FirstRelease WVEHR VER VOE1.0
Cache 31-Jan-2008 23:07:04 ZWR
^XMB(1,0)="MAILMAN SITE PARAMETERS^4.3P^1^1"
^XMB(1,1,0)="5^5^18^^^n^^^^^^EHR,EHR^^^D^1^^0^^1"
^XMB(1,1,.1,0)="^4.302DA^1^1"
^XMB(1,1,.1,1,0)="2990628.14444^1020^1519^0^1539^0^2990621^2990628.144449^1539"
^XMB(1,1,.1,"B",2990628.14444,1)=""
^XMB(1,1,.17)="7"
^XMB(1,1,3)="1"
^XMB(1,1,3.1,0)="^4.33^1^1"
^XMB(1,1,3.1,1,0)=".VA.GOV"
^XMB(1,1,3.1,"B",".VA.GOV",1)=""
^XMB(1,1,4)="1"
^XMB(1,1,4.1,0)="^4.341^1^1"
^XMB(1,1,4.1,1,0)=".VA.GOV"
^XMB(1,1,4.1,"B",".VA.GOV",1)=""
^XMB(1,1,5,0)="^4.32^4^4"
^XMB(1,1,5,1,0)="DIVISION^4^AH"
^XMB(1,1,5,2,0)="KEY^19.1^AB"
^XMB(1,1,5,3,0)="PRIMARY MENU^19^AP"
^XMB(1,1,5,4,0)="SERVICE/SECTION^49^E"
^XMB(1,1,5,"B","DIVISION",1)=""
^XMB(1,1,5,"B","KEY",2)=""
^XMB(1,1,5,"B","PRIMARY MENU",3)=""
^XMB(1,1,5,"B","SERVICE/SECTION",4)=""
^XMB(1,1,"NETWORK")="5^^^^NULL"
^XMB(1,1,"XUS")="^^^^^^^^^^^^^^^^67"
^XMB(1,"B",5,1)=""
^XMB(3.51,0)="SPOOL DOCUMENT^3.51s^^0"
^XMB(3.6,0)="BULLETIN^3.6^196^180"
^XMB(3.6,1,0)="XUSIGNON^USER SIGNING ON"
^XMB(3.6,1,1,0)="^^1^1^2880309^^^^"
^XMB(3.6,1,1,1,0)="User |2| has signed on at Device |3|."
^XMB(3.6,1,3,0)="^^1^1^2880309^^^^"
^XMB(3.6,1,3,1,0)="This bulletin is triggered whenever someone signs on thru 'XUS'"
^XMB(3.6,1,4,0)="^3.64A^3^3"
^XMB(3.6,1,4,1,0)="1"
^XMB(3.6,1,4,1,1,0)="^^1^1^2880309^^^"
^XMB(3.6,1,4,1,1,1,0)="User number ('DUZ') of user signing on."
^XMB(3.6,1,4,2,0)="2"
^XMB(3.6,1,4,2,1,0)="^^1^1^2880309^^^"
^XMB(3.6,1,4,2,1,1,0)="Name of user"
^XMB(3.6,1,4,3,0)="3"
^XMB(3.6,1,4,3,1,0)="^^1^1^2880309^^^^"
^XMB(3.6,1,4,3,1,1,0)="Device at which sign-on occurred."
^XMB(3.6,2,0)="XUSLOCK^DEVICE LOCKED DUE TO BAD SIGN-ONS"
^XMB(3.6,2,1,0)="^^8^8^3031015^"
^XMB(3.6,2,1,1,0)="Device |1| has made |2| bad sign-on attempts "
^XMB(3.6,2,1,2,0)="and has been locked."
^XMB(3.6,2,1,3,0)="The device will automatically clear after the Lockout time in the Kernel"
^XMB(3.6,2,1,4,0)="System Parameters."
^XMB(3.6,2,1,5,0)="To make the device or IP address useable before the lockout time is up"
^XMB(3.6,2,1,6,0)="use the ""CLEAR TERMINAL"" or ""Release IP lock"" option to make the device"
^XMB(3.6,2,1,7,0)="available again."
^XMB(3.6,2,1,8,0)="Select |3| as the device to release."
^XMB(3.6,2,3,0)="^3.63^2^2^3031015^^"
^XMB(3.6,2,3,1,0)="This bulletin is triggered when the number of bad sign-ons"
^XMB(3.6,2,3,2,0)="causes a terminal device or IP address to be ""locked out""."
^XMB(3.6,2,4,0)="^3.64A^3^2"
^XMB(3.6,2,4,1,0)="1"
^XMB(3.6,2,4,1,1,0)="^^1^1^2840725^^"
^XMB(3.6,2,4,1,1,1,0)="Name of device being locked."
^XMB(3.6,2,4,2,0)="2"
^XMB(3.6,2,4,2,1,0)="^^1^1^2960627^^^^"
^XMB(3.6,2,4,2,1,1,0)="Number of bad signons recorded for the device."
^XMB(3.6,2,4,3,0)="3"
^XMB(3.6,2,4,3,1,0)="^3.65^1^1^2960627^"
^XMB(3.6,2,4,3,1,1,0)="This hold the name of the device to release."
^XMB(3.6,3,0)="XUSTIME^SIGN-ON TO A TERMINAL DURING PROHIBITED TIME"
^XMB(3.6,3,1,0)="^^2^2^2871015^^"
^XMB(3.6,3,1,1,0)="""|2|"" attempted to sign on to device |1| with code ""|3|"","
^XMB(3.6,3,1,2,0)="but the device is locked out during the time period |4|."
^XMB(3.6,3,3,0)="^^3^3^2871015^^"
^XMB(3.6,3,3,1,0)="This bulletin is triggered by the Sign-on system if the device being"
^XMB(3.6,3,3,2,0)="used has a ""PROHIBITED SIGN-ON TIMES"" value, and somebody has tried to"
^XMB(3.6,3,3,3,0)="sign on during that prohibited time period."
^XMB(3.6,3,3,4,0)="the prohibited time frame."
^XMB(3.6,3,4,0)="^3.64A^4^4"
^XMB(3.6,3,4,1,0)="1"
^XMB(3.6,3,4,1,1,0)="^^1^1^2831203^"
^XMB(3.6,3,4,1,1,1,0)="Device name ($I)"
^XMB(3.6,3,4,2,0)="2"
^XMB(3.6,3,4,2,1,0)="^^1^1^2831203^"
^XMB(3.6,3,4,2,1,1,0)="User name "
^XMB(3.6,3,4,3,0)="3"
^XMB(3.6,3,4,3,1,0)="^^1^1^2831203^"
^XMB(3.6,3,4,3,1,1,0)="The access code used for sign-on"
^XMB(3.6,3,4,4,0)="4"
^XMB(3.6,3,4,4,1,0)="^^1^1^2871015^^"
^XMB(3.6,3,4,4,1,1,0)="The time range during which sign-on is prohibited."
^XMB(3.6,4,0)="XUSECURITY^SIGN-ON DISALLOWED ON SECURED TERMINAL"
^XMB(3.6,4,1,0)="^^3^3^2871015^^^"
^XMB(3.6,4,1,1,0)="User |1| tried to sign on to device |2|, which has SECURITY code |3|,"
^XMB(3.6,4,1,2,0)="but |1| has security code '|4|'.  Use ^UTIO to edit the device's"
^XMB(3.6,4,1,3,0)="SECURITY, if necessary."
^XMB(3.6,4,3,0)="^^3^3^2871015^^^"
^XMB(3.6,4,3,1,0)="This bulletin is sent by the sign-on system if a user uses"
^XMB(3.6,4,3,2,0)="a terminal that has 'SECURITY' to sign on, and his 'DUZ(0)'"
^XMB(3.6,4,3,3,0)="code is not found in the terminal's 'SECURITY' code."
^XMB(3.6,4,3,4,0)="code as the FILE MANAGER ACCESS CODE attempts to sign on."
^XMB(3.6,4,4,0)="^3.64A^4^4"
^XMB(3.6,4,4,1,0)="1"
^XMB(3.6,4,4,1,1,0)="^^1^1^2831210^"
^XMB(3.6,4,4,1,1,1,0)="Name of User"
^XMB(3.6,4,4,2,0)="2"
^XMB(3.6,4,4,2,1,0)="^^1^1^2831210^"
^XMB(3.6,4,4,2,1,1,0)="Device"
^XMB(3.6,4,4,3,0)="3"
^XMB(3.6,4,4,3,1,0)="^^1^1^2831210^"
^XMB(3.6,4,4,3,1,1,0)="Device's security code"
^XMB(3.6,4,4,4,0)="4"
^XMB(3.6,4,4,4,1,0)="^^1^1^2871015^^"
^XMB(3.6,4,4,4,1,1,0)="User's security code"
^XMB(3.6,5,0)="XUSERTERM^USER TERMINATION"
^XMB(3.6,5,1,0)="^^1^1^2850418^^^"
^XMB(3.6,5,1,1,0)="USER |1| has been terminated as of |2|"
^XMB(3.6,5,1,2,0)="The error message was '|3|'."
^XMB(3.6,5,3,0)="^^6^6^2880307^^^^"
^XMB(3.6,5,3,1,0)="This bulletin is issued whenever a message cannot be delivered after the"
^XMB(3.6,5,3,2,0)="Simple Mail Transfer Protocol ""DATA"" command is issued.  It indicates that"
^XMB(3.6,5,3,3,0)="that the ""Mail From:"" and RCPT (recipient) commands were successfully "
^XMB(3.6,5,3,4,0)="issued, but that something in the header of the message was rejected,"
^XMB(3.6,5,3,5,0)="such as duplicate message ID.  The error message returned by the remote"
^XMB(3.6,5,3,6,0)="receiver is included in the bulletin."
^XMB(3.6,5,4,0)="^3.64A^3^3"
^XMB(3.6,5,4,1,0)="1"
^XMB(3.6,5,4,1,1,0)="^^1^1^2840425^"
^XMB(3.6,5,4,1,1,1,0)="Name of the remote site rejecting the message (may be intermediate relay)"
^XMB(3.6,5,4,2,0)="2"
^XMB(3.6,5,4,2,1,0)="^^1^1^2840425^"
^XMB(3.6,5,4,2,1,1,0)="Title and message number of message which was rejected"
^XMB(3.6,5,4,3,0)="3"
^XMB(3.6,5,4,3,1,0)="^^1^1^2880219^^^"
^XMB(3.6,5,4,3,1,1,0)="The rejection message issued by the rejecting receiver."
^XMB(3.6,6,0)="XUS ACCESS CODE VIOLATION^A USER HAS SEEN ANOTHER USER'S ACCESS CODE"
^XMB(3.6,6,1,0)="^^4^4^2880715^^^^"
^XMB(3.6,6,1,1,0)="The user above tried to assign the ACCESS CODE that"
^XMB(3.6,6,1,2,0)="already belonged to |1|."
^XMB(3.6,6,1,3,0)="|1| should change his/her code as soon as possible, since its"
^XMB(3.6,6,1,4,0)="secrecy has now been compromised."
^XMB(3.6,6,3,0)="^^5^5^2880715^^^"
^XMB(3.6,6,3,1,0)="This bulletin is sent by the Syntax check of the ACCESS CODE field"
^XMB(3.6,6,3,2,0)="of the USER file, whenever someone tries to assign an ACCESS CODE"
^XMB(3.6,6,3,3,0)="that is already in use for a different USER."
^XMB(3.6,6,3,4,0)=" The bulletin goes to whoever is in the MAIL GROUP, plus the user"
^XMB(3.6,6,3,5,0)="who tried to input the code."
^XMB(3.6,6,4,0)="^3.64A^1^1"
^XMB(3.6,6,4,1,0)="1"
^XMB(3.6,6,4,1,1,0)="^^1^1^2880715^^^"
^XMB(3.6,6,4,1,1,1,0)="The name of the USER whose ACCESS CODE was discovered."
^XMB(3.6,7,0)="XUPROGMODE^DROPPING INTO PROGRAMMER MODE"
^XMB(3.6,7,1,0)="^^1^1^2910201^^^^"
^XMB(3.6,7,1,1,0)="User # |1| has dropped into programmer mode on device |2| ."
^XMB(3.6,7,3,0)="^^1^1^2910201^^^^"
^XMB(3.6,7,3,1,0)="User going into progmode message."
^XMB(3.6,7,4,0)="^3.64A^2^2"
^XMB(3.6,7,4,1,0)="1"
^XMB(3.6,7,4,1,1,0)="^^1^1^2851106^"
^XMB(3.6,7,4,1,1,1,0)="user name"
^XMB(3.6,7,4,2,0)="2"
^XMB(3.6,7,4,2,1,0)="^^1^1^2910201^^^^"
^XMB(3.6,7,4,2,1,1,0)="device"
^XMB(3.6,8,0)="XQSERVER^Server Request Notice"
^XMB(3.6,8,1,0)="^3.61A^13^13^3020425^^^^"
^XMB(3.6,8,1,1,0)="                 |1|"
^XMB(3.6,8,1,2,0)="  "
^XMB(3.6,8,1,3,0)="A request for execution of a server option has been received."
^XMB(3.6,8,1,4,0)="  "
^XMB(3.6,8,1,5,0)="Sender: |2|"
^XMB(3.6,8,1,6,0)="Option name: |3|"
^XMB(3.6,8,1,7,0)="Subject: |4|"
^XMB(3.6,8,1,8,0)="Message #: |5|"
^XMB(3.6,8,1,9,0)="  "
^XMB(3.6,8,1,10,0)="Comments: |6|"
^XMB(3.6,8,1,11,0)="   "
^XMB(3.6,8,1,12,0)="This is the bulletin named XQSERVER."
^XMB(3.6,8,1,13,0)="   "
^XMB(3.6,8,3,0)="^3.63^2^2^3020425^^^^"
^XMB(3.6,8,3,1,0)="This is the standard, or default, bulletin used by the menu system"
^XMB(3.6,8,3,2,0)="to notify IRM staff and users about server request events."
^XMB(3.6,8,4,0)="^3.64A^6^3"
^XMB(3.6,8,4,1,0)="1"
^XMB(3.6,8,4,1,1,0)="^^2^2^3000622^"
^XMB(3.6,8,4,1,1,1,0)="The date and time in human-readable form when the server request"
^XMB(3.6,8,4,1,1,2,0)="was received."
^XMB(3.6,8,4,2,0)="2"
^XMB(3.6,8,4,2,1,0)="^^1^1^2900122^^^"
^XMB(3.6,8,4,2,1,1,0)="The name of the sender of the server request."
^XMB(3.6,8,4,3,0)="3"
^XMB(3.6,8,4,3,1,0)="^^1^1^2900122^^"
^XMB(3.6,8,4,3,1,1,0)="The name of the option which was requested by Mailman."
^XMB(3.6,8,4,4,0)="4"
^XMB(3.6,8,4,4,1,0)="^^1^1^2900122^^^^"
^XMB(3.6,8,4,4,1,1,0)="The subject of the message which requested a server."
^XMB(3.6,8,4,5,0)="5"
^XMB(3.6,8,4,5,1,0)="^^1^1^2900122^^^^"
^XMB(3.6,8,4,5,1,1,0)="The internal number of the message requesting a server."
^XMB(3.6,8,4,6,0)="6"
^XMB(3.6,8,4,6,1,0)="^3.65^3^3^3020425^^^^"
^XMB(3.6,8,4,6,1,1,0)="Comments appended to the bulleting.  These may include errors trapped"
^XMB(3.6,8,4,6,1,2,0)="by the server software and/or the operating system, as well as general"
^XMB(3.6,8,4,6,1,3,0)="purpose messages."
^XMB(3.6,9,0)="XTRMON^Changes to routines"
^XMB(3.6,9,1,0)="^^3^3^2951213^^^^"
^XMB(3.6,9,1,1,0)="A check of the routines in |3| on |1|"
^XMB(3.6,9,1,2,0)="showed that |2| routines changed, Here is the list:"
^XMB(3.6,9,1,3,0)=" "
^XMB(3.6,9,3,0)="^^2^2^2951213^^^"
^XMB(3.6,9,3,1,0)="This bulletin is used by the XTRMON routine to send mail messages"
^XMB(3.6,9,3,2,0)="about routines that change in the set of routines being tracked."
^XMB(3.6,10,0)="XMRDACK^Confirmation of message"
^XMB(3.6,10,1,0)="^3.61A^3^3^2990306^^^^"
^XMB(3.6,10,1,1,0)="Your message:"
^XMB(3.6,10,1,2,0)="Subj: |1|"
^XMB(3.6,10,1,3,0)="has been read by |2|."
^XMB(3.6,10,3,0)="^3.63^4^4^2990306^^^^"
^XMB(3.6,10,3,1,0)="This bulletin is used by MailMan to inform the sender of a message"
^XMB(3.6,10,3,2,0)="that a recipient has read the message."
^XMB(3.6,10,3,3,0)="The sender of the message must have set the CONFIRMATION REQUESTED"
^XMB(3.6,10,3,4,0)="flag to ON when the message was created."
^XMB(3.6,10,4,0)="^3.64A^2^2"
^XMB(3.6,10,4,1,0)="1"
^XMB(3.6,10,4,1,1,0)="^^1^1^2990306^^"
^XMB(3.6,10,4,1,1,1,0)="Message subject"
^XMB(3.6,10,4,2,0)="2"
^XMB(3.6,10,4,2,1,0)="^^1^1^2990306^^"
^XMB(3.6,10,4,2,1,1,0)="Name of the user who just read the message"
^XMB(3.6,13,0)="XMNEWUSER^NEW USER ADDED TO SYSTEM"
^XMB(3.6,13,1,0)="^^1^1^2990617^"
^XMB(3.6,13,1,1,0)="User |1| has been added to the New Person file."
^XMB(3.6,13,3,0)="^^2^2^2840514^^^"
^XMB(3.6,13,3,1,0)="This message is  sent whenever a new user is added to "
^XMB(3.6,13,3,2,0)="the user file"
^XMB(3.6,13,4,0)="^3.64A^1^1"
^XMB(3.6,13,4,1,0)="1"
^XMB(3.6,13,4,1,1,0)="^^1^1^2831210^^^"
^XMB(3.6,13,4,1,1,1,0)="THE NAME OF THE USER WHO IS ADDED TO THE SYSTEM"
^XMB(3.6,15,0)="XM BANNER MESSAGE^CHANGE IN USER'S 'BANNER' for MAILMAN"
^XMB(3.6,15,1,0)="^^2^2^2940202^^^^"
^XMB(3.6,15,1,1,0)="The MailMan ""banner"" for |2| has been changed to read:"
^XMB(3.6,15,1,2,0)="|1||TAB|"
^XMB(3.6,15,3,0)="^^1^1^2931206^"
^XMB(3.6,15,3,1,0)="This bulletin might be generated when a user changes his banner."
^XMB(3.6,15,4,0)="^3.64A^2^2"
^XMB(3.6,15,4,1,0)="1"
^XMB(3.6,15,4,1,1,0)="^^1^1^2841221^^"
^XMB(3.6,15,4,1,1,1,0)="The contents of the new BANNER"
^XMB(3.6,15,4,2,0)="2"
^XMB(3.6,15,4,2,1,0)="^^1^1^2931206^^^^"
^XMB(3.6,15,4,2,1,1,0)="Name of Mailbox holder whose banner has been changed"
^XMB(3.6,22,0)="XMVALBAD^Invalid validation number received"
^XMB(3.6,22,1,0)="^3.61A^1^1^3020508^^^^"
^XMB(3.6,22,1,1,0)="validation breach to domain |1|."
^XMB(3.6,22,3,0)="^3.63^5^5^3020508^^^^"
^XMB(3.6,22,3,1,0)="This bulletin is fired whenever a remote mailman domain attempts to "
^XMB(3.6,22,3,2,0)="establish a connection with this domain and the validation numbers"
^XMB(3.6,22,3,3,0)="do not properly match.  This may indicate a attempted breach of security"
^XMB(3.6,22,3,4,0)="or some other network failure.  In order to re-establish communication with "
^XMB(3.6,22,3,5,0)="this domain, call the site manager to reset your validation numbers."
^XMB(3.6,22,4,0)="^3.64A^1^1"
^XMB(3.6,22,4,1,0)="1"
^XMB(3.6,22,4,1,1,0)="^^1^1^2861101^^^^"
^XMB(3.6,22,4,1,1,1,0)="name of domain attempting to get in"
^XMB(3.6,23,0)="XM_TRANSMISSION_ERROR^MailMan Error Detected During Message Delivery"
^XMB(3.6,23,1,0)="^3.61A^2^2^3000728^^^^"
^XMB(3.6,23,1,1,0)="During message delivery, the following error was detected:"
^XMB(3.6,23,1,2,0)=" "
^XMB(3.6,23,3,0)="^3.63^5^5^3000728^^^^"
^XMB(3.6,23,3,1,0)="This bulletin is fired off when the background delivery process"
^XMB(3.6,23,3,2,0)="detects an error.  The message or response it is supposed to deliver"
^XMB(3.6,23,3,3,0)="does not exist.  We just move on to the next message."
^XMB(3.6,23,3,4,0)=""
^XMB(3.6,23,3,5,0)="There are no parameters.  The error text is appended to the bulletin."
^XMB(3.6,23,4,0)="^3.64A^^0"
^XMB(3.6,25,0)="XDR VERIFIED^NOTIFICATION OF VERIFIED DUPLICATES"
^XMB(3.6,25,1,0)="^^12^12^2930706^^^^"
^XMB(3.6,25,1,1,0)="|WRAP|"
^XMB(3.6,25,1,2,0)="The following records have been identified as Verified Duplicates"
^XMB(3.6,25,1,3,0)="of the |1| file:"
^XMB(3.6,25,1,4,0)="|NOWRAP|"
^XMB(3.6,25,1,5,0)=" "
^XMB(3.6,25,1,6,0)="From record DA/DFN: |2|                      To record DA/DFN: |3|"
^XMB(3.6,25,1,7,0)=" "
^XMB(3.6,25,1,8,0)="|4|                                       |5|"
^XMB(3.6,25,1,9,0)=" "
^XMB(3.6,25,1,10,0)="|WRAP|"
^XMB(3.6,25,1,11,0)="The FROM record will be merged to the TO record.  Please resolve any"
^XMB(3.6,25,1,12,0)="package discrepancies so that the merge may proceed."
^XMB(3.6,25,3,0)="^^6^6^2910325^^^^"
^XMB(3.6,25,3,1,0)="This bulletin is sent by the Kernel Duplicate Resolution software"
^XMB(3.6,25,3,2,0)="anytime a pair of Potential Duplicates are reviewed and the "
^XMB(3.6,25,3,3,0)="operator determines that the pair are indeed Verified Duplicates."
^XMB(3.6,25,3,4,0)=" "
^XMB(3.6,25,3,5,0)="This bulletin is sent only if a package merge developer does not"
^XMB(3.6,25,3,6,0)="have a routine that sends its own customized verified message."
^XMB(3.6,25,4,0)="^3.64A^5^5"
^XMB(3.6,25,4,1,0)="1"
^XMB(3.6,25,4,1,1,0)="^^1^1^2910107^^^"
^XMB(3.6,25,4,1,1,1,0)="The file from which the two records come from."
^XMB(3.6,25,4,2,0)="2"
^XMB(3.6,25,4,2,1,0)="^^1^1^2930706^^^^"
^XMB(3.6,25,4,2,1,1,0)="The From record's DA/DFN."
^XMB(3.6,25,4,3,0)="3"
^XMB(3.6,25,4,3,1,0)="^^1^1^2930706^^^"
^XMB(3.6,25,4,3,1,1,0)="The To record's DA/DFN."
^XMB(3.6,25,4,4,0)="4"
^XMB(3.6,25,4,4,1,0)="^^1^1^2910108^^^"
^XMB(3.6,25,4,4,1,1,0)="The internal value of the .01 field of the From Record."
^XMB(3.6,25,4,5,0)="5"
^XMB(3.6,25,4,5,1,0)="^^1^1^2910108^^^^"
^XMB(3.6,25,4,5,1,1,0)="The internal value of the .01 field of the To Record."
^XMB(3.6,26,0)="XDR MERGED^NOTIFICATION OF DUPLICATES MERGED"
^XMB(3.6,26,1,0)="^^13^13^2930706^^^^"
^XMB(3.6,26,1,1,0)="|WRAP|"
^XMB(3.6,26,1,2,0)="The following records from the |1| file have been merged."
^XMB(3.6,26,1,3,0)="|NOWRAP|"
^XMB(3.6,26,1,4,0)=" "
^XMB(3.6,26,1,5,0)="From record DA/DFN: |2|              To record DA/DFN: |3|"
^XMB(3.6,26,1,6,0)=" "
^XMB(3.6,26,1,7,0)="|4|                               |5|"
^XMB(3.6,26,1,8,0)=" "
^XMB(3.6,26,1,9,0)="|WRAP|"
^XMB(3.6,26,1,10,0)="The FROM Record has now been merged to the TO Record."
^XMB(3.6,26,1,11,0)="|NOWRAP|"
^XMB(3.6,26,1,12,0)=" "
^XMB(3.6,26,1,13,0)="|6|"
^XMB(3.6,26,3,0)="^^5^5^2910325^^^^"
^XMB(3.6,26,3,1,0)="This bulletin is sent by the Kernel Duplicate Resolution"
^XMB(3.6,26,3,2,0)="software when a Verified Duplicate pair are merged together."
^XMB(3.6,26,3,3,0)=" "
^XMB(3.6,26,3,4,0)="This bulletin is sent only if a package merge developer does not"
^XMB(3.6,26,3,5,0)="have a routine that sends its own customized merge message."
^XMB(3.6,26,4,0)="^3.64A^6^6"
^XMB(3.6,26,4,1,0)="1"
^XMB(3.6,26,4,1,1,0)="^^1^1^2910108^"
^XMB(3.6,26,4,1,1,1,0)="The file from which the two records come from."
^XMB(3.6,26,4,2,0)="2"
^XMB(3.6,26,4,2,1,0)="^^1^1^2930706^^"
^XMB(3.6,26,4,2,1,1,0)="The From record's DA/DFN."
^XMB(3.6,26,4,3,0)="3"
^XMB(3.6,26,4,3,1,0)="^^1^1^2930706^^"
^XMB(3.6,26,4,3,1,1,0)="The To record's DA/DFN."
^XMB(3.6,26,4,4,0)="4"
^XMB(3.6,26,4,4,1,0)="^^1^1^2910108^"
^XMB(3.6,26,4,4,1,1,0)="The internal value of the .01 field of the From Record."
^XMB(3.6,26,4,5,0)="5"
^XMB(3.6,26,4,5,1,0)="^^1^1^2910108^"
^XMB(3.6,26,4,5,1,1,0)="The internal value of the .01 field of the To Record."
^XMB(3.6,26,4,6,0)="6"
^XMB(3.6,26,4,6,1,0)="^^1^1^2910115^^^"
^XMB(3.6,26,4,6,1,1,0)="The package merge error listing header."
^XMB(3.6,27,0)="XDR ERROR^ERROR DURING DUPLICATE CHECKING OR MERGE"
^XMB(3.6,27,1,0)="^^11^11^2930706^^"
^XMB(3.6,27,1,1,0)="|NOWRAP|"
^XMB(3.6,27,1,2,0)="This is to notify you that an error was encountered while trying to"
^XMB(3.6,27,1,3,0)="either check for duplicates or during the early merge process of"
^XMB(3.6,27,1,4,0)="the |1| file."
^XMB(3.6,27,1,5,0)=" "
^XMB(3.6,27,1,6,0)="From DA/DFN: |2|                           To DA/DFN: |3|"
^XMB(3.6,27,1,7,0)=" "
^XMB(3.6,27,1,8,0)="|4|                                     |5|"
^XMB(3.6,27,1,9,0)=" "
^XMB(3.6,27,1,10,0)="|WRAP|"
^XMB(3.6,27,1,11,0)="|6|"
^XMB(3.6,27,3,0)="^^4^4^2930706^^"
^XMB(3.6,27,3,1,0)="This bulletin is sent by the Kernel Duplicate Resolution software"
^XMB(3.6,27,3,2,0)="when an error that halts the process is encountered by a background"
^XMB(3.6,27,3,3,0)="task.  It is only sent if there is a entry in the 'Duplicate Manager"
^XMB(3.6,27,3,4,0)="Mail Group' in the Duplicate Resolution file."
^XMB(3.6,27,4,0)="^3.64A^6^6"
^XMB(3.6,27,4,1,0)="1"
^XMB(3.6,27,4,1,1,0)="^^1^1^2910113^^"
^XMB(3.6,27,4,1,1,1,0)="The file from which the two records come from."
^XMB(3.6,27,4,2,0)="2"
^XMB(3.6,27,4,2,1,0)="^^1^1^2930706^^^"
^XMB(3.6,27,4,2,1,1,0)="The From record's DA/DFN."
^XMB(3.6,27,4,3,0)="3"
^XMB(3.6,27,4,3,1,0)="^^1^1^2930706^^"
^XMB(3.6,27,4,3,1,1,0)="The To record's DA/DFN."
^XMB(3.6,27,4,4,0)="4"
^XMB(3.6,27,4,4,1,0)="^^1^1^2910113^"
^XMB(3.6,27,4,4,1,1,0)="The internal value of the .01 field of the From Record."
^XMB(3.6,27,4,5,0)="5"
^XMB(3.6,27,4,5,1,0)="^^1^1^2910113^"
^XMB(3.6,27,4,5,1,1,0)="The internal value of the .01 field of the To Record."
^XMB(3.6,27,4,6,0)="6"
^XMB(3.6,27,4,6,1,0)="^^1^1^2930706^^"
^XMB(3.6,27,4,6,1,1,0)="The error condition that was encountered."
^XMB(3.6,28,0)="FHDIREQ^Dietetic Consultation Request"
^XMB(3.6,28,1,0)="^^3^3^2920323^^^^"
^XMB(3.6,28,1,1,0)="You have a |1| request."
^XMB(3.6,28,1,2,0)="Patient is |3| on ward |4|, room |2|."
^XMB(3.6,28,1,3,0)="|5|"
^XMB(3.6,28,3,0)="^^2^2^2920323^^^^"
^XMB(3.6,28,3,1,0)="Bulletin Ward Clinician when consult is entered on a"
^XMB(3.6,28,3,2,0)="patient on a ward for which the clinician is responsible."
^XMB(3.6,28,4,0)="^3.64A^2^5"
^XMB(3.6,28,4,1,0)="1"
^XMB(3.6,28,4,1,1,0)="^^1^1^2850427^^"
^XMB(3.6,28,4,1,1,1,0)="Type of consultation requested; from file 119.52"
^XMB(3.6,28,4,2,0)="2"
^XMB(3.6,28,4,2,1,0)="^^1^1^2920323^^"
^XMB(3.6,28,4,2,1,1,0)="Room-Bed"
^XMB(3.6,28,4,3,0)="3"
^XMB(3.6,28,4,3,1,0)="^^1^1^2850427^^"
^XMB(3.6,28,4,3,1,1,0)="Patient name"
^XMB(3.6,28,4,4,0)="4"
^XMB(3.6,28,4,4,1,0)="^^1^1^2850427^^"
^XMB(3.6,28,4,4,1,1,0)="Current ward of patient"
^XMB(3.6,28,4,5,0)="5"
^XMB(3.6,28,4,5,1,0)="^^1^1^2891226^^^^"
^XMB(3.6,28,4,5,1,1,0)="Comment by person ordering"
^XMB(3.6,29,0)="FHDIORD^Diet Order"
^XMB(3.6,29,1,0)="^^3^3^2940119^^^^"
^XMB(3.6,29,1,1,0)="|1| on ward |2|, room |5| has been ordered"
^XMB(3.6,29,1,2,0)="|3|"
^XMB(3.6,29,1,3,0)="Effective |4|"
^XMB(3.6,29,3,0)="^^2^2^2940119^^^^"
^XMB(3.6,29,3,1,0)="Bulletin Ward Clinician when 'Bulletinized' Diet Order"
^XMB(3.6,29,3,2,0)="is entered."
^XMB(3.6,29,4,0)="^3.64A^5^5"
^XMB(3.6,29,4,1,0)="1"
^XMB(3.6,29,4,1,1,0)="^^1^1^2940119^^"
^XMB(3.6,29,4,1,1,1,0)="Patient name"
^XMB(3.6,29,4,2,0)="2"
^XMB(3.6,29,4,2,1,0)="^^1^1^2940119^^"
^XMB(3.6,29,4,2,1,1,0)="Current ward"
^XMB(3.6,29,4,3,0)="3"
^XMB(3.6,29,4,3,1,0)="^^1^1^2940119^^"
^XMB(3.6,29,4,3,1,1,0)="Diet order"
^XMB(3.6,29,4,4,0)="4"
^XMB(3.6,29,4,4,1,0)="^^1^1^2940119^^^^"
^XMB(3.6,29,4,4,1,1,0)="Effective date of diet order"
^XMB(3.6,29,4,5,0)="5"
^XMB(3.6,29,4,5,1,0)="^^1^1^2940119^^^^"
^XMB(3.6,29,4,5,1,1,0)="Room-Bed"
^XMB(3.6,30,0)="FHDITF^Tubefeeding Order"
^XMB(3.6,30,1,0)="^^4^4^2930527^^^^"
^XMB(3.6,30,1,1,0)="You have a Tubefeeding Order for |1|  ( |2| )"
^XMB(3.6,30,1,2,0)="on ward |3|, room |4|"
^XMB(3.6,30,1,3,0)=" "
^XMB(3.6,30,1,4,0)="|5|"
^XMB(3.6,30,3,0)="^^1^1^2930527^^^^"
^XMB(3.6,30,3,1,0)="Bulletin to alert Ward Clinician of Tubefeeding Order."
^XMB(3.6,30,4,0)="^3.64A^5^5"
^XMB(3.6,30,4,1,0)="1"
^XMB(3.6,30,4,1,1,0)="^^1^1^2850908^"
^XMB(3.6,30,4,1,1,1,0)="Patient Name"
^XMB(3.6,30,4,2,0)="2"
^XMB(3.6,30,4,2,1,0)="^^1^1^2850908^"
^XMB(3.6,30,4,2,1,1,0)="Last 4 SSN digits"
^XMB(3.6,30,4,3,0)="3"
^XMB(3.6,30,4,3,1,0)="^^1^1^2850908^^"
^XMB(3.6,30,4,3,1,1,0)="Ward Name"
^XMB(3.6,30,4,4,0)="4"
^XMB(3.6,30,4,4,1,0)="^^1^1^2901219^^"
^XMB(3.6,30,4,4,1,1,0)="Room-Bed"
^XMB(3.6,30,4,5,0)="5"
^XMB(3.6,30,4,5,1,0)="^^1^1^2930527^^^^"
^XMB(3.6,30,4,5,1,1,0)="Comment indicating whether tray order and SF were cancelled."
^XMB(3.6,31,0)="FHDIOO^Additional Order"
^XMB(3.6,31,1,0)="^^5^5^2920323^^^^"
^XMB(3.6,31,1,1,0)="|6|  Additional Order: |1|"
^XMB(3.6,31,1,2,0)=" "
^XMB(3.6,31,1,3,0)="                   |3|, |4|, |2|"
^XMB(3.6,31,1,4,0)=" "
^XMB(3.6,31,1,5,0)="Comment: |5|"
^XMB(3.6,31,3,0)="^^1^1^2920323^^^"
^XMB(3.6,31,3,1,0)="Bulletin to alert Ward Clinician of Additional Order."
^XMB(3.6,31,4,0)="^3.64A^6^1"
^XMB(3.6,31,4,6,0)="6"
^XMB(3.6,31,4,6,1,0)="^^1^1^2920323^^^"
^XMB(3.6,31,4,6,1,1,0)="Comment to indicate approval or disapproval for the Additional Order."
^XMB(3.6,32,0)="FHDIDIP^Meal Pattern"
^XMB(3.6,32,1,0)="^^3^3^2940119^^^"
^XMB(3.6,32,1,1,0)="|1| on ward |2|, room |3| has no meal pattern for"
^XMB(3.6,32,1,2,0)="|4|"
^XMB(3.6,32,1,3,0)="Effective |5|"
^XMB(3.6,32,3,0)="^^1^1^2940119^^^"
^XMB(3.6,32,3,1,0)="Bulletin Ward Clinician when a Diet Order has no Meal Pattern."
^XMB(3.6,32,4,0)="^3.64A^5^5"
^XMB(3.6,32,4,1,0)="1"
^XMB(3.6,32,4,1,1,0)="^^1^1^2940119^^"
^XMB(3.6,32,4,1,1,1,0)="Patient name"
^XMB(3.6,32,4,2,0)="2"
^XMB(3.6,32,4,2,1,0)="^^1^1^2940119^^"
^XMB(3.6,32,4,2,1,1,0)="Current ward"
^XMB(3.6,32,4,3,0)="3"
^XMB(3.6,32,4,3,1,0)="^^1^1^2940119^^"
^XMB(3.6,32,4,3,1,1,0)="Room-Bed"
^XMB(3.6,32,4,4,0)="4"
^XMB(3.6,32,4,4,1,0)="^^1^1^2940119^^"
^XMB(3.6,32,4,4,1,1,0)="Diet order"
^XMB(3.6,32,4,5,0)="5"
^XMB(3.6,32,4,5,1,0)="^^1^1^2940119^^^^"
^XMB(3.6,32,4,5,1,1,0)="Effective date of diet order"
^XMB(3.6,33,0)="EN NEW EQUIPMENT^NEW EQUIPMENT: ENTRY #|1|"
^XMB(3.6,33,1,0)="^^9^9^2961008^^^"
^XMB(3.6,33,1,1,0)="A new equipment record has been added to the AEMS/MERS database."
^XMB(3.6,33,1,2,0)="The ENTRY NUMBER is |1|."
^XMB(3.6,33,1,3,0)="It was entered by |2|."
^XMB(3.6,33,1,4,0)="The MFGR EQUIPMENT NAME is |3|."
^XMB(3.6,33,1,5,0)="The EQUIPMENT CATEGORY is |4|."
^XMB(3.6,33,1,6,0)="The SERVICE is |5|."
^XMB(3.6,33,1,7,0)="The STATION NUMBER is |6|."
^XMB(3.6,33,1,8,0)=" "
^XMB(3.6,33,1,9,0)="|7|"
^XMB(3.6,33,3,0)="^^2^2^2961008^^^^"
^XMB(3.6,33,3,1,0)="Bulletin to alert users (generally in Engineering and A&MM Services)"
^XMB(3.6,33,3,2,0)="that a new equipment record has been added to the AEMS/MERS database."
^XMB(3.6,33,4,0)="^3.64A^7^7"
^XMB(3.6,33,4,1,0)="1"
^XMB(3.6,33,4,1,1,0)="^^1^1^2930316^"
^XMB(3.6,33,4,1,1,1,0)="The IEN (computer generated)."
^XMB(3.6,33,4,2,0)="2"
^XMB(3.6,33,4,2,1,0)="^^1^1^2930316^"
^XMB(3.6,33,4,2,1,1,0)="Name of the user who entered the new record (from NEW PERSON FILE)."
^XMB(3.6,33,4,3,0)="3"
^XMB(3.6,33,4,3,1,0)="^^1^1^2930316^"
^XMB(3.6,33,4,3,1,1,0)="Brief description of the item."
^XMB(3.6,33,4,4,0)="4"
^XMB(3.6,33,4,4,1,0)="^^2^2^2930316^"
^XMB(3.6,33,4,4,1,1,0)="The EQUIPMENT CATEGORY assigned (mainly for preventive maintenance"
^XMB(3.6,33,4,4,1,2,0)="scheduling)."
^XMB(3.6,33,4,5,0)="5"
^XMB(3.6,33,4,5,1,0)="^^2^2^2960826^^"
^XMB(3.6,33,4,5,1,1,0)="The owning SERVICE.  Generally (but not always) determined from"
^XMB(3.6,33,4,5,1,2,0)="the CMR (Consolidated Memorandum of Receipt)."
^XMB(3.6,33,4,6,0)="6"
^XMB(3.6,33,4,6,1,0)="^^1^1^2960826^"
^XMB(3.6,33,4,6,1,1,0)="Station number."
^XMB(3.6,33,4,7,0)="7"
^XMB(3.6,33,4,7,1,0)="^^1^1^2960826^"
^XMB(3.6,33,4,7,1,1,0)="Text indicating if equipment is capitalized NX and if reported to FAP."
^XMB(3.6,36,0)="OR FLAGGED ORDER^Order flagged for clarification"
^XMB(3.6,36,1,0)="^^14^14^2951208^^^^"
^XMB(3.6,36,1,1,0)="The following order has been flagged for clarification:"
^XMB(3.6,36,1,2,0)=" "
^XMB(3.6,36,1,3,0)="       Patient: |1|                     |2|             |3|"
^XMB(3.6,36,1,4,0)="    Order Date: |4|"
^XMB(3.6,36,1,5,0)="    Start Time: |8|"
^XMB(3.6,36,1,6,0)="     Stop Time: |9|"
^XMB(3.6,36,1,7,0)="        Status: |11|"
^XMB(3.6,36,1,8,0)=" "
^XMB(3.6,36,1,9,0)="   |5|"
^XMB(3.6,36,1,10,0)="   |6|"
^XMB(3.6,36,1,11,0)="   |7|"
^XMB(3.6,36,1,12,0)=" "
^XMB(3.6,36,1,13,0)="REASON FOR FLAG:"
^XMB(3.6,36,1,14,0)="|10|"
^XMB(3.6,36,3,0)="^^2^2^2951208^^^^"
^XMB(3.6,36,3,1,0)="This bulletin is used to notify the requestor of an order that one"
^XMB(3.6,36,3,2,0)="of the orders has been flagged and is in need of clarification."
^XMB(3.6,36,4,0)="^3.64A^10^10"
^XMB(3.6,36,4,1,0)="1"
^XMB(3.6,36,4,1,1,0)="^^1^1^2910227^"
^XMB(3.6,36,4,1,1,1,0)="Patient name"
^XMB(3.6,36,4,2,0)="2"
^XMB(3.6,36,4,2,1,0)="^^1^1^2910227^"
^XMB(3.6,36,4,2,1,1,0)="Patient SSN"
^XMB(3.6,36,4,3,0)="3"
^XMB(3.6,36,4,3,1,0)="^^1^1^2910227^"
^XMB(3.6,36,4,3,1,1,0)="Patient date of birth"
^XMB(3.6,36,4,4,0)="4"
^XMB(3.6,36,4,4,1,0)="^^1^1^2910227^"
^XMB(3.6,36,4,4,1,1,0)="Order Date"
^XMB(3.6,36,4,5,0)="5"
^XMB(3.6,36,4,5,1,0)="^^1^1^2910227^"
^XMB(3.6,36,4,5,1,1,0)="1st line of order text"
^XMB(3.6,36,4,6,0)="6"
^XMB(3.6,36,4,6,1,0)="^^1^1^2910227^"
^XMB(3.6,36,4,6,1,1,0)="2nd line of order text"
^XMB(3.6,36,4,7,0)="7"
^XMB(3.6,36,4,7,1,0)="^^1^1^2910227^"
^XMB(3.6,36,4,7,1,1,0)="3rd line of order text"
^XMB(3.6,36,4,8,0)="8"
^XMB(3.6,36,4,8,1,0)="^^1^1^2910227^"
^XMB(3.6,36,4,8,1,1,0)="Start time of order"
^XMB(3.6,36,4,9,0)="9"
^XMB(3.6,36,4,9,1,0)="^^1^1^2910227^"
^XMB(3.6,36,4,9,1,1,0)="Stop time of order"
^XMB(3.6,36,4,10,0)="10"
^XMB(3.6,36,4,10,1,0)="^^1^1^2951208^^^"
^XMB(3.6,36,4,10,1,1,0)="Reason for flag"
^XMB(3.6,37,0)="DG EMBOSSER^EMBOSSERS"
^XMB(3.6,37,1,0)="^^4^4^2860714^^^^"
^XMB(3.6,37,1,1,0)="This is to inform you that the |1| card for "
^XMB(3.6,37,1,2,0)="|2| was not successfully embossed. It has been placed in hold"
^XMB(3.6,37,1,3,0)="status. Please check the embosser to make sure it is on-line and clear"
^XMB(3.6,37,1,4,0)="error if one exists."
^XMB(3.6,37,3,0)="^^1^1^2860714^^^^"
^XMB(3.6,37,3,1,0)="^ALERTS USERS TO UNEMBOSSED CARDS AND TELLS THEM TO CHECK THE EMBOSSERS "
^XMB(3.6,37,4,0)="^3.64A^2^2"
^XMB(3.6,37,4,1,0)="1"
^XMB(3.6,37,4,1,1,0)="^^1^1^2851218^^^^"
^XMB(3.6,37,4,1,1,1,0)="Type of card requested"
^XMB(3.6,37,4,2,0)="2"
^XMB(3.6,37,4,2,1,0)="^^1^1^2860714^^^^"
^XMB(3.6,37,4,2,1,1,0)="Patient's name"
^XMB(3.6,38,0)="DG EMBOSSER1^EMBOSSER ERROR"
^XMB(3.6,38,1,0)="3^^3^3^2901221^^^^"
^XMB(3.6,38,1,1,0)="Embosser has encountered an ERROR. Please check embosser and clear"
^XMB(3.6,38,1,2,0)="error.  The data card for |1| was in the process "
^XMB(3.6,38,1,3,0)="of being embossed. It will be completed as soon as error is cleared."
^XMB(3.6,38,3,0)="^^1^1^2901221^^^^"
^XMB(3.6,38,3,1,0)="Alerts users to problem with embosser."
^XMB(3.6,38,4,0)="^3.64A^1^1"
^XMB(3.6,38,4,1,0)="1"
^XMB(3.6,38,4,1,1,0)="^^1^1^2901221^^^^"
^XMB(3.6,38,4,1,1,1,0)="Patients name"
^XMB(3.6,39,0)="DG SENSITIVITY^Sensitive Patient Record Accessed"
^XMB(3.6,39,1,0)="^^7^7^2990724^"
^XMB(3.6,39,1,1,0)="The user indicated above has accessed the following sensitive"
^XMB(3.6,39,1,2,0)="patient record:"
^XMB(3.6,39,1,3,0)=" "
^XMB(3.6,39,1,4,0)="  Patient Name: |1|"
^XMB(3.6,39,1,5,0)="  SSN         : |2|"
^XMB(3.6,39,1,6,0)="  Option Used : |3|"
^XMB(3.6,39,1,7,0)="  Date/time   : |4| "
^XMB(3.6,39,3,0)="^^5^5^2990724^^^^"
^XMB(3.6,39,3,1,0)="This bulletin is sent if the following two conditions are"
^XMB(3.6,39,3,2,0)="true:"
^XMB(3.6,39,3,3,0)="  a. The user does not hold the DG SENSITIVITY key and"
^XMB(3.6,39,3,4,0)="  b. the ADT Parameter for SENSITIVITY BULLETIN is set to"
^XMB(3.6,39,3,5,0)="     '1'."
^XMB(3.6,39,4,0)="^3.64A^4^4"
^XMB(3.6,39,4,1,0)="1"
^XMB(3.6,39,4,1,1,0)="^^1^1^2870423^^^^"
^XMB(3.6,39,4,1,1,1,0)="Patient Name"
^XMB(3.6,39,4,2,0)="2"
^XMB(3.6,39,4,2,1,0)="^^1^1^2870423^^^^"
^XMB(3.6,39,4,2,1,1,0)="SSN"
^XMB(3.6,39,4,3,0)="3"
^XMB(3.6,39,4,3,1,0)="^^1^1^2990724^^"
^XMB(3.6,39,4,3,1,1,0)="Option used to access patient record"
^XMB(3.6,39,4,4,0)="4"
^XMB(3.6,39,4,4,1,0)="^^1^1^2990724^"
^XMB(3.6,39,4,4,1,1,0)="date/time of access"
^XMB(3.6,40,0)="DG CONSISTENCY^INCONSISTENCY EDIT"
^XMB(3.6,40,1,0)="^^11^11^2930520^^^^"
^XMB(3.6,40,1,1,0)="I attempted to update inconsistencies for the below indicated patient but"
^XMB(3.6,40,1,2,0)="was unable to complete the task because I don't hold the 'DG ELIGIBILITY'"
^XMB(3.6,40,1,3,0)="security key and certain data have been verified already.  Please use the"
^XMB(3.6,40,1,4,0)="'EDIT INCONSISTENT DATA' option to clear up these inconsistencies asap."
^XMB(3.6,40,1,5,0)="   "
^XMB(3.6,40,1,6,0)="PATIENT NAME:  |1|                            SSN:  |2|"
^XMB(3.6,40,1,7,0)="   "
^XMB(3.6,40,1,8,0)="NOTIFICATION STATUS:  |5|"
^XMB(3.6,40,1,9,0)="    "
^XMB(3.6,40,1,10,0)="INITIALLY IDENTIFIED BY:  |4|"
^XMB(3.6,40,1,11,0)="INITIALLY IDENTIFIED ON:  |3|"
^XMB(3.6,41,0)="DG UNVERIFIED ELIG^|1| WITHOUT VERIFIED ELIGIBILITY"
^XMB(3.6,41,1,0)="^^2^2^2920128^^"
^XMB(3.6,41,1,1,0)="|2|, |3|, has been |4|"
^XMB(3.6,41,1,2,0)="and his/her eligibility has not been verified."
^XMB(3.6,41,4,0)="^3.64A^4^4"
^XMB(3.6,41,4,1,0)="1"
^XMB(3.6,41,4,1,1,0)="^^1^1^2870513^"
^XMB(3.6,41,4,1,1,1,0)="Action (admit, register, appointment)"
^XMB(3.6,41,4,2,0)="2"
^XMB(3.6,41,4,2,1,0)="^^1^1^2870513^"
^XMB(3.6,41,4,2,1,1,0)="Patient Name"
^XMB(3.6,41,4,3,0)="3"
^XMB(3.6,41,4,3,1,0)="^^1^1^2870513^"
^XMB(3.6,41,4,3,1,1,0)="SSN"
^XMB(3.6,41,4,4,0)="4"
^XMB(3.6,41,4,4,1,0)="^^1^1^2920128^^"
^XMB(3.6,41,4,4,1,1,0)="Action (in different terms)"
^XMB(3.6,42,0)="PRCF FMS ADJUSTMENTS^Bulletin for CCP message"
^XMB(3.6,42,1,0)="^^2^2^2941118^^^^"
^XMB(3.6,42,1,1,0)="The FMS conversion CCP message |1|, has been filed.  To generate the"
^XMB(3.6,42,1,2,0)="reports you should D REPORT^PRCFOOR2."
^XMB(3.6,42,3,0)="^^2^2^2941118^^^^"
^XMB(3.6,42,3,1,0)="This bulletin is used to notify IRM users that the CCP message has"
^XMB(3.6,42,3,2,0)="been filed and the conversion reports are ready to be printed."
^XMB(3.6,42,4,0)="^3.64A^1^1"
^XMB(3.6,42,4,1,0)="1"
^XMB(3.6,42,4,1,1,0)="^^1^1^2941118^^^"
^XMB(3.6,42,4,1,1,1,0)="Internal reference number of CCP message in file 423.6."
^XMB(3.6,43,0)="PRCF_850_BULLETIN^Notification to user of successful completion of OOR message."
^XMB(3.6,43,1,0)="^^6^6^2950309^^^^"
^XMB(3.6,43,1,1,0)=" "
^XMB(3.6,43,1,2,0)="  The message number |1|, for your Outstanding Obligation"
^XMB(3.6,43,1,3,0)="  Report (850), has been processed successfully. Please run"
^XMB(3.6,43,1,4,0)="  option 'Outstanding Obligation Report' (PRCF OUTSTANDING)"
^XMB(3.6,43,1,5,0)="  to print your report. This report is for Fiscal service."
^XMB(3.6,43,1,6,0)=" "
^XMB(3.6,43,3,0)="^^2^2^2950309^^^^"
^XMB(3.6,43,3,1,0)="This bulletin will notify the user of a successful completion of the"
^XMB(3.6,43,3,2,0)="the OOR message."
^XMB(3.6,43,4,0)="^3.64A^1^1"
^XMB(3.6,43,4,1,0)="1"
^XMB(3.6,43,4,1,1,0)="^^1^1^2950309^^^^"
^XMB(3.6,43,4,1,1,1,0)="Message number."
^XMB(3.6,44,0)="PRCF_850_BULLETIN1^Unsuccessful processing of OOR message notice."
^XMB(3.6,44,1,0)="^^3^3^2950113^^^^"
^XMB(3.6,44,1,1,0)=" "
^XMB(3.6,44,1,2,0)="  The message number |1| has failed. Please contact IRM."
^XMB(3.6,44,1,3,0)=" "
^XMB(3.6,44,3,0)="^^2^2^2950113^^^^"
^XMB(3.6,44,3,1,0)="This bulletin will notify the user of a unsuccessful completion of the"
^XMB(3.6,44,3,2,0)="OOR message processing."
^XMB(3.6,44,4,0)="^3.64A^1^1"
^XMB(3.6,44,4,1,0)="1"
^XMB(3.6,44,4,1,1,0)="^^1^1^2950113^^^^"
^XMB(3.6,44,4,1,1,1,0)="Message number"
^XMB(3.6,45,0)="PRCVUP^FMS VENDOR FILE UPDATE"
^XMB(3.6,45,1,0)="^^1^1^2950224^^^"
^XMB(3.6,45,1,1,0)="|1| has been updated by FMS."
^XMB(3.6,45,3,0)="^^3^3^2950224^^^^"
^XMB(3.6,45,3,1,0)="This bulletin will notify the FMS mail group that an entry"
^XMB(3.6,45,3,2,0)="in their VENDOR file has been updated by FMS.  They will see"
^XMB(3.6,45,3,3,0)="both the original data and what has been changed."
^XMB(3.6,45,4,0)="^3.64A^1^1"
^XMB(3.6,45,4,1,0)="1"
^XMB(3.6,45,4,1,1,0)="^^1^1^2950224^^"
^XMB(3.6,45,4,1,1,1,0)="Vendor file name, the .01 field value."
^XMB(3.6,46,0)="PRC_IFCAP_CHANGE^Notification from IFCAP of a CHANGE through an amendment"
^XMB(3.6,46,1,0)="^^2^2^2950325^^^"
^XMB(3.6,46,1,1,0)="Purchase Order |1| for inventory point |2| has been"
^XMB(3.6,46,1,2,0)="changed as follows:"
^XMB(3.6,46,3,0)="^^4^4^2950325^^^"
^XMB(3.6,46,3,1,0)="This bulletin will be used to notify users that there has been"
^XMB(3.6,46,3,2,0)="a change to a P.O. to allow updating the inventory point."
^XMB(3.6,46,3,3,0)="   "
^XMB(3.6,46,3,4,0)="This bulletin is called from 'PRCHAMYD' routine."
^XMB(3.6,46,4,0)="^3.64A^2^2"
^XMB(3.6,46,4,1,0)="1"
^XMB(3.6,46,4,1,1,0)="^^1^1^2950306^^"
^XMB(3.6,46,4,1,1,1,0)="PURCHASE ORDER NUMBER."
^XMB(3.6,46,4,2,0)="2"
^XMB(3.6,46,4,2,1,0)="^^1^1^2950309^^"
^XMB(3.6,46,4,2,1,1,0)="INVENTORY POINT NAME FROM .01 FIELD OF FILE 445."
^XMB(3.6,47,0)="PRCOEDI ACKNOWLEDGE^Receipt of a POA transaction created on |1|"
^XMB(3.6,47,1,0)="^^2^2^2960606^^^"
^XMB(3.6,47,1,1,0)="This is to let you know that a POA transaction has arrived for site"
^XMB(3.6,47,1,2,0)="|2| on |3| at |4|.  This transaction is for |5|. "
^XMB(3.6,47,2,0)="^3.62P^1^1"
^XMB(3.6,47,2,1,0)="36"
^XMB(3.6,47,2,"B",36,1)=""
^XMB(3.6,47,3,0)="^^3^3^2960606^^^"
^XMB(3.6,47,3,1,0)="This is a test bulletin to see:"
^XMB(3.6,47,3,2,0)="a.  if any POAs arrive at this ISC."
^XMB(3.6,47,3,3,0)="b.  if I can create a bulletin properly."
^XMB(3.6,47,4,0)="^3.64A^5^5"
^XMB(3.6,47,4,1,0)="1"
^XMB(3.6,47,4,1,1,0)="^^1^1^2950306^"
^XMB(3.6,47,4,1,1,1,0)="The date and time the POA was created."
^XMB(3.6,47,4,2,0)="2"
^XMB(3.6,47,4,2,1,0)="^^1^1^2950306^"
^XMB(3.6,47,4,2,1,1,0)="The site number."
^XMB(3.6,47,4,3,0)="3"
^XMB(3.6,47,4,3,1,0)="^^1^1^2950306^"
^XMB(3.6,47,4,3,1,1,0)="The date the POA was received."
^XMB(3.6,47,4,4,0)="4"
^XMB(3.6,47,4,4,1,0)="^^1^1^2950306^"
^XMB(3.6,47,4,4,1,1,0)="The time the POA was received."
^XMB(3.6,47,4,5,0)="5"
^XMB(3.6,47,4,5,1,0)="^^1^1^2950307^^"
^XMB(3.6,47,4,5,1,1,0)="The file 442 entry listed for this POA."
^XMB(3.6,48,0)="PRCA NIGHTLY PROCESS ABORT^ABORTION OF ACCOUNTS RECEIVABLE NIGHTLY PROCESS"
^XMB(3.6,48,1,0)="^^8^8^2940114^^^^"
^XMB(3.6,48,1,1,0)="Accounts Receivable Nightly process aborted.  Pointer files corrupted."
^XMB(3.6,48,1,2,0)=" "
^XMB(3.6,48,1,3,0)="NOTICE:   This corruption *MUST* BE CORRECTED ASAP.  Until this is"
^XMB(3.6,48,1,4,0)="corrected, Patient Statements, interest/admin charges, UB forms, etc."
^XMB(3.6,48,1,5,0)="will not take place."
^XMB(3.6,48,1,6,0)=" "
^XMB(3.6,48,1,7,0)="  Following is a summary of the error:"
^XMB(3.6,48,1,8,0)=" "
^XMB(3.6,48,3,0)="^^2^2^2940114^^^^"
^XMB(3.6,48,3,1,0)="This bulletin will be sent if the Accounts Receivable Nightly Process"
^XMB(3.6,48,3,2,0)="aborts because of corruption of the AR pointer files."
^XMB(3.6,49,0)="GMRA MARK CHART^Mark Patient |7|"
^XMB(3.6,49,1,0)="^3.61A^7^7^3040806^^^^"
^XMB(3.6,49,1,1,0)="The |6| for the following patient needs to be updated to"
^XMB(3.6,49,1,2,0)="indicate that the following allergy/adverse reaction has been recorded."
^XMB(3.6,49,1,3,0)="      Patient: |1|"
^XMB(3.6,49,1,4,0)="   Patient ID: |4|"
^XMB(3.6,49,1,5,0)="     Location: |3|"
^XMB(3.6,49,1,6,0)="     Reactant: |2|"
^XMB(3.6,49,1,7,0)="    Mechanism: |5|"
^XMB(3.6,49,3,0)="^3.63^3^3^3040806^^^^"
^XMB(3.6,49,3,1,0)="This bulletin will alert the appropriate users to mark the chart and/or ID"
^XMB(3.6,49,3,2,0)="band for the patient and allergy/adverse reaction specified in the"
^XMB(3.6,49,3,3,0)="bulletin."
^XMB(3.6,49,4,0)="^3.64A^7^7"
^XMB(3.6,49,4,1,0)="1"
^XMB(3.6,49,4,1,1,0)="^^1^1^2901126^"
^XMB(3.6,49,4,1,1,1,0)="This is the patient who needs the chart marked."
^XMB(3.6,49,4,2,0)="2"
^XMB(3.6,49,4,2,1,0)="^^2^2^2930609^^^^"
^XMB(3.6,49,4,2,1,1,0)="This is the allergy/adverse reaction that needs to be added to the chart"
^XMB(3.6,49,4,2,1,2,0)="for this patient."
^XMB(3.6,49,4,3,0)="3"
^XMB(3.6,49,4,3,1,0)="^^1^1^2930114^^^^"
^XMB(3.6,49,4,3,1,1,0)="Location for the patient."
^XMB(3.6,49,4,4,0)="4"
^XMB(3.6,49,4,4,1,0)="^^2^2^2930609^^"
^XMB(3.6,49,4,4,1,1,0)="This is the patient ID.  This will allow the user to select the correct"
^XMB(3.6,49,4,4,1,2,0)="patient on a ward."
^XMB(3.6,49,4,5,0)="5"
^XMB(3.6,49,4,5,1,0)="^3.65^1^1^3040628^^"
^XMB(3.6,49,4,5,1,1,0)="Mechanism of a given patient reaction."
^XMB(3.6,49,4,6,0)="6"
^XMB(3.6,49,4,6,1,0)="^3.65^2^2^3040806^^^^"
^XMB(3.6,49,4,6,1,1,0)="Indicates if the patient's chart, ID band or both need to be"
^XMB(3.6,49,4,6,1,2,0)="updated."
^XMB(3.6,49,4,7,0)="7"
^XMB(3.6,49,4,7,1,0)="^^2^2^3040806^"
^XMB(3.6,49,4,7,1,1,0)="Same as 6 but the wording can be different so a new parameter is"
^XMB(3.6,49,4,7,1,2,0)="needed."
^XMB(3.6,50,0)="GMRA VERIFY ALLERGY^ALLERGY/ADVERSE REACTION TO BE VERIFIED"
^XMB(3.6,50,1,0)="^^7^7^2951128^^^^"
^XMB(3.6,50,1,1,0)="The following allergy/adverse reaction needs to be verified for the "
^XMB(3.6,50,1,2,0)="following patient:"
^XMB(3.6,50,1,3,0)="   Patient: |1|"
^XMB(3.6,50,1,4,0)="       SSN: |4|"
^XMB(3.6,50,1,5,0)="  Reaction: |2|"
^XMB(3.6,50,1,6,0)="   OBS/HIS: |5|"
^XMB(3.6,50,1,7,0)="  Location: |3|"
^XMB(3.6,50,3,0)="^^2^2^2951128^^^^"
^XMB(3.6,50,3,1,0)="This bulletin will indicate that an allergy/adverse reaction needs to be"
^XMB(3.6,50,3,2,0)="verified."
^XMB(3.6,50,4,0)="^3.64A^5^5"
^XMB(3.6,50,4,1,0)="1"
^XMB(3.6,50,4,1,1,0)="^^2^2^2901218^"
^XMB(3.6,50,4,1,1,1,0)="This is the patient for whom the allergy/adverse reaction needs "
^XMB(3.6,50,4,1,1,2,0)="verification."
^XMB(3.6,50,4,2,0)="2"
^XMB(3.6,50,4,2,1,0)="^^1^1^2930609^^^^"
^XMB(3.6,50,4,2,1,1,0)="This is the allergy/adverse reaction that needs to be verified."
^XMB(3.6,50,4,3,0)="3"
^XMB(3.6,50,4,3,1,0)="^^1^1^2930824^^"
^XMB(3.6,50,4,3,1,1,0)="Location of the patient."
^XMB(3.6,50,4,4,0)="4"
^XMB(3.6,50,4,4,1,0)="^^1^1^2951023^^"
^XMB(3.6,50,4,4,1,1,0)="Patient Social Security Number."
^XMB(3.6,50,4,5,0)="5"
^XMB(3.6,50,4,5,1,0)="^^1^1^2951128^"
^XMB(3.6,50,4,5,1,1,0)="Describes the type of the reaction i.e., observed or historical."
^XMB(3.6,51,0)="GMRA P&T COMMITTEE FDA^NOTIFICATION OF OBSERVED DRUG REACTION"
^XMB(3.6,51,1,0)="^^7^7^2930824^^^"
^XMB(3.6,51,1,1,0)="An observed drug reaction has been entered.   Please ensure that an FDA"
^XMB(3.6,51,1,2,0)="report has been filed."
^XMB(3.6,51,1,3,0)=" "
^XMB(3.6,51,1,4,0)="             Patient: |1| |2|"
^XMB(3.6,51,1,5,0)="     Causative Agent: |3|"
^XMB(3.6,51,1,6,0)="         Sign Off By: |4|"
^XMB(3.6,51,1,7,0)="        Sign Off D/T: |5|"
^XMB(3.6,51,3,0)="^^2^2^2930824^^^^"
^XMB(3.6,51,3,1,0)="This bulletin will be issued when an agent is both observed and"
^XMB(3.6,51,3,2,0)="a drug and has been signed off."
^XMB(3.6,51,4,0)="^3.64A^5^5"
^XMB(3.6,51,4,1,0)="1"
^XMB(3.6,51,4,1,1,0)="^^1^1^2921124^"
^XMB(3.6,51,4,1,1,1,0)="Patient name."
^XMB(3.6,51,4,2,0)="2"
^XMB(3.6,51,4,2,1,0)="^^1^1^2921124^"
^XMB(3.6,51,4,2,1,1,0)="Patient's SSN."
^XMB(3.6,51,4,3,0)="3"
^XMB(3.6,51,4,3,1,0)="^^1^1^2930609^^"
^XMB(3.6,51,4,3,1,1,0)="The causative agent."
^XMB(3.6,51,4,4,0)="4"
^XMB(3.6,51,4,4,1,0)="^^1^1^2930824^^"
^XMB(3.6,51,4,4,1,1,0)="Who entered the agent."
^XMB(3.6,51,4,5,0)="5"
^XMB(3.6,51,4,5,1,0)="^^1^1^2930609^^"
^XMB(3.6,51,4,5,1,1,0)="The date and time this event was signed off."
^XMB(3.6,52,0)="GMRA ENTERED IN ERROR^REACTION ENTERED IN ERROR"
^XMB(3.6,52,1,0)="^^10^10^3040917^"
^XMB(3.6,52,1,1,0)="The following reaction has been ENTERED IN ERROR.  Please ensure that the"
^XMB(3.6,52,1,2,0)="patient's Chart/ID Band |8|are updated to reflect this change."
^XMB(3.6,52,1,3,0)="               Patient: |1|"
^XMB(3.6,52,1,4,0)="                   SSN: |2|"
^XMB(3.6,52,1,5,0)="              Reaction: |3|"
^XMB(3.6,52,1,6,0)="              Location: |4|"
^XMB(3.6,52,1,7,0)="            Originator: |5|"
^XMB(3.6,52,1,8,0)="            Originated: |9|"
^XMB(3.6,52,1,9,0)="   Entered in Error by: |6|"
^XMB(3.6,52,1,10,0)="   Entered in Error on: |7|"
^XMB(3.6,52,3,0)="^3.63^5^5^3040917^^^^"
^XMB(3.6,52,3,1,0)="This bulletin is to be sent to both the verifiers and the chart marking"
^XMB(3.6,52,3,2,0)="groups so that the reaction can be corrected on the patient record."
^XMB(3.6,52,3,3,0)=" "
^XMB(3.6,52,3,4,0)="In addition, if the reactant is an observed drug reaction, the"
^XMB(3.6,52,3,5,0)="P&T committee members will also be notified."
^XMB(3.6,52,4,0)="^3.64A^9^9"
^XMB(3.6,52,4,1,0)="1"
^XMB(3.6,52,4,1,1,0)="^^1^1^2951023^^"
^XMB(3.6,52,4,1,1,1,0)="Patient Name."
^XMB(3.6,52,4,2,0)="2"
^XMB(3.6,52,4,2,1,0)="^^1^1^2951023^^"
^XMB(3.6,52,4,2,1,1,0)="Patient Social Security Number."
^XMB(3.6,52,4,3,0)="3"
^XMB(3.6,52,4,3,1,0)="^^1^1^2951023^^"
^XMB(3.6,52,4,3,1,1,0)="Reaction that is entered in error for this patient."
^XMB(3.6,52,4,4,0)="4"
^XMB(3.6,52,4,4,1,0)="^^1^1^2951023^^"
^XMB(3.6,52,4,4,1,1,0)="Patient location."
^XMB(3.6,52,4,5,0)="5"
^XMB(3.6,52,4,5,1,0)="^^1^1^2951023^^"
^XMB(3.6,52,4,5,1,1,0)="Originator of the reaction."
^XMB(3.6,52,4,6,0)="6"
^XMB(3.6,52,4,6,1,0)="^^1^1^2951023^"
^XMB(3.6,52,4,6,1,1,0)="User who entered the reaction in error."
^XMB(3.6,52,4,7,0)="7"
^XMB(3.6,52,4,7,1,0)="^3.65^1^1^3040802^^^^"
^XMB(3.6,52,4,7,1,1,0)="Date that the reaction was entered in error."
^XMB(3.6,52,4,8,0)="8"
^XMB(3.6,52,4,8,1,0)="^3.65^2^2^3040917^^^"
^XMB(3.6,52,4,8,1,1,0)="Items to be checked as a result of the entry being marked as"
^XMB(3.6,52,4,8,1,2,0)="entered in error."
^XMB(3.6,52,4,9,0)="9"
^XMB(3.6,52,4,9,1,0)="^^1^1^3040917^"
^XMB(3.6,52,4,9,1,1,0)="Gives the date the allergy was entered into the system."
^XMB(3.6,53,0)="GMRA SIGNS/SYMPTOMS UPDATE^P&T REVIEW MEDWATCH FORM"
^XMB(3.6,53,1,0)="^^7^7^2951201^^"
^XMB(3.6,53,1,1,0)="The following reaction has had the Signs/Symptoms changed.  Please"
^XMB(3.6,53,1,2,0)="review the MEDWatch form if needed."
^XMB(3.6,53,1,3,0)="             Patient: |1|"
^XMB(3.6,53,1,4,0)="                 SSN: |2|"
^XMB(3.6,53,1,5,0)="            Reaction: |3|"
^XMB(3.6,53,1,6,0)="            Location: |4|"
^XMB(3.6,53,1,7,0)="          Originator: |5|"
^XMB(3.6,53,3,0)="^^2^2^2951201^"
^XMB(3.6,53,3,1,0)="This bulletin is to be set to the P&T committee if a reaction has had"
^XMB(3.6,53,3,2,0)="the Signs/Symptoms changed at anytime."
^XMB(3.6,53,4,0)="^3.64A^5^5"
^XMB(3.6,53,4,1,0)="1"
^XMB(3.6,53,4,1,1,0)="^^1^1^2951201^"
^XMB(3.6,53,4,1,1,1,0)="This field is the patient name."
^XMB(3.6,53,4,2,0)="2"
^XMB(3.6,53,4,2,1,0)="^^1^1^2951201^"
^XMB(3.6,53,4,2,1,1,0)="This field is the patient SSN."
^XMB(3.6,53,4,3,0)="3"
^XMB(3.6,53,4,3,1,0)="^^1^1^2951201^"
^XMB(3.6,53,4,3,1,1,0)="This field is the reaction that was entered for this patient."
^XMB(3.6,53,4,4,0)="4"
^XMB(3.6,53,4,4,1,0)="^^1^1^2951201^"
^XMB(3.6,53,4,4,1,1,0)="This field is the hospital location for this patient."
^XMB(3.6,53,4,5,0)="5"
^XMB(3.6,53,4,5,1,0)="^^1^1^2951201^^"
^XMB(3.6,53,4,5,1,1,0)="This field is the person who originated the reaction."
^XMB(3.6,54,0)="RT RECORD FOUND^Missing |10| has been FOUND"
^XMB(3.6,54,1,0)="^^12^12^2900814^^^^"
^XMB(3.6,54,1,1,0)="The |2|for |1| |9|was found."
^XMB(3.6,54,1,2,0)=" "
^XMB(3.6,54,1,3,0)="The following is information concerning the finding of the record:"
^XMB(3.6,54,1,4,0)="      - WHO entered the record as FOUND   : |6|"
^XMB(3.6,54,1,5,0)="      - BORROWER who had missing record   : |5|"
^XMB(3.6,54,1,6,0)="      - PHONE #/Physical LOCATION         : |7|"
^XMB(3.6,54,1,7,0)="      - WHEN was the record found         : |3|"
^XMB(3.6,54,1,8,0)="      - STATUS of missing record          : |4|"
^XMB(3.6,54,1,9,0)="      - MOVEMENT attempted when found     : |8|"
^XMB(3.6,54,1,10,0)=" "
^XMB(3.6,54,1,11,0)="For more information use the 'Record Inquiry' option of the 'Record"
^XMB(3.6,54,1,12,0)="Information' menu."
^XMB(3.6,54,4,0)="^3.64A^10^10"
^XMB(3.6,54,4,1,0)="1"
^XMB(3.6,54,4,1,1,0)="^^1^1^2860827^"
^XMB(3.6,54,4,1,1,1,0)="Name of patient/entity whose record was found."
^XMB(3.6,54,4,2,0)="2"
^XMB(3.6,54,4,2,1,0)="^^1^1^2860827^"
^XMB(3.6,54,4,2,1,1,0)="Type of record found."
^XMB(3.6,54,4,3,0)="3"
^XMB(3.6,54,4,3,1,0)="^^1^1^2860827^"
^XMB(3.6,54,4,3,1,1,0)="Date and time record was found."
^XMB(3.6,54,4,4,0)="4"
^XMB(3.6,54,4,4,1,0)="^^1^1^2860827^"
^XMB(3.6,54,4,4,1,1,0)="Current status of found record."
^XMB(3.6,54,4,5,0)="5"
^XMB(3.6,54,4,5,1,0)="^^1^1^2860828^^^"
^XMB(3.6,54,4,5,1,1,0)="Where it was found."
^XMB(3.6,54,4,6,0)="6"
^XMB(3.6,54,4,6,1,0)="^^1^1^2860828^^^^"
^XMB(3.6,54,4,6,1,1,0)="Who entered the record as found."
^XMB(3.6,54,4,7,0)="7"
^XMB(3.6,54,4,7,1,0)="^^1^1^2860901^^^"
^XMB(3.6,54,4,7,1,1,0)="Phone # and physical location of where it was found."
^XMB(3.6,54,4,8,0)="8"
^XMB(3.6,54,4,8,1,0)="^^1^1^2860909^^"
^XMB(3.6,54,4,8,1,1,0)="Type of movement attempted when record was found."
^XMB(3.6,54,4,9,0)="9"
^XMB(3.6,54,4,9,1,0)="^^1^1^2860909^"
^XMB(3.6,54,4,9,1,1,0)="SSN of patient."
^XMB(3.6,54,4,10,0)="10"
^XMB(3.6,54,4,10,1,0)="^^1^1^2880607^^^^"
^XMB(3.6,54,4,10,1,1,0)="Record type and volume of missing record."
^XMB(3.6,55,0)="RT ATTEMPT-ON-MISSING-REC^ATTEMPT TO PROCESS A MISSING RECORD"
^XMB(3.6,55,1,0)="^^10^10^2870128^^^^"
^XMB(3.6,55,1,1,0)="An attempt was made to process |1|'s |7|"
^XMB(3.6,55,1,2,0)="                       missing |2|."
^XMB(3.6,55,1,3,0)=" "
^XMB(3.6,55,1,4,0)="The following is information related to the attempt:"
^XMB(3.6,55,1,5,0)="        - WHO made the attempt        : |6|"
^XMB(3.6,55,1,6,0)="        - WHEN was the attempt made   : |3|"
^XMB(3.6,55,1,7,0)="        - What DEVICE was it made on  : |5|"
^XMB(3.6,55,1,8,0)="        - What CPU was it made on     : |8|"
^XMB(3.6,55,1,9,0)="        - Type of MOVEMENT attempted  : |4|"
^XMB(3.6,55,1,10,0)=" "
^XMB(3.6,55,4,0)="^3.64A^8^8"
^XMB(3.6,55,4,1,0)="1"
^XMB(3.6,55,4,1,1,0)="^^1^1^2860901^^"
^XMB(3.6,55,4,1,1,1,0)="The patient's name"
^XMB(3.6,55,4,2,0)="2"
^XMB(3.6,55,4,2,1,0)="^^1^1^2860901^^"
^XMB(3.6,55,4,2,1,1,0)="Type of record"
^XMB(3.6,55,4,3,0)="3"
^XMB(3.6,55,4,3,1,0)="^^1^1^2860901^^"
^XMB(3.6,55,4,3,1,1,0)="When attempt was made."
^XMB(3.6,55,4,4,0)="4"
^XMB(3.6,55,4,4,1,0)="^^1^1^2860901^^"
^XMB(3.6,55,4,4,1,1,0)="Type of movement attempted."
^XMB(3.6,55,4,5,0)="5"
^XMB(3.6,55,4,5,1,0)="^^1^1^2860901^^"
^XMB(3.6,55,4,5,1,1,0)="Device where attempt was made."
^XMB(3.6,55,4,6,0)="6"
^XMB(3.6,55,4,6,1,0)="^^1^1^2860909^^^^"
^XMB(3.6,55,4,6,1,1,0)="User who made the attempt."
^XMB(3.6,55,4,7,0)="7"
^XMB(3.6,55,4,7,1,0)="^^1^1^2860909^^"
^XMB(3.6,55,4,7,1,1,0)="SSN of patient."
^XMB(3.6,55,4,8,0)="8"
^XMB(3.6,55,4,8,1,0)="^^1^1^2870128^"
^XMB(3.6,55,4,8,1,1,0)="CPU and UCI where attempt was made."
^XMB(3.6,56,0)="RT RECORD DELETION^Notification of a Deletion of a Record"
^XMB(3.6,56,1,0)="^^8^8^2900814^^^^"
^XMB(3.6,56,1,1,0)="The following record has been deleted:"
^XMB(3.6,56,1,2,0)="              Name             : |1|"
^XMB(3.6,56,1,3,0)="              Type of Record   : |2|"
^XMB(3.6,56,1,4,0)="              Volume           : |3|"
^XMB(3.6,56,1,5,0)="              Record Number    : |4|"
^XMB(3.6,56,1,6,0)="              User             : |5|"
^XMB(3.6,56,1,7,0)="              Date/Time        : |6|"
^XMB(3.6,56,1,8,0)=" "
^XMB(3.6,56,4,0)="^3.64A^6^6"
^XMB(3.6,56,4,1,0)="1"
^XMB(3.6,56,4,1,1,0)="^^1^1^2870427^"
^XMB(3.6,56,4,1,1,1,0)="Name of entity(ie. patient)."
^XMB(3.6,56,4,2,0)="2"
^XMB(3.6,56,4,2,1,0)="^^1^1^2870427^"
^XMB(3.6,56,4,2,1,1,0)="Type of record deleted."
^XMB(3.6,56,4,3,0)="3"
^XMB(3.6,56,4,3,1,0)="^^1^1^2870427^"
^XMB(3.6,56,4,3,1,1,0)="Volume of record deleted."
^XMB(3.6,56,4,4,0)="4"
^XMB(3.6,56,4,4,1,0)="^^1^1^2870427^^"
^XMB(3.6,56,4,4,1,1,0)="Internal record number."
^XMB(3.6,56,4,5,0)="5"
^XMB(3.6,56,4,5,1,0)="^^1^1^2870427^"
^XMB(3.6,56,4,5,1,1,0)="User deleting record."
^XMB(3.6,56,4,6,0)="6"
^XMB(3.6,56,4,6,1,0)="^^1^1^2900813^^^^"
^XMB(3.6,56,4,6,1,1,0)="Date and time of deletion."
^XMB(3.6,57,0)="RT MISSING RECORD^A |2| has been flagged as MISSING"
^XMB(3.6,57,1,0)="^^10^10^2891012^^^^"
^XMB(3.6,57,1,1,0)="The following record has been flagged as missing:"
^XMB(3.6,57,1,2,0)="              Name               : |1|"
^XMB(3.6,57,1,3,0)="              Type of Record     : |2|"
^XMB(3.6,57,1,4,0)="              Volume             : |3|"
^XMB(3.6,57,1,5,0)="              |5|"
^XMB(3.6,57,1,6,0)=" "
^XMB(3.6,57,1,7,0)="If you find this record please call |4| or respond"
^XMB(3.6,57,1,8,0)="to this message."
^XMB(3.6,57,1,9,0)=" "
^XMB(3.6,57,1,10,0)="Thank you."
^XMB(3.6,57,4,0)="^3.64A^5^5"
^XMB(3.6,57,4,1,0)="1"
^XMB(3.6,57,4,1,1,0)="^^1^1^2880607^^"
^XMB(3.6,57,4,1,1,1,0)="Name of entity(ie. name of patient.)"
^XMB(3.6,57,4,2,0)="2"
^XMB(3.6,57,4,2,1,0)="^^1^1^2880607^^^"
^XMB(3.6,57,4,2,1,1,0)="Record Type."
^XMB(3.6,57,4,3,0)="3"
^XMB(3.6,57,4,3,1,0)="^^1^1^2880607^^"
^XMB(3.6,57,4,3,1,1,0)="Volume Number."
^XMB(3.6,57,4,4,0)="4"
^XMB(3.6,57,4,4,1,0)="^^1^1^2880607^^^^"
^XMB(3.6,57,4,4,1,1,0)="Application (ie. MAS)"
^XMB(3.6,57,4,5,0)="5"
^XMB(3.6,57,4,5,1,0)="^^1^1^2891012^^^^"
^XMB(3.6,57,4,5,1,1,0)="SS# if entity DPT"
^XMB(3.6,58,0)="RT CANCELED REQ^Notification of a cancelation of a request."
^XMB(3.6,58,1,0)="^^9^9^2910411^^^^"
^XMB(3.6,58,1,1,0)="The following request has been canceled:"
^XMB(3.6,58,1,2,0)=" "
^XMB(3.6,58,1,3,0)="              Name            : |1|"
^XMB(3.6,58,1,4,0)="              Type of Record  : |2|"
^XMB(3.6,58,1,5,0)="              Volume          : |3|"
^XMB(3.6,58,1,6,0)="              Record Number   : |4|"
^XMB(3.6,58,1,7,0)="              Requestor       : |5|"
^XMB(3.6,58,1,8,0)="              Request Number  : |7|"
^XMB(3.6,58,1,9,0)="              Canceled by     : |6|"
^XMB(3.6,58,3,0)="^^1^1^2910411^^^^"
^XMB(3.6,58,3,1,0)="This bulletin is to notify the users of a request that is canceled."
^XMB(3.6,58,4,0)="^3.64A^7^7"
^XMB(3.6,58,4,1,0)="1"
^XMB(3.6,58,4,1,1,0)="^^1^1^2900813^"
^XMB(3.6,58,4,1,1,1,0)="Name of person"
^XMB(3.6,58,4,2,0)="2"
^XMB(3.6,58,4,2,1,0)="^^1^1^2900813^"
^XMB(3.6,58,4,2,1,1,0)="type of record Ex. administrative"
^XMB(3.6,58,4,3,0)="3"
^XMB(3.6,58,4,3,1,0)="^^1^1^2900813^"
^XMB(3.6,58,4,3,1,1,0)="Record Volume"
^XMB(3.6,58,4,4,0)="4"
^XMB(3.6,58,4,4,1,0)="^^1^1^2900813^"
^XMB(3.6,58,4,4,1,1,0)="Record number"
^XMB(3.6,58,4,5,0)="5"
^XMB(3.6,58,4,5,1,0)="^^1^1^2900813^"
^XMB(3.6,58,4,5,1,1,0)="Who requested the record."
^XMB(3.6,58,4,6,0)="6"
^XMB(3.6,58,4,6,1,0)="^^1^1^2900814^^"
^XMB(3.6,58,4,6,1,1,0)="Who canceled the record"
^XMB(3.6,58,4,7,0)="7"
^XMB(3.6,58,4,7,1,0)="^^1^1^2910411^^"
^XMB(3.6,58,4,7,1,1,0)="Request number"
^XMB(3.6,59,0)="RT REQUEST/NOTICE TRANSFER^BULLETIN FOR THE REQUEST OR NOTICE OF TRANSFER"
^XMB(3.6,59,1,0)="42^^43^43^2910501^^^^"
^XMB(3.6,59,1,1,0)="==============================================================================="
^XMB(3.6,59,1,2,0)="                 |1|                                                          "
^XMB(3.6,59,1,3,0)="-------------------------------------------------------------------------------"
^XMB(3.6,59,1,4,0)="                     Station Name            Number      Mail Routing Symbol          "
^XMB(3.6,59,1,5,0)="  1a.   |2|"
^XMB(3.6,59,1,6,0)="  1b.   |3|"
^XMB(3.6,59,1,7,0)="  1c.   |4|"
^XMB(3.6,59,1,8,0)="-------------------------------------------------------------------------------"
^XMB(3.6,59,1,9,0)="  4. NAME (Last,First,Middle)                                            "
^XMB(3.6,59,1,10,0)="       |5|                                                                "
^XMB(3.6,59,1,11,0)="-------------------------------------------------------------------------------"
^XMB(3.6,59,1,12,0)="  5. [CN]  |6|                        [SS]  |7|                     "
^XMB(3.6,59,1,13,0)="-------------------------------------------------------------------------------"
^XMB(3.6,59,1,14,0)="  6. [SN]  |8|                                                       "
^XMB(3.6,59,1,15,0)="-------------------------------------------------------------------------------"
^XMB(3.6,59,1,16,0)="  8. TYPE OF TRANSFER      [|10|] Permanent   [|11|] Temporary          "
^XMB(3.6,59,1,17,0)="-------------------------------------------------------------------------------"
^XMB(3.6,59,1,18,0)="  11. TRANSFER CLAIMS FOLDER   [|12|]                                "
^XMB(3.6,59,1,19,0)="-------------------------------------------------------------------------------"
^XMB(3.6,59,1,20,0)="  12a. DATE OF TRANSFER     12b. REC. STAT. NO.     12c. TRF. STA. NO.    "
^XMB(3.6,59,1,21,0)="      |14|         |15|                    |16|"
^XMB(3.6,59,1,22,0)="-------------------------------------------------------------------------------"
^XMB(3.6,59,1,23,0)="  13. OTHER FOLDER TRANSFER"
^XMB(3.6,59,1,24,0)="                               MED      HOSP         X-"
^XMB(3.6,59,1,25,0)="  [|21|] LG  [|22|] PG  [|23|] OPT  [|24|] REC  [|25|] CORRESP  [|26|] RAY"
^XMB(3.6,59,1,26,0)=" "
^XMB(3.6,59,1,27,0)="                        COUNSELING/TRAINING"
^XMB(3.6,59,1,28,0)="  [|27|] R&E  [|28|] INS  [|29|] SUBFOLDER  [|30|] SPECIFY"
^XMB(3.6,59,1,29,0)="   SPECIFY:  |300|"
^XMB(3.6,59,1,30,0)="-------------------------------------------------------------------------------"
^XMB(3.6,59,1,31,0)="  14. REASON FOR TRANSFER OR REMARKS"
^XMB(3.6,59,1,32,0)="       |31|"
^XMB(3.6,59,1,33,0)="       |32|"
^XMB(3.6,59,1,34,0)="-------------------------------------------------------------------------------"
^XMB(3.6,59,1,35,0)="  15. ADJUDICATION ACTION PENDING  [|33|] YES     [|34|] NO"
^XMB(3.6,59,1,36,0)="-------------------------------------------------------------------------------"
^XMB(3.6,59,1,37,0)="  16. FROM (originating office)  |35|"
^XMB(3.6,59,1,38,0)="-------------------------------------------------------------------------------"
^XMB(3.6,59,1,39,0)="  17. DATE   |36|"
^XMB(3.6,59,1,40,0)="-------------------------------------------------------------------------------"
^XMB(3.6,59,1,41,0)="  18. CHECK WHEN COPY 2 IS SENT TO TELECOM    [|37|] UNIT"
^XMB(3.6,59,1,42,0)="-------------------------------------------------------------------------------"
^XMB(3.6,59,1,43,0)="|100|     |100A|"
^XMB(3.6,59,3,0)="^^1^1^2910501^^^^"
^XMB(3.6,59,3,1,0)="LJFGKL"
^XMB(3.6,60,0)="PSX CMOP^CMOP BULLETIN"
^XMB(3.6,60,1,0)="^^1^1^2970303^^^^"
^XMB(3.6,60,1,1,0)="----CMOP message----"
^XMB(3.6,60,3,0)="^^2^2^2970303^"
^XMB(3.6,60,3,1,0)="This bulletin is required by the Consolidated Mail Outpatient Pharmacy"
^XMB(3.6,60,3,2,0)="system."
^XMB(3.6,61,0)="DVB HINQ RESPONSE^Processed HINQs"
^XMB(3.6,61,1,0)="^^9^9^2920128^^^^"
^XMB(3.6,61,1,1,0)=" Processing of the HINQ Suspense file has finished."
^XMB(3.6,61,1,2,0)=" A total of |1| HINQ request(s) have been completed."
^XMB(3.6,61,1,3,0)=" "
^XMB(3.6,61,1,4,0)=" |4| returned a successful response."
^XMB(3.6,61,1,5,0)=" "
^XMB(3.6,61,1,6,0)=" |3| returned an abbreviated response  |5|"
^XMB(3.6,61,1,7,0)=" "
^XMB(3.6,61,1,8,0)=" |2| returned an error response."
^XMB(3.6,61,1,9,0)=" "
^XMB(3.6,61,2,0)="^3.62P^1^1"
^XMB(3.6,61,2,1,0)="18"
^XMB(3.6,61,2,"B",18,1)=""
^XMB(3.6,61,3,0)="^^1^1^2920128^^^^"
^XMB(3.6,61,3,1,0)="This bulletin is used to inform the users of returned HINQs."
^XMB(3.6,61,4,0)="^3.64A^4^4"
^XMB(3.6,61,4,1,0)="1"
^XMB(3.6,61,4,1,1,0)="^^1^1^2891012^^"
^XMB(3.6,61,4,1,1,1,0)="This parameter contains the total number of HINQs processed."
^XMB(3.6,61,4,2,0)="2"
^XMB(3.6,61,4,2,1,0)="^^1^1^2891101^^^^"
^XMB(3.6,61,4,2,1,1,0)="Is the number of errored HINQs."
^XMB(3.6,61,4,3,0)="3"
^XMB(3.6,61,4,3,1,0)="^^1^1^2891101^"
^XMB(3.6,61,4,3,1,1,0)="abbreviated responses"
^XMB(3.6,61,4,4,0)="4"
^XMB(3.6,61,4,4,1,0)="^^1^1^2910312^^^^"
^XMB(3.6,61,4,4,1,1,0)="new (successful responses)"
^XMB(3.6,62,0)="DVBA C 2507 EXAM READY^C & P Exam Ready for Release"
^XMB(3.6,62,1,0)="^^10^10^2940810^^^^"
^XMB(3.6,62,1,1,0)=" "
^XMB(3.6,62,1,2,0)=" "
^XMB(3.6,62,1,3,0)="A 2507 request for:"
^XMB(3.6,62,1,4,0)=" "
^XMB(3.6,62,1,5,0)="               Name: |1|"
^XMB(3.6,62,1,6,0)="                SSN: |2|"
^XMB(3.6,62,1,7,0)="       Request Date: |3|"
^XMB(3.6,62,1,8,0)=" "
^XMB(3.6,62,1,9,0)="has been completely transcribed and may now be"
^XMB(3.6,62,1,10,0)="reviewed for release to the regional office."
^XMB(3.6,62,3,0)="^^1^1^2940810^^^^"
^XMB(3.6,62,3,1,0)="Alerts selected personnel that a 2507 exam is ready for release."
^XMB(3.6,62,4,0)="^3.64A^3^3"
^XMB(3.6,62,4,1,0)="1"
^XMB(3.6,62,4,1,1,0)="^^1^1^2900528^"
^XMB(3.6,62,4,1,1,1,0)="patient name"
^XMB(3.6,62,4,2,0)="2"
^XMB(3.6,62,4,2,1,0)="^^1^1^2900528^"
^XMB(3.6,62,4,2,1,1,0)="social security number"
^XMB(3.6,62,4,3,0)="3"
^XMB(3.6,62,4,3,1,0)="^^1^1^2921125^^"
^XMB(3.6,62,4,3,1,1,0)="date of request for 2507"
^XMB(3.6,63,0)="DVBA C 2507 EXAM REOPENED^2507 Exam Reopened |7|"
^XMB(3.6,63,1,0)="^^11^11^2940928^^^^"
^XMB(3.6,63,1,1,0)=" "
^XMB(3.6,63,1,2,0)="One or more C&P exams for:"
^XMB(3.6,63,1,3,0)=" "
^XMB(3.6,63,1,4,0)="                Name: |1|"
^XMB(3.6,63,1,5,0)="                 SSN: |2|"
^XMB(3.6,63,1,6,0)="        Request date: |3|"
^XMB(3.6,63,1,7,0)="Request Release Date: |5|"
^XMB(3.6,63,1,8,0)=" "
^XMB(3.6,63,1,9,0)="has been reopened by |4|."
^XMB(3.6,63,1,10,0)=" "
^XMB(3.6,63,1,11,0)="|6|"
^XMB(3.6,63,3,0)="^^1^1^2940928^^^^"
^XMB(3.6,63,3,1,0)="Alerts supervisors to a 2507 exam being reopened."
^XMB(3.6,63,4,0)="^3.64A^7^7"
^XMB(3.6,63,4,1,0)="1"
^XMB(3.6,63,4,1,1,0)="^^1^1^2940912^^"
^XMB(3.6,63,4,1,1,1,0)="patient name"
^XMB(3.6,63,4,2,0)="2"
^XMB(3.6,63,4,2,1,0)="^^1^1^2900528^"
^XMB(3.6,63,4,2,1,1,0)="social security number"
^XMB(3.6,63,4,3,0)="3"
^XMB(3.6,63,4,3,1,0)="^^1^1^2940912^^^"
^XMB(3.6,63,4,3,1,1,0)="date of request for 2507"
^XMB(3.6,63,4,4,0)="4"
^XMB(3.6,63,4,4,1,0)="^^1^1^2940919^^^^"
^XMB(3.6,63,4,4,1,1,0)="DUZ of user who reopened the exams."
^XMB(3.6,63,4,5,0)="5"
^XMB(3.6,63,4,5,1,0)="^^1^1^2940919^"
^XMB(3.6,63,4,5,1,1,0)="Date the request was released back to the Regional Office."
^XMB(3.6,63,4,6,0)="6"
^XMB(3.6,63,4,6,1,0)="^^7^7^2940920^"
^XMB(3.6,63,4,6,1,1,0)="One of two messages will be displayed.  A message will be displayed when"
^XMB(3.6,63,4,6,1,2,0)="an exam is re-opened on a request that has not been released back to the"
^XMB(3.6,63,4,6,1,3,0)="Regional Office.  The message lets the receipants know that this re-open"
^XMB(3.6,63,4,6,1,4,0)="does not affect the AMIE AMIS 290 report.  A message will be displayed"
^XMB(3.6,63,4,6,1,5,0)="when an exam is re-opened on a request that has been released back to the"
^XMB(3.6,63,4,6,1,6,0)="Regional Office.  The message lets the receipants know that this re-open"
^XMB(3.6,63,4,6,1,7,0)="DOES affect the AMIE AMIS 290 report."
^XMB(3.6,63,4,7,0)="7"
^XMB(3.6,63,4,7,1,0)="^^2^2^2940920^^"
^XMB(3.6,63,4,7,1,1,0)="When the AMIE AMIS 290 is affected, this will be noted in the subject line"
^XMB(3.6,63,4,7,1,2,0)="of the bulletin.  Otherwise nothing will be added to the subject line."
^XMB(3.6,64,0)="DVBA C NEW C&P VETERAN^New C&P Veteran Added to Patient File"
^XMB(3.6,64,1,0)="^^9^9^2940831^^^^"
^XMB(3.6,64,1,1,0)=" "
^XMB(3.6,64,1,2,0)="The following veteran has been added to the Patient file"
^XMB(3.6,64,1,3,0)="for Compensation and Pension exam purposes:"
^XMB(3.6,64,1,4,0)=" "
^XMB(3.6,64,1,5,0)=" Name: |1|"
^XMB(3.6,64,1,6,0)="  SSN: |2|"
^XMB(3.6,64,1,7,0)=" "
^XMB(3.6,64,1,8,0)="Added by: |3| on |4|."
^XMB(3.6,64,1,9,0)=" "
^XMB(3.6,64,3,0)="^^1^1^2940831^^^^"
^XMB(3.6,64,3,1,0)="Alerts MAS of new C&P veteran when added to Patient file (#2)."
^XMB(3.6,64,4,0)="^3.64A^4^4"
^XMB(3.6,64,4,1,0)="1"
^XMB(3.6,64,4,1,1,0)="^^1^1^2930323^^^"
^XMB(3.6,64,4,1,1,1,0)="Veteran name."
^XMB(3.6,64,4,2,0)="2"
^XMB(3.6,64,4,2,1,0)="^^1^1^2930323^^^"
^XMB(3.6,64,4,2,1,1,0)="Social security number."
^XMB(3.6,64,4,3,0)="3"
^XMB(3.6,64,4,3,1,0)="^^1^1^2930323^^^"
^XMB(3.6,64,4,3,1,1,0)="Person who added veteran (name)."
^XMB(3.6,64,4,4,0)="4"
^XMB(3.6,64,4,4,1,0)="^^1^1^2930323^^"
^XMB(3.6,64,4,4,1,1,0)="Date new veteran was added."
^XMB(3.6,65,0)="DVBA C EDIT ADDRESS^Editing of patient address"
^XMB(3.6,65,1,0)="^^5^5^2940816^^^^"
^XMB(3.6,65,1,1,0)="The address information for |1|"
^XMB(3.6,65,1,2,0)="was changed on |2| by |3|."
^XMB(3.6,65,1,3,0)=" "
^XMB(3.6,65,1,4,0)="        Old Permanent Address               Changed Permanent Address"
^XMB(3.6,65,1,5,0)="        ---------------------               -------------------------"
^XMB(3.6,65,3,0)="^^2^2^2940816^^^^"
^XMB(3.6,65,3,1,0)="This bulletin will contain which patient address got changed by whom and"
^XMB(3.6,65,3,2,0)="when."
^XMB(3.6,65,4,0)="^3.64A^3^3"
^XMB(3.6,65,4,1,0)="1"
^XMB(3.6,65,4,1,1,0)="^^1^1^2930310^"
^XMB(3.6,65,4,1,1,1,0)="this is the patient's name"
^XMB(3.6,65,4,2,0)="2"
^XMB(3.6,65,4,2,1,0)="^^1^1^2930310^^"
^XMB(3.6,65,4,2,1,1,0)="When the address was edited."
^XMB(3.6,65,4,3,0)="3"
^XMB(3.6,65,4,3,1,0)="^^1^1^2930323^^^"
^XMB(3.6,65,4,3,1,1,0)="Who did the editing of the address"
^XMB(3.6,66,0)="YS PSYCHTEST^Surrogate Entry of Tests and Interviews"
^XMB(3.6,66,1,0)="6^^6^6^2941026^^^^"
^XMB(3.6,66,1,1,0)="Tests and/or interviews were undertaken by |1|."
^XMB(3.6,66,1,2,0)="They were initiated by |2| on |3|,"
^XMB(3.6,66,1,3,0)="with |4| listed as requesting the tests."
^XMB(3.6,66,1,4,0)=""
^XMB(3.6,66,1,5,0)="Test(s) and/or Interview(s):  |5|"
^XMB(3.6,66,1,6,0)="   |6| |7| |8| |9| |10| |11| |12| |13| |14| |15|"
^XMB(3.6,66,3,0)="^^2^2^2941026^^^^"
^XMB(3.6,66,3,1,0)="Notifies mental health professionals when someone requests"
^XMB(3.6,66,3,2,0)="tests or interviews in their names."
^XMB(3.6,66,4,0)="^3.64A^14^15"
^XMB(3.6,66,4,1,0)="1"
^XMB(3.6,66,4,1,1,0)="^^1^1^2850913^^"
^XMB(3.6,66,4,1,1,1,0)="Name of individual initiating tests/interviews"
^XMB(3.6,66,4,2,0)="2"
^XMB(3.6,66,4,2,1,0)="^^1^1^2841219^"
^XMB(3.6,66,4,2,1,1,0)="Date tests/interviews initiated"
^XMB(3.6,66,4,3,0)="3"
^XMB(3.6,66,4,3,1,0)="^^1^1^2841219^"
^XMB(3.6,66,4,3,1,1,0)="Test/interview name"
^XMB(3.6,66,4,4,0)="4"
^XMB(3.6,66,4,4,1,0)="^^1^1^2841219^"
^XMB(3.6,66,4,4,1,1,0)="Requestor name"
^XMB(3.6,66,4,5,0)="5"
^XMB(3.6,66,4,5,1,0)="^^1^1^2850913^^"
^XMB(3.6,66,4,5,1,1,0)="""*"" indicates incomplete test/interview"
^XMB(3.6,66,4,6,0)="6"
^XMB(3.6,66,4,6,1,0)="^^1^1^2841219^"
^XMB(3.6,66,4,6,1,1,0)="Test/interview name"
^XMB(3.6,66,4,7,0)="7"
^XMB(3.6,66,4,7,1,0)="^^1^1^2841219^"
^XMB(3.6,66,4,7,1,1,0)="Test/interview name"
^XMB(3.6,66,4,8,0)="8"
^XMB(3.6,66,4,8,1,0)="^^1^1^2841219^"
^XMB(3.6,66,4,8,1,1,0)="Test/interview name"
^XMB(3.6,66,4,9,0)="9"
^XMB(3.6,66,4,9,1,0)="^^1^1^2841219^"
^XMB(3.6,66,4,9,1,1,0)="Test/interview name"
^XMB(3.6,66,4,10,0)="10"
^XMB(3.6,66,4,10,1,0)="^^1^1^2841219^"
^XMB(3.6,66,4,10,1,1,0)="Test/interview name"
^XMB(3.6,66,4,11,0)="11"
^XMB(3.6,66,4,11,1,0)="^^1^1^2841219^"
^XMB(3.6,66,4,11,1,1,0)="Test/interview name"
^XMB(3.6,66,4,12,0)="12"
^XMB(3.6,66,4,12,1,0)="^^1^1^2841219^"
^XMB(3.6,66,4,12,1,1,0)="Test/interview name"
^XMB(3.6,66,4,13,0)="13"
^XMB(3.6,66,4,13,1,0)="^^1^1^2841219^"
^XMB(3.6,66,4,13,1,1,0)="Test/interview name"
^XMB(3.6,66,4,14,0)="14"
^XMB(3.6,66,4,14,1,0)="^^1^1^2941026^^^^"
^XMB(3.6,66,4,14,1,1,0)="Test/interview name"
^XMB(3.6,66,4,15,0)="15"
^XMB(3.6,66,4,15,1,0)="^^1^1^2870306^^^^"
^XMB(3.6,66,4,15,1,1,0)="Test/interview name"
^XMB(3.6,67,0)="PRSA LV TK^Notify TK of Past Leave Request"
^XMB(3.6,67,1,0)="^^2^2^2950504^^^^"
^XMB(3.6,67,1,1,0)="|1| has requested |2| beginning |3|."
^XMB(3.6,67,1,2,0)="That date has already been posted."
^XMB(3.6,67,3,0)="^^4^4^2950504^^^^"
^XMB(3.6,67,3,1,0)="This bulletin will notify the timekeeper that a leave request"
^XMB(3.6,67,3,2,0)="has been entered for a day which has already been posted."
^XMB(3.6,67,3,3,0)="The bulletin is not generated if the same type of leave was"
^XMB(3.6,67,3,4,0)="posted for the date."
^XMB(3.6,67,4,0)="^3.64A^3^3"
^XMB(3.6,67,4,1,0)="1"
^XMB(3.6,67,4,1,1,0)="^^1^1^2950504^^"
^XMB(3.6,67,4,1,1,1,0)="Name of employee."
^XMB(3.6,67,4,2,0)="2"
^XMB(3.6,67,4,2,1,0)="^^1^1^2950419^"
^XMB(3.6,67,4,2,1,1,0)="Type of requested leave."
^XMB(3.6,67,4,3,0)="3"
^XMB(3.6,67,4,3,1,0)="^^1^1^2950504^^"
^XMB(3.6,67,4,3,1,1,0)="Start date of requested leave."
^XMB(3.6,68,0)="PRS UPDATE CCORG^Needed update PAID code: Cost Center/Organization"
^XMB(3.6,68,1,0)="^^14^14^2960418^^^^"
^XMB(3.6,68,1,1,0)="An incomplete record was found while PAID user, |2| was running the"
^XMB(3.6,68,1,2,0)="|3| report for employee, |4|.  "
^XMB(3.6,68,1,3,0)="The missing data is a description in the PAID code file for "
^XMB(3.6,68,1,4,0)="the cost center/organization code |1|.  This needs to be updated.  "
^XMB(3.6,68,1,5,0)="Correct the problem through the Update PAID Codes option. First enter "
^XMB(3.6,68,1,6,0)="the code |1| at the COST CENTER/ORGANIZATION CODE prompt.  Then "
^XMB(3.6,68,1,7,0)="update the description field.  An example follows."
^XMB(3.6,68,1,8,0)=""
^XMB(3.6,68,1,9,0)="     Select OPTION NAME: PRSD UPDATE PAID CODES"
^XMB(3.6,68,1,10,0)="     Select FILE: COST CENTER/ORGANIZATION"
^XMB(3.6,68,1,11,0)="     Select COST CENTER/ORGANIZATION CODE: |1|"
^XMB(3.6,68,1,12,0)="     CODE:  |1|"
^XMB(3.6,68,1,13,0)="     DESCRIPTION: <enter description here>"
^XMB(3.6,68,1,14,0)=""
^XMB(3.6,68,3,0)="^^8^8^2960418^^^^"
^XMB(3.6,68,3,1,0)="This bulletin is sent when either of the two options, Employee Leave Used and"
^XMB(3.6,68,3,2,0)="Employee Leave Requested are run from the menu path, T&A Supervisor Menu,"
^XMB(3.6,68,3,3,0)="Employee Reports, Employee Leave Reports.  The condition that the code for an"
^XMB(3.6,68,3,4,0)="employees Cost Center/Organization code (field #458 in file 450) does not"
^XMB(3.6,68,3,5,0)="resolve with a human readable description in file 454.1 will cause this "
^XMB(3.6,68,3,6,0)="bulletin to be sent."
^XMB(3.6,68,3,7,0)=""
^XMB(3.6,68,3,8,0)=""
^XMB(3.6,68,4,0)="^3.64A^4^4"
^XMB(3.6,68,4,1,0)="1"
^XMB(3.6,68,4,1,1,0)="^^2^2^2960418^^"
^XMB(3.6,68,4,1,1,1,0)="This is the employees cost center organization code.  It's located in file"
^XMB(3.6,68,4,1,1,2,0)="450 (PAID EMPLOYEE FILE) field #458."
^XMB(3.6,68,4,2,0)="2"
^XMB(3.6,68,4,2,1,0)="^^1^1^2960418^^"
^XMB(3.6,68,4,2,1,1,0)="This is the person who is using the option to print employee leave reports."
^XMB(3.6,68,4,3,0)="3"
^XMB(3.6,68,4,3,1,0)="^^2^2^2960418^"
^XMB(3.6,68,4,3,1,1,0)="This is the report that was being run, either Employee Leave Used "
^XMB(3.6,68,4,3,1,2,0)="or Employee Leave Pattern."
^XMB(3.6,68,4,4,0)="4"
^XMB(3.6,68,4,4,1,0)="^^2^2^2960418^^"
^XMB(3.6,68,4,4,1,1,0)="This is the employee who is being reported on.  They have a Cost "
^XMB(3.6,68,4,4,1,2,0)="Center/Organization code that doesn't have a description in file 454.1."
^XMB(3.6,69,0)="PXCA PCE ERROR BULLETIN^Error in PCE's processing of data from Data Capture"
^XMB(3.6,69,1,0)="^^4^4^2960514^^^^"
^XMB(3.6,69,1,1,0)="There were error(s) in processing the encounter for |1|"
^XMB(3.6,69,1,2,0)="at Appointment Date/Time of |2|."
^XMB(3.6,69,1,3,0)=" "
^XMB(3.6,69,1,4,0)="Error number |3| was recorded at |4|."
^XMB(3.6,69,3,0)="^^2^2^2960514^^^^"
^XMB(3.6,69,3,1,0)="This bulletin is sent when PCE has error(s) in processing data from ATOY's"
^XMB(3.6,69,3,2,0)="Generic Interface."
^XMB(3.6,69,4,0)="^3.64A^4^4"
^XMB(3.6,69,4,1,0)="1"
^XMB(3.6,69,4,1,1,0)="^^1^1^2960514^"
^XMB(3.6,69,4,1,1,1,0)="Patient Name"
^XMB(3.6,69,4,2,0)="2"
^XMB(3.6,69,4,2,1,0)="^^1^1^2960514^^"
^XMB(3.6,69,4,2,1,1,0)="Appointment Date/Time"
^XMB(3.6,69,4,3,0)="3"
^XMB(3.6,69,4,3,1,0)="^^1^1^2940517^"
^XMB(3.6,69,4,3,1,1,0)="Error Number"
^XMB(3.6,69,4,4,0)="4"
^XMB(3.6,69,4,4,1,0)="^^1^1^2960514^^^^"
^XMB(3.6,69,4,4,1,1,0)="Error Date/Time"
^XMB(3.6,70,0)="FBAA PURGE^Fee Payment Data Purged"
^XMB(3.6,70,1,0)="^^7^7^2880714^^^^"
^XMB(3.6,70,1,1,0)="|1| has run the Fee Purge data routine. The data was purged on |2|."
^XMB(3.6,70,1,2,0)="All payment data which was Finalized prior to |3| was purged. A report"
^XMB(3.6,70,1,3,0)="containing all purged data (by veteran name) was created."
^XMB(3.6,70,1,4,0)="                                                                   "
^XMB(3.6,70,1,5,0)="|4| Outpatient Medical payments were purged.                                          "
^XMB(3.6,70,1,6,0)="|5| Pharmacy payments were purged.                                                                      "
^XMB(3.6,70,1,7,0)="|6| Travel payments were purged.                                                                             "
^XMB(3.6,70,3,0)="^^1^1^2880714^^^^"
^XMB(3.6,70,3,1,0)="Informs Fee Supervisor(s) when IRM staff executes the Fee Purge routine."
^XMB(3.6,70,4,0)="^3.64A^6^6"
^XMB(3.6,70,4,1,0)="1"
^XMB(3.6,70,4,1,1,0)="^^1^1^2880322^"
^XMB(3.6,70,4,1,1,1,0)="User name who executed the Purge routine."
^XMB(3.6,70,4,2,0)="2"
^XMB(3.6,70,4,2,1,0)="^^1^1^2880322^"
^XMB(3.6,70,4,2,1,1,0)="The date the Purge routine was run."
^XMB(3.6,70,4,3,0)="3"
^XMB(3.6,70,4,3,1,0)="^^2^2^2880322^"
^XMB(3.6,70,4,3,1,1,0)="The cut-off date for the purge. Meaning data prior to this date was "
^XMB(3.6,70,4,3,1,2,0)="purged."
^XMB(3.6,70,4,4,0)="4"
^XMB(3.6,70,4,4,1,0)="^^1^1^2880322^"
^XMB(3.6,70,4,4,1,1,0)="Total number of Outpatient Medical payments purged."
^XMB(3.6,70,4,5,0)="5"
^XMB(3.6,70,4,5,1,0)="^^1^1^2880322^"
^XMB(3.6,70,4,5,1,1,0)="Total number of Pharmacy payments purged."
^XMB(3.6,70,4,6,0)="6"
^XMB(3.6,70,4,6,1,0)="^^1^1^2880714^^^^"
^XMB(3.6,70,4,6,1,1,0)="Total number of travel payments purged."
^XMB(3.6,71,0)="FBAA BATCH PURGE^Fee Batch Numbers Purged"
^XMB(3.6,71,1,0)="^^1^1^2920709^^^^"
^XMB(3.6,71,1,1,0)="|1| has run the Fee Batch Number purge routine.  The batches were purged on |2|.  All batches that were finalized prior to |3| were purged.  The total number of batches purged was |4|."
^XMB(3.6,71,3,0)="^^2^2^2920709^^^^"
^XMB(3.6,71,3,1,0)="Informs Fee Supervisor(s) when the IRM staff executes the Fee Batch"
^XMB(3.6,71,3,2,0)="Number purge routine."
^XMB(3.6,71,4,0)="^3.64A^4^4"
^XMB(3.6,71,4,1,0)="1"
^XMB(3.6,71,4,1,1,0)="^^1^1^2900625^^^"
^XMB(3.6,71,4,1,1,1,0)="User name who executed the purge routine."
^XMB(3.6,71,4,2,0)="2"
^XMB(3.6,71,4,2,1,0)="^^1^1^2900625^^"
^XMB(3.6,71,4,2,1,1,0)="The date the purge routine was run."
^XMB(3.6,71,4,3,0)="3"
^XMB(3.6,71,4,3,1,0)="^^2^2^2900625^^"
^XMB(3.6,71,4,3,1,1,0)="The cut-off date for the purge.  Meaning all batches"
^XMB(3.6,71,4,3,1,2,0)="finalized prior to this date were purged."
^XMB(3.6,71,4,4,0)="4"
^XMB(3.6,71,4,4,1,0)="^^2^2^2920709^^^^"
^XMB(3.6,71,4,4,1,1,0)="Total number of batch numbers that were purged during this purge"
^XMB(3.6,71,4,4,1,2,0)="session."
^XMB(3.6,72,0)="FB INSURANCE CHANGE^FEE NOTIFICATION OF INSURANCE CHANGE"
^XMB(3.6,72,1,0)="^^5^5^2941110^^^^"
^XMB(3.6,72,1,1,0)="There appears to be a change of insurance information "
^XMB(3.6,72,1,2,0)="for |1| with PT.ID of |2|."
^XMB(3.6,72,1,3,0)="The explanation of change is as follows:"
^XMB(3.6,72,1,4,0)=" "
^XMB(3.6,72,1,5,0)="   |3|"
^XMB(3.6,72,3,0)="^^4^4^2941110^^^^"
^XMB(3.6,72,3,1,0)="This bulletin will be used to notify MCCR that there is a possible"
^XMB(3.6,72,3,2,0)="discrepancy found on a patient's insurance information.  Fee Basis"
^XMB(3.6,72,3,3,0)="is not allowed to directly change a patient's insurance information"
^XMB(3.6,72,3,4,0)="that is the reason for this bulletin."
^XMB(3.6,72,4,0)="^3.64A^3^3"
^XMB(3.6,72,4,1,0)="1"
^XMB(3.6,72,4,1,1,0)="^^1^1^2930806^^"
^XMB(3.6,72,4,1,1,1,0)="The name of the patient with a possible insurance discrepancy."
^XMB(3.6,72,4,2,0)="2"
^XMB(3.6,72,4,2,1,0)="^^1^1^2940304^^^"
^XMB(3.6,72,4,2,1,1,0)="The patient identifier (SSN)."
^XMB(3.6,72,4,3,0)="3"
^XMB(3.6,72,4,3,1,0)="^^2^2^2941110^^^^"
^XMB(3.6,72,4,3,1,1,0)="A free text explanation of the discrepancy found on the"
^XMB(3.6,72,4,3,1,2,0)="insurance information in the patient file."
^XMB(3.6,73,0)="FBAA PURGE TRANSMITTED MRA'S^PURGE OF TRANSMITTED MRA'S"
^XMB(3.6,73,1,0)="^^4^4^2930402^^"
^XMB(3.6,73,1,1,0)="The purge of transmitted MRA's has completed."
^XMB(3.6,73,1,2,0)=" "
^XMB(3.6,73,1,3,0)="Total Veteran MRA's deleted: |1|."
^XMB(3.6,73,1,4,0)="Total Vendor MRA's deleted: |2|."
^XMB(3.6,73,3,0)="2"
^XMB(3.6,73,3,1,0)="Bulletin is triggered upon completion of the 'Purge Transmitted MRA's'"
^XMB(3.6,73,3,2,0)="option."
^XMB(3.6,73,4,0)="^3.64A^2^2"
^XMB(3.6,73,4,1,0)="1"
^XMB(3.6,73,4,1,1,0)="^^1^1^2930311^"
^XMB(3.6,73,4,1,1,1,0)="A numeric count of the total Veteran MRA's deleted."
^XMB(3.6,73,4,2,0)="2"
^XMB(3.6,73,4,2,1,0)="^^1^1^2930311^"
^XMB(3.6,73,4,2,1,1,0)="A numeric count of the total Vendor MRA's deleted."
^XMB(3.6,74,0)="RAD/NUC MED EXAM DELETED^Imaging Exam Deleted (|2|)^0"
^XMB(3.6,74,1,0)="^^8^8^2950803^^^^"
^XMB(3.6,74,1,1,0)="The following exam has been deleted:"
^XMB(3.6,74,1,2,0)="          1) Patient        : |1|"
^XMB(3.6,74,1,3,0)="          2) SSN            : |2|"
^XMB(3.6,74,1,4,0)="          3) Case Number    : |3|"
^XMB(3.6,74,1,5,0)="          4) Exam Date      : |4|"
^XMB(3.6,74,1,6,0)="          5) Requested Date : |5|"
^XMB(3.6,74,1,7,0)="          6) Imaging Loc    : |6|"
^XMB(3.6,74,1,8,0)="          7) Procedure      : |7|"
^XMB(3.6,74,3,0)="^^2^2^2970225^^^"
^XMB(3.6,74,3,1,0)="This bulletin is used to notify the radiology supervisor that a radiology"
^XMB(3.6,74,3,2,0)="exam has been deleted and the computer user who did the deletion."
^XMB(3.6,74,4,0)="^3.64A^7^7"
^XMB(3.6,74,4,1,0)="1"
^XMB(3.6,74,4,1,1,0)="^^1^1^2950506^^"
^XMB(3.6,74,4,1,1,1,0)="Patient whose exam was deleted."
^XMB(3.6,74,4,2,0)="2"
^XMB(3.6,74,4,2,1,0)="^^1^1^2940203^"
^XMB(3.6,74,4,2,1,1,0)="Social Security Number of the patient whose exam is being deleted."
^XMB(3.6,74,4,3,0)="3"
^XMB(3.6,74,4,3,1,0)="^^1^1^2950803^^"
^XMB(3.6,74,4,3,1,1,0)="Case Number of the deleted exam."
^XMB(3.6,74,4,4,0)="4"
^XMB(3.6,74,4,4,1,0)="^^1^1^2940203^"
^XMB(3.6,74,4,4,1,1,0)="Exam date of deleted exam."
^XMB(3.6,74,4,5,0)="5"
^XMB(3.6,74,4,5,1,0)="^^1^1^2940203^"
^XMB(3.6,74,4,5,1,1,0)="Requested date of the deleted exam."
^XMB(3.6,74,4,6,0)="6"
^XMB(3.6,74,4,6,1,0)="^^1^1^2940204^"
^XMB(3.6,74,4,6,1,1,0)="Radiology location where the exam was registered."
^XMB(3.6,74,4,7,0)="7"
^XMB(3.6,74,4,7,1,0)="^^1^1^2950215^^^"
^XMB(3.6,74,4,7,1,1,0)="AMIS procedure of deleted exam."
^XMB(3.6,75,0)="RAD/NUC MED REPORT DELETION^Imaging Report Deleted (|2|)"
^XMB(3.6,75,1,0)="^^8^8^2950321^^^"
^XMB(3.6,75,1,1,0)="The report for the exam with the following identification was deleted:"
^XMB(3.6,75,1,2,0)="             1) Patient         : |1|"
^XMB(3.6,75,1,3,0)="             2) Patient SSN     : |2|"
^XMB(3.6,75,1,4,0)="             3) Case Number     : |3|"
^XMB(3.6,75,1,5,0)="             4) Exam Date/Time  : |4|"
^XMB(3.6,75,1,6,0)="             5) Desired Date    : |5|"
^XMB(3.6,75,1,7,0)="             6) Report Status   : |6|"
^XMB(3.6,75,1,8,0)="             7) Imaging Loc     : |7|"
^XMB(3.6,75,3,0)="^^2^2^2970225^^^^"
^XMB(3.6,75,3,1,0)="This bulletin is used to notify a mail group that a radiology report"
^XMB(3.6,75,3,2,0)="has been deleted."
^XMB(3.6,75,4,0)="^3.64A^7^7"
^XMB(3.6,75,4,1,0)="1"
^XMB(3.6,75,4,1,1,0)="^^1^1^2940204^"
^XMB(3.6,75,4,1,1,1,0)="Patient whose report was deleted."
^XMB(3.6,75,4,2,0)="2"
^XMB(3.6,75,4,2,1,0)="^^1^1^2940204^"
^XMB(3.6,75,4,2,1,1,0)="Social Security Number of patient whose report was deleted."
^XMB(3.6,75,4,3,0)="3"
^XMB(3.6,75,4,3,1,0)="^^1^1^2940204^"
^XMB(3.6,75,4,3,1,1,0)="Case Number of the deleted report."
^XMB(3.6,75,4,4,0)="4"
^XMB(3.6,75,4,4,1,0)="^^1^1^2940204^"
^XMB(3.6,75,4,4,1,1,0)="Date/Time of visit for the deleted report."
^XMB(3.6,75,4,5,0)="5"
^XMB(3.6,75,4,5,1,0)="^^2^2^2950321^^"
^XMB(3.6,75,4,5,1,1,0)="Desired Date of the examination for the deleted report.  This data is"
^XMB(3.6,75,4,5,1,2,0)="derived from the Examinations multiple of the Radiology Patient file."
^XMB(3.6,75,4,6,0)="6"
^XMB(3.6,75,4,6,1,0)="^^1^1^2941024^^^^"
^XMB(3.6,75,4,6,1,1,0)="Status of the report at the time of deletion."
^XMB(3.6,75,4,7,0)="7"
^XMB(3.6,75,4,7,1,0)="^^2^2^2950321^"
^XMB(3.6,75,4,7,1,1,0)="This is the imaging location where the exam was performed.  Data is"
^XMB(3.6,75,4,7,1,2,0)="derived from the imaging location on the exam record."
^XMB(3.6,76,0)="RAD/NUC MED REPORT UNVERIFIED^Imaging Report Unverified (|2|)^0"
^XMB(3.6,76,1,0)="^^12^12^2970212^^"
^XMB(3.6,76,1,1,0)="The following verified radiology report has been unverified:"
^XMB(3.6,76,1,2,0)="   1) Patient              : |1|"
^XMB(3.6,76,1,3,0)="   2) SSN                  : |2|"
^XMB(3.6,76,1,4,0)="   3) Case Number          : |3|"
^XMB(3.6,76,1,5,0)="   4) Exam Date            : |4|"
^XMB(3.6,76,1,6,0)="   5) Desired Date         : |5|"
^XMB(3.6,76,1,7,0)="   6) New Status           : |6|"
^XMB(3.6,76,1,8,0)="   7) Requesting Physician : |7|"
^XMB(3.6,76,1,9,0)="   8) Procedure            : |8|"
^XMB(3.6,76,1,10,0)="   9) Imaging Loc          : |9|"
^XMB(3.6,76,1,11,0)="  10) Interpreting Staff   : |10|"
^XMB(3.6,76,1,12,0)="  11) Interpreting Resident: |11|"
^XMB(3.6,76,3,0)="^^3^3^2970225^^^^"
^XMB(3.6,76,3,1,0)="This bulletin is used to notify the radiology supervisor that a 'verified'"
^XMB(3.6,76,3,2,0)="radiology report was 'unverified' and the computer user who did the"
^XMB(3.6,76,3,3,0)="'unverifing'."
^XMB(3.6,76,4,0)="^3.64A^11^11"
^XMB(3.6,76,4,1,0)="1"
^XMB(3.6,76,4,1,1,0)="^^1^1^2940204^"
^XMB(3.6,76,4,1,1,1,0)="Patient whose report was unverified."
^XMB(3.6,76,4,2,0)="2"
^XMB(3.6,76,4,2,1,0)="^^1^1^2940204^"
^XMB(3.6,76,4,2,1,1,0)="Social Security Number of the patient whose report is now unverified."
^XMB(3.6,76,4,3,0)="3"
^XMB(3.6,76,4,3,1,0)="^^1^1^2940204^"
^XMB(3.6,76,4,3,1,1,0)="Case Number of the unverified report."
^XMB(3.6,76,4,4,0)="4"
^XMB(3.6,76,4,4,1,0)="^^1^1^2940204^"
^XMB(3.6,76,4,4,1,1,0)="Exam Date of the unverified report."
^XMB(3.6,76,4,5,0)="5"
^XMB(3.6,76,4,5,1,0)="^^2^2^2940204^"
^XMB(3.6,76,4,5,1,1,0)="Desired Date of the exam to which this unverified report is related."
^XMB(3.6,76,4,5,1,2,0)="This data is derived from the Radiology Patient file."
^XMB(3.6,76,4,6,0)="6"
^XMB(3.6,76,4,6,1,0)="^^1^1^2940204^^"
^XMB(3.6,76,4,6,1,1,0)="The new status of the report."
^XMB(3.6,76,4,7,0)="7"
^XMB(3.6,76,4,7,1,0)="^^2^2^2940204^"
^XMB(3.6,76,4,7,1,1,0)="The Physician who has requested this unverified report.  This data is"
^XMB(3.6,76,4,7,1,2,0)="derived from the Examinations multiple in the Radiology Patient file."
^XMB(3.6,76,4,8,0)="8"
^XMB(3.6,76,4,8,1,0)="^^1^1^2950316^^^"
^XMB(3.6,76,4,8,1,1,0)="Radiology procedure that is associated with this unverified report."
^XMB(3.6,76,4,9,0)="9"
^XMB(3.6,76,4,9,1,0)="^^1^1^2950316^"
^XMB(3.6,76,4,9,1,1,0)="Imaging location where the exam was performed."
^XMB(3.6,76,4,10,0)="10"
^XMB(3.6,76,4,10,1,0)="^^1^1^2960320^"
^XMB(3.6,76,4,10,1,1,0)="Primary Interpreting Staff member associated with this exam."
^XMB(3.6,76,4,11,0)="11"
^XMB(3.6,76,4,11,1,0)="^^1^1^2970212^^^"
^XMB(3.6,76,4,11,1,1,0)="Primary Interpreting Resident associated with this exam."
^XMB(3.6,77,0)="RAD/NUC MED REQUEST CANCELLED^Imaging Request Cancelled (|2|)"
^XMB(3.6,77,1,0)="^^10^10^3061024^"
^XMB(3.6,77,1,1,0)="The request for exam with the following identification was cancelled:"
^XMB(3.6,77,1,2,0)="          1) Patient              : |1|"
^XMB(3.6,77,1,3,0)="          2) Patient SSN          : |2|"
^XMB(3.6,77,1,4,0)="          3) Procedure            : |3|"
^XMB(3.6,77,1,5,0)="          4) Reason for Study     : |4|"
^XMB(3.6,77,1,6,0)="          5) Date Desired         : |5|"
^XMB(3.6,77,1,7,0)="          6) Requesting Physician : |6|"
^XMB(3.6,77,1,8,0)="          7) Requesting Location  : |7|"
^XMB(3.6,77,1,9,0)="          8) Reason               : |8|"
^XMB(3.6,77,1,10,0)="          9) User                 : |9|"
^XMB(3.6,77,3,0)="^3.63^2^2^3061024^^^^"
^XMB(3.6,77,3,1,0)="This bulletin is used to notify the 'RA REQUEST CANCELLED' mail group that"
^XMB(3.6,77,3,2,0)="a radiology request has been cancelled."
^XMB(3.6,77,4,0)="^3.64A^9^9"
^XMB(3.6,77,4,1,0)="1"
^XMB(3.6,77,4,1,1,0)="^^1^1^2940203^"
^XMB(3.6,77,4,1,1,1,0)="Patient whose request was cancelled."
^XMB(3.6,77,4,2,0)="2"
^XMB(3.6,77,4,2,1,0)="^^1^1^2940203^"
^XMB(3.6,77,4,2,1,1,0)="Patient SSN of the patient whose request was cancelled."
^XMB(3.6,77,4,3,0)="3"
^XMB(3.6,77,4,3,1,0)="^^1^1^2940203^"
^XMB(3.6,77,4,3,1,1,0)="The name of the radiology procedure requested."
^XMB(3.6,77,4,4,0)="4"
^XMB(3.6,77,4,4,1,0)="^^1^1^3061024^"
^XMB(3.6,77,4,4,1,1,0)="The reason the study was initiated."
^XMB(3.6,77,4,5,0)="5"
^XMB(3.6,77,4,5,1,0)="^^1^1^3061024^"
^XMB(3.6,77,4,5,1,1,0)="The date the radiology order was desired."
^XMB(3.6,77,4,6,0)="6"
^XMB(3.6,77,4,6,1,0)="^^1^1^3061024^"
^XMB(3.6,77,4,6,1,1,0)="The physician who ordered the request."
^XMB(3.6,77,4,7,0)="7"
^XMB(3.6,77,4,7,1,0)="^^1^1^3061024^"
^XMB(3.6,77,4,7,1,1,0)="The requesting location of the procedure."
^XMB(3.6,77,4,8,0)="8"
^XMB(3.6,77,4,8,1,0)="^^1^1^3061024^"
^XMB(3.6,77,4,8,1,1,0)="The reason the request was cancelled."
^XMB(3.6,77,4,9,0)="9"
^XMB(3.6,77,4,9,1,0)="^3.65^1^1^3061024^^^"
^XMB(3.6,77,4,9,1,1,0)="The user that cancelled the request."
^XMB(3.6,78,0)="RAD/NUC MED REQUEST HELD^Imaging Request Held (|2|)"
^XMB(3.6,78,1,0)="^^10^10^3061024^"
^XMB(3.6,78,1,1,0)="The request for exam with the following identification was held:"
^XMB(3.6,78,1,2,0)="          1) Patient              : |1|"
^XMB(3.6,78,1,3,0)="          2) Patient SSN          : |2|"
^XMB(3.6,78,1,4,0)="          3) Procedure            : |3|"
^XMB(3.6,78,1,5,0)="          4) Reason for Study     : |4|"
^XMB(3.6,78,1,6,0)="          5) Date Desired         : |5|"
^XMB(3.6,78,1,7,0)="          6) Requesting Physician : |6|"
^XMB(3.6,78,1,8,0)="          7) Requesting Location  : |7|"
^XMB(3.6,78,1,9,0)="          8) Reason               : |8|"
^XMB(3.6,78,1,10,0)="          9) User                 : |9|"
^XMB(3.6,78,3,0)="^3.63^2^2^3061024^^^^"
^XMB(3.6,78,3,1,0)="This bulletin is used to notify the 'RA REQUEST HELD' mail group that a"
^XMB(3.6,78,3,2,0)="radiology request has been held. "
^XMB(3.6,78,4,0)="^3.64A^9^9"
^XMB(3.6,78,4,1,0)="1"
^XMB(3.6,78,4,1,1,0)="^3.65^1^1^3061024^^"
^XMB(3.6,78,4,1,1,1,0)="Patient whose request was held."
^XMB(3.6,78,4,2,0)="2"
^XMB(3.6,78,4,2,1,0)="^3.65^1^1^3061024^^"
^XMB(3.6,78,4,2,1,1,0)="Patient SSN of the patient whose request was held."
^XMB(3.6,78,4,3,0)="3"
^XMB(3.6,78,4,3,1,0)="^3.65^1^1^3061024^^^"
^XMB(3.6,78,4,3,1,1,0)="The name of the radiology procedure requested."
^XMB(3.6,78,4,4,0)="4"
^XMB(3.6,78,4,4,1,0)="^^1^1^3061024^"
^XMB(3.6,78,4,4,1,1,0)="The reason the study was initiated."
^XMB(3.6,78,4,5,0)="5"
^XMB(3.6,78,4,5,1,0)="^^1^1^3061024^"
^XMB(3.6,78,4,5,1,1,0)="The date the radiology order was desired."
^XMB(3.6,78,4,6,0)="6"
^XMB(3.6,78,4,6,1,0)="^^1^1^3061024^"
^XMB(3.6,78,4,6,1,1,0)="The physician who ordered the request."
^XMB(3.6,78,4,7,0)="7"
^XMB(3.6,78,4,7,1,0)="^^1^1^3061024^"
^XMB(3.6,78,4,7,1,1,0)="The requesting location of the procedure."
^XMB(3.6,78,4,8,0)="8"
^XMB(3.6,78,4,8,1,0)="^^1^1^3061024^"
^XMB(3.6,78,4,8,1,1,0)="The reason the request was held."
^XMB(3.6,78,4,9,0)="9"
^XMB(3.6,78,4,9,1,0)="^3.65^1^1^3061024^^"
^XMB(3.6,78,4,9,1,1,0)="The user who held the request."
^XMB(3.6,80,0)="LBRYFORUM^TRANSACTION RECEIVED FROM FORUM"
^XMB(3.6,80,1,0)="^^4^4^2940309^^^^"
^XMB(3.6,80,1,1,0)="A |1| for the following title"
^XMB(3.6,80,1,2,0)="  |2|  |3|"
^XMB(3.6,80,1,3,0)="has been transmitted to you.  It is being processed and should"
^XMB(3.6,80,1,4,0)="be available in your Library Title Setup (LTS) option within 24 hours."
^XMB(3.6,80,3,0)="^^3^3^2940309^^^^"
^XMB(3.6,80,3,1,0)="This bulletin is to notify the appropriate Library users when"
^XMB(3.6,80,3,2,0)="transactions have been received from the national librarians on"
^XMB(3.6,80,3,3,0)="FORUM."
^XMB(3.6,80,4,0)="^3.64A^3^3"
^XMB(3.6,80,4,1,0)="1"
^XMB(3.6,80,4,1,1,0)="^^1^1^2930506^^"
^XMB(3.6,80,4,1,1,1,0)="the type of transaction"
^XMB(3.6,80,4,2,0)="2"
^XMB(3.6,80,4,2,1,0)="^^1^1^2940304^^^^"
^XMB(3.6,80,4,2,1,1,0)="title of serial"
^XMB(3.6,80,4,3,0)="3"
^XMB(3.6,80,4,3,1,0)="^^1^1^2940309^"
^XMB(3.6,80,4,3,1,1,0)="Old title if a corrected title"
^XMB(3.6,82,0)="RAD/NUC MED CREDIT FAILURE^Imaging Credit Failure for (|13|)"
^XMB(3.6,82,1,0)="^3.61A^14^14^3000523^^"
^XMB(3.6,82,1,1,0)="A credit failure occurred for the following:"
^XMB(3.6,82,1,2,0)="      1) Patient            : |1|"
^XMB(3.6,82,1,3,0)="      2) SSN                : |2|"
^XMB(3.6,82,1,4,0)="      3) Exam Date          : |3|"
^XMB(3.6,82,1,5,0)="      4) Case Number        : |4|"
^XMB(3.6,82,1,6,0)="      5) Procedure          : |5|"
^XMB(3.6,82,1,7,0)="      6) CPT Code           : |6|"
^XMB(3.6,82,1,8,0)="      7) CPT Modifiers      : |7|"
^XMB(3.6,82,1,9,0)="      8) Imaging loc DSS ID : |8|"
^XMB(3.6,82,1,10,0)="      9) Interpreter        : |9|"
^XMB(3.6,82,1,11,0)="     10) Imaging Location   : |10|"
^XMB(3.6,82,1,12,0)="|11|"
^XMB(3.6,82,1,13,0)="|12|"
^XMB(3.6,82,1,14,0)="|14|"
^XMB(3.6,82,3,0)="^3.63^2^2^3000523^^^^"
^XMB(3.6,82,3,1,0)="This bulletin will notify users in the selected mailgroup(s) that"
^XMB(3.6,82,3,2,0)="a crediting failure occurred."
^XMB(3.6,82,4,0)="^3.64A^14^13"
^XMB(3.6,82,4,1,0)="1"
^XMB(3.6,82,4,1,1,0)="^^1^1^2960514^"
^XMB(3.6,82,4,1,1,1,0)="Patient name "
^XMB(3.6,82,4,2,0)="2"
^XMB(3.6,82,4,2,1,0)="^^1^1^2960514^"
^XMB(3.6,82,4,2,1,1,0)="Social Security Number of the patient."
^XMB(3.6,82,4,3,0)="3"
^XMB(3.6,82,4,3,1,0)="^^1^1^2960514^^"
^XMB(3.6,82,4,3,1,1,0)="Examination Date for the patient."
^XMB(3.6,82,4,4,0)="4"
^XMB(3.6,82,4,4,1,0)="^^1^1^2960514^^"
^XMB(3.6,82,4,4,1,1,0)="Case Number of the examination."
^XMB(3.6,82,4,5,0)="5"
^XMB(3.6,82,4,5,1,0)="^^1^1^2960514^"
^XMB(3.6,82,4,5,1,1,0)="Name of the registered procedure.."
^XMB(3.6,82,4,6,0)="6"
^XMB(3.6,82,4,6,1,0)="^^1^1^2960514^"
^XMB(3.6,82,4,6,1,1,0)="CPT Code for the procedure."
^XMB(3.6,82,4,7,0)="7"
^XMB(3.6,82,4,7,1,0)="^^1^1^2990806^^"
^XMB(3.6,82,4,7,1,1,0)="CPT Modifiers string"
^XMB(3.6,82,4,8,0)="8"
^XMB(3.6,82,4,8,1,0)="^^1^1^2990806^^"
^XMB(3.6,82,4,8,1,1,0)="Stop Code for the Imaging Location where the exam was registered."
^XMB(3.6,82,4,9,0)="9"
^XMB(3.6,82,4,9,1,0)="^^1^1^2990806^^^"
^XMB(3.6,82,4,9,1,1,0)="Interpreter of the examination"
^XMB(3.6,82,4,10,0)="10"
^XMB(3.6,82,4,10,1,0)="^^1^1^2990806^^^"
^XMB(3.6,82,4,10,1,1,0)="Imaging location where the exam took place"
^XMB(3.6,82,4,11,0)="11"
^XMB(3.6,82,4,11,1,0)="^^1^1^2990806^^"
^XMB(3.6,82,4,11,1,1,0)="Indicate if this case is part of an exam set"
^XMB(3.6,82,4,12,0)="12"
^XMB(3.6,82,4,12,1,0)="^3.65^1^1^3000516^^^"
^XMB(3.6,82,4,12,1,1,0)="Indicates if the PCE software detected an error."
^XMB(3.6,82,4,14,0)="14"
^XMB(3.6,82,4,14,1,0)="^3.65^1^1^3000523^^"
^XMB(3.6,82,4,14,1,1,0)="one line text comment"
^XMB(3.6,83,0)="SCDX AMBCARE TO NPCDB SUMMARY^Transmission of data to NPCDB completed"
^XMB(3.6,83,1,0)="^3.61A^11^11^3051109^^^^"
^XMB(3.6,83,1,1,0)="Transmission of data to the National Patient Care Database has completed."
^XMB(3.6,83,1,2,0)=" "
^XMB(3.6,83,1,3,0)="A total of |1| Encounters were sent."
^XMB(3.6,83,1,4,0)="A total of |3| Outpatient Encounters were sent."
^XMB(3.6,83,1,5,0)="A total of |4| Inpatient Encounters were sent."
^XMB(3.6,83,1,6,0)=" "
^XMB(3.6,83,1,7,0)="A total of |2| Encounters were not sent."
^XMB(3.6,83,1,8,0)="A total of |5| Outpatient Encounters were not sent. "
^XMB(3.6,83,1,9,0)="A total of |6| Inpatient Encounters were not sent."
^XMB(3.6,83,1,10,0)=" "
^XMB(3.6,83,1,11,0)="Please review the IEMM Error listing for further details."
^XMB(3.6,83,3,0)="^3.63^3^3^3051109^^^^"
^XMB(3.6,83,3,1,0)="Bulletin sent at the [un]successful completion of generating workload"
^XMB(3.6,83,3,2,0)="information to be transmitted to the National Patient Care Database via"
^XMB(3.6,83,3,3,0)="HL7."
^XMB(3.6,83,4,0)="^3.64A^6^6"
^XMB(3.6,83,4,1,0)="1"
^XMB(3.6,83,4,1,1,0)="^3.65^1^1^3051109^^^"
^XMB(3.6,83,4,1,1,1,0)="Number of encounters that were successfully sent to NPCDB."
^XMB(3.6,83,4,2,0)="2"
^XMB(3.6,83,4,2,1,0)="^3.65^1^1^3051109^^^^"
^XMB(3.6,83,4,2,1,1,0)="Number of encounters that were not sent to NPCDB."
^XMB(3.6,83,4,3,0)="3"
^XMB(3.6,83,4,3,1,0)="^3.65^1^1^3051109^^^^"
^XMB(3.6,83,4,3,1,1,0)="Number of outpatient encounters that were successfully sent to NPCDB."
^XMB(3.6,83,4,4,0)="4"
^XMB(3.6,83,4,4,1,0)="^3.65^1^1^3051109^^"
^XMB(3.6,83,4,4,1,1,0)="Number of inpatient encounters that were successfully sent to NPCDB."
^XMB(3.6,83,4,5,0)="5"
^XMB(3.6,83,4,5,1,0)="^3.65^1^1^3051109^^^"
^XMB(3.6,83,4,5,1,1,0)="Number of outpatient encounters that were not sent to NPCDB."
^XMB(3.6,83,4,6,0)="6"
^XMB(3.6,83,4,6,1,0)="^3.65^1^1^3051109^^^^"
^XMB(3.6,83,4,6,1,1,0)="Number of inpatient encounters that were not sent to NPCDB."
^XMB(3.6,84,0)="ESP UOR COMPLETED^UOR COMPLETED- READY FOR REVIEW"
^XMB(3.6,84,1,0)="1^^3^3^2960924^"
^XMB(3.6,84,1,1,0)="UOR # |1| has been investigated by |2| and "
^XMB(3.6,84,1,2,0)="is ready to review.  The UOR was entered into the records "
^XMB(3.6,84,1,3,0)="by |3|."
^XMB(3.6,84,2,0)="^3.62P"
^XMB(3.6,84,3,0)="^^2^2^2960924^^^^"
^XMB(3.6,84,3,1,0)="Bulletin to Police Supervisors that a UOR has been completed and"
^XMB(3.6,84,3,2,0)="is ready to review."
^XMB(3.6,84,4,0)="^3.64A^3^3"
^XMB(3.6,84,4,1,0)="1"
^XMB(3.6,84,4,1,1,0)="^^1^1^2930707^^^^"
^XMB(3.6,84,4,1,1,1,0)="The UOR #"
^XMB(3.6,84,4,2,0)="2"
^XMB(3.6,84,4,2,1,0)="^^1^1^2930707^^^^"
^XMB(3.6,84,4,2,1,1,0)="Investigating Officer"
^XMB(3.6,84,4,3,0)="3"
^XMB(3.6,84,4,3,1,0)="^^1^1^2931015^^^^"
^XMB(3.6,84,4,3,1,1,0)="The USER"
^XMB(3.6,85,0)="ESP SUPERVISOR REVIEW^UOR REVIEWED"
^XMB(3.6,85,1,0)="^^3^3^2921223^^^"
^XMB(3.6,85,1,1,0)="Your offense report, UOR # |1|, has been reviewed and"
^XMB(3.6,85,1,2,0)="additional information is needed.  Please see me for"
^XMB(3.6,85,1,3,0)="further details."
^XMB(3.6,85,3,0)="^^2^2^2921223^^^"
^XMB(3.6,85,3,1,0)="This bulletin is sent to an investigating officer when his"
^XMB(3.6,85,3,2,0)="UOR has been reviewed and needs additional information."
^XMB(3.6,85,4,0)="^3.64A^1^1"
^XMB(3.6,85,4,1,0)="1"
^XMB(3.6,85,4,1,1,0)="^^1^1^2921223^^^"
^XMB(3.6,85,4,1,1,1,0)="the UOR#"
^XMB(3.6,86,0)="ESP VACO 48 HR CRITERIA^UOR INPUT"
^XMB(3.6,86,1,0)="^^2^2^2931015^^^"
^XMB(3.6,86,1,1,0)="UOR # |1| has been input.  This UOR falls within the VACO"
^XMB(3.6,86,1,2,0)="48 hour reporting criteria."
^XMB(3.6,86,3,0)="^^2^2^2931015^^^"
^XMB(3.6,86,3,1,0)="Bulletin to Chiefs that a UOR input that falls within the VACO 48"
^XMB(3.6,86,3,2,0)="hour reporting criteria."
^XMB(3.6,86,4,0)="^3.64A^1^1"
^XMB(3.6,86,4,1,0)="1"
^XMB(3.6,86,4,1,1,0)="^^1^1^2930707^^"
^XMB(3.6,86,4,1,1,1,0)="UOR #"
^XMB(3.6,87,0)="RMPR CANCEL TRANSACTION^PROSTHETICS TRANSACTION CANCELLATION"
^XMB(3.6,87,1,0)="^^9^9^2950719^"
^XMB(3.6,87,1,1,0)="The above user has cancelled the following Prosthetics transaction."
^XMB(3.6,87,1,2,0)=" "
^XMB(3.6,87,1,3,0)="Reference: |1|"
^XMB(3.6,87,1,4,0)=" "
^XMB(3.6,87,1,5,0)="Initiator: |2|"
^XMB(3.6,87,1,6,0)=" "
^XMB(3.6,87,1,7,0)="Cancellation Date: |3|"
^XMB(3.6,87,1,8,0)=" "
^XMB(3.6,87,1,9,0)="Reason for cancellation: |4|"
^XMB(3.6,87,3,0)="^^2^2^2950719^^^^"
^XMB(3.6,87,3,1,0)="BULLETIN IS SENT TO MAILGROUP RMPR CANCEL TRANSACTION WHEN PROSTHETICS"
^XMB(3.6,87,3,2,0)=" CANCELS A TRANSACTION"
^XMB(3.6,87,4,0)="^3.64A^6^6"
^XMB(3.6,87,4,1,0)="1"
^XMB(3.6,87,4,1,1,0)="^^6^6^2901011^^^"
^XMB(3.6,87,4,1,1,1,0)="reference"
^XMB(3.6,87,4,1,1,2,0)="patient"
^XMB(3.6,87,4,1,1,3,0)="ssn"
^XMB(3.6,87,4,1,1,4,0)="initiator"
^XMB(3.6,87,4,1,1,5,0)="cancellation date"
^XMB(3.6,87,4,1,1,6,0)="cancellation remarks"
^XMB(3.6,87,4,2,0)="2"
^XMB(3.6,87,4,2,1,0)="^^1^1^2901011^^^^"
^XMB(3.6,87,4,2,1,1,0)="initiator"
^XMB(3.6,87,4,3,0)="3"
^XMB(3.6,87,4,3,1,0)="^^1^1^2901011^^^^"
^XMB(3.6,87,4,3,1,1,0)="cancellation date"
^XMB(3.6,87,4,4,0)="4"
^XMB(3.6,87,4,4,1,0)="^^1^1^2901011^^^"
^XMB(3.6,87,4,4,1,1,0)="cancellation remarks"
^XMB(3.6,87,4,5,0)="5"
^XMB(3.6,87,4,6,0)="6"
^XMB(3.6,88,0)="QAM MONITOR TOOL 1^|1|: |2|"
^XMB(3.6,88,1,0)="^^14^14^2930415^^^"
^XMB(3.6,88,1,1,0)="|3|"
^XMB(3.6,88,1,2,0)=" "
^XMB(3.6,88,1,3,0)="Monitor code:  |2|"
^XMB(3.6,88,1,4,0)="Monitor title: |4|"
^XMB(3.6,88,1,5,0)=" "
^XMB(3.6,88,1,6,0)="Time frame: |5|"
^XMB(3.6,88,1,7,0)="Threshold:  |6|"
^XMB(3.6,88,1,8,0)="Min sample: |7|"
^XMB(3.6,88,1,9,0)=" "
^XMB(3.6,88,1,10,0)="Fall outs:   |8|"
^XMB(3.6,88,1,11,0)="Sample size: |9|"
^XMB(3.6,88,1,12,0)="Calculated percentage: |10|"
^XMB(3.6,88,1,13,0)=" "
^XMB(3.6,88,1,14,0)="Date threshold met: |11|"
^XMB(3.6,88,3,0)="^^6^6^2930415^^^^"
^XMB(3.6,88,3,1,0)="This bulletin is automatically sent when:"
^XMB(3.6,88,3,2,0)=" 1) The threshold is met or exceeded."
^XMB(3.6,88,3,3,0)=" 2) The minimum sample size is met or exceeded."
^XMB(3.6,88,3,4,0)=" 3) The end of the time frame has been reached."
^XMB(3.6,88,3,5,0)="Each of these conditions may be turned on or off in the QA MONITOR"
^XMB(3.6,88,3,6,0)="file (#743)."
^XMB(3.6,88,4,0)="^3.64A^11^11"
^XMB(3.6,88,4,1,0)="1"
^XMB(3.6,88,4,1,1,0)="^^4^4^2921021^^^"
^XMB(3.6,88,4,1,1,1,0)="Monitor status"
^XMB(3.6,88,4,1,1,2,0)=" Threshold met"
^XMB(3.6,88,4,1,1,3,0)=" Minimum sample size met"
^XMB(3.6,88,4,1,1,4,0)=" Time frame expired"
^XMB(3.6,88,4,2,0)="2"
^XMB(3.6,88,4,2,1,0)="^^1^1^2910102^^"
^XMB(3.6,88,4,2,1,1,0)="Monitor code"
^XMB(3.6,88,4,3,0)="3"
^XMB(3.6,88,4,3,1,0)="^^2^2^2921021^^^"
^XMB(3.6,88,4,3,1,1,0)="Expanded monitor status"
^XMB(3.6,88,4,3,1,2,0)=" Similar to parameter 1, but more verbose"
^XMB(3.6,88,4,4,0)="4"
^XMB(3.6,88,4,4,1,0)="^^1^1^2921021^"
^XMB(3.6,88,4,4,1,1,0)="Monitor title"
^XMB(3.6,88,4,5,0)="5"
^XMB(3.6,88,4,5,1,0)="^^1^1^2910102^^"
^XMB(3.6,88,4,5,1,1,0)="Time frame"
^XMB(3.6,88,4,6,0)="6"
^XMB(3.6,88,4,6,1,0)="^^1^1^2910102^^^"
^XMB(3.6,88,4,6,1,1,0)="Threshold"
^XMB(3.6,88,4,7,0)="7"
^XMB(3.6,88,4,7,1,0)="^^1^1^2910102^^"
^XMB(3.6,88,4,7,1,1,0)="Minimum sample size"
^XMB(3.6,88,4,8,0)="8"
^XMB(3.6,88,4,8,1,0)="^^1^1^2910102^^"
^XMB(3.6,88,4,8,1,1,0)="Number of fall outs"
^XMB(3.6,88,4,9,0)="9"
^XMB(3.6,88,4,9,1,0)="^^1^1^2910102^^"
^XMB(3.6,88,4,9,1,1,0)="Sample size"
^XMB(3.6,88,4,10,0)="10"
^XMB(3.6,88,4,10,1,0)="^^2^2^2910102^^"
^XMB(3.6,88,4,10,1,1,0)="Calculated percentage"
^XMB(3.6,88,4,10,1,2,0)=" #8/#9*100%"
^XMB(3.6,88,4,11,0)="11"
^XMB(3.6,88,4,11,1,0)="^^1^1^2910107^^^^"
^XMB(3.6,88,4,11,1,1,0)="Date threshold met"
^XMB(3.6,89,0)="QAM MONITOR TOOL 2^|1|: |2|"
^XMB(3.6,89,1,0)="^^14^14^2910128^^^^"
^XMB(3.6,89,1,1,0)="|3|"
^XMB(3.6,89,1,2,0)=" "
^XMB(3.6,89,1,3,0)="Monitor code:  |2|"
^XMB(3.6,89,1,4,0)="Monitor title: |4|"
^XMB(3.6,89,1,5,0)=" "
^XMB(3.6,89,1,6,0)="Time frame:  |5|"
^XMB(3.6,89,1,7,0)="Threshold:   |6|"
^XMB(3.6,89,1,8,0)="Alert level: |7|"
^XMB(3.6,89,1,9,0)=" "
^XMB(3.6,89,1,10,0)="Fall outs:   |8|"
^XMB(3.6,89,1,11,0)="Sample size: |9|"
^XMB(3.6,89,1,12,0)="Calculated percentage: |10|"
^XMB(3.6,89,1,13,0)=" "
^XMB(3.6,89,1,14,0)="Date threshold met: |11|"
^XMB(3.6,89,3,0)="^^6^6^2910128^^^^"
^XMB(3.6,89,3,1,0)="This bulletin is automatically sent when:"
^XMB(3.6,89,3,2,0)=" 1) The threshold is met or exceeded."
^XMB(3.6,89,3,3,0)=" 2) The pre-threshold alert level is met or exceeded."
^XMB(3.6,89,3,4,0)=" 3) The end of the time frame has been reached."
^XMB(3.6,89,3,5,0)="Each of these conditions may be turned on or off in the QA MONITOR"
^XMB(3.6,89,3,6,0)="file (#743)."
^XMB(3.6,89,4,0)="^3.64A^11^11"
^XMB(3.6,89,4,1,0)="1"
^XMB(3.6,89,4,1,1,0)="^^4^4^2910128^^^"
^XMB(3.6,89,4,1,1,1,0)="Monitor status"
^XMB(3.6,89,4,1,1,2,0)=" Threshold met"
^XMB(3.6,89,4,1,1,3,0)=" Pre-threshold alert level met"
^XMB(3.6,89,4,1,1,4,0)=" Time frame expired"
^XMB(3.6,89,4,2,0)="2"
^XMB(3.6,89,4,2,1,0)="^^1^1^2910128^^^"
^XMB(3.6,89,4,2,1,1,0)="Monitor code"
^XMB(3.6,89,4,3,0)="3"
^XMB(3.6,89,4,3,1,0)="^^2^2^2910128^^^"
^XMB(3.6,89,4,3,1,1,0)="Expanded monitor status"
^XMB(3.6,89,4,3,1,2,0)=" Similar to parameter 1, but more verbose"
^XMB(3.6,89,4,4,0)="4"
^XMB(3.6,89,4,4,1,0)="^^1^1^2910128^^^"
^XMB(3.6,89,4,4,1,1,0)="Monitor title"
^XMB(3.6,89,4,5,0)="5"
^XMB(3.6,89,4,5,1,0)="^^1^1^2910128^^^"
^XMB(3.6,89,4,5,1,1,0)="Time frame"
^XMB(3.6,89,4,6,0)="6"
^XMB(3.6,89,4,6,1,0)="^^1^1^2910128^^^^"
^XMB(3.6,89,4,6,1,1,0)="Threshold"
^XMB(3.6,89,4,7,0)="7"
^XMB(3.6,89,4,7,1,0)="^^1^1^2910128^^^^"
^XMB(3.6,89,4,7,1,1,0)="Pre-threshold alert level"
^XMB(3.6,89,4,8,0)="8"
^XMB(3.6,89,4,8,1,0)="^^1^1^2910128^^^"
^XMB(3.6,89,4,8,1,1,0)="Number of fall outs"
^XMB(3.6,89,4,9,0)="9"
^XMB(3.6,89,4,9,1,0)="^^1^1^2910128^^^"
^XMB(3.6,89,4,9,1,1,0)="Sample size"
^XMB(3.6,89,4,10,0)="10"
^XMB(3.6,89,4,10,1,0)="^^2^2^2910128^^^"
^XMB(3.6,89,4,10,1,1,0)="Calculated percentage"
^XMB(3.6,89,4,10,1,2,0)=" #8/#9*100%"
^XMB(3.6,89,4,11,0)="11"
^XMB(3.6,89,4,11,1,0)="^^1^1^2910128^^^^"
^XMB(3.6,89,4,11,1,1,0)="Date threshold met"
^XMB(3.6,90,0)="RMPFMESSAGE (ASPS)^REMOTE ORDER ENTRY UPDATE"
^XMB(3.6,90,1,0)="1^^1^1^2950501^^^^"
^XMB(3.6,90,1,1,0)="Your ROES transaction file has been updated."
^XMB(3.6,90,3,0)="^^2^2^2950501^^^^"
^XMB(3.6,90,3,1,0)="This bulletin serves as a notification that a ROES update message has been"
^XMB(3.6,90,3,2,0)="loaded for Audiology and Speech Pathology Service."
^XMB(3.6,90,4,0)="^3.64A"
^XMB(3.6,91,0)="RMPF-FILE-UPDATE^Server Request Notice"
^XMB(3.6,91,1,0)="^^12^12^2940601^^^^"
^XMB(3.6,91,1,1,0)="                 |1|"
^XMB(3.6,91,1,2,0)=" "
^XMB(3.6,91,1,3,0)="A request for execution of a server option has been recieved."
^XMB(3.6,91,1,4,0)=" "
^XMB(3.6,91,1,5,0)="Sender: |2|"
^XMB(3.6,91,1,6,0)="Option name: |3|"
^XMB(3.6,91,1,7,0)="Subject: |4|"
^XMB(3.6,91,1,8,0)="Message #: |5|"
^XMB(3.6,91,1,9,0)=" "
^XMB(3.6,91,1,10,0)="Comments: |6|"
^XMB(3.6,91,1,11,0)=" "
^XMB(3.6,91,1,12,0)="              This is the server bulletin RMPF-FILE-UPDATE"
^XMB(3.6,91,3,0)="^^1^1^2940601^^^^"
^XMB(3.6,91,3,1,0)="This is the bulletin which notifies ROES administrative staff at a station that file updates have been performed at the DDC, and duplicated at the station."
^XMB(3.6,91,4,0)="^3.64A^6^6"
^XMB(3.6,91,4,1,0)="1"
^XMB(3.6,91,4,1,1,0)="^^2^2^2900122^^^"
^XMB(3.6,91,4,1,1,1,0)="The date and time in human-readable form when the server request"
^XMB(3.6,91,4,1,1,2,0)="was recieved."
^XMB(3.6,91,4,2,0)="2"
^XMB(3.6,91,4,2,1,0)="^^1^1^2900122^^^"
^XMB(3.6,91,4,2,1,1,0)="The name of the sender of the server request."
^XMB(3.6,91,4,3,0)="3"
^XMB(3.6,91,4,3,1,0)="^^1^1^2900122^^"
^XMB(3.6,91,4,3,1,1,0)="The name of the option which was requested by Mailman."
^XMB(3.6,91,4,4,0)="4"
^XMB(3.6,91,4,4,1,0)="^^1^1^2900122^^^^"
^XMB(3.6,91,4,4,1,1,0)="The subject of the message which requested a server."
^XMB(3.6,91,4,5,0)="5"
^XMB(3.6,91,4,5,1,0)="^^1^1^2900122^^^^"
^XMB(3.6,91,4,5,1,1,0)="The internal number of the message requesting a server."
^XMB(3.6,91,4,6,0)="6"
^XMB(3.6,91,4,6,1,0)="^^3^3^2940601^^^^"
^XMB(3.6,91,4,6,1,1,0)="Comments appended to the bulleting.  These may include errors trapped"
^XMB(3.6,91,4,6,1,2,0)="by the server software and/or the operating system, as well as general"
^XMB(3.6,91,4,6,1,3,0)="purpose messages."
^XMB(3.6,92,0)="RMPFMESSAGE (PSAS)^REMOTE ORDER ENTRY UPDATE"
^XMB(3.6,92,1,0)="^^1^1^2950501^^"
^XMB(3.6,92,1,1,0)="Your ROES Order File has been updated."
^XMB(3.6,92,3,0)="^^2^2^2950501^^"
^XMB(3.6,92,3,1,0)="This bulletin serves as a notification that a ROES update message has"
^XMB(3.6,92,3,2,0)="been loaded for Prosthetic and Sensory Aids Service."
^XMB(3.6,93,0)="PRCNCMR1^REQUEST NOT APPROVED"
^XMB(3.6,93,1,0)="^^4^4^2950727^^^^"
^XMB(3.6,93,1,1,0)="Your Equipment Request, Transaction #: |1| was not"
^XMB(3.6,93,1,2,0)="approved.  Please make any necessary corrections and either"
^XMB(3.6,93,1,3,0)="resubmit or cancel the request."
^XMB(3.6,93,1,4,0)="Explanation:"
^XMB(3.6,93,3,0)="^^2^2^2950727^^^^"
^XMB(3.6,93,3,1,0)="This message will be sent to the requestor when the CMR official"
^XMB(3.6,93,3,2,0)="did not approve an equipment request."
^XMB(3.6,93,4,0)="^3.64A^1^1"
^XMB(3.6,93,4,1,0)="1"
^XMB(3.6,93,4,1,1,0)="^^1^1^2940405^^^"
^XMB(3.6,93,4,1,1,1,0)="Transaction number from file 413"
^XMB(3.6,94,0)="PRCNCMR2^TURN-IN REQUEST NOT APPROVED"
^XMB(3.6,94,1,0)="^^4^4^2950727^^^^"
^XMB(3.6,94,1,1,0)="Your Turn-in Request, Transaction # |1| was not approved."
^XMB(3.6,94,1,2,0)="Please make any necessary corrections and either resubmit"
^XMB(3.6,94,1,3,0)="or cancel the request."
^XMB(3.6,94,1,4,0)="Explanation:"
^XMB(3.6,94,3,0)="^^2^2^2950727^^^^"
^XMB(3.6,94,3,1,0)="This message will be sent when a turn-in request has not been"
^XMB(3.6,94,3,2,0)="approved by the CMR Official."
^XMB(3.6,94,4,0)="^3.64A^1^1"
^XMB(3.6,94,4,1,0)="1"
^XMB(3.6,94,4,1,1,0)="^^1^1^2940405^^"
^XMB(3.6,94,4,1,1,1,0)="turn-in transaction number from file 413.1"
^XMB(3.6,95,0)="PRCNPPM1^REQUEST ITEMS NOT NX"
^XMB(3.6,95,1,0)="^^3^3^2960308^^^"
^XMB(3.6,95,1,1,0)="The Equipment Request, Transaction #: |1| is being returned"
^XMB(3.6,95,1,2,0)="because the line item(s) requested are not considered non-expendable."
^XMB(3.6,95,1,3,0)="Explanation:"
^XMB(3.6,95,3,0)="^^2^2^2960308^^^"
^XMB(3.6,95,3,1,0)="This mail message is sent from the Personal Property Manager"
^XMB(3.6,95,3,2,0)="(PPM) if the items are determined to not be non-expendable."
^XMB(3.6,95,4,0)="^3.64A^1^1"
^XMB(3.6,95,4,1,0)="1"
^XMB(3.6,95,4,1,1,0)="^^1^1^2940405^"
^XMB(3.6,95,4,1,1,1,0)="transaction number from file 413"
^XMB(3.6,96,0)="PRCNCONC^CONCURRENCE REQUESTED"
^XMB(3.6,96,1,0)="^^3^3^2950727^^"
^XMB(3.6,96,1,1,0)="You have been selected to review Equipment Request,"
^XMB(3.6,96,1,2,0)="Transaction #: |1| for your approval/disapproval.  Please"
^XMB(3.6,96,1,3,0)="review and indicate your decision by |2|.  Thank you."
^XMB(3.6,96,3,0)="^^2^2^2950727^^"
^XMB(3.6,96,3,1,0)="This message is sent to those individuals selected to"
^XMB(3.6,96,3,2,0)="review and concur with the equipment request."
^XMB(3.6,96,4,0)="^3.64A^2^2"
^XMB(3.6,96,4,1,0)="1"
^XMB(3.6,96,4,1,1,0)="^^1^1^2940405^"
^XMB(3.6,96,4,1,1,1,0)="equipment request number from file 413"
^XMB(3.6,96,4,2,0)="2"
^XMB(3.6,96,4,2,1,0)="^^1^1^2940405^"
^XMB(3.6,96,4,2,1,1,0)="date entered by Personal Property Manager (PPM)"
^XMB(3.6,97,0)="PRCNEQC1^REQUEST DEFERRED"
^XMB(3.6,97,1,0)="^^3^3^2960718^^^^"
^XMB(3.6,97,1,1,0)="The Equipment Committee has deferred Equipment Request,"
^XMB(3.6,97,1,2,0)="Transaction #: |1| until a later time.  Please resubmit this"
^XMB(3.6,97,1,3,0)="request later."
^XMB(3.6,97,3,0)="^^2^2^2960718^^^^"
^XMB(3.6,97,3,1,0)="This message will be sent if the Equipment Committee defers"
^XMB(3.6,97,3,2,0)="the equipment request."
^XMB(3.6,97,4,0)="^3.64A^1^1"
^XMB(3.6,97,4,1,0)="1"
^XMB(3.6,97,4,1,1,0)="^^1^1^2950727^^"
^XMB(3.6,97,4,1,1,1,0)="transaction number from file 413"
^XMB(3.6,98,0)="PRCNEQC2^REQUEST NOT APPROVED"
^XMB(3.6,98,1,0)="^^3^3^2950727^^"
^XMB(3.6,98,1,1,0)="The Equipment Committee has not approved Equipment Request,"
^XMB(3.6,98,1,2,0)="Transaction #: |1|.  Please cancel this request."
^XMB(3.6,98,1,3,0)="Explanation:"
^XMB(3.6,98,3,0)="^^2^2^2950727^^"
^XMB(3.6,98,3,1,0)="This message will be sent if the Equipment Committee does not"
^XMB(3.6,98,3,2,0)="approve the equipment request."
^XMB(3.6,98,4,0)="^3.64A^1^1"
^XMB(3.6,98,4,1,0)="1"
^XMB(3.6,98,4,1,1,0)="^^1^1^2940406^"
^XMB(3.6,98,4,1,1,1,0)="transaction number from file 413"
^XMB(3.6,99,0)="PRCNPPM2^CONCURRENCE NOT APPROVED"
^XMB(3.6,99,1,0)="^^3^3^2950727^^"
^XMB(3.6,99,1,1,0)="Equipment Request, Transaction #: |1| did not pass the"
^XMB(3.6,99,1,2,0)="concurrence process.  Fifty percent or more of the concurring"
^XMB(3.6,99,1,3,0)="officials did not approve this request."
^XMB(3.6,99,3,0)="^^2^2^2950727^^"
^XMB(3.6,99,3,1,0)="This message is sent if a majority of concurring officials did"
^XMB(3.6,99,3,2,0)="not approve the equipment request."
^XMB(3.6,99,4,0)="^3.64A^1^1"
^XMB(3.6,99,4,1,0)="1"
^XMB(3.6,99,4,1,1,0)="^^1^1^2940406^"
^XMB(3.6,99,4,1,1,1,0)="transaction number from file 413"
^XMB(3.6,100,0)="PRCNEQC3^REQUEST APPROVED!"
^XMB(3.6,100,1,0)="^^2^2^2960718^^^^"
^XMB(3.6,100,1,1,0)="The Equipment Committee has approved Equipment Request,"
^XMB(3.6,100,1,2,0)="Transaction #: |1| for purchase."
^XMB(3.6,100,3,0)="^^2^2^2960718^^^^"
^XMB(3.6,100,3,1,0)="This mail message is sent when the Equipment Committee approves"
^XMB(3.6,100,3,2,0)="the equipment request and passes it on to become a 2237."
^XMB(3.6,100,4,0)="^3.64A^1^1"
^XMB(3.6,100,4,1,0)="1"
^XMB(3.6,100,4,1,1,0)="^^1^1^2950727^^^"
^XMB(3.6,100,4,1,1,1,0)="transaction number from file 413"
^XMB(3.6,101,0)="PRCNEQC4^REQUEST APPROVED"
^XMB(3.6,101,1,0)="^^3^3^2960718^^"
^XMB(3.6,101,1,1,0)="The Equipment Committee has approved Equipment Request,"
^XMB(3.6,101,1,2,0)="Transaction #: |1| pending funding.  It will"
^XMB(3.6,101,1,3,0)="be purchased as soon as funding is received."
^XMB(3.6,101,3,0)="^^2^2^2960718^^"
^XMB(3.6,101,3,1,0)="This message is sent when the Equipment Committee approves the"
^XMB(3.6,101,3,2,0)="equipment request, but no funds are available at this time."
^XMB(3.6,101,4,0)="^3.64A^1^1"
^XMB(3.6,101,4,1,0)="1"
^XMB(3.6,101,4,1,1,0)="^^1^1^2940406^"
^XMB(3.6,101,4,1,1,1,0)="transaction number from file 413"
^XMB(3.6,102,0)="PRCNEQFN^FINAL CMR CONFIRMATION"
^XMB(3.6,102,1,0)="^^3^3^2960719^^^^"
^XMB(3.6,102,1,1,0)="Transaction #: |1|, |2|, should"
^XMB(3.6,102,1,2,0)="be reviewed for any changes that may need to be made"
^XMB(3.6,102,1,3,0)="prior to creation of a 2237."
^XMB(3.6,102,3,0)="^^4^4^2960719^^^^"
^XMB(3.6,102,3,1,0)="This message will be sent to the appropriate CMR Official if a NX"
^XMB(3.6,102,3,2,0)="transaction should be reviewed/edited one more time before a 2237"
^XMB(3.6,102,3,3,0)="is created.  This should be done in those cases where a request"
^XMB(3.6,102,3,4,0)="has been in the pipeline for a lengthy period of time."
^XMB(3.6,102,4,0)="^3.64A^2^2"
^XMB(3.6,102,4,1,0)="1"
^XMB(3.6,102,4,1,1,0)="^^1^1^2960226^"
^XMB(3.6,102,4,1,1,1,0)="Transaction number"
^XMB(3.6,102,4,2,0)="2"
^XMB(3.6,102,4,2,1,0)="^^1^1^2960719^^"
^XMB(3.6,102,4,2,1,1,0)="The short description of the request."
^XMB(3.6,103,0)="PRCNWHSE^ASSIGNED ITEM PICKUP"
^XMB(3.6,103,1,0)="^^2^2^2960328^"
^XMB(3.6,103,1,1,0)="You have been assigned to pickup the items found on Turn-In"
^XMB(3.6,103,1,2,0)="Request #: |1|."
^XMB(3.6,103,3,0)="^^3^3^2960328^"
^XMB(3.6,103,3,1,0)="This bulletin is to be used to send a message to those persons"
^XMB(3.6,103,3,2,0)="picked by the Warehouse Manager to pickup assigned turn-in"
^XMB(3.6,103,3,3,0)="requests."
^XMB(3.6,103,4,0)="^3.64A^1^1"
^XMB(3.6,103,4,1,0)="1"
^XMB(3.6,103,4,1,1,0)="^^1^1^2960328^"
^XMB(3.6,103,4,1,1,1,0)="This turn-in request transaction number."
^XMB(3.6,104,0)="PRCHQ 864 NORMAL^864 Text Message has been received for RFQ # |1|"
^XMB(3.6,104,1,0)="^^2^2^2960328^^"
^XMB(3.6,104,1,1,0)="864 Text Message # |3| has arrived from vendor |2| for"
^XMB(3.6,104,1,2,0)="for RFQ # |1|."
^XMB(3.6,104,2,0)="^3.62P^1^1"
^XMB(3.6,104,2,1,0)="35"
^XMB(3.6,104,2,"B",35,1)=""
^XMB(3.6,104,3,0)="^^1^1^2960310^"
^XMB(3.6,104,3,1,0)="Reporting arrival of 864 Text Message for review."
^XMB(3.6,105,0)="PRCHQ 864 ERROR^Error during filing 864 message for RFQ # |1|"
^XMB(3.6,105,1,0)="^^13^13^2960312^^"
^XMB(3.6,105,1,1,0)="During the filing of a 864 Text Message from vendor |3|"
^XMB(3.6,105,1,2,0)="for RFQ # |1| the following error(s) occured:"
^XMB(3.6,105,1,3,0)="|2|"
^XMB(3.6,105,1,4,0)="|4|"
^XMB(3.6,105,1,5,0)="|5|"
^XMB(3.6,105,1,6,0)="|6|"
^XMB(3.6,105,1,7,0)="|7|"
^XMB(3.6,105,1,8,0)="|8|"
^XMB(3.6,105,1,9,0)="|9|"
^XMB(3.6,105,1,10,0)="|10|"
^XMB(3.6,105,1,11,0)="|11|"
^XMB(3.6,105,1,12,0)="|12|"
^XMB(3.6,105,1,13,0)="|13|"
^XMB(3.6,105,2,0)="^3.62P^1^1"
^XMB(3.6,105,2,1,0)="35"
^XMB(3.6,105,2,"B",35,1)=""
^XMB(3.6,105,3,0)="^^1^1^2960312^^"
^XMB(3.6,105,3,1,0)="Reporting error during filing of 864 Message from vendor for an RFQ"
^XMB(3.6,106,0)="PRCHQ 843 UPDATE VENDOR INFO^On 843 Transaction update of vendor info for Dun# |1|"
^XMB(3.6,106,1,0)="^^33^33^2960422^^^"
^XMB(3.6,106,1,1,0)=" Dun #: |1|                    Vendor Name: |2|"
^XMB(3.6,106,1,2,0)=" Tax ID: |3|                   Phone #: |4|"
^XMB(3.6,106,1,3,0)=" Ordering Address"
^XMB(3.6,106,1,4,0)="  Line #1:   |5|"
^XMB(3.6,106,1,5,0)="  Line #2:   |6|"
^XMB(3.6,106,1,6,0)="  Line #3:   |7|"
^XMB(3.6,106,1,7,0)="  City:      |8|"
^XMB(3.6,106,1,8,0)="  State:     |9|"
^XMB(3.6,106,1,9,0)="  Zip Code:  |10|"
^XMB(3.6,106,1,10,0)=" Socioeconomic Factors"
^XMB(3.6,106,1,11,0)="  Business Size:   |11|"
^XMB(3.6,106,1,12,0)="  Minority Small:  |12|"
^XMB(3.6,106,1,13,0)="  Minority Large:  |13|"
^XMB(3.6,106,1,14,0)="  Woman Small:     |14|"
^XMB(3.6,106,1,15,0)="  Woman Large:     |15|"
^XMB(3.6,106,1,16,0)="  Disadv. Small:   |16|"
^XMB(3.6,106,1,17,0)="  Vietnam Vet:     |17|"
^XMB(3.6,106,1,18,0)="  Section 8(A):    |18|"
^XMB(3.6,106,1,19,0)=" Payment Address"
^XMB(3.6,106,1,20,0)="  Addr Name 1:  |19|"
^XMB(3.6,106,1,21,0)="  Addr Name 2:  |20|"
^XMB(3.6,106,1,22,0)="  Line #1:      |21|"
^XMB(3.6,106,1,23,0)="  Line #2:      |22|"
^XMB(3.6,106,1,24,0)="  Line #3:      |23|"
^XMB(3.6,106,1,25,0)="  City:         |24|"
^XMB(3.6,106,1,26,0)="  State         |25|"
^XMB(3.6,106,1,27,0)="  Zip Code:     |26|"
^XMB(3.6,106,1,28,0)=" "
^XMB(3.6,106,1,29,0)=" Please review this information and determine if the File #440 values for"
^XMB(3.6,106,1,30,0)=" this vendor need to be updated."
^XMB(3.6,106,1,31,0)=" "
^XMB(3.6,106,1,32,0)=" The vendor supplied this information in support of a quote for RFQ"
^XMB(3.6,106,1,33,0)=" # |27|."
^XMB(3.6,106,2,0)="^3.62P^1^1"
^XMB(3.6,106,2,1,0)="35"
^XMB(3.6,106,2,"B",35,1)=""
^XMB(3.6,106,3,0)="^^2^2^2960422^^^"
^XMB(3.6,106,3,1,0)="Vendor supplied information updating addresses and socio-economic status"
^XMB(3.6,106,3,2,0)="for vendor already in file #440."
^XMB(3.6,107,0)="DGQE PHOTO CAPTURE^|1|"
^XMB(3.6,107,1,0)="^^1^1^2961202^^^^"
^XMB(3.6,107,1,1,0)="  "
^XMB(3.6,107,2,0)="^3.62P^1^1"
^XMB(3.6,107,2,1,0)="37"
^XMB(3.6,107,2,"B",37,1)=""
^XMB(3.6,107,3,0)="^^2^2^2961202^^^^"
^XMB(3.6,107,3,1,0)="Bulletin sent at the [un]successful completion of generating workload"
^XMB(3.6,107,3,2,0)="information to be transmitted to the photo capture station via HL7."
^XMB(3.6,107,4,0)="^3.64A^1^1"
^XMB(3.6,107,4,1,0)="1"
^XMB(3.6,107,4,1,1,0)="^^2^2^2961127^^^^"
^XMB(3.6,107,4,1,1,1,0)="Subject of message - allows use of one bulletin for success and"
^XMB(3.6,107,4,1,1,2,0)="unsuccessful completion."
^XMB(3.6,109,0)="TIU PRN CONVERSION CLEAN^PROGRESS NOTE CONVERSION"
^XMB(3.6,109,1,0)="^^10^10^2950627^^^^"
^XMB(3.6,109,1,1,0)="         *******  CONVERSION COMPLETED  *******"
^XMB(3.6,109,1,2,0)="  "
^XMB(3.6,109,1,3,0)="The conversion of Progress Notes into Text Integration Utility"
^XMB(3.6,109,1,4,0)="(TIU) has successfully completed.  The Progress Note File "
^XMB(3.6,109,1,5,0)="^GMR(121 should be archived and removed from the system at your"
^XMB(3.6,109,1,6,0)="convenience."
^XMB(3.6,109,1,7,0)="   "
^XMB(3.6,109,1,8,0)="  CONVERSION STARTED:  |1|"
^XMB(3.6,109,1,9,0)="CONVERSION COMPLETED:  |2|"
^XMB(3.6,109,1,10,0)="     NOTES CONVERTED:  |3|"
^XMB(3.6,109,3,0)="^^3^3^2950627^^^^"
^XMB(3.6,109,3,1,0)="This bulletin will be delivered to the user who initiated the"
^XMB(3.6,109,3,2,0)="conversion as a notice that processing has completed without"
^XMB(3.6,109,3,3,0)="error."
^XMB(3.6,109,4,0)="^3.64A^3^3"
^XMB(3.6,109,4,1,0)="1"
^XMB(3.6,109,4,1,1,0)="^^1^1^2950619^"
^XMB(3.6,109,4,1,1,1,0)="Date/Time conversion began."
^XMB(3.6,109,4,2,0)="2"
^XMB(3.6,109,4,2,1,0)="^^1^1^2950619^"
^XMB(3.6,109,4,2,1,1,0)="Date/Time conversion completed."
^XMB(3.6,109,4,3,0)="3"
^XMB(3.6,109,4,3,1,0)="^^1^1^2950619^"
^XMB(3.6,109,4,3,1,1,0)="Number of notes successfully processed."
^XMB(3.6,110,0)="TIU PRN CONVERSION ERRORS^PROGRESS NOTE CONVERSION"
^XMB(3.6,110,1,0)="^^17^17^2970226^^^^"
^XMB(3.6,110,1,1,0)="           *******  CONVERSION COMPLETED  *******"
^XMB(3.6,110,1,2,0)="  "
^XMB(3.6,110,1,3,0)="The Progress Note conversion has completed.  The following is"
^XMB(3.6,110,1,4,0)="a listing of notes that were not converted during the processing."
^XMB(3.6,110,1,5,0)="   "
^XMB(3.6,110,1,6,0)="            PROGRESS NOTE CONVERSION ERROR REPORT"
^XMB(3.6,110,1,7,0)="            ====================================="
^XMB(3.6,110,1,8,0)="  "
^XMB(3.6,110,1,9,0)="  CONVERSION STARTED:  |1|"
^XMB(3.6,110,1,10,0)="CONVERSION COMPLETED:  |2|"
^XMB(3.6,110,1,11,0)="    "
^XMB(3.6,110,1,12,0)="     NOTES CONVERTED:  |3|"
^XMB(3.6,110,1,13,0)=" NOTES NOT CONVERTED:  |4|"
^XMB(3.6,110,1,14,0)="   "
^XMB(3.6,110,1,15,0)="========================================================================"
^XMB(3.6,110,1,16,0)="ERRORS:"
^XMB(3.6,110,1,17,0)="|5|"
^XMB(3.6,110,3,0)="^^5^5^2970226^^^^"
^XMB(3.6,110,3,1,0)="This bulletin will be delivered to the mail group indicated in"
^XMB(3.6,110,3,2,0)="response to ""mail group"" question.  If a mail group is not named,"
^XMB(3.6,110,3,3,0)="the user who initiated the conversion will be sent the bulletin."
^XMB(3.6,110,3,4,0)="It contains a listing of notes that could not be converted "
^XMB(3.6,110,3,5,0)="during processing."
^XMB(3.6,110,4,0)="^3.64A^5^5"
^XMB(3.6,110,4,1,0)="1"
^XMB(3.6,110,4,1,1,0)="^^1^1^2950619^"
^XMB(3.6,110,4,1,1,1,0)="Date/Time conversion started"
^XMB(3.6,110,4,2,0)="2"
^XMB(3.6,110,4,2,1,0)="^^1^1^2950619^"
^XMB(3.6,110,4,2,1,1,0)="Date/Time conversion completed"
^XMB(3.6,110,4,3,0)="3"
^XMB(3.6,110,4,3,1,0)="^^1^1^2950619^"
^XMB(3.6,110,4,3,1,1,0)="Number of notes successfully processed."
^XMB(3.6,110,4,4,0)="4"
^XMB(3.6,110,4,4,1,0)="^^2^2^2970226^^^^"
^XMB(3.6,110,4,4,1,1,0)="Number of notes not processed.  The listing which follows will"
^XMB(3.6,110,4,4,1,2,0)="show reason for failure."
^XMB(3.6,110,4,5,0)="5"
^XMB(3.6,110,4,5,1,0)="^^1^1^2970226^"
^XMB(3.6,110,4,5,1,1,0)="Listing of progress notes that were not converted."
^XMB(3.6,111,0)="TIU DS CONVERSION CLEAN^DISCHARGE SUMMARY CONVERSION"
^XMB(3.6,111,1,0)="^^10^10^2970213^^^^"
^XMB(3.6,111,1,1,0)="           *******  CONVERSION COMPLETED  *******"
^XMB(3.6,111,1,2,0)="  "
^XMB(3.6,111,1,3,0)="The conversion of Discharge Summaries to Text Integration Utility"
^XMB(3.6,111,1,4,0)="(TIU) has successfully completed.  The GMR REPORTS File "
^XMB(3.6,111,1,5,0)="^GMR(128, should be archived and removed from the system at your"
^XMB(3.6,111,1,6,0)="convenience."
^XMB(3.6,111,1,7,0)="   "
^XMB(3.6,111,1,8,0)="  CONVERSION STARTED:  |1|"
^XMB(3.6,111,1,9,0)="CONVERSION COMPLETED:  |2|"
^XMB(3.6,111,1,10,0)=" SUMMARIES CONVERTED:  |3|"
^XMB(3.6,111,3,0)="^^3^3^2970213^^^^"
^XMB(3.6,111,3,1,0)="This bulletin will be delivered to the user who initiated the"
^XMB(3.6,111,3,2,0)="conversion as a notice that processing has completed without"
^XMB(3.6,111,3,3,0)="error."
^XMB(3.6,111,4,0)="^3.64A^3^3"
^XMB(3.6,111,4,1,0)="1"
^XMB(3.6,111,4,1,1,0)="^^1^1^2970213^^"
^XMB(3.6,111,4,1,1,1,0)="Date/Time conversion began."
^XMB(3.6,111,4,2,0)="2"
^XMB(3.6,111,4,2,1,0)="^^1^1^2970213^^"
^XMB(3.6,111,4,2,1,1,0)="Date/Time conversion completed."
^XMB(3.6,111,4,3,0)="3"
^XMB(3.6,111,4,3,1,0)="^^1^1^2970213^^^^"
^XMB(3.6,111,4,3,1,1,0)="Number of Summaries successfully processed."
^XMB(3.6,112,0)="TIU DS CONVERSION ERRORS^DISCHARGE SUMMARY CONVERSION"
^XMB(3.6,112,1,0)="^^22^22^2970213^^^^"
^XMB(3.6,112,1,1,0)="             *******  CONVERSION COMPLETED  *******"
^XMB(3.6,112,1,2,0)="  "
^XMB(3.6,112,1,3,0)="The Discharge Summary conversion has completed.  One or more Summaries"
^XMB(3.6,112,1,4,0)="were not converted due to missing information, or inability to match"
^XMB(3.6,112,1,5,0)="the record to an existing admission."
^XMB(3.6,112,1,6,0)="   "
^XMB(3.6,112,1,7,0)="            DISCHARGE SUMMARY CONVERSION ERROR REPORT"
^XMB(3.6,112,1,8,0)="            ========================================="
^XMB(3.6,112,1,9,0)="  "
^XMB(3.6,112,1,10,0)="                     CONVERSION STARTED:  |1|"
^XMB(3.6,112,1,11,0)="                   CONVERSION COMPLETED:  |2|"
^XMB(3.6,112,1,12,0)="    "
^XMB(3.6,112,1,13,0)="                    SUMMARIES CONVERTED:  |3|"
^XMB(3.6,112,1,14,0)=""
^XMB(3.6,112,1,15,0)="                SUMMARIES NOT CONVERTED:  |4|"
^XMB(3.6,112,1,16,0)="                  - MISSING INFORMATION:  |5|"
^XMB(3.6,112,1,17,0)="                  -  NO ADMISSION FOUND:  |6|"
^XMB(3.6,112,1,18,0)="========================================================================"
^XMB(3.6,112,1,19,0)=""
^XMB(3.6,112,1,20,0)="You may see a list of the records which failed to convert by using the"
^XMB(3.6,112,1,21,0)="M global lister (i.e., ^%G) to examine the ^GMR(128,""CNV"",""FAIL"",DS #, "
^XMB(3.6,112,1,22,0)="subscript.  The DS # refers to the entry number in file 128."
^XMB(3.6,112,4,0)="^3.64A^6^6"
^XMB(3.6,112,4,1,0)="1"
^XMB(3.6,112,4,1,1,0)="^^1^1^2970213^^"
^XMB(3.6,112,4,1,1,1,0)="Date/Time conversion started"
^XMB(3.6,112,4,2,0)="2"
^XMB(3.6,112,4,2,1,0)="^^1^1^2970213^^"
^XMB(3.6,112,4,2,1,1,0)="Date/Time conversion completed"
^XMB(3.6,112,4,3,0)="3"
^XMB(3.6,112,4,3,1,0)="^^1^1^2970213^^"
^XMB(3.6,112,4,3,1,1,0)="Number of Summaries successfully processed."
^XMB(3.6,112,4,4,0)="4"
^XMB(3.6,112,4,4,1,0)="^^1^1^2970213^^^^"
^XMB(3.6,112,4,4,1,1,0)="Number of Summaries not Converted."
^XMB(3.6,112,4,5,0)="5"
^XMB(3.6,112,4,5,1,0)="^^2^2^2970213^"
^XMB(3.6,112,4,5,1,1,0)="Number of Summaries which were not converted due to missing"
^XMB(3.6,112,4,5,1,2,0)="information."
^XMB(3.6,112,4,6,0)="6"
^XMB(3.6,112,4,6,1,0)="^^2^2^2970213^"
^XMB(3.6,112,4,6,1,1,0)="Number of Summaries which failed to convert due to current admission"
^XMB(3.6,112,4,6,1,2,0)="not being found."
^XMB(3.6,113,0)="ABSV SERVER^VOLUNTARY TIMEKEEPING SERVER MESSAGE"
^XMB(3.6,113,1,0)="^^6^6^2970915^"
^XMB(3.6,113,1,1,0)="Volunteer Timekeeping Server Message: |1|"
^XMB(3.6,113,1,2,0)="  "
^XMB(3.6,113,1,3,0)="Sender: |2|"
^XMB(3.6,113,1,4,0)="Subject: |4|"
^XMB(3.6,113,1,5,0)="Message #: |5|"
^XMB(3.6,113,1,6,0)="Comments: |6|"
^XMB(3.6,113,3,0)="^^2^2^2970915^^^^"
^XMB(3.6,113,3,1,0)="This is the standard, or default, bulletin used by the menu system"
^XMB(3.6,113,3,2,0)="to notify IRM staff and users about server request events."
^XMB(3.6,113,4,0)="^3.64A^6^6"
^XMB(3.6,113,4,1,0)="1"
^XMB(3.6,113,4,1,1,0)="^^2^2^2900122^^^"
^XMB(3.6,113,4,1,1,1,0)="The date and time in human-readable form when the server request"
^XMB(3.6,113,4,1,1,2,0)="was recieved."
^XMB(3.6,113,4,2,0)="2"
^XMB(3.6,113,4,2,1,0)="^^1^1^2900122^^^"
^XMB(3.6,113,4,2,1,1,0)="The name of the sender of the server request."
^XMB(3.6,113,4,3,0)="3"
^XMB(3.6,113,4,3,1,0)="^^1^1^2900122^^"
^XMB(3.6,113,4,3,1,1,0)="The name of the option which was requested by Mailman."
^XMB(3.6,113,4,4,0)="4"
^XMB(3.6,113,4,4,1,0)="^^1^1^2900122^^^^"
^XMB(3.6,113,4,4,1,1,0)="The subject of the message which requested a server."
^XMB(3.6,113,4,5,0)="5"
^XMB(3.6,113,4,5,1,0)="^^1^1^2900122^^^^"
^XMB(3.6,113,4,5,1,1,0)="The internal number of the message requesting a server."
^XMB(3.6,113,4,6,0)="6"
^XMB(3.6,113,4,6,1,0)="^^3^3^2960206^^^^"
^XMB(3.6,113,4,6,1,1,0)="Comments appended to the bulleting.  These may include errors trapped"
^XMB(3.6,113,4,6,1,2,0)="by the server software and/or the operating system, as well as general"
^XMB(3.6,113,4,6,1,3,0)="purpose messages."
^XMB(3.6,114,0)="PRS LAST SAT OT/CT^Call Back OT/CT is being paid"
^XMB(3.6,114,1,0)="12^^25^25^2970613^^"
^XMB(3.6,114,1,1,0)="|1| worked less than 2 hours of overtime or comptime "
^XMB(3.6,114,1,2,0)="on the last saturday of pay period |2|.  This work has been "
^XMB(3.6,114,1,3,0)="calculated as two hours of call back and is included in the 8B string."
^XMB(3.6,114,1,4,0)="The work was posted as ending at midnight.  At the time that the "
^XMB(3.6,114,1,5,0)="supervisor certified this timecard the work ending at midnight was not "
^XMB(3.6,114,1,6,0)="abutted to a tour in the next pay period."
^XMB(3.6,114,1,7,0)=""
^XMB(3.6,114,1,8,0)="The pay period can be reviewed through the payroll main menu option."
^XMB(3.6,114,1,9,0)=""
^XMB(3.6,114,1,10,0)="           ""Display Employee Pay Period"""
^XMB(3.6,114,1,11,0)=""
^XMB(3.6,114,1,12,0)="If this period of work is supposed to be abbutted to a tour beginning"
^XMB(3.6,114,1,13,0)="at midnight on Sunday of pay period |3|, then perform the "
^XMB(3.6,114,1,14,0)="following actions in order."
^XMB(3.6,114,1,15,0)=""
^XMB(3.6,114,1,16,0)="  1.  The timekeeper for T&L unit |4| should update "
^XMB(3.6,114,1,17,0)="      |1|'s tour of duty for pay period |3| through "
^XMB(3.6,114,1,18,0)="      the option, ""Enter/Edit Employee Tour of Duty""."
^XMB(3.6,114,1,19,0)=""
^XMB(3.6,114,1,20,0)="  2.  Payroll should return |1|'s record to the "
^XMB(3.6,114,1,21,0)="      timekeeper for T&L unit |4| through option,"
^XMB(3.6,114,1,22,0)="      ""Return Record to Timekeeper"".  "
^XMB(3.6,114,1,23,0)=""
^XMB(3.6,114,1,24,0)="  3.  The supervisor for T&L unit |4| should certify "
^XMB(3.6,114,1,25,0)="      |1|'s record again."
^XMB(3.6,114,3,0)="^^14^14^2970613^^^^"
^XMB(3.6,114,3,1,0)="  This bulletin is designed to warn payroll when a nurse has worked less"
^XMB(3.6,114,3,2,0)="than 2 hours overtime or comptime and is being paid 2 hrs call back. The"
^XMB(3.6,114,3,3,0)="bulletin is only sent when the OT/CT is worked on the last saturday of"
^XMB(3.6,114,3,4,0)="the pay period and the work is performed up to midnight. call back. "
^XMB(3.6,114,3,5,0)=""
^XMB(3.6,114,3,6,0)="  It is crucial that when timekeepers are posting overtime for nurses "
^XMB(3.6,114,3,7,0)="under the following conditions that they are sure that the tour of duty "
^XMB(3.6,114,3,8,0)="for the new pay period is up to date."
^XMB(3.6,114,3,9,0)=""
^XMB(3.6,114,3,10,0)="     1.  OT ends at midnight on the last saturday of the pay period."
^XMB(3.6,114,3,11,0)="     2.  Sunday tour begins at midnight"
^XMB(3.6,114,3,12,0)="     3.  Overtime is abutted to the Sunday tour"
^XMB(3.6,114,3,13,0)="     4.  OT/CT is less than 2 hours."
^XMB(3.6,114,3,14,0)=""
^XMB(3.6,114,4,0)="^3.64A^4^4"
^XMB(3.6,114,4,1,0)="1"
^XMB(3.6,114,4,1,1,0)="^^1^1^2970612^"
^XMB(3.6,114,4,1,1,1,0)="Employee's Name"
^XMB(3.6,114,4,2,0)="2"
^XMB(3.6,114,4,2,1,0)="^^1^1^2970612^"
^XMB(3.6,114,4,2,1,1,0)="Pay Period being decomposed."
^XMB(3.6,114,4,3,0)="3"
^XMB(3.6,114,4,3,1,0)="^^1^1^2970612^^^"
^XMB(3.6,114,4,3,1,1,0)="Next Pay Period."
^XMB(3.6,114,4,4,0)="4"
^XMB(3.6,114,4,4,1,0)="^^1^1^2970613^"
^XMB(3.6,114,4,4,1,1,0)="Time and Leave unit of the employee and their supervisor."
^XMB(3.6,115,0)="VAFH ADT/HL7 ERROR^ADT/HL7 ERROR BULLETIN"
^XMB(3.6,115,1,0)="^^5^5^2970422^^^^"
^XMB(3.6,115,1,1,0)=" "
^XMB(3.6,115,1,2,0)="An error has occurred while generating a message/segment for "
^XMB(3.6,115,1,3,0)="|1| for event on |2|, pivot number |3|."
^XMB(3.6,115,1,4,0)=" "
^XMB(3.6,115,1,5,0)="Error Message(s):"
^XMB(3.6,115,3,0)="^^2^2^2970422^^^^"
^XMB(3.6,115,3,1,0)="Bulletin for error messages that occur while generating a message or"
^XMB(3.6,115,3,2,0)="segment for VAFH PIMS HL7."
^XMB(3.6,115,4,0)="^3.64A^3^3"
^XMB(3.6,115,4,1,0)="1"
^XMB(3.6,115,4,1,1,0)="^^1^1^2950531^"
^XMB(3.6,115,4,1,1,1,0)="Patient's DFN"
^XMB(3.6,115,4,2,0)="2"
^XMB(3.6,115,4,2,1,0)="^^1^1^2950531^"
^XMB(3.6,115,4,2,1,1,0)="Date/time of the event."
^XMB(3.6,115,4,3,0)="3"
^XMB(3.6,115,4,3,1,0)="^^1^1^2970422^^^^"
^XMB(3.6,115,4,3,1,1,0)="Pivot number for the event."
^XMB(3.6,116,0)="SCDX INCOMPLETE ENCOUNTER MGMT^|1|"
^XMB(3.6,116,1,0)="^^1^1^2970815^^^"
^XMB(3.6,116,1,1,0)=" "
^XMB(3.6,116,3,0)="^^3^3^2970815^^^^"
^XMB(3.6,116,3,1,0)="Bulletin sent at completion of Incomplete Encounter Mgmt report"
^XMB(3.6,116,3,2,0)="generation.  Allows single bulletin to be used for multiple"
^XMB(3.6,116,3,3,0)="reports."
^XMB(3.6,116,4,0)="^3.64A^1^1"
^XMB(3.6,116,4,1,0)="1"
^XMB(3.6,116,4,1,1,0)="^^1^1^2970718^^^"
^XMB(3.6,116,4,1,1,1,0)="Subject of message - allows multiple reports to use single bulletin."
^XMB(3.6,117,0)="LBRYMANL^UNABLE TO PROCESS TITLE"
^XMB(3.6,117,1,0)="^^3^3^2960429^^"
^XMB(3.6,117,1,1,0)="Title transaction from FORUM was unable to be processed because"
^XMB(3.6,117,1,2,0)="of title differences between your system and FORUM.  Please"
^XMB(3.6,117,1,3,0)="process title from option, 'Process Titles from FORUM Manually'."
^XMB(3.6,117,3,0)="^^4^4^2960429^^"
^XMB(3.6,117,3,1,0)="This bulletin is to notify the appropriate Library users when"
^XMB(3.6,117,3,2,0)="transactions received from FORUM cannot be processed because"
^XMB(3.6,117,3,3,0)="of title problems.  Users receiving this message should process"
^XMB(3.6,117,3,4,0)="the title manually."
^XMB(3.6,118,0)="OOPS CASE^ASISTS Case Notification"
^XMB(3.6,118,1,0)="^3.61A^19^19^3040220^^^^"
^XMB(3.6,118,1,1,0)="              ****INFORMATION ONLY***"
^XMB(3.6,118,1,2,0)="An incident (injury, illness or accident) has occurred."
^XMB(3.6,118,1,3,0)=" "
^XMB(3.6,118,1,4,0)="Date of incident:        |2|"
^XMB(3.6,118,1,5,0)="Case #:                  |3|"
^XMB(3.6,118,1,6,0)="Injury/Illness:          |6|"
^XMB(3.6,118,1,7,0)="  "
^XMB(3.6,118,1,8,0)="The 1st line supervisor is required to:"
^XMB(3.6,118,1,9,0)=" "
^XMB(3.6,118,1,10,0)="a. Complete a Report of Accident through the option:"
^XMB(3.6,118,1,11,0)="     Complete/Validate/Sign Accident Report 2162."
^XMB(3.6,118,1,12,0)=" "
^XMB(3.6,118,1,13,0)="b. Inform the injured employee on rights and benefits for completing"
^XMB(3.6,118,1,14,0)="   the CA-1 (Injury) or CA-2 (Illness) Compensation Claims."
^XMB(3.6,118,1,15,0)=""
^XMB(3.6,118,1,16,0)="The supervisors on this case are:"
^XMB(3.6,118,1,17,0)=" "
^XMB(3.6,118,1,18,0)="Supervisor:           |4|"
^XMB(3.6,118,1,19,0)="Secondary Supervisor: |5| "
^XMB(3.6,118,3,0)="^3.63^2^2^3040220^^^^"
^XMB(3.6,118,3,1,0)="This bulletin will notify interested parties of the creation"
^XMB(3.6,118,3,2,0)="of a Case."
^XMB(3.6,118,4,0)="^3.64A^6^5"
^XMB(3.6,118,4,2,0)="2"
^XMB(3.6,118,4,2,1,0)="^3.65^1^1^3030602^^^^"
^XMB(3.6,118,4,2,1,1,0)="Date of Injury"
^XMB(3.6,118,4,3,0)="3"
^XMB(3.6,118,4,3,1,0)="^3.65^1^1^3000420^^^^"
^XMB(3.6,118,4,3,1,1,0)="Case#"
^XMB(3.6,118,4,4,0)="4"
^XMB(3.6,118,4,4,1,0)="^^1^1^3000420^"
^XMB(3.6,118,4,4,1,1,0)="Supervisor for employee"
^XMB(3.6,118,4,5,0)="5"
^XMB(3.6,118,4,5,1,0)="^3.65^1^1^3030602^^^"
^XMB(3.6,118,4,5,1,1,0)="Secondary Supervisor"
^XMB(3.6,118,4,6,0)="6"
^XMB(3.6,118,4,6,1,0)="^3.65^2^2^3040220^^^^"
^XMB(3.6,118,4,6,1,1,0)="This parameter indicates whether the claim was a CA1 or CA2 so the Supervisor "
^XMB(3.6,118,4,6,1,2,0)="knows when they recieve the case notification."
^XMB(3.6,119,0)="OOPS SAFETY^Safety Officer Notification"
^XMB(3.6,119,1,0)="^3.61A^5^5^3000721^^^^"
^XMB(3.6,119,1,1,0)="A Report of Accident and Illness has been released for your review."
^XMB(3.6,119,1,2,0)=" "
^XMB(3.6,119,1,3,0)="|1|"
^XMB(3.6,119,1,4,0)="Date of Injury/Illness: |2|"
^XMB(3.6,119,1,5,0)="Case# |3|"
^XMB(3.6,119,3,0)="^3.63^2^2^3000721^^^^"
^XMB(3.6,119,3,1,0)="This Bulletin will notify the Safety Officer of cases ready"
^XMB(3.6,119,3,2,0)="for review."
^XMB(3.6,119,4,0)="^3.64A^3^3"
^XMB(3.6,119,4,1,0)="1"
^XMB(3.6,119,4,1,1,0)="^^1^1^2980325^"
^XMB(3.6,119,4,1,1,1,0)="Name of involved person"
^XMB(3.6,119,4,2,0)="2"
^XMB(3.6,119,4,2,1,0)="^^1^1^2980325^"
^XMB(3.6,119,4,2,1,1,0)="Date/time of injury/illness"
^XMB(3.6,119,4,3,0)="3"
^XMB(3.6,119,4,3,1,0)="^3.65^1^1^3000721^^^^"
^XMB(3.6,119,4,3,1,1,0)="Case # of Incident"
^XMB(3.6,120,0)="OOPS EMPLOYEE^Employee Notification to Supervisor"
^XMB(3.6,120,1,0)="^3.61A^8^8^3000908^^^^"
^XMB(3.6,120,1,1,0)="A CA-1 or CA-2 for the following incident has been signed by the employee."
^XMB(3.6,120,1,2,0)=" "
^XMB(3.6,120,1,3,0)="Date of Incident: |2|"
^XMB(3.6,120,1,4,0)="Case# |3|"
^XMB(3.6,120,1,5,0)=" "
^XMB(3.6,120,1,6,0)="The Incident Report is ready for review by the supervisor. It must be"
^XMB(3.6,120,1,7,0)="completed and filed with the Agency Worker's Compensation office within 2-3 "
^XMB(3.6,120,1,8,0)="working days."
^XMB(3.6,120,3,0)="^3.63^2^2^3000908^^^^"
^XMB(3.6,120,3,1,0)="This Bulletin will notify supervisors and union representatives that a"
^XMB(3.6,120,3,2,0)="CA-1 or CA-2 has been signed by an employee."
^XMB(3.6,120,4,0)="^3.64A^3^2"
^XMB(3.6,120,4,2,0)="2"
^XMB(3.6,120,4,2,1,0)="^^1^1^2981207^^^^"
^XMB(3.6,120,4,2,1,1,0)="Date/time of incident."
^XMB(3.6,120,4,3,0)="3"
^XMB(3.6,120,4,3,1,0)="^3.65^1^1^3000908^^^^"
^XMB(3.6,120,4,3,1,1,0)="Case # of incident."
^XMB(3.6,121,0)="OOPS BILL OF RIGHTS^Employee Bill of Rights for Accidents and Occupational Illnesses"
^XMB(3.6,121,1,0)="^3.61A^18^18^3010314^^^^"
^XMB(3.6,121,1,1,0)=" "
^XMB(3.6,121,1,2,0)="EMPLOYEES' BILL OF RIGHTS FOR ACCIDENT AND OCCUPATIONAL ILLNESSES"
^XMB(3.6,121,1,3,0)=" "
^XMB(3.6,121,1,4,0)="  The Federal Employees' Compensation Act (FECA) describes an employee's"
^XMB(3.6,121,1,5,0)="  rights and entitlements to benefits following a work-related"
^XMB(3.6,121,1,6,0)="  injury or illness."
^XMB(3.6,121,1,7,0)=" "
^XMB(3.6,121,1,8,0)="  You have the right to file a CA-1 (injury) or CA-2 (illness), to apply"
^XMB(3.6,121,1,9,0)="  for compensation."
^XMB(3.6,121,1,10,0)=" "
^XMB(3.6,121,1,11,0)="  Entitlements include the option to receive medical treatment by either"
^XMB(3.6,121,1,12,0)="  the VA Employee Health Unit or by your primary care physician."
^XMB(3.6,121,1,13,0)=" "
^XMB(3.6,121,1,14,0)="  You have the right to request union representation."
^XMB(3.6,121,1,15,0)=" "
^XMB(3.6,121,1,16,0)="  For additional information and explanation of your rights and"
^XMB(3.6,121,1,17,0)="  responsibilities, contact your Workers' Compensation"
^XMB(3.6,121,1,18,0)="  Specialist/Coordinator/Manager."
^XMB(3.6,121,3,0)="^3.63^1^1^3010314^^^^"
^XMB(3.6,121,3,1,0)="The Employee Bill of Rights for Accidents and Occupational Illnesses"
^XMB(3.6,122,0)="OOPS SUPERVISOR^Supervisor has signed CA-1/CA-2"
^XMB(3.6,122,1,0)="^3.61A^4^4^3000418^^^^"
^XMB(3.6,122,1,1,0)="The supervisor has signed the CA-1 or CA-2 for the following incident:"
^XMB(3.6,122,1,2,0)=" "
^XMB(3.6,122,1,3,0)="Date of Incident: |2|"
^XMB(3.6,122,1,4,0)="Case# |3|"
^XMB(3.6,122,3,0)="^3.63^2^2^3000418^^^^"
^XMB(3.6,122,3,1,0)="This message is sent to the OOPS UNION mail group when a supervisor signs"
^XMB(3.6,122,3,2,0)="a CA-1 or CA-2"
^XMB(3.6,122,4,0)="^3.64A^3^2"
^XMB(3.6,122,4,2,0)="2"
^XMB(3.6,122,4,2,1,0)="^^1^1^2981207^^"
^XMB(3.6,122,4,2,1,1,0)="Date/Time of Incident"
^XMB(3.6,122,4,3,0)="3"
^XMB(3.6,122,4,3,1,0)="^^1^1^2981207^^^^"
^XMB(3.6,122,4,3,1,1,0)="Case # of incident"
^XMB(3.6,123,0)="SPNLBULLETIN^SERVER REQUST NOTICE"
^XMB(3.6,123,2,0)="^3.62P^1^1"
^XMB(3.6,123,2,1,0)="86"
^XMB(3.6,123,2,"B",86,1)=""
^XMB(3.6,123,3,0)="^^3^3^2980520^^^^"
^XMB(3.6,123,3,1,0)="This bulletin is used to transfer data to the National SCD registry"
^XMB(3.6,123,3,2,0)="program office.  It should be associated to the SPNL SCD COORDINATOR"
^XMB(3.6,123,3,3,0)="mail group."
^XMB(3.6,123,4,0)="^3.64A^6^6"
^XMB(3.6,123,4,1,0)="1"
^XMB(3.6,123,4,2,0)="2"
^XMB(3.6,123,4,3,0)="3"
^XMB(3.6,123,4,4,0)="4"
^XMB(3.6,123,4,5,0)="5"
^XMB(3.6,123,4,6,0)="6"
^XMB(3.6,124,0)="PRCH GPF^GPF |1| Transaction Return Notification"
^XMB(3.6,124,1,0)="^^6^6^2980406^^^^"
^XMB(3.6,124,1,1,0)="The following |1| transaction was not processed"
^XMB(3.6,124,1,2,0)="by |2| and is returned without action"
^XMB(3.6,124,1,3,0)="for the reason(s) indicated."
^XMB(3.6,124,1,4,0)=" "
^XMB(3.6,124,1,5,0)="Transaction number: |3|   Amount: $|4|"
^XMB(3.6,124,1,6,0)=" "
^XMB(3.6,124,3,0)="^^1^1^2980406^^^^"
^XMB(3.6,124,3,1,0)="General post fund transaction return from Fiscal bulletin"
^XMB(3.6,124,4,0)="^3.64A^4^4"
^XMB(3.6,124,4,1,0)="1"
^XMB(3.6,124,4,1,1,0)="^^1^1^2980324^"
^XMB(3.6,124,4,1,1,1,0)="Form type as 1358 or 2237"
^XMB(3.6,124,4,2,0)="2"
^XMB(3.6,124,4,2,1,0)="^^1^1^2980324^"
^XMB(3.6,124,4,2,1,1,0)="Department that is returning the transaction"
^XMB(3.6,124,4,3,0)="3"
^XMB(3.6,124,4,3,1,0)="^^1^1^2980324^"
^XMB(3.6,124,4,3,1,1,0)="Transaction number"
^XMB(3.6,124,4,4,0)="4"
^XMB(3.6,124,4,4,1,0)="^^1^1^2980406^^^^"
^XMB(3.6,124,4,4,1,1,0)="Dollar amount of transaction"
^XMB(3.6,125,0)="TIU RE-INDEX DOCUMENT FILE^RE-INDEX TIU DOCUMENT FILE"
^XMB(3.6,125,1,0)="^^19^19^2980921^^^^"
^XMB(3.6,125,1,1,0)="    *******  RE-INDEXING OF TIU DOCUMENTS COMPLETED  *******"
^XMB(3.6,125,1,2,0)="  "
^XMB(3.6,125,1,3,0)="The Re-indexing of the TIU DOCUMENTS file (#8925) has successfully"
^XMB(3.6,125,1,4,0)="completed."
^XMB(3.6,125,1,5,0)="   "
^XMB(3.6,125,1,6,0)="                         RE-INDEX STARTED:  |1|"
^XMB(3.6,125,1,7,0)="                       RE-INDEX COMPLETED:  |2|"
^XMB(3.6,125,1,8,0)=""
^XMB(3.6,125,1,9,0)="           COMPLETED Documents Re-indexed:            |4|"
^XMB(3.6,125,1,10,0)="            UNSIGNED Documents Re-indexed:             |5|"
^XMB(3.6,125,1,11,0)="          UNCOSIGNED Documents Re-indexed:             |6|"
^XMB(3.6,125,1,12,0)=""
^XMB(3.6,125,1,13,0)="          TOTAL # of Documents Re-indexed:            |7|"
^XMB(3.6,125,1,14,0)="                             ELAPSED TIME:        |8|"
^XMB(3.6,125,1,15,0)="                         DOCUMENTS/SECOND:           |9|"
^XMB(3.6,125,1,16,0)=""
^XMB(3.6,125,1,17,0)="NOTE: Not every document in file 8925 will be included in one of these"
^XMB(3.6,125,1,18,0)="indices, so you shouldn't expect agreement between the total # of"
^XMB(3.6,125,1,19,0)="documents re-indexed and the total # of entries in the file."
^XMB(3.6,125,3,0)="^^2^2^2980921^^^^"
^XMB(3.6,125,3,1,0)="This bulletin will be delivered to the user who initiated the re-indexing"
^XMB(3.6,125,3,2,0)="process as a notice that processing has completed without error."
^XMB(3.6,125,4,0)="^3.64A^9^9"
^XMB(3.6,125,4,1,0)="1"
^XMB(3.6,125,4,1,1,0)="^^1^1^2980918^^^^"
^XMB(3.6,125,4,1,1,1,0)="Date/Time re-indexing began."
^XMB(3.6,125,4,2,0)="2"
^XMB(3.6,125,4,2,1,0)="^^1^1^2980918^^^^"
^XMB(3.6,125,4,2,1,1,0)="Date/Time re-indexing completed."
^XMB(3.6,125,4,3,0)="3"
^XMB(3.6,125,4,3,1,0)="^^1^1^2980918^^^^"
^XMB(3.6,125,4,3,1,1,0)="Number of Documents added to the ACLPT X-ref."
^XMB(3.6,125,4,4,0)="4"
^XMB(3.6,125,4,4,1,0)="^^2^2^2980918^^^^"
^XMB(3.6,125,4,4,1,1,0)="Number of Documents added to the ACLSB X-ref."
^XMB(3.6,125,4,4,1,2,0)=""
^XMB(3.6,125,4,5,0)="5"
^XMB(3.6,125,4,5,1,0)="^^1^1^2980918^^^^"
^XMB(3.6,125,4,5,1,1,0)="Number of Documents added to the ACLAU X-ref."
^XMB(3.6,125,4,6,0)="6"
^XMB(3.6,125,4,6,1,0)="^^1^1^2980918^^^^"
^XMB(3.6,125,4,6,1,1,0)="Number of Documents added to the ACLEC X-ref."
^XMB(3.6,125,4,7,0)="7"
^XMB(3.6,125,4,7,1,0)="^^1^1^2980918^"
^XMB(3.6,125,4,7,1,1,0)="TOTAL Number of Documents Re-indexed."
^XMB(3.6,125,4,8,0)="8"
^XMB(3.6,125,4,8,1,0)="^^1^1^2980918^"
^XMB(3.6,125,4,8,1,1,0)="Elapsed Time."
^XMB(3.6,125,4,9,0)="9"
^XMB(3.6,125,4,9,1,0)="^^1^1^2980918^^"
^XMB(3.6,125,4,9,1,1,0)="Re-indexing rate (documents/sec)"
^XMB(3.6,126,0)="OR CONVERSION ERRORS^OE/RR Version 3 Protocol File Conversion"
^XMB(3.6,126,1,0)="^^6^6^2970421^^^"
^XMB(3.6,126,1,1,0)="The following |1| protocol(s) were not successfully converted to a new"
^XMB(3.6,126,1,2,0)="entry in the Order Dialog file (#101.41).  Use the CPRS Implementation"
^XMB(3.6,126,1,3,0)="Menu to create dialogs for these protocols, if desired."
^XMB(3.6,126,1,4,0)="   "
^XMB(3.6,126,1,5,0)="Protocol IEN   Protocol Name"
^XMB(3.6,126,1,6,0)="------------   -------------"
^XMB(3.6,126,3,0)="^^5^5^2970421^^^^"
^XMB(3.6,126,3,1,0)="This bulletin will be delivered to the user who initiated the Protocol file"
^XMB(3.6,126,3,2,0)="conversion upon its completion.  Listed here will be the protocol entries"
^XMB(3.6,126,3,3,0)="for which conversion was attempted but not successful; not all protocols"
^XMB(3.6,126,3,4,0)="will be converted by this process, only those which are currently in use"
^XMB(3.6,126,3,5,0)="via an active Add Orders menu."
^XMB(3.6,126,4,0)="^3.64A^1^1"
^XMB(3.6,126,4,1,0)="1"
^XMB(3.6,126,4,1,1,0)="^^2^2^2970421^^^^"
^XMB(3.6,126,4,1,1,1,0)="This is the total number of protocols found that could not be converted"
^XMB(3.6,126,4,1,1,2,0)="to a new entry in the Order Dialog file."
^XMB(3.6,127,0)="OCX POSTINIT COMPLETE^Order Check Postinit Completed"
^XMB(3.6,127,1,0)="^^8^8^2971119^^^^"
^XMB(3.6,127,1,1,0)=" "
^XMB(3.6,127,1,2,0)="     The Order Check Post Init has completed "
^XMB(3.6,127,1,3,0)="      on |2| by |3|."
^XMB(3.6,127,1,4,0)=" "
^XMB(3.6,127,1,5,0)="   |1|"
^XMB(3.6,127,1,6,0)=" "
^XMB(3.6,127,1,7,0)="     Elapsed Time: |4|."
^XMB(3.6,127,1,8,0)=" "
^XMB(3.6,127,3,0)="^^2^2^2971119^^^^"
^XMB(3.6,127,3,1,0)="Bulletin sent to Order Check Expert System Developers"
^XMB(3.6,127,3,2,0)="when the OCX package postinits have completed"
^XMB(3.6,127,4,0)="^3.64A^4^4"
^XMB(3.6,127,4,1,0)="1"
^XMB(3.6,127,4,1,1,0)="^^1^1^2970421^^"
^XMB(3.6,127,4,1,1,1,0)="Version Number of Installed OCX package"
^XMB(3.6,127,4,2,0)="2"
^XMB(3.6,127,4,2,1,0)="^^1^1^2970421^^"
^XMB(3.6,127,4,2,1,1,0)="Date Postinit Finished"
^XMB(3.6,127,4,3,0)="3"
^XMB(3.6,127,4,3,1,0)="^^1^1^2970421^^^"
^XMB(3.6,127,4,3,1,1,0)="Person who installed package"
^XMB(3.6,127,4,4,0)="4"
^XMB(3.6,127,4,4,1,0)="^^2^2^2971114^^^^"
^XMB(3.6,127,4,4,1,1,0)="Elapsed time in minutes and seconds that the "
^XMB(3.6,127,4,4,1,2,0)="compiler took to complete."
^XMB(3.6,128,0)="OCX COMPILER RUN^Order Check Compiler Status"
^XMB(3.6,128,1,0)="^^14^14^2971128^^^^"
^XMB(3.6,128,1,1,0)=" "
^XMB(3.6,128,1,2,0)="  The Order Check routine compiler |11| "
^XMB(3.6,128,1,3,0)="      on |2| by |3|."
^XMB(3.6,128,1,4,0)=" "
^XMB(3.6,128,1,5,0)="       |1|"
^XMB(3.6,128,1,6,0)=" "
^XMB(3.6,128,1,7,0)="                   Elapsed time: |4|"
^XMB(3.6,128,1,8,0)="                                 |5|"
^XMB(3.6,128,1,9,0)="           Execution Trace Mode: |6|"
^XMB(3.6,128,1,10,0)="      Elapsed time Logging Mode: |7|"
^XMB(3.6,128,1,11,0)="          Raw Data Logging Mode: |8| "
^XMB(3.6,128,1,12,0)="        Lines of code generated: |9|"
^XMB(3.6,128,1,13,0)=" "
^XMB(3.6,128,1,14,0)="      |10|"
^XMB(3.6,128,3,0)="^^2^2^2971128^^^^"
^XMB(3.6,128,3,1,0)="Bulletin sent to Order Check Expert System Developers"
^XMB(3.6,128,3,2,0)="when the OCX routine compiler has finished."
^XMB(3.6,128,4,0)="^3.64A^11^11"
^XMB(3.6,128,4,1,0)="1"
^XMB(3.6,128,4,1,1,0)="^^1^1^2970421^^"
^XMB(3.6,128,4,1,1,1,0)="Version Number of Installed OCX package"
^XMB(3.6,128,4,2,0)="2"
^XMB(3.6,128,4,2,1,0)="^^1^1^2970421^^"
^XMB(3.6,128,4,2,1,1,0)="Date Postinit Finished"
^XMB(3.6,128,4,3,0)="3"
^XMB(3.6,128,4,3,1,0)="^^1^1^2970421^^^"
^XMB(3.6,128,4,3,1,1,0)="Person who installed package"
^XMB(3.6,128,4,4,0)="4"
^XMB(3.6,128,4,4,1,0)="^^1^1^2970422^"
^XMB(3.6,128,4,4,1,1,0)="Elapsed time in minutes and seconds that the code compiler ran."
^XMB(3.6,128,4,5,0)="5"
^XMB(3.6,128,4,5,1,0)="^^1^1^2970422^"
^XMB(3.6,128,4,5,1,1,0)="Automatic install mode flag"
^XMB(3.6,128,4,6,0)="6"
^XMB(3.6,128,4,6,1,0)="^^1^1^2970422^"
^XMB(3.6,128,4,6,1,1,0)="Execution Trace mode flag"
^XMB(3.6,128,4,7,0)="7"
^XMB(3.6,128,4,7,1,0)="^^1^1^2970422^"
^XMB(3.6,128,4,7,1,1,0)="Elapsed time logging flag"
^XMB(3.6,128,4,8,0)="8"
^XMB(3.6,128,4,8,1,0)="^^1^1^2970423^^^^"
^XMB(3.6,128,4,8,1,1,0)="Raw Data Logging flag"
^XMB(3.6,128,4,9,0)="9"
^XMB(3.6,128,4,9,1,0)="^^1^1^2970423^"
^XMB(3.6,128,4,9,1,1,0)="Number of lines of code the compiler generated."
^XMB(3.6,128,4,10,0)="10"
^XMB(3.6,128,4,10,1,0)="^^1^1^2971114^^^^"
^XMB(3.6,128,4,10,1,1,0)="Optional Error message"
^XMB(3.6,128,4,11,0)="11"
^XMB(3.6,128,4,11,1,0)="^^2^2^2971119^^"
^XMB(3.6,128,4,11,1,1,0)="This parameter will be either 'has completed normally or 'ABORTED'"
^XMB(3.6,128,4,11,1,2,0)="depending on the success of the compiler run"
^XMB(3.6,129,0)="ORB SURROGATE RECIPIENT^Surrogate Recipient for OE/RR Notifications/Alerts"
^XMB(3.6,129,1,0)="^^2^2^2971209^^"
^XMB(3.6,129,1,1,0)="     |1|"
^XMB(3.6,129,1,2,0)="     |2|"
^XMB(3.6,129,3,0)="^^3^3^2971209^^"
^XMB(3.6,129,3,1,0)="This bulletin is used to notify users when they have been identified as the"
^XMB(3.6,129,3,2,0)="surrogate recipient of another user's OE/RR Notifications/Alerts.  It is"
^XMB(3.6,129,3,3,0)="also sent when they are removed as the surrogate recipient."
^XMB(3.6,129,4,0)="^3.64A^2^2"
^XMB(3.6,129,4,1,0)="1"
^XMB(3.6,129,4,1,1,0)="^^1^1^2971209^"
^XMB(3.6,129,4,1,1,1,0)="First line of text."
^XMB(3.6,129,4,2,0)="2"
^XMB(3.6,129,4,2,1,0)="^^1^1^2971209^"
^XMB(3.6,129,4,2,1,1,0)="Second line of text."
^XMB(3.6,130,0)="RG CIRN DEMOGRAPHIC ISSUES^NOTIFICATION FROM MPI/PD PACKAGE"
^XMB(3.6,130,1,0)="^3.61A^3^3^3010905^^^^"
^XMB(3.6,130,1,1,0)="An event has occurred on your system which may require further action."
^XMB(3.6,130,1,2,0)=" "
^XMB(3.6,130,1,3,0)=" "
^XMB(3.6,131,0)="GMPL DUPLICATE PROBLEMS^Duplicates from Patient Problem List"
^XMB(3.6,131,1,0)="^^2^2^2990520^^^^"
^XMB(3.6,131,1,1,0)="After installing patch GMPL*2*12 the background job that cleaned up the "
^XMB(3.6,131,1,2,0)="Duplicates from the file found |1| Duplicate(s) and hid them from view."
^XMB(3.6,131,3,0)="^^3^3^2990520^^^^"
^XMB(3.6,131,3,1,0)="This bulletin is sent to the person installing the patch GMPL*2*12. It will "
^XMB(3.6,131,3,2,0)="tell them the number of duplicate problems ""HIDDEN"" (deleted) from view of"
^XMB(3.6,131,3,3,0)="any user."
^XMB(3.6,131,4,0)="^3.64A^1^1"
^XMB(3.6,131,4,1,0)="1"
^XMB(3.6,131,4,1,1,0)="^^1^1^2990520^^^^"
^XMB(3.6,131,4,1,1,1,0)="The Number of problems hidden from view."
^XMB(3.6,132,0)="XM SEND ERR RECIPIENT^Message not delivered to recipient"
^XMB(3.6,132,1,0)="^3.61A^7^7^2980729^^^^"
^XMB(3.6,132,1,1,0)="Your message [#|5|]"
^XMB(3.6,132,1,2,0)="SUBJECT: |1|"
^XMB(3.6,132,1,3,0)="was not delivered to |2|."
^XMB(3.6,132,1,4,0)="The error message was:"
^XMB(3.6,132,1,5,0)=""
^XMB(3.6,132,1,6,0)="|3|"
^XMB(3.6,132,1,7,0)="<|4|>"
^XMB(3.6,132,3,0)="^3.63^3^3^2980529^^^^"
^XMB(3.6,132,3,1,0)="This message is issued by the MailMan network processor when a message"
^XMB(3.6,132,3,2,0)="recipient has been rejected by the remote node.  The rejection message"
^XMB(3.6,132,3,3,0)="of the remote node is included in the bulletin."
^XMB(3.6,132,4,0)="^3.64A^5^5"
^XMB(3.6,132,4,1,0)="1"
^XMB(3.6,132,4,1,1,0)="^^1^1^2970902^^"
^XMB(3.6,132,4,1,1,1,0)="The subject of the message"
^XMB(3.6,132,4,2,0)="2"
^XMB(3.6,132,4,2,1,0)="^^1^1^2970902^^^"
^XMB(3.6,132,4,2,1,1,0)="The recipient, as specified by the user"
^XMB(3.6,132,4,3,0)="3"
^XMB(3.6,132,4,3,1,0)="^^1^1^2970902^^"
^XMB(3.6,132,4,3,1,1,0)="The error message returned by the remote site."
^XMB(3.6,132,4,4,0)="4"
^XMB(3.6,132,4,4,1,0)="^^1^1^2980529^^"
^XMB(3.6,132,4,4,1,1,0)="The recipient, as attempted by MailMan"
^XMB(3.6,132,4,5,0)="5"
^XMB(3.6,132,4,5,1,0)="^^1^1^2980729^"
^XMB(3.6,132,4,5,1,1,0)="This is the message IEN in the message file 3.9."
^XMB(3.6,133,0)="XM SEND ERR SERVER MSG^XMIT Err:  Server Message not found"
^XMB(3.6,133,1,0)="^^4^4^2970828^"
^XMB(3.6,133,1,1,0)="Message not delivered to server |1|"
^XMB(3.6,133,1,2,0)="because the message was not in the message file (3.9)."
^XMB(3.6,133,1,3,0)=""
^XMB(3.6,133,1,4,0)="Task #|2| has been left for your action."
^XMB(3.6,133,3,0)="^^2^2^2970828^"
^XMB(3.6,133,3,1,0)="This bulletin is fired when a task tries to send a message to a server,"
^XMB(3.6,133,3,2,0)="but the message is not in the Message global."
^XMB(3.6,133,4,0)="^3.64A^2^2"
^XMB(3.6,133,4,1,0)="1"
^XMB(3.6,133,4,1,1,0)="^^1^1^2970828^"
^XMB(3.6,133,4,1,1,1,0)="Name of the server to which the message was supposed to go."
^XMB(3.6,133,4,2,0)="2"
^XMB(3.6,133,4,2,1,0)="^^1^1^2970828^"
^XMB(3.6,133,4,2,1,1,0)="Task number for the task responsible for sending the message to the server."
^XMB(3.6,134,0)="XM SEND ERR REMOTE MSG ID^Transmit Error: No Remote Msg ID"
^XMB(3.6,134,1,0)="^^3^3^2970902^^"
^XMB(3.6,134,1,1,0)="Message #|1| originated from a remote site."
^XMB(3.6,134,1,2,0)="It should have a 'remote message id' on node 5, but it doesn't."
^XMB(3.6,134,1,3,0)="To prevent duplicate message deliveries, it was not delivered."
^XMB(3.6,134,3,0)="^^6^6^2970902^^"
^XMB(3.6,134,3,1,0)="While trying to send a response to a message which originated from a"
^XMB(3.6,134,3,2,0)="remote site, we noticed that the 'remote message id' is missing from"
^XMB(3.6,134,3,3,0)="the original message.  Without this id, we can't tell the site which"
^XMB(3.6,134,3,4,0)="message we are responding to."
^XMB(3.6,134,3,5,0)=""
^XMB(3.6,134,3,6,0)="'remote message id' is field 9 in file 3.9."
^XMB(3.6,134,4,0)="^3.64A^1^1"
^XMB(3.6,134,4,1,0)="1"
^XMB(3.6,134,4,1,1,0)="^^1^1^2970828^"
^XMB(3.6,134,4,1,1,1,0)="XMZ, or message number in file 3.9"
^XMB(3.6,135,0)="XM SEND ERR MSG^Message not delivered"
^XMB(3.6,135,1,0)="^^7^7^2970902^^"
^XMB(3.6,135,1,1,0)="Your message, SUBJECT: |1|"
^XMB(3.6,135,1,2,0)="was rejected by |2|"
^XMB(3.6,135,1,3,0)=""
^XMB(3.6,135,1,4,0)="The error message was:"
^XMB(3.6,135,1,5,0)="|3|"
^XMB(3.6,135,1,6,0)=""
^XMB(3.6,135,1,7,0)="Intended recipients were:"
^XMB(3.6,135,3,0)="^^3^3^2970902^^"
^XMB(3.6,135,3,1,0)="When a remote site rejects an entire message for whatever reason"
^XMB(3.6,135,3,2,0)="(too many lines, for example), this bulletin is sent to the message"
^XMB(3.6,135,3,3,0)="originator."
^XMB(3.6,135,4,0)="^3.64A^3^3"
^XMB(3.6,135,4,1,0)="1"
^XMB(3.6,135,4,1,1,0)="^^1^1^2970902^"
^XMB(3.6,135,4,1,1,1,0)="Subject of the message"
^XMB(3.6,135,4,2,0)="2"
^XMB(3.6,135,4,2,1,0)="^^1^1^2970902^"
^XMB(3.6,135,4,2,1,1,0)="Site which rejected the message"
^XMB(3.6,135,4,3,0)="3"
^XMB(3.6,135,4,3,1,0)="^^1^1^2970902^"
^XMB(3.6,135,4,3,1,1,0)="Error message returned by the site"
^XMB(3.6,136,0)="XM FWD ADDRESS DELETE^Forwarding Address Deleted"
^XMB(3.6,136,1,0)="^^4^4^2990206^"
^XMB(3.6,136,1,1,0)="Your forwarding address: |1|"
^XMB(3.6,136,1,2,0)="has been deleted because it is not valid."
^XMB(3.6,136,1,3,0)="The error message is:"
^XMB(3.6,136,1,4,0)="|2|"
^XMB(3.6,136,3,0)="^^3^3^2990208^^"
^XMB(3.6,136,3,1,0)="This bulletin is sent when MailMan notices that a user has an invalid"
^XMB(3.6,136,3,2,0)="forwarding address.  The forwarding address is deleted, and the user"
^XMB(3.6,136,3,3,0)="is notified why."
^XMB(3.6,136,4,0)="^3.64A^2^2"
^XMB(3.6,136,4,1,0)="1"
^XMB(3.6,136,4,1,1,0)="^^1^1^2990206^"
^XMB(3.6,136,4,1,1,1,0)="User's invalid forwarding address."
^XMB(3.6,136,4,2,0)="2"
^XMB(3.6,136,4,2,1,0)="^^1^1^2990208^^"
^XMB(3.6,136,4,2,1,1,0)="Error message as to why the user's address is invalid."
^XMB(3.6,137,0)="XM GROUP ERROR^Error in Mail Group"
^XMB(3.6,137,1,0)="^^2^2^2990213^"
^XMB(3.6,137,1,1,0)="While addressing a message to mail group: |1|"
^XMB(3.6,137,1,2,0)="the following problems were noted:"
^XMB(3.6,137,3,0)="^^6^6^2990213^"
^XMB(3.6,137,3,1,0)="Notifies selected users of problems with a mail group."
^XMB(3.6,137,3,2,0)="Such problems may include:"
^XMB(3.6,137,3,3,0)="- Group contains a circular reference to a group."
^XMB(3.6,137,3,4,0)="- Local member should not be receiving mail (no access code)."
^XMB(3.6,137,3,5,0)="- Remote member has invalid or ambiguous or closed domain."
^XMB(3.6,137,3,6,0)="- Distribution list domain is invalid or ambiguous or closed."
^XMB(3.6,137,4,0)="^3.64A^1^1"
^XMB(3.6,137,4,1,0)="1"
^XMB(3.6,137,4,1,1,0)="^^1^1^2990213^"
^XMB(3.6,137,4,1,1,1,0)="The mail group under which the problems were noted."
^XMB(3.6,138,0)="DG SENSITIVITY REMOVED^Patient Sensitivity Removed"
^XMB(3.6,138,1,0)="^^9^9^2990724^"
^XMB(3.6,138,1,1,0)="The level of sensitivity assigned by |1|"
^XMB(3.6,138,1,2,0)="has been removed from |2|"
^XMB(3.6,138,1,3,0)="on |7|."
^XMB(3.6,138,1,4,0)=" "
^XMB(3.6,138,1,5,0)="|3|"
^XMB(3.6,138,1,6,0)="|4|"
^XMB(3.6,138,1,7,0)=" "
^XMB(3.6,138,1,8,0)="|5|"
^XMB(3.6,138,1,9,0)="|6|"
^XMB(3.6,138,3,0)="^^1^1^2990724^^^"
^XMB(3.6,138,3,1,0)="Bulletin to notify mail group when patient sensitivity is removed."
^XMB(3.6,138,4,0)="^3.64A^7^7"
^XMB(3.6,138,4,1,0)="1"
^XMB(3.6,138,4,1,1,0)="^^1^1^2990707^"
^XMB(3.6,138,4,1,1,1,0)="Person who assigned sensitivity"
^XMB(3.6,138,4,2,0)="2"
^XMB(3.6,138,4,2,1,0)="^^1^1^2990707^"
^XMB(3.6,138,4,2,1,1,0)="Patient sensitivity removed from"
^XMB(3.6,138,4,3,0)="3"
^XMB(3.6,138,4,3,1,0)="^^1^1^2990707^"
^XMB(3.6,138,4,3,1,1,0)="Additional source removal warning"
^XMB(3.6,138,4,4,0)="4"
^XMB(3.6,138,4,4,1,0)="^^1^1^2990707^^"
^XMB(3.6,138,4,4,1,1,0)="Additional source removal warning"
^XMB(3.6,138,4,5,0)="5"
^XMB(3.6,138,4,5,1,0)="^^1^1^2990707^"
^XMB(3.6,138,4,5,1,1,0)="Additional record access information"
^XMB(3.6,138,4,6,0)="6"
^XMB(3.6,138,4,6,1,0)="^^1^1^2990707^"
^XMB(3.6,138,4,6,1,1,0)="Additional record access information"
^XMB(3.6,138,4,7,0)="7"
^XMB(3.6,138,4,7,1,0)="^^1^1^2990724^"
^XMB(3.6,138,4,7,1,1,0)="date/time of sensitivity removal"
^XMB(3.6,139,0)="XUTM PROBLEM DEVICES^Problem Devices"
^XMB(3.6,139,1,0)="^3.61A^3^3^3020116^^^^"
^XMB(3.6,139,1,1,0)="This is the XUTM PROBLEM DEVICE bulletin, it reports devices that TaskMan"
^XMB(3.6,139,1,2,0)="is having problems opening."
^XMB(3.6,139,1,3,0)="The list shows the $I value for the device."
^XMB(3.6,139,3,0)="^3.63^2^2^3020116^^^^"
^XMB(3.6,139,3,1,0)="This bulletin is used by the XUTMKA routine to report devices that TaskMan"
^XMB(3.6,139,3,2,0)="is having problems opening."
^XMB(3.6,140,0)="MPIF CMOR COMPARE COMPLETE^CMOR COMPARE MSG COMPLETED"
^XMB(3.6,140,1,0)="^^1^1^3000228^"
^XMB(3.6,140,1,1,0)="CMOR Compare Message Processed."
^XMB(3.6,140,3,0)="^3.63^4^4^3000228^^^^"
^XMB(3.6,140,3,1,0)="This bulletin is to alert the install team that the CMOR compare message"
^XMB(3.6,140,3,2,0)="has been processed on the CMOR site and that X patients had their CMOR"
^XMB(3.6,140,3,3,0)="changed.  This will assist the team in knowing that these messages have"
^XMB(3.6,140,3,4,0)="been processed and how many where changed."
^XMB(3.6,140,4,0)="^3.64A^^0"
^XMB(3.6,141,0)="XUVISIT^A visitor has been added to your New Person File^"
^XMB(3.6,141,1,0)="^^13^13^3000125^^^^"
^XMB(3.6,141,1,1,0)="                 |1|"
^XMB(3.6,141,1,2,0)=" "
^XMB(3.6,141,1,3,0)="     A visitor has been added to your New Person File with no Access or"
^XMB(3.6,141,1,4,0)="Verify Codes."
^XMB(3.6,141,1,5,0)=" "
^XMB(3.6,141,1,6,0)="     Name: |2|"
^XMB(3.6,141,1,7,0)="     DUZ: |3|"
^XMB(3.6,141,1,8,0)=" "
^XMB(3.6,141,1,9,0)="     This visitor was authenticated at |4|, (|5|)."
^XMB(3.6,141,1,10,0)="This user has a DUZ of |6| on the authenticating system, and a phone"
^XMB(3.6,141,1,11,0)="number of |7|."
^XMB(3.6,141,1,12,0)=" "
^XMB(3.6,141,1,13,0)="This is the bulletin named XUVISIT."
^XMB(3.6,141,3,0)="^^4^4^3000125^^^^"
^XMB(3.6,141,3,1,0)="     This is the default XUESSO bulletin which is issued at the time a new"
^XMB(3.6,141,3,2,0)="visitor is intered in the New Person File.  A ""visitor"" is a user who has"
^XMB(3.6,141,3,3,0)="been validated at another VA site and is entered in you data base so that"
^XMB(3.6,141,3,4,0)="he or she may look up patient data."
^XMB(3.6,141,4,0)="^3.64A^7^7"
^XMB(3.6,141,4,1,0)="1"
^XMB(3.6,141,4,1,1,0)="^^1^1^3000125^"
^XMB(3.6,141,4,1,1,1,0)="Title/date of this bulletin."
^XMB(3.6,141,4,2,0)="2"
^XMB(3.6,141,4,2,1,0)="^^1^1^3000125^"
^XMB(3.6,141,4,2,1,1,0)="The name of the visitor."
^XMB(3.6,141,4,3,0)="3"
^XMB(3.6,141,4,3,1,0)="^^1^1^3000125^"
^XMB(3.6,141,4,3,1,1,0)="The DUZ of this visitor in the New Person File."
^XMB(3.6,141,4,4,0)="4"
^XMB(3.6,141,4,4,1,0)="^^1^1^3000125^"
^XMB(3.6,141,4,4,1,1,0)="The name of the site where the visitor was authenticated."
^XMB(3.6,141,4,5,0)="5"
^XMB(3.6,141,4,5,1,0)="^^1^1^3000125^^"
^XMB(3.6,141,4,5,1,1,0)="The number of the site where the visitor was authenticated."
^XMB(3.6,141,4,6,0)="6"
^XMB(3.6,141,4,6,1,0)="^^1^1^3000125^"
^XMB(3.6,141,4,6,1,1,0)="The visitors DUZ at the authenticating site."
^XMB(3.6,141,4,7,0)="7"
^XMB(3.6,141,4,7,1,0)="^^1^1^3000125^^^"
^XMB(3.6,141,4,7,1,1,0)="The visitor's phone number at the authenticating site."
^XMB(3.6,142,0)="DGRU REJECT^RAI/MDS Update Message Reject"
^XMB(3.6,142,1,0)="^^9^9^3010124^"
^XMB(3.6,142,1,1,0)="   Patient |1|,    SSN# |2|"
^XMB(3.6,142,1,2,0)=" "
^XMB(3.6,142,1,3,0)="   An HL7 |7| event code message sent to the Accu-Max system has been"
^XMB(3.6,142,1,4,0)="   rejected."
^XMB(3.6,142,1,5,0)=" "
^XMB(3.6,142,1,6,0)="      |4|"
^XMB(3.6,142,1,7,0)=" "
^XMB(3.6,142,1,8,0)="   Message ID:    |5|"
^XMB(3.6,142,1,9,0)="   Date/Time:     |6|"
^XMB(3.6,142,3,0)="^^2^2^3010124^^^^"
^XMB(3.6,142,3,1,0)="This bulletin will handle reject messages from the COTS RAI/MDS system"
^XMB(3.6,142,3,2,0)="and forward the reject notification."
^XMB(3.6,142,4,0)="^3.64A^7^2"
^XMB(3.6,142,4,4,0)="4"
^XMB(3.6,142,4,7,0)="7"
^XMB(3.6,142,4,7,1,0)="^^1^1^3010124^"
^XMB(3.6,142,4,7,1,1,0)="Event Code"
^XMB(3.6,143,0)="DGRU RAI ERROR^RAI/MDS HL7 MESSAGE ERROR"
^XMB(3.6,143,1,0)="^^8^8^3000504^^"
^XMB(3.6,143,1,1,0)="     Patient |1|,"
^XMB(3.6,143,1,2,0)=" "
^XMB(3.6,143,1,3,0)="         The following error occurred when the HL7 |2| message"
^XMB(3.6,143,1,4,0)="         to the COTS RAI/MDS system was created or transmitted:"
^XMB(3.6,143,1,5,0)="           |3|"
^XMB(3.6,143,1,6,0)=" "
^XMB(3.6,143,1,7,0)="     Entered By  |4|"
^XMB(3.6,143,1,8,0)="     Date/Time   |5|"
^XMB(3.6,143,3,0)="^^2^2^3000504^^^"
^XMB(3.6,143,3,1,0)="This will be generated when there is a problem building or sending an"
^XMB(3.6,143,3,2,0)="HL7 message for the RAI/MDS system."
^XMB(3.6,144,0)="DGRU HL7SND^RAI/MDS Message Transmit to COTS^7^0"
^XMB(3.6,144,1,0)="^3.61A^5^5^3021009^^^^"
^XMB(3.6,144,1,1,0)="A |1| HL7 message has been sent to the RAI/MDS COTS system for"
^XMB(3.6,144,1,2,0)="|2| - SSN |5|."
^XMB(3.6,144,1,3,0)="                 "
^XMB(3.6,144,1,4,0)="Message Number:    |3|"
^XMB(3.6,144,1,5,0)="Message Date/Time: |4|"
^XMB(3.6,144,3,0)="^3.63^2^2^3021009^^^^"
^XMB(3.6,144,3,1,0)="Notification bulletin that an HL7 message has been sent to the RAI/MDS"
^XMB(3.6,144,3,2,0)="COTS system.  "
^XMB(3.6,144,4,0)="^3.64A^5^5"
^XMB(3.6,144,4,1,0)="1"
^XMB(3.6,144,4,1,1,0)="^3.65^1^1^3021008^^"
^XMB(3.6,144,4,1,1,1,0)="HL7 Message type"
^XMB(3.6,144,4,2,0)="2"
^XMB(3.6,144,4,2,1,0)="^^1^1^2991122^"
^XMB(3.6,144,4,2,1,1,0)="Patient Name"
^XMB(3.6,144,4,3,0)="3"
^XMB(3.6,144,4,3,1,0)="^^1^1^2991122^"
^XMB(3.6,144,4,3,1,1,0)="HL7 Message ID, File #772."
^XMB(3.6,144,4,4,0)="4"
^XMB(3.6,144,4,4,1,0)="^3.65^1^1^3021008^^^^"
^XMB(3.6,144,4,4,1,1,0)="Message Date/time"
^XMB(3.6,144,4,5,0)="5"
^XMB(3.6,144,4,5,1,0)="^3.65^1^1^3021008^^^"
^XMB(3.6,144,4,5,1,1,0)="Social Security Number"
^XMB(3.6,145,0)="XM SUPER SEARCH^Super Search Conducted^90"
^XMB(3.6,145,1,0)="^3.61A^3^3^3000918^^^"
^XMB(3.6,145,1,1,0)="|1| conducted a Super Search of the Message file."
^XMB(3.6,145,1,2,0)=" "
^XMB(3.6,145,1,3,0)="The criteria used were:"
^XMB(3.6,145,3,0)="^3.63^12^12^3000907^^^^"
^XMB(3.6,145,3,1,0)="Every time a super search is conducted, this bulletin is sent to alert"
^XMB(3.6,145,3,2,0)="those responsible for ensuring that the capability is not misused."
^XMB(3.6,145,3,3,0)=""
^XMB(3.6,145,3,4,0)="A super search is a search of the entire Message file based on any number"
^XMB(3.6,145,3,5,0)="of criteria.  All messages are looked at, regardless of who sent them."
^XMB(3.6,145,3,6,0)=""
^XMB(3.6,145,3,7,0)="This bulletin reports who performed the search and what criteria were used."
^XMB(3.6,145,3,8,0)=""
^XMB(3.6,145,3,9,0)="This bulletin is sent to the mail group XM SUPER SEARCH."
^XMB(3.6,145,3,10,0)="The ISO should be a member of that group."
^XMB(3.6,145,3,11,0)=""
^XMB(3.6,145,3,12,0)="See the XM SUPER SEARCH option for more information."
^XMB(3.6,145,4,0)="^3.64A^1^1"
^XMB(3.6,145,4,1,0)="1"
^XMB(3.6,145,4,1,1,0)="^3.65^1^1^3000918^^"
^XMB(3.6,145,4,1,1,1,0)="The user who conducted the Super Search."
^XMB(3.6,146,0)="XM FILTER FWD ADDRESS DELETE^Filter 'forward to' Address Deleted^30"
^XMB(3.6,146,1,0)="^^4^4^3001017^"
^XMB(3.6,146,1,1,0)="Your 'forward to' address: |1|"
^XMB(3.6,146,1,2,0)="has been deleted from your filter: |2|"
^XMB(3.6,146,1,3,0)="because it is not valid.  The error message is:"
^XMB(3.6,146,1,4,0)="|3|"
^XMB(3.6,146,3,0)="^^3^3^3001017^"
^XMB(3.6,146,3,1,0)="This bulletin is sent when MailMan notices that a user has an invalid"
^XMB(3.6,146,3,2,0)="'forward to' address in one of the filters.  The 'forward to' address"
^XMB(3.6,146,3,3,0)="is deleted, and the user is notified why."
^XMB(3.6,146,4,0)="^3.64A^3^3"
^XMB(3.6,146,4,1,0)="1"
^XMB(3.6,146,4,1,1,0)="^^1^1^3001017^"
^XMB(3.6,146,4,1,1,1,0)="User's invalid 'forward to' address."
^XMB(3.6,146,4,2,0)="2"
^XMB(3.6,146,4,2,1,0)="^^1^1^3001017^"
^XMB(3.6,146,4,2,1,1,0)="The name of the filter containing the invalid address."
^XMB(3.6,146,4,3,0)="3"
^XMB(3.6,146,4,3,1,0)="^^1^1^3001017^"
^XMB(3.6,146,4,3,1,1,0)="Error message as to why the address is invalid."
^XMB(3.6,148,0)="XM DOMAIN ADDED^New Domain: |1|"
^XMB(3.6,148,1,0)="^3.61A^14^14^3001121^^"
^XMB(3.6,148,1,1,0)="This site has just received an incoming transmission from"
^XMB(3.6,148,1,2,0)="'|2|'.  Since we have no record of this domain"
^XMB(3.6,148,1,3,0)="in the DOMAIN file 4.2, and did not find '|1|' in the"
^XMB(3.6,148,1,4,0)="INTERNET SUFFIX file 4.2996, we have added '|1|' to the"
^XMB(3.6,148,1,5,0)="DOMAIN file."
^XMB(3.6,148,1,6,0)=""
^XMB(3.6,148,1,7,0)="If you think this domain should be added to file 4.2996,"
^XMB(3.6,148,1,8,0)="please enter a NOIS.  Only internationally recognized internet"
^XMB(3.6,148,1,9,0)="suffixes should be added to file 4.2996, and then only via"
^XMB(3.6,148,1,10,0)="a MailMan patch."
^XMB(3.6,148,1,11,0)=""
^XMB(3.6,148,1,12,0)="If you think this domain may be a poorly named VHA domain,"
^XMB(3.6,148,1,13,0)="please enter a NOIS.  All new VHA domains should end in"
^XMB(3.6,148,1,14,0)="'.MED.VA.GOV'."
^XMB(3.6,148,3,0)="^3.63^9^9^3001121^^"
^XMB(3.6,148,3,1,0)="This bulletin is sent to alert IRM to the new domain.  This shouldn't happen"
^XMB(3.6,148,3,2,0)="very often, and if it does, the domain name should be investigated."
^XMB(3.6,148,3,3,0)=""
^XMB(3.6,148,3,4,0)="If you think that it is a bad name, enter a NOIS so it can be investigated."
^XMB(3.6,148,3,5,0)=""
^XMB(3.6,148,3,6,0)="If this new top-level domain is a valid internet suffix, it should be"
^XMB(3.6,148,3,7,0)="deleted from the DOMAIN file and added to file 4.2996, INTERNET SUFFIX,"
^XMB(3.6,148,3,8,0)="and a NOIS should be entered for MailMan, so that a patch can be sent"
^XMB(3.6,148,3,9,0)="out to add this top-level domain to file 4.2996 at every site."
^XMB(3.6,148,4,0)="^3.64A^2^2"
^XMB(3.6,148,4,1,0)="1"
^XMB(3.6,148,4,1,1,0)="^^1^1^3001121^"
^XMB(3.6,148,4,1,1,1,0)="Top-level (last dot piece) domain name."
^XMB(3.6,148,4,2,0)="2"
^XMB(3.6,148,4,2,1,0)="^^1^1^3001121^"
^XMB(3.6,148,4,2,1,1,0)="Full domain name"
^XMB(3.6,149,0)="PRCP_NO_REFILL^Notification of ordered items without a refill amount^15"
^XMB(3.6,149,1,0)="^3.61A^5^5^3000911^^"
^XMB(3.6,149,1,1,0)="GIP did not get refill information on the following items in order |1|"
^XMB(3.6,149,1,2,0)="to update |2| or |3|."
^XMB(3.6,149,1,3,0)=" "
^XMB(3.6,149,1,4,0)="Please determine the correct quantities received and enter an emergency"
^XMB(3.6,149,1,5,0)="order to correct the counts in the primary and secondary inventory points."
^XMB(3.6,149,3,0)="^3.63^5^5^3000801^^^"
^XMB(3.6,149,3,1,0)="This bulletin alerts staff that a posted distribution order includes items"
^XMB(3.6,149,3,2,0)="that were not marked as refilled by the supply station.  It is expected"
^XMB(3.6,149,3,3,0)="that staff will verify the correct refill amount for these items by"
^XMB(3.6,149,3,4,0)="creating another order of emergency or call-in to correct discrepancies"
^XMB(3.6,149,3,5,0)="resulting in both the primary and secondary inventory points."
^XMB(3.6,149,4,0)="^3.64A^3^3"
^XMB(3.6,149,4,1,0)="1"
^XMB(3.6,149,4,1,1,0)="^^1^1^3000406^"
^XMB(3.6,149,4,1,1,1,0)="Distribution Order Number"
^XMB(3.6,149,4,2,0)="2"
^XMB(3.6,149,4,2,1,0)="^^1^1^3000406^"
^XMB(3.6,149,4,2,1,1,0)="Primary Inventory Point"
^XMB(3.6,149,4,3,0)="3"
^XMB(3.6,149,4,3,1,0)="^3.65^1^1^3000801^^"
^XMB(3.6,149,4,3,1,1,0)="Secondary Inventory Point"
^XMB(3.6,150,0)="PRCP_BAD_ORDER^Notification of trouble with an HL7 refill transaction^15"
^XMB(3.6,150,1,0)="^^3^3^3001103^"
^XMB(3.6,150,1,1,0)="An HL7 item refill/post order transaction on order # |1| for the"
^XMB(3.6,150,1,2,0)="secondary inventory point, |2|, rejected."
^XMB(3.6,150,1,3,0)="Please note the problem and make any corrections."
^XMB(3.6,150,3,0)="^^7^7^3000801^"
^XMB(3.6,150,3,1,0)="This bulletin alerts staff of refill activity that cannot be processed"
^XMB(3.6,150,3,2,0)="because the transaction information conflicts with system data or data"
^XMB(3.6,150,3,3,0)="requirements."
^XMB(3.6,150,3,4,0)=" "
^XMB(3.6,150,3,5,0)="Problems include: item not on the order specified, order not for the"
^XMB(3.6,150,3,6,0)="secondary specified, amount refilled inappropriate, HL7 transaction"
^XMB(3.6,150,3,7,0)="corrupted, order number specified is not in GIP"
^XMB(3.6,150,4,0)="^3.64A^2^2"
^XMB(3.6,150,4,1,0)="1"
^XMB(3.6,150,4,1,1,0)="^3.65^1^1^3000410^^"
^XMB(3.6,150,4,1,1,1,0)="Distribution Order Number from transaction"
^XMB(3.6,150,4,2,0)="2"
^XMB(3.6,150,4,2,1,0)="^3.65^1^1^3000801^^^"
^XMB(3.6,150,4,2,1,1,0)="Secondary inventory point name from the HL7 transaction."
^XMB(3.6,151,0)="PRCP_BAD_ACTIVITY^Notification of error in HL7 supply station activity transaction^15"
^XMB(3.6,151,1,0)="^^1^1^3000808^"
^XMB(3.6,151,1,1,0)="An HL7 utilization transaction for |1| rejected. "
^XMB(3.6,151,3,0)="^^5^5^3000801^"
^XMB(3.6,151,3,1,0)="This bulletin alerts staff of problems in HL7 transactions that update"
^XMB(3.6,151,3,2,0)="a secondary inventory point with supply station activity."
^XMB(3.6,151,3,3,0)=" "
^XMB(3.6,151,3,4,0)="Problems include: item not on this inventory point, quantity is too large"
^XMB(3.6,151,3,5,0)="or too small, inventory point not in GIP."
^XMB(3.6,151,4,0)="^3.64A^1^1"
^XMB(3.6,151,4,1,0)="1"
^XMB(3.6,151,4,1,1,0)="^3.65^1^1^3000801^^"
^XMB(3.6,151,4,1,1,1,0)="secondary inventory Point Name"
^XMB(3.6,152,0)="PRCP_QTY_MISMATCH^Notification of inventory mismatches between systems^15"
^XMB(3.6,152,1,0)="^^7^7^3010201^"
^XMB(3.6,152,1,1,0)="An on-hand discrepancy with |1| exists for the"
^XMB(3.6,152,1,2,0)="item |2|."
^XMB(3.6,152,1,3,0)=" "
^XMB(3.6,152,1,4,0)="The quantity in |1| is |3|"
^XMB(3.6,152,1,5,0)="The quantity on the supply station is |4|"
^XMB(3.6,152,1,6,0)=" "
^XMB(3.6,152,1,7,0)="(Information acquired from HL7 txn# |5|)"
^XMB(3.6,152,3,0)="^3.63^4^4^3010123^^"
^XMB(3.6,152,3,1,0)="This bulletin will notify the secondary inventory staff of inventory"
^XMB(3.6,152,3,2,0)="inconsistencies between the inventory point and its associated supply"
^XMB(3.6,152,3,3,0)="station.  Staff need to investigate these discrepancies and make the"
^XMB(3.6,152,3,4,0)="necessary adjustments."
^XMB(3.6,152,4,0)="^3.64A^5^5"
^XMB(3.6,152,4,1,0)="1"
^XMB(3.6,152,4,1,1,0)="^^1^1^3000413^"
^XMB(3.6,152,4,1,1,1,0)="secondary inventory point name"
^XMB(3.6,152,4,2,0)="2"
^XMB(3.6,152,4,2,1,0)="^^1^1^3000413^"
^XMB(3.6,152,4,2,1,1,0)="Item Name and number"
^XMB(3.6,152,4,3,0)="3"
^XMB(3.6,152,4,3,1,0)="^^1^1^3000413^"
^XMB(3.6,152,4,3,1,1,0)="quantity on the inventory point"
^XMB(3.6,152,4,4,0)="4"
^XMB(3.6,152,4,4,1,0)="^3.65^1^1^3000801^^"
^XMB(3.6,152,4,4,1,1,0)="Quantity in the Supply Station"
^XMB(3.6,152,4,5,0)="5"
^XMB(3.6,152,4,5,1,0)="^3.65^1^1^3010123^^"
^XMB(3.6,152,4,5,1,1,0)="The HL7 transaction which prompted the message to occur"
^XMB(3.6,153,0)="PRCP_ALL_ITEMS_QTY_UPDATE^Receipt of QOH response from supply station.^15"
^XMB(3.6,153,1,0)="^^7^7^3000919^"
^XMB(3.6,153,1,1,0)="A supply station QOH response was received for |1|."
^XMB(3.6,153,1,2,0)=" "
^XMB(3.6,153,1,3,0)="Please investigate any discrepancies listed below."
^XMB(3.6,153,1,4,0)=" "
^XMB(3.6,153,1,5,0)="   Quantities  "
^XMB(3.6,153,1,6,0)="  GIP   SuplSta Item No Description (first 30 chars)   **comments"
^XMB(3.6,153,1,7,0)="------- ------- ------- -----------------------------------------------"
^XMB(3.6,153,3,0)="^^3^3^3000801^"
^XMB(3.6,153,3,1,0)="This bulletin alerts staff to the receipt to a QOH request.  If any"
^XMB(3.6,153,3,2,0)="quantity discrepancies are found between the items in the supply station"
^XMB(3.6,153,3,3,0)="and those in the inventory point, they will be listed."
^XMB(3.6,153,4,0)="^3.64A^1^1"
^XMB(3.6,153,4,1,0)="1"
^XMB(3.6,153,4,1,1,0)="^3.65^1^1^3000801^^^^"
^XMB(3.6,153,4,1,1,1,0)="secondary inventory point name"
^XMB(3.6,154,0)="PRCP_ITEM_NAME^List item name differences between GIP and the Supply Station^15"
^XMB(3.6,154,1,0)="^^1^1^3000808^"
^XMB(3.6,154,1,1,0)="There is a name discrepancy in |1| for item# |2|."
^XMB(3.6,154,3,0)="^^2^2^3000801^"
^XMB(3.6,154,3,1,0)="Alerts staff in a secondary inventory point of item name discrepancies"
^XMB(3.6,154,3,2,0)="between the invetory point and the linked supply station."
^XMB(3.6,154,4,0)="^3.64A^2^2"
^XMB(3.6,154,4,1,0)="1"
^XMB(3.6,154,4,1,1,0)="^^1^1^3000510^"
^XMB(3.6,154,4,1,1,1,0)="Secondary Inventory Point"
^XMB(3.6,154,4,2,0)="2"
^XMB(3.6,154,4,2,1,0)="^3.65^1^1^3000801^^"
^XMB(3.6,154,4,2,1,1,0)="Item number"
^XMB(3.6,155,0)="PRCP_BAD_QUERY^Notification of rejection of HL7 on-hand transaction^15"
^XMB(3.6,155,1,0)="^3.61A^2^2^3000816^^^^"
^XMB(3.6,155,1,1,0)="A query on hand response for |1| "
^XMB(3.6,155,1,2,0)="could not be processed.  Please place the request again."
^XMB(3.6,155,3,0)="^3.63^2^2^3000816^^"
^XMB(3.6,155,3,1,0)="This message alerts users when a response to a quantity on hand query"
^XMB(3.6,155,3,2,0)="could not be processed by GIP."
^XMB(3.6,155,4,0)="^3.64A^1^1"
^XMB(3.6,155,4,1,0)="1"
^XMB(3.6,155,4,1,1,0)="^3.65^1^1^3000816^^^"
^XMB(3.6,155,4,1,1,1,0)="secondary inventory point"
^XMB(3.6,156,0)="PRCP_BAD_ITEM_QOH^Notification of items in a Supply Station not in GIP^15"
^XMB(3.6,156,1,0)="^^4^4^3010201^"
^XMB(3.6,156,1,1,0)="The supply station for |1| contains an item not in GIP."
^XMB(3.6,156,1,2,0)="Item: |2|."
^XMB(3.6,156,1,3,0)=" "
^XMB(3.6,156,1,4,0)="(Information acquired from HL7 txn# |3|)"
^XMB(3.6,156,3,0)="^3.63^2^2^3010201^^"
^XMB(3.6,156,3,1,0)="This item will display when GIP receives a QOH response from the supply"
^XMB(3.6,156,3,2,0)="station containing an item not in file 441."
^XMB(3.6,156,4,0)="^3.64A^3^3"
^XMB(3.6,156,4,1,0)="1"
^XMB(3.6,156,4,1,1,0)="^^1^1^3000823^"
^XMB(3.6,156,4,1,1,1,0)="site and supply station name as received in the transaction"
^XMB(3.6,156,4,2,0)="2"
^XMB(3.6,156,4,2,1,0)="^^1^1^3000823^"
^XMB(3.6,156,4,2,1,1,0)="The item number and name as received in the transaction."
^XMB(3.6,156,4,3,0)="3"
^XMB(3.6,156,4,3,1,0)="^^1^1^3010201^"
^XMB(3.6,156,4,3,1,1,0)="HL7 transaction number"
^XMB(3.6,157,0)="PRCP_ORDER_NOT_GENERATED^Scheduled Order Not Generated^30"
^XMB(3.6,157,1,0)="^3.61A^2^2^3001212^^"
^XMB(3.6,157,1,1,0)="The scheduler was unable to generate a distribution order for"
^XMB(3.6,157,1,2,0)="|1| because"
^XMB(3.6,157,3,0)="^^2^2^3001212^"
^XMB(3.6,157,3,1,0)="This message alerts staff expecting an order to be autogenerated for an"
^XMB(3.6,157,3,2,0)="inventory point that the order was not generated."
^XMB(3.6,157,4,0)="^3.64A^1^1"
^XMB(3.6,157,4,1,0)="1"
^XMB(3.6,157,4,1,1,0)="^3.65^1^1^3001212^^"
^XMB(3.6,157,4,1,1,1,0)="Inventory Point Name"
^XMB(3.6,158,0)="XM GROUP EDIT NOTIFY^Users have been added to your mail group^30"
^XMB(3.6,158,1,0)="^3.61A^3^3^3010213^^^^"
^XMB(3.6,158,1,1,0)="|1| added the following users"
^XMB(3.6,158,1,2,0)="as members to mail group '|2|':"
^XMB(3.6,158,1,3,0)=" "
^XMB(3.6,158,3,0)="^3.63^5^5^3010209^^"
^XMB(3.6,158,3,1,0)="This bulletin is sent to a mail group's organizer and coordinator"
^XMB(3.6,158,3,2,0)="whenever someone other than themselves adds users to:"
^XMB(3.6,158,3,3,0)="1) a public mail group which doesn't allow users to self-enroll, or"
^XMB(3.6,158,3,4,0)="2) any private mail group."
^XMB(3.6,158,3,5,0)="The purpose is to let them know of the change."
^XMB(3.6,158,4,0)="^3.64A^2^2"
^XMB(3.6,158,4,1,0)="1"
^XMB(3.6,158,4,1,1,0)="^^1^1^3010209^"
^XMB(3.6,158,4,1,1,1,0)="user who added members to the mail group"
^XMB(3.6,158,4,2,0)="2"
^XMB(3.6,158,4,2,1,0)="^^1^1^3010209^"
^XMB(3.6,158,4,2,1,1,0)="mail group name"
^XMB(3.6,159,0)="XM DATE PURGE WARNING^Date Purge Scheduled for |1|^^1"
^XMB(3.6,159,1,0)="^3.61A^23^23^3001121^^^^"
^XMB(3.6,159,1,1,0)="Attention!  On |1|, all* messages (and their responses)"
^XMB(3.6,159,1,2,0)="sent on or before |2| will be deleted from the system."
^XMB(3.6,159,1,3,0)="They will be gone forever."
^XMB(3.6,159,1,4,0)=""
^XMB(3.6,159,1,5,0)="You can find out if this will affect any messages in your mailbox and"
^XMB(3.6,159,1,6,0)="take appropriate measures."
^XMB(3.6,159,1,7,0)=""
^XMB(3.6,159,1,8,0)="From the main MailMan menu, respond to the prompts as follows:"
^XMB(3.6,159,1,9,0)=""
^XMB(3.6,159,1,10,0)="Select MailMan Menu Option: Query/Search for Messages"
^XMB(3.6,159,1,11,0)="                            ="
^XMB(3.6,159,1,12,0)="Select message search method: M  Search my Mailbox by multiple criteria"
^XMB(3.6,159,1,13,0)="                              ="
^XMB(3.6,159,1,14,0)="Select search action: Enter 'Subject contains' string// DB  Enter 'Message"
^XMB(3.6,159,1,15,0)="sent on or before' date                                 =="
^XMB(3.6,159,1,16,0)="Message sent on or before: |2|"
^XMB(3.6,159,1,17,0)="                           |3|"
^XMB(3.6,159,1,18,0)=""
^XMB(3.6,159,1,19,0)="This search will find all of your messages which will be deleted."
^XMB(3.6,159,1,20,0)=""
^XMB(3.6,159,1,21,0)="* Messages in SHARED,MAIL's mailbox, and messages in the POSTMASTER's"
^XMB(3.6,159,1,22,0)="remote transmit queues and server baskets (includes released patches"
^XMB(3.6,159,1,23,0)="on FORUM) are exempt from the purge."
^XMB(3.6,159,3,0)="^3.63^3^3^3001121^^^^"
^XMB(3.6,159,3,1,0)="This is the warning bulletin that is broadcast to all users whenever"
^XMB(3.6,159,3,2,0)="option XMPURGE-BY-DATE is used to purge messages older than a certain"
^XMB(3.6,159,3,3,0)="date.  See that option for more information."
^XMB(3.6,159,4,0)="^3.64A^3^3"
^XMB(3.6,159,4,1,0)="1"
^XMB(3.6,159,4,1,1,0)="^^1^1^3001116^"
^XMB(3.6,159,4,1,1,1,0)="The date that the date purge will run."
^XMB(3.6,159,4,2,0)="2"
^XMB(3.6,159,4,2,1,0)="^3.65^1^1^3001121^^"
^XMB(3.6,159,4,2,1,1,0)="All messages this date and older will be purged."
^XMB(3.6,159,4,3,0)="3"
^XMB(3.6,159,4,3,1,0)="^^1^1^3001121^"
^XMB(3.6,159,4,3,1,1,0)="A line of '=', just as long as parameter 2."
^XMB(3.6,160,0)="OOPS WC EDITED^Worker's Compensation edited CA1"
^XMB(3.6,160,1,0)="^3.61A^8^8^3001122^^^^"
^XMB(3.6,160,1,1,0)="The Supervisor's signature has been removed from the CA1 for the following"
^XMB(3.6,160,1,2,0)="incident:"
^XMB(3.6,160,1,3,0)=" "
^XMB(3.6,160,1,4,0)="Date of Incident: |3|"
^XMB(3.6,160,1,5,0)="          Case #: |2|"
^XMB(3.6,160,1,6,0)=""
^XMB(3.6,160,1,7,0)="The Worker's Compensation Manager has signed the claim."
^XMB(3.6,160,1,8,0)=" "
^XMB(3.6,160,3,0)="^3.63^6^6^3001122^^^^"
^XMB(3.6,160,3,1,0)="This is the message that is sent to the Supervisor if the Worker's"
^XMB(3.6,160,3,2,0)="Compensation personnel edited one of the following fields after the"
^XMB(3.6,160,3,3,0)="Supervisor has signed the form:  INJURED PERFORMING DUTY(#146), NOT INJURED"
^XMB(3.6,160,3,4,0)="PERFORMING DUTY (#147), INJURY CAUSED BY EMPLOYEE (#148), INJURY CAUSED BY"
^XMB(3.6,160,3,5,0)="EMPLOYEE EXPLAIN (#149), SUPERVISOR AGREE/DISAGREE (#163), SUPERVISOR NOT"
^XMB(3.6,160,3,6,0)="AGREE EXPLAIN (#164), or REASON FOR CONTROVERTS (#165)."
^XMB(3.6,160,4,0)="^3.64A^3^3"
^XMB(3.6,160,4,1,0)="1"
^XMB(3.6,160,4,1,1,0)="^^1^1^3000406^"
^XMB(3.6,160,4,1,1,1,0)="Name of Person - name of the Person Involved"
^XMB(3.6,160,4,2,0)="2"
^XMB(3.6,160,4,2,1,0)="^^1^1^3000406^"
^XMB(3.6,160,4,2,1,1,0)="Case Number - ASISTS Case number"
^XMB(3.6,160,4,3,0)="3"
^XMB(3.6,160,4,3,1,0)="^3.65^1^1^3001122^^^^"
^XMB(3.6,160,4,3,1,1,0)="Date of Incident - this is the date/time of the injury/illness"
^XMB(3.6,161,0)="OOPS WORKERS COMP^Worker's Comp Notification"
^XMB(3.6,161,1,0)="^3.61A^9^9^3040517^^^^"
^XMB(3.6,161,1,1,0)="The Supervisor signed the CA1/CA2 for the following incident on |4|:"
^XMB(3.6,161,1,2,0)=""
^XMB(3.6,161,1,3,0)="Date of Incident: |3|"
^XMB(3.6,161,1,4,0)="          Case #: |2|"
^XMB(3.6,161,1,5,0)=""
^XMB(3.6,161,1,6,0)="Note to Supervisor:  The CA1/CA2 must be electronically signed by the"
^XMB(3.6,161,1,7,0)="                     employee and supervisor. Then a copy of the CA1/CA2 must "
^XMB(3.6,161,1,8,0)="                     be printed out, hand-signed and dated in blue ink, and "
^XMB(3.6,161,1,9,0)="                     sent to the Worker's Compensation Manager's Office."
^XMB(3.6,161,3,0)="^3.63^2^2^3040517^^^^"
^XMB(3.6,161,3,1,0)="This bulletin will be sent to the Workers Comp personnel when the Supervisor"
^XMB(3.6,161,3,2,0)="has signed the CA1/CA2 claim."
^XMB(3.6,161,4,0)="^3.64A^4^3"
^XMB(3.6,161,4,2,0)="2"
^XMB(3.6,161,4,2,1,0)="^^1^1^3000406^"
^XMB(3.6,161,4,2,1,1,0)="Case number"
^XMB(3.6,161,4,3,0)="3"
^XMB(3.6,161,4,3,1,0)="^^1^1^3000406^"
^XMB(3.6,161,4,3,1,1,0)="Date of Incident"
^XMB(3.6,161,4,4,0)="4"
^XMB(3.6,161,4,4,1,0)="^3.65^1^1^3040517^^^^"
^XMB(3.6,161,4,4,1,1,0)="Date signed by Supervisor"
^XMB(3.6,162,0)="OOPS WC SIGNED^Worker's Compensation has signed CA-1/CA-2"
^XMB(3.6,162,1,0)="^3.61A^6^6^3000425^^^^"
^XMB(3.6,162,1,1,0)="The Worker's Compensation Manager has signed the CA-1 or CA-2 for"
^XMB(3.6,162,1,2,0)="electronic transmission to DOL for the following incident:"
^XMB(3.6,162,1,3,0)=" "
^XMB(3.6,162,1,4,0)="Date of Incident: |3|"
^XMB(3.6,162,1,5,0)="          Case #: |2|"
^XMB(3.6,162,1,6,0)=""
^XMB(3.6,162,3,0)="^3.63^2^2^3000425^^^^"
^XMB(3.6,162,3,1,0)="This message is sent to the Supervisor when a Worker's Compensation Manager"
^XMB(3.6,162,3,2,0)="has signed a CA-1/CA-2."
^XMB(3.6,162,4,0)="^3.64A^3^2"
^XMB(3.6,162,4,2,0)="2"
^XMB(3.6,162,4,2,1,0)="^3.65^1^1^3000412^^"
^XMB(3.6,162,4,2,1,1,0)="This is the case number."
^XMB(3.6,162,4,3,0)="3"
^XMB(3.6,162,4,3,1,0)="^3.65^1^1^3000425^^^^"
^XMB(3.6,162,4,3,1,1,0)="This is the Date/Time of Incident."
^XMB(3.6,163,0)="OOPS SIGNATURE SECURITY^Notification of changed Employee data"
^XMB(3.6,163,1,0)="^3.61A^10^10^3001122^^^"
^XMB(3.6,163,1,1,0)="This is to notify the Employee, Supervisor, and Workers' Compensation Personnel"
^XMB(3.6,163,1,2,0)="that the Employee portion of a claim has been changed since the Employee "
^XMB(3.6,163,1,3,0)="electronically signed their portion of the claim."
^XMB(3.6,163,1,4,0)=""
^XMB(3.6,163,1,5,0)="The claim WAS NOT transmitted to the AAC.  All electronic signatures have been"
^XMB(3.6,163,1,6,0)="removed.  The claim must be reviewed, amended as required, and resigned prior "
^XMB(3.6,163,1,7,0)="being transmitted to the AAC."
^XMB(3.6,163,1,8,0)=" "
^XMB(3.6,163,1,9,0)="The affected claim number is: |2|"
^XMB(3.6,163,1,10,0)=" "
^XMB(3.6,163,3,0)="^3.63^3^3^3001122^^^"
^XMB(3.6,163,3,1,0)="Mail bulletin to notify the employee, supervisor, and workers' compensation"
^XMB(3.6,163,3,2,0)="personnel that data has been altered after the employee has electronically"
^XMB(3.6,163,3,3,0)="signed their portion of the claim."
^XMB(3.6,163,4,0)="^3.64A^2^1"
^XMB(3.6,163,4,2,0)="2"
^XMB(3.6,163,4,2,1,0)="^3.65^1^1^3001122^^"
^XMB(3.6,163,4,2,1,1,0)="This is the claim number of the claim."
^XMB(3.6,164,0)="OOPS WCPBOR^Employee understanding Bill of Rights"
^XMB(3.6,164,1,0)="^^5^5^3000801^"
^XMB(3.6,164,1,1,0)="The following individual has indicated that they do NOT understand"
^XMB(3.6,164,1,2,0)="the Employee Bill of Rights and needs assistance from their"
^XMB(3.6,164,1,3,0)="Worker's Compensation Representative."
^XMB(3.6,164,1,4,0)=" "
^XMB(3.6,164,1,5,0)="Individual: |1|"
^XMB(3.6,164,3,0)="^^3^3^3000801^"
^XMB(3.6,164,3,1,0)="This bulletin will be sent to the WCP worker if the employee indicates"
^XMB(3.6,164,3,2,0)="that they do not understand the Bill of Rights when entering a"
^XMB(3.6,164,3,3,0)="CA1 or CA2."
^XMB(3.6,164,4,0)="^3.64A^1^1"
^XMB(3.6,164,4,1,0)="1"
^XMB(3.6,164,4,1,1,0)="^^1^1^3000801^"
^XMB(3.6,164,4,1,1,1,0)="Person Involved name"
^XMB(3.6,165,0)="OOPS CONSENT^Employee Signed CA1 or CA2 with consent"
^XMB(3.6,165,1,0)="^3.61A^14^14^3010126^^^^"
^XMB(3.6,165,1,1,0)="The employee has consented to a review of case: |1|.  The following"
^XMB(3.6,165,1,2,0)="information is provided to the local bargaining unit for review."
^XMB(3.6,165,1,3,0)=" "
^XMB(3.6,165,1,4,0)="Dt/Time Occurrance: |2|     "
^XMB(3.6,165,1,5,0)="    Injury/Illness: |3|"
^XMB(3.6,165,1,6,0)="  Personnel Status: |4|"
^XMB(3.6,165,1,7,0)="  Type of Incident: |12|"
^XMB(3.6,165,1,8,0)="               Sex: |5|"
^XMB(3.6,165,1,9,0)="    Station Number: |6|"
^XMB(3.6,165,1,10,0)="         Education: |7|"
^XMB(3.6,165,1,11,0)="   Cost Center/Org: |8|"
^XMB(3.6,165,1,12,0)="        Grade/Step: |9|"
^XMB(3.6,165,1,13,0)="        Supervisor: |10|"
^XMB(3.6,165,1,14,0)="        Sec. Super: |11|"
^XMB(3.6,165,3,0)="^3.63^2^2^3010126^^^^"
^XMB(3.6,165,3,1,0)="This bulletin will be sent to the Union representatives if the employee"
^XMB(3.6,165,3,2,0)="signed a consent to release additional incident details to the union."
^XMB(3.6,165,4,0)="^3.64A^12^12"
^XMB(3.6,165,4,1,0)="1"
^XMB(3.6,165,4,1,1,0)="^^1^1^3000801^"
^XMB(3.6,165,4,1,1,1,0)="Case number"
^XMB(3.6,165,4,2,0)="2"
^XMB(3.6,165,4,2,1,0)="^^1^1^3000801^"
^XMB(3.6,165,4,2,1,1,0)="Date/Time of occurrance"
^XMB(3.6,165,4,3,0)="3"
^XMB(3.6,165,4,3,1,0)="^^1^1^3000801^"
^XMB(3.6,165,4,3,1,1,0)="Injury or Illness"
^XMB(3.6,165,4,4,0)="4"
^XMB(3.6,165,4,4,1,0)="^^1^1^3000801^"
^XMB(3.6,165,4,4,1,1,0)="Personnel Status"
^XMB(3.6,165,4,5,0)="5"
^XMB(3.6,165,4,5,1,0)="^^1^1^3000801^"
^XMB(3.6,165,4,5,1,1,0)="Sex of individual"
^XMB(3.6,165,4,6,0)="6"
^XMB(3.6,165,4,6,1,0)="^^1^1^3000801^"
^XMB(3.6,165,4,6,1,1,0)="Station number"
^XMB(3.6,165,4,7,0)="7"
^XMB(3.6,165,4,7,1,0)="^^1^1^3000801^"
^XMB(3.6,165,4,7,1,1,0)="Education"
^XMB(3.6,165,4,8,0)="8"
^XMB(3.6,165,4,8,1,0)="^^1^1^3000801^"
^XMB(3.6,165,4,8,1,1,0)="Cost Center/Organization"
^XMB(3.6,165,4,9,0)="9"
^XMB(3.6,165,4,9,1,0)="^^1^1^3000801^"
^XMB(3.6,165,4,9,1,1,0)="Grade and Step"
^XMB(3.6,165,4,10,0)="10"
^XMB(3.6,165,4,10,1,0)="^^1^1^3000801^"
^XMB(3.6,165,4,10,1,1,0)="Supervisor's name"
^XMB(3.6,165,4,11,0)="11"
^XMB(3.6,165,4,11,1,0)="^^1^1^3000801^"
^XMB(3.6,165,4,11,1,1,0)="Secondary Supervisors name"
^XMB(3.6,165,4,12,0)="12"
^XMB(3.6,165,4,12,1,0)="^3.65^1^1^3010126^^^^"
^XMB(3.6,165,4,12,1,1,0)="Type of incident"
^XMB(3.6,166,0)="XUMF INSTITUTION^Master File Server - update notification - INSTITUTION file"
^XMB(3.6,166,1,0)="^3.61A^47^47^3020729^^"
^XMB(3.6,166,1,1,0)="The following Master File Notification (MFN) message was"
^XMB(3.6,166,1,2,0)="received and processed by the Master File Server:"
^XMB(3.6,166,1,3,0)=" "
^XMB(3.6,166,1,4,0)="  HL7 Message ID:  |1|"
^XMB(3.6,166,1,5,0)="  "
^XMB(3.6,166,1,6,0)="The following INSTITUTION (#4) file entry has been |2|:"
^XMB(3.6,166,1,7,0)=" "
^XMB(3.6,166,1,8,0)="  IEN: |3|   STATION NUMBER: |4|"
^XMB(3.6,166,1,9,0)=" "
^XMB(3.6,166,1,10,0)="  UPDATED ENTRY"
^XMB(3.6,166,1,11,0)="  -------------"
^XMB(3.6,166,1,12,0)="  NAME: |5|"
^XMB(3.6,166,1,13,0)="  OFFICIAL VA NAME: |6|"
^XMB(3.6,166,1,14,0)="  FACILITY TYPE: |7|"
^XMB(3.6,166,1,15,0)="  INACTIVE FACILITY FLAG: |11|"
^XMB(3.6,166,1,16,0)="  VISN: |13|"
^XMB(3.6,166,1,17,0)="  PARENT FACILITY: |14|"
^XMB(3.6,166,1,18,0)="  "
^XMB(3.6,166,1,19,0)="  STREET ADDR. 1: |19|"
^XMB(3.6,166,1,20,0)="  CITY: |20|"
^XMB(3.6,166,1,21,0)="  STATE: |12|"
^XMB(3.6,166,1,22,0)="  ZIP: |22|"
^XMB(3.6,166,1,23,0)=" "
^XMB(3.6,166,1,24,0)="  ST. ADDR. 1 (MAILING): |23|"
^XMB(3.6,166,1,25,0)="  CITY (MAILING): |24|"
^XMB(3.6,166,1,26,0)="  STATE (MAILING): |25|"
^XMB(3.6,166,1,27,0)="  ZIP (MAILING): |26|"
^XMB(3.6,166,1,28,0)=" "
^XMB(3.6,166,1,29,0)=" "
^XMB(3.6,166,1,30,0)="  OLD VALUES"
^XMB(3.6,166,1,31,0)="  ----------"
^XMB(3.6,166,1,32,0)="  NAME: |8|"
^XMB(3.6,166,1,33,0)="  OFFICIAL VA NAME: |9|"
^XMB(3.6,166,1,34,0)="  FACILITY TYPE: |10|"
^XMB(3.6,166,1,35,0)="  INACTIVE FACILITY FLAG: |15|"
^XMB(3.6,166,1,36,0)="  VISN: |17|"
^XMB(3.6,166,1,37,0)="  PARENT FACILITY: |18|"
^XMB(3.6,166,1,38,0)=" "
^XMB(3.6,166,1,39,0)="  STREET ADDR. 1: |27|"
^XMB(3.6,166,1,40,0)="  CITY: |28|"
^XMB(3.6,166,1,41,0)="  STATE: |16|"
^XMB(3.6,166,1,42,0)="  ZIP: |29|"
^XMB(3.6,166,1,43,0)=" "
^XMB(3.6,166,1,44,0)="  ST. ADDR. 1 (MAILING): |30|"
^XMB(3.6,166,1,45,0)="  CITY (MAILING): |31|"
^XMB(3.6,166,1,46,0)="  STATE (MAILING): |32|"
^XMB(3.6,166,1,47,0)="  ZIP (MAILING): |33|"
^XMB(3.6,166,2,0)="^3.62P^1^1"
^XMB(3.6,166,2,1,0)="139"
^XMB(3.6,166,2,"B",139,1)=""
^XMB(3.6,166,3,0)="^3.63^5^5^3020729^^^^"
^XMB(3.6,166,3,1,0)="This bulletin notifies the XUMF INSTITUTION"
^XMB(3.6,166,3,2,0)="mail group that an unsolicited update message"
^XMB(3.6,166,3,3,0)="has been received and processed by the Master"
^XMB(3.6,166,3,4,0)="File Server mechanism.  An INSTITUTION (#4)"
^XMB(3.6,166,3,5,0)="file entry has been added/updated."
^XMB(3.6,166,4,0)="^3.64A^33^32"
^XMB(3.6,166,4,1,0)="1"
^XMB(3.6,166,4,1,1,0)="^3.65^1^1^3000802^^^"
^XMB(3.6,166,4,1,1,1,0)="Message ID"
^XMB(3.6,166,4,2,0)="2"
^XMB(3.6,166,4,2,1,0)="^3.65^1^1^3000802^^^"
^XMB(3.6,166,4,2,1,1,0)="Added or Updated"
^XMB(3.6,166,4,3,0)="3"
^XMB(3.6,166,4,3,1,0)="^3.65^1^1^3000802^^^"
^XMB(3.6,166,4,3,1,1,0)="Internal Entry Number"
^XMB(3.6,166,4,4,0)="4"
^XMB(3.6,166,4,4,1,0)="^3.65^1^1^3000804^^^^"
^XMB(3.6,166,4,4,1,1,0)="STATION NUMBER"
^XMB(3.6,166,4,5,0)="5"
^XMB(3.6,166,4,5,1,0)="^3.65^1^1^3000804^^^"
^XMB(3.6,166,4,5,1,1,0)="NAME"
^XMB(3.6,166,4,6,0)="6"
^XMB(3.6,166,4,6,1,0)="^3.65^1^1^3000804^^^^"
^XMB(3.6,166,4,6,1,1,0)="OFFICIAL VA NAME"
^XMB(3.6,166,4,7,0)="7"
^XMB(3.6,166,4,7,1,0)="^3.65^1^1^3000804^^^"
^XMB(3.6,166,4,7,1,1,0)="FACILITY TYPE"
^XMB(3.6,166,4,8,0)="8"
^XMB(3.6,166,4,8,1,0)="^3.65^1^1^3010717^^^"
^XMB(3.6,166,4,8,1,1,0)="OLD NAME"
^XMB(3.6,166,4,9,0)="9"
^XMB(3.6,166,4,9,1,0)="^3.65^1^1^3020729^^^^"
^XMB(3.6,166,4,9,1,1,0)="OLD OFFICAL VA NAME"
^XMB(3.6,166,4,10,0)="10"
^XMB(3.6,166,4,10,1,0)="^3.65^1^1^3010619^^^^"
^XMB(3.6,166,4,10,1,1,0)="OLD FACILITY TYPE"
^XMB(3.6,166,4,11,0)="11"
^XMB(3.6,166,4,11,1,0)="^^1^1^3010717^"
^XMB(3.6,166,4,11,1,1,0)="INACTIVE FACILITY FLAG"
^XMB(3.6,166,4,12,0)="12"
^XMB(3.6,166,4,12,1,0)="^^1^1^3010717^"
^XMB(3.6,166,4,12,1,1,0)="STATE"
^XMB(3.6,166,4,13,0)="13"
^XMB(3.6,166,4,13,1,0)="^^1^1^3010717^"
^XMB(3.6,166,4,13,1,1,0)="VISN"
^XMB(3.6,166,4,14,0)="14"
^XMB(3.6,166,4,14,1,0)="^^1^1^3010717^"
^XMB(3.6,166,4,14,1,1,0)="PARENT FACILITY"
^XMB(3.6,166,4,15,0)="15"
^XMB(3.6,166,4,15,1,0)="^^1^1^3010717^"
^XMB(3.6,166,4,15,1,1,0)="OLD INACTIVE FACILITY FLAG"
^XMB(3.6,166,4,16,0)="16"
^XMB(3.6,166,4,16,1,0)="^^1^1^3010717^"
^XMB(3.6,166,4,16,1,1,0)="OLD STATE"
^XMB(3.6,166,4,17,0)="17"
^XMB(3.6,166,4,17,1,0)="^^1^1^3010717^"
^XMB(3.6,166,4,17,1,1,0)="OLD VISN"
^XMB(3.6,166,4,18,0)="18"
^XMB(3.6,166,4,18,1,0)="^^1^1^3010717^"
^XMB(3.6,166,4,18,1,1,0)="OLD PARENT FACILITY"
^XMB(3.6,166,4,19,0)="19"
^XMB(3.6,166,4,19,1,0)="^^1^1^3020729^"
^XMB(3.6,166,4,19,1,1,0)="STREET ADDR. 1"
^XMB(3.6,166,4,20,0)="20"
^XMB(3.6,166,4,20,1,0)="^3.65^1^1^3020729^^"
^XMB(3.6,166,4,20,1,1,0)="CITY"
^XMB(3.6,166,4,22,0)="22"
^XMB(3.6,166,4,22,1,0)="^^1^1^3020729^"
^XMB(3.6,166,4,22,1,1,0)="ZIP"
^XMB(3.6,166,4,23,0)="23"
^XMB(3.6,166,4,23,1,0)="^^1^1^3020729^"
^XMB(3.6,166,4,23,1,1,0)="ST. ADDR. 1 (MAILING)"
^XMB(3.6,166,4,24,0)="24"
^XMB(3.6,166,4,24,1,0)="^^1^1^3020729^"
^XMB(3.6,166,4,24,1,1,0)="CITY (MAILING)"
^XMB(3.6,166,4,25,0)="25"
^XMB(3.6,166,4,25,1,0)="^^1^1^3020729^"
^XMB(3.6,166,4,25,1,1,0)="STATE (MAILING)"
^XMB(3.6,166,4,26,0)="26"
^XMB(3.6,166,4,26,1,0)="^^1^1^3020729^"
^XMB(3.6,166,4,26,1,1,0)="ZIP (MAILING)"
^XMB(3.6,166,4,27,0)="27"
^XMB(3.6,166,4,27,1,0)="^^1^1^3020729^"
^XMB(3.6,166,4,27,1,1,0)="OLD STREET ADDR. 1"
^XMB(3.6,166,4,28,0)="28"
^XMB(3.6,166,4,28,1,0)="^3.65^1^1^3020729^^"
^XMB(3.6,166,4,28,1,1,0)="OLD CITY"
^XMB(3.6,166,4,29,0)="29"
^XMB(3.6,166,4,29,1,0)="^^1^1^3020729^"
^XMB(3.6,166,4,29,1,1,0)="OLD ZIP"
^XMB(3.6,166,4,30,0)="30"
^XMB(3.6,166,4,30,1,0)="^^1^1^3020729^"
^XMB(3.6,166,4,30,1,1,0)="OLD ST. ADDR. 1 (MAILING)"
^XMB(3.6,166,4,31,0)="31"
^XMB(3.6,166,4,31,1,0)="^^1^1^3020729^"
^XMB(3.6,166,4,31,1,1,0)="OLD CITY (MAILING)"
^XMB(3.6,166,4,32,0)="32"
^XMB(3.6,166,4,32,1,0)="^^1^1^3020729^"
^XMB(3.6,166,4,32,1,1,0)="OLD STATE (MAILING)"
^XMB(3.6,166,4,33,0)="33"
^XMB(3.6,166,4,33,1,0)="^^1^1^3020729^"
^XMB(3.6,166,4,33,1,1,0)="OLD ZIP (MAILING)"
^XMB(3.6,167,0)="XUMF ERROR^Master File Server - error message"
^XMB(3.6,167,1,0)="^3.61A^18^18^3010809^^^^"
^XMB(3.6,167,1,1,0)="The Master File Server has received a Message Acknowledgement (MSA) segment"
^XMB(3.6,167,1,2,0)="with an Acknowledgement Code indicating an application error for the following"
^XMB(3.6,167,1,3,0)="message:"
^XMB(3.6,167,1,4,0)=" "
^XMB(3.6,167,1,5,0)="  HL7 Message ID:  |1|"
^XMB(3.6,167,1,6,0)=" "
^XMB(3.6,167,1,7,0)="  Server message:"
^XMB(3.6,167,1,8,0)=" "
^XMB(3.6,167,1,9,0)="|2|"
^XMB(3.6,167,1,10,0)=" "
^XMB(3.6,167,1,11,0)="  HL7, FM, or other message:"
^XMB(3.6,167,1,12,0)=" "
^XMB(3.6,167,1,13,0)="|3|"
^XMB(3.6,167,1,14,0)=" "
^XMB(3.6,167,1,15,0)="|4|"
^XMB(3.6,167,1,16,0)=" "
^XMB(3.6,167,1,17,0)="This message must be investigated our the master file related to this message"
^XMB(3.6,167,1,18,0)="will be out of sync with the national standard table."
^XMB(3.6,167,3,0)="^3.63^2^2^3010809^^^^"
^XMB(3.6,167,3,1,0)="This bulletin is triggered upon receipt of a Master File Notification message"
^XMB(3.6,167,3,2,0)="from the Master File Server."
^XMB(3.6,167,4,0)="^3.64A^4^4"
^XMB(3.6,167,4,1,0)="1"
^XMB(3.6,167,4,1,1,0)="^3.65^1^1^3010410^^^^"
^XMB(3.6,167,4,1,1,1,0)="Message Control ID"
^XMB(3.6,167,4,2,0)="2"
^XMB(3.6,167,4,2,1,0)="^^1^1^3010717^"
^XMB(3.6,167,4,2,1,1,0)="message from MFS"
^XMB(3.6,167,4,3,0)="3"
^XMB(3.6,167,4,3,1,0)="^^1^1^3010717^"
^XMB(3.6,167,4,3,1,1,0)="message from HL7 application, FileMan, or other source"
^XMB(3.6,167,4,4,0)="4"
^XMB(3.6,167,4,4,1,0)="^^1^1^3010809^"
^XMB(3.6,167,4,4,1,1,0)="FM error message"
^XMB(3.6,168,0)="PRCP_ORDER_PARTIALLY_LOST^Partially filled order lost^15"
^XMB(3.6,168,1,0)="^^14^14^3010511^"
^XMB(3.6,168,1,1,0)="Order #|1| will not be completed by station, |2|.   "
^XMB(3.6,168,1,2,0)="It has been |3|."
^XMB(3.6,168,1,3,0)=" "
^XMB(3.6,168,1,4,0)="The supply station already refilled some items.   This may cause"
^XMB(3.6,168,1,5,0)="on-hand discrepancies with GIP requiring your attention:"
^XMB(3.6,168,1,6,0)=" "
^XMB(3.6,168,1,7,0)="|4|           "
^XMB(3.6,168,1,8,0)="|5|"
^XMB(3.6,168,1,9,0)="|6|"
^XMB(3.6,168,1,10,0)=" "
^XMB(3.6,168,1,11,0)="The items refilled are:"
^XMB(3.6,168,1,12,0)=" "
^XMB(3.6,168,1,13,0)="Quantity  Item Number and Description"
^XMB(3.6,168,1,14,0)="--------  -----------------------------------------------------------"
^XMB(3.6,168,3,0)="^3.63^5^5^3010511^^"
^XMB(3.6,168,3,1,0)="This message will be sent to the secondary inventory point managers when"
^XMB(3.6,168,3,2,0)="a supply station has reported refills against a distribution order but"
^XMB(3.6,168,3,3,0)="has not completed it.  The purpose of the message is to notify staff of"
^XMB(3.6,168,3,4,0)="possible inconsistencies in the on-hand quantity between the supply"
^XMB(3.6,168,3,5,0)="station and the secondary."
^XMB(3.6,168,4,0)="^3.64A^6^6"
^XMB(3.6,168,4,1,0)="1"
^XMB(3.6,168,4,1,1,0)="^^1^1^3010510^"
^XMB(3.6,168,4,1,1,1,0)="Distribution Order Number"
^XMB(3.6,168,4,2,0)="2"
^XMB(3.6,168,4,2,1,0)="^^1^1^3010510^"
^XMB(3.6,168,4,2,1,1,0)="Supply Station"
^XMB(3.6,168,4,3,0)="3"
^XMB(3.6,168,4,3,1,0)="^^1^1^3010510^"
^XMB(3.6,168,4,3,1,1,0)="Activity removing further processing by the supply station"
^XMB(3.6,168,4,4,0)="4"
^XMB(3.6,168,4,4,1,0)="^^1^1^3010510^"
^XMB(3.6,168,4,4,1,1,0)="Text directing staff on corrective actions - Line 1"
^XMB(3.6,168,4,5,0)="5"
^XMB(3.6,168,4,5,1,0)="^^1^1^3010510^"
^XMB(3.6,168,4,5,1,1,0)="Text directing staff on corrective actions - Line 2"
^XMB(3.6,168,4,6,0)="6"
^XMB(3.6,168,4,6,1,0)="^3.65^1^1^3010511^^"
^XMB(3.6,168,4,6,1,1,0)="Text directing staff on corrective actions - Line 3"
^XMB(3.6,169,0)="EAS MTCOMPLETION^MEANS TEST COMPLETION"
^XMB(3.6,169,1,0)="^3.61A^2^2^3020326^^"
^XMB(3.6,169,1,1,0)="A Means Test for |1|, SSN(Last4) |2|"
^XMB(3.6,169,1,2,0)="was completed on |3| by |4|"
^XMB(3.6,169,3,0)="^3.63^1^1^3020326^^^^"
^XMB(3.6,169,3,1,0)="This bulletin is for sending Means Test completion notices"
^XMB(3.6,169,4,0)="^3.64A^4^4"
^XMB(3.6,169,4,1,0)="1"
^XMB(3.6,169,4,1,1,0)="^^1^1^3010824^"
^XMB(3.6,169,4,1,1,1,0)="PATIENT    Patient's name from file #2"
^XMB(3.6,169,4,2,0)="2"
^XMB(3.6,169,4,2,1,0)="^3.65^1^1^3020326^^"
^XMB(3.6,169,4,2,1,1,0)="Patient's SSN from file #2"
^XMB(3.6,169,4,3,0)="3"
^XMB(3.6,169,4,3,1,0)="^^1^1^3010824^"
^XMB(3.6,169,4,3,1,1,0)="Date the Means test was completed"
^XMB(3.6,169,4,4,0)="4"
^XMB(3.6,169,4,4,1,0)="^3.65^1^1^3010824^^"
^XMB(3.6,169,4,4,1,1,0)="USER   User completing the means test from file #200"
^XMB(3.6,170,0)="XM FWD ADDRESS CHANGE^New forwarding address for |1|"
^XMB(3.6,170,1,0)="^3.61A^3^3^3020423^^^^"
^XMB(3.6,170,1,1,0)="The new forwarding address for |1| is:"
^XMB(3.6,170,1,2,0)=""
^XMB(3.6,170,1,3,0)="|2|"
^XMB(3.6,170,3,0)="^3.63^3^3^3020423^^"
^XMB(3.6,170,3,1,0)="This bulletin is generated when a user's forwarding address changes."
^XMB(3.6,170,3,2,0)="It is meant to be sent to IRM, or anyone with a need to know about"
^XMB(3.6,170,3,3,0)="a user's forwarding address."
^XMB(3.6,170,4,0)="^3.64A^2^2"
^XMB(3.6,170,4,1,0)="1"
^XMB(3.6,170,4,1,1,0)="^3.65^1^1^3020423^^^^"
^XMB(3.6,170,4,1,1,1,0)="User's name"
^XMB(3.6,170,4,2,0)="2"
^XMB(3.6,170,4,2,1,0)="^^1^1^3020423^"
^XMB(3.6,170,4,2,1,1,0)="User's forwarding address"
^XMB(3.6,171,0)="XM SEND ERR TRANSMISSION^Transmit Failure to |1|^30"
^XMB(3.6,171,1,0)="^3.61A^4^4^3020423^^"
^XMB(3.6,171,1,1,0)="Transmission has failed to |1|"
^XMB(3.6,171,1,2,0)="|2| times with the latest script."
^XMB(3.6,171,1,3,0)=""
^XMB(3.6,171,1,4,0)="The following errors occurred in the latest script:"
^XMB(3.6,171,3,0)="^^2^2^3020405^"
^XMB(3.6,171,3,1,0)="This bulletin is sent when MailMan is unable to transmit to a site"
^XMB(3.6,171,3,2,0)="after it has tried all the available scripts."
^XMB(3.6,171,4,0)="^3.64A^2^2"
^XMB(3.6,171,4,1,0)="1"
^XMB(3.6,171,4,1,1,0)="^^1^1^3020405^"
^XMB(3.6,171,4,1,1,1,0)="Name of site we're trying to transmit to"
^XMB(3.6,171,4,2,0)="2"
^XMB(3.6,171,4,2,1,0)="^^1^1^3020405^"
^XMB(3.6,171,4,2,1,1,0)="Number of times this script has failed"
^XMB(3.6,172,0)="XM TOO MANY MESSAGES^Please Terminate Messages^30^1"
^XMB(3.6,172,1,0)="^^6^6^3020410^"
^XMB(3.6,172,1,1,0)="You have at least |1| messages in your mailbox."
^XMB(3.6,172,1,2,0)="(|2| in your IN basket)"
^XMB(3.6,172,1,3,0)=""
^XMB(3.6,172,1,4,0)="Please terminate all of your unnecessary messages."
^XMB(3.6,172,1,5,0)=""
^XMB(3.6,172,1,6,0)="Thank-you."
^XMB(3.6,172,3,0)="^^2^2^3020410^"
^XMB(3.6,172,3,1,0)="This bulletin is sent by option XMMGR-DISK-MANY MESSAGE-MAINT, to ask"
^XMB(3.6,172,3,2,0)="users to terminate excess messages."
^XMB(3.6,172,4,0)="^3.64A^2^2"
^XMB(3.6,172,4,1,0)="1"
^XMB(3.6,172,4,1,1,0)="^^1^1^3020410^"
^XMB(3.6,172,4,1,1,1,0)="number of messages in mailbox"
^XMB(3.6,172,4,2,0)="2"
^XMB(3.6,172,4,2,1,0)="^^1^1^3020410^"
^XMB(3.6,172,4,2,1,1,0)="number of messages in IN basket"
^XMB(3.6,173,0)="XM FWD ADDRESS CHECK^Test new forwarding address for |1|^30"
^XMB(3.6,173,1,0)="^3.61A^7^7^3020423^^"
^XMB(3.6,173,1,1,0)="This is a test to confirm that the forwarding address"
^XMB(3.6,173,1,2,0)=""
^XMB(3.6,173,1,3,0)="     |2|"
^XMB(3.6,173,1,4,0)=""
^XMB(3.6,173,1,5,0)="belonging to |1| does not generate an error."
^XMB(3.6,173,1,6,0)=""
^XMB(3.6,173,1,7,0)="Please ignore this message."
^XMB(3.6,173,3,0)="^3.63^5^5^3020423^^"
^XMB(3.6,173,3,1,0)="This bulletin is sent when a user's forwarding address changes."
^XMB(3.6,173,3,2,0)="It is sent to the forwarding address.  If it gets through, fine."
^XMB(3.6,173,3,3,0)="If it doesn't, then the sender of the bulletin is notified.  The"
^XMB(3.6,173,3,4,0)="sender is the POSTMASTER.  Field 7.01 in file 4.3 controls whether"
^XMB(3.6,173,3,5,0)="the message is also sent to the POSTMASTER."
^XMB(3.6,173,4,0)="^3.64A^2^2"
^XMB(3.6,173,4,1,0)="1"
^XMB(3.6,173,4,1,1,0)="^^1^1^3020410^"
^XMB(3.6,173,4,1,1,1,0)="User's name"
^XMB(3.6,173,4,2,0)="2"
^XMB(3.6,173,4,2,1,0)="^3.65^1^1^3020423^^"
^XMB(3.6,173,4,2,1,1,0)="User's forwarding address"
^XMB(3.6,174,0)="XM IN BASKET PURGE WARNING^Mailbox Maintenance"
^XMB(3.6,174,1,0)="^^3^3^3020410^"
^XMB(3.6,174,1,1,0)="You have not read the following messages in over |1| days."
^XMB(3.6,174,1,2,0)="MailMan will delete them on |2|, unless they become new"
^XMB(3.6,174,1,3,0)="or you read them or save them to another basket."
^XMB(3.6,174,3,0)="^^1^1^3020410^"
^XMB(3.6,174,3,1,0)="Sent by option XMMGR-IN-BASKET-PURGE"
^XMB(3.6,174,4,0)="^3.64A^2^2"
^XMB(3.6,174,4,1,0)="1"
^XMB(3.6,174,4,1,1,0)="^^1^1^3020410^"
^XMB(3.6,174,4,1,1,1,0)="messages not read in at least this many days"
^XMB(3.6,174,4,2,0)="2"
^XMB(3.6,174,4,2,1,0)="^^1^1^3020410^"
^XMB(3.6,174,4,2,1,1,0)="Date messages will be deleted"
^XMB(3.6,175,0)="XM IN BASKET PURGE REQUEST^Mailbox Maintenance"
^XMB(3.6,175,1,0)="^^3^3^3020410^"
^XMB(3.6,175,1,1,0)="You have not read the following messages in over |1| days."
^XMB(3.6,175,1,2,0)="If you don't need them, consider deleting them."
^XMB(3.6,175,1,3,0)="MailMan will not delete them."
^XMB(3.6,175,3,0)="^3.63^1^1^3020411^^"
^XMB(3.6,175,3,1,0)="Sent by TEST^XMUPIN."
^XMB(3.6,175,4,0)="^3.64A^1^1"
^XMB(3.6,175,4,1,0)="1"
^XMB(3.6,175,4,1,1,0)="^^1^1^3020410^"
^XMB(3.6,175,4,1,1,1,0)="messages not read in at least this many days"
^XMB(3.6,176,0)="XUSSPKI CRL SERVER^CRL UPLOAD MESSAGE"
^XMB(3.6,176,1,0)="^^5^5^3020411^"
^XMB(3.6,176,1,1,0)="At |2| The CRL Upload task reported the following problem."
^XMB(3.6,176,1,2,0)="  ""|1|"""
^XMB(3.6,176,1,3,0)=" "
^XMB(3.6,176,1,4,0)="Be sure that the ""CRLService"" is running on the server.  Try stopping and"
^XMB(3.6,176,1,5,0)="restarting the service. It should be listening on port 10270."
^XMB(3.6,176,3,0)="^3.63^1^1^3020411^^^^"
^XMB(3.6,176,3,1,0)="This bulletin is sent when the CRL UPLOAD TASK has a problem."
^XMB(3.6,176,4,0)="^3.64A^2^2"
^XMB(3.6,176,4,1,0)="1"
^XMB(3.6,176,4,1,1,0)="^3.65^1^1^3020409^^"
^XMB(3.6,176,4,1,1,1,0)="The error message."
^XMB(3.6,176,4,2,0)="2"
^XMB(3.6,176,4,2,1,0)="^^1^1^3020411^"
^XMB(3.6,176,4,2,1,1,0)="The date time of the message."
^XMB(3.6,177,0)="OOPS SENSITIVE DATA^ASISTS Employee Sensitive data ."
^XMB(3.6,177,1,0)="^3.61A^11^11^3030603^^^^"
^XMB(3.6,177,1,1,0)="This is a notification that the following supervisor "
^XMB(3.6,177,1,2,0)=""
^XMB(3.6,177,1,3,0)="|1|"
^XMB(3.6,177,1,4,0)=""
^XMB(3.6,177,1,5,0)="used the ASISTS software to View sensitive data for the following employee:"
^XMB(3.6,177,1,6,0)=""
^XMB(3.6,177,1,7,0)="|2|  on |3|."
^XMB(3.6,177,1,8,0)=""
^XMB(3.6,177,1,9,0)="without creating an Illness or Injury case. "
^XMB(3.6,177,1,10,0)=""
^XMB(3.6,177,1,11,0)=""
^XMB(3.6,177,3,0)="^3.63^2^2^3030603^^^^"
^XMB(3.6,177,3,1,0)="Bulletin is sent when a supervisor views Employee sensitive data but does not"
^XMB(3.6,177,3,2,0)="create an ASISTS case. "
^XMB(3.6,177,4,0)="^3.64A^3^3"
^XMB(3.6,177,4,1,0)="1"
^XMB(3.6,177,4,1,1,0)="^^2^2^3030602^"
^XMB(3.6,177,4,1,1,1,0)="This is the name of the Supervisor that accessed Employee Data, but did not"
^XMB(3.6,177,4,1,1,2,0)="create a case in the ASISTS package. "
^XMB(3.6,177,4,2,0)="2"
^XMB(3.6,177,4,2,1,0)="^^1^1^3030602^"
^XMB(3.6,177,4,2,1,1,0)="This is the name of the Employee that sensitive data was retrieved for. "
^XMB(3.6,177,4,3,0)="3"
^XMB(3.6,177,4,3,1,0)="^3.65^1^1^3030603^^^^"
^XMB(3.6,177,4,3,1,1,0)="This is the date that the Employee's sensitive data was viewed."
^XMB(3.6,178,0)="XM RELAY ATTEMPTED^Potential SPAM or VIRUS stopped^7"
^XMB(3.6,178,1,0)="^3.61A^13^13^3040205^^"
^XMB(3.6,178,1,1,0)="A site calling itself |1|"
^XMB(3.6,178,1,2,0)="attempted to relay a message"
^XMB(3.6,178,1,3,0)="from: |3|"
^XMB(3.6,178,1,4,0)="to:   |2|"
^XMB(3.6,178,1,5,0)="through this site."
^XMB(3.6,178,1,6,0)=""
^XMB(3.6,178,1,7,0)="This attempt was denied."
^XMB(3.6,178,1,8,0)=""
^XMB(3.6,178,1,9,0)="By far the most important thing that a service provider can do to reduce"
^XMB(3.6,178,1,10,0)="spam or viruses is to ensure that any mail servers in operation accept"
^XMB(3.6,178,1,11,0)="only outgoing mail from machines within their own domains.  This prohibits"
^XMB(3.6,178,1,12,0)="SMTP relaying, denying spammers and virus propagators a necessary"
^XMB(3.6,178,1,13,0)="component of anonymity."
^XMB(3.6,178,3,0)="^3.63^2^2^3040205^^"
^XMB(3.6,178,3,1,0)="This bulletin is sent when MailMan prevents an outside site from"
^XMB(3.6,178,3,2,0)="relaying a message to an outside site through this site."
^XMB(3.6,178,4,0)="^3.64A^3^3"
^XMB(3.6,178,4,1,0)="1"
^XMB(3.6,178,4,1,1,0)="^3.65^1^1^3040203^^"
^XMB(3.6,178,4,1,1,1,0)="The name of the site attempting to relay the message through this site."
^XMB(3.6,178,4,2,0)="2"
^XMB(3.6,178,4,2,1,0)="^^1^1^3040203^"
^XMB(3.6,178,4,2,1,1,0)="The intended recipient of the message."
^XMB(3.6,178,4,3,0)="3"
^XMB(3.6,178,4,3,1,0)="^^1^1^3040205^"
^XMB(3.6,178,4,3,1,1,0)="The envelope from of the message."
^XMB(3.6,179,0)="OOPS CASE CLOSE NOTIFICATION^ASISTS CASE CLOSED NOTIFICATION"
^XMB(3.6,179,1,0)="^^6^6^3040102^"
^XMB(3.6,179,1,1,0)="An ASISTS Case has been closed:"
^XMB(3.6,179,1,2,0)=""
^XMB(3.6,179,1,3,0)="      ASISTS Case Number:  |1|"
^XMB(3.6,179,1,4,0)="          Case Closed By:  |2|"
^XMB(3.6,179,1,5,0)="        Date Case Closed:  |3|"
^XMB(3.6,179,1,6,0)=""
^XMB(3.6,179,3,0)="^3.63^7^7^3040102^^"
^XMB(3.6,179,3,1,0)="This bulletin will be sent to the OOPS SAFETY and OOPS WCP mail groups"
^XMB(3.6,179,3,2,0)="whenever an ASISTS case status is set to 'Closed'.  If the case is opened and"
^XMB(3.6,179,3,3,0)="closed multiple times, a bulletin will be sent every time.  The Name of the "
^XMB(3.6,179,3,4,0)="person closing the case is obtained from the DUZ for the user and the Date "
^XMB(3.6,179,3,5,0)="Closed is the system date when the user actually closed the case. New data"
^XMB(3.6,179,3,6,0)="fields HAVE NOT been created for this.  The person who closed the case nor the"
^XMB(3.6,179,3,7,0)="Date Closed is stored."
^XMB(3.6,179,4,0)="^3.64A^3^3"
^XMB(3.6,179,4,1,0)="1"
^XMB(3.6,179,4,1,1,0)="^^1^1^3040102^"
^XMB(3.6,179,4,1,1,1,0)="Case Number of the case being closed"
^XMB(3.6,179,4,2,0)="2"
^XMB(3.6,179,4,2,1,0)="^^1^1^3040102^"
^XMB(3.6,179,4,2,1,1,0)="This is the name of the user (DUZ) of the user who closed the case"
^XMB(3.6,179,4,3,0)="3"
^XMB(3.6,179,4,3,1,0)="^3.65^2^2^3040102^^"
^XMB(3.6,179,4,3,1,1,0)="This is the date that the case was closed.  It will always be the system date"
^XMB(3.6,179,4,3,1,2,0)="that the case was closed."
^XMB(3.6,180,0)="DGQE HL7ERR^VIC HL7 ERROR^^1"
^XMB(3.6,180,1,0)="^^13^13^3040218^"
^XMB(3.6,180,1,1,0)=" "
^XMB(3.6,180,1,2,0)="* * * *  V I C  H L 7  E R R O R  E N C O U N T E R E D  * * * *"
^XMB(3.6,180,1,3,0)=" "
^XMB(3.6,180,1,4,0)="A VIC General Order (ORM~O01) HL7 message has been rejected by the "
^XMB(3.6,180,1,5,0)="National Card Management Directory (NCMD) on |1|."
^XMB(3.6,180,1,6,0)=" "
^XMB(3.6,180,1,7,0)="                    Patient Name:  |2|"
^XMB(3.6,180,1,8,0)="                    NCMD Card ID:  |3|"
^XMB(3.6,180,1,9,0)=" "
^XMB(3.6,180,1,10,0)="            Action sent to NCMD:  |4|"
^XMB(3.6,180,1,11,0)=" "
^XMB(3.6,180,1,12,0)="                  HL7 Message ID:  |5|"
^XMB(3.6,180,1,13,0)="  Initial transmission date/time:  |6|"
^XMB(3.6,180,3,0)="^3.63^2^2^3040218^^^^"
^XMB(3.6,180,3,1,0)="This bulletin is used to notify staff that a VIC General Order (ORM~O01) "
^XMB(3.6,180,3,2,0)="HL7 message has been rejected at the National Card Management Directory."
^XMB(3.6,180,4,0)="^3.64A^6^6"
^XMB(3.6,180,4,1,0)="1"
^XMB(3.6,180,4,1,1,0)="^3.65^1^1^3040218^^"
^XMB(3.6,180,4,1,1,1,0)="Time and date that the rejection message was received."
^XMB(3.6,180,4,2,0)="2"
^XMB(3.6,180,4,2,1,0)="^3.65^1^1^3040218^^"
^XMB(3.6,180,4,2,1,1,0)="Patient's name."
^XMB(3.6,180,4,3,0)="3"
^XMB(3.6,180,4,3,1,0)="^3.65^3^3^3040218^^"
^XMB(3.6,180,4,3,1,1,0)="Card ID assigned when the initial VIC request was transmitted to the "
^XMB(3.6,180,4,3,1,2,0)="NCMD.  The Card ID acts as the primary identifier for a VIC request at "
^XMB(3.6,180,4,3,1,3,0)="the NCMD."
^XMB(3.6,180,4,4,0)="4"
^XMB(3.6,180,4,4,1,0)="^3.65^6^6^3040218^^"
^XMB(3.6,180,4,4,1,1,0)="The order control code is the action that the originating HL7 message was "
^XMB(3.6,180,4,4,1,2,0)="communicating to the NCMD.  The action can be one of two choices:"
^XMB(3.6,180,4,4,1,3,0)="1.  RL - Release Previous Hold notifies the NCMD that the VIC request can "
^XMB(3.6,180,4,4,1,4,0)="now be processed by the NCMD."
^XMB(3.6,180,4,4,1,5,0)=" "
^XMB(3.6,180,4,4,1,6,0)="2.  CA - Cancel notifies the NCMD to cancel the VIC request."
^XMB(3.6,180,4,5,0)="5"
^XMB(3.6,180,4,5,1,0)="^^1^1^3040218^"
^XMB(3.6,180,4,5,1,1,0)="The HL7 Message ID is the message number of the originating HL7 message."
^XMB(3.6,180,4,6,0)="6"
^XMB(3.6,180,4,6,1,0)="^3.65^2^2^3040218^^^"
^XMB(3.6,180,4,6,1,1,0)="This is the transmission date/time of the original HL7 message being"
^XMB(3.6,180,4,6,1,2,0)="acknowledged."
^XMB(3.6,181,0)="LA7 AMENDED RESULTS RECEIVED^LAB AMENDED RESULTS RECEIVED"
^XMB(3.6,181,1,0)="^3.61A^28^28^3030725^^^^"
^XMB(3.6,181,1,1,0)="Laboratory results on the following patient have been received via a HL7"
^XMB(3.6,181,1,2,0)="interface that indicate the results have been amended. Please use the"
^XMB(3.6,181,1,3,0)="appropriate laboratory option to amend these results on this system."
^XMB(3.6,181,1,4,0)=" "
^XMB(3.6,181,1,5,0)="  "
^XMB(3.6,181,1,6,0)=" Action: |14|"
^XMB(3.6,181,1,7,0)=" "
^XMB(3.6,181,1,8,0)=" "
^XMB(3.6,181,1,9,0)="      Interface: |1|"
^XMB(3.6,181,1,10,0)="    File #62.49: |2|"
^XMB(3.6,181,1,11,0)=" "
^XMB(3.6,181,1,12,0)="   Patient Name: |3|"
^XMB(3.6,181,1,13,0)="     Patient ID: |4|"
^XMB(3.6,181,1,14,0)=" "
^XMB(3.6,181,1,15,0)="    Specimen ID: |5|"
^XMB(3.6,181,1,16,0)=" Collection D/T: |6|"
^XMB(3.6,181,1,17,0)="   Test/analyte: |7|"
^XMB(3.6,181,1,18,0)="       Producer: |8|"
^XMB(3.6,181,1,19,0)="  Producer's ID: |9|"
^XMB(3.6,181,1,20,0)="                  "
^XMB(3.6,181,1,21,0)=" "
^XMB(3.6,181,1,22,0)="     Observation"
^XMB(3.6,181,1,23,0)="     -----------"
^XMB(3.6,181,1,24,0)="          Value: |10|"
^XMB(3.6,181,1,25,0)="          Units: |11|"
^XMB(3.6,181,1,26,0)="      Ref range: |12|"
^XMB(3.6,181,1,27,0)="          Flags: |13|"
^XMB(3.6,181,1,28,0)=" "
^XMB(3.6,181,3,0)="^3.63^3^3^3030725^^^^"
^XMB(3.6,181,3,1,0)="Mail bulletin created by Laboratory package when processing a LEDI"
^XMB(3.6,181,3,2,0)="interface type HL7 result (ORU) message which contains laboratory"
^XMB(3.6,181,3,3,0)="testing results that are flagged as amended."
^XMB(3.6,182,0)="LA7 ORDER STATUS CHANGED^LAB ORDER STATUS CHANGED"
^XMB(3.6,182,1,0)="^3.61A^20^20^3030725^^^^"
^XMB(3.6,182,1,1,0)="An order status change has been received for a patient via a HL7 interface"
^XMB(3.6,182,1,2,0)="that indicates the order has been changed. Please use the appropriate"
^XMB(3.6,182,1,3,0)="laboratory option to update this order on this system."
^XMB(3.6,182,1,4,0)=" "
^XMB(3.6,182,1,5,0)="  "
^XMB(3.6,182,1,6,0)=" Action: |1|"
^XMB(3.6,182,1,7,0)=" "
^XMB(3.6,182,1,8,0)=" "
^XMB(3.6,182,1,9,0)="      Interface: |2|"
^XMB(3.6,182,1,10,0)="    File #62.49: |3|"
^XMB(3.6,182,1,11,0)=" "
^XMB(3.6,182,1,12,0)="   Patient Name: |4|"
^XMB(3.6,182,1,13,0)="     Patient ID: |5|"
^XMB(3.6,182,1,14,0)=" "
^XMB(3.6,182,1,15,0)="    Specimen ID: |6|"
^XMB(3.6,182,1,16,0)=" Collection D/T: |7|"
^XMB(3.6,182,1,17,0)="   Test/analyte: |8|"
^XMB(3.6,182,1,18,0)="  Producer's ID: |9|"
^XMB(3.6,182,1,19,0)="       Manifest: |10|"
^XMB(3.6,182,1,20,0)="                  "
^XMB(3.6,182,3,0)="^3.63^9^9^3040322^^^^"
^XMB(3.6,182,3,1,0)="Mail bulletin created by Laboratory package when processing a LEDI"
^XMB(3.6,182,3,2,0)="interface type HL7 message."
^XMB(3.6,182,3,3,0)=" "
^XMB(3.6,182,3,4,0)="If an order acknowledgment (ORR) message which contains laboratory test"
^XMB(3.6,182,3,5,0)="order status changes that indicate the order is not correct or cannot"
^XMB(3.6,182,3,6,0)="be performed/completed."
^XMB(3.6,182,3,7,0)=" "
^XMB(3.6,182,3,8,0)="If an order result (ORU) message and it indicates that a laboratory"
^XMB(3.6,182,3,9,0)="test has been added by the reference laboratory to the original order."
^XMB(3.6,183,0)="LA7 UNITS/NORMALS CHANGED^REFERENCE LAB UNITS/NORMALS CHANGED"
^XMB(3.6,183,1,0)="1^3.61A^24^24^3030725^^^^"
^XMB(3.6,183,1,1,0)="Laboratory results on the following patient have been received via a HL7"
^XMB(3.6,183,1,2,0)="interface that indicate the results have units and/or normals different"
^XMB(3.6,183,1,3,0)="from those specified in the LABORATORY TEST file (#60). Please use the"
^XMB(3.6,183,1,4,0)="appropriate laboratory option to review these units/normals on this system."
^XMB(3.6,183,1,5,0)=" "
^XMB(3.6,183,1,6,0)=" "
^XMB(3.6,183,1,7,0)="       Interface: |1|"
^XMB(3.6,183,1,8,0)="     File #62.49: |2|"
^XMB(3.6,183,1,9,0)=" "
^XMB(3.6,183,1,10,0)="    Patient Name: |3|"
^XMB(3.6,183,1,11,0)="      Patient ID: |4|"
^XMB(3.6,183,1,12,0)=" "
^XMB(3.6,183,1,13,0)="     Specimen ID: |5|"
^XMB(3.6,183,1,14,0)="  Collection D/T: |6|"
^XMB(3.6,183,1,15,0)="    Test/analyte: |7|"
^XMB(3.6,183,1,16,0)="        Producer: |8|"
^XMB(3.6,183,1,17,0)="   Producer's ID: |9|"
^XMB(3.6,183,1,18,0)="        File #60: |10|"
^XMB(3.6,183,1,19,0)=" "
^XMB(3.6,183,1,20,0)=" "
^XMB(3.6,183,1,21,0)="      Observation"
^XMB(3.6,183,1,22,0)="      -----------"
^XMB(3.6,183,1,23,0)="           Units: |11|"
^XMB(3.6,183,1,24,0)="       Ref range: |12|"
^XMB(3.6,183,3,0)="^3.63^5^5^3030725^^^^"
^XMB(3.6,183,3,1,0)="Mail bulletin created by Laboratory package when processing a LEDI"
^XMB(3.6,183,3,2,0)="interface type HL7 result (ORU) message which contains laboratory"
^XMB(3.6,183,3,3,0)="test result units and/or normals different from values specified for"
^XMB(3.6,183,3,4,0)="test in LABORATORY TEST file (#60) and which are flagged to be used"
^XMB(3.6,183,3,5,0)="for reference testing purposes."
^XMB(3.6,183,4,0)="^3.64A^^0"
^XMB(3.6,184,0)="LA7 ABNORMAL RESULTS RECEIVED^LAB ABNORMAL/CRITICAL RESULTS RECEIVED"
^XMB(3.6,184,1,0)="^3.61A^24^24^3030725^^^^"
^XMB(3.6,184,1,1,0)="Laboratory results on the following patient have been received via a HL7"
^XMB(3.6,184,1,2,0)="interface that indicate the results are critical or abnormal. Please use"
^XMB(3.6,184,1,3,0)="the appropriate laboratory option to review these results on this system."
^XMB(3.6,184,1,4,0)=" "
^XMB(3.6,184,1,5,0)="  "
^XMB(3.6,184,1,6,0)="      Interface: |1|"
^XMB(3.6,184,1,7,0)="    File #62.49: |2|"
^XMB(3.6,184,1,8,0)=" "
^XMB(3.6,184,1,9,0)="   Patient Name: |3|"
^XMB(3.6,184,1,10,0)="     Patient ID: |4|"
^XMB(3.6,184,1,11,0)=" "
^XMB(3.6,184,1,12,0)="    Specimen ID: |5|"
^XMB(3.6,184,1,13,0)=" Collection D/T: |6|"
^XMB(3.6,184,1,14,0)="   Test/analyte: |7|"
^XMB(3.6,184,1,15,0)="       Producer: |8|"
^XMB(3.6,184,1,16,0)="  Producer's ID: |9|"
^XMB(3.6,184,1,17,0)="                  "
^XMB(3.6,184,1,18,0)=" "
^XMB(3.6,184,1,19,0)="     Observation"
^XMB(3.6,184,1,20,0)="     -----------"
^XMB(3.6,184,1,21,0)="          Value: |10|"
^XMB(3.6,184,1,22,0)="          Units: |11|"
^XMB(3.6,184,1,23,0)="      Ref range: |12|"
^XMB(3.6,184,1,24,0)="          Flags: |13|"
^XMB(3.6,184,3,0)="^3.63^7^7^3040322^^^^"
^XMB(3.6,184,3,1,0)="Mail bulletin created by Laboratory package when processing a LEDI"
^XMB(3.6,184,3,2,0)="interface type HL7 result (ORU) message which contains laboratory"
^XMB(3.6,184,3,3,0)="testing results that are flagged as critical or abnormal.  Values"
^XMB(3.6,184,3,4,0)="that are critical will always trigger the alert and bulletin. Values"
^XMB(3.6,184,3,5,0)="that are abnormal low or high will be triggered when site has flagged"
^XMB(3.6,184,3,6,0)="the corresponding test in AUTO INSTRUMENT file (#62.4), NOTIFY ABNORMAL"
^XMB(3.6,184,3,7,0)="FLAGS field (#22) within the CHEM TEST multiple (#30) for the interface."
^XMB(3.6,185,0)="HDIS XML MSG PROCESS ERROR^ERROR(S) DURING MESSAGE PROCESSING"
^XMB(3.6,185,1,0)="^3.61A^11^11^3050308^^^^"
^XMB(3.6,185,1,1,0)="An error occurred when attempting to process an XML message that was sent"
^XMB(3.6,185,1,2,0)="to an HDIS MailMan Server.  The message was not deleted and left in the "
^XMB(3.6,185,1,3,0)="server basket."
^XMB(3.6,185,1,4,0)=" "
^XMB(3.6,185,1,5,0)="Message Number : |1|"
^XMB(3.6,185,1,6,0)="Message Sender : |2|"
^XMB(3.6,185,1,7,0)="Server Option  : |3|"
^XMB(3.6,185,1,8,0)=" "
^XMB(3.6,185,1,9,0)=" "
^XMB(3.6,185,1,10,0)="Error(s)"
^XMB(3.6,185,1,11,0)="========"
^XMB(3.6,185,2,0)="^3.62P^1^1"
^XMB(3.6,185,2,1,0)="213"
^XMB(3.6,185,2,"B",213,1)=""
^XMB(3.6,185,3,0)="^3.63^2^2^3050308^^^^"
^XMB(3.6,185,3,1,0)="Bulletin is generated when a problem processing a received XML encoded "
^XMB(3.6,185,3,2,0)="message occurs."
^XMB(3.6,185,4,0)="^3.64A^3^3"
^XMB(3.6,185,4,1,0)="1"
^XMB(3.6,185,4,1,1,0)="^^1^1^3050105^"
^XMB(3.6,185,4,1,1,1,0)="Message number (XMZ) of problem message"
^XMB(3.6,185,4,2,0)="2"
^XMB(3.6,185,4,2,1,0)="^^1^1^3050105^"
^XMB(3.6,185,4,2,1,1,0)="Sender (XMFROM) of problem message"
^XMB(3.6,185,4,3,0)="3"
^XMB(3.6,185,4,3,1,0)="^3.65^1^1^3050308^^^^"
^XMB(3.6,185,4,3,1,1,0)="Server option problem message was sent to"
^XMB(3.6,186,0)="HDIS ERRORS^HDIS Error has occurred^10^0"
^XMB(3.6,186,1,0)="^3.61A^3^3^3050228^^^^"
^XMB(3.6,186,1,1,0)="An error has occurred at |1|"
^XMB(3.6,186,1,2,0)="On |2|"
^XMB(3.6,186,1,3,0)="Error message: |3|"
^XMB(3.6,186,2,0)="^3.62P^1^1"
^XMB(3.6,186,2,1,0)="213"
^XMB(3.6,186,2,"B",213,1)=""
^XMB(3.6,186,3,0)="^3.63^1^1^3050228^^^^"
^XMB(3.6,186,3,1,0)="Notification of an error occurring during HDIS VUID processing."
^XMB(3.6,186,4,0)="^3.64A^3^3"
^XMB(3.6,186,4,1,0)="1"
^XMB(3.6,186,4,1,1,0)="^^1^1^3050111^"
^XMB(3.6,186,4,1,1,1,0)="Station Name and number."
^XMB(3.6,186,4,2,0)="2"
^XMB(3.6,186,4,2,1,0)="^^1^1^3050111^"
^XMB(3.6,186,4,2,1,1,0)="Date/time error occurred."
^XMB(3.6,186,4,3,0)="3"
^XMB(3.6,186,4,3,1,0)="^3.65^1^1^3050228^"
^XMB(3.6,186,4,3,1,1,0)="An Error has occurred at |1| On |2|. Error Message: |3|"
^XMB(3.6,187,0)="HDIS NOTIFY ERT^Site: |5|  File: |6| in |4| ready for ERT Update^10^1"
^XMB(3.6,187,1,0)="^^3^3^3050311^"
^XMB(3.6,187,1,1,0)="Data Standardization VUID processing at |1| (in the |4| account) for file |2| was completed on |3|."
^XMB(3.6,187,1,2,0)=" "
^XMB(3.6,187,1,3,0)="Site needs full file update as soon as possible."
^XMB(3.6,187,2,0)="^3.62P^1^1"
^XMB(3.6,187,2,1,0)="214"
^XMB(3.6,187,2,"B",214,1)=""
^XMB(3.6,187,3,0)="^3.63^1^1^3050311^^^^"
^XMB(3.6,187,3,1,0)="Notifies ERT mailgroup that site needs file update for specific domain."
^XMB(3.6,187,4,0)="^3.64A^6^6"
^XMB(3.6,187,4,1,0)="1"
^XMB(3.6,187,4,1,1,0)="^3.65^1^1^3050302^^"
^XMB(3.6,187,4,1,1,1,0)="Name of facility."
^XMB(3.6,187,4,2,0)="2"
^XMB(3.6,187,4,2,1,0)="^3.65^1^1^3050302^^"
^XMB(3.6,187,4,2,1,1,0)="File name and number being implemented."
^XMB(3.6,187,4,3,0)="3"
^XMB(3.6,187,4,3,1,0)="^^1^1^3050228^"
^XMB(3.6,187,4,3,1,1,0)="Date/time of VUID processing completion."
^XMB(3.6,187,4,4,0)="4"
^XMB(3.6,187,4,4,1,0)="^^1^1^3050310^"
^XMB(3.6,187,4,4,1,1,0)="Describes Test or Production account."
^XMB(3.6,187,4,5,0)="5"
^XMB(3.6,187,4,5,1,0)="^^1^1^3050310^"
^XMB(3.6,187,4,5,1,1,0)="Site number."
^XMB(3.6,187,4,6,0)="6"
^XMB(3.6,187,4,6,1,0)="^3.65^1^1^3050311^^^"
^XMB(3.6,187,4,6,1,1,0)="File Number"
^XMB(3.6,188,0)="HDIS NOTIFY HDR^Site: |5|, File: |6| in |4| ready for HDR Triggers^10^1"
^XMB(3.6,188,1,0)="^^4^4^3050311^"
^XMB(3.6,188,1,1,0)="Data Standardization VUID processing at |1| (in the |4| account) for file |2| was"
^XMB(3.6,188,1,2,0)="completed on |3|. "
^XMB(3.6,188,1,3,0)=" "
^XMB(3.6,188,1,4,0)="File is ready for activation of HDR Triggers."
^XMB(3.6,188,2,0)="^3.62P^1^1"
^XMB(3.6,188,2,1,0)="215"
^XMB(3.6,188,2,"B",215,1)=""
^XMB(3.6,188,3,0)="^3.63^2^2^3050311^^^^"
^XMB(3.6,188,3,1,0)="Used to notify HDR personnel that a file at a specific site is ready"
^XMB(3.6,188,3,2,0)="for activation of the HDR Triggers."
^XMB(3.6,188,4,0)="^3.64A^6^6"
^XMB(3.6,188,4,1,0)="1"
^XMB(3.6,188,4,1,1,0)="^^1^1^3050310^"
^XMB(3.6,188,4,1,1,1,0)="Name of facility as well as Mailman Domain."
^XMB(3.6,188,4,2,0)="2"
^XMB(3.6,188,4,2,1,0)="^^1^1^3050310^"
^XMB(3.6,188,4,2,1,1,0)="File name and number completed."
^XMB(3.6,188,4,3,0)="3"
^XMB(3.6,188,4,3,1,0)="^3.65^1^1^3050310^^"
^XMB(3.6,188,4,3,1,1,0)="Date and time of completion."
^XMB(3.6,188,4,4,0)="4"
^XMB(3.6,188,4,4,1,0)="^3.65^1^1^3050311^^^^"
^XMB(3.6,188,4,4,1,1,0)="Production or Test account."
^XMB(3.6,188,4,5,0)="5"
^XMB(3.6,188,4,5,1,0)="^^1^1^3050311^"
^XMB(3.6,188,4,5,1,1,0)="Site Number."
^XMB(3.6,188,4,6,0)="6"
^XMB(3.6,188,4,6,1,0)="^^1^1^3050311^"
^XMB(3.6,188,4,6,1,1,0)="File Number."
^XMB(3.6,189,0)="OOPS EMPSIGNCA7^Employee signed CA7"
^XMB(3.6,189,1,0)="8^3.61A^8^8^3050411^"
^XMB(3.6,189,1,1,0)="A CA7 has been signed by the employee."
^XMB(3.6,189,1,2,0)=""
^XMB(3.6,189,1,3,0)="Date of Injury/Illness:  |1|"
^XMB(3.6,189,1,4,0)="           Case Number:  |2|"
^XMB(3.6,189,1,5,0)=" "
^XMB(3.6,189,1,6,0)="This is a reminder to the Workers' Compensation Staff that all CA-7s"
^XMB(3.6,189,1,7,0)="are to be submitted to the OWCP within 5 calendar days from the date "
^XMB(3.6,189,1,8,0)="the employee signed the form."
^XMB(3.6,189,3,0)="^3.63^2^2^3050411^^^"
^XMB(3.6,189,3,1,0)="This bulletin is sent to the WC mail group when the employee has successfully"
^XMB(3.6,189,3,2,0)="signed the CA7."
^XMB(3.6,189,4,0)="^3.64A^2^2"
^XMB(3.6,189,4,1,0)="1"
^XMB(3.6,189,4,1,1,0)="^^1^1^3050331^"
^XMB(3.6,189,4,1,1,1,0)="Date of Incident."
^XMB(3.6,189,4,2,0)="2"
^XMB(3.6,189,4,2,1,0)="^3.65^1^1^3050411^^"
^XMB(3.6,189,4,2,1,1,0)="Case number."
^XMB(3.6,190,0)="PRCV_AUDIT_FILE_ERROR^ERROR WHILE PROCESSING DYNAMED-RELATED DATA ITEM"
^XMB(3.6,190,1,0)="^3.61A^11^11^3050314^^"
^XMB(3.6,190,1,1,0)="While |1|"
^XMB(3.6,190,1,2,0)="involving an item with DynaMed Doc ID #: |2|,"
^XMB(3.6,190,1,3,0)="the following error occurred: |3|."
^XMB(3.6,190,1,4,0)=" "
^XMB(3.6,190,1,5,0)="The DynaMed DOC ID gets saved into the Audit file when a request is "
^XMB(3.6,190,1,6,0)="received from DynaMed and a RIL is built. This value is the key used"
^XMB(3.6,190,1,7,0)="to update Due-ins in Dynamed. Therefore "
^XMB(3.6,190,1,8,0)=" "
^XMB(3.6,190,1,9,0)="PLEASE INCLUDE APPROPRIATE DYNAMED USERS WHEN RESOLVING THIS ERROR"
^XMB(3.6,190,1,10,0)=" "
^XMB(3.6,190,1,11,0)="The following data pertains to this transaction:"
^XMB(3.6,190,3,0)="^3.63^5^5^3050314^^^"
^XMB(3.6,190,3,1,0)="This bulletin will be used by processes within the IFCAP-DynaMed "
^XMB(3.6,190,3,2,0)="interface software to notify Control Point Officials and Control Point "
^XMB(3.6,190,3,3,0)="Clerks when an error condition occurs.  The error would occur while"
^XMB(3.6,190,3,4,0)="processing a DynaMed-originating item in a RIL, a 2237, or a Purchase"
^XMB(3.6,190,3,5,0)="Order."
^XMB(3.6,190,4,0)="^3.64A^3^3"
^XMB(3.6,190,4,1,0)="1"
^XMB(3.6,190,4,1,1,0)="^3.65^2^2^3050314^^"
^XMB(3.6,190,4,1,1,1,0)="action/event/identifier ex. ""canceling a line item during edit of 2237 "
^XMB(3.6,190,4,1,1,2,0)="#516-05-2-076-0445"""
^XMB(3.6,190,4,2,0)="2"
^XMB(3.6,190,4,2,1,0)="^3.65^1^1^3050314^^"
^XMB(3.6,190,4,2,1,1,0)="DM Doc ID value"
^XMB(3.6,190,4,3,0)="3"
^XMB(3.6,190,4,3,1,0)="^3.65^2^2^3050314^^"
^XMB(3.6,190,4,3,1,1,0)="error reason, for example ""an error updating the Audit file"" or ""the "
^XMB(3.6,190,4,3,1,2,0)="Audit file item was missing its DynaMed Doc ID value"""
^XMB(3.6,191,0)="SD API ERROR NOTICE^SCHEDULING PFSS NOTICE"
^XMB(3.6,191,1,0)="^^10^10^3050513^"
^XMB(3.6,191,1,1,0)="The following error condition was reported:"
^XMB(3.6,191,1,2,0)=" "
^XMB(3.6,191,1,3,0)="Patient Name    : |1|"
^XMB(3.6,191,1,4,0)="Clinic          : |3|"
^XMB(3.6,191,1,5,0)="Appt. Date/Time : |2|"
^XMB(3.6,191,1,6,0)=" "
^XMB(3.6,191,1,7,0)="Message Type: |4|"
^XMB(3.6,191,1,8,0)=" "
^XMB(3.6,191,1,9,0)="Error:"
^XMB(3.6,191,1,10,0)="|5|"
^XMB(3.6,191,3,0)="^3.63^2^2^3050513^^^"
^XMB(3.6,191,3,1,0)="This bulletin is for posting error conditions that occur during the "
^XMB(3.6,191,3,2,0)="Scheduling API or PFSS Event Driver processes."
^XMB(3.6,191,4,0)="^3.64A^5^5"
^XMB(3.6,191,4,1,0)="1"
^XMB(3.6,191,4,1,1,0)="^^1^1^3050513^"
^XMB(3.6,191,4,1,1,1,0)="Patient Name"
^XMB(3.6,191,4,2,0)="2"
^XMB(3.6,191,4,2,1,0)="^^1^1^3050513^"
^XMB(3.6,191,4,2,1,1,0)="Appointment Date Time"
^XMB(3.6,191,4,3,0)="3"
^XMB(3.6,191,4,3,1,0)="^^1^1^3050513^"
^XMB(3.6,191,4,3,1,1,0)="Clinic Name"
^XMB(3.6,191,4,4,0)="4"
^XMB(3.6,191,4,4,1,0)="^^1^1^3050513^"
^XMB(3.6,191,4,4,1,1,0)="HL7 Message Type"
^XMB(3.6,191,4,5,0)="5"
^XMB(3.6,191,4,5,1,0)="^3.65^1^1^3050513^^"
^XMB(3.6,191,4,5,1,1,0)="Error Message"
^XMB(3.6,192,0)="OR DRUG ORDER CANCELLED^Drug Order Cancelled"
^XMB(3.6,192,1,0)="^^5^5^3050323^"
^XMB(3.6,192,1,1,0)="Drug Order Cancelled:"
^XMB(3.6,192,1,2,0)="              |1| (|2|)"
^XMB(3.6,192,1,3,0)="Patient:      |3|"
^XMB(3.6,192,1,4,0)="Reason:       Entered In Error"
^XMB(3.6,192,1,5,0)="Cancelled By: |4|"
^XMB(3.6,192,2,0)="^3.62P^1^1"
^XMB(3.6,192,2,1,0)="232"
^XMB(3.6,192,2,"B",232,1)=""
^XMB(3.6,192,4,0)="^3.64A^4^4"
^XMB(3.6,192,4,1,0)="1"
^XMB(3.6,192,4,1,1,0)="^^1^1^3050323^"
^XMB(3.6,192,4,1,1,1,0)="order text"
^XMB(3.6,192,4,2,0)="2"
^XMB(3.6,192,4,2,1,0)="^^1^1^3050323^"
^XMB(3.6,192,4,2,1,1,0)="order id"
^XMB(3.6,192,4,3,0)="3"
^XMB(3.6,192,4,3,1,0)="^^1^1^3050323^"
^XMB(3.6,192,4,3,1,1,0)="patient"
^XMB(3.6,192,4,4,0)="4"
^XMB(3.6,192,4,4,1,0)="^^1^1^3050323^"
^XMB(3.6,192,4,4,1,1,0)="user"
^XMB(3.6,193,0)="XUSERDEAC^XUSER DEACTIVATION"
^XMB(3.6,193,1,0)="^3.61A^6^6^3061002^^^"
^XMB(3.6,193,1,1,0)=" "
^XMB(3.6,193,1,2,0)="      User name : |1|"
^XMB(3.6,193,1,3,0)="      Title     : |2|"
^XMB(3.6,193,1,4,0)="      Service   : |3|"
^XMB(3.6,193,1,5,0)=" "
^XMB(3.6,193,1,6,0)="was deactivated on |4|."
^XMB(3.6,193,2,0)="^3.62P^1^1"
^XMB(3.6,193,2,1,0)="234"
^XMB(3.6,193,2,"B",234,1)=""
^XMB(3.6,193,3,0)="^3.63^2^2^3061002^^^^"
^XMB(3.6,193,3,1,0)="This bulletin will be sent to an assigned mail Group when a user get "
^XMB(3.6,193,3,2,0)="deactivated."
^XMB(3.6,193,4,0)="^3.64A^4^4"
^XMB(3.6,193,4,1,0)="1"
^XMB(3.6,193,4,1,1,0)="^^1^1^3050608^"
^XMB(3.6,193,4,1,1,1,0)="Name of user who gets deactivated."
^XMB(3.6,193,4,2,0)="2"
^XMB(3.6,193,4,2,1,0)="^^1^1^3060110^"
^XMB(3.6,193,4,2,1,1,0)="Title."
^XMB(3.6,193,4,3,0)="3"
^XMB(3.6,193,4,3,1,0)="^^1^1^3060110^"
^XMB(3.6,193,4,3,1,1,0)="Service."
^XMB(3.6,193,4,4,0)="4"
^XMB(3.6,193,4,4,1,0)="^3.65^1^1^3061002^^"
^XMB(3.6,193,4,4,1,1,0)="Date of user gets deactivated."
^XMB(3.6,194,0)="KMPD ECHO^CP Echo Server Error^1"
^XMB(3.6,194,1,0)="^3.61A^9^9^3060412^^"
^XMB(3.6,194,1,1,0)="The 'CP Echo Server' [KMPD ECHO] encountered an error."
^XMB(3.6,194,1,2,0)=" "
^XMB(3.6,194,1,3,0)="   Date/Time: |1|"
^XMB(3.6,194,1,4,0)="      Sender: |2|"
^XMB(3.6,194,1,5,0)=" Option name: |3|"
^XMB(3.6,194,1,6,0)="     Subject: |4|"
^XMB(3.6,194,1,7,0)="   Message #: |5|"
^XMB(3.6,194,1,8,0)=" "
^XMB(3.6,194,1,9,0)="    Comments: |6|"
^XMB(3.6,194,2,0)="^3.62P^1^1"
^XMB(3.6,194,2,1,0)="98"
^XMB(3.6,194,2,"B",98,1)=""
^XMB(3.6,194,3,0)="^3.63^2^2^3060412^^"
^XMB(3.6,194,3,1,0)="This bulletin is sent to the KMP-CAPMAN mail group when the 'CP Echo "
^XMB(3.6,194,3,2,0)="Server' [KMPD ECHO] encounters an error."
^XMB(3.6,194,4,0)="^3.64A^6^6"
^XMB(3.6,194,4,1,0)="1"
^XMB(3.6,194,4,1,1,0)="^^2^2^3060315^"
^XMB(3.6,194,4,1,1,1,0)="The date and time in human-readable form when the server request was "
^XMB(3.6,194,4,1,1,2,0)="received."
^XMB(3.6,194,4,2,0)="2"
^XMB(3.6,194,4,2,1,0)="^^1^1^3060315^"
^XMB(3.6,194,4,2,1,1,0)="The name of the sender of the server request."
^XMB(3.6,194,4,3,0)="3"
^XMB(3.6,194,4,3,1,0)="^^1^1^3060315^"
^XMB(3.6,194,4,3,1,1,0)="The name of the option which was requested by Mailman."
^XMB(3.6,194,4,4,0)="4"
^XMB(3.6,194,4,4,1,0)="^^1^1^3060315^"
^XMB(3.6,194,4,4,1,1,0)="The subject of the message which requested a server."
^XMB(3.6,194,4,5,0)="5"
^XMB(3.6,194,4,5,1,0)="^^1^1^3060315^"
^XMB(3.6,194,4,5,1,1,0)="The internal number of the message requesting a server."
^XMB(3.6,194,4,6,0)="6"
^XMB(3.6,194,4,6,1,0)="^3.65^3^3^3060315^"
^XMB(3.6,194,4,6,1,1,0)="Comments appended to the bulletin. These may include errors trapped by "
^XMB(3.6,194,4,6,1,2,0)="the server software and/or the operating system, as well as general "
^XMB(3.6,194,4,6,1,3,0)="purpose messages."
^XMB(3.6,195,0)="SCMC PROVIDER INACTIVATION^PCMM PROVIDER AUTOMATICALLY INACTIVATED"
^XMB(3.6,195,1,0)="^3.61A^1^1^3040130^^"
^XMB(3.6,195,1,1,0)="Provider |1|  was inactivated from position |2|"
^XMB(3.6,195,4,0)="^3.64A^2^2"
^XMB(3.6,195,4,1,0)="1"
^XMB(3.6,195,4,1,1,0)="^^1^1^3031217^"
^XMB(3.6,195,4,1,1,1,0)="PRACTITIONER"
^XMB(3.6,195,4,2,0)="2"
^XMB(3.6,195,4,2,1,0)="^3.65^1^1^3040130^^"
^XMB(3.6,195,4,2,1,1,0)="Team Position"
^XMB(3.6,196,0)="TIU ENTERPRISE STANDARD TITLES^Enterprise Standard Title Deployment^21"
^XMB(3.6,196,1,0)="^^12^12^3070315^"
^XMB(3.6,196,1,1,0)="                  *** TIU TITLE DEPLOYMENT COMPLETED ***"
^XMB(3.6,196,1,2,0)="  "
^XMB(3.6,196,1,3,0)="The VHA Enterprise Standard Title Deployment has completed. The following"
^XMB(3.6,196,1,4,0)="is a listing of titles which were either activated or inactivated by the"
^XMB(3.6,196,1,5,0)="deployment. If the Clinical Applications Coordinator(s) at your facility "
^XMB(3.6,196,1,6,0)="are not among the recipients of this bulletin, please forward it to them."
^XMB(3.6,196,1,7,0)=" "
^XMB(3.6,196,1,8,0)="                  TITLE DEPLOYMENT STATUS CHANGE REPORT"
^XMB(3.6,196,1,9,0)="                  ====================================="
^XMB(3.6,196,1,10,0)=" "
^XMB(3.6,196,1,11,0)="  DEPLOYMENT STARTED:  |1|"
^XMB(3.6,196,1,12,0)="DEPLOYMENT COMPLETED:  |2|"
^XMB(3.6,196,2,0)="^3.62P^2^2"
^XMB(3.6,196,2,1,0)="244"
^XMB(3.6,196,2,2,0)="138"
^XMB(3.6,196,2,"B",138,2)=""
^XMB(3.6,196,2,"B",244,1)=""
^XMB(3.6,196,3,0)="^^3^3^3070315^"
^XMB(3.6,196,3,1,0)="This bulletin will be delivered to members of the TIU CAC and XUMF SERVER"
^XMB(3.6,196,3,2,0)="mail groups when a deployment of Enterprise Standard Titles modifies the"
^XMB(3.6,196,3,3,0)="activation status of one or more Titles."
^XMB(3.6,196,4,0)="^3.64A^2^2"
^XMB(3.6,196,4,1,0)="1"
^XMB(3.6,196,4,1,1,0)="^^1^1^3070313^"
^XMB(3.6,196,4,1,1,1,0)="Date/Time deployment started."
^XMB(3.6,196,4,2,0)="2"
^XMB(3.6,196,4,2,1,0)="^3.65^1^1^3070315^^^^"
^XMB(3.6,196,4,2,1,1,0)="Date/Time deployment completed."
^XMB(3.6,"B","ABSV SERVER",113)=""
^XMB(3.6,"B","DG CONSISTENCY",40)=""
^XMB(3.6,"B","DG EMBOSSER",37)=""
^XMB(3.6,"B","DG EMBOSSER1",38)=""
^XMB(3.6,"B","DG SENSITIVITY",39)=""
^XMB(3.6,"B","DG SENSITIVITY REMOVED",138)=""
^XMB(3.6,"B","DG UNVERIFIED ELIG",41)=""
^XMB(3.6,"B","DGQE HL7ERR",180)=""
^XMB(3.6,"B","DGQE PHOTO CAPTURE",107)=""
^XMB(3.6,"B","DGRU HL7SND",144)=""
^XMB(3.6,"B","DGRU RAI ERROR",143)=""
^XMB(3.6,"B","DGRU REJECT",142)=""
^XMB(3.6,"B","DVB HINQ RESPONSE",61)=""
^XMB(3.6,"B","DVBA C 2507 EXAM READY",62)=""
^XMB(3.6,"B","DVBA C 2507 EXAM REOPENED",63)=""
^XMB(3.6,"B","DVBA C EDIT ADDRESS",65)=""
^XMB(3.6,"B","DVBA C NEW C&P VETERAN",64)=""
^XMB(3.6,"B","EAS MTCOMPLETION",169)=""
^XMB(3.6,"B","EN NEW EQUIPMENT",33)=""
^XMB(3.6,"B","ESP SUPERVISOR REVIEW",85)=""
^XMB(3.6,"B","ESP UOR COMPLETED",84)=""
^XMB(3.6,"B","ESP VACO 48 HR CRITERIA",86)=""
^XMB(3.6,"B","FB INSURANCE CHANGE",72)=""
^XMB(3.6,"B","FBAA BATCH PURGE",71)=""
^XMB(3.6,"B","FBAA PURGE",70)=""
^XMB(3.6,"B","FBAA PURGE TRANSMITTED MRA'S",73)=""
^XMB(3.6,"B","FHDIDIP",32)=""
^XMB(3.6,"B","FHDIOO",31)=""
^XMB(3.6,"B","FHDIORD",29)=""
^XMB(3.6,"B","FHDIREQ",28)=""
^XMB(3.6,"B","FHDITF",30)=""
^XMB(3.6,"B","GMPL DUPLICATE PROBLEMS",131)=""
^XMB(3.6,"B","GMRA ENTERED IN ERROR",52)=""
^XMB(3.6,"B","GMRA MARK CHART",49)=""
^XMB(3.6,"B","GMRA P&T COMMITTEE FDA",51)=""
^XMB(3.6,"B","GMRA SIGNS/SYMPTOMS UPDATE",53)=""
^XMB(3.6,"B","GMRA VERIFY ALLERGY",50)=""
^XMB(3.6,"B","HDIS ERRORS",186)=""
^XMB(3.6,"B","HDIS NOTIFY ERT",187)=""
^XMB(3.6,"B","HDIS NOTIFY HDR",188)=""
^XMB(3.6,"B","HDIS XML MSG PROCESS ERROR",185)=""
^XMB(3.6,"B","KMPD ECHO",194)=""
^XMB(3.6,"B","LA7 ABNORMAL RESULTS RECEIVED",184)=""
^XMB(3.6,"B","LA7 AMENDED RESULTS RECEIVED",181)=""
^XMB(3.6,"B","LA7 ORDER STATUS CHANGED",182)=""
^XMB(3.6,"B","LA7 UNITS/NORMALS CHANGED",183)=""
^XMB(3.6,"B","LBRYFORUM",80)=""
^XMB(3.6,"B","LBRYMANL",117)=""
^XMB(3.6,"B","MPIF CMOR COMPARE COMPLETE",140)=""
^XMB(3.6,"B","OCX COMPILER RUN",128)=""
^XMB(3.6,"B","OCX POSTINIT COMPLETE",127)=""
^XMB(3.6,"B","OOPS BILL OF RIGHTS",121)=""
^XMB(3.6,"B","OOPS CASE",118)=""
^XMB(3.6,"B","OOPS CASE CLOSE NOTIFICATION",179)=""
^XMB(3.6,"B","OOPS CONSENT",165)=""
^XMB(3.6,"B","OOPS EMPLOYEE",120)=""
^XMB(3.6,"B","OOPS EMPSIGNCA7",189)=""
^XMB(3.6,"B","OOPS SAFETY",119)=""
^XMB(3.6,"B","OOPS SENSITIVE DATA",177)=""
^XMB(3.6,"B","OOPS SIGNATURE SECURITY",163)=""
^XMB(3.6,"B","OOPS SUPERVISOR",122)=""
^XMB(3.6,"B","OOPS WC EDITED",160)=""
^XMB(3.6,"B","OOPS WC SIGNED",162)=""
^XMB(3.6,"B","OOPS WCPBOR",164)=""
^XMB(3.6,"B","OOPS WORKERS COMP",161)=""
^XMB(3.6,"B","OR CONVERSION ERRORS",126)=""
^XMB(3.6,"B","OR DRUG ORDER CANCELLED",192)=""
^XMB(3.6,"B","OR FLAGGED ORDER",36)=""
^XMB(3.6,"B","ORB SURROGATE RECIPIENT",129)=""
^XMB(3.6,"B","PRCA NIGHTLY PROCESS ABORT",48)=""
^XMB(3.6,"B","PRCF FMS ADJUSTMENTS",42)=""
^XMB(3.6,"B","PRCF_850_BULLETIN",43)=""
^XMB(3.6,"B","PRCF_850_BULLETIN1",44)=""
^XMB(3.6,"B","PRCH GPF",124)=""
^XMB(3.6,"B","PRCHQ 843 UPDATE VENDOR INFO",106)=""
^XMB(3.6,"B","PRCHQ 864 ERROR",105)=""
^XMB(3.6,"B","PRCHQ 864 NORMAL",104)=""
^XMB(3.6,"B","PRCNCMR1",93)=""
^XMB(3.6,"B","PRCNCMR2",94)=""
^XMB(3.6,"B","PRCNCONC",96)=""
^XMB(3.6,"B","PRCNEQC1",97)=""
^XMB(3.6,"B","PRCNEQC2",98)=""
^XMB(3.6,"B","PRCNEQC3",100)=""
^XMB(3.6,"B","PRCNEQC4",101)=""
^XMB(3.6,"B","PRCNEQFN",102)=""
^XMB(3.6,"B","PRCNPPM1",95)=""
^XMB(3.6,"B","PRCNPPM2",99)=""
^XMB(3.6,"B","PRCNWHSE",103)=""
^XMB(3.6,"B","PRCOEDI ACKNOWLEDGE",47)=""
^XMB(3.6,"B","PRCP_ALL_ITEMS_QTY_UPDATE",153)=""
^XMB(3.6,"B","PRCP_BAD_ACTIVITY",151)=""
^XMB(3.6,"B","PRCP_BAD_ITEM_QOH",156)=""
^XMB(3.6,"B","PRCP_BAD_ORDER",150)=""
^XMB(3.6,"B","PRCP_BAD_QUERY",155)=""
^XMB(3.6,"B","PRCP_ITEM_NAME",154)=""
^XMB(3.6,"B","PRCP_NO_REFILL",149)=""
^XMB(3.6,"B","PRCP_ORDER_NOT_GENERATED",157)=""
^XMB(3.6,"B","PRCP_ORDER_PARTIALLY_LOST",168)=""
^XMB(3.6,"B","PRCP_QTY_MISMATCH",152)=""
^XMB(3.6,"B","PRCVUP",45)=""
^XMB(3.6,"B","PRCV_AUDIT_FILE_ERROR",190)=""
^XMB(3.6,"B","PRC_IFCAP_CHANGE",46)=""
^XMB(3.6,"B","PRS LAST SAT OT/CT",114)=""
^XMB(3.6,"B","PRS UPDATE CCORG",68)=""
^XMB(3.6,"B","PRSA LV TK",67)=""
^XMB(3.6,"B","PSX CMOP",60)=""
^XMB(3.6,"B","PXCA PCE ERROR BULLETIN",69)=""
^XMB(3.6,"B","QAM MONITOR TOOL 1",88)=""
^XMB(3.6,"B","QAM MONITOR TOOL 2",89)=""
^XMB(3.6,"B","RAD/NUC MED CREDIT FAILURE",82)=""
^XMB(3.6,"B","RAD/NUC MED EXAM DELETED",74)=""
^XMB(3.6,"B","RAD/NUC MED REPORT DELETION",75)=""
^XMB(3.6,"B","RAD/NUC MED REPORT UNVERIFIED",76)=""
^XMB(3.6,"B","RAD/NUC MED REQUEST CANCELLED",77)=""
^XMB(3.6,"B","RAD/NUC MED REQUEST HELD",78)=""
^XMB(3.6,"B","RG CIRN DEMOGRAPHIC ISSUES",130)=""
^XMB(3.6,"B","RMPF-FILE-UPDATE",91)=""
^XMB(3.6,"B","RMPFMESSAGE (ASPS)",90)=""
^XMB(3.6,"B","RMPFMESSAGE (PSAS)",92)=""
^XMB(3.6,"B","RMPR CANCEL TRANSACTION",87)=""
^XMB(3.6,"B","RT ATTEMPT-ON-MISSING-REC",55)=""
^XMB(3.6,"B","RT CANCELED REQ",58)=""
^XMB(3.6,"B","RT MISSING RECORD",57)=""
^XMB(3.6,"B","RT RECORD DELETION",56)=""
^XMB(3.6,"B","RT RECORD FOUND",54)=""
^XMB(3.6,"B","RT REQUEST/NOTICE TRANSFER",59)=""
^XMB(3.6,"B","SCDX AMBCARE TO NPCDB SUMMARY",83)=""
^XMB(3.6,"B","SCDX INCOMPLETE ENCOUNTER MGMT",116)=""
^XMB(3.6,"B","SCMC PROVIDER INACTIVATION",195)=""
^XMB(3.6,"B","SD API ERROR NOTICE",191)=""
^XMB(3.6,"B","SPNLBULLETIN",123)=""
^XMB(3.6,"B","TIU DS CONVERSION CLEAN",111)=""
^XMB(3.6,"B","TIU DS CONVERSION ERRORS",112)=""
^XMB(3.6,"B","TIU ENTERPRISE STANDARD TITLES",196)=""
^XMB(3.6,"B","TIU PRN CONVERSION CLEAN",109)=""
^XMB(3.6,"B","TIU PRN CONVERSION ERRORS",110)=""
^XMB(3.6,"B","TIU RE-INDEX DOCUMENT FILE",125)=""
^XMB(3.6,"B","VAFH ADT/HL7 ERROR",115)=""
^XMB(3.6,"B","XDR ERROR",27)=""
^XMB(3.6,"B","XDR MERGED",26)=""
^XMB(3.6,"B","XDR VERIFIED",25)=""
^XMB(3.6,"B","XM BANNER MESSAGE",15)=""
^XMB(3.6,"B","XM DATE PURGE WARNING",159)=""
^XMB(3.6,"B","XM DOMAIN ADDED",148)=""
^XMB(3.6,"B","XM FILTER FWD ADDRESS DELETE",146)=""
^XMB(3.6,"B","XM FWD ADDRESS CHANGE",170)=""
^XMB(3.6,"B","XM FWD ADDRESS CHECK",173)=""
^XMB(3.6,"B","XM FWD ADDRESS DELETE",136)=""
^XMB(3.6,"B","XM GROUP EDIT NOTIFY",158)=""
^XMB(3.6,"B","XM GROUP ERROR",137)=""
^XMB(3.6,"B","XM IN BASKET PURGE REQUEST",175)=""
^XMB(3.6,"B","XM IN BASKET PURGE WARNING",174)=""
^XMB(3.6,"B","XM RELAY ATTEMPTED",178)=""
^XMB(3.6,"B","XM SEND ERR MSG",135)=""
^XMB(3.6,"B","XM SEND ERR RECIPIENT",132)=""
^XMB(3.6,"B","XM SEND ERR REMOTE MSG ID",134)=""
^XMB(3.6,"B","XM SEND ERR SERVER MSG",133)=""
^XMB(3.6,"B","XM SEND ERR TRANSMISSION",171)=""
^XMB(3.6,"B","XM SUPER SEARCH",145)=""
^XMB(3.6,"B","XM TOO MANY MESSAGES",172)=""
^XMB(3.6,"B","XMNEWUSER",13)=""
^XMB(3.6,"B","XMRDACK",10)=""
^XMB(3.6,"B","XMVALBAD",22)=""
^XMB(3.6,"B","XM_TRANSMISSION_ERROR",23)=""
^XMB(3.6,"B","XQSERVER",8)=""
^XMB(3.6,"B","XTRMON",9)=""
^XMB(3.6,"B","XUMF ERROR",167)=""
^XMB(3.6,"B","XUMF INSTITUTION",166)=""
^XMB(3.6,"B","XUPROGMODE",7)=""
^XMB(3.6,"B","XUS ACCESS CODE VIOLATION",6)=""
^XMB(3.6,"B","XUSECURITY",4)=""
^XMB(3.6,"B","XUSERDEAC",193)=""
^XMB(3.6,"B","XUSERTERM",5)=""
^XMB(3.6,"B","XUSIGNON",1)=""
^XMB(3.6,"B","XUSLOCK",2)=""
^XMB(3.6,"B","XUSSPKI CRL SERVER",176)=""
^XMB(3.6,"B","XUSTIME",3)=""
^XMB(3.6,"B","XUTM PROBLEM DEVICES",139)=""
^XMB(3.6,"B","XUVISIT",141)=""
^XMB(3.6,"B","YS PSYCHTEST",66)=""
^XMB(3.7,0)="MAILBOX^3.7P^70^66"
^XMB(3.7,0,"T")="^^"
^XMB(3.7,.5,0)=".5^^^^^7^^^^^^^^3071227.055154^3061008.020216"
^XMB(3.7,.5,2,0)="^3.701^1018^3"
^XMB(3.7,.5,2,.5,0)="WASTE^0"
^XMB(3.7,.5,2,.5,1,0)="^3.702P^169^247"
^XMB(3.7,.5,2,.5,1,1,0)="1^79^^3061008.020904"
^XMB(3.7,.5,2,.5,1,2,0)="2^80^^3061008.020904"
^XMB(3.7,.5,2,.5,1,3,0)="3^81^^3061008.020904"
^XMB(3.7,.5,2,.5,1,4,0)="4^82^^3061008.020904"
^XMB(3.7,.5,2,.5,1,5,0)="5^83^^3061008.020904"
^XMB(3.7,.5,2,.5,1,6,0)="6^84^^3061008.020904"
^XMB(3.7,.5,2,.5,1,7,0)="7^85^^3061008.020904"
^XMB(3.7,.5,2,.5,1,8,0)="8^86^^3061008.020904"
^XMB(3.7,.5,2,.5,1,9,0)="9^87^^3061008.020904"
^XMB(3.7,.5,2,.5,1,10,0)="10^88^^3061008.020904"
^XMB(3.7,.5,2,.5,1,11,0)="11^89^^3061008.020904"
^XMB(3.7,.5,2,.5,1,12,0)="12^90^^3061008.020904"
^XMB(3.7,.5,2,.5,1,13,0)="13^91^^3061008.020904"
^XMB(3.7,.5,2,.5,1,14,0)="14^92^^3061008.020904"
^XMB(3.7,.5,2,.5,1,15,0)="15^93^^3061008.020904"
^XMB(3.7,.5,2,.5,1,16,0)="16^94^^3061008.020904"
^XMB(3.7,.5,2,.5,1,17,0)="17^95^^3061008.020904"
^XMB(3.7,.5,2,.5,1,18,0)="18^96^^3061008.020904"
^XMB(3.7,.5,2,.5,1,19,0)="19^97^^3061008.020904"
^XMB(3.7,.5,2,.5,1,20,0)="20^98^^3061008.020904"
^XMB(3.7,.5,2,.5,1,21,0)="21^99^^3061008.020904"
^XMB(3.7,.5,2,.5,1,22,0)="22^100^^3061008.020904"
^XMB(3.7,.5,2,.5,1,23,0)="23^101^^3061008.020904"
^XMB(3.7,.5,2,.5,1,24,0)="24^102^^3061008.020904"
^XMB(3.7,.5,2,.5,1,25,0)="25^103^^3061008.020904"
^XMB(3.7,.5,2,.5,1,26,0)="26^104^^3061008.020904"
^XMB(3.7,.5,2,.5,1,27,0)="27^105^^3061008.020904"
^XMB(3.7,.5,2,.5,1,28,0)="28^106^^3061008.020904"
^XMB(3.7,.5,2,.5,1,29,0)="29^107^^3061008.020904"
^XMB(3.7,.5,2,.5,1,30,0)="30^108^^3061008.020904"
^XMB(3.7,.5,2,.5,1,31,0)="31^109^^3061008.020904"
^XMB(3.7,.5,2,.5,1,32,0)="32^110^^3061008.020904"
^XMB(3.7,.5,2,.5,1,33,0)="33^111^^3061008.020904"
^XMB(3.7,.5,2,.5,1,34,0)="34^112^^3061008.020904"
^XMB(3.7,.5,2,.5,1,35,0)="35^113^^3061008.020904"
^XMB(3.7,.5,2,.5,1,36,0)="36^114^^3061008.020904"
^XMB(3.7,.5,2,.5,1,37,0)="37^115^^3061008.020904"
^XMB(3.7,.5,2,.5,1,38,0)="38^116^^3061008.020904"
^XMB(3.7,.5,2,.5,1,39,0)="39^117^^3061008.020904"
^XMB(3.7,.5,2,.5,1,40,0)="40^118^^3061008.020904"
^XMB(3.7,.5,2,.5,1,41,0)="41^119^^3061008.020904"
^XMB(3.7,.5,2,.5,1,42,0)="42^120^^3061008.020904"
^XMB(3.7,.5,2,.5,1,43,0)="43^121^^3061008.020904"
^XMB(3.7,.5,2,.5,1,44,0)="44^122^^3061008.020904"
^XMB(3.7,.5,2,.5,1,45,0)="45^123^^3061008.020904"
^XMB(3.7,.5,2,.5,1,46,0)="46^124^^3061008.020904"
^XMB(3.7,.5,2,.5,1,47,0)="47^125^^3061008.020904"
^XMB(3.7,.5,2,.5,1,48,0)="48^126^^3061008.020904"
^XMB(3.7,.5,2,.5,1,49,0)="49^127^^3061008.020904"
^XMB(3.7,.5,2,.5,1,50,0)="50^128^^3061008.020904"
^XMB(3.7,.5,2,.5,1,51,0)="51^129^^3061008.020904"
^XMB(3.7,.5,2,.5,1,52,0)="52^130^^3061008.020904"
^XMB(3.7,.5,2,.5,1,53,0)="53^131^^3061008.020904"
^XMB(3.7,.5,2,.5,1,54,0)="54^132^^3061008.020904"
^XMB(3.7,.5,2,.5,1,55,0)="55^133^^3061008.020904"
^XMB(3.7,.5,2,.5,1,56,0)="56^134^^3061008.020904"
^XMB(3.7,.5,2,.5,1,57,0)="57^135^^3061008.020904"
^XMB(3.7,.5,2,.5,1,58,0)="58^136^^3061008.020904"
^XMB(3.7,.5,2,.5,1,59,0)="59^137^^3061008.020904"
^XMB(3.7,.5,2,.5,1,60,0)="60^138^^3061008.020904"
^XMB(3.7,.5,2,.5,1,61,0)="61^139^^3061008.020904"
^XMB(3.7,.5,2,.5,1,62,0)="62^140^^3061008.020904"
^XMB(3.7,.5,2,.5,1,63,0)="63^141^^3061008.020904"
^XMB(3.7,.5,2,.5,1,64,0)="64^142^^3061008.020904"
^XMB(3.7,.5,2,.5,1,65,0)="65^143^^3061008.020904"
^XMB(3.7,.5,2,.5,1,66,0)="66^144^^3061008.020904"
^XMB(3.7,.5,2,.5,1,67,0)="67^145^^3061008.020904"
^XMB(3.7,.5,2,.5,1,68,0)="68^146^^3061008.020904"
^XMB(3.7,.5,2,.5,1,69,0)="69^147^^3061008.020904"
^XMB(3.7,.5,2,.5,1,70,0)="70^148^^3061008.020904"
^XMB(3.7,.5,2,.5,1,71,0)="71^149^^3061008.020904"
^XMB(3.7,.5,2,.5,1,72,0)="72^150^^3061008.020904"
^XMB(3.7,.5,2,.5,1,73,0)="73^151^^3061008.020904"
^XMB(3.7,.5,2,.5,1,74,0)="74^152^^3061008.020904"
^XMB(3.7,.5,2,.5,1,75,0)="75^153^^3061008.020904"
^XMB(3.7,.5,2,.5,1,76,0)="76^154^^3061008.020904"
^XMB(3.7,.5,2,.5,1,77,0)="77^155^^3061008.020904"
^XMB(3.7,.5,2,.5,1,78,0)="78^156^^3061008.020904"
^XMB(3.7,.5,2,.5,1,79,0)="79^157^^3061008.020904"
^XMB(3.7,.5,2,.5,1,80,0)="80^158^^3061008.020904"
^XMB(3.7,.5,2,.5,1,81,0)="81^159^^3061008.020904"
^XMB(3.7,.5,2,.5,1,82,0)="82^160^^3061008.020904"
^XMB(3.7,.5,2,.5,1,83,0)="83^161^^3061008.020904"
^XMB(3.7,.5,2,.5,1,84,0)="84^162^^3061008.020904"
^XMB(3.7,.5,2,.5,1,85,0)="85^163^^3061008.020904"
^XMB(3.7,.5,2,.5,1,86,0)="86^164^^3061008.020904"
^XMB(3.7,.5,2,.5,1,87,0)="87^165^^3061008.020904"
^XMB(3.7,.5,2,.5,1,88,0)="88^166^^3061008.020904"
^XMB(3.7,.5,2,.5,1,89,0)="89^167^^3061008.020904"
^XMB(3.7,.5,2,.5,1,90,0)="90^168^^3061008.020904"
^XMB(3.7,.5,2,.5,1,91,0)="91^169^^3061008.020904"
^XMB(3.7,.5,2,.5,1,92,0)="92^170^^3061008.020904"
^XMB(3.7,.5,2,.5,1,93,0)="93^171^^3061008.020904"
^XMB(3.7,.5,2,.5,1,94,0)="94^172^^3061008.020904"
^XMB(3.7,.5,2,.5,1,95,0)="95^173^^3061008.020904"
^XMB(3.7,.5,2,.5,1,96,0)="96^174^^3061008.020904"
^XMB(3.7,.5,2,.5,1,97,0)="97^175^^3061008.020904"
^XMB(3.7,.5,2,.5,1,98,0)="98^176^^3061008.020904"
^XMB(3.7,.5,2,.5,1,99,0)="99^177^^3061008.020904"
^XMB(3.7,.5,2,.5,1,100,0)="100^178^^3061008.020904"
^XMB(3.7,.5,2,.5,1,101,0)="101^179^^3061008.020904"
^XMB(3.7,.5,2,.5,1,102,0)="102^180^^3061008.020904"
^XMB(3.7,.5,2,.5,1,103,0)="103^181^^3061008.020904"
^XMB(3.7,.5,2,.5,1,104,0)="104^182^^3061008.020904"
^XMB(3.7,.5,2,.5,1,105,0)="105^183^^3061008.020904"
^XMB(3.7,.5,2,.5,1,106,0)="106^184^^3061008.020904"
^XMB(3.7,.5,2,.5,1,107,0)="107^185^^3061008.020904"
^XMB(3.7,.5,2,.5,1,108,0)="108^186^^3061008.020904"
^XMB(3.7,.5,2,.5,1,109,0)="109^187^^3061008.020904"
^XMB(3.7,.5,2,.5,1,110,0)="110^188^^3061008.020904"
^XMB(3.7,.5,2,.5,1,111,0)="111^189^^3061008.020904"
^XMB(3.7,.5,2,.5,1,112,0)="112^190^^3061008.020904"
^XMB(3.7,.5,2,.5,1,113,0)="113^191^^3061008.020904"
^XMB(3.7,.5,2,.5,1,114,0)="114^192^^3061008.020904"
^XMB(3.7,.5,2,.5,1,115,0)="115^193^^3061008.020904"
^XMB(3.7,.5,2,.5,1,116,0)="116^194^^3061008.020904"
^XMB(3.7,.5,2,.5,1,117,0)="117^195^^3061008.020904"
^XMB(3.7,.5,2,.5,1,118,0)="118^196^^3061008.020904"
^XMB(3.7,.5,2,.5,1,119,0)="119^197^^3061008.020904"
^XMB(3.7,.5,2,.5,1,120,0)="120^198^^3061008.020904"
^XMB(3.7,.5,2,.5,1,121,0)="121^199^^3061008.020904"
^XMB(3.7,.5,2,.5,1,122,0)="122^200^^3061008.020904"
^XMB(3.7,.5,2,.5,1,123,0)="123^201^^3061008.020904"
^XMB(3.7,.5,2,.5,1,124,0)="124^202^^3061008.020904"
^XMB(3.7,.5,2,.5,1,125,0)="125^203^^3061008.020904"
^XMB(3.7,.5,2,.5,1,126,0)="126^204^^3061008.020904"
^XMB(3.7,.5,2,.5,1,127,0)="127^205^^3061008.020904"
^XMB(3.7,.5,2,.5,1,128,0)="128^206^^3061008.020904"
^XMB(3.7,.5,2,.5,1,129,0)="129^207^^3061008.020904"
^XMB(3.7,.5,2,.5,1,130,0)="130^208^^3061008.020904"
^XMB(3.7,.5,2,.5,1,131,0)="131^209^^3061008.020904"
^XMB(3.7,.5,2,.5,1,132,0)="132^210^^3061008.020904"
^XMB(3.7,.5,2,.5,1,133,0)="133^211^^3061008.020904"
^XMB(3.7,.5,2,.5,1,134,0)="134^212^^3061008.020904"
^XMB(3.7,.5,2,.5,1,135,0)="135^213^^3061008.020904"
^XMB(3.7,.5,2,.5,1,136,0)="136^214^^3061008.020904"
^XMB(3.7,.5,2,.5,1,137,0)="137^215^^3061008.020904"
^XMB(3.7,.5,2,.5,1,138,0)="138^216^^3061008.020904"
^XMB(3.7,.5,2,.5,1,139,0)="139^217^^3061008.020904"
^XMB(3.7,.5,2,.5,1,140,0)="140^218^^3061008.020904"
^XMB(3.7,.5,2,.5,1,141,0)="141^219^^3061008.020904"
^XMB(3.7,.5,2,.5,1,142,0)="142^220^^3061008.020904"
^XMB(3.7,.5,2,.5,1,143,0)="143^221^^3061008.020904"
^XMB(3.7,.5,2,.5,1,144,0)="144^222^^3061008.020904"
^XMB(3.7,.5,2,.5,1,145,0)="145^223^^3061008.020904"
^XMB(3.7,.5,2,.5,1,146,0)="146^224^^3061008.020904"
^XMB(3.7,.5,2,.5,1,147,0)="147^225^^3061008.020904"
^XMB(3.7,.5,2,.5,1,148,0)="148^226^^3061008.020904"
^XMB(3.7,.5,2,.5,1,149,0)="149^227^^3061008.020904"
^XMB(3.7,.5,2,.5,1,150,0)="150^228^^3061008.020904"
^XMB(3.7,.5,2,.5,1,151,0)="151^229^^3061008.020904"
^XMB(3.7,.5,2,.5,1,152,0)="152^230^^3061008.020904"
^XMB(3.7,.5,2,.5,1,153,0)="153^231^^3061008.020904"
^XMB(3.7,.5,2,.5,1,154,0)="154^232^^3061008.020904"
^XMB(3.7,.5,2,.5,1,155,0)="155^233^^3061008.020904"
^XMB(3.7,.5,2,.5,1,156,0)="156^234^^3061008.020904"
^XMB(3.7,.5,2,.5,1,157,0)="157^235^^3061008.020904"
^XMB(3.7,.5,2,.5,1,158,0)="158^236^^3061008.020904"
^XMB(3.7,.5,2,.5,1,159,0)="159^237^^3061008.020904"
^XMB(3.7,.5,2,.5,1,160,0)="160^238^^3061008.020904"
^XMB(3.7,.5,2,.5,1,161,0)="161^239^^3061008.020904"
^XMB(3.7,.5,2,.5,1,162,0)="162^240^^3061008.020904"
^XMB(3.7,.5,2,.5,1,163,0)="163^241^^3061008.020904"
^XMB(3.7,.5,2,.5,1,164,0)="164^242^^3061008.020904"
^XMB(3.7,.5,2,.5,1,165,0)="165^243^^3061008.020904"
^XMB(3.7,.5,2,.5,1,166,0)="166^244^^3061008.020904"
^XMB(3.7,.5,2,.5,1,167,0)="167^245^^3061008.020904"
^XMB(3.7,.5,2,.5,1,168,0)="168^246^^3061008.020904"
^XMB(3.7,.5,2,.5,1,169,0)="169^247^^3061008.020904"
^XMB(3.7,.5,2,.5,1,170,0)="170^1^^3061008.02084"
^XMB(3.7,.5,2,.5,1,171,0)="171^2^^3061008.02084"
^XMB(3.7,.5,2,.5,1,172,0)="172^3^^3061008.02084"
^XMB(3.7,.5,2,.5,1,173,0)="173^4^^3061008.02084"
^XMB(3.7,.5,2,.5,1,174,0)="174^5^^3061008.02084"
^XMB(3.7,.5,2,.5,1,175,0)="175^6^^3061008.02084"
^XMB(3.7,.5,2,.5,1,176,0)="176^7^^3061008.02084"
^XMB(3.7,.5,2,.5,1,177,0)="177^8^^3061008.02084"
^XMB(3.7,.5,2,.5,1,178,0)="178^9^^3061008.02084"
^XMB(3.7,.5,2,.5,1,179,0)="179^10^^3061008.02084"
^XMB(3.7,.5,2,.5,1,180,0)="180^11^^3061008.02084"
^XMB(3.7,.5,2,.5,1,181,0)="181^12^^3061008.02084"
^XMB(3.7,.5,2,.5,1,182,0)="182^13^^3061008.02084"
^XMB(3.7,.5,2,.5,1,183,0)="183^14^^3061008.02084"
^XMB(3.7,.5,2,.5,1,184,0)="184^15^^3061008.02084"
^XMB(3.7,.5,2,.5,1,185,0)="185^16^^3061008.02084"
^XMB(3.7,.5,2,.5,1,186,0)="186^17^^3061008.02084"
^XMB(3.7,.5,2,.5,1,187,0)="187^18^^3061008.02084"
^XMB(3.7,.5,2,.5,1,188,0)="188^19^^3061008.02084"
^XMB(3.7,.5,2,.5,1,189,0)="189^20^^3061008.02084"
^XMB(3.7,.5,2,.5,1,190,0)="190^21^^3061008.02084"
^XMB(3.7,.5,2,.5,1,191,0)="191^22^^3061008.02084"
^XMB(3.7,.5,2,.5,1,192,0)="192^23^^3061008.02084"
^XMB(3.7,.5,2,.5,1,193,0)="193^24^^3061008.02084"
^XMB(3.7,.5,2,.5,1,194,0)="194^25^^3061008.02084"
^XMB(3.7,.5,2,.5,1,195,0)="195^26^^3061008.02084"
^XMB(3.7,.5,2,.5,1,196,0)="196^27^^3061008.02084"
^XMB(3.7,.5,2,.5,1,197,0)="197^28^^3061008.02084"
^XMB(3.7,.5,2,.5,1,198,0)="198^29^^3061008.02084"
^XMB(3.7,.5,2,.5,1,199,0)="199^30^^3061008.02084"
^XMB(3.7,.5,2,.5,1,200,0)="200^31^^3061008.02084"
^XMB(3.7,.5,2,.5,1,201,0)="201^32^^3061008.02084"
^XMB(3.7,.5,2,.5,1,202,0)="202^33^^3061008.02084"
^XMB(3.7,.5,2,.5,1,203,0)="203^34^^3061008.02084"
^XMB(3.7,.5,2,.5,1,204,0)="204^35^^3061008.02084"
^XMB(3.7,.5,2,.5,1,205,0)="205^36^^3061008.02084"
^XMB(3.7,.5,2,.5,1,206,0)="206^37^^3061008.02084"
^XMB(3.7,.5,2,.5,1,207,0)="207^38^^3061008.02084"
^XMB(3.7,.5,2,.5,1,208,0)="208^39^^3061008.02084"
^XMB(3.7,.5,2,.5,1,209,0)="209^40^^3061008.02084"
^XMB(3.7,.5,2,.5,1,210,0)="210^41^^3061008.02084"
^XMB(3.7,.5,2,.5,1,211,0)="211^42^^3061008.02084"
^XMB(3.7,.5,2,.5,1,212,0)="212^43^^3061008.02084"
^XMB(3.7,.5,2,.5,1,213,0)="213^44^^3061008.02084"
^XMB(3.7,.5,2,.5,1,214,0)="214^45^^3061008.02084"
^XMB(3.7,.5,2,.5,1,215,0)="215^46^^3061008.02084"
^XMB(3.7,.5,2,.5,1,216,0)="216^47^^3061008.02084"
^XMB(3.7,.5,2,.5,1,217,0)="217^48^^3061008.02084"
^XMB(3.7,.5,2,.5,1,218,0)="218^49^^3061008.02084"
^XMB(3.7,.5,2,.5,1,219,0)="219^50^^3061008.02084"
^XMB(3.7,.5,2,.5,1,220,0)="220^51^^3061008.02084"
^XMB(3.7,.5,2,.5,1,221,0)="221^52^^3061008.02084"
^XMB(3.7,.5,2,.5,1,222,0)="222^53^^3061008.02084"
^XMB(3.7,.5,2,.5,1,223,0)="223^54^^3061008.02084"
^XMB(3.7,.5,2,.5,1,224,0)="224^55^^3061008.02084"
^XMB(3.7,.5,2,.5,1,225,0)="225^56^^3061008.02084"
^XMB(3.7,.5,2,.5,1,226,0)="226^57^^3061008.02084"
^XMB(3.7,.5,2,.5,1,227,0)="227^58^^3061008.02084"
^XMB(3.7,.5,2,.5,1,228,0)="228^59^^3061008.02084"
^XMB(3.7,.5,2,.5,1,229,0)="229^60^^3061008.02084"
^XMB(3.7,.5,2,.5,1,230,0)="230^61^^3061008.02084"
^XMB(3.7,.5,2,.5,1,231,0)="231^62^^3061008.02084"
^XMB(3.7,.5,2,.5,1,232,0)="232^63^^3061008.02084"
^XMB(3.7,.5,2,.5,1,233,0)="233^64^^3061008.02084"
^XMB(3.7,.5,2,.5,1,234,0)="234^65^^3061008.02084"
^XMB(3.7,.5,2,.5,1,235,0)="235^66^^3061008.02084"
^XMB(3.7,.5,2,.5,1,236,0)="236^67^^3061008.02084"
^XMB(3.7,.5,2,.5,1,237,0)="237^68^^3061008.02084"
^XMB(3.7,.5,2,.5,1,238,0)="238^69^^3061008.02084"
^XMB(3.7,.5,2,.5,1,239,0)="239^70^^3061008.02084"
^XMB(3.7,.5,2,.5,1,240,0)="240^71^^3061008.02084"
^XMB(3.7,.5,2,.5,1,241,0)="241^72^^3061008.02084"
^XMB(3.7,.5,2,.5,1,242,0)="242^73^^3061008.02084"
^XMB(3.7,.5,2,.5,1,243,0)="243^74^^3061008.02084"
^XMB(3.7,.5,2,.5,1,244,0)="244^75^^3061008.02084"
^XMB(3.7,.5,2,.5,1,245,0)="245^76^^3061008.02084"
^XMB(3.7,.5,2,.5,1,246,0)="246^77^^3061008.02084"
^XMB(3.7,.5,2,.5,1,247,0)="247^78^^3061008.02084"
^XMB(3.7,.5,2,.5,1,"C",1,170)=""
^XMB(3.7,.5,2,.5,1,"C",2,171)=""
^XMB(3.7,.5,2,.5,1,"C",3,172)=""
^XMB(3.7,.5,2,.5,1,"C",4,173)=""
^XMB(3.7,.5,2,.5,1,"C",5,174)=""
^XMB(3.7,.5,2,.5,1,"C",6,175)=""
^XMB(3.7,.5,2,.5,1,"C",7,176)=""
^XMB(3.7,.5,2,.5,1,"C",8,177)=""
^XMB(3.7,.5,2,.5,1,"C",9,178)=""
^XMB(3.7,.5,2,.5,1,"C",10,179)=""
^XMB(3.7,.5,2,.5,1,"C",11,180)=""
^XMB(3.7,.5,2,.5,1,"C",12,181)=""
^XMB(3.7,.5,2,.5,1,"C",13,182)=""
^XMB(3.7,.5,2,.5,1,"C",14,183)=""
^XMB(3.7,.5,2,.5,1,"C",15,184)=""
^XMB(3.7,.5,2,.5,1,"C",16,185)=""
^XMB(3.7,.5,2,.5,1,"C",17,186)=""
^XMB(3.7,.5,2,.5,1,"C",18,187)=""
^XMB(3.7,.5,2,.5,1,"C",19,188)=""
^XMB(3.7,.5,2,.5,1,"C",20,189)=""
^XMB(3.7,.5,2,.5,1,"C",21,190)=""
^XMB(3.7,.5,2,.5,1,"C",22,191)=""
^XMB(3.7,.5,2,.5,1,"C",23,192)=""
^XMB(3.7,.5,2,.5,1,"C",24,193)=""
^XMB(3.7,.5,2,.5,1,"C",25,194)=""
^XMB(3.7,.5,2,.5,1,"C",26,195)=""
^XMB(3.7,.5,2,.5,1,"C",27,196)=""
^XMB(3.7,.5,2,.5,1,"C",28,197)=""
^XMB(3.7,.5,2,.5,1,"C",29,198)=""
^XMB(3.7,.5,2,.5,1,"C",30,199)=""
^XMB(3.7,.5,2,.5,1,"C",31,200)=""
^XMB(3.7,.5,2,.5,1,"C",32,201)=""
^XMB(3.7,.5,2,.5,1,"C",33,202)=""
^XMB(3.7,.5,2,.5,1,"C",34,203)=""
^XMB(3.7,.5,2,.5,1,"C",35,204)=""
^XMB(3.7,.5,2,.5,1,"C",36,205)=""
^XMB(3.7,.5,2,.5,1,"C",37,206)=""
^XMB(3.7,.5,2,.5,1,"C",38,207)=""
^XMB(3.7,.5,2,.5,1,"C",39,208)=""
^XMB(3.7,.5,2,.5,1,"C",40,209)=""
^XMB(3.7,.5,2,.5,1,"C",41,210)=""
^XMB(3.7,.5,2,.5,1,"C",42,211)=""
^XMB(3.7,.5,2,.5,1,"C",43,212)=""
^XMB(3.7,.5,2,.5,1,"C",44,213)=""
^XMB(3.7,.5,2,.5,1,"C",45,214)=""
^XMB(3.7,.5,2,.5,1,"C",46,215)=""
^XMB(3.7,.5,2,.5,1,"C",47,216)=""
^XMB(3.7,.5,2,.5,1,"C",48,217)=""
^XMB(3.7,.5,2,.5,1,"C",49,218)=""
^XMB(3.7,.5,2,.5,1,"C",50,219)=""
^XMB(3.7,.5,2,.5,1,"C",51,220)=""
^XMB(3.7,.5,2,.5,1,"C",52,221)=""
^XMB(3.7,.5,2,.5,1,"C",53,222)=""
^XMB(3.7,.5,2,.5,1,"C",54,223)=""
^XMB(3.7,.5,2,.5,1,"C",55,224)=""
^XMB(3.7,.5,2,.5,1,"C",56,225)=""
^XMB(3.7,.5,2,.5,1,"C",57,226)=""
^XMB(3.7,.5,2,.5,1,"C",58,227)=""
^XMB(3.7,.5,2,.5,1,"C",59,228)=""
^XMB(3.7,.5,2,.5,1,"C",60,229)=""
^XMB(3.7,.5,2,.5,1,"C",61,230)=""
^XMB(3.7,.5,2,.5,1,"C",62,231)=""
^XMB(3.7,.5,2,.5,1,"C",63,232)=""
^XMB(3.7,.5,2,.5,1,"C",64,233)=""
^XMB(3.7,.5,2,.5,1,"C",65,234)=""
^XMB(3.7,.5,2,.5,1,"C",66,235)=""
^XMB(3.7,.5,2,.5,1,"C",67,236)=""
^XMB(3.7,.5,2,.5,1,"C",68,237)=""
^XMB(3.7,.5,2,.5,1,"C",69,238)=""
^XMB(3.7,.5,2,.5,1,"C",70,239)=""
^XMB(3.7,.5,2,.5,1,"C",71,240)=""
^XMB(3.7,.5,2,.5,1,"C",72,241)=""
^XMB(3.7,.5,2,.5,1,"C",73,242)=""
^XMB(3.7,.5,2,.5,1,"C",74,243)=""
^XMB(3.7,.5,2,.5,1,"C",75,244)=""
^XMB(3.7,.5,2,.5,1,"C",76,245)=""
^XMB(3.7,.5,2,.5,1,"C",77,246)=""
^XMB(3.7,.5,2,.5,1,"C",78,247)=""
^XMB(3.7,.5,2,.5,1,"C",79,1)=""
^XMB(3.7,.5,2,.5,1,"C",80,2)=""
^XMB(3.7,.5,2,.5,1,"C",81,3)=""
^XMB(3.7,.5,2,.5,1,"C",82,4)=""
^XMB(3.7,.5,2,.5,1,"C",83,5)=""
^XMB(3.7,.5,2,.5,1,"C",84,6)=""
^XMB(3.7,.5,2,.5,1,"C",85,7)=""
^XMB(3.7,.5,2,.5,1,"C",86,8)=""
^XMB(3.7,.5,2,.5,1,"C",87,9)=""
^XMB(3.7,.5,2,.5,1,"C",88,10)=""
^XMB(3.7,.5,2,.5,1,"C",89,11)=""
^XMB(3.7,.5,2,.5,1,"C",90,12)=""
^XMB(3.7,.5,2,.5,1,"C",91,13)=""
^XMB(3.7,.5,2,.5,1,"C",92,14)=""
^XMB(3.7,.5,2,.5,1,"C",93,15)=""
^XMB(3.7,.5,2,.5,1,"C",94,16)=""
^XMB(3.7,.5,2,.5,1,"C",95,17)=""
^XMB(3.7,.5,2,.5,1,"C",96,18)=""
^XMB(3.7,.5,2,.5,1,"C",97,19)=""
^XMB(3.7,.5,2,.5,1,"C",98,20)=""
^XMB(3.7,.5,2,.5,1,"C",99,21)=""
^XMB(3.7,.5,2,.5,1,"C",100,22)=""
^XMB(3.7,.5,2,.5,1,"C",101,23)=""
^XMB(3.7,.5,2,.5,1,"C",102,24)=""
^XMB(3.7,.5,2,.5,1,"C",103,25)=""
^XMB(3.7,.5,2,.5,1,"C",104,26)=""
^XMB(3.7,.5,2,.5,1,"C",105,27)=""
^XMB(3.7,.5,2,.5,1,"C",106,28)=""
^XMB(3.7,.5,2,.5,1,"C",107,29)=""
^XMB(3.7,.5,2,.5,1,"C",108,30)=""
^XMB(3.7,.5,2,.5,1,"C",109,31)=""
^XMB(3.7,.5,2,.5,1,"C",110,32)=""
^XMB(3.7,.5,2,.5,1,"C",111,33)=""
^XMB(3.7,.5,2,.5,1,"C",112,34)=""
^XMB(3.7,.5,2,.5,1,"C",113,35)=""
^XMB(3.7,.5,2,.5,1,"C",114,36)=""
^XMB(3.7,.5,2,.5,1,"C",115,37)=""
^XMB(3.7,.5,2,.5,1,"C",116,38)=""
^XMB(3.7,.5,2,.5,1,"C",117,39)=""
^XMB(3.7,.5,2,.5,1,"C",118,40)=""
^XMB(3.7,.5,2,.5,1,"C",119,41)=""
^XMB(3.7,.5,2,.5,1,"C",120,42)=""
^XMB(3.7,.5,2,.5,1,"C",121,43)=""
^XMB(3.7,.5,2,.5,1,"C",122,44)=""
^XMB(3.7,.5,2,.5,1,"C",123,45)=""
^XMB(3.7,.5,2,.5,1,"C",124,46)=""
^XMB(3.7,.5,2,.5,1,"C",125,47)=""
^XMB(3.7,.5,2,.5,1,"C",126,48)=""
^XMB(3.7,.5,2,.5,1,"C",127,49)=""
^XMB(3.7,.5,2,.5,1,"C",128,50)=""
^XMB(3.7,.5,2,.5,1,"C",129,51)=""
^XMB(3.7,.5,2,.5,1,"C",130,52)=""
^XMB(3.7,.5,2,.5,1,"C",131,53)=""
^XMB(3.7,.5,2,.5,1,"C",132,54)=""
^XMB(3.7,.5,2,.5,1,"C",133,55)=""
^XMB(3.7,.5,2,.5,1,"C",134,56)=""
^XMB(3.7,.5,2,.5,1,"C",135,57)=""
^XMB(3.7,.5,2,.5,1,"C",136,58)=""
^XMB(3.7,.5,2,.5,1,"C",137,59)=""
^XMB(3.7,.5,2,.5,1,"C",138,60)=""
^XMB(3.7,.5,2,.5,1,"C",139,61)=""
^XMB(3.7,.5,2,.5,1,"C",140,62)=""
^XMB(3.7,.5,2,.5,1,"C",141,63)=""
^XMB(3.7,.5,2,.5,1,"C",142,64)=""
^XMB(3.7,.5,2,.5,1,"C",143,65)=""
^XMB(3.7,.5,2,.5,1,"C",144,66)=""
^XMB(3.7,.5,2,.5,1,"C",145,67)=""
^XMB(3.7,.5,2,.5,1,"C",146,68)=""
^XMB(3.7,.5,2,.5,1,"C",147,69)=""
^XMB(3.7,.5,2,.5,1,"C",148,70)=""
^XMB(3.7,.5,2,.5,1,"C",149,71)=""
^XMB(3.7,.5,2,.5,1,"C",150,72)=""
^XMB(3.7,.5,2,.5,1,"C",151,73)=""
^XMB(3.7,.5,2,.5,1,"C",152,74)=""
^XMB(3.7,.5,2,.5,1,"C",153,75)=""
^XMB(3.7,.5,2,.5,1,"C",154,76)=""
^XMB(3.7,.5,2,.5,1,"C",155,77)=""
^XMB(3.7,.5,2,.5,1,"C",156,78)=""
^XMB(3.7,.5,2,.5,1,"C",157,79)=""
^XMB(3.7,.5,2,.5,1,"C",158,80)=""
^XMB(3.7,.5,2,.5,1,"C",159,81)=""
^XMB(3.7,.5,2,.5,1,"C",160,82)=""
^XMB(3.7,.5,2,.5,1,"C",161,83)=""
^XMB(3.7,.5,2,.5,1,"C",162,84)=""
^XMB(3.7,.5,2,.5,1,"C",163,85)=""
^XMB(3.7,.5,2,.5,1,"C",164,86)=""
^XMB(3.7,.5,2,.5,1,"C",165,87)=""
^XMB(3.7,.5,2,.5,1,"C",166,88)=""
^XMB(3.7,.5,2,.5,1,"C",167,89)=""
^XMB(3.7,.5,2,.5,1,"C",168,90)=""
^XMB(3.7,.5,2,.5,1,"C",169,91)=""
^XMB(3.7,.5,2,.5,1,"C",170,92)=""
^XMB(3.7,.5,2,.5,1,"C",171,93)=""
^XMB(3.7,.5,2,.5,1,"C",172,94)=""
^XMB(3.7,.5,2,.5,1,"C",173,95)=""
^XMB(3.7,.5,2,.5,1,"C",174,96)=""
^XMB(3.7,.5,2,.5,1,"C",175,97)=""
^XMB(3.7,.5,2,.5,1,"C",176,98)=""
^XMB(3.7,.5,2,.5,1,"C",177,99)=""
^XMB(3.7,.5,2,.5,1,"C",178,100)=""
^XMB(3.7,.5,2,.5,1,"C",179,101)=""
^XMB(3.7,.5,2,.5,1,"C",180,102)=""
^XMB(3.7,.5,2,.5,1,"C",181,103)=""
^XMB(3.7,.5,2,.5,1,"C",182,104)=""
^XMB(3.7,.5,2,.5,1,"C",183,105)=""
^XMB(3.7,.5,2,.5,1,"C",184,106)=""
^XMB(3.7,.5,2,.5,1,"C",185,107)=""
^XMB(3.7,.5,2,.5,1,"C",186,108)=""
^XMB(3.7,.5,2,.5,1,"C",187,109)=""
^XMB(3.7,.5,2,.5,1,"C",188,110)=""
^XMB(3.7,.5,2,.5,1,"C",189,111)=""
^XMB(3.7,.5,2,.5,1,"C",190,112)=""
^XMB(3.7,.5,2,.5,1,"C",191,113)=""
^XMB(3.7,.5,2,.5,1,"C",192,114)=""
^XMB(3.7,.5,2,.5,1,"C",193,115)=""
^XMB(3.7,.5,2,.5,1,"C",194,116)=""
^XMB(3.7,.5,2,.5,1,"C",195,117)=""
^XMB(3.7,.5,2,.5,1,"C",196,118)=""
^XMB(3.7,.5,2,.5,1,"C",197,119)=""
^XMB(3.7,.5,2,.5,1,"C",198,120)=""
^XMB(3.7,.5,2,.5,1,"C",199,121)=""
^XMB(3.7,.5,2,.5,1,"C",200,122)=""
^XMB(3.7,.5,2,.5,1,"C",201,123)=""
^XMB(3.7,.5,2,.5,1,"C",202,124)=""
^XMB(3.7,.5,2,.5,1,"C",203,125)=""
^XMB(3.7,.5,2,.5,1,"C",204,126)=""
^XMB(3.7,.5,2,.5,1,"C",205,127)=""
^XMB(3.7,.5,2,.5,1,"C",206,128)=""
^XMB(3.7,.5,2,.5,1,"C",207,129)=""
^XMB(3.7,.5,2,.5,1,"C",208,130)=""
^XMB(3.7,.5,2,.5,1,"C",209,131)=""
^XMB(3.7,.5,2,.5,1,"C",210,132)=""
^XMB(3.7,.5,2,.5,1,"C",211,133)=""
^XMB(3.7,.5,2,.5,1,"C",212,134)=""
^XMB(3.7,.5,2,.5,1,"C",213,135)=""
^XMB(3.7,.5,2,.5,1,"C",214,136)=""
^XMB(3.7,.5,2,.5,1,"C",215,137)=""
^XMB(3.7,.5,2,.5,1,"C",216,138)=""
^XMB(3.7,.5,2,.5,1,"C",217,139)=""
^XMB(3.7,.5,2,.5,1,"C",218,140)=""
^XMB(3.7,.5,2,.5,1,"C",219,141)=""
^XMB(3.7,.5,2,.5,1,"C",220,142)=""
^XMB(3.7,.5,2,.5,1,"C",221,143)=""
^XMB(3.7,.5,2,.5,1,"C",222,144)=""
^XMB(3.7,.5,2,.5,1,"C",223,145)=""
^XMB(3.7,.5,2,.5,1,"C",224,146)=""
^XMB(3.7,.5,2,.5,1,"C",225,147)=""
^XMB(3.7,.5,2,.5,1,"C",226,148)=""
^XMB(3.7,.5,2,.5,1,"C",227,149)=""
^XMB(3.7,.5,2,.5,1,"C",228,150)=""
^XMB(3.7,.5,2,.5,1,"C",229,151)=""
^XMB(3.7,.5,2,.5,1,"C",230,152)=""
^XMB(3.7,.5,2,.5,1,"C",231,153)=""
^XMB(3.7,.5,2,.5,1,"C",232,154)=""
^XMB(3.7,.5,2,.5,1,"C",233,155)=""
^XMB(3.7,.5,2,.5,1,"C",234,156)=""
^XMB(3.7,.5,2,.5,1,"C",235,157)=""
^XMB(3.7,.5,2,.5,1,"C",236,158)=""
^XMB(3.7,.5,2,.5,1,"C",237,159)=""
^XMB(3.7,.5,2,.5,1,"C",238,160)=""
^XMB(3.7,.5,2,.5,1,"C",239,161)=""
^XMB(3.7,.5,2,.5,1,"C",240,162)=""
^XMB(3.7,.5,2,.5,1,"C",241,163)=""
^XMB(3.7,.5,2,.5,1,"C",242,164)=""
^XMB(3.7,.5,2,.5,1,"C",243,165)=""
^XMB(3.7,.5,2,.5,1,"C",244,166)=""
^XMB(3.7,.5,2,.5,1,"C",245,167)=""
^XMB(3.7,.5,2,.5,1,"C",246,168)=""
^XMB(3.7,.5,2,.5,1,"C",247,169)=""
^XMB(3.7,.5,2,.95,0)="ARRIVING^"
^XMB(3.7,.5,2,.95,1,0)="^3.702P^^0"
^XMB(3.7,.5,2,1,0)="IN^7"
^XMB(3.7,.5,2,1,1,0)="^3.702P^339^8"
^XMB(3.7,.5,2,1,1,259,0)="259^1^1"
^XMB(3.7,.5,2,1,1,270,0)="270^2^1"
^XMB(3.7,.5,2,1,1,272,0)="272^3^1"
^XMB(3.7,.5,2,1,1,279,0)="279^4^1"
^XMB(3.7,.5,2,1,1,296,0)="296^5^1"
^XMB(3.7,.5,2,1,1,301,0)="301^6^1"
^XMB(3.7,.5,2,1,1,311,0)="311^7^1"
^XMB(3.7,.5,2,1,1,339,0)="339^8"
^XMB(3.7,.5,2,1,1,"C",1,259)=""
^XMB(3.7,.5,2,1,1,"C",2,270)=""
^XMB(3.7,.5,2,1,1,"C",3,272)=""
^XMB(3.7,.5,2,1,1,"C",4,279)=""
^XMB(3.7,.5,2,1,1,"C",5,296)=""
^XMB(3.7,.5,2,1,1,"C",6,301)=""
^XMB(3.7,.5,2,1,1,"C",7,311)=""
^XMB(3.7,.5,2,1,1,"C",8,339)=""
^XMB(3.7,.5,2,1018,0)="OPENFORUM.WORLDVISTA.ORG"
^XMB(3.7,.5,2,1018,1,0)="^3.702P^373^35"
^XMB(3.7,.5,2,1018,1,248,0)="248^1"
^XMB(3.7,.5,2,1018,1,249,0)="249^2"
^XMB(3.7,.5,2,1018,1,250,0)="250^3"
^XMB(3.7,.5,2,1018,1,251,0)="251^4"
^XMB(3.7,.5,2,1018,1,252,0)="252^5"
^XMB(3.7,.5,2,1018,1,253,0)="253^6"
^XMB(3.7,.5,2,1018,1,254,0)="254^7"
^XMB(3.7,.5,2,1018,1,258,0)="258^8"
^XMB(3.7,.5,2,1018,1,284,0)="284^10"
^XMB(3.7,.5,2,1018,1,285,0)="285^9"
^XMB(3.7,.5,2,1018,1,287,0)="287^11"
^XMB(3.7,.5,2,1018,1,288,0)="288^12"
^XMB(3.7,.5,2,1018,1,289,0)="289^13"
^XMB(3.7,.5,2,1018,1,290,0)="290^14"
^XMB(3.7,.5,2,1018,1,291,0)="291^15"
^XMB(3.7,.5,2,1018,1,292,0)="292^16"
^XMB(3.7,.5,2,1018,1,293,0)="293^17"
^XMB(3.7,.5,2,1018,1,295,0)="295^18"
^XMB(3.7,.5,2,1018,1,302,0)="302^19"
^XMB(3.7,.5,2,1018,1,313,0)="313^20"
^XMB(3.7,.5,2,1018,1,314,0)="314^21"
^XMB(3.7,.5,2,1018,1,319,0)="319^22"
^XMB(3.7,.5,2,1018,1,324,0)="324^23"
^XMB(3.7,.5,2,1018,1,325,0)="325^24"
^XMB(3.7,.5,2,1018,1,327,0)="327^25"
^XMB(3.7,.5,2,1018,1,332,0)="332^26"
^XMB(3.7,.5,2,1018,1,333,0)="333^27"
^XMB(3.7,.5,2,1018,1,334,0)="334^28"
^XMB(3.7,.5,2,1018,1,340,0)="340^29"
^XMB(3.7,.5,2,1018,1,342,0)="342^30"
^XMB(3.7,.5,2,1018,1,368,0)="368^31"
^XMB(3.7,.5,2,1018,1,369,0)="369^32"
^XMB(3.7,.5,2,1018,1,370,0)="370^33"
^XMB(3.7,.5,2,1018,1,371,0)="371^34"
^XMB(3.7,.5,2,1018,1,373,0)="373^35"
^XMB(3.7,.5,2,1018,1,"C",1,248)=""
^XMB(3.7,.5,2,1018,1,"C",2,249)=""
^XMB(3.7,.5,2,1018,1,"C",3,250)=""
^XMB(3.7,.5,2,1018,1,"C",4,251)=""
^XMB(3.7,.5,2,1018,1,"C",5,252)=""
^XMB(3.7,.5,2,1018,1,"C",6,253)=""
^XMB(3.7,.5,2,1018,1,"C",7,254)=""
^XMB(3.7,.5,2,1018,1,"C",8,258)=""
^XMB(3.7,.5,2,1018,1,"C",9,285)=""
^XMB(3.7,.5,2,1018,1,"C",10,284)=""
^XMB(3.7,.5,2,1018,1,"C",11,287)=""
^XMB(3.7,.5,2,1018,1,"C",12,288)=""
^XMB(3.7,.5,2,1018,1,"C",13,289)=""
^XMB(3.7,.5,2,1018,1,"C",14,290)=""
^XMB(3.7,.5,2,1018,1,"C",15,291)=""
^XMB(3.7,.5,2,1018,1,"C",16,292)=""
^XMB(3.7,.5,2,1018,1,"C",17,293)=""
^XMB(3.7,.5,2,1018,1,"C",18,295)=""
^XMB(3.7,.5,2,1018,1,"C",19,302)=""
^XMB(3.7,.5,2,1018,1,"C",20,313)=""
^XMB(3.7,.5,2,1018,1,"C",21,314)=""
^XMB(3.7,.5,2,1018,1,"C",22,319)=""
^XMB(3.7,.5,2,1018,1,"C",23,324)=""
^XMB(3.7,.5,2,1018,1,"C",24,325)=""
^XMB(3.7,.5,2,1018,1,"C",25,327)=""
^XMB(3.7,.5,2,1018,1,"C",26,332)=""
^XMB(3.7,.5,2,1018,1,"C",27,333)=""
^XMB(3.7,.5,2,1018,1,"C",28,334)=""
^XMB(3.7,.5,2,1018,1,"C",29,340)=""
^XMB(3.7,.5,2,1018,1,"C",30,342)=""
^XMB(3.7,.5,2,1018,1,"C",31,368)=""
^XMB(3.7,.5,2,1018,1,"C",32,369)=""
^XMB(3.7,.5,2,1018,1,"C",33,370)=""
^XMB(3.7,.5,2,1018,1,"C",34,371)=""
^XMB(3.7,.5,2,1018,1,"C",35,373)=""
^XMB(3.7,.5,2,"B","ARRIVING",.95)=""
^XMB(3.7,.5,2,"B","IN",1)=""
^XMB(3.7,.5,2,"B","OPENFORUM.WORLDVISTA.ORG",1018)=""
^XMB(3.7,.5,2,"B","WASTE",.5)=""
^XMB(3.7,.5,"L")="10/08/06@02:07^3061008^.5"
^XMB(3.7,.5,"N0",1,259)=""
^XMB(3.7,.5,"N0",1,270)=""
^XMB(3.7,.5,"N0",1,272)=""
^XMB(3.7,.5,"N0",1,279)=""
^XMB(3.7,.5,"N0",1,296)=""
^XMB(3.7,.5,"N0",1,301)=""
^XMB(3.7,.5,"N0",1,311)=""
^XMB(3.7,.5,"T")="^^^"
^XMB(3.7,.6,0)=".6^^^^^0"
^XMB(3.7,.6,2,0)="^3.701^1^2"
^XMB(3.7,.6,2,.5,0)="WASTE^0"
^XMB(3.7,.6,2,.5,1,0)="^3.702P^0^0"
^XMB(3.7,.6,2,1,0)="IN^0"
^XMB(3.7,.6,2,1,1,0)="^3.702P^0^0"
^XMB(3.7,.6,2,"B","IN",1)=""
^XMB(3.7,.6,2,"B","WASTE",.5)=""
^XMB(3.7,1,0)="1^^^^^40^^^^^^^^3071227.182719^3071227.182719"
^XMB(3.7,1,2,0)="^3.701^2^3"
^XMB(3.7,1,2,.5,0)="WASTE^0"
^XMB(3.7,1,2,.5,1,0)="^3.702P^301^214"
^XMB(3.7,1,2,.5,1,1,0)="1^81^^3061008.023007"
^XMB(3.7,1,2,.5,1,2,0)="2^92^^3061008.023058"
^XMB(3.7,1,2,.5,1,3,0)="3^103^^3061008.023152"
^XMB(3.7,1,2,.5,1,4,0)="4^114^^3061008.02332"
^XMB(3.7,1,2,.5,1,5,0)="5^173^^3061008.025553"
^XMB(3.7,1,2,.5,1,6,0)="6^133^^3061008.023936"
^XMB(3.7,1,2,.5,1,7,0)="7^143^^3061008.024024"
^XMB(3.7,1,2,.5,1,8,0)="8^154^^3061008.0242"
^XMB(3.7,1,2,.5,1,9,0)="9^165^^3061008.024256"
^XMB(3.7,1,2,.5,1,10,0)="10^11^^3061008.022332"
^XMB(3.7,1,2,.5,1,11,0)="11^22^^3061008.02244"
^XMB(3.7,1,2,.5,1,12,0)="12^33^^3061008.022636"
^XMB(3.7,1,2,.5,1,13,0)="13^44^^3061008.022737"
^XMB(3.7,1,2,.5,1,14,0)="14^55^^3061008.022826"
^XMB(3.7,1,2,.5,1,15,0)="15^66^^3061008.040047"
^XMB(3.7,1,2,.5,1,16,0)="16^77^^3061008.022952"
^XMB(3.7,1,2,.5,1,17,0)="17^78^^3061008.022957"
^XMB(3.7,1,2,.5,1,18,0)="18^79^^3061008.042436"
^XMB(3.7,1,2,.5,1,19,0)="19^80^^3061008.023004"
^XMB(3.7,1,2,.5,1,20,0)="20^82^^3061008.023011"
^XMB(3.7,1,2,.5,1,21,0)="21^83^^3061008.023016"
^XMB(3.7,1,2,.5,1,22,0)="22^84^^3061008.023023"
^XMB(3.7,1,2,.5,1,23,0)="23^85^^3061008.023027"
^XMB(3.7,1,2,.5,1,24,0)="24^86^^3061008.023032"
^XMB(3.7,1,2,.5,1,25,0)="25^87^^3061008.023038"
^XMB(3.7,1,2,.5,1,26,0)="26^88^^3061008.023043"
^XMB(3.7,1,2,.5,1,27,0)="27^89^^3061008.023047"
^XMB(3.7,1,2,.5,1,28,0)="28^90^^3061008.023051"
^XMB(3.7,1,2,.5,1,29,0)="29^91^^3061008.023054"
^XMB(3.7,1,2,.5,1,30,0)="30^93^^3061008.023102"
^XMB(3.7,1,2,.5,1,31,0)="31^94^^3061008.023106"
^XMB(3.7,1,2,.5,1,32,0)="32^95^^3061008.023112"
^XMB(3.7,1,2,.5,1,33,0)="33^96^^3061008.023116"
^XMB(3.7,1,2,.5,1,34,0)="34^97^^3061008.02312"
^XMB(3.7,1,2,.5,1,35,0)="35^98^^3061008.023123"
^XMB(3.7,1,2,.5,1,36,0)="36^99^^3061008.023126"
^XMB(3.7,1,2,.5,1,37,0)="37^100^^3061008.02313"
^XMB(3.7,1,2,.5,1,38,0)="38^101^^3061008.023142"
^XMB(3.7,1,2,.5,1,39,0)="39^102^^3061008.023145"
^XMB(3.7,1,2,.5,1,40,0)="40^104^^3061008.023159"
^XMB(3.7,1,2,.5,1,41,0)="41^105^^3061008.023207"
^XMB(3.7,1,2,.5,1,42,0)="42^106^^3061008.023213"
^XMB(3.7,1,2,.5,1,43,0)="43^107^^3061008.023225"
^XMB(3.7,1,2,.5,1,44,0)="44^108^^3061008.023243"
^XMB(3.7,1,2,.5,1,45,0)="45^109^^3061008.023251"
^XMB(3.7,1,2,.5,1,46,0)="46^110^^3061008.023255"
^XMB(3.7,1,2,.5,1,47,0)="47^111^^3061008.0233"
^XMB(3.7,1,2,.5,1,48,0)="48^112^^3061008.023306"
^XMB(3.7,1,2,.5,1,49,0)="49^113^^3061008.023313"
^XMB(3.7,1,2,.5,1,50,0)="50^115^^3061008.023324"
^XMB(3.7,1,2,.5,1,51,0)="51^116^^3061008.023329"
^XMB(3.7,1,2,.5,1,52,0)="52^117^^3061008.023333"
^XMB(3.7,1,2,.5,1,53,0)="53^118^^3061008.023355"
^XMB(3.7,1,2,.5,1,54,0)="54^119^^3061008.023358"
^XMB(3.7,1,2,.5,1,55,0)="55^120^^3061008.023404"
^XMB(3.7,1,2,.5,1,56,0)="56^121^^3061008.023409"
^XMB(3.7,1,2,.5,1,57,0)="57^122^^3061008.023412"
^XMB(3.7,1,2,.5,1,58,0)="58^192^^3061010.132834"
^XMB(3.7,1,2,.5,1,59,0)="59^193^^3061010.132834"
^XMB(3.7,1,2,.5,1,60,0)="60^123^^3061008.023754"
^XMB(3.7,1,2,.5,1,61,0)="61^124^^3061008.023759"
^XMB(3.7,1,2,.5,1,62,0)="62^125^^3061008.023804"
^XMB(3.7,1,2,.5,1,63,0)="63^126^^3061008.023812"
^XMB(3.7,1,2,.5,1,64,0)="64^127^^3061008.023816"
^XMB(3.7,1,2,.5,1,65,0)="65^128^^3061008.02382"
^XMB(3.7,1,2,.5,1,66,0)="66^129^^3061008.023825"
^XMB(3.7,1,2,.5,1,67,0)="67^130^^3061008.023906"
^XMB(3.7,1,2,.5,1,68,0)="68^131^^3061008.023914"
^XMB(3.7,1,2,.5,1,69,0)="69^132^^3061008.034424"
^XMB(3.7,1,2,.5,1,70,0)="70^134^^3061008.023939"
^XMB(3.7,1,2,.5,1,71,0)="71^135^^3061008.023944"
^XMB(3.7,1,2,.5,1,72,0)="72^136^^3061008.02395"
^XMB(3.7,1,2,.5,1,73,0)="73^137^^3061008.023954"
^XMB(3.7,1,2,.5,1,74,0)="74^176^^3061008.031338"
^XMB(3.7,1,2,.5,1,75,0)="75^138^^3061008.024003"
^XMB(3.7,1,2,.5,1,76,0)="76^139^^3061008.024006"
^XMB(3.7,1,2,.5,1,77,0)="77^140^^3061008.024011"
^XMB(3.7,1,2,.5,1,78,0)="78^141^^3061008.024015"
^XMB(3.7,1,2,.5,1,79,0)="79^142^^3061008.02402"
^XMB(3.7,1,2,.5,1,80,0)="80^144^^3061008.024028"
^XMB(3.7,1,2,.5,1,81,0)="81^145^^3061008.024032"
^XMB(3.7,1,2,.5,1,82,0)="82^146^^3061008.02405"
^XMB(3.7,1,2,.5,1,83,0)="83^147^^3061008.024131"
^XMB(3.7,1,2,.5,1,84,0)="84^148^^3061008.024135"
^XMB(3.7,1,2,.5,1,85,0)="85^149^^3061008.024139"
^XMB(3.7,1,2,.5,1,86,0)="86^150^^3061008.024143"
^XMB(3.7,1,2,.5,1,87,0)="87^151^^3061008.024148"
^XMB(3.7,1,2,.5,1,88,0)="88^152^^3061008.024152"
^XMB(3.7,1,2,.5,1,89,0)="89^153^^3061008.024156"
^XMB(3.7,1,2,.5,1,90,0)="90^155^^3061008.024204"
^XMB(3.7,1,2,.5,1,91,0)="91^156^^3061008.024207"
^XMB(3.7,1,2,.5,1,92,0)="92^157^^3061008.024211"
^XMB(3.7,1,2,.5,1,93,0)="93^158^^3061008.024214"
^XMB(3.7,1,2,.5,1,94,0)="94^159^^3061008.024223"
^XMB(3.7,1,2,.5,1,95,0)="95^160^^3061008.02423"
^XMB(3.7,1,2,.5,1,96,0)="96^161^^3061008.024235"
^XMB(3.7,1,2,.5,1,97,0)="97^162^^3061008.02424"
^XMB(3.7,1,2,.5,1,98,0)="98^163^^3061008.024244"
^XMB(3.7,1,2,.5,1,99,0)="99^164^^3061008.024249"
^XMB(3.7,1,2,.5,1,100,0)="100^1^^3061008.022235"
^XMB(3.7,1,2,.5,1,101,0)="101^2^^3061008.022243"
^XMB(3.7,1,2,.5,1,102,0)="102^3^^3061008.022249"
^XMB(3.7,1,2,.5,1,103,0)="103^4^^3061008.022257"
^XMB(3.7,1,2,.5,1,104,0)="104^5^^3061008.022301"
^XMB(3.7,1,2,.5,1,105,0)="105^6^^3061008.022305"
^XMB(3.7,1,2,.5,1,106,0)="106^7^^3061008.022309"
^XMB(3.7,1,2,.5,1,107,0)="107^8^^3061008.022315"
^XMB(3.7,1,2,.5,1,108,0)="108^9^^3061008.022322"
^XMB(3.7,1,2,.5,1,109,0)="109^10^^3061008.022327"
^XMB(3.7,1,2,.5,1,110,0)="110^12^^3061008.022336"
^XMB(3.7,1,2,.5,1,111,0)="111^13^^3061008.022347"
^XMB(3.7,1,2,.5,1,112,0)="112^14^^3061008.022353"
^XMB(3.7,1,2,.5,1,113,0)="113^15^^3061008.022402"
^XMB(3.7,1,2,.5,1,114,0)="114^16^^3061008.022406"
^XMB(3.7,1,2,.5,1,115,0)="115^17^^3061008.022411"
^XMB(3.7,1,2,.5,1,116,0)="116^18^^3061008.022419"
^XMB(3.7,1,2,.5,1,117,0)="117^19^^3061008.022424"
^XMB(3.7,1,2,.5,1,118,0)="118^20^^3061008.02243"
^XMB(3.7,1,2,.5,1,119,0)="119^21^^3061008.022435"
^XMB(3.7,1,2,.5,1,120,0)="120^23^^3061008.022526"
^XMB(3.7,1,2,.5,1,121,0)="121^24^^3061008.022535"
^XMB(3.7,1,2,.5,1,122,0)="122^25^^3061008.022544"
^XMB(3.7,1,2,.5,1,123,0)="123^26^^3061008.022557"
^XMB(3.7,1,2,.5,1,124,0)="124^27^^3061008.022602"
^XMB(3.7,1,2,.5,1,125,0)="125^28^^3061008.022606"
^XMB(3.7,1,2,.5,1,126,0)="126^29^^3061008.02261"
^XMB(3.7,1,2,.5,1,127,0)="127^30^^3061008.022614"
^XMB(3.7,1,2,.5,1,128,0)="128^31^^3061008.022619"
^XMB(3.7,1,2,.5,1,129,0)="129^32^^3061008.022629"
^XMB(3.7,1,2,.5,1,130,0)="130^34^^3061008.022641"
^XMB(3.7,1,2,.5,1,131,0)="131^35^^3061008.022646"
^XMB(3.7,1,2,.5,1,132,0)="132^36^^3061008.022651"
^XMB(3.7,1,2,.5,1,133,0)="133^37^^3061008.022655"
^XMB(3.7,1,2,.5,1,134,0)="134^38^^3061008.022701"
^XMB(3.7,1,2,.5,1,135,0)="135^39^^3061008.022714"
^XMB(3.7,1,2,.5,1,136,0)="136^40^^3061008.022719"
^XMB(3.7,1,2,.5,1,137,0)="137^41^^3061008.022724"
^XMB(3.7,1,2,.5,1,138,0)="138^42^^3061008.022728"
^XMB(3.7,1,2,.5,1,139,0)="139^43^^3061008.022733"
^XMB(3.7,1,2,.5,1,140,0)="140^45^^3061008.022742"
^XMB(3.7,1,2,.5,1,141,0)="141^46^^3061008.022746"
^XMB(3.7,1,2,.5,1,142,0)="142^47^^3061008.022752"
^XMB(3.7,1,2,.5,1,143,0)="143^48^^3061008.022756"
^XMB(3.7,1,2,.5,1,144,0)="144^49^^3061008.022801"
^XMB(3.7,1,2,.5,1,145,0)="145^50^^3061008.022805"
^XMB(3.7,1,2,.5,1,146,0)="146^51^^3061008.02281"
^XMB(3.7,1,2,.5,1,147,0)="147^52^^3061008.034814"
^XMB(3.7,1,2,.5,1,148,0)="148^53^^3061008.022819"
^XMB(3.7,1,2,.5,1,149,0)="149^54^^3061008.022823"
^XMB(3.7,1,2,.5,1,150,0)="150^56^^3061008.022829"
^XMB(3.7,1,2,.5,1,151,0)="151^57^^3061008.022834"
^XMB(3.7,1,2,.5,1,152,0)="152^58^^3061008.022837"
^XMB(3.7,1,2,.5,1,153,0)="153^59^^3061008.022841"
^XMB(3.7,1,2,.5,1,154,0)="154^60^^3061008.022845"
^XMB(3.7,1,2,.5,1,155,0)="155^61^^3061008.022849"
^XMB(3.7,1,2,.5,1,156,0)="156^62^^3061008.022852"
^XMB(3.7,1,2,.5,1,157,0)="157^63^^3061008.022856"
^XMB(3.7,1,2,.5,1,158,0)="158^64^^3061008.030037"
^XMB(3.7,1,2,.5,1,159,0)="159^65^^3061008.022904"
^XMB(3.7,1,2,.5,1,160,0)="160^67^^3061008.022912"
^XMB(3.7,1,2,.5,1,161,0)="161^68^^3061008.022915"
^XMB(3.7,1,2,.5,1,162,0)="162^69^^3061008.022918"
^XMB(3.7,1,2,.5,1,163,0)="163^70^^3061008.022922"
^XMB(3.7,1,2,.5,1,164,0)="164^71^^3061008.022928"
^XMB(3.7,1,2,.5,1,165,0)="165^72^^3061008.022932"
^XMB(3.7,1,2,.5,1,166,0)="166^73^^3061008.022936"
^XMB(3.7,1,2,.5,1,167,0)="167^74^^3061008.022941"
^XMB(3.7,1,2,.5,1,168,0)="168^75^^3061008.022944"
^XMB(3.7,1,2,.5,1,169,0)="169^76^^3061008.022948"
^XMB(3.7,1,2,.5,1,248,0)="248^166^^3061008.024303"
^XMB(3.7,1,2,.5,1,249,0)="249^167^^3061008.024305"
^XMB(3.7,1,2,.5,1,250,0)="250^168^^3061008.024307"
^XMB(3.7,1,2,.5,1,251,0)="251^169^^3061008.024308"
^XMB(3.7,1,2,.5,1,252,0)="252^170^^3061008.02431"
^XMB(3.7,1,2,.5,1,253,0)="253^171^^3061008.024311"
^XMB(3.7,1,2,.5,1,254,0)="254^172^^3061008.024313"
^XMB(3.7,1,2,.5,1,255,0)="255^174^^3061008.025611"
^XMB(3.7,1,2,.5,1,256,0)="256^175^^3061008.025614"
^XMB(3.7,1,2,.5,1,257,0)="257^177^^3061008.031437"
^XMB(3.7,1,2,.5,1,258,0)="258^178^^3061008.031818"
^XMB(3.7,1,2,.5,1,259,0)="259^179^^3061008.034304"
^XMB(3.7,1,2,.5,1,260,0)="260^180^^3061008.034312"
^XMB(3.7,1,2,.5,1,261,0)="261^186^^3061008.04092"
^XMB(3.7,1,2,.5,1,262,0)="262^181^^3061008.035752"
^XMB(3.7,1,2,.5,1,263,0)="263^182^^3061008.035754"
^XMB(3.7,1,2,.5,1,264,0)="264^183^^3061008.040651"
^XMB(3.7,1,2,.5,1,265,0)="265^184^^3061008.040711"
^XMB(3.7,1,2,.5,1,266,0)="266^185^^3061008.04072"
^XMB(3.7,1,2,.5,1,267,0)="267^187^^3061008.040924"
^XMB(3.7,1,2,.5,1,268,0)="268^188^^3061008.040926"
^XMB(3.7,1,2,.5,1,269,0)="269^189^^3061008.040929"
^XMB(3.7,1,2,.5,1,270,0)="270^190^^3061008.041008"
^XMB(3.7,1,2,.5,1,271,0)="271^191^^3061008.041821"
^XMB(3.7,1,2,.5,1,272,0)="272^194^^3061010.132834"
^XMB(3.7,1,2,.5,1,273,0)="273^195^^3061106.151722"
^XMB(3.7,1,2,.5,1,274,0)="274^196^^3061106.151724"
^XMB(3.7,1,2,.5,1,275,0)="275^197^^3061225.163257"
^XMB(3.7,1,2,.5,1,276,0)="276^198^^3061225.1633"
^XMB(3.7,1,2,.5,1,277,0)="277^199^^3061225.163303"
^XMB(3.7,1,2,.5,1,278,0)="278^200^^3061225.18012"
^XMB(3.7,1,2,.5,1,279,0)="279^201^^3061225.180122"
^XMB(3.7,1,2,.5,1,280,0)="280^202^^3061225.180125"
^XMB(3.7,1,2,.5,1,281,0)="281^203^^3061225.180128"
^XMB(3.7,1,2,.5,1,282,0)="282^204^^3061225.18013"
^XMB(3.7,1,2,.5,1,283,0)="283^205^^3061225.180133"
^XMB(3.7,1,2,.5,1,286,0)="286^206^^3061225.180135"
^XMB(3.7,1,2,.5,1,294,0)="294^207^^3061225.180136"
^XMB(3.7,1,2,.5,1,295,0)="295^208^^3070118.17545"
^XMB(3.7,1,2,.5,1,296,0)="296^209^^3070118.175452"
^XMB(3.7,1,2,.5,1,297,0)="297^210^^3070118.175455"
^XMB(3.7,1,2,.5,1,298,0)="298^211^^3070118.175457"
^XMB(3.7,1,2,.5,1,299,0)="299^212^^3070118.175459"
^XMB(3.7,1,2,.5,1,300,0)="300^213^^3070118.175502"
^XMB(3.7,1,2,.5,1,301,0)="301^214^^3070118.175503"
^XMB(3.7,1,2,.5,1,"C",1,100)=""
^XMB(3.7,1,2,.5,1,"C",2,101)=""
^XMB(3.7,1,2,.5,1,"C",3,102)=""
^XMB(3.7,1,2,.5,1,"C",4,103)=""
^XMB(3.7,1,2,.5,1,"C",5,104)=""
^XMB(3.7,1,2,.5,1,"C",6,105)=""
^XMB(3.7,1,2,.5,1,"C",7,106)=""
^XMB(3.7,1,2,.5,1,"C",8,107)=""
^XMB(3.7,1,2,.5,1,"C",9,108)=""
^XMB(3.7,1,2,.5,1,"C",10,109)=""
^XMB(3.7,1,2,.5,1,"C",11,10)=""
^XMB(3.7,1,2,.5,1,"C",12,110)=""
^XMB(3.7,1,2,.5,1,"C",13,111)=""
^XMB(3.7,1,2,.5,1,"C",14,112)=""
^XMB(3.7,1,2,.5,1,"C",15,113)=""
^XMB(3.7,1,2,.5,1,"C",16,114)=""
^XMB(3.7,1,2,.5,1,"C",17,115)=""
^XMB(3.7,1,2,.5,1,"C",18,116)=""
^XMB(3.7,1,2,.5,1,"C",19,117)=""
^XMB(3.7,1,2,.5,1,"C",20,118)=""
^XMB(3.7,1,2,.5,1,"C",21,119)=""
^XMB(3.7,1,2,.5,1,"C",22,11)=""
^XMB(3.7,1,2,.5,1,"C",23,120)=""
^XMB(3.7,1,2,.5,1,"C",24,121)=""
^XMB(3.7,1,2,.5,1,"C",25,122)=""
^XMB(3.7,1,2,.5,1,"C",26,123)=""
^XMB(3.7,1,2,.5,1,"C",27,124)=""
^XMB(3.7,1,2,.5,1,"C",28,125)=""
^XMB(3.7,1,2,.5,1,"C",29,126)=""
^XMB(3.7,1,2,.5,1,"C",30,127)=""
^XMB(3.7,1,2,.5,1,"C",31,128)=""
^XMB(3.7,1,2,.5,1,"C",32,129)=""
^XMB(3.7,1,2,.5,1,"C",33,12)=""
^XMB(3.7,1,2,.5,1,"C",34,130)=""
^XMB(3.7,1,2,.5,1,"C",35,131)=""
^XMB(3.7,1,2,.5,1,"C",36,132)=""
^XMB(3.7,1,2,.5,1,"C",37,133)=""
^XMB(3.7,1,2,.5,1,"C",38,134)=""
^XMB(3.7,1,2,.5,1,"C",39,135)=""
^XMB(3.7,1,2,.5,1,"C",40,136)=""
^XMB(3.7,1,2,.5,1,"C",41,137)=""
^XMB(3.7,1,2,.5,1,"C",42,138)=""
^XMB(3.7,1,2,.5,1,"C",43,139)=""
^XMB(3.7,1,2,.5,1,"C",44,13)=""
^XMB(3.7,1,2,.5,1,"C",45,140)=""
^XMB(3.7,1,2,.5,1,"C",46,141)=""
^XMB(3.7,1,2,.5,1,"C",47,142)=""
^XMB(3.7,1,2,.5,1,"C",48,143)=""
^XMB(3.7,1,2,.5,1,"C",49,144)=""
^XMB(3.7,1,2,.5,1,"C",50,145)=""
^XMB(3.7,1,2,.5,1,"C",51,146)=""
^XMB(3.7,1,2,.5,1,"C",52,147)=""
^XMB(3.7,1,2,.5,1,"C",53,148)=""
^XMB(3.7,1,2,.5,1,"C",54,149)=""
^XMB(3.7,1,2,.5,1,"C",55,14)=""
^XMB(3.7,1,2,.5,1,"C",56,150)=""
^XMB(3.7,1,2,.5,1,"C",57,151)=""
^XMB(3.7,1,2,.5,1,"C",58,152)=""
^XMB(3.7,1,2,.5,1,"C",59,153)=""
^XMB(3.7,1,2,.5,1,"C",60,154)=""
^XMB(3.7,1,2,.5,1,"C",61,155)=""
^XMB(3.7,1,2,.5,1,"C",62,156)=""
^XMB(3.7,1,2,.5,1,"C",63,157)=""
^XMB(3.7,1,2,.5,1,"C",64,158)=""
^XMB(3.7,1,2,.5,1,"C",65,159)=""
^XMB(3.7,1,2,.5,1,"C",66,15)=""
^XMB(3.7,1,2,.5,1,"C",67,160)=""
^XMB(3.7,1,2,.5,1,"C",68,161)=""
^XMB(3.7,1,2,.5,1,"C",69,162)=""
^XMB(3.7,1,2,.5,1,"C",70,163)=""
^XMB(3.7,1,2,.5,1,"C",71,164)=""
^XMB(3.7,1,2,.5,1,"C",72,165)=""
^XMB(3.7,1,2,.5,1,"C",73,166)=""
^XMB(3.7,1,2,.5,1,"C",74,167)=""
^XMB(3.7,1,2,.5,1,"C",75,168)=""
^XMB(3.7,1,2,.5,1,"C",76,169)=""
^XMB(3.7,1,2,.5,1,"C",77,16)=""
^XMB(3.7,1,2,.5,1,"C",78,17)=""
^XMB(3.7,1,2,.5,1,"C",79,18)=""
^XMB(3.7,1,2,.5,1,"C",80,19)=""
^XMB(3.7,1,2,.5,1,"C",81,1)=""
^XMB(3.7,1,2,.5,1,"C",82,20)=""
^XMB(3.7,1,2,.5,1,"C",83,21)=""
^XMB(3.7,1,2,.5,1,"C",84,22)=""
^XMB(3.7,1,2,.5,1,"C",85,23)=""
^XMB(3.7,1,2,.5,1,"C",86,24)=""
^XMB(3.7,1,2,.5,1,"C",87,25)=""
^XMB(3.7,1,2,.5,1,"C",88,26)=""
^XMB(3.7,1,2,.5,1,"C",89,27)=""
^XMB(3.7,1,2,.5,1,"C",90,28)=""
^XMB(3.7,1,2,.5,1,"C",91,29)=""
^XMB(3.7,1,2,.5,1,"C",92,2)=""
^XMB(3.7,1,2,.5,1,"C",93,30)=""
^XMB(3.7,1,2,.5,1,"C",94,31)=""
^XMB(3.7,1,2,.5,1,"C",95,32)=""
^XMB(3.7,1,2,.5,1,"C",96,33)=""
^XMB(3.7,1,2,.5,1,"C",97,34)=""
^XMB(3.7,1,2,.5,1,"C",98,35)=""
^XMB(3.7,1,2,.5,1,"C",99,36)=""
^XMB(3.7,1,2,.5,1,"C",100,37)=""
^XMB(3.7,1,2,.5,1,"C",101,38)=""
^XMB(3.7,1,2,.5,1,"C",102,39)=""
^XMB(3.7,1,2,.5,1,"C",103,3)=""
^XMB(3.7,1,2,.5,1,"C",104,40)=""
^XMB(3.7,1,2,.5,1,"C",105,41)=""
^XMB(3.7,1,2,.5,1,"C",106,42)=""
^XMB(3.7,1,2,.5,1,"C",107,43)=""
^XMB(3.7,1,2,.5,1,"C",108,44)=""
^XMB(3.7,1,2,.5,1,"C",109,45)=""
^XMB(3.7,1,2,.5,1,"C",110,46)=""
^XMB(3.7,1,2,.5,1,"C",111,47)=""
^XMB(3.7,1,2,.5,1,"C",112,48)=""
^XMB(3.7,1,2,.5,1,"C",113,49)=""
^XMB(3.7,1,2,.5,1,"C",114,4)=""
^XMB(3.7,1,2,.5,1,"C",115,50)=""
^XMB(3.7,1,2,.5,1,"C",116,51)=""
^XMB(3.7,1,2,.5,1,"C",117,52)=""
^XMB(3.7,1,2,.5,1,"C",118,53)=""
^XMB(3.7,1,2,.5,1,"C",119,54)=""
^XMB(3.7,1,2,.5,1,"C",120,55)=""
^XMB(3.7,1,2,.5,1,"C",121,56)=""
^XMB(3.7,1,2,.5,1,"C",122,57)=""
^XMB(3.7,1,2,.5,1,"C",123,60)=""
^XMB(3.7,1,2,.5,1,"C",124,61)=""
^XMB(3.7,1,2,.5,1,"C",125,62)=""
^XMB(3.7,1,2,.5,1,"C",126,63)=""
^XMB(3.7,1,2,.5,1,"C",127,64)=""
^XMB(3.7,1,2,.5,1,"C",128,65)=""
^XMB(3.7,1,2,.5,1,"C",129,66)=""
^XMB(3.7,1,2,.5,1,"C",130,67)=""
^XMB(3.7,1,2,.5,1,"C",131,68)=""
^XMB(3.7,1,2,.5,1,"C",132,69)=""
^XMB(3.7,1,2,.5,1,"C",133,6)=""
^XMB(3.7,1,2,.5,1,"C",134,70)=""
^XMB(3.7,1,2,.5,1,"C",135,71)=""
^XMB(3.7,1,2,.5,1,"C",136,72)=""
^XMB(3.7,1,2,.5,1,"C",137,73)=""
^XMB(3.7,1,2,.5,1,"C",138,75)=""
^XMB(3.7,1,2,.5,1,"C",139,76)=""
^XMB(3.7,1,2,.5,1,"C",140,77)=""
^XMB(3.7,1,2,.5,1,"C",141,78)=""
^XMB(3.7,1,2,.5,1,"C",142,79)=""
^XMB(3.7,1,2,.5,1,"C",143,7)=""
^XMB(3.7,1,2,.5,1,"C",144,80)=""
^XMB(3.7,1,2,.5,1,"C",145,81)=""
^XMB(3.7,1,2,.5,1,"C",146,82)=""
^XMB(3.7,1,2,.5,1,"C",147,83)=""
^XMB(3.7,1,2,.5,1,"C",148,84)=""
^XMB(3.7,1,2,.5,1,"C",149,85)=""
^XMB(3.7,1,2,.5,1,"C",150,86)=""
^XMB(3.7,1,2,.5,1,"C",151,87)=""
^XMB(3.7,1,2,.5,1,"C",152,88)=""
^XMB(3.7,1,2,.5,1,"C",153,89)=""
^XMB(3.7,1,2,.5,1,"C",154,8)=""
^XMB(3.7,1,2,.5,1,"C",155,90)=""
^XMB(3.7,1,2,.5,1,"C",156,91)=""
^XMB(3.7,1,2,.5,1,"C",157,92)=""
^XMB(3.7,1,2,.5,1,"C",158,93)=""
^XMB(3.7,1,2,.5,1,"C",159,94)=""
^XMB(3.7,1,2,.5,1,"C",160,95)=""
^XMB(3.7,1,2,.5,1,"C",161,96)=""
^XMB(3.7,1,2,.5,1,"C",162,97)=""
^XMB(3.7,1,2,.5,1,"C",163,98)=""
^XMB(3.7,1,2,.5,1,"C",164,99)=""
^XMB(3.7,1,2,.5,1,"C",165,9)=""
^XMB(3.7,1,2,.5,1,"C",166,248)=""
^XMB(3.7,1,2,.5,1,"C",167,249)=""
^XMB(3.7,1,2,.5,1,"C",168,250)=""
^XMB(3.7,1,2,.5,1,"C",169,251)=""
^XMB(3.7,1,2,.5,1,"C",170,252)=""
^XMB(3.7,1,2,.5,1,"C",171,253)=""
^XMB(3.7,1,2,.5,1,"C",172,254)=""
^XMB(3.7,1,2,.5,1,"C",173,5)=""
^XMB(3.7,1,2,.5,1,"C",174,255)=""
^XMB(3.7,1,2,.5,1,"C",175,256)=""
^XMB(3.7,1,2,.5,1,"C",176,74)=""
^XMB(3.7,1,2,.5,1,"C",177,257)=""
^XMB(3.7,1,2,.5,1,"C",178,258)=""
^XMB(3.7,1,2,.5,1,"C",179,259)=""
^XMB(3.7,1,2,.5,1,"C",180,260)=""
^XMB(3.7,1,2,.5,1,"C",181,262)=""
^XMB(3.7,1,2,.5,1,"C",182,263)=""
^XMB(3.7,1,2,.5,1,"C",183,264)=""
^XMB(3.7,1,2,.5,1,"C",184,265)=""
^XMB(3.7,1,2,.5,1,"C",185,266)=""
^XMB(3.7,1,2,.5,1,"C",186,261)=""
^XMB(3.7,1,2,.5,1,"C",187,267)=""
^XMB(3.7,1,2,.5,1,"C",188,268)=""
^XMB(3.7,1,2,.5,1,"C",189,269)=""
^XMB(3.7,1,2,.5,1,"C",190,270)=""
^XMB(3.7,1,2,.5,1,"C",191,271)=""
^XMB(3.7,1,2,.5,1,"C",192,58)=""
^XMB(3.7,1,2,.5,1,"C",193,59)=""
^XMB(3.7,1,2,.5,1,"C",194,272)=""
^XMB(3.7,1,2,.5,1,"C",195,273)=""
^XMB(3.7,1,2,.5,1,"C",196,274)=""
^XMB(3.7,1,2,.5,1,"C",197,275)=""
^XMB(3.7,1,2,.5,1,"C",198,276)=""
^XMB(3.7,1,2,.5,1,"C",199,277)=""
^XMB(3.7,1,2,.5,1,"C",200,278)=""
^XMB(3.7,1,2,.5,1,"C",201,279)=""
^XMB(3.7,1,2,.5,1,"C",202,280)=""
^XMB(3.7,1,2,.5,1,"C",203,281)=""
^XMB(3.7,1,2,.5,1,"C",204,282)=""
^XMB(3.7,1,2,.5,1,"C",205,283)=""
^XMB(3.7,1,2,.5,1,"C",206,286)=""
^XMB(3.7,1,2,.5,1,"C",207,294)=""
^XMB(3.7,1,2,.5,1,"C",208,295)=""
^XMB(3.7,1,2,.5,1,"C",209,296)=""
^XMB(3.7,1,2,.5,1,"C",210,297)=""
^XMB(3.7,1,2,.5,1,"C",211,298)=""
^XMB(3.7,1,2,.5,1,"C",212,299)=""
^XMB(3.7,1,2,.5,1,"C",213,300)=""
^XMB(3.7,1,2,.5,1,"C",214,301)=""
^XMB(3.7,1,2,1,0)="IN^17"
^XMB(3.7,1,2,1,1,0)="^3.702P^369^26"
^XMB(3.7,1,2,1,1,302,0)="302^1^^3080131.135328"
^XMB(3.7,1,2,1,1,303,0)="303^2^1"
^XMB(3.7,1,2,1,1,304,0)="304^3^1"
^XMB(3.7,1,2,1,1,306,0)="306^4^1"
^XMB(3.7,1,2,1,1,311,0)="311^5^1"
^XMB(3.7,1,2,1,1,313,0)="313^6"
^XMB(3.7,1,2,1,1,314,0)="314^7^1"
^XMB(3.7,1,2,1,1,319,0)="319^8^^3071227.060146"
^XMB(3.7,1,2,1,1,324,0)="324^9"
^XMB(3.7,1,2,1,1,325,0)="325^10"
^XMB(3.7,1,2,1,1,326,0)="326^11^1"
^XMB(3.7,1,2,1,1,327,0)="327^12^1"
^XMB(3.7,1,2,1,1,332,0)="332^13^1"
^XMB(3.7,1,2,1,1,333,0)="333^14"
^XMB(3.7,1,2,1,1,334,0)="334^15"
^XMB(3.7,1,2,1,1,339,0)="339^16^1"
^XMB(3.7,1,2,1,1,340,0)="340^17"
^XMB(3.7,1,2,1,1,342,0)="342^18"
^XMB(3.7,1,2,1,1,343,0)="343^19^1"
^XMB(3.7,1,2,1,1,348,0)="348^20^1"
^XMB(3.7,1,2,1,1,355,0)="355^21^1"
^XMB(3.7,1,2,1,1,365,0)="365^22^1"
^XMB(3.7,1,2,1,1,366,0)="366^23^1"
^XMB(3.7,1,2,1,1,367,0)="367^24^1"
^XMB(3.7,1,2,1,1,368,0)="368^25^1"
^XMB(3.7,1,2,1,1,369,0)="369^26^1"
^XMB(3.7,1,2,1,1,"C",1,302)=""
^XMB(3.7,1,2,1,1,"C",2,303)=""
^XMB(3.7,1,2,1,1,"C",3,304)=""
^XMB(3.7,1,2,1,1,"C",4,306)=""
^XMB(3.7,1,2,1,1,"C",5,311)=""
^XMB(3.7,1,2,1,1,"C",6,313)=""
^XMB(3.7,1,2,1,1,"C",7,314)=""
^XMB(3.7,1,2,1,1,"C",8,319)=""
^XMB(3.7,1,2,1,1,"C",9,324)=""
^XMB(3.7,1,2,1,1,"C",10,325)=""
^XMB(3.7,1,2,1,1,"C",11,326)=""
^XMB(3.7,1,2,1,1,"C",12,327)=""
^XMB(3.7,1,2,1,1,"C",13,332)=""
^XMB(3.7,1,2,1,1,"C",14,333)=""
^XMB(3.7,1,2,1,1,"C",15,334)=""
^XMB(3.7,1,2,1,1,"C",16,339)=""
^XMB(3.7,1,2,1,1,"C",17,340)=""
^XMB(3.7,1,2,1,1,"C",18,342)=""
^XMB(3.7,1,2,1,1,"C",19,343)=""
^XMB(3.7,1,2,1,1,"C",20,348)=""
^XMB(3.7,1,2,1,1,"C",21,355)=""
^XMB(3.7,1,2,1,1,"C",22,365)=""
^XMB(3.7,1,2,1,1,"C",23,366)=""
^XMB(3.7,1,2,1,1,"C",24,367)=""
^XMB(3.7,1,2,1,1,"C",25,368)=""
^XMB(3.7,1,2,1,1,"C",26,369)=""
^XMB(3.7,1,2,2,0)="NDF UPDATES^23"
^XMB(3.7,1,2,2,1,0)="^3.702P^364^36"
^XMB(3.7,1,2,2,1,307,0)="307^1^^3080131.131645"
^XMB(3.7,1,2,2,1,308,0)="308^2^^3080131.131645"
^XMB(3.7,1,2,2,1,309,0)="309^3^^3080131.131645"
^XMB(3.7,1,2,2,1,310,0)="310^4^^3080131.131645"
^XMB(3.7,1,2,2,1,315,0)="315^5^1"
^XMB(3.7,1,2,2,1,316,0)="316^6^1"
^XMB(3.7,1,2,2,1,317,0)="317^7^^3071227.152032"
^XMB(3.7,1,2,2,1,318,0)="318^8^^3071227.060142"
^XMB(3.7,1,2,2,1,320,0)="320^9^1"
^XMB(3.7,1,2,2,1,321,0)="321^10^1"
^XMB(3.7,1,2,2,1,322,0)="322^11^^3071227.061642"
^XMB(3.7,1,2,2,1,323,0)="323^12^1"
^XMB(3.7,1,2,2,1,328,0)="328^13^1"
^XMB(3.7,1,2,2,1,329,0)="329^14^1"
^XMB(3.7,1,2,2,1,330,0)="330^15^^3071227.061701"
^XMB(3.7,1,2,2,1,331,0)="331^16^1"
^XMB(3.7,1,2,2,1,335,0)="335^17^1"
^XMB(3.7,1,2,2,1,336,0)="336^18^1"
^XMB(3.7,1,2,2,1,337,0)="337^19^^3071227.06292"
^XMB(3.7,1,2,2,1,338,0)="338^20^1"
^XMB(3.7,1,2,2,1,344,0)="344^21^1"
^XMB(3.7,1,2,2,1,345,0)="345^22^1"
^XMB(3.7,1,2,2,1,346,0)="346^23^^3071227.062938"
^XMB(3.7,1,2,2,1,347,0)="347^24^1"
^XMB(3.7,1,2,2,1,349,0)="349^25^1"
^XMB(3.7,1,2,2,1,350,0)="350^26^1"
^XMB(3.7,1,2,2,1,351,0)="351^27^^3071227.1012"
^XMB(3.7,1,2,2,1,352,0)="352^28^1"
^XMB(3.7,1,2,2,1,353,0)="353^29^1"
^XMB(3.7,1,2,2,1,354,0)="354^30^1"
^XMB(3.7,1,2,2,1,356,0)="356^31^^3071227.181403"
^XMB(3.7,1,2,2,1,357,0)="357^32^1"
^XMB(3.7,1,2,2,1,361,0)="361^33^1"
^XMB(3.7,1,2,2,1,362,0)="362^34^1"
^XMB(3.7,1,2,2,1,363,0)="363^35^^3071227.181418"
^XMB(3.7,1,2,2,1,364,0)="364^36^1"
^XMB(3.7,1,2,2,1,"C",1,307)=""
^XMB(3.7,1,2,2,1,"C",2,308)=""
^XMB(3.7,1,2,2,1,"C",3,309)=""
^XMB(3.7,1,2,2,1,"C",4,310)=""
^XMB(3.7,1,2,2,1,"C",5,315)=""
^XMB(3.7,1,2,2,1,"C",6,316)=""
^XMB(3.7,1,2,2,1,"C",7,317)=""
^XMB(3.7,1,2,2,1,"C",8,318)=""
^XMB(3.7,1,2,2,1,"C",9,320)=""
^XMB(3.7,1,2,2,1,"C",10,321)=""
^XMB(3.7,1,2,2,1,"C",11,322)=""
^XMB(3.7,1,2,2,1,"C",12,323)=""
^XMB(3.7,1,2,2,1,"C",13,328)=""
^XMB(3.7,1,2,2,1,"C",14,329)=""
^XMB(3.7,1,2,2,1,"C",15,330)=""
^XMB(3.7,1,2,2,1,"C",16,331)=""
^XMB(3.7,1,2,2,1,"C",17,335)=""
^XMB(3.7,1,2,2,1,"C",18,336)=""
^XMB(3.7,1,2,2,1,"C",19,337)=""
^XMB(3.7,1,2,2,1,"C",20,338)=""
^XMB(3.7,1,2,2,1,"C",21,344)=""
^XMB(3.7,1,2,2,1,"C",22,345)=""
^XMB(3.7,1,2,2,1,"C",23,346)=""
^XMB(3.7,1,2,2,1,"C",24,347)=""
^XMB(3.7,1,2,2,1,"C",25,349)=""
^XMB(3.7,1,2,2,1,"C",26,350)=""
^XMB(3.7,1,2,2,1,"C",27,351)=""
^XMB(3.7,1,2,2,1,"C",28,352)=""
^XMB(3.7,1,2,2,1,"C",29,353)=""
^XMB(3.7,1,2,2,1,"C",30,354)=""
^XMB(3.7,1,2,2,1,"C",31,356)=""
^XMB(3.7,1,2,2,1,"C",32,357)=""
^XMB(3.7,1,2,2,1,"C",33,361)=""
^XMB(3.7,1,2,2,1,"C",34,362)=""
^XMB(3.7,1,2,2,1,"C",35,363)=""
^XMB(3.7,1,2,2,1,"C",36,364)=""
^XMB(3.7,1,2,"B","IN",1)=""
^XMB(3.7,1,2,"B","NDF UPDATES",2)=""
^XMB(3.7,1,2,"B","WASTE",.5)=""
^XMB(3.7,1,"L")="01/31/08@13:53^3080131^1"
^XMB(3.7,1,"N0",1,303)=""
^XMB(3.7,1,"N0",1,304)=""
^XMB(3.7,1,"N0",1,306)=""
^XMB(3.7,1,"N0",1,311)=""
^XMB(3.7,1,"N0",1,314)=""
^XMB(3.7,1,"N0",1,326)=""
^XMB(3.7,1,"N0",1,327)=""
^XMB(3.7,1,"N0",1,332)=""
^XMB(3.7,1,"N0",1,339)=""
^XMB(3.7,1,"N0",1,343)=""
^XMB(3.7,1,"N0",1,348)=""
^XMB(3.7,1,"N0",1,355)=""
^XMB(3.7,1,"N0",1,365)=""
^XMB(3.7,1,"N0",1,366)=""
^XMB(3.7,1,"N0",1,367)=""
^XMB(3.7,1,"N0",1,368)=""
^XMB(3.7,1,"N0",1,369)=""
^XMB(3.7,1,"N0",2,315)=""
^XMB(3.7,1,"N0",2,316)=""
^XMB(3.7,1,"N0",2,320)=""
^XMB(3.7,1,"N0",2,321)=""
^XMB(3.7,1,"N0",2,323)=""
^XMB(3.7,1,"N0",2,328)=""
^XMB(3.7,1,"N0",2,329)=""
^XMB(3.7,1,"N0",2,331)=""
^XMB(3.7,1,"N0",2,335)=""
^XMB(3.7,1,"N0",2,336)=""
^XMB(3.7,1,"N0",2,338)=""
^XMB(3.7,1,"N0",2,344)=""
^XMB(3.7,1,"N0",2,345)=""
^XMB(3.7,1,"N0",2,347)=""
^XMB(3.7,1,"N0",2,349)=""
^XMB(3.7,1,"N0",2,350)=""
^XMB(3.7,1,"N0",2,352)=""
^XMB(3.7,1,"N0",2,353)=""
^XMB(3.7,1,"N0",2,354)=""
^XMB(3.7,1,"N0",2,357)=""
^XMB(3.7,1,"N0",2,361)=""
^XMB(3.7,1,"N0",2,362)=""
^XMB(3.7,1,"N0",2,364)=""
^XMB(3.7,1,"T")="^^^"
^XMB(3.7,2,0)="2^^^^^0"
^XMB(3.7,2,2,0)="^3.701^1^2"
^XMB(3.7,2,2,.5,0)="WASTE^0"
^XMB(3.7,2,2,.5,1,0)="^3.702P^0^0"
^XMB(3.7,2,2,1,0)="IN^0"
^XMB(3.7,2,2,1,1,0)="^3.702P^0^0"
^XMB(3.7,2,2,"B","IN",1)=""
^XMB(3.7,2,2,"B","WASTE",.5)=""
^XMB(3.7,3,0)="3^^^^^0"
^XMB(3.7,3,2,0)="^3.701^1^2"
^XMB(3.7,3,2,.5,0)="WASTE^0"
^XMB(3.7,3,2,.5,1,0)="^3.702P^0^0"
^XMB(3.7,3,2,1,0)="IN^0"
^XMB(3.7,3,2,1,1,0)="^3.702P^0^0"
^XMB(3.7,3,2,"B","IN",1)=""
^XMB(3.7,3,2,"B","WASTE",.5)=""
^XMB(3.7,3,"L")="29 Nov 99 16:03^2991129^3"
^XMB(3.7,8,0)="8^^^^^0^^^^^^^^3060510.202149^3050204.155127"
^XMB(3.7,8,2,0)="^3.701^1^2"
^XMB(3.7,8,2,.5,0)="WASTE^0"
^XMB(3.7,8,2,1,0)="IN^0"
^XMB(3.7,8,2,1,1,0)="^3.702P^^0"
^XMB(3.7,8,2,"B","IN",1)=""
^XMB(3.7,8,2,"B","WASTE",.5)=""
^XMB(3.7,8,"L")="06/05/05@09:48^3050605^8"
^XMB(3.7,8,"T")="^^^"
^XMB(3.7,9,0)="9^^^^^0^^^^^^^^3060421.16521^3050809.14221"
^XMB(3.7,9,2,0)="^3.701^2^3"
^XMB(3.7,9,2,.5,0)="WASTE^0"
^XMB(3.7,9,2,.5,1,0)="^3.702P^^0"
^XMB(3.7,9,2,1,0)="IN^0"
^XMB(3.7,9,2,1,1,0)="^3.702P^^0"
^XMB(3.7,9,2,2,0)="EHR^0"
^XMB(3.7,9,2,2,1,0)="^3.702P^^0"
^XMB(3.7,9,2,"B","EHR",2)=""
^XMB(3.7,9,2,"B","IN",1)=""
^XMB(3.7,9,2,"B","WASTE",.5)=""
^XMB(3.7,9,"L")="07/28/05@19:17^3050728^9"
^XMB(3.7,9,"T")="^^^"
^XMB(3.7,10,0)="10^^^^^0^^^^^^^^3051223.134525"
^XMB(3.7,10,2,0)="^3.701^1^2"
^XMB(3.7,10,2,.5,0)="WASTE^0"
^XMB(3.7,10,2,1,0)="IN^0"
^XMB(3.7,10,2,1,1,0)="^3.702P^^0"
^XMB(3.7,10,2,"B","IN",1)=""
^XMB(3.7,10,2,"B","WASTE",.5)=""
^XMB(3.7,11,0)="11^^^^^0^^^^^^^^3060510.202149"
^XMB(3.7,11,2,0)="^3.701^1^2"
^XMB(3.7,11,2,.5,0)="WASTE^0"
^XMB(3.7,11,2,1,0)="IN^0"
^XMB(3.7,11,2,1,1,0)="^3.702P^^0"
^XMB(3.7,11,2,"B","IN",1)=""
^XMB(3.7,11,2,"B","WASTE",.5)=""
^XMB(3.7,12,0)="12^^^^^0"
^XMB(3.7,12,2,0)="^3.701^1^2"
^XMB(3.7,12,2,.5,0)="WASTE^0"
^XMB(3.7,12,2,1,0)="IN^0"
^XMB(3.7,12,2,"B","IN",1)=""
^XMB(3.7,12,2,"B","WASTE",.5)=""
^XMB(3.7,13,0)="13^^^^^0"
^XMB(3.7,13,2,0)="^3.701^1^2"
^XMB(3.7,13,2,.5,0)="WASTE^0"
^XMB(3.7,13,2,1,0)="IN^0"
^XMB(3.7,13,2,"B","IN",1)=""
^XMB(3.7,13,2,"B","WASTE",.5)=""
^XMB(3.7,14,0)="14^^^^^0^^^^^^^^3060510.202149"
^XMB(3.7,14,2,0)="^3.701^1^2"
^XMB(3.7,14,2,.5,0)="WASTE^0"
^XMB(3.7,14,2,1,0)="IN^0"
^XMB(3.7,14,2,1,1,0)="^3.702P^^0"
^XMB(3.7,14,2,"B","IN",1)=""
^XMB(3.7,14,2,"B","WASTE",.5)=""
^XMB(3.7,15,0)="15^^^^^0^^^^^^^^3060510.202149"
^XMB(3.7,15,2,0)="^3.701^1^2"
^XMB(3.7,15,2,.5,0)="WASTE^0"
^XMB(3.7,15,2,1,0)="IN^0"
^XMB(3.7,15,2,1,1,0)="^3.702P^^0"
^XMB(3.7,15,2,"B","IN",1)=""
^XMB(3.7,15,2,"B","WASTE",.5)=""
^XMB(3.7,16,0)="16^^^^^0^^^^^^^^3060510.202149"
^XMB(3.7,16,2,0)="^3.701^1^2"
^XMB(3.7,16,2,.5,0)="WASTE^0"
^XMB(3.7,16,2,1,0)="IN^0"
^XMB(3.7,16,2,1,1,0)="^3.702P^^0"
^XMB(3.7,16,2,"B","IN",1)=""
^XMB(3.7,16,2,"B","WASTE",.5)=""
^XMB(3.7,17,0)="17^^^^^0^^^^^^^^3060510.202149"
^XMB(3.7,17,2,0)="^3.701^1^2"
^XMB(3.7,17,2,.5,0)="WASTE^0"
^XMB(3.7,17,2,1,0)="IN^0"
^XMB(3.7,17,2,1,1,0)="^3.702P^^0"
^XMB(3.7,17,2,"B","IN",1)=""
^XMB(3.7,17,2,"B","WASTE",.5)=""
^XMB(3.7,18,0)="18^^^^^0^^^^^^^^3060510.202149"
^XMB(3.7,18,2,0)="^3.701^1^2"
^XMB(3.7,18,2,.5,0)="WASTE^0"
^XMB(3.7,18,2,1,0)="IN^0"
^XMB(3.7,18,2,1,1,0)="^3.702P^^0"
^XMB(3.7,18,2,"B","IN",1)=""
^XMB(3.7,18,2,"B","WASTE",.5)=""
^XMB(3.7,19,0)="19^^^^^0^^^^^^^^3060510.202149"
^XMB(3.7,19,2,0)="^3.701^1^2"
^XMB(3.7,19,2,.5,0)="WASTE^0"
^XMB(3.7,19,2,1,0)="IN^0"
^XMB(3.7,19,2,1,1,0)="^3.702P^^0"
^XMB(3.7,19,2,"B","IN",1)=""
^XMB(3.7,19,2,"B","WASTE",.5)=""
^XMB(3.7,20,0)="20^^^^^0^^^^^^^^3060510.202149"
^XMB(3.7,20,2,0)="^3.701^1^2"
^XMB(3.7,20,2,.5,0)="WASTE^0"
^XMB(3.7,20,2,1,0)="IN^0"
^XMB(3.7,20,2,1,1,0)="^3.702P^^0"
^XMB(3.7,20,2,"B","IN",1)=""
^XMB(3.7,20,2,"B","WASTE",.5)=""
^XMB(3.7,20,"L")="04/20/05@16:41^3050420^20"
^XMB(3.7,21,0)="21^^^^^0^^^^^^^^3060510.202149"
^XMB(3.7,21,2,0)="^3.701^1^2"
^XMB(3.7,21,2,.5,0)="WASTE^0"
^XMB(3.7,21,2,1,0)="IN^0"
^XMB(3.7,21,2,1,1,0)="^3.702P^^0"
^XMB(3.7,21,2,"B","IN",1)=""
^XMB(3.7,21,2,"B","WASTE",.5)=""
^XMB(3.7,22,0)="22^^^^^0^^^^^^^^3060510.202149"
^XMB(3.7,22,2,0)="^3.701^1^2"
^XMB(3.7,22,2,.5,0)="WASTE^0"
^XMB(3.7,22,2,1,0)="IN^0"
^XMB(3.7,22,2,1,1,0)="^3.702P^^0"
^XMB(3.7,22,2,"B","IN",1)=""
^XMB(3.7,22,2,"B","WASTE",.5)=""
^XMB(3.7,23,0)="23^^^^^0^^^^^^^^3060510.202149"
^XMB(3.7,23,2,0)="^3.701^1^2"
^XMB(3.7,23,2,.5,0)="WASTE^0"
^XMB(3.7,23,2,1,0)="IN^0"
^XMB(3.7,23,2,1,1,0)="^3.702P^^0"
^XMB(3.7,23,2,"B","IN",1)=""
^XMB(3.7,23,2,"B","WASTE",.5)=""
^XMB(3.7,24,0)="24^^^^^0^^^^^^^^3060510.202149"
^XMB(3.7,24,2,0)="^3.701^1^2"
^XMB(3.7,24,2,.5,0)="WASTE^0"
^XMB(3.7,24,2,1,0)="IN^0"
^XMB(3.7,24,2,1,1,0)="^3.702P^^0"
^XMB(3.7,24,2,"B","IN",1)=""
^XMB(3.7,24,2,"B","WASTE",.5)=""
^XMB(3.7,26,0)="26^^^^^0^^^^^^^^3060510.202149"
^XMB(3.7,26,2,0)="^3.701^1^2"
^XMB(3.7,26,2,.5,0)="WASTE^0"
^XMB(3.7,26,2,1,0)="IN^0"
^XMB(3.7,26,2,1,1,0)="^3.702P^^0"
^XMB(3.7,26,2,"B","IN",1)=""
^XMB(3.7,26,2,"B","WASTE",.5)=""
^XMB(3.7,26,"L")="04/12/05@15:47^3050412^26"
^XMB(3.7,27,0)="27^^^^^0^^^^^^^^3060510.202149"
^XMB(3.7,27,2,0)="^3.701^1^2"
^XMB(3.7,27,2,.5,0)="WASTE^0"
^XMB(3.7,27,2,1,0)="IN^0"
^XMB(3.7,27,2,1,1,0)="^3.702P^^0"
^XMB(3.7,27,2,"B","IN",1)=""
^XMB(3.7,27,2,"B","WASTE",.5)=""
^XMB(3.7,28,0)="28^^^^^0^^^^^^^^3060510.202149"
^XMB(3.7,28,2,0)="^3.701^1^2"
^XMB(3.7,28,2,.5,0)="WASTE^0"
^XMB(3.7,28,2,1,0)="IN^0"
^XMB(3.7,28,2,1,1,0)="^3.702P^^0"
^XMB(3.7,28,2,"B","IN",1)=""
^XMB(3.7,28,2,"B","WASTE",.5)=""
^XMB(3.7,29,0)="29^^^^^0^^^^^^^^3060510.202149"
^XMB(3.7,29,2,0)="^3.701^1^2"
^XMB(3.7,29,2,.5,0)="WASTE^0"
^XMB(3.7,29,2,1,0)="IN^0"
^XMB(3.7,29,2,1,1,0)="^3.702P^^0"
^XMB(3.7,29,2,"B","IN",1)=""
^XMB(3.7,29,2,"B","WASTE",.5)=""
^XMB(3.7,30,0)="30^^^^^0^^^^^^^^3060510.202149"
^XMB(3.7,30,2,0)="^3.701^1^2"
^XMB(3.7,30,2,.5,0)="WASTE^0"
^XMB(3.7,30,2,1,0)="IN^0"
^XMB(3.7,30,2,1,1,0)="^3.702P^^0"
^XMB(3.7,30,2,"B","IN",1)=""
^XMB(3.7,30,2,"B","WASTE",.5)=""
^XMB(3.7,31,0)="31^^^^^0^^^^^^^^3060510.202149"
^XMB(3.7,31,2,0)="^3.701^1^2"
^XMB(3.7,31,2,.5,0)="WASTE^0"
^XMB(3.7,31,2,1,0)="IN^0"
^XMB(3.7,31,2,1,1,0)="^3.702P^^0"
^XMB(3.7,31,2,"B","IN",1)=""
^XMB(3.7,31,2,"B","WASTE",.5)=""
^XMB(3.7,32,0)="32^^^^^0^^^^^^^^3060510.202149"
^XMB(3.7,32,2,0)="^3.701^1^2"
^XMB(3.7,32,2,.5,0)="WASTE^0"
^XMB(3.7,32,2,1,0)="IN^0"
^XMB(3.7,32,2,1,1,0)="^3.702P^^0"
^XMB(3.7,32,2,"B","IN",1)=""
^XMB(3.7,32,2,"B","WASTE",.5)=""
^XMB(3.7,33,0)="33^^^^^0^^^^^^^^3060510.202149"
^XMB(3.7,33,2,0)="^3.701^1^2"
^XMB(3.7,33,2,.5,0)="WASTE^0"
^XMB(3.7,33,2,1,0)="IN^0"
^XMB(3.7,33,2,1,1,0)="^3.702P^^0"
^XMB(3.7,33,2,"B","IN",1)=""
^XMB(3.7,33,2,"B","WASTE",.5)=""
^XMB(3.7,34,0)="34^^^^^0^^^^^^^^3060510.202149"
^XMB(3.7,34,2,0)="^3.701^1^2"
^XMB(3.7,34,2,.5,0)="WASTE^0"
^XMB(3.7,34,2,1,0)="IN^0"
^XMB(3.7,34,2,1,1,0)="^3.702P^^0"
^XMB(3.7,34,2,"B","IN",1)=""
^XMB(3.7,34,2,"B","WASTE",.5)=""
^XMB(3.7,35,0)="35^^^^^0^^^^^^^^3060510.202149"
^XMB(3.7,35,2,0)="^3.701^1^2"
^XMB(3.7,35,2,.5,0)="WASTE^0"
^XMB(3.7,35,2,1,0)="IN^0"
^XMB(3.7,35,2,1,1,0)="^3.702P^^0"
^XMB(3.7,35,2,"B","IN",1)=""
^XMB(3.7,35,2,"B","WASTE",.5)=""
^XMB(3.7,36,0)="36^^^^^0^^^^^^^^3060510.202149"
^XMB(3.7,36,2,0)="^3.701^1^2"
^XMB(3.7,36,2,.5,0)="WASTE^0"
^XMB(3.7,36,2,1,0)="IN^0"
^XMB(3.7,36,2,1,1,0)="^3.702P^^0"
^XMB(3.7,36,2,"B","IN",1)=""
^XMB(3.7,36,2,"B","WASTE",.5)=""
^XMB(3.7,37,0)="37^^^^^0^^^^^^^^3060510.202149"
^XMB(3.7,37,2,0)="^3.701^1^2"
^XMB(3.7,37,2,.5,0)="WASTE^0"
^XMB(3.7,37,2,1,0)="IN^0"
^XMB(3.7,37,2,1,1,0)="^3.702P^^0"
^XMB(3.7,37,2,"B","IN",1)=""
^XMB(3.7,37,2,"B","WASTE",.5)=""
^XMB(3.7,38,0)="38^^^^^0^^^^^^^^3060510.202149"
^XMB(3.7,38,2,0)="^3.701^1^2"
^XMB(3.7,38,2,.5,0)="WASTE^0"
^XMB(3.7,38,2,1,0)="IN^0"
^XMB(3.7,38,2,1,1,0)="^3.702P^^0"
^XMB(3.7,38,2,"B","IN",1)=""
^XMB(3.7,38,2,"B","WASTE",.5)=""
^XMB(3.7,39,0)="39^^^^^0^^^^^^^^3060510.202149"
^XMB(3.7,39,2,0)="^3.701^1^2"
^XMB(3.7,39,2,.5,0)="WASTE^0"
^XMB(3.7,39,2,1,0)="IN^0"
^XMB(3.7,39,2,1,1,0)="^3.702P^^0"
^XMB(3.7,39,2,"B","IN",1)=""
^XMB(3.7,39,2,"B","WASTE",.5)=""
^XMB(3.7,40,0)="40^^^^^0^^^^^^^^3060510.202149"
^XMB(3.7,40,2,0)="^3.701^1^2"
^XMB(3.7,40,2,.5,0)="WASTE^0"
^XMB(3.7,40,2,1,0)="IN^0"
^XMB(3.7,40,2,1,1,0)="^3.702P^^0"
^XMB(3.7,40,2,"B","IN",1)=""
^XMB(3.7,40,2,"B","WASTE",.5)=""
^XMB(3.7,41,0)="41^^^^^0"
^XMB(3.7,41,2,0)="^3.701^1^2"
^XMB(3.7,41,2,.5,0)="WASTE^0"
^XMB(3.7,41,2,1,0)="IN^0"
^XMB(3.7,41,2,"B","IN",1)=""
^XMB(3.7,41,2,"B","WASTE",.5)=""
^XMB(3.7,42,0)="42^^^^^0"
^XMB(3.7,42,2,0)="^3.701^1^2"
^XMB(3.7,42,2,.5,0)="WASTE^0"
^XMB(3.7,42,2,1,0)="IN^0"
^XMB(3.7,42,2,"B","IN",1)=""
^XMB(3.7,42,2,"B","WASTE",.5)=""
^XMB(3.7,43,0)="43^^^^^0"
^XMB(3.7,43,2,0)="^3.701^1^2"
^XMB(3.7,43,2,.5,0)="WASTE^0"
^XMB(3.7,43,2,1,0)="IN^0"
^XMB(3.7,43,2,"B","IN",1)=""
^XMB(3.7,43,2,"B","WASTE",.5)=""
^XMB(3.7,44,0)="44^^^^^0"
^XMB(3.7,44,2,0)="^3.701^1^2"
^XMB(3.7,44,2,.5,0)="WASTE^0"
^XMB(3.7,44,2,1,0)="IN^0"
^XMB(3.7,44,2,"B","IN",1)=""
^XMB(3.7,44,2,"B","WASTE",.5)=""
^XMB(3.7,45,0)="45^^^^^0"
^XMB(3.7,45,2,0)="^3.701^1^2"
^XMB(3.7,45,2,.5,0)="WASTE^0"
^XMB(3.7,45,2,1,0)="IN^0"
^XMB(3.7,45,2,"B","IN",1)=""
^XMB(3.7,45,2,"B","WASTE",.5)=""
^XMB(3.7,46,0)="46^^^^^0"
^XMB(3.7,46,2,0)="^3.701^1^2"
^XMB(3.7,46,2,.5,0)="WASTE^0"
^XMB(3.7,46,2,1,0)="IN^0"
^XMB(3.7,46,2,"B","IN",1)=""
^XMB(3.7,46,2,"B","WASTE",.5)=""
^XMB(3.7,47,0)="47^^^^^0"
^XMB(3.7,47,2,0)="^3.701^1^2"
^XMB(3.7,47,2,.5,0)="WASTE^0"
^XMB(3.7,47,2,1,0)="IN^0"
^XMB(3.7,47,2,"B","IN",1)=""
^XMB(3.7,47,2,"B","WASTE",.5)=""
^XMB(3.7,48,0)="48^^^^^0"
^XMB(3.7,48,2,0)="^3.701^1^2"
^XMB(3.7,48,2,.5,0)="WASTE^0"
^XMB(3.7,48,2,1,0)="IN^0"
^XMB(3.7,48,2,"B","IN",1)=""
^XMB(3.7,48,2,"B","WASTE",.5)=""
^XMB(3.7,49,0)="49^^^^^0"
^XMB(3.7,49,2,0)="^3.701^1^2"
^XMB(3.7,49,2,.5,0)="WASTE^0"
^XMB(3.7,49,2,1,0)="IN^0"
^XMB(3.7,49,2,"B","IN",1)=""
^XMB(3.7,49,2,"B","WASTE",.5)=""
^XMB(3.7,50,0)="50^^^^^0"
^XMB(3.7,50,2,0)="^3.701^1^2"
^XMB(3.7,50,2,.5,0)="WASTE^0"
^XMB(3.7,50,2,1,0)="IN^0"
^XMB(3.7,50,2,"B","IN",1)=""
^XMB(3.7,50,2,"B","WASTE",.5)=""
^XMB(3.7,51,0)="51^^^^^0"
^XMB(3.7,51,2,0)="^3.701^1^2"
^XMB(3.7,51,2,.5,0)="WASTE^0"
^XMB(3.7,51,2,1,0)="IN^0"
^XMB(3.7,51,2,"B","IN",1)=""
^XMB(3.7,51,2,"B","WASTE",.5)=""
^XMB(3.7,52,0)="52^^^^^0"
^XMB(3.7,52,2,0)="^3.701^1^2"
^XMB(3.7,52,2,.5,0)="WASTE^0"
^XMB(3.7,52,2,1,0)="IN^0"
^XMB(3.7,52,2,"B","IN",1)=""
^XMB(3.7,52,2,"B","WASTE",.5)=""
^XMB(3.7,53,0)="53^^^^^0"
^XMB(3.7,53,2,0)="^3.701^1^2"
^XMB(3.7,53,2,.5,0)="WASTE^0"
^XMB(3.7,53,2,1,0)="IN^0"
^XMB(3.7,53,2,"B","IN",1)=""
^XMB(3.7,53,2,"B","WASTE",.5)=""
^XMB(3.7,54,0)="54^^^^^0"
^XMB(3.7,54,2,0)="^3.701^1^2"
^XMB(3.7,54,2,.5,0)="WASTE^0"
^XMB(3.7,54,2,1,0)="IN^0"
^XMB(3.7,54,2,"B","IN",1)=""
^XMB(3.7,54,2,"B","WASTE",.5)=""
^XMB(3.7,55,0)="55^^^^^0^^^^^^^^3060510.202149"
^XMB(3.7,55,2,0)="^3.701^1^2"
^XMB(3.7,55,2,.5,0)="WASTE^0"
^XMB(3.7,55,2,1,0)="IN^0"
^XMB(3.7,55,2,1,1,0)="^3.702P^^0"
^XMB(3.7,55,2,"B","IN",1)=""
^XMB(3.7,55,2,"B","WASTE",.5)=""
^XMB(3.7,56,0)="56^^^^^0^^^^^^^^3060510.202149^3050809.152103"
^XMB(3.7,56,2,0)="^3.701^2^3"
^XMB(3.7,56,2,.5,0)="WASTE^0"
^XMB(3.7,56,2,.5,1,0)="^3.702P^^0"
^XMB(3.7,56,2,1,0)="IN^0"
^XMB(3.7,56,2,1,1,0)="^3.702P^^0"
^XMB(3.7,56,2,2,0)="INSTALLED_JGH^0"
^XMB(3.7,56,2,2,1,0)="^3.702P^^0"
^XMB(3.7,56,2,"B","IN",1)=""
^XMB(3.7,56,2,"B","INSTALLED_JGH",2)=""
^XMB(3.7,56,2,"B","WASTE",.5)=""
^XMB(3.7,56,"L")="08/29/05@11:02^3050829^56"
^XMB(3.7,58,0)="58^^^^^0"
^XMB(3.7,58,2,0)="^3.701^1^2"
^XMB(3.7,58,2,.5,0)="WASTE^0"
^XMB(3.7,58,2,1,0)="IN^0"
^XMB(3.7,58,2,"B","IN",1)=""
^XMB(3.7,58,2,"B","WASTE",.5)=""
^XMB(3.7,59,0)="59^^^^^0^^^^^^^^3060421.16521^3050809.14221"
^XMB(3.7,59,2,0)="^3.701^1^2"
^XMB(3.7,59,2,.5,0)="WASTE^0"
^XMB(3.7,59,2,.5,1,0)="^3.702P^^0"
^XMB(3.7,59,2,1,0)="IN^0"
^XMB(3.7,59,2,1,1,0)="^3.702P^^0"
^XMB(3.7,59,2,"B","IN",1)=""
^XMB(3.7,59,2,"B","WASTE",.5)=""
^XMB(3.7,59,"L")="08/26/05@15:23^3050826^59"
^XMB(3.7,60,0)="60^^^^^0^^^^^^^^3051223.134525^3050809.14221"
^XMB(3.7,60,2,0)="^3.701^1^2"
^XMB(3.7,60,2,.5,0)="WASTE^0"
^XMB(3.7,60,2,.5,1,0)="^3.702P^^0"
^XMB(3.7,60,2,1,0)="IN^0"
^XMB(3.7,60,2,1,1,0)="^3.702P^^0"
^XMB(3.7,60,2,"B","IN",1)=""
^XMB(3.7,60,2,"B","WASTE",.5)=""
^XMB(3.7,60,"L")="09/02/05@07:53^3050902^60"
^XMB(3.7,61,0)="61^^^^^0"
^XMB(3.7,61,2,0)="^3.701^1^2"
^XMB(3.7,61,2,.5,0)="WASTE^0"
^XMB(3.7,61,2,1,0)="IN^0"
^XMB(3.7,61,2,"B","IN",1)=""
^XMB(3.7,61,2,"B","WASTE",.5)=""
^XMB(3.7,62,0)="62^^^^^0^^^^^^^^3051223.134525"
^XMB(3.7,62,2,0)="^3.701^1^2"
^XMB(3.7,62,2,.5,0)="WASTE^0"
^XMB(3.7,62,2,1,0)="IN^0"
^XMB(3.7,62,2,1,1,0)="^3.702P^^0"
^XMB(3.7,62,2,"B","IN",1)=""
^XMB(3.7,62,2,"B","WASTE",.5)=""
^XMB(3.7,62,"L")="07/29/05@22:14^3050729^62"
^XMB(3.7,63,0)="63^^^^^54^^^^^^^^3071227.181317^3060511.003445"
^XMB(3.7,63,2,0)="^3.701^3^4"
^XMB(3.7,63,2,.5,0)="WASTE^0"
^XMB(3.7,63,2,1,0)="IN^54"
^XMB(3.7,63,2,1,1,0)="^3.702P^364^54"
^XMB(3.7,63,2,1,1,264,0)="264^1^1"
^XMB(3.7,63,2,1,1,265,0)="265^2^1"
^XMB(3.7,63,2,1,1,266,0)="266^3^1"
^XMB(3.7,63,2,1,1,267,0)="267^4^1"
^XMB(3.7,63,2,1,1,268,0)="268^5^1"
^XMB(3.7,63,2,1,1,269,0)="269^6^1"
^XMB(3.7,63,2,1,1,275,0)="275^7^1"
^XMB(3.7,63,2,1,1,276,0)="276^8^1"
^XMB(3.7,63,2,1,1,277,0)="277^9^1"
^XMB(3.7,63,2,1,1,280,0)="280^10^1"
^XMB(3.7,63,2,1,1,281,0)="281^11^1"
^XMB(3.7,63,2,1,1,282,0)="282^12^1"
^XMB(3.7,63,2,1,1,283,0)="283^13^1"
^XMB(3.7,63,2,1,1,297,0)="297^14^1"
^XMB(3.7,63,2,1,1,298,0)="298^15^1"
^XMB(3.7,63,2,1,1,299,0)="299^16^1"
^XMB(3.7,63,2,1,1,300,0)="300^17^1"
^XMB(3.7,63,2,1,1,307,0)="307^18^1"
^XMB(3.7,63,2,1,1,308,0)="308^19^1"
^XMB(3.7,63,2,1,1,309,0)="309^20^1"
^XMB(3.7,63,2,1,1,310,0)="310^21^1"
^XMB(3.7,63,2,1,1,315,0)="315^22^1"
^XMB(3.7,63,2,1,1,316,0)="316^23^1"
^XMB(3.7,63,2,1,1,317,0)="317^24^1"
^XMB(3.7,63,2,1,1,318,0)="318^25^1"
^XMB(3.7,63,2,1,1,320,0)="320^26^1"
^XMB(3.7,63,2,1,1,321,0)="321^27^1"
^XMB(3.7,63,2,1,1,322,0)="322^28^1"
^XMB(3.7,63,2,1,1,323,0)="323^29^1"
^XMB(3.7,63,2,1,1,325,0)="325^30^1"
^XMB(3.7,63,2,1,1,328,0)="328^31^1"
^XMB(3.7,63,2,1,1,329,0)="329^32^1"
^XMB(3.7,63,2,1,1,330,0)="330^33^1"
^XMB(3.7,63,2,1,1,331,0)="331^34^1"
^XMB(3.7,63,2,1,1,335,0)="335^35^1"
^XMB(3.7,63,2,1,1,336,0)="336^36^1"
^XMB(3.7,63,2,1,1,337,0)="337^37^1"
^XMB(3.7,63,2,1,1,338,0)="338^38^1"
^XMB(3.7,63,2,1,1,344,0)="344^39^1"
^XMB(3.7,63,2,1,1,345,0)="345^40^1"
^XMB(3.7,63,2,1,1,346,0)="346^41^1"
^XMB(3.7,63,2,1,1,347,0)="347^42^1"
^XMB(3.7,63,2,1,1,349,0)="349^43^1"
^XMB(3.7,63,2,1,1,350,0)="350^44^1"
^XMB(3.7,63,2,1,1,351,0)="351^45^1"
^XMB(3.7,63,2,1,1,352,0)="352^46^1"
^XMB(3.7,63,2,1,1,353,0)="353^47^1"
^XMB(3.7,63,2,1,1,354,0)="354^48^1"
^XMB(3.7,63,2,1,1,356,0)="356^49^1"
^XMB(3.7,63,2,1,1,357,0)="357^50^1"
^XMB(3.7,63,2,1,1,361,0)="361^51^1"
^XMB(3.7,63,2,1,1,362,0)="362^52^1"
^XMB(3.7,63,2,1,1,363,0)="363^53^1"
^XMB(3.7,63,2,1,1,364,0)="364^54^1"
^XMB(3.7,63,2,1,1,"C",1,264)=""
^XMB(3.7,63,2,1,1,"C",2,265)=""
^XMB(3.7,63,2,1,1,"C",3,266)=""
^XMB(3.7,63,2,1,1,"C",4,267)=""
^XMB(3.7,63,2,1,1,"C",5,268)=""
^XMB(3.7,63,2,1,1,"C",6,269)=""
^XMB(3.7,63,2,1,1,"C",7,275)=""
^XMB(3.7,63,2,1,1,"C",8,276)=""
^XMB(3.7,63,2,1,1,"C",9,277)=""
^XMB(3.7,63,2,1,1,"C",10,280)=""
^XMB(3.7,63,2,1,1,"C",11,281)=""
^XMB(3.7,63,2,1,1,"C",12,282)=""
^XMB(3.7,63,2,1,1,"C",13,283)=""
^XMB(3.7,63,2,1,1,"C",14,297)=""
^XMB(3.7,63,2,1,1,"C",15,298)=""
^XMB(3.7,63,2,1,1,"C",16,299)=""
^XMB(3.7,63,2,1,1,"C",17,300)=""
^XMB(3.7,63,2,1,1,"C",18,307)=""
^XMB(3.7,63,2,1,1,"C",19,308)=""
^XMB(3.7,63,2,1,1,"C",20,309)=""
^XMB(3.7,63,2,1,1,"C",21,310)=""
^XMB(3.7,63,2,1,1,"C",22,315)=""
^XMB(3.7,63,2,1,1,"C",23,316)=""
^XMB(3.7,63,2,1,1,"C",24,317)=""
^XMB(3.7,63,2,1,1,"C",25,318)=""
^XMB(3.7,63,2,1,1,"C",26,320)=""
^XMB(3.7,63,2,1,1,"C",27,321)=""
^XMB(3.7,63,2,1,1,"C",28,322)=""
^XMB(3.7,63,2,1,1,"C",29,323)=""
^XMB(3.7,63,2,1,1,"C",30,325)=""
^XMB(3.7,63,2,1,1,"C",31,328)=""
^XMB(3.7,63,2,1,1,"C",32,329)=""
^XMB(3.7,63,2,1,1,"C",33,330)=""
^XMB(3.7,63,2,1,1,"C",34,331)=""
^XMB(3.7,63,2,1,1,"C",35,335)=""
^XMB(3.7,63,2,1,1,"C",36,336)=""
^XMB(3.7,63,2,1,1,"C",37,337)=""
^XMB(3.7,63,2,1,1,"C",38,338)=""
^XMB(3.7,63,2,1,1,"C",39,344)=""
^XMB(3.7,63,2,1,1,"C",40,345)=""
^XMB(3.7,63,2,1,1,"C",41,346)=""
^XMB(3.7,63,2,1,1,"C",42,347)=""
^XMB(3.7,63,2,1,1,"C",43,349)=""
^XMB(3.7,63,2,1,1,"C",44,350)=""
^XMB(3.7,63,2,1,1,"C",45,351)=""
^XMB(3.7,63,2,1,1,"C",46,352)=""
^XMB(3.7,63,2,1,1,"C",47,353)=""
^XMB(3.7,63,2,1,1,"C",48,354)=""
^XMB(3.7,63,2,1,1,"C",49,356)=""
^XMB(3.7,63,2,1,1,"C",50,357)=""
^XMB(3.7,63,2,1,1,"C",51,361)=""
^XMB(3.7,63,2,1,1,"C",52,362)=""
^XMB(3.7,63,2,1,1,"C",53,363)=""
^XMB(3.7,63,2,1,1,"C",54,364)=""
^XMB(3.7,63,2,2,0)="NDF^0"
^XMB(3.7,63,2,2,1,0)="^3.702P^^0"
^XMB(3.7,63,2,3,0)="SAVE^0"
^XMB(3.7,63,2,3,1,0)="^3.702P^^0"
^XMB(3.7,63,2,"B","IN",1)=""
^XMB(3.7,63,2,"B","NDF",2)=""
^XMB(3.7,63,2,"B","SAVE",3)=""
^XMB(3.7,63,2,"B","WASTE",.5)=""
^XMB(3.7,63,"L")="01/08/06@14:42^3060108^63"
^XMB(3.7,63,"N",1,266)=""
^XMB(3.7,63,"N",1,269)=""
^XMB(3.7,63,"N",1,277)=""
^XMB(3.7,63,"N",1,282)=""
^XMB(3.7,63,"N",1,299)=""
^XMB(3.7,63,"N",1,309)=""
^XMB(3.7,63,"N",1,317)=""
^XMB(3.7,63,"N",1,322)=""
^XMB(3.7,63,"N",1,330)=""
^XMB(3.7,63,"N",1,337)=""
^XMB(3.7,63,"N",1,346)=""
^XMB(3.7,63,"N",1,351)=""
^XMB(3.7,63,"N",1,356)=""
^XMB(3.7,63,"N",1,363)=""
^XMB(3.7,63,"N0",1,264)=""
^XMB(3.7,63,"N0",1,265)=""
^XMB(3.7,63,"N0",1,266)=""
^XMB(3.7,63,"N0",1,267)=""
^XMB(3.7,63,"N0",1,268)=""
^XMB(3.7,63,"N0",1,269)=""
^XMB(3.7,63,"N0",1,275)=""
^XMB(3.7,63,"N0",1,276)=""
^XMB(3.7,63,"N0",1,277)=""
^XMB(3.7,63,"N0",1,280)=""
^XMB(3.7,63,"N0",1,281)=""
^XMB(3.7,63,"N0",1,282)=""
^XMB(3.7,63,"N0",1,283)=""
^XMB(3.7,63,"N0",1,297)=""
^XMB(3.7,63,"N0",1,298)=""
^XMB(3.7,63,"N0",1,299)=""
^XMB(3.7,63,"N0",1,300)=""
^XMB(3.7,63,"N0",1,307)=""
^XMB(3.7,63,"N0",1,308)=""
^XMB(3.7,63,"N0",1,309)=""
^XMB(3.7,63,"N0",1,310)=""
^XMB(3.7,63,"N0",1,315)=""
^XMB(3.7,63,"N0",1,316)=""
^XMB(3.7,63,"N0",1,317)=""
^XMB(3.7,63,"N0",1,318)=""
^XMB(3.7,63,"N0",1,320)=""
^XMB(3.7,63,"N0",1,321)=""
^XMB(3.7,63,"N0",1,322)=""
^XMB(3.7,63,"N0",1,323)=""
^XMB(3.7,63,"N0",1,325)=""
^XMB(3.7,63,"N0",1,328)=""
^XMB(3.7,63,"N0",1,329)=""
^XMB(3.7,63,"N0",1,330)=""
^XMB(3.7,63,"N0",1,331)=""
^XMB(3.7,63,"N0",1,335)=""
^XMB(3.7,63,"N0",1,336)=""
^XMB(3.7,63,"N0",1,337)=""
^XMB(3.7,63,"N0",1,338)=""
^XMB(3.7,63,"N0",1,344)=""
^XMB(3.7,63,"N0",1,345)=""
^XMB(3.7,63,"N0",1,346)=""
^XMB(3.7,63,"N0",1,347)=""
^XMB(3.7,63,"N0",1,349)=""
^XMB(3.7,63,"N0",1,350)=""
^XMB(3.7,63,"N0",1,351)=""
^XMB(3.7,63,"N0",1,352)=""
^XMB(3.7,63,"N0",1,353)=""
^XMB(3.7,63,"N0",1,354)=""
^XMB(3.7,63,"N0",1,356)=""
^XMB(3.7,63,"N0",1,357)=""
^XMB(3.7,63,"N0",1,361)=""
^XMB(3.7,63,"N0",1,362)=""
^XMB(3.7,63,"N0",1,363)=""
^XMB(3.7,63,"N0",1,364)=""
^XMB(3.7,64,0)="64^^^^^0"
^XMB(3.7,64,2,0)="^3.701^1^2"
^XMB(3.7,64,2,.5,0)="WASTE^0"
^XMB(3.7,64,2,1,0)="IN^0"
^XMB(3.7,64,2,"B","IN",1)=""
^XMB(3.7,64,2,"B","WASTE",.5)=""
^XMB(3.7,65,0)="65^^^^^14^^^^^^^^3071227.062304^3061002.050008"
^XMB(3.7,65,2,0)="^3.701^2^3"
^XMB(3.7,65,2,.5,0)="WASTE^0"
^XMB(3.7,65,2,.5,1,0)="^3.702P^^0"
^XMB(3.7,65,2,1,0)="IN^14"
^XMB(3.7,65,2,1,1,0)="^3.702P^342^14"
^XMB(3.7,65,2,1,1,248,0)="248^1^1"
^XMB(3.7,65,2,1,1,249,0)="249^2^1"
^XMB(3.7,65,2,1,1,250,0)="250^3^1"
^XMB(3.7,65,2,1,1,251,0)="251^4^1"
^XMB(3.7,65,2,1,1,252,0)="252^5^1"
^XMB(3.7,65,2,1,1,253,0)="253^6^1"
^XMB(3.7,65,2,1,1,254,0)="254^7^1"
^XMB(3.7,65,2,1,1,313,0)="313^8^1"
^XMB(3.7,65,2,1,1,319,0)="319^9^1"
^XMB(3.7,65,2,1,1,324,0)="324^10^1"
^XMB(3.7,65,2,1,1,333,0)="333^11^1"
^XMB(3.7,65,2,1,1,334,0)="334^12^1"
^XMB(3.7,65,2,1,1,340,0)="340^13^1"
^XMB(3.7,65,2,1,1,342,0)="342^14^1"
^XMB(3.7,65,2,1,1,"C",1,248)=""
^XMB(3.7,65,2,1,1,"C",2,249)=""
^XMB(3.7,65,2,1,1,"C",3,250)=""
^XMB(3.7,65,2,1,1,"C",4,251)=""
^XMB(3.7,65,2,1,1,"C",5,252)=""
^XMB(3.7,65,2,1,1,"C",6,253)=""
^XMB(3.7,65,2,1,1,"C",7,254)=""
^XMB(3.7,65,2,1,1,"C",8,313)=""
^XMB(3.7,65,2,1,1,"C",9,319)=""
^XMB(3.7,65,2,1,1,"C",10,324)=""
^XMB(3.7,65,2,1,1,"C",11,333)=""
^XMB(3.7,65,2,1,1,"C",12,334)=""
^XMB(3.7,65,2,1,1,"C",13,340)=""
^XMB(3.7,65,2,1,1,"C",14,342)=""
^XMB(3.7,65,2,2,0)="PATCHES^0"
^XMB(3.7,65,2,2,1,0)="^3.702P^^0"
^XMB(3.7,65,2,"B","IN",1)=""
^XMB(3.7,65,2,"B","PATCHES",2)=""
^XMB(3.7,65,2,"B","WASTE",.5)=""
^XMB(3.7,65,"L")="10/02/06@06:03^3061002^65"
^XMB(3.7,65,"N0",1,248)=""
^XMB(3.7,65,"N0",1,249)=""
^XMB(3.7,65,"N0",1,250)=""
^XMB(3.7,65,"N0",1,251)=""
^XMB(3.7,65,"N0",1,252)=""
^XMB(3.7,65,"N0",1,253)=""
^XMB(3.7,65,"N0",1,254)=""
^XMB(3.7,65,"N0",1,313)=""
^XMB(3.7,65,"N0",1,319)=""
^XMB(3.7,65,"N0",1,324)=""
^XMB(3.7,65,"N0",1,333)=""
^XMB(3.7,65,"N0",1,334)=""
^XMB(3.7,65,"N0",1,340)=""
^XMB(3.7,65,"N0",1,342)=""
^XMB(3.7,66,0)="66^^^^^0^^^^^^^^3060511.014841^3051202.193507"
^XMB(3.7,66,2,0)="^3.701^1^2"
^XMB(3.7,66,2,.5,0)="WASTE^0"
^XMB(3.7,66,2,1,0)="IN^0"
^XMB(3.7,66,2,1,1,0)="^3.702P^^0"
^XMB(3.7,66,2,"B","IN",1)=""
^XMB(3.7,66,2,"B","WASTE",.5)=""
^XMB(3.7,66,"L")="12/10/05@20:21^3051210^66"
^XMB(3.7,67,0)="67^^^^^0^^^^^^^^3060511.014841^3051223.134525"
^XMB(3.7,67,2,0)="^3.701^1^2"
^XMB(3.7,67,2,.5,0)="WASTE^0"
^XMB(3.7,67,2,1,0)="IN^0"
^XMB(3.7,67,2,1,1,0)="^3.702P^^0"
^XMB(3.7,67,2,"B","IN",1)=""
^XMB(3.7,67,2,"B","WASTE",.5)=""
^XMB(3.7,67,"L")="01/06/06@07:14^3060106^67"
^XMB(3.7,68,0)="68^^^^^54^^^^^^^^3071227.181317^3060511.003445"
^XMB(3.7,68,2,0)="^3.701^1^2"
^XMB(3.7,68,2,.5,0)="WASTE^0"
^XMB(3.7,68,2,1,0)="IN^54"
^XMB(3.7,68,2,1,1,0)="^3.702P^364^54"
^XMB(3.7,68,2,1,1,264,0)="264^1^1"
^XMB(3.7,68,2,1,1,265,0)="265^2^1"
^XMB(3.7,68,2,1,1,266,0)="266^3^1"
^XMB(3.7,68,2,1,1,267,0)="267^4^1"
^XMB(3.7,68,2,1,1,268,0)="268^5^1"
^XMB(3.7,68,2,1,1,269,0)="269^6^1"
^XMB(3.7,68,2,1,1,275,0)="275^7^1"
^XMB(3.7,68,2,1,1,276,0)="276^8^1"
^XMB(3.7,68,2,1,1,277,0)="277^9^1"
^XMB(3.7,68,2,1,1,280,0)="280^10^1"
^XMB(3.7,68,2,1,1,281,0)="281^11^1"
^XMB(3.7,68,2,1,1,282,0)="282^12^1"
^XMB(3.7,68,2,1,1,283,0)="283^13^1"
^XMB(3.7,68,2,1,1,297,0)="297^14^1"
^XMB(3.7,68,2,1,1,298,0)="298^15^1"
^XMB(3.7,68,2,1,1,299,0)="299^16^1"
^XMB(3.7,68,2,1,1,300,0)="300^17^1"
^XMB(3.7,68,2,1,1,307,0)="307^18^1"
^XMB(3.7,68,2,1,1,308,0)="308^19^1"
^XMB(3.7,68,2,1,1,309,0)="309^20^1"
^XMB(3.7,68,2,1,1,310,0)="310^21^1"
^XMB(3.7,68,2,1,1,315,0)="315^22^1"
^XMB(3.7,68,2,1,1,316,0)="316^23^1"
^XMB(3.7,68,2,1,1,317,0)="317^24^1"
^XMB(3.7,68,2,1,1,318,0)="318^25^1"
^XMB(3.7,68,2,1,1,320,0)="320^26^1"
^XMB(3.7,68,2,1,1,321,0)="321^27^1"
^XMB(3.7,68,2,1,1,322,0)="322^28^1"
^XMB(3.7,68,2,1,1,323,0)="323^29^1"
^XMB(3.7,68,2,1,1,325,0)="325^30^1"
^XMB(3.7,68,2,1,1,328,0)="328^31^1"
^XMB(3.7,68,2,1,1,329,0)="329^32^1"
^XMB(3.7,68,2,1,1,330,0)="330^33^1"
^XMB(3.7,68,2,1,1,331,0)="331^34^1"
^XMB(3.7,68,2,1,1,335,0)="335^35^1"
^XMB(3.7,68,2,1,1,336,0)="336^36^1"
^XMB(3.7,68,2,1,1,337,0)="337^37^1"
^XMB(3.7,68,2,1,1,338,0)="338^38^1"
^XMB(3.7,68,2,1,1,344,0)="344^39^1"
^XMB(3.7,68,2,1,1,345,0)="345^40^1"
^XMB(3.7,68,2,1,1,346,0)="346^41^1"
^XMB(3.7,68,2,1,1,347,0)="347^42^1"
^XMB(3.7,68,2,1,1,349,0)="349^43^1"
^XMB(3.7,68,2,1,1,350,0)="350^44^1"
^XMB(3.7,68,2,1,1,351,0)="351^45^1"
^XMB(3.7,68,2,1,1,352,0)="352^46^1"
^XMB(3.7,68,2,1,1,353,0)="353^47^1"
^XMB(3.7,68,2,1,1,354,0)="354^48^1"
^XMB(3.7,68,2,1,1,356,0)="356^49^1"
^XMB(3.7,68,2,1,1,357,0)="357^50^1"
^XMB(3.7,68,2,1,1,361,0)="361^51^1"
^XMB(3.7,68,2,1,1,362,0)="362^52^1"
^XMB(3.7,68,2,1,1,363,0)="363^53^1"
^XMB(3.7,68,2,1,1,364,0)="364^54^1"
^XMB(3.7,68,2,1,1,"C",1,264)=""
^XMB(3.7,68,2,1,1,"C",2,265)=""
^XMB(3.7,68,2,1,1,"C",3,266)=""
^XMB(3.7,68,2,1,1,"C",4,267)=""
^XMB(3.7,68,2,1,1,"C",5,268)=""
^XMB(3.7,68,2,1,1,"C",6,269)=""
^XMB(3.7,68,2,1,1,"C",7,275)=""
^XMB(3.7,68,2,1,1,"C",8,276)=""
^XMB(3.7,68,2,1,1,"C",9,277)=""
^XMB(3.7,68,2,1,1,"C",10,280)=""
^XMB(3.7,68,2,1,1,"C",11,281)=""
^XMB(3.7,68,2,1,1,"C",12,282)=""
^XMB(3.7,68,2,1,1,"C",13,283)=""
^XMB(3.7,68,2,1,1,"C",14,297)=""
^XMB(3.7,68,2,1,1,"C",15,298)=""
^XMB(3.7,68,2,1,1,"C",16,299)=""
^XMB(3.7,68,2,1,1,"C",17,300)=""
^XMB(3.7,68,2,1,1,"C",18,307)=""
^XMB(3.7,68,2,1,1,"C",19,308)=""
^XMB(3.7,68,2,1,1,"C",20,309)=""
^XMB(3.7,68,2,1,1,"C",21,310)=""
^XMB(3.7,68,2,1,1,"C",22,315)=""
^XMB(3.7,68,2,1,1,"C",23,316)=""
^XMB(3.7,68,2,1,1,"C",24,317)=""
^XMB(3.7,68,2,1,1,"C",25,318)=""
^XMB(3.7,68,2,1,1,"C",26,320)=""
^XMB(3.7,68,2,1,1,"C",27,321)=""
^XMB(3.7,68,2,1,1,"C",28,322)=""
^XMB(3.7,68,2,1,1,"C",29,323)=""
^XMB(3.7,68,2,1,1,"C",30,325)=""
^XMB(3.7,68,2,1,1,"C",31,328)=""
^XMB(3.7,68,2,1,1,"C",32,329)=""
^XMB(3.7,68,2,1,1,"C",33,330)=""
^XMB(3.7,68,2,1,1,"C",34,331)=""
^XMB(3.7,68,2,1,1,"C",35,335)=""
^XMB(3.7,68,2,1,1,"C",36,336)=""
^XMB(3.7,68,2,1,1,"C",37,337)=""
^XMB(3.7,68,2,1,1,"C",38,338)=""
^XMB(3.7,68,2,1,1,"C",39,344)=""
^XMB(3.7,68,2,1,1,"C",40,345)=""
^XMB(3.7,68,2,1,1,"C",41,346)=""
^XMB(3.7,68,2,1,1,"C",42,347)=""
^XMB(3.7,68,2,1,1,"C",43,349)=""
^XMB(3.7,68,2,1,1,"C",44,350)=""
^XMB(3.7,68,2,1,1,"C",45,351)=""
^XMB(3.7,68,2,1,1,"C",46,352)=""
^XMB(3.7,68,2,1,1,"C",47,353)=""
^XMB(3.7,68,2,1,1,"C",48,354)=""
^XMB(3.7,68,2,1,1,"C",49,356)=""
^XMB(3.7,68,2,1,1,"C",50,357)=""
^XMB(3.7,68,2,1,1,"C",51,361)=""
^XMB(3.7,68,2,1,1,"C",52,362)=""
^XMB(3.7,68,2,1,1,"C",53,363)=""
^XMB(3.7,68,2,1,1,"C",54,364)=""
^XMB(3.7,68,2,"B","IN",1)=""
^XMB(3.7,68,2,"B","WASTE",.5)=""
^XMB(3.7,68,"L")="05/08/06@13:11^3060508^68"
^XMB(3.7,68,"N",1,266)=""
^XMB(3.7,68,"N",1,269)=""
^XMB(3.7,68,"N",1,277)=""
^XMB(3.7,68,"N",1,282)=""
^XMB(3.7,68,"N",1,299)=""
^XMB(3.7,68,"N",1,309)=""
^XMB(3.7,68,"N",1,317)=""
^XMB(3.7,68,"N",1,322)=""
^XMB(3.7,68,"N",1,330)=""
^XMB(3.7,68,"N",1,337)=""
^XMB(3.7,68,"N",1,346)=""
^XMB(3.7,68,"N",1,351)=""
^XMB(3.7,68,"N",1,356)=""
^XMB(3.7,68,"N",1,363)=""
^XMB(3.7,68,"N0",1,264)=""
^XMB(3.7,68,"N0",1,265)=""
^XMB(3.7,68,"N0",1,266)=""
^XMB(3.7,68,"N0",1,267)=""
^XMB(3.7,68,"N0",1,268)=""
^XMB(3.7,68,"N0",1,269)=""
^XMB(3.7,68,"N0",1,275)=""
^XMB(3.7,68,"N0",1,276)=""
^XMB(3.7,68,"N0",1,277)=""
^XMB(3.7,68,"N0",1,280)=""
^XMB(3.7,68,"N0",1,281)=""
^XMB(3.7,68,"N0",1,282)=""
^XMB(3.7,68,"N0",1,283)=""
^XMB(3.7,68,"N0",1,297)=""
^XMB(3.7,68,"N0",1,298)=""
^XMB(3.7,68,"N0",1,299)=""
^XMB(3.7,68,"N0",1,300)=""
^XMB(3.7,68,"N0",1,307)=""
^XMB(3.7,68,"N0",1,308)=""
^XMB(3.7,68,"N0",1,309)=""
^XMB(3.7,68,"N0",1,310)=""
^XMB(3.7,68,"N0",1,315)=""
^XMB(3.7,68,"N0",1,316)=""
^XMB(3.7,68,"N0",1,317)=""
^XMB(3.7,68,"N0",1,318)=""
^XMB(3.7,68,"N0",1,320)=""
^XMB(3.7,68,"N0",1,321)=""
^XMB(3.7,68,"N0",1,322)=""
^XMB(3.7,68,"N0",1,323)=""
^XMB(3.7,68,"N0",1,325)=""
^XMB(3.7,68,"N0",1,328)=""
^XMB(3.7,68,"N0",1,329)=""
^XMB(3.7,68,"N0",1,330)=""
^XMB(3.7,68,"N0",1,331)=""
^XMB(3.7,68,"N0",1,335)=""
^XMB(3.7,68,"N0",1,336)=""
^XMB(3.7,68,"N0",1,337)=""
^XMB(3.7,68,"N0",1,338)=""
^XMB(3.7,68,"N0",1,344)=""
^XMB(3.7,68,"N0",1,345)=""
^XMB(3.7,68,"N0",1,346)=""
^XMB(3.7,68,"N0",1,347)=""
^XMB(3.7,68,"N0",1,349)=""
^XMB(3.7,68,"N0",1,350)=""
^XMB(3.7,68,"N0",1,351)=""
^XMB(3.7,68,"N0",1,352)=""
^XMB(3.7,68,"N0",1,353)=""
^XMB(3.7,68,"N0",1,354)=""
^XMB(3.7,68,"N0",1,356)=""
^XMB(3.7,68,"N0",1,357)=""
^XMB(3.7,68,"N0",1,361)=""
^XMB(3.7,68,"N0",1,362)=""
^XMB(3.7,68,"N0",1,363)=""
^XMB(3.7,68,"N0",1,364)=""
^XMB(3.7,69,0)="69^^^^^0^^^I^^^^^3051228.205442^3051228.205442"
^XMB(3.7,69,2,0)="^3.701^1^2"
^XMB(3.7,69,2,.5,0)="WASTE^0"
^XMB(3.7,69,2,.5,1,0)="^3.702P^^0"
^XMB(3.7,69,2,1,0)="IN^0"
^XMB(3.7,69,2,1,1,0)="^3.702P^^0"
^XMB(3.7,69,2,"B","IN",1)=""
^XMB(3.7,69,2,"B","WASTE",.5)=""
^XMB(3.7,69,"L")="12/28/05@20:10^3051228^69"
^XMB(3.7,69,"T")="^^^"
^XMB(3.7,70,0)="70^^^^^0^^^^^^^^3051228.205442^3051220.013602"
^XMB(3.7,70,2,0)="^3.701^1^2"
^XMB(3.7,70,2,.5,0)="WASTE^0"
^XMB(3.7,70,2,1,0)="IN^0"
^XMB(3.7,70,2,1,1,0)="^3.702P^^0"
^XMB(3.7,70,2,"B","IN",1)=""
^XMB(3.7,70,2,"B","WASTE",.5)=""
^XMB(3.7,70,9,0)="^3.703P^4^4"
^XMB(3.7,70,9,1,0)="69^y^y"
^XMB(3.7,70,9,2,0)="65^y^y"
^XMB(3.7,70,9,3,0)="63^y^y"
^XMB(3.7,70,9,4,0)="66^y^y"
^XMB(3.7,70,"L")="12/20/05@01:39 (Surrogate: STOXEN,JAMES H)^3051220^69"
^XMB(3.7,"AB",63,70,3)=""
^XMB(3.7,"AB",65,70,2)=""
^XMB(3.7,"AB",66,70,4)=""
^XMB(3.7,"AB",69,70,1)=""
^XMB(3.7,"B",.5,.5)=""
^XMB(3.7,"B",.6,.6)=""
^XMB(3.7,"B",1,1)=""
^XMB(3.7,"B",2,2)=""
^XMB(3.7,"B",3,3)=""
^XMB(3.7,"B",8,8)=""
^XMB(3.7,"B",9,9)=""
^XMB(3.7,"B",10,10)=""
^XMB(3.7,"B",11,11)=""
^XMB(3.7,"B",12,12)=""
^XMB(3.7,"B",13,13)=""
^XMB(3.7,"B",14,14)=""
^XMB(3.7,"B",15,15)=""
^XMB(3.7,"B",16,16)=""
^XMB(3.7,"B",17,17)=""
^XMB(3.7,"B",18,18)=""
^XMB(3.7,"B",19,19)=""
^XMB(3.7,"B",20,20)=""
^XMB(3.7,"B",21,21)=""
^XMB(3.7,"B",22,22)=""
^XMB(3.7,"B",23,23)=""
^XMB(3.7,"B",24,24)=""
^XMB(3.7,"B",26,26)=""
^XMB(3.7,"B",27,27)=""
^XMB(3.7,"B",28,28)=""
^XMB(3.7,"B",29,29)=""
^XMB(3.7,"B",30,30)=""
^XMB(3.7,"B",31,31)=""
^XMB(3.7,"B",32,32)=""
^XMB(3.7,"B",33,33)=""
^XMB(3.7,"B",34,34)=""
^XMB(3.7,"B",35,35)=""
^XMB(3.7,"B",36,36)=""
^XMB(3.7,"B",37,37)=""
^XMB(3.7,"B",38,38)=""
^XMB(3.7,"B",39,39)=""
^XMB(3.7,"B",40,40)=""
^XMB(3.7,"B",41,41)=""
^XMB(3.7,"B",42,42)=""
^XMB(3.7,"B",43,43)=""
^XMB(3.7,"B",44,44)=""
^XMB(3.7,"B",45,45)=""
^XMB(3.7,"B",46,46)=""
^XMB(3.7,"B",47,47)=""
^XMB(3.7,"B",48,48)=""
^XMB(3.7,"B",49,49)=""
^XMB(3.7,"B",50,50)=""
^XMB(3.7,"B",51,51)=""
^XMB(3.7,"B",52,52)=""
^XMB(3.7,"B",53,53)=""
^XMB(3.7,"B",54,54)=""
^XMB(3.7,"B",55,55)=""
^XMB(3.7,"B",56,56)=""
^XMB(3.7,"B",58,58)=""
^XMB(3.7,"B",59,59)=""
^XMB(3.7,"B",60,60)=""
^XMB(3.7,"B",61,61)=""
^XMB(3.7,"B",62,62)=""
^XMB(3.7,"B",63,63)=""
^XMB(3.7,"B",64,64)=""
^XMB(3.7,"B",65,65)=""
^XMB(3.7,"B",66,66)=""
^XMB(3.7,"B",67,67)=""
^XMB(3.7,"B",68,68)=""
^XMB(3.7,"B",69,69)=""
^XMB(3.7,"B",70,70)=""
^XMB(3.7,"M",1,.5,.5,1)=""
^XMB(3.7,"M",1,1,.5,1)=""
^XMB(3.7,"M",2,.5,.5,2)=""
^XMB(3.7,"M",2,1,.5,2)=""
^XMB(3.7,"M",3,.5,.5,3)=""
^XMB(3.7,"M",3,1,.5,3)=""
^XMB(3.7,"M",4,.5,.5,4)=""
^XMB(3.7,"M",4,1,.5,4)=""
^XMB(3.7,"M",5,.5,.5,5)=""
^XMB(3.7,"M",5,1,.5,5)=""
^XMB(3.7,"M",6,.5,.5,6)=""
^XMB(3.7,"M",6,1,.5,6)=""
^XMB(3.7,"M",7,.5,.5,7)=""
^XMB(3.7,"M",7,1,.5,7)=""
^XMB(3.7,"M",8,.5,.5,8)=""
^XMB(3.7,"M",8,1,.5,8)=""
^XMB(3.7,"M",9,.5,.5,9)=""
^XMB(3.7,"M",9,1,.5,9)=""
^XMB(3.7,"M",10,.5,.5,10)=""
^XMB(3.7,"M",10,1,.5,10)=""
^XMB(3.7,"M",11,.5,.5,11)=""
^XMB(3.7,"M",11,1,.5,11)=""
^XMB(3.7,"M",12,.5,.5,12)=""
^XMB(3.7,"M",12,1,.5,12)=""
^XMB(3.7,"M",13,.5,.5,13)=""
^XMB(3.7,"M",13,1,.5,13)=""
^XMB(3.7,"M",14,.5,.5,14)=""
^XMB(3.7,"M",14,1,.5,14)=""
^XMB(3.7,"M",15,.5,.5,15)=""
^XMB(3.7,"M",15,1,.5,15)=""
^XMB(3.7,"M",16,.5,.5,16)=""
^XMB(3.7,"M",16,1,.5,16)=""
^XMB(3.7,"M",17,.5,.5,17)=""
^XMB(3.7,"M",17,1,.5,17)=""
^XMB(3.7,"M",18,.5,.5,18)=""
^XMB(3.7,"M",18,1,.5,18)=""
^XMB(3.7,"M",19,.5,.5,19)=""
^XMB(3.7,"M",19,1,.5,19)=""
^XMB(3.7,"M",20,.5,.5,20)=""
^XMB(3.7,"M",20,1,.5,20)=""
^XMB(3.7,"M",21,.5,.5,21)=""
^XMB(3.7,"M",21,1,.5,21)=""
^XMB(3.7,"M",22,.5,.5,22)=""
^XMB(3.7,"M",22,1,.5,22)=""
^XMB(3.7,"M",23,.5,.5,23)=""
^XMB(3.7,"M",23,1,.5,23)=""
^XMB(3.7,"M",24,.5,.5,24)=""
^XMB(3.7,"M",24,1,.5,24)=""
^XMB(3.7,"M",25,.5,.5,25)=""
^XMB(3.7,"M",25,1,.5,25)=""
^XMB(3.7,"M",26,.5,.5,26)=""
^XMB(3.7,"M",26,1,.5,26)=""
^XMB(3.7,"M",27,.5,.5,27)=""
^XMB(3.7,"M",27,1,.5,27)=""
^XMB(3.7,"M",28,.5,.5,28)=""
^XMB(3.7,"M",28,1,.5,28)=""
^XMB(3.7,"M",29,.5,.5,29)=""
^XMB(3.7,"M",29,1,.5,29)=""
^XMB(3.7,"M",30,.5,.5,30)=""
^XMB(3.7,"M",30,1,.5,30)=""
^XMB(3.7,"M",31,.5,.5,31)=""
^XMB(3.7,"M",31,1,.5,31)=""
^XMB(3.7,"M",32,.5,.5,32)=""
^XMB(3.7,"M",32,1,.5,32)=""
^XMB(3.7,"M",33,.5,.5,33)=""
^XMB(3.7,"M",33,1,.5,33)=""
^XMB(3.7,"M",34,.5,.5,34)=""
^XMB(3.7,"M",34,1,.5,34)=""
^XMB(3.7,"M",35,.5,.5,35)=""
^XMB(3.7,"M",35,1,.5,35)=""
^XMB(3.7,"M",36,.5,.5,36)=""
^XMB(3.7,"M",36,1,.5,36)=""
^XMB(3.7,"M",37,.5,.5,37)=""
^XMB(3.7,"M",37,1,.5,37)=""
^XMB(3.7,"M",38,.5,.5,38)=""
^XMB(3.7,"M",38,1,.5,38)=""
^XMB(3.7,"M",39,.5,.5,39)=""
^XMB(3.7,"M",39,1,.5,39)=""
^XMB(3.7,"M",40,.5,.5,40)=""
^XMB(3.7,"M",40,1,.5,40)=""
^XMB(3.7,"M",41,.5,.5,41)=""
^XMB(3.7,"M",41,1,.5,41)=""
^XMB(3.7,"M",42,.5,.5,42)=""
^XMB(3.7,"M",42,1,.5,42)=""
^XMB(3.7,"M",43,.5,.5,43)=""
^XMB(3.7,"M",43,1,.5,43)=""
^XMB(3.7,"M",44,.5,.5,44)=""
^XMB(3.7,"M",44,1,.5,44)=""
^XMB(3.7,"M",45,.5,.5,45)=""
^XMB(3.7,"M",45,1,.5,45)=""
^XMB(3.7,"M",46,.5,.5,46)=""
^XMB(3.7,"M",46,1,.5,46)=""
^XMB(3.7,"M",47,.5,.5,47)=""
^XMB(3.7,"M",47,1,.5,47)=""
^XMB(3.7,"M",48,.5,.5,48)=""
^XMB(3.7,"M",48,1,.5,48)=""
^XMB(3.7,"M",49,.5,.5,49)=""
^XMB(3.7,"M",49,1,.5,49)=""
^XMB(3.7,"M",50,.5,.5,50)=""
^XMB(3.7,"M",50,1,.5,50)=""
^XMB(3.7,"M",51,.5,.5,51)=""
^XMB(3.7,"M",51,1,.5,51)=""
^XMB(3.7,"M",52,.5,.5,52)=""
^XMB(3.7,"M",52,1,.5,52)=""
^XMB(3.7,"M",53,.5,.5,53)=""
^XMB(3.7,"M",53,1,.5,53)=""
^XMB(3.7,"M",54,.5,.5,54)=""
^XMB(3.7,"M",54,1,.5,54)=""
^XMB(3.7,"M",55,.5,.5,55)=""
^XMB(3.7,"M",55,1,.5,55)=""
^XMB(3.7,"M",56,.5,.5,56)=""
^XMB(3.7,"M",56,1,.5,56)=""
^XMB(3.7,"M",57,.5,.5,57)=""
^XMB(3.7,"M",57,1,.5,57)=""
^XMB(3.7,"M",58,.5,.5,58)=""
^XMB(3.7,"M",58,1,.5,58)=""
^XMB(3.7,"M",59,.5,.5,59)=""
^XMB(3.7,"M",59,1,.5,59)=""
^XMB(3.7,"M",60,.5,.5,60)=""
^XMB(3.7,"M",60,1,.5,60)=""
^XMB(3.7,"M",61,.5,.5,61)=""
^XMB(3.7,"M",61,1,.5,61)=""
^XMB(3.7,"M",62,.5,.5,62)=""
^XMB(3.7,"M",62,1,.5,62)=""
^XMB(3.7,"M",63,.5,.5,63)=""
^XMB(3.7,"M",63,1,.5,63)=""
^XMB(3.7,"M",64,.5,.5,64)=""
^XMB(3.7,"M",64,1,.5,64)=""
^XMB(3.7,"M",65,.5,.5,65)=""
^XMB(3.7,"M",65,1,.5,65)=""
^XMB(3.7,"M",66,.5,.5,66)=""
^XMB(3.7,"M",66,1,.5,66)=""
^XMB(3.7,"M",67,.5,.5,67)=""
^XMB(3.7,"M",67,1,.5,67)=""
^XMB(3.7,"M",68,.5,.5,68)=""
^XMB(3.7,"M",68,1,.5,68)=""
^XMB(3.7,"M",69,.5,.5,69)=""
^XMB(3.7,"M",69,1,.5,69)=""
^XMB(3.7,"M",70,.5,.5,70)=""
^XMB(3.7,"M",70,1,.5,70)=""
^XMB(3.7,"M",71,.5,.5,71)=""
^XMB(3.7,"M",71,1,.5,71)=""
^XMB(3.7,"M",72,.5,.5,72)=""
^XMB(3.7,"M",72,1,.5,72)=""
^XMB(3.7,"M",73,.5,.5,73)=""
^XMB(3.7,"M",73,1,.5,73)=""
^XMB(3.7,"M",74,.5,.5,74)=""
^XMB(3.7,"M",74,1,.5,74)=""
^XMB(3.7,"M",75,.5,.5,75)=""
^XMB(3.7,"M",75,1,.5,75)=""
^XMB(3.7,"M",76,.5,.5,76)=""
^XMB(3.7,"M",76,1,.5,76)=""
^XMB(3.7,"M",77,.5,.5,77)=""
^XMB(3.7,"M",77,1,.5,77)=""
^XMB(3.7,"M",78,.5,.5,78)=""
^XMB(3.7,"M",78,1,.5,78)=""
^XMB(3.7,"M",79,.5,.5,79)=""
^XMB(3.7,"M",79,1,.5,79)=""
^XMB(3.7,"M",80,.5,.5,80)=""
^XMB(3.7,"M",80,1,.5,80)=""
^XMB(3.7,"M",81,.5,.5,81)=""
^XMB(3.7,"M",81,1,.5,81)=""
^XMB(3.7,"M",82,.5,.5,82)=""
^XMB(3.7,"M",82,1,.5,82)=""
^XMB(3.7,"M",83,.5,.5,83)=""
^XMB(3.7,"M",83,1,.5,83)=""
^XMB(3.7,"M",84,.5,.5,84)=""
^XMB(3.7,"M",84,1,.5,84)=""
^XMB(3.7,"M",85,.5,.5,85)=""
^XMB(3.7,"M",85,1,.5,85)=""
^XMB(3.7,"M",86,.5,.5,86)=""
^XMB(3.7,"M",86,1,.5,86)=""
^XMB(3.7,"M",87,.5,.5,87)=""
^XMB(3.7,"M",87,1,.5,87)=""
^XMB(3.7,"M",88,.5,.5,88)=""
^XMB(3.7,"M",88,1,.5,88)=""
^XMB(3.7,"M",89,.5,.5,89)=""
^XMB(3.7,"M",89,1,.5,89)=""
^XMB(3.7,"M",90,.5,.5,90)=""
^XMB(3.7,"M",90,1,.5,90)=""
^XMB(3.7,"M",91,.5,.5,91)=""
^XMB(3.7,"M",91,1,.5,91)=""
^XMB(3.7,"M",92,.5,.5,92)=""
^XMB(3.7,"M",92,1,.5,92)=""
^XMB(3.7,"M",93,.5,.5,93)=""
^XMB(3.7,"M",93,1,.5,93)=""
^XMB(3.7,"M",94,.5,.5,94)=""
^XMB(3.7,"M",94,1,.5,94)=""
^XMB(3.7,"M",95,.5,.5,95)=""
^XMB(3.7,"M",95,1,.5,95)=""
^XMB(3.7,"M",96,.5,.5,96)=""
^XMB(3.7,"M",96,1,.5,96)=""
^XMB(3.7,"M",97,.5,.5,97)=""
^XMB(3.7,"M",97,1,.5,97)=""
^XMB(3.7,"M",98,.5,.5,98)=""
^XMB(3.7,"M",98,1,.5,98)=""
^XMB(3.7,"M",99,.5,.5,99)=""
^XMB(3.7,"M",99,1,.5,99)=""
^XMB(3.7,"M",100,.5,.5,100)=""
^XMB(3.7,"M",100,1,.5,100)=""
^XMB(3.7,"M",101,.5,.5,101)=""
^XMB(3.7,"M",101,1,.5,101)=""
^XMB(3.7,"M",102,.5,.5,102)=""
^XMB(3.7,"M",102,1,.5,102)=""
^XMB(3.7,"M",103,.5,.5,103)=""
^XMB(3.7,"M",103,1,.5,103)=""
^XMB(3.7,"M",104,.5,.5,104)=""
^XMB(3.7,"M",104,1,.5,104)=""
^XMB(3.7,"M",105,.5,.5,105)=""
^XMB(3.7,"M",105,1,.5,105)=""
^XMB(3.7,"M",106,.5,.5,106)=""
^XMB(3.7,"M",106,1,.5,106)=""
^XMB(3.7,"M",107,.5,.5,107)=""
^XMB(3.7,"M",107,1,.5,107)=""
^XMB(3.7,"M",108,.5,.5,108)=""
^XMB(3.7,"M",108,1,.5,108)=""
^XMB(3.7,"M",109,.5,.5,109)=""
^XMB(3.7,"M",109,1,.5,109)=""
^XMB(3.7,"M",110,.5,.5,110)=""
^XMB(3.7,"M",110,1,.5,110)=""
^XMB(3.7,"M",111,.5,.5,111)=""
^XMB(3.7,"M",111,1,.5,111)=""
^XMB(3.7,"M",112,.5,.5,112)=""
^XMB(3.7,"M",112,1,.5,112)=""
^XMB(3.7,"M",113,.5,.5,113)=""
^XMB(3.7,"M",113,1,.5,113)=""
^XMB(3.7,"M",114,.5,.5,114)=""
^XMB(3.7,"M",114,1,.5,114)=""
^XMB(3.7,"M",115,.5,.5,115)=""
^XMB(3.7,"M",115,1,.5,115)=""
^XMB(3.7,"M",116,.5,.5,116)=""
^XMB(3.7,"M",116,1,.5,116)=""
^XMB(3.7,"M",117,.5,.5,117)=""
^XMB(3.7,"M",117,1,.5,117)=""
^XMB(3.7,"M",118,.5,.5,118)=""
^XMB(3.7,"M",118,1,.5,118)=""
^XMB(3.7,"M",119,.5,.5,119)=""
^XMB(3.7,"M",119,1,.5,119)=""
^XMB(3.7,"M",120,.5,.5,120)=""
^XMB(3.7,"M",120,1,.5,120)=""
^XMB(3.7,"M",121,.5,.5,121)=""
^XMB(3.7,"M",121,1,.5,121)=""
^XMB(3.7,"M",122,.5,.5,122)=""
^XMB(3.7,"M",122,1,.5,122)=""
^XMB(3.7,"M",123,.5,.5,123)=""
^XMB(3.7,"M",123,1,.5,123)=""
^XMB(3.7,"M",124,.5,.5,124)=""
^XMB(3.7,"M",124,1,.5,124)=""
^XMB(3.7,"M",125,.5,.5,125)=""
^XMB(3.7,"M",125,1,.5,125)=""
^XMB(3.7,"M",126,.5,.5,126)=""
^XMB(3.7,"M",126,1,.5,126)=""
^XMB(3.7,"M",127,.5,.5,127)=""
^XMB(3.7,"M",127,1,.5,127)=""
^XMB(3.7,"M",128,.5,.5,128)=""
^XMB(3.7,"M",128,1,.5,128)=""
^XMB(3.7,"M",129,.5,.5,129)=""
^XMB(3.7,"M",129,1,.5,129)=""
^XMB(3.7,"M",130,.5,.5,130)=""
^XMB(3.7,"M",130,1,.5,130)=""
^XMB(3.7,"M",131,.5,.5,131)=""
^XMB(3.7,"M",131,1,.5,131)=""
^XMB(3.7,"M",132,.5,.5,132)=""
^XMB(3.7,"M",132,1,.5,132)=""
^XMB(3.7,"M",133,.5,.5,133)=""
^XMB(3.7,"M",133,1,.5,133)=""
^XMB(3.7,"M",134,.5,.5,134)=""
^XMB(3.7,"M",134,1,.5,134)=""
^XMB(3.7,"M",135,.5,.5,135)=""
^XMB(3.7,"M",135,1,.5,135)=""
^XMB(3.7,"M",136,.5,.5,136)=""
^XMB(3.7,"M",136,1,.5,136)=""
^XMB(3.7,"M",137,.5,.5,137)=""
^XMB(3.7,"M",137,1,.5,137)=""
^XMB(3.7,"M",138,.5,.5,138)=""
^XMB(3.7,"M",138,1,.5,138)=""
^XMB(3.7,"M",139,.5,.5,139)=""
^XMB(3.7,"M",139,1,.5,139)=""
^XMB(3.7,"M",140,.5,.5,140)=""
^XMB(3.7,"M",140,1,.5,140)=""
^XMB(3.7,"M",141,.5,.5,141)=""
^XMB(3.7,"M",141,1,.5,141)=""
^XMB(3.7,"M",142,.5,.5,142)=""
^XMB(3.7,"M",142,1,.5,142)=""
^XMB(3.7,"M",143,.5,.5,143)=""
^XMB(3.7,"M",143,1,.5,143)=""
^XMB(3.7,"M",144,.5,.5,144)=""
^XMB(3.7,"M",144,1,.5,144)=""
^XMB(3.7,"M",145,.5,.5,145)=""
^XMB(3.7,"M",145,1,.5,145)=""
^XMB(3.7,"M",146,.5,.5,146)=""
^XMB(3.7,"M",146,1,.5,146)=""
^XMB(3.7,"M",147,.5,.5,147)=""
^XMB(3.7,"M",147,1,.5,147)=""
^XMB(3.7,"M",148,.5,.5,148)=""
^XMB(3.7,"M",148,1,.5,148)=""
^XMB(3.7,"M",149,.5,.5,149)=""
^XMB(3.7,"M",149,1,.5,149)=""
^XMB(3.7,"M",150,.5,.5,150)=""
^XMB(3.7,"M",150,1,.5,150)=""
^XMB(3.7,"M",151,.5,.5,151)=""
^XMB(3.7,"M",151,1,.5,151)=""
^XMB(3.7,"M",152,.5,.5,152)=""
^XMB(3.7,"M",152,1,.5,152)=""
^XMB(3.7,"M",153,.5,.5,153)=""
^XMB(3.7,"M",153,1,.5,153)=""
^XMB(3.7,"M",154,.5,.5,154)=""
^XMB(3.7,"M",154,1,.5,154)=""
^XMB(3.7,"M",155,.5,.5,155)=""
^XMB(3.7,"M",155,1,.5,155)=""
^XMB(3.7,"M",156,.5,.5,156)=""
^XMB(3.7,"M",156,1,.5,156)=""
^XMB(3.7,"M",157,.5,.5,157)=""
^XMB(3.7,"M",157,1,.5,157)=""
^XMB(3.7,"M",158,.5,.5,158)=""
^XMB(3.7,"M",158,1,.5,158)=""
^XMB(3.7,"M",159,.5,.5,159)=""
^XMB(3.7,"M",159,1,.5,159)=""
^XMB(3.7,"M",160,.5,.5,160)=""
^XMB(3.7,"M",160,1,.5,160)=""
^XMB(3.7,"M",161,.5,.5,161)=""
^XMB(3.7,"M",161,1,.5,161)=""
^XMB(3.7,"M",162,.5,.5,162)=""
^XMB(3.7,"M",162,1,.5,162)=""
^XMB(3.7,"M",163,.5,.5,163)=""
^XMB(3.7,"M",163,1,.5,163)=""
^XMB(3.7,"M",164,.5,.5,164)=""
^XMB(3.7,"M",164,1,.5,164)=""
^XMB(3.7,"M",165,.5,.5,165)=""
^XMB(3.7,"M",165,1,.5,165)=""
^XMB(3.7,"M",166,.5,.5,166)=""
^XMB(3.7,"M",166,1,.5,166)=""
^XMB(3.7,"M",167,.5,.5,167)=""
^XMB(3.7,"M",167,1,.5,167)=""
^XMB(3.7,"M",168,.5,.5,168)=""
^XMB(3.7,"M",168,1,.5,168)=""
^XMB(3.7,"M",169,.5,.5,169)=""
^XMB(3.7,"M",169,1,.5,169)=""
^XMB(3.7,"M",170,.5,.5,170)=""
^XMB(3.7,"M",171,.5,.5,171)=""
^XMB(3.7,"M",172,.5,.5,172)=""
^XMB(3.7,"M",173,.5,.5,173)=""
^XMB(3.7,"M",174,.5,.5,174)=""
^XMB(3.7,"M",175,.5,.5,175)=""
^XMB(3.7,"M",176,.5,.5,176)=""
^XMB(3.7,"M",177,.5,.5,177)=""
^XMB(3.7,"M",178,.5,.5,178)=""
^XMB(3.7,"M",179,.5,.5,179)=""
^XMB(3.7,"M",180,.5,.5,180)=""
^XMB(3.7,"M",181,.5,.5,181)=""
^XMB(3.7,"M",182,.5,.5,182)=""
^XMB(3.7,"M",183,.5,.5,183)=""
^XMB(3.7,"M",184,.5,.5,184)=""
^XMB(3.7,"M",185,.5,.5,185)=""
^XMB(3.7,"M",186,.5,.5,186)=""
^XMB(3.7,"M",187,.5,.5,187)=""
^XMB(3.7,"M",188,.5,.5,188)=""
^XMB(3.7,"M",189,.5,.5,189)=""
^XMB(3.7,"M",190,.5,.5,190)=""
^XMB(3.7,"M",191,.5,.5,191)=""
^XMB(3.7,"M",192,.5,.5,192)=""
^XMB(3.7,"M",193,.5,.5,193)=""
^XMB(3.7,"M",194,.5,.5,194)=""
^XMB(3.7,"M",195,.5,.5,195)=""
^XMB(3.7,"M",196,.5,.5,196)=""
^XMB(3.7,"M",197,.5,.5,197)=""
^XMB(3.7,"M",198,.5,.5,198)=""
^XMB(3.7,"M",199,.5,.5,199)=""
^XMB(3.7,"M",200,.5,.5,200)=""
^XMB(3.7,"M",201,.5,.5,201)=""
^XMB(3.7,"M",202,.5,.5,202)=""
^XMB(3.7,"M",203,.5,.5,203)=""
^XMB(3.7,"M",204,.5,.5,204)=""
^XMB(3.7,"M",205,.5,.5,205)=""
^XMB(3.7,"M",206,.5,.5,206)=""
^XMB(3.7,"M",207,.5,.5,207)=""
^XMB(3.7,"M",208,.5,.5,208)=""
^XMB(3.7,"M",209,.5,.5,209)=""
^XMB(3.7,"M",210,.5,.5,210)=""
^XMB(3.7,"M",211,.5,.5,211)=""
^XMB(3.7,"M",212,.5,.5,212)=""
^XMB(3.7,"M",213,.5,.5,213)=""
^XMB(3.7,"M",214,.5,.5,214)=""
^XMB(3.7,"M",215,.5,.5,215)=""
^XMB(3.7,"M",216,.5,.5,216)=""
^XMB(3.7,"M",217,.5,.5,217)=""
^XMB(3.7,"M",218,.5,.5,218)=""
^XMB(3.7,"M",219,.5,.5,219)=""
^XMB(3.7,"M",220,.5,.5,220)=""
^XMB(3.7,"M",221,.5,.5,221)=""
^XMB(3.7,"M",222,.5,.5,222)=""
^XMB(3.7,"M",223,.5,.5,223)=""
^XMB(3.7,"M",224,.5,.5,224)=""
^XMB(3.7,"M",225,.5,.5,225)=""
^XMB(3.7,"M",226,.5,.5,226)=""
^XMB(3.7,"M",227,.5,.5,227)=""
^XMB(3.7,"M",228,.5,.5,228)=""
^XMB(3.7,"M",229,.5,.5,229)=""
^XMB(3.7,"M",230,.5,.5,230)=""
^XMB(3.7,"M",231,.5,.5,231)=""
^XMB(3.7,"M",232,.5,.5,232)=""
^XMB(3.7,"M",233,.5,.5,233)=""
^XMB(3.7,"M",234,.5,.5,234)=""
^XMB(3.7,"M",235,.5,.5,235)=""
^XMB(3.7,"M",236,.5,.5,236)=""
^XMB(3.7,"M",237,.5,.5,237)=""
^XMB(3.7,"M",238,.5,.5,238)=""
^XMB(3.7,"M",239,.5,.5,239)=""
^XMB(3.7,"M",240,.5,.5,240)=""
^XMB(3.7,"M",241,.5,.5,241)=""
^XMB(3.7,"M",242,.5,.5,242)=""
^XMB(3.7,"M",243,.5,.5,243)=""
^XMB(3.7,"M",244,.5,.5,244)=""
^XMB(3.7,"M",245,.5,.5,245)=""
^XMB(3.7,"M",246,.5,.5,246)=""
^XMB(3.7,"M",247,.5,.5,247)=""
^XMB(3.7,"M",248,.5,1018,248)=""
^XMB(3.7,"M",248,1,.5,248)=""
^XMB(3.7,"M",248,65,1,248)=""
^XMB(3.7,"M",249,.5,1018,249)=""
^XMB(3.7,"M",249,1,.5,249)=""
^XMB(3.7,"M",249,65,1,249)=""
^XMB(3.7,"M",250,.5,1018,250)=""
^XMB(3.7,"M",250,1,.5,250)=""
^XMB(3.7,"M",250,65,1,250)=""
^XMB(3.7,"M",251,.5,1018,251)=""
^XMB(3.7,"M",251,1,.5,251)=""
^XMB(3.7,"M",251,65,1,251)=""
^XMB(3.7,"M",252,.5,1018,252)=""
^XMB(3.7,"M",252,1,.5,252)=""
^XMB(3.7,"M",252,65,1,252)=""
^XMB(3.7,"M",253,.5,1018,253)=""
^XMB(3.7,"M",253,1,.5,253)=""
^XMB(3.7,"M",253,65,1,253)=""
^XMB(3.7,"M",254,.5,1018,254)=""
^XMB(3.7,"M",254,1,.5,254)=""
^XMB(3.7,"M",254,65,1,254)=""
^XMB(3.7,"M",255,1,.5,255)=""
^XMB(3.7,"M",256,1,.5,256)=""
^XMB(3.7,"M",257,1,.5,257)=""
^XMB(3.7,"M",258,.5,1018,258)=""
^XMB(3.7,"M",258,1,.5,258)=""
^XMB(3.7,"M",259,.5,1,259)=""
^XMB(3.7,"M",259,1,.5,259)=""
^XMB(3.7,"M",260,1,.5,260)=""
^XMB(3.7,"M",261,1,.5,261)=""
^XMB(3.7,"M",262,1,.5,262)=""
^XMB(3.7,"M",263,1,.5,263)=""
^XMB(3.7,"M",264,1,.5,264)=""
^XMB(3.7,"M",264,63,1,264)=""
^XMB(3.7,"M",264,68,1,264)=""
^XMB(3.7,"M",265,1,.5,265)=""
^XMB(3.7,"M",265,63,1,265)=""
^XMB(3.7,"M",265,68,1,265)=""
^XMB(3.7,"M",266,1,.5,266)=""
^XMB(3.7,"M",266,63,1,266)=""
^XMB(3.7,"M",266,68,1,266)=""
^XMB(3.7,"M",267,1,.5,267)=""
^XMB(3.7,"M",267,63,1,267)=""
^XMB(3.7,"M",267,68,1,267)=""
^XMB(3.7,"M",268,1,.5,268)=""
^XMB(3.7,"M",268,63,1,268)=""
^XMB(3.7,"M",268,68,1,268)=""
^XMB(3.7,"M",269,1,.5,269)=""
^XMB(3.7,"M",269,63,1,269)=""
^XMB(3.7,"M",269,68,1,269)=""
^XMB(3.7,"M",270,.5,1,270)=""
^XMB(3.7,"M",270,1,.5,270)=""
^XMB(3.7,"M",271,1,.5,271)=""
^XMB(3.7,"M",272,.5,1,272)=""
^XMB(3.7,"M",272,1,.5,272)=""
^XMB(3.7,"M",273,1,.5,273)=""
^XMB(3.7,"M",274,1,.5,274)=""
^XMB(3.7,"M",275,1,.5,275)=""
^XMB(3.7,"M",275,63,1,275)=""
^XMB(3.7,"M",275,68,1,275)=""
^XMB(3.7,"M",276,1,.5,276)=""
^XMB(3.7,"M",276,63,1,276)=""
^XMB(3.7,"M",276,68,1,276)=""
^XMB(3.7,"M",277,1,.5,277)=""
^XMB(3.7,"M",277,63,1,277)=""
^XMB(3.7,"M",277,68,1,277)=""
^XMB(3.7,"M",278,1,.5,278)=""
^XMB(3.7,"M",279,.5,1,279)=""
^XMB(3.7,"M",279,1,.5,279)=""
^XMB(3.7,"M",280,1,.5,280)=""
^XMB(3.7,"M",280,63,1,280)=""
^XMB(3.7,"M",280,68,1,280)=""
^XMB(3.7,"M",281,1,.5,281)=""
^XMB(3.7,"M",281,63,1,281)=""
^XMB(3.7,"M",281,68,1,281)=""
^XMB(3.7,"M",282,1,.5,282)=""
^XMB(3.7,"M",282,63,1,282)=""
^XMB(3.7,"M",282,68,1,282)=""
^XMB(3.7,"M",283,1,.5,283)=""
^XMB(3.7,"M",283,63,1,283)=""
^XMB(3.7,"M",283,68,1,283)=""
^XMB(3.7,"M",284,.5,1018,284)=""
^XMB(3.7,"M",285,.5,1018,285)=""
^XMB(3.7,"M",286,1,.5,286)=""
^XMB(3.7,"M",287,.5,1018,287)=""
^XMB(3.7,"M",288,.5,1018,288)=""
^XMB(3.7,"M",289,.5,1018,289)=""
^XMB(3.7,"M",290,.5,1018,290)=""
^XMB(3.7,"M",291,.5,1018,291)=""
^XMB(3.7,"M",292,.5,1018,292)=""
^XMB(3.7,"M",293,.5,1018,293)=""
^XMB(3.7,"M",294,1,.5,294)=""
^XMB(3.7,"M",295,.5,1018,295)=""
^XMB(3.7,"M",295,1,.5,295)=""
^XMB(3.7,"M",296,.5,1,296)=""
^XMB(3.7,"M",296,1,.5,296)=""
^XMB(3.7,"M",297,1,.5,297)=""
^XMB(3.7,"M",297,63,1,297)=""
^XMB(3.7,"M",297,68,1,297)=""
^XMB(3.7,"M",298,1,.5,298)=""
^XMB(3.7,"M",298,63,1,298)=""
^XMB(3.7,"M",298,68,1,298)=""
^XMB(3.7,"M",299,1,.5,299)=""
^XMB(3.7,"M",299,63,1,299)=""
^XMB(3.7,"M",299,68,1,299)=""
^XMB(3.7,"M",300,1,.5,300)=""
^XMB(3.7,"M",300,63,1,300)=""
^XMB(3.7,"M",300,68,1,300)=""
^XMB(3.7,"M",301,.5,1,301)=""
^XMB(3.7,"M",301,1,.5,301)=""
^XMB(3.7,"M",302,.5,1018,302)=""
^XMB(3.7,"M",302,1,1,302)=""
^XMB(3.7,"M",303,1,1,303)=""
^XMB(3.7,"M",304,1,1,304)=""
^XMB(3.7,"M",306,1,1,306)=""
^XMB(3.7,"M",307,1,2,307)=""
^XMB(3.7,"M",307,63,1,307)=""
^XMB(3.7,"M",307,68,1,307)=""
^XMB(3.7,"M",308,1,2,308)=""
^XMB(3.7,"M",308,63,1,308)=""
^XMB(3.7,"M",308,68,1,308)=""
^XMB(3.7,"M",309,1,2,309)=""
^XMB(3.7,"M",309,63,1,309)=""
^XMB(3.7,"M",309,68,1,309)=""
^XMB(3.7,"M",310,1,2,310)=""
^XMB(3.7,"M",310,63,1,310)=""
^XMB(3.7,"M",310,68,1,310)=""
^XMB(3.7,"M",311,.5,1,311)=""
^XMB(3.7,"M",311,1,1,311)=""
^XMB(3.7,"M",313,.5,1018,313)=""
^XMB(3.7,"M",313,1,1,313)=""
^XMB(3.7,"M",313,65,1,313)=""
^XMB(3.7,"M",314,.5,1018,314)=""
^XMB(3.7,"M",314,1,1,314)=""
^XMB(3.7,"M",315,1,2,315)=""
^XMB(3.7,"M",315,63,1,315)=""
^XMB(3.7,"M",315,68,1,315)=""
^XMB(3.7,"M",316,1,2,316)=""
^XMB(3.7,"M",316,63,1,316)=""
^XMB(3.7,"M",316,68,1,316)=""
^XMB(3.7,"M",317,1,2,317)=""
^XMB(3.7,"M",317,63,1,317)=""
^XMB(3.7,"M",317,68,1,317)=""
^XMB(3.7,"M",318,1,2,318)=""
^XMB(3.7,"M",318,63,1,318)=""
^XMB(3.7,"M",318,68,1,318)=""
^XMB(3.7,"M",319,.5,1018,319)=""
^XMB(3.7,"M",319,1,1,319)=""
^XMB(3.7,"M",319,65,1,319)=""
^XMB(3.7,"M",320,1,2,320)=""
^XMB(3.7,"M",320,63,1,320)=""
^XMB(3.7,"M",320,68,1,320)=""
^XMB(3.7,"M",321,1,2,321)=""
^XMB(3.7,"M",321,63,1,321)=""
^XMB(3.7,"M",321,68,1,321)=""
^XMB(3.7,"M",322,1,2,322)=""
^XMB(3.7,"M",322,63,1,322)=""
^XMB(3.7,"M",322,68,1,322)=""
^XMB(3.7,"M",323,1,2,323)=""
^XMB(3.7,"M",323,63,1,323)=""
^XMB(3.7,"M",323,68,1,323)=""
^XMB(3.7,"M",324,.5,1018,324)=""
^XMB(3.7,"M",324,1,1,324)=""
^XMB(3.7,"M",324,65,1,324)=""
^XMB(3.7,"M",325,.5,1018,325)=""
^XMB(3.7,"M",325,1,1,325)=""
^XMB(3.7,"M",325,63,1,325)=""
^XMB(3.7,"M",325,68,1,325)=""
^XMB(3.7,"M",326,1,1,326)=""
^XMB(3.7,"M",327,.5,1018,327)=""
^XMB(3.7,"M",327,1,1,327)=""
^XMB(3.7,"M",328,1,2,328)=""
^XMB(3.7,"M",328,63,1,328)=""
^XMB(3.7,"M",328,68,1,328)=""
^XMB(3.7,"M",329,1,2,329)=""
^XMB(3.7,"M",329,63,1,329)=""
^XMB(3.7,"M",329,68,1,329)=""
^XMB(3.7,"M",330,1,2,330)=""
^XMB(3.7,"M",330,63,1,330)=""
^XMB(3.7,"M",330,68,1,330)=""
^XMB(3.7,"M",331,1,2,331)=""
^XMB(3.7,"M",331,63,1,331)=""
^XMB(3.7,"M",331,68,1,331)=""
^XMB(3.7,"M",332,.5,1018,332)=""
^XMB(3.7,"M",332,1,1,332)=""
^XMB(3.7,"M",333,.5,1018,333)=""
^XMB(3.7,"M",333,1,1,333)=""
^XMB(3.7,"M",333,65,1,333)=""
^XMB(3.7,"M",334,.5,1018,334)=""
^XMB(3.7,"M",334,1,1,334)=""
^XMB(3.7,"M",334,65,1,334)=""
^XMB(3.7,"M",335,1,2,335)=""
^XMB(3.7,"M",335,63,1,335)=""
^XMB(3.7,"M",335,68,1,335)=""
^XMB(3.7,"M",336,1,2,336)=""
^XMB(3.7,"M",336,63,1,336)=""
^XMB(3.7,"M",336,68,1,336)=""
^XMB(3.7,"M",337,1,2,337)=""
^XMB(3.7,"M",337,63,1,337)=""
^XMB(3.7,"M",337,68,1,337)=""
^XMB(3.7,"M",338,1,2,338)=""
^XMB(3.7,"M",338,63,1,338)=""
^XMB(3.7,"M",338,68,1,338)=""
^XMB(3.7,"M",339,.5,1,339)=""
^XMB(3.7,"M",339,1,1,339)=""
^XMB(3.7,"M",340,.5,1018,340)=""
^XMB(3.7,"M",340,1,1,340)=""
^XMB(3.7,"M",340,65,1,340)=""
^XMB(3.7,"M",342,.5,1018,342)=""
^XMB(3.7,"M",342,1,1,342)=""
^XMB(3.7,"M",342,65,1,342)=""
^XMB(3.7,"M",343,1,1,343)=""
^XMB(3.7,"M",344,1,2,344)=""
^XMB(3.7,"M",344,63,1,344)=""
^XMB(3.7,"M",344,68,1,344)=""
^XMB(3.7,"M",345,1,2,345)=""
^XMB(3.7,"M",345,63,1,345)=""
^XMB(3.7,"M",345,68,1,345)=""
^XMB(3.7,"M",346,1,2,346)=""
^XMB(3.7,"M",346,63,1,346)=""
^XMB(3.7,"M",346,68,1,346)=""
^XMB(3.7,"M",347,1,2,347)=""
^XMB(3.7,"M",347,63,1,347)=""
^XMB(3.7,"M",347,68,1,347)=""
^XMB(3.7,"M",348,1,1,348)=""
^XMB(3.7,"M",349,1,2,349)=""
^XMB(3.7,"M",349,63,1,349)=""
^XMB(3.7,"M",349,68,1,349)=""
^XMB(3.7,"M",350,1,2,350)=""
^XMB(3.7,"M",350,63,1,350)=""
^XMB(3.7,"M",350,68,1,350)=""
^XMB(3.7,"M",351,1,2,351)=""
^XMB(3.7,"M",351,63,1,351)=""
^XMB(3.7,"M",351,68,1,351)=""
^XMB(3.7,"M",352,1,2,352)=""
^XMB(3.7,"M",352,63,1,352)=""
^XMB(3.7,"M",352,68,1,352)=""
^XMB(3.7,"M",353,1,2,353)=""
^XMB(3.7,"M",353,63,1,353)=""
^XMB(3.7,"M",353,68,1,353)=""
^XMB(3.7,"M",354,1,2,354)=""
^XMB(3.7,"M",354,63,1,354)=""
^XMB(3.7,"M",354,68,1,354)=""
^XMB(3.7,"M",355,1,1,355)=""
^XMB(3.7,"M",356,1,2,356)=""
^XMB(3.7,"M",356,63,1,356)=""
^XMB(3.7,"M",356,68,1,356)=""
^XMB(3.7,"M",357,1,2,357)=""
^XMB(3.7,"M",357,63,1,357)=""
^XMB(3.7,"M",357,68,1,357)=""
^XMB(3.7,"M",361,1,2,361)=""
^XMB(3.7,"M",361,63,1,361)=""
^XMB(3.7,"M",361,68,1,361)=""
^XMB(3.7,"M",362,1,2,362)=""
^XMB(3.7,"M",362,63,1,362)=""
^XMB(3.7,"M",362,68,1,362)=""
^XMB(3.7,"M",363,1,2,363)=""
^XMB(3.7,"M",363,63,1,363)=""
^XMB(3.7,"M",363,68,1,363)=""
^XMB(3.7,"M",364,1,2,364)=""
^XMB(3.7,"M",364,63,1,364)=""
^XMB(3.7,"M",364,68,1,364)=""
^XMB(3.7,"M",365,1,1,365)=""
^XMB(3.7,"M",366,1,1,366)=""
^XMB(3.7,"M",367,1,1,367)=""
^XMB(3.7,"M",368,.5,1018,368)=""
^XMB(3.7,"M",368,1,1,368)=""
^XMB(3.7,"M",369,.5,1018,369)=""
^XMB(3.7,"M",369,1,1,369)=""
^XMB(3.7,"M",370,.5,1018,370)=""
^XMB(3.7,"M",371,.5,1018,371)=""
^XMB(3.7,"M",373,.5,1018,373)=""
^XMB(3.73,0)="MESSAGES TO BE NEW AT A LATER DATE^3.73DIAO^^0"
^XMB(3.8,0)="MAIL GROUP^3.8^246^235"
^XMB(3.8,1,0)="POSTMASTER^PU^y^3^2971212^"
^XMB(3.8,1,3)="1"
^XMB(3.8,2,0)="EN PROJECTS^PU^y^^^"
^XMB(3.8,2,2,0)="^^1^1^2960611^"
^XMB(3.8,2,2,1,0)="Receive's Project Planning messages from the Regional Construction Database"
^XMB(3.8,2,3)="1"
^XMB(3.8,3,0)="FAM^PU^n^^^"
^XMB(3.8,3,1,0)="^3.81P^1^1"
^XMB(3.8,3,1,1,0)="1"
^XMB(3.8,3,1,"B",1,1)=""
^XMB(3.8,3,2,0)="^^3^3^2960611^^^"
^XMB(3.8,3,2,1,0)="Receives confirmation messages from Austin Postmaster for"
^XMB(3.8,3,2,2,0)="messages sent by the Engineering package (via Generic"
^XMB(3.8,3,2,3,0)="Code Sheet) to Domain Q-FAM.VA.GOV (Fixed Assets)."
^XMB(3.8,3,3)="1"
^XMB(3.8,4,0)="IB NEW INSURANCE^PU^^1^3050408"
^XMB(3.8,4,2,0)="^^1^1^2900625^"
^XMB(3.8,4,2,1,0)="This mail group will receive notification whenever a new insurance policy is added."
^XMB(3.8,4,3)="1"
^XMB(3.8,5,0)="IB UNBILLED AMOUNTS^PU^y^^^"
^XMB(3.8,5,1,0)="^3.81P^1^1"
^XMB(3.8,5,1,1,0)="1"
^XMB(3.8,5,1,"B",1,1)=""
^XMB(3.8,5,2,0)="^^2^2^2960628^^"
^XMB(3.8,5,2,1,0)="This mail group will be automatically mailed the IB Unbilled Amounts"
^XMB(3.8,5,2,2,0)="report each month."
^XMB(3.8,5,3)=".5"
^XMB(3.8,6,0)="PSOCLOZ^PU^y"
^XMB(3.8,7,0)="GMRA MARK CHART^PU^y^^^"
^XMB(3.8,7,2,0)="^^1^1^2960715^"
^XMB(3.8,7,2,1,0)="This is a list of users who will need to mark a patient's chart that an adverse reaction/allergy was recorded.  "
^XMB(3.8,7,3)=".5"
^XMB(3.8,8,0)="GMRA VERIFY DRUG ALLERGY^PU^y^1^3050719^"
^XMB(3.8,8,2,0)="^^1^1^2960715^"
^XMB(3.8,8,2,1,0)="This is a complete list of all the verifiers who will need to be sent Drug reaction information."
^XMB(3.8,8,3)=".5"
^XMB(3.8,9,0)="GMRA VERIFY FOOD ALLERGY^PU^y^^^"
^XMB(3.8,9,2,0)="^^1^1^2960715^"
^XMB(3.8,9,2,1,0)="This is a complete list of all the verifiers who will need to be sent Food reaction information."
^XMB(3.8,9,3)=".5"
^XMB(3.8,10,0)="GMRA VERIFY OTHER ALLERGY^PU^y^^^"
^XMB(3.8,10,2,0)="^^1^1^2960715^"
^XMB(3.8,10,2,1,0)="This is a complete list of all the verifiers who will need to be sent Other reaction information."
^XMB(3.8,10,3)=".5"
^XMB(3.8,11,0)="GMRA P&T COMMITTEE FDA^PU^y^6^3050719^"
^XMB(3.8,11,2,0)="^^1^1^2960715^"
^XMB(3.8,11,2,1,0)="This mail group contains the members of the Pharmacy and Therapeutic (P&T) committee.  Whenever an agent is signed off the committee will get a message.  "
^XMB(3.8,11,3)=".5"
^XMB(3.8,12,0)="VAQ PDX ERRORS^PU^n^^^"
^XMB(3.8,12,2,0)="^^6^6^2960722^^^^"
^XMB(3.8,12,2,1,0)="Mail group that will receive any recoverable errors that occur"
^XMB(3.8,12,2,2,0)="when using PDX.  These errors will generally happen when a PDX"
^XMB(3.8,12,2,3,0)="message can not be properly received by the PDX Server or when"
^XMB(3.8,12,2,4,0)="a PDX message can not be properly created by the PDX Transmitter."
^XMB(3.8,12,2,5,0)="This group will typically consist of the ADPAC(s) and IRM personnel"
^XMB(3.8,12,2,6,0)="responsible for PDX."
^XMB(3.8,12,3)="1"
^XMB(3.8,13,0)="VAQ MANUAL PROCESSING^PU^n^^^"
^XMB(3.8,13,2,0)="^^4^4^2960722^^^^"
^XMB(3.8,13,2,1,0)="Mail group that will receive notification of a PDX Request that"
^XMB(3.8,13,2,2,0)="has been received and requires manual processing.  This group"
^XMB(3.8,13,2,3,0)="will typically consist of users that authorize the release of"
^XMB(3.8,13,2,4,0)="patient data to other facilities."
^XMB(3.8,13,3)="1"
^XMB(3.8,14,0)="VAQ UNSOLICITED RECEIVED^PU^n^^^"
^XMB(3.8,14,2,0)="^^3^3^2960722^^^"
^XMB(3.8,14,2,1,0)="Mail group that will receive notification when an Unsolicited"
^XMB(3.8,14,2,2,0)="PDX has been received.  This group will typically consist of"
^XMB(3.8,14,2,3,0)="users that receive patient data from other facilities."
^XMB(3.8,14,3)="1"
^XMB(3.8,17,0)="PRESCRIPTION PRACTICES^PR^^^^0"
^XMB(3.8,17,2,0)="^^1^1^2960722^"
^XMB(3.8,17,2,1,0)="Used to alert users of problems encountered with the Prescription Practices Utilities."
^XMB(3.8,17,3)="1"
^XMB(3.8,18,0)="DVBHINQ"
^XMB(3.8,19,0)="SD PM NOTIFICATION^PU^n^^^"
^XMB(3.8,19,2,0)="^^1^1^2960821^"
^XMB(3.8,19,2,1,0)="Mail group for local receipt of Performance Measure access extracts."
^XMB(3.8,19,3)="1"
^XMB(3.8,20,0)="NURS-ADP^PU^y^^^^1"
^XMB(3.8,20,2,0)="^^3^3^2970107^^^^"
^XMB(3.8,20,2,1,0)="This mail group will recieve automatic notification via alert if taskman"
^XMB(3.8,20,2,2,0)="is running when the classification or manhour AMIS acuity batch jobs are"
^XMB(3.8,20,2,3,0)="not run to completion."
^XMB(3.8,20,3)=".5"
^XMB(3.8,21,0)="IBQ ROLLUP^PU^n^^^"
^XMB(3.8,21,1,0)="^3.81P^1^1"
^XMB(3.8,21,1,1,0)="1"
^XMB(3.8,21,1,"B",1,1)=""
^XMB(3.8,21,2,0)="^^2^2^2960823^^"
^XMB(3.8,21,2,1,0)="This mail group will automatically alert UR persons that entries"
^XMB(3.8,21,2,2,0)="are ready for/or received transmition."
^XMB(3.8,21,3)=".5"
^XMB(3.8,22,0)="IVM TRANSMISSIONS^PU^n"
^XMB(3.8,22,2,0)="^^1^1^2960823^"
^XMB(3.8,22,2,1,0)="Contains members to receive IVM HL7 transmissions"
^XMB(3.8,22,3)="1"
^XMB(3.8,22,6,0)="^3.812^1^1"
^XMB(3.8,22,6,1,0)="S.HL SERVER@BIVM.VA.GOV"
^XMB(3.8,22,6,"B","S.HL SERVER@BIVM.VA.GOV",1)=""
^XMB(3.8,23,0)="IVM MESSAGES^PU^n"
^XMB(3.8,23,2,0)="^^3^3^2960823^^^"
^XMB(3.8,23,2,1,0)="This mail group will receive messages pertaining to erroneous data"
^XMB(3.8,23,2,2,0)="transmitted to the IVM Center and for data to be uploaded from the IVM"
^XMB(3.8,23,2,3,0)="Center."
^XMB(3.8,23,3)="1"
^XMB(3.8,24,0)="MC MESSAGING SERVER^PU^n^^^"
^XMB(3.8,24,3)="1"
^XMB(3.8,24,6,0)="^3.812^1^1"
^XMB(3.8,24,6,1,0)="S.MCHL7SERVER@VISTA.MED.VA.GOV"
^XMB(3.8,24,6,"B","S.MCHL7SERVER@VISTA.MED.VA.GOV",1)=""
^XMB(3.8,25,0)="SCDX AMBCARE TO NPCDB^PU^n^^^"
^XMB(3.8,25,2,0)="^^2^2^2960922^^"
^XMB(3.8,25,2,1,0)="Mail Group used by the Ambulatory Care Reporting Project to"
^XMB(3.8,25,2,2,0)="transmit data to the National Patient Care Database via HL7"
^XMB(3.8,25,3)=".5"
^XMB(3.8,25,6,0)="^3.812^1^1"
^XMB(3.8,25,6,1,0)="XXX@Q-ACS.MED.VA.GOV"
^XMB(3.8,25,6,"B","XXX@Q-ACS.MED.VA.GOV",1)=""
^XMB(3.8,28,0)="VAP^PU^n^^^"
^XMB(3.8,28,1,0)="^3.81P^1^1"
^XMB(3.8,28,1,1,0)="1"
^XMB(3.8,28,1,"B",1,1)=""
^XMB(3.8,28,2,0)="^^3^3^2960924^^^"
^XMB(3.8,28,2,1,0)="This mail group was added for use in the Police and Security package."
^XMB(3.8,28,2,2,0)="It will receive confirmation messages from Q-VAP where the crime"
^XMB(3.8,28,2,3,0)="reports are sent."
^XMB(3.8,28,3)=".5"
^XMB(3.8,29,0)="SWS^PU^y"
^XMB(3.8,30,0)="RHC^PU^y"
^XMB(3.8,31,0)="SWM^PU^y"
^XMB(3.8,32,0)="RMPF-FILE-UPDATE^PU"
^XMB(3.8,33,0)="RMPF ROES UPDATES (ASPS)^PU^n^^^^1"
^XMB(3.8,33,3)="1"
^XMB(3.8,34,0)="RMPF ROES UPDATES (PSAS)^PU^^^^^1"
^XMB(3.8,34,2,0)="^^1^1^3020826^"
^XMB(3.8,34,2,1,0)="PSAS GROUP TO RECEIVE ELIGIBILITY REQUEST MESSAGES"
^XMB(3.8,34,3)="1"
^XMB(3.8,35,0)="PRCHQ RFQ^PU^n^^^"
^XMB(3.8,35,1,0)="^3.81P^1^1"
^XMB(3.8,35,1,1,0)="2"
^XMB(3.8,35,1,"B",2,1)=""
^XMB(3.8,35,2,0)="^^1^1^2961108^^"
^XMB(3.8,35,2,1,0)="This Mail Group gets bulletins sent from vendors and filing errors."
^XMB(3.8,35,3)=".5"
^XMB(3.8,36,0)="EDP"
^XMB(3.8,37,0)="VIC^PU^^^^^"
^XMB(3.8,37,1,0)="^3.81P^^0"
^XMB(3.8,37,2,0)="^^2^2^2961224^^^^"
^XMB(3.8,37,2,1,0)="This mail group is used to notify DHCP staff of problems with the VIC card"
^XMB(3.8,37,2,2,0)="application (DGQE)."
^XMB(3.8,37,3)=""
^XMB(3.8,39,0)="EPI^PU^n^^^^"
^XMB(3.8,39,2,0)="^^4^4^2970219^^^^"
^XMB(3.8,39,2,1,0)="This mail group is used for the transmission of HL7 messages derived from "
^XMB(3.8,39,2,2,0)="the parameters defined in the EMERGING PATHOGEN file (#69.5) to the "
^XMB(3.8,39,2,3,0)="Austin Automation Center. This mail group will also receive Confirmation "
^XMB(3.8,39,2,4,0)="and Processing Report Messages from Austin."
^XMB(3.8,39,3)=""
^XMB(3.8,39,6,0)="^3.812^1^1"
^XMB(3.8,39,6,1,0)="S.HL V16 SERVER@DEV"
^XMB(3.8,39,6,"B","S.HL V16 SERVER@DEV",1)=""
^XMB(3.8,40,0)="EPI-REPORT^PU^y^^^^"
^XMB(3.8,40,2,0)="^^3^3^2970219^"
^XMB(3.8,40,2,1,0)="This mail group is used to deliver a formatted report taken from the "
^XMB(3.8,40,2,2,0)="HL7 message that is created to assist in the verification of data."
^XMB(3.8,40,2,3,0)=""
^XMB(3.8,40,3)=""
^XMB(3.8,41,0)="SR-QUARTERLY^PU^n^22^3040903^^"
^XMB(3.8,41,2,0)="^^5^5^2970129^"
^XMB(3.8,41,2,1,0)="This mail group receives mail messages containing the Quarterly Report for"
^XMB(3.8,41,2,2,0)="Surgical Service, VHA Headquarters.  This mail group receives an"
^XMB(3.8,41,2,3,0)="acknowledgment message from the national database when the transmitted"
^XMB(3.8,41,2,4,0)="Quarterly Report is received.  Also, this group may receive alerts and"
^XMB(3.8,41,2,5,0)="other mail messages relating to the Quarterly Report."
^XMB(3.8,42,0)="NDF DATA^PU^n^144^3071227^^1"
^XMB(3.8,42,2,0)="^^1^1^2970312^"
^XMB(3.8,42,2,1,0)="This mail group will receive information about updates to NDF."
^XMB(3.8,42,3)=".5"
^XMB(3.8,42,6,0)="^3.812^^0"
^XMB(3.8,43,0)="RC RC REFERRALS^PU^n^^^^1"
^XMB(3.8,43,2,0)="^^6^6^2970311^^^^"
^XMB(3.8,43,2,1,0)="This mail group is for the Accounts Receivable bills that are"
^XMB(3.8,43,2,2,0)="referred to the Regional Counsel Office.  The users in this "
^XMB(3.8,43,2,3,0)="mail group should be responsible for the coordination"
^XMB(3.8,43,2,4,0)="of bills referred to RC."
^XMB(3.8,43,2,5,0)=" "
^XMB(3.8,43,2,6,0)="Each RC will have a mailgroup established with the same name."
^XMB(3.8,44,0)="PRPF BULLETINS^PU^n^^^^1"
^XMB(3.8,44,2,0)="^^2^2^2970224^"
^XMB(3.8,44,2,1,0)="This Mail Group contains the names of user to receive messages from"
^XMB(3.8,44,2,2,0)="the Patient Funds Package."
^XMB(3.8,45,0)="DGPRE PRE-REG STAFF^PU^n^^^^1"
^XMB(3.8,45,1,0)="^3.81P"
^XMB(3.8,45,2,0)="^^1^1^2970117^^^^"
^XMB(3.8,45,2,1,0)="Mail group for pre-registration notifications"
^XMB(3.8,46,0)="LAB REPORT^PU^^^^^"
^XMB(3.8,46,2,0)="^^2^2^2970701^^"
^XMB(3.8,46,2,1,0)="This mail group is used to transmit and receive the interim report."
^XMB(3.8,46,2,2,0)=""
^XMB(3.8,46,3)=""
^XMB(3.8,49,0)="IB CHAMP RX REJ^PU^n^^^"
^XMB(3.8,49,2,0)="^^2^2^2970808^^"
^XMB(3.8,49,2,1,0)="This mailgroup is used to report billing transactions rejected"
^XMB(3.8,49,2,2,0)="from the CHAMPUS fiscal intermediary."
^XMB(3.8,49,3)="1"
^XMB(3.8,50,0)="IB CHAMP RX REV^PU^n^^^"
^XMB(3.8,50,2,0)="^^2^2^2970808^^"
^XMB(3.8,50,2,1,0)="This mailgroup is used to report cancellation transactions rejected"
^XMB(3.8,50,2,2,0)="from the CHAMPUS fiscal intermediary."
^XMB(3.8,50,3)="1"
^XMB(3.8,51,0)="IB CHAMP RX START^PU^n^^^"
^XMB(3.8,51,2,0)="^^2^2^2970808^^"
^XMB(3.8,51,2,1,0)="This is used to report when the CHAMPUS billing engines have"
^XMB(3.8,51,2,2,0)="been started.  It also reports when AWP updates are received."
^XMB(3.8,51,3)="1"
^XMB(3.8,52,0)="DMX^PU^^^^^1"
^XMB(3.8,52,2,0)="^^2^2^2970224^^"
^XMB(3.8,52,2,1,0)="This group is used to receive messages from Austin regarding DMC Weekly"
^XMB(3.8,52,2,2,0)="Codesheets."
^XMB(3.8,53,0)="DMR^PU^^^^^1"
^XMB(3.8,53,2,0)="^^2^2^2970224^^"
^XMB(3.8,53,2,1,0)="This group is used to receive messages from Austin regarding DMC Master"
^XMB(3.8,53,2,2,0)="Codesheets."
^XMB(3.8,56,0)="DSS-ADMS^PU^n^^^"
^XMB(3.8,56,2,0)="^^2^2^2980112^^"
^XMB(3.8,56,2,1,0)="This mail group contains users responsible for DSS extracts."
^XMB(3.8,56,2,2,0)="A message is sent to this group upon completion of package extracts."
^XMB(3.8,56,3)=".5"
^XMB(3.8,57,0)="DSS-DENT^PU^n^^^"
^XMB(3.8,57,2,0)="^^2^2^2980112^^"
^XMB(3.8,57,2,1,0)="This mail group contains users responsible for DSS extracts."
^XMB(3.8,57,2,2,0)="A message is sent to this group upon completion of package extracts."
^XMB(3.8,57,3)=".5"
^XMB(3.8,58,0)="DSS-EC^PU^n^^^"
^XMB(3.8,58,2,0)="^^2^2^2980112^^"
^XMB(3.8,58,2,1,0)="This mail group contains users responsible for DSS extracts."
^XMB(3.8,58,2,2,0)="A message is sent to this group upon completion of package extracts."
^XMB(3.8,58,3)=".5"
^XMB(3.8,59,0)="DSS-LAB^PU^n^^^"
^XMB(3.8,59,2,0)="^^2^2^2980112^^"
^XMB(3.8,59,2,1,0)="This mail group contains users responsible for DSS extracts."
^XMB(3.8,59,2,2,0)="A message is sent to this group upon completion of package extracts."
^XMB(3.8,59,3)=".5"
^XMB(3.8,60,0)="DSS-MOVS^PU^n^^^"
^XMB(3.8,60,2,0)="^^2^2^2980112^^"
^XMB(3.8,60,2,1,0)="This mail group contains users responsible for DSS extracts."
^XMB(3.8,60,2,2,0)="A message is sent to this group upon completion of package extracts."
^XMB(3.8,60,3)=".5"
^XMB(3.8,61,0)="DSS-NURS^PU^n^^^"
^XMB(3.8,61,2,0)="^^2^2^2980112^^"
^XMB(3.8,61,2,1,0)="This mail group contains users responsible for DSS extracts."
^XMB(3.8,61,2,2,0)="A message is sent to this group upon completion of package extracts."
^XMB(3.8,61,3)=".5"
^XMB(3.8,62,0)="DSS-PRES^PU^n^^^"
^XMB(3.8,62,2,0)="^^2^2^2980112^^"
^XMB(3.8,62,2,1,0)="This mail group contains users responsible for DSS extracts."
^XMB(3.8,62,2,2,0)="A message is sent to this group upon completion of package extracts."
^XMB(3.8,62,3)=".5"
^XMB(3.8,63,0)="DSS-QSR^PU^n^^^"
^XMB(3.8,63,2,0)="^^2^2^2980112^^"
^XMB(3.8,63,2,1,0)="This mail group contains users responsible for DSS extracts."
^XMB(3.8,63,2,2,0)="A message is sent to this group upon completion of package extracts."
^XMB(3.8,63,3)=".5"
^XMB(3.8,64,0)="DSS-RAD^PU^n^^^"
^XMB(3.8,64,2,0)="^^2^2^2980112^^"
^XMB(3.8,64,2,1,0)="This mail group contains users responsible for DSS extracts."
^XMB(3.8,64,2,2,0)="A message is sent to this group upon completion of package extracts."
^XMB(3.8,64,3)=".5"
^XMB(3.8,65,0)="DSS-SCNS^PU^n^^^"
^XMB(3.8,65,2,0)="^^2^2^2980112^^"
^XMB(3.8,65,2,1,0)="This mail group contains users responsible for DSS extracts."
^XMB(3.8,65,2,2,0)="A message is sent to this group upon completion of package extracts."
^XMB(3.8,65,3)=".5"
^XMB(3.8,66,0)="DSS-SCX^PU^n^^^"
^XMB(3.8,66,2,0)="^^2^2^2980112^^"
^XMB(3.8,66,2,1,0)="This mail group contains users responsible for DSS extracts."
^XMB(3.8,66,2,2,0)="A message is sent to this group upon completion of package extracts."
^XMB(3.8,66,3)=".5"
^XMB(3.8,67,0)="DSS-SURG^PU^n^^^"
^XMB(3.8,67,2,0)="^^2^2^2980112^^"
^XMB(3.8,67,2,1,0)="This mail group contains users responsible for DSS extracts."
^XMB(3.8,67,2,2,0)="A message is sent to this group upon completion of package extracts."
^XMB(3.8,67,3)=".5"
^XMB(3.8,68,0)="DSS-UD^PU^n^^^"
^XMB(3.8,68,2,0)="^^2^2^2980112^^"
^XMB(3.8,68,2,1,0)="This mail group contains users responsible for DSS extracts."
^XMB(3.8,68,2,2,0)="A message is sent to this group upon completion of package extracts."
^XMB(3.8,68,3)=".5"
^XMB(3.8,69,0)="DSS-IV^PU^n^^^"
^XMB(3.8,69,2,0)="^^2^2^2980112^^"
^XMB(3.8,69,2,1,0)="This mail group contains users responsible for DSS extracts."
^XMB(3.8,69,2,2,0)="A message is sent to this group upon completion of package extracts."
^XMB(3.8,69,3)=".5"
^XMB(3.8,70,0)="DSS-TREAT^PU^n^^^"
^XMB(3.8,70,2,0)="^^2^2^2980112^^"
^XMB(3.8,70,2,1,0)="This mail group contains users responsible for DSS extracts."
^XMB(3.8,70,2,2,0)="A message is sent to this group upon completion of package extracts."
^XMB(3.8,70,3)=".5"
^XMB(3.8,71,0)="DSS-PAI^PU^n^^^"
^XMB(3.8,71,2,0)="^^2^2^2980112^^"
^XMB(3.8,71,2,1,0)="This mail group contains users responsible for DSS extracts."
^XMB(3.8,71,2,2,0)="A message is sent to this group upon completion of package extracts."
^XMB(3.8,71,3)=".5"
^XMB(3.8,72,0)="DMS^PU^n^^^"
^XMB(3.8,72,2,0)="^^2^2^2980112^^"
^XMB(3.8,72,2,1,0)="This mail group contains users responsible for DSS extracts."
^XMB(3.8,72,2,2,0)="A message is sent to this group upon completion of package extracts."
^XMB(3.8,72,3)=".5"
^XMB(3.8,73,0)="DMT^PU^n^^^"
^XMB(3.8,73,2,0)="^^2^2^2980112^^"
^XMB(3.8,73,2,1,0)="This mail group contains users responsible for DSS extracts."
^XMB(3.8,73,2,2,0)="A message is sent to this group upon completion of package extracts."
^XMB(3.8,73,3)=".5"
^XMB(3.8,74,0)="DMU^PU^n^^^"
^XMB(3.8,74,2,0)="^^2^2^2980112^^"
^XMB(3.8,74,2,1,0)="This mail group contains users responsible for DSS extracts."
^XMB(3.8,74,2,2,0)="A message is sent to this group upon completion of package extracts."
^XMB(3.8,74,3)=".5"
^XMB(3.8,75,0)="DMV^PU^n^^^"
^XMB(3.8,75,2,0)="^^2^2^2980112^^"
^XMB(3.8,75,2,1,0)="This mail group contains users responsible for DSS extracts."
^XMB(3.8,75,2,2,0)="A message is sent to this group upon completion of package extracts."
^XMB(3.8,75,3)=".5"
^XMB(3.8,76,0)="DMW^PU^n^^^"
^XMB(3.8,76,2,0)="^^2^2^2980112^^"
^XMB(3.8,76,2,1,0)="This mail group contains users responsible for DSS extracts."
^XMB(3.8,76,2,2,0)="A message is sent to this group upon completion of package extracts."
^XMB(3.8,76,3)=".5"
^XMB(3.8,77,0)="VAFH ADT/HL7^PU^y^^^^"
^XMB(3.8,77,2,0)="^^1^1^2971118^^^^"
^XMB(3.8,77,2,1,0)="FOR NETWORK MESSAGES"
^XMB(3.8,77,3)=""
^XMB(3.8,77,6,0)="^3.812^^0"
^XMB(3.8,78,0)="LAB MESSAGING^PU^y^^^"
^XMB(3.8,78,1,0)="^3.81P^1^1"
^XMB(3.8,78,1,1,0)="1"
^XMB(3.8,78,1,"B",1,1)=""
^XMB(3.8,78,2,0)="^^3^3^2980318"
^XMB(3.8,78,2,1,0)="This mail group is used by the LAB MESSAGING package to notify appropiate Lab"
^XMB(3.8,78,2,2,0)="and IRM staff of conditions affecting LAB MESSAGING that may need corrective"
^XMB(3.8,78,2,3,0)="action."
^XMB(3.8,78,3)=".5"
^XMB(3.8,79,0)="ABSV TEST SITES^PU^n^^^^1"
^XMB(3.8,79,5,0)="^3.811P"
^XMB(3.8,79,6,0)="^3.812^1^1"
^XMB(3.8,79,6,1,0)="G.IRM@BATTLE"
^XMB(3.8,79,6,"B","G.IRM@BATTLE",1)=""
^XMB(3.8,80,0)="ABSV BETA^PU^n^^^^1"
^XMB(3.8,80,6,0)="^3.812^^0"
^XMB(3.8,81,0)="OOPS SAFETY^PU^^^^^1"
^XMB(3.8,81,2,0)="^3.801^3^3^3010125^^^^"
^XMB(3.8,81,2,1,0)="This group should contain the Safety Officer(s) for the site. This group"
^XMB(3.8,81,2,2,0)="receives a message everytime there is an injury or illness reported and"
^XMB(3.8,81,2,3,0)="when the supervisor signs off on the 2162."
^XMB(3.8,81,3)="1"
^XMB(3.8,82,0)="OOPS INJURY^PU^^^^^1"
^XMB(3.8,82,2,0)="^3.801^3^3^3010315^^^^"
^XMB(3.8,82,2,1,0)="This mail group should contain members from Human Resources Management,"
^XMB(3.8,82,2,2,0)="Compensation Specialists, that manage the CA-1 and CA-2 forms.  Whenever"
^XMB(3.8,82,2,3,0)="an injury or illness is reported, a message is sent to this mail group."
^XMB(3.8,82,3)="1"
^XMB(3.8,83,0)="OOPS EH^PU^^^^^1"
^XMB(3.8,83,2,0)="^3.801^3^3^3010206^^^^"
^XMB(3.8,83,2,1,0)="This mail group should contain members from Employee Health and Infection"
^XMB(3.8,83,2,2,0)="Control.  This group will receive a message whenever there is an incident"
^XMB(3.8,83,2,3,0)="involving Exposure to Body Fluids, Needlesticks, or Sharps Exposures."
^XMB(3.8,83,3)="1"
^XMB(3.8,84,0)="OOPS UNION^PU^^^^^1"
^XMB(3.8,84,2,0)="^3.801^3^3^3010315^^^^"
^XMB(3.8,84,2,1,0)="This mail group should contain union representatives that monitor the CA-1"
^XMB(3.8,84,2,2,0)="and CA-2 forms.  Whenever an injury or illness is reported, a message is"
^XMB(3.8,84,2,3,0)="sent to this mail group."
^XMB(3.8,84,3)="1"
^XMB(3.8,85,0)="SRHL DISCREPANCY^PU^n^^^"
^XMB(3.8,85,1,0)="^3.81P^1^1"
^XMB(3.8,85,1,1,0)="1"
^XMB(3.8,85,1,"B",1,1)=""
^XMB(3.8,85,2,0)="^^4^4^2980712"
^XMB(3.8,85,2,1,0)="This mail group is used by the Surgery Interface ORU receiver routine to"
^XMB(3.8,85,2,2,0)="report message discrepancies.  The discrepancies will include invalid file"
^XMB(3.8,85,2,3,0)="values for certain files, as well as invalid text identifiers from the"
^XMB(3.8,85,2,4,0)="SURGERY INTERFACE PARAMETER file (#133.2)."
^XMB(3.8,85,3)="1"
^XMB(3.8,86,0)="SPNL SCD COORDINATOR^PU^^^^^1"
^XMB(3.8,87,0)="LR NCH^PU^n^^^^1"
^XMB(3.8,87,2,0)="^^2^2^2980625^"
^XMB(3.8,87,2,1,0)="This mail group is used to transmit HL7 messages to and recieve"
^XMB(3.8,87,2,2,0)="acknowledgement messages from the Austin Automation Center."
^XMB(3.8,87,3)=""
^XMB(3.8,87,6,0)="^3.812^1^1"
^XMB(3.8,87,6,1,0)="XXX@Q-NCH"
^XMB(3.8,87,6,"B","XXX@Q-NCH",1)=""
^XMB(3.8,88,0)="LR NCH-REPORT^PU^n^^^^1"
^XMB(3.8,88,2,0)="^^3^3^2980709^"
^XMB(3.8,88,2,1,0)="This mail group is used to deliver NCH verification reports. These reports"
^XMB(3.8,88,2,2,0)="are the human readable format taken from the NCH HL7 message that was sent"
^XMB(3.8,88,2,3,0)="to the Austin Automation Center."
^XMB(3.8,88,3)=""
^XMB(3.8,88,6,0)="^3.812^^0"
^XMB(3.8,89,0)="DSS-PRO^PU^n^^^^1"
^XMB(3.8,89,2,0)="^^2^2^2980715^^^^"
^XMB(3.8,89,2,1,0)="This Mail Group contains users responsible for DSS Extracts in general"
^XMB(3.8,89,2,2,0)="and (specifically) the prosthetics extract."
^XMB(3.8,89,3)=""
^XMB(3.8,90,0)="NPTF HL7 MESSAGES^PU^n^^^^1"
^XMB(3.8,90,2,0)="^^4^4^2981116^^^^"
^XMB(3.8,90,2,1,0)="Mail group used for transmission of inpatient ADT/R information to the"
^XMB(3.8,90,2,2,0)="National Patient Care Database."
^XMB(3.8,90,2,3,0)=" "
^XMB(3.8,90,2,4,0)="DO NOT USE THIS MAILGROUP FOR OTHER PURPOSES."
^XMB(3.8,90,6,0)="^3.812^1^1"
^XMB(3.8,90,6,1,0)="XXX@Q-NPP.MED.VA.GOV"
^XMB(3.8,90,6,"B","XXX@Q-NPP.MED.VA.GOV",1)=""
^XMB(3.8,91,0)="IPA^PU^y^1^2981026^^1"
^XMB(3.8,91,2,0)="^^2^2^2981006^^"
^XMB(3.8,91,2,1,0)="This mail group will receive confirmation messages from the Q-NPP domain"
^XMB(3.8,91,2,2,0)="located at the Austin Automation Center."
^XMB(3.8,92,0)="DGEN ELIGIBILITY ALERT^PU^y^2^3071227^^1"
^XMB(3.8,92,2,0)="^^5^5^2980513^^^^"
^XMB(3.8,92,2,1,0)="This mail group is used to notify the local site of problems discovered"
^XMB(3.8,92,2,2,0)="during the upload of enrollment/eligibility data received from HEC.  "
^XMB(3.8,92,2,3,0)=""
^XMB(3.8,92,2,4,0)="It is also used by HEC to communicate directly with the local site"
^XMB(3.8,92,2,5,0)="about a patient's enrollment and eligibility."
^XMB(3.8,92,6,0)="^3.812^^0"
^XMB(3.8,93,0)="PSJ-ORDERS REINSTATED^PU^y^^^^1"
^XMB(3.8,93,2,0)="^^2^2^2980812^^^^"
^XMB(3.8,93,2,1,0)="Members of this mail group will receive a message listing medications"
^XMB(3.8,93,2,2,0)="reinstated when a patient transfer or discharge is deleted."
^XMB(3.8,93,3)=""
^XMB(3.8,94,0)="PHARMACY PRIME VENDOR^PU^n^^^^1"
^XMB(3.8,94,2,0)="^^3^3^2980807^"
^XMB(3.8,94,2,1,0)="This patch creates the PHARMACY PRIME VENDOR mail group. The Prime Vendor"
^XMB(3.8,94,2,2,0)="Line Item Report will be sent to this mail group from the Austin"
^XMB(3.8,94,2,3,0)="Automation Center twice per week."
^XMB(3.8,95,0)="YS GAF TO NPCD^PU^n^^^^1"
^XMB(3.8,95,2,0)="^^2^2^2990111^^^^"
^XMB(3.8,95,2,1,0)="This mail group is being used by Mental Health to transmit data to the National"
^XMB(3.8,95,2,2,0)="Patient Care Database via HL7."
^XMB(3.8,95,3)=""
^XMB(3.8,95,6,0)="^3.812^1^1"
^XMB(3.8,95,6,1,0)="XXX@Q-NPT.MED.VA.GOV"
^XMB(3.8,95,6,"B","XXX@Q-NPT.MED.VA.GOV",1)=""
^XMB(3.8,96,0)="YS GAF TRANSMISSION ACK^PU^n^^^^1"
^XMB(3.8,96,2,0)="^3.801^2^2^3000602^^^^"
^XMB(3.8,96,2,1,0)="This mail group will receive a message when a GAF score is transmitted to the"
^XMB(3.8,96,2,2,0)="National Patient Care Database or an error in the transmission has occurred."
^XMB(3.8,96,3)=""
^XMB(3.8,96,6,0)="^3.812^^0"
^XMB(3.8,97,0)="SCMC PCMM REASSIGNMENT^PR^^^^1^1"
^XMB(3.8,97,3)=" "
^XMB(3.8,98,0)="KMP-CAPMAN^PU^n^^^^1"
^XMB(3.8,98,1,0)="^3.81P^1^1"
^XMB(3.8,98,1,1,0)="1"
^XMB(3.8,98,1,"B",1,1)=""
^XMB(3.8,98,2,0)="^3.801^2^2^3030519^^^^"
^XMB(3.8,98,2,1,0)="This mail group will receive messages for all Capacity Management packages"
^XMB(3.8,98,2,2,0)="(SAGG, RUM)."
^XMB(3.8,98,3)="1"
^XMB(3.8,98,5,0)="^3.811P^^0"
^XMB(3.8,98,8,0)="^3.814P^^0"
^XMB(3.8,98,9,0)="^3.815P^^0"
^XMB(3.8,99,0)="RMPR INVENTORY^PU^y^^^^1"
^XMB(3.8,99,2,0)="^^2^2^2981105^^^^"
^XMB(3.8,99,2,1,0)="This is a mail group that will receive messages from Prosthetics Inventory"
^XMB(3.8,99,2,2,0)="System."
^XMB(3.8,100,0)="OCX DEVELOPERS^^^^^^1"
^XMB(3.8,100,3)=""
^XMB(3.8,101,0)="RC AR DATA COLLECTOR^PU^n^^^^1"
^XMB(3.8,101,2,0)="^^2^2^2990310^"
^XMB(3.8,101,2,1,0)="This mail group is used to transmit the reports generated by the"
^XMB(3.8,101,2,2,0)="AR Data Collector."
^XMB(3.8,102,0)="DGMST TO NPCD^PU^n^^^^1"
^XMB(3.8,102,2,0)="^^1^1^2990108^^^"
^XMB(3.8,102,2,1,0)="This is a test mail group for the MST status transmission"
^XMB(3.8,103,0)="SC CLINIC WAIT TIME^PU^y^226^3040905^^1"
^XMB(3.8,103,1,0)="^3.81P^1^1"
^XMB(3.8,103,1,1,0)="1"
^XMB(3.8,103,1,"B",1,1)=""
^XMB(3.8,103,2,0)="^^2^2^2990428^^"
^XMB(3.8,103,2,1,0)="This mail group receives summary bulletins from the 'Clinic Appointment"
^XMB(3.8,103,2,2,0)="Waiting Time Extract' distributed in patch SD*5.3*192."
^XMB(3.8,104,0)="RG CIRN DEMOGRAPHIC ISSUES^PU^^^^^1"
^XMB(3.8,104,2,0)="^^4^4^2990223^^^"
^XMB(3.8,104,2,1,0)="This mail group should contain person(s) responsible for ensuring"
^XMB(3.8,104,2,2,0)="the integrity of the Patient Information Management System (PIMS)"
^XMB(3.8,104,2,3,0)="data.  The members of this group will be notified upon login that"
^XMB(3.8,104,2,4,0)="there are patients awaiting review."
^XMB(3.8,105,0)="RG CIRN HL7 PROBLEMS^PU^y^^^^1"
^XMB(3.8,105,2,0)="^^2^2^2990216^^^"
^XMB(3.8,105,2,1,0)="This is the mail group that will receive notifications of problems that"
^XMB(3.8,105,2,2,0)="CIRN has when interacting with the VISTA HL7 package."
^XMB(3.8,106,0)="MPIF HL7 GROUP^PU^n^^^^1"
^XMB(3.8,106,2,0)="^^2^2^2981222^^"
^XMB(3.8,106,2,1,0)="This is the mail group that is used to send HL7 messags via the MailMan"
^XMB(3.8,106,2,2,0)="protocol to the MPI in Austin."
^XMB(3.8,106,3)=""
^XMB(3.8,106,6,0)="^3.812^1^1"
^XMB(3.8,106,6,1,0)="S.HL V16 SERVER@MPI.ISC-ALBANY.VA.GOV"
^XMB(3.8,106,6,"B","S.HL V16 SERVER@MPI.ISC-ALBANY",1)=""
^XMB(3.8,107,0)="MPIF CMOR REQUEST^PU^^^^^1"
^XMB(3.8,107,2,0)="^^3^3^2981222^^^"
^XMB(3.8,107,2,1,0)="The members of this group will receive mail that there may be a"
^XMB(3.8,107,2,2,0)="problem with a CIRN Master of Record Requests either from another"
^XMB(3.8,107,2,3,0)="facility or to another facility."
^XMB(3.8,108,0)="MPIF EXCEPTIONS^PU^^2^3010228^^1"
^XMB(3.8,108,2,0)="^3.801^7^7^3010426^^^"
^XMB(3.8,108,2,1,0)="MPI Exception Messages to be addressed.  These messages are all technical"
^XMB(3.8,108,2,2,0)="in nature, involving problems with HL7 messages or conflicts with CMORs or"
^XMB(3.8,108,2,3,0)="ICN not found.  There normally isn't anything the site can do about these,"
^XMB(3.8,108,2,4,0)="so these messages are sent to a remote mail group.  The remote mail group"
^XMB(3.8,108,2,5,0)="G.CIRN EXCEPTION MGT@FORUM.VA.GOV gets the messages instead of local"
^XMB(3.8,108,2,6,0)="members.  If necessary, the remote mail group members will contact the"
^XMB(3.8,108,2,7,0)="site's personnel for assistance."
^XMB(3.8,108,3)=""
^XMB(3.8,108,6,0)="^3.812^1^1"
^XMB(3.8,108,6,1,0)="G.CIRN EXCEPTION MGT@FORUM.VA.GOV"
^XMB(3.8,108,6,"B","G.CIRN EXCEPTION MGT@FORUM.VA.",1)=""
^XMB(3.8,109,0)="DGEN EGT UPDATES^PU^^^^^1"
^XMB(3.8,109,2,0)="^^1^1^2990515^^^"
^XMB(3.8,109,2,1,0)="This mail group will be used to notify members of an Enrollment Group Threshold (EGT) setting change."
^XMB(3.8,109,3)=""
^XMB(3.8,110,0)="SCD-NAT-DATABASE^PU^n^^^^1"
^XMB(3.8,110,2,0)="^^2^2^2990129^^^^"
^XMB(3.8,110,2,1,0)="Mail group used by the SCD hl7 interface to transmit data to the National"
^XMB(3.8,110,2,2,0)="SCD registry"
^XMB(3.8,110,3)=""
^XMB(3.8,111,0)="PCMM AUSTIN REPORTS^PU^n^^^^1"
^XMB(3.8,111,2,0)="^^1^1^2990802^^^"
^XMB(3.8,111,2,1,0)="This mail group will receive PCMM HL7 reject messages from Austin."
^XMB(3.8,111,3)=""
^XMB(3.8,112,0)="PCMM HL7 MESSAGES^PU^n^^^^1"
^XMB(3.8,112,2,0)="^^3^3^2990909^^^^"
^XMB(3.8,112,2,1,0)="Repository for PCMM Primary Care HL7 messages."
^XMB(3.8,112,2,2,0)="Make Austin a member of this mail group so these HL7 messages"
^XMB(3.8,112,2,3,0)="are transmitted to the NPCD."
^XMB(3.8,113,0)="DG MISSING NEW PERSON SSN^PU^n^^^^1"
^XMB(3.8,113,2,0)="^^3^3^2990125^^"
^XMB(3.8,113,2,1,0)="Members of this mail group will receive a message if a user is attempting"
^XMB(3.8,113,2,2,0)="to access a PATIENT (#2) file entry and he/she do not have a social"
^XMB(3.8,113,2,3,0)="security number assigned in the NEW PERSON (#200) file."
^XMB(3.8,114,0)="DGMT MT/CT UPLOAD ALERTS^PU^y^^^^1"
^XMB(3.8,114,2,0)="^^2^2^2990826^^^^"
^XMB(3.8,114,2,1,0)="This mail group is used to notify the local site of detailed changes about"
^XMB(3.8,114,2,2,0)="the patient's Means and Copay Test status changes including hardships."
^XMB(3.8,114,3)=""
^XMB(3.8,114,6,0)="^3.812^^0"
^XMB(3.8,115,0)="RCDP PAYMENTS^PU^n^7^3020327^^1"
^XMB(3.8,115,2,0)="1^^1^1^2990428^^^"
^XMB(3.8,115,2,1,0)="This mail group is used to send payment processing information messages."
^XMB(3.8,115,3)=""
^XMB(3.8,116,0)="DSS-MTL^PU^n^^^^1"
^XMB(3.8,116,2,0)="^^2^2^2990913^^^^"
^XMB(3.8,116,2,1,0)="This mail group contains users responsible for DSS extracts.  A"
^XMB(3.8,116,2,2,0)="message is sent to this group upon completion of package extracts."
^XMB(3.8,116,3)=""
^XMB(3.8,117,0)="OOPS NDB MESSAGES^PU^y^^^^1"
^XMB(3.8,117,2,0)="^3.801^2^2^3010625^^^^"
^XMB(3.8,117,2,1,0)="This group should contain the individuals who should receive any messages"
^XMB(3.8,117,2,2,0)="regarding the transmission of ASISTS 2162 data to the AAC or from the AAC. "
^XMB(3.8,117,3)="1"
^XMB(3.8,117,5,0)="^3.811P"
^XMB(3.8,118,0)="CARELIFE RESULT ERROR^PU^n^^^^1"
^XMB(3.8,118,2,0)="^^2^2^3000511^"
^XMB(3.8,118,2,1,0)="This mail group will receive messages concerning errors with the results"
^XMB(3.8,118,2,2,0)="from the CareVue system."
^XMB(3.8,118,3)=""
^XMB(3.8,119,0)="LMI^PU^^7^3071227^"
^XMB(3.8,119,1,0)="^3.81P^1^1"
^XMB(3.8,119,1,1,0)="1"
^XMB(3.8,119,1,"B",1,1)=""
^XMB(3.8,120,0)="TOP^PU^^^^^1"
^XMB(3.8,120,2,0)="^3.801^2^2^3000426^^"
^XMB(3.8,120,2,1,0)="This mail group will receive confirmation and reject messages from Austin"
^XMB(3.8,120,2,2,0)="for TOP transmissions."
^XMB(3.8,121,0)="PCMM TRANSMISSION ERRORS^PU^y^^^^1"
^XMB(3.8,121,2,0)="^^2^2^3000302^^^^"
^XMB(3.8,121,2,1,0)="This mail group is used to notify the local site that PCMM HL7"
^XMB(3.8,121,2,2,0)="Transmission errors were received from the Austin Automation Center (AAC)."
^XMB(3.8,122,0)="DGRU ADT/HL7^PU^y^^^^1"
^XMB(3.8,122,2,0)="^^2^2^2991122^^^^"
^XMB(3.8,122,2,1,0)="This mail group will receive HL7 transmission messages for the Resident"
^XMB(3.8,122,2,2,0)="Assessment Instrument / Minimum Data Set - Vendor HL7 Interface"
^XMB(3.8,122,3)=""
^XMB(3.8,122,6,0)="^3.812^^0"
^XMB(3.8,123,0)="DGRU RAI NOTIFICATION^PU^y^^^^1"
^XMB(3.8,123,2,0)="^^1^1^2990929^^"
^XMB(3.8,123,2,1,0)="Mail group to receive RAI/MDS notifications"
^XMB(3.8,123,3)=""
^XMB(3.8,124,0)="XM SUPER SEARCH^PU^n^^^^1"
^XMB(3.8,124,2,0)="^3.801^15^15^3000908^^^^"
^XMB(3.8,124,2,1,0)="This mail group is sent a bulletin whenever someone conducts a Super"
^XMB(3.8,124,2,2,0)="Search using the XM SUPER SEARCH option.  The bulletin tells who"
^XMB(3.8,124,2,3,0)="conducted the search and what search criteria were used."
^XMB(3.8,124,2,4,0)=""
^XMB(3.8,124,2,5,0)="Members of this mail group should be anyone who ought to be notified"
^XMB(3.8,124,2,6,0)="whenever a Super Search is conducted.  At an absolute minimum, the"
^XMB(3.8,124,2,7,0)="site ISO and alternate ISO(s) should be members.  There should be"
^XMB(3.8,124,2,8,0)="enough responsible members of the group so that a certain level of"
^XMB(3.8,124,2,9,0)="comfort is achieved that the Super Searches will only be conducted"
^XMB(3.8,124,2,10,0)="for just cause.  The more people there are, who are aware that a"
^XMB(3.8,124,2,11,0)="Super Search has been conducted, the less likely it is that the"
^XMB(3.8,124,2,12,0)="capability will be abused."
^XMB(3.8,124,2,13,0)=" "
^XMB(3.8,124,2,14,0)="The site Information Security Officer should be the coordinator of"
^XMB(3.8,124,2,15,0)="this group."
^XMB(3.8,124,3)="1"
^XMB(3.8,125,0)="ISM^PU^n^^^"
^XMB(3.8,125,1,0)="^3.81P^1^1"
^XMB(3.8,125,1,1,0)="65"
^XMB(3.8,125,1,"B",65,1)=""
^XMB(3.8,125,2,0)="^3.801^1^1^3060411^"
^XMB(3.8,125,2,1,0)="This is the mail group for ISMS transactions to IFCAP."
^XMB(3.8,125,3)="1"
^XMB(3.8,126,0)="FMS^PU^n^^^"
^XMB(3.8,126,2,0)="^^1^1^3001027"
^XMB(3.8,126,2,1,0)="This is the mail group for FMS transactions to IFCAP."
^XMB(3.8,126,3)="1"
^XMB(3.8,127,0)="SUPPLY NOTIFICATION^PU^n^^^"
^XMB(3.8,127,2,0)="^^2^2^3001027"
^XMB(3.8,127,2,1,0)="This mail group is used to notify A&MM that an amendment is Pending"
^XMB(3.8,127,2,2,0)="Fiscal Action for 4 or more days."
^XMB(3.8,127,3)="1"
^XMB(3.8,128,0)="FISCAL NOTIFICATION^PU^n^^^"
^XMB(3.8,128,2,0)="^^9^9^3001027"
^XMB(3.8,128,2,1,0)="Members of this group are notified whenever an obligation"
^XMB(3.8,128,2,2,0)="amount is decreased through use of the ""Obligate Data"" option."
^XMB(3.8,128,2,3,0)=" "
^XMB(3.8,128,2,4,0)="This mail group is also used to notify Fiscal when the"
^XMB(3.8,128,2,5,0)="delivery date has been changed in a Purchase Order by"
^XMB(3.8,128,2,6,0)="A&MM Service."
^XMB(3.8,128,2,7,0)=" "
^XMB(3.8,128,2,8,0)="This mail group is used to notify Fiscal when an amendment has been"
^XMB(3.8,128,2,9,0)="Pending Fiscal Action for 4 or more days."
^XMB(3.8,128,3)="1"
^XMB(3.8,129,0)="OGR AUSTIN MESSAGES^PU^n^^^"
^XMB(3.8,129,2,0)="^^1^1^3001027"
^XMB(3.8,129,2,1,0)=" "
^XMB(3.8,129,3)="1"
^XMB(3.8,130,0)="BCC^PU^n^^^"
^XMB(3.8,130,2,0)="^^3^3^3001027"
^XMB(3.8,130,2,1,0)="This mail group will be used to receive the electronic reception of the"
^XMB(3.8,130,2,2,0)="daily Purchase Card Bills as well as other daily, monthly or quarterly"
^XMB(3.8,130,2,3,0)="messages from the vendor bank concerning the Purchase Card Program."
^XMB(3.8,130,3)="1"
^XMB(3.8,131,0)="PRC^PU^n^^^"
^XMB(3.8,131,2,0)="^^1^1^3001027"
^XMB(3.8,131,2,1,0)="MAIL GROUP FOR Q-PRC RESPONSES FROM AUSTIN, TEXAS."
^XMB(3.8,131,3)="1"
^XMB(3.8,132,0)="LOG^PU^n^^^"
^XMB(3.8,132,2,0)="^^1^1^3001027"
^XMB(3.8,132,2,1,0)="This is the mail group for confirmation messages from Q-LOG."
^XMB(3.8,132,3)="1"
^XMB(3.8,133,0)="VA1010EZ^PU^n^2^3040904^"
^XMB(3.8,133,1,0)="^3.81P^1^1"
^XMB(3.8,133,1,1,0)="1"
^XMB(3.8,133,1,"B",1,1)=""
^XMB(3.8,133,2,0)="^^2^2^3001027"
^XMB(3.8,133,2,1,0)="Mail group to receive any notification messages on incoming"
^XMB(3.8,133,2,2,0)="web-based 1010EZ submission entries."
^XMB(3.8,133,3)="1"
^XMB(3.8,134,0)="RC REPAY PLANS^PU^n^^^^1"
^XMB(3.8,134,3)=""
^XMB(3.8,135,0)="OOPS WCP^PU^^^^^1"
^XMB(3.8,135,2,0)="^3.801^2^2^3001026^^^^"
^XMB(3.8,135,2,1,0)="This mail group contains members from Worker's Compensation.  This group will"
^XMB(3.8,135,2,2,0)="receive notification whenever the Supervisor signs a CA1/CA2 claim."
^XMB(3.8,135,3)="1"
^XMB(3.8,136,0)="OOPS WC MESSAGE^PU^^^^0^1"
^XMB(3.8,136,2,0)="^3.801^2^2^3001120^^^^"
^XMB(3.8,136,2,1,0)="This group will receive messages regarding the transmission of CA1/CA2 data to"
^XMB(3.8,136,2,2,0)="the AAC."
^XMB(3.8,136,3)="1"
^XMB(3.8,137,0)="IB RX COPAY CAP ERROR^PU^n^^^^1"
^XMB(3.8,137,2,0)="^^3^3^3010420^"
^XMB(3.8,137,2,1,0)="This mail group receives error messages when a cap tracking transaction"
^XMB(3.8,137,2,2,0)="from file 354.71 cannot be transmitted to at least one of the patient's"
^XMB(3.8,137,2,3,0)="treating facilities for at least 2 days."
^XMB(3.8,137,3)=""
^XMB(3.8,138,0)="XUMF SERVER^PU^^^^0^1"
^XMB(3.8,138,1,0)="^3.81P^1^1"
^XMB(3.8,138,1,1,0)="1"
^XMB(3.8,138,1,"B",1,1)=""
^XMB(3.8,138,2,0)="^3.801^1^1^3000728^^^^"
^XMB(3.8,138,2,1,0)="This mail group receives messages related to the Master File Server."
^XMB(3.8,138,3)=" "
^XMB(3.8,138,6,0)="^3.812^^0"
^XMB(3.8,139,0)="XUMF INSTITUTION^PU^^^^^1"
^XMB(3.8,139,1,0)="^3.81P^1^1"
^XMB(3.8,139,1,1,0)="1"
^XMB(3.8,139,1,"B",1,1)=""
^XMB(3.8,139,2,0)="^^2^2^3000802^"
^XMB(3.8,139,2,1,0)="This mail group notifies members of update messages received from the Master"
^XMB(3.8,139,2,2,0)="File Server related to the INSTITUTION (#4) file."
^XMB(3.8,139,3)=" "
^XMB(3.8,140,0)="OFFLINE IMAGE TRACKERS^PU^^^^0^1"
^XMB(3.8,140,2,0)="^^2^2^3010313^"
^XMB(3.8,140,2,1,0)="Mail group to send messages regarding accessing images on offline"
^XMB(3.8,140,2,2,0)="jukebox platters."
^XMB(3.8,141,0)="MAG SERVER^PU^y^70^3080101^0"
^XMB(3.8,141,1,0)="^3.81P^2^2"
^XMB(3.8,141,1,1,0)="1"
^XMB(3.8,141,1,2,0)="65"
^XMB(3.8,141,1,"B",1,1)=""
^XMB(3.8,141,1,"B",65,2)=""
^XMB(3.8,141,2,0)="^^1^1^3010716"
^XMB(3.8,141,2,1,0)="Mail group to manage Image activity messages."
^XMB(3.8,141,3)=".5"
^XMB(3.8,141,6,0)="^3.812^1^1"
^XMB(3.8,141,6,1,0)="G.IMAGING DEVELOPMENT TEAM@FORUM.VA.GOV"
^XMB(3.8,141,6,"B","G.IMAGING DEVELOPMENT TEAM@FOR",1)=""
^XMB(3.8,142,0)="IVMB HEC VSE NOTIFICATION^PU^y^^^^1"
^XMB(3.8,142,2,0)="^3.801^2^2^3010320^^^^"
^XMB(3.8,142,2,1,0)="This mail group receives incoming messages, acknowledgements, and notifications"
^XMB(3.8,142,2,2,0)="from the HEC on the Veteran Site Extract merge at the HEC."
^XMB(3.8,142,3)=""
^XMB(3.8,143,0)="SC CWT EXTRACT MONITOR^PU^^^^^1"
^XMB(3.8,143,2,0)="^3.801^9^9^3010430^^^"
^XMB(3.8,143,2,1,0)="If defined, members of this mail group will receive the messages which"
^XMB(3.8,143,2,2,0)="contain the raw data sent to Austin as a part of the Clinic Wait Time"
^XMB(3.8,143,2,3,0)="extract.  It facilitates the occasional monotoring of this process if"
^XMB(3.8,143,2,4,0)="indicated."
^XMB(3.8,143,2,5,0)=" "
^XMB(3.8,143,2,6,0)="This mail group should not normally have members defined.  The presence of"
^XMB(3.8,143,2,7,0)="defined members will result in extract messages being stored in the local"
^XMB(3.8,143,2,8,0)="MESSAGE (#3.9) file.  Storage of these messages locally will not occur if"
^XMB(3.8,143,2,9,0)="there are no local recipients."
^XMB(3.8,144,0)="AFJX PATID FILTER BLOCK^PU^^^^^1"
^XMB(3.8,144,1,0)="^3.81P^1^1"
^XMB(3.8,144,1,1,0)="1"
^XMB(3.8,144,1,"B",1,1)=""
^XMB(3.8,144,2,0)="^^3^3^3011106"
^XMB(3.8,144,2,1,0)="If the patient ID filter blocks an incoming data request because it"
^XMB(3.8,144,2,2,0)="detected possible invalid health summary data, a warning is sent to"
^XMB(3.8,144,2,3,0)="members of this group."
^XMB(3.8,144,3)="1"
^XMB(3.8,145,0)="EAS MEANS TEST SIGNATURE^PU^y^^^^1"
^XMB(3.8,145,2,0)="^^2^2^3011011^"
^XMB(3.8,145,2,1,0)="This mail group has been established to receive messages from HEC"
^XMB(3.8,145,2,2,0)="regarding veterans Means Test Signature status. "
^XMB(3.8,145,5,0)="^3.811P"
^XMB(3.8,146,0)="PSA NDC UPDATES^PU^^^^^1"
^XMB(3.8,146,2,0)="^3.801^2^2^3020107^^^^"
^XMB(3.8,146,2,1,0)=" This mail group is accessed to determine who should be notified by the"
^XMB(3.8,146,2,2,0)=" Drug Accountability software when an items price or NDC has changed."
^XMB(3.8,147,0)="PSA REORDER LEVEL^PU^^^^^1"
^XMB(3.8,147,2,0)="^3.801^4^4^3020107^^^^"
^XMB(3.8,147,2,1,0)=" This mail group contains the personnel who are to receive the message"
^XMB(3.8,147,2,2,0)=" generated for the drugs whose stock level has fallen below the reorder"
^XMB(3.8,147,2,3,0)=" level. Previously, anyone holding the PSA ORDERS key would receive this"
^XMB(3.8,147,2,4,0)=" message."
^XMB(3.8,147,3)=""
^XMB(3.8,147,6,0)="^3.812"
^XMB(3.8,148,0)="YS ASI PERFORMANCE MEASURES^PR^^^^^1"
^XMB(3.8,148,2,0)="^^1^1^3020117^"
^XMB(3.8,148,2,1,0)="Members of this mail group will be used to receive the ASI Case Finder Report."
^XMB(3.8,149,0)="RMPR PCE^PU^y^^^0^1"
^XMB(3.8,149,2,0)="^^1^1^3020122^"
^XMB(3.8,149,2,1,0)="This is a mail group that receives the prosthetics PCE messages."
^XMB(3.8,150,0)="IFC PATIENT ERROR MESSAGES^PU^n^^^^1"
^XMB(3.8,150,2,0)="^^2^2^3011120^"
^XMB(3.8,150,2,1,0)="This mail group will be used to deliver messages regarding Inter-facility"
^XMB(3.8,150,2,2,0)="Consult errors due to unknown patients."
^XMB(3.8,150,3)=""
^XMB(3.8,151,0)="IFC CLIN ERRORS^PU^n^^^^1"
^XMB(3.8,151,2,0)="^3.801^3^3^3020323^^"
^XMB(3.8,151,2,1,0)="The members of this mail group will receive Kernel alerts when "
^XMB(3.8,151,2,2,0)="Inter-facility consult transactions fail for reasons most likely due to "
^XMB(3.8,151,2,3,0)="improper setup or implementation."
^XMB(3.8,151,3)=""
^XMB(3.8,152,0)="IFC TECH ERRORS^PU^n^^^^1"
^XMB(3.8,152,2,0)="^^3^3^3011120^"
^XMB(3.8,152,2,1,0)="The members of this mail group will receive Kernel alerts when "
^XMB(3.8,152,2,2,0)="Inter-facility consult transactions fail due to technical problems with "
^XMB(3.8,152,2,3,0)="network connectivity or VistA HL7. "
^XMB(3.8,152,3)=""
^XMB(3.8,153,0)="IB EDI^PU^n^^^^1"
^XMB(3.8,153,2,0)="^3.801^2^2^3010228^^^^"
^XMB(3.8,153,2,1,0)="This mail group will receive error and confirmation messages dealing with"
^XMB(3.8,153,2,2,0)="EDI transmissions and return messages for IB."
^XMB(3.8,153,3)=""
^XMB(3.8,154,0)="IB EDI SUPERVISOR^PU^n^2^3071227^^1"
^XMB(3.8,154,2,0)="^^3^3^3000310^^^^"
^XMB(3.8,154,2,1,0)="The members of this mail group will be the recipients of mail messages"
^XMB(3.8,154,2,2,0)="containing reports that cannot be divided by claim or batch that are sent by"
^XMB(3.8,154,2,3,0)="the clearinghouse for EDI."
^XMB(3.8,154,3)=""
^XMB(3.8,155,0)="EAS MTLETTERS^PU^y^2^3030715^^1"
^XMB(3.8,155,2,0)="^3.801^1^1^3020124^^^^"
^XMB(3.8,155,2,1,0)="Mail group for EAS automated Means Test letters statistics and reports"
^XMB(3.8,155,3)=""
^XMB(3.8,156,0)="DGMPRNOTIFICATIONS^PU^n^^^^1"
^XMB(3.8,156,2,0)="^^2^2^3010904^"
^XMB(3.8,156,2,1,0)="Members of this mail group will receive notifications related to the"
^XMB(3.8,156,2,2,0)="Austin web-based Missing Patient Register application."
^XMB(3.8,156,3)=""
^XMB(3.8,157,0)="IBCI GENERAL ERROR^PU^y^^^^1"
^XMB(3.8,157,2,0)="^^2^2^3010525^"
^XMB(3.8,157,2,1,0)="The members of this mail group receive messages during the ClaimsManager"
^XMB(3.8,157,2,2,0)="Multiple Claim send option when bills have ClaimsManager errors."
^XMB(3.8,158,0)="IBCI COMMUNICATION ERROR^PU^y^^^^1"
^XMB(3.8,158,2,0)="^3.801^2^2^3020325^^^^"
^XMB(3.8,158,2,1,0)="The members of this mail group receive messages when there is a "
^XMB(3.8,158,2,2,0)="communication failure between the ClaimsManager server and VistA."
^XMB(3.8,158,6,0)="^3.812^1^1"
^XMB(3.8,158,6,1,0)="ClaimsManager.Interface@DAOU.COM"
^XMB(3.8,158,6,"B","ClaimsManager.Interface@DAOU.C",1)=""
^XMB(3.8,159,0)="IVMB HEC MPI NOTIFICATION^PU^y^^^^1"
^XMB(3.8,159,2,0)="^3.801^2^2^3020328^^^^"
^XMB(3.8,159,2,1,0)="This mail group receives incoming messages, acknowledgements, and notifications"
^XMB(3.8,159,2,2,0)="from the HEC on the Veteran Site MPI seeding at the HEC."
^XMB(3.8,159,6,0)="^3.812^^0"
^XMB(3.8,160,0)="IB LTC 1010EC MISSING^PU^n^1^3021025^0^1"
^XMB(3.8,160,2,0)="^3.801^2^2^3020311^^"
^XMB(3.8,160,2,1,0)="This mail group will receive messages when LTC care is provided to a "
^XMB(3.8,160,2,2,0)="patient and the patient has no 1010EC information on file."
^XMB(3.8,160,3)="1"
^XMB(3.8,161,0)="IB LTC BACK BILLING^PU^n^1^3021025^0^1"
^XMB(3.8,161,2,0)="^3.801^4^4^3020612^^^^"
^XMB(3.8,161,2,1,0)="This mail group will receive messages when a patient has a change of LTC "
^XMB(3.8,161,2,2,0)="care (new, edit, deletion) that is after monthly LTC processing has "
^XMB(3.8,161,2,3,0)="occurred.  The message indicates that there is a possible LTC Back"
^XMB(3.8,161,2,4,0)="Billing issue."
^XMB(3.8,161,3)="1"
^XMB(3.8,162,0)="PATIENT SAFETY NOTIFICATIONS^PU^n^^^^1"
^XMB(3.8,162,2,0)="^3.801^5^5^3020910^^^^"
^XMB(3.8,162,2,1,0)="This mailgroup was created by patch TIU*1*146.  It must remain.  It was "
^XMB(3.8,162,2,2,0)="created as a mechanism to update key staff when patient safety-related "
^XMB(3.8,162,2,3,0)="information is distributed.  The name must not change as it is used by "
^XMB(3.8,162,2,4,0)="the National Center for Patient Safety when distributing some "
^XMB(3.8,162,2,5,0)="informational bulletins."
^XMB(3.8,162,3)="1"
^XMB(3.8,162,5,0)="^3.811P"
^XMB(3.8,163,0)="XUHUI CHANGE EVENT^PU^^^^^1"
^XMB(3.8,163,2,0)="^3.801^3^3^3020529^^^"
^XMB(3.8,163,2,1,0)="This is the mail group that will receive messages from the HUI event of "
^XMB(3.8,163,2,2,0)="changes either to New Person record for a Provider or if the Provider key "
^XMB(3.8,163,2,3,0)="is allocated or de-allocated."
^XMB(3.8,163,3)="1"
^XMB(3.8,164,0)="SD WAIT LIST TRANS TO AAC^PU^^^^^1"
^XMB(3.8,164,3)="1"
^XMB(3.8,165,0)="PCMM WORKLOAD FTEE MAIL GROUP^PU^n^^^^1"
^XMB(3.8,165,2,0)="^3.801^3^3^3030313^^^^"
^XMB(3.8,165,2,1,0)="Repository for PCMM Primary Care Workload HL7 messages."
^XMB(3.8,165,2,2,0)="Make Austin a member of this mail group so these HL7 messages"
^XMB(3.8,165,2,3,0)="are transmitted to the NPCD."
^XMB(3.8,165,3)="1"
^XMB(3.8,165,6,0)="^3.812^^0"
^XMB(3.8,166,0)="RMIM FSOD^PU^n^^^0^1"
^XMB(3.8,166,2,0)="^^1^1^3030128^"
^XMB(3.8,166,2,1,0)="FIM COORDINATORS Mail Group."
^XMB(3.8,166,3)="1"
^XMB(3.8,166,548000,0)="^3.80548P^1^1"
^XMB(3.8,166,548000,1,0)="2892"
^XMB(3.8,166,548000,"B",2892,1)=""
^XMB(3.8,167,0)="RMIM FSOD TRANSMISSION^PU^n^^^0^1"
^XMB(3.8,167,2,0)="^^4^4^3030128^"
^XMB(3.8,167,2,1,0)="This mail group is used for the transmission of FIM data to the FSOD database"
^XMB(3.8,167,2,2,0)="in Austin.  No members need to be in this group. The mail group should"
^XMB(3.8,167,2,3,0)="have REMOTE MEMBER: XXX@Q-FIM.MED.VA.GOV which should have been present"
^XMB(3.8,167,2,4,0)="when it was created by the install."
^XMB(3.8,167,3)="1"
^XMB(3.8,167,5,0)="^3.811P^^0"
^XMB(3.8,168,0)="RMIM MAIL SERVER^PU^n^^^0^1"
^XMB(3.8,168,2,0)="^^2^2^3030128^"
^XMB(3.8,168,2,1,0)="This mail group may be used in the future for better communication between"
^XMB(3.8,168,2,2,0)="Facility System and the Austin System in regards to ACK or ERR status."
^XMB(3.8,168,3)="1"
^XMB(3.8,169,0)="MT INCONSISTENCIES^PU^y^^^^1"
^XMB(3.8,169,1,0)="^3.81P^1^1"
^XMB(3.8,169,1,1,0)="1"
^XMB(3.8,169,1,"B",1,1)=""
^XMB(3.8,169,3)="1"
^XMB(3.8,169,5,0)="^3.811P"
^XMB(3.8,170,0)="XUOAA CLIN TRAINEE^PU^^^^^1"
^XMB(3.8,170,2,0)="^3.801^3^3^3030529^^^^"
^XMB(3.8,170,2,1,0)="This is the mail used by the HL7 MailMan logical link for sending out the"
^XMB(3.8,170,2,2,0)="HL7 PMU messages to support the Office of Academic Affiliations' Clinical"
^XMB(3.8,170,2,3,0)="Trainee Core Data Set project."
^XMB(3.8,170,3)="1"
^XMB(3.8,171,0)="RAD PERFORMANCE INDICATOR^PU^y^^^^1"
^XMB(3.8,171,2,0)="^3.801^1^1^3030411^^^^"
^XMB(3.8,171,2,1,0)="This mail group is for the Radiology Performance Indicator Summary report."
^XMB(3.8,171,3)="1"
^XMB(3.8,172,0)="XUSSPKI CRL SERVER^PU^y^^^^1"
^XMB(3.8,172,2,0)="^3.801^2^2^3020409^^^"
^XMB(3.8,172,2,1,0)="This mail group gets messages about problems with the communicating with"
^XMB(3.8,172,2,2,0)="the CRL server."
^XMB(3.8,172,3)="EAS MT LETTERS"
^XMB(3.8,173,0)="PSB BCBU ERRORS^PU^n^^^^1"
^XMB(3.8,173,2,0)="^3.801^2^2^3021223^^"
^XMB(3.8,173,2,1,0)="This Mail Group is used to Notify responsible users that there has been"
^XMB(3.8,173,2,2,0)="a problem with sending information to the Contingency Workstation."
^XMB(3.8,173,3)="1"
^XMB(3.8,174,0)="XUOAA CLIN TRAINEE TRANS^PU^^^^^1"
^XMB(3.8,174,2,0)="^^2^2^3030820^"
^XMB(3.8,174,2,1,0)="When the OAAA HL7 messages are generated a message is generated with the "
^XMB(3.8,174,2,2,0)="number of records that are transmitted to the OAA national database."
^XMB(3.8,174,3)="1"
^XMB(3.8,175,0)="DGPF BEHAVIORAL FLAG REVIEW^PU^n^^^^1"
^XMB(3.8,175,2,0)="^3.801^2^2^3030428^^^^"
^XMB(3.8,175,2,1,0)="This is the default mail group for receiving Patient Record Flag "
^XMB(3.8,175,2,2,0)="Assignment Review notifications."
^XMB(3.8,175,3)="1"
^XMB(3.8,176,0)="DGPF HL7 TRANSMISSION ERRORS^PU^n^^^^1"
^XMB(3.8,176,2,0)="^^2^2^3030428^"
^XMB(3.8,176,2,1,0)="This mail group is used to notify Patient Record Flag administrators of "
^XMB(3.8,176,2,2,0)="transmission errors that occur during the processing of HL7 messages."
^XMB(3.8,176,3)="1"
^XMB(3.8,177,0)="IBCNE IIV MESSAGE^PU^^2^3060411^^1"
^XMB(3.8,177,2,0)="^3.801^2^2^3030808^^"
^XMB(3.8,177,2,1,0)="This mail group will be used to deliver notifications for"
^XMB(3.8,177,2,2,0)="the Insurance Identification and Verification process."
^XMB(3.8,177,3)="1"
^XMB(3.8,177,6,0)="^3.812^^0"
^XMB(3.8,178,0)="GMPL CODE SET VERSION UPDATES^PU^n^^^^1"
^XMB(3.8,178,2,0)="^3.801^2^2^3030414^^^"
^XMB(3.8,178,2,1,0)="This mail group will be used to send information about the status of ICD9 "
^XMB(3.8,178,2,2,0)="codes attached to problems on problem selection lists."
^XMB(3.8,178,3)="1"
^XMB(3.8,179,0)="ORCM CSV EVENT^PU^n^^^^1"
^XMB(3.8,179,2,0)="^3.801^3^3^3030326^^"
^XMB(3.8,179,2,1,0)="This mail group will be used to define the recipients of a mail message "
^XMB(3.8,179,2,2,0)="containing a list of quick orders from the ORDER DIALOG (#101.41) file "
^XMB(3.8,179,2,3,0)="that are affected by an ICD-9 code set version installation."
^XMB(3.8,179,3)="1"
^XMB(3.8,180,0)="OOPS ISO NOTIFICATION^PU^^^^^1"
^XMB(3.8,180,2,0)="^^2^2^3030827^"
^XMB(3.8,180,2,1,0)="Popupulate this mail group with the ISO staff who should receive notification"
^XMB(3.8,180,2,2,0)="when a supervisor accesses Employee data but does not create a claim."
^XMB(3.8,180,3)="1"
^XMB(3.8,181,0)="RCDPE PAYMENTS^PU^^^^^1"
^XMB(3.8,181,2,0)="^^2^2^3030318^"
^XMB(3.8,181,2,1,0)="This is the mail group that will receive most of the bulletins produced "
^XMB(3.8,181,2,2,0)="by the 3rd Party EDI Lockbox process in VistA."
^XMB(3.8,181,3)="1"
^XMB(3.8,182,0)="RCDPE PAYMENTS MGMT^PU^^^^^1"
^XMB(3.8,182,2,0)="^3.801^2^2^3030410^^"
^XMB(3.8,182,2,1,0)="This is the mail group for 3rd Part EDI Lockbox processing that will "
^XMB(3.8,182,2,2,0)="receive the bulletins regarding the transfer of EOBs to another site."
^XMB(3.8,182,3)="1"
^XMB(3.8,183,0)="MLB^PU^n^^^^1"
^XMB(3.8,183,2,0)="^^2^2^3030410^"
^XMB(3.8,183,2,1,0)="This is the mail queue that will receive all the EDI 3rd Party Lockbox"
^XMB(3.8,183,2,2,0)="transmissions from Austin."
^XMB(3.8,183,3)="1"
^XMB(3.8,183,6,0)="^3.812^^0"
^XMB(3.8,184,0)="RCDPE PAYMENTS EXCEPTIONS^PU^^^^^1"
^XMB(3.8,184,2,0)="^3.801^3^3^3030425^^"
^XMB(3.8,184,2,1,0)="This is the mail group that will receive the bulletins produced by the"
^XMB(3.8,184,2,2,0)="3rd Party EDI Lockbox process that relate to exceptions found when the EFT"
^XMB(3.8,184,2,3,0)="and ERA messages are received in VistA."
^XMB(3.8,184,3)="1"
^XMB(3.8,185,0)="DG DAILY ADDRESS CHANGE^PU^^^^^1"
^XMB(3.8,185,2,0)="^3.801^1^1^3031021^^^^"
^XMB(3.8,185,2,1,0)="The mail group will receive DG ALL ADDRESS CHANGE REPORT"
^XMB(3.8,185,3)="1"
^XMB(3.8,185,6,0)="^3.812^^0"
^XMB(3.8,185,8,0)="^3.814P"
^XMB(3.8,186,0)="IB COMBAT VET RX COPAY^PU^^^^^1"
^XMB(3.8,186,2,0)="^3.801^4^4^3030820^^^^"
^XMB(3.8,186,2,1,0)="Each site must determine the IB/Pharmacy staff members/responsibility "
^XMB(3.8,186,2,2,0)="for researching and canceling Rx charges.  These staff members must"
^XMB(3.8,186,2,3,0)="be included in this e-mail group in order to receive the MailMan"
^XMB(3.8,186,2,4,0)="messages"
^XMB(3.8,186,3)="1"
^XMB(3.8,187,0)="DG REGISTER ONCE^PU^y^^^^1"
^XMB(3.8,187,3)="1"
^XMB(3.8,188,0)="SD-PAIT^PU^^^^^1"
^XMB(3.8,188,2,0)="^3.801^1^1^3030729^^^^"
^XMB(3.8,188,2,1,0)="Mail group to receive PAIT HL7 messages"
^XMB(3.8,188,3)="1"
^XMB(3.8,189,0)="PSO TPB HL7 EXTRACT^PU^y^36^3040919^^1"
^XMB(3.8,189,1,0)="^3.81P^1^1"
^XMB(3.8,189,1,1,0)="1"
^XMB(3.8,189,1,"B",1,1)=""
^XMB(3.8,189,2,0)="^^2^2^3030919^"
^XMB(3.8,189,2,1,0)="Members of this mail group will receive weekly mail messages regarding"
^XMB(3.8,189,2,2,0)="the HL7 transmission of the Transitional Pharmacy Benefit data."
^XMB(3.8,189,3)="1"
^XMB(3.8,190,0)="GMRA REQUEST NEW REACTANT^PU^n^^^^1"
^XMB(3.8,190,2,0)="^3.801^6^6^3030827^^^^"
^XMB(3.8,190,2,1,0)="When adding a new allergy entry the user is prompted for the reactant.  "
^XMB(3.8,190,2,2,0)="If the user cannot find a reactant to match their input then they are "
^XMB(3.8,190,2,3,0)="given the option to send an email message requesting that the new "
^XMB(3.8,190,2,4,0)="reactant be added."
^XMB(3.8,190,2,5,0)=" "
^XMB(3.8,190,2,6,0)="Members of this mail group will be recipients of that message."
^XMB(3.8,190,3)="1"
^XMB(3.8,191,0)="PSO TPB GROUP^PR^y^^^^1"
^XMB(3.8,191,1,0)="^3.81P^1^1"
^XMB(3.8,191,1,1,0)="1"
^XMB(3.8,191,1,"B",1,1)=""
^XMB(3.8,191,3)="1"
^XMB(3.8,192,0)="IVM ADDR UPDT REPORT^PU^^^^^1"
^XMB(3.8,192,2,0)="^^2^2^3031029^"
^XMB(3.8,192,2,1,0)="This mail group will receive the IVM Address Updates Pending Review [IVM "
^XMB(3.8,192,2,2,0)="ADDR UPDT PENDING REVIEW] report."
^XMB(3.8,192,3)="1"
^XMB(3.8,192,6,0)="^3.812^^0"
^XMB(3.8,193,0)="HLEV EVENT MONITOR^PR^^^^^1"
^XMB(3.8,193,3)="1"
^XMB(3.8,194,0)="HLEV SERVER^PR^^^^^1"
^XMB(3.8,194,3)="1"
^XMB(3.8,195,0)="SD ENC PERF MON^PU^n^^^^1"
^XMB(3.8,195,2,0)="^3.801^3^3^3030803^^"
^XMB(3.8,195,2,1,0)="Mail group used for transmission of Encounter Performance Monitor summary "
^XMB(3.8,195,2,2,0)="data to Austin Automation Center. DO NOT USE THIS MAIL GROUP FOR OTHER "
^XMB(3.8,195,2,3,0)="PURPOSES."
^XMB(3.8,195,3)="1"
^XMB(3.8,196,0)="SD PM NOTIFICATION TIU^PU^n^^^^1"
^XMB(3.8,196,2,0)="^^8^8^3040512^"
^XMB(3.8,196,2,1,0)="This mail group is used to notify local staff of completion for the"
^XMB(3.8,196,2,2,0)="extraction and transmission of the Additional Performance Monitor (TIU)"
^XMB(3.8,196,2,3,0)="National Rollup to Austin Automation Center (AAC) for National Reporting."
^XMB(3.8,196,2,4,0)="This process is queued to run on the 15th of each month and transmits data"
^XMB(3.8,196,2,5,0)="for the previous month starting with the first day and ending with the"
^XMB(3.8,196,2,6,0)="last day of the month. The menu option used to run this option is"
^XMB(3.8,196,2,7,0)="'Schedule APM Performance Monitor TasK' [SCRPW APM TASK JOB] and it is"
^XMB(3.8,196,2,8,0)="scheduled via TASKMAN."
^XMB(3.8,196,3)="1"
^XMB(3.8,196,5,0)="^3.811P"
^XMB(3.8,196,6,0)="^3.812^^0"
^XMB(3.8,197,0)="MD DEVICE ERRORS^PU^y^^^^1"
^XMB(3.8,197,1,0)="^3.81P^1^1"
^XMB(3.8,197,1,1,0)="1^"
^XMB(3.8,197,1,"B",1,1)=""
^XMB(3.8,197,2,0)="^3.801^1^1^3020730^^^^"
^XMB(3.8,197,2,1,0)="Primary Mail Group for Medical Device errors."
^XMB(3.8,197,3)="1"
^XMB(3.8,198,0)="DGQE HL7 TRANSMISSION ERRORS^PR^^^^^1"
^XMB(3.8,198,2,0)="^^2^2^3040218^"
^XMB(3.8,198,2,1,0)="This mail group receives bulletins when a VIC General Order (ORM~O01) HL7"
^XMB(3.8,198,2,2,0)="message is rejected by the National Card Management Directory."
^XMB(3.8,198,3)="1"
^XMB(3.8,199,0)="XQAL UNPROCESSED ALERTS^PU^^^^^1"
^XMB(3.8,199,1,0)="^3.81P^1^1"
^XMB(3.8,199,1,1,0)="1"
^XMB(3.8,199,1,"B",1,1)=""
^XMB(3.8,199,2,0)="^3.801^6^6^3030404^^"
^XMB(3.8,199,2,1,0)="This group is setup to provide a place to send unprocessed alerts if "
^XMB(3.8,199,2,2,0)="there is no other mechanism by which to reach a recipient.  If other "
^XMB(3.8,199,2,3,0)="mechanisms, such as BACKUP REVIEWER entries in the PARAMETER file, are "
^XMB(3.8,199,2,4,0)="available, alerts will not be sent to this group.  This group will only "
^XMB(3.8,199,2,5,0)="be used if all other mechanisms result in no active users to send the "
^XMB(3.8,199,2,6,0)="alert to."
^XMB(3.8,199,3)="1"
^XMB(3.8,200,0)="RCXVFTP^PU^n^^^^1"
^XMB(3.8,200,1,0)="^3.81P^1^1"
^XMB(3.8,200,1,1,0)="1^"
^XMB(3.8,200,1,"B",1,1)=""
^XMB(3.8,200,2,0)="^3.801^2^2^3040224^^^^"
^XMB(3.8,200,2,1,0)="This mail group will receive all FTP error messages for the CBO"
^XMB(3.8,200,2,2,0)="AR Data Extracts."
^XMB(3.8,200,3)="1"
^XMB(3.8,201,0)="ERRORS^PU^y^1^3060421"
^XMB(3.8,201,1,0)="^3.81P^2^2"
^XMB(3.8,201,1,1,0)="9"
^XMB(3.8,201,1,2,0)="59^"
^XMB(3.8,201,1,"B",9,1)=""
^XMB(3.8,201,1,"B",59,2)=""
^XMB(3.8,201,3)="9"
^XMB(3.8,202,0)="IB MEANS TEST^PU"
^XMB(3.8,202,2,0)="^^3^3^3050405"
^XMB(3.8,202,2,1,0)="This mail group will receive Means Test error messages from integrated billing."
^XMB(3.8,202,2,2,0)="errors and the editing/deletion of records which are associated with"
^XMB(3.8,202,2,3,0)="Means Test/Category C billing."
^XMB(3.8,202,3)=".5"
^XMB(3.8,203,0)="DSS-LBB^PU^n^^^^"
^XMB(3.8,203,2,0)="^^2^2^3041209^"
^XMB(3.8,203,2,1,0)="This mail group contains users responsible for DSS extracts.  A message is"
^XMB(3.8,203,2,2,0)="sent to this group upon completion of package extracts. "
^XMB(3.8,203,3)="56"
^XMB(3.8,203,5,0)="^3.811P"
^XMB(3.8,206,0)="MCH^PU^y^^^^56"
^XMB(3.8,206,2,0)="^3.801^1^1^3040603^^^^"
^XMB(3.8,206,2,1,0)="New Test que for HIPAA EDI Enhancements"
^XMB(3.8,206,3)="56"
^XMB(3.8,206,6,0)="^3.812^^0"
^XMB(3.8,207,0)="PSJ STAT NOW PENDING ORDER^PU^n^^^^"
^XMB(3.8,207,3)="56"
^XMB(3.8,207,5,0)="^3.811P"
^XMB(3.8,207,6,0)="^3.812^^0"
^XMB(3.8,208,0)="PSJ STAT NOW ACTIVE ORDER^PU^n^^^^"
^XMB(3.8,208,3)="56"
^XMB(3.8,208,6,0)="^3.812^^0"
^XMB(3.8,208,8,0)="^3.814P"
^XMB(3.8,208,9,0)="^3.815P"
^XMB(3.8,209,0)="IHD SEND^PU^^^^^9"
^XMB(3.8,209,2,0)="^3.801^2^2^3040720^^^^"
^XMB(3.8,209,2,1,0)="This mail group is used to send messages for IHD Query to Austin Automation "
^XMB(3.8,209,2,2,0)="Center."
^XMB(3.8,209,3)="9"
^XMB(3.8,210,0)="IHD^PU^^^^^9"
^XMB(3.8,210,2,0)="^3.801^1^1^3040213^^^^"
^XMB(3.8,210,2,1,0)="Used to recieve ACK messages from Austin for the IHD Query project"
^XMB(3.8,210,3)="9"
^XMB(3.8,210,5,0)="^3.811P"
^XMB(3.8,210,6,0)="^3.812^1^1"
^XMB(3.8,210,6,1,0)="S.HL MS SERVER@DEWEY.EHR.COM"
^XMB(3.8,210,6,"B","S.HL MS SERVER@DEWEY.EHR.COM",1)=""
^XMB(3.8,211,0)="GEC2 NATIONAL ROLLUP^PU^y^^^^1"
^XMB(3.8,211,3)="56"
^XMB(3.8,211,6,0)="^3.812^4^4"
^XMB(3.8,211,6,1,0)="VAUGHN.SMITH@MED.VA.GOV"
^XMB(3.8,211,6,2,0)="patrick.brady@VA.GOV"
^XMB(3.8,211,6,3,0)="daniel.schoeps@VA.GOV"
^XMB(3.8,211,6,4,0)="CHERYL.LEIFERMAN2@MED.VA.GOV"
^XMB(3.8,211,6,"B","CHERYL.LEIFERMAN2@MED.VA.GOV",4)=""
^XMB(3.8,211,6,"B","VAUGHN.SMITH@MED.VA.GOV",1)=""
^XMB(3.8,211,6,"B","daniel.schoeps@VA.GOV",3)=""
^XMB(3.8,211,6,"B","patrick.brady@VA.GOV",2)=""
^XMB(3.8,212,0)="XUMF ERROR^PU^^^^0^8"
^XMB(3.8,212,1,0)="^3.81P^2^2"
^XMB(3.8,212,1,1,0)="8"
^XMB(3.8,212,1,2,0)="65"
^XMB(3.8,212,1,"B",8,1)=""
^XMB(3.8,212,1,"B",65,2)=""
^XMB(3.8,212,2,0)="^3.801^1^1^3050405^^^^"
^XMB(3.8,212,2,1,0)="This mail group receives messages related to the Master File Server."
^XMB(3.8,212,3)="65"
^XMB(3.8,212,6,0)="^3.812^3^3"
^XMB(3.8,212,6,1,0)="G.XUMF ERROR@FORUM.VA.GOV"
^XMB(3.8,212,6,2,0)="G.HDIS ERRORS@FORUM.VA.GOV"
^XMB(3.8,212,6,3,0)="G.HDIS ERT NOTIFICATION@FORUM.VA.GOV"
^XMB(3.8,212,6,"B","G.HDIS ERRORS@FORUM.VA.GOV",2)=""
^XMB(3.8,212,6,"B","G.HDIS ERT NOTIFICATION@FORUM.",3)=""
^XMB(3.8,212,6,"B","G.XUMF ERROR@FORUM.VA.GOV",1)=""
^XMB(3.8,213,0)="HDIS ERRORS^PU^^12^3061225^0^8"
^XMB(3.8,213,3)="65"
^XMB(3.8,213,6,0)="^3.812^1^1"
^XMB(3.8,213,6,1,0)="G.HDIS ERRORS@FORUM.VA.GOV"
^XMB(3.8,213,6,"B","G.HDIS ERRORS@FORUM.VA.GOV",1)=""
^XMB(3.8,214,0)="HDIS ERT NOTIFICATION^PU^n^^^^8"
^XMB(3.8,214,2,0)="^3.801^2^2^3050310^^^^"
^XMB(3.8,214,2,1,0)="Exchange mailgroup which will receive the ERT bulletins identifying "
^XMB(3.8,214,2,2,0)="site ready for ERT file update."
^XMB(3.8,214,3)="65"
^XMB(3.8,214,5,0)="^3.811P"
^XMB(3.8,214,6,0)="^3.812^2^2"
^XMB(3.8,214,6,1,0)="G.HDIS ERRORS@FORUM.VA.GOV"
^XMB(3.8,214,6,2,0)="G.HDIS ERT NOTIFICATION@FORUM.VA.GOV"
^XMB(3.8,214,6,"B","G.HDIS ERRORS@FORUM.VA.GOV",1)=""
^XMB(3.8,214,6,"B","G.HDIS ERT NOTIFICATION@FORUM.",2)=""
^XMB(3.8,215,0)="HDIS HDR NOTIFICATION^PU^^^^^8"
^XMB(3.8,215,2,0)="^^2^2^3050310^"
^XMB(3.8,215,2,1,0)="Used to notify HDR personnel that a file at a facility is ready to"
^XMB(3.8,215,2,2,0)="have the HDR Triggers turned on."
^XMB(3.8,215,3)="65"
^XMB(3.8,215,6,0)="^3.812^1^1"
^XMB(3.8,215,6,1,0)="G.HDIS HDR NOTIFICATION@FORUM.VA.GOV"
^XMB(3.8,215,6,"B","G.HDIS HDR NOTIFICATION@FORUM.",1)=""
^XMB(3.8,216,0)="DG ISO SENSITIVE RCDS^PU^n^^^0^65"
^XMB(3.8,216,2,0)="^^2^2^3050620^"
^XMB(3.8,216,2,1,0)="This mail group is used by the DG SENSITIVE RCDS RPT-FORMAT and "
^XMB(3.8,216,2,2,0)="DG SENSITIVE RCDS RPT-TASK options."
^XMB(3.8,216,3)="69"
^XMB(3.8,217,0)="DG PTF 801 TO PCE ERROR^PU^n^^^0^65"
^XMB(3.8,217,2,0)="^^2^2^3050913^"
^XMB(3.8,217,2,1,0)="This mail group is for receiving of PTF 801 screen data to PCE filing "
^XMB(3.8,217,2,2,0)="error messages.  "
^XMB(3.8,217,3)="69"
^XMB(3.8,218,0)="PATCHES^PU^n"
^XMB(3.8,218,1,0)="^3.81P^1^1"
^XMB(3.8,218,1,1,0)="65"
^XMB(3.8,218,1,"B",65,1)=""
^XMB(3.8,218,2,0)="^3.801^3^3^3060328^^"
^XMB(3.8,218,2,1,0)="This is the Kernel mail group for receiving messages relating to "
^XMB(3.8,218,2,2,0)="patches.  It is used, for example, by the VistA Patch Monitor software as "
^XMB(3.8,218,2,3,0)="a recipient."
^XMB(3.8,218,3)="65"
^XMB(3.8,218,6,0)="^3.812^1^1"
^XMB(3.8,218,6,1,0)="S.XTPM PATCH SERVER@BETA.VISTA-OFFICE.ORG"
^XMB(3.8,218,6,"B","S.XTPM PATCH SERVER@BETA.VISTA",1)=""
^XMB(3.8,219,0)="XTPM PATCH MONITOR^PU^^41^3061006^^65"
^XMB(3.8,219,1,0)="^3.81P^1^1"
^XMB(3.8,219,1,1,0)="65"
^XMB(3.8,219,1,"B",65,1)=""
^XMB(3.8,219,2,0)="^3.801^1^1^3060328^^^^"
^XMB(3.8,219,2,1,0)="This mail group receives the delinquent patch notices."
^XMB(3.8,219,3)="65"
^XMB(3.8,219,5,0)="^3.811P"
^XMB(3.8,219,6,0)="^3.812^^0"
^XMB(3.8,220,0)="XTPM PATCH MONITOR USER^PU^^^^0^65"
^XMB(3.8,220,1,0)="^3.81P^1^1"
^XMB(3.8,220,1,1,0)="65"
^XMB(3.8,220,1,"B",65,1)=""
^XMB(3.8,220,2,0)="^3.801^1^1^3060328^^^^"
^XMB(3.8,220,2,1,0)="The regular patch monitor user."
^XMB(3.8,220,3)="65"
^XMB(3.8,221,0)="SD EWL BACKGROUND UPDATE^PU^^^^^65"
^XMB(3.8,221,2,0)="^3.801^2^2^3050601^^^^"
^XMB(3.8,221,2,1,0)="Alerts users when status of SD WAIT LIST types(pcmm,clinic,specialty)"
^XMB(3.8,221,2,2,0)="change."
^XMB(3.8,221,3)="65"
^XMB(3.8,222,0)="SDWL-TRANSFER-ADMIN^PU^y^^^^65"
^XMB(3.8,222,2,0)="^3.801^6^6^3050506^^^"
^XMB(3.8,222,2,1,0)="This mail group is for the administration of the SD Wait List "
^XMB(3.8,222,2,2,0)="Inter-Facility Transfer function."
^XMB(3.8,222,2,3,0)=" "
^XMB(3.8,222,2,4,0)="When an appropriate action has occurred, such as the receipt of a request "
^XMB(3.8,222,2,5,0)="to transfer a patient from a Wait List to this facility, the members "
^XMB(3.8,222,2,6,0)="of this mail group are notified that the action has occurred."
^XMB(3.8,222,3)="65"
^XMB(3.8,223,0)="PSU PBM^PU^^^^^65"
^XMB(3.8,223,2,0)="^^2^2^2940614^^^^"
^XMB(3.8,223,2,1,0)="This mail group contains the persons who will receive mail message"
^XMB(3.8,223,2,2,0)="reports from the D&PPM monthly background job."
^XMB(3.8,223,3)="65"
^XMB(3.8,224,0)="PRCV Item Vendor Edits^PU^n^^^^65"
^XMB(3.8,224,2,0)="^3.801^3^3^3050419^^"
^XMB(3.8,224,2,1,0)="This mail group will be used to alert staff who maintain the Item Master "
^XMB(3.8,224,2,2,0)="File and Vendor File when an error occurs during attempts to update the "
^XMB(3.8,224,2,3,0)="COTS inventory system."
^XMB(3.8,224,3)="65"
^XMB(3.8,225,0)="PRCV Audit File Alerts^PU^n^^^^65"
^XMB(3.8,225,2,0)="^^3^3^3050517^"
^XMB(3.8,225,2,1,0)="This mail group will be used to alert staff of inconsistencies or "
^XMB(3.8,225,2,2,0)="problems IFCAP finds with the Audit File while processing RILs, 2237s and "
^XMB(3.8,225,2,3,0)="Purchase Orders."
^XMB(3.8,225,3)="65"
^XMB(3.8,226,0)="PRCPLO CLRS NOTIFICATIONS^PU^n^^^^65"
^XMB(3.8,226,2,0)="^3.801^4^4^3051219^^^^"
^XMB(3.8,226,2,1,0)="This mail group will be used to alert staff of status updates and "
^XMB(3.8,226,2,2,0)="exceptions concerning processes related to the Clinical Logistics Report "
^XMB(3.8,226,2,3,0)="Server.  The mail group will be exported with PRC*5.1*83 and the site "
^XMB(3.8,226,2,4,0)="will determine the members as advised by the Clinical Logistics Office."
^XMB(3.8,226,3)="65"
^XMB(3.8,226,6,0)="^3.812^^0"
^XMB(3.8,227,0)="IBB PFSS DATA TRANS ERROR^PU^n^^^^65"
^XMB(3.8,227,2,0)="^3.801^2^2^3051011^^^^"
^XMB(3.8,227,2,1,0)="This Mailgroup will receive a message whenever an error is"
^XMB(3.8,227,2,2,0)="encountered while building an HL7 message for PFSS."
^XMB(3.8,227,3)="65"
^XMB(3.8,228,0)="IBB PFSS CHARGE ERRORS^PU^n^^^^65"
^XMB(3.8,228,2,0)="^3.801^8^8^3050920^^^"
^XMB(3.8,228,2,1,0)="The purpose of this mail group is to receive any error message generated"
^XMB(3.8,228,2,2,0)="in IBB during processing of charge transaction data.  Processing of a"
^XMB(3.8,228,2,3,0)="charge transaction is initiated by a call from a clinical application"
^XMB(3.8,228,2,4,0)="to CHARGE^IBBAPI."
^XMB(3.8,228,2,5,0)="  "
^XMB(3.8,228,2,6,0)="This mail group is added to the MAIL GROUP file via patch IB*2.0*286."
^XMB(3.8,228,2,7,0)="A post-installation routine adds this mail group to the MAIL GROUP FOR"
^XMB(3.8,228,2,8,0)="CHARGE field (#.06) in the PFSS SITE PARAMETERS file (#372)."
^XMB(3.8,228,3)="65"
^XMB(3.8,229,0)="VDEF NATIONAL ALERTS^PU^y^^^^65"
^XMB(3.8,229,1,0)="^3.81P^1^1"
^XMB(3.8,229,1,1,0)="65"
^XMB(3.8,229,1,"B",65,1)=""
^XMB(3.8,229,2,0)="^3.801^1^1^3060411^^^^"
^XMB(3.8,229,2,1,0)="VDEF processing alerts."
^XMB(3.8,229,3)="65"
^XMB(3.8,229,6,0)="^3.812^^0"
^XMB(3.8,230,0)="SD RSA API ERRORS^PU^y^^^^65"
^XMB(3.8,230,2,0)="^3.801^2^2^3050513^^"
^XMB(3.8,230,2,1,0)="This mail group will receive any error notifications or conditions from "
^XMB(3.8,230,2,2,0)="the PFSS Event Driver and Scheduling RSA API calls."
^XMB(3.8,230,3)="65"
^XMB(3.8,231,0)="TIU MIS ALERTS^PU^y^^^^65"
^XMB(3.8,231,2,0)="^3.801^1^1^3051018^^"
^XMB(3.8,231,2,1,0)="This mail group is for the purpose of receiving problem alerts for TIU. These alerts should be for problems in TIU Notes that are caused by a system bug. It is meant as a management tool - not an alert system for the end user."
^XMB(3.8,231,3)="65"
^XMB(3.8,232,0)="OR DRUG ORDER CANCELLED^PU^^^^^11"
^XMB(3.8,232,3)="65"
^XMB(3.8,233,0)="XIP SERVER RESPONSE^PU^y^^^^8"
^XMB(3.8,233,2,0)="^^6^6^3051021^"
^XMB(3.8,233,2,1,0)="This mail group will receive the response message when either a scan of "
^XMB(3.8,233,2,2,0)="the COUNTY CODE(#5.13) and STATE(#5) whenever a manual scan is requested "
^XMB(3.8,233,2,3,0)="by doing from the programmer prompt:"
^XMB(3.8,233,2,4,0)=">D ^XIPMAIL"
^XMB(3.8,233,2,5,0)="or in response to a request of server:"
^XMB(3.8,233,2,6,0)=" XIPMAILSERVER[Check file 5.13 & file 5]"
^XMB(3.8,233,3)="65"
^XMB(3.8,233,6,0)="^3.812^^0"
^XMB(3.8,234,0)="XUSEC/PRS PAID SEPARATION^PU^n^^^^8"
^XMB(3.8,234,1,0)="^3.81P^1^1"
^XMB(3.8,234,1,1,0)="8"
^XMB(3.8,234,1,"B",8,1)=""
^XMB(3.8,234,2,0)="^3.801^1^1^3061002^^"
^XMB(3.8,234,2,1,0)="This is the mail group that will receive separation notices."
^XMB(3.8,234,3)="65"
^XMB(3.8,235,0)="BPS OPECC^PU^^1^3071227^^8"
^XMB(3.8,235,3)="65"
^XMB(3.8,236,0)="SR CONSULT^PU^^^^^1"
^XMB(3.8,236,2,0)="^3.801^3^3^3051028^^^^"
^XMB(3.8,236,2,1,0)="This mail group is intended to alert Surgery personnel that a Surgery "
^XMB(3.8,236,2,2,0)="Request Consultation has been entered and does not contain the minimum "
^XMB(3.8,236,2,3,0)="required elements to initiate a pre-certification."
^XMB(3.8,236,3)="1"
^XMB(3.8,237,0)="DSS-NUT^PU^^^^^1"
^XMB(3.8,237,2,0)="^^2^2^3060504^"
^XMB(3.8,237,2,1,0)="This mail group contains users responsible for DSS extracts. A message is"
^XMB(3.8,237,2,2,0)="sent to this group upon completion of package extracts. "
^XMB(3.8,237,3)="1"
^XMB(3.8,238,0)="PCMM PATIENT/PROVIDER INACTIVE^PU^y^^^^1"
^XMB(3.8,238,2,0)="^3.801^1^1^3040719^^"
^XMB(3.8,238,2,1,0)="Receive information on PCMM patient and provider inactivation"
^XMB(3.8,238,3)="1"
^XMB(3.8,238,5,0)="^3.811P^^0"
^XMB(3.8,239,0)="PSO EXTERNAL DISPENSE ALERTS^PR^y^^^^1"
^XMB(3.8,239,2,0)="^3.801^4^4^3061011^^^^"
^XMB(3.8,239,2,1,0)="This mail group will receive information about activities that need "
^XMB(3.8,239,2,2,0)="investigation by site personnel.  Examples would be a refill Release "
^XMB(3.8,239,2,3,0)="message is sent to Vista by the External Dispense machines, but the refill"
^XMB(3.8,239,2,4,0)="is not on file any longer, possibly was deleted."
^XMB(3.8,239,3)="1"
^XMB(3.8,239,552001)=""
^XMB(3.8,240,0)="IRM STAFF"
^XMB(3.8,240,1,0)="^3.81P^1^1"
^XMB(3.8,240,1,1,0)="1"
^XMB(3.8,240,1,"B",1,1)=""
^XMB(3.8,240,3)="1"
^XMB(3.8,241,0)="XUMF NPI^PU^^1^3071230^0^1"
^XMB(3.8,241,2,0)="^3.801^1^1^3070118^^^^"
^XMB(3.8,241,2,1,0)="This mail group receives messages related to the Master File Server."
^XMB(3.8,241,3)="1"
^XMB(3.8,241,6,0)="^3.812^1^1"
^XMB(3.8,241,6,1,0)="G.XUMF ERROR@FORUM.VA.GOV"
^XMB(3.8,241,6,"B","G.XUMF ERROR@FORUM.VA.GOV",1)=""
^XMB(3.8,242,0)="XIP POSTAL CODE UPDATE^PU^n^^^^1"
^XMB(3.8,242,2,0)="^^5^5^3070328^"
^XMB(3.8,242,2,1,0)="This mail group will receive the VistA e-mail message that will be "
^XMB(3.8,242,2,2,0)="generated by Kernel Server Option: XIPSRVR[Postal Code Update Server]. The"
^XMB(3.8,242,2,3,0)="message text will contain the detail records for which Postal Code/ZIP"
^XMB(3.8,242,2,4,0)="code that were either Added, Edited, or Inactivated in an up arrow"
^XMB(3.8,242,2,5,0)="format.  The first line will be the Header Row."
^XMB(3.8,242,3)="1"
^XMB(3.8,243,0)="NPI EXTRACT VERIFICATION^PU^n^^^0"
^XMB(3.8,243,1,0)="^3.81P^1^1"
^XMB(3.8,243,1,1,0)="1"
^XMB(3.8,243,1,"B",1,1)=""
^XMB(3.8,243,2,0)="^^2^2^3071227"
^XMB(3.8,243,2,1,0)="Members of this mail group will automatically receive an email verification entry"
^XMB(3.8,243,2,2,0)="for each NPI Extract file that has been generated at the sites."
^XMB(3.8,243,3)=".5"
^XMB(3.8,243,6,0)="^3.812^1^1"
^XMB(3.8,243,6,1,0)="vhaconpiextractmonitoring@VA.GOV"
^XMB(3.8,243,6,"B","vhaconpiextractmonitoring@VA.G",1)=""
^XMB(3.8,244,0)="TIU CACS^PU^n^^^^1"
^XMB(3.8,244,2,0)="^^3^3^3070312^"
^XMB(3.8,244,2,1,0)="This cross-reference identifies the people who should receive "
^XMB(3.8,244,2,2,0)="informational bulletins concerning the implementation of the Text "
^XMB(3.8,244,2,3,0)="Integration Utilities (TIU) Package."
^XMB(3.8,244,3)="1"
^XMB(3.8,245,0)="SDSC NIGHTLY TALLY^PU^n^^^^1"
^XMB(3.8,245,2,0)="^3.801^3^3^3070319^^^^"
^XMB(3.8,245,2,1,0)="This mail group is for ASCD (Automated Service Connected Designation)"
^XMB(3.8,245,2,2,0)="software.  A breakdown of records reviewed during the nightly process will"
^XMB(3.8,245,2,3,0)="be sent to this mail group."
^XMB(3.8,245,3)="1"
^XMB(3.8,246,0)="IBCNR EPHARM^PU^n^^^^1"
^XMB(3.8,246,2,0)="^^2^2^3070309^"
^XMB(3.8,246,2,1,0)="This mail group is forwarded notifications that are associated with"
^XMB(3.8,246,2,2,0)="electronic Pharmacy (ePharmacy) processing of claims."
^XMB(3.8,246,3)="1"
^XMB(3.8,"AB",1,3,1)=""
^XMB(3.8,"AB",1,5,1)=""
^XMB(3.8,"AB",1,21,1)=""
^XMB(3.8,"AB",1,28,1)=""
^XMB(3.8,"AB",1,78,1)=""
^XMB(3.8,"AB",1,85,1)=""
^XMB(3.8,"AB",1,98,1)=""
^XMB(3.8,"AB",1,103,1)=""
^XMB(3.8,"AB",1,119,1)=""
^XMB(3.8,"AB",1,133,1)=""
^XMB(3.8,"AB",1,138,1)=""
^XMB(3.8,"AB",1,139,1)=""
^XMB(3.8,"AB",1,141,1)=""
^XMB(3.8,"AB",1,144,1)=""
^XMB(3.8,"AB",1,169,1)=""
^XMB(3.8,"AB",1,189,1)=""
^XMB(3.8,"AB",1,191,1)=""
^XMB(3.8,"AB",1,197,1)=""
^XMB(3.8,"AB",1,199,1)=""
^XMB(3.8,"AB",1,200,1)=""
^XMB(3.8,"AB",1,240,1)=""
^XMB(3.8,"AB",1,243,1)=""
^XMB(3.8,"AB",2,35,1)=""
^XMB(3.8,"AB",8,212,1)=""
^XMB(3.8,"AB",8,234,1)=""
^XMB(3.8,"AB",9,201,1)=""
^XMB(3.8,"AB",59,201,2)=""
^XMB(3.8,"AB",65,125,1)=""
^XMB(3.8,"AB",65,141,2)=""
^XMB(3.8,"AB",65,212,2)=""
^XMB(3.8,"AB",65,218,1)=""
^XMB(3.8,"AB",65,219,1)=""
^XMB(3.8,"AB",65,220,1)=""
^XMB(3.8,"AB",65,229,1)=""
^XMB(3.8,"AC",1,20)=""
^XMB(3.8,"AC",1,33)=""
^XMB(3.8,"AC",1,34)=""
^XMB(3.8,"AC",1,42)=""
^XMB(3.8,"AC",1,43)=""
^XMB(3.8,"AC",1,44)=""
^XMB(3.8,"AC",1,45)=""
^XMB(3.8,"AC",1,52)=""
^XMB(3.8,"AC",1,53)=""
^XMB(3.8,"AC",1,79)=""
^XMB(3.8,"AC",1,80)=""
^XMB(3.8,"AC",1,81)=""
^XMB(3.8,"AC",1,82)=""
^XMB(3.8,"AC",1,83)=""
^XMB(3.8,"AC",1,84)=""
^XMB(3.8,"AC",1,86)=""
^XMB(3.8,"AC",1,87)=""
^XMB(3.8,"AC",1,88)=""
^XMB(3.8,"AC",1,89)=""
^XMB(3.8,"AC",1,90)=""
^XMB(3.8,"AC",1,91)=""
^XMB(3.8,"AC",1,92)=""
^XMB(3.8,"AC",1,93)=""
^XMB(3.8,"AC",1,94)=""
^XMB(3.8,"AC",1,95)=""
^XMB(3.8,"AC",1,96)=""
^XMB(3.8,"AC",1,97)=""
^XMB(3.8,"AC",1,98)=""
^XMB(3.8,"AC",1,99)=""
^XMB(3.8,"AC",1,100)=""
^XMB(3.8,"AC",1,101)=""
^XMB(3.8,"AC",1,102)=""
^XMB(3.8,"AC",1,103)=""
^XMB(3.8,"AC",1,104)=""
^XMB(3.8,"AC",1,105)=""
^XMB(3.8,"AC",1,106)=""
^XMB(3.8,"AC",1,107)=""
^XMB(3.8,"AC",1,108)=""
^XMB(3.8,"AC",1,109)=""
^XMB(3.8,"AC",1,110)=""
^XMB(3.8,"AC",1,111)=""
^XMB(3.8,"AC",1,112)=""
^XMB(3.8,"AC",1,113)=""
^XMB(3.8,"AC",1,114)=""
^XMB(3.8,"AC",1,115)=""
^XMB(3.8,"AC",1,116)=""
^XMB(3.8,"AC",1,117)=""
^XMB(3.8,"AC",1,118)=""
^XMB(3.8,"AC",1,120)=""
^XMB(3.8,"AC",1,121)=""
^XMB(3.8,"AC",1,122)=""
^XMB(3.8,"AC",1,123)=""
^XMB(3.8,"AC",1,124)=""
^XMB(3.8,"AC",1,134)=""
^XMB(3.8,"AC",1,135)=""
^XMB(3.8,"AC",1,136)=""
^XMB(3.8,"AC",1,137)=""
^XMB(3.8,"AC",1,138)=""
^XMB(3.8,"AC",1,139)=""
^XMB(3.8,"AC",1,140)=""
^XMB(3.8,"AC",1,142)=""
^XMB(3.8,"AC",1,143)=""
^XMB(3.8,"AC",1,144)=""
^XMB(3.8,"AC",1,145)=""
^XMB(3.8,"AC",1,146)=""
^XMB(3.8,"AC",1,147)=""
^XMB(3.8,"AC",1,148)=""
^XMB(3.8,"AC",1,149)=""
^XMB(3.8,"AC",1,150)=""
^XMB(3.8,"AC",1,151)=""
^XMB(3.8,"AC",1,152)=""
^XMB(3.8,"AC",1,153)=""
^XMB(3.8,"AC",1,154)=""
^XMB(3.8,"AC",1,155)=""
^XMB(3.8,"AC",1,156)=""
^XMB(3.8,"AC",1,157)=""
^XMB(3.8,"AC",1,158)=""
^XMB(3.8,"AC",1,159)=""
^XMB(3.8,"AC",1,160)=""
^XMB(3.8,"AC",1,161)=""
^XMB(3.8,"AC",1,162)=""
^XMB(3.8,"AC",1,163)=""
^XMB(3.8,"AC",1,164)=""
^XMB(3.8,"AC",1,165)=""
^XMB(3.8,"AC",1,166)=""
^XMB(3.8,"AC",1,167)=""
^XMB(3.8,"AC",1,168)=""
^XMB(3.8,"AC",1,169)=""
^XMB(3.8,"AC",1,170)=""
^XMB(3.8,"AC",1,171)=""
^XMB(3.8,"AC",1,172)=""
^XMB(3.8,"AC",1,173)=""
^XMB(3.8,"AC",1,174)=""
^XMB(3.8,"AC",1,175)=""
^XMB(3.8,"AC",1,176)=""
^XMB(3.8,"AC",1,177)=""
^XMB(3.8,"AC",1,178)=""
^XMB(3.8,"AC",1,179)=""
^XMB(3.8,"AC",1,180)=""
^XMB(3.8,"AC",1,181)=""
^XMB(3.8,"AC",1,182)=""
^XMB(3.8,"AC",1,183)=""
^XMB(3.8,"AC",1,184)=""
^XMB(3.8,"AC",1,185)=""
^XMB(3.8,"AC",1,186)=""
^XMB(3.8,"AC",1,187)=""
^XMB(3.8,"AC",1,188)=""
^XMB(3.8,"AC",1,189)=""
^XMB(3.8,"AC",1,190)=""
^XMB(3.8,"AC",1,191)=""
^XMB(3.8,"AC",1,192)=""
^XMB(3.8,"AC",1,193)=""
^XMB(3.8,"AC",1,194)=""
^XMB(3.8,"AC",1,195)=""
^XMB(3.8,"AC",1,196)=""
^XMB(3.8,"AC",1,197)=""
^XMB(3.8,"AC",1,198)=""
^XMB(3.8,"AC",1,199)=""
^XMB(3.8,"AC",1,200)=""
^XMB(3.8,"AC",1,211)=""
^XMB(3.8,"AC",1,236)=""
^XMB(3.8,"AC",1,237)=""
^XMB(3.8,"AC",1,238)=""
^XMB(3.8,"AC",1,239)=""
^XMB(3.8,"AC",1,241)=""
^XMB(3.8,"AC",1,242)=""
^XMB(3.8,"AC",1,244)=""
^XMB(3.8,"AC",1,245)=""
^XMB(3.8,"AC",1,246)=""
^XMB(3.8,"AC",8,212)=""
^XMB(3.8,"AC",8,213)=""
^XMB(3.8,"AC",8,214)=""
^XMB(3.8,"AC",8,215)=""
^XMB(3.8,"AC",8,233)=""
^XMB(3.8,"AC",8,234)=""
^XMB(3.8,"AC",8,235)=""
^XMB(3.8,"AC",9,209)=""
^XMB(3.8,"AC",9,210)=""
^XMB(3.8,"AC",11,232)=""
^XMB(3.8,"AC",56,206)=""
^XMB(3.8,"AC",65,216)=""
^XMB(3.8,"AC",65,217)=""
^XMB(3.8,"AC",65,219)=""
^XMB(3.8,"AC",65,220)=""
^XMB(3.8,"AC",65,221)=""
^XMB(3.8,"AC",65,222)=""
^XMB(3.8,"AC",65,223)=""
^XMB(3.8,"AC",65,224)=""
^XMB(3.8,"AC",65,225)=""
^XMB(3.8,"AC",65,226)=""
^XMB(3.8,"AC",65,227)=""
^XMB(3.8,"AC",65,228)=""
^XMB(3.8,"AC",65,229)=""
^XMB(3.8,"AC",65,230)=""
^XMB(3.8,"AC",65,231)=""
^XMB(3.8,"B","ABSV BETA",80)=""
^XMB(3.8,"B","ABSV TEST SITES",79)=""
^XMB(3.8,"B","AFJX PATID FILTER BLOCK",144)=""
^XMB(3.8,"B","BCC",130)=""
^XMB(3.8,"B","BPS OPECC",235)=""
^XMB(3.8,"B","CARELIFE RESULT ERROR",118)=""
^XMB(3.8,"B","DG DAILY ADDRESS CHANGE",185)=""
^XMB(3.8,"B","DG ISO SENSITIVE RCDS",216)=""
^XMB(3.8,"B","DG MISSING NEW PERSON SSN",113)=""
^XMB(3.8,"B","DG PTF 801 TO PCE ERROR",217)=""
^XMB(3.8,"B","DG REGISTER ONCE",187)=""
^XMB(3.8,"B","DGEN EGT UPDATES",109)=""
^XMB(3.8,"B","DGEN ELIGIBILITY ALERT",92)=""
^XMB(3.8,"B","DGMPRNOTIFICATIONS",156)=""
^XMB(3.8,"B","DGMST TO NPCD",102)=""
^XMB(3.8,"B","DGMT MT/CT UPLOAD ALERTS",114)=""
^XMB(3.8,"B","DGPF BEHAVIORAL FLAG REVIEW",175)=""
^XMB(3.8,"B","DGPF HL7 TRANSMISSION ERRORS",176)=""
^XMB(3.8,"B","DGPRE PRE-REG STAFF",45)=""
^XMB(3.8,"B","DGQE HL7 TRANSMISSION ERRORS",198)=""
^XMB(3.8,"B","DGRU ADT/HL7",122)=""
^XMB(3.8,"B","DGRU RAI NOTIFICATION",123)=""
^XMB(3.8,"B","DMR",53)=""
^XMB(3.8,"B","DMS",72)=""
^XMB(3.8,"B","DMT",73)=""
^XMB(3.8,"B","DMU",74)=""
^XMB(3.8,"B","DMV",75)=""
^XMB(3.8,"B","DMW",76)=""
^XMB(3.8,"B","DMX",52)=""
^XMB(3.8,"B","DSS-ADMS",56)=""
^XMB(3.8,"B","DSS-DENT",57)=""
^XMB(3.8,"B","DSS-EC",58)=""
^XMB(3.8,"B","DSS-IV",69)=""
^XMB(3.8,"B","DSS-LAB",59)=""
^XMB(3.8,"B","DSS-LBB",203)=""
^XMB(3.8,"B","DSS-MOVS",60)=""
^XMB(3.8,"B","DSS-MTL",116)=""
^XMB(3.8,"B","DSS-NURS",61)=""
^XMB(3.8,"B","DSS-NUT",237)=""
^XMB(3.8,"B","DSS-PAI",71)=""
^XMB(3.8,"B","DSS-PRES",62)=""
^XMB(3.8,"B","DSS-PRO",89)=""
^XMB(3.8,"B","DSS-QSR",63)=""
^XMB(3.8,"B","DSS-RAD",64)=""
^XMB(3.8,"B","DSS-SCNS",65)=""
^XMB(3.8,"B","DSS-SCX",66)=""
^XMB(3.8,"B","DSS-SURG",67)=""
^XMB(3.8,"B","DSS-TREAT",70)=""
^XMB(3.8,"B","DSS-UD",68)=""
^XMB(3.8,"B","DVBHINQ",18)=""
^XMB(3.8,"B","EAS MEANS TEST SIGNATURE",145)=""
^XMB(3.8,"B","EAS MTLETTERS",155)=""
^XMB(3.8,"B","EDP",36)=""
^XMB(3.8,"B","EN PROJECTS",2)=""
^XMB(3.8,"B","EPI",39)=""
^XMB(3.8,"B","EPI-REPORT",40)=""
^XMB(3.8,"B","ERRORS",201)=""
^XMB(3.8,"B","FAM",3)=""
^XMB(3.8,"B","FISCAL NOTIFICATION",128)=""
^XMB(3.8,"B","FMS",126)=""
^XMB(3.8,"B","GEC2 NATIONAL ROLLUP",211)=""
^XMB(3.8,"B","GMPL CODE SET VERSION UPDATES",178)=""
^XMB(3.8,"B","GMRA MARK CHART",7)=""
^XMB(3.8,"B","GMRA P&T COMMITTEE FDA",11)=""
^XMB(3.8,"B","GMRA REQUEST NEW REACTANT",190)=""
^XMB(3.8,"B","GMRA VERIFY DRUG ALLERGY",8)=""
^XMB(3.8,"B","GMRA VERIFY FOOD ALLERGY",9)=""
^XMB(3.8,"B","GMRA VERIFY OTHER ALLERGY",10)=""
^XMB(3.8,"B","HDIS ERRORS",213)=""
^XMB(3.8,"B","HDIS ERT NOTIFICATION",214)=""
^XMB(3.8,"B","HDIS HDR NOTIFICATION",215)=""
^XMB(3.8,"B","HLEV EVENT MONITOR",193)=""
^XMB(3.8,"B","HLEV SERVER",194)=""
^XMB(3.8,"B","IB CHAMP RX REJ",49)=""
^XMB(3.8,"B","IB CHAMP RX REV",50)=""
^XMB(3.8,"B","IB CHAMP RX START",51)=""
^XMB(3.8,"B","IB COMBAT VET RX COPAY",186)=""
^XMB(3.8,"B","IB EDI",153)=""
^XMB(3.8,"B","IB EDI SUPERVISOR",154)=""
^XMB(3.8,"B","IB LTC 1010EC MISSING",160)=""
^XMB(3.8,"B","IB LTC BACK BILLING",161)=""
^XMB(3.8,"B","IB MEANS TEST",202)=""
^XMB(3.8,"B","IB NEW INSURANCE",4)=""
^XMB(3.8,"B","IB RX COPAY CAP ERROR",137)=""
^XMB(3.8,"B","IB UNBILLED AMOUNTS",5)=""
^XMB(3.8,"B","IBB PFSS CHARGE ERRORS",228)=""
^XMB(3.8,"B","IBB PFSS DATA TRANS ERROR",227)=""
^XMB(3.8,"B","IBCI COMMUNICATION ERROR",158)=""
^XMB(3.8,"B","IBCI GENERAL ERROR",157)=""
^XMB(3.8,"B","IBCNE IIV MESSAGE",177)=""
^XMB(3.8,"B","IBCNR EPHARM",246)=""
^XMB(3.8,"B","IBQ ROLLUP",21)=""
^XMB(3.8,"B","IFC CLIN ERRORS",151)=""
^XMB(3.8,"B","IFC PATIENT ERROR MESSAGES",150)=""
^XMB(3.8,"B","IFC TECH ERRORS",152)=""
^XMB(3.8,"B","IHD",210)=""
^XMB(3.8,"B","IHD SEND",209)=""
^XMB(3.8,"B","IPA",91)=""
^XMB(3.8,"B","IRM STAFF",240)=""
^XMB(3.8,"B","ISM",125)=""
^XMB(3.8,"B","IVM ADDR UPDT REPORT",192)=""
^XMB(3.8,"B","IVM MESSAGES",23)=""
^XMB(3.8,"B","IVM TRANSMISSIONS",22)=""
^XMB(3.8,"B","IVMB HEC MPI NOTIFICATION",159)=""
^XMB(3.8,"B","IVMB HEC VSE NOTIFICATION",142)=""
^XMB(3.8,"B","KMP-CAPMAN",98)=""
^XMB(3.8,"B","LAB MESSAGING",78)=""
^XMB(3.8,"B","LAB REPORT",46)=""
^XMB(3.8,"B","LMI",119)=""
^XMB(3.8,"B","LOG",132)=""
^XMB(3.8,"B","LR NCH",87)=""
^XMB(3.8,"B","LR NCH-REPORT",88)=""
^XMB(3.8,"B","MAG SERVER",141)=""
^XMB(3.8,"B","MC MESSAGING SERVER",24)=""
^XMB(3.8,"B","MCH",206)=""
^XMB(3.8,"B","MD DEVICE ERRORS",197)=""
^XMB(3.8,"B","MLB",183)=""
^XMB(3.8,"B","MPIF CMOR REQUEST",107)=""
^XMB(3.8,"B","MPIF EXCEPTIONS",108)=""
^XMB(3.8,"B","MPIF HL7 GROUP",106)=""
^XMB(3.8,"B","MT INCONSISTENCIES",169)=""
^XMB(3.8,"B","NDF DATA",42)=""
^XMB(3.8,"B","NPI EXTRACT VERIFICATION",243)=""
^XMB(3.8,"B","NPTF HL7 MESSAGES",90)=""
^XMB(3.8,"B","NURS-ADP",20)=""
^XMB(3.8,"B","OCX DEVELOPERS",100)=""
^XMB(3.8,"B","OFFLINE IMAGE TRACKERS",140)=""
^XMB(3.8,"B","OGR AUSTIN MESSAGES",129)=""
^XMB(3.8,"B","OOPS EH",83)=""
^XMB(3.8,"B","OOPS INJURY",82)=""
^XMB(3.8,"B","OOPS ISO NOTIFICATION",180)=""
^XMB(3.8,"B","OOPS NDB MESSAGES",117)=""
^XMB(3.8,"B","OOPS SAFETY",81)=""
^XMB(3.8,"B","OOPS UNION",84)=""
^XMB(3.8,"B","OOPS WC MESSAGE",136)=""
^XMB(3.8,"B","OOPS WCP",135)=""
^XMB(3.8,"B","OR DRUG ORDER CANCELLED",232)=""
^XMB(3.8,"B","ORCM CSV EVENT",179)=""
^XMB(3.8,"B","PATCHES",218)=""
^XMB(3.8,"B","PATIENT SAFETY NOTIFICATIONS",162)=""
^XMB(3.8,"B","PCMM AUSTIN REPORTS",111)=""
^XMB(3.8,"B","PCMM HL7 MESSAGES",112)=""
^XMB(3.8,"B","PCMM PATIENT/PROVIDER INACTIVE",238)=""
^XMB(3.8,"B","PCMM TRANSMISSION ERRORS",121)=""
^XMB(3.8,"B","PCMM WORKLOAD FTEE MAIL GROUP",165)=""
^XMB(3.8,"B","PHARMACY PRIME VENDOR",94)=""
^XMB(3.8,"B","POSTMASTER",1)=""
^XMB(3.8,"B","PRC",131)=""
^XMB(3.8,"B","PRCHQ RFQ",35)=""
^XMB(3.8,"B","PRCPLO CLRS NOTIFICATIONS",226)=""
^XMB(3.8,"B","PRCV Audit File Alerts",225)=""
^XMB(3.8,"B","PRCV Item Vendor Edits",224)=""
^XMB(3.8,"B","PRESCRIPTION PRACTICES",17)=""
^XMB(3.8,"B","PRPF BULLETINS",44)=""
^XMB(3.8,"B","PSA NDC UPDATES",146)=""
^XMB(3.8,"B","PSA REORDER LEVEL",147)=""
^XMB(3.8,"B","PSB BCBU ERRORS",173)=""
^XMB(3.8,"B","PSJ STAT NOW ACTIVE ORDER",208)=""
^XMB(3.8,"B","PSJ STAT NOW PENDING ORDER",207)=""
^XMB(3.8,"B","PSJ-ORDERS REINSTATED",93)=""
^XMB(3.8,"B","PSO EXTERNAL DISPENSE ALERTS",239)=""
^XMB(3.8,"B","PSO TPB GROUP",191)=""
^XMB(3.8,"B","PSO TPB HL7 EXTRACT",189)=""
^XMB(3.8,"B","PSOCLOZ",6)=""
^XMB(3.8,"B","PSU PBM",223)=""
^XMB(3.8,"B","RAD PERFORMANCE INDICATOR",171)=""
^XMB(3.8,"B","RC AR DATA COLLECTOR",101)=""
^XMB(3.8,"B","RC RC REFERRALS",43)=""
^XMB(3.8,"B","RC REPAY PLANS",134)=""
^XMB(3.8,"B","RCDP PAYMENTS",115)=""
^XMB(3.8,"B","RCDPE PAYMENTS",181)=""
^XMB(3.8,"B","RCDPE PAYMENTS EXCEPTIONS",184)=""
^XMB(3.8,"B","RCDPE PAYMENTS MGMT",182)=""
^XMB(3.8,"B","RCXVFTP",200)=""
^XMB(3.8,"B","RG CIRN DEMOGRAPHIC ISSUES",104)=""
^XMB(3.8,"B","RG CIRN HL7 PROBLEMS",105)=""
^XMB(3.8,"B","RHC",30)=""
^XMB(3.8,"B","RMIM FSOD",166)=""
^XMB(3.8,"B","RMIM FSOD TRANSMISSION",167)=""
^XMB(3.8,"B","RMIM MAIL SERVER",168)=""
^XMB(3.8,"B","RMPF ROES UPDATES (ASPS)",33)=""
^XMB(3.8,"B","RMPF ROES UPDATES (PSAS)",34)=""
^XMB(3.8,"B","RMPF-FILE-UPDATE",32)=""
^XMB(3.8,"B","RMPR INVENTORY",99)=""
^XMB(3.8,"B","RMPR PCE",149)=""
^XMB(3.8,"B","SC CLINIC WAIT TIME",103)=""
^XMB(3.8,"B","SC CWT EXTRACT MONITOR",143)=""
^XMB(3.8,"B","SCD-NAT-DATABASE",110)=""
^XMB(3.8,"B","SCDX AMBCARE TO NPCDB",25)=""
^XMB(3.8,"B","SCMC PCMM REASSIGNMENT",97)=""
^XMB(3.8,"B","SD ENC PERF MON",195)=""
^XMB(3.8,"B","SD EWL BACKGROUND UPDATE",221)=""
^XMB(3.8,"B","SD PM NOTIFICATION",19)=""
^XMB(3.8,"B","SD PM NOTIFICATION TIU",196)=""
^XMB(3.8,"B","SD RSA API ERRORS",230)=""
^XMB(3.8,"B","SD WAIT LIST TRANS TO AAC",164)=""
^XMB(3.8,"B","SD-PAIT",188)=""
^XMB(3.8,"B","SDSC NIGHTLY TALLY",245)=""
^XMB(3.8,"B","SDWL-TRANSFER-ADMIN",222)=""
^XMB(3.8,"B","SPNL SCD COORDINATOR",86)=""
^XMB(3.8,"B","SR CONSULT",236)=""
^XMB(3.8,"B","SR-QUARTERLY",41)=""
^XMB(3.8,"B","SRHL DISCREPANCY",85)=""
^XMB(3.8,"B","SUPPLY NOTIFICATION",127)=""
^XMB(3.8,"B","SWM",31)=""
^XMB(3.8,"B","SWS",29)=""
^XMB(3.8,"B","TIU CACS",244)=""
^XMB(3.8,"B","TIU MIS ALERTS",231)=""
^XMB(3.8,"B","TOP",120)=""
^XMB(3.8,"B","VA1010EZ",133)=""
^XMB(3.8,"B","VAFH ADT/HL7",77)=""
^XMB(3.8,"B","VAP",28)=""
^XMB(3.8,"B","VAQ MANUAL PROCESSING",13)=""
^XMB(3.8,"B","VAQ PDX ERRORS",12)=""
^XMB(3.8,"B","VAQ UNSOLICITED RECEIVED",14)=""
^XMB(3.8,"B","VDEF NATIONAL ALERTS",229)=""
^XMB(3.8,"B","VIC",37)=""
^XMB(3.8,"B","XIP POSTAL CODE UPDATE",242)=""
^XMB(3.8,"B","XIP SERVER RESPONSE",233)=""
^XMB(3.8,"B","XM SUPER SEARCH",124)=""
^XMB(3.8,"B","XQAL UNPROCESSED ALERTS",199)=""
^XMB(3.8,"B","XTPM PATCH MONITOR",219)=""
^XMB(3.8,"B","XTPM PATCH MONITOR USER",220)=""
^XMB(3.8,"B","XUHUI CHANGE EVENT",163)=""
^XMB(3.8,"B","XUMF ERROR",212)=""
^XMB(3.8,"B","XUMF INSTITUTION",139)=""
^XMB(3.8,"B","XUMF NPI",241)=""
^XMB(3.8,"B","XUMF SERVER",138)=""
^XMB(3.8,"B","XUOAA CLIN TRAINEE",170)=""
^XMB(3.8,"B","XUOAA CLIN TRAINEE TRANS",174)=""
^XMB(3.8,"B","XUSEC/PRS PAID SEPARATION",234)=""
^XMB(3.8,"B","XUSSPKI CRL SERVER",172)=""
^XMB(3.8,"B","YS ASI PERFORMANCE MEASURES",148)=""
^XMB(3.8,"B","YS GAF TO NPCD",95)=""
^XMB(3.8,"B","YS GAF TRANSMISSION ACK",96)=""
^XMB(3.816,0)="DISTRIBUTION LIST^3.816^^"
^XMB(3.9,0)="MESSAGE^3.9s^373^373"
^XMB(3.9,1,0)="DG-5P3_SEQ-614_PAT-704.KID^.5^3061008.01573^^^^K"
^XMB(3.9,1,.6)="3061008"
^XMB(3.9,1,1,0)="^3.91A^2^2"
^XMB(3.9,1,1,1,0)=".5^0^3061008.01573^^^^^^^3061008.01573"
^XMB(3.9,1,1,2,0)="1^0^3061008.023005^^^^^^^3061008.023005"
^XMB(3.9,1,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,1,1,"C",.5,1)=""
^XMB(3.9,1,1,"C",1,2)=""
^XMB(3.9,1,2,0)="^^295^295^3061008"
^XMB(3.9,1,2,1,0)="$TXT Released DG*5.3*704 SEQ #614"
^XMB(3.9,1,2,2,0)="Extracted from mail message"
^XMB(3.9,1,2,3,0)="$END TXT"
^XMB(3.9,1,2,4,0)="$KID DG*5.3*704"
^XMB(3.9,1,2,5,0)="**INSTALL NAME**"
^XMB(3.9,1,2,6,0)="DG*5.3*704"
^XMB(3.9,1,2,7,0)="""BLD"",6619,0)"
^XMB(3.9,1,2,8,0)="DG*5.3*704^REGISTRATION^0^3060309^y"
^XMB(3.9,1,2,9,0)="""BLD"",6619,4,0)"
^XMB(3.9,1,2,10,0)="^9.64PA^^"
^XMB(3.9,1,2,11,0)="""BLD"",6619,""KRN"",0)"
^XMB(3.9,1,2,12,0)="^9.67PA^8989.52^19"
^XMB(3.9,1,2,13,0)="""BLD"",6619,""KRN"",.4,0)"
^XMB(3.9,1,2,14,0)=".4"
^XMB(3.9,1,2,15,0)="""BLD"",6619,""KRN"",.401,0)"
^XMB(3.9,1,2,16,0)=".401"
^XMB(3.9,1,2,17,0)="""BLD"",6619,""KRN"",.402,0)"
^XMB(3.9,1,2,18,0)=".402"
^XMB(3.9,1,2,19,0)="""BLD"",6619,""KRN"",.403,0)"
^XMB(3.9,1,2,20,0)=".403"
^XMB(3.9,1,2,21,0)="""BLD"",6619,""KRN"",.5,0)"
^XMB(3.9,1,2,22,0)=".5"
^XMB(3.9,1,2,23,0)="""BLD"",6619,""KRN"",.84,0)"
^XMB(3.9,1,2,24,0)=".84"
^XMB(3.9,1,2,25,0)="""BLD"",6619,""KRN"",3.6,0)"
^XMB(3.9,1,2,26,0)="3.6"
^XMB(3.9,1,2,27,0)="""BLD"",6619,""KRN"",3.8,0)"
^XMB(3.9,1,2,28,0)="3.8"
^XMB(3.9,1,2,29,0)="""BLD"",6619,""KRN"",9.2,0)"
^XMB(3.9,1,2,30,0)="9.2"
^XMB(3.9,1,2,31,0)="""BLD"",6619,""KRN"",9.8,0)"
^XMB(3.9,1,2,32,0)="9.8"
^XMB(3.9,1,2,33,0)="""BLD"",6619,""KRN"",9.8,""NM"",0)"
^XMB(3.9,1,2,34,0)="^9.68A^1^1"
^XMB(3.9,1,2,35,0)="""BLD"",6619,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,1,2,36,0)="DGPTFIC^^0^B27579936"
^XMB(3.9,1,2,37,0)="""BLD"",6619,""KRN"",9.8,""NM"",""B"",""DGPTFIC"",1)"
^XMB(3.9,1,2,38,0)=""
^XMB(3.9,1,2,39,0)="""BLD"",6619,""KRN"",19,0)"
^XMB(3.9,1,2,40,0)="19"
^XMB(3.9,1,2,41,0)="""BLD"",6619,""KRN"",19.1,0)"
^XMB(3.9,1,2,42,0)="19.1"
^XMB(3.9,1,2,43,0)="""BLD"",6619,""KRN"",101,0)"
^XMB(3.9,1,2,44,0)="101"
^XMB(3.9,1,2,45,0)="""BLD"",6619,""KRN"",409.61,0)"
^XMB(3.9,1,2,46,0)="409.61"
^XMB(3.9,1,2,47,0)="""BLD"",6619,""KRN"",771,0)"
^XMB(3.9,1,2,48,0)="771"
^XMB(3.9,1,2,49,0)="""BLD"",6619,""KRN"",870,0)"
^XMB(3.9,1,2,50,0)="870"
^XMB(3.9,1,2,51,0)="""BLD"",6619,""KRN"",8989.51,0)"
^XMB(3.9,1,2,52,0)="8989.51"
^XMB(3.9,1,2,53,0)="""BLD"",6619,""KRN"",8989.52,0)"
^XMB(3.9,1,2,54,0)="8989.52"
^XMB(3.9,1,2,55,0)="""BLD"",6619,""KRN"",8994,0)"
^XMB(3.9,1,2,56,0)="8994"
^XMB(3.9,1,2,57,0)="""BLD"",6619,""KRN"",""B"",.4,.4)"
^XMB(3.9,1,2,58,0)=""
^XMB(3.9,1,2,59,0)="""BLD"",6619,""KRN"",""B"",.401,.401)"
^XMB(3.9,1,2,60,0)=""
^XMB(3.9,1,2,61,0)="""BLD"",6619,""KRN"",""B"",.402,.402)"
^XMB(3.9,1,2,62,0)=""
^XMB(3.9,1,2,63,0)="""BLD"",6619,""KRN"",""B"",.403,.403)"
^XMB(3.9,1,2,64,0)=""
^XMB(3.9,1,2,65,0)="""BLD"",6619,""KRN"",""B"",.5,.5)"
^XMB(3.9,1,2,66,0)=""
^XMB(3.9,1,2,67,0)="""BLD"",6619,""KRN"",""B"",.84,.84)"
^XMB(3.9,1,2,68,0)=""
^XMB(3.9,1,2,69,0)="""BLD"",6619,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,1,2,70,0)=""
^XMB(3.9,1,2,71,0)="""BLD"",6619,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,1,2,72,0)=""
^XMB(3.9,1,2,73,0)="""BLD"",6619,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,1,2,74,0)=""
^XMB(3.9,1,2,75,0)="""BLD"",6619,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,1,2,76,0)=""
^XMB(3.9,1,2,77,0)="""BLD"",6619,""KRN"",""B"",19,19)"
^XMB(3.9,1,2,78,0)=""
^XMB(3.9,1,2,79,0)="""BLD"",6619,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,1,2,80,0)=""
^XMB(3.9,1,2,81,0)="""BLD"",6619,""KRN"",""B"",101,101)"
^XMB(3.9,1,2,82,0)=""
^XMB(3.9,1,2,83,0)="""BLD"",6619,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,1,2,84,0)=""
^XMB(3.9,1,2,85,0)="""BLD"",6619,""KRN"",""B"",771,771)"
^XMB(3.9,1,2,86,0)=""
^XMB(3.9,1,2,87,0)="""BLD"",6619,""KRN"",""B"",870,870)"
^XMB(3.9,1,2,88,0)=""
^XMB(3.9,1,2,89,0)="""BLD"",6619,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,1,2,90,0)=""
^XMB(3.9,1,2,91,0)="""BLD"",6619,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,1,2,92,0)=""
^XMB(3.9,1,2,93,0)="""BLD"",6619,""KRN"",""B"",8994,8994)"
^XMB(3.9,1,2,94,0)=""
^XMB(3.9,1,2,95,0)="""BLD"",6619,""QUES"",0)"
^XMB(3.9,1,2,96,0)="^9.62^^"
^XMB(3.9,1,2,97,0)="""BLD"",6619,""REQB"",0)"
^XMB(3.9,1,2,98,0)="^9.611^1^1"
^XMB(3.9,1,2,99,0)="""BLD"",6619,""REQB"",1,0)"
^XMB(3.9,1,2,100,0)="DG*5.3*669^1"
^XMB(3.9,1,2,101,0)="""BLD"",6619,""REQB"",""B"",""DG*5.3*669"",1)"
^XMB(3.9,1,2,102,0)=""
^XMB(3.9,1,2,103,0)="""MBREQ"")"
^XMB(3.9,1,2,104,0)="0"
^XMB(3.9,1,2,105,0)="""PKG"",5,-1)"
^XMB(3.9,1,2,106,0)="1^1"
^XMB(3.9,1,2,107,0)="""PKG"",5,0)"
^XMB(3.9,1,2,108,0)="REGISTRATION^DG^PATIENT REGISTRATION, ADMISSION, DISCHARGE, EMBOSSER "
^XMB(3.9,1,2,109,0)="""PKG"",5,20,0)"
^XMB(3.9,1,2,110,0)="^9.402P^^"
^XMB(3.9,1,2,111,0)="""PKG"",5,22,0)"
^XMB(3.9,1,2,112,0)="^9.49I^1^1"
^XMB(3.9,1,2,113,0)="""PKG"",5,22,1,0)"
^XMB(3.9,1,2,114,0)="5.3^2930813"
^XMB(3.9,1,2,115,0)="""PKG"",5,22,1,""PAH"",1,0)"
^XMB(3.9,1,2,116,0)="704^3060309"
^XMB(3.9,1,2,117,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,1,2,118,0)="Y"
^XMB(3.9,1,2,119,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,1,2,120,0)="^D REP^XPDH"
^XMB(3.9,1,2,121,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,1,2,122,0)="Shall I write over your |FLAG| File"
^XMB(3.9,1,2,123,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,1,2,124,0)="YES"
^XMB(3.9,1,2,125,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,1,2,126,0)="D XPF1^XPDIQ"
^XMB(3.9,1,2,127,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,1,2,128,0)="Y"
^XMB(3.9,1,2,129,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,1,2,130,0)="^D DTA^XPDH"
^XMB(3.9,1,2,131,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,1,2,132,0)="Want my data |FLAG| yours"
^XMB(3.9,1,2,133,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,1,2,134,0)="YES"
^XMB(3.9,1,2,135,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,1,2,136,0)="D XPF2^XPDIQ"
^XMB(3.9,1,2,137,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,1,2,138,0)="YO"
^XMB(3.9,1,2,139,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,1,2,140,0)="^D INHIBIT^XPDH"
^XMB(3.9,1,2,141,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,1,2,142,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,1,2,143,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,1,2,144,0)="YES"
^XMB(3.9,1,2,145,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,1,2,146,0)="D XPI1^XPDIQ"
^XMB(3.9,1,2,147,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,1,2,148,0)="PO^VA(200,:EM"
^XMB(3.9,1,2,149,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,1,2,150,0)="^D MG^XPDH"
^XMB(3.9,1,2,151,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,1,2,152,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,1,2,153,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,1,2,154,0)=""
^XMB(3.9,1,2,155,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,1,2,156,0)="D XPM1^XPDIQ"
^XMB(3.9,1,2,157,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,1,2,158,0)="Y"
^XMB(3.9,1,2,159,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,1,2,160,0)="^D MENU^XPDH"
^XMB(3.9,1,2,161,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,1,2,162,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,1,2,163,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,1,2,164,0)="YES"
^XMB(3.9,1,2,165,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,1,2,166,0)="D XPO1^XPDIQ"
^XMB(3.9,1,2,167,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,1,2,168,0)="Y"
^XMB(3.9,1,2,169,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,1,2,170,0)="^D OPT^XPDH"
^XMB(3.9,1,2,171,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,1,2,172,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,1,2,173,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,1,2,174,0)="YES"
^XMB(3.9,1,2,175,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,1,2,176,0)="D XPZ1^XPDIQ"
^XMB(3.9,1,2,177,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,1,2,178,0)="Y"
^XMB(3.9,1,2,179,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,1,2,180,0)="^D RTN^XPDH"
^XMB(3.9,1,2,181,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,1,2,182,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,1,2,183,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,1,2,184,0)="NO"
^XMB(3.9,1,2,185,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,1,2,186,0)="D XPZ2^XPDIQ"
^XMB(3.9,1,2,187,0)="""RTN"")"
^XMB(3.9,1,2,188,0)="1"
^XMB(3.9,1,2,189,0)="""RTN"",""DGPTFIC"")"
^XMB(3.9,1,2,190,0)="0^1^B27579936^B27517782"
^XMB(3.9,1,2,191,0)="""RTN"",""DGPTFIC"",1,0)"
^XMB(3.9,1,2,192,0)="DGPTFIC ;ALB/JDS/ADL - PTF CODE SEARCH ; 26 JAN 87 @0800 [7/12/04 2:53pm]"
^XMB(3.9,1,2,193,0)="""RTN"",""DGPTFIC"",2,0)"
^XMB(3.9,1,2,194,0)=" ;;5.3;Registration;**510,559,599,669,704**; Aug 13, 1993"
^XMB(3.9,1,2,195,0)="""RTN"",""DGPTFIC"",3,0)"
^XMB(3.9,1,2,196,0)=" ;;ADL;;Update for CSV Project;;Mar 25, 2003"
^XMB(3.9,1,2,197,0)="""RTN"",""DGPTFIC"",4,0)"
^XMB(3.9,1,2,198,0)="EN K DG1 S DGDAT=DT,DIC=""^ICD9("" S DIC(""S"")=""I $$ISVALID^ICDGTDRG(+Y,DT,9)"" G RANGE"
^XMB(3.9,1,2,199,0)="""RTN"",""DGPTFIC"",5,0)"
^XMB(3.9,1,2,200,0)="E9 K DIC S DHD=DHD_""  Diagnostic Code Search"""
^XMB(3.9,1,2,201,0)="""RTN"",""DGPTFIC"",6,0)"
^XMB(3.9,1,2,202,0)="F9 S DIS(0)=""I $D(^DGPT(D0,0)),$P(^(0),U,11)=1 S DG2=0,L=1,D1=+$O(^DGPT(D0,""""M"""",0)) X DIS(""""0AAA""""),DIS(""""0A"""") I DG2 S ^UTILITY($J,""""DG"""",0)=""""D"""""",DIS(""0A"")=""F E=0:0 X DIS(""""0AA"""") S D1=$O(^DGPT(D0,""""M"""",D1)) Q:D1'>0"""
^XMB(3.9,1,2,203,0)="""RTN"",""DGPTFIC"",7,0)"
^XMB(3.9,1,2,204,0)=" S DG9=$S('DGR:""I DG1[(U_$P(DG3,U,DGZD)_U)"",1:""S DG=$$ICDDX^ICDCODE(+$P(DG3,U,DGZD),$$GETDATE^ICDGTDRG(D0)) S DG4=$S(+DG>0&($P(DG,U,10)):$P(DG,U,2),1:"""""""")_""""!"""" I DG4]DG1&(DG6]DG4)"")"
^XMB(3.9,1,2,205,0)="""RTN"",""DGPTFIC"",8,0)"
^XMB(3.9,1,2,206,0)=" S XAA=""S DG2=DG2+1,^UTILITY($J,""""DG"""",D0,DG2)=$S(DGZD<11:DGZD-4,1:DGZD-5)_U_$P(DG3,U,10)_U_$P(DG3,U,DGZD)"""
^XMB(3.9,1,2,207,0)="""RTN"",""DGPTFIC"",9,0)"
^XMB(3.9,1,2,208,0)=" S DIS(""0AA"")=""I $D(^DGPT(D0,""""M"""",D1,0)) S DG3=^(0) F DGZD=5:1:15 ""_DG9_"" X XAA"""
^XMB(3.9,1,2,209,0)="""RTN"",""DGPTFIC"",10,0)"
^XMB(3.9,1,2,210,0)=" S XAAA=""S DG2=DG2+1,$P(^UTILITY($J,""""DG"""",D0,""""A""""),U,DGZD)=$P($$ICDDX^ICDCODE(+$P(DG3,U,DGZD),$$GETDATE^ICDGTDRG(D0)),U,2)"""
^XMB(3.9,1,2,211,0)="""RTN"",""DGPTFIC"",11,0)"
^XMB(3.9,1,2,212,0)=" S DIS(""0AAA"")=""I $D(^DGPT(D0,70)) S DG3=^(70) F DGZD=10,16:1:24 ""_DG9_"" X XAAA"""
^XMB(3.9,1,2,213,0)="""RTN"",""DGPTFIC"",12,0)"
^XMB(3.9,1,2,214,0)=" S L=0"
^XMB(3.9,1,2,215,0)="""RTN"",""DGPTFIC"",13,0)"
^XMB(3.9,1,2,216,0)="GO K DG9 W !,""Searching the PTF file  Select fields to sort by"",! S DIC=""^DGPT("",FLDS=""[DGICD]"",L=0 D EN1^DIP"
^XMB(3.9,1,2,217,0)="""RTN"",""DGPTFIC"",14,0)"
^XMB(3.9,1,2,218,0)="Q K DIS,DGZD,DGZJ,DINS,DXS,DTOUT,DG4,DGR,DIP,DP,%,DGZJJ,DGZT,DG1,DHD,I,J,DG2,DG3,DG5,DG6,DG7,DG8,DG9,D0,DJ,DTOT,FLDS,L,PROMPT,Z,X,DIC,X1,Y,XAA,XAAA,XAAAA Q"
^XMB(3.9,1,2,219,0)="""RTN"",""DGPTFIC"",15,0)"
^XMB(3.9,1,2,220,0)="EN1 ;"
^XMB(3.9,1,2,221,0)="""RTN"",""DGPTFIC"",16,0)"
^XMB(3.9,1,2,222,0)=" S DIC=""^ICD0("" S DIC(""S"")=""I $$ISVALID^ICDGTDRG(+Y,DT,0)"" G RANGE"
^XMB(3.9,1,2,223,0)="""RTN"",""DGPTFIC"",17,0)"
^XMB(3.9,1,2,224,0)="E0 K DIC S DHD=DHD_"" Surgical Code Search"""
^XMB(3.9,1,2,225,0)="""RTN"",""DGPTFIC"",18,0)"
^XMB(3.9,1,2,226,0)="F0 S DIS(0)=""I $D(^DGPT(D0,0)),$P(^(0),U,11)=1 S DG2=0,L=1 X:$D(^DGPT(D0,""""P"""")) DIS(""""0AAAA"""") S D1=+$O(^DGPT(D0,""""S"""",0)) X DIS(""""0AAA"""") X DIS(""""0A"""") I DG2 S ^UTILITY($J,""""DG"""",0)=""""P"""""""
^XMB(3.9,1,2,227,0)="""RTN"",""DGPTFIC"",19,0)"
^XMB(3.9,1,2,228,0)=" S DIS(""0A"")=""F E=0:0 X DIS(""""0AA"""") S D1=$O(^DGPT(D0,""""S"""",D1)) Q:D1'>0"""
^XMB(3.9,1,2,229,0)="""RTN"",""DGPTFIC"",20,0)"
^XMB(3.9,1,2,230,0)=" S DG9=$S('DGR:""I DG1[(U_$P(DG3,U,DGZD)_U)"",1:""S DG=$$ICDOP^ICDCODE(+$P(DG3,U,DGZD),$$GETDATE^ICDGTDRG(D0)) S DG4=$S(+DG>0&($P(DG,U,10)):$P(DG,U,2),1:"""""""")_""""!"""" I DG4]DG1&(DG6]DG4)"")"
^XMB(3.9,1,2,231,0)="""RTN"",""DGPTFIC"",21,0)"
^XMB(3.9,1,2,232,0)=" S XAA=""S DG2=DG2+1,^UTILITY($J,""""DG"""",D0,DG2)=(DGZD-7)_U_$P(DG3,U,1)_U_$P(DG3,U,DGZD)"""
^XMB(3.9,1,2,233,0)="""RTN"",""DGPTFIC"",22,0)"
^XMB(3.9,1,2,234,0)=" S DIS(""0AA"")=""I $D(^DGPT(D0,""""S"""",D1,0)) S DG3=^(0) F DGZD=8:1:12 ""_DG9_"" X XAA"""
^XMB(3.9,1,2,235,0)="""RTN"",""DGPTFIC"",23,0)"
^XMB(3.9,1,2,236,0)=" S XAAA=""S DG2=DG2+1,^UTILITY($J,""""DG"""",D0,DG2)=DGZD_U_U_$P(DG3,U,DGZD)"""
^XMB(3.9,1,2,237,0)="""RTN"",""DGPTFIC"",24,0)"
^XMB(3.9,1,2,238,0)=" S DIS(""0AAA"")=""I $D(^DGPT(D0,""""401P"""")) S DG3=^(""""401P"""") F DGZD=1:1:5 ""_DG9_"" X XAAA"""
^XMB(3.9,1,2,239,0)="""RTN"",""DGPTFIC"",25,0)"
^XMB(3.9,1,2,240,0)=" S XAAAA=""S DG2=DG2+1,^UTILITY($J,""""DG"""",D0,DG2)=(DGZD-4)_U_$P(DG3,U,1)_U_$P(DG3,U,DGZD)"""
^XMB(3.9,1,2,241,0)="""RTN"",""DGPTFIC"",26,0)"
^XMB(3.9,1,2,242,0)=" S DIS(""0AAAA"")=""F D1=0:0 S D1=$O(^DGPT(D0,""""P"""",D1)) Q:D1'>0  I $D(^DGPT(D0,""""P"""",D1,0)) S DG3=^(0) F DGZD=5:1:9 ""_DG9_"" X XAAAA"""
^XMB(3.9,1,2,243,0)="""RTN"",""DGPTFIC"",27,0)"
^XMB(3.9,1,2,244,0)=" S L=0"
^XMB(3.9,1,2,245,0)="""RTN"",""DGPTFIC"",28,0)"
^XMB(3.9,1,2,246,0)=" G GO"
^XMB(3.9,1,2,247,0)="""RTN"",""DGPTFIC"",29,0)"
^XMB(3.9,1,2,248,0)=" Q"
^XMB(3.9,1,2,249,0)="""RTN"",""DGPTFIC"",30,0)"
^XMB(3.9,1,2,250,0)="OUT S DGZJ=$X,DG2=$S(DGZT[""ICD"":""^ICD9("",1:""^ICD0(""),DIO=1"
^XMB(3.9,1,2,251,0)="""RTN"",""DGPTFIC"",31,0)"
^XMB(3.9,1,2,252,0)=" F I=0:0 S I=$O(^UTILITY($J,""DG"",D0,I)) Q:I'>0  S J=^(I),Y=$P($P(J,U,2),""."",1) X ^DD(""DD"") W:I>1 !?DGZJ W DGZT_$P(J,U,1)_""  ""_Y W ?DGZJ+23,$P(@(DG2_""$P(J,U,3)""_"",0)""),U,1) I DG5 S DJ=$S($D(DJ):DJ,1:0)+1,DTOT=1"
^XMB(3.9,1,2,253,0)="""RTN"",""DGPTFIC"",32,0)"
^XMB(3.9,1,2,254,0)=" Q:'$D(^UTILITY($J,""DG"",D0,""A""))  S J=^(""A"") F I=10,16:1:24 S K=$P(J,U,I) I K]"""" W !?DGZJ,$S(I=10:""DXLS"",1:""ICD ""_(I-14)),?DGZJ+23,K I DG5 S DJ=$S($D(DJ):DJ,1:0)+1,DTOT=1"
^XMB(3.9,1,2,255,0)="""RTN"",""DGPTFIC"",33,0)"
^XMB(3.9,1,2,256,0)=" Q"
^XMB(3.9,1,2,257,0)="""RTN"",""DGPTFIC"",34,0)"
^XMB(3.9,1,2,258,0)="DHD S PROMPT=""Then search for: "",DIC(""S"")=$S($G(DIC(""S""))="""":""I DG1'[(U_+Y_U)"",1:DIC(""S"")_""&(DG1'[(U_+Y_U))"")"
^XMB(3.9,1,2,259,0)="""RTN"",""DGPTFIC"",35,0)"
^XMB(3.9,1,2,260,0)=" I DG7=""Diagnosis"" F I=0:0 D ICDEN1^DGPTF5 Q:X=""""  S X=""`""_+Y D ^DIC Q:Y'>0  S DG1=DG1_+Y_U Q:$L(DG1)>235"
^XMB(3.9,1,2,261,0)="""RTN"",""DGPTFIC"",36,0)"
^XMB(3.9,1,2,262,0)=" E  F I=0:0 D ^DIC Q:Y'>0  S DG1=DG1_+Y_U Q:$L(DG1)>235"
^XMB(3.9,1,2,263,0)="""RTN"",""DGPTFIC"",37,0)"
^XMB(3.9,1,2,264,0)=" S DHD="""" F I=2:1 S DHD=DHD_$S(I'=2:"",  "",1:"""")_$P(@(DIC_""$P(DG1,U,I)""_"",0)""),U,1) Q:'$P(DG1,U,I+1)  I $L(DHD)>200 S DHD=DHD_""....."" Q"
^XMB(3.9,1,2,265,0)="""RTN"",""DGPTFIC"",38,0)"
^XMB(3.9,1,2,266,0)="C W !,""Total by PTF record or ICD count: P// "" S Z=""^PTF record^ICD count"" R X:DTIME G Q:X=U!'$T X:X="""" ""S X=""""P"""" W X"" D IN^DGHELP G H:%=-1 S DG5=$S(X=""I"":1,1:0) Q"
^XMB(3.9,1,2,267,0)="""RTN"",""DGPTFIC"",39,0)"
^XMB(3.9,1,2,268,0)="H W !!,""The search may have more than 1 match per PTF record"",!,""Type 'P' to total only PTF records"",!,""Type 'I' to total all matches"",! G C"
^XMB(3.9,1,2,269,0)="""RTN"",""DGPTFIC"",40,0)"
^XMB(3.9,1,2,270,0)="H1 W !!,""Type 'R' to specify a range of codes"",!,""     'E' to specify a series of codes to match exactly"",!"
^XMB(3.9,1,2,271,0)="""RTN"",""DGPTFIC"",41,0)"
^XMB(3.9,1,2,272,0)="RANGE S DIC(0)=""AMEQZ"" W !,""Search by Range or Exact match: E// "" S Z=""^RANGE^EXACT MATCH"" R X:DTIME G Q:X=U!'$T X:X="""" ""S X=""""E"""" W X"" D IN^DGHELP G H1:%=-1 S DGR=$S(X=""R"":1,1:0)"
^XMB(3.9,1,2,273,0)="""RTN"",""DGPTFIC"",42,0)"
^XMB(3.9,1,2,274,0)=" S DG7=$S(DIC[9:""Diagnosis"",1:""Surgical"") G E:'DGR"
^XMB(3.9,1,2,275,0)="""RTN"",""DGPTFIC"",43,0)"
^XMB(3.9,1,2,276,0)=" I DG7=""Diagnosis"" S DIC(0)=""XMQZ"",PROMPT=""Start with ""_DG7_"" code: "" D ICDEN1^DGPTF5 Q:X=""""  S X=""`""_+Y D ^DIC G Q:Y'>0 S DG1=$P(Y(0),U,1)_"" """
^XMB(3.9,1,2,277,0)="""RTN"",""DGPTFIC"",44,0)"
^XMB(3.9,1,2,278,0)=" E  S DIC(""A"")=""Start with ""_DG7_"" code: "" D ^DIC G Q:Y'>0 S DG1=$P(Y(0),U,1)_"" """
^XMB(3.9,1,2,279,0)="""RTN"",""DGPTFIC"",45,0)"
^XMB(3.9,1,2,280,0)="F I DG7=""Diagnosis"" S PROMPT=""Go to ""_DG7_"" code: "" D ICDEN1^DGPTF5 Q:X=""""  S X=""`""_+Y D ^DIC G Q:Y'>0 S DG6=$P(Y(0),U,1)_""! "" I DG6']DG1 W !,""Must be after start code"",! G F"
^XMB(3.9,1,2,281,0)="""RTN"",""DGPTFIC"",46,0)"
^XMB(3.9,1,2,282,0)=" E  S DIC(""A"")=""Go to ""_DG7_"" code: "" D ^DIC G Q:Y'>0 S DG6=$P(Y(0),U,1)_""! "" I DG6']DG1 W !,""Must be after start code"",! G F"
^XMB(3.9,1,2,283,0)="""RTN"",""DGPTFIC"",47,0)"
^XMB(3.9,1,2,284,0)=" S DHD=DG1_"" to ""_$P(DG6,""!"",1)_"" ""_DG7_"" Code Search"" D C G Q:'$D(X),@(""F""_$E(DIC,5))"
^XMB(3.9,1,2,285,0)="""RTN"",""DGPTFIC"",48,0)"
^XMB(3.9,1,2,286,0)=" Q"
^XMB(3.9,1,2,287,0)="""RTN"",""DGPTFIC"",49,0)"
^XMB(3.9,1,2,288,0)="E I DG7=""Diagnosis"" S DIC(0)=""XMQZ"",PROMPT=""Enter ""_DG7_"" Code to search for: "" D ICDEN1^DGPTF5 Q:X=""""  S X=""`""_+Y D ^DIC G Q:Y'>0 S DG1=U_+Y_U D DHD G Q:'$D(X),@(""E""_$E(DIC,5))"
^XMB(3.9,1,2,289,0)="""RTN"",""DGPTFIC"",50,0)"
^XMB(3.9,1,2,290,0)=" E  S PROMPT=""Enter ""_DG7_"" Code to search for: "" D ^DIC G Q:Y'>0 S DG1=U_+Y_U D DHD G Q:'$D(X),@(""E""_$E(DIC,5))"
^XMB(3.9,1,2,291,0)="""VER"")"
^XMB(3.9,1,2,292,0)="8.0^22.0"
^XMB(3.9,1,2,293,0)="""BLD"",6619,6)"
^XMB(3.9,1,2,294,0)="^614"
^XMB(3.9,1,2,295,0)="$END KID DG*5.3*704"
^XMB(3.9,1,6,0)="^3.911A^2^2"
^XMB(3.9,1,6,1,0)="POSTMASTER"
^XMB(3.9,1,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,1,6,"B","POSTMASTER",1)=""
^XMB(3.9,1,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,2,0)="DG-5P3_SEQ-617_PAT-703.KID^.5^3061008.01573^^^^K"
^XMB(3.9,2,.6)="3061008"
^XMB(3.9,2,1,0)="^3.91A^2^2"
^XMB(3.9,2,1,1,0)=".5^0^3061008.01573^^^^^^^3061008.01573"
^XMB(3.9,2,1,2,0)="1^0^3061008.023056^^^^^^^3061008.023056"
^XMB(3.9,2,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,2,1,"C",.5,1)=""
^XMB(3.9,2,1,"C",1,2)=""
^XMB(3.9,2,2,0)="^^659^659^3061008"
^XMB(3.9,2,2,1,0)="$TXT Released DG*5.3*703 SEQ #617"
^XMB(3.9,2,2,2,0)="Extracted from mail message"
^XMB(3.9,2,2,3,0)="$END TXT"
^XMB(3.9,2,2,4,0)="$KID DG*5.3*703"
^XMB(3.9,2,2,5,0)="**INSTALL NAME**"
^XMB(3.9,2,2,6,0)="DG*5.3*703"
^XMB(3.9,2,2,7,0)="""BLD"",6566,0)"
^XMB(3.9,2,2,8,0)="DG*5.3*703^REGISTRATION^0^3060411^y"
^XMB(3.9,2,2,9,0)="""BLD"",6566,4,0)"
^XMB(3.9,2,2,10,0)="^9.64PA^^0"
^XMB(3.9,2,2,11,0)="""BLD"",6566,""KRN"",0)"
^XMB(3.9,2,2,12,0)="^9.67PA^8989.52^19"
^XMB(3.9,2,2,13,0)="""BLD"",6566,""KRN"",.4,0)"
^XMB(3.9,2,2,14,0)=".4"
^XMB(3.9,2,2,15,0)="""BLD"",6566,""KRN"",.401,0)"
^XMB(3.9,2,2,16,0)=".401"
^XMB(3.9,2,2,17,0)="""BLD"",6566,""KRN"",.402,0)"
^XMB(3.9,2,2,18,0)=".402"
^XMB(3.9,2,2,19,0)="""BLD"",6566,""KRN"",.403,0)"
^XMB(3.9,2,2,20,0)=".403"
^XMB(3.9,2,2,21,0)="""BLD"",6566,""KRN"",.5,0)"
^XMB(3.9,2,2,22,0)=".5"
^XMB(3.9,2,2,23,0)="""BLD"",6566,""KRN"",.84,0)"
^XMB(3.9,2,2,24,0)=".84"
^XMB(3.9,2,2,25,0)="""BLD"",6566,""KRN"",3.6,0)"
^XMB(3.9,2,2,26,0)="3.6"
^XMB(3.9,2,2,27,0)="""BLD"",6566,""KRN"",3.8,0)"
^XMB(3.9,2,2,28,0)="3.8"
^XMB(3.9,2,2,29,0)="""BLD"",6566,""KRN"",9.2,0)"
^XMB(3.9,2,2,30,0)="9.2"
^XMB(3.9,2,2,31,0)="""BLD"",6566,""KRN"",9.8,0)"
^XMB(3.9,2,2,32,0)="9.8"
^XMB(3.9,2,2,33,0)="""BLD"",6566,""KRN"",9.8,""NM"",0)"
^XMB(3.9,2,2,34,0)="^9.68A^2^2"
^XMB(3.9,2,2,35,0)="""BLD"",6566,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,2,2,36,0)="DGRPD^^0^B65212310"
^XMB(3.9,2,2,37,0)="""BLD"",6566,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,2,2,38,0)="DGRPD1^^0^B5093592"
^XMB(3.9,2,2,39,0)="""BLD"",6566,""KRN"",9.8,""NM"",""B"",""DGRPD"",1)"
^XMB(3.9,2,2,40,0)=""
^XMB(3.9,2,2,41,0)="""BLD"",6566,""KRN"",9.8,""NM"",""B"",""DGRPD1"",2)"
^XMB(3.9,2,2,42,0)=""
^XMB(3.9,2,2,43,0)="""BLD"",6566,""KRN"",19,0)"
^XMB(3.9,2,2,44,0)="19"
^XMB(3.9,2,2,45,0)="""BLD"",6566,""KRN"",19.1,0)"
^XMB(3.9,2,2,46,0)="19.1"
^XMB(3.9,2,2,47,0)="""BLD"",6566,""KRN"",101,0)"
^XMB(3.9,2,2,48,0)="101"
^XMB(3.9,2,2,49,0)="""BLD"",6566,""KRN"",409.61,0)"
^XMB(3.9,2,2,50,0)="409.61"
^XMB(3.9,2,2,51,0)="""BLD"",6566,""KRN"",771,0)"
^XMB(3.9,2,2,52,0)="771"
^XMB(3.9,2,2,53,0)="""BLD"",6566,""KRN"",870,0)"
^XMB(3.9,2,2,54,0)="870"
^XMB(3.9,2,2,55,0)="""BLD"",6566,""KRN"",8989.51,0)"
^XMB(3.9,2,2,56,0)="8989.51"
^XMB(3.9,2,2,57,0)="""BLD"",6566,""KRN"",8989.52,0)"
^XMB(3.9,2,2,58,0)="8989.52"
^XMB(3.9,2,2,59,0)="""BLD"",6566,""KRN"",8994,0)"
^XMB(3.9,2,2,60,0)="8994"
^XMB(3.9,2,2,61,0)="""BLD"",6566,""KRN"",""B"",.4,.4)"
^XMB(3.9,2,2,62,0)=""
^XMB(3.9,2,2,63,0)="""BLD"",6566,""KRN"",""B"",.401,.401)"
^XMB(3.9,2,2,64,0)=""
^XMB(3.9,2,2,65,0)="""BLD"",6566,""KRN"",""B"",.402,.402)"
^XMB(3.9,2,2,66,0)=""
^XMB(3.9,2,2,67,0)="""BLD"",6566,""KRN"",""B"",.403,.403)"
^XMB(3.9,2,2,68,0)=""
^XMB(3.9,2,2,69,0)="""BLD"",6566,""KRN"",""B"",.5,.5)"
^XMB(3.9,2,2,70,0)=""
^XMB(3.9,2,2,71,0)="""BLD"",6566,""KRN"",""B"",.84,.84)"
^XMB(3.9,2,2,72,0)=""
^XMB(3.9,2,2,73,0)="""BLD"",6566,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,2,2,74,0)=""
^XMB(3.9,2,2,75,0)="""BLD"",6566,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,2,2,76,0)=""
^XMB(3.9,2,2,77,0)="""BLD"",6566,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,2,2,78,0)=""
^XMB(3.9,2,2,79,0)="""BLD"",6566,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,2,2,80,0)=""
^XMB(3.9,2,2,81,0)="""BLD"",6566,""KRN"",""B"",19,19)"
^XMB(3.9,2,2,82,0)=""
^XMB(3.9,2,2,83,0)="""BLD"",6566,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,2,2,84,0)=""
^XMB(3.9,2,2,85,0)="""BLD"",6566,""KRN"",""B"",101,101)"
^XMB(3.9,2,2,86,0)=""
^XMB(3.9,2,2,87,0)="""BLD"",6566,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,2,2,88,0)=""
^XMB(3.9,2,2,89,0)="""BLD"",6566,""KRN"",""B"",771,771)"
^XMB(3.9,2,2,90,0)=""
^XMB(3.9,2,2,91,0)="""BLD"",6566,""KRN"",""B"",870,870)"
^XMB(3.9,2,2,92,0)=""
^XMB(3.9,2,2,93,0)="""BLD"",6566,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,2,2,94,0)=""
^XMB(3.9,2,2,95,0)="""BLD"",6566,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,2,2,96,0)=""
^XMB(3.9,2,2,97,0)="""BLD"",6566,""KRN"",""B"",8994,8994)"
^XMB(3.9,2,2,98,0)=""
^XMB(3.9,2,2,99,0)="""BLD"",6566,""QUES"",0)"
^XMB(3.9,2,2,100,0)="^9.62^^"
^XMB(3.9,2,2,101,0)="""BLD"",6566,""REQB"",0)"
^XMB(3.9,2,2,102,0)="^9.611^1^1"
^XMB(3.9,2,2,103,0)="""BLD"",6566,""REQB"",1,0)"
^XMB(3.9,2,2,104,0)="DG*5.3*677^2"
^XMB(3.9,2,2,105,0)="""BLD"",6566,""REQB"",""B"",""DG*5.3*677"",1)"
^XMB(3.9,2,2,106,0)=""
^XMB(3.9,2,2,107,0)="""MBREQ"")"
^XMB(3.9,2,2,108,0)="0"
^XMB(3.9,2,2,109,0)="""PKG"",114,-1)"
^XMB(3.9,2,2,110,0)="1^1"
^XMB(3.9,2,2,111,0)="""PKG"",114,0)"
^XMB(3.9,2,2,112,0)="REGISTRATION^DG^PATIENT REGISTRATION, ADMISSION, DISCHARGE, EMBOSSER "
^XMB(3.9,2,2,113,0)="""PKG"",114,20,0)"
^XMB(3.9,2,2,114,0)="^9.402P^^"
^XMB(3.9,2,2,115,0)="""PKG"",114,22,0)"
^XMB(3.9,2,2,116,0)="^9.49I^1^1"
^XMB(3.9,2,2,117,0)="""PKG"",114,22,1,0)"
^XMB(3.9,2,2,118,0)="5.3^2930813^2930821"
^XMB(3.9,2,2,119,0)="""PKG"",114,22,1,""PAH"",1,0)"
^XMB(3.9,2,2,120,0)="703^3060411"
^XMB(3.9,2,2,121,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,2,2,122,0)="Y"
^XMB(3.9,2,2,123,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,2,2,124,0)="^D REP^XPDH"
^XMB(3.9,2,2,125,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,2,2,126,0)="Shall I write over your |FLAG| File"
^XMB(3.9,2,2,127,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,2,2,128,0)="YES"
^XMB(3.9,2,2,129,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,2,2,130,0)="D XPF1^XPDIQ"
^XMB(3.9,2,2,131,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,2,2,132,0)="Y"
^XMB(3.9,2,2,133,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,2,2,134,0)="^D DTA^XPDH"
^XMB(3.9,2,2,135,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,2,2,136,0)="Want my data |FLAG| yours"
^XMB(3.9,2,2,137,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,2,2,138,0)="YES"
^XMB(3.9,2,2,139,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,2,2,140,0)="D XPF2^XPDIQ"
^XMB(3.9,2,2,141,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,2,2,142,0)="YO"
^XMB(3.9,2,2,143,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,2,2,144,0)="^D INHIBIT^XPDH"
^XMB(3.9,2,2,145,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,2,2,146,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,2,2,147,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,2,2,148,0)="YES"
^XMB(3.9,2,2,149,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,2,2,150,0)="D XPI1^XPDIQ"
^XMB(3.9,2,2,151,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,2,2,152,0)="PO^VA(200,:EM"
^XMB(3.9,2,2,153,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,2,2,154,0)="^D MG^XPDH"
^XMB(3.9,2,2,155,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,2,2,156,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,2,2,157,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,2,2,158,0)=""
^XMB(3.9,2,2,159,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,2,2,160,0)="D XPM1^XPDIQ"
^XMB(3.9,2,2,161,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,2,2,162,0)="Y"
^XMB(3.9,2,2,163,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,2,2,164,0)="^D MENU^XPDH"
^XMB(3.9,2,2,165,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,2,2,166,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,2,2,167,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,2,2,168,0)="YES"
^XMB(3.9,2,2,169,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,2,2,170,0)="D XPO1^XPDIQ"
^XMB(3.9,2,2,171,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,2,2,172,0)="Y"
^XMB(3.9,2,2,173,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,2,2,174,0)="^D OPT^XPDH"
^XMB(3.9,2,2,175,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,2,2,176,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,2,2,177,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,2,2,178,0)="YES"
^XMB(3.9,2,2,179,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,2,2,180,0)="D XPZ1^XPDIQ"
^XMB(3.9,2,2,181,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,2,2,182,0)="Y"
^XMB(3.9,2,2,183,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,2,2,184,0)="^D RTN^XPDH"
^XMB(3.9,2,2,185,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,2,2,186,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,2,2,187,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,2,2,188,0)="NO"
^XMB(3.9,2,2,189,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,2,2,190,0)="D XPZ2^XPDIQ"
^XMB(3.9,2,2,191,0)="""RTN"")"
^XMB(3.9,2,2,192,0)="2"
^XMB(3.9,2,2,193,0)="""RTN"",""DGRPD"")"
^XMB(3.9,2,2,194,0)="0^1^B65212310^B63244207"
^XMB(3.9,2,2,195,0)="""RTN"",""DGRPD"",1,0)"
^XMB(3.9,2,2,196,0)="DGRPD ;ALB/MRL/MLR/JAN/LBD/EG/BRM/JRC-PATIENT INQUIRY (NEW) ; 3/9/06 11:17am"
^XMB(3.9,2,2,197,0)="""RTN"",""DGRPD"",2,0)"
^XMB(3.9,2,2,198,0)=" ;;5.3;Registration;**109,124,121,57,161,149,286,358,436,445,489,498,506,513,518,550,545,568,585,677,703**;Aug 13, 1993"
^XMB(3.9,2,2,199,0)="""RTN"",""DGRPD"",3,0)"
^XMB(3.9,2,2,200,0)=" ;  *286*  Newing variables X,Y in OKLINE subroutine"
^XMB(3.9,2,2,201,0)="""RTN"",""DGRPD"",4,0)"
^XMB(3.9,2,2,202,0)=" ;  *358*  If a patient is on a domiciliary ward, don't display MEANS"
^XMB(3.9,2,2,203,0)="""RTN"",""DGRPD"",5,0)"
^XMB(3.9,2,2,204,0)=" ;         TEST required/Medication Copayment Exemption messages"
^XMB(3.9,2,2,205,0)="""RTN"",""DGRPD"",6,0)"
^XMB(3.9,2,2,206,0)=" ;  *436*  If an inpatient is not on a domiciliary ward, don't display"
^XMB(3.9,2,2,207,0)="""RTN"",""DGRPD"",7,0)"
^XMB(3.9,2,2,208,0)=" ;         Medication Copayment Exemption message"
^XMB(3.9,2,2,209,0)="""RTN"",""DGRPD"",8,0)"
^XMB(3.9,2,2,210,0)=" ;  *545*  Add death information near the remarks field"
^XMB(3.9,2,2,211,0)="""RTN"",""DGRPD"",9,0)"
^XMB(3.9,2,2,212,0)=" ;  *677*  Added Emergency Response"
^XMB(3.9,2,2,213,0)="""RTN"",""DGRPD"",10,0)"
^XMB(3.9,2,2,214,0)="SEL K DFN,DGRPOUT W ! S DIC=""^DPT("",DIC(0)=""AEQMZ"" D ^DIC G Q:Y'>0 S DFN=+Y N Y W ! S DIR(0)=""E"" D ^DIR G SEL:$D(DTOUT)!($D(DUOUT)) D EN G SEL"
^XMB(3.9,2,2,215,0)="""RTN"",""DGRPD"",11,0)"
^XMB(3.9,2,2,216,0)="EN ;call to display patient inquiry - input DFN"
^XMB(3.9,2,2,217,0)="""RTN"",""DGRPD"",12,0)"
^XMB(3.9,2,2,218,0)=" ;MPI/PD CHANGE"
^XMB(3.9,2,2,219,0)="""RTN"",""DGRPD"",13,0)"
^XMB(3.9,2,2,220,0)=" S DGCMOR=""UNSPECIFIED"",DGMPI=$G(^DPT(+DFN,""MPI""))"
^XMB(3.9,2,2,221,0)="""RTN"",""DGRPD"",14,0)"
^XMB(3.9,2,2,222,0)=" S DGLOCATN=$$FIND1^DIC(4,"""",""MX"",""`""_+$P(DGMPI,U,3)),DGLOCATN=$S(+DGLOCATN>0:$P($$NS^XUAF4(DGLOCATN),U),1:""NOT LISTED"")"
^XMB(3.9,2,2,223,0)="""RTN"",""DGRPD"",15,0)"
^XMB(3.9,2,2,224,0)=" I $D(DGMPI),$D(DGLOCATN) S DGCMOR=$P(DGLOCATN,""^"")"
^XMB(3.9,2,2,225,0)="""RTN"",""DGRPD"",16,0)"
^XMB(3.9,2,2,226,0)=" ;END MPI/PD CHANGE"
^XMB(3.9,2,2,227,0)="""RTN"",""DGRPD"",17,0)"
^XMB(3.9,2,2,228,0)=" K DGRPOUT,DGHOW S DGABBRV=$S($D(^DG(43,1,0)):+$P(^(0),""^"",38),1:0),DGRPU=""UNSPECIFIED"" D DEM^VADPT,HDR F I=0,.11,.13,.121,.31,.32,.36,.361,.141,.3 S DGRP(I)=$S($D(^DPT(DFN,I)):^(I),1:"""")"
^XMB(3.9,2,2,229,0)="""RTN"",""DGRPD"",18,0)"
^XMB(3.9,2,2,230,0)=" S DGAD=.11,(DGA1,DGA2)=1 D A^DGRPU S DGTMPAD=0 I $P(DGRP(.121),""^"",9)=""Y"" S DGTMPAD=$S('$P(DGRP(.121),""^"",8):1,$P(DGRP(.121),""^"",8)'<DT:1,1:0) I DGTMPAD S DGAD=.121,DGA1=1,DGA2=2 D A^DGRPU"
^XMB(3.9,2,2,231,0)="""RTN"",""DGRPD"",19,0)"
^XMB(3.9,2,2,232,0)=" W ?1,""Address: "",$S($D(DGA(1)):DGA(1),1:""NONE ON FILE""),?40,""Temporary: "",$S($D(DGA(2)):DGA(2),1:""NO TEMPORARY ADDRESS"")"
^XMB(3.9,2,2,233,0)="""RTN"",""DGRPD"",20,0)"
^XMB(3.9,2,2,234,0)=" S I=2 F I1=0:0 S I=$O(DGA(I)) Q:I=""""  W:(I#2)!($X>50) !?10 W:'(I#2) ?51 W DGA(I)"
^XMB(3.9,2,2,235,0)="""RTN"",""DGRPD"",21,0)"
^XMB(3.9,2,2,236,0)=" S DGCC=+$P(DGRP(.11),U,7),DGST=+$P(DGRP(.11),U,5),DGCC=$S($D(^DIC(5,DGST,1,DGCC,0)):$E($P(^(0),U,1),1,20)_$S($P(^(0),U,3)]"""":"" (""_$P(^(0),U,3)_"")"",1:""""),1:DGRPU) W !?2,""County: "",DGCC"
^XMB(3.9,2,2,237,0)="""RTN"",""DGRPD"",22,0)"
^XMB(3.9,2,2,238,0)=" S X=""NOT APPLICABLE"" I DGTMPAD S Y=$P(DGRP(.121),U,7) X:Y]"""" ^DD(""DD"") S X=$S(Y]"""":Y,1:DGRPU)_""-"",Y=$P(DGRP(.121),U,8) X:Y]"""" ^DD(""DD"") S X=X_$S(Y]"""":Y,1:DGRPU)"
^XMB(3.9,2,2,239,0)="""RTN"",""DGRPD"",23,0)"
^XMB(3.9,2,2,240,0)=" W ?42,""From/To: "",X,!?3,""Phone: "",$S($P(DGRP(.13),U,1)]"""":$P(DGRP(.13),U,1),1:DGRPU),?44,""Phone: "",$S('DGTMPAD:X,$P(DGRP(.121),U,10)]"""":$P(DGRP(.121),U,10),1:DGRPU) K DGTMPAD"
^XMB(3.9,2,2,241,0)="""RTN"",""DGRPD"",24,0)"
^XMB(3.9,2,2,242,0)=" W !?2,""Office: "",$S($P(DGRP(.13),U,2)]"""":$P(DGRP(.13),U,2),1:DGRPU)"
^XMB(3.9,2,2,243,0)="""RTN"",""DGRPD"",25,0)"
^XMB(3.9,2,2,244,0)=" W !?4,""Cell: "",$S($P(DGRP(.13),U,4)]"""":$P(DGRP(.13),U,4),1:DGRPU)"
^XMB(3.9,2,2,245,0)="""RTN"",""DGRPD"",26,0)"
^XMB(3.9,2,2,246,0)=" W !?2,""E-mail: "",$S($P(DGRP(.13),U,3)]"""":$P(DGRP(.13),U,3),1:DGRPU)"
^XMB(3.9,2,2,247,0)="""RTN"",""DGRPD"",27,0)"
^XMB(3.9,2,2,248,0)=" W !,""Bad Addr: "",$$EXTERNAL^DILFD(2,.121,"""",$$BADADR^DGUTL3(+DFN))"
^XMB(3.9,2,2,249,0)="""RTN"",""DGRPD"",28,0)"
^XMB(3.9,2,2,250,0)=" D CA"
^XMB(3.9,2,2,251,0)="""RTN"",""DGRPD"",29,0)"
^XMB(3.9,2,2,252,0)=" N DGEMER S DGEMER=$$EXTERNAL^DILFD(2,.181,"""",$P($G(^DPT(DFN,.18)),""^""))"
^XMB(3.9,2,2,253,0)="""RTN"",""DGRPD"",30,0)"
^XMB(3.9,2,2,254,0)=" W:DGEMER]"""" !?32,""Emergency Response: "",DGEMER"
^XMB(3.9,2,2,255,0)="""RTN"",""DGRPD"",31,0)"
^XMB(3.9,2,2,256,0)=" I 'DGABBRV W !!?4,""POS: "",$S($D(^DIC(21,+$P(DGRP(.32),""^"",3),0)):$P(^(0),""^"",1),1:DGRPU),?42,""Claim #: "",$S($P(DGRP(.31),""^"",3)]"""":$P(DGRP(.31),""^"",3),1:""UNSPECIFIED"")"
^XMB(3.9,2,2,257,0)="""RTN"",""DGRPD"",32,0)"
^XMB(3.9,2,2,258,0)=" I 'DGABBRV W !?2,""Relig: "",$S($D(^DIC(13,+$P(DGRP(0),""^"",8),0)):$P(^(0),""^"",1),1:DGRPU),?46,""Sex: "",$S($P(VADM(5),""^"",2)]"""":$P(VADM(5),""^"",2),1:""UNSPECIFIED"")"
^XMB(3.9,2,2,259,0)="""RTN"",""DGRPD"",33,0)"
^XMB(3.9,2,2,260,0)=" I 'DGABBRV W ! D"
^XMB(3.9,2,2,261,0)="""RTN"",""DGRPD"",34,0)"
^XMB(3.9,2,2,262,0)=" .N RACE,ETHNIC,PTR,VAL,X,DIWL,DIWR,DIWF"
^XMB(3.9,2,2,263,0)="""RTN"",""DGRPD"",35,0)"
^XMB(3.9,2,2,264,0)=" .K ^UTILITY($J,""W"")"
^XMB(3.9,2,2,265,0)="""RTN"",""DGRPD"",36,0)"
^XMB(3.9,2,2,266,0)=" .S PTR=0 F  S PTR=+$O(^DPT(DFN,.02,PTR)) Q:'PTR  D"
^XMB(3.9,2,2,267,0)="""RTN"",""DGRPD"",37,0)"
^XMB(3.9,2,2,268,0)=" ..S VAL=+$G(^DPT(DFN,.02,PTR,0))"
^XMB(3.9,2,2,269,0)="""RTN"",""DGRPD"",38,0)"
^XMB(3.9,2,2,270,0)=" ..Q:$$INACTIVE^DGUTL4(VAL,1)"
^XMB(3.9,2,2,271,0)="""RTN"",""DGRPD"",39,0)"
^XMB(3.9,2,2,272,0)=" ..S VAL=$$PTR2TEXT^DGUTL4(VAL,1) S:+$O(^DPT(DFN,.02,PTR)) VAL=VAL_"", """
^XMB(3.9,2,2,273,0)="""RTN"",""DGRPD"",40,0)"
^XMB(3.9,2,2,274,0)=" ..S X=VAL,DIWL=0,DIWR=30,DIWF="""" D ^DIWP"
^XMB(3.9,2,2,275,0)="""RTN"",""DGRPD"",41,0)"
^XMB(3.9,2,2,276,0)=" .M RACE=^UTILITY($J,""W"",0) S:$G(RACE(1,0))="""" RACE(1,0)=""UNANSWERED"""
^XMB(3.9,2,2,277,0)="""RTN"",""DGRPD"",42,0)"
^XMB(3.9,2,2,278,0)=" .K ^UTILITY($J,""W"")"
^XMB(3.9,2,2,279,0)="""RTN"",""DGRPD"",43,0)"
^XMB(3.9,2,2,280,0)=" .S PTR=0 F  S PTR=+$O(^DPT(DFN,.06,PTR)) Q:'PTR  D"
^XMB(3.9,2,2,281,0)="""RTN"",""DGRPD"",44,0)"
^XMB(3.9,2,2,282,0)=" ..S VAL=+$G(^DPT(DFN,.06,PTR,0))"
^XMB(3.9,2,2,283,0)="""RTN"",""DGRPD"",45,0)"
^XMB(3.9,2,2,284,0)=" ..Q:$$INACTIVE^DGUTL4(VAL,2)"
^XMB(3.9,2,2,285,0)="""RTN"",""DGRPD"",46,0)"
^XMB(3.9,2,2,286,0)=" ..S VAL=$$PTR2TEXT^DGUTL4(VAL,2) S:+$O(^DPT(DFN,.06,PTR)) VAL=VAL_"", """
^XMB(3.9,2,2,287,0)="""RTN"",""DGRPD"",47,0)"
^XMB(3.9,2,2,288,0)=" ..S X=VAL,DIWL=0,DIWR=30,DIWF="""" D ^DIWP"
^XMB(3.9,2,2,289,0)="""RTN"",""DGRPD"",48,0)"
^XMB(3.9,2,2,290,0)=" .M ETHNIC=^UTILITY($J,""W"",0) S:$G(ETHNIC(1,0))="""" ETHNIC(1,0)=""UNANSWERED"""
^XMB(3.9,2,2,291,0)="""RTN"",""DGRPD"",49,0)"
^XMB(3.9,2,2,292,0)=" .K ^UTILITY($J,""W"")"
^XMB(3.9,2,2,293,0)="""RTN"",""DGRPD"",50,0)"
^XMB(3.9,2,2,294,0)=" .W ?3,""Race: "",RACE(1,0),?40,""Ethnicity: "",ETHNIC(1,0)"
^XMB(3.9,2,2,295,0)="""RTN"",""DGRPD"",51,0)"
^XMB(3.9,2,2,296,0)=" .F X=2:1 Q:'$D(RACE(X,0))&'$D(ETHNIC(X,0))  W !,?9,$G(RACE(X,0)),?51,$G(ETHNIC(X,0))"
^XMB(3.9,2,2,297,0)="""RTN"",""DGRPD"",52,0)"
^XMB(3.9,2,2,298,0)=" I '$$OKLINE(16) G Q"
^XMB(3.9,2,2,299,0)="""RTN"",""DGRPD"",53,0)"
^XMB(3.9,2,2,300,0)=" ;display cv status #4156"
^XMB(3.9,2,2,301,0)="""RTN"",""DGRPD"",54,0)"
^XMB(3.9,2,2,302,0)=" N DGCV S DGCV=$$CVEDT^DGCV(+DFN)"
^XMB(3.9,2,2,303,0)="""RTN"",""DGRPD"",55,0)"
^XMB(3.9,2,2,304,0)=" W !!,?2,""Combat Vet Status: ""_$S($P(DGCV,U,3)=1:""ELIGIBLE"",$P(DGCV,U,3)="""":""NOT ELIGIBLE"",1:""EXPIRED"") I DGCV>0 W ?45,""End Date: ""_$$FMTE^XLFDT($P(DGCV,U,2),""5DZ"")"
^XMB(3.9,2,2,305,0)="""RTN"",""DGRPD"",56,0)"
^XMB(3.9,2,2,306,0)=" ;display primary eligibility"
^XMB(3.9,2,2,307,0)="""RTN"",""DGRPD"",57,0)"
^XMB(3.9,2,2,308,0)=" S X1=DGRP(.36),X=$P(DGRP(.361),""^"",1) W !,""Primary Eligibility: "",$S($D(^DIC(8,+X1,0)):$P(^(0),""^"",1)_"" (""_$S(X=""V"":""VERIFIED"",X=""P"":""PENDING VERIFICATION"",X=""R"":""PENDING REVERIFICATION"",1:""NOT VERIFIED"")_"")"",1:DGRPU)"
^XMB(3.9,2,2,309,0)="""RTN"",""DGRPD"",58,0)"
^XMB(3.9,2,2,310,0)=" W !,""Other Eligibilities: "" F I=0:0 S I=$O(^DIC(8,I)) Q:'I  I $D(^DIC(8,I,0)),I'=+X1 S X=$P(^(0),""^"",1)_"", "" I $D(^DPT(""AEL"",DFN,I)) W:$X+$L(X)>79 !?21 W X"
^XMB(3.9,2,2,311,0)="""RTN"",""DGRPD"",59,0)"
^XMB(3.9,2,2,312,0)=" I '$$OKLINE(16) G Q"
^XMB(3.9,2,2,313,0)="""RTN"",""DGRPD"",60,0)"
^XMB(3.9,2,2,314,0)=" ;employability status"
^XMB(3.9,2,2,315,0)="""RTN"",""DGRPD"",61,0)"
^XMB(3.9,2,2,316,0)=" W !?6,""Unemployable: "",$S($P(DGRP(.3),U,5)=""Y"":""YES"",1:""NO"")"
^XMB(3.9,2,2,317,0)="""RTN"",""DGRPD"",62,0)"
^XMB(3.9,2,2,318,0)=" ;display the catastrophic disability review date if there is one"
^XMB(3.9,2,2,319,0)="""RTN"",""DGRPD"",63,0)"
^XMB(3.9,2,2,320,0)=" D CATDIS^DGRPD1"
^XMB(3.9,2,2,321,0)="""RTN"",""DGRPD"",64,0)"
^XMB(3.9,2,2,322,0)=" I $G(DGPRFLG)=1 G Q:'$$OKLINE(19) D"
^XMB(3.9,2,2,323,0)="""RTN"",""DGRPD"",65,0)"
^XMB(3.9,2,2,324,0)=" . N DGPDT,DGPTM"
^XMB(3.9,2,2,325,0)="""RTN"",""DGRPD"",66,0)"
^XMB(3.9,2,2,326,0)=" . W !,$$REPEAT^XLFSTR(""-"",78)"
^XMB(3.9,2,2,327,0)="""RTN"",""DGRPD"",67,0)"
^XMB(3.9,2,2,328,0)=" . S DGPDT="""",DGPDT=$O(^DGS(41.41,""ADC"",DFN,DGPDT),-1)"
^XMB(3.9,2,2,329,0)="""RTN"",""DGRPD"",68,0)"
^XMB(3.9,2,2,330,0)=" . W !,""[PRE-REGISTER DATE:]  ""_$S(DGPDT]"""":$$FMTE^XLFDT(DGPDT,""1D""),1:""NONE ON FILE"")"
^XMB(3.9,2,2,331,0)="""RTN"",""DGRPD"",69,0)"
^XMB(3.9,2,2,332,0)=" . S DGPTM=$$PCTEAM^DGSDUTL(DFN)"
^XMB(3.9,2,2,333,0)="""RTN"",""DGRPD"",70,0)"
^XMB(3.9,2,2,334,0)=" . I $P(DGPTM,U,2)]"""" W !,""[PRIMARY CARE TEAM:] ""_$P(DGPTM,U,2)"
^XMB(3.9,2,2,335,0)="""RTN"",""DGRPD"",71,0)"
^XMB(3.9,2,2,336,0)=" . W !,$$REPEAT^XLFSTR(""-"",78)"
^XMB(3.9,2,2,337,0)="""RTN"",""DGRPD"",72,0)"
^XMB(3.9,2,2,338,0)=" ; Check if patient is an inpatient and on a DOM ward"
^XMB(3.9,2,2,339,0)="""RTN"",""DGRPD"",73,0)"
^XMB(3.9,2,2,340,0)=" ; If inpatient is on a DOM ward, don't display MT or CP messages"
^XMB(3.9,2,2,341,0)="""RTN"",""DGRPD"",74,0)"
^XMB(3.9,2,2,342,0)=" ; If inpatient is NOT on a DOM ward, don't display CP message"
^XMB(3.9,2,2,343,0)="""RTN"",""DGRPD"",75,0)"
^XMB(3.9,2,2,344,0)=" N DGDOM,DGDOM1,VAHOW,VAROOT,VAINDT,VAIP,VAERR"
^XMB(3.9,2,2,345,0)="""RTN"",""DGRPD"",76,0)"
^XMB(3.9,2,2,346,0)=" G Q:'$$OKLINE(14)"
^XMB(3.9,2,2,347,0)="""RTN"",""DGRPD"",77,0)"
^XMB(3.9,2,2,348,0)=" D DOM^DGMTR"
^XMB(3.9,2,2,349,0)="""RTN"",""DGRPD"",78,0)"
^XMB(3.9,2,2,350,0)=" I '$G(DGDOM) D"
^XMB(3.9,2,2,351,0)="""RTN"",""DGRPD"",79,0)"
^XMB(3.9,2,2,352,0)=" .D DIS^DGMTU(DFN)"
^XMB(3.9,2,2,353,0)="""RTN"",""DGRPD"",80,0)"
^XMB(3.9,2,2,354,0)=" .D IN5^VADPT"
^XMB(3.9,2,2,355,0)="""RTN"",""DGRPD"",81,0)"
^XMB(3.9,2,2,356,0)=" .I $G(VAIP(1))="""" D DISP^IBARXEU(DFN,DT,3,1)"
^XMB(3.9,2,2,357,0)="""RTN"",""DGRPD"",82,0)"
^XMB(3.9,2,2,358,0)=" ;I 'DGABBRV,$E(IOST,1,2)=""C-"" F I=$Y:1:20 W !"
^XMB(3.9,2,2,359,0)="""RTN"",""DGRPD"",83,0)"
^XMB(3.9,2,2,360,0)=" D DIS^EASECU(DFN)   ;Added for LTC III (DG*5.3*518)"
^XMB(3.9,2,2,361,0)="""RTN"",""DGRPD"",84,0)"
^XMB(3.9,2,2,362,0)=" S VAIP(""L"")="""""
^XMB(3.9,2,2,363,0)="""RTN"",""DGRPD"",85,0)"
^XMB(3.9,2,2,364,0)=" I $$OKLINE(14) D INP"
^XMB(3.9,2,2,365,0)="""RTN"",""DGRPD"",86,0)"
^XMB(3.9,2,2,366,0)=" I '$G(DGRPOUT),($$OKLINE(17)) D SA"
^XMB(3.9,2,2,367,0)="""RTN"",""DGRPD"",87,0)"
^XMB(3.9,2,2,368,0)=" ;MPI/PD CHANGE"
^XMB(3.9,2,2,369,0)="""RTN"",""DGRPD"",88,0)"
^XMB(3.9,2,2,370,0)="Q D KVA^VADPT K %DT,D0,D1,DGA,DGA1,DGA2,DGABBRV,DGAD,DGCC,DGCMOR,DGDOM,DGLOCATN,DGMPI,DGRP,DGRPU,DGS,DGST,DGXFR0,DIC,DIR,DTOUT,DUOUT,DIRUT,DIROUT,I,I1,L,LDM,POP,SDCT,VA,X,X1,Y Q"
^XMB(3.9,2,2,371,0)="""RTN"",""DGRPD"",89,0)"
^XMB(3.9,2,2,372,0)="CA ;Confidential Address"
^XMB(3.9,2,2,373,0)="""RTN"",""DGRPD"",90,0)"
^XMB(3.9,2,2,374,0)=" W !!?1,""Confidential Address:  "",?44,""Confidential Address Categories:"""
^XMB(3.9,2,2,375,0)="""RTN"",""DGRPD"",91,0)"
^XMB(3.9,2,2,376,0)=" N DGCABEG,DGCAEND,DGA,DGARRAY,DGERROR"
^XMB(3.9,2,2,377,0)="""RTN"",""DGRPD"",92,0)"
^XMB(3.9,2,2,378,0)=" S DGCABEG=$P(DGRP(.141),U,7),DGCAEND=$P(DGRP(.141),U,8)"
^XMB(3.9,2,2,379,0)="""RTN"",""DGRPD"",93,0)"
^XMB(3.9,2,2,380,0)=" I 'DGCABEG!(DGCABEG>DT)!(DGCAEND&(DGCAEND<DT)) D  Q"
^XMB(3.9,2,2,381,0)="""RTN"",""DGRPD"",94,0)"
^XMB(3.9,2,2,382,0)=" .W !?9,""NO CONFIDENTIAL ADDRESS"""
^XMB(3.9,2,2,383,0)="""RTN"",""DGRPD"",95,0)"
^XMB(3.9,2,2,384,0)=" .W !?1,""From/To: NOT APPLICABLE"""
^XMB(3.9,2,2,385,0)="""RTN"",""DGRPD"",96,0)"
^XMB(3.9,2,2,386,0)=" S DGAD=.141,(DGA1,DGA2)=1"
^XMB(3.9,2,2,387,0)="""RTN"",""DGRPD"",97,0)"
^XMB(3.9,2,2,388,0)=" D AL^DGRPU(30)"
^XMB(3.9,2,2,389,0)="""RTN"",""DGRPD"",98,0)"
^XMB(3.9,2,2,390,0)=" D GETS^DIQ(2,DFN,"".141*,"",""E"",""DGARRAY"",""DGERROR"")"
^XMB(3.9,2,2,391,0)="""RTN"",""DGRPD"",99,0)"
^XMB(3.9,2,2,392,0)=" ;Format Confidential Address categories"
^XMB(3.9,2,2,393,0)="""RTN"",""DGRPD"",100,0)"
^XMB(3.9,2,2,394,0)=" N DGIEN,DGCAST"
^XMB(3.9,2,2,395,0)="""RTN"",""DGRPD"",101,0)"
^XMB(3.9,2,2,396,0)=" S DGIEN=0"
^XMB(3.9,2,2,397,0)="""RTN"",""DGRPD"",102,0)"
^XMB(3.9,2,2,398,0)=" S DGA2=2"
^XMB(3.9,2,2,399,0)="""RTN"",""DGRPD"",103,0)"
^XMB(3.9,2,2,400,0)=" F  S DGIEN=$O(DGARRAY(2.141,DGIEN)) Q:'DGIEN  D"
^XMB(3.9,2,2,401,0)="""RTN"",""DGRPD"",104,0)"
^XMB(3.9,2,2,402,0)=" .S DGA(DGA2)=DGARRAY(2.141,DGIEN,.01,""E"")"
^XMB(3.9,2,2,403,0)="""RTN"",""DGRPD"",105,0)"
^XMB(3.9,2,2,404,0)=" .S DGCAST=DGARRAY(2.141,DGIEN,1,""E"")"
^XMB(3.9,2,2,405,0)="""RTN"",""DGRPD"",106,0)"
^XMB(3.9,2,2,406,0)=" .S DGA(DGA2)=DGA(DGA2)_""(""_$S(DGCAST=""YES"":""Active"",1:""Inactive"")_"")"""
^XMB(3.9,2,2,407,0)="""RTN"",""DGRPD"",107,0)"
^XMB(3.9,2,2,408,0)=" .S DGA2=DGA2+2"
^XMB(3.9,2,2,409,0)="""RTN"",""DGRPD"",108,0)"
^XMB(3.9,2,2,410,0)=" S I=0 F I1=0:0 S I=$O(DGA(I)) Q:I=""""  W:(I#2)!($X>43) !?9 W:'(I#2) ?44 W DGA(I)"
^XMB(3.9,2,2,411,0)="""RTN"",""DGRPD"",109,0)"
^XMB(3.9,2,2,412,0)=" W !?1,""From/To:  "",$$FMTE^XLFDT(DGCABEG)_""-""_$S(DGCAEND'="""":$$FMTE^XLFDT(DGCAEND),1:""UNANSWERED"")"
^XMB(3.9,2,2,413,0)="""RTN"",""DGRPD"",110,0)"
^XMB(3.9,2,2,414,0)=" Q"
^XMB(3.9,2,2,415,0)="""RTN"",""DGRPD"",111,0)"
^XMB(3.9,2,2,416,0)="HDR I '$D(IOF) S IOP=""HOME"" D ^%ZIS K IOP"
^XMB(3.9,2,2,417,0)="""RTN"",""DGRPD"",112,0)"
^XMB(3.9,2,2,418,0)=" ;MPI/PD CHANGE"
^XMB(3.9,2,2,419,0)="""RTN"",""DGRPD"",113,0)"
^XMB(3.9,2,2,420,0)=" W @IOF,!,$P(VADM(1),""^"",1),?40,$P(VADM(2),""^"",2),?65,$P(VADM(3),""^"",2) S X="""",$P(X,""="",78)="""" W !,X,!?15,""COORDINATING MASTER OF RECORD: "",DGCMOR,! Q"
^XMB(3.9,2,2,421,0)="""RTN"",""DGRPD"",114,0)"
^XMB(3.9,2,2,422,0)=" ;END MPI/PD CHANGE"
^XMB(3.9,2,2,423,0)="""RTN"",""DGRPD"",115,0)"
^XMB(3.9,2,2,424,0)="INP S VAIP(""D"")=""L"" D INP^DGPMV10"
^XMB(3.9,2,2,425,0)="""RTN"",""DGRPD"",116,0)"
^XMB(3.9,2,2,426,0)=" S DGPMT=0"
^XMB(3.9,2,2,427,0)="""RTN"",""DGRPD"",117,0)"
^XMB(3.9,2,2,428,0)=" D CS^DGPMV10 K DGPMT,DGPMIFN K:'$D(DGSWITCH) DGPMVI,DGPMDCD Q"
^XMB(3.9,2,2,429,0)="""RTN"",""DGRPD"",118,0)"
^XMB(3.9,2,2,430,0)="SA F I=0:0 S I=$O(^DGS(41.1,""B"",DFN,I)) G CL:'I S X=^DGS(41.1,I,0) I $P(X,""^"",2)>(DT-1),$P(X,""^"",13)']"""",'$P(X,""^"",17) S L=$P(X,""^"",2) D:$$OKLINE(17) SAA Q:$G(DGRPOUT)"
^XMB(3.9,2,2,431,0)="""RTN"",""DGRPD"",119,0)"
^XMB(3.9,2,2,432,0)=" Q"
^XMB(3.9,2,2,433,0)="""RTN"",""DGRPD"",120,0)"
^XMB(3.9,2,2,434,0)="SAA ;Scheduled Admit Data"
^XMB(3.9,2,2,435,0)="""RTN"",""DGRPD"",121,0)"
^XMB(3.9,2,2,436,0)=" W !!?14,""Scheduled Admit"""
^XMB(3.9,2,2,437,0)="""RTN"",""DGRPD"",122,0)"
^XMB(3.9,2,2,438,0)=" W:$D(^DIC(42,+$P(X,U,8),0)) "" on ward ""_$P(^(0),U)"
^XMB(3.9,2,2,439,0)="""RTN"",""DGRPD"",123,0)"
^XMB(3.9,2,2,440,0)=" W:$D(^DIC(45.7,+$P(X,U,9),0)) "" for treating specialty ""_$P(^(0),U)"
^XMB(3.9,2,2,441,0)="""RTN"",""DGRPD"",124,0)"
^XMB(3.9,2,2,442,0)=" W "" on ""_$$FMTE^XLFDT(L,""5DZ"")"
^XMB(3.9,2,2,443,0)="""RTN"",""DGRPD"",125,0)"
^XMB(3.9,2,2,444,0)=" Q  ;SAA"
^XMB(3.9,2,2,445,0)="""RTN"",""DGRPD"",126,0)"
^XMB(3.9,2,2,446,0)=" ;"
^XMB(3.9,2,2,447,0)="""RTN"",""DGRPD"",127,0)"
^XMB(3.9,2,2,448,0)="CL G FA:$O(^DPT(DFN,""DE"",0))="""" S SDCT=0 F I=0:0 S I=$O(^DPT(DFN,""DE"",I)) Q:'I  I $D(^(I,0)),$P(^(0),""^"",2)'=""I"",$O(^(0)) S SDCT=SDCT+1 W:SDCT=1 !!,""Currently enrolled in "" W:$X>50 !?22 W $S($D(^SC(+^(0),0)):$P(^(0),""^"",1)_"", "",1:"""")"
^XMB(3.9,2,2,449,0)="""RTN"",""DGRPD"",128,0)"
^XMB(3.9,2,2,450,0)=" ;"
^XMB(3.9,2,2,451,0)="""RTN"",""DGRPD"",129,0)"
^XMB(3.9,2,2,452,0)="FA G:'$$OKLINE(20) RMK"
^XMB(3.9,2,2,453,0)="""RTN"",""DGRPD"",130,0)"
^XMB(3.9,2,2,454,0)=" ;"
^XMB(3.9,2,2,455,0)="""RTN"",""DGRPD"",131,0)"
^XMB(3.9,2,2,456,0)=" N DGARRAY,SDCNT"
^XMB(3.9,2,2,457,0)="""RTN"",""DGRPD"",132,0)"
^XMB(3.9,2,2,458,0)=" S DGARRAY(""FLDS"")=""1;2;3;18"",DGARRAY(4)=DFN,DGARRAY(1)=DT,DGARRAY(""SORT"")=""P"""
^XMB(3.9,2,2,459,0)="""RTN"",""DGRPD"",133,0)"
^XMB(3.9,2,2,460,0)=" S SDCNT=$$SDAPI^SDAMA301(.DGARRAY),CT=0 W !!,""Future Appointments: """
^XMB(3.9,2,2,461,0)="""RTN"",""DGRPD"",134,0)"
^XMB(3.9,2,2,462,0)=" ;if there is lower subscripts hanging from the 101 node,"
^XMB(3.9,2,2,463,0)="""RTN"",""DGRPD"",135,0)"
^XMB(3.9,2,2,464,0)=" ;then it is a valid appointment, otherwise it is"
^XMB(3.9,2,2,465,0)="""RTN"",""DGRPD"",136,0)"
^XMB(3.9,2,2,466,0)=" ;an error eg 01/20/2005"
^XMB(3.9,2,2,467,0)="""RTN"",""DGRPD"",137,0)"
^XMB(3.9,2,2,468,0)=" I $D(^TMP($J,""SDAMA301"",101))=1 W ""Appointment Database is Unavailable"" G RMK"
^XMB(3.9,2,2,469,0)="""RTN"",""DGRPD"",138,0)"
^XMB(3.9,2,2,470,0)=" I $O(^TMP($J,""SDAMA301"",DFN,DT))'>0 W ""NONE"" G RMK"
^XMB(3.9,2,2,471,0)="""RTN"",""DGRPD"",139,0)"
^XMB(3.9,2,2,472,0)=" ;"
^XMB(3.9,2,2,473,0)="""RTN"",""DGRPD"",140,0)"
^XMB(3.9,2,2,474,0)=" W ?22,""Date"",?33,""Time"",?39,""Clinic"",!?22 F I=22:1:75 W ""="""
^XMB(3.9,2,2,475,0)="""RTN"",""DGRPD"",141,0)"
^XMB(3.9,2,2,476,0)=" F FA=DT:0 S FA=$O(^TMP($J,""SDAMA301"",DFN,FA)) G RMK:'FA D  Q:CT>5"
^XMB(3.9,2,2,477,0)="""RTN"",""DGRPD"",142,0)"
^XMB(3.9,2,2,478,0)=" .N STAT S STAT=$P($P(^TMP($J,""SDAMA301"",DFN,FA),U,3),"";"")"
^XMB(3.9,2,2,479,0)="""RTN"",""DGRPD"",143,0)"
^XMB(3.9,2,2,480,0)=" .S C=+$P(^TMP($J,""SDAMA301"",DFN,FA),U,2) I STAT'[""C"" D"
^XMB(3.9,2,2,481,0)="""RTN"",""DGRPD"",144,0)"
^XMB(3.9,2,2,482,0)=" ..D COV"
^XMB(3.9,2,2,483,0)="""RTN"",""DGRPD"",145,0)"
^XMB(3.9,2,2,484,0)=" ..N DGAPPT S DGAPPT=$$FMTE^XLFDT($E(FA,1,12),""5Z"")"
^XMB(3.9,2,2,485,0)="""RTN"",""DGRPD"",146,0)"
^XMB(3.9,2,2,486,0)=" ..W !?22,$P(DGAPPT,""@""),?33,$P(DGAPPT,""@"",2)"
^XMB(3.9,2,2,487,0)="""RTN"",""DGRPD"",147,0)"
^XMB(3.9,2,2,488,0)=" ..W ?39,$P($P(^TMP($J,""SDAMA301"",DFN,FA),U,2),"";"",2),"" "",COV"
^XMB(3.9,2,2,489,0)="""RTN"",""DGRPD"",148,0)"
^XMB(3.9,2,2,490,0)=" ..Q"
^XMB(3.9,2,2,491,0)="""RTN"",""DGRPD"",149,0)"
^XMB(3.9,2,2,492,0)=" I $O(^TMP($J,""SDAMA301"",DFN,FA))>0 W !,""See Scheduling options for additional appointments."""
^XMB(3.9,2,2,493,0)="""RTN"",""DGRPD"",150,0)"
^XMB(3.9,2,2,494,0)="RMK I '$G(DGRPOUT),($$OKLINE(21)) W !!,""Remarks: "",$P(^DPT(DFN,0),""^"",10)"
^XMB(3.9,2,2,495,0)="""RTN"",""DGRPD"",151,0)"
^XMB(3.9,2,2,496,0)=" D GETS^DIQ(2,DFN_"","","".351;.353;.354;.355"",""E"",""PDTHINFO"")"
^XMB(3.9,2,2,497,0)="""RTN"",""DGRPD"",152,0)"
^XMB(3.9,2,2,498,0)=" W !!"
^XMB(3.9,2,2,499,0)="""RTN"",""DGRPD"",153,0)"
^XMB(3.9,2,2,500,0)=" W ""Date of Death Information"""
^XMB(3.9,2,2,501,0)="""RTN"",""DGRPD"",154,0)"
^XMB(3.9,2,2,502,0)=" W !,?5,""Date of Death: "",$G(PDTHINFO(2,DFN_"","",.351,""E""))"
^XMB(3.9,2,2,503,0)="""RTN"",""DGRPD"",155,0)"
^XMB(3.9,2,2,504,0)=" W !,?5,""Source of Notification: "",$G(PDTHINFO(2,DFN_"","",.353,""E""))"
^XMB(3.9,2,2,505,0)="""RTN"",""DGRPD"",156,0)"
^XMB(3.9,2,2,506,0)=" W !,?5,""Updated Date/Time: "",$G(PDTHINFO(2,DFN_"","",.354,""E""))"
^XMB(3.9,2,2,507,0)="""RTN"",""DGRPD"",157,0)"
^XMB(3.9,2,2,508,0)=" W !,?5,""Last Edited By: "",$G(PDTHINFO(2,DFN_"","",.355,""E"")),!"
^XMB(3.9,2,2,509,0)="""RTN"",""DGRPD"",158,0)"
^XMB(3.9,2,2,510,0)=" I $$OKLINE(14) D EC^DGRPD1"
^XMB(3.9,2,2,511,0)="""RTN"",""DGRPD"",159,0)"
^XMB(3.9,2,2,512,0)=" K DGARRAY,SDCNT,^TMP($J,""SDAMA301""),ADM,L,TRN,DIS,SSN,FA,C,COV,NOW,CT,DGD,DGD1,I ;Y killed after dghinqky"
^XMB(3.9,2,2,513,0)="""RTN"",""DGRPD"",160,0)"
^XMB(3.9,2,2,514,0)=" Q"
^XMB(3.9,2,2,515,0)="""RTN"",""DGRPD"",161,0)"
^XMB(3.9,2,2,516,0)="COV S COV=$S(+$P(^TMP($J,""SDAMA301"",DFN,FA),U,18)=7:"" (Collateral) "",1:"""")"
^XMB(3.9,2,2,517,0)="""RTN"",""DGRPD"",162,0)"
^XMB(3.9,2,2,518,0)=" S COV=COV_$S(STAT[""NT"":"" * NO ACTION TAKEN *"",STAT[""N"":"" * NO-SHOW *"",1:""""),CT=CT+1 Q"
^XMB(3.9,2,2,519,0)="""RTN"",""DGRPD"",163,0)"
^XMB(3.9,2,2,520,0)=" Q"
^XMB(3.9,2,2,521,0)="""RTN"",""DGRPD"",164,0)"
^XMB(3.9,2,2,522,0)=" ;"
^XMB(3.9,2,2,523,0)="""RTN"",""DGRPD"",165,0)"
^XMB(3.9,2,2,524,0)="OREN S XQORQUIT=1 Q:'$D(ORVP)  S DFN=+ORVP D EN R !!,""Press RETURN to CONTINUE: "",X:DTIME"
^XMB(3.9,2,2,525,0)="""RTN"",""DGRPD"",166,0)"
^XMB(3.9,2,2,526,0)=" Q"
^XMB(3.9,2,2,527,0)="""RTN"",""DGRPD"",167,0)"
^XMB(3.9,2,2,528,0)="OKLINE(DGLINE) ;DOES PAUSE/HEADER IF $Y EXCEEDS DGLINE"
^XMB(3.9,2,2,529,0)="""RTN"",""DGRPD"",168,0)"
^XMB(3.9,2,2,530,0)=" ;"
^XMB(3.9,2,2,531,0)="""RTN"",""DGRPD"",169,0)"
^XMB(3.9,2,2,532,0)=" ;IN:   DGLINE --MAX LINE COUNT W/O PAUSE"
^XMB(3.9,2,2,533,0)="""RTN"",""DGRPD"",170,0)"
^XMB(3.9,2,2,534,0)=" ;OUT:  DGLINE[RETURNED] -- 0 IF TIMEOUT/UP ARROW"
^XMB(3.9,2,2,535,0)="""RTN"",""DGRPD"",171,0)"
^XMB(3.9,2,2,536,0)=" ;      DGRPOUT[SET]     -- 1 IF """
^XMB(3.9,2,2,537,0)="""RTN"",""DGRPD"",172,0)"
^XMB(3.9,2,2,538,0)=" N X,Y  ;**286** MLR 09/25/00  Newing X & Y variables prior to ^DIR"
^XMB(3.9,2,2,539,0)="""RTN"",""DGRPD"",173,0)"
^XMB(3.9,2,2,540,0)=" I $G(IOST)[""P-"" Q DGLINE ; if printer, quit"
^XMB(3.9,2,2,541,0)="""RTN"",""DGRPD"",174,0)"
^XMB(3.9,2,2,542,0)=" I $Y>DGLINE N DIR S DIR(0)=""E"" D ^DIR D:Y HDR I 'Y S DGRPOUT=1,DGLINE=0"
^XMB(3.9,2,2,543,0)="""RTN"",""DGRPD"",175,0)"
^XMB(3.9,2,2,544,0)=" Q DGLINE"
^XMB(3.9,2,2,545,0)="""RTN"",""DGRPD"",176,0)"
^XMB(3.9,2,2,546,0)=" ;"
^XMB(3.9,2,2,547,0)="""RTN"",""DGRPD1"")"
^XMB(3.9,2,2,548,0)="0^2^B5093592"
^XMB(3.9,2,2,549,0)="""RTN"",""DGRPD1"",1,0)"
^XMB(3.9,2,2,550,0)="DGRPD1 ;BPFO/JRC - PATIENT INQUIRY (NEW) ; 4/11/06 9:30am"
^XMB(3.9,2,2,551,0)="""RTN"",""DGRPD1"",2,0)"
^XMB(3.9,2,2,552,0)=" ;;5.3;Registration;**703**;Aug 13, 1993"
^XMB(3.9,2,2,553,0)="""RTN"",""DGRPD1"",3,0)"
^XMB(3.9,2,2,554,0)=" Q"
^XMB(3.9,2,2,555,0)="""RTN"",""DGRPD1"",4,0)"
^XMB(3.9,2,2,556,0)="EC ;display emergency contact information"
^XMB(3.9,2,2,557,0)="""RTN"",""DGRPD1"",5,0)"
^XMB(3.9,2,2,558,0)=" N DGEC1,DGEC2"
^XMB(3.9,2,2,559,0)="""RTN"",""DGRPD1"",6,0)"
^XMB(3.9,2,2,560,0)=" Q:'$G(DFN)"
^XMB(3.9,2,2,561,0)="""RTN"",""DGRPD1"",7,0)"
^XMB(3.9,2,2,562,0)=" S VAOA(""A"")=1,VAROOT=""DGEC1""  D OAD^VADPT ; Get Primary EC"
^XMB(3.9,2,2,563,0)="""RTN"",""DGRPD1"",8,0)"
^XMB(3.9,2,2,564,0)=" S VAOA(""A"")=4,VAROOT=""DGEC2""  D OAD^VADPT ; Get Secondary EC"
^XMB(3.9,2,2,565,0)="""RTN"",""DGRPD1"",9,0)"
^XMB(3.9,2,2,566,0)=" I DGEC1(9)]"""" D"
^XMB(3.9,2,2,567,0)="""RTN"",""DGRPD1"",10,0)"
^XMB(3.9,2,2,568,0)=" . W !,""Emergency Contact Information:"""
^XMB(3.9,2,2,569,0)="""RTN"",""DGRPD1"",11,0)"
^XMB(3.9,2,2,570,0)=" . ;Contacts name and realtionship"
^XMB(3.9,2,2,571,0)="""RTN"",""DGRPD1"",12,0)"
^XMB(3.9,2,2,572,0)=" . W !?5,""E-Cont.: "",DGEC1(9)"
^XMB(3.9,2,2,573,0)="""RTN"",""DGRPD1"",13,0)"
^XMB(3.9,2,2,574,0)=" . I DGEC2(9)]"""" W ?40,""E2-Cont.: "",DGEC2(9)"
^XMB(3.9,2,2,575,0)="""RTN"",""DGRPD1"",14,0)"
^XMB(3.9,2,2,576,0)=" . W !,""Relationship: "",DGEC1(10)"
^XMB(3.9,2,2,577,0)="""RTN"",""DGRPD1"",15,0)"
^XMB(3.9,2,2,578,0)=" . I DGEC2(9)]"""" W ?36,""Relationship: "",DGEC2(10)"
^XMB(3.9,2,2,579,0)="""RTN"",""DGRPD1"",16,0)"
^XMB(3.9,2,2,580,0)=" . ;ECs address lines 1, 2 and 3"
^XMB(3.9,2,2,581,0)="""RTN"",""DGRPD1"",17,0)"
^XMB(3.9,2,2,582,0)=" . I DGEC1(1)]"""" W !?14,DGEC1(1)"
^XMB(3.9,2,2,583,0)="""RTN"",""DGRPD1"",18,0)"
^XMB(3.9,2,2,584,0)=" . I DGEC1(1)']"""",DGEC2(1)]"""" W !"
^XMB(3.9,2,2,585,0)="""RTN"",""DGRPD1"",19,0)"
^XMB(3.9,2,2,586,0)=" . I DGEC2(1)]"""" W ?50,DGEC2(1)"
^XMB(3.9,2,2,587,0)="""RTN"",""DGRPD1"",20,0)"
^XMB(3.9,2,2,588,0)=" . I DGEC1(2)]"""" W !?14,DGEC1(2)"
^XMB(3.9,2,2,589,0)="""RTN"",""DGRPD1"",21,0)"
^XMB(3.9,2,2,590,0)=" . I DGEC1(2)']"""",DGEC2(2)]"""" W !"
^XMB(3.9,2,2,591,0)="""RTN"",""DGRPD1"",22,0)"
^XMB(3.9,2,2,592,0)=" . I DGEC2(2)]"""" W ?50,DGEC2(2)"
^XMB(3.9,2,2,593,0)="""RTN"",""DGRPD1"",23,0)"
^XMB(3.9,2,2,594,0)=" . I DGEC1(3)]"""" W !?14,DGEC1(3)"
^XMB(3.9,2,2,595,0)="""RTN"",""DGRPD1"",24,0)"
^XMB(3.9,2,2,596,0)=" . I DGEC1(3)']"""",DGEC2(3)]"""" W !"
^XMB(3.9,2,2,597,0)="""RTN"",""DGRPD1"",25,0)"
^XMB(3.9,2,2,598,0)=" . I DGEC2(3)]"""" W ?50,DGEC2(3)"
^XMB(3.9,2,2,599,0)="""RTN"",""DGRPD1"",26,0)"
^XMB(3.9,2,2,600,0)=" . ;Emergency Contact 1 City, State an Zip+4"
^XMB(3.9,2,2,601,0)="""RTN"",""DGRPD1"",27,0)"
^XMB(3.9,2,2,602,0)=" . I DGEC1(4)]"""" D"
^XMB(3.9,2,2,603,0)="""RTN"",""DGRPD1"",28,0)"
^XMB(3.9,2,2,604,0)=" . . W !?14,DGEC1(4)"
^XMB(3.9,2,2,605,0)="""RTN"",""DGRPD1"",29,0)"
^XMB(3.9,2,2,606,0)=" . . I DGEC1(5)]"""" W "", ""_$$GET1^DIQ(5,+DGEC1(5),1)"
^XMB(3.9,2,2,607,0)="""RTN"",""DGRPD1"",30,0)"
^XMB(3.9,2,2,608,0)=" . . W ""  "",$P(DGEC1(11),""^"",2)"
^XMB(3.9,2,2,609,0)="""RTN"",""DGRPD1"",31,0)"
^XMB(3.9,2,2,610,0)=" . ;Emergency Contact 2 City State and Zip+4"
^XMB(3.9,2,2,611,0)="""RTN"",""DGRPD1"",32,0)"
^XMB(3.9,2,2,612,0)=" . I DGEC2(4)]"""" D"
^XMB(3.9,2,2,613,0)="""RTN"",""DGRPD1"",33,0)"
^XMB(3.9,2,2,614,0)=" . . I DGEC1(4)']"""" W !"
^XMB(3.9,2,2,615,0)="""RTN"",""DGRPD1"",34,0)"
^XMB(3.9,2,2,616,0)=" . . W ?50,DGEC2(4)"
^XMB(3.9,2,2,617,0)="""RTN"",""DGRPD1"",35,0)"
^XMB(3.9,2,2,618,0)=" . . I DGEC2(5)]"""" W "", ""_$$GET1^DIQ(5,+DGEC2(5),1)"
^XMB(3.9,2,2,619,0)="""RTN"",""DGRPD1"",36,0)"
^XMB(3.9,2,2,620,0)=" . . W ""  "",$P(DGEC2(11),""^"",2)"
^XMB(3.9,2,2,621,0)="""RTN"",""DGRPD1"",37,0)"
^XMB(3.9,2,2,622,0)=" .;Home and work phones"
^XMB(3.9,2,2,623,0)="""RTN"",""DGRPD1"",38,0)"
^XMB(3.9,2,2,624,0)=" . W !,?7,""Phone: "",$S(DGEC1(8)]"""":DGEC1(8),1:""UNSPECIFIED"")"
^XMB(3.9,2,2,625,0)="""RTN"",""DGRPD1"",39,0)"
^XMB(3.9,2,2,626,0)=" . I DGEC2(9)]"""" W ?43,""Phone: "",$S(DGEC2(8)]"""":DGEC2(8),1:""UNSPECIFIED"")"
^XMB(3.9,2,2,627,0)="""RTN"",""DGRPD1"",40,0)"
^XMB(3.9,2,2,628,0)=" . W !?2,""Work Phone: "",$S($P(^DPT(DFN,.33),U,11):$P(^(.33),U,11),1:""UNSPECIFIED"")"
^XMB(3.9,2,2,629,0)="""RTN"",""DGRPD1"",41,0)"
^XMB(3.9,2,2,630,0)=" . I DGEC2(9)]"""" W ?38,""Work Phone: "",$S($P(^DPT(DFN,.331),U,11):$P(^(.331),U,11),1:""UNSPECIFIED"")"
^XMB(3.9,2,2,631,0)="""RTN"",""DGRPD1"",42,0)"
^XMB(3.9,2,2,632,0)=" D KVAR^VADPT"
^XMB(3.9,2,2,633,0)="""RTN"",""DGRPD1"",43,0)"
^XMB(3.9,2,2,634,0)=" Q"
^XMB(3.9,2,2,635,0)="""RTN"",""DGRPD1"",44,0)"
^XMB(3.9,2,2,636,0)=" ;"
^XMB(3.9,2,2,637,0)="""RTN"",""DGRPD1"",45,0)"
^XMB(3.9,2,2,638,0)="CATDIS ;"
^XMB(3.9,2,2,639,0)="""RTN"",""DGRPD1"",46,0)"
^XMB(3.9,2,2,640,0)=" ;displays catastrophic disabity review date if there is one"
^XMB(3.9,2,2,641,0)="""RTN"",""DGRPD1"",47,0)"
^XMB(3.9,2,2,642,0)=" N DGCDIS"
^XMB(3.9,2,2,643,0)="""RTN"",""DGRPD1"",48,0)"
^XMB(3.9,2,2,644,0)=" Q:'$G(DFN)"
^XMB(3.9,2,2,645,0)="""RTN"",""DGRPD1"",49,0)"
^XMB(3.9,2,2,646,0)=" I $$GET^DGENCDA(DFN,.DGCDIS) D"
^XMB(3.9,2,2,647,0)="""RTN"",""DGRPD1"",50,0)"
^XMB(3.9,2,2,648,0)=" .Q:'DGCDIS(""REVDTE"")"
^XMB(3.9,2,2,649,0)="""RTN"",""DGRPD1"",51,0)"
^XMB(3.9,2,2,650,0)=" .W !!,""Catastrophically Disabled Review Date: "",$$FMTE^XLFDT(DGCDIS(""REVDTE""),1)"
^XMB(3.9,2,2,651,0)="""RTN"",""DGRPD1"",52,0)"
^XMB(3.9,2,2,652,0)=" Q"
^XMB(3.9,2,2,653,0)="""RTN"",""DGRPD1"",53,0)"
^XMB(3.9,2,2,654,0)=" ;"
^XMB(3.9,2,2,655,0)="""VER"")"
^XMB(3.9,2,2,656,0)="8.0^22.0"
^XMB(3.9,2,2,657,0)="""BLD"",6566,6)"
^XMB(3.9,2,2,658,0)="^617"
^XMB(3.9,2,2,659,0)="$END KID DG*5.3*703"
^XMB(3.9,2,6,0)="^3.911A^2^2"
^XMB(3.9,2,6,1,0)="POSTMASTER"
^XMB(3.9,2,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,2,6,"B","POSTMASTER",1)=""
^XMB(3.9,2,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,3,0)="DG-5P3_SEQ-618_PAT-706.KID^.5^3061008.01573^^^^K"
^XMB(3.9,3,.6)="3061008"
^XMB(3.9,3,1,0)="^3.91A^2^2"
^XMB(3.9,3,1,1,0)=".5^0^3061008.01573^^^^^^^3061008.01573"
^XMB(3.9,3,1,2,0)="1^0^3061008.023147^^^^^^^3061008.023147"
^XMB(3.9,3,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,3,1,"C",.5,1)=""
^XMB(3.9,3,1,"C",1,2)=""
^XMB(3.9,3,2,0)="^^349^349^3061008"
^XMB(3.9,3,2,1,0)="$TXT Released DG*5.3*706 SEQ #618"
^XMB(3.9,3,2,2,0)="Extracted from mail message"
^XMB(3.9,3,2,3,0)="$END TXT"
^XMB(3.9,3,2,4,0)="$KID DG*5.3*706"
^XMB(3.9,3,2,5,0)="**INSTALL NAME**"
^XMB(3.9,3,2,6,0)="DG*5.3*706"
^XMB(3.9,3,2,7,0)="""BLD"",6179,0)"
^XMB(3.9,3,2,8,0)="DG*5.3*706^REGISTRATION^0^3060406^y"
^XMB(3.9,3,2,9,0)="""BLD"",6179,4,0)"
^XMB(3.9,3,2,10,0)="^9.64PA^^"
^XMB(3.9,3,2,11,0)="""BLD"",6179,""KRN"",0)"
^XMB(3.9,3,2,12,0)="^9.67PA^8989.52^19"
^XMB(3.9,3,2,13,0)="""BLD"",6179,""KRN"",.4,0)"
^XMB(3.9,3,2,14,0)=".4"
^XMB(3.9,3,2,15,0)="""BLD"",6179,""KRN"",.401,0)"
^XMB(3.9,3,2,16,0)=".401"
^XMB(3.9,3,2,17,0)="""BLD"",6179,""KRN"",.402,0)"
^XMB(3.9,3,2,18,0)=".402"
^XMB(3.9,3,2,19,0)="""BLD"",6179,""KRN"",.403,0)"
^XMB(3.9,3,2,20,0)=".403"
^XMB(3.9,3,2,21,0)="""BLD"",6179,""KRN"",.5,0)"
^XMB(3.9,3,2,22,0)=".5"
^XMB(3.9,3,2,23,0)="""BLD"",6179,""KRN"",.84,0)"
^XMB(3.9,3,2,24,0)=".84"
^XMB(3.9,3,2,25,0)="""BLD"",6179,""KRN"",3.6,0)"
^XMB(3.9,3,2,26,0)="3.6"
^XMB(3.9,3,2,27,0)="""BLD"",6179,""KRN"",3.8,0)"
^XMB(3.9,3,2,28,0)="3.8"
^XMB(3.9,3,2,29,0)="""BLD"",6179,""KRN"",9.2,0)"
^XMB(3.9,3,2,30,0)="9.2"
^XMB(3.9,3,2,31,0)="""BLD"",6179,""KRN"",9.8,0)"
^XMB(3.9,3,2,32,0)="9.8"
^XMB(3.9,3,2,33,0)="""BLD"",6179,""KRN"",9.8,""NM"",0)"
^XMB(3.9,3,2,34,0)="^9.68A^1^1"
^XMB(3.9,3,2,35,0)="""BLD"",6179,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,3,2,36,0)="DGEEREIM^^0^B9008683"
^XMB(3.9,3,2,37,0)="""BLD"",6179,""KRN"",9.8,""NM"",""B"",""DGEEREIM"",1)"
^XMB(3.9,3,2,38,0)=""
^XMB(3.9,3,2,39,0)="""BLD"",6179,""KRN"",19,0)"
^XMB(3.9,3,2,40,0)="19"
^XMB(3.9,3,2,41,0)="""BLD"",6179,""KRN"",19.1,0)"
^XMB(3.9,3,2,42,0)="19.1"
^XMB(3.9,3,2,43,0)="""BLD"",6179,""KRN"",101,0)"
^XMB(3.9,3,2,44,0)="101"
^XMB(3.9,3,2,45,0)="""BLD"",6179,""KRN"",409.61,0)"
^XMB(3.9,3,2,46,0)="409.61"
^XMB(3.9,3,2,47,0)="""BLD"",6179,""KRN"",771,0)"
^XMB(3.9,3,2,48,0)="771"
^XMB(3.9,3,2,49,0)="""BLD"",6179,""KRN"",870,0)"
^XMB(3.9,3,2,50,0)="870"
^XMB(3.9,3,2,51,0)="""BLD"",6179,""KRN"",8989.51,0)"
^XMB(3.9,3,2,52,0)="8989.51"
^XMB(3.9,3,2,53,0)="""BLD"",6179,""KRN"",8989.52,0)"
^XMB(3.9,3,2,54,0)="8989.52"
^XMB(3.9,3,2,55,0)="""BLD"",6179,""KRN"",8994,0)"
^XMB(3.9,3,2,56,0)="8994"
^XMB(3.9,3,2,57,0)="""BLD"",6179,""KRN"",""B"",.4,.4)"
^XMB(3.9,3,2,58,0)=""
^XMB(3.9,3,2,59,0)="""BLD"",6179,""KRN"",""B"",.401,.401)"
^XMB(3.9,3,2,60,0)=""
^XMB(3.9,3,2,61,0)="""BLD"",6179,""KRN"",""B"",.402,.402)"
^XMB(3.9,3,2,62,0)=""
^XMB(3.9,3,2,63,0)="""BLD"",6179,""KRN"",""B"",.403,.403)"
^XMB(3.9,3,2,64,0)=""
^XMB(3.9,3,2,65,0)="""BLD"",6179,""KRN"",""B"",.5,.5)"
^XMB(3.9,3,2,66,0)=""
^XMB(3.9,3,2,67,0)="""BLD"",6179,""KRN"",""B"",.84,.84)"
^XMB(3.9,3,2,68,0)=""
^XMB(3.9,3,2,69,0)="""BLD"",6179,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,3,2,70,0)=""
^XMB(3.9,3,2,71,0)="""BLD"",6179,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,3,2,72,0)=""
^XMB(3.9,3,2,73,0)="""BLD"",6179,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,3,2,74,0)=""
^XMB(3.9,3,2,75,0)="""BLD"",6179,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,3,2,76,0)=""
^XMB(3.9,3,2,77,0)="""BLD"",6179,""KRN"",""B"",19,19)"
^XMB(3.9,3,2,78,0)=""
^XMB(3.9,3,2,79,0)="""BLD"",6179,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,3,2,80,0)=""
^XMB(3.9,3,2,81,0)="""BLD"",6179,""KRN"",""B"",101,101)"
^XMB(3.9,3,2,82,0)=""
^XMB(3.9,3,2,83,0)="""BLD"",6179,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,3,2,84,0)=""
^XMB(3.9,3,2,85,0)="""BLD"",6179,""KRN"",""B"",771,771)"
^XMB(3.9,3,2,86,0)=""
^XMB(3.9,3,2,87,0)="""BLD"",6179,""KRN"",""B"",870,870)"
^XMB(3.9,3,2,88,0)=""
^XMB(3.9,3,2,89,0)="""BLD"",6179,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,3,2,90,0)=""
^XMB(3.9,3,2,91,0)="""BLD"",6179,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,3,2,92,0)=""
^XMB(3.9,3,2,93,0)="""BLD"",6179,""KRN"",""B"",8994,8994)"
^XMB(3.9,3,2,94,0)=""
^XMB(3.9,3,2,95,0)="""BLD"",6179,""QUES"",0)"
^XMB(3.9,3,2,96,0)="^9.62^^"
^XMB(3.9,3,2,97,0)="""BLD"",6179,""REQB"",0)"
^XMB(3.9,3,2,98,0)="^9.611^1^1"
^XMB(3.9,3,2,99,0)="""BLD"",6179,""REQB"",1,0)"
^XMB(3.9,3,2,100,0)="DG*5.3*672^2"
^XMB(3.9,3,2,101,0)="""BLD"",6179,""REQB"",""B"",""DG*5.3*672"",1)"
^XMB(3.9,3,2,102,0)=""
^XMB(3.9,3,2,103,0)="""MBREQ"")"
^XMB(3.9,3,2,104,0)="0"
^XMB(3.9,3,2,105,0)="""PKG"",5,-1)"
^XMB(3.9,3,2,106,0)="1^1"
^XMB(3.9,3,2,107,0)="""PKG"",5,0)"
^XMB(3.9,3,2,108,0)="REGISTRATION^DG^PATIENT REGISTRATION, ADMISSION, DISCHARGE, EMBOSSER "
^XMB(3.9,3,2,109,0)="""PKG"",5,20,0)"
^XMB(3.9,3,2,110,0)="^9.402P^^"
^XMB(3.9,3,2,111,0)="""PKG"",5,22,0)"
^XMB(3.9,3,2,112,0)="^9.49I^1^1"
^XMB(3.9,3,2,113,0)="""PKG"",5,22,1,0)"
^XMB(3.9,3,2,114,0)="5.3^2930813"
^XMB(3.9,3,2,115,0)="""PKG"",5,22,1,""PAH"",1,0)"
^XMB(3.9,3,2,116,0)="706^3060406"
^XMB(3.9,3,2,117,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,3,2,118,0)="Y"
^XMB(3.9,3,2,119,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,3,2,120,0)="^D REP^XPDH"
^XMB(3.9,3,2,121,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,3,2,122,0)="Shall I write over your |FLAG| File"
^XMB(3.9,3,2,123,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,3,2,124,0)="YES"
^XMB(3.9,3,2,125,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,3,2,126,0)="D XPF1^XPDIQ"
^XMB(3.9,3,2,127,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,3,2,128,0)="Y"
^XMB(3.9,3,2,129,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,3,2,130,0)="^D DTA^XPDH"
^XMB(3.9,3,2,131,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,3,2,132,0)="Want my data |FLAG| yours"
^XMB(3.9,3,2,133,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,3,2,134,0)="YES"
^XMB(3.9,3,2,135,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,3,2,136,0)="D XPF2^XPDIQ"
^XMB(3.9,3,2,137,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,3,2,138,0)="YO"
^XMB(3.9,3,2,139,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,3,2,140,0)="^D INHIBIT^XPDH"
^XMB(3.9,3,2,141,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,3,2,142,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,3,2,143,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,3,2,144,0)="YES"
^XMB(3.9,3,2,145,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,3,2,146,0)="D XPI1^XPDIQ"
^XMB(3.9,3,2,147,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,3,2,148,0)="PO^VA(200,:EM"
^XMB(3.9,3,2,149,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,3,2,150,0)="^D MG^XPDH"
^XMB(3.9,3,2,151,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,3,2,152,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,3,2,153,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,3,2,154,0)=""
^XMB(3.9,3,2,155,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,3,2,156,0)="D XPM1^XPDIQ"
^XMB(3.9,3,2,157,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,3,2,158,0)="Y"
^XMB(3.9,3,2,159,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,3,2,160,0)="^D MENU^XPDH"
^XMB(3.9,3,2,161,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,3,2,162,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,3,2,163,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,3,2,164,0)="YES"
^XMB(3.9,3,2,165,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,3,2,166,0)="D XPO1^XPDIQ"
^XMB(3.9,3,2,167,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,3,2,168,0)="Y"
^XMB(3.9,3,2,169,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,3,2,170,0)="^D OPT^XPDH"
^XMB(3.9,3,2,171,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,3,2,172,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,3,2,173,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,3,2,174,0)="YES"
^XMB(3.9,3,2,175,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,3,2,176,0)="D XPZ1^XPDIQ"
^XMB(3.9,3,2,177,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,3,2,178,0)="Y"
^XMB(3.9,3,2,179,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,3,2,180,0)="^D RTN^XPDH"
^XMB(3.9,3,2,181,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,3,2,182,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,3,2,183,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,3,2,184,0)="NO"
^XMB(3.9,3,2,185,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,3,2,186,0)="D XPZ2^XPDIQ"
^XMB(3.9,3,2,187,0)="""RTN"")"
^XMB(3.9,3,2,188,0)="1"
^XMB(3.9,3,2,189,0)="""RTN"",""DGEEREIM"")"
^XMB(3.9,3,2,190,0)="0^1^B9008683^B8913958"
^XMB(3.9,3,2,191,0)="""RTN"",""DGEEREIM"",1,0)"
^XMB(3.9,3,2,192,0)="DGEEREIM ;ALB/BRM;Reimbursable Primary Eligibility Code Report ; 5/23/05 11:04am"
^XMB(3.9,3,2,193,0)="""RTN"",""DGEEREIM"",2,0)"
^XMB(3.9,3,2,194,0)=" ;;5.3;Registration;**672,706**;Aug 13,1993"
^XMB(3.9,3,2,195,0)="""RTN"",""DGEEREIM"",3,0)"
^XMB(3.9,3,2,196,0)=" ;;"
^XMB(3.9,3,2,197,0)="""RTN"",""DGEEREIM"",4,0)"
^XMB(3.9,3,2,198,0)=" ; This routine will identify and report any veteran who has a"
^XMB(3.9,3,2,199,0)="""RTN"",""DGEEREIM"",5,0)"
^XMB(3.9,3,2,200,0)=" ; Reimbursable Insurance Primary Eligibility Code and who is not"
^XMB(3.9,3,2,201,0)="""RTN"",""DGEEREIM"",6,0)"
^XMB(3.9,3,2,202,0)=" ; deceased."
^XMB(3.9,3,2,203,0)="""RTN"",""DGEEREIM"",7,0)"
^XMB(3.9,3,2,204,0)=" ;"
^XMB(3.9,3,2,205,0)="""RTN"",""DGEEREIM"",8,0)"
^XMB(3.9,3,2,206,0)="QUETASK ; Queue the DMZ/Reimbursable Stats job"
^XMB(3.9,3,2,207,0)="""RTN"",""DGEEREIM"",9,0)"
^XMB(3.9,3,2,208,0)=" N TXT,ZTRTN,ZTDESC,ZTSK,ZTIO,ZTDTH,POP,IO,IOBS,IOF,IOHG,IOM,ION,IOPAR"
^XMB(3.9,3,2,209,0)="""RTN"",""DGEEREIM"",10,0)"
^XMB(3.9,3,2,210,0)=" N IOS,IOSL,IOST,IOT,IOUPAR,IOXY,%ZIS,ZTSAVE"
^XMB(3.9,3,2,211,0)="""RTN"",""DGEEREIM"",11,0)"
^XMB(3.9,3,2,212,0)=" K ^TMP($J,""DGEEREIM"")"
^XMB(3.9,3,2,213,0)="""RTN"",""DGEEREIM"",12,0)"
^XMB(3.9,3,2,214,0)=" S %ZIS=""QM"" D ^%ZIS I $G(POP) W !,""Job Terminated!"" Q"
^XMB(3.9,3,2,215,0)="""RTN"",""DGEEREIM"",13,0)"
^XMB(3.9,3,2,216,0)=" I $D(IO(""Q"")) D  Q"
^XMB(3.9,3,2,217,0)="""RTN"",""DGEEREIM"",14,0)"
^XMB(3.9,3,2,218,0)=" .S ZTRTN=""LOOP^DGEEREIM"",ZTDTH=$$NOW^XLFDT()"
^XMB(3.9,3,2,219,0)="""RTN"",""DGEEREIM"",15,0)"
^XMB(3.9,3,2,220,0)=" .S ZTDESC=""REIMBURSABLE INSURANCE PRIMARY ELIG CODE JOB"""
^XMB(3.9,3,2,221,0)="""RTN"",""DGEEREIM"",16,0)"
^XMB(3.9,3,2,222,0)=" .D ^%ZTLOAD"
^XMB(3.9,3,2,223,0)="""RTN"",""DGEEREIM"",17,0)"
^XMB(3.9,3,2,224,0)=" .S TXT=$S($G(ZTSK):""Task: ""_ZTSK_"" Queued."",1:""Error: Process not queued!"")"
^XMB(3.9,3,2,225,0)="""RTN"",""DGEEREIM"",18,0)"
^XMB(3.9,3,2,226,0)=" .D HOME^%ZIS"
^XMB(3.9,3,2,227,0)="""RTN"",""DGEEREIM"",19,0)"
^XMB(3.9,3,2,228,0)=" .W !,TXT"
^XMB(3.9,3,2,229,0)="""RTN"",""DGEEREIM"",20,0)"
^XMB(3.9,3,2,230,0)=" ;"
^XMB(3.9,3,2,231,0)="""RTN"",""DGEEREIM"",21,0)"
^XMB(3.9,3,2,232,0)="LOOP ; entry point"
^XMB(3.9,3,2,233,0)="""RTN"",""DGEEREIM"",22,0)"
^XMB(3.9,3,2,234,0)=" N QFLG,DFN,ELIG,QUIT,RCNT,RDT,ZZ"
^XMB(3.9,3,2,235,0)="""RTN"",""DGEEREIM"",23,0)"
^XMB(3.9,3,2,236,0)=" N X,X1,X2,EC81,PRIMEC,%,CRT,DATA,DIRUT,EC8,LINE,NAME,PAGE"
^XMB(3.9,3,2,237,0)="""RTN"",""DGEEREIM"",24,0)"
^XMB(3.9,3,2,238,0)=" ; get local codes assigned to the national Reimbursible code"
^XMB(3.9,3,2,239,0)="""RTN"",""DGEEREIM"",25,0)"
^XMB(3.9,3,2,240,0)=" S EC8=$O(^DIC(8.1,""B"",""REIMBURSABLE INSURANCE"",""""))"
^XMB(3.9,3,2,241,0)="""RTN"",""DGEEREIM"",26,0)"
^XMB(3.9,3,2,242,0)=" S EC81="""""
^XMB(3.9,3,2,243,0)="""RTN"",""DGEEREIM"",27,0)"
^XMB(3.9,3,2,244,0)=" F  S EC81=$O(^DIC(8,""D"",EC8,EC81)) Q:'EC81  S ELIG(EC81)="""""
^XMB(3.9,3,2,245,0)="""RTN"",""DGEEREIM"",28,0)"
^XMB(3.9,3,2,246,0)=" ; loop through patient records"
^XMB(3.9,3,2,247,0)="""RTN"",""DGEEREIM"",29,0)"
^XMB(3.9,3,2,248,0)=" S DFN=0"
^XMB(3.9,3,2,249,0)="""RTN"",""DGEEREIM"",30,0)"
^XMB(3.9,3,2,250,0)=" F  S DFN=$O(^DPT(DFN)) Q:'DFN  D"
^XMB(3.9,3,2,251,0)="""RTN"",""DGEEREIM"",31,0)"
^XMB(3.9,3,2,252,0)=" .; quit if deceased"
^XMB(3.9,3,2,253,0)="""RTN"",""DGEEREIM"",32,0)"
^XMB(3.9,3,2,254,0)=" .Q:$P($G(^DPT(DFN,.35)),""^"")"
^XMB(3.9,3,2,255,0)="""RTN"",""DGEEREIM"",33,0)"
^XMB(3.9,3,2,256,0)=" .;check for Primary EC of Reimbursable Insurance"
^XMB(3.9,3,2,257,0)="""RTN"",""DGEEREIM"",34,0)"
^XMB(3.9,3,2,258,0)=" .S PRIMEC=$P($G(^DPT(DFN,.36)),""^""),EC81="""",QFLG=0"
^XMB(3.9,3,2,259,0)="""RTN"",""DGEEREIM"",35,0)"
^XMB(3.9,3,2,260,0)=" .F  S EC81=$O(ELIG(EC81)) Q:(QFLG!'EC81)  D"
^XMB(3.9,3,2,261,0)="""RTN"",""DGEEREIM"",36,0)"
^XMB(3.9,3,2,262,0)=" ..Q:PRIMEC'=EC81"
^XMB(3.9,3,2,263,0)="""RTN"",""DGEEREIM"",37,0)"
^XMB(3.9,3,2,264,0)=" ..S ^TMP($J,""DGEEREIM"",""RCNT"")=$G(^TMP($J,""DGEEREIM"",""RCNT""))+1,QFLG=1"
^XMB(3.9,3,2,265,0)="""RTN"",""DGEEREIM"",38,0)"
^XMB(3.9,3,2,266,0)=" ..S SSN=$P($G(^DPT(DFN,0)),""^"",9),NAME=$P($G(^DPT(DFN,0)),""^"")"
^XMB(3.9,3,2,267,0)="""RTN"",""DGEEREIM"",39,0)"
^XMB(3.9,3,2,268,0)=" ..S ^TMP($J,""DGEEREIM"",""DATA"",SSN)=NAME_""^""_$$EXTERNAL^DILFD(2,.361,"""",PRIMEC)"
^XMB(3.9,3,2,269,0)="""RTN"",""DGEEREIM"",40,0)"
^XMB(3.9,3,2,270,0)=" U IO"
^XMB(3.9,3,2,271,0)="""RTN"",""DGEEREIM"",41,0)"
^XMB(3.9,3,2,272,0)=" D PSET,REPORT"
^XMB(3.9,3,2,273,0)="""RTN"",""DGEEREIM"",42,0)"
^XMB(3.9,3,2,274,0)=" D ^%ZISC,HOME^%ZIS"
^XMB(3.9,3,2,275,0)="""RTN"",""DGEEREIM"",43,0)"
^XMB(3.9,3,2,276,0)=" Q"
^XMB(3.9,3,2,277,0)="""RTN"",""DGEEREIM"",44,0)"
^XMB(3.9,3,2,278,0)="PSET ; set up printer variables"
^XMB(3.9,3,2,279,0)="""RTN"",""DGEEREIM"",45,0)"
^XMB(3.9,3,2,280,0)=" N ZZ"
^XMB(3.9,3,2,281,0)="""RTN"",""DGEEREIM"",46,0)"
^XMB(3.9,3,2,282,0)=" S CRT=$S($E(IOST,1,2)=""C-"":1,1:0)"
^XMB(3.9,3,2,283,0)="""RTN"",""DGEEREIM"",47,0)"
^XMB(3.9,3,2,284,0)=" S (RDT,Y)="""""
^XMB(3.9,3,2,285,0)="""RTN"",""DGEEREIM"",48,0)"
^XMB(3.9,3,2,286,0)=" F ZZ=1:1:IOM S $P(LINE,""-"",ZZ)="""""
^XMB(3.9,3,2,287,0)="""RTN"",""DGEEREIM"",49,0)"
^XMB(3.9,3,2,288,0)=" D NOW^%DTC S Y=% X ^DD(""DD"")"
^XMB(3.9,3,2,289,0)="""RTN"",""DGEEREIM"",50,0)"
^XMB(3.9,3,2,290,0)=" S RDT=$P(Y,""@"",1)_"" @ ""_$P($P(Y,""@"",2),"":"",1,2)"
^XMB(3.9,3,2,291,0)="""RTN"",""DGEEREIM"",51,0)"
^XMB(3.9,3,2,292,0)=" S RCNT=+$G(^TMP($J,""DGEEREIM"",""RCNT""))"
^XMB(3.9,3,2,293,0)="""RTN"",""DGEEREIM"",52,0)"
^XMB(3.9,3,2,294,0)=" Q"
^XMB(3.9,3,2,295,0)="""RTN"",""DGEEREIM"",53,0)"
^XMB(3.9,3,2,296,0)="HDR ; Report Header"
^XMB(3.9,3,2,297,0)="""RTN"",""DGEEREIM"",54,0)"
^XMB(3.9,3,2,298,0)=" W !,?((IOM-40)\2),""Reimbursable Insurance Primary EC Report"""
^XMB(3.9,3,2,299,0)="""RTN"",""DGEEREIM"",55,0)"
^XMB(3.9,3,2,300,0)=" W !,?((IOM-22-$L(RDT))\2),""Date/Time Report Run: "",RDT"
^XMB(3.9,3,2,301,0)="""RTN"",""DGEEREIM"",56,0)"
^XMB(3.9,3,2,302,0)=" W !!,?((IOM-35-$L(RCNT))\2),""Total Patients with RI Primary EC: "",RCNT"
^XMB(3.9,3,2,303,0)="""RTN"",""DGEEREIM"",57,0)"
^XMB(3.9,3,2,304,0)=" W !,LINE"
^XMB(3.9,3,2,305,0)="""RTN"",""DGEEREIM"",58,0)"
^XMB(3.9,3,2,306,0)=" W !!,?5,""SSN"",?17,""NAME"",?50,""PRIMARY ELIG. CODE"""
^XMB(3.9,3,2,307,0)="""RTN"",""DGEEREIM"",59,0)"
^XMB(3.9,3,2,308,0)=" W !,?5,""---------"",?17,""------------------------------"""
^XMB(3.9,3,2,309,0)="""RTN"",""DGEEREIM"",60,0)"
^XMB(3.9,3,2,310,0)=" W ?50,""-------------------"""
^XMB(3.9,3,2,311,0)="""RTN"",""DGEEREIM"",61,0)"
^XMB(3.9,3,2,312,0)=" Q"
^XMB(3.9,3,2,313,0)="""RTN"",""DGEEREIM"",62,0)"
^XMB(3.9,3,2,314,0)="REPORT ;report results"
^XMB(3.9,3,2,315,0)="""RTN"",""DGEEREIM"",63,0)"
^XMB(3.9,3,2,316,0)=" N SSN"
^XMB(3.9,3,2,317,0)="""RTN"",""DGEEREIM"",64,0)"
^XMB(3.9,3,2,318,0)=" I CRT,+$G(PAGE)=0 W @IOF"
^XMB(3.9,3,2,319,0)="""RTN"",""DGEEREIM"",65,0)"
^XMB(3.9,3,2,320,0)=" S PAGE=1 D HDR"
^XMB(3.9,3,2,321,0)="""RTN"",""DGEEREIM"",66,0)"
^XMB(3.9,3,2,322,0)=" S SSN="""" F  S SSN=$O(^TMP($J,""DGEEREIM"",""DATA"",SSN)) Q:SSN']""""!($G(QUIT))  D"
^XMB(3.9,3,2,323,0)="""RTN"",""DGEEREIM"",67,0)"
^XMB(3.9,3,2,324,0)=" .S DATA=$G(^TMP($J,""DGEEREIM"",""DATA"",SSN))"
^XMB(3.9,3,2,325,0)="""RTN"",""DGEEREIM"",68,0)"
^XMB(3.9,3,2,326,0)=" .I $Y>(IOSL-5) W:'$G(CRT) !,?68,""Page: ""_PAGE D:$G(CRT) PAUSE Q:$G(QUIT)  W @IOF D HDR S PAGE=PAGE+1"
^XMB(3.9,3,2,327,0)="""RTN"",""DGEEREIM"",69,0)"
^XMB(3.9,3,2,328,0)=" .W !?5,SSN,?17,$P(DATA,""^""),?50,$P(DATA,""^"",2)"
^XMB(3.9,3,2,329,0)="""RTN"",""DGEEREIM"",70,0)"
^XMB(3.9,3,2,330,0)=" Q"
^XMB(3.9,3,2,331,0)="""RTN"",""DGEEREIM"",71,0)"
^XMB(3.9,3,2,332,0)=" ;"
^XMB(3.9,3,2,333,0)="""RTN"",""DGEEREIM"",72,0)"
^XMB(3.9,3,2,334,0)="PAUSE ;  Screen pause.  Sets QUIT=1 if user decides to quit.        "
^XMB(3.9,3,2,335,0)="""RTN"",""DGEEREIM"",73,0)"
^XMB(3.9,3,2,336,0)=" N DIR,X,Y"
^XMB(3.9,3,2,337,0)="""RTN"",""DGEEREIM"",74,0)"
^XMB(3.9,3,2,338,0)=" F  Q:$Y>(IOSL-5)  W !"
^XMB(3.9,3,2,339,0)="""RTN"",""DGEEREIM"",75,0)"
^XMB(3.9,3,2,340,0)=" W !,?68,""Page: ""_PAGE,!"
^XMB(3.9,3,2,341,0)="""RTN"",""DGEEREIM"",76,0)"
^XMB(3.9,3,2,342,0)=" S DIR(0)=""E"" D ^DIR I ('(+Y))!$D(DIRUT) S QUIT=1"
^XMB(3.9,3,2,343,0)="""RTN"",""DGEEREIM"",77,0)"
^XMB(3.9,3,2,344,0)=" Q"
^XMB(3.9,3,2,345,0)="""VER"")"
^XMB(3.9,3,2,346,0)="8.0^22.0"
^XMB(3.9,3,2,347,0)="""BLD"",6179,6)"
^XMB(3.9,3,2,348,0)="^618"
^XMB(3.9,3,2,349,0)="$END KID DG*5.3*706"
^XMB(3.9,3,6,0)="^3.911A^2^2"
^XMB(3.9,3,6,1,0)="POSTMASTER"
^XMB(3.9,3,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,3,6,"B","POSTMASTER",1)=""
^XMB(3.9,3,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,4,0)="DG-5P3_SEQ-619_PAT-611.KID^.5^3061008.01573^^^^K"
^XMB(3.9,4,.6)="3061008"
^XMB(3.9,4,1,0)="^3.91A^2^2"
^XMB(3.9,4,1,1,0)=".5^0^3061008.01573^^^^^^^3061008.01573"
^XMB(3.9,4,1,2,0)="1^0^3061008.023315^^^^^^^3061008.023315"
^XMB(3.9,4,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,4,1,"C",.5,1)=""
^XMB(3.9,4,1,"C",1,2)=""
^XMB(3.9,4,2,0)="^^685^685^3061008"
^XMB(3.9,4,2,1,0)="$TXT Released DG*5.3*611 SEQ #619"
^XMB(3.9,4,2,2,0)="Extracted from mail message"
^XMB(3.9,4,2,3,0)="$END TXT"
^XMB(3.9,4,2,4,0)="$KID DG*5.3*611"
^XMB(3.9,4,2,5,0)="**INSTALL NAME**"
^XMB(3.9,4,2,6,0)="DG*5.3*611"
^XMB(3.9,4,2,7,0)="""BLD"",6021,0)"
^XMB(3.9,4,2,8,0)="DG*5.3*611^REGISTRATION^0^3060503^y"
^XMB(3.9,4,2,9,0)="""BLD"",6021,1,0)"
^XMB(3.9,4,2,10,0)="^^1^1^3051206^"
^XMB(3.9,4,2,11,0)="""BLD"",6021,1,1,0)"
^XMB(3.9,4,2,12,0)="FIX MEANS TEST DISPLAY"
^XMB(3.9,4,2,13,0)="""BLD"",6021,4,0)"
^XMB(3.9,4,2,14,0)="^9.64PA^^"
^XMB(3.9,4,2,15,0)="""BLD"",6021,6.3)"
^XMB(3.9,4,2,16,0)="3"
^XMB(3.9,4,2,17,0)="""BLD"",6021,""KRN"",0)"
^XMB(3.9,4,2,18,0)="^9.67PA^8989.52^19"
^XMB(3.9,4,2,19,0)="""BLD"",6021,""KRN"",.4,0)"
^XMB(3.9,4,2,20,0)=".4"
^XMB(3.9,4,2,21,0)="""BLD"",6021,""KRN"",.401,0)"
^XMB(3.9,4,2,22,0)=".401"
^XMB(3.9,4,2,23,0)="""BLD"",6021,""KRN"",.402,0)"
^XMB(3.9,4,2,24,0)=".402"
^XMB(3.9,4,2,25,0)="""BLD"",6021,""KRN"",.403,0)"
^XMB(3.9,4,2,26,0)=".403"
^XMB(3.9,4,2,27,0)="""BLD"",6021,""KRN"",.5,0)"
^XMB(3.9,4,2,28,0)=".5"
^XMB(3.9,4,2,29,0)="""BLD"",6021,""KRN"",.84,0)"
^XMB(3.9,4,2,30,0)=".84"
^XMB(3.9,4,2,31,0)="""BLD"",6021,""KRN"",3.6,0)"
^XMB(3.9,4,2,32,0)="3.6"
^XMB(3.9,4,2,33,0)="""BLD"",6021,""KRN"",3.8,0)"
^XMB(3.9,4,2,34,0)="3.8"
^XMB(3.9,4,2,35,0)="""BLD"",6021,""KRN"",9.2,0)"
^XMB(3.9,4,2,36,0)="9.2"
^XMB(3.9,4,2,37,0)="""BLD"",6021,""KRN"",9.8,0)"
^XMB(3.9,4,2,38,0)="9.8"
^XMB(3.9,4,2,39,0)="""BLD"",6021,""KRN"",9.8,""NM"",0)"
^XMB(3.9,4,2,40,0)="^9.68A^2^2"
^XMB(3.9,4,2,41,0)="""BLD"",6021,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,4,2,42,0)="DGMTSC^^0^B22224962"
^XMB(3.9,4,2,43,0)="""BLD"",6021,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,4,2,44,0)="DGMTSCC^^0^B36081556"
^XMB(3.9,4,2,45,0)="""BLD"",6021,""KRN"",9.8,""NM"",""B"",""DGMTSC"",1)"
^XMB(3.9,4,2,46,0)=""
^XMB(3.9,4,2,47,0)="""BLD"",6021,""KRN"",9.8,""NM"",""B"",""DGMTSCC"",2)"
^XMB(3.9,4,2,48,0)=""
^XMB(3.9,4,2,49,0)="""BLD"",6021,""KRN"",19,0)"
^XMB(3.9,4,2,50,0)="19"
^XMB(3.9,4,2,51,0)="""BLD"",6021,""KRN"",19.1,0)"
^XMB(3.9,4,2,52,0)="19.1"
^XMB(3.9,4,2,53,0)="""BLD"",6021,""KRN"",101,0)"
^XMB(3.9,4,2,54,0)="101"
^XMB(3.9,4,2,55,0)="""BLD"",6021,""KRN"",409.61,0)"
^XMB(3.9,4,2,56,0)="409.61"
^XMB(3.9,4,2,57,0)="""BLD"",6021,""KRN"",771,0)"
^XMB(3.9,4,2,58,0)="771"
^XMB(3.9,4,2,59,0)="""BLD"",6021,""KRN"",870,0)"
^XMB(3.9,4,2,60,0)="870"
^XMB(3.9,4,2,61,0)="""BLD"",6021,""KRN"",8989.51,0)"
^XMB(3.9,4,2,62,0)="8989.51"
^XMB(3.9,4,2,63,0)="""BLD"",6021,""KRN"",8989.52,0)"
^XMB(3.9,4,2,64,0)="8989.52"
^XMB(3.9,4,2,65,0)="""BLD"",6021,""KRN"",8994,0)"
^XMB(3.9,4,2,66,0)="8994"
^XMB(3.9,4,2,67,0)="""BLD"",6021,""KRN"",""B"",.4,.4)"
^XMB(3.9,4,2,68,0)=""
^XMB(3.9,4,2,69,0)="""BLD"",6021,""KRN"",""B"",.401,.401)"
^XMB(3.9,4,2,70,0)=""
^XMB(3.9,4,2,71,0)="""BLD"",6021,""KRN"",""B"",.402,.402)"
^XMB(3.9,4,2,72,0)=""
^XMB(3.9,4,2,73,0)="""BLD"",6021,""KRN"",""B"",.403,.403)"
^XMB(3.9,4,2,74,0)=""
^XMB(3.9,4,2,75,0)="""BLD"",6021,""KRN"",""B"",.5,.5)"
^XMB(3.9,4,2,76,0)=""
^XMB(3.9,4,2,77,0)="""BLD"",6021,""KRN"",""B"",.84,.84)"
^XMB(3.9,4,2,78,0)=""
^XMB(3.9,4,2,79,0)="""BLD"",6021,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,4,2,80,0)=""
^XMB(3.9,4,2,81,0)="""BLD"",6021,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,4,2,82,0)=""
^XMB(3.9,4,2,83,0)="""BLD"",6021,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,4,2,84,0)=""
^XMB(3.9,4,2,85,0)="""BLD"",6021,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,4,2,86,0)=""
^XMB(3.9,4,2,87,0)="""BLD"",6021,""KRN"",""B"",19,19)"
^XMB(3.9,4,2,88,0)=""
^XMB(3.9,4,2,89,0)="""BLD"",6021,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,4,2,90,0)=""
^XMB(3.9,4,2,91,0)="""BLD"",6021,""KRN"",""B"",101,101)"
^XMB(3.9,4,2,92,0)=""
^XMB(3.9,4,2,93,0)="""BLD"",6021,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,4,2,94,0)=""
^XMB(3.9,4,2,95,0)="""BLD"",6021,""KRN"",""B"",771,771)"
^XMB(3.9,4,2,96,0)=""
^XMB(3.9,4,2,97,0)="""BLD"",6021,""KRN"",""B"",870,870)"
^XMB(3.9,4,2,98,0)=""
^XMB(3.9,4,2,99,0)="""BLD"",6021,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,4,2,100,0)=""
^XMB(3.9,4,2,101,0)="""BLD"",6021,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,4,2,102,0)=""
^XMB(3.9,4,2,103,0)="""BLD"",6021,""KRN"",""B"",8994,8994)"
^XMB(3.9,4,2,104,0)=""
^XMB(3.9,4,2,105,0)="""BLD"",6021,""QUES"",0)"
^XMB(3.9,4,2,106,0)="^9.62^^"
^XMB(3.9,4,2,107,0)="""BLD"",6021,""REQB"",0)"
^XMB(3.9,4,2,108,0)="^9.611^2^2"
^XMB(3.9,4,2,109,0)="""BLD"",6021,""REQB"",1,0)"
^XMB(3.9,4,2,110,0)="DG*5.3*566^2"
^XMB(3.9,4,2,111,0)="""BLD"",6021,""REQB"",2,0)"
^XMB(3.9,4,2,112,0)="DG*5.3*624^2"
^XMB(3.9,4,2,113,0)="""BLD"",6021,""REQB"",""B"",""DG*5.3*566"",1)"
^XMB(3.9,4,2,114,0)=""
^XMB(3.9,4,2,115,0)="""BLD"",6021,""REQB"",""B"",""DG*5.3*624"",2)"
^XMB(3.9,4,2,116,0)=""
^XMB(3.9,4,2,117,0)="""MBREQ"")"
^XMB(3.9,4,2,118,0)="0"
^XMB(3.9,4,2,119,0)="""PKG"",5,-1)"
^XMB(3.9,4,2,120,0)="1^1"
^XMB(3.9,4,2,121,0)="""PKG"",5,0)"
^XMB(3.9,4,2,122,0)="REGISTRATION^DG^PATIENT REGISTRATION, ADMISSION, DISCHARGE, EMBOSSER "
^XMB(3.9,4,2,123,0)="""PKG"",5,20,0)"
^XMB(3.9,4,2,124,0)="^9.402P^^"
^XMB(3.9,4,2,125,0)="""PKG"",5,22,0)"
^XMB(3.9,4,2,126,0)="^9.49I^1^1"
^XMB(3.9,4,2,127,0)="""PKG"",5,22,1,0)"
^XMB(3.9,4,2,128,0)="5.3^2930813"
^XMB(3.9,4,2,129,0)="""PKG"",5,22,1,""PAH"",1,0)"
^XMB(3.9,4,2,130,0)="611^3060503"
^XMB(3.9,4,2,131,0)="""PKG"",5,22,1,""PAH"",1,1,0)"
^XMB(3.9,4,2,132,0)="^^1^1^3060503"
^XMB(3.9,4,2,133,0)="""PKG"",5,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,4,2,134,0)="FIX MEANS TEST DISPLAY"
^XMB(3.9,4,2,135,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,4,2,136,0)="Y"
^XMB(3.9,4,2,137,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,4,2,138,0)="^D REP^XPDH"
^XMB(3.9,4,2,139,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,4,2,140,0)="Shall I write over your |FLAG| File"
^XMB(3.9,4,2,141,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,4,2,142,0)="YES"
^XMB(3.9,4,2,143,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,4,2,144,0)="D XPF1^XPDIQ"
^XMB(3.9,4,2,145,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,4,2,146,0)="Y"
^XMB(3.9,4,2,147,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,4,2,148,0)="^D DTA^XPDH"
^XMB(3.9,4,2,149,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,4,2,150,0)="Want my data |FLAG| yours"
^XMB(3.9,4,2,151,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,4,2,152,0)="YES"
^XMB(3.9,4,2,153,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,4,2,154,0)="D XPF2^XPDIQ"
^XMB(3.9,4,2,155,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,4,2,156,0)="YO"
^XMB(3.9,4,2,157,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,4,2,158,0)="^D INHIBIT^XPDH"
^XMB(3.9,4,2,159,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,4,2,160,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,4,2,161,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,4,2,162,0)="YES"
^XMB(3.9,4,2,163,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,4,2,164,0)="D XPI1^XPDIQ"
^XMB(3.9,4,2,165,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,4,2,166,0)="PO^VA(200,:EM"
^XMB(3.9,4,2,167,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,4,2,168,0)="^D MG^XPDH"
^XMB(3.9,4,2,169,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,4,2,170,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,4,2,171,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,4,2,172,0)=""
^XMB(3.9,4,2,173,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,4,2,174,0)="D XPM1^XPDIQ"
^XMB(3.9,4,2,175,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,4,2,176,0)="Y"
^XMB(3.9,4,2,177,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,4,2,178,0)="^D MENU^XPDH"
^XMB(3.9,4,2,179,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,4,2,180,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,4,2,181,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,4,2,182,0)="YES"
^XMB(3.9,4,2,183,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,4,2,184,0)="D XPO1^XPDIQ"
^XMB(3.9,4,2,185,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,4,2,186,0)="Y"
^XMB(3.9,4,2,187,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,4,2,188,0)="^D OPT^XPDH"
^XMB(3.9,4,2,189,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,4,2,190,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,4,2,191,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,4,2,192,0)="YES"
^XMB(3.9,4,2,193,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,4,2,194,0)="D XPZ1^XPDIQ"
^XMB(3.9,4,2,195,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,4,2,196,0)="Y"
^XMB(3.9,4,2,197,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,4,2,198,0)="^D RTN^XPDH"
^XMB(3.9,4,2,199,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,4,2,200,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,4,2,201,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,4,2,202,0)="NO"
^XMB(3.9,4,2,203,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,4,2,204,0)="D XPZ2^XPDIQ"
^XMB(3.9,4,2,205,0)="""RTN"")"
^XMB(3.9,4,2,206,0)="2"
^XMB(3.9,4,2,207,0)="""RTN"",""DGMTSC"")"
^XMB(3.9,4,2,208,0)="0^1^B22224962^B12063858"
^XMB(3.9,4,2,209,0)="""RTN"",""DGMTSC"",1,0)"
^XMB(3.9,4,2,210,0)="DGMTSC ;ALB/RMO,CAW,RTK,PDJ,LBD,EG - Means Test Screen Driver ;05/02/2006"
^XMB(3.9,4,2,211,0)="""RTN"",""DGMTSC"",2,0)"
^XMB(3.9,4,2,212,0)=" ;;5.3;Registration;**182,327,372,433,463,540,566,611**;Aug 13, 1993;Build 3"
^XMB(3.9,4,2,213,0)="""RTN"",""DGMTSC"",3,0)"
^XMB(3.9,4,2,214,0)=" ;"
^XMB(3.9,4,2,215,0)="""RTN"",""DGMTSC"",4,0)"
^XMB(3.9,4,2,216,0)=" ;A series of screens used to collect the means test data"
^XMB(3.9,4,2,217,0)="""RTN"",""DGMTSC"",5,0)"
^XMB(3.9,4,2,218,0)=" ; Input  -- DFN      Patient IEN"
^XMB(3.9,4,2,219,0)="""RTN"",""DGMTSC"",6,0)"
^XMB(3.9,4,2,220,0)=" ;           DGMTACT  Means Test Action  (ie, ADD to Add a Means Test)"
^XMB(3.9,4,2,221,0)="""RTN"",""DGMTSC"",7,0)"
^XMB(3.9,4,2,222,0)=" ;           DGMTDT   Date of Test"
^XMB(3.9,4,2,223,0)="""RTN"",""DGMTSC"",8,0)"
^XMB(3.9,4,2,224,0)=" ;           DGMTI    Annual Means Test IEN"
^XMB(3.9,4,2,225,0)="""RTN"",""DGMTSC"",9,0)"
^XMB(3.9,4,2,226,0)=" ;           DTMTYPT  Type of Test 1=MT 2=COPAY"
^XMB(3.9,4,2,227,0)="""RTN"",""DGMTSC"",10,0)"
^XMB(3.9,4,2,228,0)=" ;           DGMTROU  Option Routine Return"
^XMB(3.9,4,2,229,0)="""RTN"",""DGMTSC"",11,0)"
^XMB(3.9,4,2,230,0)=" ; Output -- None"
^XMB(3.9,4,2,231,0)="""RTN"",""DGMTSC"",12,0)"
^XMB(3.9,4,2,232,0)=" ;"
^XMB(3.9,4,2,233,0)="""RTN"",""DGMTSC"",13,0)"
^XMB(3.9,4,2,234,0)=" ;DG*5.3*540 - set 408.21 (Idiv. Ann. Income) ien to 0 to prevent from"
^XMB(3.9,4,2,235,0)="""RTN"",""DGMTSC"",14,0)"
^XMB(3.9,4,2,236,0)=" ;             linking to old test incomes for IVM converted cases."
^XMB(3.9,4,2,237,0)="""RTN"",""DGMTSC"",15,0)"
^XMB(3.9,4,2,238,0)=" ;"
^XMB(3.9,4,2,239,0)="""RTN"",""DGMTSC"",16,0)"
^XMB(3.9,4,2,240,0)="EN ;Entry point for means test screen driver"
^XMB(3.9,4,2,241,0)="""RTN"",""DGMTSC"",17,0)"
^XMB(3.9,4,2,242,0)=" D PRIOR^DGMTEVT:DGMTACT'=""VEW"",HOME^%ZIS,SETUP^DGMTSCU I DGERR D MG G Q1"
^XMB(3.9,4,2,243,0)="""RTN"",""DGMTSC"",18,0)"
^XMB(3.9,4,2,244,0)=" N DGREF,DTOUT,DUOUT,DGCAT,DGREF,ANSPFIN,PROVS"
^XMB(3.9,4,2,245,0)="""RTN"",""DGMTSC"",19,0)"
^XMB(3.9,4,2,246,0)=" S ANSPFIN=""N"""
^XMB(3.9,4,2,247,0)="""RTN"",""DGMTSC"",20,0)"
^XMB(3.9,4,2,248,0)=" I DGMTACT=""ADD""!(DGMTACT=""EDT"")!(DGMTACT=""COM"") D DISCF Q:$D(DTOUT)!$D(DUOUT)  I $D(DGREF) D Q Q"
^XMB(3.9,4,2,249,0)="""RTN"",""DGMTSC"",21,0)"
^XMB(3.9,4,2,250,0)=" ;"
^XMB(3.9,4,2,251,0)="""RTN"",""DGMTSC"",22,0)"
^XMB(3.9,4,2,252,0)="EN1 ;Entry point to edit means test if incomplete"
^XMB(3.9,4,2,253,0)="""RTN"",""DGMTSC"",23,0)"
^XMB(3.9,4,2,254,0)=" S DGMTSCI=+$O(DGMTSC(0))"
^XMB(3.9,4,2,255,0)="""RTN"",""DGMTSC"",24,0)"
^XMB(3.9,4,2,256,0)=" I DGMTI,$$GET1^DIQ(408.31,DGMTI,.23)[""IVM"" S DGVINI=0     ;DG*5.3*540"
^XMB(3.9,4,2,257,0)="""RTN"",""DGMTSC"",25,0)"
^XMB(3.9,4,2,258,0)=" G @($$ROU^DGMTSCU(DGMTSCI))"
^XMB(3.9,4,2,259,0)="""RTN"",""DGMTSC"",26,0)"
^XMB(3.9,4,2,260,0)=" ;"
^XMB(3.9,4,2,261,0)="""RTN"",""DGMTSC"",27,0)"
^XMB(3.9,4,2,262,0)=" ;"
^XMB(3.9,4,2,263,0)="""RTN"",""DGMTSC"",28,0)"
^XMB(3.9,4,2,264,0)="Q I DGMTACT'=""VEW"" D EN^DGMTSCC I DGERR G EN1:$$EDT"
^XMB(3.9,4,2,265,0)="""RTN"",""DGMTSC"",29,0)"
^XMB(3.9,4,2,266,0)=" ; Added for LTC Co-pay Phase II - DG*5.3*433"
^XMB(3.9,4,2,267,0)="""RTN"",""DGMTSC"",30,0)"
^XMB(3.9,4,2,268,0)=" I DGMTACT'=""VEW"",DGMTYPT=4 D  G K"
^XMB(3.9,4,2,269,0)="""RTN"",""DGMTSC"",31,0)"
^XMB(3.9,4,2,270,0)=" .Q:$P($G(^DGMT(408.31,DGMTI,0)),U,3)=""""  ; LTC 4 test is incomplete"
^XMB(3.9,4,2,271,0)="""RTN"",""DGMTSC"",32,0)"
^XMB(3.9,4,2,272,0)=" .D AFTER^DGMTEVT S DGMTINF=0"
^XMB(3.9,4,2,273,0)="""RTN"",""DGMTSC"",33,0)"
^XMB(3.9,4,2,274,0)=" .D EN^DGMTAUD,EN^IVMPMTE"
^XMB(3.9,4,2,275,0)="""RTN"",""DGMTSC"",34,0)"
^XMB(3.9,4,2,276,0)=" .D DATETIME^DGMTU4(DGMTI)"
^XMB(3.9,4,2,277,0)="""RTN"",""DGMTSC"",35,0)"
^XMB(3.9,4,2,278,0)=" .; If LTC copay exemption test is edited, update LTC copay test"
^XMB(3.9,4,2,279,0)="""RTN"",""DGMTSC"",36,0)"
^XMB(3.9,4,2,280,0)=" .I DGMTACT=""EDT"" D UPLTC3^EASECMT(DGMTI)"
^XMB(3.9,4,2,281,0)="""RTN"",""DGMTSC"",37,0)"
^XMB(3.9,4,2,282,0)="Q1 I DGMTACT'=""VEW"" D AFTER^DGMTEVT S DGMTINF=0 D EN^DGMTEVT"
^XMB(3.9,4,2,283,0)="""RTN"",""DGMTSC"",38,0)"
^XMB(3.9,4,2,284,0)=" ;"
^XMB(3.9,4,2,285,0)="""RTN"",""DGMTSC"",39,0)"
^XMB(3.9,4,2,286,0)=" ;If the veteran has agreed to pay copay after previously refusing,"
^XMB(3.9,4,2,287,0)="""RTN"",""DGMTSC"",40,0)"
^XMB(3.9,4,2,288,0)=" ;automatically update their Primary Eligibility (327-Ineligible Project)"
^XMB(3.9,4,2,289,0)="""RTN"",""DGMTSC"",41,0)"
^XMB(3.9,4,2,290,0)=" I $D(DGMTP),$D(DGMTA) D"
^XMB(3.9,4,2,291,0)="""RTN"",""DGMTSC"",42,0)"
^XMB(3.9,4,2,292,0)=" .I $D(^DPT(DFN,.3)),$P(DGMTP,U,11)=0,$P(DGMTA,U,11)=1 D"
^XMB(3.9,4,2,293,0)="""RTN"",""DGMTSC"",43,0)"
^XMB(3.9,4,2,294,0)=" ..N DATA"
^XMB(3.9,4,2,295,0)="""RTN"",""DGMTSC"",44,0)"
^XMB(3.9,4,2,296,0)=" ..I $P(^DPT(DFN,.3),U)=""Y"" S DATA(.361)=$O(^DIC(8,""B"",""SC LESS THAN 50%"",""""))"
^XMB(3.9,4,2,297,0)="""RTN"",""DGMTSC"",45,0)"
^XMB(3.9,4,2,298,0)=" ..E  S DATA(.361)=$O(^DIC(8,""B"",""NSC"",""""))"
^XMB(3.9,4,2,299,0)="""RTN"",""DGMTSC"",46,0)"
^XMB(3.9,4,2,300,0)=" ..I $$UPD^DGENDBS(2,DFN,.DATA)"
^XMB(3.9,4,2,301,0)="""RTN"",""DGMTSC"",47,0)"
^XMB(3.9,4,2,302,0)=" .;If the veteran has refused to pay copay, update ENROLLMENT"
^XMB(3.9,4,2,303,0)="""RTN"",""DGMTSC"",48,0)"
^XMB(3.9,4,2,304,0)=" .;PRIORITY to null."
^XMB(3.9,4,2,305,0)="""RTN"",""DGMTSC"",49,0)"
^XMB(3.9,4,2,306,0)=" .I $P(DGMTA,U,11)=0 D"
^XMB(3.9,4,2,307,0)="""RTN"",""DGMTSC"",50,0)"
^XMB(3.9,4,2,308,0)=" ..S CUR=$$FINDCUR^DGENA(DFN)"
^XMB(3.9,4,2,309,0)="""RTN"",""DGMTSC"",51,0)"
^XMB(3.9,4,2,310,0)=" ..N DATA S DATA(.07)=""@"" I $$UPD^DGENDBS(27.11,CUR,.DATA)"
^XMB(3.9,4,2,311,0)="""RTN"",""DGMTSC"",52,0)"
^XMB(3.9,4,2,312,0)=" ;"
^XMB(3.9,4,2,313,0)="""RTN"",""DGMTSC"",53,0)"
^XMB(3.9,4,2,314,0)=" ; Added for LTC Copay Phase II (DG*5.2*433)"
^XMB(3.9,4,2,315,0)="""RTN"",""DGMTSC"",54,0)"
^XMB(3.9,4,2,316,0)=" ; If means test or copay test is edited and has a LTC copay exemption"
^XMB(3.9,4,2,317,0)="""RTN"",""DGMTSC"",55,0)"
^XMB(3.9,4,2,318,0)=" ; test associated with it, update the LTC copay exemption test."
^XMB(3.9,4,2,319,0)="""RTN"",""DGMTSC"",56,0)"
^XMB(3.9,4,2,320,0)=" I DGMTACT=""EDT"",$O(^DGMT(408.31,""AT"",DGMTI,0)) D LTC4^EASECMT(DGMTI)"
^XMB(3.9,4,2,321,0)="""RTN"",""DGMTSC"",57,0)"
^XMB(3.9,4,2,322,0)=" ;"
^XMB(3.9,4,2,323,0)="""RTN"",""DGMTSC"",58,0)"
^XMB(3.9,4,2,324,0)="K K %,DGBL,DGDC,DGDEP,DGDR,DGFCOL,DGFL,DGMT0,DGMTA,DGMTINF,DGMTOUT,DGMTP,DGMTPAR,DGMTSC,DGMTSCI,DGREL,DGRNG,DGRPPR,DGSCOL,DGSEL,DGSELTY,DGVI,DGVINI,DGVIRI,DGVO,DGVPRI,DGX,DGY,DTOUT,DUOUT,Y,Z"
^XMB(3.9,4,2,325,0)="""RTN"",""DGMTSC"",59,0)"
^XMB(3.9,4,2,326,0)=" ;"
^XMB(3.9,4,2,327,0)="""RTN"",""DGMTSC"",60,0)"
^XMB(3.9,4,2,328,0)=" ; Validate record with consistency checks, when adding, editing, or"
^XMB(3.9,4,2,329,0)="""RTN"",""DGMTSC"",61,0)"
^XMB(3.9,4,2,330,0)=" ; completing either a means or copay test."
^XMB(3.9,4,2,331,0)="""RTN"",""DGMTSC"",62,0)"
^XMB(3.9,4,2,332,0)=" ; For DG*5.3*566 - added a check for Status field to be defined before"
^XMB(3.9,4,2,333,0)="""RTN"",""DGMTSC"",63,0)"
^XMB(3.9,4,2,334,0)=" ; calling the consistency check API (INCON^DGMTUTL1)."
^XMB(3.9,4,2,335,0)="""RTN"",""DGMTSC"",64,0)"
^XMB(3.9,4,2,336,0)=" K IVMERR,IVMAR,IVMAR2"
^XMB(3.9,4,2,337,0)="""RTN"",""DGMTSC"",65,0)"
^XMB(3.9,4,2,338,0)=" ;don't apply consistency checks if user elects to not provide financial information"
^XMB(3.9,4,2,339,0)="""RTN"",""DGMTSC"",66,0)"
^XMB(3.9,4,2,340,0)=" I DGMTACT'=""VEW"",$P($G(^DGMT(408.31,DGMTI,0)),U,3),'$D(DGREF) D INCON^DGMTUTL1(DFN,DGMTDT,DGMTI,DGMTYPT,.IVMERR),PROB^IVMCMFB(DGMTDT,.IVMERR,1)"
^XMB(3.9,4,2,341,0)="""RTN"",""DGMTSC"",67,0)"
^XMB(3.9,4,2,342,0)=" ;"
^XMB(3.9,4,2,343,0)="""RTN"",""DGMTSC"",68,0)"
^XMB(3.9,4,2,344,0)=" ;Update the TEST-DETERMINED STATUS field (#2.03) in the ANNUAL MEANS"
^XMB(3.9,4,2,345,0)="""RTN"",""DGMTSC"",69,0)"
^XMB(3.9,4,2,346,0)=" ;TEST file (408.31) when adding a means or copay test, completing a "
^XMB(3.9,4,2,347,0)="""RTN"",""DGMTSC"",70,0)"
^XMB(3.9,4,2,348,0)=" ;means test, or editing a means or copay test."
^XMB(3.9,4,2,349,0)="""RTN"",""DGMTSC"",71,0)"
^XMB(3.9,4,2,350,0)=" I ""ADDCOMEDT""[DGMTACT D SAVESTAT^DGMTU4(DGMTI,DGERR)"
^XMB(3.9,4,2,351,0)="""RTN"",""DGMTSC"",72,0)"
^XMB(3.9,4,2,352,0)=" K DGERR,IVMERR,ARRAY,ZIC,ZIR,ZMT,ZDP,IVMAR,IVMAR2,DGREF"
^XMB(3.9,4,2,353,0)="""RTN"",""DGMTSC"",73,0)"
^XMB(3.9,4,2,354,0)=" ;"
^XMB(3.9,4,2,355,0)="""RTN"",""DGMTSC"",74,0)"
^XMB(3.9,4,2,356,0)=" G @(DGMTROU)"
^XMB(3.9,4,2,357,0)="""RTN"",""DGMTSC"",75,0)"
^XMB(3.9,4,2,358,0)=" ;"
^XMB(3.9,4,2,359,0)="""RTN"",""DGMTSC"",76,0)"
^XMB(3.9,4,2,360,0)="MG ;Print set-up error messages"
^XMB(3.9,4,2,361,0)="""RTN"",""DGMTSC"",77,0)"
^XMB(3.9,4,2,362,0)=" I $D(DGVPRI),DGVPRI'>0 W !!?3,""Patient Relation cannot be setup for patient."""
^XMB(3.9,4,2,363,0)="""RTN"",""DGMTSC"",78,0)"
^XMB(3.9,4,2,364,0)=" I $D(DGVINI),DGVINI'>0 W !!?3,""Individual Annual Income cannot be setup for patient."""
^XMB(3.9,4,2,365,0)="""RTN"",""DGMTSC"",79,0)"
^XMB(3.9,4,2,366,0)=" I $D(DGMTPAR),DGMTPAR']"""",DGMTYPT=1 W !!?3,""Means Test Thresholds are not defined."""
^XMB(3.9,4,2,367,0)="""RTN"",""DGMTSC"",80,0)"
^XMB(3.9,4,2,368,0)=" W !?3,*7,""Please contact your site manager."""
^XMB(3.9,4,2,369,0)="""RTN"",""DGMTSC"",81,0)"
^XMB(3.9,4,2,370,0)=" Q"
^XMB(3.9,4,2,371,0)="""RTN"",""DGMTSC"",82,0)"
^XMB(3.9,4,2,372,0)=" ;"
^XMB(3.9,4,2,373,0)="""RTN"",""DGMTSC"",83,0)"
^XMB(3.9,4,2,374,0)="EDT() ;Edit means/copay test if incomplete"
^XMB(3.9,4,2,375,0)="""RTN"",""DGMTSC"",84,0)"
^XMB(3.9,4,2,376,0)=" N DIR,Y"
^XMB(3.9,4,2,377,0)="""RTN"",""DGMTSC"",85,0)"
^XMB(3.9,4,2,378,0)=" S DIR(""A"")=""Do you wish to edit the ""_$S(DGMTYPT=1:""means"",1:""copay exemption"")_"" test"""
^XMB(3.9,4,2,379,0)="""RTN"",""DGMTSC"",86,0)"
^XMB(3.9,4,2,380,0)=" S DIR(""B"")=""YES"",DIR(0)=""Y"" D ^DIR"
^XMB(3.9,4,2,381,0)="""RTN"",""DGMTSC"",87,0)"
^XMB(3.9,4,2,382,0)=" Q +$G(Y)"
^XMB(3.9,4,2,383,0)="""RTN"",""DGMTSC"",88,0)"
^XMB(3.9,4,2,384,0)=" ;"
^XMB(3.9,4,2,385,0)="""RTN"",""DGMTSC"",89,0)"
^XMB(3.9,4,2,386,0)="DEDUCT() ;"
^XMB(3.9,4,2,387,0)="""RTN"",""DGMTSC"",90,0)"
^XMB(3.9,4,2,388,0)=" N DIR,Y"
^XMB(3.9,4,2,389,0)="""RTN"",""DGMTSC"",91,0)"
^XMB(3.9,4,2,390,0)=" S DIR(""A"")=""Agreed to pay deductible"",DIR(0)=""Y"""
^XMB(3.9,4,2,391,0)="""RTN"",""DGMTSC"",92,0)"
^XMB(3.9,4,2,392,0)=" D ^DIR"
^XMB(3.9,4,2,393,0)="""RTN"",""DGMTSC"",93,0)"
^XMB(3.9,4,2,394,0)=" Q +$G(Y)"
^XMB(3.9,4,2,395,0)="""RTN"",""DGMTSC"",94,0)"
^XMB(3.9,4,2,396,0)=" ;"
^XMB(3.9,4,2,397,0)="""RTN"",""DGMTSC"",95,0)"
^XMB(3.9,4,2,398,0)="DISCF ;Check if patient declines to provide income information"
^XMB(3.9,4,2,399,0)="""RTN"",""DGMTSC"",96,0)"
^XMB(3.9,4,2,400,0)=" ;similar to module REF in program DGMTSCC, but the questions"
^XMB(3.9,4,2,401,0)="""RTN"",""DGMTSC"",97,0)"
^XMB(3.9,4,2,402,0)=" ;are negatives of each other"
^XMB(3.9,4,2,403,0)="""RTN"",""DGMTSC"",98,0)"
^XMB(3.9,4,2,404,0)=" N DIR,Y,U,MSG"
^XMB(3.9,4,2,405,0)="""RTN"",""DGMTSC"",99,0)"
^XMB(3.9,4,2,406,0)=" S U=""^"""
^XMB(3.9,4,2,407,0)="""RTN"",""DGMTSC"",100,0)"
^XMB(3.9,4,2,408,0)=" S MSG(1)="""""
^XMB(3.9,4,2,409,0)="""RTN"",""DGMTSC"",101,0)"
^XMB(3.9,4,2,410,0)=" S MSG(2)=""PROVIDE SPECIFIC INCOME AND/OR ASSET INFORMATION"""
^XMB(3.9,4,2,411,0)="""RTN"",""DGMTSC"",102,0)"
^XMB(3.9,4,2,412,0)=" S MSG(3)=""TO HAVE ELIGIBILITY FOR CARE DETERMINED. <YES>"""
^XMB(3.9,4,2,413,0)="""RTN"",""DGMTSC"",103,0)"
^XMB(3.9,4,2,414,0)=" S MSG(4)=""Continue, and complete the test with last calendar year's information."""
^XMB(3.9,4,2,415,0)="""RTN"",""DGMTSC"",104,0)"
^XMB(3.9,4,2,416,0)=" S MSG(5)="""""
^XMB(3.9,4,2,417,0)="""RTN"",""DGMTSC"",105,0)"
^XMB(3.9,4,2,418,0)=" S MSG(6)=""PROVIDE MY DETAILED FINANCIAL INFORMATION. <NO>"""
^XMB(3.9,4,2,419,0)="""RTN"",""DGMTSC"",106,0)"
^XMB(3.9,4,2,420,0)=" S MSG(7)=""The appropriate enrollment priority based on nondisclosure of"""
^XMB(3.9,4,2,421,0)="""RTN"",""DGMTSC"",107,0)"
^XMB(3.9,4,2,422,0)=" S MSG(8)=""my financial information will be assigned."""
^XMB(3.9,4,2,423,0)="""RTN"",""DGMTSC"",108,0)"
^XMB(3.9,4,2,424,0)=" S MSG(9)="""""
^XMB(3.9,4,2,425,0)="""RTN"",""DGMTSC"",109,0)"
^XMB(3.9,4,2,426,0)=" D BMES^XPDUTL(.MSG)"
^XMB(3.9,4,2,427,0)="""RTN"",""DGMTSC"",110,0)"
^XMB(3.9,4,2,428,0)=" S DIR(""A"")=""Do you wish to provide financial information? """
^XMB(3.9,4,2,429,0)="""RTN"",""DGMTSC"",111,0)"
^XMB(3.9,4,2,430,0)=" ;piece 14 says declines to give income info yes or no"
^XMB(3.9,4,2,431,0)="""RTN"",""DGMTSC"",112,0)"
^XMB(3.9,4,2,432,0)=" ;if the user declines to give income info, then provide financial information is no"
^XMB(3.9,4,2,433,0)="""RTN"",""DGMTSC"",113,0)"
^XMB(3.9,4,2,434,0)=" I $P($G(^DGMT(408.31,DGMTI,0)),""^"",14)]"""" S DIR(""B"")=$S($P(^DGMT(408.31,DGMTI,0),""^"",14):""N"",1:""Y"")"
^XMB(3.9,4,2,435,0)="""RTN"",""DGMTSC"",114,0)"
^XMB(3.9,4,2,436,0)=" I '$D(DIR(""B"")) S DIR(""B"")=""YES"""
^XMB(3.9,4,2,437,0)="""RTN"",""DGMTSC"",115,0)"
^XMB(3.9,4,2,438,0)=" S DIR(0)=""408.31,.14"" D ^DIR K DIR I $D(DTOUT)!($D(DUOUT)) Q"
^XMB(3.9,4,2,439,0)="""RTN"",""DGMTSC"",116,0)"
^XMB(3.9,4,2,440,0)=" S:'Y DGREF="""" S ANSPFIN=""Y"" Q:'$D(DGREF)!($D(DGREF1))!(DGMTYPT'=1)  S DGCAT=""C"" D STA^DGMTSCU2"
^XMB(3.9,4,2,441,0)="""RTN"",""DGMTSC"",117,0)"
^XMB(3.9,4,2,442,0)=" Q"
^XMB(3.9,4,2,443,0)="""RTN"",""DGMTSCC"")"
^XMB(3.9,4,2,444,0)="0^2^B36081556^B31522709"
^XMB(3.9,4,2,445,0)="""RTN"",""DGMTSCC"",1,0)"
^XMB(3.9,4,2,446,0)="DGMTSCC ;ALB/RMO,CAW,LBD,EG - Means Test Screen Completion ; 03/24/2006"
^XMB(3.9,4,2,447,0)="""RTN"",""DGMTSCC"",2,0)"
^XMB(3.9,4,2,448,0)=" ;;5.3;Registration;**33,45,130,438,332,433,462,456,610,624,611**;Aug 13, 1993;Build 3"
^XMB(3.9,4,2,449,0)="""RTN"",""DGMTSCC"",3,0)"
^XMB(3.9,4,2,450,0)=" ;"
^XMB(3.9,4,2,451,0)="""RTN"",""DGMTSCC"",4,0)"
^XMB(3.9,4,2,452,0)=" ; Input  -- DFN      Patient IEN"
^XMB(3.9,4,2,453,0)="""RTN"",""DGMTSCC"",5,0)"
^XMB(3.9,4,2,454,0)=" ;           DGMTACT  Means Test Action"
^XMB(3.9,4,2,455,0)="""RTN"",""DGMTSCC"",6,0)"
^XMB(3.9,4,2,456,0)=" ;           DGMTDT   Date of Test"
^XMB(3.9,4,2,457,0)="""RTN"",""DGMTSCC"",7,0)"
^XMB(3.9,4,2,458,0)=" ;           DGMTYPT  Type of Test 1=MT 2=COPAY"
^XMB(3.9,4,2,459,0)="""RTN"",""DGMTSCC"",8,0)"
^XMB(3.9,4,2,460,0)=" ;           DGMTPAR  Annual Means Test Parameters"
^XMB(3.9,4,2,461,0)="""RTN"",""DGMTSCC"",9,0)"
^XMB(3.9,4,2,462,0)=" ;           DGVINI   Veteran Individual Annual Income IEN"
^XMB(3.9,4,2,463,0)="""RTN"",""DGMTSCC"",10,0)"
^XMB(3.9,4,2,464,0)=" ;           DGVIRI   Veteran Income Relation IEN"
^XMB(3.9,4,2,465,0)="""RTN"",""DGMTSCC"",11,0)"
^XMB(3.9,4,2,466,0)=" ;           DGVPRI   Veteran Patient Relation IEN"
^XMB(3.9,4,2,467,0)="""RTN"",""DGMTSCC"",12,0)"
^XMB(3.9,4,2,468,0)=" ;           DGMTNWC  Net Worth Calculation flag"
^XMB(3.9,4,2,469,0)="""RTN"",""DGMTSCC"",13,0)"
^XMB(3.9,4,2,470,0)=" ; Output -- DGERR    1=INCOMPLETE and 0=COMPLETE"
^XMB(3.9,4,2,471,0)="""RTN"",""DGMTSCC"",14,0)"
^XMB(3.9,4,2,472,0)=" ;"
^XMB(3.9,4,2,473,0)="""RTN"",""DGMTSCC"",15,0)"
^XMB(3.9,4,2,474,0)="EN N DGCAT,DGCOMF,DGDC,DGDET,DGIN0,DGIN1,DGIN2,DGINT,DGINTF,DGMTS,DGNC,DGND,DGNWT,DGNWTF,DGREF1,DGSP,DGTYC,DGTHA,DGTHB,DGVIR0,DGCOPS,DGCOST,DGTHG"
^XMB(3.9,4,2,475,0)="""RTN"",""DGMTSCC"",16,0)"
^XMB(3.9,4,2,476,0)=" S DGERR=0"
^XMB(3.9,4,2,477,0)="""RTN"",""DGMTSCC"",17,0)"
^XMB(3.9,4,2,478,0)=" I DGMTACT=""ADD"" D COM I 'Y!($D(DTOUT))!($D(DUOUT)) G Q"
^XMB(3.9,4,2,479,0)="""RTN"",""DGMTSCC"",18,0)"
^XMB(3.9,4,2,480,0)=" S DGCOMF=1 D DEP^DGMTSCU2,INC^DGMTSCU3"
^XMB(3.9,4,2,481,0)="""RTN"",""DGMTSCC"",19,0)"
^XMB(3.9,4,2,482,0)=" ;if ANSPFIN=""Y"" user already answered to provide financial information (module DISC^DGMTSC)"
^XMB(3.9,4,2,483,0)="""RTN"",""DGMTSCC"",20,0)"
^XMB(3.9,4,2,484,0)=" I $G(ANSPFIN)=""Y"",$D(DGREF) D"
^XMB(3.9,4,2,485,0)="""RTN"",""DGMTSCC"",21,0)"
^XMB(3.9,4,2,486,0)=" . S (DGINTF,DGNWTF)="""""
^XMB(3.9,4,2,487,0)="""RTN"",""DGMTSCC"",22,0)"
^XMB(3.9,4,2,488,0)=" . W !,""DECLINES TO GIVE INCOME INFORMATION: YES"""
^XMB(3.9,4,2,489,0)="""RTN"",""DGMTSCC"",23,0)"
^XMB(3.9,4,2,490,0)=" . S DGREF1="""""
^XMB(3.9,4,2,491,0)="""RTN"",""DGMTSCC"",24,0)"
^XMB(3.9,4,2,492,0)=" . Q"
^XMB(3.9,4,2,493,0)="""RTN"",""DGMTSCC"",25,0)"
^XMB(3.9,4,2,494,0)=" I ($G(DGINTF)=0),($G(DGNWTF)=0) S DGREF1="""" D REF G Q:$D(DTOUT)!($D(DUOUT))"
^XMB(3.9,4,2,495,0)="""RTN"",""DGMTSCC"",26,0)"
^XMB(3.9,4,2,496,0)=" D CAT^DGMTSCU2,STA^DGMTSCU2"
^XMB(3.9,4,2,497,0)="""RTN"",""DGMTSCC"",27,0)"
^XMB(3.9,4,2,498,0)=" ;don't try to run validation checks if declining to provide financial information"
^XMB(3.9,4,2,499,0)="""RTN"",""DGMTSCC"",28,0)"
^XMB(3.9,4,2,500,0)=" I '$D(DGREF) D CHK I DGERR W !?3,*7,$S(DGMTYPT=1:""Means"",1:""Copay"")_"" test cannot be completed."" G Q"
^XMB(3.9,4,2,501,0)="""RTN"",""DGMTSCC"",29,0)"
^XMB(3.9,4,2,502,0)=" I DGMTYPT=1,DGTYC=""M"",(DGNWT-DGDET)+$S(DGMTNWC:0,1:DGINT)'<$P(DGMTPAR,""^"",8) D ADJ G Q:$D(DTOUT)!($D(DUOUT))"
^XMB(3.9,4,2,503,0)="""RTN"",""DGMTSCC"",30,0)"
^XMB(3.9,4,2,504,0)=" I DGMTYPT=2,DGCAT=""P"" D ADJ G Q:$D(DTOUT)!($D(DUOUT))"
^XMB(3.9,4,2,505,0)="""RTN"",""DGMTSCC"",31,0)"
^XMB(3.9,4,2,506,0)=" S DA=DGMTI,DIE=""^DGMT(408.31,"",DIE(""NO^"")="""",DR=""[DGMT ENTER/EDIT COMPLETION]"" D ^DIE K DA,DIE,DR I '$D(DGFIN) S DGERR=1 G Q"
^XMB(3.9,4,2,507,0)="""RTN"",""DGMTSCC"",32,0)"
^XMB(3.9,4,2,508,0)=" I DGMTACT=""EDT"",DGMTDT>DT D"
^XMB(3.9,4,2,509,0)="""RTN"",""DGMTSCC"",33,0)"
^XMB(3.9,4,2,510,0)=" . N DATA S (DATA(.01),DATA(.07))=DT,DATA(2)=1 I $$UPD^DGENDBS(408.31,DGMTI,.DATA)"
^XMB(3.9,4,2,511,0)="""RTN"",""DGMTSCC"",34,0)"
^XMB(3.9,4,2,512,0)=" W:DGMTYPT=1 !?3,""...means test status is "",$P($$MTS^DGMTU(DFN,DGMTS),""^""),""..."""
^XMB(3.9,4,2,513,0)="""RTN"",""DGMTSCC"",35,0)"
^XMB(3.9,4,2,514,0)=" W:DGMTYPT=2 !?3,""...copay test status is "",$S(DGCAT=""E"":""EXEMPT"",DGCAT=""M"":""NON-EXEMPT"",DGCAT=""P"":""PENDING ADJUDICATION"",1:""INCOMPLETE""),""..."""
^XMB(3.9,4,2,515,0)="""RTN"",""DGMTSCC"",36,0)"
^XMB(3.9,4,2,516,0)=" D PRT"
^XMB(3.9,4,2,517,0)="""RTN"",""DGMTSCC"",37,0)"
^XMB(3.9,4,2,518,0)=" ;"
^XMB(3.9,4,2,519,0)="""RTN"",""DGMTSCC"",38,0)"
^XMB(3.9,4,2,520,0)="Q K DGFIN,DTOUT,DUOUT,Y"
^XMB(3.9,4,2,521,0)="""RTN"",""DGMTSCC"",39,0)"
^XMB(3.9,4,2,522,0)=" Q"
^XMB(3.9,4,2,523,0)="""RTN"",""DGMTSCC"",40,0)"
^XMB(3.9,4,2,524,0)=" ;"
^XMB(3.9,4,2,525,0)="""RTN"",""DGMTSCC"",41,0)"
^XMB(3.9,4,2,526,0)="COM ;Check if user wants to complete the means test"
^XMB(3.9,4,2,527,0)="""RTN"",""DGMTSCC"",42,0)"
^XMB(3.9,4,2,528,0)=" N DIR"
^XMB(3.9,4,2,529,0)="""RTN"",""DGMTSCC"",43,0)"
^XMB(3.9,4,2,530,0)=" S DIR(""A"")=""Do you wish to complete the ""_$S(DGMTYPT=1:""means"",1:""copay exemption"")_"" test"""
^XMB(3.9,4,2,531,0)="""RTN"",""DGMTSCC"",44,0)"
^XMB(3.9,4,2,532,0)=" S DIR(""B"")=""YES"",DIR(0)=""Y"" D ^DIR"
^XMB(3.9,4,2,533,0)="""RTN"",""DGMTSCC"",45,0)"
^XMB(3.9,4,2,534,0)=" ; The following was added for LTC Copay Phase II (DG*5.3*433)"
^XMB(3.9,4,2,535,0)="""RTN"",""DGMTSCC"",46,0)"
^XMB(3.9,4,2,536,0)=" I DGMTYPT=4,'Y D"
^XMB(3.9,4,2,537,0)="""RTN"",""DGMTSCC"",47,0)"
^XMB(3.9,4,2,538,0)=" . W !,""NOTE: If you do not complete the LTC copay exemption test, the incomplete test"",!?6,""will be deleted."""
^XMB(3.9,4,2,539,0)="""RTN"",""DGMTSCC"",48,0)"
^XMB(3.9,4,2,540,0)=" . S DIR(""A"")=""Do you wish to complete the copay exemption test"""
^XMB(3.9,4,2,541,0)="""RTN"",""DGMTSCC"",49,0)"
^XMB(3.9,4,2,542,0)=" . S DIR(""B"")=""YES"",DIR(0)=""Y"" D ^DIR"
^XMB(3.9,4,2,543,0)="""RTN"",""DGMTSCC"",50,0)"
^XMB(3.9,4,2,544,0)=" Q"
^XMB(3.9,4,2,545,0)="""RTN"",""DGMTSCC"",51,0)"
^XMB(3.9,4,2,546,0)=" ;"
^XMB(3.9,4,2,547,0)="""RTN"",""DGMTSCC"",52,0)"
^XMB(3.9,4,2,548,0)="REF ;Check if patient declines to provide income information"
^XMB(3.9,4,2,549,0)="""RTN"",""DGMTSCC"",53,0)"
^XMB(3.9,4,2,550,0)=" ;ANSPFIN      Y - user already answer this question (see program DGMTSC)       "
^XMB(3.9,4,2,551,0)="""RTN"",""DGMTSCC"",54,0)"
^XMB(3.9,4,2,552,0)=" N DIR,Y,U"
^XMB(3.9,4,2,553,0)="""RTN"",""DGMTSCC"",55,0)"
^XMB(3.9,4,2,554,0)=" S U=""^"""
^XMB(3.9,4,2,555,0)="""RTN"",""DGMTSCC"",56,0)"
^XMB(3.9,4,2,556,0)=" S DIR(""A"")=""DECLINES TO GIVE INCOME INFORMATION"""
^XMB(3.9,4,2,557,0)="""RTN"",""DGMTSCC"",57,0)"
^XMB(3.9,4,2,558,0)=" I $P($G(^DGMT(408.31,DGMTI,0)),""^"",14)]"""" S DIR(""B"")=$$YN^DGMTSCU1($P(^(0),""^"",14))"
^XMB(3.9,4,2,559,0)="""RTN"",""DGMTSCC"",58,0)"
^XMB(3.9,4,2,560,0)=" I '$D(DIR(""B"")),$G(ANSPFIN)'=""Y"" S DIR(""B"")=""NO"""
^XMB(3.9,4,2,561,0)="""RTN"",""DGMTSCC"",59,0)"
^XMB(3.9,4,2,562,0)=" ;user answered Y to provide income initially, but didn't provide income information"
^XMB(3.9,4,2,563,0)="""RTN"",""DGMTSCC"",60,0)"
^XMB(3.9,4,2,564,0)=" I $G(ANSPFIN)=""Y"" S DIR(""B"")=""YES"""
^XMB(3.9,4,2,565,0)="""RTN"",""DGMTSCC"",61,0)"
^XMB(3.9,4,2,566,0)=" I $G(DGINTF)=0,$G(DGNWTF)=0 S DIR(""B"")=""YES"""
^XMB(3.9,4,2,567,0)="""RTN"",""DGMTSCC"",62,0)"
^XMB(3.9,4,2,568,0)=" S DIR(0)=""408.31,.14"" D ^DIR K DIR G REFQ:$D(DTOUT)!($D(DUOUT))"
^XMB(3.9,4,2,569,0)="""RTN"",""DGMTSCC"",63,0)"
^XMB(3.9,4,2,570,0)=" S:Y DGREF="""" Q:'$D(DGREF)!($D(DGREF1))!(DGMTYPT'=1)  S DGCAT=""C"" D STA^DGMTSCU2"
^XMB(3.9,4,2,571,0)="""RTN"",""DGMTSCC"",64,0)"
^XMB(3.9,4,2,572,0)=" S ANSPFIN=""Y"""
^XMB(3.9,4,2,573,0)="""RTN"",""DGMTSCC"",65,0)"
^XMB(3.9,4,2,574,0)="REFQ Q"
^XMB(3.9,4,2,575,0)="""RTN"",""DGMTSCC"",66,0)"
^XMB(3.9,4,2,576,0)=" ;"
^XMB(3.9,4,2,577,0)="""RTN"",""DGMTSCC"",67,0)"
^XMB(3.9,4,2,578,0)="CHK ;Check if means test can be completed"
^XMB(3.9,4,2,579,0)="""RTN"",""DGMTSCC"",68,0)"
^XMB(3.9,4,2,580,0)=" N DGA,DGD,DGDEP,DGREL,DGL,DGM,I"
^XMB(3.9,4,2,581,0)="""RTN"",""DGMTSCC"",69,0)"
^XMB(3.9,4,2,582,0)=" D GETREL^DGMTU11(DFN,""CS"",$$LYR^DGMTSCU1(DGMTDT),$S($G(DGMTI):DGMTI,1:""""))"
^XMB(3.9,4,2,583,0)="""RTN"",""DGMTSCC"",70,0)"
^XMB(3.9,4,2,584,0)=" S DGM=$P(DGVIR0,""^"",5),DGL=$P(DGVIR0,""^"",6),DGA=$P(DGVIR0,""^"",7),DGD=$P(DGVIR0,""^"",8)"
^XMB(3.9,4,2,585,0)="""RTN"",""DGMTSCC"",71,0)"
^XMB(3.9,4,2,586,0)=" I DGM']""""!(DGM&(DGL']""""))!(DGM&('DGL)&(DGA']"""")) W !?3,""Marital section must be completed."" S DGERR=1"
^XMB(3.9,4,2,587,0)="""RTN"",""DGMTSCC"",72,0)"
^XMB(3.9,4,2,588,0)=" I DGM,'$D(DGREL(""S"")),'$D(DGREF) W !?3,""Married is 'YES'.  An active spouse for this means test does not exist."" S DGERR=1"
^XMB(3.9,4,2,589,0)="""RTN"",""DGMTSCC"",73,0)"
^XMB(3.9,4,2,590,0)=" I 'DGM,$D(DGREL(""S"")) W !?3,""An active spouse exists for this means test. Married should be 'YES'."" S DGERR=1"
^XMB(3.9,4,2,591,0)="""RTN"",""DGMTSCC"",74,0)"
^XMB(3.9,4,2,592,0)=" I DGD']"""" W !?3,""Dependent Children section must be completed."" S DGERR=1"
^XMB(3.9,4,2,593,0)="""RTN"",""DGMTSCC"",75,0)"
^XMB(3.9,4,2,594,0)=" I DGD,'$D(DGREL(""C"")) W !?3,""Dependent Children is 'YES'.  No active children exist."" S DGERR=1"
^XMB(3.9,4,2,595,0)="""RTN"",""DGMTSCC"",76,0)"
^XMB(3.9,4,2,596,0)=" I 'DGD,$D(DGREL(""C"")) W !?3,""Active children exist.  Dependent Children should be 'YES'."" S DGERR=1"
^XMB(3.9,4,2,597,0)="""RTN"",""DGMTSCC"",77,0)"
^XMB(3.9,4,2,598,0)=" I DGMTYPT=1,'$D(DGREF),DGTYC=""M"",'DGNWTF W !?3,""A status of "",$$GETNAME^DGMTH(DGMTS),"" requires property information."" S DGERR=1"
^XMB(3.9,4,2,599,0)="""RTN"",""DGMTSCC"",78,0)"
^XMB(3.9,4,2,600,0)=" I DGMTYPT=2,'DGNWTF,DGCAT=""E"",$$ASKNW^DGMTCOU W !?3,""Patient is in an 'EXEMPT' status and requires property information."" S DGERR=1"
^XMB(3.9,4,2,601,0)="""RTN"",""DGMTSCC"",79,0)"
^XMB(3.9,4,2,602,0)=" I DGDET>DGINT W !?3,""Patient's deductible expenses cannot exceed income."" S DGERR=1"
^XMB(3.9,4,2,603,0)="""RTN"",""DGMTSCC"",80,0)"
^XMB(3.9,4,2,604,0)=" Q:$G(DGERR)"
^XMB(3.9,4,2,605,0)="""RTN"",""DGMTSCC"",81,0)"
^XMB(3.9,4,2,606,0)=" N CNT,ACT,DGDEP,FLAG,DGINCP"
^XMB(3.9,4,2,607,0)="""RTN"",""DGMTSCC"",82,0)"
^XMB(3.9,4,2,608,0)=" D INIT^DGDEP S CNT=0 D"
^XMB(3.9,4,2,609,0)="""RTN"",""DGMTSCC"",83,0)"
^XMB(3.9,4,2,610,0)=" . F  S CNT=$O(DGDEP(CNT)) Q:'CNT  I $P(DGDEP(CNT),U,2)=""SPOUSE"" D  Q:$G(DGERR)"
^XMB(3.9,4,2,611,0)="""RTN"",""DGMTSCC"",84,0)"
^XMB(3.9,4,2,612,0)=" . . D GETIENS^DGMTU2(DFN,$P(DGDEP(CNT),U,20),DGMTDT)"
^XMB(3.9,4,2,613,0)="""RTN"",""DGMTSCC"",85,0)"
^XMB(3.9,4,2,614,0)=" . . S DGINCP=$G(^DGMT(408.22,+DGIRI,""MT"")) S:DGINCP FLAG=$G(FLAG)+1"
^XMB(3.9,4,2,615,0)="""RTN"",""DGMTSCC"",86,0)"
^XMB(3.9,4,2,616,0)=" . . I $G(FLAG)>1 W !?3,""Patient has more than one spouse for this means test."" S DGERR=1"
^XMB(3.9,4,2,617,0)="""RTN"",""DGMTSCC"",87,0)"
^XMB(3.9,4,2,618,0)=" Q"
^XMB(3.9,4,2,619,0)="""RTN"",""DGMTSCC"",88,0)"
^XMB(3.9,4,2,620,0)=" ;"
^XMB(3.9,4,2,621,0)="""RTN"",""DGMTSCC"",89,0)"
^XMB(3.9,4,2,622,0)="ADJ ;Adjudicate the means test"
^XMB(3.9,4,2,623,0)="""RTN"",""DGMTSCC"",90,0)"
^XMB(3.9,4,2,624,0)=" N DIR,Y"
^XMB(3.9,4,2,625,0)="""RTN"",""DGMTSCC"",91,0)"
^XMB(3.9,4,2,626,0)=" S DIR(""?"",1)=""Since assets exceed the threshold, the ""_$S(DGMTYPT=1:""means"",1:""copay"")_"" test can"""
^XMB(3.9,4,2,627,0)="""RTN"",""DGMTSCC"",92,0)"
^XMB(3.9,4,2,628,0)=" S DIR(""?"",2)=""be sent to adjudication.  If the ""_$S(DGMTYPT=1:""means"",1:""copay"")_"" test is not"""
^XMB(3.9,4,2,629,0)="""RTN"",""DGMTSCC"",93,0)"
^XMB(3.9,4,2,630,0)=" S DIR(""?"")=""adjudicated, the patient will be placed in ""_$S(DGMTYPT=1&(DGTHG>DGTHA):""GMT Copay Required"",DGMTYPT=1:""MT Copay Required"",1:""Non-exempt"")_"" status."""
^XMB(3.9,4,2,631,0)="""RTN"",""DGMTSCC"",94,0)"
^XMB(3.9,4,2,632,0)=" S DIR(""A"")=""Do you wish to send this case to adjudication"""
^XMB(3.9,4,2,633,0)="""RTN"",""DGMTSCC"",95,0)"
^XMB(3.9,4,2,634,0)=" S DIR(""B"")=""YES"",DIR(0)=""Y"" D ^DIR G ADJQ:$D(DTOUT)!($D(DUOUT))"
^XMB(3.9,4,2,635,0)="""RTN"",""DGMTSCC"",96,0)"
^XMB(3.9,4,2,636,0)=" S DGCAT=$S(Y:""P"",DGMTYPT=1&(DGTHG>DGTHA):""G"",DGMTYPT=1:""C"",1:""N"") D STA^DGMTSCU2"
^XMB(3.9,4,2,637,0)="""RTN"",""DGMTSCC"",97,0)"
^XMB(3.9,4,2,638,0)="ADJQ Q"
^XMB(3.9,4,2,639,0)="""RTN"",""DGMTSCC"",98,0)"
^XMB(3.9,4,2,640,0)=" ;"
^XMB(3.9,4,2,641,0)="""RTN"",""DGMTSCC"",99,0)"
^XMB(3.9,4,2,642,0)=" ;DG*5.3*624 - REMOVE 10-10F AND REPLACE WITH 10-10EZ/EZR"
^XMB(3.9,4,2,643,0)="""RTN"",""DGMTSCC"",100,0)"
^XMB(3.9,4,2,644,0)="PRT ;Print the 10-10EZR or 10-10EZ"
^XMB(3.9,4,2,645,0)="""RTN"",""DGMTSCC"",101,0)"
^XMB(3.9,4,2,646,0)=" N EZFLAG"
^XMB(3.9,4,2,647,0)="""RTN"",""DGMTSCC"",102,0)"
^XMB(3.9,4,2,648,0)=" I $D(DGFINOP) DO"
^XMB(3.9,4,2,649,0)="""RTN"",""DGMTSCC"",103,0)"
^XMB(3.9,4,2,650,0)=" .W !!,""Options for printing financial assessment information will follow."""
^XMB(3.9,4,2,651,0)="""RTN"",""DGMTSCC"",104,0)"
^XMB(3.9,4,2,652,0)=" .W !,""Generally, you should answer 'YES' to 'PRINT 10-10EZR?' after updating"""
^XMB(3.9,4,2,653,0)="""RTN"",""DGMTSCC"",105,0)"
^XMB(3.9,4,2,654,0)=" .W !,""patient demographic or financial information.  Answer 'YES' to 'PRINT"""
^XMB(3.9,4,2,655,0)="""RTN"",""DGMTSCC"",106,0)"
^XMB(3.9,4,2,656,0)=" .W !,""10-10EZ?' after entering new patient demographic and financial information."""
^XMB(3.9,4,2,657,0)="""RTN"",""DGMTSCC"",107,0)"
^XMB(3.9,4,2,658,0)=" S EZFLAG=$$SEL1010^DG1010P(""EZR/EZ"")"
^XMB(3.9,4,2,659,0)="""RTN"",""DGMTSCC"",108,0)"
^XMB(3.9,4,2,660,0)=" Q:(EZFLAG=-1)"
^XMB(3.9,4,2,661,0)="""RTN"",""DGMTSCC"",109,0)"
^XMB(3.9,4,2,662,0)=" D QUE"
^XMB(3.9,4,2,663,0)="""RTN"",""DGMTSCC"",110,0)"
^XMB(3.9,4,2,664,0)=" ;"
^XMB(3.9,4,2,665,0)="""RTN"",""DGMTSCC"",111,0)"
^XMB(3.9,4,2,666,0)="PRTQ Q"
^XMB(3.9,4,2,667,0)="""RTN"",""DGMTSCC"",112,0)"
^XMB(3.9,4,2,668,0)=" ;"
^XMB(3.9,4,2,669,0)="""RTN"",""DGMTSCC"",113,0)"
^XMB(3.9,4,2,670,0)=" ;DG*5.3*624 - REMOVE 10-10F AND REPLACE WITH 10-10EZ/EZR"
^XMB(3.9,4,2,671,0)="""RTN"",""DGMTSCC"",114,0)"
^XMB(3.9,4,2,672,0)="QUE ;"
^XMB(3.9,4,2,673,0)="""RTN"",""DGMTSCC"",115,0)"
^XMB(3.9,4,2,674,0)=" N X"
^XMB(3.9,4,2,675,0)="""RTN"",""DGMTSCC"",116,0)"
^XMB(3.9,4,2,676,0)=" I $G(EZFLAG)=""EZ"" S X=$$ENEZ^EASEZPDG(DFN,DGMTI)"
^XMB(3.9,4,2,677,0)="""RTN"",""DGMTSCC"",117,0)"
^XMB(3.9,4,2,678,0)=" I $G(EZFLAG)=""EZR"" S X=$$ENEZR^EASEZPDG(DFN,DGMTI)"
^XMB(3.9,4,2,679,0)="""RTN"",""DGMTSCC"",118,0)"
^XMB(3.9,4,2,680,0)=" Q"
^XMB(3.9,4,2,681,0)="""VER"")"
^XMB(3.9,4,2,682,0)="8.0^22.0"
^XMB(3.9,4,2,683,0)="""BLD"",6021,6)"
^XMB(3.9,4,2,684,0)="^619"
^XMB(3.9,4,2,685,0)="$END KID DG*5.3*611"
^XMB(3.9,4,6,0)="^3.911A^2^2"
^XMB(3.9,4,6,1,0)="POSTMASTER"
^XMB(3.9,4,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,4,6,"B","POSTMASTER",1)=""
^XMB(3.9,4,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,5,0)="DG-5P3_SEQ-620_PAT-683.KID^.5^3061008.01573^^^^K"
^XMB(3.9,5,.6)="3061008"
^XMB(3.9,5,1,0)="^3.91A^2^2"
^XMB(3.9,5,1,1,0)=".5^0^3061008.01573^^^^^^^3061008.01573"
^XMB(3.9,5,1,2,0)="1^0^3061008.025549^^^^^^^3061008.023719"
^XMB(3.9,5,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,5,1,"C",.5,1)=""
^XMB(3.9,5,1,"C",1,2)=""
^XMB(3.9,5,2,0)="^^1951^1951^3061008"
^XMB(3.9,5,2,1,0)="$TXT Released DG*5.3*683 SEQ #620"
^XMB(3.9,5,2,2,0)="Extracted from mail message"
^XMB(3.9,5,2,3,0)="$END TXT"
^XMB(3.9,5,2,4,0)="$KID DG*5.3*683"
^XMB(3.9,5,2,5,0)="**INSTALL NAME**"
^XMB(3.9,5,2,6,0)="DG*5.3*683"
^XMB(3.9,5,2,7,0)="""BLD"",6448,0)"
^XMB(3.9,5,2,8,0)="DG*5.3*683^REGISTRATION^0^3060512^y"
^XMB(3.9,5,2,9,0)="""BLD"",6448,4,0)"
^XMB(3.9,5,2,10,0)="^9.64PA^42^1"
^XMB(3.9,5,2,11,0)="""BLD"",6448,4,42,0)"
^XMB(3.9,5,2,12,0)="42"
^XMB(3.9,5,2,13,0)="""BLD"",6448,4,42,2,0)"
^XMB(3.9,5,2,14,0)="^9.641^42^1"
^XMB(3.9,5,2,15,0)="""BLD"",6448,4,42,2,42,0)"
^XMB(3.9,5,2,16,0)="WARD LOCATION  (File-top level)"
^XMB(3.9,5,2,17,0)="""BLD"",6448,4,42,2,42,1,0)"
^XMB(3.9,5,2,18,0)="^9.6411^.017^1"
^XMB(3.9,5,2,19,0)="""BLD"",6448,4,42,2,42,1,.017,0)"
^XMB(3.9,5,2,20,0)="SPECIALTY"
^XMB(3.9,5,2,21,0)="""BLD"",6448,4,42,222)"
^XMB(3.9,5,2,22,0)="y^y^p^^^^n^^n"
^XMB(3.9,5,2,23,0)="""BLD"",6448,4,42,224)"
^XMB(3.9,5,2,24,0)=""
^XMB(3.9,5,2,25,0)="""BLD"",6448,4,""APDD"",42,42)"
^XMB(3.9,5,2,26,0)=""
^XMB(3.9,5,2,27,0)="""BLD"",6448,4,""APDD"",42,42,.017)"
^XMB(3.9,5,2,28,0)=""
^XMB(3.9,5,2,29,0)="""BLD"",6448,4,""B"",42,42)"
^XMB(3.9,5,2,30,0)=""
^XMB(3.9,5,2,31,0)="""BLD"",6448,""ABPKG"")"
^XMB(3.9,5,2,32,0)="n"
^XMB(3.9,5,2,33,0)="""BLD"",6448,""INID"")"
^XMB(3.9,5,2,34,0)="^y"
^XMB(3.9,5,2,35,0)="""BLD"",6448,""INIT"")"
^XMB(3.9,5,2,36,0)="DG53683P"
^XMB(3.9,5,2,37,0)="""BLD"",6448,""KRN"",0)"
^XMB(3.9,5,2,38,0)="^9.67PA^8989.52^19"
^XMB(3.9,5,2,39,0)="""BLD"",6448,""KRN"",.4,0)"
^XMB(3.9,5,2,40,0)=".4"
^XMB(3.9,5,2,41,0)="""BLD"",6448,""KRN"",.401,0)"
^XMB(3.9,5,2,42,0)=".401"
^XMB(3.9,5,2,43,0)="""BLD"",6448,""KRN"",.402,0)"
^XMB(3.9,5,2,44,0)=".402"
^XMB(3.9,5,2,45,0)="""BLD"",6448,""KRN"",.403,0)"
^XMB(3.9,5,2,46,0)=".403"
^XMB(3.9,5,2,47,0)="""BLD"",6448,""KRN"",.5,0)"
^XMB(3.9,5,2,48,0)=".5"
^XMB(3.9,5,2,49,0)="""BLD"",6448,""KRN"",.84,0)"
^XMB(3.9,5,2,50,0)=".84"
^XMB(3.9,5,2,51,0)="""BLD"",6448,""KRN"",3.6,0)"
^XMB(3.9,5,2,52,0)="3.6"
^XMB(3.9,5,2,53,0)="""BLD"",6448,""KRN"",3.8,0)"
^XMB(3.9,5,2,54,0)="3.8"
^XMB(3.9,5,2,55,0)="""BLD"",6448,""KRN"",9.2,0)"
^XMB(3.9,5,2,56,0)="9.2"
^XMB(3.9,5,2,57,0)="""BLD"",6448,""KRN"",9.8,0)"
^XMB(3.9,5,2,58,0)="9.8"
^XMB(3.9,5,2,59,0)="""BLD"",6448,""KRN"",9.8,""NM"",0)"
^XMB(3.9,5,2,60,0)="^9.68A^7^7"
^XMB(3.9,5,2,61,0)="""BLD"",6448,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,5,2,62,0)="DGPTAE02^^0^B19447484"
^XMB(3.9,5,2,63,0)="""BLD"",6448,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,5,2,64,0)="DGACT^^0^B715902"
^XMB(3.9,5,2,65,0)="""BLD"",6448,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,5,2,66,0)="DGPTFM7^^0^B21153448"
^XMB(3.9,5,2,67,0)="""BLD"",6448,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,5,2,68,0)="DGPMV10^^0^B28791536"
^XMB(3.9,5,2,69,0)="""BLD"",6448,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,5,2,70,0)="DGPTF4^^0^B22914415"
^XMB(3.9,5,2,71,0)="""BLD"",6448,""KRN"",9.8,""NM"",6,0)"
^XMB(3.9,5,2,72,0)="DGPTFMO^^0^B26139485"
^XMB(3.9,5,2,73,0)="""BLD"",6448,""KRN"",9.8,""NM"",7,0)"
^XMB(3.9,5,2,74,0)="DGPTFM^^0^B44316891"
^XMB(3.9,5,2,75,0)="""BLD"",6448,""KRN"",9.8,""NM"",""B"",""DGACT"",2)"
^XMB(3.9,5,2,76,0)=""
^XMB(3.9,5,2,77,0)="""BLD"",6448,""KRN"",9.8,""NM"",""B"",""DGPMV10"",4)"
^XMB(3.9,5,2,78,0)=""
^XMB(3.9,5,2,79,0)="""BLD"",6448,""KRN"",9.8,""NM"",""B"",""DGPTAE02"",1)"
^XMB(3.9,5,2,80,0)=""
^XMB(3.9,5,2,81,0)="""BLD"",6448,""KRN"",9.8,""NM"",""B"",""DGPTF4"",5)"
^XMB(3.9,5,2,82,0)=""
^XMB(3.9,5,2,83,0)="""BLD"",6448,""KRN"",9.8,""NM"",""B"",""DGPTFM"",7)"
^XMB(3.9,5,2,84,0)=""
^XMB(3.9,5,2,85,0)="""BLD"",6448,""KRN"",9.8,""NM"",""B"",""DGPTFM7"",3)"
^XMB(3.9,5,2,86,0)=""
^XMB(3.9,5,2,87,0)="""BLD"",6448,""KRN"",9.8,""NM"",""B"",""DGPTFMO"",6)"
^XMB(3.9,5,2,88,0)=""
^XMB(3.9,5,2,89,0)="""BLD"",6448,""KRN"",19,0)"
^XMB(3.9,5,2,90,0)="19"
^XMB(3.9,5,2,91,0)="""BLD"",6448,""KRN"",19,""NM"",0)"
^XMB(3.9,5,2,92,0)="^9.68A^^"
^XMB(3.9,5,2,93,0)="""BLD"",6448,""KRN"",19.1,0)"
^XMB(3.9,5,2,94,0)="19.1"
^XMB(3.9,5,2,95,0)="""BLD"",6448,""KRN"",101,0)"
^XMB(3.9,5,2,96,0)="101"
^XMB(3.9,5,2,97,0)="""BLD"",6448,""KRN"",409.61,0)"
^XMB(3.9,5,2,98,0)="409.61"
^XMB(3.9,5,2,99,0)="""BLD"",6448,""KRN"",771,0)"
^XMB(3.9,5,2,100,0)="771"
^XMB(3.9,5,2,101,0)="""BLD"",6448,""KRN"",870,0)"
^XMB(3.9,5,2,102,0)="870"
^XMB(3.9,5,2,103,0)="""BLD"",6448,""KRN"",8989.51,0)"
^XMB(3.9,5,2,104,0)="8989.51"
^XMB(3.9,5,2,105,0)="""BLD"",6448,""KRN"",8989.52,0)"
^XMB(3.9,5,2,106,0)="8989.52"
^XMB(3.9,5,2,107,0)="""BLD"",6448,""KRN"",8994,0)"
^XMB(3.9,5,2,108,0)="8994"
^XMB(3.9,5,2,109,0)="""BLD"",6448,""KRN"",""B"",.4,.4)"
^XMB(3.9,5,2,110,0)=""
^XMB(3.9,5,2,111,0)="""BLD"",6448,""KRN"",""B"",.401,.401)"
^XMB(3.9,5,2,112,0)=""
^XMB(3.9,5,2,113,0)="""BLD"",6448,""KRN"",""B"",.402,.402)"
^XMB(3.9,5,2,114,0)=""
^XMB(3.9,5,2,115,0)="""BLD"",6448,""KRN"",""B"",.403,.403)"
^XMB(3.9,5,2,116,0)=""
^XMB(3.9,5,2,117,0)="""BLD"",6448,""KRN"",""B"",.5,.5)"
^XMB(3.9,5,2,118,0)=""
^XMB(3.9,5,2,119,0)="""BLD"",6448,""KRN"",""B"",.84,.84)"
^XMB(3.9,5,2,120,0)=""
^XMB(3.9,5,2,121,0)="""BLD"",6448,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,5,2,122,0)=""
^XMB(3.9,5,2,123,0)="""BLD"",6448,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,5,2,124,0)=""
^XMB(3.9,5,2,125,0)="""BLD"",6448,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,5,2,126,0)=""
^XMB(3.9,5,2,127,0)="""BLD"",6448,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,5,2,128,0)=""
^XMB(3.9,5,2,129,0)="""BLD"",6448,""KRN"",""B"",19,19)"
^XMB(3.9,5,2,130,0)=""
^XMB(3.9,5,2,131,0)="""BLD"",6448,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,5,2,132,0)=""
^XMB(3.9,5,2,133,0)="""BLD"",6448,""KRN"",""B"",101,101)"
^XMB(3.9,5,2,134,0)=""
^XMB(3.9,5,2,135,0)="""BLD"",6448,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,5,2,136,0)=""
^XMB(3.9,5,2,137,0)="""BLD"",6448,""KRN"",""B"",771,771)"
^XMB(3.9,5,2,138,0)=""
^XMB(3.9,5,2,139,0)="""BLD"",6448,""KRN"",""B"",870,870)"
^XMB(3.9,5,2,140,0)=""
^XMB(3.9,5,2,141,0)="""BLD"",6448,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,5,2,142,0)=""
^XMB(3.9,5,2,143,0)="""BLD"",6448,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,5,2,144,0)=""
^XMB(3.9,5,2,145,0)="""BLD"",6448,""KRN"",""B"",8994,8994)"
^XMB(3.9,5,2,146,0)=""
^XMB(3.9,5,2,147,0)="""BLD"",6448,""QUES"",0)"
^XMB(3.9,5,2,148,0)="^9.62^^0"
^XMB(3.9,5,2,149,0)="""BLD"",6448,""REQB"",0)"
^XMB(3.9,5,2,150,0)="^9.611^7^7"
^XMB(3.9,5,2,151,0)="""BLD"",6448,""REQB"",1,0)"
^XMB(3.9,5,2,152,0)="DG*5.3*466^1"
^XMB(3.9,5,2,153,0)="""BLD"",6448,""REQB"",2,0)"
^XMB(3.9,5,2,154,0)="IB*2.0*332^1"
^XMB(3.9,5,2,155,0)="""BLD"",6448,""REQB"",3,0)"
^XMB(3.9,5,2,156,0)="DG*5.3*594^1"
^XMB(3.9,5,2,157,0)="""BLD"",6448,""REQB"",4,0)"
^XMB(3.9,5,2,158,0)="DG*5.3*509^1"
^XMB(3.9,5,2,159,0)="""BLD"",6448,""REQB"",5,0)"
^XMB(3.9,5,2,160,0)="DG*5.3*478^1"
^XMB(3.9,5,2,161,0)="""BLD"",6448,""REQB"",6,0)"
^XMB(3.9,5,2,162,0)="DG*5.3*606^1"
^XMB(3.9,5,2,163,0)="""BLD"",6448,""REQB"",7,0)"
^XMB(3.9,5,2,164,0)="DG*5.3*635^1"
^XMB(3.9,5,2,165,0)="""BLD"",6448,""REQB"",""B"",""DG*5.3*466"",1)"
^XMB(3.9,5,2,166,0)=""
^XMB(3.9,5,2,167,0)="""BLD"",6448,""REQB"",""B"",""DG*5.3*478"",5)"
^XMB(3.9,5,2,168,0)=""
^XMB(3.9,5,2,169,0)="""BLD"",6448,""REQB"",""B"",""DG*5.3*509"",4)"
^XMB(3.9,5,2,170,0)=""
^XMB(3.9,5,2,171,0)="""BLD"",6448,""REQB"",""B"",""DG*5.3*594"",3)"
^XMB(3.9,5,2,172,0)=""
^XMB(3.9,5,2,173,0)="""BLD"",6448,""REQB"",""B"",""DG*5.3*606"",6)"
^XMB(3.9,5,2,174,0)=""
^XMB(3.9,5,2,175,0)="""BLD"",6448,""REQB"",""B"",""DG*5.3*635"",7)"
^XMB(3.9,5,2,176,0)=""
^XMB(3.9,5,2,177,0)="""BLD"",6448,""REQB"",""B"",""IB*2.0*332"",2)"
^XMB(3.9,5,2,178,0)=""
^XMB(3.9,5,2,179,0)="""FIA"",42)"
^XMB(3.9,5,2,180,0)="WARD LOCATION"
^XMB(3.9,5,2,181,0)="""FIA"",42,0)"
^XMB(3.9,5,2,182,0)="^DIC(42,"
^XMB(3.9,5,2,183,0)="""FIA"",42,0,0)"
^XMB(3.9,5,2,184,0)="42I"
^XMB(3.9,5,2,185,0)="""FIA"",42,0,1)"
^XMB(3.9,5,2,186,0)="y^y^p^^^^n^^n"
^XMB(3.9,5,2,187,0)="""FIA"",42,0,10)"
^XMB(3.9,5,2,188,0)=""
^XMB(3.9,5,2,189,0)="""FIA"",42,0,11)"
^XMB(3.9,5,2,190,0)=""
^XMB(3.9,5,2,191,0)="""FIA"",42,0,""RLRO"")"
^XMB(3.9,5,2,192,0)=""
^XMB(3.9,5,2,193,0)="""FIA"",42,0,""VR"")"
^XMB(3.9,5,2,194,0)="5.3^DG"
^XMB(3.9,5,2,195,0)="""FIA"",42,42)"
^XMB(3.9,5,2,196,0)="1"
^XMB(3.9,5,2,197,0)="""FIA"",42,42,.017)"
^XMB(3.9,5,2,198,0)=""
^XMB(3.9,5,2,199,0)="""INIT"")"
^XMB(3.9,5,2,200,0)="DG53683P"
^XMB(3.9,5,2,201,0)="""MBREQ"")"
^XMB(3.9,5,2,202,0)="0"
^XMB(3.9,5,2,203,0)="""PKG"",5,-1)"
^XMB(3.9,5,2,204,0)="1^1"
^XMB(3.9,5,2,205,0)="""PKG"",5,0)"
^XMB(3.9,5,2,206,0)="REGISTRATION^DG^PATIENT REGISTRATION, ADMISSION, DISCHARGE, EMBOSSER "
^XMB(3.9,5,2,207,0)="""PKG"",5,20,0)"
^XMB(3.9,5,2,208,0)="^9.402P^^"
^XMB(3.9,5,2,209,0)="""PKG"",5,22,0)"
^XMB(3.9,5,2,210,0)="^9.49I^1^1"
^XMB(3.9,5,2,211,0)="""PKG"",5,22,1,0)"
^XMB(3.9,5,2,212,0)="5.3^2930813"
^XMB(3.9,5,2,213,0)="""PKG"",5,22,1,""PAH"",1,0)"
^XMB(3.9,5,2,214,0)="683^3060512^2503"
^XMB(3.9,5,2,215,0)="""PKG"",5,22,1,""PAH"",1,1,0)"
^XMB(3.9,5,2,216,0)="^^4^4^3051101"
^XMB(3.9,5,2,217,0)="""PKG"",5,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,5,2,218,0)="This patch adds the HOSPICE Nursing Home Care as a new specialty to"
^XMB(3.9,5,2,219,0)="""PKG"",5,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,5,2,220,0)="the SPECIALTY (#42.4) file. An entry in the FACILITY TREATING SPECIALTY (#45.7)"
^XMB(3.9,5,2,221,0)="""PKG"",5,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,5,2,222,0)="is optional."
^XMB(3.9,5,2,223,0)="""PKG"",5,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,5,2,224,0)=""
^XMB(3.9,5,2,225,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,5,2,226,0)="Y"
^XMB(3.9,5,2,227,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,5,2,228,0)="^D REP^XPDH"
^XMB(3.9,5,2,229,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,5,2,230,0)="Shall I write over your |FLAG| File"
^XMB(3.9,5,2,231,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,5,2,232,0)="YES"
^XMB(3.9,5,2,233,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,5,2,234,0)="D XPF1^XPDIQ"
^XMB(3.9,5,2,235,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,5,2,236,0)="Y"
^XMB(3.9,5,2,237,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,5,2,238,0)="^D DTA^XPDH"
^XMB(3.9,5,2,239,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,5,2,240,0)="Want my data |FLAG| yours"
^XMB(3.9,5,2,241,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,5,2,242,0)="YES"
^XMB(3.9,5,2,243,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,5,2,244,0)="D XPF2^XPDIQ"
^XMB(3.9,5,2,245,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,5,2,246,0)="YO"
^XMB(3.9,5,2,247,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,5,2,248,0)="^D INHIBIT^XPDH"
^XMB(3.9,5,2,249,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,5,2,250,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,5,2,251,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,5,2,252,0)="YES"
^XMB(3.9,5,2,253,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,5,2,254,0)="D XPI1^XPDIQ"
^XMB(3.9,5,2,255,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,5,2,256,0)="PO^VA(200,:EM"
^XMB(3.9,5,2,257,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,5,2,258,0)="^D MG^XPDH"
^XMB(3.9,5,2,259,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,5,2,260,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,5,2,261,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,5,2,262,0)=""
^XMB(3.9,5,2,263,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,5,2,264,0)="D XPM1^XPDIQ"
^XMB(3.9,5,2,265,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,5,2,266,0)="Y"
^XMB(3.9,5,2,267,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,5,2,268,0)="^D MENU^XPDH"
^XMB(3.9,5,2,269,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,5,2,270,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,5,2,271,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,5,2,272,0)="YES"
^XMB(3.9,5,2,273,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,5,2,274,0)="D XPO1^XPDIQ"
^XMB(3.9,5,2,275,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,5,2,276,0)="Y"
^XMB(3.9,5,2,277,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,5,2,278,0)="^D OPT^XPDH"
^XMB(3.9,5,2,279,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,5,2,280,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,5,2,281,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,5,2,282,0)="YES"
^XMB(3.9,5,2,283,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,5,2,284,0)="D XPZ1^XPDIQ"
^XMB(3.9,5,2,285,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,5,2,286,0)="Y"
^XMB(3.9,5,2,287,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,5,2,288,0)="^D RTN^XPDH"
^XMB(3.9,5,2,289,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,5,2,290,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,5,2,291,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,5,2,292,0)="NO"
^XMB(3.9,5,2,293,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,5,2,294,0)="D XPZ2^XPDIQ"
^XMB(3.9,5,2,295,0)="""RTN"")"
^XMB(3.9,5,2,296,0)="8"
^XMB(3.9,5,2,297,0)="""RTN"",""DG53683P"")"
^XMB(3.9,5,2,298,0)="0^^B76546374"
^XMB(3.9,5,2,299,0)="""RTN"",""DG53683P"",1,0)"
^XMB(3.9,5,2,300,0)="DG53683P ;ALB/DHH - Add NURSING HOME TREATING SPECIALTIES ; 11/01/05"
^XMB(3.9,5,2,301,0)="""RTN"",""DG53683P"",2,0)"
^XMB(3.9,5,2,302,0)=" ;;5.3;Registration;**683**;Nov 1, 2005"
^XMB(3.9,5,2,303,0)="""RTN"",""DG53683P"",3,0)"
^XMB(3.9,5,2,304,0)=" ;base program: DG53176P"
^XMB(3.9,5,2,305,0)="""RTN"",""DG53683P"",4,0)"
^XMB(3.9,5,2,306,0)=" ;"
^XMB(3.9,5,2,307,0)="""RTN"",""DG53683P"",5,0)"
^XMB(3.9,5,2,308,0)="EN ;Add Treating Specialties to the SPECIALITY file (#42.4)"
^XMB(3.9,5,2,309,0)="""RTN"",""DG53683P"",6,0)"
^XMB(3.9,5,2,310,0)=" N DGI,DGERR,DGSPEC,DGIFN,DGQUES"
^XMB(3.9,5,2,311,0)="""RTN"",""DG53683P"",7,0)"
^XMB(3.9,5,2,312,0)=" S DGIFN=0"
^XMB(3.9,5,2,313,0)="""RTN"",""DG53683P"",8,0)"
^XMB(3.9,5,2,314,0)=" F DGI=1:1 S DGSPEC=$P($T(TRSP+DGI),"";;"",2) Q:DGSPEC=""QUIT""  D"
^XMB(3.9,5,2,315,0)="""RTN"",""DG53683P"",9,0)"
^XMB(3.9,5,2,316,0)=" .D TSPEC"
^XMB(3.9,5,2,317,0)="""RTN"",""DG53683P"",10,0)"
^XMB(3.9,5,2,318,0)=" .S DGQUES=$P(DGSPEC,U,9)"
^XMB(3.9,5,2,319,0)="""RTN"",""DG53683P"",11,0)"
^XMB(3.9,5,2,320,0)=" .D FAC"
^XMB(3.9,5,2,321,0)="""RTN"",""DG53683P"",12,0)"
^XMB(3.9,5,2,322,0)=" .Q"
^XMB(3.9,5,2,323,0)="""RTN"",""DG53683P"",13,0)"
^XMB(3.9,5,2,324,0)=" D EDIT"
^XMB(3.9,5,2,325,0)="""RTN"",""DG53683P"",14,0)"
^XMB(3.9,5,2,326,0)=" D INACT80,INACT"
^XMB(3.9,5,2,327,0)="""RTN"",""DG53683P"",15,0)"
^XMB(3.9,5,2,328,0)=" Q"
^XMB(3.9,5,2,329,0)="""RTN"",""DG53683P"",16,0)"
^XMB(3.9,5,2,330,0)="TSPEC ;Add treating specialty to SPECIALTY File (#42.4)"
^XMB(3.9,5,2,331,0)="""RTN"",""DG53683P"",17,0)"
^XMB(3.9,5,2,332,0)=" D BMES^XPDUTL("">>>""_$P(DGSPEC,U,2)_"">>>"")"
^XMB(3.9,5,2,333,0)="""RTN"",""DG53683P"",18,0)"
^XMB(3.9,5,2,334,0)=" N DA,DGFILE,DGMULT,DIC,DIE,DGDA1,DINUM,DLAYGO,DR,X,Y"
^XMB(3.9,5,2,335,0)="""RTN"",""DG53683P"",19,0)"
^XMB(3.9,5,2,336,0)=" S DGERR=0"
^XMB(3.9,5,2,337,0)="""RTN"",""DG53683P"",20,0)"
^XMB(3.9,5,2,338,0)=" S DIC=""^DIC(42.4,"""
^XMB(3.9,5,2,339,0)="""RTN"",""DG53683P"",21,0)"
^XMB(3.9,5,2,340,0)=" S DIC(0)=""LX"""
^XMB(3.9,5,2,341,0)="""RTN"",""DG53683P"",22,0)"
^XMB(3.9,5,2,342,0)=" S DINUM=$P(DGSPEC,U)"
^XMB(3.9,5,2,343,0)="""RTN"",""DG53683P"",23,0)"
^XMB(3.9,5,2,344,0)=" S X=$P(DGSPEC,U,2)"
^XMB(3.9,5,2,345,0)="""RTN"",""DG53683P"",24,0)"
^XMB(3.9,5,2,346,0)=" S DLAYGO=42.4"
^XMB(3.9,5,2,347,0)="""RTN"",""DG53683P"",25,0)"
^XMB(3.9,5,2,348,0)=" D ^DIC"
^XMB(3.9,5,2,349,0)="""RTN"",""DG53683P"",26,0)"
^XMB(3.9,5,2,350,0)=" S (DGIFN,DGDA1)=Y"
^XMB(3.9,5,2,351,0)="""RTN"",""DG53683P"",27,0)"
^XMB(3.9,5,2,352,0)=" I +DGIFN=-1 D  Q"
^XMB(3.9,5,2,353,0)="""RTN"",""DG53683P"",28,0)"
^XMB(3.9,5,2,354,0)=" .D MES^XPDUTL(""     Entry not added to SPECIALTY File (#42.4).  No further updating will occur."")"
^XMB(3.9,5,2,355,0)="""RTN"",""DG53683P"",29,0)"
^XMB(3.9,5,2,356,0)=" .D MES^XPDUTL(""     Please contact Customer Service for assistance."")"
^XMB(3.9,5,2,357,0)="""RTN"",""DG53683P"",30,0)"
^XMB(3.9,5,2,358,0)=" .Q"
^XMB(3.9,5,2,359,0)="""RTN"",""DG53683P"",31,0)"
^XMB(3.9,5,2,360,0)=" I $P(DGIFN,U,3)'=1&(+DGIFN'=$P(DGSPEC,U)) D  Q"
^XMB(3.9,5,2,361,0)="""RTN"",""DG53683P"",32,0)"
^XMB(3.9,5,2,362,0)=" .D MES^XPDUTL(""     Entry exists in SPECIALTY File (#42.4), but with a different PTF Code #."")"
^XMB(3.9,5,2,363,0)="""RTN"",""DG53683P"",33,0)"
^XMB(3.9,5,2,364,0)=" .D MES^XPDUTL(""     No further updating will occur.  Please review entry."")"
^XMB(3.9,5,2,365,0)="""RTN"",""DG53683P"",34,0)"
^XMB(3.9,5,2,366,0)=" .S DGERR=1"
^XMB(3.9,5,2,367,0)="""RTN"",""DG53683P"",35,0)"
^XMB(3.9,5,2,368,0)=" .Q "
^XMB(3.9,5,2,369,0)="""RTN"",""DG53683P"",36,0)"
^XMB(3.9,5,2,370,0)=" D MES^XPDUTL(""     Entry ""_$S($P(DGIFN,U,3)=1:""added to"",1:""exists in"")_"" SPECIALTY File (#42.4)."")"
^XMB(3.9,5,2,371,0)="""RTN"",""DG53683P"",37,0)"
^XMB(3.9,5,2,372,0)=" D MES^XPDUTL(""     Updating SPECIALTY File fields."")"
^XMB(3.9,5,2,373,0)="""RTN"",""DG53683P"",38,0)"
^XMB(3.9,5,2,374,0)=" S DIE=DIC"
^XMB(3.9,5,2,375,0)="""RTN"",""DG53683P"",39,0)"
^XMB(3.9,5,2,376,0)=" S DR=""1///""_$P(DGSPEC,U,3)_"";3///""_$P(DGSPEC,U,4)_"";4///""_$P(DGSPEC,U,5)_"";5///""_$P(DGSPEC,U,6)_"";6///""_$P(DGSPEC,U,7)"
^XMB(3.9,5,2,377,0)="""RTN"",""DG53683P"",40,0)"
^XMB(3.9,5,2,378,0)=" S DA=+DGIFN"
^XMB(3.9,5,2,379,0)="""RTN"",""DG53683P"",41,0)"
^XMB(3.9,5,2,380,0)=" D ^DIE"
^XMB(3.9,5,2,381,0)="""RTN"",""DG53683P"",42,0)"
^XMB(3.9,5,2,382,0)=" S DGFILE=42.4"
^XMB(3.9,5,2,383,0)="""RTN"",""DG53683P"",43,0)"
^XMB(3.9,5,2,384,0)=" S DGMULT=10"
^XMB(3.9,5,2,385,0)="""RTN"",""DG53683P"",44,0)"
^XMB(3.9,5,2,386,0)=" S DIC=""^DIC(42.4,""_+DGIFN_"",""""E"""","""
^XMB(3.9,5,2,387,0)="""RTN"",""DG53683P"",45,0)"
^XMB(3.9,5,2,388,0)=" D MULT"
^XMB(3.9,5,2,389,0)="""RTN"",""DG53683P"",46,0)"
^XMB(3.9,5,2,390,0)=" Q"
^XMB(3.9,5,2,391,0)="""RTN"",""DG53683P"",47,0)"
^XMB(3.9,5,2,392,0)="FAC ;Add treating specialty to Facility Treating Specialty file (#45.7)"
^XMB(3.9,5,2,393,0)="""RTN"",""DG53683P"",48,0)"
^XMB(3.9,5,2,394,0)=" N DA,DGFILE,DGMULT,DIC,DIE,DLAYGO,DR,X,Y"
^XMB(3.9,5,2,395,0)="""RTN"",""DG53683P"",49,0)"
^XMB(3.9,5,2,396,0)=" S DIC=""^DIC(45.7,"""
^XMB(3.9,5,2,397,0)="""RTN"",""DG53683P"",50,0)"
^XMB(3.9,5,2,398,0)=" S DIC(0)=""LXZ"""
^XMB(3.9,5,2,399,0)="""RTN"",""DG53683P"",51,0)"
^XMB(3.9,5,2,400,0)=" S DLAYGO=45.7"
^XMB(3.9,5,2,401,0)="""RTN"",""DG53683P"",52,0)"
^XMB(3.9,5,2,402,0)=" S X=$P(DGSPEC,U,2)"
^XMB(3.9,5,2,403,0)="""RTN"",""DG53683P"",53,0)"
^XMB(3.9,5,2,404,0)=" D ^DIC"
^XMB(3.9,5,2,405,0)="""RTN"",""DG53683P"",54,0)"
^XMB(3.9,5,2,406,0)=" S DGDA1=Y"
^XMB(3.9,5,2,407,0)="""RTN"",""DG53683P"",55,0)"
^XMB(3.9,5,2,408,0)=" I +DGDA1=-1 D BMES^XPDUTL(""     Entry not added to FACILITY TREATING SPECIALTY File(#45.7)."") Q"
^XMB(3.9,5,2,409,0)="""RTN"",""DG53683P"",56,0)"
^XMB(3.9,5,2,410,0)=" I $P(DGDA1,U,3)'=1&($P(Y(0),U,2)'=$P(DGSPEC,U)) D  Q"
^XMB(3.9,5,2,411,0)="""RTN"",""DG53683P"",57,0)"
^XMB(3.9,5,2,412,0)=" .D BMES^XPDUTL(""     Entry exists in FACILITY TREATING SPECIALTY File (#45.7), but with"")"
^XMB(3.9,5,2,413,0)="""RTN"",""DG53683P"",58,0)"
^XMB(3.9,5,2,414,0)=" .D MES^XPDUTL(""     a different PTF Code #.  No further updating will occur."")"
^XMB(3.9,5,2,415,0)="""RTN"",""DG53683P"",59,0)"
^XMB(3.9,5,2,416,0)=" .D MES^XPDUTL(""     Please review entry."")"
^XMB(3.9,5,2,417,0)="""RTN"",""DG53683P"",60,0)"
^XMB(3.9,5,2,418,0)=" .Q"
^XMB(3.9,5,2,419,0)="""RTN"",""DG53683P"",61,0)"
^XMB(3.9,5,2,420,0)=" D BMES^XPDUTL(""     Entry ""_$S($P(DGDA1,U,3)=1:""added to"",1:""exists in"")_"" FACILITY TREATING SPECIALTY File (#45.7)."")"
^XMB(3.9,5,2,421,0)="""RTN"",""DG53683P"",62,0)"
^XMB(3.9,5,2,422,0)=" D MES^XPDUTL(""     Updating SPECIALTY field..."")"
^XMB(3.9,5,2,423,0)="""RTN"",""DG53683P"",63,0)"
^XMB(3.9,5,2,424,0)=" S DIE=DIC"
^XMB(3.9,5,2,425,0)="""RTN"",""DG53683P"",64,0)"
^XMB(3.9,5,2,426,0)=" S DA=+DGDA1"
^XMB(3.9,5,2,427,0)="""RTN"",""DG53683P"",65,0)"
^XMB(3.9,5,2,428,0)=" S DR=""1////""_$P(DGSPEC,U)"
^XMB(3.9,5,2,429,0)="""RTN"",""DG53683P"",66,0)"
^XMB(3.9,5,2,430,0)=" D ^DIE"
^XMB(3.9,5,2,431,0)="""RTN"",""DG53683P"",67,0)"
^XMB(3.9,5,2,432,0)=" S DGFILE=45.7"
^XMB(3.9,5,2,433,0)="""RTN"",""DG53683P"",68,0)"
^XMB(3.9,5,2,434,0)=" S DGMULT=100"
^XMB(3.9,5,2,435,0)="""RTN"",""DG53683P"",69,0)"
^XMB(3.9,5,2,436,0)=" S DIC=""^DIC(45.7,""_+DGDA1_"",""""E"""","""
^XMB(3.9,5,2,437,0)="""RTN"",""DG53683P"",70,0)"
^XMB(3.9,5,2,438,0)=" D MULT"
^XMB(3.9,5,2,439,0)="""RTN"",""DG53683P"",71,0)"
^XMB(3.9,5,2,440,0)=" Q"
^XMB(3.9,5,2,441,0)="""RTN"",""DG53683P"",72,0)"
^XMB(3.9,5,2,442,0)="MULT ;Add Effective Date"
^XMB(3.9,5,2,443,0)="""RTN"",""DG53683P"",73,0)"
^XMB(3.9,5,2,444,0)=" N DA,DIE,DR"
^XMB(3.9,5,2,445,0)="""RTN"",""DG53683P"",74,0)"
^XMB(3.9,5,2,446,0)=" S DA(1)=+DGDA1"
^XMB(3.9,5,2,447,0)="""RTN"",""DG53683P"",75,0)"
^XMB(3.9,5,2,448,0)=" S DIC(0)=""LX"""
^XMB(3.9,5,2,449,0)="""RTN"",""DG53683P"",76,0)"
^XMB(3.9,5,2,450,0)=" S DIC(""P"")=$P(^DD(DGFILE,DGMULT,0),""^"",2)"
^XMB(3.9,5,2,451,0)="""RTN"",""DG53683P"",77,0)"
^XMB(3.9,5,2,452,0)=" S X=3060701"
^XMB(3.9,5,2,453,0)="""RTN"",""DG53683P"",78,0)"
^XMB(3.9,5,2,454,0)=" D ^DIC"
^XMB(3.9,5,2,455,0)="""RTN"",""DG53683P"",79,0)"
^XMB(3.9,5,2,456,0)=" S DA=+Y"
^XMB(3.9,5,2,457,0)="""RTN"",""DG53683P"",80,0)"
^XMB(3.9,5,2,458,0)=" I +Y=-1 D MES^XPDUTL(""     Effective date not added."") Q"
^XMB(3.9,5,2,459,0)="""RTN"",""DG53683P"",81,0)"
^XMB(3.9,5,2,460,0)=" D MES^XPDUTL(""     Effective date added."")"
^XMB(3.9,5,2,461,0)="""RTN"",""DG53683P"",82,0)"
^XMB(3.9,5,2,462,0)=" S DIE=DIC"
^XMB(3.9,5,2,463,0)="""RTN"",""DG53683P"",83,0)"
^XMB(3.9,5,2,464,0)=" S DR="".02///Y"""
^XMB(3.9,5,2,465,0)="""RTN"",""DG53683P"",84,0)"
^XMB(3.9,5,2,466,0)=" D ^DIE"
^XMB(3.9,5,2,467,0)="""RTN"",""DG53683P"",85,0)"
^XMB(3.9,5,2,468,0)=" Q"
^XMB(3.9,5,2,469,0)="""RTN"",""DG53683P"",86,0)"
^XMB(3.9,5,2,470,0)="INACT80 ;inactivate code 80"
^XMB(3.9,5,2,471,0)="""RTN"",""DG53683P"",87,0)"
^XMB(3.9,5,2,472,0)=" N DA,DIE,DR,X"
^XMB(3.9,5,2,473,0)="""RTN"",""DG53683P"",88,0)"
^XMB(3.9,5,2,474,0)=" S DIC=""^DIC(42.4,80,""""E"""","""
^XMB(3.9,5,2,475,0)="""RTN"",""DG53683P"",89,0)"
^XMB(3.9,5,2,476,0)=" S DA(1)=80"
^XMB(3.9,5,2,477,0)="""RTN"",""DG53683P"",90,0)"
^XMB(3.9,5,2,478,0)=" S DIC(0)=""LX"""
^XMB(3.9,5,2,479,0)="""RTN"",""DG53683P"",91,0)"
^XMB(3.9,5,2,480,0)=" S DIC(""P"")=$P(^DD(42.4,10,0),""^"",2)"
^XMB(3.9,5,2,481,0)="""RTN"",""DG53683P"",92,0)"
^XMB(3.9,5,2,482,0)=" S X=3060802"
^XMB(3.9,5,2,483,0)="""RTN"",""DG53683P"",93,0)"
^XMB(3.9,5,2,484,0)=" D ^DIC"
^XMB(3.9,5,2,485,0)="""RTN"",""DG53683P"",94,0)"
^XMB(3.9,5,2,486,0)=" S DA=+Y"
^XMB(3.9,5,2,487,0)="""RTN"",""DG53683P"",95,0)"
^XMB(3.9,5,2,488,0)=" D BMES^XPDUTL(""  "")"
^XMB(3.9,5,2,489,0)="""RTN"",""DG53683P"",96,0)"
^XMB(3.9,5,2,490,0)=" D BMES^XPDUTL(""  "")"
^XMB(3.9,5,2,491,0)="""RTN"",""DG53683P"",97,0)"
^XMB(3.9,5,2,492,0)=" D BMES^XPDUTL(""  "")"
^XMB(3.9,5,2,493,0)="""RTN"",""DG53683P"",98,0)"
^XMB(3.9,5,2,494,0)=" I +Y=-1 D BMES^XPDUTL("">>>Inactive date not added to 80-NHCU in the Specialty file."") Q"
^XMB(3.9,5,2,495,0)="""RTN"",""DG53683P"",99,0)"
^XMB(3.9,5,2,496,0)=" D BMES^XPDUTL("">>>Inactive date added to 80-NHCU in the Specialty file.<<<"")"
^XMB(3.9,5,2,497,0)="""RTN"",""DG53683P"",100,0)"
^XMB(3.9,5,2,498,0)=" S DIE=DIC"
^XMB(3.9,5,2,499,0)="""RTN"",""DG53683P"",101,0)"
^XMB(3.9,5,2,500,0)=" S DR="".02///N"""
^XMB(3.9,5,2,501,0)="""RTN"",""DG53683P"",102,0)"
^XMB(3.9,5,2,502,0)=" D ^DIE"
^XMB(3.9,5,2,503,0)="""RTN"",""DG53683P"",103,0)"
^XMB(3.9,5,2,504,0)=" ;"
^XMB(3.9,5,2,505,0)="""RTN"",""DG53683P"",104,0)"
^XMB(3.9,5,2,506,0)=" ; -- check for NHCU 80 in the Facility Treating Specialty File (45.7"
^XMB(3.9,5,2,507,0)="""RTN"",""DG53683P"",105,0)"
^XMB(3.9,5,2,508,0)=" ;    add inactivation date of 8/2/2006"
^XMB(3.9,5,2,509,0)="""RTN"",""DG53683P"",106,0)"
^XMB(3.9,5,2,510,0)=" ;"
^XMB(3.9,5,2,511,0)="""RTN"",""DG53683P"",107,0)"
^XMB(3.9,5,2,512,0)=" D BMES^XPDUTL(""  "")"
^XMB(3.9,5,2,513,0)="""RTN"",""DG53683P"",108,0)"
^XMB(3.9,5,2,514,0)=" D MES^XPDUTL(""     FACILITY TREATING SPECIALTY FILE being checked to see if any entries are"")"
^XMB(3.9,5,2,515,0)="""RTN"",""DG53683P"",109,0)"
^XMB(3.9,5,2,516,0)=" D MES^XPDUTL(""     pointing to 80-NHCU.  If so, they will be inactivated.>>>"")"
^XMB(3.9,5,2,517,0)="""RTN"",""DG53683P"",110,0)"
^XMB(3.9,5,2,518,0)=" N DAA F DAA=0:0 S DAA=$O(^DIC(45.7,""ASPEC"",80,DAA)) Q:'DAA  D"
^XMB(3.9,5,2,519,0)="""RTN"",""DG53683P"",111,0)"
^XMB(3.9,5,2,520,0)=" . N DIE,DR,TS,X S TS="""""
^XMB(3.9,5,2,521,0)="""RTN"",""DG53683P"",112,0)"
^XMB(3.9,5,2,522,0)=" .S TS=$P($G(^DIC(45.7,DAA,0)),""^"")"
^XMB(3.9,5,2,523,0)="""RTN"",""DG53683P"",113,0)"
^XMB(3.9,5,2,524,0)=" .S DIC=""^DIC(45.7,""_DAA_"",""""E"""","""
^XMB(3.9,5,2,525,0)="""RTN"",""DG53683P"",114,0)"
^XMB(3.9,5,2,526,0)=" .S DA(1)=DAA"
^XMB(3.9,5,2,527,0)="""RTN"",""DG53683P"",115,0)"
^XMB(3.9,5,2,528,0)=" .S DIC(0)=""LX"""
^XMB(3.9,5,2,529,0)="""RTN"",""DG53683P"",116,0)"
^XMB(3.9,5,2,530,0)=" .S X=3060802"
^XMB(3.9,5,2,531,0)="""RTN"",""DG53683P"",117,0)"
^XMB(3.9,5,2,532,0)=" .D ^DIC"
^XMB(3.9,5,2,533,0)="""RTN"",""DG53683P"",118,0)"
^XMB(3.9,5,2,534,0)=" .S DA=+Y"
^XMB(3.9,5,2,535,0)="""RTN"",""DG53683P"",119,0)"
^XMB(3.9,5,2,536,0)=" .I +Y=-1 D BMES^XPDUTL(""     Inactive date not added to ""_TS_"" in the Facility Treating Specialty file."") Q"
^XMB(3.9,5,2,537,0)="""RTN"",""DG53683P"",120,0)"
^XMB(3.9,5,2,538,0)=" . D BMES^XPDUTL(""     Inactive date added to ""_TS_"" in the Facility Treating Specialty file."")"
^XMB(3.9,5,2,539,0)="""RTN"",""DG53683P"",121,0)"
^XMB(3.9,5,2,540,0)=" .S DIE=DIC"
^XMB(3.9,5,2,541,0)="""RTN"",""DG53683P"",122,0)"
^XMB(3.9,5,2,542,0)=" .S DR="".02///N"""
^XMB(3.9,5,2,543,0)="""RTN"",""DG53683P"",123,0)"
^XMB(3.9,5,2,544,0)=" .D ^DIE"
^XMB(3.9,5,2,545,0)="""RTN"",""DG53683P"",124,0)"
^XMB(3.9,5,2,546,0)=" Q"
^XMB(3.9,5,2,547,0)="""RTN"",""DG53683P"",125,0)"
^XMB(3.9,5,2,548,0)="INACT ;inactivate mental health codes"
^XMB(3.9,5,2,549,0)="""RTN"",""DG53683P"",126,0)"
^XMB(3.9,5,2,550,0)=" N DA,DIE,DR,X,MHCD"
^XMB(3.9,5,2,551,0)="""RTN"",""DG53683P"",127,0)"
^XMB(3.9,5,2,552,0)=" F MHCD=70,71,76,77,75,90,84 D"
^XMB(3.9,5,2,553,0)="""RTN"",""DG53683P"",128,0)"
^XMB(3.9,5,2,554,0)=" . S DIC=""^DIC(42.4,""_MHCD_"",""""E"""","""
^XMB(3.9,5,2,555,0)="""RTN"",""DG53683P"",129,0)"
^XMB(3.9,5,2,556,0)=" . S DA(1)=MHCD"
^XMB(3.9,5,2,557,0)="""RTN"",""DG53683P"",130,0)"
^XMB(3.9,5,2,558,0)=" . S DIC(0)=""LX"""
^XMB(3.9,5,2,559,0)="""RTN"",""DG53683P"",131,0)"
^XMB(3.9,5,2,560,0)=" . S DIC(""P"")=$P(^DD(42.4,10,0),""^"",2)"
^XMB(3.9,5,2,561,0)="""RTN"",""DG53683P"",132,0)"
^XMB(3.9,5,2,562,0)=" . S X=3060701"
^XMB(3.9,5,2,563,0)="""RTN"",""DG53683P"",133,0)"
^XMB(3.9,5,2,564,0)=" . D ^DIC"
^XMB(3.9,5,2,565,0)="""RTN"",""DG53683P"",134,0)"
^XMB(3.9,5,2,566,0)=" . S DA=+Y"
^XMB(3.9,5,2,567,0)="""RTN"",""DG53683P"",135,0)"
^XMB(3.9,5,2,568,0)=" . I +Y=-1 D BMES^XPDUTL("">>>Inactive date not added to MH code ""_MHCD_"" in the Specialty file."") Q"
^XMB(3.9,5,2,569,0)="""RTN"",""DG53683P"",136,0)"
^XMB(3.9,5,2,570,0)=" . D BMES^XPDUTL("">>>Inactive date added to MH code ""_MHCD_"" in the Specialty file.<<<"")"
^XMB(3.9,5,2,571,0)="""RTN"",""DG53683P"",137,0)"
^XMB(3.9,5,2,572,0)=" . S DIE=DIC"
^XMB(3.9,5,2,573,0)="""RTN"",""DG53683P"",138,0)"
^XMB(3.9,5,2,574,0)=" . S DR="".02///N"""
^XMB(3.9,5,2,575,0)="""RTN"",""DG53683P"",139,0)"
^XMB(3.9,5,2,576,0)=" . D ^DIE"
^XMB(3.9,5,2,577,0)="""RTN"",""DG53683P"",140,0)"
^XMB(3.9,5,2,578,0)=" . ;"
^XMB(3.9,5,2,579,0)="""RTN"",""DG53683P"",141,0)"
^XMB(3.9,5,2,580,0)=" . ;check for MH CODES in the Facility Treating Specialty File (45.7"
^XMB(3.9,5,2,581,0)="""RTN"",""DG53683P"",142,0)"
^XMB(3.9,5,2,582,0)=" . ;add inactivation date of 7/1/2006"
^XMB(3.9,5,2,583,0)="""RTN"",""DG53683P"",143,0)"
^XMB(3.9,5,2,584,0)=" . ;"
^XMB(3.9,5,2,585,0)="""RTN"",""DG53683P"",144,0)"
^XMB(3.9,5,2,586,0)=" . D BMES^XPDUTL(""  "")"
^XMB(3.9,5,2,587,0)="""RTN"",""DG53683P"",145,0)"
^XMB(3.9,5,2,588,0)=" . D MES^XPDUTL(""     FACILITY TREATING SPECIALTY FILE being checked to see if any entries are"")"
^XMB(3.9,5,2,589,0)="""RTN"",""DG53683P"",146,0)"
^XMB(3.9,5,2,590,0)=" . D MES^XPDUTL(""     pointing to ""_MHCD_"".  If so, they will be inactivated.>>>"")"
^XMB(3.9,5,2,591,0)="""RTN"",""DG53683P"",147,0)"
^XMB(3.9,5,2,592,0)=" .N DAA F DAA=0:0 S DAA=$O(^DIC(45.7,""ASPEC"",MHCD,DAA)) Q:'DAA  D"
^XMB(3.9,5,2,593,0)="""RTN"",""DG53683P"",148,0)"
^XMB(3.9,5,2,594,0)=" .. N DIE,DR,TS,X S TS="""""
^XMB(3.9,5,2,595,0)="""RTN"",""DG53683P"",149,0)"
^XMB(3.9,5,2,596,0)=" ..S TS=$P($G(^DIC(45.7,DAA,0)),""^"")"
^XMB(3.9,5,2,597,0)="""RTN"",""DG53683P"",150,0)"
^XMB(3.9,5,2,598,0)=" ..S DIC=""^DIC(45.7,""_DAA_"",""""E"""","""
^XMB(3.9,5,2,599,0)="""RTN"",""DG53683P"",151,0)"
^XMB(3.9,5,2,600,0)=" ..S DA(1)=DAA"
^XMB(3.9,5,2,601,0)="""RTN"",""DG53683P"",152,0)"
^XMB(3.9,5,2,602,0)=" ..S DIC(0)=""LX"""
^XMB(3.9,5,2,603,0)="""RTN"",""DG53683P"",153,0)"
^XMB(3.9,5,2,604,0)=" ..S X=3060701"
^XMB(3.9,5,2,605,0)="""RTN"",""DG53683P"",154,0)"
^XMB(3.9,5,2,606,0)=" ..D ^DIC"
^XMB(3.9,5,2,607,0)="""RTN"",""DG53683P"",155,0)"
^XMB(3.9,5,2,608,0)=" ..S DA=+Y"
^XMB(3.9,5,2,609,0)="""RTN"",""DG53683P"",156,0)"
^XMB(3.9,5,2,610,0)=" ..I +Y=-1 D BMES^XPDUTL(""     Inactive date not added to ""_TS_""in the Facility Treating Specialty file."") Q"
^XMB(3.9,5,2,611,0)="""RTN"",""DG53683P"",157,0)"
^XMB(3.9,5,2,612,0)=" ..D BMES^XPDUTL(""     Inactive date added to ""_TS_"" in the Facility Treating Specialty file.<<<"")"
^XMB(3.9,5,2,613,0)="""RTN"",""DG53683P"",158,0)"
^XMB(3.9,5,2,614,0)=" ..S DIE=DIC"
^XMB(3.9,5,2,615,0)="""RTN"",""DG53683P"",159,0)"
^XMB(3.9,5,2,616,0)=" ..S DR="".02///N"""
^XMB(3.9,5,2,617,0)="""RTN"",""DG53683P"",160,0)"
^XMB(3.9,5,2,618,0)=" ..D ^DIE"
^XMB(3.9,5,2,619,0)="""RTN"",""DG53683P"",161,0)"
^XMB(3.9,5,2,620,0)=" Q"
^XMB(3.9,5,2,621,0)="""RTN"",""DG53683P"",162,0)"
^XMB(3.9,5,2,622,0)="EDIT ;Edit treating specialties"
^XMB(3.9,5,2,623,0)="""RTN"",""DG53683P"",163,0)"
^XMB(3.9,5,2,624,0)=" ;"
^XMB(3.9,5,2,625,0)="""RTN"",""DG53683P"",164,0)"
^XMB(3.9,5,2,626,0)=" N DS,DIE,DR,DGI"
^XMB(3.9,5,2,627,0)="""RTN"",""DG53683P"",165,0)"
^XMB(3.9,5,2,628,0)=" S DIE=""^DIC(42.4,"""
^XMB(3.9,5,2,629,0)="""RTN"",""DG53683P"",166,0)"
^XMB(3.9,5,2,630,0)=" S DIC(0)=""LX"""
^XMB(3.9,5,2,631,0)="""RTN"",""DG53683P"",167,0)"
^XMB(3.9,5,2,632,0)=" F DGI=1:1 S DGSPEC=$P($T(ETRSP+DGI),"";;"",2) Q:DGSPEC=""QUIT""  D"
^XMB(3.9,5,2,633,0)="""RTN"",""DG53683P"",168,0)"
^XMB(3.9,5,2,634,0)=" . S DGERR=0"
^XMB(3.9,5,2,635,0)="""RTN"",""DG53683P"",169,0)"
^XMB(3.9,5,2,636,0)=" . S DA=$P(DGSPEC,U)"
^XMB(3.9,5,2,637,0)="""RTN"",""DG53683P"",170,0)"
^XMB(3.9,5,2,638,0)=" . S DR="".01///""_$P(DGSPEC,U,2)_"";1///""_$P(DGSPEC,U,3)_"";3///""_$P(DGSPEC,U,4)_"";4///""_$P(DGSPEC,U,5)_"";5///""_$P(DGSPEC,U,6)_"";6///""_$P(DGSPEC,U,7)"
^XMB(3.9,5,2,639,0)="""RTN"",""DG53683P"",171,0)"
^XMB(3.9,5,2,640,0)=" . D ^DIE"
^XMB(3.9,5,2,641,0)="""RTN"",""DG53683P"",172,0)"
^XMB(3.9,5,2,642,0)=" . D BMES^XPDUTL(""  "")"
^XMB(3.9,5,2,643,0)="""RTN"",""DG53683P"",173,0)"
^XMB(3.9,5,2,644,0)=" . D BMES^XPDUTL(""  "")"
^XMB(3.9,5,2,645,0)="""RTN"",""DG53683P"",174,0)"
^XMB(3.9,5,2,646,0)=" . D BMES^XPDUTL("">>>""_$P(DGSPEC,U)_"" code updated to ""_$P(DGSPEC,U,2)_"" in the Specialty file.>>>"")"
^XMB(3.9,5,2,647,0)="""RTN"",""DG53683P"",175,0)"
^XMB(3.9,5,2,648,0)=" N DS,DIE,DR,DGI,DGII,DGSP,CNT,DGSPEC,DGSPEC1"
^XMB(3.9,5,2,649,0)="""RTN"",""DG53683P"",176,0)"
^XMB(3.9,5,2,650,0)=" S DIE=""^DIC(45.7,"""
^XMB(3.9,5,2,651,0)="""RTN"",""DG53683P"",177,0)"
^XMB(3.9,5,2,652,0)=" S DIC(0)=""LX"""
^XMB(3.9,5,2,653,0)="""RTN"",""DG53683P"",178,0)"
^XMB(3.9,5,2,654,0)=" F DGI=1:1 S DGSPEC=$P($T(ETRSP+DGI),"";;"",2) Q:DGSPEC=""QUIT""  D"
^XMB(3.9,5,2,655,0)="""RTN"",""DG53683P"",179,0)"
^XMB(3.9,5,2,656,0)=" . S DGERR=0"
^XMB(3.9,5,2,657,0)="""RTN"",""DG53683P"",180,0)"
^XMB(3.9,5,2,658,0)=" . S DGSP=$P(DGSPEC,U)"
^XMB(3.9,5,2,659,0)="""RTN"",""DG53683P"",181,0)"
^XMB(3.9,5,2,660,0)=" . S CNT=0,DGSPEC1=0 F DGII=0:0 S DGSPEC1=$O(^DIC(45.7,""ASPEC"",DGSP,DGSPEC1)) Q:'DGSPEC1  S CNT=CNT+1 D"
^XMB(3.9,5,2,661,0)="""RTN"",""DG53683P"",182,0)"
^XMB(3.9,5,2,662,0)=" .. I CNT=1 D"
^XMB(3.9,5,2,663,0)="""RTN"",""DG53683P"",183,0)"
^XMB(3.9,5,2,664,0)=" ... I $$ACTIVE^DGACT(45.7,DGSPEC1)'=1 S CNT=0 Q"
^XMB(3.9,5,2,665,0)="""RTN"",""DG53683P"",184,0)"
^XMB(3.9,5,2,666,0)=" ... S DA=DGSPEC1,DR="".01///""_$P(DGSPEC,U,2)_"";99///@"""
^XMB(3.9,5,2,667,0)="""RTN"",""DG53683P"",185,0)"
^XMB(3.9,5,2,668,0)=" ... D BMES^XPDUTL(""     ""_$P(^DIC(45.7,DGSPEC1,0),U)_"" name has been changed to ""_$P(DGSPEC,U,2)_"" in the Facility Treating Specialty file."")"
^XMB(3.9,5,2,669,0)="""RTN"",""DG53683P"",186,0)"
^XMB(3.9,5,2,670,0)=" ... D ^DIE"
^XMB(3.9,5,2,671,0)="""RTN"",""DG53683P"",187,0)"
^XMB(3.9,5,2,672,0)=" .. E  D"
^XMB(3.9,5,2,673,0)="""RTN"",""DG53683P"",188,0)"
^XMB(3.9,5,2,674,0)=" ... S TS="""""
^XMB(3.9,5,2,675,0)="""RTN"",""DG53683P"",189,0)"
^XMB(3.9,5,2,676,0)=" ... S TS=$P($G(^DIC(45.7,DGSPEC1,0)),""^"")"
^XMB(3.9,5,2,677,0)="""RTN"",""DG53683P"",190,0)"
^XMB(3.9,5,2,678,0)=" ... D BMES^XPDUTL(""     Please review Facility Treating Specialty ""_TS_"".  The entry name may need changing or entry may need inactivating since more than one entry points to ""_$P(DGSPEC,U,2)_"" in the Specialty file.<<<"")"
^XMB(3.9,5,2,679,0)="""RTN"",""DG53683P"",191,0)"
^XMB(3.9,5,2,680,0)=" Q"
^XMB(3.9,5,2,681,0)="""RTN"",""DG53683P"",192,0)"
^XMB(3.9,5,2,682,0)="TRSP ;PTF code^Speciality^Print Name^Service^Ask Psych^Billing Bedsection^CDR^^Ques#"
^XMB(3.9,5,2,683,0)="""RTN"",""DG53683P"",193,0)"
^XMB(3.9,5,2,684,0)=" ;;64^NH SHORT STAY REHABILITATION^NH SS REHAB^NH^N^NURSING HOME CARE^1430^^"
^XMB(3.9,5,2,685,0)="""RTN"",""DG53683P"",194,0)"
^XMB(3.9,5,2,686,0)=" ;;66^NH SHORT STAY RESTORATIVE^NH SS RESTOR^NH^N^NURSING HOME CARE^1430^^"
^XMB(3.9,5,2,687,0)="""RTN"",""DG53683P"",195,0)"
^XMB(3.9,5,2,688,0)=" ;;67^NH SHORT STAY MAINTENANCE^NH SS MAINT^NH^N^NURSING HOME CARE^1430^^"
^XMB(3.9,5,2,689,0)="""RTN"",""DG53683P"",196,0)"
^XMB(3.9,5,2,690,0)=" ;;68^NH SHORT STAY PSYCHIATRIC CARE^NH SS PSYCH^NH^N^NURSING HOME CARE^1430^^"
^XMB(3.9,5,2,691,0)="""RTN"",""DG53683P"",197,0)"
^XMB(3.9,5,2,692,0)=" ;;69^NH SHORT STAY DEMENTIA CARE^NH SS DEMENTIA^NH^N^NURSING HOME CARE^1430^^"
^XMB(3.9,5,2,693,0)="""RTN"",""DG53683P"",198,0)"
^XMB(3.9,5,2,694,0)=" ;;42^NH LONG STAY DEMENTIA CARE^NH LS DEMENTIA^NH^N^NURSING HOME CARE^1410^^"
^XMB(3.9,5,2,695,0)="""RTN"",""DG53683P"",199,0)"
^XMB(3.9,5,2,696,0)=" ;;43^NH LONG STAY SKILLED NURSING^NH LS SKILL NUR^NH^N^NURSING HOME CARE^1410^^"
^XMB(3.9,5,2,697,0)="""RTN"",""DG53683P"",200,0)"
^XMB(3.9,5,2,698,0)=" ;;44^NH LONG STAY MAINTENANCE CARE^NH LS MAINT^NH^N^NURSING HOME CARE^1410^^"
^XMB(3.9,5,2,699,0)="""RTN"",""DG53683P"",201,0)"
^XMB(3.9,5,2,700,0)=" ;;45^NH LONG STAY PSYCHIATRIC CARE^NH LS PSYCH^NH^N^NURSING HOME CARE^1410^^"
^XMB(3.9,5,2,701,0)="""RTN"",""DG53683P"",202,0)"
^XMB(3.9,5,2,702,0)=" ;;46^NH LONG STAY SPINAL CORD INJ^NH LS SPINAL^NH^N^NURSING HOME CARE^1410^^"
^XMB(3.9,5,2,703,0)="""RTN"",""DG53683P"",203,0)"
^XMB(3.9,5,2,704,0)=" ;;47^NH RESPITE CARE (NHCU)^NH RC-NHCU^NH^N^^1430^^"
^XMB(3.9,5,2,705,0)="""RTN"",""DG53683P"",204,0)"
^XMB(3.9,5,2,706,0)=" ;;QUIT"
^XMB(3.9,5,2,707,0)="""RTN"",""DG53683P"",205,0)"
^XMB(3.9,5,2,708,0)=" ;"
^XMB(3.9,5,2,709,0)="""RTN"",""DG53683P"",206,0)"
^XMB(3.9,5,2,710,0)="ETRSP ;;PTF code^Speciality^Print Name^Service^Ask Psych^Billing Bedsection^CDR"
^XMB(3.9,5,2,711,0)="""RTN"",""DG53683P"",207,0)"
^XMB(3.9,5,2,712,0)=" ;;83^RESPITE CARE (MEDICINE)^RC-MEDICINE^RESPITE CARE^N^^1110^^"
^XMB(3.9,5,2,713,0)="""RTN"",""DG53683P"",208,0)"
^XMB(3.9,5,2,714,0)=" ;;95^NH SHORT STAY SKILLED NURSING^NH SS SKILL^NH^N^NURSING HOME CARE^1430^^"
^XMB(3.9,5,2,715,0)="""RTN"",""DG53683P"",209,0)"
^XMB(3.9,5,2,716,0)=" ;;96^NH HOSPICE^NH HOSPICE^NH^N^NURSING HOME CARE^1425^^"
^XMB(3.9,5,2,717,0)="""RTN"",""DG53683P"",210,0)"
^XMB(3.9,5,2,718,0)=" ;;81^NH GEM NURSING HOME CARE^NH GEM NHC^NH^N^NURSING HOME CARE^1420^^"
^XMB(3.9,5,2,719,0)="""RTN"",""DG53683P"",211,0)"
^XMB(3.9,5,2,720,0)=" ;;QUIT"
^XMB(3.9,5,2,721,0)="""RTN"",""DG53683P"",212,0)"
^XMB(3.9,5,2,722,0)=" Q"
^XMB(3.9,5,2,723,0)="""RTN"",""DGACT"")"
^XMB(3.9,5,2,724,0)="0^2^B715902^B731706"
^XMB(3.9,5,2,725,0)="""RTN"",""DGACT"",1,0)"
^XMB(3.9,5,2,726,0)="DGACT ;ALB/CAW - Active check for facility TS or Specialty ; 7/27/94"
^XMB(3.9,5,2,727,0)="""RTN"",""DGACT"",2,0)"
^XMB(3.9,5,2,728,0)=" ;;5.3;Registration;**64,683**;Aug 13, 1993"
^XMB(3.9,5,2,729,0)="""RTN"",""DGACT"",3,0)"
^XMB(3.9,5,2,730,0)=" ;"
^XMB(3.9,5,2,731,0)="""RTN"",""DGACT"",4,0)"
^XMB(3.9,5,2,732,0)=" ;"
^XMB(3.9,5,2,733,0)="""RTN"",""DGACT"",5,0)"
^XMB(3.9,5,2,734,0)="ACTIVE(FILE,IEN,DGDT) ; Extrinsic function to determine if TS entry is active"
^XMB(3.9,5,2,735,0)="""RTN"",""DGACT"",6,0)"
^XMB(3.9,5,2,736,0)=" ;"
^XMB(3.9,5,2,737,0)="""RTN"",""DGACT"",7,0)"
^XMB(3.9,5,2,738,0)=" ;     Input -- FILE to determine if checking facility TS or TS"
^XMB(3.9,5,2,739,0)="""RTN"",""DGACT"",8,0)"
^XMB(3.9,5,2,740,0)=" ;                  FACILITY TREATING SPECIALTY (45.7)"
^XMB(3.9,5,2,741,0)="""RTN"",""DGACT"",9,0)"
^XMB(3.9,5,2,742,0)=" ;                  SPECIALTY (42.4)"
^XMB(3.9,5,2,743,0)="""RTN"",""DGACT"",10,0)"
^XMB(3.9,5,2,744,0)=" ;          IEN is the internal IFN of whichever file passed in"
^XMB(3.9,5,2,745,0)="""RTN"",""DGACT"",11,0)"
^XMB(3.9,5,2,746,0)=" ;       DGDT as 'as of' date (uses DT if undefined)"
^XMB(3.9,5,2,747,0)="""RTN"",""DGACT"",12,0)"
^XMB(3.9,5,2,748,0)=" ;    Output -- 1 if active, 0 otherwise"
^XMB(3.9,5,2,749,0)="""RTN"",""DGACT"",13,0)"
^XMB(3.9,5,2,750,0)=" ;"
^XMB(3.9,5,2,751,0)="""RTN"",""DGACT"",14,0)"
^XMB(3.9,5,2,752,0)=" N DGID,Y,X"
^XMB(3.9,5,2,753,0)="""RTN"",""DGACT"",15,0)"
^XMB(3.9,5,2,754,0)=" S DGID=$S($G(DGDT):DGDT,1:DT)"
^XMB(3.9,5,2,755,0)="""RTN"",""DGACT"",16,0)"
^XMB(3.9,5,2,756,0)=" S DGID=$S('$P(DGID,""."",2):(DGID)_.2359,1:(DGID)),DGID=-DGID"
^XMB(3.9,5,2,757,0)="""RTN"",""DGACT"",17,0)"
^XMB(3.9,5,2,758,0)=" S Y=0"
^XMB(3.9,5,2,759,0)="""RTN"",""DGACT"",18,0)"
^XMB(3.9,5,2,760,0)=" S ID=$O(^DIC(FILE,IEN,""E"",""ADATE"",DGID)) G:'ID ACTIVEQ"
^XMB(3.9,5,2,761,0)="""RTN"",""DGACT"",19,0)"
^XMB(3.9,5,2,762,0)=" S ID=$O(^DIC(FILE,IEN,""E"",""ADATE"",ID,0))"
^XMB(3.9,5,2,763,0)="""RTN"",""DGACT"",20,0)"
^XMB(3.9,5,2,764,0)=" S X=$G(^DIC(FILE,IEN,""E"",ID,0)) I 'X G ACTIVEQ"
^XMB(3.9,5,2,765,0)="""RTN"",""DGACT"",21,0)"
^XMB(3.9,5,2,766,0)=" I $P(X,""^"",2)=1 S Y=1"
^XMB(3.9,5,2,767,0)="""RTN"",""DGACT"",22,0)"
^XMB(3.9,5,2,768,0)="ACTIVEQ Q $S(Y:1,1:0)"
^XMB(3.9,5,2,769,0)="""RTN"",""DGPMV10"")"
^XMB(3.9,5,2,770,0)="0^4^B28791536^B28144594"
^XMB(3.9,5,2,771,0)="""RTN"",""DGPMV10"",1,0)"
^XMB(3.9,5,2,772,0)="DGPMV10 ;ALB/MRL/MIR - PATIENT MOVEMENT, CONT.; 11 APR 89 ; 4/15/03 5:48pm"
^XMB(3.9,5,2,773,0)="""RTN"",""DGPMV10"",2,0)"
^XMB(3.9,5,2,774,0)=" ;;5.3;Registration;**84,498,509,683**;Aug 13, 1993"
^XMB(3.9,5,2,775,0)="""RTN"",""DGPMV10"",3,0)"
^XMB(3.9,5,2,776,0)="CS ;Current Status"
^XMB(3.9,5,2,777,0)="""RTN"",""DGPMV10"",4,0)"
^XMB(3.9,5,2,778,0)=" ;first print primary care team/practitioner/attending"
^XMB(3.9,5,2,779,0)="""RTN"",""DGPMV10"",5,0)"
^XMB(3.9,5,2,780,0)=" D PCMM^SCRPU4(DFN,DT)"
^XMB(3.9,5,2,781,0)="""RTN"",""DGPMV10"",6,0)"
^XMB(3.9,5,2,782,0)=" S X=$S('DGPMT:1,DGPMT<4:2,DGPMT>5:2,1:3) ;DGPMT=0 if from pt inq (DGRPD)"
^XMB(3.9,5,2,783,0)="""RTN"",""DGPMV10"",7,0)"
^XMB(3.9,5,2,784,0)=" I '$D(^DGPM(""C"",DFN)) W !!,""Status      : PATIENT HAS NO INPATIENT OR LODGER ACTIVITY IN THE COMPUTER"",*7 D CS2 Q"
^XMB(3.9,5,2,785,0)="""RTN"",""DGPMV10"",8,0)"
^XMB(3.9,5,2,786,0)=" S A=$S(""^3^5^""[(""^""_+DGPMVI(2)_""^""):0,1:+DGPMVI(2)) W !!,""Status      : "",$S('A:""IN"",1:""""),""ACTIVE "",$S(""^4^5^""[(""^""_+DGPMVI(2)_""^""):""LODGER"",1:""INPATIENT"")"
^XMB(3.9,5,2,787,0)="""RTN"",""DGPMV10"",9,0)"
^XMB(3.9,5,2,788,0)=" G CS1:'A W ""-"" S X=+DGPMVI(4) I X=1 W ""on PASS"" G CS1"
^XMB(3.9,5,2,789,0)="""RTN"",""DGPMV10"",10,0)"
^XMB(3.9,5,2,790,0)=" I ""^2^3^25^26^""[(""^""_X_""^"") W ""on "",$S(""^2^26^""[X:""A"",1:""U""),""A"" G CS1"
^XMB(3.9,5,2,791,0)="""RTN"",""DGPMV10"",11,0)"
^XMB(3.9,5,2,792,0)=" I ""^13^43^44^45^""[(""^""_X_""^"") W ""ASIH"" G CS1"
^XMB(3.9,5,2,793,0)="""RTN"",""DGPMV10"",12,0)"
^XMB(3.9,5,2,794,0)=" I X=6 W ""OTHER FAC"" G CS1"
^XMB(3.9,5,2,795,0)="""RTN"",""DGPMV10"",13,0)"
^XMB(3.9,5,2,796,0)=" W ""on WARD"""
^XMB(3.9,5,2,797,0)="""RTN"",""DGPMV10"",14,0)"
^XMB(3.9,5,2,798,0)="CS1 I +DGPMVI(2)=3,$D(^DGPM(+DGPMVI(17),0)) W ?39,""Discharge Type : "",$S($D(^DG(405.1,+$P(^(0),""^"",4),0)):$P(^(0),""^"",1),1:""UNKNOWN"")"
^XMB(3.9,5,2,799,0)="""RTN"",""DGPMV10"",15,0)"
^XMB(3.9,5,2,800,0)=" I ""^3^4^5^""'[(""^""_+DGPMVI(2)_""^""),$D(^DPT(DFN,""DAC"")),($P(^(""DAC""),""^"",1)=""S"") W ""  (Seriously ill)"""
^XMB(3.9,5,2,801,0)="""RTN"",""DGPMV10"",16,0)"
^XMB(3.9,5,2,802,0)=" W ! I +DGPMVI(19,1) W ""Patient chose not to be included in the Facility Directory for this admission"""
^XMB(3.9,5,2,803,0)="""RTN"",""DGPMV10"",17,0)"
^XMB(3.9,5,2,804,0)=" W !,$S(""^4^5^""'[(""^""_+DGPMVI(2)_""^""):""Admitted    "",1:""Checked-in  ""),"": ""_$P(DGPMVI(13,1),""^"",2)"
^XMB(3.9,5,2,805,0)="""RTN"",""DGPMV10"",18,0)"
^XMB(3.9,5,2,806,0)=" W ?39,$S(""^4^5^""[(""^""_+DGPMVI(2)_""^""):""Checked-out"",+DGPMVI(2)=3:""Discharged "",1:""Transferred""),""    : "",$S(""^1^4^""'[(""^""_+DGPMVI(2)_""^""):$P(DGPMVI(3),""^"",2),$P(DGPMVI(3),""^"",2)'=$P(DGPMVI(13,1),""^"",2):$P(DGPMVI(3),""^"",2),1:"""")"
^XMB(3.9,5,2,807,0)="""RTN"",""DGPMV10"",19,0)"
^XMB(3.9,5,2,808,0)=" W !,""Ward        : "",$E($P(DGPMVI(5),""^"",2),1,24),?39,""Room-Bed       : "",$E($P(DGPMVI(6),""^"",2),1,21) I ""^4^5^""'[(""^""_+DGPMVI(2)_""^"") W !,""Provider    : "",$E($P(DGPMVI(7),""^"",2),1,26),?39,""Specialty      : """
^XMB(3.9,5,2,809,0)="""RTN"",""DGPMV10"",20,0)"
^XMB(3.9,5,2,810,0)=" N DGTS"
^XMB(3.9,5,2,811,0)="""RTN"",""DGPMV10"",21,0)"
^XMB(3.9,5,2,812,0)=" S DGTS=$G(^DIC(42.4,+$P($G(^DIC(45.7,+DGPMVI(8),0)),""^"",2),0))"
^XMB(3.9,5,2,813,0)="""RTN"",""DGPMV10"",22,0)"
^XMB(3.9,5,2,814,0)=" W $S($P((DGTS),""^"",2)'="""":$E($P((DGTS),""^"",2),1,21),1:$E($P((DGTS),""^""),1,21))"
^XMB(3.9,5,2,815,0)="""RTN"",""DGPMV10"",23,0)"
^XMB(3.9,5,2,816,0)=" W !,""Attending   : "",$E($P(DGPMVI(18),""^"",2),1,26)"
^XMB(3.9,5,2,817,0)="""RTN"",""DGPMV10"",24,0)"
^XMB(3.9,5,2,818,0)=" D CS2"
^XMB(3.9,5,2,819,0)="""RTN"",""DGPMV10"",25,0)"
^XMB(3.9,5,2,820,0)=" S DGPMIFN=DGPMVI(13) I +DGPMVI(2)'=4&(+DGPMVI(2)'=5) D ^DGPMLOS W !!,""Admission LOS: "",+$P(X,""^"",5),""  Absence days: "",+$P(X,""^"",2),""  Pass Days: "",+$P(X,""^"",3),""  ASIH days: "",+$P(X,""^"",4)"
^XMB(3.9,5,2,821,0)="""RTN"",""DGPMV10"",26,0)"
^XMB(3.9,5,2,822,0)=" K A,C,I,J,X"
^XMB(3.9,5,2,823,0)="""RTN"",""DGPMV10"",27,0)"
^XMB(3.9,5,2,824,0)=" Q"
^XMB(3.9,5,2,825,0)="""RTN"",""DGPMV10"",28,0)"
^XMB(3.9,5,2,826,0)=" ;"
^XMB(3.9,5,2,827,0)="""RTN"",""DGPMV10"",29,0)"
^XMB(3.9,5,2,828,0)="CS2 ;-- additional fields for admission screen"
^XMB(3.9,5,2,829,0)="""RTN"",""DGPMV10"",30,0)"
^XMB(3.9,5,2,830,0)=" Q:DGPMT'=1"
^XMB(3.9,5,2,831,0)="""RTN"",""DGPMV10"",31,0)"
^XMB(3.9,5,2,832,0)=" S DGHOLD=$S($D(^DPT(DFN,0)):^(0),1:"""")"
^XMB(3.9,5,2,833,0)="""RTN"",""DGPMV10"",32,0)"
^XMB(3.9,5,2,834,0)=" W !!,""Religion    : "",$S($D(^DIC(13,+$P(DGHOLD,U,8),0)):$E($P(^(0),U),1,24),1:"""")"
^XMB(3.9,5,2,835,0)="""RTN"",""DGPMV10"",33,0)"
^XMB(3.9,5,2,836,0)=" W ?39,""Marital Status : "",$S($D(^DIC(11,+$P(DGHOLD,U,5),0)):$P(^(0),U),1:"""")"
^XMB(3.9,5,2,837,0)="""RTN"",""DGPMV10"",34,0)"
^XMB(3.9,5,2,838,0)=" S DGHOLD=$S($D(^DPT(DFN,.36)):$P(^(.36),U),1:"""")"
^XMB(3.9,5,2,839,0)="""RTN"",""DGPMV10"",35,0)"
^XMB(3.9,5,2,840,0)=" W !,""Eligibility : "",$S($D(^DIC(8,+$P(DGHOLD,U),0)):$P(^(0),U),1:"""")"
^XMB(3.9,5,2,841,0)="""RTN"",""DGPMV10"",36,0)"
^XMB(3.9,5,2,842,0)=" S DGHOLD=$S($D(^DPT(DFN,.361)):^(.361),1:"""")"
^XMB(3.9,5,2,843,0)="""RTN"",""DGPMV10"",37,0)"
^XMB(3.9,5,2,844,0)=" W:$P(DGHOLD,U)]"""" "" ("",$P($P($P(^DD(2,.3611,0),U,3),$P(DGHOLD,U)_"":"",2),"";""),"")"""
^XMB(3.9,5,2,845,0)="""RTN"",""DGPMV10"",38,0)"
^XMB(3.9,5,2,846,0)=" W:$P(DGHOLD,U)']"""" "" (NOT VERIFIED)"""
^XMB(3.9,5,2,847,0)="""RTN"",""DGPMV10"",39,0)"
^XMB(3.9,5,2,848,0)=" K DGHOLD"
^XMB(3.9,5,2,849,0)="""RTN"",""DGPMV10"",40,0)"
^XMB(3.9,5,2,850,0)=" Q"
^XMB(3.9,5,2,851,0)="""RTN"",""DGPMV10"",41,0)"
^XMB(3.9,5,2,852,0)=" ;"
^XMB(3.9,5,2,853,0)="""RTN"",""DGPMV10"",42,0)"
^XMB(3.9,5,2,854,0)="LODGER ;set-up necessary variables if getting last lodger episode"
^XMB(3.9,5,2,855,0)="""RTN"",""DGPMV10"",43,0)"
^XMB(3.9,5,2,856,0)=" ;only need 1,2,13,17 - date/time,TT,check-in IFN,check-out IFN"
^XMB(3.9,5,2,857,0)="""RTN"",""DGPMV10"",44,0)"
^XMB(3.9,5,2,858,0)=" S I=$O(^DGPM(""ATID4"",DFN,0)),I=$O(^(+I,0))"
^XMB(3.9,5,2,859,0)="""RTN"",""DGPMV10"",45,0)"
^XMB(3.9,5,2,860,0)=" S X=$S($D(^DGPM(+I,0)):^(0),1:"""") I 'X D NULL Q"
^XMB(3.9,5,2,861,0)="""RTN"",""DGPMV10"",46,0)"
^XMB(3.9,5,2,862,0)=" I $D(^DGPM(+$P(X,""^"",17),0)) S (DGPMDCD,DGPMVI(1))=+^(0),DGPMVI(2)=5,DGPMVI(13)=I,DGPMVI(17)=$P(X,""^"",17) Q"
^XMB(3.9,5,2,863,0)="""RTN"",""DGPMV10"",47,0)"
^XMB(3.9,5,2,864,0)=" S (DGPMDCD,DGPMVI(17))="""",DGPMVI(1)=+X,DGPMVI(2)=4,DGPMVI(13)=I"
^XMB(3.9,5,2,865,0)="""RTN"",""DGPMV10"",48,0)"
^XMB(3.9,5,2,866,0)=" Q"
^XMB(3.9,5,2,867,0)="""RTN"",""DGPMV10"",49,0)"
^XMB(3.9,5,2,868,0)="NULL S DGPMDCD="""" F I=1,2,13,17 S DGPMVI(I)="""""
^XMB(3.9,5,2,869,0)="""RTN"",""DGPMV10"",50,0)"
^XMB(3.9,5,2,870,0)=" Q"
^XMB(3.9,5,2,871,0)="""RTN"",""DGPMV10"",51,0)"
^XMB(3.9,5,2,872,0)=" ;"
^XMB(3.9,5,2,873,0)="""RTN"",""DGPMV10"",52,0)"
^XMB(3.9,5,2,874,0)="INP ;set-up inpt vbls needed (mimic VAIP array)"
^XMB(3.9,5,2,875,0)="""RTN"",""DGPMV10"",53,0)"
^XMB(3.9,5,2,876,0)=" ;"
^XMB(3.9,5,2,877,0)="""RTN"",""DGPMV10"",54,0)"
^XMB(3.9,5,2,878,0)=" ;Called from scheduling, too"
^XMB(3.9,5,2,879,0)="""RTN"",""DGPMV10"",55,0)"
^XMB(3.9,5,2,880,0)=" ;"
^XMB(3.9,5,2,881,0)="""RTN"",""DGPMV10"",56,0)"
^XMB(3.9,5,2,882,0)=" D NOW^%DTC S (VAX(""DAT""),NOW)=%,NOWI=9999999.999999-% I '$D(VAIP(""E"")) D LAST^VADPT3"
^XMB(3.9,5,2,883,0)="""RTN"",""DGPMV10"",57,0)"
^XMB(3.9,5,2,884,0)=" F I=1:1:8,13,17 S DGPMVI(I)="""""
^XMB(3.9,5,2,885,0)="""RTN"",""DGPMV10"",58,0)"
^XMB(3.9,5,2,886,0)=" F I=13,19 S DGPMVI(I,1)="""""
^XMB(3.9,5,2,887,0)="""RTN"",""DGPMV10"",59,0)"
^XMB(3.9,5,2,888,0)=" S DGPMVI(1)=$S($D(VAIP(""E"")):VAIP(""E""),1:E) ;use ifn of last mvt from VADPT call or one passed from DGPMV"
^XMB(3.9,5,2,889,0)="""RTN"",""DGPMV10"",60,0)"
^XMB(3.9,5,2,890,0)=" S DGX=$G(^DGPM(+DGPMVI(1),0)),DGPMVI(2)=$P(DGX,""^"",2),DGPMVI(4)=$P(DGX,""^"",18) S Y=+DGX X ^DD(""DD"") S DGPMVI(3)=$P(DGX,""^"",1)_""^""_Y"
^XMB(3.9,5,2,891,0)="""RTN"",""DGPMV10"",61,0)"
^XMB(3.9,5,2,892,0)=" S DGPMVI(5)=$P(DGX,""^"",6)_""^""_$S($D(^DIC(42,+$P(DGX,""^"",6),0)):$P(^(0),""^"",1),1:""""),DGPMVI(6)=$P(DGX,""^"",7)_""^""_$S($D(^DG(405.4,+$P(DGX,""^"",7),0)):$P(^(0),""^"",1),1:""""),DGPMVI(13)=$P(DGX,""^"",14)"
^XMB(3.9,5,2,893,0)="""RTN"",""DGPMV10"",62,0)"
^XMB(3.9,5,2,894,0)=" I ""^3^5^""[(""^""_DGPMVI(2)_""^"") D GETWD ;get from ward if d/c or check-out"
^XMB(3.9,5,2,895,0)="""RTN"",""DGPMV10"",63,0)"
^XMB(3.9,5,2,896,0)=" S DGX=$G(^DGPM(+DGPMVI(13),0)) I DGX]"""" S Y=+DGX X ^DD(""DD"") S DGPMVI(13,1)=$P(DGX,""^"",1)_""^""_Y,DGPMVI(17)=$P(DGX,""^"",17) I $D(DGPMSVC) S DGPMSV=$P($G(^DIC(42,+$P(DGX,""^"",6),0)),""^"",3)"
^XMB(3.9,5,2,897,0)="""RTN"",""DGPMV10"",64,0)"
^XMB(3.9,5,2,898,0)=" S DGPMDCD=$S($D(^DGPM(+DGPMVI(17),0)):$P(^(0),""^"",1),1:"""")"
^XMB(3.9,5,2,899,0)="""RTN"",""DGPMV10"",65,0)"
^XMB(3.9,5,2,900,0)=" S (DGTS,DGPP,DGAP)="""" ;t.s., primary care physician, attending"
^XMB(3.9,5,2,901,0)="""RTN"",""DGPMV10"",66,0)"
^XMB(3.9,5,2,902,0)=" F I=NOWI:0 S I=$O(^DGPM(""ATS"",DFN,+DGPMVI(13),I)) Q:'I  F J=0:0 S J=$O(^DGPM(""ATS"",DFN,+DGPMVI(13),I,J)) Q:'J  F IFN=0:0 S IFN=$O(^DGPM(""ATS"",DFN,+DGPMVI(13),I,J,IFN)) Q:'IFN  D TS1 G TSQ:DGTS&DGPP&DGAP"
^XMB(3.9,5,2,903,0)="""RTN"",""DGPMV10"",67,0)"
^XMB(3.9,5,2,904,0)="TSQ S DGPMVI(7)=DGPP,DGPMVI(8)=DGTS,DGPMVI(18)=DGAP"
^XMB(3.9,5,2,905,0)="""RTN"",""DGPMV10"",68,0)"
^XMB(3.9,5,2,906,0)=" S DGX=$G(^DGPM(+DGPMVI(13),0)) I $P(DGX,""^"",2)=1 D"
^XMB(3.9,5,2,907,0)="""RTN"",""DGPMV10"",69,0)"
^XMB(3.9,5,2,908,0)=" .S DGX=$G(^DGPM(+DGPMVI(13),""DIR""))"
^XMB(3.9,5,2,909,0)="""RTN"",""DGPMV10"",70,0)"
^XMB(3.9,5,2,910,0)=" .S DGX=$P(DGX,""^"",1)"
^XMB(3.9,5,2,911,0)="""RTN"",""DGPMV10"",71,0)"
^XMB(3.9,5,2,912,0)=" .I DGX="""" S DGX=$S('DGPMDCD:1,(DGPMDCD<3030414.999999):"""",1:1) Q:DGX="""""
^XMB(3.9,5,2,913,0)="""RTN"",""DGPMV10"",72,0)"
^XMB(3.9,5,2,914,0)=" .S DGPMVI(19,1)=DGX_""^""_$$EXTERNAL^DILFD(405,41,,DGX)"
^XMB(3.9,5,2,915,0)="""RTN"",""DGPMV10"",73,0)"
^XMB(3.9,5,2,916,0)=" D Q^VADPT3 K DGAP,DGPP,DGTS,DGX,IFN"
^XMB(3.9,5,2,917,0)="""RTN"",""DGPMV10"",74,0)"
^XMB(3.9,5,2,918,0)=" Q"
^XMB(3.9,5,2,919,0)="""RTN"",""DGPMV10"",75,0)"
^XMB(3.9,5,2,920,0)=" ;"
^XMB(3.9,5,2,921,0)="""RTN"",""DGPMV10"",76,0)"
^XMB(3.9,5,2,922,0)="TS1 ; set DGTS, DGPP, and DGAP"
^XMB(3.9,5,2,923,0)="""RTN"",""DGPMV10"",77,0)"
^XMB(3.9,5,2,924,0)=" Q:'$D(^DGPM(IFN,0))  S DGX=^(0)"
^XMB(3.9,5,2,925,0)="""RTN"",""DGPMV10"",78,0)"
^XMB(3.9,5,2,926,0)=" I 'DGPP,$D(^VA(200,+$P(DGX,""^"",8),0)) S Y=$P(DGX,""^"",8)_""^""_$P(^(0),""^"") S DGPP=Y"
^XMB(3.9,5,2,927,0)="""RTN"",""DGPMV10"",79,0)"
^XMB(3.9,5,2,928,0)=" I 'DGAP,$D(^VA(200,+$P(DGX,""^"",19),0)) S Y=$P(DGX,""^"",19)_""^""_$P(^(0),""^"") S DGAP=Y"
^XMB(3.9,5,2,929,0)="""RTN"",""DGPMV10"",80,0)"
^XMB(3.9,5,2,930,0)=" I 'DGTS,$D(^DIC(45.7,+$P(DGX,""^"",9),0)) S DGTS=$P(DGX,""^"",9)_""^""_$P(^(0),""^"")"
^XMB(3.9,5,2,931,0)="""RTN"",""DGPMV10"",81,0)"
^XMB(3.9,5,2,932,0)=" Q"
^XMB(3.9,5,2,933,0)="""RTN"",""DGPMV10"",82,0)"
^XMB(3.9,5,2,934,0)="GETWD ;get the from ward if last mvt is discharge or check-out"
^XMB(3.9,5,2,935,0)="""RTN"",""DGPMV10"",83,0)"
^XMB(3.9,5,2,936,0)=" I DGPMVI(2)=5 S J=DGPMVI(13) D SETWD Q"
^XMB(3.9,5,2,937,0)="""RTN"",""DGPMV10"",84,0)"
^XMB(3.9,5,2,938,0)=" F I=0:0 S I=$O(^DGPM(""APMV"",DFN,DGPMVI(13),I)) Q:'I!+DGPMVI(5)  F J=0:0 S J=$O(^DGPM(""APMV"",DFN,DGPMVI(13),I,J)) Q:'J  D SETWD Q:+DGPMVI(5)"
^XMB(3.9,5,2,939,0)="""RTN"",""DGPMV10"",85,0)"
^XMB(3.9,5,2,940,0)=" Q"
^XMB(3.9,5,2,941,0)="""RTN"",""DGPMV10"",86,0)"
^XMB(3.9,5,2,942,0)=" ;"
^XMB(3.9,5,2,943,0)="""RTN"",""DGPMV10"",87,0)"
^XMB(3.9,5,2,944,0)="SETWD ;set ward and room-bed variables for discharge/check-out mvts"
^XMB(3.9,5,2,945,0)="""RTN"",""DGPMV10"",88,0)"
^XMB(3.9,5,2,946,0)=" S X=$G(^DGPM(J,0))"
^XMB(3.9,5,2,947,0)="""RTN"",""DGPMV10"",89,0)"
^XMB(3.9,5,2,948,0)=" I $D(^DIC(42,+$P(X,""^"",6),0)) S DGPMVI(5)=$P(X,""^"",6)_""^""_$P(^(0),""^"",1)"
^XMB(3.9,5,2,949,0)="""RTN"",""DGPMV10"",90,0)"
^XMB(3.9,5,2,950,0)=" I $D(^DG(405.4,+$P(X,""^"",7),0)) S DGPMVI(6)=$P(X,""^"",7)_""^""_$P(^(0),""^"",1)"
^XMB(3.9,5,2,951,0)="""RTN"",""DGPMV10"",91,0)"
^XMB(3.9,5,2,952,0)=" Q"
^XMB(3.9,5,2,953,0)="""RTN"",""DGPTAE02"")"
^XMB(3.9,5,2,954,0)="0^1^B19447484^B19921067"
^XMB(3.9,5,2,955,0)="""RTN"",""DGPTAE02"",1,0)"
^XMB(3.9,5,2,956,0)="DGPTAE02        ;ALB/MTC - 701 Edit Checks ;11/01/2005"
^XMB(3.9,5,2,957,0)="""RTN"",""DGPTAE02"",2,0)"
^XMB(3.9,5,2,958,0)=" ;;5.3;Registration;**8,22,39,114,176,251,247,270,446,418,482,466,683**;Aug 13, 1993"
^XMB(3.9,5,2,959,0)="""RTN"",""DGPTAE02"",3,0)"
^XMB(3.9,5,2,960,0)=" ;10/06/1999 ACS - Added Place of Disposition codes M,Y,Z to the"
^XMB(3.9,5,2,961,0)="""RTN"",""DGPTAE02"",4,0)"
^XMB(3.9,5,2,962,0)=" ;validity checks"
^XMB(3.9,5,2,963,0)="""RTN"",""DGPTAE02"",5,0)"
^XMB(3.9,5,2,964,0)=" ;5/15/2000 ACS - Added Treating Specialty 37 as a valid code"
^XMB(3.9,5,2,965,0)="""RTN"",""DGPTAE02"",6,0)"
^XMB(3.9,5,2,966,0)=" ;5/16/2000 MM  - Added Treating Specialties 38 & 39 as valid codes"
^XMB(3.9,5,2,967,0)="""RTN"",""DGPTAE02"",7,0)"
^XMB(3.9,5,2,968,0)=" ;5/26/2000 JRP - Place of Disposition code M valid for station"
^XMB(3.9,5,2,969,0)="""RTN"",""DGPTAE02"",8,0)"
^XMB(3.9,5,2,970,0)=" ;                types 10, 11, 30, and 40"
^XMB(3.9,5,2,971,0)="""RTN"",""DGPTAE02"",9,0)"
^XMB(3.9,5,2,972,0)=" ;"
^XMB(3.9,5,2,973,0)="""RTN"",""DGPTAE02"",10,0)"
^XMB(3.9,5,2,974,0)="CHECK ;"
^XMB(3.9,5,2,975,0)="""RTN"",""DGPTAE02"",11,0)"
^XMB(3.9,5,2,976,0)=" I (DGPTSP1'?1N)!(DGPTSP2'?1N) S DGPTERC=1 Q"
^XMB(3.9,5,2,977,0)="""RTN"",""DGPTAE02"",12,0)"
^XMB(3.9,5,2,978,0)=" I DGPTSP1=""0""&((DGPTSP2'?1N)!(DGPTSP2=""0"")) S DGPTERC=1 G EXIT"
^XMB(3.9,5,2,979,0)="""RTN"",""DGPTAE02"",13,0)"
^XMB(3.9,5,2,980,0)=" ; No zero or double zeroes allowed"
^XMB(3.9,5,2,981,0)="""RTN"",""DGPTAE02"",14,0)"
^XMB(3.9,5,2,982,0)=" I DGPTSP1=1&(DGPTSP2=3) S DGPTERC=1 G EXIT"
^XMB(3.9,5,2,983,0)="""RTN"",""DGPTAE02"",15,0)"
^XMB(3.9,5,2,984,0)=" ; No codes 13"
^XMB(3.9,5,2,985,0)="""RTN"",""DGPTAE02"",16,0)"
^XMB(3.9,5,2,986,0)=" ;I DGPTSP1=3&((DGPTSP2=""0"")!(DGPTSP2>6)) S DGPTERC=1 G EXIT"
^XMB(3.9,5,2,987,0)="""RTN"",""DGPTAE02"",17,0)"
^XMB(3.9,5,2,988,0)=" I DGPTSP1=3&((DGPTSP2=""0"")) S DGPTERC=1 G EXIT"
^XMB(3.9,5,2,989,0)="""RTN"",""DGPTAE02"",18,0)"
^XMB(3.9,5,2,990,0)=" ; No codes 30"
^XMB(3.9,5,2,991,0)="""RTN"",""DGPTAE02"",19,0)"
^XMB(3.9,5,2,992,0)=" I DGPTSP1=4&(DGPTSP2>7) S DGPTERC=1 G EXIT"
^XMB(3.9,5,2,993,0)="""RTN"",""DGPTAE02"",20,0)"
^XMB(3.9,5,2,994,0)=" ; No codes 48-49"
^XMB(3.9,5,2,995,0)="""RTN"",""DGPTAE02"",21,0)"
^XMB(3.9,5,2,996,0)=" I DGPTSP1=5 G EXIT"
^XMB(3.9,5,2,997,0)="""RTN"",""DGPTAE02"",22,0)"
^XMB(3.9,5,2,998,0)=" ; All codes 50-59 allowable"
^XMB(3.9,5,2,999,0)="""RTN"",""DGPTAE02"",23,0)"
^XMB(3.9,5,2,1000,0)=" I DGPTSP1=7&(DGPTSP2=8) S DGPTERC=1 G EXIT"
^XMB(3.9,5,2,1001,0)="""RTN"",""DGPTAE02"",24,0)"
^XMB(3.9,5,2,1002,0)=" ; No code 78"
^XMB(3.9,5,2,1003,0)="""RTN"",""DGPTAE02"",25,0)"
^XMB(3.9,5,2,1004,0)=" I DGPTSP1=8&(DGPTSP2=2) S DGPTERC=1 G EXIT"
^XMB(3.9,5,2,1005,0)="""RTN"",""DGPTAE02"",26,0)"
^XMB(3.9,5,2,1006,0)=" ; No code 82"
^XMB(3.9,5,2,1007,0)="""RTN"",""DGPTAE02"",27,0)"
^XMB(3.9,5,2,1008,0)=" I DGPTSP1=9&(DGPTSP2=7) S DGPTERC=1 G EXIT"
^XMB(3.9,5,2,1009,0)="""RTN"",""DGPTAE02"",28,0)"
^XMB(3.9,5,2,1010,0)=" ; No code 97;"
^XMB(3.9,5,2,1011,0)="""RTN"",""DGPTAE02"",29,0)"
^XMB(3.9,5,2,1012,0)=" ; New code 95:p-418"
^XMB(3.9,5,2,1013,0)="""RTN"",""DGPTAE02"",30,0)"
^XMB(3.9,5,2,1014,0)=" ; New code 96;p-446"
^XMB(3.9,5,2,1015,0)="""RTN"",""DGPTAE02"",31,0)"
^XMB(3.9,5,2,1016,0)="EXIT ;"
^XMB(3.9,5,2,1017,0)="""RTN"",""DGPTAE02"",32,0)"
^XMB(3.9,5,2,1018,0)=" K DGPTSP1,DGPTSP2"
^XMB(3.9,5,2,1019,0)="""RTN"",""DGPTAE02"",33,0)"
^XMB(3.9,5,2,1020,0)=" Q"
^XMB(3.9,5,2,1021,0)="""RTN"",""DGPTAE02"",34,0)"
^XMB(3.9,5,2,1022,0)=" ;"
^XMB(3.9,5,2,1023,0)="""RTN"",""DGPTAE02"",35,0)"
^XMB(3.9,5,2,1024,0)="DISPTY ;"
^XMB(3.9,5,2,1025,0)="""RTN"",""DGPTAE02"",36,0)"
^XMB(3.9,5,2,1026,0)=" N I"
^XMB(3.9,5,2,1027,0)="""RTN"",""DGPTAE02"",37,0)"
^XMB(3.9,5,2,1028,0)=" S DGPTERC=0"
^XMB(3.9,5,2,1029,0)="""RTN"",""DGPTAE02"",38,0)"
^XMB(3.9,5,2,1030,0)=" Q:""1""[DGPTDTY"
^XMB(3.9,5,2,1031,0)="""RTN"",""DGPTAE02"",39,0)"
^XMB(3.9,5,2,1032,0)=" I DGPTDTY=2 S DGPTERC=707 F I=10,11,30,40,42 I DGPTSTTY[""^""_I_""^"" S DGPTERC=0 Q"
^XMB(3.9,5,2,1033,0)="""RTN"",""DGPTAE02"",40,0)"
^XMB(3.9,5,2,1034,0)=" I DGPTERC Q"
^XMB(3.9,5,2,1035,0)="""RTN"",""DGPTAE02"",41,0)"
^XMB(3.9,5,2,1036,0)=" ;"
^XMB(3.9,5,2,1037,0)="""RTN"",""DGPTAE02"",42,0)"
^XMB(3.9,5,2,1038,0)=" ;-- if dis type = To Non-Bed Care then VA aus and Out pat = no"
^XMB(3.9,5,2,1039,0)="""RTN"",""DGPTAE02"",43,0)"
^XMB(3.9,5,2,1040,0)=" ;I DGPTDTY=2,((DGPTDVA'=2)!(DGPTDOP'=3)) S DGPTERC=707 Q"
^XMB(3.9,5,2,1041,0)="""RTN"",""DGPTAE02"",44,0)"
^XMB(3.9,5,2,1042,0)=" ;"
^XMB(3.9,5,2,1043,0)="""RTN"",""DGPTAE02"",45,0)"
^XMB(3.9,5,2,1044,0)=" I DGPTDTY=3&(DGPTSTTY'[""^42^"") S DGPTERC=707 Q"
^XMB(3.9,5,2,1045,0)="""RTN"",""DGPTAE02"",46,0)"
^XMB(3.9,5,2,1046,0)=" ;-- if dis type = Transfer then Out pat cannot be yes"
^XMB(3.9,5,2,1047,0)="""RTN"",""DGPTAE02"",47,0)"
^XMB(3.9,5,2,1048,0)=" I DGPTDTY=5,DGPTDOP=1 S DGPTERC=707"
^XMB(3.9,5,2,1049,0)="""RTN"",""DGPTAE02"",48,0)"
^XMB(3.9,5,2,1050,0)=" ;-- if dis type = Transfer then Out pat cannot be yes, rec sta'="""""
^XMB(3.9,5,2,1051,0)="""RTN"",""DGPTAE02"",49,0)"
^XMB(3.9,5,2,1052,0)=" I DGPTDTY=5,DGPTDOP'=1,'DGPTDRF S DGPTERC=711 Q"
^XMB(3.9,5,2,1053,0)="""RTN"",""DGPTAE02"",50,0)"
^XMB(3.9,5,2,1054,0)=" ;-- if dis type irr, death w/aotopsy then va asp, op care, pod = """""
^XMB(3.9,5,2,1055,0)="""RTN"",""DGPTAE02"",51,0)"
^XMB(3.9,5,2,1056,0)=" I ""467""[DGPTDTY,(DGPTDOP!DGPTDVA!DGPTDPD) S DGPTERC=707 Q"
^XMB(3.9,5,2,1057,0)="""RTN"",""DGPTAE02"",52,0)"
^XMB(3.9,5,2,1058,0)=" Q"
^XMB(3.9,5,2,1059,0)="""RTN"",""DGPTAE02"",53,0)"
^XMB(3.9,5,2,1060,0)="OP ;"
^XMB(3.9,5,2,1061,0)="""RTN"",""DGPTAE02"",54,0)"
^XMB(3.9,5,2,1062,0)=" Q:""13""'[DGPTDOP"
^XMB(3.9,5,2,1063,0)="""RTN"",""DGPTAE02"",55,0)"
^XMB(3.9,5,2,1064,0)=" S DGPTERC=708 F I=10,11,40,42 I DGPTSTTY[""^""_I_""^"" S DGPTERC=0 Q"
^XMB(3.9,5,2,1065,0)="""RTN"",""DGPTAE02"",56,0)"
^XMB(3.9,5,2,1066,0)=" Q"
^XMB(3.9,5,2,1067,0)="""RTN"",""DGPTAE02"",57,0)"
^XMB(3.9,5,2,1068,0)="POD ;"
^XMB(3.9,5,2,1069,0)="""RTN"",""DGPTAE02"",58,0)"
^XMB(3.9,5,2,1070,0)=" N I"
^XMB(3.9,5,2,1071,0)="""RTN"",""DGPTAE02"",59,0)"
^XMB(3.9,5,2,1072,0)=" Q:""X012347BCDFGHJKL ""[DGPTDPD"
^XMB(3.9,5,2,1073,0)="""RTN"",""DGPTAE02"",60,0)"
^XMB(3.9,5,2,1074,0)=" ; if POD NHCU then Out=no VA aus=yes"
^XMB(3.9,5,2,1075,0)="""RTN"",""DGPTAE02"",61,0)"
^XMB(3.9,5,2,1076,0)=" I DGPTDPD=5,((DGPTDOP'=3)!(DGPTDVA'=1)) S DGPTERC=710 Q"
^XMB(3.9,5,2,1077,0)="""RTN"",""DGPTAE02"",62,0)"
^XMB(3.9,5,2,1078,0)=" ; if POD NHCU then Out=no VA aus=yes, rec station'="""""
^XMB(3.9,5,2,1079,0)="""RTN"",""DGPTAE02"",63,0)"
^XMB(3.9,5,2,1080,0)=" I DGPTDPD=5,DGPTDOP=3,DGPTDVA=1,'DGPTDRF S DGPTERC=711 Q"
^XMB(3.9,5,2,1081,0)="""RTN"",""DGPTAE02"",64,0)"
^XMB(3.9,5,2,1082,0)=" I ""PR""[DGPTDPD,((DGPTSTTY'[""^10^"")!(DGPTSTTY'[""^11^"")) S DGPTERC=710 Q"
^XMB(3.9,5,2,1083,0)="""RTN"",""DGPTAE02"",65,0)"
^XMB(3.9,5,2,1084,0)=" I DGPTDPD=""M"" S DGPTERC=710 F I=10,11,30,40 I DGPTSTTY[""^""_I_""^"" S DGPTERC=0 Q"
^XMB(3.9,5,2,1085,0)="""RTN"",""DGPTAE02"",66,0)"
^XMB(3.9,5,2,1086,0)=" I DGPTDPD=""T"" S DGPTERC=710 F I=10,11,40 I DGPTSTTY[""^""_I_""^"" S DGPTERC=0 Q"
^XMB(3.9,5,2,1087,0)="""RTN"",""DGPTAE02"",67,0)"
^XMB(3.9,5,2,1088,0)=" I ""UYZ""[DGPTDPD S DGPTERC=710 F I=10,11,20:1:27,30,40:1:42 I DGPTSTTY[""^""_I_""^"" S DGPTERC=0 Q"
^XMB(3.9,5,2,1089,0)="""RTN"",""DGPTAE02"",68,0)"
^XMB(3.9,5,2,1090,0)=" Q"
^XMB(3.9,5,2,1091,0)="""RTN"",""DGPTAE02"",69,0)"
^XMB(3.9,5,2,1092,0)="LEAVE ;"
^XMB(3.9,5,2,1093,0)="""RTN"",""DGPTAE02"",70,0)"
^XMB(3.9,5,2,1094,0)=" S DGPTLVDY=0"
^XMB(3.9,5,2,1095,0)="""RTN"",""DGPTAE02"",71,0)"
^XMB(3.9,5,2,1096,0)=" S DGPTL3=0 F  S DGPTL3=$O(^TMP(""AEDIT"",$J,""N501"",DGPTL3)) Q:DGPTL3=""""  S DGPTLVDY=DGPTLVDY+$E(^TMP(""AEDIT"",$J,""N501"",DGPTL3),49,51)+$E(^TMP(""AEDIT"",$J,""N501"",DGPTL3),52,54)"
^XMB(3.9,5,2,1097,0)="""RTN"",""DGPTAE02"",72,0)"
^XMB(3.9,5,2,1098,0)=" I (DGPTLVDY+DGPTDAS)>DGPTELP S DGPTERC=745"
^XMB(3.9,5,2,1099,0)="""RTN"",""DGPTAE02"",73,0)"
^XMB(3.9,5,2,1100,0)=" K DGPTL3,DGPTLVDY"
^XMB(3.9,5,2,1101,0)="""RTN"",""DGPTAE02"",74,0)"
^XMB(3.9,5,2,1102,0)=" Q"
^XMB(3.9,5,2,1103,0)="""RTN"",""DGPTAE02"",75,0)"
^XMB(3.9,5,2,1104,0)=" ;"
^XMB(3.9,5,2,1105,0)="""RTN"",""DGPTAE02"",76,0)"
^XMB(3.9,5,2,1106,0)="CANDP ;"
^XMB(3.9,5,2,1107,0)="""RTN"",""DGPTAE02"",77,0)"
^XMB(3.9,5,2,1108,0)=" I ""12345678""'[DGPTDCP S DGPTERC=714 Q"
^XMB(3.9,5,2,1109,0)="""RTN"",""DGPTAE02"",78,0)"
^XMB(3.9,5,2,1110,0)=" ;-- if no POS then no edit"
^XMB(3.9,5,2,1111,0)="""RTN"",""DGPTAE02"",79,0)"
^XMB(3.9,5,2,1112,0)=" Q:DGPTPOS2=9"
^XMB(3.9,5,2,1113,0)="""RTN"",""DGPTAE02"",80,0)"
^XMB(3.9,5,2,1114,0)=" ;-- if WWI then no edit"
^XMB(3.9,5,2,1115,0)="""RTN"",""DGPTAE02"",81,0)"
^XMB(3.9,5,2,1116,0)=" Q:DGPTPOS2=1"
^XMB(3.9,5,2,1117,0)="""RTN"",""DGPTAE02"",82,0)"
^XMB(3.9,5,2,1118,0)=" ;-- if POW then no edit"
^XMB(3.9,5,2,1119,0)="""RTN"",""DGPTAE02"",83,0)"
^XMB(3.9,5,2,1120,0)=" I $L(DGPTPOW)=1,(""23456789AB""[DGPTPOW) Q"
^XMB(3.9,5,2,1121,0)="""RTN"",""DGPTAE02"",84,0)"
^XMB(3.9,5,2,1122,0)=" D CONSIS Q:DGPTERC"
^XMB(3.9,5,2,1123,0)="""RTN"",""DGPTAE02"",85,0)"
^XMB(3.9,5,2,1124,0)=" D STATYP Q:DGPTERC"
^XMB(3.9,5,2,1125,0)="""RTN"",""DGPTAE02"",86,0)"
^XMB(3.9,5,2,1126,0)=" D CPMT Q:DGPTERC"
^XMB(3.9,5,2,1127,0)="""RTN"",""DGPTAE02"",87,0)"
^XMB(3.9,5,2,1128,0)=" Q"
^XMB(3.9,5,2,1129,0)="""RTN"",""DGPTAE02"",88,0)"
^XMB(3.9,5,2,1130,0)="CONSIS ;"
^XMB(3.9,5,2,1131,0)="""RTN"",""DGPTAE02"",89,0)"
^XMB(3.9,5,2,1132,0)=" I (""01234578X""[DGPTPOS2)&(""1234567""'[DGPTDCP) S DGPTERC=736 Q"
^XMB(3.9,5,2,1133,0)="""RTN"",""DGPTAE02"",90,0)"
^XMB(3.9,5,2,1134,0)=" I (""ABCD""[DGPTPOS2) Q"
^XMB(3.9,5,2,1135,0)="""RTN"",""DGPTAE02"",91,0)"
^XMB(3.9,5,2,1136,0)=" I DGPTPOS2=""Z""&(""1234567""'[DGPTDCP) S DGPTERC=736 Q"
^XMB(3.9,5,2,1137,0)="""RTN"",""DGPTAE02"",92,0)"
^XMB(3.9,5,2,1138,0)=" Q:""012345678ABCDXZ""[DGPTPOS2"
^XMB(3.9,5,2,1139,0)="""RTN"",""DGPTAE02"",93,0)"
^XMB(3.9,5,2,1140,0)=" S:DGPTDCP'=8 DGPTERC=736"
^XMB(3.9,5,2,1141,0)="""RTN"",""DGPTAE02"",94,0)"
^XMB(3.9,5,2,1142,0)=" Q"
^XMB(3.9,5,2,1143,0)="""RTN"",""DGPTAE02"",95,0)"
^XMB(3.9,5,2,1144,0)="STATYP ;"
^XMB(3.9,5,2,1145,0)="""RTN"",""DGPTAE02"",96,0)"
^XMB(3.9,5,2,1146,0)=" Q:(DGPTSTTY[""^30^"")!(DGPTSTTY=""^"")!(DGPTSTTY="""")"
^XMB(3.9,5,2,1147,0)="""RTN"",""DGPTAE02"",97,0)"
^XMB(3.9,5,2,1148,0)=" ;Note: There is not sufficient information contained in the"
^XMB(3.9,5,2,1149,0)="""RTN"",""DGPTAE02"",98,0)"
^XMB(3.9,5,2,1150,0)=" ;station type to adequately perform the error check of Means Test"
^XMB(3.9,5,2,1151,0)="""RTN"",""DGPTAE02"",99,0)"
^XMB(3.9,5,2,1152,0)=" ;indicator vs admissions date.  This issue should be revisited in 5.4."
^XMB(3.9,5,2,1153,0)="""RTN"",""DGPTAE02"",100,0)"
^XMB(3.9,5,2,1154,0)=" ;For now, error code 143 (previously set as 744) will not be checked"
^XMB(3.9,5,2,1155,0)="""RTN"",""DGPTAE02"",101,0)"
^XMB(3.9,5,2,1156,0)=" ;in order to be sure that an error is not erroneously generated."
^XMB(3.9,5,2,1157,0)="""RTN"",""DGPTAE02"",102,0)"
^XMB(3.9,5,2,1158,0)=" Q"
^XMB(3.9,5,2,1159,0)="""RTN"",""DGPTAE02"",103,0)"
^XMB(3.9,5,2,1160,0)="MT ;"
^XMB(3.9,5,2,1161,0)="""RTN"",""DGPTAE02"",104,0)"
^XMB(3.9,5,2,1162,0)=" I DGPTMTC=""X ""&((+DGPTDTS)'<2860701) S DGPTERC=143 Q"
^XMB(3.9,5,2,1163,0)="""RTN"",""DGPTAE02"",105,0)"
^XMB(3.9,5,2,1164,0)=" Q:DGPTMTC=""X """
^XMB(3.9,5,2,1165,0)="""RTN"",""DGPTAE02"",106,0)"
^XMB(3.9,5,2,1166,0)=" I DGPTDTS<2860701 S DGPTERC=143 Q"
^XMB(3.9,5,2,1167,0)="""RTN"",""DGPTAE02"",107,0)"
^XMB(3.9,5,2,1168,0)=" Q"
^XMB(3.9,5,2,1169,0)="""RTN"",""DGPTAE02"",108,0)"
^XMB(3.9,5,2,1170,0)=" ;"
^XMB(3.9,5,2,1171,0)="""RTN"",""DGPTAE02"",109,0)"
^XMB(3.9,5,2,1172,0)="CPMT ;-- mt and c&p checks"
^XMB(3.9,5,2,1173,0)="""RTN"",""DGPTAE02"",110,0)"
^XMB(3.9,5,2,1174,0)=" I DGPTMTC=""N "",DGPTDCP'=8 S DGPTERC=753 Q"
^XMB(3.9,5,2,1175,0)="""RTN"",""DGPTAE02"",111,0)"
^XMB(3.9,5,2,1176,0)=" I DGPTMTC=""AN"",""24567""'[DGPTDCP S DGPTERC=753 Q"
^XMB(3.9,5,2,1177,0)="""RTN"",""DGPTAE02"",112,0)"
^XMB(3.9,5,2,1178,0)=" I ((DGPTMTC=""B "")!(DGPTMTC=""C "")!(DGPTMTC=""G "")),""2467""'[DGPTDCP S DGPTERC=753 Q"
^XMB(3.9,5,2,1179,0)="""RTN"",""DGPTAE02"",113,0)"
^XMB(3.9,5,2,1180,0)=" I DGPTMTC=""AS"",""1234567""'[DGPTDCP S DGPTERC=753 Q"
^XMB(3.9,5,2,1181,0)="""RTN"",""DGPTAE02"",114,0)"
^XMB(3.9,5,2,1182,0)=" Q"
^XMB(3.9,5,2,1183,0)="""RTN"",""DGPTAE02"",115,0)"
^XMB(3.9,5,2,1184,0)="LEG ;"
^XMB(3.9,5,2,1185,0)="""RTN"",""DGPTAE02"",116,0)"
^XMB(3.9,5,2,1186,0)=" ;I DGPTDDXE=482.8&(""12""'[DGPT70LG) S DGPTERC=731 Q"
^XMB(3.9,5,2,1187,0)="""RTN"",""DGPTAE02"",117,0)"
^XMB(3.9,5,2,1188,0)=" Q"
^XMB(3.9,5,2,1189,0)="""RTN"",""DGPTAE02"",118,0)"
^XMB(3.9,5,2,1190,0)="SUI ;"
^XMB(3.9,5,2,1191,0)="""RTN"",""DGPTAE02"",119,0)"
^XMB(3.9,5,2,1192,0)=" I ($E(DGPTDDXE,1,3)=""E95"")&(""12345678""[$E(DGPTDDXE,4))&(""12""'[DGPT70SU) S DGPTERC=732 Q"
^XMB(3.9,5,2,1193,0)="""RTN"",""DGPTAE02"",120,0)"
^XMB(3.9,5,2,1194,0)=" Q"
^XMB(3.9,5,2,1195,0)="""RTN"",""DGPTAE02"",121,0)"
^XMB(3.9,5,2,1196,0)="DRUG ;"
^XMB(3.9,5,2,1197,0)="""RTN"",""DGPTAE02"",122,0)"
^XMB(3.9,5,2,1198,0)=" S DGPTMSX=0"
^XMB(3.9,5,2,1199,0)="""RTN"",""DGPTAE02"",123,0)"
^XMB(3.9,5,2,1200,0)=" I ($E(DGPTDDXE,1,4)=""304."")&(""013456""[$E(DGPTDDXE,5))&(""0123""[$E(DGPTDDXE,6)) S DGPTMSX=1"
^XMB(3.9,5,2,1201,0)="""RTN"",""DGPTAE02"",124,0)"
^XMB(3.9,5,2,1202,0)=" I ($E(DGPTDDXE,1,4)=""305."")&(""234579""[$E(DGPTDDXE,5))&(""0123""[$E(DGPTDDXE,6)) S DGPTMSX=1"
^XMB(3.9,5,2,1203,0)="""RTN"",""DGPTAE02"",125,0)"
^XMB(3.9,5,2,1204,0)=" Q:'DGPTMSX"
^XMB(3.9,5,2,1205,0)="""RTN"",""DGPTAE02"",126,0)"
^XMB(3.9,5,2,1206,0)=" I $E(DGPT70DR,1)'=""A""!($E(DGPT70DR,2,4)<1)!(+$E(DGPT70DR>16)) S DGPTERC=733"
^XMB(3.9,5,2,1207,0)="""RTN"",""DGPTAE02"",127,0)"
^XMB(3.9,5,2,1208,0)=" S DGPTMSX=0 Q"
^XMB(3.9,5,2,1209,0)="""RTN"",""DGPTAE02"",128,0)"
^XMB(3.9,5,2,1210,0)="AXIV ;"
^XMB(3.9,5,2,1211,0)="""RTN"",""DGPTAE02"",129,0)"
^XMB(3.9,5,2,1212,0)=" I $E(DGPTDDXE,1,3)>295,$E(DGPTDDXE,1,3)<320,""0123456""'[DGPT70X4 S DGPTERC=734"
^XMB(3.9,5,2,1213,0)="""RTN"",""DGPTAE02"",130,0)"
^XMB(3.9,5,2,1214,0)=" Q"
^XMB(3.9,5,2,1215,0)="""RTN"",""DGPTAE02"",131,0)"
^XMB(3.9,5,2,1216,0)="AXV1 ;"
^XMB(3.9,5,2,1217,0)="""RTN"",""DGPTAE02"",132,0)"
^XMB(3.9,5,2,1218,0)=" I (DGPTDXV1<0)!(DGPTDXV1>90) S DGPTERC=735 Q"
^XMB(3.9,5,2,1219,0)="""RTN"",""DGPTAE02"",133,0)"
^XMB(3.9,5,2,1220,0)=" Q"
^XMB(3.9,5,2,1221,0)="""RTN"",""DGPTAE02"",134,0)"
^XMB(3.9,5,2,1222,0)="AXV2 ;"
^XMB(3.9,5,2,1223,0)="""RTN"",""DGPTAE02"",135,0)"
^XMB(3.9,5,2,1224,0)=" Q:DGPTDXV2=""  """
^XMB(3.9,5,2,1225,0)="""RTN"",""DGPTAE02"",136,0)"
^XMB(3.9,5,2,1226,0)=" I (DGPTDXV2<0)!(DGPTDXV2>90) S DGPTERC=735 Q"
^XMB(3.9,5,2,1227,0)="""RTN"",""DGPTAE02"",137,0)"
^XMB(3.9,5,2,1228,0)=" Q"
^XMB(3.9,5,2,1229,0)="""RTN"",""DGPTF4"")"
^XMB(3.9,5,2,1230,0)="0^5^B22914415^B23088100"
^XMB(3.9,5,2,1231,0)="""RTN"",""DGPTF4"",1,0)"
^XMB(3.9,5,2,1232,0)="DGPTF4 ;ALB/JDS - PTF ENTRY/EDIT-4 ; 2/19/04 9:33am"
^XMB(3.9,5,2,1233,0)="""RTN"",""DGPTF4"",2,0)"
^XMB(3.9,5,2,1234,0)=" ;;5.3;Registration;**114,115,397,510,517,478,683**;Aug 13, 1993"
^XMB(3.9,5,2,1235,0)="""RTN"",""DGPTF4"",3,0)"
^XMB(3.9,5,2,1236,0)=" ;"
^XMB(3.9,5,2,1237,0)="""RTN"",""DGPTF4"",4,0)"
^XMB(3.9,5,2,1238,0)="WR ;"
^XMB(3.9,5,2,1239,0)="""RTN"",""DGPTF4"",5,0)"
^XMB(3.9,5,2,1240,0)=" W @IOF,HEAD,?72 S Z=""<701>"" D Z^DGPTFM K X S $P(X,""-"",81)="""" W !,X"
^XMB(3.9,5,2,1241,0)="""RTN"",""DGPTF4"",6,0)"
^XMB(3.9,5,2,1242,0)=" Q"
^XMB(3.9,5,2,1243,0)="""RTN"",""DGPTF4"",7,0)"
^XMB(3.9,5,2,1244,0)="EN S Y=+B(70) D D^DGPTUTL W ! S Z=5 D Z W $S($P(B(0),U,11)=1:""Date of Disch: "",1:""Census Date  : "") S Z=Y,Z1=20 D Z1 W ""Disch Specialty: "",$S($D(^DIC(42.4,+$P(B(70),U,2),0)):$E($P(^(0),U,1),1,25),1:"""")"
^XMB(3.9,5,2,1245,0)="""RTN"",""DGPTF4"",8,0)"
^XMB(3.9,5,2,1246,0)=" W !,""   Type of Disch: "" S L="";""_$P(^DD(45,72,0),U,3),L1="";""_$P(B(70),U,3)_"":"" W $P($P(L,L1,2),"";"",1),?41 S L="";""_$P(^DD(45,72.1,0),U,3),L1="";""_$P(B(70),U,14)_"":"" W ""Disch Status: "",$P($P(L,L1,2),"";"",1)"
^XMB(3.9,5,2,1247,0)="""RTN"",""DGPTF4"",9,0)"
^XMB(3.9,5,2,1248,0)=" W !,""   Place of Disp: "",$S($D(^DIC(45.6,+$P(B(70),U,6),0)):$E($P(^(0),U,1),1,21),1:"""")"
^XMB(3.9,5,2,1249,0)="""RTN"",""DGPTF4"",10,0)"
^XMB(3.9,5,2,1250,0)=" W ?40 S Z=6 D Z W "" Out Treat: "",$P(""YES^^NO"",U,+$P(B(70),U,4))"
^XMB(3.9,5,2,1251,0)="""RTN"",""DGPTF4"",11,0)"
^XMB(3.9,5,2,1252,0)=" W !?6,""Means Test: "" S L="";""_$P(^DD(45,10,0),U,3),L1="";""_$P(B(0),U,10)_"":"" W $P($P(L,L1,2),"";"",1)"
^XMB(3.9,5,2,1253,0)="""RTN"",""DGPTF4"",12,0)"
^XMB(3.9,5,2,1254,0)=" W ?42,""VA Auspices: "",$S($P(B(70),U,5)=1:""YES"",$P(B(70),U,5)=2:""NO"",1:"""")"
^XMB(3.9,5,2,1255,0)="""RTN"",""DGPTF4"",13,0)"
^XMB(3.9,5,2,1256,0)=" W ! S Z=7 D Z W "" Receiv facil: "" S Z=$P(B(70),U,12)_$P(B(70),U,13),Z1=18 D Z1 W ?38 S Z=""Other Fields"" D Z"
^XMB(3.9,5,2,1257,0)="""RTN"",""DGPTF4"",14,0)"
^XMB(3.9,5,2,1258,0)=" S DGINC=$P(B(101),U,7)"
^XMB(3.9,5,2,1259,0)="""RTN"",""DGPTF4"",15,0)"
^XMB(3.9,5,2,1260,0)=" I DGINC>1000 S DGINC=$E(DGINC,1,$L(DGINC)-3)_"",""_$E(DGINC,$L(DGINC)-2,$L(DGINC))"
^XMB(3.9,5,2,1261,0)="""RTN"",""DGPTF4"",16,0)"
^XMB(3.9,5,2,1262,0)=" W !,""      C&P Status: "" S L="";""_$P(^DD(45,78,0),U,3),L1="";""_$P(B(70),U,9)_"":"" W $E($P($P(L,L1,2),"";"",1),1,24),?47,""Income: $"",DGINC"
^XMB(3.9,5,2,1263,0)="""RTN"",""DGPTF4"",17,0)"
^XMB(3.9,5,2,1264,0)=" K DGINC"
^XMB(3.9,5,2,1265,0)="""RTN"",""DGPTF4"",18,0)"
^XMB(3.9,5,2,1266,0)="AS ;"
^XMB(3.9,5,2,1267,0)="""RTN"",""DGPTF4"",19,0)"
^XMB(3.9,5,2,1268,0)=" N DGRSC"
^XMB(3.9,5,2,1269,0)="""RTN"",""DGPTF4"",20,0)"
^XMB(3.9,5,2,1270,0)=" S DGRSC=$S($P(A(.3),U)=""Y"":$$RTEN^DGPTR4($P(A(.3),U,2)),1:"""")"
^XMB(3.9,5,2,1271,0)="""RTN"",""DGPTF4"",21,0)"
^XMB(3.9,5,2,1272,0)=" W !,""       ASIH Days: "",$P(B(70),U,8)"
^XMB(3.9,5,2,1273,0)="""RTN"",""DGPTF4"",22,0)"
^XMB(3.9,5,2,1274,0)=" W ?40,""SC Percentage: "",$S($P(A(.3),U)=""Y"":$P(A(.3),U,2)_""%"",1:"""")"
^XMB(3.9,5,2,1275,0)="""RTN"",""DGPTF4"",23,0)"
^XMB(3.9,5,2,1276,0)=" I DGRSC]"""",DGRSC'=$P(A(.3),U,2) W ?60,""Transmitted: [""_DGRSC_""%]"""
^XMB(3.9,5,2,1277,0)="""RTN"",""DGPTF4"",24,0)"
^XMB(3.9,5,2,1278,0)=" ;W !,?39,""Period Of Serv: "",$S($D(^DIC(21,$S('$D(^DGPM(+$O(^DGPM(""APTF"",PTF,0)),""ODS"")):+$P(A(.32),U,3),+^(""ODS""):+$O(^DIC(21,""D"",6,0)),1:+$P(A(.32),U,3)),0)):$E($P(^(0),U),1,26),1:""""),!"
^XMB(3.9,5,2,1279,0)="""RTN"",""DGPTF4"",25,0)"
^XMB(3.9,5,2,1280,0)=" W !,?39,""Period Of Serv: """
^XMB(3.9,5,2,1281,0)="""RTN"",""DGPTF4"",26,0)"
^XMB(3.9,5,2,1282,0)=" W $S($D(^DIC(21,$S('$D(^DGPM(+$O(^DGPM(""APTF"",PTF,0)),""ODS"")):+$$CKPOS^DGPTUTL($P(B(101),U,8),+$P(A(.32),U,3)),+^(""ODS""):+$O(^DIC(21,""D"",6,0)),1:$$CKPOS^DGPTUTL($P(B(101),U,8),+$P(A(.32),U,3))),0)):$E($P(^(0),U),1,26),1:""""),!"
^XMB(3.9,5,2,1283,0)="""RTN"",""DGPTF4"",27,0)"
^XMB(3.9,5,2,1284,0)=" Q"
^XMB(3.9,5,2,1285,0)="""RTN"",""DGPTF4"",28,0)"
^XMB(3.9,5,2,1286,0)=" ;"
^XMB(3.9,5,2,1287,0)="""RTN"",""DGPTF4"",29,0)"
^XMB(3.9,5,2,1288,0)="EN1 ;LOAD AND DISPLAY DIAGNOSES FOR PTF 701 SCREEN"
^XMB(3.9,5,2,1289,0)="""RTN"",""DGPTF4"",30,0)"
^XMB(3.9,5,2,1290,0)=" K DRG S B(70)=$S($D(^DGPT(PTF,70)):^(70),1:""""),B(71)=$S($D(^DGPT(PTF,71)):^(71),1:"""") D WR"
^XMB(3.9,5,2,1291,0)="""RTN"",""DGPTF4"",31,0)"
^XMB(3.9,5,2,1292,0)=" S DGPTDAT=$$GETDATE^ICDGTDRG(PTF) ;Get correct effective date"
^XMB(3.9,5,2,1293,0)="""RTN"",""DGPTF4"",32,0)"
^XMB(3.9,5,2,1294,0)=" S DGPTTMP=$$ICDDX^ICDCODE(+$P(B(70),U,10),DGPTDAT)"
^XMB(3.9,5,2,1295,0)="""RTN"",""DGPTF4"",33,0)"
^XMB(3.9,5,2,1296,0)=" W ! S Z=1 D Z W ""  Principal Diagnosis: "",$S(DGPTTMP&$P(DGPTTMP,U,10):$P(DGPTTMP,U,4)_""(""_$P(DGPTTMP,U,2)_"")"",1:"""")"
^XMB(3.9,5,2,1297,0)="""RTN"",""DGPTF4"",34,0)"
^XMB(3.9,5,2,1298,0)=" S DGPTTMP=$$ICDDX^ICDCODE(+$P(B(70),U,11),DGPTDAT)"
^XMB(3.9,5,2,1299,0)="""RTN"",""DGPTF4"",35,0)"
^XMB(3.9,5,2,1300,0)=" W:$P(B(70),U,11)&('$P(B(70),U,10)) !,""  Principal Diag: "",$S(DGPTTMP&$P(DGPTTMP,U,10):$P(DGPTTMP,U,4)_"" (""_$P(DGPTTMP,U,2)_"")"",1:"""")"
^XMB(3.9,5,2,1301,0)="""RTN"",""DGPTF4"",36,0)"
^XMB(3.9,5,2,1302,0)=" S K=B(70) F I=16:1:24 D DSP"
^XMB(3.9,5,2,1303,0)="""RTN"",""DGPTF4"",37,0)"
^XMB(3.9,5,2,1304,0)=" S K=B(71) F I=1:1:4 D DSP"
^XMB(3.9,5,2,1305,0)="""RTN"",""DGPTF4"",38,0)"
^XMB(3.9,5,2,1306,0)=" S DGPTF=PTF D:'DGST CHK701^DGPTSCAN,UP701^DGPTSPQ"
^XMB(3.9,5,2,1307,0)="""RTN"",""DGPTF4"",39,0)"
^XMB(3.9,5,2,1308,0)=" ; display contents of 300th node "
^XMB(3.9,5,2,1309,0)="""RTN"",""DGPTF4"",40,0)"
^XMB(3.9,5,2,1310,0)=" S DG300=$S($D(^DGPT(PTF,300)):^(300),1:"""") D:DG300]"""" PRN2^DGPTFM8 K DG300"
^XMB(3.9,5,2,1311,0)="""RTN"",""DGPTF4"",41,0)"
^XMB(3.9,5,2,1312,0)="EN2 K DRG"
^XMB(3.9,5,2,1313,0)="""RTN"",""DGPTF4"",42,0)"
^XMB(3.9,5,2,1314,0)=" I $D(^DGPT(PTF,0)),$P(^(0),U,11)=1 D"
^XMB(3.9,5,2,1315,0)="""RTN"",""DGPTF4"",43,0)"
^XMB(3.9,5,2,1316,0)=" .S DA=DFN"
^XMB(3.9,5,2,1317,0)="""RTN"",""DGPTF4"",44,0)"
^XMB(3.9,5,2,1318,0)=" .D EN1^DGPTFD"
^XMB(3.9,5,2,1319,0)="""RTN"",""DGPTF4"",45,0)"
^XMB(3.9,5,2,1320,0)=" .I $D(DRG),$D(^DGP(45.84,PTF,0)),$P(^(0),U,6)'=DRG D"
^XMB(3.9,5,2,1321,0)="""RTN"",""DGPTF4"",46,0)"
^XMB(3.9,5,2,1322,0)=" ..N DGFDA,DGMSG"
^XMB(3.9,5,2,1323,0)="""RTN"",""DGPTF4"",47,0)"
^XMB(3.9,5,2,1324,0)=" ..S DGFDA(45.84,PTF_"","",6)=DRG"
^XMB(3.9,5,2,1325,0)="""RTN"",""DGPTF4"",48,0)"
^XMB(3.9,5,2,1326,0)=" ..D FILE^DIE("""",""DGFDA"",""DGMSG"")"
^XMB(3.9,5,2,1327,0)="""RTN"",""DGPTF4"",49,0)"
^XMB(3.9,5,2,1328,0)="JUMP K AGE,B,CC,DA,DAM,DOB,DXLS,EXP,I,L1,L2,SEX,DRGCAL,S,DIC,DR,DIE"
^XMB(3.9,5,2,1329,0)="""RTN"",""DGPTF4"",50,0)"
^XMB(3.9,5,2,1330,0)=" Q:DGPR"
^XMB(3.9,5,2,1331,0)="""RTN"",""DGPTF4"",51,0)"
^XMB(3.9,5,2,1332,0)=" ;F I=$Y:1:18 W !"
^XMB(3.9,5,2,1333,0)="""RTN"",""DGPTF4"",52,0)"
^XMB(3.9,5,2,1334,0)=" K X S $P(X,""-"",81)="""" W X"
^XMB(3.9,5,2,1335,0)="""RTN"",""DGPTF4"",53,0)"
^XMB(3.9,5,2,1336,0)=" ;"
^XMB(3.9,5,2,1337,0)="""RTN"",""DGPTF4"",54,0)"
^XMB(3.9,5,2,1338,0)=" G O:DGST&(('$D(DRG))!('DGDD)!('$D(^DGP(45.84,PTF))))"
^XMB(3.9,5,2,1339,0)="""RTN"",""DGPTF4"",55,0)"
^XMB(3.9,5,2,1340,0)="X G ACT^DGPTF41"
^XMB(3.9,5,2,1341,0)="""RTN"",""DGPTF4"",56,0)"
^XMB(3.9,5,2,1342,0)="CLS G NOT:('$D(DRG))!('DGDD)!('DGFC)"
^XMB(3.9,5,2,1343,0)="""RTN"",""DGPTF4"",57,0)"
^XMB(3.9,5,2,1344,0)=" ;I DRG=470!(DRG=469) W !!,*7,""Unable to release DRG "",DRG,"". Please verify data entered."",*7 D HANG^DGPTUTL G EN1"
^XMB(3.9,5,2,1345,0)="""RTN"",""DGPTF4"",58,0)"
^XMB(3.9,5,2,1346,0)=" ;"
^XMB(3.9,5,2,1347,0)="""RTN"",""DGPTF4"",59,0)"
^XMB(3.9,5,2,1348,0)=" ;change made to allow release of 470, before grouper released to vamc's"
^XMB(3.9,5,2,1349,0)="""RTN"",""DGPTF4"",60,0)"
^XMB(3.9,5,2,1350,0)=" ;  patch 115"
^XMB(3.9,5,2,1351,0)="""RTN"",""DGPTF4"",61,0)"
^XMB(3.9,5,2,1352,0)=" I DRG=469 W !!,*7,""Unable to release DRG "",DRG,"". Please verify data entered."",*7 D HANG^DGPTUTL G EN1"
^XMB(3.9,5,2,1353,0)="""RTN"",""DGPTF4"",62,0)"
^XMB(3.9,5,2,1354,0)=" I $D(DGCST),'DGCST D CEN G EN1:'DGCST"
^XMB(3.9,5,2,1355,0)="""RTN"",""DGPTF4"",63,0)"
^XMB(3.9,5,2,1356,0)=" I '$P(^DGPT(PTF,0),""^"",4) W !,""Updating TRANSFER DRGs..."" S DGADM=$P(^DGPT(PTF,0),U,2) D SUDO1^DGPTSUDO"
^XMB(3.9,5,2,1357,0)="""RTN"",""DGPTF4"",64,0)"
^XMB(3.9,5,2,1358,0)=" I DGDD>(DT+1) W !,""Cannot close with Discharge date in future."" D HANG^DGPTUTL G EN1"
^XMB(3.9,5,2,1359,0)="""RTN"",""DGPTF4"",65,0)"
^XMB(3.9,5,2,1360,0)=" I $D(^DGM(""PT"",DFN)) F I=0:0 S I=$O(^DGM(""PT"",DFN,I)) Q:'I  I '$D(^DGM(I,0)) K ^DGM(I),^DGM(""PT"",DFN,I)"
^XMB(3.9,5,2,1361,0)="""RTN"",""DGPTF4"",66,0)"
^XMB(3.9,5,2,1362,0)=" I $D(^DGM(""PT"",DFN)) W !!,""Not all messages have been cleared up for this patient--cannot close."",*7,*7 S DGPTF=DFN,X=""??"" K DGALL D HELP^DGPTMSGD K DGPTF G EN1:'$D(DGALL) K DGALL"
^XMB(3.9,5,2,1363,0)="""RTN"",""DGPTF4"",67,0)"
^XMB(3.9,5,2,1364,0)=" G CLS^DGPTF2"
^XMB(3.9,5,2,1365,0)="""RTN"",""DGPTF4"",68,0)"
^XMB(3.9,5,2,1366,0)=" ;"
^XMB(3.9,5,2,1367,0)="""RTN"",""DGPTF4"",69,0)"
^XMB(3.9,5,2,1368,0)="O I '$D(^DGP(45.84,PTF,0)) S DR=""6///0"",DIE=""^DGPT("",DA=PTF,(DGST,DGN)=0 D ^DIE W !,""  NOT CLOSED "" D HANG^DGPTUTL G EN1"
^XMB(3.9,5,2,1369,0)="""RTN"",""DGPTF4"",70,0)"
^XMB(3.9,5,2,1370,0)=" S (DGST,DGN)=0"
^XMB(3.9,5,2,1371,0)="""RTN"",""DGPTF4"",71,0)"
^XMB(3.9,5,2,1372,0)=" S DGPTIFN=PTF,DGRTY=1 D OPEN^DGPTFDEL S DGST=0"
^XMB(3.9,5,2,1373,0)="""RTN"",""DGPTF4"",72,0)"
^XMB(3.9,5,2,1374,0)=" K DGPTIFN,DGRTY G EN1"
^XMB(3.9,5,2,1375,0)="""RTN"",""DGPTF4"",73,0)"
^XMB(3.9,5,2,1376,0)=" ;"
^XMB(3.9,5,2,1377,0)="""RTN"",""DGPTF4"",74,0)"
^XMB(3.9,5,2,1378,0)="Q G Q^DGPTF"
^XMB(3.9,5,2,1379,0)="""RTN"",""DGPTF4"",75,0)"
^XMB(3.9,5,2,1380,0)=" ;"
^XMB(3.9,5,2,1381,0)="""RTN"",""DGPTF4"",76,0)"
^XMB(3.9,5,2,1382,0)="NOT I 'DGFC S DR=""3//^S X=$P($$SITE^VASITE,U,2);5"",DIE=""^DGPT("",DA=PTF D ^DIE S DGFC=$P(^DGPT(PTF,0),U,3) I DGFC G EN1"
^XMB(3.9,5,2,1383,0)="""RTN"",""DGPTF4"",77,0)"
^XMB(3.9,5,2,1384,0)=" W !!,""Unable to close without a "",$S('$D(DRG):""DRG being calculated."",'DGDD:"" discharge date."",1:"" facility specified""),!!,*7,*7 H 4 G EN1"
^XMB(3.9,5,2,1385,0)="""RTN"",""DGPTF4"",78,0)"
^XMB(3.9,5,2,1386,0)=" Q"
^XMB(3.9,5,2,1387,0)="""RTN"",""DGPTF4"",79,0)"
^XMB(3.9,5,2,1388,0)=" ;"
^XMB(3.9,5,2,1389,0)="""RTN"",""DGPTF4"",80,0)"
^XMB(3.9,5,2,1390,0)="Z D Z^DGPTF5 Q"
^XMB(3.9,5,2,1391,0)="""RTN"",""DGPTF4"",81,0)"
^XMB(3.9,5,2,1392,0)="Z1 D Z1^DGPTF5 Q"
^XMB(3.9,5,2,1393,0)="""RTN"",""DGPTF4"",82,0)"
^XMB(3.9,5,2,1394,0)="CEN D CEN^DGPTF5 Q"
^XMB(3.9,5,2,1395,0)="""RTN"",""DGPTF4"",83,0)"
^XMB(3.9,5,2,1396,0)="DSP S J=$$ICDDX^ICDCODE(+$P(K,U,I),DGPTDAT) I J&$P(J,U,10) D"
^XMB(3.9,5,2,1397,0)="""RTN"",""DGPTF4"",84,0)"
^XMB(3.9,5,2,1398,0)=" .I I#2 W ?40,$P(J,U,4)_""(""_$P(J,U,2)_"")"" Q"
^XMB(3.9,5,2,1399,0)="""RTN"",""DGPTF4"",85,0)"
^XMB(3.9,5,2,1400,0)=" .W !,$P(J,U,4)_""(""_$P(J,U,2)_"")"""
^XMB(3.9,5,2,1401,0)="""RTN"",""DGPTF4"",86,0)"
^XMB(3.9,5,2,1402,0)=" Q"
^XMB(3.9,5,2,1403,0)="""RTN"",""DGPTFM"")"
^XMB(3.9,5,2,1404,0)="0^7^B44316891^B43402022"
^XMB(3.9,5,2,1405,0)="""RTN"",""DGPTFM"",1,0)"
^XMB(3.9,5,2,1406,0)="DGPTFM ;ALB/MTC - PTF OP-PRO-DIAG ;7/22/05 9:18am"
^XMB(3.9,5,2,1407,0)="""RTN"",""DGPTFM"",2,0)"
^XMB(3.9,5,2,1408,0)=" ;;5.3;Registration;**510,517,590,594,606,635,683**;Aug 13, 1993"
^XMB(3.9,5,2,1409,0)="""RTN"",""DGPTFM"",3,0)"
^XMB(3.9,5,2,1410,0)=" K M,S,M1,M2,M3,S1,S2,PS2,SDCLY,^TMP(""PTF"",$J)"
^XMB(3.9,5,2,1411,0)="""RTN"",""DGPTFM"",4,0)"
^XMB(3.9,5,2,1412,0)="GET S I=0 F I1=1:1 S I=$O(^DGPT(PTF,""M"",I)) Q:'I  S (M3(I1),M(I1))=^(I,0) I $D(^DGPT(PTF,""M"",I,""P"")) S $P(M(I1),U,20)=^(""P"")"
^XMB(3.9,5,2,1413,0)="""RTN"",""DGPTFM"",5,0)"
^XMB(3.9,5,2,1414,0)=" K MT D ORDER^DGPTF K MT D GETVAR^DGPTFM6,CL^SDCO21(DFN,$P(^DGPT(PTF,0),U,2),"""",.SDCLY),MOB^DGPTFM2"
^XMB(3.9,5,2,1415,0)="""RTN"",""DGPTFM"",6,0)"
^XMB(3.9,5,2,1416,0)=" S DGPC=I1-1 D WR K M1,M2,^UTILITY($J) S ST=1,M2=0"
^XMB(3.9,5,2,1417,0)="""RTN"",""DGPTFM"",7,0)"
^XMB(3.9,5,2,1418,0)="DIAG K DGZSER,DGZPRO,DGZSUR S DGZDIAG=1 F J=ST:2:PM S NL=1,L5=0,L6=J D WD2 S L5=1,L6=J+1 D:$D(M(L6)) WD2 D WD G PRO1:$Y>16 D WD3^DGPTFM8 G PRO1:$Y>16 W !"
^XMB(3.9,5,2,1419,0)="""RTN"",""DGPTFM"",8,0)"
^XMB(3.9,5,2,1420,0)=" S ST=1 G SER"
^XMB(3.9,5,2,1421,0)="""RTN"",""DGPTFM"",9,0)"
^XMB(3.9,5,2,1422,0)="WD F J1=1:1:11 I J1'=6 S L=$P(M(J),U,J1+4),L1=0,L3=1 D:+L WD1 S L1=1,L=$S($D(M(J+1)):$P(M(J+1),U,J1+4),1:"""") D:+L WD1"
^XMB(3.9,5,2,1423,0)="""RTN"",""DGPTFM"",10,0)"
^XMB(3.9,5,2,1424,0)=" Q"
^XMB(3.9,5,2,1425,0)="""RTN"",""DGPTFM"",11,0)"
^XMB(3.9,5,2,1426,0)="WD1 S N=$$ICDDX^ICDCODE(+L,$$GETDATE^ICDGTDRG(PTF)),L2=$S(N:$P(N,U,2,99),1:""""),M2=M2+1,L4=$P(L2,""^"",1),L4=L4_$E(""   "",1,3-$L($P(L4,""."",2)))"
^XMB(3.9,5,2,1427,0)="""RTN"",""DGPTFM"",12,0)"
^XMB(3.9,5,2,1428,0)=" W:L3 ! S:L3 L3=0 W ?L1*40,$J(M2,3),"" "",$J(L4,7),"" "",$E($P(L2,U,3),1,25) K ^UTILITY($J,""M2"",M2) S ^UTILITY($J,""M2"",M2)=+M(J+L1)_U_J1 Q"
^XMB(3.9,5,2,1429,0)="""RTN"",""DGPTFM"",13,0)"
^XMB(3.9,5,2,1430,0)="WD2 N Z3"
^XMB(3.9,5,2,1431,0)="""RTN"",""DGPTFM"",14,0)"
^XMB(3.9,5,2,1432,0)=" X:NL ""W ! S NL=0"" W ?L5*40,""Move #"",+L6 S Z=M(L6),Z3=M3(L6) W:+Z=1 "" D/C"" S Y=$P(Z,U,10)\1 D D^DGPTUTL W "" "",Y,"" """
^XMB(3.9,5,2,1433,0)="""RTN"",""DGPTFM"",15,0)"
^XMB(3.9,5,2,1434,0)=" W "" <"",$S($P(Z3,U,18)=1:"""",1:""N""),""SC""_$S($P(Z3,U,26)=""Y"":"",AO"",1:"""")_$S($P(Z3,U,27)=""Y"":"",IR"",1:"""")_$S($P(Z3,U,28)=""Y"":"",EC"",1:"""")_"">"""
^XMB(3.9,5,2,1435,0)="""RTN"",""DGPTFM"",16,0)"
^XMB(3.9,5,2,1436,0)=" I $D(^DIC(42.4,+$P(Z,U,2),0)) D"
^XMB(3.9,5,2,1437,0)="""RTN"",""DGPTFM"",17,0)"
^XMB(3.9,5,2,1438,0)=" . I $P(^DIC(42.4,+$P(Z,U,2),0),U,2)'="""" W $E($P(^DIC(42.4,+$P(Z,U,2),0),U,2),1,10)"
^XMB(3.9,5,2,1439,0)="""RTN"",""DGPTFM"",18,0)"
^XMB(3.9,5,2,1440,0)=" . E  W $E($P(^(0),U,1),1,10)"
^XMB(3.9,5,2,1441,0)="""RTN"",""DGPTFM"",19,0)"
^XMB(3.9,5,2,1442,0)=" Q"
^XMB(3.9,5,2,1443,0)="""RTN"",""DGPTFM"",20,0)"
^XMB(3.9,5,2,1444,0)="NDG D WR S I=0 K M,M1,M2 S M2=0 F I1=1:1 S I=$O(^DGPT(PTF,""M"",I)) Q:I'>0  S M(I1)=^(I,0)"
^XMB(3.9,5,2,1445,0)="""RTN"",""DGPTFM"",21,0)"
^XMB(3.9,5,2,1446,0)=" S PM=I1-1 D ORDER^DGPTF K MT G DIAG:$D(ST) G GET S ST=1"
^XMB(3.9,5,2,1447,0)="""RTN"",""DGPTFM"",22,0)"
^XMB(3.9,5,2,1448,0)="SER K DGZDIAG,DGZPRO,DGZSUR S DGZSER=1 G PRO1:$Y>19 K S1,S2 S S2=0 G SERV:ST G PRO"
^XMB(3.9,5,2,1449,0)="""RTN"",""DGPTFM"",23,0)"
^XMB(3.9,5,2,1450,0)="SERV F J=ST:2:SU S NL=1,L5=0,L6=J D SD2 S L5=1,L6=J+1 D:$D(S(L6)) SD2 D SD G PRO1:$Y>11 D SD3^DGPTFM8 G PRO1:$Y>11 W !"
^XMB(3.9,5,2,1451,0)="""RTN"",""DGPTFM"",24,0)"
^XMB(3.9,5,2,1452,0)=" G PRC^DGPTFM0"
^XMB(3.9,5,2,1453,0)="""RTN"",""DGPTFM"",25,0)"
^XMB(3.9,5,2,1454,0)="SD F J1=1:1:5 S L=$P(S(J),U,J1+7),L1=0,L3=1 D:+L SD1 S L1=1,L=$S($D(S(J+1)):$P(S(J+1),U,J1+7),1:"""") D:+L SD1"
^XMB(3.9,5,2,1455,0)="""RTN"",""DGPTFM"",26,0)"
^XMB(3.9,5,2,1456,0)=" Q"
^XMB(3.9,5,2,1457,0)="""RTN"",""DGPTFM"",27,0)"
^XMB(3.9,5,2,1458,0)="SD1 S N=$$ICDOP^ICDCODE(+L,$$GETDATE^ICDGTDRG(PTF)),L2=$S(N:$P(N,U,2,99),1:""""),S2=S2+1,L4=$P(L2,""^"",1),L4=L4_$E(""   "",1,3-$L($P(L4,""."",2)))"
^XMB(3.9,5,2,1459,0)="""RTN"",""DGPTFM"",28,0)"
^XMB(3.9,5,2,1460,0)=" W:L3 ! S:L3 L3=0 W ?L1*40,$J(S2,3),"" "",$J(L4,7),"" "",$E($P(L2,U,4),1,25) K S2(S2) S S2(S2)=J+L1_U_J1 Q"
^XMB(3.9,5,2,1461,0)="""RTN"",""DGPTFM"",29,0)"
^XMB(3.9,5,2,1462,0)="SD2 S Y=+S(L6) D D^DGPTUTL W:NL ! S:NL NL=0 W ?L5*40,L6,""-Surgery date: "",Y"
^XMB(3.9,5,2,1463,0)="""RTN"",""DGPTFM"",30,0)"
^XMB(3.9,5,2,1464,0)=" Q"
^XMB(3.9,5,2,1465,0)="""RTN"",""DGPTFM"",31,0)"
^XMB(3.9,5,2,1466,0)="NSR K S,S1,S2 S I=0 F I1=1:1 S I=$O(^DGPT(PTF,""S"",I)) Q:I'>0  S S(I1)=^(I,0),S(I1,1)=I"
^XMB(3.9,5,2,1467,0)="""RTN"",""DGPTFM"",32,0)"
^XMB(3.9,5,2,1468,0)=" S S2=0,SU=I1-1 D WR G SERV"
^XMB(3.9,5,2,1469,0)="""RTN"",""DGPTFM"",33,0)"
^XMB(3.9,5,2,1470,0)=" ;"
^XMB(3.9,5,2,1471,0)="""RTN"",""DGPTFM"",34,0)"
^XMB(3.9,5,2,1472,0)="WR W @IOF,HEAD,?70 S Z=""<MAS>"" D Z Q"
^XMB(3.9,5,2,1473,0)="""RTN"",""DGPTFM"",35,0)"
^XMB(3.9,5,2,1474,0)="PRO K DGZSER,DGZDIAG,DGZSUR S DGZPRO=1 G PRO1:$Y>14 K P1,P2 S ST=1,P2=0 G NPR:'$D(PROC)"
^XMB(3.9,5,2,1475,0)="""RTN"",""DGPTFM"",36,0)"
^XMB(3.9,5,2,1476,0)="PROC D:$Y>14 WR W:PROC]"""" !!,""Procedures: "",!"
^XMB(3.9,5,2,1477,0)="""RTN"",""DGPTFM"",37,0)"
^XMB(3.9,5,2,1478,0)=" F J1=1:1:5 S L=$P(PROC,""^"",J1) I L'="""" S P2=P2+1,N=$$ICDOP^ICDCODE(+L,$$GETDATE^ICDGTDRG(PTF)),L2=$S(N:$P(N,U,2,99),1:""""),L4=$P(L2,U,1),L4=L4_$E(""   "",1,3-$L($P(L4,""."",2))) D"
^XMB(3.9,5,2,1479,0)="""RTN"",""DGPTFM"",38,0)"
^XMB(3.9,5,2,1480,0)=" .W:$X>5 ?40 W $J(P2,3),"" "",$J(L4,7),"" "",$E($P(L2,""^"",4),1,25) K P2(P2) S P2(P2)=J1 W:$X>45 !"
^XMB(3.9,5,2,1481,0)="""RTN"",""DGPTFM"",39,0)"
^XMB(3.9,5,2,1482,0)=" K DGZSER,DGZPRO,DGZDIAG,DGZSUR"
^XMB(3.9,5,2,1483,0)="""RTN"",""DGPTFM"",40,0)"
^XMB(3.9,5,2,1484,0)="ENC G PRO1:$Y>7,PRO1:'$P(DGZPRF,U,3)"
^XMB(3.9,5,2,1485,0)="""RTN"",""DGPTFM"",41,0)"
^XMB(3.9,5,2,1486,0)="PF S PS2=0,J=+DGZPRF,Y=+DGZPRF(J),DGSTRT=$S(+$P(DGZPRF,U,4):$P(DGZPRF,U,4),1:4),DGLST=0"
^XMB(3.9,5,2,1487,0)="""RTN"",""DGPTFM"",42,0)"
^XMB(3.9,5,2,1488,0)=" D CL^SDCO21(DFN,+DGZPRF(J),"""",.SDCLY),ICDINFO^DGAPI(DFN,PTF),XREF^DGPTFM21 ; load SCI info and DGN's for this service date"
^XMB(3.9,5,2,1489,0)="""RTN"",""DGPTFM"",43,0)"
^XMB(3.9,5,2,1490,0)=" D D^DGPTUTL W !,J,""-CPT Capture Date/Time: "",Y W:($P(DGZPRF,U,2)-1!($G(PGBRK))) "" (cont.)"""
^XMB(3.9,5,2,1491,0)="""RTN"",""DGPTFM"",44,0)"
^XMB(3.9,5,2,1492,0)=" I $P(DGZPRF(J),U,2) W !,?5,""Referring or Ordering Provider: "" S L=$P(DGZPRF(J),U,2) D PRV"
^XMB(3.9,5,2,1493,0)="""RTN"",""DGPTFM"",45,0)"
^XMB(3.9,5,2,1494,0)=" W !,?5,""Rendering Provider: "" S L=$P(DGZPRF(J),U,3) D PRV"
^XMB(3.9,5,2,1495,0)="""RTN"",""DGPTFM"",46,0)"
^XMB(3.9,5,2,1496,0)=" I $P(DGZPRF(J),U,5) W !,?5,""Rendering Location: "",$P($G(^SC($P(DGZPRF(J),U,5),0)),U)"
^XMB(3.9,5,2,1497,0)="""RTN"",""DGPTFM"",47,0)"
^XMB(3.9,5,2,1498,0)=" S (L1,PGBRK)=0"
^XMB(3.9,5,2,1499,0)="""RTN"",""DGPTFM"",48,0)"
^XMB(3.9,5,2,1500,0)=" F K=$P(DGZPRF,U,2):1 Q:'$D(DGZPRF(J,K))  I '$G(DGZPRF(J,K,9)) S PS2=PS2+1 W !,?2,PS2,"" "" D CPT^DGPTUTL1 D  Q:$Y+$G(DGZPRF(J,K+1,1))>16!($G(PGBRK))"
^XMB(3.9,5,2,1501,0)="""RTN"",""DGPTFM"",49,0)"
^XMB(3.9,5,2,1502,0)=" . W !,?4 S $P(DS,""-"",27)="""" W DS,"" Related Diagnosis "",DS"
^XMB(3.9,5,2,1503,0)="""RTN"",""DGPTFM"",50,0)"
^XMB(3.9,5,2,1504,0)=" . F L1=DGSTRT:1:11 S DGLOC=$S(L1<8:L1,1:L1+7),CD=$P(DGZPRF(J,K),U,DGLOC) I CD D  I $Y+$G(CKSCI)>16 S PGBRK=1 Q"
^XMB(3.9,5,2,1505,0)="""RTN"",""DGPTFM"",51,0)"
^XMB(3.9,5,2,1506,0)=" . . S N=$$ICDDX^ICDCODE(CD,$$GETDATE^ICDGTDRG(PTF)),N=$S(N:$P(N,U,2,99),1:"""")"
^XMB(3.9,5,2,1507,0)="""RTN"",""DGPTFM"",52,0)"
^XMB(3.9,5,2,1508,0)=" . . S CD=$P(N,U) W !,?8,CD,""   "",$P(N,U,3)"
^XMB(3.9,5,2,1509,0)="""RTN"",""DGPTFM"",53,0)"
^XMB(3.9,5,2,1510,0)=" . . D CKSCI($P(DGZPRF(J,K),U,DGLOC))"
^XMB(3.9,5,2,1511,0)="""RTN"",""DGPTFM"",54,0)"
^XMB(3.9,5,2,1512,0)=" . S PS2(PS2)=J_U_K,CD=1,DGLOC=0,DGSTRT=4"
^XMB(3.9,5,2,1513,0)="""RTN"",""DGPTFM"",55,0)"
^XMB(3.9,5,2,1514,0)=" I L1'=11,$S(L1<8:$P($G(DGZPRF(J,K)),U,L1+1,7),1:"""")_$P($G(DGZPRF(J,K)),U,$S(L1<8:15,1:L1+8),18)?.""^"" S L1=11"
^XMB(3.9,5,2,1515,0)="""RTN"",""DGPTFM"",56,0)"
^XMB(3.9,5,2,1516,0)=" I L1=11 S $P(DGZPRF,U,1,2)=$S($D(DGZPRF(J,K+1)):J_U_(K+1),1:J+1_U_1),$P(DGZPRF,U,4)="""",PGBRK=0"
^XMB(3.9,5,2,1517,0)="""RTN"",""DGPTFM"",57,0)"
^XMB(3.9,5,2,1518,0)=" E  S $P(DGZPRF,U,1,2)=J_U_K,$P(DGZPRF,U,4)=L1+1"
^XMB(3.9,5,2,1519,0)="""RTN"",""DGPTFM"",58,0)"
^XMB(3.9,5,2,1520,0)=" ;I '$D(DGZPRF(J,K+1)) S $P(DGZPRF,U,1,2)=$S($P($G(DGZPRF(J,K)),U,NXTDGN)'="""":J,1:J+1)_U_1,$P(DGZPRF,U,4)=DGLST"
^XMB(3.9,5,2,1521,0)="""RTN"",""DGPTFM"",59,0)"
^XMB(3.9,5,2,1522,0)=" ;I $D(DGZPRF(J,K+1)) S $P(DGZPRF,U,1,2)=J_U_(K+1)"
^XMB(3.9,5,2,1523,0)="""RTN"",""DGPTFM"",60,0)"
^XMB(3.9,5,2,1524,0)=" K I,K,L,L1,CD,N G PRO1"
^XMB(3.9,5,2,1525,0)="""RTN"",""DGPTFM"",61,0)"
^XMB(3.9,5,2,1526,0)=" ;"
^XMB(3.9,5,2,1527,0)="""RTN"",""DGPTFM"",62,0)"
^XMB(3.9,5,2,1528,0)="CKSCI(IEN)      ;print SCI for each Diagnosis code"
^XMB(3.9,5,2,1529,0)="""RTN"",""DGPTFM"",63,0)"
^XMB(3.9,5,2,1530,0)=" N DGINFO Q:'$D(XREF(IEN))"
^XMB(3.9,5,2,1531,0)="""RTN"",""DGPTFM"",64,0)"
^XMB(3.9,5,2,1532,0)=" S DGINFO=$G(^DGICD9(46.1,(XREF(IEN)),0)),CKSCI=0"
^XMB(3.9,5,2,1533,0)="""RTN"",""DGPTFM"",65,0)"
^XMB(3.9,5,2,1534,0)=" I 'DGINFO Q"
^XMB(3.9,5,2,1535,0)="""RTN"",""DGPTFM"",66,0)"
^XMB(3.9,5,2,1536,0)=" F I=3,7,1,2,4:1:6 I $D(SDCLY(I)) S L=$S(I=3:8,I<4:8+I,1:7+I) D"
^XMB(3.9,5,2,1537,0)="""RTN"",""DGPTFM"",67,0)"
^XMB(3.9,5,2,1538,0)=" .W ?45 S M=1,CKSCI=CKSCI+1"
^XMB(3.9,5,2,1539,0)="""RTN"",""DGPTFM"",68,0)"
^XMB(3.9,5,2,1540,0)=" .W $P(""Treated for AO Condition^Treated for IR Condition^Treated for SC Condition^Exposed to Envir Contaminants^Treatment for MST^Treatment for Head/Neck CA^Related to Combat"",U,I)"
^XMB(3.9,5,2,1541,0)="""RTN"",""DGPTFM"",69,0)"
^XMB(3.9,5,2,1542,0)=" .I I'=7 W "":"",$S($P(DGINFO,U,($S(I<3:I+2,I=3:2,1:I+1))):""YES"",1:""NO""),!"
^XMB(3.9,5,2,1543,0)="""RTN"",""DGPTFM"",70,0)"
^XMB(3.9,5,2,1544,0)=" .I I=7 W "":"",$S($P(DGINFO,U,8)=""Y"":""YES"",1:""NO""),!"
^XMB(3.9,5,2,1545,0)="""RTN"",""DGPTFM"",71,0)"
^XMB(3.9,5,2,1546,0)=" Q  ;CKSCI"
^XMB(3.9,5,2,1547,0)="""RTN"",""DGPTFM"",72,0)"
^XMB(3.9,5,2,1548,0)=" ;"
^XMB(3.9,5,2,1549,0)="""RTN"",""DGPTFM"",73,0)"
^XMB(3.9,5,2,1550,0)="NPR S ST=1,PROC=$S($D(^DGPT(PTF,""401P"")):^(""401P""),1:"""") D WR G PRO"
^XMB(3.9,5,2,1551,0)="""RTN"",""DGPTFM"",74,0)"
^XMB(3.9,5,2,1552,0)=" ;"
^XMB(3.9,5,2,1553,0)="""RTN"",""DGPTFM"",75,0)"
^XMB(3.9,5,2,1554,0)="NPS D WR G PF"
^XMB(3.9,5,2,1555,0)="""RTN"",""DGPTFM"",76,0)"
^XMB(3.9,5,2,1556,0)=" ;"
^XMB(3.9,5,2,1557,0)="""RTN"",""DGPTFM"",77,0)"
^XMB(3.9,5,2,1558,0)="DONE G EN1^DGPTF4"
^XMB(3.9,5,2,1559,0)="""RTN"",""DGPTFM"",78,0)"
^XMB(3.9,5,2,1560,0)="PRO1 ;SET MENU TYPE AND DISPLAY MENU"
^XMB(3.9,5,2,1561,0)="""RTN"",""DGPTFM"",79,0)"
^XMB(3.9,5,2,1562,0)=" N ICDVDT,ICPTVDT"
^XMB(3.9,5,2,1563,0)="""RTN"",""DGPTFM"",80,0)"
^XMB(3.9,5,2,1564,0)=" S (ICDVDT,ICPTVDT)=$S($D(PTF):$$GETDATE^ICDGTDRG(PTF),1:DT)"
^XMB(3.9,5,2,1565,0)="""RTN"",""DGPTFM"",81,0)"
^XMB(3.9,5,2,1566,0)=" S DGNUM=$S($D(DGZDIAG)!($D(DGZPRO))!($D(DGZSER))!($D(DGZSUR)!(+DGZPRF-1'=$P(DGZPRF,U,3))):""MAS"",1:""701"") G MAS^DGPTFJC:DGST F X=$Y:1:(IOSL-8) W !"
^XMB(3.9,5,2,1567,0)="""RTN"",""DGPTFM"",82,0)"
^XMB(3.9,5,2,1568,0)=" W !! S Z=""Patient Movements:"" W Z S Z="" ""_$S(DGPTFE:""M=Add PM  X=Delete PM"",1:""M=Edit Treat Spec/PM "")_""  A=Add Code  D=Delete Code  V=Edit Mov"" W Z"
^XMB(3.9,5,2,1569,0)="""RTN"",""DGPTFM"",83,0)"
^XMB(3.9,5,2,1570,0)=" W ! S Z=""Surgical Episodes:"" W Z S Z="" S=Add SE  Z=Delete SE  O=Add Code  C=Delete Code  J=Edit SE"" W Z"
^XMB(3.9,5,2,1571,0)="""RTN"",""DGPTFM"",84,0)"
^XMB(3.9,5,2,1572,0)=" W ! S Z=""Procedure Records:"" W Z S Z="" T=Add PR  R=Delete PR  P=Add Code  Q=Delete Code  E=Edit PR"" W Z"
^XMB(3.9,5,2,1573,0)="""RTN"",""DGPTFM"",85,0)"
^XMB(3.9,5,2,1574,0)=" W ! S Z=""801:"" W Z S Z="" I=Add 801  Y=Delete 801  N=Add CPT  G=Delete CPT F=Edit 801"" W Z K Z"
^XMB(3.9,5,2,1575,0)="""RTN"",""DGPTFM"",86,0)"
^XMB(3.9,5,2,1576,0)=" W !,""                   ^=Abort   <RET> to Continue:<"",DGNUM,"">// "" R ANS:DTIME K DGNUM"
^XMB(3.9,5,2,1577,0)="""RTN"",""DGPTFM"",87,0)"
^XMB(3.9,5,2,1578,0)="A S Z=""^C Delete Code^A Add Code^O Add Code^P Add NOP^S Add SE^D Delete Code^M Add PM^X Delete PM^Z Delete SE^J Edit SE^Q Delete NOP^V Edit Move^"""
^XMB(3.9,5,2,1579,0)="""RTN"",""DGPTFM"",88,0)"
^XMB(3.9,5,2,1580,0)=" S Z=Z_""T Add PR^R Delete PR^E Edit PR^I Add 801^Y Delete 801^N Add CPT^G Delete CPT^F Edit 801"""
^XMB(3.9,5,2,1581,0)="""RTN"",""DGPTFM"",89,0)"
^XMB(3.9,5,2,1582,0)=" I 'DGPTFE S $P(Z,U,8,9)=""M Edit treat Spec/PM"""
^XMB(3.9,5,2,1583,0)="""RTN"",""DGPTFM"",90,0)"
^XMB(3.9,5,2,1584,0)=" S X=ANS G Q^DGPTF:ANS=""^"" G ^DGPTFJ:ANS?1""^"".E S (A,X)=ANS,X=$E(X,1) D IN^DGHELP"
^XMB(3.9,5,2,1585,0)="""RTN"",""DGPTFM"",91,0)"
^XMB(3.9,5,2,1586,0)=" I $P(^DGPT(PTF,0),U,4),X'="""",""IYNGF""[X W !,""***WARNING: This is a Fee Basis PTF record*** 801 encounters are not allowed."" H 3 G DGPTFM"
^XMB(3.9,5,2,1587,0)="""RTN"",""DGPTFM"",92,0)"
^XMB(3.9,5,2,1588,0)=" I ANS="""" S (ST,ST1)=J+2 D:$D(DGZSUR) WR G @($S($D(DGZDIAG):""NDG"",$D(DGZSER):""NSR"",$D(DGZPRO):""NPR"",$D(DGZSUR):""EN^DGPTFM0"",+DGZPRF-1'=$P(DGZPRF,U,3):""NPS"",1:""DONE""))"
^XMB(3.9,5,2,1589,0)="""RTN"",""DGPTFM"",93,0)"
^XMB(3.9,5,2,1590,0)=" G HELP^DGPTFM1A:%=-1 S Z=$L(A)-1 G @(X_$S(X=""X"":"""",1:""^DGPTFM1""))"
^XMB(3.9,5,2,1591,0)="""RTN"",""DGPTFM"",94,0)"
^XMB(3.9,5,2,1592,0)="PRV I $D(^VA(200,L,0)) W $P(^(0),U) Q"
^XMB(3.9,5,2,1593,0)="""RTN"",""DGPTFM"",95,0)"
^XMB(3.9,5,2,1594,0)=" W L Q"
^XMB(3.9,5,2,1595,0)="""RTN"",""DGPTFM"",96,0)"
^XMB(3.9,5,2,1596,0)="X ;"
^XMB(3.9,5,2,1597,0)="""RTN"",""DGPTFM"",97,0)"
^XMB(3.9,5,2,1598,0)=" I 'Z S:PM=1 RC=1 G X1:PM=1 W !!,""Delete Patient move <1"",$S(PM<3:"""",1:""-""_(PM-1)),"">: "" R RC:DTIME G ^DGPTFM:RC[""^""!(RC="""")"
^XMB(3.9,5,2,1599,0)="""RTN"",""DGPTFM"",98,0)"
^XMB(3.9,5,2,1600,0)=" E  S RC=$E(A,2,99) W !"
^XMB(3.9,5,2,1601,0)="""RTN"",""DGPTFM"",99,0)"
^XMB(3.9,5,2,1602,0)=" I +RC'=RC!('$D(M(RC))) W !!,""Enter the record # to delete from the PTF file, 1"",$S(PM<3:"""",1:""-""_(PM-1)) S Z=0 G X"
^XMB(3.9,5,2,1603,0)="""RTN"",""DGPTFM"",100,0)"
^XMB(3.9,5,2,1604,0)="X1 I +M(RC)=1 W !,*7,""Cannot delete discharge movement"",! H 3 G ^DGPTFM"
^XMB(3.9,5,2,1605,0)="""RTN"",""DGPTFM"",101,0)"
^XMB(3.9,5,2,1606,0)=" S DIE=""^DGPT(""_PTF_"",""""M"""","",DP=45.02,DR="".01///@"",DA(1)=PTF,DA=+M(RC) D ^DIE K DR W ""  "",RC,""-DELETED***"" H 2 G ^DGPTFM"
^XMB(3.9,5,2,1607,0)="""RTN"",""DGPTFM"",102,0)"
^XMB(3.9,5,2,1608,0)="Z W @DGVI,Z,@DGVO Q"
^XMB(3.9,5,2,1609,0)="""RTN"",""DGPTFM"",103,0)"
^XMB(3.9,5,2,1610,0)="EN D WR G EN^DGPTFM0"
^XMB(3.9,5,2,1611,0)="""RTN"",""DGPTFM7"")"
^XMB(3.9,5,2,1612,0)="0^3^B21153448^B19954582"
^XMB(3.9,5,2,1613,0)="""RTN"",""DGPTFM7"",1,0)"
^XMB(3.9,5,2,1614,0)="DGPTFM7 ;ALB/MJK - Display Phys. CDR mvts ;4/13/04 1:26pm"
^XMB(3.9,5,2,1615,0)="""RTN"",""DGPTFM7"",2,0)"
^XMB(3.9,5,2,1616,0)=" ;;5.3;Registration;**78,590,594,683**;Aug 13, 1993"
^XMB(3.9,5,2,1617,0)="""RTN"",""DGPTFM7"",3,0)"
^XMB(3.9,5,2,1618,0)=" ;"
^XMB(3.9,5,2,1619,0)="""RTN"",""DGPTFM7"",4,0)"
^XMB(3.9,5,2,1620,0)="EN ; entry pt to display CDR screen"
^XMB(3.9,5,2,1621,0)="""RTN"",""DGPTFM7"",5,0)"
^XMB(3.9,5,2,1622,0)=" ; -- PTF and DGPTFMT must be defined"
^XMB(3.9,5,2,1623,0)="""RTN"",""DGPTFM7"",6,0)"
^XMB(3.9,5,2,1624,0)=" ;"
^XMB(3.9,5,2,1625,0)="""RTN"",""DGPTFM7"",7,0)"
^XMB(3.9,5,2,1626,0)=" S DGMAX=7,DGPTIFN=PTF,DGTOT=0 G BYPASS:DGPTFMT<2"
^XMB(3.9,5,2,1627,0)="""RTN"",""DGPTFM7"",8,0)"
^XMB(3.9,5,2,1628,0)=" D FDT^DGPTUTL S DGFMTDT=Y"
^XMB(3.9,5,2,1629,0)="""RTN"",""DGPTFM7"",9,0)"
^XMB(3.9,5,2,1630,0)=" F NODE=535,""M"" F I=0:0 S I=$O(^DGPT(DGPTIFN,NODE,I)) Q:'I  I $D(^(I,0)) S Y=$S($P(^(0),U,10):$P(^(0),U,10),1:DT+.2359),^UTILITY($J,""DGCDR"",Y)=NODE_U_I,^UTILITY($J,""DG""_NODE,Y)=I"
^XMB(3.9,5,2,1631,0)="""RTN"",""DGPTFM7"",10,0)"
^XMB(3.9,5,2,1632,0)=" S P=$S('$D(^DGPT(DGPTIFN,0)):DGFMTDT+1,$P(^(0),U,2)>DGFMTDT:$P(^(0),U,2),1:DGFMTDT)"
^XMB(3.9,5,2,1633,0)="""RTN"",""DGPTFM7"",11,0)"
^XMB(3.9,5,2,1634,0)=" F I=0:0 S I=$O(^UTILITY($J,""DGCDR"",I)) Q:'I  I I>DGFMTDT S DGTOT=DGTOT+1,^(I)=^(I)_""^""_P,P=I"
^XMB(3.9,5,2,1635,0)="""RTN"",""DGPTFM7"",12,0)"
^XMB(3.9,5,2,1636,0)="BYPASS S (DGC,DGLDT)=0"
^XMB(3.9,5,2,1637,0)="""RTN"",""DGPTFM7"",13,0)"
^XMB(3.9,5,2,1638,0)="LOOP ;"
^XMB(3.9,5,2,1639,0)="""RTN"",""DGPTFM7"",14,0)"
^XMB(3.9,5,2,1640,0)=" D HEADER:$Y>(IOSL-15) S DGLAST(""DT"")=DGLDT,DGLAST(""C"")=DGC"
^XMB(3.9,5,2,1641,0)="""RTN"",""DGPTFM7"",15,0)"
^XMB(3.9,5,2,1642,0)=" I DGPTFMT<2 W !!,""  CDR information not required for this admission."""
^XMB(3.9,5,2,1643,0)="""RTN"",""DGPTFM7"",16,0)"
^XMB(3.9,5,2,1644,0)=" F DGLDT=DGLDT:0 S DGLDT=$O(^UTILITY($J,""DGCDR"",DGLDT)) Q:'DGLDT  I DGLDT>DGFMTDT S X=^(DGLDT) D PRT I 'DGPR Q:'(DGC#DGMAX)!(DGC=DGTOT)"
^XMB(3.9,5,2,1645,0)="""RTN"",""DGPTFM7"",17,0)"
^XMB(3.9,5,2,1646,0)=" I DGPR D KILL Q"
^XMB(3.9,5,2,1647,0)="""RTN"",""DGPTFM7"",18,0)"
^XMB(3.9,5,2,1648,0)=" W:DGC<DGTOT !,""...more movements available"""
^XMB(3.9,5,2,1649,0)="""RTN"",""DGPTFM7"",19,0)"
^XMB(3.9,5,2,1650,0)=" F I=$Y:1:18 W !"
^XMB(3.9,5,2,1651,0)="""RTN"",""DGPTFM7"",20,0)"
^XMB(3.9,5,2,1652,0)=" ;"
^XMB(3.9,5,2,1653,0)="""RTN"",""DGPTFM7"",21,0)"
^XMB(3.9,5,2,1654,0)=" K X S $P(X,""-"",81)="""" W X"
^XMB(3.9,5,2,1655,0)="""RTN"",""DGPTFM7"",22,0)"
^XMB(3.9,5,2,1656,0)=" I $D(DGBRCH) G @DGBRCH"
^XMB(3.9,5,2,1657,0)="""RTN"",""DGPTFM7"",23,0)"
^XMB(3.9,5,2,1658,0)=" W !,""Enter <RET> to "",$S(DGC'<DGTOT:""go to MAS screen"",1:""display more CDR information""),!,""      '^N'  to go to screen N,  or '^' to abort: <"",$S(DGC'<DGTOT:""MAS"",1:""RET""),"">// "" R X:DTIME S:'$T X=""^"",DGPTOUT="""""
^XMB(3.9,5,2,1659,0)="""RTN"",""DGPTFM7"",24,0)"
^XMB(3.9,5,2,1660,0)=" I X=""^"" D KILL G Q^DGPTF"
^XMB(3.9,5,2,1661,0)="""RTN"",""DGPTFM7"",25,0)"
^XMB(3.9,5,2,1662,0)=" I X="""",DGC<DGTOT G LOOP"
^XMB(3.9,5,2,1663,0)="""RTN"",""DGPTFM7"",26,0)"
^XMB(3.9,5,2,1664,0)=" S:X="""" X=""^MAS"""
^XMB(3.9,5,2,1665,0)="""RTN"",""DGPTFM7"",27,0)"
^XMB(3.9,5,2,1666,0)=" I X?1""^"".E D KILL S DGPTSCRN=""CDR"" G ^DGPTFJ"
^XMB(3.9,5,2,1667,0)="""RTN"",""DGPTFM7"",28,0)"
^XMB(3.9,5,2,1668,0)=" ;"
^XMB(3.9,5,2,1669,0)="""RTN"",""DGPTFM7"",29,0)"
^XMB(3.9,5,2,1670,0)="HELP ; -- screen help"
^XMB(3.9,5,2,1671,0)="""RTN"",""DGPTFM7"",30,0)"
^XMB(3.9,5,2,1672,0)=" I DGC<DGTOT W !,""Press return to see more CDR information"""
^XMB(3.9,5,2,1673,0)="""RTN"",""DGPTFM7"",31,0)"
^XMB(3.9,5,2,1674,0)=" I DGC'<DGTOT W !,""Press return to go to the 'MAS' screen"""
^XMB(3.9,5,2,1675,0)="""RTN"",""DGPTFM7"",32,0)"
^XMB(3.9,5,2,1676,0)=" W !,""        '^'  to stop the display"""
^XMB(3.9,5,2,1677,0)="""RTN"",""DGPTFM7"",33,0)"
^XMB(3.9,5,2,1678,0)=" W !,""        '^N' to jump to screen #N (appears in upper right of screen '<N>')"""
^XMB(3.9,5,2,1679,0)="""RTN"",""DGPTFM7"",34,0)"
^XMB(3.9,5,2,1680,0)=" R !!,""Enter <RET>: "",X:DTIME"
^XMB(3.9,5,2,1681,0)="""RTN"",""DGPTFM7"",35,0)"
^XMB(3.9,5,2,1682,0)=" S DGC=DGLAST(""C""),DGLDT=DGLAST(""DT"") G LOOP"
^XMB(3.9,5,2,1683,0)="""RTN"",""DGPTFM7"",36,0)"
^XMB(3.9,5,2,1684,0)=" ;"
^XMB(3.9,5,2,1685,0)="""RTN"",""DGPTFM7"",37,0)"
^XMB(3.9,5,2,1686,0)="KILL ; -- kill off locals"
^XMB(3.9,5,2,1687,0)="""RTN"",""DGPTFM7"",38,0)"
^XMB(3.9,5,2,1688,0)=" K ^UTILITY($J,""DGCDR""),^(""DG535""),^(""DGM""),DGCDR,DGC,DGI0,DGICDR,DGLDT,DGLVE,DGPASS,DG5SP,DG5CDR,DGMSP,DGMCDR,DGMDRG,DGMAX,DGTOT,DGWARD,DGPTIFN,DGLAST,DGFMTDT,DGLDTE,DGCDR0,DGM0,DGMTY,P,I"
^XMB(3.9,5,2,1689,0)="""RTN"",""DGPTFM7"",39,0)"
^XMB(3.9,5,2,1690,0)=" Q"
^XMB(3.9,5,2,1691,0)="""RTN"",""DGPTFM7"",40,0)"
^XMB(3.9,5,2,1692,0)=" ;"
^XMB(3.9,5,2,1693,0)="""RTN"",""DGPTFM7"",41,0)"
^XMB(3.9,5,2,1694,0)="HEADER ;"
^XMB(3.9,5,2,1695,0)="""RTN"",""DGPTFM7"",42,0)"
^XMB(3.9,5,2,1696,0)=" I DGPR D HEAD^DGPTFMO"
^XMB(3.9,5,2,1697,0)="""RTN"",""DGPTFM7"",43,0)"
^XMB(3.9,5,2,1698,0)=" I 'DGPR W @IOF,HEAD,?72 S Z=""<CDR>"" D Z^DGPTFM"
^XMB(3.9,5,2,1699,0)="""RTN"",""DGPTFM7"",44,0)"
^XMB(3.9,5,2,1700,0)=" W !?23,""Rec"",?38,""Losing Ward"",?54,""PTF"""
^XMB(3.9,5,2,1701,0)="""RTN"",""DGPTFM7"",45,0)"
^XMB(3.9,5,2,1702,0)=" W !?4,""Losing Date"",?23,""Type"",?28,""Ward/DRG"",?38,""CDR/Spec"",?54,""CDR/Spec"",?68,""Lve/Pas/ Los"""
^XMB(3.9,5,2,1703,0)="""RTN"",""DGPTFM7"",46,0)"
^XMB(3.9,5,2,1704,0)=" W !,""--------------------------------------------------------------------------------"""
^XMB(3.9,5,2,1705,0)="""RTN"",""DGPTFM7"",47,0)"
^XMB(3.9,5,2,1706,0)=" Q"
^XMB(3.9,5,2,1707,0)="""RTN"",""DGPTFM7"",48,0)"
^XMB(3.9,5,2,1708,0)=" ;"
^XMB(3.9,5,2,1709,0)="""RTN"",""DGPTFM7"",49,0)"
^XMB(3.9,5,2,1710,0)="PRT ; -- collect 501 and 535 data and then print"
^XMB(3.9,5,2,1711,0)="""RTN"",""DGPTFM7"",50,0)"
^XMB(3.9,5,2,1712,0)=" ; "
^XMB(3.9,5,2,1713,0)="""RTN"",""DGPTFM7"",51,0)"
^XMB(3.9,5,2,1714,0)=" I $P(X,U)=""M"" S DGMTY=501,(Z,DGM0)=^DGPT(DGPTIFN,""M"",+$P(X,U,2),0),DGMDRG=$S($D(^(""P"")):$P(^(""P""),U),1:""""),Y=+$O(^UTILITY($J,""DG535"",DGLDT-.0000001)),DGCDR0=$S('$D(^(Y)):"""",$D(^DGPT(DGPTIFN,535,+^(Y),0)):^(0),1:"""")"
^XMB(3.9,5,2,1715,0)="""RTN"",""DGPTFM7"",52,0)"
^XMB(3.9,5,2,1716,0)=" ;"
^XMB(3.9,5,2,1717,0)="""RTN"",""DGPTFM7"",53,0)"
^XMB(3.9,5,2,1718,0)=" I $P(X,U)=""535"" S DGMTY=535,(Z,DGCDR0)=^DGPT(DGPTIFN,535,+$P(X,U,2),0),Y=+$O(^UTILITY($J,""DGM"",DGLDT-.0000001)),DGM0=$S('$D(^(Y)):"""",$D(^DGPT(DGPTIFN,""M"",+^(Y),0)):^(0),1:""""),DGMDRG="""""
^XMB(3.9,5,2,1719,0)="""RTN"",""DGPTFM7"",54,0)"
^XMB(3.9,5,2,1720,0)=" ;"
^XMB(3.9,5,2,1721,0)="""RTN"",""DGPTFM7"",55,0)"
^XMB(3.9,5,2,1722,0)=" N DGLOS S X1=DGLDT,X2=$P(X,U,3) D ^%DTC S X=X-$P(Z,U,3),DGLOS=$J($S(X>0:X,1:1),4)"
^XMB(3.9,5,2,1723,0)="""RTN"",""DGPTFM7"",56,0)"
^XMB(3.9,5,2,1724,0)=" S DGC=DGC+1,DGLVE=$J($P(Z,U,3),3),DGPASS=$J($P(Z,U,4),3)"
^XMB(3.9,5,2,1725,0)="""RTN"",""DGPTFM7"",57,0)"
^XMB(3.9,5,2,1726,0)=" S Y=DGLDT X ^DD(""DD"") S DGLDTE=Y"
^XMB(3.9,5,2,1727,0)="""RTN"",""DGPTFM7"",58,0)"
^XMB(3.9,5,2,1728,0)=" ;S DGMSP=$E($S($D(^DIC(42.4,+$P(DGM0,U,2),0)):$P(^(0),U),1:""UNKNOWN""),1,14),DGMCDR=$J(+$P(DGM0,U,16),7,2)"
^XMB(3.9,5,2,1729,0)="""RTN"",""DGPTFM7"",59,0)"
^XMB(3.9,5,2,1730,0)=" ;S DG5SP=$E($S($D(^DIC(42.4,+$P(DGCDR0,U,2),0)):$P(^(0),U),1:""UNKNOWN""),1,14),DG5CDR=$J(+$P(DGCDR0,U,16),7,2)"
^XMB(3.9,5,2,1731,0)="""RTN"",""DGPTFM7"",60,0)"
^XMB(3.9,5,2,1732,0)=" I $D(^DIC(42.4,+$P(DGM0,U,2),0)) D"
^XMB(3.9,5,2,1733,0)="""RTN"",""DGPTFM7"",61,0)"
^XMB(3.9,5,2,1734,0)=" . S DGMSP=$P(^DIC(42.4,+$P(DGM0,U,2),0),""^"",2)"
^XMB(3.9,5,2,1735,0)="""RTN"",""DGPTFM7"",62,0)"
^XMB(3.9,5,2,1736,0)=" . I DGMSP="""" S DGMSP=$P(^DIC(42.4,+$P(DGM0,U,2),0),""^"")"
^XMB(3.9,5,2,1737,0)="""RTN"",""DGPTFM7"",63,0)"
^XMB(3.9,5,2,1738,0)=" . S DGMSP=$E(DGMSP,1,14)"
^XMB(3.9,5,2,1739,0)="""RTN"",""DGPTFM7"",64,0)"
^XMB(3.9,5,2,1740,0)=" E  S DGMSP=""UNKNOWN"""
^XMB(3.9,5,2,1741,0)="""RTN"",""DGPTFM7"",65,0)"
^XMB(3.9,5,2,1742,0)=" S DGMCDR=$J(+$P(DGM0,U,16),7,2)"
^XMB(3.9,5,2,1743,0)="""RTN"",""DGPTFM7"",66,0)"
^XMB(3.9,5,2,1744,0)=" I $D(^DIC(42.4,+$P(DGCDR0,U,2),0)) D"
^XMB(3.9,5,2,1745,0)="""RTN"",""DGPTFM7"",67,0)"
^XMB(3.9,5,2,1746,0)=" . S DG5SP=$P(^DIC(42.4,+$P(DGCDR0,U,2),0),""^"",2)"
^XMB(3.9,5,2,1747,0)="""RTN"",""DGPTFM7"",68,0)"
^XMB(3.9,5,2,1748,0)=" . I DG5SP="""" S DG5SP=$P(^DIC(42.4,+$P(DGCDR0,U,2),0),""^"")"
^XMB(3.9,5,2,1749,0)="""RTN"",""DGPTFM7"",69,0)"
^XMB(3.9,5,2,1750,0)=" . S DGMSP=$E(DGMSP,1,14)"
^XMB(3.9,5,2,1751,0)="""RTN"",""DGPTFM7"",70,0)"
^XMB(3.9,5,2,1752,0)=" E  S DG5SP=""UNKNOWN"""
^XMB(3.9,5,2,1753,0)="""RTN"",""DGPTFM7"",71,0)"
^XMB(3.9,5,2,1754,0)=" S DG5CDR=$J(+$P(DGCDR0,U,16),7,2)"
^XMB(3.9,5,2,1755,0)="""RTN"",""DGPTFM7"",72,0)"
^XMB(3.9,5,2,1756,0)=" S DGWARD=$E($S($D(^DIC(42,+$P(DGCDR0,U,6),0)):$P(^(0),U),1:""UNKNOWN""),1,8)"
^XMB(3.9,5,2,1757,0)="""RTN"",""DGPTFM7"",73,0)"
^XMB(3.9,5,2,1758,0)=" ;"
^XMB(3.9,5,2,1759,0)="""RTN"",""DGPTFM7"",74,0)"
^XMB(3.9,5,2,1760,0)=" W !,$J(DGC,3),?4,DGLDTE,?23,DGMTY,?28,DGWARD,?38,DG5CDR,?54,DGMCDR,?68,DGLVE,""/"",DGPASS,""/"",DGLOS,!?28,DGMDRG,?38,DG5SP,?54,DGMSP"
^XMB(3.9,5,2,1761,0)="""RTN"",""DGPTFM7"",75,0)"
^XMB(3.9,5,2,1762,0)=" Q"
^XMB(3.9,5,2,1763,0)="""RTN"",""DGPTFM7"",76,0)"
^XMB(3.9,5,2,1764,0)=" ;"
^XMB(3.9,5,2,1765,0)="""RTN"",""DGPTFM7"",77,0)"
^XMB(3.9,5,2,1766,0)="INQ ; -- entry point for inquire option"
^XMB(3.9,5,2,1767,0)="""RTN"",""DGPTFM7"",78,0)"
^XMB(3.9,5,2,1768,0)=" ;"
^XMB(3.9,5,2,1769,0)="""RTN"",""DGPTFM7"",79,0)"
^XMB(3.9,5,2,1770,0)=" S:'$D(DC) DC=0 S PTF=D0,DGPR=1 D EN,KILL K PTF Q:$Y<(IOSL-15)"
^XMB(3.9,5,2,1771,0)="""RTN"",""DGPTFM7"",80,0)"
^XMB(3.9,5,2,1772,0)=" I $E(IOST,1)=""C"" W *7 R X:DTIME I X=U S DN=0 Q"
^XMB(3.9,5,2,1773,0)="""RTN"",""DGPTFM7"",81,0)"
^XMB(3.9,5,2,1774,0)=" W @IOF,! X:$D(^UTILITY($J,2)) ^(2) W ! F %=1:1:IOM W ""_"""
^XMB(3.9,5,2,1775,0)="""RTN"",""DGPTFM7"",82,0)"
^XMB(3.9,5,2,1776,0)=" W !,""(""_$P(^DPT(+^DGPT(D0,0),0),U,1)_"")"",!"
^XMB(3.9,5,2,1777,0)="""RTN"",""DGPTFM7"",83,0)"
^XMB(3.9,5,2,1778,0)=" Q"
^XMB(3.9,5,2,1779,0)="""RTN"",""DGPTFM7"",84,0)"
^XMB(3.9,5,2,1780,0)="DT I Y W $P(""JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC"",U,$E(Y,4,5)),"" "" W:Y#100 $J(Y#100\1,2),"","" W Y\10000+1700 W:Y#1 ""  "",$E(Y_0,9,10),"":"",$E(Y_""000"",11,12)"
^XMB(3.9,5,2,1781,0)="""RTN"",""DGPTFM7"",85,0)"
^XMB(3.9,5,2,1782,0)=" Q"
^XMB(3.9,5,2,1783,0)="""RTN"",""DGPTFM7"",86,0)"
^XMB(3.9,5,2,1784,0)=" ;"
^XMB(3.9,5,2,1785,0)="""RTN"",""DGPTFMO"")"
^XMB(3.9,5,2,1786,0)="0^6^B26139485^B26073214"
^XMB(3.9,5,2,1787,0)="""RTN"",""DGPTFMO"",1,0)"
^XMB(3.9,5,2,1788,0)="DGPTFMO ;ALB/JDS/ADL - DGPTF PRINT TEMPLATE ; 4/13/04 12:11pm"
^XMB(3.9,5,2,1789,0)="""RTN"",""DGPTFMO"",2,0)"
^XMB(3.9,5,2,1790,0)=" ;;5.3;Registration;**195,397,510,590,594,606,683**;Aug 13, 1993"
^XMB(3.9,5,2,1791,0)="""RTN"",""DGPTFMO"",3,0)"
^XMB(3.9,5,2,1792,0)=" ;;ADL;Updated for CSV Project;;Mar 4, 2003"
^XMB(3.9,5,2,1793,0)="""RTN"",""DGPTFMO"",4,0)"
^XMB(3.9,5,2,1794,0)=" ;FOR PTF REPORT CALLED FROM TEMPLATE DGPTF"
^XMB(3.9,5,2,1795,0)="""RTN"",""DGPTFMO"",5,0)"
^XMB(3.9,5,2,1796,0)="EN K A,B,AD,ADA,DGDD,DGFC,HEAD,DGPTFE,DGST,DGN,T"
^XMB(3.9,5,2,1797,0)="""RTN"",""DGPTFMO"",6,0)"
^XMB(3.9,5,2,1798,0)=" F I=0:0 S I=$O(^DGPT(D0,""M"",I)) Q:I'>0  I $D(^(I,0)) S J=+$P(^(0),U,10) S:'J J=999999999 S:$D(T(J)) J=J+.01*I S T(J)=I"
^XMB(3.9,5,2,1799,0)="""RTN"",""DGPTFMO"",7,0)"
^XMB(3.9,5,2,1800,0)=" F I=0:0 S I=$O(T(I)) Q:I'>0  S DGM=$S($D(^DGPT(D0,""M"",T(I),0)):^(0),1:"""") I DGM]"""" D WRITE"
^XMB(3.9,5,2,1801,0)="""RTN"",""DGPTFMO"",8,0)"
^XMB(3.9,5,2,1802,0)=" K T F I=0:0 S I=$O(^DGPT(D0,""S"",I)) Q:I'>0  D SUR"
^XMB(3.9,5,2,1803,0)="""RTN"",""DGPTFMO"",9,0)"
^XMB(3.9,5,2,1804,0)=" S DGOP1=$S($D(^DGPT(D0,""401P"")):^(""401P""),1:"""") I DGOP1]"""" D HEAD:$Y>(IOSL-10) G Q:'DN D PROC"
^XMB(3.9,5,2,1805,0)="""RTN"",""DGPTFMO"",10,0)"
^XMB(3.9,5,2,1806,0)=" I $D(^DGPT(D0,""P"")) D HEAD:$Y>(IOSL-10) G Q:'DN F I=0:0 S I=$O(^DGPT(D0,""P"",I)) Q:I'>0  S DG601=^DGPT(D0,""P"",I,0),Y=+DG601 D D^DGPTUTL W !!,"" Procedure Date: "",Y D 601"
^XMB(3.9,5,2,1807,0)="""RTN"",""DGPTFMO"",11,0)"
^XMB(3.9,5,2,1808,0)=" S DGPT=$G(^DGPT(D0,70)) I DGPT]"""" G Q:'DN D DXLS"
^XMB(3.9,5,2,1809,0)="""RTN"",""DGPTFMO"",12,0)"
^XMB(3.9,5,2,1810,0)=" K %,DGL,DGM,DGPT,DGOP,DGOP1,DGF,DGP,DXLS,DGICD,L1,S1,T,J,K,DGPR,DGN,AGE,B,DA,DAM,DFN,DGST,DOB,DP,DRG,EXP,NO,P,PTF,DGPTFE,SD1,SEX,TAC,TRS,DGDS,DGTD,DGPROC,DG601,DGPTDAT"
^XMB(3.9,5,2,1811,0)="""RTN"",""DGPTFMO"",13,0)"
^XMB(3.9,5,2,1812,0)=" W ! ;F I=$Y:1:IOSL-1 W !"
^XMB(3.9,5,2,1813,0)="""RTN"",""DGPTFMO"",14,0)"
^XMB(3.9,5,2,1814,0)=" Q"
^XMB(3.9,5,2,1815,0)="""RTN"",""DGPTFMO"",15,0)"
^XMB(3.9,5,2,1816,0)="WRITE D HEAD:$Y>(IOSL-12) G Q:'DN S Y=$P(DGM,U,10),DGL=+$P(DGM,U,2),DGL=$S($D(^DIC(42.4,DGL,0)):^(0),1:""""),DGL=$P(DGL,U,1) D D^DGPTUTL"
^XMB(3.9,5,2,1817,0)="""RTN"",""DGPTFMO"",16,0)"
^XMB(3.9,5,2,1818,0)=" W !!,""Movement Date: "",Y,?40,""Losing Specialty: "",$E(DGL,1,22),!,""Leave Days: "",$P(DGM,U,3),?40,""Pass Days: "",$P(DGM,U,4)"
^XMB(3.9,5,2,1819,0)="""RTN"",""DGPTFMO"",17,0)"
^XMB(3.9,5,2,1820,0)=" W !,""Treated for SC condition: "",$S($P(DGM,U,18)=1:""Yes"",1:""No"")"
^XMB(3.9,5,2,1821,0)="""RTN"",""DGPTFMO"",18,0)"
^XMB(3.9,5,2,1822,0)=" W:$P(DGM,U,31)'="""" !,""Potentially Related to Combat: "",$S($P(DGM,U,31)=""Y"":""Yes"",1:""No"")"
^XMB(3.9,5,2,1823,0)="""RTN"",""DGPTFMO"",19,0)"
^XMB(3.9,5,2,1824,0)=" W:$P(DGM,U,26)'="""" !,""Treated for AO condition: "",$S($P(DGM,U,26)=""Y"":""Yes"",1:""No"")"
^XMB(3.9,5,2,1825,0)="""RTN"",""DGPTFMO"",20,0)"
^XMB(3.9,5,2,1826,0)=" W:$P(DGM,U,27)'="""" !,""Treated for IR condition: "",$S($P(DGM,U,27)=""Y"":""Yes"",1:""No"")"
^XMB(3.9,5,2,1827,0)="""RTN"",""DGPTFMO"",21,0)"
^XMB(3.9,5,2,1828,0)=" W:$P(DGM,U,28)'="""" !,""Treated for EC condition: "",$S($P(DGM,U,28)=""Y"":""Yes"",1:""No"")"
^XMB(3.9,5,2,1829,0)="""RTN"",""DGPTFMO"",22,0)"
^XMB(3.9,5,2,1830,0)=" W:$P(DGM,U,29)'="""" !,""Treated for MST condition: "",$S($P(DGM,U,29)=""Y"":""Yes"",$P(DGM,U,29)=""N"":""No"",1:""Declined to answer"") ; added 6/17/98 for MST enhancement"
^XMB(3.9,5,2,1831,0)="""RTN"",""DGPTFMO"",23,0)"
^XMB(3.9,5,2,1832,0)=" W:$P(DGM,U,30)'="""" !,""Treated for HEAD/NECK CA condition: "",$S($P(DGM,U,30)=""Y"":""Yes"",1:""No"")"
^XMB(3.9,5,2,1833,0)="""RTN"",""DGPTFMO"",24,0)"
^XMB(3.9,5,2,1834,0)=" W:T(I)=1 !,""Discharge """
^XMB(3.9,5,2,1835,0)="""RTN"",""DGPTFMO"",25,0)"
^XMB(3.9,5,2,1836,0)=" S DGF="""" F J=5:1:15 I J#10 S DGPTTMP=$$ICDDX^ICDCODE(+$P(DGM,U,J),$$GETDATE^ICDGTDRG(D0)),DGICD=$S(+DGPTTMP>0:$P(DGPTTMP,U,2,99),1:"""") I DGICD]"""" D "
^XMB(3.9,5,2,1837,0)="""RTN"",""DGPTFMO"",26,0)"
^XMB(3.9,5,2,1838,0)=" . W:DGF="""" !!?13,""DX: "" W $P(DGICD,U,3)_"" (""_$P(DGICD,U)_"")"",!?17 S DGF=1"
^XMB(3.9,5,2,1839,0)="""RTN"",""DGPTFMO"",27,0)"
^XMB(3.9,5,2,1840,0)=" ;-- display expanded codes "
^XMB(3.9,5,2,1841,0)="""RTN"",""DGPTFMO"",28,0)"
^XMB(3.9,5,2,1842,0)=" S DG300=$S($D(^DGPT(D0,""M"",T(I),300)):^(300),1:"""") I DG300]"""" D HEAD:$Y>(IOSL-6) D PRN2^DGPTFM8 W !"
^XMB(3.9,5,2,1843,0)="""RTN"",""DGPTFMO"",29,0)"
^XMB(3.9,5,2,1844,0)=" K DG300"
^XMB(3.9,5,2,1845,0)="""RTN"",""DGPTFMO"",30,0)"
^XMB(3.9,5,2,1846,0)=" ;Display TRANSFER DRG with description"
^XMB(3.9,5,2,1847,0)="""RTN"",""DGPTFMO"",31,0)"
^XMB(3.9,5,2,1848,0)=" Q:'$D(^DGPT(D0,""M"",T(I),""P""))  S DGTD=+^(""P"") Q:'$D(^ICD(DGTD,0))  W !?3,""TRANSFER DRG: "",DGTD,"" - """
^XMB(3.9,5,2,1849,0)="""RTN"",""DGPTFMO"",32,0)"
^XMB(3.9,5,2,1850,0)=" N DXD,DGDX"
^XMB(3.9,5,2,1851,0)="""RTN"",""DGPTFMO"",33,0)"
^XMB(3.9,5,2,1852,0)=" S DXD=$$DRGD^ICDGTDRG(DGTD,""DGDX"",,$$GETDATE^ICDGTDRG(D0)),DGDS=0"
^XMB(3.9,5,2,1853,0)="""RTN"",""DGPTFMO"",34,0)"
^XMB(3.9,5,2,1854,0)=" F  S DGDS=$O(DGDX(DGDS)) Q:'+DGDS  Q:DGDX(DGDS)="" ""  W !,DGDX(DGDS)"
^XMB(3.9,5,2,1855,0)="""RTN"",""DGPTFMO"",35,0)"
^XMB(3.9,5,2,1856,0)=" Q"
^XMB(3.9,5,2,1857,0)="""RTN"",""DGPTFMO"",36,0)"
^XMB(3.9,5,2,1858,0)="HEAD I $E(IOST,1)=""C"" W *7 R X:DTIME I X=U S DN=0 Q"
^XMB(3.9,5,2,1859,0)="""RTN"",""DGPTFMO"",37,0)"
^XMB(3.9,5,2,1860,0)=" S DC=DC+1 W @IOF,! X:$D(^UTILITY($J,2)) ^(2) W ! F K=1:1:IOM W ""_"""
^XMB(3.9,5,2,1861,0)="""RTN"",""DGPTFMO"",38,0)"
^XMB(3.9,5,2,1862,0)=" W !,""(""_$P(^DPT(+^DGPT(D0,0),0),U,1)_"")"",!"
^XMB(3.9,5,2,1863,0)="""RTN"",""DGPTFMO"",39,0)"
^XMB(3.9,5,2,1864,0)=" Q"
^XMB(3.9,5,2,1865,0)="""RTN"",""DGPTFMO"",40,0)"
^XMB(3.9,5,2,1866,0)="SUR D HEAD:$Y>(IOSL-7) G Q:'DN S S1=^DGPT(D0,""S"",I,0),Y=+S1 D D^DGPTUTL W !!,""   Date of Surg: "",Y,?45,""Chief Surg: "" S L="";""_$P(^DD(45.01,4,0),U,3),L1="";""_$P(S1,U,4)_"":"" W $P($P(L,L1,2),"";"",1)"
^XMB(3.9,5,2,1867,0)="""RTN"",""DGPTFMO"",41,0)"
^XMB(3.9,5,2,1868,0)=" W !,""    Anesth Tech: "" S L="";""_$P(^DD(45.01,6,0),U,3),L1="";""_$P(S1,U,6)_"":"" W $P($P(L,L1,2),"";"",1),?45,""First Asst: "" S L="";""_$P(^DD(45.01,5,0),U,3),L1="";""_$P(S1,U,5)_"":"" W $P($P(L,L1,2),"";"",1)"
^XMB(3.9,5,2,1869,0)="""RTN"",""DGPTFMO"",42,0)"
^XMB(3.9,5,2,1870,0)=" W !,""  Source of pay: "" S L="";""_$P(^DD(45.01,7,0),U,3),L1="";""_$P(S1,U,7)_"":"" W $P($P(L,L1,2),"";"",1)"
^XMB(3.9,5,2,1871,0)="""RTN"",""DGPTFMO"",43,0)"
^XMB(3.9,5,2,1872,0)=" W ?46,""Surg spec: "",$S($D(^DIC(45.3,+$P(S1,U,3),0)):$P(^(0),U,2),1:"""")"
^XMB(3.9,5,2,1873,0)="""RTN"",""DGPTFMO"",44,0)"
^XMB(3.9,5,2,1874,0)=" W !!,?7,""Surg/pro: "" F K=1:1:5 S L=$P(S1,U,K+7) I L'="""" S DGPTTMP=$$ICDOP^ICDCODE(+L,$$GETDATE^ICDGTDRG(D0)) W $S(+DGPTTMP>0:$P(DGPTTMP,U,5)_"" (""_$P(DGPTTMP,U,2)_"")"",1:""**********-""_L),!?17"
^XMB(3.9,5,2,1875,0)="""RTN"",""DGPTFMO"",45,0)"
^XMB(3.9,5,2,1876,0)=" ;-- display expanded codes"
^XMB(3.9,5,2,1877,0)="""RTN"",""DGPTFMO"",46,0)"
^XMB(3.9,5,2,1878,0)=" S DG300=$S($D(^DGPT(D0,""S"",I,300)):^(300),1:"""") I DG300]"""" D PRN3^DGPTFM8"
^XMB(3.9,5,2,1879,0)="""RTN"",""DGPTFMO"",47,0)"
^XMB(3.9,5,2,1880,0)=" K DG300"
^XMB(3.9,5,2,1881,0)="""RTN"",""DGPTFMO"",48,0)"
^XMB(3.9,5,2,1882,0)=" Q"
^XMB(3.9,5,2,1883,0)="""RTN"",""DGPTFMO"",49,0)"
^XMB(3.9,5,2,1884,0)="PROC S DGF="""" F I=1:1:5 S DGPTTMP=$$ICDOP^ICDCODE(+$P(DGOP1,U,I),$$GETDATE^ICDGTDRG(D0)),DGOP=$S(DGPTTMP>0:$P(DGPTTMP,U,2,99),1:"""") I DGOP D "
^XMB(3.9,5,2,1885,0)="""RTN"",""DGPTFMO"",50,0)"
^XMB(3.9,5,2,1886,0)=" . W:'DGF !!?6,""Procedure: "" W $P(DGOP,U,4)_"" (""_$P(DGOP,U)_"")"",!?17 S DGF=1"
^XMB(3.9,5,2,1887,0)="""RTN"",""DGPTFMO"",51,0)"
^XMB(3.9,5,2,1888,0)=" Q"
^XMB(3.9,5,2,1889,0)="""RTN"",""DGPTFMO"",52,0)"
^XMB(3.9,5,2,1890,0)="601 ;print the procedures/dates from the 601 procedure multiple (eff. 10/1/87)"
^XMB(3.9,5,2,1891,0)="""RTN"",""DGPTFMO"",53,0)"
^XMB(3.9,5,2,1892,0)=" F J=5:1:9 S DGPTTMP=$$ICDOP^ICDCODE(+$P(DG601,U,J),$$GETDATE^ICDGTDRG(D0)),DGPROC=$S(+DGPTTMP>0:$P(DGPTTMP,U,2,99),1:"""") I DGPROC W !?17,$P(DGPROC,U,4)_"" (""_$P(DGPROC,U)_"")"""
^XMB(3.9,5,2,1893,0)="""RTN"",""DGPTFMO"",54,0)"
^XMB(3.9,5,2,1894,0)=" Q"
^XMB(3.9,5,2,1895,0)="""RTN"",""DGPTFMO"",55,0)"
^XMB(3.9,5,2,1896,0)="DXLS D HEAD:$Y>(IOSL-16) S DGPTDAT=$$GETDATE^ICDGTDRG(D0)"
^XMB(3.9,5,2,1897,0)="""RTN"",""DGPTFMO"",56,0)"
^XMB(3.9,5,2,1898,0)=" S DGPTTMP=$$ICDDX^ICDCODE(+$P(DGPT,U,10),DGPTDAT),DXLS=$S(+DGPTTMP>0:$P(DGPTTMP,U,2,99),1:"""") I DXLS]"""" W !!?11,""DXLS: "",$P(DXLS,U,3)_"" (""_$P(DXLS,U)_"")"""
^XMB(3.9,5,2,1899,0)="""RTN"",""DGPTFMO"",57,0)"
^XMB(3.9,5,2,1900,0)=" I 'DXLS S DGPTTMP=$$ICDDX^ICDCODE(+$P(DGPT,U,11),DGPTDAT),DGP=$S(+DGPTTMP>0:$P(DGPTTMP,U,2,99),1:"""") I DGP]"""" W !!,"" Principal Diag: "",$P(DGP,U,3)_"" (""_$P(DGP,U)_"")"""
^XMB(3.9,5,2,1901,0)="""RTN"",""DGPTFMO"",58,0)"
^XMB(3.9,5,2,1902,0)=" S K=DGPT F I=16:1:24 D DSP"
^XMB(3.9,5,2,1903,0)="""RTN"",""DGPTFMO"",59,0)"
^XMB(3.9,5,2,1904,0)=" S K=$G(^DGPT(D0,71)) F I=1:1:4 D DSP"
^XMB(3.9,5,2,1905,0)="""RTN"",""DGPTFMO"",60,0)"
^XMB(3.9,5,2,1906,0)=" ;-- display expanded code information"
^XMB(3.9,5,2,1907,0)="""RTN"",""DGPTFMO"",61,0)"
^XMB(3.9,5,2,1908,0)=" S DG300=$S($D(^DGPT(D0,300)):^(300),1:"""") D:DG300]"""" PRN2^DGPTFM8 K DG300"
^XMB(3.9,5,2,1909,0)="""RTN"",""DGPTFMO"",62,0)"
^XMB(3.9,5,2,1910,0)=" D EN2^DGPTF4 Q"
^XMB(3.9,5,2,1911,0)="""RTN"",""DGPTFMO"",63,0)"
^XMB(3.9,5,2,1912,0)="Q Q"
^XMB(3.9,5,2,1913,0)="""RTN"",""DGPTFMO"",64,0)"
^XMB(3.9,5,2,1914,0)="Q1 K ^UTILITY(U,$J),DG1 Q"
^XMB(3.9,5,2,1915,0)="""RTN"",""DGPTFMO"",65,0)"
^XMB(3.9,5,2,1916,0)="DT I Y W $P(""JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC"",U,$E(Y,4,5)),"" "" W:Y#100 $J(Y#100\1,2),"","" W Y\10000+1700 W:Y#1 ""  "",$E(Y_0,9,10),"":"",$E(Y_""000"",11,12)"
^XMB(3.9,5,2,1917,0)="""RTN"",""DGPTFMO"",66,0)"
^XMB(3.9,5,2,1918,0)=" Q"
^XMB(3.9,5,2,1919,0)="""RTN"",""DGPTFMO"",67,0)"
^XMB(3.9,5,2,1920,0)="DSP S J=$$ICDDX^ICDCODE(+$P(K,U,I),DGPTDAT) I J&$P(J,U,10) D"
^XMB(3.9,5,2,1921,0)="""RTN"",""DGPTFMO"",68,0)"
^XMB(3.9,5,2,1922,0)=" .I I#2 W ?40,$P(J,U,4)_""(""_$P(J,U,2)_"")"" Q"
^XMB(3.9,5,2,1923,0)="""RTN"",""DGPTFMO"",69,0)"
^XMB(3.9,5,2,1924,0)=" .W !,$P(J,U,4)_""(""_$P(J,U,2)_"")"""
^XMB(3.9,5,2,1925,0)="""RTN"",""DGPTFMO"",70,0)"
^XMB(3.9,5,2,1926,0)=" Q"
^XMB(3.9,5,2,1927,0)="""VER"")"
^XMB(3.9,5,2,1928,0)="8.0^22.0"
^XMB(3.9,5,2,1929,0)="""^DD"",42,42,.017,0)"
^XMB(3.9,5,2,1930,0)="SPECIALTY^R*P42.4'X^DIC(42.4,^0;12^S DIC(""S"")=""I $G(Y)=80!$$ACTIVE^DGACT(42.4,Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^XMB(3.9,5,2,1931,0)="""^DD"",42,42,.017,3)"
^XMB(3.9,5,2,1932,0)="Enter this ward's PTF bedsection.  This must be an active treating specialty."
^XMB(3.9,5,2,1933,0)="""^DD"",42,42,.017,12)"
^XMB(3.9,5,2,1934,0)="Allows only active treating specialties."
^XMB(3.9,5,2,1935,0)="""^DD"",42,42,.017,12.1)"
^XMB(3.9,5,2,1936,0)="S DIC(""S"")=""I $G(Y)=80!$$ACTIVE^DGACT(42.4,Y)"""
^XMB(3.9,5,2,1937,0)="""^DD"",42,42,.017,21,0)"
^XMB(3.9,5,2,1938,0)="^^4^4^2910723^^"
^XMB(3.9,5,2,1939,0)="""^DD"",42,42,.017,21,1,0)"
^XMB(3.9,5,2,1940,0)="Enter the PTF specialty that this ward is assign to.  The specialty"
^XMB(3.9,5,2,1941,0)="""^DD"",42,42,.017,21,2,0)"
^XMB(3.9,5,2,1942,0)="and its CDR number will be transmitted to Austin as part of the N501"
^XMB(3.9,5,2,1943,0)="""^DD"",42,42,.017,21,3,0)"
^XMB(3.9,5,2,1944,0)="and N535 transactions.  This information is sent in the physcial"
^XMB(3.9,5,2,1945,0)="""^DD"",42,42,.017,21,4,0)"
^XMB(3.9,5,2,1946,0)="specialty and physcial CDR elements of those transactions."
^XMB(3.9,5,2,1947,0)="""^DD"",42,42,.017,""DT"")"
^XMB(3.9,5,2,1948,0)="3060307"
^XMB(3.9,5,2,1949,0)="""BLD"",6448,6)"
^XMB(3.9,5,2,1950,0)="^620"
^XMB(3.9,5,2,1951,0)="$END KID DG*5.3*683"
^XMB(3.9,5,6,0)="^3.911A^2^2"
^XMB(3.9,5,6,1,0)="POSTMASTER"
^XMB(3.9,5,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,5,6,"B","POSTMASTER",1)=""
^XMB(3.9,5,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,6,0)="DG-5P3_SEQ-621_PAT-700.KID^.5^3061008.01573^^^^K"
^XMB(3.9,6,.6)="3061008"
^XMB(3.9,6,1,0)="^3.91A^2^2"
^XMB(3.9,6,1,1,0)=".5^0^3061008.01573^^^^^^^3061008.01573"
^XMB(3.9,6,1,2,0)="1^0^3061008.023933^^^^^^^3061008.023933"
^XMB(3.9,6,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,6,1,"C",.5,1)=""
^XMB(3.9,6,1,"C",1,2)=""
^XMB(3.9,6,2,0)="^^1393^1393^3061008"
^XMB(3.9,6,2,1,0)="$TXT Released DG*5.3*700 SEQ #621"
^XMB(3.9,6,2,2,0)="Extracted from mail message"
^XMB(3.9,6,2,3,0)="$END TXT"
^XMB(3.9,6,2,4,0)="$KID DG*5.3*700"
^XMB(3.9,6,2,5,0)="**INSTALL NAME**"
^XMB(3.9,6,2,6,0)="DG*5.3*700"
^XMB(3.9,6,2,7,0)="""BLD"",6597,0)"
^XMB(3.9,6,2,8,0)="DG*5.3*700^REGISTRATION^0^3060313^y"
^XMB(3.9,6,2,9,0)="""BLD"",6597,1,0)"
^XMB(3.9,6,2,10,0)="^^3^3^3060312^"
^XMB(3.9,6,2,11,0)="""BLD"",6597,1,1,0)"
^XMB(3.9,6,2,12,0)="This patch updates the Multiple Birth Indicator and temporary address,"
^XMB(3.9,6,2,13,0)="""BLD"",6597,1,2,0)"
^XMB(3.9,6,2,14,0)="corrects a date validation API, updates the patient name components and"
^XMB(3.9,6,2,15,0)="""BLD"",6597,1,3,0)"
^XMB(3.9,6,2,16,0)="corrects the alias SSN."
^XMB(3.9,6,2,17,0)="""BLD"",6597,4,0)"
^XMB(3.9,6,2,18,0)="^9.64PA^^"
^XMB(3.9,6,2,19,0)="""BLD"",6597,""KRN"",0)"
^XMB(3.9,6,2,20,0)="^9.67PA^8989.52^19"
^XMB(3.9,6,2,21,0)="""BLD"",6597,""KRN"",.4,0)"
^XMB(3.9,6,2,22,0)=".4"
^XMB(3.9,6,2,23,0)="""BLD"",6597,""KRN"",.401,0)"
^XMB(3.9,6,2,24,0)=".401"
^XMB(3.9,6,2,25,0)="""BLD"",6597,""KRN"",.402,0)"
^XMB(3.9,6,2,26,0)=".402"
^XMB(3.9,6,2,27,0)="""BLD"",6597,""KRN"",.403,0)"
^XMB(3.9,6,2,28,0)=".403"
^XMB(3.9,6,2,29,0)="""BLD"",6597,""KRN"",.5,0)"
^XMB(3.9,6,2,30,0)=".5"
^XMB(3.9,6,2,31,0)="""BLD"",6597,""KRN"",.84,0)"
^XMB(3.9,6,2,32,0)=".84"
^XMB(3.9,6,2,33,0)="""BLD"",6597,""KRN"",3.6,0)"
^XMB(3.9,6,2,34,0)="3.6"
^XMB(3.9,6,2,35,0)="""BLD"",6597,""KRN"",3.8,0)"
^XMB(3.9,6,2,36,0)="3.8"
^XMB(3.9,6,2,37,0)="""BLD"",6597,""KRN"",9.2,0)"
^XMB(3.9,6,2,38,0)="9.2"
^XMB(3.9,6,2,39,0)="""BLD"",6597,""KRN"",9.8,0)"
^XMB(3.9,6,2,40,0)="9.8"
^XMB(3.9,6,2,41,0)="""BLD"",6597,""KRN"",9.8,""NM"",0)"
^XMB(3.9,6,2,42,0)="^9.68A^4^4"
^XMB(3.9,6,2,43,0)="""BLD"",6597,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,6,2,44,0)="DGRP1^^0^B23750245"
^XMB(3.9,6,2,45,0)="""BLD"",6597,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,6,2,46,0)="DGRPECE^^0^B48381081"
^XMB(3.9,6,2,47,0)="""BLD"",6597,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,6,2,48,0)="DGDDC^^0^B8687243"
^XMB(3.9,6,2,49,0)="""BLD"",6597,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,6,2,50,0)="DGMSTAPI^^0^B48586878"
^XMB(3.9,6,2,51,0)="""BLD"",6597,""KRN"",9.8,""NM"",""B"",""DGDDC"",3)"
^XMB(3.9,6,2,52,0)=""
^XMB(3.9,6,2,53,0)="""BLD"",6597,""KRN"",9.8,""NM"",""B"",""DGMSTAPI"",4)"
^XMB(3.9,6,2,54,0)=""
^XMB(3.9,6,2,55,0)="""BLD"",6597,""KRN"",9.8,""NM"",""B"",""DGRP1"",1)"
^XMB(3.9,6,2,56,0)=""
^XMB(3.9,6,2,57,0)="""BLD"",6597,""KRN"",9.8,""NM"",""B"",""DGRPECE"",2)"
^XMB(3.9,6,2,58,0)=""
^XMB(3.9,6,2,59,0)="""BLD"",6597,""KRN"",19,0)"
^XMB(3.9,6,2,60,0)="19"
^XMB(3.9,6,2,61,0)="""BLD"",6597,""KRN"",19.1,0)"
^XMB(3.9,6,2,62,0)="19.1"
^XMB(3.9,6,2,63,0)="""BLD"",6597,""KRN"",101,0)"
^XMB(3.9,6,2,64,0)="101"
^XMB(3.9,6,2,65,0)="""BLD"",6597,""KRN"",409.61,0)"
^XMB(3.9,6,2,66,0)="409.61"
^XMB(3.9,6,2,67,0)="""BLD"",6597,""KRN"",771,0)"
^XMB(3.9,6,2,68,0)="771"
^XMB(3.9,6,2,69,0)="""BLD"",6597,""KRN"",870,0)"
^XMB(3.9,6,2,70,0)="870"
^XMB(3.9,6,2,71,0)="""BLD"",6597,""KRN"",8989.51,0)"
^XMB(3.9,6,2,72,0)="8989.51"
^XMB(3.9,6,2,73,0)="""BLD"",6597,""KRN"",8989.52,0)"
^XMB(3.9,6,2,74,0)="8989.52"
^XMB(3.9,6,2,75,0)="""BLD"",6597,""KRN"",8994,0)"
^XMB(3.9,6,2,76,0)="8994"
^XMB(3.9,6,2,77,0)="""BLD"",6597,""KRN"",""B"",.4,.4)"
^XMB(3.9,6,2,78,0)=""
^XMB(3.9,6,2,79,0)="""BLD"",6597,""KRN"",""B"",.401,.401)"
^XMB(3.9,6,2,80,0)=""
^XMB(3.9,6,2,81,0)="""BLD"",6597,""KRN"",""B"",.402,.402)"
^XMB(3.9,6,2,82,0)=""
^XMB(3.9,6,2,83,0)="""BLD"",6597,""KRN"",""B"",.403,.403)"
^XMB(3.9,6,2,84,0)=""
^XMB(3.9,6,2,85,0)="""BLD"",6597,""KRN"",""B"",.5,.5)"
^XMB(3.9,6,2,86,0)=""
^XMB(3.9,6,2,87,0)="""BLD"",6597,""KRN"",""B"",.84,.84)"
^XMB(3.9,6,2,88,0)=""
^XMB(3.9,6,2,89,0)="""BLD"",6597,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,6,2,90,0)=""
^XMB(3.9,6,2,91,0)="""BLD"",6597,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,6,2,92,0)=""
^XMB(3.9,6,2,93,0)="""BLD"",6597,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,6,2,94,0)=""
^XMB(3.9,6,2,95,0)="""BLD"",6597,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,6,2,96,0)=""
^XMB(3.9,6,2,97,0)="""BLD"",6597,""KRN"",""B"",19,19)"
^XMB(3.9,6,2,98,0)=""
^XMB(3.9,6,2,99,0)="""BLD"",6597,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,6,2,100,0)=""
^XMB(3.9,6,2,101,0)="""BLD"",6597,""KRN"",""B"",101,101)"
^XMB(3.9,6,2,102,0)=""
^XMB(3.9,6,2,103,0)="""BLD"",6597,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,6,2,104,0)=""
^XMB(3.9,6,2,105,0)="""BLD"",6597,""KRN"",""B"",771,771)"
^XMB(3.9,6,2,106,0)=""
^XMB(3.9,6,2,107,0)="""BLD"",6597,""KRN"",""B"",870,870)"
^XMB(3.9,6,2,108,0)=""
^XMB(3.9,6,2,109,0)="""BLD"",6597,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,6,2,110,0)=""
^XMB(3.9,6,2,111,0)="""BLD"",6597,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,6,2,112,0)=""
^XMB(3.9,6,2,113,0)="""BLD"",6597,""KRN"",""B"",8994,8994)"
^XMB(3.9,6,2,114,0)=""
^XMB(3.9,6,2,115,0)="""BLD"",6597,""QUES"",0)"
^XMB(3.9,6,2,116,0)="^9.62^^"
^XMB(3.9,6,2,117,0)="""BLD"",6597,""REQB"",0)"
^XMB(3.9,6,2,118,0)="^9.611^4^4"
^XMB(3.9,6,2,119,0)="""BLD"",6597,""REQB"",1,0)"
^XMB(3.9,6,2,120,0)="DG*5.3*527^1"
^XMB(3.9,6,2,121,0)="""BLD"",6597,""REQB"",2,0)"
^XMB(3.9,6,2,122,0)="DG*5.3*649^1"
^XMB(3.9,6,2,123,0)="""BLD"",6597,""REQB"",3,0)"
^XMB(3.9,6,2,124,0)="DG*5.3*682^1"
^XMB(3.9,6,2,125,0)="""BLD"",6597,""REQB"",4,0)"
^XMB(3.9,6,2,126,0)="DG*5.3*443^1"
^XMB(3.9,6,2,127,0)="""BLD"",6597,""REQB"",""B"",""DG*5.3*443"",4)"
^XMB(3.9,6,2,128,0)=""
^XMB(3.9,6,2,129,0)="""BLD"",6597,""REQB"",""B"",""DG*5.3*527"",1)"
^XMB(3.9,6,2,130,0)=""
^XMB(3.9,6,2,131,0)="""BLD"",6597,""REQB"",""B"",""DG*5.3*649"",2)"
^XMB(3.9,6,2,132,0)=""
^XMB(3.9,6,2,133,0)="""BLD"",6597,""REQB"",""B"",""DG*5.3*682"",3)"
^XMB(3.9,6,2,134,0)=""
^XMB(3.9,6,2,135,0)="""MBREQ"")"
^XMB(3.9,6,2,136,0)="0"
^XMB(3.9,6,2,137,0)="""PKG"",5,-1)"
^XMB(3.9,6,2,138,0)="1^1"
^XMB(3.9,6,2,139,0)="""PKG"",5,0)"
^XMB(3.9,6,2,140,0)="REGISTRATION^DG^PATIENT REGISTRATION, ADMISSION, DISCHARGE, EMBOSSER "
^XMB(3.9,6,2,141,0)="""PKG"",5,20,0)"
^XMB(3.9,6,2,142,0)="^9.402P^^"
^XMB(3.9,6,2,143,0)="""PKG"",5,22,0)"
^XMB(3.9,6,2,144,0)="^9.49I^1^1"
^XMB(3.9,6,2,145,0)="""PKG"",5,22,1,0)"
^XMB(3.9,6,2,146,0)="5.3^2930813"
^XMB(3.9,6,2,147,0)="""PKG"",5,22,1,""PAH"",1,0)"
^XMB(3.9,6,2,148,0)="700^3060313^100850"
^XMB(3.9,6,2,149,0)="""PKG"",5,22,1,""PAH"",1,1,0)"
^XMB(3.9,6,2,150,0)="^^3^3^3060313"
^XMB(3.9,6,2,151,0)="""PKG"",5,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,6,2,152,0)="This patch updates the Multiple Birth Indicator and temporary address,"
^XMB(3.9,6,2,153,0)="""PKG"",5,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,6,2,154,0)="corrects a date validation API, updates the patient name components and"
^XMB(3.9,6,2,155,0)="""PKG"",5,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,6,2,156,0)="corrects the alias SSN."
^XMB(3.9,6,2,157,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,6,2,158,0)="Y"
^XMB(3.9,6,2,159,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,6,2,160,0)="^D REP^XPDH"
^XMB(3.9,6,2,161,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,6,2,162,0)="Shall I write over your |FLAG| File"
^XMB(3.9,6,2,163,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,6,2,164,0)="YES"
^XMB(3.9,6,2,165,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,6,2,166,0)="D XPF1^XPDIQ"
^XMB(3.9,6,2,167,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,6,2,168,0)="Y"
^XMB(3.9,6,2,169,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,6,2,170,0)="^D DTA^XPDH"
^XMB(3.9,6,2,171,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,6,2,172,0)="Want my data |FLAG| yours"
^XMB(3.9,6,2,173,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,6,2,174,0)="YES"
^XMB(3.9,6,2,175,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,6,2,176,0)="D XPF2^XPDIQ"
^XMB(3.9,6,2,177,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,6,2,178,0)="YO"
^XMB(3.9,6,2,179,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,6,2,180,0)="^D INHIBIT^XPDH"
^XMB(3.9,6,2,181,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,6,2,182,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,6,2,183,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,6,2,184,0)="YES"
^XMB(3.9,6,2,185,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,6,2,186,0)="D XPI1^XPDIQ"
^XMB(3.9,6,2,187,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,6,2,188,0)="PO^VA(200,:EM"
^XMB(3.9,6,2,189,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,6,2,190,0)="^D MG^XPDH"
^XMB(3.9,6,2,191,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,6,2,192,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,6,2,193,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,6,2,194,0)=""
^XMB(3.9,6,2,195,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,6,2,196,0)="D XPM1^XPDIQ"
^XMB(3.9,6,2,197,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,6,2,198,0)="Y"
^XMB(3.9,6,2,199,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,6,2,200,0)="^D MENU^XPDH"
^XMB(3.9,6,2,201,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,6,2,202,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,6,2,203,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,6,2,204,0)="YES"
^XMB(3.9,6,2,205,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,6,2,206,0)="D XPO1^XPDIQ"
^XMB(3.9,6,2,207,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,6,2,208,0)="Y"
^XMB(3.9,6,2,209,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,6,2,210,0)="^D OPT^XPDH"
^XMB(3.9,6,2,211,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,6,2,212,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,6,2,213,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,6,2,214,0)="YES"
^XMB(3.9,6,2,215,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,6,2,216,0)="D XPZ1^XPDIQ"
^XMB(3.9,6,2,217,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,6,2,218,0)="Y"
^XMB(3.9,6,2,219,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,6,2,220,0)="^D RTN^XPDH"
^XMB(3.9,6,2,221,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,6,2,222,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,6,2,223,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,6,2,224,0)="NO"
^XMB(3.9,6,2,225,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,6,2,226,0)="D XPZ2^XPDIQ"
^XMB(3.9,6,2,227,0)="""RTN"")"
^XMB(3.9,6,2,228,0)="4"
^XMB(3.9,6,2,229,0)="""RTN"",""DGDDC"")"
^XMB(3.9,6,2,230,0)="0^3^B8687243^B7666533"
^XMB(3.9,6,2,231,0)="""RTN"",""DGDDC"",1,0)"
^XMB(3.9,6,2,232,0)="DGDDC ;ALB/MRL - X-ECUTE KILL X-REFERENCES [PATIENT] ;25 JUL 88@1337"
^XMB(3.9,6,2,233,0)="""RTN"",""DGDDC"",2,0)"
^XMB(3.9,6,2,234,0)=" ;;5.3;Registration;**489,244,527,700**;Aug 13, 1993"
^XMB(3.9,6,2,235,0)="""RTN"",""DGDDC"",3,0)"
^XMB(3.9,6,2,236,0)=" ;"
^XMB(3.9,6,2,237,0)="""RTN"",""DGDDC"",4,0)"
^XMB(3.9,6,2,238,0)=" Q:$D(DGNOFDEL)  ;Flag variable to prevent deletion cascade"
^XMB(3.9,6,2,239,0)="""RTN"",""DGDDC"",5,0)"
^XMB(3.9,6,2,240,0)=" ;"
^XMB(3.9,6,2,241,0)="""RTN"",""DGDDC"",6,0)"
^XMB(3.9,6,2,242,0)=" Q:'$D(DGXRF)  N DGXRFX,DGXRF1,DGXRF2,DGXRF3,DGXRF3,DGXRF4,DGXRF5,DGXRF6,DGXRF7,DGXRF8,DGXRFP,DGXRFX"
^XMB(3.9,6,2,243,0)="""RTN"",""DGDDC"",7,0)"
^XMB(3.9,6,2,244,0)=" S DGXRFX=X,DGXRF1=+$P(DGXRF,""."",2),DGXRF2=$P($T(@DGXRF1),"";;"",2) G Q:DGXRF2="""""
^XMB(3.9,6,2,245,0)="""RTN"",""DGDDC"",8,0)"
^XMB(3.9,6,2,246,0)=" I $D(^DD(2,DGXRF,0)) S DGXRFP=$P(^(0),""^"",4),DGXRF6=$P(DGXRFP,"";"",2),DGXRF5=$P(DGXRFP,"";"",1) I $D(^DPT(DA,DGXRF5)),($P(^(DGXRF5),""^"",DGXRF6)=DGXRFX) G Q"
^XMB(3.9,6,2,247,0)="""RTN"",""DGDDC"",9,0)"
^XMB(3.9,6,2,248,0)=" I DGXRF="".1212"",($D(^DPT(DA,DGXRF5))),($P(^(DGXRF5),""^"",DGXRF6)="""") S DGFDA(2,DA_"","",.1213)="""" D FILE^DIE("""",""DGFDA"",""DGERR"") K DGFDA,DGERR G Q"
^XMB(3.9,6,2,249,0)="""RTN"",""DGDDC"",10,0)"
^XMB(3.9,6,2,250,0)=" N DGFDA,DGERR"
^XMB(3.9,6,2,251,0)="""RTN"",""DGDDC"",11,0)"
^XMB(3.9,6,2,252,0)=" ;F DGXRF3=1:1 S DGXRF4=$P(DGXRF2,""^"",DGXRF3) Q:DGXRF4=""""  I $D(^DD(2,DGXRF4,0)) S DGXRF5=$P(^(0),""^"",4),DGXRF6=$P(DGXRF5,"";"",2),DGXRF5=$P(DGXRF5,"";"",1) I $D(^DPT(DA,DGXRF5)),$P(^(DGXRF5),""^"",DGXRF6)'="""" D KILL"
^XMB(3.9,6,2,253,0)="""RTN"",""DGDDC"",12,0)"
^XMB(3.9,6,2,254,0)=" F DGXRF3=1:1 S DGXRF4=$P(DGXRF2,""^"",DGXRF3) Q:DGXRF4=""""  I $D(^DD(2,DGXRF4,0)) S DGXRF5=$P(^(0),""^"",4),DGXRF6=$P(DGXRF5,"";"",2),DGXRF5=$P(DGXRF5,"";"",1) I $D(^DPT(DA,DGXRF5)),$P(^(DGXRF5),""^"",DGXRF6)'="""",DGXRF4'="".1212"" D"
^XMB(3.9,6,2,255,0)="""RTN"",""DGDDC"",13,0)"
^XMB(3.9,6,2,256,0)=" .I DGXRF4'="".1213"" S DGFDA(2,DA_"","",DGXRF4)="""""
^XMB(3.9,6,2,257,0)="""RTN"",""DGDDC"",14,0)"
^XMB(3.9,6,2,258,0)=" I $D(DGFDA) D FILE^DIE("""",""DGFDA"",""DGERR"")"
^XMB(3.9,6,2,259,0)="""RTN"",""DGDDC"",15,0)"
^XMB(3.9,6,2,260,0)="Q S X=DGXRFX K DGXRF Q  ;,DGXRFX,DGXRF1,DGXRF2,DGXRF3,DGXRF3,DGXRF4,DGXRF5,DGXRF6,DGXRF7,DGXRF8,DGXRFP,DGXRFX Q"
^XMB(3.9,6,2,261,0)="""RTN"",""DGDDC"",16,0)"
^XMB(3.9,6,2,262,0)="KILL S DGXRF7=$P(^DPT(DA,DGXRF5),""^"",DGXRF6),$P(^DPT(DA,DGXRF5),""^"",DGXRF6)="""""
^XMB(3.9,6,2,263,0)="""RTN"",""DGDDC"",17,0)"
^XMB(3.9,6,2,264,0)=" F DGXRF8=0:0 S DGXRF8=$O(^DD(2,DGXRF4,1,DGXRF8)) Q:'DGXRF8  I $D(^DD(2,DGXRF4,1,DGXRF8,2)) S X=DGXRF7 X:^(2)'[""DGXRF"" ^(2) D SET I $D(^DD(2,DGXRF4,1,DGXRF8,1)) D SET"
^XMB(3.9,6,2,265,0)="""RTN"",""DGDDC"",18,0)"
^XMB(3.9,6,2,266,0)=" Q"
^XMB(3.9,6,2,267,0)="""RTN"",""DGDDC"",19,0)"
^XMB(3.9,6,2,268,0)="SET Q:^DD(2,DGXRF4,1,DGXRF8,1)'[""DGXRF""  S X="""" X ^(1) Q"
^XMB(3.9,6,2,269,0)="""RTN"",""DGDDC"",20,0)"
^XMB(3.9,6,2,270,0)=" ;"
^XMB(3.9,6,2,271,0)="""RTN"",""DGDDC"",21,0)"
^XMB(3.9,6,2,272,0)="152 ;;.1651^.1653^.1654^.1656^.307^"
^XMB(3.9,6,2,273,0)="""RTN"",""DGDDC"",22,0)"
^XMB(3.9,6,2,274,0)="153 ;;.1657^.1658^.1659^"
^XMB(3.9,6,2,275,0)="""RTN"",""DGDDC"",23,0)"
^XMB(3.9,6,2,276,0)="211 ;;.212^.2125^.213^.214^.215^.216^.217^.218^.219^.21011^.2207^"
^XMB(3.9,6,2,277,0)="""RTN"",""DGDDC"",24,0)"
^XMB(3.9,6,2,278,0)="2191 ;;.2192^.21925^.2193^.2194^.2195^.2196^.2197^.2198^.2199^.211011^.2203^"
^XMB(3.9,6,2,279,0)="""RTN"",""DGDDC"",25,0)"
^XMB(3.9,6,2,280,0)="251 ;;.252^.253^.254^.255^.256^.257^.258^.2206^"
^XMB(3.9,6,2,281,0)="""RTN"",""DGDDC"",26,0)"
^XMB(3.9,6,2,282,0)="3111 ;;.3113^.3114^.3115^.3116^.3117^.3118^.3119^.2205^"
^XMB(3.9,6,2,283,0)="""RTN"",""DGDDC"",27,0)"
^XMB(3.9,6,2,284,0)="331 ;;.332^.3305^.333^.334^.335^.336^.337^.338^.339^.33011^.2201^"
^XMB(3.9,6,2,285,0)="""RTN"",""DGDDC"",28,0)"
^XMB(3.9,6,2,286,0)="3311 ;;.3312^.3313^.3314^.3315^.3316^.3317^.3318^.3319^.331011^.2204^"
^XMB(3.9,6,2,287,0)="""RTN"",""DGDDC"",29,0)"
^XMB(3.9,6,2,288,0)="341 ;;.342^.3405^.343^.344^.345^.346^.347^.348^.349^.34011^.2202^"
^XMB(3.9,6,2,289,0)="""RTN"",""DGDDC"",30,0)"
^XMB(3.9,6,2,290,0)="3285 ;;.329^.3291^.3292^.3293^.3294^"
^XMB(3.9,6,2,291,0)="""RTN"",""DGDDC"",31,0)"
^XMB(3.9,6,2,292,0)="32945 ;;.3295^.3296^.3297^.3298^.3299^"
^XMB(3.9,6,2,293,0)="""RTN"",""DGDDC"",32,0)"
^XMB(3.9,6,2,294,0)="111 ;;.112^.113"
^XMB(3.9,6,2,295,0)="""RTN"",""DGDDC"",33,0)"
^XMB(3.9,6,2,296,0)="112 ;;.113"
^XMB(3.9,6,2,297,0)="""RTN"",""DGDDC"",34,0)"
^XMB(3.9,6,2,298,0)="12105 ;;.1217^.1218"
^XMB(3.9,6,2,299,0)="""RTN"",""DGDDC"",35,0)"
^XMB(3.9,6,2,300,0)="1211 ;;.1212^.1213"
^XMB(3.9,6,2,301,0)="""RTN"",""DGDDC"",36,0)"
^XMB(3.9,6,2,302,0)="1212 ;;.1213"
^XMB(3.9,6,2,303,0)="""RTN"",""DGDDC"",37,0)"
^XMB(3.9,6,2,304,0)="14105 ;;.1417^.1418"
^XMB(3.9,6,2,305,0)="""RTN"",""DGDDC"",38,0)"
^XMB(3.9,6,2,306,0)="1411 ;;.1412^.1413"
^XMB(3.9,6,2,307,0)="""RTN"",""DGDDC"",39,0)"
^XMB(3.9,6,2,308,0)="1412 ;;.1413"
^XMB(3.9,6,2,309,0)="""RTN"",""DGDDC"",40,0)"
^XMB(3.9,6,2,310,0)="213 ;;.214^.215"
^XMB(3.9,6,2,311,0)="""RTN"",""DGDDC"",41,0)"
^XMB(3.9,6,2,312,0)="214 ;;.215"
^XMB(3.9,6,2,313,0)="""RTN"",""DGDDC"",42,0)"
^XMB(3.9,6,2,314,0)="2193 ;;.2194^.2195"
^XMB(3.9,6,2,315,0)="""RTN"",""DGDDC"",43,0)"
^XMB(3.9,6,2,316,0)="2194 ;;.2195"
^XMB(3.9,6,2,317,0)="""RTN"",""DGDDC"",44,0)"
^XMB(3.9,6,2,318,0)="252 ;;.253^.254"
^XMB(3.9,6,2,319,0)="""RTN"",""DGDDC"",45,0)"
^XMB(3.9,6,2,320,0)="253 ;;.254"
^XMB(3.9,6,2,321,0)="""RTN"",""DGDDC"",46,0)"
^XMB(3.9,6,2,322,0)="3113 ;;.3114^.3115"
^XMB(3.9,6,2,323,0)="""RTN"",""DGDDC"",47,0)"
^XMB(3.9,6,2,324,0)="3114 ;;.3115"
^XMB(3.9,6,2,325,0)="""RTN"",""DGDDC"",48,0)"
^XMB(3.9,6,2,326,0)="3313 ;;.3314^.3315"
^XMB(3.9,6,2,327,0)="""RTN"",""DGDDC"",49,0)"
^XMB(3.9,6,2,328,0)="3314 ;;.3315"
^XMB(3.9,6,2,329,0)="""RTN"",""DGDDC"",50,0)"
^XMB(3.9,6,2,330,0)="333 ;;.334^.335"
^XMB(3.9,6,2,331,0)="""RTN"",""DGDDC"",51,0)"
^XMB(3.9,6,2,332,0)="334 ;;.335"
^XMB(3.9,6,2,333,0)="""RTN"",""DGDDC"",52,0)"
^XMB(3.9,6,2,334,0)="343 ;;.344^.345"
^XMB(3.9,6,2,335,0)="""RTN"",""DGDDC"",53,0)"
^XMB(3.9,6,2,336,0)="344 ;;.345"
^XMB(3.9,6,2,337,0)="""RTN"",""DGDDC"",54,0)"
^XMB(3.9,6,2,338,0)="361 ;;.3611"
^XMB(3.9,6,2,339,0)="""RTN"",""DGMSTAPI"")"
^XMB(3.9,6,2,340,0)="0^4^B48586878^B44462508"
^XMB(3.9,6,2,341,0)="""RTN"",""DGMSTAPI"",1,0)"
^XMB(3.9,6,2,342,0)="DGMSTAPI ;ALB/SCK - API's for Military Sexual Trauma ; 2/28/02 4:56pm"
^XMB(3.9,6,2,343,0)="""RTN"",""DGMSTAPI"",2,0)"
^XMB(3.9,6,2,344,0)=" ;;5.3;Registration;**195,243,308,353,379,443,700**;Aug 13, 1993"
^XMB(3.9,6,2,345,0)="""RTN"",""DGMSTAPI"",3,0)"
^XMB(3.9,6,2,346,0)=" Q"
^XMB(3.9,6,2,347,0)="""RTN"",""DGMSTAPI"",4,0)"
^XMB(3.9,6,2,348,0)=" ;"
^XMB(3.9,6,2,349,0)="""RTN"",""DGMSTAPI"",5,0)"
^XMB(3.9,6,2,350,0)="GETSTAT(DFN,DGDATE) ;  Retrieves the current MST status for a patient"
^XMB(3.9,6,2,351,0)="""RTN"",""DGMSTAPI"",6,0)"
^XMB(3.9,6,2,352,0)=" ;"
^XMB(3.9,6,2,353,0)="""RTN"",""DGMSTAPI"",7,0)"
^XMB(3.9,6,2,354,0)=" ;  Input"
^XMB(3.9,6,2,355,0)="""RTN"",""DGMSTAPI"",8,0)"
^XMB(3.9,6,2,356,0)=" ;    DFN  - IEN of patient in the PATIENT File (#2)"
^XMB(3.9,6,2,357,0)="""RTN"",""DGMSTAPI"",9,0)"
^XMB(3.9,6,2,358,0)=" ;    DGDATE - Date for status lookup [OPTIONAL]"
^XMB(3.9,6,2,359,0)="""RTN"",""DGMSTAPI"",10,0)"
^XMB(3.9,6,2,360,0)=" ;"
^XMB(3.9,6,2,361,0)="""RTN"",""DGMSTAPI"",11,0)"
^XMB(3.9,6,2,362,0)=" ;  Output"
^XMB(3.9,6,2,363,0)="""RTN"",""DGMSTAPI"",12,0)"
^XMB(3.9,6,2,364,0)=" ;    DGMST - Format will depend on result of lookup"
^XMB(3.9,6,2,365,0)="""RTN"",""DGMSTAPI"",13,0)"
^XMB(3.9,6,2,366,0)=" ;"
^XMB(3.9,6,2,367,0)="""RTN"",""DGMSTAPI"",14,0)"
^XMB(3.9,6,2,368,0)=" ;    If an entry is found then:"
^XMB(3.9,6,2,369,0)="""RTN"",""DGMSTAPI"",15,0)"
^XMB(3.9,6,2,370,0)=" ;       DGMST returns a 7 piece data string, caret(^)-delimited:"
^XMB(3.9,6,2,371,0)="""RTN"",""DGMSTAPI"",16,0)"
^XMB(3.9,6,2,372,0)=" ;        $P(1) = IEN of entry in MST HISTORY File (#29.11)"
^XMB(3.9,6,2,373,0)="""RTN"",""DGMSTAPI"",17,0)"
^XMB(3.9,6,2,374,0)=" ;        $P(2) = Internal value of MST Status (""Y,N,D,U"")"
^XMB(3.9,6,2,375,0)="""RTN"",""DGMSTAPI"",18,0)"
^XMB(3.9,6,2,376,0)=" ;        $P(3) = Date of status change"
^XMB(3.9,6,2,377,0)="""RTN"",""DGMSTAPI"",19,0)"
^XMB(3.9,6,2,378,0)=" ;        $P(4) = IEN of provider making determination, file (#200)"
^XMB(3.9,6,2,379,0)="""RTN"",""DGMSTAPI"",20,0)"
^XMB(3.9,6,2,380,0)=" ;        $P(5) = IEN of user who entered status, file (#200)"
^XMB(3.9,6,2,381,0)="""RTN"",""DGMSTAPI"",21,0)"
^XMB(3.9,6,2,382,0)=" ;        $P(6) = External format of MST Status"
^XMB(3.9,6,2,383,0)="""RTN"",""DGMSTAPI"",22,0)"
^XMB(3.9,6,2,384,0)=" ;        $P(7) = IEN pointer of the INSTITUTION file (#4)"
^XMB(3.9,6,2,385,0)="""RTN"",""DGMSTAPI"",23,0)"
^XMB(3.9,6,2,386,0)=" ;"
^XMB(3.9,6,2,387,0)="""RTN"",""DGMSTAPI"",24,0)"
^XMB(3.9,6,2,388,0)=" ;    If no MST History is found, then:"
^XMB(3.9,6,2,389,0)="""RTN"",""DGMSTAPI"",25,0)"
^XMB(3.9,6,2,390,0)=" ;       DGMST = 0^U"
^XMB(3.9,6,2,391,0)="""RTN"",""DGMSTAPI"",26,0)"
^XMB(3.9,6,2,392,0)=" ;                ""U"" = (Unknown)"
^XMB(3.9,6,2,393,0)="""RTN"",""DGMSTAPI"",27,0)"
^XMB(3.9,6,2,394,0)=" ;    If an error occured in the GETS^DIQ lookup, then:"
^XMB(3.9,6,2,395,0)="""RTN"",""DGMSTAPI"",28,0)"
^XMB(3.9,6,2,396,0)=" ;       DGMST = -1^^Error Code IEN"
^XMB(3.9,6,2,397,0)="""RTN"",""DGMSTAPI"",29,0)"
^XMB(3.9,6,2,398,0)=" ;                   (returned by GETS^DIQ call)"
^XMB(3.9,6,2,399,0)="""RTN"",""DGMSTAPI"",30,0)"
^XMB(3.9,6,2,400,0)=" ;"
^XMB(3.9,6,2,401,0)="""RTN"",""DGMSTAPI"",31,0)"
^XMB(3.9,6,2,402,0)=" ; Get most recent MST status entry for the patient from file using"
^XMB(3.9,6,2,403,0)="""RTN"",""DGMSTAPI"",32,0)"
^XMB(3.9,6,2,404,0)=" ;  reverse $Order on the ""APDT"" x-ref."
^XMB(3.9,6,2,405,0)="""RTN"",""DGMSTAPI"",33,0)"
^XMB(3.9,6,2,406,0)=" ;"
^XMB(3.9,6,2,407,0)="""RTN"",""DGMSTAPI"",34,0)"
^XMB(3.9,6,2,408,0)=" N DGMST,DGIEN,DGFDA,DGMSG"
^XMB(3.9,6,2,409,0)="""RTN"",""DGMSTAPI"",35,0)"
^XMB(3.9,6,2,410,0)=" S DFN=$G(DFN)"
^XMB(3.9,6,2,411,0)="""RTN"",""DGMSTAPI"",36,0)"
^XMB(3.9,6,2,412,0)=" I '+DFN!('$D(^DPT(DFN,0))) D  G STATQ"
^XMB(3.9,6,2,413,0)="""RTN"",""DGMSTAPI"",37,0)"
^XMB(3.9,6,2,414,0)=" . S DGMST=""-1"""
^XMB(3.9,6,2,415,0)="""RTN"",""DGMSTAPI"",38,0)"
^XMB(3.9,6,2,416,0)=" I '$D(^DGMS(29.11,""APDT"",DFN))  D  G STATQ"
^XMB(3.9,6,2,417,0)="""RTN"",""DGMSTAPI"",39,0)"
^XMB(3.9,6,2,418,0)=" .S DGMST=""0^U"""
^XMB(3.9,6,2,419,0)="""RTN"",""DGMSTAPI"",40,0)"
^XMB(3.9,6,2,420,0)=" S DGDATE=$S(+$G(DGDATE)>0:DGDATE,1:$$NOW^XLFDT)"
^XMB(3.9,6,2,421,0)="""RTN"",""DGMSTAPI"",41,0)"
^XMB(3.9,6,2,422,0)=" I '$D(^DGMS(29.11,""APDT"",DFN,DGDATE)) S DGDATE=$$DATE(DFN,DGDATE)"
^XMB(3.9,6,2,423,0)="""RTN"",""DGMSTAPI"",42,0)"
^XMB(3.9,6,2,424,0)=" I '+DGDATE D  G STATQ"
^XMB(3.9,6,2,425,0)="""RTN"",""DGMSTAPI"",43,0)"
^XMB(3.9,6,2,426,0)=" . S DGMST=""0^U"""
^XMB(3.9,6,2,427,0)="""RTN"",""DGMSTAPI"",44,0)"
^XMB(3.9,6,2,428,0)=" S DGIEN="""""
^XMB(3.9,6,2,429,0)="""RTN"",""DGMSTAPI"",45,0)"
^XMB(3.9,6,2,430,0)=" S DGIEN=+$P($Q(^DGMS(29.11,""APDT"",DFN,DGDATE,DGIEN),-1),"","",5)"
^XMB(3.9,6,2,431,0)="""RTN"",""DGMSTAPI"",46,0)"
^XMB(3.9,6,2,432,0)=" ;"
^XMB(3.9,6,2,433,0)="""RTN"",""DGMSTAPI"",47,0)"
^XMB(3.9,6,2,434,0)=" ; Check for valid ien, if entry missing, return Unknown"
^XMB(3.9,6,2,435,0)="""RTN"",""DGMSTAPI"",48,0)"
^XMB(3.9,6,2,436,0)=" I +DGIEN'>0 D  G STATQ"
^XMB(3.9,6,2,437,0)="""RTN"",""DGMSTAPI"",49,0)"
^XMB(3.9,6,2,438,0)=" . S DGMST=""0^U"""
^XMB(3.9,6,2,439,0)="""RTN"",""DGMSTAPI"",50,0)"
^XMB(3.9,6,2,440,0)=" ;"
^XMB(3.9,6,2,441,0)="""RTN"",""DGMSTAPI"",51,0)"
^XMB(3.9,6,2,442,0)=" ; Retrieve data"
^XMB(3.9,6,2,443,0)="""RTN"",""DGMSTAPI"",52,0)"
^XMB(3.9,6,2,444,0)=" D GETS^DIQ(29.11,+DGIEN_"","",""*"",""IE"",""DGFDA"",""DGMSG"")"
^XMB(3.9,6,2,445,0)="""RTN"",""DGMSTAPI"",53,0)"
^XMB(3.9,6,2,446,0)=" ; check for errors"
^XMB(3.9,6,2,447,0)="""RTN"",""DGMSTAPI"",54,0)"
^XMB(3.9,6,2,448,0)=" I $D(DGMSG) D  G STATQ"
^XMB(3.9,6,2,449,0)="""RTN"",""DGMSTAPI"",55,0)"
^XMB(3.9,6,2,450,0)=" .S DGMST=""-1^^""_$G(DGMSG(""DIERR"",1))"
^XMB(3.9,6,2,451,0)="""RTN"",""DGMSTAPI"",56,0)"
^XMB(3.9,6,2,452,0)=" ;"
^XMB(3.9,6,2,453,0)="""RTN"",""DGMSTAPI"",57,0)"
^XMB(3.9,6,2,454,0)=" S DGMST=DGIEN_U_$G(DGFDA(29.11,+DGIEN_"","",3,""I""))_U_$G(DGFDA(29.11,+DGIEN_"","",.01,""I""))_U_$G(DGFDA(29.11,+DGIEN_"","",4,""I""))_U_$G(DGFDA(29.11,+DGIEN_"","",5,""I""))"
^XMB(3.9,6,2,455,0)="""RTN"",""DGMSTAPI"",58,0)"
^XMB(3.9,6,2,456,0)=" S DGMST=DGMST_U_$G(DGFDA(29.11,+DGIEN_"","",3,""E""))"
^XMB(3.9,6,2,457,0)="""RTN"",""DGMSTAPI"",59,0)"
^XMB(3.9,6,2,458,0)=" S DGMST=DGMST_U_$S($G(DGFDA(29.11,+DGIEN_"","",6,""I""))]"""":$G(DGFDA(29.11,+DGIEN_"","",6,""I"")),1:$$SITE)"
^XMB(3.9,6,2,459,0)="""RTN"",""DGMSTAPI"",60,0)"
^XMB(3.9,6,2,460,0)=" ;"
^XMB(3.9,6,2,461,0)="""RTN"",""DGMSTAPI"",61,0)"
^XMB(3.9,6,2,462,0)="STATQ Q $G(DGMST)"
^XMB(3.9,6,2,463,0)="""RTN"",""DGMSTAPI"",62,0)"
^XMB(3.9,6,2,464,0)=" ;"
^XMB(3.9,6,2,465,0)="""RTN"",""DGMSTAPI"",63,0)"
^XMB(3.9,6,2,466,0)="NEWSTAT(DFN,DGSTAT,DGDATE,DGPROV,DGSITE,DGXMIT) ; MST HISTORY (#29.11) filer"
^XMB(3.9,6,2,467,0)="""RTN"",""DGMSTAPI"",64,0)"
^XMB(3.9,6,2,468,0)=" ; Callpoint to create a new MST HISTORY FILE (#29.11) entry."
^XMB(3.9,6,2,469,0)="""RTN"",""DGMSTAPI"",65,0)"
^XMB(3.9,6,2,470,0)=" ; Will also queue HL7 message for HEC database updates."
^XMB(3.9,6,2,471,0)="""RTN"",""DGMSTAPI"",66,0)"
^XMB(3.9,6,2,472,0)=" ;"
^XMB(3.9,6,2,473,0)="""RTN"",""DGMSTAPI"",67,0)"
^XMB(3.9,6,2,474,0)=" ;  Input"
^XMB(3.9,6,2,475,0)="""RTN"",""DGMSTAPI"",68,0)"
^XMB(3.9,6,2,476,0)=" ;    DFN    - Patients DFN"
^XMB(3.9,6,2,477,0)="""RTN"",""DGMSTAPI"",69,0)"
^XMB(3.9,6,2,478,0)=" ;    DGSTAT - MST Status code, ""Y,N,D,U"""
^XMB(3.9,6,2,479,0)="""RTN"",""DGMSTAPI"",70,0)"
^XMB(3.9,6,2,480,0)=" ;    DGDATE - Date of MST status change  [default=NOW]"
^XMB(3.9,6,2,481,0)="""RTN"",""DGMSTAPI"",71,0)"
^XMB(3.9,6,2,482,0)=" ;    DGPROV - IEN of Provider making determination, file (#200)"
^XMB(3.9,6,2,483,0)="""RTN"",""DGMSTAPI"",72,0)"
^XMB(3.9,6,2,484,0)=" ;    DGSITE - IEN pointer of the INSTITUTION file (#4)"
^XMB(3.9,6,2,485,0)="""RTN"",""DGMSTAPI"",73,0)"
^XMB(3.9,6,2,486,0)=" ;    DGXMIT - HL7 transmit flag [OPTIONAL]"
^XMB(3.9,6,2,487,0)="""RTN"",""DGMSTAPI"",74,0)"
^XMB(3.9,6,2,488,0)=" ;              0=don't queue a message"
^XMB(3.9,6,2,489,0)="""RTN"",""DGMSTAPI"",75,0)"
^XMB(3.9,6,2,490,0)=" ;              1=queue a message [default])"
^XMB(3.9,6,2,491,0)="""RTN"",""DGMSTAPI"",76,0)"
^XMB(3.9,6,2,492,0)=" ;"
^XMB(3.9,6,2,493,0)="""RTN"",""DGMSTAPI"",77,0)"
^XMB(3.9,6,2,494,0)=" ;  Output"
^XMB(3.9,6,2,495,0)="""RTN"",""DGMSTAPI"",78,0)"
^XMB(3.9,6,2,496,0)=" ;    DGRSLT - Returns IEN of file (#29.11) entry if successful"
^XMB(3.9,6,2,497,0)="""RTN"",""DGMSTAPI"",79,0)"
^XMB(3.9,6,2,498,0)=" ;"
^XMB(3.9,6,2,499,0)="""RTN"",""DGMSTAPI"",80,0)"
^XMB(3.9,6,2,500,0)=" ;    If no patient was defined, then:"
^XMB(3.9,6,2,501,0)="""RTN"",""DGMSTAPI"",81,0)"
^XMB(3.9,6,2,502,0)=" ;       DGRSLT = -1^No patient defined"
^XMB(3.9,6,2,503,0)="""RTN"",""DGMSTAPI"",82,0)"
^XMB(3.9,6,2,504,0)=" ;"
^XMB(3.9,6,2,505,0)="""RTN"",""DGMSTAPI"",83,0)"
^XMB(3.9,6,2,506,0)=" ;    If an error occured in the GETS^DIQ lookup, then:"
^XMB(3.9,6,2,507,0)="""RTN"",""DGMSTAPI"",84,0)"
^XMB(3.9,6,2,508,0)=" ;       DGMST = -1^^Error Code IEN"
^XMB(3.9,6,2,509,0)="""RTN"",""DGMSTAPI"",85,0)"
^XMB(3.9,6,2,510,0)=" ;                   (returned by GETS^DIQ call)"
^XMB(3.9,6,2,511,0)="""RTN"",""DGMSTAPI"",86,0)"
^XMB(3.9,6,2,512,0)=" ;"
^XMB(3.9,6,2,513,0)="""RTN"",""DGMSTAPI"",87,0)"
^XMB(3.9,6,2,514,0)=" N DGFDA,DGMSG,DGERR,DGRSLT,MSTIEN"
^XMB(3.9,6,2,515,0)="""RTN"",""DGMSTAPI"",88,0)"
^XMB(3.9,6,2,516,0)=" S DFN=$G(DFN)"
^XMB(3.9,6,2,517,0)="""RTN"",""DGMSTAPI"",89,0)"
^XMB(3.9,6,2,518,0)=" I DFN']""""!('$D(^DPT(DFN,0))) D  G NEWQ"
^XMB(3.9,6,2,519,0)="""RTN"",""DGMSTAPI"",90,0)"
^XMB(3.9,6,2,520,0)=" . S DGRSLT=""-1^No patient defined"""
^XMB(3.9,6,2,521,0)="""RTN"",""DGMSTAPI"",91,0)"
^XMB(3.9,6,2,522,0)=" ;"
^XMB(3.9,6,2,523,0)="""RTN"",""DGMSTAPI"",92,0)"
^XMB(3.9,6,2,524,0)=" S DGSTAT=$S($G(DGSTAT)]"""":DGSTAT,1:""U"")"
^XMB(3.9,6,2,525,0)="""RTN"",""DGMSTAPI"",93,0)"
^XMB(3.9,6,2,526,0)=" S DGDATE=$G(DGDATE)"
^XMB(3.9,6,2,527,0)="""RTN"",""DGMSTAPI"",94,0)"
^XMB(3.9,6,2,528,0)=" S DGPROV=$G(DGPROV)"
^XMB(3.9,6,2,529,0)="""RTN"",""DGMSTAPI"",95,0)"
^XMB(3.9,6,2,530,0)=" S DGSITE=$G(DGSITE)"
^XMB(3.9,6,2,531,0)="""RTN"",""DGMSTAPI"",96,0)"
^XMB(3.9,6,2,532,0)=" S DGXMIT=$S($G(DGXMIT)=0:DGXMIT,1:1)"
^XMB(3.9,6,2,533,0)="""RTN"",""DGMSTAPI"",97,0)"
^XMB(3.9,6,2,534,0)=" S DGDATE=$S(+DGDATE>0:DGDATE,1:$$NOW^XLFDT)"
^XMB(3.9,6,2,535,0)="""RTN"",""DGMSTAPI"",98,0)"
^XMB(3.9,6,2,536,0)=" S DGSITE=$S(+DGSITE>0:DGSITE,1:$$SITE)"
^XMB(3.9,6,2,537,0)="""RTN"",""DGMSTAPI"",99,0)"
^XMB(3.9,6,2,538,0)=" ;"
^XMB(3.9,6,2,539,0)="""RTN"",""DGMSTAPI"",100,0)"
^XMB(3.9,6,2,540,0)=" I '$$CHANGE(DFN,DGSTAT,DGDATE) D  G NEWQ"
^XMB(3.9,6,2,541,0)="""RTN"",""DGMSTAPI"",101,0)"
^XMB(3.9,6,2,542,0)=" . S DGRSLT=""0"""
^XMB(3.9,6,2,543,0)="""RTN"",""DGMSTAPI"",102,0)"
^XMB(3.9,6,2,544,0)=" ;"
^XMB(3.9,6,2,545,0)="""RTN"",""DGMSTAPI"",103,0)"
^XMB(3.9,6,2,546,0)=" I '$$VALID(DFN,DGSTAT,DGDATE,DGPROV,DGSITE,.DGERR) D  G NEWQ"
^XMB(3.9,6,2,547,0)="""RTN"",""DGMSTAPI"",104,0)"
^XMB(3.9,6,2,548,0)=" . S DGRSLT=""-1^""_DGERR"
^XMB(3.9,6,2,549,0)="""RTN"",""DGMSTAPI"",105,0)"
^XMB(3.9,6,2,550,0)=" ;"
^XMB(3.9,6,2,551,0)="""RTN"",""DGMSTAPI"",106,0)"
^XMB(3.9,6,2,552,0)=" S DGFDA(1,29.11,""+1,"",.01)=DGDATE"
^XMB(3.9,6,2,553,0)="""RTN"",""DGMSTAPI"",107,0)"
^XMB(3.9,6,2,554,0)=" S DGFDA(1,29.11,""+1,"",2)=DFN"
^XMB(3.9,6,2,555,0)="""RTN"",""DGMSTAPI"",108,0)"
^XMB(3.9,6,2,556,0)=" S DGFDA(1,29.11,""+1,"",3)=DGSTAT"
^XMB(3.9,6,2,557,0)="""RTN"",""DGMSTAPI"",109,0)"
^XMB(3.9,6,2,558,0)=" S DGFDA(1,29.11,""+1,"",4)=DGPROV"
^XMB(3.9,6,2,559,0)="""RTN"",""DGMSTAPI"",110,0)"
^XMB(3.9,6,2,560,0)=" S DGFDA(1,29.11,""+1,"",5)=DUZ"
^XMB(3.9,6,2,561,0)="""RTN"",""DGMSTAPI"",111,0)"
^XMB(3.9,6,2,562,0)=" S DGFDA(1,29.11,""+1,"",6)=DGSITE"
^XMB(3.9,6,2,563,0)="""RTN"",""DGMSTAPI"",112,0)"
^XMB(3.9,6,2,564,0)=" ;"
^XMB(3.9,6,2,565,0)="""RTN"",""DGMSTAPI"",113,0)"
^XMB(3.9,6,2,566,0)=" D UPDATE^DIE("""",""DGFDA(1)"",""MSTIEN"",""DGERR"")"
^XMB(3.9,6,2,567,0)="""RTN"",""DGMSTAPI"",114,0)"
^XMB(3.9,6,2,568,0)=" I $D(DGERR) D  G NEWQ"
^XMB(3.9,6,2,569,0)="""RTN"",""DGMSTAPI"",115,0)"
^XMB(3.9,6,2,570,0)=" . S DGRSLT=""-1^""_$G(DGERR(""DIERR"",1))"
^XMB(3.9,6,2,571,0)="""RTN"",""DGMSTAPI"",116,0)"
^XMB(3.9,6,2,572,0)=" ;"
^XMB(3.9,6,2,573,0)="""RTN"",""DGMSTAPI"",117,0)"
^XMB(3.9,6,2,574,0)=" S DGRSLT=+MSTIEN(1)"
^XMB(3.9,6,2,575,0)="""RTN"",""DGMSTAPI"",118,0)"
^XMB(3.9,6,2,576,0)=" ;"
^XMB(3.9,6,2,577,0)="""RTN"",""DGMSTAPI"",119,0)"
^XMB(3.9,6,2,578,0)=" ; Callpoint to queue an entry that will trigger a HEC"
^XMB(3.9,6,2,579,0)="""RTN"",""DGMSTAPI"",120,0)"
^XMB(3.9,6,2,580,0)=" ;  Enrollment Full Data Transmission (ORF/ORU~ZO7) HL7 message."
^XMB(3.9,6,2,581,0)="""RTN"",""DGMSTAPI"",121,0)"
^XMB(3.9,6,2,582,0)=" ; The HL7 message will contain the following three MST data elments"
^XMB(3.9,6,2,583,0)="""RTN"",""DGMSTAPI"",122,0)"
^XMB(3.9,6,2,584,0)=" ;  as part of the VA-Specific Eligibility ZEL segment:"
^XMB(3.9,6,2,585,0)="""RTN"",""DGMSTAPI"",123,0)"
^XMB(3.9,6,2,586,0)=" ;   (23) - MST STATUS"
^XMB(3.9,6,2,587,0)="""RTN"",""DGMSTAPI"",124,0)"
^XMB(3.9,6,2,588,0)=" ;   (24) - DATE MST STATUS CHANGED"
^XMB(3.9,6,2,589,0)="""RTN"",""DGMSTAPI"",125,0)"
^XMB(3.9,6,2,590,0)=" ;   (25) - SITE DETERMINING MST STATUS"
^XMB(3.9,6,2,591,0)="""RTN"",""DGMSTAPI"",126,0)"
^XMB(3.9,6,2,592,0)=" ;"
^XMB(3.9,6,2,593,0)="""RTN"",""DGMSTAPI"",127,0)"
^XMB(3.9,6,2,594,0)=" I DGXMIT D"
^XMB(3.9,6,2,595,0)="""RTN"",""DGMSTAPI"",128,0)"
^XMB(3.9,6,2,596,0)=" . D SEND^DGMSTL1(DFN,""Z07"")"
^XMB(3.9,6,2,597,0)="""RTN"",""DGMSTAPI"",129,0)"
^XMB(3.9,6,2,598,0)=" ;"
^XMB(3.9,6,2,599,0)="""RTN"",""DGMSTAPI"",130,0)"
^XMB(3.9,6,2,600,0)="NEWQ Q $G(DGRSLT)"
^XMB(3.9,6,2,601,0)="""RTN"",""DGMSTAPI"",131,0)"
^XMB(3.9,6,2,602,0)=" ;"
^XMB(3.9,6,2,603,0)="""RTN"",""DGMSTAPI"",132,0)"
^XMB(3.9,6,2,604,0)="DELMST(MSTIEN) ; Deletes the MST HISTORY File (#29.11) entry passed in.  "
^XMB(3.9,6,2,605,0)="""RTN"",""DGMSTAPI"",133,0)"
^XMB(3.9,6,2,606,0)=" ; This call is not to be used except from inside the DG MST List"
^XMB(3.9,6,2,607,0)="""RTN"",""DGMSTAPI"",134,0)"
^XMB(3.9,6,2,608,0)=" ; Manager interface.  "
^XMB(3.9,6,2,609,0)="""RTN"",""DGMSTAPI"",135,0)"
^XMB(3.9,6,2,610,0)=" ;"
^XMB(3.9,6,2,611,0)="""RTN"",""DGMSTAPI"",136,0)"
^XMB(3.9,6,2,612,0)=" ; Input"
^XMB(3.9,6,2,613,0)="""RTN"",""DGMSTAPI"",137,0)"
^XMB(3.9,6,2,614,0)=" ;    MSTIEN   - IEN of the entry in the MST HISTORY File (#29.11)"
^XMB(3.9,6,2,615,0)="""RTN"",""DGMSTAPI"",138,0)"
^XMB(3.9,6,2,616,0)=" ;"
^XMB(3.9,6,2,617,0)="""RTN"",""DGMSTAPI"",139,0)"
^XMB(3.9,6,2,618,0)=" ; Output"
^XMB(3.9,6,2,619,0)="""RTN"",""DGMSTAPI"",140,0)"
^XMB(3.9,6,2,620,0)=" ;    If no IEN passed in, return -1"
^XMB(3.9,6,2,621,0)="""RTN"",""DGMSTAPI"",141,0)"
^XMB(3.9,6,2,622,0)=" ;    otherwise return 1"
^XMB(3.9,6,2,623,0)="""RTN"",""DGMSTAPI"",142,0)"
^XMB(3.9,6,2,624,0)=" ;"
^XMB(3.9,6,2,625,0)="""RTN"",""DGMSTAPI"",143,0)"
^XMB(3.9,6,2,626,0)=" Q:'$G(MSTIEN) ""-1^No entry to delete"""
^XMB(3.9,6,2,627,0)="""RTN"",""DGMSTAPI"",144,0)"
^XMB(3.9,6,2,628,0)=" ;"
^XMB(3.9,6,2,629,0)="""RTN"",""DGMSTAPI"",145,0)"
^XMB(3.9,6,2,630,0)=" N DA,XD"
^XMB(3.9,6,2,631,0)="""RTN"",""DGMSTAPI"",146,0)"
^XMB(3.9,6,2,632,0)=" S DA=+$G(MSTIEN)"
^XMB(3.9,6,2,633,0)="""RTN"",""DGMSTAPI"",147,0)"
^XMB(3.9,6,2,634,0)=" S DIK=""^DGMS(29.11,"""
^XMB(3.9,6,2,635,0)="""RTN"",""DGMSTAPI"",148,0)"
^XMB(3.9,6,2,636,0)=" D ^DIK K DIK"
^XMB(3.9,6,2,637,0)="""RTN"",""DGMSTAPI"",149,0)"
^XMB(3.9,6,2,638,0)=" Q 1"
^XMB(3.9,6,2,639,0)="""RTN"",""DGMSTAPI"",150,0)"
^XMB(3.9,6,2,640,0)=" ;"
^XMB(3.9,6,2,641,0)="""RTN"",""DGMSTAPI"",151,0)"
^XMB(3.9,6,2,642,0)="NAME(DA) ; Returns name from the VA NEW PERSON File using DIQ call"
^XMB(3.9,6,2,643,0)="""RTN"",""DGMSTAPI"",152,0)"
^XMB(3.9,6,2,644,0)=" ;"
^XMB(3.9,6,2,645,0)="""RTN"",""DGMSTAPI"",153,0)"
^XMB(3.9,6,2,646,0)=" N DGNAME,DGPROV,DIQ,DR,DIC"
^XMB(3.9,6,2,647,0)="""RTN"",""DGMSTAPI"",154,0)"
^XMB(3.9,6,2,648,0)=" I $G(DA)="""" G NAMEQ"
^XMB(3.9,6,2,649,0)="""RTN"",""DGMSTAPI"",155,0)"
^XMB(3.9,6,2,650,0)=" S DIC=200,DR="".01"",DIQ=""DGPROV"""
^XMB(3.9,6,2,651,0)="""RTN"",""DGMSTAPI"",156,0)"
^XMB(3.9,6,2,652,0)=" D EN^DIQ1"
^XMB(3.9,6,2,653,0)="""RTN"",""DGMSTAPI"",157,0)"
^XMB(3.9,6,2,654,0)=" S DGNAME=$G(DGPROV(200,DA,.01))"
^XMB(3.9,6,2,655,0)="""RTN"",""DGMSTAPI"",158,0)"
^XMB(3.9,6,2,656,0)="NAMEQ Q $G(DGNAME)"
^XMB(3.9,6,2,657,0)="""RTN"",""DGMSTAPI"",159,0)"
^XMB(3.9,6,2,658,0)=" ;"
^XMB(3.9,6,2,659,0)="""RTN"",""DGMSTAPI"",160,0)"
^XMB(3.9,6,2,660,0)="CHANGE(DFN,DGSTAT,DGDATE) ;Did the Status OR Date change?"
^XMB(3.9,6,2,661,0)="""RTN"",""DGMSTAPI"",161,0)"
^XMB(3.9,6,2,662,0)=" ;  Input"
^XMB(3.9,6,2,663,0)="""RTN"",""DGMSTAPI"",162,0)"
^XMB(3.9,6,2,664,0)=" ;      DFN    - Patients DFN"
^XMB(3.9,6,2,665,0)="""RTN"",""DGMSTAPI"",163,0)"
^XMB(3.9,6,2,666,0)=" ;      DGSTAT - MST Status code, ""Y,N,D,U"""
^XMB(3.9,6,2,667,0)="""RTN"",""DGMSTAPI"",164,0)"
^XMB(3.9,6,2,668,0)=" ;      DGDATE - Date of MST Status Change (FM format)"
^XMB(3.9,6,2,669,0)="""RTN"",""DGMSTAPI"",165,0)"
^XMB(3.9,6,2,670,0)=" ;"
^XMB(3.9,6,2,671,0)="""RTN"",""DGMSTAPI"",166,0)"
^XMB(3.9,6,2,672,0)=" ;  Output"
^XMB(3.9,6,2,673,0)="""RTN"",""DGMSTAPI"",167,0)"
^XMB(3.9,6,2,674,0)=" ;      Returns 0 if no status change"
^XMB(3.9,6,2,675,0)="""RTN"",""DGMSTAPI"",168,0)"
^XMB(3.9,6,2,676,0)=" ;              1 if status changed"
^XMB(3.9,6,2,677,0)="""RTN"",""DGMSTAPI"",169,0)"
^XMB(3.9,6,2,678,0)=" ;"
^XMB(3.9,6,2,679,0)="""RTN"",""DGMSTAPI"",170,0)"
^XMB(3.9,6,2,680,0)=" N DGCHG,DGMST"
^XMB(3.9,6,2,681,0)="""RTN"",""DGMSTAPI"",171,0)"
^XMB(3.9,6,2,682,0)=" S DGCHG=0"
^XMB(3.9,6,2,683,0)="""RTN"",""DGMSTAPI"",172,0)"
^XMB(3.9,6,2,684,0)=" I +$G(DFN)'>0!('$D(^DPT(DFN,0))) G CHNGQ"
^XMB(3.9,6,2,685,0)="""RTN"",""DGMSTAPI"",173,0)"
^XMB(3.9,6,2,686,0)=" S DGSTAT=$G(DGSTAT)"
^XMB(3.9,6,2,687,0)="""RTN"",""DGMSTAPI"",174,0)"
^XMB(3.9,6,2,688,0)=" I DGSTAT'?1A!(""YNDU""'[DGSTAT) G CHNGQ"
^XMB(3.9,6,2,689,0)="""RTN"",""DGMSTAPI"",175,0)"
^XMB(3.9,6,2,690,0)=" S DGDATE=$G(DGDATE)"
^XMB(3.9,6,2,691,0)="""RTN"",""DGMSTAPI"",176,0)"
^XMB(3.9,6,2,692,0)=" I DGDATE="""" G CHNGQ"
^XMB(3.9,6,2,693,0)="""RTN"",""DGMSTAPI"",177,0)"
^XMB(3.9,6,2,694,0)=" S DGMST=$$GETSTAT(DFN),DGMST=$G(DGMST)"
^XMB(3.9,6,2,695,0)="""RTN"",""DGMSTAPI"",178,0)"
^XMB(3.9,6,2,696,0)=" I +DGMST<1!($P(DGMST,U,2)'=$G(DGSTAT))!($P(DGMST,U,3)'=$G(DGDATE)) S DGCHG=1"
^XMB(3.9,6,2,697,0)="""RTN"",""DGMSTAPI"",179,0)"
^XMB(3.9,6,2,698,0)="CHNGQ Q DGCHG"
^XMB(3.9,6,2,699,0)="""RTN"",""DGMSTAPI"",180,0)"
^XMB(3.9,6,2,700,0)=" ;"
^XMB(3.9,6,2,701,0)="""RTN"",""DGMSTAPI"",181,0)"
^XMB(3.9,6,2,702,0)="SITE(DGSITE) ;Convert a station number into a pointer to the"
^XMB(3.9,6,2,703,0)="""RTN"",""DGMSTAPI"",182,0)"
^XMB(3.9,6,2,704,0)=" ; INSTITUTION file (#4).  If called with a null parameter then"
^XMB(3.9,6,2,705,0)="""RTN"",""DGMSTAPI"",183,0)"
^XMB(3.9,6,2,706,0)=" ; the pointer to the INSTITUTION file (#4) of the primary site"
^XMB(3.9,6,2,707,0)="""RTN"",""DGMSTAPI"",184,0)"
^XMB(3.9,6,2,708,0)=" ; will be returned."
^XMB(3.9,6,2,709,0)="""RTN"",""DGMSTAPI"",185,0)"
^XMB(3.9,6,2,710,0)=" ;"
^XMB(3.9,6,2,711,0)="""RTN"",""DGMSTAPI"",186,0)"
^XMB(3.9,6,2,712,0)=" ;  Input"
^XMB(3.9,6,2,713,0)="""RTN"",""DGMSTAPI"",187,0)"
^XMB(3.9,6,2,714,0)=" ;    DGSITE - Station number (optional)"
^XMB(3.9,6,2,715,0)="""RTN"",""DGMSTAPI"",188,0)"
^XMB(3.9,6,2,716,0)=" ;"
^XMB(3.9,6,2,717,0)="""RTN"",""DGMSTAPI"",189,0)"
^XMB(3.9,6,2,718,0)=" ;  Output"
^XMB(3.9,6,2,719,0)="""RTN"",""DGMSTAPI"",190,0)"
^XMB(3.9,6,2,720,0)=" ;    Return Site IEN to INSTITUTION file (#4)"
^XMB(3.9,6,2,721,0)="""RTN"",""DGMSTAPI"",191,0)"
^XMB(3.9,6,2,722,0)=" ;"
^XMB(3.9,6,2,723,0)="""RTN"",""DGMSTAPI"",192,0)"
^XMB(3.9,6,2,724,0)=" S DGSITE=$G(DGSITE)"
^XMB(3.9,6,2,725,0)="""RTN"",""DGMSTAPI"",193,0)"
^XMB(3.9,6,2,726,0)=" I DGSITE]"""",$D(^DIC(4,""D"",DGSITE)) D"
^XMB(3.9,6,2,727,0)="""RTN"",""DGMSTAPI"",194,0)"
^XMB(3.9,6,2,728,0)=" . S DGSITE=$O(^DIC(4,""D"",DGSITE,0))"
^XMB(3.9,6,2,729,0)="""RTN"",""DGMSTAPI"",195,0)"
^XMB(3.9,6,2,730,0)=" E  D"
^XMB(3.9,6,2,731,0)="""RTN"",""DGMSTAPI"",196,0)"
^XMB(3.9,6,2,732,0)=" . S DGSITE=$P($$SITE^VASITE,U)"
^XMB(3.9,6,2,733,0)="""RTN"",""DGMSTAPI"",197,0)"
^XMB(3.9,6,2,734,0)=" I +DGSITE'>0 S DGSITE="""""
^XMB(3.9,6,2,735,0)="""RTN"",""DGMSTAPI"",198,0)"
^XMB(3.9,6,2,736,0)=" Q DGSITE"
^XMB(3.9,6,2,737,0)="""RTN"",""DGMSTAPI"",199,0)"
^XMB(3.9,6,2,738,0)=" ;"
^XMB(3.9,6,2,739,0)="""RTN"",""DGMSTAPI"",200,0)"
^XMB(3.9,6,2,740,0)="DATE(DFN,DGDT) ;Determine 'current' MST date"
^XMB(3.9,6,2,741,0)="""RTN"",""DGMSTAPI"",201,0)"
^XMB(3.9,6,2,742,0)=" ; "
^XMB(3.9,6,2,743,0)="""RTN"",""DGMSTAPI"",202,0)"
^XMB(3.9,6,2,744,0)=" ;  Input"
^XMB(3.9,6,2,745,0)="""RTN"",""DGMSTAPI"",203,0)"
^XMB(3.9,6,2,746,0)=" ;    DFN  - Patient's DFN"
^XMB(3.9,6,2,747,0)="""RTN"",""DGMSTAPI"",204,0)"
^XMB(3.9,6,2,748,0)=" ;    DGDT - FileMan format date"
^XMB(3.9,6,2,749,0)="""RTN"",""DGMSTAPI"",205,0)"
^XMB(3.9,6,2,750,0)=" ;"
^XMB(3.9,6,2,751,0)="""RTN"",""DGMSTAPI"",206,0)"
^XMB(3.9,6,2,752,0)=" ;  Output"
^XMB(3.9,6,2,753,0)="""RTN"",""DGMSTAPI"",207,0)"
^XMB(3.9,6,2,754,0)=" ;    Return MST effective date"
^XMB(3.9,6,2,755,0)="""RTN"",""DGMSTAPI"",208,0)"
^XMB(3.9,6,2,756,0)=" ;"
^XMB(3.9,6,2,757,0)="""RTN"",""DGMSTAPI"",209,0)"
^XMB(3.9,6,2,758,0)=" N DGMSTDT"
^XMB(3.9,6,2,759,0)="""RTN"",""DGMSTAPI"",210,0)"
^XMB(3.9,6,2,760,0)=" S DFN=$G(DFN)"
^XMB(3.9,6,2,761,0)="""RTN"",""DGMSTAPI"",211,0)"
^XMB(3.9,6,2,762,0)=" I '+DFN D  G DATEQ"
^XMB(3.9,6,2,763,0)="""RTN"",""DGMSTAPI"",212,0)"
^XMB(3.9,6,2,764,0)=" . S DGMSTDT="""""
^XMB(3.9,6,2,765,0)="""RTN"",""DGMSTAPI"",213,0)"
^XMB(3.9,6,2,766,0)=" S DGDT=$S(+$G(DGDT)>0:DGDT,1:$$NOW^XLFDT)"
^XMB(3.9,6,2,767,0)="""RTN"",""DGMSTAPI"",214,0)"
^XMB(3.9,6,2,768,0)=" I $P(DGDT,""."",2)="""" S DGDT=DGDT_"".999999"""
^XMB(3.9,6,2,769,0)="""RTN"",""DGMSTAPI"",215,0)"
^XMB(3.9,6,2,770,0)=" S DGMSTDT=$O(^DGMS(29.11,""APDT"",DFN,DGDT),-1)"
^XMB(3.9,6,2,771,0)="""RTN"",""DGMSTAPI"",216,0)"
^XMB(3.9,6,2,772,0)="DATEQ Q DGMSTDT"
^XMB(3.9,6,2,773,0)="""RTN"",""DGMSTAPI"",217,0)"
^XMB(3.9,6,2,774,0)=" ;"
^XMB(3.9,6,2,775,0)="""RTN"",""DGMSTAPI"",218,0)"
^XMB(3.9,6,2,776,0)="VALID(DFN,DGSTAT,DGDATE,DGPROV,DGSITE,DGERR) ;Validate fields before filing"
^XMB(3.9,6,2,777,0)="""RTN"",""DGMSTAPI"",219,0)"
^XMB(3.9,6,2,778,0)=" ; Input:"
^XMB(3.9,6,2,779,0)="""RTN"",""DGMSTAPI"",220,0)"
^XMB(3.9,6,2,780,0)=" ;      DFN - [REQUIRED] - ien of Patient"
^XMB(3.9,6,2,781,0)="""RTN"",""DGMSTAPI"",221,0)"
^XMB(3.9,6,2,782,0)=" ;   DGSTAT - [REQUIRED] - MST Status code, ""Y,N,D,U"""
^XMB(3.9,6,2,783,0)="""RTN"",""DGMSTAPI"",222,0)"
^XMB(3.9,6,2,784,0)=" ;   DGDATE - [REQUIRED] - Date of MST status change[FileMan Internal]"
^XMB(3.9,6,2,785,0)="""RTN"",""DGMSTAPI"",223,0)"
^XMB(3.9,6,2,786,0)=" ;   DGPROV - [optional] - IEN of Provider making determination"
^XMB(3.9,6,2,787,0)="""RTN"",""DGMSTAPI"",224,0)"
^XMB(3.9,6,2,788,0)=" ;   DGSITE - [optional] - IEN pointer of the INSTITUTION file"
^XMB(3.9,6,2,789,0)="""RTN"",""DGMSTAPI"",225,0)"
^XMB(3.9,6,2,790,0)=" ;    DGERR - [optional] - error parameter passed by reference"
^XMB(3.9,6,2,791,0)="""RTN"",""DGMSTAPI"",226,0)"
^XMB(3.9,6,2,792,0)=" ; Output:"
^XMB(3.9,6,2,793,0)="""RTN"",""DGMSTAPI"",227,0)"
^XMB(3.9,6,2,794,0)=" ;   Function Value - Returns 1 - if validation checks passed"
^XMB(3.9,6,2,795,0)="""RTN"",""DGMSTAPI"",228,0)"
^XMB(3.9,6,2,796,0)=" ;                            0 - if validation checks failed"
^XMB(3.9,6,2,797,0)="""RTN"",""DGMSTAPI"",229,0)"
^XMB(3.9,6,2,798,0)=" ;            DGERR - an error message if validation checks fail"
^XMB(3.9,6,2,799,0)="""RTN"",""DGMSTAPI"",230,0)"
^XMB(3.9,6,2,800,0)=" ; init variables"
^XMB(3.9,6,2,801,0)="""RTN"",""DGMSTAPI"",231,0)"
^XMB(3.9,6,2,802,0)=" N I,DGFILE,DGFLD,DGMSG,DGSTR,DGVAL,DGVAR,DGX,VALID"
^XMB(3.9,6,2,803,0)="""RTN"",""DGMSTAPI"",232,0)"
^XMB(3.9,6,2,804,0)=" S DGFILE=29.11,VALID=1,DGMSG="" IS REQUIRED"""
^XMB(3.9,6,2,805,0)="""RTN"",""DGMSTAPI"",233,0)"
^XMB(3.9,6,2,806,0)=" ; Quit DO block if invalid condition found"
^XMB(3.9,6,2,807,0)="""RTN"",""DGMSTAPI"",234,0)"
^XMB(3.9,6,2,808,0)=" ; Check for [REQUIRED] fields"
^XMB(3.9,6,2,809,0)="""RTN"",""DGMSTAPI"",235,0)"
^XMB(3.9,6,2,810,0)=" D"
^XMB(3.9,6,2,811,0)="""RTN"",""DGMSTAPI"",236,0)"
^XMB(3.9,6,2,812,0)=" . I DFN="""" D MSG(DGFILE,2,DGMSG,.DGERR) Q        ;pat ien"
^XMB(3.9,6,2,813,0)="""RTN"",""DGMSTAPI"",237,0)"
^XMB(3.9,6,2,814,0)=" . I DGSTAT="""" D MSG(DGFILE,3,DGMSG,.DGERR) Q     ;mst status code"
^XMB(3.9,6,2,815,0)="""RTN"",""DGMSTAPI"",238,0)"
^XMB(3.9,6,2,816,0)=" . I DGDATE="""" D MSG(DGFILE,.01,DGMSG,.DGERR) Q   ;dt chg status"
^XMB(3.9,6,2,817,0)="""RTN"",""DGMSTAPI"",239,0)"
^XMB(3.9,6,2,818,0)=" .;"
^XMB(3.9,6,2,819,0)="""RTN"",""DGMSTAPI"",240,0)"
^XMB(3.9,6,2,820,0)=" .; Check for valid FIELD values"
^XMB(3.9,6,2,821,0)="""RTN"",""DGMSTAPI"",241,0)"
^XMB(3.9,6,2,822,0)=" . S DGMSG="" IS NOT VALID"""
^XMB(3.9,6,2,823,0)="""RTN"",""DGMSTAPI"",242,0)"
^XMB(3.9,6,2,824,0)=" .; need to strip off the 'seconds' to pass the CHK^DIE() call..."
^XMB(3.9,6,2,825,0)="""RTN"",""DGMSTAPI"",243,0)"
^XMB(3.9,6,2,826,0)=" . I DGDATE[""."" N DGSECS S DGSECS=$E($P(DGDATE,""."",2),5,6) I DGSECS'="""" I DGSECS<0!(DGSECS>60) D MSG(DGFILE,.01,DGMSG,.DGERR) Q"
^XMB(3.9,6,2,827,0)="""RTN"",""DGMSTAPI"",244,0)"
^XMB(3.9,6,2,828,0)=" . N DGDATEX S DGDATEX=DGDATE"
^XMB(3.9,6,2,829,0)="""RTN"",""DGMSTAPI"",245,0)"
^XMB(3.9,6,2,830,0)=" . I DGDATEX[""."" S DGDATEX=$P(DGDATEX,""."")_"".""_$E($P(DGDATEX,""."",2),1,4)"
^XMB(3.9,6,2,831,0)="""RTN"",""DGMSTAPI"",246,0)"
^XMB(3.9,6,2,832,0)=" . I $E($P(DGDATEX,""."",2),1,4)=""0000"" S DGDATEX=$P(DGDATEX,""."")_"".1"""
^XMB(3.9,6,2,833,0)="""RTN"",""DGMSTAPI"",247,0)"
^XMB(3.9,6,2,834,0)=" . S DGSTR="".01;DGDATEX^2;DFN^3;DGSTAT^4;DGPROV^5;DUZ^6;DGSITE"""
^XMB(3.9,6,2,835,0)="""RTN"",""DGMSTAPI"",248,0)"
^XMB(3.9,6,2,836,0)=" .;"
^XMB(3.9,6,2,837,0)="""RTN"",""DGMSTAPI"",249,0)"
^XMB(3.9,6,2,838,0)=" . F I=1:1:$L(DGSTR,U) S DGX=$P(DGSTR,U,I) Q:DGX=""""  D  Q:'VALID"
^XMB(3.9,6,2,839,0)="""RTN"",""DGMSTAPI"",250,0)"
^XMB(3.9,6,2,840,0)=" .. S DGFLD=$P(DGX,"";""),DGVAR=$P(DGX,"";"",2),DGVAL=@DGVAR"
^XMB(3.9,6,2,841,0)="""RTN"",""DGMSTAPI"",251,0)"
^XMB(3.9,6,2,842,0)=" .. Q:DGVAL="""""
^XMB(3.9,6,2,843,0)="""RTN"",""DGMSTAPI"",252,0)"
^XMB(3.9,6,2,844,0)=" .. S VALID=$$TESTVAL(DGFILE,DGFLD,DGVAL)"
^XMB(3.9,6,2,845,0)="""RTN"",""DGMSTAPI"",253,0)"
^XMB(3.9,6,2,846,0)=" .. D:'VALID MSG(DGFILE,DGFLD,DGMSG,.DGERR)"
^XMB(3.9,6,2,847,0)="""RTN"",""DGMSTAPI"",254,0)"
^XMB(3.9,6,2,848,0)=" Q VALID"
^XMB(3.9,6,2,849,0)="""RTN"",""DGMSTAPI"",255,0)"
^XMB(3.9,6,2,850,0)=" ;"
^XMB(3.9,6,2,851,0)="""RTN"",""DGMSTAPI"",256,0)"
^XMB(3.9,6,2,852,0)="MSG(DGFIL,DGFLD,DGMSG,DGERR) ; error message setup"
^XMB(3.9,6,2,853,0)="""RTN"",""DGMSTAPI"",257,0)"
^XMB(3.9,6,2,854,0)=" ; Input:"
^XMB(3.9,6,2,855,0)="""RTN"",""DGMSTAPI"",258,0)"
^XMB(3.9,6,2,856,0)=" ;   DGFIL - file number"
^XMB(3.9,6,2,857,0)="""RTN"",""DGMSTAPI"",259,0)"
^XMB(3.9,6,2,858,0)=" ;   DGFLD - field number of file"
^XMB(3.9,6,2,859,0)="""RTN"",""DGMSTAPI"",260,0)"
^XMB(3.9,6,2,860,0)=" ;   DGMSG - message type verbiage - "" IS REQUIRED"" or "" IS NOT VALID"""
^XMB(3.9,6,2,861,0)="""RTN"",""DGMSTAPI"",261,0)"
^XMB(3.9,6,2,862,0)=" ;   DGERR - error parameter passed by reference"
^XMB(3.9,6,2,863,0)="""RTN"",""DGMSTAPI"",262,0)"
^XMB(3.9,6,2,864,0)=" ; Output:"
^XMB(3.9,6,2,865,0)="""RTN"",""DGMSTAPI"",263,0)"
^XMB(3.9,6,2,866,0)=" ;   DGERR - error message"
^XMB(3.9,6,2,867,0)="""RTN"",""DGMSTAPI"",264,0)"
^XMB(3.9,6,2,868,0)=" S DGERR=$$GET1^DID(DGFIL,DGFLD,,""LABEL"")_DGMSG"
^XMB(3.9,6,2,869,0)="""RTN"",""DGMSTAPI"",265,0)"
^XMB(3.9,6,2,870,0)=" Q"
^XMB(3.9,6,2,871,0)="""RTN"",""DGMSTAPI"",266,0)"
^XMB(3.9,6,2,872,0)=" ;"
^XMB(3.9,6,2,873,0)="""RTN"",""DGMSTAPI"",267,0)"
^XMB(3.9,6,2,874,0)="TESTVAL(DGFIL,DGFLD,DGVAL) ; Determine if a field value is valid."
^XMB(3.9,6,2,875,0)="""RTN"",""DGMSTAPI"",268,0)"
^XMB(3.9,6,2,876,0)=" ; Input:"
^XMB(3.9,6,2,877,0)="""RTN"",""DGMSTAPI"",269,0)"
^XMB(3.9,6,2,878,0)=" ;   DGFIL - file number"
^XMB(3.9,6,2,879,0)="""RTN"",""DGMSTAPI"",270,0)"
^XMB(3.9,6,2,880,0)=" ;   DGFLD - field number of file"
^XMB(3.9,6,2,881,0)="""RTN"",""DGMSTAPI"",271,0)"
^XMB(3.9,6,2,882,0)=" ;   DGVAL - field value to be validated"
^XMB(3.9,6,2,883,0)="""RTN"",""DGMSTAPI"",272,0)"
^XMB(3.9,6,2,884,0)=" ; Output:"
^XMB(3.9,6,2,885,0)="""RTN"",""DGMSTAPI"",273,0)"
^XMB(3.9,6,2,886,0)=" ;   Function value: Returns 1 if field is valid"
^XMB(3.9,6,2,887,0)="""RTN"",""DGMSTAPI"",274,0)"
^XMB(3.9,6,2,888,0)=" ;                           0 if validation fails"
^XMB(3.9,6,2,889,0)="""RTN"",""DGMSTAPI"",275,0)"
^XMB(3.9,6,2,890,0)=" N DGVALEX,DGRSLT,VALID"
^XMB(3.9,6,2,891,0)="""RTN"",""DGMSTAPI"",276,0)"
^XMB(3.9,6,2,892,0)=" S VALID=1"
^XMB(3.9,6,2,893,0)="""RTN"",""DGMSTAPI"",277,0)"
^XMB(3.9,6,2,894,0)=" I DGVAL'="""" D"
^XMB(3.9,6,2,895,0)="""RTN"",""DGMSTAPI"",278,0)"
^XMB(3.9,6,2,896,0)=" . S DGVALEX=$$EXTERNAL^DILFD(DGFIL,DGFLD,""F"",DGVAL)"
^XMB(3.9,6,2,897,0)="""RTN"",""DGMSTAPI"",279,0)"
^XMB(3.9,6,2,898,0)=" . I DGVALEX="""" S VALID=0 Q   ; no external value, not valid"
^XMB(3.9,6,2,899,0)="""RTN"",""DGMSTAPI"",280,0)"
^XMB(3.9,6,2,900,0)=" . I $$GET1^DID(DGFIL,DGFLD,"""",""TYPE"")'=""POINTER"" D"
^XMB(3.9,6,2,901,0)="""RTN"",""DGMSTAPI"",281,0)"
^XMB(3.9,6,2,902,0)=" .. D CHK^DIE(DGFIL,DGFLD,,DGVALEX,.DGRSLT) I DGRSLT=""^"" S VALID=0"
^XMB(3.9,6,2,903,0)="""RTN"",""DGMSTAPI"",282,0)"
^XMB(3.9,6,2,904,0)=" Q VALID"
^XMB(3.9,6,2,905,0)="""RTN"",""DGRP1"")"
^XMB(3.9,6,2,906,0)="0^1^B23750245^B22435111"
^XMB(3.9,6,2,907,0)="""RTN"",""DGRP1"",1,0)"
^XMB(3.9,6,2,908,0)="DGRP1 ;ALB/MRL - DEMOGRAPHIC DATA ; 4/27/05 10:53am"
^XMB(3.9,6,2,909,0)="""RTN"",""DGRP1"",2,0)"
^XMB(3.9,6,2,910,0)=" ;;5.3;Registration;**109,161,506,244,546,570,629,638,649,700**;Aug 13, 1993"
^XMB(3.9,6,2,911,0)="""RTN"",""DGRP1"",3,0)"
^XMB(3.9,6,2,912,0)=" ;"
^XMB(3.9,6,2,913,0)="""RTN"",""DGRP1"",4,0)"
^XMB(3.9,6,2,914,0)="EN S (DGRPS,DGRPW)=1 D H^DGRPU F I=0,.11,.121,.13,.15,.24,57 S DGRP(I)=$S($D(^DPT(DFN,I)):^(I),1:"""")"
^XMB(3.9,6,2,915,0)="""RTN"",""DGRP1"",5,0)"
^XMB(3.9,6,2,916,0)=" I $P(DGRP(.15),""^"",2)]"""" S Z=""APPLICANT IS LISTED AS 'INELIGIBLE' FOR TREATMENT!"",DGRPCM=1 D WW^DGRPV S DGRPCM=0"
^XMB(3.9,6,2,917,0)="""RTN"",""DGRP1"",6,0)"
^XMB(3.9,6,2,918,0)=" ;I $P(DGRP(.15),""^"",3)]"""" S Z=""APPLICANT IS LISTED AS 'MISSING'.  NOTIFY APPROPRIATE PERSONNEL!"",DGRPCM=1 D WW^DGRPV S DGRPCM=0"
^XMB(3.9,6,2,919,0)="""RTN"",""DGRP1"",7,0)"
^XMB(3.9,6,2,920,0)=" W ! S Z=1 D WW^DGRPV W ""    Name: "" S Z=$P(DGRP(0),""^"",1),Z1=31 D WW1^DGRPV W ""SS: "" S X=$P(DGRP(0),""^"",9),Z=$E(X,1,3)_""-""_$E(X,4,5)_""-""_$E(X,6,10),Z1=13 D WW1^DGRPV S Y=$P(DGRP(0),""^"",3) X ^DD(""DD"") W ""DOB: "",Y"
^XMB(3.9,6,2,921,0)="""RTN"",""DGRP1"",8,0)"
^XMB(3.9,6,2,922,0)=" D GETNCAL  ;Display name component, sex, and alias information"
^XMB(3.9,6,2,923,0)="""RTN"",""DGRP1"",9,0)"
^XMB(3.9,6,2,924,0)=" S Z=3,DGRPX=DGRP(0) D WW^DGRPV W "" Remarks: "",$S($P(DGRPX,""^"",10)]"""":$E($P(DGRPX,""^"",10),1,65),1:""NO REMARKS ENTERED FOR THIS PATIENT"") S DGAD=.11,(DGA1,DGA2)=1 D A^DGRPU I $P(DGRP(.121),""^"",9)=""Y"" S DGAD=.121,DGA1=1,DGA2=2 D A^DGRPU"
^XMB(3.9,6,2,925,0)="""RTN"",""DGRP1"",10,0)"
^XMB(3.9,6,2,926,0)=" S Z=4 D WW^DGRPV W "" Permanent Address: "" S Z="" "",Z1=17"
^XMB(3.9,6,2,927,0)="""RTN"",""DGRP1"",11,0)"
^XMB(3.9,6,2,928,0)=" D WW1^DGRPV S Z=5,DGRPW=0 D WW^DGRPV W "" Temporary Address: """
^XMB(3.9,6,2,929,0)="""RTN"",""DGRP1"",12,0)"
^XMB(3.9,6,2,930,0)=" W !?11"
^XMB(3.9,6,2,931,0)="""RTN"",""DGRP1"",13,0)"
^XMB(3.9,6,2,932,0)=" S Z1=40,Z=$S($D(DGA(1)):DGA(1),1:""NONE ON FILE"") D WW1^DGRPV W $S($D(DGA(2)):DGA(2),1:""NO TEMPORARY ADDRESS"")"
^XMB(3.9,6,2,933,0)="""RTN"",""DGRP1"",14,0)"
^XMB(3.9,6,2,934,0)=" S I=2 F I1=0:0 S I=$O(DGA(I)) Q:I=""""  W:(I#2)!($X>50) !?11 W:'(I#2) ?51 W DGA(I)"
^XMB(3.9,6,2,935,0)="""RTN"",""DGRP1"",15,0)"
^XMB(3.9,6,2,936,0)=" S DGCC=$S($D(^DIC(5,+$P(DGRP(.11),U,5),1,+$P(DGRP(.11),U,7),0)):$E($P(^(0),U,1),1,20)_$S($P(^(0),U,3)]"""":"" (""_$P(^(0),U,3)_"")"",1:""""),1:DGRPU) W !?3,""County: "",DGCC K DGCC"
^XMB(3.9,6,2,937,0)="""RTN"",""DGRP1"",16,0)"
^XMB(3.9,6,2,938,0)=" S DGCC=$S($P(DGRP(.121),U,9)'=""Y"":""NOT APPLICABLE"",$D(^DIC(5,+$P(DGRP(.121),U,5),1,+$P(DGRP(.121),U,11),0)):$E($P(^(0),U,1),1,20)_$S($P(^(0),U,3)]"""":"" (""_$P(^(0),U,3)_"")"",1:""""),1:DGRPU) W ?43,""County: "",DGCC K DGCC"
^XMB(3.9,6,2,939,0)="""RTN"",""DGRP1"",17,0)"
^XMB(3.9,6,2,940,0)=" W !?4,""Phone: "",$S($P(DGRP(.13),U,1)]"""":$P(DGRP(.13),U,1),1:DGRPU),?44,""Phone: "",$S($P(DGRP(.121),U,9)'=""Y"":""NOT APPLICABLE"",$P(DGRP(.121),U,10)]"""":$P(DGRP(.121),U,10),1:DGRPU)"
^XMB(3.9,6,2,941,0)="""RTN"",""DGRP1"",18,0)"
^XMB(3.9,6,2,942,0)=" S X=""NOT APPLICABLE"" I $P(DGRP(.121),U,9)=""Y"" S Y=$P(DGRP(.121),U,7) X:Y]"""" ^DD(""DD"") S X=$S(Y]"""":Y,1:DGRPU)_""-"",Y=$P(DGRP(.121),U,8) X:Y]"""" ^DD(""DD"") S X=X_$S(Y]"""":Y,1:DGRPU)"
^XMB(3.9,6,2,943,0)="""RTN"",""DGRP1"",19,0)"
^XMB(3.9,6,2,944,0)=" W !?3,""Office: "",$S($P(DGRP(.13),U,2)]"""":$P(DGRP(.13),U,2),1:DGRPU),?42,""From/To: "",X"
^XMB(3.9,6,2,945,0)="""RTN"",""DGRP1"",20,0)"
^XMB(3.9,6,2,946,0)=" W !?1,""Bad Addr: "",$$EXTERNAL^DILFD(2,.121,"""",$P(DGRP(.11),U,16))"
^XMB(3.9,6,2,947,0)="""RTN"",""DGRP1"",21,0)"
^XMB(3.9,6,2,948,0)=" ;"
^XMB(3.9,6,2,949,0)="""RTN"",""DGRP1"",22,0)"
^XMB(3.9,6,2,950,0)=" ; ***  Additional displays added for Pre-Registration"
^XMB(3.9,6,2,951,0)="""RTN"",""DGRP1"",23,0)"
^XMB(3.9,6,2,952,0)=" I $G(DGPRFLG)=1 D"
^XMB(3.9,6,2,953,0)="""RTN"",""DGRP1"",24,0)"
^XMB(3.9,6,2,954,0)=" . W !"
^XMB(3.9,6,2,955,0)="""RTN"",""DGRP1"",25,0)"
^XMB(3.9,6,2,956,0)=" . N I,MIS1,X,X1,SA1,TP1,X2,X3,ES1"
^XMB(3.9,6,2,957,0)="""RTN"",""DGRP1"",26,0)"
^XMB(3.9,6,2,958,0)=" . I $D(^DIA(2,""B"",DFN)) S X="""" F I=1:1 S X=$O(^DIA(2,""B"",DFN,X)) Q:X<1  I $P(^DIA(2,X,0),U,3)=.05 S MIS1=$P(^DIA(2,X,0),U,2)"
^XMB(3.9,6,2,959,0)="""RTN"",""DGRP1"",27,0)"
^XMB(3.9,6,2,960,0)=" . W:$D(MIS1)>0 !,"" [MARITAL STATUS CHANGED:] ""_$$FMTE^XLFDT(MIS1,""5D"")"
^XMB(3.9,6,2,961,0)="""RTN"",""DGRP1"",28,0)"
^XMB(3.9,6,2,962,0)=" . I $D(^DIA(2,""B"",DFN)) S X1="""" F I=1:1 S X1=$O(^DIA(2,""B"",DFN,X1)) Q:X1<1  S:$P(^DIA(2,X1,0),U,3)=.111 SA1=$P(^DIA(2,X1,0),U,2)"
^XMB(3.9,6,2,963,0)="""RTN"",""DGRP1"",29,0)"
^XMB(3.9,6,2,964,0)=" . W:$D(SA1)>0 !,"" [STREET ADDRESS LAST CHANGED:] ""_$$FMTE^XLFDT(SA1,""5D"")"
^XMB(3.9,6,2,965,0)="""RTN"",""DGRP1"",30,0)"
^XMB(3.9,6,2,966,0)=" . I $D(^DIA(2,""B"",DFN)) S X2="""" F I=1:1 S X2=$O(^DIA(2,""B"",DFN,X2)) Q:X2<1  S:$P(^DIA(2,X2,0),U,3)=.131 TP1=$P(^DIA(2,X2,0),U,2)"
^XMB(3.9,6,2,967,0)="""RTN"",""DGRP1"",31,0)"
^XMB(3.9,6,2,968,0)=" . W:$D(TP1)>0 !,"" [HOME PHONE NUMBER CHANGED:] ""_$$FMTE^XLFDT(TP1,""5D"")"
^XMB(3.9,6,2,969,0)="""RTN"",""DGRP1"",32,0)"
^XMB(3.9,6,2,970,0)=" . I $D(^DIA(2,""B"",DFN)) S X3="""" F I=1:1 S X3=$O(^DIA(2,""B"",DFN,X3)) Q:X3<1  S:$P(^DIA(2,X3,0),U,3)=.31115 ES1=$P(^DIA(2,X3,0),U,2)"
^XMB(3.9,6,2,971,0)="""RTN"",""DGRP1"",33,0)"
^XMB(3.9,6,2,972,0)=" . W:$D(ES1)>0 !,"" [EMPLOYMENT STATUS CHANGED:] ""_$$FMTE^XLFDT(ES1,""5D"")"
^XMB(3.9,6,2,973,0)="""RTN"",""DGRP1"",34,0)"
^XMB(3.9,6,2,974,0)=" . ; The IB Insurance API does not provide date entered or edited information, so this information will not be displayed for preregistration"
^XMB(3.9,6,2,975,0)="""RTN"",""DGRP1"",35,0)"
^XMB(3.9,6,2,976,0)=" . I $$INSUR^IBBAPI(DFN,"""",""AR"",.DGDATA,""1,10,11"") F DGI=0:0 S DGI=$O(DGDATA(""IBBAPI"",""INSUR"",DGI)) Q:'DGI  D"
^XMB(3.9,6,2,977,0)="""RTN"",""DGRP1"",36,0)"
^XMB(3.9,6,2,978,0)=" .. W !,"" [INSURANCE:] "",$P(DGDATA(""IBBAPI"",""INSUR"",DGI,1),U,2)"
^XMB(3.9,6,2,979,0)="""RTN"",""DGRP1"",37,0)"
^XMB(3.9,6,2,980,0)=" .. W ""  EFFECTIVE DATE: "",$$FMTE^XLFDT(DGDATA(""IBBAPI"",""INSUR"",DGI,10),""5D""),""  EXPIRATION DATE: "",$$FMTE^XLFDT(DGDATA(""IBBAPI"",""INSUR"",DGI,11),""5D"")"
^XMB(3.9,6,2,981,0)="""RTN"",""DGRP1"",38,0)"
^XMB(3.9,6,2,982,0)=" ;"
^XMB(3.9,6,2,983,0)="""RTN"",""DGRP1"",39,0)"
^XMB(3.9,6,2,984,0)=" G ^DGRPP"
^XMB(3.9,6,2,985,0)="""RTN"",""DGRP1"",40,0)"
^XMB(3.9,6,2,986,0)=" ;"
^XMB(3.9,6,2,987,0)="""RTN"",""DGRP1"",41,0)"
^XMB(3.9,6,2,988,0)="GETNCAL ;Get name component values"
^XMB(3.9,6,2,989,0)="""RTN"",""DGRP1"",42,0)"
^XMB(3.9,6,2,990,0)=" N DGCOMP,DGNC,DGI,DGA,DGALIAS,DGX,DGRPW"
^XMB(3.9,6,2,991,0)="""RTN"",""DGRP1"",43,0)"
^XMB(3.9,6,2,992,0)=" S DGNC=""Family^Given^Middle^Prefix^Suffix^Degree"""
^XMB(3.9,6,2,993,0)="""RTN"",""DGRP1"",44,0)"
^XMB(3.9,6,2,994,0)=" S DGCOMP=+$G(^DPT(DFN,""NAME""))_"","""
^XMB(3.9,6,2,995,0)="""RTN"",""DGRP1"",45,0)"
^XMB(3.9,6,2,996,0)=" I DGCOMP D GETS^DIQ(20,DGCOMP,""1:6"",,""DGCOMP"")"
^XMB(3.9,6,2,997,0)="""RTN"",""DGRP1"",46,0)"
^XMB(3.9,6,2,998,0)=" ;Get alias values"
^XMB(3.9,6,2,999,0)="""RTN"",""DGRP1"",47,0)"
^XMB(3.9,6,2,1000,0)=" S DGA=0 F DGI=1:1:5 D  Q:'$D(DGALIAS(DGI))"
^XMB(3.9,6,2,1001,0)="""RTN"",""DGRP1"",48,0)"
^XMB(3.9,6,2,1002,0)="A2 .S DGA=$O(^DPT(DFN,.01,DGA))"
^XMB(3.9,6,2,1003,0)="""RTN"",""DGRP1"",49,0)"
^XMB(3.9,6,2,1004,0)=" .I 'DGA D:DGI=1  Q"
^XMB(3.9,6,2,1005,0)="""RTN"",""DGRP1"",50,0)"
^XMB(3.9,6,2,1006,0)=" ..S DGALIAS(DGI)=""< No alias entries on file >"" Q"
^XMB(3.9,6,2,1007,0)="""RTN"",""DGRP1"",51,0)"
^XMB(3.9,6,2,1008,0)=" .I DGI=5 S DGALIAS(DGI)=""< More alias entries on file >"" Q"
^XMB(3.9,6,2,1009,0)="""RTN"",""DGRP1"",52,0)"
^XMB(3.9,6,2,1010,0)=" .S DGX=$G(^DPT(DFN,.01,DGA,0)) G:'$L(DGX) A2"
^XMB(3.9,6,2,1011,0)="""RTN"",""DGRP1"",53,0)"
^XMB(3.9,6,2,1012,0)=" .S DGALIAS(DGI)=$P(DGX,U),DGX=$P(DGX,U,2)"
^XMB(3.9,6,2,1013,0)="""RTN"",""DGRP1"",54,0)"
^XMB(3.9,6,2,1014,0)=" .I $L(DGX) D"
^XMB(3.9,6,2,1015,0)="""RTN"",""DGRP1"",55,0)"
^XMB(3.9,6,2,1016,0)=" ..S DGX="" ""_$E(DGX,1,3)_""-""_$E(DGX,4,5)_""-""_$E(DGX,6,10)"
^XMB(3.9,6,2,1017,0)="""RTN"",""DGRP1"",56,0)"
^XMB(3.9,6,2,1018,0)=" ..S DGALIAS(DGI)=$E(DGALIAS(DGI),1,19)"
^XMB(3.9,6,2,1019,0)="""RTN"",""DGRP1"",57,0)"
^XMB(3.9,6,2,1020,0)=" ..S $E(DGALIAS(DGI),20)=DGX Q"
^XMB(3.9,6,2,1021,0)="""RTN"",""DGRP1"",58,0)"
^XMB(3.9,6,2,1022,0)=" .S DGALIAS(DGI)=$E(DGALIAS(DGI),1,32)"
^XMB(3.9,6,2,1023,0)="""RTN"",""DGRP1"",59,0)"
^XMB(3.9,6,2,1024,0)=" .Q"
^XMB(3.9,6,2,1025,0)="""RTN"",""DGRP1"",60,0)"
^XMB(3.9,6,2,1026,0)=" ;Display name component, sex, multiple birth indicator and alias data"
^XMB(3.9,6,2,1027,0)="""RTN"",""DGRP1"",61,0)"
^XMB(3.9,6,2,1028,0)=" F DGI=1:1:6 D"
^XMB(3.9,6,2,1029,0)="""RTN"",""DGRP1"",62,0)"
^XMB(3.9,6,2,1030,0)=" .W !?5,$J($P(DGNC,U,DGI),6),"": "",$E($G(DGCOMP(20,DGCOMP,DGI)),1,$S(DGI=1:23,1:27))"
^XMB(3.9,6,2,1031,0)="""RTN"",""DGRP1"",63,0)"
^XMB(3.9,6,2,1032,0)=" .I DGI=1 S (Z,DGRPW)=1 W ?43,""Sex: "" S X=$P(DGRP(0),""^"",2),Z=$S(X=""M"":""MALE"",X=""F"":""FEMALE"",1:DGRPU),Z1=3 D WW1^DGRPV"
^XMB(3.9,6,2,1033,0)="""RTN"",""DGRP1"",64,0)"
^XMB(3.9,6,2,1034,0)=" .I DGI=1 S (Z,DGRPW)=1 W ?56,""MBI: "" S X=$P($G(^DPT(DFN,""MPIMB"")),U),Z=$S(X=""N"":""NO"",X=""Y"":""*MULTIPLE BIRTH*"",1:DGRPU),Z1=16 D WW1^DGRPV"
^XMB(3.9,6,2,1035,0)="""RTN"",""DGRP1"",65,0)"
^XMB(3.9,6,2,1036,0)=" .I DGI=2 S DGRPW=0,Z=2 W ?37 D WW^DGRPV W "" Alias: """
^XMB(3.9,6,2,1037,0)="""RTN"",""DGRP1"",66,0)"
^XMB(3.9,6,2,1038,0)=" .I DGI>1 W ?47,$G(DGALIAS(DGI-1))"
^XMB(3.9,6,2,1039,0)="""RTN"",""DGRP1"",67,0)"
^XMB(3.9,6,2,1040,0)=" .Q"
^XMB(3.9,6,2,1041,0)="""RTN"",""DGRP1"",68,0)"
^XMB(3.9,6,2,1042,0)=" Q"
^XMB(3.9,6,2,1043,0)="""RTN"",""DGRPECE"")"
^XMB(3.9,6,2,1044,0)="0^2^B48381081^B35524105"
^XMB(3.9,6,2,1045,0)="""RTN"",""DGRPECE"",1,0)"
^XMB(3.9,6,2,1046,0)="DGRPECE ;ALB/MRY - REGISTRATION CATASTROPHIC EDITS ; 11/16/04 9:00am"
^XMB(3.9,6,2,1047,0)="""RTN"",""DGRPECE"",2,0)"
^XMB(3.9,6,2,1048,0)=" ;;5.3;Registration;**638,682,700**;Aug 13, 1993"
^XMB(3.9,6,2,1049,0)="""RTN"",""DGRPECE"",3,0)"
^XMB(3.9,6,2,1050,0)=" ;"
^XMB(3.9,6,2,1051,0)="""RTN"",""DGRPECE"",4,0)"
^XMB(3.9,6,2,1052,0)="CEDITS(DFN) ;catastrophic edits  - buffer values, save after check"
^XMB(3.9,6,2,1053,0)="""RTN"",""DGRPECE"",5,0)"
^XMB(3.9,6,2,1054,0)=" ;Input;"
^XMB(3.9,6,2,1055,0)="""RTN"",""DGRPECE"",6,0)"
^XMB(3.9,6,2,1056,0)=" ;  DFN  := patient ien"
^XMB(3.9,6,2,1057,0)="""RTN"",""DGRPECE"",7,0)"
^XMB(3.9,6,2,1058,0)=" ;Catastrophic edits will prompt for name, ssn, dob, and sex.  Placing"
^XMB(3.9,6,2,1059,0)="""RTN"",""DGRPECE"",8,0)"
^XMB(3.9,6,2,1060,0)=" ;responses into a buffer space.  User will be alerted on catastrophic"
^XMB(3.9,6,2,1061,0)="""RTN"",""DGRPECE"",9,0)"
^XMB(3.9,6,2,1062,0)=" ;edits on the following conditions:"
^XMB(3.9,6,2,1063,0)="""RTN"",""DGRPECE"",10,0)"
^XMB(3.9,6,2,1064,0)=" ; 1. Two or more catastrophic edits will generate a warning message."
^XMB(3.9,6,2,1065,0)="""RTN"",""DGRPECE"",11,0)"
^XMB(3.9,6,2,1066,0)=" ; 2. Acceptance of two or more catatrophic edits will generate an alert"
^XMB(3.9,6,2,1067,0)="""RTN"",""DGRPECE"",12,0)"
^XMB(3.9,6,2,1068,0)=" ; to appropriate supervising staff holding the DG CATASTROPHIC EDIT key."
^XMB(3.9,6,2,1069,0)="""RTN"",""DGRPECE"",13,0)"
^XMB(3.9,6,2,1070,0)=" ; 3. Acceptance of <2 catatrophic edits will process normally."
^XMB(3.9,6,2,1071,0)="""RTN"",""DGRPECE"",14,0)"
^XMB(3.9,6,2,1072,0)=" ;"
^XMB(3.9,6,2,1073,0)="""RTN"",""DGRPECE"",15,0)"
^XMB(3.9,6,2,1074,0)=" ; Arrays: BEFORE - Holds patient values before the edit process"
^XMB(3.9,6,2,1075,0)="""RTN"",""DGRPECE"",16,0)"
^XMB(3.9,6,2,1076,0)=" ;                  (before snapshot)."
^XMB(3.9,6,2,1077,0)="""RTN"",""DGRPECE"",17,0)"
^XMB(3.9,6,2,1078,0)=" ;         BUFFER - initialized with BEFORE array, holds edited changes"
^XMB(3.9,6,2,1079,0)="""RTN"",""DGRPECE"",18,0)"
^XMB(3.9,6,2,1080,0)=" ;                  (after snapshot)."
^XMB(3.9,6,2,1081,0)="""RTN"",""DGRPECE"",19,0)"
^XMB(3.9,6,2,1082,0)=" ;         SAVE   - holds only edited changes for filing into file #2."
^XMB(3.9,6,2,1083,0)="""RTN"",""DGRPECE"",20,0)"
^XMB(3.9,6,2,1084,0)=" ;"
^XMB(3.9,6,2,1085,0)="""RTN"",""DGRPECE"",21,0)"
^XMB(3.9,6,2,1086,0)=" N DA,DIR,DIRUT,Y,BUFFER,BEFORE,SAVE,DG20IEN"
^XMB(3.9,6,2,1087,0)="""RTN"",""DGRPECE"",22,0)"
^XMB(3.9,6,2,1088,0)=" D BEFORE(DFN,.BEFORE,.BUFFER) ;retrieve before patient values"
^XMB(3.9,6,2,1089,0)="""RTN"",""DGRPECE"",23,0)"
^XMB(3.9,6,2,1090,0)=" ;buffer - get name"
^XMB(3.9,6,2,1091,0)="""RTN"",""DGRPECE"",24,0)"
^XMB(3.9,6,2,1092,0)=" K DG20NAME"
^XMB(3.9,6,2,1093,0)="""RTN"",""DGRPECE"",25,0)"
^XMB(3.9,6,2,1094,0)=" S BUFFER(""NAME"")=$$NCEDIT^DPTNAME(DFN,,.DG20NAME)"
^XMB(3.9,6,2,1095,0)="""RTN"",""DGRPECE"",26,0)"
^XMB(3.9,6,2,1096,0)=" I BUFFER(""NAME"")="""" S BUFFER(""NAME"")=BEFORE(""NAME"")"
^XMB(3.9,6,2,1097,0)="""RTN"",""DGRPECE"",27,0)"
^XMB(3.9,6,2,1098,0)=" I $D(DG20NAME(""FAMILY"")) S BUFFER(""FAMILY"")=DG20NAME(""FAMILY"")"
^XMB(3.9,6,2,1099,0)="""RTN"",""DGRPECE"",28,0)"
^XMB(3.9,6,2,1100,0)=" I $D(DG20NAME(""GIVEN"")) S BUFFER(""GIVEN"")=DG20NAME(""GIVEN"")"
^XMB(3.9,6,2,1101,0)="""RTN"",""DGRPECE"",29,0)"
^XMB(3.9,6,2,1102,0)=" I $D(DG20NAME(""MIDDLE"")) S BUFFER(""MIDDLE"")=DG20NAME(""MIDDLE"")"
^XMB(3.9,6,2,1103,0)="""RTN"",""DGRPECE"",30,0)"
^XMB(3.9,6,2,1104,0)=" I $D(DG20NAME(""SUFFIX"")) S BUFFER(""SUFFIX"")=DG20NAME(""SUFFIX"")"
^XMB(3.9,6,2,1105,0)="""RTN"",""DGRPECE"",31,0)"
^XMB(3.9,6,2,1106,0)=" ; the formal name is last name, first name, middle name and suffix"
^XMB(3.9,6,2,1107,0)="""RTN"",""DGRPECE"",32,0)"
^XMB(3.9,6,2,1108,0)=" ; the prefix and degree are only stored in file 20"
^XMB(3.9,6,2,1109,0)="""RTN"",""DGRPECE"",33,0)"
^XMB(3.9,6,2,1110,0)=" I $D(DG20NAME(""PREFIX"")) S BUFFER(""PREFIX"")=DG20NAME(""PREFIX"")"
^XMB(3.9,6,2,1111,0)="""RTN"",""DGRPECE"",34,0)"
^XMB(3.9,6,2,1112,0)=" I $D(DG20NAME(""DEGREE"")) S BUFFER(""DEGREE"")=DG20NAME(""DEGREE"")"
^XMB(3.9,6,2,1113,0)="""RTN"",""DGRPECE"",35,0)"
^XMB(3.9,6,2,1114,0)=" K DG20NAME"
^XMB(3.9,6,2,1115,0)="""RTN"",""DGRPECE"",36,0)"
^XMB(3.9,6,2,1116,0)=" ;buffer - get ssn"
^XMB(3.9,6,2,1117,0)="""RTN"",""DGRPECE"",37,0)"
^XMB(3.9,6,2,1118,0)=" S DIR(0)=""2,.09^^"""
^XMB(3.9,6,2,1119,0)="""RTN"",""DGRPECE"",38,0)"
^XMB(3.9,6,2,1120,0)=" S DA=DFN D ^DIR"
^XMB(3.9,6,2,1121,0)="""RTN"",""DGRPECE"",39,0)"
^XMB(3.9,6,2,1122,0)=" I $D(DIRUT) D CECHECK Q"
^XMB(3.9,6,2,1123,0)="""RTN"",""DGRPECE"",40,0)"
^XMB(3.9,6,2,1124,0)=" S BUFFER(""SSN"")=Y"
^XMB(3.9,6,2,1125,0)="""RTN"",""DGRPECE"",41,0)"
^XMB(3.9,6,2,1126,0)=" ;buffer - get dob"
^XMB(3.9,6,2,1127,0)="""RTN"",""DGRPECE"",42,0)"
^XMB(3.9,6,2,1128,0)=" S DIR(0)=""2,.03^^"""
^XMB(3.9,6,2,1129,0)="""RTN"",""DGRPECE"",43,0)"
^XMB(3.9,6,2,1130,0)=" S DA=DFN D ^DIR"
^XMB(3.9,6,2,1131,0)="""RTN"",""DGRPECE"",44,0)"
^XMB(3.9,6,2,1132,0)=" I $D(DIRUT) D CECHECK Q"
^XMB(3.9,6,2,1133,0)="""RTN"",""DGRPECE"",45,0)"
^XMB(3.9,6,2,1134,0)=" S BUFFER(""DOB"")=Y"
^XMB(3.9,6,2,1135,0)="""RTN"",""DGRPECE"",46,0)"
^XMB(3.9,6,2,1136,0)=" ;buffer - get sex"
^XMB(3.9,6,2,1137,0)="""RTN"",""DGRPECE"",47,0)"
^XMB(3.9,6,2,1138,0)=" S DIR(0)=""2,.02^^"""
^XMB(3.9,6,2,1139,0)="""RTN"",""DGRPECE"",48,0)"
^XMB(3.9,6,2,1140,0)=" S DA=DFN D ^DIR"
^XMB(3.9,6,2,1141,0)="""RTN"",""DGRPECE"",49,0)"
^XMB(3.9,6,2,1142,0)=" I $D(DIRUT) D CECHECK Q"
^XMB(3.9,6,2,1143,0)="""RTN"",""DGRPECE"",50,0)"
^XMB(3.9,6,2,1144,0)=" S BUFFER(""SEX"")=Y"
^XMB(3.9,6,2,1145,0)="""RTN"",""DGRPECE"",51,0)"
^XMB(3.9,6,2,1146,0)=" ; buffer - get MBI (multiple birth indicator)"
^XMB(3.9,6,2,1147,0)="""RTN"",""DGRPECE"",52,0)"
^XMB(3.9,6,2,1148,0)=" S DIR(0)=""2,994^^"""
^XMB(3.9,6,2,1149,0)="""RTN"",""DGRPECE"",53,0)"
^XMB(3.9,6,2,1150,0)=" S DA=DFN D ^DIR"
^XMB(3.9,6,2,1151,0)="""RTN"",""DGRPECE"",54,0)"
^XMB(3.9,6,2,1152,0)=" I $D(DIRUT) D CECHECK Q"
^XMB(3.9,6,2,1153,0)="""RTN"",""DGRPECE"",55,0)"
^XMB(3.9,6,2,1154,0)=" S BUFFER(""MBI"")=Y"
^XMB(3.9,6,2,1155,0)="""RTN"",""DGRPECE"",56,0)"
^XMB(3.9,6,2,1156,0)="CECHECK ;do catastrophic edit checks, alert, and save"
^XMB(3.9,6,2,1157,0)="""RTN"",""DGRPECE"",57,0)"
^XMB(3.9,6,2,1158,0)=" N DGCNT,DGCEFLG"
^XMB(3.9,6,2,1159,0)="""RTN"",""DGRPECE"",58,0)"
^XMB(3.9,6,2,1160,0)=" ;Compare before/buffer arrays, putting edits into save array."
^XMB(3.9,6,2,1161,0)="""RTN"",""DGRPECE"",59,0)"
^XMB(3.9,6,2,1162,0)=" S DGCNT=$$AFTER(.BEFORE,.BUFFER,.SAVE)"
^XMB(3.9,6,2,1163,0)="""RTN"",""DGRPECE"",60,0)"
^XMB(3.9,6,2,1164,0)=" ;   DGCNT:  0  = no changes"
^XMB(3.9,6,2,1165,0)="""RTN"",""DGRPECE"",61,0)"
^XMB(3.9,6,2,1166,0)=" ;           1  = only one edit change, ok to save w/o CE message"
^XMB(3.9,6,2,1167,0)="""RTN"",""DGRPECE"",62,0)"
^XMB(3.9,6,2,1168,0)=" ;           >1 = more then 1 edit, give CE message"
^XMB(3.9,6,2,1169,0)="""RTN"",""DGRPECE"",63,0)"
^XMB(3.9,6,2,1170,0)=" I DGCNT>1 D  ;give CE message"
^XMB(3.9,6,2,1171,0)="""RTN"",""DGRPECE"",64,0)"
^XMB(3.9,6,2,1172,0)=" . S DGCEFLG=$$WARNING()"
^XMB(3.9,6,2,1173,0)="""RTN"",""DGRPECE"",65,0)"
^XMB(3.9,6,2,1174,0)=" . ;    DGCEFLG: 0  = exit without saving changes"
^XMB(3.9,6,2,1175,0)="""RTN"",""DGRPECE"",66,0)"
^XMB(3.9,6,2,1176,0)=" . ;             1  = send alert and save"
^XMB(3.9,6,2,1177,0)="""RTN"",""DGRPECE"",67,0)"
^XMB(3.9,6,2,1178,0)=" . I DGCEFLG=0 S DGCNT=0"
^XMB(3.9,6,2,1179,0)="""RTN"",""DGRPECE"",68,0)"
^XMB(3.9,6,2,1180,0)=" I DGCNT>0 D SAVE(DFN) I $D(DGCEFLG),DGCEFLG D ALERT"
^XMB(3.9,6,2,1181,0)="""RTN"",""DGRPECE"",69,0)"
^XMB(3.9,6,2,1182,0)=" Q"
^XMB(3.9,6,2,1183,0)="""RTN"",""DGRPECE"",70,0)"
^XMB(3.9,6,2,1184,0)=" ;"
^XMB(3.9,6,2,1185,0)="""RTN"",""DGRPECE"",71,0)"
^XMB(3.9,6,2,1186,0)="SAVE(DFN) ;store accepted/edited values into patient file"
^XMB(3.9,6,2,1187,0)="""RTN"",""DGRPECE"",72,0)"
^XMB(3.9,6,2,1188,0)=" N FDATA,DIERR"
^XMB(3.9,6,2,1189,0)="""RTN"",""DGRPECE"",73,0)"
^XMB(3.9,6,2,1190,0)=" I $D(SAVE(""NAME"")) S FDATA(2,+DFN_"","",.01)=SAVE(""NAME"")"
^XMB(3.9,6,2,1191,0)="""RTN"",""DGRPECE"",74,0)"
^XMB(3.9,6,2,1192,0)=" I $D(SAVE(""DOB"")) S FDATA(2,+DFN_"","",.03)=SAVE(""DOB"")"
^XMB(3.9,6,2,1193,0)="""RTN"",""DGRPECE"",75,0)"
^XMB(3.9,6,2,1194,0)=" I $D(SAVE(""SEX"")) S FDATA(2,+DFN_"","",.02)=SAVE(""SEX"")"
^XMB(3.9,6,2,1195,0)="""RTN"",""DGRPECE"",76,0)"
^XMB(3.9,6,2,1196,0)=" I $D(SAVE(""SSN"")) S FDATA(2,+DFN_"","",.09)=SAVE(""SSN"")"
^XMB(3.9,6,2,1197,0)="""RTN"",""DGRPECE"",77,0)"
^XMB(3.9,6,2,1198,0)=" I $D(SAVE(""MBI"")) S FDATA(2,+DFN_"","",994)=SAVE(""MBI"")"
^XMB(3.9,6,2,1199,0)="""RTN"",""DGRPECE"",78,0)"
^XMB(3.9,6,2,1200,0)=" D FILE^DIE("""",""FDATA"",""DIERR"")"
^XMB(3.9,6,2,1201,0)="""RTN"",""DGRPECE"",79,0)"
^XMB(3.9,6,2,1202,0)=" K FDATA,DIERR"
^XMB(3.9,6,2,1203,0)="""RTN"",""DGRPECE"",80,0)"
^XMB(3.9,6,2,1204,0)=" I '$D(^VA(20,DG20IEN)) S DG20IEN=$$GET1^DIQ(2,+DFN_"","",1.01,""I"")"
^XMB(3.9,6,2,1205,0)="""RTN"",""DGRPECE"",81,0)"
^XMB(3.9,6,2,1206,0)=" I $D(SAVE(""NAME"")) D"
^XMB(3.9,6,2,1207,0)="""RTN"",""DGRPECE"",82,0)"
^XMB(3.9,6,2,1208,0)=" .S FDATA(20,+DG20IEN_"","",1)=BUFFER(""FAMILY"")"
^XMB(3.9,6,2,1209,0)="""RTN"",""DGRPECE"",83,0)"
^XMB(3.9,6,2,1210,0)=" .S FDATA(20,+DG20IEN_"","",2)=BUFFER(""GIVEN"")"
^XMB(3.9,6,2,1211,0)="""RTN"",""DGRPECE"",84,0)"
^XMB(3.9,6,2,1212,0)=" .S FDATA(20,+DG20IEN_"","",3)=BUFFER(""MIDDLE"")"
^XMB(3.9,6,2,1213,0)="""RTN"",""DGRPECE"",85,0)"
^XMB(3.9,6,2,1214,0)=" .S FDATA(20,+DG20IEN_"","",5)=BUFFER(""SUFFIX"")"
^XMB(3.9,6,2,1215,0)="""RTN"",""DGRPECE"",86,0)"
^XMB(3.9,6,2,1216,0)=" .D FILE^DIE("""",""FDATA"",""DIERR"")"
^XMB(3.9,6,2,1217,0)="""RTN"",""DGRPECE"",87,0)"
^XMB(3.9,6,2,1218,0)=" .K FDATA,DIERR"
^XMB(3.9,6,2,1219,0)="""RTN"",""DGRPECE"",88,0)"
^XMB(3.9,6,2,1220,0)=" I $D(BUFFER(""PREFIX"")) S FDATA(20,+DG20IEN_"","",4)=BUFFER(""PREFIX"")"
^XMB(3.9,6,2,1221,0)="""RTN"",""DGRPECE"",89,0)"
^XMB(3.9,6,2,1222,0)=" I $D(BUFFER(""DEGREE"")) S FDATA(20,+DG20IEN_"","",6)=BUFFER(""DEGREE"")"
^XMB(3.9,6,2,1223,0)="""RTN"",""DGRPECE"",90,0)"
^XMB(3.9,6,2,1224,0)=" I $D(SAVE(""PREFIX"")) S FDATA(20,+DG20IEN_"","",4)=SAVE(""PREFIX"")"
^XMB(3.9,6,2,1225,0)="""RTN"",""DGRPECE"",91,0)"
^XMB(3.9,6,2,1226,0)=" I $D(SAVE(""DEGREE"")) S FDATA(20,+DG20IEN_"","",6)=SAVE(""DEGREE"")"
^XMB(3.9,6,2,1227,0)="""RTN"",""DGRPECE"",92,0)"
^XMB(3.9,6,2,1228,0)=" D FILE^DIE("""",""FDATA"",""DIERR"")"
^XMB(3.9,6,2,1229,0)="""RTN"",""DGRPECE"",93,0)"
^XMB(3.9,6,2,1230,0)=" K FDATA,DIERR"
^XMB(3.9,6,2,1231,0)="""RTN"",""DGRPECE"",94,0)"
^XMB(3.9,6,2,1232,0)=" Q"
^XMB(3.9,6,2,1233,0)="""RTN"",""DGRPECE"",95,0)"
^XMB(3.9,6,2,1234,0)=" ;"
^XMB(3.9,6,2,1235,0)="""RTN"",""DGRPECE"",96,0)"
^XMB(3.9,6,2,1236,0)="BEFORE(IEN,BEF,BUF) ;save original name, ssn, dob, sex"
^XMB(3.9,6,2,1237,0)="""RTN"",""DGRPECE"",97,0)"
^XMB(3.9,6,2,1238,0)=" N DG20"
^XMB(3.9,6,2,1239,0)="""RTN"",""DGRPECE"",98,0)"
^XMB(3.9,6,2,1240,0)=" S BEF(""NAME"")=$$GET1^DIQ(2,+IEN_"","",.01),BUF(""NAME"")=BEF(""NAME"")"
^XMB(3.9,6,2,1241,0)="""RTN"",""DGRPECE"",99,0)"
^XMB(3.9,6,2,1242,0)=" S BEF(""SSN"")=$$GET1^DIQ(2,+IEN_"","",.09),BUF(""SSN"")=BEF(""SSN"")"
^XMB(3.9,6,2,1243,0)="""RTN"",""DGRPECE"",100,0)"
^XMB(3.9,6,2,1244,0)=" S BEF(""DOB"")=$$GET1^DIQ(2,+IEN_"","",.03,""I""),BUF(""DOB"")=BEF(""DOB"")"
^XMB(3.9,6,2,1245,0)="""RTN"",""DGRPECE"",101,0)"
^XMB(3.9,6,2,1246,0)=" S BEF(""SEX"")=$$GET1^DIQ(2,+IEN_"","",.02,""I""),BUF(""SEX"")=BEF(""SEX"")"
^XMB(3.9,6,2,1247,0)="""RTN"",""DGRPECE"",102,0)"
^XMB(3.9,6,2,1248,0)=" S BEF(""MBI"")=$$GET1^DIQ(2,+IEN_"","",994,""I""),BUF(""MBI"")=BEF(""MBI"")"
^XMB(3.9,6,2,1249,0)="""RTN"",""DGRPECE"",103,0)"
^XMB(3.9,6,2,1250,0)=" D GETS^DIQ(2,+IEN_"","",1.01,""I"",""DG20"")"
^XMB(3.9,6,2,1251,0)="""RTN"",""DGRPECE"",104,0)"
^XMB(3.9,6,2,1252,0)=" S BEF(""FAMILY"")="""",BEF(""GIVEN"")="""",BUF(""FAMILY"")="""",BUF(""GIVEN"")="""""
^XMB(3.9,6,2,1253,0)="""RTN"",""DGRPECE"",105,0)"
^XMB(3.9,6,2,1254,0)=" S BEF(""MIDDLE"")="""",BEF(""SUFFIX"")="""",BUF(""MIDDLE"")="""",BUF(""MIDDLE"")="""""
^XMB(3.9,6,2,1255,0)="""RTN"",""DGRPECE"",106,0)"
^XMB(3.9,6,2,1256,0)=" S BEF(""PREFIX"")="""",BEF(""DEGREE"")="""",BUF(""PREFIX"")="""",BUF(""DEGREE"")="""""
^XMB(3.9,6,2,1257,0)="""RTN"",""DGRPECE"",107,0)"
^XMB(3.9,6,2,1258,0)=" S DG20IEN=DG20(2,+IEN_"","",1.01,""I"")"
^XMB(3.9,6,2,1259,0)="""RTN"",""DGRPECE"",108,0)"
^XMB(3.9,6,2,1260,0)=" I $$GET1^DIQ(20,+DG20IEN_"","",.03)[+IEN D"
^XMB(3.9,6,2,1261,0)="""RTN"",""DGRPECE"",109,0)"
^XMB(3.9,6,2,1262,0)=" . S BEF(""FAMILY"")=$$GET1^DIQ(20,+DG20IEN_"","",1),BUF(""FAMILY"")=BEF(""FAMILY"")"
^XMB(3.9,6,2,1263,0)="""RTN"",""DGRPECE"",110,0)"
^XMB(3.9,6,2,1264,0)=" . S BEF(""GIVEN"")=$$GET1^DIQ(20,+DG20IEN_"","",2),BUF(""GIVEN"")=BEF(""GIVEN"")"
^XMB(3.9,6,2,1265,0)="""RTN"",""DGRPECE"",111,0)"
^XMB(3.9,6,2,1266,0)=" . S BEF(""MIDDLE"")=$$GET1^DIQ(20,+DG20IEN_"","",3),BUF(""MIDDLE"")=BEF(""MIDDLE"")"
^XMB(3.9,6,2,1267,0)="""RTN"",""DGRPECE"",112,0)"
^XMB(3.9,6,2,1268,0)=" . S BEF(""SUFFIX"")=$$GET1^DIQ(20,+DG20IEN_"","",5),BUF(""SUFFIX"")=BEF(""SUFFIX"")"
^XMB(3.9,6,2,1269,0)="""RTN"",""DGRPECE"",113,0)"
^XMB(3.9,6,2,1270,0)=" . S BEF(""PREFIX"")=$$GET1^DIQ(20,+DG20IEN_"","",4),BUF(""PREFIX"")=BEF(""PREFIX"")"
^XMB(3.9,6,2,1271,0)="""RTN"",""DGRPECE"",114,0)"
^XMB(3.9,6,2,1272,0)=" . S BEF(""DEGREE"")=$$GET1^DIQ(20,+DG20IEN_"","",6),BUF(""DEGREE"")=BEF(""DEGREE"")"
^XMB(3.9,6,2,1273,0)="""RTN"",""DGRPECE"",115,0)"
^XMB(3.9,6,2,1274,0)=" ;add some demographic information (before snapshot)"
^XMB(3.9,6,2,1275,0)="""RTN"",""DGRPECE"",116,0)"
^XMB(3.9,6,2,1276,0)=" S BEF(""MAIDEN"")=$E($$GET1^DIQ(2,+IEN_"","",.2403),1,17)"
^XMB(3.9,6,2,1277,0)="""RTN"",""DGRPECE"",117,0)"
^XMB(3.9,6,2,1278,0)=" S BEF(""POBCITY"")=$E($$GET1^DIQ(2,+IEN_"","",.092),1,15)"
^XMB(3.9,6,2,1279,0)="""RTN"",""DGRPECE"",118,0)"
^XMB(3.9,6,2,1280,0)=" S BEF(""POBSTATE"")=$$GET1^DIQ(2,+IEN_"","",.093,""I"")"
^XMB(3.9,6,2,1281,0)="""RTN"",""DGRPECE"",119,0)"
^XMB(3.9,6,2,1282,0)=" Q"
^XMB(3.9,6,2,1283,0)="""RTN"",""DGRPECE"",120,0)"
^XMB(3.9,6,2,1284,0)=" ;"
^XMB(3.9,6,2,1285,0)="""RTN"",""DGRPECE"",121,0)"
^XMB(3.9,6,2,1286,0)="AFTER(BEF,BUF,SAV) ;prevent catastrophic edit checks"
^XMB(3.9,6,2,1287,0)="""RTN"",""DGRPECE"",122,0)"
^XMB(3.9,6,2,1288,0)=" N DGCNT,DG20CNT S (DGCNT,DG20CNT)=0"
^XMB(3.9,6,2,1289,0)="""RTN"",""DGRPECE"",123,0)"
^XMB(3.9,6,2,1290,0)=" I $D(BUF(""FAMILY"")),BUF(""FAMILY"")'="""",BUF(""FAMILY"")'=BEF(""FAMILY"") D"
^XMB(3.9,6,2,1291,0)="""RTN"",""DGRPECE"",124,0)"
^XMB(3.9,6,2,1292,0)=" . S DG20CNT=DG20CNT+1"
^XMB(3.9,6,2,1293,0)="""RTN"",""DGRPECE"",125,0)"
^XMB(3.9,6,2,1294,0)=" . S SAV(""NAME"")=BUF(""NAME"")"
^XMB(3.9,6,2,1295,0)="""RTN"",""DGRPECE"",126,0)"
^XMB(3.9,6,2,1296,0)=" I $D(BUF(""GIVEN"")),BUF(""GIVEN"")'="""",BUF(""GIVEN"")'=BEF(""GIVEN"") D"
^XMB(3.9,6,2,1297,0)="""RTN"",""DGRPECE"",127,0)"
^XMB(3.9,6,2,1298,0)=" . S DG20CNT=DG20CNT+1"
^XMB(3.9,6,2,1299,0)="""RTN"",""DGRPECE"",128,0)"
^XMB(3.9,6,2,1300,0)=" . S SAV(""NAME"")=BUF(""NAME"")"
^XMB(3.9,6,2,1301,0)="""RTN"",""DGRPECE"",129,0)"
^XMB(3.9,6,2,1302,0)=" I $D(BUF(""MIDDLE"")),BUF(""MIDDLE"")'="""",BUF(""MIDDLE"")'=BEF(""MIDDLE"") D"
^XMB(3.9,6,2,1303,0)="""RTN"",""DGRPECE"",130,0)"
^XMB(3.9,6,2,1304,0)=" . S SAV(""NAME"")=BUF(""NAME"") ; minor change doesn't count"
^XMB(3.9,6,2,1305,0)="""RTN"",""DGRPECE"",131,0)"
^XMB(3.9,6,2,1306,0)=" I $D(BUF(""SUFFIX"")),BUF(""SUFFIX"")'="""",BUF(""SUFFIX"")'=BEF(""SUFFIX"") D"
^XMB(3.9,6,2,1307,0)="""RTN"",""DGRPECE"",132,0)"
^XMB(3.9,6,2,1308,0)=" . S SAV(""NAME"")=BUF(""NAME"") ; minor change doesn't count"
^XMB(3.9,6,2,1309,0)="""RTN"",""DGRPECE"",133,0)"
^XMB(3.9,6,2,1310,0)=" I DG20CNT>0 S DGCNT=1"
^XMB(3.9,6,2,1311,0)="""RTN"",""DGRPECE"",134,0)"
^XMB(3.9,6,2,1312,0)=" I $D(BUF(""PREFIX"")),BUF(""PREFIX"")'=BEF(""PREFIX"") D"
^XMB(3.9,6,2,1313,0)="""RTN"",""DGRPECE"",135,0)"
^XMB(3.9,6,2,1314,0)=" . S SAV(""PREFIX"")=BUF(""PREFIX"")"
^XMB(3.9,6,2,1315,0)="""RTN"",""DGRPECE"",136,0)"
^XMB(3.9,6,2,1316,0)=" I $D(BUF(""DEGREE"")),BUF(""DEGREE"")'=BEF(""DEGREE"") D"
^XMB(3.9,6,2,1317,0)="""RTN"",""DGRPECE"",137,0)"
^XMB(3.9,6,2,1318,0)=" . S SAV(""DEGREE"")=BUF(""DEGREE"")"
^XMB(3.9,6,2,1319,0)="""RTN"",""DGRPECE"",138,0)"
^XMB(3.9,6,2,1320,0)=" I $D(BUF(""DOB"")),BUF(""DOB"")'="""",BUF(""DOB"")'=BEF(""DOB"") D"
^XMB(3.9,6,2,1321,0)="""RTN"",""DGRPECE"",139,0)"
^XMB(3.9,6,2,1322,0)=" . S SAV(""DOB"")=BUF(""DOB""),DGCNT=DGCNT+1"
^XMB(3.9,6,2,1323,0)="""RTN"",""DGRPECE"",140,0)"
^XMB(3.9,6,2,1324,0)=" I $D(BUF(""SEX"")),BUF(""SEX"")'="""",BUF(""SEX"")'=BEF(""SEX"") D"
^XMB(3.9,6,2,1325,0)="""RTN"",""DGRPECE"",141,0)"
^XMB(3.9,6,2,1326,0)=" . S SAV(""SEX"")=BUF(""SEX""),DGCNT=DGCNT+1"
^XMB(3.9,6,2,1327,0)="""RTN"",""DGRPECE"",142,0)"
^XMB(3.9,6,2,1328,0)=" I $D(BUF(""SSN"")),BUF(""SSN"")'="""",BUF(""SSN"")'=BEF(""SSN"") D"
^XMB(3.9,6,2,1329,0)="""RTN"",""DGRPECE"",143,0)"
^XMB(3.9,6,2,1330,0)=" . S SAV(""SSN"")=BUF(""SSN""),DGCNT=DGCNT+1"
^XMB(3.9,6,2,1331,0)="""RTN"",""DGRPECE"",144,0)"
^XMB(3.9,6,2,1332,0)=" I $D(BUF(""MBI"")),BUF(""MBI"")'="""",BUF(""MBI"")'=BEF(""MBI"") D"
^XMB(3.9,6,2,1333,0)="""RTN"",""DGRPECE"",145,0)"
^XMB(3.9,6,2,1334,0)=" . S SAV(""MBI"")=BUF(""MBI""),DGCNT=DGCNT+1"
^XMB(3.9,6,2,1335,0)="""RTN"",""DGRPECE"",146,0)"
^XMB(3.9,6,2,1336,0)=" I DGCNT=0,$D(SAV(""NAME"")) Q 1 ;minor name change (i.e. middle name or suffix)"
^XMB(3.9,6,2,1337,0)="""RTN"",""DGRPECE"",147,0)"
^XMB(3.9,6,2,1338,0)=" I DGCNT=0,$D(SAV(""PREFIX""))!($D(SAV(""DEGREE""))) Q 1 ; prefix or degree change"
^XMB(3.9,6,2,1339,0)="""RTN"",""DGRPECE"",148,0)"
^XMB(3.9,6,2,1340,0)=" I DGCNT=0 Q 0 ;no changes"
^XMB(3.9,6,2,1341,0)="""RTN"",""DGRPECE"",149,0)"
^XMB(3.9,6,2,1342,0)=" I DGCNT<2 Q 1 ;make one change w/o alert"
^XMB(3.9,6,2,1343,0)="""RTN"",""DGRPECE"",150,0)"
^XMB(3.9,6,2,1344,0)=" I DGCNT>1 Q 2 ;more than 1 change, send warning message"
^XMB(3.9,6,2,1345,0)="""RTN"",""DGRPECE"",151,0)"
^XMB(3.9,6,2,1346,0)=" ;"
^XMB(3.9,6,2,1347,0)="""RTN"",""DGRPECE"",152,0)"
^XMB(3.9,6,2,1348,0)="WARNING() ;CE warning message"
^XMB(3.9,6,2,1349,0)="""RTN"",""DGRPECE"",153,0)"
^XMB(3.9,6,2,1350,0)=" ;Output     0  = exit without saving changes"
^XMB(3.9,6,2,1351,0)="""RTN"",""DGRPECE"",154,0)"
^XMB(3.9,6,2,1352,0)=" ;           1  = send alert and save"
^XMB(3.9,6,2,1353,0)="""RTN"",""DGRPECE"",155,0)"
^XMB(3.9,6,2,1354,0)=" W !!,?25,""**WARNING!!**"""
^XMB(3.9,6,2,1355,0)="""RTN"",""DGRPECE"",156,0)"
^XMB(3.9,6,2,1356,0)=" W !!,""The edits you are about to make, may potentially change the identity of"""
^XMB(3.9,6,2,1357,0)="""RTN"",""DGRPECE"",157,0)"
^XMB(3.9,6,2,1358,0)=" W !,""this patient.  Please verify that you have selected the correct patient"""
^XMB(3.9,6,2,1359,0)="""RTN"",""DGRPECE"",158,0)"
^XMB(3.9,6,2,1360,0)=" W !,""and ensure that supporting documentation exists for these changes.  If"""
^XMB(3.9,6,2,1361,0)="""RTN"",""DGRPECE"",159,0)"
^XMB(3.9,6,2,1362,0)=" W !,""you continue with these edits, an alert will be generated and sent to"""
^XMB(3.9,6,2,1363,0)="""RTN"",""DGRPECE"",160,0)"
^XMB(3.9,6,2,1364,0)=" W !,""your Supervisor and ADPAC, notifying them of the changes."""
^XMB(3.9,6,2,1365,0)="""RTN"",""DGRPECE"",161,0)"
^XMB(3.9,6,2,1366,0)=" N DIR,DGANS,Y"
^XMB(3.9,6,2,1367,0)="""RTN"",""DGRPECE"",162,0)"
^XMB(3.9,6,2,1368,0)=" S DIR(0)=""Y"",DIR(""A"")=""Do you wish to continue and save your edits:"""
^XMB(3.9,6,2,1369,0)="""RTN"",""DGRPECE"",163,0)"
^XMB(3.9,6,2,1370,0)=" S DIR(""B"")=""NO"" D ^DIR K DIR S DGANS=Y"
^XMB(3.9,6,2,1371,0)="""RTN"",""DGRPECE"",164,0)"
^XMB(3.9,6,2,1372,0)=" S DGANS=$S(Y=1:1,1:0) ;0=don't save, 1=save with CE alert"
^XMB(3.9,6,2,1373,0)="""RTN"",""DGRPECE"",165,0)"
^XMB(3.9,6,2,1374,0)=" Q DGANS"
^XMB(3.9,6,2,1375,0)="""RTN"",""DGRPECE"",166,0)"
^XMB(3.9,6,2,1376,0)=" ;"
^XMB(3.9,6,2,1377,0)="""RTN"",""DGRPECE"",167,0)"
^XMB(3.9,6,2,1378,0)="ALERT ;Queue alert"
^XMB(3.9,6,2,1379,0)="""RTN"",""DGRPECE"",168,0)"
^XMB(3.9,6,2,1380,0)=" X ^%ZOSF(""UCI"") S ZTUCI=Y,ZTRTN=""ALERT^DGRPECE1"",ZTDTH=$H,ZTIO="""",IEN=DFN"
^XMB(3.9,6,2,1381,0)="""RTN"",""DGRPECE"",169,0)"
^XMB(3.9,6,2,1382,0)=" F V=""IEN"",""BEFORE("",""BUFFER("",""SAVE("",""XQY"" S ZTSAVE(V)="""""
^XMB(3.9,6,2,1383,0)="""RTN"",""DGRPECE"",170,0)"
^XMB(3.9,6,2,1384,0)=" S ZTDESC=""Patient Catastrophic Edits alert"" K V,ZTSK N X D ^%ZTLOAD  Q"
^XMB(3.9,6,2,1385,0)="""RTN"",""DGRPECE"",171,0)"
^XMB(3.9,6,2,1386,0)=" ;D ALERT^DGRPECE1(DFN,.BEFORE,.BUFFER,.SAVE)"
^XMB(3.9,6,2,1387,0)="""RTN"",""DGRPECE"",172,0)"
^XMB(3.9,6,2,1388,0)=" Q"
^XMB(3.9,6,2,1389,0)="""VER"")"
^XMB(3.9,6,2,1390,0)="8.0^22.0"
^XMB(3.9,6,2,1391,0)="""BLD"",6597,6)"
^XMB(3.9,6,2,1392,0)="^621"
^XMB(3.9,6,2,1393,0)="$END KID DG*5.3*700"
^XMB(3.9,6,6,0)="^3.911A^2^2"
^XMB(3.9,6,6,1,0)="POSTMASTER"
^XMB(3.9,6,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,6,6,"B","POSTMASTER",1)=""
^XMB(3.9,6,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,7,0)="DG-5P3_SEQ-622_PAT-711.KID^.5^3061008.01573^^^^K"
^XMB(3.9,7,.6)="3061008"
^XMB(3.9,7,1,0)="^3.91A^2^2"
^XMB(3.9,7,1,1,0)=".5^0^3061008.01573^^^^^^^3061008.01573"
^XMB(3.9,7,1,2,0)="1^0^3061008.024022^^^^^^^3061008.024022"
^XMB(3.9,7,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,7,1,"C",.5,1)=""
^XMB(3.9,7,1,"C",1,2)=""
^XMB(3.9,7,2,0)="^^689^689^3061008"
^XMB(3.9,7,2,1,0)="$TXT EMERGENCY Released DG*5.3*711 SEQ #622"
^XMB(3.9,7,2,2,0)="Extracted from mail message"
^XMB(3.9,7,2,3,0)="$END TXT"
^XMB(3.9,7,2,4,0)="$KID DG*5.3*711"
^XMB(3.9,7,2,5,0)="**INSTALL NAME**"
^XMB(3.9,7,2,6,0)="DG*5.3*711"
^XMB(3.9,7,2,7,0)="""BLD"",2362,0)"
^XMB(3.9,7,2,8,0)="DG*5.3*711^REGISTRATION^0^3060612^y"
^XMB(3.9,7,2,9,0)="""BLD"",2362,1,0)"
^XMB(3.9,7,2,10,0)="^^3^3^3060612^"
^XMB(3.9,7,2,11,0)="""BLD"",2362,1,1,0)"
^XMB(3.9,7,2,12,0)="FIX FOR MASTER PATIENT INDEX NAME SYNCHRONIZATION ISSUE"
^XMB(3.9,7,2,13,0)="""BLD"",2362,1,2,0)"
^XMB(3.9,7,2,14,0)="Refer to patch DG*5.3*711 in the FORUM Patch Module for a complete"
^XMB(3.9,7,2,15,0)="""BLD"",2362,1,3,0)"
^XMB(3.9,7,2,16,0)="description."
^XMB(3.9,7,2,17,0)="""BLD"",2362,4,0)"
^XMB(3.9,7,2,18,0)="^9.64PA^^"
^XMB(3.9,7,2,19,0)="""BLD"",2362,""ABNS"",0)"
^XMB(3.9,7,2,20,0)="^9.66A^^"
^XMB(3.9,7,2,21,0)="""BLD"",2362,""ABPKG"")"
^XMB(3.9,7,2,22,0)="^^"
^XMB(3.9,7,2,23,0)="""BLD"",2362,""KRN"",0)"
^XMB(3.9,7,2,24,0)="^9.67PA^8989.52^19"
^XMB(3.9,7,2,25,0)="""BLD"",2362,""KRN"",.4,0)"
^XMB(3.9,7,2,26,0)=".4"
^XMB(3.9,7,2,27,0)="""BLD"",2362,""KRN"",.401,0)"
^XMB(3.9,7,2,28,0)=".401"
^XMB(3.9,7,2,29,0)="""BLD"",2362,""KRN"",.402,0)"
^XMB(3.9,7,2,30,0)=".402"
^XMB(3.9,7,2,31,0)="""BLD"",2362,""KRN"",.403,0)"
^XMB(3.9,7,2,32,0)=".403"
^XMB(3.9,7,2,33,0)="""BLD"",2362,""KRN"",.5,0)"
^XMB(3.9,7,2,34,0)=".5"
^XMB(3.9,7,2,35,0)="""BLD"",2362,""KRN"",.84,0)"
^XMB(3.9,7,2,36,0)=".84"
^XMB(3.9,7,2,37,0)="""BLD"",2362,""KRN"",3.6,0)"
^XMB(3.9,7,2,38,0)="3.6"
^XMB(3.9,7,2,39,0)="""BLD"",2362,""KRN"",3.8,0)"
^XMB(3.9,7,2,40,0)="3.8"
^XMB(3.9,7,2,41,0)="""BLD"",2362,""KRN"",9.2,0)"
^XMB(3.9,7,2,42,0)="9.2"
^XMB(3.9,7,2,43,0)="""BLD"",2362,""KRN"",9.8,0)"
^XMB(3.9,7,2,44,0)="9.8"
^XMB(3.9,7,2,45,0)="""BLD"",2362,""KRN"",9.8,""NM"",0)"
^XMB(3.9,7,2,46,0)="^9.68A^2^2"
^XMB(3.9,7,2,47,0)="""BLD"",2362,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,7,2,48,0)="VAFCQRY1^^0^B64681125"
^XMB(3.9,7,2,49,0)="""BLD"",2362,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,7,2,50,0)="VAFCHIS^^0^B12925674"
^XMB(3.9,7,2,51,0)="""BLD"",2362,""KRN"",9.8,""NM"",""B"",""VAFCHIS"",2)"
^XMB(3.9,7,2,52,0)=""
^XMB(3.9,7,2,53,0)="""BLD"",2362,""KRN"",9.8,""NM"",""B"",""VAFCQRY1"",1)"
^XMB(3.9,7,2,54,0)=""
^XMB(3.9,7,2,55,0)="""BLD"",2362,""KRN"",19,0)"
^XMB(3.9,7,2,56,0)="19"
^XMB(3.9,7,2,57,0)="""BLD"",2362,""KRN"",19.1,0)"
^XMB(3.9,7,2,58,0)="19.1"
^XMB(3.9,7,2,59,0)="""BLD"",2362,""KRN"",101,0)"
^XMB(3.9,7,2,60,0)="101"
^XMB(3.9,7,2,61,0)="""BLD"",2362,""KRN"",409.61,0)"
^XMB(3.9,7,2,62,0)="409.61"
^XMB(3.9,7,2,63,0)="""BLD"",2362,""KRN"",771,0)"
^XMB(3.9,7,2,64,0)="771"
^XMB(3.9,7,2,65,0)="""BLD"",2362,""KRN"",870,0)"
^XMB(3.9,7,2,66,0)="870"
^XMB(3.9,7,2,67,0)="""BLD"",2362,""KRN"",8989.51,0)"
^XMB(3.9,7,2,68,0)="8989.51"
^XMB(3.9,7,2,69,0)="""BLD"",2362,""KRN"",8989.52,0)"
^XMB(3.9,7,2,70,0)="8989.52"
^XMB(3.9,7,2,71,0)="""BLD"",2362,""KRN"",8994,0)"
^XMB(3.9,7,2,72,0)="8994"
^XMB(3.9,7,2,73,0)="""BLD"",2362,""KRN"",""B"",.4,.4)"
^XMB(3.9,7,2,74,0)=""
^XMB(3.9,7,2,75,0)="""BLD"",2362,""KRN"",""B"",.401,.401)"
^XMB(3.9,7,2,76,0)=""
^XMB(3.9,7,2,77,0)="""BLD"",2362,""KRN"",""B"",.402,.402)"
^XMB(3.9,7,2,78,0)=""
^XMB(3.9,7,2,79,0)="""BLD"",2362,""KRN"",""B"",.403,.403)"
^XMB(3.9,7,2,80,0)=""
^XMB(3.9,7,2,81,0)="""BLD"",2362,""KRN"",""B"",.5,.5)"
^XMB(3.9,7,2,82,0)=""
^XMB(3.9,7,2,83,0)="""BLD"",2362,""KRN"",""B"",.84,.84)"
^XMB(3.9,7,2,84,0)=""
^XMB(3.9,7,2,85,0)="""BLD"",2362,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,7,2,86,0)=""
^XMB(3.9,7,2,87,0)="""BLD"",2362,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,7,2,88,0)=""
^XMB(3.9,7,2,89,0)="""BLD"",2362,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,7,2,90,0)=""
^XMB(3.9,7,2,91,0)="""BLD"",2362,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,7,2,92,0)=""
^XMB(3.9,7,2,93,0)="""BLD"",2362,""KRN"",""B"",19,19)"
^XMB(3.9,7,2,94,0)=""
^XMB(3.9,7,2,95,0)="""BLD"",2362,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,7,2,96,0)=""
^XMB(3.9,7,2,97,0)="""BLD"",2362,""KRN"",""B"",101,101)"
^XMB(3.9,7,2,98,0)=""
^XMB(3.9,7,2,99,0)="""BLD"",2362,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,7,2,100,0)=""
^XMB(3.9,7,2,101,0)="""BLD"",2362,""KRN"",""B"",771,771)"
^XMB(3.9,7,2,102,0)=""
^XMB(3.9,7,2,103,0)="""BLD"",2362,""KRN"",""B"",870,870)"
^XMB(3.9,7,2,104,0)=""
^XMB(3.9,7,2,105,0)="""BLD"",2362,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,7,2,106,0)=""
^XMB(3.9,7,2,107,0)="""BLD"",2362,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,7,2,108,0)=""
^XMB(3.9,7,2,109,0)="""BLD"",2362,""KRN"",""B"",8994,8994)"
^XMB(3.9,7,2,110,0)=""
^XMB(3.9,7,2,111,0)="""BLD"",2362,""QUES"",0)"
^XMB(3.9,7,2,112,0)="^9.62^^"
^XMB(3.9,7,2,113,0)="""BLD"",2362,""REQB"",0)"
^XMB(3.9,7,2,114,0)="^9.611^2^2"
^XMB(3.9,7,2,115,0)="""BLD"",2362,""REQB"",1,0)"
^XMB(3.9,7,2,116,0)="DG*5.3*698^2"
^XMB(3.9,7,2,117,0)="""BLD"",2362,""REQB"",2,0)"
^XMB(3.9,7,2,118,0)="DG*5.3*307^2"
^XMB(3.9,7,2,119,0)="""BLD"",2362,""REQB"",""B"",""DG*5.3*307"",2)"
^XMB(3.9,7,2,120,0)=""
^XMB(3.9,7,2,121,0)="""BLD"",2362,""REQB"",""B"",""DG*5.3*698"",1)"
^XMB(3.9,7,2,122,0)=""
^XMB(3.9,7,2,123,0)="""MBREQ"")"
^XMB(3.9,7,2,124,0)="0"
^XMB(3.9,7,2,125,0)="""PKG"",5,-1)"
^XMB(3.9,7,2,126,0)="1^1"
^XMB(3.9,7,2,127,0)="""PKG"",5,0)"
^XMB(3.9,7,2,128,0)="REGISTRATION^DG^PATIENT REGISTRATION, ADMISSION, DISCHARGE, EMBOSSER "
^XMB(3.9,7,2,129,0)="""PKG"",5,20,0)"
^XMB(3.9,7,2,130,0)="^9.402P^^"
^XMB(3.9,7,2,131,0)="""PKG"",5,22,0)"
^XMB(3.9,7,2,132,0)="^9.49I^1^1"
^XMB(3.9,7,2,133,0)="""PKG"",5,22,1,0)"
^XMB(3.9,7,2,134,0)="5.3^2930813^2970721^12541"
^XMB(3.9,7,2,135,0)="""PKG"",5,22,1,""PAH"",1,0)"
^XMB(3.9,7,2,136,0)="711^3060612^12584"
^XMB(3.9,7,2,137,0)="""PKG"",5,22,1,""PAH"",1,1,0)"
^XMB(3.9,7,2,138,0)="^^3^3^3060612"
^XMB(3.9,7,2,139,0)="""PKG"",5,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,7,2,140,0)="FIX FOR MASTER PATIENT INDEX NAME SYNCHRONIZATION ISSUE"
^XMB(3.9,7,2,141,0)="""PKG"",5,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,7,2,142,0)="Refer to patch DG*5.3*711 in the FORUM Patch Module for a complete"
^XMB(3.9,7,2,143,0)="""PKG"",5,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,7,2,144,0)="description."
^XMB(3.9,7,2,145,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,7,2,146,0)="Y"
^XMB(3.9,7,2,147,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,7,2,148,0)="^D REP^XPDH"
^XMB(3.9,7,2,149,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,7,2,150,0)="Shall I write over your |FLAG| File"
^XMB(3.9,7,2,151,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,7,2,152,0)="YES"
^XMB(3.9,7,2,153,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,7,2,154,0)="D XPF1^XPDIQ"
^XMB(3.9,7,2,155,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,7,2,156,0)="Y"
^XMB(3.9,7,2,157,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,7,2,158,0)="^D DTA^XPDH"
^XMB(3.9,7,2,159,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,7,2,160,0)="Want my data |FLAG| yours"
^XMB(3.9,7,2,161,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,7,2,162,0)="YES"
^XMB(3.9,7,2,163,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,7,2,164,0)="D XPF2^XPDIQ"
^XMB(3.9,7,2,165,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,7,2,166,0)="YO"
^XMB(3.9,7,2,167,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,7,2,168,0)="^D INHIBIT^XPDH"
^XMB(3.9,7,2,169,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,7,2,170,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,7,2,171,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,7,2,172,0)="YES"
^XMB(3.9,7,2,173,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,7,2,174,0)="D XPI1^XPDIQ"
^XMB(3.9,7,2,175,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,7,2,176,0)="PO^VA(200,:EM"
^XMB(3.9,7,2,177,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,7,2,178,0)="^D MG^XPDH"
^XMB(3.9,7,2,179,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,7,2,180,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,7,2,181,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,7,2,182,0)=""
^XMB(3.9,7,2,183,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,7,2,184,0)="D XPM1^XPDIQ"
^XMB(3.9,7,2,185,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,7,2,186,0)="Y"
^XMB(3.9,7,2,187,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,7,2,188,0)="^D MENU^XPDH"
^XMB(3.9,7,2,189,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,7,2,190,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,7,2,191,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,7,2,192,0)="YES"
^XMB(3.9,7,2,193,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,7,2,194,0)="D XPO1^XPDIQ"
^XMB(3.9,7,2,195,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,7,2,196,0)="Y"
^XMB(3.9,7,2,197,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,7,2,198,0)="^D OPT^XPDH"
^XMB(3.9,7,2,199,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,7,2,200,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,7,2,201,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,7,2,202,0)="YES"
^XMB(3.9,7,2,203,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,7,2,204,0)="D XPZ1^XPDIQ"
^XMB(3.9,7,2,205,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,7,2,206,0)="Y"
^XMB(3.9,7,2,207,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,7,2,208,0)="^D RTN^XPDH"
^XMB(3.9,7,2,209,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,7,2,210,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,7,2,211,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,7,2,212,0)="NO"
^XMB(3.9,7,2,213,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,7,2,214,0)="D XPZ2^XPDIQ"
^XMB(3.9,7,2,215,0)="""RTN"")"
^XMB(3.9,7,2,216,0)="2"
^XMB(3.9,7,2,217,0)="""RTN"",""VAFCHIS"")"
^XMB(3.9,7,2,218,0)="0^2^B12925674^B4546709"
^XMB(3.9,7,2,219,0)="""RTN"",""VAFCHIS"",1,0)"
^XMB(3.9,7,2,220,0)="VAFCHIS ;SF/CMC-TESTING CROSS REFERENCE ;11/20/97"
^XMB(3.9,7,2,221,0)="""RTN"",""VAFCHIS"",2,0)"
^XMB(3.9,7,2,222,0)=" ;;5.3;Registration;**149,255,307,711**;Aug 13, 1993"
^XMB(3.9,7,2,223,0)="""RTN"",""VAFCHIS"",3,0)"
^XMB(3.9,7,2,224,0)=" ;"
^XMB(3.9,7,2,225,0)="""RTN"",""VAFCHIS"",4,0)"
^XMB(3.9,7,2,226,0)=" ; Integration Agreements Utilized:"
^XMB(3.9,7,2,227,0)="""RTN"",""VAFCHIS"",5,0)"
^XMB(3.9,7,2,228,0)=" ;    CHECKDG^MPIFSPC - #3158"
^XMB(3.9,7,2,229,0)="""RTN"",""VAFCHIS"",6,0)"
^XMB(3.9,7,2,230,0)=" ;"
^XMB(3.9,7,2,231,0)="""RTN"",""VAFCHIS"",7,0)"
^XMB(3.9,7,2,232,0)="ICN(OLD,ENT) ;"
^XMB(3.9,7,2,233,0)="""RTN"",""VAFCHIS"",8,0)"
^XMB(3.9,7,2,234,0)=" ;"
^XMB(3.9,7,2,235,0)="""RTN"",""VAFCHIS"",9,0)"
^XMB(3.9,7,2,236,0)=" I '$D(OLD)!('$D(ENT)) Q"
^XMB(3.9,7,2,237,0)="""RTN"",""VAFCHIS"",10,0)"
^XMB(3.9,7,2,238,0)=" N NEWICN,DIC,Y"
^XMB(3.9,7,2,239,0)="""RTN"",""VAFCHIS"",11,0)"
^XMB(3.9,7,2,240,0)=" ;checking that CIRN PD/MPI is installed"
^XMB(3.9,7,2,241,0)="""RTN"",""VAFCHIS"",12,0)"
^XMB(3.9,7,2,242,0)=" N X S X=""MPIF001"" X ^%ZOSF(""TEST"") Q:'$T"
^XMB(3.9,7,2,243,0)="""RTN"",""VAFCHIS"",13,0)"
^XMB(3.9,7,2,244,0)=" N X S X=""MPIFAPI"" X ^%ZOSF(""TEST"") Q:'$T"
^XMB(3.9,7,2,245,0)="""RTN"",""VAFCHIS"",14,0)"
^XMB(3.9,7,2,246,0)=" N X S X=""MPIFMER"" X ^%ZOSF(""TEST"") Q:'$T"
^XMB(3.9,7,2,247,0)="""RTN"",""VAFCHIS"",15,0)"
^XMB(3.9,7,2,248,0)=" S NEWICN=+$$GETICN^MPIF001(ENT)"
^XMB(3.9,7,2,249,0)="""RTN"",""VAFCHIS"",16,0)"
^XMB(3.9,7,2,250,0)=" Q:OLD=NEWICN!(OLD="""")"
^XMB(3.9,7,2,251,0)="""RTN"",""VAFCHIS"",17,0)"
^XMB(3.9,7,2,252,0)=" ; ^ UPDATE ICN WITH SAME ICN DON'T PUT IT IN HISTORY"
^XMB(3.9,7,2,253,0)="""RTN"",""VAFCHIS"",18,0)"
^XMB(3.9,7,2,254,0)=" ;"
^XMB(3.9,7,2,255,0)="""RTN"",""VAFCHIS"",19,0)"
^XMB(3.9,7,2,256,0)=" S OLDDA=DA,OLDX=OLD"
^XMB(3.9,7,2,257,0)="""RTN"",""VAFCHIS"",20,0)"
^XMB(3.9,7,2,258,0)=" N DA"
^XMB(3.9,7,2,259,0)="""RTN"",""VAFCHIS"",21,0)"
^XMB(3.9,7,2,260,0)=" ;"
^XMB(3.9,7,2,261,0)="""RTN"",""VAFCHIS"",22,0)"
^XMB(3.9,7,2,262,0)=" D NOW^%DTC"
^XMB(3.9,7,2,263,0)="""RTN"",""VAFCHIS"",23,0)"
^XMB(3.9,7,2,264,0)=" S HAP=%"
^XMB(3.9,7,2,265,0)="""RTN"",""VAFCHIS"",24,0)"
^XMB(3.9,7,2,266,0)=" ;S NODE=$$MPINODE^MPIFAPI(ENT) **711"
^XMB(3.9,7,2,267,0)="""RTN"",""VAFCHIS"",25,0)"
^XMB(3.9,7,2,268,0)=" S X=OLD"
^XMB(3.9,7,2,269,0)="""RTN"",""VAFCHIS"",26,0)"
^XMB(3.9,7,2,270,0)=" S DIC=""^DPT(""_ENT_"",""""MPIFHIS"""","",DIC(0)=""L"""
^XMB(3.9,7,2,271,0)="""RTN"",""VAFCHIS"",27,0)"
^XMB(3.9,7,2,272,0)=" I '$D(^DPT(ENT,""MPIFHIS"",0)) S ^DPT(ENT,""MPIFHIS"",0)=""^2.0992A^0^0"""
^XMB(3.9,7,2,273,0)="""RTN"",""VAFCHIS"",28,0)"
^XMB(3.9,7,2,274,0)=" S DIC(""P"")=$P(^DPT(ENT,""MPIFHIS"",0),""^"",2)"
^XMB(3.9,7,2,275,0)="""RTN"",""VAFCHIS"",29,0)"
^XMB(3.9,7,2,276,0)=" S DA(1)=ENT"
^XMB(3.9,7,2,277,0)="""RTN"",""VAFCHIS"",30,0)"
^XMB(3.9,7,2,278,0)=" D ^DIC"
^XMB(3.9,7,2,279,0)="""RTN"",""VAFCHIS"",31,0)"
^XMB(3.9,7,2,280,0)=" ;**711 change setting of checksum and CMOR ensure correct data stored"
^XMB(3.9,7,2,281,0)="""RTN"",""VAFCHIS"",32,0)"
^XMB(3.9,7,2,282,0)=" S $P(^DPT(ENT,""MPIFHIS"",+Y,0),""^"",2)=$$CHECKDG^MPIFSPC(OLD)"
^XMB(3.9,7,2,283,0)="""RTN"",""VAFCHIS"",33,0)"
^XMB(3.9,7,2,284,0)=" S $P(^DPT(ENT,""MPIFHIS"",+Y,0),""^"",3)=$P($G(^DPT(ENT,""MPI"")),""^"",3)"
^XMB(3.9,7,2,285,0)="""RTN"",""VAFCHIS"",34,0)"
^XMB(3.9,7,2,286,0)=" S $P(^DPT(ENT,""MPIFHIS"",+Y,0),""^"",4)=HAP"
^XMB(3.9,7,2,287,0)="""RTN"",""VAFCHIS"",35,0)"
^XMB(3.9,7,2,288,0)=" ;"
^XMB(3.9,7,2,289,0)="""RTN"",""VAFCHIS"",36,0)"
^XMB(3.9,7,2,290,0)=" S ^DPT(""AICN"",OLD,ENT)="""""
^XMB(3.9,7,2,291,0)="""RTN"",""VAFCHIS"",37,0)"
^XMB(3.9,7,2,292,0)=" K NODE,%,HAP"
^XMB(3.9,7,2,293,0)="""RTN"",""VAFCHIS"",38,0)"
^XMB(3.9,7,2,294,0)=" S X=OLDX,DA=OLDDA"
^XMB(3.9,7,2,295,0)="""RTN"",""VAFCHIS"",39,0)"
^XMB(3.9,7,2,296,0)=" K OLDX,OLDDA"
^XMB(3.9,7,2,297,0)="""RTN"",""VAFCHIS"",40,0)"
^XMB(3.9,7,2,298,0)=" ;**REPLACED BY LINK MSGS MPIF*1.0*21 changes MER^MPIFMER call to quit"
^XMB(3.9,7,2,299,0)="""RTN"",""VAFCHIS"",41,0)"
^XMB(3.9,7,2,300,0)=" ;Send ""Merge"" (change) ICN message to all subscribers"
^XMB(3.9,7,2,301,0)="""RTN"",""VAFCHIS"",42,0)"
^XMB(3.9,7,2,302,0)=" ;N ERROR,FLG"
^XMB(3.9,7,2,303,0)="""RTN"",""VAFCHIS"",43,0)"
^XMB(3.9,7,2,304,0)=" ;S FLG=1"
^XMB(3.9,7,2,305,0)="""RTN"",""VAFCHIS"",44,0)"
^XMB(3.9,7,2,306,0)=" ;I $P($$GETICN^MPIF001(DA),""^"")'="""" D MER^MPIFMER(DA,X,.ERROR,FLG)"
^XMB(3.9,7,2,307,0)="""RTN"",""VAFCHIS"",45,0)"
^XMB(3.9,7,2,308,0)=" Q"
^XMB(3.9,7,2,309,0)="""RTN"",""VAFCHIS"",46,0)"
^XMB(3.9,7,2,310,0)="CMOR(OLD,RGDFN) ;ALS 6/23/00"
^XMB(3.9,7,2,311,0)="""RTN"",""VAFCHIS"",47,0)"
^XMB(3.9,7,2,312,0)=" ; Create CMOR History node"
^XMB(3.9,7,2,313,0)="""RTN"",""VAFCHIS"",48,0)"
^XMB(3.9,7,2,314,0)=" I '$D(OLD)!('$D(RGDFN)) Q"
^XMB(3.9,7,2,315,0)="""RTN"",""VAFCHIS"",49,0)"
^XMB(3.9,7,2,316,0)=" N NEWCMOR"
^XMB(3.9,7,2,317,0)="""RTN"",""VAFCHIS"",50,0)"
^XMB(3.9,7,2,318,0)=" S NEWCMOR=$$GETVCCI^MPIF001(RGDFN)"
^XMB(3.9,7,2,319,0)="""RTN"",""VAFCHIS"",51,0)"
^XMB(3.9,7,2,320,0)=" Q:OLD=NEWCMOR!(OLD="""")"
^XMB(3.9,7,2,321,0)="""RTN"",""VAFCHIS"",52,0)"
^XMB(3.9,7,2,322,0)=" ;"
^XMB(3.9,7,2,323,0)="""RTN"",""VAFCHIS"",53,0)"
^XMB(3.9,7,2,324,0)=" D NOW^%DTC"
^XMB(3.9,7,2,325,0)="""RTN"",""VAFCHIS"",54,0)"
^XMB(3.9,7,2,326,0)=" S CHGDT=%"
^XMB(3.9,7,2,327,0)="""RTN"",""VAFCHIS"",55,0)"
^XMB(3.9,7,2,328,0)=" S NODE=$$MPINODE^MPIFAPI(RGDFN)"
^XMB(3.9,7,2,329,0)="""RTN"",""VAFCHIS"",56,0)"
^XMB(3.9,7,2,330,0)=" S X=OLD"
^XMB(3.9,7,2,331,0)="""RTN"",""VAFCHIS"",57,0)"
^XMB(3.9,7,2,332,0)=" S DIC=""^DPT(""_RGDFN_"",""""MPICMOR"""","",DIC(0)=""L"""
^XMB(3.9,7,2,333,0)="""RTN"",""VAFCHIS"",58,0)"
^XMB(3.9,7,2,334,0)=" I '$D(^DPT(RGDFN,""MPICMOR"",0)) S ^DPT(RGDFN,""MPICMOR"",0)=""^2.0993A^0^0"""
^XMB(3.9,7,2,335,0)="""RTN"",""VAFCHIS"",59,0)"
^XMB(3.9,7,2,336,0)=" S DIC(""P"")=$P(^DPT(RGDFN,""MPICMOR"",0),""^"",2)"
^XMB(3.9,7,2,337,0)="""RTN"",""VAFCHIS"",60,0)"
^XMB(3.9,7,2,338,0)=" S DA(1)=RGDFN"
^XMB(3.9,7,2,339,0)="""RTN"",""VAFCHIS"",61,0)"
^XMB(3.9,7,2,340,0)=" D ^DIC"
^XMB(3.9,7,2,341,0)="""RTN"",""VAFCHIS"",62,0)"
^XMB(3.9,7,2,342,0)=" ; add CMOR activity score and calculation date to node"
^XMB(3.9,7,2,343,0)="""RTN"",""VAFCHIS"",63,0)"
^XMB(3.9,7,2,344,0)=" S $P(^DPT(RGDFN,""MPICMOR"",+Y,0),""^"",2)=$P(NODE,""^"",6)"
^XMB(3.9,7,2,345,0)="""RTN"",""VAFCHIS"",64,0)"
^XMB(3.9,7,2,346,0)=" S $P(^DPT(RGDFN,""MPICMOR"",+Y,0),""^"",3)=$P(NODE,""^"",7)"
^XMB(3.9,7,2,347,0)="""RTN"",""VAFCHIS"",65,0)"
^XMB(3.9,7,2,348,0)=" S $P(^DPT(RGDFN,""MPICMOR"",+Y,0),""^"",4)=CHGDT"
^XMB(3.9,7,2,349,0)="""RTN"",""VAFCHIS"",66,0)"
^XMB(3.9,7,2,350,0)=" ;"
^XMB(3.9,7,2,351,0)="""RTN"",""VAFCHIS"",67,0)"
^XMB(3.9,7,2,352,0)=" K NODE,%,Y,DIC,CHGDT"
^XMB(3.9,7,2,353,0)="""RTN"",""VAFCHIS"",68,0)"
^XMB(3.9,7,2,354,0)=" Q"
^XMB(3.9,7,2,355,0)="""RTN"",""VAFCHIS"",69,0)"
^XMB(3.9,7,2,356,0)="GETICNH(MDFN,ARRAY) ; **711 added API"
^XMB(3.9,7,2,357,0)="""RTN"",""VAFCHIS"",70,0)"
^XMB(3.9,7,2,358,0)=" ; Returns ICN History in ARRAY "
^XMB(3.9,7,2,359,0)="""RTN"",""VAFCHIS"",71,0)"
^XMB(3.9,7,2,360,0)=" ;Input:  MDFN is the IEN in file 2"
^XMB(3.9,7,2,361,0)="""RTN"",""VAFCHIS"",72,0)"
^XMB(3.9,7,2,362,0)=" ;ARRAY is passed by reference and will return from ICN History nodes: ICN 'V' ICN Checksum ^ deprecated date"
^XMB(3.9,7,2,363,0)="""RTN"",""VAFCHIS"",73,0)"
^XMB(3.9,7,2,364,0)=" ;If there is a problem ARRAY will equal -1^error message"
^XMB(3.9,7,2,365,0)="""RTN"",""VAFCHIS"",74,0)"
^XMB(3.9,7,2,366,0)=" K ARRAY"
^XMB(3.9,7,2,367,0)="""RTN"",""VAFCHIS"",75,0)"
^XMB(3.9,7,2,368,0)=" S ARRAY=1"
^XMB(3.9,7,2,369,0)="""RTN"",""VAFCHIS"",76,0)"
^XMB(3.9,7,2,370,0)=" I MDFN=""""!(MDFN<1) S ARRAY=""-1^No such DFN"" Q"
^XMB(3.9,7,2,371,0)="""RTN"",""VAFCHIS"",77,0)"
^XMB(3.9,7,2,372,0)=" I '$D(^DPT(MDFN)) S ARRAY=""-1^No such DFN"" Q"
^XMB(3.9,7,2,373,0)="""RTN"",""VAFCHIS"",78,0)"
^XMB(3.9,7,2,374,0)=" I '$D(^DPT(MDFN,""MPIFHIS"")) S ARRAY=""-1^No ICN History"" Q"
^XMB(3.9,7,2,375,0)="""RTN"",""VAFCHIS"",79,0)"
^XMB(3.9,7,2,376,0)=" N CHK,HISTDT,HIST,CNT,VAFCHMN S HIST=0,CNT=1"
^XMB(3.9,7,2,377,0)="""RTN"",""VAFCHIS"",80,0)"
^XMB(3.9,7,2,378,0)=" F  S HIST=$O(^DPT(MDFN,""MPIFHIS"",HIST)) Q:'HIST  D"
^XMB(3.9,7,2,379,0)="""RTN"",""VAFCHIS"",81,0)"
^XMB(3.9,7,2,380,0)=" .S VAFCHMN=$G(^DPT(MDFN,""MPIFHIS"",HIST,0))"
^XMB(3.9,7,2,381,0)="""RTN"",""VAFCHIS"",82,0)"
^XMB(3.9,7,2,382,0)=" .S HISTDT=$P(VAFCHMN,""^"",4) D"
^XMB(3.9,7,2,383,0)="""RTN"",""VAFCHIS"",83,0)"
^XMB(3.9,7,2,384,0)=" ..;due to a timing issue if checksum and D/T of deprication of ICN is not present hang two seconds and try again if still not able to get ICN set D/T to DT"
^XMB(3.9,7,2,385,0)="""RTN"",""VAFCHIS"",84,0)"
^XMB(3.9,7,2,386,0)=" ..I $G(HISTDT)="""" H 2 S VAFCHMN=^DPT(MDFN,""MPIFHIS"",HIST,0) S HISTDT=$P(VAFCHMN,""^"",4) I HISTDT="""" S $P(VAFCHMN,""^"",4)=DT"
^XMB(3.9,7,2,387,0)="""RTN"",""VAFCHIS"",85,0)"
^XMB(3.9,7,2,388,0)=" .;verify checksum is correct, if not update it and return the updated value"
^XMB(3.9,7,2,389,0)="""RTN"",""VAFCHIS"",86,0)"
^XMB(3.9,7,2,390,0)=" .S CHK=$$CHECKDG^MPIFSPC($P(VAFCHMN,""^""))"
^XMB(3.9,7,2,391,0)="""RTN"",""VAFCHIS"",87,0)"
^XMB(3.9,7,2,392,0)=" .I CHK'=$P(VAFCHMN,""^"",2) S $P(^DPT(MDFN,""MPIFHIS"",HIST,0),""^"",2)=CHK,$P(VAFCHMN,""^"",2)=CHK"
^XMB(3.9,7,2,393,0)="""RTN"",""VAFCHIS"",88,0)"
^XMB(3.9,7,2,394,0)=" .S ARRAY(CNT)=$P(VAFCHMN,""^"")_""V""_$P(VAFCHMN,""^"",2)_""^""_HISTDT,CNT=CNT+1"
^XMB(3.9,7,2,395,0)="""RTN"",""VAFCHIS"",89,0)"
^XMB(3.9,7,2,396,0)=" I $O(ARRAY(0))="""" S ARRAY=""-1^No ICN History"""
^XMB(3.9,7,2,397,0)="""RTN"",""VAFCHIS"",90,0)"
^XMB(3.9,7,2,398,0)=" Q"
^XMB(3.9,7,2,399,0)="""RTN"",""VAFCQRY1"")"
^XMB(3.9,7,2,400,0)="0^1^B64681125^B69367143"
^XMB(3.9,7,2,401,0)="""RTN"",""VAFCQRY1"",1,0)"
^XMB(3.9,7,2,402,0)="VAFCQRY1 ;BIR/DLR-Query for patient demographics ;10/30/02  13:58"
^XMB(3.9,7,2,403,0)="""RTN"",""VAFCQRY1"",2,0)"
^XMB(3.9,7,2,404,0)=" ;;5.3;Registration;**428,474,477,575,627,648,698,711**;Aug 13, 1993"
^XMB(3.9,7,2,405,0)="""RTN"",""VAFCQRY1"",3,0)"
^XMB(3.9,7,2,406,0)=" ;"
^XMB(3.9,7,2,407,0)="""RTN"",""VAFCQRY1"",4,0)"
^XMB(3.9,7,2,408,0)=" ;Reference to $$GETDFNS^MPIF002 supported by IA #3634"
^XMB(3.9,7,2,409,0)="""RTN"",""VAFCQRY1"",5,0)"
^XMB(3.9,7,2,410,0)=" ;Reference to $$CHECKDG^MPIFSPC supported by IA #3158"
^XMB(3.9,7,2,411,0)="""RTN"",""VAFCQRY1"",6,0)"
^XMB(3.9,7,2,412,0)=" ;"
^XMB(3.9,7,2,413,0)="""RTN"",""VAFCQRY1"",7,0)"
^XMB(3.9,7,2,414,0)="BLDPID(DFN,CNT,SEQ,PID,HL,ERR)  ;build PID from File #2"
^XMB(3.9,7,2,415,0)="""RTN"",""VAFCQRY1"",8,0)"
^XMB(3.9,7,2,416,0)=" ; Variable list"
^XMB(3.9,7,2,417,0)="""RTN"",""VAFCQRY1"",9,0)"
^XMB(3.9,7,2,418,0)=" ;  DFN - internal PATIENT (#2) number"
^XMB(3.9,7,2,419,0)="""RTN"",""VAFCQRY1"",10,0)"
^XMB(3.9,7,2,420,0)=" ;  CNT - value to be place in PID seq#1 (SET ID)"
^XMB(3.9,7,2,421,0)="""RTN"",""VAFCQRY1"",11,0)"
^XMB(3.9,7,2,422,0)=" ;  SEQ - variable consisting of sequence numbers delimited by commas"
^XMB(3.9,7,2,423,0)="""RTN"",""VAFCQRY1"",12,0)"
^XMB(3.9,7,2,424,0)=" ;        that will be used to build the message (default is ALL)"
^XMB(3.9,7,2,425,0)="""RTN"",""VAFCQRY1"",13,0)"
^XMB(3.9,7,2,426,0)=" ;  PID (passed by reference) - array location to place PID segment"
^XMB(3.9,7,2,427,0)="""RTN"",""VAFCQRY1"",14,0)"
^XMB(3.9,7,2,428,0)=" ;        result, the array can have existing values when passed."
^XMB(3.9,7,2,429,0)="""RTN"",""VAFCQRY1"",15,0)"
^XMB(3.9,7,2,430,0)=" ;   HL - array that contains the necessary HL variables (init^hlsub)"
^XMB(3.9,7,2,431,0)="""RTN"",""VAFCQRY1"",16,0)"
^XMB(3.9,7,2,432,0)=" ;  ERR - array that is used to return an error"
^XMB(3.9,7,2,433,0)="""RTN"",""VAFCQRY1"",17,0)"
^XMB(3.9,7,2,434,0)=" N VAFCMN,VAFCMMN,SITE,VAFCZN,SSN,SITE,APID,HIST,HISTDT,VAFCHMN,NXT,NXTC,COMP,REP,SUBCOMP,STATE,CITY,CLAIM,HLECH,HLFS,HLQ,STATEIEN,SARY,LVL,LNGTH,X"
^XMB(3.9,7,2,435,0)="""RTN"",""VAFCQRY1"",18,0)"
^XMB(3.9,7,2,436,0)=" I '$D(SEQ) S SEQ=""ALL"""
^XMB(3.9,7,2,437,0)="""RTN"",""VAFCQRY1"",19,0)"
^XMB(3.9,7,2,438,0)=" I SEQ="""" S SEQ=""ALL"""
^XMB(3.9,7,2,439,0)="""RTN"",""VAFCQRY1"",20,0)"
^XMB(3.9,7,2,440,0)=" I SEQ'=""ALL"" N POS,EN S POS=1 F  S EN=$P(SEQ,"","",POS) Q:EN=""""  S SARY(EN)="""",POS=POS+1"
^XMB(3.9,7,2,441,0)="""RTN"",""VAFCQRY1"",21,0)"
^XMB(3.9,7,2,442,0)=" ; setting up temp array to hold fields to be included in message"
^XMB(3.9,7,2,443,0)="""RTN"",""VAFCQRY1"",22,0)"
^XMB(3.9,7,2,444,0)=" S HLECH=HL(""ECH""),HLFS=HL(""FS""),HLQ=HL(""Q""),(COMP,HL(""COMP""))=$E(HL(""ECH""),1)"
^XMB(3.9,7,2,445,0)="""RTN"",""VAFCQRY1"",23,0)"
^XMB(3.9,7,2,446,0)=" S (SUBCOMP,HL(""SUBCOMP""))=$E(HL(""ECH""),4),(REP,HL(""REP""))=$E(HL(""ECH""),2),HLES=$E(HL(""ECH""),3)"
^XMB(3.9,7,2,447,0)="""RTN"",""VAFCQRY1"",24,0)"
^XMB(3.9,7,2,448,0)=" ;get Patient File MPI node"
^XMB(3.9,7,2,449,0)="""RTN"",""VAFCQRY1"",25,0)"
^XMB(3.9,7,2,450,0)=" S VAFCMN=$$MPINODE^MPIFAPI(DFN)"
^XMB(3.9,7,2,451,0)="""RTN"",""VAFCQRY1"",26,0)"
^XMB(3.9,7,2,452,0)=" I +VAFCMN<0 S VAFCMN="""""
^XMB(3.9,7,2,453,0)="""RTN"",""VAFCQRY1"",27,0)"
^XMB(3.9,7,2,454,0)=" S VAFCZN=^DPT(DFN,0),SSN=$P(^DPT(DFN,0),""^"",9),SITE=$$SITE^VASITE"
^XMB(3.9,7,2,455,0)="""RTN"",""VAFCQRY1"",28,0)"
^XMB(3.9,7,2,456,0)=" N TMP F TMP=1:1:31 S APID(TMP)="""""
^XMB(3.9,7,2,457,0)="""RTN"",""VAFCQRY1"",29,0)"
^XMB(3.9,7,2,458,0)=" S APID(2)=CNT"
^XMB(3.9,7,2,459,0)="""RTN"",""VAFCQRY1"",30,0)"
^XMB(3.9,7,2,460,0)=" ;repeat patient ID list including ICN (NI),SSN (SS),CLAIM# (PN) AND DFN (PI)"
^XMB(3.9,7,2,461,0)="""RTN"",""VAFCQRY1"",31,0)"
^XMB(3.9,7,2,462,0)=" I $D(SARY(3))!(SEQ=""ALL"") D"
^XMB(3.9,7,2,463,0)="""RTN"",""VAFCQRY1"",32,0)"
^XMB(3.9,7,2,464,0)=" .S APID(4)="""""
^XMB(3.9,7,2,465,0)="""RTN"",""VAFCQRY1"",33,0)"
^XMB(3.9,7,2,466,0)=" .;National Identifier (ICN)"
^XMB(3.9,7,2,467,0)="""RTN"",""VAFCQRY1"",34,0)"
^XMB(3.9,7,2,468,0)=" .I VAFCMN'="""" I +VAFCMN>0 S APID(4)=$P(VAFCMN,""^"")_""V""_$P(VAFCMN,""^"",2)_COMP_COMP_COMP_""USVHA""_SUBCOMP_SUBCOMP_""0363""_COMP_""NI""_COMP_""VA FACILITY ID""_SUBCOMP_$$STA^XUAF4(+SITE)_SUBCOMP_""L"" D"
^XMB(3.9,7,2,469,0)="""RTN"",""VAFCQRY1"",35,0)"
^XMB(3.9,7,2,470,0)=" ..;Assumption that if this is a local ICN at this point send the message with an expiration date of today, so that it will be treated as a deprecated ID and stored on the MPI as such"
^XMB(3.9,7,2,471,0)="""RTN"",""VAFCQRY1"",36,0)"
^XMB(3.9,7,2,472,0)=" ..I $E($P(VAFCMN,""^""),1,3)=$P($$SITE^VASITE,""^"",3) S APID(4)=APID(4)_COMP_COMP_$$HLDATE^HLFNC(DT)"
^XMB(3.9,7,2,473,0)="""RTN"",""VAFCQRY1"",37,0)"
^XMB(3.9,7,2,474,0)=" .I $G(SSN)'="""" S APID(4)=APID(4)_$S(APID(4)'="""":REP,1:"""")_SSN_COMP_COMP_COMP_""USSSA""_SUBCOMP_SUBCOMP_""0363""_COMP_""SS""_COMP_""VA FACILITY ID""_SUBCOMP_$$STA^XUAF4(+SITE)_SUBCOMP_""L"""
^XMB(3.9,7,2,475,0)="""RTN"",""VAFCQRY1"",38,0)"
^XMB(3.9,7,2,476,0)=" .I $G(DFN)'="""" S APID(4)=APID(4)_$S(APID(4)'="""":REP,1:"""")_DFN_COMP_COMP_COMP_""USVHA""_SUBCOMP_SUBCOMP_""0363""_COMP_""PI""_COMP_""VA FACILITY ID""_SUBCOMP_$$STA^XUAF4(+SITE)_SUBCOMP_""L"" D"
^XMB(3.9,7,2,477,0)="""RTN"",""VAFCQRY1"",39,0)"
^XMB(3.9,7,2,478,0)=" ..;CLAIM#"
^XMB(3.9,7,2,479,0)="""RTN"",""VAFCQRY1"",40,0)"
^XMB(3.9,7,2,480,0)=" ..I $D(^DPT(DFN,.31)) S CLAIM=$P(^DPT(DFN,.31),""^"",3) I +CLAIM>0 S APID(4)=APID(4)_REP_CLAIM_COMP_COMP_COMP_""USVBA""_SUBCOMP_SUBCOMP_""0363""_COMP_""PN""_COMP_""VA FACILITY ID""_SUBCOMP_$$STA^XUAF4(+SITE)_SUBCOMP_""L"""
^XMB(3.9,7,2,481,0)="""RTN"",""VAFCQRY1"",41,0)"
^XMB(3.9,7,2,482,0)=" .N MPIFHIS D GETICNH^VAFCHIS(DFN,.MPIFHIS) I +MPIFHIS=1 N HIST S NXTC=0,LVL=0,HIST=0  F  S HIST=$O(MPIFHIS(HIST)) Q:'HIST  D"
^XMB(3.9,7,2,483,0)="""RTN"",""VAFCQRY1"",42,0)"
^XMB(3.9,7,2,484,0)=" ..I APID(4)'="""" D"
^XMB(3.9,7,2,485,0)="""RTN"",""VAFCQRY1"",43,0)"
^XMB(3.9,7,2,486,0)=" ...;**648 only send date not time"
^XMB(3.9,7,2,487,0)="""RTN"",""VAFCQRY1"",44,0)"
^XMB(3.9,7,2,488,0)=" ...S NXT=$P(MPIFHIS(HIST),""^"")_COMP_COMP_COMP_""USVHA""_SUBCOMP_SUBCOMP_""0363""_COMP_""NI""_COMP_""VA FACILITY ID""_SUBCOMP_$$STA^XUAF4(+SITE)_SUBCOMP_""L""_COMP_COMP_$$HLDATE^HLFNC($P(MPIFHIS(HIST),""^"",2),""DT"")"
^XMB(3.9,7,2,489,0)="""RTN"",""VAFCQRY1"",45,0)"
^XMB(3.9,7,2,490,0)=" ...I LVL=0 D"
^XMB(3.9,7,2,491,0)="""RTN"",""VAFCQRY1"",46,0)"
^XMB(3.9,7,2,492,0)=" ....I $L(APID(4)_NXT)'>244 S APID(4)=APID(4)_REP_NXT Q"
^XMB(3.9,7,2,493,0)="""RTN"",""VAFCQRY1"",47,0)"
^XMB(3.9,7,2,494,0)=" ....I $L(APID(4)_NXT)>244 S LVL=1 S LNGTH=244-$L(APID(4)),APID(4)=APID(4)_REP_$E(NXT,1,LNGTH) S LNGTH=LNGTH+1,NXT=$E(NXT,LNGTH,$L(NXT)),NXTC=1"
^XMB(3.9,7,2,495,0)="""RTN"",""VAFCQRY1"",48,0)"
^XMB(3.9,7,2,496,0)=" ...I LVL>0 D"
^XMB(3.9,7,2,497,0)="""RTN"",""VAFCQRY1"",49,0)"
^XMB(3.9,7,2,498,0)=" ....I $L($G(APID(4,LVL))_NXT)'>245 S APID(4,LVL)=$G(APID(4,LVL))_$S(NXTC=0:REP,1:"""")_NXT Q"
^XMB(3.9,7,2,499,0)="""RTN"",""VAFCQRY1"",50,0)"
^XMB(3.9,7,2,500,0)=" ....I $L($G(APID(4,LVL))_NXT)>245 S LNGTH=244-$L(APID(4,LVL)),APID(4,LVL)=APID(4,LVL)_REP_$E(NXT,1,LNGTH) S LNGTH=LNGTH+1,NXT=$E(NXT,LNGTH,$L(NXT)) S LVL=LVL+1 S APID(4,LVL)=NXT"
^XMB(3.9,7,2,501,0)="""RTN"",""VAFCQRY1"",51,0)"
^XMB(3.9,7,2,502,0)=" ..I NXTC=1 S NXTC=0"
^XMB(3.9,7,2,503,0)="""RTN"",""VAFCQRY1"",52,0)"
^XMB(3.9,7,2,504,0)=" ..I APID(4)="""" S APID(4)=$P(VAFCHMN,""^"")_COMP_COMP_COMP_""USVHA""_SUBCOMP_SUBCOMP_""0363""_COMP_""NI""_COMP_""VA FACILITY ID""_SUBCOMP_$$STA^XUAF4(+SITE)_SUBCOMP_""L""_COMP_COMP_$$HLDATE^HLFNC(HISTDT)"
^XMB(3.9,7,2,505,0)="""RTN"",""VAFCQRY1"",53,0)"
^XMB(3.9,7,2,506,0)="NAMEPID ;patient name (last^first^middle^suffix^prefix^^""L"" for legal)"
^XMB(3.9,7,2,507,0)="""RTN"",""VAFCQRY1"",54,0)"
^XMB(3.9,7,2,508,0)=" I $D(SARY(5))!(SEQ=""ALL"") D"
^XMB(3.9,7,2,509,0)="""RTN"",""VAFCQRY1"",55,0)"
^XMB(3.9,7,2,510,0)=" .;**711 code REMOVED PREFIX due to issues with existing PATIENT Name Standardization functionality"
^XMB(3.9,7,2,511,0)="""RTN"",""VAFCQRY1"",56,0)"
^XMB(3.9,7,2,512,0)=" .N X S X=$P(VAFCZN,""^"") D NAME^VAFCPID2(DFN,.X) S APID(6)=$$HLNAME^XLFNAME(X,"""",$E(HL(""ECH""),1)) I $P(APID(6),$E(HL(""ECH""),1),7)'=""L"" S $P(APID(6),$E(HL(""ECH""),1),7)=""L"""
^XMB(3.9,7,2,513,0)="""RTN"",""VAFCQRY1"",57,0)"
^XMB(3.9,7,2,514,0)="ALIAS .;patient alias (last^first^middle^suffice^prefix^^""A"" for alias - can be multiple)"
^XMB(3.9,7,2,515,0)="""RTN"",""VAFCQRY1"",58,0)"
^XMB(3.9,7,2,516,0)=" .N VAFCA1,ALIAS,ALIEN,LVL6 D GETS^DIQ(2,DFN_"","",""1*"",""E"",""VAFCA1"") S LVL6=0"
^XMB(3.9,7,2,517,0)="""RTN"",""VAFCQRY1"",59,0)"
^XMB(3.9,7,2,518,0)=" .I $D(VAFCA1) S:APID(6)'="""" APID(6)=APID(6)_REP S ALIEN=0 F  S ALIEN=$O(VAFCA1(2.01,ALIEN)) Q:'ALIEN  D"
^XMB(3.9,7,2,519,0)="""RTN"",""VAFCQRY1"",60,0)"
^XMB(3.9,7,2,520,0)=" ..N ALIASN,ALIAS S ALIASN=VAFCA1(""2.01"",ALIEN,"".01"",""E"") S ALIAS=$$HLNAME^XLFNAME(ALIASN,"""",$E(HL(""ECH""),1))"
^XMB(3.9,7,2,521,0)="""RTN"",""VAFCQRY1"",61,0)"
^XMB(3.9,7,2,522,0)=" ..Q:ALIAS="""""
^XMB(3.9,7,2,523,0)="""RTN"",""VAFCQRY1"",62,0)"
^XMB(3.9,7,2,524,0)=" ..S $P(ALIAS,$E(HL(""ECH""),1),7)=""A"""
^XMB(3.9,7,2,525,0)="""RTN"",""VAFCQRY1"",63,0)"
^XMB(3.9,7,2,526,0)=" ..I $L(APID(6)_ALIAS)>244 S LVL6=1"
^XMB(3.9,7,2,527,0)="""RTN"",""VAFCQRY1"",64,0)"
^XMB(3.9,7,2,528,0)=" .. I LVL6=0 D"
^XMB(3.9,7,2,529,0)="""RTN"",""VAFCQRY1"",65,0)"
^XMB(3.9,7,2,530,0)=" ... I $L(APID(6)_ALIAS)'>244 S APID(6)=APID(6)_ALIAS_REP Q"
^XMB(3.9,7,2,531,0)="""RTN"",""VAFCQRY1"",66,0)"
^XMB(3.9,7,2,532,0)=" ... I $L(APID(6)_ALIAS)>244 S LVL6=1"
^XMB(3.9,7,2,533,0)="""RTN"",""VAFCQRY1"",67,0)"
^XMB(3.9,7,2,534,0)=" ..I LVL6>0 D"
^XMB(3.9,7,2,535,0)="""RTN"",""VAFCQRY1"",68,0)"
^XMB(3.9,7,2,536,0)=" ...I $L($G(APID(6,LVL6))_ALIAS)'>245 S APID(6,LVL6)=$G(APID(6,LVL6))_ALIAS_REP Q"
^XMB(3.9,7,2,537,0)="""RTN"",""VAFCQRY1"",69,0)"
^XMB(3.9,7,2,538,0)=" ...I $L($G(APID(6,LVL6))_ALIAS)>245 S LVL6=LVL6+1,APID(6,LVL6)=ALIAS_REP"
^XMB(3.9,7,2,539,0)="""RTN"",""VAFCQRY1"",70,0)"
^XMB(3.9,7,2,540,0)=" .I APID(6)="""" S APID(6)=HL(""Q"")"
^XMB(3.9,7,2,541,0)="""RTN"",""VAFCQRY1"",71,0)"
^XMB(3.9,7,2,542,0)="MOTHER ;mother's maiden name  (last^first^middle^suffix^prefix^^""M"" for maiden name)"
^XMB(3.9,7,2,543,0)="""RTN"",""VAFCQRY1"",72,0)"
^XMB(3.9,7,2,544,0)=" I $D(SARY(6))!(SEQ=""ALL"") D"
^XMB(3.9,7,2,545,0)="""RTN"",""VAFCQRY1"",73,0)"
^XMB(3.9,7,2,546,0)=" .S APID(7)=HL(""Q"")"
^XMB(3.9,7,2,547,0)="""RTN"",""VAFCQRY1"",74,0)"
^XMB(3.9,7,2,548,0)=" .I $D(^DPT(DFN,.24)) S VAFCMMN=$P(^DPT(DFN,.24),""^"",3) D"
^XMB(3.9,7,2,549,0)="""RTN"",""VAFCQRY1"",75,0)"
^XMB(3.9,7,2,550,0)=" ..S APID(7)=$$HLNAME^XLFNAME(VAFCMMN,"""",$E(HL(""ECH""),1)) I APID(7)="""" S APID(7)=HL(""Q"")"
^XMB(3.9,7,2,551,0)="""RTN"",""VAFCQRY1"",76,0)"
^XMB(3.9,7,2,552,0)=" ..I $P(APID(7),$E(HL(""ECH""),1),7)'=""M"" S $P(APID(7),$E(HL(""ECH""),1),7)=""M"""
^XMB(3.9,7,2,553,0)="""RTN"",""VAFCQRY1"",77,0)"
^XMB(3.9,7,2,554,0)=" .I APID(7)="""" S APID(7)=HL(""Q"")"
^XMB(3.9,7,2,555,0)="""RTN"",""VAFCQRY1"",78,0)"
^XMB(3.9,7,2,556,0)=" I $D(SARY(7))!(SEQ=""ALL"") S APID(8)=$$HLDATE^HLFNC($P(VAFCZN,""^"",3)) I APID(8)="""" S APID(8)=HL(""Q"") ;date/time of birth"
^XMB(3.9,7,2,557,0)="""RTN"",""VAFCQRY1"",79,0)"
^XMB(3.9,7,2,558,0)=" I $D(SARY(8))!(SEQ=""ALL"") S APID(9)=$P(VAFCZN,""^"",2) I APID(9)="""" S APID(9)=HL(""Q"") ;sex"
^XMB(3.9,7,2,559,0)="""RTN"",""VAFCQRY1"",80,0)"
^XMB(3.9,7,2,560,0)=" ;place of birth city and state"
^XMB(3.9,7,2,561,0)="""RTN"",""VAFCQRY1"",81,0)"
^XMB(3.9,7,2,562,0)="ADDR ;"
^XMB(3.9,7,2,563,0)="""RTN"",""VAFCQRY1"",82,0)"
^XMB(3.9,7,2,564,0)=" I $D(SARY(11))!(SEQ=""ALL"") S APID(12)="""" D"
^XMB(3.9,7,2,565,0)="""RTN"",""VAFCQRY1"",83,0)"
^XMB(3.9,7,2,566,0)=" .I $D(^DPT(DFN,0)) D"
^XMB(3.9,7,2,567,0)="""RTN"",""VAFCQRY1"",84,0)"
^XMB(3.9,7,2,568,0)=" ..;address info"
^XMB(3.9,7,2,569,0)="""RTN"",""VAFCQRY1"",85,0)"
^XMB(3.9,7,2,570,0)=" ..S HL7STRG=$$GET1^DIQ(2,DFN_"","",.111) D HL7TXT(.HL7STRG,.HL,HLES)"
^XMB(3.9,7,2,571,0)="""RTN"",""VAFCQRY1"",86,0)"
^XMB(3.9,7,2,572,0)=" ..S $P(APID(12),COMP)=HL7STRG I $P(APID(12),COMP)="""" S $P(APID(12),COMP)=HL(""Q"")"
^XMB(3.9,7,2,573,0)="""RTN"",""VAFCQRY1"",87,0)"
^XMB(3.9,7,2,574,0)=" ..K HL7STRG S HL7STRG=$$GET1^DIQ(2,DFN_"","",.112) D HL7TXT(.HL7STRG,.HL,HLES) ;**698 add HL7TXT call"
^XMB(3.9,7,2,575,0)="""RTN"",""VAFCQRY1"",88,0)"
^XMB(3.9,7,2,576,0)=" ..S $P(APID(12),COMP,2)=HL7STRG I $P(APID(12),COMP,2)="""" S $P(APID(12),COMP,2)=HL(""Q"")"
^XMB(3.9,7,2,577,0)="""RTN"",""VAFCQRY1"",89,0)"
^XMB(3.9,7,2,578,0)=" ..K HL7STRG S HL7STRG=$$GET1^DIQ(2,DFN_"","",.113) D HL7TXT(.HL7STRG,.HL,HLES) ;**698 add HL7TXT call"
^XMB(3.9,7,2,579,0)="""RTN"",""VAFCQRY1"",90,0)"
^XMB(3.9,7,2,580,0)=" ..S $P(APID(12),COMP,8)=HL7STRG I $P(APID(12),COMP,8)="""" S $P(APID(12),COMP,8)=HL(""Q"")"
^XMB(3.9,7,2,581,0)="""RTN"",""VAFCQRY1"",91,0)"
^XMB(3.9,7,2,582,0)=" ..K HL7STRG"
^XMB(3.9,7,2,583,0)="""RTN"",""VAFCQRY1"",92,0)"
^XMB(3.9,7,2,584,0)=" ..S HL7STRG=$$GET1^DIQ(2,DFN_"","",.114) D HL7TXT(.HL7STRG,.HL,HLES) S $P(APID(12),COMP,3)=HL7STRG"
^XMB(3.9,7,2,585,0)="""RTN"",""VAFCQRY1"",93,0)"
^XMB(3.9,7,2,586,0)=" ..I $P(APID(12),COMP,3)="""" S $P(APID(12),COMP,3)=HL(""Q"")"
^XMB(3.9,7,2,587,0)="""RTN"",""VAFCQRY1"",94,0)"
^XMB(3.9,7,2,588,0)=" ..S STATEIEN=$$GET1^DIQ(2,DFN_"","",.115,""I"") S STATE=$$GET1^DIQ(5,+STATEIEN_"","",1) S $P(APID(12),COMP,4)=$G(STATE) I $P(APID(12),COMP,4)="""" S $P(APID(12),COMP,4)=HL(""Q"")"
^XMB(3.9,7,2,589,0)="""RTN"",""VAFCQRY1"",95,0)"
^XMB(3.9,7,2,590,0)=" ..S $P(APID(12),COMP,5)=$$GET1^DIQ(2,DFN_"","",.1112) I $P(APID(12),COMP,5)="""" S $P(APID(12),COMP,5)=HL(""Q"")"
^XMB(3.9,7,2,591,0)="""RTN"",""VAFCQRY1"",96,0)"
^XMB(3.9,7,2,592,0)=" ..S $P(APID(12),COMP,7)=""P"""
^XMB(3.9,7,2,593,0)="""RTN"",""VAFCQRY1"",97,0)"
^XMB(3.9,7,2,594,0)=" ..; **648 add COUNTY Code to PID-11, retained in PID-12 also"
^XMB(3.9,7,2,595,0)="""RTN"",""VAFCQRY1"",98,0)"
^XMB(3.9,7,2,596,0)=" ..N COUNTY S COUNTY=$$GET1^DIQ(2,DFN_"","",.117) I COUNTY="""" S COUNTY=HL(""Q"")"
^XMB(3.9,7,2,597,0)="""RTN"",""VAFCQRY1"",99,0)"
^XMB(3.9,7,2,598,0)=" ..S $P(APID(12),COMP,9)=COUNTY ;county code"
^XMB(3.9,7,2,599,0)="""RTN"",""VAFCQRY1"",100,0)"
^XMB(3.9,7,2,600,0)=" ..;place of birth information"
^XMB(3.9,7,2,601,0)="""RTN"",""VAFCQRY1"",101,0)"
^XMB(3.9,7,2,602,0)=" ..S CITY=$$GET1^DIQ(2,DFN_"","",.092) S HL7STRG=CITY D HL7TXT(.HL7STRG,.HL,HLES) S CITY=HL7STRG D"
^XMB(3.9,7,2,603,0)="""RTN"",""VAFCQRY1"",102,0)"
^XMB(3.9,7,2,604,0)=" ...N X"
^XMB(3.9,7,2,605,0)="""RTN"",""VAFCQRY1"",103,0)"
^XMB(3.9,7,2,606,0)=" ...I $G(CITY)'="""" S $P(X,COMP,3)=CITY"
^XMB(3.9,7,2,607,0)="""RTN"",""VAFCQRY1"",104,0)"
^XMB(3.9,7,2,608,0)=" ...I $G(CITY)="""" S $P(X,COMP,3)=HL(""Q"")"
^XMB(3.9,7,2,609,0)="""RTN"",""VAFCQRY1"",105,0)"
^XMB(3.9,7,2,610,0)=" ...S STATEIEN=$$GET1^DIQ(2,DFN_"","",.093,""I"") S STATE=$$GET1^DIQ(5,+STATEIEN_"","",1) D"
^XMB(3.9,7,2,611,0)="""RTN"",""VAFCQRY1"",106,0)"
^XMB(3.9,7,2,612,0)=" ....I $G(STATE)'="""" S $P(X,COMP,4)=STATE"
^XMB(3.9,7,2,613,0)="""RTN"",""VAFCQRY1"",107,0)"
^XMB(3.9,7,2,614,0)=" ....I $G(STATE)="""" S $P(X,COMP,4)=HL(""Q"")"
^XMB(3.9,7,2,615,0)="""RTN"",""VAFCQRY1"",108,0)"
^XMB(3.9,7,2,616,0)=" ... S $P(X,COMP,7)=""N"",APID(12)=$G(APID(12))_REP_X"
^XMB(3.9,7,2,617,0)="""RTN"",""VAFCQRY1"",109,0)"
^XMB(3.9,7,2,618,0)=" I $D(SARY(12))!(SEQ=""ALL"") S APID(13)=$$GET1^DIQ(2,DFN_"","",.117) I APID(13)="""" S APID(13)=HL(""Q"")  ;county code **648 backwards compatibility only"
^XMB(3.9,7,2,619,0)="""RTN"",""VAFCQRY1"",110,0)"
^XMB(3.9,7,2,620,0)=" I $D(SARY(13))!($D(SARY(14)))!(SEQ=""ALL"") N PHONEN,HNUM,WNUM S PHONEN=$G(^DPT(DFN,.13)) S HNUM=$P(PHONEN,""^"",1),WNUM=$P(PHONEN,""^"",2)"
^XMB(3.9,7,2,621,0)="""RTN"",""VAFCQRY1"",111,0)"
^XMB(3.9,7,2,622,0)=" I $D(SARY(13))!(SEQ=""ALL"") S APID(14)=$$HLPHONE^HLFNC(HNUM) S HL7STRG=APID(14) D HL7TXT(.HL7STRG,.HL,HLES) S APID(14)=HL7STRG I APID(14)="""" S APID(14)=HL(""Q"")"
^XMB(3.9,7,2,623,0)="""RTN"",""VAFCQRY1"",112,0)"
^XMB(3.9,7,2,624,0)=" I $D(SARY(14))!(SEQ=""ALL"") S APID(15)=$$HLPHONE^HLFNC(WNUM) S HL7STRG=APID(15) D HL7TXT(.HL7STRG,.HL,HLES) S APID(15)=HL7STRG I APID(15)="""" S APID(15)=HL(""Q"")"
^XMB(3.9,7,2,625,0)="""RTN"",""VAFCQRY1"",113,0)"
^XMB(3.9,7,2,626,0)=" I $D(SARY(19))!(SEQ=""ALL"") S APID(20)=SSN  ;ssn passed in PID-3"
^XMB(3.9,7,2,627,0)="""RTN"",""VAFCQRY1"",114,0)"
^XMB(3.9,7,2,628,0)=" I $D(SARY(23))!(SEQ=""ALL"") D"
^XMB(3.9,7,2,629,0)="""RTN"",""VAFCQRY1"",115,0)"
^XMB(3.9,7,2,630,0)=" .S CITY=$$GET1^DIQ(2,DFN_"","",.092) S HL7STRG=CITY D HL7TXT(.HL7STRG,.HL,HLES) S CITY=HL7STRG"
^XMB(3.9,7,2,631,0)="""RTN"",""VAFCQRY1"",116,0)"
^XMB(3.9,7,2,632,0)=" .S STATEIEN=$$GET1^DIQ(2,DFN_"","",.093,""I"") S STATE=$$GET1^DIQ(5,+STATEIEN_"","",1) D"
^XMB(3.9,7,2,633,0)="""RTN"",""VAFCQRY1"",117,0)"
^XMB(3.9,7,2,634,0)=" .I CITY'=""""&(STATE'="""") S APID(24)=CITY_"" ""_STATE  ;place of birth (not used) use PID-11 with an 'N' instead"
^XMB(3.9,7,2,635,0)="""RTN"",""VAFCQRY1"",118,0)"
^XMB(3.9,7,2,636,0)=" .I CITY=""""&(STATE="""") S APID(24)=HL(""Q"")"
^XMB(3.9,7,2,637,0)="""RTN"",""VAFCQRY1"",119,0)"
^XMB(3.9,7,2,638,0)=" ;list of fields used for backwards compatibility with HDR"
^XMB(3.9,7,2,639,0)="""RTN"",""VAFCQRY1"",120,0)"
^XMB(3.9,7,2,640,0)=" I $D(SARY(2))!(SEQ=""ALL"") S APID(3)=$P(VAFCMN,""^"")_""V""_$P(VAFCMN,""^"",2)  ;Patient ID"
^XMB(3.9,7,2,641,0)="""RTN"",""VAFCQRY1"",121,0)"
^XMB(3.9,7,2,642,0)=" D CONT^VAFCQRY3(DFN,.APID,.PID,.HL,.SARY,SEQ,.ERR,REP,COMP)"
^XMB(3.9,7,2,643,0)="""RTN"",""VAFCQRY1"",122,0)"
^XMB(3.9,7,2,644,0)=" D KVA^VADPT"
^XMB(3.9,7,2,645,0)="""RTN"",""VAFCQRY1"",123,0)"
^XMB(3.9,7,2,646,0)=" Q"
^XMB(3.9,7,2,647,0)="""RTN"",""VAFCQRY1"",124,0)"
^XMB(3.9,7,2,648,0)="HL7TXT(HL7STRG,HL,HLES) ; Replace occurrences of embedded HL7 delimiters with"
^XMB(3.9,7,2,649,0)="""RTN"",""VAFCQRY1"",125,0)"
^XMB(3.9,7,2,650,0)=" ; HL7 escape sequence"
^XMB(3.9,7,2,651,0)="""RTN"",""VAFCQRY1"",126,0)"
^XMB(3.9,7,2,652,0)=" ; Inputs: HL7STRG - Data string to be checked"
^XMB(3.9,7,2,653,0)="""RTN"",""VAFCQRY1"",127,0)"
^XMB(3.9,7,2,654,0)=" ;         HL(""ECH"") - HL7 delimiter string"
^XMB(3.9,7,2,655,0)="""RTN"",""VAFCQRY1"",128,0)"
^XMB(3.9,7,2,656,0)=" ; Output: HL7XTRG - Data string with escape sequence added (if needed)"
^XMB(3.9,7,2,657,0)="""RTN"",""VAFCQRY1"",129,0)"
^XMB(3.9,7,2,658,0)=" ;"
^XMB(3.9,7,2,659,0)="""RTN"",""VAFCQRY1"",130,0)"
^XMB(3.9,7,2,660,0)=" N OCHR,RCHR,RCHRI,TYPE,I"
^XMB(3.9,7,2,661,0)="""RTN"",""VAFCQRY1"",131,0)"
^XMB(3.9,7,2,662,0)=" ; Set HL7 escape char"
^XMB(3.9,7,2,663,0)="""RTN"",""VAFCQRY1"",132,0)"
^XMB(3.9,7,2,664,0)=" I $G(HL(""COMP""))="""" S HL(""COMP"")=$G(COMP),HL(""REP"")=REP,HL(""SUBCOMP"")=SUBCOMP"
^XMB(3.9,7,2,665,0)="""RTN"",""VAFCQRY1"",133,0)"
^XMB(3.9,7,2,666,0)=" S HLES2=HLES_HL(""FS"")_HL(""COMP"")_HL(""REP"")_HL(""SUBCOMP"")"
^XMB(3.9,7,2,667,0)="""RTN"",""VAFCQRY1"",134,0)"
^XMB(3.9,7,2,668,0)=" ; Search for occurrence of each delimiter and replace it with ""\<type>\"""
^XMB(3.9,7,2,669,0)="""RTN"",""VAFCQRY1"",135,0)"
^XMB(3.9,7,2,670,0)=" F TYPE=""E"",""F"",""C"",""R"",""S"" D"
^XMB(3.9,7,2,671,0)="""RTN"",""VAFCQRY1"",136,0)"
^XMB(3.9,7,2,672,0)=" .S RCHRI=$S(TYPE=""E"":1,TYPE=""F"":2,TYPE=""C"":3,TYPE=""R"":4,TYPE=""S"":5)"
^XMB(3.9,7,2,673,0)="""RTN"",""VAFCQRY1"",137,0)"
^XMB(3.9,7,2,674,0)=" .;"
^XMB(3.9,7,2,675,0)="""RTN"",""VAFCQRY1"",138,0)"
^XMB(3.9,7,2,676,0)=" .; OCHR=original char, RCHR=replacement char"
^XMB(3.9,7,2,677,0)="""RTN"",""VAFCQRY1"",139,0)"
^XMB(3.9,7,2,678,0)=" .S OCHR=$E(HLES2,RCHRI),RCHR=$E(""EFSRT"",RCHRI) Q:'$F(HL7STRG,OCHR)"
^XMB(3.9,7,2,679,0)="""RTN"",""VAFCQRY1"",140,0)"
^XMB(3.9,7,2,680,0)=" .F I=1:1 Q:$E(HL7STRG,I)=""""  I $E(HL7STRG,I)=OCHR S HL7STRG=$E(HL7STRG,1,I-1)_HLES_RCHR_HLES_$E(HL7STRG,I+1,999),I=I+2"
^XMB(3.9,7,2,681,0)="""RTN"",""VAFCQRY1"",141,0)"
^XMB(3.9,7,2,682,0)=" Q"
^XMB(3.9,7,2,683,0)="""RTN"",""VAFCQRY1"",142,0)"
^XMB(3.9,7,2,684,0)=" Q"
^XMB(3.9,7,2,685,0)="""VER"")"
^XMB(3.9,7,2,686,0)="8.0^22.0"
^XMB(3.9,7,2,687,0)="""BLD"",2362,6)"
^XMB(3.9,7,2,688,0)="^622"
^XMB(3.9,7,2,689,0)="$END KID DG*5.3*711"
^XMB(3.9,7,6,0)="^3.911A^2^2"
^XMB(3.9,7,6,1,0)="POSTMASTER"
^XMB(3.9,7,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,7,6,"B","POSTMASTER",1)=""
^XMB(3.9,7,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,8,0)="DG-5P3_SEQ-623_PAT-702.KID^.5^3061008.01573^^^^K"
^XMB(3.9,8,.6)="3061008"
^XMB(3.9,8,1,0)="^3.91A^2^2"
^XMB(3.9,8,1,1,0)=".5^0^3061008.01573^^^^^^^3061008.01573"
^XMB(3.9,8,1,2,0)="1^0^3061008.024157^^^^^^^3061008.024157"
^XMB(3.9,8,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,8,1,"C",.5,1)=""
^XMB(3.9,8,1,"C",1,2)=""
^XMB(3.9,8,2,0)="^^1075^1075^3061008"
^XMB(3.9,8,2,1,0)="$TXT Released DG*5.3*702 SEQ #623"
^XMB(3.9,8,2,2,0)="Extracted from mail message"
^XMB(3.9,8,2,3,0)="$END TXT"
^XMB(3.9,8,2,4,0)="$KID DG*5.3*702"
^XMB(3.9,8,2,5,0)="**INSTALL NAME**"
^XMB(3.9,8,2,6,0)="DG*5.3*702"
^XMB(3.9,8,2,7,0)="""BLD"",6620,0)"
^XMB(3.9,8,2,8,0)="DG*5.3*702^REGISTRATION^0^3060612^y"
^XMB(3.9,8,2,9,0)="""BLD"",6620,1,0)"
^XMB(3.9,8,2,10,0)="^^4^4^3060612^"
^XMB(3.9,8,2,11,0)="""BLD"",6620,1,1,0)"
^XMB(3.9,8,2,12,0)="This patch fixes a problem with collateral patient names, the zip codes"
^XMB(3.9,8,2,13,0)="""BLD"",6620,1,2,0)"
^XMB(3.9,8,2,14,0)="of emergency contacts and designees, the data dictionary of the "
^XMB(3.9,8,2,15,0)="""BLD"",6620,1,3,0)"
^XMB(3.9,8,2,16,0)="INPATIENT CPT CODE file (#46) and the 'Edit Census Date Parameters'"
^XMB(3.9,8,2,17,0)="""BLD"",6620,1,4,0)"
^XMB(3.9,8,2,18,0)="option."
^XMB(3.9,8,2,19,0)="""BLD"",6620,4,0)"
^XMB(3.9,8,2,20,0)="^9.64PA^^"
^XMB(3.9,8,2,21,0)="""BLD"",6620,6)"
^XMB(3.9,8,2,22,0)="1^"
^XMB(3.9,8,2,23,0)="""BLD"",6620,""INI"")"
^XMB(3.9,8,2,24,0)="DG702PRE"
^XMB(3.9,8,2,25,0)="""BLD"",6620,""INID"")"
^XMB(3.9,8,2,26,0)="n^n^n"
^XMB(3.9,8,2,27,0)="""BLD"",6620,""INIT"")"
^XMB(3.9,8,2,28,0)="CLEANUP^DG702PST"
^XMB(3.9,8,2,29,0)="""BLD"",6620,""KRN"",0)"
^XMB(3.9,8,2,30,0)="^9.67PA^8989.52^19"
^XMB(3.9,8,2,31,0)="""BLD"",6620,""KRN"",.4,0)"
^XMB(3.9,8,2,32,0)=".4"
^XMB(3.9,8,2,33,0)="""BLD"",6620,""KRN"",.401,0)"
^XMB(3.9,8,2,34,0)=".401"
^XMB(3.9,8,2,35,0)="""BLD"",6620,""KRN"",.402,0)"
^XMB(3.9,8,2,36,0)=".402"
^XMB(3.9,8,2,37,0)="""BLD"",6620,""KRN"",.403,0)"
^XMB(3.9,8,2,38,0)=".403"
^XMB(3.9,8,2,39,0)="""BLD"",6620,""KRN"",.5,0)"
^XMB(3.9,8,2,40,0)=".5"
^XMB(3.9,8,2,41,0)="""BLD"",6620,""KRN"",.84,0)"
^XMB(3.9,8,2,42,0)=".84"
^XMB(3.9,8,2,43,0)="""BLD"",6620,""KRN"",3.6,0)"
^XMB(3.9,8,2,44,0)="3.6"
^XMB(3.9,8,2,45,0)="""BLD"",6620,""KRN"",3.8,0)"
^XMB(3.9,8,2,46,0)="3.8"
^XMB(3.9,8,2,47,0)="""BLD"",6620,""KRN"",9.2,0)"
^XMB(3.9,8,2,48,0)="9.2"
^XMB(3.9,8,2,49,0)="""BLD"",6620,""KRN"",9.8,0)"
^XMB(3.9,8,2,50,0)="9.8"
^XMB(3.9,8,2,51,0)="""BLD"",6620,""KRN"",9.8,""NM"",0)"
^XMB(3.9,8,2,52,0)="^9.68A^6^5"
^XMB(3.9,8,2,53,0)="""BLD"",6620,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,8,2,54,0)="DPTLK2^^0^B31398139"
^XMB(3.9,8,2,55,0)="""BLD"",6620,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,8,2,56,0)="DGPTC^^0^B11894116"
^XMB(3.9,8,2,57,0)="""BLD"",6620,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,8,2,58,0)="DGRPE^^0^B49305780"
^XMB(3.9,8,2,59,0)="""BLD"",6620,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,8,2,60,0)="DG702PRE^^0^B227239"
^XMB(3.9,8,2,61,0)="""BLD"",6620,""KRN"",9.8,""NM"",6,0)"
^XMB(3.9,8,2,62,0)="DG702PST^^0^B6208847"
^XMB(3.9,8,2,63,0)="""BLD"",6620,""KRN"",9.8,""NM"",""B"",""DG702PRE"",5)"
^XMB(3.9,8,2,64,0)=""
^XMB(3.9,8,2,65,0)="""BLD"",6620,""KRN"",9.8,""NM"",""B"",""DG702PST"",6)"
^XMB(3.9,8,2,66,0)=""
^XMB(3.9,8,2,67,0)="""BLD"",6620,""KRN"",9.8,""NM"",""B"",""DGPTC"",3)"
^XMB(3.9,8,2,68,0)=""
^XMB(3.9,8,2,69,0)="""BLD"",6620,""KRN"",9.8,""NM"",""B"",""DGRPE"",4)"
^XMB(3.9,8,2,70,0)=""
^XMB(3.9,8,2,71,0)="""BLD"",6620,""KRN"",9.8,""NM"",""B"",""DPTLK2"",2)"
^XMB(3.9,8,2,72,0)=""
^XMB(3.9,8,2,73,0)="""BLD"",6620,""KRN"",19,0)"
^XMB(3.9,8,2,74,0)="19"
^XMB(3.9,8,2,75,0)="""BLD"",6620,""KRN"",19,""NM"",0)"
^XMB(3.9,8,2,76,0)="^9.68A^3^3"
^XMB(3.9,8,2,77,0)="""BLD"",6620,""KRN"",19,""NM"",1,0)"
^XMB(3.9,8,2,78,0)="DGPT CENSUS DATE DISPLAY^^0"
^XMB(3.9,8,2,79,0)="""BLD"",6620,""KRN"",19,""NM"",2,0)"
^XMB(3.9,8,2,80,0)="DGPT CENSUS REGEN WORKFILE^^0"
^XMB(3.9,8,2,81,0)="""BLD"",6620,""KRN"",19,""NM"",3,0)"
^XMB(3.9,8,2,82,0)="DGPT CENSUS SUPERVISOR^^0"
^XMB(3.9,8,2,83,0)="""BLD"",6620,""KRN"",19,""NM"",""B"",""DGPT CENSUS DATE DISPLAY"",1)"
^XMB(3.9,8,2,84,0)=""
^XMB(3.9,8,2,85,0)="""BLD"",6620,""KRN"",19,""NM"",""B"",""DGPT CENSUS REGEN WORKFILE"",2)"
^XMB(3.9,8,2,86,0)=""
^XMB(3.9,8,2,87,0)="""BLD"",6620,""KRN"",19,""NM"",""B"",""DGPT CENSUS SUPERVISOR"",3)"
^XMB(3.9,8,2,88,0)=""
^XMB(3.9,8,2,89,0)="""BLD"",6620,""KRN"",19.1,0)"
^XMB(3.9,8,2,90,0)="19.1"
^XMB(3.9,8,2,91,0)="""BLD"",6620,""KRN"",101,0)"
^XMB(3.9,8,2,92,0)="101"
^XMB(3.9,8,2,93,0)="""BLD"",6620,""KRN"",409.61,0)"
^XMB(3.9,8,2,94,0)="409.61"
^XMB(3.9,8,2,95,0)="""BLD"",6620,""KRN"",771,0)"
^XMB(3.9,8,2,96,0)="771"
^XMB(3.9,8,2,97,0)="""BLD"",6620,""KRN"",870,0)"
^XMB(3.9,8,2,98,0)="870"
^XMB(3.9,8,2,99,0)="""BLD"",6620,""KRN"",8989.51,0)"
^XMB(3.9,8,2,100,0)="8989.51"
^XMB(3.9,8,2,101,0)="""BLD"",6620,""KRN"",8989.52,0)"
^XMB(3.9,8,2,102,0)="8989.52"
^XMB(3.9,8,2,103,0)="""BLD"",6620,""KRN"",8994,0)"
^XMB(3.9,8,2,104,0)="8994"
^XMB(3.9,8,2,105,0)="""BLD"",6620,""KRN"",""B"",.4,.4)"
^XMB(3.9,8,2,106,0)=""
^XMB(3.9,8,2,107,0)="""BLD"",6620,""KRN"",""B"",.401,.401)"
^XMB(3.9,8,2,108,0)=""
^XMB(3.9,8,2,109,0)="""BLD"",6620,""KRN"",""B"",.402,.402)"
^XMB(3.9,8,2,110,0)=""
^XMB(3.9,8,2,111,0)="""BLD"",6620,""KRN"",""B"",.403,.403)"
^XMB(3.9,8,2,112,0)=""
^XMB(3.9,8,2,113,0)="""BLD"",6620,""KRN"",""B"",.5,.5)"
^XMB(3.9,8,2,114,0)=""
^XMB(3.9,8,2,115,0)="""BLD"",6620,""KRN"",""B"",.84,.84)"
^XMB(3.9,8,2,116,0)=""
^XMB(3.9,8,2,117,0)="""BLD"",6620,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,8,2,118,0)=""
^XMB(3.9,8,2,119,0)="""BLD"",6620,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,8,2,120,0)=""
^XMB(3.9,8,2,121,0)="""BLD"",6620,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,8,2,122,0)=""
^XMB(3.9,8,2,123,0)="""BLD"",6620,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,8,2,124,0)=""
^XMB(3.9,8,2,125,0)="""BLD"",6620,""KRN"",""B"",19,19)"
^XMB(3.9,8,2,126,0)=""
^XMB(3.9,8,2,127,0)="""BLD"",6620,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,8,2,128,0)=""
^XMB(3.9,8,2,129,0)="""BLD"",6620,""KRN"",""B"",101,101)"
^XMB(3.9,8,2,130,0)=""
^XMB(3.9,8,2,131,0)="""BLD"",6620,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,8,2,132,0)=""
^XMB(3.9,8,2,133,0)="""BLD"",6620,""KRN"",""B"",771,771)"
^XMB(3.9,8,2,134,0)=""
^XMB(3.9,8,2,135,0)="""BLD"",6620,""KRN"",""B"",870,870)"
^XMB(3.9,8,2,136,0)=""
^XMB(3.9,8,2,137,0)="""BLD"",6620,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,8,2,138,0)=""
^XMB(3.9,8,2,139,0)="""BLD"",6620,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,8,2,140,0)=""
^XMB(3.9,8,2,141,0)="""BLD"",6620,""KRN"",""B"",8994,8994)"
^XMB(3.9,8,2,142,0)=""
^XMB(3.9,8,2,143,0)="""BLD"",6620,""PRE"")"
^XMB(3.9,8,2,144,0)="DG702PST"
^XMB(3.9,8,2,145,0)="""BLD"",6620,""QUES"",0)"
^XMB(3.9,8,2,146,0)="^9.62^^"
^XMB(3.9,8,2,147,0)="""BLD"",6620,""REQB"",0)"
^XMB(3.9,8,2,148,0)="^9.611^3^3"
^XMB(3.9,8,2,149,0)="""BLD"",6620,""REQB"",1,0)"
^XMB(3.9,8,2,150,0)="DG*5.3*643^1"
^XMB(3.9,8,2,151,0)="""BLD"",6620,""REQB"",2,0)"
^XMB(3.9,8,2,152,0)="DG*5.3*672^1"
^XMB(3.9,8,2,153,0)="""BLD"",6620,""REQB"",3,0)"
^XMB(3.9,8,2,154,0)="DG*5.3*680^1"
^XMB(3.9,8,2,155,0)="""BLD"",6620,""REQB"",""B"",""DG*5.3*643"",1)"
^XMB(3.9,8,2,156,0)=""
^XMB(3.9,8,2,157,0)="""BLD"",6620,""REQB"",""B"",""DG*5.3*672"",2)"
^XMB(3.9,8,2,158,0)=""
^XMB(3.9,8,2,159,0)="""BLD"",6620,""REQB"",""B"",""DG*5.3*680"",3)"
^XMB(3.9,8,2,160,0)=""
^XMB(3.9,8,2,161,0)="""INI"")"
^XMB(3.9,8,2,162,0)="DG702PRE"
^XMB(3.9,8,2,163,0)="""INIT"")"
^XMB(3.9,8,2,164,0)="CLEANUP^DG702PST"
^XMB(3.9,8,2,165,0)="""KRN"",19,2273,-1)"
^XMB(3.9,8,2,166,0)="0^3"
^XMB(3.9,8,2,167,0)="""KRN"",19,2273,0)"
^XMB(3.9,8,2,168,0)="DGPT CENSUS SUPERVISOR^Supervisor Menu^^M^^DG PTFSUP^^^^^^REGISTRATION"
^XMB(3.9,8,2,169,0)="""KRN"",19,2273,1,0)"
^XMB(3.9,8,2,170,0)="^^3^3^3060317^"
^XMB(3.9,8,2,171,0)="""KRN"",19,2273,1,1,0)"
^XMB(3.9,8,2,172,0)="This menu contains options needed to manage the PTF Census"
^XMB(3.9,8,2,173,0)="""KRN"",19,2273,1,2,0)"
^XMB(3.9,8,2,174,0)="module.  Options include, displaying a Census Date and"
^XMB(3.9,8,2,175,0)="""KRN"",19,2273,1,3,0)"
^XMB(3.9,8,2,176,0)="regenerating the CENSUS WORKFILE."
^XMB(3.9,8,2,177,0)="""KRN"",19,2273,10,0)"
^XMB(3.9,8,2,178,0)="^19.01IP^2^2"
^XMB(3.9,8,2,179,0)="""KRN"",19,2273,10,1,0)"
^XMB(3.9,8,2,180,0)="2274^"
^XMB(3.9,8,2,181,0)="""KRN"",19,2273,10,1,""^"")"
^XMB(3.9,8,2,182,0)="DGPT CENSUS DATE DISPLAY"
^XMB(3.9,8,2,183,0)="""KRN"",19,2273,10,2,0)"
^XMB(3.9,8,2,184,0)="2275^"
^XMB(3.9,8,2,185,0)="""KRN"",19,2273,10,2,""^"")"
^XMB(3.9,8,2,186,0)="DGPT CENSUS REGEN WORKFILE"
^XMB(3.9,8,2,187,0)="""KRN"",19,2273,99)"
^XMB(3.9,8,2,188,0)="60341,59204"
^XMB(3.9,8,2,189,0)="""KRN"",19,2273,""U"")"
^XMB(3.9,8,2,190,0)="SUPERVISOR MENU"
^XMB(3.9,8,2,191,0)="""KRN"",19,2274,-1)"
^XMB(3.9,8,2,192,0)="0^1"
^XMB(3.9,8,2,193,0)="""KRN"",19,2274,0)"
^XMB(3.9,8,2,194,0)="DGPT CENSUS DATE DISPLAY^Display Census Date Parameters^^R^^DG PTFSUP^^^^^^REGISTRATION"
^XMB(3.9,8,2,195,0)="""KRN"",19,2274,1,0)"
^XMB(3.9,8,2,196,0)="^19.06^7^7^3060317^^"
^XMB(3.9,8,2,197,0)="""KRN"",19,2274,1,1,0)"
^XMB(3.9,8,2,198,0)=" "
^XMB(3.9,8,2,199,0)="""KRN"",19,2274,1,2,0)"
^XMB(3.9,8,2,200,0)="This option displays a 'Quick Parameter Profile'. "
^XMB(3.9,8,2,201,0)="""KRN"",19,2274,1,3,0)"
^XMB(3.9,8,2,202,0)="This profile can be used to view the parameters."
^XMB(3.9,8,2,203,0)="""KRN"",19,2274,1,4,0)"
^XMB(3.9,8,2,204,0)="One parameter, WORKFILE LAST UPDATED,"
^XMB(3.9,8,2,205,0)="""KRN"",19,2274,1,5,0)"
^XMB(3.9,8,2,206,0)="is updated at the end of the 'Regenerate"
^XMB(3.9,8,2,207,0)="""KRN"",19,2274,1,6,0)"
^XMB(3.9,8,2,208,0)="Census Workfile'.  This profile can be used to "
^XMB(3.9,8,2,209,0)="""KRN"",19,2274,1,7,0)"
^XMB(3.9,8,2,210,0)="monitor the completion of the regeneration."
^XMB(3.9,8,2,211,0)="""KRN"",19,2274,25)"
^XMB(3.9,8,2,212,0)="7^DGPTC"
^XMB(3.9,8,2,213,0)="""KRN"",19,2274,""U"")"
^XMB(3.9,8,2,214,0)="DISPLAY CENSUS DATE PARAMETERS"
^XMB(3.9,8,2,215,0)="""KRN"",19,2275,-1)"
^XMB(3.9,8,2,216,0)="0^2"
^XMB(3.9,8,2,217,0)="""KRN"",19,2275,0)"
^XMB(3.9,8,2,218,0)="DGPT CENSUS REGEN WORKFILE^Regenerate Census Workfile^^R^^DG PTFSUP^^^^^^REGISTRATION"
^XMB(3.9,8,2,219,0)="""KRN"",19,2275,1,0)"
^XMB(3.9,8,2,220,0)="^^39^39^3060317^"
^XMB(3.9,8,2,221,0)="""KRN"",19,2275,1,1,0)"
^XMB(3.9,8,2,222,0)="This options allows the supervisor to regenerate the CENSUS WORKFILE"
^XMB(3.9,8,2,223,0)="""KRN"",19,2275,1,2,0)"
^XMB(3.9,8,2,224,0)="entries for a particular census date."
^XMB(3.9,8,2,225,0)="""KRN"",19,2275,1,3,0)"
^XMB(3.9,8,2,226,0)=" "
^XMB(3.9,8,2,227,0)="""KRN"",19,2275,1,4,0)"
^XMB(3.9,8,2,228,0)="This option places one entry in the CENSUS WORKFILE for each"
^XMB(3.9,8,2,229,0)="""KRN"",19,2275,1,5,0)"
^XMB(3.9,8,2,230,0)="admission needing a census record for that selected census date."
^XMB(3.9,8,2,231,0)="""KRN"",19,2275,1,6,0)"
^XMB(3.9,8,2,232,0)=" "
^XMB(3.9,8,2,233,0)="""KRN"",19,2275,1,7,0)"
^XMB(3.9,8,2,234,0)="The workfile is an extract of data from the admission data for the"
^XMB(3.9,8,2,235,0)="""KRN"",19,2275,1,8,0)"
^XMB(3.9,8,2,236,0)="patients who were inpatients as of 11:59 on the census date.  This"
^XMB(3.9,8,2,237,0)="""KRN"",19,2275,1,9,0)"
^XMB(3.9,8,2,238,0)="workfile makes the printing of the 'Census Status Report' faster "
^XMB(3.9,8,2,239,0)="""KRN"",19,2275,1,10,0)"
^XMB(3.9,8,2,240,0)="than otherwise would be possible.  Without this workfile, it"
^XMB(3.9,8,2,241,0)="""KRN"",19,2275,1,11,0)"
^XMB(3.9,8,2,242,0)="would be neccessary to scan all admissions prior to the census "
^XMB(3.9,8,2,243,0)="""KRN"",19,2275,1,12,0)"
^XMB(3.9,8,2,244,0)="date to determine if the admission was still active on the census date."
^XMB(3.9,8,2,245,0)="""KRN"",19,2275,1,13,0)"
^XMB(3.9,8,2,246,0)=" "
^XMB(3.9,8,2,247,0)="""KRN"",19,2275,1,14,0)"
^XMB(3.9,8,2,248,0)="This option only needs to be run at the beginning of the census process "
^XMB(3.9,8,2,249,0)="""KRN"",19,2275,1,15,0)"
^XMB(3.9,8,2,250,0)="and at the end of the process to ensure that no admissions have been "
^XMB(3.9,8,2,251,0)="""KRN"",19,2275,1,16,0)"
^XMB(3.9,8,2,252,0)="added via bed control.  However, this option can be run at anytime"
^XMB(3.9,8,2,253,0)="""KRN"",19,2275,1,17,0)"
^XMB(3.9,8,2,254,0)="if desired. "
^XMB(3.9,8,2,255,0)="""KRN"",19,2275,1,18,0)"
^XMB(3.9,8,2,256,0)=" "
^XMB(3.9,8,2,257,0)="""KRN"",19,2275,1,19,0)"
^XMB(3.9,8,2,258,0)="NOTE:  The 'Census Status Report' uses the the CENSUS WORKFILE. "
^XMB(3.9,8,2,259,0)="""KRN"",19,2275,1,20,0)"
^XMB(3.9,8,2,260,0)="       As a result, the 'Census Status Report' should not be run until "
^XMB(3.9,8,2,261,0)="""KRN"",19,2275,1,21,0)"
^XMB(3.9,8,2,262,0)="       after the regeneration is complete."
^XMB(3.9,8,2,263,0)="""KRN"",19,2275,1,22,0)"
^XMB(3.9,8,2,264,0)=" "
^XMB(3.9,8,2,265,0)="""KRN"",19,2275,1,23,0)"
^XMB(3.9,8,2,266,0)="NOTE:  The first time the 'Census Status Report' is run for a"
^XMB(3.9,8,2,267,0)="""KRN"",19,2275,1,24,0)"
^XMB(3.9,8,2,268,0)="       particular census date, the CENSUS WORKFILE is automatically"
^XMB(3.9,8,2,269,0)="""KRN"",19,2275,1,25,0)"
^XMB(3.9,8,2,270,0)="       generated."
^XMB(3.9,8,2,271,0)="""KRN"",19,2275,1,26,0)"
^XMB(3.9,8,2,272,0)=" "
^XMB(3.9,8,2,273,0)="""KRN"",19,2275,1,27,0)"
^XMB(3.9,8,2,274,0)="At the end of the regeneration process, the WORKFILE LAST UPDATED"
^XMB(3.9,8,2,275,0)="""KRN"",19,2275,1,28,0)"
^XMB(3.9,8,2,276,0)="field in the PTF CENSUS DATE file is updated with the current"
^XMB(3.9,8,2,277,0)="""KRN"",19,2275,1,29,0)"
^XMB(3.9,8,2,278,0)="date and time."
^XMB(3.9,8,2,279,0)="""KRN"",19,2275,1,30,0)"
^XMB(3.9,8,2,280,0)=" "
^XMB(3.9,8,2,281,0)="""KRN"",19,2275,1,31,0)"
^XMB(3.9,8,2,282,0)="The 'Display Census Date Parameters' option displays all the "
^XMB(3.9,8,2,283,0)="""KRN"",19,2275,1,32,0)"
^XMB(3.9,8,2,284,0)="parameters associated with a census date, including WORKFILE "
^XMB(3.9,8,2,285,0)="""KRN"",19,2275,1,33,0)"
^XMB(3.9,8,2,286,0)="LAST UPDATED. A supervisor can use this option to"
^XMB(3.9,8,2,287,0)="""KRN"",19,2275,1,34,0)"
^XMB(3.9,8,2,288,0)="monitor the completion of a regeneration."
^XMB(3.9,8,2,289,0)="""KRN"",19,2275,1,35,0)"
^XMB(3.9,8,2,290,0)=" "
^XMB(3.9,8,2,291,0)="""KRN"",19,2275,1,36,0)"
^XMB(3.9,8,2,292,0)="Also, at the end of the regeneration process, a Mailman bulletin"
^XMB(3.9,8,2,293,0)="""KRN"",19,2275,1,37,0)"
^XMB(3.9,8,2,294,0)="is sent to the user requesting the regeneration.  This bulletin"
^XMB(3.9,8,2,295,0)="""KRN"",19,2275,1,38,0)"
^XMB(3.9,8,2,296,0)="will indicate any changes that may have occurred as a result of"
^XMB(3.9,8,2,297,0)="""KRN"",19,2275,1,39,0)"
^XMB(3.9,8,2,298,0)="regeneration."
^XMB(3.9,8,2,299,0)="""KRN"",19,2275,25)"
^XMB(3.9,8,2,300,0)="GEN^DGPTCR"
^XMB(3.9,8,2,301,0)="""KRN"",19,2275,""U"")"
^XMB(3.9,8,2,302,0)="REGENERATE CENSUS WORKFILE"
^XMB(3.9,8,2,303,0)="""MBREQ"")"
^XMB(3.9,8,2,304,0)="0"
^XMB(3.9,8,2,305,0)="""ORD"",18,19)"
^XMB(3.9,8,2,306,0)="19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA"
^XMB(3.9,8,2,307,0)="""ORD"",18,19,0)"
^XMB(3.9,8,2,308,0)="OPTION"
^XMB(3.9,8,2,309,0)="""PKG"",5,-1)"
^XMB(3.9,8,2,310,0)="1^1"
^XMB(3.9,8,2,311,0)="""PKG"",5,0)"
^XMB(3.9,8,2,312,0)="REGISTRATION^DG^PATIENT REGISTRATION, ADMISSION, DISCHARGE, EMBOSSER "
^XMB(3.9,8,2,313,0)="""PKG"",5,20,0)"
^XMB(3.9,8,2,314,0)="^9.402P^^"
^XMB(3.9,8,2,315,0)="""PKG"",5,22,0)"
^XMB(3.9,8,2,316,0)="^9.49I^1^1"
^XMB(3.9,8,2,317,0)="""PKG"",5,22,1,0)"
^XMB(3.9,8,2,318,0)="5.3^2930813"
^XMB(3.9,8,2,319,0)="""PKG"",5,22,1,""PAH"",1,0)"
^XMB(3.9,8,2,320,0)="702^3060612^100850"
^XMB(3.9,8,2,321,0)="""PKG"",5,22,1,""PAH"",1,1,0)"
^XMB(3.9,8,2,322,0)="^^4^4^3060612"
^XMB(3.9,8,2,323,0)="""PKG"",5,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,8,2,324,0)="This patch fixes a problem with collateral patient names, the zip codes"
^XMB(3.9,8,2,325,0)="""PKG"",5,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,8,2,326,0)="of emergency contacts and designees, the data dictionary of the "
^XMB(3.9,8,2,327,0)="""PKG"",5,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,8,2,328,0)="INPATIENT CPT CODE file (#46) and the 'Edit Census Date Parameters'"
^XMB(3.9,8,2,329,0)="""PKG"",5,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,8,2,330,0)="option."
^XMB(3.9,8,2,331,0)="""PRE"")"
^XMB(3.9,8,2,332,0)="DG702PST"
^XMB(3.9,8,2,333,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,8,2,334,0)="Y"
^XMB(3.9,8,2,335,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,8,2,336,0)="^D REP^XPDH"
^XMB(3.9,8,2,337,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,8,2,338,0)="Shall I write over your |FLAG| File"
^XMB(3.9,8,2,339,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,8,2,340,0)="YES"
^XMB(3.9,8,2,341,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,8,2,342,0)="D XPF1^XPDIQ"
^XMB(3.9,8,2,343,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,8,2,344,0)="Y"
^XMB(3.9,8,2,345,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,8,2,346,0)="^D DTA^XPDH"
^XMB(3.9,8,2,347,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,8,2,348,0)="Want my data |FLAG| yours"
^XMB(3.9,8,2,349,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,8,2,350,0)="YES"
^XMB(3.9,8,2,351,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,8,2,352,0)="D XPF2^XPDIQ"
^XMB(3.9,8,2,353,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,8,2,354,0)="YO"
^XMB(3.9,8,2,355,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,8,2,356,0)="^D INHIBIT^XPDH"
^XMB(3.9,8,2,357,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,8,2,358,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,8,2,359,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,8,2,360,0)="YES"
^XMB(3.9,8,2,361,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,8,2,362,0)="D XPI1^XPDIQ"
^XMB(3.9,8,2,363,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,8,2,364,0)="PO^VA(200,:EM"
^XMB(3.9,8,2,365,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,8,2,366,0)="^D MG^XPDH"
^XMB(3.9,8,2,367,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,8,2,368,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,8,2,369,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,8,2,370,0)=""
^XMB(3.9,8,2,371,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,8,2,372,0)="D XPM1^XPDIQ"
^XMB(3.9,8,2,373,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,8,2,374,0)="Y"
^XMB(3.9,8,2,375,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,8,2,376,0)="^D MENU^XPDH"
^XMB(3.9,8,2,377,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,8,2,378,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,8,2,379,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,8,2,380,0)="YES"
^XMB(3.9,8,2,381,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,8,2,382,0)="D XPO1^XPDIQ"
^XMB(3.9,8,2,383,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,8,2,384,0)="Y"
^XMB(3.9,8,2,385,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,8,2,386,0)="^D OPT^XPDH"
^XMB(3.9,8,2,387,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,8,2,388,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,8,2,389,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,8,2,390,0)="YES"
^XMB(3.9,8,2,391,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,8,2,392,0)="D XPZ1^XPDIQ"
^XMB(3.9,8,2,393,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,8,2,394,0)="Y"
^XMB(3.9,8,2,395,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,8,2,396,0)="^D RTN^XPDH"
^XMB(3.9,8,2,397,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,8,2,398,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,8,2,399,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,8,2,400,0)="NO"
^XMB(3.9,8,2,401,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,8,2,402,0)="D XPZ2^XPDIQ"
^XMB(3.9,8,2,403,0)="""RTN"")"
^XMB(3.9,8,2,404,0)="5"
^XMB(3.9,8,2,405,0)="""RTN"",""DG702PRE"")"
^XMB(3.9,8,2,406,0)="0^5^B227239"
^XMB(3.9,8,2,407,0)="""RTN"",""DG702PRE"",1,0)"
^XMB(3.9,8,2,408,0)="DG702PRE ;BAY/JAT;"
^XMB(3.9,8,2,409,0)="""RTN"",""DG702PRE"",2,0)"
^XMB(3.9,8,2,410,0)=" ;;5.3;Registration;**702**;Aug 13,1993"
^XMB(3.9,8,2,411,0)="""RTN"",""DG702PRE"",3,0)"
^XMB(3.9,8,2,412,0)=" ;"
^XMB(3.9,8,2,413,0)="""RTN"",""DG702PRE"",4,0)"
^XMB(3.9,8,2,414,0)=" ; This is a pre-init routine for DG*5.3*702"
^XMB(3.9,8,2,415,0)="""RTN"",""DG702PRE"",5,0)"
^XMB(3.9,8,2,416,0)=" ; The purpose is to fix dd for file 46"
^XMB(3.9,8,2,417,0)="""RTN"",""DG702PRE"",6,0)"
^XMB(3.9,8,2,418,0)=" ;"
^XMB(3.9,8,2,419,0)="""RTN"",""DG702PRE"",7,0)"
^XMB(3.9,8,2,420,0)="EN ;"
^XMB(3.9,8,2,421,0)="""RTN"",""DG702PRE"",8,0)"
^XMB(3.9,8,2,422,0)=" D BMES^XPDUTL(""Updating data dictionary for file #46"")"
^XMB(3.9,8,2,423,0)="""RTN"",""DG702PRE"",9,0)"
^XMB(3.9,8,2,424,0)=" K ^DD(46,""GL"",0,""3 "",.03)"
^XMB(3.9,8,2,425,0)="""RTN"",""DG702PRE"",10,0)"
^XMB(3.9,8,2,426,0)=" S ^DD(46,""GL"",0,3,.03)="""""
^XMB(3.9,8,2,427,0)="""RTN"",""DG702PRE"",11,0)"
^XMB(3.9,8,2,428,0)=" Q"
^XMB(3.9,8,2,429,0)="""RTN"",""DG702PST"")"
^XMB(3.9,8,2,430,0)="0^6^B6208847"
^XMB(3.9,8,2,431,0)="""RTN"",""DG702PST"",1,0)"
^XMB(3.9,8,2,432,0)="DG702PST ;BAY/JAT;"
^XMB(3.9,8,2,433,0)="""RTN"",""DG702PST"",2,0)"
^XMB(3.9,8,2,434,0)=" ;;5.3;Registration;**702**;Aug 13,1993"
^XMB(3.9,8,2,435,0)="""RTN"",""DG702PST"",3,0)"
^XMB(3.9,8,2,436,0)=" ;"
^XMB(3.9,8,2,437,0)="""RTN"",""DG702PST"",4,0)"
^XMB(3.9,8,2,438,0)=" ; This is a post-init routine for DG*5.3*702"
^XMB(3.9,8,2,439,0)="""RTN"",""DG702PST"",5,0)"
^XMB(3.9,8,2,440,0)=" ; The purpose is to relink File #2 and File #20 records"
^XMB(3.9,8,2,441,0)="""RTN"",""DG702PST"",6,0)"
^XMB(3.9,8,2,442,0)=" ;"
^XMB(3.9,8,2,443,0)="""RTN"",""DG702PST"",7,0)"
^XMB(3.9,8,2,444,0)=" ; do environment check"
^XMB(3.9,8,2,445,0)="""RTN"",""DG702PST"",8,0)"
^XMB(3.9,8,2,446,0)="ENV S XPDABORT="""""
^XMB(3.9,8,2,447,0)="""RTN"",""DG702PST"",9,0)"
^XMB(3.9,8,2,448,0)=" D PROGCHK(.XPDABORT)"
^XMB(3.9,8,2,449,0)="""RTN"",""DG702PST"",10,0)"
^XMB(3.9,8,2,450,0)=" I XPDABORT="""" K XPDABORT"
^XMB(3.9,8,2,451,0)="""RTN"",""DG702PST"",11,0)"
^XMB(3.9,8,2,452,0)=" Q"
^XMB(3.9,8,2,453,0)="""RTN"",""DG702PST"",12,0)"
^XMB(3.9,8,2,454,0)="PROGCHK(XPDABORT) ; checks for necessary programmer variables"
^XMB(3.9,8,2,455,0)="""RTN"",""DG702PST"",13,0)"
^XMB(3.9,8,2,456,0)=" I '$G(DUZ)!($G(DUZ(0))'=""@"")!('$G(DT))!($G(U)'=""^"") D"
^XMB(3.9,8,2,457,0)="""RTN"",""DG702PST"",14,0)"
^XMB(3.9,8,2,458,0)=" .D MES^XPDUTL(""Your programming variables are not set up properly."")"
^XMB(3.9,8,2,459,0)="""RTN"",""DG702PST"",15,0)"
^XMB(3.9,8,2,460,0)=" .D MES^XPDUTL(""Installation aborted."")"
^XMB(3.9,8,2,461,0)="""RTN"",""DG702PST"",16,0)"
^XMB(3.9,8,2,462,0)=" .S XPDABORT=2"
^XMB(3.9,8,2,463,0)="""RTN"",""DG702PST"",17,0)"
^XMB(3.9,8,2,464,0)=" Q"
^XMB(3.9,8,2,465,0)="""RTN"",""DG702PST"",18,0)"
^XMB(3.9,8,2,466,0)=" ;"
^XMB(3.9,8,2,467,0)="""RTN"",""DG702PST"",19,0)"
^XMB(3.9,8,2,468,0)="CLEANUP  ;"
^XMB(3.9,8,2,469,0)="""RTN"",""DG702PST"",20,0)"
^XMB(3.9,8,2,470,0)=" D BMES^XPDUTL(""Synchronize Patient file records with file #20"")"
^XMB(3.9,8,2,471,0)="""RTN"",""DG702PST"",21,0)"
^XMB(3.9,8,2,472,0)=" N DGIEN,DG20IEN,DG2PTR,DG2NAME,DG20PTR,DG20NAME,FDATA,DIERR,DGSTUFF,DA,DIK,CNT"
^XMB(3.9,8,2,473,0)="""RTN"",""DG702PST"",22,0)"
^XMB(3.9,8,2,474,0)=" S CNT=0"
^XMB(3.9,8,2,475,0)="""RTN"",""DG702PST"",23,0)"
^XMB(3.9,8,2,476,0)=" S DGIEN=0"
^XMB(3.9,8,2,477,0)="""RTN"",""DG702PST"",24,0)"
^XMB(3.9,8,2,478,0)=" F  S DGIEN=$O(^VA(20,""BB"",2,.01,DGIEN)) Q:'DGIEN  D"
^XMB(3.9,8,2,479,0)="""RTN"",""DG702PST"",25,0)"
^XMB(3.9,8,2,480,0)=" .Q:DGIEN'["",0,"""
^XMB(3.9,8,2,481,0)="""RTN"",""DG702PST"",26,0)"
^XMB(3.9,8,2,482,0)=" .S DG20IEN=$O(^VA(20,""BB"",2,.01,DGIEN,0))"
^XMB(3.9,8,2,483,0)="""RTN"",""DG702PST"",27,0)"
^XMB(3.9,8,2,484,0)=" .S DG2PTR=$P(DGIEN,"","")"
^XMB(3.9,8,2,485,0)="""RTN"",""DG702PST"",28,0)"
^XMB(3.9,8,2,486,0)=" .S DG2NAME=$P($G(^DPT(DG2PTR,0)),U)"
^XMB(3.9,8,2,487,0)="""RTN"",""DG702PST"",29,0)"
^XMB(3.9,8,2,488,0)=" .S DG20PTR=$P($G(^DPT(DG2PTR,""NAME"")),U)"
^XMB(3.9,8,2,489,0)="""RTN"",""DG702PST"",30,0)"
^XMB(3.9,8,2,490,0)=" .S DG20NAME=$P(^VA(20,DG20IEN,1),U)_"",""_$P(^VA(20,DG20IEN,1),U,2)"
^XMB(3.9,8,2,491,0)="""RTN"",""DG702PST"",31,0)"
^XMB(3.9,8,2,492,0)=" .I $P(^VA(20,DG20IEN,1),U,3)'="""" S DG20NAME=DG20NAME_"" ""_$P(^VA(20,DG20IEN,1),U,3)"
^XMB(3.9,8,2,493,0)="""RTN"",""DG702PST"",32,0)"
^XMB(3.9,8,2,494,0)=" .I $P(^VA(20,DG20IEN,1),U,5)'="""" S DG20NAME=DG20NAME_"" ""_$P(^VA(20,DG20IEN,1),U,5)"
^XMB(3.9,8,2,495,0)="""RTN"",""DG702PST"",33,0)"
^XMB(3.9,8,2,496,0)=" .I DG2NAME'=DG20NAME Q"
^XMB(3.9,8,2,497,0)="""RTN"",""DG702PST"",34,0)"
^XMB(3.9,8,2,498,0)=" .;repoint the Patient file record to the good file 20 record"
^XMB(3.9,8,2,499,0)="""RTN"",""DG702PST"",35,0)"
^XMB(3.9,8,2,500,0)=" .K FDATA,DIERR"
^XMB(3.9,8,2,501,0)="""RTN"",""DG702PST"",36,0)"
^XMB(3.9,8,2,502,0)=" .S FDATA(2,DG2PTR_"","",1.01)=DG20IEN"
^XMB(3.9,8,2,503,0)="""RTN"",""DG702PST"",37,0)"
^XMB(3.9,8,2,504,0)=" .D FILE^DIE("""",""FDATA"",""DIERR"")"
^XMB(3.9,8,2,505,0)="""RTN"",""DG702PST"",38,0)"
^XMB(3.9,8,2,506,0)=" .K FDATA,DIERR"
^XMB(3.9,8,2,507,0)="""RTN"",""DG702PST"",39,0)"
^XMB(3.9,8,2,508,0)=" .;kill the bad file 20 record - MUST KILL BEFORE REPOINTING THE OTHER "
^XMB(3.9,8,2,509,0)="""RTN"",""DG702PST"",40,0)"
^XMB(3.9,8,2,510,0)=" .S DA=DG20PTR"
^XMB(3.9,8,2,511,0)="""RTN"",""DG702PST"",41,0)"
^XMB(3.9,8,2,512,0)=" .S DIK=""^VA(20,"""
^XMB(3.9,8,2,513,0)="""RTN"",""DG702PST"",42,0)"
^XMB(3.9,8,2,514,0)=" .D ^DIK"
^XMB(3.9,8,2,515,0)="""RTN"",""DG702PST"",43,0)"
^XMB(3.9,8,2,516,0)=" .K DA,DIK"
^XMB(3.9,8,2,517,0)="""RTN"",""DG702PST"",44,0)"
^XMB(3.9,8,2,518,0)=" .;repoint the good file 20 record to the Patient file record"
^XMB(3.9,8,2,519,0)="""RTN"",""DG702PST"",45,0)"
^XMB(3.9,8,2,520,0)=" .S DGSTUFF=DG2PTR_"","""
^XMB(3.9,8,2,521,0)="""RTN"",""DG702PST"",46,0)"
^XMB(3.9,8,2,522,0)=" .S FDATA(20,DG20IEN_"","",.03)=DGSTUFF"
^XMB(3.9,8,2,523,0)="""RTN"",""DG702PST"",47,0)"
^XMB(3.9,8,2,524,0)=" .D FILE^DIE("""",""FDATA"",""DIERR"")"
^XMB(3.9,8,2,525,0)="""RTN"",""DG702PST"",48,0)"
^XMB(3.9,8,2,526,0)=" .K FDATA,DIERR"
^XMB(3.9,8,2,527,0)="""RTN"",""DG702PST"",49,0)"
^XMB(3.9,8,2,528,0)=" .D MES^XPDUTL(""Patient file DFN ""_DG2PTR_"" synchronized with file #20 record IEN ""_DG20IEN)"
^XMB(3.9,8,2,529,0)="""RTN"",""DG702PST"",50,0)"
^XMB(3.9,8,2,530,0)=" .S CNT=CNT+1"
^XMB(3.9,8,2,531,0)="""RTN"",""DG702PST"",51,0)"
^XMB(3.9,8,2,532,0)=" D BMES^XPDUTL(""Total number of Patient file records synchronized: ""_CNT)"
^XMB(3.9,8,2,533,0)="""RTN"",""DG702PST"",52,0)"
^XMB(3.9,8,2,534,0)=" Q"
^XMB(3.9,8,2,535,0)="""RTN"",""DGPTC"")"
^XMB(3.9,8,2,536,0)="0^3^B11894116^B12346357"
^XMB(3.9,8,2,537,0)="""RTN"",""DGPTC"",1,0)"
^XMB(3.9,8,2,538,0)="DGPTC ;ALB/MJK - Census Main Options; 15 APR 90 ; 5/11/01 1:15pm"
^XMB(3.9,8,2,539,0)="""RTN"",""DGPTC"",2,0)"
^XMB(3.9,8,2,540,0)=" ;;5.3;Registration;**383,643,702**;Aug 13, 1993"
^XMB(3.9,8,2,541,0)="""RTN"",""DGPTC"",3,0)"
^XMB(3.9,8,2,542,0)=" ;"
^XMB(3.9,8,2,543,0)="""RTN"",""DGPTC"",4,0)"
^XMB(3.9,8,2,544,0)=" D DT^DICRW S X=""DGPTC"",DIK=""^DOPT(""""""_X_"""""","""
^XMB(3.9,8,2,545,0)="""RTN"",""DGPTC"",5,0)"
^XMB(3.9,8,2,546,0)=" G A:$D(^DOPT(X,10))"
^XMB(3.9,8,2,547,0)="""RTN"",""DGPTC"",6,0)"
^XMB(3.9,8,2,548,0)=" S ^DOPT(X,0)=""Census Main Options^1N^"""
^XMB(3.9,8,2,549,0)="""RTN"",""DGPTC"",7,0)"
^XMB(3.9,8,2,550,0)=" F I=1:1 S Y=$T(@I) Q:Y=""""  S ^DOPT(X,I,0)=$P(Y,"";"",3,99)"
^XMB(3.9,8,2,551,0)="""RTN"",""DGPTC"",8,0)"
^XMB(3.9,8,2,552,0)=" D IXALL^DIK"
^XMB(3.9,8,2,553,0)="""RTN"",""DGPTC"",9,0)"
^XMB(3.9,8,2,554,0)=" ;"
^XMB(3.9,8,2,555,0)="""RTN"",""DGPTC"",10,0)"
^XMB(3.9,8,2,556,0)="A W !! S DIC=""^DOPT(""""DGPTC"""","",DIC(0)=""IQEAM"""
^XMB(3.9,8,2,557,0)="""RTN"",""DGPTC"",11,0)"
^XMB(3.9,8,2,558,0)=" D ^DIC Q:Y<0  D @+Y G A"
^XMB(3.9,8,2,559,0)="""RTN"",""DGPTC"",12,0)"
^XMB(3.9,8,2,560,0)=" ;"
^XMB(3.9,8,2,561,0)="""RTN"",""DGPTC"",13,0)"
^XMB(3.9,8,2,562,0)="1 ;;Load/Edit PTF Record"
^XMB(3.9,8,2,563,0)="""RTN"",""DGPTC"",14,0)"
^XMB(3.9,8,2,564,0)=" G ^DGPTF"
^XMB(3.9,8,2,565,0)="""RTN"",""DGPTC"",15,0)"
^XMB(3.9,8,2,566,0)=" ;"
^XMB(3.9,8,2,567,0)="""RTN"",""DGPTC"",16,0)"
^XMB(3.9,8,2,568,0)="2 ;;Release Closed Census Record"
^XMB(3.9,8,2,569,0)="""RTN"",""DGPTC"",17,0)"
^XMB(3.9,8,2,570,0)=" S Y=2 D RTY^DGPTUTL,^DGPTFREL"
^XMB(3.9,8,2,571,0)="""RTN"",""DGPTC"",18,0)"
^XMB(3.9,8,2,572,0)=" Q"
^XMB(3.9,8,2,573,0)="""RTN"",""DGPTC"",19,0)"
^XMB(3.9,8,2,574,0)=" ;"
^XMB(3.9,8,2,575,0)="""RTN"",""DGPTC"",20,0)"
^XMB(3.9,8,2,576,0)="3 ;;Open Closed Census Record"
^XMB(3.9,8,2,577,0)="""RTN"",""DGPTC"",21,0)"
^XMB(3.9,8,2,578,0)=" S Y=2 D RTY^DGPTUTL,HEL^DGPTFDEL"
^XMB(3.9,8,2,579,0)="""RTN"",""DGPTC"",22,0)"
^XMB(3.9,8,2,580,0)=" K DGADM,DGDOM,DGNHCU,MASD,MASDEV,PARA,DG,DGHEM Q"
^XMB(3.9,8,2,581,0)="""RTN"",""DGPTC"",23,0)"
^XMB(3.9,8,2,582,0)=" ;"
^XMB(3.9,8,2,583,0)="""RTN"",""DGPTC"",24,0)"
^XMB(3.9,8,2,584,0)="4 ;;Transmit Census Records"
^XMB(3.9,8,2,585,0)="""RTN"",""DGPTC"",25,0)"
^XMB(3.9,8,2,586,0)=" D CLOSE G Q4:'Y"
^XMB(3.9,8,2,587,0)="""RTN"",""DGPTC"",26,0)"
^XMB(3.9,8,2,588,0)=" S Y=2 D RTY^DGPTUTL,^DGPTFTR"
^XMB(3.9,8,2,589,0)="""RTN"",""DGPTC"",27,0)"
^XMB(3.9,8,2,590,0)="Q4 K DGCN,DGCN0 Q"
^XMB(3.9,8,2,591,0)="""RTN"",""DGPTC"",28,0)"
^XMB(3.9,8,2,592,0)=" ;"
^XMB(3.9,8,2,593,0)="""RTN"",""DGPTC"",29,0)"
^XMB(3.9,8,2,594,0)="5 ;;Re-Open Released/Transmitted Records"
^XMB(3.9,8,2,595,0)="""RTN"",""DGPTC"",30,0)"
^XMB(3.9,8,2,596,0)=" S Y=2 D RTY^DGPTUTL,DREL^DGPTFDEL"
^XMB(3.9,8,2,597,0)="""RTN"",""DGPTC"",31,0)"
^XMB(3.9,8,2,598,0)=" Q"
^XMB(3.9,8,2,599,0)="""RTN"",""DGPTC"",32,0)"
^XMB(3.9,8,2,600,0)=" ;"
^XMB(3.9,8,2,601,0)="""RTN"",""DGPTC"",33,0)"
^XMB(3.9,8,2,602,0)="6 ;;Census Outputs"
^XMB(3.9,8,2,603,0)="""RTN"",""DGPTC"",34,0)"
^XMB(3.9,8,2,604,0)=" G ^DGPTCO"
^XMB(3.9,8,2,605,0)="""RTN"",""DGPTC"",35,0)"
^XMB(3.9,8,2,606,0)=" ;"
^XMB(3.9,8,2,607,0)="""RTN"",""DGPTC"",36,0)"
^XMB(3.9,8,2,608,0)="7 ;;Census Date Parameters"
^XMB(3.9,8,2,609,0)="""RTN"",""DGPTC"",37,0)"
^XMB(3.9,8,2,610,0)=" D CHKCUR^DGPTCO1"
^XMB(3.9,8,2,611,0)="""RTN"",""DGPTC"",38,0)"
^XMB(3.9,8,2,612,0)=" K DGDASH W ! D DATE^DGPTCO1 S:Y]"""" DIC(""B"")=Y"
^XMB(3.9,8,2,613,0)="""RTN"",""DGPTC"",39,0)"
^XMB(3.9,8,2,614,0)=" S DIC=""^DG(45.86,"",DIC(0)=""AELMQ"" D ^DIC K DIC G Q7:Y<0"
^XMB(3.9,8,2,615,0)="""RTN"",""DGPTC"",40,0)"
^XMB(3.9,8,2,616,0)=" S (D0,DGCN)=+Y D PAR"
^XMB(3.9,8,2,617,0)="""RTN"",""DGPTC"",41,0)"
^XMB(3.9,8,2,618,0)=" ;S DA=DGCN,DIE=""^DG(45.86,"",DR=""[DGPT CENSUS DATE]"" D ^DIE K DIE,DR,DQ,DE"
^XMB(3.9,8,2,619,0)="""RTN"",""DGPTC"",42,0)"
^XMB(3.9,8,2,620,0)=" ;I '$D(Y) S D0=DGCN D PAR W !!"
^XMB(3.9,8,2,621,0)="""RTN"",""DGPTC"",43,0)"
^XMB(3.9,8,2,622,0)="Q7 K DGCN,D0,DA Q"
^XMB(3.9,8,2,623,0)="""RTN"",""DGPTC"",44,0)"
^XMB(3.9,8,2,624,0)=" ;"
^XMB(3.9,8,2,625,0)="""RTN"",""DGPTC"",45,0)"
^XMB(3.9,8,2,626,0)="8 ;;Regenerate Census WorkFile"
^XMB(3.9,8,2,627,0)="""RTN"",""DGPTC"",46,0)"
^XMB(3.9,8,2,628,0)=" D GEN^DGPTCR"
^XMB(3.9,8,2,629,0)="""RTN"",""DGPTC"",47,0)"
^XMB(3.9,8,2,630,0)=" Q"
^XMB(3.9,8,2,631,0)="""RTN"",""DGPTC"",48,0)"
^XMB(3.9,8,2,632,0)=" ;"
^XMB(3.9,8,2,633,0)="""RTN"",""DGPTC"",49,0)"
^XMB(3.9,8,2,634,0)="9 ;;Send 099 Transmission for Census Record"
^XMB(3.9,8,2,635,0)="""RTN"",""DGPTC"",50,0)"
^XMB(3.9,8,2,636,0)=" D CLOSE G Q9:'Y"
^XMB(3.9,8,2,637,0)="""RTN"",""DGPTC"",51,0)"
^XMB(3.9,8,2,638,0)=" S Y=2 D RTY^DGPTUTL,EN^DGPTF099"
^XMB(3.9,8,2,639,0)="""RTN"",""DGPTC"",52,0)"
^XMB(3.9,8,2,640,0)="Q9 K DGCN,DGCN0 Q"
^XMB(3.9,8,2,641,0)="""RTN"",""DGPTC"",53,0)"
^XMB(3.9,8,2,642,0)=" ;"
^XMB(3.9,8,2,643,0)="""RTN"",""DGPTC"",54,0)"
^XMB(3.9,8,2,644,0)="10 ;;Close Census Reord"
^XMB(3.9,8,2,645,0)="""RTN"",""DGPTC"",55,0)"
^XMB(3.9,8,2,646,0)=" W ! S DIC=""^DGPT("",DIC(0)=""AEMZQ"",DIC(""S"")=""I '$P(^(0),U,6),$P(^(0),U,11)=1"""
^XMB(3.9,8,2,647,0)="""RTN"",""DGPTC"",56,0)"
^XMB(3.9,8,2,648,0)=" D ^DIC K DIC G Q10:Y<0"
^XMB(3.9,8,2,649,0)="""RTN"",""DGPTC"",57,0)"
^XMB(3.9,8,2,650,0)=" S (DGPTF,PTF)=+Y,DFN=+Y(0) D PM^DGPTUTL,CEN^DGPTC1"
^XMB(3.9,8,2,651,0)="""RTN"",""DGPTC"",58,0)"
^XMB(3.9,8,2,652,0)=" I '$D(DGCST) W !!,*7,"" >>>> Census transactions are not required for this PTF record."" G 10"
^XMB(3.9,8,2,653,0)="""RTN"",""DGPTC"",59,0)"
^XMB(3.9,8,2,654,0)=" I DGCST W !!,*7,"" >>>> This PTF record is already closed for census. (Census #"",$S($D(DGCI):DGCI,1:""""),"")"" G 10"
^XMB(3.9,8,2,655,0)="""RTN"",""DGPTC"",60,0)"
^XMB(3.9,8,2,656,0)=" D UPDT^DGPTUTL:'$P(Y(0),U,4) S DGPTFE=$P(^DGPT(PTF,0),U,4)"
^XMB(3.9,8,2,657,0)="""RTN"",""DGPTC"",61,0)"
^XMB(3.9,8,2,658,0)=" S Y=+$S($D(^DG(45.86,+DGCN,0)):+^(0),1:"""") D FMT^DGPTUTL"
^XMB(3.9,8,2,659,0)="""RTN"",""DGPTC"",62,0)"
^XMB(3.9,8,2,660,0)=" S Y=2 D RTY^DGPTUTL"
^XMB(3.9,8,2,661,0)="""RTN"",""DGPTC"",63,0)"
^XMB(3.9,8,2,662,0)=" D CLS^DGPTC1"
^XMB(3.9,8,2,663,0)="""RTN"",""DGPTC"",64,0)"
^XMB(3.9,8,2,664,0)=" I 'DGCST W !!,"" >>>> Not able to close for census.  Please use 'Load/Edit' option to edit PTF."""
^XMB(3.9,8,2,665,0)="""RTN"",""DGPTC"",65,0)"
^XMB(3.9,8,2,666,0)=" D Q1^DGPTF G 10"
^XMB(3.9,8,2,667,0)="""RTN"",""DGPTC"",66,0)"
^XMB(3.9,8,2,668,0)="Q10 K DG1,DGL,DGADM,DGPTFMT,DFN,PTF,DGPTFE,DGRTY,DGRTY0,DGPTF D KVAR^DGPTC1 Q"
^XMB(3.9,8,2,669,0)="""RTN"",""DGPTC"",67,0)"
^XMB(3.9,8,2,670,0)=" ; "
^XMB(3.9,8,2,671,0)="""RTN"",""DGPTC"",68,0)"
^XMB(3.9,8,2,672,0)="CLOSE ; -- can we xmit?"
^XMB(3.9,8,2,673,0)="""RTN"",""DGPTC"",69,0)"
^XMB(3.9,8,2,674,0)=" D CEN^DGPTUTL S Y=1"
^XMB(3.9,8,2,675,0)="""RTN"",""DGPTC"",70,0)"
^XMB(3.9,8,2,676,0)=" I 'DGCN W !!?5,*7,""There is currently no active census being conducted."" S Y=0 G CLOSEQ"
^XMB(3.9,8,2,677,0)="""RTN"",""DGPTC"",71,0)"
^XMB(3.9,8,2,678,0)=" I DT>$P(DGCN0,U,2) S Y=$P(DGCN0,U,2) X ^DD(""DD"") W !!?5,*7,""Census Close date has passed ("",Y,"")."",!?5,""No transmissions allowed."" S Y=0 G CLOSEQ"
^XMB(3.9,8,2,679,0)="""RTN"",""DGPTC"",72,0)"
^XMB(3.9,8,2,680,0)="CLOSEQ Q"
^XMB(3.9,8,2,681,0)="""RTN"",""DGPTC"",73,0)"
^XMB(3.9,8,2,682,0)=" ;"
^XMB(3.9,8,2,683,0)="""RTN"",""DGPTC"",74,0)"
^XMB(3.9,8,2,684,0)="PAR ; census date parameter profile"
^XMB(3.9,8,2,685,0)="""RTN"",""DGPTC"",75,0)"
^XMB(3.9,8,2,686,0)=" ;  input: D0 := ifn of ^DG(45.86)"
^XMB(3.9,8,2,687,0)="""RTN"",""DGPTC"",76,0)"
^XMB(3.9,8,2,688,0)=" S X=""DGPTXCP"" X ^%ZOSF(""TEST"") G PARQ:'$T"
^XMB(3.9,8,2,689,0)="""RTN"",""DGPTC"",77,0)"
^XMB(3.9,8,2,690,0)=" K DGDASH,DXS S $P(DGDASH,""-"",81)="""",IOP=""HOME"" D ^%ZIS K IOP"
^XMB(3.9,8,2,691,0)="""RTN"",""DGPTC"",78,0)"
^XMB(3.9,8,2,692,0)=" W @IOF,*13,$E(DGDASH,1,28),"" Quick Parameter Profile "",$E(DGDASH,1,27)"
^XMB(3.9,8,2,693,0)="""RTN"",""DGPTC"",79,0)"
^XMB(3.9,8,2,694,0)=" D ^DGPTXCP W !,DGDASH"
^XMB(3.9,8,2,695,0)="""RTN"",""DGPTC"",80,0)"
^XMB(3.9,8,2,696,0)="PARQ K DGDASH,DXS Q"
^XMB(3.9,8,2,697,0)="""RTN"",""DGRPE"")"
^XMB(3.9,8,2,698,0)="0^4^B49305780^B49313400"
^XMB(3.9,8,2,699,0)="""RTN"",""DGRPE"",1,0)"
^XMB(3.9,8,2,700,0)="DGRPE ;ALB/MRL,LBD,BRM - REGISTRATIONS EDITS ; 8/11/05 1:02pm"
^XMB(3.9,8,2,701,0)="""RTN"",""DGRPE"",2,0)"
^XMB(3.9,8,2,702,0)=" ;;5.3;Registration;**32,114,139,169,175,247,190,343,397,342,454,415,489,506,244,547,522,528,555,508,451,626,638,624,677,672,702**;Aug 13, 1993"
^XMB(3.9,8,2,703,0)="""RTN"",""DGRPE"",3,0)"
^XMB(3.9,8,2,704,0)=" ;"
^XMB(3.9,8,2,705,0)="""RTN"",""DGRPE"",4,0)"
^XMB(3.9,8,2,706,0)=" ;DGDR contains a string of edits; edit=screen*10+item #"
^XMB(3.9,8,2,707,0)="""RTN"",""DGRPE"",5,0)"
^XMB(3.9,8,2,708,0)=" ;"
^XMB(3.9,8,2,709,0)="""RTN"",""DGRPE"",6,0)"
^XMB(3.9,8,2,710,0)=" ;line tag screen*10+item*1000 = continuation line"
^XMB(3.9,8,2,711,0)="""RTN"",""DGRPE"",7,0)"
^XMB(3.9,8,2,712,0)=" ;"
^XMB(3.9,8,2,713,0)="""RTN"",""DGRPE"",8,0)"
^XMB(3.9,8,2,714,0)=" I DGRPS=1,DGDR[""101,"" D CEDITS^DGRPECE(DFN)"
^XMB(3.9,8,2,715,0)="""RTN"",""DGRPE"",9,0)"
^XMB(3.9,8,2,716,0)=" I DGRPS=8 D ^DGRPEIS,Q Q  ; family demographic edit...not conventional!!  :)"
^XMB(3.9,8,2,717,0)="""RTN"",""DGRPE"",10,0)"
^XMB(3.9,8,2,718,0)=" I DGRPS=9 D EDIT9^DGRPEIS2,Q Q  ; income screening data ($$$)"
^XMB(3.9,8,2,719,0)="""RTN"",""DGRPE"",11,0)"
^XMB(3.9,8,2,720,0)=" I DGRPS=5,DGDR[""501,"" D"
^XMB(3.9,8,2,721,0)="""RTN"",""DGRPE"",12,0)"
^XMB(3.9,8,2,722,0)=" .I $G(DGPRFLG) D PREG^IBCNBME(DFN) Q"
^XMB(3.9,8,2,723,0)="""RTN"",""DGRPE"",13,0)"
^XMB(3.9,8,2,724,0)=" .D REG^IBCNBME(DFN)"
^XMB(3.9,8,2,725,0)="""RTN"",""DGRPE"",14,0)"
^XMB(3.9,8,2,726,0)=" .Q"
^XMB(3.9,8,2,727,0)="""RTN"",""DGRPE"",15,0)"
^XMB(3.9,8,2,728,0)=" ;-- Tricare screen #15"
^XMB(3.9,8,2,729,0)="""RTN"",""DGRPE"",16,0)"
^XMB(3.9,8,2,730,0)=" I DGRPS=15 D EDIT^DGRP15,Q Q"
^XMB(3.9,8,2,731,0)="""RTN"",""DGRPE"",17,0)"
^XMB(3.9,8,2,732,0)=" ;"
^XMB(3.9,8,2,733,0)="""RTN"",""DGRPE"",18,0)"
^XMB(3.9,8,2,734,0)=" N DGPH,DGPHFLG"
^XMB(3.9,8,2,735,0)="""RTN"",""DGRPE"",19,0)"
^XMB(3.9,8,2,736,0)=" K DR S (DA,Y)=DFN,DIE=""^DPT("",DR="""",DGDRS=""DR"",DGCT=0"
^XMB(3.9,8,2,737,0)="""RTN"",""DGRPE"",20,0)"
^XMB(3.9,8,2,738,0)=" G ^DGRPE1:DGRPS>6"
^XMB(3.9,8,2,739,0)="""RTN"",""DGRPE"",21,0)"
^XMB(3.9,8,2,740,0)=" I DGRPS=4 D ^DGRPE4"
^XMB(3.9,8,2,741,0)="""RTN"",""DGRPE"",22,0)"
^XMB(3.9,8,2,742,0)=" K DR S (DA,Y)=DFN,DIE=""^DPT("",DR="""",DGDRS=""DR"",DGCT=0"
^XMB(3.9,8,2,743,0)="""RTN"",""DGRPE"",23,0)"
^XMB(3.9,8,2,744,0)=" F I=1:1 S J=$P(DGDR,"","",I) Q:J=""""  F J1=J,J*1000,J*1000+1,J*1000+2 Q:'$T(@J1)  S DGDRD=$P($T(@J1),"";;"",2) D S"
^XMB(3.9,8,2,745,0)="""RTN"",""DGRPE"",24,0)"
^XMB(3.9,8,2,746,0)=" D ^DIE"
^XMB(3.9,8,2,747,0)="""RTN"",""DGRPE"",25,0)"
^XMB(3.9,8,2,748,0)=" ;check for Combat Vet status"
^XMB(3.9,8,2,749,0)="""RTN"",""DGRPE"",26,0)"
^XMB(3.9,8,2,750,0)=" I $G(DGCVFLG)=1,($P($$CVEDT^DGCV(DFN),U,2)']"""") D"
^XMB(3.9,8,2,751,0)="""RTN"",""DGRPE"",27,0)"
^XMB(3.9,8,2,752,0)=" . W !!,""**NOTE-Change(s) made in this session deleted the veteran's Combat Vet status!"""
^XMB(3.9,8,2,753,0)="""RTN"",""DGRPE"",28,0)"
^XMB(3.9,8,2,754,0)=" . S DIR(0)=""EA"" D ^DIR K DIR"
^XMB(3.9,8,2,755,0)="""RTN"",""DGRPE"",29,0)"
^XMB(3.9,8,2,756,0)=" I $G(DGPHFLG)>0 D EDITPH1^DGRPLE()"
^XMB(3.9,8,2,757,0)="""RTN"",""DGRPE"",30,0)"
^XMB(3.9,8,2,758,0)="Q K DA,DIE,DR,DGCT,DGCVFLG,DGDR,DGDRD,DGDRS,DGRPADI,I,J,J1,DGCOMLOC"
^XMB(3.9,8,2,759,0)="""RTN"",""DGRPE"",31,0)"
^XMB(3.9,8,2,760,0)=" Q"
^XMB(3.9,8,2,761,0)="""RTN"",""DGRPE"",32,0)"
^XMB(3.9,8,2,762,0)="S I $L(@DGDRS)+$L(DGDRD)<241 S @DGDRS=@DGDRS_DGDRD Q"
^XMB(3.9,8,2,763,0)="""RTN"",""DGRPE"",33,0)"
^XMB(3.9,8,2,764,0)=" S DGCT=DGCT+1,DGDRS=""DR(1,2,""_DGCT_"")"",@DGDRS=DGDRD Q"
^XMB(3.9,8,2,765,0)="""RTN"",""DGRPE"",34,0)"
^XMB(3.9,8,2,766,0)=" Q"
^XMB(3.9,8,2,767,0)="""RTN"",""DGRPE"",35,0)"
^XMB(3.9,8,2,768,0)=" ;"
^XMB(3.9,8,2,769,0)="""RTN"",""DGRPE"",36,0)"
^XMB(3.9,8,2,770,0)="101 ;;"
^XMB(3.9,8,2,771,0)="""RTN"",""DGRPE"",37,0)"
^XMB(3.9,8,2,772,0)="102 ;;1;"
^XMB(3.9,8,2,773,0)="""RTN"",""DGRPE"",38,0)"
^XMB(3.9,8,2,774,0)="103 ;;.091;"
^XMB(3.9,8,2,775,0)="""RTN"",""DGRPE"",39,0)"
^XMB(3.9,8,2,776,0)="104 ;;N FLG S (FLG(1),FLG(2))=1 D EN^DGREGAED(DFN,.FLG);"
^XMB(3.9,8,2,777,0)="""RTN"",""DGRPE"",40,0)"
^XMB(3.9,8,2,778,0)="105 ;;.12105//NO;S:X=""N"" Y=""@15"" S:X=""Y"" DIE(""NO^"")="""";.1217;I X']"""" W !?4,$C(7),""But I need a Start Date for this Temporary Address."" S Y=.12105;.1218;.1211;I X']"""" W !?4,$C(7),""But I need at least one line of a Temporary address."" S Y=.12105;"
^XMB(3.9,8,2,779,0)="""RTN"",""DGRPE"",41,0)"
^XMB(3.9,8,2,780,0)="105000 ;;.1212;S:X']"""" Y=.1214;.1213:.1215;.12112;Q;.12111;.1219;@15;K DIE(""NO^"");"
^XMB(3.9,8,2,781,0)="""RTN"",""DGRPE"",42,0)"
^XMB(3.9,8,2,782,0)="109 ;;N FLG S (FLG(1),FLG(2))=1 D EN^DGREGAED(DFN,.FLG);.02;D DR109^DGRPE;6;2;K DR(2,2.02),DR(2,2.06);.05;.08;K DIE(""NO^"");"
^XMB(3.9,8,2,783,0)="""RTN"",""DGRPE"",43,0)"
^XMB(3.9,8,2,784,0)="111 ;;.14105//NO;S:X=""N"" Y=""@111"" S:X=""Y"" DIE(""NO^"")="""";.1417;I X']"""" W !?4,$C(7),""But I need a Start Date."" S Y=.14105;.1418;D DR111^DGRPE;.141;I '$P($$CAACT^DGRPCADD(DFN),U,2) W !?4,""But I need at least one active category."" S Y=.14105;"
^XMB(3.9,8,2,785,0)="""RTN"",""DGRPE"",44,0)"
^XMB(3.9,8,2,786,0)="111000 ;;K DR(2,2.141);.1411;I X']"""" W !?4,$C(7),""I need at least one line of Address."" S Y=.14105;.1412;S:X']"""" Y=.1414;.1413;.1414;.1415;.1416;Q;.14111;@111;K DIE(""NO^"");"
^XMB(3.9,8,2,787,0)="""RTN"",""DGRPE"",45,0)"
^XMB(3.9,8,2,788,0)="112 ;;.134;.135;.133"
^XMB(3.9,8,2,789,0)="""RTN"",""DGRPE"",46,0)"
^XMB(3.9,8,2,790,0)="201 ;;.05;.08;.092;.093;.2401:.2403;57.4//NOT APPLICABLE;"
^XMB(3.9,8,2,791,0)="""RTN"",""DGRPE"",47,0)"
^XMB(3.9,8,2,792,0)="202 ;;1010.15//NO;S:X'=""Y"" Y=""@22"";S DIE(""NO^"")="""";1010.152;I X']"""" W !?4,*7,""But I need to know where you were treated most recently."" S Y=1010.15;1010.151;1010.154;S:X']"""" Y=""@22"";1010.153;@22;K DIE(""NO^"");"
^XMB(3.9,8,2,793,0)="""RTN"",""DGRPE"",48,0)"
^XMB(3.9,8,2,794,0)="203 ;;D DR203^DGRPE;6ETHNICITY;2RACE;K DR(2,2.02),DR(2,2.06);"
^XMB(3.9,8,2,795,0)="""RTN"",""DGRPE"",49,0)"
^XMB(3.9,8,2,796,0)="205 ;;.181;"
^XMB(3.9,8,2,797,0)="""RTN"",""DGRPE"",50,0)"
^XMB(3.9,8,2,798,0)="301 ;;.211;S:X']"""" Y=""@31"";.212;.2125//NO;I X=""Y"" S DGADD="".21"" D AD^DGRPE S Y=.21011;.213;S:X']"""" Y=.216;.214;S:X']"""" Y=.216;.215:.217;.2207;.219;.21011;@31;"
^XMB(3.9,8,2,799,0)="""RTN"",""DGRPE"",51,0)"
^XMB(3.9,8,2,800,0)="302 ;;.2191;S:X']"""" Y=""@32"";.2192;.21925//NO;I X=""Y"" S DGADD="".211"" D AD^DGRPE S Y=.211011;"
^XMB(3.9,8,2,801,0)="""RTN"",""DGRPE"",52,0)"
^XMB(3.9,8,2,802,0)="302000 ;;.2193;S:X']"""" Y=.2196;.2194;S:X']"""" Y=.2196;.2195:.2197;.2203;.2199;.211011;@32;"
^XMB(3.9,8,2,803,0)="""RTN"",""DGRPE"",53,0)"
^XMB(3.9,8,2,804,0)="303 ;;N DGX1,DGX2;I '$L($P($G(^DPT(DFN,.21)),U)) S Y=""@33"";.3305//NO;I X=""Y"" S Y=""@34"",DGX1=1 S:$D(^DPT(DFN,.22)) $P(^(.22),U,1)=$P(^(.22),U,7);@33;.331;S:X']"""" DGX1=2,Y=""@34"";.332;@34;"
^XMB(3.9,8,2,805,0)="""RTN"",""DGRPE"",54,0)"
^XMB(3.9,8,2,806,0)="303000 ;;S:$G(DGX1) Y=""@341"";.333;S:X']"""" Y=.336;.334;S:X']"""" Y=.336;.335:.337;.2201;.339;.33011;S DGX1=2;@341;"
^XMB(3.9,8,2,807,0)="""RTN"",""DGRPE"",55,0)"
^XMB(3.9,8,2,808,0)="303001 ;;S:$G(DGX1)=2 Y=""@35"";S DGX2=$G(^DPT(DA,.21));.331///^S X=$P(DGX2,U);.332///^S X=$P(DGX2,U,2);.333////^S X=$P(DGX2,U,3);.334///^S X=$P(DGX2,U,4);@35;"
^XMB(3.9,8,2,809,0)="""RTN"",""DGRPE"",56,0)"
^XMB(3.9,8,2,810,0)="303002 ;;S:$G(DGX1)=2 Y=""@351"";.335///^S X=$P(DGX2,U,5);.336///^S X=$P(DGX2,U,6);.337///^S X=$P(DGX2,U,7);.338///^S X=$P(DGX2,U,8);.339///^S X=$P(DGX2,U,9);.33011///^S X=$P(DGX2,U,11);@351;K DGX1,DGX2;"
^XMB(3.9,8,2,811,0)="""RTN"",""DGRPE"",57,0)"
^XMB(3.9,8,2,812,0)="304 ;;.3311;S:X']"""" Y=""@36"";.3312;.3313;S:X']"""" Y=.3316;.3314;S:X']"""" Y=.3316;.3315:.3317;.2204;.3319;.331011;@36;        "
^XMB(3.9,8,2,813,0)="""RTN"",""DGRPE"",58,0)"
^XMB(3.9,8,2,814,0)="305 ;;N DGX1,DGX2;I '$L($P($G(^DPT(DFN,.21)),U)) S Y=""@37"";.3405//NO;I X=""Y"" S DGX1=1,Y=""@371"" S:$D(^DPT(DFN,.22)) $P(^(.22),U,2)=$P(^(.22),U,7);@37;.341;S:X']"""" DGX1=2,Y=""@371"";.342;@371;"
^XMB(3.9,8,2,815,0)="""RTN"",""DGRPE"",59,0)"
^XMB(3.9,8,2,816,0)="305000 ;;S:$G(DGX1) Y=""@38"";.343;S:X']"""" Y=.346;.344;S:X']"""" Y=.346;.345:.347;.2202;.349;.34011;S DGX1=2;@38;"
^XMB(3.9,8,2,817,0)="""RTN"",""DGRPE"",60,0)"
^XMB(3.9,8,2,818,0)="305001 ;;S:$G(DGX1)=2 Y=""@381"";S DGX2=$G(^DPT(DA,.21));.341///^S X=$P(DGX2,U);.342///^S X=$P(DGX2,U,2);.343///^S X=$P(DGX2,U,3);.344///^S X=$P(DGX2,U,4);@381"
^XMB(3.9,8,2,819,0)="""RTN"",""DGRPE"",61,0)"
^XMB(3.9,8,2,820,0)="305002 ;;S:$G(DGX1)=2 Y=""@39"";.345///^S X=$P(DGX2,U,5);.346///^S X=$P(DGX2,U,6);.347///^S X=$P(DGX2,U,7);.348///^S X=$P(DGX2,U,8);.349///^S X=$P(DGX2,U,9);.34011///^S X=$P(DGX2,U,11);@39;K DGX1,DGX2;"
^XMB(3.9,8,2,821,0)="""RTN"",""DGRPE"",62,0)"
^XMB(3.9,8,2,822,0)="401 ;;.01;.31115;S:($S(X']"""":1,X=3:1,X=9:1,1:0)) Y=""@41"" S:(X'=5) Y=.3111;.31116;.3111;S:X']"""" Y=""@41"";.3113;S:X']"""" Y=.3116;.3114;S:X']"""" Y=.3116;.3115:.3117;.2205;.3119;@41;"
^XMB(3.9,8,2,823,0)="""RTN"",""DGRPE"",63,0)"
^XMB(3.9,8,2,824,0)="402 ;;.2514;.2515;S:($S(X']"""":1,X=3:1,X=9:1,1:0)) Y=""@42"" S:(X'=5) Y=.251;.2516;.251;S:X']"""" Y=""@42"";.252;S:X']"""" Y=.255;.253;S:X']"""" Y=.255;.254:.256;.2206;.258;@42;"
^XMB(3.9,8,2,825,0)="""RTN"",""DGRPE"",64,0)"
^XMB(3.9,8,2,826,0)="501 ;;"
^XMB(3.9,8,2,827,0)="""RTN"",""DGRPE"",65,0)"
^XMB(3.9,8,2,828,0)="502 ;;.381;.382///NOW;"
^XMB(3.9,8,2,829,0)="""RTN"",""DGRPE"",66,0)"
^XMB(3.9,8,2,830,0)="503 ;;.383;"
^XMB(3.9,8,2,831,0)="""RTN"",""DGRPE"",67,0)"
^XMB(3.9,8,2,832,0)="601 ;;.325;S:X']"""" Y=""@61"";S:$$FV^DGRPMS(X)'=1 Y="".328"";.3214;I X']"""" W !?4,$C(7),""Proof is required for Filipino Vet."" S Y="".325"";.328;.326;.327;.324;"
^XMB(3.9,8,2,833,0)="""RTN"",""DGRPE"",68,0)"
^XMB(3.9,8,2,834,0)="601000 ;;.3285//NO;S:X'=""Y"" Y=""@61"";.3291;S:X']"""" Y=""@61"";S:$$FV^DGRPMS(X)'=1 Y="".3294"";.3214;I X']"""" W !?4,$C(7),""Proof is required for Filipino Vet."" S Y="".3291"";.3294;.3292;.3293;.329;"
^XMB(3.9,8,2,835,0)="""RTN"",""DGRPE"",69,0)"
^XMB(3.9,8,2,836,0)="601001 ;;.32945//NO;S:X'=""Y"" Y=""@61"";.3296;S:X']"""" Y=""@61"";S:$$FV^DGRPMS(X)'=1 Y="".3299"";.3214;I X']"""" W !?4,$C(7),""Proof is required for Filipino Vet."" S Y="".3296"";.3299;.3297;.3298;.3295;@61;"
^XMB(3.9,8,2,837,0)="""RTN"",""DGRPE"",70,0)"
^XMB(3.9,8,2,838,0)="602 ;;.525//NO;S:X'=""Y"" Y=""@62"";.526:.528;@62;"
^XMB(3.9,8,2,839,0)="""RTN"",""DGRPE"",71,0)"
^XMB(3.9,8,2,840,0)="603 ;;.5291//NO;S:X'=""Y"" Y=""@63"";.5292:.5294;@63;"
^XMB(3.9,8,2,841,0)="""RTN"",""DGRPE"",72,0)"
^XMB(3.9,8,2,842,0)="604 ;;.32101//NO;S:X'=""Y"" Y=""@64"";.32104;.32105;@64;"
^XMB(3.9,8,2,843,0)="""RTN"",""DGRPE"",73,0)"
^XMB(3.9,8,2,844,0)="605 ;;.32102//NO;S:X'=""Y"" Y=""@65"";.32107;.32109;.3211;.3213;@65;"
^XMB(3.9,8,2,845,0)="""RTN"",""DGRPE"",74,0)"
^XMB(3.9,8,2,846,0)="606 ;;.32103//NO;S:X'=""Y"" Y=""@66"";.3212;.32111;@66;"
^XMB(3.9,8,2,847,0)="""RTN"",""DGRPE"",75,0)"
^XMB(3.9,8,2,848,0)="607 ;;.3221//NO;S:X'=""Y"" Y=""@67"";.3222;Q;.3223;@67;"
^XMB(3.9,8,2,849,0)="""RTN"",""DGRPE"",76,0)"
^XMB(3.9,8,2,850,0)="608 ;;.3224//NO;S:X'=""Y"" Y=""@68"";.3225;Q;.3226;@68;"
^XMB(3.9,8,2,851,0)="""RTN"",""DGRPE"",77,0)"
^XMB(3.9,8,2,852,0)="609 ;;.3227//NO;S:X'=""Y"" Y=""@69"";.3228;Q;.3229;@69;"
^XMB(3.9,8,2,853,0)="""RTN"",""DGRPE"",78,0)"
^XMB(3.9,8,2,854,0)="610 ;;.32201//NO;S:X'=""Y"" Y=""@610"";.322011;Q;.322012;@610;"
^XMB(3.9,8,2,855,0)="""RTN"",""DGRPE"",79,0)"
^XMB(3.9,8,2,856,0)="611 ;;.322016//NO;S:X'=""Y"" Y=""@611"";.322017;Q;.322018;@611;"
^XMB(3.9,8,2,857,0)="""RTN"",""DGRPE"",80,0)"
^XMB(3.9,8,2,858,0)="612 ;;.322013//NO;S:X'=""Y"" Y=""@612"";.322014;Q;.322015;@612;"
^XMB(3.9,8,2,859,0)="""RTN"",""DGRPE"",81,0)"
^XMB(3.9,8,2,860,0)="613 ;;I $P($G(^DPT(DFN,.361)),U,3)=""H"" S Y=""@6131"";.3602//NO;.3603//NO;S Y=""@6132"";@6131;.3602;.3603;@6132;"
^XMB(3.9,8,2,861,0)="""RTN"",""DGRPE"",82,0)"
^XMB(3.9,8,2,862,0)="614 ;;.368//NO;.369//NO;I $S('$D(^DPT(DA,.36)):1,$P(^(.36),U,8)=""Y""!($P(^(.36),U,9)=""Y""):0,1:1) S Y=""@614"";.37;@614;"
^XMB(3.9,8,2,863,0)="""RTN"",""DGRPE"",83,0)"
^XMB(3.9,8,2,864,0)="615 ;;.322019//NO;S:X'=""Y"" Y=""@615"";.32202;Q;.322021;@615;"
^XMB(3.9,8,2,865,0)="""RTN"",""DGRPE"",84,0)"
^XMB(3.9,8,2,866,0)="616 ;;S DGPHFLG=0;.531;S:X'=""Y"" DGX=X,Y=""@616"";.532///^S X=""PENDING"";S Y=""@6161"";@616;S:DGX'=""N"" Y=""@6162"";.533///^S X=""VAMC"";@6161;S DGPHFLG=1;.535///^S X=$$DIV^DGRPLE();@6162;"
^XMB(3.9,8,2,867,0)="""RTN"",""DGRPE"",85,0)"
^XMB(3.9,8,2,868,0)="617 ;;D REG^DGNTQ(DFN);"
^XMB(3.9,8,2,869,0)="""RTN"",""DGRPE"",86,0)"
^XMB(3.9,8,2,870,0)="AD N DGZ4,DGPC"
^XMB(3.9,8,2,871,0)="""RTN"",""DGRPE"",87,0)"
^XMB(3.9,8,2,872,0)=" S X=$S($D(^DPT(DA,.11)):^(.11),1:""""),DGZ4=$P(X,U,12),DGPHONE=$S($D(^(.13)):$P(^(.13),U,1),1:""""),Y=$S($D(^(DGADD)):^(DGADD),1:""""),^(DGADD)=$P(Y,U,1)_U_$P(Y,U,2)_U_$P(X,U,1,6)_U_DGPHONE_U_$P(Y,U,10)"
^XMB(3.9,8,2,873,0)="""RTN"",""DGRPE"",88,0)"
^XMB(3.9,8,2,874,0)=" I DGZ4 S DGPC=$S((DGADD=.33):1,(DGADD=.34):2,(DGADD=.211):3,(DGADD=.331):4,(DGADD=.311):5,(DGADD=.25):6,(DGADD=.21):7,1:0) S:DGPC $P(^DPT(DFN,.22),U,DGPC)=DGZ4"
^XMB(3.9,8,2,875,0)="""RTN"",""DGRPE"",89,0)"
^XMB(3.9,8,2,876,0)=" K DGADD,DGPHONE Q"
^XMB(3.9,8,2,877,0)="""RTN"",""DGRPE"",90,0)"
^XMB(3.9,8,2,878,0)="DR109 ;Drop through (use same logic as DR203)"
^XMB(3.9,8,2,879,0)="""RTN"",""DGRPE"",91,0)"
^XMB(3.9,8,2,880,0)="DR203 S DR(2,2.02)="".01RACE;I $P($G(^DIC(10.3,+$P($G(^DPT(DA(1),.02,DA,0)),""""^"""",2),0)),""""^"""",2)=""""S"""" S Y=""""@2031"""";.02;@2031;"""
^XMB(3.9,8,2,881,0)="""RTN"",""DGRPE"",92,0)"
^XMB(3.9,8,2,882,0)=" S DR(2,2.06)="".01ETHNICITY;I $P($G(^DIC(10.3,+$P($G(^DPT(DA(1),.06,DA,0)),""""^"""",2),0)),""""^"""",2)=""""S"""" S Y=""""@2032"""";.02;@2032;"""
^XMB(3.9,8,2,883,0)="""RTN"",""DGRPE"",93,0)"
^XMB(3.9,8,2,884,0)=" Q"
^XMB(3.9,8,2,885,0)="""RTN"",""DGRPE"",94,0)"
^XMB(3.9,8,2,886,0)="DR111 ;Set DR string for Confidential Address categories"
^XMB(3.9,8,2,887,0)="""RTN"",""DGRPE"",95,0)"
^XMB(3.9,8,2,888,0)=" S DR(2,2.141)="".01;1//YES;"""
^XMB(3.9,8,2,889,0)="""RTN"",""DGRPE"",96,0)"
^XMB(3.9,8,2,890,0)=" Q"
^XMB(3.9,8,2,891,0)="""RTN"",""DPTLK2"")"
^XMB(3.9,8,2,892,0)="0^2^B31398139^B31148790"
^XMB(3.9,8,2,893,0)="""RTN"",""DPTLK2"",1,0)"
^XMB(3.9,8,2,894,0)="DPTLK2 ;ALB/RMO - MAS Patient Look-up Add New Patient ; 2/8/05 8:13am"
^XMB(3.9,8,2,895,0)="""RTN"",""DPTLK2"",2,0)"
^XMB(3.9,8,2,896,0)=" ;;5.3;Registration;**32,197,214,244,532,578,615,620,647,680,702**;Aug 13, 1993"
^XMB(3.9,8,2,897,0)="""RTN"",""DPTLK2"",3,0)"
^XMB(3.9,8,2,898,0)=" N DPTCT,DGVV,DPTLIDR,DGCOL S DGCOL=0"
^XMB(3.9,8,2,899,0)="""RTN"",""DPTLK2"",4,0)"
^XMB(3.9,8,2,900,0)=" I $D(DDS) D CLRMSG^DDS S DX=0,DY=DDSHBX+1 X DDXY"
^XMB(3.9,8,2,901,0)="""RTN"",""DPTLK2"",5,0)"
^XMB(3.9,8,2,902,0)=" I '$D(DUZ(0)) W:DIC(0)[""Q"" !?3,*7,""Unable to Add Patient. Your Fileman Access Code is undefined."" S DPTDFN=-1 G Q"
^XMB(3.9,8,2,903,0)="""RTN"",""DPTLK2"",6,0)"
^XMB(3.9,8,2,904,0)=" I $S($D(DLAYGO):2\1-(DLAYGO\1),1:1),DUZ(0)'=""@"",$D(^DIC(2,0,""LAYGO"")) F I=1:1 I DUZ(0)[$E(^(""LAYGO""),I) Q:I'>$L(^(""LAYGO""))  S DPTDFN=-1 W:DIC(0)[""Q"" *7,"" ??"" G Q"
^XMB(3.9,8,2,905,0)="""RTN"",""DPTLK2"",7,0)"
^XMB(3.9,8,2,906,0)=" N DG20NAME S DG20NAME=DPTX,DPTX=$$FORMAT^XLFNAME7(.DG20NAME,3,30,,1)"
^XMB(3.9,8,2,907,0)="""RTN"",""DPTLK2"",8,0)"
^XMB(3.9,8,2,908,0)=" S DPTX=$S($E(DPTX)[""""""""&($E(DPTX,$L(DPTX))[""""""""):$P(DPTX,"""""""",2),$E(DPTX)["""""""":$P(DPTX,"""""""",2),$E(DPTX,$L(DPTX))["""""""":$P(DPTX,"""""""",1),1:DPTX)"
^XMB(3.9,8,2,909,0)="""RTN"",""DPTLK2"",9,0)"
^XMB(3.9,8,2,910,0)=" I $L(DPTX)<3!($L(DPTX)>30)!(DPTX?1P.E)!(DPTX'["","")!(DPTX'?1U.ANP) W:DIC(0)[""Q"" *7,"" ??"" S DPTDFN=-1 G Q"
^XMB(3.9,8,2,911,0)="""RTN"",""DPTLK2"",10,0)"
^XMB(3.9,8,2,912,0)=" ; DG*647"
^XMB(3.9,8,2,913,0)="""RTN"",""DPTLK2"",11,0)"
^XMB(3.9,8,2,914,0)=" I $P($G(XQY0),U)=""DG COLLATERAL PATIENT"" S DGCOL=1,DGCOL(""DR"")=$P(DIC(""DR""),"";"",5,8)"
^XMB(3.9,8,2,915,0)="""RTN"",""DPTLK2"",12,0)"
^XMB(3.9,8,2,916,0)=" K DPTLID I DIC(0)[""E"" D ASKADD D  G Q:DPTDFN<0 I ('$D(DIC(""DR"")))!(DGCOL) D CHKID G Q:DPTDFN<0 D ^DPTLK3 G Q:DPTDFN<0 W !!?3,""...adding new patient"""
^XMB(3.9,8,2,917,0)="""RTN"",""DPTLK2"",13,0)"
^XMB(3.9,8,2,918,0)=" .S:DPTDFN<1&('$D(DTOUT)) DUOUT=1"
^XMB(3.9,8,2,919,0)="""RTN"",""DPTLK2"",14,0)"
^XMB(3.9,8,2,920,0)=" S X=DPTX,DPT(""NO^"")=$G(DIE(""NO^"")) K DD,DO,DPTX N DPTZNV"
^XMB(3.9,8,2,921,0)="""RTN"",""DPTLK2"",15,0)"
^XMB(3.9,8,2,922,0)=" S:$D(DPT(""DR"")) DIC(""DR"")=""S DIE(""""NO^"""")=""""BACK"""";""_DPT(""DR"")"
^XMB(3.9,8,2,923,0)="""RTN"",""DPTLK2"",16,0)"
^XMB(3.9,8,2,924,0)=" I DGCOL S:$D(DPT(""DR"")) DIC(""DR"")=DPT(""DR"")_"";""_DGCOL(""DR"")"
^XMB(3.9,8,2,925,0)="""RTN"",""DPTLK2"",17,0)"
^XMB(3.9,8,2,926,0)=" D FILE^DICN K:$D(DPT(""DR"")) DIC(""DR"")"
^XMB(3.9,8,2,927,0)="""RTN"",""DPTLK2"",18,0)"
^XMB(3.9,8,2,928,0)=" I +Y>0 W ?24,""...new patient added"",!?3"
^XMB(3.9,8,2,929,0)="""RTN"",""DPTLK2"",19,0)"
^XMB(3.9,8,2,930,0)=" S DPTDFN=Y S:$L(DPT(""NO^"")) DIE(""NO^"")=DPT(""NO^"")"
^XMB(3.9,8,2,931,0)="""RTN"",""DPTLK2"",20,0)"
^XMB(3.9,8,2,932,0)=" ;offer prompt of patient file components"
^XMB(3.9,8,2,933,0)="""RTN"",""DPTLK2"",21,0)"
^XMB(3.9,8,2,934,0)=" K DA,DIE,DR"
^XMB(3.9,8,2,935,0)="""RTN"",""DPTLK2"",22,0)"
^XMB(3.9,8,2,936,0)=" S DIE=""^DPT("",DA=+Y,DR=""S DIE(""""NO^"""")=""""BACK"""";.01///^S (X,DPTZNV)=$$NCEDIT^DPTNAME(DA,1,.DG20NAME)"""
^XMB(3.9,8,2,937,0)="""RTN"",""DPTLK2"",23,0)"
^XMB(3.9,8,2,938,0)=" D ^DIE K DR"
^XMB(3.9,8,2,939,0)="""RTN"",""DPTLK2"",24,0)"
^XMB(3.9,8,2,940,0)=" ;look for other (local) identifiers"
^XMB(3.9,8,2,941,0)="""RTN"",""DPTLK2"",25,0)"
^XMB(3.9,8,2,942,0)=" I '$D(DIC(""DR"")),DIC(0)[""E"",'DGCOL D"
^XMB(3.9,8,2,943,0)="""RTN"",""DPTLK2"",26,0)"
^XMB(3.9,8,2,944,0)=" .F DPTID=0:0 S DPTID=$O(^DD(2,0,""ID"",DPTID)) Q:'DPTID  D"
^XMB(3.9,8,2,945,0)="""RTN"",""DPTLK2"",27,0)"
^XMB(3.9,8,2,946,0)=" ..I $F(DPTGID,U_DPTID_U) Q"
^XMB(3.9,8,2,947,0)="""RTN"",""DPTLK2"",28,0)"
^XMB(3.9,8,2,948,0)=" ..I '$D(^DD(2,DPTID,0)) Q"
^XMB(3.9,8,2,949,0)="""RTN"",""DPTLK2"",29,0)"
^XMB(3.9,8,2,950,0)=" ..S DPTLID="""""
^XMB(3.9,8,2,951,0)="""RTN"",""DPTLK2"",30,0)"
^XMB(3.9,8,2,952,0)=" ..S DPTLIDR=$S('$D(DPTLIDR):DPTID,1:DPTLIDR_"";""_DPTID)"
^XMB(3.9,8,2,953,0)="""RTN"",""DPTLK2"",31,0)"
^XMB(3.9,8,2,954,0)=" I $D(DPTLID) W !!?3,""Please enter the following additional information:"",!?3 S DIE=""^DPT("",DA=+DPTDFN,DIE(""NO^"")=""BACK"",DR=DPTLIDR D ^DIE K DIE,DA,DR"
^XMB(3.9,8,2,955,0)="""RTN"",""DPTLK2"",32,0)"
^XMB(3.9,8,2,956,0)=" ;"
^XMB(3.9,8,2,957,0)="""RTN"",""DPTLK2"",33,0)"
^XMB(3.9,8,2,958,0)="Q K DFN,DPT(""DR""),DPTLID,DPTGID,DPTID,DPTID0,DPTIDS"
^XMB(3.9,8,2,959,0)="""RTN"",""DPTLK2"",34,0)"
^XMB(3.9,8,2,960,0)=" Q"
^XMB(3.9,8,2,961,0)="""RTN"",""DPTLK2"",35,0)"
^XMB(3.9,8,2,962,0)=" ;"
^XMB(3.9,8,2,963,0)="""RTN"",""DPTLK2"",36,0)"
^XMB(3.9,8,2,964,0)="ASKADD I $D(DDS) I $Y>21 D CLRMSG^DDS S DX=0,DY=DDSHBX+1 X DDXY"
^XMB(3.9,8,2,965,0)="""RTN"",""DPTLK2"",37,0)"
^XMB(3.9,8,2,966,0)=" S Y=+$P(^DPT(0),U,4)+1 W !?3,*7,""ARE YOU ADDING "",$S(DPTX'?.N:""'""_DPTX_""' AS "",1:""""),""A NEW PATIENT (THE "",Y,$S(Y#10=1&(Y#100-11):""ST"",Y#10=2&(Y#100-12):""ND"",Y#10=3&(Y#100-13):""RD"",1:""TH""),"")"""
^XMB(3.9,8,2,967,0)="""RTN"",""DPTLK2"",38,0)"
^XMB(3.9,8,2,968,0)=" S %=2 D YN^DICN S DPTDFN=$S(%<0!(%=2):-1,%=1:1,1:0) I 'DPTDFN W !?6,""Enter 'YES' to add a new applicant, or 'NO' not to."" G ASKADD"
^XMB(3.9,8,2,969,0)="""RTN"",""DPTLK2"",39,0)"
^XMB(3.9,8,2,970,0)=" I %=1 S:$$CONF1^DPTNAME(DPTX)'=1 DPTDFN=-1"
^XMB(3.9,8,2,971,0)="""RTN"",""DPTLK2"",40,0)"
^XMB(3.9,8,2,972,0)=" Q"
^XMB(3.9,8,2,973,0)="""RTN"",""DPTLK2"",41,0)"
^XMB(3.9,8,2,974,0)=" ;"
^XMB(3.9,8,2,975,0)="""RTN"",""DPTLK2"",42,0)"
^XMB(3.9,8,2,976,0)="CHKID K DFN S DPTDFN=1,DPTGID=""^.02^.03^.09^391^1901^.301^994^"" I DGCOL S DPTGID=""^.03^.09^.02^.3601^"""
^XMB(3.9,8,2,977,0)="""RTN"",""DPTLK2"",43,0)"
^XMB(3.9,8,2,978,0)=" F DPTCT=2:1 S DPTID=$P(DPTGID,U,DPTCT) Q:'DPTID!(DPTDFN<0)  D CHKID1"
^XMB(3.9,8,2,979,0)="""RTN"",""DPTLK2"",44,0)"
^XMB(3.9,8,2,980,0)=" Q"
^XMB(3.9,8,2,981,0)="""RTN"",""DPTLK2"",45,0)"
^XMB(3.9,8,2,982,0)=" ;"
^XMB(3.9,8,2,983,0)="""RTN"",""DPTLK2"",46,0)"
^XMB(3.9,8,2,984,0)="CHKID1 I $D(^DD(2,DPTID,0)) S DPT(""DR"")=$S('$D(DPT(""DR"")):DPTID,1:DPT(""DR"")_"";""_DPTID),DPTID0=^DD(2,DPTID,0) D ASKID S:'$D(X) DPTDFN=-1"
^XMB(3.9,8,2,985,0)="""RTN"",""DPTLK2"",47,0)"
^XMB(3.9,8,2,986,0)=" Q"
^XMB(3.9,8,2,987,0)="""RTN"",""DPTLK2"",48,0)"
^XMB(3.9,8,2,988,0)=" ;"
^XMB(3.9,8,2,989,0)="""RTN"",""DPTLK2"",49,0)"
^XMB(3.9,8,2,990,0)="ASKID N DGREC W !?3,""PATIENT "",$P(DPTID0,U),"": "" R X:DTIME D  I $D(DTOUT)!$G(DUOUT)!($G(DGREC)=1) W !?6,*7,""<'"",DPTX,""'> NOT ADDED"" K X Q"
^XMB(3.9,8,2,991,0)="""RTN"",""DPTLK2"",50,0)"
^XMB(3.9,8,2,992,0)=" .S:'$T DTOUT=U"
^XMB(3.9,8,2,993,0)="""RTN"",""DPTLK2"",51,0)"
^XMB(3.9,8,2,994,0)=" .S:X=""^"" DUOUT=1"
^XMB(3.9,8,2,995,0)="""RTN"",""DPTLK2"",52,0)"
^XMB(3.9,8,2,996,0)=" .Q:$D(DTOUT)!($G(DUOUT))"
^XMB(3.9,8,2,997,0)="""RTN"",""DPTLK2"",53,0)"
^XMB(3.9,8,2,998,0)=" .I DPTID=.09 D"
^XMB(3.9,8,2,999,0)="""RTN"",""DPTLK2"",54,0)"
^XMB(3.9,8,2,1000,0)=" ..N DGNEWPT"
^XMB(3.9,8,2,1001,0)="""RTN"",""DPTLK2"",55,0)"
^XMB(3.9,8,2,1002,0)=" ..S DGNEWPT=1"
^XMB(3.9,8,2,1003,0)="""RTN"",""DPTLK2"",56,0)"
^XMB(3.9,8,2,1004,0)=" ..D REC^DGSEC"
^XMB(3.9,8,2,1005,0)="""RTN"",""DPTLK2"",57,0)"
^XMB(3.9,8,2,1006,0)=" I X[""^"" W:$E(X)[""^"" !?6,*7,""Sorry, '^' not allowed!"" W "" ??"" G ASKID"
^XMB(3.9,8,2,1007,0)="""RTN"",""DPTLK2"",58,0)"
^XMB(3.9,8,2,1008,0)=" ; field 994 is not a required field"
^XMB(3.9,8,2,1009,0)="""RTN"",""DPTLK2"",59,0)"
^XMB(3.9,8,2,1010,0)=" I DPTID=994 I X[""?"" D HLPID G ASKID"
^XMB(3.9,8,2,1011,0)="""RTN"",""DPTLK2"",60,0)"
^XMB(3.9,8,2,1012,0)=" I DPTID=994 I X="""" G SKIP"
^XMB(3.9,8,2,1013,0)="""RTN"",""DPTLK2"",61,0)"
^XMB(3.9,8,2,1014,0)=" I X[""?""!(X="""") W:X="""" *7,"" ??"" D HLPID G ASKID"
^XMB(3.9,8,2,1015,0)="""RTN"",""DPTLK2"",62,0)"
^XMB(3.9,8,2,1016,0)=" I $P(DPTID0,U,2)[""S"" F I=1:1 S Y=$P($P(DPTID0,U,3),"";"",I) K:Y="""" X Q:Y=""""  I $P(Y,"":"",1)=X!($E($P(Y,"":"",2),1,$L(X))=X) S X=$P(Y,"":"",1),DPTSET=$P(Y,"":"",2) Q"
^XMB(3.9,8,2,1017,0)="""RTN"",""DPTLK2"",63,0)"
^XMB(3.9,8,2,1018,0)="SKIP I $P(DPTID0,U,2)[""P"" D P1 G ASKID:Y'>0 Q:'$D(X)  S DPTIDS(DPTID)=X,DPT(""DR"")=DPT(""DR"")_""///""_X K DPTSET Q"
^XMB(3.9,8,2,1019,0)="""RTN"",""DPTLK2"",64,0)"
^XMB(3.9,8,2,1020,0)=" I DPTID=.301,$D(X) D CHKIT Q:'$D(X)  I $D(X) W:$D(DPTSET) "" "",DPTSET S DPTIDS(DPTID)=X,DPT(""DR"")=DPT(""DR"")_""///""_X K DPTSET Q"
^XMB(3.9,8,2,1021,0)="""RTN"",""DPTLK2"",65,0)"
^XMB(3.9,8,2,1022,0)=" I DPTID'=.301 X $P(DPTID0,U,5,99) I $D(X) W:$D(DPTSET) "" "",DPTSET S DPTIDS(DPTID)=X,DPT(""DR"")=DPT(""DR"")_""///""_X K DPTSET Q"
^XMB(3.9,8,2,1023,0)="""RTN"",""DPTLK2"",66,0)"
^XMB(3.9,8,2,1024,0)=" W:'$D(X)&($P(DPTID0,U,2)'[""D"") *7,"" ??"" D HLPID G ASKID"
^XMB(3.9,8,2,1025,0)="""RTN"",""DPTLK2"",67,0)"
^XMB(3.9,8,2,1026,0)=" ;"
^XMB(3.9,8,2,1027,0)="""RTN"",""DPTLK2"",68,0)"
^XMB(3.9,8,2,1028,0)="HLPID W:$D(^DD(2,DPTID,.1)) !?5,^(.1) W:$D(^DD(2,DPTID,3)) !?5,^(3) I $D(X),X[""?"" F I=0:0 S I=$O(^DD(2,DPTID,21,I)) Q:'I!(I>3&(X?1""?""))  I $D(^(I,0)) W !?5,^(0) I I>2,X?1""?"" W !?5,""..."""
^XMB(3.9,8,2,1029,0)="""RTN"",""DPTLK2"",69,0)"
^XMB(3.9,8,2,1030,0)=" X:$D(^DD(2,DPTID,4)) ^(4) I $P(DPTID0,U,2)[""D"" S X=""?"",%DT=""E"" D ^%DT"
^XMB(3.9,8,2,1031,0)="""RTN"",""DPTLK2"",70,0)"
^XMB(3.9,8,2,1032,0)=" I $P(DPTID0,U,2)[""S"" W !?7,""CHOOSE FROM: "" F I=1:1 S Y=$P($P(DPTID0,U,3),"";"",I) Q:Y=""""  W !?7,$P(Y,"":"",1),?15,"" "",$P(Y,"":"",2)"
^XMB(3.9,8,2,1033,0)="""RTN"",""DPTLK2"",71,0)"
^XMB(3.9,8,2,1034,0)=" I $P(DPTID0,U,2)[""P"" D P1"
^XMB(3.9,8,2,1035,0)="""RTN"",""DPTLK2"",72,0)"
^XMB(3.9,8,2,1036,0)=" Q"
^XMB(3.9,8,2,1037,0)="""RTN"",""DPTLK2"",73,0)"
^XMB(3.9,8,2,1038,0)="P1 I DPTID="".3601"" S X=$$UCASE^DPTLK1(X) ;DG*5.3*680"
^XMB(3.9,8,2,1039,0)="""RTN"",""DPTLK2"",74,0)"
^XMB(3.9,8,2,1040,0)=" S DPTDIC=$G(DIC),DPTDIC(0)=$G(DIC(0)) S:$D(DIC(""S"")) DPTDIC(""S"")=DIC(""S"") S:$D(DIC(""W"")) DPTDIC(""W"")=DIC(""W"") S DIC=""^""_$P(DPTID0,""^"",3),DIC(0)=""QEMZ"",D=""B"" D IX^DIC"
^XMB(3.9,8,2,1041,0)="""RTN"",""DPTLK2"",75,0)"
^XMB(3.9,8,2,1042,0)=" S DIC=DPTDIC,DIC(0)=DPTDIC(0) S:$D(DPTDIC(""S"")) DIC(""S"")=DPTDIC(""S"") S:$D(DPTDIC(""W"")) DIC(""W"")=DPTDIC(""W"") K DPTDIC D DO^DIC1 S:X[""^"" DPTDFN=-1 I X'[""^"",X'[""?"",Y'>0 S X=""?"" G P1"
^XMB(3.9,8,2,1043,0)="""RTN"",""DPTLK2"",76,0)"
^XMB(3.9,8,2,1044,0)=" ; DG*5.3*680  S X=+Y stores the IEN of the sponsor picked to pass to FILE^DICN "
^XMB(3.9,8,2,1045,0)="""RTN"",""DPTLK2"",77,0)"
^XMB(3.9,8,2,1046,0)=" I DPTID="".3601"" S X=+Y I '$D(^DPT(+Y,""VET""))!($P($G(^DPT(+Y,""VET"")),U)'=""Y"") D EN^DDIOL(""Sponsor must be a veteran"","""",""!?4"") K X W !?6,*7,""<'"",DPTX,""'> NOT ADDED"""
^XMB(3.9,8,2,1047,0)="""RTN"",""DPTLK2"",78,0)"
^XMB(3.9,8,2,1048,0)=" Q"
^XMB(3.9,8,2,1049,0)="""RTN"",""DPTLK2"",79,0)"
^XMB(3.9,8,2,1050,0)="CHKIT ; do input transform for .301"
^XMB(3.9,8,2,1051,0)="""RTN"",""DPTLK2"",80,0)"
^XMB(3.9,8,2,1052,0)=" I X'=""Y"" Q"
^XMB(3.9,8,2,1053,0)="""RTN"",""DPTLK2"",81,0)"
^XMB(3.9,8,2,1054,0)=" S DGVV=DPTIDS(391),DGVV=$O(^DG(391,""B"",DGVV,0))"
^XMB(3.9,8,2,1055,0)="""RTN"",""DPTLK2"",82,0)"
^XMB(3.9,8,2,1056,0)=" S DGVV=$S($D(^DG(391,+DGVV,0)):$P(^(0),""^"",2),1:"""")"
^XMB(3.9,8,2,1057,0)="""RTN"",""DPTLK2"",83,0)"
^XMB(3.9,8,2,1058,0)=" I DPTIDS(1901)'=""Y"",'DGVV D EN^DDIOL(""Applicant is NOT a veteran!!"","""",""!?4"") K X W !?6,*7,""<'"",DPTX,""'> NOT ADDED"""
^XMB(3.9,8,2,1059,0)="""RTN"",""DPTLK2"",84,0)"
^XMB(3.9,8,2,1060,0)=" Q"
^XMB(3.9,8,2,1061,0)="""RTN"",""DPTLK2"",85,0)"
^XMB(3.9,8,2,1062,0)="DEL ;Delete logic"
^XMB(3.9,8,2,1063,0)="""RTN"",""DPTLK2"",86,0)"
^XMB(3.9,8,2,1064,0)=" N I,J,A,G,Q,ERR S Q="""""""",ERR=0 F I=0:0 S I=$O(^DD(2,0,""PT"",I)) Q:'I  F J=0:0 S J=$O(^DD(2,0,""PT"",I,J)) Q:'J  D"
^XMB(3.9,8,2,1065,0)="""RTN"",""DPTLK2"",87,0)"
^XMB(3.9,8,2,1066,0)="  .F K=0:0 S K=$O(^DD(I,+J,1,K)) Q:'K  S A=$G(^(K,0)) I $L($P(A,U,2)),'$L($P(A,U,3)) D"
^XMB(3.9,8,2,1067,0)="""RTN"",""DPTLK2"",88,0)"
^XMB(3.9,8,2,1068,0)=" ..S G=$G(^DIC(+I,0,""GL"")) Q:'$L(G)  I $D(@(G_Q_$P(A,U,2)_Q_"",""_DA_"")"")) W !,""Entry in ""_$P($G(^DIC(I,0)),U)_"" (""_I_"") refers to this patient"" S ERR=1 Q"
^XMB(3.9,8,2,1069,0)="""RTN"",""DPTLK2"",89,0)"
^XMB(3.9,8,2,1070,0)=" I ERR"
^XMB(3.9,8,2,1071,0)="""VER"")"
^XMB(3.9,8,2,1072,0)="8.0^22.0"
^XMB(3.9,8,2,1073,0)="""BLD"",6620,6)"
^XMB(3.9,8,2,1074,0)="^623"
^XMB(3.9,8,2,1075,0)="$END KID DG*5.3*702"
^XMB(3.9,8,6,0)="^3.911A^2^2"
^XMB(3.9,8,6,1,0)="POSTMASTER"
^XMB(3.9,8,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,8,6,"B","POSTMASTER",1)=""
^XMB(3.9,8,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,9,0)="DG-5P3_SEQ-624_PAT-705.KID^.5^3061008.01573^^^^K"
^XMB(3.9,9,.6)="3061008"
^XMB(3.9,9,1,0)="^3.91A^2^2"
^XMB(3.9,9,1,1,0)=".5^0^3061008.01573^^^^^^^3061008.01573"
^XMB(3.9,9,1,2,0)="1^0^3061008.024251^^^^^^^3061008.024251"
^XMB(3.9,9,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,9,1,"C",.5,1)=""
^XMB(3.9,9,1,"C",1,2)=""
^XMB(3.9,9,2,0)="^^3097^3097^3061008"
^XMB(3.9,9,2,1,0)="$TXT Released DG*5.3*705 SEQ #624"
^XMB(3.9,9,2,2,0)="Extracted from mail message"
^XMB(3.9,9,2,3,0)="$END TXT"
^XMB(3.9,9,2,4,0)="$KID DG*5.3*705"
^XMB(3.9,9,2,5,0)="**INSTALL NAME**"
^XMB(3.9,9,2,6,0)="DG*5.3*705"
^XMB(3.9,9,2,7,0)="""BLD"",6298,0)"
^XMB(3.9,9,2,8,0)="DG*5.3*705^REGISTRATION^0^3060620^y"
^XMB(3.9,9,2,9,0)="""BLD"",6298,4,0)"
^XMB(3.9,9,2,10,0)="^9.64PA^2^1"
^XMB(3.9,9,2,11,0)="""BLD"",6298,4,2,0)"
^XMB(3.9,9,2,12,0)="2"
^XMB(3.9,9,2,13,0)="""BLD"",6298,4,2,2,0)"
^XMB(3.9,9,2,14,0)="^9.641^2.101^3"
^XMB(3.9,9,2,15,0)="""BLD"",6298,4,2,2,2,0)"
^XMB(3.9,9,2,16,0)="PATIENT  (File-top level)"
^XMB(3.9,9,2,17,0)="""BLD"",6298,4,2,2,2,1,0)"
^XMB(3.9,9,2,18,0)="^9.6411^.2924^27"
^XMB(3.9,9,2,19,0)="""BLD"",6298,4,2,2,2,1,.01,0)"
^XMB(3.9,9,2,20,0)="NAME"
^XMB(3.9,9,2,21,0)="""BLD"",6298,4,2,2,2,1,.02,0)"
^XMB(3.9,9,2,22,0)="SEX"
^XMB(3.9,9,2,23,0)="""BLD"",6298,4,2,2,2,1,.03,0)"
^XMB(3.9,9,2,24,0)="DATE OF BIRTH"
^XMB(3.9,9,2,25,0)="""BLD"",6298,4,2,2,2,1,.09,0)"
^XMB(3.9,9,2,26,0)="SOCIAL SECURITY NUMBER"
^XMB(3.9,9,2,27,0)="""BLD"",6298,4,2,2,2,1,.0901,0)"
^XMB(3.9,9,2,28,0)="TERMINAL DIGIT OF SSN"
^XMB(3.9,9,2,29,0)="""BLD"",6298,4,2,2,2,1,.107,0)"
^XMB(3.9,9,2,30,0)="LODGER WARD LOCATION"
^XMB(3.9,9,2,31,0)="""BLD"",6298,4,2,2,2,1,.108,0)"
^XMB(3.9,9,2,32,0)="CURRENT ROOM"
^XMB(3.9,9,2,33,0)="""BLD"",6298,4,2,2,2,1,.14111,0)"
^XMB(3.9,9,2,34,0)="CONFIDENTIAL ADDRESS COUNTY"
^XMB(3.9,9,2,35,0)="""BLD"",6298,4,2,2,2,1,.211,0)"
^XMB(3.9,9,2,36,0)="K-NAME OF PRIMARY NOK"
^XMB(3.9,9,2,37,0)="""BLD"",6298,4,2,2,2,1,.2207,0)"
^XMB(3.9,9,2,38,0)="K-ZIP+4"
^XMB(3.9,9,2,39,0)="""BLD"",6298,4,2,2,2,1,.2401,0)"
^XMB(3.9,9,2,40,0)="FATHER'S NAME"
^XMB(3.9,9,2,41,0)="""BLD"",6298,4,2,2,2,1,.2402,0)"
^XMB(3.9,9,2,42,0)="MOTHER'S NAME"
^XMB(3.9,9,2,43,0)="""BLD"",6298,4,2,2,2,1,.2403,0)"
^XMB(3.9,9,2,44,0)="MOTHER'S MAIDEN NAME"
^XMB(3.9,9,2,45,0)="""BLD"",6298,4,2,2,2,1,.2924,0)"
^XMB(3.9,9,2,46,0)="STREET ADDRESS 1 (CIVIL)"
^XMB(3.9,9,2,47,0)="""BLD"",6298,4,2,2,2,1,.307,0)"
^XMB(3.9,9,2,48,0)="INELIGIBLE REASON"
^XMB(3.9,9,2,49,0)="""BLD"",6298,4,2,2,2,1,.3111,0)"
^XMB(3.9,9,2,50,0)="EMPLOYER NAME"
^XMB(3.9,9,2,51,0)="""BLD"",6298,4,2,2,2,1,.3192,0)"
^XMB(3.9,9,2,52,0)="COVERED BY HEALTH INSURANCE?"
^XMB(3.9,9,2,53,0)="""BLD"",6298,4,2,2,2,1,.322014,0)"
^XMB(3.9,9,2,54,0)="ENVIR. CONT. REGISTRATION DATE"
^XMB(3.9,9,2,55,0)="""BLD"",6298,4,2,2,2,1,.322015,0)"
^XMB(3.9,9,2,56,0)="ENVIR. CONT. EXAM DATE"
^XMB(3.9,9,2,57,0)="""BLD"",6298,4,2,2,2,1,.331,0)"
^XMB(3.9,9,2,58,0)="E-NAME"
^XMB(3.9,9,2,59,0)="""BLD"",6298,4,2,2,2,1,.341,0)"
^XMB(3.9,9,2,60,0)="D-NAME OF DESIGNEE"
^XMB(3.9,9,2,61,0)="""BLD"",6298,4,2,2,2,1,.361,0)"
^XMB(3.9,9,2,62,0)="PRIMARY ELIGIBILITY CODE"
^XMB(3.9,9,2,63,0)="""BLD"",6298,4,2,2,2,1,.3611,0)"
^XMB(3.9,9,2,64,0)="ELIGIBILITY STATUS"
^XMB(3.9,9,2,65,0)="""BLD"",6298,4,2,2,2,1,.3625,0)"
^XMB(3.9,9,2,66,0)="*AMOUNT OF MILITARY RETIREMENT"
^XMB(3.9,9,2,67,0)="""BLD"",6298,4,2,2,2,1,.3628,0)"
^XMB(3.9,9,2,68,0)="AMOUNT OF OTHER RETIREMENT"
^XMB(3.9,9,2,69,0)="""BLD"",6298,4,2,2,2,1,401.4,0)"
^XMB(3.9,9,2,70,0)="DATE ENTERED ON SI LIST"
^XMB(3.9,9,2,71,0)="""BLD"",6298,4,2,2,2,1,991.07,0)"
^XMB(3.9,9,2,72,0)="SCORE CALCULATION DATE"
^XMB(3.9,9,2,73,0)="""BLD"",6298,4,2,2,2.01,0)"
^XMB(3.9,9,2,74,0)="ALIAS  (sub-file)"
^XMB(3.9,9,2,75,0)="""BLD"",6298,4,2,2,2.01,1,0)"
^XMB(3.9,9,2,76,0)="^9.6411^.01^1"
^XMB(3.9,9,2,77,0)="""BLD"",6298,4,2,2,2.01,1,.01,0)"
^XMB(3.9,9,2,78,0)="ALIAS"
^XMB(3.9,9,2,79,0)="""BLD"",6298,4,2,2,2.101,0)"
^XMB(3.9,9,2,80,0)="DISPOSITION LOG-IN DATE/TIME  (sub-file)"
^XMB(3.9,9,2,81,0)="""BLD"",6298,4,2,2,2.101,1,0)"
^XMB(3.9,9,2,82,0)="^9.6411^30^3"
^XMB(3.9,9,2,83,0)="""BLD"",6298,4,2,2,2.101,1,.01,0)"
^XMB(3.9,9,2,84,0)="LOG IN DATE/TIME"
^XMB(3.9,9,2,85,0)="""BLD"",6298,4,2,2,2.101,1,5,0)"
^XMB(3.9,9,2,86,0)="LOG OUT DATE TIME"
^XMB(3.9,9,2,87,0)="""BLD"",6298,4,2,2,2.101,1,30,0)"
^XMB(3.9,9,2,88,0)="ATTORNEY'S NAME"
^XMB(3.9,9,2,89,0)="""BLD"",6298,4,2,222)"
^XMB(3.9,9,2,90,0)="y^n^p^^^^n^^n"
^XMB(3.9,9,2,91,0)="""BLD"",6298,4,2,223)"
^XMB(3.9,9,2,92,0)="I $$CKUPD^DG53705E()"
^XMB(3.9,9,2,93,0)="""BLD"",6298,4,2,224)"
^XMB(3.9,9,2,94,0)=""
^XMB(3.9,9,2,95,0)="""BLD"",6298,4,""APDD"",2,2)"
^XMB(3.9,9,2,96,0)=""
^XMB(3.9,9,2,97,0)="""BLD"",6298,4,""APDD"",2,2,.01)"
^XMB(3.9,9,2,98,0)=""
^XMB(3.9,9,2,99,0)="""BLD"",6298,4,""APDD"",2,2,.02)"
^XMB(3.9,9,2,100,0)=""
^XMB(3.9,9,2,101,0)="""BLD"",6298,4,""APDD"",2,2,.03)"
^XMB(3.9,9,2,102,0)=""
^XMB(3.9,9,2,103,0)="""BLD"",6298,4,""APDD"",2,2,.09)"
^XMB(3.9,9,2,104,0)=""
^XMB(3.9,9,2,105,0)="""BLD"",6298,4,""APDD"",2,2,.0901)"
^XMB(3.9,9,2,106,0)=""
^XMB(3.9,9,2,107,0)="""BLD"",6298,4,""APDD"",2,2,.107)"
^XMB(3.9,9,2,108,0)=""
^XMB(3.9,9,2,109,0)="""BLD"",6298,4,""APDD"",2,2,.108)"
^XMB(3.9,9,2,110,0)=""
^XMB(3.9,9,2,111,0)="""BLD"",6298,4,""APDD"",2,2,.14111)"
^XMB(3.9,9,2,112,0)=""
^XMB(3.9,9,2,113,0)="""BLD"",6298,4,""APDD"",2,2,.211)"
^XMB(3.9,9,2,114,0)=""
^XMB(3.9,9,2,115,0)="""BLD"",6298,4,""APDD"",2,2,.2207)"
^XMB(3.9,9,2,116,0)=""
^XMB(3.9,9,2,117,0)="""BLD"",6298,4,""APDD"",2,2,.2401)"
^XMB(3.9,9,2,118,0)=""
^XMB(3.9,9,2,119,0)="""BLD"",6298,4,""APDD"",2,2,.2402)"
^XMB(3.9,9,2,120,0)=""
^XMB(3.9,9,2,121,0)="""BLD"",6298,4,""APDD"",2,2,.2403)"
^XMB(3.9,9,2,122,0)=""
^XMB(3.9,9,2,123,0)="""BLD"",6298,4,""APDD"",2,2,.2924)"
^XMB(3.9,9,2,124,0)=""
^XMB(3.9,9,2,125,0)="""BLD"",6298,4,""APDD"",2,2,.307)"
^XMB(3.9,9,2,126,0)=""
^XMB(3.9,9,2,127,0)="""BLD"",6298,4,""APDD"",2,2,.3111)"
^XMB(3.9,9,2,128,0)=""
^XMB(3.9,9,2,129,0)="""BLD"",6298,4,""APDD"",2,2,.3192)"
^XMB(3.9,9,2,130,0)=""
^XMB(3.9,9,2,131,0)="""BLD"",6298,4,""APDD"",2,2,.322014)"
^XMB(3.9,9,2,132,0)=""
^XMB(3.9,9,2,133,0)="""BLD"",6298,4,""APDD"",2,2,.322015)"
^XMB(3.9,9,2,134,0)=""
^XMB(3.9,9,2,135,0)="""BLD"",6298,4,""APDD"",2,2,.331)"
^XMB(3.9,9,2,136,0)=""
^XMB(3.9,9,2,137,0)="""BLD"",6298,4,""APDD"",2,2,.341)"
^XMB(3.9,9,2,138,0)=""
^XMB(3.9,9,2,139,0)="""BLD"",6298,4,""APDD"",2,2,.361)"
^XMB(3.9,9,2,140,0)=""
^XMB(3.9,9,2,141,0)="""BLD"",6298,4,""APDD"",2,2,.3611)"
^XMB(3.9,9,2,142,0)=""
^XMB(3.9,9,2,143,0)="""BLD"",6298,4,""APDD"",2,2,.3625)"
^XMB(3.9,9,2,144,0)=""
^XMB(3.9,9,2,145,0)="""BLD"",6298,4,""APDD"",2,2,.3628)"
^XMB(3.9,9,2,146,0)=""
^XMB(3.9,9,2,147,0)="""BLD"",6298,4,""APDD"",2,2,401.4)"
^XMB(3.9,9,2,148,0)=""
^XMB(3.9,9,2,149,0)="""BLD"",6298,4,""APDD"",2,2,991.07)"
^XMB(3.9,9,2,150,0)=""
^XMB(3.9,9,2,151,0)="""BLD"",6298,4,""APDD"",2,2.01)"
^XMB(3.9,9,2,152,0)=""
^XMB(3.9,9,2,153,0)="""BLD"",6298,4,""APDD"",2,2.01,.01)"
^XMB(3.9,9,2,154,0)=""
^XMB(3.9,9,2,155,0)="""BLD"",6298,4,""APDD"",2,2.101)"
^XMB(3.9,9,2,156,0)=""
^XMB(3.9,9,2,157,0)="""BLD"",6298,4,""APDD"",2,2.101,.01)"
^XMB(3.9,9,2,158,0)=""
^XMB(3.9,9,2,159,0)="""BLD"",6298,4,""APDD"",2,2.101,5)"
^XMB(3.9,9,2,160,0)=""
^XMB(3.9,9,2,161,0)="""BLD"",6298,4,""APDD"",2,2.101,30)"
^XMB(3.9,9,2,162,0)=""
^XMB(3.9,9,2,163,0)="""BLD"",6298,4,""B"",2,2)"
^XMB(3.9,9,2,164,0)=""
^XMB(3.9,9,2,165,0)="""BLD"",6298,""INI"")"
^XMB(3.9,9,2,166,0)="EN^DG53705I"
^XMB(3.9,9,2,167,0)="""BLD"",6298,""INIT"")"
^XMB(3.9,9,2,168,0)="CLEAN^DG53705I"
^XMB(3.9,9,2,169,0)="""BLD"",6298,""KRN"",0)"
^XMB(3.9,9,2,170,0)="^9.67PA^8989.52^19"
^XMB(3.9,9,2,171,0)="""BLD"",6298,""KRN"",.4,0)"
^XMB(3.9,9,2,172,0)=".4"
^XMB(3.9,9,2,173,0)="""BLD"",6298,""KRN"",.401,0)"
^XMB(3.9,9,2,174,0)=".401"
^XMB(3.9,9,2,175,0)="""BLD"",6298,""KRN"",.402,0)"
^XMB(3.9,9,2,176,0)=".402"
^XMB(3.9,9,2,177,0)="""BLD"",6298,""KRN"",.403,0)"
^XMB(3.9,9,2,178,0)=".403"
^XMB(3.9,9,2,179,0)="""BLD"",6298,""KRN"",.5,0)"
^XMB(3.9,9,2,180,0)=".5"
^XMB(3.9,9,2,181,0)="""BLD"",6298,""KRN"",.84,0)"
^XMB(3.9,9,2,182,0)=".84"
^XMB(3.9,9,2,183,0)="""BLD"",6298,""KRN"",3.6,0)"
^XMB(3.9,9,2,184,0)="3.6"
^XMB(3.9,9,2,185,0)="""BLD"",6298,""KRN"",3.8,0)"
^XMB(3.9,9,2,186,0)="3.8"
^XMB(3.9,9,2,187,0)="""BLD"",6298,""KRN"",9.2,0)"
^XMB(3.9,9,2,188,0)="9.2"
^XMB(3.9,9,2,189,0)="""BLD"",6298,""KRN"",9.8,0)"
^XMB(3.9,9,2,190,0)="9.8"
^XMB(3.9,9,2,191,0)="""BLD"",6298,""KRN"",19,0)"
^XMB(3.9,9,2,192,0)="19"
^XMB(3.9,9,2,193,0)="""BLD"",6298,""KRN"",19.1,0)"
^XMB(3.9,9,2,194,0)="19.1"
^XMB(3.9,9,2,195,0)="""BLD"",6298,""KRN"",101,0)"
^XMB(3.9,9,2,196,0)="101"
^XMB(3.9,9,2,197,0)="""BLD"",6298,""KRN"",409.61,0)"
^XMB(3.9,9,2,198,0)="409.61"
^XMB(3.9,9,2,199,0)="""BLD"",6298,""KRN"",771,0)"
^XMB(3.9,9,2,200,0)="771"
^XMB(3.9,9,2,201,0)="""BLD"",6298,""KRN"",870,0)"
^XMB(3.9,9,2,202,0)="870"
^XMB(3.9,9,2,203,0)="""BLD"",6298,""KRN"",8989.51,0)"
^XMB(3.9,9,2,204,0)="8989.51"
^XMB(3.9,9,2,205,0)="""BLD"",6298,""KRN"",8989.52,0)"
^XMB(3.9,9,2,206,0)="8989.52"
^XMB(3.9,9,2,207,0)="""BLD"",6298,""KRN"",8994,0)"
^XMB(3.9,9,2,208,0)="8994"
^XMB(3.9,9,2,209,0)="""BLD"",6298,""KRN"",""B"",.4,.4)"
^XMB(3.9,9,2,210,0)=""
^XMB(3.9,9,2,211,0)="""BLD"",6298,""KRN"",""B"",.401,.401)"
^XMB(3.9,9,2,212,0)=""
^XMB(3.9,9,2,213,0)="""BLD"",6298,""KRN"",""B"",.402,.402)"
^XMB(3.9,9,2,214,0)=""
^XMB(3.9,9,2,215,0)="""BLD"",6298,""KRN"",""B"",.403,.403)"
^XMB(3.9,9,2,216,0)=""
^XMB(3.9,9,2,217,0)="""BLD"",6298,""KRN"",""B"",.5,.5)"
^XMB(3.9,9,2,218,0)=""
^XMB(3.9,9,2,219,0)="""BLD"",6298,""KRN"",""B"",.84,.84)"
^XMB(3.9,9,2,220,0)=""
^XMB(3.9,9,2,221,0)="""BLD"",6298,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,9,2,222,0)=""
^XMB(3.9,9,2,223,0)="""BLD"",6298,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,9,2,224,0)=""
^XMB(3.9,9,2,225,0)="""BLD"",6298,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,9,2,226,0)=""
^XMB(3.9,9,2,227,0)="""BLD"",6298,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,9,2,228,0)=""
^XMB(3.9,9,2,229,0)="""BLD"",6298,""KRN"",""B"",19,19)"
^XMB(3.9,9,2,230,0)=""
^XMB(3.9,9,2,231,0)="""BLD"",6298,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,9,2,232,0)=""
^XMB(3.9,9,2,233,0)="""BLD"",6298,""KRN"",""B"",101,101)"
^XMB(3.9,9,2,234,0)=""
^XMB(3.9,9,2,235,0)="""BLD"",6298,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,9,2,236,0)=""
^XMB(3.9,9,2,237,0)="""BLD"",6298,""KRN"",""B"",771,771)"
^XMB(3.9,9,2,238,0)=""
^XMB(3.9,9,2,239,0)="""BLD"",6298,""KRN"",""B"",870,870)"
^XMB(3.9,9,2,240,0)=""
^XMB(3.9,9,2,241,0)="""BLD"",6298,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,9,2,242,0)=""
^XMB(3.9,9,2,243,0)="""BLD"",6298,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,9,2,244,0)=""
^XMB(3.9,9,2,245,0)="""BLD"",6298,""KRN"",""B"",8994,8994)"
^XMB(3.9,9,2,246,0)=""
^XMB(3.9,9,2,247,0)="""BLD"",6298,""PRE"")"
^XMB(3.9,9,2,248,0)="DG53705E"
^XMB(3.9,9,2,249,0)="""BLD"",6298,""QUES"",0)"
^XMB(3.9,9,2,250,0)="^9.62^^"
^XMB(3.9,9,2,251,0)="""BLD"",6298,""REQB"",0)"
^XMB(3.9,9,2,252,0)="^9.611^^0"
^XMB(3.9,9,2,253,0)="""FIA"",2)"
^XMB(3.9,9,2,254,0)="PATIENT"
^XMB(3.9,9,2,255,0)="""FIA"",2,0)"
^XMB(3.9,9,2,256,0)="^DPT("
^XMB(3.9,9,2,257,0)="""FIA"",2,0,0)"
^XMB(3.9,9,2,258,0)="2I"
^XMB(3.9,9,2,259,0)="""FIA"",2,0,1)"
^XMB(3.9,9,2,260,0)="y^n^p^^^^n^^n"
^XMB(3.9,9,2,261,0)="""FIA"",2,0,10)"
^XMB(3.9,9,2,262,0)="I $$CKUPD^DG53705E()"
^XMB(3.9,9,2,263,0)="""FIA"",2,0,11)"
^XMB(3.9,9,2,264,0)=""
^XMB(3.9,9,2,265,0)="""FIA"",2,0,""RLRO"")"
^XMB(3.9,9,2,266,0)=""
^XMB(3.9,9,2,267,0)="""FIA"",2,0,""VR"")"
^XMB(3.9,9,2,268,0)="5.3^DG"
^XMB(3.9,9,2,269,0)="""FIA"",2,2)"
^XMB(3.9,9,2,270,0)="1"
^XMB(3.9,9,2,271,0)="""FIA"",2,2,.01)"
^XMB(3.9,9,2,272,0)=""
^XMB(3.9,9,2,273,0)="""FIA"",2,2,.02)"
^XMB(3.9,9,2,274,0)=""
^XMB(3.9,9,2,275,0)="""FIA"",2,2,.03)"
^XMB(3.9,9,2,276,0)=""
^XMB(3.9,9,2,277,0)="""FIA"",2,2,.09)"
^XMB(3.9,9,2,278,0)=""
^XMB(3.9,9,2,279,0)="""FIA"",2,2,.0901)"
^XMB(3.9,9,2,280,0)=""
^XMB(3.9,9,2,281,0)="""FIA"",2,2,.107)"
^XMB(3.9,9,2,282,0)=""
^XMB(3.9,9,2,283,0)="""FIA"",2,2,.108)"
^XMB(3.9,9,2,284,0)=""
^XMB(3.9,9,2,285,0)="""FIA"",2,2,.14111)"
^XMB(3.9,9,2,286,0)=""
^XMB(3.9,9,2,287,0)="""FIA"",2,2,.211)"
^XMB(3.9,9,2,288,0)=""
^XMB(3.9,9,2,289,0)="""FIA"",2,2,.2207)"
^XMB(3.9,9,2,290,0)=""
^XMB(3.9,9,2,291,0)="""FIA"",2,2,.2401)"
^XMB(3.9,9,2,292,0)=""
^XMB(3.9,9,2,293,0)="""FIA"",2,2,.2402)"
^XMB(3.9,9,2,294,0)=""
^XMB(3.9,9,2,295,0)="""FIA"",2,2,.2403)"
^XMB(3.9,9,2,296,0)=""
^XMB(3.9,9,2,297,0)="""FIA"",2,2,.2924)"
^XMB(3.9,9,2,298,0)=""
^XMB(3.9,9,2,299,0)="""FIA"",2,2,.307)"
^XMB(3.9,9,2,300,0)=""
^XMB(3.9,9,2,301,0)="""FIA"",2,2,.3111)"
^XMB(3.9,9,2,302,0)=""
^XMB(3.9,9,2,303,0)="""FIA"",2,2,.3192)"
^XMB(3.9,9,2,304,0)=""
^XMB(3.9,9,2,305,0)="""FIA"",2,2,.322014)"
^XMB(3.9,9,2,306,0)=""
^XMB(3.9,9,2,307,0)="""FIA"",2,2,.322015)"
^XMB(3.9,9,2,308,0)=""
^XMB(3.9,9,2,309,0)="""FIA"",2,2,.331)"
^XMB(3.9,9,2,310,0)=""
^XMB(3.9,9,2,311,0)="""FIA"",2,2,.341)"
^XMB(3.9,9,2,312,0)=""
^XMB(3.9,9,2,313,0)="""FIA"",2,2,.361)"
^XMB(3.9,9,2,314,0)=""
^XMB(3.9,9,2,315,0)="""FIA"",2,2,.3611)"
^XMB(3.9,9,2,316,0)=""
^XMB(3.9,9,2,317,0)="""FIA"",2,2,.3625)"
^XMB(3.9,9,2,318,0)=""
^XMB(3.9,9,2,319,0)="""FIA"",2,2,.3628)"
^XMB(3.9,9,2,320,0)=""
^XMB(3.9,9,2,321,0)="""FIA"",2,2,1)"
^XMB(3.9,9,2,322,0)=""
^XMB(3.9,9,2,323,0)="""FIA"",2,2,401.4)"
^XMB(3.9,9,2,324,0)=""
^XMB(3.9,9,2,325,0)="""FIA"",2,2,991.07)"
^XMB(3.9,9,2,326,0)=""
^XMB(3.9,9,2,327,0)="""FIA"",2,2,1000)"
^XMB(3.9,9,2,328,0)=""
^XMB(3.9,9,2,329,0)="""FIA"",2,2.01)"
^XMB(3.9,9,2,330,0)="1"
^XMB(3.9,9,2,331,0)="""FIA"",2,2.01,.01)"
^XMB(3.9,9,2,332,0)=""
^XMB(3.9,9,2,333,0)="""FIA"",2,2.101)"
^XMB(3.9,9,2,334,0)="1"
^XMB(3.9,9,2,335,0)="""FIA"",2,2.101,.01)"
^XMB(3.9,9,2,336,0)=""
^XMB(3.9,9,2,337,0)="""FIA"",2,2.101,5)"
^XMB(3.9,9,2,338,0)=""
^XMB(3.9,9,2,339,0)="""FIA"",2,2.101,30)"
^XMB(3.9,9,2,340,0)=""
^XMB(3.9,9,2,341,0)="""INI"")"
^XMB(3.9,9,2,342,0)="EN^DG53705I"
^XMB(3.9,9,2,343,0)="""INIT"")"
^XMB(3.9,9,2,344,0)="CLEAN^DG53705I"
^XMB(3.9,9,2,345,0)="""IX"",2,2,""ADGFMD01"",0)"
^XMB(3.9,9,2,346,0)="2^ADGFMD01^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A"
^XMB(3.9,9,2,347,0)="""IX"",2,2,""ADGFMD01"",.1,0)"
^XMB(3.9,9,2,348,0)="^^5^5^3021116"
^XMB(3.9,9,2,349,0)="""IX"",2,2,""ADGFMD01"",.1,1,0)"
^XMB(3.9,9,2,350,0)="This cross reference activates the DG FIELD MONITOR event point."
^XMB(3.9,9,2,351,0)="""IX"",2,2,""ADGFMD01"",.1,2,0)"
^XMB(3.9,9,2,352,0)="Applications that wish to monitor edit activity related to this field may"
^XMB(3.9,9,2,353,0)="""IX"",2,2,""ADGFMD01"",.1,3,0)"
^XMB(3.9,9,2,354,0)="subscribe to that event point and take action as indicated by the changes"
^XMB(3.9,9,2,355,0)="""IX"",2,2,""ADGFMD01"",.1,4,0)"
^XMB(3.9,9,2,356,0)="that occur.  Refer to the DG FIELD MONITOR protocol for a description of"
^XMB(3.9,9,2,357,0)="""IX"",2,2,""ADGFMD01"",.1,5,0)"
^XMB(3.9,9,2,358,0)="the information available at the time of the event."
^XMB(3.9,9,2,359,0)="""IX"",2,2,""ADGFMD01"",1)"
^XMB(3.9,9,2,360,0)="D FC^DGFCPROT(.DA,2,.01,""SET"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^XMB(3.9,9,2,361,0)="""IX"",2,2,""ADGFMD01"",2)"
^XMB(3.9,9,2,362,0)="D FC^DGFCPROT(.DA,2,.01,""KILL"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^XMB(3.9,9,2,363,0)="""IX"",2,2,""ADGFMD01"",11.1,0)"
^XMB(3.9,9,2,364,0)="^.114IA^1^1"
^XMB(3.9,9,2,365,0)="""IX"",2,2,""ADGFMD01"",11.1,1,0)"
^XMB(3.9,9,2,366,0)="1^F^2^.01^^^F"
^XMB(3.9,9,2,367,0)="""IX"",2,2,""ADGFMD03"",0)"
^XMB(3.9,9,2,368,0)="2^ADGFMD03^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A"
^XMB(3.9,9,2,369,0)="""IX"",2,2,""ADGFMD03"",.1,0)"
^XMB(3.9,9,2,370,0)="^^5^5^3021116"
^XMB(3.9,9,2,371,0)="""IX"",2,2,""ADGFMD03"",.1,1,0)"
^XMB(3.9,9,2,372,0)="This cross reference activates the DG FIELD MONITOR event point."
^XMB(3.9,9,2,373,0)="""IX"",2,2,""ADGFMD03"",.1,2,0)"
^XMB(3.9,9,2,374,0)="Applications that wish to monitor edit activity related to this field may"
^XMB(3.9,9,2,375,0)="""IX"",2,2,""ADGFMD03"",.1,3,0)"
^XMB(3.9,9,2,376,0)="subscribe to that event point and take action as indicated by the changes"
^XMB(3.9,9,2,377,0)="""IX"",2,2,""ADGFMD03"",.1,4,0)"
^XMB(3.9,9,2,378,0)="that occur.  Refer to the DG FIELD MONITOR protocol for a description of"
^XMB(3.9,9,2,379,0)="""IX"",2,2,""ADGFMD03"",.1,5,0)"
^XMB(3.9,9,2,380,0)="the information available at the time of the event."
^XMB(3.9,9,2,381,0)="""IX"",2,2,""ADGFMD03"",1)"
^XMB(3.9,9,2,382,0)="D FC^DGFCPROT(.DA,2,.03,""SET"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^XMB(3.9,9,2,383,0)="""IX"",2,2,""ADGFMD03"",2)"
^XMB(3.9,9,2,384,0)="D FC^DGFCPROT(.DA,2,.03,""KILL"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^XMB(3.9,9,2,385,0)="""IX"",2,2,""ADGFMD03"",11.1,0)"
^XMB(3.9,9,2,386,0)="^.114IA^1^1"
^XMB(3.9,9,2,387,0)="""IX"",2,2,""ADGFMD03"",11.1,1,0)"
^XMB(3.9,9,2,388,0)="1^F^2^.03^^^F"
^XMB(3.9,9,2,389,0)="""IX"",2,2,""ADGFMD09"",0)"
^XMB(3.9,9,2,390,0)="2^ADGFMD09^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A"
^XMB(3.9,9,2,391,0)="""IX"",2,2,""ADGFMD09"",.1,0)"
^XMB(3.9,9,2,392,0)="^^5^5^3021116"
^XMB(3.9,9,2,393,0)="""IX"",2,2,""ADGFMD09"",.1,1,0)"
^XMB(3.9,9,2,394,0)="This cross reference activates the DG FIELD MONITOR event point."
^XMB(3.9,9,2,395,0)="""IX"",2,2,""ADGFMD09"",.1,2,0)"
^XMB(3.9,9,2,396,0)="Applications that wish to monitor edit activity related to this field may"
^XMB(3.9,9,2,397,0)="""IX"",2,2,""ADGFMD09"",.1,3,0)"
^XMB(3.9,9,2,398,0)="subscribe to that event point and take action as indicated by the changes"
^XMB(3.9,9,2,399,0)="""IX"",2,2,""ADGFMD09"",.1,4,0)"
^XMB(3.9,9,2,400,0)="that occur.  Refer to the DG FIELD MONITOR protocol for a description of"
^XMB(3.9,9,2,401,0)="""IX"",2,2,""ADGFMD09"",.1,5,0)"
^XMB(3.9,9,2,402,0)="the information available at the time of the event."
^XMB(3.9,9,2,403,0)="""IX"",2,2,""ADGFMD09"",1)"
^XMB(3.9,9,2,404,0)="D FC^DGFCPROT(.DA,2,.09,""SET"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^XMB(3.9,9,2,405,0)="""IX"",2,2,""ADGFMD09"",2)"
^XMB(3.9,9,2,406,0)="D FC^DGFCPROT(.DA,2,.09,""KILL"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^XMB(3.9,9,2,407,0)="""IX"",2,2,""ADGFMD09"",11.1,0)"
^XMB(3.9,9,2,408,0)="^.114IA^1^1"
^XMB(3.9,9,2,409,0)="""IX"",2,2,""ADGFMD09"",11.1,1,0)"
^XMB(3.9,9,2,410,0)="1^F^2^.09^^^F"
^XMB(3.9,9,2,411,0)="""IX"",2,2,""ADTTM3"",0)"
^XMB(3.9,9,2,412,0)="2^ADTTM3^PRIMARY NOK Cross-Reference^MU^^R^^I^2^^^^^A"
^XMB(3.9,9,2,413,0)="""IX"",2,2,""ADTTM3"",.1,0)"
^XMB(3.9,9,2,414,0)="^^2^2^3050813"
^XMB(3.9,9,2,415,0)="""IX"",2,2,""ADTTM3"",.1,1,0)"
^XMB(3.9,9,2,416,0)="This cross-reference will update the PRIMARY NOK CHANGE DATE/TIME field"
^XMB(3.9,9,2,417,0)="""IX"",2,2,""ADTTM3"",.1,2,0)"
^XMB(3.9,9,2,418,0)="when the Primary Next of Kin data changes for a patient."
^XMB(3.9,9,2,419,0)="""IX"",2,2,""ADTTM3"",1)"
^XMB(3.9,9,2,420,0)="D PNOK^DGDDDTTM"
^XMB(3.9,9,2,421,0)="""IX"",2,2,""ADTTM3"",2)"
^XMB(3.9,9,2,422,0)="D PNOK^DGDDDTTM"
^XMB(3.9,9,2,423,0)="""IX"",2,2,""ADTTM3"",11.1,0)"
^XMB(3.9,9,2,424,0)="^.114IA^10^10"
^XMB(3.9,9,2,425,0)="""IX"",2,2,""ADTTM3"",11.1,1,0)"
^XMB(3.9,9,2,426,0)="1^F^2^.211^^^F"
^XMB(3.9,9,2,427,0)="""IX"",2,2,""ADTTM3"",11.1,2,0)"
^XMB(3.9,9,2,428,0)="2^F^2^.212^^^F"
^XMB(3.9,9,2,429,0)="""IX"",2,2,""ADTTM3"",11.1,3,0)"
^XMB(3.9,9,2,430,0)="3^F^2^.213^^^F"
^XMB(3.9,9,2,431,0)="""IX"",2,2,""ADTTM3"",11.1,4,0)"
^XMB(3.9,9,2,432,0)="4^F^2^.214^^^F"
^XMB(3.9,9,2,433,0)="""IX"",2,2,""ADTTM3"",11.1,5,0)"
^XMB(3.9,9,2,434,0)="5^F^2^.215^^^F"
^XMB(3.9,9,2,435,0)="""IX"",2,2,""ADTTM3"",11.1,6,0)"
^XMB(3.9,9,2,436,0)="6^F^2^.216^^^F"
^XMB(3.9,9,2,437,0)="""IX"",2,2,""ADTTM3"",11.1,7,0)"
^XMB(3.9,9,2,438,0)="7^F^2^.217^^^F"
^XMB(3.9,9,2,439,0)="""IX"",2,2,""ADTTM3"",11.1,8,0)"
^XMB(3.9,9,2,440,0)="8^F^2^.218^^^F"
^XMB(3.9,9,2,441,0)="""IX"",2,2,""ADTTM3"",11.1,9,0)"
^XMB(3.9,9,2,442,0)="9^F^2^.2125^^^F"
^XMB(3.9,9,2,443,0)="""IX"",2,2,""ADTTM3"",11.1,10,0)"
^XMB(3.9,9,2,444,0)="10^F^2^.2207^^^F"
^XMB(3.9,9,2,445,0)="""IX"",2,2,""ADTTM5"",0)"
^XMB(3.9,9,2,446,0)="2^ADTTM5^E-CONTACT Cross-Reference^MU^^R^^I^2^^^^^A"
^XMB(3.9,9,2,447,0)="""IX"",2,2,""ADTTM5"",.1,0)"
^XMB(3.9,9,2,448,0)="^^2^2^3050813"
^XMB(3.9,9,2,449,0)="""IX"",2,2,""ADTTM5"",.1,1,0)"
^XMB(3.9,9,2,450,0)="This cross-reference will update the E-CONTACT CHANGE DATE/TIME field when"
^XMB(3.9,9,2,451,0)="""IX"",2,2,""ADTTM5"",.1,2,0)"
^XMB(3.9,9,2,452,0)="the Emergency Contact data changes for a patient."
^XMB(3.9,9,2,453,0)="""IX"",2,2,""ADTTM5"",1)"
^XMB(3.9,9,2,454,0)="D ECON^DGDDDTTM"
^XMB(3.9,9,2,455,0)="""IX"",2,2,""ADTTM5"",2)"
^XMB(3.9,9,2,456,0)="D ECON^DGDDDTTM"
^XMB(3.9,9,2,457,0)="""IX"",2,2,""ADTTM5"",11.1,0)"
^XMB(3.9,9,2,458,0)="^.114IA^10^10"
^XMB(3.9,9,2,459,0)="""IX"",2,2,""ADTTM5"",11.1,1,0)"
^XMB(3.9,9,2,460,0)="1^F^2^.331^^^F"
^XMB(3.9,9,2,461,0)="""IX"",2,2,""ADTTM5"",11.1,2,0)"
^XMB(3.9,9,2,462,0)="2^F^2^.332^^^F"
^XMB(3.9,9,2,463,0)="""IX"",2,2,""ADTTM5"",11.1,3,0)"
^XMB(3.9,9,2,464,0)="3^F^2^.333^^^F"
^XMB(3.9,9,2,465,0)="""IX"",2,2,""ADTTM5"",11.1,4,0)"
^XMB(3.9,9,2,466,0)="4^F^2^.334^^^F"
^XMB(3.9,9,2,467,0)="""IX"",2,2,""ADTTM5"",11.1,5,0)"
^XMB(3.9,9,2,468,0)="5^F^2^.335^^^F"
^XMB(3.9,9,2,469,0)="""IX"",2,2,""ADTTM5"",11.1,6,0)"
^XMB(3.9,9,2,470,0)="6^F^2^.336^^^F"
^XMB(3.9,9,2,471,0)="""IX"",2,2,""ADTTM5"",11.1,7,0)"
^XMB(3.9,9,2,472,0)="7^F^2^.337^^^F"
^XMB(3.9,9,2,473,0)="""IX"",2,2,""ADTTM5"",11.1,8,0)"
^XMB(3.9,9,2,474,0)="8^F^2^.338^^^F"
^XMB(3.9,9,2,475,0)="""IX"",2,2,""ADTTM5"",11.1,9,0)"
^XMB(3.9,9,2,476,0)="9^F^2^.3305^^^F"
^XMB(3.9,9,2,477,0)="""IX"",2,2,""ADTTM5"",11.1,10,0)"
^XMB(3.9,9,2,478,0)="10^F^2^.2201^^^F"
^XMB(3.9,9,2,479,0)="""IX"",2,2,""ADTTM7"",0)"
^XMB(3.9,9,2,480,0)="2^ADTTM7^DESIGNEE Cross-Reference^MU^^R^^I^2^^^^^A"
^XMB(3.9,9,2,481,0)="""IX"",2,2,""ADTTM7"",.1,0)"
^XMB(3.9,9,2,482,0)="^^2^2^3050813"
^XMB(3.9,9,2,483,0)="""IX"",2,2,""ADTTM7"",.1,1,0)"
^XMB(3.9,9,2,484,0)="This cross-reference will update the DESIGNEE CHANGE DATE/TIME field when"
^XMB(3.9,9,2,485,0)="""IX"",2,2,""ADTTM7"",.1,2,0)"
^XMB(3.9,9,2,486,0)="the Designee data changes for a patient."
^XMB(3.9,9,2,487,0)="""IX"",2,2,""ADTTM7"",1)"
^XMB(3.9,9,2,488,0)="D DESIG^DGDDDTTM"
^XMB(3.9,9,2,489,0)="""IX"",2,2,""ADTTM7"",2)"
^XMB(3.9,9,2,490,0)="D DESIG^DGDDDTTM"
^XMB(3.9,9,2,491,0)="""IX"",2,2,""ADTTM7"",11.1,0)"
^XMB(3.9,9,2,492,0)="^.114IA^10^10"
^XMB(3.9,9,2,493,0)="""IX"",2,2,""ADTTM7"",11.1,1,0)"
^XMB(3.9,9,2,494,0)="1^F^2^.341^^^F"
^XMB(3.9,9,2,495,0)="""IX"",2,2,""ADTTM7"",11.1,2,0)"
^XMB(3.9,9,2,496,0)="2^F^2^.342^^^F"
^XMB(3.9,9,2,497,0)="""IX"",2,2,""ADTTM7"",11.1,3,0)"
^XMB(3.9,9,2,498,0)="3^F^2^.343^^^F"
^XMB(3.9,9,2,499,0)="""IX"",2,2,""ADTTM7"",11.1,4,0)"
^XMB(3.9,9,2,500,0)="4^F^2^.344^^^F"
^XMB(3.9,9,2,501,0)="""IX"",2,2,""ADTTM7"",11.1,5,0)"
^XMB(3.9,9,2,502,0)="5^F^2^.345^^^F"
^XMB(3.9,9,2,503,0)="""IX"",2,2,""ADTTM7"",11.1,6,0)"
^XMB(3.9,9,2,504,0)="6^F^2^.346^^^F"
^XMB(3.9,9,2,505,0)="""IX"",2,2,""ADTTM7"",11.1,7,0)"
^XMB(3.9,9,2,506,0)="7^F^2^.347^^^F"
^XMB(3.9,9,2,507,0)="""IX"",2,2,""ADTTM7"",11.1,8,0)"
^XMB(3.9,9,2,508,0)="8^F^2^.348^^^F"
^XMB(3.9,9,2,509,0)="""IX"",2,2,""ADTTM7"",11.1,9,0)"
^XMB(3.9,9,2,510,0)="9^F^2^.3405^^^F"
^XMB(3.9,9,2,511,0)="""IX"",2,2,""ADTTM7"",11.1,10,0)"
^XMB(3.9,9,2,512,0)="10^F^2^.2202^^^F"
^XMB(3.9,9,2,513,0)="""IX"",2,2,""ANAM01"",0)"
^XMB(3.9,9,2,514,0)="2^ANAM01^This index keeps the NAME COMPONENTS file in synch with the .01 field.^MU^^F^IR^I^2^^^^^A"
^XMB(3.9,9,2,515,0)="""IX"",2,2,""ANAM01"",.1,0)"
^XMB(3.9,9,2,516,0)="^^3^3^3050611"
^XMB(3.9,9,2,517,0)="""IX"",2,2,""ANAM01"",.1,1,0)"
^XMB(3.9,9,2,518,0)="This cross reference uses Kernel name standardization APIs to keep the NAME"
^XMB(3.9,9,2,519,0)="""IX"",2,2,""ANAM01"",.1,2,0)"
^XMB(3.9,9,2,520,0)="COMPONENTS (#20) file record associated with the #.01 field synchronized"
^XMB(3.9,9,2,521,0)="""IX"",2,2,""ANAM01"",.1,3,0)"
^XMB(3.9,9,2,522,0)="with the data value stored in that field."
^XMB(3.9,9,2,523,0)="""IX"",2,2,""ANAM01"",1)"
^XMB(3.9,9,2,524,0)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.01,.DG20NAME,1.01,+$P($G(^DPT(DA,""NAME"")),U),""CL30"") K DG20NAME Q"
^XMB(3.9,9,2,525,0)="""IX"",2,2,""ANAM01"",2)"
^XMB(3.9,9,2,526,0)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.01,1.01) Q"
^XMB(3.9,9,2,527,0)="""IX"",2,2,""ANAM01"",11.1,0)"
^XMB(3.9,9,2,528,0)="^.114IA^1^1"
^XMB(3.9,9,2,529,0)="""IX"",2,2,""ANAM01"",11.1,1,0)"
^XMB(3.9,9,2,530,0)="1^F^2^.01^^1^F"
^XMB(3.9,9,2,531,0)="""IX"",2,2,""ANAM1001"",0)"
^XMB(3.9,9,2,532,0)="2^ANAM1001^This index keeps the NAME COMPONENTS file in synch with field #30.^MU^^F^IR^W^2.101^^^^^A"
^XMB(3.9,9,2,533,0)="""IX"",2,2,""ANAM1001"",.1,0)"
^XMB(3.9,9,2,534,0)="^^3^3^3050611"
^XMB(3.9,9,2,535,0)="""IX"",2,2,""ANAM1001"",.1,1,0)"
^XMB(3.9,9,2,536,0)="This cross reference uses Kernel name standardization APIs to keep the NAME"
^XMB(3.9,9,2,537,0)="""IX"",2,2,""ANAM1001"",.1,2,0)"
^XMB(3.9,9,2,538,0)="COMPONENTS (#20) file record associated with the #30 field synchronized"
^XMB(3.9,9,2,539,0)="""IX"",2,2,""ANAM1001"",.1,3,0)"
^XMB(3.9,9,2,540,0)="with the data value stored in that field."
^XMB(3.9,9,2,541,0)="""IX"",2,2,""ANAM1001"",1)"
^XMB(3.9,9,2,542,0)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UPDCOMP^XLFNAME2(2.101,.DA,30,.DG20NAME,100.21,,""CL30"") K DG20NAME Q"
^XMB(3.9,9,2,543,0)="""IX"",2,2,""ANAM1001"",2)"
^XMB(3.9,9,2,544,0)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2.101,.DA,30,100.21) Q"
^XMB(3.9,9,2,545,0)="""IX"",2,2,""ANAM1001"",11.1,0)"
^XMB(3.9,9,2,546,0)="^.114IA^1^1"
^XMB(3.9,9,2,547,0)="""IX"",2,2,""ANAM1001"",11.1,1,0)"
^XMB(3.9,9,2,548,0)="1^F^2.101^30^^1^F"
^XMB(3.9,9,2,549,0)="""IX"",2,2,""ANAM201"",0)"
^XMB(3.9,9,2,550,0)="2^ANAM201^This index keeps the NAME COMPONENTS file in synch with the .01 field.^MU^^F^IR^W^2.01^^^^^A"
^XMB(3.9,9,2,551,0)="""IX"",2,2,""ANAM201"",.1,0)"
^XMB(3.9,9,2,552,0)="^^3^3^3050611"
^XMB(3.9,9,2,553,0)="""IX"",2,2,""ANAM201"",.1,1,0)"
^XMB(3.9,9,2,554,0)="This cross reference uses Kernel name standardization APIs to keep the NAME"
^XMB(3.9,9,2,555,0)="""IX"",2,2,""ANAM201"",.1,2,0)"
^XMB(3.9,9,2,556,0)="COMPONENTS (#20) file record associated with the #.01 field synchronized"
^XMB(3.9,9,2,557,0)="""IX"",2,2,""ANAM201"",.1,3,0)"
^XMB(3.9,9,2,558,0)="with the data value stored in that field."
^XMB(3.9,9,2,559,0)="""IX"",2,2,""ANAM201"",1)"
^XMB(3.9,9,2,560,0)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UPDCOMP^XLFNAME2(2.01,.DA,.01,.DG20NAME,100.03,,""CL30"") K DG20NAME Q"
^XMB(3.9,9,2,561,0)="""IX"",2,2,""ANAM201"",2)"
^XMB(3.9,9,2,562,0)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2.01,.DA,.01,100.03) Q"
^XMB(3.9,9,2,563,0)="""IX"",2,2,""ANAM201"",11.1,0)"
^XMB(3.9,9,2,564,0)="^.114IA^1^1"
^XMB(3.9,9,2,565,0)="""IX"",2,2,""ANAM201"",11.1,1,0)"
^XMB(3.9,9,2,566,0)="1^F^2.01^.01^^1^F"
^XMB(3.9,9,2,567,0)="""IX"",2,2,""ANAM211"",0)"
^XMB(3.9,9,2,568,0)="2^ANAM211^This index keeps the NAME COMPONENTS file in synch with field #.211.^MU^^F^IR^I^2^^^^^A"
^XMB(3.9,9,2,569,0)="""IX"",2,2,""ANAM211"",.1,0)"
^XMB(3.9,9,2,570,0)="^^3^3^3050611"
^XMB(3.9,9,2,571,0)="""IX"",2,2,""ANAM211"",.1,1,0)"
^XMB(3.9,9,2,572,0)="This cross reference uses Kernel name standardization APIs to keep the NAME"
^XMB(3.9,9,2,573,0)="""IX"",2,2,""ANAM211"",.1,2,0)"
^XMB(3.9,9,2,574,0)="COMPONENTS (#20) file record associated with the #.211 field synchronized"
^XMB(3.9,9,2,575,0)="""IX"",2,2,""ANAM211"",.1,3,0)"
^XMB(3.9,9,2,576,0)="with the data value stored in that field."
^XMB(3.9,9,2,577,0)="""IX"",2,2,""ANAM211"",1)"
^XMB(3.9,9,2,578,0)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.211,.DG20NAME,1.02,+$P($G(^DPT(DA,""NAME"")),U,2),""CL35"") K DG20NAME Q"
^XMB(3.9,9,2,579,0)="""IX"",2,2,""ANAM211"",2)"
^XMB(3.9,9,2,580,0)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.211,1.02) Q"
^XMB(3.9,9,2,581,0)="""IX"",2,2,""ANAM211"",11.1,0)"
^XMB(3.9,9,2,582,0)="^.114IA^1^1"
^XMB(3.9,9,2,583,0)="""IX"",2,2,""ANAM211"",11.1,1,0)"
^XMB(3.9,9,2,584,0)="1^F^2^.211^^1^F"
^XMB(3.9,9,2,585,0)="""IX"",2,2,""ANAM2401"",0)"
^XMB(3.9,9,2,586,0)="2^ANAM2401^This index keeps the NAME COMPONENTS file in synch with field #.2401.^MU^^F^IR^I^2^^^^^A"
^XMB(3.9,9,2,587,0)="""IX"",2,2,""ANAM2401"",.1,0)"
^XMB(3.9,9,2,588,0)="^^3^3^3050611"
^XMB(3.9,9,2,589,0)="""IX"",2,2,""ANAM2401"",.1,1,0)"
^XMB(3.9,9,2,590,0)="This cross reference uses Kernel name standardization APIs to keep the NAME"
^XMB(3.9,9,2,591,0)="""IX"",2,2,""ANAM2401"",.1,2,0)"
^XMB(3.9,9,2,592,0)="COMPONENTS (#20) file record associated with the #.2401 field synchronized"
^XMB(3.9,9,2,593,0)="""IX"",2,2,""ANAM2401"",.1,3,0)"
^XMB(3.9,9,2,594,0)="with the data value stored in that field."
^XMB(3.9,9,2,595,0)="""IX"",2,2,""ANAM2401"",1)"
^XMB(3.9,9,2,596,0)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.2401,.DG20NAME,1.04,+$P($G(^DPT(DA,""NAME"")),U,4),""CL35"") K DG20NAME Q"
^XMB(3.9,9,2,597,0)="""IX"",2,2,""ANAM2401"",2)"
^XMB(3.9,9,2,598,0)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.2401,1.04) Q"
^XMB(3.9,9,2,599,0)="""IX"",2,2,""ANAM2401"",11.1,0)"
^XMB(3.9,9,2,600,0)="^.114IA^1^1"
^XMB(3.9,9,2,601,0)="""IX"",2,2,""ANAM2401"",11.1,1,0)"
^XMB(3.9,9,2,602,0)="1^F^2^.2401^^1^F"
^XMB(3.9,9,2,603,0)="""IX"",2,2,""ANAM2402"",0)"
^XMB(3.9,9,2,604,0)="2^ANAM2402^This index keeps the NAME COMPONENTS file in synch with field #.2402.^MU^^F^IR^I^2^^^^^A"
^XMB(3.9,9,2,605,0)="""IX"",2,2,""ANAM2402"",.1,0)"
^XMB(3.9,9,2,606,0)="^^3^3^3050611"
^XMB(3.9,9,2,607,0)="""IX"",2,2,""ANAM2402"",.1,1,0)"
^XMB(3.9,9,2,608,0)="This cross reference uses Kernel name standardization APIs to keep the NAME"
^XMB(3.9,9,2,609,0)="""IX"",2,2,""ANAM2402"",.1,2,0)"
^XMB(3.9,9,2,610,0)="COMPONENTS (#20) file record associated with the #.2402 field synchronized"
^XMB(3.9,9,2,611,0)="""IX"",2,2,""ANAM2402"",.1,3,0)"
^XMB(3.9,9,2,612,0)="with the data value stored in that field."
^XMB(3.9,9,2,613,0)="""IX"",2,2,""ANAM2402"",1)"
^XMB(3.9,9,2,614,0)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.2402,.DG20NAME,1.05,+$P($G(^DPT(DA,""NAME"")),U,5),""CL35"") K DG20NAME Q"
^XMB(3.9,9,2,615,0)="""IX"",2,2,""ANAM2402"",2)"
^XMB(3.9,9,2,616,0)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.2402,1.05) Q"
^XMB(3.9,9,2,617,0)="""IX"",2,2,""ANAM2402"",11.1,0)"
^XMB(3.9,9,2,618,0)="^.114IA^1^1"
^XMB(3.9,9,2,619,0)="""IX"",2,2,""ANAM2402"",11.1,1,0)"
^XMB(3.9,9,2,620,0)="1^F^2^.2402^^1^F"
^XMB(3.9,9,2,621,0)="""IX"",2,2,""ANAM2403"",0)"
^XMB(3.9,9,2,622,0)="2^ANAM2403^This index keeps the NAME COMPONENTS file in synch with field #.2403.^MU^^F^IR^I^2^^^^^A"
^XMB(3.9,9,2,623,0)="""IX"",2,2,""ANAM2403"",.1,0)"
^XMB(3.9,9,2,624,0)="^^3^3^3050611"
^XMB(3.9,9,2,625,0)="""IX"",2,2,""ANAM2403"",.1,1,0)"
^XMB(3.9,9,2,626,0)="This cross reference uses Kernel name standardization APIs to keep the NAME"
^XMB(3.9,9,2,627,0)="""IX"",2,2,""ANAM2403"",.1,2,0)"
^XMB(3.9,9,2,628,0)="COMPONENTS (#20) file record associated with the #.2403 field synchronized"
^XMB(3.9,9,2,629,0)="""IX"",2,2,""ANAM2403"",.1,3,0)"
^XMB(3.9,9,2,630,0)="with the data value stored in that field."
^XMB(3.9,9,2,631,0)="""IX"",2,2,""ANAM2403"",1)"
^XMB(3.9,9,2,632,0)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.2403,.DG20NAME,1.06,+$P($G(^DPT(DA,""NAME"")),U,6),""CL35"") K DG20NAME Q"
^XMB(3.9,9,2,633,0)="""IX"",2,2,""ANAM2403"",2)"
^XMB(3.9,9,2,634,0)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.2403,1.06) Q"
^XMB(3.9,9,2,635,0)="""IX"",2,2,""ANAM2403"",11.1,0)"
^XMB(3.9,9,2,636,0)="^.114IA^1^1"
^XMB(3.9,9,2,637,0)="""IX"",2,2,""ANAM2403"",11.1,1,0)"
^XMB(3.9,9,2,638,0)="1^F^2^.2403^^1^F"
^XMB(3.9,9,2,639,0)="""IX"",2,2,""ANAM331"",0)"
^XMB(3.9,9,2,640,0)="2^ANAM331^This index keeps the NAME COMPONENTS file in synch with field #.331.^MU^^F^IR^I^2^^^^^A"
^XMB(3.9,9,2,641,0)="""IX"",2,2,""ANAM331"",.1,0)"
^XMB(3.9,9,2,642,0)="^^3^3^3050611"
^XMB(3.9,9,2,643,0)="""IX"",2,2,""ANAM331"",.1,1,0)"
^XMB(3.9,9,2,644,0)="This cross reference uses Kernel name standardization APIs to keep the NAME"
^XMB(3.9,9,2,645,0)="""IX"",2,2,""ANAM331"",.1,2,0)"
^XMB(3.9,9,2,646,0)="COMPONENTS (#20) file record associated with the #.331 field synchronized"
^XMB(3.9,9,2,647,0)="""IX"",2,2,""ANAM331"",.1,3,0)"
^XMB(3.9,9,2,648,0)="with the data value stored in that field."
^XMB(3.9,9,2,649,0)="""IX"",2,2,""ANAM331"",1)"
^XMB(3.9,9,2,650,0)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.331,.DG20NAME,1.07,+$P($G(^DPT(DA,""NAME"")),U,7),""CL35"") K DG20NAME Q"
^XMB(3.9,9,2,651,0)="""IX"",2,2,""ANAM331"",2)"
^XMB(3.9,9,2,652,0)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.331,1.07) Q"
^XMB(3.9,9,2,653,0)="""IX"",2,2,""ANAM331"",11.1,0)"
^XMB(3.9,9,2,654,0)="^.114IA^1^1"
^XMB(3.9,9,2,655,0)="""IX"",2,2,""ANAM331"",11.1,1,0)"
^XMB(3.9,9,2,656,0)="1^F^2^.331^^1^F"
^XMB(3.9,9,2,657,0)="""IX"",2,2,""ANAM341"",0)"
^XMB(3.9,9,2,658,0)="2^ANAM341^This index keeps the NAME COMPONENTS file in synch with field #.341.^MU^^F^IR^I^2^^^^^A"
^XMB(3.9,9,2,659,0)="""IX"",2,2,""ANAM341"",.1,0)"
^XMB(3.9,9,2,660,0)="^^3^3^3050611"
^XMB(3.9,9,2,661,0)="""IX"",2,2,""ANAM341"",.1,1,0)"
^XMB(3.9,9,2,662,0)="This cross reference uses Kernel name standardization APIs to keep the NAME"
^XMB(3.9,9,2,663,0)="""IX"",2,2,""ANAM341"",.1,2,0)"
^XMB(3.9,9,2,664,0)="COMPONENTS (#20) file record associated with the #.341 field synchronized"
^XMB(3.9,9,2,665,0)="""IX"",2,2,""ANAM341"",.1,3,0)"
^XMB(3.9,9,2,666,0)="with the data value stored in that field."
^XMB(3.9,9,2,667,0)="""IX"",2,2,""ANAM341"",1)"
^XMB(3.9,9,2,668,0)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.341,.DG20NAME,1.09,+$P($G(^DPT(DA,""NAME"")),U,9),""CL35"") K DG20NAME Q"
^XMB(3.9,9,2,669,0)="""IX"",2,2,""ANAM341"",2)"
^XMB(3.9,9,2,670,0)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.341,1.09) Q"
^XMB(3.9,9,2,671,0)="""IX"",2,2,""ANAM341"",11.1,0)"
^XMB(3.9,9,2,672,0)="^.114IA^1^1"
^XMB(3.9,9,2,673,0)="""IX"",2,2,""ANAM341"",11.1,1,0)"
^XMB(3.9,9,2,674,0)="1^F^2^.341^^1^F"
^XMB(3.9,9,2,675,0)="""IX"",2,2,""NOP"",0)"
^XMB(3.9,9,2,676,0)="2^NOP^Index of standardized values that don't match .01 value.^R^^F^IR^I^2^^^^^LS"
^XMB(3.9,9,2,677,0)="""IX"",2,2,""NOP"",.1,0)"
^XMB(3.9,9,2,678,0)="^^5^5^3050611"
^XMB(3.9,9,2,679,0)="""IX"",2,2,""NOP"",.1,1,0)"
^XMB(3.9,9,2,680,0)="This cross reference facilitates PATIENT file lookups by a standardized name"
^XMB(3.9,9,2,681,0)="""IX"",2,2,""NOP"",.1,2,0)"
^XMB(3.9,9,2,682,0)="value.  In addition to the standardization applied by Kernel name utilities,"
^XMB(3.9,9,2,683,0)="""IX"",2,2,""NOP"",.1,3,0)"
^XMB(3.9,9,2,684,0)="hyphens and apostrophes are also removed from the name value.  This cross"
^XMB(3.9,9,2,685,0)="""IX"",2,2,""NOP"",.1,4,0)"
^XMB(3.9,9,2,686,0)="reference is only set if the standardized name is different than the patient"
^XMB(3.9,9,2,687,0)="""IX"",2,2,""NOP"",.1,5,0)"
^XMB(3.9,9,2,688,0)="name value stored in the NAME (#.01) field."
^XMB(3.9,9,2,689,0)="""IX"",2,2,""NOP"",1)"
^XMB(3.9,9,2,690,0)="S ^DPT(""NOP"",$E(X,1,30),DA)="""""
^XMB(3.9,9,2,691,0)="""IX"",2,2,""NOP"",2)"
^XMB(3.9,9,2,692,0)="K ^DPT(""NOP"",$E(X,1,30),DA)"
^XMB(3.9,9,2,693,0)="""IX"",2,2,""NOP"",2.5)"
^XMB(3.9,9,2,694,0)="K ^DPT(""NOP"")"
^XMB(3.9,9,2,695,0)="""IX"",2,2,""NOP"",11.1,0)"
^XMB(3.9,9,2,696,0)="^.114IA^1^1"
^XMB(3.9,9,2,697,0)="""IX"",2,2,""NOP"",11.1,1,0)"
^XMB(3.9,9,2,698,0)="1^F^2^.01^30^1^F"
^XMB(3.9,9,2,699,0)="""IX"",2,2,""NOP"",11.1,1,2)"
^XMB(3.9,9,2,700,0)="S X=$$NOP^XLFNAME7(X)"
^XMB(3.9,9,2,701,0)="""IX"",2,2,""NOP"",11.1,1,4)"
^XMB(3.9,9,2,702,0)="S X=$$NOP^XLFNAME7(X)"
^XMB(3.9,9,2,703,0)="""IX"",2,2.01,""AVAFC20101"",0)"
^XMB(3.9,9,2,704,0)="2.01^AVAFC20101^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2.01^^^^^A"
^XMB(3.9,9,2,705,0)="""IX"",2,2.01,""AVAFC20101"",.1,0)"
^XMB(3.9,9,2,706,0)="^^5^5^3040702"
^XMB(3.9,9,2,707,0)="""IX"",2,2.01,""AVAFC20101"",.1,1,0)"
^XMB(3.9,9,2,708,0)="This cross reference activates the DG FIELD MONITOR event point."
^XMB(3.9,9,2,709,0)="""IX"",2,2.01,""AVAFC20101"",.1,2,0)"
^XMB(3.9,9,2,710,0)="Applications that wish to monitor edit activity related to this field may"
^XMB(3.9,9,2,711,0)="""IX"",2,2.01,""AVAFC20101"",.1,3,0)"
^XMB(3.9,9,2,712,0)="subscribe to that event point and take action as indicated by the changes"
^XMB(3.9,9,2,713,0)="""IX"",2,2.01,""AVAFC20101"",.1,4,0)"
^XMB(3.9,9,2,714,0)="that occur.  Refer to the DG FIELD MONITOR protocol for a description of"
^XMB(3.9,9,2,715,0)="""IX"",2,2.01,""AVAFC20101"",.1,5,0)"
^XMB(3.9,9,2,716,0)="the information available at the time of the event."
^XMB(3.9,9,2,717,0)="""IX"",2,2.01,""AVAFC20101"",1)"
^XMB(3.9,9,2,718,0)="D FC^DGFCPROT(.DA,2.01,.01,""SET"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^XMB(3.9,9,2,719,0)="""IX"",2,2.01,""AVAFC20101"",2)"
^XMB(3.9,9,2,720,0)="D FC^DGFCPROT(.DA,2.01,.01,""KILL"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^XMB(3.9,9,2,721,0)="""IX"",2,2.01,""AVAFC20101"",11.1,0)"
^XMB(3.9,9,2,722,0)="^.114IA^1^1"
^XMB(3.9,9,2,723,0)="""IX"",2,2.01,""AVAFC20101"",11.1,1,0)"
^XMB(3.9,9,2,724,0)="1^F^2.01^.01^^^F"
^XMB(3.9,9,2,725,0)="""MBREQ"")"
^XMB(3.9,9,2,726,0)="0"
^XMB(3.9,9,2,727,0)="""PKG"",5,-1)"
^XMB(3.9,9,2,728,0)="1^1"
^XMB(3.9,9,2,729,0)="""PKG"",5,0)"
^XMB(3.9,9,2,730,0)="REGISTRATION^DG^PATIENT REGISTRATION, ADMISSION, DISCHARGE, EMBOSSER "
^XMB(3.9,9,2,731,0)="""PKG"",5,20,0)"
^XMB(3.9,9,2,732,0)="^9.402P^^"
^XMB(3.9,9,2,733,0)="""PKG"",5,22,0)"
^XMB(3.9,9,2,734,0)="^9.49I^1^1"
^XMB(3.9,9,2,735,0)="""PKG"",5,22,1,0)"
^XMB(3.9,9,2,736,0)="5.3^2930813"
^XMB(3.9,9,2,737,0)="""PKG"",5,22,1,""PAH"",1,0)"
^XMB(3.9,9,2,738,0)="705^3060620^539"
^XMB(3.9,9,2,739,0)="""PRE"")"
^XMB(3.9,9,2,740,0)="DG53705E"
^XMB(3.9,9,2,741,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,9,2,742,0)="Y"
^XMB(3.9,9,2,743,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,9,2,744,0)="^D REP^XPDH"
^XMB(3.9,9,2,745,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,9,2,746,0)="Shall I write over your |FLAG| File"
^XMB(3.9,9,2,747,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,9,2,748,0)="YES"
^XMB(3.9,9,2,749,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,9,2,750,0)="D XPF1^XPDIQ"
^XMB(3.9,9,2,751,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,9,2,752,0)="Y"
^XMB(3.9,9,2,753,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,9,2,754,0)="^D DTA^XPDH"
^XMB(3.9,9,2,755,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,9,2,756,0)="Want my data |FLAG| yours"
^XMB(3.9,9,2,757,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,9,2,758,0)="YES"
^XMB(3.9,9,2,759,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,9,2,760,0)="D XPF2^XPDIQ"
^XMB(3.9,9,2,761,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,9,2,762,0)="YO"
^XMB(3.9,9,2,763,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,9,2,764,0)="^D INHIBIT^XPDH"
^XMB(3.9,9,2,765,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,9,2,766,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,9,2,767,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,9,2,768,0)="YES"
^XMB(3.9,9,2,769,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,9,2,770,0)="D XPI1^XPDIQ"
^XMB(3.9,9,2,771,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,9,2,772,0)="PO^VA(200,:EM"
^XMB(3.9,9,2,773,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,9,2,774,0)="^D MG^XPDH"
^XMB(3.9,9,2,775,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,9,2,776,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,9,2,777,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,9,2,778,0)=""
^XMB(3.9,9,2,779,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,9,2,780,0)="D XPM1^XPDIQ"
^XMB(3.9,9,2,781,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,9,2,782,0)="Y"
^XMB(3.9,9,2,783,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,9,2,784,0)="^D MENU^XPDH"
^XMB(3.9,9,2,785,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,9,2,786,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,9,2,787,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,9,2,788,0)="YES"
^XMB(3.9,9,2,789,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,9,2,790,0)="D XPO1^XPDIQ"
^XMB(3.9,9,2,791,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,9,2,792,0)="Y"
^XMB(3.9,9,2,793,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,9,2,794,0)="^D OPT^XPDH"
^XMB(3.9,9,2,795,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,9,2,796,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,9,2,797,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,9,2,798,0)="YES"
^XMB(3.9,9,2,799,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,9,2,800,0)="D XPZ1^XPDIQ"
^XMB(3.9,9,2,801,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,9,2,802,0)="Y"
^XMB(3.9,9,2,803,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,9,2,804,0)="^D RTN^XPDH"
^XMB(3.9,9,2,805,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,9,2,806,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,9,2,807,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,9,2,808,0)="NO"
^XMB(3.9,9,2,809,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,9,2,810,0)="D XPZ2^XPDIQ"
^XMB(3.9,9,2,811,0)="""RTN"")"
^XMB(3.9,9,2,812,0)="2"
^XMB(3.9,9,2,813,0)="""RTN"",""DG53705E"")"
^XMB(3.9,9,2,814,0)="0^^B967253"
^XMB(3.9,9,2,815,0)="""RTN"",""DG53705E"",1,0)"
^XMB(3.9,9,2,816,0)="DG53705E ;ALB/TMK - DG*5.3*705 Environment check ; 05-APR-2006"
^XMB(3.9,9,2,817,0)="""RTN"",""DG53705E"",2,0)"
^XMB(3.9,9,2,818,0)=" ;;5.3;Registration;**705**;Aug 13, 1993"
^XMB(3.9,9,2,819,0)="""RTN"",""DG53705E"",3,0)"
^XMB(3.9,9,2,820,0)=" ;"
^XMB(3.9,9,2,821,0)="""RTN"",""DG53705E"",4,0)"
^XMB(3.9,9,2,822,0)="EN ; Check for need to update"
^XMB(3.9,9,2,823,0)="""RTN"",""DG53705E"",5,0)"
^XMB(3.9,9,2,824,0)=" Q"
^XMB(3.9,9,2,825,0)="""RTN"",""DG53705E"",6,0)"
^XMB(3.9,9,2,826,0)=" ;"
^XMB(3.9,9,2,827,0)="""RTN"",""DG53705E"",7,0)"
^XMB(3.9,9,2,828,0)="CKUPD() ; Check to see if update is necessary"
^XMB(3.9,9,2,829,0)="""RTN"",""DG53705E"",8,0)"
^XMB(3.9,9,2,830,0)=" ; Return 1 if necessary, 0 if not necessary"
^XMB(3.9,9,2,831,0)="""RTN"",""DG53705E"",9,0)"
^XMB(3.9,9,2,832,0)=" N HASDVB54,Z,ZERR,DIERR"
^XMB(3.9,9,2,833,0)="""RTN"",""DG53705E"",10,0)"
^XMB(3.9,9,2,834,0)=" S HASDVB54=0"
^XMB(3.9,9,2,835,0)="""RTN"",""DG53705E"",11,0)"
^XMB(3.9,9,2,836,0)=" D FIND^DIC(9.7,"""","""",""X"",""DVB*4.0*54"","""","""","""","""",""Z"",""ZERR"")"
^XMB(3.9,9,2,837,0)="""RTN"",""DG53705E"",12,0)"
^XMB(3.9,9,2,838,0)=" I $G(Z(""DILIST"",0)),$S($G(^TMP(""DG*5.3*705"",$J))!$D(^DIC(2,""%"",""B"",""QAM"",7))!$D(^DD(2,0,""PT"",19000.00001,.01))!$D(^DD(2,0,""ID"",""GARB"")):1,1:0) S HASDVB54=1"
^XMB(3.9,9,2,839,0)="""RTN"",""DG53705E"",13,0)"
^XMB(3.9,9,2,840,0)=" D CLEAN^DILF"
^XMB(3.9,9,2,841,0)="""RTN"",""DG53705E"",14,0)"
^XMB(3.9,9,2,842,0)=" Q HASDVB54"
^XMB(3.9,9,2,843,0)="""RTN"",""DG53705E"",15,0)"
^XMB(3.9,9,2,844,0)=" ;"
^XMB(3.9,9,2,845,0)="""RTN"",""DG53705I"")"
^XMB(3.9,9,2,846,0)="0^^B30880176"
^XMB(3.9,9,2,847,0)="""RTN"",""DG53705I"",1,0)"
^XMB(3.9,9,2,848,0)="DG53705I ;ALB/TMK - DG*5.3*705 Pre-Install Routine ; 05-APR-2006"
^XMB(3.9,9,2,849,0)="""RTN"",""DG53705I"",2,0)"
^XMB(3.9,9,2,850,0)=" ;;5.3;Registration;**705**;Aug 13, 1993"
^XMB(3.9,9,2,851,0)="""RTN"",""DG53705I"",3,0)"
^XMB(3.9,9,2,852,0)=" ;"
^XMB(3.9,9,2,853,0)="""RTN"",""DG53705I"",4,0)"
^XMB(3.9,9,2,854,0)="EN ; Description: This entry point will be used as a driver for"
^XMB(3.9,9,2,855,0)="""RTN"",""DG53705I"",5,0)"
^XMB(3.9,9,2,856,0)=" ;  pre-installation updates."
^XMB(3.9,9,2,857,0)="""RTN"",""DG53705I"",6,0)"
^XMB(3.9,9,2,858,0)=" ; DBIA: 4542 for direct DD global access/kills and for one-time"
^XMB(3.9,9,2,859,0)="""RTN"",""DG53705I"",7,0)"
^XMB(3.9,9,2,860,0)=" ;       call to Fileman PT node cleanup (PT^DDUCHK1)"
^XMB(3.9,9,2,861,0)="""RTN"",""DG53705I"",8,0)"
^XMB(3.9,9,2,862,0)=" ;"
^XMB(3.9,9,2,863,0)="""RTN"",""DG53705I"",9,0)"
^XMB(3.9,9,2,864,0)=" ; If the patch DVB*4*54 was not installed, skip the cleanup"
^XMB(3.9,9,2,865,0)="""RTN"",""DG53705I"",10,0)"
^XMB(3.9,9,2,866,0)=" N %"
^XMB(3.9,9,2,867,0)="""RTN"",""DG53705I"",11,0)"
^XMB(3.9,9,2,868,0)=" K ^TMP(""DG*5.3*705"",$J)"
^XMB(3.9,9,2,869,0)="""RTN"",""DG53705I"",12,0)"
^XMB(3.9,9,2,870,0)=" S %=$$CKUPD^DG53705E()"
^XMB(3.9,9,2,871,0)="""RTN"",""DG53705I"",13,0)"
^XMB(3.9,9,2,872,0)=" I '% D  Q"
^XMB(3.9,9,2,873,0)="""RTN"",""DG53705I"",14,0)"
^XMB(3.9,9,2,874,0)=" . N ZMES,I"
^XMB(3.9,9,2,875,0)="""RTN"",""DG53705I"",15,0)"
^XMB(3.9,9,2,876,0)=" . F I=1,2 S ZMES(I)="" """
^XMB(3.9,9,2,877,0)="""RTN"",""DG53705I"",16,0)"
^XMB(3.9,9,2,878,0)=" . S ZMES(3)=""**** PATCH IS BEING INSTALLED IN NON-UPDATE MODE ****"""
^XMB(3.9,9,2,879,0)="""RTN"",""DG53705I"",17,0)"
^XMB(3.9,9,2,880,0)=" . S ZMES(4)="" """
^XMB(3.9,9,2,881,0)="""RTN"",""DG53705I"",18,0)"
^XMB(3.9,9,2,882,0)=" . S ZMES(5)=""NOTE: THE SYSTEM HAS DETERMINED THAT YOUR PATIENT FILE DOES NOT HAVE BAD"""
^XMB(3.9,9,2,883,0)="""RTN"",""DG53705I"",19,0)"
^XMB(3.9,9,2,884,0)=" . S ZMES(6)=""      DATA FROM PATCH DVB*4*54.  THEREFORE, THE STATUS OF PATCH DG*5.3*705"""
^XMB(3.9,9,2,885,0)="""RTN"",""DG53705I"",20,0)"
^XMB(3.9,9,2,886,0)=" . S ZMES(7)=""      WILL BE 'INSTALLED', HOWEVER NO UPDATES TO YOUR SYSTEM WILL BE MADE."""
^XMB(3.9,9,2,887,0)="""RTN"",""DG53705I"",21,0)"
^XMB(3.9,9,2,888,0)=" . D MES^XPDUTL(.ZMES)"
^XMB(3.9,9,2,889,0)="""RTN"",""DG53705I"",22,0)"
^XMB(3.9,9,2,890,0)=" ;"
^XMB(3.9,9,2,891,0)="""RTN"",""DG53705I"",23,0)"
^XMB(3.9,9,2,892,0)=" D BMES^XPDUTL(""**** PATCH IS BEING INSTALLED IN UPDATE MODE ****"")"
^XMB(3.9,9,2,893,0)="""RTN"",""DG53705I"",24,0)"
^XMB(3.9,9,2,894,0)=" D DELMISC"
^XMB(3.9,9,2,895,0)="""RTN"",""DG53705I"",25,0)"
^XMB(3.9,9,2,896,0)=" D DELPTR"
^XMB(3.9,9,2,897,0)="""RTN"",""DG53705I"",26,0)"
^XMB(3.9,9,2,898,0)=" D DELXREF"
^XMB(3.9,9,2,899,0)="""RTN"",""DG53705I"",27,0)"
^XMB(3.9,9,2,900,0)=" D DELID"
^XMB(3.9,9,2,901,0)="""RTN"",""DG53705I"",28,0)"
^XMB(3.9,9,2,902,0)=" D DELDESCR"
^XMB(3.9,9,2,903,0)="""RTN"",""DG53705I"",29,0)"
^XMB(3.9,9,2,904,0)=" D DONE"
^XMB(3.9,9,2,905,0)="""RTN"",""DG53705I"",30,0)"
^XMB(3.9,9,2,906,0)=" Q"
^XMB(3.9,9,2,907,0)="""RTN"",""DG53705I"",31,0)"
^XMB(3.9,9,2,908,0)=" ;"
^XMB(3.9,9,2,909,0)="""RTN"",""DG53705I"",32,0)"
^XMB(3.9,9,2,910,0)="DELMISC ; Delete various miscellaneous nodes:"
^XMB(3.9,9,2,911,0)="""RTN"",""DG53705I"",33,0)"
^XMB(3.9,9,2,912,0)=" ; write access, help, executable help, audit, etc"
^XMB(3.9,9,2,913,0)="""RTN"",""DG53705I"",34,0)"
^XMB(3.9,9,2,914,0)=" D BMES^XPDUTL("">>> Deleting bad write access, help, audit, other miscellaneous nodes"")"
^XMB(3.9,9,2,915,0)="""RTN"",""DG53705I"",35,0)"
^XMB(3.9,9,2,916,0)=" K ^DD(2,.12113,9),^DD(2,.14112,9)"
^XMB(3.9,9,2,917,0)="""RTN"",""DG53705I"",36,0)"
^XMB(3.9,9,2,918,0)=" K ^DD(2,.108,3)"
^XMB(3.9,9,2,919,0)="""RTN"",""DG53705I"",37,0)"
^XMB(3.9,9,2,920,0)=" K ^DD(2,.391,4)"
^XMB(3.9,9,2,921,0)="""RTN"",""DG53705I"",38,0)"
^XMB(3.9,9,2,922,0)=" F Z=.01,.2924,.3111,.3192,991.07 K ^DD(2,Z,""AUDIT"")"
^XMB(3.9,9,2,923,0)="""RTN"",""DG53705I"",39,0)"
^XMB(3.9,9,2,924,0)=" K ^DD(2.312,.18,""AUDIT"")"
^XMB(3.9,9,2,925,0)="""RTN"",""DG53705I"",40,0)"
^XMB(3.9,9,2,926,0)=" K ^DIC(2,0,""AUDIT"")"
^XMB(3.9,9,2,927,0)="""RTN"",""DG53705I"",41,0)"
^XMB(3.9,9,2,928,0)=" K ^DD(2,0,""VR"")"
^XMB(3.9,9,2,929,0)="""RTN"",""DG53705I"",42,0)"
^XMB(3.9,9,2,930,0)=" K ^DD(2,0,""VRPK"")"
^XMB(3.9,9,2,931,0)="""RTN"",""DG53705I"",43,0)"
^XMB(3.9,9,2,932,0)=" K ^DIC(2,""%"",7,0)"
^XMB(3.9,9,2,933,0)="""RTN"",""DG53705I"",44,0)"
^XMB(3.9,9,2,934,0)=" K ^DIC(2,""%"",""B"",""QAM"",7)"
^XMB(3.9,9,2,935,0)="""RTN"",""DG53705I"",45,0)"
^XMB(3.9,9,2,936,0)=" D STEP"
^XMB(3.9,9,2,937,0)="""RTN"",""DG53705I"",46,0)"
^XMB(3.9,9,2,938,0)=" Q"
^XMB(3.9,9,2,939,0)="""RTN"",""DG53705I"",47,0)"
^XMB(3.9,9,2,940,0)=" ;"
^XMB(3.9,9,2,941,0)="""RTN"",""DG53705I"",48,0)"
^XMB(3.9,9,2,942,0)="DELPTR ; Delete bad pointer nodes"
^XMB(3.9,9,2,943,0)="""RTN"",""DG53705I"",49,0)"
^XMB(3.9,9,2,944,0)=" N Z,Z0"
^XMB(3.9,9,2,945,0)="""RTN"",""DG53705I"",50,0)"
^XMB(3.9,9,2,946,0)=" D BMES^XPDUTL("">>> Deleting bad pointer nodes"")"
^XMB(3.9,9,2,947,0)="""RTN"",""DG53705I"",51,0)"
^XMB(3.9,9,2,948,0)=" S DDUCFI=2,DDUCFIX=1 D PT^DDUCHK1 ; IA"
^XMB(3.9,9,2,949,0)="""RTN"",""DG53705I"",52,0)"
^XMB(3.9,9,2,950,0)=" D STEP"
^XMB(3.9,9,2,951,0)="""RTN"",""DG53705I"",53,0)"
^XMB(3.9,9,2,952,0)=" Q"
^XMB(3.9,9,2,953,0)="""RTN"",""DG53705I"",54,0)"
^XMB(3.9,9,2,954,0)=" ;"
^XMB(3.9,9,2,955,0)="""RTN"",""DG53705I"",55,0)"
^XMB(3.9,9,2,956,0)="DELID ; Delete bad identifier nodes"
^XMB(3.9,9,2,957,0)="""RTN"",""DG53705I"",56,0)"
^XMB(3.9,9,2,958,0)=" N Z"
^XMB(3.9,9,2,959,0)="""RTN"",""DG53705I"",57,0)"
^XMB(3.9,9,2,960,0)=" D BMES^XPDUTL("">>> Deleting bad identifier nodes"")"
^XMB(3.9,9,2,961,0)="""RTN"",""DG53705I"",58,0)"
^XMB(3.9,9,2,962,0)=" F Z=.2924,.302,.351,""GARB"",""WARD"",""WR"",""ZREW"" K ^DD(2,0,""ID"",Z)"
^XMB(3.9,9,2,963,0)="""RTN"",""DG53705I"",59,0)"
^XMB(3.9,9,2,964,0)=" D STEP"
^XMB(3.9,9,2,965,0)="""RTN"",""DG53705I"",60,0)"
^XMB(3.9,9,2,966,0)=" Q"
^XMB(3.9,9,2,967,0)="""RTN"",""DG53705I"",61,0)"
^XMB(3.9,9,2,968,0)=" ;"
^XMB(3.9,9,2,969,0)="""RTN"",""DG53705I"",62,0)"
^XMB(3.9,9,2,970,0)="DELDESCR ;Delete excess description nodes"
^XMB(3.9,9,2,971,0)="""RTN"",""DG53705I"",63,0)"
^XMB(3.9,9,2,972,0)=" N Z"
^XMB(3.9,9,2,973,0)="""RTN"",""DG53705I"",64,0)"
^XMB(3.9,9,2,974,0)=" D BMES^XPDUTL("">>> Deleting bad field description nodes"")"
^XMB(3.9,9,2,975,0)="""RTN"",""DG53705I"",65,0)"
^XMB(3.9,9,2,976,0)=" S Z=1 F  S Z=$O(^DD(2,.107,21,Z)) Q:'Z  K ^DD(2,.107,21,Z,0)"
^XMB(3.9,9,2,977,0)="""RTN"",""DG53705I"",66,0)"
^XMB(3.9,9,2,978,0)=" D STEP"
^XMB(3.9,9,2,979,0)="""RTN"",""DG53705I"",67,0)"
^XMB(3.9,9,2,980,0)=" Q"
^XMB(3.9,9,2,981,0)="""RTN"",""DG53705I"",68,0)"
^XMB(3.9,9,2,982,0)=" ;"
^XMB(3.9,9,2,983,0)="""RTN"",""DG53705I"",69,0)"
^XMB(3.9,9,2,984,0)="DELXREF ; Delete cross references and indexes"
^XMB(3.9,9,2,985,0)="""RTN"",""DG53705I"",70,0)"
^XMB(3.9,9,2,986,0)=" N DGZ,DGZF,DGZFLD,DGZN,DGDEL,DGXREF,X,Z"
^XMB(3.9,9,2,987,0)="""RTN"",""DG53705I"",71,0)"
^XMB(3.9,9,2,988,0)=" D BMES^XPDUTL("">>> Deleting bad cross references and indexes"")"
^XMB(3.9,9,2,989,0)="""RTN"",""DG53705I"",72,0)"
^XMB(3.9,9,2,990,0)=" ;"
^XMB(3.9,9,2,991,0)="""RTN"",""DG53705I"",73,0)"
^XMB(3.9,9,2,992,0)=" ; Delete indexes 'ADGFM01', 'ADGFM03', 'ADGFM09', 'ADGFM351'"
^XMB(3.9,9,2,993,0)="""RTN"",""DG53705I"",74,0)"
^XMB(3.9,9,2,994,0)=" F DGZ=""ADGFM01"",""ADGFM03"",""ADGFM09"",""ADGFM351"" D DELIXN^DDMOD(2,DGZ)"
^XMB(3.9,9,2,995,0)="""RTN"",""DG53705I"",75,0)"
^XMB(3.9,9,2,996,0)=" ; Delete a trigger xref for file 2.01, field 100.03"
^XMB(3.9,9,2,997,0)="""RTN"",""DG53705I"",76,0)"
^XMB(3.9,9,2,998,0)=" S Z=0 F  S Z=$O(^DD(2.01,100.03,1,Z)) Q:'Z  I $P($G(^DD(2.01,100.03,1,Z,0)),U,3,5)=""TRIGGER^20^.01"" D DELIX^DDMOD(2.01,100.03,Z) Q"
^XMB(3.9,9,2,999,0)="""RTN"",""DG53705I"",77,0)"
^XMB(3.9,9,2,1000,0)=" ;"
^XMB(3.9,9,2,1001,0)="""RTN"",""DG53705I"",78,0)"
^XMB(3.9,9,2,1002,0)=" F Z=2:1 S X=$P($T(@(""XREF+""_Z)),"";;"",2) Q:X=""""  S DGZ(+X,+$P(X,U,2),$P(X,U,4))=$P(X,U,3) ;Extracts xrefs to delete"
^XMB(3.9,9,2,1003,0)="""RTN"",""DG53705I"",79,0)"
^XMB(3.9,9,2,1004,0)=" ;"
^XMB(3.9,9,2,1005,0)="""RTN"",""DG53705I"",80,0)"
^XMB(3.9,9,2,1006,0)=" S DGZF=0"
^XMB(3.9,9,2,1007,0)="""RTN"",""DG53705I"",81,0)"
^XMB(3.9,9,2,1008,0)=" F  S DGZF=$O(DGZ(DGZF)) Q:'DGZF  S DGZFLD=0 F  S DGZFLD=$O(DGZ(DGZF,DGZFLD)) Q:'DGZFLD  S DGZN="""" F  S DGZN=$O(DGZ(DGZF,DGZFLD,DGZN)) Q:DGZN=""""  D"
^XMB(3.9,9,2,1009,0)="""RTN"",""DG53705I"",82,0)"
^XMB(3.9,9,2,1010,0)=" . S DGZ=$G(DGZ(DGZF,DGZFLD,DGZN))"
^XMB(3.9,9,2,1011,0)="""RTN"",""DG53705I"",83,0)"
^XMB(3.9,9,2,1012,0)=" . I 'DGZ,'$$CHK1(DGZF,DGZFLD,DGZN) K ^DD(DGZF,0,""IX"",DGZN,DGZF,DGZFLD)"
^XMB(3.9,9,2,1013,0)="""RTN"",""DG53705I"",84,0)"
^XMB(3.9,9,2,1014,0)=" . I DGZ S Z=$$CHK2(DGZF,DGZFLD,DGZN,DGZ) I Z D DELIX^DDMOD(DGZF,DGZFLD,Z)"
^XMB(3.9,9,2,1015,0)="""RTN"",""DG53705I"",85,0)"
^XMB(3.9,9,2,1016,0)=" K ^TMP(""DIERR"",$J)"
^XMB(3.9,9,2,1017,0)="""RTN"",""DG53705I"",86,0)"
^XMB(3.9,9,2,1018,0)=" D STEP"
^XMB(3.9,9,2,1019,0)="""RTN"",""DG53705I"",87,0)"
^XMB(3.9,9,2,1020,0)=" Q"
^XMB(3.9,9,2,1021,0)="""RTN"",""DG53705I"",88,0)"
^XMB(3.9,9,2,1022,0)=" ;"
^XMB(3.9,9,2,1023,0)="""RTN"",""DG53705I"",89,0)"
^XMB(3.9,9,2,1024,0)="CHK1(FILE,FLD,XREFNM) ; Check if xref exists"
^XMB(3.9,9,2,1025,0)="""RTN"",""DG53705I"",90,0)"
^XMB(3.9,9,2,1026,0)=" ; Functon returns 1 if it exists, 0 if it doesn't"
^XMB(3.9,9,2,1027,0)="""RTN"",""DG53705I"",91,0)"
^XMB(3.9,9,2,1028,0)=" N Z,OK"
^XMB(3.9,9,2,1029,0)="""RTN"",""DG53705I"",92,0)"
^XMB(3.9,9,2,1030,0)=" S (OK,Z)=0"
^XMB(3.9,9,2,1031,0)="""RTN"",""DG53705I"",93,0)"
^XMB(3.9,9,2,1032,0)=" F  S Z=$O(^DD(FILE,FLD,1,Z)) Q:'Z  I $P($G(^(Z,0)),U,2)=XREFNM S OK=1 Q"
^XMB(3.9,9,2,1033,0)="""RTN"",""DG53705I"",94,0)"
^XMB(3.9,9,2,1034,0)=" Q OK"
^XMB(3.9,9,2,1035,0)="""RTN"",""DG53705I"",95,0)"
^XMB(3.9,9,2,1036,0)=" ;"
^XMB(3.9,9,2,1037,0)="""RTN"",""DG53705I"",96,0)"
^XMB(3.9,9,2,1038,0)="CHK2(FILE,FLD,XREFNM,XREFNO) ; Returns ien of xref"
^XMB(3.9,9,2,1039,0)="""RTN"",""DG53705I"",97,0)"
^XMB(3.9,9,2,1040,0)=" N Z,NUM"
^XMB(3.9,9,2,1041,0)="""RTN"",""DG53705I"",98,0)"
^XMB(3.9,9,2,1042,0)=" S Z=0"
^XMB(3.9,9,2,1043,0)="""RTN"",""DG53705I"",99,0)"
^XMB(3.9,9,2,1044,0)=" S NUM=$S($P($G(^DD(FILE,FLD,1,XREFNO,0)),U,2)=XREFNM:XREFNO,1:0)"
^XMB(3.9,9,2,1045,0)="""RTN"",""DG53705I"",100,0)"
^XMB(3.9,9,2,1046,0)=" I 'NUM F  S Z=$O(^DD(FILE,FLD,1,Z)) Q:'Z  I $P($G(^DD(FILE,FLD,1,Z,0)),U,2)=XREFNM S NUM=Z Q"
^XMB(3.9,9,2,1047,0)="""RTN"",""DG53705I"",101,0)"
^XMB(3.9,9,2,1048,0)=" Q NUM"
^XMB(3.9,9,2,1049,0)="""RTN"",""DG53705I"",102,0)"
^XMB(3.9,9,2,1050,0)=" ;"
^XMB(3.9,9,2,1051,0)="""RTN"",""DG53705I"",103,0)"
^XMB(3.9,9,2,1052,0)="STEP D BMES^XPDUTL("">>> Step Completed."")"
^XMB(3.9,9,2,1053,0)="""RTN"",""DG53705I"",104,0)"
^XMB(3.9,9,2,1054,0)=" Q"
^XMB(3.9,9,2,1055,0)="""RTN"",""DG53705I"",105,0)"
^XMB(3.9,9,2,1056,0)=" ;"
^XMB(3.9,9,2,1057,0)="""RTN"",""DG53705I"",106,0)"
^XMB(3.9,9,2,1058,0)="DONE D BMES^XPDUTL("">>> Pre-install Cleanup Completed."")"
^XMB(3.9,9,2,1059,0)="""RTN"",""DG53705I"",107,0)"
^XMB(3.9,9,2,1060,0)=" S ^TMP(""DG*5.3*705"",$J)=""1^PATCH DVB*4*54 INSTALLED"""
^XMB(3.9,9,2,1061,0)="""RTN"",""DG53705I"",108,0)"
^XMB(3.9,9,2,1062,0)=" Q"
^XMB(3.9,9,2,1063,0)="""RTN"",""DG53705I"",109,0)"
^XMB(3.9,9,2,1064,0)=" ;"
^XMB(3.9,9,2,1065,0)="""RTN"",""DG53705I"",110,0)"
^XMB(3.9,9,2,1066,0)="CLEAN ; Erase TMP global used to screen DD update"
^XMB(3.9,9,2,1067,0)="""RTN"",""DG53705I"",111,0)"
^XMB(3.9,9,2,1068,0)=" K ^TMP(""DG*5.3*705"",$J)"
^XMB(3.9,9,2,1069,0)="""RTN"",""DG53705I"",112,0)"
^XMB(3.9,9,2,1070,0)=" Q"
^XMB(3.9,9,2,1071,0)="""RTN"",""DG53705I"",113,0)"
^XMB(3.9,9,2,1072,0)=" ;"
^XMB(3.9,9,2,1073,0)="""RTN"",""DG53705I"",114,0)"
^XMB(3.9,9,2,1074,0)="XREF ; Xrefs that must be deleted"
^XMB(3.9,9,2,1075,0)="""RTN"",""DG53705I"",115,0)"
^XMB(3.9,9,2,1076,0)=" ;; Pieces are: File #^Fld #^xref default #or null^xref name"
^XMB(3.9,9,2,1077,0)="""RTN"",""DG53705I"",116,0)"
^XMB(3.9,9,2,1078,0)=" ;;2^.01^^AHL"
^XMB(3.9,9,2,1079,0)="""RTN"",""DG53705I"",117,0)"
^XMB(3.9,9,2,1080,0)=" ;;2^.02^^AHL2"
^XMB(3.9,9,2,1081,0)="""RTN"",""DG53705I"",118,0)"
^XMB(3.9,9,2,1082,0)=" ;;2^.03^^AHL3"
^XMB(3.9,9,2,1083,0)="""RTN"",""DG53705I"",119,0)"
^XMB(3.9,9,2,1084,0)=" ;;2^.03^5^DGFCMON"
^XMB(3.9,9,2,1085,0)="""RTN"",""DG53705I"",120,0)"
^XMB(3.9,9,2,1086,0)=" ;;2^.05^993^AENR05"
^XMB(3.9,9,2,1087,0)="""RTN"",""DG53705I"",121,0)"
^XMB(3.9,9,2,1088,0)=" ;;2^.06^^AHL5"
^XMB(3.9,9,2,1089,0)="""RTN"",""DG53705I"",122,0)"
^XMB(3.9,9,2,1090,0)=" ;;2^.09^^AHL4"
^XMB(3.9,9,2,1091,0)="""RTN"",""DG53705I"",123,0)"
^XMB(3.9,9,2,1092,0)=" ;;2^.102^^A4EC"
^XMB(3.9,9,2,1093,0)="""RTN"",""DG53705I"",124,0)"
^XMB(3.9,9,2,1094,0)=" ;;2^.118^3^AENR118"
^XMB(3.9,9,2,1095,0)="""RTN"",""DG53705I"",125,0)"
^XMB(3.9,9,2,1096,0)=" ;;2^.121^1^AENR121"
^XMB(3.9,9,2,1097,0)="""RTN"",""DG53705I"",126,0)"
^XMB(3.9,9,2,1098,0)=" ;;2^.12111^1^AENR12111"
^XMB(3.9,9,2,1099,0)="""RTN"",""DG53705I"",127,0)"
^XMB(3.9,9,2,1100,0)=" ;;2^.1219^1^AENR1219"
^XMB(3.9,9,2,1101,0)="""RTN"",""DG53705I"",128,0)"
^XMB(3.9,9,2,1102,0)=" ;;2^.14111^1^AENR14111"
^XMB(3.9,9,2,1103,0)="""RTN"",""DG53705I"",129,0)"
^XMB(3.9,9,2,1104,0)=" ;;2^.152^4^AU"
^XMB(3.9,9,2,1105,0)="""RTN"",""DG53705I"",130,0)"
^XMB(3.9,9,2,1106,0)=" ;;2^.1656^1^AENR1656"
^XMB(3.9,9,2,1107,0)="""RTN"",""DG53705I"",131,0)"
^XMB(3.9,9,2,1108,0)=" ;;2^.293^1^AENR293"
^XMB(3.9,9,2,1109,0)="""RTN"",""DG53705I"",132,0)"
^XMB(3.9,9,2,1110,0)=" ;;2^.302^^ACP"
^XMB(3.9,9,2,1111,0)="""RTN"",""DG53705I"",133,0)"
^XMB(3.9,9,2,1112,0)=" ;;2^.302^^AP"
^XMB(3.9,9,2,1113,0)="""RTN"",""DG53705I"",134,0)"
^XMB(3.9,9,2,1114,0)=" ;;2^.3025^3^AENR3025"
^XMB(3.9,9,2,1115,0)="""RTN"",""DG53705I"",135,0)"
^XMB(3.9,9,2,1116,0)=" ;;2^.3025^^CHK4"
^XMB(3.9,9,2,1117,0)="""RTN"",""DG53705I"",136,0)"
^XMB(3.9,9,2,1118,0)=" ;;2^.304^1^AENR304"
^XMB(3.9,9,2,1119,0)="""RTN"",""DG53705I"",137,0)"
^XMB(3.9,9,2,1120,0)=" ;;2^.307^1^AENR307"
^XMB(3.9,9,2,1121,0)="""RTN"",""DG53705I"",138,0)"
^XMB(3.9,9,2,1122,0)=" ;;2^.3111^2^AENR3111"
^XMB(3.9,9,2,1123,0)="""RTN"",""DG53705I"",139,0)"
^XMB(3.9,9,2,1124,0)=" ;;2^.31115^^AEMP"
^XMB(3.9,9,2,1125,0)="""RTN"",""DG53705I"",140,0)"
^XMB(3.9,9,2,1126,0)=" ;;2^.31115^992^AENR31115"
^XMB(3.9,9,2,1127,0)="""RTN"",""DG53705I"",141,0)"
^XMB(3.9,9,2,1128,0)=" ;;2^.31115^^MAC"
^XMB(3.9,9,2,1129,0)="""RTN"",""DG53705I"",142,0)"
^XMB(3.9,9,2,1130,0)=" ;;2^.312^2^AENR312"
^XMB(3.9,9,2,1131,0)="""RTN"",""DG53705I"",143,0)"
^XMB(3.9,9,2,1132,0)=" ;;2^.313^992^AENR313"
^XMB(3.9,9,2,1133,0)="""RTN"",""DG53705I"",144,0)"
^XMB(3.9,9,2,1134,0)=" ;;2^.3192^1^AENR3192"
^XMB(3.9,9,2,1135,0)="""RTN"",""DG53705I"",145,0)"
^XMB(3.9,9,2,1136,0)=" ;;2^.32102^^AI"
^XMB(3.9,9,2,1137,0)="""RTN"",""DG53705I"",146,0)"
^XMB(3.9,9,2,1138,0)=" ;;2^.32103^^AK"
^XMB(3.9,9,2,1139,0)="""RTN"",""DG53705I"",147,0)"
^XMB(3.9,9,2,1140,0)=" ;;2^.323^992^AENR323"
^XMB(3.9,9,2,1141,0)="""RTN"",""DG53705I"",148,0)"
^XMB(3.9,9,2,1142,0)=" ;;2^.351^^AEXP"
^XMB(3.9,9,2,1143,0)="""RTN"",""DG53705I"",149,0)"
^XMB(3.9,9,2,1144,0)=" ;;2^.351^^AHL6"
^XMB(3.9,9,2,1145,0)="""RTN"",""DG53705I"",150,0)"
^XMB(3.9,9,2,1146,0)=" ;;2^.351^^AT"
^XMB(3.9,9,2,1147,0)="""RTN"",""DG53705I"",151,0)"
^XMB(3.9,9,2,1148,0)=" ;;2^.353^1^AENR353"
^XMB(3.9,9,2,1149,0)="""RTN"",""DG53705I"",152,0)"
^XMB(3.9,9,2,1150,0)=" ;;2^.354^1^AENR354"
^XMB(3.9,9,2,1151,0)="""RTN"",""DG53705I"",153,0)"
^XMB(3.9,9,2,1152,0)=" ;;2^.361^^AR"
^XMB(3.9,9,2,1153,0)="""RTN"",""DG53705I"",154,0)"
^XMB(3.9,9,2,1154,0)=" ;;2^.3611^3^AENR3611"
^XMB(3.9,9,2,1155,0)="""RTN"",""DG53705I"",155,0)"
^XMB(3.9,9,2,1156,0)=" ;;2^.3612^2^AENR3612"
^XMB(3.9,9,2,1157,0)="""RTN"",""DG53705I"",156,0)"
^XMB(3.9,9,2,1158,0)=" ;;2^.3615^1^AENR3615"
^XMB(3.9,9,2,1159,0)="""RTN"",""DG53705I"",157,0)"
^XMB(3.9,9,2,1160,0)=" ;;2^.3617^1^AENR3617"
^XMB(3.9,9,2,1161,0)="""RTN"",""DG53705I"",158,0)"
^XMB(3.9,9,2,1162,0)=" ;;2^.3618^1^AENR3618"
^XMB(3.9,9,2,1163,0)="""RTN"",""DG53705I"",159,0)"
^XMB(3.9,9,2,1164,0)=" ;;2^.36205^^BEN"
^XMB(3.9,9,2,1165,0)="""RTN"",""DG53705I"",160,0)"
^XMB(3.9,9,2,1166,0)=" ;;2^.36205^^CHK1"
^XMB(3.9,9,2,1167,0)="""RTN"",""DG53705I"",161,0)"
^XMB(3.9,9,2,1168,0)=" ;;2^.36215^^CHK2"
^XMB(3.9,9,2,1169,0)="""RTN"",""DG53705I"",162,0)"
^XMB(3.9,9,2,1170,0)=" ;;2^.36235^^CHK3"
^XMB(3.9,9,2,1171,0)="""RTN"",""DG53705I"",163,0)"
^XMB(3.9,9,2,1172,0)=" ;;2^.381^^AT"
^XMB(3.9,9,2,1173,0)="""RTN"",""DG53705I"",164,0)"
^XMB(3.9,9,2,1174,0)=" ;;2^.382^1^AENR382"
^XMB(3.9,9,2,1175,0)="""RTN"",""DG53705I"",165,0)"
^XMB(3.9,9,2,1176,0)=" ;;2^.391^1^AENR391"
^XMB(3.9,9,2,1177,0)="""RTN"",""DG53705I"",166,0)"
^XMB(3.9,9,2,1178,0)=" ;;2^.392^1^AENR392"
^XMB(3.9,9,2,1179,0)="""RTN"",""DG53705I"",167,0)"
^XMB(3.9,9,2,1180,0)=" ;;2^.393^1^AENR393"
^XMB(3.9,9,2,1181,0)="""RTN"",""DG53705I"",168,0)"
^XMB(3.9,9,2,1182,0)=" ;;2^.394^1^AENR394"
^XMB(3.9,9,2,1183,0)="""RTN"",""DG53705I"",169,0)"
^XMB(3.9,9,2,1184,0)=" ;;2^.395^1^AENR395"
^XMB(3.9,9,2,1185,0)="""RTN"",""DG53705I"",170,0)"
^XMB(3.9,9,2,1186,0)=" ;;2^.532^2^AENR532"
^XMB(3.9,9,2,1187,0)="""RTN"",""DG53705I"",171,0)"
^XMB(3.9,9,2,1188,0)=" ;;2^.533^1^AENR533"
^XMB(3.9,9,2,1189,0)="""RTN"",""DG53705I"",172,0)"
^XMB(3.9,9,2,1190,0)=" ;;2^1010.1511^1^AENR10101511"
^XMB(3.9,9,2,1191,0)="""RTN"",""DG53705I"",173,0)"
^XMB(3.9,9,2,1192,0)=" ;;2^1010.159^1^AENR1010159"
^XMB(3.9,9,2,1193,0)="""RTN"",""DG53705I"",174,0)"
^XMB(3.9,9,2,1194,0)=" ;;2^1901^2^AN"
^XMB(3.9,9,2,1195,0)="""RTN"",""DG53705I"",175,0)"
^XMB(3.9,9,2,1196,0)=" ;;2.04^.01^1^AENR01"
^XMB(3.9,9,2,1197,0)="""RTN"",""DG53705I"",176,0)"
^XMB(3.9,9,2,1198,0)=" ;;2.04^2^1^AENR2"
^XMB(3.9,9,2,1199,0)="""RTN"",""DG53705I"",177,0)"
^XMB(3.9,9,2,1200,0)=" ;;2.04^3^1^AENR3"
^XMB(3.9,9,2,1201,0)="""RTN"",""DG53705I"",178,0)"
^XMB(3.9,9,2,1202,0)=" ;;2.312^.01^6^AENR01"
^XMB(3.9,9,2,1203,0)="""RTN"",""DG53705I"",179,0)"
^XMB(3.9,9,2,1204,0)=" ;;2.312^.18^2^AENR18"
^XMB(3.9,9,2,1205,0)="""RTN"",""DG53705I"",180,0)"
^XMB(3.9,9,2,1206,0)=" ;;2.312^1^2^AENR1"
^XMB(3.9,9,2,1207,0)="""RTN"",""DG53705I"",181,0)"
^XMB(3.9,9,2,1208,0)=" ;;2.312^2^1^AENR2"
^XMB(3.9,9,2,1209,0)="""RTN"",""DG53705I"",182,0)"
^XMB(3.9,9,2,1210,0)=" ;;2.312^3^2^AENR3"
^XMB(3.9,9,2,1211,0)="""RTN"",""DG53705I"",183,0)"
^XMB(3.9,9,2,1212,0)=" ;;2.312^6^1^AENR6"
^XMB(3.9,9,2,1213,0)="""RTN"",""DG53705I"",184,0)"
^XMB(3.9,9,2,1214,0)=" ;;2.312^8^2^AENR8"
^XMB(3.9,9,2,1215,0)="""RTN"",""DG53705I"",185,0)"
^XMB(3.9,9,2,1216,0)=" ;;2.312^17^1^AENR17"
^XMB(3.9,9,2,1217,0)="""RTN"",""DG53705I"",186,0)"
^XMB(3.9,9,2,1218,0)=" ;;2.396^.01^2^AENR01"
^XMB(3.9,9,2,1219,0)="""RTN"",""DG53705I"",187,0)"
^XMB(3.9,9,2,1220,0)=" ;;2.397^.01^2^AENR01"
^XMB(3.9,9,2,1221,0)="""RTN"",""DG53705I"",188,0)"
^XMB(3.9,9,2,1222,0)=" ;;2.397^1^1^AENR1"
^XMB(3.9,9,2,1223,0)="""RTN"",""DG53705I"",189,0)"
^XMB(3.9,9,2,1224,0)=" ;;2.398^.01^2^AENR01"
^XMB(3.9,9,2,1225,0)="""RTN"",""DG53705I"",190,0)"
^XMB(3.9,9,2,1226,0)=" ;;2.398^1^1^AENR1"
^XMB(3.9,9,2,1227,0)="""RTN"",""DG53705I"",191,0)"
^XMB(3.9,9,2,1228,0)=" ;;2.398^2^1^AENR2"
^XMB(3.9,9,2,1229,0)="""UP"",2,2.01,-1)"
^XMB(3.9,9,2,1230,0)="2^.01"
^XMB(3.9,9,2,1231,0)="""UP"",2,2.01,0)"
^XMB(3.9,9,2,1232,0)="2.01"
^XMB(3.9,9,2,1233,0)="""UP"",2,2.101,-1)"
^XMB(3.9,9,2,1234,0)="2^DIS"
^XMB(3.9,9,2,1235,0)="""UP"",2,2.101,0)"
^XMB(3.9,9,2,1236,0)="2.101"
^XMB(3.9,9,2,1237,0)="""VER"")"
^XMB(3.9,9,2,1238,0)="8.0^22.0"
^XMB(3.9,9,2,1239,0)="""^DD"",2,2,.01,0)"
^XMB(3.9,9,2,1240,0)="NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,30) K:'$L(X) X,DG20NAME S:$D(X) DGNEWVAL=X"
^XMB(3.9,9,2,1241,0)="""^DD"",2,2,.01,.1)"
^XMB(3.9,9,2,1242,0)=""
^XMB(3.9,9,2,1243,0)="""^DD"",2,2,.01,1,0)"
^XMB(3.9,9,2,1244,0)="^.1"
^XMB(3.9,9,2,1245,0)="""^DD"",2,2,.01,1,1,0)"
^XMB(3.9,9,2,1246,0)="2^B"
^XMB(3.9,9,2,1247,0)="""^DD"",2,2,.01,1,1,1)"
^XMB(3.9,9,2,1248,0)="S ^DPT(""B"",$E(X,1,30),DA)="""""
^XMB(3.9,9,2,1249,0)="""^DD"",2,2,.01,1,1,2)"
^XMB(3.9,9,2,1250,0)="K ^DPT(""B"",$E(X,1,30),DA)"
^XMB(3.9,9,2,1251,0)="""^DD"",2,2,.01,1,2,0)"
^XMB(3.9,9,2,1252,0)="2^BS5^MUMPS"
^XMB(3.9,9,2,1253,0)="""^DD"",2,2,.01,1,2,1)"
^XMB(3.9,9,2,1254,0)="Q:$P(^DPT(DA,0),U,9)']""""  S ^DPT(""BS5"",$E(X,1)_$E($P(^(0),U,9),6,9),DA)="""""
^XMB(3.9,9,2,1255,0)="""^DD"",2,2,.01,1,2,2)"
^XMB(3.9,9,2,1256,0)="Q:$P(^DPT(DA,0),U,9)']""""  K ^DPT(""BS5"",$E(X,1)_$E($P(^(0),U,9),6,9),DA)"
^XMB(3.9,9,2,1257,0)="""^DD"",2,2,.01,1,3,0)"
^XMB(3.9,9,2,1258,0)="2^AENR01^MUMPS"
^XMB(3.9,9,2,1259,0)="""^DD"",2,2,.01,1,3,1)"
^XMB(3.9,9,2,1260,0)="D EVENT^IVMPLOG(DA)"
^XMB(3.9,9,2,1261,0)="""^DD"",2,2,.01,1,3,2)"
^XMB(3.9,9,2,1262,0)="D EVENT^IVMPLOG(DA)"
^XMB(3.9,9,2,1263,0)="""^DD"",2,2,.01,1,3,3)"
^XMB(3.9,9,2,1264,0)="DO NOT DELETE"
^XMB(3.9,9,2,1265,0)="""^DD"",2,2,.01,1,3,""%D"",0)"
^XMB(3.9,9,2,1266,0)="^^2^2^2971007^^^^"
^XMB(3.9,9,2,1267,0)="""^DD"",2,2,.01,1,3,""%D"",1,0)"
^XMB(3.9,9,2,1268,0)="This cross-reference is used to notify HEC of changes that may affect"
^XMB(3.9,9,2,1269,0)="""^DD"",2,2,.01,1,3,""%D"",2,0)"
^XMB(3.9,9,2,1270,0)="enrollment. "
^XMB(3.9,9,2,1271,0)="""^DD"",2,2,.01,1,3,""DT"")"
^XMB(3.9,9,2,1272,0)="2971007"
^XMB(3.9,9,2,1273,0)="""^DD"",2,2,.01,1,4,0)"
^XMB(3.9,9,2,1274,0)="2^AODS2^MUMPS"
^XMB(3.9,9,2,1275,0)="""^DD"",2,2,.01,1,4,1)"
^XMB(3.9,9,2,1276,0)="S A1B2TAG=""PAT"" D ^A1B2XFR"
^XMB(3.9,9,2,1277,0)="""^DD"",2,2,.01,1,4,2)"
^XMB(3.9,9,2,1278,0)="S A1B2TAG=""PAT"" D ^A1B2XFR"
^XMB(3.9,9,2,1279,0)="""^DD"",2,2,.01,1,5,0)"
^XMB(3.9,9,2,1280,0)="2^ABUL^MUMPS"
^XMB(3.9,9,2,1281,0)="""^DD"",2,2,.01,1,5,1)"
^XMB(3.9,9,2,1282,0)="K DGNEWVAL Q"
^XMB(3.9,9,2,1283,0)="""^DD"",2,2,.01,1,5,2)"
^XMB(3.9,9,2,1284,0)="S DFN=DA D ^DGPATN K DGNEWVAL Q"
^XMB(3.9,9,2,1285,0)="""^DD"",2,2,.01,1,5,""%D"",0)"
^XMB(3.9,9,2,1286,0)="^^2^2^2950110^"
^XMB(3.9,9,2,1287,0)="""^DD"",2,2,.01,1,5,""%D"",1,0)"
^XMB(3.9,9,2,1288,0)="This cross-reference will generate a mail message when a patient is deleted"
^XMB(3.9,9,2,1289,0)="""^DD"",2,2,.01,1,5,""%D"",2,0)"
^XMB(3.9,9,2,1290,0)="or the patient's name is changed."
^XMB(3.9,9,2,1291,0)="""^DD"",2,2,.01,1,5,""DT"")"
^XMB(3.9,9,2,1292,0)="2950110"
^XMB(3.9,9,2,1293,0)="""^DD"",2,2,.01,1,301,0)"
^XMB(3.9,9,2,1294,0)="2^IVM01^MUMPS"
^XMB(3.9,9,2,1295,0)="""^DD"",2,2,.01,1,301,1)"
^XMB(3.9,9,2,1296,0)="S IVMX=X,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T DPT^IVMPXFR S X=IVMX K IVMX"
^XMB(3.9,9,2,1297,0)="""^DD"",2,2,.01,1,301,2)"
^XMB(3.9,9,2,1298,0)="S IVMX=X,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T DPT^IVMPXFR S X=IVMX K IVMX"
^XMB(3.9,9,2,1299,0)="""^DD"",2,2,.01,1,301,""%D"",0)"
^XMB(3.9,9,2,1300,0)="^^5^5^2930513^"
^XMB(3.9,9,2,1301,0)="""^DD"",2,2,.01,1,301,""%D"",1,0)"
^XMB(3.9,9,2,1302,0)="This cross-reference will check the IVM PATIENT file to see if a change"
^XMB(3.9,9,2,1303,0)="""^DD"",2,2,.01,1,301,""%D"",2,0)"
^XMB(3.9,9,2,1304,0)="to this field will require transmission to the IVM Center.  If it does,"
^XMB(3.9,9,2,1305,0)="""^DD"",2,2,.01,1,301,""%D"",3,0)"
^XMB(3.9,9,2,1306,0)="the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and"
^XMB(3.9,9,2,1307,0)="""^DD"",2,2,.01,1,301,""%D"",4,0)"
^XMB(3.9,9,2,1308,0)="the nightly background job will transmit the updated information."
^XMB(3.9,9,2,1309,0)="""^DD"",2,2,.01,1,301,""DT"")"
^XMB(3.9,9,2,1310,0)="2930513"
^XMB(3.9,9,2,1311,0)="""^DD"",2,2,.01,1,991,0)"
^XMB(3.9,9,2,1312,0)="2^AVAFC01^MUMPS"
^XMB(3.9,9,2,1313,0)="""^DD"",2,2,.01,1,991,1)"
^XMB(3.9,9,2,1314,0)="I '$D(DFN),($T(AVAFC^VAFCDD01)'="""") S VAFCF="".01;"" D AVAFC^VAFCDD01(DA)"
^XMB(3.9,9,2,1315,0)="""^DD"",2,2,.01,1,991,2)"
^XMB(3.9,9,2,1316,0)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".01;"" D AVAFC^VAFCDD01(DA)"
^XMB(3.9,9,2,1317,0)="""^DD"",2,2,.01,1,991,""%D"",0)"
^XMB(3.9,9,2,1318,0)="^^15^15^2990204^^^^"
^XMB(3.9,9,2,1319,0)="""^DD"",2,2,.01,1,991,""%D"",1,0)"
^XMB(3.9,9,2,1320,0)="This cross reference is used to remember that changes were made to the"
^XMB(3.9,9,2,1321,0)="""^DD"",2,2,.01,1,991,""%D"",2,0)"
^XMB(3.9,9,2,1322,0)="PATIENT file (#2) outside of the Registration process.  Execution of this"
^XMB(3.9,9,2,1323,0)="""^DD"",2,2,.01,1,991,""%D"",3,0)"
^XMB(3.9,9,2,1324,0)="cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)"
^XMB(3.9,9,2,1325,0)="""^DD"",2,2,.01,1,991,""%D"",4,0)"
^XMB(3.9,9,2,1326,0)="and mark it as requiring transmission of an HL7 ADT-A08 message."
^XMB(3.9,9,2,1327,0)="""^DD"",2,2,.01,1,991,""%D"",5,0)"
^XMB(3.9,9,2,1328,0)=" "
^XMB(3.9,9,2,1329,0)="""^DD"",2,2,.01,1,991,""%D"",6,0)"
^XMB(3.9,9,2,1330,0)="The local variable VAFCFLG will be set to 1 if the cross reference is"
^XMB(3.9,9,2,1331,0)="""^DD"",2,2,.01,1,991,""%D"",7,0)"
^XMB(3.9,9,2,1332,0)="not executed because the change is being made from within the Registration"
^XMB(3.9,9,2,1333,0)="""^DD"",2,2,.01,1,991,""%D"",8,0)"
^XMB(3.9,9,2,1334,0)="process."
^XMB(3.9,9,2,1335,0)="""^DD"",2,2,.01,1,991,""%D"",9,0)"
^XMB(3.9,9,2,1336,0)=" "
^XMB(3.9,9,2,1337,0)="""^DD"",2,2,.01,1,991,""%D"",10,0)"
^XMB(3.9,9,2,1338,0)="Execution of this cross reference can be prevented by setting the local"
^XMB(3.9,9,2,1339,0)="""^DD"",2,2,.01,1,991,""%D"",11,0)"
^XMB(3.9,9,2,1340,0)="variable VAFCA08 equal to 1."
^XMB(3.9,9,2,1341,0)="""^DD"",2,2,.01,1,991,""%D"",12,0)"
^XMB(3.9,9,2,1342,0)=" "
^XMB(3.9,9,2,1343,0)="""^DD"",2,2,.01,1,991,""%D"",13,0)"
^XMB(3.9,9,2,1344,0)="The local variable VAFCF is used to identify the field edited."
^XMB(3.9,9,2,1345,0)="""^DD"",2,2,.01,1,991,""%D"",14,0)"
^XMB(3.9,9,2,1346,0)="This data is stored in the FIELD(S) EDITED (#2.1) field in the "
^XMB(3.9,9,2,1347,0)="""^DD"",2,2,.01,1,991,""%D"",15,0)"
^XMB(3.9,9,2,1348,0)="ADT/HL7 PIVOT file (#391.71)."
^XMB(3.9,9,2,1349,0)="""^DD"",2,2,.01,1,991,""DT"")"
^XMB(3.9,9,2,1350,0)="2970825"
^XMB(3.9,9,2,1351,0)="""^DD"",2,2,.01,1,992,0)"
^XMB(3.9,9,2,1352,0)="2^AMPIMIS^MUMPS"
^XMB(3.9,9,2,1353,0)="""^DD"",2,2,.01,1,992,1)"
^XMB(3.9,9,2,1354,0)="I $T(SET^VAFCMIS)'=""""&('$D(VAFCNO)) D SET^VAFCMIS(DA)"
^XMB(3.9,9,2,1355,0)="""^DD"",2,2,.01,1,992,2)"
^XMB(3.9,9,2,1356,0)="I $T(KILL^VAFCMIS)'=""""&('$D(VAFCNO)) D KILL^VAFCMIS(DA)"
^XMB(3.9,9,2,1357,0)="""^DD"",2,2,.01,1,992,""%D"",0)"
^XMB(3.9,9,2,1358,0)="^^4^4^2980114^^^^"
^XMB(3.9,9,2,1359,0)="""^DD"",2,2,.01,1,992,""%D"",1,0)"
^XMB(3.9,9,2,1360,0)="Temporary cross reference that lets the MPI Missing ICN job know that a"
^XMB(3.9,9,2,1361,0)="""^DD"",2,2,.01,1,992,""%D"",2,0)"
^XMB(3.9,9,2,1362,0)="patient was added to the Patient file, via another package other than"
^XMB(3.9,9,2,1363,0)="""^DD"",2,2,.01,1,992,""%D"",3,0)"
^XMB(3.9,9,2,1364,0)="PIMS, and needs to get an ICN.  Once the ICN is assigned (local or"
^XMB(3.9,9,2,1365,0)="""^DD"",2,2,.01,1,992,""%D"",4,0)"
^XMB(3.9,9,2,1366,0)="national) the cross reference is killed."
^XMB(3.9,9,2,1367,0)="""^DD"",2,2,.01,1,992,""DT"")"
^XMB(3.9,9,2,1368,0)="3030603"
^XMB(3.9,9,2,1369,0)="""^DD"",2,2,.01,1,993,0)"
^XMB(3.9,9,2,1370,0)="2^ADGRU01^MUMPS"
^XMB(3.9,9,2,1371,0)="""^DD"",2,2,.01,1,993,1)"
^XMB(3.9,9,2,1372,0)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^XMB(3.9,9,2,1373,0)="""^DD"",2,2,.01,1,993,2)"
^XMB(3.9,9,2,1374,0)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^XMB(3.9,9,2,1375,0)="""^DD"",2,2,.01,1,993,""%D"",0)"
^XMB(3.9,9,2,1376,0)="^^9^9^3000208^"
^XMB(3.9,9,2,1377,0)="""^DD"",2,2,.01,1,993,""%D"",1,0)"
^XMB(3.9,9,2,1378,0)="This cross reference is used to remember that changes were made to a"
^XMB(3.9,9,2,1379,0)="""^DD"",2,2,.01,1,993,""%D"",2,0)"
^XMB(3.9,9,2,1380,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^XMB(3.9,9,2,1381,0)="""^DD"",2,2,.01,1,993,""%D"",3,0)"
^XMB(3.9,9,2,1382,0)="RAI/MDS COTS system.  Execution of this cross reference will create an"
^XMB(3.9,9,2,1383,0)="""^DD"",2,2,.01,1,993,""%D"",4,0)"
^XMB(3.9,9,2,1384,0)="entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^XMB(3.9,9,2,1385,0)="""^DD"",2,2,.01,1,993,""%D"",5,0)"
^XMB(3.9,9,2,1386,0)="transmission of an HL7 demographic A08 update message to the COTS"
^XMB(3.9,9,2,1387,0)="""^DD"",2,2,.01,1,993,""%D"",6,0)"
^XMB(3.9,9,2,1388,0)="interface."
^XMB(3.9,9,2,1389,0)="""^DD"",2,2,.01,1,993,""%D"",7,0)"
^XMB(3.9,9,2,1390,0)=" "
^XMB(3.9,9,2,1391,0)="""^DD"",2,2,.01,1,993,""%D"",8,0)"
^XMB(3.9,9,2,1392,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is not"
^XMB(3.9,9,2,1393,0)="""^DD"",2,2,.01,1,993,""%D"",9,0)"
^XMB(3.9,9,2,1394,0)="to be executed as part of a re-indexing."
^XMB(3.9,9,2,1395,0)="""^DD"",2,2,.01,1,993,""DT"")"
^XMB(3.9,9,2,1396,0)="3000208"
^XMB(3.9,9,2,1397,0)="""^DD"",2,2,.01,3)"
^XMB(3.9,9,2,1398,0)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-30 characters in length."
^XMB(3.9,9,2,1399,0)="""^DD"",2,2,.01,7.5)"
^XMB(3.9,9,2,1400,0)="D INPUT^DGRPDD1"
^XMB(3.9,9,2,1401,0)="""^DD"",2,2,.01,20,0)"
^XMB(3.9,9,2,1402,0)="^.3LA^1^1"
^XMB(3.9,9,2,1403,0)="""^DD"",2,2,.01,20,1,0)"
^XMB(3.9,9,2,1404,0)="DEMOG^"
^XMB(3.9,9,2,1405,0)="""^DD"",2,2,.01,21,0)"
^XMB(3.9,9,2,1406,0)="^^4^4^2990208^^^^"
^XMB(3.9,9,2,1407,0)="""^DD"",2,2,.01,21,1,0)"
^XMB(3.9,9,2,1408,0)="Enter the patient's name in 'LAST,FIRST MIDDLE SUFFIX' format."
^XMB(3.9,9,2,1409,0)="""^DD"",2,2,.01,21,2,0)"
^XMB(3.9,9,2,1410,0)="This value must be 3-30 characters in length and may contain only uppercase"
^XMB(3.9,9,2,1411,0)="""^DD"",2,2,.01,21,3,0)"
^XMB(3.9,9,2,1412,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"
^XMB(3.9,9,2,1413,0)="""^DD"",2,2,.01,21,4,0)"
^XMB(3.9,9,2,1414,0)="characters and parenthetical text will be removed."
^XMB(3.9,9,2,1415,0)="""^DD"",2,2,.01,""AUDIT"")"
^XMB(3.9,9,2,1416,0)="n"
^XMB(3.9,9,2,1417,0)="""^DD"",2,2,.01,""AX"")"
^XMB(3.9,9,2,1418,0)="I 1"
^XMB(3.9,9,2,1419,0)="""^DD"",2,2,.01,""DEL"",100,0)"
^XMB(3.9,9,2,1420,0)="I $D(^OR(100,""ACT"",DA_"";DPT("")) D EN^DDIOL(""Patient orders must be deleted first."","""",""!?0"")"
^XMB(3.9,9,2,1421,0)="""^DD"",2,2,.01,""DEL"",401,0)"
^XMB(3.9,9,2,1422,0)="I $O(^DGPM(""C"",DA,0)) W *7,!,""Delete Patient Movements First"",!"
^XMB(3.9,9,2,1423,0)="""^DD"",2,2,.01,""DEL"",1900,0)"
^XMB(3.9,9,2,1424,0)="I $N(^DPT(DA,""S"",DT))+1 W *7,!,""APPOINTMENT(S) PENDING!"""
^XMB(3.9,9,2,1425,0)="""^DD"",2,2,.01,""DEL"",3000,0)"
^XMB(3.9,9,2,1426,0)="I $N(^PS(55,DA,""P"",0))+1 W *7,!,""PATIENT HAS OUTPATIENT PRESCRIPTIONS"""
^XMB(3.9,9,2,1427,0)="""^DD"",2,2,.01,""DEL"",999999,0)"
^XMB(3.9,9,2,1428,0)="D DEL^DPTLK2"
^XMB(3.9,9,2,1429,0)="""^DD"",2,2,.01,""DT"")"
^XMB(3.9,9,2,1430,0)="3050611"
^XMB(3.9,9,2,1431,0)="""^DD"",2,2,.02,0)"
^XMB(3.9,9,2,1432,0)="SEX^RSa^M:MALE;F:FEMALE;^0;2^Q"
^XMB(3.9,9,2,1433,0)="""^DD"",2,2,.02,1,0)"
^XMB(3.9,9,2,1434,0)="^.1^^-1"
^XMB(3.9,9,2,1435,0)="""^DD"",2,2,.02,1,1,0)"
^XMB(3.9,9,2,1436,0)="2^ASX"
^XMB(3.9,9,2,1437,0)="""^DD"",2,2,.02,1,1,1)"
^XMB(3.9,9,2,1438,0)="S ^DPT(""ASX"",$E(X,1,30),DA)="""""
^XMB(3.9,9,2,1439,0)="""^DD"",2,2,.02,1,1,2)"
^XMB(3.9,9,2,1440,0)="K ^DPT(""ASX"",$E(X,1,30),DA)"
^XMB(3.9,9,2,1441,0)="""^DD"",2,2,.02,1,2,0)"
^XMB(3.9,9,2,1442,0)="2^AENR02^MUMPS"
^XMB(3.9,9,2,1443,0)="""^DD"",2,2,.02,1,2,1)"
^XMB(3.9,9,2,1444,0)="D EVENT^IVMPLOG(DA)"
^XMB(3.9,9,2,1445,0)="""^DD"",2,2,.02,1,2,2)"
^XMB(3.9,9,2,1446,0)="D EVENT^IVMPLOG(DA)"
^XMB(3.9,9,2,1447,0)="""^DD"",2,2,.02,1,2,3)"
^XMB(3.9,9,2,1448,0)="DO NOT DELETE"
^XMB(3.9,9,2,1449,0)="""^DD"",2,2,.02,1,2,""%D"",0)"
^XMB(3.9,9,2,1450,0)="^^2^2^2971007^^^"
^XMB(3.9,9,2,1451,0)="""^DD"",2,2,.02,1,2,""%D"",1,0)"
^XMB(3.9,9,2,1452,0)="This cross-reference is used to notify HEC of changes that may affect"
^XMB(3.9,9,2,1453,0)="""^DD"",2,2,.02,1,2,""%D"",2,0)"
^XMB(3.9,9,2,1454,0)="enrollment. "
^XMB(3.9,9,2,1455,0)="""^DD"",2,2,.02,1,2,""DT"")"
^XMB(3.9,9,2,1456,0)="2971007"
^XMB(3.9,9,2,1457,0)="""^DD"",2,2,.02,1,301,0)"
^XMB(3.9,9,2,1458,0)="2^IVM02^MUMPS"
^XMB(3.9,9,2,1459,0)="""^DD"",2,2,.02,1,301,1)"
^XMB(3.9,9,2,1460,0)="S IVMX=X,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T DPT^IVMPXFR S X=IVMX K IVMX"
^XMB(3.9,9,2,1461,0)="""^DD"",2,2,.02,1,301,2)"
^XMB(3.9,9,2,1462,0)="S IVMX=X,IVMKILL=2,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T DPT^IVMPXFR S X=IVMX K IVMX,IVMKILL"
^XMB(3.9,9,2,1463,0)="""^DD"",2,2,.02,1,301,""%D"",0)"
^XMB(3.9,9,2,1464,0)="^^8^8^2991027^"
^XMB(3.9,9,2,1465,0)="""^DD"",2,2,.02,1,301,""%D"",1,0)"
^XMB(3.9,9,2,1466,0)="This cross-reference will check the IVM PATIENT file to see if a change"
^XMB(3.9,9,2,1467,0)="""^DD"",2,2,.02,1,301,""%D"",2,0)"
^XMB(3.9,9,2,1468,0)="to this field will require transmission to the IVM Center.  If it does,"
^XMB(3.9,9,2,1469,0)="""^DD"",2,2,.02,1,301,""%D"",3,0)"
^XMB(3.9,9,2,1470,0)="the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and"
^XMB(3.9,9,2,1471,0)="""^DD"",2,2,.02,1,301,""%D"",4,0)"
^XMB(3.9,9,2,1472,0)="the nightly background job will transmit the updated information."
^XMB(3.9,9,2,1473,0)="""^DD"",2,2,.02,1,301,""%D"",5,0)"
^XMB(3.9,9,2,1474,0)=" "
^XMB(3.9,9,2,1475,0)="""^DD"",2,2,.02,1,301,""%D"",6,0)"
^XMB(3.9,9,2,1476,0)="Also, if this field is edited, this cross-reference will check to see if the"
^XMB(3.9,9,2,1477,0)="""^DD"",2,2,.02,1,301,""%D"",7,0)"
^XMB(3.9,9,2,1478,0)="patient requires a financial query to be sent to the IVM Center (Data"
^XMB(3.9,9,2,1479,0)="""^DD"",2,2,.02,1,301,""%D"",8,0)"
^XMB(3.9,9,2,1480,0)="Collection Division (DCD)."
^XMB(3.9,9,2,1481,0)="""^DD"",2,2,.02,1,301,""DT"")"
^XMB(3.9,9,2,1482,0)="2991027"
^XMB(3.9,9,2,1483,0)="""^DD"",2,2,.02,1,991,0)"
^XMB(3.9,9,2,1484,0)="2^AVAFC02^MUMPS"
^XMB(3.9,9,2,1485,0)="""^DD"",2,2,.02,1,991,1)"
^XMB(3.9,9,2,1486,0)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".02;"" D AVAFC^VAFCDD01(DA)"
^XMB(3.9,9,2,1487,0)="""^DD"",2,2,.02,1,991,2)"
^XMB(3.9,9,2,1488,0)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".02;"" D AVAFC^VAFCDD01(DA)"
^XMB(3.9,9,2,1489,0)="""^DD"",2,2,.02,1,991,""%D"",0)"
^XMB(3.9,9,2,1490,0)="^^15^15^2990204^^^^"
^XMB(3.9,9,2,1491,0)="""^DD"",2,2,.02,1,991,""%D"",1,0)"
^XMB(3.9,9,2,1492,0)="This cross reference is used to remember that changes were made to the"
^XMB(3.9,9,2,1493,0)="""^DD"",2,2,.02,1,991,""%D"",2,0)"
^XMB(3.9,9,2,1494,0)="PATIENT file (#2) outside of the Registration process.  Execution of this"
^XMB(3.9,9,2,1495,0)="""^DD"",2,2,.02,1,991,""%D"",3,0)"
^XMB(3.9,9,2,1496,0)="cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)"
^XMB(3.9,9,2,1497,0)="""^DD"",2,2,.02,1,991,""%D"",4,0)"
^XMB(3.9,9,2,1498,0)="and mark it as requiring transmission of an HL7 ADT-A08 message."
^XMB(3.9,9,2,1499,0)="""^DD"",2,2,.02,1,991,""%D"",5,0)"
^XMB(3.9,9,2,1500,0)=" "
^XMB(3.9,9,2,1501,0)="""^DD"",2,2,.02,1,991,""%D"",6,0)"
^XMB(3.9,9,2,1502,0)="The local variable VAFCFLG will be set to 1 if the cross reference is"
^XMB(3.9,9,2,1503,0)="""^DD"",2,2,.02,1,991,""%D"",7,0)"
^XMB(3.9,9,2,1504,0)="not executed because the change is being made from within the Registration"
^XMB(3.9,9,2,1505,0)="""^DD"",2,2,.02,1,991,""%D"",8,0)"
^XMB(3.9,9,2,1506,0)="process."
^XMB(3.9,9,2,1507,0)="""^DD"",2,2,.02,1,991,""%D"",9,0)"
^XMB(3.9,9,2,1508,0)=" "
^XMB(3.9,9,2,1509,0)="""^DD"",2,2,.02,1,991,""%D"",10,0)"
^XMB(3.9,9,2,1510,0)="Execution of this cross reference can be prevented by setting the local"
^XMB(3.9,9,2,1511,0)="""^DD"",2,2,.02,1,991,""%D"",11,0)"
^XMB(3.9,9,2,1512,0)="variable VAFCA08 equal to 1."
^XMB(3.9,9,2,1513,0)="""^DD"",2,2,.02,1,991,""%D"",12,0)"
^XMB(3.9,9,2,1514,0)="  "
^XMB(3.9,9,2,1515,0)="""^DD"",2,2,.02,1,991,""%D"",13,0)"
^XMB(3.9,9,2,1516,0)="The local variable VAFCF is used to identify the field edited."
^XMB(3.9,9,2,1517,0)="""^DD"",2,2,.02,1,991,""%D"",14,0)"
^XMB(3.9,9,2,1518,0)="This data is stored in the FIELD(S) EDITED (#2.1) field in the "
^XMB(3.9,9,2,1519,0)="""^DD"",2,2,.02,1,991,""%D"",15,0)"
^XMB(3.9,9,2,1520,0)="ADT/HL7 PIVOT file (#391.71)."
^XMB(3.9,9,2,1521,0)="""^DD"",2,2,.02,1,991,""DT"")"
^XMB(3.9,9,2,1522,0)="2970825"
^XMB(3.9,9,2,1523,0)="""^DD"",2,2,.02,1,992,0)"
^XMB(3.9,9,2,1524,0)="2^ADGRU02^MUMPS"
^XMB(3.9,9,2,1525,0)="""^DD"",2,2,.02,1,992,1)"
^XMB(3.9,9,2,1526,0)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^XMB(3.9,9,2,1527,0)="""^DD"",2,2,.02,1,992,2)"
^XMB(3.9,9,2,1528,0)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^XMB(3.9,9,2,1529,0)="""^DD"",2,2,.02,1,992,""%D"",0)"
^XMB(3.9,9,2,1530,0)="^^9^9^2990920^"
^XMB(3.9,9,2,1531,0)="""^DD"",2,2,.02,1,992,""%D"",1,0)"
^XMB(3.9,9,2,1532,0)="This cross reference is used to remember that changes were made to a "
^XMB(3.9,9,2,1533,0)="""^DD"",2,2,.02,1,992,""%D"",2,0)"
^XMB(3.9,9,2,1534,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^XMB(3.9,9,2,1535,0)="""^DD"",2,2,.02,1,992,""%D"",3,0)"
^XMB(3.9,9,2,1536,0)="RAI/MDS COTS system.  Execution of this cross reference will create"
^XMB(3.9,9,2,1537,0)="""^DD"",2,2,.02,1,992,""%D"",4,0)"
^XMB(3.9,9,2,1538,0)="an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^XMB(3.9,9,2,1539,0)="""^DD"",2,2,.02,1,992,""%D"",5,0)"
^XMB(3.9,9,2,1540,0)="transmission of an HL7 demographic A08 update message to the COTS"
^XMB(3.9,9,2,1541,0)="""^DD"",2,2,.02,1,992,""%D"",6,0)"
^XMB(3.9,9,2,1542,0)="interface."
^XMB(3.9,9,2,1543,0)="""^DD"",2,2,.02,1,992,""%D"",7,0)"
^XMB(3.9,9,2,1544,0)=" "
^XMB(3.9,9,2,1545,0)="""^DD"",2,2,.02,1,992,""%D"",8,0)"
^XMB(3.9,9,2,1546,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is"
^XMB(3.9,9,2,1547,0)="""^DD"",2,2,.02,1,992,""%D"",9,0)"
^XMB(3.9,9,2,1548,0)="not to be executed as part of a re-indexing."
^XMB(3.9,9,2,1549,0)="""^DD"",2,2,.02,1,992,""DT"")"
^XMB(3.9,9,2,1550,0)="2990920"
^XMB(3.9,9,2,1551,0)="""^DD"",2,2,.02,3)"
^XMB(3.9,9,2,1552,0)="Enter 'M' for MALE, or 'F' for FEMALE."
^XMB(3.9,9,2,1553,0)="""^DD"",2,2,.02,20,0)"
^XMB(3.9,9,2,1554,0)="^.3LA^1^1"
^XMB(3.9,9,2,1555,0)="""^DD"",2,2,.02,20,1,0)"
^XMB(3.9,9,2,1556,0)="DEMOG^"
^XMB(3.9,9,2,1557,0)="""^DD"",2,2,.02,21,0)"
^XMB(3.9,9,2,1558,0)="^^1^1^2920721^^^"
^XMB(3.9,9,2,1559,0)="""^DD"",2,2,.02,21,1,0)"
^XMB(3.9,9,2,1560,0)="Enter 'M' if this applicant is a male, or 'F' if female."
^XMB(3.9,9,2,1561,0)="""^DD"",2,2,.02,""AUDIT"")"
^XMB(3.9,9,2,1562,0)="y"
^XMB(3.9,9,2,1563,0)="""^DD"",2,2,.02,""DT"")"
^XMB(3.9,9,2,1564,0)="2990105"
^XMB(3.9,9,2,1565,0)="""^DD"",2,2,.03,0)"
^XMB(3.9,9,2,1566,0)="DATE OF BIRTH^RDXOa^^0;3^S %DT=""EP"" D ^%DT S X=Y K:1701231>X!(DT<X) X"
^XMB(3.9,9,2,1567,0)="""^DD"",2,2,.03,.1)"
^XMB(3.9,9,2,1568,0)="DOB"
^XMB(3.9,9,2,1569,0)="""^DD"",2,2,.03,1,0)"
^XMB(3.9,9,2,1570,0)="^.1^^-1"
^XMB(3.9,9,2,1571,0)="""^DD"",2,2,.03,1,1,0)"
^XMB(3.9,9,2,1572,0)="2^ADOB"
^XMB(3.9,9,2,1573,0)="""^DD"",2,2,.03,1,1,1)"
^XMB(3.9,9,2,1574,0)="S ^DPT(""ADOB"",$E(X,1,30),DA)="""""
^XMB(3.9,9,2,1575,0)="""^DD"",2,2,.03,1,1,2)"
^XMB(3.9,9,2,1576,0)="K ^DPT(""ADOB"",$E(X,1,30),DA)"
^XMB(3.9,9,2,1577,0)="""^DD"",2,2,.03,1,2,0)"
^XMB(3.9,9,2,1578,0)="^^TRIGGER^2^.083"
^XMB(3.9,9,2,1579,0)="""^DD"",2,2,.03,1,2,1)"
^XMB(3.9,9,2,1580,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X=DIV S X=""1"" X ^DD(2,.03,1,2,1.4)"
^XMB(3.9,9,2,1581,0)="""^DD"",2,2,.03,1,2,1.4)"
^XMB(3.9,9,2,1582,0)="S DIH=$S($D(^DPT(DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,19,99))  S DIH=DIH_U"" S %=$P(DIH,U,21,999),DIU=$P(DIH,U,20),^(0)=$P(DIH,U,1,19)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.083 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,9,2,1583,0)="""^DD"",2,2,.03,1,2,2)"
^XMB(3.9,9,2,1584,0)="Q"
^XMB(3.9,9,2,1585,0)="""^DD"",2,2,.03,1,2,""CREATE VALUE"")"
^XMB(3.9,9,2,1586,0)="""1"""
^XMB(3.9,9,2,1587,0)="""^DD"",2,2,.03,1,2,""DELETE VALUE"")"
^XMB(3.9,9,2,1588,0)="NO EFFECT"
^XMB(3.9,9,2,1589,0)="""^DD"",2,2,.03,1,2,""FIELD"")"
^XMB(3.9,9,2,1590,0)="#.083"
^XMB(3.9,9,2,1591,0)="""^DD"",2,2,.03,1,3,0)"
^XMB(3.9,9,2,1592,0)="2^AODS3^MUMPS"
^XMB(3.9,9,2,1593,0)="""^DD"",2,2,.03,1,3,1)"
^XMB(3.9,9,2,1594,0)="S A1B2TAG=""PAT"" D ^A1B2XFR"
^XMB(3.9,9,2,1595,0)="""^DD"",2,2,.03,1,3,2)"
^XMB(3.9,9,2,1596,0)="S A1B2TAG=""PAT"" D ^A1B2XFR"
^XMB(3.9,9,2,1597,0)="""^DD"",2,2,.03,1,4,0)"
^XMB(3.9,9,2,1598,0)="2^AENR03^MUMPS"
^XMB(3.9,9,2,1599,0)="""^DD"",2,2,.03,1,4,1)"
^XMB(3.9,9,2,1600,0)="D EVENT^IVMPLOG(DA)"
^XMB(3.9,9,2,1601,0)="""^DD"",2,2,.03,1,4,2)"
^XMB(3.9,9,2,1602,0)="D EVENT^IVMPLOG(DA)"
^XMB(3.9,9,2,1603,0)="""^DD"",2,2,.03,1,4,3)"
^XMB(3.9,9,2,1604,0)="DO NOT DELETE"
^XMB(3.9,9,2,1605,0)="""^DD"",2,2,.03,1,4,""%D"",0)"
^XMB(3.9,9,2,1606,0)="^^2^2^2971007^^^"
^XMB(3.9,9,2,1607,0)="""^DD"",2,2,.03,1,4,""%D"",1,0)"
^XMB(3.9,9,2,1608,0)="This cross-reference is used to notify HEC of changes that may affect"
^XMB(3.9,9,2,1609,0)="""^DD"",2,2,.03,1,4,""%D"",2,0)"
^XMB(3.9,9,2,1610,0)="enrollment. "
^XMB(3.9,9,2,1611,0)="""^DD"",2,2,.03,1,4,""DT"")"
^XMB(3.9,9,2,1612,0)="2971007"
^XMB(3.9,9,2,1613,0)="""^DD"",2,2,.03,1,301,0)"
^XMB(3.9,9,2,1614,0)="2^IVM03^MUMPS"
^XMB(3.9,9,2,1615,0)="""^DD"",2,2,.03,1,301,1)"
^XMB(3.9,9,2,1616,0)="S IVMX=X,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T DPT^IVMPXFR S X=IVMX K IVMX"
^XMB(3.9,9,2,1617,0)="""^DD"",2,2,.03,1,301,2)"
^XMB(3.9,9,2,1618,0)="S IVMX=X,IVMKILL=3,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T DPT^IVMPXFR S X=IVMX K IVMX,IVMKILL"
^XMB(3.9,9,2,1619,0)="""^DD"",2,2,.03,1,301,""%D"",0)"
^XMB(3.9,9,2,1620,0)="^^8^8^2991027^"
^XMB(3.9,9,2,1621,0)="""^DD"",2,2,.03,1,301,""%D"",1,0)"
^XMB(3.9,9,2,1622,0)="This cross-reference will check the IVM PATIENT file to see if a change"
^XMB(3.9,9,2,1623,0)="""^DD"",2,2,.03,1,301,""%D"",2,0)"
^XMB(3.9,9,2,1624,0)="to this field will require transmission to the IVM Center.  If it does,"
^XMB(3.9,9,2,1625,0)="""^DD"",2,2,.03,1,301,""%D"",3,0)"
^XMB(3.9,9,2,1626,0)="the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and"
^XMB(3.9,9,2,1627,0)="""^DD"",2,2,.03,1,301,""%D"",4,0)"
^XMB(3.9,9,2,1628,0)="the nightly background job will transmit the updated information."
^XMB(3.9,9,2,1629,0)="""^DD"",2,2,.03,1,301,""%D"",5,0)"
^XMB(3.9,9,2,1630,0)=" "
^XMB(3.9,9,2,1631,0)="""^DD"",2,2,.03,1,301,""%D"",6,0)"
^XMB(3.9,9,2,1632,0)="Also, if this field is edited, this cross-reference will check to see if the"
^XMB(3.9,9,2,1633,0)="""^DD"",2,2,.03,1,301,""%D"",7,0)"
^XMB(3.9,9,2,1634,0)="patient requires a financial query to be sent to the IVM Center (Data"
^XMB(3.9,9,2,1635,0)="""^DD"",2,2,.03,1,301,""%D"",8,0)"
^XMB(3.9,9,2,1636,0)="Collection Division (DCD)."
^XMB(3.9,9,2,1637,0)="""^DD"",2,2,.03,1,301,""DT"")"
^XMB(3.9,9,2,1638,0)="2991027"
^XMB(3.9,9,2,1639,0)="""^DD"",2,2,.03,1,991,0)"
^XMB(3.9,9,2,1640,0)="2^AVAFC03^MUMPS"
^XMB(3.9,9,2,1641,0)="""^DD"",2,2,.03,1,991,1)"
^XMB(3.9,9,2,1642,0)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".03;"" D AVAFC^VAFCDD01(DA)"
^XMB(3.9,9,2,1643,0)="""^DD"",2,2,.03,1,991,2)"
^XMB(3.9,9,2,1644,0)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".03;"" D AVAFC^VAFCDD01(DA)"
^XMB(3.9,9,2,1645,0)="""^DD"",2,2,.03,1,991,""%D"",0)"
^XMB(3.9,9,2,1646,0)="^^15^15^2990204^^^^"
^XMB(3.9,9,2,1647,0)="""^DD"",2,2,.03,1,991,""%D"",1,0)"
^XMB(3.9,9,2,1648,0)="This cross reference is used to remember that changes were made to the"
^XMB(3.9,9,2,1649,0)="""^DD"",2,2,.03,1,991,""%D"",2,0)"
^XMB(3.9,9,2,1650,0)="PATIENT file (#2) outside of the Registration process.  Execution of this"
^XMB(3.9,9,2,1651,0)="""^DD"",2,2,.03,1,991,""%D"",3,0)"
^XMB(3.9,9,2,1652,0)="cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)"
^XMB(3.9,9,2,1653,0)="""^DD"",2,2,.03,1,991,""%D"",4,0)"
^XMB(3.9,9,2,1654,0)="and mark it as requiring transmission of an HL7 ADT-A08 message."
^XMB(3.9,9,2,1655,0)="""^DD"",2,2,.03,1,991,""%D"",5,0)"
^XMB(3.9,9,2,1656,0)=" "
^XMB(3.9,9,2,1657,0)="""^DD"",2,2,.03,1,991,""%D"",6,0)"
^XMB(3.9,9,2,1658,0)="The local variable VAFCFLG will be set to 1 if the cross reference is"
^XMB(3.9,9,2,1659,0)="""^DD"",2,2,.03,1,991,""%D"",7,0)"
^XMB(3.9,9,2,1660,0)="not executed because the change is being made from within the Registration"
^XMB(3.9,9,2,1661,0)="""^DD"",2,2,.03,1,991,""%D"",8,0)"
^XMB(3.9,9,2,1662,0)="process."
^XMB(3.9,9,2,1663,0)="""^DD"",2,2,.03,1,991,""%D"",9,0)"
^XMB(3.9,9,2,1664,0)=" "
^XMB(3.9,9,2,1665,0)="""^DD"",2,2,.03,1,991,""%D"",10,0)"
^XMB(3.9,9,2,1666,0)="Execution of this cross reference can be prevented by setting the local"
^XMB(3.9,9,2,1667,0)="""^DD"",2,2,.03,1,991,""%D"",11,0)"
^XMB(3.9,9,2,1668,0)="variable VAFCA08 equal to 1."
^XMB(3.9,9,2,1669,0)="""^DD"",2,2,.03,1,991,""%D"",12,0)"
^XMB(3.9,9,2,1670,0)="  "
^XMB(3.9,9,2,1671,0)="""^DD"",2,2,.03,1,991,""%D"",13,0)"
^XMB(3.9,9,2,1672,0)="The local variable VAFCF is used to identify the field edited."
^XMB(3.9,9,2,1673,0)="""^DD"",2,2,.03,1,991,""%D"",14,0)"
^XMB(3.9,9,2,1674,0)="This data is stored in the FIELD(S) EDITED (#2.1) field in the "
^XMB(3.9,9,2,1675,0)="""^DD"",2,2,.03,1,991,""%D"",15,0)"
^XMB(3.9,9,2,1676,0)="ADT/HL7 PIVOT file (#391.71)."
^XMB(3.9,9,2,1677,0)="""^DD"",2,2,.03,1,991,""DT"")"
^XMB(3.9,9,2,1678,0)="2980501"
^XMB(3.9,9,2,1679,0)="""^DD"",2,2,.03,1,992,0)"
^XMB(3.9,9,2,1680,0)="2^ADGRU03^MUMPS"
^XMB(3.9,9,2,1681,0)="""^DD"",2,2,.03,1,992,1)"
^XMB(3.9,9,2,1682,0)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^XMB(3.9,9,2,1683,0)="""^DD"",2,2,.03,1,992,2)"
^XMB(3.9,9,2,1684,0)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^XMB(3.9,9,2,1685,0)="""^DD"",2,2,.03,1,992,""%D"",0)"
^XMB(3.9,9,2,1686,0)="^^9^9^2990920^"
^XMB(3.9,9,2,1687,0)="""^DD"",2,2,.03,1,992,""%D"",1,0)"
^XMB(3.9,9,2,1688,0)="This cross reference is used to remember that changes were made to a "
^XMB(3.9,9,2,1689,0)="""^DD"",2,2,.03,1,992,""%D"",2,0)"
^XMB(3.9,9,2,1690,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^XMB(3.9,9,2,1691,0)="""^DD"",2,2,.03,1,992,""%D"",3,0)"
^XMB(3.9,9,2,1692,0)="RAI/MDS COTS system.  Execution of this cross reference will create"
^XMB(3.9,9,2,1693,0)="""^DD"",2,2,.03,1,992,""%D"",4,0)"
^XMB(3.9,9,2,1694,0)="an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^XMB(3.9,9,2,1695,0)="""^DD"",2,2,.03,1,992,""%D"",5,0)"
^XMB(3.9,9,2,1696,0)="transmission of an HL7 demographic A08 update message to the COTS"
^XMB(3.9,9,2,1697,0)="""^DD"",2,2,.03,1,992,""%D"",6,0)"
^XMB(3.9,9,2,1698,0)="interface."
^XMB(3.9,9,2,1699,0)="""^DD"",2,2,.03,1,992,""%D"",7,0)"
^XMB(3.9,9,2,1700,0)=" "
^XMB(3.9,9,2,1701,0)="""^DD"",2,2,.03,1,992,""%D"",8,0)"
^XMB(3.9,9,2,1702,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is"
^XMB(3.9,9,2,1703,0)="""^DD"",2,2,.03,1,992,""%D"",9,0)"
^XMB(3.9,9,2,1704,0)="not to be executed as part of a re-indexing."
^XMB(3.9,9,2,1705,0)="""^DD"",2,2,.03,1,992,""DT"")"
^XMB(3.9,9,2,1706,0)="2990920"
^XMB(3.9,9,2,1707,0)="""^DD"",2,2,.03,2)"
^XMB(3.9,9,2,1708,0)="S Y(0)=Y S X=Y(0) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3)) S Y=X"
^XMB(3.9,9,2,1709,0)="""^DD"",2,2,.03,2.1)"
^XMB(3.9,9,2,1710,0)="NUMDATE4(DOB)"
^XMB(3.9,9,2,1711,0)="""^DD"",2,2,.03,3)"
^XMB(3.9,9,2,1712,0)="Enter the patients DATE OF BIRTH which must be later than 12/31/1870."
^XMB(3.9,9,2,1713,0)="""^DD"",2,2,.03,20,0)"
^XMB(3.9,9,2,1714,0)="^.3LA^1^1"
^XMB(3.9,9,2,1715,0)="""^DD"",2,2,.03,20,1,0)"
^XMB(3.9,9,2,1716,0)="DEMOG^"
^XMB(3.9,9,2,1717,0)="""^DD"",2,2,.03,21,0)"
^XMB(3.9,9,2,1718,0)="^^2^2^2990205^^^^"
^XMB(3.9,9,2,1719,0)="""^DD"",2,2,.03,21,1,0)"
^XMB(3.9,9,2,1720,0)="Enter the applicant's date of birth between December 31, 1870 and today's"
^XMB(3.9,9,2,1721,0)="""^DD"",2,2,.03,21,2,0)"
^XMB(3.9,9,2,1722,0)="date."
^XMB(3.9,9,2,1723,0)="""^DD"",2,2,.03,""AUDIT"")"
^XMB(3.9,9,2,1724,0)="y"
^XMB(3.9,9,2,1725,0)="""^DD"",2,2,.03,""DT"")"
^XMB(3.9,9,2,1726,0)="3021116"
^XMB(3.9,9,2,1727,0)="""^DD"",2,2,.09,0)"
^XMB(3.9,9,2,1728,0)="SOCIAL SECURITY NUMBER^RFXa^^0;9^K:X[""""""""!($A(X)=45) X I $D(X) S:'$D(DPTX) DFN=DA D SSN^DGINP Q  I $L(X)>10"
^XMB(3.9,9,2,1729,0)="""^DD"",2,2,.09,.1)"
^XMB(3.9,9,2,1730,0)="SSN"
^XMB(3.9,9,2,1731,0)="""^DD"",2,2,.09,1,0)"
^XMB(3.9,9,2,1732,0)="^.1^^-1"
^XMB(3.9,9,2,1733,0)="""^DD"",2,2,.09,1,1,0)"
^XMB(3.9,9,2,1734,0)="2^BS^MUMPS"
^XMB(3.9,9,2,1735,0)="""^DD"",2,2,.09,1,1,1)"
^XMB(3.9,9,2,1736,0)="S ^DPT(""BS"",$E(X,6,9),DA)="""""
^XMB(3.9,9,2,1737,0)="""^DD"",2,2,.09,1,1,2)"
^XMB(3.9,9,2,1738,0)="K:$E(X,6,9)'="""" ^DPT(""BS"",$E(X,6,9),DA)"
^XMB(3.9,9,2,1739,0)="""^DD"",2,2,.09,1,2,0)"
^XMB(3.9,9,2,1740,0)="^^TRIGGER^2^.083"
^XMB(3.9,9,2,1741,0)="""^DD"",2,2,.09,1,2,1)"
^XMB(3.9,9,2,1742,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X=DIV S X=""1"" X ^DD(2,.09,1,2,1.4)"
^XMB(3.9,9,2,1743,0)="""^DD"",2,2,.09,1,2,1.4)"
^XMB(3.9,9,2,1744,0)="S DIH=$S($D(^DPT(DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,19,99))  S DIH=DIH_U"" S %=$P(DIH,U,21,999),DIU=$P(DIH,U,20),^(0)=$P(DIH,U,1,19)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.083 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,9,2,1745,0)="""^DD"",2,2,.09,1,2,2)"
^XMB(3.9,9,2,1746,0)="Q"
^XMB(3.9,9,2,1747,0)="""^DD"",2,2,.09,1,2,""CREATE VALUE"")"
^XMB(3.9,9,2,1748,0)="""1"""
^XMB(3.9,9,2,1749,0)="""^DD"",2,2,.09,1,2,""DELETE VALUE"")"
^XMB(3.9,9,2,1750,0)="NO EFFECT"
^XMB(3.9,9,2,1751,0)="""^DD"",2,2,.09,1,2,""FIELD"")"
^XMB(3.9,9,2,1752,0)="#.083"
^XMB(3.9,9,2,1753,0)="""^DD"",2,2,.09,1,3,0)"
^XMB(3.9,9,2,1754,0)="2^BS5^MUMPS"
^XMB(3.9,9,2,1755,0)="""^DD"",2,2,.09,1,3,1)"
^XMB(3.9,9,2,1756,0)="S ^DPT(""BS5"",$E(^DPT(DA,0),1)_$E(X,6,9),DA)="""""
^XMB(3.9,9,2,1757,0)="""^DD"",2,2,.09,1,3,2)"
^XMB(3.9,9,2,1758,0)="K ^DPT(""BS5"",$E(^DPT(DA,0),1)_$E(X,6,9),DA)"
^XMB(3.9,9,2,1759,0)="""^DD"",2,2,.09,1,4,0)"
^XMB(3.9,9,2,1760,0)="2^AODS1^MUMPS"
^XMB(3.9,9,2,1761,0)="""^DD"",2,2,.09,1,4,1)"
^XMB(3.9,9,2,1762,0)="S A1B2TAG=""PAT"" D ^A1B2XFR"
^XMB(3.9,9,2,1763,0)="""^DD"",2,2,.09,1,4,2)"
^XMB(3.9,9,2,1764,0)="S A1B2TAG=""PAT"" D ^A1B2XFR"
^XMB(3.9,9,2,1765,0)="""^DD"",2,2,.09,1,5,0)"
^XMB(3.9,9,2,1766,0)="2^ATP^MUMPS"
^XMB(3.9,9,2,1767,0)="""^DD"",2,2,.09,1,5,1)"
^XMB(3.9,9,2,1768,0)="I $E(X,1,5)=""00000"" D SET^DGREGDD1(DA,.6,0,21,1)"
^XMB(3.9,9,2,1769,0)="""^DD"",2,2,.09,1,5,2)"
^XMB(3.9,9,2,1770,0)="D KILL^DGREGDD1(DA,.6,0,21,0)"
^XMB(3.9,9,2,1771,0)="""^DD"",2,2,.09,1,5,""%D"",0)"
^XMB(3.9,9,2,1772,0)="^^2^2^2951026^^^^"
^XMB(3.9,9,2,1773,0)="""^DD"",2,2,.09,1,5,""%D"",1,0)"
^XMB(3.9,9,2,1774,0)="This cross reference is used to indentify test patients. Test patients are"
^XMB(3.9,9,2,1775,0)="""^DD"",2,2,.09,1,5,""%D"",2,0)"
^XMB(3.9,9,2,1776,0)="designated by five leading zeros in the SSN."
^XMB(3.9,9,2,1777,0)="""^DD"",2,2,.09,1,5,""DT"")"
^XMB(3.9,9,2,1778,0)="2951026"
^XMB(3.9,9,2,1779,0)="""^DD"",2,2,.09,1,6,0)"
^XMB(3.9,9,2,1780,0)="2^AENR09^MUMPS"
^XMB(3.9,9,2,1781,0)="""^DD"",2,2,.09,1,6,1)"
^XMB(3.9,9,2,1782,0)="D EVENT^IVMPLOG(DA)"
^XMB(3.9,9,2,1783,0)="""^DD"",2,2,.09,1,6,2)"
^XMB(3.9,9,2,1784,0)="D EVENT^IVMPLOG(DA)"
^XMB(3.9,9,2,1785,0)="""^DD"",2,2,.09,1,6,3)"
^XMB(3.9,9,2,1786,0)="DO NOT DELETE"
^XMB(3.9,9,2,1787,0)="""^DD"",2,2,.09,1,6,""%D"",0)"
^XMB(3.9,9,2,1788,0)="^^3^3^2971007^^^"
^XMB(3.9,9,2,1789,0)="""^DD"",2,2,.09,1,6,""%D"",1,0)"
^XMB(3.9,9,2,1790,0)=" "
^XMB(3.9,9,2,1791,0)="""^DD"",2,2,.09,1,6,""%D"",2,0)"
^XMB(3.9,9,2,1792,0)="This cross-reference is used to notify HEC of changes that may affect"
^XMB(3.9,9,2,1793,0)="""^DD"",2,2,.09,1,6,""%D"",3,0)"
^XMB(3.9,9,2,1794,0)="enrollment. "
^XMB(3.9,9,2,1795,0)="""^DD"",2,2,.09,1,6,""DT"")"
^XMB(3.9,9,2,1796,0)="2971007"
^XMB(3.9,9,2,1797,0)="""^DD"",2,2,.09,1,7,0)"
^XMB(3.9,9,2,1798,0)="2^SSN"
^XMB(3.9,9,2,1799,0)="""^DD"",2,2,.09,1,7,1)"
^XMB(3.9,9,2,1800,0)="S ^DPT(""SSN"",$E(X,1,30),DA)="""""
^XMB(3.9,9,2,1801,0)="""^DD"",2,2,.09,1,7,2)"
^XMB(3.9,9,2,1802,0)="K ^DPT(""SSN"",$E(X,1,30),DA)"
^XMB(3.9,9,2,1803,0)="""^DD"",2,2,.09,1,8,0)"
^XMB(3.9,9,2,1804,0)="2^AVADPT6^MUMPS"
^XMB(3.9,9,2,1805,0)="""^DD"",2,2,.09,1,8,1)"
^XMB(3.9,9,2,1806,0)="S VADFN=DA D SET^VADPT6 K VADFN"
^XMB(3.9,9,2,1807,0)="""^DD"",2,2,.09,1,8,2)"
^XMB(3.9,9,2,1808,0)="S VADFN=DA D KILL^VADPT6 K VADFN"
^XMB(3.9,9,2,1809,0)="""^DD"",2,2,.09,1,9,0)"
^XMB(3.9,9,2,1810,0)="2^AD^MUMPS"
^XMB(3.9,9,2,1811,0)="""^DD"",2,2,.09,1,9,1)"
^XMB(3.9,9,2,1812,0)="S PPP=X,X=""PPPFMX"" X ^%ZOSF(""TEST"") D:$T SNSSN^PPPFMX S X=PPP K PPP"
^XMB(3.9,9,2,1813,0)="""^DD"",2,2,.09,1,9,2)"
^XMB(3.9,9,2,1814,0)="S PPP=X,X=""PPPFMX"" X ^%ZOSF(""TEST"") D:$T KNSSN^PPPFMX S X=PPP K PPP"
^XMB(3.9,9,2,1815,0)="""^DD"",2,2,.09,1,9,""%D"",0)"
^XMB(3.9,9,2,1816,0)="^^2^2^2920611^"
^XMB(3.9,9,2,1817,0)="""^DD"",2,2,.09,1,9,""%D"",1,0)"
^XMB(3.9,9,2,1818,0)="This cross-reference is used to add a new SSN to the Prescription"
^XMB(3.9,9,2,1819,0)="""^DD"",2,2,.09,1,9,""%D"",2,0)"
^XMB(3.9,9,2,1820,0)="Practices Files when a new patient is added to the patient file."
^XMB(3.9,9,2,1821,0)="""^DD"",2,2,.09,1,9,""DT"")"
^XMB(3.9,9,2,1822,0)="2920611"
^XMB(3.9,9,2,1823,0)="""^DD"",2,2,.09,1,301,0)"
^XMB(3.9,9,2,1824,0)="2^IVM09^MUMPS"
^XMB(3.9,9,2,1825,0)="""^DD"",2,2,.09,1,301,1)"
^XMB(3.9,9,2,1826,0)="S IVMX=X,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T DPT^IVMPXFR S X=IVMX K IVMX"
^XMB(3.9,9,2,1827,0)="""^DD"",2,2,.09,1,301,2)"
^XMB(3.9,9,2,1828,0)="S IVMX=X,IVMKILL=9,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T DPT^IVMPXFR S X=IVMX K IVMX,IVMKILL"
^XMB(3.9,9,2,1829,0)="""^DD"",2,2,.09,1,301,""%D"",0)"
^XMB(3.9,9,2,1830,0)="^^8^8^2991027^"
^XMB(3.9,9,2,1831,0)="""^DD"",2,2,.09,1,301,""%D"",1,0)"
^XMB(3.9,9,2,1832,0)="This cross-reference will check the IVM PATIENT file to see if a change"
^XMB(3.9,9,2,1833,0)="""^DD"",2,2,.09,1,301,""%D"",2,0)"
^XMB(3.9,9,2,1834,0)="to this field will require transmission to the IVM Center.  If it does,"
^XMB(3.9,9,2,1835,0)="""^DD"",2,2,.09,1,301,""%D"",3,0)"
^XMB(3.9,9,2,1836,0)="the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and"
^XMB(3.9,9,2,1837,0)="""^DD"",2,2,.09,1,301,""%D"",4,0)"
^XMB(3.9,9,2,1838,0)="the nightly background job will transmit the updated information."
^XMB(3.9,9,2,1839,0)="""^DD"",2,2,.09,1,301,""%D"",5,0)"
^XMB(3.9,9,2,1840,0)=" "
^XMB(3.9,9,2,1841,0)="""^DD"",2,2,.09,1,301,""%D"",6,0)"
^XMB(3.9,9,2,1842,0)="Also, if this field is edited, this cross-reference will check to see if the"
^XMB(3.9,9,2,1843,0)="""^DD"",2,2,.09,1,301,""%D"",7,0)"
^XMB(3.9,9,2,1844,0)="patient requires a financial query to be sent to the IVM Center (Data"
^XMB(3.9,9,2,1845,0)="""^DD"",2,2,.09,1,301,""%D"",8,0)"
^XMB(3.9,9,2,1846,0)="Collection Division (DCD)."
^XMB(3.9,9,2,1847,0)="""^DD"",2,2,.09,1,301,""DT"")"
^XMB(3.9,9,2,1848,0)="2991027"
^XMB(3.9,9,2,1849,0)="""^DD"",2,2,.09,1,800,0)"
^XMB(3.9,9,2,1850,0)="2^PX09^MUMPS"
^XMB(3.9,9,2,1851,0)="""^DD"",2,2,.09,1,800,1)"
^XMB(3.9,9,2,1852,0)="S PX=X,X=""PXXDPT"" X ^%ZOSF(""TEST"") D:$T SETSSN^PXXDPT S X=PX K PX"
^XMB(3.9,9,2,1853,0)="""^DD"",2,2,.09,1,800,2)"
^XMB(3.9,9,2,1854,0)="S PX=X,X=""PXXDPT"" X ^%ZOSF(""TEST"") D:$T KILLSSN^PXXDPT S X=PX K PX"
^XMB(3.9,9,2,1855,0)="""^DD"",2,2,.09,1,800,""%D"",0)"
^XMB(3.9,9,2,1856,0)="^^2^2^2960624^^^"
^XMB(3.9,9,2,1857,0)="""^DD"",2,2,.09,1,800,""%D"",1,0)"
^XMB(3.9,9,2,1858,0)="This cross-reference is used to add a new SSN to the 9000001 IHS Patient"
^XMB(3.9,9,2,1859,0)="""^DD"",2,2,.09,1,800,""%D"",2,0)"
^XMB(3.9,9,2,1860,0)="File when a new patient is added to the Patient File."
^XMB(3.9,9,2,1861,0)="""^DD"",2,2,.09,1,800,""DT"")"
^XMB(3.9,9,2,1862,0)="2930908"
^XMB(3.9,9,2,1863,0)="""^DD"",2,2,.09,1,991,0)"
^XMB(3.9,9,2,1864,0)="2^AVAFC09^MUMPS"
^XMB(3.9,9,2,1865,0)="""^DD"",2,2,.09,1,991,1)"
^XMB(3.9,9,2,1866,0)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".09;"" D AVAFC^VAFCDD01(DA)"
^XMB(3.9,9,2,1867,0)="""^DD"",2,2,.09,1,991,2)"
^XMB(3.9,9,2,1868,0)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".09;"" D AVAFC^VAFCDD01(DA)"
^XMB(3.9,9,2,1869,0)="""^DD"",2,2,.09,1,991,""%D"",0)"
^XMB(3.9,9,2,1870,0)="^^15^15^2990204^^^^"
^XMB(3.9,9,2,1871,0)="""^DD"",2,2,.09,1,991,""%D"",1,0)"
^XMB(3.9,9,2,1872,0)="This cross reference is used to remember that changes were made to the"
^XMB(3.9,9,2,1873,0)="""^DD"",2,2,.09,1,991,""%D"",2,0)"
^XMB(3.9,9,2,1874,0)="PATIENT file (#2) outside of the Registration process.  Execution of this"
^XMB(3.9,9,2,1875,0)="""^DD"",2,2,.09,1,991,""%D"",3,0)"
^XMB(3.9,9,2,1876,0)="cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)"
^XMB(3.9,9,2,1877,0)="""^DD"",2,2,.09,1,991,""%D"",4,0)"
^XMB(3.9,9,2,1878,0)="and mark it as requiring transmission of an HL7 ADT-A08 message."
^XMB(3.9,9,2,1879,0)="""^DD"",2,2,.09,1,991,""%D"",5,0)"
^XMB(3.9,9,2,1880,0)=" "
^XMB(3.9,9,2,1881,0)="""^DD"",2,2,.09,1,991,""%D"",6,0)"
^XMB(3.9,9,2,1882,0)="The local variable VAFCFLG will be set to 1 if the cross reference is"
^XMB(3.9,9,2,1883,0)="""^DD"",2,2,.09,1,991,""%D"",7,0)"
^XMB(3.9,9,2,1884,0)="not executed because the change is being made from within the Registration"
^XMB(3.9,9,2,1885,0)="""^DD"",2,2,.09,1,991,""%D"",8,0)"
^XMB(3.9,9,2,1886,0)="process."
^XMB(3.9,9,2,1887,0)="""^DD"",2,2,.09,1,991,""%D"",9,0)"
^XMB(3.9,9,2,1888,0)=" "
^XMB(3.9,9,2,1889,0)="""^DD"",2,2,.09,1,991,""%D"",10,0)"
^XMB(3.9,9,2,1890,0)="Execution of this cross reference can be prevented by setting the local"
^XMB(3.9,9,2,1891,0)="""^DD"",2,2,.09,1,991,""%D"",11,0)"
^XMB(3.9,9,2,1892,0)="variable VAFCA08 equal to 1."
^XMB(3.9,9,2,1893,0)="""^DD"",2,2,.09,1,991,""%D"",12,0)"
^XMB(3.9,9,2,1894,0)="  "
^XMB(3.9,9,2,1895,0)="""^DD"",2,2,.09,1,991,""%D"",13,0)"
^XMB(3.9,9,2,1896,0)="The local variable VAFCF is used to identify the field edited."
^XMB(3.9,9,2,1897,0)="""^DD"",2,2,.09,1,991,""%D"",14,0)"
^XMB(3.9,9,2,1898,0)="This data is stored in the FIELD(S) EDITED (#2.1) field in the "
^XMB(3.9,9,2,1899,0)="""^DD"",2,2,.09,1,991,""%D"",15,0)"
^XMB(3.9,9,2,1900,0)="ADT/HL7 PIVOT file (#391.71)."
^XMB(3.9,9,2,1901,0)="""^DD"",2,2,.09,1,991,""DT"")"
^XMB(3.9,9,2,1902,0)="2970825"
^XMB(3.9,9,2,1903,0)="""^DD"",2,2,.09,1,992,0)"
^XMB(3.9,9,2,1904,0)="2^ADGRU09^MUMPS"
^XMB(3.9,9,2,1905,0)="""^DD"",2,2,.09,1,992,1)"
^XMB(3.9,9,2,1906,0)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^XMB(3.9,9,2,1907,0)="""^DD"",2,2,.09,1,992,2)"
^XMB(3.9,9,2,1908,0)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^XMB(3.9,9,2,1909,0)="""^DD"",2,2,.09,1,992,""%D"",0)"
^XMB(3.9,9,2,1910,0)="^^9^9^3000202^^^^"
^XMB(3.9,9,2,1911,0)="""^DD"",2,2,.09,1,992,""%D"",1,0)"
^XMB(3.9,9,2,1912,0)="This cross reference is used to remember that changes were made to a "
^XMB(3.9,9,2,1913,0)="""^DD"",2,2,.09,1,992,""%D"",2,0)"
^XMB(3.9,9,2,1914,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^XMB(3.9,9,2,1915,0)="""^DD"",2,2,.09,1,992,""%D"",3,0)"
^XMB(3.9,9,2,1916,0)="RAI/MDS COTS system.  Execution of this cross reference will create"
^XMB(3.9,9,2,1917,0)="""^DD"",2,2,.09,1,992,""%D"",4,0)"
^XMB(3.9,9,2,1918,0)="an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^XMB(3.9,9,2,1919,0)="""^DD"",2,2,.09,1,992,""%D"",5,0)"
^XMB(3.9,9,2,1920,0)="transmission of an HL7 demographic A08 update message to the COTS"
^XMB(3.9,9,2,1921,0)="""^DD"",2,2,.09,1,992,""%D"",6,0)"
^XMB(3.9,9,2,1922,0)="interface."
^XMB(3.9,9,2,1923,0)="""^DD"",2,2,.09,1,992,""%D"",7,0)"
^XMB(3.9,9,2,1924,0)=" "
^XMB(3.9,9,2,1925,0)="""^DD"",2,2,.09,1,992,""%D"",8,0)"
^XMB(3.9,9,2,1926,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is"
^XMB(3.9,9,2,1927,0)="""^DD"",2,2,.09,1,992,""%D"",9,0)"
^XMB(3.9,9,2,1928,0)="not to be executed as part of a re-indexing."
^XMB(3.9,9,2,1929,0)="""^DD"",2,2,.09,1,992,""DT"")"
^XMB(3.9,9,2,1930,0)="3000202"
^XMB(3.9,9,2,1931,0)="""^DD"",2,2,.09,2)"
^XMB(3.9,9,2,1932,0)="S Y(0)=Y S:$L(Y)=11 Y=$E(Y,10,11)_$E(Y,1,9)"
^XMB(3.9,9,2,1933,0)="""^DD"",2,2,.09,2.1)"
^XMB(3.9,9,2,1934,0)="S:$L(Y)=11 Y=$E(Y,10,11)_$E(Y,1,9)"
^XMB(3.9,9,2,1935,0)="""^DD"",2,2,.09,3)"
^XMB(3.9,9,2,1936,0)="Enter 9-digit SSN or 'P' for pseudo-SSN."
^XMB(3.9,9,2,1937,0)="""^DD"",2,2,.09,10)"
^XMB(3.9,9,2,1938,0)="10/10 FORM"
^XMB(3.9,9,2,1939,0)="""^DD"",2,2,.09,11,0)"
^XMB(3.9,9,2,1940,0)="^.2LAP^^0"
^XMB(3.9,9,2,1941,0)="""^DD"",2,2,.09,11,1,0)"
^XMB(3.9,9,2,1942,0)="1^"
^XMB(3.9,9,2,1943,0)="""^DD"",2,2,.09,11,2,0)"
^XMB(3.9,9,2,1944,0)="2^"
^XMB(3.9,9,2,1945,0)="""^DD"",2,2,.09,20,0)"
^XMB(3.9,9,2,1946,0)="^.3LA^1^1"
^XMB(3.9,9,2,1947,0)="""^DD"",2,2,.09,20,1,0)"
^XMB(3.9,9,2,1948,0)="DEMOG^"
^XMB(3.9,9,2,1949,0)="""^DD"",2,2,.09,21,0)"
^XMB(3.9,9,2,1950,0)="^^34^34^3000202^^^^"
^XMB(3.9,9,2,1951,0)="""^DD"",2,2,.09,21,1,0)"
^XMB(3.9,9,2,1952,0)="Enter the applicants social security number as nine digits, i.e.,"
^XMB(3.9,9,2,1953,0)="""^DD"",2,2,.09,21,2,0)"
^XMB(3.9,9,2,1954,0)="123456789.  If the social security number is unknown and you need to"
^XMB(3.9,9,2,1955,0)="""^DD"",2,2,.09,21,3,0)"
^XMB(3.9,9,2,1956,0)="assign a pseudo SSN follow it with a 'P', i.e., 123456789P.  Simply"
^XMB(3.9,9,2,1957,0)="""^DD"",2,2,.09,21,4,0)"
^XMB(3.9,9,2,1958,0)="enter a 'P' if you wish the system to determine the proper pseudo SSN."
^XMB(3.9,9,2,1959,0)="""^DD"",2,2,.09,21,5,0)"
^XMB(3.9,9,2,1960,0)="Pseudo SSN's are determined as follows:"
^XMB(3.9,9,2,1961,0)="""^DD"",2,2,.09,21,6,0)"
^XMB(3.9,9,2,1962,0)="   "
^XMB(3.9,9,2,1963,0)="""^DD"",2,2,.09,21,7,0)"
^XMB(3.9,9,2,1964,0)="   1.  Based on the following table assign the first three numbers"
^XMB(3.9,9,2,1965,0)="""^DD"",2,2,.09,21,8,0)"
^XMB(3.9,9,2,1966,0)="       of the pseudo SSN based on the patient's three initials in"
^XMB(3.9,9,2,1967,0)="""^DD"",2,2,.09,21,9,0)"
^XMB(3.9,9,2,1968,0)="       first-middle-last initial order.  For example, if the name"
^XMB(3.9,9,2,1969,0)="""^DD"",2,2,.09,21,10,0)"
^XMB(3.9,9,2,1970,0)="       is 'SMITH,JOHN P' the table would be used to convert JPS"
^XMB(3.9,9,2,1971,0)="""^DD"",2,2,.09,21,11,0)"
^XMB(3.9,9,2,1972,0)="       (the initials for JOHN P SMITH) into 467."
^XMB(3.9,9,2,1973,0)="""^DD"",2,2,.09,21,12,0)"
^XMB(3.9,9,2,1974,0)="    "
^XMB(3.9,9,2,1975,0)="""^DD"",2,2,.09,21,13,0)"
^XMB(3.9,9,2,1976,0)="       ALPHA     NUMBER              ALPHA      NUMBER"
^XMB(3.9,9,2,1977,0)="""^DD"",2,2,.09,21,14,0)"
^XMB(3.9,9,2,1978,0)="       -----     ------              -----      ------"
^XMB(3.9,9,2,1979,0)="""^DD"",2,2,.09,21,15,0)"
^XMB(3.9,9,2,1980,0)="       A,B,C       1                 D,E,F        2"
^XMB(3.9,9,2,1981,0)="""^DD"",2,2,.09,21,16,0)"
^XMB(3.9,9,2,1982,0)="       G,H,I       3                 J,K,L        4"
^XMB(3.9,9,2,1983,0)="""^DD"",2,2,.09,21,17,0)"
^XMB(3.9,9,2,1984,0)="       M,N,O       5                 P,Q,R        6"
^XMB(3.9,9,2,1985,0)="""^DD"",2,2,.09,21,18,0)"
^XMB(3.9,9,2,1986,0)="       S,T,U       7                 V,W,X        8"
^XMB(3.9,9,2,1987,0)="""^DD"",2,2,.09,21,19,0)"
^XMB(3.9,9,2,1988,0)="       Y,Z         9                 NO INITIAL   0"
^XMB(3.9,9,2,1989,0)="""^DD"",2,2,.09,21,20,0)"
^XMB(3.9,9,2,1990,0)="   "
^XMB(3.9,9,2,1991,0)="""^DD"",2,2,.09,21,21,0)"
^XMB(3.9,9,2,1992,0)="   2.  Using the patient's date of birth convert it to six numerics"
^XMB(3.9,9,2,1993,0)="""^DD"",2,2,.09,21,22,0)"
^XMB(3.9,9,2,1994,0)="       in month-day-year order.  Where a month, day or year consists of"
^XMB(3.9,9,2,1995,0)="""^DD"",2,2,.09,21,23,0)"
^XMB(3.9,9,2,1996,0)="       less than one numeric, i.e., JUNE=6, preceed it by a zero, i.e.,"
^XMB(3.9,9,2,1997,0)="""^DD"",2,2,.09,21,24,0)"
^XMB(3.9,9,2,1998,0)="       JUNE=06.  If the month and/or year of birth are unknown indicate"
^XMB(3.9,9,2,1999,0)="""^DD"",2,2,.09,21,25,0)"
^XMB(3.9,9,2,2000,0)="       them as '00'."
^XMB(3.9,9,2,2001,0)="""^DD"",2,2,.09,21,26,0)"
^XMB(3.9,9,2,2002,0)="    "
^XMB(3.9,9,2,2003,0)="""^DD"",2,2,.09,21,27,0)"
^XMB(3.9,9,2,2004,0)=" EXAMPLES"
^XMB(3.9,9,2,2005,0)="""^DD"",2,2,.09,21,28,0)"
^XMB(3.9,9,2,2006,0)=" --------"
^XMB(3.9,9,2,2007,0)="""^DD"",2,2,.09,21,29,0)"
^XMB(3.9,9,2,2008,0)=" Patient Name             DOB                 Pseudo SSN"
^XMB(3.9,9,2,2009,0)="""^DD"",2,2,.09,21,30,0)"
^XMB(3.9,9,2,2010,0)=" ------------             ---                 ----------"
^XMB(3.9,9,2,2011,0)="""^DD"",2,2,.09,21,31,0)"
^XMB(3.9,9,2,2012,0)=" SMITH,JOHN P             Jan 3, 1917         467010317P"
^XMB(3.9,9,2,2013,0)="""^DD"",2,2,.09,21,32,0)"
^XMB(3.9,9,2,2014,0)=" SMITH,JOHN P             Jan 1917            467010017P"
^XMB(3.9,9,2,2015,0)="""^DD"",2,2,.09,21,33,0)"
^XMB(3.9,9,2,2016,0)=" SMITH,JOHN P             1917                467000017P"
^XMB(3.9,9,2,2017,0)="""^DD"",2,2,.09,21,34,0)"
^XMB(3.9,9,2,2018,0)=" SMITH,JOHN               Dec 15, 1945        407121545P"
^XMB(3.9,9,2,2019,0)="""^DD"",2,2,.09,""AUDIT"")"
^XMB(3.9,9,2,2020,0)="y"
^XMB(3.9,9,2,2021,0)="""^DD"",2,2,.09,""DT"")"
^XMB(3.9,9,2,2022,0)="3021116"
^XMB(3.9,9,2,2023,0)="""^DD"",2,2,.0901,0)"
^XMB(3.9,9,2,2024,0)="TERMINAL DIGIT OF SSN^CJ9^^ ; ^S %=$S($D(^DPT(D0,0)):$P(^(0),U,9),1:""""),X=$E(%,8,9)_$E(%,6,7)_$E(%,4,5)_$E(%,1,3)"
^XMB(3.9,9,2,2025,0)="""^DD"",2,2,.0901,.1)"
^XMB(3.9,9,2,2026,0)=""
^XMB(3.9,9,2,2027,0)="""^DD"",2,2,.0901,3)"
^XMB(3.9,9,2,2028,0)="Computed field which determines last four digits of SSN."
^XMB(3.9,9,2,2029,0)="""^DD"",2,2,.0901,9)"
^XMB(3.9,9,2,2030,0)="^"
^XMB(3.9,9,2,2031,0)="""^DD"",2,2,.0901,9.01)"
^XMB(3.9,9,2,2032,0)=""
^XMB(3.9,9,2,2033,0)="""^DD"",2,2,.0901,9.1)"
^XMB(3.9,9,2,2034,0)="S %=$S($D(^DPT(D0,0)):$P(^(0),U,9),1:""""),X=$E(%,8,9)_$E(%,6,7)_$E(%,4,5)_$E(%,1,3)"
^XMB(3.9,9,2,2035,0)="""^DD"",2,2,.0901,21,0)"
^XMB(3.9,9,2,2036,0)="^^6^6^2920130^^^"
^XMB(3.9,9,2,2037,0)="""^DD"",2,2,.0901,21,1,0)"
^XMB(3.9,9,2,2038,0)="This is a computed field which returns the terminal digit value of the"
^XMB(3.9,9,2,2039,0)="""^DD"",2,2,.0901,21,2,0)"
^XMB(3.9,9,2,2040,0)="patient's social security number.  This value is computed to be the"
^XMB(3.9,9,2,2041,0)="""^DD"",2,2,.0901,21,3,0)"
^XMB(3.9,9,2,2042,0)="last 2 digits of the social security number concatenated with the sixth"
^XMB(3.9,9,2,2043,0)="""^DD"",2,2,.0901,21,4,0)"
^XMB(3.9,9,2,2044,0)="and seventh digits of the social security number concatenated with the"
^XMB(3.9,9,2,2045,0)="""^DD"",2,2,.0901,21,5,0)"
^XMB(3.9,9,2,2046,0)="forth and fifth pieces of the social security number concatenated with the"
^XMB(3.9,9,2,2047,0)="""^DD"",2,2,.0901,21,6,0)"
^XMB(3.9,9,2,2048,0)="first 3 digits of the social security number."
^XMB(3.9,9,2,2049,0)="""^DD"",2,2,.0901,""DT"")"
^XMB(3.9,9,2,2050,0)="2951107"
^XMB(3.9,9,2,2051,0)="""^DD"",2,2,.107,0)"
^XMB(3.9,9,2,2052,0)="LODGER WARD LOCATION^F^^.107;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X"
^XMB(3.9,9,2,2053,0)="""^DD"",2,2,.107,1,0)"
^XMB(3.9,9,2,2054,0)="^.1"
^XMB(3.9,9,2,2055,0)="""^DD"",2,2,.107,1,1,0)"
^XMB(3.9,9,2,2056,0)="2^LD^MUMPS"
^XMB(3.9,9,2,2057,0)="""^DD"",2,2,.107,1,1,1)"
^XMB(3.9,9,2,2058,0)="D LD^DGPMDDLD"
^XMB(3.9,9,2,2059,0)="""^DD"",2,2,.107,1,1,2)"
^XMB(3.9,9,2,2060,0)="K ^DPT(""LD"",X,DA)"
^XMB(3.9,9,2,2061,0)="""^DD"",2,2,.107,3)"
^XMB(3.9,9,2,2062,0)="If the patient is a lodger, this is the ward on which the patient resides (2-30 characters)."
^XMB(3.9,9,2,2063,0)="""^DD"",2,2,.107,21,0)"
^XMB(3.9,9,2,2064,0)="^.001^1^1^3060404^^"
^XMB(3.9,9,2,2065,0)="""^DD"",2,2,.107,21,1,0)"
^XMB(3.9,9,2,2066,0)="The ward on which the patient currently resides if the patient is a lodger."
^XMB(3.9,9,2,2067,0)="""^DD"",2,2,.107,""DT"")"
^XMB(3.9,9,2,2068,0)="2900409"
^XMB(3.9,9,2,2069,0)="""^DD"",2,2,.108,0)"
^XMB(3.9,9,2,2070,0)="CURRENT ROOM^P405.4'^DG(405.4,^.108;1^Q"
^XMB(3.9,9,2,2071,0)="""^DD"",2,2,.108,21,0)"
^XMB(3.9,9,2,2072,0)="^^5^5^2911214^"
^XMB(3.9,9,2,2073,0)="""^DD"",2,2,.108,21,1,0)"
^XMB(3.9,9,2,2074,0)="This field contains a pointer to the ROOM-BED file denoting the current"
^XMB(3.9,9,2,2075,0)="""^DD"",2,2,.108,21,2,0)"
^XMB(3.9,9,2,2076,0)="room-bed in which this inpatient resides.  This field is filled in only"
^XMB(3.9,9,2,2077,0)="""^DD"",2,2,.108,21,3,0)"
^XMB(3.9,9,2,2078,0)="for inpatients.  It must NOT be edited as editing could adversely affect"
^XMB(3.9,9,2,2079,0)="""^DD"",2,2,.108,21,4,0)"
^XMB(3.9,9,2,2080,0)="the operation of the MAS package as well as other DHCP packages.  This"
^XMB(3.9,9,2,2081,0)="""^DD"",2,2,.108,21,5,0)"
^XMB(3.9,9,2,2082,0)="field is filled in automatically by the module."
^XMB(3.9,9,2,2083,0)="""^DD"",2,2,.108,""DT"")"
^XMB(3.9,9,2,2084,0)="2900322"
^XMB(3.9,9,2,2085,0)="""^DD"",2,2,.14111,0)"
^XMB(3.9,9,2,2086,0)="CONFIDENTIAL ADDRESS COUNTY^NJ3,0OX^^.141;11^N Z0,DIC S Z0=+$P($G(^DPT(D0,.141)),""^"",5) K:'Z0 X Q:'$D(^DIC(5,Z0,1,0))  S DIC=""^DIC(5,Z0,1,"",DIC(0)=""QEM"" D ^DIC S X=+Y K:Y'>0 X"
^XMB(3.9,9,2,2087,0)="""^DD"",2,2,.14111,2)"
^XMB(3.9,9,2,2088,0)="S Y(0)=Y S Y(0)=Y Q:Y']""""  N Z0 S Z0=$P($G(^DPT(D0,.141)),""^"",5) Q:'Z0  S Y=$P($G(^DIC(5,Z0,1,Y,0)),""^"",3)"
^XMB(3.9,9,2,2089,0)="""^DD"",2,2,.14111,2.1)"
^XMB(3.9,9,2,2090,0)="S Y(0)=Y Q:Y']""""  N Z0 S Z0=$P($G(^DPT(D0,.141)),""^"",5) Q:'Z0  S Y=$P($G(^DIC(5,Z0,1,Y,0)),""^"",3)"
^XMB(3.9,9,2,2091,0)="""^DD"",2,2,.14111,3)"
^XMB(3.9,9,2,2092,0)="Enter a valid county for the applicant's confidential address."
^XMB(3.9,9,2,2093,0)="""^DD"",2,2,.14111,4)"
^XMB(3.9,9,2,2094,0)="N Z0,DIC S X=""?"",Z0=+$P($G(^DPT(D0,.141)),""^"",5) Q:'$D(^DIC(5,Z0,1,0))  S DIC=""^DIC(5,Z0,1,"",DIC(0)=""QEM"" D ^DIC"
^XMB(3.9,9,2,2095,0)="""^DD"",2,2,.14111,21,0)"
^XMB(3.9,9,2,2096,0)="^.001^2^2^3030313^^"
^XMB(3.9,9,2,2097,0)="""^DD"",2,2,.14111,21,1,0)"
^XMB(3.9,9,2,2098,0)="If the 'Confidential Address Active' prompt is answered YES,"
^XMB(3.9,9,2,2099,0)="""^DD"",2,2,.14111,21,2,0)"
^XMB(3.9,9,2,2100,0)="enter the county for the applicant's confidential address."
^XMB(3.9,9,2,2101,0)="""^DD"",2,2,.14111,""DT"")"
^XMB(3.9,9,2,2102,0)="3041210"
^XMB(3.9,9,2,2103,0)="""^DD"",2,2,.211,0)"
^XMB(3.9,9,2,2104,0)="K-NAME OF PRIMARY NOK^Fa^^.21;1^K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,35) K:'$L(X) X,DG20NAME"
^XMB(3.9,9,2,2105,0)="""^DD"",2,2,.211,.1)"
^XMB(3.9,9,2,2106,0)="NEXT OF KIN"
^XMB(3.9,9,2,2107,0)="""^DD"",2,2,.211,1,0)"
^XMB(3.9,9,2,2108,0)="^.1"
^XMB(3.9,9,2,2109,0)="""^DD"",2,2,.211,1,1,0)"
^XMB(3.9,9,2,2110,0)="2^AXR^MUMPS"
^XMB(3.9,9,2,2111,0)="""^DD"",2,2,.211,1,1,1)"
^XMB(3.9,9,2,2112,0)="Q"
^XMB(3.9,9,2,2113,0)="""^DD"",2,2,.211,1,1,2)"
^XMB(3.9,9,2,2114,0)="S DGXRF=.211 D ^DGDDC Q"
^XMB(3.9,9,2,2115,0)="""^DD"",2,2,.211,1,991,0)"
^XMB(3.9,9,2,2116,0)="2^AVAFC211^MUMPS"
^XMB(3.9,9,2,2117,0)="""^DD"",2,2,.211,1,991,1)"
^XMB(3.9,9,2,2118,0)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".211;"" D AVAFC^VAFCDD01(DA)"
^XMB(3.9,9,2,2119,0)="""^DD"",2,2,.211,1,991,2)"
^XMB(3.9,9,2,2120,0)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".211;"" D AVAFC^VAFCDD01(DA)"
^XMB(3.9,9,2,2121,0)="""^DD"",2,2,.211,1,991,""%D"",0)"
^XMB(3.9,9,2,2122,0)="^^15^15^2990204^^^"
^XMB(3.9,9,2,2123,0)="""^DD"",2,2,.211,1,991,""%D"",1,0)"
^XMB(3.9,9,2,2124,0)="This cross reference is used to remember that changes were made to the"
^XMB(3.9,9,2,2125,0)="""^DD"",2,2,.211,1,991,""%D"",2,0)"
^XMB(3.9,9,2,2126,0)="PATIENT file (#2) outside of the Registration process.  Execution of this"
^XMB(3.9,9,2,2127,0)="""^DD"",2,2,.211,1,991,""%D"",3,0)"
^XMB(3.9,9,2,2128,0)="cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)"
^XMB(3.9,9,2,2129,0)="""^DD"",2,2,.211,1,991,""%D"",4,0)"
^XMB(3.9,9,2,2130,0)="and mark it as requiring transmission of an HL7 ADT-A08 message."
^XMB(3.9,9,2,2131,0)="""^DD"",2,2,.211,1,991,""%D"",5,0)"
^XMB(3.9,9,2,2132,0)=" "
^XMB(3.9,9,2,2133,0)="""^DD"",2,2,.211,1,991,""%D"",6,0)"
^XMB(3.9,9,2,2134,0)="The local variable VAFCFLG will be set to 1 if the cross reference is"
^XMB(3.9,9,2,2135,0)="""^DD"",2,2,.211,1,991,""%D"",7,0)"
^XMB(3.9,9,2,2136,0)="not executed because the change is being made from within the Registration"
^XMB(3.9,9,2,2137,0)="""^DD"",2,2,.211,1,991,""%D"",8,0)"
^XMB(3.9,9,2,2138,0)="process."
^XMB(3.9,9,2,2139,0)="""^DD"",2,2,.211,1,991,""%D"",9,0)"
^XMB(3.9,9,2,2140,0)=" "
^XMB(3.9,9,2,2141,0)="""^DD"",2,2,.211,1,991,""%D"",10,0)"
^XMB(3.9,9,2,2142,0)="Execution of this cross reference can be prevented by setting the local"
^XMB(3.9,9,2,2143,0)="""^DD"",2,2,.211,1,991,""%D"",11,0)"
^XMB(3.9,9,2,2144,0)="variable VAFCA08 equal to 1."
^XMB(3.9,9,2,2145,0)="""^DD"",2,2,.211,1,991,""%D"",12,0)"
^XMB(3.9,9,2,2146,0)="  "
^XMB(3.9,9,2,2147,0)="""^DD"",2,2,.211,1,991,""%D"",13,0)"
^XMB(3.9,9,2,2148,0)="The local variable VAFCF is used to identify the field edited."
^XMB(3.9,9,2,2149,0)="""^DD"",2,2,.211,1,991,""%D"",14,0)"
^XMB(3.9,9,2,2150,0)="This data is stored in the FIELD(S) EDITED (#2.1) field in the "
^XMB(3.9,9,2,2151,0)="""^DD"",2,2,.211,1,991,""%D"",15,0)"
^XMB(3.9,9,2,2152,0)="ADT/HL7 PIVOT file (#391.71)."
^XMB(3.9,9,2,2153,0)="""^DD"",2,2,.211,1,991,""DT"")"
^XMB(3.9,9,2,2154,0)="2970825"
^XMB(3.9,9,2,2155,0)="""^DD"",2,2,.211,1,992,0)"
^XMB(3.9,9,2,2156,0)="2^ADGRU211^MUMPS"
^XMB(3.9,9,2,2157,0)="""^DD"",2,2,.211,1,992,1)"
^XMB(3.9,9,2,2158,0)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^XMB(3.9,9,2,2159,0)="""^DD"",2,2,.211,1,992,2)"
^XMB(3.9,9,2,2160,0)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^XMB(3.9,9,2,2161,0)="""^DD"",2,2,.211,1,992,""%D"",0)"
^XMB(3.9,9,2,2162,0)="^^9^9^2990920^"
^XMB(3.9,9,2,2163,0)="""^DD"",2,2,.211,1,992,""%D"",1,0)"
^XMB(3.9,9,2,2164,0)="This cross reference is used to remember that changes were made to a "
^XMB(3.9,9,2,2165,0)="""^DD"",2,2,.211,1,992,""%D"",2,0)"
^XMB(3.9,9,2,2166,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^XMB(3.9,9,2,2167,0)="""^DD"",2,2,.211,1,992,""%D"",3,0)"
^XMB(3.9,9,2,2168,0)="RAI/MDS COTS system.  Execution of this cross reference will create"
^XMB(3.9,9,2,2169,0)="""^DD"",2,2,.211,1,992,""%D"",4,0)"
^XMB(3.9,9,2,2170,0)="an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^XMB(3.9,9,2,2171,0)="""^DD"",2,2,.211,1,992,""%D"",5,0)"
^XMB(3.9,9,2,2172,0)="transmission of an HL7 demographic A08 update message to the COTS"
^XMB(3.9,9,2,2173,0)="""^DD"",2,2,.211,1,992,""%D"",6,0)"
^XMB(3.9,9,2,2174,0)="interface."
^XMB(3.9,9,2,2175,0)="""^DD"",2,2,.211,1,992,""%D"",7,0)"
^XMB(3.9,9,2,2176,0)=" "
^XMB(3.9,9,2,2177,0)="""^DD"",2,2,.211,1,992,""%D"",8,0)"
^XMB(3.9,9,2,2178,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is"
^XMB(3.9,9,2,2179,0)="""^DD"",2,2,.211,1,992,""%D"",9,0)"
^XMB(3.9,9,2,2180,0)="not to be executed as part of a re-indexing."
^XMB(3.9,9,2,2181,0)="""^DD"",2,2,.211,1,992,""DT"")"
^XMB(3.9,9,2,2182,0)="2990920"
^XMB(3.9,9,2,2183,0)="""^DD"",2,2,.211,3)"
^XMB(3.9,9,2,2184,0)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length."
^XMB(3.9,9,2,2185,0)="""^DD"",2,2,.211,20,0)"
^XMB(3.9,9,2,2186,0)="^.3LA^1^1"
^XMB(3.9,9,2,2187,0)="""^DD"",2,2,.211,20,1,0)"
^XMB(3.9,9,2,2188,0)="NK1"
^XMB(3.9,9,2,2189,0)="""^DD"",2,2,.211,21,0)"
^XMB(3.9,9,2,2190,0)="^^4^4^2861007^"
^XMB(3.9,9,2,2191,0)="""^DD"",2,2,.211,21,1,0)"
^XMB(3.9,9,2,2192,0)="Enter the primary next of kin's name in 'LAST,FIRST MIDDLE SUFFIX' format."
^XMB(3.9,9,2,2193,0)="""^DD"",2,2,.211,21,2,0)"
^XMB(3.9,9,2,2194,0)="This value must be 3-35 characters in length and may contain only uppercase"
^XMB(3.9,9,2,2195,0)="""^DD"",2,2,.211,21,3,0)"
^XMB(3.9,9,2,2196,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"
^XMB(3.9,9,2,2197,0)="""^DD"",2,2,.211,21,4,0)"
^XMB(3.9,9,2,2198,0)="characters and parenthetical text will be removed."
^XMB(3.9,9,2,2199,0)="""^DD"",2,2,.211,""AUDIT"")"
^XMB(3.9,9,2,2200,0)="y"
^XMB(3.9,9,2,2201,0)="""^DD"",2,2,.211,""DT"")"
^XMB(3.9,9,2,2202,0)="3050611"
^XMB(3.9,9,2,2203,0)="""^DD"",2,2,.2207,0)"
^XMB(3.9,9,2,2204,0)="K-ZIP+4^FOX^^.22;7^K:X[""""""""!($A(X)=45) X I $D(X) S DFN=DA D K1^DGLOCK2 I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR"
^XMB(3.9,9,2,2205,0)="""^DD"",2,2,.2207,1,0)"
^XMB(3.9,9,2,2206,0)="^.1"
^XMB(3.9,9,2,2207,0)="""^DD"",2,2,.2207,1,1,0)"
^XMB(3.9,9,2,2208,0)="2^ANK1ZIP4^MUMPS"
^XMB(3.9,9,2,2209,0)="""^DD"",2,2,.2207,1,1,1)"
^XMB(3.9,9,2,2210,0)="D SET^DGREGDD1(DA,.218,.21,8,$E(X,1,5))"
^XMB(3.9,9,2,2211,0)="""^DD"",2,2,.2207,1,1,2)"
^XMB(3.9,9,2,2212,0)="D KILL^DGREGDD1(DA,.218,.21,8,$E(X,1,5))"
^XMB(3.9,9,2,2213,0)="""^DD"",2,2,.2207,1,1,""%D"",0)"
^XMB(3.9,9,2,2214,0)="^^2^2^2950922^^"
^XMB(3.9,9,2,2215,0)="""^DD"",2,2,.2207,1,1,""%D"",1,0)"
^XMB(3.9,9,2,2216,0)="This sets the corresponding zip code field to the first 5 digits of this "
^XMB(3.9,9,2,2217,0)="""^DD"",2,2,.2207,1,1,""%D"",2,0)"
^XMB(3.9,9,2,2218,0)="field."
^XMB(3.9,9,2,2219,0)="""^DD"",2,2,.2207,1,1,""DT"")"
^XMB(3.9,9,2,2220,0)="2950922"
^XMB(3.9,9,2,2221,0)="""^DD"",2,2,.2207,2)"
^XMB(3.9,9,2,2222,0)="S Y(0)=Y D ZIPOUT^VAFADDR"
^XMB(3.9,9,2,2223,0)="""^DD"",2,2,.2207,2.1)"
^XMB(3.9,9,2,2224,0)="D ZIPOUT^VAFADDR"
^XMB(3.9,9,2,2225,0)="""^DD"",2,2,.2207,3)"
^XMB(3.9,9,2,2226,0)="Answer with either 5 digit or 9 digit zip code."
^XMB(3.9,9,2,2227,0)="""^DD"",2,2,.2207,20,0)"
^XMB(3.9,9,2,2228,0)="^.3LA^1^1"
^XMB(3.9,9,2,2229,0)="""^DD"",2,2,.2207,20,1,0)"
^XMB(3.9,9,2,2230,0)="NK1"
^XMB(3.9,9,2,2231,0)="""^DD"",2,2,.2207,21,0)"
^XMB(3.9,9,2,2232,0)="^^3^3^2930603^"
^XMB(3.9,9,2,2233,0)="""^DD"",2,2,.2207,21,1,0)"
^XMB(3.9,9,2,2234,0)="Answer with either the 5 digit format (e.g. 12345) or the nine digit"
^XMB(3.9,9,2,2235,0)="""^DD"",2,2,.2207,21,2,0)"
^XMB(3.9,9,2,2236,0)="format (e.g. 12345-6789 or 123456789).  This is related to the primary"
^XMB(3.9,9,2,2237,0)="""^DD"",2,2,.2207,21,3,0)"
^XMB(3.9,9,2,2238,0)="emergency contact's address."
^XMB(3.9,9,2,2239,0)="""^DD"",2,2,.2207,23,0)"
^XMB(3.9,9,2,2240,0)="^^3^3^2930603^"
^XMB(3.9,9,2,2241,0)="""^DD"",2,2,.2207,23,1,0)"
^XMB(3.9,9,2,2242,0)="Related to other primary emergency contact address fields.  This field "
^XMB(3.9,9,2,2243,0)="""^DD"",2,2,.2207,23,2,0)"
^XMB(3.9,9,2,2244,0)="'triggers' the K-ZIP CODE (#.218) field, using the first 5 digits of "
^XMB(3.9,9,2,2245,0)="""^DD"",2,2,.2207,23,3,0)"
^XMB(3.9,9,2,2246,0)="this field."
^XMB(3.9,9,2,2247,0)="""^DD"",2,2,.2207,""DEL"",1,0)"
^XMB(3.9,9,2,2248,0)="S DFN=DA D K1D^DGLOCK2 I '$D(X)"
^XMB(3.9,9,2,2249,0)="""^DD"",2,2,.2207,""DT"")"
^XMB(3.9,9,2,2250,0)="2950922"
^XMB(3.9,9,2,2251,0)="""^DD"",2,2,.2401,0)"
^XMB(3.9,9,2,2252,0)="FATHER'S NAME^F^^.24;1^K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,35) K:'$L(X) X,DG20NAME"
^XMB(3.9,9,2,2253,0)="""^DD"",2,2,.2401,3)"
^XMB(3.9,9,2,2254,0)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length."
^XMB(3.9,9,2,2255,0)="""^DD"",2,2,.2401,21,0)"
^XMB(3.9,9,2,2256,0)="^^4^4^2861007^"
^XMB(3.9,9,2,2257,0)="""^DD"",2,2,.2401,21,1,0)"
^XMB(3.9,9,2,2258,0)="Enter the father's name in 'LAST,FIRST MIDDLE SUFFIX' format."
^XMB(3.9,9,2,2259,0)="""^DD"",2,2,.2401,21,2,0)"
^XMB(3.9,9,2,2260,0)="This value must be 3-35 characters in length and may contain only uppercase"
^XMB(3.9,9,2,2261,0)="""^DD"",2,2,.2401,21,3,0)"
^XMB(3.9,9,2,2262,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"
^XMB(3.9,9,2,2263,0)="""^DD"",2,2,.2401,21,4,0)"
^XMB(3.9,9,2,2264,0)="characters and parenthetical text will be removed."
^XMB(3.9,9,2,2265,0)="""^DD"",2,2,.2401,""DT"")"
^XMB(3.9,9,2,2266,0)="3050611"
^XMB(3.9,9,2,2267,0)="""^DD"",2,2,.2402,0)"
^XMB(3.9,9,2,2268,0)="MOTHER'S NAME^F^^.24;2^K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,35) K:'$L(X) X,DG20NAME"
^XMB(3.9,9,2,2269,0)="""^DD"",2,2,.2402,3)"
^XMB(3.9,9,2,2270,0)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length."
^XMB(3.9,9,2,2271,0)="""^DD"",2,2,.2402,21,0)"
^XMB(3.9,9,2,2272,0)="^^4^4^2861007^"
^XMB(3.9,9,2,2273,0)="""^DD"",2,2,.2402,21,1,0)"
^XMB(3.9,9,2,2274,0)="Enter the mother's name in 'LAST,FIRST MIDDLE SUFFIX' format."
^XMB(3.9,9,2,2275,0)="""^DD"",2,2,.2402,21,2,0)"
^XMB(3.9,9,2,2276,0)="This value must be 3-35 characters in length and may contain only uppercase"
^XMB(3.9,9,2,2277,0)="""^DD"",2,2,.2402,21,3,0)"
^XMB(3.9,9,2,2278,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"
^XMB(3.9,9,2,2279,0)="""^DD"",2,2,.2402,21,4,0)"
^XMB(3.9,9,2,2280,0)="characters and parenthetical text will be removed."
^XMB(3.9,9,2,2281,0)="""^DD"",2,2,.2402,""DT"")"
^XMB(3.9,9,2,2282,0)="3050611"
^XMB(3.9,9,2,2283,0)="""^DD"",2,2,.2403,0)"
^XMB(3.9,9,2,2284,0)="MOTHER'S MAIDEN NAME^Fa^^.24;3^K:$L(X)>35!($L(X)<2) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,35,,2,,1) K:'$L(X) X,DG20NAME"
^XMB(3.9,9,2,2285,0)="""^DD"",2,2,.2403,1,0)"
^XMB(3.9,9,2,2286,0)="^.1"
^XMB(3.9,9,2,2287,0)="""^DD"",2,2,.2403,1,991,0)"
^XMB(3.9,9,2,2288,0)="2^AVAFC2403^MUMPS"
^XMB(3.9,9,2,2289,0)="""^DD"",2,2,.2403,1,991,1)"
^XMB(3.9,9,2,2290,0)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".2403;"" D AVAFC^VAFCDD01(DA)"
^XMB(3.9,9,2,2291,0)="""^DD"",2,2,.2403,1,991,2)"
^XMB(3.9,9,2,2292,0)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".2403;"" D AVAFC^VAFCDD01(DA)"
^XMB(3.9,9,2,2293,0)="""^DD"",2,2,.2403,1,991,""%D"",0)"
^XMB(3.9,9,2,2294,0)="^^15^15^2990204^^^^"
^XMB(3.9,9,2,2295,0)="""^DD"",2,2,.2403,1,991,""%D"",1,0)"
^XMB(3.9,9,2,2296,0)="This cross reference is used to remember that changes were made to the"
^XMB(3.9,9,2,2297,0)="""^DD"",2,2,.2403,1,991,""%D"",2,0)"
^XMB(3.9,9,2,2298,0)="PATIENT file (#2) outside of the Registration process.  Execution of this"
^XMB(3.9,9,2,2299,0)="""^DD"",2,2,.2403,1,991,""%D"",3,0)"
^XMB(3.9,9,2,2300,0)="cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)"
^XMB(3.9,9,2,2301,0)="""^DD"",2,2,.2403,1,991,""%D"",4,0)"
^XMB(3.9,9,2,2302,0)="and mark it as requiring transmission of an HL7 ADT-A08 message."
^XMB(3.9,9,2,2303,0)="""^DD"",2,2,.2403,1,991,""%D"",5,0)"
^XMB(3.9,9,2,2304,0)=" "
^XMB(3.9,9,2,2305,0)="""^DD"",2,2,.2403,1,991,""%D"",6,0)"
^XMB(3.9,9,2,2306,0)="The local variable VAFCFLG will be set to 1 if the cross reference is"
^XMB(3.9,9,2,2307,0)="""^DD"",2,2,.2403,1,991,""%D"",7,0)"
^XMB(3.9,9,2,2308,0)="not executed because the change is being made from within the Registration"
^XMB(3.9,9,2,2309,0)="""^DD"",2,2,.2403,1,991,""%D"",8,0)"
^XMB(3.9,9,2,2310,0)="process."
^XMB(3.9,9,2,2311,0)="""^DD"",2,2,.2403,1,991,""%D"",9,0)"
^XMB(3.9,9,2,2312,0)=" "
^XMB(3.9,9,2,2313,0)="""^DD"",2,2,.2403,1,991,""%D"",10,0)"
^XMB(3.9,9,2,2314,0)="Execution of this cross reference can be prevented by setting the local"
^XMB(3.9,9,2,2315,0)="""^DD"",2,2,.2403,1,991,""%D"",11,0)"
^XMB(3.9,9,2,2316,0)="variable VAFCA08 equal to 1."
^XMB(3.9,9,2,2317,0)="""^DD"",2,2,.2403,1,991,""%D"",12,0)"
^XMB(3.9,9,2,2318,0)="  "
^XMB(3.9,9,2,2319,0)="""^DD"",2,2,.2403,1,991,""%D"",13,0)"
^XMB(3.9,9,2,2320,0)="The local variable VAFCF is used to identify the field edited."
^XMB(3.9,9,2,2321,0)="""^DD"",2,2,.2403,1,991,""%D"",14,0)"
^XMB(3.9,9,2,2322,0)="This data is stored in the FIELD(S) EDITED (#2.1) field in the "
^XMB(3.9,9,2,2323,0)="""^DD"",2,2,.2403,1,991,""%D"",15,0)"
^XMB(3.9,9,2,2324,0)="ADT/HL7 PIVOT file (#391.71)."
^XMB(3.9,9,2,2325,0)="""^DD"",2,2,.2403,1,991,""DT"")"
^XMB(3.9,9,2,2326,0)="2970825"
^XMB(3.9,9,2,2327,0)="""^DD"",2,2,.2403,3)"
^XMB(3.9,9,2,2328,0)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length."
^XMB(3.9,9,2,2329,0)="""^DD"",2,2,.2403,21,0)"
^XMB(3.9,9,2,2330,0)="^^4^4^2861007^"
^XMB(3.9,9,2,2331,0)="""^DD"",2,2,.2403,21,1,0)"
^XMB(3.9,9,2,2332,0)="Enter the mother's maiden name in 'LAST,FIRST MIDDLE SUFFIX' format."
^XMB(3.9,9,2,2333,0)="""^DD"",2,2,.2403,21,2,0)"
^XMB(3.9,9,2,2334,0)="Entry of the LAST name only is permitted and the comma may be omitted."
^XMB(3.9,9,2,2335,0)="""^DD"",2,2,.2403,21,3,0)"
^XMB(3.9,9,2,2336,0)="If the response contains no comma, one will be appended to the value."
^XMB(3.9,9,2,2337,0)="""^DD"",2,2,.2403,21,4,0)"
^XMB(3.9,9,2,2338,0)="Including the comma, the value must be at least 3 characters in length."
^XMB(3.9,9,2,2339,0)="""^DD"",2,2,.2403,""AUDIT"")"
^XMB(3.9,9,2,2340,0)="y"
^XMB(3.9,9,2,2341,0)="""^DD"",2,2,.2403,""DT"")"
^XMB(3.9,9,2,2342,0)="3050611"
^XMB(3.9,9,2,2343,0)="""^DD"",2,2,.2924,0)"
^XMB(3.9,9,2,2344,0)="STREET ADDRESS 1 (CIVIL)^F^^.291;6^K:$L(X)>30!($L(X)<2) X"
^XMB(3.9,9,2,2345,0)="""^DD"",2,2,.2924,3)"
^XMB(3.9,9,2,2346,0)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^XMB(3.9,9,2,2347,0)="""^DD"",2,2,.2924,21,0)"
^XMB(3.9,9,2,2348,0)="^^2^2^2911224^"
^XMB(3.9,9,2,2349,0)="""^DD"",2,2,.2924,21,1,0)"
^XMB(3.9,9,2,2350,0)="Enter the first line of the street address of the person responsible for"
^XMB(3.9,9,2,2351,0)="""^DD"",2,2,.2924,21,2,0)"
^XMB(3.9,9,2,2352,0)="handling this patient's funds."
^XMB(3.9,9,2,2353,0)="""^DD"",2,2,.307,0)"
^XMB(3.9,9,2,2354,0)="INELIGIBLE REASON^FX^^.3;7^K:$L(X)>40!($L(X)<1) X I $D(X) D EK^DGLOCK"
^XMB(3.9,9,2,2355,0)="""^DD"",2,2,.307,.1)"
^XMB(3.9,9,2,2356,0)="REASON-INELIGIBLE"
^XMB(3.9,9,2,2357,0)="""^DD"",2,2,.307,3)"
^XMB(3.9,9,2,2358,0)="Enter the reason this patient is considered to be ineligible for treatment NTE 40 characters."
^XMB(3.9,9,2,2359,0)="""^DD"",2,2,.307,20,0)"
^XMB(3.9,9,2,2360,0)="^.3LA^1^1"
^XMB(3.9,9,2,2361,0)="""^DD"",2,2,.307,20,1,0)"
^XMB(3.9,9,2,2362,0)="IPT"
^XMB(3.9,9,2,2363,0)="""^DD"",2,2,.307,21,0)"
^XMB(3.9,9,2,2364,0)="^^5^5^2861007^^^"
^XMB(3.9,9,2,2365,0)="""^DD"",2,2,.307,21,1,0)"
^XMB(3.9,9,2,2366,0)="If this applicant is ineligible for treatment enter the reason"
^XMB(3.9,9,2,2367,0)="""^DD"",2,2,.307,21,2,0)"
^XMB(3.9,9,2,2368,0)="[not to exceed 40 characters].  An ineligible date must be specified"
^XMB(3.9,9,2,2369,0)="""^DD"",2,2,.307,21,3,0)"
^XMB(3.9,9,2,2370,0)="in order to enter/edit this field and the user must hold the"
^XMB(3.9,9,2,2371,0)="""^DD"",2,2,.307,21,4,0)"
^XMB(3.9,9,2,2372,0)="designated security key.  This field may not be deleted as long as"
^XMB(3.9,9,2,2373,0)="""^DD"",2,2,.307,21,5,0)"
^XMB(3.9,9,2,2374,0)="an ineligible date is on file."
^XMB(3.9,9,2,2375,0)="""^DD"",2,2,.307,""DEL"",1,0)"
^XMB(3.9,9,2,2376,0)="D EK^DGLOCK I '$D(X)"
^XMB(3.9,9,2,2377,0)="""^DD"",2,2,.307,""DT"")"
^XMB(3.9,9,2,2378,0)="2860728"
^XMB(3.9,9,2,2379,0)="""^DD"",2,2,.3111,0)"
^XMB(3.9,9,2,2380,0)="EMPLOYER NAME^FX^^.311;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X I $D(X) D EM^DGLOCK2"
^XMB(3.9,9,2,2381,0)="""^DD"",2,2,.3111,.1)"
^XMB(3.9,9,2,2382,0)=""
^XMB(3.9,9,2,2383,0)="""^DD"",2,2,.3111,1,0)"
^XMB(3.9,9,2,2384,0)="^.1"
^XMB(3.9,9,2,2385,0)="""^DD"",2,2,.3111,1,1,0)"
^XMB(3.9,9,2,2386,0)="2^AXR3^MUMPS"
^XMB(3.9,9,2,2387,0)="""^DD"",2,2,.3111,1,1,1)"
^XMB(3.9,9,2,2388,0)="Q"
^XMB(3.9,9,2,2389,0)="""^DD"",2,2,.3111,1,1,2)"
^XMB(3.9,9,2,2390,0)="S DGXRF=.3111 D ^DGDDC Q"
^XMB(3.9,9,2,2391,0)="""^DD"",2,2,.3111,3)"
^XMB(3.9,9,2,2392,0)="Enter the name of this patient's employer [1-30 characters]."
^XMB(3.9,9,2,2393,0)="""^DD"",2,2,.3111,5,1,0)"
^XMB(3.9,9,2,2394,0)="2^.31115^2"
^XMB(3.9,9,2,2395,0)="""^DD"",2,2,.3111,20,0)"
^XMB(3.9,9,2,2396,0)="^.3LA^1^1"
^XMB(3.9,9,2,2397,0)="""^DD"",2,2,.3111,20,1,0)"
^XMB(3.9,9,2,2398,0)="EM1"
^XMB(3.9,9,2,2399,0)="""^DD"",2,2,.3111,21,0)"
^XMB(3.9,9,2,2400,0)="^^2^2^2920604^^"
^XMB(3.9,9,2,2401,0)="""^DD"",2,2,.3111,21,1,0)"
^XMB(3.9,9,2,2402,0)="If employment status is indicated and is not unemployed enter the"
^XMB(3.9,9,2,2403,0)="""^DD"",2,2,.3111,21,2,0)"
^XMB(3.9,9,2,2404,0)="employer name [1-30 characters], otherwise nothing may be entered."
^XMB(3.9,9,2,2405,0)="""^DD"",2,2,.3111,""DT"")"
^XMB(3.9,9,2,2406,0)="2890530"
^XMB(3.9,9,2,2407,0)="""^DD"",2,2,.3192,0)"
^XMB(3.9,9,2,2408,0)="COVERED BY HEALTH INSURANCE?^RS^Y:YES;N:NO;U:UNKNOWN;^.31;11^Q"
^XMB(3.9,9,2,2409,0)="""^DD"",2,2,.3192,.1)"
^XMB(3.9,9,2,2410,0)="ARE YOU COVERED BY ANY HEALTH INSURANCE"
^XMB(3.9,9,2,2411,0)="""^DD"",2,2,.3192,3)"
^XMB(3.9,9,2,2412,0)="Enter 'Y' if this patient is covered by health insurance, 'N' if not."
^XMB(3.9,9,2,2413,0)="""^DD"",2,2,.3192,20,0)"
^XMB(3.9,9,2,2414,0)="^.3LA^1^1"
^XMB(3.9,9,2,2415,0)="""^DD"",2,2,.3192,20,1,0)"
^XMB(3.9,9,2,2416,0)="II"
^XMB(3.9,9,2,2417,0)="""^DD"",2,2,.3192,21,0)"
^XMB(3.9,9,2,2418,0)="^^3^3^2861117^^^^"
^XMB(3.9,9,2,2419,0)="""^DD"",2,2,.3192,21,1,0)"
^XMB(3.9,9,2,2420,0)="Enter 'Y' if this applicant is covered by a health insurance policy"
^XMB(3.9,9,2,2421,0)="""^DD"",2,2,.3192,21,2,0)"
^XMB(3.9,9,2,2422,0)="regardless of who holds policy (applicant, spouse, employer, etc.),"
^XMB(3.9,9,2,2423,0)="""^DD"",2,2,.3192,21,3,0)"
^XMB(3.9,9,2,2424,0)="'N' if s/he isn't covered by any policy, or 'U' if unknown."
^XMB(3.9,9,2,2425,0)="""^DD"",2,2,.3192,""DT"")"
^XMB(3.9,9,2,2426,0)="2911211"
^XMB(3.9,9,2,2427,0)="""^DD"",2,2,.322014,0)"
^XMB(3.9,9,2,2428,0)="ENVIR. CONT. REGISTRATION DATE^DX^^.322;14^S %DT=""E"",%DT(0)=-DT D ^%DT S X=Y K:Y<1 X I $D(X) S DFN=DA D EC^DGLOCK"
^XMB(3.9,9,2,2429,0)="""^DD"",2,2,.322014,3)"
^XMB(3.9,9,2,2430,0)="Enter the date on which this patient was registered as being exposed to environmental contaminants.  This must be after 8/1/1990."
^XMB(3.9,9,2,2431,0)="""^DD"",2,2,.322014,5,1,0)"
^XMB(3.9,9,2,2432,0)="2^.322013^1"
^XMB(3.9,9,2,2433,0)="""^DD"",2,2,.322014,21,0)"
^XMB(3.9,9,2,2434,0)="^^2^2^2930629^^"
^XMB(3.9,9,2,2435,0)="""^DD"",2,2,.322014,21,1,0)"
^XMB(3.9,9,2,2436,0)="This is the date on which the patient registered for being exposed to"
^XMB(3.9,9,2,2437,0)="""^DD"",2,2,.322014,21,2,0)"
^XMB(3.9,9,2,2438,0)="environmental contaminants.  This date must be after 8/1/1990."
^XMB(3.9,9,2,2439,0)="""^DD"",2,2,.322014,23,0)"
^XMB(3.9,9,2,2440,0)="^^2^2^2930629^^"
^XMB(3.9,9,2,2441,0)="""^DD"",2,2,.322014,23,1,0)"
^XMB(3.9,9,2,2442,0)="This is the date on which the patient registered for being exposed to"
^XMB(3.9,9,2,2443,0)="""^DD"",2,2,.322014,23,2,0)"
^XMB(3.9,9,2,2444,0)="environmental contaminants.  This date must be after 8/1/1990."
^XMB(3.9,9,2,2445,0)="""^DD"",2,2,.322014,""DT"")"
^XMB(3.9,9,2,2446,0)="2930721"
^XMB(3.9,9,2,2447,0)="""^DD"",2,2,.322015,0)"
^XMB(3.9,9,2,2448,0)="ENVIR. CONT. EXAM DATE^DX^^.322;15^S %DT=""E"",%DT(0)=-DT D ^%DT S X=Y K:Y<1 X I $D(X) D EC^DGLOCK"
^XMB(3.9,9,2,2449,0)="""^DD"",2,2,.322015,3)"
^XMB(3.9,9,2,2450,0)="Enter the date this patient was examined for the environmental contaminants condition claimed (Must be after 8/1/1990)."
^XMB(3.9,9,2,2451,0)="""^DD"",2,2,.322015,5,1,0)"
^XMB(3.9,9,2,2452,0)="2^.322013^2"
^XMB(3.9,9,2,2453,0)="""^DD"",2,2,.322015,21,0)"
^XMB(3.9,9,2,2454,0)="^^2^2^2930629^^"
^XMB(3.9,9,2,2455,0)="""^DD"",2,2,.322015,21,1,0)"
^XMB(3.9,9,2,2456,0)="This is the date on which an examination for exposure to environmental"
^XMB(3.9,9,2,2457,0)="""^DD"",2,2,.322015,21,2,0)"
^XMB(3.9,9,2,2458,0)="contaminants was performed on the patient."
^XMB(3.9,9,2,2459,0)="""^DD"",2,2,.322015,""DT"")"
^XMB(3.9,9,2,2460,0)="2930721"
^XMB(3.9,9,2,2461,0)="""^DD"",2,2,.331,0)"
^XMB(3.9,9,2,2462,0)="E-NAME^F^^.33;1^K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,35) K:'$L(X) X,DG20NAME"
^XMB(3.9,9,2,2463,0)="""^DD"",2,2,.331,.1)"
^XMB(3.9,9,2,2464,0)="EMERGENCY CONTACT"
^XMB(3.9,9,2,2465,0)="""^DD"",2,2,.331,1,0)"
^XMB(3.9,9,2,2466,0)="^.1"
^XMB(3.9,9,2,2467,0)="""^DD"",2,2,.331,1,1,0)"
^XMB(3.9,9,2,2468,0)="2^AXR4^MUMPS"
^XMB(3.9,9,2,2469,0)="""^DD"",2,2,.331,1,1,1)"
^XMB(3.9,9,2,2470,0)="Q"
^XMB(3.9,9,2,2471,0)="""^DD"",2,2,.331,1,1,2)"
^XMB(3.9,9,2,2472,0)="S DGXRF=.331 D ^DGDDC Q"
^XMB(3.9,9,2,2473,0)="""^DD"",2,2,.331,3)"
^XMB(3.9,9,2,2474,0)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length."
^XMB(3.9,9,2,2475,0)="""^DD"",2,2,.331,20,0)"
^XMB(3.9,9,2,2476,0)="^.3LA^1^1"
^XMB(3.9,9,2,2477,0)="""^DD"",2,2,.331,20,1,0)"
^XMB(3.9,9,2,2478,0)="EC1"
^XMB(3.9,9,2,2479,0)="""^DD"",2,2,.331,21,0)"
^XMB(3.9,9,2,2480,0)="^^4^4^2861117^^^"
^XMB(3.9,9,2,2481,0)="""^DD"",2,2,.331,21,1,0)"
^XMB(3.9,9,2,2482,0)="Enter the primary emergency contact's name in 'LAST,FIRST MIDDLE SUFFIX' format."
^XMB(3.9,9,2,2483,0)="""^DD"",2,2,.331,21,2,0)"
^XMB(3.9,9,2,2484,0)="This value must be 3-35 characters in length and may contain only uppercase"
^XMB(3.9,9,2,2485,0)="""^DD"",2,2,.331,21,3,0)"
^XMB(3.9,9,2,2486,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"
^XMB(3.9,9,2,2487,0)="""^DD"",2,2,.331,21,4,0)"
^XMB(3.9,9,2,2488,0)="characters and parenthetical text will be removed."
^XMB(3.9,9,2,2489,0)="""^DD"",2,2,.331,""DT"")"
^XMB(3.9,9,2,2490,0)="3050611"
^XMB(3.9,9,2,2491,0)="""^DD"",2,2,.341,0)"
^XMB(3.9,9,2,2492,0)="D-NAME OF DESIGNEE^F^^.34;1^K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,35) K:'$L(X) X,DG20NAME"
^XMB(3.9,9,2,2493,0)="""^DD"",2,2,.341,.1)"
^XMB(3.9,9,2,2494,0)="DESIGNEE"
^XMB(3.9,9,2,2495,0)="""^DD"",2,2,.341,1,0)"
^XMB(3.9,9,2,2496,0)="^.1"
^XMB(3.9,9,2,2497,0)="""^DD"",2,2,.341,1,1,0)"
^XMB(3.9,9,2,2498,0)="2^AXR6^MUMPS"
^XMB(3.9,9,2,2499,0)="""^DD"",2,2,.341,1,1,1)"
^XMB(3.9,9,2,2500,0)="Q"
^XMB(3.9,9,2,2501,0)="""^DD"",2,2,.341,1,1,2)"
^XMB(3.9,9,2,2502,0)="S DGXRF=.341 D ^DGDDC Q"
^XMB(3.9,9,2,2503,0)="""^DD"",2,2,.341,3)"
^XMB(3.9,9,2,2504,0)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length."
^XMB(3.9,9,2,2505,0)="""^DD"",2,2,.341,20,0)"
^XMB(3.9,9,2,2506,0)="^.3LA^1^1"
^XMB(3.9,9,2,2507,0)="""^DD"",2,2,.341,20,1,0)"
^XMB(3.9,9,2,2508,0)="D1"
^XMB(3.9,9,2,2509,0)="""^DD"",2,2,.341,21,0)"
^XMB(3.9,9,2,2510,0)="^^4^4^2861007^"
^XMB(3.9,9,2,2511,0)="""^DD"",2,2,.341,21,1,0)"
^XMB(3.9,9,2,2512,0)="Enter the designee's name in 'LAST,FIRST MIDDLE SUFFIX' format."
^XMB(3.9,9,2,2513,0)="""^DD"",2,2,.341,21,2,0)"
^XMB(3.9,9,2,2514,0)="This value must be 3-35 characters in length and may contain only uppercase"
^XMB(3.9,9,2,2515,0)="""^DD"",2,2,.341,21,3,0)"
^XMB(3.9,9,2,2516,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"
^XMB(3.9,9,2,2517,0)="""^DD"",2,2,.341,21,4,0)"
^XMB(3.9,9,2,2518,0)="characters and parenthetical text will be removed."
^XMB(3.9,9,2,2519,0)="""^DD"",2,2,.341,""DT"")"
^XMB(3.9,9,2,2520,0)="3050611"
^XMB(3.9,9,2,2521,0)="""^DD"",2,2,.361,0)"
^XMB(3.9,9,2,2522,0)="PRIMARY ELIGIBILITY CODE^*P8'Xa^DIC(8,^.36;1^S DFN=DA D EV^DGLOCK I $D(X) D ECD^DGLOCK1"
^XMB(3.9,9,2,2523,0)="""^DD"",2,2,.361,.1)"
^XMB(3.9,9,2,2524,0)=""
^XMB(3.9,9,2,2525,0)="""^DD"",2,2,.361,1,0)"
^XMB(3.9,9,2,2526,0)="^.1"
^XMB(3.9,9,2,2527,0)="""^DD"",2,2,.361,1,1,0)"
^XMB(3.9,9,2,2528,0)="2^AG^MUMPS"
^XMB(3.9,9,2,2529,0)="""^DD"",2,2,.361,1,1,1)"
^XMB(3.9,9,2,2530,0)="S DFN=DA D EN^DGMTR K DGREQF"
^XMB(3.9,9,2,2531,0)="""^DD"",2,2,.361,1,1,2)"
^XMB(3.9,9,2,2532,0)="Q"
^XMB(3.9,9,2,2533,0)="""^DD"",2,2,.361,1,1,""DT"")"
^XMB(3.9,9,2,2534,0)="2920720"
^XMB(3.9,9,2,2535,0)="""^DD"",2,2,.361,1,2,0)"
^XMB(3.9,9,2,2536,0)="^^TRIGGER^2.0361^.01"
^XMB(3.9,9,2,2537,0)="""^DD"",2,2,.361,1,2,1)"
^XMB(3.9,9,2,2538,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(2,.361,1,2,89.4) S Y(102)=$S($D(^DPT(D0,""E"",D1,0)):^(0),1:"""") S X=$S('$D(^DIC(8,+$P(Y(102),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(1,0) S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(2,.361,1,2,1.4)"
^XMB(3.9,9,2,2539,0)="""^DD"",2,2,.361,1,2,1.4)"
^XMB(3.9,9,2,2540,0)="S DIH=$S($D(^DPT(DIV(0),""E"",DIV(1),0)):^(0),1:""""),DIV=X I $D(^(0)) S $P(^(0),U,1)=DIV,DIH=2.0361,DIG=.01 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,9,2,2541,0)="""^DD"",2,2,.361,1,2,2)"
^XMB(3.9,9,2,2542,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(2,.361,1,2,2.2) I DIV(1)>0 S DIK(0)=DA,DIK=""^DPT(DIV(0),""""E"""","",DA(1)=DIV(0),DA=DIV(1) D ^DIK S DA=DIK(0) K DIK"
^XMB(3.9,9,2,2543,0)="""^DD"",2,2,.361,1,2,2.2)"
^XMB(3.9,9,2,2544,0)="X ^DD(2,.361,1,2,99.3) S X=$S('$D(^DIC(8,+$P(Y(102),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(1,0) S DIU=X K Y"
^XMB(3.9,9,2,2545,0)="""^DD"",2,2,.361,1,2,3)"
^XMB(3.9,9,2,2546,0)="This trigger stuffs the ELIGIBILITY CODE into the PATIENT'S ELIGIBILITIES multiple."
^XMB(3.9,9,2,2547,0)="""^DD"",2,2,.361,1,2,89.2)"
^XMB(3.9,9,2,2548,0)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),Y(2)=$S($D(^DPT(D0,.36)):^(.36),1:"""") S X=""`"",Y(1)=X S X=$P(Y(2),U,1),X=X S Y=X,X=Y(1),X=X S X=X"
^XMB(3.9,9,2,2549,0)="""^DD"",2,2,.361,1,2,89.3)"
^XMB(3.9,9,2,2550,0)="X ^DD(2,.361,1,2,89.2) S X=X_Y,X=X S X=X"
^XMB(3.9,9,2,2551,0)="""^DD"",2,2,.361,1,2,89.4)"
^XMB(3.9,9,2,2552,0)="X ^DD(2,.361,1,2,89.3) K DIC S Y=-1,DIC=""^DPT(D0,""""E"""","",DIC(0)=""NMFL"",DIC(""P"")=""2.0361P"",DIU(1)=$S($D(DA(1)):DA(1),1:0),DA(1)=D0 D ^DIC:D0>0 S (D,D1,DIV(1))=+Y,DA(1)=DIU(1)"
^XMB(3.9,9,2,2553,0)="""^DD"",2,2,.361,1,2,99.2)"
^XMB(3.9,9,2,2554,0)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),Y(2)=DIV S X=""`"",Y(1)=X S X=$P(Y(2),U,1),X=X S Y=X,X=Y(1),X=X S X=X"
^XMB(3.9,9,2,2555,0)="""^DD"",2,2,.361,1,2,99.3)"
^XMB(3.9,9,2,2556,0)="X ^DD(2,.361,1,2,99.2) S X=X_Y K DIC S Y=-1,DIC=""^DPT(D0,""""E"""","",DIC(0)=""NMF"" D ^DIC:D0>0 S (D,D1,DIV(1))=+Y S Y(102)=$S($D(^DPT(D0,""E"",D1,0)):^(0),1:"""")"
^XMB(3.9,9,2,2557,0)="""^DD"",2,2,.361,1,2,""CREATE VALUE"")"
^XMB(3.9,9,2,2558,0)="INTERNAL(ELIGIBILITY CODE)"
^XMB(3.9,9,2,2559,0)="""^DD"",2,2,.361,1,2,""DELETE VALUE"")"
^XMB(3.9,9,2,2560,0)="@"
^XMB(3.9,9,2,2561,0)="""^DD"",2,2,.361,1,2,""DIC"")"
^XMB(3.9,9,2,2562,0)="LOOKUP"
^XMB(3.9,9,2,2563,0)="""^DD"",2,2,.361,1,2,""DIK"")"
^XMB(3.9,9,2,2564,0)="DELETE"
^XMB(3.9,9,2,2565,0)="""^DD"",2,2,.361,1,2,""FIELD"")"
^XMB(3.9,9,2,2566,0)="""`""_INTERNAL(ELIGIBILITY CODE):#361:#.01"
^XMB(3.9,9,2,2567,0)="""^DD"",2,2,.361,1,3,0)"
^XMB(3.9,9,2,2568,0)="2^AXR28^MUMPS"
^XMB(3.9,9,2,2569,0)="""^DD"",2,2,.361,1,3,1)"
^XMB(3.9,9,2,2570,0)="Q"
^XMB(3.9,9,2,2571,0)="""^DD"",2,2,.361,1,3,2)"
^XMB(3.9,9,2,2572,0)="I $S('$D(^DIC(8,+X,0)):0,$P(^(0),""^"",1)[""DOM"":0,'$D(^DPT(DA,.36)):1,'$D(^DIC(8,+^(.36),0)):1,$P(^(0),""^"",1)'[""DOM"":1,1:0) S DGXRF=.361 D ^DGDDC Q"
^XMB(3.9,9,2,2573,0)="""^DD"",2,2,.361,1,3,""%D"",0)"
^XMB(3.9,9,2,2574,0)="^^8^8^2920429^"
^XMB(3.9,9,2,2575,0)="""^DD"",2,2,.361,1,3,""%D"",1,0)"
^XMB(3.9,9,2,2576,0)="When the eligibility code is changed, this cross-reference removes the"
^XMB(3.9,9,2,2577,0)="""^DD"",2,2,.361,1,3,""%D"",2,0)"
^XMB(3.9,9,2,2578,0)="data in the ELIGIBILITY STATUS field.  This only occurs if neither the"
^XMB(3.9,9,2,2579,0)="""^DD"",2,2,.361,1,3,""%D"",3,0)"
^XMB(3.9,9,2,2580,0)="original eligibility code nor the new eligibility code (the one being"
^XMB(3.9,9,2,2581,0)="""^DD"",2,2,.361,1,3,""%D"",4,0)"
^XMB(3.9,9,2,2582,0)="entered) is DOM. PATIENT.  If either is DOM. PATIENT, no update occurs."
^XMB(3.9,9,2,2583,0)="""^DD"",2,2,.361,1,3,""%D"",5,0)"
^XMB(3.9,9,2,2584,0)=" "
^XMB(3.9,9,2,2585,0)="""^DD"",2,2,.361,1,3,""%D"",6,0)"
^XMB(3.9,9,2,2586,0)="Since the DOM. PATIENT eligibility is being inactivated with MAS 5.2,"
^XMB(3.9,9,2,2587,0)="""^DD"",2,2,.361,1,3,""%D"",7,0)"
^XMB(3.9,9,2,2588,0)="the conditional on this cross-reference will be removed in a future "
^XMB(3.9,9,2,2589,0)="""^DD"",2,2,.361,1,3,""%D"",8,0)"
^XMB(3.9,9,2,2590,0)="version of MAS."
^XMB(3.9,9,2,2591,0)="""^DD"",2,2,.361,1,3,""DT"")"
^XMB(3.9,9,2,2592,0)="2920429"
^XMB(3.9,9,2,2593,0)="""^DD"",2,2,.361,1,4,0)"
^XMB(3.9,9,2,2594,0)="2^AEL^MUMPS"
^XMB(3.9,9,2,2595,0)="""^DD"",2,2,.361,1,4,1)"
^XMB(3.9,9,2,2596,0)="S ^DPT(""AEL"",DA,+X)="""""
^XMB(3.9,9,2,2597,0)="""^DD"",2,2,.361,1,4,2)"
^XMB(3.9,9,2,2598,0)="K ^DPT(""AEL"",DA,+X)"
^XMB(3.9,9,2,2599,0)="""^DD"",2,2,.361,1,5,0)"
^XMB(3.9,9,2,2600,0)="2^AENR361^MUMPS"
^XMB(3.9,9,2,2601,0)="""^DD"",2,2,.361,1,5,1)"
^XMB(3.9,9,2,2602,0)="D AUTOUPD^DGENA2(DA)"
^XMB(3.9,9,2,2603,0)="""^DD"",2,2,.361,1,5,2)"
^XMB(3.9,9,2,2604,0)="D AUTOUPD^DGENA2(DA)"
^XMB(3.9,9,2,2605,0)="""^DD"",2,2,.361,1,5,3)"
^XMB(3.9,9,2,2606,0)="DO NOT DELETE"
^XMB(3.9,9,2,2607,0)="""^DD"",2,2,.361,1,5,""%D"",0)"
^XMB(3.9,9,2,2608,0)="^^2^2^2970715^^"
^XMB(3.9,9,2,2609,0)="""^DD"",2,2,.361,1,5,""%D"",1,0)"
^XMB(3.9,9,2,2610,0)="This cross-reference is used to update the patient's current Patient Enrollment "
^XMB(3.9,9,2,2611,0)="""^DD"",2,2,.361,1,5,""%D"",2,0)"
^XMB(3.9,9,2,2612,0)="record."
^XMB(3.9,9,2,2613,0)="""^DD"",2,2,.361,1,5,""DT"")"
^XMB(3.9,9,2,2614,0)="2970715"
^XMB(3.9,9,2,2615,0)="""^DD"",2,2,.361,3)"
^XMB(3.9,9,2,2616,0)="Select from the available list the eligibility code which best defines this applicant's primary entitlement to care.  For more detailed information, enter ??."
^XMB(3.9,9,2,2617,0)="""^DD"",2,2,.361,12)"
^XMB(3.9,9,2,2618,0)="Applicable code based on veteran or non-veteran status."
^XMB(3.9,9,2,2619,0)="""^DD"",2,2,.361,12.1)"
^XMB(3.9,9,2,2620,0)="S DFN=DA D ECD^DGLOCK1"
^XMB(3.9,9,2,2621,0)="""^DD"",2,2,.361,20,0)"
^XMB(3.9,9,2,2622,0)="^.3LA^1^1"
^XMB(3.9,9,2,2623,0)="""^DD"",2,2,.361,20,1,0)"
^XMB(3.9,9,2,2624,0)="ECD"
^XMB(3.9,9,2,2625,0)="""^DD"",2,2,.361,21,0)"
^XMB(3.9,9,2,2626,0)="^^41^41^2940930^^^^"
^XMB(3.9,9,2,2627,0)="""^DD"",2,2,.361,21,1,0)"
^XMB(3.9,9,2,2628,0)="Select from the available listing the appropriate eligibility code for"
^XMB(3.9,9,2,2629,0)="""^DD"",2,2,.361,21,2,0)"
^XMB(3.9,9,2,2630,0)="this applicant.  For non-veteran applicants a wide variety of choices"
^XMB(3.9,9,2,2631,0)="""^DD"",2,2,.361,21,3,0)"
^XMB(3.9,9,2,2632,0)="are available.  For veteran applicants the choices are screened [in the"
^XMB(3.9,9,2,2633,0)="""^DD"",2,2,.361,21,4,0)"
^XMB(3.9,9,2,2634,0)="following order] dependent on the responses to other prompts:"
^XMB(3.9,9,2,2635,0)="""^DD"",2,2,.361,21,5,0)"
^XMB(3.9,9,2,2636,0)="   "
^XMB(3.9,9,2,2637,0)="""^DD"",2,2,.361,21,6,0)"
^XMB(3.9,9,2,2638,0)="1.  If the SERVICE CONNECTED prompt (field .301) is answered YES"
^XMB(3.9,9,2,2639,0)="""^DD"",2,2,.361,21,7,0)"
^XMB(3.9,9,2,2640,0)="    only the following two choices are available:"
^XMB(3.9,9,2,2641,0)="""^DD"",2,2,.361,21,8,0)"
^XMB(3.9,9,2,2642,0)="    "
^XMB(3.9,9,2,2643,0)="""^DD"",2,2,.361,21,9,0)"
^XMB(3.9,9,2,2644,0)="    a.  If the SERVICE CONNECTED PERCENTAGE prompt (field .302) entered"
^XMB(3.9,9,2,2645,0)="""^DD"",2,2,.361,21,10,0)"
^XMB(3.9,9,2,2646,0)="        is 50% or greater 'SERVICE CONNECTED 50% TO 100%' can be"
^XMB(3.9,9,2,2647,0)="""^DD"",2,2,.361,21,11,0)"
^XMB(3.9,9,2,2648,0)="        selected."
^XMB(3.9,9,2,2649,0)="""^DD"",2,2,.361,21,12,0)"
^XMB(3.9,9,2,2650,0)="   "
^XMB(3.9,9,2,2651,0)="""^DD"",2,2,.361,21,13,0)"
^XMB(3.9,9,2,2652,0)="    b.  Otherwise, the percentage is assumed to be less than 50% and"
^XMB(3.9,9,2,2653,0)="""^DD"",2,2,.361,21,14,0)"
^XMB(3.9,9,2,2654,0)="        only 'SC, LESS THAN 50%' may be entered."
^XMB(3.9,9,2,2655,0)="""^DD"",2,2,.361,21,15,0)"
^XMB(3.9,9,2,2656,0)="   "
^XMB(3.9,9,2,2657,0)="""^DD"",2,2,.361,21,16,0)"
^XMB(3.9,9,2,2658,0)="2.  If the response to the WERE YOU A PRISONER OF WAR field (# .525)"
^XMB(3.9,9,2,2659,0)="""^DD"",2,2,.361,21,17,0)"
^XMB(3.9,9,2,2660,0)="    is YES and the veteran is not service connected, you must select "
^XMB(3.9,9,2,2661,0)="""^DD"",2,2,.361,21,18,0)"
^XMB(3.9,9,2,2662,0)="    PRISONER OF WAR as the eligibility code."
^XMB(3.9,9,2,2663,0)="""^DD"",2,2,.361,21,19,0)"
^XMB(3.9,9,2,2664,0)="   "
^XMB(3.9,9,2,2665,0)="""^DD"",2,2,.361,21,20,0)"
^XMB(3.9,9,2,2666,0)="3.  If the veteran is receiving VA benefits, but does not meet the"
^XMB(3.9,9,2,2667,0)="""^DD"",2,2,.361,21,21,0)"
^XMB(3.9,9,2,2668,0)="    criteria in items 1 and 2 above, then the following choices may"
^XMB(3.9,9,2,2669,0)="""^DD"",2,2,.361,21,22,0)"
^XMB(3.9,9,2,2670,0)="    be presented for selection:"
^XMB(3.9,9,2,2671,0)="""^DD"",2,2,.361,21,23,0)"
^XMB(3.9,9,2,2672,0)=" "
^XMB(3.9,9,2,2673,0)="""^DD"",2,2,.361,21,24,0)"
^XMB(3.9,9,2,2674,0)="    If RECEIVING A&A BENEFITS is answered YES, the eligibility code"
^XMB(3.9,9,2,2675,0)="""^DD"",2,2,.361,21,25,0)"
^XMB(3.9,9,2,2676,0)="    AID & ATTENDANCE may be selected."
^XMB(3.9,9,2,2677,0)="""^DD"",2,2,.361,21,26,0)"
^XMB(3.9,9,2,2678,0)=" "
^XMB(3.9,9,2,2679,0)="""^DD"",2,2,.361,21,27,0)"
^XMB(3.9,9,2,2680,0)="    If the RECEIVING HOUSEBOUND BENEFITS is answered YES ,the eligibility"
^XMB(3.9,9,2,2681,0)="""^DD"",2,2,.361,21,28,0)"
^XMB(3.9,9,2,2682,0)="    code HOUSEBOUND may be selected."
^XMB(3.9,9,2,2683,0)="""^DD"",2,2,.361,21,29,0)"
^XMB(3.9,9,2,2684,0)=" "
^XMB(3.9,9,2,2685,0)="""^DD"",2,2,.361,21,30,0)"
^XMB(3.9,9,2,2686,0)="    If the above two prompts were answered NO, but the RECEIVING A VA"
^XMB(3.9,9,2,2687,0)="""^DD"",2,2,.361,21,31,0)"
^XMB(3.9,9,2,2688,0)="    PENSION prompt was answered YES, only the NSC, VA PENSION prompt"
^XMB(3.9,9,2,2689,0)="""^DD"",2,2,.361,21,32,0)"
^XMB(3.9,9,2,2690,0)="    may be selected."
^XMB(3.9,9,2,2691,0)="""^DD"",2,2,.361,21,33,0)"
^XMB(3.9,9,2,2692,0)=" "
^XMB(3.9,9,2,2693,0)="""^DD"",2,2,.361,21,34,0)"
^XMB(3.9,9,2,2694,0)="4.  If none of the above pertain to this veteran, then the NSC eligibility"
^XMB(3.9,9,2,2695,0)="""^DD"",2,2,.361,21,35,0)"
^XMB(3.9,9,2,2696,0)="    will be available for selection."
^XMB(3.9,9,2,2697,0)="""^DD"",2,2,.361,21,36,0)"
^XMB(3.9,9,2,2698,0)=" "
^XMB(3.9,9,2,2699,0)="""^DD"",2,2,.361,21,37,0)"
^XMB(3.9,9,2,2700,0)="**  Dependent on the birthdate of the applicant, the following two"
^XMB(3.9,9,2,2701,0)="""^DD"",2,2,.361,21,38,0)"
^XMB(3.9,9,2,2702,0)="    eligibility codes may be displayed along with those shown in items"
^XMB(3.9,9,2,2703,0)="""^DD"",2,2,.361,21,39,0)"
^XMB(3.9,9,2,2704,0)="    3 through 5 above:  WORLD WAR I and MEXICAN BORDER WAR.  These would"
^XMB(3.9,9,2,2705,0)="""^DD"",2,2,.361,21,40,0)"
^XMB(3.9,9,2,2706,0)="    display for veterans not meeting the criteria in items 1 and 2, but"
^XMB(3.9,9,2,2707,0)="""^DD"",2,2,.361,21,41,0)"
^XMB(3.9,9,2,2708,0)="    whose date of birth is prior to 1920."
^XMB(3.9,9,2,2709,0)="""^DD"",2,2,.361,""AUDIT"")"
^XMB(3.9,9,2,2710,0)="y"
^XMB(3.9,9,2,2711,0)="""^DD"",2,2,.361,""DEL"",1,0)"
^XMB(3.9,9,2,2712,0)="S DFN=DA D EV^DGLOCK I '$D(X)"
^XMB(3.9,9,2,2713,0)="""^DD"",2,2,.361,""DT"")"
^XMB(3.9,9,2,2714,0)="2970715"
^XMB(3.9,9,2,2715,0)="""^DD"",2,2,.3611,0)"
^XMB(3.9,9,2,2716,0)="ELIGIBILITY STATUS^SX^P:PENDING VERIFICATION;R:PENDING RE-VERIFICATION;V:VERIFIED;^.361;1^D EK^DGLOCK Q:'$D(X)"
^XMB(3.9,9,2,2717,0)="""^DD"",2,2,.3611,.1)"
^XMB(3.9,9,2,2718,0)="ELIG STATUS"
^XMB(3.9,9,2,2719,0)="""^DD"",2,2,.3611,1,0)"
^XMB(3.9,9,2,2720,0)="^.1"
^XMB(3.9,9,2,2721,0)="""^DD"",2,2,.3611,1,1,0)"
^XMB(3.9,9,2,2722,0)="^^TRIGGER^2^.3616"
^XMB(3.9,9,2,2723,0)="""^DD"",2,2,.3611,1,1,1)"
^XMB(3.9,9,2,2724,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.361)):^(.361),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(2,.3611,1,1,1.1) X ^DD(2,.3611,1,1,1.4)"
^XMB(3.9,9,2,2725,0)="""^DD"",2,2,.3611,1,1,1.1)"
^XMB(3.9,9,2,2726,0)="S X=DIV S X=$S(($D(DUZ)#2):DUZ,1:"""")"
^XMB(3.9,9,2,2727,0)="""^DD"",2,2,.3611,1,1,1.3)"
^XMB(3.9,9,2,2728,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.3611,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""VERIFIED"""
^XMB(3.9,9,2,2729,0)="""^DD"",2,2,.3611,1,1,1.4)"
^XMB(3.9,9,2,2730,0)="S DIH=$S($D(^DPT(DIV(0),.361)):^(.361),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U"" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(.361)=$P(DIH,U,1,5)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.3616 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,9,2,2731,0)="""^DD"",2,2,.3611,1,1,2)"
^XMB(3.9,9,2,2732,0)="Q"
^XMB(3.9,9,2,2733,0)="""^DD"",2,2,.3611,1,1,2.3)"
^XMB(3.9,9,2,2734,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(2,.3611,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DPT(D0,.361)):^(.361),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,1)_"":"",2),$C(59),1)'=""VERIFIED"""
^XMB(3.9,9,2,2735,0)="""^DD"",2,2,.3611,1,1,2.4)"
^XMB(3.9,9,2,2736,0)="S DIH=$S($D(^DPT(DIV(0),.361)):^(.361),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U"" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(.361)=$P(DIH,U,1,5)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.3616 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,9,2,2737,0)="""^DD"",2,2,.3611,1,1,""CREATE CONDITION"")"
^XMB(3.9,9,2,2738,0)="ELIG STATUS=""VERIFIED"""
^XMB(3.9,9,2,2739,0)="""^DD"",2,2,.3611,1,1,""CREATE VALUE"")"
^XMB(3.9,9,2,2740,0)="S X=$S(($D(DUZ)#2):DUZ,1:"""")"
^XMB(3.9,9,2,2741,0)="""^DD"",2,2,.3611,1,1,""DELETE CONDITION"")"
^XMB(3.9,9,2,2742,0)="ELIG STATUS'=""VERIFIED"""
^XMB(3.9,9,2,2743,0)="""^DD"",2,2,.3611,1,1,""DELETE VALUE"")"
^XMB(3.9,9,2,2744,0)="NO EFFECT"
^XMB(3.9,9,2,2745,0)="""^DD"",2,2,.3611,1,1,""FIELD"")"
^XMB(3.9,9,2,2746,0)="ELIGIBILITY STATUS ENTERED BY"
^XMB(3.9,9,2,2747,0)="""^DD"",2,2,.3611,1,2,0)"
^XMB(3.9,9,2,2748,0)="^^TRIGGER^2^.3612"
^XMB(3.9,9,2,2749,0)="""^DD"",2,2,.3611,1,2,1)"
^XMB(3.9,9,2,2750,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.361)):^(.361),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(2,.3611,1,2,1.4)"
^XMB(3.9,9,2,2751,0)="""^DD"",2,2,.3611,1,2,1.4)"
^XMB(3.9,9,2,2752,0)="S DIH=$S($D(^DPT(DIV(0),.361)):^(.361),1:""""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(.361)=$P(DIH,U,1,1)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.3612 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,9,2,2753,0)="""^DD"",2,2,.3611,1,2,2)"
^XMB(3.9,9,2,2754,0)="Q"
^XMB(3.9,9,2,2755,0)="""^DD"",2,2,.3611,1,2,""CREATE VALUE"")"
^XMB(3.9,9,2,2756,0)="TODAY"
^XMB(3.9,9,2,2757,0)="""^DD"",2,2,.3611,1,2,""DELETE VALUE"")"
^XMB(3.9,9,2,2758,0)="NO EFFECT"
^XMB(3.9,9,2,2759,0)="""^DD"",2,2,.3611,1,2,""FIELD"")"
^XMB(3.9,9,2,2760,0)="ELIGIBILITY STATUS DATE"
^XMB(3.9,9,2,2761,0)="""^DD"",2,2,.3611,3)"
^XMB(3.9,9,2,2762,0)="Select the status of this patient's eligibility."
^XMB(3.9,9,2,2763,0)="""^DD"",2,2,.3611,5,1,0)"
^XMB(3.9,9,2,2764,0)="2^.361^3"
^XMB(3.9,9,2,2765,0)="""^DD"",2,2,.3611,20,0)"
^XMB(3.9,9,2,2766,0)="^.3LA^1^1"
^XMB(3.9,9,2,2767,0)="""^DD"",2,2,.3611,20,1,0)"
^XMB(3.9,9,2,2768,0)="ECD"
^XMB(3.9,9,2,2769,0)="""^DD"",2,2,.3611,21,0)"
^XMB(3.9,9,2,2770,0)="^^3^3^2861117^^"
^XMB(3.9,9,2,2771,0)="""^DD"",2,2,.3611,21,1,0)"
^XMB(3.9,9,2,2772,0)="Select from the available listing the appropriate eligibility status"
^XMB(3.9,9,2,2773,0)="""^DD"",2,2,.3611,21,2,0)"
^XMB(3.9,9,2,2774,0)="for this applicant.  Only users who hold the designated security key"
^XMB(3.9,9,2,2775,0)="""^DD"",2,2,.3611,21,3,0)"
^XMB(3.9,9,2,2776,0)="may enter/edit this field."
^XMB(3.9,9,2,2777,0)="""^DD"",2,2,.3611,""DEL"",1,0)"
^XMB(3.9,9,2,2778,0)="D EK^DGLOCK I '$D(X)"
^XMB(3.9,9,2,2779,0)="""^DD"",2,2,.3611,""DT"")"
^XMB(3.9,9,2,2780,0)="2880925"
^XMB(3.9,9,2,2781,0)="""^DD"",2,2,.3625,0)"
^XMB(3.9,9,2,2782,0)="*AMOUNT OF MILITARY RETIREMENT^NJ10,2X^^.362;5^D DOL^DGLOCK2 K:+X'=X&(X'?.N1"".""2N)!(X>99999)!(X<0) X I $D(X) S DFN=DA D MV^DGLOCK I $D(X),$D(^DPT(DA,.362)),$P(^(.362),U,16)'=""Y"" W !?4,*7,""Not in receipt of Military Retirement benefits."" K X"
^XMB(3.9,9,2,2783,0)="""^DD"",2,2,.3625,.1)"
^XMB(3.9,9,2,2784,0)="MILT. RETIREMENT PAY AMOUNT"
^XMB(3.9,9,2,2785,0)="""^DD"",2,2,.3625,3)"
^XMB(3.9,9,2,2786,0)="If this applicant is receiving military retirement enter the dollar amount received per year."
^XMB(3.9,9,2,2787,0)="""^DD"",2,2,.3625,5,1,0)"
^XMB(3.9,9,2,2788,0)="2^.36255^1"
^XMB(3.9,9,2,2789,0)="""^DD"",2,2,.3625,9.2)"
^XMB(3.9,9,2,2790,0)="I $D(^DPT(DA,.362)),$P(^(.362),U,14)=""Y"" W !?4,*7,""Delete by answering 'IN RECEIPT OF MILITARY RETIREMENT' prompt NO."" K X"
^XMB(3.9,9,2,2791,0)="""^DD"",2,2,.3625,20,0)"
^XMB(3.9,9,2,2792,0)="^.3LA^1^1"
^XMB(3.9,9,2,2793,0)="""^DD"",2,2,.3625,20,1,0)"
^XMB(3.9,9,2,2794,0)="MB"
^XMB(3.9,9,2,2795,0)="""^DD"",2,2,.3625,21,0)"
^XMB(3.9,9,2,2796,0)="^^9^9^2880923^^^^"
^XMB(3.9,9,2,2797,0)="""^DD"",2,2,.3625,21,1,0)"
^XMB(3.9,9,2,2798,0)="For this veteran who is in receipt of military retirement (IN RECEIPT"
^XMB(3.9,9,2,2799,0)="""^DD"",2,2,.3625,21,2,0)"
^XMB(3.9,9,2,2800,0)="OF MILIT RETIREMENT prompt must be answered YES) enter the amount"
^XMB(3.9,9,2,2801,0)="""^DD"",2,2,.3625,21,3,0)"
^XMB(3.9,9,2,2802,0)="received [a number between 0-99999].  Once monetary benefits are"
^XMB(3.9,9,2,2803,0)="""^DD"",2,2,.3625,21,4,0)"
^XMB(3.9,9,2,2804,0)="verified only users who hold the designated security key may enter/edit"
^XMB(3.9,9,2,2805,0)="""^DD"",2,2,.3625,21,5,0)"
^XMB(3.9,9,2,2806,0)="this field.  This field cannot be deleted as long as receipt of military"
^XMB(3.9,9,2,2807,0)="""^DD"",2,2,.3625,21,6,0)"
^XMB(3.9,9,2,2808,0)="retirement is indicated."
^XMB(3.9,9,2,2809,0)="""^DD"",2,2,.3625,21,7,0)"
^XMB(3.9,9,2,2810,0)="  "
^XMB(3.9,9,2,2811,0)="""^DD"",2,2,.3625,21,8,0)"
^XMB(3.9,9,2,2812,0)="If you wish to enter a monthly amount either preceed or follow it with"
^XMB(3.9,9,2,2813,0)="""^DD"",2,2,.3625,21,9,0)"
^XMB(3.9,9,2,2814,0)="an asterisk and I'll multiply it out for you."
^XMB(3.9,9,2,2815,0)="""^DD"",2,2,.3625,""DEL"",1,0)"
^XMB(3.9,9,2,2816,0)="S DFN=DA D MV^DGLOCK X ^DD(2,.3625,9.2):$D(X) I '$D(X)"
^XMB(3.9,9,2,2817,0)="""^DD"",2,2,.3625,""DT"")"
^XMB(3.9,9,2,2818,0)="2880923"
^XMB(3.9,9,2,2819,0)="""^DD"",2,2,.3628,0)"
^XMB(3.9,9,2,2820,0)="AMOUNT OF OTHER RETIREMENT^NJ8,2X^^.362;8^D DOL^DGLOCK2 K:+X'=X&(X'?.N1"".""2N)!(X>99999)!(X<1) X I $D(X) S DFN=DA D MV^DGLOCK"
^XMB(3.9,9,2,2821,0)="""^DD"",2,2,.3628,.1)"
^XMB(3.9,9,2,2822,0)="OTHER RETIREMENT AMOUNT"
^XMB(3.9,9,2,2823,0)="""^DD"",2,2,.3628,3)"
^XMB(3.9,9,2,2824,0)="If this patient receives retirment from another source enter the dollar amount received per year."
^XMB(3.9,9,2,2825,0)="""^DD"",2,2,.3628,20,0)"
^XMB(3.9,9,2,2826,0)="^.3LA^1^1"
^XMB(3.9,9,2,2827,0)="""^DD"",2,2,.3628,20,1,0)"
^XMB(3.9,9,2,2828,0)="MB"
^XMB(3.9,9,2,2829,0)="""^DD"",2,2,.3628,21,0)"
^XMB(3.9,9,2,2830,0)="^^7^7^2880923^^^^"
^XMB(3.9,9,2,2831,0)="""^DD"",2,2,.3628,21,1,0)"
^XMB(3.9,9,2,2832,0)="For this veteran applicant enter the amount of other retirement s/he"
^XMB(3.9,9,2,2833,0)="""^DD"",2,2,.3628,21,2,0)"
^XMB(3.9,9,2,2834,0)="is in receipt of [a number between 1-99999].  Leave blank if none"
^XMB(3.9,9,2,2835,0)="""^DD"",2,2,.3628,21,3,0)"
^XMB(3.9,9,2,2836,0)="received.  Once monetary benefits have been verified only users who"
^XMB(3.9,9,2,2837,0)="""^DD"",2,2,.3628,21,4,0)"
^XMB(3.9,9,2,2838,0)="hold the designated security key may enter/edit this field."
^XMB(3.9,9,2,2839,0)="""^DD"",2,2,.3628,21,5,0)"
^XMB(3.9,9,2,2840,0)="  "
^XMB(3.9,9,2,2841,0)="""^DD"",2,2,.3628,21,6,0)"
^XMB(3.9,9,2,2842,0)="If you wish to enter a monthly amount either preceed or follow it with"
^XMB(3.9,9,2,2843,0)="""^DD"",2,2,.3628,21,7,0)"
^XMB(3.9,9,2,2844,0)="an asterisk and I'll multiple it out for you."
^XMB(3.9,9,2,2845,0)="""^DD"",2,2,.3628,""DEL"",1,0)"
^XMB(3.9,9,2,2846,0)="S DFN=DA D MV^DGLOCK I '$D(X)"
^XMB(3.9,9,2,2847,0)="""^DD"",2,2,.3628,""DT"")"
^XMB(3.9,9,2,2848,0)="2880923"
^XMB(3.9,9,2,2849,0)="""^DD"",2,2,1,0)"
^XMB(3.9,9,2,2850,0)="ALIAS^2.01^^.01;0"
^XMB(3.9,9,2,2851,0)="""^DD"",2,2,1,3)"
^XMB(3.9,9,2,2852,0)="If this patient is known by another name enter that name."
^XMB(3.9,9,2,2853,0)="""^DD"",2,2,1,20,0)"
^XMB(3.9,9,2,2854,0)="^.3LA^1^1"
^XMB(3.9,9,2,2855,0)="""^DD"",2,2,1,20,1,0)"
^XMB(3.9,9,2,2856,0)="DEMOG"
^XMB(3.9,9,2,2857,0)="""^DD"",2,2,1,21,0)"
^XMB(3.9,9,2,2858,0)="^^4^4^2911214^^^^"
^XMB(3.9,9,2,2859,0)="""^DD"",2,2,1,21,1,0)"
^XMB(3.9,9,2,2860,0)="If this applicant is known by any name other than that entered in"
^XMB(3.9,9,2,2861,0)="""^DD"",2,2,1,21,2,0)"
^XMB(3.9,9,2,2862,0)="the NAME field enter that/those other name(s) here.  Any entry"
^XMB(3.9,9,2,2863,0)="""^DD"",2,2,1,21,3,0)"
^XMB(3.9,9,2,2864,0)="to this field will be cross-referenced and the applicant may be"
^XMB(3.9,9,2,2865,0)="""^DD"",2,2,1,21,4,0)"
^XMB(3.9,9,2,2866,0)="called up using this alias."
^XMB(3.9,9,2,2867,0)="""^DD"",2,2,401.4,0)"
^XMB(3.9,9,2,2868,0)="DATE ENTERED ON SI LIST^RDX^^DAC;2^S %DT=""EX"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,9,2,2869,0)="""^DD"",2,2,401.4,3)"
^XMB(3.9,9,2,2870,0)="For this seriouslly ill patient enter the date placed on the seriouslly ill roster."
^XMB(3.9,9,2,2871,0)="""^DD"",2,2,401.4,5,1,0)"
^XMB(3.9,9,2,2872,0)="2^401.3^2"
^XMB(3.9,9,2,2873,0)="""^DD"",2,2,401.4,21,0)"
^XMB(3.9,9,2,2874,0)="^^1^1^2861022^"
^XMB(3.9,9,2,2875,0)="""^DD"",2,2,401.4,21,1,0)"
^XMB(3.9,9,2,2876,0)="Enter the date the patient was placed on the Seriouslly Ill list."
^XMB(3.9,9,2,2877,0)="""^DD"",2,2,401.4,""DT"")"
^XMB(3.9,9,2,2878,0)="2900313"
^XMB(3.9,9,2,2879,0)="""^DD"",2,2,991.07,0)"
^XMB(3.9,9,2,2880,0)="SCORE CALCULATION DATE^D^^MPI;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,9,2,2881,0)="""^DD"",2,2,991.07,3)"
^XMB(3.9,9,2,2882,0)="This is the last date that the CMOR Activity Score was calculated at this site."
^XMB(3.9,9,2,2883,0)="""^DD"",2,2,991.07,21,0)"
^XMB(3.9,9,2,2884,0)="^^2^2^2990111^^^^"
^XMB(3.9,9,2,2885,0)="""^DD"",2,2,991.07,21,1,0)"
^XMB(3.9,9,2,2886,0)="This is the last date that the CMOR ACTIVITY SCORE was calculated"
^XMB(3.9,9,2,2887,0)="""^DD"",2,2,991.07,21,2,0)"
^XMB(3.9,9,2,2888,0)="at this site."
^XMB(3.9,9,2,2889,0)="""^DD"",2,2,991.07,""AUDIT"")"
^XMB(3.9,9,2,2890,0)="n"
^XMB(3.9,9,2,2891,0)="""^DD"",2,2,991.07,""DT"")"
^XMB(3.9,9,2,2892,0)="2970730"
^XMB(3.9,9,2,2893,0)="""^DD"",2,2,1000,0)"
^XMB(3.9,9,2,2894,0)="DISPOSITION LOG-IN DATE/TIME^2.101DA^^DIS;0"
^XMB(3.9,9,2,2895,0)="""^DD"",2,2,1000,3)"
^XMB(3.9,9,2,2896,0)="Enter the date/time this patient was registered for care."
^XMB(3.9,9,2,2897,0)="""^DD"",2,2,1000,21,0)"
^XMB(3.9,9,2,2898,0)="6^^6^6^2930603^^^^"
^XMB(3.9,9,2,2899,0)="""^DD"",2,2,1000,21,1,0)"
^XMB(3.9,9,2,2900,0)="The date/time at which this applicant applied for medical benefits, e.g.,"
^XMB(3.9,9,2,2901,0)="""^DD"",2,2,1000,21,2,0)"
^XMB(3.9,9,2,2902,0)="was registered for care using the 'Registration' option of ADT."
^XMB(3.9,9,2,2903,0)="""^DD"",2,2,1000,21,3,0)"
^XMB(3.9,9,2,2904,0)=" "
^XMB(3.9,9,2,2905,0)="""^DD"",2,2,1000,21,4,0)"
^XMB(3.9,9,2,2906,0)="This multiple contains information on each registration entered for this"
^XMB(3.9,9,2,2907,0)="""^DD"",2,2,1000,21,5,0)"
^XMB(3.9,9,2,2908,0)="patient including the date of registration, date of disposition, and type"
^XMB(3.9,9,2,2909,0)="""^DD"",2,2,1000,21,6,0)"
^XMB(3.9,9,2,2910,0)="of disposition."
^XMB(3.9,9,2,2911,0)="""^DD"",2,2,1000,23,0)"
^XMB(3.9,9,2,2912,0)="^^6^6^2930603^^"
^XMB(3.9,9,2,2913,0)="""^DD"",2,2,1000,23,1,0)"
^XMB(3.9,9,2,2914,0)="The date/time at which this applicant applied for medical benefits, e.g.,"
^XMB(3.9,9,2,2915,0)="""^DD"",2,2,1000,23,2,0)"
^XMB(3.9,9,2,2916,0)="was registered for care using the 'Registration' option of ADT."
^XMB(3.9,9,2,2917,0)="""^DD"",2,2,1000,23,3,0)"
^XMB(3.9,9,2,2918,0)=" "
^XMB(3.9,9,2,2919,0)="""^DD"",2,2,1000,23,4,0)"
^XMB(3.9,9,2,2920,0)="This multiple contains information on each registration entered for this"
^XMB(3.9,9,2,2921,0)="""^DD"",2,2,1000,23,5,0)"
^XMB(3.9,9,2,2922,0)="patient including the date of registration, date of disposition, and type"
^XMB(3.9,9,2,2923,0)="""^DD"",2,2,1000,23,6,0)"
^XMB(3.9,9,2,2924,0)="of disposition."
^XMB(3.9,9,2,2925,0)="""^DD"",2,2.01,0)"
^XMB(3.9,9,2,2926,0)="ALIAS SUB-FIELD^NL^100.03^3"
^XMB(3.9,9,2,2927,0)="""^DD"",2,2.01,0,""NM"",""ALIAS"")"
^XMB(3.9,9,2,2928,0)=""
^XMB(3.9,9,2,2929,0)="""^DD"",2,2.01,.01,0)"
^XMB(3.9,9,2,2930,0)="ALIAS^MF^^0;1^K:$L(X)>30!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,30) K:'$L(X) X,DG20NAME"
^XMB(3.9,9,2,2931,0)="""^DD"",2,2.01,.01,1,0)"
^XMB(3.9,9,2,2932,0)="^.1"
^XMB(3.9,9,2,2933,0)="""^DD"",2,2.01,.01,1,1,0)"
^XMB(3.9,9,2,2934,0)="2^B^MNEMONIC"
^XMB(3.9,9,2,2935,0)="""^DD"",2,2.01,.01,1,1,1)"
^XMB(3.9,9,2,2936,0)="S:'$D(^DPT(""B"",$E(X,1,30),DA(1),DA)) ^(DA)=1"
^XMB(3.9,9,2,2937,0)="""^DD"",2,2.01,.01,1,1,2)"
^XMB(3.9,9,2,2938,0)="I $D(^DPT(""B"",$E(X,1,30),DA(1),DA)),^(DA) K ^(DA)"
^XMB(3.9,9,2,2939,0)="""^DD"",2,2.01,.01,3)"
^XMB(3.9,9,2,2940,0)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-30 characters in length."
^XMB(3.9,9,2,2941,0)="""^DD"",2,2.01,.01,21,0)"
^XMB(3.9,9,2,2942,0)="^^4^4^2861007^"
^XMB(3.9,9,2,2943,0)="""^DD"",2,2.01,.01,21,1,0)"
^XMB(3.9,9,2,2944,0)="Enter the alias name in 'LAST,FIRST MIDDLE SUFFIX' format."
^XMB(3.9,9,2,2945,0)="""^DD"",2,2.01,.01,21,2,0)"
^XMB(3.9,9,2,2946,0)="This value must be 3-30 characters in length and may contain only uppercase"
^XMB(3.9,9,2,2947,0)="""^DD"",2,2.01,.01,21,3,0)"
^XMB(3.9,9,2,2948,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"
^XMB(3.9,9,2,2949,0)="""^DD"",2,2.01,.01,21,4,0)"
^XMB(3.9,9,2,2950,0)="characters and parenthetical text will be removed."
^XMB(3.9,9,2,2951,0)="""^DD"",2,2.01,.01,""DT"")"
^XMB(3.9,9,2,2952,0)="3050611"
^XMB(3.9,9,2,2953,0)="""^DD"",2,2.101,0)"
^XMB(3.9,9,2,2954,0)="DISPOSITION LOG-IN DATE/TIME SUB-FIELD^NL^11500.02^41"
^XMB(3.9,9,2,2955,0)="""^DD"",2,2.101,0,""NM"",""DISPOSITION LOG-IN DATE/TIME"")"
^XMB(3.9,9,2,2956,0)=""
^XMB(3.9,9,2,2957,0)="""^DD"",2,2.101,.01,0)"
^XMB(3.9,9,2,2958,0)="LOG IN DATE/TIME^MDX^^0;1^S %DT=""ETRPX"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=9999999-X,LL=+$O(^DPT(DA(1),""DIS"",0)) I LL>0,DINUM'<LL!(DINUM'<(9999999-$P(^(LL,0),""^"",6))) K X,DINUM W !!,""Entry must be after last disposition."",!!,*7"
^XMB(3.9,9,2,2959,0)="""^DD"",2,2.101,.01,1,0)"
^XMB(3.9,9,2,2960,0)="^.1"
^XMB(3.9,9,2,2961,0)="""^DD"",2,2.101,.01,1,1,0)"
^XMB(3.9,9,2,2962,0)="^^TRIGGER^2.101^50"
^XMB(3.9,9,2,2963,0)="""^DD"",2,2.101,.01,1,1,1)"
^XMB(3.9,9,2,2964,0)="X ^DD(2.101,.01,1,1,1.3) S Y(2)=$C(59)_$S($D(^DD(2.101,50,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DPT(D0,""DIS"",D1,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,10)_"":"",2),$C(59),1) S DIU=X K Y S X=DIV S X=""1"" X ^DD(2.101,.01,1,1,1.4)"
^XMB(3.9,9,2,2965,0)="""^DD"",2,2.101,.01,1,1,1.3)"
^XMB(3.9,9,2,2966,0)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1"
^XMB(3.9,9,2,2967,0)="""^DD"",2,2.101,.01,1,1,1.4)"
^XMB(3.9,9,2,2968,0)="S DIH=$S($D(^DPT(DIV(0),""DIS"",DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,9,99))  S DIH=DIH_U"" S %=$P(DIH,U,11,999),DIU=$P(DIH,U,10),^(0)=$P(DIH,U,1,9)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2.101,DIG=50 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,9,2,2969,0)="""^DD"",2,2.101,.01,1,1,2)"
^XMB(3.9,9,2,2970,0)="X ^DD(2.101,.01,1,1,2.3) S Y(2)=$C(59)_$S($D(^DD(2.101,50,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DPT(D0,""DIS"",D1,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,10)_"":"",2),$C(59),1) S DIU=X K Y S X=DIV S X="""" X ^DD(2.101,.01,1,1,2.4)"
^XMB(3.9,9,2,2971,0)="""^DD"",2,2.101,.01,1,1,2.3)"
^XMB(3.9,9,2,2972,0)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1"
^XMB(3.9,9,2,2973,0)="""^DD"",2,2.101,.01,1,1,2.4)"
^XMB(3.9,9,2,2974,0)="S DIH=$S($D(^DPT(DIV(0),""DIS"",DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,9,99))  S DIH=DIH_U"" S %=$P(DIH,U,11,999),DIU=$P(DIH,U,10),^(0)=$P(DIH,U,1,9)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2.101,DIG=50 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,9,2,2975,0)="""^DD"",2,2.101,.01,1,1,""CREATE VALUE"")"
^XMB(3.9,9,2,2976,0)="""1"""
^XMB(3.9,9,2,2977,0)="""^DD"",2,2.101,.01,1,1,""DELETE VALUE"")"
^XMB(3.9,9,2,2978,0)="@"
^XMB(3.9,9,2,2979,0)="""^DD"",2,2.101,.01,1,1,""FIELD"")"
^XMB(3.9,9,2,2980,0)="AC"
^XMB(3.9,9,2,2981,0)="""^DD"",2,2.101,.01,1,2,0)"
^XMB(3.9,9,2,2982,0)="2^ADIS"
^XMB(3.9,9,2,2983,0)="""^DD"",2,2.101,.01,1,2,1)"
^XMB(3.9,9,2,2984,0)="S ^DPT(""ADIS"",$E(X,1,30),DA(1),DA)="""""
^XMB(3.9,9,2,2985,0)="""^DD"",2,2.101,.01,1,2,2)"
^XMB(3.9,9,2,2986,0)="K ^DPT(""ADIS"",$E(X,1,30),DA(1),DA)"
^XMB(3.9,9,2,2987,0)="""^DD"",2,2.101,.01,1,3,0)"
^XMB(3.9,9,2,2988,0)="2^ADI^MUMPS"
^XMB(3.9,9,2,2989,0)="""^DD"",2,2.101,.01,1,3,1)"
^XMB(3.9,9,2,2990,0)="S ^DPT(""ADI"",$E(X,1,30),DA(1),DA)="""""
^XMB(3.9,9,2,2991,0)="""^DD"",2,2.101,.01,1,3,2)"
^XMB(3.9,9,2,2992,0)="K ^DPT(""ADI"",$E(X,1,30),DA(1),DA)"
^XMB(3.9,9,2,2993,0)="""^DD"",2,2.101,.01,1,3,""%D"",0)"
^XMB(3.9,9,2,2994,0)="^^8^8^2920327^"
^XMB(3.9,9,2,2995,0)="""^DD"",2,2.101,.01,1,3,""%D"",1,0)"
^XMB(3.9,9,2,2996,0)="This cross-reference is identical to the ^DPT(""ADIS"" cross-reference on"
^XMB(3.9,9,2,2997,0)="""^DD"",2,2.101,.01,1,3,""%D"",2,0)"
^XMB(3.9,9,2,2998,0)="this field.  The only difference is that this ADI cross-reference was"
^XMB(3.9,9,2,2999,0)="""^DD"",2,2.101,.01,1,3,""%D"",3,0)"
^XMB(3.9,9,2,3000,0)="also set on disposition if the registration and disposition were in"
^XMB(3.9,9,2,3001,0)="""^DD"",2,2.101,.01,1,3,""%D"",4,0)"
^XMB(3.9,9,2,3002,0)="different months."
^XMB(3.9,9,2,3003,0)="""^DD"",2,2.101,.01,1,3,""%D"",5,0)"
^XMB(3.9,9,2,3004,0)=" "
^XMB(3.9,9,2,3005,0)="""^DD"",2,2.101,.01,1,3,""%D"",6,0)"
^XMB(3.9,9,2,3006,0)="MAS no longer uses this cross-reference and this serves as notification"
^XMB(3.9,9,2,3007,0)="""^DD"",2,2.101,.01,1,3,""%D"",7,0)"
^XMB(3.9,9,2,3008,0)="that this cross-reference will be removed the first release of MAS"
^XMB(3.9,9,2,3009,0)="""^DD"",2,2.101,.01,1,3,""%D"",8,0)"
^XMB(3.9,9,2,3010,0)="released 18 months after the release of MAS 5.2."
^XMB(3.9,9,2,3011,0)="""^DD"",2,2.101,.01,1,4,0)"
^XMB(3.9,9,2,3012,0)="2.101^AODS1^MUMPS"
^XMB(3.9,9,2,3013,0)="""^DD"",2,2.101,.01,1,4,1)"
^XMB(3.9,9,2,3014,0)="S A1B2TAG=""REG"" D ^A1B2XFR"
^XMB(3.9,9,2,3015,0)="""^DD"",2,2.101,.01,1,4,2)"
^XMB(3.9,9,2,3016,0)="S A1B2TAG=""REG"" D ^A1B2XFR"
^XMB(3.9,9,2,3017,0)="""^DD"",2,2.101,.01,3)"
^XMB(3.9,9,2,3018,0)="Enter the date and time this patient was logged as a new application for care. Date must be before today's date and must be after the last disposition."
^XMB(3.9,9,2,3019,0)="""^DD"",2,2.101,.01,4)"
^XMB(3.9,9,2,3020,0)="W !,""Enter '??' (a double question mark) for a list of the available dates and times."",!"
^XMB(3.9,9,2,3021,0)="""^DD"",2,2.101,.01,21,0)"
^XMB(3.9,9,2,3022,0)="^^4^4^2911214^"
^XMB(3.9,9,2,3023,0)="""^DD"",2,2.101,.01,21,1,0)"
^XMB(3.9,9,2,3024,0)="The date/time the patient was registered using the 'Register a Patient'"
^XMB(3.9,9,2,3025,0)="""^DD"",2,2.101,.01,21,2,0)"
^XMB(3.9,9,2,3026,0)="option in ADT should be entered into this field.  Registrations must be"
^XMB(3.9,9,2,3027,0)="""^DD"",2,2.101,.01,21,3,0)"
^XMB(3.9,9,2,3028,0)="entered using the ADT module and should not be entered or edited using"
^XMB(3.9,9,2,3029,0)="""^DD"",2,2.101,.01,21,4,0)"
^XMB(3.9,9,2,3030,0)="VA FileMan options."
^XMB(3.9,9,2,3031,0)="""^DD"",2,2.101,.01,""DT"")"
^XMB(3.9,9,2,3032,0)="2941215"
^XMB(3.9,9,2,3033,0)="""^DD"",2,2.101,5,0)"
^XMB(3.9,9,2,3034,0)="LOG OUT DATE TIME^RDX^^0;6^S %DT=""ETRX"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X I $D(X),X<-(DA-9999999) K X"
^XMB(3.9,9,2,3035,0)="""^DD"",2,2.101,5,1,0)"
^XMB(3.9,9,2,3036,0)="^.1"
^XMB(3.9,9,2,3037,0)="""^DD"",2,2.101,5,1,1,0)"
^XMB(3.9,9,2,3038,0)="^^TRIGGER^2.101^50"
^XMB(3.9,9,2,3039,0)="""^DD"",2,2.101,5,1,1,1)"
^XMB(3.9,9,2,3040,0)="X ^DD(2.101,5,1,1,1.3) S Y(2)=$C(59)_$S($D(^DD(2.101,50,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DPT(D0,""DIS"",D1,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,10)_"":"",2),$C(59),1) S DIU=X K Y S X=DIV S X="""" X ^DD(2.101,5,1,1,1.4)"
^XMB(3.9,9,2,3041,0)="""^DD"",2,2.101,5,1,1,1.3)"
^XMB(3.9,9,2,3042,0)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1"
^XMB(3.9,9,2,3043,0)="""^DD"",2,2.101,5,1,1,1.4)"
^XMB(3.9,9,2,3044,0)="S DIH=$S($D(^DPT(DIV(0),""DIS"",DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,9,99))  S DIH=DIH_U"" S %=$P(DIH,U,11,999),DIU=$P(DIH,U,10),^(0)=$P(DIH,U,1,9)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2.101,DIG=50 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,9,2,3045,0)="""^DD"",2,2.101,5,1,1,2)"
^XMB(3.9,9,2,3046,0)="X ^DD(2.101,5,1,1,2.3) S Y(2)=$C(59)_$S($D(^DD(2.101,50,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DPT(D0,""DIS"",D1,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,10)_"":"",2),$C(59),1) S DIU=X K Y S X=DIV S X=""1"" X ^DD(2.101,5,1,1,2.4)"
^XMB(3.9,9,2,3047,0)="""^DD"",2,2.101,5,1,1,2.3)"
^XMB(3.9,9,2,3048,0)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1"
^XMB(3.9,9,2,3049,0)="""^DD"",2,2.101,5,1,1,2.4)"
^XMB(3.9,9,2,3050,0)="S DIH=$S($D(^DPT(DIV(0),""DIS"",DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,9,99))  S DIH=DIH_U"" S %=$P(DIH,U,11,999),DIU=$P(DIH,U,10),^(0)=$P(DIH,U,1,9)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2.101,DIG=50 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,9,2,3051,0)="""^DD"",2,2.101,5,1,1,""CREATE VALUE"")"
^XMB(3.9,9,2,3052,0)="@"
^XMB(3.9,9,2,3053,0)="""^DD"",2,2.101,5,1,1,""DELETE VALUE"")"
^XMB(3.9,9,2,3054,0)="""1"""
^XMB(3.9,9,2,3055,0)="""^DD"",2,2.101,5,1,1,""FIELD"")"
^XMB(3.9,9,2,3056,0)="AC"
^XMB(3.9,9,2,3057,0)="""^DD"",2,2.101,5,1,2,0)"
^XMB(3.9,9,2,3058,0)="2^ADIS4^MUMPS"
^XMB(3.9,9,2,3059,0)="""^DD"",2,2.101,5,1,2,1)"
^XMB(3.9,9,2,3060,0)="S L=+^DPT(DA(1),""DIS"",DA,0) S:$E(X,1,5)>$E(L,1,5) ^DPT(""ADI"",X,DA(1),DA)="""""
^XMB(3.9,9,2,3061,0)="""^DD"",2,2.101,5,1,2,2)"
^XMB(3.9,9,2,3062,0)="K ^DPT(""ADI"",X,DA(1),DA)"
^XMB(3.9,9,2,3063,0)="""^DD"",2,2.101,5,1,2,""%D"",0)"
^XMB(3.9,9,2,3064,0)="^^3^3^2920327^"
^XMB(3.9,9,2,3065,0)="""^DD"",2,2.101,5,1,2,""%D"",1,0)"
^XMB(3.9,9,2,3066,0)="This cross-reference is also set on the LOG-IN DATE/TIME field.  It is"
^XMB(3.9,9,2,3067,0)="""^DD"",2,2.101,5,1,2,""%D"",2,0)"
^XMB(3.9,9,2,3068,0)="no longer used by MAS and it will be removed in the first release of MAS"
^XMB(3.9,9,2,3069,0)="""^DD"",2,2.101,5,1,2,""%D"",3,0)"
^XMB(3.9,9,2,3070,0)="released 18 months after MAS version 5.2."
^XMB(3.9,9,2,3071,0)="""^DD"",2,2.101,5,3)"
^XMB(3.9,9,2,3072,0)="Enter the date and time this application for care was dispositioned."
^XMB(3.9,9,2,3073,0)="""^DD"",2,2.101,5,21,0)"
^XMB(3.9,9,2,3074,0)="^^1^1^2911214^"
^XMB(3.9,9,2,3075,0)="""^DD"",2,2.101,5,21,1,0)"
^XMB(3.9,9,2,3076,0)="Enter in this field the date/time the patient was dispositioned."
^XMB(3.9,9,2,3077,0)="""^DD"",2,2.101,5,""DT"")"
^XMB(3.9,9,2,3078,0)="2901018"
^XMB(3.9,9,2,3079,0)="""^DD"",2,2.101,30,0)"
^XMB(3.9,9,2,3080,0)="ATTORNEY'S NAME^F^^3;1^K:$L(X)>30!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,30) K:'$L(X) X,DG20NAME"
^XMB(3.9,9,2,3081,0)="""^DD"",2,2.101,30,3)"
^XMB(3.9,9,2,3082,0)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-30 characters in length."
^XMB(3.9,9,2,3083,0)="""^DD"",2,2.101,30,21,0)"
^XMB(3.9,9,2,3084,0)="^^4^4^2911214^^"
^XMB(3.9,9,2,3085,0)="""^DD"",2,2.101,30,21,1,0)"
^XMB(3.9,9,2,3086,0)="Enter the attorney's name in 'LAST,FIRST MIDDLE SUFFIX' format."
^XMB(3.9,9,2,3087,0)="""^DD"",2,2.101,30,21,2,0)"
^XMB(3.9,9,2,3088,0)="This value must be 3-30 characters in length and may contain only uppercase"
^XMB(3.9,9,2,3089,0)="""^DD"",2,2.101,30,21,3,0)"
^XMB(3.9,9,2,3090,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"
^XMB(3.9,9,2,3091,0)="""^DD"",2,2.101,30,21,4,0)"
^XMB(3.9,9,2,3092,0)="characters and parenthetical text will be removed."
^XMB(3.9,9,2,3093,0)="""^DD"",2,2.101,30,""DT"")"
^XMB(3.9,9,2,3094,0)="3050611"
^XMB(3.9,9,2,3095,0)="""BLD"",6298,6)"
^XMB(3.9,9,2,3096,0)="^624"
^XMB(3.9,9,2,3097,0)="$END KID DG*5.3*705"
^XMB(3.9,9,6,0)="^3.911A^2^2"
^XMB(3.9,9,6,1,0)="POSTMASTER"
^XMB(3.9,9,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,9,6,"B","POSTMASTER",1)=""
^XMB(3.9,9,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,10,0)="DG-5P3_SEQ-625_PAT-715.KID^.5^3061008.01573^^^^K"
^XMB(3.9,10,.6)="3061008"
^XMB(3.9,10,1,0)="^3.91A^2^2"
^XMB(3.9,10,1,1,0)=".5^0^3061008.01573^^^^^^^3061008.01573"
^XMB(3.9,10,1,2,0)="1^0^3061008.022328^^^^^^^3061008.022328"
^XMB(3.9,10,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,10,1,"C",.5,1)=""
^XMB(3.9,10,1,"C",1,2)=""
^XMB(3.9,10,2,0)="^^333^333^3061008"
^XMB(3.9,10,2,1,0)="$TXT Released DG*5.3*715 SEQ #625"
^XMB(3.9,10,2,2,0)="Extracted from mail message"
^XMB(3.9,10,2,3,0)="$END TXT"
^XMB(3.9,10,2,4,0)="$KID DG*5.3*715"
^XMB(3.9,10,2,5,0)="**INSTALL NAME**"
^XMB(3.9,10,2,6,0)="DG*5.3*715"
^XMB(3.9,10,2,7,0)="""BLD"",6670,0)"
^XMB(3.9,10,2,8,0)="DG*5.3*715^REGISTRATION^0^3060523^y"
^XMB(3.9,10,2,9,0)="""BLD"",6670,4,0)"
^XMB(3.9,10,2,10,0)="^9.64PA^^"
^XMB(3.9,10,2,11,0)="""BLD"",6670,""KRN"",0)"
^XMB(3.9,10,2,12,0)="^9.67PA^8989.52^19"
^XMB(3.9,10,2,13,0)="""BLD"",6670,""KRN"",.4,0)"
^XMB(3.9,10,2,14,0)=".4"
^XMB(3.9,10,2,15,0)="""BLD"",6670,""KRN"",.401,0)"
^XMB(3.9,10,2,16,0)=".401"
^XMB(3.9,10,2,17,0)="""BLD"",6670,""KRN"",.402,0)"
^XMB(3.9,10,2,18,0)=".402"
^XMB(3.9,10,2,19,0)="""BLD"",6670,""KRN"",.403,0)"
^XMB(3.9,10,2,20,0)=".403"
^XMB(3.9,10,2,21,0)="""BLD"",6670,""KRN"",.5,0)"
^XMB(3.9,10,2,22,0)=".5"
^XMB(3.9,10,2,23,0)="""BLD"",6670,""KRN"",.84,0)"
^XMB(3.9,10,2,24,0)=".84"
^XMB(3.9,10,2,25,0)="""BLD"",6670,""KRN"",3.6,0)"
^XMB(3.9,10,2,26,0)="3.6"
^XMB(3.9,10,2,27,0)="""BLD"",6670,""KRN"",3.8,0)"
^XMB(3.9,10,2,28,0)="3.8"
^XMB(3.9,10,2,29,0)="""BLD"",6670,""KRN"",9.2,0)"
^XMB(3.9,10,2,30,0)="9.2"
^XMB(3.9,10,2,31,0)="""BLD"",6670,""KRN"",9.8,0)"
^XMB(3.9,10,2,32,0)="9.8"
^XMB(3.9,10,2,33,0)="""BLD"",6670,""KRN"",9.8,""NM"",0)"
^XMB(3.9,10,2,34,0)="^9.68A^1^1"
^XMB(3.9,10,2,35,0)="""BLD"",6670,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,10,2,36,0)="DGPMV3^^0^B23327624"
^XMB(3.9,10,2,37,0)="""BLD"",6670,""KRN"",9.8,""NM"",""B"",""DGPMV3"",1)"
^XMB(3.9,10,2,38,0)=""
^XMB(3.9,10,2,39,0)="""BLD"",6670,""KRN"",19,0)"
^XMB(3.9,10,2,40,0)="19"
^XMB(3.9,10,2,41,0)="""BLD"",6670,""KRN"",19,""NM"",0)"
^XMB(3.9,10,2,42,0)="^9.68A^^"
^XMB(3.9,10,2,43,0)="""BLD"",6670,""KRN"",19.1,0)"
^XMB(3.9,10,2,44,0)="19.1"
^XMB(3.9,10,2,45,0)="""BLD"",6670,""KRN"",101,0)"
^XMB(3.9,10,2,46,0)="101"
^XMB(3.9,10,2,47,0)="""BLD"",6670,""KRN"",409.61,0)"
^XMB(3.9,10,2,48,0)="409.61"
^XMB(3.9,10,2,49,0)="""BLD"",6670,""KRN"",771,0)"
^XMB(3.9,10,2,50,0)="771"
^XMB(3.9,10,2,51,0)="""BLD"",6670,""KRN"",870,0)"
^XMB(3.9,10,2,52,0)="870"
^XMB(3.9,10,2,53,0)="""BLD"",6670,""KRN"",8989.51,0)"
^XMB(3.9,10,2,54,0)="8989.51"
^XMB(3.9,10,2,55,0)="""BLD"",6670,""KRN"",8989.52,0)"
^XMB(3.9,10,2,56,0)="8989.52"
^XMB(3.9,10,2,57,0)="""BLD"",6670,""KRN"",8994,0)"
^XMB(3.9,10,2,58,0)="8994"
^XMB(3.9,10,2,59,0)="""BLD"",6670,""KRN"",""B"",.4,.4)"
^XMB(3.9,10,2,60,0)=""
^XMB(3.9,10,2,61,0)="""BLD"",6670,""KRN"",""B"",.401,.401)"
^XMB(3.9,10,2,62,0)=""
^XMB(3.9,10,2,63,0)="""BLD"",6670,""KRN"",""B"",.402,.402)"
^XMB(3.9,10,2,64,0)=""
^XMB(3.9,10,2,65,0)="""BLD"",6670,""KRN"",""B"",.403,.403)"
^XMB(3.9,10,2,66,0)=""
^XMB(3.9,10,2,67,0)="""BLD"",6670,""KRN"",""B"",.5,.5)"
^XMB(3.9,10,2,68,0)=""
^XMB(3.9,10,2,69,0)="""BLD"",6670,""KRN"",""B"",.84,.84)"
^XMB(3.9,10,2,70,0)=""
^XMB(3.9,10,2,71,0)="""BLD"",6670,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,10,2,72,0)=""
^XMB(3.9,10,2,73,0)="""BLD"",6670,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,10,2,74,0)=""
^XMB(3.9,10,2,75,0)="""BLD"",6670,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,10,2,76,0)=""
^XMB(3.9,10,2,77,0)="""BLD"",6670,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,10,2,78,0)=""
^XMB(3.9,10,2,79,0)="""BLD"",6670,""KRN"",""B"",19,19)"
^XMB(3.9,10,2,80,0)=""
^XMB(3.9,10,2,81,0)="""BLD"",6670,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,10,2,82,0)=""
^XMB(3.9,10,2,83,0)="""BLD"",6670,""KRN"",""B"",101,101)"
^XMB(3.9,10,2,84,0)=""
^XMB(3.9,10,2,85,0)="""BLD"",6670,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,10,2,86,0)=""
^XMB(3.9,10,2,87,0)="""BLD"",6670,""KRN"",""B"",771,771)"
^XMB(3.9,10,2,88,0)=""
^XMB(3.9,10,2,89,0)="""BLD"",6670,""KRN"",""B"",870,870)"
^XMB(3.9,10,2,90,0)=""
^XMB(3.9,10,2,91,0)="""BLD"",6670,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,10,2,92,0)=""
^XMB(3.9,10,2,93,0)="""BLD"",6670,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,10,2,94,0)=""
^XMB(3.9,10,2,95,0)="""BLD"",6670,""KRN"",""B"",8994,8994)"
^XMB(3.9,10,2,96,0)=""
^XMB(3.9,10,2,97,0)="""BLD"",6670,""QUES"",0)"
^XMB(3.9,10,2,98,0)="^9.62^^"
^XMB(3.9,10,2,99,0)="""BLD"",6670,""REQB"",0)"
^XMB(3.9,10,2,100,0)="^9.611^1^1"
^XMB(3.9,10,2,101,0)="""BLD"",6670,""REQB"",1,0)"
^XMB(3.9,10,2,102,0)="DG*5.3*692^2"
^XMB(3.9,10,2,103,0)="""BLD"",6670,""REQB"",""B"",""DG*5.3*692"",1)"
^XMB(3.9,10,2,104,0)=""
^XMB(3.9,10,2,105,0)="""MBREQ"")"
^XMB(3.9,10,2,106,0)="0"
^XMB(3.9,10,2,107,0)="""PKG"",114,-1)"
^XMB(3.9,10,2,108,0)="1^1"
^XMB(3.9,10,2,109,0)="""PKG"",114,0)"
^XMB(3.9,10,2,110,0)="REGISTRATION^DG^PATIENT REGISTRATION, ADMISSION, DISCHARGE, EMBOSSER "
^XMB(3.9,10,2,111,0)="""PKG"",114,20,0)"
^XMB(3.9,10,2,112,0)="^9.402P^^"
^XMB(3.9,10,2,113,0)="""PKG"",114,22,0)"
^XMB(3.9,10,2,114,0)="^9.49I^1^1"
^XMB(3.9,10,2,115,0)="""PKG"",114,22,1,0)"
^XMB(3.9,10,2,116,0)="5.3^2930813^2930821"
^XMB(3.9,10,2,117,0)="""PKG"",114,22,1,""PAH"",1,0)"
^XMB(3.9,10,2,118,0)="715^3060523"
^XMB(3.9,10,2,119,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,10,2,120,0)="Y"
^XMB(3.9,10,2,121,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,10,2,122,0)="^D REP^XPDH"
^XMB(3.9,10,2,123,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,10,2,124,0)="Shall I write over your |FLAG| File"
^XMB(3.9,10,2,125,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,10,2,126,0)="YES"
^XMB(3.9,10,2,127,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,10,2,128,0)="D XPF1^XPDIQ"
^XMB(3.9,10,2,129,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,10,2,130,0)="Y"
^XMB(3.9,10,2,131,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,10,2,132,0)="^D DTA^XPDH"
^XMB(3.9,10,2,133,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,10,2,134,0)="Want my data |FLAG| yours"
^XMB(3.9,10,2,135,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,10,2,136,0)="YES"
^XMB(3.9,10,2,137,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,10,2,138,0)="D XPF2^XPDIQ"
^XMB(3.9,10,2,139,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,10,2,140,0)="YO"
^XMB(3.9,10,2,141,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,10,2,142,0)="^D INHIBIT^XPDH"
^XMB(3.9,10,2,143,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,10,2,144,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,10,2,145,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,10,2,146,0)="YES"
^XMB(3.9,10,2,147,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,10,2,148,0)="D XPI1^XPDIQ"
^XMB(3.9,10,2,149,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,10,2,150,0)="PO^VA(200,:EM"
^XMB(3.9,10,2,151,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,10,2,152,0)="^D MG^XPDH"
^XMB(3.9,10,2,153,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,10,2,154,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,10,2,155,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,10,2,156,0)=""
^XMB(3.9,10,2,157,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,10,2,158,0)="D XPM1^XPDIQ"
^XMB(3.9,10,2,159,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,10,2,160,0)="Y"
^XMB(3.9,10,2,161,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,10,2,162,0)="^D MENU^XPDH"
^XMB(3.9,10,2,163,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,10,2,164,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,10,2,165,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,10,2,166,0)="YES"
^XMB(3.9,10,2,167,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,10,2,168,0)="D XPO1^XPDIQ"
^XMB(3.9,10,2,169,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,10,2,170,0)="Y"
^XMB(3.9,10,2,171,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,10,2,172,0)="^D OPT^XPDH"
^XMB(3.9,10,2,173,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,10,2,174,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,10,2,175,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,10,2,176,0)="YES"
^XMB(3.9,10,2,177,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,10,2,178,0)="D XPZ1^XPDIQ"
^XMB(3.9,10,2,179,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,10,2,180,0)="Y"
^XMB(3.9,10,2,181,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,10,2,182,0)="^D RTN^XPDH"
^XMB(3.9,10,2,183,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,10,2,184,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,10,2,185,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,10,2,186,0)="NO"
^XMB(3.9,10,2,187,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,10,2,188,0)="D XPZ2^XPDIQ"
^XMB(3.9,10,2,189,0)="""RTN"")"
^XMB(3.9,10,2,190,0)="1"
^XMB(3.9,10,2,191,0)="""RTN"",""DGPMV3"")"
^XMB(3.9,10,2,192,0)="0^1^B23327624^B22721413"
^XMB(3.9,10,2,193,0)="""RTN"",""DGPMV3"",1,0)"
^XMB(3.9,10,2,194,0)="DGPMV3 ;ALB/MIR - ENTER TRANSACTION INFORMATION; 8 MAY 89 ; 5/23/06 8:32am"
^XMB(3.9,10,2,195,0)="""RTN"",""DGPMV3"",2,0)"
^XMB(3.9,10,2,196,0)=" ;;5.3;Registration;**34,54,62,95,692,715**;Aug 13, 1993"
^XMB(3.9,10,2,197,0)="""RTN"",""DGPMV3"",3,0)"
^XMB(3.9,10,2,198,0)=" K ^UTILITY(""DGPM"",$J)"
^XMB(3.9,10,2,199,0)="""RTN"",""DGPMV3"",4,0)"
^XMB(3.9,10,2,200,0)=" D NOW^%DTC S DGNOW=%,DGPMHY=DGPMY,DGPMOUT=0 G:'DGPMN DT S X=DGPMY"
^XMB(3.9,10,2,201,0)="""RTN"",""DGPMV3"",5,0)"
^XMB(3.9,10,2,202,0)=" S DGPM0ND=DGPMY_""^""_DGPMT_""^""_DFN_""^^^^^^^^^^^""_$S(""^1^4^""[(""^""_DGPMT_""^""):"""",1:DGPMCA)"
^XMB(3.9,10,2,203,0)="""RTN"",""DGPMV3"",6,0)"
^XMB(3.9,10,2,204,0)=" ;"
^XMB(3.9,10,2,205,0)="""RTN"",""DGPMV3"",7,0)"
^XMB(3.9,10,2,206,0)=" I DGPMT=1 S $P(DGPM0ND,""^"",25)=$S(DGPMSA:1,1:0)"
^XMB(3.9,10,2,207,0)="""RTN"",""DGPMV3"",8,0)"
^XMB(3.9,10,2,208,0)=" ;-- provider change"
^XMB(3.9,10,2,209,0)="""RTN"",""DGPMV3"",9,0)"
^XMB(3.9,10,2,210,0)=" I DGPMT=6,$D(DGPMPC) S DGPM0ND=$$PRODAT(DGPM0ND)"
^XMB(3.9,10,2,211,0)="""RTN"",""DGPMV3"",10,0)"
^XMB(3.9,10,2,212,0)=" D NEW G Q:Y'>0 S (DA,DGPMDA)=+Y"
^XMB(3.9,10,2,213,0)="""RTN"",""DGPMV3"",11,0)"
^XMB(3.9,10,2,214,0)=" S:DGPMT=1!(DGPMT=4) DGPMCA=DA,DGPMAN=^DGPM(DA,0) D VAR G DR"
^XMB(3.9,10,2,215,0)="""RTN"",""DGPMV3"",12,0)"
^XMB(3.9,10,2,216,0)="DT D VAR G:DGPM1X DR S (DGPMY,Y)=DGPMHY X ^DD(""DD"") W !,DGPMUC,"" DATE: "",Y,""// "" R X:DTIME G Q:'$T!(X[""^"") I X="""" G DR"
^XMB(3.9,10,2,217,0)="""RTN"",""DGPMV3"",13,0)"
^XMB(3.9,10,2,218,0)=" S %DT=""SRXE"",%DT(0)=""-NOW"" I X[""?""!(Y<0) D HELP^%DTC G DT"
^XMB(3.9,10,2,219,0)="""RTN"",""DGPMV3"",14,0)"
^XMB(3.9,10,2,220,0)=" I X=""@"" G OKD"
^XMB(3.9,10,2,221,0)="""RTN"",""DGPMV3"",15,0)"
^XMB(3.9,10,2,222,0)=" D ^%DT I Y<0 D HELP^%DTC G DT"
^XMB(3.9,10,2,223,0)="""RTN"",""DGPMV3"",16,0)"
^XMB(3.9,10,2,224,0)=" K %DT S DGPMY=Y D CHK^DGPMV30:(X]"""")&(DGPMY'=+DGPMP) I $D(DGPME) S DGPMY=DGPMHY W !,DGPME K DGPME G DT"
^XMB(3.9,10,2,225,0)="""RTN"",""DGPMV3"",17,0)"
^XMB(3.9,10,2,226,0)="DR ;select input template for transaction type"
^XMB(3.9,10,2,227,0)="""RTN"",""DGPMV3"",18,0)"
^XMB(3.9,10,2,228,0)=" S DIE=""^DGPM("" I ""^1^4^6^""[(""^""_DGPMT_""^""),DGPMN S DIE(""NO^"")="""""
^XMB(3.9,10,2,229,0)="""RTN"",""DGPMV3"",19,0)"
^XMB(3.9,10,2,230,0)=" S DGODSPT=$S('$D(^DGPM(DGPMCA,""ODS"")):0,^(""ODS""):1,1:0)"
^XMB(3.9,10,2,231,0)="""RTN"",""DGPMV3"",20,0)"
^XMB(3.9,10,2,232,0)=" S DR=$S(DGPMT=1:""[DGPM ADMIT]"",DGPMT=2:""[DGPM TRANSFER]"",DGPMT=3:""[DGPM DISCHARGE]"",DGPMT=4:""[DGPM CHECK-IN LODGER]"",DGPMT=5:""[DGPM LODGER CHECK-OUT]"",DGPMT=6:""[DGPM SPECIALTY TRANSFER]"",1:"""") G Q:DR="""" K DQ,DG D ^DIE K DIE"
^XMB(3.9,10,2,233,0)="""RTN"",""DGPMV3"",21,0)"
^XMB(3.9,10,2,234,0)=" I $D(Y)#2 S DGPMOUT=1"
^XMB(3.9,10,2,235,0)="""RTN"",""DGPMV3"",22,0)"
^XMB(3.9,10,2,236,0)=" ;Modified in patch dg*5.3*692 to include privacy indicator node ""DIR"""
^XMB(3.9,10,2,237,0)="""RTN"",""DGPMV3"",23,0)"
^XMB(3.9,10,2,238,0)=" K DGZ S (^UTILITY(""DGPM"",$J,DGPMT,DGPMDA,""A""),DGPMA)=$S($D(^DGPM(DGPMDA,0)):^(0)_$S($G(^(""DIR""))'="""":U_^(""DIR""),1:""""),1:"""")"
^XMB(3.9,10,2,239,0)="""RTN"",""DGPMV3"",24,0)"
^XMB(3.9,10,2,240,0)=" D:DGPMT'=4 @(""^DGPMV3""_DGPMT)"
^XMB(3.9,10,2,241,0)="""RTN"",""DGPMV3"",25,0)"
^XMB(3.9,10,2,242,0)=" I DGPMT=4,$S('$D(^DGPM(DGPMDA,""LD"")):1,'$P(^(""LD""),""^"",1):1,1:0) S DIK=""^DGPM("",DA=DGPMDA W !,""Incomplete check-in...deleted"" D ^DIK K DIK S DGPMA="""""
^XMB(3.9,10,2,243,0)="""RTN"",""DGPMV3"",26,0)"
^XMB(3.9,10,2,244,0)=" S (^UTILITY(""DGPM"",$J,DGPMT,DGPMDA,""A""),DGPMA)=$G(^DGPM(DGPMDA,0))_$S($G(^(""DIR""))'="""":U_^(""DIR""),1:"""") I DGPMT=6 S Y=DGPMDA D AFTER^DGPMV36"
^XMB(3.9,10,2,245,0)="""RTN"",""DGPMV3"",27,0)"
^XMB(3.9,10,2,246,0)="EVENTS ;"
^XMB(3.9,10,2,247,0)="""RTN"",""DGPMV3"",28,0)"
^XMB(3.9,10,2,248,0)=" I DGPMT=4!(DGPMT=5) D RESET^DGPMDDLD"
^XMB(3.9,10,2,249,0)="""RTN"",""DGPMV3"",29,0)"
^XMB(3.9,10,2,250,0)=" I DGPMT'=4&(DGPMT'=5) D RESET^DGPMDDCN I (DGPMT'=6) D SI^DGPMV33"
^XMB(3.9,10,2,251,0)="""RTN"",""DGPMV3"",30,0)"
^XMB(3.9,10,2,252,0)=" D:DGPMA]"""" START^DGPWB(DFN)"
^XMB(3.9,10,2,253,0)="""RTN"",""DGPMV3"",31,0)"
^XMB(3.9,10,2,254,0)=" D EN^DGPMVBM ;notify building management if room-bed change"
^XMB(3.9,10,2,255,0)="""RTN"",""DGPMV3"",32,0)"
^XMB(3.9,10,2,256,0)=" S DGOK=0 F I=0:0 S I=$O(^UTILITY(""DGPM"",$J,I)) Q:'I  F J=0:0 S J=$O(^UTILITY(""DGPM"",$J,I,J)) Q:'J  I ^(J,""A"")'=^(""P"") S DGOK=1 Q"
^XMB(3.9,10,2,257,0)="""RTN"",""DGPMV3"",33,0)"
^XMB(3.9,10,2,258,0)=" I DGOK D ^DGPMEVT ;Invoke Movement Event Driver"
^XMB(3.9,10,2,259,0)="""RTN"",""DGPMV3"",34,0)"
^XMB(3.9,10,2,260,0)="Q S:$D(DGPMBYP) DGPMBYP=DGPMDA"
^XMB(3.9,10,2,261,0)="""RTN"",""DGPMV3"",35,0)"
^XMB(3.9,10,2,262,0)=" K DGIDX,DGOWD,DGOTY ;variables set in DGPMGLC - G&L corrections"
^XMB(3.9,10,2,263,0)="""RTN"",""DGPMV3"",36,0)"
^XMB(3.9,10,2,264,0)=" K DGODS,DGODSPT ;ods variables"
^XMB(3.9,10,2,265,0)="""RTN"",""DGPMV3"",37,0)"
^XMB(3.9,10,2,266,0)=" K %DT,DA,DGER,DGNOW,DGOK,DGPM0,DGPM0ND,DGPM2,DGPMA,DGPMAB,DGPMABL,DGPMDA,DGPMER,DGPMHY,DGPMNI,DGPMOC,DGPMOS,DGPMOUT,DGPMP,DGPMPHY,DGPMPHY0,DGPMPTF,DGPMSP,DGPMTYP,DGPMTN,DGPMWD,DGT,DGSV,DGX,DGX1"
^XMB(3.9,10,2,267,0)="""RTN"",""DGPMV3"",38,0)"
^XMB(3.9,10,2,268,0)=" K DIC,DIE,DIK,DR,I,I1,J,K,X,X1,X2,Y,^UTILITY(""DGPM"",$J) Q"
^XMB(3.9,10,2,269,0)="""RTN"",""DGPMV3"",39,0)"
^XMB(3.9,10,2,270,0)=" ;"
^XMB(3.9,10,2,271,0)="""RTN"",""DGPMV3"",40,0)"
^XMB(3.9,10,2,272,0)="OKD K %DT W ! S DGPMER=0,(^UTILITY(""DGPM"",$J,DGPMT,DGPMDA,""P""),DGPMP)=^DGPM(DGPMDA,0),Y=DGPMDA D:DGPMT=6 PRIOR^DGPMV36 D @(""D""_DGPMT_""^DGPMVDL""_$S(DGPMT>2:1,1:"""")) G Q:DGPMER"
^XMB(3.9,10,2,273,0)="""RTN"",""DGPMV3"",41,0)"
^XMB(3.9,10,2,274,0)=" W !,""Are you sure you want to delete this movement"" S %=2 D YN^DICN G Q:%<0,DT:%=2 I '% W !?5,""Answer yes to delete this "",DGPMUC,"" or no to continue"" G OKD"
^XMB(3.9,10,2,275,0)="""RTN"",""DGPMV3"",42,0)"
^XMB(3.9,10,2,276,0)=" D @(DGPMT_""^DGPMVDL""_$S(DGPMT>2:1,1:""""))"
^XMB(3.9,10,2,277,0)="""RTN"",""DGPMV3"",43,0)"
^XMB(3.9,10,2,278,0)=" I DGPMT'=3,(DGPMT'=5) S DIK=""^DGPM("",DA=DGPMDA D ^DIK:DGPMDA"
^XMB(3.9,10,2,279,0)="""RTN"",""DGPMV3"",44,0)"
^XMB(3.9,10,2,280,0)=" S (^UTILITY(""DGPM"",$J,DGPMT,DGPMDA,""A""),DGPMA)=$S($P(DGPMP,""^"",18)'=47:"""",1:^DGPM(+DGPMDA,0)) I DGPMT=6 S Y=DGPMDA D AFTER^DGPMV36"
^XMB(3.9,10,2,281,0)="""RTN"",""DGPMV3"",45,0)"
^XMB(3.9,10,2,282,0)=" I DGPMDA,$O(^DGPM(""APHY"",DGPMDA,0)) S DIK=""^DGPM("",DA=+$O(^(0)) I $D(^DGPM(+DA,0)) S ^UTILITY(""DGPM"",$J,6,DA,""P"")=^(0),^(""A"")="""",Y=DA D PRIOR^DGPMV36,^DIK S Y=DA D AFTER^DGPMV36"
^XMB(3.9,10,2,283,0)="""RTN"",""DGPMV3"",46,0)"
^XMB(3.9,10,2,284,0)=" G EVENTS"
^XMB(3.9,10,2,285,0)="""RTN"",""DGPMV3"",47,0)"
^XMB(3.9,10,2,286,0)="VAR ;Set up variables"
^XMB(3.9,10,2,287,0)="""RTN"",""DGPMV3"",48,0)"
^XMB(3.9,10,2,288,0)=" ;Modified in patch dg*5.3*692 to include privacy indicator node ""DIR"""
^XMB(3.9,10,2,289,0)="""RTN"",""DGPMV3"",49,0)"
^XMB(3.9,10,2,290,0)=" S DA=DGPMDA,(^UTILITY(""DGPM"",$J,DGPMT,DGPMDA,""P""),DGPMP)=$S(DGPMN=1:"""",1:$G(^DGPM(DA,0))_$S($G(^(""DIR""))'="""":U_^(""DIR""),1:""""),1:"""") ;DGPMP=Before edit"
^XMB(3.9,10,2,291,0)="""RTN"",""DGPMV3"",50,0)"
^XMB(3.9,10,2,292,0)=" I DGPMT=6 S Y=DGPMDA D PRIOR^DGPMV36"
^XMB(3.9,10,2,293,0)="""RTN"",""DGPMV3"",51,0)"
^XMB(3.9,10,2,294,0)=" S DGX=DGPMY+($P(DGPMP,""^"",22)/10000000)"
^XMB(3.9,10,2,295,0)="""RTN"",""DGPMV3"",52,0)"
^XMB(3.9,10,2,296,0)=" S X=$O(^DGPM(""APMV"",DFN,DGPMCA,(9999999.9999999-DGX))),X1=$O(^DGPM(""APMV"",DFN,DGPMCA,+X,0)) S DGPM0=$S($D(^DGPM(+X1,0)):^(0),1:"""") ;DGPM0=prior movement"
^XMB(3.9,10,2,297,0)="""RTN"",""DGPMV3"",53,0)"
^XMB(3.9,10,2,298,0)=" S X=$O(^DGPM(""APCA"",DFN,DGPMCA,+DGX)),X=$O(^(+X,0)),DGPM2=$S($D(^DGPM(+X,0)):^(0),1:"""") ;DGPM2=next movement"
^XMB(3.9,10,2,299,0)="""RTN"",""DGPMV3"",54,0)"
^XMB(3.9,10,2,300,0)=" S DGPMABL=0 I DGPM2,$D(^DG(405.2,+$P(DGPM2,""^"",18),""E"")) S DGPMABL=+^(""E"") ;is the next movement an absence?"
^XMB(3.9,10,2,301,0)="""RTN"",""DGPMV3"",55,0)"
^XMB(3.9,10,2,302,0)=" I DGPMT=6 S Y=DGPMDA D PRIOR^DGPMV36"
^XMB(3.9,10,2,303,0)="""RTN"",""DGPMV3"",56,0)"
^XMB(3.9,10,2,304,0)=" Q"
^XMB(3.9,10,2,305,0)="""RTN"",""DGPMV3"",57,0)"
^XMB(3.9,10,2,306,0)="NEW ;Entry point to add a new entry to ^DGPM"
^XMB(3.9,10,2,307,0)="""RTN"",""DGPMV3"",58,0)"
^XMB(3.9,10,2,308,0)=" D NEW^DGPMV301 ; continuation of routine DGPMV3 in DGPMV301"
^XMB(3.9,10,2,309,0)="""RTN"",""DGPMV3"",59,0)"
^XMB(3.9,10,2,310,0)=" Q"
^XMB(3.9,10,2,311,0)="""RTN"",""DGPMV3"",60,0)"
^XMB(3.9,10,2,312,0)=" ;"
^XMB(3.9,10,2,313,0)="""RTN"",""DGPMV3"",61,0)"
^XMB(3.9,10,2,314,0)="PRODAT(NODE) ;-- This function will add the ward and other data from the"
^XMB(3.9,10,2,315,0)="""RTN"",""DGPMV3"",62,0)"
^XMB(3.9,10,2,316,0)=" ; previous TS movement to the provider TS movement."
^XMB(3.9,10,2,317,0)="""RTN"",""DGPMV3"",63,0)"
^XMB(3.9,10,2,318,0)=" ;"
^XMB(3.9,10,2,319,0)="""RTN"",""DGPMV3"",64,0)"
^XMB(3.9,10,2,320,0)=" N X,Y"
^XMB(3.9,10,2,321,0)="""RTN"",""DGPMV3"",65,0)"
^XMB(3.9,10,2,322,0)=" S Y=NODE,X=$O(^DGPM(""ATS"",DFN,DGPMCA,9999999.9999999-$P(NODE,U))) I X S X=$O(^(X,0)) I X S X=$O(^(X,0)) I X S X=^DGPM(X,0)"
^XMB(3.9,10,2,323,0)="""RTN"",""DGPMV3"",66,0)"
^XMB(3.9,10,2,324,0)=" S $P(Y,U,4)=$P(X,U,4),$P(Y,U,9)=$P(X,U,9)"
^XMB(3.9,10,2,325,0)="""RTN"",""DGPMV3"",67,0)"
^XMB(3.9,10,2,326,0)=" Q Y"
^XMB(3.9,10,2,327,0)="""RTN"",""DGPMV3"",68,0)"
^XMB(3.9,10,2,328,0)=" ;"
^XMB(3.9,10,2,329,0)="""VER"")"
^XMB(3.9,10,2,330,0)="8.0^22.0"
^XMB(3.9,10,2,331,0)="""BLD"",6670,6)"
^XMB(3.9,10,2,332,0)="^625"
^XMB(3.9,10,2,333,0)="$END KID DG*5.3*715"
^XMB(3.9,10,6,0)="^3.911A^2^2"
^XMB(3.9,10,6,1,0)="POSTMASTER"
^XMB(3.9,10,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,10,6,"B","POSTMASTER",1)=""
^XMB(3.9,10,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,11,0)="DG-5P3_SEQ-626_PAT-694.KID^.5^3061008.01573^^^^K"
^XMB(3.9,11,.6)="3061008"
^XMB(3.9,11,1,0)="^3.91A^2^2"
^XMB(3.9,11,1,1,0)=".5^0^3061008.01573^^^^^^^3061008.01573"
^XMB(3.9,11,1,2,0)="1^0^3061008.022437^^^^^^^3061008.022437"
^XMB(3.9,11,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,11,1,"C",.5,1)=""
^XMB(3.9,11,1,"C",1,2)=""
^XMB(3.9,11,2,0)="^^815^815^3061008"
^XMB(3.9,11,2,1,0)="$TXT Released DG*5.3*694 SEQ #626"
^XMB(3.9,11,2,2,0)="Extracted from mail message"
^XMB(3.9,11,2,3,0)="$END TXT"
^XMB(3.9,11,2,4,0)="$KID DG*5.3*694"
^XMB(3.9,11,2,5,0)="**INSTALL NAME**"
^XMB(3.9,11,2,6,0)="DG*5.3*694"
^XMB(3.9,11,2,7,0)="""BLD"",6090,0)"
^XMB(3.9,11,2,8,0)="DG*5.3*694^REGISTRATION^0^3060616^y"
^XMB(3.9,11,2,9,0)="""BLD"",6090,4,0)"
^XMB(3.9,11,2,10,0)="^9.64PA^^"
^XMB(3.9,11,2,11,0)="""BLD"",6090,6.3)"
^XMB(3.9,11,2,12,0)="8"
^XMB(3.9,11,2,13,0)="""BLD"",6090,""ABPKG"")"
^XMB(3.9,11,2,14,0)="n"
^XMB(3.9,11,2,15,0)="""BLD"",6090,""KRN"",0)"
^XMB(3.9,11,2,16,0)="^9.67PA^8989.52^19"
^XMB(3.9,11,2,17,0)="""BLD"",6090,""KRN"",.4,0)"
^XMB(3.9,11,2,18,0)=".4"
^XMB(3.9,11,2,19,0)="""BLD"",6090,""KRN"",.4,""NM"",0)"
^XMB(3.9,11,2,20,0)="^9.68A^^"
^XMB(3.9,11,2,21,0)="""BLD"",6090,""KRN"",.401,0)"
^XMB(3.9,11,2,22,0)=".401"
^XMB(3.9,11,2,23,0)="""BLD"",6090,""KRN"",.402,0)"
^XMB(3.9,11,2,24,0)=".402"
^XMB(3.9,11,2,25,0)="""BLD"",6090,""KRN"",.403,0)"
^XMB(3.9,11,2,26,0)=".403"
^XMB(3.9,11,2,27,0)="""BLD"",6090,""KRN"",.5,0)"
^XMB(3.9,11,2,28,0)=".5"
^XMB(3.9,11,2,29,0)="""BLD"",6090,""KRN"",.84,0)"
^XMB(3.9,11,2,30,0)=".84"
^XMB(3.9,11,2,31,0)="""BLD"",6090,""KRN"",3.6,0)"
^XMB(3.9,11,2,32,0)="3.6"
^XMB(3.9,11,2,33,0)="""BLD"",6090,""KRN"",3.8,0)"
^XMB(3.9,11,2,34,0)="3.8"
^XMB(3.9,11,2,35,0)="""BLD"",6090,""KRN"",9.2,0)"
^XMB(3.9,11,2,36,0)="9.2"
^XMB(3.9,11,2,37,0)="""BLD"",6090,""KRN"",9.8,0)"
^XMB(3.9,11,2,38,0)="9.8"
^XMB(3.9,11,2,39,0)="""BLD"",6090,""KRN"",9.8,""NM"",0)"
^XMB(3.9,11,2,40,0)="^9.68A^1^1"
^XMB(3.9,11,2,41,0)="""BLD"",6090,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,11,2,42,0)="DGRSTBAD^^0^B86893663"
^XMB(3.9,11,2,43,0)="""BLD"",6090,""KRN"",9.8,""NM"",""B"",""DGRSTBAD"",1)"
^XMB(3.9,11,2,44,0)=""
^XMB(3.9,11,2,45,0)="""BLD"",6090,""KRN"",19,0)"
^XMB(3.9,11,2,46,0)="19"
^XMB(3.9,11,2,47,0)="""BLD"",6090,""KRN"",19,""NM"",0)"
^XMB(3.9,11,2,48,0)="^9.68A^1^1"
^XMB(3.9,11,2,49,0)="""BLD"",6090,""KRN"",19,""NM"",1,0)"
^XMB(3.9,11,2,50,0)="DG INVALID STATE/COUNTY REPORT^^0"
^XMB(3.9,11,2,51,0)="""BLD"",6090,""KRN"",19,""NM"",""B"",""DG INVALID STATE/COUNTY REPORT"",1)"
^XMB(3.9,11,2,52,0)=""
^XMB(3.9,11,2,53,0)="""BLD"",6090,""KRN"",19.1,0)"
^XMB(3.9,11,2,54,0)="19.1"
^XMB(3.9,11,2,55,0)="""BLD"",6090,""KRN"",101,0)"
^XMB(3.9,11,2,56,0)="101"
^XMB(3.9,11,2,57,0)="""BLD"",6090,""KRN"",409.61,0)"
^XMB(3.9,11,2,58,0)="409.61"
^XMB(3.9,11,2,59,0)="""BLD"",6090,""KRN"",771,0)"
^XMB(3.9,11,2,60,0)="771"
^XMB(3.9,11,2,61,0)="""BLD"",6090,""KRN"",870,0)"
^XMB(3.9,11,2,62,0)="870"
^XMB(3.9,11,2,63,0)="""BLD"",6090,""KRN"",8989.51,0)"
^XMB(3.9,11,2,64,0)="8989.51"
^XMB(3.9,11,2,65,0)="""BLD"",6090,""KRN"",8989.52,0)"
^XMB(3.9,11,2,66,0)="8989.52"
^XMB(3.9,11,2,67,0)="""BLD"",6090,""KRN"",8994,0)"
^XMB(3.9,11,2,68,0)="8994"
^XMB(3.9,11,2,69,0)="""BLD"",6090,""KRN"",""B"",.4,.4)"
^XMB(3.9,11,2,70,0)=""
^XMB(3.9,11,2,71,0)="""BLD"",6090,""KRN"",""B"",.401,.401)"
^XMB(3.9,11,2,72,0)=""
^XMB(3.9,11,2,73,0)="""BLD"",6090,""KRN"",""B"",.402,.402)"
^XMB(3.9,11,2,74,0)=""
^XMB(3.9,11,2,75,0)="""BLD"",6090,""KRN"",""B"",.403,.403)"
^XMB(3.9,11,2,76,0)=""
^XMB(3.9,11,2,77,0)="""BLD"",6090,""KRN"",""B"",.5,.5)"
^XMB(3.9,11,2,78,0)=""
^XMB(3.9,11,2,79,0)="""BLD"",6090,""KRN"",""B"",.84,.84)"
^XMB(3.9,11,2,80,0)=""
^XMB(3.9,11,2,81,0)="""BLD"",6090,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,11,2,82,0)=""
^XMB(3.9,11,2,83,0)="""BLD"",6090,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,11,2,84,0)=""
^XMB(3.9,11,2,85,0)="""BLD"",6090,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,11,2,86,0)=""
^XMB(3.9,11,2,87,0)="""BLD"",6090,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,11,2,88,0)=""
^XMB(3.9,11,2,89,0)="""BLD"",6090,""KRN"",""B"",19,19)"
^XMB(3.9,11,2,90,0)=""
^XMB(3.9,11,2,91,0)="""BLD"",6090,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,11,2,92,0)=""
^XMB(3.9,11,2,93,0)="""BLD"",6090,""KRN"",""B"",101,101)"
^XMB(3.9,11,2,94,0)=""
^XMB(3.9,11,2,95,0)="""BLD"",6090,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,11,2,96,0)=""
^XMB(3.9,11,2,97,0)="""BLD"",6090,""KRN"",""B"",771,771)"
^XMB(3.9,11,2,98,0)=""
^XMB(3.9,11,2,99,0)="""BLD"",6090,""KRN"",""B"",870,870)"
^XMB(3.9,11,2,100,0)=""
^XMB(3.9,11,2,101,0)="""BLD"",6090,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,11,2,102,0)=""
^XMB(3.9,11,2,103,0)="""BLD"",6090,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,11,2,104,0)=""
^XMB(3.9,11,2,105,0)="""BLD"",6090,""KRN"",""B"",8994,8994)"
^XMB(3.9,11,2,106,0)=""
^XMB(3.9,11,2,107,0)="""BLD"",6090,""QUES"",0)"
^XMB(3.9,11,2,108,0)="^9.62^^"
^XMB(3.9,11,2,109,0)="""BLD"",6090,""REQB"",0)"
^XMB(3.9,11,2,110,0)="^9.611^1^1"
^XMB(3.9,11,2,111,0)="""BLD"",6090,""REQB"",1,0)"
^XMB(3.9,11,2,112,0)="XU*8.0*378^2"
^XMB(3.9,11,2,113,0)="""BLD"",6090,""REQB"",""B"",""XU*8.0*378"",1)"
^XMB(3.9,11,2,114,0)=""
^XMB(3.9,11,2,115,0)="""KRN"",19,12502,-1)"
^XMB(3.9,11,2,116,0)="0^1"
^XMB(3.9,11,2,117,0)="""KRN"",19,12502,0)"
^XMB(3.9,11,2,118,0)="DG INVALID STATE/COUNTY REPORT^Invalid State/Inactive County Report^^R^^^^^^^^"
^XMB(3.9,11,2,119,0)="""KRN"",19,12502,1,0)"
^XMB(3.9,11,2,120,0)="^19.06^4^4^3060616^^"
^XMB(3.9,11,2,121,0)="""KRN"",19,12502,1,1,0)"
^XMB(3.9,11,2,122,0)="The report lists PATIENT file records whose address fields"
^XMB(3.9,11,2,123,0)="""KRN"",19,12502,1,2,0)"
^XMB(3.9,11,2,124,0)="contain invalid states and/or inactive counties.  The user"
^XMB(3.9,11,2,125,0)="""KRN"",19,12502,1,3,0)"
^XMB(3.9,11,2,126,0)="may run the report for 1) US and US Possessions Only,"
^XMB(3.9,11,2,127,0)="""KRN"",19,12502,1,4,0)"
^XMB(3.9,11,2,128,0)="2) Foreign Addresses Only, or 3) Both."
^XMB(3.9,11,2,129,0)="""KRN"",19,12502,25)"
^XMB(3.9,11,2,130,0)="EN^DGRSTBAD"
^XMB(3.9,11,2,131,0)="""KRN"",19,12502,""U"")"
^XMB(3.9,11,2,132,0)="INVALID STATE/INACTIVE COUNTY "
^XMB(3.9,11,2,133,0)="""MBREQ"")"
^XMB(3.9,11,2,134,0)="0"
^XMB(3.9,11,2,135,0)="""ORD"",18,19)"
^XMB(3.9,11,2,136,0)="19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA"
^XMB(3.9,11,2,137,0)="""ORD"",18,19,0)"
^XMB(3.9,11,2,138,0)="OPTION"
^XMB(3.9,11,2,139,0)="""PKG"",5,-1)"
^XMB(3.9,11,2,140,0)="1^1"
^XMB(3.9,11,2,141,0)="""PKG"",5,0)"
^XMB(3.9,11,2,142,0)="REGISTRATION^DG^PATIENT REGISTRATION, ADMISSION, DISCHARGE, EMBOSSER "
^XMB(3.9,11,2,143,0)="""PKG"",5,20,0)"
^XMB(3.9,11,2,144,0)="^9.402P^^"
^XMB(3.9,11,2,145,0)="""PKG"",5,22,0)"
^XMB(3.9,11,2,146,0)="^9.49I^1^1"
^XMB(3.9,11,2,147,0)="""PKG"",5,22,1,0)"
^XMB(3.9,11,2,148,0)="5.3^2930813"
^XMB(3.9,11,2,149,0)="""PKG"",5,22,1,""PAH"",1,0)"
^XMB(3.9,11,2,150,0)="694^3060616^123456834"
^XMB(3.9,11,2,151,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,11,2,152,0)="Y"
^XMB(3.9,11,2,153,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,11,2,154,0)="^D REP^XPDH"
^XMB(3.9,11,2,155,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,11,2,156,0)="Shall I write over your |FLAG| File"
^XMB(3.9,11,2,157,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,11,2,158,0)="YES"
^XMB(3.9,11,2,159,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,11,2,160,0)="D XPF1^XPDIQ"
^XMB(3.9,11,2,161,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,11,2,162,0)="Y"
^XMB(3.9,11,2,163,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,11,2,164,0)="^D DTA^XPDH"
^XMB(3.9,11,2,165,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,11,2,166,0)="Want my data |FLAG| yours"
^XMB(3.9,11,2,167,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,11,2,168,0)="YES"
^XMB(3.9,11,2,169,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,11,2,170,0)="D XPF2^XPDIQ"
^XMB(3.9,11,2,171,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,11,2,172,0)="YO"
^XMB(3.9,11,2,173,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,11,2,174,0)="^D INHIBIT^XPDH"
^XMB(3.9,11,2,175,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,11,2,176,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,11,2,177,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,11,2,178,0)="YES"
^XMB(3.9,11,2,179,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,11,2,180,0)="D XPI1^XPDIQ"
^XMB(3.9,11,2,181,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,11,2,182,0)="PO^VA(200,:EM"
^XMB(3.9,11,2,183,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,11,2,184,0)="^D MG^XPDH"
^XMB(3.9,11,2,185,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,11,2,186,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,11,2,187,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,11,2,188,0)=""
^XMB(3.9,11,2,189,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,11,2,190,0)="D XPM1^XPDIQ"
^XMB(3.9,11,2,191,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,11,2,192,0)="Y"
^XMB(3.9,11,2,193,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,11,2,194,0)="^D MENU^XPDH"
^XMB(3.9,11,2,195,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,11,2,196,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,11,2,197,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,11,2,198,0)="YES"
^XMB(3.9,11,2,199,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,11,2,200,0)="D XPO1^XPDIQ"
^XMB(3.9,11,2,201,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,11,2,202,0)="Y"
^XMB(3.9,11,2,203,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,11,2,204,0)="^D OPT^XPDH"
^XMB(3.9,11,2,205,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,11,2,206,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,11,2,207,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,11,2,208,0)="YES"
^XMB(3.9,11,2,209,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,11,2,210,0)="D XPZ1^XPDIQ"
^XMB(3.9,11,2,211,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,11,2,212,0)="Y"
^XMB(3.9,11,2,213,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,11,2,214,0)="^D RTN^XPDH"
^XMB(3.9,11,2,215,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,11,2,216,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,11,2,217,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,11,2,218,0)="NO"
^XMB(3.9,11,2,219,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,11,2,220,0)="D XPZ2^XPDIQ"
^XMB(3.9,11,2,221,0)="""RTN"")"
^XMB(3.9,11,2,222,0)="1"
^XMB(3.9,11,2,223,0)="""RTN"",""DGRSTBAD"")"
^XMB(3.9,11,2,224,0)="0^1^B86893663"
^XMB(3.9,11,2,225,0)="""RTN"",""DGRSTBAD"",1,0)"
^XMB(3.9,11,2,226,0)="DGRSTBAD ;JDH,EG-STATE FILE REPORT ; 06/15/2006 6:15 AM"
^XMB(3.9,11,2,227,0)="""RTN"",""DGRSTBAD"",2,0)"
^XMB(3.9,11,2,228,0)=" ;;5.3;Registration;**694**;Aug 13, 1993;Build 8"
^XMB(3.9,11,2,229,0)="""RTN"",""DGRSTBAD"",3,0)"
^XMB(3.9,11,2,230,0)=" Q"
^XMB(3.9,11,2,231,0)="""RTN"",""DGRSTBAD"",4,0)"
^XMB(3.9,11,2,232,0)="EN N %ZIS,DGNS,DIR,X,Y,DGRPTYP,DIRUT,MSG,POP,ZTSK"
^XMB(3.9,11,2,233,0)="""RTN"",""DGRSTBAD"",5,0)"
^XMB(3.9,11,2,234,0)=" S DIR(""A"")=""Report on States Not Recognized by AAC or Inactive Counties for"""
^XMB(3.9,11,2,235,0)="""RTN"",""DGRSTBAD"",6,0)"
^XMB(3.9,11,2,236,0)=" S DGRPTYP(1)=""US and US Possessions Only"""
^XMB(3.9,11,2,237,0)="""RTN"",""DGRSTBAD"",7,0)"
^XMB(3.9,11,2,238,0)=" S DGRPTYP(2)=""Foreign Addresses Only"""
^XMB(3.9,11,2,239,0)="""RTN"",""DGRSTBAD"",8,0)"
^XMB(3.9,11,2,240,0)=" S DIR(""B"")=1"
^XMB(3.9,11,2,241,0)="""RTN"",""DGRSTBAD"",9,0)"
^XMB(3.9,11,2,242,0)=" S DIR(0)=""S^1:""_DGRPTYP(1)_"";2:""_DGRPTYP(2)_"";3:Both"""
^XMB(3.9,11,2,243,0)="""RTN"",""DGRSTBAD"",10,0)"
^XMB(3.9,11,2,244,0)=" D ^DIR G:$D(DIRUT) EXIT"
^XMB(3.9,11,2,245,0)="""RTN"",""DGRSTBAD"",11,0)"
^XMB(3.9,11,2,246,0)=" S DGRPTYP=Y"
^XMB(3.9,11,2,247,0)="""RTN"",""DGRSTBAD"",12,0)"
^XMB(3.9,11,2,248,0)=" S MSG(1)="""""
^XMB(3.9,11,2,249,0)="""RTN"",""DGRSTBAD"",13,0)"
^XMB(3.9,11,2,250,0)=" S MSG(2)=""This report may take a long time to generate.  It is recommended that the report"""
^XMB(3.9,11,2,251,0)="""RTN"",""DGRSTBAD"",14,0)"
^XMB(3.9,11,2,252,0)=" S MSG(3)=""be queued to print."""
^XMB(3.9,11,2,253,0)="""RTN"",""DGRSTBAD"",15,0)"
^XMB(3.9,11,2,254,0)=" S MSG(4)="""""
^XMB(3.9,11,2,255,0)="""RTN"",""DGRSTBAD"",16,0)"
^XMB(3.9,11,2,256,0)=" D BMES^XPDUTL(.MSG)"
^XMB(3.9,11,2,257,0)="""RTN"",""DGRSTBAD"",17,0)"
^XMB(3.9,11,2,258,0)=" S %ZIS=""Q"" D ^%ZIS G:POP EXIT"
^XMB(3.9,11,2,259,0)="""RTN"",""DGRSTBAD"",18,0)"
^XMB(3.9,11,2,260,0)=" S DGNS=""DGRSTBAD"""
^XMB(3.9,11,2,261,0)="""RTN"",""DGRSTBAD"",19,0)"
^XMB(3.9,11,2,262,0)=" I $D(IO(""Q"")) D ZTSK G EXIT"
^XMB(3.9,11,2,263,0)="""RTN"",""DGRSTBAD"",20,0)"
^XMB(3.9,11,2,264,0)=" D PROC(DGNS,.DGRPTYP),^%ZISC"
^XMB(3.9,11,2,265,0)="""RTN"",""DGRSTBAD"",21,0)"
^XMB(3.9,11,2,266,0)=" Q"
^XMB(3.9,11,2,267,0)="""RTN"",""DGRSTBAD"",22,0)"
^XMB(3.9,11,2,268,0)="EXIT D HOME^%ZIS"
^XMB(3.9,11,2,269,0)="""RTN"",""DGRSTBAD"",23,0)"
^XMB(3.9,11,2,270,0)=" Q"
^XMB(3.9,11,2,271,0)="""RTN"",""DGRSTBAD"",24,0)"
^XMB(3.9,11,2,272,0)=" ;"
^XMB(3.9,11,2,273,0)="""RTN"",""DGRSTBAD"",25,0)"
^XMB(3.9,11,2,274,0)="ZTSK ;"
^XMB(3.9,11,2,275,0)="""RTN"",""DGRSTBAD"",26,0)"
^XMB(3.9,11,2,276,0)=" N ZTSAVE,ZTDTH,ZTRTN,ZTDESC,Y"
^XMB(3.9,11,2,277,0)="""RTN"",""DGRSTBAD"",27,0)"
^XMB(3.9,11,2,278,0)=" S (ZTSAVE(""DGRPTYP""),ZTSAVE(""DGRPTYP(""),ZTSAVE(""DGNS""))="""""
^XMB(3.9,11,2,279,0)="""RTN"",""DGRSTBAD"",28,0)"
^XMB(3.9,11,2,280,0)=" S %DT(""A"")=""Requested Start Time: "",%DT=""FATE"""
^XMB(3.9,11,2,281,0)="""RTN"",""DGRSTBAD"",29,0)"
^XMB(3.9,11,2,282,0)=" S %DT(0)=""NOW"",%DT(""B"")=""NOW"" D ^%DT K %DT(0) I Y<0 Q"
^XMB(3.9,11,2,283,0)="""RTN"",""DGRSTBAD"",30,0)"
^XMB(3.9,11,2,284,0)=" S ZTDTH=Y"
^XMB(3.9,11,2,285,0)="""RTN"",""DGRSTBAD"",31,0)"
^XMB(3.9,11,2,286,0)=" S ZTDESC=""INVALID STATE/INACTIVE COUNTY REPORT"""
^XMB(3.9,11,2,287,0)="""RTN"",""DGRSTBAD"",32,0)"
^XMB(3.9,11,2,288,0)=" S ZTRTN=""PROC^""_DGNS_""(DGNS,.DGRPTYP)"""
^XMB(3.9,11,2,289,0)="""RTN"",""DGRSTBAD"",33,0)"
^XMB(3.9,11,2,290,0)=" D ^%ZTLOAD"
^XMB(3.9,11,2,291,0)="""RTN"",""DGRSTBAD"",34,0)"
^XMB(3.9,11,2,292,0)=" I $D(ZTSK) D"
^XMB(3.9,11,2,293,0)="""RTN"",""DGRSTBAD"",35,0)"
^XMB(3.9,11,2,294,0)=" .W !!,""REPORT QUEUED"""
^XMB(3.9,11,2,295,0)="""RTN"",""DGRSTBAD"",36,0)"
^XMB(3.9,11,2,296,0)=" E  W !!,""REPORT NOT QUEUED"""
^XMB(3.9,11,2,297,0)="""RTN"",""DGRSTBAD"",37,0)"
^XMB(3.9,11,2,298,0)=" Q"
^XMB(3.9,11,2,299,0)="""RTN"",""DGRSTBAD"",38,0)"
^XMB(3.9,11,2,300,0)=" ;"
^XMB(3.9,11,2,301,0)="""RTN"",""DGRSTBAD"",39,0)"
^XMB(3.9,11,2,302,0)="PROC(DGNS,DGRPTYP) ;"
^XMB(3.9,11,2,303,0)="""RTN"",""DGRSTBAD"",40,0)"
^XMB(3.9,11,2,304,0)=" N X,DGFARR,DGFORR,DGSARR,DFN,DGD1,DGGLB,DGFILEP,DGPARR,DGIENS,DGFILE,DGNODE,DGPTYP,DGTARR,DGNAME"
^XMB(3.9,11,2,305,0)="""RTN"",""DGRSTBAD"",41,0)"
^XMB(3.9,11,2,306,0)=" N DGIENS,DGSSN,DGPAGE,DGFLDNO,DGFLDS,DGPTR,DGTXT,DGFLD,DGQUIT,DGEND,DGSTRT,X1"
^XMB(3.9,11,2,307,0)="""RTN"",""DGRSTBAD"",42,0)"
^XMB(3.9,11,2,308,0)=" S DGFILE=2"
^XMB(3.9,11,2,309,0)="""RTN"",""DGRSTBAD"",43,0)"
^XMB(3.9,11,2,310,0)=" S DGGLB=""^DPT"""
^XMB(3.9,11,2,311,0)="""RTN"",""DGRSTBAD"",44,0)"
^XMB(3.9,11,2,312,0)=" K ^TMP($J,DGNS)"
^XMB(3.9,11,2,313,0)="""RTN"",""DGRSTBAD"",45,0)"
^XMB(3.9,11,2,314,0)=" D FILE2(.DGFORR,""FOTXT"")"
^XMB(3.9,11,2,315,0)="""RTN"",""DGRSTBAD"",46,0)"
^XMB(3.9,11,2,316,0)=" D FILE2(.DGFARR,""FATXT"")"
^XMB(3.9,11,2,317,0)="""RTN"",""DGRSTBAD"",47,0)"
^XMB(3.9,11,2,318,0)=" S DGSTRT=$S(DGRPTYP=3:1,1:DGRPTYP)"
^XMB(3.9,11,2,319,0)="""RTN"",""DGRSTBAD"",48,0)"
^XMB(3.9,11,2,320,0)=" S DGEND=$S(DGRPTYP=3:2,1:DGRPTYP)"
^XMB(3.9,11,2,321,0)="""RTN"",""DGRSTBAD"",49,0)"
^XMB(3.9,11,2,322,0)=" S DFN=0"
^XMB(3.9,11,2,323,0)="""RTN"",""DGRSTBAD"",50,0)"
^XMB(3.9,11,2,324,0)=" F  S DFN=$O(^DPT(DFN)) Q:'DFN  D"
^XMB(3.9,11,2,325,0)="""RTN"",""DGRSTBAD"",51,0)"
^XMB(3.9,11,2,326,0)=" . K DGPARR"
^XMB(3.9,11,2,327,0)="""RTN"",""DGRSTBAD"",52,0)"
^XMB(3.9,11,2,328,0)=" . I $$ISACT(DFN)'=""Y"" Q"
^XMB(3.9,11,2,329,0)="""RTN"",""DGRSTBAD"",53,0)"
^XMB(3.9,11,2,330,0)=" . D FLDL"
^XMB(3.9,11,2,331,0)="""RTN"",""DGRSTBAD"",54,0)"
^XMB(3.9,11,2,332,0)=" . Q"
^XMB(3.9,11,2,333,0)="""RTN"",""DGRSTBAD"",55,0)"
^XMB(3.9,11,2,334,0)=" D RPT(DGNS,.DGRPTYP,DGSTRT,DGEND)"
^XMB(3.9,11,2,335,0)="""RTN"",""DGRSTBAD"",56,0)"
^XMB(3.9,11,2,336,0)=" D XMY(.DGSARR,.DGRPTYP)"
^XMB(3.9,11,2,337,0)="""RTN"",""DGRSTBAD"",57,0)"
^XMB(3.9,11,2,338,0)=" K ^TMP($J,DGNS)"
^XMB(3.9,11,2,339,0)="""RTN"",""DGRSTBAD"",58,0)"
^XMB(3.9,11,2,340,0)=" Q"
^XMB(3.9,11,2,341,0)="""RTN"",""DGRSTBAD"",59,0)"
^XMB(3.9,11,2,342,0)=" ;"
^XMB(3.9,11,2,343,0)="""RTN"",""DGRSTBAD"",60,0)"
^XMB(3.9,11,2,344,0)="FLDL ;"
^XMB(3.9,11,2,345,0)="""RTN"",""DGRSTBAD"",61,0)"
^XMB(3.9,11,2,346,0)=" I DGRPTYP'=2 D"
^XMB(3.9,11,2,347,0)="""RTN"",""DGRSTBAD"",62,0)"
^XMB(3.9,11,2,348,0)=" . S DGFILEP=0"
^XMB(3.9,11,2,349,0)="""RTN"",""DGRSTBAD"",63,0)"
^XMB(3.9,11,2,350,0)=" . F  S DGFILEP=$O(DGFARR(1,DGFILEP)) Q:'DGFILEP  D FLDLG"
^XMB(3.9,11,2,351,0)="""RTN"",""DGRSTBAD"",64,0)"
^XMB(3.9,11,2,352,0)=" . Q"
^XMB(3.9,11,2,353,0)="""RTN"",""DGRSTBAD"",65,0)"
^XMB(3.9,11,2,354,0)=" I DGRPTYP'=1 D"
^XMB(3.9,11,2,355,0)="""RTN"",""DGRSTBAD"",66,0)"
^XMB(3.9,11,2,356,0)=" . S DGFILEP=0"
^XMB(3.9,11,2,357,0)="""RTN"",""DGRSTBAD"",67,0)"
^XMB(3.9,11,2,358,0)=" . F  S DGFILEP=$O(DGFORR(1,DGFILEP)) Q:'DGFILEP  D FLDLG"
^XMB(3.9,11,2,359,0)="""RTN"",""DGRSTBAD"",68,0)"
^XMB(3.9,11,2,360,0)=" . Q"
^XMB(3.9,11,2,361,0)="""RTN"",""DGRSTBAD"",69,0)"
^XMB(3.9,11,2,362,0)=" D:$D(DGPARR) BUILD(DGNS,DFN,.DGPARR,.DGFARR,.DGSARR)"
^XMB(3.9,11,2,363,0)="""RTN"",""DGRSTBAD"",70,0)"
^XMB(3.9,11,2,364,0)=" Q"
^XMB(3.9,11,2,365,0)="""RTN"",""DGRSTBAD"",71,0)"
^XMB(3.9,11,2,366,0)="FLDLG ;  "
^XMB(3.9,11,2,367,0)="""RTN"",""DGRSTBAD"",72,0)"
^XMB(3.9,11,2,368,0)=" I DGFILEP=DGFILE D"
^XMB(3.9,11,2,369,0)="""RTN"",""DGRSTBAD"",73,0)"
^XMB(3.9,11,2,370,0)=" . S DGIENS=DFN_"","""
^XMB(3.9,11,2,371,0)="""RTN"",""DGRSTBAD"",74,0)"
^XMB(3.9,11,2,372,0)=" . D CHECK1(DGRPTYP,.DGFARR,.DGFORR,DGFILEP,DGIENS,.DGPARR,DGSTRT,DGEND)"
^XMB(3.9,11,2,373,0)="""RTN"",""DGRSTBAD"",75,0)"
^XMB(3.9,11,2,374,0)=" . Q"
^XMB(3.9,11,2,375,0)="""RTN"",""DGRSTBAD"",76,0)"
^XMB(3.9,11,2,376,0)=" E  D"
^XMB(3.9,11,2,377,0)="""RTN"",""DGRSTBAD"",77,0)"
^XMB(3.9,11,2,378,0)=" . S X=+$O(^DD(DGFILE,""SB"",DGFILEP,0))"
^XMB(3.9,11,2,379,0)="""RTN"",""DGRSTBAD"",78,0)"
^XMB(3.9,11,2,380,0)=" . S DGNODE=$P($P($G(^DD(DGFILE,X,0)),U,4),"";"") Q:'$L(DGNODE)"
^XMB(3.9,11,2,381,0)="""RTN"",""DGRSTBAD"",79,0)"
^XMB(3.9,11,2,382,0)=" . S DGD1=0"
^XMB(3.9,11,2,383,0)="""RTN"",""DGRSTBAD"",80,0)"
^XMB(3.9,11,2,384,0)=" . F  S DGD1=$O(@DGGLB@(DFN,DGNODE,DGD1)) Q:'DGD1  D"
^XMB(3.9,11,2,385,0)="""RTN"",""DGRSTBAD"",81,0)"
^XMB(3.9,11,2,386,0)=" .. S DGIENS=DGD1_"",""_DFN_"","""
^XMB(3.9,11,2,387,0)="""RTN"",""DGRSTBAD"",82,0)"
^XMB(3.9,11,2,388,0)=" .. D CHECK1(DGRPTYP,.DGFARR,.DGFORR,DGFILEP,DGIENS,.DGPARR,DGSTRT,DGEND)"
^XMB(3.9,11,2,389,0)="""RTN"",""DGRSTBAD"",83,0)"
^XMB(3.9,11,2,390,0)=" .. Q"
^XMB(3.9,11,2,391,0)="""RTN"",""DGRSTBAD"",84,0)"
^XMB(3.9,11,2,392,0)=" . Q"
^XMB(3.9,11,2,393,0)="""RTN"",""DGRSTBAD"",85,0)"
^XMB(3.9,11,2,394,0)=" Q"
^XMB(3.9,11,2,395,0)="""RTN"",""DGRSTBAD"",86,0)"
^XMB(3.9,11,2,396,0)="CHECK1(DGRPTYP,DGFARR,DGFORR,DGFILEP,DGIENS,DGPARR,DGSTRT,DGEND) ;"
^XMB(3.9,11,2,397,0)="""RTN"",""DGRSTBAD"",87,0)"
^XMB(3.9,11,2,398,0)=" ;"
^XMB(3.9,11,2,399,0)="""RTN"",""DGRSTBAD"",88,0)"
^XMB(3.9,11,2,400,0)=" ;For each report type"
^XMB(3.9,11,2,401,0)="""RTN"",""DGRSTBAD"",89,0)"
^XMB(3.9,11,2,402,0)=" F DGPTYP=DGSTRT:1:DGEND D CHG"
^XMB(3.9,11,2,403,0)="""RTN"",""DGRSTBAD"",90,0)"
^XMB(3.9,11,2,404,0)=" Q"
^XMB(3.9,11,2,405,0)="""RTN"",""DGRSTBAD"",91,0)"
^XMB(3.9,11,2,406,0)="CHG ;"
^XMB(3.9,11,2,407,0)="""RTN"",""DGRSTBAD"",92,0)"
^XMB(3.9,11,2,408,0)=" N FOREIGN"
^XMB(3.9,11,2,409,0)="""RTN"",""DGRSTBAD"",93,0)"
^XMB(3.9,11,2,410,0)=" ;Extract appropriate fields for report type"
^XMB(3.9,11,2,411,0)="""RTN"",""DGRSTBAD"",94,0)"
^XMB(3.9,11,2,412,0)=" I DGPTYP=1 S DGFLDS=DGFARR(1,DGFILEP)"
^XMB(3.9,11,2,413,0)="""RTN"",""DGRSTBAD"",95,0)"
^XMB(3.9,11,2,414,0)=" E  S DGFLDS=DGFORR(1,DGFILEP)"
^XMB(3.9,11,2,415,0)="""RTN"",""DGRSTBAD"",96,0)"
^XMB(3.9,11,2,416,0)=" K DGTARR,DGERR,SDQUERY,SDQDATA"
^XMB(3.9,11,2,417,0)="""RTN"",""DGRSTBAD"",97,0)"
^XMB(3.9,11,2,418,0)=" N I D GETS^DIQ(DGFILEP,DGIENS,DGFLDS,""I"",""DGTARR"",""DGERR"")"
^XMB(3.9,11,2,419,0)="""RTN"",""DGRSTBAD"",98,0)"
^XMB(3.9,11,2,420,0)=" S DGFLD=0"
^XMB(3.9,11,2,421,0)="""RTN"",""DGRSTBAD"",99,0)"
^XMB(3.9,11,2,422,0)=" F  S DGFLD=$O(DGTARR(DGFILEP,DGIENS,DGFLD)) Q:'DGFLD  D"
^XMB(3.9,11,2,423,0)="""RTN"",""DGRSTBAD"",100,0)"
^XMB(3.9,11,2,424,0)=" . S DGPTR=DGTARR(DGFILEP,DGIENS,DGFLD,""I"") Q:'DGPTR"
^XMB(3.9,11,2,425,0)="""RTN"",""DGRSTBAD"",101,0)"
^XMB(3.9,11,2,426,0)=" . S FOREIGN=$$FOREIGN(DGPTR)"
^XMB(3.9,11,2,427,0)="""RTN"",""DGRSTBAD"",102,0)"
^XMB(3.9,11,2,428,0)=" . I FOREIGN=""Y"",DGPTYP=1 Q"
^XMB(3.9,11,2,429,0)="""RTN"",""DGRSTBAD"",103,0)"
^XMB(3.9,11,2,430,0)=" . I FOREIGN=""N"",DGPTYP=2 Q"
^XMB(3.9,11,2,431,0)="""RTN"",""DGRSTBAD"",104,0)"
^XMB(3.9,11,2,432,0)=" . ;Check county inactive date for both foreign and US"
^XMB(3.9,11,2,433,0)="""RTN"",""DGRSTBAD"",105,0)"
^XMB(3.9,11,2,434,0)=" . I DGFLD=.117 D"
^XMB(3.9,11,2,435,0)="""RTN"",""DGRSTBAD"",106,0)"
^XMB(3.9,11,2,436,0)=" .. S X1=DGTARR(DGFILEP,DGIENS,.115,""I"")"
^XMB(3.9,11,2,437,0)="""RTN"",""DGRSTBAD"",107,0)"
^XMB(3.9,11,2,438,0)=" .. S X=$G(^DIC(5,X1,1,DGPTR,0))"
^XMB(3.9,11,2,439,0)="""RTN"",""DGRSTBAD"",108,0)"
^XMB(3.9,11,2,440,0)=" .. S:$P(X,U,5)!$D(DGPARR(DGPTYP,DGFILEP,DGIENS,.115)) DGPARR(DGPTYP,DGFILEP,DGIENS,DGFLD)=$P(X,U)"
^XMB(3.9,11,2,441,0)="""RTN"",""DGRSTBAD"",109,0)"
^XMB(3.9,11,2,442,0)=" .. Q"
^XMB(3.9,11,2,443,0)="""RTN"",""DGRSTBAD"",110,0)"
^XMB(3.9,11,2,444,0)=" . S X=$G(^DIC(5,DGPTR,0))"
^XMB(3.9,11,2,445,0)="""RTN"",""DGRSTBAD"",111,0)"
^XMB(3.9,11,2,446,0)=" . I '$P(X,U,5)!($E($P(X,U,1),1)=""Z"") S DGPARR(DGPTYP,DGFILEP,DGIENS,DGFLD)=$P(X,U)"
^XMB(3.9,11,2,447,0)="""RTN"",""DGRSTBAD"",112,0)"
^XMB(3.9,11,2,448,0)=" . Q"
^XMB(3.9,11,2,449,0)="""RTN"",""DGRSTBAD"",113,0)"
^XMB(3.9,11,2,450,0)=" Q"
^XMB(3.9,11,2,451,0)="""RTN"",""DGRSTBAD"",114,0)"
^XMB(3.9,11,2,452,0)=" ;"
^XMB(3.9,11,2,453,0)="""RTN"",""DGRSTBAD"",115,0)"
^XMB(3.9,11,2,454,0)="BUILD(DGNS,DGDO,DGPARR,DGFARR,DGSARR) ;"
^XMB(3.9,11,2,455,0)="""RTN"",""DGRSTBAD"",116,0)"
^XMB(3.9,11,2,456,0)=" ;"
^XMB(3.9,11,2,457,0)="""RTN"",""DGRSTBAD"",117,0)"
^XMB(3.9,11,2,458,0)=" N X,DGNAME,DGSSN,DGPTYP"
^XMB(3.9,11,2,459,0)="""RTN"",""DGRSTBAD"",118,0)"
^XMB(3.9,11,2,460,0)=" S X=$G(^DPT(DFN,0))"
^XMB(3.9,11,2,461,0)="""RTN"",""DGRSTBAD"",119,0)"
^XMB(3.9,11,2,462,0)=" S DGNAME=$P(X,U) Q:'$L(DGNAME)"
^XMB(3.9,11,2,463,0)="""RTN"",""DGRSTBAD"",120,0)"
^XMB(3.9,11,2,464,0)=" S DGSSN=$P(X,U,9)"
^XMB(3.9,11,2,465,0)="""RTN"",""DGRSTBAD"",121,0)"
^XMB(3.9,11,2,466,0)=" S:'$L(DGSSN) DGSSN=""NONE"""
^XMB(3.9,11,2,467,0)="""RTN"",""DGRSTBAD"",122,0)"
^XMB(3.9,11,2,468,0)=" S DGPTYP=0"
^XMB(3.9,11,2,469,0)="""RTN"",""DGRSTBAD"",123,0)"
^XMB(3.9,11,2,470,0)=" F  S DGPTYP=$O(DGPARR(DGPTYP)) Q:'DGPTYP  D DGFILEP"
^XMB(3.9,11,2,471,0)="""RTN"",""DGRSTBAD"",124,0)"
^XMB(3.9,11,2,472,0)=" Q"
^XMB(3.9,11,2,473,0)="""RTN"",""DGRSTBAD"",125,0)"
^XMB(3.9,11,2,474,0)="DGFILEP ;"
^XMB(3.9,11,2,475,0)="""RTN"",""DGRSTBAD"",126,0)"
^XMB(3.9,11,2,476,0)=" N DGFILEP"
^XMB(3.9,11,2,477,0)="""RTN"",""DGRSTBAD"",127,0)"
^XMB(3.9,11,2,478,0)=" S DGFILEP=0"
^XMB(3.9,11,2,479,0)="""RTN"",""DGRSTBAD"",128,0)"
^XMB(3.9,11,2,480,0)=" F  S DGFILEP=$O(DGPARR(DGPTYP,DGFILEP)) Q:'DGFILEP  D DGIENS"
^XMB(3.9,11,2,481,0)="""RTN"",""DGRSTBAD"",129,0)"
^XMB(3.9,11,2,482,0)=" Q"
^XMB(3.9,11,2,483,0)="""RTN"",""DGRSTBAD"",130,0)"
^XMB(3.9,11,2,484,0)="DGIENS ;"
^XMB(3.9,11,2,485,0)="""RTN"",""DGRSTBAD"",131,0)"
^XMB(3.9,11,2,486,0)=" N DGIENS"
^XMB(3.9,11,2,487,0)="""RTN"",""DGRSTBAD"",132,0)"
^XMB(3.9,11,2,488,0)=" S DGIENS="""""
^XMB(3.9,11,2,489,0)="""RTN"",""DGRSTBAD"",133,0)"
^XMB(3.9,11,2,490,0)=" F  S DGIENS=$O(DGPARR(DGPTYP,DGFILEP,DGIENS)) Q:DGIENS=""""  D DGFLD"
^XMB(3.9,11,2,491,0)="""RTN"",""DGRSTBAD"",134,0)"
^XMB(3.9,11,2,492,0)=" Q"
^XMB(3.9,11,2,493,0)="""RTN"",""DGRSTBAD"",135,0)"
^XMB(3.9,11,2,494,0)="DGFLD ;"
^XMB(3.9,11,2,495,0)="""RTN"",""DGRSTBAD"",136,0)"
^XMB(3.9,11,2,496,0)=" N DGFLD"
^XMB(3.9,11,2,497,0)="""RTN"",""DGRSTBAD"",137,0)"
^XMB(3.9,11,2,498,0)=" S DGFLD=0"
^XMB(3.9,11,2,499,0)="""RTN"",""DGRSTBAD"",138,0)"
^XMB(3.9,11,2,500,0)=" F  S DGFLD=$O(DGPARR(DGPTYP,DGFILEP,DGIENS,DGFLD)) Q:'DGFLD  D"
^XMB(3.9,11,2,501,0)="""RTN"",""DGRSTBAD"",139,0)"
^XMB(3.9,11,2,502,0)=" . I DGPTYP=1 D"
^XMB(3.9,11,2,503,0)="""RTN"",""DGRSTBAD"",140,0)"
^XMB(3.9,11,2,504,0)=" .. S ^TMP($J,DGNS,DGPTYP,DGNAME,DGSSN,DGIENS,DGFARR(0,DGFILEP,DGFLD))=DGPARR(DGPTYP,DGFILEP,DGIENS,DGFLD)"
^XMB(3.9,11,2,505,0)="""RTN"",""DGRSTBAD"",141,0)"
^XMB(3.9,11,2,506,0)=" .. S DGSARR(DGPTYP,DGFARR(0,DGFILEP,DGFLD))=$G(DGSARR(DGPTYP,DGFARR(0,DGFILEP,DGFLD)))+1"
^XMB(3.9,11,2,507,0)="""RTN"",""DGRSTBAD"",142,0)"
^XMB(3.9,11,2,508,0)=" .. Q"
^XMB(3.9,11,2,509,0)="""RTN"",""DGRSTBAD"",143,0)"
^XMB(3.9,11,2,510,0)=" . I DGPTYP=2 D"
^XMB(3.9,11,2,511,0)="""RTN"",""DGRSTBAD"",144,0)"
^XMB(3.9,11,2,512,0)=" .. S ^TMP($J,DGNS,DGPTYP,DGNAME,DGSSN,DGIENS,DGFORR(0,DGFILEP,DGFLD))=DGPARR(DGPTYP,DGFILEP,DGIENS,DGFLD)"
^XMB(3.9,11,2,513,0)="""RTN"",""DGRSTBAD"",145,0)"
^XMB(3.9,11,2,514,0)=" .. S DGSARR(DGPTYP,DGFORR(0,DGFILEP,DGFLD))=$G(DGSARR(DGPTYP,DGFORR(0,DGFILEP,DGFLD)))+1"
^XMB(3.9,11,2,515,0)="""RTN"",""DGRSTBAD"",146,0)"
^XMB(3.9,11,2,516,0)=" .. Q"
^XMB(3.9,11,2,517,0)="""RTN"",""DGRSTBAD"",147,0)"
^XMB(3.9,11,2,518,0)=" . Q"
^XMB(3.9,11,2,519,0)="""RTN"",""DGRSTBAD"",148,0)"
^XMB(3.9,11,2,520,0)=" Q"
^XMB(3.9,11,2,521,0)="""RTN"",""DGRSTBAD"",149,0)"
^XMB(3.9,11,2,522,0)=" ;"
^XMB(3.9,11,2,523,0)="""RTN"",""DGRSTBAD"",150,0)"
^XMB(3.9,11,2,524,0)="HDR(DGRPTYP,DGPTYP,DGPAGE) ;"
^XMB(3.9,11,2,525,0)="""RTN"",""DGRSTBAD"",151,0)"
^XMB(3.9,11,2,526,0)=" N DGQUIT"
^XMB(3.9,11,2,527,0)="""RTN"",""DGRSTBAD"",152,0)"
^XMB(3.9,11,2,528,0)=" S DGQUIT=0"
^XMB(3.9,11,2,529,0)="""RTN"",""DGRSTBAD"",153,0)"
^XMB(3.9,11,2,530,0)=" I DGPAGE,$E(IOST,1,2)=""C-"" K X,Y,DIR S DIR(0)=""E"" D ^DIR S DGQUIT=$D(DIRUT)"
^XMB(3.9,11,2,531,0)="""RTN"",""DGRSTBAD"",154,0)"
^XMB(3.9,11,2,532,0)=" D:'DGQUIT"
^XMB(3.9,11,2,533,0)="""RTN"",""DGRSTBAD"",155,0)"
^XMB(3.9,11,2,534,0)=" .W @IOF"
^XMB(3.9,11,2,535,0)="""RTN"",""DGRSTBAD"",156,0)"
^XMB(3.9,11,2,536,0)=" .S X=""Report of States Not Recognized by AAC and Inactive Counties"""
^XMB(3.9,11,2,537,0)="""RTN"",""DGRSTBAD"",157,0)"
^XMB(3.9,11,2,538,0)=" .W ?(IOM\2-($L(X)\2)),X"
^XMB(3.9,11,2,539,0)="""RTN"",""DGRSTBAD"",158,0)"
^XMB(3.9,11,2,540,0)=" .S X=DGRPTYP(DGPTYP)"
^XMB(3.9,11,2,541,0)="""RTN"",""DGRSTBAD"",159,0)"
^XMB(3.9,11,2,542,0)=" .W !,?(IOM\2-($L(X)\2)),X"
^XMB(3.9,11,2,543,0)="""RTN"",""DGRSTBAD"",160,0)"
^XMB(3.9,11,2,544,0)=" .S DGPAGE=DGPAGE+1"
^XMB(3.9,11,2,545,0)="""RTN"",""DGRSTBAD"",161,0)"
^XMB(3.9,11,2,546,0)=" .W ?(IOM-10),""PAGE: ""_DGPAGE"
^XMB(3.9,11,2,547,0)="""RTN"",""DGRSTBAD"",162,0)"
^XMB(3.9,11,2,548,0)=" .W !!,""NAME"",?26,""SSN"",?38,""FIELD"",?68,""STATE/COUNTY"""
^XMB(3.9,11,2,549,0)="""RTN"",""DGRSTBAD"",163,0)"
^XMB(3.9,11,2,550,0)=" .W !"
^XMB(3.9,11,2,551,0)="""RTN"",""DGRSTBAD"",164,0)"
^XMB(3.9,11,2,552,0)=" Q DGQUIT"
^XMB(3.9,11,2,553,0)="""RTN"",""DGRSTBAD"",165,0)"
^XMB(3.9,11,2,554,0)=" ;"
^XMB(3.9,11,2,555,0)="""RTN"",""DGRSTBAD"",166,0)"
^XMB(3.9,11,2,556,0)="RPT(DGNS,DGRPTYP,DGSTRT,DGEND) ;"
^XMB(3.9,11,2,557,0)="""RTN"",""DGRSTBAD"",167,0)"
^XMB(3.9,11,2,558,0)=" N DGPAGE,DGQUIT,DGPTYP"
^XMB(3.9,11,2,559,0)="""RTN"",""DGRSTBAD"",168,0)"
^XMB(3.9,11,2,560,0)=" S DGPAGE=0"
^XMB(3.9,11,2,561,0)="""RTN"",""DGRSTBAD"",169,0)"
^XMB(3.9,11,2,562,0)=" S DGQUIT=0"
^XMB(3.9,11,2,563,0)="""RTN"",""DGRSTBAD"",170,0)"
^XMB(3.9,11,2,564,0)=" S DGPTYP=0"
^XMB(3.9,11,2,565,0)="""RTN"",""DGRSTBAD"",171,0)"
^XMB(3.9,11,2,566,0)=" F DGPTYP=DGSTRT:1:DGEND Q:DGQUIT  D RPTG"
^XMB(3.9,11,2,567,0)="""RTN"",""DGRSTBAD"",172,0)"
^XMB(3.9,11,2,568,0)=" Q"
^XMB(3.9,11,2,569,0)="""RTN"",""DGRSTBAD"",173,0)"
^XMB(3.9,11,2,570,0)="RPTG ;"
^XMB(3.9,11,2,571,0)="""RTN"",""DGRSTBAD"",174,0)"
^XMB(3.9,11,2,572,0)=" N DGNAME,CNT"
^XMB(3.9,11,2,573,0)="""RTN"",""DGRSTBAD"",175,0)"
^XMB(3.9,11,2,574,0)=" S CNT=0"
^XMB(3.9,11,2,575,0)="""RTN"",""DGRSTBAD"",176,0)"
^XMB(3.9,11,2,576,0)=" S DGQUIT=$$HDR(.DGRPTYP,DGPTYP,.DGPAGE)"
^XMB(3.9,11,2,577,0)="""RTN"",""DGRSTBAD"",177,0)"
^XMB(3.9,11,2,578,0)=" Q:DGQUIT"
^XMB(3.9,11,2,579,0)="""RTN"",""DGRSTBAD"",178,0)"
^XMB(3.9,11,2,580,0)=" S DGNAME="""""
^XMB(3.9,11,2,581,0)="""RTN"",""DGRSTBAD"",179,0)"
^XMB(3.9,11,2,582,0)=" F  S DGNAME=$O(^TMP($J,DGNS,DGPTYP,DGNAME)) Q:'$L(DGNAME)  Q:DGQUIT  D RDGSSN"
^XMB(3.9,11,2,583,0)="""RTN"",""DGRSTBAD"",180,0)"
^XMB(3.9,11,2,584,0)=" W !!,""Total records reported: "",CNT"
^XMB(3.9,11,2,585,0)="""RTN"",""DGRSTBAD"",181,0)"
^XMB(3.9,11,2,586,0)=" Q"
^XMB(3.9,11,2,587,0)="""RTN"",""DGRSTBAD"",182,0)"
^XMB(3.9,11,2,588,0)="RDGSSN ;"
^XMB(3.9,11,2,589,0)="""RTN"",""DGRSTBAD"",183,0)"
^XMB(3.9,11,2,590,0)=" N DGSSN"
^XMB(3.9,11,2,591,0)="""RTN"",""DGRSTBAD"",184,0)"
^XMB(3.9,11,2,592,0)=" S DGSSN="""""
^XMB(3.9,11,2,593,0)="""RTN"",""DGRSTBAD"",185,0)"
^XMB(3.9,11,2,594,0)=" F  S DGSSN=$O(^TMP($J,DGNS,DGPTYP,DGNAME,DGSSN)) Q:'$L(DGSSN)  Q:DGQUIT  D RDGIENS"
^XMB(3.9,11,2,595,0)="""RTN"",""DGRSTBAD"",186,0)"
^XMB(3.9,11,2,596,0)=" Q"
^XMB(3.9,11,2,597,0)="""RTN"",""DGRSTBAD"",187,0)"
^XMB(3.9,11,2,598,0)="RDGIENS ;"
^XMB(3.9,11,2,599,0)="""RTN"",""DGRSTBAD"",188,0)"
^XMB(3.9,11,2,600,0)=" N DGIENS"
^XMB(3.9,11,2,601,0)="""RTN"",""DGRSTBAD"",189,0)"
^XMB(3.9,11,2,602,0)=" S DGIENS="""""
^XMB(3.9,11,2,603,0)="""RTN"",""DGRSTBAD"",190,0)"
^XMB(3.9,11,2,604,0)=" F  S DGIENS=$O(^TMP($J,DGNS,DGPTYP,DGNAME,DGSSN,DGIENS)) Q:DGIENS=""""  Q:DGQUIT  D RDGTXT"
^XMB(3.9,11,2,605,0)="""RTN"",""DGRSTBAD"",191,0)"
^XMB(3.9,11,2,606,0)=" Q"
^XMB(3.9,11,2,607,0)="""RTN"",""DGRSTBAD"",192,0)"
^XMB(3.9,11,2,608,0)="RDGTXT ;"
^XMB(3.9,11,2,609,0)="""RTN"",""DGRSTBAD"",193,0)"
^XMB(3.9,11,2,610,0)=" N DGTEXT"
^XMB(3.9,11,2,611,0)="""RTN"",""DGRSTBAD"",194,0)"
^XMB(3.9,11,2,612,0)=" S DGTXT="""""
^XMB(3.9,11,2,613,0)="""RTN"",""DGRSTBAD"",195,0)"
^XMB(3.9,11,2,614,0)=" F  S DGTXT=$O(^TMP($J,DGNS,DGPTYP,DGNAME,DGSSN,DGIENS,DGTXT)) Q:'$L(DGTXT)  D  Q:DGQUIT"
^XMB(3.9,11,2,615,0)="""RTN"",""DGRSTBAD"",196,0)"
^XMB(3.9,11,2,616,0)=" . I $Y>(IOSL-4) S DGQUIT=$$HDR(.DGRPTYP,DGPTYP,.DGPAGE) Q:DGQUIT"
^XMB(3.9,11,2,617,0)="""RTN"",""DGRSTBAD"",197,0)"
^XMB(3.9,11,2,618,0)=" . S DGTEXT=$G(^TMP($J,DGNS,DGPTYP,DGNAME,DGSSN,DGIENS,DGTXT))"
^XMB(3.9,11,2,619,0)="""RTN"",""DGRSTBAD"",198,0)"
^XMB(3.9,11,2,620,0)=" . W !,$E(DGNAME,1,25),?26,DGSSN,?38,DGTXT,?68,$E($P(DGTEXT,U,1),1,12)"
^XMB(3.9,11,2,621,0)="""RTN"",""DGRSTBAD"",199,0)"
^XMB(3.9,11,2,622,0)=" . S CNT=CNT+1"
^XMB(3.9,11,2,623,0)="""RTN"",""DGRSTBAD"",200,0)"
^XMB(3.9,11,2,624,0)=" . Q"
^XMB(3.9,11,2,625,0)="""RTN"",""DGRSTBAD"",201,0)"
^XMB(3.9,11,2,626,0)=" Q"
^XMB(3.9,11,2,627,0)="""RTN"",""DGRSTBAD"",202,0)"
^XMB(3.9,11,2,628,0)=" ;"
^XMB(3.9,11,2,629,0)="""RTN"",""DGRSTBAD"",203,0)"
^XMB(3.9,11,2,630,0)="XMY(DGSARR,DGRPTYP) ;"
^XMB(3.9,11,2,631,0)="""RTN"",""DGRSTBAD"",204,0)"
^XMB(3.9,11,2,632,0)=" N DGTXT,XMDUZ,XMSUB,XMY,XMTEXT,MSG,DGLINE,X"
^XMB(3.9,11,2,633,0)="""RTN"",""DGRSTBAD"",205,0)"
^XMB(3.9,11,2,634,0)=" S XMY(DUZ)="""",XMTEXT=""MSG("",XMDUZ=.5"
^XMB(3.9,11,2,635,0)="""RTN"",""DGRSTBAD"",206,0)"
^XMB(3.9,11,2,636,0)=" S XMSUB=""Invalid State/Inactive County Report Summary"""
^XMB(3.9,11,2,637,0)="""RTN"",""DGRSTBAD"",207,0)"
^XMB(3.9,11,2,638,0)=" S MSG(1)=""The following counts have been found in the PATIENT file:"""
^XMB(3.9,11,2,639,0)="""RTN"",""DGRSTBAD"",208,0)"
^XMB(3.9,11,2,640,0)=" S MSG(5)="""""
^XMB(3.9,11,2,641,0)="""RTN"",""DGRSTBAD"",209,0)"
^XMB(3.9,11,2,642,0)=" S DGPTYP=0"
^XMB(3.9,11,2,643,0)="""RTN"",""DGRSTBAD"",210,0)"
^XMB(3.9,11,2,644,0)=" S DGLINE=10"
^XMB(3.9,11,2,645,0)="""RTN"",""DGRSTBAD"",211,0)"
^XMB(3.9,11,2,646,0)=" I DGRPTYP'=2,'$D(DGSARR(1)) D"
^XMB(3.9,11,2,647,0)="""RTN"",""DGRSTBAD"",212,0)"
^XMB(3.9,11,2,648,0)=" . S DGLINE=DGLINE+1"
^XMB(3.9,11,2,649,0)="""RTN"",""DGRSTBAD"",213,0)"
^XMB(3.9,11,2,650,0)=" . S MSG(DGLINE)=DGRPTYP(1)"
^XMB(3.9,11,2,651,0)="""RTN"",""DGRSTBAD"",214,0)"
^XMB(3.9,11,2,652,0)=" . S DGLINE=DGLINE+1"
^XMB(3.9,11,2,653,0)="""RTN"",""DGRSTBAD"",215,0)"
^XMB(3.9,11,2,654,0)=" . S MSG(DGLINE)=""   No Invalid States or Inactive Counties Found"""
^XMB(3.9,11,2,655,0)="""RTN"",""DGRSTBAD"",216,0)"
^XMB(3.9,11,2,656,0)=" . Q"
^XMB(3.9,11,2,657,0)="""RTN"",""DGRSTBAD"",217,0)"
^XMB(3.9,11,2,658,0)=" I DGRPTYP'=1,'$D(DGSARR(2)) D"
^XMB(3.9,11,2,659,0)="""RTN"",""DGRSTBAD"",218,0)"
^XMB(3.9,11,2,660,0)=" . S DGLINE=DGLINE+1"
^XMB(3.9,11,2,661,0)="""RTN"",""DGRSTBAD"",219,0)"
^XMB(3.9,11,2,662,0)=" . S MSG(DGLINE)=DGRPTYP(2)"
^XMB(3.9,11,2,663,0)="""RTN"",""DGRSTBAD"",220,0)"
^XMB(3.9,11,2,664,0)=" . S DGLINE=DGLINE+1"
^XMB(3.9,11,2,665,0)="""RTN"",""DGRSTBAD"",221,0)"
^XMB(3.9,11,2,666,0)=" . S MSG(DGLINE)=""   No Invalid States or Inactive Counties Found"""
^XMB(3.9,11,2,667,0)="""RTN"",""DGRSTBAD"",222,0)"
^XMB(3.9,11,2,668,0)=" . Q"
^XMB(3.9,11,2,669,0)="""RTN"",""DGRSTBAD"",223,0)"
^XMB(3.9,11,2,670,0)=" F  S DGPTYP=$O(DGSARR(DGPTYP)) Q:'DGPTYP  D"
^XMB(3.9,11,2,671,0)="""RTN"",""DGRSTBAD"",224,0)"
^XMB(3.9,11,2,672,0)=" . S DGLINE=DGLINE+1"
^XMB(3.9,11,2,673,0)="""RTN"",""DGRSTBAD"",225,0)"
^XMB(3.9,11,2,674,0)=" . S MSG(DGLINE)="""""
^XMB(3.9,11,2,675,0)="""RTN"",""DGRSTBAD"",226,0)"
^XMB(3.9,11,2,676,0)=" . S DGLINE=DGLINE+1"
^XMB(3.9,11,2,677,0)="""RTN"",""DGRSTBAD"",227,0)"
^XMB(3.9,11,2,678,0)=" . S MSG(DGLINE)=DGRPTYP(DGPTYP)"
^XMB(3.9,11,2,679,0)="""RTN"",""DGRSTBAD"",228,0)"
^XMB(3.9,11,2,680,0)=" . S DGLINE=DGLINE+1"
^XMB(3.9,11,2,681,0)="""RTN"",""DGRSTBAD"",229,0)"
^XMB(3.9,11,2,682,0)=" . S MSG(DGLINE)="""""
^XMB(3.9,11,2,683,0)="""RTN"",""DGRSTBAD"",230,0)"
^XMB(3.9,11,2,684,0)=" . S DGTXT="""""
^XMB(3.9,11,2,685,0)="""RTN"",""DGRSTBAD"",231,0)"
^XMB(3.9,11,2,686,0)=" . F  S DGTXT=$O(DGSARR(DGPTYP,DGTXT)) Q:'$L(DGTXT)  D"
^XMB(3.9,11,2,687,0)="""RTN"",""DGRSTBAD"",232,0)"
^XMB(3.9,11,2,688,0)=" .. S DGLINE=DGLINE+1"
^XMB(3.9,11,2,689,0)="""RTN"",""DGRSTBAD"",233,0)"
^XMB(3.9,11,2,690,0)=" .. S X="""",$P(X,"" "",32-$L(DGTXT))="""""
^XMB(3.9,11,2,691,0)="""RTN"",""DGRSTBAD"",234,0)"
^XMB(3.9,11,2,692,0)=" .. S MSG(DGLINE)=""   ""_DGTXT_X_DGSARR(DGPTYP,DGTXT)"
^XMB(3.9,11,2,693,0)="""RTN"",""DGRSTBAD"",235,0)"
^XMB(3.9,11,2,694,0)=" .. Q"
^XMB(3.9,11,2,695,0)="""RTN"",""DGRSTBAD"",236,0)"
^XMB(3.9,11,2,696,0)=" . Q"
^XMB(3.9,11,2,697,0)="""RTN"",""DGRSTBAD"",237,0)"
^XMB(3.9,11,2,698,0)=" D ^XMD"
^XMB(3.9,11,2,699,0)="""RTN"",""DGRSTBAD"",238,0)"
^XMB(3.9,11,2,700,0)=" Q"
^XMB(3.9,11,2,701,0)="""RTN"",""DGRSTBAD"",239,0)"
^XMB(3.9,11,2,702,0)=" ;"
^XMB(3.9,11,2,703,0)="""RTN"",""DGRSTBAD"",240,0)"
^XMB(3.9,11,2,704,0)="FILE2(DGFARR,TAG) ;"
^XMB(3.9,11,2,705,0)="""RTN"",""DGRSTBAD"",241,0)"
^XMB(3.9,11,2,706,0)=" N I,X,DGFILED,DGFLDNO"
^XMB(3.9,11,2,707,0)="""RTN"",""DGRSTBAD"",242,0)"
^XMB(3.9,11,2,708,0)=" F I=1:1 S X=$P($T(@TAG+I),"";;"",2) Q:X=""END""  D"
^XMB(3.9,11,2,709,0)="""RTN"",""DGRSTBAD"",243,0)"
^XMB(3.9,11,2,710,0)=" .S DGFILED=$P(X,"";""),DGFLDNO=$P(X,"";"",2),DGFARR(0,DGFILED,DGFLDNO)=$P(X,"";"",3) S:'$D(DGFARR(1,DGFILED)) DGFARR(1,DGFILED)="""""
^XMB(3.9,11,2,711,0)="""RTN"",""DGRSTBAD"",244,0)"
^XMB(3.9,11,2,712,0)=" .S DGFARR(1,DGFILED)=DGFARR(1,DGFILED)_$E("";"",$L(DGFARR(1,DGFILED))>0)_DGFLDNO"
^XMB(3.9,11,2,713,0)="""RTN"",""DGRSTBAD"",245,0)"
^XMB(3.9,11,2,714,0)=" Q"
^XMB(3.9,11,2,715,0)="""RTN"",""DGRSTBAD"",246,0)"
^XMB(3.9,11,2,716,0)=" ;"
^XMB(3.9,11,2,717,0)="""RTN"",""DGRSTBAD"",247,0)"
^XMB(3.9,11,2,718,0)="FOTXT ;"
^XMB(3.9,11,2,719,0)="""RTN"",""DGRSTBAD"",248,0)"
^XMB(3.9,11,2,720,0)=" ;;2;.115;Permanent Address - State"
^XMB(3.9,11,2,721,0)="""RTN"",""DGRSTBAD"",249,0)"
^XMB(3.9,11,2,722,0)=" ;;2;.1215;Temporary Address - State"
^XMB(3.9,11,2,723,0)="""RTN"",""DGRSTBAD"",250,0)"
^XMB(3.9,11,2,724,0)=" ;;2;.1415;Confidential Address - State"
^XMB(3.9,11,2,725,0)="""RTN"",""DGRSTBAD"",251,0)"
^XMB(3.9,11,2,726,0)=" ;;END"
^XMB(3.9,11,2,727,0)="""RTN"",""DGRSTBAD"",252,0)"
^XMB(3.9,11,2,728,0)=" ;"
^XMB(3.9,11,2,729,0)="""RTN"",""DGRSTBAD"",253,0)"
^XMB(3.9,11,2,730,0)="FATXT ;"
^XMB(3.9,11,2,731,0)="""RTN"",""DGRSTBAD"",254,0)"
^XMB(3.9,11,2,732,0)=" ;;2;.093;Place of Birth"
^XMB(3.9,11,2,733,0)="""RTN"",""DGRSTBAD"",255,0)"
^XMB(3.9,11,2,734,0)=" ;;2;.115;Permanent Address - State"
^XMB(3.9,11,2,735,0)="""RTN"",""DGRSTBAD"",256,0)"
^XMB(3.9,11,2,736,0)=" ;;2;.117;Permanent Address - County"
^XMB(3.9,11,2,737,0)="""RTN"",""DGRSTBAD"",257,0)"
^XMB(3.9,11,2,738,0)=" ;;2;.1215;Temporary Address - State"
^XMB(3.9,11,2,739,0)="""RTN"",""DGRSTBAD"",258,0)"
^XMB(3.9,11,2,740,0)=" ;;2;.12111;Temporary Address - County"
^XMB(3.9,11,2,741,0)="""RTN"",""DGRSTBAD"",259,0)"
^XMB(3.9,11,2,742,0)=" ;;2;.1415;Confidential Address - State"
^XMB(3.9,11,2,743,0)="""RTN"",""DGRSTBAD"",260,0)"
^XMB(3.9,11,2,744,0)=" ;;2;.14111;Confidential Address - County"
^XMB(3.9,11,2,745,0)="""RTN"",""DGRSTBAD"",261,0)"
^XMB(3.9,11,2,746,0)=" ;;2;.1654;Ineligible TWX"
^XMB(3.9,11,2,747,0)="""RTN"",""DGRSTBAD"",262,0)"
^XMB(3.9,11,2,748,0)=" ;;2;.1659;Missing   Person TWX"
^XMB(3.9,11,2,749,0)="""RTN"",""DGRSTBAD"",263,0)"
^XMB(3.9,11,2,750,0)=" ;;2;.217;Next of Kin"
^XMB(3.9,11,2,751,0)="""RTN"",""DGRSTBAD"",264,0)"
^XMB(3.9,11,2,752,0)=" ;;2;.2197;Next of Kin 2"
^XMB(3.9,11,2,753,0)="""RTN"",""DGRSTBAD"",265,0)"
^XMB(3.9,11,2,754,0)=" ;;2;.256;Spouse's Employer"
^XMB(3.9,11,2,755,0)="""RTN"",""DGRSTBAD"",266,0)"
^XMB(3.9,11,2,756,0)=" ;;2;.2917;VA Guardian"
^XMB(3.9,11,2,757,0)="""RTN"",""DGRSTBAD"",267,0)"
^XMB(3.9,11,2,758,0)=" ;;2;.2927;Civil Guardian"
^XMB(3.9,11,2,759,0)="""RTN"",""DGRSTBAD"",268,0)"
^XMB(3.9,11,2,760,0)=" ;;2;.3117;Employer"
^XMB(3.9,11,2,761,0)="""RTN"",""DGRSTBAD"",269,0)"
^XMB(3.9,11,2,762,0)=" ;;2;.3317;Emergency Contact 2"
^XMB(3.9,11,2,763,0)="""RTN"",""DGRSTBAD"",270,0)"
^XMB(3.9,11,2,764,0)=" ;;2;.337;Emergency Contact"
^XMB(3.9,11,2,765,0)="""RTN"",""DGRSTBAD"",271,0)"
^XMB(3.9,11,2,766,0)=" ;;2;.347;Designee"
^XMB(3.9,11,2,767,0)="""RTN"",""DGRSTBAD"",272,0)"
^XMB(3.9,11,2,768,0)=" ;;2;2.06;Insurance Type - Emp Claims"
^XMB(3.9,11,2,769,0)="""RTN"",""DGRSTBAD"",273,0)"
^XMB(3.9,11,2,770,0)=" ;;2;3.09;Insurance Type - Insured's"
^XMB(3.9,11,2,771,0)="""RTN"",""DGRSTBAD"",274,0)"
^XMB(3.9,11,2,772,0)=" ;;2;13;Insurance Type - Agent's"
^XMB(3.9,11,2,773,0)="""RTN"",""DGRSTBAD"",275,0)"
^XMB(3.9,11,2,774,0)=" ;;2;35;Attorney"
^XMB(3.9,11,2,775,0)="""RTN"",""DGRSTBAD"",276,0)"
^XMB(3.9,11,2,776,0)=" ;;END"
^XMB(3.9,11,2,777,0)="""RTN"",""DGRSTBAD"",277,0)"
^XMB(3.9,11,2,778,0)=" ;"
^XMB(3.9,11,2,779,0)="""RTN"",""DGRSTBAD"",278,0)"
^XMB(3.9,11,2,780,0)="ISACT(DFN) ;"
^XMB(3.9,11,2,781,0)="""RTN"",""DGRSTBAD"",279,0)"
^XMB(3.9,11,2,782,0)=" N X,DGACT,HLQ"
^XMB(3.9,11,2,783,0)="""RTN"",""DGRSTBAD"",280,0)"
^XMB(3.9,11,2,784,0)=" S HLQ="""""""""""""
^XMB(3.9,11,2,785,0)="""RTN"",""DGRSTBAD"",281,0)"
^XMB(3.9,11,2,786,0)=" S DGACT=$P($G(^DPT(DFN,.35)),U) ; date of death"
^XMB(3.9,11,2,787,0)="""RTN"",""DGRSTBAD"",282,0)"
^XMB(3.9,11,2,788,0)=" I DGACT Q ""N"""
^XMB(3.9,11,2,789,0)="""RTN"",""DGRSTBAD"",283,0)"
^XMB(3.9,11,2,790,0)=" S DGACT=$$LTD^IVMUFNC(DFN) ; active appointment"
^XMB(3.9,11,2,791,0)="""RTN"",""DGRSTBAD"",284,0)"
^XMB(3.9,11,2,792,0)=" S:'DGACT DGACT=$$PHARM^IVMLDEM6(DFN) ; active RX"
^XMB(3.9,11,2,793,0)="""RTN"",""DGRSTBAD"",285,0)"
^XMB(3.9,11,2,794,0)=" Q $S(DGACT:""Y"",1:""N"")"
^XMB(3.9,11,2,795,0)="""RTN"",""DGRSTBAD"",286,0)"
^XMB(3.9,11,2,796,0)=" ;"
^XMB(3.9,11,2,797,0)="""RTN"",""DGRSTBAD"",287,0)"
^XMB(3.9,11,2,798,0)="FOREIGN(STATE) ;uses state to determine foreign address"
^XMB(3.9,11,2,799,0)="""RTN"",""DGRSTBAD"",288,0)"
^XMB(3.9,11,2,800,0)=" ;someday should use country codes in the patient file"
^XMB(3.9,11,2,801,0)="""RTN"",""DGRSTBAD"",289,0)"
^XMB(3.9,11,2,802,0)=" N DESC,X"
^XMB(3.9,11,2,803,0)="""RTN"",""DGRSTBAD"",290,0)"
^XMB(3.9,11,2,804,0)=" I $G(STATE)="""" Q ""N"""
^XMB(3.9,11,2,805,0)="""RTN"",""DGRSTBAD"",291,0)"
^XMB(3.9,11,2,806,0)=" S X=$G(^DIC(5,STATE,0))"
^XMB(3.9,11,2,807,0)="""RTN"",""DGRSTBAD"",292,0)"
^XMB(3.9,11,2,808,0)=" I $P(X,""^"",6)=1 Q ""N"""
^XMB(3.9,11,2,809,0)="""RTN"",""DGRSTBAD"",293,0)"
^XMB(3.9,11,2,810,0)=" Q ""Y"""
^XMB(3.9,11,2,811,0)="""VER"")"
^XMB(3.9,11,2,812,0)="8.0^22.0"
^XMB(3.9,11,2,813,0)="""BLD"",6090,6)"
^XMB(3.9,11,2,814,0)="^626"
^XMB(3.9,11,2,815,0)="$END KID DG*5.3*694"
^XMB(3.9,11,6,0)="^3.911A^2^2"
^XMB(3.9,11,6,1,0)="POSTMASTER"
^XMB(3.9,11,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,11,6,"B","POSTMASTER",1)=""
^XMB(3.9,11,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,12,0)="DG-5P3_SEQ-627_PAT-701.KID^.5^3061008.01573^^^^K"
^XMB(3.9,12,.6)="3061008"
^XMB(3.9,12,1,0)="^3.91A^2^2"
^XMB(3.9,12,1,1,0)=".5^0^3061008.01573^^^^^^^3061008.01573"
^XMB(3.9,12,1,2,0)="1^0^3061008.022631^^^^^^^3061008.022631"
^XMB(3.9,12,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,12,1,"C",.5,1)=""
^XMB(3.9,12,1,"C",1,2)=""
^XMB(3.9,12,2,0)="^^743^743^3061008"
^XMB(3.9,12,2,1,0)="$TXT Released DG*5.3*701 SEQ #627"
^XMB(3.9,12,2,2,0)="Extracted from mail message"
^XMB(3.9,12,2,3,0)="$END TXT"
^XMB(3.9,12,2,4,0)="$KID DG*5.3*701"
^XMB(3.9,12,2,5,0)="**INSTALL NAME**"
^XMB(3.9,12,2,6,0)="DG*5.3*701"
^XMB(3.9,12,2,7,0)="""BLD"",6723,0)"
^XMB(3.9,12,2,8,0)="DG*5.3*701^REGISTRATION^0^3060505^y"
^XMB(3.9,12,2,9,0)="""BLD"",6723,1,0)"
^XMB(3.9,12,2,10,0)="^^3^3^3060505^"
^XMB(3.9,12,2,11,0)="""BLD"",6723,1,1,0)"
^XMB(3.9,12,2,12,0)="  This patch deals with non-VA PTF census problems, the inability to"
^XMB(3.9,12,2,13,0)="""BLD"",6723,1,2,0)"
^XMB(3.9,12,2,14,0)="select certain ICD9 codes on the 501 screen of PTF Load/Edit, and a "
^XMB(3.9,12,2,15,0)="""BLD"",6723,1,3,0)"
^XMB(3.9,12,2,16,0)="system error when transferring patients. "
^XMB(3.9,12,2,17,0)="""BLD"",6723,4,0)"
^XMB(3.9,12,2,18,0)="^9.64PA^^"
^XMB(3.9,12,2,19,0)="""BLD"",6723,""KRN"",0)"
^XMB(3.9,12,2,20,0)="^9.67PA^8989.52^19"
^XMB(3.9,12,2,21,0)="""BLD"",6723,""KRN"",.4,0)"
^XMB(3.9,12,2,22,0)=".4"
^XMB(3.9,12,2,23,0)="""BLD"",6723,""KRN"",.401,0)"
^XMB(3.9,12,2,24,0)=".401"
^XMB(3.9,12,2,25,0)="""BLD"",6723,""KRN"",.402,0)"
^XMB(3.9,12,2,26,0)=".402"
^XMB(3.9,12,2,27,0)="""BLD"",6723,""KRN"",.403,0)"
^XMB(3.9,12,2,28,0)=".403"
^XMB(3.9,12,2,29,0)="""BLD"",6723,""KRN"",.5,0)"
^XMB(3.9,12,2,30,0)=".5"
^XMB(3.9,12,2,31,0)="""BLD"",6723,""KRN"",.84,0)"
^XMB(3.9,12,2,32,0)=".84"
^XMB(3.9,12,2,33,0)="""BLD"",6723,""KRN"",3.6,0)"
^XMB(3.9,12,2,34,0)="3.6"
^XMB(3.9,12,2,35,0)="""BLD"",6723,""KRN"",3.8,0)"
^XMB(3.9,12,2,36,0)="3.8"
^XMB(3.9,12,2,37,0)="""BLD"",6723,""KRN"",9.2,0)"
^XMB(3.9,12,2,38,0)="9.2"
^XMB(3.9,12,2,39,0)="""BLD"",6723,""KRN"",9.8,0)"
^XMB(3.9,12,2,40,0)="9.8"
^XMB(3.9,12,2,41,0)="""BLD"",6723,""KRN"",9.8,""NM"",0)"
^XMB(3.9,12,2,42,0)="^9.68A^3^3"
^XMB(3.9,12,2,43,0)="""BLD"",6723,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,12,2,44,0)="DGPTC1^^0^B26128925"
^XMB(3.9,12,2,45,0)="""BLD"",6723,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,12,2,46,0)="DGPTF5^^0^B2939565"
^XMB(3.9,12,2,47,0)="""BLD"",6723,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,12,2,48,0)="DGPTFJC^^0^B47957071"
^XMB(3.9,12,2,49,0)="""BLD"",6723,""KRN"",9.8,""NM"",""B"",""DGPTC1"",1)"
^XMB(3.9,12,2,50,0)=""
^XMB(3.9,12,2,51,0)="""BLD"",6723,""KRN"",9.8,""NM"",""B"",""DGPTF5"",2)"
^XMB(3.9,12,2,52,0)=""
^XMB(3.9,12,2,53,0)="""BLD"",6723,""KRN"",9.8,""NM"",""B"",""DGPTFJC"",3)"
^XMB(3.9,12,2,54,0)=""
^XMB(3.9,12,2,55,0)="""BLD"",6723,""KRN"",19,0)"
^XMB(3.9,12,2,56,0)="19"
^XMB(3.9,12,2,57,0)="""BLD"",6723,""KRN"",19.1,0)"
^XMB(3.9,12,2,58,0)="19.1"
^XMB(3.9,12,2,59,0)="""BLD"",6723,""KRN"",101,0)"
^XMB(3.9,12,2,60,0)="101"
^XMB(3.9,12,2,61,0)="""BLD"",6723,""KRN"",409.61,0)"
^XMB(3.9,12,2,62,0)="409.61"
^XMB(3.9,12,2,63,0)="""BLD"",6723,""KRN"",771,0)"
^XMB(3.9,12,2,64,0)="771"
^XMB(3.9,12,2,65,0)="""BLD"",6723,""KRN"",870,0)"
^XMB(3.9,12,2,66,0)="870"
^XMB(3.9,12,2,67,0)="""BLD"",6723,""KRN"",8989.51,0)"
^XMB(3.9,12,2,68,0)="8989.51"
^XMB(3.9,12,2,69,0)="""BLD"",6723,""KRN"",8989.52,0)"
^XMB(3.9,12,2,70,0)="8989.52"
^XMB(3.9,12,2,71,0)="""BLD"",6723,""KRN"",8994,0)"
^XMB(3.9,12,2,72,0)="8994"
^XMB(3.9,12,2,73,0)="""BLD"",6723,""KRN"",""B"",.4,.4)"
^XMB(3.9,12,2,74,0)=""
^XMB(3.9,12,2,75,0)="""BLD"",6723,""KRN"",""B"",.401,.401)"
^XMB(3.9,12,2,76,0)=""
^XMB(3.9,12,2,77,0)="""BLD"",6723,""KRN"",""B"",.402,.402)"
^XMB(3.9,12,2,78,0)=""
^XMB(3.9,12,2,79,0)="""BLD"",6723,""KRN"",""B"",.403,.403)"
^XMB(3.9,12,2,80,0)=""
^XMB(3.9,12,2,81,0)="""BLD"",6723,""KRN"",""B"",.5,.5)"
^XMB(3.9,12,2,82,0)=""
^XMB(3.9,12,2,83,0)="""BLD"",6723,""KRN"",""B"",.84,.84)"
^XMB(3.9,12,2,84,0)=""
^XMB(3.9,12,2,85,0)="""BLD"",6723,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,12,2,86,0)=""
^XMB(3.9,12,2,87,0)="""BLD"",6723,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,12,2,88,0)=""
^XMB(3.9,12,2,89,0)="""BLD"",6723,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,12,2,90,0)=""
^XMB(3.9,12,2,91,0)="""BLD"",6723,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,12,2,92,0)=""
^XMB(3.9,12,2,93,0)="""BLD"",6723,""KRN"",""B"",19,19)"
^XMB(3.9,12,2,94,0)=""
^XMB(3.9,12,2,95,0)="""BLD"",6723,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,12,2,96,0)=""
^XMB(3.9,12,2,97,0)="""BLD"",6723,""KRN"",""B"",101,101)"
^XMB(3.9,12,2,98,0)=""
^XMB(3.9,12,2,99,0)="""BLD"",6723,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,12,2,100,0)=""
^XMB(3.9,12,2,101,0)="""BLD"",6723,""KRN"",""B"",771,771)"
^XMB(3.9,12,2,102,0)=""
^XMB(3.9,12,2,103,0)="""BLD"",6723,""KRN"",""B"",870,870)"
^XMB(3.9,12,2,104,0)=""
^XMB(3.9,12,2,105,0)="""BLD"",6723,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,12,2,106,0)=""
^XMB(3.9,12,2,107,0)="""BLD"",6723,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,12,2,108,0)=""
^XMB(3.9,12,2,109,0)="""BLD"",6723,""KRN"",""B"",8994,8994)"
^XMB(3.9,12,2,110,0)=""
^XMB(3.9,12,2,111,0)="""BLD"",6723,""QUES"",0)"
^XMB(3.9,12,2,112,0)="^9.62^^"
^XMB(3.9,12,2,113,0)="""BLD"",6723,""REQB"",0)"
^XMB(3.9,12,2,114,0)="^9.611^4^3"
^XMB(3.9,12,2,115,0)="""BLD"",6723,""REQB"",2,0)"
^XMB(3.9,12,2,116,0)="DG*5.3*643^1"
^XMB(3.9,12,2,117,0)="""BLD"",6723,""REQB"",3,0)"
^XMB(3.9,12,2,118,0)="DG*5.3*669^1"
^XMB(3.9,12,2,119,0)="""BLD"",6723,""REQB"",4,0)"
^XMB(3.9,12,2,120,0)="DG*5.3*635^1"
^XMB(3.9,12,2,121,0)="""BLD"",6723,""REQB"",""B"",""DG*5.3*635"",4)"
^XMB(3.9,12,2,122,0)=""
^XMB(3.9,12,2,123,0)="""BLD"",6723,""REQB"",""B"",""DG*5.3*643"",2)"
^XMB(3.9,12,2,124,0)=""
^XMB(3.9,12,2,125,0)="""BLD"",6723,""REQB"",""B"",""DG*5.3*669"",3)"
^XMB(3.9,12,2,126,0)=""
^XMB(3.9,12,2,127,0)="""MBREQ"")"
^XMB(3.9,12,2,128,0)="0"
^XMB(3.9,12,2,129,0)="""PKG"",5,-1)"
^XMB(3.9,12,2,130,0)="1^1"
^XMB(3.9,12,2,131,0)="""PKG"",5,0)"
^XMB(3.9,12,2,132,0)="REGISTRATION^DG^PATIENT REGISTRATION, ADMISSION, DISCHARGE, EMBOSSER "
^XMB(3.9,12,2,133,0)="""PKG"",5,20,0)"
^XMB(3.9,12,2,134,0)="^9.402P^^"
^XMB(3.9,12,2,135,0)="""PKG"",5,22,0)"
^XMB(3.9,12,2,136,0)="^9.49I^1^1"
^XMB(3.9,12,2,137,0)="""PKG"",5,22,1,0)"
^XMB(3.9,12,2,138,0)="5.3^2930813"
^XMB(3.9,12,2,139,0)="""PKG"",5,22,1,""PAH"",1,0)"
^XMB(3.9,12,2,140,0)="701^3060505"
^XMB(3.9,12,2,141,0)="""PKG"",5,22,1,""PAH"",1,1,0)"
^XMB(3.9,12,2,142,0)="^^3^3^3060505"
^XMB(3.9,12,2,143,0)="""PKG"",5,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,12,2,144,0)="  This patch deals with non-VA PTF census problems, the inability to"
^XMB(3.9,12,2,145,0)="""PKG"",5,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,12,2,146,0)="select certain ICD9 codes on the 501 screen of PTF Load/Edit, and a "
^XMB(3.9,12,2,147,0)="""PKG"",5,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,12,2,148,0)="system error when transferring patients. "
^XMB(3.9,12,2,149,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,12,2,150,0)="Y"
^XMB(3.9,12,2,151,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,12,2,152,0)="^D REP^XPDH"
^XMB(3.9,12,2,153,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,12,2,154,0)="Shall I write over your |FLAG| File"
^XMB(3.9,12,2,155,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,12,2,156,0)="YES"
^XMB(3.9,12,2,157,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,12,2,158,0)="D XPF1^XPDIQ"
^XMB(3.9,12,2,159,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,12,2,160,0)="Y"
^XMB(3.9,12,2,161,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,12,2,162,0)="^D DTA^XPDH"
^XMB(3.9,12,2,163,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,12,2,164,0)="Want my data |FLAG| yours"
^XMB(3.9,12,2,165,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,12,2,166,0)="YES"
^XMB(3.9,12,2,167,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,12,2,168,0)="D XPF2^XPDIQ"
^XMB(3.9,12,2,169,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,12,2,170,0)="YO"
^XMB(3.9,12,2,171,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,12,2,172,0)="^D INHIBIT^XPDH"
^XMB(3.9,12,2,173,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,12,2,174,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,12,2,175,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,12,2,176,0)="YES"
^XMB(3.9,12,2,177,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,12,2,178,0)="D XPI1^XPDIQ"
^XMB(3.9,12,2,179,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,12,2,180,0)="PO^VA(200,:EM"
^XMB(3.9,12,2,181,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,12,2,182,0)="^D MG^XPDH"
^XMB(3.9,12,2,183,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,12,2,184,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,12,2,185,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,12,2,186,0)=""
^XMB(3.9,12,2,187,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,12,2,188,0)="D XPM1^XPDIQ"
^XMB(3.9,12,2,189,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,12,2,190,0)="Y"
^XMB(3.9,12,2,191,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,12,2,192,0)="^D MENU^XPDH"
^XMB(3.9,12,2,193,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,12,2,194,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,12,2,195,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,12,2,196,0)="YES"
^XMB(3.9,12,2,197,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,12,2,198,0)="D XPO1^XPDIQ"
^XMB(3.9,12,2,199,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,12,2,200,0)="Y"
^XMB(3.9,12,2,201,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,12,2,202,0)="^D OPT^XPDH"
^XMB(3.9,12,2,203,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,12,2,204,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,12,2,205,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,12,2,206,0)="YES"
^XMB(3.9,12,2,207,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,12,2,208,0)="D XPZ1^XPDIQ"
^XMB(3.9,12,2,209,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,12,2,210,0)="Y"
^XMB(3.9,12,2,211,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,12,2,212,0)="^D RTN^XPDH"
^XMB(3.9,12,2,213,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,12,2,214,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,12,2,215,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,12,2,216,0)="NO"
^XMB(3.9,12,2,217,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,12,2,218,0)="D XPZ2^XPDIQ"
^XMB(3.9,12,2,219,0)="""RTN"")"
^XMB(3.9,12,2,220,0)="3"
^XMB(3.9,12,2,221,0)="""RTN"",""DGPTC1"")"
^XMB(3.9,12,2,222,0)="0^1^B26128925^B24771658"
^XMB(3.9,12,2,223,0)="""RTN"",""DGPTC1"",1,0)"
^XMB(3.9,12,2,224,0)="DGPTC1 ;ALN/MJK - Census Record Processing; JAN 27, 2005"
^XMB(3.9,12,2,225,0)="""RTN"",""DGPTC1"",2,0)"
^XMB(3.9,12,2,226,0)=" ;;5.3;Registration;**37,413,643,701**;Aug 13, 1993"
^XMB(3.9,12,2,227,0)="""RTN"",""DGPTC1"",3,0)"
^XMB(3.9,12,2,228,0)=" ;"
^XMB(3.9,12,2,229,0)="""RTN"",""DGPTC1"",4,0)"
^XMB(3.9,12,2,230,0)="CEN ; -- determine if PTF rec is current Census rec"
^XMB(3.9,12,2,231,0)="""RTN"",""DGPTC1"",5,0)"
^XMB(3.9,12,2,232,0)=" ; input: PTF   := ptf rec #"
^XMB(3.9,12,2,233,0)="""RTN"",""DGPTC1"",6,0)"
^XMB(3.9,12,2,234,0)=" ;     DGPMCA   := corres. adm           (non-fee)"
^XMB(3.9,12,2,235,0)="""RTN"",""DGPTC1"",7,0)"
^XMB(3.9,12,2,236,0)=" ;     DGPMAN   := 0th node of corrs adm     """
^XMB(3.9,12,2,237,0)="""RTN"",""DGPTC1"",8,0)"
^XMB(3.9,12,2,238,0)=" ;output: DGCI  := census rec #"
^XMB(3.9,12,2,239,0)="""RTN"",""DGPTC1"",9,0)"
^XMB(3.9,12,2,240,0)=" ;        DGCST := census rec status"
^XMB(3.9,12,2,241,0)="""RTN"",""DGPTC1"",10,0)"
^XMB(3.9,12,2,242,0)=" ;        DGCN  := census date entry to 45.86"
^XMB(3.9,12,2,243,0)="""RTN"",""DGPTC1"",11,0)"
^XMB(3.9,12,2,244,0)=" ;"
^XMB(3.9,12,2,245,0)="""RTN"",""DGPTC1"",12,0)"
^XMB(3.9,12,2,246,0)=" K DGCST,DGCI,DGCN,DGCN0,DGFEE"
^XMB(3.9,12,2,247,0)="""RTN"",""DGPTC1"",13,0)"
^XMB(3.9,12,2,248,0)=" S DGFEE=0"
^XMB(3.9,12,2,249,0)="""RTN"",""DGPTC1"",14,0)"
^XMB(3.9,12,2,250,0)=" G CENQ:'$D(^DGPT(PTF,0)) N DFN S DGPTF0=^(0),DFN=+DGPTF0"
^XMB(3.9,12,2,251,0)="""RTN"",""DGPTC1"",15,0)"
^XMB(3.9,12,2,252,0)=" ;G CENQ:$P(DGPTF0,U,4)"
^XMB(3.9,12,2,253,0)="""RTN"",""DGPTC1"",16,0)"
^XMB(3.9,12,2,254,0)=" D CEN^DGPTUTL I DGCN0=""""!(DT'>DGCN0) K DGCN G CENQ"
^XMB(3.9,12,2,255,0)="""RTN"",""DGPTC1"",17,0)"
^XMB(3.9,12,2,256,0)=" ;I $P(DGPTF0,U,4) D FEE G CENQ  ;DG*701 reposition line "
^XMB(3.9,12,2,257,0)="""RTN"",""DGPTC1"",18,0)"
^XMB(3.9,12,2,258,0)=" S DGT=$P(DGCN0,U)_"".9"" I '$P(DGPTF0,U,4) D WARD I 'Y K DGCN G CENQ"
^XMB(3.9,12,2,259,0)="""RTN"",""DGPTC1"",19,0)"
^XMB(3.9,12,2,260,0)=" ;if Fee Basis quit if admit > census date or admit < census date if disch"
^XMB(3.9,12,2,261,0)="""RTN"",""DGPTC1"",20,0)"
^XMB(3.9,12,2,262,0)=" I $P(DGPTF0,U,4)=1,$P(DGPTF0,U,2)>DGT G CENQ"
^XMB(3.9,12,2,263,0)="""RTN"",""DGPTC1"",21,0)"
^XMB(3.9,12,2,264,0)=" I $P(DGPTF0,U,4)=1,+$P($G(^DGPT(PTF,70)),U),$P(DGPTF0,U,2)<DGT G CENQ"
^XMB(3.9,12,2,265,0)="""RTN"",""DGPTC1"",22,0)"
^XMB(3.9,12,2,266,0)=" I $P(DGPTF0,U,4)=1 D FEE G CENQ"
^XMB(3.9,12,2,267,0)="""RTN"",""DGPTC1"",23,0)"
^XMB(3.9,12,2,268,0)=" S DGCST=0,DGCI="""""
^XMB(3.9,12,2,269,0)="""RTN"",""DGPTC1"",24,0)"
^XMB(3.9,12,2,270,0)=" F  S DGCI=$O(^DGPT(""ACENSUS"",PTF,DGCI)) Q:'DGCI  I $D(^DGPT(DGCI,0)),$P(^(0),U,13)=DGCN S DGCST=$P(^(0),U,6) Q:DGCST'=0  D  Q"
^XMB(3.9,12,2,271,0)="""RTN"",""DGPTC1"",25,0)"
^XMB(3.9,12,2,272,0)=" .S DGCI=$$RDGCI(DGCI),DGCST=1"
^XMB(3.9,12,2,273,0)="""RTN"",""DGPTC1"",26,0)"
^XMB(3.9,12,2,274,0)="CENQ K DGCN0,DGA1,DGT,X,DGPTF0,DGFEE Q"
^XMB(3.9,12,2,275,0)="""RTN"",""DGPTC1"",27,0)"
^XMB(3.9,12,2,276,0)=" ;"
^XMB(3.9,12,2,277,0)="""RTN"",""DGPTC1"",28,0)"
^XMB(3.9,12,2,278,0)="KVAR K DGCN,DGCI,DGCST Q"
^XMB(3.9,12,2,279,0)="""RTN"",""DGPTC1"",29,0)"
^XMB(3.9,12,2,280,0)=" ;"
^XMB(3.9,12,2,281,0)="""RTN"",""DGPTC1"",30,0)"
^XMB(3.9,12,2,282,0)="FEE ;"
^XMB(3.9,12,2,283,0)="""RTN"",""DGPTC1"",31,0)"
^XMB(3.9,12,2,284,0)=" S DGCST=0,DGCI="""",DGFEE=1"
^XMB(3.9,12,2,285,0)="""RTN"",""DGPTC1"",32,0)"
^XMB(3.9,12,2,286,0)=" F  S DGCI=$O(^DGPT(""ACENSUS"",PTF,DGCI)) Q:'DGCI  I $D(^DGPT(DGCI,0)),$P(^(0),U,13)=DGCN S DGCST=$P(^(0),U,6) Q:DGCST'=0  D  Q"
^XMB(3.9,12,2,287,0)="""RTN"",""DGPTC1"",33,0)"
^XMB(3.9,12,2,288,0)=" . S DGCI=$$RDGCI(DGCI),DGCST=+$P(^DGPT(DGCI,0),U,6)"
^XMB(3.9,12,2,289,0)="""RTN"",""DGPTC1"",34,0)"
^XMB(3.9,12,2,290,0)=" Q"
^XMB(3.9,12,2,291,0)="""RTN"",""DGPTC1"",35,0)"
^XMB(3.9,12,2,292,0)="ACT ; -- census actions with input of X"
^XMB(3.9,12,2,293,0)="""RTN"",""DGPTC1"",36,0)"
^XMB(3.9,12,2,294,0)=" Q:'$D(X)"
^XMB(3.9,12,2,295,0)="""RTN"",""DGPTC1"",37,0)"
^XMB(3.9,12,2,296,0)=" S Y=2 D RTY^DGPTUTL"
^XMB(3.9,12,2,297,0)="""RTN"",""DGPTC1"",38,0)"
^XMB(3.9,12,2,298,0)=" I X=""L"" D CLS G ACTQ"
^XMB(3.9,12,2,299,0)="""RTN"",""DGPTC1"",39,0)"
^XMB(3.9,12,2,300,0)=" I X=""P"" D OPEN G ACTQ"
^XMB(3.9,12,2,301,0)="""RTN"",""DGPTC1"",40,0)"
^XMB(3.9,12,2,302,0)=" I X=""E"" S DGPTFLE=1,DGPTIFN=DGCI D EN^DGPTFREL K DGRTY,DGRTY0 G ^DGPTF"
^XMB(3.9,12,2,303,0)="""RTN"",""DGPTC1"",41,0)"
^XMB(3.9,12,2,304,0)="ACTQ K DGRTY,DGRTY0 G EN1^DGPTF4"
^XMB(3.9,12,2,305,0)="""RTN"",""DGPTC1"",42,0)"
^XMB(3.9,12,2,306,0)=" ;"
^XMB(3.9,12,2,307,0)="""RTN"",""DGPTC1"",43,0)"
^XMB(3.9,12,2,308,0)="RDGCI(DGCI) ;-- eliminating 'OPEN' status census record and duplicates"
^XMB(3.9,12,2,309,0)="""RTN"",""DGPTC1"",44,0)"
^XMB(3.9,12,2,310,0)=" S DGDL=DGCI,DGCIR="""" D"
^XMB(3.9,12,2,311,0)="""RTN"",""DGPTC1"",45,0)"
^XMB(3.9,12,2,312,0)=" .F  S DGCIR=$O(^DGPT(""ACENSUS"",PTF,DGCIR),-1) Q:DGCIR<DGDL  D"
^XMB(3.9,12,2,313,0)="""RTN"",""DGPTC1"",46,0)"
^XMB(3.9,12,2,314,0)=" ..I $D(^DGPT(DGCIR,0)),$P(^(0),U,13)=DGCN S:DGCI=DGDL DGCI=DGCIR D"
^XMB(3.9,12,2,315,0)="""RTN"",""DGPTC1"",47,0)"
^XMB(3.9,12,2,316,0)=" ...I DGCIR<DGCI S DGPTIFN=DGCIR,DGRTY=2 D KDGP^DGPTFDEL,KDGPT^DGPTFDEL"
^XMB(3.9,12,2,317,0)="""RTN"",""DGPTC1"",48,0)"
^XMB(3.9,12,2,318,0)=" Q DGCI"
^XMB(3.9,12,2,319,0)="""RTN"",""DGPTC1"",49,0)"
^XMB(3.9,12,2,320,0)=" ;"
^XMB(3.9,12,2,321,0)="""RTN"",""DGPTC1"",50,0)"
^XMB(3.9,12,2,322,0)="CLS ;"
^XMB(3.9,12,2,323,0)="""RTN"",""DGPTC1"",51,0)"
^XMB(3.9,12,2,324,0)=" S DGFEE=0"
^XMB(3.9,12,2,325,0)="""RTN"",""DGPTC1"",52,0)"
^XMB(3.9,12,2,326,0)=" I $P(^DGPT(DGPTF,0),U,4)'=1 W !,""Updating TRANSFER DRGs..."" S DGADM=$P(^DGPT(PTF,0),U,2) D SUDO1^DGPTSUDO"
^XMB(3.9,12,2,327,0)="""RTN"",""DGPTC1"",53,0)"
^XMB(3.9,12,2,328,0)=" S J=PTF,DGERR=-1,T2=^DG(45.86,DGCN,0)+.9,T1=$P(^(0),U,5)"
^XMB(3.9,12,2,329,0)="""RTN"",""DGPTC1"",54,0)"
^XMB(3.9,12,2,330,0)=" S DGPTFMTX=DGPTFMT S Y=T2 D FMT^DGPTUTL"
^XMB(3.9,12,2,331,0)="""RTN"",""DGPTC1"",55,0)"
^XMB(3.9,12,2,332,0)=" W !,""Performing edit checks..."""
^XMB(3.9,12,2,333,0)="""RTN"",""DGPTC1"",56,0)"
^XMB(3.9,12,2,334,0)=" ;-- init for Austin Edits"
^XMB(3.9,12,2,335,0)="""RTN"",""DGPTC1"",57,0)"
^XMB(3.9,12,2,336,0)=" K ^TMP(""AEDIT"",$J),^TMP(""AERROR"",$J) S DGACNT=0"
^XMB(3.9,12,2,337,0)="""RTN"",""DGPTC1"",58,0)"
^XMB(3.9,12,2,338,0)=" ;"
^XMB(3.9,12,2,339,0)="""RTN"",""DGPTC1"",59,0)"
^XMB(3.9,12,2,340,0)=" D LOG^DGPTFTR1:DGPTFMT=1,LOG^DGPTR1:DGPTFMT=2,COM1^DGPTFTR"
^XMB(3.9,12,2,341,0)="""RTN"",""DGPTC1"",60,0)"
^XMB(3.9,12,2,342,0)=" K DGLOGIC,T1,T2,DGCCO D LO^DGUTL"
^XMB(3.9,12,2,343,0)="""RTN"",""DGPTC1"",61,0)"
^XMB(3.9,12,2,344,0)=" I DGERR>0 K DGERR D ^DGPTF2 G CLSQ"
^XMB(3.9,12,2,345,0)="""RTN"",""DGPTC1"",62,0)"
^XMB(3.9,12,2,346,0)=" ;-- do austin edits"
^XMB(3.9,12,2,347,0)="""RTN"",""DGPTC1"",63,0)"
^XMB(3.9,12,2,348,0)=" ;"
^XMB(3.9,12,2,349,0)="""RTN"",""DGPTC1"",64,0)"
^XMB(3.9,12,2,350,0)=" D ^DGPTAE I DGERR>0 K DGERR D ^DGPTF2 G CLSQ"
^XMB(3.9,12,2,351,0)="""RTN"",""DGPTC1"",65,0)"
^XMB(3.9,12,2,352,0)=" K DGERR,^TMP(""AEDIT"",$J),DGACNT"
^XMB(3.9,12,2,353,0)="""RTN"",""DGPTC1"",66,0)"
^XMB(3.9,12,2,354,0)=" I $P(^DGPT(PTF,0),U,4) S DGFEE=1 D FEE1 G CLSQ:'DGCI"
^XMB(3.9,12,2,355,0)="""RTN"",""DGPTC1"",67,0)"
^XMB(3.9,12,2,356,0)=" I $P(^DGPT(PTF,0),U,4)'=1 D CREATE G CLSQ:'DGCI"
^XMB(3.9,12,2,357,0)="""RTN"",""DGPTC1"",68,0)"
^XMB(3.9,12,2,358,0)=" S DR=""7////""_DUZ_"";8///T"",DA=DGCI,DIE=""^DGPT("" D ^DIE K DIE,DR"
^XMB(3.9,12,2,359,0)="""RTN"",""DGPTC1"",69,0)"
^XMB(3.9,12,2,360,0)=" S (X,DINUM)=DGCI,DIC(0)=""L"",DIC=""^DGP(45.84,"",DIC(""DR"")=""2///NOW;3////""_DUZ"
^XMB(3.9,12,2,361,0)="""RTN"",""DGPTC1"",70,0)"
^XMB(3.9,12,2,362,0)=" K DD,DO D FILE^DICN K DIC,DINUM"
^XMB(3.9,12,2,363,0)="""RTN"",""DGPTC1"",71,0)"
^XMB(3.9,12,2,364,0)=" F I=0,.11,.52,.321,.32,57,.3 S:$D(^DPT(DFN,I)) ^DGP(45.84,DGCI,$S(I=0:10,1:I))=^DPT(DFN,I)"
^XMB(3.9,12,2,365,0)="""RTN"",""DGPTC1"",72,0)"
^XMB(3.9,12,2,366,0)=" W !,""****** CENSUS CLOSED OUT ******"" D HANG^DGPTUTL"
^XMB(3.9,12,2,367,0)="""RTN"",""DGPTC1"",73,0)"
^XMB(3.9,12,2,368,0)=" S DGCST=1"
^XMB(3.9,12,2,369,0)="""RTN"",""DGPTC1"",74,0)"
^XMB(3.9,12,2,370,0)="CLSQ S DGPTFMT=DGPTFMTX K DGPTFMTX,DGFEE Q"
^XMB(3.9,12,2,371,0)="""RTN"",""DGPTC1"",75,0)"
^XMB(3.9,12,2,372,0)=" ;"
^XMB(3.9,12,2,373,0)="""RTN"",""DGPTC1"",76,0)"
^XMB(3.9,12,2,374,0)="CREATE ; -- create census record"
^XMB(3.9,12,2,375,0)="""RTN"",""DGPTC1"",77,0)"
^XMB(3.9,12,2,376,0)=" W !,""Creating Census Record..."""
^XMB(3.9,12,2,377,0)="""RTN"",""DGPTC1"",78,0)"
^XMB(3.9,12,2,378,0)=" S Y=$P(^DGPT(PTF,0),U,2) D CREATE^DGPTFCR G CREATEQ:Y<0 S DGCI=+Y W ""#"",DGCI"
^XMB(3.9,12,2,379,0)="""RTN"",""DGPTC1"",79,0)"
^XMB(3.9,12,2,380,0)=" S DGEND=+^DG(45.86,DGCN,0)_"".2359"",DGBEG=+$P(^(0),U,5)"
^XMB(3.9,12,2,381,0)="""RTN"",""DGPTC1"",80,0)"
^XMB(3.9,12,2,382,0)=" S ^DGPT(DGCI,0)=$P(^DGPT(PTF,0),U,1,10)_""^2^""_PTF_""^""_DGCN,DGCSUF=$P(^(0),U,5)"
^XMB(3.9,12,2,383,0)="""RTN"",""DGPTC1"",81,0)"
^XMB(3.9,12,2,384,0)=" ;S ^DGPT(DGCI,0)=$P(^DGPT(PTF,0),U,1,5)_""^1^""_$P(^DGPT(PTF,0),U,7,10)_""^2^""_PTF_""^""_DGCN,DGCSUF=$P(^(0),U,5)"
^XMB(3.9,12,2,385,0)="""RTN"",""DGPTC1"",82,0)"
^XMB(3.9,12,2,386,0)=" S Y=DGEND D BS^DGPTC2 S X="""",$P(X,U)=DGEND,$P(X,U,14)=Y"
^XMB(3.9,12,2,387,0)="""RTN"",""DGPTC1"",83,0)"
^XMB(3.9,12,2,388,0)=" I $D(^DGPT(PTF,70)) S Y=^(70) F I=8,9,10 S $P(X,U,I)=$P(Y,U,I)"
^XMB(3.9,12,2,389,0)="""RTN"",""DGPTC1"",84,0)"
^XMB(3.9,12,2,390,0)=" S ^DGPT(DGCI,70)=X D ASIH"
^XMB(3.9,12,2,391,0)="""RTN"",""DGPTC1"",85,0)"
^XMB(3.9,12,2,392,0)=" I $D(^DGPT(PTF,101)) S ^DGPT(DGCI,101)=^DGPT(PTF,101)"
^XMB(3.9,12,2,393,0)="""RTN"",""DGPTC1"",86,0)"
^XMB(3.9,12,2,394,0)=" F NODE=""M"",""P"",""S"",535 F I=0:0 S I=$O(^DGPT(PTF,NODE,I)) Q:'I  I $D(^DGPT(PTF,NODE,I,0)) S X=^(0) D @(""SET""_NODE_""^DGPTC2"")"
^XMB(3.9,12,2,395,0)="""RTN"",""DGPTC1"",87,0)"
^XMB(3.9,12,2,396,0)=" K DA,DIKLM S DA=DGCI,DIK=""^DGPT("" D IX1^DIK"
^XMB(3.9,12,2,397,0)="""RTN"",""DGPTC1"",88,0)"
^XMB(3.9,12,2,398,0)="CREATEQ K X,Y,DGCSUF,DGBEG,DGEND Q"
^XMB(3.9,12,2,399,0)="""RTN"",""DGPTC1"",89,0)"
^XMB(3.9,12,2,400,0)=" ;"
^XMB(3.9,12,2,401,0)="""RTN"",""DGPTC1"",90,0)"
^XMB(3.9,12,2,402,0)="FEE1 ; -- create census record for fee record"
^XMB(3.9,12,2,403,0)="""RTN"",""DGPTC1"",91,0)"
^XMB(3.9,12,2,404,0)=" W !,""Creating Census Record..."""
^XMB(3.9,12,2,405,0)="""RTN"",""DGPTC1"",92,0)"
^XMB(3.9,12,2,406,0)=" S Y=$P(^DGPT(PTF,0),U,2) D CREATE^DGPTFCR G CREATEQ:Y<0 S DGCI=+Y W ""#"",DGCI"
^XMB(3.9,12,2,407,0)="""RTN"",""DGPTC1"",93,0)"
^XMB(3.9,12,2,408,0)=" S DGEND=+^DG(45.86,DGCN,0)_"".2359"",DGBEG=+$P(^(0),U,5)"
^XMB(3.9,12,2,409,0)="""RTN"",""DGPTC1"",94,0)"
^XMB(3.9,12,2,410,0)=" S ^DGPT(DGCI,0)=$P(^DGPT(PTF,0),U,1,10)_""^2^""_PTF_""^""_DGCN,DGCSUF=$P(^(0),U,5)"
^XMB(3.9,12,2,411,0)="""RTN"",""DGPTC1"",95,0)"
^XMB(3.9,12,2,412,0)=" I $D(^DGPT(PTF,70)) S ^DGPT(DGCI,70)=^DGPT(PTF,70)"
^XMB(3.9,12,2,413,0)="""RTN"",""DGPTC1"",96,0)"
^XMB(3.9,12,2,414,0)=" S $P(^DGPT(DGCI,70),U)=DGEND"
^XMB(3.9,12,2,415,0)="""RTN"",""DGPTC1"",97,0)"
^XMB(3.9,12,2,416,0)=" I $D(^DGPT(PTF,101)) S ^DGPT(DGCI,101)=^DGPT(PTF,101)"
^XMB(3.9,12,2,417,0)="""RTN"",""DGPTC1"",98,0)"
^XMB(3.9,12,2,418,0)=" F NODE=""M"",""P"",""S"",535 F I=0:0 S I=$O(^DGPT(PTF,NODE,I)) Q:'I  I $D(^DGPT(PTF,NODE,I,0)) S X=^(0) D @(""SET""_NODE_""^DGPTC2"")"
^XMB(3.9,12,2,419,0)="""RTN"",""DGPTC1"",99,0)"
^XMB(3.9,12,2,420,0)=" K DA,DIKLM S DA=DGCI,DIK=""^DGPT("" D IX1^DIK"
^XMB(3.9,12,2,421,0)="""RTN"",""DGPTC1"",100,0)"
^XMB(3.9,12,2,422,0)="FEE1Q K X,Y,DGCSUF,DGBEG,DGEND Q"
^XMB(3.9,12,2,423,0)="""RTN"",""DGPTC1"",101,0)"
^XMB(3.9,12,2,424,0)="OPEN ; -- re-open census rec by deleting"
^XMB(3.9,12,2,425,0)="""RTN"",""DGPTC1"",102,0)"
^XMB(3.9,12,2,426,0)=" S DGPTIFN=DGCI D OPEN^DGPTFDEL S (DGCI,DGCST)=0"
^XMB(3.9,12,2,427,0)="""RTN"",""DGPTC1"",103,0)"
^XMB(3.9,12,2,428,0)=" K DGPTIFN Q"
^XMB(3.9,12,2,429,0)="""RTN"",""DGPTC1"",104,0)"
^XMB(3.9,12,2,430,0)=" ;"
^XMB(3.9,12,2,431,0)="""RTN"",""DGPTC1"",105,0)"
^XMB(3.9,12,2,432,0)="WARD ; -- ward @ census d/t for an adm(even if nhcu/dom adm that is ASIH)"
^XMB(3.9,12,2,433,0)="""RTN"",""DGPTC1"",106,0)"
^XMB(3.9,12,2,434,0)=" ;  input:  DGPMCA := corres adm"
^XMB(3.9,12,2,435,0)="""RTN"",""DGPTC1"",107,0)"
^XMB(3.9,12,2,436,0)=" ;          DGPMAN := corres adm 0th node"
^XMB(3.9,12,2,437,0)="""RTN"",""DGPTC1"",108,0)"
^XMB(3.9,12,2,438,0)=" ; output:       Y := ward ptr or null"
^XMB(3.9,12,2,439,0)="""RTN"",""DGPTC1"",109,0)"
^XMB(3.9,12,2,440,0)=" ;"
^XMB(3.9,12,2,441,0)="""RTN"",""DGPTC1"",110,0)"
^XMB(3.9,12,2,442,0)=" N MVT,M"
^XMB(3.9,12,2,443,0)="""RTN"",""DGPTC1"",111,0)"
^XMB(3.9,12,2,444,0)=" S Y="""""
^XMB(3.9,12,2,445,0)="""RTN"",""DGPTC1"",112,0)"
^XMB(3.9,12,2,446,0)=" I +DGPMAN>DGT Q"
^XMB(3.9,12,2,447,0)="""RTN"",""DGPTC1"",113,0)"
^XMB(3.9,12,2,448,0)=" I $D(^DGPM(+$P(DGPMAN,U,17),0)),+^(0)<DGT Q"
^XMB(3.9,12,2,449,0)="""RTN"",""DGPTC1"",114,0)"
^XMB(3.9,12,2,450,0)=" F %=(9999999.9999999-DGT):0 S %=$O(^DGPM(""APMV"",DFN,DGPMCA,%)) Q:'%  F MVT=0:0 S MVT=$O(^DGPM(""APMV"",DFN,DGPMCA,%,MVT)) Q:'MVT  I $D(^DGPM(MVT,0)) S M=^(0) I ""^13^43^44^45^""'[(U_$P(M,U,18)_U),$D(^DIC(42,+$P(M,U,6),0)) S Y=+$P(M,U,6) G WARDQ"
^XMB(3.9,12,2,451,0)="""RTN"",""DGPTC1"",115,0)"
^XMB(3.9,12,2,452,0)="WARDQ Q"
^XMB(3.9,12,2,453,0)="""RTN"",""DGPTC1"",116,0)"
^XMB(3.9,12,2,454,0)=" ;"
^XMB(3.9,12,2,455,0)="""RTN"",""DGPTC1"",117,0)"
^XMB(3.9,12,2,456,0)="ASIH ; -- calc asih days"
^XMB(3.9,12,2,457,0)="""RTN"",""DGPTC1"",118,0)"
^XMB(3.9,12,2,458,0)=" N DGADM,DGREC,DGBDT,DGEDT,DGMVTP"
^XMB(3.9,12,2,459,0)="""RTN"",""DGPTC1"",119,0)"
^XMB(3.9,12,2,460,0)=" S X1=DGBEG,X2=-1 D C^%DTC S DGBDT=X"
^XMB(3.9,12,2,461,0)="""RTN"",""DGPTC1"",120,0)"
^XMB(3.9,12,2,462,0)=" S X1=$P(DGEND,"".""),X2=1 D C^%DTC S DGEDT=X"
^XMB(3.9,12,2,463,0)="""RTN"",""DGPTC1"",121,0)"
^XMB(3.9,12,2,464,0)=" S DGADM=$P(^DGPT(DGCI,0),U,2) D ASIH^DGUTL2"
^XMB(3.9,12,2,465,0)="""RTN"",""DGPTC1"",122,0)"
^XMB(3.9,12,2,466,0)=" S $P(^DGPT(DGCI,70),U,8)=DGREC"
^XMB(3.9,12,2,467,0)="""RTN"",""DGPTC1"",123,0)"
^XMB(3.9,12,2,468,0)=" Q"
^XMB(3.9,12,2,469,0)="""RTN"",""DGPTF5"")"
^XMB(3.9,12,2,470,0)="0^2^B2939565^B2579843"
^XMB(3.9,12,2,471,0)="""RTN"",""DGPTF5"",1,0)"
^XMB(3.9,12,2,472,0)="DGPTF5 ;ALB/MTC - PTF ENTRY/EDIT-4 ; 07 JUN 91 "
^XMB(3.9,12,2,473,0)="""RTN"",""DGPTF5"",2,0)"
^XMB(3.9,12,2,474,0)=" ;;5.3;Registration;**669,701**;Aug 13, 1993"
^XMB(3.9,12,2,475,0)="""RTN"",""DGPTF5"",3,0)"
^XMB(3.9,12,2,476,0)=" ;"
^XMB(3.9,12,2,477,0)="""RTN"",""DGPTF5"",4,0)"
^XMB(3.9,12,2,478,0)="Z I 'DGN S Z=$S(IOST=""C-QUME""&($L(DGVI)'=2):Z,1:""[""_Z_""]"") W @DGVI,Z,@DGVO"
^XMB(3.9,12,2,479,0)="""RTN"",""DGPTF5"",5,0)"
^XMB(3.9,12,2,480,0)=" E  W ""   """
^XMB(3.9,12,2,481,0)="""RTN"",""DGPTF5"",6,0)"
^XMB(3.9,12,2,482,0)=" Q"
^XMB(3.9,12,2,483,0)="""RTN"",""DGPTF5"",7,0)"
^XMB(3.9,12,2,484,0)=" ;"
^XMB(3.9,12,2,485,0)="""RTN"",""DGPTF5"",8,0)"
^XMB(3.9,12,2,486,0)="Z1 F I=1:1:(Z1-$L(Z)) S Z=Z_"" """
^XMB(3.9,12,2,487,0)="""RTN"",""DGPTF5"",9,0)"
^XMB(3.9,12,2,488,0)=" W Z"
^XMB(3.9,12,2,489,0)="""RTN"",""DGPTF5"",10,0)"
^XMB(3.9,12,2,490,0)=" Q"
^XMB(3.9,12,2,491,0)="""RTN"",""DGPTF5"",11,0)"
^XMB(3.9,12,2,492,0)=" ;"
^XMB(3.9,12,2,493,0)="""RTN"",""DGPTF5"",12,0)"
^XMB(3.9,12,2,494,0)="CEN ;"
^XMB(3.9,12,2,495,0)="""RTN"",""DGPTF5"",13,0)"
^XMB(3.9,12,2,496,0)=" W !!,*7,""Record #"",PTF,"" MUST be closed for CENSUS first."",!"
^XMB(3.9,12,2,497,0)="""RTN"",""DGPTF5"",14,0)"
^XMB(3.9,12,2,498,0)="ASK W !,""Would you like to close this record for CENSUS"" S %=2 D YN^DICN"
^XMB(3.9,12,2,499,0)="""RTN"",""DGPTF5"",15,0)"
^XMB(3.9,12,2,500,0)=" I '% W !?5,""Answer 'YES' to close record for CENSUS also"",!?5,""  or   'NO'  to not close this record at all."" G ASK"
^XMB(3.9,12,2,501,0)="""RTN"",""DGPTF5"",16,0)"
^XMB(3.9,12,2,502,0)=" I %=1 S Y=2 D RTY^DGPTUTL D CLS^DGPTC1"
^XMB(3.9,12,2,503,0)="""RTN"",""DGPTF5"",17,0)"
^XMB(3.9,12,2,504,0)=" K DGRTY,DGRTY0 Q"
^XMB(3.9,12,2,505,0)="""RTN"",""DGPTF5"",18,0)"
^XMB(3.9,12,2,506,0)="ICDEN ;enter icd codes"
^XMB(3.9,12,2,507,0)="""RTN"",""DGPTF5"",19,0)"
^XMB(3.9,12,2,508,0)=" I $G(X)[""?"" Q"
^XMB(3.9,12,2,509,0)="""RTN"",""DGPTF5"",20,0)"
^XMB(3.9,12,2,510,0)=" N DIC,Y I $G(X)=""?BAD"" S X="""" Q"
^XMB(3.9,12,2,511,0)="""RTN"",""DGPTF5"",21,0)"
^XMB(3.9,12,2,512,0)=" I DA'=$G(DGPTF),DA<25,$G(DA(1))>0 D CONFIG^LEXSET(""ICD"",,$$GETDATE^ICDGTDRG(DA(1)))"
^XMB(3.9,12,2,513,0)="""RTN"",""DGPTF5"",22,0)"
^XMB(3.9,12,2,514,0)=" E  D CONFIG^LEXSET(""ICD"",,$$GETDATE^ICDGTDRG(DA))"
^XMB(3.9,12,2,515,0)="""RTN"",""DGPTF5"",23,0)"
^XMB(3.9,12,2,516,0)=" S DIC=""^LEX(757.01,"",DIC(0)=$S('$L($G(X)):"""",1:"""")_""EQM"""
^XMB(3.9,12,2,517,0)="""RTN"",""DGPTF5"",24,0)"
^XMB(3.9,12,2,518,0)=" S DIC(""A"")=""Enter ICD: """
^XMB(3.9,12,2,519,0)="""RTN"",""DGPTF5"",25,0)"
^XMB(3.9,12,2,520,0)=" D ^DIC"
^XMB(3.9,12,2,521,0)="""RTN"",""DGPTF5"",26,0)"
^XMB(3.9,12,2,522,0)=" I Y=-1 S X="""" Q"
^XMB(3.9,12,2,523,0)="""RTN"",""DGPTF5"",27,0)"
^XMB(3.9,12,2,524,0)=" S X=$G(Y(1))"
^XMB(3.9,12,2,525,0)="""RTN"",""DGPTF5"",28,0)"
^XMB(3.9,12,2,526,0)=" Q"
^XMB(3.9,12,2,527,0)="""RTN"",""DGPTF5"",29,0)"
^XMB(3.9,12,2,528,0)="ICDEN1 ;enter icd codes for DRG"
^XMB(3.9,12,2,529,0)="""RTN"",""DGPTF5"",30,0)"
^XMB(3.9,12,2,530,0)=" N DIC K X,Y"
^XMB(3.9,12,2,531,0)="""RTN"",""DGPTF5"",31,0)"
^XMB(3.9,12,2,532,0)=" D CONFIG^LEXSET(""ICD"",,$G(DGDAT))"
^XMB(3.9,12,2,533,0)="""RTN"",""DGPTF5"",32,0)"
^XMB(3.9,12,2,534,0)=" S DIC=""^LEX(757.01,"",DIC(0)=$S('$L($G(X)):"""",1:"""")_""EQM"""
^XMB(3.9,12,2,535,0)="""RTN"",""DGPTF5"",33,0)"
^XMB(3.9,12,2,536,0)=" S DIC(""A"")=PROMPT"
^XMB(3.9,12,2,537,0)="""RTN"",""DGPTF5"",34,0)"
^XMB(3.9,12,2,538,0)=" D ^DIC"
^XMB(3.9,12,2,539,0)="""RTN"",""DGPTF5"",35,0)"
^XMB(3.9,12,2,540,0)=" I Y=-1 S X="""" Q"
^XMB(3.9,12,2,541,0)="""RTN"",""DGPTF5"",36,0)"
^XMB(3.9,12,2,542,0)=" S X=$G(Y(1))"
^XMB(3.9,12,2,543,0)="""RTN"",""DGPTF5"",37,0)"
^XMB(3.9,12,2,544,0)=" S Y=$$ICDDX^ICDCODE(X,$G(DGDAT))"
^XMB(3.9,12,2,545,0)="""RTN"",""DGPTF5"",38,0)"
^XMB(3.9,12,2,546,0)=" Q"
^XMB(3.9,12,2,547,0)="""RTN"",""DGPTFJC"")"
^XMB(3.9,12,2,548,0)="0^3^B47957071^B46752372"
^XMB(3.9,12,2,549,0)="""RTN"",""DGPTFJC"",1,0)"
^XMB(3.9,12,2,550,0)="DGPTFJC ;ALB/ADL - CLOSED PTF ;7/28/05 1:08pm"
^XMB(3.9,12,2,551,0)="""RTN"",""DGPTFJC"",2,0)"
^XMB(3.9,12,2,552,0)=" ;;5.3;Registration;**158,510,517,590,636,635,701**;Aug 13, 1993"
^XMB(3.9,12,2,553,0)="""RTN"",""DGPTFJC"",3,0)"
^XMB(3.9,12,2,554,0)=" ;;ADL;;Update for CSV Project;;Mar 25, 2003"
^XMB(3.9,12,2,555,0)="""RTN"",""DGPTFJC"",4,0)"
^XMB(3.9,12,2,556,0)="101 W !,""Enter '^N' for Screen N, RETURN for <MAS>,'^' to Abort: <MAS>//"""
^XMB(3.9,12,2,557,0)="""RTN"",""DGPTFJC"",5,0)"
^XMB(3.9,12,2,558,0)=" D READ G Q^DGPTF:X=U,^DGPTFM:X="""",^DGPTFJ:X?1""^"".E D H G 101"
^XMB(3.9,12,2,559,0)="""RTN"",""DGPTFJC"",6,0)"
^XMB(3.9,12,2,560,0)=" ;"
^XMB(3.9,12,2,561,0)="""RTN"",""DGPTFJC"",7,0)"
^XMB(3.9,12,2,562,0)="H D HELP^DGPTFJ W ! Q"
^XMB(3.9,12,2,563,0)="""RTN"",""DGPTFJC"",8,0)"
^XMB(3.9,12,2,564,0)=" ;"
^XMB(3.9,12,2,565,0)="""RTN"",""DGPTFJC"",9,0)"
^XMB(3.9,12,2,566,0)="MAS W !!,""Enter '^N' for Screen N, RETURN for <"",DGNUM,"">,'^' to Abort: <"",DGNUM,"">//"""
^XMB(3.9,12,2,567,0)="""RTN"",""DGPTFJC"",10,0)"
^XMB(3.9,12,2,568,0)=" D READ G Q^DGPTF:X=U,^DGPTFJ:X?1""^"".E"
^XMB(3.9,12,2,569,0)="""RTN"",""DGPTFJC"",11,0)"
^XMB(3.9,12,2,570,0)=" I X="""" S (ST,ST1)=J+2 G @($S($D(DGZDIAG):""NDG"",$D(DGZSER):""NSR"",$D(DGZPRO):""NPR"",$D(DGZSUR):""EN"",+DGZPRF-1'=$P(DGZPRF,U,3):""NPS"",1:""DONE"")_""^DGPTFM"")"
^XMB(3.9,12,2,571,0)="""RTN"",""DGPTFJC"",12,0)"
^XMB(3.9,12,2,572,0)=" D H G MAS"
^XMB(3.9,12,2,573,0)="""RTN"",""DGPTFJC"",13,0)"
^XMB(3.9,12,2,574,0)=" ;"
^XMB(3.9,12,2,575,0)="""RTN"",""DGPTFJC"",14,0)"
^XMB(3.9,12,2,576,0)="401 S DGNUM=$S($D(S(DGZS0+1)):401_""-""_(DGZS0+1),1:""MAS"")"
^XMB(3.9,12,2,577,0)="""RTN"",""DGPTFJC"",15,0)"
^XMB(3.9,12,2,578,0)=" W !,""Enter '^N' for Screen N, RETURN for <"",DGNUM,"">,'^' to Abort: <"",DGNUM,"">//"""
^XMB(3.9,12,2,579,0)="""RTN"",""DGPTFJC"",16,0)"
^XMB(3.9,12,2,580,0)=" D READ G Q^DGPTF:X=U,NEXM^DGPTFM5:X="""",^DGPTFJ:X?1""^"".E D H G 401"
^XMB(3.9,12,2,581,0)="""RTN"",""DGPTFJC"",17,0)"
^XMB(3.9,12,2,582,0)=" ;"
^XMB(3.9,12,2,583,0)="""RTN"",""DGPTFJC"",18,0)"
^XMB(3.9,12,2,584,0)="501 W !,""Enter '^N' for Screen N, RETURN for <"",DGNUM,"">,'^' to Abort: <"",DGNUM,"">//"""
^XMB(3.9,12,2,585,0)="""RTN"",""DGPTFJC"",19,0)"
^XMB(3.9,12,2,586,0)=" D READ G Q^DGPTF:X=U,NEXM^DGPTFM4:X="""",^DGPTFJ:X?1""^"".E D H G 501"
^XMB(3.9,12,2,587,0)="""RTN"",""DGPTFJC"",20,0)"
^XMB(3.9,12,2,588,0)=" ;"
^XMB(3.9,12,2,589,0)="""RTN"",""DGPTFJC"",21,0)"
^XMB(3.9,12,2,590,0)="601 W !,""Enter '^N' for Screen N, RETURN for <"",DGNUM,"">,'^' to Abort: <"",DGNUM,"">//"""
^XMB(3.9,12,2,591,0)="""RTN"",""DGPTFJC"",22,0)"
^XMB(3.9,12,2,592,0)=" D READ G Q^DGPTF:X=U,NEXP^DGPTFM6:X="""",^DGPTFJ:X?1""^"".E D H G 601"
^XMB(3.9,12,2,593,0)="""RTN"",""DGPTFJC"",23,0)"
^XMB(3.9,12,2,594,0)=" ;"
^XMB(3.9,12,2,595,0)="""RTN"",""DGPTFJC"",24,0)"
^XMB(3.9,12,2,596,0)="701 ;"
^XMB(3.9,12,2,597,0)="""RTN"",""DGPTFJC"",25,0)"
^XMB(3.9,12,2,598,0)=" G ACT1^DGPTF41 ; new code"
^XMB(3.9,12,2,599,0)="""RTN"",""DGPTFJC"",26,0)"
^XMB(3.9,12,2,600,0)=" ;"
^XMB(3.9,12,2,601,0)="""RTN"",""DGPTFJC"",27,0)"
^XMB(3.9,12,2,602,0)=" ;Display screen prompt and process user response for 801 screen"
^XMB(3.9,12,2,603,0)="""RTN"",""DGPTFJC"",28,0)"
^XMB(3.9,12,2,604,0)="801 W !,""Enter '^N' for Screen N, RETURN for <"",DGNUM,"">,'^' to Abort: <"",DGNUM,"">//"""
^XMB(3.9,12,2,605,0)="""RTN"",""DGPTFJC"",29,0)"
^XMB(3.9,12,2,606,0)=" D READ G Q^DGPTF:X=U,NEXP^DGPTFM2:X="""",^DGPTFJ:X?1""^"".E D H G 801"
^XMB(3.9,12,2,607,0)="""RTN"",""DGPTFJC"",30,0)"
^XMB(3.9,12,2,608,0)="READ ; -- read X"
^XMB(3.9,12,2,609,0)="""RTN"",""DGPTFJC"",31,0)"
^XMB(3.9,12,2,610,0)=" R X:DTIME S:'$T X=""^"",DGPTOUT="""""
^XMB(3.9,12,2,611,0)="""RTN"",""DGPTFJC"",32,0)"
^XMB(3.9,12,2,612,0)=" Q"
^XMB(3.9,12,2,613,0)="""RTN"",""DGPTFJC"",33,0)"
^XMB(3.9,12,2,614,0)=" ;"
^XMB(3.9,12,2,615,0)="""RTN"",""DGPTFJC"",34,0)"
^XMB(3.9,12,2,616,0)="EN ; DG*636"
^XMB(3.9,12,2,617,0)="""RTN"",""DGPTFJC"",35,0)"
^XMB(3.9,12,2,618,0)=" ;;S K=$S($D(K):K,1:1),DGER=0 S DGPTDAT=$$GETDATE^ICDGTDRG(DA(1)),DGPTTMP=$$ICDDX^ICDCODE(+Y,DGPTDAT) I +DGPTTMP=-1!('$P(DGPTTMP,U,10)) S DGER=1 Q"
^XMB(3.9,12,2,619,0)="""RTN"",""DGPTFJC"",36,0)"
^XMB(3.9,12,2,620,0)=" S K=$S($D(K):K,1:1),DGER=0 S DGPTDAT=$$GETDATE^ICDGTDRG(DA(1))"
^XMB(3.9,12,2,621,0)="""RTN"",""DGPTFJC"",37,0)"
^XMB(3.9,12,2,622,0)=" ;if there is a disch and a previous movement, if disch"
^XMB(3.9,12,2,623,0)="""RTN"",""DGPTFJC"",38,0)"
^XMB(3.9,12,2,624,0)=" ;is >Oct 1 (next FY) and movement <Oct 1, then use the movement date"
^XMB(3.9,12,2,625,0)="""RTN"",""DGPTFJC"",39,0)"
^XMB(3.9,12,2,626,0)=" I $G(DGPMT) S DGZM0=1,M(DGZM0)=""0^""  ; to prevent sys err from TD5^DGPTTS2 (DG*701)"
^XMB(3.9,12,2,627,0)="""RTN"",""DGPTFJC"",40,0)"
^XMB(3.9,12,2,628,0)=" N DGPTMVDT I DGPTDAT=$P($G(^DGPT(DA(1),70)),U,1)&(DGPTDAT=$P($G(^DGPT(DA(1),""M"",1,0)),U,10))&($D(M(DGZM0)))&($P($G(M(DGZM0)),U)'=1) S DGPTMVDT=$P($G(^DGPT(DA(1),""M"",2,0)),U,10)"
^XMB(3.9,12,2,629,0)="""RTN"",""DGPTFJC"",41,0)"
^XMB(3.9,12,2,630,0)=" ;next line is if using ""Add a code"" in MAS screen"
^XMB(3.9,12,2,631,0)="""RTN"",""DGPTFJC"",42,0)"
^XMB(3.9,12,2,632,0)=" I '$G(DGPTMVDT)&($D(DGADD))&($G(DGMOV)'=1) S DGPTMVDT=$P($G(^DGPT(DA(1),""M"",2,0)),U,10)"
^XMB(3.9,12,2,633,0)="""RTN"",""DGPTFJC"",43,0)"
^XMB(3.9,12,2,634,0)=" I $G(DGPTMVDT) D"
^XMB(3.9,12,2,635,0)="""RTN"",""DGPTFJC"",44,0)"
^XMB(3.9,12,2,636,0)=" .;if same calendar year"
^XMB(3.9,12,2,637,0)="""RTN"",""DGPTFJC"",45,0)"
^XMB(3.9,12,2,638,0)=" .I $E(DGPTDAT,1,3)=$E(DGPTMVDT,1,3),$E(DGPTDAT,4,7)>0930,$E(DGPTMVDT,4,7)<1001 S DGPTDAT=DGPTMVDT Q"
^XMB(3.9,12,2,639,0)="""RTN"",""DGPTFJC"",46,0)"
^XMB(3.9,12,2,640,0)=" .;if different calendar year"
^XMB(3.9,12,2,641,0)="""RTN"",""DGPTFJC"",47,0)"
^XMB(3.9,12,2,642,0)=" .I ($E(DGPTDAT,1,3)-$E(DGPTMVDT,1,3))>1 S DGPTDAT=DGPTMVDT Q"
^XMB(3.9,12,2,643,0)="""RTN"",""DGPTFJC"",48,0)"
^XMB(3.9,12,2,644,0)=" .I $E(DGPTMVDT,4,7)<1001 S DGPTDAT=DGPTMVDT Q"
^XMB(3.9,12,2,645,0)="""RTN"",""DGPTFJC"",49,0)"
^XMB(3.9,12,2,646,0)=" .I $E(DGPTDAT,4,7)>0930 S DGPTDAT=DGPTMVDT Q"
^XMB(3.9,12,2,647,0)="""RTN"",""DGPTFJC"",50,0)"
^XMB(3.9,12,2,648,0)=" I $G(DGPMT) K M(DGZM0),DGZM0  ; DG*701"
^XMB(3.9,12,2,649,0)="""RTN"",""DGPTFJC"",51,0)"
^XMB(3.9,12,2,650,0)=" S DGPTTMP=$$ICDDX^ICDCODE(+Y,DGPTDAT) I +DGPTTMP=-1!('$P(DGPTTMP,U,10)) S DGER=1 Q"
^XMB(3.9,12,2,651,0)="""RTN"",""DGPTFJC"",52,0)"
^XMB(3.9,12,2,652,0)=" ;end DG*636"
^XMB(3.9,12,2,653,0)="""RTN"",""DGPTFJC"",53,0)"
^XMB(3.9,12,2,654,0)=" ;==================================================================="
^XMB(3.9,12,2,655,0)="""RTN"",""DGPTFJC"",54,0)"
^XMB(3.9,12,2,656,0)=" I $P(DGPTTMP,U,11)]""""&($P(DGPTTMP,U,11)'=$S($D(^DPT(+^DGPT(DA(1),0),0)):$P(^(0),U,2),1:""M"")) W:K<24 !,$P(DGPTTMP,U,2),"" can only be used with "",$S($P(DGPTTMP,U,11)=""F"":""FEMALES"",1:""MALES"") S K=K+1,DGER=1 Q"
^XMB(3.9,12,2,657,0)="""RTN"",""DGPTFJC"",55,0)"
^XMB(3.9,12,2,658,0)=" S %=$P(^DGPT(DA(1),""M"",DA,0),U,DGI) I $D(^DGPT(DA(1),""M"",""AC"",Y,DA)),%'=Y S DGER=1 Q"
^XMB(3.9,12,2,659,0)="""RTN"",""DGPTFJC"",56,0)"
^XMB(3.9,12,2,660,0)=" F I=0:0 S I=$O(^ICD9(+Y,""N"",I)) Q:I'>0  I $D(^DGPT(DA(1),""M"",""AC"",I,DA)),%'=I W !,""Cannot use "",$S($D(^ICD9(+Y,0)):$P(^(0),U),1:""""),""  with "",$S($D(^ICD9(I,0)):$P(^(0),U),1:"""") S DGER=1 Q"
^XMB(3.9,12,2,661,0)="""RTN"",""DGPTFJC"",57,0)"
^XMB(3.9,12,2,662,0)=" Q:DGER  S DG1=1 F I=0:0 S I=$O(^ICD9(+Y,""R"",I)) Q:I'>0  S DG1=0 I $D(^DGPT(DA(1),""M"",""AC"",I,DA)),%'=I S DG1=1 Q"
^XMB(3.9,12,2,663,0)="""RTN"",""DGPTFJC"",58,0)"
^XMB(3.9,12,2,664,0)=" I 'DG1 W !,$S(+DGPTTMP>0&('$P(DGPTTMP,U,10)):$P(DGPTTMP,U,2),1:""""),"" requires additional code."""
^XMB(3.9,12,2,665,0)="""RTN"",""DGPTFJC"",59,0)"
^XMB(3.9,12,2,666,0)=" Q"
^XMB(3.9,12,2,667,0)="""RTN"",""DGPTFJC"",60,0)"
^XMB(3.9,12,2,668,0)="EN1 S K=$S($D(K):K,1:1),DGER=0,DGPTDAT=$$GETDATE^ICDGTDRG(DA(1)),DGICD0=$$ICDOP^ICDCODE(+Y,DGPTDAT) I +DGICD0,0!('$P(DGICD0,U,10)) S DGER=1 Q"
^XMB(3.9,12,2,669,0)="""RTN"",""DGPTFJC"",61,0)"
^XMB(3.9,12,2,670,0)=" I $P(DGICD0,U,11)]""""&($P(DGICD0,U,11)'=$S($D(^DPT(+^DGPT(DA(1),0),0)):$P(^(0),U,2),1:""M"")) W:K<24 !,$P(DGICD0,U,2),"" can only be used with "",$S($P(DGICD0,U,11)=""F"":""FEMALES"",1:""MALES"") S K=K+1,DGER=1 Q"
^XMB(3.9,12,2,671,0)="""RTN"",""DGPTFJC"",62,0)"
^XMB(3.9,12,2,672,0)=" S %=$P(^DGPT(DA(1),DGSB,DA,0),U,DGI) I $D(^DGPT(DA(1),DGSB,DGCR,Y,DA)),%'=Y S DGER=1 W !,""Cannot enter the same code more than once within a "",$S(DGSB=""S"":""401"",1:""601""),"" transaction"" Q"
^XMB(3.9,12,2,673,0)="""RTN"",""DGPTFJC"",63,0)"
^XMB(3.9,12,2,674,0)=" F I=0:0 S I=$O(^ICD0(+Y,""N"",I)) Q:I'>0  I $D(^DGPT(DA(1),DGSB,DGCR,I,DA)),%'=I S DGPTTMP2=$$ICDOP^ICDCODE(I,DGPTDAT) W !,""Cannot use "",$P(DGICD0,U,2),""  with "",$S(+DGPTTMP2>0:$P(DGPTTMP2,U,2),1:"""") S DGER=1 Q"
^XMB(3.9,12,2,675,0)="""RTN"",""DGPTFJC"",64,0)"
^XMB(3.9,12,2,676,0)=" Q:DGER  S DG1=1 F I=0:0 S I=$O(^ICD0(+Y,""R"",I)) Q:I'>0  S DG1=0 I $D(^DGPT(DA(1),DGSB,DGCR,I,DA)),%'=I S DG1=1 Q"
^XMB(3.9,12,2,677,0)="""RTN"",""DGPTFJC"",65,0)"
^XMB(3.9,12,2,678,0)=" I 'DG1 W !,$P(DGICD0,U,2),"" requires additional code."""
^XMB(3.9,12,2,679,0)="""RTN"",""DGPTFJC"",66,0)"
^XMB(3.9,12,2,680,0)=" Q"
^XMB(3.9,12,2,681,0)="""RTN"",""DGPTFJC"",67,0)"
^XMB(3.9,12,2,682,0)="EN2 S K=$S($D(K):K,1:1),DGER=0,DGPTTMP=$$ICDOP^ICDCODE(+Y,$$GETDATE^ICDGTDRG(DA)) I +DGPTTMP<0!('$P(DGPTTMP,U,10)) S DGER=1 Q"
^XMB(3.9,12,2,683,0)="""RTN"",""DGPTFJC"",68,0)"
^XMB(3.9,12,2,684,0)=" I $P(DGPTTMP,U,11)]""""&($P(DGPTTMP,U,11)'=$S($D(^DPT(+^DGPT(DA,0),0)):$P(^(0),U,2),1:""M"")) W:K<24 !,$P(DGPTTMP,U,2),"" can only be used with "",$S($P(DGPTTMP,U,11)=""F"":""FEMALES"",1:""MALES"") S K=K+1,DGER=1 Q"
^XMB(3.9,12,2,685,0)="""RTN"",""DGPTFJC"",69,0)"
^XMB(3.9,12,2,686,0)=" S L=$P($S($D(^DGPT((DA),""401P"")):^(""401P""),1:0),U,1,5),%=$P(L,U,DGI),L=$P(L,U,1,DGI-1)_U_$P(L,U,DGI+1,5) I L[Y S DGER=1 Q"
^XMB(3.9,12,2,687,0)="""RTN"",""DGPTFJC"",70,0)"
^XMB(3.9,12,2,688,0)=" Q"
^XMB(3.9,12,2,689,0)="""RTN"",""DGPTFJC"",71,0)"
^XMB(3.9,12,2,690,0)="EN3 S K=$S($D(K):K,1:1),DGER=0,DGPTTMP=$$ICDDX^ICDCODE(+Y,$$GETDATE^ICDGTDRG(DA)) I +DGPTTMP<0!('$P(DGPTTMP,U,10)) S DGER=1 Q"
^XMB(3.9,12,2,691,0)="""RTN"",""DGPTFJC"",72,0)"
^XMB(3.9,12,2,692,0)=" I DGI=1,$P(DGPTTMP,U,5) S DGER=1 Q"
^XMB(3.9,12,2,693,0)="""RTN"",""DGPTFJC"",73,0)"
^XMB(3.9,12,2,694,0)=" I $P(DGPTTMP,U,11)]""""&($P(DGPTTMP,U,11)'=$S($D(^DPT(+^DGPT(DA,0),0)):$P(^(0),U,2),1:""M"")) W:K<24 !,$P(DGPTTMP,U,2),"" can only be used with "",$S($P(DGPTTMP,U,11)=""F"":""FEMALES"",1:""MALES"") S K=K+1,DGER=1 Q"
^XMB(3.9,12,2,695,0)="""RTN"",""DGPTFJC"",74,0)"
^XMB(3.9,12,2,696,0)=" S %=$S($D(^DGPT(DA,70)):^(70),1:""""),%=U_$P(%,U,10)_U_$P(%,U,16,24)_U"
^XMB(3.9,12,2,697,0)="""RTN"",""DGPTFJC"",75,0)"
^XMB(3.9,12,2,698,0)=" S:$G(^DGPT(DA,71))'="""" %=%_^(71)_U S $P(%,U,DGI+1)=U I %[(U_+Y_U) S DGER=1 Q"
^XMB(3.9,12,2,699,0)="""RTN"",""DGPTFJC"",76,0)"
^XMB(3.9,12,2,700,0)=" F I=0:0 S I=$O(^ICD9(+Y,""N"",I)) Q:I'>0  I %[(U_I_U) S DGPTTMP2=$$ICDDX^ICDCODE(I,DGPTDAT) W !,""Cannot use "",$P($G(DGPTTMP),U,2),""  with "",$S(+DGPTTMP2>0:$P(DGPTTMP2,U,2),1:"""") S DGER=1 Q"
^XMB(3.9,12,2,701,0)="""RTN"",""DGPTFJC"",77,0)"
^XMB(3.9,12,2,702,0)=" Q:DGER  S DG1=1 F I=0:0 S I=$O(^ICD9(+Y,""R"",I)) Q:I'>0  S DG1=0 I %[(U_I_U) S DG1=1 Q"
^XMB(3.9,12,2,703,0)="""RTN"",""DGPTFJC"",78,0)"
^XMB(3.9,12,2,704,0)=" I 'DG1 W !,$S(+DGPTTMP>0:$P(DGPTTMP,U,2),1:""""),"" requires additional code."""
^XMB(3.9,12,2,705,0)="""RTN"",""DGPTFJC"",79,0)"
^XMB(3.9,12,2,706,0)=" Q"
^XMB(3.9,12,2,707,0)="""RTN"",""DGPTFJC"",80,0)"
^XMB(3.9,12,2,708,0)="EN4 S K=$S($D(K):K,1:1),DGER=0,N=$$ICDDX^ICDCODE(+Y,$$GETDATE^ICDGTDRG(DA)) I N<0!'$P(N,U,10) S DGER=1 Q"
^XMB(3.9,12,2,709,0)="""RTN"",""DGPTFJC"",81,0)"
^XMB(3.9,12,2,710,0)=" I DGI=1,$P(N,U,5) S DGER=1 Q"
^XMB(3.9,12,2,711,0)="""RTN"",""DGPTFJC"",82,0)"
^XMB(3.9,12,2,712,0)=" I $P(N,U,11)]""""&($P(N,U,11)'=$S($D(^DPT(+^DGPT(DA(2),0),0)):$P(^(0),U,2),1:""M"")) W:K<24 !,$P(N,U,2),"" can only be used with "",$S($P(N,U,11)=""F"":""FEMALES"",1:""MALES"") S K=K+1,DGER=1 Q"
^XMB(3.9,12,2,713,0)="""RTN"",""DGPTFJC"",83,0)"
^XMB(3.9,12,2,714,0)=" S %=$S($D(^DGPT(DA(2),""C"",DA(1),""CPT"",DA,0)):^(0),1:""""),%=U_$P(%,U,4,7)_U,$P(%,U,DGI+1)=U I %[(U_+Y_U) S DGER=1 Q"
^XMB(3.9,12,2,715,0)="""RTN"",""DGPTFJC"",84,0)"
^XMB(3.9,12,2,716,0)=" F I=0:0 S I=$O(^ICD9(+Y,""N"",I)) Q:I'>0  I %[(U_I_U) W !,""Cannot use "",$S($D(^ICD9(+Y,0)):$P(^(0),U),1:""""),""  with "",$S($D(^ICD9(I,0)):$P(^(0),U),1:"""") S DGER=1 Q"
^XMB(3.9,12,2,717,0)="""RTN"",""DGPTFJC"",85,0)"
^XMB(3.9,12,2,718,0)=" Q:DGER  S DG1=1 F I=0:0 S I=$O(^ICD9(+Y,""R"",I)) Q:I'>0  S DG1=0 I %[(U_I_U) S DG1=1 Q"
^XMB(3.9,12,2,719,0)="""RTN"",""DGPTFJC"",86,0)"
^XMB(3.9,12,2,720,0)=" I 'DG1 W !,$P(N,U,2),"" requires additional code.""       Q"
^XMB(3.9,12,2,721,0)="""RTN"",""DGPTFJC"",87,0)"
^XMB(3.9,12,2,722,0)=" Q"
^XMB(3.9,12,2,723,0)="""RTN"",""DGPTFJC"",88,0)"
^XMB(3.9,12,2,724,0)="EN5 S K=$S($D(K):K,1:1),DGER=0,DGPTTMP=$$ICDDX^ICDCODE(+Y,+DGZPRF(DGZP)) I +DGPTTMP<0!('$P(DGPTTMP,U,10)) S DGER=1 Q"
^XMB(3.9,12,2,725,0)="""RTN"",""DGPTFJC"",89,0)"
^XMB(3.9,12,2,726,0)=" I $P(DGPTTMP,U,11)]""""&($P(DGPTTMP,U,11)'=$S($D(^DPT(+^DGPT(PTF,0),0)):$P(^(0),U,2),1:""M"")) W:K<24 !,$P(DGPTTMP,U,2),"" can only be used with "",$S($P(DGPTTMP,U,11)=""F"":""FEMALES"",1:""MALES"") S K=K+1,DGER=1 Q"
^XMB(3.9,12,2,727,0)="""RTN"",""DGPTFJC"",90,0)"
^XMB(3.9,12,2,728,0)=" S K=^DGCPT(46,DA,0) I $P(K,U,4,7)_U_$P(K,U,15,18)[Y S DGER=1 Q"
^XMB(3.9,12,2,729,0)="""RTN"",""DGPTFJC"",91,0)"
^XMB(3.9,12,2,730,0)=" Q"
^XMB(3.9,12,2,731,0)="""RTN"",""DGPTFJC"",92,0)"
^XMB(3.9,12,2,732,0)="EN6 I $P($G(^(0)),U,2)?.N S DGER=1 Q"
^XMB(3.9,12,2,733,0)="""RTN"",""DGPTFJC"",93,0)"
^XMB(3.9,12,2,734,0)=" S DGER=0,N=$$CPT^ICPTCOD(+Y,$$GETDATE^ICDGTDRG(DA)) I N<0!'$P(N,""^"",7) S DGER=1 Q"
^XMB(3.9,12,2,735,0)="""RTN"",""DGPTFJC"",94,0)"
^XMB(3.9,12,2,736,0)=" S L=0 F  S L=$O(^DGCPT(46,L)) Q:L'>0  I +$G(^(L,1))=DGPRD,$P(^(1),U,3)=PTF,+^(0)=Y,'$G(^(9)) S DGER=1 Q"
^XMB(3.9,12,2,737,0)="""RTN"",""DGPTFJC"",95,0)"
^XMB(3.9,12,2,738,0)=" K L Q"
^XMB(3.9,12,2,739,0)="""VER"")"
^XMB(3.9,12,2,740,0)="8.0^22.0"
^XMB(3.9,12,2,741,0)="""BLD"",6723,6)"
^XMB(3.9,12,2,742,0)="^627"
^XMB(3.9,12,2,743,0)="$END KID DG*5.3*701"
^XMB(3.9,12,6,0)="^3.911A^2^2"
^XMB(3.9,12,6,1,0)="POSTMASTER"
^XMB(3.9,12,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,12,6,"B","POSTMASTER",1)=""
^XMB(3.9,12,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,13,0)="DG-5P3_SEQ-628_PAT-699.KID^.5^3061008.015731^^^^K"
^XMB(3.9,13,.6)="3061008"
^XMB(3.9,13,1,0)="^3.91A^2^2"
^XMB(3.9,13,1,1,0)=".5^0^3061008.015731^^^^^^^3061008.015731"
^XMB(3.9,13,1,2,0)="1^0^3061008.022734^^^^^^^3061008.022734"
^XMB(3.9,13,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,13,1,"C",.5,1)=""
^XMB(3.9,13,1,"C",1,2)=""
^XMB(3.9,13,2,0)="^^1071^1071^3061008"
^XMB(3.9,13,2,1,0)="$TXT Released DG*5.3*699 SEQ #628"
^XMB(3.9,13,2,2,0)="Extracted from mail message"
^XMB(3.9,13,2,3,0)="$END TXT"
^XMB(3.9,13,2,4,0)="$KID DG*5.3*699"
^XMB(3.9,13,2,5,0)="**INSTALL NAME**"
^XMB(3.9,13,2,6,0)="DG*5.3*699"
^XMB(3.9,13,2,7,0)="""BLD"",6649,0)"
^XMB(3.9,13,2,8,0)="DG*5.3*699^REGISTRATION^0^3060517^y"
^XMB(3.9,13,2,9,0)="""BLD"",6649,1,0)"
^XMB(3.9,13,2,10,0)="^^2^2^3060310^"
^XMB(3.9,13,2,11,0)="""BLD"",6649,1,1,0)"
^XMB(3.9,13,2,12,0)="This patch allows the patient security check to account for proxy users,"
^XMB(3.9,13,2,13,0)="""BLD"",6649,1,2,0)"
^XMB(3.9,13,2,14,0)="and protects a system variable before displaying patient record flags."
^XMB(3.9,13,2,15,0)="""BLD"",6649,4,0)"
^XMB(3.9,13,2,16,0)="^9.64PA^^"
^XMB(3.9,13,2,17,0)="""BLD"",6649,""KRN"",0)"
^XMB(3.9,13,2,18,0)="^9.67PA^8989.52^19"
^XMB(3.9,13,2,19,0)="""BLD"",6649,""KRN"",.4,0)"
^XMB(3.9,13,2,20,0)=".4"
^XMB(3.9,13,2,21,0)="""BLD"",6649,""KRN"",.401,0)"
^XMB(3.9,13,2,22,0)=".401"
^XMB(3.9,13,2,23,0)="""BLD"",6649,""KRN"",.402,0)"
^XMB(3.9,13,2,24,0)=".402"
^XMB(3.9,13,2,25,0)="""BLD"",6649,""KRN"",.403,0)"
^XMB(3.9,13,2,26,0)=".403"
^XMB(3.9,13,2,27,0)="""BLD"",6649,""KRN"",.5,0)"
^XMB(3.9,13,2,28,0)=".5"
^XMB(3.9,13,2,29,0)="""BLD"",6649,""KRN"",.84,0)"
^XMB(3.9,13,2,30,0)=".84"
^XMB(3.9,13,2,31,0)="""BLD"",6649,""KRN"",3.6,0)"
^XMB(3.9,13,2,32,0)="3.6"
^XMB(3.9,13,2,33,0)="""BLD"",6649,""KRN"",3.8,0)"
^XMB(3.9,13,2,34,0)="3.8"
^XMB(3.9,13,2,35,0)="""BLD"",6649,""KRN"",9.2,0)"
^XMB(3.9,13,2,36,0)="9.2"
^XMB(3.9,13,2,37,0)="""BLD"",6649,""KRN"",9.8,0)"
^XMB(3.9,13,2,38,0)="9.8"
^XMB(3.9,13,2,39,0)="""BLD"",6649,""KRN"",9.8,""NM"",0)"
^XMB(3.9,13,2,40,0)="^9.68A^2^2"
^XMB(3.9,13,2,41,0)="""BLD"",6649,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,13,2,42,0)="DGPFAPI^^0^B32207494"
^XMB(3.9,13,2,43,0)="""BLD"",6649,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,13,2,44,0)="DGSEC4^^0^B43657348"
^XMB(3.9,13,2,45,0)="""BLD"",6649,""KRN"",9.8,""NM"",""B"",""DGPFAPI"",1)"
^XMB(3.9,13,2,46,0)=""
^XMB(3.9,13,2,47,0)="""BLD"",6649,""KRN"",9.8,""NM"",""B"",""DGSEC4"",2)"
^XMB(3.9,13,2,48,0)=""
^XMB(3.9,13,2,49,0)="""BLD"",6649,""KRN"",19,0)"
^XMB(3.9,13,2,50,0)="19"
^XMB(3.9,13,2,51,0)="""BLD"",6649,""KRN"",19.1,0)"
^XMB(3.9,13,2,52,0)="19.1"
^XMB(3.9,13,2,53,0)="""BLD"",6649,""KRN"",101,0)"
^XMB(3.9,13,2,54,0)="101"
^XMB(3.9,13,2,55,0)="""BLD"",6649,""KRN"",409.61,0)"
^XMB(3.9,13,2,56,0)="409.61"
^XMB(3.9,13,2,57,0)="""BLD"",6649,""KRN"",771,0)"
^XMB(3.9,13,2,58,0)="771"
^XMB(3.9,13,2,59,0)="""BLD"",6649,""KRN"",870,0)"
^XMB(3.9,13,2,60,0)="870"
^XMB(3.9,13,2,61,0)="""BLD"",6649,""KRN"",8989.51,0)"
^XMB(3.9,13,2,62,0)="8989.51"
^XMB(3.9,13,2,63,0)="""BLD"",6649,""KRN"",8989.52,0)"
^XMB(3.9,13,2,64,0)="8989.52"
^XMB(3.9,13,2,65,0)="""BLD"",6649,""KRN"",8994,0)"
^XMB(3.9,13,2,66,0)="8994"
^XMB(3.9,13,2,67,0)="""BLD"",6649,""KRN"",""B"",.4,.4)"
^XMB(3.9,13,2,68,0)=""
^XMB(3.9,13,2,69,0)="""BLD"",6649,""KRN"",""B"",.401,.401)"
^XMB(3.9,13,2,70,0)=""
^XMB(3.9,13,2,71,0)="""BLD"",6649,""KRN"",""B"",.402,.402)"
^XMB(3.9,13,2,72,0)=""
^XMB(3.9,13,2,73,0)="""BLD"",6649,""KRN"",""B"",.403,.403)"
^XMB(3.9,13,2,74,0)=""
^XMB(3.9,13,2,75,0)="""BLD"",6649,""KRN"",""B"",.5,.5)"
^XMB(3.9,13,2,76,0)=""
^XMB(3.9,13,2,77,0)="""BLD"",6649,""KRN"",""B"",.84,.84)"
^XMB(3.9,13,2,78,0)=""
^XMB(3.9,13,2,79,0)="""BLD"",6649,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,13,2,80,0)=""
^XMB(3.9,13,2,81,0)="""BLD"",6649,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,13,2,82,0)=""
^XMB(3.9,13,2,83,0)="""BLD"",6649,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,13,2,84,0)=""
^XMB(3.9,13,2,85,0)="""BLD"",6649,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,13,2,86,0)=""
^XMB(3.9,13,2,87,0)="""BLD"",6649,""KRN"",""B"",19,19)"
^XMB(3.9,13,2,88,0)=""
^XMB(3.9,13,2,89,0)="""BLD"",6649,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,13,2,90,0)=""
^XMB(3.9,13,2,91,0)="""BLD"",6649,""KRN"",""B"",101,101)"
^XMB(3.9,13,2,92,0)=""
^XMB(3.9,13,2,93,0)="""BLD"",6649,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,13,2,94,0)=""
^XMB(3.9,13,2,95,0)="""BLD"",6649,""KRN"",""B"",771,771)"
^XMB(3.9,13,2,96,0)=""
^XMB(3.9,13,2,97,0)="""BLD"",6649,""KRN"",""B"",870,870)"
^XMB(3.9,13,2,98,0)=""
^XMB(3.9,13,2,99,0)="""BLD"",6649,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,13,2,100,0)=""
^XMB(3.9,13,2,101,0)="""BLD"",6649,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,13,2,102,0)=""
^XMB(3.9,13,2,103,0)="""BLD"",6649,""KRN"",""B"",8994,8994)"
^XMB(3.9,13,2,104,0)=""
^XMB(3.9,13,2,105,0)="""BLD"",6649,""QUES"",0)"
^XMB(3.9,13,2,106,0)="^9.62^^"
^XMB(3.9,13,2,107,0)="""BLD"",6649,""REQB"",0)"
^XMB(3.9,13,2,108,0)="^9.611^3^2"
^XMB(3.9,13,2,109,0)="""BLD"",6649,""REQB"",2,0)"
^XMB(3.9,13,2,110,0)="DG*5.3*684^1"
^XMB(3.9,13,2,111,0)="""BLD"",6649,""REQB"",3,0)"
^XMB(3.9,13,2,112,0)="DG*5.3*554^1"
^XMB(3.9,13,2,113,0)="""BLD"",6649,""REQB"",""B"",""DG*5.3*554"",3)"
^XMB(3.9,13,2,114,0)=""
^XMB(3.9,13,2,115,0)="""BLD"",6649,""REQB"",""B"",""DG*5.3*684"",2)"
^XMB(3.9,13,2,116,0)=""
^XMB(3.9,13,2,117,0)="""MBREQ"")"
^XMB(3.9,13,2,118,0)="0"
^XMB(3.9,13,2,119,0)="""PKG"",5,-1)"
^XMB(3.9,13,2,120,0)="1^1"
^XMB(3.9,13,2,121,0)="""PKG"",5,0)"
^XMB(3.9,13,2,122,0)="REGISTRATION^DG^PATIENT REGISTRATION, ADMISSION, DISCHARGE, EMBOSSER "
^XMB(3.9,13,2,123,0)="""PKG"",5,20,0)"
^XMB(3.9,13,2,124,0)="^9.402P^^"
^XMB(3.9,13,2,125,0)="""PKG"",5,22,0)"
^XMB(3.9,13,2,126,0)="^9.49I^1^1"
^XMB(3.9,13,2,127,0)="""PKG"",5,22,1,0)"
^XMB(3.9,13,2,128,0)="5.3^2930813"
^XMB(3.9,13,2,129,0)="""PKG"",5,22,1,""PAH"",1,0)"
^XMB(3.9,13,2,130,0)="699^3060517"
^XMB(3.9,13,2,131,0)="""PKG"",5,22,1,""PAH"",1,1,0)"
^XMB(3.9,13,2,132,0)="^^2^2^3060517"
^XMB(3.9,13,2,133,0)="""PKG"",5,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,13,2,134,0)="This patch allows the patient security check to account for proxy users,"
^XMB(3.9,13,2,135,0)="""PKG"",5,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,13,2,136,0)="and protects a system variable before displaying patient record flags."
^XMB(3.9,13,2,137,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,13,2,138,0)="Y"
^XMB(3.9,13,2,139,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,13,2,140,0)="^D REP^XPDH"
^XMB(3.9,13,2,141,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,13,2,142,0)="Shall I write over your |FLAG| File"
^XMB(3.9,13,2,143,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,13,2,144,0)="YES"
^XMB(3.9,13,2,145,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,13,2,146,0)="D XPF1^XPDIQ"
^XMB(3.9,13,2,147,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,13,2,148,0)="Y"
^XMB(3.9,13,2,149,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,13,2,150,0)="^D DTA^XPDH"
^XMB(3.9,13,2,151,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,13,2,152,0)="Want my data |FLAG| yours"
^XMB(3.9,13,2,153,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,13,2,154,0)="YES"
^XMB(3.9,13,2,155,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,13,2,156,0)="D XPF2^XPDIQ"
^XMB(3.9,13,2,157,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,13,2,158,0)="YO"
^XMB(3.9,13,2,159,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,13,2,160,0)="^D INHIBIT^XPDH"
^XMB(3.9,13,2,161,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,13,2,162,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,13,2,163,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,13,2,164,0)="YES"
^XMB(3.9,13,2,165,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,13,2,166,0)="D XPI1^XPDIQ"
^XMB(3.9,13,2,167,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,13,2,168,0)="PO^VA(200,:EM"
^XMB(3.9,13,2,169,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,13,2,170,0)="^D MG^XPDH"
^XMB(3.9,13,2,171,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,13,2,172,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,13,2,173,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,13,2,174,0)=""
^XMB(3.9,13,2,175,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,13,2,176,0)="D XPM1^XPDIQ"
^XMB(3.9,13,2,177,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,13,2,178,0)="Y"
^XMB(3.9,13,2,179,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,13,2,180,0)="^D MENU^XPDH"
^XMB(3.9,13,2,181,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,13,2,182,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,13,2,183,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,13,2,184,0)="YES"
^XMB(3.9,13,2,185,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,13,2,186,0)="D XPO1^XPDIQ"
^XMB(3.9,13,2,187,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,13,2,188,0)="Y"
^XMB(3.9,13,2,189,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,13,2,190,0)="^D OPT^XPDH"
^XMB(3.9,13,2,191,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,13,2,192,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,13,2,193,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,13,2,194,0)="YES"
^XMB(3.9,13,2,195,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,13,2,196,0)="D XPZ1^XPDIQ"
^XMB(3.9,13,2,197,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,13,2,198,0)="Y"
^XMB(3.9,13,2,199,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,13,2,200,0)="^D RTN^XPDH"
^XMB(3.9,13,2,201,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,13,2,202,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,13,2,203,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,13,2,204,0)="NO"
^XMB(3.9,13,2,205,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,13,2,206,0)="D XPZ2^XPDIQ"
^XMB(3.9,13,2,207,0)="""RTN"")"
^XMB(3.9,13,2,208,0)="2"
^XMB(3.9,13,2,209,0)="""RTN"",""DGPFAPI"")"
^XMB(3.9,13,2,210,0)="0^1^B32207494^B32121180"
^XMB(3.9,13,2,211,0)="""RTN"",""DGPFAPI"",1,0)"
^XMB(3.9,13,2,212,0)="DGPFAPI ;ALB/RBS - PRF EXTERNAL API'S ; 2/28/05 11:21am"
^XMB(3.9,13,2,213,0)="""RTN"",""DGPFAPI"",2,0)"
^XMB(3.9,13,2,214,0)=" ;;5.3;Registration;**425,554,699**;Aug 13, 1993"
^XMB(3.9,13,2,215,0)="""RTN"",""DGPFAPI"",3,0)"
^XMB(3.9,13,2,216,0)=" ;"
^XMB(3.9,13,2,217,0)="""RTN"",""DGPFAPI"",4,0)"
^XMB(3.9,13,2,218,0)=" Q  ;no direct entry"
^XMB(3.9,13,2,219,0)="""RTN"",""DGPFAPI"",5,0)"
^XMB(3.9,13,2,220,0)=" ;"
^XMB(3.9,13,2,221,0)="""RTN"",""DGPFAPI"",6,0)"
^XMB(3.9,13,2,222,0)="GETACT(DGDFN,DGPRF) ;Retrieve all ACTIVE Patient record flag assignments"
^XMB(3.9,13,2,223,0)="""RTN"",""DGPFAPI"",7,0)"
^XMB(3.9,13,2,224,0)=" ;The purpose of this API is to facilitate the retrieval of specific"
^XMB(3.9,13,2,225,0)="""RTN"",""DGPFAPI"",8,0)"
^XMB(3.9,13,2,226,0)=" ;data that can be used for the displaying of or the reporting of"
^XMB(3.9,13,2,227,0)="""RTN"",""DGPFAPI"",9,0)"
^XMB(3.9,13,2,228,0)=" ;only ACTIVE Patient Record Flag (PRF) Assignment information for"
^XMB(3.9,13,2,229,0)="""RTN"",""DGPFAPI"",10,0)"
^XMB(3.9,13,2,230,0)=" ;a patient."
^XMB(3.9,13,2,231,0)="""RTN"",""DGPFAPI"",11,0)"
^XMB(3.9,13,2,232,0)=" ;"
^XMB(3.9,13,2,233,0)="""RTN"",""DGPFAPI"",12,0)"
^XMB(3.9,13,2,234,0)=" ; Associated DBIA:  #3860 - DGPF PATIENT RECORD FLAG"
^XMB(3.9,13,2,235,0)="""RTN"",""DGPFAPI"",13,0)"
^XMB(3.9,13,2,236,0)=" ;"
^XMB(3.9,13,2,237,0)="""RTN"",""DGPFAPI"",14,0)"
^XMB(3.9,13,2,238,0)=" ;  Input:"
^XMB(3.9,13,2,239,0)="""RTN"",""DGPFAPI"",15,0)"
^XMB(3.9,13,2,240,0)=" ;   DGDFN - IEN of patient in the PATIENT (#2) file"
^XMB(3.9,13,2,241,0)="""RTN"",""DGPFAPI"",16,0)"
^XMB(3.9,13,2,242,0)=" ;   DGPRF - Closed Root array of return values"
^XMB(3.9,13,2,243,0)="""RTN"",""DGPFAPI"",17,0)"
^XMB(3.9,13,2,244,0)=" ;           [Optional-default DGPFAPI]"
^XMB(3.9,13,2,245,0)="""RTN"",""DGPFAPI"",18,0)"
^XMB(3.9,13,2,246,0)=" ;"
^XMB(3.9,13,2,247,0)="""RTN"",""DGPFAPI"",19,0)"
^XMB(3.9,13,2,248,0)=" ;  Output:"
^XMB(3.9,13,2,249,0)="""RTN"",""DGPFAPI"",20,0)"
^XMB(3.9,13,2,250,0)=" ;   Function result - ""0""  = No Active record flags for the patient"
^XMB(3.9,13,2,251,0)="""RTN"",""DGPFAPI"",21,0)"
^XMB(3.9,13,2,252,0)=" ;                   - ""nn"" = Total number of flags returned in array"
^XMB(3.9,13,2,253,0)="""RTN"",""DGPFAPI"",22,0)"
^XMB(3.9,13,2,254,0)=" ;     DGPRF() - Array, passed by closed root reference"
^XMB(3.9,13,2,255,0)="""RTN"",""DGPFAPI"",23,0)"
^XMB(3.9,13,2,256,0)=" ;             - Multiple subscripted array of Active flag information"
^XMB(3.9,13,2,257,0)="""RTN"",""DGPFAPI"",24,0)"
^XMB(3.9,13,2,258,0)=" ;               If the function call is successful, this array will"
^XMB(3.9,13,2,259,0)="""RTN"",""DGPFAPI"",25,0)"
^XMB(3.9,13,2,260,0)=" ;               contain each of the Active flag records."
^XMB(3.9,13,2,261,0)="""RTN"",""DGPFAPI"",26,0)"
^XMB(3.9,13,2,262,0)=" ;             - Subscript field value = internal value^external value"
^XMB(3.9,13,2,263,0)="""RTN"",""DGPFAPI"",27,0)"
^XMB(3.9,13,2,264,0)=" ;               2 piece string caret(^) delimited"
^XMB(3.9,13,2,265,0)="""RTN"",""DGPFAPI"",28,0)"
^XMB(3.9,13,2,266,0)=" ;   DGPFAPI() - Default array name if no name passed"
^XMB(3.9,13,2,267,0)="""RTN"",""DGPFAPI"",29,0)"
^XMB(3.9,13,2,268,0)=" ;"
^XMB(3.9,13,2,269,0)="""RTN"",""DGPFAPI"",30,0)"
^XMB(3.9,13,2,270,0)=" ;  Subscript   Field Name                Field #/File #"
^XMB(3.9,13,2,271,0)="""RTN"",""DGPFAPI"",31,0)"
^XMB(3.9,13,2,272,0)=" ;  ---------   ----------                --------------"
^XMB(3.9,13,2,273,0)="""RTN"",""DGPFAPI"",32,0)"
^XMB(3.9,13,2,274,0)=" ;  ""APPRVBY""   APPROVED BY               (.05)/(#26.14)"
^XMB(3.9,13,2,275,0)="""RTN"",""DGPFAPI"",33,0)"
^XMB(3.9,13,2,276,0)=" ;              (Note: The .5 (POSTMASTER) internal field value"
^XMB(3.9,13,2,277,0)="""RTN"",""DGPFAPI"",34,0)"
^XMB(3.9,13,2,278,0)=" ;               triggers an output transform that converts the"
^XMB(3.9,13,2,279,0)="""RTN"",""DGPFAPI"",35,0)"
^XMB(3.9,13,2,280,0)=" ;               external value of ""POSTMASTER"" to ""CHIEF OF STAFF""."
^XMB(3.9,13,2,281,0)="""RTN"",""DGPFAPI"",36,0)"
^XMB(3.9,13,2,282,0)=" ;  ""ASSIGNDT""  DATE/TIME                 (.02)/(#26.14)"
^XMB(3.9,13,2,283,0)="""RTN"",""DGPFAPI"",37,0)"
^XMB(3.9,13,2,284,0)=" ;  ""REVIEWDT""  REVIEW DATE               (.06)/(#26.13)"
^XMB(3.9,13,2,285,0)="""RTN"",""DGPFAPI"",38,0)"
^XMB(3.9,13,2,286,0)=" ;  ""FLAG""      FLAG NAME                 (.02)/(#26.13)"
^XMB(3.9,13,2,287,0)="""RTN"",""DGPFAPI"",39,0)"
^XMB(3.9,13,2,288,0)=" ;  ""FLAGTYPE""  TYPE                      (.03)/(#26.11 or #26.15)"
^XMB(3.9,13,2,289,0)="""RTN"",""DGPFAPI"",40,0)"
^XMB(3.9,13,2,290,0)=" ;  ""CATEGORY""  National or Local Flag    (#26.15) or (#26.11)"
^XMB(3.9,13,2,291,0)="""RTN"",""DGPFAPI"",41,0)"
^XMB(3.9,13,2,292,0)=" ;  ""OWNER""     OWNER SITE                (.04)/(#26.13)"
^XMB(3.9,13,2,293,0)="""RTN"",""DGPFAPI"",42,0)"
^XMB(3.9,13,2,294,0)=" ;  ""ORIGSITE""  ORIGINATING SITE          (.05)/(#26.13)"
^XMB(3.9,13,2,295,0)="""RTN"",""DGPFAPI"",43,0)"
^XMB(3.9,13,2,296,0)=" ;  ""TIUTITLE""  TIU PN TITLE              (.07)/(#26.11) or (#26.15)"
^XMB(3.9,13,2,297,0)="""RTN"",""DGPFAPI"",44,0)"
^XMB(3.9,13,2,298,0)=" ;  ""TIULINK""   TIU PN LINK               (.06)/(#26.14)"
^XMB(3.9,13,2,299,0)="""RTN"",""DGPFAPI"",45,0)"
^XMB(3.9,13,2,300,0)=" ;  ""NARR""      ASSIGNMENT NARRATIVE      (1)/(#26.13)"
^XMB(3.9,13,2,301,0)="""RTN"",""DGPFAPI"",46,0)"
^XMB(3.9,13,2,302,0)=" ;              (word-processing, multiple nodes)"
^XMB(3.9,13,2,303,0)="""RTN"",""DGPFAPI"",47,0)"
^XMB(3.9,13,2,304,0)=" ;              The format is in a word-processing value that may"
^XMB(3.9,13,2,305,0)="""RTN"",""DGPFAPI"",48,0)"
^XMB(3.9,13,2,306,0)=" ;              contain multiple nodes of text.  Each node of text"
^XMB(3.9,13,2,307,0)="""RTN"",""DGPFAPI"",49,0)"
^XMB(3.9,13,2,308,0)=" ;              will be less than 80 characters in length."
^XMB(3.9,13,2,309,0)="""RTN"",""DGPFAPI"",50,0)"
^XMB(3.9,13,2,310,0)=" ;              The format is as follows:"
^XMB(3.9,13,2,311,0)="""RTN"",""DGPFAPI"",51,0)"
^XMB(3.9,13,2,312,0)=" ;   TARGET_ROOT(nn,""NARR"",line#,0)=text"
^XMB(3.9,13,2,313,0)="""RTN"",""DGPFAPI"",52,0)"
^XMB(3.9,13,2,314,0)=" ;      where:"
^XMB(3.9,13,2,315,0)="""RTN"",""DGPFAPI"",53,0)"
^XMB(3.9,13,2,316,0)=" ;          nn = a unique number for each Flag"
^XMB(3.9,13,2,317,0)="""RTN"",""DGPFAPI"",54,0)"
^XMB(3.9,13,2,318,0)=" ;       line# = a unique number starting at 1 for each wp line"
^XMB(3.9,13,2,319,0)="""RTN"",""DGPFAPI"",55,0)"
^XMB(3.9,13,2,320,0)=" ;               of narrative text"
^XMB(3.9,13,2,321,0)="""RTN"",""DGPFAPI"",56,0)"
^XMB(3.9,13,2,322,0)=" ;           0 = standard subscript format for the nodes of a"
^XMB(3.9,13,2,323,0)="""RTN"",""DGPFAPI"",57,0)"
^XMB(3.9,13,2,324,0)=" ;               FileMan Word Processing field"
^XMB(3.9,13,2,325,0)="""RTN"",""DGPFAPI"",58,0)"
^XMB(3.9,13,2,326,0)=" ;"
^XMB(3.9,13,2,327,0)="""RTN"",""DGPFAPI"",59,0)"
^XMB(3.9,13,2,328,0)=" N DGPFTCNT  ;return results, ""0""=no flags, ""nn""=number of flags"
^XMB(3.9,13,2,329,0)="""RTN"",""DGPFAPI"",60,0)"
^XMB(3.9,13,2,330,0)=" N DGPFIENS  ;array of all active flag assignment IEN's"
^XMB(3.9,13,2,331,0)="""RTN"",""DGPFAPI"",61,0)"
^XMB(3.9,13,2,332,0)=" N DGPFIEN   ;ien of record flag assignment in (#26.13) file"
^XMB(3.9,13,2,333,0)="""RTN"",""DGPFAPI"",62,0)"
^XMB(3.9,13,2,334,0)=" N DGPFA     ;flag assignment array"
^XMB(3.9,13,2,335,0)="""RTN"",""DGPFAPI"",63,0)"
^XMB(3.9,13,2,336,0)=" N DGPFAH    ;flag assignment history array"
^XMB(3.9,13,2,337,0)="""RTN"",""DGPFAPI"",64,0)"
^XMB(3.9,13,2,338,0)=" N DGPFLAG   ;flag record array"
^XMB(3.9,13,2,339,0)="""RTN"",""DGPFAPI"",65,0)"
^XMB(3.9,13,2,340,0)=" N DGCAT     ;flag category"
^XMB(3.9,13,2,341,0)="""RTN"",""DGPFAPI"",66,0)"
^XMB(3.9,13,2,342,0)=" ;"
^XMB(3.9,13,2,343,0)="""RTN"",""DGPFAPI"",67,0)"
^XMB(3.9,13,2,344,0)=" Q:'$G(DGDFN) 0                            ;Quit, null parameter"
^XMB(3.9,13,2,345,0)="""RTN"",""DGPFAPI"",68,0)"
^XMB(3.9,13,2,346,0)=" Q:'$$GETALL^DGPFAA(DGDFN,.DGPFIENS,1) 0   ;Quit, no Active assign's"
^XMB(3.9,13,2,347,0)="""RTN"",""DGPFAPI"",69,0)"
^XMB(3.9,13,2,348,0)=" ;"
^XMB(3.9,13,2,349,0)="""RTN"",""DGPFAPI"",70,0)"
^XMB(3.9,13,2,350,0)=" S DGPRF=$G(DGPRF)"
^XMB(3.9,13,2,351,0)="""RTN"",""DGPFAPI"",71,0)"
^XMB(3.9,13,2,352,0)=" I DGPRF']"""" S DGPRF=""DGPFAPI""             ;setup default array name"
^XMB(3.9,13,2,353,0)="""RTN"",""DGPFAPI"",72,0)"
^XMB(3.9,13,2,354,0)=" ;"
^XMB(3.9,13,2,355,0)="""RTN"",""DGPFAPI"",73,0)"
^XMB(3.9,13,2,356,0)=" K @DGPRF                                  ;Kill/initialize work array"
^XMB(3.9,13,2,357,0)="""RTN"",""DGPFAPI"",74,0)"
^XMB(3.9,13,2,358,0)=" ;"
^XMB(3.9,13,2,359,0)="""RTN"",""DGPFAPI"",75,0)"
^XMB(3.9,13,2,360,0)=" S (DGPFIEN,DGCAT)="""",DGPFTCNT=0"
^XMB(3.9,13,2,361,0)="""RTN"",""DGPFAPI"",76,0)"
^XMB(3.9,13,2,362,0)=" ;"
^XMB(3.9,13,2,363,0)="""RTN"",""DGPFAPI"",77,0)"
^XMB(3.9,13,2,364,0)=" ; loop all returned Active Record Flag Assignment ien's"
^XMB(3.9,13,2,365,0)="""RTN"",""DGPFAPI"",78,0)"
^XMB(3.9,13,2,366,0)=" F  S DGPFIEN=$O(DGPFIENS(DGPFIEN)) Q:DGPFIEN=""""  D"
^XMB(3.9,13,2,367,0)="""RTN"",""DGPFAPI"",79,0)"
^XMB(3.9,13,2,368,0)=" . K DGPFA,DGPFAH,DGPFLAG"
^XMB(3.9,13,2,369,0)="""RTN"",""DGPFAPI"",80,0)"
^XMB(3.9,13,2,370,0)=" . ;"
^XMB(3.9,13,2,371,0)="""RTN"",""DGPFAPI"",81,0)"
^XMB(3.9,13,2,372,0)=" . ; retrieve single assignment record fields"
^XMB(3.9,13,2,373,0)="""RTN"",""DGPFAPI"",82,0)"
^XMB(3.9,13,2,374,0)=" . Q:'$$GETASGN^DGPFAA(DGPFIEN,.DGPFA)"
^XMB(3.9,13,2,375,0)="""RTN"",""DGPFAPI"",83,0)"
^XMB(3.9,13,2,376,0)=" . ;"
^XMB(3.9,13,2,377,0)="""RTN"",""DGPFAPI"",84,0)"
^XMB(3.9,13,2,378,0)=" . ; no patient DFN match"
^XMB(3.9,13,2,379,0)="""RTN"",""DGPFAPI"",85,0)"
^XMB(3.9,13,2,380,0)=" . I DGDFN'=$P(DGPFA(""DFN""),U) Q"
^XMB(3.9,13,2,381,0)="""RTN"",""DGPFAPI"",86,0)"
^XMB(3.9,13,2,382,0)=" . ;"
^XMB(3.9,13,2,383,0)="""RTN"",""DGPFAPI"",87,0)"
^XMB(3.9,13,2,384,0)=" . ; get initial assignment history"
^XMB(3.9,13,2,385,0)="""RTN"",""DGPFAPI"",88,0)"
^XMB(3.9,13,2,386,0)=" . Q:'$$GETHIST^DGPFAAH($$GETFIRST^DGPFAAH(DGPFIEN),.DGPFAH)"
^XMB(3.9,13,2,387,0)="""RTN"",""DGPFAPI"",89,0)"
^XMB(3.9,13,2,388,0)=" . ;"
^XMB(3.9,13,2,389,0)="""RTN"",""DGPFAPI"",90,0)"
^XMB(3.9,13,2,390,0)=" . ; get record flag record"
^XMB(3.9,13,2,391,0)="""RTN"",""DGPFAPI"",91,0)"
^XMB(3.9,13,2,392,0)=" . Q:'$$GETFLAG^DGPFUT1($P($G(DGPFA(""FLAG"")),U),.DGPFLAG)"
^XMB(3.9,13,2,393,0)="""RTN"",""DGPFAPI"",92,0)"
^XMB(3.9,13,2,394,0)=" . ;"
^XMB(3.9,13,2,395,0)="""RTN"",""DGPFAPI"",93,0)"
^XMB(3.9,13,2,396,0)=" . S DGPFTCNT=DGPFTCNT+1"
^XMB(3.9,13,2,397,0)="""RTN"",""DGPFAPI"",94,0)"
^XMB(3.9,13,2,398,0)=" . ;"
^XMB(3.9,13,2,399,0)="""RTN"",""DGPFAPI"",95,0)"
^XMB(3.9,13,2,400,0)=" . ; approved by user"
^XMB(3.9,13,2,401,0)="""RTN"",""DGPFAPI"",96,0)"
^XMB(3.9,13,2,402,0)=" . S @DGPRF@(DGPFTCNT,""APPRVBY"")=$G(DGPFAH(""APPRVBY""))"
^XMB(3.9,13,2,403,0)="""RTN"",""DGPFAPI"",97,0)"
^XMB(3.9,13,2,404,0)=" . ;"
^XMB(3.9,13,2,405,0)="""RTN"",""DGPFAPI"",98,0)"
^XMB(3.9,13,2,406,0)=" . ; initial assignment date/time"
^XMB(3.9,13,2,407,0)="""RTN"",""DGPFAPI"",99,0)"
^XMB(3.9,13,2,408,0)=" . S @DGPRF@(DGPFTCNT,""ASSIGNDT"")=$G(DGPFAH(""ASSIGNDT""))"
^XMB(3.9,13,2,409,0)="""RTN"",""DGPFAPI"",100,0)"
^XMB(3.9,13,2,410,0)=" . ;"
^XMB(3.9,13,2,411,0)="""RTN"",""DGPFAPI"",101,0)"
^XMB(3.9,13,2,412,0)=" . ; next review due date"
^XMB(3.9,13,2,413,0)="""RTN"",""DGPFAPI"",102,0)"
^XMB(3.9,13,2,414,0)=" . S @DGPRF@(DGPFTCNT,""REVIEWDT"")=$G(DGPFA(""REVIEWDT""))"
^XMB(3.9,13,2,415,0)="""RTN"",""DGPFAPI"",103,0)"
^XMB(3.9,13,2,416,0)=" . ;"
^XMB(3.9,13,2,417,0)="""RTN"",""DGPFAPI"",104,0)"
^XMB(3.9,13,2,418,0)=" . ; record flag name"
^XMB(3.9,13,2,419,0)="""RTN"",""DGPFAPI"",105,0)"
^XMB(3.9,13,2,420,0)=" . S @DGPRF@(DGPFTCNT,""FLAG"")=$G(DGPFA(""FLAG""))"
^XMB(3.9,13,2,421,0)="""RTN"",""DGPFAPI"",106,0)"
^XMB(3.9,13,2,422,0)=" . ;"
^XMB(3.9,13,2,423,0)="""RTN"",""DGPFAPI"",107,0)"
^XMB(3.9,13,2,424,0)=" . ; record flag type"
^XMB(3.9,13,2,425,0)="""RTN"",""DGPFAPI"",108,0)"
^XMB(3.9,13,2,426,0)=" . S @DGPRF@(DGPFTCNT,""FLAGTYPE"")=$G(DGPFLAG(""TYPE""))"
^XMB(3.9,13,2,427,0)="""RTN"",""DGPFAPI"",109,0)"
^XMB(3.9,13,2,428,0)=" . ;"
^XMB(3.9,13,2,429,0)="""RTN"",""DGPFAPI"",110,0)"
^XMB(3.9,13,2,430,0)=" . ; category of flag - I (NATIONAL) or II (LOCAL)"
^XMB(3.9,13,2,431,0)="""RTN"",""DGPFAPI"",111,0)"
^XMB(3.9,13,2,432,0)=" . S DGCAT=$S($G(DGPFA(""FLAG""))[""26.15"":""I (NATIONAL)"",1:""II (LOCAL)"")"
^XMB(3.9,13,2,433,0)="""RTN"",""DGPFAPI"",112,0)"
^XMB(3.9,13,2,434,0)=" . S @DGPRF@(DGPFTCNT,""CATEGORY"")=DGCAT_U_DGCAT"
^XMB(3.9,13,2,435,0)="""RTN"",""DGPFAPI"",113,0)"
^XMB(3.9,13,2,436,0)=" . ;"
^XMB(3.9,13,2,437,0)="""RTN"",""DGPFAPI"",114,0)"
^XMB(3.9,13,2,438,0)=" . ; owner site"
^XMB(3.9,13,2,439,0)="""RTN"",""DGPFAPI"",115,0)"
^XMB(3.9,13,2,440,0)=" . S @DGPRF@(DGPFTCNT,""OWNER"")=$G(DGPFA(""OWNER""))"
^XMB(3.9,13,2,441,0)="""RTN"",""DGPFAPI"",116,0)"
^XMB(3.9,13,2,442,0)=" . ;"
^XMB(3.9,13,2,443,0)="""RTN"",""DGPFAPI"",117,0)"
^XMB(3.9,13,2,444,0)=" . ; originating site"
^XMB(3.9,13,2,445,0)="""RTN"",""DGPFAPI"",118,0)"
^XMB(3.9,13,2,446,0)=" . S @DGPRF@(DGPFTCNT,""ORIGSITE"")=$G(DGPFA(""ORIGSITE""))"
^XMB(3.9,13,2,447,0)="""RTN"",""DGPFAPI"",119,0)"
^XMB(3.9,13,2,448,0)=" . ;"
^XMB(3.9,13,2,449,0)="""RTN"",""DGPFAPI"",120,0)"
^XMB(3.9,13,2,450,0)=" . ; only add TIU Progress Note subscripts if owner site of assignment"
^XMB(3.9,13,2,451,0)="""RTN"",""DGPFAPI"",121,0)"
^XMB(3.9,13,2,452,0)=" . I $P($$SITE^VASITE,U)=$P(DGPFA(""OWNER""),U) D"
^XMB(3.9,13,2,453,0)="""RTN"",""DGPFAPI"",122,0)"
^XMB(3.9,13,2,454,0)=" . . ; get last history record (most current)"
^XMB(3.9,13,2,455,0)="""RTN"",""DGPFAPI"",123,0)"
^XMB(3.9,13,2,456,0)=" . . K DGPFAH"
^XMB(3.9,13,2,457,0)="""RTN"",""DGPFAPI"",124,0)"
^XMB(3.9,13,2,458,0)=" . . Q:'$$GETHIST^DGPFAAH($$GETLAST^DGPFAAH(DGPFIEN),.DGPFAH)"
^XMB(3.9,13,2,459,0)="""RTN"",""DGPFAPI"",125,0)"
^XMB(3.9,13,2,460,0)=" . . ;"
^XMB(3.9,13,2,461,0)="""RTN"",""DGPFAPI"",126,0)"
^XMB(3.9,13,2,462,0)=" . . ; flag associated TIU PN Title"
^XMB(3.9,13,2,463,0)="""RTN"",""DGPFAPI"",127,0)"
^XMB(3.9,13,2,464,0)=" . . S @DGPRF@(DGPFTCNT,""TIUTITLE"")=$G(DGPFLAG(""TIUTITLE""))"
^XMB(3.9,13,2,465,0)="""RTN"",""DGPFAPI"",128,0)"
^XMB(3.9,13,2,466,0)=" . . ;"
^XMB(3.9,13,2,467,0)="""RTN"",""DGPFAPI"",129,0)"
^XMB(3.9,13,2,468,0)=" . . ; assignment history TIU PN Link"
^XMB(3.9,13,2,469,0)="""RTN"",""DGPFAPI"",130,0)"
^XMB(3.9,13,2,470,0)=" . . S @DGPRF@(DGPFTCNT,""TIULINK"")=$G(DGPFAH(""TIULINK""))"
^XMB(3.9,13,2,471,0)="""RTN"",""DGPFAPI"",131,0)"
^XMB(3.9,13,2,472,0)=" . ;"
^XMB(3.9,13,2,473,0)="""RTN"",""DGPFAPI"",132,0)"
^XMB(3.9,13,2,474,0)=" . ; narrative"
^XMB(3.9,13,2,475,0)="""RTN"",""DGPFAPI"",133,0)"
^XMB(3.9,13,2,476,0)=" . I '$D(DGPFA(""NARR"",1,0)) D  Q  ;should never happen - but -"
^XMB(3.9,13,2,477,0)="""RTN"",""DGPFAPI"",134,0)"
^XMB(3.9,13,2,478,0)=" . . S @DGPRF@(DGPFTCNT,""NARR"",1,0)=""No Narrative Text"""
^XMB(3.9,13,2,479,0)="""RTN"",""DGPFAPI"",135,0)"
^XMB(3.9,13,2,480,0)=" . ;"
^XMB(3.9,13,2,481,0)="""RTN"",""DGPFAPI"",136,0)"
^XMB(3.9,13,2,482,0)=" . M @DGPRF@(DGPFTCNT,""NARR"")=DGPFA(""NARR"")"
^XMB(3.9,13,2,483,0)="""RTN"",""DGPFAPI"",137,0)"
^XMB(3.9,13,2,484,0)=" ;"
^XMB(3.9,13,2,485,0)="""RTN"",""DGPFAPI"",138,0)"
^XMB(3.9,13,2,486,0)=" ; Re-Sort Active flags by category & alpha flag name"
^XMB(3.9,13,2,487,0)="""RTN"",""DGPFAPI"",139,0)"
^XMB(3.9,13,2,488,0)=" I +$G(DGPFTCNT)>1 D"
^XMB(3.9,13,2,489,0)="""RTN"",""DGPFAPI"",140,0)"
^XMB(3.9,13,2,490,0)=" . I $$SORT^DGPFUT2(DGPRF)  ;naked IF to just do resort"
^XMB(3.9,13,2,491,0)="""RTN"",""DGPFAPI"",141,0)"
^XMB(3.9,13,2,492,0)=" ;"
^XMB(3.9,13,2,493,0)="""RTN"",""DGPFAPI"",142,0)"
^XMB(3.9,13,2,494,0)=" Q DGPFTCNT"
^XMB(3.9,13,2,495,0)="""RTN"",""DGPFAPI"",143,0)"
^XMB(3.9,13,2,496,0)=" ;"
^XMB(3.9,13,2,497,0)="""RTN"",""DGPFAPI"",144,0)"
^XMB(3.9,13,2,498,0)="PRFQRY(DGDFN) ;query the CMOR for all patient record flag assignments"
^XMB(3.9,13,2,499,0)="""RTN"",""DGPFAPI"",145,0)"
^XMB(3.9,13,2,500,0)=" ;This function queries a given patient's Coordinated Master of Record"
^XMB(3.9,13,2,501,0)="""RTN"",""DGPFAPI"",146,0)"
^XMB(3.9,13,2,502,0)=" ;(CMOR) site to retrieve all patient record flag assignments for the"
^XMB(3.9,13,2,503,0)="""RTN"",""DGPFAPI"",147,0)"
^XMB(3.9,13,2,504,0)=" ;patient.  The function will only succeed when the QRY HL7 interface"
^XMB(3.9,13,2,505,0)="""RTN"",""DGPFAPI"",148,0)"
^XMB(3.9,13,2,506,0)=" ;is enabled, the patient has a national Integrated Control Number"
^XMB(3.9,13,2,507,0)="""RTN"",""DGPFAPI"",149,0)"
^XMB(3.9,13,2,508,0)=" ;(ICN), the patient's CMOR is not the local site and the HL7 query"
^XMB(3.9,13,2,509,0)="""RTN"",""DGPFAPI"",150,0)"
^XMB(3.9,13,2,510,0)=" ;receives an ACK from the CMOR site."
^XMB(3.9,13,2,511,0)="""RTN"",""DGPFAPI"",151,0)"
^XMB(3.9,13,2,512,0)=" ;"
^XMB(3.9,13,2,513,0)="""RTN"",""DGPFAPI"",152,0)"
^XMB(3.9,13,2,514,0)=" ;  Input:"
^XMB(3.9,13,2,515,0)="""RTN"",""DGPFAPI"",153,0)"
^XMB(3.9,13,2,516,0)=" ;    DGDFN - pointer to patient in PATIENT (#2) file"
^XMB(3.9,13,2,517,0)="""RTN"",""DGPFAPI"",154,0)"
^XMB(3.9,13,2,518,0)=" ;"
^XMB(3.9,13,2,519,0)="""RTN"",""DGPFAPI"",155,0)"
^XMB(3.9,13,2,520,0)=" ;  Output:"
^XMB(3.9,13,2,521,0)="""RTN"",""DGPFAPI"",156,0)"
^XMB(3.9,13,2,522,0)=" ;   Function value - 1 on success, 0 on failure"
^XMB(3.9,13,2,523,0)="""RTN"",""DGPFAPI"",157,0)"
^XMB(3.9,13,2,524,0)=" ;"
^XMB(3.9,13,2,525,0)="""RTN"",""DGPFAPI"",158,0)"
^XMB(3.9,13,2,526,0)=" N DGRSLT"
^XMB(3.9,13,2,527,0)="""RTN"",""DGPFAPI"",159,0)"
^XMB(3.9,13,2,528,0)=" N DGQRY"
^XMB(3.9,13,2,529,0)="""RTN"",""DGPFAPI"",160,0)"
^XMB(3.9,13,2,530,0)=" ;"
^XMB(3.9,13,2,531,0)="""RTN"",""DGPFAPI"",161,0)"
^XMB(3.9,13,2,532,0)=" S DGRSLT=0"
^XMB(3.9,13,2,533,0)="""RTN"",""DGPFAPI"",162,0)"
^XMB(3.9,13,2,534,0)=" ;"
^XMB(3.9,13,2,535,0)="""RTN"",""DGPFAPI"",163,0)"
^XMB(3.9,13,2,536,0)=" S DGQRY=+$$QRYON^DGPFPARM()"
^XMB(3.9,13,2,537,0)="""RTN"",""DGPFAPI"",164,0)"
^XMB(3.9,13,2,538,0)=" I DGQRY D"
^XMB(3.9,13,2,539,0)="""RTN"",""DGPFAPI"",165,0)"
^XMB(3.9,13,2,540,0)=" . S DGRSLT=$$SNDQRY^DGPFHLS(DGDFN,DGQRY)"
^XMB(3.9,13,2,541,0)="""RTN"",""DGPFAPI"",166,0)"
^XMB(3.9,13,2,542,0)=" ;"
^XMB(3.9,13,2,543,0)="""RTN"",""DGPFAPI"",167,0)"
^XMB(3.9,13,2,544,0)=" Q DGRSLT"
^XMB(3.9,13,2,545,0)="""RTN"",""DGPFAPI"",168,0)"
^XMB(3.9,13,2,546,0)=" ;"
^XMB(3.9,13,2,547,0)="""RTN"",""DGPFAPI"",169,0)"
^XMB(3.9,13,2,548,0)="DISPPRF(DGDFN) ;display active patient record flag assignments"
^XMB(3.9,13,2,549,0)="""RTN"",""DGPFAPI"",170,0)"
^XMB(3.9,13,2,550,0)=" ;This procedure performs a lookup for active patient record flag"
^XMB(3.9,13,2,551,0)="""RTN"",""DGPFAPI"",171,0)"
^XMB(3.9,13,2,552,0)=" ;assignments for a given patient and formats the assignment data for"
^XMB(3.9,13,2,553,0)="""RTN"",""DGPFAPI"",172,0)"
^XMB(3.9,13,2,554,0)=" ;roll-and-scroll display."
^XMB(3.9,13,2,555,0)="""RTN"",""DGPFAPI"",173,0)"
^XMB(3.9,13,2,556,0)=" ;"
^XMB(3.9,13,2,557,0)="""RTN"",""DGPFAPI"",174,0)"
^XMB(3.9,13,2,558,0)=" ;  Input:"
^XMB(3.9,13,2,559,0)="""RTN"",""DGPFAPI"",175,0)"
^XMB(3.9,13,2,560,0)=" ;    DGDFN - pointer to patient in PATIENT (#2) file"
^XMB(3.9,13,2,561,0)="""RTN"",""DGPFAPI"",176,0)"
^XMB(3.9,13,2,562,0)=" ;"
^XMB(3.9,13,2,563,0)="""RTN"",""DGPFAPI"",177,0)"
^XMB(3.9,13,2,564,0)=" ;  Output:"
^XMB(3.9,13,2,565,0)="""RTN"",""DGPFAPI"",178,0)"
^XMB(3.9,13,2,566,0)=" ;    none"
^XMB(3.9,13,2,567,0)="""RTN"",""DGPFAPI"",179,0)"
^XMB(3.9,13,2,568,0)=" ;"
^XMB(3.9,13,2,569,0)="""RTN"",""DGPFAPI"",180,0)"
^XMB(3.9,13,2,570,0)=" Q:'$D(XQY0)"
^XMB(3.9,13,2,571,0)="""RTN"",""DGPFAPI"",181,0)"
^XMB(3.9,13,2,572,0)=" Q:$P(XQY0,U)=""DGPF RECORD FLAG ASSIGNMENT"""
^XMB(3.9,13,2,573,0)="""RTN"",""DGPFAPI"",182,0)"
^XMB(3.9,13,2,574,0)=" ;"
^XMB(3.9,13,2,575,0)="""RTN"",""DGPFAPI"",183,0)"
^XMB(3.9,13,2,576,0)=" ;protect Kernel IO variables"
^XMB(3.9,13,2,577,0)="""RTN"",""DGPFAPI"",184,0)"
^XMB(3.9,13,2,578,0)=" N IOBM,IOBOFF,IOBON,IOEDEOP,IOINHI,IOINORM,IORC,IORVOFF,IORVON,IOIL"
^XMB(3.9,13,2,579,0)="""RTN"",""DGPFAPI"",185,0)"
^XMB(3.9,13,2,580,0)=" N IOSC,IOSGRO,IOSTBM,IOTM,IOUOFF,IOUON"
^XMB(3.9,13,2,581,0)="""RTN"",""DGPFAPI"",186,0)"
^XMB(3.9,13,2,582,0)=" ;"
^XMB(3.9,13,2,583,0)="""RTN"",""DGPFAPI"",187,0)"
^XMB(3.9,13,2,584,0)=" ;protect ListMan variables"
^XMB(3.9,13,2,585,0)="""RTN"",""DGPFAPI"",188,0)"
^XMB(3.9,13,2,586,0)=" N VALM,VALMAR,VALMBCK,VALMBG,VALMCAP,VALMCC,VALMCNT,VALMCOFF,VALMCON"
^XMB(3.9,13,2,587,0)="""RTN"",""DGPFAPI"",189,0)"
^XMB(3.9,13,2,588,0)=" N VALMDDF,VALMDN,VALMEVL,VALMHDR,VALMIOXY,VALMKEY,VALMLFT,VALMLST"
^XMB(3.9,13,2,589,0)="""RTN"",""DGPFAPI"",190,0)"
^XMB(3.9,13,2,590,0)=" N VALMMENU,VALMPGE,VALMSGR,VALMUP,VALMWD"
^XMB(3.9,13,2,591,0)="""RTN"",""DGPFAPI"",191,0)"
^XMB(3.9,13,2,592,0)=" ;"
^XMB(3.9,13,2,593,0)="""RTN"",""DGPFAPI"",192,0)"
^XMB(3.9,13,2,594,0)=" ;protect Unwinder variables"
^XMB(3.9,13,2,595,0)="""RTN"",""DGPFAPI"",193,0)"
^XMB(3.9,13,2,596,0)=" N ORU,ORUDA,ORUER,ORUFD,ORUFG,ORUSB,ORUSQ,ORUSV,ORUT,ORUW,ORUX"
^XMB(3.9,13,2,597,0)="""RTN"",""DGPFAPI"",194,0)"
^XMB(3.9,13,2,598,0)=" N XQORM"
^XMB(3.9,13,2,599,0)="""RTN"",""DGPFAPI"",195,0)"
^XMB(3.9,13,2,600,0)=" ;"
^XMB(3.9,13,2,601,0)="""RTN"",""DGPFAPI"",196,0)"
^XMB(3.9,13,2,602,0)=" ; protect original Listman VALM DATA global"
^XMB(3.9,13,2,603,0)="""RTN"",""DGPFAPI"",197,0)"
^XMB(3.9,13,2,604,0)=" K ^TMP($J,""DGPFVALM DATA"")"
^XMB(3.9,13,2,605,0)="""RTN"",""DGPFAPI"",198,0)"
^XMB(3.9,13,2,606,0)=" M ^TMP($J,""DGPFVALM DATA"")=^TMP(""VALM DATA"",$J)"
^XMB(3.9,13,2,607,0)="""RTN"",""DGPFAPI"",199,0)"
^XMB(3.9,13,2,608,0)=" ;"
^XMB(3.9,13,2,609,0)="""RTN"",""DGPFAPI"",200,0)"
^XMB(3.9,13,2,610,0)=" D DISPPRF^DGPFUT1(DGDFN)"
^XMB(3.9,13,2,611,0)="""RTN"",""DGPFAPI"",201,0)"
^XMB(3.9,13,2,612,0)=" ;"
^XMB(3.9,13,2,613,0)="""RTN"",""DGPFAPI"",202,0)"
^XMB(3.9,13,2,614,0)=" ; restore original Listman VALM DATA global"
^XMB(3.9,13,2,615,0)="""RTN"",""DGPFAPI"",203,0)"
^XMB(3.9,13,2,616,0)=" M ^TMP(""VALM DATA"",$J)=^TMP($J,""DGPFVALM DATA"")"
^XMB(3.9,13,2,617,0)="""RTN"",""DGPFAPI"",204,0)"
^XMB(3.9,13,2,618,0)=" ;"
^XMB(3.9,13,2,619,0)="""RTN"",""DGPFAPI"",205,0)"
^XMB(3.9,13,2,620,0)=" K ^TMP($J,""DGPFVALM DATA"")"
^XMB(3.9,13,2,621,0)="""RTN"",""DGPFAPI"",206,0)"
^XMB(3.9,13,2,622,0)=" Q"
^XMB(3.9,13,2,623,0)="""RTN"",""DGSEC4"")"
^XMB(3.9,13,2,624,0)="0^2^B43657348^B41969635"
^XMB(3.9,13,2,625,0)="""RTN"",""DGSEC4"",1,0)"
^XMB(3.9,13,2,626,0)="DGSEC4 ;ALB/MM,JAP - Utilities for record access & sensitive record processing;10/6/99 ; 10/26/05 12:46pm"
^XMB(3.9,13,2,627,0)="""RTN"",""DGSEC4"",2,0)"
^XMB(3.9,13,2,628,0)=" ;;5.3;Registration;**249,281,391,471,684,699**;Aug 13, 1993"
^XMB(3.9,13,2,629,0)="""RTN"",""DGSEC4"",3,0)"
^XMB(3.9,13,2,630,0)=" ;"
^XMB(3.9,13,2,631,0)="""RTN"",""DGSEC4"",4,0)"
^XMB(3.9,13,2,632,0)=" ;Line tags OWNREC & SENS moved from DGSEC in DG*5.3*249 when DGSEC "
^XMB(3.9,13,2,633,0)="""RTN"",""DGSEC4"",5,0)"
^XMB(3.9,13,2,634,0)=" ;reached the maximum routine size."
^XMB(3.9,13,2,635,0)="""RTN"",""DGSEC4"",6,0)"
^XMB(3.9,13,2,636,0)=" ;"
^XMB(3.9,13,2,637,0)="""RTN"",""DGSEC4"",7,0)"
^XMB(3.9,13,2,638,0)="PTSEC(RESULT,DFN,DGMSG,DGOPT) ;RPC/API entry point for patient sensitive & record access checks"
^XMB(3.9,13,2,639,0)="""RTN"",""DGSEC4"",8,0)"
^XMB(3.9,13,2,640,0)=" ;Output array (Required)"
^XMB(3.9,13,2,641,0)="""RTN"",""DGSEC4"",9,0)"
^XMB(3.9,13,2,642,0)=" ;    RESULT(1)= -1-RPC/API failed"
^XMB(3.9,13,2,643,0)="""RTN"",""DGSEC4"",10,0)"
^XMB(3.9,13,2,644,0)=" ;                  Required variable not defined"
^XMB(3.9,13,2,645,0)="""RTN"",""DGSEC4"",11,0)"
^XMB(3.9,13,2,646,0)=" ;                0-No display/action required"
^XMB(3.9,13,2,647,0)="""RTN"",""DGSEC4"",12,0)"
^XMB(3.9,13,2,648,0)=" ;                  Not accessing own, employee, or sensitive record"
^XMB(3.9,13,2,649,0)="""RTN"",""DGSEC4"",13,0)"
^XMB(3.9,13,2,650,0)=" ;                1-Display warning message"
^XMB(3.9,13,2,651,0)="""RTN"",""DGSEC4"",14,0)"
^XMB(3.9,13,2,652,0)=" ;                  Sensitive and DG SENSITIVITY key holder"
^XMB(3.9,13,2,653,0)="""RTN"",""DGSEC4"",15,0)"
^XMB(3.9,13,2,654,0)=" ;                  or Employee and DG SECURITY OFFICER key holder"
^XMB(3.9,13,2,655,0)="""RTN"",""DGSEC4"",16,0)"
^XMB(3.9,13,2,656,0)=" ;                2-Display warning message/require OK to continue"
^XMB(3.9,13,2,657,0)="""RTN"",""DGSEC4"",17,0)"
^XMB(3.9,13,2,658,0)=" ;                  Sensitive and not a DG SENSITIVITY key holder"
^XMB(3.9,13,2,659,0)="""RTN"",""DGSEC4"",18,0)"
^XMB(3.9,13,2,660,0)=" ;                  Employee and not a DG SECURITY OFFICER key holder"
^XMB(3.9,13,2,661,0)="""RTN"",""DGSEC4"",19,0)"
^XMB(3.9,13,2,662,0)=" ;                3-Access to record denied"
^XMB(3.9,13,2,663,0)="""RTN"",""DGSEC4"",20,0)"
^XMB(3.9,13,2,664,0)=" ;                  Accessing own record"
^XMB(3.9,13,2,665,0)="""RTN"",""DGSEC4"",21,0)"
^XMB(3.9,13,2,666,0)=" ;                4-Access to Patient (#2) file records denied"
^XMB(3.9,13,2,667,0)="""RTN"",""DGSEC4"",22,0)"
^XMB(3.9,13,2,668,0)=" ;                  SSN not defined"
^XMB(3.9,13,2,669,0)="""RTN"",""DGSEC4"",23,0)"
^XMB(3.9,13,2,670,0)=" ;   RESULT(2-10) = error or display messages"
^XMB(3.9,13,2,671,0)="""RTN"",""DGSEC4"",24,0)"
^XMB(3.9,13,2,672,0)=" ;"
^XMB(3.9,13,2,673,0)="""RTN"",""DGSEC4"",25,0)"
^XMB(3.9,13,2,674,0)=" ;Input parameters: DFN = Patient file entry (Required)"
^XMB(3.9,13,2,675,0)="""RTN"",""DGSEC4"",26,0)"
^XMB(3.9,13,2,676,0)=" ;                  DGMSG = If 1, generate message (optional)"
^XMB(3.9,13,2,677,0)="""RTN"",""DGSEC4"",27,0)"
^XMB(3.9,13,2,678,0)=" ;                  DGOPT  = Option name^Menu text (Optional)"
^XMB(3.9,13,2,679,0)="""RTN"",""DGSEC4"",28,0)"
^XMB(3.9,13,2,680,0)=" ;"
^XMB(3.9,13,2,681,0)="""RTN"",""DGSEC4"",29,0)"
^XMB(3.9,13,2,682,0)=" K RESULT"
^XMB(3.9,13,2,683,0)="""RTN"",""DGSEC4"",30,0)"
^XMB(3.9,13,2,684,0)=" I $G(DFN)="""" D  Q"
^XMB(3.9,13,2,685,0)="""RTN"",""DGSEC4"",31,0)"
^XMB(3.9,13,2,686,0)=" .S RESULT(1)=-1"
^XMB(3.9,13,2,687,0)="""RTN"",""DGSEC4"",32,0)"
^XMB(3.9,13,2,688,0)=" .S RESULT(2)=""Required variable missing."""
^XMB(3.9,13,2,689,0)="""RTN"",""DGSEC4"",33,0)"
^XMB(3.9,13,2,690,0)=" S DGMSG=$G(DGMSG)"
^XMB(3.9,13,2,691,0)="""RTN"",""DGSEC4"",34,0)"
^XMB(3.9,13,2,692,0)=" D OWNREC(.RESULT,DFN,$G(DUZ),DGMSG)"
^XMB(3.9,13,2,693,0)="""RTN"",""DGSEC4"",35,0)"
^XMB(3.9,13,2,694,0)=" I RESULT(1)=1 S RESULT(1)=3 Q"
^XMB(3.9,13,2,695,0)="""RTN"",""DGSEC4"",36,0)"
^XMB(3.9,13,2,696,0)=" I RESULT(1)=2 S RESULT(1)=4 Q"
^XMB(3.9,13,2,697,0)="""RTN"",""DGSEC4"",37,0)"
^XMB(3.9,13,2,698,0)=" K RESULT"
^XMB(3.9,13,2,699,0)="""RTN"",""DGSEC4"",38,0)"
^XMB(3.9,13,2,700,0)=" D SENS(.RESULT,DFN,$G(DUZ))"
^XMB(3.9,13,2,701,0)="""RTN"",""DGSEC4"",39,0)"
^XMB(3.9,13,2,702,0)=" I RESULT(1)=1 D"
^XMB(3.9,13,2,703,0)="""RTN"",""DGSEC4"",40,0)"
^XMB(3.9,13,2,704,0)=" .I $G(DUZ)="""" D  Q"
^XMB(3.9,13,2,705,0)="""RTN"",""DGSEC4"",41,0)"
^XMB(3.9,13,2,706,0)=" ..;DUZ must be defined to access sensitive record & update DG Security log"
^XMB(3.9,13,2,707,0)="""RTN"",""DGSEC4"",42,0)"
^XMB(3.9,13,2,708,0)=" ..S RESULT(1)=-1"
^XMB(3.9,13,2,709,0)="""RTN"",""DGSEC4"",43,0)"
^XMB(3.9,13,2,710,0)=" ..S RESULT(2)=""Your user code is undefined.  This must be defined to access a restricted patient record."""
^XMB(3.9,13,2,711,0)="""RTN"",""DGSEC4"",44,0)"
^XMB(3.9,13,2,712,0)=" .D SETLOG1^DGSEC(DFN,DUZ,,$G(DGOPT))"
^XMB(3.9,13,2,713,0)="""RTN"",""DGSEC4"",45,0)"
^XMB(3.9,13,2,714,0)=" Q"
^XMB(3.9,13,2,715,0)="""RTN"",""DGSEC4"",46,0)"
^XMB(3.9,13,2,716,0)="NOTICE(RESULT,DFN,DGOPT,ACTION) ;RPC/API entry point for log entry and message generation"
^XMB(3.9,13,2,717,0)="""RTN"",""DGSEC4"",47,0)"
^XMB(3.9,13,2,718,0)=" ;Input parameters:  "
^XMB(3.9,13,2,719,0)="""RTN"",""DGSEC4"",48,0)"
^XMB(3.9,13,2,720,0)=" ;  DFN    = Patient file DFN"
^XMB(3.9,13,2,721,0)="""RTN"",""DGSEC4"",49,0)"
^XMB(3.9,13,2,722,0)=" ;  DGOPT  = Option name^Menu text (Optional)"
^XMB(3.9,13,2,723,0)="""RTN"",""DGSEC4"",50,0)"
^XMB(3.9,13,2,724,0)=" ;  ACTION = 1 - Set DG Security Log entry, 2 - Generate mail "
^XMB(3.9,13,2,725,0)="""RTN"",""DGSEC4"",51,0)"
^XMB(3.9,13,2,726,0)=" ;           message, 3 - Both (Optional - Defaults to both)"
^XMB(3.9,13,2,727,0)="""RTN"",""DGSEC4"",52,0)"
^XMB(3.9,13,2,728,0)=" ;"
^XMB(3.9,13,2,729,0)="""RTN"",""DGSEC4"",53,0)"
^XMB(3.9,13,2,730,0)=" ;Output:  RESULT = 1 - DG Security Log updated and/or Sensitive Record msg sent (Determined by ACTION value)"
^XMB(3.9,13,2,731,0)="""RTN"",""DGSEC4"",54,0)"
^XMB(3.9,13,2,732,0)=" ;                  0 - Required variable undefined"
^XMB(3.9,13,2,733,0)="""RTN"",""DGSEC4"",55,0)"
^XMB(3.9,13,2,734,0)=" ;"
^XMB(3.9,13,2,735,0)="""RTN"",""DGSEC4"",56,0)"
^XMB(3.9,13,2,736,0)=" I $G(DFN)="""" S RESULT=0 Q"
^XMB(3.9,13,2,737,0)="""RTN"",""DGSEC4"",57,0)"
^XMB(3.9,13,2,738,0)=" I $G(DUZ)="""" S RESULT=0 Q"
^XMB(3.9,13,2,739,0)="""RTN"",""DGSEC4"",58,0)"
^XMB(3.9,13,2,740,0)=" S DGOPT=$G(DGOPT)"
^XMB(3.9,13,2,741,0)="""RTN"",""DGSEC4"",59,0)"
^XMB(3.9,13,2,742,0)=" I $G(ACTION)="""" S ACTION=3"
^XMB(3.9,13,2,743,0)="""RTN"",""DGSEC4"",60,0)"
^XMB(3.9,13,2,744,0)=" I ACTION'=1 D BULTIN1^DGSEC(DFN,DUZ,DGOPT)"
^XMB(3.9,13,2,745,0)="""RTN"",""DGSEC4"",61,0)"
^XMB(3.9,13,2,746,0)=" I ACTION'=2 D SETLOG1^DGSEC(DFN,DUZ,,DGOPT)"
^XMB(3.9,13,2,747,0)="""RTN"",""DGSEC4"",62,0)"
^XMB(3.9,13,2,748,0)=" S RESULT=1"
^XMB(3.9,13,2,749,0)="""RTN"",""DGSEC4"",63,0)"
^XMB(3.9,13,2,750,0)=" Q"
^XMB(3.9,13,2,751,0)="""RTN"",""DGSEC4"",64,0)"
^XMB(3.9,13,2,752,0)=" ;"
^XMB(3.9,13,2,753,0)="""RTN"",""DGSEC4"",65,0)"
^XMB(3.9,13,2,754,0)="OWNREC(DGREC,DFN,DGDUZ,DGMSG,DGNEWPT,DGPTSSN) ;Determine if user accessing his/her own Patient file (#2) record"
^XMB(3.9,13,2,755,0)="""RTN"",""DGSEC4"",66,0)"
^XMB(3.9,13,2,756,0)=" ;Input:"
^XMB(3.9,13,2,757,0)="""RTN"",""DGSEC4"",67,0)"
^XMB(3.9,13,2,758,0)=" ; DGREC - Array name passed by reference"
^XMB(3.9,13,2,759,0)="""RTN"",""DGSEC4"",68,0)"
^XMB(3.9,13,2,760,0)=" ; DFN - Patient (#2) file IEN"
^XMB(3.9,13,2,761,0)="""RTN"",""DGSEC4"",69,0)"
^XMB(3.9,13,2,762,0)=" ; DGDUZ - New Person (#200) file IEN (Not required. If not sent will return 0.)"
^XMB(3.9,13,2,763,0)="""RTN"",""DGSEC4"",70,0)"
^XMB(3.9,13,2,764,0)=" ; DGMSG - If 1, generate message (Optional) Will default to 1"
^XMB(3.9,13,2,765,0)="""RTN"",""DGSEC4"",71,0)"
^XMB(3.9,13,2,766,0)=" ; DGNEWPT - Set to 1 when adding a new entry to the Patient file"
^XMB(3.9,13,2,767,0)="""RTN"",""DGSEC4"",72,0)"
^XMB(3.9,13,2,768,0)=" ; DGPTSSN - new patient's SSN"
^XMB(3.9,13,2,769,0)="""RTN"",""DGSEC4"",73,0)"
^XMB(3.9,13,2,770,0)=" ;   DGNEWPT & DGPTSSN parameters only defined if DPTLK is adding"
^XMB(3.9,13,2,771,0)="""RTN"",""DGSEC4"",74,0)"
^XMB(3.9,13,2,772,0)=" ;   a new Patient (#2) file entry  "
^XMB(3.9,13,2,773,0)="""RTN"",""DGSEC4"",75,0)"
^XMB(3.9,13,2,774,0)=" ;"
^XMB(3.9,13,2,775,0)="""RTN"",""DGSEC4"",76,0)"
^XMB(3.9,13,2,776,0)=" ;Output:"
^XMB(3.9,13,2,777,0)="""RTN"",""DGSEC4"",77,0)"
^XMB(3.9,13,2,778,0)=" ; DGREC(1)=0 - Not attempting to access own Patient (#2) file record, "
^XMB(3.9,13,2,779,0)="""RTN"",""DGSEC4"",78,0)"
^XMB(3.9,13,2,780,0)=" ;            DUZ not defined, RESTRICT PATIENT RECORD ACCESS parameter"
^XMB(3.9,13,2,781,0)="""RTN"",""DGSEC4"",79,0)"
^XMB(3.9,13,2,782,0)=" ;            in MAS Parameters (#43) file not set to yes, or user holds"
^XMB(3.9,13,2,783,0)="""RTN"",""DGSEC4"",80,0)"
^XMB(3.9,13,2,784,0)=" ;            DG RECORD ACCESS security key."
^XMB(3.9,13,2,785,0)="""RTN"",""DGSEC4"",81,0)"
^XMB(3.9,13,2,786,0)=" ;         =1 - Attempting to access own Patient file record"
^XMB(3.9,13,2,787,0)="""RTN"",""DGSEC4"",82,0)"
^XMB(3.9,13,2,788,0)=" ;         =2 - SSN undefined"
^XMB(3.9,13,2,789,0)="""RTN"",""DGSEC4"",83,0)"
^XMB(3.9,13,2,790,0)=" ;         =-1 - Required variable not defined."
^XMB(3.9,13,2,791,0)="""RTN"",""DGSEC4"",84,0)"
^XMB(3.9,13,2,792,0)=" ; Other nodes in array will contain error message text."
^XMB(3.9,13,2,793,0)="""RTN"",""DGSEC4"",85,0)"
^XMB(3.9,13,2,794,0)=" ;"
^XMB(3.9,13,2,795,0)="""RTN"",""DGSEC4"",86,0)"
^XMB(3.9,13,2,796,0)=" ;DFN required"
^XMB(3.9,13,2,797,0)="""RTN"",""DGSEC4"",87,0)"
^XMB(3.9,13,2,798,0)=" I '$D(DFN),($G(DGNEWPT)'=1) D  Q"
^XMB(3.9,13,2,799,0)="""RTN"",""DGSEC4"",88,0)"
^XMB(3.9,13,2,800,0)=" .S DGREC(1)=-1"
^XMB(3.9,13,2,801,0)="""RTN"",""DGSEC4"",89,0)"
^XMB(3.9,13,2,802,0)=" .S DGREC(2)=""DFN not defined."""
^XMB(3.9,13,2,803,0)="""RTN"",""DGSEC4"",90,0)"
^XMB(3.9,13,2,804,0)=" S DGREC(1)=0"
^XMB(3.9,13,2,805,0)="""RTN"",""DGSEC4"",91,0)"
^XMB(3.9,13,2,806,0)=" ;Check if parameter is on"
^XMB(3.9,13,2,807,0)="""RTN"",""DGSEC4"",92,0)"
^XMB(3.9,13,2,808,0)=" I +$P($G(^DG(43,1,""REC"")),U)=0 Q"
^XMB(3.9,13,2,809,0)="""RTN"",""DGSEC4"",93,0)"
^XMB(3.9,13,2,810,0)=" N DGNPSSN"
^XMB(3.9,13,2,811,0)="""RTN"",""DGSEC4"",94,0)"
^XMB(3.9,13,2,812,0)=" ;I $D(DUZ)=0 Q"
^XMB(3.9,13,2,813,0)="""RTN"",""DGSEC4"",95,0)"
^XMB(3.9,13,2,814,0)=" I (+$G(DGDUZ))<1 Q"
^XMB(3.9,13,2,815,0)="""RTN"",""DGSEC4"",96,0)"
^XMB(3.9,13,2,816,0)=" ;Check if user holds security key"
^XMB(3.9,13,2,817,0)="""RTN"",""DGSEC4"",97,0)"
^XMB(3.9,13,2,818,0)=" I $D(^XUSEC(""DG RECORD ACCESS"",DGDUZ)) Q"
^XMB(3.9,13,2,819,0)="""RTN"",""DGSEC4"",98,0)"
^XMB(3.9,13,2,820,0)=" I $G(DGMSG)="""" S DGMSG=1"
^XMB(3.9,13,2,821,0)="""RTN"",""DGSEC4"",99,0)"
^XMB(3.9,13,2,822,0)=" N DGNPERR"
^XMB(3.9,13,2,823,0)="""RTN"",""DGSEC4"",100,0)"
^XMB(3.9,13,2,824,0)=" ; quit if user is a proxy user, i.e., not a real person"
^XMB(3.9,13,2,825,0)="""RTN"",""DGSEC4"",101,0)"
^XMB(3.9,13,2,826,0)=" I $$ACTIVE^XUSAP(DGDUZ),$$USERTYPE^XUSAP(DGDUZ,""CONNECTOR PROXY"")!($$USERTYPE^XUSAP(DGDUZ,""APPLICATION PROXY"")) Q"
^XMB(3.9,13,2,827,0)="""RTN"",""DGSEC4"",102,0)"
^XMB(3.9,13,2,828,0)=" S DGNPSSN=$$GET1^DIQ(200,DGDUZ_"","",9,""I"","""",""DGNPERR"")"
^XMB(3.9,13,2,829,0)="""RTN"",""DGSEC4"",103,0)"
^XMB(3.9,13,2,830,0)=" I 'DGNPSSN D  Q"
^XMB(3.9,13,2,831,0)="""RTN"",""DGSEC4"",104,0)"
^XMB(3.9,13,2,832,0)=" .S DGREC(1)=2"
^XMB(3.9,13,2,833,0)="""RTN"",""DGSEC4"",105,0)"
^XMB(3.9,13,2,834,0)=" .S DGREC(2)=""Your SSN is missing from the NEW PERSON file.  Contact your ADP Coordinator."""
^XMB(3.9,13,2,835,0)="""RTN"",""DGSEC4"",106,0)"
^XMB(3.9,13,2,836,0)=" .;Only send message if parameter set to 1"
^XMB(3.9,13,2,837,0)="""RTN"",""DGSEC4"",107,0)"
^XMB(3.9,13,2,838,0)=" .I DGMSG=1 D MSG(DGDUZ)"
^XMB(3.9,13,2,839,0)="""RTN"",""DGSEC4"",108,0)"
^XMB(3.9,13,2,840,0)=" I +$G(DGNEWPT)'=1 S DGPTSSN=$P($G(^DPT(DFN,0)),U,9)"
^XMB(3.9,13,2,841,0)="""RTN"",""DGSEC4"",109,0)"
^XMB(3.9,13,2,842,0)=" I +$G(DGNEWPT)=1 S DGPTSSN=$TR(DGPTSSN,""-"","""")"
^XMB(3.9,13,2,843,0)="""RTN"",""DGSEC4"",110,0)"
^XMB(3.9,13,2,844,0)=" I DGNPSSN=DGPTSSN D  Q"
^XMB(3.9,13,2,845,0)="""RTN"",""DGSEC4"",111,0)"
^XMB(3.9,13,2,846,0)=" .S DGREC(1)=1"
^XMB(3.9,13,2,847,0)="""RTN"",""DGSEC4"",112,0)"
^XMB(3.9,13,2,848,0)=" .S DGREC(2)=""Security regulations prohibit computer access to your own medical record."""
^XMB(3.9,13,2,849,0)="""RTN"",""DGSEC4"",113,0)"
^XMB(3.9,13,2,850,0)=" Q"
^XMB(3.9,13,2,851,0)="""RTN"",""DGSEC4"",114,0)"
^XMB(3.9,13,2,852,0)="MSG(DGDUZ) ;Send Missing SSN in New Person file message to mailgroup"
^XMB(3.9,13,2,853,0)="""RTN"",""DGSEC4"",115,0)"
^XMB(3.9,13,2,854,0)=" ;Input:  DGDUZ - New Person (#200) file IEN (Required)"
^XMB(3.9,13,2,855,0)="""RTN"",""DGSEC4"",116,0)"
^XMB(3.9,13,2,856,0)=" ;"
^XMB(3.9,13,2,857,0)="""RTN"",""DGSEC4"",117,0)"
^XMB(3.9,13,2,858,0)=" N DGNPERR,DGNPNAME,DGTEXT,XMCHAN,XMDUZ,XMSUB,XMTEXT,XMY,XMZ"
^XMB(3.9,13,2,859,0)="""RTN"",""DGSEC4"",118,0)"
^XMB(3.9,13,2,860,0)=" S DGNPNAME=$$GET1^DIQ(200,DGDUZ_"","",.01,"""",""DGNPERR"")"
^XMB(3.9,13,2,861,0)="""RTN"",""DGSEC4"",119,0)"
^XMB(3.9,13,2,862,0)=" S XMSUB=""MISSING SSN IN NEW PERSON FILE"""
^XMB(3.9,13,2,863,0)="""RTN"",""DGSEC4"",120,0)"
^XMB(3.9,13,2,864,0)=" S DGTEXT(1)=""The following NEW PERSON record does not contain a Social Security Number."""
^XMB(3.9,13,2,865,0)="""RTN"",""DGSEC4"",121,0)"
^XMB(3.9,13,2,866,0)=" S DGTEXT(2)=""This is required to access PATIENT file entries."""
^XMB(3.9,13,2,867,0)="""RTN"",""DGSEC4"",122,0)"
^XMB(3.9,13,2,868,0)=" S DGTEXT(3)="""""
^XMB(3.9,13,2,869,0)="""RTN"",""DGSEC4"",123,0)"
^XMB(3.9,13,2,870,0)=" S DGTEXT(4)=$S(DGNPNAME'="""":DGNPNAME,1:""UNKNOWN"")"
^XMB(3.9,13,2,871,0)="""RTN"",""DGSEC4"",124,0)"
^XMB(3.9,13,2,872,0)=" S DGTEXT(5)=""NEW PERSON (#200) File Internal Entry Number (DUZ):  ""_+DGDUZ"
^XMB(3.9,13,2,873,0)="""RTN"",""DGSEC4"",125,0)"
^XMB(3.9,13,2,874,0)=" S DGTEXT(6)="""""
^XMB(3.9,13,2,875,0)="""RTN"",""DGSEC4"",126,0)"
^XMB(3.9,13,2,876,0)=" S DGTEXT(7)=""This message has been sent to DG MISSING NEW PERSON SSN mail group."""
^XMB(3.9,13,2,877,0)="""RTN"",""DGSEC4"",127,0)"
^XMB(3.9,13,2,878,0)=" S DGTEXT(8)=""Please take appropriate action."""
^XMB(3.9,13,2,879,0)="""RTN"",""DGSEC4"",128,0)"
^XMB(3.9,13,2,880,0)=" S XMTEXT=""DGTEXT("""
^XMB(3.9,13,2,881,0)="""RTN"",""DGSEC4"",129,0)"
^XMB(3.9,13,2,882,0)=" S XMDUZ=$S(DGNPNAME'="""":DGNPNAME,1:.5)"
^XMB(3.9,13,2,883,0)="""RTN"",""DGSEC4"",130,0)"
^XMB(3.9,13,2,884,0)=" S XMY(""G.DG MISSING NEW PERSON SSN"")="""""
^XMB(3.9,13,2,885,0)="""RTN"",""DGSEC4"",131,0)"
^XMB(3.9,13,2,886,0)=" S XMCHAN=1"
^XMB(3.9,13,2,887,0)="""RTN"",""DGSEC4"",132,0)"
^XMB(3.9,13,2,888,0)=" D ^XMD"
^XMB(3.9,13,2,889,0)="""RTN"",""DGSEC4"",133,0)"
^XMB(3.9,13,2,890,0)=" Q"
^XMB(3.9,13,2,891,0)="""RTN"",""DGSEC4"",134,0)"
^XMB(3.9,13,2,892,0)="SENS(DGSENS,DFN,DGDUZ,DDS,DGSENFLG) ;Determine if sensitive record"
^XMB(3.9,13,2,893,0)="""RTN"",""DGSEC4"",135,0)"
^XMB(3.9,13,2,894,0)=" ;Input:"
^XMB(3.9,13,2,895,0)="""RTN"",""DGSEC4"",136,0)"
^XMB(3.9,13,2,896,0)=" ;  DGSENS - Array name passed by reference"
^XMB(3.9,13,2,897,0)="""RTN"",""DGSEC4"",137,0)"
^XMB(3.9,13,2,898,0)=" ;  DFN - Patient (#2) file IEN (Required)"
^XMB(3.9,13,2,899,0)="""RTN"",""DGSEC4"",138,0)"
^XMB(3.9,13,2,900,0)=" ;  DGDUZ - New Person (#200) file IEN"
^XMB(3.9,13,2,901,0)="""RTN"",""DGSEC4"",139,0)"
^XMB(3.9,13,2,902,0)=" ;  DDS - Screenman variable"
^XMB(3.9,13,2,903,0)="""RTN"",""DGSEC4"",140,0)"
^XMB(3.9,13,2,904,0)=" ;  DGSENFLG - If defined, patient record sensitivity not checked"
^XMB(3.9,13,2,905,0)="""RTN"",""DGSEC4"",141,0)"
^XMB(3.9,13,2,906,0)=" ;"
^XMB(3.9,13,2,907,0)="""RTN"",""DGSEC4"",142,0)"
^XMB(3.9,13,2,908,0)=" ;Output:"
^XMB(3.9,13,2,909,0)="""RTN"",""DGSEC4"",143,0)"
^XMB(3.9,13,2,910,0)=" ;  DGSENS(1)=0 - Record is not sensitive or DGSENFLG set"
^XMB(3.9,13,2,911,0)="""RTN"",""DGSEC4"",144,0)"
^XMB(3.9,13,2,912,0)=" ;           =1 - Sensitive record and user holds DG SENSITIVITY key"
^XMB(3.9,13,2,913,0)="""RTN"",""DGSEC4"",145,0)"
^XMB(3.9,13,2,914,0)=" ;              - Employee and user holds DG SECURITY OFFICER key"
^XMB(3.9,13,2,915,0)="""RTN"",""DGSEC4"",146,0)"
^XMB(3.9,13,2,916,0)=" ;           =2 - Sensitive record and user does not hold key"
^XMB(3.9,13,2,917,0)="""RTN"",""DGSEC4"",147,0)"
^XMB(3.9,13,2,918,0)=" ;              - Employee and user does not hold key"
^XMB(3.9,13,2,919,0)="""RTN"",""DGSEC4"",148,0)"
^XMB(3.9,13,2,920,0)=" ;           =-1 - Required input variable not defined"
^XMB(3.9,13,2,921,0)="""RTN"",""DGSEC4"",149,0)"
^XMB(3.9,13,2,922,0)=" ;  If 1, 2 or -1, array will contain error/display message"
^XMB(3.9,13,2,923,0)="""RTN"",""DGSEC4"",150,0)"
^XMB(3.9,13,2,924,0)=" ;"
^XMB(3.9,13,2,925,0)="""RTN"",""DGSEC4"",151,0)"
^XMB(3.9,13,2,926,0)=" N DGMSG,DGA1,DG1,DGDATE,DGLNE,DGT,DGTIME,DGEMPLEE"
^XMB(3.9,13,2,927,0)="""RTN"",""DGSEC4"",152,0)"
^XMB(3.9,13,2,928,0)=" ;Patient file DFN must be defined."
^XMB(3.9,13,2,929,0)="""RTN"",""DGSEC4"",153,0)"
^XMB(3.9,13,2,930,0)=" I '$D(DFN) D  Q "
^XMB(3.9,13,2,931,0)="""RTN"",""DGSEC4"",154,0)"
^XMB(3.9,13,2,932,0)=" .S DGSENS(1)=-1"
^XMB(3.9,13,2,933,0)="""RTN"",""DGSEC4"",155,0)"
^XMB(3.9,13,2,934,0)=" .S DGSENS(2)=""DFN not defined."""
^XMB(3.9,13,2,935,0)="""RTN"",""DGSEC4"",156,0)"
^XMB(3.9,13,2,936,0)=" S DGSENS(1)=0"
^XMB(3.9,13,2,937,0)="""RTN"",""DGSEC4"",157,0)"
^XMB(3.9,13,2,938,0)=" I $D(DGSENFLG) Q"
^XMB(3.9,13,2,939,0)="""RTN"",""DGSEC4"",158,0)"
^XMB(3.9,13,2,940,0)=" ;Determine if patient is employee"
^XMB(3.9,13,2,941,0)="""RTN"",""DGSEC4"",159,0)"
^XMB(3.9,13,2,942,0)=" S DGEMPLEE=$$EMPL(DFN)"
^XMB(3.9,13,2,943,0)="""RTN"",""DGSEC4"",160,0)"
^XMB(3.9,13,2,944,0)=" ;Quit if not an employee & not found in DG Security Log file"
^XMB(3.9,13,2,945,0)="""RTN"",""DGSEC4"",161,0)"
^XMB(3.9,13,2,946,0)=" I 'DGEMPLEE,('$D(^DGSL(38.1,+DFN,0))) Q"
^XMB(3.9,13,2,947,0)="""RTN"",""DGSEC4"",162,0)"
^XMB(3.9,13,2,948,0)=" ;Quit if not an employee and not flagged as sensitive"
^XMB(3.9,13,2,949,0)="""RTN"",""DGSEC4"",163,0)"
^XMB(3.9,13,2,950,0)=" I 'DGEMPLEE,($P($G(^DGSL(38.1,+DFN,0)),U,2)'=1) Q"
^XMB(3.9,13,2,951,0)="""RTN"",""DGSEC4"",164,0)"
^XMB(3.9,13,2,952,0)=" ;DUZ & user name must be defined"
^XMB(3.9,13,2,953,0)="""RTN"",""DGSEC4"",165,0)"
^XMB(3.9,13,2,954,0)=" S DGMSG=$S('$G(DGDUZ):""user code"",'$D(^VA(200,DGDUZ,0)):""user name"",1:"""")"
^XMB(3.9,13,2,955,0)="""RTN"",""DGSEC4"",166,0)"
^XMB(3.9,13,2,956,0)=" I DGMSG'="""" D  Q"
^XMB(3.9,13,2,957,0)="""RTN"",""DGSEC4"",167,0)"
^XMB(3.9,13,2,958,0)=" .S DGSENS(1)=-1"
^XMB(3.9,13,2,959,0)="""RTN"",""DGSEC4"",168,0)"
^XMB(3.9,13,2,960,0)=" .S DGSENS(2)=""Your ""_DGMSG_"" is undefined.  This must be defined to access"""
^XMB(3.9,13,2,961,0)="""RTN"",""DGSEC4"",169,0)"
^XMB(3.9,13,2,962,0)=" .S DGSENS(3)="" a restricted patient record."""
^XMB(3.9,13,2,963,0)="""RTN"",""DGSEC4"",170,0)"
^XMB(3.9,13,2,964,0)=" S DGSENS(1)=1"
^XMB(3.9,13,2,965,0)="""RTN"",""DGSEC4"",171,0)"
^XMB(3.9,13,2,966,0)=" ;Inpatient check - no longer used (kept for future reference)"
^XMB(3.9,13,2,967,0)="""RTN"",""DGSEC4"",172,0)"
^XMB(3.9,13,2,968,0)=" ;D H^DGUTL S DGT=DGTIME D ^DGPMSTAT"
^XMB(3.9,13,2,969,0)="""RTN"",""DGSEC4"",173,0)"
^XMB(3.9,13,2,970,0)=" S DGSENS(2)=""***WARNING***"""
^XMB(3.9,13,2,971,0)="""RTN"",""DGSEC4"",174,0)"
^XMB(3.9,13,2,972,0)=" I $G(DDS)'="""" S DGSENS(2)=DGSENS(2)_""  ***RESTRICTED RECORD***"""
^XMB(3.9,13,2,973,0)="""RTN"",""DGSEC4"",175,0)"
^XMB(3.9,13,2,974,0)=" I $G(DDS)="""" S DGSENS(3)=""***RESTRICTED RECORD***"""
^XMB(3.9,13,2,975,0)="""RTN"",""DGSEC4"",176,0)"
^XMB(3.9,13,2,976,0)=" I DGEMPLEE,('$D(^XUSEC(""DG SECURITY OFFICER"",+$G(DGDUZ)))) D  Q"
^XMB(3.9,13,2,977,0)="""RTN"",""DGSEC4"",177,0)"
^XMB(3.9,13,2,978,0)=" .S DGSENS(1)=2"
^XMB(3.9,13,2,979,0)="""RTN"",""DGSEC4"",178,0)"
^XMB(3.9,13,2,980,0)=" .D PRIV"
^XMB(3.9,13,2,981,0)="""RTN"",""DGSEC4"",179,0)"
^XMB(3.9,13,2,982,0)=" I '$D(^XUSEC(""DG SENSITIVITY"",+$G(DGDUZ))) D"
^XMB(3.9,13,2,983,0)="""RTN"",""DGSEC4"",180,0)"
^XMB(3.9,13,2,984,0)=" .S DGSENS(1)=2"
^XMB(3.9,13,2,985,0)="""RTN"",""DGSEC4"",181,0)"
^XMB(3.9,13,2,986,0)=" .D PRIV"
^XMB(3.9,13,2,987,0)="""RTN"",""DGSEC4"",182,0)"
^XMB(3.9,13,2,988,0)=" Q"
^XMB(3.9,13,2,989,0)="""RTN"",""DGSEC4"",183,0)"
^XMB(3.9,13,2,990,0)="PRIV ;Privacy Act statement for DGSENS array"
^XMB(3.9,13,2,991,0)="""RTN"",""DGSEC4"",184,0)"
^XMB(3.9,13,2,992,0)=" S $P(DGLNE,""* "",38)="""""
^XMB(3.9,13,2,993,0)="""RTN"",""DGSEC4"",185,0)"
^XMB(3.9,13,2,994,0)=" I $G(DDS)="""" S DGSENS(4)=DGLNE"
^XMB(3.9,13,2,995,0)="""RTN"",""DGSEC4"",186,0)"
^XMB(3.9,13,2,996,0)=" S DGSENS(5)=""* This record is protected by the Privacy Act of 1974 and the Health    *"""
^XMB(3.9,13,2,997,0)="""RTN"",""DGSEC4"",187,0)"
^XMB(3.9,13,2,998,0)=" S DGSENS(6)=""* Insurance Portability and Accountability Act of 1996. If you elect    *"""
^XMB(3.9,13,2,999,0)="""RTN"",""DGSEC4"",188,0)"
^XMB(3.9,13,2,1000,0)=" S DGSENS(7)=""* to proceed, you will be required to prove you have a need to know.    *"""
^XMB(3.9,13,2,1001,0)="""RTN"",""DGSEC4"",189,0)"
^XMB(3.9,13,2,1002,0)=" S DGSENS(8)=""* Accessing this patient is tracked, and your station Security Officer  *"""
^XMB(3.9,13,2,1003,0)="""RTN"",""DGSEC4"",190,0)"
^XMB(3.9,13,2,1004,0)=" S DGSENS(9)=""* will contact you for your justification.                              *"""
^XMB(3.9,13,2,1005,0)="""RTN"",""DGSEC4"",191,0)"
^XMB(3.9,13,2,1006,0)=" I $G(DDS)="""" S DGSENS(10)=DGLNE"
^XMB(3.9,13,2,1007,0)="""RTN"",""DGSEC4"",192,0)"
^XMB(3.9,13,2,1008,0)=" Q"
^XMB(3.9,13,2,1009,0)="""RTN"",""DGSEC4"",193,0)"
^XMB(3.9,13,2,1010,0)="EMPL(DFN,DGCHELIG) ;Does patient have any eligibility codes equal to"
^XMB(3.9,13,2,1011,0)="""RTN"",""DGSEC4"",194,0)"
^XMB(3.9,13,2,1012,0)=" ;                EMPLOYEE"
^XMB(3.9,13,2,1013,0)="""RTN"",""DGSEC4"",195,0)"
^XMB(3.9,13,2,1014,0)=" ;Input:"
^XMB(3.9,13,2,1015,0)="""RTN"",""DGSEC4"",196,0)"
^XMB(3.9,13,2,1016,0)=" ;       DFN - Patient (#2) file IEN (required)."
^XMB(3.9,13,2,1017,0)="""RTN"",""DGSEC4"",197,0)"
^XMB(3.9,13,2,1018,0)=" ;  DGCHELIG - Flags to determine mode of execution (optional)."
^XMB(3.9,13,2,1019,0)="""RTN"",""DGSEC4"",198,0)"
^XMB(3.9,13,2,1020,0)=" ;             Value of the parameter can contain any combination"
^XMB(3.9,13,2,1021,0)="""RTN"",""DGSEC4"",199,0)"
^XMB(3.9,13,2,1022,0)=" ;             of the following characters:"
^XMB(3.9,13,2,1023,0)="""RTN"",""DGSEC4"",200,0)"
^XMB(3.9,13,2,1024,0)=" ;               ""P"" - check primary eligibility code"
^XMB(3.9,13,2,1025,0)="""RTN"",""DGSEC4"",201,0)"
^XMB(3.9,13,2,1026,0)=" ;               ""S"" - check secondary eligibility codes"
^XMB(3.9,13,2,1027,0)="""RTN"",""DGSEC4"",202,0)"
^XMB(3.9,13,2,1028,0)=" ;"
^XMB(3.9,13,2,1029,0)="""RTN"",""DGSEC4"",203,0)"
^XMB(3.9,13,2,1030,0)=" ;             If this parameter is either not defined or set to an"
^XMB(3.9,13,2,1031,0)="""RTN"",""DGSEC4"",204,0)"
^XMB(3.9,13,2,1032,0)=" ;             illegal value, the value of ""PS"" will be assumed."
^XMB(3.9,13,2,1033,0)="""RTN"",""DGSEC4"",205,0)"
^XMB(3.9,13,2,1034,0)=" ;Output:"
^XMB(3.9,13,2,1035,0)="""RTN"",""DGSEC4"",206,0)"
^XMB(3.9,13,2,1036,0)=" ;         1 - Patient has EMPLOYEE as an eligibility code"
^XMB(3.9,13,2,1037,0)="""RTN"",""DGSEC4"",207,0)"
^XMB(3.9,13,2,1038,0)=" ;         0 - Patient doesn't have EMPLOYEE as an eligibility code"
^XMB(3.9,13,2,1039,0)="""RTN"",""DGSEC4"",208,0)"
^XMB(3.9,13,2,1040,0)=" ;"
^XMB(3.9,13,2,1041,0)="""RTN"",""DGSEC4"",209,0)"
^XMB(3.9,13,2,1042,0)=" ;Notes: EMPLOYEE is entry 14 in the MAS ELIGIBILITY CODE file (#8.1)"
^XMB(3.9,13,2,1043,0)="""RTN"",""DGSEC4"",210,0)"
^XMB(3.9,13,2,1044,0)=" N DGELIG,DGEMPLEE"
^XMB(3.9,13,2,1045,0)="""RTN"",""DGSEC4"",211,0)"
^XMB(3.9,13,2,1046,0)=" S DGEMPLEE=0"
^XMB(3.9,13,2,1047,0)="""RTN"",""DGSEC4"",212,0)"
^XMB(3.9,13,2,1048,0)=" I $G(DGCHELIG)'[""P"",$G(DGCHELIG)'[""S"" S DGCHELIG=""PS"""
^XMB(3.9,13,2,1049,0)="""RTN"",""DGSEC4"",213,0)"
^XMB(3.9,13,2,1050,0)=" ;Check primary eligibility"
^XMB(3.9,13,2,1051,0)="""RTN"",""DGSEC4"",214,0)"
^XMB(3.9,13,2,1052,0)=" I DGCHELIG[""P"" D"
^XMB(3.9,13,2,1053,0)="""RTN"",""DGSEC4"",215,0)"
^XMB(3.9,13,2,1054,0)=" .S DGELIG=+$G(^DPT(DFN,.36))"
^XMB(3.9,13,2,1055,0)="""RTN"",""DGSEC4"",216,0)"
^XMB(3.9,13,2,1056,0)=" .I $D(^DIC(8,""D"",14,DGELIG)) S DGEMPLEE=1"
^XMB(3.9,13,2,1057,0)="""RTN"",""DGSEC4"",217,0)"
^XMB(3.9,13,2,1058,0)=" ;Check secondary eligibilities (if needed)"
^XMB(3.9,13,2,1059,0)="""RTN"",""DGSEC4"",218,0)"
^XMB(3.9,13,2,1060,0)=" I DGCHELIG[""S"",'DGEMPLEE D"
^XMB(3.9,13,2,1061,0)="""RTN"",""DGSEC4"",219,0)"
^XMB(3.9,13,2,1062,0)=" .S DGELIG=0"
^XMB(3.9,13,2,1063,0)="""RTN"",""DGSEC4"",220,0)"
^XMB(3.9,13,2,1064,0)=" .F  S DGELIG=+$O(^DPT(""AEL"",DFN,DGELIG)) Q:'DGELIG  I $D(^DIC(8,""D"",14,DGELIG)) S DGEMPLEE=1 Q"
^XMB(3.9,13,2,1065,0)="""RTN"",""DGSEC4"",221,0)"
^XMB(3.9,13,2,1066,0)=" Q DGEMPLEE"
^XMB(3.9,13,2,1067,0)="""VER"")"
^XMB(3.9,13,2,1068,0)="8.0^22.0"
^XMB(3.9,13,2,1069,0)="""BLD"",6649,6)"
^XMB(3.9,13,2,1070,0)="^628"
^XMB(3.9,13,2,1071,0)="$END KID DG*5.3*699"
^XMB(3.9,13,6,0)="^3.911A^2^2"
^XMB(3.9,13,6,1,0)="POSTMASTER"
^XMB(3.9,13,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,13,6,"B","POSTMASTER",1)=""
^XMB(3.9,13,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,14,0)="DG-5P3_SEQ-629_PAT-718.KID^.5^3061008.015731^^^^K"
^XMB(3.9,14,.6)="3061008"
^XMB(3.9,14,1,0)="^3.91A^2^2"
^XMB(3.9,14,1,1,0)=".5^0^3061008.015731^^^^^^^3061008.015731"
^XMB(3.9,14,1,2,0)="1^0^3061008.022824^^^^^^^3061008.022824"
^XMB(3.9,14,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,14,1,"C",.5,1)=""
^XMB(3.9,14,1,"C",1,2)=""
^XMB(3.9,14,2,0)="^^1623^1623^3061008"
^XMB(3.9,14,2,1,0)="$TXT Released DG*5.3*718 SEQ #629"
^XMB(3.9,14,2,2,0)="Extracted from mail message"
^XMB(3.9,14,2,3,0)="$END TXT"
^XMB(3.9,14,2,4,0)="$KID DG*5.3*718"
^XMB(3.9,14,2,5,0)="**INSTALL NAME**"
^XMB(3.9,14,2,6,0)="DG*5.3*718"
^XMB(3.9,14,2,7,0)="""BLD"",6152,0)"
^XMB(3.9,14,2,8,0)="DG*5.3*718^REGISTRATION^0^3060712^y"
^XMB(3.9,14,2,9,0)="""BLD"",6152,1,0)"
^XMB(3.9,14,2,10,0)="^^2^2^3060615^"
^XMB(3.9,14,2,11,0)="""BLD"",6152,1,1,0)"
^XMB(3.9,14,2,12,0)="Please refer to patch DG*5.3*718 in the National Patch Module for a"
^XMB(3.9,14,2,13,0)="""BLD"",6152,1,2,0)"
^XMB(3.9,14,2,14,0)="complete description of this patch."
^XMB(3.9,14,2,15,0)="""BLD"",6152,4,0)"
^XMB(3.9,14,2,16,0)="^9.64PA^^"
^XMB(3.9,14,2,17,0)="""BLD"",6152,""INIT"")"
^XMB(3.9,14,2,18,0)=""
^XMB(3.9,14,2,19,0)="""BLD"",6152,""KRN"",0)"
^XMB(3.9,14,2,20,0)="^9.67PA^8989.52^19"
^XMB(3.9,14,2,21,0)="""BLD"",6152,""KRN"",.4,0)"
^XMB(3.9,14,2,22,0)=".4"
^XMB(3.9,14,2,23,0)="""BLD"",6152,""KRN"",.401,0)"
^XMB(3.9,14,2,24,0)=".401"
^XMB(3.9,14,2,25,0)="""BLD"",6152,""KRN"",.402,0)"
^XMB(3.9,14,2,26,0)=".402"
^XMB(3.9,14,2,27,0)="""BLD"",6152,""KRN"",.403,0)"
^XMB(3.9,14,2,28,0)=".403"
^XMB(3.9,14,2,29,0)="""BLD"",6152,""KRN"",.5,0)"
^XMB(3.9,14,2,30,0)=".5"
^XMB(3.9,14,2,31,0)="""BLD"",6152,""KRN"",.84,0)"
^XMB(3.9,14,2,32,0)=".84"
^XMB(3.9,14,2,33,0)="""BLD"",6152,""KRN"",.84,""NM"",0)"
^XMB(3.9,14,2,34,0)="^9.68A^23^23"
^XMB(3.9,14,2,35,0)="""BLD"",6152,""KRN"",.84,""NM"",1,0)"
^XMB(3.9,14,2,36,0)="261110^^0"
^XMB(3.9,14,2,37,0)="""BLD"",6152,""KRN"",.84,""NM"",2,0)"
^XMB(3.9,14,2,38,0)="261111^^0"
^XMB(3.9,14,2,39,0)="""BLD"",6152,""KRN"",.84,""NM"",3,0)"
^XMB(3.9,14,2,40,0)="261112^^0"
^XMB(3.9,14,2,41,0)="""BLD"",6152,""KRN"",.84,""NM"",4,0)"
^XMB(3.9,14,2,42,0)="261113^^0"
^XMB(3.9,14,2,43,0)="""BLD"",6152,""KRN"",.84,""NM"",5,0)"
^XMB(3.9,14,2,44,0)="261114^^0"
^XMB(3.9,14,2,45,0)="""BLD"",6152,""KRN"",.84,""NM"",6,0)"
^XMB(3.9,14,2,46,0)="261115^^0"
^XMB(3.9,14,2,47,0)="""BLD"",6152,""KRN"",.84,""NM"",7,0)"
^XMB(3.9,14,2,48,0)="261116^^0"
^XMB(3.9,14,2,49,0)="""BLD"",6152,""KRN"",.84,""NM"",8,0)"
^XMB(3.9,14,2,50,0)="261117^^0"
^XMB(3.9,14,2,51,0)="""BLD"",6152,""KRN"",.84,""NM"",9,0)"
^XMB(3.9,14,2,52,0)="261118^^0"
^XMB(3.9,14,2,53,0)="""BLD"",6152,""KRN"",.84,""NM"",10,0)"
^XMB(3.9,14,2,54,0)="261119^^0"
^XMB(3.9,14,2,55,0)="""BLD"",6152,""KRN"",.84,""NM"",11,0)"
^XMB(3.9,14,2,56,0)="261120^^0"
^XMB(3.9,14,2,57,0)="""BLD"",6152,""KRN"",.84,""NM"",12,0)"
^XMB(3.9,14,2,58,0)="261121^^0"
^XMB(3.9,14,2,59,0)="""BLD"",6152,""KRN"",.84,""NM"",13,0)"
^XMB(3.9,14,2,60,0)="261122^^0"
^XMB(3.9,14,2,61,0)="""BLD"",6152,""KRN"",.84,""NM"",14,0)"
^XMB(3.9,14,2,62,0)="261123^^0"
^XMB(3.9,14,2,63,0)="""BLD"",6152,""KRN"",.84,""NM"",15,0)"
^XMB(3.9,14,2,64,0)="261124^^0"
^XMB(3.9,14,2,65,0)="""BLD"",6152,""KRN"",.84,""NM"",16,0)"
^XMB(3.9,14,2,66,0)="261125^^0"
^XMB(3.9,14,2,67,0)="""BLD"",6152,""KRN"",.84,""NM"",17,0)"
^XMB(3.9,14,2,68,0)="261126^^0"
^XMB(3.9,14,2,69,0)="""BLD"",6152,""KRN"",.84,""NM"",18,0)"
^XMB(3.9,14,2,70,0)="261127^^0"
^XMB(3.9,14,2,71,0)="""BLD"",6152,""KRN"",.84,""NM"",19,0)"
^XMB(3.9,14,2,72,0)="261128^^0"
^XMB(3.9,14,2,73,0)="""BLD"",6152,""KRN"",.84,""NM"",20,0)"
^XMB(3.9,14,2,74,0)="261129^^0"
^XMB(3.9,14,2,75,0)="""BLD"",6152,""KRN"",.84,""NM"",21,0)"
^XMB(3.9,14,2,76,0)="261130^^0"
^XMB(3.9,14,2,77,0)="""BLD"",6152,""KRN"",.84,""NM"",22,0)"
^XMB(3.9,14,2,78,0)="261131^^0"
^XMB(3.9,14,2,79,0)="""BLD"",6152,""KRN"",.84,""NM"",23,0)"
^XMB(3.9,14,2,80,0)="261132^^0"
^XMB(3.9,14,2,81,0)="""BLD"",6152,""KRN"",.84,""NM"",""B"",261110,1)"
^XMB(3.9,14,2,82,0)=""
^XMB(3.9,14,2,83,0)="""BLD"",6152,""KRN"",.84,""NM"",""B"",261111,2)"
^XMB(3.9,14,2,84,0)=""
^XMB(3.9,14,2,85,0)="""BLD"",6152,""KRN"",.84,""NM"",""B"",261112,3)"
^XMB(3.9,14,2,86,0)=""
^XMB(3.9,14,2,87,0)="""BLD"",6152,""KRN"",.84,""NM"",""B"",261113,4)"
^XMB(3.9,14,2,88,0)=""
^XMB(3.9,14,2,89,0)="""BLD"",6152,""KRN"",.84,""NM"",""B"",261114,5)"
^XMB(3.9,14,2,90,0)=""
^XMB(3.9,14,2,91,0)="""BLD"",6152,""KRN"",.84,""NM"",""B"",261115,6)"
^XMB(3.9,14,2,92,0)=""
^XMB(3.9,14,2,93,0)="""BLD"",6152,""KRN"",.84,""NM"",""B"",261116,7)"
^XMB(3.9,14,2,94,0)=""
^XMB(3.9,14,2,95,0)="""BLD"",6152,""KRN"",.84,""NM"",""B"",261117,8)"
^XMB(3.9,14,2,96,0)=""
^XMB(3.9,14,2,97,0)="""BLD"",6152,""KRN"",.84,""NM"",""B"",261118,9)"
^XMB(3.9,14,2,98,0)=""
^XMB(3.9,14,2,99,0)="""BLD"",6152,""KRN"",.84,""NM"",""B"",261119,10)"
^XMB(3.9,14,2,100,0)=""
^XMB(3.9,14,2,101,0)="""BLD"",6152,""KRN"",.84,""NM"",""B"",261120,11)"
^XMB(3.9,14,2,102,0)=""
^XMB(3.9,14,2,103,0)="""BLD"",6152,""KRN"",.84,""NM"",""B"",261121,12)"
^XMB(3.9,14,2,104,0)=""
^XMB(3.9,14,2,105,0)="""BLD"",6152,""KRN"",.84,""NM"",""B"",261122,13)"
^XMB(3.9,14,2,106,0)=""
^XMB(3.9,14,2,107,0)="""BLD"",6152,""KRN"",.84,""NM"",""B"",261123,14)"
^XMB(3.9,14,2,108,0)=""
^XMB(3.9,14,2,109,0)="""BLD"",6152,""KRN"",.84,""NM"",""B"",261124,15)"
^XMB(3.9,14,2,110,0)=""
^XMB(3.9,14,2,111,0)="""BLD"",6152,""KRN"",.84,""NM"",""B"",261125,16)"
^XMB(3.9,14,2,112,0)=""
^XMB(3.9,14,2,113,0)="""BLD"",6152,""KRN"",.84,""NM"",""B"",261126,17)"
^XMB(3.9,14,2,114,0)=""
^XMB(3.9,14,2,115,0)="""BLD"",6152,""KRN"",.84,""NM"",""B"",261127,18)"
^XMB(3.9,14,2,116,0)=""
^XMB(3.9,14,2,117,0)="""BLD"",6152,""KRN"",.84,""NM"",""B"",261128,19)"
^XMB(3.9,14,2,118,0)=""
^XMB(3.9,14,2,119,0)="""BLD"",6152,""KRN"",.84,""NM"",""B"",261129,20)"
^XMB(3.9,14,2,120,0)=""
^XMB(3.9,14,2,121,0)="""BLD"",6152,""KRN"",.84,""NM"",""B"",261130,21)"
^XMB(3.9,14,2,122,0)=""
^XMB(3.9,14,2,123,0)="""BLD"",6152,""KRN"",.84,""NM"",""B"",261131,22)"
^XMB(3.9,14,2,124,0)=""
^XMB(3.9,14,2,125,0)="""BLD"",6152,""KRN"",.84,""NM"",""B"",261132,23)"
^XMB(3.9,14,2,126,0)=""
^XMB(3.9,14,2,127,0)="""BLD"",6152,""KRN"",3.6,0)"
^XMB(3.9,14,2,128,0)="3.6"
^XMB(3.9,14,2,129,0)="""BLD"",6152,""KRN"",3.8,0)"
^XMB(3.9,14,2,130,0)="3.8"
^XMB(3.9,14,2,131,0)="""BLD"",6152,""KRN"",9.2,0)"
^XMB(3.9,14,2,132,0)="9.2"
^XMB(3.9,14,2,133,0)="""BLD"",6152,""KRN"",9.8,0)"
^XMB(3.9,14,2,134,0)="9.8"
^XMB(3.9,14,2,135,0)="""BLD"",6152,""KRN"",9.8,""NM"",0)"
^XMB(3.9,14,2,136,0)="^9.68A^2^2"
^XMB(3.9,14,2,137,0)="""BLD"",6152,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,14,2,138,0)="DGPFHLU^^0^B27262143"
^XMB(3.9,14,2,139,0)="""BLD"",6152,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,14,2,140,0)="DGPFHLU5^^0^B59520478"
^XMB(3.9,14,2,141,0)="""BLD"",6152,""KRN"",9.8,""NM"",""B"",""DGPFHLU"",1)"
^XMB(3.9,14,2,142,0)=""
^XMB(3.9,14,2,143,0)="""BLD"",6152,""KRN"",9.8,""NM"",""B"",""DGPFHLU5"",2)"
^XMB(3.9,14,2,144,0)=""
^XMB(3.9,14,2,145,0)="""BLD"",6152,""KRN"",19,0)"
^XMB(3.9,14,2,146,0)="19"
^XMB(3.9,14,2,147,0)="""BLD"",6152,""KRN"",19.1,0)"
^XMB(3.9,14,2,148,0)="19.1"
^XMB(3.9,14,2,149,0)="""BLD"",6152,""KRN"",101,0)"
^XMB(3.9,14,2,150,0)="101"
^XMB(3.9,14,2,151,0)="""BLD"",6152,""KRN"",409.61,0)"
^XMB(3.9,14,2,152,0)="409.61"
^XMB(3.9,14,2,153,0)="""BLD"",6152,""KRN"",771,0)"
^XMB(3.9,14,2,154,0)="771"
^XMB(3.9,14,2,155,0)="""BLD"",6152,""KRN"",870,0)"
^XMB(3.9,14,2,156,0)="870"
^XMB(3.9,14,2,157,0)="""BLD"",6152,""KRN"",8989.51,0)"
^XMB(3.9,14,2,158,0)="8989.51"
^XMB(3.9,14,2,159,0)="""BLD"",6152,""KRN"",8989.52,0)"
^XMB(3.9,14,2,160,0)="8989.52"
^XMB(3.9,14,2,161,0)="""BLD"",6152,""KRN"",8994,0)"
^XMB(3.9,14,2,162,0)="8994"
^XMB(3.9,14,2,163,0)="""BLD"",6152,""KRN"",""B"",.4,.4)"
^XMB(3.9,14,2,164,0)=""
^XMB(3.9,14,2,165,0)="""BLD"",6152,""KRN"",""B"",.401,.401)"
^XMB(3.9,14,2,166,0)=""
^XMB(3.9,14,2,167,0)="""BLD"",6152,""KRN"",""B"",.402,.402)"
^XMB(3.9,14,2,168,0)=""
^XMB(3.9,14,2,169,0)="""BLD"",6152,""KRN"",""B"",.403,.403)"
^XMB(3.9,14,2,170,0)=""
^XMB(3.9,14,2,171,0)="""BLD"",6152,""KRN"",""B"",.5,.5)"
^XMB(3.9,14,2,172,0)=""
^XMB(3.9,14,2,173,0)="""BLD"",6152,""KRN"",""B"",.84,.84)"
^XMB(3.9,14,2,174,0)=""
^XMB(3.9,14,2,175,0)="""BLD"",6152,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,14,2,176,0)=""
^XMB(3.9,14,2,177,0)="""BLD"",6152,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,14,2,178,0)=""
^XMB(3.9,14,2,179,0)="""BLD"",6152,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,14,2,180,0)=""
^XMB(3.9,14,2,181,0)="""BLD"",6152,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,14,2,182,0)=""
^XMB(3.9,14,2,183,0)="""BLD"",6152,""KRN"",""B"",19,19)"
^XMB(3.9,14,2,184,0)=""
^XMB(3.9,14,2,185,0)="""BLD"",6152,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,14,2,186,0)=""
^XMB(3.9,14,2,187,0)="""BLD"",6152,""KRN"",""B"",101,101)"
^XMB(3.9,14,2,188,0)=""
^XMB(3.9,14,2,189,0)="""BLD"",6152,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,14,2,190,0)=""
^XMB(3.9,14,2,191,0)="""BLD"",6152,""KRN"",""B"",771,771)"
^XMB(3.9,14,2,192,0)=""
^XMB(3.9,14,2,193,0)="""BLD"",6152,""KRN"",""B"",870,870)"
^XMB(3.9,14,2,194,0)=""
^XMB(3.9,14,2,195,0)="""BLD"",6152,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,14,2,196,0)=""
^XMB(3.9,14,2,197,0)="""BLD"",6152,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,14,2,198,0)=""
^XMB(3.9,14,2,199,0)="""BLD"",6152,""KRN"",""B"",8994,8994)"
^XMB(3.9,14,2,200,0)=""
^XMB(3.9,14,2,201,0)="""BLD"",6152,""PRE"")"
^XMB(3.9,14,2,202,0)=""
^XMB(3.9,14,2,203,0)="""BLD"",6152,""QUES"",0)"
^XMB(3.9,14,2,204,0)="^9.62^^"
^XMB(3.9,14,2,205,0)="""BLD"",6152,""REQB"",0)"
^XMB(3.9,14,2,206,0)="^9.611^1^1"
^XMB(3.9,14,2,207,0)="""BLD"",6152,""REQB"",1,0)"
^XMB(3.9,14,2,208,0)="DG*5.3*425^2"
^XMB(3.9,14,2,209,0)="""BLD"",6152,""REQB"",""B"",""DG*5.3*425"",1)"
^XMB(3.9,14,2,210,0)=""
^XMB(3.9,14,2,211,0)="""KRN"",.84,261110,-1)"
^XMB(3.9,14,2,212,0)="0^1"
^XMB(3.9,14,2,213,0)="""KRN"",.84,261110,0)"
^XMB(3.9,14,2,214,0)="261110^1^^REGISTRATION^Invalid Patient"
^XMB(3.9,14,2,215,0)="""KRN"",.84,261110,1,0)"
^XMB(3.9,14,2,216,0)="^^2^2^3050317^"
^XMB(3.9,14,2,217,0)="""KRN"",.84,261110,1,1,0)"
^XMB(3.9,14,2,218,0)="Error returned if patient does not correspond to an entry in the Patient "
^XMB(3.9,14,2,219,0)="""KRN"",.84,261110,1,2,0)"
^XMB(3.9,14,2,220,0)="(#2) file."
^XMB(3.9,14,2,221,0)="""KRN"",.84,261110,2,0)"
^XMB(3.9,14,2,222,0)="^.844^1^1^3050317^^"
^XMB(3.9,14,2,223,0)="""KRN"",.84,261110,2,1,0)"
^XMB(3.9,14,2,224,0)="Patient is invalid"
^XMB(3.9,14,2,225,0)="""KRN"",.84,261111,-1)"
^XMB(3.9,14,2,226,0)="0^2"
^XMB(3.9,14,2,227,0)="""KRN"",.84,261111,0)"
^XMB(3.9,14,2,228,0)="261111^1^^REGISTRATION^Invalid Record flag"
^XMB(3.9,14,2,229,0)="""KRN"",.84,261111,1,0)"
^XMB(3.9,14,2,230,0)="^^2^2^3050317^"
^XMB(3.9,14,2,231,0)="""KRN"",.84,261111,1,1,0)"
^XMB(3.9,14,2,232,0)="Error reported when the FLAG NAME value does not match the field"
^XMB(3.9,14,2,233,0)="""KRN"",.84,261111,1,2,0)"
^XMB(3.9,14,2,234,0)="definition."
^XMB(3.9,14,2,235,0)="""KRN"",.84,261111,2,0)"
^XMB(3.9,14,2,236,0)="^.844^1^1^3050317^^"
^XMB(3.9,14,2,237,0)="""KRN"",.84,261111,2,1,0)"
^XMB(3.9,14,2,238,0)="Record flag is invalid"
^XMB(3.9,14,2,239,0)="""KRN"",.84,261112,-1)"
^XMB(3.9,14,2,240,0)="0^3"
^XMB(3.9,14,2,241,0)="""KRN"",.84,261112,0)"
^XMB(3.9,14,2,242,0)="261112^1^^REGISTRATION^Flag Already Assigned"
^XMB(3.9,14,2,243,0)="""KRN"",.84,261112,1,0)"
^XMB(3.9,14,2,244,0)="^.842^2^2^3050318^^"
^XMB(3.9,14,2,245,0)="""KRN"",.84,261112,1,1,0)"
^XMB(3.9,14,2,246,0)="This error is reported when a record flag has already been assigned to a "
^XMB(3.9,14,2,247,0)="""KRN"",.84,261112,1,2,0)"
^XMB(3.9,14,2,248,0)="patient."
^XMB(3.9,14,2,249,0)="""KRN"",.84,261112,2,0)"
^XMB(3.9,14,2,250,0)="^^1^1^3050318^"
^XMB(3.9,14,2,251,0)="""KRN"",.84,261112,2,1,0)"
^XMB(3.9,14,2,252,0)="Record flag is already assigned to patient"
^XMB(3.9,14,2,253,0)="""KRN"",.84,261113,-1)"
^XMB(3.9,14,2,254,0)="0^4"
^XMB(3.9,14,2,255,0)="""KRN"",.84,261113,0)"
^XMB(3.9,14,2,256,0)="261113^1^^REGISTRATION^Flag Status Inactive"
^XMB(3.9,14,2,257,0)="""KRN"",.84,261113,1,0)"
^XMB(3.9,14,2,258,0)="^.842^1^1^3050318^^"
^XMB(3.9,14,2,259,0)="""KRN"",.84,261113,1,1,0)"
^XMB(3.9,14,2,260,0)="This error is reported when a record flag has a STATUS of 'INACTIVE'."
^XMB(3.9,14,2,261,0)="""KRN"",.84,261113,2,0)"
^XMB(3.9,14,2,262,0)="^.844^1^1^3050318^^"
^XMB(3.9,14,2,263,0)="""KRN"",.84,261113,2,1,0)"
^XMB(3.9,14,2,264,0)="Record flag status is 'Inactive'"
^XMB(3.9,14,2,265,0)="""KRN"",.84,261114,-1)"
^XMB(3.9,14,2,266,0)="0^5"
^XMB(3.9,14,2,267,0)="""KRN"",.84,261114,0)"
^XMB(3.9,14,2,268,0)="261114^1^^REGISTRATION^Missing Progress Note Title"
^XMB(3.9,14,2,269,0)="""KRN"",.84,261114,1,0)"
^XMB(3.9,14,2,270,0)="^^2^2^3050318^"
^XMB(3.9,14,2,271,0)="""KRN"",.84,261114,1,1,0)"
^XMB(3.9,14,2,272,0)="This error is reported when a record flag is not associated with a TIU "
^XMB(3.9,14,2,273,0)="""KRN"",.84,261114,1,2,0)"
^XMB(3.9,14,2,274,0)="Progress Note Title."
^XMB(3.9,14,2,275,0)="""KRN"",.84,261114,2,0)"
^XMB(3.9,14,2,276,0)="^^1^1^3050318^"
^XMB(3.9,14,2,277,0)="""KRN"",.84,261114,2,1,0)"
^XMB(3.9,14,2,278,0)="Record flag is missing a Progress Note Title"
^XMB(3.9,14,2,279,0)="""KRN"",.84,261115,-1)"
^XMB(3.9,14,2,280,0)="0^6"
^XMB(3.9,14,2,281,0)="""KRN"",.84,261115,0)"
^XMB(3.9,14,2,282,0)="261115^1^^REGISTRATION^Not Assignment Owner"
^XMB(3.9,14,2,283,0)="""KRN"",.84,261115,1,0)"
^XMB(3.9,14,2,284,0)="^^3^3^3050318^"
^XMB(3.9,14,2,285,0)="""KRN"",.84,261115,1,1,0)"
^XMB(3.9,14,2,286,0)="This error is reported when an edit of a record flag assignment is "
^XMB(3.9,14,2,287,0)="""KRN"",.84,261115,1,2,0)"
^XMB(3.9,14,2,288,0)="attempted by a facility that is not designated as the 'owner' of the "
^XMB(3.9,14,2,289,0)="""KRN"",.84,261115,1,3,0)"
^XMB(3.9,14,2,290,0)="assignment."
^XMB(3.9,14,2,291,0)="""KRN"",.84,261115,2,0)"
^XMB(3.9,14,2,292,0)="^^1^1^3050318^"
^XMB(3.9,14,2,293,0)="""KRN"",.84,261115,2,1,0)"
^XMB(3.9,14,2,294,0)="Not the owner site"
^XMB(3.9,14,2,295,0)="""KRN"",.84,261116,-1)"
^XMB(3.9,14,2,296,0)="0^7"
^XMB(3.9,14,2,297,0)="""KRN"",.84,261116,0)"
^XMB(3.9,14,2,298,0)="261116^1^^REGISTRATION^Sending Facility Not Owner"
^XMB(3.9,14,2,299,0)="""KRN"",.84,261116,1,0)"
^XMB(3.9,14,2,300,0)="^.842^3^3^3050318^^^"
^XMB(3.9,14,2,301,0)="""KRN"",.84,261116,1,1,0)"
^XMB(3.9,14,2,302,0)="This error is reported when a facility attempts to share an assignment "
^XMB(3.9,14,2,303,0)="""KRN"",.84,261116,1,2,0)"
^XMB(3.9,14,2,304,0)="through the HL7 interface and it is not the parent of the assignment"
^XMB(3.9,14,2,305,0)="""KRN"",.84,261116,1,3,0)"
^XMB(3.9,14,2,306,0)="owner."
^XMB(3.9,14,2,307,0)="""KRN"",.84,261116,2,0)"
^XMB(3.9,14,2,308,0)="^.844^1^1^3050318^^^"
^XMB(3.9,14,2,309,0)="""KRN"",.84,261116,2,1,0)"
^XMB(3.9,14,2,310,0)="Sending facility is not the owner of the assignment"
^XMB(3.9,14,2,311,0)="""KRN"",.84,261117,-1)"
^XMB(3.9,14,2,312,0)="0^8"
^XMB(3.9,14,2,313,0)="""KRN"",.84,261117,0)"
^XMB(3.9,14,2,314,0)="261117^1^^REGISTRATION^Assignment Status Inactive"
^XMB(3.9,14,2,315,0)="""KRN"",.84,261117,1,0)"
^XMB(3.9,14,2,316,0)="^.842^2^2^3050318^^^"
^XMB(3.9,14,2,317,0)="""KRN"",.84,261117,1,1,0)"
^XMB(3.9,14,2,318,0)="This error is reported when an attempt is made to change ownership of an "
^XMB(3.9,14,2,319,0)="""KRN"",.84,261117,1,2,0)"
^XMB(3.9,14,2,320,0)="assignment that has a STATUS of 'INACTIVE'."
^XMB(3.9,14,2,321,0)="""KRN"",.84,261117,2,0)"
^XMB(3.9,14,2,322,0)="^.844^1^1^3050318^^^"
^XMB(3.9,14,2,323,0)="""KRN"",.84,261117,2,1,0)"
^XMB(3.9,14,2,324,0)="Record flag assignment status is 'Inactive'"
^XMB(3.9,14,2,325,0)="""KRN"",.84,261118,-1)"
^XMB(3.9,14,2,326,0)="0^9"
^XMB(3.9,14,2,327,0)="""KRN"",.84,261118,0)"
^XMB(3.9,14,2,328,0)="261118^1^^REGISTRATION^Invalid Assignment History Action"
^XMB(3.9,14,2,329,0)="""KRN"",.84,261118,1,0)"
^XMB(3.9,14,2,330,0)="^^3^3^3050318^"
^XMB(3.9,14,2,331,0)="""KRN"",.84,261118,1,1,0)"
^XMB(3.9,14,2,332,0)="This error is reported when the record flag assignment history ACTION "
^XMB(3.9,14,2,333,0)="""KRN"",.84,261118,1,2,0)"
^XMB(3.9,14,2,334,0)="value does not match the ACTION field definition of the ACTION (#.03) "
^XMB(3.9,14,2,335,0)="""KRN"",.84,261118,1,3,0)"
^XMB(3.9,14,2,336,0)="field in the PRF ASSIGNMENT HISTORY (#26.14) file."
^XMB(3.9,14,2,337,0)="""KRN"",.84,261118,2,0)"
^XMB(3.9,14,2,338,0)="^^1^1^3050318^"
^XMB(3.9,14,2,339,0)="""KRN"",.84,261118,2,1,0)"
^XMB(3.9,14,2,340,0)="Record flag assignment history action is invalid"
^XMB(3.9,14,2,341,0)="""KRN"",.84,261119,-1)"
^XMB(3.9,14,2,342,0)="0^10"
^XMB(3.9,14,2,343,0)="""KRN"",.84,261119,0)"
^XMB(3.9,14,2,344,0)="261119^1^^REGISTRATION^Assignment History Filer Error"
^XMB(3.9,14,2,345,0)="""KRN"",.84,261119,1,0)"
^XMB(3.9,14,2,346,0)="^^2^2^3050411^"
^XMB(3.9,14,2,347,0)="""KRN"",.84,261119,1,1,0)"
^XMB(3.9,14,2,348,0)="This error is reported when an attempt to file a patient "
^XMB(3.9,14,2,349,0)="""KRN"",.84,261119,1,2,0)"
^XMB(3.9,14,2,350,0)="record flag assignment history fails."
^XMB(3.9,14,2,351,0)="""KRN"",.84,261119,2,0)"
^XMB(3.9,14,2,352,0)="^.844^1^1^3050411^^^"
^XMB(3.9,14,2,353,0)="""KRN"",.84,261119,2,1,0)"
^XMB(3.9,14,2,354,0)="Unable to file record flag assignment history"
^XMB(3.9,14,2,355,0)="""KRN"",.84,261120,-1)"
^XMB(3.9,14,2,356,0)="0^11"
^XMB(3.9,14,2,357,0)="""KRN"",.84,261120,0)"
^XMB(3.9,14,2,358,0)="261120^1^^REGISTRATION^Assignment Filer Error"
^XMB(3.9,14,2,359,0)="""KRN"",.84,261120,1,0)"
^XMB(3.9,14,2,360,0)="^^2^2^3050411^"
^XMB(3.9,14,2,361,0)="""KRN"",.84,261120,1,1,0)"
^XMB(3.9,14,2,362,0)="This error is reported when an attempt to file a patient record "
^XMB(3.9,14,2,363,0)="""KRN"",.84,261120,1,2,0)"
^XMB(3.9,14,2,364,0)="flag assignment fails."
^XMB(3.9,14,2,365,0)="""KRN"",.84,261120,2,0)"
^XMB(3.9,14,2,366,0)="^.844^1^1^3050411^^^"
^XMB(3.9,14,2,367,0)="""KRN"",.84,261120,2,1,0)"
^XMB(3.9,14,2,368,0)="Unable to file record flag assignment"
^XMB(3.9,14,2,369,0)="""KRN"",.84,261121,-1)"
^XMB(3.9,14,2,370,0)="0^12"
^XMB(3.9,14,2,371,0)="""KRN"",.84,261121,0)"
^XMB(3.9,14,2,372,0)="261121^1^^REGISTRATION^Action Continue"
^XMB(3.9,14,2,373,0)="""KRN"",.84,261121,1,0)"
^XMB(3.9,14,2,374,0)="^^3^3^3050324^"
^XMB(3.9,14,2,375,0)="""KRN"",.84,261121,1,1,0)"
^XMB(3.9,14,2,376,0)="This error is reported when an attempt is made to update a patient's "
^XMB(3.9,14,2,377,0)="""KRN"",.84,261121,1,2,0)"
^XMB(3.9,14,2,378,0)="current record flag assignment having a STATUS of 'INACTIVE' with an "
^XMB(3.9,14,2,379,0)="""KRN"",.84,261121,1,3,0)"
^XMB(3.9,14,2,380,0)="assignment having an ACTION of 'Continue'."
^XMB(3.9,14,2,381,0)="""KRN"",.84,261121,2,0)"
^XMB(3.9,14,2,382,0)="^^1^1^3050324^"
^XMB(3.9,14,2,383,0)="""KRN"",.84,261121,2,1,0)"
^XMB(3.9,14,2,384,0)="Unable to 'Continue' an 'Inactive' assignment"
^XMB(3.9,14,2,385,0)="""KRN"",.84,261122,-1)"
^XMB(3.9,14,2,386,0)="0^13"
^XMB(3.9,14,2,387,0)="""KRN"",.84,261122,0)"
^XMB(3.9,14,2,388,0)="261122^1^^REGISTRATION^Action Inactivate"
^XMB(3.9,14,2,389,0)="""KRN"",.84,261122,1,0)"
^XMB(3.9,14,2,390,0)="^^3^3^3050324^"
^XMB(3.9,14,2,391,0)="""KRN"",.84,261122,1,1,0)"
^XMB(3.9,14,2,392,0)="This error is reported when an attempt is made to update a patient's "
^XMB(3.9,14,2,393,0)="""KRN"",.84,261122,1,2,0)"
^XMB(3.9,14,2,394,0)="current record flag assignment having a STATUS of 'INACTIVE' with an "
^XMB(3.9,14,2,395,0)="""KRN"",.84,261122,1,3,0)"
^XMB(3.9,14,2,396,0)="assignment having an ACTION of 'Inactivate'."
^XMB(3.9,14,2,397,0)="""KRN"",.84,261122,2,0)"
^XMB(3.9,14,2,398,0)="^^1^1^3050324^"
^XMB(3.9,14,2,399,0)="""KRN"",.84,261122,2,1,0)"
^XMB(3.9,14,2,400,0)="Unable to 'Inactivate' an 'Inactive' assignment"
^XMB(3.9,14,2,401,0)="""KRN"",.84,261123,-1)"
^XMB(3.9,14,2,402,0)="0^14"
^XMB(3.9,14,2,403,0)="""KRN"",.84,261123,0)"
^XMB(3.9,14,2,404,0)="261123^1^^REGISTRATION^Action Entered In Error"
^XMB(3.9,14,2,405,0)="""KRN"",.84,261123,1,0)"
^XMB(3.9,14,2,406,0)="^^3^3^3050324^"
^XMB(3.9,14,2,407,0)="""KRN"",.84,261123,1,1,0)"
^XMB(3.9,14,2,408,0)="This error is reported when an attempt is made to update a patient's "
^XMB(3.9,14,2,409,0)="""KRN"",.84,261123,1,2,0)"
^XMB(3.9,14,2,410,0)="current record flag assignment having a STATUS of 'INACTIVE' with an "
^XMB(3.9,14,2,411,0)="""KRN"",.84,261123,1,3,0)"
^XMB(3.9,14,2,412,0)="assignment having an ACTION of 'Entered In Error'."
^XMB(3.9,14,2,413,0)="""KRN"",.84,261123,2,0)"
^XMB(3.9,14,2,414,0)="^^1^1^3050324^"
^XMB(3.9,14,2,415,0)="""KRN"",.84,261123,2,1,0)"
^XMB(3.9,14,2,416,0)="Unable to 'Entered In Error' an 'Inactive' assignment"
^XMB(3.9,14,2,417,0)="""KRN"",.84,261124,-1)"
^XMB(3.9,14,2,418,0)="0^15"
^XMB(3.9,14,2,419,0)="""KRN"",.84,261124,0)"
^XMB(3.9,14,2,420,0)="261124^1^^REGISTRATION^Action Reactivate"
^XMB(3.9,14,2,421,0)="""KRN"",.84,261124,1,0)"
^XMB(3.9,14,2,422,0)="^^3^3^3050324^"
^XMB(3.9,14,2,423,0)="""KRN"",.84,261124,1,1,0)"
^XMB(3.9,14,2,424,0)="This error is reported when an attempt is made to update a patient's "
^XMB(3.9,14,2,425,0)="""KRN"",.84,261124,1,2,0)"
^XMB(3.9,14,2,426,0)="current record flag assignment having a STATUS of 'INACTIVE' with an "
^XMB(3.9,14,2,427,0)="""KRN"",.84,261124,1,3,0)"
^XMB(3.9,14,2,428,0)="assignment having an ACTION of 'Reactivate'."
^XMB(3.9,14,2,429,0)="""KRN"",.84,261124,2,0)"
^XMB(3.9,14,2,430,0)="^^1^1^3050324^"
^XMB(3.9,14,2,431,0)="""KRN"",.84,261124,2,1,0)"
^XMB(3.9,14,2,432,0)="Unable to 'Reactivate' an 'Inactive' assignment"
^XMB(3.9,14,2,433,0)="""KRN"",.84,261125,-1)"
^XMB(3.9,14,2,434,0)="0^16"
^XMB(3.9,14,2,435,0)="""KRN"",.84,261125,0)"
^XMB(3.9,14,2,436,0)="261125^1^^REGISTRATION^Invalid Originating Site"
^XMB(3.9,14,2,437,0)="""KRN"",.84,261125,1,0)"
^XMB(3.9,14,2,438,0)="^.842^2^2^3050330^^"
^XMB(3.9,14,2,439,0)="""KRN"",.84,261125,1,1,0)"
^XMB(3.9,14,2,440,0)="Error reported when the Originating Site is not a valid entry in the "
^XMB(3.9,14,2,441,0)="""KRN"",.84,261125,1,2,0)"
^XMB(3.9,14,2,442,0)="INSTITUTION (#4) file."
^XMB(3.9,14,2,443,0)="""KRN"",.84,261125,2,0)"
^XMB(3.9,14,2,444,0)="^.844^1^1^3050330^^"
^XMB(3.9,14,2,445,0)="""KRN"",.84,261125,2,1,0)"
^XMB(3.9,14,2,446,0)="Originating Site is invalid"
^XMB(3.9,14,2,447,0)="""KRN"",.84,261125,5,0)"
^XMB(3.9,14,2,448,0)="^.841^1^1"
^XMB(3.9,14,2,449,0)="""KRN"",.84,261125,5,1,0)"
^XMB(3.9,14,2,450,0)="DGPFHLU^OBR"
^XMB(3.9,14,2,451,0)="""KRN"",.84,261125,5,""B"",""DGPFHLU"",1)"
^XMB(3.9,14,2,452,0)=""
^XMB(3.9,14,2,453,0)="""KRN"",.84,261126,-1)"
^XMB(3.9,14,2,454,0)="0^17"
^XMB(3.9,14,2,455,0)="""KRN"",.84,261126,0)"
^XMB(3.9,14,2,456,0)="261126^1^^REGISTRATION^Invalid Owner Site"
^XMB(3.9,14,2,457,0)="""KRN"",.84,261126,1,0)"
^XMB(3.9,14,2,458,0)="^.842^2^2^3050330^^"
^XMB(3.9,14,2,459,0)="""KRN"",.84,261126,1,1,0)"
^XMB(3.9,14,2,460,0)="Error reported when the Owner Site is not a valid entry in the "
^XMB(3.9,14,2,461,0)="""KRN"",.84,261126,1,2,0)"
^XMB(3.9,14,2,462,0)="INSTITUTION (#4) file."
^XMB(3.9,14,2,463,0)="""KRN"",.84,261126,2,0)"
^XMB(3.9,14,2,464,0)="^.844^1^1^3050330^^"
^XMB(3.9,14,2,465,0)="""KRN"",.84,261126,2,1,0)"
^XMB(3.9,14,2,466,0)="Owner Site is invalid"
^XMB(3.9,14,2,467,0)="""KRN"",.84,261126,5,0)"
^XMB(3.9,14,2,468,0)="^.841^1^1"
^XMB(3.9,14,2,469,0)="""KRN"",.84,261126,5,1,0)"
^XMB(3.9,14,2,470,0)="DGPFHLU^OBR"
^XMB(3.9,14,2,471,0)="""KRN"",.84,261126,5,""B"",""DGPFHLU"",1)"
^XMB(3.9,14,2,472,0)=""
^XMB(3.9,14,2,473,0)="""KRN"",.84,261127,-1)"
^XMB(3.9,14,2,474,0)="0^18"
^XMB(3.9,14,2,475,0)="""KRN"",.84,261127,0)"
^XMB(3.9,14,2,476,0)="261127^1^^REGISTRATION^No Patient Found For ICN"
^XMB(3.9,14,2,477,0)="""KRN"",.84,261127,1,0)"
^XMB(3.9,14,2,478,0)="^^2^2^3050331^"
^XMB(3.9,14,2,479,0)="""KRN"",.84,261127,1,1,0)"
^XMB(3.9,14,2,480,0)="Error reported when a patient's Integration Control number (ICN) sent in"
^XMB(3.9,14,2,481,0)="""KRN"",.84,261127,1,2,0)"
^XMB(3.9,14,2,482,0)="an HL7 message does not match the patient's ICN at the receiving facility."
^XMB(3.9,14,2,483,0)="""KRN"",.84,261127,2,0)"
^XMB(3.9,14,2,484,0)="^^3^3^3050817^"
^XMB(3.9,14,2,485,0)="""KRN"",.84,261127,2,1,0)"
^XMB(3.9,14,2,486,0)="The receiving facility did not find a patient corresponding with this"
^XMB(3.9,14,2,487,0)="""KRN"",.84,261127,2,2,0)"
^XMB(3.9,14,2,488,0)="Integration Control Number (ICN).  Verify patient and coordinate with"
^XMB(3.9,14,2,489,0)="""KRN"",.84,261127,2,3,0)"
^XMB(3.9,14,2,490,0)="receiving site if necessary."
^XMB(3.9,14,2,491,0)="""KRN"",.84,261127,5,0)"
^XMB(3.9,14,2,492,0)="^.841^1^1"
^XMB(3.9,14,2,493,0)="""KRN"",.84,261127,5,1,0)"
^XMB(3.9,14,2,494,0)="DGPFUT2^GETDFN"
^XMB(3.9,14,2,495,0)="""KRN"",.84,261127,5,""B"",""DGPFUT2"",1)"
^XMB(3.9,14,2,496,0)=""
^XMB(3.9,14,2,497,0)="""KRN"",.84,261128,-1)"
^XMB(3.9,14,2,498,0)="0^19"
^XMB(3.9,14,2,499,0)="""KRN"",.84,261128,0)"
^XMB(3.9,14,2,500,0)="261128^1^^REGISTRATION^Security Key Required"
^XMB(3.9,14,2,501,0)="""KRN"",.84,261128,1,0)"
^XMB(3.9,14,2,502,0)="^.842^3^3^3050405^^"
^XMB(3.9,14,2,503,0)="""KRN"",.84,261128,1,1,0)"
^XMB(3.9,14,2,504,0)="This error will be reported when a user does not have the appropriate "
^XMB(3.9,14,2,505,0)="""KRN"",.84,261128,1,2,0)"
^XMB(3.9,14,2,506,0)="SECURITY KEY assigned to access a specific option or protocol action "
^XMB(3.9,14,2,507,0)="""KRN"",.84,261128,1,3,0)"
^XMB(3.9,14,2,508,0)="within the Patient Record Flag module."
^XMB(3.9,14,2,509,0)="""KRN"",.84,261128,2,0)"
^XMB(3.9,14,2,510,0)="^^1^1^3050405^"
^XMB(3.9,14,2,511,0)="""KRN"",.84,261128,2,1,0)"
^XMB(3.9,14,2,512,0)="Access Denied: User does not hold the required security key."
^XMB(3.9,14,2,513,0)="""KRN"",.84,261129,-1)"
^XMB(3.9,14,2,514,0)="0^20"
^XMB(3.9,14,2,515,0)="""KRN"",.84,261129,0)"
^XMB(3.9,14,2,516,0)="261129^1^y^REGISTRATION^Action Not Permitted"
^XMB(3.9,14,2,517,0)="""KRN"",.84,261129,1,0)"
^XMB(3.9,14,2,518,0)="^.842^2^2^3050405^^^^"
^XMB(3.9,14,2,519,0)="""KRN"",.84,261129,1,1,0)"
^XMB(3.9,14,2,520,0)="This error is reported when a user attempts to select a protocol action "
^XMB(3.9,14,2,521,0)="""KRN"",.84,261129,1,2,0)"
^XMB(3.9,14,2,522,0)="within List Manager that is not appropriate."
^XMB(3.9,14,2,523,0)="""KRN"",.84,261129,2,0)"
^XMB(3.9,14,2,524,0)="^^1^1^3050405^"
^XMB(3.9,14,2,525,0)="""KRN"",.84,261129,2,1,0)"
^XMB(3.9,14,2,526,0)="Action Not Permitted: |1|"
^XMB(3.9,14,2,527,0)="""KRN"",.84,261129,3,0)"
^XMB(3.9,14,2,528,0)="^.845^1^1"
^XMB(3.9,14,2,529,0)="""KRN"",.84,261129,3,1,0)"
^XMB(3.9,14,2,530,0)="1^Reason why action is not permitted (i.e. Patient not selected)."
^XMB(3.9,14,2,531,0)="""KRN"",.84,261130,-1)"
^XMB(3.9,14,2,532,0)="0^21"
^XMB(3.9,14,2,533,0)="""KRN"",.84,261130,0)"
^XMB(3.9,14,2,534,0)="261130^1^^REGISTRATION^Assignment retrieval failed"
^XMB(3.9,14,2,535,0)="""KRN"",.84,261130,1,0)"
^XMB(3.9,14,2,536,0)="^.842^2^2^3050411^^"
^XMB(3.9,14,2,537,0)="""KRN"",.84,261130,1,1,0)"
^XMB(3.9,14,2,538,0)="This error is reported when an HL7 query is unable to retrieve existing "
^XMB(3.9,14,2,539,0)="""KRN"",.84,261130,1,2,0)"
^XMB(3.9,14,2,540,0)="PRF assignment data for a patient."
^XMB(3.9,14,2,541,0)="""KRN"",.84,261130,2,0)"
^XMB(3.9,14,2,542,0)="^.844^1^1^3050411^^"
^XMB(3.9,14,2,543,0)="""KRN"",.84,261130,2,1,0)"
^XMB(3.9,14,2,544,0)="Unable to retrieve existing PRF assignment(s)"
^XMB(3.9,14,2,545,0)="""KRN"",.84,261130,5,0)"
^XMB(3.9,14,2,546,0)="^.841^1^1"
^XMB(3.9,14,2,547,0)="""KRN"",.84,261130,5,1,0)"
^XMB(3.9,14,2,548,0)="DGPFHLQ^BLDORF"
^XMB(3.9,14,2,549,0)="""KRN"",.84,261130,5,""B"",""DGPFHLQ"",1)"
^XMB(3.9,14,2,550,0)=""
^XMB(3.9,14,2,551,0)="""KRN"",.84,261131,-1)"
^XMB(3.9,14,2,552,0)="0^22"
^XMB(3.9,14,2,553,0)="""KRN"",.84,261131,0)"
^XMB(3.9,14,2,554,0)="261131^1^^REGISTRATION^Medical Center Division Indicator"
^XMB(3.9,14,2,555,0)="""KRN"",.84,261131,1,0)"
^XMB(3.9,14,2,556,0)="^.842^2^2^3050616^^"
^XMB(3.9,14,2,557,0)="""KRN"",.84,261131,1,1,0)"
^XMB(3.9,14,2,558,0)="This error is reported when a medical center division record can't be"
^XMB(3.9,14,2,559,0)="""KRN"",.84,261131,1,2,0)"
^XMB(3.9,14,2,560,0)="enabled or disabled as a patient record flag assignment owner."
^XMB(3.9,14,2,561,0)="""KRN"",.84,261131,2,0)"
^XMB(3.9,14,2,562,0)="^.844^1^1^3050616^^"
^XMB(3.9,14,2,563,0)="""KRN"",.84,261131,2,1,0)"
^XMB(3.9,14,2,564,0)="Medical center division was not updated"
^XMB(3.9,14,2,565,0)="""KRN"",.84,261131,3,0)"
^XMB(3.9,14,2,566,0)="^.845^^0"
^XMB(3.9,14,2,567,0)="""KRN"",.84,261131,5,0)"
^XMB(3.9,14,2,568,0)="^.841^1^1"
^XMB(3.9,14,2,569,0)="""KRN"",.84,261131,5,1,0)"
^XMB(3.9,14,2,570,0)="DGPFDIV^SET"
^XMB(3.9,14,2,571,0)="""KRN"",.84,261131,5,""B"",""DGPFDIV"",1)"
^XMB(3.9,14,2,572,0)=""
^XMB(3.9,14,2,573,0)="""KRN"",.84,261132,-1)"
^XMB(3.9,14,2,574,0)="0^23"
^XMB(3.9,14,2,575,0)="""KRN"",.84,261132,0)"
^XMB(3.9,14,2,576,0)="261132^1^^REGISTRATION^Patient has local ICN"
^XMB(3.9,14,2,577,0)="""KRN"",.84,261132,1,0)"
^XMB(3.9,14,2,578,0)="^^3^3^3050519^"
^XMB(3.9,14,2,579,0)="""KRN"",.84,261132,1,1,0)"
^XMB(3.9,14,2,580,0)="This dialog is returned when the patient has a local ICN, which prevents "
^XMB(3.9,14,2,581,0)="""KRN"",.84,261132,1,2,0)"
^XMB(3.9,14,2,582,0)="assignment of a Category I Patient Record Flag.  The content of the "
^XMB(3.9,14,2,583,0)="""KRN"",.84,261132,1,3,0)"
^XMB(3.9,14,2,584,0)="dialog was created and approved by the Patient Record Flag stakeholders."
^XMB(3.9,14,2,585,0)="""KRN"",.84,261132,2,0)"
^XMB(3.9,14,2,586,0)="^^6^6^3050818^"
^XMB(3.9,14,2,587,0)="""KRN"",.84,261132,2,1,0)"
^XMB(3.9,14,2,588,0)="PRF Category I (Behavioral) assignment for this patient cannot be "
^XMB(3.9,14,2,589,0)="""KRN"",.84,261132,2,2,0)"
^XMB(3.9,14,2,590,0)="entered.  Patient is missing a National Integration Control Number (ICN)."
^XMB(3.9,14,2,591,0)="""KRN"",.84,261132,2,3,0)"
^XMB(3.9,14,2,592,0)=" "
^XMB(3.9,14,2,593,0)="""KRN"",.84,261132,2,4,0)"
^XMB(3.9,14,2,594,0)="Recommend:  Assign Local Category II (Behavioral) Flag until National ICN "
^XMB(3.9,14,2,595,0)="""KRN"",.84,261132,2,5,0)"
^XMB(3.9,14,2,596,0)="is assigned.  Contact identified facility staff to assign ICN - then "
^XMB(3.9,14,2,597,0)="""KRN"",.84,261132,2,6,0)"
^XMB(3.9,14,2,598,0)="inactivate PRF Category II Flag and assign PRF Category I (Behavioral)."
^XMB(3.9,14,2,599,0)="""KRN"",.84,261132,5,0)"
^XMB(3.9,14,2,600,0)="^.841^1^1"
^XMB(3.9,14,2,601,0)="""KRN"",.84,261132,5,1,0)"
^XMB(3.9,14,2,602,0)="DGPFLMA2^AF"
^XMB(3.9,14,2,603,0)="""KRN"",.84,261132,5,""B"",""DGPFLMA2"",1)"
^XMB(3.9,14,2,604,0)=""
^XMB(3.9,14,2,605,0)="""MBREQ"")"
^XMB(3.9,14,2,606,0)="0"
^XMB(3.9,14,2,607,0)="""ORD"",9,.84)"
^XMB(3.9,14,2,608,0)=".84;9;;;EDEOUT^DIFROMSO(.84,DA,"""",XPDA);FPRE^DIFROMSI(.84,"""",XPDA);EPRE^DIFROMSI(.84,DA,"""",XPDA,"""",OLDA);;EPOST^DIFROMSI(.84,DA,"""",XPDA);DEL^DIFROMSK(.84,"""",%)"
^XMB(3.9,14,2,609,0)="""ORD"",9,.84,0)"
^XMB(3.9,14,2,610,0)="DIALOG"
^XMB(3.9,14,2,611,0)="""PKG"",5,-1)"
^XMB(3.9,14,2,612,0)="1^1"
^XMB(3.9,14,2,613,0)="""PKG"",5,0)"
^XMB(3.9,14,2,614,0)="REGISTRATION^DG^PATIENT REGISTRATION, ADMISSION, DISCHARGE, EMBOSSER "
^XMB(3.9,14,2,615,0)="""PKG"",5,20,0)"
^XMB(3.9,14,2,616,0)="^9.402P^^"
^XMB(3.9,14,2,617,0)="""PKG"",5,22,0)"
^XMB(3.9,14,2,618,0)="^9.49I^1^1"
^XMB(3.9,14,2,619,0)="""PKG"",5,22,1,0)"
^XMB(3.9,14,2,620,0)="5.3^2941102^2941102"
^XMB(3.9,14,2,621,0)="""PKG"",5,22,1,""PAH"",1,0)"
^XMB(3.9,14,2,622,0)="718^3060712"
^XMB(3.9,14,2,623,0)="""PKG"",5,22,1,""PAH"",1,1,0)"
^XMB(3.9,14,2,624,0)="^^2^2^3060712"
^XMB(3.9,14,2,625,0)="""PKG"",5,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,14,2,626,0)="Please refer to patch DG*5.3*718 in the National Patch Module for a"
^XMB(3.9,14,2,627,0)="""PKG"",5,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,14,2,628,0)="complete description of this patch."
^XMB(3.9,14,2,629,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,14,2,630,0)="Y"
^XMB(3.9,14,2,631,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,14,2,632,0)="^D REP^XPDH"
^XMB(3.9,14,2,633,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,14,2,634,0)="Shall I write over your |FLAG| File"
^XMB(3.9,14,2,635,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,14,2,636,0)="YES"
^XMB(3.9,14,2,637,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,14,2,638,0)="D XPF1^XPDIQ"
^XMB(3.9,14,2,639,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,14,2,640,0)="Y"
^XMB(3.9,14,2,641,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,14,2,642,0)="^D DTA^XPDH"
^XMB(3.9,14,2,643,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,14,2,644,0)="Want my data |FLAG| yours"
^XMB(3.9,14,2,645,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,14,2,646,0)="YES"
^XMB(3.9,14,2,647,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,14,2,648,0)="D XPF2^XPDIQ"
^XMB(3.9,14,2,649,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,14,2,650,0)="YO"
^XMB(3.9,14,2,651,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,14,2,652,0)="^D INHIBIT^XPDH"
^XMB(3.9,14,2,653,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,14,2,654,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,14,2,655,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,14,2,656,0)="YES"
^XMB(3.9,14,2,657,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,14,2,658,0)="D XPI1^XPDIQ"
^XMB(3.9,14,2,659,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,14,2,660,0)="PO^VA(200,:EM"
^XMB(3.9,14,2,661,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,14,2,662,0)="^D MG^XPDH"
^XMB(3.9,14,2,663,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,14,2,664,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,14,2,665,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,14,2,666,0)=""
^XMB(3.9,14,2,667,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,14,2,668,0)="D XPM1^XPDIQ"
^XMB(3.9,14,2,669,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,14,2,670,0)="Y"
^XMB(3.9,14,2,671,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,14,2,672,0)="^D MENU^XPDH"
^XMB(3.9,14,2,673,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,14,2,674,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,14,2,675,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,14,2,676,0)="YES"
^XMB(3.9,14,2,677,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,14,2,678,0)="D XPO1^XPDIQ"
^XMB(3.9,14,2,679,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,14,2,680,0)="Y"
^XMB(3.9,14,2,681,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,14,2,682,0)="^D OPT^XPDH"
^XMB(3.9,14,2,683,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,14,2,684,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,14,2,685,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,14,2,686,0)="YES"
^XMB(3.9,14,2,687,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,14,2,688,0)="D XPZ1^XPDIQ"
^XMB(3.9,14,2,689,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,14,2,690,0)="Y"
^XMB(3.9,14,2,691,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,14,2,692,0)="^D RTN^XPDH"
^XMB(3.9,14,2,693,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,14,2,694,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,14,2,695,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,14,2,696,0)="NO"
^XMB(3.9,14,2,697,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,14,2,698,0)="D XPZ2^XPDIQ"
^XMB(3.9,14,2,699,0)="""RTN"")"
^XMB(3.9,14,2,700,0)="2"
^XMB(3.9,14,2,701,0)="""RTN"",""DGPFHLU"")"
^XMB(3.9,14,2,702,0)="0^1^B27262143^B25993743"
^XMB(3.9,14,2,703,0)="""RTN"",""DGPFHLU"",1,0)"
^XMB(3.9,14,2,704,0)="DGPFHLU ;ALB/RPM - PRF HL7 ORU/ACK PROCESSING ; 6/14/03 10:56am"
^XMB(3.9,14,2,705,0)="""RTN"",""DGPFHLU"",2,0)"
^XMB(3.9,14,2,706,0)=" ;;5.3;Registration;**425,718**;Aug 13, 1993"
^XMB(3.9,14,2,707,0)="""RTN"",""DGPFHLU"",3,0)"
^XMB(3.9,14,2,708,0)=" ;"
^XMB(3.9,14,2,709,0)="""RTN"",""DGPFHLU"",4,0)"
^XMB(3.9,14,2,710,0)="BLDORU(DGPFA,DGPFAH,DGHL,DGROOT) ;Build ORU~R01 Message/Segments"
^XMB(3.9,14,2,711,0)="""RTN"",""DGPFHLU"",5,0)"
^XMB(3.9,14,2,712,0)=" ;"
^XMB(3.9,14,2,713,0)="""RTN"",""DGPFHLU"",6,0)"
^XMB(3.9,14,2,714,0)=" ;  Input:"
^XMB(3.9,14,2,715,0)="""RTN"",""DGPFHLU"",7,0)"
^XMB(3.9,14,2,716,0)=" ;      DGPFA - (required) Assignment data array"
^XMB(3.9,14,2,717,0)="""RTN"",""DGPFHLU"",8,0)"
^XMB(3.9,14,2,718,0)=" ;     DGPFAH - (required) Assignment history data array"
^XMB(3.9,14,2,719,0)="""RTN"",""DGPFHLU"",9,0)"
^XMB(3.9,14,2,720,0)=" ;       DGHL - (required) HL7 Kernel array passed by reference"
^XMB(3.9,14,2,721,0)="""RTN"",""DGPFHLU"",10,0)"
^XMB(3.9,14,2,722,0)=" ;     DGROOT - (required) Closed root array or global name for segment"
^XMB(3.9,14,2,723,0)="""RTN"",""DGPFHLU"",11,0)"
^XMB(3.9,14,2,724,0)=" ;              storage"
^XMB(3.9,14,2,725,0)="""RTN"",""DGPFHLU"",12,0)"
^XMB(3.9,14,2,726,0)=" ;"
^XMB(3.9,14,2,727,0)="""RTN"",""DGPFHLU"",13,0)"
^XMB(3.9,14,2,728,0)=" ;  Output:"
^XMB(3.9,14,2,729,0)="""RTN"",""DGPFHLU"",14,0)"
^XMB(3.9,14,2,730,0)=" ;   Function Value - 1 on success, 0 on failure"
^XMB(3.9,14,2,731,0)="""RTN"",""DGPFHLU"",15,0)"
^XMB(3.9,14,2,732,0)=" ;           DGROOT - array of HL7 segments"
^XMB(3.9,14,2,733,0)="""RTN"",""DGPFHLU"",16,0)"
^XMB(3.9,14,2,734,0)=" ;"
^XMB(3.9,14,2,735,0)="""RTN"",""DGPFHLU"",17,0)"
^XMB(3.9,14,2,736,0)=" N DGRSLT    ;function value"
^XMB(3.9,14,2,737,0)="""RTN"",""DGPFHLU"",18,0)"
^XMB(3.9,14,2,738,0)=" N DGSEG     ;segment counter"
^XMB(3.9,14,2,739,0)="""RTN"",""DGPFHLU"",19,0)"
^XMB(3.9,14,2,740,0)=" N DGSEGSTR  ;formatted segment string"
^XMB(3.9,14,2,741,0)="""RTN"",""DGPFHLU"",20,0)"
^XMB(3.9,14,2,742,0)=" N DGSET     ;set id"
^XMB(3.9,14,2,743,0)="""RTN"",""DGPFHLU"",21,0)"
^XMB(3.9,14,2,744,0)=" N DGSTR     ;field string"
^XMB(3.9,14,2,745,0)="""RTN"",""DGPFHLU"",22,0)"
^XMB(3.9,14,2,746,0)=" N DGTROOT   ;text root"
^XMB(3.9,14,2,747,0)="""RTN"",""DGPFHLU"",23,0)"
^XMB(3.9,14,2,748,0)=" ;"
^XMB(3.9,14,2,749,0)="""RTN"",""DGPFHLU"",24,0)"
^XMB(3.9,14,2,750,0)=" S DGRSLT=0"
^XMB(3.9,14,2,751,0)="""RTN"",""DGPFHLU"",25,0)"
^XMB(3.9,14,2,752,0)=" S DGSEG=0"
^XMB(3.9,14,2,753,0)="""RTN"",""DGPFHLU"",26,0)"
^XMB(3.9,14,2,754,0)=" ;"
^XMB(3.9,14,2,755,0)="""RTN"",""DGPFHLU"",27,0)"
^XMB(3.9,14,2,756,0)=" I $D(DGPFA),$D(DGPFAH),$G(DGROOT)]"""" D"
^XMB(3.9,14,2,757,0)="""RTN"",""DGPFHLU"",28,0)"
^XMB(3.9,14,2,758,0)=" . ;"
^XMB(3.9,14,2,759,0)="""RTN"",""DGPFHLU"",29,0)"
^XMB(3.9,14,2,760,0)=" . ;build PID"
^XMB(3.9,14,2,761,0)="""RTN"",""DGPFHLU"",30,0)"
^XMB(3.9,14,2,762,0)=" . S DGSTR=""1,2,3,5,7,8,19"""
^XMB(3.9,14,2,763,0)="""RTN"",""DGPFHLU"",31,0)"
^XMB(3.9,14,2,764,0)=" . S DGSEGSTR=$$EN^VAFHLPID(+DGPFA(""DFN""),DGSTR,1,1)"
^XMB(3.9,14,2,765,0)="""RTN"",""DGPFHLU"",32,0)"
^XMB(3.9,14,2,766,0)=" . Q:(DGSEGSTR="""")"
^XMB(3.9,14,2,767,0)="""RTN"",""DGPFHLU"",33,0)"
^XMB(3.9,14,2,768,0)=" . S DGSEG=DGSEG+1,@DGROOT@(DGSEG)=DGSEGSTR"
^XMB(3.9,14,2,769,0)="""RTN"",""DGPFHLU"",34,0)"
^XMB(3.9,14,2,770,0)=" . ;"
^XMB(3.9,14,2,771,0)="""RTN"",""DGPFHLU"",35,0)"
^XMB(3.9,14,2,772,0)=" . ;build OBR"
^XMB(3.9,14,2,773,0)="""RTN"",""DGPFHLU"",36,0)"
^XMB(3.9,14,2,774,0)=" . S DGSET=1"
^XMB(3.9,14,2,775,0)="""RTN"",""DGPFHLU"",37,0)"
^XMB(3.9,14,2,776,0)=" . S DGSTR=""1,4,7,20"""
^XMB(3.9,14,2,777,0)="""RTN"",""DGPFHLU"",38,0)"
^XMB(3.9,14,2,778,0)=" . S DGSEGSTR=$$OBR^DGPFHLU1(DGSET,.DGPFA,.DGPFAH,DGSTR,.DGHL)"
^XMB(3.9,14,2,779,0)="""RTN"",""DGPFHLU"",39,0)"
^XMB(3.9,14,2,780,0)=" . Q:(DGSEGSTR="""")"
^XMB(3.9,14,2,781,0)="""RTN"",""DGPFHLU"",40,0)"
^XMB(3.9,14,2,782,0)=" . S DGSEG=DGSEG+1,@DGROOT@(DGSEG)=DGSEGSTR"
^XMB(3.9,14,2,783,0)="""RTN"",""DGPFHLU"",41,0)"
^XMB(3.9,14,2,784,0)=" . ;"
^XMB(3.9,14,2,785,0)="""RTN"",""DGPFHLU"",42,0)"
^XMB(3.9,14,2,786,0)=" . ;start OBX segments"
^XMB(3.9,14,2,787,0)="""RTN"",""DGPFHLU"",43,0)"
^XMB(3.9,14,2,788,0)=" . S DGSET=0"
^XMB(3.9,14,2,789,0)="""RTN"",""DGPFHLU"",44,0)"
^XMB(3.9,14,2,790,0)=" . ;"
^XMB(3.9,14,2,791,0)="""RTN"",""DGPFHLU"",45,0)"
^XMB(3.9,14,2,792,0)=" . ;build narrative OBX segments"
^XMB(3.9,14,2,793,0)="""RTN"",""DGPFHLU"",46,0)"
^XMB(3.9,14,2,794,0)=" . S DGTROOT=""DGPFA(""""NARR"""")"""
^XMB(3.9,14,2,795,0)="""RTN"",""DGPFHLU"",47,0)"
^XMB(3.9,14,2,796,0)=" . Q:'$$BLDOBXTX^DGPFHLU2(DGROOT,DGTROOT,""N"",.DGPFAH,.DGHL,.DGSEG,.DGSET)"
^XMB(3.9,14,2,797,0)="""RTN"",""DGPFHLU"",48,0)"
^XMB(3.9,14,2,798,0)=" . ;"
^XMB(3.9,14,2,799,0)="""RTN"",""DGPFHLU"",49,0)"
^XMB(3.9,14,2,800,0)=" . ;build status OBX segment"
^XMB(3.9,14,2,801,0)="""RTN"",""DGPFHLU"",50,0)"
^XMB(3.9,14,2,802,0)=" . S DGSTR=""1,2,3,5,11,14"""
^XMB(3.9,14,2,803,0)="""RTN"",""DGPFHLU"",51,0)"
^XMB(3.9,14,2,804,0)=" . S DGSET=DGSET+1"
^XMB(3.9,14,2,805,0)="""RTN"",""DGPFHLU"",52,0)"
^XMB(3.9,14,2,806,0)=" . S DGSEGSTR=$$OBX^DGPFHLU2(DGSET,""S"","""",$P($G(DGPFAH(""ACTION"")),U,2),.DGPFAH,DGSTR,.DGHL)"
^XMB(3.9,14,2,807,0)="""RTN"",""DGPFHLU"",53,0)"
^XMB(3.9,14,2,808,0)=" . Q:(DGSEGSTR="""")"
^XMB(3.9,14,2,809,0)="""RTN"",""DGPFHLU"",54,0)"
^XMB(3.9,14,2,810,0)=" . S DGSEG=DGSEG+1,@DGROOT@(DGSEG)=DGSEGSTR"
^XMB(3.9,14,2,811,0)="""RTN"",""DGPFHLU"",55,0)"
^XMB(3.9,14,2,812,0)=" . ;"
^XMB(3.9,14,2,813,0)="""RTN"",""DGPFHLU"",56,0)"
^XMB(3.9,14,2,814,0)=" . ;build review comment OBX segments"
^XMB(3.9,14,2,815,0)="""RTN"",""DGPFHLU"",57,0)"
^XMB(3.9,14,2,816,0)=" . S DGTROOT=""DGPFAH(""""COMMENT"""")"""
^XMB(3.9,14,2,817,0)="""RTN"",""DGPFHLU"",58,0)"
^XMB(3.9,14,2,818,0)=" . Q:'$$BLDOBXTX^DGPFHLU2(DGROOT,DGTROOT,""C"",.DGPFAH,.DGHL,.DGSEG,.DGSET)"
^XMB(3.9,14,2,819,0)="""RTN"",""DGPFHLU"",59,0)"
^XMB(3.9,14,2,820,0)=" . ;"
^XMB(3.9,14,2,821,0)="""RTN"",""DGPFHLU"",60,0)"
^XMB(3.9,14,2,822,0)=" . ;success"
^XMB(3.9,14,2,823,0)="""RTN"",""DGPFHLU"",61,0)"
^XMB(3.9,14,2,824,0)=" . S DGRSLT=1"
^XMB(3.9,14,2,825,0)="""RTN"",""DGPFHLU"",62,0)"
^XMB(3.9,14,2,826,0)=" ;"
^XMB(3.9,14,2,827,0)="""RTN"",""DGPFHLU"",63,0)"
^XMB(3.9,14,2,828,0)=" Q DGRSLT"
^XMB(3.9,14,2,829,0)="""RTN"",""DGPFHLU"",64,0)"
^XMB(3.9,14,2,830,0)=" ;"
^XMB(3.9,14,2,831,0)="""RTN"",""DGPFHLU"",65,0)"
^XMB(3.9,14,2,832,0)="PARSORU(DGWRK,DGHL,DGPFA,DGPFAH,DGPFERR) ;Parse ORU~R01 Message/Segments"
^XMB(3.9,14,2,833,0)="""RTN"",""DGPFHLU"",66,0)"
^XMB(3.9,14,2,834,0)=" ;"
^XMB(3.9,14,2,835,0)="""RTN"",""DGPFHLU"",67,0)"
^XMB(3.9,14,2,836,0)=" ;  Input:"
^XMB(3.9,14,2,837,0)="""RTN"",""DGPFHLU"",68,0)"
^XMB(3.9,14,2,838,0)=" ;     DGWRK - Closed root work global reference"
^XMB(3.9,14,2,839,0)="""RTN"",""DGPFHLU"",69,0)"
^XMB(3.9,14,2,840,0)=" ;      DGHL - HL7 environment array"
^XMB(3.9,14,2,841,0)="""RTN"",""DGPFHLU"",70,0)"
^XMB(3.9,14,2,842,0)=" ;"
^XMB(3.9,14,2,843,0)="""RTN"",""DGPFHLU"",71,0)"
^XMB(3.9,14,2,844,0)=" ;  Output:"
^XMB(3.9,14,2,845,0)="""RTN"",""DGPFHLU"",72,0)"
^XMB(3.9,14,2,846,0)=" ;     DGPFA - Assignment data array"
^XMB(3.9,14,2,847,0)="""RTN"",""DGPFHLU"",73,0)"
^XMB(3.9,14,2,848,0)=" ;    DGPFAH - Assignment history data array"
^XMB(3.9,14,2,849,0)="""RTN"",""DGPFHLU"",74,0)"
^XMB(3.9,14,2,850,0)=" ;   DGPFERR - Undefined on success, ERR segment data array on failure"
^XMB(3.9,14,2,851,0)="""RTN"",""DGPFHLU"",75,0)"
^XMB(3.9,14,2,852,0)=" ;             Format:  DGPFERR(seg_id,sequence,fld_pos)=error_code"
^XMB(3.9,14,2,853,0)="""RTN"",""DGPFHLU"",76,0)"
^XMB(3.9,14,2,854,0)=" ;"
^XMB(3.9,14,2,855,0)="""RTN"",""DGPFHLU"",77,0)"
^XMB(3.9,14,2,856,0)=" N DGFS      ;field separator"
^XMB(3.9,14,2,857,0)="""RTN"",""DGPFHLU"",78,0)"
^XMB(3.9,14,2,858,0)=" N DGCS      ;component separator"
^XMB(3.9,14,2,859,0)="""RTN"",""DGPFHLU"",79,0)"
^XMB(3.9,14,2,860,0)=" N DGRS      ;repetition separator"
^XMB(3.9,14,2,861,0)="""RTN"",""DGPFHLU"",80,0)"
^XMB(3.9,14,2,862,0)=" N DGCURLIN  ;current segment line"
^XMB(3.9,14,2,863,0)="""RTN"",""DGPFHLU"",81,0)"
^XMB(3.9,14,2,864,0)=" N DGSEG     ;segment field data array"
^XMB(3.9,14,2,865,0)="""RTN"",""DGPFHLU"",82,0)"
^XMB(3.9,14,2,866,0)=" N DGERR     ;error processing array"
^XMB(3.9,14,2,867,0)="""RTN"",""DGPFHLU"",83,0)"
^XMB(3.9,14,2,868,0)=" ;"
^XMB(3.9,14,2,869,0)="""RTN"",""DGPFHLU"",84,0)"
^XMB(3.9,14,2,870,0)=" S DGFS=DGHL(""FS"")"
^XMB(3.9,14,2,871,0)="""RTN"",""DGPFHLU"",85,0)"
^XMB(3.9,14,2,872,0)=" S DGCS=$E(DGHL(""ECH""),1)"
^XMB(3.9,14,2,873,0)="""RTN"",""DGPFHLU"",86,0)"
^XMB(3.9,14,2,874,0)=" S DGRS=$E(DGHL(""ECH""),2)"
^XMB(3.9,14,2,875,0)="""RTN"",""DGPFHLU"",87,0)"
^XMB(3.9,14,2,876,0)=" S DGCURLIN=0"
^XMB(3.9,14,2,877,0)="""RTN"",""DGPFHLU"",88,0)"
^XMB(3.9,14,2,878,0)=" ;"
^XMB(3.9,14,2,879,0)="""RTN"",""DGPFHLU"",89,0)"
^XMB(3.9,14,2,880,0)=" ;loop through the message segments and retrieve the field data"
^XMB(3.9,14,2,881,0)="""RTN"",""DGPFHLU"",90,0)"
^XMB(3.9,14,2,882,0)=" F  D  Q:'DGCURLIN"
^XMB(3.9,14,2,883,0)="""RTN"",""DGPFHLU"",91,0)"
^XMB(3.9,14,2,884,0)=" . N DGSEG"
^XMB(3.9,14,2,885,0)="""RTN"",""DGPFHLU"",92,0)"
^XMB(3.9,14,2,886,0)=" . S DGCURLIN=$$NXTSEG^DGPFHLUT(DGWRK,DGCURLIN,DGFS,.DGSEG)"
^XMB(3.9,14,2,887,0)="""RTN"",""DGPFHLU"",93,0)"
^XMB(3.9,14,2,888,0)=" . Q:'DGCURLIN"
^XMB(3.9,14,2,889,0)="""RTN"",""DGPFHLU"",94,0)"
^XMB(3.9,14,2,890,0)=" . D @(DGSEG(""TYPE"")_""(.DGSEG,DGCS,DGRS,.DGPFA,.DGPFAH,.DGPFERR)"")"
^XMB(3.9,14,2,891,0)="""RTN"",""DGPFHLU"",95,0)"
^XMB(3.9,14,2,892,0)=" ;"
^XMB(3.9,14,2,893,0)="""RTN"",""DGPFHLU"",96,0)"
^XMB(3.9,14,2,894,0)=" ;the ENTERBY and APPRVBY will always be POSTMASTER (DUZ=.5)"
^XMB(3.9,14,2,895,0)="""RTN"",""DGPFHLU"",97,0)"
^XMB(3.9,14,2,896,0)=" S DGPFAH(""ENTERBY"")=.5  ;ENTERED BY  (.04) field, file 26.14"
^XMB(3.9,14,2,897,0)="""RTN"",""DGPFHLU"",98,0)"
^XMB(3.9,14,2,898,0)=" S DGPFAH(""APPRVBY"")=.5  ;APPROVED BY (.05) field, file 26.14"
^XMB(3.9,14,2,899,0)="""RTN"",""DGPFHLU"",99,0)"
^XMB(3.9,14,2,900,0)=" Q"
^XMB(3.9,14,2,901,0)="""RTN"",""DGPFHLU"",100,0)"
^XMB(3.9,14,2,902,0)=" ;"
^XMB(3.9,14,2,903,0)="""RTN"",""DGPFHLU"",101,0)"
^XMB(3.9,14,2,904,0)="MSH(DGSEG,DGCS,DGRS,DGPFA,DGPFAH,DGERR) ;"
^XMB(3.9,14,2,905,0)="""RTN"",""DGPFHLU"",102,0)"
^XMB(3.9,14,2,906,0)=" ;"
^XMB(3.9,14,2,907,0)="""RTN"",""DGPFHLU"",103,0)"
^XMB(3.9,14,2,908,0)=" ;  Input:"
^XMB(3.9,14,2,909,0)="""RTN"",""DGPFHLU"",104,0)"
^XMB(3.9,14,2,910,0)=" ;    DGSEG - MSH segment field array"
^XMB(3.9,14,2,911,0)="""RTN"",""DGPFHLU"",105,0)"
^XMB(3.9,14,2,912,0)=" ;     DGCS - HL7 component separator"
^XMB(3.9,14,2,913,0)="""RTN"",""DGPFHLU"",106,0)"
^XMB(3.9,14,2,914,0)=" ;     DGRS - HL7 repetition separator"
^XMB(3.9,14,2,915,0)="""RTN"",""DGPFHLU"",107,0)"
^XMB(3.9,14,2,916,0)=" ;"
^XMB(3.9,14,2,917,0)="""RTN"",""DGPFHLU"",108,0)"
^XMB(3.9,14,2,918,0)=" ;  Output:"
^XMB(3.9,14,2,919,0)="""RTN"",""DGPFHLU"",109,0)"
^XMB(3.9,14,2,920,0)=" ;   DGPFA(""ORIGSITE"") - ORIGINATING SITE (.05) field, file #26.13 "
^XMB(3.9,14,2,921,0)="""RTN"",""DGPFHLU"",110,0)"
^XMB(3.9,14,2,922,0)=" ;               DGERR - undefined on success, error array on failure"
^XMB(3.9,14,2,923,0)="""RTN"",""DGPFHLU"",111,0)"
^XMB(3.9,14,2,924,0)=" ;                      format: DGERR(seg_id,sequence,fld_pos)=error code"
^XMB(3.9,14,2,925,0)="""RTN"",""DGPFHLU"",112,0)"
^XMB(3.9,14,2,926,0)=" ;"
^XMB(3.9,14,2,927,0)="""RTN"",""DGPFHLU"",113,0)"
^XMB(3.9,14,2,928,0)=" S DGPFA(""ORIGSITE"")=$$IEN^XUAF4($P(DGSEG(4),DGCS,1))"
^XMB(3.9,14,2,929,0)="""RTN"",""DGPFHLU"",114,0)"
^XMB(3.9,14,2,930,0)=" I (DGPFA(""ORIGSITE"")="""")!('$$TESTVAL^DGPFUT(26.13,.05,DGPFA(""ORIGSITE""))) D"
^XMB(3.9,14,2,931,0)="""RTN"",""DGPFHLU"",115,0)"
^XMB(3.9,14,2,932,0)=" . S DGERR(""MSH"",1,4)=""IOR"""
^XMB(3.9,14,2,933,0)="""RTN"",""DGPFHLU"",116,0)"
^XMB(3.9,14,2,934,0)=" Q"
^XMB(3.9,14,2,935,0)="""RTN"",""DGPFHLU"",117,0)"
^XMB(3.9,14,2,936,0)=" ;"
^XMB(3.9,14,2,937,0)="""RTN"",""DGPFHLU"",118,0)"
^XMB(3.9,14,2,938,0)="PID(DGSEG,DGCS,DGRS,DGPFA,DGPFAH,DGERR) ;"
^XMB(3.9,14,2,939,0)="""RTN"",""DGPFHLU"",119,0)"
^XMB(3.9,14,2,940,0)=" ;"
^XMB(3.9,14,2,941,0)="""RTN"",""DGPFHLU"",120,0)"
^XMB(3.9,14,2,942,0)=" ;  Input:"
^XMB(3.9,14,2,943,0)="""RTN"",""DGPFHLU"",121,0)"
^XMB(3.9,14,2,944,0)=" ;    DGSEG - PID segment field array"
^XMB(3.9,14,2,945,0)="""RTN"",""DGPFHLU"",122,0)"
^XMB(3.9,14,2,946,0)=" ;     DGCS - HL7 component separator"
^XMB(3.9,14,2,947,0)="""RTN"",""DGPFHLU"",123,0)"
^XMB(3.9,14,2,948,0)=" ;     DGRS - HL7 repetition separator"
^XMB(3.9,14,2,949,0)="""RTN"",""DGPFHLU"",124,0)"
^XMB(3.9,14,2,950,0)=" ;"
^XMB(3.9,14,2,951,0)="""RTN"",""DGPFHLU"",125,0)"
^XMB(3.9,14,2,952,0)=" ;  Output:"
^XMB(3.9,14,2,953,0)="""RTN"",""DGPFHLU"",126,0)"
^XMB(3.9,14,2,954,0)=" ;    DGPFA(""DFN"") - PATIENT NAME (.01) field, file #26.13"
^XMB(3.9,14,2,955,0)="""RTN"",""DGPFHLU"",127,0)"
^XMB(3.9,14,2,956,0)=" ;           DGERR - undefined on success, error array on failure"
^XMB(3.9,14,2,957,0)="""RTN"",""DGPFHLU"",128,0)"
^XMB(3.9,14,2,958,0)=" ;                   format: DGERR(seg_id,sequence,fld_pos)=error code"
^XMB(3.9,14,2,959,0)="""RTN"",""DGPFHLU"",129,0)"
^XMB(3.9,14,2,960,0)=" ;"
^XMB(3.9,14,2,961,0)="""RTN"",""DGPFHLU"",130,0)"
^XMB(3.9,14,2,962,0)=" N DGICN"
^XMB(3.9,14,2,963,0)="""RTN"",""DGPFHLU"",131,0)"
^XMB(3.9,14,2,964,0)=" N DGDOB"
^XMB(3.9,14,2,965,0)="""RTN"",""DGPFHLU"",132,0)"
^XMB(3.9,14,2,966,0)=" N DGSSN"
^XMB(3.9,14,2,967,0)="""RTN"",""DGPFHLU"",133,0)"
^XMB(3.9,14,2,968,0)=" ;"
^XMB(3.9,14,2,969,0)="""RTN"",""DGPFHLU"",134,0)"
^XMB(3.9,14,2,970,0)=" S DGICN=+$P(DGSEG(3),DGCS,1)"
^XMB(3.9,14,2,971,0)="""RTN"",""DGPFHLU"",135,0)"
^XMB(3.9,14,2,972,0)=" S DGDOB=+$$HL7TFM^XLFDT(DGSEG(7))"
^XMB(3.9,14,2,973,0)="""RTN"",""DGPFHLU"",136,0)"
^XMB(3.9,14,2,974,0)=" S DGSSN=DGSEG(19)"
^XMB(3.9,14,2,975,0)="""RTN"",""DGPFHLU"",137,0)"
^XMB(3.9,14,2,976,0)=" S DGPFA(""DFN"")=$$GETDFN^DGPFUT2(DGICN,DGDOB,DGSSN)"
^XMB(3.9,14,2,977,0)="""RTN"",""DGPFHLU"",138,0)"
^XMB(3.9,14,2,978,0)=" I 'DGPFA(""DFN"") D"
^XMB(3.9,14,2,979,0)="""RTN"",""DGPFHLU"",139,0)"
^XMB(3.9,14,2,980,0)=" . S DGERR(""PID"",DGSEG(1),3)=""NM""  ;no match"
^XMB(3.9,14,2,981,0)="""RTN"",""DGPFHLU"",140,0)"
^XMB(3.9,14,2,982,0)=" Q"
^XMB(3.9,14,2,983,0)="""RTN"",""DGPFHLU"",141,0)"
^XMB(3.9,14,2,984,0)=" ;"
^XMB(3.9,14,2,985,0)="""RTN"",""DGPFHLU"",142,0)"
^XMB(3.9,14,2,986,0)="OBR(DGSEG,DGCS,DGRS,DGPFA,DGPFAH,DGERR) ;"
^XMB(3.9,14,2,987,0)="""RTN"",""DGPFHLU"",143,0)"
^XMB(3.9,14,2,988,0)=" ;"
^XMB(3.9,14,2,989,0)="""RTN"",""DGPFHLU"",144,0)"
^XMB(3.9,14,2,990,0)=" ;  Input:"
^XMB(3.9,14,2,991,0)="""RTN"",""DGPFHLU"",145,0)"
^XMB(3.9,14,2,992,0)=" ;    DGSEG - OBR segment field array"
^XMB(3.9,14,2,993,0)="""RTN"",""DGPFHLU"",146,0)"
^XMB(3.9,14,2,994,0)=" ;     DGCS - HL7 component separator"
^XMB(3.9,14,2,995,0)="""RTN"",""DGPFHLU"",147,0)"
^XMB(3.9,14,2,996,0)=" ;     DGRS - HL7 repetition separator"
^XMB(3.9,14,2,997,0)="""RTN"",""DGPFHLU"",148,0)"
^XMB(3.9,14,2,998,0)=" ;"
^XMB(3.9,14,2,999,0)="""RTN"",""DGPFHLU"",149,0)"
^XMB(3.9,14,2,1000,0)=" ;  Output:"
^XMB(3.9,14,2,1001,0)="""RTN"",""DGPFHLU"",150,0)"
^XMB(3.9,14,2,1002,0)=" ;    DGPFA(""FLAG"") - FLAG NAME  (.02) field, file #26.13"
^XMB(3.9,14,2,1003,0)="""RTN"",""DGPFHLU"",151,0)"
^XMB(3.9,14,2,1004,0)=" ;   DGPFA(""OWNER"") - OWNER SITE (.04) field, file #26.13"
^XMB(3.9,14,2,1005,0)="""RTN"",""DGPFHLU"",152,0)"
^XMB(3.9,14,2,1006,0)=" ;            DGERR - undefined on success, error array on failure"
^XMB(3.9,14,2,1007,0)="""RTN"",""DGPFHLU"",153,0)"
^XMB(3.9,14,2,1008,0)=" ;                    format: DGERR(seg_id,sequence,fld_pos)=error code"
^XMB(3.9,14,2,1009,0)="""RTN"",""DGPFHLU"",154,0)"
^XMB(3.9,14,2,1010,0)=" ;"
^XMB(3.9,14,2,1011,0)="""RTN"",""DGPFHLU"",155,0)"
^XMB(3.9,14,2,1012,0)=" S DGPFA(""FLAG"")=$P($G(DGSEG(4)),DGCS,1)_"";DGPF(26.15,"""
^XMB(3.9,14,2,1013,0)="""RTN"",""DGPFHLU"",156,0)"
^XMB(3.9,14,2,1014,0)=" I '$$TESTVAL^DGPFUT(26.13,.02,DGPFA(""FLAG"")) D"
^XMB(3.9,14,2,1015,0)="""RTN"",""DGPFHLU"",157,0)"
^XMB(3.9,14,2,1016,0)=" . S DGERR(""OBR"",DGSEG(1),4)=""IF""   ;invalid flag"
^XMB(3.9,14,2,1017,0)="""RTN"",""DGPFHLU"",158,0)"
^XMB(3.9,14,2,1018,0)=" S DGPFA(""OWNER"")=$$IEN^XUAF4(DGSEG(20))"
^XMB(3.9,14,2,1019,0)="""RTN"",""DGPFHLU"",159,0)"
^XMB(3.9,14,2,1020,0)=" I (DGPFA(""OWNER"")="""")!('$$TESTVAL^DGPFUT(26.13,.04,DGPFA(""OWNER""))) D "
^XMB(3.9,14,2,1021,0)="""RTN"",""DGPFHLU"",160,0)"
^XMB(3.9,14,2,1022,0)=" . S DGERR(""OBR"",DGSEG(1),20)=""IOW""  ;invalid owner site"
^XMB(3.9,14,2,1023,0)="""RTN"",""DGPFHLU"",161,0)"
^XMB(3.9,14,2,1024,0)=" Q"
^XMB(3.9,14,2,1025,0)="""RTN"",""DGPFHLU"",162,0)"
^XMB(3.9,14,2,1026,0)=" ;"
^XMB(3.9,14,2,1027,0)="""RTN"",""DGPFHLU"",163,0)"
^XMB(3.9,14,2,1028,0)="OBX(DGSEG,DGCS,DGRS,DGPFA,DGPFAH,DGERR) ;"
^XMB(3.9,14,2,1029,0)="""RTN"",""DGPFHLU"",164,0)"
^XMB(3.9,14,2,1030,0)=" ;"
^XMB(3.9,14,2,1031,0)="""RTN"",""DGPFHLU"",165,0)"
^XMB(3.9,14,2,1032,0)=" ;  Input:"
^XMB(3.9,14,2,1033,0)="""RTN"",""DGPFHLU"",166,0)"
^XMB(3.9,14,2,1034,0)=" ;    DGSEG - OBX segment field array"
^XMB(3.9,14,2,1035,0)="""RTN"",""DGPFHLU"",167,0)"
^XMB(3.9,14,2,1036,0)=" ;     DGCS - HL7 component separator"
^XMB(3.9,14,2,1037,0)="""RTN"",""DGPFHLU"",168,0)"
^XMB(3.9,14,2,1038,0)=" ;     DGRS - HL7 repetition separator"
^XMB(3.9,14,2,1039,0)="""RTN"",""DGPFHLU"",169,0)"
^XMB(3.9,14,2,1040,0)=" ;"
^XMB(3.9,14,2,1041,0)="""RTN"",""DGPFHLU"",170,0)"
^XMB(3.9,14,2,1042,0)=" ;  Output:"
^XMB(3.9,14,2,1043,0)="""RTN"",""DGPFHLU"",171,0)"
^XMB(3.9,14,2,1044,0)=" ;    DGPFA(""STATUS"") - STATUS               (.03) field, file #26.13"
^XMB(3.9,14,2,1045,0)="""RTN"",""DGPFHLU"",172,0)"
^XMB(3.9,14,2,1046,0)=" ;      DGPFA(""NARR"") - ASSIGNMENT NARRATIVE   (1) field, file #26.13"
^XMB(3.9,14,2,1047,0)="""RTN"",""DGPFHLU"",173,0)"
^XMB(3.9,14,2,1048,0)=" ; DGPFAH(""ASSIGNDT"") - DATE/TIME            (.02) field, file #26.14"
^XMB(3.9,14,2,1049,0)="""RTN"",""DGPFHLU"",174,0)"
^XMB(3.9,14,2,1050,0)=" ;   DGPFAH(""ACTION"") - ACTION               (.03) field, file #26.14"
^XMB(3.9,14,2,1051,0)="""RTN"",""DGPFHLU"",175,0)"
^XMB(3.9,14,2,1052,0)=" ;  DGPFAH(""COMMENT"") - HISTORY COMMENTS       (1) field, file #26.14"
^XMB(3.9,14,2,1053,0)="""RTN"",""DGPFHLU"",176,0)"
^XMB(3.9,14,2,1054,0)=" ;              DGERR - undefined on success, error array on failure"
^XMB(3.9,14,2,1055,0)="""RTN"",""DGPFHLU"",177,0)"
^XMB(3.9,14,2,1056,0)=" ;                      format: DGERR(seg_id,sequence,fld_pos)=error code"
^XMB(3.9,14,2,1057,0)="""RTN"",""DGPFHLU"",178,0)"
^XMB(3.9,14,2,1058,0)=" ;"
^XMB(3.9,14,2,1059,0)="""RTN"",""DGPFHLU"",179,0)"
^XMB(3.9,14,2,1060,0)=" N DGI"
^XMB(3.9,14,2,1061,0)="""RTN"",""DGPFHLU"",180,0)"
^XMB(3.9,14,2,1062,0)=" N DGLINE"
^XMB(3.9,14,2,1063,0)="""RTN"",""DGPFHLU"",181,0)"
^XMB(3.9,14,2,1064,0)=" N DGRSLT"
^XMB(3.9,14,2,1065,0)="""RTN"",""DGPFHLU"",182,0)"
^XMB(3.9,14,2,1066,0)=" ;"
^XMB(3.9,14,2,1067,0)="""RTN"",""DGPFHLU"",183,0)"
^XMB(3.9,14,2,1068,0)=" ;validate Observation ID value - quit if invalid"
^XMB(3.9,14,2,1069,0)="""RTN"",""DGPFHLU"",184,0)"
^XMB(3.9,14,2,1070,0)=" I '$F(""NSC"",$P(DGSEG(3),DGCS,1)) D  Q"
^XMB(3.9,14,2,1071,0)="""RTN"",""DGPFHLU"",185,0)"
^XMB(3.9,14,2,1072,0)=" . S DGERR(""OBX"",DGSEG(1),3)=""IID"""
^XMB(3.9,14,2,1073,0)="""RTN"",""DGPFHLU"",186,0)"
^XMB(3.9,14,2,1074,0)=" ;"
^XMB(3.9,14,2,1075,0)="""RTN"",""DGPFHLU"",187,0)"
^XMB(3.9,14,2,1076,0)=" ; Narrative Observation Identifier"
^XMB(3.9,14,2,1077,0)="""RTN"",""DGPFHLU"",188,0)"
^XMB(3.9,14,2,1078,0)=" I $P(DGSEG(3),DGCS,1)=""N"" D"
^XMB(3.9,14,2,1079,0)="""RTN"",""DGPFHLU"",189,0)"
^XMB(3.9,14,2,1080,0)=" . S DGLINE=$O(DGPFA(""NARR"",""""),-1)"
^XMB(3.9,14,2,1081,0)="""RTN"",""DGPFHLU"",190,0)"
^XMB(3.9,14,2,1082,0)=" . F DGI=1:1:$L(DGSEG(5),DGRS) D"
^XMB(3.9,14,2,1083,0)="""RTN"",""DGPFHLU"",191,0)"
^XMB(3.9,14,2,1084,0)=" . . S DGPFA(""NARR"",DGLINE+DGI,0)=$P(DGSEG(5),DGRS,DGI)"
^XMB(3.9,14,2,1085,0)="""RTN"",""DGPFHLU"",192,0)"
^XMB(3.9,14,2,1086,0)=" ;"
^XMB(3.9,14,2,1087,0)="""RTN"",""DGPFHLU"",193,0)"
^XMB(3.9,14,2,1088,0)=" ; Status Observation Identifier"
^XMB(3.9,14,2,1089,0)="""RTN"",""DGPFHLU"",194,0)"
^XMB(3.9,14,2,1090,0)=" I $P(DGSEG(3),DGCS,1)=""S"" D"
^XMB(3.9,14,2,1091,0)="""RTN"",""DGPFHLU"",195,0)"
^XMB(3.9,14,2,1092,0)=" . K DGPFAH(""COMMENT"")  ;prepare for following OBX ""COMMENT"" segments"
^XMB(3.9,14,2,1093,0)="""RTN"",""DGPFHLU"",196,0)"
^XMB(3.9,14,2,1094,0)=" . D CHK^DIE(26.14,.03,,DGSEG(5),.DGRSLT)"
^XMB(3.9,14,2,1095,0)="""RTN"",""DGPFHLU"",197,0)"
^XMB(3.9,14,2,1096,0)=" . S DGPFAH(""ACTION"")=+DGRSLT"
^XMB(3.9,14,2,1097,0)="""RTN"",""DGPFHLU"",198,0)"
^XMB(3.9,14,2,1098,0)=" . S DGPFAH(""ASSIGNDT"")=$$HL7TFM^XLFDT(DGSEG(14))"
^XMB(3.9,14,2,1099,0)="""RTN"",""DGPFHLU"",199,0)"
^XMB(3.9,14,2,1100,0)=" . S DGPFA(""STATUS"")=$$STATUS^DGPFUT(DGPFAH(""ACTION""))"
^XMB(3.9,14,2,1101,0)="""RTN"",""DGPFHLU"",200,0)"
^XMB(3.9,14,2,1102,0)=" ;"
^XMB(3.9,14,2,1103,0)="""RTN"",""DGPFHLU"",201,0)"
^XMB(3.9,14,2,1104,0)=" ; Comment Observation Identifier"
^XMB(3.9,14,2,1105,0)="""RTN"",""DGPFHLU"",202,0)"
^XMB(3.9,14,2,1106,0)=" I $P(DGSEG(3),DGCS,1)=""C"" D"
^XMB(3.9,14,2,1107,0)="""RTN"",""DGPFHLU"",203,0)"
^XMB(3.9,14,2,1108,0)=" . S DGLINE=$O(DGPFAH(""COMMENT"",""""),-1)"
^XMB(3.9,14,2,1109,0)="""RTN"",""DGPFHLU"",204,0)"
^XMB(3.9,14,2,1110,0)=" . F DGI=1:1:$L(DGSEG(5),DGRS) D"
^XMB(3.9,14,2,1111,0)="""RTN"",""DGPFHLU"",205,0)"
^XMB(3.9,14,2,1112,0)=" . . S DGPFAH(""COMMENT"",DGLINE+DGI,0)=$P(DGSEG(5),DGRS,DGI)"
^XMB(3.9,14,2,1113,0)="""RTN"",""DGPFHLU"",206,0)"
^XMB(3.9,14,2,1114,0)=" Q"
^XMB(3.9,14,2,1115,0)="""RTN"",""DGPFHLU"",207,0)"
^XMB(3.9,14,2,1116,0)=" ;"
^XMB(3.9,14,2,1117,0)="""RTN"",""DGPFHLU5"")"
^XMB(3.9,14,2,1118,0)="0^2^B59520478^B32860836"
^XMB(3.9,14,2,1119,0)="""RTN"",""DGPFHLU5"",1,0)"
^XMB(3.9,14,2,1120,0)="DGPFHLU5 ;ALB/RPM - PRF HL7 ACK PROCESSING ; 6/14/03 11:30am"
^XMB(3.9,14,2,1121,0)="""RTN"",""DGPFHLU5"",2,0)"
^XMB(3.9,14,2,1122,0)=" ;;5.3;Registration;**425,718**;Aug 13, 1993"
^XMB(3.9,14,2,1123,0)="""RTN"",""DGPFHLU5"",3,0)"
^XMB(3.9,14,2,1124,0)=" ;"
^XMB(3.9,14,2,1125,0)="""RTN"",""DGPFHLU5"",4,0)"
^XMB(3.9,14,2,1126,0)=" Q"
^XMB(3.9,14,2,1127,0)="""RTN"",""DGPFHLU5"",5,0)"
^XMB(3.9,14,2,1128,0)=" ;"
^XMB(3.9,14,2,1129,0)="""RTN"",""DGPFHLU5"",6,0)"
^XMB(3.9,14,2,1130,0)="PROCERR(DGLIEN,DGACK,DGERR) ;process errors returned from ACK"
^XMB(3.9,14,2,1131,0)="""RTN"",""DGPFHLU5"",7,0)"
^XMB(3.9,14,2,1132,0)=" ;"
^XMB(3.9,14,2,1133,0)="""RTN"",""DGPFHLU5"",8,0)"
^XMB(3.9,14,2,1134,0)=" ;  Input:"
^XMB(3.9,14,2,1135,0)="""RTN"",""DGPFHLU5"",9,0)"
^XMB(3.9,14,2,1136,0)=" ;    DGLIEN - IEN of PRF HL7 TRANSMISSION LOG (#26.17) file"
^XMB(3.9,14,2,1137,0)="""RTN"",""DGPFHLU5"",10,0)"
^XMB(3.9,14,2,1138,0)=" ;     DGACK - array of ACK parse data"
^XMB(3.9,14,2,1139,0)="""RTN"",""DGPFHLU5"",11,0)"
^XMB(3.9,14,2,1140,0)=" ;     DGERR - array of parsed errors (ex: DGERR(1)=""UU"")"
^XMB(3.9,14,2,1141,0)="""RTN"",""DGPFHLU5"",12,0)"
^XMB(3.9,14,2,1142,0)=" ;"
^XMB(3.9,14,2,1143,0)="""RTN"",""DGPFHLU5"",13,0)"
^XMB(3.9,14,2,1144,0)=" ; Output: none"
^XMB(3.9,14,2,1145,0)="""RTN"",""DGPFHLU5"",14,0)"
^XMB(3.9,14,2,1146,0)=" ;"
^XMB(3.9,14,2,1147,0)="""RTN"",""DGPFHLU5"",15,0)"
^XMB(3.9,14,2,1148,0)=" N DGPFA   ;assignment array"
^XMB(3.9,14,2,1149,0)="""RTN"",""DGPFHLU5"",16,0)"
^XMB(3.9,14,2,1150,0)=" N DGPFAH  ;assignment history array"
^XMB(3.9,14,2,1151,0)="""RTN"",""DGPFHLU5"",17,0)"
^XMB(3.9,14,2,1152,0)=" N DGPFL   ;HL7 transmission log array"
^XMB(3.9,14,2,1153,0)="""RTN"",""DGPFHLU5"",18,0)"
^XMB(3.9,14,2,1154,0)=" N DGTBL   ;error code array"
^XMB(3.9,14,2,1155,0)="""RTN"",""DGPFHLU5"",19,0)"
^XMB(3.9,14,2,1156,0)=" N DGXMTXT ;mailman msg text array "
^XMB(3.9,14,2,1157,0)="""RTN"",""DGPFHLU5"",20,0)"
^XMB(3.9,14,2,1158,0)=" ;"
^XMB(3.9,14,2,1159,0)="""RTN"",""DGPFHLU5"",21,0)"
^XMB(3.9,14,2,1160,0)=" I +$G(DGLIEN),$D(DGACK),$D(DGERR) D"
^XMB(3.9,14,2,1161,0)="""RTN"",""DGPFHLU5"",22,0)"
^XMB(3.9,14,2,1162,0)=" . ;"
^XMB(3.9,14,2,1163,0)="""RTN"",""DGPFHLU5"",23,0)"
^XMB(3.9,14,2,1164,0)=" . ;retrieve the HL7 transmission log values"
^XMB(3.9,14,2,1165,0)="""RTN"",""DGPFHLU5"",24,0)"
^XMB(3.9,14,2,1166,0)=" . Q:'$$GETLOG^DGPFHLL(DGLIEN,.DGPFL)"
^XMB(3.9,14,2,1167,0)="""RTN"",""DGPFHLU5"",25,0)"
^XMB(3.9,14,2,1168,0)=" . ;"
^XMB(3.9,14,2,1169,0)="""RTN"",""DGPFHLU5"",26,0)"
^XMB(3.9,14,2,1170,0)=" . ;retrieve assignment history values"
^XMB(3.9,14,2,1171,0)="""RTN"",""DGPFHLU5"",27,0)"
^XMB(3.9,14,2,1172,0)=" . Q:'$$GETHIST^DGPFAAH(+$G(DGPFL(""ASGNHIST"")),.DGPFAH)"
^XMB(3.9,14,2,1173,0)="""RTN"",""DGPFHLU5"",28,0)"
^XMB(3.9,14,2,1174,0)=" . ;"
^XMB(3.9,14,2,1175,0)="""RTN"",""DGPFHLU5"",29,0)"
^XMB(3.9,14,2,1176,0)=" . ;retrieve assignment values"
^XMB(3.9,14,2,1177,0)="""RTN"",""DGPFHLU5"",30,0)"
^XMB(3.9,14,2,1178,0)=" . Q:'$$GETASGN^DGPFAA(+$G(DGPFAH(""ASSIGN"")),.DGPFA)"
^XMB(3.9,14,2,1179,0)="""RTN"",""DGPFHLU5"",31,0)"
^XMB(3.9,14,2,1180,0)=" . ;"
^XMB(3.9,14,2,1181,0)="""RTN"",""DGPFHLU5"",32,0)"
^XMB(3.9,14,2,1182,0)=" . S DGXMTXT=$NA(^TMP(""DGPFERR"",$J))"
^XMB(3.9,14,2,1183,0)="""RTN"",""DGPFHLU5"",33,0)"
^XMB(3.9,14,2,1184,0)=" . K @DGXMTXT"
^XMB(3.9,14,2,1185,0)="""RTN"",""DGPFHLU5"",34,0)"
^XMB(3.9,14,2,1186,0)=" . ;"
^XMB(3.9,14,2,1187,0)="""RTN"",""DGPFHLU5"",35,0)"
^XMB(3.9,14,2,1188,0)=" . ;load error code table"
^XMB(3.9,14,2,1189,0)="""RTN"",""DGPFHLU5"",36,0)"
^XMB(3.9,14,2,1190,0)=" . D BLDVA086^DGPFHLU3(.DGTBL)"
^XMB(3.9,14,2,1191,0)="""RTN"",""DGPFHLU5"",37,0)"
^XMB(3.9,14,2,1192,0)=" . ;"
^XMB(3.9,14,2,1193,0)="""RTN"",""DGPFHLU5"",38,0)"
^XMB(3.9,14,2,1194,0)=" . ;create message text array"
^XMB(3.9,14,2,1195,0)="""RTN"",""DGPFHLU5"",39,0)"
^XMB(3.9,14,2,1196,0)=" . D BLDMSG(.DGPFA,.DGACK,.DGERR,.DGTBL,DGXMTXT)"
^XMB(3.9,14,2,1197,0)="""RTN"",""DGPFHLU5"",40,0)"
^XMB(3.9,14,2,1198,0)=" . ;"
^XMB(3.9,14,2,1199,0)="""RTN"",""DGPFHLU5"",41,0)"
^XMB(3.9,14,2,1200,0)=" . ;send the notification message"
^XMB(3.9,14,2,1201,0)="""RTN"",""DGPFHLU5"",42,0)"
^XMB(3.9,14,2,1202,0)=" . D SEND(DGXMTXT)"
^XMB(3.9,14,2,1203,0)="""RTN"",""DGPFHLU5"",43,0)"
^XMB(3.9,14,2,1204,0)=" . ;"
^XMB(3.9,14,2,1205,0)="""RTN"",""DGPFHLU5"",44,0)"
^XMB(3.9,14,2,1206,0)=" . ;cleanup"
^XMB(3.9,14,2,1207,0)="""RTN"",""DGPFHLU5"",45,0)"
^XMB(3.9,14,2,1208,0)=" . K @DGXMTXT"
^XMB(3.9,14,2,1209,0)="""RTN"",""DGPFHLU5"",46,0)"
^XMB(3.9,14,2,1210,0)=" Q"
^XMB(3.9,14,2,1211,0)="""RTN"",""DGPFHLU5"",47,0)"
^XMB(3.9,14,2,1212,0)=" ;"
^XMB(3.9,14,2,1213,0)="""RTN"",""DGPFHLU5"",48,0)"
^XMB(3.9,14,2,1214,0)="BLDMSG(DGPFA,DGACK,DGERR,DGTBL,DGXMTXT) ;buld MailMan message array"
^XMB(3.9,14,2,1215,0)="""RTN"",""DGPFHLU5"",49,0)"
^XMB(3.9,14,2,1216,0)=" ;"
^XMB(3.9,14,2,1217,0)="""RTN"",""DGPFHLU5"",50,0)"
^XMB(3.9,14,2,1218,0)=" ;  Supported DBIA #2171:  The supported DBIA is uses to access Kernel"
^XMB(3.9,14,2,1219,0)="""RTN"",""DGPFHLU5"",51,0)"
^XMB(3.9,14,2,1220,0)=" ;                         APIs for retrieving Station numbers and names"
^XMB(3.9,14,2,1221,0)="""RTN"",""DGPFHLU5"",52,0)"
^XMB(3.9,14,2,1222,0)=" ;                         from the INSTITUTION (#4) file."
^XMB(3.9,14,2,1223,0)="""RTN"",""DGPFHLU5"",53,0)"
^XMB(3.9,14,2,1224,0)=" ;  Supported DBIA #2701:  The supported DBIA is used to access MPI APIs"
^XMB(3.9,14,2,1225,0)="""RTN"",""DGPFHLU5"",54,0)"
^XMB(3.9,14,2,1226,0)=" ;                         for retrieving an ICN for a given DFN."
^XMB(3.9,14,2,1227,0)="""RTN"",""DGPFHLU5"",55,0)"
^XMB(3.9,14,2,1228,0)=" ;"
^XMB(3.9,14,2,1229,0)="""RTN"",""DGPFHLU5"",56,0)"
^XMB(3.9,14,2,1230,0)=" ;  Input:"
^XMB(3.9,14,2,1231,0)="""RTN"",""DGPFHLU5"",57,0)"
^XMB(3.9,14,2,1232,0)=" ;    DGPFA - assignment data array"
^XMB(3.9,14,2,1233,0)="""RTN"",""DGPFHLU5"",58,0)"
^XMB(3.9,14,2,1234,0)=" ;    DGACK - array of ACK data"
^XMB(3.9,14,2,1235,0)="""RTN"",""DGPFHLU5"",59,0)"
^XMB(3.9,14,2,1236,0)=" ;    DGERR - array of parsed errors (ex: DGERR(1)=""UU"")"
^XMB(3.9,14,2,1237,0)="""RTN"",""DGPFHLU5"",60,0)"
^XMB(3.9,14,2,1238,0)=" ;    DGTBL - VA086 error code table array"
^XMB(3.9,14,2,1239,0)="""RTN"",""DGPFHLU5"",61,0)"
^XMB(3.9,14,2,1240,0)=" ;"
^XMB(3.9,14,2,1241,0)="""RTN"",""DGPFHLU5"",62,0)"
^XMB(3.9,14,2,1242,0)=" ;  Output:"
^XMB(3.9,14,2,1243,0)="""RTN"",""DGPFHLU5"",63,0)"
^XMB(3.9,14,2,1244,0)=" ;    DGXMTXT - array of MailMan text lines"
^XMB(3.9,14,2,1245,0)="""RTN"",""DGPFHLU5"",64,0)"
^XMB(3.9,14,2,1246,0)=" ;"
^XMB(3.9,14,2,1247,0)="""RTN"",""DGPFHLU5"",65,0)"
^XMB(3.9,14,2,1248,0)=" N DGCNT   ;error count"
^XMB(3.9,14,2,1249,0)="""RTN"",""DGPFHLU5"",66,0)"
^XMB(3.9,14,2,1250,0)=" N DGCOD   ;error code"
^XMB(3.9,14,2,1251,0)="""RTN"",""DGPFHLU5"",67,0)"
^XMB(3.9,14,2,1252,0)=" N DGDEM   ;patient demographics array"
^XMB(3.9,14,2,1253,0)="""RTN"",""DGPFHLU5"",68,0)"
^XMB(3.9,14,2,1254,0)=" N DGDFN   ;pointer to PATIENT (#2) file"
^XMB(3.9,14,2,1255,0)="""RTN"",""DGPFHLU5"",69,0)"
^XMB(3.9,14,2,1256,0)=" N DGDLG   ;DIALOG text array"
^XMB(3.9,14,2,1257,0)="""RTN"",""DGPFHLU5"",70,0)"
^XMB(3.9,14,2,1258,0)=" N DGFAC   ;facility data array from XUAF4 call"
^XMB(3.9,14,2,1259,0)="""RTN"",""DGPFHLU5"",71,0)"
^XMB(3.9,14,2,1260,0)=" N DGI     ;generic counter"
^XMB(3.9,14,2,1261,0)="""RTN"",""DGPFHLU5"",72,0)"
^XMB(3.9,14,2,1262,0)=" N DGICN   ;integrated control number"
^XMB(3.9,14,2,1263,0)="""RTN"",""DGPFHLU5"",73,0)"
^XMB(3.9,14,2,1264,0)=" N DGLIN   ;line counter"
^XMB(3.9,14,2,1265,0)="""RTN"",""DGPFHLU5"",74,0)"
^XMB(3.9,14,2,1266,0)=" N DGMAX   ;maximum line length"
^XMB(3.9,14,2,1267,0)="""RTN"",""DGPFHLU5"",75,0)"
^XMB(3.9,14,2,1268,0)=" N DGSITE  ;results of VASITE call"
^XMB(3.9,14,2,1269,0)="""RTN"",""DGPFHLU5"",76,0)"
^XMB(3.9,14,2,1270,0)=" N DGSNDSTA  ;sending station number"
^XMB(3.9,14,2,1271,0)="""RTN"",""DGPFHLU5"",77,0)"
^XMB(3.9,14,2,1272,0)=" N DGSNDNAM  ;sending station name"
^XMB(3.9,14,2,1273,0)="""RTN"",""DGPFHLU5"",78,0)"
^XMB(3.9,14,2,1274,0)=" ;"
^XMB(3.9,14,2,1275,0)="""RTN"",""DGPFHLU5"",79,0)"
^XMB(3.9,14,2,1276,0)=" S DGDFN=+$G(DGPFA(""DFN""))"
^XMB(3.9,14,2,1277,0)="""RTN"",""DGPFHLU5"",80,0)"
^XMB(3.9,14,2,1278,0)=" Q:(DGDFN'>0)"
^XMB(3.9,14,2,1279,0)="""RTN"",""DGPFHLU5"",81,0)"
^XMB(3.9,14,2,1280,0)=" ;"
^XMB(3.9,14,2,1281,0)="""RTN"",""DGPFHLU5"",82,0)"
^XMB(3.9,14,2,1282,0)=" ;retrieve patient demographics"
^XMB(3.9,14,2,1283,0)="""RTN"",""DGPFHLU5"",83,0)"
^XMB(3.9,14,2,1284,0)=" Q:'$$GETPAT^DGPFUT2(DGDFN,.DGDEM)"
^XMB(3.9,14,2,1285,0)="""RTN"",""DGPFHLU5"",84,0)"
^XMB(3.9,14,2,1286,0)=" S DGICN=$$GETICN^MPIF001(DGDFN)"
^XMB(3.9,14,2,1287,0)="""RTN"",""DGPFHLU5"",85,0)"
^XMB(3.9,14,2,1288,0)=" S DGICN=$S(+DGICN>0:DGICN,1:$P(DGICN,U,2))"
^XMB(3.9,14,2,1289,0)="""RTN"",""DGPFHLU5"",86,0)"
^XMB(3.9,14,2,1290,0)=" ;"
^XMB(3.9,14,2,1291,0)="""RTN"",""DGPFHLU5"",87,0)"
^XMB(3.9,14,2,1292,0)=" S DGLIN=0"
^XMB(3.9,14,2,1293,0)="""RTN"",""DGPFHLU5"",88,0)"
^XMB(3.9,14,2,1294,0)=" S DGMAX=65"
^XMB(3.9,14,2,1295,0)="""RTN"",""DGPFHLU5"",89,0)"
^XMB(3.9,14,2,1296,0)=" S DGSITE=$$SITE^VASITE()"
^XMB(3.9,14,2,1297,0)="""RTN"",""DGPFHLU5"",90,0)"
^XMB(3.9,14,2,1298,0)=" S DGSNDSTA=$G(DGACK(""SNDFAC""))"
^XMB(3.9,14,2,1299,0)="""RTN"",""DGPFHLU5"",91,0)"
^XMB(3.9,14,2,1300,0)=" D F4^XUAF4(DGSNDSTA,.DGFAC,"""","""")"
^XMB(3.9,14,2,1301,0)="""RTN"",""DGPFHLU5"",92,0)"
^XMB(3.9,14,2,1302,0)=" S DGSNDNAM=$S(DGFAC>0:$G(DGFAC(""NAME"")),1:"""")"
^XMB(3.9,14,2,1303,0)="""RTN"",""DGPFHLU5"",93,0)"
^XMB(3.9,14,2,1304,0)=" ;"
^XMB(3.9,14,2,1305,0)="""RTN"",""DGPFHLU5"",94,0)"
^XMB(3.9,14,2,1306,0)=" D ADDLINE("""",0,DGMAX,.DGLIN,DGXMTXT)"
^XMB(3.9,14,2,1307,0)="""RTN"",""DGPFHLU5"",95,0)"
^XMB(3.9,14,2,1308,0)=" D ADDLINE(""* * * *  P R F  H L 7  E R R O R  E N C O U N T E R E D  * * * *"",0,DGMAX,.DGLIN,DGXMTXT)"
^XMB(3.9,14,2,1309,0)="""RTN"",""DGPFHLU5"",96,0)"
^XMB(3.9,14,2,1310,0)=" D ADDLINE("""",0,DGMAX,.DGLIN,DGXMTXT)"
^XMB(3.9,14,2,1311,0)="""RTN"",""DGPFHLU5"",97,0)"
^XMB(3.9,14,2,1312,0)=" D ADDLINE(""A facility could not process the following Patient Record Flag assignment on ""_$$FMTE^XLFDT($G(DGACK(""MSGDTM"")))_""."",0,DGMAX,.DGLIN,DGXMTXT)"
^XMB(3.9,14,2,1313,0)="""RTN"",""DGPFHLU5"",98,0)"
^XMB(3.9,14,2,1314,0)=" D ADDLINE("""",0,DGMAX,.DGLIN,DGXMTXT)"
^XMB(3.9,14,2,1315,0)="""RTN"",""DGPFHLU5"",99,0)"
^XMB(3.9,14,2,1316,0)=" D ADDLINE(""Receiving Facility name: ""_DGSNDNAM_"" (""_DGSNDSTA_"")"",0,DGMAX,.DGLIN,DGXMTXT)"
^XMB(3.9,14,2,1317,0)="""RTN"",""DGPFHLU5"",100,0)"
^XMB(3.9,14,2,1318,0)=" D ADDLINE("""",0,DGMAX,.DGLIN,DGXMTXT)"
^XMB(3.9,14,2,1319,0)="""RTN"",""DGPFHLU5"",101,0)"
^XMB(3.9,14,2,1320,0)=" D ADDLINE(""Flag Name: ""_$P($G(DGPFA(""FLAG"")),U,2),14,DGMAX,.DGLIN,DGXMTXT)"
^XMB(3.9,14,2,1321,0)="""RTN"",""DGPFHLU5"",102,0)"
^XMB(3.9,14,2,1322,0)=" D ADDLINE("""",0,DGMAX,.DGLIN,DGXMTXT)"
^XMB(3.9,14,2,1323,0)="""RTN"",""DGPFHLU5"",103,0)"
^XMB(3.9,14,2,1324,0)=" D ADDLINE(""Patient Name: ""_DGDEM(""NAME""),11,DGMAX,.DGLIN,DGXMTXT)"
^XMB(3.9,14,2,1325,0)="""RTN"",""DGPFHLU5"",104,0)"
^XMB(3.9,14,2,1326,0)=" D ADDLINE(""Social Security #: ""_DGDEM(""SSN""),6,DGMAX,.DGLIN,DGXMTXT)"
^XMB(3.9,14,2,1327,0)="""RTN"",""DGPFHLU5"",105,0)"
^XMB(3.9,14,2,1328,0)=" D ADDLINE(""Date of Birth: ""_$$FMTE^XLFDT(DGDEM(""DOB""),""2D""),10,DGMAX,.DGLIN,DGXMTXT)"
^XMB(3.9,14,2,1329,0)="""RTN"",""DGPFHLU5"",106,0)"
^XMB(3.9,14,2,1330,0)=" D ADDLINE(""Integrated Control #: ""_DGICN,3,DGMAX,.DGLIN,DGXMTXT)"
^XMB(3.9,14,2,1331,0)="""RTN"",""DGPFHLU5"",107,0)"
^XMB(3.9,14,2,1332,0)=" D ADDLINE("""",0,DGMAX,.DGLIN,DGXMTXT)"
^XMB(3.9,14,2,1333,0)="""RTN"",""DGPFHLU5"",108,0)"
^XMB(3.9,14,2,1334,0)=" S DGCNT=0"
^XMB(3.9,14,2,1335,0)="""RTN"",""DGPFHLU5"",109,0)"
^XMB(3.9,14,2,1336,0)=" F  S DGCNT=$O(DGERR(DGCNT)) Q:'DGCNT  D"
^XMB(3.9,14,2,1337,0)="""RTN"",""DGPFHLU5"",110,0)"
^XMB(3.9,14,2,1338,0)=" . K DGDLG"
^XMB(3.9,14,2,1339,0)="""RTN"",""DGPFHLU5"",111,0)"
^XMB(3.9,14,2,1340,0)=" . S DGCOD=DGERR(DGCNT)"
^XMB(3.9,14,2,1341,0)="""RTN"",""DGPFHLU5"",112,0)"
^XMB(3.9,14,2,1342,0)=" . ;"
^XMB(3.9,14,2,1343,0)="""RTN"",""DGPFHLU5"",113,0)"
^XMB(3.9,14,2,1344,0)=" . ;assume numeric error code is a DIALOG"
^XMB(3.9,14,2,1345,0)="""RTN"",""DGPFHLU5"",114,0)"
^XMB(3.9,14,2,1346,0)=" . I DGCOD?1N.N D BLD^DIALOG(DGCOD,"""","""",""DGDLG"",""S"")"
^XMB(3.9,14,2,1347,0)="""RTN"",""DGPFHLU5"",115,0)"
^XMB(3.9,14,2,1348,0)=" . I $D(DGDLG) D FORMAT(.DGDLG,DGMAX-12)"
^XMB(3.9,14,2,1349,0)="""RTN"",""DGPFHLU5"",116,0)"
^XMB(3.9,14,2,1350,0)=" . ;"
^XMB(3.9,14,2,1351,0)="""RTN"",""DGPFHLU5"",117,0)"
^XMB(3.9,14,2,1352,0)=" . ;if not a DIALOG, then is it a table entry?"
^XMB(3.9,14,2,1353,0)="""RTN"",""DGPFHLU5"",118,0)"
^XMB(3.9,14,2,1354,0)=" . I '$D(DGDLG),DGCOD]"""",$D(DGTBL(DGCOD,""DESC"")) S DGDLG(1)=DGTBL(DGCOD,""DESC"")"
^XMB(3.9,14,2,1355,0)="""RTN"",""DGPFHLU5"",119,0)"
^XMB(3.9,14,2,1356,0)=" . ;"
^XMB(3.9,14,2,1357,0)="""RTN"",""DGPFHLU5"",120,0)"
^XMB(3.9,14,2,1358,0)=" . ;not a DIALOG or table entry - then error is unknown"
^XMB(3.9,14,2,1359,0)="""RTN"",""DGPFHLU5"",121,0)"
^XMB(3.9,14,2,1360,0)=" . I '$D(DGDLG) S DGDLG(1)=""Unknown Error code: '""_DGCOD_""'"""
^XMB(3.9,14,2,1361,0)="""RTN"",""DGPFHLU5"",122,0)"
^XMB(3.9,14,2,1362,0)=" . ;"
^XMB(3.9,14,2,1363,0)="""RTN"",""DGPFHLU5"",123,0)"
^XMB(3.9,14,2,1364,0)=" . ;error header"
^XMB(3.9,14,2,1365,0)="""RTN"",""DGPFHLU5"",124,0)"
^XMB(3.9,14,2,1366,0)=" . D ADDLINE(""Reason#: ""_DGCNT,0,DGMAX,.DGLIN,DGXMTXT)"
^XMB(3.9,14,2,1367,0)="""RTN"",""DGPFHLU5"",125,0)"
^XMB(3.9,14,2,1368,0)=" . ;"
^XMB(3.9,14,2,1369,0)="""RTN"",""DGPFHLU5"",126,0)"
^XMB(3.9,14,2,1370,0)=" . ;loop through error text array"
^XMB(3.9,14,2,1371,0)="""RTN"",""DGPFHLU5"",127,0)"
^XMB(3.9,14,2,1372,0)=" . S DGI=0"
^XMB(3.9,14,2,1373,0)="""RTN"",""DGPFHLU5"",128,0)"
^XMB(3.9,14,2,1374,0)=" . F  S DGI=$O(DGDLG(DGI)) Q:'DGI  D"
^XMB(3.9,14,2,1375,0)="""RTN"",""DGPFHLU5"",129,0)"
^XMB(3.9,14,2,1376,0)=" . . D ADDLINE(DGDLG(DGI),12,DGMAX,.DGLIN,DGXMTXT)"
^XMB(3.9,14,2,1377,0)="""RTN"",""DGPFHLU5"",130,0)"
^XMB(3.9,14,2,1378,0)=" . ;"
^XMB(3.9,14,2,1379,0)="""RTN"",""DGPFHLU5"",131,0)"
^XMB(3.9,14,2,1380,0)=" . ;error separator"
^XMB(3.9,14,2,1381,0)="""RTN"",""DGPFHLU5"",132,0)"
^XMB(3.9,14,2,1382,0)=" . D ADDLINE("""",0,DGMAX,.DGLIN,DGXMTXT)"
^XMB(3.9,14,2,1383,0)="""RTN"",""DGPFHLU5"",133,0)"
^XMB(3.9,14,2,1384,0)=" ;"
^XMB(3.9,14,2,1385,0)="""RTN"",""DGPFHLU5"",134,0)"
^XMB(3.9,14,2,1386,0)=" Q"
^XMB(3.9,14,2,1387,0)="""RTN"",""DGPFHLU5"",135,0)"
^XMB(3.9,14,2,1388,0)=" ;"
^XMB(3.9,14,2,1389,0)="""RTN"",""DGPFHLU5"",136,0)"
^XMB(3.9,14,2,1390,0)="ADDLINE(DGTEXT,DGINDENT,DGMAXLEN,DGCNT,DGXMTXT) ;add text line to message array"
^XMB(3.9,14,2,1391,0)="""RTN"",""DGPFHLU5"",137,0)"
^XMB(3.9,14,2,1392,0)=" ;"
^XMB(3.9,14,2,1393,0)="""RTN"",""DGPFHLU5"",138,0)"
^XMB(3.9,14,2,1394,0)=" ;  Input:"
^XMB(3.9,14,2,1395,0)="""RTN"",""DGPFHLU5"",139,0)"
^XMB(3.9,14,2,1396,0)=" ;     DGTEXT - text string"
^XMB(3.9,14,2,1397,0)="""RTN"",""DGPFHLU5"",140,0)"
^XMB(3.9,14,2,1398,0)=" ;   DGINDENT - number of spaces to insert at start of line"
^XMB(3.9,14,2,1399,0)="""RTN"",""DGPFHLU5"",141,0)"
^XMB(3.9,14,2,1400,0)=" ;   DGMAXLEN - maximum desired line length (default: 60)"
^XMB(3.9,14,2,1401,0)="""RTN"",""DGPFHLU5"",142,0)"
^XMB(3.9,14,2,1402,0)=" ;      DGCNT - line number passed by reference"
^XMB(3.9,14,2,1403,0)="""RTN"",""DGPFHLU5"",143,0)"
^XMB(3.9,14,2,1404,0)=" ;"
^XMB(3.9,14,2,1405,0)="""RTN"",""DGPFHLU5"",144,0)"
^XMB(3.9,14,2,1406,0)=" ;  Output:"
^XMB(3.9,14,2,1407,0)="""RTN"",""DGPFHLU5"",145,0)"
^XMB(3.9,14,2,1408,0)=" ;    DGXMTXT - array of text strings"
^XMB(3.9,14,2,1409,0)="""RTN"",""DGPFHLU5"",146,0)"
^XMB(3.9,14,2,1410,0)=" ;"
^XMB(3.9,14,2,1411,0)="""RTN"",""DGPFHLU5"",147,0)"
^XMB(3.9,14,2,1412,0)=" N DGAVAIL  ;available space for text"
^XMB(3.9,14,2,1413,0)="""RTN"",""DGPFHLU5"",148,0)"
^XMB(3.9,14,2,1414,0)=" N DGLINE   ;truncated text"
^XMB(3.9,14,2,1415,0)="""RTN"",""DGPFHLU5"",149,0)"
^XMB(3.9,14,2,1416,0)=" N DGLOC    ;location of space character"
^XMB(3.9,14,2,1417,0)="""RTN"",""DGPFHLU5"",150,0)"
^XMB(3.9,14,2,1418,0)=" N DGPAD    ;space indent"
^XMB(3.9,14,2,1419,0)="""RTN"",""DGPFHLU5"",151,0)"
^XMB(3.9,14,2,1420,0)=" ;"
^XMB(3.9,14,2,1421,0)="""RTN"",""DGPFHLU5"",152,0)"
^XMB(3.9,14,2,1422,0)=" S DGTEXT=$G(DGTEXT)"
^XMB(3.9,14,2,1423,0)="""RTN"",""DGPFHLU5"",153,0)"
^XMB(3.9,14,2,1424,0)=" S DGINDENT=+$G(DGINDENT)"
^XMB(3.9,14,2,1425,0)="""RTN"",""DGPFHLU5"",154,0)"
^XMB(3.9,14,2,1426,0)=" S DGMAXLEN=+$G(DGMAXLEN)"
^XMB(3.9,14,2,1427,0)="""RTN"",""DGPFHLU5"",155,0)"
^XMB(3.9,14,2,1428,0)=" S:'DGMAXLEN DGMAXLEN=60"
^XMB(3.9,14,2,1429,0)="""RTN"",""DGPFHLU5"",156,0)"
^XMB(3.9,14,2,1430,0)=" I DGINDENT>(DGMAXLEN-1) S DGINDENT=0"
^XMB(3.9,14,2,1431,0)="""RTN"",""DGPFHLU5"",157,0)"
^XMB(3.9,14,2,1432,0)=" S DGCNT=$G(DGCNT,0)  ;default to 0"
^XMB(3.9,14,2,1433,0)="""RTN"",""DGPFHLU5"",158,0)"
^XMB(3.9,14,2,1434,0)=" ;"
^XMB(3.9,14,2,1435,0)="""RTN"",""DGPFHLU5"",159,0)"
^XMB(3.9,14,2,1436,0)=" S DGPAD=$$REPEAT^XLFSTR("" "",DGINDENT)"
^XMB(3.9,14,2,1437,0)="""RTN"",""DGPFHLU5"",160,0)"
^XMB(3.9,14,2,1438,0)=" ;"
^XMB(3.9,14,2,1439,0)="""RTN"",""DGPFHLU5"",161,0)"
^XMB(3.9,14,2,1440,0)=" ;determine availaible space for text"
^XMB(3.9,14,2,1441,0)="""RTN"",""DGPFHLU5"",162,0)"
^XMB(3.9,14,2,1442,0)=" S DGAVAIL=(DGMAXLEN-DGINDENT)"
^XMB(3.9,14,2,1443,0)="""RTN"",""DGPFHLU5"",163,0)"
^XMB(3.9,14,2,1444,0)=" F  D  Q:('$L(DGTEXT))"
^XMB(3.9,14,2,1445,0)="""RTN"",""DGPFHLU5"",164,0)"
^XMB(3.9,14,2,1446,0)=" . ;"
^XMB(3.9,14,2,1447,0)="""RTN"",""DGPFHLU5"",165,0)"
^XMB(3.9,14,2,1448,0)=" . ;find potential line break"
^XMB(3.9,14,2,1449,0)="""RTN"",""DGPFHLU5"",166,0)"
^XMB(3.9,14,2,1450,0)=" . S DGLOC=$L($E(DGTEXT,1,DGAVAIL),"" "")"
^XMB(3.9,14,2,1451,0)="""RTN"",""DGPFHLU5"",167,0)"
^XMB(3.9,14,2,1452,0)=" . ;"
^XMB(3.9,14,2,1453,0)="""RTN"",""DGPFHLU5"",168,0)"
^XMB(3.9,14,2,1454,0)=" . ;break a line that is too long when it has potential line breaks"
^XMB(3.9,14,2,1455,0)="""RTN"",""DGPFHLU5"",169,0)"
^XMB(3.9,14,2,1456,0)=" . I $L(DGTEXT)>DGAVAIL,DGLOC D"
^XMB(3.9,14,2,1457,0)="""RTN"",""DGPFHLU5"",170,0)"
^XMB(3.9,14,2,1458,0)=" . . S DGLINE=$P(DGTEXT,"" "",1,$S(DGLOC>1:DGLOC-1,1:1))"
^XMB(3.9,14,2,1459,0)="""RTN"",""DGPFHLU5"",171,0)"
^XMB(3.9,14,2,1460,0)=" . . S DGTEXT=$P(DGTEXT,"" "",$S(DGLOC>1:DGLOC,1:DGLOC+1),$L(DGTEXT,"" ""))"
^XMB(3.9,14,2,1461,0)="""RTN"",""DGPFHLU5"",172,0)"
^XMB(3.9,14,2,1462,0)=" . E  D"
^XMB(3.9,14,2,1463,0)="""RTN"",""DGPFHLU5"",173,0)"
^XMB(3.9,14,2,1464,0)=" . . S DGLINE=DGTEXT,DGTEXT="""""
^XMB(3.9,14,2,1465,0)="""RTN"",""DGPFHLU5"",174,0)"
^XMB(3.9,14,2,1466,0)=" . ;"
^XMB(3.9,14,2,1467,0)="""RTN"",""DGPFHLU5"",175,0)"
^XMB(3.9,14,2,1468,0)=" . S DGCNT=DGCNT+1"
^XMB(3.9,14,2,1469,0)="""RTN"",""DGPFHLU5"",176,0)"
^XMB(3.9,14,2,1470,0)=" . S @DGXMTXT@(DGCNT)=DGPAD_DGLINE"
^XMB(3.9,14,2,1471,0)="""RTN"",""DGPFHLU5"",177,0)"
^XMB(3.9,14,2,1472,0)=" Q"
^XMB(3.9,14,2,1473,0)="""RTN"",""DGPFHLU5"",178,0)"
^XMB(3.9,14,2,1474,0)=" ;"
^XMB(3.9,14,2,1475,0)="""RTN"",""DGPFHLU5"",179,0)"
^XMB(3.9,14,2,1476,0)="SEND(DGXMTXT) ;send the MailMan message"
^XMB(3.9,14,2,1477,0)="""RTN"",""DGPFHLU5"",180,0)"
^XMB(3.9,14,2,1478,0)=" ;"
^XMB(3.9,14,2,1479,0)="""RTN"",""DGPFHLU5"",181,0)"
^XMB(3.9,14,2,1480,0)=" ;  Input:"
^XMB(3.9,14,2,1481,0)="""RTN"",""DGPFHLU5"",182,0)"
^XMB(3.9,14,2,1482,0)=" ;    DGXMTXT - name of message text array in closed format"
^XMB(3.9,14,2,1483,0)="""RTN"",""DGPFHLU5"",183,0)"
^XMB(3.9,14,2,1484,0)=" ;"
^XMB(3.9,14,2,1485,0)="""RTN"",""DGPFHLU5"",184,0)"
^XMB(3.9,14,2,1486,0)=" ;  Output:"
^XMB(3.9,14,2,1487,0)="""RTN"",""DGPFHLU5"",185,0)"
^XMB(3.9,14,2,1488,0)=" ;    none"
^XMB(3.9,14,2,1489,0)="""RTN"",""DGPFHLU5"",186,0)"
^XMB(3.9,14,2,1490,0)=" ;"
^XMB(3.9,14,2,1491,0)="""RTN"",""DGPFHLU5"",187,0)"
^XMB(3.9,14,2,1492,0)=" N DIFROM  ;protect FM package"
^XMB(3.9,14,2,1493,0)="""RTN"",""DGPFHLU5"",188,0)"
^XMB(3.9,14,2,1494,0)=" N XMDUZ   ;sender"
^XMB(3.9,14,2,1495,0)="""RTN"",""DGPFHLU5"",189,0)"
^XMB(3.9,14,2,1496,0)=" N XMSUB   ;message subject"
^XMB(3.9,14,2,1497,0)="""RTN"",""DGPFHLU5"",190,0)"
^XMB(3.9,14,2,1498,0)=" N XMTEXT  ;name of message text array in open format"
^XMB(3.9,14,2,1499,0)="""RTN"",""DGPFHLU5"",191,0)"
^XMB(3.9,14,2,1500,0)=" N XMY     ;recipient array"
^XMB(3.9,14,2,1501,0)="""RTN"",""DGPFHLU5"",192,0)"
^XMB(3.9,14,2,1502,0)=" N XMZ     ;returned message number"
^XMB(3.9,14,2,1503,0)="""RTN"",""DGPFHLU5"",193,0)"
^XMB(3.9,14,2,1504,0)=" ;"
^XMB(3.9,14,2,1505,0)="""RTN"",""DGPFHLU5"",194,0)"
^XMB(3.9,14,2,1506,0)=" S XMDUZ=""Patient Record Flag Module"""
^XMB(3.9,14,2,1507,0)="""RTN"",""DGPFHLU5"",195,0)"
^XMB(3.9,14,2,1508,0)=" S XMSUB=""PRF MESSAGE TRANSMISSION ERROR"""
^XMB(3.9,14,2,1509,0)="""RTN"",""DGPFHLU5"",196,0)"
^XMB(3.9,14,2,1510,0)=" S XMTEXT=$$OREF^DILF(DGXMTXT)"
^XMB(3.9,14,2,1511,0)="""RTN"",""DGPFHLU5"",197,0)"
^XMB(3.9,14,2,1512,0)=" S XMY(""G.DGPF HL7 TRANSMISSION ERRORS"")="""""
^XMB(3.9,14,2,1513,0)="""RTN"",""DGPFHLU5"",198,0)"
^XMB(3.9,14,2,1514,0)=" D ^XMD"
^XMB(3.9,14,2,1515,0)="""RTN"",""DGPFHLU5"",199,0)"
^XMB(3.9,14,2,1516,0)=" Q"
^XMB(3.9,14,2,1517,0)="""RTN"",""DGPFHLU5"",200,0)"
^XMB(3.9,14,2,1518,0)=" ;"
^XMB(3.9,14,2,1519,0)="""RTN"",""DGPFHLU5"",201,0)"
^XMB(3.9,14,2,1520,0)="FORMAT(DGTEXT,DGMAX) ;format text lines to length"
^XMB(3.9,14,2,1521,0)="""RTN"",""DGPFHLU5"",202,0)"
^XMB(3.9,14,2,1522,0)=" ;This procedure formats an array of text lines to be less than a"
^XMB(3.9,14,2,1523,0)="""RTN"",""DGPFHLU5"",203,0)"
^XMB(3.9,14,2,1524,0)=" ;given maximum length."
^XMB(3.9,14,2,1525,0)="""RTN"",""DGPFHLU5"",204,0)"
^XMB(3.9,14,2,1526,0)=" ;"
^XMB(3.9,14,2,1527,0)="""RTN"",""DGPFHLU5"",205,0)"
^XMB(3.9,14,2,1528,0)=" ;  Supported DBIA:  #10104 - $$TRIM^XLFSTR Kernel api to trim spaces"
^XMB(3.9,14,2,1529,0)="""RTN"",""DGPFHLU5"",206,0)"
^XMB(3.9,14,2,1530,0)=" ;"
^XMB(3.9,14,2,1531,0)="""RTN"",""DGPFHLU5"",207,0)"
^XMB(3.9,14,2,1532,0)=" ;  Input:"
^XMB(3.9,14,2,1533,0)="""RTN"",""DGPFHLU5"",208,0)"
^XMB(3.9,14,2,1534,0)=" ;      DGTEXT - (required) array of text lines (passed by reference)"
^XMB(3.9,14,2,1535,0)="""RTN"",""DGPFHLU5"",209,0)"
^XMB(3.9,14,2,1536,0)=" ;       DGMAX - (optional) maximum line length (default = 75)"
^XMB(3.9,14,2,1537,0)="""RTN"",""DGPFHLU5"",210,0)"
^XMB(3.9,14,2,1538,0)=" ;"
^XMB(3.9,14,2,1539,0)="""RTN"",""DGPFHLU5"",211,0)"
^XMB(3.9,14,2,1540,0)=" ; Output:"
^XMB(3.9,14,2,1541,0)="""RTN"",""DGPFHLU5"",212,0)"
^XMB(3.9,14,2,1542,0)=" ;      DGTEXT - re-formatted array of text lines"
^XMB(3.9,14,2,1543,0)="""RTN"",""DGPFHLU5"",213,0)"
^XMB(3.9,14,2,1544,0)=" ;"
^XMB(3.9,14,2,1545,0)="""RTN"",""DGPFHLU5"",214,0)"
^XMB(3.9,14,2,1546,0)=" Q:'$D(DGTEXT)"
^XMB(3.9,14,2,1547,0)="""RTN"",""DGPFHLU5"",215,0)"
^XMB(3.9,14,2,1548,0)=" ;"
^XMB(3.9,14,2,1549,0)="""RTN"",""DGPFHLU5"",216,0)"
^XMB(3.9,14,2,1550,0)=" N DGARRY   ;temp array for re-formatting"
^XMB(3.9,14,2,1551,0)="""RTN"",""DGPFHLU5"",217,0)"
^XMB(3.9,14,2,1552,0)=" N DGI      ;loop var"
^XMB(3.9,14,2,1553,0)="""RTN"",""DGPFHLU5"",218,0)"
^XMB(3.9,14,2,1554,0)=" N DGLN     ;line counter var"
^XMB(3.9,14,2,1555,0)="""RTN"",""DGPFHLU5"",219,0)"
^XMB(3.9,14,2,1556,0)=" N DGMORE   ;leftover words"
^XMB(3.9,14,2,1557,0)="""RTN"",""DGPFHLU5"",220,0)"
^XMB(3.9,14,2,1558,0)=" N DGNEWLN  ;new text line"
^XMB(3.9,14,2,1559,0)="""RTN"",""DGPFHLU5"",221,0)"
^XMB(3.9,14,2,1560,0)=" N DGOLDLN  ;original text line"
^XMB(3.9,14,2,1561,0)="""RTN"",""DGPFHLU5"",222,0)"
^XMB(3.9,14,2,1562,0)=" N DGSPOT   ;position of text line to break at"
^XMB(3.9,14,2,1563,0)="""RTN"",""DGPFHLU5"",223,0)"
^XMB(3.9,14,2,1564,0)=" ;"
^XMB(3.9,14,2,1565,0)="""RTN"",""DGPFHLU5"",224,0)"
^XMB(3.9,14,2,1566,0)=" S:'+$G(DGMAX) DGMAX=75"
^XMB(3.9,14,2,1567,0)="""RTN"",""DGPFHLU5"",225,0)"
^XMB(3.9,14,2,1568,0)=" ;"
^XMB(3.9,14,2,1569,0)="""RTN"",""DGPFHLU5"",226,0)"
^XMB(3.9,14,2,1570,0)=" S (DGI,DGLN,DGMORE,DGNEWLN,DGOLDLN,DGSPOT)="""""
^XMB(3.9,14,2,1571,0)="""RTN"",""DGPFHLU5"",227,0)"
^XMB(3.9,14,2,1572,0)=" ;"
^XMB(3.9,14,2,1573,0)="""RTN"",""DGPFHLU5"",228,0)"
^XMB(3.9,14,2,1574,0)=" F DGI=1:1 S DGOLDLN=$G(DGTEXT(DGI)) Q:'$L(DGOLDLN)&'$L(DGMORE)  D"
^XMB(3.9,14,2,1575,0)="""RTN"",""DGPFHLU5"",229,0)"
^XMB(3.9,14,2,1576,0)=" . I DGOLDLN'?1.P S DGOLDLN=$$TRIM^XLFSTR(DGOLDLN)"
^XMB(3.9,14,2,1577,0)="""RTN"",""DGPFHLU5"",230,0)"
^XMB(3.9,14,2,1578,0)=" . I $L(DGOLDLN)'>DGMAX,'$L(DGMORE) D  Q"
^XMB(3.9,14,2,1579,0)="""RTN"",""DGPFHLU5"",231,0)"
^XMB(3.9,14,2,1580,0)=" . . S DGLN=DGLN+1,DGARRY(DGLN)=DGOLDLN"
^XMB(3.9,14,2,1581,0)="""RTN"",""DGPFHLU5"",232,0)"
^XMB(3.9,14,2,1582,0)=" . ;"
^XMB(3.9,14,2,1583,0)="""RTN"",""DGPFHLU5"",233,0)"
^XMB(3.9,14,2,1584,0)=" . I $L(DGMORE),(DGOLDLN?1.P!('$L(DGOLDLN))) D  Q"
^XMB(3.9,14,2,1585,0)="""RTN"",""DGPFHLU5"",234,0)"
^XMB(3.9,14,2,1586,0)=" . . S DGLN=DGLN+1,DGARRY(DGLN)=DGMORE,DGMORE="""""
^XMB(3.9,14,2,1587,0)="""RTN"",""DGPFHLU5"",235,0)"
^XMB(3.9,14,2,1588,0)=" . . S:$L(DGOLDLN) DGLN=DGLN+1,DGARRY(DGLN)=DGOLDLN"
^XMB(3.9,14,2,1589,0)="""RTN"",""DGPFHLU5"",236,0)"
^XMB(3.9,14,2,1590,0)=" . ;"
^XMB(3.9,14,2,1591,0)="""RTN"",""DGPFHLU5"",237,0)"
^XMB(3.9,14,2,1592,0)=" . S:$L(DGMORE) DGOLDLN=DGMORE_"" ""_DGOLDLN,DGMORE="""""
^XMB(3.9,14,2,1593,0)="""RTN"",""DGPFHLU5"",238,0)"
^XMB(3.9,14,2,1594,0)=" . ;"
^XMB(3.9,14,2,1595,0)="""RTN"",""DGPFHLU5"",239,0)"
^XMB(3.9,14,2,1596,0)=" . I $L(DGOLDLN)>DGMAX F  D  Q:'$L(DGOLDLN)"
^XMB(3.9,14,2,1597,0)="""RTN"",""DGPFHLU5"",240,0)"
^XMB(3.9,14,2,1598,0)=" . . S DGSPOT=$L($E(DGOLDLN,1,DGMAX),"" "")"
^XMB(3.9,14,2,1599,0)="""RTN"",""DGPFHLU5"",241,0)"
^XMB(3.9,14,2,1600,0)=" . . S DGNEWLN=$P(DGOLDLN,"" "",1,$S(DGSPOT>1:DGSPOT-1,1:1))"
^XMB(3.9,14,2,1601,0)="""RTN"",""DGPFHLU5"",242,0)"
^XMB(3.9,14,2,1602,0)=" . . S DGLN=DGLN+1,DGARRY(DGLN)=DGNEWLN,DGNEWLN="""""
^XMB(3.9,14,2,1603,0)="""RTN"",""DGPFHLU5"",243,0)"
^XMB(3.9,14,2,1604,0)=" . . S DGMORE=$P(DGOLDLN,"" "",$S(DGSPOT>1:DGSPOT,1:DGSPOT+1),$L(DGOLDLN,"" ""))"
^XMB(3.9,14,2,1605,0)="""RTN"",""DGPFHLU5"",244,0)"
^XMB(3.9,14,2,1606,0)=" . . I $L(DGMORE)>DGMAX S DGOLDLN=DGMORE,DGMORE="""""
^XMB(3.9,14,2,1607,0)="""RTN"",""DGPFHLU5"",245,0)"
^XMB(3.9,14,2,1608,0)=" . . E  S DGOLDLN="""""
^XMB(3.9,14,2,1609,0)="""RTN"",""DGPFHLU5"",246,0)"
^XMB(3.9,14,2,1610,0)=" . E  D"
^XMB(3.9,14,2,1611,0)="""RTN"",""DGPFHLU5"",247,0)"
^XMB(3.9,14,2,1612,0)=" . . S DGLN=DGLN+1,DGARRY(DGLN)=DGOLDLN"
^XMB(3.9,14,2,1613,0)="""RTN"",""DGPFHLU5"",248,0)"
^XMB(3.9,14,2,1614,0)=" ;"
^XMB(3.9,14,2,1615,0)="""RTN"",""DGPFHLU5"",249,0)"
^XMB(3.9,14,2,1616,0)=" I $D(DGARRY) K DGTEXT M DGTEXT=DGARRY"
^XMB(3.9,14,2,1617,0)="""RTN"",""DGPFHLU5"",250,0)"
^XMB(3.9,14,2,1618,0)=" Q"
^XMB(3.9,14,2,1619,0)="""VER"")"
^XMB(3.9,14,2,1620,0)="8.0^22.0"
^XMB(3.9,14,2,1621,0)="""BLD"",6152,6)"
^XMB(3.9,14,2,1622,0)="^629"
^XMB(3.9,14,2,1623,0)="$END KID DG*5.3*718"
^XMB(3.9,14,6,0)="^3.911A^2^2"
^XMB(3.9,14,6,1,0)="POSTMASTER"
^XMB(3.9,14,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,14,6,"B","POSTMASTER",1)=""
^XMB(3.9,14,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,15,0)="DG-5P3_SEQ-630_PAT-719.KID^.5^3061008.015731^^^^K"
^XMB(3.9,15,.6)="3061008"
^XMB(3.9,15,1,0)="^3.91A^2^2"
^XMB(3.9,15,1,1,0)=".5^0^3061008.015731^^^^^^^3061008.015731"
^XMB(3.9,15,1,2,0)="1^0^3061008.040047^^^^^^^3061008.022906"
^XMB(3.9,15,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,15,1,"C",.5,1)=""
^XMB(3.9,15,1,"C",1,2)=""
^XMB(3.9,15,2,0)="^^371^371^3061008"
^XMB(3.9,15,2,1,0)="$TXT Released DG*5.3*719 SEQ #630"
^XMB(3.9,15,2,2,0)="Extracted from mail message"
^XMB(3.9,15,2,3,0)="$END TXT"
^XMB(3.9,15,2,4,0)="$KID DG*5.3*719"
^XMB(3.9,15,2,5,0)="**INSTALL NAME**"
^XMB(3.9,15,2,6,0)="DG*5.3*719"
^XMB(3.9,15,2,7,0)="""BLD"",6813,0)"
^XMB(3.9,15,2,8,0)="DG*5.3*719^REGISTRATION^0^3060621^y"
^XMB(3.9,15,2,9,0)="""BLD"",6813,4,0)"
^XMB(3.9,15,2,10,0)="^9.64PA^^"
^XMB(3.9,15,2,11,0)="""BLD"",6813,""KRN"",0)"
^XMB(3.9,15,2,12,0)="^9.67PA^8989.52^19"
^XMB(3.9,15,2,13,0)="""BLD"",6813,""KRN"",.4,0)"
^XMB(3.9,15,2,14,0)=".4"
^XMB(3.9,15,2,15,0)="""BLD"",6813,""KRN"",.401,0)"
^XMB(3.9,15,2,16,0)=".401"
^XMB(3.9,15,2,17,0)="""BLD"",6813,""KRN"",.402,0)"
^XMB(3.9,15,2,18,0)=".402"
^XMB(3.9,15,2,19,0)="""BLD"",6813,""KRN"",.403,0)"
^XMB(3.9,15,2,20,0)=".403"
^XMB(3.9,15,2,21,0)="""BLD"",6813,""KRN"",.5,0)"
^XMB(3.9,15,2,22,0)=".5"
^XMB(3.9,15,2,23,0)="""BLD"",6813,""KRN"",.84,0)"
^XMB(3.9,15,2,24,0)=".84"
^XMB(3.9,15,2,25,0)="""BLD"",6813,""KRN"",3.6,0)"
^XMB(3.9,15,2,26,0)="3.6"
^XMB(3.9,15,2,27,0)="""BLD"",6813,""KRN"",3.8,0)"
^XMB(3.9,15,2,28,0)="3.8"
^XMB(3.9,15,2,29,0)="""BLD"",6813,""KRN"",9.2,0)"
^XMB(3.9,15,2,30,0)="9.2"
^XMB(3.9,15,2,31,0)="""BLD"",6813,""KRN"",9.8,0)"
^XMB(3.9,15,2,32,0)="9.8"
^XMB(3.9,15,2,33,0)="""BLD"",6813,""KRN"",9.8,""NM"",0)"
^XMB(3.9,15,2,34,0)="^9.68A^1^1"
^XMB(3.9,15,2,35,0)="""BLD"",6813,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,15,2,36,0)="DGPMV10^^0^B28144594"
^XMB(3.9,15,2,37,0)="""BLD"",6813,""KRN"",9.8,""NM"",""B"",""DGPMV10"",1)"
^XMB(3.9,15,2,38,0)=""
^XMB(3.9,15,2,39,0)="""BLD"",6813,""KRN"",19,0)"
^XMB(3.9,15,2,40,0)="19"
^XMB(3.9,15,2,41,0)="""BLD"",6813,""KRN"",19.1,0)"
^XMB(3.9,15,2,42,0)="19.1"
^XMB(3.9,15,2,43,0)="""BLD"",6813,""KRN"",101,0)"
^XMB(3.9,15,2,44,0)="101"
^XMB(3.9,15,2,45,0)="""BLD"",6813,""KRN"",409.61,0)"
^XMB(3.9,15,2,46,0)="409.61"
^XMB(3.9,15,2,47,0)="""BLD"",6813,""KRN"",771,0)"
^XMB(3.9,15,2,48,0)="771"
^XMB(3.9,15,2,49,0)="""BLD"",6813,""KRN"",870,0)"
^XMB(3.9,15,2,50,0)="870"
^XMB(3.9,15,2,51,0)="""BLD"",6813,""KRN"",8989.51,0)"
^XMB(3.9,15,2,52,0)="8989.51"
^XMB(3.9,15,2,53,0)="""BLD"",6813,""KRN"",8989.52,0)"
^XMB(3.9,15,2,54,0)="8989.52"
^XMB(3.9,15,2,55,0)="""BLD"",6813,""KRN"",8994,0)"
^XMB(3.9,15,2,56,0)="8994"
^XMB(3.9,15,2,57,0)="""BLD"",6813,""KRN"",""B"",.4,.4)"
^XMB(3.9,15,2,58,0)=""
^XMB(3.9,15,2,59,0)="""BLD"",6813,""KRN"",""B"",.401,.401)"
^XMB(3.9,15,2,60,0)=""
^XMB(3.9,15,2,61,0)="""BLD"",6813,""KRN"",""B"",.402,.402)"
^XMB(3.9,15,2,62,0)=""
^XMB(3.9,15,2,63,0)="""BLD"",6813,""KRN"",""B"",.403,.403)"
^XMB(3.9,15,2,64,0)=""
^XMB(3.9,15,2,65,0)="""BLD"",6813,""KRN"",""B"",.5,.5)"
^XMB(3.9,15,2,66,0)=""
^XMB(3.9,15,2,67,0)="""BLD"",6813,""KRN"",""B"",.84,.84)"
^XMB(3.9,15,2,68,0)=""
^XMB(3.9,15,2,69,0)="""BLD"",6813,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,15,2,70,0)=""
^XMB(3.9,15,2,71,0)="""BLD"",6813,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,15,2,72,0)=""
^XMB(3.9,15,2,73,0)="""BLD"",6813,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,15,2,74,0)=""
^XMB(3.9,15,2,75,0)="""BLD"",6813,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,15,2,76,0)=""
^XMB(3.9,15,2,77,0)="""BLD"",6813,""KRN"",""B"",19,19)"
^XMB(3.9,15,2,78,0)=""
^XMB(3.9,15,2,79,0)="""BLD"",6813,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,15,2,80,0)=""
^XMB(3.9,15,2,81,0)="""BLD"",6813,""KRN"",""B"",101,101)"
^XMB(3.9,15,2,82,0)=""
^XMB(3.9,15,2,83,0)="""BLD"",6813,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,15,2,84,0)=""
^XMB(3.9,15,2,85,0)="""BLD"",6813,""KRN"",""B"",771,771)"
^XMB(3.9,15,2,86,0)=""
^XMB(3.9,15,2,87,0)="""BLD"",6813,""KRN"",""B"",870,870)"
^XMB(3.9,15,2,88,0)=""
^XMB(3.9,15,2,89,0)="""BLD"",6813,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,15,2,90,0)=""
^XMB(3.9,15,2,91,0)="""BLD"",6813,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,15,2,92,0)=""
^XMB(3.9,15,2,93,0)="""BLD"",6813,""KRN"",""B"",8994,8994)"
^XMB(3.9,15,2,94,0)=""
^XMB(3.9,15,2,95,0)="""BLD"",6813,""QUES"",0)"
^XMB(3.9,15,2,96,0)="^9.62^^"
^XMB(3.9,15,2,97,0)="""BLD"",6813,""REQB"",0)"
^XMB(3.9,15,2,98,0)="^9.611^1^1"
^XMB(3.9,15,2,99,0)="""BLD"",6813,""REQB"",1,0)"
^XMB(3.9,15,2,100,0)="DG*5.3*683^1"
^XMB(3.9,15,2,101,0)="""BLD"",6813,""REQB"",""B"",""DG*5.3*683"",1)"
^XMB(3.9,15,2,102,0)=""
^XMB(3.9,15,2,103,0)="""MBREQ"")"
^XMB(3.9,15,2,104,0)="0"
^XMB(3.9,15,2,105,0)="""PKG"",5,-1)"
^XMB(3.9,15,2,106,0)="1^1"
^XMB(3.9,15,2,107,0)="""PKG"",5,0)"
^XMB(3.9,15,2,108,0)="REGISTRATION^DG^PATIENT REGISTRATION, ADMISSION, DISCHARGE, EMBOSSER "
^XMB(3.9,15,2,109,0)="""PKG"",5,20,0)"
^XMB(3.9,15,2,110,0)="^9.402P^^"
^XMB(3.9,15,2,111,0)="""PKG"",5,22,0)"
^XMB(3.9,15,2,112,0)="^9.49I^1^1"
^XMB(3.9,15,2,113,0)="""PKG"",5,22,1,0)"
^XMB(3.9,15,2,114,0)="5.3^2930813"
^XMB(3.9,15,2,115,0)="""PKG"",5,22,1,""PAH"",1,0)"
^XMB(3.9,15,2,116,0)="719^3060621"
^XMB(3.9,15,2,117,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,15,2,118,0)="Y"
^XMB(3.9,15,2,119,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,15,2,120,0)="^D REP^XPDH"
^XMB(3.9,15,2,121,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,15,2,122,0)="Shall I write over your |FLAG| File"
^XMB(3.9,15,2,123,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,15,2,124,0)="YES"
^XMB(3.9,15,2,125,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,15,2,126,0)="D XPF1^XPDIQ"
^XMB(3.9,15,2,127,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,15,2,128,0)="Y"
^XMB(3.9,15,2,129,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,15,2,130,0)="^D DTA^XPDH"
^XMB(3.9,15,2,131,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,15,2,132,0)="Want my data |FLAG| yours"
^XMB(3.9,15,2,133,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,15,2,134,0)="YES"
^XMB(3.9,15,2,135,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,15,2,136,0)="D XPF2^XPDIQ"
^XMB(3.9,15,2,137,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,15,2,138,0)="YO"
^XMB(3.9,15,2,139,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,15,2,140,0)="^D INHIBIT^XPDH"
^XMB(3.9,15,2,141,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,15,2,142,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,15,2,143,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,15,2,144,0)="YES"
^XMB(3.9,15,2,145,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,15,2,146,0)="D XPI1^XPDIQ"
^XMB(3.9,15,2,147,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,15,2,148,0)="PO^VA(200,:EM"
^XMB(3.9,15,2,149,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,15,2,150,0)="^D MG^XPDH"
^XMB(3.9,15,2,151,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,15,2,152,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,15,2,153,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,15,2,154,0)=""
^XMB(3.9,15,2,155,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,15,2,156,0)="D XPM1^XPDIQ"
^XMB(3.9,15,2,157,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,15,2,158,0)="Y"
^XMB(3.9,15,2,159,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,15,2,160,0)="^D MENU^XPDH"
^XMB(3.9,15,2,161,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,15,2,162,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,15,2,163,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,15,2,164,0)="YES"
^XMB(3.9,15,2,165,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,15,2,166,0)="D XPO1^XPDIQ"
^XMB(3.9,15,2,167,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,15,2,168,0)="Y"
^XMB(3.9,15,2,169,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,15,2,170,0)="^D OPT^XPDH"
^XMB(3.9,15,2,171,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,15,2,172,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,15,2,173,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,15,2,174,0)="YES"
^XMB(3.9,15,2,175,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,15,2,176,0)="D XPZ1^XPDIQ"
^XMB(3.9,15,2,177,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,15,2,178,0)="Y"
^XMB(3.9,15,2,179,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,15,2,180,0)="^D RTN^XPDH"
^XMB(3.9,15,2,181,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,15,2,182,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,15,2,183,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,15,2,184,0)="NO"
^XMB(3.9,15,2,185,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,15,2,186,0)="D XPZ2^XPDIQ"
^XMB(3.9,15,2,187,0)="""RTN"")"
^XMB(3.9,15,2,188,0)="1"
^XMB(3.9,15,2,189,0)="""RTN"",""DGPMV10"")"
^XMB(3.9,15,2,190,0)="0^1^B28144594^B28791536"
^XMB(3.9,15,2,191,0)="""RTN"",""DGPMV10"",1,0)"
^XMB(3.9,15,2,192,0)="DGPMV10 ;ALB/MRL/MIR - PATIENT MOVEMENT, CONT.; 11 APR 89 ; 4/15/03 5:48pm"
^XMB(3.9,15,2,193,0)="""RTN"",""DGPMV10"",2,0)"
^XMB(3.9,15,2,194,0)=" ;;5.3;Registration;**84,498,509,683,719**;Aug 13, 1993"
^XMB(3.9,15,2,195,0)="""RTN"",""DGPMV10"",3,0)"
^XMB(3.9,15,2,196,0)="CS ;Current Status"
^XMB(3.9,15,2,197,0)="""RTN"",""DGPMV10"",4,0)"
^XMB(3.9,15,2,198,0)=" ;first print primary care team/practitioner/attending"
^XMB(3.9,15,2,199,0)="""RTN"",""DGPMV10"",5,0)"
^XMB(3.9,15,2,200,0)=" D PCMM^SCRPU4(DFN,DT)"
^XMB(3.9,15,2,201,0)="""RTN"",""DGPMV10"",6,0)"
^XMB(3.9,15,2,202,0)=" S X=$S('DGPMT:1,DGPMT<4:2,DGPMT>5:2,1:3) ;DGPMT=0 if from pt inq (DGRPD)"
^XMB(3.9,15,2,203,0)="""RTN"",""DGPMV10"",7,0)"
^XMB(3.9,15,2,204,0)=" I '$D(^DGPM(""C"",DFN)) W !!,""Status      : PATIENT HAS NO INPATIENT OR LODGER ACTIVITY IN THE COMPUTER"",*7 D CS2 Q"
^XMB(3.9,15,2,205,0)="""RTN"",""DGPMV10"",8,0)"
^XMB(3.9,15,2,206,0)=" S A=$S(""^3^5^""[(""^""_+DGPMVI(2)_""^""):0,1:+DGPMVI(2)) W !!,""Status      : "",$S('A:""IN"",1:""""),""ACTIVE "",$S(""^4^5^""[(""^""_+DGPMVI(2)_""^""):""LODGER"",1:""INPATIENT"")"
^XMB(3.9,15,2,207,0)="""RTN"",""DGPMV10"",9,0)"
^XMB(3.9,15,2,208,0)=" G CS1:'A W ""-"" S X=+DGPMVI(4) I X=1 W ""on PASS"" G CS1"
^XMB(3.9,15,2,209,0)="""RTN"",""DGPMV10"",10,0)"
^XMB(3.9,15,2,210,0)=" I ""^2^3^25^26^""[(""^""_X_""^"") W ""on "",$S(""^2^26^""[X:""A"",1:""U""),""A"" G CS1"
^XMB(3.9,15,2,211,0)="""RTN"",""DGPMV10"",11,0)"
^XMB(3.9,15,2,212,0)=" I ""^13^43^44^45^""[(""^""_X_""^"") W ""ASIH"" G CS1"
^XMB(3.9,15,2,213,0)="""RTN"",""DGPMV10"",12,0)"
^XMB(3.9,15,2,214,0)=" I X=6 W ""OTHER FAC"" G CS1"
^XMB(3.9,15,2,215,0)="""RTN"",""DGPMV10"",13,0)"
^XMB(3.9,15,2,216,0)=" W ""on WARD"""
^XMB(3.9,15,2,217,0)="""RTN"",""DGPMV10"",14,0)"
^XMB(3.9,15,2,218,0)="CS1 I +DGPMVI(2)=3,$D(^DGPM(+DGPMVI(17),0)) W ?39,""Discharge Type : "",$S($D(^DG(405.1,+$P(^(0),""^"",4),0)):$P(^(0),""^"",1),1:""UNKNOWN"")"
^XMB(3.9,15,2,219,0)="""RTN"",""DGPMV10"",15,0)"
^XMB(3.9,15,2,220,0)=" I ""^3^4^5^""'[(""^""_+DGPMVI(2)_""^""),$D(^DPT(DFN,""DAC"")),($P(^(""DAC""),""^"",1)=""S"") W ""  (Seriously ill)"""
^XMB(3.9,15,2,221,0)="""RTN"",""DGPMV10"",16,0)"
^XMB(3.9,15,2,222,0)=" W ! I +DGPMVI(19,1) W ""Patient chose not to be included in the Facility Directory for this admission"""
^XMB(3.9,15,2,223,0)="""RTN"",""DGPMV10"",17,0)"
^XMB(3.9,15,2,224,0)=" W !,$S(""^4^5^""'[(""^""_+DGPMVI(2)_""^""):""Admitted    "",1:""Checked-in  ""),"": ""_$P(DGPMVI(13,1),""^"",2)"
^XMB(3.9,15,2,225,0)="""RTN"",""DGPMV10"",18,0)"
^XMB(3.9,15,2,226,0)=" W ?39,$S(""^4^5^""[(""^""_+DGPMVI(2)_""^""):""Checked-out"",+DGPMVI(2)=3:""Discharged "",1:""Transferred""),""    : "",$S(""^1^4^""'[(""^""_+DGPMVI(2)_""^""):$P(DGPMVI(3),""^"",2),$P(DGPMVI(3),""^"",2)'=$P(DGPMVI(13,1),""^"",2):$P(DGPMVI(3),""^"",2),1:"""")"
^XMB(3.9,15,2,227,0)="""RTN"",""DGPMV10"",19,0)"
^XMB(3.9,15,2,228,0)=" W !,""Ward        : "",$E($P(DGPMVI(5),""^"",2),1,24),?39,""Room-Bed       : "",$E($P(DGPMVI(6),""^"",2),1,21) I ""^4^5^""'[(""^""_+DGPMVI(2)_""^"") W !,""Provider    : "",$E($P(DGPMVI(7),""^"",2),1,26),?39,""Specialty      : "",$E($P(DGPMVI(8),""^"",2),1,21)"
^XMB(3.9,15,2,229,0)="""RTN"",""DGPMV10"",20,0)"
^XMB(3.9,15,2,230,0)=" W !,""Attending   : "",$E($P(DGPMVI(18),""^"",2),1,26)"
^XMB(3.9,15,2,231,0)="""RTN"",""DGPMV10"",21,0)"
^XMB(3.9,15,2,232,0)=" D CS2"
^XMB(3.9,15,2,233,0)="""RTN"",""DGPMV10"",22,0)"
^XMB(3.9,15,2,234,0)=" S DGPMIFN=DGPMVI(13) I +DGPMVI(2)'=4&(+DGPMVI(2)'=5) D ^DGPMLOS W !!,""Admission LOS: "",+$P(X,""^"",5),""  Absence days: "",+$P(X,""^"",2),""  Pass Days: "",+$P(X,""^"",3),""  ASIH days: "",+$P(X,""^"",4)"
^XMB(3.9,15,2,235,0)="""RTN"",""DGPMV10"",23,0)"
^XMB(3.9,15,2,236,0)=" K A,C,I,J,X"
^XMB(3.9,15,2,237,0)="""RTN"",""DGPMV10"",24,0)"
^XMB(3.9,15,2,238,0)=" Q"
^XMB(3.9,15,2,239,0)="""RTN"",""DGPMV10"",25,0)"
^XMB(3.9,15,2,240,0)=" ;"
^XMB(3.9,15,2,241,0)="""RTN"",""DGPMV10"",26,0)"
^XMB(3.9,15,2,242,0)="CS2 ;-- additional fields for admission screen"
^XMB(3.9,15,2,243,0)="""RTN"",""DGPMV10"",27,0)"
^XMB(3.9,15,2,244,0)=" Q:DGPMT'=1"
^XMB(3.9,15,2,245,0)="""RTN"",""DGPMV10"",28,0)"
^XMB(3.9,15,2,246,0)=" S DGHOLD=$S($D(^DPT(DFN,0)):^(0),1:"""")"
^XMB(3.9,15,2,247,0)="""RTN"",""DGPMV10"",29,0)"
^XMB(3.9,15,2,248,0)=" W !!,""Religion    : "",$S($D(^DIC(13,+$P(DGHOLD,U,8),0)):$E($P(^(0),U),1,24),1:"""")"
^XMB(3.9,15,2,249,0)="""RTN"",""DGPMV10"",30,0)"
^XMB(3.9,15,2,250,0)=" W ?39,""Marital Status : "",$S($D(^DIC(11,+$P(DGHOLD,U,5),0)):$P(^(0),U),1:"""")"
^XMB(3.9,15,2,251,0)="""RTN"",""DGPMV10"",31,0)"
^XMB(3.9,15,2,252,0)=" S DGHOLD=$S($D(^DPT(DFN,.36)):$P(^(.36),U),1:"""")"
^XMB(3.9,15,2,253,0)="""RTN"",""DGPMV10"",32,0)"
^XMB(3.9,15,2,254,0)=" W !,""Eligibility : "",$S($D(^DIC(8,+$P(DGHOLD,U),0)):$P(^(0),U),1:"""")"
^XMB(3.9,15,2,255,0)="""RTN"",""DGPMV10"",33,0)"
^XMB(3.9,15,2,256,0)=" S DGHOLD=$S($D(^DPT(DFN,.361)):^(.361),1:"""")"
^XMB(3.9,15,2,257,0)="""RTN"",""DGPMV10"",34,0)"
^XMB(3.9,15,2,258,0)=" W:$P(DGHOLD,U)]"""" "" ("",$P($P($P(^DD(2,.3611,0),U,3),$P(DGHOLD,U)_"":"",2),"";""),"")"""
^XMB(3.9,15,2,259,0)="""RTN"",""DGPMV10"",35,0)"
^XMB(3.9,15,2,260,0)=" W:$P(DGHOLD,U)']"""" "" (NOT VERIFIED)"""
^XMB(3.9,15,2,261,0)="""RTN"",""DGPMV10"",36,0)"
^XMB(3.9,15,2,262,0)=" K DGHOLD"
^XMB(3.9,15,2,263,0)="""RTN"",""DGPMV10"",37,0)"
^XMB(3.9,15,2,264,0)=" Q"
^XMB(3.9,15,2,265,0)="""RTN"",""DGPMV10"",38,0)"
^XMB(3.9,15,2,266,0)=" ;"
^XMB(3.9,15,2,267,0)="""RTN"",""DGPMV10"",39,0)"
^XMB(3.9,15,2,268,0)="LODGER ;set-up necessary variables if getting last lodger episode"
^XMB(3.9,15,2,269,0)="""RTN"",""DGPMV10"",40,0)"
^XMB(3.9,15,2,270,0)=" ;only need 1,2,13,17 - date/time,TT,check-in IFN,check-out IFN"
^XMB(3.9,15,2,271,0)="""RTN"",""DGPMV10"",41,0)"
^XMB(3.9,15,2,272,0)=" S I=$O(^DGPM(""ATID4"",DFN,0)),I=$O(^(+I,0))"
^XMB(3.9,15,2,273,0)="""RTN"",""DGPMV10"",42,0)"
^XMB(3.9,15,2,274,0)=" S X=$S($D(^DGPM(+I,0)):^(0),1:"""") I 'X D NULL Q"
^XMB(3.9,15,2,275,0)="""RTN"",""DGPMV10"",43,0)"
^XMB(3.9,15,2,276,0)=" I $D(^DGPM(+$P(X,""^"",17),0)) S (DGPMDCD,DGPMVI(1))=+^(0),DGPMVI(2)=5,DGPMVI(13)=I,DGPMVI(17)=$P(X,""^"",17) Q"
^XMB(3.9,15,2,277,0)="""RTN"",""DGPMV10"",44,0)"
^XMB(3.9,15,2,278,0)=" S (DGPMDCD,DGPMVI(17))="""",DGPMVI(1)=+X,DGPMVI(2)=4,DGPMVI(13)=I"
^XMB(3.9,15,2,279,0)="""RTN"",""DGPMV10"",45,0)"
^XMB(3.9,15,2,280,0)=" Q"
^XMB(3.9,15,2,281,0)="""RTN"",""DGPMV10"",46,0)"
^XMB(3.9,15,2,282,0)="NULL S DGPMDCD="""" F I=1,2,13,17 S DGPMVI(I)="""""
^XMB(3.9,15,2,283,0)="""RTN"",""DGPMV10"",47,0)"
^XMB(3.9,15,2,284,0)=" Q"
^XMB(3.9,15,2,285,0)="""RTN"",""DGPMV10"",48,0)"
^XMB(3.9,15,2,286,0)=" ;"
^XMB(3.9,15,2,287,0)="""RTN"",""DGPMV10"",49,0)"
^XMB(3.9,15,2,288,0)="INP ;set-up inpt vbls needed (mimic VAIP array)"
^XMB(3.9,15,2,289,0)="""RTN"",""DGPMV10"",50,0)"
^XMB(3.9,15,2,290,0)=" ;"
^XMB(3.9,15,2,291,0)="""RTN"",""DGPMV10"",51,0)"
^XMB(3.9,15,2,292,0)=" ;Called from scheduling, too"
^XMB(3.9,15,2,293,0)="""RTN"",""DGPMV10"",52,0)"
^XMB(3.9,15,2,294,0)=" ;"
^XMB(3.9,15,2,295,0)="""RTN"",""DGPMV10"",53,0)"
^XMB(3.9,15,2,296,0)=" D NOW^%DTC S (VAX(""DAT""),NOW)=%,NOWI=9999999.999999-% I '$D(VAIP(""E"")) D LAST^VADPT3"
^XMB(3.9,15,2,297,0)="""RTN"",""DGPMV10"",54,0)"
^XMB(3.9,15,2,298,0)=" F I=1:1:8,13,17 S DGPMVI(I)="""""
^XMB(3.9,15,2,299,0)="""RTN"",""DGPMV10"",55,0)"
^XMB(3.9,15,2,300,0)=" F I=13,19 S DGPMVI(I,1)="""""
^XMB(3.9,15,2,301,0)="""RTN"",""DGPMV10"",56,0)"
^XMB(3.9,15,2,302,0)=" S DGPMVI(1)=$S($D(VAIP(""E"")):VAIP(""E""),1:E) ;use ifn of last mvt from VADPT call or one passed from DGPMV"
^XMB(3.9,15,2,303,0)="""RTN"",""DGPMV10"",57,0)"
^XMB(3.9,15,2,304,0)=" S DGX=$G(^DGPM(+DGPMVI(1),0)),DGPMVI(2)=$P(DGX,""^"",2),DGPMVI(4)=$P(DGX,""^"",18) S Y=+DGX X ^DD(""DD"") S DGPMVI(3)=$P(DGX,""^"",1)_""^""_Y"
^XMB(3.9,15,2,305,0)="""RTN"",""DGPMV10"",58,0)"
^XMB(3.9,15,2,306,0)=" S DGPMVI(5)=$P(DGX,""^"",6)_""^""_$S($D(^DIC(42,+$P(DGX,""^"",6),0)):$P(^(0),""^"",1),1:""""),DGPMVI(6)=$P(DGX,""^"",7)_""^""_$S($D(^DG(405.4,+$P(DGX,""^"",7),0)):$P(^(0),""^"",1),1:""""),DGPMVI(13)=$P(DGX,""^"",14)"
^XMB(3.9,15,2,307,0)="""RTN"",""DGPMV10"",59,0)"
^XMB(3.9,15,2,308,0)=" I ""^3^5^""[(""^""_DGPMVI(2)_""^"") D GETWD ;get from ward if d/c or check-out"
^XMB(3.9,15,2,309,0)="""RTN"",""DGPMV10"",60,0)"
^XMB(3.9,15,2,310,0)=" S DGX=$G(^DGPM(+DGPMVI(13),0)) I DGX]"""" S Y=+DGX X ^DD(""DD"") S DGPMVI(13,1)=$P(DGX,""^"",1)_""^""_Y,DGPMVI(17)=$P(DGX,""^"",17) I $D(DGPMSVC) S DGPMSV=$P($G(^DIC(42,+$P(DGX,""^"",6),0)),""^"",3)"
^XMB(3.9,15,2,311,0)="""RTN"",""DGPMV10"",61,0)"
^XMB(3.9,15,2,312,0)=" S DGPMDCD=$S($D(^DGPM(+DGPMVI(17),0)):$P(^(0),""^"",1),1:"""")"
^XMB(3.9,15,2,313,0)="""RTN"",""DGPMV10"",62,0)"
^XMB(3.9,15,2,314,0)=" S (DGTS,DGPP,DGAP)="""" ;t.s., primary care physician, attending"
^XMB(3.9,15,2,315,0)="""RTN"",""DGPMV10"",63,0)"
^XMB(3.9,15,2,316,0)=" F I=NOWI:0 S I=$O(^DGPM(""ATS"",DFN,+DGPMVI(13),I)) Q:'I  F J=0:0 S J=$O(^DGPM(""ATS"",DFN,+DGPMVI(13),I,J)) Q:'J  F IFN=0:0 S IFN=$O(^DGPM(""ATS"",DFN,+DGPMVI(13),I,J,IFN)) Q:'IFN  D TS1 G TSQ:DGTS&DGPP&DGAP"
^XMB(3.9,15,2,317,0)="""RTN"",""DGPMV10"",64,0)"
^XMB(3.9,15,2,318,0)="TSQ S DGPMVI(7)=DGPP,DGPMVI(8)=DGTS,DGPMVI(18)=DGAP"
^XMB(3.9,15,2,319,0)="""RTN"",""DGPMV10"",65,0)"
^XMB(3.9,15,2,320,0)=" S DGX=$G(^DGPM(+DGPMVI(13),0)) I $P(DGX,""^"",2)=1 D"
^XMB(3.9,15,2,321,0)="""RTN"",""DGPMV10"",66,0)"
^XMB(3.9,15,2,322,0)=" .S DGX=$G(^DGPM(+DGPMVI(13),""DIR""))"
^XMB(3.9,15,2,323,0)="""RTN"",""DGPMV10"",67,0)"
^XMB(3.9,15,2,324,0)=" .S DGX=$P(DGX,""^"",1)"
^XMB(3.9,15,2,325,0)="""RTN"",""DGPMV10"",68,0)"
^XMB(3.9,15,2,326,0)=" .I DGX="""" S DGX=$S('DGPMDCD:1,(DGPMDCD<3030414.999999):"""",1:1) Q:DGX="""""
^XMB(3.9,15,2,327,0)="""RTN"",""DGPMV10"",69,0)"
^XMB(3.9,15,2,328,0)=" .S DGPMVI(19,1)=DGX_""^""_$$EXTERNAL^DILFD(405,41,,DGX)"
^XMB(3.9,15,2,329,0)="""RTN"",""DGPMV10"",70,0)"
^XMB(3.9,15,2,330,0)=" D Q^VADPT3 K DGAP,DGPP,DGTS,DGX,IFN"
^XMB(3.9,15,2,331,0)="""RTN"",""DGPMV10"",71,0)"
^XMB(3.9,15,2,332,0)=" Q"
^XMB(3.9,15,2,333,0)="""RTN"",""DGPMV10"",72,0)"
^XMB(3.9,15,2,334,0)=" ;"
^XMB(3.9,15,2,335,0)="""RTN"",""DGPMV10"",73,0)"
^XMB(3.9,15,2,336,0)="TS1 ; set DGTS, DGPP, and DGAP"
^XMB(3.9,15,2,337,0)="""RTN"",""DGPMV10"",74,0)"
^XMB(3.9,15,2,338,0)=" Q:'$D(^DGPM(IFN,0))  S DGX=^(0)"
^XMB(3.9,15,2,339,0)="""RTN"",""DGPMV10"",75,0)"
^XMB(3.9,15,2,340,0)=" I 'DGPP,$D(^VA(200,+$P(DGX,""^"",8),0)) S Y=$P(DGX,""^"",8)_""^""_$P(^(0),""^"") S DGPP=Y"
^XMB(3.9,15,2,341,0)="""RTN"",""DGPMV10"",76,0)"
^XMB(3.9,15,2,342,0)=" I 'DGAP,$D(^VA(200,+$P(DGX,""^"",19),0)) S Y=$P(DGX,""^"",19)_""^""_$P(^(0),""^"") S DGAP=Y"
^XMB(3.9,15,2,343,0)="""RTN"",""DGPMV10"",77,0)"
^XMB(3.9,15,2,344,0)=" I 'DGTS,$D(^DIC(45.7,+$P(DGX,""^"",9),0)) S DGTS=$P(DGX,""^"",9)_""^""_$P(^(0),""^"")"
^XMB(3.9,15,2,345,0)="""RTN"",""DGPMV10"",78,0)"
^XMB(3.9,15,2,346,0)=" Q"
^XMB(3.9,15,2,347,0)="""RTN"",""DGPMV10"",79,0)"
^XMB(3.9,15,2,348,0)="GETWD ;get the from ward if last mvt is discharge or check-out"
^XMB(3.9,15,2,349,0)="""RTN"",""DGPMV10"",80,0)"
^XMB(3.9,15,2,350,0)=" I DGPMVI(2)=5 S J=DGPMVI(13) D SETWD Q"
^XMB(3.9,15,2,351,0)="""RTN"",""DGPMV10"",81,0)"
^XMB(3.9,15,2,352,0)=" F I=0:0 S I=$O(^DGPM(""APMV"",DFN,DGPMVI(13),I)) Q:'I!+DGPMVI(5)  F J=0:0 S J=$O(^DGPM(""APMV"",DFN,DGPMVI(13),I,J)) Q:'J  D SETWD Q:+DGPMVI(5)"
^XMB(3.9,15,2,353,0)="""RTN"",""DGPMV10"",82,0)"
^XMB(3.9,15,2,354,0)=" Q"
^XMB(3.9,15,2,355,0)="""RTN"",""DGPMV10"",83,0)"
^XMB(3.9,15,2,356,0)=" ;"
^XMB(3.9,15,2,357,0)="""RTN"",""DGPMV10"",84,0)"
^XMB(3.9,15,2,358,0)="SETWD ;set ward and room-bed variables for discharge/check-out mvts"
^XMB(3.9,15,2,359,0)="""RTN"",""DGPMV10"",85,0)"
^XMB(3.9,15,2,360,0)=" S X=$G(^DGPM(J,0))"
^XMB(3.9,15,2,361,0)="""RTN"",""DGPMV10"",86,0)"
^XMB(3.9,15,2,362,0)=" I $D(^DIC(42,+$P(X,""^"",6),0)) S DGPMVI(5)=$P(X,""^"",6)_""^""_$P(^(0),""^"",1)"
^XMB(3.9,15,2,363,0)="""RTN"",""DGPMV10"",87,0)"
^XMB(3.9,15,2,364,0)=" I $D(^DG(405.4,+$P(X,""^"",7),0)) S DGPMVI(6)=$P(X,""^"",7)_""^""_$P(^(0),""^"",1)"
^XMB(3.9,15,2,365,0)="""RTN"",""DGPMV10"",88,0)"
^XMB(3.9,15,2,366,0)=" Q"
^XMB(3.9,15,2,367,0)="""VER"")"
^XMB(3.9,15,2,368,0)="8.0^22.0"
^XMB(3.9,15,2,369,0)="""BLD"",6813,6)"
^XMB(3.9,15,2,370,0)="^630"
^XMB(3.9,15,2,371,0)="$END KID DG*5.3*719"
^XMB(3.9,15,6,0)="^3.911A^2^2"
^XMB(3.9,15,6,1,0)="POSTMASTER"
^XMB(3.9,15,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,15,6,"B","POSTMASTER",1)=""
^XMB(3.9,15,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,16,0)="DG-5P3_SEQ-631_PAT-726.KID^.5^3061008.015731^^^^K"
^XMB(3.9,16,.6)="3061008"
^XMB(3.9,16,1,0)="^3.91A^2^2"
^XMB(3.9,16,1,1,0)=".5^0^3061008.015731^^^^^^^3061008.015731"
^XMB(3.9,16,1,2,0)="1^0^3061008.022949^^^^^^^3061008.022949"
^XMB(3.9,16,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,16,1,"C",.5,1)=""
^XMB(3.9,16,1,"C",1,2)=""
^XMB(3.9,16,2,0)="^^305^305^3061008"
^XMB(3.9,16,2,1,0)="$TXT Released DG*5.3*726 SEQ #631"
^XMB(3.9,16,2,2,0)="Extracted from mail message"
^XMB(3.9,16,2,3,0)="$END TXT"
^XMB(3.9,16,2,4,0)="$KID DG*5.3*726"
^XMB(3.9,16,2,5,0)="**INSTALL NAME**"
^XMB(3.9,16,2,6,0)="DG*5.3*726"
^XMB(3.9,16,2,7,0)="""BLD"",6259,0)"
^XMB(3.9,16,2,8,0)="DG*5.3*726^REGISTRATION^0^3060905^y"
^XMB(3.9,16,2,9,0)="""BLD"",6259,4,0)"
^XMB(3.9,16,2,10,0)="^9.64PA^^"
^XMB(3.9,16,2,11,0)="""BLD"",6259,6.3)"
^XMB(3.9,16,2,12,0)="4"
^XMB(3.9,16,2,13,0)="""BLD"",6259,""INI"")"
^XMB(3.9,16,2,14,0)="EN^DG53726A"
^XMB(3.9,16,2,15,0)="""BLD"",6259,""KRN"",0)"
^XMB(3.9,16,2,16,0)="^9.67PA^8989.52^19"
^XMB(3.9,16,2,17,0)="""BLD"",6259,""KRN"",.4,0)"
^XMB(3.9,16,2,18,0)=".4"
^XMB(3.9,16,2,19,0)="""BLD"",6259,""KRN"",.401,0)"
^XMB(3.9,16,2,20,0)=".401"
^XMB(3.9,16,2,21,0)="""BLD"",6259,""KRN"",.402,0)"
^XMB(3.9,16,2,22,0)=".402"
^XMB(3.9,16,2,23,0)="""BLD"",6259,""KRN"",.403,0)"
^XMB(3.9,16,2,24,0)=".403"
^XMB(3.9,16,2,25,0)="""BLD"",6259,""KRN"",.5,0)"
^XMB(3.9,16,2,26,0)=".5"
^XMB(3.9,16,2,27,0)="""BLD"",6259,""KRN"",.84,0)"
^XMB(3.9,16,2,28,0)=".84"
^XMB(3.9,16,2,29,0)="""BLD"",6259,""KRN"",3.6,0)"
^XMB(3.9,16,2,30,0)="3.6"
^XMB(3.9,16,2,31,0)="""BLD"",6259,""KRN"",3.8,0)"
^XMB(3.9,16,2,32,0)="3.8"
^XMB(3.9,16,2,33,0)="""BLD"",6259,""KRN"",9.2,0)"
^XMB(3.9,16,2,34,0)="9.2"
^XMB(3.9,16,2,35,0)="""BLD"",6259,""KRN"",9.8,0)"
^XMB(3.9,16,2,36,0)="9.8"
^XMB(3.9,16,2,37,0)="""BLD"",6259,""KRN"",9.8,""NM"",0)"
^XMB(3.9,16,2,38,0)="^9.68A^1^1"
^XMB(3.9,16,2,39,0)="""BLD"",6259,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,16,2,40,0)="DG53726A^^0^B4307262"
^XMB(3.9,16,2,41,0)="""BLD"",6259,""KRN"",9.8,""NM"",""B"",""DG53726A"",1)"
^XMB(3.9,16,2,42,0)=""
^XMB(3.9,16,2,43,0)="""BLD"",6259,""KRN"",19,0)"
^XMB(3.9,16,2,44,0)="19"
^XMB(3.9,16,2,45,0)="""BLD"",6259,""KRN"",19.1,0)"
^XMB(3.9,16,2,46,0)="19.1"
^XMB(3.9,16,2,47,0)="""BLD"",6259,""KRN"",101,0)"
^XMB(3.9,16,2,48,0)="101"
^XMB(3.9,16,2,49,0)="""BLD"",6259,""KRN"",409.61,0)"
^XMB(3.9,16,2,50,0)="409.61"
^XMB(3.9,16,2,51,0)="""BLD"",6259,""KRN"",771,0)"
^XMB(3.9,16,2,52,0)="771"
^XMB(3.9,16,2,53,0)="""BLD"",6259,""KRN"",870,0)"
^XMB(3.9,16,2,54,0)="870"
^XMB(3.9,16,2,55,0)="""BLD"",6259,""KRN"",8989.51,0)"
^XMB(3.9,16,2,56,0)="8989.51"
^XMB(3.9,16,2,57,0)="""BLD"",6259,""KRN"",8989.52,0)"
^XMB(3.9,16,2,58,0)="8989.52"
^XMB(3.9,16,2,59,0)="""BLD"",6259,""KRN"",8994,0)"
^XMB(3.9,16,2,60,0)="8994"
^XMB(3.9,16,2,61,0)="""BLD"",6259,""KRN"",""B"",.4,.4)"
^XMB(3.9,16,2,62,0)=""
^XMB(3.9,16,2,63,0)="""BLD"",6259,""KRN"",""B"",.401,.401)"
^XMB(3.9,16,2,64,0)=""
^XMB(3.9,16,2,65,0)="""BLD"",6259,""KRN"",""B"",.402,.402)"
^XMB(3.9,16,2,66,0)=""
^XMB(3.9,16,2,67,0)="""BLD"",6259,""KRN"",""B"",.403,.403)"
^XMB(3.9,16,2,68,0)=""
^XMB(3.9,16,2,69,0)="""BLD"",6259,""KRN"",""B"",.5,.5)"
^XMB(3.9,16,2,70,0)=""
^XMB(3.9,16,2,71,0)="""BLD"",6259,""KRN"",""B"",.84,.84)"
^XMB(3.9,16,2,72,0)=""
^XMB(3.9,16,2,73,0)="""BLD"",6259,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,16,2,74,0)=""
^XMB(3.9,16,2,75,0)="""BLD"",6259,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,16,2,76,0)=""
^XMB(3.9,16,2,77,0)="""BLD"",6259,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,16,2,78,0)=""
^XMB(3.9,16,2,79,0)="""BLD"",6259,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,16,2,80,0)=""
^XMB(3.9,16,2,81,0)="""BLD"",6259,""KRN"",""B"",19,19)"
^XMB(3.9,16,2,82,0)=""
^XMB(3.9,16,2,83,0)="""BLD"",6259,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,16,2,84,0)=""
^XMB(3.9,16,2,85,0)="""BLD"",6259,""KRN"",""B"",101,101)"
^XMB(3.9,16,2,86,0)=""
^XMB(3.9,16,2,87,0)="""BLD"",6259,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,16,2,88,0)=""
^XMB(3.9,16,2,89,0)="""BLD"",6259,""KRN"",""B"",771,771)"
^XMB(3.9,16,2,90,0)=""
^XMB(3.9,16,2,91,0)="""BLD"",6259,""KRN"",""B"",870,870)"
^XMB(3.9,16,2,92,0)=""
^XMB(3.9,16,2,93,0)="""BLD"",6259,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,16,2,94,0)=""
^XMB(3.9,16,2,95,0)="""BLD"",6259,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,16,2,96,0)=""
^XMB(3.9,16,2,97,0)="""BLD"",6259,""KRN"",""B"",8994,8994)"
^XMB(3.9,16,2,98,0)=""
^XMB(3.9,16,2,99,0)="""BLD"",6259,""QUES"",0)"
^XMB(3.9,16,2,100,0)="^9.62^^"
^XMB(3.9,16,2,101,0)="""BLD"",6259,""REQB"",0)"
^XMB(3.9,16,2,102,0)="^9.611^1^1"
^XMB(3.9,16,2,103,0)="""BLD"",6259,""REQB"",1,0)"
^XMB(3.9,16,2,104,0)="DG*5.3*705^2"
^XMB(3.9,16,2,105,0)="""BLD"",6259,""REQB"",""B"",""DG*5.3*705"",1)"
^XMB(3.9,16,2,106,0)=""
^XMB(3.9,16,2,107,0)="""INI"")"
^XMB(3.9,16,2,108,0)="EN^DG53726A"
^XMB(3.9,16,2,109,0)="""MBREQ"")"
^XMB(3.9,16,2,110,0)="0"
^XMB(3.9,16,2,111,0)="""PKG"",5,-1)"
^XMB(3.9,16,2,112,0)="1^1"
^XMB(3.9,16,2,113,0)="""PKG"",5,0)"
^XMB(3.9,16,2,114,0)="REGISTRATION^DG^PATIENT REGISTRATION, ADMISSION, DISCHARGE, EMBOSSER "
^XMB(3.9,16,2,115,0)="""PKG"",5,20,0)"
^XMB(3.9,16,2,116,0)="^9.402P^^"
^XMB(3.9,16,2,117,0)="""PKG"",5,22,0)"
^XMB(3.9,16,2,118,0)="^9.49I^1^1"
^XMB(3.9,16,2,119,0)="""PKG"",5,22,1,0)"
^XMB(3.9,16,2,120,0)="5.3^2930813"
^XMB(3.9,16,2,121,0)="""PKG"",5,22,1,""PAH"",1,0)"
^XMB(3.9,16,2,122,0)="726^3060905^123456798"
^XMB(3.9,16,2,123,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,16,2,124,0)="Y"
^XMB(3.9,16,2,125,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,16,2,126,0)="^D REP^XPDH"
^XMB(3.9,16,2,127,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,16,2,128,0)="Shall I write over your |FLAG| File"
^XMB(3.9,16,2,129,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,16,2,130,0)="YES"
^XMB(3.9,16,2,131,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,16,2,132,0)="D XPF1^XPDIQ"
^XMB(3.9,16,2,133,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,16,2,134,0)="Y"
^XMB(3.9,16,2,135,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,16,2,136,0)="^D DTA^XPDH"
^XMB(3.9,16,2,137,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,16,2,138,0)="Want my data |FLAG| yours"
^XMB(3.9,16,2,139,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,16,2,140,0)="YES"
^XMB(3.9,16,2,141,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,16,2,142,0)="D XPF2^XPDIQ"
^XMB(3.9,16,2,143,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,16,2,144,0)="YO"
^XMB(3.9,16,2,145,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,16,2,146,0)="^D INHIBIT^XPDH"
^XMB(3.9,16,2,147,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,16,2,148,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,16,2,149,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,16,2,150,0)="YES"
^XMB(3.9,16,2,151,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,16,2,152,0)="D XPI1^XPDIQ"
^XMB(3.9,16,2,153,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,16,2,154,0)="PO^VA(200,:EM"
^XMB(3.9,16,2,155,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,16,2,156,0)="^D MG^XPDH"
^XMB(3.9,16,2,157,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,16,2,158,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,16,2,159,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,16,2,160,0)=""
^XMB(3.9,16,2,161,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,16,2,162,0)="D XPM1^XPDIQ"
^XMB(3.9,16,2,163,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,16,2,164,0)="Y"
^XMB(3.9,16,2,165,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,16,2,166,0)="^D MENU^XPDH"
^XMB(3.9,16,2,167,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,16,2,168,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,16,2,169,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,16,2,170,0)="YES"
^XMB(3.9,16,2,171,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,16,2,172,0)="D XPO1^XPDIQ"
^XMB(3.9,16,2,173,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,16,2,174,0)="Y"
^XMB(3.9,16,2,175,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,16,2,176,0)="^D OPT^XPDH"
^XMB(3.9,16,2,177,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,16,2,178,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,16,2,179,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,16,2,180,0)="YES"
^XMB(3.9,16,2,181,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,16,2,182,0)="D XPZ1^XPDIQ"
^XMB(3.9,16,2,183,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,16,2,184,0)="Y"
^XMB(3.9,16,2,185,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,16,2,186,0)="^D RTN^XPDH"
^XMB(3.9,16,2,187,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,16,2,188,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,16,2,189,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,16,2,190,0)="NO"
^XMB(3.9,16,2,191,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,16,2,192,0)="D XPZ2^XPDIQ"
^XMB(3.9,16,2,193,0)="""RTN"")"
^XMB(3.9,16,2,194,0)="1"
^XMB(3.9,16,2,195,0)="""RTN"",""DG53726A"")"
^XMB(3.9,16,2,196,0)="0^1^B4307262^n/a"
^XMB(3.9,16,2,197,0)="""RTN"",""DG53726A"",1,0)"
^XMB(3.9,16,2,198,0)="DG53726A ;ALB/RMM Enable Audit Settings for Patient File; 08/02/2006"
^XMB(3.9,16,2,199,0)="""RTN"",""DG53726A"",2,0)"
^XMB(3.9,16,2,200,0)=" ;;5.3;Registration;**726**;Aug 13, 1993;Build 4"
^XMB(3.9,16,2,201,0)="""RTN"",""DG53726A"",3,0)"
^XMB(3.9,16,2,202,0)=" ;"
^XMB(3.9,16,2,203,0)="""RTN"",""DG53726A"",4,0)"
^XMB(3.9,16,2,204,0)=" Q"
^XMB(3.9,16,2,205,0)="""RTN"",""DG53726A"",5,0)"
^XMB(3.9,16,2,206,0)=" ;"
^XMB(3.9,16,2,207,0)="""RTN"",""DG53726A"",6,0)"
^XMB(3.9,16,2,208,0)="EN ; This patch will turn AUDITING ON for the following fields:"
^XMB(3.9,16,2,209,0)="""RTN"",""DG53726A"",7,0)"
^XMB(3.9,16,2,210,0)=" ;"
^XMB(3.9,16,2,211,0)="""RTN"",""DG53726A"",8,0)"
^XMB(3.9,16,2,212,0)=" ;  .01     NAME"
^XMB(3.9,16,2,213,0)="""RTN"",""DG53726A"",9,0)"
^XMB(3.9,16,2,214,0)=" ;  .02     SEX"
^XMB(3.9,16,2,215,0)="""RTN"",""DG53726A"",10,0)"
^XMB(3.9,16,2,216,0)=" ;  .03     DATE OF BIRTH"
^XMB(3.9,16,2,217,0)="""RTN"",""DG53726A"",11,0)"
^XMB(3.9,16,2,218,0)=" ;  .05     MARITAL STATUS"
^XMB(3.9,16,2,219,0)="""RTN"",""DG53726A"",12,0)"
^XMB(3.9,16,2,220,0)=" ;  .08     RELIGIOUS PREFERENCE"
^XMB(3.9,16,2,221,0)="""RTN"",""DG53726A"",13,0)"
^XMB(3.9,16,2,222,0)=" ;  .09     SOCIAL SECURITY NUMBER"
^XMB(3.9,16,2,223,0)="""RTN"",""DG53726A"",14,0)"
^XMB(3.9,16,2,224,0)=" ;  .111    STREET ADDRESS [LINE 1]"
^XMB(3.9,16,2,225,0)="""RTN"",""DG53726A"",15,0)"
^XMB(3.9,16,2,226,0)=" ;  .1112   ZIP+4"
^XMB(3.9,16,2,227,0)="""RTN"",""DG53726A"",16,0)"
^XMB(3.9,16,2,228,0)=" ;  .112    STREET ADDRESS [LINE 2]"
^XMB(3.9,16,2,229,0)="""RTN"",""DG53726A"",17,0)"
^XMB(3.9,16,2,230,0)=" ;  .113    STREET ADDRESS [LINE 3]"
^XMB(3.9,16,2,231,0)="""RTN"",""DG53726A"",18,0)"
^XMB(3.9,16,2,232,0)=" ;  .114    CITY"
^XMB(3.9,16,2,233,0)="""RTN"",""DG53726A"",19,0)"
^XMB(3.9,16,2,234,0)=" ;  .115    STATE"
^XMB(3.9,16,2,235,0)="""RTN"",""DG53726A"",20,0)"
^XMB(3.9,16,2,236,0)=" ;  .117    COUNTY"
^XMB(3.9,16,2,237,0)="""RTN"",""DG53726A"",21,0)"
^XMB(3.9,16,2,238,0)=" ;  .131    PHONE NUMBER [RESIDENCE]"
^XMB(3.9,16,2,239,0)="""RTN"",""DG53726A"",22,0)"
^XMB(3.9,16,2,240,0)=" ;  .132    PHONE NUMBER [WORK]"
^XMB(3.9,16,2,241,0)="""RTN"",""DG53726A"",23,0)"
^XMB(3.9,16,2,242,0)=" ;  .211    K-NAME OF PRIMARY NOK"
^XMB(3.9,16,2,243,0)="""RTN"",""DG53726A"",24,0)"
^XMB(3.9,16,2,244,0)=" ;  .219    K-PHONE NUMBER"
^XMB(3.9,16,2,245,0)="""RTN"",""DG53726A"",25,0)"
^XMB(3.9,16,2,246,0)=" ;  .2403   MOTHER'S MAIDEN NAME"
^XMB(3.9,16,2,247,0)="""RTN"",""DG53726A"",26,0)"
^XMB(3.9,16,2,248,0)=" ;  .301    SERVICE CONNECTED?"
^XMB(3.9,16,2,249,0)="""RTN"",""DG53726A"",27,0)"
^XMB(3.9,16,2,250,0)=" ;  .302    SERVICE CONNECTED PERCENTAGE"
^XMB(3.9,16,2,251,0)="""RTN"",""DG53726A"",28,0)"
^XMB(3.9,16,2,252,0)=" ;  .31115  EMPLOYMENT STATUS"
^XMB(3.9,16,2,253,0)="""RTN"",""DG53726A"",29,0)"
^XMB(3.9,16,2,254,0)=" ;  .313    CLAIM NUMBER"
^XMB(3.9,16,2,255,0)="""RTN"",""DG53726A"",30,0)"
^XMB(3.9,16,2,256,0)=" ;  .323    PERIOD OF SERVICE"
^XMB(3.9,16,2,257,0)="""RTN"",""DG53726A"",31,0)"
^XMB(3.9,16,2,258,0)=" ;  .351    DATE OF DEATH"
^XMB(3.9,16,2,259,0)="""RTN"",""DG53726A"",32,0)"
^XMB(3.9,16,2,260,0)=" ;  391     TYPE"
^XMB(3.9,16,2,261,0)="""RTN"",""DG53726A"",33,0)"
^XMB(3.9,16,2,262,0)=" ;  1901    VETERAN (Y/N)?"
^XMB(3.9,16,2,263,0)="""RTN"",""DG53726A"",34,0)"
^XMB(3.9,16,2,264,0)=" ;  994     MULTIPLE BIRTH INDICATOR"
^XMB(3.9,16,2,265,0)="""RTN"",""DG53726A"",35,0)"
^XMB(3.9,16,2,266,0)=" ;  991.01  INTEGRATION CONTROL NUMBER"
^XMB(3.9,16,2,267,0)="""RTN"",""DG53726A"",36,0)"
^XMB(3.9,16,2,268,0)=" ;  991.02  ICN CHECKSUM"
^XMB(3.9,16,2,269,0)="""RTN"",""DG53726A"",37,0)"
^XMB(3.9,16,2,270,0)=" ;  991.03  CIRN MASTER OF RECORD"
^XMB(3.9,16,2,271,0)="""RTN"",""DG53726A"",38,0)"
^XMB(3.9,16,2,272,0)=" ;  991.04  LOCALLY ASSIGNED ICN"
^XMB(3.9,16,2,273,0)="""RTN"",""DG53726A"",39,0)"
^XMB(3.9,16,2,274,0)=" ;  991.05  SUBSCRIPTION CONTROL NUMBER"
^XMB(3.9,16,2,275,0)="""RTN"",""DG53726A"",40,0)"
^XMB(3.9,16,2,276,0)=" ;  991.06  CMOR ACTIVITY SCORE"
^XMB(3.9,16,2,277,0)="""RTN"",""DG53726A"",41,0)"
^XMB(3.9,16,2,278,0)=" ;  991.07  SCORE CALCULATION DATE"
^XMB(3.9,16,2,279,0)="""RTN"",""DG53726A"",42,0)"
^XMB(3.9,16,2,280,0)=" ;  .01     ICN HISTORY (SUB-FILE: 2.0992)"
^XMB(3.9,16,2,281,0)="""RTN"",""DG53726A"",43,0)"
^XMB(3.9,16,2,282,0)=" ;"
^XMB(3.9,16,2,283,0)="""RTN"",""DG53726A"",44,0)"
^XMB(3.9,16,2,284,0)=" N FLDNUM"
^XMB(3.9,16,2,285,0)="""RTN"",""DG53726A"",45,0)"
^XMB(3.9,16,2,286,0)=" F FLDNUM=.01,.02,.03,.05,.08,.09,.111,.1112 D TURNON^DIAUTL(2,FLDNUM) W !,""Adding AUDIT to field #"",FLDNUM"
^XMB(3.9,16,2,287,0)="""RTN"",""DG53726A"",46,0)"
^XMB(3.9,16,2,288,0)=" F FLDNUM=.112,.113,.114,.115,.117,.131,.132 D TURNON^DIAUTL(2,FLDNUM) W !,""Adding AUDIT to field #"",FLDNUM"
^XMB(3.9,16,2,289,0)="""RTN"",""DG53726A"",47,0)"
^XMB(3.9,16,2,290,0)=" F FLDNUM=.211,.219,.2403,.301,.302,.31115,.313,.323 D TURNON^DIAUTL(2,FLDNUM) W !,""Adding AUDIT to field #"",FLDNUM"
^XMB(3.9,16,2,291,0)="""RTN"",""DG53726A"",48,0)"
^XMB(3.9,16,2,292,0)=" F FLDNUM=.351,391,1901,994,991.01,991.02 D TURNON^DIAUTL(2,FLDNUM) W !,""Adding AUDIT to field #"",FLDNUM"
^XMB(3.9,16,2,293,0)="""RTN"",""DG53726A"",49,0)"
^XMB(3.9,16,2,294,0)=" F FLDNUM=991.03,991.04,991.05,991.06,991.07 D TURNON^DIAUTL(2,FLDNUM) W !,""Adding AUDIT to field #"",FLDNUM"
^XMB(3.9,16,2,295,0)="""RTN"",""DG53726A"",50,0)"
^XMB(3.9,16,2,296,0)=" F FLDNUM=.01 D TURNON^DIAUTL(2.0992,FLDNUM) W !,""Adding AUDIT to sub-file 2.0992, field #"",FLDNUM"
^XMB(3.9,16,2,297,0)="""RTN"",""DG53726A"",51,0)"
^XMB(3.9,16,2,298,0)=" Q"
^XMB(3.9,16,2,299,0)="""RTN"",""DG53726A"",52,0)"
^XMB(3.9,16,2,300,0)=" "
^XMB(3.9,16,2,301,0)="""VER"")"
^XMB(3.9,16,2,302,0)="8.0^22.0"
^XMB(3.9,16,2,303,0)="""BLD"",6259,6)"
^XMB(3.9,16,2,304,0)="^631"
^XMB(3.9,16,2,305,0)="$END KID DG*5.3*726"
^XMB(3.9,16,6,0)="^3.911A^2^2"
^XMB(3.9,16,6,1,0)="POSTMASTER"
^XMB(3.9,16,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,16,6,"B","POSTMASTER",1)=""
^XMB(3.9,16,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,17,0)="DG-5P3_SEQ-633_PAT-727.KID^.5^3061008.015731^^^^K"
^XMB(3.9,17,.6)="3061008"
^XMB(3.9,17,1,0)="^3.91A^2^2"
^XMB(3.9,17,1,1,0)=".5^0^3061008.015731^^^^^^^3061008.015731"
^XMB(3.9,17,1,2,0)="1^0^3061008.022954^^^^^^^3061008.022954"
^XMB(3.9,17,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,17,1,"C",.5,1)=""
^XMB(3.9,17,1,"C",1,2)=""
^XMB(3.9,17,2,0)="^^303^303^3061008"
^XMB(3.9,17,2,1,0)="$TXT EMERGENCY Released DG*5.3*727 SEQ #633"
^XMB(3.9,17,2,2,0)="Extracted from mail message"
^XMB(3.9,17,2,3,0)="$END TXT"
^XMB(3.9,17,2,4,0)="$KID DG*5.3*727"
^XMB(3.9,17,2,5,0)="**INSTALL NAME**"
^XMB(3.9,17,2,6,0)="DG*5.3*727"
^XMB(3.9,17,2,7,0)="""BLD"",6891,0)"
^XMB(3.9,17,2,8,0)="DG*5.3*727^REGISTRATION^0^3060823^y"
^XMB(3.9,17,2,9,0)="""BLD"",6891,4,0)"
^XMB(3.9,17,2,10,0)="^9.64PA^45^1"
^XMB(3.9,17,2,11,0)="""BLD"",6891,4,45,0)"
^XMB(3.9,17,2,12,0)="45"
^XMB(3.9,17,2,13,0)="""BLD"",6891,4,45,2,0)"
^XMB(3.9,17,2,14,0)="^9.641^45.02^1"
^XMB(3.9,17,2,15,0)="""BLD"",6891,4,45,2,45.02,0)"
^XMB(3.9,17,2,16,0)="501  (sub-file)"
^XMB(3.9,17,2,17,0)="""BLD"",6891,4,45,2,45.02,1,0)"
^XMB(3.9,17,2,18,0)="^9.6411^2^1"
^XMB(3.9,17,2,19,0)="""BLD"",6891,4,45,2,45.02,1,2,0)"
^XMB(3.9,17,2,20,0)="LOSING SPECIALTY"
^XMB(3.9,17,2,21,0)="""BLD"",6891,4,45,222)"
^XMB(3.9,17,2,22,0)="y^y^p^^^^n^^n"
^XMB(3.9,17,2,23,0)="""BLD"",6891,4,45,224)"
^XMB(3.9,17,2,24,0)=""
^XMB(3.9,17,2,25,0)="""BLD"",6891,4,""APDD"",45,45.02)"
^XMB(3.9,17,2,26,0)=""
^XMB(3.9,17,2,27,0)="""BLD"",6891,4,""APDD"",45,45.02,2)"
^XMB(3.9,17,2,28,0)=""
^XMB(3.9,17,2,29,0)="""BLD"",6891,4,""B"",45,45)"
^XMB(3.9,17,2,30,0)=""
^XMB(3.9,17,2,31,0)="""BLD"",6891,""INID"")"
^XMB(3.9,17,2,32,0)="^n"
^XMB(3.9,17,2,33,0)="""BLD"",6891,""INIT"")"
^XMB(3.9,17,2,34,0)="EN^DG53727P"
^XMB(3.9,17,2,35,0)="""BLD"",6891,""KRN"",0)"
^XMB(3.9,17,2,36,0)="^9.67PA^8989.52^19"
^XMB(3.9,17,2,37,0)="""BLD"",6891,""KRN"",.4,0)"
^XMB(3.9,17,2,38,0)=".4"
^XMB(3.9,17,2,39,0)="""BLD"",6891,""KRN"",.401,0)"
^XMB(3.9,17,2,40,0)=".401"
^XMB(3.9,17,2,41,0)="""BLD"",6891,""KRN"",.402,0)"
^XMB(3.9,17,2,42,0)=".402"
^XMB(3.9,17,2,43,0)="""BLD"",6891,""KRN"",.403,0)"
^XMB(3.9,17,2,44,0)=".403"
^XMB(3.9,17,2,45,0)="""BLD"",6891,""KRN"",.5,0)"
^XMB(3.9,17,2,46,0)=".5"
^XMB(3.9,17,2,47,0)="""BLD"",6891,""KRN"",.84,0)"
^XMB(3.9,17,2,48,0)=".84"
^XMB(3.9,17,2,49,0)="""BLD"",6891,""KRN"",3.6,0)"
^XMB(3.9,17,2,50,0)="3.6"
^XMB(3.9,17,2,51,0)="""BLD"",6891,""KRN"",3.8,0)"
^XMB(3.9,17,2,52,0)="3.8"
^XMB(3.9,17,2,53,0)="""BLD"",6891,""KRN"",9.2,0)"
^XMB(3.9,17,2,54,0)="9.2"
^XMB(3.9,17,2,55,0)="""BLD"",6891,""KRN"",9.8,0)"
^XMB(3.9,17,2,56,0)="9.8"
^XMB(3.9,17,2,57,0)="""BLD"",6891,""KRN"",19,0)"
^XMB(3.9,17,2,58,0)="19"
^XMB(3.9,17,2,59,0)="""BLD"",6891,""KRN"",19.1,0)"
^XMB(3.9,17,2,60,0)="19.1"
^XMB(3.9,17,2,61,0)="""BLD"",6891,""KRN"",101,0)"
^XMB(3.9,17,2,62,0)="101"
^XMB(3.9,17,2,63,0)="""BLD"",6891,""KRN"",409.61,0)"
^XMB(3.9,17,2,64,0)="409.61"
^XMB(3.9,17,2,65,0)="""BLD"",6891,""KRN"",771,0)"
^XMB(3.9,17,2,66,0)="771"
^XMB(3.9,17,2,67,0)="""BLD"",6891,""KRN"",870,0)"
^XMB(3.9,17,2,68,0)="870"
^XMB(3.9,17,2,69,0)="""BLD"",6891,""KRN"",8989.51,0)"
^XMB(3.9,17,2,70,0)="8989.51"
^XMB(3.9,17,2,71,0)="""BLD"",6891,""KRN"",8989.52,0)"
^XMB(3.9,17,2,72,0)="8989.52"
^XMB(3.9,17,2,73,0)="""BLD"",6891,""KRN"",8994,0)"
^XMB(3.9,17,2,74,0)="8994"
^XMB(3.9,17,2,75,0)="""BLD"",6891,""KRN"",""B"",.4,.4)"
^XMB(3.9,17,2,76,0)=""
^XMB(3.9,17,2,77,0)="""BLD"",6891,""KRN"",""B"",.401,.401)"
^XMB(3.9,17,2,78,0)=""
^XMB(3.9,17,2,79,0)="""BLD"",6891,""KRN"",""B"",.402,.402)"
^XMB(3.9,17,2,80,0)=""
^XMB(3.9,17,2,81,0)="""BLD"",6891,""KRN"",""B"",.403,.403)"
^XMB(3.9,17,2,82,0)=""
^XMB(3.9,17,2,83,0)="""BLD"",6891,""KRN"",""B"",.5,.5)"
^XMB(3.9,17,2,84,0)=""
^XMB(3.9,17,2,85,0)="""BLD"",6891,""KRN"",""B"",.84,.84)"
^XMB(3.9,17,2,86,0)=""
^XMB(3.9,17,2,87,0)="""BLD"",6891,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,17,2,88,0)=""
^XMB(3.9,17,2,89,0)="""BLD"",6891,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,17,2,90,0)=""
^XMB(3.9,17,2,91,0)="""BLD"",6891,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,17,2,92,0)=""
^XMB(3.9,17,2,93,0)="""BLD"",6891,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,17,2,94,0)=""
^XMB(3.9,17,2,95,0)="""BLD"",6891,""KRN"",""B"",19,19)"
^XMB(3.9,17,2,96,0)=""
^XMB(3.9,17,2,97,0)="""BLD"",6891,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,17,2,98,0)=""
^XMB(3.9,17,2,99,0)="""BLD"",6891,""KRN"",""B"",101,101)"
^XMB(3.9,17,2,100,0)=""
^XMB(3.9,17,2,101,0)="""BLD"",6891,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,17,2,102,0)=""
^XMB(3.9,17,2,103,0)="""BLD"",6891,""KRN"",""B"",771,771)"
^XMB(3.9,17,2,104,0)=""
^XMB(3.9,17,2,105,0)="""BLD"",6891,""KRN"",""B"",870,870)"
^XMB(3.9,17,2,106,0)=""
^XMB(3.9,17,2,107,0)="""BLD"",6891,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,17,2,108,0)=""
^XMB(3.9,17,2,109,0)="""BLD"",6891,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,17,2,110,0)=""
^XMB(3.9,17,2,111,0)="""BLD"",6891,""KRN"",""B"",8994,8994)"
^XMB(3.9,17,2,112,0)=""
^XMB(3.9,17,2,113,0)="""FIA"",45)"
^XMB(3.9,17,2,114,0)="PTF"
^XMB(3.9,17,2,115,0)="""FIA"",45,0)"
^XMB(3.9,17,2,116,0)="^DGPT("
^XMB(3.9,17,2,117,0)="""FIA"",45,0,0)"
^XMB(3.9,17,2,118,0)="45IP"
^XMB(3.9,17,2,119,0)="""FIA"",45,0,1)"
^XMB(3.9,17,2,120,0)="y^y^p^^^^n^^n"
^XMB(3.9,17,2,121,0)="""FIA"",45,0,10)"
^XMB(3.9,17,2,122,0)=""
^XMB(3.9,17,2,123,0)="""FIA"",45,0,11)"
^XMB(3.9,17,2,124,0)=""
^XMB(3.9,17,2,125,0)="""FIA"",45,0,""RLRO"")"
^XMB(3.9,17,2,126,0)=""
^XMB(3.9,17,2,127,0)="""FIA"",45,0,""VR"")"
^XMB(3.9,17,2,128,0)="5.3^DG"
^XMB(3.9,17,2,129,0)="""FIA"",45,45)"
^XMB(3.9,17,2,130,0)="1"
^XMB(3.9,17,2,131,0)="""FIA"",45,45.02)"
^XMB(3.9,17,2,132,0)="1"
^XMB(3.9,17,2,133,0)="""FIA"",45,45.02,2)"
^XMB(3.9,17,2,134,0)=""
^XMB(3.9,17,2,135,0)="""INIT"")"
^XMB(3.9,17,2,136,0)="EN^DG53727P"
^XMB(3.9,17,2,137,0)="""MBREQ"")"
^XMB(3.9,17,2,138,0)="0"
^XMB(3.9,17,2,139,0)="""PKG"",5,-1)"
^XMB(3.9,17,2,140,0)="1^1"
^XMB(3.9,17,2,141,0)="""PKG"",5,0)"
^XMB(3.9,17,2,142,0)="REGISTRATION^DG^PATIENT REGISTRATION, ADMISSION, DISCHARGE, EMBOSSER "
^XMB(3.9,17,2,143,0)="""PKG"",5,20,0)"
^XMB(3.9,17,2,144,0)="^9.402P^^"
^XMB(3.9,17,2,145,0)="""PKG"",5,22,0)"
^XMB(3.9,17,2,146,0)="^9.49I^1^1"
^XMB(3.9,17,2,147,0)="""PKG"",5,22,1,0)"
^XMB(3.9,17,2,148,0)="5.3^2930813"
^XMB(3.9,17,2,149,0)="""PKG"",5,22,1,""PAH"",1,0)"
^XMB(3.9,17,2,150,0)="727^3060823^2503"
^XMB(3.9,17,2,151,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,17,2,152,0)="Y"
^XMB(3.9,17,2,153,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,17,2,154,0)="^D REP^XPDH"
^XMB(3.9,17,2,155,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,17,2,156,0)="Shall I write over your |FLAG| File"
^XMB(3.9,17,2,157,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,17,2,158,0)="YES"
^XMB(3.9,17,2,159,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,17,2,160,0)="D XPF1^XPDIQ"
^XMB(3.9,17,2,161,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,17,2,162,0)="Y"
^XMB(3.9,17,2,163,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,17,2,164,0)="^D DTA^XPDH"
^XMB(3.9,17,2,165,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,17,2,166,0)="Want my data |FLAG| yours"
^XMB(3.9,17,2,167,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,17,2,168,0)="YES"
^XMB(3.9,17,2,169,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,17,2,170,0)="D XPF2^XPDIQ"
^XMB(3.9,17,2,171,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,17,2,172,0)="YO"
^XMB(3.9,17,2,173,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,17,2,174,0)="^D INHIBIT^XPDH"
^XMB(3.9,17,2,175,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,17,2,176,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,17,2,177,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,17,2,178,0)="YES"
^XMB(3.9,17,2,179,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,17,2,180,0)="D XPI1^XPDIQ"
^XMB(3.9,17,2,181,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,17,2,182,0)="PO^VA(200,:EM"
^XMB(3.9,17,2,183,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,17,2,184,0)="^D MG^XPDH"
^XMB(3.9,17,2,185,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,17,2,186,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,17,2,187,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,17,2,188,0)=""
^XMB(3.9,17,2,189,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,17,2,190,0)="D XPM1^XPDIQ"
^XMB(3.9,17,2,191,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,17,2,192,0)="Y"
^XMB(3.9,17,2,193,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,17,2,194,0)="^D MENU^XPDH"
^XMB(3.9,17,2,195,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,17,2,196,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,17,2,197,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,17,2,198,0)="YES"
^XMB(3.9,17,2,199,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,17,2,200,0)="D XPO1^XPDIQ"
^XMB(3.9,17,2,201,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,17,2,202,0)="Y"
^XMB(3.9,17,2,203,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,17,2,204,0)="^D OPT^XPDH"
^XMB(3.9,17,2,205,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,17,2,206,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,17,2,207,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,17,2,208,0)="YES"
^XMB(3.9,17,2,209,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,17,2,210,0)="D XPZ1^XPDIQ"
^XMB(3.9,17,2,211,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,17,2,212,0)="Y"
^XMB(3.9,17,2,213,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,17,2,214,0)="^D RTN^XPDH"
^XMB(3.9,17,2,215,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,17,2,216,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,17,2,217,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,17,2,218,0)="NO"
^XMB(3.9,17,2,219,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,17,2,220,0)="D XPZ2^XPDIQ"
^XMB(3.9,17,2,221,0)="""RTN"")"
^XMB(3.9,17,2,222,0)="1"
^XMB(3.9,17,2,223,0)="""RTN"",""DG53727P"")"
^XMB(3.9,17,2,224,0)="0^^B599270^n/a"
^XMB(3.9,17,2,225,0)="""RTN"",""DG53727P"",1,0)"
^XMB(3.9,17,2,226,0)="DG53727P ;ALB/DHH - post-install for DG*5.3*727 ; 8/14/2006"
^XMB(3.9,17,2,227,0)="""RTN"",""DG53727P"",2,0)"
^XMB(3.9,17,2,228,0)=" ;;5.3;Registration;**727**;Aug 13, 1993"
^XMB(3.9,17,2,229,0)="""RTN"",""DG53727P"",3,0)"
^XMB(3.9,17,2,230,0)="EN ;"
^XMB(3.9,17,2,231,0)="""RTN"",""DG53727P"",4,0)"
^XMB(3.9,17,2,232,0)=" ;recompile input templates"
^XMB(3.9,17,2,233,0)="""RTN"",""DG53727P"",5,0)"
^XMB(3.9,17,2,234,0)=" N X,Y,DMAX,MESS"
^XMB(3.9,17,2,235,0)="""RTN"",""DG53727P"",6,0)"
^XMB(3.9,17,2,236,0)=" S X=""DGX5F"""
^XMB(3.9,17,2,237,0)="""RTN"",""DG53727P"",7,0)"
^XMB(3.9,17,2,238,0)=" S Y=$$FIND1^DIC(.402,"""",""MX"",""DG501F"")"
^XMB(3.9,17,2,239,0)="""RTN"",""DG53727P"",8,0)"
^XMB(3.9,17,2,240,0)=" I Y<0 S MESS=""Error in re-compiling DG501F input template."" D MESS Q"
^XMB(3.9,17,2,241,0)="""RTN"",""DG53727P"",9,0)"
^XMB(3.9,17,2,242,0)=" S DMAX=8000"
^XMB(3.9,17,2,243,0)="""RTN"",""DG53727P"",10,0)"
^XMB(3.9,17,2,244,0)=" D EN^DIEZ"
^XMB(3.9,17,2,245,0)="""RTN"",""DG53727P"",11,0)"
^XMB(3.9,17,2,246,0)=" S MESS=""DG501F input template has been re-compiled."""
^XMB(3.9,17,2,247,0)="""RTN"",""DG53727P"",12,0)"
^XMB(3.9,17,2,248,0)=" D MESS"
^XMB(3.9,17,2,249,0)="""RTN"",""DG53727P"",13,0)"
^XMB(3.9,17,2,250,0)=" Q"
^XMB(3.9,17,2,251,0)="""RTN"",""DG53727P"",14,0)"
^XMB(3.9,17,2,252,0)=" ;"
^XMB(3.9,17,2,253,0)="""RTN"",""DG53727P"",15,0)"
^XMB(3.9,17,2,254,0)="MESS ;"
^XMB(3.9,17,2,255,0)="""RTN"",""DG53727P"",16,0)"
^XMB(3.9,17,2,256,0)=" D MES^XPDUTL("""")"
^XMB(3.9,17,2,257,0)="""RTN"",""DG53727P"",17,0)"
^XMB(3.9,17,2,258,0)=" D BMES^XPDUTL(MESS)"
^XMB(3.9,17,2,259,0)="""RTN"",""DG53727P"",18,0)"
^XMB(3.9,17,2,260,0)=" Q"
^XMB(3.9,17,2,261,0)="""UP"",45,45.02,-1)"
^XMB(3.9,17,2,262,0)="45^M"
^XMB(3.9,17,2,263,0)="""UP"",45,45.02,0)"
^XMB(3.9,17,2,264,0)="45.02"
^XMB(3.9,17,2,265,0)="""VER"")"
^XMB(3.9,17,2,266,0)="8.0^22.0"
^XMB(3.9,17,2,267,0)="""^DD"",45,45.02,2,0)"
^XMB(3.9,17,2,268,0)="LOSING SPECIALTY^*P42.4'X^DIC(42.4,^0;2^S DIC(""S"")=""I $G(DA)=1!($$ACTIVE^DGACT(42.4,+Y,$S($P(^DGPT(DA(1),""""M"""",DA,0),U,10):$P(^(0),U,10),1:$P(^DGPT(DA(1),0),U,2))))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^XMB(3.9,17,2,269,0)="""^DD"",45,45.02,2,1,0)"
^XMB(3.9,17,2,270,0)="^.1"
^XMB(3.9,17,2,271,0)="""^DD"",45,45.02,2,1,1,0)"
^XMB(3.9,17,2,272,0)="^^TRIGGER^45.02^16"
^XMB(3.9,17,2,273,0)="""^DD"",45,45.02,2,1,1,1)"
^XMB(3.9,17,2,274,0)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,""M"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,16),X=X S DIU=X K Y X ^DD(45.02,2,1,1,1.1) X ^DD(45.02,2,1,1,1.4)"
^XMB(3.9,17,2,275,0)="""^DD"",45,45.02,2,1,1,1.1)"
^XMB(3.9,17,2,276,0)="S X=DIV S X=$S($D(^DIC(42.4,X,0)):$P(^(0),U,6),1:"""")"
^XMB(3.9,17,2,277,0)="""^DD"",45,45.02,2,1,1,1.4)"
^XMB(3.9,17,2,278,0)="S DIH=$S($D(^DGPT(DIV(0),""M"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,16)=DIV,DIH=45.02,DIG=16 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,17,2,279,0)="""^DD"",45,45.02,2,1,1,2)"
^XMB(3.9,17,2,280,0)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,""M"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="""" X ^DD(45.02,2,1,1,2.4)"
^XMB(3.9,17,2,281,0)="""^DD"",45,45.02,2,1,1,2.4)"
^XMB(3.9,17,2,282,0)="S DIH=$S($D(^DGPT(DIV(0),""M"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,16)=DIV,DIH=45.02,DIG=16 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,17,2,283,0)="""^DD"",45,45.02,2,1,1,""CREATE VALUE"")"
^XMB(3.9,17,2,284,0)="S X=$S($D(^DIC(42.4,X,0)):$P(^(0),U,6),1:"""")"
^XMB(3.9,17,2,285,0)="""^DD"",45,45.02,2,1,1,""DELETE VALUE"")"
^XMB(3.9,17,2,286,0)="@"
^XMB(3.9,17,2,287,0)="""^DD"",45,45.02,2,1,1,""FIELD"")"
^XMB(3.9,17,2,288,0)="SPECIALTY CDR"
^XMB(3.9,17,2,289,0)="""^DD"",45,45.02,2,3)"
^XMB(3.9,17,2,290,0)="Enter the losing bedsection for this movement.  This must be an active treating specialty."
^XMB(3.9,17,2,291,0)="""^DD"",45,45.02,2,12)"
^XMB(3.9,17,2,292,0)="Allows only active treating specialties."
^XMB(3.9,17,2,293,0)="""^DD"",45,45.02,2,12.1)"
^XMB(3.9,17,2,294,0)="S DIC(""S"")=""I $G(DA)=1!($$ACTIVE^DGACT(42.4,+Y,$S($P(^DGPT(DA(1),""""M"""",DA,0),U,10):$P(^(0),U,10),1:$P(^DGPT(DA(1),0),U,2))))"""
^XMB(3.9,17,2,295,0)="""^DD"",45,45.02,2,21,0)"
^XMB(3.9,17,2,296,0)="^^1^1^2950831^^^"
^XMB(3.9,17,2,297,0)="""^DD"",45,45.02,2,21,1,0)"
^XMB(3.9,17,2,298,0)="This field contains the losing bedsection for this movement."
^XMB(3.9,17,2,299,0)="""^DD"",45,45.02,2,""DT"")"
^XMB(3.9,17,2,300,0)="3060814"
^XMB(3.9,17,2,301,0)="""BLD"",6891,6)"
^XMB(3.9,17,2,302,0)="^633"
^XMB(3.9,17,2,303,0)="$END KID DG*5.3*727"
^XMB(3.9,17,6,0)="^3.911A^2^2"
^XMB(3.9,17,6,1,0)="POSTMASTER"
^XMB(3.9,17,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,17,6,"B","POSTMASTER",1)=""
^XMB(3.9,17,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,18,0)="DG-5P3_SEQ-634_PAT-696.KID^.5^3061008.015731^^^^K"
^XMB(3.9,18,.6)="3061008"
^XMB(3.9,18,1,0)="^3.91A^2^2"
^XMB(3.9,18,1,1,0)=".5^0^3061008.015731^^^^^^^3061008.015731"
^XMB(3.9,18,1,2,0)="1^0^3061008.042436^^^^^^^3061008.022958"
^XMB(3.9,18,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,18,1,"C",.5,1)=""
^XMB(3.9,18,1,"C",1,2)=""
^XMB(3.9,18,2,0)="^^1333^1333^3061008"
^XMB(3.9,18,2,1,0)="$TXT EMERGENCY Released DG*5.3*696 SEQ #634"
^XMB(3.9,18,2,2,0)="Extracted from mail message"
^XMB(3.9,18,2,3,0)="$END TXT"
^XMB(3.9,18,2,4,0)="$KID DG*5.3*696"
^XMB(3.9,18,2,5,0)="**INSTALL NAME**"
^XMB(3.9,18,2,6,0)="DG*5.3*696"
^XMB(3.9,18,2,7,0)="""BLD"",6571,0)"
^XMB(3.9,18,2,8,0)="DG*5.3*696^REGISTRATION^0^3060725^y"
^XMB(3.9,18,2,9,0)="""BLD"",6571,1,0)"
^XMB(3.9,18,2,10,0)="^^4^4^3060725^"
^XMB(3.9,18,2,11,0)="""BLD"",6571,1,1,0)"
^XMB(3.9,18,2,12,0)="This patch fixes a problem with the combat vet field used in screen 801"
^XMB(3.9,18,2,13,0)="""BLD"",6571,1,2,0)"
^XMB(3.9,18,2,14,0)="in the PTF Load/Edit option, fixes the transmission date on retransmitted"
^XMB(3.9,18,2,15,0)="""BLD"",6571,1,3,0)"
^XMB(3.9,18,2,16,0)="transactions, permits closing a record when the patient has a single"
^XMB(3.9,18,2,17,0)="""BLD"",6571,1,4,0)"
^XMB(3.9,18,2,18,0)="legal name, and refines the handling of the PTF census date file."
^XMB(3.9,18,2,19,0)="""BLD"",6571,4,0)"
^XMB(3.9,18,2,20,0)="^9.64PA^^"
^XMB(3.9,18,2,21,0)="""BLD"",6571,6)"
^XMB(3.9,18,2,22,0)="9^"
^XMB(3.9,18,2,23,0)="""BLD"",6571,""INI"")"
^XMB(3.9,18,2,24,0)="DG696PRE"
^XMB(3.9,18,2,25,0)="""BLD"",6571,""INIT"")"
^XMB(3.9,18,2,26,0)="DG696PST"
^XMB(3.9,18,2,27,0)="""BLD"",6571,""KRN"",0)"
^XMB(3.9,18,2,28,0)="^9.67PA^8989.52^19"
^XMB(3.9,18,2,29,0)="""BLD"",6571,""KRN"",.4,0)"
^XMB(3.9,18,2,30,0)=".4"
^XMB(3.9,18,2,31,0)="""BLD"",6571,""KRN"",.401,0)"
^XMB(3.9,18,2,32,0)=".401"
^XMB(3.9,18,2,33,0)="""BLD"",6571,""KRN"",.402,0)"
^XMB(3.9,18,2,34,0)=".402"
^XMB(3.9,18,2,35,0)="""BLD"",6571,""KRN"",.402,""NM"",0)"
^XMB(3.9,18,2,36,0)="^9.68A^1^1"
^XMB(3.9,18,2,37,0)="""BLD"",6571,""KRN"",.402,""NM"",1,0)"
^XMB(3.9,18,2,38,0)="DG801    FILE #46.1^46.1^0"
^XMB(3.9,18,2,39,0)="""BLD"",6571,""KRN"",.402,""NM"",""B"",""DG801    FILE #46.1"",1)"
^XMB(3.9,18,2,40,0)=""
^XMB(3.9,18,2,41,0)="""BLD"",6571,""KRN"",.403,0)"
^XMB(3.9,18,2,42,0)=".403"
^XMB(3.9,18,2,43,0)="""BLD"",6571,""KRN"",.5,0)"
^XMB(3.9,18,2,44,0)=".5"
^XMB(3.9,18,2,45,0)="""BLD"",6571,""KRN"",.84,0)"
^XMB(3.9,18,2,46,0)=".84"
^XMB(3.9,18,2,47,0)="""BLD"",6571,""KRN"",3.6,0)"
^XMB(3.9,18,2,48,0)="3.6"
^XMB(3.9,18,2,49,0)="""BLD"",6571,""KRN"",3.8,0)"
^XMB(3.9,18,2,50,0)="3.8"
^XMB(3.9,18,2,51,0)="""BLD"",6571,""KRN"",9.2,0)"
^XMB(3.9,18,2,52,0)="9.2"
^XMB(3.9,18,2,53,0)="""BLD"",6571,""KRN"",9.8,0)"
^XMB(3.9,18,2,54,0)="9.8"
^XMB(3.9,18,2,55,0)="""BLD"",6571,""KRN"",9.8,""NM"",0)"
^XMB(3.9,18,2,56,0)="^9.68A^5^5"
^XMB(3.9,18,2,57,0)="""BLD"",6571,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,18,2,58,0)="DGPTFM^^0^B44706868"
^XMB(3.9,18,2,59,0)="""BLD"",6571,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,18,2,60,0)="DGPTFM3^^0^B16822857"
^XMB(3.9,18,2,61,0)="""BLD"",6571,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,18,2,62,0)="DGPTR1^^0^B25846829"
^XMB(3.9,18,2,63,0)="""BLD"",6571,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,18,2,64,0)="DGPT101^^0^B13245456"
^XMB(3.9,18,2,65,0)="""BLD"",6571,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,18,2,66,0)="DGPTCO1^^0^B25546385"
^XMB(3.9,18,2,67,0)="""BLD"",6571,""KRN"",9.8,""NM"",""B"",""DGPT101"",4)"
^XMB(3.9,18,2,68,0)=""
^XMB(3.9,18,2,69,0)="""BLD"",6571,""KRN"",9.8,""NM"",""B"",""DGPTCO1"",5)"
^XMB(3.9,18,2,70,0)=""
^XMB(3.9,18,2,71,0)="""BLD"",6571,""KRN"",9.8,""NM"",""B"",""DGPTFM"",1)"
^XMB(3.9,18,2,72,0)=""
^XMB(3.9,18,2,73,0)="""BLD"",6571,""KRN"",9.8,""NM"",""B"",""DGPTFM3"",2)"
^XMB(3.9,18,2,74,0)=""
^XMB(3.9,18,2,75,0)="""BLD"",6571,""KRN"",9.8,""NM"",""B"",""DGPTR1"",3)"
^XMB(3.9,18,2,76,0)=""
^XMB(3.9,18,2,77,0)="""BLD"",6571,""KRN"",19,0)"
^XMB(3.9,18,2,78,0)="19"
^XMB(3.9,18,2,79,0)="""BLD"",6571,""KRN"",19,""NM"",0)"
^XMB(3.9,18,2,80,0)="^9.68A^^"
^XMB(3.9,18,2,81,0)="""BLD"",6571,""KRN"",19.1,0)"
^XMB(3.9,18,2,82,0)="19.1"
^XMB(3.9,18,2,83,0)="""BLD"",6571,""KRN"",101,0)"
^XMB(3.9,18,2,84,0)="101"
^XMB(3.9,18,2,85,0)="""BLD"",6571,""KRN"",409.61,0)"
^XMB(3.9,18,2,86,0)="409.61"
^XMB(3.9,18,2,87,0)="""BLD"",6571,""KRN"",771,0)"
^XMB(3.9,18,2,88,0)="771"
^XMB(3.9,18,2,89,0)="""BLD"",6571,""KRN"",870,0)"
^XMB(3.9,18,2,90,0)="870"
^XMB(3.9,18,2,91,0)="""BLD"",6571,""KRN"",8989.51,0)"
^XMB(3.9,18,2,92,0)="8989.51"
^XMB(3.9,18,2,93,0)="""BLD"",6571,""KRN"",8989.52,0)"
^XMB(3.9,18,2,94,0)="8989.52"
^XMB(3.9,18,2,95,0)="""BLD"",6571,""KRN"",8994,0)"
^XMB(3.9,18,2,96,0)="8994"
^XMB(3.9,18,2,97,0)="""BLD"",6571,""KRN"",""B"",.4,.4)"
^XMB(3.9,18,2,98,0)=""
^XMB(3.9,18,2,99,0)="""BLD"",6571,""KRN"",""B"",.401,.401)"
^XMB(3.9,18,2,100,0)=""
^XMB(3.9,18,2,101,0)="""BLD"",6571,""KRN"",""B"",.402,.402)"
^XMB(3.9,18,2,102,0)=""
^XMB(3.9,18,2,103,0)="""BLD"",6571,""KRN"",""B"",.403,.403)"
^XMB(3.9,18,2,104,0)=""
^XMB(3.9,18,2,105,0)="""BLD"",6571,""KRN"",""B"",.5,.5)"
^XMB(3.9,18,2,106,0)=""
^XMB(3.9,18,2,107,0)="""BLD"",6571,""KRN"",""B"",.84,.84)"
^XMB(3.9,18,2,108,0)=""
^XMB(3.9,18,2,109,0)="""BLD"",6571,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,18,2,110,0)=""
^XMB(3.9,18,2,111,0)="""BLD"",6571,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,18,2,112,0)=""
^XMB(3.9,18,2,113,0)="""BLD"",6571,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,18,2,114,0)=""
^XMB(3.9,18,2,115,0)="""BLD"",6571,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,18,2,116,0)=""
^XMB(3.9,18,2,117,0)="""BLD"",6571,""KRN"",""B"",19,19)"
^XMB(3.9,18,2,118,0)=""
^XMB(3.9,18,2,119,0)="""BLD"",6571,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,18,2,120,0)=""
^XMB(3.9,18,2,121,0)="""BLD"",6571,""KRN"",""B"",101,101)"
^XMB(3.9,18,2,122,0)=""
^XMB(3.9,18,2,123,0)="""BLD"",6571,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,18,2,124,0)=""
^XMB(3.9,18,2,125,0)="""BLD"",6571,""KRN"",""B"",771,771)"
^XMB(3.9,18,2,126,0)=""
^XMB(3.9,18,2,127,0)="""BLD"",6571,""KRN"",""B"",870,870)"
^XMB(3.9,18,2,128,0)=""
^XMB(3.9,18,2,129,0)="""BLD"",6571,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,18,2,130,0)=""
^XMB(3.9,18,2,131,0)="""BLD"",6571,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,18,2,132,0)=""
^XMB(3.9,18,2,133,0)="""BLD"",6571,""KRN"",""B"",8994,8994)"
^XMB(3.9,18,2,134,0)=""
^XMB(3.9,18,2,135,0)="""BLD"",6571,""QUES"",0)"
^XMB(3.9,18,2,136,0)="^9.62^^"
^XMB(3.9,18,2,137,0)="""BLD"",6571,""REQB"",0)"
^XMB(3.9,18,2,138,0)="^9.611^4^3"
^XMB(3.9,18,2,139,0)="""BLD"",6571,""REQB"",2,0)"
^XMB(3.9,18,2,140,0)="DG*5.3*678^1"
^XMB(3.9,18,2,141,0)="""BLD"",6571,""REQB"",3,0)"
^XMB(3.9,18,2,142,0)="DG*5.3*683^1"
^XMB(3.9,18,2,143,0)="""BLD"",6571,""REQB"",4,0)"
^XMB(3.9,18,2,144,0)="DG*5.3*432^1"
^XMB(3.9,18,2,145,0)="""BLD"",6571,""REQB"",""B"",""DG*5.3*432"",4)"
^XMB(3.9,18,2,146,0)=""
^XMB(3.9,18,2,147,0)="""BLD"",6571,""REQB"",""B"",""DG*5.3*678"",2)"
^XMB(3.9,18,2,148,0)=""
^XMB(3.9,18,2,149,0)="""BLD"",6571,""REQB"",""B"",""DG*5.3*683"",3)"
^XMB(3.9,18,2,150,0)=""
^XMB(3.9,18,2,151,0)="""INI"")"
^XMB(3.9,18,2,152,0)="DG696PRE"
^XMB(3.9,18,2,153,0)="""INIT"")"
^XMB(3.9,18,2,154,0)="DG696PST"
^XMB(3.9,18,2,155,0)="""KRN"",.402,2697,-1)"
^XMB(3.9,18,2,156,0)="0^1"
^XMB(3.9,18,2,157,0)="""KRN"",.402,2697,0)"
^XMB(3.9,18,2,158,0)="DG801^3060119.1623^@^46.1^^@^3060119"
^XMB(3.9,18,2,159,0)="""KRN"",.402,2697,""DIAB"",1,0,46.1,2)"
^XMB(3.9,18,2,160,0)="TREATED FOR AO CONDITION;""WAS TREATMENT RELATED TO AGENT ORANGE EXPOSURE?"""
^XMB(3.9,18,2,161,0)="""KRN"",.402,2697,""DIAB"",1,0,46.1,5)"
^XMB(3.9,18,2,162,0)="TREATMENT FOR HEAD/NECK CA;""WAS TREATMENT RELATED TO HEAD AND/OR NECK CANCER?"""
^XMB(3.9,18,2,163,0)="""KRN"",.402,2697,""DIAB"",2,0,46.1,1)"
^XMB(3.9,18,2,164,0)="COMBAT VET;""WAS TREATMENT RELATED TO COMBAT?"""
^XMB(3.9,18,2,165,0)="""KRN"",.402,2697,""DIAB"",2,0,46.1,4)"
^XMB(3.9,18,2,166,0)="TREATMENT FOR MST;""WAS TREATMENT RELATED TO MILITARY SEXUAL TRAUMA?"""
^XMB(3.9,18,2,167,0)="""KRN"",.402,2697,""DIAB"",3,0,46.1,0)"
^XMB(3.9,18,2,168,0)="TREATED FOR SC CONDITION;""WAS TREATMENT FOR A SERVICE CONNECTED CONDITION?"""
^XMB(3.9,18,2,169,0)="""KRN"",.402,2697,""DIAB"",4,0,46.1,3)"
^XMB(3.9,18,2,170,0)="EXPOSURE TO ENVIR CONTAMINANTS;""WAS TREATMENT RELATED TO ENVIRONMENTAL CONTAMINANT EXPOSURE?"""
^XMB(3.9,18,2,171,0)="""KRN"",.402,2697,""DIAB"",7,0,46.1,2)"
^XMB(3.9,18,2,172,0)="TREATMENT FOR IR CONDITION;""WAS TREATMENT RELATED TO IONIZING RADIATION EXPOSURE?"""
^XMB(3.9,18,2,173,0)="""KRN"",.402,2697,""DR"",1,46.1)"
^XMB(3.9,18,2,174,0)="I '$D(SDCLY(3)) S Y=$S($P($G(^DGICD9(46.1,D0,0)),U,2)="""":""@11"",1:""@10"");D ELIG^DGPTUTL1;.02WAS TREATMENT FOR A SERVICE CONNECTED CONDITION?~;S Y=""@11"";@10;.02////0;@11;"
^XMB(3.9,18,2,175,0)="""KRN"",.402,2697,""DR"",1,46.1,1)"
^XMB(3.9,18,2,176,0)="I '$D(SDCLY(7)) S Y=$S($P($G(^DGICD9(46.1,D0,0)),U,8)="""":""@21"",1:""@20"");.08WAS TREATMENT RELATED TO COMBAT?~;S Y=""@21"";@20;.08////0;@21;I '$D(SDCLY(1)) S Y=$S($P($G(^DGICD9(46.1,D0,0)),U,3)="""":""@31"",1:""@30"");"
^XMB(3.9,18,2,177,0)="""KRN"",.402,2697,""DR"",1,46.1,2)"
^XMB(3.9,18,2,178,0)=".03WAS TREATMENT RELATED TO AGENT ORANGE EXPOSURE?~;S Y=""@31"";@30;.03////0;@31;I '$D(SDCLY(2)) S Y=$S($P($G(^DGICD9(46.1,D0,0)),U,4)="""":""@41"",1:""@40"");.04WAS TREATMENT RELATED TO IONIZING RADIATION EXPOSURE?~;S Y=""@41"";@40;"
^XMB(3.9,18,2,179,0)="""KRN"",.402,2697,""DR"",1,46.1,3)"
^XMB(3.9,18,2,180,0)=".04////0;@41;I '$D(SDCLY(4)) S Y=$S($P($G(^DGICD9(46.1,D0,0)),U,5)="""":""@51"",1:""@50"");.05WAS TREATMENT RELATED TO ENVIRONMENTAL CONTAMINANT EXPOSURE?~;S Y=""@51"";@50;.05////0;@51;"
^XMB(3.9,18,2,181,0)="""KRN"",.402,2697,""DR"",1,46.1,4)"
^XMB(3.9,18,2,182,0)="I '$D(SDCLY(5)) S Y=$S($P($G(^DGICD9(46.1,D0,0)),U,6)="""":""@61"",1:""@60"");.06WAS TREATMENT RELATED TO MILITARY SEXUAL TRAUMA?~;S Y=""@61"";@60;.06////0;@61;I '$D(SDCLY(6)) S Y=$S($P($G(^DGICD9(46.1,D0,0)),U,7)="""":""@71"",1:""@70"");"
^XMB(3.9,18,2,183,0)="""KRN"",.402,2697,""DR"",1,46.1,5)"
^XMB(3.9,18,2,184,0)=".07WAS TREATMENT RELATED TO HEAD AND/OR NECK CANCER?~;S Y=""@71"";@70;.07////0;@71;@99;1////^S X=PTF;"
^XMB(3.9,18,2,185,0)="""KRN"",.402,2697,""ROU"")"
^XMB(3.9,18,2,186,0)="^DGPTX8"
^XMB(3.9,18,2,187,0)="""KRN"",.402,2697,""ROUOLD"")"
^XMB(3.9,18,2,188,0)="DGPTX8"
^XMB(3.9,18,2,189,0)="""MBREQ"")"
^XMB(3.9,18,2,190,0)="0"
^XMB(3.9,18,2,191,0)="""ORD"",7,.402)"
^XMB(3.9,18,2,192,0)=".402;7;;;EDEOUT^DIFROMSO(.402,DA,"""",XPDA);FPRE^DIFROMSI(.402,"""",XPDA);EPRE^DIFROMSI(.402,DA,$E(""N"",$G(XPDNEW)),XPDA,"""",OLDA);;EPOST^DIFROMSI(.402,DA,"""",XPDA);DEL^DIFROMSK(.402,"""",%)"
^XMB(3.9,18,2,193,0)="""ORD"",7,.402,0)"
^XMB(3.9,18,2,194,0)="INPUT TEMPLATE"
^XMB(3.9,18,2,195,0)="""PKG"",5,-1)"
^XMB(3.9,18,2,196,0)="1^1"
^XMB(3.9,18,2,197,0)="""PKG"",5,0)"
^XMB(3.9,18,2,198,0)="REGISTRATION^DG^PATIENT REGISTRATION, ADMISSION, DISCHARGE, EMBOSSER "
^XMB(3.9,18,2,199,0)="""PKG"",5,20,0)"
^XMB(3.9,18,2,200,0)="^9.402P^^"
^XMB(3.9,18,2,201,0)="""PKG"",5,22,0)"
^XMB(3.9,18,2,202,0)="^9.49I^1^1"
^XMB(3.9,18,2,203,0)="""PKG"",5,22,1,0)"
^XMB(3.9,18,2,204,0)="5.3^2930813"
^XMB(3.9,18,2,205,0)="""PKG"",5,22,1,""PAH"",1,0)"
^XMB(3.9,18,2,206,0)="696^3060725^100850"
^XMB(3.9,18,2,207,0)="""PKG"",5,22,1,""PAH"",1,1,0)"
^XMB(3.9,18,2,208,0)="^^4^4^3060725"
^XMB(3.9,18,2,209,0)="""PKG"",5,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,18,2,210,0)="This patch fixes a problem with the combat vet field used in screen 801"
^XMB(3.9,18,2,211,0)="""PKG"",5,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,18,2,212,0)="in the PTF Load/Edit option, fixes the transmission date on retransmitted"
^XMB(3.9,18,2,213,0)="""PKG"",5,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,18,2,214,0)="transactions, permits closing a record when the patient has a single"
^XMB(3.9,18,2,215,0)="""PKG"",5,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,18,2,216,0)="legal name, and refines the handling of the PTF census date file."
^XMB(3.9,18,2,217,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,18,2,218,0)="Y"
^XMB(3.9,18,2,219,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,18,2,220,0)="^D REP^XPDH"
^XMB(3.9,18,2,221,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,18,2,222,0)="Shall I write over your |FLAG| File"
^XMB(3.9,18,2,223,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,18,2,224,0)="YES"
^XMB(3.9,18,2,225,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,18,2,226,0)="D XPF1^XPDIQ"
^XMB(3.9,18,2,227,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,18,2,228,0)="Y"
^XMB(3.9,18,2,229,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,18,2,230,0)="^D DTA^XPDH"
^XMB(3.9,18,2,231,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,18,2,232,0)="Want my data |FLAG| yours"
^XMB(3.9,18,2,233,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,18,2,234,0)="YES"
^XMB(3.9,18,2,235,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,18,2,236,0)="D XPF2^XPDIQ"
^XMB(3.9,18,2,237,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,18,2,238,0)="YO"
^XMB(3.9,18,2,239,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,18,2,240,0)="^D INHIBIT^XPDH"
^XMB(3.9,18,2,241,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,18,2,242,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,18,2,243,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,18,2,244,0)="YES"
^XMB(3.9,18,2,245,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,18,2,246,0)="D XPI1^XPDIQ"
^XMB(3.9,18,2,247,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,18,2,248,0)="PO^VA(200,:EM"
^XMB(3.9,18,2,249,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,18,2,250,0)="^D MG^XPDH"
^XMB(3.9,18,2,251,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,18,2,252,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,18,2,253,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,18,2,254,0)=""
^XMB(3.9,18,2,255,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,18,2,256,0)="D XPM1^XPDIQ"
^XMB(3.9,18,2,257,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,18,2,258,0)="Y"
^XMB(3.9,18,2,259,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,18,2,260,0)="^D MENU^XPDH"
^XMB(3.9,18,2,261,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,18,2,262,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,18,2,263,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,18,2,264,0)="YES"
^XMB(3.9,18,2,265,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,18,2,266,0)="D XPO1^XPDIQ"
^XMB(3.9,18,2,267,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,18,2,268,0)="Y"
^XMB(3.9,18,2,269,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,18,2,270,0)="^D OPT^XPDH"
^XMB(3.9,18,2,271,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,18,2,272,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,18,2,273,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,18,2,274,0)="YES"
^XMB(3.9,18,2,275,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,18,2,276,0)="D XPZ1^XPDIQ"
^XMB(3.9,18,2,277,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,18,2,278,0)="Y"
^XMB(3.9,18,2,279,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,18,2,280,0)="^D RTN^XPDH"
^XMB(3.9,18,2,281,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,18,2,282,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,18,2,283,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,18,2,284,0)="NO"
^XMB(3.9,18,2,285,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,18,2,286,0)="D XPZ2^XPDIQ"
^XMB(3.9,18,2,287,0)="""RTN"")"
^XMB(3.9,18,2,288,0)="7"
^XMB(3.9,18,2,289,0)="""RTN"",""DG696PRE"")"
^XMB(3.9,18,2,290,0)="0^^B1987231^n/a"
^XMB(3.9,18,2,291,0)="""RTN"",""DG696PRE"",1,0)"
^XMB(3.9,18,2,292,0)="DG696PRE ;BAY/JAT;"
^XMB(3.9,18,2,293,0)="""RTN"",""DG696PRE"",2,0)"
^XMB(3.9,18,2,294,0)=" ;;5.3;Registration;**696*;Aug 13,1993"
^XMB(3.9,18,2,295,0)="""RTN"",""DG696PRE"",3,0)"
^XMB(3.9,18,2,296,0)=" ;"
^XMB(3.9,18,2,297,0)="""RTN"",""DG696PRE"",4,0)"
^XMB(3.9,18,2,298,0)=" ; This is a pre-init routine for DG*5.3*696"
^XMB(3.9,18,2,299,0)="""RTN"",""DG696PRE"",5,0)"
^XMB(3.9,18,2,300,0)=" ;"
^XMB(3.9,18,2,301,0)="""RTN"",""DG696PRE"",6,0)"
^XMB(3.9,18,2,302,0)="EN ;"
^XMB(3.9,18,2,303,0)="""RTN"",""DG696PRE"",7,0)"
^XMB(3.9,18,2,304,0)=" ; replace Y/N set with 1/0"
^XMB(3.9,18,2,305,0)="""RTN"",""DG696PRE"",8,0)"
^XMB(3.9,18,2,306,0)=" D BMES^XPDUTL(""Updating field #.08 of file #46.1"")"
^XMB(3.9,18,2,307,0)="""RTN"",""DG696PRE"",9,0)"
^XMB(3.9,18,2,308,0)=" S ^DD(46.1,.08,0)=""COMBAT VET^S^1:YES;0:NO;^0;8^Q"""
^XMB(3.9,18,2,309,0)="""RTN"",""DG696PRE"",10,0)"
^XMB(3.9,18,2,310,0)=" S ^DD(46.1,.08,""DT"")=3060519"
^XMB(3.9,18,2,311,0)="""RTN"",""DG696PRE"",11,0)"
^XMB(3.9,18,2,312,0)=" ; replace $N with $O"
^XMB(3.9,18,2,313,0)="""RTN"",""DG696PRE"",12,0)"
^XMB(3.9,18,2,314,0)=" D BMES^XPDUTL(""Updating field #7.4 of file #45"")"
^XMB(3.9,18,2,315,0)="""RTN"",""DG696PRE"",13,0)"
^XMB(3.9,18,2,316,0)=" S ^DD(45,7.4,0)=""TRANSMISSION DATE^DCJ8,0X^^ ; ^S X=$S($D(^DGP(45.83,""""C"""",D0)):$O(^DGP(45.83,""""C"""",D0,0)),1:""""""""),X=$S($D(^DGP(45.83,+X,""""P"""",D0,0)):$P(^(0),U,2),1:"""""""")"""
^XMB(3.9,18,2,317,0)="""RTN"",""DG696PRE"",14,0)"
^XMB(3.9,18,2,318,0)="    S ^DD(45,7.4,""DT"")=3060519"
^XMB(3.9,18,2,319,0)="""RTN"",""DG696PRE"",15,0)"
^XMB(3.9,18,2,320,0)=" S ^DD(45,7.4,9.1)=""S X=$S($D(^DGP(45.83,""""C"""",D0)):$O(^DGP(45.83,""""C"""",D0,0)),1:""""""""),X=$S($D(^DGP(45.83,+X,""""P"""",D0,0)):$P(^(0),U,2),1:"""""""")"""
^XMB(3.9,18,2,321,0)="""RTN"",""DG696PRE"",16,0)"
^XMB(3.9,18,2,322,0)=" Q"
^XMB(3.9,18,2,323,0)="""RTN"",""DG696PST"")"
^XMB(3.9,18,2,324,0)="0^^B701411^n/a"
^XMB(3.9,18,2,325,0)="""RTN"",""DG696PST"",1,0)"
^XMB(3.9,18,2,326,0)="DG696PST ;BAY/JAT;cleanup of combat vet field on file 46.1"
^XMB(3.9,18,2,327,0)="""RTN"",""DG696PST"",2,0)"
^XMB(3.9,18,2,328,0)=" ;;5.3;Registration;**696*;Aug 13,1993"
^XMB(3.9,18,2,329,0)="""RTN"",""DG696PST"",3,0)"
^XMB(3.9,18,2,330,0)=" ;"
^XMB(3.9,18,2,331,0)="""RTN"",""DG696PST"",4,0)"
^XMB(3.9,18,2,332,0)=" ; This is a post-init routine for DG*5.3*696"
^XMB(3.9,18,2,333,0)="""RTN"",""DG696PST"",5,0)"
^XMB(3.9,18,2,334,0)=" ; The purpose is to rewrite each entry that has a value in "
^XMB(3.9,18,2,335,0)="""RTN"",""DG696PST"",6,0)"
^XMB(3.9,18,2,336,0)=" ; field .08 of file #46.1 by replacing ""Y"" with ""1"" and ""N"" with 0."
^XMB(3.9,18,2,337,0)="""RTN"",""DG696PST"",7,0)"
^XMB(3.9,18,2,338,0)=" ;"
^XMB(3.9,18,2,339,0)="""RTN"",""DG696PST"",8,0)"
^XMB(3.9,18,2,340,0)="EN ;"
^XMB(3.9,18,2,341,0)="""RTN"",""DG696PST"",9,0)"
^XMB(3.9,18,2,342,0)=" D BMES^XPDUTL(""Updating file #46.1"")"
^XMB(3.9,18,2,343,0)="""RTN"",""DG696PST"",10,0)"
^XMB(3.9,18,2,344,0)=" N DGIEN,DGSET,FDATA,DIERR"
^XMB(3.9,18,2,345,0)="""RTN"",""DG696PST"",11,0)"
^XMB(3.9,18,2,346,0)=" S DGIEN=0"
^XMB(3.9,18,2,347,0)="""RTN"",""DG696PST"",12,0)"
^XMB(3.9,18,2,348,0)=" F  S DGIEN=$O(^DGICD9(46.1,DGIEN)) Q:'DGIEN  D"
^XMB(3.9,18,2,349,0)="""RTN"",""DG696PST"",13,0)"
^XMB(3.9,18,2,350,0)=" .Q:$P($G(^DGICD9(46.1,DGIEN,0)),U,8)="""""
^XMB(3.9,18,2,351,0)="""RTN"",""DG696PST"",14,0)"
^XMB(3.9,18,2,352,0)=" .S DGSET="""""
^XMB(3.9,18,2,353,0)="""RTN"",""DG696PST"",15,0)"
^XMB(3.9,18,2,354,0)=" .I $P(^DGICD9(46.1,DGIEN,0),U,8)=""Y"" S DGSET=1"
^XMB(3.9,18,2,355,0)="""RTN"",""DG696PST"",16,0)"
^XMB(3.9,18,2,356,0)=" .I $P(^DGICD9(46.1,DGIEN,0),U,8)=""N"" S DGSET=0"
^XMB(3.9,18,2,357,0)="""RTN"",""DG696PST"",17,0)"
^XMB(3.9,18,2,358,0)=" .S FDATA(46.1,DGIEN_"","",.08)=DGSET"
^XMB(3.9,18,2,359,0)="""RTN"",""DG696PST"",18,0)"
^XMB(3.9,18,2,360,0)=" .D FILE^DIE("""",""FDATA"",""DIERR"")"
^XMB(3.9,18,2,361,0)="""RTN"",""DG696PST"",19,0)"
^XMB(3.9,18,2,362,0)=" K FDATA,DIERR"
^XMB(3.9,18,2,363,0)="""RTN"",""DG696PST"",20,0)"
^XMB(3.9,18,2,364,0)=" Q"
^XMB(3.9,18,2,365,0)="""RTN"",""DGPT101"")"
^XMB(3.9,18,2,366,0)="0^4^B13245456^B13150561"
^XMB(3.9,18,2,367,0)="""RTN"",""DGPT101"",1,0)"
^XMB(3.9,18,2,368,0)="DGPT101 ;ALB/MTC - 101/701 Austin Edit Checks ; 12 NOV 92"
^XMB(3.9,18,2,369,0)="""RTN"",""DGPT101"",2,0)"
^XMB(3.9,18,2,370,0)=" ;;5.3;Registration;**8,164,180,247,415,678,696**;Aug 13, 1993"
^XMB(3.9,18,2,371,0)="""RTN"",""DGPT101"",3,0)"
^XMB(3.9,18,2,372,0)=" ;"
^XMB(3.9,18,2,373,0)="""RTN"",""DGPT101"",4,0)"
^XMB(3.9,18,2,374,0)="EN ;"
^XMB(3.9,18,2,375,0)="""RTN"",""DGPT101"",5,0)"
^XMB(3.9,18,2,376,0)=" S (DGPTFEF,DGPTERC)=0"
^XMB(3.9,18,2,377,0)="""RTN"",""DGPT101"",6,0)"
^XMB(3.9,18,2,378,0)="101 ;-- process 101+701 data"
^XMB(3.9,18,2,379,0)="""RTN"",""DGPT101"",7,0)"
^XMB(3.9,18,2,380,0)=" N ERROR"
^XMB(3.9,18,2,381,0)="""RTN"",""DGPT101"",8,0)"
^XMB(3.9,18,2,382,0)=" ;"
^XMB(3.9,18,2,383,0)="""RTN"",""DGPT101"",9,0)"
^XMB(3.9,18,2,384,0)="PARSE ;Set up record string, Call routine to parse record"
^XMB(3.9,18,2,385,0)="""RTN"",""DGPT101"",10,0)"
^XMB(3.9,18,2,386,0)=" S DGPTSTR=^TMP(""AEDIT"",$J,NODE,SEQ)"
^XMB(3.9,18,2,387,0)="""RTN"",""DGPT101"",11,0)"
^XMB(3.9,18,2,388,0)=" D SET^DGPT101P"
^XMB(3.9,18,2,389,0)="""RTN"",""DGPT101"",12,0)"
^XMB(3.9,18,2,390,0)=" D NOW^%DTC S DGPTTY=(17+$E(X,1))_$E(X,2,3)"
^XMB(3.9,18,2,391,0)="""RTN"",""DGPT101"",13,0)"
^XMB(3.9,18,2,392,0)="701 ;PROCESS 701"
^XMB(3.9,18,2,393,0)="""RTN"",""DGPT101"",14,0)"
^XMB(3.9,18,2,394,0)=" S DGPTAL7=$O(^TMP(""AEDIT"",$J,""N701"",SEQ)) I DGPTAL7="""" S DGPTFEF=1 Q"
^XMB(3.9,18,2,395,0)="""RTN"",""DGPT101"",15,0)"
^XMB(3.9,18,2,396,0)=" D SET^DGPT701 I DGPTFEF Q"
^XMB(3.9,18,2,397,0)="""RTN"",""DGPT101"",16,0)"
^XMB(3.9,18,2,398,0)="SET ; Start error piece, flags"
^XMB(3.9,18,2,399,0)="""RTN"",""DGPT101"",17,0)"
^XMB(3.9,18,2,400,0)=" S DGPTEDFL=0,DGPTSTR=^TMP(""AEDIT"",$J,NODE,SEQ)"
^XMB(3.9,18,2,401,0)="""RTN"",""DGPT101"",18,0)"
^XMB(3.9,18,2,402,0)="SSN ; Start edits "
^XMB(3.9,18,2,403,0)="""RTN"",""DGPT101"",19,0)"
^XMB(3.9,18,2,404,0)=" I DGPTSSN'?9N!((DGPTPS="" "")&(""9""[$E(DGPTSSN))) S DGPTERC=102 D ERR G:DGPTEDFL EXIT"
^XMB(3.9,18,2,405,0)="""RTN"",""DGPT101"",20,0)"
^XMB(3.9,18,2,406,0)=" I "" P""'[DGPTPS S DGPTERC=101 D ERR G:DGPTEDFL EXIT"
^XMB(3.9,18,2,407,0)="""RTN"",""DGPT101"",21,0)"
^XMB(3.9,18,2,408,0)=" S DGPTPS=$S(DGPTPS=""P"":DGPTPS,1:""A"")"
^XMB(3.9,18,2,409,0)="""RTN"",""DGPT101"",22,0)"
^XMB(3.9,18,2,410,0)="PSEU ;"
^XMB(3.9,18,2,411,0)="""RTN"",""DGPT101"",23,0)"
^XMB(3.9,18,2,412,0)=" I DGPTPS=""P"" S DGPTERC=0 D PSE^DGPTAE01 I DGPTERC D ERR G:DGPTEDFL EXIT"
^XMB(3.9,18,2,413,0)="""RTN"",""DGPT101"",24,0)"
^XMB(3.9,18,2,414,0)="DTE ;"
^XMB(3.9,18,2,415,0)="""RTN"",""DGPT101"",25,0)"
^XMB(3.9,18,2,416,0)=" S X=DGPTDTS,%DT=""XT"" D ^%DT I Y<0 S DGPTERC=103 D ERR G:DGPTEDFL EXIT"
^XMB(3.9,18,2,417,0)="""RTN"",""DGPT101"",26,0)"
^XMB(3.9,18,2,418,0)=" I Y>0 D DD^%DT S DGPTADT=$E(Y,5,6)_""-""_$E(Y,1,3)_""-""_$E(Y,9,12)_"" ""_$S($P(Y,""@"",2)]"""":$E($P(Y,""@"",2),1,5),1:""00:00"")"
^XMB(3.9,18,2,419,0)="""RTN"",""DGPT101"",27,0)"
^XMB(3.9,18,2,420,0)=" S X1=DGPTNOW,X2=$$FMDT($E(DGPTSTR,15,20)) D ^%DTC I X<0 S DGPTERC=140 D ERR G:DGPTEDFL EXIT"
^XMB(3.9,18,2,421,0)="""RTN"",""DGPT101"",28,0)"
^XMB(3.9,18,2,422,0)=" S DGPTDTS=$$FMDT($E(DGPTSTR,15,20))_"".""_$E(DGPTSTR,21,24)"
^XMB(3.9,18,2,423,0)="""RTN"",""DGPT101"",29,0)"
^XMB(3.9,18,2,424,0)="LN ;"
^XMB(3.9,18,2,425,0)="""RTN"",""DGPT101"",30,0)"
^XMB(3.9,18,2,426,0)=" I DGPTLN'?1.U."" "" S DGPTERC=105 D ERR G:DGPTEDFL EXIT"
^XMB(3.9,18,2,427,0)="""RTN"",""DGPT101"",31,0)"
^XMB(3.9,18,2,428,0)=" I DGPTFI'?.U&(DGPTFI'="" "")!((DGPTMI'?1U)&(DGPTMI'="" "")) S DGPTERC=106 D ERR G:DGPTEDFL EXIT"
^XMB(3.9,18,2,429,0)="""RTN"",""DGPT101"",32,0)"
^XMB(3.9,18,2,430,0)="SRA ;-- may need to add more edits later"
^XMB(3.9,18,2,431,0)="""RTN"",""DGPT101"",33,0)"
^XMB(3.9,18,2,432,0)=" D ^DGPT10S1 I DGPTERC D ERR G:DGPTEDFL EXIT"
^XMB(3.9,18,2,433,0)="""RTN"",""DGPT101"",34,0)"
^XMB(3.9,18,2,434,0)="SRP ;"
^XMB(3.9,18,2,435,0)="""RTN"",""DGPT101"",35,0)"
^XMB(3.9,18,2,436,0)=" N I"
^XMB(3.9,18,2,437,0)="""RTN"",""DGPT101"",36,0)"
^XMB(3.9,18,2,438,0)=" S DGPTERC=0"
^XMB(3.9,18,2,439,0)="""RTN"",""DGPT101"",37,0)"
^XMB(3.9,18,2,440,0)=" I "" 1234""'[DGPTSRP S DGPTERC=109 D ERR G:DGPTEDFL EXIT G POW"
^XMB(3.9,18,2,441,0)="""RTN"",""DGPT101"",38,0)"
^XMB(3.9,18,2,442,0)=" I ""1234""[DGPTSRP S DGPTERC=109 F I=20:1:26 I DGPTSTTY[U_I_U S DGPTERC=0 Q"
^XMB(3.9,18,2,443,0)="""RTN"",""DGPT101"",39,0)"
^XMB(3.9,18,2,444,0)=" I DGPTERC D ERR G:DGPTEDFL EXIT"
^XMB(3.9,18,2,445,0)="""RTN"",""DGPT101"",40,0)"
^XMB(3.9,18,2,446,0)="POW ;"
^XMB(3.9,18,2,447,0)="""RTN"",""DGPT101"",41,0)"
^XMB(3.9,18,2,448,0)=" I $L(DGPTPOW)'=1!(""123456789AB ""'[DGPTPOW) S DGPTERC=110 D ERR G:DGPTEDFL EXIT"
^XMB(3.9,18,2,449,0)="""RTN"",""DGPT101"",42,0)"
^XMB(3.9,18,2,450,0)="MAR ;"
^XMB(3.9,18,2,451,0)="""RTN"",""DGPT101"",43,0)"
^XMB(3.9,18,2,452,0)=" I ""MWDUSN""'[DGPTMRS S DGPTERC=111 D ERR G:DGPTEDFL EXIT"
^XMB(3.9,18,2,453,0)="""RTN"",""DGPT101"",44,0)"
^XMB(3.9,18,2,454,0)="GEN ;"
^XMB(3.9,18,2,455,0)="""RTN"",""DGPT101"",45,0)"
^XMB(3.9,18,2,456,0)=" I ""FM""'[DGPTGEN S DGPTERC=112 D ERR G:DGPTEDFL EXIT"
^XMB(3.9,18,2,457,0)="""RTN"",""DGPT101"",46,0)"
^XMB(3.9,18,2,458,0)=" S DGPTGEN1=$S(DGPTGEN=""F"":1,1:0)"
^XMB(3.9,18,2,459,0)="""RTN"",""DGPT101"",47,0)"
^XMB(3.9,18,2,460,0)="DOB ;"
^XMB(3.9,18,2,461,0)="""RTN"",""DGPT101"",48,0)"
^XMB(3.9,18,2,462,0)=" S DGPTERC=0 D DB^DGPTAE01 I DGPTERC D ERR G:DGPTEDFL EXIT"
^XMB(3.9,18,2,463,0)="""RTN"",""DGPT101"",49,0)"
^XMB(3.9,18,2,464,0)="POS ;"
^XMB(3.9,18,2,465,0)="""RTN"",""DGPT101"",50,0)"
^XMB(3.9,18,2,466,0)=" S DGPTERC=0 D ^DGPT10CB I DGPTERC D ERR G:DGPTEDFL EXIT"
^XMB(3.9,18,2,467,0)="""RTN"",""DGPT101"",51,0)"
^XMB(3.9,18,2,468,0)="EXP ;"
^XMB(3.9,18,2,469,0)="""RTN"",""DGPT101"",52,0)"
^XMB(3.9,18,2,470,0)=" S DGPTERC=0 D AGO^DGPTAE01 I DGPTERC D ERR G:DGPTEDFL EXIT"
^XMB(3.9,18,2,471,0)="""RTN"",""DGPT101"",53,0)"
^XMB(3.9,18,2,472,0)=" S DGPTERC=0 D IRAD^DGPTAE01 I DGPTERC D ERR G:DGPTEDFL EXIT"
^XMB(3.9,18,2,473,0)="""RTN"",""DGPT101"",54,0)"
^XMB(3.9,18,2,474,0)="HOME ;"
^XMB(3.9,18,2,475,0)="""RTN"",""DGPT101"",55,0)"
^XMB(3.9,18,2,476,0)=" S DGPTERC=0 D STATE^DGPTAE01 I DGPTERC D ERR G:DGPTEDFL EXIT"
^XMB(3.9,18,2,477,0)="""RTN"",""DGPT101"",56,0)"
^XMB(3.9,18,2,478,0)=" S DGPTERC=0 D CNTY^DGPTAE01 I DGPTERC D ERR G:DGPTEDFL EXIT"
^XMB(3.9,18,2,479,0)="""RTN"",""DGPT101"",57,0)"
^XMB(3.9,18,2,480,0)=" S DGPTERC=0 D ZIP^DGPTAE01 I DGPTERC D ERR G:DGPTEDFL EXIT"
^XMB(3.9,18,2,481,0)="""RTN"",""DGPT101"",58,0)"
^XMB(3.9,18,2,482,0)="MT ;"
^XMB(3.9,18,2,483,0)="""RTN"",""DGPT101"",59,0)"
^XMB(3.9,18,2,484,0)=" S DGPTERC=0 D MT^DGPTAE01 I DGPTERC D ERR G:DGPTEDFL EXIT"
^XMB(3.9,18,2,485,0)="""RTN"",""DGPT101"",60,0)"
^XMB(3.9,18,2,486,0)="ERI ;"
^XMB(3.9,18,2,487,0)="""RTN"",""DGPT101"",61,0)"
^XMB(3.9,18,2,488,0)=" S DGPTERC=0 I (""^K^""'[(U_DGPTERI_U))&(DGPTERI'="" "") S DGPTERC=125 D ERR G:DGPTEDFL EXIT"
^XMB(3.9,18,2,489,0)="""RTN"",""DGPT101"",62,0)"
^XMB(3.9,18,2,490,0)="INCOM ;"
^XMB(3.9,18,2,491,0)="""RTN"",""DGPT101"",63,0)"
^XMB(3.9,18,2,492,0)=" I DGPTDDS<2911001 G GOOD"
^XMB(3.9,18,2,493,0)="""RTN"",""DGPT101"",64,0)"
^XMB(3.9,18,2,494,0)=" S DGPTERC=0 D INC^DGPTAE01 I DGPTERC D ERR G:DGPTEDFL EXIT"
^XMB(3.9,18,2,495,0)="""RTN"",""DGPT101"",65,0)"
^XMB(3.9,18,2,496,0)="GOOD ;"
^XMB(3.9,18,2,497,0)="""RTN"",""DGPT101"",66,0)"
^XMB(3.9,18,2,498,0)=" W:'$D(ERROR) ""."""
^XMB(3.9,18,2,499,0)="""RTN"",""DGPT101"",67,0)"
^XMB(3.9,18,2,500,0)=" ;"
^XMB(3.9,18,2,501,0)="""RTN"",""DGPT101"",68,0)"
^XMB(3.9,18,2,502,0)="EXIT ;"
^XMB(3.9,18,2,503,0)="""RTN"",""DGPT101"",69,0)"
^XMB(3.9,18,2,504,0)=" K DGPTREC,DGPTORBD,DGPTLN,DGPTFI,DGPTMI,DGPTMRS,DGPTSTE,DGPTCTY,DGPTZIP,DGPTINC"
^XMB(3.9,18,2,505,0)="""RTN"",""DGPT101"",70,0)"
^XMB(3.9,18,2,506,0)=" K DGPTSRA,DGPTTF,DGPTSRP,DGPTPOS1,DGPTEXA,DGPTEXI,DGPTMTC,DGPTDTD,DGPTDSP,DGPTDTY,DGPTDOP,DGPTDVA,DGPTDPD,DGPTDRF,DGPTDAS,DGPTDCP,DGPTDDXE,DGPTDDXO,DGPTDLR,DGPTDLC,DGPTDSC,DGPTDAGE,DGPTDRG,DGPTSTR"
^XMB(3.9,18,2,507,0)="""RTN"",""DGPT101"",71,0)"
^XMB(3.9,18,2,508,0)=" K DGPT70LG,DGPT70SU,DGPT70DR,DGPT70X4,DGPTDXV1,DGPTDXV2"
^XMB(3.9,18,2,509,0)="""RTN"",""DGPT101"",72,0)"
^XMB(3.9,18,2,510,0)=" Q"
^XMB(3.9,18,2,511,0)="""RTN"",""DGPT101"",73,0)"
^XMB(3.9,18,2,512,0)="ERR ;"
^XMB(3.9,18,2,513,0)="""RTN"",""DGPT101"",74,0)"
^XMB(3.9,18,2,514,0)=" D WRTERR^DGPTAE(DGPTERC,NODE,SEQ)"
^XMB(3.9,18,2,515,0)="""RTN"",""DGPT101"",75,0)"
^XMB(3.9,18,2,516,0)=" S ERROR=1"
^XMB(3.9,18,2,517,0)="""RTN"",""DGPT101"",76,0)"
^XMB(3.9,18,2,518,0)=" Q"
^XMB(3.9,18,2,519,0)="""RTN"",""DGPT101"",77,0)"
^XMB(3.9,18,2,520,0)="FMDT(X) ; change to fm date for y2k"
^XMB(3.9,18,2,521,0)="""RTN"",""DGPT101"",78,0)"
^XMB(3.9,18,2,522,0)=" N Y"
^XMB(3.9,18,2,523,0)="""RTN"",""DGPT101"",79,0)"
^XMB(3.9,18,2,524,0)=" D ^%DT"
^XMB(3.9,18,2,525,0)="""RTN"",""DGPT101"",80,0)"
^XMB(3.9,18,2,526,0)=" Q Y"
^XMB(3.9,18,2,527,0)="""RTN"",""DGPTCO1"")"
^XMB(3.9,18,2,528,0)="0^5^B25546385^B23976970"
^XMB(3.9,18,2,529,0)="""RTN"",""DGPTCO1"",1,0)"
^XMB(3.9,18,2,530,0)="DGPTCO1 ;ALB/MJK - Census Status Report ; 5/2/05 2:41pm"
^XMB(3.9,18,2,531,0)="""RTN"",""DGPTCO1"",2,0)"
^XMB(3.9,18,2,532,0)=" ;;5.3;Registration;**136,383,432,696**;Aug 13, 1993"
^XMB(3.9,18,2,533,0)="""RTN"",""DGPTCO1"",3,0)"
^XMB(3.9,18,2,534,0)=" ;"
^XMB(3.9,18,2,535,0)="""RTN"",""DGPTCO1"",4,0)"
^XMB(3.9,18,2,536,0)="EN D CHKCUR W ! D DATE"
^XMB(3.9,18,2,537,0)="""RTN"",""DGPTCO1"",5,0)"
^XMB(3.9,18,2,538,0)=" S DIC(""A"")=""Generate PTF Census Status Report for Census date: "",DIC=""^DG(45.86,"",DIC(0)=""AEMQ"" S:Y]"""" DIC(""B"")=Y"
^XMB(3.9,18,2,539,0)="""RTN"",""DGPTCO1"",6,0)"
^XMB(3.9,18,2,540,0)=" D ^DIC K DIC G ENQ:Y<0"
^XMB(3.9,18,2,541,0)="""RTN"",""DGPTCO1"",7,0)"
^XMB(3.9,18,2,542,0)=" S DGCN=+Y,DGCDT=+$P(Y,U,2)_"".9"" K DGCHOICE"
^XMB(3.9,18,2,543,0)="""RTN"",""DGPTCO1"",8,0)"
^XMB(3.9,18,2,544,0)=" D DIV^DGPTCO2 G ENQ:'$D(DGCHOICE(""DIV""))"
^XMB(3.9,18,2,545,0)="""RTN"",""DGPTCO1"",9,0)"
^XMB(3.9,18,2,546,0)=" D STATUS^DGPTCO2 G ENQ:'$D(DGCHOICE(""STATUS""))"
^XMB(3.9,18,2,547,0)="""RTN"",""DGPTCO1"",10,0)"
^XMB(3.9,18,2,548,0)=" S %ZIS=""NQ"" D ^%ZIS K %ZIS G ENQ:POP D DOQ G ENQ:POP S DGIOP=ION_"";""_IOM_"";""_IOSL"
^XMB(3.9,18,2,549,0)="""RTN"",""DGPTCO1"",11,0)"
^XMB(3.9,18,2,550,0)=" I 'DGQ D START G ENQ"
^XMB(3.9,18,2,551,0)="""RTN"",""DGPTCO1"",12,0)"
^XMB(3.9,18,2,552,0)=" S ZTRTN=""START^DGPTCO1"",ZTIO=DGIOP,ZTDESC=""Census Status Report"""
^XMB(3.9,18,2,553,0)="""RTN"",""DGPTCO1"",13,0)"
^XMB(3.9,18,2,554,0)=" F X=""DGCHOICE("",""DGCDT"",""DGCN"",""DGIOP"" S ZTSAVE(X)="""""
^XMB(3.9,18,2,555,0)="""RTN"",""DGPTCO1"",14,0)"
^XMB(3.9,18,2,556,0)=" D ^%ZTLOAD D ^%ZISC"
^XMB(3.9,18,2,557,0)="""RTN"",""DGPTCO1"",15,0)"
^XMB(3.9,18,2,558,0)="ENQ K DGQ,DHIT,DIOEND,DGC,DGCN,DGCDT,DGIOP,DGCHOICE,DIS"
^XMB(3.9,18,2,559,0)="""RTN"",""DGPTCO1"",16,0)"
^XMB(3.9,18,2,560,0)=" Q"
^XMB(3.9,18,2,561,0)="""RTN"",""DGPTCO1"",17,0)"
^XMB(3.9,18,2,562,0)=" ;"
^XMB(3.9,18,2,563,0)="""RTN"",""DGPTCO1"",18,0)"
^XMB(3.9,18,2,564,0)="START ; -- produce report"
^XMB(3.9,18,2,565,0)="""RTN"",""DGPTCO1"",19,0)"
^XMB(3.9,18,2,566,0)=" ;Lock global to prevent duplicate entries in Census Workfile"
^XMB(3.9,18,2,567,0)="""RTN"",""DGPTCO1"",20,0)"
^XMB(3.9,18,2,568,0)=" L +^DG(45.85,""DGPT CENSUS REGEN WORKFILE""):5 I '$T D   Q"
^XMB(3.9,18,2,569,0)="""RTN"",""DGPTCO1"",21,0)"
^XMB(3.9,18,2,570,0)=" .N DGPTMSG"
^XMB(3.9,18,2,571,0)="""RTN"",""DGPTCO1"",22,0)"
^XMB(3.9,18,2,572,0)=" .D BLDMSG^DGPTCR"
^XMB(3.9,18,2,573,0)="""RTN"",""DGPTCO1"",23,0)"
^XMB(3.9,18,2,574,0)=" .I $E(IOST,1,2)'=""C-"" D SNDMSG^DGPTCR,ENQ Q"
^XMB(3.9,18,2,575,0)="""RTN"",""DGPTCO1"",24,0)"
^XMB(3.9,18,2,576,0)=" .N DGPTLINE"
^XMB(3.9,18,2,577,0)="""RTN"",""DGPTCO1"",25,0)"
^XMB(3.9,18,2,578,0)=" .S DGPTLINE=0"
^XMB(3.9,18,2,579,0)="""RTN"",""DGPTCO1"",26,0)"
^XMB(3.9,18,2,580,0)=" .F  S DGPTLINE=$O(DGPTMSG(DGPTLINE)) Q:'DGPTLINE  W !,?5,DGPTMSG(DGPTLINE,0)"
^XMB(3.9,18,2,581,0)="""RTN"",""DGPTCO1"",27,0)"
^XMB(3.9,18,2,582,0)=" .Q"
^XMB(3.9,18,2,583,0)="""RTN"",""DGPTCO1"",28,0)"
^XMB(3.9,18,2,584,0)=" I '$D(^DG(45.85,""ACENSUS"",DGCN)) D REGEN^DGPTCR"
^XMB(3.9,18,2,585,0)="""RTN"",""DGPTCO1"",29,0)"
^XMB(3.9,18,2,586,0)=" S DIC=""^DG(45.85,"",(BY,FLDS)=""[DGPT WORKFILE]"",L=0,FR=DGCN_"",,@"",TO=DGCN_"",,"""
^XMB(3.9,18,2,587,0)="""RTN"",""DGPTCO1"",30,0)"
^XMB(3.9,18,2,588,0)=" I DGCHOICE(""STATUS"")'=""All"" S (FR,TO)=DGCN_"",,""_DGCHOICE(""STATUS"")"
^XMB(3.9,18,2,589,0)="""RTN"",""DGPTCO1"",31,0)"
^XMB(3.9,18,2,590,0)=" S DIS(0)=""D DIS^DGPTCO1"",DHIT=""D DHIT^DGPTCO1"",DIOEND=""D DIOEND^DGPTCO1"""
^XMB(3.9,18,2,591,0)="""RTN"",""DGPTCO1"",32,0)"
^XMB(3.9,18,2,592,0)=" S Y=$P(DGCDT,""."") X ^DD(""DD"") S DHD=""Census Status Report for ""_Y"
^XMB(3.9,18,2,593,0)="""RTN"",""DGPTCO1"",33,0)"
^XMB(3.9,18,2,594,0)=" S IOP=DGIOP K DGC"
^XMB(3.9,18,2,595,0)="""RTN"",""DGPTCO1"",34,0)"
^XMB(3.9,18,2,596,0)=" D EN1^DIP,ENQ"
^XMB(3.9,18,2,597,0)="""RTN"",""DGPTCO1"",35,0)"
^XMB(3.9,18,2,598,0)=" L -^DG(45.85,""DGPT CENSUS REGEN WORKFILE"")"
^XMB(3.9,18,2,599,0)="""RTN"",""DGPTCO1"",36,0)"
^XMB(3.9,18,2,600,0)="END Q"
^XMB(3.9,18,2,601,0)="""RTN"",""DGPTCO1"",37,0)"
^XMB(3.9,18,2,602,0)=" ;"
^XMB(3.9,18,2,603,0)="""RTN"",""DGPTCO1"",38,0)"
^XMB(3.9,18,2,604,0)="DIOEND ; -- logic called at end of rpt for totals"
^XMB(3.9,18,2,605,0)="""RTN"",""DGPTCO1"",39,0)"
^XMB(3.9,18,2,606,0)=" I $E(IOST)=""C"" S DIR(0)=""E"" D ^DIR K DIR G DIOENDQ:X=""^"""
^XMB(3.9,18,2,607,0)="""RTN"",""DGPTCO1"",40,0)"
^XMB(3.9,18,2,608,0)=" N D,S,Z S D="""",Z=""zzzz"",$P(DGLN,""-"",81)="""" D NOW^%DTC S Y=% X ^DD(""DD"")"
^XMB(3.9,18,2,609,0)="""RTN"",""DGPTCO1"",41,0)"
^XMB(3.9,18,2,610,0)=" W @IOF,?30,""Census Status Report"",?59,Y,!!?26,""Division Summary Statistics"",!"
^XMB(3.9,18,2,611,0)="""RTN"",""DGPTCO1"",42,0)"
^XMB(3.9,18,2,612,0)=" ;"
^XMB(3.9,18,2,613,0)="""RTN"",""DGPTCO1"",43,0)"
^XMB(3.9,18,2,614,0)=" F I=0:0 S D=$O(DGC(D)) Q:D=""""  D DIV S S="""" F J=0:0 S S=$O(DGC(D,S)) Q:S=""""  S C=DGC(D,S) D PRT I $O(DGC(D,S))=Z D TOT Q"
^XMB(3.9,18,2,615,0)="""RTN"",""DGPTCO1"",44,0)"
^XMB(3.9,18,2,616,0)=" W !,DGLN,!"
^XMB(3.9,18,2,617,0)="""RTN"",""DGPTCO1"",45,0)"
^XMB(3.9,18,2,618,0)=" I $E(IOST)=""C"" S DIR(0)=""E"" D ^DIR K DIR"
^XMB(3.9,18,2,619,0)="""RTN"",""DGPTCO1"",46,0)"
^XMB(3.9,18,2,620,0)="DIOENDQ K C,DGLN Q"
^XMB(3.9,18,2,621,0)="""RTN"",""DGPTCO1"",47,0)"
^XMB(3.9,18,2,622,0)=" ;"
^XMB(3.9,18,2,623,0)="""RTN"",""DGPTCO1"",48,0)"
^XMB(3.9,18,2,624,0)="DIV ;"
^XMB(3.9,18,2,625,0)="""RTN"",""DGPTCO1"",49,0)"
^XMB(3.9,18,2,626,0)=" W !,DGLN"
^XMB(3.9,18,2,627,0)="""RTN"",""DGPTCO1"",50,0)"
^XMB(3.9,18,2,628,0)=" I D=""TOT"" W !!?5,""OVERALL STATISTICS:"" Q"
^XMB(3.9,18,2,629,0)="""RTN"",""DGPTCO1"",51,0)"
^XMB(3.9,18,2,630,0)=" W:$D(^DG(40.8,+D,0)) !?5,$P(^(0),U),"":"""
^XMB(3.9,18,2,631,0)="""RTN"",""DGPTCO1"",52,0)"
^XMB(3.9,18,2,632,0)=" Q"
^XMB(3.9,18,2,633,0)="""RTN"",""DGPTCO1"",53,0)"
^XMB(3.9,18,2,634,0)=" ;"
^XMB(3.9,18,2,635,0)="""RTN"",""DGPTCO1"",54,0)"
^XMB(3.9,18,2,636,0)="TOT ;"
^XMB(3.9,18,2,637,0)="""RTN"",""DGPTCO1"",55,0)"
^XMB(3.9,18,2,638,0)=" W !?10,$S(D=""TOT"":""Grand Total: "",1:""Division Total: ""),?30,$J(DGC(D,Z),4)"
^XMB(3.9,18,2,639,0)="""RTN"",""DGPTCO1"",56,0)"
^XMB(3.9,18,2,640,0)=" Q"
^XMB(3.9,18,2,641,0)="""RTN"",""DGPTCO1"",57,0)"
^XMB(3.9,18,2,642,0)=" ;"
^XMB(3.9,18,2,643,0)="""RTN"",""DGPTCO1"",58,0)"
^XMB(3.9,18,2,644,0)="PRT ;"
^XMB(3.9,18,2,645,0)="""RTN"",""DGPTCO1"",59,0)"
^XMB(3.9,18,2,646,0)=" W !?10,S,"": "",?30,$J(C,4)"
^XMB(3.9,18,2,647,0)="""RTN"",""DGPTCO1"",60,0)"
^XMB(3.9,18,2,648,0)=" S:D'=""TOT"" DGC(""TOT"",S)=$S($D(DGC(""TOT"",S)):DGC(""TOT"",S),1:0)+C,DGC(""TOT"",Z)=$S($D(DGC(""TOT"",Z)):DGC(""TOT"",Z),1:0)+C"
^XMB(3.9,18,2,649,0)="""RTN"",""DGPTCO1"",61,0)"
^XMB(3.9,18,2,650,0)=" Q"
^XMB(3.9,18,2,651,0)="""RTN"",""DGPTCO1"",62,0)"
^XMB(3.9,18,2,652,0)=" ;"
^XMB(3.9,18,2,653,0)="""RTN"",""DGPTCO1"",63,0)"
^XMB(3.9,18,2,654,0)="DIS ; -- $T logic for each entry"
^XMB(3.9,18,2,655,0)="""RTN"",""DGPTCO1"",64,0)"
^XMB(3.9,18,2,656,0)=" N X S X=^DG(45.85,D0,0)"
^XMB(3.9,18,2,657,0)="""RTN"",""DGPTCO1"",65,0)"
^XMB(3.9,18,2,658,0)=" I DGCHOICE(""DIV"")=1 G DISQ"
^XMB(3.9,18,2,659,0)="""RTN"",""DGPTCO1"",66,0)"
^XMB(3.9,18,2,660,0)=" I $D(DGCHOICE(""DIV"",$S($D(^DIC(42,+$P(X,U,6),0)):+$P(^(0),U,11),1:0)))"
^XMB(3.9,18,2,661,0)="""RTN"",""DGPTCO1"",67,0)"
^XMB(3.9,18,2,662,0)="DISQ Q"
^XMB(3.9,18,2,663,0)="""RTN"",""DGPTCO1"",68,0)"
^XMB(3.9,18,2,664,0)=" ;"
^XMB(3.9,18,2,665,0)="""RTN"",""DGPTCO1"",69,0)"
^XMB(3.9,18,2,666,0)="DHIT ; -- logic called for each entry printed cum stats; DGC(div,status)"
^XMB(3.9,18,2,667,0)="""RTN"",""DGPTCO1"",70,0)"
^XMB(3.9,18,2,668,0)=" N D,S,Z S Z=""zzzz"" D STATUS"
^XMB(3.9,18,2,669,0)="""RTN"",""DGPTCO1"",71,0)"
^XMB(3.9,18,2,670,0)=" S S=X,D=$S($D(^DIC(42,+$P(^DG(45.85,D0,0),U,6),0)):+$P(^(0),U,11),1:0)"
^XMB(3.9,18,2,671,0)="""RTN"",""DGPTCO1"",72,0)"
^XMB(3.9,18,2,672,0)=" S DGC(D,S)=$S($D(DGC(D,S)):DGC(D,S),1:0)+1,DGC(D,Z)=$S($D(DGC(D,Z)):DGC(D,Z),1:0)+1"
^XMB(3.9,18,2,673,0)="""RTN"",""DGPTCO1"",73,0)"
^XMB(3.9,18,2,674,0)=" Q"
^XMB(3.9,18,2,675,0)="""RTN"",""DGPTCO1"",74,0)"
^XMB(3.9,18,2,676,0)=" ;"
^XMB(3.9,18,2,677,0)="""RTN"",""DGPTCO1"",75,0)"
^XMB(3.9,18,2,678,0)="FIND ; -- find CENSUS rec#"
^XMB(3.9,18,2,679,0)="""RTN"",""DGPTCO1"",76,0)"
^XMB(3.9,18,2,680,0)=" ;  input: D0 := ifn of 45.85"
^XMB(3.9,18,2,681,0)="""RTN"",""DGPTCO1"",77,0)"
^XMB(3.9,18,2,682,0)=" ; output: X  := status ; DGCI := census ifn ; PTF := ptf ifn"
^XMB(3.9,18,2,683,0)="""RTN"",""DGPTCO1"",78,0)"
^XMB(3.9,18,2,684,0)=" ;"
^XMB(3.9,18,2,685,0)="""RTN"",""DGPTCO1"",79,0)"
^XMB(3.9,18,2,686,0)=" S DGCI="""",X=0,Y=$S($D(^DG(45.85,D0,0)):^(0),1:"""")"
^XMB(3.9,18,2,687,0)="""RTN"",""DGPTCO1"",80,0)"
^XMB(3.9,18,2,688,0)=" G FINDQ:'Y S PTF=+$P(Y,U,12)"
^XMB(3.9,18,2,689,0)="""RTN"",""DGPTCO1"",81,0)"
^XMB(3.9,18,2,690,0)=" F DGCI=0:0 S DGCI=$O(^DGPT(""ACENSUS"",PTF,DGCI)) Q:'DGCI  I $D(^DGPT(DGCI,0)),$P(^(0),U,13)=+$P(Y,U,4) S X=+$P(^(0),U,6) Q"
^XMB(3.9,18,2,691,0)="""RTN"",""DGPTCO1"",82,0)"
^XMB(3.9,18,2,692,0)="FINDQ Q"
^XMB(3.9,18,2,693,0)="""RTN"",""DGPTCO1"",83,0)"
^XMB(3.9,18,2,694,0)=" ;"
^XMB(3.9,18,2,695,0)="""RTN"",""DGPTCO1"",84,0)"
^XMB(3.9,18,2,696,0)="STATUS ; -- compute CENSUS status"
^XMB(3.9,18,2,697,0)="""RTN"",""DGPTCO1"",85,0)"
^XMB(3.9,18,2,698,0)=" D FIND S X=$P($P($P(^DD(45,6,0),U,3),X_"":"",2),"";"")"
^XMB(3.9,18,2,699,0)="""RTN"",""DGPTCO1"",86,0)"
^XMB(3.9,18,2,700,0)=" K DGCI,PTF,Y Q"
^XMB(3.9,18,2,701,0)="""RTN"",""DGPTCO1"",87,0)"
^XMB(3.9,18,2,702,0)=" ;"
^XMB(3.9,18,2,703,0)="""RTN"",""DGPTCO1"",88,0)"
^XMB(3.9,18,2,704,0)="CREC ; -- compute CENSUS rec#"
^XMB(3.9,18,2,705,0)="""RTN"",""DGPTCO1"",89,0)"
^XMB(3.9,18,2,706,0)=" D FIND S X=DGCI"
^XMB(3.9,18,2,707,0)="""RTN"",""DGPTCO1"",90,0)"
^XMB(3.9,18,2,708,0)=" K DGCI,PTF,Y Q"
^XMB(3.9,18,2,709,0)="""RTN"",""DGPTCO1"",91,0)"
^XMB(3.9,18,2,710,0)=" ;"
^XMB(3.9,18,2,711,0)="""RTN"",""DGPTCO1"",92,0)"
^XMB(3.9,18,2,712,0)="DATE ; -- calculate default census date"
^XMB(3.9,18,2,713,0)="""RTN"",""DGPTCO1"",93,0)"
^XMB(3.9,18,2,714,0)=" S Y=$S($D(^DG(45.86,+$O(^DG(45.86,""AC"",1,0)),0)):+^(0),1:"""")"
^XMB(3.9,18,2,715,0)="""RTN"",""DGPTCO1"",94,0)"
^XMB(3.9,18,2,716,0)=" X:Y]"""" ^DD(""DD"")"
^XMB(3.9,18,2,717,0)="""RTN"",""DGPTCO1"",95,0)"
^XMB(3.9,18,2,718,0)=" Q"
^XMB(3.9,18,2,719,0)="""RTN"",""DGPTCO1"",96,0)"
^XMB(3.9,18,2,720,0)="DOQ ;-- check if output device is queued. if not ask "
^XMB(3.9,18,2,721,0)="""RTN"",""DGPTCO1"",97,0)"
^XMB(3.9,18,2,722,0)=" S DGQ=0"
^XMB(3.9,18,2,723,0)="""RTN"",""DGPTCO1"",98,0)"
^XMB(3.9,18,2,724,0)=" I $D(IO(""Q"")) S DGQ=1 G DOQT"
^XMB(3.9,18,2,725,0)="""RTN"",""DGPTCO1"",99,0)"
^XMB(3.9,18,2,726,0)=" I IO=IO(0) G DOQT"
^XMB(3.9,18,2,727,0)="""RTN"",""DGPTCO1"",100,0)"
^XMB(3.9,18,2,728,0)=" S DIR(0)=""Y"",DIR(""A"")=""DO YOU WANT YOUR OUTPUT QUEUED"",DIR(""B"")=""YES"""
^XMB(3.9,18,2,729,0)="""RTN"",""DGPTCO1"",101,0)"
^XMB(3.9,18,2,730,0)=" D ^DIR"
^XMB(3.9,18,2,731,0)="""RTN"",""DGPTCO1"",102,0)"
^XMB(3.9,18,2,732,0)=" I Y S DGQ=1"
^XMB(3.9,18,2,733,0)="""RTN"",""DGPTCO1"",103,0)"
^XMB(3.9,18,2,734,0)="DOQT ;"
^XMB(3.9,18,2,735,0)="""RTN"",""DGPTCO1"",104,0)"
^XMB(3.9,18,2,736,0)=" K Y,DIR"
^XMB(3.9,18,2,737,0)="""RTN"",""DGPTCO1"",105,0)"
^XMB(3.9,18,2,738,0)=" Q"
^XMB(3.9,18,2,739,0)="""RTN"",""DGPTCO1"",106,0)"
^XMB(3.9,18,2,740,0)="CHKCUR ; -- checks if new PTF Census Date record is needed"
^XMB(3.9,18,2,741,0)="""RTN"",""DGPTCO1"",107,0)"
^XMB(3.9,18,2,742,0)=" N DGIEN,DGCLOSE,DGACT,ERR"
^XMB(3.9,18,2,743,0)="""RTN"",""DGPTCO1"",108,0)"
^XMB(3.9,18,2,744,0)=" S DGIEN=$S($D(^DG(45.86,+$O(^DG(45.86,""AC"",1,0)),0)):+^(0),1:"""")"
^XMB(3.9,18,2,745,0)="""RTN"",""DGPTCO1"",109,0)"
^XMB(3.9,18,2,746,0)=" S DGIEN=$O(^DG(45.86,""B"",+$G(DGIEN),0))"
^XMB(3.9,18,2,747,0)="""RTN"",""DGPTCO1"",110,0)"
^XMB(3.9,18,2,748,0)=" S ERR=0"
^XMB(3.9,18,2,749,0)="""RTN"",""DGPTCO1"",111,0)"
^XMB(3.9,18,2,750,0)=" I 'DGIEN S ERR=1 D ERR Q"
^XMB(3.9,18,2,751,0)="""RTN"",""DGPTCO1"",112,0)"
^XMB(3.9,18,2,752,0)=" ; look at last census closeout date"
^XMB(3.9,18,2,753,0)="""RTN"",""DGPTCO1"",113,0)"
^XMB(3.9,18,2,754,0)=" S DGCLOSE=$P($G(^DG(45.86,DGIEN,0)),U,2)"
^XMB(3.9,18,2,755,0)="""RTN"",""DGPTCO1"",114,0)"
^XMB(3.9,18,2,756,0)=" I 'DGCLOSE S ERR=1 D ERR Q"
^XMB(3.9,18,2,757,0)="""RTN"",""DGPTCO1"",115,0)"
^XMB(3.9,18,2,758,0)=" I $E(DGCLOSE,6,7)'=19 S ERR=1"
^XMB(3.9,18,2,759,0)="""RTN"",""DGPTCO1"",116,0)"
^XMB(3.9,18,2,760,0)=" S DGACT=$P($G(^DG(45.86,DGIEN,0)),U,4)"
^XMB(3.9,18,2,761,0)="""RTN"",""DGPTCO1"",117,0)"
^XMB(3.9,18,2,762,0)=" I 'DGACT S ERR=1"
^XMB(3.9,18,2,763,0)="""RTN"",""DGPTCO1"",118,0)"
^XMB(3.9,18,2,764,0)=" I ERR D ERR Q"
^XMB(3.9,18,2,765,0)="""RTN"",""DGPTCO1"",119,0)"
^XMB(3.9,18,2,766,0)=" I DT>DGCLOSE D ADDREC"
^XMB(3.9,18,2,767,0)="""RTN"",""DGPTCO1"",120,0)"
^XMB(3.9,18,2,768,0)=" Q"
^XMB(3.9,18,2,769,0)="""RTN"",""DGPTCO1"",121,0)"
^XMB(3.9,18,2,770,0)="ADDREC ; -- add new record"
^XMB(3.9,18,2,771,0)="""RTN"",""DGPTCO1"",122,0)"
^XMB(3.9,18,2,772,0)=" N DA,DIE,DR,DGYR,DGMONTH,DGSTRT,DGENDT,ERR,FDA,IEN696,ERR696"
^XMB(3.9,18,2,773,0)="""RTN"",""DGPTCO1"",123,0)"
^XMB(3.9,18,2,774,0)=" ; first inactivate last record"
^XMB(3.9,18,2,775,0)="""RTN"",""DGPTCO1"",124,0)"
^XMB(3.9,18,2,776,0)=" S DA=DGIEN,DIE=""^DG(45.86,"",DR="".04////0"" D ^DIE"
^XMB(3.9,18,2,777,0)="""RTN"",""DGPTCO1"",125,0)"
^XMB(3.9,18,2,778,0)=" S DGYR=$E(DGCLOSE,1,3)"
^XMB(3.9,18,2,779,0)="""RTN"",""DGPTCO1"",126,0)"
^XMB(3.9,18,2,780,0)=" ; create new record depending on last closeout date (month)"
^XMB(3.9,18,2,781,0)="""RTN"",""DGPTCO1"",127,0)"
^XMB(3.9,18,2,782,0)=" S DGMONTH=$E(DGCLOSE,4,5)"
^XMB(3.9,18,2,783,0)="""RTN"",""DGPTCO1"",128,0)"
^XMB(3.9,18,2,784,0)=" I DGMONTH>""00"",DGMONTH<""04"" S DGSTRT=DGYR_""0101"",DGENDT=DGYR_""0331"",DGCLOSE=DGYR_""0419"""
^XMB(3.9,18,2,785,0)="""RTN"",""DGPTCO1"",129,0)"
^XMB(3.9,18,2,786,0)=" I DGMONTH>""03"",DGMONTH<""07"" S DGSTRT=DGYR_""0401"",DGENDT=DGYR_""0630"",DGCLOSE=DGYR_""0719"""
^XMB(3.9,18,2,787,0)="""RTN"",""DGPTCO1"",130,0)"
^XMB(3.9,18,2,788,0)=" I DGMONTH>""06"",DGMONTH<""10"" S DGSTRT=DGYR_""0701"",DGENDT=DGYR_""0930"",DGCLOSE=DGYR_""1019"""
^XMB(3.9,18,2,789,0)="""RTN"",""DGPTCO1"",131,0)"
^XMB(3.9,18,2,790,0)=" I DGMONTH>""09"",DGMONTH<""13"" S DGSTRT=DGYR_""1001"",DGENDT=DGYR_""1231"",DGYR=DGYR+1,DGCLOSE=DGYR_""0119"""
^XMB(3.9,18,2,791,0)="""RTN"",""DGPTCO1"",132,0)"
^XMB(3.9,18,2,792,0)=" ;S DIC=""^DG(45.86,"",X=DGENDT,DIC(0)="""" K DO D FILE^DICN K DIC"
^XMB(3.9,18,2,793,0)="""RTN"",""DGPTCO1"",133,0)"
^XMB(3.9,18,2,794,0)=" ;I Y'>0 S ERR=1 D ERR Q"
^XMB(3.9,18,2,795,0)="""RTN"",""DGPTCO1"",134,0)"
^XMB(3.9,18,2,796,0)=" ;S DIE=""^DG(45.86,"",DA=+Y,DR="".02////""_DGCLOSE_"";.03////2970331;.04////1;.05////""_DGSTRT"
^XMB(3.9,18,2,797,0)="""RTN"",""DGPTCO1"",135,0)"
^XMB(3.9,18,2,798,0)=" ;D ^DIE K DIE,DR,DA"
^XMB(3.9,18,2,799,0)="""RTN"",""DGPTCO1"",136,0)"
^XMB(3.9,18,2,800,0)=" S FDA(696,45.86,""?+1,"",.01)=DGENDT"
^XMB(3.9,18,2,801,0)="""RTN"",""DGPTCO1"",137,0)"
^XMB(3.9,18,2,802,0)=" S FDA(696,45.86,""?+1,"",.02)=DGCLOSE"
^XMB(3.9,18,2,803,0)="""RTN"",""DGPTCO1"",138,0)"
^XMB(3.9,18,2,804,0)=" S FDA(696,45.86,""?+1,"",.03)=2970331"
^XMB(3.9,18,2,805,0)="""RTN"",""DGPTCO1"",139,0)"
^XMB(3.9,18,2,806,0)=" S FDA(696,45.86,""?+1,"",.04)=1"
^XMB(3.9,18,2,807,0)="""RTN"",""DGPTCO1"",140,0)"
^XMB(3.9,18,2,808,0)=" S FDA(696,45.86,""?+1,"",.05)=DGSTRT"
^XMB(3.9,18,2,809,0)="""RTN"",""DGPTCO1"",141,0)"
^XMB(3.9,18,2,810,0)=" D UPDATE^DIE("""",""FDA(696)"",""IEN696"",""ERR696"")"
^XMB(3.9,18,2,811,0)="""RTN"",""DGPTCO1"",142,0)"
^XMB(3.9,18,2,812,0)=" I $D(ERR696) S ERR=1 D ERR"
^XMB(3.9,18,2,813,0)="""RTN"",""DGPTCO1"",143,0)"
^XMB(3.9,18,2,814,0)=" Q"
^XMB(3.9,18,2,815,0)="""RTN"",""DGPTCO1"",144,0)"
^XMB(3.9,18,2,816,0)="ERR ;"
^XMB(3.9,18,2,817,0)="""RTN"",""DGPTCO1"",145,0)"
^XMB(3.9,18,2,818,0)=" D BMES^XPDUTL(""Problem with PTF CENSUS DATE File (#45.86)."")"
^XMB(3.9,18,2,819,0)="""RTN"",""DGPTCO1"",146,0)"
^XMB(3.9,18,2,820,0)=" D BMES^XPDUTL(""Please notify your Supervisor !!."")"
^XMB(3.9,18,2,821,0)="""RTN"",""DGPTCO1"",147,0)"
^XMB(3.9,18,2,822,0)=" Q"
^XMB(3.9,18,2,823,0)="""RTN"",""DGPTCO1"",148,0)"
^XMB(3.9,18,2,824,0)=" ;"
^XMB(3.9,18,2,825,0)="""RTN"",""DGPTFM"")"
^XMB(3.9,18,2,826,0)="0^1^B44706868^B44316891"
^XMB(3.9,18,2,827,0)="""RTN"",""DGPTFM"",1,0)"
^XMB(3.9,18,2,828,0)="DGPTFM ;ALB/MTC - PTF OP-PRO-DIAG ;7/22/05 9:18am"
^XMB(3.9,18,2,829,0)="""RTN"",""DGPTFM"",2,0)"
^XMB(3.9,18,2,830,0)=" ;;5.3;Registration;**510,517,590,594,606,635,683,696**;Aug 13, 1993"
^XMB(3.9,18,2,831,0)="""RTN"",""DGPTFM"",3,0)"
^XMB(3.9,18,2,832,0)=" K M,S,M1,M2,M3,S1,S2,PS2,SDCLY,^TMP(""PTF"",$J)"
^XMB(3.9,18,2,833,0)="""RTN"",""DGPTFM"",4,0)"
^XMB(3.9,18,2,834,0)="GET S I=0 F I1=1:1 S I=$O(^DGPT(PTF,""M"",I)) Q:'I  S (M3(I1),M(I1))=^(I,0) I $D(^DGPT(PTF,""M"",I,""P"")) S $P(M(I1),U,20)=^(""P"")"
^XMB(3.9,18,2,835,0)="""RTN"",""DGPTFM"",5,0)"
^XMB(3.9,18,2,836,0)=" K MT D ORDER^DGPTF K MT D GETVAR^DGPTFM6,CL^SDCO21(DFN,$P(^DGPT(PTF,0),U,2),"""",.SDCLY),MOB^DGPTFM2"
^XMB(3.9,18,2,837,0)="""RTN"",""DGPTFM"",6,0)"
^XMB(3.9,18,2,838,0)=" S DGPC=I1-1 D WR K M1,M2,^UTILITY($J) S ST=1,M2=0"
^XMB(3.9,18,2,839,0)="""RTN"",""DGPTFM"",7,0)"
^XMB(3.9,18,2,840,0)="DIAG K DGZSER,DGZPRO,DGZSUR S DGZDIAG=1 F J=ST:2:PM S NL=1,L5=0,L6=J D WD2 S L5=1,L6=J+1 D:$D(M(L6)) WD2 D WD G PRO1:$Y>16 D WD3^DGPTFM8 G PRO1:$Y>16 W !"
^XMB(3.9,18,2,841,0)="""RTN"",""DGPTFM"",8,0)"
^XMB(3.9,18,2,842,0)=" S ST=1 G SER"
^XMB(3.9,18,2,843,0)="""RTN"",""DGPTFM"",9,0)"
^XMB(3.9,18,2,844,0)="WD F J1=1:1:11 I J1'=6 S L=$P(M(J),U,J1+4),L1=0,L3=1 D:+L WD1 S L1=1,L=$S($D(M(J+1)):$P(M(J+1),U,J1+4),1:"""") D:+L WD1"
^XMB(3.9,18,2,845,0)="""RTN"",""DGPTFM"",10,0)"
^XMB(3.9,18,2,846,0)=" Q"
^XMB(3.9,18,2,847,0)="""RTN"",""DGPTFM"",11,0)"
^XMB(3.9,18,2,848,0)="WD1 S N=$$ICDDX^ICDCODE(+L,$$GETDATE^ICDGTDRG(PTF)),L2=$S(N:$P(N,U,2,99),1:""""),M2=M2+1,L4=$P(L2,""^"",1),L4=L4_$E(""   "",1,3-$L($P(L4,""."",2)))"
^XMB(3.9,18,2,849,0)="""RTN"",""DGPTFM"",12,0)"
^XMB(3.9,18,2,850,0)=" W:L3 ! S:L3 L3=0 W ?L1*40,$J(M2,3),"" "",$J(L4,7),"" "",$E($P(L2,U,3),1,25) K ^UTILITY($J,""M2"",M2) S ^UTILITY($J,""M2"",M2)=+M(J+L1)_U_J1 Q"
^XMB(3.9,18,2,851,0)="""RTN"",""DGPTFM"",13,0)"
^XMB(3.9,18,2,852,0)="WD2 N Z3"
^XMB(3.9,18,2,853,0)="""RTN"",""DGPTFM"",14,0)"
^XMB(3.9,18,2,854,0)=" X:NL ""W ! S NL=0"" W ?L5*40,""Move #"",+L6 S Z=M(L6),Z3=M3(L6) W:+Z=1 "" D/C"" S Y=$P(Z,U,10)\1 D D^DGPTUTL W "" "",Y,"" """
^XMB(3.9,18,2,855,0)="""RTN"",""DGPTFM"",15,0)"
^XMB(3.9,18,2,856,0)=" W "" <"",$S($P(Z3,U,18)=1:"""",1:""N""),""SC""_$S($P(Z3,U,26)=""Y"":"",AO"",1:"""")_$S($P(Z3,U,27)=""Y"":"",IR"",1:"""")_$S($P(Z3,U,28)=""Y"":"",EC"",1:"""")_"">"""
^XMB(3.9,18,2,857,0)="""RTN"",""DGPTFM"",16,0)"
^XMB(3.9,18,2,858,0)=" I $D(^DIC(42.4,+$P(Z,U,2),0)) D"
^XMB(3.9,18,2,859,0)="""RTN"",""DGPTFM"",17,0)"
^XMB(3.9,18,2,860,0)=" . I $P(^DIC(42.4,+$P(Z,U,2),0),U,2)'="""" W $E($P(^DIC(42.4,+$P(Z,U,2),0),U,2),1,10)"
^XMB(3.9,18,2,861,0)="""RTN"",""DGPTFM"",18,0)"
^XMB(3.9,18,2,862,0)=" . E  W $E($P(^(0),U,1),1,10)"
^XMB(3.9,18,2,863,0)="""RTN"",""DGPTFM"",19,0)"
^XMB(3.9,18,2,864,0)=" Q"
^XMB(3.9,18,2,865,0)="""RTN"",""DGPTFM"",20,0)"
^XMB(3.9,18,2,866,0)="NDG D WR S I=0 K M,M1,M2 S M2=0 F I1=1:1 S I=$O(^DGPT(PTF,""M"",I)) Q:I'>0  S M(I1)=^(I,0)"
^XMB(3.9,18,2,867,0)="""RTN"",""DGPTFM"",21,0)"
^XMB(3.9,18,2,868,0)=" S PM=I1-1 D ORDER^DGPTF K MT G DIAG:$D(ST) G GET S ST=1"
^XMB(3.9,18,2,869,0)="""RTN"",""DGPTFM"",22,0)"
^XMB(3.9,18,2,870,0)="SER K DGZDIAG,DGZPRO,DGZSUR S DGZSER=1 G PRO1:$Y>19 K S1,S2 S S2=0 G SERV:ST G PRO"
^XMB(3.9,18,2,871,0)="""RTN"",""DGPTFM"",23,0)"
^XMB(3.9,18,2,872,0)="SERV F J=ST:2:SU S NL=1,L5=0,L6=J D SD2 S L5=1,L6=J+1 D:$D(S(L6)) SD2 D SD G PRO1:$Y>11 D SD3^DGPTFM8 G PRO1:$Y>11 W !"
^XMB(3.9,18,2,873,0)="""RTN"",""DGPTFM"",24,0)"
^XMB(3.9,18,2,874,0)=" G PRC^DGPTFM0"
^XMB(3.9,18,2,875,0)="""RTN"",""DGPTFM"",25,0)"
^XMB(3.9,18,2,876,0)="SD F J1=1:1:5 S L=$P(S(J),U,J1+7),L1=0,L3=1 D:+L SD1 S L1=1,L=$S($D(S(J+1)):$P(S(J+1),U,J1+7),1:"""") D:+L SD1"
^XMB(3.9,18,2,877,0)="""RTN"",""DGPTFM"",26,0)"
^XMB(3.9,18,2,878,0)=" Q"
^XMB(3.9,18,2,879,0)="""RTN"",""DGPTFM"",27,0)"
^XMB(3.9,18,2,880,0)="SD1 S N=$$ICDOP^ICDCODE(+L,$$GETDATE^ICDGTDRG(PTF)),L2=$S(N:$P(N,U,2,99),1:""""),S2=S2+1,L4=$P(L2,""^"",1),L4=L4_$E(""   "",1,3-$L($P(L4,""."",2)))"
^XMB(3.9,18,2,881,0)="""RTN"",""DGPTFM"",28,0)"
^XMB(3.9,18,2,882,0)=" W:L3 ! S:L3 L3=0 W ?L1*40,$J(S2,3),"" "",$J(L4,7),"" "",$E($P(L2,U,4),1,25) K S2(S2) S S2(S2)=J+L1_U_J1 Q"
^XMB(3.9,18,2,883,0)="""RTN"",""DGPTFM"",29,0)"
^XMB(3.9,18,2,884,0)="SD2 S Y=+S(L6) D D^DGPTUTL W:NL ! S:NL NL=0 W ?L5*40,L6,""-Surgery date: "",Y"
^XMB(3.9,18,2,885,0)="""RTN"",""DGPTFM"",30,0)"
^XMB(3.9,18,2,886,0)=" Q"
^XMB(3.9,18,2,887,0)="""RTN"",""DGPTFM"",31,0)"
^XMB(3.9,18,2,888,0)="NSR K S,S1,S2 S I=0 F I1=1:1 S I=$O(^DGPT(PTF,""S"",I)) Q:I'>0  S S(I1)=^(I,0),S(I1,1)=I"
^XMB(3.9,18,2,889,0)="""RTN"",""DGPTFM"",32,0)"
^XMB(3.9,18,2,890,0)=" S S2=0,SU=I1-1 D WR G SERV"
^XMB(3.9,18,2,891,0)="""RTN"",""DGPTFM"",33,0)"
^XMB(3.9,18,2,892,0)=" ;"
^XMB(3.9,18,2,893,0)="""RTN"",""DGPTFM"",34,0)"
^XMB(3.9,18,2,894,0)="WR W @IOF,HEAD,?70 S Z=""<MAS>"" D Z Q"
^XMB(3.9,18,2,895,0)="""RTN"",""DGPTFM"",35,0)"
^XMB(3.9,18,2,896,0)="PRO K DGZSER,DGZDIAG,DGZSUR S DGZPRO=1 G PRO1:$Y>14 K P1,P2 S ST=1,P2=0 G NPR:'$D(PROC)"
^XMB(3.9,18,2,897,0)="""RTN"",""DGPTFM"",36,0)"
^XMB(3.9,18,2,898,0)="PROC D:$Y>14 WR W:PROC]"""" !!,""Procedures: "",!"
^XMB(3.9,18,2,899,0)="""RTN"",""DGPTFM"",37,0)"
^XMB(3.9,18,2,900,0)=" F J1=1:1:5 S L=$P(PROC,""^"",J1) I L'="""" S P2=P2+1,N=$$ICDOP^ICDCODE(+L,$$GETDATE^ICDGTDRG(PTF)),L2=$S(N:$P(N,U,2,99),1:""""),L4=$P(L2,U,1),L4=L4_$E(""   "",1,3-$L($P(L4,""."",2))) D"
^XMB(3.9,18,2,901,0)="""RTN"",""DGPTFM"",38,0)"
^XMB(3.9,18,2,902,0)=" .W:$X>5 ?40 W $J(P2,3),"" "",$J(L4,7),"" "",$E($P(L2,""^"",4),1,25) K P2(P2) S P2(P2)=J1 W:$X>45 !"
^XMB(3.9,18,2,903,0)="""RTN"",""DGPTFM"",39,0)"
^XMB(3.9,18,2,904,0)=" K DGZSER,DGZPRO,DGZDIAG,DGZSUR"
^XMB(3.9,18,2,905,0)="""RTN"",""DGPTFM"",40,0)"
^XMB(3.9,18,2,906,0)="ENC G PRO1:$Y>7,PRO1:'$P(DGZPRF,U,3)"
^XMB(3.9,18,2,907,0)="""RTN"",""DGPTFM"",41,0)"
^XMB(3.9,18,2,908,0)="PF S PS2=0,J=+DGZPRF,Y=+DGZPRF(J),DGSTRT=$S(+$P(DGZPRF,U,4):$P(DGZPRF,U,4),1:4),DGLST=0"
^XMB(3.9,18,2,909,0)="""RTN"",""DGPTFM"",42,0)"
^XMB(3.9,18,2,910,0)=" D CL^SDCO21(DFN,+DGZPRF(J),"""",.SDCLY),ICDINFO^DGAPI(DFN,PTF),XREF^DGPTFM21 ; load SCI info and DGN's for this service date"
^XMB(3.9,18,2,911,0)="""RTN"",""DGPTFM"",43,0)"
^XMB(3.9,18,2,912,0)=" D D^DGPTUTL W !,J,""-CPT Capture Date/Time: "",Y W:($P(DGZPRF,U,2)-1!($G(PGBRK))) "" (cont.)"""
^XMB(3.9,18,2,913,0)="""RTN"",""DGPTFM"",44,0)"
^XMB(3.9,18,2,914,0)=" I $P(DGZPRF(J),U,2) W !,?5,""Referring or Ordering Provider: "" S L=$P(DGZPRF(J),U,2) D PRV"
^XMB(3.9,18,2,915,0)="""RTN"",""DGPTFM"",45,0)"
^XMB(3.9,18,2,916,0)=" W !,?5,""Rendering Provider: "" S L=$P(DGZPRF(J),U,3) D PRV"
^XMB(3.9,18,2,917,0)="""RTN"",""DGPTFM"",46,0)"
^XMB(3.9,18,2,918,0)=" I $P(DGZPRF(J),U,5) W !,?5,""Rendering Location: "",$P($G(^SC($P(DGZPRF(J),U,5),0)),U)"
^XMB(3.9,18,2,919,0)="""RTN"",""DGPTFM"",47,0)"
^XMB(3.9,18,2,920,0)=" S (L1,PGBRK)=0"
^XMB(3.9,18,2,921,0)="""RTN"",""DGPTFM"",48,0)"
^XMB(3.9,18,2,922,0)=" F K=$P(DGZPRF,U,2):1 Q:'$D(DGZPRF(J,K))  I '$G(DGZPRF(J,K,9)) S PS2=PS2+1 W !,?2,PS2,"" "" D CPT^DGPTUTL1 D  Q:$Y+$G(DGZPRF(J,K+1,1))>16!($G(PGBRK))"
^XMB(3.9,18,2,923,0)="""RTN"",""DGPTFM"",49,0)"
^XMB(3.9,18,2,924,0)=" . W !,?4 S $P(DS,""-"",27)="""" W DS,"" Related Diagnosis "",DS"
^XMB(3.9,18,2,925,0)="""RTN"",""DGPTFM"",50,0)"
^XMB(3.9,18,2,926,0)=" . F L1=DGSTRT:1:11 S DGLOC=$S(L1<8:L1,1:L1+7),CD=$P(DGZPRF(J,K),U,DGLOC) I CD D  I $Y+$G(CKSCI)>16 S PGBRK=1 Q"
^XMB(3.9,18,2,927,0)="""RTN"",""DGPTFM"",51,0)"
^XMB(3.9,18,2,928,0)=" . . S N=$$ICDDX^ICDCODE(CD,$$GETDATE^ICDGTDRG(PTF)),N=$S(N:$P(N,U,2,99),1:"""")"
^XMB(3.9,18,2,929,0)="""RTN"",""DGPTFM"",52,0)"
^XMB(3.9,18,2,930,0)=" . . S CD=$P(N,U) W !,?8,CD,""   "",$P(N,U,3)"
^XMB(3.9,18,2,931,0)="""RTN"",""DGPTFM"",53,0)"
^XMB(3.9,18,2,932,0)=" . . D CKSCI($P(DGZPRF(J,K),U,DGLOC))"
^XMB(3.9,18,2,933,0)="""RTN"",""DGPTFM"",54,0)"
^XMB(3.9,18,2,934,0)=" . S PS2(PS2)=J_U_K,CD=1,DGLOC=0,DGSTRT=4"
^XMB(3.9,18,2,935,0)="""RTN"",""DGPTFM"",55,0)"
^XMB(3.9,18,2,936,0)=" I L1'=11,$S(L1<8:$P($G(DGZPRF(J,K)),U,L1+1,7),1:"""")_$P($G(DGZPRF(J,K)),U,$S(L1<8:15,1:L1+8),18)?.""^"" S L1=11"
^XMB(3.9,18,2,937,0)="""RTN"",""DGPTFM"",56,0)"
^XMB(3.9,18,2,938,0)=" I L1=11 S $P(DGZPRF,U,1,2)=$S($D(DGZPRF(J,K+1)):J_U_(K+1),1:J+1_U_1),$P(DGZPRF,U,4)="""",PGBRK=0"
^XMB(3.9,18,2,939,0)="""RTN"",""DGPTFM"",57,0)"
^XMB(3.9,18,2,940,0)=" E  S $P(DGZPRF,U,1,2)=J_U_K,$P(DGZPRF,U,4)=L1+1"
^XMB(3.9,18,2,941,0)="""RTN"",""DGPTFM"",58,0)"
^XMB(3.9,18,2,942,0)=" ;I '$D(DGZPRF(J,K+1)) S $P(DGZPRF,U,1,2)=$S($P($G(DGZPRF(J,K)),U,NXTDGN)'="""":J,1:J+1)_U_1,$P(DGZPRF,U,4)=DGLST"
^XMB(3.9,18,2,943,0)="""RTN"",""DGPTFM"",59,0)"
^XMB(3.9,18,2,944,0)=" ;I $D(DGZPRF(J,K+1)) S $P(DGZPRF,U,1,2)=J_U_(K+1)"
^XMB(3.9,18,2,945,0)="""RTN"",""DGPTFM"",60,0)"
^XMB(3.9,18,2,946,0)=" K I,K,L,L1,CD,N G PRO1"
^XMB(3.9,18,2,947,0)="""RTN"",""DGPTFM"",61,0)"
^XMB(3.9,18,2,948,0)=" ;"
^XMB(3.9,18,2,949,0)="""RTN"",""DGPTFM"",62,0)"
^XMB(3.9,18,2,950,0)="CKSCI(IEN)      ;print SCI for each Diagnosis code"
^XMB(3.9,18,2,951,0)="""RTN"",""DGPTFM"",63,0)"
^XMB(3.9,18,2,952,0)=" N DGINFO Q:'$D(XREF(IEN))"
^XMB(3.9,18,2,953,0)="""RTN"",""DGPTFM"",64,0)"
^XMB(3.9,18,2,954,0)=" S DGINFO=$G(^DGICD9(46.1,(XREF(IEN)),0)),CKSCI=0"
^XMB(3.9,18,2,955,0)="""RTN"",""DGPTFM"",65,0)"
^XMB(3.9,18,2,956,0)=" I 'DGINFO Q"
^XMB(3.9,18,2,957,0)="""RTN"",""DGPTFM"",66,0)"
^XMB(3.9,18,2,958,0)=" F I=3,7,1,2,4:1:6 I $D(SDCLY(I)) S L=$S(I=3:8,I<4:8+I,1:7+I) D"
^XMB(3.9,18,2,959,0)="""RTN"",""DGPTFM"",67,0)"
^XMB(3.9,18,2,960,0)=" .W ?45 S M=1,CKSCI=CKSCI+1"
^XMB(3.9,18,2,961,0)="""RTN"",""DGPTFM"",68,0)"
^XMB(3.9,18,2,962,0)=" .W $P(""Treated for AO Condition^Treated for IR Condition^Treated for SC Condition^Exposed to Envir Contaminants^Treatment for MST^Treatment for Head/Neck CA^Related to Combat"",U,I)"
^XMB(3.9,18,2,963,0)="""RTN"",""DGPTFM"",69,0)"
^XMB(3.9,18,2,964,0)=" .;I I'=7 W "":"",$S($P(DGINFO,U,($S(I<3:I+2,I=3:2,1:I+1))):""YES"",1:""NO""),!"
^XMB(3.9,18,2,965,0)="""RTN"",""DGPTFM"",70,0)"
^XMB(3.9,18,2,966,0)=" .;I I=7 W "":"",$S($P(DGINFO,U,8)=""Y"":""YES"",1:""NO""),!"
^XMB(3.9,18,2,967,0)="""RTN"",""DGPTFM"",71,0)"
^XMB(3.9,18,2,968,0)=" .W "":"",$S($P(DGINFO,U,8)=""Y"":""YES"",1:""NO""),!"
^XMB(3.9,18,2,969,0)="""RTN"",""DGPTFM"",72,0)"
^XMB(3.9,18,2,970,0)=" Q  ;CKSCI"
^XMB(3.9,18,2,971,0)="""RTN"",""DGPTFM"",73,0)"
^XMB(3.9,18,2,972,0)=" ;"
^XMB(3.9,18,2,973,0)="""RTN"",""DGPTFM"",74,0)"
^XMB(3.9,18,2,974,0)="NPR S ST=1,PROC=$S($D(^DGPT(PTF,""401P"")):^(""401P""),1:"""") D WR G PRO"
^XMB(3.9,18,2,975,0)="""RTN"",""DGPTFM"",75,0)"
^XMB(3.9,18,2,976,0)=" ;"
^XMB(3.9,18,2,977,0)="""RTN"",""DGPTFM"",76,0)"
^XMB(3.9,18,2,978,0)="NPS D WR G PF"
^XMB(3.9,18,2,979,0)="""RTN"",""DGPTFM"",77,0)"
^XMB(3.9,18,2,980,0)=" ;"
^XMB(3.9,18,2,981,0)="""RTN"",""DGPTFM"",78,0)"
^XMB(3.9,18,2,982,0)="DONE G EN1^DGPTF4"
^XMB(3.9,18,2,983,0)="""RTN"",""DGPTFM"",79,0)"
^XMB(3.9,18,2,984,0)="PRO1 ;SET MENU TYPE AND DISPLAY MENU"
^XMB(3.9,18,2,985,0)="""RTN"",""DGPTFM"",80,0)"
^XMB(3.9,18,2,986,0)=" N ICDVDT,ICPTVDT"
^XMB(3.9,18,2,987,0)="""RTN"",""DGPTFM"",81,0)"
^XMB(3.9,18,2,988,0)=" S (ICDVDT,ICPTVDT)=$S($D(PTF):$$GETDATE^ICDGTDRG(PTF),1:DT)"
^XMB(3.9,18,2,989,0)="""RTN"",""DGPTFM"",82,0)"
^XMB(3.9,18,2,990,0)=" S DGNUM=$S($D(DGZDIAG)!($D(DGZPRO))!($D(DGZSER))!($D(DGZSUR)!(+DGZPRF-1'=$P(DGZPRF,U,3))):""MAS"",1:""701"") G MAS^DGPTFJC:DGST F X=$Y:1:(IOSL-8) W !"
^XMB(3.9,18,2,991,0)="""RTN"",""DGPTFM"",83,0)"
^XMB(3.9,18,2,992,0)=" W !! S Z=""Patient Movements:"" W Z S Z="" ""_$S(DGPTFE:""M=Add PM  X=Delete PM"",1:""M=Edit Treat Spec/PM "")_""  A=Add Code  D=Delete Code  V=Edit Mov"" W Z"
^XMB(3.9,18,2,993,0)="""RTN"",""DGPTFM"",84,0)"
^XMB(3.9,18,2,994,0)=" W ! S Z=""Surgical Episodes:"" W Z S Z="" S=Add SE  Z=Delete SE  O=Add Code  C=Delete Code  J=Edit SE"" W Z"
^XMB(3.9,18,2,995,0)="""RTN"",""DGPTFM"",85,0)"
^XMB(3.9,18,2,996,0)=" W ! S Z=""Procedure Records:"" W Z S Z="" T=Add PR  R=Delete PR  P=Add Code  Q=Delete Code  E=Edit PR"" W Z"
^XMB(3.9,18,2,997,0)="""RTN"",""DGPTFM"",86,0)"
^XMB(3.9,18,2,998,0)=" W ! S Z=""801:"" W Z S Z="" I=Add 801  Y=Delete 801  N=Add CPT  G=Delete CPT F=Edit 801"" W Z K Z"
^XMB(3.9,18,2,999,0)="""RTN"",""DGPTFM"",87,0)"
^XMB(3.9,18,2,1000,0)=" W !,""                   ^=Abort   <RET> to Continue:<"",DGNUM,"">// "" R ANS:DTIME K DGNUM"
^XMB(3.9,18,2,1001,0)="""RTN"",""DGPTFM"",88,0)"
^XMB(3.9,18,2,1002,0)="A S Z=""^C Delete Code^A Add Code^O Add Code^P Add NOP^S Add SE^D Delete Code^M Add PM^X Delete PM^Z Delete SE^J Edit SE^Q Delete NOP^V Edit Move^"""
^XMB(3.9,18,2,1003,0)="""RTN"",""DGPTFM"",89,0)"
^XMB(3.9,18,2,1004,0)=" S Z=Z_""T Add PR^R Delete PR^E Edit PR^I Add 801^Y Delete 801^N Add CPT^G Delete CPT^F Edit 801"""
^XMB(3.9,18,2,1005,0)="""RTN"",""DGPTFM"",90,0)"
^XMB(3.9,18,2,1006,0)=" I 'DGPTFE S $P(Z,U,8,9)=""M Edit treat Spec/PM"""
^XMB(3.9,18,2,1007,0)="""RTN"",""DGPTFM"",91,0)"
^XMB(3.9,18,2,1008,0)=" S X=ANS G Q^DGPTF:ANS=""^"" G ^DGPTFJ:ANS?1""^"".E S (A,X)=ANS,X=$E(X,1) D IN^DGHELP"
^XMB(3.9,18,2,1009,0)="""RTN"",""DGPTFM"",92,0)"
^XMB(3.9,18,2,1010,0)=" I $P(^DGPT(PTF,0),U,4),X'="""",""IYNGF""[X W !,""***WARNING: This is a Fee Basis PTF record*** 801 encounters are not allowed."" H 3 G DGPTFM"
^XMB(3.9,18,2,1011,0)="""RTN"",""DGPTFM"",93,0)"
^XMB(3.9,18,2,1012,0)=" I ANS="""" S (ST,ST1)=J+2 D:$D(DGZSUR) WR G @($S($D(DGZDIAG):""NDG"",$D(DGZSER):""NSR"",$D(DGZPRO):""NPR"",$D(DGZSUR):""EN^DGPTFM0"",+DGZPRF-1'=$P(DGZPRF,U,3):""NPS"",1:""DONE""))"
^XMB(3.9,18,2,1013,0)="""RTN"",""DGPTFM"",94,0)"
^XMB(3.9,18,2,1014,0)=" G HELP^DGPTFM1A:%=-1 S Z=$L(A)-1 G @(X_$S(X=""X"":"""",1:""^DGPTFM1""))"
^XMB(3.9,18,2,1015,0)="""RTN"",""DGPTFM"",95,0)"
^XMB(3.9,18,2,1016,0)="PRV I $D(^VA(200,L,0)) W $P(^(0),U) Q"
^XMB(3.9,18,2,1017,0)="""RTN"",""DGPTFM"",96,0)"
^XMB(3.9,18,2,1018,0)=" W L Q"
^XMB(3.9,18,2,1019,0)="""RTN"",""DGPTFM"",97,0)"
^XMB(3.9,18,2,1020,0)="X ;"
^XMB(3.9,18,2,1021,0)="""RTN"",""DGPTFM"",98,0)"
^XMB(3.9,18,2,1022,0)=" I 'Z S:PM=1 RC=1 G X1:PM=1 W !!,""Delete Patient move <1"",$S(PM<3:"""",1:""-""_(PM-1)),"">: "" R RC:DTIME G ^DGPTFM:RC[""^""!(RC="""")"
^XMB(3.9,18,2,1023,0)="""RTN"",""DGPTFM"",99,0)"
^XMB(3.9,18,2,1024,0)=" E  S RC=$E(A,2,99) W !"
^XMB(3.9,18,2,1025,0)="""RTN"",""DGPTFM"",100,0)"
^XMB(3.9,18,2,1026,0)=" I +RC'=RC!('$D(M(RC))) W !!,""Enter the record # to delete from the PTF file, 1"",$S(PM<3:"""",1:""-""_(PM-1)) S Z=0 G X"
^XMB(3.9,18,2,1027,0)="""RTN"",""DGPTFM"",101,0)"
^XMB(3.9,18,2,1028,0)="X1 I +M(RC)=1 W !,*7,""Cannot delete discharge movement"",! H 3 G ^DGPTFM"
^XMB(3.9,18,2,1029,0)="""RTN"",""DGPTFM"",102,0)"
^XMB(3.9,18,2,1030,0)=" S DIE=""^DGPT(""_PTF_"",""""M"""","",DP=45.02,DR="".01///@"",DA(1)=PTF,DA=+M(RC) D ^DIE K DR W ""  "",RC,""-DELETED***"" H 2 G ^DGPTFM"
^XMB(3.9,18,2,1031,0)="""RTN"",""DGPTFM"",103,0)"
^XMB(3.9,18,2,1032,0)="Z W @DGVI,Z,@DGVO Q"
^XMB(3.9,18,2,1033,0)="""RTN"",""DGPTFM"",104,0)"
^XMB(3.9,18,2,1034,0)="EN D WR G EN^DGPTFM0"
^XMB(3.9,18,2,1035,0)="""RTN"",""DGPTFM3"")"
^XMB(3.9,18,2,1036,0)="0^2^B16822857^B16699199"
^XMB(3.9,18,2,1037,0)="""RTN"",""DGPTFM3"",1,0)"
^XMB(3.9,18,2,1038,0)="DGPTFM3 ;ALB/ADL - MASTER CPT RECORD ENTER/EDIT PART 2 ;5/5/05 7:35am"
^XMB(3.9,18,2,1039,0)="""RTN"",""DGPTFM3"",2,0)"
^XMB(3.9,18,2,1040,0)=" ;;5.3;Registration;**517,590,594,635,696**;Aug 13, 1993"
^XMB(3.9,18,2,1041,0)="""RTN"",""DGPTFM3"",3,0)"
^XMB(3.9,18,2,1042,0)="REQ ;CHECK FOR REQUIRED FIELDS IN CPT RECORDS.  RECORDS MISSING ONE OR MORE REQUIRED FIELDS ARE DELETED."
^XMB(3.9,18,2,1043,0)="""RTN"",""DGPTFM3"",4,0)"
^XMB(3.9,18,2,1044,0)=" S RFL=0 G REQQ:'$D(DGZPRF(DGZP,0))"
^XMB(3.9,18,2,1045,0)="""RTN"",""DGPTFM3"",5,0)"
^XMB(3.9,18,2,1046,0)=" I '$P(^DGPT(PTF,""C"",DGZPRF(DGZP,0),0),U,3) S DA(1)=PTF,DA=DGPSM,DIK=""^DGPT(""_PTF_"",""""C"""","" D  G REQQ"
^XMB(3.9,18,2,1047,0)="""RTN"",""DGPTFM3"",6,0)"
^XMB(3.9,18,2,1048,0)=" .D ^DIK K DA W !!,""No CPT record has been filed because no performing provider was specified."" S RFL=1"
^XMB(3.9,18,2,1049,0)="""RTN"",""DGPTFM3"",7,0)"
^XMB(3.9,18,2,1050,0)=" S (I,FCPT)=0 D RESEQ(PTF)"
^XMB(3.9,18,2,1051,0)="""RTN"",""DGPTFM3"",8,0)"
^XMB(3.9,18,2,1052,0)=" F J=1:1 S I=$O(^DGCPT(46,""C"",PTF,I)) Q:'I  D:+^DGCPT(46,I,1)=+DGZPRF(DGZP)&'$G(^(9))"
^XMB(3.9,18,2,1053,0)="""RTN"",""DGPTFM3"",9,0)"
^XMB(3.9,18,2,1054,0)=" .I $P(^DGCPT(46,I,0),U,4) S FCPT=1 Q"
^XMB(3.9,18,2,1055,0)="""RTN"",""DGPTFM3"",10,0)"
^XMB(3.9,18,2,1056,0)=" .S DA=I,DIK=""^DGCPT(46,"",CPT=+^DGCPT(46,I,0) D ^DIK"
^XMB(3.9,18,2,1057,0)="""RTN"",""DGPTFM3"",11,0)"
^XMB(3.9,18,2,1058,0)=" .W !!,""CPT "" S N=$$CPT^ICPTCOD(CPT,$$GETDATE^ICDGTDRG(PTF)) W $P(N,U,2),"" "",$P(N,U,3),"" not filed because no diagnosis 1 was entered."""
^XMB(3.9,18,2,1059,0)="""RTN"",""DGPTFM3"",12,0)"
^XMB(3.9,18,2,1060,0)=" .S RFL=1"
^XMB(3.9,18,2,1061,0)="""RTN"",""DGPTFM3"",13,0)"
^XMB(3.9,18,2,1062,0)=" I FCPT K FCPT,I,J,N G REQQ"
^XMB(3.9,18,2,1063,0)="""RTN"",""DGPTFM3"",14,0)"
^XMB(3.9,18,2,1064,0)=" S DA(1)=PTF,DA=DGZPRF(DGZP,0),DIK=""^DGPT(""_PTF_"",""""C"""","""
^XMB(3.9,18,2,1065,0)="""RTN"",""DGPTFM3"",15,0)"
^XMB(3.9,18,2,1066,0)=" D ^DIK K DA W !!,""No CPT record has been filed because no CPT codes were filed."" S RFL=1 K FCPT,I,J,N"
^XMB(3.9,18,2,1067,0)="""RTN"",""DGPTFM3"",16,0)"
^XMB(3.9,18,2,1068,0)="REQQ ;D RESEQ(PTF)"
^XMB(3.9,18,2,1069,0)="""RTN"",""DGPTFM3"",17,0)"
^XMB(3.9,18,2,1070,0)=" Q  ;REQ"
^XMB(3.9,18,2,1071,0)="""RTN"",""DGPTFM3"",18,0)"
^XMB(3.9,18,2,1072,0)="RESEQ(PTF)      ;A subroutine to check if a DGN in the DGCPT global has been deleted and the other DGN's need "
^XMB(3.9,18,2,1073,0)="""RTN"",""DGPTFM3"",19,0)"
^XMB(3.9,18,2,1074,0)=" ;to be moved down in sequence to fill the ""gap"" in the global"
^XMB(3.9,18,2,1075,0)="""RTN"",""DGPTFM3"",20,0)"
^XMB(3.9,18,2,1076,0)=" N REC,CPTINFO,DGNARAY"
^XMB(3.9,18,2,1077,0)="""RTN"",""DGPTFM3"",21,0)"
^XMB(3.9,18,2,1078,0)=" S REC=0"
^XMB(3.9,18,2,1079,0)="""RTN"",""DGPTFM3"",22,0)"
^XMB(3.9,18,2,1080,0)=" F  S REC=$O(^DGCPT(46,""C"",PTF,REC)) Q:REC=""""  K DGNARAY S CPTINFO=^DGCPT(46,REC,0) D"
^XMB(3.9,18,2,1081,0)="""RTN"",""DGPTFM3"",23,0)"
^XMB(3.9,18,2,1082,0)=" . F J=4:1:7,15:1:18 S DGNARAY(J)=$P(CPTINFO,U,J)"
^XMB(3.9,18,2,1083,0)="""RTN"",""DGPTFM3"",24,0)"
^XMB(3.9,18,2,1084,0)=" . I $$CHKGAP(.DGNARAY) D RESEQDGN(.CPTINFO,.DGNARAY) S ^DGCPT(46,REC,0)=CPTINFO"
^XMB(3.9,18,2,1085,0)="""RTN"",""DGPTFM3"",25,0)"
^XMB(3.9,18,2,1086,0)=" Q  ;RESEQ"
^XMB(3.9,18,2,1087,0)="""RTN"",""DGPTFM3"",26,0)"
^XMB(3.9,18,2,1088,0)="CHKGAP(DGNARAY) ;Function call to determine if an inside DGN code has been deleted"
^XMB(3.9,18,2,1089,0)="""RTN"",""DGPTFM3"",27,0)"
^XMB(3.9,18,2,1090,0)=" ;Back up in the DGNARAY array until a non-null DGN ien is found, then continuing backwards, "
^XMB(3.9,18,2,1091,0)="""RTN"",""DGPTFM3"",28,0)"
^XMB(3.9,18,2,1092,0)=" ;if a null ien is located, that means that an ""inside"" DGN was deleted"
^XMB(3.9,18,2,1093,0)="""RTN"",""DGPTFM3"",29,0)"
^XMB(3.9,18,2,1094,0)=" S SEQ=999,END=1,MISSING=0"
^XMB(3.9,18,2,1095,0)="""RTN"",""DGPTFM3"",30,0)"
^XMB(3.9,18,2,1096,0)=" F  S SEQ=$O(DGNARAY(SEQ),-1) Q:SEQ=""""!MISSING  D"
^XMB(3.9,18,2,1097,0)="""RTN"",""DGPTFM3"",31,0)"
^XMB(3.9,18,2,1098,0)=" . I DGNARAY(SEQ)'="""" S END=1 Q"
^XMB(3.9,18,2,1099,0)="""RTN"",""DGPTFM3"",32,0)"
^XMB(3.9,18,2,1100,0)=" . I DGNARAY(SEQ)="""",END=1 S MISSING=1"
^XMB(3.9,18,2,1101,0)="""RTN"",""DGPTFM3"",33,0)"
^XMB(3.9,18,2,1102,0)=" Q MISSING"
^XMB(3.9,18,2,1103,0)="""RTN"",""DGPTFM3"",34,0)"
^XMB(3.9,18,2,1104,0)=" ;"
^XMB(3.9,18,2,1105,0)="""RTN"",""DGPTFM3"",35,0)"
^XMB(3.9,18,2,1106,0)="RESEQDGN(CPTINFO,DGNARAY)       ;Subroutine to shift down DGN codes to replace any inside DGN's that were deleted by the user"
^XMB(3.9,18,2,1107,0)="""RTN"",""DGPTFM3"",36,0)"
^XMB(3.9,18,2,1108,0)=" ;"
^XMB(3.9,18,2,1109,0)="""RTN"",""DGPTFM3"",37,0)"
^XMB(3.9,18,2,1110,0)=" N I"
^XMB(3.9,18,2,1111,0)="""RTN"",""DGPTFM3"",38,0)"
^XMB(3.9,18,2,1112,0)=" S SEQ="""" K NOTNULL"
^XMB(3.9,18,2,1113,0)="""RTN"",""DGPTFM3"",39,0)"
^XMB(3.9,18,2,1114,0)=" F  S SEQ=$O(DGNARAY(SEQ)) Q:SEQ=""""  I DGNARAY(SEQ)'="""" S NOTNULL(SEQ)=DGNARAY(SEQ)"
^XMB(3.9,18,2,1115,0)="""RTN"",""DGPTFM3"",40,0)"
^XMB(3.9,18,2,1116,0)=" K DGNARAY S SEQ="""""
^XMB(3.9,18,2,1117,0)="""RTN"",""DGPTFM3"",41,0)"
^XMB(3.9,18,2,1118,0)=" F I=4:1:7,15:1:18 S DGNARAY(I)="""""
^XMB(3.9,18,2,1119,0)="""RTN"",""DGPTFM3"",42,0)"
^XMB(3.9,18,2,1120,0)=" F I=4:1:7,15:1:18 S SEQ=$O(NOTNULL(SEQ)) Q:SEQ=""""  S DGNARAY(I)=NOTNULL(SEQ)"
^XMB(3.9,18,2,1121,0)="""RTN"",""DGPTFM3"",43,0)"
^XMB(3.9,18,2,1122,0)=" F I=4:1:7,15:1:18 S $P(CPTINFO,U,I)=$G(DGNARAY(I))"
^XMB(3.9,18,2,1123,0)="""RTN"",""DGPTFM3"",44,0)"
^XMB(3.9,18,2,1124,0)=" K NOTNULL"
^XMB(3.9,18,2,1125,0)="""RTN"",""DGPTFM3"",45,0)"
^XMB(3.9,18,2,1126,0)=" Q  ;RESEQDGN"
^XMB(3.9,18,2,1127,0)="""RTN"",""DGPTFM3"",46,0)"
^XMB(3.9,18,2,1128,0)="PF S PTF=D0,DFN=+^DGPT(D0,0) D MOB^DGPTFM2 S PS2=0,J=+DGZPRF"
^XMB(3.9,18,2,1129,0)="""RTN"",""DGPTFM3"",47,0)"
^XMB(3.9,18,2,1130,0)=" G END:'$P(DGZPRF,U,3)"
^XMB(3.9,18,2,1131,0)="""RTN"",""DGPTFM3"",48,0)"
^XMB(3.9,18,2,1132,0)="LOOP S Y=+DGZPRF(J),DGSTRT=$S(+$P(DGZPRF,U,4):$P(DGZPRF,U,4),1:4),DGLST=0"
^XMB(3.9,18,2,1133,0)="""RTN"",""DGPTFM3"",49,0)"
^XMB(3.9,18,2,1134,0)=" D CL^SDCO21(DFN,+DGZPRF(J),"""",.SDCLY),ICDINFO^DGAPI(DFN,PTF),XREF^DGPTFM21 ; load SCI info and DGN's for this service date"
^XMB(3.9,18,2,1135,0)="""RTN"",""DGPTFM3"",50,0)"
^XMB(3.9,18,2,1136,0)=" D D^DGPTUTL W !,J,""-CPT Capture Date/Time: "",Y W:($P(DGZPRF,U,2)-1!($G(PGBRK))) "" (cont.)"""
^XMB(3.9,18,2,1137,0)="""RTN"",""DGPTFM3"",51,0)"
^XMB(3.9,18,2,1138,0)=" I $P(DGZPRF(J),U,2) W !,?5,""Referring or Ordering Provider: "" S L=$P(DGZPRF(J),U,2) D PRV^DGPTFM"
^XMB(3.9,18,2,1139,0)="""RTN"",""DGPTFM3"",52,0)"
^XMB(3.9,18,2,1140,0)=" W !,?5,""Rendering Provider: "" S L=$P(DGZPRF(J),U,3) D PRV^DGPTFM"
^XMB(3.9,18,2,1141,0)="""RTN"",""DGPTFM3"",53,0)"
^XMB(3.9,18,2,1142,0)=" I $P(DGZPRF(J),U,5) W !,?5,""Rendering Location: "",$P($G(^SC($P(DGZPRF(J),U,5),0)),U)"
^XMB(3.9,18,2,1143,0)="""RTN"",""DGPTFM3"",54,0)"
^XMB(3.9,18,2,1144,0)=" S (L1,PGBRK)=0"
^XMB(3.9,18,2,1145,0)="""RTN"",""DGPTFM3"",55,0)"
^XMB(3.9,18,2,1146,0)=" F K1=$P(DGZPRF,U,2):1 Q:'$D(DGZPRF(J,K1))  I '$G(DGZPRF(J,K1,9)) D  Q:$Y+$G(DGZPRF(J,K1+1,1))>16!($G(PGBRK))"
^XMB(3.9,18,2,1147,0)="""RTN"",""DGPTFM3"",56,0)"
^XMB(3.9,18,2,1148,0)=" . S PS2=PS2+1,K=K1 W !,?2,PS2,"" "" D CPT^DGPTUTL1"
^XMB(3.9,18,2,1149,0)="""RTN"",""DGPTFM3"",57,0)"
^XMB(3.9,18,2,1150,0)=" . W !,?4 S $P(DS,""-"",27)="""" W DS,"" Related Diagnosis "",DS"
^XMB(3.9,18,2,1151,0)="""RTN"",""DGPTFM3"",58,0)"
^XMB(3.9,18,2,1152,0)=" . F L1=DGSTRT:1:11 S DGLOC=$S(L1<8:L1,1:L1+7),CD=$P(DGZPRF(J,K1),U,DGLOC) I CD D  I $Y+$G(CKSCI)>16 S PGBRK=1 Q"
^XMB(3.9,18,2,1153,0)="""RTN"",""DGPTFM3"",59,0)"
^XMB(3.9,18,2,1154,0)=" . . S N=$$ICDDX^ICDCODE(CD,$$GETDATE^ICDGTDRG(PTF)),N=$S(N:$P(N,U,2,99),1:"""")"
^XMB(3.9,18,2,1155,0)="""RTN"",""DGPTFM3"",60,0)"
^XMB(3.9,18,2,1156,0)=" . . S CD=$P(N,U) W !,?8,CD,""   "",$P(N,U,3)"
^XMB(3.9,18,2,1157,0)="""RTN"",""DGPTFM3"",61,0)"
^XMB(3.9,18,2,1158,0)=" . . D CKSCI^DGPTFM($P(DGZPRF(J,K1),U,DGLOC))"
^XMB(3.9,18,2,1159,0)="""RTN"",""DGPTFM3"",62,0)"
^XMB(3.9,18,2,1160,0)=" . S PS2(PS2)=J_U_K1,CD=1,DGLOC=0,DGSTRT=4"
^XMB(3.9,18,2,1161,0)="""RTN"",""DGPTFM3"",63,0)"
^XMB(3.9,18,2,1162,0)=" I L1'=11,$S(L1<8:$P($G(DGZPRF(J,K1)),U,L1+1,7),1:"""")_$P($G(DGZPRF(J,K1)),U,$S(L1<8:15,1:L1+8),18)?.""^"" S L1=11"
^XMB(3.9,18,2,1163,0)="""RTN"",""DGPTFM3"",64,0)"
^XMB(3.9,18,2,1164,0)=" I L1=11 S $P(DGZPRF,U,1,2)=$S($D(DGZPRF(J,K1+1)):J_U_(K1+1),1:J+1_U_1),$P(DGZPRF,U,4)="""",PGBRK=0"
^XMB(3.9,18,2,1165,0)="""RTN"",""DGPTFM3"",65,0)"
^XMB(3.9,18,2,1166,0)=" E  S $P(DGZPRF,U,1,2)=J_U_K1,$P(DGZPRF,U,4)=L1+1"
^XMB(3.9,18,2,1167,0)="""RTN"",""DGPTFM3"",66,0)"
^XMB(3.9,18,2,1168,0)=" S J=+DGZPRF I $D(DGZPRF(J)) D HEAD^DGPTFMO G LOOP"
^XMB(3.9,18,2,1169,0)="""RTN"",""DGPTFM3"",67,0)"
^XMB(3.9,18,2,1170,0)="END I $E(IOST)=""C"" W ! S DIR(0)=""E"" D ^DIR K DIR"
^XMB(3.9,18,2,1171,0)="""RTN"",""DGPTFM3"",68,0)"
^XMB(3.9,18,2,1172,0)=" K I,K1,L1,CD,N Q"
^XMB(3.9,18,2,1173,0)="""RTN"",""DGPTR1"")"
^XMB(3.9,18,2,1174,0)="0^3^B25846829^B25729227"
^XMB(3.9,18,2,1175,0)="""RTN"",""DGPTR1"",1,0)"
^XMB(3.9,18,2,1176,0)="DGPTR1 ;ALB/MTC - PTF VERIFICATION ; 01 MAR 91 @0800"
^XMB(3.9,18,2,1177,0)="""RTN"",""DGPTR1"",2,0)"
^XMB(3.9,18,2,1178,0)=" ;;5.3;Registration;**58,247,338,342,423,415,565,678,696**;Aug 13, 1993"
^XMB(3.9,18,2,1179,0)="""RTN"",""DGPTR1"",3,0)"
^XMB(3.9,18,2,1180,0)="START S T=$E(Y,2,3),T=$S(T=40&($E(Y,28)=""P""):""P40"",1:T),ERR=$P($T(@(""T""_T)),"";;"",2,999),W=$P($T(@(T)),"";;"",2,999),F=31 D L"
^XMB(3.9,18,2,1181,0)="""RTN"",""DGPTR1"",4,0)"
^XMB(3.9,18,2,1182,0)=" I T=70 S ERR=$P($T(T701),"";;"",2,999),W=$P($T(701),"";;"",2,999),F=72 D L"
^XMB(3.9,18,2,1183,0)="""RTN"",""DGPTR1"",5,0)"
^XMB(3.9,18,2,1184,0)=" D @(""D""_T) Q"
^XMB(3.9,18,2,1185,0)="""RTN"",""DGPTR1"",6,0)"
^XMB(3.9,18,2,1186,0)=" K DGFILL"
^XMB(3.9,18,2,1187,0)="""RTN"",""DGPTR1"",7,0)"
^XMB(3.9,18,2,1188,0)=" Q"
^XMB(3.9,18,2,1189,0)="""RTN"",""DGPTR1"",8,0)"
^XMB(3.9,18,2,1190,0)=" ;"
^XMB(3.9,18,2,1191,0)="""RTN"",""DGPTR1"",9,0)"
^XMB(3.9,18,2,1192,0)="L F H=1:1 S DGO=$P(W,U,H) Q:'DGO  F Z=1:1:$P(DGO,"";"",3) S DGL=$P(DGLOGIC,U,+DGO),X=$E(Y,F) D @(""ERR:""_DGL) S F=F+1"
^XMB(3.9,18,2,1193,0)="""RTN"",""DGPTR1"",10,0)"
^XMB(3.9,18,2,1194,0)=" Q"
^XMB(3.9,18,2,1195,0)="""RTN"",""DGPTR1"",11,0)"
^XMB(3.9,18,2,1196,0)=" ;"
^XMB(3.9,18,2,1197,0)="""RTN"",""DGPTR1"",12,0)"
^XMB(3.9,18,2,1198,0)="T10 ;;1:NAME^2:SOURCE OF ADM^3:TRANS FAC.^4:SOURCE OF PAY^5:POW^6:MARITAL ST^7:SEX^8:DOB^9:POS^10:VIETNAM^11:ION RADIATION^12:RESIDENCE^13:MEANS TEST^14:INCOME^15:MST^16:COMBAT VET^17:CV END DT^18:PROJ 112/SHAD^19:ERI"
^XMB(3.9,18,2,1199,0)="""RTN"",""DGPTR1"",13,0)"
^XMB(3.9,18,2,1200,0)=" ;"
^XMB(3.9,18,2,1201,0)="""RTN"",""DGPTR1"",14,0)"
^XMB(3.9,18,2,1202,0)="T70 ;;1:DT OF DISP.^2:DISCH BD SEC^3:TYPE OF DIS^4:OUT TREAT^5:VA AUS^6:PL OF DIS^7:REC FAC^8:ASIH DAYS^9:NOT USED^10:C&P STAT^11:DXLS^12:ONLY DX^13:PHY CDR"
^XMB(3.9,18,2,1203,0)="""RTN"",""DGPTR1"",15,0)"
^XMB(3.9,18,2,1204,0)=" ;T701 is part 2 of T70"
^XMB(3.9,18,2,1205,0)="""RTN"",""DGPTR1"",16,0)"
^XMB(3.9,18,2,1206,0)="T701 ;;1:PHY SPEC^2:%SC^3:LEGION^4:SUICIDE^5:DRUG^6:AXIS-IV^7:AXIS-V^8:SC^9:EXP^10:MST^11:HNC^12:ETHNICITY^13:RACE^14:COMBAT VET"
^XMB(3.9,18,2,1207,0)="""RTN"",""DGPTR1"",17,0)"
^XMB(3.9,18,2,1208,0)=" ;"
^XMB(3.9,18,2,1209,0)="""RTN"",""DGPTR1"",18,0)"
^XMB(3.9,18,2,1210,0)="T50 ;;1:DT OF MVMT^2:LOSING BD SEC CDR^3:LOSING BD SEC^4:LEAVE DAYS^5:PASS DAYS^6:SCI^7:DIAG^8:DOCTOR'S SSN^9:PHY CDR^10:PHY SPEC^11:DISCHARGE STAT^^^^^16:LEGION^17:SUICIDE^18:DRUG^19:AXIS-IV^20:AXIS-V^21:SC^22:EXP^23:MST^24:HNC"
^XMB(3.9,18,2,1211,0)="""RTN"",""DGPTR1"",19,0)"
^XMB(3.9,18,2,1212,0)=" ;"
^XMB(3.9,18,2,1213,0)="""RTN"",""DGPTR1"",20,0)"
^XMB(3.9,18,2,1214,0)="T53 ;;1:DATE OF PHYSICAL MOVEMENT^2:LOSING PHYSICAL CDR^3:LOSING PHYSICAL SPECIALTY^4:TR SPECIALTY CDR^5:TR SPECIALTY^6:LEAVE DAYS^7:PASS DAYS^8:DOCTOR'S SSN (NOT USED)"
^XMB(3.9,18,2,1215,0)="""RTN"",""DGPTR1"",21,0)"
^XMB(3.9,18,2,1216,0)=" ;"
^XMB(3.9,18,2,1217,0)="""RTN"",""DGPTR1"",22,0)"
^XMB(3.9,18,2,1218,0)="T40 ;;1:DATE OF SURGERY^2:SURG SPEC.^3:CAT CHIEF SURGEON^4:CAT FIRST ASS^5:ANEST. TECH.^6:SOURCE OF PAY^7:OP CODE^8:DOCTOR'S SSN (NOT USED)^^^^^13:TRANSPLANT STATUS"
^XMB(3.9,18,2,1219,0)="""RTN"",""DGPTR1"",23,0)"
^XMB(3.9,18,2,1220,0)=" ;"
^XMB(3.9,18,2,1221,0)="""RTN"",""DGPTR1"",24,0)"
^XMB(3.9,18,2,1222,0)="TP40 ;;1:OP CODE"
^XMB(3.9,18,2,1223,0)="""RTN"",""DGPTR1"",25,0)"
^XMB(3.9,18,2,1224,0)=" ;"
^XMB(3.9,18,2,1225,0)="""RTN"",""DGPTR1"",26,0)"
^XMB(3.9,18,2,1226,0)="T60 ;;1:DATE OF PROCEDURE^2:LOSING BD SEC^3:DIALYSIS TYPE^4:NUMBER OF TREATMENTS^5:PROCEDURE CODE"
^XMB(3.9,18,2,1227,0)="""RTN"",""DGPTR1"",27,0)"
^XMB(3.9,18,2,1228,0)=" ;"
^XMB(3.9,18,2,1229,0)="""RTN"",""DGPTR1"",28,0)"
^XMB(3.9,18,2,1230,0)="LOGIC ;;X'?.N^X'?.A&(X'="" "")^X'="" ""^X'?.N&(X'="" "")^X'?.A&(X'="" "")^0^X'?.N&(X'=""X"")^X'="" ""&(X'=""P"")^X=""E""^X=""Y""^X="" ""^X'=""A""&(X'="" "")^(X'?.A)&(X'?.N)&(X'="" "")^(X'?.N)&('$P(DG0,U,4))^((T1)&(X'="" ""))!(('T1)&(X'?.N)&('$P(DG0,U,4)))"
^XMB(3.9,18,2,1231,0)="""RTN"",""DGPTR1"",29,0)"
^XMB(3.9,18,2,1232,0)=" ;"
^XMB(3.9,18,2,1233,0)="""RTN"",""DGPTR1"",30,0)"
^XMB(3.9,18,2,1234,0)=" ; edit check# ; edit field ; # x check preformed ; display error name #"
^XMB(3.9,18,2,1235,0)="""RTN"",""DGPTR1"",31,0)"
^XMB(3.9,18,2,1236,0)="10 ;;6;;12;1^2;1;1;1^5;1;1;1^1;2;1;2^2;2;1;2^4;3;3;3^6;;3;3^4;4;1;4^6;5;1;5^2;6;1;6^2;7;1;7^1;8;8;8^6;;1;9^11;9;1;9^4;10;1;10^4;10;1;11^1;11;5;12^7;11;5;12^2;12;1;13^6;;1;13^1;;6;14^2;;1;15^1;;1;16^4;;6;17^3;;1;18^5;;1;19^3;;29"
^XMB(3.9,18,2,1237,0)="""RTN"",""DGPTR1"",32,0)"
^XMB(3.9,18,2,1238,0)=" ;"
^XMB(3.9,18,2,1239,0)="""RTN"",""DGPTR1"",33,0)"
^XMB(3.9,18,2,1240,0)="70 ;;1;1;10;1^1;2;2;2^1;3;1;3^4;4;1;4^4;5;1;5^6;;1;6^4;7;3;7^6;;3;7^4;8;3;8^6;9;1;9^1;10;1;10^9;11;1;11^11;11;2;11^6;;3;11^10;11;1;11^6;;1;12^15;;6;13"
^XMB(3.9,18,2,1241,0)="""RTN"",""DGPTR1"",34,0)"
^XMB(3.9,18,2,1242,0)=" ;701 is part 2 of 70"
^XMB(3.9,18,2,1243,0)="""RTN"",""DGPTR1"",35,0)"
^XMB(3.9,18,2,1244,0)="701 ;;15;;2;1^1;;3;2^4;;1;3^4;;1;4^12;;1;5^4;;3;5^4;;1;6^4;;4;7^4;;1;8^5;;3;9^5;;1;10^5;;1;11^13;12;2;12^13;13;12;13^5;;1;14^3;;17"
^XMB(3.9,18,2,1245,0)="""RTN"",""DGPTR1"",36,0)"
^XMB(3.9,18,2,1246,0)=" ;"
^XMB(3.9,18,2,1247,0)="""RTN"",""DGPTR1"",37,0)"
^XMB(3.9,18,2,1248,0)="50 ;;1;1;10;1^1;;6;2^1;3;2;3^1;4;3;4^1;5;3;5^6;;1;6^11;7;3;7^6;;32;7^6;;9;8^14;;6;9^14;;2;10^6;;1;11^4;;1;16^4;;1;17^12;;1;18^4;;3;18^4;;1;19^4;;4;20^4;;1;21^5;;3;22^5;;1;23^5;;1;24"
^XMB(3.9,18,2,1249,0)="""RTN"",""DGPTR1"",38,0)"
^XMB(3.9,18,2,1250,0)=" ;"
^XMB(3.9,18,2,1251,0)="""RTN"",""DGPTR1"",39,0)"
^XMB(3.9,18,2,1252,0)="53 ;;1;;10;1^1;;6;2^1;;2;3^1;;6;4^1;;2;5^1;;3;6^1;;3;7^3;;9;8^3;;54;"
^XMB(3.9,18,2,1253,0)="""RTN"",""DGPTR1"",40,0)"
^XMB(3.9,18,2,1254,0)=" ;"
^XMB(3.9,18,2,1255,0)="""RTN"",""DGPTR1"",41,0)"
^XMB(3.9,18,2,1256,0)="40 ;;1;1;10;1^1;2;2;2^11;3;1;3^4;4;1;4^6;5;1;5^4;6;1;6^11;7;2;7^6;;3;7^3;7;2;7^6;;5;7^3;7;2;7^6;;5;7^3;7;2;7^6;;5;7^3;7;2;7^6;;5;7^3;7;2;7^3;;9;8^4;;1;13^3;;34;"
^XMB(3.9,18,2,1257,0)="""RTN"",""DGPTR1"",42,0)"
^XMB(3.9,18,2,1258,0)=" ;"
^XMB(3.9,18,2,1259,0)="""RTN"",""DGPTR1"",43,0)"
^XMB(3.9,18,2,1260,0)="P40 ;;8;;1;^3;;11;^11;1;2;1^6;;3;1^3;1;2;1^6;;5;1^3;;2;1^6;;5;1^3;;2;1^6;;5;1^3;;2;1^6;;5;1^3;;2;1^3;;48"
^XMB(3.9,18,2,1261,0)="""RTN"",""DGPTR1"",44,0)"
^XMB(3.9,18,2,1262,0)=" ;"
^XMB(3.9,18,2,1263,0)="""RTN"",""DGPTR1"",45,0)"
^XMB(3.9,18,2,1264,0)="60 ;;1;1;10;1^1;2;2;2^4;3;1;3^4;4;3;4^11;5;3;5^6;;32;5^3;;44"
^XMB(3.9,18,2,1265,0)="""RTN"",""DGPTR1"",46,0)"
^XMB(3.9,18,2,1266,0)=" ;"
^XMB(3.9,18,2,1267,0)="""RTN"",""DGPTR1"",47,0)"
^XMB(3.9,18,2,1268,0)="ERR S DGERR=1"
^XMB(3.9,18,2,1269,0)="""RTN"",""DGPTR1"",48,0)"
^XMB(3.9,18,2,1270,0)=" W !,T,$S(T[""H"":"" "",1:$E(Y,4)),""  """
^XMB(3.9,18,2,1271,0)="""RTN"",""DGPTR1"",49,0)"
^XMB(3.9,18,2,1272,0)=" W:""45""[$E(T,1) $E(Y,31,32),""-"",$E(Y,33,34),""-"",$E(Y,35,36),""@"",$E(Y,37,40)"
^XMB(3.9,18,2,1273,0)="""RTN"",""DGPTR1"",50,0)"
^XMB(3.9,18,2,1274,0)=" W ?25,$P($P(ERR,U,$P(DGO,"";"",4)),"":"",2),?40,""COL."",F,""  VALUE: "",$S($E(Y,F)="" "":""BLANK"",1:$E(Y,F))"
^XMB(3.9,18,2,1275,0)="""RTN"",""DGPTR1"",51,0)"
^XMB(3.9,18,2,1276,0)=" S I=$S('$D(I):1,I>0:I,1:1),^(I)=$S($D(^UTILITY(""DG"",$J,T_$S(T[""H"":"""",1:$E(Y,4)),I)):^(I),1:U) I $P(DGO,"";"",2),^(I)'[(U_$P(DGO,"";"",2)_U) S ^(I)=^(I)_$P(DGO,"";"",2)_U"
^XMB(3.9,18,2,1277,0)="""RTN"",""DGPTR1"",52,0)"
^XMB(3.9,18,2,1278,0)=" Q"
^XMB(3.9,18,2,1279,0)="""RTN"",""DGPTR1"",53,0)"
^XMB(3.9,18,2,1280,0)=" ;"
^XMB(3.9,18,2,1281,0)="""RTN"",""DGPTR1"",54,0)"
^XMB(3.9,18,2,1282,0)="D10 I $E(Y,66)=""Z"" S (F,H)=68,W=""11;10;1;10"" D L"
^XMB(3.9,18,2,1283,0)="""RTN"",""DGPTR1"",55,0)"
^XMB(3.9,18,2,1284,0)=" I $P(^DGPT(J,0),""^"",4),$P(^(0),""^"",10)=""U"",$D(^DGPT(J,70)),+^(70)>2890700 S F=79,DGO=""2;12;1;12"" D ERR"
^XMB(3.9,18,2,1285,0)="""RTN"",""DGPTR1"",56,0)"
^XMB(3.9,18,2,1286,0)=" Q"
^XMB(3.9,18,2,1287,0)="""RTN"",""DGPTR1"",57,0)"
^XMB(3.9,18,2,1288,0)=" ;"
^XMB(3.9,18,2,1289,0)="""RTN"",""DGPTR1"",58,0)"
^XMB(3.9,18,2,1290,0)="D40 Q"
^XMB(3.9,18,2,1291,0)="""RTN"",""DGPTR1"",59,0)"
^XMB(3.9,18,2,1292,0)="DP40 Q"
^XMB(3.9,18,2,1293,0)="""RTN"",""DGPTR1"",60,0)"
^XMB(3.9,18,2,1294,0)="D70 I ""467""'[$E(Y,43) S F=44,W=""4;4;1;4^1;5;1;5^11;6;1;6"" D L"
^XMB(3.9,18,2,1295,0)="""RTN"",""DGPTR1"",61,0)"
^XMB(3.9,18,2,1296,0)=" Q"
^XMB(3.9,18,2,1297,0)="""RTN"",""DGPTR1"",62,0)"
^XMB(3.9,18,2,1298,0)="D50 I ""A0""[$P(DG0,U,5)!(""A4""[$P(DG0,U,5))!('$D(^DGPT(J,70))) S W=""11;6;1;6"",F=55 D L"
^XMB(3.9,18,2,1299,0)="""RTN"",""DGPTR1"",63,0)"
^XMB(3.9,18,2,1300,0)=" I $D(^DGPT(J,70)),$S(T1:1,1:+^(70)>2871000) S W=""11;6;1;6"",F=55 D L"
^XMB(3.9,18,2,1301,0)="""RTN"",""DGPTR1"",64,0)"
^XMB(3.9,18,2,1302,0)=" I $E(Y,4)=1 S W=""9;7;1;7"",F=56 D L"
^XMB(3.9,18,2,1303,0)="""RTN"",""DGPTR1"",65,0)"
^XMB(3.9,18,2,1304,0)=" I I=1,'T1 S W=""1;11;1;11"",F=108 D L"
^XMB(3.9,18,2,1305,0)="""RTN"",""DGPTR1"",66,0)"
^XMB(3.9,18,2,1306,0)=" Q"
^XMB(3.9,18,2,1307,0)="""RTN"",""DGPTR1"",67,0)"
^XMB(3.9,18,2,1308,0)="D53 Q"
^XMB(3.9,18,2,1309,0)="""RTN"",""DGPTR1"",68,0)"
^XMB(3.9,18,2,1310,0)="D60 I $E(Y,43) S F=44,W=""1;4;3;4"" D L"
^XMB(3.9,18,2,1311,0)="""RTN"",""DGPTR1"",69,0)"
^XMB(3.9,18,2,1312,0)=" Q"
^XMB(3.9,18,2,1313,0)="""RTN"",""DGPTR1"",70,0)"
^XMB(3.9,18,2,1314,0)="HEAD S ERR=""1:SSN^2:ADMISSION DATE^3:FACILITY #"",W=""8;1;1;1^1;1;9;1^1;2;10;2^1;3;3;3^6;;3;3"",F=5,DGLOGIC=$P($T(LOGIC),"";;"",2),T=""HEADER"""
^XMB(3.9,18,2,1315,0)="""RTN"",""DGPTR1"",71,0)"
^XMB(3.9,18,2,1316,0)=" D L"
^XMB(3.9,18,2,1317,0)="""RTN"",""DGPTR1"",72,0)"
^XMB(3.9,18,2,1318,0)=" Q"
^XMB(3.9,18,2,1319,0)="""RTN"",""DGPTR1"",73,0)"
^XMB(3.9,18,2,1320,0)="LOG S DGLOGIC=$P($T(LOGIC),"";;"",2)"
^XMB(3.9,18,2,1321,0)="""RTN"",""DGPTR1"",74,0)"
^XMB(3.9,18,2,1322,0)=" Q"
^XMB(3.9,18,2,1323,0)="""RTN"",""DGPTR1"",75,0)"
^XMB(3.9,18,2,1324,0)="CEN S T=70,ERR=$P($T(T70),"";;"",2),W=$P($T(70),"";;"",2,999),W=""13;9;1;9""_$P(W,""13;9;1;9"",2,999),F=56 D L"
^XMB(3.9,18,2,1325,0)="""RTN"",""DGPTR1"",76,0)"
^XMB(3.9,18,2,1326,0)=" S ERR=$P($T(T701),"";;"",2),W=$P($T(701),"";;"",2,999),F=72 D L"
^XMB(3.9,18,2,1327,0)="""RTN"",""DGPTR1"",77,0)"
^XMB(3.9,18,2,1328,0)=" Q"
^XMB(3.9,18,2,1329,0)="""VER"")"
^XMB(3.9,18,2,1330,0)="8.0^22.0"
^XMB(3.9,18,2,1331,0)="""BLD"",6571,6)"
^XMB(3.9,18,2,1332,0)="^634"
^XMB(3.9,18,2,1333,0)="$END KID DG*5.3*696"
^XMB(3.9,18,6,0)="^3.911A^2^2"
^XMB(3.9,18,6,1,0)="POSTMASTER"
^XMB(3.9,18,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,18,6,"B","POSTMASTER",1)=""
^XMB(3.9,18,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,19,0)="DI-22_SEQ-132_PAT-150.KID^.5^3061008.015731^^^^K"
^XMB(3.9,19,.6)="3061008"
^XMB(3.9,19,1,0)="^3.91A^2^2"
^XMB(3.9,19,1,1,0)=".5^0^3061008.015731^^^^^^^3061008.015731"
^XMB(3.9,19,1,2,0)="1^0^3061008.023002^^^^^^^3061008.023002"
^XMB(3.9,19,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,19,1,"C",.5,1)=""
^XMB(3.9,19,1,"C",1,2)=""
^XMB(3.9,19,2,0)="^^653^653^3061008"
^XMB(3.9,19,2,1,0)="$TXT Released DI*22*150 SEQ #132"
^XMB(3.9,19,2,2,0)="Extracted from mail message"
^XMB(3.9,19,2,3,0)="$END TXT"
^XMB(3.9,19,2,4,0)="$KID DI*22.0*150"
^XMB(3.9,19,2,5,0)="**INSTALL NAME**"
^XMB(3.9,19,2,6,0)="DI*22.0*150"
^XMB(3.9,19,2,7,0)="""BLD"",587,0)"
^XMB(3.9,19,2,8,0)="DI*22.0*150^VA FILEMAN^0^3060823^y"
^XMB(3.9,19,2,9,0)="""BLD"",587,1,0)"
^XMB(3.9,19,2,10,0)="^^2^2^3060822^"
^XMB(3.9,19,2,11,0)="""BLD"",587,1,1,0)"
^XMB(3.9,19,2,12,0)="See patch DI*22*150 in the National Patch Module on FORUM for complete"
^XMB(3.9,19,2,13,0)="""BLD"",587,1,2,0)"
^XMB(3.9,19,2,14,0)="information on this patch."
^XMB(3.9,19,2,15,0)="""BLD"",587,4,0)"
^XMB(3.9,19,2,16,0)="^9.64PA^.84^1"
^XMB(3.9,19,2,17,0)="""BLD"",587,4,.84,0)"
^XMB(3.9,19,2,18,0)=".84"
^XMB(3.9,19,2,19,0)="""BLD"",587,4,.84,2,0)"
^XMB(3.9,19,2,20,0)="^9.641^.84^1"
^XMB(3.9,19,2,21,0)="""BLD"",587,4,.84,2,.84,0)"
^XMB(3.9,19,2,22,0)="DIALOG  (File-top level)"
^XMB(3.9,19,2,23,0)="""BLD"",587,4,.84,2,.84,1,0)"
^XMB(3.9,19,2,24,0)="^9.6411^.01^1"
^XMB(3.9,19,2,25,0)="""BLD"",587,4,.84,2,.84,1,.01,0)"
^XMB(3.9,19,2,26,0)="DIALOG NUMBER"
^XMB(3.9,19,2,27,0)="""BLD"",587,4,.84,222)"
^XMB(3.9,19,2,28,0)="y^n^p^^^^n^^n"
^XMB(3.9,19,2,29,0)="""BLD"",587,4,.84,224)"
^XMB(3.9,19,2,30,0)=""
^XMB(3.9,19,2,31,0)="""BLD"",587,4,""APDD"",.84,.84)"
^XMB(3.9,19,2,32,0)=""
^XMB(3.9,19,2,33,0)="""BLD"",587,4,""APDD"",.84,.84,.01)"
^XMB(3.9,19,2,34,0)=""
^XMB(3.9,19,2,35,0)="""BLD"",587,4,""B"",.84,.84)"
^XMB(3.9,19,2,36,0)=""
^XMB(3.9,19,2,37,0)="""BLD"",587,6.3)"
^XMB(3.9,19,2,38,0)="2"
^XMB(3.9,19,2,39,0)="""BLD"",587,""KRN"",0)"
^XMB(3.9,19,2,40,0)="^9.67PA^8989.52^19"
^XMB(3.9,19,2,41,0)="""BLD"",587,""KRN"",.4,0)"
^XMB(3.9,19,2,42,0)=".4"
^XMB(3.9,19,2,43,0)="""BLD"",587,""KRN"",.401,0)"
^XMB(3.9,19,2,44,0)=".401"
^XMB(3.9,19,2,45,0)="""BLD"",587,""KRN"",.402,0)"
^XMB(3.9,19,2,46,0)=".402"
^XMB(3.9,19,2,47,0)="""BLD"",587,""KRN"",.403,0)"
^XMB(3.9,19,2,48,0)=".403"
^XMB(3.9,19,2,49,0)="""BLD"",587,""KRN"",.5,0)"
^XMB(3.9,19,2,50,0)=".5"
^XMB(3.9,19,2,51,0)="""BLD"",587,""KRN"",.84,0)"
^XMB(3.9,19,2,52,0)=".84"
^XMB(3.9,19,2,53,0)="""BLD"",587,""KRN"",3.6,0)"
^XMB(3.9,19,2,54,0)="3.6"
^XMB(3.9,19,2,55,0)="""BLD"",587,""KRN"",3.8,0)"
^XMB(3.9,19,2,56,0)="3.8"
^XMB(3.9,19,2,57,0)="""BLD"",587,""KRN"",9.2,0)"
^XMB(3.9,19,2,58,0)="9.2"
^XMB(3.9,19,2,59,0)="""BLD"",587,""KRN"",9.8,0)"
^XMB(3.9,19,2,60,0)="9.8"
^XMB(3.9,19,2,61,0)="""BLD"",587,""KRN"",9.8,""NM"",0)"
^XMB(3.9,19,2,62,0)="^9.68A^1^1"
^XMB(3.9,19,2,63,0)="""BLD"",587,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,19,2,64,0)="DINIT001^^0^B63567021"
^XMB(3.9,19,2,65,0)="""BLD"",587,""KRN"",9.8,""NM"",""B"",""DINIT001"",1)"
^XMB(3.9,19,2,66,0)=""
^XMB(3.9,19,2,67,0)="""BLD"",587,""KRN"",19,0)"
^XMB(3.9,19,2,68,0)="19"
^XMB(3.9,19,2,69,0)="""BLD"",587,""KRN"",19.1,0)"
^XMB(3.9,19,2,70,0)="19.1"
^XMB(3.9,19,2,71,0)="""BLD"",587,""KRN"",101,0)"
^XMB(3.9,19,2,72,0)="101"
^XMB(3.9,19,2,73,0)="""BLD"",587,""KRN"",409.61,0)"
^XMB(3.9,19,2,74,0)="409.61"
^XMB(3.9,19,2,75,0)="""BLD"",587,""KRN"",771,0)"
^XMB(3.9,19,2,76,0)="771"
^XMB(3.9,19,2,77,0)="""BLD"",587,""KRN"",870,0)"
^XMB(3.9,19,2,78,0)="870"
^XMB(3.9,19,2,79,0)="""BLD"",587,""KRN"",8989.51,0)"
^XMB(3.9,19,2,80,0)="8989.51"
^XMB(3.9,19,2,81,0)="""BLD"",587,""KRN"",8989.52,0)"
^XMB(3.9,19,2,82,0)="8989.52"
^XMB(3.9,19,2,83,0)="""BLD"",587,""KRN"",8994,0)"
^XMB(3.9,19,2,84,0)="8994"
^XMB(3.9,19,2,85,0)="""BLD"",587,""KRN"",""B"",.4,.4)"
^XMB(3.9,19,2,86,0)=""
^XMB(3.9,19,2,87,0)="""BLD"",587,""KRN"",""B"",.401,.401)"
^XMB(3.9,19,2,88,0)=""
^XMB(3.9,19,2,89,0)="""BLD"",587,""KRN"",""B"",.402,.402)"
^XMB(3.9,19,2,90,0)=""
^XMB(3.9,19,2,91,0)="""BLD"",587,""KRN"",""B"",.403,.403)"
^XMB(3.9,19,2,92,0)=""
^XMB(3.9,19,2,93,0)="""BLD"",587,""KRN"",""B"",.5,.5)"
^XMB(3.9,19,2,94,0)=""
^XMB(3.9,19,2,95,0)="""BLD"",587,""KRN"",""B"",.84,.84)"
^XMB(3.9,19,2,96,0)=""
^XMB(3.9,19,2,97,0)="""BLD"",587,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,19,2,98,0)=""
^XMB(3.9,19,2,99,0)="""BLD"",587,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,19,2,100,0)=""
^XMB(3.9,19,2,101,0)="""BLD"",587,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,19,2,102,0)=""
^XMB(3.9,19,2,103,0)="""BLD"",587,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,19,2,104,0)=""
^XMB(3.9,19,2,105,0)="""BLD"",587,""KRN"",""B"",19,19)"
^XMB(3.9,19,2,106,0)=""
^XMB(3.9,19,2,107,0)="""BLD"",587,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,19,2,108,0)=""
^XMB(3.9,19,2,109,0)="""BLD"",587,""KRN"",""B"",101,101)"
^XMB(3.9,19,2,110,0)=""
^XMB(3.9,19,2,111,0)="""BLD"",587,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,19,2,112,0)=""
^XMB(3.9,19,2,113,0)="""BLD"",587,""KRN"",""B"",771,771)"
^XMB(3.9,19,2,114,0)=""
^XMB(3.9,19,2,115,0)="""BLD"",587,""KRN"",""B"",870,870)"
^XMB(3.9,19,2,116,0)=""
^XMB(3.9,19,2,117,0)="""BLD"",587,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,19,2,118,0)=""
^XMB(3.9,19,2,119,0)="""BLD"",587,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,19,2,120,0)=""
^XMB(3.9,19,2,121,0)="""BLD"",587,""KRN"",""B"",8994,8994)"
^XMB(3.9,19,2,122,0)=""
^XMB(3.9,19,2,123,0)="""FIA"",.84)"
^XMB(3.9,19,2,124,0)="DIALOG"
^XMB(3.9,19,2,125,0)="""FIA"",.84,0)"
^XMB(3.9,19,2,126,0)="^DI(.84,"
^XMB(3.9,19,2,127,0)="""FIA"",.84,0,0)"
^XMB(3.9,19,2,128,0)=".84I"
^XMB(3.9,19,2,129,0)="""FIA"",.84,0,1)"
^XMB(3.9,19,2,130,0)="y^n^p^^^^n^^n"
^XMB(3.9,19,2,131,0)="""FIA"",.84,0,10)"
^XMB(3.9,19,2,132,0)=""
^XMB(3.9,19,2,133,0)="""FIA"",.84,0,11)"
^XMB(3.9,19,2,134,0)=""
^XMB(3.9,19,2,135,0)="""FIA"",.84,0,""RLRO"")"
^XMB(3.9,19,2,136,0)=""
^XMB(3.9,19,2,137,0)="""FIA"",.84,0,""VR"")"
^XMB(3.9,19,2,138,0)="22.0^DI"
^XMB(3.9,19,2,139,0)="""FIA"",.84,.84)"
^XMB(3.9,19,2,140,0)="1"
^XMB(3.9,19,2,141,0)="""FIA"",.84,.84,.01)"
^XMB(3.9,19,2,142,0)=""
^XMB(3.9,19,2,143,0)="""MBREQ"")"
^XMB(3.9,19,2,144,0)="0"
^XMB(3.9,19,2,145,0)="""PKG"",5,-1)"
^XMB(3.9,19,2,146,0)="1^1"
^XMB(3.9,19,2,147,0)="""PKG"",5,0)"
^XMB(3.9,19,2,148,0)="VA FILEMAN^DI^FM INIT"
^XMB(3.9,19,2,149,0)="""PKG"",5,20,0)"
^XMB(3.9,19,2,150,0)="^9.402P^^"
^XMB(3.9,19,2,151,0)="""PKG"",5,22,0)"
^XMB(3.9,19,2,152,0)="^9.49I^1^1"
^XMB(3.9,19,2,153,0)="""PKG"",5,22,1,0)"
^XMB(3.9,19,2,154,0)="22.0^2990330^3051028^41"
^XMB(3.9,19,2,155,0)="""PKG"",5,22,1,""PAH"",1,0)"
^XMB(3.9,19,2,156,0)="150^3060823"
^XMB(3.9,19,2,157,0)="""PKG"",5,22,1,""PAH"",1,1,0)"
^XMB(3.9,19,2,158,0)="^^2^2^3060823"
^XMB(3.9,19,2,159,0)="""PKG"",5,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,19,2,160,0)="See patch DI*22*150 in the National Patch Module on FORUM for complete"
^XMB(3.9,19,2,161,0)="""PKG"",5,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,19,2,162,0)="information on this patch."
^XMB(3.9,19,2,163,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,19,2,164,0)="Y"
^XMB(3.9,19,2,165,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,19,2,166,0)="^D REP^XPDH"
^XMB(3.9,19,2,167,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,19,2,168,0)="Shall I write over your |FLAG| File"
^XMB(3.9,19,2,169,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,19,2,170,0)="YES"
^XMB(3.9,19,2,171,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,19,2,172,0)="D XPF1^XPDIQ"
^XMB(3.9,19,2,173,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,19,2,174,0)="Y"
^XMB(3.9,19,2,175,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,19,2,176,0)="^D DTA^XPDH"
^XMB(3.9,19,2,177,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,19,2,178,0)="Want my data |FLAG| yours"
^XMB(3.9,19,2,179,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,19,2,180,0)="YES"
^XMB(3.9,19,2,181,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,19,2,182,0)="D XPF2^XPDIQ"
^XMB(3.9,19,2,183,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,19,2,184,0)="YO"
^XMB(3.9,19,2,185,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,19,2,186,0)="^D INHIBIT^XPDH"
^XMB(3.9,19,2,187,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,19,2,188,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,19,2,189,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,19,2,190,0)="YES"
^XMB(3.9,19,2,191,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,19,2,192,0)="D XPI1^XPDIQ"
^XMB(3.9,19,2,193,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,19,2,194,0)="PO^VA(200,:EM"
^XMB(3.9,19,2,195,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,19,2,196,0)="^D MG^XPDH"
^XMB(3.9,19,2,197,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,19,2,198,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,19,2,199,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,19,2,200,0)=""
^XMB(3.9,19,2,201,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,19,2,202,0)="D XPM1^XPDIQ"
^XMB(3.9,19,2,203,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,19,2,204,0)="Y"
^XMB(3.9,19,2,205,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,19,2,206,0)="^D MENU^XPDH"
^XMB(3.9,19,2,207,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,19,2,208,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,19,2,209,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,19,2,210,0)="YES"
^XMB(3.9,19,2,211,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,19,2,212,0)="D XPO1^XPDIQ"
^XMB(3.9,19,2,213,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,19,2,214,0)="Y"
^XMB(3.9,19,2,215,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,19,2,216,0)="^D OPT^XPDH"
^XMB(3.9,19,2,217,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,19,2,218,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,19,2,219,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,19,2,220,0)="YES"
^XMB(3.9,19,2,221,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,19,2,222,0)="D XPZ1^XPDIQ"
^XMB(3.9,19,2,223,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,19,2,224,0)="Y"
^XMB(3.9,19,2,225,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,19,2,226,0)="^D RTN^XPDH"
^XMB(3.9,19,2,227,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,19,2,228,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,19,2,229,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,19,2,230,0)="NO"
^XMB(3.9,19,2,231,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,19,2,232,0)="D XPZ2^XPDIQ"
^XMB(3.9,19,2,233,0)="""RTN"")"
^XMB(3.9,19,2,234,0)="1"
^XMB(3.9,19,2,235,0)="""RTN"",""DINIT001"")"
^XMB(3.9,19,2,236,0)="0^1^B63567021^B63549399"
^XMB(3.9,19,2,237,0)="""RTN"",""DINIT001"",1,0)"
^XMB(3.9,19,2,238,0)="DINIT001 ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;11:25 AM  22 Aug 2006"
^XMB(3.9,19,2,239,0)="""RTN"",""DINIT001"",2,0)"
^XMB(3.9,19,2,240,0)=" ;;22.0;VA FileMan;**150**;Mar 30, 1999;Build 2"
^XMB(3.9,19,2,241,0)="""RTN"",""DINIT001"",3,0)"
^XMB(3.9,19,2,242,0)=" ;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,19,2,243,0)="""RTN"",""DINIT001"",4,0)"
^XMB(3.9,19,2,244,0)=" F I=1:2 S X=$T(Q+I) Q:X=""""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) S @X=Y"
^XMB(3.9,19,2,245,0)="""RTN"",""DINIT001"",5,0)"
^XMB(3.9,19,2,246,0)="Q Q"
^XMB(3.9,19,2,247,0)="""RTN"",""DINIT001"",6,0)"
^XMB(3.9,19,2,248,0)=" ;;^DIC(.84,0,""GL"")"
^XMB(3.9,19,2,249,0)="""RTN"",""DINIT001"",7,0)"
^XMB(3.9,19,2,250,0)=" ;;=^DI(.84,"
^XMB(3.9,19,2,251,0)="""RTN"",""DINIT001"",8,0)"
^XMB(3.9,19,2,252,0)=" ;;^DIC(""B"",""DIALOG"",.84)"
^XMB(3.9,19,2,253,0)="""RTN"",""DINIT001"",9,0)"
^XMB(3.9,19,2,254,0)=" ;;="
^XMB(3.9,19,2,255,0)="""RTN"",""DINIT001"",10,0)"
^XMB(3.9,19,2,256,0)=" ;;^DIC(.84,""%D"",0)"
^XMB(3.9,19,2,257,0)="""RTN"",""DINIT001"",11,0)"
^XMB(3.9,19,2,258,0)=" ;;=^^8^8^2941121^^^^"
^XMB(3.9,19,2,259,0)="""RTN"",""DINIT001"",12,0)"
^XMB(3.9,19,2,260,0)=" ;;^DIC(.84,""%D"",1,0)"
^XMB(3.9,19,2,261,0)="""RTN"",""DINIT001"",13,0)"
^XMB(3.9,19,2,262,0)=" ;;=This file stores the dialog used to 'talk' to a user (error messages,"
^XMB(3.9,19,2,263,0)="""RTN"",""DINIT001"",14,0)"
^XMB(3.9,19,2,264,0)=" ;;^DIC(.84,""%D"",2,0)"
^XMB(3.9,19,2,265,0)="""RTN"",""DINIT001"",15,0)"
^XMB(3.9,19,2,266,0)=" ;;=help text, and other prompts.) Entry points in the ^DIALOG routine"
^XMB(3.9,19,2,267,0)="""RTN"",""DINIT001"",16,0)"
^XMB(3.9,19,2,268,0)=" ;;^DIC(.84,""%D"",3,0)"
^XMB(3.9,19,2,269,0)="""RTN"",""DINIT001"",17,0)"
^XMB(3.9,19,2,270,0)=" ;;=retrieve text from this file.  Variable parameters can be passed to these"
^XMB(3.9,19,2,271,0)="""RTN"",""DINIT001"",18,0)"
^XMB(3.9,19,2,272,0)=" ;;^DIC(.84,""%D"",4,0)"
^XMB(3.9,19,2,273,0)="""RTN"",""DINIT001"",19,0)"
^XMB(3.9,19,2,274,0)=" ;;=calls.  The parameters are inserted into windows within the text as it is"
^XMB(3.9,19,2,275,0)="""RTN"",""DINIT001"",20,0)"
^XMB(3.9,19,2,276,0)=" ;;^DIC(.84,""%D"",5,0)"
^XMB(3.9,19,2,277,0)="""RTN"",""DINIT001"",21,0)"
^XMB(3.9,19,2,278,0)=" ;;=built.  The text is returned in an array.  This file and associated calls"
^XMB(3.9,19,2,279,0)="""RTN"",""DINIT001"",22,0)"
^XMB(3.9,19,2,280,0)=" ;;^DIC(.84,""%D"",6,0)"
^XMB(3.9,19,2,281,0)="""RTN"",""DINIT001"",23,0)"
^XMB(3.9,19,2,282,0)=" ;;=can be used by any package to pass information in arrays rather than"
^XMB(3.9,19,2,283,0)="""RTN"",""DINIT001"",24,0)"
^XMB(3.9,19,2,284,0)=" ;;^DIC(.84,""%D"",7,0)"
^XMB(3.9,19,2,285,0)="""RTN"",""DINIT001"",25,0)"
^XMB(3.9,19,2,286,0)=" ;;=writing to the current device.  Record numbers 1 through 10000 are"
^XMB(3.9,19,2,287,0)="""RTN"",""DINIT001"",26,0)"
^XMB(3.9,19,2,288,0)=" ;;^DIC(.84,""%D"",8,0)"
^XMB(3.9,19,2,289,0)="""RTN"",""DINIT001"",27,0)"
^XMB(3.9,19,2,290,0)=" ;;=reserved for VA FileMan."
^XMB(3.9,19,2,291,0)="""RTN"",""DINIT001"",28,0)"
^XMB(3.9,19,2,292,0)=" ;;^DD(.84,0)"
^XMB(3.9,19,2,293,0)="""RTN"",""DINIT001"",29,0)"
^XMB(3.9,19,2,294,0)=" ;;=FIELD^^8^11"
^XMB(3.9,19,2,295,0)="""RTN"",""DINIT001"",30,0)"
^XMB(3.9,19,2,296,0)=" ;;^DD(.84,0,""DT"")"
^XMB(3.9,19,2,297,0)="""RTN"",""DINIT001"",31,0)"
^XMB(3.9,19,2,298,0)=" ;;=2960426"
^XMB(3.9,19,2,299,0)="""RTN"",""DINIT001"",32,0)"
^XMB(3.9,19,2,300,0)=" ;;^DD(.84,0,""ID"",""WRITE"")"
^XMB(3.9,19,2,301,0)="""RTN"",""DINIT001"",33,0)"
^XMB(3.9,19,2,302,0)=" ;;=N DIALID S DIALID(1)=$P($G(^(0)),U,5) S:DIALID(1)="""" DIALID=+$O(^(2,0)),DIALID(1)=$E($G(^(DIALID,0)),1,42) S DIALID(1,""F"")=""?10"" D EN^DDIOL(.DIALID)"
^XMB(3.9,19,2,303,0)="""RTN"",""DINIT001"",34,0)"
^XMB(3.9,19,2,304,0)=" ;;^DD(.84,0,""IX"",""B"",.84,.01)"
^XMB(3.9,19,2,305,0)="""RTN"",""DINIT001"",35,0)"
^XMB(3.9,19,2,306,0)=" ;;="
^XMB(3.9,19,2,307,0)="""RTN"",""DINIT001"",36,0)"
^XMB(3.9,19,2,308,0)=" ;;^DD(.84,0,""IX"",""C"",.84,1.2)"
^XMB(3.9,19,2,309,0)="""RTN"",""DINIT001"",37,0)"
^XMB(3.9,19,2,310,0)=" ;;="
^XMB(3.9,19,2,311,0)="""RTN"",""DINIT001"",38,0)"
^XMB(3.9,19,2,312,0)=" ;;^DD(.84,0,""IX"",""D"",.84,1.3)"
^XMB(3.9,19,2,313,0)="""RTN"",""DINIT001"",39,0)"
^XMB(3.9,19,2,314,0)=" ;;="
^XMB(3.9,19,2,315,0)="""RTN"",""DINIT001"",40,0)"
^XMB(3.9,19,2,316,0)=" ;;^DD(.84,0,""NM"",""DIALOG"")"
^XMB(3.9,19,2,317,0)="""RTN"",""DINIT001"",41,0)"
^XMB(3.9,19,2,318,0)=" ;;="
^XMB(3.9,19,2,319,0)="""RTN"",""DINIT001"",42,0)"
^XMB(3.9,19,2,320,0)=" ;;^DD(.84,0,""PT"",1.52192,4)"
^XMB(3.9,19,2,321,0)="""RTN"",""DINIT001"",43,0)"
^XMB(3.9,19,2,322,0)=" ;;="
^XMB(3.9,19,2,323,0)="""RTN"",""DINIT001"",44,0)"
^XMB(3.9,19,2,324,0)=" ;;^DD(.84,.01,0)"
^XMB(3.9,19,2,325,0)="""RTN"",""DINIT001"",45,0)"
^XMB(3.9,19,2,326,0)=" ;;=DIALOG NUMBER^RNJ14,3X^^0;1^K:+X'=X!(X>9999999999.999)!(('$G(DIFROM))&(X<10000.001))!(X?.E1"".""4N.N) X S:$G(X) DINUM=X"
^XMB(3.9,19,2,327,0)="""RTN"",""DINIT001"",46,0)"
^XMB(3.9,19,2,328,0)=" ;;^DD(.84,.01,1,0)"
^XMB(3.9,19,2,329,0)="""RTN"",""DINIT001"",47,0)"
^XMB(3.9,19,2,330,0)=" ;;=^.1"
^XMB(3.9,19,2,331,0)="""RTN"",""DINIT001"",48,0)"
^XMB(3.9,19,2,332,0)=" ;;^DD(.84,.01,1,1,0)"
^XMB(3.9,19,2,333,0)="""RTN"",""DINIT001"",49,0)"
^XMB(3.9,19,2,334,0)=" ;;=.84^B"
^XMB(3.9,19,2,335,0)="""RTN"",""DINIT001"",50,0)"
^XMB(3.9,19,2,336,0)=" ;;^DD(.84,.01,1,1,1)"
^XMB(3.9,19,2,337,0)="""RTN"",""DINIT001"",51,0)"
^XMB(3.9,19,2,338,0)=" ;;=S ^DI(.84,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,19,2,339,0)="""RTN"",""DINIT001"",52,0)"
^XMB(3.9,19,2,340,0)=" ;;^DD(.84,.01,1,1,2)"
^XMB(3.9,19,2,341,0)="""RTN"",""DINIT001"",53,0)"
^XMB(3.9,19,2,342,0)=" ;;=K ^DI(.84,""B"",$E(X,1,30),DA)"
^XMB(3.9,19,2,343,0)="""RTN"",""DINIT001"",54,0)"
^XMB(3.9,19,2,344,0)=" ;;^DD(.84,.01,3)"
^XMB(3.9,19,2,345,0)="""RTN"",""DINIT001"",55,0)"
^XMB(3.9,19,2,346,0)=" ;;=Type a Number between 10000.001 and 9999999999.999, up to 3 Decimal Digits"
^XMB(3.9,19,2,347,0)="""RTN"",""DINIT001"",56,0)"
^XMB(3.9,19,2,348,0)=" ;;^DD(.84,.01,21,0)"
^XMB(3.9,19,2,349,0)="""RTN"",""DINIT001"",57,0)"
^XMB(3.9,19,2,350,0)=" ;;=^^1^1^2940523^"
^XMB(3.9,19,2,351,0)="""RTN"",""DINIT001"",58,0)"
^XMB(3.9,19,2,352,0)=" ;;^DD(.84,.01,21,1,0)"
^XMB(3.9,19,2,353,0)="""RTN"",""DINIT001"",59,0)"
^XMB(3.9,19,2,354,0)=" ;;=The dialogue number is used to uniquely identify a message."
^XMB(3.9,19,2,355,0)="""RTN"",""DINIT001"",60,0)"
^XMB(3.9,19,2,356,0)=" ;;^DD(.84,.01,""DT"")"
^XMB(3.9,19,2,357,0)="""RTN"",""DINIT001"",61,0)"
^XMB(3.9,19,2,358,0)=" ;;=2940623"
^XMB(3.9,19,2,359,0)="""RTN"",""DINIT001"",62,0)"
^XMB(3.9,19,2,360,0)=" ;;^DD(.84,1,0)"
^XMB(3.9,19,2,361,0)="""RTN"",""DINIT001"",63,0)"
^XMB(3.9,19,2,362,0)=" ;;=TYPE^RS^1:ERROR;2:GENERAL MESSAGE;3:HELP;^0;2^Q"
^XMB(3.9,19,2,363,0)="""RTN"",""DINIT001"",64,0)"
^XMB(3.9,19,2,364,0)=" ;;^DD(.84,1,3)"
^XMB(3.9,19,2,365,0)="""RTN"",""DINIT001"",65,0)"
^XMB(3.9,19,2,366,0)=" ;;=Enter code that reflects how this dialogue is used when talking to the users."
^XMB(3.9,19,2,367,0)="""RTN"",""DINIT001"",66,0)"
^XMB(3.9,19,2,368,0)=" ;;^DD(.84,1,21,0)"
^XMB(3.9,19,2,369,0)="""RTN"",""DINIT001"",67,0)"
^XMB(3.9,19,2,370,0)=" ;;=^^2^2^2940523^"
^XMB(3.9,19,2,371,0)="""RTN"",""DINIT001"",68,0)"
^XMB(3.9,19,2,372,0)=" ;;^DD(.84,1,21,1,0)"
^XMB(3.9,19,2,373,0)="""RTN"",""DINIT001"",69,0)"
^XMB(3.9,19,2,374,0)=" ;;=This code is used to group the entries in the FileMan DIALOG file,"
^XMB(3.9,19,2,375,0)="""RTN"",""DINIT001"",70,0)"
^XMB(3.9,19,2,376,0)=" ;;^DD(.84,1,21,2,0)"
^XMB(3.9,19,2,377,0)="""RTN"",""DINIT001"",71,0)"
^XMB(3.9,19,2,378,0)=" ;;=according to how they are used when interacting with the user."
^XMB(3.9,19,2,379,0)="""RTN"",""DINIT001"",72,0)"
^XMB(3.9,19,2,380,0)=" ;;^DD(.84,1,23,0)"
^XMB(3.9,19,2,381,0)="""RTN"",""DINIT001"",73,0)"
^XMB(3.9,19,2,382,0)=" ;;=^^3^3^2940523^"
^XMB(3.9,19,2,383,0)="""RTN"",""DINIT001"",74,0)"
^XMB(3.9,19,2,384,0)=" ;;^DD(.84,1,23,1,0)"
^XMB(3.9,19,2,385,0)="""RTN"",""DINIT001"",75,0)"
^XMB(3.9,19,2,386,0)=" ;;=This field is used to tell the DIALOG routines what array to use in"
^XMB(3.9,19,2,387,0)="""RTN"",""DINIT001"",76,0)"
^XMB(3.9,19,2,388,0)=" ;;^DD(.84,1,23,2,0)"
^XMB(3.9,19,2,389,0)="""RTN"",""DINIT001"",77,0)"
^XMB(3.9,19,2,390,0)=" ;;=returning the dialogue.  It is also used for grouping the dialogue for"
^XMB(3.9,19,2,391,0)="""RTN"",""DINIT001"",78,0)"
^XMB(3.9,19,2,392,0)=" ;;^DD(.84,1,23,3,0)"
^XMB(3.9,19,2,393,0)="""RTN"",""DINIT001"",79,0)"
^XMB(3.9,19,2,394,0)=" ;;=reporting purposes."
^XMB(3.9,19,2,395,0)="""RTN"",""DINIT001"",80,0)"
^XMB(3.9,19,2,396,0)=" ;;^DD(.84,1,""DT"")"
^XMB(3.9,19,2,397,0)="""RTN"",""DINIT001"",81,0)"
^XMB(3.9,19,2,398,0)=" ;;=2940523"
^XMB(3.9,19,2,399,0)="""RTN"",""DINIT001"",82,0)"
^XMB(3.9,19,2,400,0)=" ;;^DD(.84,1.2,0)"
^XMB(3.9,19,2,401,0)="""RTN"",""DINIT001"",83,0)"
^XMB(3.9,19,2,402,0)=" ;;=PACKAGE^RP9.4'^DIC(9.4,^0;4^Q"
^XMB(3.9,19,2,403,0)="""RTN"",""DINIT001"",84,0)"
^XMB(3.9,19,2,404,0)=" ;;^DD(.84,1.2,1,0)"
^XMB(3.9,19,2,405,0)="""RTN"",""DINIT001"",85,0)"
^XMB(3.9,19,2,406,0)=" ;;=^.1"
^XMB(3.9,19,2,407,0)="""RTN"",""DINIT001"",86,0)"
^XMB(3.9,19,2,408,0)=" ;;^DD(.84,1.2,1,1,0)"
^XMB(3.9,19,2,409,0)="""RTN"",""DINIT001"",87,0)"
^XMB(3.9,19,2,410,0)=" ;;=.84^C"
^XMB(3.9,19,2,411,0)="""RTN"",""DINIT001"",88,0)"
^XMB(3.9,19,2,412,0)=" ;;^DD(.84,1.2,1,1,1)"
^XMB(3.9,19,2,413,0)="""RTN"",""DINIT001"",89,0)"
^XMB(3.9,19,2,414,0)=" ;;=S ^DI(.84,""C"",$E(X,1,30),DA)="""""
^XMB(3.9,19,2,415,0)="""RTN"",""DINIT001"",90,0)"
^XMB(3.9,19,2,416,0)=" ;;^DD(.84,1.2,1,1,2)"
^XMB(3.9,19,2,417,0)="""RTN"",""DINIT001"",91,0)"
^XMB(3.9,19,2,418,0)=" ;;=K ^DI(.84,""C"",$E(X,1,30),DA)"
^XMB(3.9,19,2,419,0)="""RTN"",""DINIT001"",92,0)"
^XMB(3.9,19,2,420,0)=" ;;^DD(.84,1.2,1,1,""%D"",0)"
^XMB(3.9,19,2,421,0)="""RTN"",""DINIT001"",93,0)"
^XMB(3.9,19,2,422,0)=" ;;=^^3^3^2940623^"
^XMB(3.9,19,2,423,0)="""RTN"",""DINIT001"",94,0)"
^XMB(3.9,19,2,424,0)=" ;;^DD(.84,1.2,1,1,""%D"",1,0)"
^XMB(3.9,19,2,425,0)="""RTN"",""DINIT001"",95,0)"
^XMB(3.9,19,2,426,0)=" ;;=Cross-reference on Package file.  Used for identifying DIALOG entries by"
^XMB(3.9,19,2,427,0)="""RTN"",""DINIT001"",96,0)"
^XMB(3.9,19,2,428,0)=" ;;^DD(.84,1.2,1,1,""%D"",2,0)"
^XMB(3.9,19,2,429,0)="""RTN"",""DINIT001"",97,0)"
^XMB(3.9,19,2,430,0)=" ;;=the package that owns the entry, and for populating the BUILD file during"
^XMB(3.9,19,2,431,0)="""RTN"",""DINIT001"",98,0)"
^XMB(3.9,19,2,432,0)=" ;;^DD(.84,1.2,1,1,""%D"",3,0)"
^XMB(3.9,19,2,433,0)="""RTN"",""DINIT001"",99,0)"
^XMB(3.9,19,2,434,0)=" ;;=package distribution."
^XMB(3.9,19,2,435,0)="""RTN"",""DINIT001"",100,0)"
^XMB(3.9,19,2,436,0)=" ;;^DD(.84,1.2,1,1,""DT"")"
^XMB(3.9,19,2,437,0)="""RTN"",""DINIT001"",101,0)"
^XMB(3.9,19,2,438,0)=" ;;=2940623"
^XMB(3.9,19,2,439,0)="""RTN"",""DINIT001"",102,0)"
^XMB(3.9,19,2,440,0)=" ;;^DD(.84,1.2,3)"
^XMB(3.9,19,2,441,0)="""RTN"",""DINIT001"",103,0)"
^XMB(3.9,19,2,442,0)=" ;;=Enter the name of the Package that owns and distributes this entry."
^XMB(3.9,19,2,443,0)="""RTN"",""DINIT001"",104,0)"
^XMB(3.9,19,2,444,0)=" ;;^DD(.84,1.2,21,0)"
^XMB(3.9,19,2,445,0)="""RTN"",""DINIT001"",105,0)"
^XMB(3.9,19,2,446,0)=" ;;=^^3^3^2940526^"
^XMB(3.9,19,2,447,0)="""RTN"",""DINIT001"",106,0)"
^XMB(3.9,19,2,448,0)=" ;;^DD(.84,1.2,21,1,0)"
^XMB(3.9,19,2,449,0)="""RTN"",""DINIT001"",107,0)"
^XMB(3.9,19,2,450,0)=" ;;=This is a pointer to the Package file.  Each entry in this file belongs"
^XMB(3.9,19,2,451,0)="""RTN"",""DINIT001"",108,0)"
^XMB(3.9,19,2,452,0)=" ;;^DD(.84,1.2,21,2,0)"
^XMB(3.9,19,2,453,0)="""RTN"",""DINIT001"",109,0)"
^XMB(3.9,19,2,454,0)=" ;;=to, and is distributed by, a certain package.  The Package field should be"
^XMB(3.9,19,2,455,0)="""RTN"",""DINIT001"",110,0)"
^XMB(3.9,19,2,456,0)=" ;;^DD(.84,1.2,21,3,0)"
^XMB(3.9,19,2,457,0)="""RTN"",""DINIT001"",111,0)"
^XMB(3.9,19,2,458,0)=" ;;=filled in for each entry on this file."
^XMB(3.9,19,2,459,0)="""RTN"",""DINIT001"",112,0)"
^XMB(3.9,19,2,460,0)=" ;;^DD(.84,1.2,""DT"")"
^XMB(3.9,19,2,461,0)="""RTN"",""DINIT001"",113,0)"
^XMB(3.9,19,2,462,0)=" ;;=2940623"
^XMB(3.9,19,2,463,0)="""RTN"",""DINIT001"",114,0)"
^XMB(3.9,19,2,464,0)=" ;;^DD(.84,1.3,0)"
^XMB(3.9,19,2,465,0)="""RTN"",""DINIT001"",115,0)"
^XMB(3.9,19,2,466,0)=" ;;=SHORT DESCRIPTION^F^^0;5^K:$L(X)>42!($L(X)<1) X"
^XMB(3.9,19,2,467,0)="""RTN"",""DINIT001"",116,0)"
^XMB(3.9,19,2,468,0)=" ;;^DD(.84,1.3,1,0)"
^XMB(3.9,19,2,469,0)="""RTN"",""DINIT001"",117,0)"
^XMB(3.9,19,2,470,0)=" ;;=^.1"
^XMB(3.9,19,2,471,0)="""RTN"",""DINIT001"",118,0)"
^XMB(3.9,19,2,472,0)=" ;;^DD(.84,1.3,1,1,0)"
^XMB(3.9,19,2,473,0)="""RTN"",""DINIT001"",119,0)"
^XMB(3.9,19,2,474,0)=" ;;=.84^D"
^XMB(3.9,19,2,475,0)="""RTN"",""DINIT001"",120,0)"
^XMB(3.9,19,2,476,0)=" ;;^DD(.84,1.3,1,1,1)"
^XMB(3.9,19,2,477,0)="""RTN"",""DINIT001"",121,0)"
^XMB(3.9,19,2,478,0)=" ;;=S ^DI(.84,""D"",$E(X,1,30),DA)="""""
^XMB(3.9,19,2,479,0)="""RTN"",""DINIT001"",122,0)"
^XMB(3.9,19,2,480,0)=" ;;^DD(.84,1.3,1,1,2)"
^XMB(3.9,19,2,481,0)="""RTN"",""DINIT001"",123,0)"
^XMB(3.9,19,2,482,0)=" ;;=K ^DI(.84,""D"",$E(X,1,30),DA)"
^XMB(3.9,19,2,483,0)="""RTN"",""DINIT001"",124,0)"
^XMB(3.9,19,2,484,0)=" ;;^DD(.84,1.3,1,1,""DT"")"
^XMB(3.9,19,2,485,0)="""RTN"",""DINIT001"",125,0)"
^XMB(3.9,19,2,486,0)=" ;;=2960426"
^XMB(3.9,19,2,487,0)="""RTN"",""DINIT001"",126,0)"
^XMB(3.9,19,2,488,0)=" ;;^DD(.84,1.3,3)"
^XMB(3.9,19,2,489,0)="""RTN"",""DINIT001"",127,0)"
^XMB(3.9,19,2,490,0)=" ;;=Description used to identify entry on lookup.  Answer must be 1-42 characters in length."
^XMB(3.9,19,2,491,0)="""RTN"",""DINIT001"",128,0)"
^XMB(3.9,19,2,492,0)=" ;;^DD(.84,1.3,21,0)"
^XMB(3.9,19,2,493,0)="""RTN"",""DINIT001"",129,0)"
^XMB(3.9,19,2,494,0)=" ;;=^^2^2^2960426^"
^XMB(3.9,19,2,495,0)="""RTN"",""DINIT001"",130,0)"
^XMB(3.9,19,2,496,0)=" ;;^DD(.84,1.3,21,1,0)"
^XMB(3.9,19,2,497,0)="""RTN"",""DINIT001"",131,0)"
^XMB(3.9,19,2,498,0)=" ;;=Short description is used to identify an entry on lookup.  The ""WRITE"""
^XMB(3.9,19,2,499,0)="""RTN"",""DINIT001"",132,0)"
^XMB(3.9,19,2,500,0)=" ;;^DD(.84,1.3,21,2,0)"
^XMB(3.9,19,2,501,0)="""RTN"",""DINIT001"",133,0)"
^XMB(3.9,19,2,502,0)=" ;;=identifier will display this description if it is not null."
^XMB(3.9,19,2,503,0)="""RTN"",""DINIT001"",134,0)"
^XMB(3.9,19,2,504,0)=" ;;^DD(.84,1.3,""DT"")"
^XMB(3.9,19,2,505,0)="""RTN"",""DINIT001"",135,0)"
^XMB(3.9,19,2,506,0)=" ;;=2960426"
^XMB(3.9,19,2,507,0)="""RTN"",""DINIT001"",136,0)"
^XMB(3.9,19,2,508,0)=" ;;^DD(.84,2,0)"
^XMB(3.9,19,2,509,0)="""RTN"",""DINIT001"",137,0)"
^XMB(3.9,19,2,510,0)=" ;;=DESCRIPTION^.842^^1;0"
^XMB(3.9,19,2,511,0)="""RTN"",""DINIT001"",138,0)"
^XMB(3.9,19,2,512,0)=" ;;^DD(.84,2,21,0)"
^XMB(3.9,19,2,513,0)="""RTN"",""DINIT001"",139,0)"
^XMB(3.9,19,2,514,0)=" ;;=^^1^1^2930824^^"
^XMB(3.9,19,2,515,0)="""RTN"",""DINIT001"",140,0)"
^XMB(3.9,19,2,516,0)=" ;;^DD(.84,2,21,1,0)"
^XMB(3.9,19,2,517,0)="""RTN"",""DINIT001"",141,0)"
^XMB(3.9,19,2,518,0)=" ;;=  Used for internal documentation purposes."
^XMB(3.9,19,2,519,0)="""RTN"",""DINIT001"",142,0)"
^XMB(3.9,19,2,520,0)=" ;;^DD(.84,3,0)"
^XMB(3.9,19,2,521,0)="""RTN"",""DINIT001"",143,0)"
^XMB(3.9,19,2,522,0)=" ;;=INTERNAL PARAMETERS NEEDED^S^y:YES;^0;3^Q"
^XMB(3.9,19,2,523,0)="""RTN"",""DINIT001"",144,0)"
^XMB(3.9,19,2,524,0)=" ;;^DD(.84,3,3)"
^XMB(3.9,19,2,525,0)="""RTN"",""DINIT001"",145,0)"
^XMB(3.9,19,2,526,0)=" ;;="
^XMB(3.9,19,2,527,0)="""RTN"",""DINIT001"",146,0)"
^XMB(3.9,19,2,528,0)=" ;;^DD(.84,3,21,0)"
^XMB(3.9,19,2,529,0)="""RTN"",""DINIT001"",147,0)"
^XMB(3.9,19,2,530,0)=" ;;=^^6^6^2931105^"
^XMB(3.9,19,2,531,0)="""RTN"",""DINIT001"",148,0)"
^XMB(3.9,19,2,532,0)=" ;;^DD(.84,3,21,1,0)"
^XMB(3.9,19,2,533,0)="""RTN"",""DINIT001"",149,0)"
^XMB(3.9,19,2,534,0)=" ;;=  Some dialogue is built by inserting variable text (internal parameters)"
^XMB(3.9,19,2,535,0)="""RTN"",""DINIT001"",150,0)"
^XMB(3.9,19,2,536,0)=" ;;^DD(.84,3,21,2,0)"
^XMB(3.9,19,2,537,0)="""RTN"",""DINIT001"",151,0)"
^XMB(3.9,19,2,538,0)=" ;;=into windows in the word-processing TEXT field.  The insertable text might"
^XMB(3.9,19,2,539,0)="""RTN"",""DINIT001"",152,0)"
^XMB(3.9,19,2,540,0)=" ;;^DD(.84,3,21,3,0)"
^XMB(3.9,19,2,541,0)="""RTN"",""DINIT001"",153,0)"
^XMB(3.9,19,2,542,0)=" ;;=be, for example, File or Field names.  This field should be set to YES if"
^XMB(3.9,19,2,543,0)="""RTN"",""DINIT001"",154,0)"
^XMB(3.9,19,2,544,0)=" ;;^DD(.84,3,21,4,0)"
^XMB(3.9,19,2,545,0)="""RTN"",""DINIT001"",155,0)"
^XMB(3.9,19,2,546,0)=" ;;=any internal parameters need to be inserted into the TEXT.  If the field"
^XMB(3.9,19,2,547,0)="""RTN"",""DINIT001"",156,0)"
^XMB(3.9,19,2,548,0)=" ;;^DD(.84,3,21,5,0)"
^XMB(3.9,19,2,549,0)="""RTN"",""DINIT001"",157,0)"
^XMB(3.9,19,2,550,0)=" ;;=is not set to YES, the DIALOG routine will not go through the part of the"
^XMB(3.9,19,2,551,0)="""RTN"",""DINIT001"",158,0)"
^XMB(3.9,19,2,552,0)=" ;;^DD(.84,3,21,6,0)"
^XMB(3.9,19,2,553,0)="""RTN"",""DINIT001"",159,0)"
^XMB(3.9,19,2,554,0)=" ;;=code that stuffs the internal parameters into the text."
^XMB(3.9,19,2,555,0)="""RTN"",""DINIT001"",160,0)"
^XMB(3.9,19,2,556,0)=" ;;^DD(.84,3,""DT"")"
^XMB(3.9,19,2,557,0)="""RTN"",""DINIT001"",161,0)"
^XMB(3.9,19,2,558,0)=" ;;=2931105"
^XMB(3.9,19,2,559,0)="""RTN"",""DINIT001"",162,0)"
^XMB(3.9,19,2,560,0)=" ;;^DD(.84,4,0)"
^XMB(3.9,19,2,561,0)="""RTN"",""DINIT001"",163,0)"
^XMB(3.9,19,2,562,0)=" ;;=TEXT^.844^^2;0"
^XMB(3.9,19,2,563,0)="""RTN"",""DINIT001"",164,0)"
^XMB(3.9,19,2,564,0)=" ;;^DD(.84,4,21,0)"
^XMB(3.9,19,2,565,0)="""RTN"",""DINIT001"",165,0)"
^XMB(3.9,19,2,566,0)=" ;;=^^7^7^2941122^"
^XMB(3.9,19,2,567,0)="""RTN"",""DINIT001"",166,0)"
^XMB(3.9,19,2,568,0)=" ;;^DD(.84,4,21,1,0)"
^XMB(3.9,19,2,569,0)="""RTN"",""DINIT001"",167,0)"
^XMB(3.9,19,2,570,0)=" ;;=Actual text of the message.  If parameters (variable pieces of text) are"
^XMB(3.9,19,2,571,0)="""RTN"",""DINIT001"",168,0)"
^XMB(3.9,19,2,572,0)=" ;;^DD(.84,4,21,2,0)"
^XMB(3.9,19,2,573,0)="""RTN"",""DINIT001"",169,0)"
^XMB(3.9,19,2,574,0)=" ;;=to be inserted into the dialogue when the message is built, the parameter"
^XMB(3.9,19,2,575,0)="""RTN"",""DINIT001"",170,0)"
^XMB(3.9,19,2,576,0)=" ;;^DD(.84,4,21,3,0)"
^XMB(3.9,19,2,577,0)="""RTN"",""DINIT001"",171,0)"
^XMB(3.9,19,2,578,0)=" ;;=will appear as a 'window' in this TEXT field, surrounded by vertical bars."
^XMB(3.9,19,2,579,0)="""RTN"",""DINIT001"",172,0)"
^XMB(3.9,19,2,580,0)=" ;;^DD(.84,4,21,4,0)"
^XMB(3.9,19,2,581,0)="""RTN"",""DINIT001"",173,0)"
^XMB(3.9,19,2,582,0)=" ;;=The data within the 'window' will represent a subscript of the input"
^XMB(3.9,19,2,583,0)="""RTN"",""DINIT001"",174,0)"
^XMB(3.9,19,2,584,0)=" ;;^DD(.84,4,21,5,0)"
^XMB(3.9,19,2,585,0)="""RTN"",""DINIT001"",175,0)"
^XMB(3.9,19,2,586,0)=" ;;=parameter list that is passed to BLD^DIALOG or $$EZBLD^DIALOG when"
^XMB(3.9,19,2,587,0)="""RTN"",""DINIT001"",176,0)"
^XMB(3.9,19,2,588,0)=" ;;^DD(.84,4,21,6,0)"
^XMB(3.9,19,2,589,0)="""RTN"",""DINIT001"",177,0)"
^XMB(3.9,19,2,590,0)=" ;;=building the message. This same subscript should be used as the .01 of the"
^XMB(3.9,19,2,591,0)="""RTN"",""DINIT001"",178,0)"
^XMB(3.9,19,2,592,0)=" ;;^DD(.84,4,21,7,0)"
^XMB(3.9,19,2,593,0)="""RTN"",""DINIT001"",179,0)"
^XMB(3.9,19,2,594,0)=" ;;=PARAMETER field in this file to document the parameter."
^XMB(3.9,19,2,595,0)="""RTN"",""DINIT001"",180,0)"
^XMB(3.9,19,2,596,0)=" ;;^DD(.84,5,0)"
^XMB(3.9,19,2,597,0)="""RTN"",""DINIT001"",181,0)"
^XMB(3.9,19,2,598,0)=" ;;=PARAMETER^.845^^3;0"
^XMB(3.9,19,2,599,0)="""RTN"",""DINIT001"",182,0)"
^XMB(3.9,19,2,600,0)=" ;;^DD(.84,6,0)"
^XMB(3.9,19,2,601,0)="""RTN"",""DINIT001"",183,0)"
^XMB(3.9,19,2,602,0)=" ;;=POST MESSAGE ACTION^K^^6;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^XMB(3.9,19,2,603,0)="""RTN"",""DINIT001"",184,0)"
^XMB(3.9,19,2,604,0)=" ;;^DD(.84,6,3)"
^XMB(3.9,19,2,605,0)="""RTN"",""DINIT001"",185,0)"
^XMB(3.9,19,2,606,0)=" ;;=This is Standard MUMPS code.  This code will be executed whenever this message is retrieved through a call to BLD^DIALOG or $$EZBLD^DIALOG."
^XMB(3.9,19,2,607,0)="""RTN"",""DINIT001"",186,0)"
^XMB(3.9,19,2,608,0)=" ;;^DD(.84,6,9)"
^XMB(3.9,19,2,609,0)="""RTN"",""DINIT001"",187,0)"
^XMB(3.9,19,2,610,0)=" ;;=@"
^XMB(3.9,19,2,611,0)="""RTN"",""DINIT001"",188,0)"
^XMB(3.9,19,2,612,0)=" ;;^DD(.84,6,21,0)"
^XMB(3.9,19,2,613,0)="""RTN"",""DINIT001"",189,0)"
^XMB(3.9,19,2,614,0)=" ;;=^^6^6^2941122^"
^XMB(3.9,19,2,615,0)="""RTN"",""DINIT001"",190,0)"
^XMB(3.9,19,2,616,0)=" ;;^DD(.84,6,21,1,0)"
^XMB(3.9,19,2,617,0)="""RTN"",""DINIT001"",191,0)"
^XMB(3.9,19,2,618,0)=" ;;=If some special action should be taken whenever this message is built,"
^XMB(3.9,19,2,619,0)="""RTN"",""DINIT001"",192,0)"
^XMB(3.9,19,2,620,0)=" ;;^DD(.84,6,21,2,0)"
^XMB(3.9,19,2,621,0)="""RTN"",""DINIT001"",193,0)"
^XMB(3.9,19,2,622,0)=" ;;=MUMPS code can be entered here.  This code will be executed by the"
^XMB(3.9,19,2,623,0)="""RTN"",""DINIT001"",194,0)"
^XMB(3.9,19,2,624,0)=" ;;^DD(.84,6,21,3,0)"
^XMB(3.9,19,2,625,0)="""RTN"",""DINIT001"",195,0)"
^XMB(3.9,19,2,626,0)=" ;;=BLD^DIALOG or $$EZBLD^DIALOG routines, immediately after the message text"
^XMB(3.9,19,2,627,0)="""RTN"",""DINIT001"",196,0)"
^XMB(3.9,19,2,628,0)=" ;;^DD(.84,6,21,4,0)"
^XMB(3.9,19,2,629,0)="""RTN"",""DINIT001"",197,0)"
^XMB(3.9,19,2,630,0)=" ;;=has been built in the output array.  For example, the code could set a"
^XMB(3.9,19,2,631,0)="""VER"")"
^XMB(3.9,19,2,632,0)="8^22.0"
^XMB(3.9,19,2,633,0)="""^DD"",.84,.84,.01,0)"
^XMB(3.9,19,2,634,0)="DIALOG NUMBER^RNJ14,3X^^0;1^K:+X'=X!(X>9999999999.999)!(('$G(DIFROM))&(X<10000.001))!(X?.E1"".""4N.N) X S:$G(X) DINUM=X"
^XMB(3.9,19,2,635,0)="""^DD"",.84,.84,.01,1,0)"
^XMB(3.9,19,2,636,0)="^.1"
^XMB(3.9,19,2,637,0)="""^DD"",.84,.84,.01,1,1,0)"
^XMB(3.9,19,2,638,0)=".84^B"
^XMB(3.9,19,2,639,0)="""^DD"",.84,.84,.01,1,1,1)"
^XMB(3.9,19,2,640,0)="S ^DI(.84,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,19,2,641,0)="""^DD"",.84,.84,.01,1,1,2)"
^XMB(3.9,19,2,642,0)="K ^DI(.84,""B"",$E(X,1,30),DA)"
^XMB(3.9,19,2,643,0)="""^DD"",.84,.84,.01,3)"
^XMB(3.9,19,2,644,0)="Type a Number between 10000.001 and 9999999999.999, up to 3 Decimal Digits"
^XMB(3.9,19,2,645,0)="""^DD"",.84,.84,.01,21,0)"
^XMB(3.9,19,2,646,0)="^.001^1^1^3060822^^"
^XMB(3.9,19,2,647,0)="""^DD"",.84,.84,.01,21,1,0)"
^XMB(3.9,19,2,648,0)="The dialogue number is used to uniquely identify a message."
^XMB(3.9,19,2,649,0)="""^DD"",.84,.84,.01,""DT"")"
^XMB(3.9,19,2,650,0)="3060822"
^XMB(3.9,19,2,651,0)="""BLD"",587,6)"
^XMB(3.9,19,2,652,0)="^132"
^XMB(3.9,19,2,653,0)="$END KID DI*22.0*150"
^XMB(3.9,19,6,0)="^3.911A^2^2"
^XMB(3.9,19,6,1,0)="POSTMASTER"
^XMB(3.9,19,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,19,6,"B","POSTMASTER",1)=""
^XMB(3.9,19,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,20,0)="DVB-4_SEQ-54_PAT-56.KID^.5^3061008.015731^^^^K"
^XMB(3.9,20,.6)="3061008"
^XMB(3.9,20,1,0)="^3.91A^2^2"
^XMB(3.9,20,1,1,0)=".5^0^3061008.015731^^^^^^^3061008.015731"
^XMB(3.9,20,1,2,0)="1^0^3061008.023008^^^^^^^3061008.023008"
^XMB(3.9,20,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,20,1,"C",.5,1)=""
^XMB(3.9,20,1,"C",1,2)=""
^XMB(3.9,20,2,0)="^^1491^1491^3061008"
^XMB(3.9,20,2,1,0)="$TXT Released DVB*4*56 SEQ #54"
^XMB(3.9,20,2,2,0)="Extracted from mail message"
^XMB(3.9,20,2,3,0)="$END TXT"
^XMB(3.9,20,2,4,0)="$KID DVB*4.0*56"
^XMB(3.9,20,2,5,0)="**INSTALL NAME**"
^XMB(3.9,20,2,6,0)="DVB*4.0*56"
^XMB(3.9,20,2,7,0)="""BLD"",5963,0)"
^XMB(3.9,20,2,8,0)="DVB*4.0*56^HINQ^0^3060807^y"
^XMB(3.9,20,2,9,0)="""BLD"",5963,4,0)"
^XMB(3.9,20,2,10,0)="^9.64PA^^"
^XMB(3.9,20,2,11,0)="""BLD"",5963,6)"
^XMB(3.9,20,2,12,0)="8^"
^XMB(3.9,20,2,13,0)="""BLD"",5963,""ABNS"",0)"
^XMB(3.9,20,2,14,0)="^9.66A^1^1"
^XMB(3.9,20,2,15,0)="""BLD"",5963,""ABNS"",1,0)"
^XMB(3.9,20,2,16,0)="DVB"
^XMB(3.9,20,2,17,0)="""BLD"",5963,""ABNS"",1,1,0)"
^XMB(3.9,20,2,18,0)="^9.661A^^"
^XMB(3.9,20,2,19,0)="""BLD"",5963,""ABNS"",""B"",""DVB"",1)"
^XMB(3.9,20,2,20,0)=""
^XMB(3.9,20,2,21,0)="""BLD"",5963,""ABPKG"")"
^XMB(3.9,20,2,22,0)="y^n"
^XMB(3.9,20,2,23,0)="""BLD"",5963,""KRN"",0)"
^XMB(3.9,20,2,24,0)="^9.67PA^8989.52^19"
^XMB(3.9,20,2,25,0)="""BLD"",5963,""KRN"",.4,0)"
^XMB(3.9,20,2,26,0)=".4"
^XMB(3.9,20,2,27,0)="""BLD"",5963,""KRN"",.401,0)"
^XMB(3.9,20,2,28,0)=".401"
^XMB(3.9,20,2,29,0)="""BLD"",5963,""KRN"",.402,0)"
^XMB(3.9,20,2,30,0)=".402"
^XMB(3.9,20,2,31,0)="""BLD"",5963,""KRN"",.402,""NM"",0)"
^XMB(3.9,20,2,32,0)="^9.68A^1^1"
^XMB(3.9,20,2,33,0)="""BLD"",5963,""KRN"",.402,""NM"",1,0)"
^XMB(3.9,20,2,34,0)="DVBHINQ UPDATE    FILE #2^2^0"
^XMB(3.9,20,2,35,0)="""BLD"",5963,""KRN"",.402,""NM"",""B"",""DVBHINQ UPDATE    FILE #2"",1)"
^XMB(3.9,20,2,36,0)=""
^XMB(3.9,20,2,37,0)="""BLD"",5963,""KRN"",.403,0)"
^XMB(3.9,20,2,38,0)=".403"
^XMB(3.9,20,2,39,0)="""BLD"",5963,""KRN"",.5,0)"
^XMB(3.9,20,2,40,0)=".5"
^XMB(3.9,20,2,41,0)="""BLD"",5963,""KRN"",.84,0)"
^XMB(3.9,20,2,42,0)=".84"
^XMB(3.9,20,2,43,0)="""BLD"",5963,""KRN"",3.6,0)"
^XMB(3.9,20,2,44,0)="3.6"
^XMB(3.9,20,2,45,0)="""BLD"",5963,""KRN"",3.8,0)"
^XMB(3.9,20,2,46,0)="3.8"
^XMB(3.9,20,2,47,0)="""BLD"",5963,""KRN"",9.2,0)"
^XMB(3.9,20,2,48,0)="9.2"
^XMB(3.9,20,2,49,0)="""BLD"",5963,""KRN"",9.8,0)"
^XMB(3.9,20,2,50,0)="9.8"
^XMB(3.9,20,2,51,0)="""BLD"",5963,""KRN"",9.8,""NM"",0)"
^XMB(3.9,20,2,52,0)="^9.68A^4^4"
^XMB(3.9,20,2,53,0)="""BLD"",5963,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,20,2,54,0)="DVBHQD1^^0^B77965596"
^XMB(3.9,20,2,55,0)="""BLD"",5963,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,20,2,56,0)="DVBHQUP^^0^B37378101"
^XMB(3.9,20,2,57,0)="""BLD"",5963,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,20,2,58,0)="DVBHS2^^0^B10150900"
^XMB(3.9,20,2,59,0)="""BLD"",5963,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,20,2,60,0)="DVBHT^^0^B27405943"
^XMB(3.9,20,2,61,0)="""BLD"",5963,""KRN"",9.8,""NM"",""B"",""DVBHQD1"",1)"
^XMB(3.9,20,2,62,0)=""
^XMB(3.9,20,2,63,0)="""BLD"",5963,""KRN"",9.8,""NM"",""B"",""DVBHQUP"",2)"
^XMB(3.9,20,2,64,0)=""
^XMB(3.9,20,2,65,0)="""BLD"",5963,""KRN"",9.8,""NM"",""B"",""DVBHS2"",3)"
^XMB(3.9,20,2,66,0)=""
^XMB(3.9,20,2,67,0)="""BLD"",5963,""KRN"",9.8,""NM"",""B"",""DVBHT"",4)"
^XMB(3.9,20,2,68,0)=""
^XMB(3.9,20,2,69,0)="""BLD"",5963,""KRN"",19,0)"
^XMB(3.9,20,2,70,0)="19"
^XMB(3.9,20,2,71,0)="""BLD"",5963,""KRN"",19.1,0)"
^XMB(3.9,20,2,72,0)="19.1"
^XMB(3.9,20,2,73,0)="""BLD"",5963,""KRN"",101,0)"
^XMB(3.9,20,2,74,0)="101"
^XMB(3.9,20,2,75,0)="""BLD"",5963,""KRN"",409.61,0)"
^XMB(3.9,20,2,76,0)="409.61"
^XMB(3.9,20,2,77,0)="""BLD"",5963,""KRN"",771,0)"
^XMB(3.9,20,2,78,0)="771"
^XMB(3.9,20,2,79,0)="""BLD"",5963,""KRN"",870,0)"
^XMB(3.9,20,2,80,0)="870"
^XMB(3.9,20,2,81,0)="""BLD"",5963,""KRN"",8989.51,0)"
^XMB(3.9,20,2,82,0)="8989.51"
^XMB(3.9,20,2,83,0)="""BLD"",5963,""KRN"",8989.52,0)"
^XMB(3.9,20,2,84,0)="8989.52"
^XMB(3.9,20,2,85,0)="""BLD"",5963,""KRN"",8994,0)"
^XMB(3.9,20,2,86,0)="8994"
^XMB(3.9,20,2,87,0)="""BLD"",5963,""KRN"",""B"",.4,.4)"
^XMB(3.9,20,2,88,0)=""
^XMB(3.9,20,2,89,0)="""BLD"",5963,""KRN"",""B"",.401,.401)"
^XMB(3.9,20,2,90,0)=""
^XMB(3.9,20,2,91,0)="""BLD"",5963,""KRN"",""B"",.402,.402)"
^XMB(3.9,20,2,92,0)=""
^XMB(3.9,20,2,93,0)="""BLD"",5963,""KRN"",""B"",.403,.403)"
^XMB(3.9,20,2,94,0)=""
^XMB(3.9,20,2,95,0)="""BLD"",5963,""KRN"",""B"",.5,.5)"
^XMB(3.9,20,2,96,0)=""
^XMB(3.9,20,2,97,0)="""BLD"",5963,""KRN"",""B"",.84,.84)"
^XMB(3.9,20,2,98,0)=""
^XMB(3.9,20,2,99,0)="""BLD"",5963,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,20,2,100,0)=""
^XMB(3.9,20,2,101,0)="""BLD"",5963,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,20,2,102,0)=""
^XMB(3.9,20,2,103,0)="""BLD"",5963,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,20,2,104,0)=""
^XMB(3.9,20,2,105,0)="""BLD"",5963,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,20,2,106,0)=""
^XMB(3.9,20,2,107,0)="""BLD"",5963,""KRN"",""B"",19,19)"
^XMB(3.9,20,2,108,0)=""
^XMB(3.9,20,2,109,0)="""BLD"",5963,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,20,2,110,0)=""
^XMB(3.9,20,2,111,0)="""BLD"",5963,""KRN"",""B"",101,101)"
^XMB(3.9,20,2,112,0)=""
^XMB(3.9,20,2,113,0)="""BLD"",5963,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,20,2,114,0)=""
^XMB(3.9,20,2,115,0)="""BLD"",5963,""KRN"",""B"",771,771)"
^XMB(3.9,20,2,116,0)=""
^XMB(3.9,20,2,117,0)="""BLD"",5963,""KRN"",""B"",870,870)"
^XMB(3.9,20,2,118,0)=""
^XMB(3.9,20,2,119,0)="""BLD"",5963,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,20,2,120,0)=""
^XMB(3.9,20,2,121,0)="""BLD"",5963,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,20,2,122,0)=""
^XMB(3.9,20,2,123,0)="""BLD"",5963,""KRN"",""B"",8994,8994)"
^XMB(3.9,20,2,124,0)=""
^XMB(3.9,20,2,125,0)="""BLD"",5963,""QUES"",0)"
^XMB(3.9,20,2,126,0)="^9.62^^"
^XMB(3.9,20,2,127,0)="""BLD"",5963,""REQB"",0)"
^XMB(3.9,20,2,128,0)="^9.611^1^1"
^XMB(3.9,20,2,129,0)="""BLD"",5963,""REQB"",1,0)"
^XMB(3.9,20,2,130,0)="DVB*4.0*57^2"
^XMB(3.9,20,2,131,0)="""BLD"",5963,""REQB"",""B"",""DVB*4.0*57"",1)"
^XMB(3.9,20,2,132,0)=""
^XMB(3.9,20,2,133,0)="""KRN"",.402,651,-1)"
^XMB(3.9,20,2,134,0)="0^1"
^XMB(3.9,20,2,135,0)="""KRN"",.402,651,0)"
^XMB(3.9,20,2,136,0)="DVBHINQ UPDATE^3060308.0827^^2^^^3060802"
^XMB(3.9,20,2,137,0)="""KRN"",.402,651,""AR"",2,303)"
^XMB(3.9,20,2,138,0)="1^DVBHCE34"
^XMB(3.9,20,2,139,0)="""KRN"",.402,651,""AR"",2,634)"
^XMB(3.9,20,2,140,0)="2^DVBHCE34"
^XMB(3.9,20,2,141,0)="""KRN"",.402,651,""AR"",2,635)"
^XMB(3.9,20,2,142,0)="3^DVBHCE34"
^XMB(3.9,20,2,143,0)="""KRN"",.402,651,""AR"",2,636)"
^XMB(3.9,20,2,144,0)="4^DVBHCE34"
^XMB(3.9,20,2,145,0)="""KRN"",.402,651,""DIAB"",1,0,2,7)"
^XMB(3.9,20,2,146,0)=".32945;Service NNTL Episode"
^XMB(3.9,20,2,147,0)="""KRN"",.402,651,""DIAB"",1,0,2,9)"
^XMB(3.9,20,2,148,0)=".306//""TODAY"""
^XMB(3.9,20,2,149,0)="""KRN"",.402,651,""DIAB"",2,0,2,4)"
^XMB(3.9,20,2,150,0)="SERVICE ENTRY DATE [NTL];""NTL-EOD"""
^XMB(3.9,20,2,151,0)="""KRN"",.402,651,""DIAB"",3,0,2,1)"
^XMB(3.9,20,2,152,0)="SERVICE ENTRY DATE [LAST];""L-EOD"""
^XMB(3.9,20,2,153,0)="""KRN"",.402,651,""DIAB"",3,0,2,3)"
^XMB(3.9,20,2,154,0)=".3285;Service NTL Episode"
^XMB(3.9,20,2,155,0)="""KRN"",.402,651,""DIAB"",3,0,2,4)"
^XMB(3.9,20,2,156,0)="SERVICE SEPARATION DATE [NTL];""NTL-RAD"""
^XMB(3.9,20,2,157,0)="""KRN"",.402,651,""DIAB"",3,0,2,7)"
^XMB(3.9,20,2,158,0)="SERVICE ENTRY DATE [NNTL];""NNTL-EOD"""
^XMB(3.9,20,2,159,0)="""KRN"",.402,651,""DIAB"",4,0,2,1)"
^XMB(3.9,20,2,160,0)="SERVICE SEPARATION DATE [LAST];""L-RAD"";C15"
^XMB(3.9,20,2,161,0)="""KRN"",.402,651,""DIAB"",4,0,2,4)"
^XMB(3.9,20,2,162,0)="SERVICE BRANCH [NTL];""NTL-Bran. Ser."""
^XMB(3.9,20,2,163,0)="""KRN"",.402,651,""DIAB"",4,0,2,7)"
^XMB(3.9,20,2,164,0)="SERVICE SEPARATION DATE [NNTL];""NNTL-RAD"""
^XMB(3.9,20,2,165,0)="""KRN"",.402,651,""DIAB"",5,0,2,1)"
^XMB(3.9,20,2,166,0)="SERVICE BRANCH [LAST];L-Bran.. Ser."
^XMB(3.9,20,2,167,0)="""KRN"",.402,651,""DIAB"",5,0,2,4)"
^XMB(3.9,20,2,168,0)="SERVICE DISCHARGE TYPE [NTL];""NTL-Char. Ser."""
^XMB(3.9,20,2,169,0)="""KRN"",.402,651,""DIAB"",5,0,2,7)"
^XMB(3.9,20,2,170,0)="SERVICE BRANCH [NNTL];""NNTL-Bran. Ser."""
^XMB(3.9,20,2,171,0)="""KRN"",.402,651,""DIAB"",6,0,2,4)"
^XMB(3.9,20,2,172,0)="SERVICE NUMBER [NTL];""NTL-Ser. Num."""
^XMB(3.9,20,2,173,0)="""KRN"",.402,651,""DIAB"",6,0,2,7)"
^XMB(3.9,20,2,174,0)="SERVICE DISCHARGE TYPE [NNTL];""NNTL-Char. Ser."""
^XMB(3.9,20,2,175,0)="""KRN"",.402,651,""DIAB"",7,0,2,1)"
^XMB(3.9,20,2,176,0)="SERVICE DISCHARGE TYPE [LAST];L-Char. Ser."
^XMB(3.9,20,2,177,0)="""KRN"",.402,651,""DIAB"",7,0,2,7)"
^XMB(3.9,20,2,178,0)="SERVICE NUMBER [NNTL];""NNTL-Ser. Num."""
^XMB(3.9,20,2,179,0)="""KRN"",.402,651,""DIAB"",8,0,2,1)"
^XMB(3.9,20,2,180,0)="SERVICE NUMBER [LAST];L-Ser. Num."
^XMB(3.9,20,2,181,0)="""KRN"",.402,651,""DIAB"",13,0,2,8)"
^XMB(3.9,20,2,182,0)=".3612//""TODAY"""
^XMB(3.9,20,2,183,0)="""KRN"",.402,651,""DR"",1,2)"
^XMB(3.9,20,2,184,0)="@101;W @$S('$D(IOF):""#"",IOF="""":""#"",1:IOF),! K ^UTILITY($J) D ^DVBHSVER;@7;D Q^DVBHUTIL;S DIE(""NO^"")="""";@1001;D ^DVBHS1 S Y=""@5"";@1;D ^DVBHS2 S Y=""@5"" W !;@2;D ^DVBHS3 S Y=""@5"";@3;D ^DVBHS4 S Y=""@5"";@1006;@30;I Z2'[1 S Y=""@32"";"
^XMB(3.9,20,2,185,0)="""KRN"",.402,651,""DR"",1,2,1)"
^XMB(3.9,20,2,186,0)="S DVBSCR=1 D ^DVBHS4 W !,?34,DVBON,""[LAST]"",DVBOFF X DVBLIT1;S DVBJC=$S('$D(^DPT(DFN,.32)):"""",1:$P(^(0),U,5));.326L-EOD~;.327C15~L-RAD~;.325L-Bran.. Ser.~;I X'=DVBJC S DVBJ2=1;.324L-Char. Ser.~;.328L-Ser. Num.~;@32;"
^XMB(3.9,20,2,187,0)="""KRN"",.402,651,""DR"",1,2,2)"
^XMB(3.9,20,2,188,0)="I Z2'[2 S Y=""@31"";I '$D(^DPT(D0,.32)) W !!,*7,?17,DVBON,""No Last episode can't edit NTLast   <RET>"",DVBOFF X DVBLIT1 R DVBZ:DTIME K DVBZ S Y=""@33"";"
^XMB(3.9,20,2,189,0)="""KRN"",.402,651,""DR"",1,2,3)"
^XMB(3.9,20,2,190,0)="I $P(^DPT(D0,.32),U,6)="""" W !!,*7,?17,DVBON,""No last episode can't edit NTLast   <RET>"",DVBOFF X DVBLIT1 R DVBZ:DTIME K DVBZ S Y=""@33"";S DVBSCR=1 D ^DVBHS4 W !,?34,DVBON,""[NTLAST]"",DVBOFF X DVBLIT1;.3285Service NTL Episode~;"
^XMB(3.9,20,2,191,0)="""KRN"",.402,651,""DR"",1,2,4)"
^XMB(3.9,20,2,192,0)="I $P(^DPT(D0,.32),U,19)'=""Y"" S Y=""@31"";.3292NTL-EOD~;.3293NTL-RAD~;.3291NTL-Bran. Ser.~;.329NTL-Char. Ser.~;.3294NTL-Ser. Num.~;@31;I Z2'[3 S Y=""@33"";"
^XMB(3.9,20,2,193,0)="""KRN"",.402,651,""DR"",1,2,5)"
^XMB(3.9,20,2,194,0)="I '$D(^DPT(D0,.32)) W !!,*7,?17,DVBON,""No NTLast episode can't edit NNTLast   <RET>"",DVBOFF X DVBLIT1 R DVBZ:DTIME K DVBZ S Y=""@33"";"
^XMB(3.9,20,2,195,0)="""KRN"",.402,651,""DR"",1,2,6)"
^XMB(3.9,20,2,196,0)="I $P(^DPT(D0,.32),U,19)'=""Y"" W !!,*7,?17,DVBON,""No NTLast episode can't edit NNTLast   <RET>."",DVBOFF X DVBLIT1 R DVBZ:DTIME K DVBZ S Y=""@33"";S DVBSCR=1 D ^DVBHS4 W !,?34,DVBON,""[NNTLAST]"",DVBOFF X DVBLIT1;"
^XMB(3.9,20,2,197,0)="""KRN"",.402,651,""DR"",1,2,7)"
^XMB(3.9,20,2,198,0)=".32945Service NNTL Episode~;I $P(^DPT(D0,.32),U,20)'=""Y"" S Y=""@33"";.3297NNTL-EOD~;.3298NNTL-RAD~;.3296NNTL-Bran. Ser.~;.3295NNTL-Char. Ser.~;.3299NNTL-Ser. Num.~;@33;I Z2'[4 S Y=""@3"";S DVBSCR=1 D ^DVBHS4;"
^XMB(3.9,20,2,199,0)="""KRN"",.402,651,""DR"",1,2,8)"
^XMB(3.9,20,2,200,0)="S DVBJC2=$S($D(^DPT(D0,.32)):$P(^(.32),U,3),1:"""");.323;I X'=DVBJC2 S DVBJ2=1;K DVBJC2;S Y=""@3"";@104;D ^DVBHS5 S Y=""@5"" K DXS;@204;I Z2'[1 S Y=""@205"";S DVBSCR=1 D ^DVBHS5 S DVBJ2=1;.3611;Q;.3612//^S X=""TODAY"";.3615//^S X=""HINQ"";Q;"
^XMB(3.9,20,2,201,0)="""KRN"",.402,651,""DR"",1,2,9)"
^XMB(3.9,20,2,202,0)=".306//^S X=""TODAY"";361;@205;I Z2'[2 S Y=""@206"";S DVBSCR=1 D ^DVBHS5 S DVBJ2=1;391;1901;.301;I X=""N"" S Y=""@2063"";@2063;.361;@206;I Z2'[3 S Y=""@104"";S DVBSCR=1 D ^DVBHS5 S DVBJ2=1;.36205;.36215;.36235;.3025;.36295;@2062;S Y=""@104"";"
^XMB(3.9,20,2,203,0)="""KRN"",.402,651,""DR"",1,2,10)"
^XMB(3.9,20,2,204,0)="@11;S DVBJ2=1;.111;.112;.113;.114;.115;.1112;.117;S Y=""@1001"";@5;D SCRQ^DVBHUTIL;@6;D B^DVBHQEDT R AA:DTIME K AA S Y=$S(DVBJS=11:""@1001"",DVBJS=28:""@1"",DVBJS=35:""@2"",DVBJS=44:""@3"",DVBJS=53:""@104"",1:""@10"");@8;"
^XMB(3.9,20,2,205,0)="""KRN"",.402,651,""DR"",1,2,11)"
^XMB(3.9,20,2,206,0)="S Y=$S(ANS=""^0"":""@101"",ANS=""^1"":""@1001"",ANS=""^2"":""@1"",ANS=""^3"":""@2"",ANS=""^4"":""@3"",ANS=""^5"":""@104"",1:Y) I Y[""@"" W @$S('$D(IOF):""#"",IOF="""":""#"",1:IOF);"
^XMB(3.9,20,2,207,0)="""KRN"",.402,651,""DR"",1,2,12)"
^XMB(3.9,20,2,208,0)="D A^DVBHQEDT S Z2=Z I ERROR K ERROR S Y=$S(DVBJS=11:""@1001"",DVBJS=28:""@1"",DVBJS=35:""@2"",DVBJS=44:""@3"",DVBJS=53:""@104"",1:""@10"");@20;S JP=1,Y=$S(DVBJS=11:""@11"",DVBJS=35:""@40"",DVBJS=44:""@30"",DVBJS=53:""@204"",1:Y);@21;"
^XMB(3.9,20,2,209,0)="""KRN"",.402,651,""DR"",1,2,13)"
^XMB(3.9,20,2,210,0)="I $P(Z2,U,JP)'=1 S Y=""@22"";I '$D(DVBCN) S Y=""@22"",JP=JP+1;I 'DVBCN S Y=""@22"",JP=JP+1;S DVBCN=$TR(DVBCN,"" "");"
^XMB(3.9,20,2,211,0)="""KRN"",.402,651,""DR"",1,2,14)"
^XMB(3.9,20,2,212,0)="I $L(DVBCN)=9,(DVBCN?9N),(DVBCN'=$P(^DPT(D0,0),U,9)) W !!,*7,""HINQ claim # is a SSN, does not match patient file SSN  NO UPDATING claim #"" R !,?25,""<RET to continue>"",DVBQ:DTIME K DVBQ S Y=""@22"",JP=JP+1;.313///^S X=DVBCN;"
^XMB(3.9,20,2,213,0)="""KRN"",.402,651,""DR"",1,2,15)"
^XMB(3.9,20,2,214,0)="W ""."" S JP=JP+1,DVBJ2=1;@22;I $P(Z2,U,JP)'=2 S Y=""@225"";W !,""Date of Birth cannot be edited with this option."";H 1;W ""."" S JP=JP+1,DVBJ2=1;@225;I $P(Z2,U,JP)'=3 S Y=""@23"";W !,""Sex cannot be edited with this option."";H 1;"
^XMB(3.9,20,2,215,0)="""KRN"",.402,651,""DR"",1,2,16)"
^XMB(3.9,20,2,216,0)="W ""."" S JP=JP+1,DVBJ2=1;@23;I $P(Z2,U,JP)'=4 S Y=""@24"";K Z1 I $D(DVBP(6)),+$P(DVBP(6),U) S Z1=$P(DVBP(6),U),Z1=$E(Z1,1,2)_"" ""_$E(Z1,3,4)_"" ""_$E(Z1,5,8);"
^XMB(3.9,20,2,217,0)="""KRN"",.402,651,""DR"",1,2,17)"
^XMB(3.9,20,2,218,0)="I $D(DVBVET),$P(DVBVET,U,1)=""B"",+$P(DVBVET,U,12) S Z1=$P(DVBVET,U,12),Z1=$E(Z1,5,6)_"" ""_$E(Z1,7,8)_"" ""_$E(Z1,1,4);I '$D(Z1) S Y=""@24"",JP=JP+1;I 'Z1 S Y=""@24"",JP=JP+1;"
^XMB(3.9,20,2,219,0)="""KRN"",.402,651,""DR"",1,2,18)"
^XMB(3.9,20,2,220,0)="I $D(^DPT(D0,.105)) W !!,""Patient is currently in-house."" W !,""Discharge patient with a discharge type of DEATH."" R !,?25,""<RET to continue>"",DVBQ:DTIME K DVBQ S Y=""@24"",JP=JP+1;.351///^S X=Z1;W ""."" S JP=JP+1,DVBJ2=1;@24;"
^XMB(3.9,20,2,221,0)="""KRN"",.402,651,""DR"",1,2,19)"
^XMB(3.9,20,2,222,0)="I $P(Z2,U,JP)'=5 S Y=""@25"";K DVBSICK I $D(DVBP(6)) S DVBSICK=$P(DVBP(6),U,7);I $D(DVBCI) S DVBSICK=DVBCI;I '$D(DVBSICK) S Y=""@25"",JP=JP+1;.293///^S X=$S((DVBSICK=""I"")!(DVBSICK=""Y""):1,1:0);W ""."" S JP=JP+1,DVBJ2=1 K DVBSICK;@25;"
^XMB(3.9,20,2,223,0)="""KRN"",.402,651,""DR"",1,2,20)"
^XMB(3.9,20,2,224,0)="I $P(Z2,U,JP)'=6 S Y=""@26"";I '$D(DVBPOW),'$D(DVBPOWD) S Y=""@26"",JP=JP+1;I '$D(DVBPOW),$D(DVBPOWD),+DVBPOWD W !!,*7,?17,DVBON,""POW Indicator Discrepancy!  <RET>"",DVBOFF X DVBLIT1 R DVBZ:DTIME K DVBZ S JP=JP+1,Y=""@26"";"
^XMB(3.9,20,2,225,0)="""KRN"",.402,651,""DR"",1,2,21)"
^XMB(3.9,20,2,226,0)="I '$D(DVBPOW),'+DVBPOWD S Y=""@26"",JP=JP+1;I '$D(DVBPOWD),$D(DVBPOW),DVBPOW>0 W !!,*7,?17,DVBON,""POW Indicator Discrepancy!  <RET>"",DVBOFF X DVBLIT1 R DVBZ:DTIME K DVBZ S JP=JP+1,Y=""@26"";"
^XMB(3.9,20,2,227,0)="""KRN"",.402,651,""DR"",1,2,22)"
^XMB(3.9,20,2,228,0)="I $D(DVBPOWD),$D(DVBPOW),DVBPOWD=0,DVBPOW>0 W !!,*7,?17,DVBON,""POW Indicator Discrepancy!  <RET>"",DVBOFF X DVBLIT1 R DVBZ:DTIME K DVBZ S JP=JP+1,Y=""@26"";"
^XMB(3.9,20,2,229,0)="""KRN"",.402,651,""DR"",1,2,23)"
^XMB(3.9,20,2,230,0)="I $D(DVBPOWD),$D(DVBPOW),+DVBPOW<1,+DVBPOWD W !!,*7,?17,DVBON,""POW Indicator Discrepancy!  <RET>"",DVBOFF X DVBLIT1 R DVBZ:DTIME K DVBZ S JP=JP+1,Y=""@26"";D POW^DVBHUTIL;.525///^S X=DVBPOW1;K DVBPOW1 W ""."" S JP=JP+1,DVBJ2=1;@26;"
^XMB(3.9,20,2,231,0)="""KRN"",.402,651,""DR"",1,2,24)"
^XMB(3.9,20,2,232,0)="I $P(Z2,U,JP)'=7 S Y=""@27"";I '$D(DVBFL) S Y=""@27"",JP=JP+1;I DVBFL']"""" S Y=""@27"",JP=JP+1;I DVBFL'?3N1"" - ""1U.E S Y=""@27"",JP=JP+1;.314///^S X=+DVBFL;W ""."" S JP=JP+1,DVBJ2=1;@27;I $P(Z2,U,JP)'=8 S Y=""@50"";"
^XMB(3.9,20,2,233,0)="""KRN"",.402,651,""DR"",1,2,25)"
^XMB(3.9,20,2,234,0)="I '$D(DVBEI) S Y=""@50"",JP=JP+1;.305///^S X=$S(DVBEI=""Y"":""Y"",1:""N"");W ""."" S JP=JP+1,DVBJ2=1;S Y=""@50"";@40;I $P(Z2,U,JP)'=1 S Y=""@42"";I '$D(DVBP(6)) S Y=""@42"",JP=JP+1;"
^XMB(3.9,20,2,235,0)="""KRN"",.402,651,""DR"",1,2,26)"
^XMB(3.9,20,2,236,0)="I $S($P(DVBP(6),U,8)'=""Y"":1,'$D(^DPT(DFN,.32)):1,+$P(^(0),U,2):1,1:0) S Y=""@42"",JP=JP+1;.322///^S X=""T"";W ""."" S JP=JP+1,DVBJ2=1;@42;I $P(Z2,U,JP)'=2 S Y=""@45"";I '$D(DVBP(6)) S Y=""@45"",JP=JP+1;"
^XMB(3.9,20,2,237,0)="""KRN"",.402,651,""DR"",1,2,27)"
^XMB(3.9,20,2,238,0)="I $P(DVBP(6),U,4)["" "" S Y=""@45"",JP=JP+1;.32101///^S X=$P(DVBP(6),U,4);W ""."" S JP=JP+1,DVBJ2=1;@45;I $P(Z2,U,JP)'=3!('$D(DVBDX(1))) S Y=""@50"";S:'$D(DVBFL) DVBFL=""UNKNOWN"";"
^XMB(3.9,20,2,239,0)="""KRN"",.402,651,""DR"",1,2,28)"
^XMB(3.9,20,2,240,0)="I $D(DVBCAP),DVBCAP[""No C&P"",$P(DVBBIR,U,5)'=""Y"" D CHK^DVBHUTIL;@47;"
^XMB(3.9,20,2,241,0)="""KRN"",.402,651,""DR"",1,2,29)"
^XMB(3.9,20,2,242,0)="S DVB4=$S($D(^DPT(DFN,.3))>0:$P(^(.3),U),1:0),DVB5=$S($D(^DPT(DFN,.36))>0:$P(^(.36),U),1:0),DVB6=$S($D(^DPT(DFN,""VET""))>0:^(""VET""),1:0),DVB7=$S($D(^DPT(DFN,""TYPE""))>0:^(""TYPE""),1:0);"
^XMB(3.9,20,2,243,0)="""KRN"",.402,651,""DR"",1,2,30)"
^XMB(3.9,20,2,244,0)="S DVB8=$O(^DIC(8,""B"",""SERVICE CONNECTED 50% to 100%"",0)),DVB9=$O(^DIC(8,""B"",""SC LESS THAN 50%"",0));I DVBDXNO I ((DVB8'=DVB5&(DVB9'=DVB5))!(DVB4'=""Y"")!(DVB6'=""Y"")!(DVB7'=1)) S Y=""@70"";"
^XMB(3.9,20,2,245,0)="""KRN"",.402,651,""DR"",1,2,31)"
^XMB(3.9,20,2,246,0)="W ! K ^DPT(DFN,.372),JP4,JP6 S ^DPT(DFN,.372,0)=""^2.04P^^0"",JP=0;S $P(^DPT(DFN,.3),U,2)="""",$P(^DPT(DFN,.3),U,14)="""";.302///^S X=+$G(DVBDXPCT);.3014///^S X=$G(DVBEFF);@46;S JP=$O(DVBDX(JP)) I 'JP S Y=""@50"";"
^XMB(3.9,20,2,247,0)="""KRN"",.402,651,""DR"",1,2,32)"
^XMB(3.9,20,2,248,0)="S JPP=+$P(DVBDX(JP),U,2) I JPP'>0 S Y=""@46"";I '$D(^DIC(31,JPP)) D CHKDIS^DVBHS3 S Y=""@46"";.3721///^S X=""""""`""_$P(DVBDX(JP),U,2)_"""""""";W ""."" S DVBJ2=1;S Y=""@46"";@61;S Y=""@4"";I Z2'[1 S Y=""@62"";I '$D(DVBSSA) S Y=""@62"",JP=JP+1;"
^XMB(3.9,20,2,249,0)="""KRN"",.402,651,""DR"",1,2,33)"
^XMB(3.9,20,2,250,0)="I DVBSSA S DVBYN=""Y"",DVBXYN=DVBSSA;I 'DVBSSA S DVBYN=""N"",DVBXYN="""";.36225///^S X=DVBYN;W ""."" S JP=JP+1,DVBJ2=1 K DVBYN,DVBXYN;@62;I Z2'[2 S Y=""@63"";I '$D(DVBRETT) S Y=""@63"",JP=JP+1;"
^XMB(3.9,20,2,251,0)="""KRN"",.402,651,""DR"",1,2,34)"
^XMB(3.9,20,2,252,0)="I DVBRETT=""""!(""BMCROX""'[DVBRETT) S Y=""@63"",JP=JP+1;.36285///^S X=DVBRETT;W ""."" S JP=JP+1,DVBJ2=1;@63;I Z2'[3 S Y=""@64"";I '$D(DVBRETO) S Y=""@64"",JP=JP+1;S X=DVBRETO I X=""""!(X=0) S X=""@"";.3628///^S X=X;W ""."" S JP=JP+1,DVBJ2=1;@64;"
^XMB(3.9,20,2,253,0)="""KRN"",.402,651,""DR"",1,2,35)"
^XMB(3.9,20,2,254,0)="I Z2'[4 S Y=""@1006"";I '$D(DVBOINC) S Y=""@1006"",JP=JP+1;S X=DVBOINC I X=""""!(X=0) S X=""@"";.3629///^S X=X;W ""."" S JP=JP+1,DVBJ2=1,Y=""@1006"";@4;S Y=$S(DVBJS=11:""@1"",DVBJS=28:""@2"",DVBJS=35:""@3"",DVBJS=44:""@104"",1:""@10"");@70;"
^XMB(3.9,20,2,255,0)="""KRN"",.402,651,""DR"",1,2,36)"
^XMB(3.9,20,2,256,0)="W !!,*7,""HINQ contains SC disabilities, Patient is NSC no updating allowed.  Check       patient's SERVICE CONNECTION, ELIGIBILITY CODE, VET STATUS, or PATIENT TYPE.     Screen 5 contains this."";"
^XMB(3.9,20,2,257,0)="""KRN"",.402,651,""DR"",1,2,37)"
^XMB(3.9,20,2,258,0)="R !!,?25,""<RET> to continue."",ZZ:DTIME K ZZ,JP3,JP4;@50;K DVBJX,JP,JPP S Y=$S(DVBJS=28:""@1"",DVBJS=35:""@2"",1:""@10"");@10;I $G(DVBRADL)]"""" D DX^DVBHQEDT(DVBRADL);K DVBRADL;"
^XMB(3.9,20,2,259,0)="""KRN"",.402,651,""DR"",2,2.0361)"
^XMB(3.9,20,2,260,0)=".01;"
^XMB(3.9,20,2,261,0)="""KRN"",.402,651,""DR"",2,2.04)"
^XMB(3.9,20,2,262,0)="2///^S X=$S($P(DVBDX(JP),U,3)=""X0"":100,1:+$P(DVBDX(JP),U,3));3///^S X=1;4///^S X=$P($G(DVBDX(JP)),U,4);5///^S X=$P($G(DVBDX(JP)),U,5);6///^S X=$P($G(DVBDX(JP)),U,6);"
^XMB(3.9,20,2,263,0)="""KRN"",.402,651,""ROU"")"
^XMB(3.9,20,2,264,0)="^DVBHCE"
^XMB(3.9,20,2,265,0)="""KRN"",.402,651,""ROUOLD"")"
^XMB(3.9,20,2,266,0)="DVBHCE"
^XMB(3.9,20,2,267,0)="""MBREQ"")"
^XMB(3.9,20,2,268,0)="0"
^XMB(3.9,20,2,269,0)="""ORD"",7,.402)"
^XMB(3.9,20,2,270,0)=".402;7;;;EDEOUT^DIFROMSO(.402,DA,"""",XPDA);FPRE^DIFROMSI(.402,"""",XPDA);EPRE^DIFROMSI(.402,DA,$E(""N"",$G(XPDNEW)),XPDA,"""",OLDA);;EPOST^DIFROMSI(.402,DA,"""",XPDA);DEL^DIFROMSK(.402,"""",%)"
^XMB(3.9,20,2,271,0)="""ORD"",7,.402,0)"
^XMB(3.9,20,2,272,0)="INPUT TEMPLATE"
^XMB(3.9,20,2,273,0)="""PKG"",119,-1)"
^XMB(3.9,20,2,274,0)="1^1"
^XMB(3.9,20,2,275,0)="""PKG"",119,0)"
^XMB(3.9,20,2,276,0)="HINQ^DVB^HINQ(Hospital Inquiry)"
^XMB(3.9,20,2,277,0)="""PKG"",119,20,0)"
^XMB(3.9,20,2,278,0)="^9.402P^^"
^XMB(3.9,20,2,279,0)="""PKG"",119,22,0)"
^XMB(3.9,20,2,280,0)="^9.49I^1^1"
^XMB(3.9,20,2,281,0)="""PKG"",119,22,1,0)"
^XMB(3.9,20,2,282,0)="4.0^2920325^3030902"
^XMB(3.9,20,2,283,0)="""PKG"",119,22,1,""PAH"",1,0)"
^XMB(3.9,20,2,284,0)="56^3060807^83"
^XMB(3.9,20,2,285,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,20,2,286,0)="Y"
^XMB(3.9,20,2,287,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,20,2,288,0)="^D REP^XPDH"
^XMB(3.9,20,2,289,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,20,2,290,0)="Shall I write over your |FLAG| File"
^XMB(3.9,20,2,291,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,20,2,292,0)="YES"
^XMB(3.9,20,2,293,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,20,2,294,0)="D XPF1^XPDIQ"
^XMB(3.9,20,2,295,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,20,2,296,0)="Y"
^XMB(3.9,20,2,297,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,20,2,298,0)="^D DTA^XPDH"
^XMB(3.9,20,2,299,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,20,2,300,0)="Want my data |FLAG| yours"
^XMB(3.9,20,2,301,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,20,2,302,0)="YES"
^XMB(3.9,20,2,303,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,20,2,304,0)="D XPF2^XPDIQ"
^XMB(3.9,20,2,305,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,20,2,306,0)="YO"
^XMB(3.9,20,2,307,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,20,2,308,0)="^D INHIBIT^XPDH"
^XMB(3.9,20,2,309,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,20,2,310,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,20,2,311,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,20,2,312,0)="YES"
^XMB(3.9,20,2,313,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,20,2,314,0)="D XPI1^XPDIQ"
^XMB(3.9,20,2,315,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,20,2,316,0)="PO^VA(200,:EM"
^XMB(3.9,20,2,317,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,20,2,318,0)="^D MG^XPDH"
^XMB(3.9,20,2,319,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,20,2,320,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,20,2,321,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,20,2,322,0)=""
^XMB(3.9,20,2,323,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,20,2,324,0)="D XPM1^XPDIQ"
^XMB(3.9,20,2,325,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,20,2,326,0)="Y"
^XMB(3.9,20,2,327,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,20,2,328,0)="^D MENU^XPDH"
^XMB(3.9,20,2,329,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,20,2,330,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,20,2,331,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,20,2,332,0)="YES"
^XMB(3.9,20,2,333,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,20,2,334,0)="D XPO1^XPDIQ"
^XMB(3.9,20,2,335,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,20,2,336,0)="Y"
^XMB(3.9,20,2,337,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,20,2,338,0)="^D OPT^XPDH"
^XMB(3.9,20,2,339,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,20,2,340,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,20,2,341,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,20,2,342,0)="YES"
^XMB(3.9,20,2,343,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,20,2,344,0)="D XPZ1^XPDIQ"
^XMB(3.9,20,2,345,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,20,2,346,0)="Y"
^XMB(3.9,20,2,347,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,20,2,348,0)="^D RTN^XPDH"
^XMB(3.9,20,2,349,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,20,2,350,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,20,2,351,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,20,2,352,0)="NO"
^XMB(3.9,20,2,353,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,20,2,354,0)="D XPZ2^XPDIQ"
^XMB(3.9,20,2,355,0)="""RTN"")"
^XMB(3.9,20,2,356,0)="4"
^XMB(3.9,20,2,357,0)="""RTN"",""DVBHQD1"")"
^XMB(3.9,20,2,358,0)="0^1^B77965596^B24138320"
^XMB(3.9,20,2,359,0)="""RTN"",""DVBHQD1"",1,0)"
^XMB(3.9,20,2,360,0)="DVBHQD1 ;ISC-ALBANY/PKE/PHH- HINQ receiver ; 5/15/06 10:58am"
^XMB(3.9,20,2,361,0)="""RTN"",""DVBHQD1"",2,0)"
^XMB(3.9,20,2,362,0)=" ;;4.0;HINQ;**3,12,16,22,23,32,34,40,46,49,57,56**; 03/25/92 "
^XMB(3.9,20,2,363,0)="""RTN"",""DVBHQD1"",3,0)"
^XMB(3.9,20,2,364,0)=" ;"
^XMB(3.9,20,2,365,0)="""RTN"",""DVBHQD1"",4,0)"
^XMB(3.9,20,2,366,0)=" S:'$D(DTIME) DTIME=300 S DVBTIME=DTIME"
^XMB(3.9,20,2,367,0)="""RTN"",""DVBHQD1"",5,0)"
^XMB(3.9,20,2,368,0)="EN S:$G(IO(0))="""" IO(0)=$I S (C,DVBTSK,DVBABORT)=0,DVBXM=1,DTIME=30 U IO(0)"
^XMB(3.9,20,2,369,0)="""RTN"",""DVBHQD1"",6,0)"
^XMB(3.9,20,2,370,0)=" ;"
^XMB(3.9,20,2,371,0)="""RTN"",""DVBHQD1"",7,0)"
^XMB(3.9,20,2,372,0)="SEL S (DVBRTC,DVBTRY)=1,DVBNRT=""Y"""
^XMB(3.9,20,2,373,0)="""RTN"",""DVBHQD1"",8,0)"
^XMB(3.9,20,2,374,0)=" R !!,"" Select Input: (P)atient File, or (D)irect  P//"",X:DTIME I '$T!(X[""^"") G HINQ"
^XMB(3.9,20,2,375,0)="""RTN"",""DVBHQD1"",9,0)"
^XMB(3.9,20,2,376,0)=" I ""Pp""[$E(X) S DVBPRGM=""TM^DVBHIQD"" G ASK"
^XMB(3.9,20,2,377,0)="""RTN"",""DVBHQD1"",10,0)"
^XMB(3.9,20,2,378,0)=" I ""Dd""[$E(X_1) S DVBPRGM=""EN^DVBHQDE"" G ASK"
^XMB(3.9,20,2,379,0)="""RTN"",""DVBHQD1"",11,0)"
^XMB(3.9,20,2,380,0)=" I X[""?"" D HP^DVBHQAT G SEL"
^XMB(3.9,20,2,381,0)="""RTN"",""DVBHQD1"",12,0)"
^XMB(3.9,20,2,382,0)=" G SEL"
^XMB(3.9,20,2,383,0)="""RTN"",""DVBHQD1"",13,0)"
^XMB(3.9,20,2,384,0)="ASK S:$G(IO(0))="""" IO(0)=$I W ! S Y=0,DVBIO=IO D @DVBPRGM"
^XMB(3.9,20,2,385,0)="""RTN"",""DVBHQD1"",14,0)"
^XMB(3.9,20,2,386,0)="ASK1 I Y'<0,$D(DVBP),$L(DVBP)=4 S IO=DVBIO D STUFF^DVBHQAT:$D(DFN),MES"
^XMB(3.9,20,2,387,0)="""RTN"",""DVBHQD1"",15,0)"
^XMB(3.9,20,2,388,0)=" I $D(DVBMISS) K DVBMISS D:DVBTRY>3 RETRY^DVBHQD2 G:DVBNRT=""N"" LOAD2^DVBHQD2 I DVBTRY<4&(DVBRTC<4) S DVBTRY=DVBTRY+1 U IO(0) W ?35,""Retrying Request."" G ASK1"
^XMB(3.9,20,2,389,0)="""RTN"",""DVBHQD1"",16,0)"
^XMB(3.9,20,2,390,0)=" S IO=DVBIO U IO(0) K DVBP S DVBABORT=0"
^XMB(3.9,20,2,391,0)="""RTN"",""DVBHQD1"",17,0)"
^XMB(3.9,20,2,392,0)=" I '$D(Y) G ASK"
^XMB(3.9,20,2,393,0)="""RTN"",""DVBHQD1"",18,0)"
^XMB(3.9,20,2,394,0)=" I Y>0 G ASK"
^XMB(3.9,20,2,395,0)="""RTN"",""DVBHQD1"",19,0)"
^XMB(3.9,20,2,396,0)=" ;"
^XMB(3.9,20,2,397,0)="""RTN"",""DVBHQD1"",20,0)"
^XMB(3.9,20,2,398,0)="HINQ U IO(0) W !!,""Do you wish to continue"" S %=2 D YN^DICN G:'% HINQ I %=1 W ! G EN"
^XMB(3.9,20,2,399,0)="""RTN"",""DVBHQD1"",21,0)"
^XMB(3.9,20,2,400,0)="EX S DTIME=$S($D(DVBTIME):DVBTIME,1:300)"
^XMB(3.9,20,2,401,0)="""RTN"",""DVBHQD1"",22,0)"
^XMB(3.9,20,2,402,0)=" Q"
^XMB(3.9,20,2,403,0)="""RTN"",""DVBHQD1"",23,0)"
^XMB(3.9,20,2,404,0)="MES ;"
^XMB(3.9,20,2,405,0)="""RTN"",""DVBHQD1"",24,0)"
^XMB(3.9,20,2,406,0)=" S:$G(IO(0))="""" IO(0)=$I S E=$L(DVBZ) I '$D(DVBDXX),($E(DVBZ,E-7,E-4)'=DVBNUM) S DVBZ=$E(DVBZ,1,E-4)_DVBNUM_$E(DVBZ,E-3,999)"
^XMB(3.9,20,2,407,0)="""RTN"",""DVBHQD1"",25,0)"
^XMB(3.9,20,2,408,0)=" K E H 1 S DVBEND=""NNNN"" S:'$D(DVBXM) DVBXM=0 S:'$D(C) C=0"
^XMB(3.9,20,2,409,0)="""RTN"",""DVBHQD1"",26,0)"
^XMB(3.9,20,2,410,0)=" ;"
^XMB(3.9,20,2,411,0)="""RTN"",""DVBHQD1"",27,0)"
^XMB(3.9,20,2,412,0)="TOTIMS S TRY=0,CN=$F(DVBZ,""/CN"",24),DVBZ0=DVBZ"
^XMB(3.9,20,2,413,0)="""RTN"",""DVBHQD1"",28,0)"
^XMB(3.9,20,2,414,0)=" I $S('$D(DFN):1,DFN:0,1:1) S CN=0 D SEND^DVBHQD2,KTO^DVBHQD2 Q"
^XMB(3.9,20,2,415,0)="""RTN"",""DVBHQD1"",29,0)"
^XMB(3.9,20,2,416,0)=" I 'CN D CNLKUP^DVBHQAT"
^XMB(3.9,20,2,417,0)="""RTN"",""DVBHQD1"",30,0)"
^XMB(3.9,20,2,418,0)=" DO  D SEND^DVBHQD2 I TRY DO  I TRY H 1 D SEND^DVBHQD2"
^XMB(3.9,20,2,419,0)="""RTN"",""DVBHQD1"",31,0)"
^XMB(3.9,20,2,420,0)=" .I CN,'TRY S DVBZ0=$E(DVBZ,1,23)_$E(DVBZ,24,CN-3)_$E(DVBZ,CN+9,999) Q"
^XMB(3.9,20,2,421,0)="""RTN"",""DVBHQD1"",32,0)"
^XMB(3.9,20,2,422,0)=" .I CN,TRY S DVBZ1=$E(DVBZ,1,23)_$E(DVBZ,CN-2,999) Q"
^XMB(3.9,20,2,423,0)="""RTN"",""DVBHQD1"",33,0)"
^XMB(3.9,20,2,424,0)=" .I 'CN S DVBZ0=DVBZ,TRY=0 Q"
^XMB(3.9,20,2,425,0)="""RTN"",""DVBHQD1"",34,0)"
^XMB(3.9,20,2,426,0)=" I $D(DVBMISS)&($D(DVBPRGM)) I (DVBPRGM[""TM"") K DVBMISS D:DVBTRY>3 RETRY^DVBHQD2 G:DVBNRT=""N"" LOAD^DVBHQD2 I DVBTRY<4&(DVBRTC<4) S DVBTRY=DVBTRY+1 U IO(0) W ?35,""Retrying Request."" G MES"
^XMB(3.9,20,2,427,0)="""RTN"",""DVBHQD1"",35,0)"
^XMB(3.9,20,2,428,0)=" G KTO^DVBHQD2"
^XMB(3.9,20,2,429,0)="""RTN"",""DVBHQD1"",36,0)"
^XMB(3.9,20,2,430,0)=" ;"
^XMB(3.9,20,2,431,0)="""RTN"",""DVBHQD1"",37,0)"
^XMB(3.9,20,2,432,0)=" ;z1 is first x(),z9 is last x()"
^XMB(3.9,20,2,433,0)="""RTN"",""DVBHQD1"",38,0)"
^XMB(3.9,20,2,434,0)="OK ;I 'DVBTSK DO"
^XMB(3.9,20,2,435,0)="""RTN"",""DVBHQD1"",39,0)"
^XMB(3.9,20,2,436,0)=" ;. U IO(0) W !!?3 S Z1=0 F  S Z1=$O(X(Z1)) Q:'Z1  S LX=$G(LX)+$L(X(Z1)) W Z1,"" "",$L(X(Z1)),""   """
^XMB(3.9,20,2,437,0)="""RTN"",""DVBHQD1"",40,0)"
^XMB(3.9,20,2,438,0)=" ;. W !?9,LX,! K LX H 3 U IO"
^XMB(3.9,20,2,439,0)="""RTN"",""DVBHQD1"",41,0)"
^XMB(3.9,20,2,440,0)=" S:$G(IO(0))="""" IO(0)=$I S Z1=$O(X(0)) F  Q:$E(X(Z1))'=$C(10)  S X(Z1)=$E(X(Z1),2,999)"
^XMB(3.9,20,2,441,0)="""RTN"",""DVBHQD1"",42,0)"
^XMB(3.9,20,2,442,0)=" I $G(X(Z1))[""HINQ"" S X(Z1)=""HINQ""_$P(X(Z1),""HINQ"",2)"
^XMB(3.9,20,2,443,0)="""RTN"",""DVBHQD1"",43,0)"
^XMB(3.9,20,2,444,0)=" E  K X(Z1) DO"
^XMB(3.9,20,2,445,0)="""RTN"",""DVBHQD1"",44,0)"
^XMB(3.9,20,2,446,0)=" . S Z1=$O(X(0)) I Z1="""" S Z1=0,X(0)="""""
^XMB(3.9,20,2,447,0)="""RTN"",""DVBHQD1"",45,0)"
^XMB(3.9,20,2,448,0)=" . I $G(X(Z1))[""HINQ"" S X(Z1)=""HINQ""_$P(X(Z1),""HINQ"",2)"
^XMB(3.9,20,2,449,0)="""RTN"",""DVBHQD1"",46,0)"
^XMB(3.9,20,2,450,0)=" I $L(X(Z1))>25 S DVBLEN=+$E(X(Z1),22,25)"
^XMB(3.9,20,2,451,0)="""RTN"",""DVBHQD1"",47,0)"
^XMB(3.9,20,2,452,0)=" I $L(X(Z1))'>25 D"
^XMB(3.9,20,2,453,0)="""RTN"",""DVBHQD1"",48,0)"
^XMB(3.9,20,2,454,0)=" . I $D(X(Z1+1)) DO"
^XMB(3.9,20,2,455,0)="""RTN"",""DVBHQD1"",49,0)"
^XMB(3.9,20,2,456,0)=" . . S DVBLEN=+$E($E(X(Z1),1,99)_$E(X(Z1+1),1,30),22,25)"
^XMB(3.9,20,2,457,0)="""RTN"",""DVBHQD1"",50,0)"
^XMB(3.9,20,2,458,0)=" . I '$D(X(Z1+1)) D"
^XMB(3.9,20,2,459,0)="""RTN"",""DVBHQD1"",51,0)"
^XMB(3.9,20,2,460,0)=" . . S DVBLEN=$L(X(Z1)) ;DVB*4*49 - error response may be < 25 chars"
^XMB(3.9,20,2,461,0)="""RTN"",""DVBHQD1"",52,0)"
^XMB(3.9,20,2,462,0)=" I '$D(DVBLEN) S DVBABORT=DVBABORT+1 U IO(0) W:'DVBTSK !,""Missing string"" U IO Q"
^XMB(3.9,20,2,463,0)="""RTN"",""DVBHQD1"",53,0)"
^XMB(3.9,20,2,464,0)=" ;"
^XMB(3.9,20,2,465,0)="""RTN"",""DVBHQD1"",54,0)"
^XMB(3.9,20,2,466,0)=" I $D(F3) S DVBLEN=DVBLEN-F3 K F3"
^XMB(3.9,20,2,467,0)="""RTN"",""DVBHQD1"",55,0)"
^XMB(3.9,20,2,468,0)=" I ""456789ABCDUVWNMXYZ""'[$E(X(Z1),5) S DVBLEN=DVBLEN-2"
^XMB(3.9,20,2,469,0)="""RTN"",""DVBHQD1"",56,0)"
^XMB(3.9,20,2,470,0)=" ;"
^XMB(3.9,20,2,471,0)="""RTN"",""DVBHQD1"",57,0)"
^XMB(3.9,20,2,472,0)=" S (Z,Z9,F2)=0 F  S Z=$O(X(Z)) Q:'Z  S Z9=Z,F2=F2+$L(X(Z))"
^XMB(3.9,20,2,473,0)="""RTN"",""DVBHQD1"",58,0)"
^XMB(3.9,20,2,474,0)=" ;"
^XMB(3.9,20,2,475,0)="""RTN"",""DVBHQD1"",59,0)"
^XMB(3.9,20,2,476,0)=" I DVBLEN'=F2,X(Z9)[$C(10) S DVBABORT=DVBABORT+1 U IO(0) W:'DVBTSK !,""Missing character"" S DVBMISS="""" Q"
^XMB(3.9,20,2,477,0)="""RTN"",""DVBHQD1"",60,0)"
^XMB(3.9,20,2,478,0)=" I $E(X(Z1),5)'=2 S F2=F2+1"
^XMB(3.9,20,2,479,0)="""RTN"",""DVBHQD1"",61,0)"
^XMB(3.9,20,2,480,0)=" ;"
^XMB(3.9,20,2,481,0)="""RTN"",""DVBHQD1"",62,0)"
^XMB(3.9,20,2,482,0)=" I DVBLEN'=F2-1,X(Z9)'[$C(10),$S('$D(X(Z9-1)):1,1:$S(X(Z9-1)'[$C(10):1,1:0)) S DVBABORT=DVBABORT+1 U IO(0) W:'DVBTSK !,""Missing character"" S DVBMISS="""" Q"
^XMB(3.9,20,2,483,0)="""RTN"",""DVBHQD1"",63,0)"
^XMB(3.9,20,2,484,0)=" ;trim,e will pack back to x(1)"
^XMB(3.9,20,2,485,0)="""RTN"",""DVBHQD1"",64,0)"
^XMB(3.9,20,2,486,0)=" I Z9 S:$D(X) DVBSOX=X D TRIM,E^DVBHQAT S:$D(DVBSOX) X=DVBSOX K DVBSOX I $E(X(1),1,4)[""HINQ"",""AXY69""'[$E($E(X(1),5)_1) D ALLM Q"
^XMB(3.9,20,2,487,0)="""RTN"",""DVBHQD1"",65,0)"
^XMB(3.9,20,2,488,0)=" ;"
^XMB(3.9,20,2,489,0)="""RTN"",""DVBHQD1"",66,0)"
^XMB(3.9,20,2,490,0)=" S DVBABORT=DVBABORT+1 Q:$E(X(1),1,4)'=""HINQ"""
^XMB(3.9,20,2,491,0)="""RTN"",""DVBHQD1"",67,0)"
^XMB(3.9,20,2,492,0)=" I $E(X(1),5)=""A"" U IO(0) W:'DVBTSK !,""VBA File not Available"" U IO H 2 D ALL QUIT"
^XMB(3.9,20,2,493,0)="""RTN"",""DVBHQD1"",68,0)"
^XMB(3.9,20,2,494,0)=" ;"
^XMB(3.9,20,2,495,0)="""RTN"",""DVBHQD1"",69,0)"
^XMB(3.9,20,2,496,0)=" I DVBTSK,""69XY""[$E($E(X(1),5)_1) S DVBBADP="""" D ALL QUIT"
^XMB(3.9,20,2,497,0)="""RTN"",""DVBHQD1"",70,0)"
^XMB(3.9,20,2,498,0)=" I 'Z9 Q"
^XMB(3.9,20,2,499,0)="""RTN"",""DVBHQD1"",71,0)"
^XMB(3.9,20,2,500,0)=" ;"
^XMB(3.9,20,2,501,0)="""RTN"",""DVBHQD1"",72,0)"
^XMB(3.9,20,2,502,0)="ALL I 'DVBXM,$D(DFN),+DFN K:C ^TMP(""DVBHINQ"",$J,DFN) S Z=0 F  S Z=$O(X(Z)) Q:'Z  S ^TMP(""DVBHINQ"",$J,DFN,Z)=X(Z)"
^XMB(3.9,20,2,503,0)="""RTN"",""DVBHQD1"",73,0)"
^XMB(3.9,20,2,504,0)=" E  I DVBXM D  K DVBTX Q"
^XMB(3.9,20,2,505,0)="""RTN"",""DVBHQD1"",74,0)"
^XMB(3.9,20,2,506,0)=" . N DVBQT"
^XMB(3.9,20,2,507,0)="""RTN"",""DVBHQD1"",75,0)"
^XMB(3.9,20,2,508,0)=" . D RS,A^DVBHIQR"
^XMB(3.9,20,2,509,0)="""RTN"",""DVBHQD1"",76,0)"
^XMB(3.9,20,2,510,0)=" . I $G(DFN)>1,('DVBTSK),($E(X(1),5)=2),('$D(DVBERCS)) D CHKID I DVBQT D  Q"
^XMB(3.9,20,2,511,0)="""RTN"",""DVBHQD1"",77,0)"
^XMB(3.9,20,2,512,0)=" . . N DVBTMP1,DVBTMP2"
^XMB(3.9,20,2,513,0)="""RTN"",""DVBHQD1"",78,0)"
^XMB(3.9,20,2,514,0)=" . . S DVBTMP1=$G(DVBNOALR)"
^XMB(3.9,20,2,515,0)="""RTN"",""DVBHQD1"",79,0)"
^XMB(3.9,20,2,516,0)=" . . S DVBTMP2=$G(DVBJ2)"
^XMB(3.9,20,2,517,0)="""RTN"",""DVBHQD1"",80,0)"
^XMB(3.9,20,2,518,0)=" . . S DVBNOALR="";4///c;5////""_DUZ_"";6///N"",DVBJ2=1"
^XMB(3.9,20,2,519,0)="""RTN"",""DVBHQD1"",81,0)"
^XMB(3.9,20,2,520,0)=" . . D FILE^DVBHQUP"
^XMB(3.9,20,2,521,0)="""RTN"",""DVBHQD1"",82,0)"
^XMB(3.9,20,2,522,0)=" . . S DVBNOALR=DVBTMP1"
^XMB(3.9,20,2,523,0)="""RTN"",""DVBHQD1"",83,0)"
^XMB(3.9,20,2,524,0)=" . . S DVBJ2=DVBTMP2"
^XMB(3.9,20,2,525,0)="""RTN"",""DVBHQD1"",84,0)"
^XMB(3.9,20,2,526,0)=" . D RECMAL^DVBHQD2"
^XMB(3.9,20,2,527,0)="""RTN"",""DVBHQD1"",85,0)"
^XMB(3.9,20,2,528,0)=" . D IALERT^DVBHT2,EN^DVBHIQM H 1 D WRT"
^XMB(3.9,20,2,529,0)="""RTN"",""DVBHQD1"",86,0)"
^XMB(3.9,20,2,530,0)=" I DVBABORT=3!($D(DVBBADP)) S DFN=0"
^XMB(3.9,20,2,531,0)="""RTN"",""DVBHQD1"",87,0)"
^XMB(3.9,20,2,532,0)=" Q"
^XMB(3.9,20,2,533,0)="""RTN"",""DVBHQD1"",88,0)"
^XMB(3.9,20,2,534,0)=" ; do all if no error or retrying"
^XMB(3.9,20,2,535,0)="""RTN"",""DVBHQD1"",89,0)"
^XMB(3.9,20,2,536,0)="ALLM I ""BC""'[$E($E(X(1),5)_1) D ALL Q"
^XMB(3.9,20,2,537,0)="""RTN"",""DVBHQD1"",90,0)"
^XMB(3.9,20,2,538,0)=" I CN,'TRY S TRY=1 D:DVBXM DCN Q"
^XMB(3.9,20,2,539,0)="""RTN"",""DVBHQD1"",91,0)"
^XMB(3.9,20,2,540,0)=" I 'CN D ALL Q"
^XMB(3.9,20,2,541,0)="""RTN"",""DVBHQD1"",92,0)"
^XMB(3.9,20,2,542,0)=" S X(1)=X(1)_""[TRY]1"" D ALL Q"
^XMB(3.9,20,2,543,0)="""RTN"",""DVBHQD1"",93,0)"
^XMB(3.9,20,2,544,0)=" ;"
^XMB(3.9,20,2,545,0)="""RTN"",""DVBHQD1"",94,0)"
^XMB(3.9,20,2,546,0)="DCN S:$G(IO(0))="""" IO(0)=$I U IO(0) W !,""..Name, SSN didn't work ....retrying using Claim Number"",! U IO Q"
^XMB(3.9,20,2,547,0)="""RTN"",""DVBHQD1"",95,0)"
^XMB(3.9,20,2,548,0)=" ;"
^XMB(3.9,20,2,549,0)="""RTN"",""DVBHQD1"",96,0)"
^XMB(3.9,20,2,550,0)="RS Q:'$D(DFN)  Q:'DFN  Q:'$D(^DVB(395.5,DFN,0))  S DVBDFN=DFN,DVBCS=0"
^XMB(3.9,20,2,551,0)="""RTN"",""DVBHQD1"",97,0)"
^XMB(3.9,20,2,552,0)=" F DVBSZ=0:0 S DVBSZ=$O(X(DVBSZ)) D SC^DVBHQST Q:'DVBSZ  D ST^DVBHQDB"
^XMB(3.9,20,2,553,0)="""RTN"",""DVBHQD1"",98,0)"
^XMB(3.9,20,2,554,0)=" K DVBSZ,DVBDFN Q"
^XMB(3.9,20,2,555,0)="""RTN"",""DVBHQD1"",99,0)"
^XMB(3.9,20,2,556,0)=" ;"
^XMB(3.9,20,2,557,0)="""RTN"",""DVBHQD1"",100,0)"
^XMB(3.9,20,2,558,0)="TRIM Q:F1=999"
^XMB(3.9,20,2,559,0)="""RTN"",""DVBHQD1"",101,0)"
^XMB(3.9,20,2,560,0)=" I '$D(F1) S F1=$F(X(Z9),DVBEND)"
^XMB(3.9,20,2,561,0)="""RTN"",""DVBHQD1"",102,0)"
^XMB(3.9,20,2,562,0)=" I $E(X(Z9),F1-F4)=$C(10) S F1=F1-1"
^XMB(3.9,20,2,563,0)="""RTN"",""DVBHQD1"",103,0)"
^XMB(3.9,20,2,564,0)=" S X(Z9)=$E(X(Z9),1,F1-F4)"
^XMB(3.9,20,2,565,0)="""RTN"",""DVBHQD1"",104,0)"
^XMB(3.9,20,2,566,0)=" K F1 Q"
^XMB(3.9,20,2,567,0)="""RTN"",""DVBHQD1"",105,0)"
^XMB(3.9,20,2,568,0)=" ;"
^XMB(3.9,20,2,569,0)="""RTN"",""DVBHQD1"",106,0)"
^XMB(3.9,20,2,570,0)="WRT S:$G(IO(0))="""" IO(0)=$I S DVBJIO=IO(0)"
^XMB(3.9,20,2,571,0)="""RTN"",""DVBHQD1"",107,0)"
^XMB(3.9,20,2,572,0)="WRT1 S:$G(DVBJIO)="""" DVBJIO=$I S:'$D(DVBIOSL) DVBIOSL=IOSL S:'$D(DVBIOST) DVBIOST=IOST S:'$D(DVBIOF) DVBIOF=IOF"
^XMB(3.9,20,2,573,0)="""RTN"",""DVBHQD1"",108,0)"
^XMB(3.9,20,2,574,0)=" S X="""" U DVBJIO W !!! D CODE^DVBHQUS W !! S Y0=$Y F Z=0:0 S Z=$O(^TMP($J,Z)) Q:'Z  I $D(^(Z,0)) W ^(0),! D:$Y-Y0>(DVBIOSL-4) SROLL^DVBHQD2 Q:X=""^""  D:$Y<Y0 ABS^DVBHQD2"
^XMB(3.9,20,2,575,0)="""RTN"",""DVBHQD1"",109,0)"
^XMB(3.9,20,2,576,0)=" Q:X=""^""  K DVBJIO D SROLL^DVBHQD2 Q"
^XMB(3.9,20,2,577,0)="""RTN"",""DVBHQD1"",110,0)"
^XMB(3.9,20,2,578,0)=" ;"
^XMB(3.9,20,2,579,0)="""RTN"",""DVBHQD1"",111,0)"
^XMB(3.9,20,2,580,0)="CH S F1=0"
^XMB(3.9,20,2,581,0)="""RTN"",""DVBHQD1"",112,0)"
^XMB(3.9,20,2,582,0)=" I X(W)=$C(10)_""NNNN"" K X(W) S F1=999 Q"
^XMB(3.9,20,2,583,0)="""RTN"",""DVBHQD1"",113,0)"
^XMB(3.9,20,2,584,0)=" I $L(X(W))>4!($L(X(W))<1) Q"
^XMB(3.9,20,2,585,0)="""RTN"",""DVBHQD1"",114,0)"
^XMB(3.9,20,2,586,0)=" F A=$L(X(W)):-1:1 Q:$E(X(W),A)'=""N"""
^XMB(3.9,20,2,587,0)="""RTN"",""DVBHQD1"",115,0)"
^XMB(3.9,20,2,588,0)=" I A=1,$E(X(W),A)=""N"" S F1=$L(X(W-1))+1,F3=$L(X(W)),F4=5-$L(X(W)) K X(W)"
^XMB(3.9,20,2,589,0)="""RTN"",""DVBHQD1"",116,0)"
^XMB(3.9,20,2,590,0)=" Q"
^XMB(3.9,20,2,591,0)="""RTN"",""DVBHQD1"",117,0)"
^XMB(3.9,20,2,592,0)="CHKID ;checks 4 critical identifier fields"
^XMB(3.9,20,2,593,0)="""RTN"",""DVBHQD1"",118,0)"
^XMB(3.9,20,2,594,0)=" ;fields are name, DOB, SSN and sex."
^XMB(3.9,20,2,595,0)="""RTN"",""DVBHQD1"",119,0)"
^XMB(3.9,20,2,596,0)=" ;DVBQT 0 to continue, 1 to stop processing"
^XMB(3.9,20,2,597,0)="""RTN"",""DVBHQD1"",120,0)"
^XMB(3.9,20,2,598,0)=" N DA,DIC,DIQ,DIR,DR,X,Y"
^XMB(3.9,20,2,599,0)="""RTN"",""DVBHQD1"",121,0)"
^XMB(3.9,20,2,600,0)=" N DVBBIRTH,DVBCNT,DVBNAM,DVBNM,DVBSEX,DVBSOCL,DVBSSN"
^XMB(3.9,20,2,601,0)="""RTN"",""DVBHQD1"",122,0)"
^XMB(3.9,20,2,602,0)=" N DVBDIQ"
^XMB(3.9,20,2,603,0)="""RTN"",""DVBHQD1"",123,0)"
^XMB(3.9,20,2,604,0)=" S DVBCNT=0"
^XMB(3.9,20,2,605,0)="""RTN"",""DVBHQD1"",124,0)"
^XMB(3.9,20,2,606,0)=" S DVBQT=0"
^XMB(3.9,20,2,607,0)="""RTN"",""DVBHQD1"",125,0)"
^XMB(3.9,20,2,608,0)=" S DIC=""^DPT("",DA=DFN,DIQ(0)=""E"",DIQ=""DVBDIQ("""
^XMB(3.9,20,2,609,0)="""RTN"",""DVBHQD1"",126,0)"
^XMB(3.9,20,2,610,0)=" S DR="".01;.02;.03;.09"""
^XMB(3.9,20,2,611,0)="""RTN"",""DVBHQD1"",127,0)"
^XMB(3.9,20,2,612,0)=" D EN^DIQ1"
^XMB(3.9,20,2,613,0)="""RTN"",""DVBHQD1"",128,0)"
^XMB(3.9,20,2,614,0)=" S DVBNAM=$S($D(DVBADR(1)):DVBADR(1),$D(DVBNAME):$E(DVBNAME,1,30),1:"""")"
^XMB(3.9,20,2,615,0)="""RTN"",""DVBHQD1"",129,0)"
^XMB(3.9,20,2,616,0)=" S DVBSEX="""""
^XMB(3.9,20,2,617,0)="""RTN"",""DVBHQD1"",130,0)"
^XMB(3.9,20,2,618,0)=" I $D(DVBVET),$P(DVBVET,U)=""A"" S DVBSEX=$S($P(DVBVET,U,3)=""M"":""MALE"",$P(DVBVET,U,3)=""F"":""FEMALE"",1:"""")"
^XMB(3.9,20,2,619,0)="""RTN"",""DVBHQD1"",131,0)"
^XMB(3.9,20,2,620,0)=" I '$D(DVBVET),($D(DVBBIR)) S DVBSEX=$S($P(DVBBIR,U,25)=""M"":""MALE"",$P(DVBBIR,U,25)=""F"":""FEMALE"",1:"""")"
^XMB(3.9,20,2,621,0)="""RTN"",""DVBHQD1"",132,0)"
^XMB(3.9,20,2,622,0)=" S DVBSOCL="""""
^XMB(3.9,20,2,623,0)="""RTN"",""DVBHQD1"",133,0)"
^XMB(3.9,20,2,624,0)=" I $D(DVBREF),($P(DVBREF,U)?9N) S DVBSOCL=$P(DVBREF,U)"
^XMB(3.9,20,2,625,0)="""RTN"",""DVBHQD1"",134,0)"
^XMB(3.9,20,2,626,0)=" I $P($G(DVBREF),U)'?9N I $D(DVBSSN),(DVBSSN?9N) S DVBSOCL=DVBSSN"
^XMB(3.9,20,2,627,0)="""RTN"",""DVBHQD1"",135,0)"
^XMB(3.9,20,2,628,0)=" S DVBBIRTH="""""
^XMB(3.9,20,2,629,0)="""RTN"",""DVBHQD1"",136,0)"
^XMB(3.9,20,2,630,0)=" ;change date of birth to match the Patient file ext value (DVBBIRTH)"
^XMB(3.9,20,2,631,0)="""RTN"",""DVBHQD1"",137,0)"
^XMB(3.9,20,2,632,0)=" I $D(DVBDOB),(DVBDOB?8N) S DVBBIRTH=$E(DVBDOB,1,2)_""/""_$E(DVBDOB,3,4)_""/""_$E(DVBDOB,5,8)"
^XMB(3.9,20,2,633,0)="""RTN"",""DVBHQD1"",138,0)"
^XMB(3.9,20,2,634,0)=" ;change ext Patient file value for name to HINQ name format"
^XMB(3.9,20,2,635,0)="""RTN"",""DVBHQD1"",139,0)"
^XMB(3.9,20,2,636,0)=" I '$$NAME(DVBDIQ(2,DFN,.01,""E"")) S DVBCNT=DVBCNT+1"
^XMB(3.9,20,2,637,0)="""RTN"",""DVBHQD1"",140,0)"
^XMB(3.9,20,2,638,0)=" I $G(DVBSEX)'=$G(DVBDIQ(2,DFN,.02,""E"")) S DVBCNT=DVBCNT+1"
^XMB(3.9,20,2,639,0)="""RTN"",""DVBHQD1"",141,0)"
^XMB(3.9,20,2,640,0)=" I $G(DVBBIRTH)'=$G(DVBDIQ(2,DFN,.03,""E"")) S DVBCNT=DVBCNT+1"
^XMB(3.9,20,2,641,0)="""RTN"",""DVBHQD1"",142,0)"
^XMB(3.9,20,2,642,0)=" I $G(DVBSOCL)'=$G(DVBDIQ(2,DFN,.09,""E"")) S DVBCNT=DVBCNT+1"
^XMB(3.9,20,2,643,0)="""RTN"",""DVBHQD1"",143,0)"
^XMB(3.9,20,2,644,0)=" I DVBCNT>0 D WARN"
^XMB(3.9,20,2,645,0)="""RTN"",""DVBHQD1"",144,0)"
^XMB(3.9,20,2,646,0)=" Q"
^XMB(3.9,20,2,647,0)="""RTN"",""DVBHQD1"",145,0)"
^XMB(3.9,20,2,648,0)="WARN ;warns user if there are any discrepancies between HINQ and VistA for "
^XMB(3.9,20,2,649,0)="""RTN"",""DVBHQD1"",146,0)"
^XMB(3.9,20,2,650,0)=" ;4 critical identifier fields - name, DOB, SSN and sex."
^XMB(3.9,20,2,651,0)="""RTN"",""DVBHQD1"",147,0)"
^XMB(3.9,20,2,652,0)=" N DIRUT,DUOUT"
^XMB(3.9,20,2,653,0)="""RTN"",""DVBHQD1"",148,0)"
^XMB(3.9,20,2,654,0)=" U IO(0)"
^XMB(3.9,20,2,655,0)="""RTN"",""DVBHQD1"",149,0)"
^XMB(3.9,20,2,656,0)=" H 1"
^XMB(3.9,20,2,657,0)="""RTN"",""DVBHQD1"",150,0)"
^XMB(3.9,20,2,658,0)=" D TEXT"
^XMB(3.9,20,2,659,0)="""RTN"",""DVBHQD1"",151,0)"
^XMB(3.9,20,2,660,0)=" D DISPL"
^XMB(3.9,20,2,661,0)="""RTN"",""DVBHQD1"",152,0)"
^XMB(3.9,20,2,662,0)=" S DVBQT=1"
^XMB(3.9,20,2,663,0)="""RTN"",""DVBHQD1"",153,0)"
^XMB(3.9,20,2,664,0)=" N DIR"
^XMB(3.9,20,2,665,0)="""RTN"",""DVBHQD1"",154,0)"
^XMB(3.9,20,2,666,0)=" S DIR(0)=""N^1:3:0"",DIR(""A"")=""Do you want to process the HINQ on ""_DVBDIQ(2,DFN,.01,""E"")_""? "",DIR(""B"")=""NO"""
^XMB(3.9,20,2,667,0)="""RTN"",""DVBHQD1"",155,0)"
^XMB(3.9,20,2,668,0)=" W !!"
^XMB(3.9,20,2,669,0)="""RTN"",""DVBHQD1"",156,0)"
^XMB(3.9,20,2,670,0)=" S DIR(""A"",1)=""Check displayed data before proceeding."""
^XMB(3.9,20,2,671,0)="""RTN"",""DVBHQD1"",157,0)"
^XMB(3.9,20,2,672,0)=" S DIR(""A"",2)="""""
^XMB(3.9,20,2,673,0)="""RTN"",""DVBHQD1"",158,0)"
^XMB(3.9,20,2,674,0)=" S DIR(""A"",3)=""Choose one of the following:"""
^XMB(3.9,20,2,675,0)="""RTN"",""DVBHQD1"",159,0)"
^XMB(3.9,20,2,676,0)=" S DIR(""A"",4)=""    1.  Update this record."""
^XMB(3.9,20,2,677,0)="""RTN"",""DVBHQD1"",160,0)"
^XMB(3.9,20,2,678,0)=" S DIR(""A"",5)=""    2.  Take no action at this time."""
^XMB(3.9,20,2,679,0)="""RTN"",""DVBHQD1"",161,0)"
^XMB(3.9,20,2,680,0)=" S DIR(""A"",6)=""    3.  Delete this record from the SUSPENSE file."""
^XMB(3.9,20,2,681,0)="""RTN"",""DVBHQD1"",162,0)"
^XMB(3.9,20,2,682,0)=" S DIR(""A"",7)="""""
^XMB(3.9,20,2,683,0)="""RTN"",""DVBHQD1"",163,0)"
^XMB(3.9,20,2,684,0)=" S DIR(""?"")=""      Select 1 - 3"""
^XMB(3.9,20,2,685,0)="""RTN"",""DVBHQD1"",164,0)"
^XMB(3.9,20,2,686,0)=" S DIR(""?"",1)=""  If you want to continue processing this HINQ enter 1."""
^XMB(3.9,20,2,687,0)="""RTN"",""DVBHQD1"",165,0)"
^XMB(3.9,20,2,688,0)=" S DIR(""?"",3)=""  If you cannot process this patient data at this time enter 2."""
^XMB(3.9,20,2,689,0)="""RTN"",""DVBHQD1"",166,0)"
^XMB(3.9,20,2,690,0)=" S DIR(""?"",2)=""  If the HINQ data is for the wrong patient, enter 3."""
^XMB(3.9,20,2,691,0)="""RTN"",""DVBHQD1"",167,0)"
^XMB(3.9,20,2,692,0)=" S DIR(""B"")=2"
^XMB(3.9,20,2,693,0)="""RTN"",""DVBHQD1"",168,0)"
^XMB(3.9,20,2,694,0)=" D ^DIR"
^XMB(3.9,20,2,695,0)="""RTN"",""DVBHQD1"",169,0)"
^XMB(3.9,20,2,696,0)=" W !!"
^XMB(3.9,20,2,697,0)="""RTN"",""DVBHQD1"",170,0)"
^XMB(3.9,20,2,698,0)=" I Y=1 S DVBQT=0 Q  ;update"
^XMB(3.9,20,2,699,0)="""RTN"",""DVBHQD1"",171,0)"
^XMB(3.9,20,2,700,0)=" I Y=2 Q  ;ignore"
^XMB(3.9,20,2,701,0)="""RTN"",""DVBHQD1"",172,0)"
^XMB(3.9,20,2,702,0)=" I Y=""^""!($G(DIRUT)=1)!($G(DUOUT)=1) S DVBOUT=""^"" Q  ;""^"" out of option"
^XMB(3.9,20,2,703,0)="""RTN"",""DVBHQD1"",173,0)"
^XMB(3.9,20,2,704,0)=" N DA,DIK ;delete"
^XMB(3.9,20,2,705,0)="""RTN"",""DVBHQD1"",174,0)"
^XMB(3.9,20,2,706,0)=" S DA=DFN"
^XMB(3.9,20,2,707,0)="""RTN"",""DVBHQD1"",175,0)"
^XMB(3.9,20,2,708,0)=" S DIK=""^DVB(395.5,"""
^XMB(3.9,20,2,709,0)="""RTN"",""DVBHQD1"",176,0)"
^XMB(3.9,20,2,710,0)=" D ^DIK"
^XMB(3.9,20,2,711,0)="""RTN"",""DVBHQD1"",177,0)"
^XMB(3.9,20,2,712,0)=" Q"
^XMB(3.9,20,2,713,0)="""RTN"",""DVBHQD1"",178,0)"
^XMB(3.9,20,2,714,0)="TEXT ;warning text"
^XMB(3.9,20,2,715,0)="""RTN"",""DVBHQD1"",179,0)"
^XMB(3.9,20,2,716,0)=" W @IOF"
^XMB(3.9,20,2,717,0)="""RTN"",""DVBHQD1"",180,0)"
^XMB(3.9,20,2,718,0)=" W !!!!"
^XMB(3.9,20,2,719,0)="""RTN"",""DVBHQD1"",181,0)"
^XMB(3.9,20,2,720,0)=" W ?2,""*********************************************************************"""
^XMB(3.9,20,2,721,0)="""RTN"",""DVBHQD1"",182,0)"
^XMB(3.9,20,2,722,0)=" W !?2,""*     NOTE: IDENTIFYING DATA FROM HINQ AND VISTA DOES NOT MATCH     *"""
^XMB(3.9,20,2,723,0)="""RTN"",""DVBHQD1"",183,0)"
^XMB(3.9,20,2,724,0)=" W !?2,""*    PATIENT FROM HINQ RESPONSE MAY NOT BE THE PATIENT REQUESTED    *"""
^XMB(3.9,20,2,725,0)="""RTN"",""DVBHQD1"",184,0)"
^XMB(3.9,20,2,726,0)=" W !?2,""*********************************************************************"""
^XMB(3.9,20,2,727,0)="""RTN"",""DVBHQD1"",185,0)"
^XMB(3.9,20,2,728,0)=" Q"
^XMB(3.9,20,2,729,0)="""RTN"",""DVBHQD1"",186,0)"
^XMB(3.9,20,2,730,0)="DISPL ;display ID data"
^XMB(3.9,20,2,731,0)="""RTN"",""DVBHQD1"",187,0)"
^XMB(3.9,20,2,732,0)=" W !!?17,""Patient File data"",?45,""HINQ Data"""
^XMB(3.9,20,2,733,0)="""RTN"",""DVBHQD1"",188,0)"
^XMB(3.9,20,2,734,0)=" W !?17,""-----------------"",?45,""---------"""
^XMB(3.9,20,2,735,0)="""RTN"",""DVBHQD1"",189,0)"
^XMB(3.9,20,2,736,0)=" W !?11,""Name: ""_$G(DVBDIQ(2,DFN,.01,""E"")),?45,$G(DVBNAM)"
^XMB(3.9,20,2,737,0)="""RTN"",""DVBHQD1"",190,0)"
^XMB(3.9,20,2,738,0)=" W !?12,""Sex: ""_$G(DVBDIQ(2,DFN,.02,""E"")),?45,$G(DVBSEX)"
^XMB(3.9,20,2,739,0)="""RTN"",""DVBHQD1"",191,0)"
^XMB(3.9,20,2,740,0)=" W !?2,""Date of Birth: ""_$G(DVBDIQ(2,DFN,.03,""E"")),?45,$G(DVBBIRTH)"
^XMB(3.9,20,2,741,0)="""RTN"",""DVBHQD1"",192,0)"
^XMB(3.9,20,2,742,0)=" W !?12,""SSN: ""_$G(DVBDIQ(2,DFN,.09,""E"")),?45,$G(DVBSOCL)"
^XMB(3.9,20,2,743,0)="""RTN"",""DVBHQD1"",193,0)"
^XMB(3.9,20,2,744,0)=" Q"
^XMB(3.9,20,2,745,0)="""RTN"",""DVBHQD1"",194,0)"
^XMB(3.9,20,2,746,0)="NAME(DVBNM) ;set local variables to hold the VistA and HINQ formats of the"
^XMB(3.9,20,2,747,0)="""RTN"",""DVBHQD1"",195,0)"
^XMB(3.9,20,2,748,0)=" ;patient name so they can be compared, DVB*4*56"
^XMB(3.9,20,2,749,0)="""RTN"",""DVBHQD1"",196,0)"
^XMB(3.9,20,2,750,0)=" ;first check for the HINQ name on the first address line"
^XMB(3.9,20,2,751,0)="""RTN"",""DVBHQD1"",197,0)"
^XMB(3.9,20,2,752,0)=" N DVBARR,DVBHFRST,DVBHLST,DVBHMID,DVBOK,DVBSTUB,DVBVFRST,DVBVLST,DVBVMID"
^XMB(3.9,20,2,753,0)="""RTN"",""DVBHQD1"",198,0)"
^XMB(3.9,20,2,754,0)=" S (DVBARR,DVBOK,DVBSTUB)=0"
^XMB(3.9,20,2,755,0)="""RTN"",""DVBHQD1"",199,0)"
^XMB(3.9,20,2,756,0)=" ;set variable with HINQ name parts"
^XMB(3.9,20,2,757,0)="""RTN"",""DVBHQD1"",200,0)"
^XMB(3.9,20,2,758,0)=" I $G(DVBADR(1))]"""" D"
^XMB(3.9,20,2,759,0)="""RTN"",""DVBHQD1"",201,0)"
^XMB(3.9,20,2,760,0)=" . S DVBARR=1"
^XMB(3.9,20,2,761,0)="""RTN"",""DVBHQD1"",202,0)"
^XMB(3.9,20,2,762,0)=" . S DVBHFRST=$P(DVBADR(1),"" "") ;first name"
^XMB(3.9,20,2,763,0)="""RTN"",""DVBHQD1"",203,0)"
^XMB(3.9,20,2,764,0)=" . S DVBHMID=$P(DVBADR(1),"" "",2) ;middle name, if there is one"
^XMB(3.9,20,2,765,0)="""RTN"",""DVBHQD1"",204,0)"
^XMB(3.9,20,2,766,0)=" . S DVBHLST=$P(DVBADR(1),"" "",3) ;last name, if there was a middle name"
^XMB(3.9,20,2,767,0)="""RTN"",""DVBHQD1"",205,0)"
^XMB(3.9,20,2,768,0)=" ;then check for the HINQ 7 character name stub"
^XMB(3.9,20,2,769,0)="""RTN"",""DVBHQD1"",206,0)"
^XMB(3.9,20,2,770,0)=" I DVBARR=0,($G(DVBNAME)]"""") S DVBSTUB=1"
^XMB(3.9,20,2,771,0)="""RTN"",""DVBHQD1"",207,0)"
^XMB(3.9,20,2,772,0)=" ;get VistA name parts"
^XMB(3.9,20,2,773,0)="""RTN"",""DVBHQD1"",208,0)"
^XMB(3.9,20,2,774,0)=" N DVBREST"
^XMB(3.9,20,2,775,0)="""RTN"",""DVBHQD1"",209,0)"
^XMB(3.9,20,2,776,0)=" S DVBVLST=$P(DVBNM,"","")"
^XMB(3.9,20,2,777,0)="""RTN"",""DVBHQD1"",210,0)"
^XMB(3.9,20,2,778,0)=" S DVBREST=$P(DVBNM,"","",2,3)"
^XMB(3.9,20,2,779,0)="""RTN"",""DVBHQD1"",211,0)"
^XMB(3.9,20,2,780,0)=" S DVBVFRST=$P(DVBREST,"" "")"
^XMB(3.9,20,2,781,0)="""RTN"",""DVBHQD1"",212,0)"
^XMB(3.9,20,2,782,0)=" S DVBVMID=$P(DVBREST,"" "",2)"
^XMB(3.9,20,2,783,0)="""RTN"",""DVBHQD1"",213,0)"
^XMB(3.9,20,2,784,0)=" ;now compare"
^XMB(3.9,20,2,785,0)="""RTN"",""DVBHQD1"",214,0)"
^XMB(3.9,20,2,786,0)=" I DVBARR=1 D  Q DVBOK"
^XMB(3.9,20,2,787,0)="""RTN"",""DVBHQD1"",215,0)"
^XMB(3.9,20,2,788,0)=" . N DVBOK1,DVBOK2,DVBOK3"
^XMB(3.9,20,2,789,0)="""RTN"",""DVBHQD1"",216,0)"
^XMB(3.9,20,2,790,0)=" . S (DVBOK1,DVBOK2,DVBOK3)=0"
^XMB(3.9,20,2,791,0)="""RTN"",""DVBHQD1"",217,0)"
^XMB(3.9,20,2,792,0)=" . ;if name is long, HINQ first name may have been truncated to 1 char"
^XMB(3.9,20,2,793,0)="""RTN"",""DVBHQD1"",218,0)"
^XMB(3.9,20,2,794,0)=" . I $L(DVBHFRST)=1 S DVBVFRST=$E(DVBVFRST)"
^XMB(3.9,20,2,795,0)="""RTN"",""DVBHQD1"",219,0)"
^XMB(3.9,20,2,796,0)=" . ;if last name is > 16 chars, it may be truncated"
^XMB(3.9,20,2,797,0)="""RTN"",""DVBHQD1"",220,0)"
^XMB(3.9,20,2,798,0)=" . I $L(DVBVLST)>16 S DVBVLST=$E(DVBVLST,1,$L(DVBHLST))"
^XMB(3.9,20,2,799,0)="""RTN"",""DVBHQD1"",221,0)"
^XMB(3.9,20,2,800,0)=" . ;if name is long, HINQ middle name may have been truncated to 1 char"
^XMB(3.9,20,2,801,0)="""RTN"",""DVBHQD1"",222,0)"
^XMB(3.9,20,2,802,0)=" . ;but, if there is no HINQ middle name, do not try to compare"
^XMB(3.9,20,2,803,0)="""RTN"",""DVBHQD1"",223,0)"
^XMB(3.9,20,2,804,0)=" . I $G(DVBHMID)']"""" S DVBOK3=1"
^XMB(3.9,20,2,805,0)="""RTN"",""DVBHQD1"",224,0)"
^XMB(3.9,20,2,806,0)=" . I DVBOK3=0 D"
^XMB(3.9,20,2,807,0)="""RTN"",""DVBHQD1"",225,0)"
^XMB(3.9,20,2,808,0)=" . . I $L(DVBHMID)=1 S DVBVMID=$E(DVBVMID)"
^XMB(3.9,20,2,809,0)="""RTN"",""DVBHQD1"",226,0)"
^XMB(3.9,20,2,810,0)=" . . I DVBVMID=DVBHMID S DVBOK3=1"
^XMB(3.9,20,2,811,0)="""RTN"",""DVBHQD1"",227,0)"
^XMB(3.9,20,2,812,0)=" . I DVBVFRST=DVBHFRST S DVBOK1=1"
^XMB(3.9,20,2,813,0)="""RTN"",""DVBHQD1"",228,0)"
^XMB(3.9,20,2,814,0)=" . I DVBVLST=DVBHLST S DVBOK2=1"
^XMB(3.9,20,2,815,0)="""RTN"",""DVBHQD1"",229,0)"
^XMB(3.9,20,2,816,0)=" . I DVBOK1=1,(DVBOK2=1),(DVBOK3=1) S DVBOK=1 Q"
^XMB(3.9,20,2,817,0)="""RTN"",""DVBHQD1"",230,0)"
^XMB(3.9,20,2,818,0)=" ;if the first line of the address array is not populated, compare"
^XMB(3.9,20,2,819,0)="""RTN"",""DVBHQD1"",231,0)"
^XMB(3.9,20,2,820,0)=" ;DVBNAME which is a HINQ stub name to the equivalent patient file stub"
^XMB(3.9,20,2,821,0)="""RTN"",""DVBHQD1"",232,0)"
^XMB(3.9,20,2,822,0)=" I DVBARR=0,(DVBSTUB=1) D"
^XMB(3.9,20,2,823,0)="""RTN"",""DVBHQD1"",233,0)"
^XMB(3.9,20,2,824,0)=" . N DVBVSTUB"
^XMB(3.9,20,2,825,0)="""RTN"",""DVBHQD1"",234,0)"
^XMB(3.9,20,2,826,0)=" . I DVBVMID']"""" S DVBVMID="" """
^XMB(3.9,20,2,827,0)="""RTN"",""DVBHQD1"",235,0)"
^XMB(3.9,20,2,828,0)=" . S DVBVSTUB=$E(DVBVFRST)_$E(DVBVMID)_$E(DVBVLST,1,5)"
^XMB(3.9,20,2,829,0)="""RTN"",""DVBHQD1"",236,0)"
^XMB(3.9,20,2,830,0)=" . I DVBVSTUB=DVBNAME S DVBOK=1"
^XMB(3.9,20,2,831,0)="""RTN"",""DVBHQD1"",237,0)"
^XMB(3.9,20,2,832,0)=" Q DVBOK"
^XMB(3.9,20,2,833,0)="""RTN"",""DVBHQUP"")"
^XMB(3.9,20,2,834,0)="0^2^B37378101^B32139458"
^XMB(3.9,20,2,835,0)="""RTN"",""DVBHQUP"",1,0)"
^XMB(3.9,20,2,836,0)="DVBHQUP ;ALB/JLU  This routine is used for the upload option. ; 3/9/06 4:16pm"
^XMB(3.9,20,2,837,0)="""RTN"",""DVBHQUP"",2,0)"
^XMB(3.9,20,2,838,0)=" ;;4.0;HINQ;**12,49,56**;03/25/92 "
^XMB(3.9,20,2,839,0)="""RTN"",""DVBHQUP"",3,0)"
^XMB(3.9,20,2,840,0)="A D A^DVBHUTIL"
^XMB(3.9,20,2,841,0)="""RTN"",""DVBHQUP"",4,0)"
^XMB(3.9,20,2,842,0)="B W !"
^XMB(3.9,20,2,843,0)="""RTN"",""DVBHQUP"",5,0)"
^XMB(3.9,20,2,844,0)="B1 R !,""Do you want to examine the Suspense file by 'P'atient or 'A'll  P// "",K1:DTIME G:'$T KA1 D P:""Pp""[K1!(K1=""""),L:""Aa""[$E(K1_1)"
^XMB(3.9,20,2,845,0)="""RTN"",""DVBHQUP"",6,0)"
^XMB(3.9,20,2,846,0)=" G:DVBOUT=""^"" KA1"
^XMB(3.9,20,2,847,0)="""RTN"",""DVBHQUP"",7,0)"
^XMB(3.9,20,2,848,0)=" I K1=""?""!(K1'=""^"") W !!,*7,?15,""Answer with capital A or P <RET> also for P"",!! G B1"
^XMB(3.9,20,2,849,0)="""RTN"",""DVBHQUP"",8,0)"
^XMB(3.9,20,2,850,0)="KA1 D KA1^DVBHQEDT Q"
^XMB(3.9,20,2,851,0)="""RTN"",""DVBHQUP"",9,0)"
^XMB(3.9,20,2,852,0)="KA D KA^DVBHQEDT"
^XMB(3.9,20,2,853,0)="""RTN"",""DVBHQUP"",10,0)"
^XMB(3.9,20,2,854,0)=" Q"
^XMB(3.9,20,2,855,0)="""RTN"",""DVBHQUP"",11,0)"
^XMB(3.9,20,2,856,0)="P S K1=""^"" K DVBDIQ D P1 I Y<0 S DVBOUT=""^"" Q"
^XMB(3.9,20,2,857,0)="""RTN"",""DVBHQUP"",12,0)"
^XMB(3.9,20,2,858,0)=" N DVBQT,DVBTMP1,DVBTMP2"
^XMB(3.9,20,2,859,0)="""RTN"",""DVBHQUP"",13,0)"
^XMB(3.9,20,2,860,0)=" S DIE=""^DPT("",(DA,DFN)=+Y,DR=""[DVBHINQ UPDATE]"",DVBJ2=0 D TEM^DVBHIQR"
^XMB(3.9,20,2,861,0)="""RTN"",""DVBHQUP"",14,0)"
^XMB(3.9,20,2,862,0)=" I '$D(DVBERCS) D CHKID^DVBHQD1"
^XMB(3.9,20,2,863,0)="""RTN"",""DVBHQUP"",15,0)"
^XMB(3.9,20,2,864,0)=" I $G(DVBQT) D  G P"
^XMB(3.9,20,2,865,0)="""RTN"",""DVBHQUP"",16,0)"
^XMB(3.9,20,2,866,0)=" . S DVBTMP1=$G(DVBNOALR)"
^XMB(3.9,20,2,867,0)="""RTN"",""DVBHQUP"",17,0)"
^XMB(3.9,20,2,868,0)=" . S DVBTMP2=$G(DVBJ2)"
^XMB(3.9,20,2,869,0)="""RTN"",""DVBHQUP"",18,0)"
^XMB(3.9,20,2,870,0)=" . S DVBNOALR="";4///a;5////""_DUZ_"";6///N"",DVBJ2=1 D FILE"
^XMB(3.9,20,2,871,0)="""RTN"",""DVBHQUP"",19,0)"
^XMB(3.9,20,2,872,0)=" . S DVBNOALR=DVBTMP1"
^XMB(3.9,20,2,873,0)="""RTN"",""DVBHQUP"",20,0)"
^XMB(3.9,20,2,874,0)=" . S DVBJ2=DVBTMP2"
^XMB(3.9,20,2,875,0)="""RTN"",""DVBHQUP"",21,0)"
^XMB(3.9,20,2,876,0)=" D ^DIE:'$D(DVBERCS) K DIE,DR,DA"
^XMB(3.9,20,2,877,0)="""RTN"",""DVBHQUP"",22,0)"
^XMB(3.9,20,2,878,0)=" D C I DVBOUT'=""^"" G P"
^XMB(3.9,20,2,879,0)="""RTN"",""DVBHQUP"",23,0)"
^XMB(3.9,20,2,880,0)=" Q"
^XMB(3.9,20,2,881,0)="""RTN"",""DVBHQUP"",24,0)"
^XMB(3.9,20,2,882,0)="L S ANS="""",K1=""^"""
^XMB(3.9,20,2,883,0)="""RTN"",""DVBHQUP"",25,0)"
^XMB(3.9,20,2,884,0)=" I '$D(^DVB(395.5,""AC"",""N"")) W !!,""No patients to be updated."" H 3 Q"
^XMB(3.9,20,2,885,0)="""RTN"",""DVBHQUP"",26,0)"
^XMB(3.9,20,2,886,0)=" F K2=0:0 S K2=$O(^DVB(395.5,""AC"",""N"",K2)) Q:'K2!(DVBOUT=""^"")  D"
^XMB(3.9,20,2,887,0)="""RTN"",""DVBHQUP"",27,0)"
^XMB(3.9,20,2,888,0)=" . I $D(^DVB(395.5,K2,""RS"",0)),$P(^DVB(395.5,K2,0),U,5)'=""Y"",$P(^(0),U,5)'=""I"" D"
^XMB(3.9,20,2,889,0)="""RTN"",""DVBHQUP"",28,0)"
^XMB(3.9,20,2,890,0)=" . . S DIE=""^DPT("",(DA,DFN)=K2,DR=""[DVBHINQ UPDATE]"",DVBJ2=0 D TEM^DVBHIQR"
^XMB(3.9,20,2,891,0)="""RTN"",""DVBHQUP"",29,0)"
^XMB(3.9,20,2,892,0)=" . . N DVBQT,DVBTMP1,DVBTMP2"
^XMB(3.9,20,2,893,0)="""RTN"",""DVBHQUP"",30,0)"
^XMB(3.9,20,2,894,0)=" . . S DVBQT=1"
^XMB(3.9,20,2,895,0)="""RTN"",""DVBHQUP"",31,0)"
^XMB(3.9,20,2,896,0)=" . . I '$D(DVBERCS) D CHKID^DVBHQD1 I DVBQT D  Q"
^XMB(3.9,20,2,897,0)="""RTN"",""DVBHQUP"",32,0)"
^XMB(3.9,20,2,898,0)=" . . . S DVBTMP1=$G(DVBNOALR)"
^XMB(3.9,20,2,899,0)="""RTN"",""DVBHQUP"",33,0)"
^XMB(3.9,20,2,900,0)=" . . . S DVBTMP2=$G(DVBJ2)"
^XMB(3.9,20,2,901,0)="""RTN"",""DVBHQUP"",34,0)"
^XMB(3.9,20,2,902,0)=" . . . S DVBNOALR="";4///a;5////""_DUZ_"";6///N"",DVBJ2=1 D FILE"
^XMB(3.9,20,2,903,0)="""RTN"",""DVBHQUP"",35,0)"
^XMB(3.9,20,2,904,0)=" . . . S DVBNOALR=DVBTMP1"
^XMB(3.9,20,2,905,0)="""RTN"",""DVBHQUP"",36,0)"
^XMB(3.9,20,2,906,0)=" . . . S DVBJ2=DVBTMP2"
^XMB(3.9,20,2,907,0)="""RTN"",""DVBHQUP"",37,0)"
^XMB(3.9,20,2,908,0)=" . . D ^DIE:'$D(DVBERCS) D C,KA Q:DVBOUT=""^"""
^XMB(3.9,20,2,909,0)="""RTN"",""DVBHQUP"",38,0)"
^XMB(3.9,20,2,910,0)=" Q"
^XMB(3.9,20,2,911,0)="""RTN"",""DVBHQUP"",39,0)"
^XMB(3.9,20,2,912,0)="C ;SETS UPDATED? FIELD, RUNS INCONSIS. CHECKER."
^XMB(3.9,20,2,913,0)="""RTN"",""DVBHQUP"",40,0)"
^XMB(3.9,20,2,914,0)=" Q:DVBOUT[""^""  S DVB=DFN,DVBLP=2,DVBMM=1,DVBMM2=1 D QB^DVBHQZ6"
^XMB(3.9,20,2,915,0)="""RTN"",""DVBHQUP"",41,0)"
^XMB(3.9,20,2,916,0)=" Q:'DVBJ2  I DVBJ2 S $P(^DVB(395.5,DFN,0),U,5)=""Y"" S DGEDCN=1 D ^DGRPC I 1"
^XMB(3.9,20,2,917,0)="""RTN"",""DVBHQUP"",42,0)"
^XMB(3.9,20,2,918,0)=" E  S $P(^DVB(395.5,DFN,0),U,5)=""N"""
^XMB(3.9,20,2,919,0)="""RTN"",""DVBHQUP"",43,0)"
^XMB(3.9,20,2,920,0)=" D FILE K DVBDIQ Q"
^XMB(3.9,20,2,921,0)="""RTN"",""DVBHQUP"",44,0)"
^XMB(3.9,20,2,922,0)=" ;"
^XMB(3.9,20,2,923,0)="""RTN"",""DVBHQUP"",45,0)"
^XMB(3.9,20,2,924,0)=" ;I '$D(^DVB(395.7,DFN,0)) K DIC,DD,DO S DIC(0)=""LQ"",DIC=""^DVB(395.7,"",DIC(""DR"")=""1////""_DUZ_"";2///""_""N"",(X,DINUM)=DFN D FILE^DICN I 1"
^XMB(3.9,20,2,925,0)="""RTN"",""DVBHQUP"",46,0)"
^XMB(3.9,20,2,926,0)=" ;E  S DIE=""^DVB(395.7,"",DA=DFN,DR=""1////""_DUZ_"";2///""_""N"" D ^DIE"
^XMB(3.9,20,2,927,0)="""RTN"",""DVBHQUP"",47,0)"
^XMB(3.9,20,2,928,0)=" ;"
^XMB(3.9,20,2,929,0)="""RTN"",""DVBHQUP"",48,0)"
^XMB(3.9,20,2,930,0)="FILE I '$D(^DVB(395.7,DFN,0)) DO"
^XMB(3.9,20,2,931,0)="""RTN"",""DVBHQUP"",49,0)"
^XMB(3.9,20,2,932,0)=" .K DIC,DD,DO S DIC(0)=""LQ"",DIC=""^DVB(395.7,"""
^XMB(3.9,20,2,933,0)="""RTN"",""DVBHQUP"",50,0)"
^XMB(3.9,20,2,934,0)=" .S DIC(""DR"")=""1////""_DUZ_"";2///""_""N""_$S($D(DVBNOALR):DVBNOALR,1:"""")"
^XMB(3.9,20,2,935,0)="""RTN"",""DVBHQUP"",51,0)"
^XMB(3.9,20,2,936,0)=" .S (X,DINUM)=DFN D FILE^DICN"
^XMB(3.9,20,2,937,0)="""RTN"",""DVBHQUP"",52,0)"
^XMB(3.9,20,2,938,0)=" E  DO"
^XMB(3.9,20,2,939,0)="""RTN"",""DVBHQUP"",53,0)"
^XMB(3.9,20,2,940,0)=" .K DIC S (DIC,DIE)=""^DVB(395.7,"",DA=DFN"
^XMB(3.9,20,2,941,0)="""RTN"",""DVBHQUP"",54,0)"
^XMB(3.9,20,2,942,0)=" .S DR=""1////""_DUZ_"";2///""_""N""_$S($D(DVBNOALR):DVBNOALR,1:"""")"
^XMB(3.9,20,2,943,0)="""RTN"",""DVBHQUP"",55,0)"
^XMB(3.9,20,2,944,0)=" .I 'DVBJ2,$D(DVBNOALR),DVBNOALR]"""" S DR=$E(DVBNOALR,2,99)"
^XMB(3.9,20,2,945,0)="""RTN"",""DVBHQUP"",56,0)"
^XMB(3.9,20,2,946,0)=" .L +^DVB(395.7,DFN):3 I $T D ^DIE"
^XMB(3.9,20,2,947,0)="""RTN"",""DVBHQUP"",57,0)"
^XMB(3.9,20,2,948,0)=" .L -^DVB(395.7,DFN)"
^XMB(3.9,20,2,949,0)="""RTN"",""DVBHQUP"",58,0)"
^XMB(3.9,20,2,950,0)=" K DIC,DIE,DA,DR Q"
^XMB(3.9,20,2,951,0)="""RTN"",""DVBHQUP"",59,0)"
^XMB(3.9,20,2,952,0)=" ;"
^XMB(3.9,20,2,953,0)="""RTN"",""DVBHQUP"",60,0)"
^XMB(3.9,20,2,954,0)=" ;ENRTY PT FOR PRINT OPTION"
^XMB(3.9,20,2,955,0)="""RTN"",""DVBHQUP"",61,0)"
^XMB(3.9,20,2,956,0)="PT W @$S('$D(IOF):""#"",IOF="""":""#"",1:IOF),!!!!!!!!!!"
^XMB(3.9,20,2,957,0)="""RTN"",""DVBHQUP"",62,0)"
^XMB(3.9,20,2,958,0)="PT1 R ""Do you want a print out of a (S)ingle patient or (A)ll of the patients?  S// "",DVBJA:DTIME G:'$T KA1 D S:DVBJA=""S""!(DVBJA=""""),T:DVBJA=""A"""
^XMB(3.9,20,2,959,0)="""RTN"",""DVBHQUP"",63,0)"
^XMB(3.9,20,2,960,0)=" I DVBJA=""?""!(DVBJA'=""^"") W !!,*7,?15,""Answer with a capital A or S or <RET> for S"",!! G PT1"
^XMB(3.9,20,2,961,0)="""RTN"",""DVBHQUP"",64,0)"
^XMB(3.9,20,2,962,0)=" D KA1 Q"
^XMB(3.9,20,2,963,0)="""RTN"",""DVBHQUP"",65,0)"
^XMB(3.9,20,2,964,0)="S D P1 I Y<0 S DVBJA=""^"" Q"
^XMB(3.9,20,2,965,0)="""RTN"",""DVBHQUP"",66,0)"
^XMB(3.9,20,2,966,0)=" S (DFN,D0,ZTSAVE(""D0""),ZTSAVE(""DFN""))=+Y,ZTRTN=""S1^DVBHQUP"" D RP I $D(IO(""Q""))!POP S DVBJA=""^"" Q"
^XMB(3.9,20,2,967,0)="""RTN"",""DVBHQUP"",67,0)"
^XMB(3.9,20,2,968,0)="S1 U IO D TEM^DVBHIQR,^DVBHCG:'$D(DVBERCS) I '$D(ZTSK) X ^%ZIS(""C"")"
^XMB(3.9,20,2,969,0)="""RTN"",""DVBHQUP"",68,0)"
^XMB(3.9,20,2,970,0)=" S DVBJA=""^"" Q"
^XMB(3.9,20,2,971,0)="""RTN"",""DVBHQUP"",69,0)"
^XMB(3.9,20,2,972,0)="T S DVBJA=""^"",ZTRTN=""RP1^DVBHQUP"""
^XMB(3.9,20,2,973,0)="""RTN"",""DVBHQUP"",70,0)"
^XMB(3.9,20,2,974,0)=" W !!,?6,""Select one of the following:"",!!,?11,""1   Updated"",!,?11,""2   NOT  Updated"",!,?11,""3   Both"",!,""How would you like your print sorted?  Updated//"""
^XMB(3.9,20,2,975,0)="""RTN"",""DVBHQUP"",71,0)"
^XMB(3.9,20,2,976,0)=" R Y:DTIME Q:Y=""^""!('$T)"
^XMB(3.9,20,2,977,0)="""RTN"",""DVBHQUP"",72,0)"
^XMB(3.9,20,2,978,0)=" S (ZTSAVE(""DVBY""),DVBY)=$S(Y=1!(Y="""")!(Y[""U""):1,Y=2!(Y[""N""):2,Y=3!(Y[""B""):3,1:"""")"
^XMB(3.9,20,2,979,0)="""RTN"",""DVBHQUP"",73,0)"
^XMB(3.9,20,2,980,0)=" I DVBY="""" W !!,*7,""Answer with a code from the list."" G T"
^XMB(3.9,20,2,981,0)="""RTN"",""DVBHQUP"",74,0)"
^XMB(3.9,20,2,982,0)=" D CT Q"
^XMB(3.9,20,2,983,0)="""RTN"",""DVBHQUP"",75,0)"
^XMB(3.9,20,2,984,0)=" ;"
^XMB(3.9,20,2,985,0)="""RTN"",""DVBHQUP"",76,0)"
^XMB(3.9,20,2,986,0)="AU ;ENTRY POINT FOR DISPLAY OF AUDIT."
^XMB(3.9,20,2,987,0)="""RTN"",""DVBHQUP"",77,0)"
^XMB(3.9,20,2,988,0)=" W @$S('$D(IOF):""#"",IOF="""":""#"",1:IOF),!!!!!"
^XMB(3.9,20,2,989,0)="""RTN"",""DVBHQUP"",78,0)"
^XMB(3.9,20,2,990,0)="AU1 W !!,?6,""Select one of the following:"",!!,?11,""1   Patient"",!,?11,""2   User"",!,?11,""3   Date/Time"",!,""By which would you like the sort to begin? : Patient//"""
^XMB(3.9,20,2,991,0)="""RTN"",""DVBHQUP"",79,0)"
^XMB(3.9,20,2,992,0)=" R Y:DTIME Q:Y=""^""!('$T)"
^XMB(3.9,20,2,993,0)="""RTN"",""DVBHQUP"",80,0)"
^XMB(3.9,20,2,994,0)=" S (FLDS,BY)=$S(Y=1!(Y="""")!(Y[""P""):""[DVBHINQ AUDIT/PAT]"",Y=2!(Y[""U""):""[DVBHINQ AUDIT/USER]"",Y=3!(Y[""D""):""[DVBHINQ AUDIT/DT]"",1:"""")"
^XMB(3.9,20,2,995,0)="""RTN"",""DVBHQUP"",81,0)"
^XMB(3.9,20,2,996,0)=" I BY="""" W !!,*7,""Answer with a code from the above list."" G AU1"
^XMB(3.9,20,2,997,0)="""RTN"",""DVBHQUP"",82,0)"
^XMB(3.9,20,2,998,0)=" S L=0,DIC=""^DVB(395.7,"",(FR,TO)="""" D EN1^DIP Q"
^XMB(3.9,20,2,999,0)="""RTN"",""DVBHQUP"",83,0)"
^XMB(3.9,20,2,1000,0)=" ;"
^XMB(3.9,20,2,1001,0)="""RTN"",""DVBHQUP"",84,0)"
^XMB(3.9,20,2,1002,0)="P1 W ! D KA S DIC=""^DVB(395.5,"",DIC(0)=""AEMZQ"",DIC(""S"")=""I ($P(^(0),U,4)=""""N""""),($D(^(""""RS"""",0)))"",DIC(""A"")=""Select Patient from """"HINQ Suspense file"""":"" D ^DIC K DIC Q"
^XMB(3.9,20,2,1003,0)="""RTN"",""DVBHQUP"",85,0)"
^XMB(3.9,20,2,1004,0)=" ;"
^XMB(3.9,20,2,1005,0)="""RTN"",""DVBHQUP"",86,0)"
^XMB(3.9,20,2,1006,0)="RP S %IS=""MQ"" D ^%ZIS Q:POP  I $D(IO(""Q"")) S ZTDESC=""This is a job for the HINQ report."",ZTIO=ION D ^%ZTLOAD X ^%ZIS(""C"") Q"
^XMB(3.9,20,2,1007,0)="""RTN"",""DVBHQUP"",87,0)"
^XMB(3.9,20,2,1008,0)=" Q:DVBJA=""""!(DVBJA=""S"")"
^XMB(3.9,20,2,1009,0)="""RTN"",""DVBHQUP"",88,0)"
^XMB(3.9,20,2,1010,0)="RP1 S DVB8="""" U IO F D0=0:0 S (D0,DFN)=$O(^DVB(395.5,""AC"",""N"",D0)) Q:'D0  S DVBJ1=$S((DVBY=1)&($P(^DVB(395.5,D0,0),U,5)=""Y""):1,(DVBY=2)&($P(^(0),U,5)'=""Y""):1,DVBY=3:1,1:0) D:DVBJ1 TEM^DVBHIQR,^DVBHCG:'$D(DVBERCS) Q:DVB8[""^""  D KA"
^XMB(3.9,20,2,1011,0)="""RTN"",""DVBHQUP"",89,0)"
^XMB(3.9,20,2,1012,0)=" I '$D(ZTSK) X ^%ZIS(""C"")"
^XMB(3.9,20,2,1013,0)="""RTN"",""DVBHQUP"",90,0)"
^XMB(3.9,20,2,1014,0)=" Q"
^XMB(3.9,20,2,1015,0)="""RTN"",""DVBHQUP"",91,0)"
^XMB(3.9,20,2,1016,0)=" ;"
^XMB(3.9,20,2,1017,0)="""RTN"",""DVBHQUP"",92,0)"
^XMB(3.9,20,2,1018,0)="CT S DVB1=0 F DVB=0:0 S DVB1=$O(^DVB(395.5,""AC"",""N"",DVB1)) Q:'DVB1  S DVB=$S(DVBY=1&($P(^DVB(395.5,DVB1,0),U,5)=""Y""):DVB+1,DVBY=2&($P(^(0),U,5)'=""Y""):DVB+1,DVBY=3:DVB+1,1:DVB)"
^XMB(3.9,20,2,1019,0)="""RTN"",""DVBHQUP"",93,0)"
^XMB(3.9,20,2,1020,0)=" I 'DVB W !,""There are no patients at this time for this print."" Q"
^XMB(3.9,20,2,1021,0)="""RTN"",""DVBHQUP"",94,0)"
^XMB(3.9,20,2,1022,0)="CT1 W !!,""There are "",DVB,"" patients for this report, do you wish to continue"" S %=1 D YN^DICN Q:%=2!(%<0)  I '% W !,""A YES answer will continue on with the report, answer with Y or N"" G CT1"
^XMB(3.9,20,2,1023,0)="""RTN"",""DVBHQUP"",95,0)"
^XMB(3.9,20,2,1024,0)=" D RP Q"
^XMB(3.9,20,2,1025,0)="""RTN"",""DVBHQUP"",96,0)"
^XMB(3.9,20,2,1026,0)="LSTR ;lists the SC disabilities in the ReviewPatient vs. HINQ data "
^XMB(3.9,20,2,1027,0)="""RTN"",""DVBHQUP"",97,0)"
^XMB(3.9,20,2,1028,0)=" ;option, [DVB HUPLOAD-PRINT]"
^XMB(3.9,20,2,1029,0)="""RTN"",""DVBHQUP"",98,0)"
^XMB(3.9,20,2,1030,0)=" ;called from print template [DVBHINQ PAT-HINQ COMP]"
^XMB(3.9,20,2,1031,0)="""RTN"",""DVBHQUP"",99,0)"
^XMB(3.9,20,2,1032,0)=" N DVBIEN"
^XMB(3.9,20,2,1033,0)="""RTN"",""DVBHQUP"",100,0)"
^XMB(3.9,20,2,1034,0)=" K DVBERR"
^XMB(3.9,20,2,1035,0)="""RTN"",""DVBHQUP"",101,0)"
^XMB(3.9,20,2,1036,0)=" D GETS^DIQ(2,DFN_"","","".302;.3014;.3721*"",""EI"",""DVBDIQ"",""DVBERR"")"
^XMB(3.9,20,2,1037,0)="""RTN"",""DVBHQUP"",102,0)"
^XMB(3.9,20,2,1038,0)=" W ""-Comb. SC%: ""_+DVBDIQ(2,DFN_"","",.302,""E"")_""  """
^XMB(3.9,20,2,1039,0)="""RTN"",""DVBHQUP"",103,0)"
^XMB(3.9,20,2,1040,0)=" W ""Eff. Date Comb. Eval.: ""_DVBDIQ(2,DFN_"","",.3014,""E"")"
^XMB(3.9,20,2,1041,0)="""RTN"",""DVBHQUP"",104,0)"
^XMB(3.9,20,2,1042,0)=" I $P($G(^DPT(DFN,.372,0)),U,3)>0 D LABELS^DVBHS3"
^XMB(3.9,20,2,1043,0)="""RTN"",""DVBHQUP"",105,0)"
^XMB(3.9,20,2,1044,0)=" S LP="""""
^XMB(3.9,20,2,1045,0)="""RTN"",""DVBHQUP"",106,0)"
^XMB(3.9,20,2,1046,0)=" I $D(DVBDIQ(2.04)) F  S LP=$O(DVBDIQ(2.04,LP)) Q:'LP  D"
^XMB(3.9,20,2,1047,0)="""RTN"",""DVBHQUP"",107,0)"
^XMB(3.9,20,2,1048,0)=" . I ($Y+5)>IOSL,$E(IOST,1,2)=""C-"" D PAUSE^DVBHS3"
^XMB(3.9,20,2,1049,0)="""RTN"",""DVBHQUP"",108,0)"
^XMB(3.9,20,2,1050,0)=" . W !,$E(DVBDIQ(2.04,LP,.01,""E""),1,40),?42,DVBDIQ(2.04,LP,2,""E"")"
^XMB(3.9,20,2,1051,0)="""RTN"",""DVBHQUP"",109,0)"
^XMB(3.9,20,2,1052,0)=" . W ?50,$G(DVBDIQ(2.04,LP,4,""I"")),?55,$G(DVBDIQ(2.04,LP,5,""E""))"
^XMB(3.9,20,2,1053,0)="""RTN"",""DVBHQUP"",110,0)"
^XMB(3.9,20,2,1054,0)=" . W ?68,$G(DVBDIQ(2.04,LP,6,""E""))"
^XMB(3.9,20,2,1055,0)="""RTN"",""DVBHQUP"",111,0)"
^XMB(3.9,20,2,1056,0)=" Q"
^XMB(3.9,20,2,1057,0)="""RTN"",""DVBHQUP"",112,0)"
^XMB(3.9,20,2,1058,0)=" N DVBFR,DVBLAST,DVBX,QUIT"
^XMB(3.9,20,2,1059,0)="""RTN"",""DVBHQUP"",113,0)"
^XMB(3.9,20,2,1060,0)=" S DVBFR="""""
^XMB(3.9,20,2,1061,0)="""RTN"",""DVBHQUP"",114,0)"
^XMB(3.9,20,2,1062,0)=" S DVBLAST=$O(^DPT(DFN,.372,""""),-1)"
^XMB(3.9,20,2,1063,0)="""RTN"",""DVBHQUP"",115,0)"
^XMB(3.9,20,2,1064,0)=" I $G(DVBLAST)']"""" Q"
^XMB(3.9,20,2,1065,0)="""RTN"",""DVBHQUP"",116,0)"
^XMB(3.9,20,2,1066,0)=" F DVBX=0:0 D LOOP I $G(QUIT)=1!(DVBFR(2)>DVBLAST) K QUIT Q"
^XMB(3.9,20,2,1067,0)="""RTN"",""DVBHQUP"",117,0)"
^XMB(3.9,20,2,1068,0)=" Q"
^XMB(3.9,20,2,1069,0)="""RTN"",""DVBHQUP"",118,0)"
^XMB(3.9,20,2,1070,0)="LOOP ;"
^XMB(3.9,20,2,1071,0)="""RTN"",""DVBHQUP"",119,0)"
^XMB(3.9,20,2,1072,0)=" D LIST"
^XMB(3.9,20,2,1073,0)="""RTN"",""DVBHQUP"",120,0)"
^XMB(3.9,20,2,1074,0)=" N DVBCT"
^XMB(3.9,20,2,1075,0)="""RTN"",""DVBHQUP"",121,0)"
^XMB(3.9,20,2,1076,0)=" F DVBCT=0:0  S DVBCT=$O(DVBARR(""DILIST"",DVBCT)) Q:'DVBCT!(DVBCT>19)  D"
^XMB(3.9,20,2,1077,0)="""RTN"",""DVBHQUP"",122,0)"
^XMB(3.9,20,2,1078,0)=" . W !?36,$P(DVBARR(""DILIST"",DVBCT,0),U,2),?68,$P(DVBARR(""DILIST"",DVBCT,0),U,4),?74,$P(DVBARR(""DILIST"",DVBCT,0),U,5)"
^XMB(3.9,20,2,1079,0)="""RTN"",""DVBHQUP"",123,0)"
^XMB(3.9,20,2,1080,0)=" D PAUSE^DVBHS3"
^XMB(3.9,20,2,1081,0)="""RTN"",""DVBHQUP"",124,0)"
^XMB(3.9,20,2,1082,0)=" Q"
^XMB(3.9,20,2,1083,0)="""RTN"",""DVBHQUP"",125,0)"
^XMB(3.9,20,2,1084,0)="LIST ;"
^XMB(3.9,20,2,1085,0)="""RTN"",""DVBHQUP"",126,0)"
^XMB(3.9,20,2,1086,0)=" D LIST^DIC(2.04,"",""_DFN_"","","".01;2;3"",""P"",20,.DVBFR,,,,,""DVBARR"",)"
^XMB(3.9,20,2,1087,0)="""RTN"",""DVBHQUP"",127,0)"
^XMB(3.9,20,2,1088,0)=" I $G(DVBFR(2))'>0 S QUIT=1"
^XMB(3.9,20,2,1089,0)="""RTN"",""DVBHQUP"",128,0)"
^XMB(3.9,20,2,1090,0)=" Q "
^XMB(3.9,20,2,1091,0)="""RTN"",""DVBHS2"")"
^XMB(3.9,20,2,1092,0)="0^3^B10150900^B10155550"
^XMB(3.9,20,2,1093,0)="""RTN"",""DVBHS2"",1,0)"
^XMB(3.9,20,2,1094,0)="DVBHS2 ;ALB/JLU;This is the display for screen 2 ;10/7/91"
^XMB(3.9,20,2,1095,0)="""RTN"",""DVBHS2"",2,0)"
^XMB(3.9,20,2,1096,0)=" ;;4.0;HINQ;**11,17,49,56**;03/25/92 "
^XMB(3.9,20,2,1097,0)="""RTN"",""DVBHS2"",3,0)"
^XMB(3.9,20,2,1098,0)=" ;"
^XMB(3.9,20,2,1099,0)="""RTN"",""DVBHS2"",4,0)"
^XMB(3.9,20,2,1100,0)=" N Y"
^XMB(3.9,20,2,1101,0)="""RTN"",""DVBHS2"",5,0)"
^XMB(3.9,20,2,1102,0)=" K DVBX(1)"
^XMB(3.9,20,2,1103,0)="""RTN"",""DVBHS2"",6,0)"
^XMB(3.9,20,2,1104,0)=" F LP2=.02,.03,.293,.314,.351,.525,.313,.305 S X=""DVBDIQ(2,""_DFN_"",""_LP2_"")"" K @X"
^XMB(3.9,20,2,1105,0)="""RTN"",""DVBHS2"",7,0)"
^XMB(3.9,20,2,1106,0)=" I $D(X(1)) S DVBX(1)=X(1)"
^XMB(3.9,20,2,1107,0)="""RTN"",""DVBHS2"",8,0)"
^XMB(3.9,20,2,1108,0)=" S DIC=""^DPT("",DA=DFN,DIQ(0)=""E"",DIQ=""DVBDIQ("""
^XMB(3.9,20,2,1109,0)="""RTN"",""DVBHS2"",9,0)"
^XMB(3.9,20,2,1110,0)=" S DR="".02;.03;.293;.313;.314;.351;.525;.305"""
^XMB(3.9,20,2,1111,0)="""RTN"",""DVBHS2"",10,0)"
^XMB(3.9,20,2,1112,0)=" D EN^DIQ1"
^XMB(3.9,20,2,1113,0)="""RTN"",""DVBHS2"",11,0)"
^XMB(3.9,20,2,1114,0)=" I $D(DVBX(1)) S X(1)=DVBX(1) K DVBX(1)"
^XMB(3.9,20,2,1115,0)="""RTN"",""DVBHS2"",12,0)"
^XMB(3.9,20,2,1116,0)=" ;"
^XMB(3.9,20,2,1117,0)="""RTN"",""DVBHS2"",13,0)"
^XMB(3.9,20,2,1118,0)=" S DVBSCRN=2 D SCRHD^DVBHUTIL"
^XMB(3.9,20,2,1119,0)="""RTN"",""DVBHS2"",14,0)"
^XMB(3.9,20,2,1120,0)=" S DVBJS=28"
^XMB(3.9,20,2,1121,0)="""RTN"",""DVBHS2"",15,0)"
^XMB(3.9,20,2,1122,0)=" ;"
^XMB(3.9,20,2,1123,0)="""RTN"",""DVBHS2"",16,0)"
^XMB(3.9,20,2,1124,0)=" W !,DVBON,""[1]"",DVBOFF X DVBLIT1"
^XMB(3.9,20,2,1125,0)="""RTN"",""DVBHS2"",17,0)"
^XMB(3.9,20,2,1126,0)=" W ?4,""Claim Num. :"""
^XMB(3.9,20,2,1127,0)="""RTN"",""DVBHS2"",18,0)"
^XMB(3.9,20,2,1128,0)=" W ?19,DVBDIQ(2,DFN,.313,""E"")"
^XMB(3.9,20,2,1129,0)="""RTN"",""DVBHS2"",19,0)"
^XMB(3.9,20,2,1130,0)=" I $D(DVBCN),DVBCN W ?49,DVBCN"
^XMB(3.9,20,2,1131,0)="""RTN"",""DVBHS2"",20,0)"
^XMB(3.9,20,2,1132,0)=" ;"
^XMB(3.9,20,2,1133,0)="""RTN"",""DVBHS2"",21,0)"
^XMB(3.9,20,2,1134,0)=" W !,DVBON,""<2>"",DVBOFF X DVBLIT1"
^XMB(3.9,20,2,1135,0)="""RTN"",""DVBHS2"",22,0)"
^XMB(3.9,20,2,1136,0)=" W ?4,""Date of Birth:"""
^XMB(3.9,20,2,1137,0)="""RTN"",""DVBHS2"",23,0)"
^XMB(3.9,20,2,1138,0)=" W ?19,DVBDIQ(2,DFN,.03,""E"")"
^XMB(3.9,20,2,1139,0)="""RTN"",""DVBHS2"",24,0)"
^XMB(3.9,20,2,1140,0)=" I $D(DVBDOB),DVBDOB I DVBDOB?8N S M=$E(DVBDOB,1,2) D MM^DVBHQM11 W ?49,M_"" ""_$S(+$E(DVBDOB,3,4)>0:$E(DVBDOB,3,4)_"", "",1:"" "")_$E(DVBDOB,5,8) K M"
^XMB(3.9,20,2,1141,0)="""RTN"",""DVBHS2"",25,0)"
^XMB(3.9,20,2,1142,0)=" ;"
^XMB(3.9,20,2,1143,0)="""RTN"",""DVBHS2"",26,0)"
^XMB(3.9,20,2,1144,0)=" W !,DVBON,""<3>"",DVBOFF X DVBLIT1"
^XMB(3.9,20,2,1145,0)="""RTN"",""DVBHS2"",27,0)"
^XMB(3.9,20,2,1146,0)=" W ?4,""Sex:"""
^XMB(3.9,20,2,1147,0)="""RTN"",""DVBHS2"",28,0)"
^XMB(3.9,20,2,1148,0)=" W ?19,DVBDIQ(2,DFN,.02,""E"")"
^XMB(3.9,20,2,1149,0)="""RTN"",""DVBHS2"",29,0)"
^XMB(3.9,20,2,1150,0)=" I $D(DVBVET),$P(DVBVET,U,1)'=""C"" W ?49,$S($P(DVBVET,U,3)=""M"":""MALE"",$P(DVBVET,U,3)=""F"":""FEMALE"",1:"""")"
^XMB(3.9,20,2,1151,0)="""RTN"",""DVBHS2"",30,0)"
^XMB(3.9,20,2,1152,0)=" E  I $D(DVBBIR) W ?49,$S($P(DVBBIR,U,25)=""M"":""MALE"",$P(DVBBIR,U,25)=""F"":""FEMALE"",1:"""")"
^XMB(3.9,20,2,1153,0)="""RTN"",""DVBHS2"",31,0)"
^XMB(3.9,20,2,1154,0)=" ;"
^XMB(3.9,20,2,1155,0)="""RTN"",""DVBHS2"",32,0)"
^XMB(3.9,20,2,1156,0)=" W !,DVBON,""[4]"",DVBOFF X DVBLIT1"
^XMB(3.9,20,2,1157,0)="""RTN"",""DVBHS2"",33,0)"
^XMB(3.9,20,2,1158,0)=" W ?4,""Date of Death:"""
^XMB(3.9,20,2,1159,0)="""RTN"",""DVBHS2"",34,0)"
^XMB(3.9,20,2,1160,0)=" W ?19,DVBDIQ(2,DFN,.351,""E"")"
^XMB(3.9,20,2,1161,0)="""RTN"",""DVBHS2"",35,0)"
^XMB(3.9,20,2,1162,0)=" I $D(DVBVET),$P(DVBVET,U,1)=""B"",+$P(DVBVET,U,12),$P(DVBVET,U,12)?8N S M2=$P(DVBVET,U,12),M=$E(M2,5,6) D MM^DVBHQM11 W ?49,M_"" ""_$E(M2,7,8)_"", ""_$E(M2,1,4) K M,M2 I 1"
^XMB(3.9,20,2,1163,0)="""RTN"",""DVBHS2"",36,0)"
^XMB(3.9,20,2,1164,0)=" E  I $D(DVBP(6)),(+$P(DVBP(6),U)),$P(DVBP(6),U)?8N S M=$E(DVBP(6),1,2) D MM^DVBHQM11 W ?49,M_"" ""_$S(+$E(DVBP(6),3,4)>0:$E(DVBP(6),3,4)_"", "",1:"" "")_$E(DVBP(6),5,8) K M"
^XMB(3.9,20,2,1165,0)="""RTN"",""DVBHS2"",37,0)"
^XMB(3.9,20,2,1166,0)=" ;"
^XMB(3.9,20,2,1167,0)="""RTN"",""DVBHS2"",38,0)"
^XMB(3.9,20,2,1168,0)=" W !,DVBON,""[5]"",DVBOFF X DVBLIT1"
^XMB(3.9,20,2,1169,0)="""RTN"",""DVBHS2"",39,0)"
^XMB(3.9,20,2,1170,0)=" W ?4,""Rated Incomp.:"""
^XMB(3.9,20,2,1171,0)="""RTN"",""DVBHS2"",40,0)"
^XMB(3.9,20,2,1172,0)=" W ?19,DVBDIQ(2,DFN,.293,""E"")"
^XMB(3.9,20,2,1173,0)="""RTN"",""DVBHS2"",41,0)"
^XMB(3.9,20,2,1174,0)=" I $D(DVBCI) W ?49,$S(""1""[DVBCI!(DVBCI=""C""):""Competent, or not an issue"",DVBCI=""I""!(DVBCI=2):""Incompetent"",1:DVBCI)"
^XMB(3.9,20,2,1175,0)="""RTN"",""DVBHS2"",42,0)"
^XMB(3.9,20,2,1176,0)=" ;"
^XMB(3.9,20,2,1177,0)="""RTN"",""DVBHS2"",43,0)"
^XMB(3.9,20,2,1178,0)=" W !,DVBON,""[6]"",DVBOFF X DVBLIT1"
^XMB(3.9,20,2,1179,0)="""RTN"",""DVBHS2"",44,0)"
^XMB(3.9,20,2,1180,0)=" W ?4,""POW:"""
^XMB(3.9,20,2,1181,0)="""RTN"",""DVBHS2"",45,0)"
^XMB(3.9,20,2,1182,0)=" W ?19,DVBDIQ(2,DFN,.525,""E"")"
^XMB(3.9,20,2,1183,0)="""RTN"",""DVBHS2"",46,0)"
^XMB(3.9,20,2,1184,0)=" W ?49"
^XMB(3.9,20,2,1185,0)="""RTN"",""DVBHS2"",47,0)"
^XMB(3.9,20,2,1186,0)=" W $S('$D(DVBPOW):""No POW Ind."",DVBPOW=0:""No Prisoner of war"",DVBPOW=1:""30 days or fewer"",DVBPOW=2:""more than 30 days"",DVBPOW="" "":""Not applicable"",1:DVBPOW),""/"""
^XMB(3.9,20,2,1187,0)="""RTN"",""DVBHS2"",48,0)"
^XMB(3.9,20,2,1188,0)=" W $S('$D(DVBPOWD):""No POW Days Ind."",1:DVBPOWD)"
^XMB(3.9,20,2,1189,0)="""RTN"",""DVBHS2"",49,0)"
^XMB(3.9,20,2,1190,0)=" ;"
^XMB(3.9,20,2,1191,0)="""RTN"",""DVBHS2"",50,0)"
^XMB(3.9,20,2,1192,0)=" ;"
^XMB(3.9,20,2,1193,0)="""RTN"",""DVBHS2"",51,0)"
^XMB(3.9,20,2,1194,0)=" W !,DVBON,""[7]"",DVBOFF X DVBLIT1"
^XMB(3.9,20,2,1195,0)="""RTN"",""DVBHS2"",52,0)"
^XMB(3.9,20,2,1196,0)=" W ?4,""Folder Loc. :"""
^XMB(3.9,20,2,1197,0)="""RTN"",""DVBHS2"",53,0)"
^XMB(3.9,20,2,1198,0)=" W ?19,DVBDIQ(2,DFN,.314,""E"")"
^XMB(3.9,20,2,1199,0)="""RTN"",""DVBHS2"",54,0)"
^XMB(3.9,20,2,1200,0)=" I $D(DVBFL) W ?49,DVBFL"
^XMB(3.9,20,2,1201,0)="""RTN"",""DVBHS2"",55,0)"
^XMB(3.9,20,2,1202,0)=" ;"
^XMB(3.9,20,2,1203,0)="""RTN"",""DVBHS2"",56,0)"
^XMB(3.9,20,2,1204,0)=" W !,DVBON,""[8]"",DVBOFF X DVBLIT1"
^XMB(3.9,20,2,1205,0)="""RTN"",""DVBHS2"",57,0)"
^XMB(3.9,20,2,1206,0)=" W ?4,""Unemployable:"""
^XMB(3.9,20,2,1207,0)="""RTN"",""DVBHS2"",58,0)"
^XMB(3.9,20,2,1208,0)=" I $D(DVBDIQ(2,DFN,.305,""E"")) W ?19,DVBDIQ(2,DFN,.305,""E"")"
^XMB(3.9,20,2,1209,0)="""RTN"",""DVBHS2"",59,0)"
^XMB(3.9,20,2,1210,0)=" I $D(DVBEI) W ?49,$S(DVBEI=1!(DVBEI=""N""):""Employable"",DVBEI=2!(DVBEI=""Y""):""Unemployable"",1:DVBEI)"
^XMB(3.9,20,2,1211,0)="""RTN"",""DVBHS2"",60,0)"
^XMB(3.9,20,2,1212,0)=" K Y"
^XMB(3.9,20,2,1213,0)="""RTN"",""DVBHS2"",61,0)"
^XMB(3.9,20,2,1214,0)=" Q"
^XMB(3.9,20,2,1215,0)="""RTN"",""DVBHT"")"
^XMB(3.9,20,2,1216,0)="0^4^B27405943^B24943458"
^XMB(3.9,20,2,1217,0)="""RTN"",""DVBHT"",1,0)"
^XMB(3.9,20,2,1218,0)="DVBHT ;PKE/ISC-ALBANY; HINQ alert parser; 5/10/92 ; 3/9/06 4:18pm"
^XMB(3.9,20,2,1219,0)="""RTN"",""DVBHT"",2,0)"
^XMB(3.9,20,2,1220,0)=" ;;4.0;HINQ;**12,18,20,56**;03/25/92"
^XMB(3.9,20,2,1221,0)="""RTN"",""DVBHT"",3,0)"
^XMB(3.9,20,2,1222,0)=" ;"
^XMB(3.9,20,2,1223,0)="""RTN"",""DVBHT"",4,0)"
^XMB(3.9,20,2,1224,0)=" ;call alert"
^XMB(3.9,20,2,1225,0)="""RTN"",""DVBHT"",5,0)"
^XMB(3.9,20,2,1226,0)="ALERT I '$D(ZTQUEUED) H 1 W $C(7),"".. Alert found."""
^XMB(3.9,20,2,1227,0)="""RTN"",""DVBHT"",6,0)"
^XMB(3.9,20,2,1228,0)=" S (I,Y)=0,XQAMSG="""""
^XMB(3.9,20,2,1229,0)="""RTN"",""DVBHT"",7,0)"
^XMB(3.9,20,2,1230,0)=" F  S Y=$O(DVBDATA(Y)) Q:'Y  DO"
^XMB(3.9,20,2,1231,0)="""RTN"",""DVBHT"",8,0)"
^XMB(3.9,20,2,1232,0)=" .S $P(DVBDATA,""^"",I+1)=Y"
^XMB(3.9,20,2,1233,0)="""RTN"",""DVBHT"",9,0)"
^XMB(3.9,20,2,1234,0)=" .S XQAMSG=XQAMSG_$S(I:"", "",1:"""")_Y S I=I+1"
^XMB(3.9,20,2,1235,0)="""RTN"",""DVBHT"",10,0)"
^XMB(3.9,20,2,1236,0)=" .K DVBDATA(Y)"
^XMB(3.9,20,2,1237,0)="""RTN"",""DVBHT"",11,0)"
^XMB(3.9,20,2,1238,0)=" S XQAMSG=""Screen""_$S(I>1:""s "",1:""  "")_XQAMSG"
^XMB(3.9,20,2,1239,0)="""RTN"",""DVBHT"",12,0)"
^XMB(3.9,20,2,1240,0)=" ;"
^XMB(3.9,20,2,1241,0)="""RTN"",""DVBHT"",13,0)"
^XMB(3.9,20,2,1242,0)=" D MAILGP^DVBHT2,REQUSR^DVBHT2"
^XMB(3.9,20,2,1243,0)="""RTN"",""DVBHT"",14,0)"
^XMB(3.9,20,2,1244,0)=" I $D(XQA)'>9 S XQA(DUZ)="""""
^XMB(3.9,20,2,1245,0)="""RTN"",""DVBHT"",15,0)"
^XMB(3.9,20,2,1246,0)=" S Y=DT D TM"
^XMB(3.9,20,2,1247,0)="""RTN"",""DVBHT"",16,0)"
^XMB(3.9,20,2,1248,0)=" ;"
^XMB(3.9,20,2,1249,0)="""RTN"",""DVBHT"",17,0)"
^XMB(3.9,20,2,1250,0)=" S XQAMSG=$E($P(^DPT(DFN,0),""^"")_""        "",1,9)_"" ""_""(""_$E(^(0))_$E($P(^(0),""^"",9),6,10)_"")""_$S('$L($E($P(^(0),""^"",9),10)):"":"",1:"""")_"" HINQ Update . ""_$E(XQAMSG_""                "",1,16)_$J(Y,8)"
^XMB(3.9,20,2,1251,0)="""RTN"",""DVBHT"",18,0)"
^XMB(3.9,20,2,1252,0)=" I '$O(XQA(0))"
^XMB(3.9,20,2,1253,0)="""RTN"",""DVBHT"",19,0)"
^XMB(3.9,20,2,1254,0)=" E  S XQAMSG=XQAMSG_"" ""_$E($P($P(^VA(200,$O(XQA(0)),0),""^""),"",""),1,10)"
^XMB(3.9,20,2,1255,0)="""RTN"",""DVBHT"",20,0)"
^XMB(3.9,20,2,1256,0)=" ;"
^XMB(3.9,20,2,1257,0)="""RTN"",""DVBHT"",21,0)"
^XMB(3.9,20,2,1258,0)="TST S XQAID=""DVB,""_DFN"
^XMB(3.9,20,2,1259,0)="""RTN"",""DVBHT"",22,0)"
^XMB(3.9,20,2,1260,0)=" S XQAROU=""SETUP^DVBHT"""
^XMB(3.9,20,2,1261,0)="""RTN"",""DVBHT"",23,0)"
^XMB(3.9,20,2,1262,0)=" ;S XQAFLG=""R"""
^XMB(3.9,20,2,1263,0)="""RTN"",""DVBHT"",24,0)"
^XMB(3.9,20,2,1264,0)=" S XQADATA=DFN_""^""_DVBDATA K DVBDATA"
^XMB(3.9,20,2,1265,0)="""RTN"",""DVBHT"",25,0)"
^XMB(3.9,20,2,1266,0)=" ;"
^XMB(3.9,20,2,1267,0)="""RTN"",""DVBHT"",26,0)"
^XMB(3.9,20,2,1268,0)=" D SETUP^XQALERT"
^XMB(3.9,20,2,1269,0)="""RTN"",""DVBHT"",27,0)"
^XMB(3.9,20,2,1270,0)=" S $P(^DVB(395.5,DFN,0),""^"",6)=1 Q  ;set alert SET"
^XMB(3.9,20,2,1271,0)="""RTN"",""DVBHT"",28,0)"
^XMB(3.9,20,2,1272,0)=" ;"
^XMB(3.9,20,2,1273,0)="""RTN"",""DVBHT"",29,0)"
^XMB(3.9,20,2,1274,0)=" ;entry action from alert"
^XMB(3.9,20,2,1275,0)="""RTN"",""DVBHT"",30,0)"
^XMB(3.9,20,2,1276,0)="SETUP S DVBDATA=XQADATA K XQADATA,XQAKILL,DVBNOALR"
^XMB(3.9,20,2,1277,0)="""RTN"",""DVBHT"",31,0)"
^XMB(3.9,20,2,1278,0)=" S Y=+$P(DVBDATA,""^"") Q:'Y"
^XMB(3.9,20,2,1279,0)="""RTN"",""DVBHT"",32,0)"
^XMB(3.9,20,2,1280,0)=" S DFN=Y,DVBDATA=$P(DVBDATA,""^"",2,99)"
^XMB(3.9,20,2,1281,0)="""RTN"",""DVBHT"",33,0)"
^XMB(3.9,20,2,1282,0)=" I '$D(^DVB(395.5,Y,0)) S XQAKILL=0 D KIL Q"
^XMB(3.9,20,2,1283,0)="""RTN"",""DVBHT"",34,0)"
^XMB(3.9,20,2,1284,0)=" I '$P(^DVB(395.5,Y,0),""^"",6) DO  D KIL Q"
^XMB(3.9,20,2,1285,0)="""RTN"",""DVBHT"",35,0)"
^XMB(3.9,20,2,1286,0)=" .W !,?15,"" another request pending, alert cleared"""
^XMB(3.9,20,2,1287,0)="""RTN"",""DVBHT"",36,0)"
^XMB(3.9,20,2,1288,0)=" .S XQAKILL=0"
^XMB(3.9,20,2,1289,0)="""RTN"",""DVBHT"",37,0)"
^XMB(3.9,20,2,1290,0)=" I '$D(^XUSEC(""DG ELIGIBILITY"",DUZ)) DO  D KIL Q"
^XMB(3.9,20,2,1291,0)="""RTN"",""DVBHT"",38,0)"
^XMB(3.9,20,2,1292,0)=" .S XQAKILL=1"
^XMB(3.9,20,2,1293,0)="""RTN"",""DVBHT"",39,0)"
^XMB(3.9,20,2,1294,0)=" .D DISPLAY"
^XMB(3.9,20,2,1295,0)="""RTN"",""DVBHT"",40,0)"
^XMB(3.9,20,2,1296,0)=" .D PAGE"
^XMB(3.9,20,2,1297,0)="""RTN"",""DVBHT"",41,0)"
^XMB(3.9,20,2,1298,0)=" ;if no to hinq screens"
^XMB(3.9,20,2,1299,0)="""RTN"",""DVBHT"",42,0)"
^XMB(3.9,20,2,1300,0)=" I $P(^DVB(395,1,0),""^"",5)=""n"" DO  D END Q"
^XMB(3.9,20,2,1301,0)="""RTN"",""DVBHT"",43,0)"
^XMB(3.9,20,2,1302,0)=" .S XQAKILL=0,DVBJ2=1"
^XMB(3.9,20,2,1303,0)="""RTN"",""DVBHT"",44,0)"
^XMB(3.9,20,2,1304,0)=" .D TEM^DVBHIQR I $D(DVBERCS) K XQAKILL Q"
^XMB(3.9,20,2,1305,0)="""RTN"",""DVBHT"",45,0)"
^XMB(3.9,20,2,1306,0)=" .D ACHK^DVBHT1"
^XMB(3.9,20,2,1307,0)="""RTN"",""DVBHT"",46,0)"
^XMB(3.9,20,2,1308,0)=" .D DISPLAY"
^XMB(3.9,20,2,1309,0)="""RTN"",""DVBHT"",47,0)"
^XMB(3.9,20,2,1310,0)=" .I $D(DVBNOALR) D PAGE,FILE^DVBHQUP Q"
^XMB(3.9,20,2,1311,0)="""RTN"",""DVBHT"",48,0)"
^XMB(3.9,20,2,1312,0)=" .D ACKNOW"
^XMB(3.9,20,2,1313,0)="""RTN"",""DVBHT"",49,0)"
^XMB(3.9,20,2,1314,0)=" .I $D(DVBNOALR) D FILE^DVBHQUP Q"
^XMB(3.9,20,2,1315,0)="""RTN"",""DVBHT"",50,0)"
^XMB(3.9,20,2,1316,0)=" .K XQAKILL"
^XMB(3.9,20,2,1317,0)="""RTN"",""DVBHT"",51,0)"
^XMB(3.9,20,2,1318,0)=" ;"
^XMB(3.9,20,2,1319,0)="""RTN"",""DVBHT"",52,0)"
^XMB(3.9,20,2,1320,0)=" D A^DVBHUTIL W !"
^XMB(3.9,20,2,1321,0)="""RTN"",""DVBHT"",53,0)"
^XMB(3.9,20,2,1322,0)=" K DVBDIQ"
^XMB(3.9,20,2,1323,0)="""RTN"",""DVBHT"",54,0)"
^XMB(3.9,20,2,1324,0)=" ;"
^XMB(3.9,20,2,1325,0)="""RTN"",""DVBHT"",55,0)"
^XMB(3.9,20,2,1326,0)="UPD L +^DPT(DFN):3 I $T DO"
^XMB(3.9,20,2,1327,0)="""RTN"",""DVBHT"",56,0)"
^XMB(3.9,20,2,1328,0)=" .N XQAID"
^XMB(3.9,20,2,1329,0)="""RTN"",""DVBHT"",57,0)"
^XMB(3.9,20,2,1330,0)=" .S DIE=""^DPT("",(DA,DFN)=+Y,DR=""[DVBHINQ UPDATE]"",DVBJ2=0 D TEM^DVBHIQR"
^XMB(3.9,20,2,1331,0)="""RTN"",""DVBHT"",58,0)"
^XMB(3.9,20,2,1332,0)=" .N DVBQT"
^XMB(3.9,20,2,1333,0)="""RTN"",""DVBHT"",59,0)"
^XMB(3.9,20,2,1334,0)=" .I '$D(DVBERCS) D CHKID^DVBHQD1 I DVBQT D  Q"
^XMB(3.9,20,2,1335,0)="""RTN"",""DVBHT"",60,0)"
^XMB(3.9,20,2,1336,0)=" .. N DVBTMP1,DVBTMP2"
^XMB(3.9,20,2,1337,0)="""RTN"",""DVBHT"",61,0)"
^XMB(3.9,20,2,1338,0)=" .. S DVBTMP1=$G(DVBNOALR)"
^XMB(3.9,20,2,1339,0)="""RTN"",""DVBHT"",62,0)"
^XMB(3.9,20,2,1340,0)=" .. S DVBTMP2=$G(DVBJ2)"
^XMB(3.9,20,2,1341,0)="""RTN"",""DVBHT"",63,0)"
^XMB(3.9,20,2,1342,0)=" .. S DVBNOALR="";4///a;5////""_DUZ_"";6///N"",DVBJ2=1"
^XMB(3.9,20,2,1343,0)="""RTN"",""DVBHT"",64,0)"
^XMB(3.9,20,2,1344,0)=" .. D FILE^DVBHQUP"
^XMB(3.9,20,2,1345,0)="""RTN"",""DVBHT"",65,0)"
^XMB(3.9,20,2,1346,0)=" .. S DVBNOALR=DVBTMP1"
^XMB(3.9,20,2,1347,0)="""RTN"",""DVBHT"",66,0)"
^XMB(3.9,20,2,1348,0)=" .. S DVBJ2=DVBTMP2"
^XMB(3.9,20,2,1349,0)="""RTN"",""DVBHT"",67,0)"
^XMB(3.9,20,2,1350,0)=" .D ^DIE:'$D(DVBERCS) K DIE,DR,DA Q"
^XMB(3.9,20,2,1351,0)="""RTN"",""DVBHT"",68,0)"
^XMB(3.9,20,2,1352,0)=" E  W !?3,""This patient data is being edited by another user"" H 1 G END"
^XMB(3.9,20,2,1353,0)="""RTN"",""DVBHT"",69,0)"
^XMB(3.9,20,2,1354,0)=" L -^DPT(DFN)"
^XMB(3.9,20,2,1355,0)="""RTN"",""DVBHT"",70,0)"
^XMB(3.9,20,2,1356,0)=" ;"
^XMB(3.9,20,2,1357,0)="""RTN"",""DVBHT"",71,0)"
^XMB(3.9,20,2,1358,0)=" I DVBJ2 DO  ;patient updated, alerts filed in up"
^XMB(3.9,20,2,1359,0)="""RTN"",""DVBHT"",72,0)"
^XMB(3.9,20,2,1360,0)=" .W !!,""Checking the alerts ."""
^XMB(3.9,20,2,1361,0)="""RTN"",""DVBHT"",73,0)"
^XMB(3.9,20,2,1362,0)=" .D ACHK^DVBHT1"
^XMB(3.9,20,2,1363,0)="""RTN"",""DVBHT"",74,0)"
^XMB(3.9,20,2,1364,0)=" .I $D(DVBNOALR) DO"
^XMB(3.9,20,2,1365,0)="""RTN"",""DVBHT"",75,0)"
^XMB(3.9,20,2,1366,0)=" . .S DVBNOALR="";4///c;5////""_DUZ_"";6///N"""
^XMB(3.9,20,2,1367,0)="""RTN"",""DVBHT"",76,0)"
^XMB(3.9,20,2,1368,0)=" . .W "". OK"""
^XMB(3.9,20,2,1369,0)="""RTN"",""DVBHT"",77,0)"
^XMB(3.9,20,2,1370,0)=" .E  DO"
^XMB(3.9,20,2,1371,0)="""RTN"",""DVBHT"",78,0)"
^XMB(3.9,20,2,1372,0)=" . .W "". need more changes"""
^XMB(3.9,20,2,1373,0)="""RTN"",""DVBHT"",79,0)"
^XMB(3.9,20,2,1374,0)=" . .D DISPLAY"
^XMB(3.9,20,2,1375,0)="""RTN"",""DVBHT"",80,0)"
^XMB(3.9,20,2,1376,0)=" . .D ACKNOW"
^XMB(3.9,20,2,1377,0)="""RTN"",""DVBHT"",81,0)"
^XMB(3.9,20,2,1378,0)=" .H 1"
^XMB(3.9,20,2,1379,0)="""RTN"",""DVBHT"",82,0)"
^XMB(3.9,20,2,1380,0)=" E  DO  ;patient not updated"
^XMB(3.9,20,2,1381,0)="""RTN"",""DVBHT"",83,0)"
^XMB(3.9,20,2,1382,0)=" .I $D(DVBNOALR) DO  Q"
^XMB(3.9,20,2,1383,0)="""RTN"",""DVBHT"",84,0)"
^XMB(3.9,20,2,1384,0)=" . .I DVBNOALR]"""" D FILE^DVBHQUP"
^XMB(3.9,20,2,1385,0)="""RTN"",""DVBHT"",85,0)"
^XMB(3.9,20,2,1386,0)=" . .;;;D DISPLAY"
^XMB(3.9,20,2,1387,0)="""RTN"",""DVBHT"",86,0)"
^XMB(3.9,20,2,1388,0)=" .D ACHK^DVBHT1"
^XMB(3.9,20,2,1389,0)="""RTN"",""DVBHT"",87,0)"
^XMB(3.9,20,2,1390,0)=" .D DISPLAY I $D(DVBNOALR) Q"
^XMB(3.9,20,2,1391,0)="""RTN"",""DVBHT"",88,0)"
^XMB(3.9,20,2,1392,0)=" .D ACKNOW"
^XMB(3.9,20,2,1393,0)="""RTN"",""DVBHT"",89,0)"
^XMB(3.9,20,2,1394,0)=" .I $D(DVBNOALR),DVBNOALR]"""" D FILE^DVBHQUP"
^XMB(3.9,20,2,1395,0)="""RTN"",""DVBHT"",90,0)"
^XMB(3.9,20,2,1396,0)=" ;"
^XMB(3.9,20,2,1397,0)="""RTN"",""DVBHT"",91,0)"
^XMB(3.9,20,2,1398,0)=" K DVBDIQ D C^DVBHQUP"
^XMB(3.9,20,2,1399,0)="""RTN"",""DVBHT"",92,0)"
^XMB(3.9,20,2,1400,0)=" ;"
^XMB(3.9,20,2,1401,0)="""RTN"",""DVBHT"",93,0)"
^XMB(3.9,20,2,1402,0)="END S END=""N DVBNOALR,XQAID D KILL^XUSCLEAN"" X END"
^XMB(3.9,20,2,1403,0)="""RTN"",""DVBHT"",94,0)"
^XMB(3.9,20,2,1404,0)=" I $D(DVBNOALR) S XQAKILL=0"
^XMB(3.9,20,2,1405,0)="""RTN"",""DVBHT"",95,0)"
^XMB(3.9,20,2,1406,0)="KIL K DVBNOALR,DVBDATA,DFN,DVBJ2,DR,DVBDIQ,LP2,DIC,DIQ,DA,D0 Q"
^XMB(3.9,20,2,1407,0)="""RTN"",""DVBHT"",96,0)"
^XMB(3.9,20,2,1408,0)=" ;"
^XMB(3.9,20,2,1409,0)="""RTN"",""DVBHT"",97,0)"
^XMB(3.9,20,2,1410,0)=" ;display alert"
^XMB(3.9,20,2,1411,0)="""RTN"",""DVBHT"",98,0)"
^XMB(3.9,20,2,1412,0)="DISPLAY Q:'$D(DVBDATA)  I '$L($P(DVBDATA,""^"",11)) DO CMSG Q"
^XMB(3.9,20,2,1413,0)="""RTN"",""DVBHT"",99,0)"
^XMB(3.9,20,2,1414,0)="INFO ;"
^XMB(3.9,20,2,1415,0)="""RTN"",""DVBHT"",100,0)"
^XMB(3.9,20,2,1416,0)=" ;;Diagnostic Ver.Ind.: NO   Verify Service Connections at RO"
^XMB(3.9,20,2,1417,0)="""RTN"",""DVBHT"",101,0)"
^XMB(3.9,20,2,1418,0)=" I '$D(DVBDIQ(2,DFN,.01,""E"")) S DR="".01;.09"" D DIQDR^DVBHT1"
^XMB(3.9,20,2,1419,0)="""RTN"",""DVBHT"",102,0)"
^XMB(3.9,20,2,1420,0)=" S DVBALERT=""LOAD/EDIT Screen""_$S(DVBDATA'[""SC D"":"" 7"",1:""s 7, 11"")"
^XMB(3.9,20,2,1421,0)="""RTN"",""DVBHT"",103,0)"
^XMB(3.9,20,2,1422,0)=" W !,"" ----------------------------------------------------------------------------"""
^XMB(3.9,20,2,1423,0)="""RTN"",""DVBHT"",104,0)"
^XMB(3.9,20,2,1424,0)=" W !,""| "",DVBDIQ(2,DFN,.01,""E""),""  """
^XMB(3.9,20,2,1425,0)="""RTN"",""DVBHT"",105,0)"
^XMB(3.9,20,2,1426,0)=" W $E(DVBDIQ(2,DFN,.01,""E"")),$E(DVBDIQ(2,DFN,.09,""E""),6,10)"
^XMB(3.9,20,2,1427,0)="""RTN"",""DVBHT"",106,0)"
^XMB(3.9,20,2,1428,0)=" W ?39,DVBALERT,?69,""HINQ"""
^XMB(3.9,20,2,1429,0)="""RTN"",""DVBHT"",107,0)"
^XMB(3.9,20,2,1430,0)=" W ?77,""|"",!"
^XMB(3.9,20,2,1431,0)="""RTN"",""DVBHT"",108,0)"
^XMB(3.9,20,2,1432,0)=" I $D(XQAKILL)"
^XMB(3.9,20,2,1433,0)="""RTN"",""DVBHT"",109,0)"
^XMB(3.9,20,2,1434,0)=" F I=11:1 S DVBALERT=$P(DVBDATA,""^"",I)_""'"" Q:'DVBALERT  DO"
^XMB(3.9,20,2,1435,0)="""RTN"",""DVBHT"",110,0)"
^XMB(3.9,20,2,1436,0)=" .W:$X<10 ""|"",?6"
^XMB(3.9,20,2,1437,0)="""RTN"",""DVBHT"",111,0)"
^XMB(3.9,20,2,1438,0)=" .I $E(DVBALERT,2)=""+"" W ""HINQ has data not in patient file `"""
^XMB(3.9,20,2,1439,0)="""RTN"",""DVBHT"",112,0)"
^XMB(3.9,20,2,1440,0)=" .I $E(DVBALERT,2)=""-"" W ""Patient file has data not in HINQ `"""
^XMB(3.9,20,2,1441,0)="""RTN"",""DVBHT"",113,0)"
^XMB(3.9,20,2,1442,0)=" .I $E(DVBALERT,2)=""?"" W ""HINQ, Patient file are different  `"""
^XMB(3.9,20,2,1443,0)="""RTN"",""DVBHT"",114,0)"
^XMB(3.9,20,2,1444,0)=" .I $E(DVBALERT,2)=""X"" DO"
^XMB(3.9,20,2,1445,0)="""RTN"",""DVBHT"",115,0)"
^XMB(3.9,20,2,1446,0)=" . .I $E(DVBALERT,3) W $P($T(INFO+$E(DVBALERT,3)),"";;"",2)"
^XMB(3.9,20,2,1447,0)="""RTN"",""DVBHT"",116,0)"
^XMB(3.9,20,2,1448,0)=" . .S DVBALERT=$E(DVBALERT)"
^XMB(3.9,20,2,1449,0)="""RTN"",""DVBHT"",117,0)"
^XMB(3.9,20,2,1450,0)=" .W $E(DVBALERT,3,$L(DVBALERT))"
^XMB(3.9,20,2,1451,0)="""RTN"",""DVBHT"",118,0)"
^XMB(3.9,20,2,1452,0)=" .W ?66,""Screen ("",$E(DVBALERT),"")"",?77,""|"",!"
^XMB(3.9,20,2,1453,0)="""RTN"",""DVBHT"",119,0)"
^XMB(3.9,20,2,1454,0)=" W "" ----------------------------------------------------------------------------"""
^XMB(3.9,20,2,1455,0)="""RTN"",""DVBHT"",120,0)"
^XMB(3.9,20,2,1456,0)=" K DVBALERT"
^XMB(3.9,20,2,1457,0)="""RTN"",""DVBHT"",121,0)"
^XMB(3.9,20,2,1458,0)=" Q"
^XMB(3.9,20,2,1459,0)="""RTN"",""DVBHT"",122,0)"
^XMB(3.9,20,2,1460,0)="ACKNOW K DIR S DIR(""A"")=""Do you wish to acknowledge inconsistencies and clear this Alert ? """
^XMB(3.9,20,2,1461,0)="""RTN"",""DVBHT"",123,0)"
^XMB(3.9,20,2,1462,0)=" S DIR(""B"")=""No"""
^XMB(3.9,20,2,1463,0)="""RTN"",""DVBHT"",124,0)"
^XMB(3.9,20,2,1464,0)=" S DIR(""?"",1)=""If the patient file has data that should not be updated by HINQ, this Alert"""
^XMB(3.9,20,2,1465,0)="""RTN"",""DVBHT"",125,0)"
^XMB(3.9,20,2,1466,0)=" S DIR(""?"",2)=""can be acknowledged and cleared by entering 'Y'es.  Otherwise, just continue"""
^XMB(3.9,20,2,1467,0)="""RTN"",""DVBHT"",126,0)"
^XMB(3.9,20,2,1468,0)=" S DIR(""?"")=""Press RETURN to continue,'Y'es to acknowledge, '^' to exit:"""
^XMB(3.9,20,2,1469,0)="""RTN"",""DVBHT"",127,0)"
^XMB(3.9,20,2,1470,0)=" S DIR(0)=""YAO"" D ^DIR K DIR Q:'Y"
^XMB(3.9,20,2,1471,0)="""RTN"",""DVBHT"",128,0)"
^XMB(3.9,20,2,1472,0)=" S DVBNOALR="";4///a;5////""_DUZ_"";6///N"""
^XMB(3.9,20,2,1473,0)="""RTN"",""DVBHT"",129,0)"
^XMB(3.9,20,2,1474,0)=" W !!?6,""   Alert will be cleared"" H 1 Q"
^XMB(3.9,20,2,1475,0)="""RTN"",""DVBHT"",130,0)"
^XMB(3.9,20,2,1476,0)=" ;"
^XMB(3.9,20,2,1477,0)="""RTN"",""DVBHT"",131,0)"
^XMB(3.9,20,2,1478,0)="PAGE K DVBALERT S DIR(0)=""E"" D ^DIR K DIR Q"
^XMB(3.9,20,2,1479,0)="""RTN"",""DVBHT"",132,0)"
^XMB(3.9,20,2,1480,0)=" ;"
^XMB(3.9,20,2,1481,0)="""RTN"",""DVBHT"",133,0)"
^XMB(3.9,20,2,1482,0)="CMSG W !!,?20,""Alerts have been cleared"",! Q"
^XMB(3.9,20,2,1483,0)="""RTN"",""DVBHT"",134,0)"
^XMB(3.9,20,2,1484,0)=" ;"
^XMB(3.9,20,2,1485,0)="""RTN"",""DVBHT"",135,0)"
^XMB(3.9,20,2,1486,0)="TM S Y=$E(Y,4,5)_""/""_$E(Y,6,7)_$P(""@""_$E(Y_0,9,10)_"":""_$E(Y_""000"",11,12),""^"",Y[""."") Q"
^XMB(3.9,20,2,1487,0)="""VER"")"
^XMB(3.9,20,2,1488,0)="8.0^22.0"
^XMB(3.9,20,2,1489,0)="""BLD"",5963,6)"
^XMB(3.9,20,2,1490,0)="^54"
^XMB(3.9,20,2,1491,0)="$END KID DVB*4.0*56"
^XMB(3.9,20,6,0)="^3.911A^2^2"
^XMB(3.9,20,6,1,0)="POSTMASTER"
^XMB(3.9,20,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,20,6,"B","POSTMASTER",1)=""
^XMB(3.9,20,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,21,0)="DVBA-2P7_SEQ-97_PAT-108.KID^.5^3061008.015731^^^^K"
^XMB(3.9,21,.6)="3061008"
^XMB(3.9,21,1,0)="^3.91A^2^2"
^XMB(3.9,21,1,1,0)=".5^0^3061008.015731^^^^^^^3061008.015731"
^XMB(3.9,21,1,2,0)="1^0^3061008.023012^^^^^^^3061008.023012"
^XMB(3.9,21,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,21,1,"C",.5,1)=""
^XMB(3.9,21,1,"C",1,2)=""
^XMB(3.9,21,2,0)="^^757^757^3061008"
^XMB(3.9,21,2,1,0)="$TXT Released DVBA*2.7*108 SEQ #97"
^XMB(3.9,21,2,2,0)="Extracted from mail message"
^XMB(3.9,21,2,3,0)="$END TXT"
^XMB(3.9,21,2,4,0)="$KID DVBA*2.7*108"
^XMB(3.9,21,2,5,0)="**INSTALL NAME**"
^XMB(3.9,21,2,6,0)="DVBA*2.7*108"
^XMB(3.9,21,2,7,0)="""BLD"",6016,0)"
^XMB(3.9,21,2,8,0)="DVBA*2.7*108^AUTOMATED MED INFO EXCHANGE^0^3060329^y"
^XMB(3.9,21,2,9,0)="""BLD"",6016,1,0)"
^XMB(3.9,21,2,10,0)="^^1^1^3060329^"
^XMB(3.9,21,2,11,0)="""BLD"",6016,1,1,0)"
^XMB(3.9,21,2,12,0)="MISC CAPRI FIXES"
^XMB(3.9,21,2,13,0)="""BLD"",6016,4,0)"
^XMB(3.9,21,2,14,0)="^9.64PA^^"
^XMB(3.9,21,2,15,0)="""BLD"",6016,""KRN"",0)"
^XMB(3.9,21,2,16,0)="^9.67PA^8989.52^19"
^XMB(3.9,21,2,17,0)="""BLD"",6016,""KRN"",.4,0)"
^XMB(3.9,21,2,18,0)=".4"
^XMB(3.9,21,2,19,0)="""BLD"",6016,""KRN"",.401,0)"
^XMB(3.9,21,2,20,0)=".401"
^XMB(3.9,21,2,21,0)="""BLD"",6016,""KRN"",.402,0)"
^XMB(3.9,21,2,22,0)=".402"
^XMB(3.9,21,2,23,0)="""BLD"",6016,""KRN"",.403,0)"
^XMB(3.9,21,2,24,0)=".403"
^XMB(3.9,21,2,25,0)="""BLD"",6016,""KRN"",.5,0)"
^XMB(3.9,21,2,26,0)=".5"
^XMB(3.9,21,2,27,0)="""BLD"",6016,""KRN"",.84,0)"
^XMB(3.9,21,2,28,0)=".84"
^XMB(3.9,21,2,29,0)="""BLD"",6016,""KRN"",3.6,0)"
^XMB(3.9,21,2,30,0)="3.6"
^XMB(3.9,21,2,31,0)="""BLD"",6016,""KRN"",3.8,0)"
^XMB(3.9,21,2,32,0)="3.8"
^XMB(3.9,21,2,33,0)="""BLD"",6016,""KRN"",9.2,0)"
^XMB(3.9,21,2,34,0)="9.2"
^XMB(3.9,21,2,35,0)="""BLD"",6016,""KRN"",9.8,0)"
^XMB(3.9,21,2,36,0)="9.8"
^XMB(3.9,21,2,37,0)="""BLD"",6016,""KRN"",9.8,""NM"",0)"
^XMB(3.9,21,2,38,0)="^9.68A^4^4"
^XMB(3.9,21,2,39,0)="""BLD"",6016,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,21,2,40,0)="DVBAB6^^0^B29419198"
^XMB(3.9,21,2,41,0)="""BLD"",6016,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,21,2,42,0)="DVBAADRP^^0^B28538442"
^XMB(3.9,21,2,43,0)="""BLD"",6016,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,21,2,44,0)="DVBABEBD^^0^B3978273"
^XMB(3.9,21,2,45,0)="""BLD"",6016,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,21,2,46,0)="DVBAVDPT^^0^B10113964"
^XMB(3.9,21,2,47,0)="""BLD"",6016,""KRN"",9.8,""NM"",""B"",""DVBAADRP"",2)"
^XMB(3.9,21,2,48,0)=""
^XMB(3.9,21,2,49,0)="""BLD"",6016,""KRN"",9.8,""NM"",""B"",""DVBAB6"",1)"
^XMB(3.9,21,2,50,0)=""
^XMB(3.9,21,2,51,0)="""BLD"",6016,""KRN"",9.8,""NM"",""B"",""DVBABEBD"",3)"
^XMB(3.9,21,2,52,0)=""
^XMB(3.9,21,2,53,0)="""BLD"",6016,""KRN"",9.8,""NM"",""B"",""DVBAVDPT"",4)"
^XMB(3.9,21,2,54,0)=""
^XMB(3.9,21,2,55,0)="""BLD"",6016,""KRN"",19,0)"
^XMB(3.9,21,2,56,0)="19"
^XMB(3.9,21,2,57,0)="""BLD"",6016,""KRN"",19,""NM"",0)"
^XMB(3.9,21,2,58,0)="^9.68A^^"
^XMB(3.9,21,2,59,0)="""BLD"",6016,""KRN"",19.1,0)"
^XMB(3.9,21,2,60,0)="19.1"
^XMB(3.9,21,2,61,0)="""BLD"",6016,""KRN"",101,0)"
^XMB(3.9,21,2,62,0)="101"
^XMB(3.9,21,2,63,0)="""BLD"",6016,""KRN"",409.61,0)"
^XMB(3.9,21,2,64,0)="409.61"
^XMB(3.9,21,2,65,0)="""BLD"",6016,""KRN"",771,0)"
^XMB(3.9,21,2,66,0)="771"
^XMB(3.9,21,2,67,0)="""BLD"",6016,""KRN"",870,0)"
^XMB(3.9,21,2,68,0)="870"
^XMB(3.9,21,2,69,0)="""BLD"",6016,""KRN"",8989.51,0)"
^XMB(3.9,21,2,70,0)="8989.51"
^XMB(3.9,21,2,71,0)="""BLD"",6016,""KRN"",8989.52,0)"
^XMB(3.9,21,2,72,0)="8989.52"
^XMB(3.9,21,2,73,0)="""BLD"",6016,""KRN"",8994,0)"
^XMB(3.9,21,2,74,0)="8994"
^XMB(3.9,21,2,75,0)="""BLD"",6016,""KRN"",""B"",.4,.4)"
^XMB(3.9,21,2,76,0)=""
^XMB(3.9,21,2,77,0)="""BLD"",6016,""KRN"",""B"",.401,.401)"
^XMB(3.9,21,2,78,0)=""
^XMB(3.9,21,2,79,0)="""BLD"",6016,""KRN"",""B"",.402,.402)"
^XMB(3.9,21,2,80,0)=""
^XMB(3.9,21,2,81,0)="""BLD"",6016,""KRN"",""B"",.403,.403)"
^XMB(3.9,21,2,82,0)=""
^XMB(3.9,21,2,83,0)="""BLD"",6016,""KRN"",""B"",.5,.5)"
^XMB(3.9,21,2,84,0)=""
^XMB(3.9,21,2,85,0)="""BLD"",6016,""KRN"",""B"",.84,.84)"
^XMB(3.9,21,2,86,0)=""
^XMB(3.9,21,2,87,0)="""BLD"",6016,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,21,2,88,0)=""
^XMB(3.9,21,2,89,0)="""BLD"",6016,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,21,2,90,0)=""
^XMB(3.9,21,2,91,0)="""BLD"",6016,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,21,2,92,0)=""
^XMB(3.9,21,2,93,0)="""BLD"",6016,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,21,2,94,0)=""
^XMB(3.9,21,2,95,0)="""BLD"",6016,""KRN"",""B"",19,19)"
^XMB(3.9,21,2,96,0)=""
^XMB(3.9,21,2,97,0)="""BLD"",6016,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,21,2,98,0)=""
^XMB(3.9,21,2,99,0)="""BLD"",6016,""KRN"",""B"",101,101)"
^XMB(3.9,21,2,100,0)=""
^XMB(3.9,21,2,101,0)="""BLD"",6016,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,21,2,102,0)=""
^XMB(3.9,21,2,103,0)="""BLD"",6016,""KRN"",""B"",771,771)"
^XMB(3.9,21,2,104,0)=""
^XMB(3.9,21,2,105,0)="""BLD"",6016,""KRN"",""B"",870,870)"
^XMB(3.9,21,2,106,0)=""
^XMB(3.9,21,2,107,0)="""BLD"",6016,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,21,2,108,0)=""
^XMB(3.9,21,2,109,0)="""BLD"",6016,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,21,2,110,0)=""
^XMB(3.9,21,2,111,0)="""BLD"",6016,""KRN"",""B"",8994,8994)"
^XMB(3.9,21,2,112,0)=""
^XMB(3.9,21,2,113,0)="""BLD"",6016,""QUES"",0)"
^XMB(3.9,21,2,114,0)="^9.62^^"
^XMB(3.9,21,2,115,0)="""BLD"",6016,""REQB"",0)"
^XMB(3.9,21,2,116,0)="^9.611^2^2"
^XMB(3.9,21,2,117,0)="""BLD"",6016,""REQB"",1,0)"
^XMB(3.9,21,2,118,0)="DVBA*2.7*73^1"
^XMB(3.9,21,2,119,0)="""BLD"",6016,""REQB"",2,0)"
^XMB(3.9,21,2,120,0)="DVBA*2.7*90^1"
^XMB(3.9,21,2,121,0)="""BLD"",6016,""REQB"",""B"",""DVBA*2.7*73"",1)"
^XMB(3.9,21,2,122,0)=""
^XMB(3.9,21,2,123,0)="""BLD"",6016,""REQB"",""B"",""DVBA*2.7*90"",2)"
^XMB(3.9,21,2,124,0)=""
^XMB(3.9,21,2,125,0)="""MBREQ"")"
^XMB(3.9,21,2,126,0)="0"
^XMB(3.9,21,2,127,0)="""PKG"",223,-1)"
^XMB(3.9,21,2,128,0)="1^1"
^XMB(3.9,21,2,129,0)="""PKG"",223,0)"
^XMB(3.9,21,2,130,0)="AUTOMATED MED INFO EXCHANGE^DVBA^The entire AMIE package 7131/2507."
^XMB(3.9,21,2,131,0)="""PKG"",223,20,0)"
^XMB(3.9,21,2,132,0)="^9.402P^^"
^XMB(3.9,21,2,133,0)="""PKG"",223,22,0)"
^XMB(3.9,21,2,134,0)="^9.49I^1^1"
^XMB(3.9,21,2,135,0)="""PKG"",223,22,1,0)"
^XMB(3.9,21,2,136,0)="2.7^2950410^3010328"
^XMB(3.9,21,2,137,0)="""PKG"",223,22,1,""PAH"",1,0)"
^XMB(3.9,21,2,138,0)="108^3060329"
^XMB(3.9,21,2,139,0)="""PKG"",223,22,1,""PAH"",1,1,0)"
^XMB(3.9,21,2,140,0)="^^1^1^3060329"
^XMB(3.9,21,2,141,0)="""PKG"",223,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,21,2,142,0)="MISC CAPRI FIXES"
^XMB(3.9,21,2,143,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,21,2,144,0)="Y"
^XMB(3.9,21,2,145,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,21,2,146,0)="^D REP^XPDH"
^XMB(3.9,21,2,147,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,21,2,148,0)="Shall I write over your |FLAG| File"
^XMB(3.9,21,2,149,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,21,2,150,0)="YES"
^XMB(3.9,21,2,151,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,21,2,152,0)="D XPF1^XPDIQ"
^XMB(3.9,21,2,153,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,21,2,154,0)="Y"
^XMB(3.9,21,2,155,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,21,2,156,0)="^D DTA^XPDH"
^XMB(3.9,21,2,157,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,21,2,158,0)="Want my data |FLAG| yours"
^XMB(3.9,21,2,159,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,21,2,160,0)="YES"
^XMB(3.9,21,2,161,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,21,2,162,0)="D XPF2^XPDIQ"
^XMB(3.9,21,2,163,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,21,2,164,0)="YO"
^XMB(3.9,21,2,165,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,21,2,166,0)="^D INHIBIT^XPDH"
^XMB(3.9,21,2,167,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,21,2,168,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,21,2,169,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,21,2,170,0)="YES"
^XMB(3.9,21,2,171,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,21,2,172,0)="D XPI1^XPDIQ"
^XMB(3.9,21,2,173,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,21,2,174,0)="PO^VA(200,:EM"
^XMB(3.9,21,2,175,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,21,2,176,0)="^D MG^XPDH"
^XMB(3.9,21,2,177,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,21,2,178,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,21,2,179,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,21,2,180,0)=""
^XMB(3.9,21,2,181,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,21,2,182,0)="D XPM1^XPDIQ"
^XMB(3.9,21,2,183,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,21,2,184,0)="Y"
^XMB(3.9,21,2,185,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,21,2,186,0)="^D MENU^XPDH"
^XMB(3.9,21,2,187,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,21,2,188,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,21,2,189,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,21,2,190,0)="YES"
^XMB(3.9,21,2,191,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,21,2,192,0)="D XPO1^XPDIQ"
^XMB(3.9,21,2,193,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,21,2,194,0)="Y"
^XMB(3.9,21,2,195,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,21,2,196,0)="^D OPT^XPDH"
^XMB(3.9,21,2,197,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,21,2,198,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,21,2,199,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,21,2,200,0)="YES"
^XMB(3.9,21,2,201,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,21,2,202,0)="D XPZ1^XPDIQ"
^XMB(3.9,21,2,203,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,21,2,204,0)="Y"
^XMB(3.9,21,2,205,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,21,2,206,0)="^D RTN^XPDH"
^XMB(3.9,21,2,207,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,21,2,208,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,21,2,209,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,21,2,210,0)="NO"
^XMB(3.9,21,2,211,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,21,2,212,0)="D XPZ2^XPDIQ"
^XMB(3.9,21,2,213,0)="""RTN"")"
^XMB(3.9,21,2,214,0)="4"
^XMB(3.9,21,2,215,0)="""RTN"",""DVBAADRP"")"
^XMB(3.9,21,2,216,0)="0^2^B28538442^B27858917"
^XMB(3.9,21,2,217,0)="""RTN"",""DVBAADRP"",1,0)"
^XMB(3.9,21,2,218,0)="DVBAADRP ;ALB/GTS-557/THM-AMIE COMPLETE ADMISSION RPT ; 1/22/91  1:19 PM"
^XMB(3.9,21,2,219,0)="""RTN"",""DVBAADRP"",2,0)"
^XMB(3.9,21,2,220,0)=" ;;2.7;AMIE;**17,42,53,108**;Apr 10, 1995"
^XMB(3.9,21,2,221,0)="""RTN"",""DVBAADRP"",3,0)"
^XMB(3.9,21,2,222,0)=" N DVBGUI"
^XMB(3.9,21,2,223,0)="""RTN"",""DVBAADRP"",4,0)"
^XMB(3.9,21,2,224,0)=" S DVBGUI=0"
^XMB(3.9,21,2,225,0)="""RTN"",""DVBAADRP"",5,0)"
^XMB(3.9,21,2,226,0)=" K ^TMP($J) G TERM"
^XMB(3.9,21,2,227,0)="""RTN"",""DVBAADRP"",6,0)"
^XMB(3.9,21,2,228,0)=" Q"
^XMB(3.9,21,2,229,0)="""RTN"",""DVBAADRP"",7,0)"
^XMB(3.9,21,2,230,0)=" ;"
^XMB(3.9,21,2,231,0)="""RTN"",""DVBAADRP"",8,0)"
^XMB(3.9,21,2,232,0)="ENBROKER(Y) ;"
^XMB(3.9,21,2,233,0)="""RTN"",""DVBAADRP"",9,0)"
^XMB(3.9,21,2,234,0)=" ; Returns some info for the CAPRI GUI to display prior"
^XMB(3.9,21,2,235,0)="""RTN"",""DVBAADRP"",10,0)"
^XMB(3.9,21,2,236,0)=" ; to the user running this report"
^XMB(3.9,21,2,237,0)="""RTN"",""DVBAADRP"",11,0)"
^XMB(3.9,21,2,238,0)=" N DVBGUI"
^XMB(3.9,21,2,239,0)="""RTN"",""DVBAADRP"",12,0)"
^XMB(3.9,21,2,240,0)=" S DVBGUI=1"
^XMB(3.9,21,2,241,0)="""RTN"",""DVBAADRP"",13,0)"
^XMB(3.9,21,2,242,0)=" K ^TMP($J)"
^XMB(3.9,21,2,243,0)="""RTN"",""DVBAADRP"",14,0)"
^XMB(3.9,21,2,244,0)=" D HOME^%ZIS K NOASK,QUIT1"
^XMB(3.9,21,2,245,0)="""RTN"",""DVBAADRP"",15,0)"
^XMB(3.9,21,2,246,0)=" D NOPARM^DVBAUTL2 G:$D(DVBAQUIT) KILL^DVBAUTIL"
^XMB(3.9,21,2,247,0)="""RTN"",""DVBAADRP"",16,0)"
^XMB(3.9,21,2,248,0)=" ;"
^XMB(3.9,21,2,249,0)="""RTN"",""DVBAADRP"",17,0)"
^XMB(3.9,21,2,250,0)=" S Y(1)=""VARO COMPLETE ADMISSION REPORT"" S DTAR=^DVB(396.1,1,0),FDT(0)=$$FMTE^XLFDT(DT,""5DZ"")"
^XMB(3.9,21,2,251,0)="""RTN"",""DVBAADRP"",18,0)"
^XMB(3.9,21,2,252,0)=" S HEAD=""TOTAL ADMISSION REPORT"",HEAD1=""FOR ""_$P(DTAR,U,1)_"" ON ""_FDT(0)"
^XMB(3.9,21,2,253,0)="""RTN"",""DVBAADRP"",19,0)"
^XMB(3.9,21,2,254,0)=" S Y(2)=HEAD1,Y(3)="""""
^XMB(3.9,21,2,255,0)="""RTN"",""DVBAADRP"",20,0)"
^XMB(3.9,21,2,256,0)=" S Y(4)=""Please enter dates for search, oldest date first, most recent date last."""
^XMB(3.9,21,2,257,0)="""RTN"",""DVBAADRP"",21,0)"
^XMB(3.9,21,2,258,0)=" S Y=$P(DTAR,U,3) X ^DD(""DD"")"
^XMB(3.9,21,2,259,0)="""RTN"",""DVBAADRP"",22,0)"
^XMB(3.9,21,2,260,0)=" S Y(5)="""""
^XMB(3.9,21,2,261,0)="""RTN"",""DVBAADRP"",23,0)"
^XMB(3.9,21,2,262,0)=" S Y(6)=""Last report was run on ""_Y"
^XMB(3.9,21,2,263,0)="""RTN"",""DVBAADRP"",24,0)"
^XMB(3.9,21,2,264,0)=" Q"
^XMB(3.9,21,2,265,0)="""RTN"",""DVBAADRP"",25,0)"
^XMB(3.9,21,2,266,0)="ENBROKE2(MSG,BDATE,EDATE,RO,RONUM) ;"
^XMB(3.9,21,2,267,0)="""RTN"",""DVBAADRP"",26,0)"
^XMB(3.9,21,2,268,0)=" ; This is the entry point to run the actual report from"
^XMB(3.9,21,2,269,0)="""RTN"",""DVBAADRP"",27,0)"
^XMB(3.9,21,2,270,0)=" ; the CAPRI GUI."
^XMB(3.9,21,2,271,0)="""RTN"",""DVBAADRP"",28,0)"
^XMB(3.9,21,2,272,0)=" N DVBHFS,DVBERR,DVBGUI,I"
^XMB(3.9,21,2,273,0)="""RTN"",""DVBAADRP"",29,0)"
^XMB(3.9,21,2,274,0)=" K ^TMP(""DVBA"",$J)"
^XMB(3.9,21,2,275,0)="""RTN"",""DVBAADRP"",30,0)"
^XMB(3.9,21,2,276,0)=" S DVBGUI=1,DVBERR=0,DVBHFS=$$HFS^DVBAB82()"
^XMB(3.9,21,2,277,0)="""RTN"",""DVBAADRP"",31,0)"
^XMB(3.9,21,2,278,0)=" S X=BDATE,Y=EDATE"
^XMB(3.9,21,2,279,0)="""RTN"",""DVBAADRP"",32,0)"
^XMB(3.9,21,2,280,0)=" ; DVBA*2.7*108 - Correct next line.  CAPRI GUI already adds 1 to EDATE"
^XMB(3.9,21,2,281,0)="""RTN"",""DVBAADRP"",33,0)"
^XMB(3.9,21,2,282,0)=" ; S BDATE=BDATE-.5,EDATE=EDATE+.5"
^XMB(3.9,21,2,283,0)="""RTN"",""DVBAADRP"",34,0)"
^XMB(3.9,21,2,284,0)=" S BDATE=BDATE-.5,EDATE=EDATE-.5"
^XMB(3.9,21,2,285,0)="""RTN"",""DVBAADRP"",35,0)"
^XMB(3.9,21,2,286,0)=" K ^TMP($J)"
^XMB(3.9,21,2,287,0)="""RTN"",""DVBAADRP"",36,0)"
^XMB(3.9,21,2,288,0)=" D HOME^%ZIS K NOASK,QUIT1"
^XMB(3.9,21,2,289,0)="""RTN"",""DVBAADRP"",37,0)"
^XMB(3.9,21,2,290,0)=" D NOPARM^DVBAUTL2 G:$D(DVBAQUIT) KILL^DVBAUTIL"
^XMB(3.9,21,2,291,0)="""RTN"",""DVBAADRP"",38,0)"
^XMB(3.9,21,2,292,0)=" ;"
^XMB(3.9,21,2,293,0)="""RTN"",""DVBAADRP"",39,0)"
^XMB(3.9,21,2,294,0)=" S HEAD=""TOTAL ADMISSION REPORT"",HEAD1=""FOR ""_$P(DTAR,U,1)_"" ON ""_FDT(0)"
^XMB(3.9,21,2,295,0)="""RTN"",""DVBAADRP"",40,0)"
^XMB(3.9,21,2,296,0)=" I $D(X) D"
^XMB(3.9,21,2,297,0)="""RTN"",""DVBAADRP"",41,0)"
^XMB(3.9,21,2,298,0)=" . G:X=""""!(Y<0) KILL S %ZIS=""AEQ"" D ^%ZIS K %ZIS"
^XMB(3.9,21,2,299,0)="""RTN"",""DVBAADRP"",42,0)"
^XMB(3.9,21,2,300,0)=" D HFSOPEN^DVBAB82(""DVBRP"",DVBHFS,""W"") I DVBERR D END^DVBAB82 Q"
^XMB(3.9,21,2,301,0)="""RTN"",""DVBAADRP"",43,0)"
^XMB(3.9,21,2,302,0)=" I POP K DVBAON2,DCHPTR,M,Y,J G KILL^DVBAUTIL"
^XMB(3.9,21,2,303,0)="""RTN"",""DVBAADRP"",44,0)"
^XMB(3.9,21,2,304,0)=" U IO"
^XMB(3.9,21,2,305,0)="""RTN"",""DVBAADRP"",45,0)"
^XMB(3.9,21,2,306,0)=" D DEQUE"
^XMB(3.9,21,2,307,0)="""RTN"",""DVBAADRP"",46,0)"
^XMB(3.9,21,2,308,0)=" D END^DVBAB82"
^XMB(3.9,21,2,309,0)="""RTN"",""DVBAADRP"",47,0)"
^XMB(3.9,21,2,310,0)=" Q"
^XMB(3.9,21,2,311,0)="""RTN"",""DVBAADRP"",48,0)"
^XMB(3.9,21,2,312,0)="SET Q:'$D(^DPT(DA,0))  S DFN=DA D RCV^DVBAVDPT Q:CFLOC'=RONUM&(RO=""Y"")&(CFLOC'=0)&(CFLOC'=376)"
^XMB(3.9,21,2,313,0)="""RTN"",""DVBAADRP"",49,0)"
^XMB(3.9,21,2,314,0)=" S ^TMP($J,XCN,CFLOC,MB,DA)=MA_U_RCVAA_U_RCVPEN_U_CNUM"
^XMB(3.9,21,2,315,0)="""RTN"",""DVBAADRP"",50,0)"
^XMB(3.9,21,2,316,0)=" Q"
^XMB(3.9,21,2,317,0)="""RTN"",""DVBAADRP"",51,0)"
^XMB(3.9,21,2,318,0)=" ;"
^XMB(3.9,21,2,319,0)="""RTN"",""DVBAADRP"",52,0)"
^XMB(3.9,21,2,320,0)="PRINTB S MA=$P(DATA,U),RCVAA=$P(DATA,U,2),RCVPEN=$P(DATA,U,3),CNUM=$P(DATA,U,4),DFN=DA,QUIT1=1 D ADM^DVBAVDPT"
^XMB(3.9,21,2,321,0)="""RTN"",""DVBAADRP"",53,0)"
^XMB(3.9,21,2,322,0)=" S:ADMDT]"""" ADMDT=$$FMTE^XLFDT(ADMDT,""5DZ"")"
^XMB(3.9,21,2,323,0)="""RTN"",""DVBAADRP"",54,0)"
^XMB(3.9,21,2,324,0)=" S:DCHGDT]"""" DCHGDT=$$FMTE^XLFDT(DCHGDT,""5DZ"")"
^XMB(3.9,21,2,325,0)="""RTN"",""DVBAADRP"",55,0)"
^XMB(3.9,21,2,326,0)=" W:(IOST?1""C-"".E!($D(DVBAON2))) @IOF"
^XMB(3.9,21,2,327,0)="""RTN"",""DVBAADRP"",56,0)"
^XMB(3.9,21,2,328,0)=" I DVBGUI=0 W !!!,?(80-$L(HEAD)\2),HEAD,!,?(80-$L(HEAD1)\2),HEAD1,!!"
^XMB(3.9,21,2,329,0)="""RTN"",""DVBAADRP"",57,0)"
^XMB(3.9,21,2,330,0)=" I DVBGUI=1 W !!"
^XMB(3.9,21,2,331,0)="""RTN"",""DVBAADRP"",58,0)"
^XMB(3.9,21,2,332,0)=" W ?10,""Patient Name:"",?26,PNAM,!!,?14,""Claim No:"",?26,CNUM,!,?6,""Claim Folder Loc:"",?26,CFLOC,!,?9,""Social Sec No:"",?26,SSN,!,?8,""Admission Date:"",?26,ADMDT,!,?3,""Admitting Diagnosis:"",?26,DIAG,!"
^XMB(3.9,21,2,333,0)="""RTN"",""DVBAADRP"",59,0)"
^XMB(3.9,21,2,334,0)=" W ?8,""Discharge Date:"",?26,DCHGDT,!,?11,""Bed Service:"",?26,BEDSEC,!,?13,""Recv A&A?:"",?26,$S(RCVAA=0:""NO"",RCVAA=1:""YES"",1:""Not specified""),!"
^XMB(3.9,21,2,335,0)="""RTN"",""DVBAADRP"",60,0)"
^XMB(3.9,21,2,336,0)=" W ?14,""Pension?:"",?26,$S(RCVPEN=0:""NO"",RCVPEN=1:""YES"",1:""Not specified""),! D ELIG^DVBAVDPT I IOST'?1""C-"".E S DVBAON2="""""
^XMB(3.9,21,2,337,0)="""RTN"",""DVBAADRP"",61,0)"
^XMB(3.9,21,2,338,0)=" I IOST?1""C-"".E DO"
^XMB(3.9,21,2,339,0)="""RTN"",""DVBAADRP"",62,0)"
^XMB(3.9,21,2,340,0)=" .I ($O(^TMP($J,XCN))'=""""!($O(^TMP($J,XCN,CFLOC))'=""""!($O(^TMP($J,XCN,CFLOC,ADM))'=""""!($O(^TMP($J,XCN,CFLOC,ADM,DA))'="""")))) DO"
^XMB(3.9,21,2,341,0)="""RTN"",""DVBAADRP"",63,0)"
^XMB(3.9,21,2,342,0)=" ..I DVBGUI=0 D"
^XMB(3.9,21,2,343,0)="""RTN"",""DVBAADRP"",64,0)"
^XMB(3.9,21,2,344,0)=" ...W *7,!,""Press RETURN to continue or """"^"""" to stop    """
^XMB(3.9,21,2,345,0)="""RTN"",""DVBAADRP"",65,0)"
^XMB(3.9,21,2,346,0)=" ...R ANS:DTIME"
^XMB(3.9,21,2,347,0)="""RTN"",""DVBAADRP"",66,0)"
^XMB(3.9,21,2,348,0)=" ...S:ANS=U!('$T) QUIT=1"
^XMB(3.9,21,2,349,0)="""RTN"",""DVBAADRP"",67,0)"
^XMB(3.9,21,2,350,0)=" ...I '$T S DVBAQUIT=1"
^XMB(3.9,21,2,351,0)="""RTN"",""DVBAADRP"",68,0)"
^XMB(3.9,21,2,352,0)=" .I ($O(^TMP($J,XCN))=""""&($O(^TMP($J,XCN,CFLOC))=""""&($O(^TMP($J,XCN,CFLOC,ADM))=""""&($O(^TMP($J,XCN,CFLOC,ADM,DA))="""")))) DO"
^XMB(3.9,21,2,353,0)="""RTN"",""DVBAADRP"",69,0)"
^XMB(3.9,21,2,354,0)=" ..I DVBGUI=0 D"
^XMB(3.9,21,2,355,0)="""RTN"",""DVBAADRP"",70,0)"
^XMB(3.9,21,2,356,0)=" ...W *7,!,""Press RETURN to continue  """
^XMB(3.9,21,2,357,0)="""RTN"",""DVBAADRP"",71,0)"
^XMB(3.9,21,2,358,0)=" ...R ANS:DTIME"
^XMB(3.9,21,2,359,0)="""RTN"",""DVBAADRP"",72,0)"
^XMB(3.9,21,2,360,0)=" Q"
^XMB(3.9,21,2,361,0)="""RTN"",""DVBAADRP"",73,0)"
^XMB(3.9,21,2,362,0)=" ;"
^XMB(3.9,21,2,363,0)="""RTN"",""DVBAADRP"",74,0)"
^XMB(3.9,21,2,364,0)="PRINT U IO S QUIT="""" K MA,MB"
^XMB(3.9,21,2,365,0)="""RTN"",""DVBAADRP"",75,0)"
^XMB(3.9,21,2,366,0)=" S XCN="""" F M=0:0 S XCN=$O(^TMP($J,XCN)) Q:XCN=""""!(QUIT=1)  S CFLOC="""" F J=0:0 S CFLOC=$O(^TMP($J,XCN,CFLOC)) Q:CFLOC=""""!(QUIT=1)  D PRINT1"
^XMB(3.9,21,2,367,0)="""RTN"",""DVBAADRP"",76,0)"
^XMB(3.9,21,2,368,0)=" Q"
^XMB(3.9,21,2,369,0)="""RTN"",""DVBAADRP"",77,0)"
^XMB(3.9,21,2,370,0)="PRINT1 S ADM="""" F K=0:0 S ADM=$O(^TMP($J,XCN,CFLOC,ADM)) Q:ADM=""""!(QUIT=1)  S DA="""" F L=0:0 S DA=$O(^TMP($J,XCN,CFLOC,ADM,DA)) Q:DA=""""!(QUIT=1)  S DATA=^(DA) D PRINTB"
^XMB(3.9,21,2,371,0)="""RTN"",""DVBAADRP"",78,0)"
^XMB(3.9,21,2,372,0)=" Q"
^XMB(3.9,21,2,373,0)="""RTN"",""DVBAADRP"",79,0)"
^XMB(3.9,21,2,374,0)=" ;"
^XMB(3.9,21,2,375,0)="""RTN"",""DVBAADRP"",80,0)"
^XMB(3.9,21,2,376,0)="TERM D HOME^%ZIS K NOASK,QUIT1"
^XMB(3.9,21,2,377,0)="""RTN"",""DVBAADRP"",81,0)"
^XMB(3.9,21,2,378,0)=" D NOPARM^DVBAUTL2 G:$D(DVBAQUIT) KILL^DVBAUTIL"
^XMB(3.9,21,2,379,0)="""RTN"",""DVBAADRP"",82,0)"
^XMB(3.9,21,2,380,0)=" ;"
^XMB(3.9,21,2,381,0)="""RTN"",""DVBAADRP"",83,0)"
^XMB(3.9,21,2,382,0)="SETUP W @IOF,!,""VARO COMPLETE ADMISSION REPORT"" S DTAR=^DVB(396.1,1,0),FDT(0)=$$FMTE^XLFDT(DT,""5DZ"")"
^XMB(3.9,21,2,383,0)="""RTN"",""DVBAADRP"",84,0)"
^XMB(3.9,21,2,384,0)=" S HEAD=""TOTAL ADMISSION REPORT"",HEAD1=""FOR ""_$P(DTAR,U,1)_"" ON ""_FDT(0)"
^XMB(3.9,21,2,385,0)="""RTN"",""DVBAADRP"",85,0)"
^XMB(3.9,21,2,386,0)=" W !,HEAD1"
^XMB(3.9,21,2,387,0)="""RTN"",""DVBAADRP"",86,0)"
^XMB(3.9,21,2,388,0)="EN1 W !!,""Please enter dates for search, oldest date first, most recent date last."",!!,""Last report was run on "" S Y=$P(DTAR,U,3) X ^DD(""DD"") W Y,!!"
^XMB(3.9,21,2,389,0)="""RTN"",""DVBAADRP"",87,0)"
^XMB(3.9,21,2,390,0)=" D DATE^DVBAUTIL"
^XMB(3.9,21,2,391,0)="""RTN"",""DVBAADRP"",88,0)"
^XMB(3.9,21,2,392,0)=" G:X=""""!(Y<0) KILL S %ZIS=""AEQ"" D ^%ZIS K %ZIS"
^XMB(3.9,21,2,393,0)="""RTN"",""DVBAADRP"",89,0)"
^XMB(3.9,21,2,394,0)=" I POP K DVBAON2,DCHPTR,M,Y,J G KILL^DVBAUTIL"
^XMB(3.9,21,2,395,0)="""RTN"",""DVBAADRP"",90,0)"
^XMB(3.9,21,2,396,0)=" ;"
^XMB(3.9,21,2,397,0)="""RTN"",""DVBAADRP"",91,0)"
^XMB(3.9,21,2,398,0)="QUEUE I $D(IO(""Q"")) S ZTRTN=""DEQUE^DVBAADRP"",ZTIO=ION,NOASK=1,ZTDESC=""AMIE ADMISSION REPORT"" F I=""BDATE"",""EDATE"",""HEAD"",""HEAD1"",""RO"",""RONUM"",""FDT(0)"",""NOASK"" S ZTSAVE(I)="""""
^XMB(3.9,21,2,399,0)="""RTN"",""DVBAADRP"",92,0)"
^XMB(3.9,21,2,400,0)=" I $D(IO(""Q"")) D ^%ZTLOAD W:$D(ZTSK) !!,""Request queued."",!! G KILL"
^XMB(3.9,21,2,401,0)="""RTN"",""DVBAADRP"",93,0)"
^XMB(3.9,21,2,402,0)=" ;"
^XMB(3.9,21,2,403,0)="""RTN"",""DVBAADRP"",94,0)"
^XMB(3.9,21,2,404,0)="GO S MA=BDATE F J=0:0 S MA=$O(^DGPM(""AMV1"",MA)) Q:$P(MA,""."")>EDATE!(MA="""")  W:'$D(NOASK) ""."" F DA=0:0 S DA=$O(^DGPM(""AMV1"",MA,DA)) Q:DA=""""  F MB=0:0 S MB=$O(^DGPM(""AMV1"",MA,DA,MB)) Q:MB=""""  I MA'>EDATE D SET"
^XMB(3.9,21,2,405,0)="""RTN"",""DVBAADRP"",95,0)"
^XMB(3.9,21,2,406,0)=" I '$D(^TMP($J)) U IO W !!,*7,""No data found for parameters entered"",!! H 2 G KILL"
^XMB(3.9,21,2,407,0)="""RTN"",""DVBAADRP"",96,0)"
^XMB(3.9,21,2,408,0)=" I $G(DVBGUI)=1 W !,HEAD,!,HEAD1,!"
^XMB(3.9,21,2,409,0)="""RTN"",""DVBAADRP"",97,0)"
^XMB(3.9,21,2,410,0)=" I $D(^TMP($J)) D PRINT I $D(DVBAQUIT) K DVBAON2,DCHPTR,M,Y,J G KILL^DVBAUTIL"
^XMB(3.9,21,2,411,0)="""RTN"",""DVBAADRP"",98,0)"
^XMB(3.9,21,2,412,0)=" ;"
^XMB(3.9,21,2,413,0)="""RTN"",""DVBAADRP"",99,0)"
^XMB(3.9,21,2,414,0)="KILL ;"
^XMB(3.9,21,2,415,0)="""RTN"",""DVBAADRP"",100,0)"
^XMB(3.9,21,2,416,0)=" D ^%ZISC S X=3 K DVBAON2,DCHPTR,M,Y,J D:$D(ZTQUEUED) KILL^%ZTLOAD G FINAL^DVBAUTIL"
^XMB(3.9,21,2,417,0)="""RTN"",""DVBAADRP"",101,0)"
^XMB(3.9,21,2,418,0)=" ;"
^XMB(3.9,21,2,419,0)="""RTN"",""DVBAADRP"",102,0)"
^XMB(3.9,21,2,420,0)="DEQUE K ^TMP($J) G GO"
^XMB(3.9,21,2,421,0)="""RTN"",""DVBAB6"")"
^XMB(3.9,21,2,422,0)="0^1^B29419198^B29475564"
^XMB(3.9,21,2,423,0)="""RTN"",""DVBAB6"",1,0)"
^XMB(3.9,21,2,424,0)="DVBAB6 ;ALB/KLB - CAPRI PENDING 2507 REQUEST ;08/01/00"
^XMB(3.9,21,2,425,0)="""RTN"",""DVBAB6"",2,0)"
^XMB(3.9,21,2,426,0)=" ;;2.7;AMIE;**35,90,108**;Apr 10, 1995"
^XMB(3.9,21,2,427,0)="""RTN"",""DVBAB6"",3,0)"
^XMB(3.9,21,2,428,0)=" ;"
^XMB(3.9,21,2,429,0)="""RTN"",""DVBAB6"",4,0)"
^XMB(3.9,21,2,430,0)="STRT(MSG,DVBCSORT,RSTAT,ERDAYS,OLDAYS,ADIVNUM,ELTYP) ;"
^XMB(3.9,21,2,431,0)="""RTN"",""DVBAB6"",5,0)"
^XMB(3.9,21,2,432,0)=" I ADIVNUM'="""" S X=$O(^DG(40.8,""C"",ADIVNUM,"""")) S:X]"""" ADIVNUM=X"
^XMB(3.9,21,2,433,0)="""RTN"",""DVBAB6"",6,0)"
^XMB(3.9,21,2,434,0)="SETUP K ^TMP($J),^TMP(""CAPRI"")"
^XMB(3.9,21,2,435,0)="""RTN"",""DVBAB6"",7,0)"
^XMB(3.9,21,2,436,0)=" S DVBCDT(0)=$$FMTE^XLFDT(DT,""5DZ""),PG=1,DVBCCNT=0,DONE=""NO"",MSGCNT=1"
^XMB(3.9,21,2,437,0)="""RTN"",""DVBAB6"",8,0)"
^XMB(3.9,21,2,438,0)=" S DVBCHDR=""Sorted by ""_$S(DVBCSORT=""V"":""VETERAN NAME"",DVBCSORT=""R"":""Routing location"",DVBCSORT=""S"":""Status"",DVBCSORT=""A"":""Age of request"",1:""Unknown"")"
^XMB(3.9,21,2,439,0)="""RTN"",""DVBAB6"",9,0)"
^XMB(3.9,21,2,440,0)="HEAD S HEAD=""Pending 2507 Requests for ""_$S($D(^DVB(396.1,1,0)):$P(^(0),U,1),1:""Unknown site""),HEAD2="""",PROCDT=""Processed on: ""_DVBCDT(0),NODATA=0"
^XMB(3.9,21,2,441,0)="""RTN"",""DVBAB6"",10,0)"
^XMB(3.9,21,2,442,0)=" S ^TMP(""CAPRI"",MSGCNT)=HEAD_""^"",MSGCNT=MSGCNT+1"
^XMB(3.9,21,2,443,0)="""RTN"",""DVBAB6"",11,0)"
^XMB(3.9,21,2,444,0)=" S ^TMP(""CAPRI"",MSGCNT)=HEAD2_""^"",MSGCNT=MSGCNT+1"
^XMB(3.9,21,2,445,0)="""RTN"",""DVBAB6"",12,0)"
^XMB(3.9,21,2,446,0)=" S ^TMP(""CAPRI"",MSGCNT)=PROCDT_""^"",MSGCNT=MSGCNT+1"
^XMB(3.9,21,2,447,0)="""RTN"",""DVBAB6"",13,0)"
^XMB(3.9,21,2,448,0)=" S ^TMP(""CAPRI"",MSGCNT)=""^"",MSGCNT=MSGCNT+1"
^XMB(3.9,21,2,449,0)="""RTN"",""DVBAB6"",14,0)"
^XMB(3.9,21,2,450,0)=" S $P(^TMP(""CAPRI"",MSGCNT),""="",75)=""=^"",MSGCNT=MSGCNT+1"
^XMB(3.9,21,2,451,0)="""RTN"",""DVBAB6"",15,0)"
^XMB(3.9,21,2,452,0)=" S ^TMP(""CAPRI"",MSGCNT)=""^"",MSGCNT=MSGCNT+1"
^XMB(3.9,21,2,453,0)="""RTN"",""DVBAB6"",16,0)"
^XMB(3.9,21,2,454,0)=" S ^TMP(""CAPRI"",MSGCNT)="""",MSGCNT=MSGCNT+1"
^XMB(3.9,21,2,455,0)="""RTN"",""DVBAB6"",17,0)"
^XMB(3.9,21,2,456,0)="DATA S DFN="""" F  S DFN=$O(^DVB(396.3,""B"",DFN)) Q:DFN=""""  F REQDA=0:0 S REQDA=$O(^DVB(396.3,""B"",DFN,REQDA)) Q:REQDA=""""  D SORT^DVBAB5"
^XMB(3.9,21,2,457,0)="""RTN"",""DVBAB6"",18,0)"
^XMB(3.9,21,2,458,0)=" I DVBCSORT=""V"" S PNAM="""" F  S PNAM=$O(^TMP($J,PNAM)) Q:PNAM=""""  F DFN=0:0 S DFN=$O(^TMP($J,PNAM,DFN)) Q:'DFN  F DA(1)=0:0 S DA(1)=$O(^TMP($J,PNAM,DFN,DA(1))) Q:'DA(1)  D PRINT I $D(OUT) S DA(1)=999999999,PNAM=""ZZZ"",DONE=""YES"" Q"
^XMB(3.9,21,2,459,0)="""RTN"",""DVBAB6"",19,0)"
^XMB(3.9,21,2,460,0)=" I DVBCSORT=""R""!(DVBCSORT=""A"")!(DVBCSORT=""S"") D"
^XMB(3.9,21,2,461,0)="""RTN"",""DVBAB6"",20,0)"
^XMB(3.9,21,2,462,0)=" . S JX="""" F  S JX=$O(^TMP($J,JX)) Q:JX=""""  D"
^XMB(3.9,21,2,463,0)="""RTN"",""DVBAB6"",21,0)"
^XMB(3.9,21,2,464,0)=" .. S PNAM="""" F  S PNAM=$O(^TMP($J,JX,PNAM)) Q:PNAM=""""  D"
^XMB(3.9,21,2,465,0)="""RTN"",""DVBAB6"",22,0)"
^XMB(3.9,21,2,466,0)=" ... F DFN=0:0 S DFN=$O(^TMP($J,JX,PNAM,DFN)) Q:'DFN  D NXT"
^XMB(3.9,21,2,467,0)="""RTN"",""DVBAB6"",23,0)"
^XMB(3.9,21,2,468,0)=" I DVBCCNT>0 S ^TMP(""CAPRI"",MSGCNT)=""Total pending: ""_DVBCCNT,DONE=""YES"""
^XMB(3.9,21,2,469,0)="""RTN"",""DVBAB6"",24,0)"
^XMB(3.9,21,2,470,0)=" ;"
^XMB(3.9,21,2,471,0)="""RTN"",""DVBAB6"",25,0)"
^XMB(3.9,21,2,472,0)="EXIT I NODATA=0 S ^TMP(""CAPRI"",MSGCNT)=""No pending request found for select parameters."",MSG=$NA(^TMP(""CAPRI""))"
^XMB(3.9,21,2,473,0)="""RTN"",""DVBAB6"",26,0)"
^XMB(3.9,21,2,474,0)=" I DONE=""YES"" S MSG=$NA(^TMP(""CAPRI""))"
^XMB(3.9,21,2,475,0)="""RTN"",""DVBAB6"",27,0)"
^XMB(3.9,21,2,476,0)=" K ^TMP($J),ADIV,CNUM,NODATA,STATUS,TST,TSTA1,STSAT,KKMSGCNT,PG,PRTNM,RDATE,RDATE1,REQDA,SSN,RONAME,JX"
^XMB(3.9,21,2,477,0)="""RTN"",""DVBAB6"",28,0)"
^XMB(3.9,21,2,478,0)=" K PROCDT,REQSTR,TSTAT,DA,DFN,DONE,DVBCCNT,DVBCDT,DVBCHDR,X,XX,ZS,ZZZ,HEAD,HEAD2,OUT,OWNDOM,EDAYS,PNAM"
^XMB(3.9,21,2,479,0)="""RTN"",""DVBAB6"",29,0)"
^XMB(3.9,21,2,480,0)=" Q"
^XMB(3.9,21,2,481,0)="""RTN"",""DVBAB6"",30,0)"
^XMB(3.9,21,2,482,0)=" ;"
^XMB(3.9,21,2,483,0)="""RTN"",""DVBAB6"",31,0)"
^XMB(3.9,21,2,484,0)="PRINT S ADIV=$S($D(^DVB(396.3,DA(1),1)):$P(^(1),U,4),1:"""") Q:ADIV'=ADIVNUM&(DVBCSORT=""R"")  I ADIV]"""" S ADIV=$S($D(^DG(40.8,+ADIV,0)):$P(^(0),U,1),1:""Unknown Division"")"
^XMB(3.9,21,2,485,0)="""RTN"",""DVBAB6"",32,0)"
^XMB(3.9,21,2,486,0)=" S RDATE1=$P(^DVB(396.3,DA(1),0),U,2),RDATE=$P(^(0),U,5)"
^XMB(3.9,21,2,487,0)="""RTN"",""DVBAB6"",33,0)"
^XMB(3.9,21,2,488,0)=" S SSN=$P($G(^DPT(DFN,0)),U,9) S:SSN="""" SSN=""Unknown"""
^XMB(3.9,21,2,489,0)="""RTN"",""DVBAB6"",34,0)"
^XMB(3.9,21,2,490,0)=" S CNUM=$P($G(^DPT(DFN,.31)),U,3) S:CNUM="""" CNUM=""Unknown"""
^XMB(3.9,21,2,491,0)="""RTN"",""DVBAB6"",35,0)"
^XMB(3.9,21,2,492,0)=" D ELAPSED^DVBAB5"
^XMB(3.9,21,2,493,0)="""RTN"",""DVBAB6"",36,0)"
^XMB(3.9,21,2,494,0)=" S STATUS=""Unknown"",^TMP(""CAPRI"",MSGCNT)=""Division: ""_ADIV_""^"",MSGCNT=MSGCNT+1,XX=$P(^DVB(396.3,DA(1),0),U,18),STATUS=$S(XX=""N"":""New"",XX=""P"":""Pending, reported"",XX=""S"":""Pending, scheduled"",XX=""R"":""Released to RO, not printed"",1:"""")"
^XMB(3.9,21,2,495,0)="""RTN"",""DVBAB6"",37,0)"
^XMB(3.9,21,2,496,0)=" I STATUS="""",$D(XX) S STATUS=$S(XX=""C"":""Completed, printed by RO"",XX=""X"":""Cancelled by RO"",XX=""T"":""Transcribed"",XX=""NT"":""New,Transferred in"",XX=""CT"":""Completed, Transferred out"",1:""Unknown"")"
^XMB(3.9,21,2,497,0)="""RTN"",""DVBAB6"",38,0)"
^XMB(3.9,21,2,498,0)=" S ^TMP(""CAPRI"",MSGCNT)=""Status: ""_STATUS_""^"",MSGCNT=MSGCNT+1"
^XMB(3.9,21,2,499,0)="""RTN"",""DVBAB6"",39,0)"
^XMB(3.9,21,2,500,0)=" S ^TMP(""CAPRI"",MSGCNT)=PNAM_"" ^"",MSGCNT=MSGCNT+1,^TMP(""CAPRI"",MSGCNT)=""SSN: ""_SSN_""^"",MSGCNT=MSGCNT+1,^TMP(""CAPRI"",MSGCNT)=""Claim no: ""_CNUM_""^"",MSGCNT=MSGCNT+1"
^XMB(3.9,21,2,501,0)="""RTN"",""DVBAB6"",40,0)"
^XMB(3.9,21,2,502,0)=" S ^TMP(""CAPRI"",MSGCNT)=""Request Date: ""_$$FMTE^XLFDT(RDATE1,""5DZ"")_""^"",MSGCNT=MSGCNT+1"
^XMB(3.9,21,2,503,0)="""RTN"",""DVBAB6"",41,0)"
^XMB(3.9,21,2,504,0)=" S ^TMP(""CAPRI"",MSGCNT)=""Elapsed days: ""_EDAYS_""^"",MSGCNT=MSGCNT+1"
^XMB(3.9,21,2,505,0)="""RTN"",""DVBAB6"",42,0)"
^XMB(3.9,21,2,506,0)=" S ^TMP(""CAPRI"",MSGCNT)=""^"",MSGCNT=MSGCNT+1"
^XMB(3.9,21,2,507,0)="""RTN"",""DVBAB6"",43,0)"
^XMB(3.9,21,2,508,0)=" S X=$S($D(^DVB(396.3,DA(1),4)):^(4),1:"""")"
^XMB(3.9,21,2,509,0)="""RTN"",""DVBAB6"",44,0)"
^XMB(3.9,21,2,510,0)=" S OWNDOM=$P(^DVB(396.3,DA(1),0),U,22) I OWNDOM]"""" S ^TMP(""CAPRI"",MSGCNT)=""Transferred in from ""_$S($D(^DIC(4.2,+OWNDOM,0)):$P(^(0),U,1),1:""Unknown Site"")_""^"",MSGCNT=MSGCNT+1"
^XMB(3.9,21,2,511,0)="""RTN"",""DVBAB6"",45,0)"
^XMB(3.9,21,2,512,0)=" S ^TMP(""CAPRI"",MSGCNT)=""^"",MSGCNT=MSGCNT+1"
^XMB(3.9,21,2,513,0)="""RTN"",""DVBAB6"",46,0)"
^XMB(3.9,21,2,514,0)=" S ^TMP(""CAPRI"",MSGCNT)=""Exams requested:""_""^"",MSGCNT=MSGCNT+1"
^XMB(3.9,21,2,515,0)="""RTN"",""DVBAB6"",47,0)"
^XMB(3.9,21,2,516,0)=" ;"
^XMB(3.9,21,2,517,0)="""RTN"",""DVBAB6"",48,0)"
^XMB(3.9,21,2,518,0)="ITEMS D TST S NODATA=1,REQSTR=+$P(^DVB(396.3,DA(1),0),U,4)"
^XMB(3.9,21,2,519,0)="""RTN"",""DVBAB6"",49,0)"
^XMB(3.9,21,2,520,0)=" S ZZZ=""Requested by: ""_$S($D(^VA(200,+REQSTR,0)):$P(^(0),U,1),1:"" (Not specified) "")_"" at """
^XMB(3.9,21,2,521,0)="""RTN"",""DVBAB6"",50,0)"
^XMB(3.9,21,2,522,0)=" S RONAME=$P(^DVB(396.3,DA(1),0),U,3),RONAME=$S(RONAME]"""":$P(^DIC(4,+RONAME,0),U,1),1:"""")"
^XMB(3.9,21,2,523,0)="""RTN"",""DVBAB6"",51,0)"
^XMB(3.9,21,2,524,0)=" S ^TMP(""CAPRI"",MSGCNT)=""^""_ZZZ_$S(RONAME]"""":RONAME,1:"" (Not specified) "")_""^"",MSGCNT=MSGCNT+1"
^XMB(3.9,21,2,525,0)="""RTN"",""DVBAB6"",52,0)"
^XMB(3.9,21,2,526,0)=" S ^TMP(""CAPRI"",MSGCNT)=""^"",MSGCNT=MSGCNT+1"
^XMB(3.9,21,2,527,0)="""RTN"",""DVBAB6"",53,0)"
^XMB(3.9,21,2,528,0)=" S $P(^TMP(""CAPRI"",MSGCNT),""-"",75)=""-^"",MSGCNT=MSGCNT+1"
^XMB(3.9,21,2,529,0)="""RTN"",""DVBAB6"",54,0)"
^XMB(3.9,21,2,530,0)=" S DVBCCNT=DVBCCNT+1,MSGCNT=MSGCNT+1"
^XMB(3.9,21,2,531,0)="""RTN"",""DVBAB6"",55,0)"
^XMB(3.9,21,2,532,0)=" Q"
^XMB(3.9,21,2,533,0)="""RTN"",""DVBAB6"",56,0)"
^XMB(3.9,21,2,534,0)="NXT F DA(1)=0:0 S DA(1)=$O(^TMP($J,JX,PNAM,DFN,DA(1))) Q:DA(1)=""""  D PRINT I $D(OUT) S DA(1)="""",PNAM=""ZZZZ"",JX=$S($A(JX)>57:PNAM,1:9999999),DONE=""YES"""
^XMB(3.9,21,2,535,0)="""RTN"",""DVBAB6"",57,0)"
^XMB(3.9,21,2,536,0)=" Q"
^XMB(3.9,21,2,537,0)="""RTN"",""DVBAB6"",58,0)"
^XMB(3.9,21,2,538,0)="TST F DA=0:0 S DA=$O(^DVB(396.4,""C"",DA(1),DA)) Q:DA=""""  K PRINT S TSTAT=$P(^DVB(396.4,DA,0),U,4),TST=$P(^DVB(396.4,DA,0),U,3),PRTNM=$S($D(^DVB(396.6,TST,0)):$P(^(0),U,2),1:"""") D TST1"
^XMB(3.9,21,2,539,0)="""RTN"",""DVBAB6"",59,0)"
^XMB(3.9,21,2,540,0)=" Q"
^XMB(3.9,21,2,541,0)="""RTN"",""DVBAB6"",60,0)"
^XMB(3.9,21,2,542,0)="TST1 S TSTA1="""""
^XMB(3.9,21,2,543,0)="""RTN"",""DVBAB6"",61,0)"
^XMB(3.9,21,2,544,0)=" I $D(^DVB(396.4,DA,""CAN"")) S TSTA1=$P(^DVB(396.4,DA,""CAN""),U,3)"
^XMB(3.9,21,2,545,0)="""RTN"",""DVBAB6"",62,0)"
^XMB(3.9,21,2,546,0)=" I $D(^DVB(396.4,DA,""TRAN"")) S X=$P(^DVB(396.4,DA,""TRAN""),U,3)"
^XMB(3.9,21,2,547,0)="""RTN"",""DVBAB6"",63,0)"
^XMB(3.9,21,2,548,0)=" S:TSTA1]"""" TSTA1=$P(^DVB(396.5,TSTA1,0),U,1)"
^XMB(3.9,21,2,549,0)="""RTN"",""DVBAB6"",64,0)"
^XMB(3.9,21,2,550,0)=" S ^TMP(""CAPRI"",MSGCNT)=$S(PRTNM]"""":PRTNM,1:""Missing exam name"")_$S(TSTA1]"""":"" -cancelled (""_TSTA1_"")"",TSTAT=""T"":"" - Transferred"",TSTAT="""":"" (Unknown status)"",1:"""")_""^"",MSGCNT=MSGCNT+1"
^XMB(3.9,21,2,551,0)="""RTN"",""DVBAB6"",65,0)"
^XMB(3.9,21,2,552,0)=" I TSTAT=""T"" S X=$S($D(^DIC(4.2,+X,0)):$P(^(0),U,1),1:""unknown site"") S ^TMP(""CAPRI"",MSGCNT)="" to ""_$P(X,""."",1),MSGCNT=MSGCNT+1"
^XMB(3.9,21,2,553,0)="""RTN"",""DVBAB6"",66,0)"
^XMB(3.9,21,2,554,0)=" ;S ^TMP(""CAPRI"",MSGCNT)="";"",MSGCNT=MSGCNT+1"
^XMB(3.9,21,2,555,0)="""RTN"",""DVBAB6"",67,0)"
^XMB(3.9,21,2,556,0)=" Q"
^XMB(3.9,21,2,557,0)="""RTN"",""DVBABEBD"")"
^XMB(3.9,21,2,558,0)="0^3^B3978273^B4109038"
^XMB(3.9,21,2,559,0)="""RTN"",""DVBABEBD"",1,0)"
^XMB(3.9,21,2,560,0)="DVBABEBD ;ALB - CAPRI EXAM BY DATE REPORT;09/13/04"
^XMB(3.9,21,2,561,0)="""RTN"",""DVBABEBD"",2,0)"
^XMB(3.9,21,2,562,0)=" ;;2.7;AMIE;**57,108**;Apr 10, 1995"
^XMB(3.9,21,2,563,0)="""RTN"",""DVBABEBD"",3,0)"
^XMB(3.9,21,2,564,0)=" Q"
^XMB(3.9,21,2,565,0)="""RTN"",""DVBABEBD"",4,0)"
^XMB(3.9,21,2,566,0)=" ;"
^XMB(3.9,21,2,567,0)="""RTN"",""DVBABEBD"",5,0)"
^XMB(3.9,21,2,568,0)="EXAMBYDT(MSG,BEGDT,ENDDT) ; CALLED BY REMOTE PROCEDURE DVBAB EXAMS BY DATE"
^XMB(3.9,21,2,569,0)="""RTN"",""DVBABEBD"",6,0)"
^XMB(3.9,21,2,570,0)=" N DVBABCNT,DVBABIEN,DVBABPAT,DVBABT,DVBAB0,DVBABT1,DVBABT2,DVBABT3,DVBABT4,DVBABT5,DVBABT6"
^XMB(3.9,21,2,571,0)="""RTN"",""DVBABEBD"",7,0)"
^XMB(3.9,21,2,572,0)=" K ^TMP(""DVBABEBD"",DUZ) D SETSTAT"
^XMB(3.9,21,2,573,0)="""RTN"",""DVBABEBD"",8,0)"
^XMB(3.9,21,2,574,0)=" S ^TMP(""DVBABEBD"",DUZ,1)=""PATIENT NAME^REQUEST DATE^DATE RELEASED^DATE PRINTED BY RO^REQUEST STATUS""_$C(13)"
^XMB(3.9,21,2,575,0)="""RTN"",""DVBABEBD"",9,0)"
^XMB(3.9,21,2,576,0)=" S DVBABCNT=2,DVBABIEN=0,MSG=$NA(^TMP(""DVBABEBD"",DUZ))"
^XMB(3.9,21,2,577,0)="""RTN"",""DVBABEBD"",10,0)"
^XMB(3.9,21,2,578,0)=" F  S DVBABIEN=$O(^DVB(396.3,DVBABIEN)) Q:+DVBABIEN=0  D"
^XMB(3.9,21,2,579,0)="""RTN"",""DVBABEBD"",11,0)"
^XMB(3.9,21,2,580,0)=" . ;REQUEST DATE"
^XMB(3.9,21,2,581,0)="""RTN"",""DVBABEBD"",12,0)"
^XMB(3.9,21,2,582,0)=" . S DVBAB0=$G(^DVB(396.3,DVBABIEN,0)) Q:DVBAB0="""""
^XMB(3.9,21,2,583,0)="""RTN"",""DVBABEBD"",13,0)"
^XMB(3.9,21,2,584,0)=" . S DVBABPAT=$G(^DPT($P(DVBAB0,""^""),0)) Q:DVBABPAT="""""
^XMB(3.9,21,2,585,0)="""RTN"",""DVBABEBD"",14,0)"
^XMB(3.9,21,2,586,0)=" . S DVBABT2=$P($P(DVBAB0,""^"",2),""."")"
^XMB(3.9,21,2,587,0)="""RTN"",""DVBABEBD"",15,0)"
^XMB(3.9,21,2,588,0)=" . I (DVBABT2>(BEGDT-1))&(DVBABT2<(ENDDT+1)) D"
^XMB(3.9,21,2,589,0)="""RTN"",""DVBABEBD"",16,0)"
^XMB(3.9,21,2,590,0)=" .. S DVBABT1=$P(DVBABPAT,""^"",1) ;PATIENT NAME"
^XMB(3.9,21,2,591,0)="""RTN"",""DVBABEBD"",17,0)"
^XMB(3.9,21,2,592,0)=" .. S DVBABT6=$P(DVBABPAT,""^"",9) ;SSN"
^XMB(3.9,21,2,593,0)="""RTN"",""DVBABEBD"",18,0)"
^XMB(3.9,21,2,594,0)=" .. S DVBABT3=$P(DVBAB0,""^"",14) ;DATE RELEASED"
^XMB(3.9,21,2,595,0)="""RTN"",""DVBABEBD"",19,0)"
^XMB(3.9,21,2,596,0)=" .. S DVBABT4=$P(DVBAB0,""^"",16) ;DATE PRINTED BY RO"
^XMB(3.9,21,2,597,0)="""RTN"",""DVBABEBD"",20,0)"
^XMB(3.9,21,2,598,0)=" .. S DVBABT5=$P(DVBAB0,""^"",18) ;REQUEST STATUS"
^XMB(3.9,21,2,599,0)="""RTN"",""DVBABEBD"",21,0)"
^XMB(3.9,21,2,600,0)=" .. S:$D(DVBABT(DVBABT5)) DVBABT5=DVBABT(DVBABT5)"
^XMB(3.9,21,2,601,0)="""RTN"",""DVBABEBD"",22,0)"
^XMB(3.9,21,2,602,0)=" .. S ^TMP(""DVBABEBD"",DUZ,DVBABCNT)=DVBABT1_U_DVBABT2_U_DVBABT3_U_DVBABT4_U_DVBABT5_U_DVBABT6_$C(13)"
^XMB(3.9,21,2,603,0)="""RTN"",""DVBABEBD"",23,0)"
^XMB(3.9,21,2,604,0)=" .. S DVBABCNT=DVBABCNT+1"
^XMB(3.9,21,2,605,0)="""RTN"",""DVBABEBD"",24,0)"
^XMB(3.9,21,2,606,0)=" Q"
^XMB(3.9,21,2,607,0)="""RTN"",""DVBABEBD"",25,0)"
^XMB(3.9,21,2,608,0)=" ;"
^XMB(3.9,21,2,609,0)="""RTN"",""DVBABEBD"",26,0)"
^XMB(3.9,21,2,610,0)="SETSTAT S DVBABT(""N"")=""NEW"""
^XMB(3.9,21,2,611,0)="""RTN"",""DVBABEBD"",27,0)"
^XMB(3.9,21,2,612,0)=" S DVBABT(""P"")=""PENDING, REPORTED"""
^XMB(3.9,21,2,613,0)="""RTN"",""DVBABEBD"",28,0)"
^XMB(3.9,21,2,614,0)=" S DVBABT(""S"")=""PENDING, SCHEDULED"""
^XMB(3.9,21,2,615,0)="""RTN"",""DVBABEBD"",29,0)"
^XMB(3.9,21,2,616,0)=" S DVBABT(""R"")=""RELEASED TO RO, NOT PRINTED"""
^XMB(3.9,21,2,617,0)="""RTN"",""DVBABEBD"",30,0)"
^XMB(3.9,21,2,618,0)=" S DVBABT(""C"")=""COMPLETED, PRINTED BY RO"""
^XMB(3.9,21,2,619,0)="""RTN"",""DVBABEBD"",31,0)"
^XMB(3.9,21,2,620,0)=" S DVBABT(""X"")=""CANCELLED BY MAS"""
^XMB(3.9,21,2,621,0)="""RTN"",""DVBABEBD"",32,0)"
^XMB(3.9,21,2,622,0)=" S DVBABT(""RX"")=""CANCELLED BY RO"""
^XMB(3.9,21,2,623,0)="""RTN"",""DVBABEBD"",33,0)"
^XMB(3.9,21,2,624,0)=" S DVBABT(""T"")=""TRANSCRIBED"""
^XMB(3.9,21,2,625,0)="""RTN"",""DVBABEBD"",34,0)"
^XMB(3.9,21,2,626,0)=" S DVBABT(""NT"")=""NEW, TRANSFERRED IN"""
^XMB(3.9,21,2,627,0)="""RTN"",""DVBABEBD"",35,0)"
^XMB(3.9,21,2,628,0)=" S DVBABT(""CT"")=""COMPLETE, TRANSFERRED OUT"""
^XMB(3.9,21,2,629,0)="""RTN"",""DVBABEBD"",36,0)"
^XMB(3.9,21,2,630,0)=" Q"
^XMB(3.9,21,2,631,0)="""RTN"",""DVBAVDPT"")"
^XMB(3.9,21,2,632,0)="0^4^B10113964^B9992968"
^XMB(3.9,21,2,633,0)="""RTN"",""DVBAVDPT"",1,0)"
^XMB(3.9,21,2,634,0)="DVBAVDPT ;ALB/JLU,557/THM-GET VARIABLES VIA ^VADPT ; 1/23/91  8:02 AM"
^XMB(3.9,21,2,635,0)="""RTN"",""DVBAVDPT"",2,0)"
^XMB(3.9,21,2,636,0)=" ;;2.7;AMIE;**57,108**;Apr 10, 1995"
^XMB(3.9,21,2,637,0)="""RTN"",""DVBAVDPT"",3,0)"
^XMB(3.9,21,2,638,0)=" W *7,!!,""NOT a stand-alone program !"",!!,*7 Q"
^XMB(3.9,21,2,639,0)="""RTN"",""DVBAVDPT"",4,0)"
^XMB(3.9,21,2,640,0)=" ;"
^XMB(3.9,21,2,641,0)="""RTN"",""DVBAVDPT"",5,0)"
^XMB(3.9,21,2,642,0)="DCHGDT ;entry point for all reports that use discharge dates"
^XMB(3.9,21,2,643,0)="""RTN"",""DVBAVDPT"",6,0)"
^XMB(3.9,21,2,644,0)=" ;called by D DCHGDT^DVBAVDPT"
^XMB(3.9,21,2,645,0)="""RTN"",""DVBAVDPT"",7,0)"
^XMB(3.9,21,2,646,0)=" S DCHGDT=MA,VAINDT=$S(MA[""."":MA-.000002,1:MA),VA200="""" D INP^VADPT K VA200 S ADMDT=$P(VAIN(7),""."") G EN"
^XMB(3.9,21,2,647,0)="""RTN"",""DVBAVDPT"",8,0)"
^XMB(3.9,21,2,648,0)=" ;"
^XMB(3.9,21,2,649,0)="""RTN"",""DVBAVDPT"",9,0)"
^XMB(3.9,21,2,650,0)="ADM ;entry point for all reports that use admission dates"
^XMB(3.9,21,2,651,0)="""RTN"",""DVBAVDPT"",10,0)"
^XMB(3.9,21,2,652,0)=" ;called by D ADM^DVBAVDPT only"
^XMB(3.9,21,2,653,0)="""RTN"",""DVBAVDPT"",11,0)"
^XMB(3.9,21,2,654,0)=" I $D(MA),MA]"""" S (ADMDT,VAINDT)=MA S VA200="""" D INP^VADPT K VA200 S ADMNUM=VAIN(1),DCHGDT="""",DCHPTR=$S($D(^DGPM(+ADMNUM,0)):$P(^(0),U,17),1:"""") G:DCHPTR="""" EN I DCHPTR]"""",$D(^DGPM(DCHPTR,0)) S DCHGDT=$P(^(0),U,1) G EN"
^XMB(3.9,21,2,655,0)="""RTN"",""DVBAVDPT"",12,0)"
^XMB(3.9,21,2,656,0)=" S VAINDT=$S($D(ADMDT):ADMDT,1:""""),VA200="""" D INP^VADPT K VA200 S ADMNUM=VAIN(1),DCHGDT="""",DCHPTR=$S($D(^DGPM(+ADMNUM,0)):$P(^(0),U,17),1:"""") I DCHPTR]"""",$D(^DGPM(DCHPTR,0)) S DCHGDT=$P(^(0),U,1)"
^XMB(3.9,21,2,657,0)="""RTN"",""DVBAVDPT"",13,0)"
^XMB(3.9,21,2,658,0)=" Q:$D(DVBARADQ)"
^XMB(3.9,21,2,659,0)="""RTN"",""DVBAVDPT"",14,0)"
^XMB(3.9,21,2,660,0)=" ;"
^XMB(3.9,21,2,661,0)="""RTN"",""DVBAVDPT"",15,0)"
^XMB(3.9,21,2,662,0)="EN ;general entry point"
^XMB(3.9,21,2,663,0)="""RTN"",""DVBAVDPT"",16,0)"
^XMB(3.9,21,2,664,0)=" S (DVBAELIG,DVBAELST)="""" I $D(^DPT(DFN,.36)),$P(^(.36),U)]"""" S DVBAELIG=$S($D(^DIC(8,+^(.36),0)):$P(^(0),U,6),1:"""")"
^XMB(3.9,21,2,665,0)="""RTN"",""DVBAVDPT"",17,0)"
^XMB(3.9,21,2,666,0)=" I DVBAELIG]"""",$D(^DPT(DFN,.361)),^(.361)]"""" S DVBAELST=$P(^(.361),U)"
^XMB(3.9,21,2,667,0)="""RTN"",""DVBAVDPT"",18,0)"
^XMB(3.9,21,2,668,0)=" S PNAM=$P(^DPT(DFN,0),U),SSN=$P(^(0),U,9),WARD=$P(VAIN(4),U),DIAG=VAIN(9),ADMNUM=VAIN(1)"
^XMB(3.9,21,2,669,0)="""RTN"",""DVBAVDPT"",19,0)"
^XMB(3.9,21,2,670,0)=" S WARD=$S($D(^DIC(42,+WARD,0)):^(0),1:""""),BEDSEC=$S($P(WARD,U,2)]"""":$P(WARD,U,2),1:""UNKNOWN""),WARD=$S($P(WARD,U)]"""":$P(WARD,U),1:""UNKNOWN"")"
^XMB(3.9,21,2,671,0)="""RTN"",""DVBAVDPT"",20,0)"
^XMB(3.9,21,2,672,0)=" K VAEL,VAERR,VADM,VAIN,VAINDT,DVBAPGM,VAMB,ADMNUM,DVBAX,DVBAY"
^XMB(3.9,21,2,673,0)="""RTN"",""DVBAVDPT"",21,0)"
^XMB(3.9,21,2,674,0)="RCV ;A&A and Pension"
^XMB(3.9,21,2,675,0)="""RTN"",""DVBAVDPT"",22,0)"
^XMB(3.9,21,2,676,0)=" ;"
^XMB(3.9,21,2,677,0)="""RTN"",""DVBAVDPT"",23,0)"
^XMB(3.9,21,2,678,0)=" ;* QUIT1 set by DVBAADRP, DVBACMRP, DVBADSNT, DVBADSRP, DVBADSRT,"
^XMB(3.9,21,2,679,0)="""RTN"",""DVBAVDPT"",24,0)"
^XMB(3.9,21,2,680,0)=" ;*  DVBARAD1, DVBASPD2"
^XMB(3.9,21,2,681,0)="""RTN"",""DVBAVDPT"",25,0)"
^XMB(3.9,21,2,682,0)=" Q:$D(QUIT1)  S RCVAA=$S($D(^DPT(DFN,.362)):^(.362),1:""""),RCVPEN=$P(RCVAA,U,14),RCVAA=$P(RCVAA,U,12)"
^XMB(3.9,21,2,683,0)="""RTN"",""DVBAVDPT"",26,0)"
^XMB(3.9,21,2,684,0)=" S RCVAA=$S(RCVAA=""Y"":1,RCVAA=""N"":0,1:""""),RCVPEN=$S(RCVPEN=""Y"":1,RCVPEN=""N"":0,1:"""")"
^XMB(3.9,21,2,685,0)="""RTN"",""DVBAVDPT"",27,0)"
^XMB(3.9,21,2,686,0)="SC ;Service Connection"
^XMB(3.9,21,2,687,0)="""RTN"",""DVBAVDPT"",28,0)"
^XMB(3.9,21,2,688,0)=" S DVBASC=$S($D(^DPT(DFN,.3)):$P(^(.3),U),1:"""")"
^XMB(3.9,21,2,689,0)="""RTN"",""DVBAVDPT"",29,0)"
^XMB(3.9,21,2,690,0)="CNUM ;Claim Number and Location"
^XMB(3.9,21,2,691,0)="""RTN"",""DVBAVDPT"",30,0)"
^XMB(3.9,21,2,692,0)=" S CNUM=$S($D(^DPT(DFN,.31)):^(.31),1:"""")"
^XMB(3.9,21,2,693,0)="""RTN"",""DVBAVDPT"",31,0)"
^XMB(3.9,21,2,694,0)=" S CFLOC=+$P(CNUM,U,4)"
^XMB(3.9,21,2,695,0)="""RTN"",""DVBAVDPT"",32,0)"
^XMB(3.9,21,2,696,0)=" S CNUM=$P(CNUM,U,3)"
^XMB(3.9,21,2,697,0)="""RTN"",""DVBAVDPT"",33,0)"
^XMB(3.9,21,2,698,0)=" S:CNUM="""" CNUM=""UNKNOWN"""
^XMB(3.9,21,2,699,0)="""RTN"",""DVBAVDPT"",34,0)"
^XMB(3.9,21,2,700,0)=" S XCN=$E(CNUM,$L(CNUM)-1,$L(CNUM))"
^XMB(3.9,21,2,701,0)="""RTN"",""DVBAVDPT"",35,0)"
^XMB(3.9,21,2,702,0)=" ; DVBA*2.7*108 - Modified next line for null values"
^XMB(3.9,21,2,703,0)="""RTN"",""DVBAVDPT"",36,0)"
^XMB(3.9,21,2,704,0)=" ; S CFLOC=$S($D(^DIC(4,CFLOC,99)):$P(^(99),U,1),1:""UNKNOWN"")"
^XMB(3.9,21,2,705,0)="""RTN"",""DVBAVDPT"",37,0)"
^XMB(3.9,21,2,706,0)=" S CFLOC=$P($G(^DIC(4,CFLOC,99)),""^"") S:CFLOC="""" CFLOC=""UNKNOWN"""
^XMB(3.9,21,2,707,0)="""RTN"",""DVBAVDPT"",38,0)"
^XMB(3.9,21,2,708,0)=" Q"
^XMB(3.9,21,2,709,0)="""RTN"",""DVBAVDPT"",39,0)"
^XMB(3.9,21,2,710,0)=" ;"
^XMB(3.9,21,2,711,0)="""RTN"",""DVBAVDPT"",40,0)"
^XMB(3.9,21,2,712,0)="ELIG N ED S ELIG=DVBAELIG,INCMP="""",ED=""Eligibility data:"""
^XMB(3.9,21,2,713,0)="""RTN"",""DVBAVDPT"",41,0)"
^XMB(3.9,21,2,714,0)=" I ELIG]"""" S ELIG=ELIG_"" (""_$S(DVBAELST=""P"":""Pend Ver"",DVBAELST=""R"":""Pend Re-verif"",DVBAELST=""V"":""Verified"",1:""Not Verified"")_"")"""
^XMB(3.9,21,2,715,0)="""RTN"",""DVBAVDPT"",42,0)"
^XMB(3.9,21,2,716,0)=" I $D(^DPT(DA,.29)) S INCMP=$S($P(^(.29),U,12)=1:""Incompetent"",1:"""")"
^XMB(3.9,21,2,717,0)="""RTN"",""DVBAVDPT"",43,0)"
^XMB(3.9,21,2,718,0)=" I INCMP]"""",ELIG]"""" S ELIG=ELIG_"", """
^XMB(3.9,21,2,719,0)="""RTN"",""DVBAVDPT"",44,0)"
^XMB(3.9,21,2,720,0)=" I '$D(DVBC)!'$$BROKER^XWBLIB W ?6,ED,?26,ELIG W:$X>60 !?26 W INCMP,! Q"
^XMB(3.9,21,2,721,0)="""RTN"",""DVBAVDPT"",45,0)"
^XMB(3.9,21,2,722,0)=" S DVBC=DVBC+1,ED=""     ""_ED_""    "",^TMP(""DVBSPCRP"",$J,DVBC)=ED_ELIG"
^XMB(3.9,21,2,723,0)="""RTN"",""DVBAVDPT"",46,0)"
^XMB(3.9,21,2,724,0)=" I $L(^(DVBC))<60 S ^(DVBC)=^(DVBC)_INCMP ;NakedRefs = ^TMP(""DVBSPCRP"",$J,DVBC)"
^XMB(3.9,21,2,725,0)="""RTN"",""DVBAVDPT"",47,0)"
^XMB(3.9,21,2,726,0)=" E  S DVBC=DVBC+1,$P(^(DVBC),"" "",25)="" ""_INCMP"
^XMB(3.9,21,2,727,0)="""RTN"",""DVBAVDPT"",48,0)"
^XMB(3.9,21,2,728,0)=" S DVBC=DVBC+1"
^XMB(3.9,21,2,729,0)="""RTN"",""DVBAVDPT"",49,0)"
^XMB(3.9,21,2,730,0)=" Q"
^XMB(3.9,21,2,731,0)="""RTN"",""DVBAVDPT"",50,0)"
^XMB(3.9,21,2,732,0)=" ;"
^XMB(3.9,21,2,733,0)="""RTN"",""DVBAVDPT"",51,0)"
^XMB(3.9,21,2,734,0)="NOTES ;Supported fields for this routine"
^XMB(3.9,21,2,735,0)="""RTN"",""DVBAVDPT"",52,0)"
^XMB(3.9,21,2,736,0)=" ;.362 Disability Ret from Military"
^XMB(3.9,21,2,737,0)="""RTN"",""DVBAVDPT"",53,0)"
^XMB(3.9,21,2,738,0)=" ;.291 Date ruled incomp (VA)"
^XMB(3.9,21,2,739,0)="""RTN"",""DVBAVDPT"",54,0)"
^XMB(3.9,21,2,740,0)=" ;.292 Date ruled incomp (civil)"
^XMB(3.9,21,2,741,0)="""RTN"",""DVBAVDPT"",55,0)"
^XMB(3.9,21,2,742,0)=" ;.293 Rated incomp?"
^XMB(3.9,21,2,743,0)="""RTN"",""DVBAVDPT"",56,0)"
^XMB(3.9,21,2,744,0)=" ;.313 Claim number"
^XMB(3.9,21,2,745,0)="""RTN"",""DVBAVDPT"",57,0)"
^XMB(3.9,21,2,746,0)=" ;.312 Claim folder loc (as free text)"
^XMB(3.9,21,2,747,0)="""RTN"",""DVBAVDPT"",58,0)"
^XMB(3.9,21,2,748,0)=" ;2.101 Log-in date/time"
^XMB(3.9,21,2,749,0)="""RTN"",""DVBAVDPT"",59,0)"
^XMB(3.9,21,2,750,0)=" ;File 44 field .02 Bedsection"
^XMB(3.9,21,2,751,0)="""RTN"",""DVBAVDPT"",60,0)"
^XMB(3.9,21,2,752,0)=" ;Elig file Print name"
^XMB(3.9,21,2,753,0)="""VER"")"
^XMB(3.9,21,2,754,0)="8.0^22.0"
^XMB(3.9,21,2,755,0)="""BLD"",6016,6)"
^XMB(3.9,21,2,756,0)="^97"
^XMB(3.9,21,2,757,0)="$END KID DVBA*2.7*108"
^XMB(3.9,21,6,0)="^3.911A^2^2"
^XMB(3.9,21,6,1,0)="POSTMASTER"
^XMB(3.9,21,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,21,6,"B","POSTMASTER",1)=""
^XMB(3.9,21,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,22,0)="DVBA-2P7_SEQ-98_PAT-111.KID^.5^3061008.015732^^^^K"
^XMB(3.9,22,.6)="3061008"
^XMB(3.9,22,1,0)="^3.91A^2^2"
^XMB(3.9,22,1,1,0)=".5^0^3061008.015732^^^^^^^3061008.015732"
^XMB(3.9,22,1,2,0)="1^0^3061008.023019^^^^^^^3061008.023019"
^XMB(3.9,22,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,22,1,"C",.5,1)=""
^XMB(3.9,22,1,"C",1,2)=""
^XMB(3.9,22,2,0)="^^22973^22973^3061008"
^XMB(3.9,22,2,1,0)="$TXT Released DVBA*2.7*111 SEQ #98"
^XMB(3.9,22,2,2,0)="Extracted from mail message"
^XMB(3.9,22,2,3,0)="$END TXT"
^XMB(3.9,22,2,4,0)="$KID DVBA*2.7*111"
^XMB(3.9,22,2,5,0)="**INSTALL NAME**"
^XMB(3.9,22,2,6,0)="DVBA*2.7*111"
^XMB(3.9,22,2,7,0)="""BLD"",6078,0)"
^XMB(3.9,22,2,8,0)="DVBA*2.7*111^AUTOMATED MED INFO EXCHANGE^0^3060728^y"
^XMB(3.9,22,2,9,0)="""BLD"",6078,4,0)"
^XMB(3.9,22,2,10,0)="^9.64PA^396.17^2"
^XMB(3.9,22,2,11,0)="""BLD"",6078,4,396.17,0)"
^XMB(3.9,22,2,12,0)="396.17"
^XMB(3.9,22,2,13,0)="""BLD"",6078,4,396.17,222)"
^XMB(3.9,22,2,14,0)="y^y^f^^^^n"
^XMB(3.9,22,2,15,0)="""BLD"",6078,4,396.18,0)"
^XMB(3.9,22,2,16,0)="396.18"
^XMB(3.9,22,2,17,0)="""BLD"",6078,4,396.18,222)"
^XMB(3.9,22,2,18,0)="y^y^f^^n^PATCH 111^y^o^n"
^XMB(3.9,22,2,19,0)="""BLD"",6078,4,""B"",396.17,396.17)"
^XMB(3.9,22,2,20,0)=""
^XMB(3.9,22,2,21,0)="""BLD"",6078,4,""B"",396.18,396.18)"
^XMB(3.9,22,2,22,0)=""
^XMB(3.9,22,2,23,0)="""BLD"",6078,""INI"")"
^XMB(3.9,22,2,24,0)="PRE^DVBA2811"
^XMB(3.9,22,2,25,0)="""BLD"",6078,""INIT"")"
^XMB(3.9,22,2,26,0)="POST^DVBA2811"
^XMB(3.9,22,2,27,0)="""BLD"",6078,""KRN"",0)"
^XMB(3.9,22,2,28,0)="^9.67PA^8989.52^19"
^XMB(3.9,22,2,29,0)="""BLD"",6078,""KRN"",.4,0)"
^XMB(3.9,22,2,30,0)=".4"
^XMB(3.9,22,2,31,0)="""BLD"",6078,""KRN"",.401,0)"
^XMB(3.9,22,2,32,0)=".401"
^XMB(3.9,22,2,33,0)="""BLD"",6078,""KRN"",.402,0)"
^XMB(3.9,22,2,34,0)=".402"
^XMB(3.9,22,2,35,0)="""BLD"",6078,""KRN"",.403,0)"
^XMB(3.9,22,2,36,0)=".403"
^XMB(3.9,22,2,37,0)="""BLD"",6078,""KRN"",.5,0)"
^XMB(3.9,22,2,38,0)=".5"
^XMB(3.9,22,2,39,0)="""BLD"",6078,""KRN"",.84,0)"
^XMB(3.9,22,2,40,0)=".84"
^XMB(3.9,22,2,41,0)="""BLD"",6078,""KRN"",3.6,0)"
^XMB(3.9,22,2,42,0)="3.6"
^XMB(3.9,22,2,43,0)="""BLD"",6078,""KRN"",3.8,0)"
^XMB(3.9,22,2,44,0)="3.8"
^XMB(3.9,22,2,45,0)="""BLD"",6078,""KRN"",9.2,0)"
^XMB(3.9,22,2,46,0)="9.2"
^XMB(3.9,22,2,47,0)="""BLD"",6078,""KRN"",9.8,0)"
^XMB(3.9,22,2,48,0)="9.8"
^XMB(3.9,22,2,49,0)="""BLD"",6078,""KRN"",9.8,""NM"",0)"
^XMB(3.9,22,2,50,0)="^9.68A^1^1"
^XMB(3.9,22,2,51,0)="""BLD"",6078,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,22,2,52,0)="DVBA2811^^0^B15849291"
^XMB(3.9,22,2,53,0)="""BLD"",6078,""KRN"",9.8,""NM"",""B"",""DVBA2811"",1)"
^XMB(3.9,22,2,54,0)=""
^XMB(3.9,22,2,55,0)="""BLD"",6078,""KRN"",19,0)"
^XMB(3.9,22,2,56,0)="19"
^XMB(3.9,22,2,57,0)="""BLD"",6078,""KRN"",19,""NM"",0)"
^XMB(3.9,22,2,58,0)="^9.68A^^"
^XMB(3.9,22,2,59,0)="""BLD"",6078,""KRN"",19.1,0)"
^XMB(3.9,22,2,60,0)="19.1"
^XMB(3.9,22,2,61,0)="""BLD"",6078,""KRN"",101,0)"
^XMB(3.9,22,2,62,0)="101"
^XMB(3.9,22,2,63,0)="""BLD"",6078,""KRN"",409.61,0)"
^XMB(3.9,22,2,64,0)="409.61"
^XMB(3.9,22,2,65,0)="""BLD"",6078,""KRN"",771,0)"
^XMB(3.9,22,2,66,0)="771"
^XMB(3.9,22,2,67,0)="""BLD"",6078,""KRN"",870,0)"
^XMB(3.9,22,2,68,0)="870"
^XMB(3.9,22,2,69,0)="""BLD"",6078,""KRN"",8989.51,0)"
^XMB(3.9,22,2,70,0)="8989.51"
^XMB(3.9,22,2,71,0)="""BLD"",6078,""KRN"",8989.52,0)"
^XMB(3.9,22,2,72,0)="8989.52"
^XMB(3.9,22,2,73,0)="""BLD"",6078,""KRN"",8994,0)"
^XMB(3.9,22,2,74,0)="8994"
^XMB(3.9,22,2,75,0)="""BLD"",6078,""KRN"",""B"",.4,.4)"
^XMB(3.9,22,2,76,0)=""
^XMB(3.9,22,2,77,0)="""BLD"",6078,""KRN"",""B"",.401,.401)"
^XMB(3.9,22,2,78,0)=""
^XMB(3.9,22,2,79,0)="""BLD"",6078,""KRN"",""B"",.402,.402)"
^XMB(3.9,22,2,80,0)=""
^XMB(3.9,22,2,81,0)="""BLD"",6078,""KRN"",""B"",.403,.403)"
^XMB(3.9,22,2,82,0)=""
^XMB(3.9,22,2,83,0)="""BLD"",6078,""KRN"",""B"",.5,.5)"
^XMB(3.9,22,2,84,0)=""
^XMB(3.9,22,2,85,0)="""BLD"",6078,""KRN"",""B"",.84,.84)"
^XMB(3.9,22,2,86,0)=""
^XMB(3.9,22,2,87,0)="""BLD"",6078,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,22,2,88,0)=""
^XMB(3.9,22,2,89,0)="""BLD"",6078,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,22,2,90,0)=""
^XMB(3.9,22,2,91,0)="""BLD"",6078,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,22,2,92,0)=""
^XMB(3.9,22,2,93,0)="""BLD"",6078,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,22,2,94,0)=""
^XMB(3.9,22,2,95,0)="""BLD"",6078,""KRN"",""B"",19,19)"
^XMB(3.9,22,2,96,0)=""
^XMB(3.9,22,2,97,0)="""BLD"",6078,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,22,2,98,0)=""
^XMB(3.9,22,2,99,0)="""BLD"",6078,""KRN"",""B"",101,101)"
^XMB(3.9,22,2,100,0)=""
^XMB(3.9,22,2,101,0)="""BLD"",6078,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,22,2,102,0)=""
^XMB(3.9,22,2,103,0)="""BLD"",6078,""KRN"",""B"",771,771)"
^XMB(3.9,22,2,104,0)=""
^XMB(3.9,22,2,105,0)="""BLD"",6078,""KRN"",""B"",870,870)"
^XMB(3.9,22,2,106,0)=""
^XMB(3.9,22,2,107,0)="""BLD"",6078,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,22,2,108,0)=""
^XMB(3.9,22,2,109,0)="""BLD"",6078,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,22,2,110,0)=""
^XMB(3.9,22,2,111,0)="""BLD"",6078,""KRN"",""B"",8994,8994)"
^XMB(3.9,22,2,112,0)=""
^XMB(3.9,22,2,113,0)="""BLD"",6078,""QUES"",0)"
^XMB(3.9,22,2,114,0)="^9.62^^"
^XMB(3.9,22,2,115,0)="""BLD"",6078,""REQB"",0)"
^XMB(3.9,22,2,116,0)="^9.611^^0"
^XMB(3.9,22,2,117,0)="""DATA"",396.18,192,0)"
^XMB(3.9,22,2,118,0)="EPILEPSY AND NARCOLEPSY~111F"
^XMB(3.9,22,2,119,0)="""DATA"",396.18,192,1,0)"
^XMB(3.9,22,2,120,0)="^^2^2^3060728"
^XMB(3.9,22,2,121,0)="""DATA"",396.18,192,1,1,0)"
^XMB(3.9,22,2,122,0)="Last updated on 05/24/2006 ~111 "
^XMB(3.9,22,2,123,0)="""DATA"",396.18,192,1,2,0)"
^XMB(3.9,22,2,124,0)="Patch DVBA*2.7*111"
^XMB(3.9,22,2,125,0)="""DATA"",396.18,192,2)"
^XMB(3.9,22,2,126,0)="3060501^^3060524.1827"
^XMB(3.9,22,2,127,0)="""DATA"",396.18,192,3,0)"
^XMB(3.9,22,2,128,0)="^396.184^744^744^3060524^^^^"
^XMB(3.9,22,2,129,0)="""DATA"",396.18,192,3,1,0)"
^XMB(3.9,22,2,130,0)="begin 664 epilepsy_Narcolepsy_111.pnl.zip"
^XMB(3.9,22,2,131,0)="""DATA"",396.18,192,3,2,0)"
^XMB(3.9,22,2,132,0)="M4$L#!!0``@`(`)""+N#1??C:2+BX```CS```;````17!I;&5P<WE?3F%R8V]L"
^XMB(3.9,22,2,133,0)="""DATA"",396.18,192,3,3,0)"
^XMB(3.9,22,2,134,0)="M97!S>5\Q,3$N<&YLY%U];&3759\/>_RU7\DFFVQ*VU<G(7;D]<ZG9VS2)O[<"
^XMB(3.9,22,2,135,0)="""DATA"",396.18,192,3,4,0)"
^XMB(3.9,22,2,136,0)="M=6JO7<_LNB%ITNLW=SRW^]Z[D_?>V)ZH!2H(%%5""M*@JM*0I*JH`B195`A64"
^XMB(3.9,22,2,137,0)="""DATA"",396.18,192,3,5,0)"
^XMB(3.9,22,2,138,0)="M`H)*E:@*_$&%1!%(2$@$6M*((!4A`??SS7WS[M@SR2:QEY5VU_,\<^XYOWO."
^XMB(3.9,22,2,139,0)="""DATA"",396.18,192,3,6,0)"
^XMB(3.9,22,2,140,0)="MN>>>>\Z=RN9*.E79!`ZT[CAHT/\6@`<7L>.[V!I8@S4_$4M6<""-Q;G`;5?UZ"
^XMB(3.9,22,2,141,0)="""DATA"",396.18,192,3,7,0)"
^XMB(3.9,22,2,142,0)="M\K5$ZBI$NW4_^;7XZ`+<@]9&TX?N4&IG[QIVX-WDHY[O`N3XWO0Z.`C>>U?'"
^XMB(3.9,22,2,143,0)="""DATA"",396.18,192,3,8,0)"
^XMB(3.9,22,2,144,0)="M+R2U\`>0T^4#R)$?&-G$C69C'3K-H;O6R6]7L&M/'P0/,\,5L+/A5J&;B,5B"
^XMB(3.9,22,2,145,0)="""DATA"",396.18,192,3,9,0)"
^XMB(3.9,22,2,146,0)="M%2;>&MB!UEGV;Z75@!LU^ADF7++TOTRZ82Y=XB$A7.+TT"")H^`@[J<'UY:TK"
^XMB(3.9,22,2,147,0)="""DATA"",396.18,192,3,10,0)"
^XMB(3.9,22,2,148,0)="MRR%28^Q?2F1U*43F7D'FCBB9Y/+FJB3""X!XE#YYA/^4XSH.,Q""F!\_<#G%^,"
^XMB(3.9,22,2,149,0)="""DATA"",396.18,192,3,11,0)"
^XMB(3.9,22,2,150,0)="M#UPE(*0&-S<VKV]RS%<=AV`^O+.W!9`'JV,+F$I<]EL6)$^],G)V+3BXB""U,"
^XMB(3.9,22,2,151,0)="""DATA"",396.18,192,3,12,0)"
^XMB(3.9,22,2,152,0)="MWF5:963M0??4""IG6Z<4Z<#WH#YU=6EZ9O[Y6>6;QZOQ6>;DRRG_+/C)D6@L6"
^XMB(3.9,22,2,153,0)="""DATA"",396.18,192,3,13,0)"
^XMB(3.9,22,2,154,0)="M,&^.L6=""EO\<8:^N`1NF3J^7C3)P/*,,753C'V6CC\5&-X$+'9\^&E;G0F)'"
^XMB(3.9,22,2,155,0)="""DATA"",396.18,192,3,14,0)"
^XMB(3.9,22,2,156,0)="MQ68_9?,<NW_G""I82@K\<D^""=""\`SEAO(@@VO95PVK@'7Q.S%G+&$P*Z#/>2]"
^XMB(3.9,22,2,157,0)="""DATA"",396.18,192,3,15,0)"
^XMB(3.9,22,2,158,0)="M0=%>[4FT5,U;P%8U)&$@UZE`KDQ^A@OVS3@5+.G%A5;<E(+=%P@V];""QZ4*/"
^XMB(3.9,22,2,159,0)="""DATA"",396.18,192,3,16,0)"
^XMB(3.9,22,2,160,0)="M#-;<L9%O^-@`U:I!J+L(>O2E7X?DE[8-W-;P-IGE;1<T1F*QT4K9)!9J+>""#"
^XMB(3.9,22,2,161,0)="""DATA"",396.18,192,3,17,0)"
^XMB(3.9,22,2,162,0)="M,W3DX%6&*U.*87I18/KW@3)MQB]<Q>YSXNW`G:ZX!`RB+B/G;T#7;S_?`LXN"
^XMB(3.9,22,2,163,0)="""DATA"",396.18,192,3,18,0)"
^XMB(3.9,22,2,164,0)="M3/YNXD+X<?#VT?FFC_GS(Z:YH'*T+SAZ,!XUD4<W7;QC07O""FS1J+K:9[""Y\"
^XMB(3.9,22,2,165,0)="""DATA"",396.18,192,3,19,0)"
^XMB(3.9,22,2,166,0)="MM@D]WZ@1:S.`YV$3`1]6C7WDU\D;D&=4;Y$2O`[]UHE;Y.(.L+DO)<3<[T3%"
^XMB(3.9,22,2,167,0)="""DATA"",396.18,192,3,20,0)"
^XMB(3.9,22,2,168,0)="M/3]?K2+Z$["",16S;A*BG(9@)X3<D\/ML+$KP765H0=,W@%,U/*Y/$)AUH\%A"
^XMB(3.9,22,2,169,0)="""DATA"",396.18,192,3,21,0)"
^XMB(3.9,22,2,170,0)="M#6B/MIE524\)5J>CE$>6CA7&N1#?]PA(!C0J5=+KT03UW4:VD""Y.&M@U4)4,"
^XMB(3.9,22,2,171,0)="""DATA"",396.18,192,3,22,0)"
^XMB(3.9,22,2,172,0)="MAFJ(J-5.RX`'P)Y6;2TR?IX;6?)7F8$G!@4#(P$##P4,?(F,9+C`)R9C-)IN"
^XMB(3.9,22,2,173,0)="""DATA"",396.18,192,3,23,0)"
^XMB(3.9,22,2,174,0)="M`WO0FR+,-+#+GK$)$AI,AC>QPW6""32+R/0/6:F1./<.##4#H0*ME$)UWH$F\"
^XMB(3.9,22,2,175,0)="""DATA"",396.18,192,3,24,0)"
^XMB(3.9,22,2,176,0)="M!O$)U$60^=TC(I""/&*!!7C1<:B*$J@=VD(5\(M(>L)J`T27R\T&#H8Z0M1""2"
^XMB(3.9,22,2,177,0)="""DATA"",396.18,192,3,25,0)"
^XMB(3.9,22,2,178,0)="M];)0$J#19RKJ\OSBU;9%SNG<8T[X_=_A%-\KT'LE%G6/3]+EVD`.G22SC@E$"
^XMB(3.9,22,2,179,0)="""DATA"",396.18,192,3,26,0)"
^XMB(3.9,22,2,180,0)="M;""Z1#^VVAQ@7;L-80YX_3AX!8@(N/,)9Z*16F2R$F'Q*,/EYC=F-;S2X%4])"
^XMB(3.9,22,2,181,0)="""DATA"",396.18,192,3,27,0)"
^XMB(3.9,22,2,182,0)="M]TTA)MA*P^L""PTQHA&?%""'^N@6%ME4R52>>4RBLU`M=""VD.$(].+3;/9`,*K"
^XMB(3.9,22,2,183,0)="""DATA"",396.18,192,3,28,0)"
^XMB(3.9,22,2,184,0)="M4!VJ`D14!I@^VB.S#8^4NZARE?REF)CO^Z-R#_$U:UI+IJ1J39O,2)1,(J^G"
^XMB(3.9,22,2,185,0)="""DATA"",396.18,192,3,29,0)"
^XMB(3.9,22,2,186,0)="M,!O2NV</(9#3$LBG0P2>.H1`5D\@;.7O.X1`AA'H"".ORZD+PFP*!Y+YT$LE?"
^XMB(3.9,22,2,187,0)="""DATA"",396.18,192,3,30,0)"
^XMB(3.9,22,2,188,0)="MCG<&:.UU-*%96#@@B=.,FQ%![KS&Z<TM0<]TT0XTEMNJ0C5'&@K1DPU53^8#"
^XMB(3.9,22,2,189,0)="""DATA"",396.18,192,3,31,0)"
^XMB(3.9,22,2,190,0)="M[3@>[GU&D33Y58G<O1I1WQ>(BHF`KN&A78<X<A,X?MM..JTBD'9N:-D!!)'J"
^XMB(3.9,22,2,191,0)="""DATA"",396.18,192,3,32,0)"
^XMB(3.9,22,2,192,0)="ML&9M+*EPOTM,_D]'6;B/@TR':7I-0K\]V-N(9EL.84<OQE1!DG^D<3,+V]1U"
^XMB(3.9,22,2,193,0)="""DATA"",396.18,192,3,33,0)"
^XMB(3.9,22,2,194,0)="M0E5GF,<,EA%D-P""7M`N@CP:`'KJF9+,JMA\2V.Y'L;UG""WI-BRV4A-Y-J<"">"
^XMB(3.9,22,2,195,0)="""DATA"",396.18,192,3,34,0)"
^XMB(3.9,22,2,196,0)="M,F_#%>KV2>#++9?_G%'I7Q(B?R(0>5ILJ#+I;*9T9OG`ATX55GGT-/P63=HJ"
^XMB(3.9,22,2,197,0)="""DATA"",396.18,192,3,35,0)"
^XMB(3.9,22,2,198,0)="M6<.DO*?I""X_\RB62>O'4A6O8*""N:+,PX=5[W\-0U3%[8#0NW8+7K[DN/4T'%"
^XMB(3.9,22,2,199,0)="""DATA"",396.18,192,3,36,0)"
^XMB(3.9,22,2,200,0)="MZ68$ISF)4R8]6PPP/X:`79SWJ.63E7X)$5@H`L92DVIDZORJ8[H0T.""J`MPJ"
^XMB(3.9,22,2,201,0)="""DATA"",396.18,192,3,37,0)"
^XMB(3.9,22,2,202,0)="M<DC<E+J[_7!^QR/OAA!Y=FIP@SJ1V-@ZU3DNW8@>T'@70$5H\P5N;+,""T>\$"
^XMB(3.9,22,2,203,0)="""DATA"",396.18,192,3,38,0)"
^XMB(3.9,22,2,204,0)="MB%IM1(NEXXSHV#JT,0DOUS""!ZYXE*.%:Q(Y)=Z?,]E,75ATUXER`=;""'L)NZ"
^XMB(3.9,22,2,205,0)="""DATA"",396.18,192,3,39,0)"
^XMB(3.9,22,2,206,0)="M=Q.3&*A,PR_+6""7PNM1'8,=+O8=.$#()P""UCA>P=\3XU[E6:Z6F*M]S9'FT="
^XMB(3.9,22,2,207,0)="""DATA"",396.18,192,3,40,0)"
^XMB(3.9,22,2,208,0)="M<\^3ND]Y!ASJ99<@P<REOY/QG\?#O#548PZ#!C^+P'5;Y$7JO#+L%HV:Z,,["
^XMB(3.9,22,2,209,0)="""DATA"",396.18,192,3,41,0)"
^XMB(3.9,22,2,210,0)="MR@T(20#5_EWJSJL04`349W?<0!Z-G)5'9]<(YM1#EGU@(P>DSF]#<).J%HW]"
^XMB(3.9,22,2,211,0)="""DATA"",396.18,192,3,42,0)"
^XMB(3.9,22,2,212,0)="M5@@XNTV8NK_--,$5.KM^?<ZXWFB0=8I,N`MMRKWV36MX/_2FNZX3IFBT3_26"
^XMB(3.9,22,2,213,0)="""DATA"",396.18,192,3,43,0)"
^XMB(3.9,22,2,214,0)="MS""!18C(+J3M7H,GP59X-;`+DI$XO(:]&>""`?AU3=>M9KXBD&*W3JV?I!?\BD"
^XMB(3.9,22,2,215,0)="""DATA"",396.18,192,3,44,0)"
^XMB(3.9,22,2,216,0)="MU<7X3^1B_'00QGPSINCT;*#3;U""'7U-T>&P1-UU$`+D&]T,:?'J-FG-;:6,A"
^XMB(3.9,22,2,217,0)="""DATA"",396.18,192,3,45,0)"
^XMB(3.9,22,2,218,0)="M]S<:9""V\H5'/HWD,XCFMMK#)F""9J$W'_1^/AL&VEI[`MJ0EF5/P224%N.!Y="
^XMB(3.9,22,2,219,0)="""DATA"",396.18,192,3,46,0)"
^XMB(3.9,22,2,220,0)="M?C>#6*8CRJ<OQ58BV!82S0`^G=QVW-$9Z<^]#?F^PU;]HD!BC""'Q'K'J?R""Z"
^XMB(3.9,22,2,221,0)="""DATA"",396.18,192,3,47,0)"
^XMB(3.9,22,2,222,0)="M9YZ:=QD&+E1C.+V0CQXS(;-JV)A<%ZF_Y'<U^\9T1^P*.^+(R'PJ4<_9RN+F"
^XMB(3.9,22,2,223,0)="""DATA"",396.18,192,3,48,0)"
^XMB(3.9,22,2,224,0)="M]OH6J"")\Q<7-QEV4@?""CK`B""GF1PO[,3;M"".@=+YT7(=[_,<\O""IQYN>CVHM"
^XMB(3.9,22,2,225,0)="""DATA"",396.18,192,3,49,0)"
^XMB(3.9,22,2,226,0)="MMB`,#]'_-D%52<8.+=:QJ[+SUDQ!YPHU0(\;4@/KR*JFAM<Q89TL0:E4&1*+"
^XMB(3.9,22,2,227,0)="""DATA"",396.18,192,3,50,0)"
^XMB(3.9,22,2,228,0)="MA*GA39?\0#-J71?P7C#D@2IQ`T>#.-L7B""/DS8T&D>1DPYCH#49^PI%\Y6@8"
^XMB(3.9,22,2,229,0)="""DATA"",396.18,192,3,51,0)"
^XMB(3.9,22,2,230,0)="M,^G^8%P^@*Z)/'BR84SV!J/(*(PPW_*SL<.TL=""?29=I/O*$F_1`3R#.S""AN"
^XMB(3.9,22,2,231,0)="""DATA"",396.18,192,3,52,0)"
^XMB(3.9,22,2,232,0)="M\3`02313[`O$L2T6R=&?3S:0@[UI8T'UC8>K8R;;%Y*C%1?L0>O$>\=43T""*"
^XMB(3.9,22,2,233,0)="""DATA"",396.18,192,3,53,0)"
^XMB(3.9,22,2,234,0)="M""#'YPQZ`3)?Z`G)X!<+JB8=QJ#=]G%6]X\N'HCC3'XH+P*^?>!1[C!I+JGL\"
^XMB(3.9,22,2,235,0)="""DATA"",396.18,192,3,54,0)"
^XMB(3.9,22,2,236,0)="M',7^W./($CWH/O$PCO0&8S'D'`_%,9/ITSEB9$'_Q`,YVAN0,VKH>(1""YOI3"
^XMB(3.9,22,2,237,0)="""DATA"",396.18,192,3,55,0)"
^XMB(3.9,22,2,238,0)="M2#(`MD\\CF-1',]'<11F/<P""\""L""Q,<DB&D)8C&?ZPG$3A&23T`OE;B&8Z&<"
^XMB(3.9,22,2,239,0)="""DATA"",396.18,192,3,56,0)"
^XMB(3.9,22,2,240,0)="M,T\EC<A4DG#0I]A,/B6WQND@%?*P$GK-G*1$TJFHK#GU\&]%5($D7Y)U.(D/"
^XMB(3.9,22,2,241,0)="""DATA"",396.18,192,3,57,0)"
^XMB(3.9,22,2,242,0)="M25E+L_G""""1""1!-=#E86F[V.'Y;OYCQF1[UY/,+UZ0NB5*:6\)S""V.Y;I@;AZ"
^XMB(3.9,22,2,243,0)="""DATA"",396.18,192,3,58,0)"
^XMB(3.9,22,2,244,0)="M4J_$FT,;SJ*%S)M#YP\XW2O0(59CLH<1:/-J\<><0/8C@1;-M'4Y/W,""D""6Z"
^XMB(3.9,22,2,245,0)="""DATA"",396.18,192,3,59,0)"
^XMB(3.9,22,2,246,0)="M,U)9Q/8.7L`'IYGEBA=JE4OR^5A$TKL#'<J69D/9?""7/T6FI,?I'-Y7""T3[`"
^XMB(3.9,22,2,247,0)="""DATA"",396.18,192,3,60,0)"
^XMB(3.9,22,2,248,0)="M$Y\M6;26E:.=;U=$+EH0J%G/(^9/-YI8'S$?;4^.]GXYVL5@M!0O,U!$ZG&X"
^XMB(3.9,22,2,249,0)="""DATA"",396.18,192,3,61,0)"
^XMB(3.9,22,2,250,0)="ML?9P8JMRYNC1B&S8@TJ""XXC!U(K.L2"")G!&NKLET=%K,7#RHPOO]6*\EG9S1"
^XMB(3.9,22,2,251,0)="""DATA"",396.18,192,3,62,0)"
^XMB(3.9,22,2,252,0)="MQ/$O\(Q'<Z$%403RR9A:8YM\55/@>7^7`D_U8.@-2O<?;[S&4Q%-3/""/,\D>"
^XMB(3.9,22,2,253,0)="""DATA"",396.18,192,3,63,0)"
^XMB(3.9,22,2,254,0)="M%))]75,`]HHHRMMARF.,+S3),B\=X3BM&&))`V@`PR)>D>;[9=F085H`V;#:"
^XMB(3.9,22,2,255,0)="""DATA"",396.18,192,3,64,0)"
^XMB(3.9,22,2,256,0)="M4:)6;;(3*G9(<,"".G^A`$][DM%&A!_;RJ(""1VT>61=_J&#MDB#V`++JJTI(J"
^XMB(3.9,22,2,257,0)="""DATA"",396.18,192,3,65,0)"
^XMB(3.9,22,2,258,0)="M5CJUA,TF.T4(&-I'3A7O3QF`$`*N+\\?@B*K'4@'KT*?D(+5N7'#8_+1`S(Z"
^XMB(3.9,22,2,259,0)="""DATA"",396.18,192,3,66,0)"
^XMB(3.9,22,2,260,0)="MX.'%9#-I%;;K`K87-(4=UP5L&@X)9/3$UC6JP`>&""W?9L>YN&S:7?'2/'I&+"
^XMB(3.9,22,2,261,0)="""DATA"",396.18,192,3,67,0)"
^XMB(3.9,22,2,262,0)="M\EF*DN&W&O`(YC(J<XY@;D_#W)ID;@ON(;AO2![91#`&V6-Z5K-'%8QF\<VF"
^XMB(3.9,22,2,263,0)="""DATA"",396.18,192,3,68,0)"
^XMB(3.9,22,2,264,0)="M""\P6A9.79M*R-""K`M(X344-Z1M6N0PJ/(I5+6?7SU_NO?,JIGW>.*+W2N/>\"
^XMB(3.9,22,2,265,0)="""DATA"",396.18,192,3,69,0)"
^XMB(3.9,22,2,266,0)="M<.]_QZ/V3\9Z=[BQU^=PU6UK(BOF[D;@<'\0NPUJZ#5%8:)*+K$5*@[^=CSJ"
^XMB(3.9,22,2,267,0)="""DATA"",396.18,192,3,70,0)"
^XMB(3.9,22,2,268,0)="M8>>[>-@R1,\UR<[<F-_==8F#H!O+RV3+8:(&\GG=Z@HP?>P>*_\K-?R!4%'3"
^XMB(3.9,22,2,269,0)="""DATA"",396.18,192,3,71,0)"
^XMB(3.9,22,2,270,0)="MMS2G;%/""5ALAD8A'!6UYC1J7<$Y3/B6*`)/Q4!W834VM4L=QGJ2IG-KI+$4<"
^XMB(3.9,22,2,271,0)="""DATA"",396.18,192,3,72,0)"
^XMB(3.9,22,2,272,0)="MC<1X:/)GL5L7FHQ6-K9$60IK$0A>"">_R8*@Z*JA12?Y\<*!?G)TI=M:F'%HU"
^XMB(3.9,22,2,273,0)="""DATA"",396.18,192,3,73,0)"
^XMB(3.9,22,2,274,0)="MPG>RI\L6A`VR1M20B?S4N64;BTHQLIC3\IO3BR0*!H@6(^.JESH_;YFXCBU:"
^XMB(3.9,22,2,275,0)="""DATA"",396.18,192,3,74,0)"
^XMB(3.9,22,2,276,0)="MDNPU;2[MG9MU\BF3?`3938N7FYR[2IRX2S?#2#PY(REY-K0L3WF-FPXAK:M\"
^XMB(3.9,22,2,277,0)="""DATA"",396.18,192,3,75,0)"
^XMB(3.9,22,2,278,0)="M.,-5B^YRJ9S#P^V?VE[H%)6L@AJ!^6^S=7%X#3N[;/<2*920,RDTY5+G]E;!"
^XMB(3.9,22,2,279,0)="""DATA"",396.18,192,3,76,0)"
^XMB(3.9,22,2,280,0)="MM90N9@<#4]FN(Q^>I.UNO*L7%IKU`8;`XP*!=P9>^.+MT,F4U""R8XH`S,16J"
^XMB(3.9,22,2,281,0)="""DATA"",396.18,192,3,77,0)"
^XMB(3.9,22,2,282,0)="MS?TKC1M^K(L;WG!W@4/4?8$VO!GEEE-UL0VIGUJG@85E+""&/(?/V>V%5;K$7"
^XMB(3.9,22,2,283,0)="""DATA"",396.18,192,3,78,0)"
^XMB(3.9,22,2,284,0)="MO\CD?L<A\=P'V]Y12+K#)/442;G?M+F\52$OK^>W06N']G!8K)R?1H`""QCF]"
^XMB(3.9,22,2,285,0)="""DATA"",396.18,192,3,79,0)"
^XMB(3.9,22,2,286,0)="M5Q5>^V4>?[S6AU>-]Y2,""*Q>UBIS!!Z6/6R!T7]#<::ETLE(1W0Q;J'CJTS2"
^XMB(3.9,22,2,287,0)="""DATA"",396.18,192,3,80,0)"
^XMB(3.9,22,2,288,0)="M#PI)9P/C_OKM$&(-:)0\+<[G/A<+!5EW::S[H:Y]BD*9KY*E`[NM8V7$:;'O"
^XMB(3.9,22,2,289,0)="""DATA"",396.18,192,3,81,0)"
^XMB(3.9,22,2,290,0)="M>4@UX@2,VO""%1=Z""`]B6DG;9-!I6%PO,Y4*'FI^XA1;8-:[)J?NW23%-_QQ,"
^XMB(3.9,22,2,291,0)="""DATA"",396.18,192,3,82,0)"
^XMB(3.9,22,2,292,0)="M4T4):S)]A35/,@:`A9[C+5I[3<M#>S!P0L8$""27)9L^F/4""`,(S,*<-N8=/B"
^XMB(3.9,22,2,293,0)="""DATA"",396.18,192,3,83,0)"
^XMB(3.9,22,2,294,0)="M/XHGH9>7^*O)5%DE[F#GDG:`!O21+P:@%<LF)!MO'KE/D1B)%ZW*)X1H&=D-"
^XMB(3.9,22,2,295,0)="""DATA"",396.18,192,3,84,0)"
^XMB(3.9,22,2,296,0)="MLL^G6WA:@]LF]#A1)H^,#)PI$G[1^E$2G5'GZY*/.T1-6U,L.FX2+K%-_+3\"
^XMB(3.9,22,2,297,0)="""DATA"",396.18,192,3,85,0)"
^XMB(3.9,22,2,298,0)="MZ&3JZ45,B1YHJ))_S#KFE.13(BBT&YB(9EAX1^6WBJ@`C3H16J5_YKIC6L#S"
^XMB(3.9,22,2,299,0)="""DATA"",396.18,192,3,86,0)"
^XMB(3.9,22,2,300,0)="M4`W16""@UVC:A-R>""Z^+HTLHY11#%?""=P=)GX;9>\&XSNL&9%SO0KX>3=ML;K"
^XMB(3.9,22,2,301,0)="""DATA"",396.18,192,3,87,0)"
^XMB(3.9,22,2,302,0)="M37?Q>NN0=JU9QD8#.30_)-J8WT;GIW%4HFP@^5Z^`1N,W^I0(3BW$&YV/)0R"
^XMB(3.9,22,2,303,0)="""DATA"",396.18,192,3,88,0)"
^XMB(3.9,22,2,304,0)="M?#Y0J^^VMP>Y3+YC>W#R`H=V1;5(491""$1(,Y""[<?N:4BII32<2)]9`U?59C"
^XMB(3.9,22,2,305,0)="""DATA"",396.18,192,3,89,0)"
^XMB(3.9,22,2,306,0)="M3;,]6M/$-4P;0K&QS)+`T)T\3@F:HM#V&\RJ_E4>7OV;IN[]JRQK3:@!PVYZ"
^XMB(3.9,22,2,307,0)="""DATA"",396.18,192,3,90,0)"
^XMB(3.9,22,2,308,0)="M/DU4T^Y9'N?7Z*4(=6B8R#6;-EGHR,(1%,5[#6C2=BC9W$T3X-""P@+/;!+N0"
^XMB(3.9,22,2,309,0)="""DATA"",396.18,192,3,91,0)"
^XMB(3.9,22,2,310,0)="MOFO<!$V/MW73/FS634:>CP<CV;C*L^JT+QH+:`4YS]AA?1FT&ULFBXYJERX5"
^XMB(3.9,22,2,311,0)="""DATA"",396.18,192,3,92,0)"
^XMB(3.9,22,2,312,0)="M%;D3EA#[OS2)J2R8-)[A?XCX(3Y!FU/Y%O9'-UY)Q?EG),Y3NE[)'75`&Q,`"
^XMB(3.9,22,2,313,0)="""DATA"",396.18,192,3,93,0)"
^XMB(3.9,22,2,314,0)="M+'23-I2_[L%GU<%?BD6:&]J#%Z`ZN(/]KH,>,>9L6AWSRW+,O]"",N5-5Q[1H"
^XMB(3.9,22,2,315,0)="""DATA"",396.18,192,3,94,0)"
^XMB(3.9,22,2,316,0)="M=XX0&'`6)M@S$LHZ1B%]N9!F1PBBV7'R=3.851G\%<G@'VL8_+""I,D@"":@L"""
^XMB(3.9,22,2,317,0)="""DATA"",396.18,192,3,95,0)"
^XMB(3.9,22,2,318,0)="M,BN@DT]CXA:REU?9^VO)WE,:]MY?""]A;)<,YE!4R#"";NE;>&(L]K0M9UA9O\"
^XMB(3.9,22,2,319,0)="""DATA"",396.18,192,3,96,0)"
^XMB(3.9,22,2,320,0)="M5_Q2`V*W-NW>H/8I<G>Z5@EU)A,5P<@O:ABI;%)@((USB<MKD?6+1N&FU:1]"
^XMB(3.9,22,2,321,0)="""DATA"",396.18,192,3,97,0)"
^XMB(3.9,22,2,322,0)="M69[1]%A*UX'2+]2""QC(+[I+=2HOP9N)=AX78C;I+:""FY7N6JC9*:31\7''U#"
^XMB(3.9,22,2,323,0)="""DATA"",396.18,192,3,98,0)"
^XMB(3.9,22,2,324,0)="MX[,^MXQ8LH*>*DF&:&Q,V)-.A`74XCZ.T(T%5!?IT1RJA:YKH!N(@`CS;E1:"
^XMB(3.9,22,2,325,0)="""DATA"",396.18,192,3,99,0)"
^XMB(3.9,22,2,326,0)="MF@UA`3ES5""U""B""D%A%4Z]](]*1=<A-R3+MX1A[(C/-XY'7]SCF;:R[\8[P]X"
^XMB(3.9,22,2,327,0)="""DATA"",396.18,192,3,100,0)"
^XMB(3.9,22,2,328,0)="M'#DJ0'TDR)!\YO9;_X>BQPAB^;\_E""#\@>8D?+S+\G\#T:P8;0`^5@<Q8I^?"
^XMB(3.9,22,2,329,0)="""DATA"",396.18,192,3,101,0)"
^XMB(3.9,22,2,330,0)="MN%<UF<0C41L>JY#-(*UL(UM`W8%.7J6S*NC<I[F.:Y/LC;442BH%>6BY$:5P"
^XMB(3.9,22,2,331,0)="""DATA"",396.18,192,3,102,0)"
^XMB(3.9,22,2,332,0)="M;@MZ#40XH?VM6\3&=,1F%6+)?Y#9B_$HM=0V>Z*K$1#^S6,T_E'2>$!#8Y.="
^XMB(3.9,22,2,333,0)="""DATA"",396.18,192,3,103,0)"
^XMB(3.9,22,2,334,0)="M5NAH9%0^?B1I/!ZE<9KS81""U<';AL;C'H2!6POL8\V=EP=_/!5H_'W#O""^YI"
^XMB(3.9,22,2,335,0)="""DATA"",396.18,192,3,104,0)"
^XMB(3.9,22,2,336,0)="MNS%-=K@F:VVL&?O\N46?4^](!F1Q(75]%HEZ)XT)0*R=AGOBK:*T(6NT()&>"
^XMB(3.9,22,2,337,0)="""DATA"",396.18,192,3,105,0)"
^XMB(3.9,22,2,338,0)="MG?NQ&GCB)PD6E&:5^!3R\<FWN.RSYQ[""@LB=?3G6.W!7:#)=`]PN??[_!KB"""
^XMB(3.9,22,2,339,0)="""DATA"",396.18,192,3,106,0)"
^XMB(3.9,22,2,340,0)="M:BTO2FNY$K66,PL6QE5^]YK>(15$/=RG^22\((D-1HG%+^L^KSJTH&\Z\6Z-"
^XMB(3.9,22,2,341,0)="""DATA"",396.18,192,3,107,0)"
^XMB(3.9,22,2,342,0)="M]?,GQ\-D1>'&I_J2NKW,%527]Z?RTX9&Z%7'K$-/7QR84:KGDDX?$<KHD1D9"
^XMB(3.9,22,2,343,0)="""DATA"",396.18,192,3,108,0)"
^XMB(3.9,22,2,344,0)="M6H;*,C+TAZ*Z8N2$E7TE%JFO+&8*A8[""YA""=T,JSW9U.IIC/A(Y1.9U124=F"
^XMB(3.9,22,2,345,0)="""DATA"",396.18,192,3,109,0)"
^XMB(3.9,22,2,346,0)="M'CFACQU""J)2?Z6C:#Q,2""#[&$/Q>9.E1)<L>VJ^D*247J.TRVM^7&XC?""[A\"
^XMB(3.9,22,2,347,0)="""DATA"",396.18,192,3,110,0)"
^XMB(3.9,22,2,348,0)="M-R<^,)--=^]L&%$+\K'5M!TOD7Q;R^_931<#U(]V;T/J4JB;4]>YBG37SVL5"
^XMB(3.9,22,2,349,0)="""DATA"",396.18,192,3,111,0)"
^XMB(3.9,22,2,350,0)="M*1\XSRX5N\,1_AXQ,NE4@O[-DK^Y=&HTG^9;`NJYNC$E2K-_*]8+5[FCN!KI"
^XMB(3.9,22,2,351,0)="""DATA"",396.18,192,3,112,0)"
^XMB(3.9,22,2,352,0)="MEZM.C108[3!N/B\U<D*CVKE\J#&VDU#HBI4C*.5""!>R=E+*JD;S4S4@&BKE,"
^XMB(3.9,22,2,353,0)="""DATA"",396.18,192,3,113,0)"
^XMB(3.9,22,2,354,0)="M+M0<V>780""3,OQ:^SO3C\=OJ'M=A319(>*U))O=8I*VCO;>9[+*WN09QPP(>"
^XMB(3.9,22,2,355,0)="""DATA"",396.18,192,3,114,0)"
^XMB(3.9,22,2,356,0)="MN_B3A!F+U\K':8LC6I`2EYA\ZT)-/A9=T]ZQU+Z)KV88?I.8@C$!#X#I3^I2"
^XMB(3.9,22,2,357,0)="""DATA"",396.18,192,3,115,0)"
^XMB(3.9,22,2,358,0)="MI""65;BL2Y*F$:8*`!6!R@`G;OMPB?[2$9Q7""[?O3_DEW!P6]8-$3%P7Z(K,:"
^XMB(3.9,22,2,359,0)="""DATA"",396.18,192,3,116,0)"
^XMB(3.9,22,2,360,0)="M7""TR@6B2A<6`)$K:A:YVN-F,.EQ!+M?KFJB+56/1<+3;9:>S(O3]'K?N_Y9&"
^XMB(3.9,22,2,361,0)="""DATA"",396.18,192,3,117,0)"
^XMB(3.9,22,2,362,0)="M68^F8`P)BD5S9@K3$IG>[B(3I:J"">SE@\M<T]Z/-+=.I9$`%XP)V\PY37UJM"
^XMB(3.9,22,2,363,0)="""DATA"",396.18,192,3,118,0)"
^XMB(3.9,22,2,364,0)="MIK!1K4X9MCUE=.=%5[@B:@U^G<O_7!^QS]`1L4\/*_N,6E0I3ZB^&""`QV3Y`"
^XMB(3.9,22,2,365,0)="""DATA"",396.18,192,3,119,0)"
^XMB(3.9,22,2,366,0)="MSY1Z6]D%K_=N`X]M+KA-V,!""NPZ![M'VVM^MHRPU=-VYZ>!])W98!*:J8.)I"
^XMB(3.9,22,2,367,0)="""DATA"",396.18,192,3,120,0)"
^XMB(3.9,22,2,368,0)="MP?EDM%.&<)[MB,#""MQWE5&WXA5B$TKA""*7<""3N6B%SK)M.NE\(5.;1&+BHC%"
^XMB(3.9,22,2,369,0)="""DATA"",396.18,192,3,121,0)"
^XMB(3.9,22,2,370,0)="MDW&-4^<L9E41E^(1$2\K(IZ$'K%41.%#$EZ4;J*E4_AVQ*F)A@*""8<=[.,6"""
^XMB(3.9,22,2,371,0)="""DATA"",396.18,192,3,122,0)"
^XMB(3.9,22,2,372,0)="MAF+WN$C89H'9YH]%>J$^=3N$12.:PX30\88,!V]HPJ),E[#H*O9HP;J%GN-7"
^XMB(3.9,22,2,373,0)="""DATA"",396.18,192,3,123,0)"
^XMB(3.9,22,2,374,0)="M-],K]?@R_/9?=Z_(*>;W,I-S1NA-35,^)N5AX8:%37Y5BHYD5B7Y80'=F.9D"
^XMB(3.9,22,2,375,0)="""DATA"",396.18,192,3,124,0)"
^XMB(3.9,22,2,376,0)="MJ$B#@#FR)+?(8DL8K#/:-(%%CU?8NL&.Q^@YRP&RV;78]!.Z0?/*H,E/R\CC"
^XMB(3.9,22,2,377,0)="""DATA"",396.18,192,3,125,0)"
^XMB(3.9,22,2,378,0)="MHYH;7[<@\/A\L/,?UM/#YD5'=V96%>:""$.9+FD,E;T7>S<T:OJ>,&FW>$FDY"
^XMB(3.9,22,2,379,0)="""DATA"",396.18,192,3,126,0)"
^XMB(3.9,22,2,380,0)="M+@MRZ/WE#+@IT04U+M;'<7:$K;R!'1WRCU%0&DVOSL^5^-7PO""'MT-A(KH8<"
^XMB(3.9,22,2,381,0)="""DATA"",396.18,192,3,127,0)"
^XMB(3.9,22,2,382,0)="MDA_*I>+;VC8+7MQ#P:#U@?6P[GKB4OH.E-2>(U&'4^3G4G\9>Q.^-$%W'""9N"
^XMB(3.9,22,2,383,0)="""DATA"",396.18,192,3,128,0)"
^XMB(3.9,22,2,384,0)="M^/H7[O?^5@X[)8<=Z]KV.MQ_VZN\%OMO^&A0>MDGY&CO[!K>I?I+;:G*G%B1"
^XMB(3.9,22,2,385,0)="""DATA"",396.18,192,3,129,0)"
^XMB(3.9,22,2,386,0)="MQ;K1@""B7+A4/Z]D/6:(=H3/>IC.;/9'AD.A[%CHN<\;)+P8B/ACD$W*%F9/;"
^XMB(3.9,22,2,387,0)="""DATA"",396.18,192,3,130,0)"
^XMB(3.9,22,2,388,0)="MJ9\+:5Y@7AK-BS1<#_:OZ/+&MY_BS3""+W;<Q,KSOO[];'2X?&NYF/\,E^ROX"
^XMB(3.9,22,2,389,0)="""DATA"",396.18,192,3,131,0)"
^XMB(3.9,22,2,390,0)="MESTN7%]B\8B^/!$$2H722;C98:C;P;T0=)]!.B#DO#N(VW[C=HC;1C4GVGE="
^XMB(3.9,22,2,391,0)="""DATA"",396.18,192,3,132,0)"
^XMB(3.9,22,2,392,0)="M2^4U3=QVN4O<)ENER[(\[3A6_8OC\N23?+UMOJ5?4B16E2$&\0/R^UL""U5KN"
^XMB(3.9,22,2,393,0)="""DATA"",396.18,192,3,133,0)"
^XMB(3.9,22,2,394,0)="M[TN*?O3&OZ1(?-U'XF[U""""?A:+H\N_3!'X\O3B@J4B0_'HM<2]"">T\]49&^\"
^XMB(3.9,22,2,395,0)="""DATA"",396.18,192,3,134,0)"
^XMB(3.9,22,2,396,0)="M3[-5#>QYB,@U1212+B$.5UVRNX<=Q$K_;>""@&O1\$=V)PBMQ0,PN+'`^TG19"
^XMB(3.9,22,2,397,0)="""DATA"",396.18,192,3,135,0)"
^XMB(3.9,22,2,398,0)="M;5I-U*>QGGC6BR^_L`;1`':/4*MS`YD^9N?),EPSXB&U6-!47\ADY`8]*[^%"
^XMB(3.9,22,2,399,0)="""DATA"",396.18,192,3,136,0)"
^XMB(3.9,22,2,400,0)="M7O_U*X-()0IE^!^YX/]DE/D[Z<I""R^L0;2O!MT""""6Z/.\AH""+L%ORZ_2VHQ*"
^XMB(3.9,22,2,401,0)="""DATA"",396.18,192,3,137,0)"
^XMB(3.9,22,2,402,0)="M<#:<6-9NPT)?HY7I[4X%Y>,SZI?T6;U=J:!\7&C2N;@:2!_U;39*7ER<R[\0"
^XMB(3.9,22,2,403,0)="""DATA"",396.18,192,3,138,0)"
^XMB(3.9,22,2,404,0)="M""\_FDYJO8:J(/6F0B]9__U!Z1D5W1J+[$QKE+E-C%5=Q:[XS1=DP""C9?C86)"
^XMB(3.9,22,2,405,0)="""DATA"",396.18,192,3,139,0)"
^XMB(3.9,22,2,406,0)="MWM""PN2&^L$5/NF,[,QLRQ+IP;'\8/<M,9]-I3;@?[&=""'O(+TD-^*QJ]I;,G"
^XMB(3.9,22,2,407,0)="""DATA"",396.18,192,3,140,0)"
^XMB(3.9,22,2,408,0)="M)?FI_2**K""KG_[5W;;%Q7.=Y=E<<DA)OEF195BQE'-FR99/1[LQ>B;JV0E$R"
^XMB(3.9,22,2,409,0)="""DATA"",396.18,192,3,141,0)"
^XMB(3.9,22,2,410,0)="MB^@""DI'2!D4QNSLD)]K=V>SL4MK6!=*F11_:(*T1%(&3-.D%""8JB09`""#IH4"
^XMB(3.9,22,2,411,0)="""DATA"",396.18,192,3,142,0)"
^XMB(3.9,22,2,412,0)="M1>O401OTH37JA_2A#5(;-?K0%@'ZXI?VW.<_.V=V9VA5Y""KA""V=O\Y__S#G_"
^XMB(3.9,22,2,413,0)="""DATA"",396.18,192,3,143,0)"
^XMB(3.9,22,2,414,0)="M^:_?SY,\,Y\4$W89\%E(5`RG;W1)==8Q=!)N$TC'79RJ?,=#DZ1/KS6Q<'?J"
^XMB(3.9,22,2,415,0)="""DATA"",396.18,192,3,144,0)"
^XMB(3.9,22,2,416,0)="MAGZ*]'T@2""?H@+ESP<""]#'R2L<O+\@?\D=*#*D,&OID.(5M8@(%Q<,3/*H&I"
^XMB(3.9,22,2,417,0)="""DATA"",396.18,192,3,145,0)"
^XMB(3.9,22,2,418,0)="M()?I4XS)3XFG5!B""G[:OW3Q'V$P1*0DYR""W?Q&^%-W$Q7TB$9Q8#1Y*G=A-("
^XMB(3.9,22,2,419,0)="""DATA"",396.18,192,3,146,0)"
^XMB(3.9,22,2,420,0)="MF\P""7T^?%L3/!?[M4C91<.L4%(^2X`W""6VDAVF(@)T:$!EE""VG)JY&*9@;!9"
^XMB(3.9,22,2,421,0)="""DATA"",396.18,192,3,147,0)"
^XMB(3.9,22,2,422,0)="MP7WG]EI8FY,.'Y$ROAL2)LCDK>P!,.0PK6WB7>6(DU!_Y*:]C53#%@;\@""@@"
^XMB(3.9,22,2,423,0)="""DATA"",396.18,192,3,148,0)"
^XMB(3.9,22,2,424,0)="MR4M!)V*4@L;!:68^C9,IZ0S._+5X`L\""@`\KT1HZNBD""QTBDMK$.%H1&(]?."
^XMB(3.9,22,2,425,0)="""DATA"",396.18,192,3,149,0)"
^XMB(3.9,22,2,426,0)="MH2N>5]</7;;=CCZ/6^Y<6'>V.@1WIJ])T:/I3<(""?[+\14XZ)CZ2""A73U!1)"
^XMB(3.9,22,2,427,0)="""DATA"",396.18,192,3,150,0)"
^XMB(3.9,22,2,428,0)="M[4`K*4,[;HXMBVN*E.O@`1.7^5`EHL(.^\]H\+:95Q1>Y\>IB=UGT!'<&]\4"
^XMB(3.9,22,2,429,0)="""DATA"",396.18,192,3,151,0)"
^XMB(3.9,22,2,430,0)="MU""""AR.5M0FS4TX.!KY\""@B$?V;)IZ""J?N]CJNK3.&9T*OGYX@RYGI)KI\_BS"
^XMB(3.9,22,2,431,0)="""DATA"",396.18,192,3,152,0)"
^XMB(3.9,22,2,432,0)="MNM-F)^E]A:PQY9EFK&=R*17OA?L*49,8D""9JA4LVQ+?""*_RZ(K<IR&<MP98U"
^XMB(3.9,22,2,433,0)="""DATA"",396.18,192,3,153,0)"
^XMB(3.9,22,2,434,0)="MO$EX+[P0'PUZ]PQ$A""2=5H8.R<)U]TC(6,^!R1\K.-RX1S(S%OY6D\_D4ZGP"
^XMB(3.9,22,2,435,0)="""DATA"",396.18,192,3,154,0)"
^XMB(3.9,22,2,436,0)="MF5PH)TLX65[#Y0(X-Z?G]6""WI*!Q+G9+U&B?>])*E?GR]GAF'QXB7Z!O*;.2"
^XMB(3.9,22,2,437,0)="""DATA"",396.18,192,3,155,0)"
^XMB(3.9,22,2,438,0)="M#C6%JX$'G8O""A4HD<*8W;KLMHV/[._KA2QWOCD_;WLVL=3INEU40ZCHZ<YI>"
^XMB(3.9,22,2,439,0)="""DATA"",396.18,192,3,156,0)"
^XMB(3.9,22,2,440,0)="M1U]8O8OGQ*AZ];ZQ@\^2N8U&KX/K!7S2($T_>M.E'8D0/[U.%7N#]'E2JH$F"
^XMB(3.9,22,2,441,0)="""DATA"",396.18,192,3,157,0)"
^XMB(3.9,22,2,442,0)="MKFHWR!M'K^\ZG6U$K+N#W][N-7U]ZD7'KMNU'4?7K^%R15L_<BNH2Q`O<'6'"
^XMB(3.9,22,2,443,0)="""DATA"",396.18,192,3,158,0)"
^XMB(3.9,22,2,444,0)="M/G6QY76<NZZMGV.]YTC1A\`%(@5\78**P3H?SKWHM.VNU_7N8IRQ_IXEYY'D"
^XMB(3.9,22,2,445,0)="""DATA"",396.18,192,3,159,0)"
^XMB(3.9,22,2,446,0)="MDI-UH.:&KGBH_ZF%<,G10S7'#<Q:%4!B'HR_H!R_Q)7`)<[P0_<4'[@B52G>"
^XMB(3.9,22,2,447,0)="""DATA"",396.18,192,3,160,0)"
^XMB(3.9,22,2,448,0)="M_?_`!X;Q(Z;A?ET;28[&9?<5!G)/99A%R&$ZR[/!17;R/S\(\$U'PB<X._\?"
^XMB(3.9,22,2,449,0)="""DATA"",396.18,192,3,161,0)"
^XMB(3.9,22,2,450,0)="MD:I/5Q71G*6H+!SJFR8IO2O7-HS-CMUKVOL?RPE89`&KQV%?O<R?*M3E)[%K"
^XMB(3.9,22,2,451,0)="""DATA"",396.18,192,3,162,0)"
^XMB(3.9,22,2,452,0)="M<%&DWHBT7Y9WW26<[4LH0[4G62KLYS4IC?E@[LF$J''<&_&X!%?[G%B5':#X"
^XMB(3.9,22,2,453,0)="""DATA"",396.18,192,3,163,0)"
^XMB(3.9,22,2,454,0)="ME,89^X4=DV]K4FU`D(CI0J'#)(E>:WS8;>[KXYQ15`'D0`&+L'6K83ER^,;Z"
^XMB(3.9,22,2,455,0)="""DATA"",396.18,192,3,164,0)"
^XMB(3.9,22,2,456,0)="M]1NKZYMKJP>KBH$)PL<@#(\R21\]7NRE?2Z;SYE9\V!$@HIP\""^P9?3[""A%G"
^XMB(3.9,22,2,457,0)="""DATA"",396.18,192,3,165,0)"
^XMB(3.9,22,2,458,0)="MT-VWZ=SM/J<4Z%$KE3W>ZX1""GE'XV(.,4C2KB-^P>;XB;=?O)\`Q!6F`H30("
^XMB(3.9,22,2,459,0)="""DATA"",396.18,192,3,166,0)"
^XMB(3.9,22,2,460,0)="M""2;]`*""``3\\,T4GDX-B))7\S!@\+1W69\0Z>TL#HK\X?J)_(6BDG,5_;%N]"
^XMB(3.9,22,2,461,0)="""DATA"",396.18,192,3,167,0)"
^XMB(3.9,22,2,462,0)="M1-A]EK'[6BKYMCK`&VF.;Z0%@/V`_]AN^CDI@^J,8C>=X[OI`MQ+K+L`VDKK"
^XMB(3.9,22,2,463,0)="""DATA"",396.18,192,3,168,0)"
^XMB(3.9,22,2,464,0)="M3@U-@K__:=_S$H?<?3Q/&-QBF\8-2^7C*RPR;Q!T+<+,\GYD2=""P\AP/*Y/'"
^XMB(3.9,22,2,465,0)="""DATA"",396.18,192,3,169,0)"
^XMB(3.9,22,2,466,0)="M9`(+(?..%E7X8)KE2E9102'?C,4(%JD@^;>A=\M)U1-<*CT$VM:05<1R&_^<"
^XMB(3.9,22,2,467,0)="""DATA"",396.18,192,3,170,0)"
^XMB(3.9,22,2,468,0)="MZL$SJ4%4@\<B95,F84G8HV$G'1T""[$0D8)[_21R_5P13Q4*RV-G<BG$9K7RV"
^XMB(3.9,22,2,469,0)="""DATA"",396.18,192,3,171,0)"
^XMB(3.9,22,2,470,0)="MU)<'_5A3]'VGKC]\C8!/$8@CBGIU\^+Z=?WL^N!;.*^=9+Z+9B=RX5ALGMF3"
^XMB(3.9,22,2,471,0)="""DATA"",396.18,192,3,172,0)"
^XMB(3.9,22,2,472,0)="M_*$VDNGRD$:Q*J9/<""@_NJWO%_.BVFV>'T:2B*:;N,?X_`,AHG]3G$BY8CDW"
^XMB(3.9,22,2,473,0)="""DATA"",396.18,192,3,173,0)"
^XMB(3.9,22,2,474,0)="M'CG>\$2:#XR1K&GR8MY)22:_*<[?KSP(!])\6%QCWEDE2N9[<H7ZD\.`K*4#"
^XMB(3.9,22,2,475,0)="""DATA"",396.18,192,3,174,0)"
^XMB(3.9,22,2,476,0)="M:;79;GA]XD<_,""FM,HL<=G*2AA12(3C$(`.R3A.0O%JMU[99?PJ6A\@RX>JN"
^XMB(3.9,22,2,477,0)="""DATA"",396.18,192,3,175,0)"
^XMB(3.9,22,2,478,0)="M7T.<;3O&TQCCCE9(GR?`;N1S4@!,$AK=+0Z()V<Z?G!8#?+`R&%.;.95'ES^"
^XMB(3.9,22,2,479,0)="""DATA"",396.18,192,3,176,0)"
^XMB(3.9,22,2,480,0)="M7X6-4U[!OG3NM$&F,O:4=RF\W!VO<QN7#)&QY<PE6A351E/JU1515WD,9;@Y"
^XMB(3.9,22,2,481,0)="""DATA"",396.18,192,3,177,0)"
^XMB(3.9,22,2,482,0)="M,K_-Q_`#9>&X@B[K3*6B'7<F3#/'3IO,5^DR_3@;Q>\J1O'^2[T.JXW;,FHX"
^XMB(3.9,22,2,483,0)="""DATA"",396.18,192,3,178,0)"
^XMB(3.9,22,2,484,0)="M9H&6IB-6Z7""&$2E9&C!*Z5]0I$CRI+K@YB/O79+86!V6?\E&'JS%D3>OP(&S"
^XMB(3.9,22,2,485,0)="""DATA"",396.18,192,3,179,0)"
^XMB(3.9,22,2,486,0)="M7)#TAB+R_A$2N0GN'""@:""]#79IH<\'F5JBZ_$K*!3D7J&=,CTX%X./8HC,UB"
^XMB(3.9,22,2,487,0)="""DATA"",396.18,192,3,180,0)"
^XMB(3.9,22,2,488,0)="MJCP(N)F2HJ""^.'Y^/B7(/KSN=-T.[8?6:]$G@:8H'+^5YZJ8AW!:Z07&UZ;B"
^XMB(3.9,22,2,489,0)="""DATA"",396.18,192,3,181,0)"
^XMB(3.9,22,2,490,0)="M0?`LW@XA%.<I\RTS+:65JM(RR:9->'/F)CPLPRG=4<2?60)L<AH,#Y0=""IDT"
^XMB(3.9,22,2,491,0)="""DATA"",396.18,192,3,182,0)"
^XMB(3.9,22,2,492,0)="M%YE?4CE75-N-/XE8Q,JP1_<3G-87%;3.T"")+W]AV=YT6B=8FH&0RK9D]EY<8"
^XMB(3.9,22,2,493,0)="""DATA"",396.18,192,3,183,0)"
^XMB(3.9,22,2,494,0)="MH:\H"")WE.21-II4]W=[I^_CJO&@I-Y(:6\5_J4GD?EU![C%.CD#FNS92<FHJ"
^XMB(3.9,22,2,495,0)="""DATA"",396.18,192,3,184,0)"
^XMB(3.9,22,2,496,0)="M.H-ZZDE%;V2\:[-@B:3G!TVPLUQ)S5;RQ41*ZK$UW]AUND[';K'55-]C:%P+"
^XMB(3.9,22,2,497,0)="""DATA"",396.18,192,3,185,0)"
^XMB(3.9,22,2,498,0)="M64IF%A]XTJY\/YNRUT/9@'CH)47!>4J*N!^3,WJP9#'A""N`^0T=H`A5P__+>"
^XMB(3.9,22,2,499,0)="""DATA"",396.18,192,3,186,0)"
^XMB(3.9,22,2,500,0)="MPNQG5QON-BZ;P/HW09SNX#-0;!%\*.JGK@ZN*_ZXS^NG@\_""J^'\G@/:Z=@!"
^XMB(3.9,22,2,501,0)="""DATA"",396.18,192,3,187,0)"
^XMB(3.9,22,2,502,0)="M[;D`%0(M8PN*&UXB""*;,!%-6&:>8]D3\_<3F(""-+P[_1!BM>T1P4DNVH<V!'"
^XMB(3.9,22,2,503,0)="""DATA"",396.18,192,3,188,0)"
^XMB(3.9,22,2,504,0)="M!<>7,-G>VR;38=+M4:F+,-YLDN8?Z,5_I-IMH\'`)@<'M/!A`:2=(]7W^DP."
^XMB(3.9,22,2,505,0)="""DATA"",396.18,192,3,189,0)"
^XMB(3.9,22,2,506,0)="MUX4Q+$E]QL2O""NS5;`&_RF79RSETA;_+7Q^]ZG4<>C/^GJ9>KU#&9ZQ4:+T^"
^XMB(3.9,22,2,507,0)="""DATA"",396.18,192,3,190,0)"
^XMB(3.9,22,2,508,0)="M""9@JC--ZC=B?!<CO;_']^55M,""<>\5LLC1._&36_17BJ!@Q_7<EP>9P8/A2Q"
^XMB(3.9,22,2,509,0)="""DATA"",396.18,192,3,191,0)"
^XMB(3.9,22,2,510,0)="MHDO0`+O`5_0EL:(O`0F<&R>&)]7\0C,F\UUM&+^E[#CQ.TP>8QL7\OW%,-]`"
^XMB(3.9,22,2,511,0)="""DATA"",396.18,192,3,192,0)"
^XMB(3.9,22,2,512,0)="M'!<KH\3QQ*`X3F5EB7S'<6[K.OL_:9+_OCYI\8L\ORCPBR*_*/&+,K^HL(LI"
^XMB(3.9,22,2,513,0)="""DATA"",396.18,192,3,193,0)"
^XMB(3.9,22,2,514,0)="M)+;Y54Y<F>+*$E=Y<5405T5Q51)797$E:)B""ABEHF(*&*6B8@H8I:)B""ABEH"
^XMB(3.9,22,2,515,0)="""DATA"",396.18,192,3,194,0)"
^XMB(3.9,22,2,516,0)="MF(*&*6A8@H8E:%B""AB5H6(*&)6A8@H8E:%B""AB5HY`6-O*""1%S3R@D9>T,@+"
^XMB(3.9,22,2,517,0)="""DATA"",396.18,192,3,195,0)"
^XMB(3.9,22,2,518,0)="M&GE!(R]HY`6-O*!1$#0*@D:!T=""&+T?H-1-(A*^HE(-2;M1J#""&Y35WN-1K8"
^XMB(3.9,22,2,519,0)="""DATA"",396.18,192,3,196,0)"
^XMB(3.9,22,2,520,0)="M3:5/HQW472*7LTB=W5KB2I`^M4&L/;O!==[AXY4]1/UAVDS>'#7@0P=#FV'I"
^XMB(3.9,22,2,521,0)="""DATA"",396.18,192,3,197,0)"
^XMB(3.9,22,2,522,0)="MX)RIC1!3)P!3UCC)PG1\[3L/M._T)38%GQ-3\!28@F2!IC-`^6:>BT;?X.L/"
^XMB(3.9,22,2,523,0)="""DATA"",396.18,192,3,198,0)"
^XMB(3.9,22,2,524,0)="M*-TQ=.V4^OE)F^CID$@_!391?HP""^_.;Z*VJ4\?MIJJ>=YM8VO);C/,TX9RG"
^XMB(3.9,22,2,525,0)="""DATA"",396.18,192,3,199,0)"
^XMB(3.9,22,2,526,0)="M0O^WB*E\+36/OC^4XUGQ!<+T-&*Z2Y)XYO@'/""XRP]]0!`W$7=@,!,PLH&OT"
^XMB(3.9,22,2,527,0)="""DATA"",396.18,192,3,200,0)"
^XMB(3.9,22,2,528,0)="MX@8RTC4ZV$-DL""<#8!@6T8""@%:<5K(H/V1%.=RL_P=\13+^<.B9C6%""LBG]("
^XMB(3.9,22,2,529,0)="""DATA"",396.18,192,3,201,0)"
^XMB(3.9,22,2,530,0)="M)X*V^&@DM,7$18RA.3EE-U8:+GJH$.I""BE#I51\7V>UKN2CP`,]*U3ET#E-2"
^XMB(3.9,22,2,531,0)="""DATA"",396.18,192,3,202,0)"
^XMB(3.9,22,2,532,0)="M,""X(L9K[.^C(B#RL*1)94H'#]$P0WF:)&RS$>_\S'A(T[XEX1'FPS#-O:(//"
^XMB(3.9,22,2,533,0)="""DATA"",396.18,192,3,203,0)"
^XMB(3.9,22,2,534,0)="M*//)U+[FPJN`#6!58N:'(8#PP!<[Q?W98?\N;'(M1<4^.P1(X[@$2<SZG2K!"
^XMB(3.9,22,2,535,0)="""DATA"",396.18,192,3,204,0)"
^XMB(3.9,22,2,536,0)="M=]BLKI!;OL!#+<OA6\Y@3,`-UCDU%HBO)(QYPOLWQ>)\!N!XYI+YKT`F_$X8"
^XMB(3.9,22,2,537,0)="""DATA"",396.18,192,3,205,0)"
^XMB(3.9,22,2,538,0)="MFI(5O""4[2K58+%F0I7*H\-D(6#*3:04G`$LXMY]FP""=C(1V+!1.R4`_%!P`+"
^XMB(3.9,22,2,539,0)="""DATA"",396.18,192,3,206,0)"
^XMB(3.9,22,2,540,0)="MN4HB%HX#%A@0=3,9`VK`.`OF_&1.<E?$=X(V#P$\.0^.BI[MU3X/I<</$L:I"
^XMB(3.9,22,2,541,0)="""DATA"",396.18,192,3,207,0)"
^XMB(3.9,22,2,542,0)="M&*R`\R+S&A=&?Z^:QF*R:5R\3/JU\0[%+H&K1HI[V_.[2VX-HY;6O-86Z3B7"
^XMB(3.9,22,2,543,0)="""DATA"",396.18,192,3,208,0)"
^XMB(3.9,22,2,544,0)="M;'JCVT84H%SY$>?FNXH&#=""[%;=MQ.15M]7KHN$@PW\'J8C8\,?_?7W>XGT:"
^XMB(3.9,22,2,545,0)="""DATA"",396.18,192,3,209,0)"
^XMB(3.9,22,2,546,0)="MZ!OJ@J^\M`""NA1?`XV+RGKC1<6HN%@BD_1_&>^+],M'++5*0[N^Y2XLT37\X"
^XMB(3.9,22,2,547,0)="""DATA"",396.18,192,3,210,0)"
^XMB(3.9,22,2,548,0)="M=)K*!<D#HTCT-6%*YJ-,[OZT`B=PW5GRVD[K(!>5*-BS('N71[.7O$@/$,M#"
^XMB(3.9,22,2,549,0)="""DATA"",396.18,192,3,211,0)"
^XMB(3.9,22,2,550,0)="M8I](0FQBC\I(&>K<E9`N\@4M.*Q8]KEOK#1LMTF3!M;J:))INU<DH7#?7&C4"
^XMB(3.9,22,2,551,0)="""DATA"",396.18,192,3,212,0)"
^XMB(3.9,22,2,552,0)="MA4&;I+3'E<2041;\>34Q9%0>[K]?U49`1JF**""&Z@Y@NE9YZ]$,]MU$_,/`R"
^XMB(3.9,22,2,553,0)="""DATA"",396.18,192,3,213,0)"
^XMB(3.9,22,2,554,0)="M>ZC@M"""":5?IGA_#Z$""]#X.SZ^ZF6IY-ONPKD].X03H^S!/)[67?QGIC=0R%P"
^XMB(3.9,22,2,555,0)="""DATA"",396.18,192,3,214,0)"
^XMB(3.9,22,2,556,0)="M7@)F/#Z$6PGTYB""#(T5""53`'X)N:9`[/BE2H:VD8,5,8/B9T;4Q&VRG'/F2S"
^XMB(3.9,22,2,557,0)="""DATA"",396.18,192,3,215,0)"
^XMB(3.9,22,2,558,0)="M)C6BH<SS2H@X""][093?T(]./JJ';+@^UK+(5</_,*UJHX1DH7;U,\I];M7X`"
^XMB(3.9,22,2,559,0)="""DATA"",396.18,192,3,216,0)"
^XMB(3.9,22,2,560,0)="M\-(P=EW?[?HD-9K$SE5$>*R%$OD.)_)G""B)/2$2<-E)GZ[0G3DMDP:IIY""""-"
^XMB(3.9,22,2,561,0)="""DATA"",396.18,192,3,217,0)"
^XMB(3.9,22,2,562,0)="M?^<TTHJTTV8DC6V\2K!)A8ZGEM=:XBV.,>(!+[9ZNNUTW2YNH+)HV%7?P6FH"
^XMB(3.9,22,2,563,0)="""DATA"",396.18,192,3,218,0)"
^XMB(3.9,22,2,564,0)="M@=;J=VV2@,G?.?^\(MD2#ALNF,S[N(KWKJ+WC2L-&PY5.4RD_;7J;)AH`[BU"
^XMB(3.9,22,2,565,0)="""DATA"",396.18,192,3,219,0)"
^XMB(3.9,22,2,566,0)="M1:/9]VH->LG>D5XNT5<CAPR79*""5JF;:EH;LN[BULM&V.P2_-!CJSZ#-[R/2"
^XMB(3.9,22,2,567,0)="""DATA"",396.18,192,3,220,0)"
^XMB(3.9,22,2,568,0)="M=FO1V/+PJFIZ78PZ@>V!%C)H^J3_LMU#P_2:;DW\=.10\W""HGQ+0,XK9?6YM"
^XMB(3.9,22,2,569,0)="""DATA"",396.18,192,3,221,0)"
^XMB(3.9,22,2,570,0)="MB]D;-K8Y<""Z01T<1/%ST>9]\C'.2D4J-),HO$D5F><0P""G`8[_)A3(@9RXMA"
^XMB(3.9,22,2,571,0)="""DATA"",396.18,192,3,222,0)"
^XMB(3.9,22,2,572,0)="MO"";-&&U&?5<Q97""`_%TT0*?9]M""J,!I>%:[*NHN7:7L'K1<P>2$VR`SCS@4U"
^XMB(3.9,22,2,573,0)="""DATA"",396.18,192,3,223,0)"
^XMB(3.9,22,2,574,0)="MVOF:X,U>0!0&%MMNKT';?I.<[%X+O>777*_G8XB3YV7XX0A`%OA@1$>&8$+6"
^XMB(3.9,22,2,575,0)="""DATA"",396.18,192,3,224,0)"
^XMB(3.9,22,2,576,0)="M`X.BD`S.[/@-GN*%E4NW12'-3JP(5DF3*&8:ZX=65Z\8NG$=[>/.+O6C5(,T"
^XMB(3.9,22,2,577,0)="""DATA"",396.18,192,3,225,0)"
^XMB(3.9,22,2,578,0)="MQ+;30<NRY320=)6_T;#[Z%-DZCOW$RS*@C(N?2<T:]#V'JM0?2K20""_!G?/'"
^XMB(3.9,22,2,579,0)="""DATA"",396.18,192,3,226,0)"
^XMB(3.9,22,2,580,0)="M6HAE:*!;$79YR$6@WW*<VXV^?H)$$2V2P._CITT;F.@+.9K3'[PSM[KK=/J&"
^XMB(3.9,22,2,581,0)="""DATA"",396.18,192,3,227,0)"
^XMB(3.9,22,2,582,0)="M25_Z_+7%7S^<&[P3""5H^$H0Q/7Q.\`^B6T:6(;]O#.<W'S?\>P9''WAI``:)"
^XMB(3.9,22,2,583,0)="""DATA"",396.18,192,3,228,0)"
^XMB(3.9,22,2,584,0)="M;M/R`#[Z""T&`-)<E@\01:\4/EM@/GJHLQ?OBA8M=H^'@]PI+Y3@_>)_X@8EK"
^XMB(3.9,22,2,585,0)="""DATA"",396.18,192,3,229,0)"
^XMB(3.9,22,2,586,0)="M*,BG13;.Z%F3E)A,:NBL%>+&H/=OUL[=Z\F:DR!`)6VL/'RVS+@)+Z-F*RO&"
^XMB(3.9,22,2,587,0)="""DATA"",396.18,192,3,230,0)"
^XMB(3.9,22,2,588,0)="MBK\G=M80[JS0+_AV2_2C_.@?79!^Q$MW^$QBU2.87[*O'QO\09L^!)Y;$#7S"
^XMB(3.9,22,2,589,0)="""DATA"",396.18,192,3,231,0)"
^XMB(3.9,22,2,590,0)="MDH[Z\>$S7XR8>?W'9IU*>J:5'C9;92NN3_8GZQ2LTTCU3#J&OAQ>J#=Y)H65"
^XMB(3.9,22,2,591,0)="""DATA"",396.18,192,3,232,0)"
^XMB(3.9,22,2,592,0)="MJY02Z6<+%P=T3'WQ2@+M4O_`*K#7L(GC-9FUT/1V2;F-KY^""WT%*;Z-78XJ@"
^XMB(3.9,22,2,593,0)="""DATA"",396.18,192,3,233,0)"
^XMB(3.9,22,2,594,0)="MKQOP,S3O2""WNXO(LM]'H463L(OR&76WA9EX-M^NRUJP[;@M'_Y$U12#R%JDC"
^XMB(3.9,22,2,595,0)="""DATA"",396.18,192,3,234,0)"
^XMB(3.9,22,2,596,0)="MWZO+(PML%8#8YR?7$B=C:(F1W@P&J?:6'-S_D:;R9AQ2V2U%F`LTS7[_MK"">"
^XMB(3.9,22,2,597,0)="""DATA"",396.18,192,3,235,0)"
^XMB(3.9,22,2,598,0)="M/L;-EIEC2(/;5\NEBM12V997KXW%@?6PJ%P#BPF>^X!I""A_W*.NT!*?WE]CT"
^XMB(3.9,22,2,599,0)="""DATA"",396.18,192,3,236,0)"
^XMB(3.9,22,2,600,0)="M_JO"".+URU>GN>'7BUW$(I'N+A'4DZYK-F4'G5>4W,4:,IPP++][4HENPG!!8"
^XMB(3.9,22,2,601,0)="""DATA"",396.18,192,3,237,0)"
^XMB(3.9,22,2,602,0)="MJQ08LDF&-]S3Q"".'].[S7*;\BQ8V@G_OVO7-U64#6>1!4Q0*64&D(GKP^&FU"
^XMB(3.9,22,2,603,0)="""DATA"",396.18,192,3,238,0)"
^XMB(3.9,22,2,604,0)="M>LTJHHV]'`+QE<\!$G6DBQ^R,I!DLID07Z3]4[BA3TJ%V4^POPP_U#`9T929"
^XMB(3.9,22,2,605,0)="""DATA"",396.18,192,3,239,0)"
^XMB(3.9,22,2,606,0)="MWWR$L<^;NV;D0SX(ECTE^/SHB[:?]""'BI=_:=NJ\*:%T?+%*WQ'KCN-H[9`1"
^XMB(3.9,22,2,607,0)="""DATA"",396.18,192,3,240,0)"
^XMB(3.9,22,2,608,0)="M?CHU""*0%*R8),4Q+#'-XHH8)F7\U%>I['3SD+UPD6@E^$'Z_V4:'@F_XO>UM"
^XMB(3.9,22,2,609,0)="""DATA"",396.18,192,3,241,0)"
^XMB(3.9,22,2,610,0)="MQ^^*XP_-!/&O>5MDEXF0L""W*Q/$GV+KJ;-LMM/NJ'1N-U>^WZAVOZ03(I<3W"
^XMB(3.9,22,2,611,0)="""DATA"",396.18,192,3,242,0)"
^XMB(3.9,22,2,612,0)="MW@BBXT@;PBX\)#<<],@;-@9P0`:<0*`=,8%PXV9F>8N-MJ)/)6^QL=W""^$MV"
^XMB(3.9,22,2,613,0)="""DATA"",396.18,192,3,243,0)"
^XMB(3.9,22,2,614,0)="MJ\M'OARM]T@9F`Y/:U,&6Z-,0.V!4Q(C515X1@4.[&""Z*F""ZBHE4E6,W:;;J"
^XMB(3.9,22,2,615,0)="""DATA"",396.18,192,3,244,0)"
^XMB(3.9,22,2,616,0)="MRSY55?`BTN=YO2##T,%IU$""""[-D=E-J#.T@JE'L[S#KHE%TNC5FZ\B""O<%,$"
^XMB(3.9,22,2,617,0)="""DATA"",396.18,192,3,245,0)"
^XMB(3.9,22,2,618,0)="M_:3?4>6=5/+C46\5(]W&A+7%F=])#1:W0ZZC4\FF8+9-LK2D*!G%/-K;9%R?"
^XMB(3.9,22,2,619,0)="""DATA"",396.18,192,3,246,0)"
^XMB(3.9,22,2,620,0)="MY^/J*F14Q4Q</#.]UJIU<!>SNCY]R6&7\1#-N8N43MA_#)NP<N6>3YBN#HPS"
^XMB(3.9,22,2,621,0)="""DATA"",396.18,192,3,247,0)"
^XMB(3.9,22,2,622,0)="MS><39$S_Q<?TPL%,>9E,AJ9G26?AZ71H8SX+ED)V/`H_-6UDKOJL%&:(G;&>"
^XMB(3.9,22,2,623,0)="""DATA"",396.18,192,3,248,0)"
^XMB(3.9,22,2,624,0)="M4V2LI\54:5&)Z0]T!GH)9J#S]?,#D<7_F=3^CEJA_I5AUP@.5/KM=-AN>_T9"
^XMB(3.9,22,2,625,0)="""DATA"",396.18,192,3,249,0)"
^XMB(3.9,22,2,626,0)="M@]P&*:P07<`)(E.!-6(G4(2!_?(>%6';][V:2_1?XFXAW<F%0D._-$(9KL#9"
^XMB(3.9,22,2,627,0)="""DATA"",396.18,192,3,250,0)"
^XMB(3.9,22,2,628,0)="MX&D_OZ'H%']KW4$V?A<-LR]IQ`*480MI/'C/*D<EAHP-@2YH*+&LSKQB)^<"""
^XMB(3.9,22,2,629,0)="""DATA"",396.18,192,3,251,0)"
^XMB(3.9,22,2,630,0)="M1)P!&<M!ULJ1FSB-VMA`(_+CIY`,BD%I3=SFO=+$*CZ9`F*P,!XAN1AB<&(3"
^XMB(3.9,22,2,631,0)="""DATA"",396.18,192,3,252,0)"
^XMB(3.9,22,2,632,0)="MK5(_MO@S?YS%7WCK\/8S%/>OQ.;CT?#.P6%J90=)""R('9M[20LL<F*(KF\9&"
^XMB(3.9,22,2,633,0)="""DATA"",396.18,192,3,253,0)"
^XMB(3.9,22,2,634,0)="M#:=87%U?0SO,P)NMAO?8<F@UY^'`,O_#;_NZ6,Z?T\!R+HZG15&!DW]Y.(NE"
^XMB(3.9,22,2,635,0)="""DATA"",396.18,192,3,254,0)"
^XMB(3.9,22,2,636,0)="M@9XPX[&!8^C+A1S,D.4NW@\(Z7V>3X)5M,QD_7]N.=3!@]NI(6.8NL4;#:.+"
^XMB(3.9,22,2,637,0)="""DATA"",396.18,192,3,255,0)"
^XMB(3.9,22,2,638,0)="M109:?;5&KXZ3@ENL""[+=1-_$!\3S$[`$\;)=""QJQI>_/%HY4]8_0)T`H3$5M"
^XMB(3.9,22,2,639,0)="""DATA"",396.18,192,3,256,0)"
^XMB(3.9,22,2,640,0)="M]!AR<_H23\^++3NMG\A.V!>:Q3;>I?/Q%)N/G*+""C`,?[R.,/I38K'#^[^C`"
^XMB(3.9,22,2,641,0)="""DATA"",396.18,192,3,257,0)"
^XMB(3.9,22,2,642,0)="MN2-C1J$]?O\98XTW]6:KQ=A!@AM#%54=IV7@YM_5ANOOT-QZ]#$!H\5`FL1G"
^XMB(3.9,22,2,643,0)="""DATA"",396.18,192,3,258,0)"
^XMB(3.9,22,2,644,0)="M[M?0)[V&0S2NH.V6C^'/D,;C=WMUEY3:D+V(E4V[SAK$LI;AU)],TB2!SHJ]"
^XMB(3.9,22,2,645,0)="""DATA"",396.18,192,3,259,0)"
^XMB(3.9,22,2,646,0)="MZ%Z0$+6(3Q.[W>YX[0Y6VG`ZH6@P;AMU9PNW+`=<?'""X1LG]6O3T^35^^I32"
^XMB(3.9,22,2,647,0)="""DATA"",396.18,192,3,260,0)"
^XMB(3.9,22,2,648,0)="MX8?[RVOL$*,R!+W7\+;[BUBKOMWR[K28QY]_Z<Z.0[1@&\PH:#R&9Q""7&+D="
^XMB(3.9,22,2,649,0)="""DATA"",396.18,192,3,261,0)"
^XMB(3.9,22,2,650,0)="M7*U``@LJ15MXZ2--&@F4^WH(PS.WO_6:BH3V(CP%>,7B&X%S32&X#G0E[4`G"
^XMB(3.9,22,2,651,0)="""DATA"",396.18,192,3,262,0)"
^XMB(3.9,22,2,652,0)="MXX(D++C%]H^I02!IW""FL,DY@38'&)BF""+_,]\U=I12O#L8""0/A2YN0J0T^^)"
^XMB(3.9,22,2,653,0)="""DATA"",396.18,192,3,263,0)"
^XMB(3.9,22,2,654,0)="M%K!""<?N3H`1I&?3""P*H'V_58YG&\1RHAMGJM&@,@9JWM]G.+3@RN7PDCER%,"
^XMB(3.9,22,2,655,0)="""DATA"",396.18,192,3,264,0)"
^XMB(3.9,22,2,656,0)="M9KXA./XL4%7+V?%35;5X-<@5:-'S@_-5+02TF3.+R<JJC5OX`#-X9.=Z&YU7"
^XMB(3.9,22,2,657,0)="""DATA"",396.18,192,3,265,0)"
^XMB(3.9,22,2,658,0)="MZ)@3V.Z)""ZHCT78'L=[/WO.SX3W)U90:F3@8M2[A+:@.B,,!0GD"">8W__@]0"
^XMB(3.9,22,2,659,0)="""DATA"",396.18,192,3,266,0)"
^XMB(3.9,22,2,660,0)="M2P,$%``""``@`DHNX-&E;-H7G,P``L*$!`!\```!E<&EL97!S>5].87)C;VQE"
^XMB(3.9,22,2,661,0)="""DATA"",396.18,192,3,267,0)"
^XMB(3.9,22,2,662,0)="M<'-Y7S$Q,2YP;FPN9G)M[#UK;]Q&DM\#Y#\0_C+2GN*P^:9QAX4LR[$7?@B2"
^XMB(3.9,22,2,663,0)="""DATA"",396.18,192,3,268,0)"
^XMB(3.9,22,2,664,0)="M$N-P6`04IT?##8><)6=D*[_^JIKO?I`](UGK6/*'1'P,N[JJNEY=59U?_8O&"
^XMB(3.9,22,2,665,0)="""DATA"",396.18,192,3,269,0)"
^XMB(3.9,22,2,666,0)="M&^-==$73R]LU_;AXG1>K%\8EN_/C#X;QCBXVQO\8/UFFB9>7^1JN`OSS4S+?"
^XMB(3.9,22,2,667,0)="""DATA"",396.18,192,3,270,0)"
^XMB(3.9,22,2,668,0)="M+.'""#O'J#4VNE_@FL?'R)%IODCR#Z]G[T_-?3F<__D""S^8\_Y+T!<:BWKR8'"
^XMB(3.9,22,2,669,0)="""DATA"",396.18,192,3,271,0)"
^XMB(3.9,22,2,670,0)="MLYS^:,0?'^WT[""TW%MSY_2S*:&K#4.R/WE!N-PZQ^N/X3C`8R""'LU3=)AE>S"
^XMB(3.9,22,2,671,0)="""DATA"",396.18,192,3,272,0)"
^XMB(3.9,22,2,672,0)="MLX]GOY[-\,Y+>D/3MUE&""[A_=7,>)26=LP=Y,:?%Q>8VI?BDO$BRZY0R</,T"
^XMB(3.9,22,2,673,0)="""DATA"",396.18,192,3,273,0)"
^XMB(3.9,22,2,674,0)="MQ[?C]""));VB!]U[GV>;YR3(J2HH#O#I]??SKN\O?3]X<GU^<7G9OM#]]F4;Q"
^XMB(3.9,22,2,675,0)="""DATA"",396.18,192,3,274,0)"
^XMB(3.9,22,2,676,0)="M'^W]%LZ?""&EO?HA6E%'@PKB(LM*XH$6RF+6/&]#^[Y]XZRPJ:+;!!W#K=926"
^XMB(3.9,22,2,677,0)="""DATA"",396.18,192,3,275,0)"
^XMB(3.9,22,2,678,0)="M#-3+Z.HC3@/N,9+T<,JH9CE]^K5HM>R@NJY0ZU47#6XMVZYN=&2LW^@3<IVD"
^XMB(3.9,22,2,679,0)="""DATA"",396.18,192,3,276,0)"
^XMB(3.9,22,2,680,0)="M=%W>&C\;'Z(BSMG%""^-5$EUG>9F4L^H7TWA38T[$G=N[K<8>C[]%^3)/Y_^L"
^XMB(3.9,22,2,681,0)="""DATA"",396.18,192,3,277,0)"
^XMB(3.9,22,2,682,0)="M'LGQR!A21!]Q/""G^'-?JX\_VR1""#Q/0Y#%HB!O]FG!6T!,""W5ZMD8VQR(YK/"
^XMB(3.9,22,2,683,0)="""DATA"",396.18,192,3,278,0)"
^XMB(3.9,22,2,684,0)="M`9)-D=`2+S=+""@]7JZBXK>?U""7CV4Q'AF)?%5@'Y15SD:?HR_T(`]O9B`+_7"
^XMB(3.9,22,2,685,0)="""DATA"",396.18,192,3,279,0)"
^XMB(3.9,22,2,686,0)="MA]YRA\#[ML4!;]OU#][DQ9_U%Z/B^64!A()5TX/&,'ZCQ:9[Y3S*KI$&7N#*"
^XMB(3.9,22,2,687,0)="""DATA"",396.18,192,3,280,0)"
^XMB(3.9,22,2,688,0)="M'DN_<+S=Y-4K?0J)O""[A=G=(+7Z^K2@A87.CY?G0;FYQPHNCVEF17Z5T=5`>"
^XMB(3.9,22,2,689,0)="""DATA"",396.18,192,3,281,0)"
^XMB(3.9,22,2,690,0)="M&HLB7S$B%?3?6UINC`5(3"",JRSQ.H@V=&Y\3^/9FF93&G%L6>@MC;&DH!(O6"
^XMB(3.9,22,2,691,0)="""DATA"",396.18,192,3,282,0)"
^XMB(3.9,22,2,692,0)="M\I`*&/7B:)E,@G%?@7%GB''7""WB,AX$>PH_G\P3_CE(0S*L5P-<@40D5T>0#"
^XMB(3.9,22,2,693,0)="""DATA"",396.18,192,3,283,0)"
^XMB(3.9,22,2,694,0)="MGX>)N$0/J`N:XHA1-C?*:OG2*%X:ZXHYIN""S],!S'!X^Q],#[]5WRFZV)N8L"
^XMB(3.9,22,2,695,0)="""DATA"",396.18,192,3,284,0)"
^XMB(3.9,22,2,696,0)="M6UC?GJF'.OFB/D!C""""2EZ1\:@)QD#G`GBP36^-6M0;]$J^?M7""4R>F1&#E$M"
^XMB(3.9,22,2,697,0)="""DATA"",396.18,192,3,285,0)"
^XMB(3.9,22,2,698,0)="M(#/@EI`X)5>8DAV*4VKN&,8,9F$4T08E[GI;K/.2ED<PT75>L'N,AVM1!5.+"
^XMB(3.9,22,2,699,0)="""DATA"",396.18,192,3,286,0)"
^XMB(3.9,22,2,700,0)="M\ZQ:>HS/DTUIS(S_ZGV-+A8PE](HZ3J""K]+TU@!1E]$8M!KH+%1AL""!N`%GP"
^XMB(3.9,22,2,701,0)="""DATA"",396.18,192,3,287,0)"
^XMB(3.9,22,2,702,0)="M`2-:P\6Z0,D(8Y3153+\6IIL`)4W4;J-V)B`]PJ@%HR]<>SJXM@1)$+HZ[$-"
^XMB(3.9,22,2,703,0)="""DATA"",396.18,192,3,288,0)"
^XMB(3.9,22,2,704,0)="M8O;T^.1-)^E?3$HIVU'!97'\[!&!^!VE!1M#07QT((PD0_Z-ESE0F+%YLJ&K"
^XMB(3.9,22,2,705,0)="""DATA"",396.18,192,3,289,0)"
^XMB(3.9,22,2,706,0)="M3I,]J]6;\2XI-\_@5@1""KJ!,J0W)I59Q^Y*)V*XN/D)+E-RN'J$^KBME<M08"
^XMB(3.9,22,2,707,0)="""DATA"",396.18,192,3,290,0)"
^XMB(3.9,22,2,708,0)="M7,AFP%^-[-:AFZ<+)R&""(""*ANROAW@+_Q[ALD$+-HLL7@^4*!(""?Y7&\74>U"
^XMB(3.9,22,2,709,0)="""DATA"",396.18,192,3,291,0)"
^XMB(3.9,22,2,710,0)="MML1%.X^2]'9(."".*-\D-+""AZ!TKYVAAP!%+9FI2J[.+GT^0(=)>W!)A0#Q9'"
^XMB(3.9,22,2,711,0)="""DATA"",396.18,192,3,292,0)"
^XMB(3.9,22,2,712,0)="M`XQ0&PR1*S3!L*?!<$Q=,,)]D6%I0*&MUKQ]H2!C4+`X@M,/**AM4^()=I;M"
^XMB(3.9,22,2,713,0)="""DATA"",396.18,192,3,293,0)"
^XMB(3.9,22,2,714,0)="MBSSJF*T%(0L0<!Y*.RO!]A/8I(6KFV9+HNY&*_@[T*08&MJ!M(R+Y(H:IYW4"
^XMB(3.9,22,2,715,0)="""DATA"",396.18,192,3,294,0)"
^XMB(3.9,22,2,716,0)="M0""'22'EXZV-?9!RWHF'6?4_/=!PW'D?,1RT#4FE""JHW('F-(#$EO!RJ0/LI;"
^XMB(3.9,22,2,717,0)="""DATA"",396.18,192,3,295,0)"
^XMB(3.9,22,2,718,0)="M.@3F'G3(`?N%42;7&5B/<00PM_*<E]XM*5[TL'"":14""X^0XS#7:8J&V*\R26"
^XMB(3.9,22,2,719,0)="""DATA"",396.18,192,3,296,0)"
^XMB(3.9,22,2,720,0)="MKS_/BLUP+MMR""Y/H9O2=\]/(HG9#+30'G@3-EB=#<W</U/DG--%H?WDS6PSM"
^XMB(3.9,22,2,721,0)="""DATA"",396.18,192,3,297,0)"
^XMB(3.9,22,2,722,0)="M:V91)ZMU5)%$SEX#XP""^5_Y]FMT4]L(HABQK%[EG2S!$0GU&/*?E-F4^#4#Z"
^XMB(3.9,22,2,723,0)="""DATA"",396.18,192,3,298,0)"
^XMB(3.9,22,2,724,0)="M1R/ORKU7$EC#=4""M_E-C$HY$:A!;1F:G?[..8!/3(D$?WB\;@(W.Z\B#0)%O"
^XMB(3.9,22,2,725,0)="""DATA"",396.18,192,3,299,0)"
^XMB(3.9,22,2,726,0)="M?%6]!3=#2C1\4,)/""B!6""<\.!MSX(3<N>L*R5F.SP3N3+WS(X<%JG>:W=#X["
^XMB(3.9,22,2,727,0)="""DATA"",396.18,192,3,300,0)"
^XMB(3.9,22,2,728,0)="MU%GILF#C!&^X._%&&R"">9@XWD#`',4-?9YT^3JXY+E'#`CY>)<`/2&3CU9:S"
^XMB(3.9,22,2,729,0)="""DATA"",396.18,192,3,301,0)"
^XMB(3.9,22,2,730,0)="M:IA?%1<TPDC'953,DXR6RA>.KTKX""J5)N1J^\A$5>I^IWJ/<:='=%X[:#$>T"
^XMB(3.9,22,2,731,0)="""DATA"",396.18,192,3,302,0)"
^XMB(3.9,22,2,732,0)="M&,X98[@^T]3A(PG#6:;4EC3E'.<'3QRGXKCW=)47M\:[G&>A5[1AH9,\BW%S"
^XMB(3.9,22,2,733,0)="""DATA"",396.18,192,3,303,0)"
^XMB(3.9,22,2,734,0)="MAS>'&)_U@V,OZ3*Z2?)B^,Y9#IBXP)V%U'@+K%B@!L\S?CA@^""0&%KR%*:9I"
^XMB(3.9,22,2,735,0)="""DATA"",396.18,192,3,304,0)"
^XMB(3.9,22,2,736,0)="M_AE5X-NLW!1;Z>LM=._SREY0/H\R-.A>42!O(;S7Z-<J'/0N63#5BP&(DZ@H"
^XMB(3.9,22,2,737,0)="""DATA"",396.18,192,3,305,0)"
^XMB(3.9,22,2,738,0)="M;N%"""">8Y1C&$%R[6E,9+HWMO^/@-C9`.RN>_)24:`JK'[X""7T%:ZV$2K)(N&"
^XMB(3.9,22,2,739,0)="""DATA"",396.18,192,3,306,0)"
^XMB(3.9,22,2,740,0)="M#S_1Z`\4!1@8>@W$NMY2%5*`&VAVO5F^,'Y=KV'I`N\7=#6""Q>X'[_+/ZA_\"
^XMB(3.9,22,2,741,0)="""DATA"",396.18,192,3,307,0)"
^XMB(3.9,22,2,742,0)="M""I/#`""K('^!3$$S`.<,W7M.8\8'J^5F49#S*RP7,!88#)OSZ,LP:EV&X7@A&"
^XMB(3.9,22,2,743,0)="""DATA"",396.18,192,3,308,0)"
^XMB(3.9,22,2,744,0)="M*O`/'7T9$E%\V:[4!0L]N?@*=<37UQ%/ED(\G>3;(@%\?:""?=833.]112AFD"
^XMB(3.9,22,2,745,0)="""DATA"",396.18,192,3,309,0)"
^XMB(3.9,22,2,746,0)="M:]JTVZ_XB;+$'5DPGE(I&6V!C,IHBZN(MMB=HZR.MUC>'>,MMM+3-W=Q@""4Z"
^XMB(3.9,22,2,747,0)="""DATA"",396.18,192,3,310,0)"
^XMB(3.9,22,2,748,0)="MLH-V-\>L]?FYJ""U>UK'F=E\%I$""TP879N<YSWC'#2*XB*O""7]:CW<23]$8(2"
^XMB(3.9,22,2,749,0)="""DATA"",396.18,192,3,311,0)"
^XMB(3.9,22,2,750,0)="M@:`2B@9$0E`[E/J1QP6C7T'[<9J:0!Q!_OY8""6+M%&*24<3JO[=C+(UR(:?Y"
^XMB(3.9,22,2,751,0)="""DATA"",396.18,192,3,312,0)"
^XMB(3.9,22,2,752,0)="MR#K9R><_.?OT_CR:)_DO1;Y=6^C[#V\)LPT%]K-""3?8+?6D$P'1ZT%\L\\]5"
^XMB(3.9,22,2,753,0)="""DATA"",396.18,192,3,313,0)"
^XMB(3.9,22,2,754,0)="MTII(M7]LRTVRN&5&JO@4;Y]%\UXB%X?3DV5>:*'J+V&_CX43,LY0>I^D<^Y."
^XMB(3.9,22,2,755,0)="""DATA"",396.18,192,3,314,0)"
^XMB(3.9,22,2,756,0)="M#A@&.YPS2""GH'=[(*N`FIJ,<WK>+Q_&>-<U[I*^F[HGYPH=A/OCT>@WD>F*_"
^XMB(3.9,22,2,757,0)="""DATA"",396.18,192,3,315,0)"
^XMB(3.9,22,2,758,0)="M!V,_:R?VLZ?9S[+#^V8_8CX,^YU^H46<E/2)_1Z,_>R=V,_1T+R""OVB3.PH_"
^XMB(3.9,22,2,759,0)="""DATA"",396.18,192,3,316,0)"
^XMB(3.9,22,2,760,0)="M]X&$'^9>/6G>A^,]9Q?>\[Q]K+X[,A\Q??]AF.^<!:;PZHD!'XP!W9V$G[N7"
^XMB(3.9,22,2,761,0)="""DATA"",396.18,192,3,317,0)"
^XMB(3.9,22,2,762,0)="MZ7=G\4>LA^'`RR*ZH>F3\?>0#.CMPH`L?#9E_#GF_>O?X&$8\#6E\R?V>TCV"
^XMB(3.9,22,2,763,0)="""DATA"",396.18,192,3,318,0)"
^XMB(3.9,22,2,764,0)="M\W>2?^$>QI^E'?53,9_W,,SW,MHLGYCO(9DOV(GY@KUB?G?FO@>R_EYA]>$3"
^XMB(3.9,22,2,765,0)="""DATA"",396.18,192,3,319,0)"
^XMB(3.9,22,2,766,0)="M^STD^X4[L9^_7]COKOQ'R`/9?GF2TLT3`SYHW-G<B0.]_2)_=Y:`]L-P(,PH"
^XMB(3.9,22,2,767,0)="""DATA"",396.18,192,3,320,0)"
^XMB(3.9,22,2,768,0)="M7STQX(,RX$X['QH*6$AT\R6>AW0/WY&EN?F._369;YQ*_TN%S-4^BO5S4C&K"
^XMB(3.9,22,2,769,0)="""DATA"",396.18,192,3,321,0)"
^XMB(3.9,22,2,770,0)="M)E1FUUC""IFP?%6U.ABE%FB6/6'E/R34[)]<02RN[!HEH<\145-D'0C&5;XIU"
^XMB(3.9,22,2,771,0)="""DATA"",396.18,192,3,322,0)"
^XMB(3.9,22,2,772,0)="MS[U6!PT%@]!QOV*MN""6M%9<12$&>$>+T2*,FS`19Q/BPC!`OMYM-GA'<CZC^"
^XMB(3.9,22,2,773,0)="""DATA"",396.18,192,3,323,0)"
^XMB(3.9,22,2,774,0)="MY*CA!N&0'H'09B*45.W*BMM.L2*U7XL[DX#:1A(_9B=I$O\!M[Y4@/U"",]`;"
^XMB(3.9,22,2,775,0)="""DATA"",396.18,192,3,324,0)"
^XMB(3.9,22,2,776,0)="M,;L[SEB.G+$\GK&$C*VN;J_+5'<$OO(=QWOBJY[$EM'A)%]=Y2_S+VR;O_Y["
^XMB(3.9,22,2,777,0)="""DATA"",396.18,192,3,325,0)"
^XMB(3.9,22,2,778,0)="MHH&);>L0Q""+B0K>"";EM?D>PLRU,845PMHNJYB1UIZH7C<0NGL2!#KIF./^Q'"
^XMB(3.9,22,2,779,0)="""DATA"",396.18,192,3,326,0)"
^XMB(3.9,22,2,780,0)="MTV1Y]C(\A5XZ)RF-FH1I<:-Q<GTH0?;E(-N>/P39X5KHN'S['U<`N2IO%F$F"
^XMB(3.9,22,2,781,0)="""DATA"",396.18,192,3,327,0)"
^XMB(3.9,22,2,782,0)="M=X3956#9-^\,\DF:EU2$V-H%8FGK+Q)*>G^1JI=874SE];M_N16S=AQ1>1<["
^XMB(3.9,22,2,783,0)="""DATA"",396.18,192,3,328,0)"
^XMB(3.9,22,2,784,0)="M=_]J$]""^QX9@1-;1R@VD#:U(X\7U&LCU\O,<LG=#,$GQP?WV!+,?N"">8&THQ"
^XMB(3.9,22,2,785,0)="""DATA"",396.18,192,3,329,0)"
^XMB(3.9,22,2,786,0)="M..RH9G,RS'%X(68+0JR1J$USH2NVB(QG+[?@JC7&P#-L6\%V;:D1&2E8!IA3"
^XMB(3.9,22,2,787,0)="""DATA"",396.18,192,3,330,0)"
^XMB(3.9,22,2,788,0)="MW/2N`$Q%R:J7.3RC<ZY?S7S+*B=84O(75OZ`PQ^4A\^-2RP=;5*3V:<_]WNT"
^XMB(3.9,22,2,789,0)="""DATA"",396.18,192,3,331,0)"
^XMB(3.9,22,2,790,0)="MS-(4?Y895S#T392D:.5C0Q'6..15'F]9!G,+Z.<DF^>?CXP(/AH5`&?_6XMA"
^XMB(3.9,22,2,791,0)="""DATA"",396.18,192,3,332,0)"
^XMB(3.9,22,2,792,0)="MNY$KBD#-Z08^2^<OGADEPP$B!@%YODO_,T8;S]2@4L!U/G.(T/C.GJ*29.)`"
^XMB(3.9,22,2,793,0)="""DATA"",396.18,192,3,333,0)"
^XMB(3.9,22,2,794,0)="M(2P6*XQYM(F,@EZSZK+KCDH%_/2FCPTL7:P;OB%1C,WMFNXQ9Z(Q9]*$@+I>"
^XMB(3.9,22,2,795,0)="""DATA"",396.18,192,3,334,0)"
^XMB(3.9,22,2,796,0)="M!\[NDSZG-PG];#1S9SS$)LYN8UK[#2X]3,2-MT44WR*7EMNK_J1!^V$'&412"
^XMB(3.9,22,2,797,0)="""DATA"",396.18,192,3,335,0)"
^XMB(3.9,22,2,798,0)="M-5?5M'RYR'+&%EPX.:>F@82R]9^E,2S/01K#6A/#VAK#""D34&-=6C5LI:T=A"
^XMB(3.9,22,2,799,0)="""DATA"",396.18,192,3,336,0)"
^XMB(3.9,22,2,800,0)="MZEADR#Z-W+H'N\&\N]T02.R&:DNF=ES,@=D0#IN&6A77/.*FH9:,!VVYA@L&"
^XMB(3.9,22,2,801,0)="""DATA"",396.18,192,3,337,0)"
^XMB(3.9,22,2,802,0)="M9CJOX-QPTD1H5[[""5+B@R9_;@I;&\?5U`1H&]P9^/BMHG*R33=6U['44;_*B"
^XMB(3.9,22,2,803,0)="""DATA"",396.18,192,3,338,0)"
^XMB(3.9,22,2,804,0)="M+T6^#Z-""(6SL0:-.FUOT)-18]K7$7@_0""`B(.AP;""X;5.@M1)9CDC63=<!1"""
^XMB(3.9,22,2,805,0)="""DATA"",396.18,192,3,339,0)"
^XMB(3.9,22,2,806,0)="MH0^J!$*NH&,`C#28J!1AMD*$N0,TDO`_Y/H,0/YX7A=OH]QM+X;4'SB9#J=J"
^XMB(3.9,22,2,807,0)="""DATA"",396.18,192,3,340,0)"
^XMB(3.9,22,2,808,0)="MVN+M'FX;3=Z&7T*OV4P>J\N6Q@&4'O]P,V%VD5*Z!M-MD<1)%Z::G:[RNM4("
^XMB(3.9,22,2,809,0)="""DATA"",396.18,192,3,341,0)"
^XMB(3.9,22,2,810,0)="MV/_]ROK9""2W`S,,&?_F\=_LXC?-EGF*[OW*[6@^JI&=G2_A:#)]*5MMT6$$]"
^XMB(3.9,22,2,811,0)="""DATA"",396.18,192,3,342,0)"
^XMB(3.9,22,2,812,0)="M>P/&4H'[$0G_I!FI7-$TE4!0YMNL#\*@$%95!%NM:]P8J-'<0Z3\KJCR$+>7"
^XMB(3.9,22,2,813,0)="""DATA"",396.18,192,3,343,0)"
^XMB(3.9,22,2,814,0)="MR;H319^8K5Q3/\^ND1W&69X%[X9A8?F:Y/FFC>N/\$U@^DT""8`_&9;*ARD5Y"
^XMB(3.9,22,2,815,0)="""DATA"",396.18,192,3,344,0)"
^XMB(3.9,22,2,816,0)="MWQ+8DDA@,;`G#>LI@WIMI$H5T!L-Y_&N]8A9XDO,DJ!GEOB#GNENY5YWXF?/"
^XMB(3.9,22,2,817,0)="""DATA"",396.18,192,3,345,0)"
^XMB(3.9,22,2,818,0)="M:,;W8Y;84@UDR4UC9V`:<^:IX^W?R_QC<1UE('5>%B@L+FZS>9'#+`$I[]'G"
^XMB(3.9,22,2,819,0)="""DATA"",396.18,192,3,346,0)"
^XMB(3.9,22,2,820,0)="M28U72<D0_UV8($35*]X=-`OW[^`R=YJ^QNP5PVS9PVQE`ZPJ_,YK_%9]2%=1"
^XMB(3.9,22,2,821,0)="""DATA"",396.18,192,3,347,0)"
^XMB(3.9,22,2,822,0)="MW^Z[O<(6O2EK0HH.=TW""%^-.#E%8""$T\O3G2X/XLA/W#N6S?SY-+^(&`MSB2"
^XMB(3.9,22,2,823,0)="""DATA"",396.18,192,3,348,0)"
^XMB(3.9,22,2,824,0)="M!()9V-[I#(,@F#TZL6U.B&W9""12^W3M78W""PANMQ)VL$SB,7VXY4KICR4!QQ"
^XMB(3.9,22,2,825,0)="""DATA"",396.18,192,3,349,0)"
^XMB(3.9,22,2,826,0)="MG1%_TO*].YQ!48N--V!%Y>WA""7]Q\6PJHGOAF'B&7TT[8""=5-^B(Q7>QX?-Z"
^XMB(3.9,22,2,827,0)="""DATA"",396.18,192,3,350,0)"
^XMB(3.9,22,2,828,0)="MG4X(4EOE:CGF,%KD?0.""M/6N;+6K-0AR.827J#S8@<33(O?N:?7V6-DLHS3Y"
^XMB(3.9,22,2,829,0)="""DATA"",396.18,192,3,351,0)"
^XMB(3.9,22,2,830,0)="ML^K+?K--R^2&MFK/.`!O/IN#CDR/C`BPDL1'QNHVC]/JS\VP!W1ULWV(__NI"
^XMB(3.9,22,2,831,0)="""DATA"",396.18,192,3,352,0)"
^XMB(3.9,22,2,832,0)="MNCJ<30R>Y=E/4@#6=)-L:@""P6UI,C;(.Z`P'/P(WKFK?U#R7#GJ1K-:P:'#K"
^XMB(3.9,22,2,833,0)="""DATA"",396.18,192,3,353,0)"
^XMB(3.9,22,2,834,0)="M`'M>=0/]`]9D"";!&V1'XD-@'""5Q--!T*^&`&2__V""/\>#AIM89;Y""FR.YD/2"
^XMB(3.9,22,2,835,0)="""DATA"",396.18,192,3,354,0)"
^XMB(3.9,22,2,836,0)="M04]R'/2+9%3X3[S,JY&:NX`ZNEKG@!HCS:]POL-!J]D=@1V#Z%@O`86R\6>_"
^XMB(3.9,22,2,837,0)="""DATA"",396.18,192,3,355,0)"
^XMB(3.9,22,2,838,0)="M9G$:E66R2-""MZNYW0NW;=4KEFM24[>=:*@?(YTZ-LDWW:3N75ZZN3""N$KERW"
^XMB(3.9,22,2,839,0)="""DATA"",396.18,192,3,356,0)"
^XMB(3.9,22,2,840,0)="M^L[(=J[M[.\3O:?8BSXU/JZ3#-\<GD_TEU6QE2IAU4:R=`\RB,19'OE&W`,B"
^XMB(3.9,22,2,841,0)="""DATA"",396.18,192,3,357,0)"
^XMB(3.9,22,2,842,0)="M\P[LT8TQSQ&`;5VX-OQC$V<L_//D,C2""3I:W4D6;^[Y9BWLN;<4VPR<YQ\LY"
^XMB(3.9,22,2,843,0)="""DATA"",396.18,192,3,358,0)"
^XMB(3.9,22,2,844,0)="M3R;G`ODY;,0<DW..N/NPMYP[^)#C`1PY6'>8-$&+P^_""J_#E3D4P/""#.YL(A"
^XMB(3.9,22,2,845,0)="""DATA"",396.18,192,3,359,0)"
^XMB(3.9,22,2,846,0)="M3D@FC[=K5R++*@&8(F.U!?L!S""0\;J6*VBSPW+LE->*DB+<K,`O!3&J;Y)5K"
^XMB(3.9,22,2,847,0)="""DATA"",396.18,192,3,360,0)"
^XMB(3.9,22,2,848,0)="M&H-)U`_ZQ,VI3)BL0HTTRJZWT37%7SR+HVU9G<>$AQRQ_M]P_UD[ZBJ?#[[%"
^XMB(3.9,22,2,849,0)="""DATA"",396.18,192,3,361,0)"
^XMB(3.9,22,2,850,0)="MLF'PD*&\)G']Z=*X8KTZ\=BC9H^L.WM(/QLC\#50V_;:[5*M-/;THD/C]^H?"
^XMB(3.9,22,2,851,0)="""DATA"",396.18,192,3,362,0)"
^XMB(3.9,22,2,852,0)="MH'8P[ZB;>?,*^S>VLQ<$.H!:O!%AFM.`7O4!7>5`B#3Y`\^)NCO0H0[0`8]="
^XMB(3.9,22,2,853,0)="""DATA"",396.18,192,3,363,0)"
^XMB(3.9,22,2,854,0)="M;SK794;[0&?Y1@FL+JRAJ0.KY_$[ZH%^9'7>ASG%[K4UHJ-J""@?L'GCWF>&:"
^XMB(3.9,22,2,855,0)="""DATA"",396.18,192,3,364,0)"
^XMB(3.9,22,2,856,0)="M/[LFRT6JCP@XA`GV%\8=)VOI3-81\N,\_<G&_<E&P%,T`LZ*^#D;!]*I;DLN"
^XMB(3.9,22,2,857,0)="""DATA"",396.18,192,3,365,0)"
^XMB(3.9,22,2,858,0)="M/V[_J3HZPM,4K.\=Z+IHI_H60,]P6@!F#MJ\.N@A*<LM95V7\VWUJ#K)#63K"
^XMB(3.9,22,2,859,0)="""DATA"",396.18,192,3,366,0)"
^XMB(3.9,22,2,860,0)="M""KM6#C(E0)[V-T\5L[)TN#7@-((=[K`-<(8$HQ@%`)5Z""Y8>1C3B=(L]FTMC"
^XMB(3.9,22,2,861,0)="""DATA"",396.18,192,3,367,0)"
^XMB(3.9,22,2,862,0)="M6[(,A8PV>F#1-K).Z764#LZSFL&<X_PZ8Z&)];*`[TZD,00:N2V""OA-MYI'D"
^XMB(3.9,22,2,863,0)="""DATA"",396.18,192,3,368,0)"
^XMB(3.9,22,2,864,0)="MEH1M86`*7S,YC""G`5!M%PP(5]?F1@_/7<.T.=!2P=;(8G)R'09[V@TQ+(A9Q"
^XMB(3.9,22,2,865,0)="""DATA"",396.18,192,3,369,0)"
^XMB(3.9,22,2,866,0)="MOX0%/5#)+6[AHVP1T""&G(Z\WJJUWPN%.JJUVE`)%^,\;;A9YWU*RF""Q7C`2]"
^XMB(3.9,22,2,867,0)="""DATA"",396.18,192,3,370,0)"
^XMB(3.9,22,2,868,0)="MH`09)(O9E;'8ZT?\%)00C'5?FK`I#U2[(]NTEKV_J?Y;@GN%>`K(]Y$+9LNW"
^XMB(3.9,22,2,869,0)="""DATA"",396.18,192,3,371,0)"
^XMB(3.9,22,2,870,0)="MN2UG3$1Y&M;8)5VML<)W6]?SJG+1'(WQ?9NWK*;'/]NFY?C(@<;(0NZKKV$Q"
^XMB(3.9,22,2,871,0)="""DATA"",396.18,192,3,372,0)"
^XMB(3.9,22,2,872,0)="MG]-RG<#4\9""&\Z;&605%J`&%95F\6I^&XA-[-C:VJ]@K(T.Y:G'8MW6PWR4["
^XMB(3.9,22,2,873,0)="""DATA"",396.18,192,3,373,0)"
^XMB(3.9,22,2,874,0)="MJ08G.A-W.'O&UYZX`4LRNZ9?99&2O1;I7O4?<@/7&EI]PHGPPJ'JGJLT(6IT"
^XMB(3.9,22,2,875,0)="""DATA"",396.18,192,3,374,0)"
^XMB(3.9,22,2,876,0)="MX6DBN*]2Q*PS_,+X7-U/\3X:`0`V<Z-1JZ=)!H[+002J8V#-@W=<_ZRNU+"","
^XMB(3.9,22,2,877,0)="""DATA"",396.18,192,3,375,0)"
^XMB(3.9,22,2,878,0)="M6XIA+\P(9;VOP!Q`$L#WYZ""YX%.'LP?+\OH*9-O%1W<5R?;>_1/S%\QTD1#S"
^XMB(3.9,22,2,879,0)="""DATA"",396.18,192,3,376,0)"
^XMB(3.9,22,2,880,0)="M&N\_$?,^B.GJ:`^7-TDU-LA?IGF.%5C@0T_H3E<1IW2&[J_+E[A.P_#SZ+`Z"
^XMB(3.9,22,2,881,0)="""DATA"",396.18,192,3,377,0)"
^XMB(3.9,22,2,882,0)="M*KL]0Z6S<*>'?=.IK+^PR%95$+E?ERHZNIR$O""%A30_[-HN7M!S-T""""*5#<R"
^XMB(3.9,22,2,883,0)="""DATA"",396.18,192,3,378,0)"
^XMB(3.9,22,2,884,0)="MW,NRO7O,T##WWLS""?@=()/S_""`N[O""`6C(^FY+U+S""""N.QO9UA'`""*;!""/R="
^XMB(3.9,22,2,885,0)="""DATA"",396.18,192,3,379,0)"
^XMB(3.9,22,2,886,0)="MP8!7R&PDCU@`@VVA3\!!+'=W0(*V(P-?QZ``A,@`\89&(0DG#%(972P1#D\."
^XMB(3.9,22,2,887,0)="""DATA"",396.18,192,3,380,0)"
^XMB(3.9,22,2,888,0)="MQ[`'D*HO6KLI-$SFY'.0B)!:9G/`>9;9$$O5`(AK_M-E8HA]?T`8;E=9V;4C"
^XMB(3.9,22,2,889,0)="""DATA"",396.18,192,3,381,0)"
^XMB(3.9,22,2,890,0)="M^(;$J&Z1Q^!@NQG:,E,;K'R00$+4NM6%+;2]D)K4ML,7%]FV!I,Y8_:/-!U+"
^XMB(3.9,22,2,891,0)="""DATA"",396.18,192,3,382,0)"
^XMB(3.9,22,2,892,0)="M;!>IQM)_&[UC""F;]OZW>WW;O;\>LXG1@1QR.X\51X85XP3T@QKX+8L+_!&*8"
^XMB(3.9,22,2,893,0)="""DATA"",396.18,192,3,383,0)"
^XMB(3.9,22,2,894,0)="M-+)ETB@<UJBZ?%VW.2T5;4?1/D0!AR.#HSUW\RZ`V""(@S@@@UK1X%O;!)L6S"
^XMB(3.9,22,2,895,0)="""DATA"",396.18,192,3,384,0)"
^XMB(3.9,22,2,896,0)="M;Q,)&.Y$UI<KB[#Z01=A'33QL*NLRB[`2MQ'GC\=2'<ZY2&A)D>U""8I-%GEI"
^XMB(3.9,22,2,897,0)="""DATA"",396.18,192,3,385,0)"
^XMB(3.9,22,2,898,0)="MQU,_T'R=1N7JH#Q$/_+DP\5W$5:UY*[9T`?@>P^U%M9H`6L276=YF;#,!6.S"
^XMB(3.9,22,2,899,0)="""DATA"",396.18,192,3,386,0)"
^XMB(3.9,22,2,900,0)="M!1EF'-`O4;PY'',/_$`#(&)-QAYD$.%6$8L!-)`=K%8_W\*_<8A""'8A\OA!5"
^XMB(3.9,22,2,901,0)="""DATA"",396.18,192,3,387,0)"
^XMB(3.9,22,2,902,0)="M)_9[>;NF)=N]F@-L58Y'>^CA08+;?RQ\`0[V-2W&P0R)!IAU;E7/L=$H168%"
^XMB(3.9,22,2,903,0)="""DATA"",396.18,192,3,388,0)"
^XMB(3.9,22,2,904,0)="MH!B-6;'VEF,P*(+T9)B.+S@LPKH4=Q);ZJ6XK=W#TH""$""L6M'RYQ?`TLBA-P"
^XMB(3.9,22,2,905,0)="""DATA"",396.18,192,3,389,0)"
^XMB(3.9,22,2,906,0)="M[>D)G""+O,T*WTXC8.;5,L&`A;V]6\_F1L5H=&?<SM;K.RU0XO\-*<-L/[LWY"
^XMB(3.9,22,2,907,0)="""DATA"",396.18,192,3,390,0)"
^XMB(3.9,22,2,908,0)="M]??V?;DC9\:=&ZXC`""^NA&T@1[#\0A+<HV_3B_%')0M)5O)O%:7)=094__M,"
^XMB(3.9,22,2,909,0)="""DATA"",396.18,192,3,391,0)"
^XMB(3.9,22,2,910,0)="MX06I;<=^&U1L@=K+D_\CRS^WKH>>/R]U7X=<SC<$L$)_TH`.B:7MS[-476FM"
^XMB(3.9,22,2,911,0)="""DATA"",396.18,192,3,392,0)"
^XMB(3.9,22,2,912,0)="M-B=:;7<*$$F)?VNI/:*T7$N-:,O40#0?""A41W9CN?43[CP_1]@A'6].(MJW)"
^XMB(3.9,22,2,913,0)="""DATA"",396.18,192,3,393,0)"
^XMB(3.9,22,2,914,0)="MI=6D@O41[3T^1'MJ""69-2S`KX/6T131$V&AP1,__E/KCO!FT'W2N)G13;BF1"
^XMB(3.9,22,2,915,0)="""DATA"",396.18,192,3,394,0)"
^XMB(3.9,22,2,916,0)="M)>GWRGJM8*RWI&,^]FX,H;P>52--T.-S)*R]O=(W>8GMB]+D3Y;!B+&BB\I7"
^XMB(3.9,22,2,917,0)="""DATA"",396.18,192,3,395,0)"
^XMB(3.9,22,2,918,0)="M^""JRPGWH\EZ%3S/8K'$=WIO0\`4;Q#'G*\WCWGE_RDX0&K""$'I\`Y.OYI2_`"
^XMB(3.9,22,2,919,0)="""DATA"",396.18,192,3,396,0)"
^XMB(3.9,22,2,920,0)="M,;@%DQ_PLF0PX0XVICDRVXZEXF*^XY=DA?X#.A'CP#H:P+;[KYT`<G22AJ*R"
^XMB(3.9,22,2,921,0)="""DATA"",396.18,192,3,397,0)"
^XMB(3.9,22,2,922,0)="MXC26S,DZ&#*.&P7(""S4`XK.''!+J9YB^QA+4*%X:[!2&(V.1I&F3$%`A,<D6"
^XMB(3.9,22,2,923,0)="""DATA"",396.18,192,3,398,0)"
^XMB(3.9,22,2,924,0)="M>;%BE#ZJ>U$^JXWG9\:BGU&`S4&[EUG>=/4)I,QZ6RZK)%/6J[CN2+IS)02Q"
^XMB(3.9,22,2,925,0)="""DATA"",396.18,192,3,399,0)"
^XMB(3.9,22,2,926,0)="M=3#""1[$MT];H;E:5'R)ML'Q].1025<!!AVA$D?1E$S),YO:F&IQ)W.&_5:D#"
^XMB(3.9,22,2,927,0)="""DATA"",396.18,192,3,400,0)"
^XMB(3.9,22,2,928,0)="M1M7Q&7,\HOD<R0*61]GT_1P64NZ2BVNI>II8PRTZ/A8MK`""BVU8[N&.+:EN5"
^XMB(3.9,22,2,929,0)="""DATA"",396.18,192,3,401,0)"
^XMB(3.9,22,2,930,0)="M/DR&:=C\AKS0V,0*==US[TY;T])@_Y!_?;ZM*IG<A+'-P-?>FF:NC=3@'DHZ"
^XMB(3.9,22,2,931,0)="""DATA"",396.18,192,3,402,0)"
^XMB(3.9,22,2,932,0)="M/NPEPB&XD+896D\N9-^S\300S2<2.4385N8]&_#O'Z%GXXRFJ=A:HD`0O#JB"
^XMB(3.9,22,2,933,0)="""DATA"",396.18,192,3,403,0)"
^XMB(3.9,22,2,934,0)="M0-5AW[VC^+(4,-O#*A+/WSVXV$2X[OU4`,O1@KG59_<""M'VWXG9_>A6VK3W5"
^XMB(3.9,22,2,935,0)="""DATA"",396.18,192,3,404,0)"
^XMB(3.9,22,2,936,0)="MJU#L?>4&[N-;A?ZXD^Q+#V`(>Y7L`Q_9YGQD\M@;*5>Y;T(IA[-[)V7;WG_K"
^XMB(3.9,22,2,937,0)="""DATA"",396.18,192,3,405,0)"
^XMB(3.9,22,2,938,0)="MMFFG?U&53L??5P<L17F([7""'L=C?D(U>+\_J<)_V8@`_EX_)Y:""*5D6[)9T7"
^XMB(3.9,22,2,939,0)="""DATA"",396.18,192,3,406,0)"
^XMB(3.9,22,2,940,0)="M?[:K__EE`83""'=3^A@U*@^Z5<ZR^P`&;7:+A8^D7CK>;O'IEJGV0P/M<^FM/"
^XMB(3.9,22,2,941,0)="""DATA"",396.18,192,3,407,0)"
^XMB(3.9,22,2,942,0)="MM7.G9/G\64:$B(>6$=DQ68KC([[BB5-$>N*4_+1&Q9E3*DDN.QJJPJ2OB4EB"
^XMB(3.9,22,2,943,0)="""DATA"",396.18,192,3,408,0)"
^XMB(3.9,22,2,944,0)="M""0>..8Z(2LL34=GK6G79'$2QP?W9=5Z6""2#Y""-!;=^\4.S:@FYUD""6N9M>(:"
^XMB(3.9,22,2,945,0)="""DATA"",396.18,192,3,409,0)"
^XMB(3.9,22,2,946,0)="M;V7)@I:;VA^O2WKKV@1V-$GVKVW!*K`7=14V.T*""'8.Q_O_VKK:Y;5M9_Q5^"
^XMB(3.9,22,2,947,0)="""DATA"",396.18,192,3,410,0)"
^XMB(3.9,22,2,948,0)="M\\D9IR4`OF;F3*=-W9Z<.6TZ26[[F99HFU-)U!4I)^[/N+_X`N`;""""Q`0*+L"
^XMB(3.9,22,2,949,0)="""DATA"",396.18,192,3,411,0)"
^XMB(3.9,22,2,950,0)="MVE&F'VJ*EA>[B\6^X=E=>2\A:BW9Q)$ZW]W3OW37&+=OGJ>X00-BTH)$IP5)"
^XMB(3.9,22,2,951,0)="""DATA"",396.18,192,3,412,0)"
^XMB(3.9,22,2,952,0)="M,K6AHLAN/W6=!^_9)9)'G]MVVET4^):[""`]S[/KQ&I;VB'E[[&9[P=#ORA,S"
^XMB(3.9,22,2,953,0)="""DATA"",396.18,192,3,413,0)"
^XMB(3.9,22,2,954,0)="M\2E,D3R=1,O$:)CWVX=LEDP<-^%TQEQ+4J0[9Z29>8$ZC-&.'O3-)`F1AH10"
^XMB(3.9,22,2,955,0)="""DATA"",396.18,192,3,414,0)"
^XMB(3.9,22,2,956,0)="MLL]^<B`->)H&K7F(L4S%H9P@DU2DNJ.JOUQCVF7(CHQ/;3:^;R*:5A+D1Y:*"
^XMB(3.9,22,2,957,0)="""DATA"",396.18,192,3,415,0)"
^XMB(3.9,22,2,958,0)="M&PZV<A@;8T?71W8ZY3<W]""]7@P\""5B_UA&K/^F"":T""1RV6'5<>2R?&@ZRHOJ"
^XMB(3.9,22,2,959,0)="""DATA"",396.18,192,3,416,0)"
^XMB(3.9,22,2,960,0)="M3R3D*\)&26@SK]+'O@_-/L7FL:8Q/-94<9C4P:9!J-(US'$5Z.J[0;[RP:;$"
^XMB(3.9,22,2,961,0)="""DATA"",396.18,192,3,417,0)"
^XMB(3.9,22,2,962,0)="MH-$-TBXO)XJ@N_JC-U),4P\\)<@C]B%Y#`.,30B\VJFGI@FG'^L1,""L?@5[>"
^XMB(3.9,22,2,963,0)="""DATA"",396.18,192,3,418,0)"
^XMB(3.9,22,2,964,0)="MLH""QN&>(0Y_+737Z^-V:^:YT&XT>,L>53SVC1'_^EKJZZZ*JA,&(ZA`2V]'$"
^XMB(3.9,22,2,965,0)="""DATA"",396.18,192,3,419,0)"
^XMB(3.9,22,2,966,0)="M3-<3.YV/TE#5>=7""A=!>1.2L\SM!:_13HA/=D&A5Y16-)^HY&+H-B7YF@1`T"
^XMB(3.9,22,2,967,0)="""DATA"",396.18,192,3,420,0)"
^XMB(3.9,22,2,968,0)="MV/[`F=;=A2FDGZ6L'`+JX80!HP,<3A'=.""<>IFSH%.905E""KL#(TL'<9L'+<"
^XMB(3.9,22,2,969,0)="""DATA"",396.18,192,3,421,0)"
^XMB(3.9,22,2,970,0)="MH4!5-I*H<[S3>#B&=7W#ALYAJ'=8ZSN-?+OO^C\[=!!CH[-BYJ_87-RT%T.F"
^XMB(3.9,22,2,971,0)="""DATA"",396.18,192,3,422,0)"
^XMB(3.9,22,2,972,0)="M-IW:WT&DV^!$YOH1.QP8GCO6J.#([=*CX2,5&M_@NP/'-+(ZIN-0&#\^^S$]"
^XMB(3.9,22,2,973,0)="""DATA"",396.18,192,3,423,0)"
^XMB(3.9,22,2,974,0)="MNK-*?VY`7$<SP=AA/FH;XX]^SVZSE;=A8\1&,\9ZU=#AKIN1UW78ZU`U<@)_"
^XMB(3.9,22,2,975,0)="""DATA"",396.18,192,3,424,0)"
^XMB(3.9,22,2,976,0)="M'49@MS$3'$[*:"";P$)EK8S.4$D6^`5''R_LQ.:F=^-1?'*'>UY:E6`#[0(ZP"
^XMB(3.9,22,2,977,0)="""DATA"",396.18,192,3,425,0)"
^XMB(3.9,22,2,978,0)="M#S^7Y5)4C9^R8C=R_,IR]^V'_&;'QQ0^@-8CTLN&\Y_M-^84=S],'%`D0*K'"
^XMB(3.9,22,2,979,0)="""DATA"",396.18,192,3,426,0)"
^XMB(3.9,22,2,980,0)="MIFZW-`5(Z7>N$JDK^0*Y(""&VSPU/^L)P,CP#MNE(:,,^Y)UT;P1^:B34LPX@"
^XMB(3.9,22,2,981,0)="""DATA"",396.18,192,3,427,0)"
^XMB(3.9,22,2,982,0)="M/-42C@)B0SH*`WO:FU+:0SN8JFL$7/<K.G@QO;7%D.D=:H7RBH8</]!//08E"
^XMB(3.9,22,2,983,0)="""DATA"",396.18,192,3,428,0)"
^XMB(3.9,22,2,984,0)="M\H6'PDD>3),\99RUYMFXN=B4QTU=-!,PJ&\MGL0\RN*6M[MY-_J=9;YMPRWI"
^XMB(3.9,22,2,985,0)="""DATA"",396.18,192,3,429,0)"
^XMB(3.9,22,2,986,0)="M0RE<,IGJ*6.M-]>PBSIILG5&6Z<2O,<KE<(XDW9#ND#\T$$70AM=L`LGS`&%"
^XMB(3.9,22,2,987,0)="""DATA"",396.18,192,3,430,0)"
^XMB(3.9,22,2,988,0)="M(=ZSB/BT084IK)B,Z&#OO)>-T7X3>_L=!-C&?L>0_4YT9C#66T$DJTD""6`P4"
^XMB(3.9,22,2,989,0)="""DATA"",396.18,192,3,431,0)"
^XMB(3.9,22,2,990,0)="MV]O`?FX?V`=]@.WCH^U\G:*K)H^H""Q`*FZ)+DL)J'CU[-3<D-T;IC?DVA&^U"
^XMB(3.9,22,2,991,0)="""DATA"",396.18,192,3,432,0)"
^XMB(3.9,22,2,992,0)="M(:28-)YT-GU_,BC%"";8*2L-^B.%IG,UW#&:175S>E_M*N+.\R1?T+&)]YZQF"
^XMB(3.9,22,2,993,0)="""DATA"",396.18,192,3,433,0)"
^XMB(3.9,22,2,994,0)="MS5ZA7&7[HIOM]#1!:]<U80ST0D.@I]1""8B7.PWYH<#S%+8=$'J@S9+1\F#]Y"
^XMB(3.9,22,2,995,0)="""DATA"",396.18,192,3,434,0)"
^XMB(3.9,22,2,996,0)="M^V>Q\799=2>R\,==^;EB6VK$V'>[75&W6/'B<QIUK,M1&'#UA:F`=UTN'[P["
^XMB(3.9,22,2,997,0)="""DATA"",396.18,192,3,435,0)"
^XMB(3.9,22,2,998,0)="M*43XN-KO&)ACM<WSQ>BO_EY4^V:N:;W?7;/>""?%3CO=)M>@Z6\D?O;_/=[>4"
^XMB(3.9,22,2,999,0)="""DATA"",396.18,192,3,436,0)"
^XMB(3.9,22,2,1000,0)="M9""H#^L+M?CTB^]]YMLP6=Z/?^)4-+<C$)W\,@)/`XU4Y9L7WFW*7?RFR<3R]"
^XMB(3.9,22,2,1001,0)="""DATA"",396.18,192,3,437,0)"
^XMB(3.9,22,2,1002,0)="M9@""Z''^TG]7*X==K/@NN2=^,*=MF=5F77]AP\`=#FON$`39""LT?8_/S""FGQ["
^XMB(3.9,22,2,1003,0)="""DATA"",396.18,192,3,438,0)"
^XMB(3.9,22,2,1004,0)="M8+&+""!""^Q=`NPA<3V^7KSL./RX#:)G/-?9,>%ZF-LQ-?'L$A=V+&ME=DR)']"
^XMB(3.9,22,2,1005,0)="""DATA"",396.18,192,3,439,0)"
^XMB(3.9,22,2,1006,0)="MVBBU0M@G\0'PC;J^^*-[S'60DW%T-,WBM9YG@%JK5JJ/&%P0@;!:XI2Q9(RK"
^XMB(3.9,22,2,1007,0)="""DATA"",396.18,192,3,440,0)"
^XMB(3.9,22,2,1008,0)="M-9Y+C)O4[-?<G(W`YFP8P8>,[T/(X*SAX3>8FW9%#A+U]M>/])#+]NOL1;1F"
^XMB(3.9,22,2,1009,0)="""DATA"",396.18,192,3,441,0)"
^XMB(3.9,22,2,1010,0)="MPVWNXZ'J1&[+CHD=;-1E?VNYQX]JH<EJSL$WSQ>=N+6;6K0B,_#6R[:;1T[&"
^XMB(3.9,22,2,1011,0)="""DATA"",396.18,192,3,442,0)"
^XMB(3.9,22,2,1012,0)="M3,#1F"".-#)4KF\H5=A2HEX>^0A28B2F8&#B@,!8N#S7*(F'`#%S63=89&/??"
^XMB(3.9,22,2,1013,0)="""DATA"",396.18,192,3,443,0)"
^XMB(3.9,22,2,1014,0)="M8IT_D[,&@^""#,+R#A%LJP3NDR?19\]N'][]=??CT[NJ%@#1J#N7Q>';LCNQ'"
^XMB(3.9,22,2,1015,0)="""DATA"",396.18,192,3,444,0)"
^XMB(3.9,22,2,1016,0)="M59MU6OW+#Q#V\3/'LP\B""RY%,EA(9#/I@)O83_F7^E^@%W,Q`;4#&()8L`/A"
^XMB(3.9,22,2,1017,0)="""DATA"",396.18,192,3,445,0)"
^XMB(3.9,22,2,1018,0)="M>!RN?QZ'.VU/""'@7#M:`V`@*&\2'S_T6@#:42X8_EHL]RXN*G1;/?!)XK(N^"
^XMB(3.9,22,2,1019,0)="""DATA"",396.18,192,3,446,0)"
^XMB(3.9,22,2,1020,0)="MR:GFVQWI[H20NX-3DP,>*FA,?=N;Z.Y$9W='LG*AS_Y!MJZ%%6J/*2(:NZ#Q"
^XMB(3.9,22,2,1021,0)="""DATA"",396.18,192,3,447,0)"
^XMB(3.9,22,2,1022,0)="M-H\V=B_(L@7P!#3V#S9OW34LX4:Z6#2*[*W;MZ)M^]!<.:2F[4.^H$RN7@2B"
^XMB(3.9,22,2,1023,0)="""DATA"",396.18,192,3,448,0)"
^XMB(3.9,22,2,1024,0)="M&&.D!LE+FD#C8_G""M`7H]=OV?I;')V=SMKUY-$LQNUO%6JFYYH%8BU@:*()="
^XMB(3.9,22,2,1025,0)="""DATA"",396.18,192,3,449,0)"
^XMB(3.9,22,2,1026,0)="MT0RI84U])UA_3@R(K=@/WNZ0Q.)#J$$F='_@0&RV9:#+HTMC7Y.)&5O=.3-]"
^XMB(3.9,22,2,1027,0)="""DATA"",396.18,192,3,450,0)"
^XMB(3.9,22,2,1028,0)="M+)*98)4;^K$97%F:^B;9%R0?E['""URCT3X*M_-;[B=JMUE!UVTP/H-R\ER]%"
^XMB(3.9,22,2,1029,0)="""DATA"",396.18,192,3,451,0)"
^XMB(3.9,22,2,1030,0)="M%.6Z&_?;3+S^_?L/[R^$7Y`^8E!O'`PNN\^*%;_\8@VZ##&>F!F/\=&L3^+X"
^XMB(3.9,22,2,1031,0)="""DATA"",396.18,192,3,452,0)"
^XMB(3.9,22,2,1032,0)="M)*QO>A=7[='P=Q.!`7!Z\%(4OU""R_T@>QH[4"">4RB`Z*$O0U8X;!>3`?8PQ5"
^XMB(3.9,22,2,1033,0)="""DATA"",396.18,192,3,453,0)"
^XMB(3.9,22,2,1034,0)="M:V(-CDZ,I1$H#2[DU^P4AO!,>LI7S5A>'QL09W%*#G0*K];;5?G`VWU>$H@."
^XMB(3.9,22,2,1035,0)="""DATA"",396.18,192,3,454,0)"
^XMB(3.9,22,2,1036,0)="MXV0,)R/'P%JQ/);0]^T12IL+QN5BL=_RI,``UM%B(RR+:D%9>)M[__A<T._G"
^XMB(3.9,22,2,1037,0)="""DATA"",396.18,192,3,455,0)"
^XMB(3.9,22,2,1038,0)="M0T%>L:82_KF(4-K,C^!X(`5##RDJC_XW`@KY9IZ)&)PW>)HW*)%X@T,;AYDU"
^XMB(3.9,22,2,1039,0)="""DATA"",396.18,192,3,456,0)"
^XMB(3.9,22,2,1040,0)="MY'2%JX)*FCH\M7>S*]?L^NB?#,""5KQ3AUPTV[I:*O^S!;(""U&9:11!;+"".0("
^XMB(3.9,22,2,1041,0)="""DATA"",396.18,192,3,457,0)"
^XMB(3.9,22,2,1042,0)="MR@84]Q-`^G+/3""Y(_ERBP1CYFF`FD@`P98C6T&(T^H_[70LK?>,M6/<6W4QY"
^XMB(3.9,22,2,1043,0)="""DATA"",396.18,192,3,458,0)"
^XMB(3.9,22,2,1044,0)="M;P$.D`&E%]O(0*8V#>V*HKS;L""?P,/IB&W[**:[4@IMO6PX.!N`P`E,+.R7C"
^XMB(3.9,22,2,1045,0)="""DATA"",396.18,192,3,459,0)"
^XMB(3.9,22,2,1046,0)="M0EH4E?^'-^%)Q.F+LQBGH08\$8^;<9+)`FUD&_>D!\<]75,Z(YRWXXZ[U'O0"
^XMB(3.9,22,2,1047,0)="""DATA"",396.18,192,3,460,0)"
^XMB(3.9,22,2,1048,0)="MM'$4*0^45T(V$J0`0'9=L$9':K;WFT8;>X]7[6&'1!P%.KR02()O02K:1>`&"
^XMB(3.9,22,2,1049,0)="""DATA"",396.18,192,3,461,0)"
^XMB(3.9,22,2,1050,0)="M:K3CU`K;Q16;@Q&<Z'!$TDFT&4MT$WY.S$>O#A8&26W8_1QB\8Y`ZH38,ROA"
^XMB(3.9,22,2,1051,0)="""DATA"",396.18,192,3,462,0)"
^XMB(3.9,22,2,1052,0)="MJ4XS>H=ON*VHWFJVA6R!['ZGRL<N(+'3%`PP?KAP:R:_0:BOO-OB/M_P9O1Y"
^XMB(3.9,22,2,1053,0)="""DATA"",396.18,192,3,463,0)"
^XMB(3.9,22,2,1054,0)="MB,=^8$=\CZ,OUADM46BZFW7K-L+^Q_;NH6+_]XH!O[$24W7,""K1(1*D_O09"""
^XMB(3.9,22,2,1055,0)="""DATA"",396.18,192,3,464,0)"
^XMB(3.9,22,2,1056,0)="MW-9`0X;%79'1T'-Q!/'C#`D_>?S)._[R:A1T#P2T[)-0;C;&?AI$I[Y-<9_7"
^XMB(3.9,22,2,1057,0)="""DATA"",396.18,192,3,465,0)"
^XMB(3.9,22,2,1058,0)="M^2[;M!9B^337)'PSIA'V61@``QLIIQ)!ZD7IV`(Z@G$[GFKM5JN#QIL=_,#'"
^XMB(3.9,22,2,1059,0)="""DATA"",396.18,192,3,466,0)"
^XMB(3.9,22,2,1060,0)="MANL=TMZ-%+4G@-T)8XCVY.*Q;W%<K8I;AD/)TF/9+8>.7`K&F\4AZM5_P:AT"
^XMB(3.9,22,2,1061,0)="""DATA"",396.18,192,3,467,0)"
^XMB(3.9,22,2,1062,0)="MV_(5_):Z?U\]S6T%?)++""CPS1>`+""[(%Z;'6)Q3#AQ0C/=]7,-Q7"")UL_R1P"
^XMB(3.9,22,2,1063,0)="""DATA"",396.18,192,3,468,0)"
^XMB(3.9,22,2,1064,0)="M`YEVA%+U,""8!(+CPT6S_$""GT&>XG/0ZB:3`A?B2D!D0AQ26-59\N""NS.A9!<"
^XMB(3.9,22,2,1065,0)="""DATA"",396.18,192,3,469,0)"
^XMB(3.9,22,2,1066,0)="M6*S9C#04V[#GO^P""6WU'18+X#"":15XA!7F/^>,1#S)Z'ZO.0/4>^^@%]QKX)"
^XMB(3.9,22,2,1067,0)="""DATA"",396.18,192,3,470,0)"
^XMB(3.9,22,2,1068,0)="M^.27<I<W?[[_])6%$0M@(R:=;<2/;6P8@0ZW,#S;,(,-2RR$%%H)""0U7N(=="
^XMB(3.9,22,2,1069,0)="""DATA"",396.18,192,3,471,0)"
^XMB(3.9,22,2,1070,0)="M$EL@T5$A1?%92(>!,O9""BC3N@!(?`6**(TLQ)6<Q&<043%Q?[&4%CD(9#P[P"
^XMB(3.9,22,2,1071,0)="""DATA"",396.18,192,3,472,0)"
^XMB(3.9,22,2,1072,0)="MY12>DLV/I.X^YJ\A4W[^JQR/`@L@G10`2I,#!-##ZGWM`M#,OQU<,%8!4EPP"
^XMB(3.9,22,2,1073,0)="""DATA"",396.18,192,3,473,0)"
^XMB(3.9,22,2,1074,0)="M4!#RV#A5$$I'%+54J4D0H,NE.O;Z?I`!/7'D=WW.\R%LO9!_QOQG81@ZD1\$"
^XMB(3.9,22,2,1075,0)="""DATA"",396.18,192,3,474,0)"
^XMB(3.9,22,2,1076,0)="M\H-0?A#)#V+Y02(_2.4'U(F3GR#EB4(L4JA%""KE(H1<I!"".%8J20C!2:L4(S"
^XMB(3.9,22,2,1077,0)="""DATA"",396.18,192,3,475,0)"
^XMB(3.9,22,2,1078,0)="M5FC&""LU8H1DK-&.%9JS0C!6:L4(S5F@F""LU$H9FH2J'03!2:B4(S46@F""LU$"
^XMB(3.9,22,2,1079,0)="""DATA"",396.18,192,3,476,0)"
^XMB(3.9,22,2,1080,0)="MH9DH-`<*S8%""<Z#0'*B:K-`<*#0'""LV!0G.@T!PH-(<*S:%""<]C1_,K"",""$["
^XMB(3.9,22,2,1081,0)="""DATA"",396.18,192,3,477,0)"
^XMB(3.9,22,2,1082,0)="MPX3E,=BAA6&*T3&&B4P9II_VJQ5K1QA63BUY_7K\Z&.^NGDM%?CX8U9^R%87"
^XMB(3.9,22,2,1083,0)="""DATA"",396.18,192,3,478,0)"
^XMB(3.9,22,2,1084,0)="MX\8/*Y9A'<OD>K[""M,B"":0$^AFG!%-.TH3,<.,-ALR9HUH7,VH!9[[5($%LP"
^XMB(3.9,22,2,1085,0)="""DATA"",396.18,192,3,479,0)"
^XMB(3.9,22,2,1086,0)="M@Q,RR5^L\I><W1;3%%$@FQ>86V!'+>9R`S4*Y098N2&3R>0TO<=""ZJZMD*X>"
^XMB(3.9,22,2,1087,0)="""DATA"",396.18,192,3,480,0)"
^XMB(3.9,22,2,1088,0)="MO,X6=""D[)6&GWSMB5D[(R=DUM7*M1I.^>.!/>H""1:FB#\TVG@=OTI>M\^6M9"
^XMB(3.9,22,2,1089,0)="""DATA"",396.18,192,3,481,0)"
^XMB(3.9,22,2,1090,0)="MY]=E^2=C^?B)>-5[Z&X=W>^,&ZT5\(+]MMMSFL/]2P.+:WXO5?Q0[D?MGNL;"
^XMB(3.9,22,2,1091,0)="""DATA"",396.18,192,3,482,0)"
^XMB(3.9,22,2,1092,0)="M*;LWQIP6=2\2M(XM^;?L-A\/(!U/+5?VR[A;5,_1?AB@KTX&[/^8E(I1$C%Q"
^XMB(3.9,22,2,1093,0)="""DATA"",396.18,192,3,483,0)"
^XMB(3.9,22,2,1094,0)="MH&:5@R$;/1X1V,__PS[\`C@!4#=%,!J`_""SF""'K>]ZOBEC$H6[U=%51I^^>:"
^XMB(3.9,22,2,1095,0)="""DATA"",396.18,192,3,484,0)"
^XMB(3.9,22,2,1096,0)="M""8-J;S.#]WY!$PX@5%$`5'0XMV583`#:&(MPDT""I[E0@ET@#<@FS[T`T5QB#"
^XMB(3.9,22,2,1097,0)="""DATA"",396.18,192,3,485,0)"
^XMB(3.9,22,2,1098,0)="M5W-5B2CX_""#0H7I;6MM)-#Y_??'QJ""6'WX5K+XJ,L(IM63_%?""/&J*4`#""(P"
^XMB(3.9,22,2,1099,0)="""DATA"",396.18,192,3,486,0)"
^XMB(3.9,22,2,1100,0)="M""T$G!JL1!!(B+`P.VVV`P+09?`4C%OFVVX$DP4O;#QC<#^WH,P#I'<)Z'VX4"
^XMB(3.9,22,2,1101,0)="""DATA"",396.18,192,3,487,0)"
^XMB(3.9,22,2,1102,0)="M1M!.""'QP(XB0P6!KW4CIM-B[@BH`2\""1VQ)0D$!+2%V7T':.\L;V*B_^VN]$"
^XMB(3.9,22,2,1103,0)="""DATA"",396.18,192,3,488,0)"
^XMB(3.9,22,2,1104,0)="MC$TSS4%@H#D""B"";8AX@.$S>B?Z(:^K&AM;(@5L+OU;8<B-838#A(.DH(2'LP"
^XMB(3.9,22,2,1105,0)="""DATA"",396.18,192,3,489,0)"
^XMB(3.9,22,2,1106,0)="M^@8![A*AD;;H.Q$FNA%T'0FPJ\9$?%=6VZ+.5L5?;4O1K@.Y_FY$$M""9,`EZ"
^XMB(3.9,22,2,1107,0)="""DATA"",396.18,192,3,490,0)"
^XMB(3.9,22,2,1108,0)="MK[0B*.T(>K-J)S9RH-A""<*<+XVG&=E,G-NP_E=@8CEZ#`O<$8L*N8L('[RYX"
^XMB(3.9,22,2,1109,0)="""DATA"",396.18,192,3,491,0)"
^XMB(3.9,22,2,1110,0)="M>Q'B)B>4/I6<-GFYI59T_012""J:EU+@K'-!7ZS)&P$&9P&))0U@L2,.G[C[/"
^XMB(3.9,22,2,1111,0)="""DATA"",396.18,192,3,492,0)"
^XMB(3.9,22,2,1112,0)="MLJ@::5P_=-?E+C2+2H]SO$PG0&JCI)#_G`80-[`?N""EI]+A*RH[+]FBO+MG-"
^XMB(3.9,22,2,1113,0)="""DATA"",396.18,192,3,493,0)"
^XMB(3.9,22,2,1114,0)="M0I;!SMG8\_IUL:`G`L-WO]DS\+`G4-[80GQM$CT$^M,F'+WQ.3SH+^QQC(,F"
^XMB(3.9,22,2,1115,0)="""DATA"",396.18,192,3,494,0)"
^XMB(3.9,22,2,1116,0)="M46*)G8]G&!H#S[RPX><OQ69?JSQ%]$3?[^2GF#]57B;LN%^S]'KS\2M;DQ&X"
^XMB(3.9,22,2,1117,0)="""DATA"",396.18,192,3,495,0)"
^XMB(3.9,22,2,1118,0)="MF@Q""`B>3H7/R?MOEBX(Y+#5+M%#JL]O;77;?_'C#1U-5.MN!_!F-!\<JD9KE"
^XMB(3.9,22,2,1119,0)="""DATA"",396.18,192,3,496,0)"
^XMB(3.9,22,2,1120,0)="M)WSSB,RB=4FH6V!D*SZC],;!0M=A""Y$>89CR4)LB>%UN\\TCY0;0$^4&T(Q:"
^XMB(3.9,22,2,1121,0)="""DATA"",396.18,192,3,497,0)"
^XMB(3.9,22,2,1122,0)="MUA[0KN**_5.)2ZVPSKC.P'6="")%'6&AXRF1/XI3L""6/;7`\20YR1`6TN:7EO"
^XMB(3.9,22,2,1123,0)="""DATA"",396.18,192,3,498,0)"
^XMB(3.9,22,2,1124,0)="M5UFQ;NZPOEM2S2YNB@:#Y>I+MKXP3XI2H_X(FX)^57+C/$""?IW""+^-$WMDF)"
^XMB(3.9,22,2,1125,0)="""DATA"",396.18,192,3,499,0)"
^XMB(3.9,22,2,1126,0)="MB+B1ER8SD(?MR0O<R$/$GX$^8D-?.Y4!NV:5PWB6K/(/^V*UA&<]GT\/R],C"
^XMB(3.9,22,2,1127,0)="""DATA"",396.18,192,3,500,0)"
^XMB(3.9,22,2,1128,0)="M<I5=DLXBNPX>M1-?]<*+`GAVT:7.M1PXE7I`,8=CS$``MR]5>B=P9T)7\<TD"
^XMB(3.9,22,2,1129,0)="""DATA"",396.18,192,3,501,0)"
^XMB(3.9,22,2,1130,0)="M/7!Z]LLTER<MQ/&^:ZUSAA&Q*4Q'*528%KU96`G5<I;)Q0J`(&"".2M`/6554"
^XMB(3.9,22,2,1131,0)="""DATA"",396.18,192,3,502,0)"
^XMB(3.9,22,2,1132,0)="M38XNN]V4](?OK`M!/G$C&/E@E(E0Z$9S@\IQK5#^9HZ*G)\Z+BJ$$Q]QX%C="
^XMB(3.9,22,2,1133,0)="""DATA"",396.18,192,3,503,0)"
^XMB(3.9,22,2,1134,0)="MXA""*F\7#,(5YY=T755%7'%UQ?(]T:A5<LUU6D<*BB=,C5I%OBZI<YEQ(FQZ!"
^XMB(3.9,22,2,1135,0)="""DATA"",396.18,192,3,504,0)"
^XMB(3.9,22,2,1136,0)="MSF$1R&T1F(""=#EA3:,2:S*F40],NZ989'U98HTJV*3>O%^5FL=I7?&!@AS7_"
^XMB(3.9,22,2,1137,0)="""DATA"",396.18,192,3,505,0)"
^XMB(3.9,22,2,1138,0)="MCZT(^=9^8UW4WCI;77K9=94ST+@A35O5&4<<ZYZ\&J=F`5PQ*T8Z6A:<$)B1"
^XMB(3.9,22,2,1139,0)="""DATA"",396.18,192,3,506,0)"
^XMB(3.9,22,2,1140,0)="M_FR,%)D',NYVQV8B-6RBEKY87*J,]-8/Y6+%/_2:=[S1CZ^;GV9BHJ.UTV1$"
^XMB(3.9,22,2,1141,0)="""DATA"",396.18,192,3,507,0)"
^XMB(3.9,22,2,1142,0)="MY]3&JEAOZ>&ZS79U0:W%P+S_T-.\HDO/-I?>3<DLR;JLV6#+'<!$JH-5N7NX"
^XMB(3.9,22,2,1143,0)="""DATA"",396.18,192,3,508,0)"
^XMB(3.9,22,2,1144,0)="MY-G6/65<N2X6_9?-Q+S`D7E)#-=<L!/S+M[=M&6/C)4^&!9&V7!BV'+T\P?^"
^XMB(3.9,22,2,1145,0)="""DATA"",396.18,192,3,509,0)"
^XMB(3.9,22,2,1146,0)="M,<-MS!8U=2C^XHF2-[,L/'1;>.B#E6L<P97K$+MKS:)D6O,%4!N10=U3RJ!\"
^XMB(3.9,22,2,1147,0)="""DATA"",396.18,192,3,510,0)"
^XMB(3.9,22,2,1148,0)="MK6K-MJ2[UUN5UZ+U6A;,G&WOZ+X6%$AA+-,R]1O+-8U""%LP""UM2^TLW_+:5"""
^XMB(3.9,22,2,1149,0)="""DATA"",396.18,192,3,511,0)"
^XMB(3.9,22,2,1150,0)="M,A/W^Q6K5U4>Q];<;^BC:E&4^VJ35^HW5D>J;@\W$T#8,Q,F%+N(,='5#,-Q"
^XMB(3.9,22,2,1151,0)="""DATA"",396.18,192,3,512,0)"
^XMB(3.9,22,2,1152,0)="MS=`,/C-1B)HJ./W6`<JP!&&Q46-""^L[;7I05$Q94S&60-E<_>_*S]_2LV]TW"
^XMB(3.9,22,2,1153,0)="""DATA"",396.18,192,3,513,0)"
^XMB(3.9,22,2,1154,0)="M/2C7`S;6-M]10[7)5Q/OK[('^FY)%5=Y<8Q@8T:QF4:R,:'9F&*3""50;/;*-"
^XMB(3.9,22,2,1155,0)="""DATA"",396.18,192,3,514,0)"
^XMB(3.9,22,2,1156,0)="M20/Y.%ZDC),W>G(H==$\?;7:MZU]/D6J`)XQ;PPYC7/FI4GS4P'JY+1Y7<IO"
^XMB(3.9,22,2,1157,0)="""DATA"",396.18,192,3,515,0)"
^XMB(3.9,22,2,1158,0)="MJM8=FVO=D+PC)WGK:]WDPKV@[=0@\$>>_[EZ4""O7=>D1#AQ<,6O@<9!=M>K-"
^XMB(3.9,22,2,1159,0)="""DATA"",396.18,192,3,516,0)"
^XMB(3.9,22,2,1160,0)="MD86UGU_=Y[L'#S<?5O""G1/,IDBF0,&.DBW$E\]C[UU[9RS9QEBV&NP_=91L<"
^XMB(3.9,22,2,1161,0)="""DATA"",396.18,192,3,517,0)"
^XMB(3.9,22,2,1162,0)="M(%NGLX/=8.C0DJD]IKX%1TS6<'RX\(=\SDIV(17X]=?PKZ>O#_JU[VMOE;,W"
^XMB(3.9,22,2,1163,0)="""DATA"",396.18,192,3,518,0)"
^XMB(3.9,22,2,1164,0)="MPM?),;^.&:(U?S?JUN>@!:F[%H0S[?#P`""T(7IH6/*GP`:""'R4@(X7FDCP^0"
^XMB(3.9,22,2,1165,0)="""DATA"",396.18,192,3,519,0)"
^XMB(3.9,22,2,1166,0)="M?G@ZZ?<<9;_5V_4#)-+]?F?>C_B*X+BOZ(#N.\U@`?6@+]""I(O_ZME&Q$6B8"
^XMB(3.9,22,2,1167,0)="""DATA"",396.18,192,3,520,0)"
^XMB(3.9,22,2,1168,0)="ME5XA=[V*9M*KZ`""]BLY694ZK0IRE'\*]:L[23P[Q&I.S5?E;6Y4^U9&XYST"""
^XMB(3.9,22,2,1169,0)="""DATA"",396.18,192,3,521,0)"
^XMB(3.9,22,2,1170,0)="MY)2_2B)(L3!!:?QXB0]V45=,/LG\_-D^"":6&'D+!@&6TRW6;BEV7]QQ)WO@;"
^XMB(3.9,22,2,1171,0)="""DATA"",396.18,192,3,522,0)"
^XMB(3.9,22,2,1172,0)="M=]EJM5^TN1CCFU31%OFV9O,?BM6*=W4;W\^N-^5N31=5%\V#^J[8L,O-E]XZ"
^XMB(3.9,22,2,1173,0)="""DATA"",396.18,192,3,523,0)"
^XMB(3.9,22,2,1174,0)="M7W?IX'59+HW?TJ>+EU1)]KOKC`9'U9,D8^)3)&,FRL?&6\V!>!E37SX.L$/Y"
^XMB(3.9,22,2,1175,0)="""DATA"",396.18,192,3,524,0)"
^XMB(3.9,22,2,1176,0)="M.#!EFDU7""0G0`@?N4PP7_%+T'//,U[M""_<9\7,6#-^6EM/4NAPVF?J.PY2X="
^XMB(3.9,22,2,1177,0)="""DATA"",396.18,192,3,525,0)"
^XMB(3.9,22,2,1178,0)="M-E9?<%&_4=U3\U1A8C<501CV$C`YIH3U2U[?E4M>N6?P*^MBPWO[1X6M5M1>"
^XMB(3.9,22,2,1179,0)="""DATA"",396.18,192,3,526,0)"
^XMB(3.9,22,2,1180,0)="MHR#C*C(@`%Y7]F9A4>+&(@QW*""/D>B,WKQ:[@FIYR9L;UIQ'LS0TH-1Q13%<"
^XMB(3.9,22,2,1181,0)="""DATA"",396.18,192,3,527,0)"
^XMB(3.9,22,2,1182,0)="M1<?XF`K4K^\_7;WQWMVP^T<5@[N_;(?K<G>([EIV<FWVZVNZ>%;XK=NK8YTF"
^XMB(3.9,22,2,1183,0)="""DATA"",396.18,192,3,528,0)"
^XMB(3.9,22,2,1184,0)="M`'5+ZMGDV>+.6V0KRH&L]?4N^:\77=V/3U1KOX1UBK#]U_QAX!L%4OC<-I&`"
^XMB(3.9,22,2,1185,0)="""DATA"",396.18,192,3,529,0)"
^XMB(3.9,22,2,1186,0)="M6:J!V'>3A29(TUTI(:F5+/Z=50[;K;'9U+9N;JGR4:8#M3O9+V]GI,UBM+""I"
^XMB(3.9,22,2,1187,0)="""DATA"",396.18,192,3,530,0)"
^XMB(3.9,22,2,1188,0)="M""P3Y4&B;PJU1CO?-W_(ELQ7WS)KERC]VTX&`)/!^C([9C]_S*)GMD.IAO:7^"
^XMB(3.9,22,2,1189,0)="""DATA"",396.18,192,3,531,0)"
^XMB(3.9,22,2,1190,0)="M;^55^]O;O*K[$(4J!.].*6_X2=7?(,Q8V0_H:FENQ++]1U^_S3;T!+O>991]"
^XMB(3.9,22,2,1191,0)="""DATA"",396.18,192,3,532,0)"
^XMB(3.9,22,2,1192,0)="MU<-FN2O7?+1%9]XV[`)B?R^4QNLUU-Z1T3,\I_MUE;'YL779'_;S:);C<1AB"
^XMB(3.9,22,2,1193,0)="""DATA"",396.18,192,3,533,0)"
^XMB(3.9,22,2,1194,0)="M3?\:/J1_K2IN-\5-L<BH:]O64=]<.`3]@3GHAXYS'[;L!#L&_8>4$_QSRF>&"
^XMB(3.9,22,2,1195,0)="""DATA"",396.18,192,3,534,0)"
^XMB(3.9,22,2,1196,0)="ME$\?C4<3H3FQ[E34B7]\P4,4?_1XH?GO#4#?_U5-:#X:_M6[DTTG07.J*PS_"
^XMB(3.9,22,2,1197,0)="""DATA"",396.18,192,3,535,0)"
^XMB(3.9,22,2,1198,0)="M*)[]?Y_>`?0XO0-$WSL`N7XX==&0<8.;J""'QN7=@IMX!;""GHP$G0!#N9`FV3"
^XMB(3.9,22,2,1199,0)="""DATA"",396.18,192,3,536,0)"
^XMB(3.9,22,2,1200,0)="M2!I<G*7I($WB#*SB6X%6`%=G`_BP3QW;@-(C@(O`@P!$K?B;P*7TOM4$Y`3R"
^XMB(3.9,22,2,1201,0)="""DATA"",396.18,192,3,537,0)"
^XMB(3.9,22,2,1202,0)="M(3]=@[.'(C?O*L7S@DXXU7#?;18[ZI[D2M;WQ[S[X)4SAA,Z6(=3?PX=3M*7"
^XMB(3.9,22,2,1203,0)="""DATA"",396.18,192,3,538,0)"
^XMB(3.9,22,2,1204,0)="MHL/6`!#$>+-0NE;?,1O&@`C.&!`3U88C+Q/R\SMV.K_#P""F2""XC.UOCG\]OE"
^XMB(3.9,22,2,1205,0)="""DATA"",396.18,192,3,539,0)"
^XMB(3.9,22,2,1206,0)="M_$[,52)PW-%!6,NC7FQ[Q&5T!.*RK^`M'P.F?,9*/A@K.7;""2L9J33$F$00."
^XMB(3.9,22,2,1207,0)="""DATA"",396.18,192,3,540,0)"
^XMB(3.9,22,2,1208,0)="MFZ9?!UARF]PS%7(2*+D'GGYI>DRIZY]>0VHVFJ.=#_<KAD)%!J5B@<H@G)P5"
^XMB(3.9,22,2,1209,0)="""DATA"",396.18,192,3,541,0)"
^XMB(3.9,22,2,1210,0)="MBAUW/3@AE(I5OW$R.9M55;DH>`:6=SRPOS]45(!OY+\V2X(V=9,AC&M!-/ZB"
^XMB(3.9,22,2,1211,0)="""DATA"",396.18,192,3,542,0)"
^XMB(3.9,22,2,1212,0)="M+C\KK>9#OBUW-67EPRAEVX]?OBDV2WX007S2\X>GU.O*JZE;73.6O[$':_&-"
^XMB(3.9,22,2,1213,0)="""DATA"",396.18,192,3,543,0)"
^XMB(3.9,22,2,1214,0)="MSAV$)^,&AZK#'?B=`<EZ'RD7M!AL_MR.4:)WC!(HQ0V6?F+-%7,)Z%+TC,*S"
^XMB(3.9,22,2,1215,0)="""DATA"",396.18,192,3,544,0)"
^XMB(3.9,22,2,1216,0)="M9W3\'9<3>$:?J%VL[#TB?/:(GJ]'U)P""!""B:=[8N5`#40J#'*H3PTP@(GW9U"
^XMB(3.9,22,2,1217,0)="""DATA"",396.18,192,3,545,0)"
^XMB(3.9,22,2,1218,0)="M]?-@B.'VKY8JY$`5QHE*ULC\3M'U]A/=D.PZ]R\?WM&3QF.'SH*=-5/4,ML9"
^XMB(3.9,22,2,1219,0)="""DATA"",396.18,192,3,546,0)"
^XMB(3.9,22,2,1220,0)="M^(H1U9,:`!R,_12$H!-[UP3;&5V<VM/$&D\3MIE:BVFTER-K:;*5DY82RN?K"
^XMB(3.9,22,2,1221,0)="""DATA"",396.18,192,3,547,0)"
^XMB(3.9,22,2,1222,0)="MI452>VG%_M'""$FLU0@7JKJCSLQ0U4D1F*8Z3G:$I_ZEB`""K=F;T9$[.A0VX'"
^XMB(3.9,22,2,1223,0)="""DATA"",396.18,192,3,548,0)"
^XMB(3.9,22,2,1224,0)="M`6(E$1&SR*:,IQ%H&DYV""F;IC[SI(_%H/+)?U4U3,#VR:G9*4R.U6.V7#(-R"
^XMB(3.9,22,2,1225,0)="""DATA"",396.18,192,3,549,0)"
^XMB(3.9,22,2,1226,0)="MPU]B@0]]D_G3WX%:]T.]^2E;Y*./U*SJWSQX-:9\E82OE.YM-+0C6I*5:UA\"
^XMB(3.9,22,2,1227,0)="""DATA"",396.18,192,3,550,0)"
^XMB(3.9,22,2,1228,0)="M`O?KQPYLR=X%(V<7[)F[8`9?9X0)U+7?J;8K2!U<G7(M7XQXMNDJHP>)]5SU"
^XMB(3.9,22,2,1229,0)="""DATA"",396.18,192,3,551,0)"
^XMB(3.9,22,2,1230,0)="ME3P?4ID:BE5\,#4%)S4N_NDUN#@#=)IW1WW*35E[UWF^\:CQSJY71777P`?3"
^XMB(3.9,22,2,1231,0)="""DATA"",396.18,192,3,552,0)"
^XMB(3.9,22,2,1232,0)="MC_]WS])1):]%7GI22N.B6M`W]Y0M+$FRR1=Y566[!Z_:Y@O6^%_5^V7!AQ#P"
^XMB(3.9,22,2,1233,0)="""DATA"",396.18,192,3,553,0)"
^XMB(3.9,22,2,1234,0)="M\X!MP&RY+BK6,>_=T#\@?U_6]H]RQ""TA6<8Z>\L!%^22.<+9=KLKMSN6=V&H"
^XMB(3.9,22,2,1235,0)="""DATA"",396.18,192,3,554,0)"
^XMB(3.9,22,2,1236,0)="M3Q[]Z5[^OF+)NA:7^4VQH5[-L&H1'U>3HC(*D#B$`(@`F=I0A$F>V!>C%;UK"
^XMB(3.9,22,2,1237,0)="""DATA"",396.18,192,3,555,0)"
^XMB(3.9,22,2,1238,0)="MW?_F6*5OK,K;ATN63?QS4W[>M$W0W4N?[W*>V<OZI2L2;,'-FF9?*G`V&Z+8"
^XMB(3.9,22,2,1239,0)="""DATA"",396.18,192,3,556,0)"
^XMB(3.9,22,2,1240,0)="M,?QHWHT-I1>'WFR[ZS+8F-=675O(!0(U/DB_CJEG30XM<IS,H,&0T%Q0(%AW"
^XMB(3.9,22,2,1241,0)="""DATA"",396.18,192,3,557,0)"
^XMB(3.9,22,2,1242,0)="M04$Z^)\N+_8,`4=9-!?JHCK@""`T!6Q%$4!HC1F!4%Z?G$%P7O!&+A`FR#\%1"
^XMB(3.9,22,2,1243,0)="""DATA"",396.18,192,3,558,0)"
^XMB(3.9,22,2,1244,0)="M$$$Q^)2A$OM3T%E8.F$%=F=+Z':VC'`$!YF!>4)QAPGV\.-^O<Z:<Y`%O.W!"
^XMB(3.9,22,2,1245,0)="""DATA"",396.18,192,3,559,0)"
^XMB(3.9,22,2,1246,0)="MRKR<;8N&WAS""-_L-!VIF%R!O;BC=+\*OU7682?LHTA=OH`$Z<`.2#M)X/`I3"
^XMB(3.9,22,2,1247,0)="""DATA"",396.18,192,3,560,0)"
^XMB(3.9,22,2,1248,0)="MW$^^/,\*3FJ=RSJ391W?X9`;I[C2Z:07BBR""')2`DVY#U9)BA""/T.%DO%G=X"
^XMB(3.9,22,2,1249,0)="""DATA"",396.18,192,3,561,0)"
^XMB(3.9,22,2,1250,0)="MW<6#]UL:5M`//N0\2AK#-(,)K*,R1,9$#^QXL['1R,U""DO#OXWWC1[9GR#19"
^XMB(3.9,22,2,1251,0)="""DATA"",396.18,192,3,562,0)"
^XMB(3.9,22,2,1252,0)="MJ^.EDPN.9G'!K];;5?F@W($Y@?,JY@OY__\_4$L#!!0``@`(`)""+N#3K:QX6"
^XMB(3.9,22,2,1253,0)="""DATA"",396.18,192,3,563,0)"
^XMB(3.9,22,2,1254,0)="MPA0``#^8```?````17!I;&5P<WE?3F%R8V]L97!S>5\Q,3$N<&YL+F-D9>T]"
^XMB(3.9,22,2,1255,0)="""DATA"",396.18,192,3,564,0)"
^XMB(3.9,22,2,1256,0)="MVW+;.++/257^`:67[.Y,9)'4=6LTIV2)3E@KBUI2GDR>IF@)LEDCD5J2BN._"
^XMB(3.9,22,2,1257,0)="""DATA"",396.18,192,3,565,0)"
^XMB(3.9,22,2,1258,0)="M/P#OQ(V@)""=[YEA5+DM@H[O1:#0:C09X=066BZD-['7@'J)W;]^]-;;@Q@W"""
^XMB(3.9,22,2,1259,0)="""DATA"",396.18,192,3,566,0)"
^XMB(3.9,22,2,1260,0)="MR#IZ8^7=6S""#6]>#B^,>!NX:Z$OCCUNX,9=_&-YZ=]S`#0(!P(81XQ$8@TZ."
^XMB(3.9,22,2,1261,0)="""DATA"",396.18,192,3,567,0)"
^XMB(3.9,22,2,1262,0)="MP8X""UWLH05GP/T<81DP,^3.$`I=.EY]O+6?C^A\#_W@8M6VX@VOTV(C@'C.="
^XMB(3.9,22,2,1263,0)="""DATA"",396.18,192,3,568,0)"
^XMB(3.9,22,2,1264,0)="MT@@+&G<>W!]V_G.,/D->%""*\K19@5=3I:GIM)0M&;E""IDY;D5;+RI>/!G=I1"
^XMB(3.9,22,2,1265,0)="""DATA"",396.18,192,3,569,0)"
^XMB(3.9,22,2,1266,0)="M5;7?OL;U(W\;^%Z$`&^<70A)T%X'?Y0*[#B#I/FP]C`,G8<RFKR,S_XR\.]W"
^XMB(3.9,22,2,1267,0)="""DATA"",396.18,192,3,570,0)"
^XMB(3.9,22,2,1268,0)="M</]S_&,RFR=?+""7]KZ;_M>Q_]J6?_)\K9:X37%3#$5JJS%+H(I4NTAA%C+(^"
^XMB(3.9,22,2,1269,0)="""DATA"",396.18,192,3,571,0)"
^XMB(3.9,22,2,1270,0)="M5317:MO\Q]P-H[0YP^3_4E&S+]WLRR#Y,OM&MS3&0',SI+M>41EE74;9@""J;"
^XMB(3.9,22,2,1271,0)="""DATA"",396.18,192,3,572,0)"
^XMB(3.9,22,2,1272,0)="M?>.W9+KS0YCP]\D/#V[D[*J_RA#Z5W<#O7590>*G%,6L,O<!IUY&@,]OCL`^"
^XMB(3.9,22,2,1273,0)="""DATA"",396.18,192,3,573,0)"
^XMB(3.9,22,2,1274,0)="M[O=.\/QS.O!C)4U^F`?7<WV/136M1-&])90\*T]19>6QM:B,,,[8J@Y8""1A-"
^XMB(3.9,22,2,1275,0)="""DATA"",396.18,192,3,574,0)"
^XMB(3.9,22,2,1276,0)="M`J8O`3.0@%%DF%9Z$D!#""9@1`^;J""GYS]JAC@Q!X?D03[S`K9;V1]B)52T:("
^XMB(3.9,22,2,1277,0)="""DATA"",396.18,192,3,575,0)"
^XMB(3.9,22,2,1278,0)="MBI2$9!JFC,1`L7VBYQ^E':;SCQO//SG\]3&*?$]M_^:&+C(-8U95FUTUMGLT"
^XMB(3.9,22,2,1279,0)="""DATA"",396.18,192,3,576,0)"
^XMB(3.9,22,2,1280,0)="MO,J#3TAU!:2X56-[2L-K8E*:@!2W:F*3]:_.KD791K(T)3,2T>&*+[&9$C5T"
^XMB(3.9,22,2,1281,0)="""DATA"",396.18,192,3,577,0)"
^XMB(3.9,22,2,1282,0)="M;V-LL1&XNOJ0?X`%'XX[)P!3?P-!49[`_8/X(.BU'VQ""]/^K""Y\`^3PV,<B-"
^XMB(3.9,22,2,1283,0)="""DATA"",396.18,192,3,578,0)"
^XMB(3.9,22,2,1284,0)="MJG#S@+E))O-JQV!1%.[._3/X;6*9X/X8X6$%G*^.NW.0-%H5+TE'57L)KA7\"
^XMB(3.9,22,2,1285,0)="""DATA"",396.18,192,3,579,0)"
^XMB(3.9,22,2,1286,0)="M%L\^TP];=P=!D/#TY(3H:RW6-D:+1.)N&['\RZ^7X5F2NG9!@6DY<>1INFLT"
^XMB(3.9,22,2,1287,0)="""DATA"",396.18,192,3,580,0)"
^XMB(3.9,22,2,1288,0)="MOR6]^4*""TRXI.(TEN-AC+\9/1G:Z<]=_PLUX%1SE?,H4\-]'-XI'""<;-P-SE"
^XMB(3.9,22,2,1289,0)="""DATA"",396.18,192,3,581,0)"
^XMB(3.9,22,2,1290,0)="M8:ZZF8W5*6[RRPZ:,H?5WS^AX8-6/6CX[(_(E[O/AA'&#;=^`$%XO-^[481="
^XMB(3.9,22,2,1291,0)="""DATA"",396.18,192,3,582,0)"
^XMB(3.9,22,2,1292,0)="MF.@1/S[X0=1""%:>/3O`W1?L[II3IPVEZ42<![84E4!T/X7<3!=VSW[?;3C)`"
^XMB(3.9,22,2,1293,0)="""DATA"",396.18,192,3,583,0)"
^XMB(3.9,22,2,1294,0)="M/TBN!*\%G5R!,C>87`UF->47EQ5+P)P)\R6""'R""'+GB`V*$CQ<AP>S""WB7O%"
^XMB(3.9,22,2,1295,0)="""DATA"",396.18,192,3,584,0)"
^XMB(3.9,22,2,1296,0)="M$#L#?MSZ`L.X=4(G.#5(O/YD(/[E5SG,L4A`&2SU]-3,&J*.)\A?PB?DN9^4"
^XMB(3.9,22,2,1297,0)="""DATA"",396.18,192,3,585,0)"
^XMB(3.9,22,2,1298,0)="M2Y-.!#<EBHI&\\9>W!6RPC--MS+),&M\\8^)%D,O@D&LK8_98\?;@)V_=B+D"
^XMB(3.9,22,2,1299,0)="""DATA"",396.18,192,3,586,0)"
^XMB(3.9,22,2,1300,0)="MY2/ES707T!US""_>^VI[CM:&(6N7G3Q3QC1/!>CI*_VQ""R9AT0K1X0>H>/1\@"
^XMB(3.9,22,2,1301,0)="""DATA"",396.18,192,3,587,0)"
^XMB(3.9,22,2,1302,0)="M\+=HT,9J+^8@Q\H<I=G3DMDDZ_&X+B^&/YGVTEA-YF""RF(&Y.9VL#'/Q3X`-"
^XMB(3.9,22,2,1303,0)="""DATA"",396.18,192,3,588,0)"
^XMB(3.9,22,2,1304,0)="M""-&UA47!S9Q-5GH!5NZ4*IRE3VQS`4P+K+XL=6#>`/O.^JA;7ZJ5<TE7:_]#"
^XMB(3.9,22,2,1305,0)="""DATA"",396.18,192,3,589,0)"
^XMB(3.9,22,2,1306,0)="M_&E5P<LS2;&^1\@'>3<RQ=!HA++])U8%,-U!)]@C!@H9L8N5?ID%:CAE>D'2"
^XMB(3.9,22,2,1307,0)="""DATA"",396.18,192,3,590,0)"
^XMB(3.9,22,2,1308,0)="M9`Q5-HX[[T_/?_):0D=-[=+HV""THR[8T%'E4""#K:L.(+@JNK-8X(""4)%+85M"
^XMB(3.9,22,2,1309,0)="""DATA"",396.18,192,3,591,0)"
^XMB(3.9,22,2,1310,0)="M;/)QP8\QJ2VQ!3D#1:ZR)^*@6HF!WF1#O*5[4>`B[`Z:XYT-#HM'?FQ-,JTU"
^XMB(3.9,22,2,1311,0)="""DATA"",396.18,192,3,592,0)"
^XMB(3.9,22,2,1312,0)="M%_,OX.D1XJ@(=@&`&X)#@*K#38LW<Q,S5""EZ+.HQE>RP`'[P#]""K""R^QU@:L"
^XMB(3.9,22,2,1313,0)="""DATA"",396.18,192,3,593,0)"
^XMB(3.9,22,2,1314,0)="ME7'^607.<>_0Y1SW0&.[!QIO%M=DW(-^<^]`D_(..$&\9(S=5LS!D.L0G!9."
^XMB(3.9,22,2,1315,0)="""DATA"",396.18,192,3,594,0)"
^XMB(3.9,22,2,1316,0)="MD8O<<#J_4S=<1:WCFQM-4JGZ9^I4\5E`_[!SPCWO.4?+5+:6J3QM4*6<T!ZS"
^XMB(3.9,22,2,1317,0)="""DATA"",396.18,192,3,595,0)"
^XMB(3.9,22,2,1318,0)="M6:4(V#B/=`EU3Y7S3#DQW2*87T':)YK0(J>G)!;#>*#P'FCE!PR55SGE&KM<"
^XMB(3.9,22,2,1319,0)="""DATA"",396.18,192,3,596,0)"
^XMB(3.9,22,2,1320,0)="M[7""'R&G!3;DX*CE$1&++-:5?B6R.Z^KQ>EK8*7/G'NY&6EOW\/)]0W=P#-`="
^XMB(3.9,22,2,1321,0)="""DATA"",396.18,192,3,597,0)"
^XMB(3.9,22,2,1322,0)="M\`&2;A4^UNIJ2_2]4)G[-4.';`0Y:JIM8#W5ZEK(:`)/MHV:LO!;E^X.@;QY"
^XMB(3.9,22,2,1323,0)="""DATA"",396.18,192,3,598,0)"
^XMB(3.9,22,2,1324,0)="M(B"";(C.[D2TIN7G_W<UASV?=CC#(R;.4_(FLVPC?B?-7MCUN'^#:W;IKP)BV"
^XMB(3.9,22,2,1325,0)="""DATA"",396.18,192,3,599,0)"
^XMB(3.9,22,2,1326,0)="MTGFU+^1GP&*'V:P^O1PHO%.EC94%NZ/O,];N(8Y!;6#DN*@O_OD>[/`&]\:'"
^XMB(3.9,22,2,1327,0)="""DATA"",396.18,192,3,600,0)"
^XMB(3.9,22,2,1328,0)="M\4X?6""-RCNL!!X&$<8Y#LAN&%OP_IU_!>]S=($.(-\C?_XR)>""#^;/W=SG^*"
^XMB(3.9,22,2,1329,0)="""DATA"",396.18,192,3,601,0)"
^XMB(3.9,22,2,1330,0)="MJ;I>&`7'N':(?[@;&)>7ZX(GU]OX3VUBE=A2VR#1:`""=]2/RF9,J2""![F1;A"
^XMB(3.9,22,2,1331,0)="""DATA"",396.18,192,3,602,0)"
^XMB(3.9,22,2,1332,0)="M4$5Y;?^?8]R:C1,Y%""FM#6(AIE$Z[,([ZS4\(""R[78*%5[7;!BL_)83\?Q<W"
^XMB(3.9,22,2,1333,0)="""DATA"",396.18,192,3,603,0)"
^XMB(3.9,22,2,1334,0)="M%:WI4][P;L,!.A$((W@(@?(!:'AOX8U`37O\U2)K5[.`$N`<-,8IL]Y05%*%"
^XMB(3.9,22,2,1335,0)="""DATA"",396.18,192,3,604,0)"
^XMB(3.9,22,2,1336,0)="MTU9C^;,Y&<K4>/=VZ1^..R>""4W]_[W]VH\<4+%:7V/3A!]?^-Z4!K$HW8%1A"
^XMB(3.9,22,2,1337,0)="""DATA"",396.18,192,3,605,0)"
^XMB(3.9,22,2,1338,0)="MY^HJ6:&]>\O-`2D9WXP#=D""-K)F'F\+8,CS'2IFI]/H8!$B#=L^$*K?%\6$\"
^XMB(3.9,22,2,1339,0)="""DATA"",396.18,192,3,606,0)"
^XMB(3.9,22,2,1340,0)="M""D=2Y*DB=@`,1]M(FG0>R82ST!YP@G""G\;)V@_5Q'T:.M\:K:S2870\-+C2T"
^XMB(3.9,22,2,1341,0)="""DATA"",396.18,192,3,607,0)"
^XMB(3.9,22,2,1342,0)="M]H[G;B%ZDE@5/[%O&S>$3G@B^Y@/K""'LC8`&#?G\Z,0+_+@%_C%`)$,7I\L@"
^XMB(3.9,22,2,1343,0)="""DATA"",396.18,192,3,608,0)"
^XMB(3.9,22,2,1344,0)="M3F%$,$<P4<%%QQ(/;@6B:`2N3CSDL8[+EY9Y/==OP;5N+#Z""F;Z:&'-]EH;Y"
^XMB(3.9,22,2,1345,0)="""DATA"",396.18,192,3,609,0)"
^XMB(3.9,22,2,1346,0)="M$)Y8L>]SQ48,?YI8I#0+?.5?:;P11P_-A:VO2O')F;$:<1$6W&.$I5]X""\BP"
^XMB(3.9,22,2,1347,0)="""DATA"",396.18,192,3,610,0)"
^XMB(3.9,22,2,1348,0)="MIG>W]FJRF.IV'/TT%L;*F,S![61AW.CH""0Z%VIA6*5`YH.*4J:`1=M/"",HJ;"
^XMB(3.9,22,2,1349,0)="""DATA"",396.18,192,3,611,0)"
^XMB(3.9,22,2,1350,0)="MR-ZFJV4JBY&N+'VRNM47JS)Y'GKN4$:XUX>G?9!O2VG:R8QE#`%+MY>X$TJ,"
^XMB(3.9,22,2,1351,0)="""DATA"",396.18,192,3,612,0)"
^XMB(3.9,22,2,1352,0)="M5?>^2""(B]O(FJ>=*[!9I0A&\)B6FRK,4KRY'S-"">B`]S]4FW2ER0>I.CK*.M"
^XMB(3.9,22,2,1353,0)="""DATA"",396.18,192,3,613,0)"
^XMB(3.9,22,2,1354,0)="M=1K39D362Y1SA/)ZH@Q.[0[#!E-SL3(6=^:=#<I:\^\[P])GX,:T8@C+G&.6"
^XMB(3.9,22,2,1355,0)="""DATA"",396.18,192,3,614,0)"
^XMB(3.9,22,2,1356,0)="M$9-S?6E_X6H3R4J#1@S/5W;;F.E`O[G1IY612+`X/$'A>^<J/(<U'H%:M5-/"
^XMB(3.9,22,2,1357,0)="""DATA"",396.18,192,3,615,0)"
^XMB(3.9,22,2,1358,0)="M5'D.'Q6<=<2')]*>FK>DD2RC8Y+-4,?1I5X""2:$_==LI0YZZ@:17*ER84M`E"
^XMB(3.9,22,2,1359,0)="""DATA"",396.18,192,3,616,0)"
^XMB(3.9,22,2,1360,0)="M'Z/B$S*6R""-FW(+E?)0C<)6-G2&[>%#N#O$`&Q.=QYNO*IM:9+19X0LA<[2N"
^XMB(3.9,22,2,1361,0)="""DATA"",396.18,192,3,617,0)"
^XMB(3.9,22,2,1362,0)="M^=XRM14C],Y*?FZSBF5'(*]YEDLHHE_>&L[;72$!""G<N=GD?G:]H$>`$L5OK"
^XMB(3.9,22,2,1363,0)="""DATA"",396.18,192,3,618,0)"
^XMB(3.9,22,2,1364,0)="M>EL_V#O)0ONPP\XLV""*?-WS$.])KW./(K73#,F""67)+`9;DE2>INLD<?4\VY"
^XMB(3.9,22,2,1365,0)="""DATA"",396.18,192,3,619,0)"
^XMB(3.9,22,2,1366,0)="M`E*YR-)1#RK:D>YY\0+VB>Z,Q(&8AGEK@R;8F*M:B4T)M&A&B_@]6ITDN3(I"
^XMB(3.9,22,2,1367,0)="""DATA"",396.18,192,3,620,0)"
^XMB(3.9,22,2,1368,0)="M!W6.)!6USQRO-!!&K\:I2546<DA#BID<IYE+N994@W5#;C""OY*Q1)(DQQ""']"
^XMB(3.9,22,2,1369,0)="""DATA"",396.18,192,3,621,0)"
^XMB(3.9,22,2,1370,0)="MRZ^RM*D`)).X""(JVJ7(\CEMIRA/-'S^NG;IQIXM%@B;56(IH=<>R,DMHG08"""
^XMB(3.9,22,2,1371,0)="""DATA"",396.18,192,3,622,0)"
^XMB(3.9,22,2,1372,0)="M6/@>_.Z]\W+-YH]&X:)?,';YNW-,EUB,N3+6ZS`/&V$>2O4&8_8'0!(R4Q72"
^XMB(3.9,22,2,1373,0)="""DATA"",396.18,192,3,623,0)"
^XMB(3.9,22,2,1374,0)="M<:K5L>_4Y=]5<U_UJYR^3D^6I/!,Y+,$Y>DRZ:T1:68KZ4SDTZIKP*&%+&PM"
^XMB(3.9,22,2,1375,0)="""DATA"",396.18,192,3,624,0)"
^XMB(3.9,22,2,1376,0)="M,?*0$$$M>\S(N!HU2W0`,S?T@PT,`'+J(K^47)MN$&E2""1V\,U6""C`[I/""%-"
^XMB(3.9,22,2,1377,0)="""DATA"",396.18,192,3,625,0)"
^XMB(3.9,22,2,1378,0)="M9D],KK&3AX?`^>K$^<\WSAJU-R0W*23;.VR\\2?=WJ%<>W,EVR5*QHG""D+HX"
^XMB(3.9,22,2,1379,0)="""DATA"",396.18,192,3,626,0)"
^XMB(3.9,22,2,1380,0)="MX.D]8:>4-B3\B\IBN*O).Q@#KOKS2`I,:E<CC7%7XX_\&E[*L\;+\5*RW#L>"
^XMB(3.9,22,2,1381,0)="""DATA"",396.18,192,3,627,0)"
^XMB(3.9,22,2,1382,0)="M%RU)..DYKH;$2PE<<B1>.Z$;;YIL7.?!\]$/VFIVI2RTTM%$)EI3Y$QT5\Y$"
^XMB(3.9,22,2,1383,0)="""DATA"",396.18,192,3,628,0)"
^XMB(3.9,22,2,1384,0)="MEZFQ;'2)'-]&:TI#&VWC#6NXW2+^0NZA@V%-.DPIUD>-7+*1_=K!+23.2""QC"
^XMB(3.9,22,2,1385,0)="""DATA"",396.18,192,3,629,0)"
^XMB(3.9,22,2,1386,0)="M(.8[-CV18\-L!Z6%9/_VY)1I(-0E>JW)T::>I#8-Q,K$<@,9ZJ2F?`!9?5KZ"
^XMB(3.9,22,2,1387,0)="""DATA"",396.18,192,3,630,0)"
^XMB(3.9,22,2,1388,0)="M8?3!6..L_[7O;8]A?`R>=ZQFQ%:L2KB1K59$YQ<>&D=^0L*%4HDHDW)DD29A"
^XMB(3.9,22,2,1389,0)="""DATA"",396.18,192,3,631,0)"
^XMB(3.9,22,2,1390,0)="M""CQY7+29""P4C&.Q=#WL5V_A<I[=^II6B7Z>""<6=RK5G2$F4H9\_ZM1I(4!/H"
^XMB(3.9,22,2,1391,0)="""DATA"",396.18,192,3,632,0)"
^XMB(3.9,22,2,1392,0)="MER;B(JW73`%M<%/(B9=)VY'3.Z56\52EZ'TIS2-(\S5/J5<]@CA/]Y13E>\Z"
^XMB(3.9,22,2,1393,0)="""DATA"",396.18,192,3,633,0)"
^XMB(3.9,22,2,1394,0)="MP'E2]K.W""?P]Y.6^L\_&+94!-TM=[G3<X(3\=\GC<0/I#'BMS\^`/_FDO^Q!"
^XMB(3.9,22,2,1395,0)="""DATA"",396.18,192,3,634,0)"
^XMB(3.9,22,2,1396,0)="M?U;2H""*WAA@T7C.-9-<0@^9YA&#Y^!S&ATCU;\Z>WG#JM-?""[*TA.R&,U0Y%"
^XMB(3.9,22,2,1397,0)="""DATA"",396.18,192,3,635,0)"
^XMB(3.9,22,2,1398,0)="M:8I+G`A6[2760@B)""GR&[L-CA#?@O`?(TTZ)]4&VBZ2QDYZRQUWQ8W&()<<A"
^XMB(3.9,22,2,1399,0)="""DATA"",396.18,192,3,636,0)"
^XMB(3.9,22,2,1400,0)="M`(KM2T^M!Y%8']4)8>Z'X;FMY.U3-FPDTV6]1!L_(D-Z2D<W[DEV""QIVI#A["
^XMB(3.9,22,2,1401,0)="""DATA"",396.18,192,3,637,0)"
^XMB(3.9,22,2,1402,0)="MN:ZM?SF%EIDS\>U@>K**$I[H28R4.#-:$V1&D]:.<522G7!:K<;=4TSOZ:KN"
^XMB(3.9,22,2,1403,0)="""DATA"",396.18,192,3,638,0)"
^XMB(3.9,22,2,1404,0)="M,'>SY(1J[R2P@)5FF:V\VZ6#Q=P=:#+:SJ""2?F$G4B:K5^![X!@>\6G^]?IX"
^XMB(3.9,22,2,1405,0)="""DATA"",396.18,192,3,639,0)"
^XMB(3.9,22,2,1406,0)="MB+?>Q.2KBCR\,!<;Q]T]`V<=N5_=Z%G("",+)/%D=W]9&PV;]D!Z7O]7S'BKE"
^XMB(3.9,22,2,1407,0)="""DATA"",396.18,192,3,640,0)"
^XMB(3.9,22,2,1408,0)="M`%2OK<N^X?Q%8_)Q8=J&73KWK-^:""(.QT&TB>5%?S(R;$JVI>7MM7IN_J^V5"
^XMB(3.9,22,2,1409,0)="""DATA"",396.18,192,3,641,0)"
^XMB(3.9,22,2,1410,0)="M_OM*AER6C#FQ;7-J3%;Z#'PV5I\`@XTJ<C$C<\->(5""D.OI<GZYP]B4B(L%/"
^XMB(3.9,22,2,1411,0)="""DATA"",396.18,192,3,642,0)"
^XMB(3.9,22,2,1412,0)="MDB`$S`6XL^\F<V!.IW=+XJPY$[D4/[W&_%BZ?3=?X435SZ;U+Y""*B^*EUYR7"
^XMB(3.9,22,2,1413,0)="""DATA"",396.18,192,3,643,0)"
^XMB(3.9,22,2,1414,0)="M;F->/G^:K+(,JCCY\Y-AHXZR)]?&W%A]`<;M<I+(KI`:/K`_71F_&2M#MRFV"
^XMB(3.9,22,2,1415,0)="""DATA"",396.18,192,3,644,0)"
^XMB(3.9,22,2,1416,0)="MNPW8CO.@.NV=M""+K]M0RKG60I7]]7!@WQG2R*+5!@E.L_(ALK/TURH_MQ61F"
^XMB(3.9,22,2,1417,0)="""DATA"",396.18,192,3,645,0)"
^XMB(3.9,22,2,1418,0)="MF!\M\VXY;""S>B:4#S*I>YB_1PMG$F'\IL?<_Q:`0$&6R^^8-\R(8M61E5T4,"
^XMB(3.9,22,2,1419,0)="""DATA"",396.18,192,3,646,0)"
^XMB(3.9,22,2,1420,0)="M_\V;-R5^<W81MPBW:94%Q<='IO6]>9,:+1XO:E->[$_F<HD&""9<;]0QNM*;<"
^XMB(3.9,22,2,1421,0)="""DATA"",396.18,192,3,647,0)"
^XMB(3.9,22,2,1422,0)="MZ+_KUM2P=2XWVAG<=)E[+2+9+$UKQ>^G[NF\]/M->;'T*4Y9K5A3,<Y&LNDU"
^XMB(3.9,22,2,1423,0)="""DATA"",396.18,192,3,648,0)"
^XMB(3.9,22,2,1424,0)="MY6=E37[3YR+%Z9W.CM9IRLZ-C@8NGQD282/9C)HR<SU!]ET@F=$9S`R;,C-#"
^XMB(3.9,22,2,1425,0)="""DATA"",396.18,192,3,649,0)"
^XMB(3.9,22,2,1426,0)="MIL86<3,\@YM!8[4QC;F^$K$S.(.=QJ,*F7[S5L1-HS&%)[Q1ZNU)=$QEEB7F"
^XMB(3.9,22,2,1427,0)="""DATA"",396.18,192,3,650,0)"
^XMB(3.9,22,2,1428,0)="MS5'A--80U&0)3F9H:DMFZW)2]4\4)B;-Y'AF.0R=WHTR+N;A\MFI,G2Z-*+6"
^XMB(3.9,22,2,1429,0)="""DATA"",396.18,192,3,651,0)"
^XMB(3.9,22,2,1430,0)="M9@F0OJK<`EUWN%?A+O'(54=(;4<1:=.LC"")R[5L^LKRFH^S,TB[-NS7,PK>B"
^XMB(3.9,22,2,1431,0)="""DATA"",396.18,192,3,652,0)"
^XMB(3.9,22,2,1432,0)="MM1%Q$ZH$N,R""""VL&&:TE0N<*0U@\6+4!K-8`MML`MM<`MM\`=M``=M@`=B0/"
^XMB(3.9,22,2,1433,0)="""DATA"",396.18,192,3,653,0)"
^XMB(3.9,22,2,1434,0)="MBZ8J:=@^LVWT9M""($6JG-""#;&VJ@I)1FG(]#NP"".[@5P]""Z`HW\!'(,+X!A>"
^XMB(3.9,22,2,1435,0)="""DATA"",396.18,192,3,654,0)"
^XMB(3.9,22,2,1436,0)="M`,?H?!Q%_N7I./HGR30>`Z7P8X.J<>Q2'3:J3!I_=C0NG0_F2DW8#N=VNP\>"
^XMB(3.9,22,2,1437,0)="""DATA"",396.18,192,3,655,0)"
^XMB(3.9,22,2,1438,0)="M/B3A>%$6""V4=`^H*,V03F![WJ%#U4IYJ#JPR;L4AVY9DJ'%<SS)""B>=OUCUF"
^XMB(3.9,22,2,1439,0)="""DATA"",396.18,192,3,656,0)"
^XMB(3.9,22,2,1440,0)="M25YEI:,K+Y+(F\N'B'M-K471JT&A]?D`:52%CT`9<^7#<VYZ3<+7W.M8R0-7"
^XMB(3.9,22,2,1441,0)="""DATA"",396.18,192,3,657,0)"
^XMB(3.9,22,2,1442,0)="M(R*4?74%ZF[;[TCNY;%N)F:\B253=O(=+OB#N,'%A]+EVNMXMR]Y_8L4^G'B"
^XMB(3.9,22,2,1443,0)="""DATA"",396.18,192,3,658,0)"
^XMB(3.9,22,2,1444,0)="MX0#&)_,S\]-3R^1\U#V^5S>`^+X.-WDK#7!`=B-O*IYV*X\M%U]:*WR!R*WC"
^XMB(3.9,22,2,1445,0)="""DATA"",396.18,192,3,659,0)"
^XMB(3.9,22,2,1446,0)="M86PK_-H8)X+A>W"",W)T;/8.M?_0V`/VEX>OWYB&^;>`]OH,9=0=PHKC\WD>_"
^XMB(3.9,22,2,1447,0)="""DATA"",396.18,192,3,660,0)"
^XMB(3.9,22,2,1448,0)="M]MD=!.$Z@-`#:+Q@SHYA<AF@L]G07($H)=IN9<V#U5-:)[\O)\64IH2,QZA."
^XMB(3.9,22,2,1449,0)="""DATA"",396.18,192,3,661,0)"
^XMB(3.9,22,2,1450,0)="M_(8;?'P)C+D?XH)9-;D[6+Q;S'[3377[N8I454=U%YP(7Y]3VFTJ-:LR8/+W"
^XMB(3.9,22,2,1451,0)="""DATA"",396.18,192,3,662,0)"
^XMB(3.9,22,2,1452,0)="M^3""=]9B%+N6""W\B!%LF]LA7&@)V1A]JH(,<`<O<FD^O35)5UH(A&U5$%J!(H"
^XMB(3.9,22,2,1453,0)="""DATA"",396.18,192,3,663,0)"
^XMB(3.9,22,2,1454,0)="MA&N@2!!4!S($U;[$!C-&IQ1I..-(!*?RX?(&#*6IBJ0FU5)&UW9J-TBQ9/K="
^XMB(3.9,22,2,1455,0)="""DATA"",396.18,192,3,664,0)"
^XMB(3.9,22,2,1456,0)="M^E1+1IOK0>O3BC'YH?""X3]YT3>X<30);(Q>Y0RME>+FFC+HR.]O(4JGJJ`$D"
^XMB(3.9,22,2,1457,0)="""DATA"",396.18,192,3,665,0)"
^XMB(3.9,22,2,1458,0)="M<S/](O*KW).&B0TDH7*6JD>NF#HHE%WI96:RMB_W!1N8--8U>91%XPI/]A!7"
^XMB(3.9,22,2,1459,0)="""DATA"",396.18,192,3,666,0)"
^XMB(3.9,22,2,1460,0)="M`EMO[P0=7K4_M9`""U2#-)U\U!@V&UJ""!R9&SQ>(FE@P.QX*15E:,K].`LC"")"
^XMB(3.9,22,2,1461,0)="""DATA"",396.18,192,3,667,0)"
^XMB(3.9,22,2,1462,0)="M)<56TP&JU-@<->B`T66[\(3Q1[Y-@UQ5O*@_PS6#KR/Y'#4HSR:PT=SXW^QC"
^XMB(3.9,22,2,1463,0)="""DATA"",396.18,192,3,668,0)"
^XMB(3.9,22,2,1464,0)="MG#ZM_44]%9YI/<T4OO:NU/B0M%_]^H%TP:GNQ:>HJZLR*=0#NX$B1>ET;X0_"
^XMB(3.9,22,2,1465,0)="""DATA"",396.18,192,3,669,0)"
^XMB(3.9,22,2,1466,0)="M,^?[B:=/>]Q9;OPZR;U.<J]F\'62>YWD_M]-<M]S\B+?J\:J05SEP$':^:Z+"
^XMB(3.9,22,2,1467,0)="""DATA"",396.18,192,3,670,0)"
^XMB(3.9,22,2,1468,0)="M53)<PV%;ABEN7'14=]RE1B(_0B!Y1UHPBF]ZYR^7.X0GP7<D.DVC_QWYZ+\P"
^XMB(3.9,22,2,1469,0)="""DATA"",396.18,192,3,671,0)"
^XMB(3.9,22,2,1470,0)="MELVW?Q$O""M07G71BVCUN_VO-XN)_A?AOIC5C6:61B)MVI..FP_X/W3,0S\5_"
^XMB(3.9,22,2,1471,0)="""DATA"",396.18,192,3,672,0)"
^XMB(3.9,22,2,1472,0)="M+8^(>H53XX[G!NR*3,'&)JB1%KWJT.LFUX_?Y#K98E)YM8T1O0Z6U\'R?V*P"
^XMB(3.9,22,2,1473,0)="""DATA"",396.18,192,3,673,0)"
^XMB(3.9,22,2,1474,0)="M<#1>J#2$DUFG8)PKW2C&FSA[A&M3RZXL#Y=3OB8<CHNWM/_MD%VUD;Y[Y^],"
^XMB(3.9,22,2,1475,0)="""DATA"",396.18,192,3,674,0)"
^XMB(3.9,22,2,1476,0)="MKM5.5T9RO?,E=Q9C?''V&HBS=XXXP^?UH^M$@;NN8UQJX=&_I$1/XXTOU'X#"
^XMB(3.9,22,2,1477,0)="""DATA"",396.18,192,3,675,0)"
^XMB(3.9,22,2,1478,0)="MH?:9-P7>G#YEO!23WTW%OK=IR(WMG0?K=]`U>1=#DU_BC[I2Z6H=9L2%@4[*"
^XMB(3.9,22,2,1479,0)="""DATA"",396.18,192,3,676,0)"
^XMB(3.9,22,2,1480,0)="MGHMHEF0QEA9%_4)7JS^L]&.G\!%3U4*1Z.I4K7LIN9+QJXNGRF9W@W[(/Y@T"
^XMB(3.9,22,2,1481,0)="""DATA"",396.18,192,3,677,0)"
^XMB(3.9,22,2,1482,0)="ML.##<><$8.IO(""B>I2-G[H21=?3&2M[,;VYD_@NA5ZI:AQ.4C23Y&K/9B2V="
^XMB(3.9,22,2,1483,0)="""DATA"",396.18,192,3,678,0)"
^XMB(3.9,22,2,1484,0)="M;$IY)><[3R)_<L(BD3Q/(+_59XA4%5V7@ZZ"":@^#!XC?'T>?@""285ZA,;$27"
^XMB(3.9,22,2,1485,0)="""DATA"",396.18,192,3,679,0)"
^XMB(3.9,22,2,1486,0)="M`\K*4Y>A&XMQS*Y.H#+_Q/GC\!O.UI?EJU//U\)<T;Q57DQ29/'3B>LX=_T1"
^XMB(3.9,22,2,1487,0)="""DATA"",396.18,192,3,680,0)"
^XMB(3.9,22,2,1488,0)="M@EEVB0V(G/LVYU4[\14G2:K^,4S>_/E22?>UB?88(GY_BGYP=Q`Y!_%[4HKT"
^XMB(3.9,22,2,1489,0)="""DATA"",396.18,192,3,681,0)"
^XMB(3.9,22,2,1490,0)="M^PMV3Y)_#QJ=K""C&@6@8-&*18!(@=$\0>/`K?E5IB*W*U@\2B9F'G&_,=6HZ"
^XMB(3.9,22,2,1491,0)="""DATA"",396.18,192,3,682,0)"
^XMB(3.9,22,2,1492,0)="M_A=02P,$%``""``@`D(NX-`6\@R!-""0``KBL``!\```!%<&EL97!S>5].87)C"
^XMB(3.9,22,2,1493,0)="""DATA"",396.18,192,3,683,0)"
^XMB(3.9,22,2,1494,0)="M;VQE<'-Y7S$Q,2YP;FPN<F5PM5KK;^,V$O\>(/\#@>""`W2)!9$E^!;D]T#(M"
^XMB(3.9,22,2,1495,0)="""DATA"",396.18,192,3,684,0)"
^XMB(3.9,22,2,1496,0)="M$Y5(E:2<=0^+HD6+8H&F*7H]X/[\FZ%>UM-4#I<ON[+(>7$>OQDJDFG&A*:&"
^XMB(3.9,22,2,1497,0)="""DATA"",396.18,192,3,685,0)"
^XMB(3.9,22,2,1498,0)="M2T&HV!-\PO^SSS3EPOY^>\,RGK!,G^T*054D[>/MS=\=_FYOGI]E;K+<R,/A"
^XMB(3.9,22,2,1499,0)="""DATA"",396.18,192,3,686,0)"
^XMB(3.9,22,2,1500,0)="MTR?R^$@RF>49.4B5DG\""[1^R'W__Y3?_2W?E\S,7>R;*I[L[7)K^\OJV]/!O"
^XMB(3.9,22,2,1501,0)="""DATA"",396.18,192,3,687,0)"
^XMB(3.9,22,2,1502,0)="M<7=7_A9E+ZGZ\>>O;_&?;__^HW@;3+[UX>WMC6(GSEZ(/)""4[7E$$Z)8)-5>"
^XMB(3.9,22,2,1503,0)="""DATA"",396.18,192,3,688,0)"
^XMB(3.9,22,2,1504,0)="M3R@V)J-?2\A^_OK7LF+2^0FE^N9_^YLIP/-S^Z=/GV80""/H$@ED$_N\F$,#S"
^XMB(3.9,22,2,1505,0)="""DATA"",396.18,192,3,689,0)"
^XMB(3.9,22,2,1506,0)="MNCQC+A`]',""QR0O53Z14='""IB\YC3MAQ+?+""%)OD%CBIU(Z#2*8IO$8U<&NQ"
^XMB(3.9,22,2,1507,0)="""DATA"",396.18,192,3,690,0)"
^XMB(3.9,22,2,1508,0)="M.+0;.XL'B$-`,HCK(A*I8,FB'XI#06N7]E:6XK%4+I9W=PZ*E""LK4>VCDY3`"
^XMB(3.9,22,2,1509,0)="""DATA"",396.18,192,3,691,0)"
^XMB(3.9,22,2,1510,0)="MNN,)[81Q>U/9_LBUD:J?KQQ/E>ZYC)7,,S0UU\0<X0P)K<AB`CE*G7%#$_Y]"
^XMB(3.9,22,2,1511,0)="""DATA"",396.18,192,3,692,0)"
^XMB(3.9,22,2,1512,0)="MD4JE(CI7,5/G?[3.NB$UK.*PD1>CJ3%LVW$-`NH\36DA%4V2KF3:YO!2MI:["
^XMB(3.9,22,2,1513,0)="""DATA"",396.18,192,3,693,0)"
^XMB(3.9,22,2,1514,0)="MK!IWL:3Z3M\_@K'C;^L:N/A!;\N(I8VB>4J)D?B21$!#P0D+IDXRUT2?M6$I"
^XMB(3.9,22,2,1515,0)="""DATA"",396.18,192,3,694,0)"
^XMB(3.9,22,2,1516,0)="M^1`)_7'$\L$,RZ]<#;\!><TY8_<DD5%33??4L`_Z8R/WE,4W#A9?.1G<GV]P"
^XMB(3.9,22,2,1517,0)="""DATA"",396.18,192,3,695,0)"
^XMB(3.9,22,2,1518,0)="M?]3@@LDLH3H=,:<_QY&7#O9LDU^!7)""?[6&;/(6X2L&78T&%&1%H-9$_&RZ0"
^XMB(3.9,22,2,1519,0)="""DATA"",396.18,192,3,696,0)"
^XMB(3.9,22,2,1520,0)="M&0R&,^""<R)`]I[&0&@R`)X5LZA1M%SJ1M(>(CHNG7A-J:$^=?>#,P?=*5].U"
^XMB(3.9,22,2,1521,0)="""DATA"",396.18,192,3,697,0)"
^XMB(3.9,22,2,1522,0)="MAQ52*T8-%@'R@8LHR?=<Q%6<?YQ@[7O.]O(;>Y4:@E\8$,/PTDD,CQI!6B;T"
^XMB(3.9,22,2,1523,0)="""DATA"",396.18,192,3,698,0)"
^XMB(3.9,22,2,1524,0)="MG;E<6M#2'R;H;K$%RDT%.#-Z]W""M[!S'0,5O!'0J:^7""MB::\>_SB_)O%PWH"
^XMB(3.9,22,2,1525,0)="""DATA"",396.18,192,3,699,0)"
^XMB(3.9,22,2,1526,0)="M,5A[MO.#&O=@#%:,]7T3XYG4YH%'4!G`(N*0(^K78\5JZV1LL.Q.[N1GJW>N"
^XMB(3.9,22,2,1527,0)="""DATA"",396.18,192,3,700,0)"
^XMB(3.9,22,2,1528,0)="M;!ILH$[U<E1?J9*O__IK]_8?IWIQN=K&`UJYU!-B3@/8@L/>G:M4]C0$C!HB"
^XMB(3.9,22,2,1529,0)="""DATA"",396.18,192,3,701,0)"
^XMB(3.9,22,2,1530,0)="M8P=>KUC/$@H+<0:0CV/M-1B*<`HTCA4]%8\'"""".I](70>EK""]<01K%K^'MH("
^XMB(3.9,22,2,1531,0)="""DATA"",396.18,192,3,702,0)"
^XMB(3.9,22,2,1532,0)="M8CI2/""O`R*%T?1>)6F&Q:85%.&4EL#*<;NAHI7HUV=$R[0[GR98EREW.E@@6"
^XMB(3.9,22,2,1533,0)="""DATA"",396.18,192,3,703,0)"
^XMB(3.9,22,2,1534,0)="M?4LTB:#@?!A-T6WE@\68\I5G#WC(U04#$=PL)@?%OLN9B,Z7/>J):VXTP5=<"
^XMB(3.9,22,2,1535,0)="""DATA"",396.18,192,3,704,0)"
^XMB(3.9,22,2,1536,0)="ML7TOP-;C"":5<L9DCQZ8K![S4<E\4G686T!-C<U6,[1PQME-BQ`SP'T)<MB="""
^XMB(3.9,22,2,1537,0)="""DATA"",396.18,192,3,705,0)"
^XMB(3.9,22,2,1538,0)="MB@=(:%`!-3\Q4HTN>O)MK\JW\.8(B*O;$EY*Y2+1PKLNTF*62(NN2)JG&32\"
^XMB(3.9,22,2,1539,0)="""DATA"",396.18,192,3,706,0)"
^XMB(3.9,22,2,1540,0)="M&56&@RN-B[*XGJ4WLQ(BNA%PBHXRE>:B(A$*Z3HZ4@79AREKJ]V57+VY%HB+"
^XMB(3.9,22,2,1541,0)="""DATA"",396.18,192,3,707,0)"
^XMB(3.9,22,2,1542,0)="M8):5@JZ5X`U8Z7//3#TY""07R*474HXT%8@#)'D&[SM&?\L265_+""S9'D`G[2"
^XMB(3.9,22,2,1543,0)="""DATA"",396.18,192,3,708,0)"
^XMB(3.9,22,2,1544,0)="M$8=^13""M^\8/KOM!.$O#\/T:[A1G[6!3H*-,27&,J3PQBZ;NR1&ZS3PJ9X;P"
^XMB(3.9,22,2,1545,0)="""DATA"",396.18,192,3,709,0)"
^XMB(3.9,22,2,1546,0)="MG#$5L<SD0)XG28$O[@G="">@)P#2&E[CUR,6W4'_N""699=;XGEJS<V_^@@85,"
^XMB(3.9,22,2,1547,0)="""DATA"",396.18,192,3,710,0)"
^XMB(3.9,22,2,1548,0)="MP<!0TDVN=E1$;,!DX92_%F5C-:LTK>SHQASEGN0:3`']YIZ!75*`NIV8JCP9"
^XMB(3.9,22,2,1549,0)="""DATA"",396.18,192,3,711,0)"
^XMB(3.9,22,2,1550,0)="MQ!W-C9,%;>5>T(*I@E;(.U7#1@NX?1NZSFMPI>W(1)[N@#$V(AT(I@D7A-'H"
^XMB(3.9,22,2,1551,0)="""DATA"",396.18,192,3,712,0)"
^XMB(3.9,22,2,1552,0)="M2*!F00]+\5""%.=X7BV%OW;G4^&=D>&49CL9\NQGUWM'Y8N(^EBWFS)/%>!$Q"
^XMB(3.9,22,2,1553,0)="""DATA"",396.18,192,3,713,0)"
^XMB(3.9,22,2,1554,0)="MN`<HB]LS1/D+_\&JBA'`Y7ZL;_9F86H[(BNX6=/6@CX--3'-+L?N(EB\8T:#"
^XMB(3.9,22,2,1555,0)="""DATA"",396.18,192,3,714,0)"
^XMB(3.9,22,2,1556,0)="MY073=]%0Z'.:03;4T'3&(*3%E-8F8$$0%)W#AO3@E`'=`E[&5$""H[Q0%#?59"
^XMB(3.9,22,2,1557,0)="""DATA"",396.18,192,3,715,0)"
^XMB(3.9,22,2,1558,0)="M[)5,&>ZI_%M@NU*#>W.DAJ04DA0#.)2`/]DXK9+9V/QGUNAM[3@!""E;]R*PM"
^XMB(3.9,22,2,1559,0)="""DATA"",396.18,192,3,716,0)"
^XMB(3.9,22,2,1560,0)="M8M%;2_:)YC-830;IVCE($4$6AM,\%OP`Z%&8NAV:""#8[^FO>5DR:0>OM378\"
^XMB(3.9,22,2,1561,0)="""DATA"",396.18,192,3,717,0)"
^XMB(3.9,22,2,1562,0)="M:XM&6_=$[[W^04MOOLSUOW5SN8`SFD7[T6\_!NU'K_6X:3VM[>70""8>FUG+Z"
^XMB(3.9,22,2,1563,0)="""DATA"",396.18,192,3,718,0)"
^XMB(3.9,22,2,1564,0)="M]N:A^7,;8B`-PU+(`-1T.WX$Z(?Q\8)%2@`8VILPD?_TQ^OX-JL2A%K&@24&"
^XMB(3.9,22,2,1565,0)="""DATA"",396.18,192,3,719,0)"
^XMB(3.9,22,2,1566,0)="M%?S3)C&!+VL3[1*HO#9D=5=L""TL>+W]`E5]?C[].T,13.#(>']O#&QRP0!:+"
^XMB(3.9,22,2,1567,0)="""DATA"",396.18,192,3,720,0)"
^XMB(3.9,22,2,1568,0)="MCDQ/;,83?1G8C`&<R5SLM4MJ6]=4ROSY-)P7IAKL32\?!PW51`Z`.#36WRS."
^XMB(3.9,22,2,1569,0)="""DATA"",396.18,192,3,721,0)"
^XMB(3.9,22,2,1570,0)="M@@QITQ*TFRP!]#""-[,*&;@Q9L$<W=*;;FQUO)NYJ@HUS6D'_O$PH=2HXP')("
^XMB(3.9,22,2,1571,0)="""DATA"",396.18,192,3,722,0)"
^XMB(3.9,22,2,1572,0)="M^@""""M981M^G8`EY;[:NDC14`VM?+H=YH(K)(GURYY`$48:H;6T<5L)ED+,9P"
^XMB(3.9,22,2,1573,0)="""DATA"",396.18,192,3,723,0)"
^XMB(3.9,22,2,1574,0)="MR1,S""3RV4\DX]%RM%I;1B>RP'*""I(FNAR!`-=@3XJ_B$(*'GAH""6[RCDRR+0"
^XMB(3.9,22,2,1575,0)="""DATA"",396.18,192,3,724,0)"
^XMB(3.9,22,2,1576,0)="MBDI^*27>'UGSDF*D#.+*`NA@VH>5F51C8_AE46:O'%X]>;DH'JU-`Q\""C'Y`"
^XMB(3.9,22,2,1577,0)="""DATA"",396.18,192,3,725,0)"
^XMB(3.9,22,2,1578,0)="MX/NK+VXWI[[G^\'8!P3X<AO:(@`9/)%G.U6O[Q`?>G\."".&29ZZQ)Y)1E&?5"
^XMB(3.9,22,2,1579,0)="""DATA"",396.18,192,3,726,0)"
^XMB(3.9,22,2,1580,0)="MB'00""]1[W(#BL`Z`MD[8MP""\BG*E8$MR)H5:K`--.YO=FI)*2/3ODL&8:IN^"
^XMB(3.9,22,2,1581,0)="""DATA"",396.18,192,3,727,0)"
^XMB(3.9,22,2,1582,0)="M:HX8^.WUIS=H_'&++0I5K]$<3Y,G6VN==&AM\2]FU[93+G6ZQLJ?S\I>Y'``"
^XMB(3.9,22,2,1583,0)="""DATA"",396.18,192,3,728,0)"
^XMB(3.9,22,2,1584,0)="MN%!`#`!Z:*I?I/H6V2-V3@9ZB6'>GE/EJHSN8_:+*'2UU<WD@`R`OT?X-^=I"
^XMB(3.9,22,2,1585,0)="""DATA"",396.18,192,3,729,0)"
^XMB(3.9,22,2,1586,0)="M^;8/U'>[**B7-Q""U\9GFOA[*#/8-4#IP+!';3J#XR<J&.>A*[/CK]\:.UXX="
^XMB(3.9,22,2,1587,0)="""DATA"",396.18,192,3,730,0)"
^XMB(3.9,22,2,1588,0)="MQ0P.6Z<""QG/R`/P.QO>\0O7J<JB@WK[BJM<YD:V'8[43VQ/N$1^*QL[>><ZT"
^XMB(3.9,22,2,1589,0)="""DATA"",396.18,192,3,731,0)"
^XMB(3.9,22,2,1590,0)="M;#YQ>:R10*;D+F&IONHNRWG,5M40$<""%@D;1F<]J'I^@=LMK5AQB%KS7YX*V"
^XMB(3.9,22,2,1591,0)="""DATA"",396.18,192,3,732,0)"
^XMB(3.9,22,2,1592,0)="MS^6BRM-DEQLBI'%QPV!F(O**A#""4\RH!1K*>-QWN_2+AAQ8$48VCT)B?F+""W"
^XMB(3.9,22,2,1593,0)="""DATA"",396.18,192,3,733,0)"
^XMB(3.9,22,2,1594,0)="M+QTV4P7##Z]]&30*!!I1G`:!Y<+NUS3L<&`1@B/1SEC%53R'VDHCPT]VNODT"
^XMB(3.9,22,2,1595,0)="""DATA"",396.18,192,3,734,0)"
^XMB(3.9,22,2,1596,0)="M]BG69(/O_-'4TN&[+UPV""6`7S@#6?BP!VB8RKNY?[)3EWEX?<Y76[M-\3&&M"
^XMB(3.9,22,2,1597,0)="""DATA"",396.18,192,3,735,0)"
^XMB(3.9,22,2,1598,0)="MTIF)E#>T58KGAW)`--4(A`LW\/N.*_)M^7T)K>_79,8%""FL';-JPL0'>=LX8"
^XMB(3.9,22,2,1599,0)="""DATA"",396.18,192,3,736,0)"
^XMB(3.9,22,2,1600,0)="MR9OZ3LY""S6N?6B&%_P)02P$""%@L4``(`""`""0B[@T7WXVDBXN```(\P``&P``"
^XMB(3.9,22,2,1601,0)="""DATA"",396.18,192,3,737,0)"
^XMB(3.9,22,2,1602,0)="M```````!`""``@($`````17!I;&5P<WE?3F%R8V]L97!S>5\Q,3$N<&YL4$L!"
^XMB(3.9,22,2,1603,0)="""DATA"",396.18,192,3,738,0)"
^XMB(3.9,22,2,1604,0)="M`A8+%``""``@`DHNX-&E;-H7G,P``L*$!`!\``````````0`@`(""!9RX``&5P"
^XMB(3.9,22,2,1605,0)="""DATA"",396.18,192,3,739,0)"
^XMB(3.9,22,2,1606,0)="M:6QE<'-Y7TYA<F-O;&5P<WE?,3$Q+G!N;""YF<FU02P$""%@L4``(`""`""0B[@T"
^XMB(3.9,22,2,1607,0)="""DATA"",396.18,192,3,740,0)"
^XMB(3.9,22,2,1608,0)="MZVL>%L(4```_F```'P`````````!`""``@(&+8@``17!I;&5P<WE?3F%R8V]L"
^XMB(3.9,22,2,1609,0)="""DATA"",396.18,192,3,741,0)"
^XMB(3.9,22,2,1610,0)="M97!S>5\Q,3$N<&YL+F-D95!+`0(6""Q0``@`(`)""+N#0%O(,@30D``*XK```?"
^XMB(3.9,22,2,1611,0)="""DATA"",396.18,192,3,742,0)"
^XMB(3.9,22,2,1612,0)="M``````````$`(`""`@8IW``!%<&EL97!S>5].87)C;VQE<'-Y7S$Q,2YP;FPN"
^XMB(3.9,22,2,1613,0)="""DATA"",396.18,192,3,743,0)"
^XMB(3.9,22,2,1614,0)="9<F5P4$L%!@`````$``0`,`$``!2!````````"
^XMB(3.9,22,2,1615,0)="""DATA"",396.18,192,3,744,0)"
^XMB(3.9,22,2,1616,0)="end"
^XMB(3.9,22,2,1617,0)="""DATA"",396.18,192,4)"
^XMB(3.9,22,2,1618,0)="9^2061393234"
^XMB(3.9,22,2,1619,0)="""DATA"",396.18,192,6)"
^XMB(3.9,22,2,1620,0)="1^460"
^XMB(3.9,22,2,1621,0)="""DATA"",396.18,193,0)"
^XMB(3.9,22,2,1622,0)="ESOPHAGUS AND HIATAL HERNIA~111F"
^XMB(3.9,22,2,1623,0)="""DATA"",396.18,193,1,0)"
^XMB(3.9,22,2,1624,0)="^^2^2^3060728"
^XMB(3.9,22,2,1625,0)="""DATA"",396.18,193,1,1,0)"
^XMB(3.9,22,2,1626,0)="Last updated on 05/25/2006 ~111 "
^XMB(3.9,22,2,1627,0)="""DATA"",396.18,193,1,2,0)"
^XMB(3.9,22,2,1628,0)="Patch DVBA*2.7*111"
^XMB(3.9,22,2,1629,0)="""DATA"",396.18,193,2)"
^XMB(3.9,22,2,1630,0)="3060502^^3060525.1417"
^XMB(3.9,22,2,1631,0)="""DATA"",396.18,193,3,0)"
^XMB(3.9,22,2,1632,0)="^396.184^726^726^3060525^^^^"
^XMB(3.9,22,2,1633,0)="""DATA"",396.18,193,3,1,0)"
^XMB(3.9,22,2,1634,0)="begin 664 esophagus_111.pnl.zip"
^XMB(3.9,22,2,1635,0)="""DATA"",396.18,193,3,2,0)"
^XMB(3.9,22,2,1636,0)="M4$L#!!0``@`(`$UJN32VVPI3G2L``/K]```1````17-O<&AA9W5S7S$Q,2YP"
^XMB(3.9,22,2,1637,0)="""DATA"",396.18,193,3,3,0)"
^XMB(3.9,22,2,1638,0)="M;FSD70ML9-=9OC-C7]MC[RO[S':3W&Q>NZG7.T_/C)6V\6L?P5X[]NPZH1'I"
^XMB(3.9,22,2,1639,0)="""DATA"",396.18,193,3,4,0)"
^XMB(3.9,22,2,1640,0)="M]<P9^V;OW#NY#WLG)$%16U45K0044$L5('T(51`$)6HIE5H)!2&A5*!2""J40"
^XMB(3.9,22,2,1641,0)="""DATA"",396.18,193,3,5,0)"
^XMB(3.9,22,2,1642,0)="M\6@E0%5+U8*$0""KG>>><N6=>]K)^L-+NVO/XS_G^\[_/.?\M+EY*J,5%W0+F"
^XMB(3.9,22,2,1643,0)="""DATA"",396.18,193,3,6,0)"
^XMB(3.9,22,2,1644,0)="MD5LU]-^4[H)IV_(<V^R;`Q4OJL2*=BUZN'_%*'OKL1]'U2O`6%OW8I^/Q*?`"
^XMB(3.9,22,2,1645,0)="""DATA"",396.18,193,3,7,0)"
^XMB(3.9,22,2,1646,0)="M!C`7?`\X`^KJQC7;`L?A5UW/T0W+<\?F]5O!9X\UO<&HB5\PK!9?,""SVA:%%"
^XMB(3.9,22,2,1647,0)="""DATA"",396.18,193,3,8,0)"
^XMB(3.9,22,2,1648,0)="MN^;7YH'E#QR;A^]>LIWJV*W@Q>1@45]=<,K`B2J*4L3PYO158![""_Q;K-;!0"
^XMB(3.9,22,2,1649,0)="""DATA"",396.18,193,3,9,0)"
^XMB(3.9,22,2,1650,0)="M0=_!X&+YGV!T@P1=]!$*+GI@8%JO>89MJ?WSLTN79P52P_A?1.3JC$#F%""5S"
^XMB(3.9,22,2,1651,0)="""DATA"",396.18,193,3,10,0)"
^XMB(3.9,22,2,1652,0)="M3YA,W^SRPB*C@OD]C%YY%O^8(YQ^#!/IHYR>##C]6J3O""F2#VK^XL'A]D7#]"
^XMB(3.9,22,2,1653,0)="""DATA"",396.18,193,3,11,0)"
^XMB(3.9,22,2,1654,0)="MJF5!K@^N;BSIA@O*PU,VPKSLU4T`7W67#6O-!/W3MFG#3Y7,9</<`,[();BP"
^XMB(3.9,22,2,1655,0)="""DATA"",396.18,193,3,12,0)"
^XMB(3.9,22,2,1656,0)="M8]/KNN,"";^#0S.RER>MSQ6>GKTPN+<\6X^1=_)6!DCEEZJ6;P_@UBN8_AO!O"
^XMB(3.9,22,2,1657,0)="""DATA"",396.18,193,3,13,0)"
^XMB(3.9,22,2,1658,0)="MU_0J4`_,+VO+NN5JR\`Q*N2K>/1A);ZH.\#RT$N#_&I0[HU@W/C'=(:P[U6%"
^XMB(3.9,22,2,1659,0)="""DATA"",396.18,193,3,14,0)"
^XMB(3.9,22,2,1660,0)="M7X58-,+X=SC@WP.SKEU;U]=\=T);=.Q5$U2UY1HH&16CI%TQ7,]VZMN$]Z.N"
^XMB(3.9,22,2,1661,0)="""DATA"",396.18,193,3,15,0)"
^XMB(3.9,22,2,1662,0)="MX*D5=\HVRP+*`-N!!K9D-DO`/15!X&)^A`K'30;N=`!N]%&("";AP-'^U:GB:"
^XMB(3.9,22,2,1663,0)="""DATA"",396.18,193,3,16,0)"
^XMB(3.9,22,2,1664,0)="M9VMZN:Q!\HX!7/2KMP[@F]6J[M0'5^!2KSAZ;4A1!HI3ON?9%AF7_)S,DW'?"
^XMB(3.9,22,2,1665,0)="""DATA"",396.18,193,3,17,0)"
^XMB(3.9,22,2,1666,0)="MQ$R-O1AIENU##=F>-H'N--8H-K!@39M&Z>;`T5N$V&4`Q<PHX1=;#%<@PPT2"
^XMB(3.9,22,2,1667,0)="""DATA"",396.18,193,3,18,0)"
^XMB(3.9,22,2,1668,0)="MF+?8<#_%AKL[&$XE\!KC1;8P7BI)QGM#Z3@>A&>[8"">%/MH!8+RX7(*&UIRR"
^XMB(3.9,22,2,1669,0)="""DATA"",396.18,193,3,19,0)"
^XMB(3.9,22,2,1670,0)="M;QW""&(-?4\0D#&+%>)`JQH7`),Q&3ERQG1?HQW5GK.C`B4.E'SIZ`SA>X_4E"
^XMB(3.9,22,2,1671,0)="""DATA"",396.18,193,3,20,0)"
^XMB(3.9,22,2,1672,0)="MW5H#L3/1$^++P<?CD[YGD]<[*2N1Y^@)/*4G*-NML*D[R?1S%<`1M#+P=,,$"
^XMB(3.9,22,2,1673,0)="""DATA"",396.18,193,3,21,0)"
^XMB(3.9,22,2,1674,0)="MY8D[OQ!2&#D>QB;E[%]&PCC6BD3OP""T/$M1JMNL:$-<H1.26'&,5X'=+AE/R"
^XMB(3.9,22,2,1675,0)="""DATA"",396.18,193,3,22,0)"
^XMB(3.9,22,2,1676,0)="MJZZG6R6HJKI5U@S+\`S=U*JZ950`?`=1<S6[@C]?AN8:NEC-=N`'G_.=^@[P"
^XMB(3.9,22,2,1677,0)="""DATA"",396.18,193,3,23,0)"
^XMB(3.9,22,2,1678,0)="MA3<A$@Y1`[(8$5;Z\3""'#LSH'D#`(#[@;1/'CV_/^F829'U/8O/P-PJ=_4^'"
^XMB(3.9,22,2,1679,0)="""DATA"",396.18,193,3,24,0)"
^XMB(3.9,22,2,1680,0)="M9W_7M.W#J6JN`9?NMD""X32*:21,(QS&$KS`+MQB&<&@!BI2CE>QJ%1)T)Z3+"
^XMB(3.9,22,2,1681,0)="""DATA"",396.18,193,3,25,0)"
^XMB(3.9,22,2,1682,0)="M20WT;R@""1V*?4\+T'I[V'30US7.`[F&:6@5*JK=NN'`4JVR@C^TZB<U0GW`O"
^XMB(3.9,22,2,1683,0)="""DATA"",396.18,193,3,26,0)"
^XMB(3.9,22,2,1684,0)="M\4%9RK'87T@@7IAAVNL:9:C<E0HH(92.7=5*S>@G!F8M'>I\N=,$LOR*!>-_"
^XMB(3.9,22,2,1685,0)="""DATA"",396.18,193,3,27,0)"
^XMB(3.9,22,2,1686,0)="M4#+^F6#\T&ANV^'XV((ZW:C*NX?H4'BT:')L!V6:GW(JP4_YF3933NV:*5.Q"
^XMB(3.9,22,2,1687,0)="""DATA"",396.18,193,3,28,0)"
^XMB(3.9,22,2,1688,0)="M>CS2<<[I'9ES?W$6:F0<3QG]5!`,]]-4""C\?2.%QFD<D$ZE$@HM2$*5Y4+4)"
^XMB(3.9,22,2,1689,0)="""DATA"",396.18,193,3,29,0)"
^XMB(3.9,22,2,1690,0)="M)?03[R1C'V(FX[\""+WFE02F9NXV&?QC99`.:M&M@4P!^8,ZP@`M_<V!,X494"
^XMB(3.9,22,2,1691,0)="""DATA"",396.18,193,3,30,0)"
^XMB(3.9,22,2,1692,0)="M16!%/(ALW(&XZZ)8QRCI)A?9*LI@<0ZF""3""THDM,?DGQBOLOS%O\',-YB<.9"
^XMB(3.9,22,2,1693,0)="""DATA"",396.18,193,3,31,0)"
^XMB(3.9,22,2,1694,0)="M/3B+(H$R*""\#$QJ-P?A5#U29+!Q`OW`35)<]I,KJ41@-K:'@WH!96UW;M""&3"
^XMB(3.9,22,2,1695,0)="""DATA"",396.18,193,3,32,0)"
^XMB(3.9,22,2,1696,0)="MU*&KU9IC;X""RIIZ^:L'\&8;%.,C8O*@YH&K`3T-_I/9C\ZXT8/2U@D$\1NS7"
^XMB(3.9,22,2,1697,0)="""DATA"",396.18,193,3,33,0)"
^XMB(3.9,22,2,1698,0)="M%0%'[/5@Z6<;0%+YGH#TH;Q>'9@'9<12=7#9=];P3_T+Q8N+13;)X7G?]`Q"""
^XMB(3.9,22,2,1699,0)="""DATA"",396.18,193,3,34,0)"
^XMB(3.9,22,2,1700,0)="M<*@QXWY%.52<7ER97]++AGW9L?W:<3QQ\;4T68?8D\2""_RL#\/L!@/,-`.E$"
^XMB(3.9,22,2,1701,0)="""DATA"",396.18,193,3,35,0)"
^XMB(3.9,22,2,1702,0)="M?'G=WB0I[^#($[[K&94ZGO;0`/IO42]SJ>.#RYT-_7L&H(#Z5<N%(3NSP<V,"
^XMB(3.9,22,2,1703,0)="""DATA"",396.18,193,3,36,0)"
^XMB(3.9,22,2,1704,0)="MB#T-7#5ZS>;60V6:,QQH3C+)2]0,<P4_#(""X#`C\4]@#JC,0M@[4+MX3Z8PQ"
^XMB(3.9,22,2,1705,0)="""DATA"",396.18,193,3,37,0)"
^XMB(3.9,22,2,1706,0)="M42@$#-T#8`?#8//\>OY9)&0*)SD3D=X#$+FRP0B75U.8=_&%K-C[@Q4]%ZC3"
^XMB(3.9,22,2,1707,0)="""DATA"",396.18,193,3,38,0)"
^XMB(3.9,22,2,1708,0)="M$>1I@AH,LC\[6E;:0@DA0\M.2Y&.8$>NHB*D7\(I7&/4>(=1AXK3=G75AH;Y"
^XMB(3.9,22,2,1709,0)="""DATA"",396.18,193,3,39,0)"
^XMB(3.9,22,2,1710,0)="M(#%V]+<DGWLR__SO8?\\GLD6!*/,U4R:S9*""_W""%Q9%&89%&,-%S>,""[Z8""_"
^XMB(3.9,22,2,1711,0)="""DATA"",396.18,193,3,40,0)"
^XMB(3.9,22,2,1712,0)="MQ)41NJTL$K\8W?UUQH@T7J86Z].DT'B4,N*(I-#X,%=H7,%O:G,P\T?Y^KQN"
^XMB(3.9,22,2,1713,0)="""DATA"",396.18,193,3,41,0)"
^XMB(3.9,22,2,1714,0)="M6CYD._K<[JHU)JG[_#""1Z&=I&'-:4LXFWKHKIYRD46`<$RU0IGTQ$%<ML/*I"
^XMB(3.9,22,2,1715,0)="""DATA"",396.18,193,3,42,0)"
^XMB(3.9,22,2,1716,0)="M?+XGEWR*L+2""""IXEWX.B:ONN=DGW`C<<""X4A\X995@?G;3B`[@%5G=>=FZ""L"
^XMB(3.9,22,2,1717,0)="""DATA"",396.18,193,3,43,0)"
^XMB(3.9,22,2,1718,0)="M""/7^KD(-*@M_J@BP_EX**]T3K!%D#4T8ZT'[[&X'2J1+*-20O1(1H+PM@Y++"
^XMB(3.9,22,2,1719,0)="""DATA"",396.18,193,3,44,0)"
^XMB(3.9,22,2,1720,0)="M]03ET>EUQ[:,$I+[1=MV8.AZ!>@F*NBMV+Y5Q@IQW2P!9UM`HUT""S?*2^$Q;"
^XMB(3.9,22,2,1721,0)="""DATA"",396.18,193,3,45,0)"
^XMB(3.9,22,2,1722,0)="M2<SVA//@O.^63*""MZ/!SUMIVL,2ZQ#(NR%][,)F>P)R<1F5=5YMTT!+A<N.\"
^XMB(3.9,22,2,1723,0)="""DATA"",396.18,193,3,46,0)"
^XMB(3.9,22,2,1724,0)="M[7OKVT'5UR4JWE;$7E':HNHM?N^?+8.JOAT,W28A>7YE.H$8[PF$NJB;R!ML"
^XMB(3.9,22,2,1725,0)="""DATA"",396.18,193,3,47,0)"
^XMB(3.9,22,2,1726,0)="M`X7:)8H""OQ*_U1Y$LB<00Y=-5`3WC&WI_$!W.&@AEZU&>R""Y0D]`!F><NK9\"
^XMB(3.9,22,2,1727,0)="""DATA"",396.18,193,3,48,0)"
^XMB(3.9,22,2,1728,0)="MT[""V@V.P2QQ)?CV^UGX]4KVMQQ7=<'!XLAT<0UWB2`GKT1Y(KC?M.#!E`E!&"
^XMB(3.9,22,2,1729,0)="""DATA"",396.18,193,3,49,0)"
^XMB(3.9,22,2,1730,0)="MSN6R7]T6F'B78-+\HOQG>RR]Q39'H&R-:E,P3(2A@(96:#MXAKO$DQ$6ISV@"
^XMB(3.9,22,2,1731,0)="""DATA"",396.18,193,3,50,0)"
^XMB(3.9,22,2,1732,0)="M?&^AP&&8Z\$<""""_/E`U#F^W@&0E73%(%(7BUFJ,8J/K<W/=""R>2`/.^D/C*F"
^XMB(3.9,22,2,1733,0)="""DATA"",396.18,193,3,51,0)"
^XMB(3.9,22,2,1734,0)="MD;K)?1VWKAL4#W9(.%OD?VQS_J])K'&9LO8BRWMBKRO[+@&,RA*DQ#BW*Q@="
^XMB(3.9,22,2,1735,0)="""DATA"",396.18,193,3,52,0)"
^XMB(3.9,22,2,1736,0)="MH'SXB1+._S0N_[L""XPXHX,`U2/X'3&#INROS2]""XZTD,K$@EZBG);B?:J\4Y"
^XMB(3.9,22,2,1737,0)="""DATA"",396.18,193,3,53,0)"
^XMB(3.9,22,2,1738,0)="M%Z@9+E10=Z+#)E,BSY-^@)(^'R8]M`S%!MJ[ND""Q40,Y)-9`A!FGZ%+\8K@("
^XMB(3.9,22,2,1739,0)="""DATA"",396.18,193,3,54,0)"
^XMB(3.9,22,2,1740,0)="MDDQE4BV*($I'PX.G!!2V1S(<[)$DL_SP>MOATT)&)E5ING_@""!%C-QH=W:)&"
^XMB(3.9,22,2,1741,0)="""DATA"",396.18,193,3,55,0)"
^XMB(3.9,22,2,1742,0)="MTQCU!XIP?D$)-/J5SAJ]F[0U)I4\XLVB!P5M_8Y$6^_EM)7^""+-4;<8P]=U7"
^XMB(3.9,22,2,1743,0)="""DATA"",396.18,193,3,56,0)"
^XMB(3.9,22,2,1744,0)="MI4ED>2-T'X7U)Y)-XD>O^=55Z)>@MI8I%%<S+)S1U6""FJB536A6.L^YVIW*"""
^XMB(3.9,22,2,1745,0)="""DATA"",396.18,193,3,57,0)"
^XMB(3.9,22,2,1746,0)="M];M`!WY+)O/I?-<JA_>%(DDUDE(C:36242-9-3*N1G)J[-U:3FFA,'0;^`:>"
^XMB(3.9,22,2,1747,0)="""DATA"",396.18,193,3,58,0)"
^XMB(3.9,22,2,1748,0)="MRE/=ZTMDB_I""?>Z?$WU)LXVQ0%^^O?\\8)]4^&@Z]0'""B&'*B(])E.HHIU0W"
^XMB(3.9,22,2,1749,0)="""DATA"",396.18,193,3,59,0)"
^XMB(3.9,22,2,1750,0)="M[*J!""B.[3).2O(%XI/ED94.13EQRP/,^L$IUI$L;%,R$G&B*)WJ#$GV?A.BB"
^XMB(3.9,22,2,1751,0)="""DATA"",396.18,193,3,60,0)"
^XMB(3.9,22,2,1752,0)="M`TI&S4`GNV!,7-%+GNVX+8C2G=DO*,)4KTC.\@0'0VQ4HFV<!6FCUUE^QN/M"
^XMB(3.9,22,2,1753,0)="""DATA"",396.18,193,3,61,0)"
^XMB(3.9,22,2,1754,0)="M?%DVT:U>'\6N$QI1SX""1CU;6#;.N]L_@_XZ)[^G:)@`W574%_@O?/?`8-%""Z"
^XMB(3.9,22,2,1755,0)="""DATA"",396.18,193,3,62,0)"
^XMB(3.9,22,2,1756,0)="MA5\TZRT,0(HZL-=)IO*%'EQFI^.IP=;X07YK/""DL*P@QZ5V<P\_UM#,^.&G5"
^XMB(3.9,22,2,1757,0)="""DATA"",396.18,193,3,63,0)"
^XMB(3.9,22,2,1758,0)="MM2KT-^J!:9@#Z-!`5VR[[*IW+8&2:5A(.&JV:_""%]Q;;Y!%)6I03)""=')_[-"
^XMB(3.9,22,2,1759,0)="""DATA"",396.18,193,3,64,0)"
^XMB(3.9,22,2,1760,0)="M8.(FFW@AFTSLI4W6:&MK3=/8KXKYRKZVUOV2\V0%6B/^!=%8?U1BK(]PQOJ:"
^XMB(3.9,22,2,1761,0)="""DATA"",396.18,193,3,65,0)"
^XMB(3.9,22,2,1762,0)="M[KM@%R0H/!(:[9_!0$:ILJ^%S=\QP5);&(GT/&,ASU-\9NMFFJ=)\^2W""+_?"
^XMB(3.9,22,2,1763,0)="""DATA"",396.18,193,3,66,0)"
^XMB(3.9,22,2,1764,0)="MN24K'5+@<8'H!%W$KP6+:'.6)[_'%%AJVL<%T_[&;33M\>+""$K7GQ`4&OR9Y"
^XMB(3.9,22,2,1765,0)="""DATA"",396.18,193,3,67,0)"
^XMB(3.9,22,2,1766,0)="M:7BNM74O9!.%.VO=#Q*6HE(;FL/@8..GAMT?0:,6C5I@D%8,JVQO#L[9UAI"""
^XMB(3.9,22,2,1767,0)="""DATA"",396.18,193,3,68,0)"
^XMB(3.9,22,2,1768,0)="MV,[[9WCH$ZV]/_0/R1WP_JUL/(V(_H""HQ7OHO/\J*/?]X_ZS\:K,YM""XY(B0"
^XMB(3.9,22,2,1769,0)="""DATA"",396.18,193,3,69,0)"
^XMB(3.9,22,2,1770,0)="MY+XA,?&G.!._!-;0^3MOEZ2W/!XJCJ<QGG-4]U\.F]!W"");>X0')C7.6)[Q,"
^XMB(3.9,22,2,1771,0)="""DATA"",396.18,193,3,70,0)"
^XMB(3.9,22,2,1772,0)="M""6^$""9]&]Q;QF74)W99:E.:ILQCZ4](8NM""S%A6IILSH82UB[ZTT:5$1:=$*"
^XMB(3.9,22,2,1773,0)="""DATA"",396.18,193,3,71,0)"
^XMB(3.9,22,2,1774,0)="MTZ(606V""G_5J:-97N5GW=MQS&-\)TRJF;Y35NZ8,$UQPD?$#9?K:H>M6V5@#"
^XMB(3.9,22,2,1775,0)="""DATA"",396.18,193,3,72,0)"
^XMB(3.9,22,2,1776,0)="MKH=>@091/0D%`UUX,>N:^,9]4R;\#U5.2W:E`L""%-;(OC8JJ#OQ""FV!8ZEZH"
^XMB(3.9,22,2,1777,0)="""DATA"",396.18,193,3,73,0)"
^XMB(3.9,22,2,1778,0)="M@$UB[_+%.U!K2PG5\_=2+O]18*D^J.R#BYD#$I7+TSWD$0Q\B`+_I,0V'1/*"
^XMB(3.9,22,2,1779,0)="""DATA"",396.18,193,3,74,0)"
^XMB(3.9,22,2,1780,0)="MY5`05GUGE]FE!'^RD27@STONK0EV:9V!:6<[4CSI;-M:\IW)OXL=\V]6,TCB"
^XMB(3.9,22,2,1781,0)="""DATA"",396.18,193,3,75,0)"
^XMB(3.9,22,2,1782,0)="M.:_\WQ?@$OSUH^@T9=)&D-)]?3\HT:!,B6C5=08#[Z?`_[93%;MFK.DN%(:2"
^XMB(3.9,22,2,1783,0)="""DATA"",396.18,193,3,76,0)"
^XMB(3.9,22,2,1784,0)="M-@-M/;HYL*O4*4_K-Y\CZWEOZXQ.K+V5*9B&BQ_FRF2\'CU)22Z$21Z9LTO8"
^XMB(3.9,22,2,1785,0)="""DATA"",396.18,193,3,77,0)"
^XMB(3.9,22,2,1786,0)="MH2.*->B5^/PK3);?G`G(RO;&A)EVIDLK,]]7!,)SDOFRG3$97:EVT@+(KY`4"
^XMB(3.9,22,2,1787,0)="""DATA"",396.18,193,3,78,0)"
^XMB(3.9,22,2,1788,0)="MZK60DSO34C^5+9Y)S@KK>:&E$4NEDX6N#R7?1B/6?/SAF.SX`R\_=&,E>HLA"
^XMB(3.9,22,2,1789,0)="""DATA"",396.18,193,3,79,0)"
^XMB(3.9,22,2,1790,0)="M>""1`D$KT=O3LV&2I9%=KNF7`F&:UCI>0NRK2Q0V1:&O&CPM21&.XJ!_F>RJ1"
^XMB(3.9,22,2,1791,0)="""DATA"",396.18,193,3,80,0)"
^XMB(3.9,22,2,1792,0)="M#L2FQ0+$NM\0;>G,\KRVM)U.LM-T^D*WH2;-3;WNJG&J:1Y<Z9&%4DE'%YU0"
^XMB(3.9,22,2,1793,0)="""DATA"",396.18,193,3,81,0)"
^XMB(3.9,22,2,1794,0)="MZ*BTR_&%3(G-[`:;V1@WLU0PLYZ""WOBROPKC5@=.18U-.E45Y>J^6=Y*2M_?"
^XMB(3.9,22,2,1795,0)="""DATA"",396.18,193,3,82,0)"
^XMB(3.9,22,2,1796,0)="M14K?H@\(K4)]6=RKF@U<97;_'=<?DKB8'%7GZY@-\5!R(X\^9^HN^M'87?7/"
^XMB(3.9,22,2,1797,0)="""DATA"",396.18,193,3,83,0)"
^XMB(3.9,22,2,1798,0)="MG-`U89[*KA=V%7=/0Z/G;J)3HIN:;<%DRC2>A_F6O&""9$[H8O!0J+7+WG5O1"
^XMB(3.9,22,2,1799,0)="""DATA"",396.18,193,3,84,0)"
^XMB(3.9,22,2,1800,0)="MQ;T*7+OBP7],@Z1LTK'R:?XRZ.\H;3H_\&-UHIKA$6@4P2<:""(BH]^5RJ43C"
^XMB(3.9,22,2,1801,0)="""DATA"",396.18,193,3,85,0)"
^XMB(3.9,22,2,1802,0)="M<$[(45=\DXTH;.SQ(_%+$/L6F__EMB,=+/JK0*N04XGN1&LK+BS$10KC9$2V"
^XMB(3.9,22,2,1803,0)="""DATA"",396.18,193,3,86,0)"
^XMB(3.9,22,2,1804,0)="MM=YU$8Y9R\/SMNNQQA'(6ZJ)AOW4SJ&;!J3FAOVKMNI[FNYI,'^'WR+^\[Q:"
^XMB(3.9,22,2,1805,0)="""DATA"",396.18,193,3,87,0)"
^XMB(3.9,22,2,1806,0)="MX*TL_QT;=3T@SE?\)CY8@+YZ>@G*MO@E]I[2FB%YGB'/M&5(IMMP8D\SI,""+"
^XMB(3.9,22,2,1807,0)="""DATA"",396.18,193,3,88,0)"
^XMB(3.9,22,2,1808,0)="MWT>4MAQ)M^!(M""N.%$,<F=L""1^:VPI&Y]AQI""C42/$N^W)XEJ6Y#GCTF)$TL"
^XMB(3.9,22,2,1809,0)="""DATA"",396.18,193,3,89,0)"
^XMB(3.9,22,2,1810,0)="MX:\&-BYPRUF2[37L""K.D_QJ*!UO5""&C`]1*>3+R'<ZK]/10)CC0""GVP""_:$L"
^XMB(3.9,22,2,1811,0)="""DATA"",396.18,193,3,90,0)"
^XMB(3.9,22,2,1812,0)="M>)'?@XO]\1:BGUT<[\29@SK2<%`$/:T6K`M-X&35@C/""=L""&`3;1RBZ!$L2^"
^XMB(3.9,22,2,1813,0)="""DATA"",396.18,193,3,91,0)"
^XMB(3.9,22,2,1814,0)="MW5K!#[<?_!P6@3%9.H1Q5:@H&9(-X&G:Q0;JF.80-!,[T5.(G!@]%)P8Q<N3"
^XMB(3.9,22,2,1815,0)="""DATA"",396.18,193,3,92,0)"
^XMB(3.9,22,2,1816,0)="MXKL*!7TBZJ'L*)4O)(3+4U)J=`MLE!P$_^>VY)+""/2:FKG=QZDKDAU8.OD0J"
^XMB(3.9,22,2,1817,0)="""DATA"",396.18,193,3,93,0)"
^XMB(3.9,22,2,1818,0)="M!R.1YC#GS)8K>\T9^&E)!D[FD.)[O+R#RO`W`AF^',`:S_:6B!^<UBX9)J#R"
^XMB(3.9,22,2,1819,0)="""DATA"",396.18,193,3,94,0)"
^XMB(3.9,22,2,1820,0)="M/A':JR6O@[)Z_)KM:=C:XWT(F+/?F%Q:4!]8:GX)6V\+?EC?@&X`Y8SMKR6V"
^XMB(3.9,22,2,1821,0)="""DATA"",396.18,193,3,95,0)"
^XMB(3.9,22,2,1822,0)="M!DT7\Y^4CJCS/5[""/$&;;E#EOE/H8^PLP^'@+(-@H(DJ^RPO""PSTSS?N:8SG"
^XMB(3.9,22,2,1823,0)="""DATA"",396.18,193,3,96,0)"
^XMB(3.9,22,2,1824,0)="MDWO@'$.;B_,9?@/D""99?!1?GS^^_3'Q8VL22""O?;8H?.8<G%^;.<6V)RNU`S"
^XMB(3.9,22,2,1825,0)="""DATA"",396.18,193,3,97,0)"
^XMB(3.9,22,2,1826,0)="M+%2MI:TK=S`SEX4YK$/GNX@9CD1NWV9(\UD@UI7N?B';_6@@3]\*5*>0R1;V"
^XMB(3.9,22,2,1827,0)="""DATA"",396.18,193,3,98,0)"
^XMB(3.9,22,2,1828,0)="MMNI0)^!CJ&,4:B2`^J7]=[QC1+)'D!4Z3C#%^:PDGCO)*0[?;F17U;&R-#Q]"
^XMB(3.9,22,2,1829,0)="""DATA"",396.18,193,3,99,0)"
^XMB(3.9,22,2,1830,0)="M&,-YB,+YP\`./!+`^0&IE2(/`]5"".SOE&V:9]8LYBYK9EE#7)91%F0;)2FKD"
^XMB(3.9,22,2,1831,0)="""DATA"",396.18,193,3,100,0)"
^XMB(3.9,22,2,1832,0)="M35<KF3I,3O""1`:,,IV-44.&]["",9I;TX]:IAX2V@<^[Y,:V(&A/2KQ-RFX9I"
^XMB(3.9,22,2,1833,0)="""DATA"",396.18,193,3,101,0)"
^XMB(3.9,22,2,1834,0)="MHH]:VBIH>#=V>>+LC%WR4939F-`FKLZ.:CHDI#M!EG2V11?3LYJ+\2&SA@8<"
^XMB(3.9,22,2,1835,0)="""DATA"",396.18,193,3,102,0)"
^XMB(3.9,22,2,1836,0)="MZ]2J+\TS[CIEW*N2?J/7*>,D<X1,`ZA-&$Q9/1T=;=$=?!TS8!S,.,&&;GFL"
^XMB(3.9,22,2,1837,0)="""DATA"",396.18,193,3,103,0)"
^XMB(3.9,22,2,1838,0)="M5S#BD^;5:Z#C]#+\]*SFW5EN>G-L>C3G8+/$BX&GB%]&546TYU6I:WJIY#LZ"
^XMB(3.9,22,2,1839,0)="""DATA"",396.18,193,3,104,0)"
^XMB(3.9,22,2,1840,0)="MJ=6YN/4OBD`0A#'Y7(3C[`^U[6HH)S#.$[C>ML>@G$"".)V""U;?C7HK<0=9C?"
^XMB(3.9,22,2,1841,0)="""DATA"",396.18,193,3,105,0)"
^XMB(3.9,22,2,1842,0)="M)&'XQWHXI:+TD#MSFP9T/_;7%*%:_ID@*OOD_@M5#DCL+=U->T41CJR\)K&W"
^XMB(3.9,22,2,1843,0)="""DATA"",396.18,193,3,106,0)"
^XMB(3.9,22,2,1844,0)="M)_CK+88'PY1E8VV7F=LTM1JG,)I[J!`]%A;$X2*HUM`6GX\V]R2=26E:^`^*"
^XMB(3.9,22,2,1845,0)="""DATA"",396.18,193,3,107,0)"
^XMB(3.9,22,2,1846,0)="M0$G6&6C1-UTYC3P_F>G6V_.'EX!;,^!D;*>N+4$;+Z56$/*E.B5W-DQ.)?V7"
^XMB(3.9,22,2,1847,0)="""DATA"",396.18,193,3,108,0)"
^XMB(3.9,22,2,1848,0)="MI.XHP8=N`9$')406<;L:*1&:SSR#5?5[3%6?D#0ZIIV@H'18:V!W=`G.TCCK"
^XMB(3.9,22,2,1849,0)="""DATA"",396.18,193,3,109,0)"
^XMB(3.9,22,2,1850,0)="M9X3@-?:!0.(G@^E[?"".K<U!<2LB[0*N\25Y'73TTO-'M0`,-+?FJ#IT<C`_/"
^XMB(3.9,22,2,1851,0)="""DATA"",396.18,193,3,110,0)"
^XMB(3.9,22,2,1852,0)="M:^=TM%>_!MA'J1]-:74`X4,'!$JD<0/NGTP/>J`&U^=OUX'VV]XMF.4T_Z9T"
^XMB(3.9,22,2,1853,0)="""DATA"",396.18,193,3,111,0)"
^XMB(3.9,22,2,1854,0)="MS[G+Z/BWA'-KZ/7_/YS+""L:D&-I):]1KR-%/_%2#%I8IF^&M""M/@^R0:3%[9"
^XMB(3.9,22,2,1855,0)="""DATA"",396.18,193,3,112,0)"
^XMB(3.9,22,2,1856,0)="M)5I'S_X\30S/$IUV?WC:D8LMBNM)X9:$V4/6.=(QZQ3[`>=X#K.""^N^&CR?F"
^XMB(3.9,22,2,1857,0)="""DATA"",396.18,193,3,113,0)"
^XMB(3.9,22,2,1858,0)="MDMFLD-HU$\H+Z]Z&4C*723;=:FNZ?I_@Y[34AE(^,][4HKB)$N5CG*S$1K,+"
^XMB(3.9,22,2,1859,0)="""DATA"",396.18,193,3,114,0)"
^XMB(3.9,22,2,1860,0)="MX-&EVG8?DITHHLO\VV21WF;[,;\73/0^NFL\GDITV42)-4VY,X(LOZ[=AUR`"
^XMB(3.9,22,2,1861,0)="""DATA"",396.18,193,3,115,0)"
^XMB(3.9,22,2,1862,0)="MVH?,6<L#&2TW,M.\P[D4;G+.<SS3Z8A0/#3!Q[1D`H;V\&\*_DTGU'@F@3+!"
^XMB(3.9,22,2,1863,0)="""DATA"",396.18,193,3,116,0)"
^XMB(3.9,22,2,1864,0)="MJMUT;DF<%0UPOJ=T,ZV.!ZF&>YU62""RI=WF4B.4B%<MS$@%/9YIJKDV4*+)*"
^XMB(3.9,22,2,1865,0)="""DATA"",396.18,193,3,117,0)"
^XMB(3.9,22,2,1866,0)="M%Y32DCT'CA(-%1YOJRE]N70RW;9IFDQ1:&SXG)`Q/=6L)9!TZPY=@Q(M""6UX"
^XMB(3.9,22,2,1867,0)="""DATA"",396.18,193,3,118,0)"
^XMB(3.9,22,2,1868,0)="M]QE6:5V-EJJ]=T1C-N>]6$(^RW3Y^\VZC)L]]=8^,(E3!]S)$OZ`'D:$DO`V"
^XMB(3.9,22,2,1869,0)="""DATA"",396.18,193,3,119,0)"
^XMB(3.9,22,2,1870,0)="M?4-[.SW8HG#)'NGP9N>+=@-+X()=`Q:7/&WQ'#?U_;]*?(!*F?A*D&=^9O_E"
^XMB(3.9,22,2,1871,0)="""DATA"",396.18,193,3,120,0)"
^XMB(3.9,22,2,1872,0)="MF0=EIXFH,&6$:UMW2PKB#_(W<X%=,W6WRJI+@+VUJ[).>H$S>@%CFZ-2]9+D"
^XMB(3.9,22,2,1873,0)="""DATA"",396.18,193,3,121,0)"
^XMB(3.9,22,2,1874,0)="M""M>,H:]9-NZ+!`'YT!9JY\`MO>2=EQ]7RW.$8[_,-/!#TN=CT&?*E(,ASE6K"
^XMB(3.9,22,2,1875,0)="""DATA"",396.18,193,3,122,0)"
^XMB(3.9,22,2,1876,0)="M%^OP3PO:!9[V5QCM[TIH)]'CW\C!MS+KAA2T@-?.00MCDC9G,&9=`TZ+`0M)"
^XMB(3.9,22,2,1877,0)="""DATA"",396.18,193,3,123,0)"
^XMB(3.9,22,2,1878,0)="M?D#VL(_H-4D^O&CB9_VP!P;)R5&'\6VBS/_-E'D]_)PPC?'&1""=.N)DS!G7["
^XMB(3.9,22,2,1879,0)="""DATA"",396.18,193,3,124,0)"
^XMB(3.9,22,2,1880,0)="MN)(<CX""-R!V^:PPY,8M6%;,K&!B:.)CA8('VC!(_CW)Y5*M61[76DY'6S&@R"
^XMB(3.9,22,2,1881,0)="""DATA"",396.18,193,3,125,0)"
^XMB(3.9,22,2,1882,0)="M_W'""@9=[B(@'>MRZEGDP*O0/""5UY&G>=QH+P(=WC@P=.K>@N.7&#%:2JF]!'"
^XMB(3.9,22,2,1883,0)="""DATA"",396.18,193,3,126,0)"
^XMB(3.9,22,2,1884,0)="MZ/S#!F*M?(`Z<-VZ:=F;EM(4ES<];""#-*RR[H'8^,$;)QMQ3^3VPJR1I@Y$4"
^XMB(3.9,22,2,1885,0)="""DATA"",396.18,193,3,127,0)"
^XMB(3.9,22,2,1886,0)="M3,=;2@CC>6Y]TGOC423-Z55*L`""G(JV.@R""(C1/N0JC63)(7C`X4DQ**?9*%"
^XMB(3.9,22,2,1887,0)="""DATA"",396.18,193,3,128,0)"
^XMB(3.9,22,2,1888,0)="M2/$DIR.AA<APPK87G@FCAKG&^[_8I\*RQK$M5>BJH4F2?[0GVP4<V,*C/?=,"
^XMB(3.9,22,2,1889,0)="""DATA"",396.18,193,3,129,0)"
^XMB(3.9,22,2,1890,0)="MT'1(XG!8!%X5#K?%)4'30_Q]4MM%W3M,XP5ZY\O1EHECWOE3;CPXNL87^1OD"
^XMB(3.9,22,2,1891,0)="""DATA"",396.18,193,3,130,0)"
^XMB(3.9,22,2,1892,0)="MT8KD0AP#A"",0DUYEDP8%3-D(S?>%CETTB.903#`!'71]E)PSQ<11C5$S*AKV"
^XMB(3.9,22,2,1893,0)="""DATA"",396.18,193,3,131,0)"
^XMB(3.9,22,2,1894,0)="M(8AQ>JWFV+<,=/4:.W/YJ&ENU-B'623RHN2J_1(,;,B2H%U&LL.'ET9..,/#"
^XMB(3.9,22,2,1895,0)="""DATA"",396.18,193,3,132,0)"
^XMB(3.9,22,2,1896,0)="M.4'A?#H2CC?<2Y`DT$OK&E0%RQO5*F@_E]9.""1K#JMA.%?-NE&Z+GJ7>\BQ^"
^XMB(3.9,22,2,1897,0)="""DATA"",396.18,193,3,133,0)"
^XMB(3.9,22,2,1898,0)="M6AWW`7S&B7P-L:7FN^N8$MF.I'O4[8,EMBM)F/(C9A1BDK7(TW,NB!TZG/:Z"
^XMB(3.9,22,2,1899,0)="""DATA"",396.18,193,3,134,0)"
^XMB(3.9,22,2,1900,0)="M*,#TR@7F$WJN:[`G*H]KZ8Y6F9Q.>5.Y0\^/95W0_XYX(Z^':$SML3XI*,XE"
^XMB(3.9,22,2,1901,0)="""DATA"",396.18,193,3,135,0)"
^XMB(3.9,22,2,1902,0)="MRMA""V-JF$_F<)`YJ/*-'T)9J.T*%U-[HKQ/RON.\%'Z""2>%O!ACO#VH8Z>SX"
^XMB(3.9,22,2,1903,0)="""DATA"",396.18,193,3,136,0)"
^XMB(3.9,22,2,1904,0)="M'L#8UR(7H&6&PTU2W\WCA/NW\BP@RM=;'8=K?ECRX%9&HV7EER/""5JJL;D,M"
^XMB(3.9,22,2,1905,0)="""DATA"",396.18,193,3,137,0)"
^XMB(3.9,22,2,1906,0)="MVO8>EDQW;MEX-WL9+];C$3?V@$<BH6HD)*&`ZT>4VAL//FMQY():YH^04MB["
^XMB(3.9,22,2,1907,0)="""DATA"",396.18,193,3,138,0)"
^XMB(3.9,22,2,1908,0)="M*=)D4`K[G_UWQ.VPY,@%'RT$L>W7.]Q8H,]J1RZRZ.A^5=_Y6(Z#1..4PQC2"
^XMB(3.9,22,2,1909,0)="""DATA"",396.18,193,3,139,0)"
^XMB(3.9,22,2,1910,0)="M_:&;IPU7?Q:5DD:#(""ZH*9&2$L*U(\^[EO;-H8I9PXKY#64W/S""]UW.U[,`6"
^XMB(3.9,22,2,1911,0)="""DATA"",396.18,193,3,140,0)"
^XMB(3.9,22,2,1912,0)="M6;`$7;""#@29^7.$2W>S>.U?+&1VJ;?W""$\R^&V22K^Z'VU%'9#ONU(<=CP@G"
^XMB(3.9,22,2,1913,0)="""DATA"",396.18,193,3,141,0)"
^XMB(3.9,22,2,1914,0)="MNU[M=!V<E8]W5^=B>HXV]E42WVQ$[E!43^/'V%$R[L^R<=\I.0C6%.C$MA!X"
^XMB(3.9,22,2,1915,0)="""DATA"",396.18,193,3,142,0)"
^XMB(3.9,22,2,1916,0)="ML+;;)AFN'NDAC.LVT.&?7BE&C?7([>L-%B]2E64W-H-?D]++3H%""+D5@ON^\"
^XMB(3.9,22,2,1917,0)="""DATA"",396.18,193,3,143,0)"
^XMB(3.9,22,2,1918,0)="M$""C\6!$]G`NJW-!1I/:-UY?0F;+8=Z(GQ)>#C_]O>]<:&]=1A?=AK^W8CA,["
^XMB(3.9,22,2,1919,0)="""DATA"",396.18,193,3,144,0)"
^XMB(3.9,22,2,1920,0)="MKT9JLDW:DB`GV?O85Z`/UX_6:A[&=I*J40O7N]?V;7?W;N_==6*)'Q3$0R!$"
^XMB(3.9,22,2,1921,0)="""DATA"",396.18,193,3,145,0)"
^XMB(3.9,22,2,1922,0)="MA1""J*M'^`*4""B8?X42'Q*`B*!!)(O(20$*4_>/V!]D?Y""S-S9^:>V3N[>Z^3"
^XMB(3.9,22,2,1923,0)="""DATA"",396.18,193,3,146,0)"
^XMB(3.9,22,2,1924,0)="MUMY`5*EWU_8]<\[,G#DS<\[W[9IJ-FSO>TA\*;N_H5O585B@(X7%EB<W[XP4"
^XMB(3.9,22,2,1925,0)="""DATA"",396.18,193,3,147,0)"
^XMB(3.9,22,2,1926,0)="M&PI\[!DV.96@:I0E)8-398^1WJC@)""R/0UV:3JE""PS`,,""7XQEW<;9S=(<;0"
^XMB(3.9,22,2,1927,0)="""DATA"",396.18,193,3,148,0)"
^XMB(3.9,22,2,1928,0)="M8<L9B-1?)1')&9J?[9TQ$(]!SE%8=CPA/L8>@]:'=4GU*D*Y>ZG<%V61T(DY"
^XMB(3.9,22,2,1929,0)="""DATA"",396.18,193,3,149,0)"
^XMB(3.9,22,2,1930,0)="MVZFFU6PF?[(E<7]EDR2BG^XL*D<3>9Z/""SH.26H+OHQ/AQP/S[?>=.IH)KN3"
^XMB(3.9,22,2,1931,0)="""DATA"",396.18,193,3,150,0)"
^XMB(3.9,22,2,1932,0)="M2*&Z[9#OB,+TXA#)+]DU;WP0HU@-E[-`NV;=P+@XE<VTY:9K9@GY67QP@YPJ"
^XMB(3.9,22,2,1933,0)="""DATA"",396.18,193,3,151,0)"
^XMB(3.9,22,2,1934,0)="M)N;&A-%&S3LTJSL6.32S7&/%JF`L)W/#J#2]L&^5G59Q4=T2[FEY#-.6UL<D"
^XMB(3.9,22,2,1935,0)="""DATA"",396.18,193,3,152,0)"
^XMB(3.9,22,2,1936,0)="MC*!A)[""RLU/3C_A7H7*,>97>('[->^7[J`'_);G.NXK#5GR<AD$9UVUD)3(D"
^XMB(3.9,22,2,1937,0)="""DATA"",396.18,193,3,153,0)"
^XMB(3.9,22,2,1938,0)="MK`8<(,<@N>\Q7,*.1I6#+.*Z=@D;HYR^9C7P01JR'6];5\5UH957`Q=M8$A="
^XMB(3.9,22,2,1939,0)="""DATA"",396.18,193,3,154,0)"
^XMB(3.9,22,2,1940,0)="MK'NS>I(M>MC,F':8%3RT,416$/$,%?%CB2'.S==PB5K#TY\-""\R.`X:016J1"
^XMB(3.9,22,2,1941,0)="""DATA"",396.18,193,3,155,0)"
^XMB(3.9,22,2,1942,0)="M[5*I63>HF_'B?(P;8)0:U@;J<K.[YCG8+`X!D3@>U'S`6PSEU0D,$?[YEO?("
^XMB(3.9,22,2,1943,0)="""DATA"",396.18,193,3,156,0)"
^XMB(3.9,22,2,1944,0)="MZA/T-J\H""*/OF2X5#K(W%(4W7(U>9*%EA#>\OVN=1VLDK(-(V+^EN<:#_A?B"
^XMB(3.9,22,2,1945,0)="""DATA"",396.18,193,3,157,0)"
^XMB(3.9,22,2,1946,0)="MK3&MA!T*^M@BW,@R_S,A.>`]R]&_9_T1@P<0FS%HN%R$PV6*#Y*=L9Q0\E&O"
^XMB(3.9,22,2,1947,0)="""DATA"",396.18,193,3,158,0)"
^XMB(3.9,22,2,1948,0)="MKI5CJ""8/272]7T0Z3[L@P8G/E];9P=7M#*!'[W1'!0C!DF2!]\PLRI&]L""B`"
^XMB(3.9,22,2,1949,0)="""DATA"",396.18,193,3,159,0)"
^XMB(3.9,22,2,1950,0)="M3!YI16H%$W_J""G9G)NP^XL6X=[>J=:-5I*!:R""0+5@?I*5FF2KH2U*1%T\48"
^XMB(3.9,22,2,1951,0)="""DATA"",396.18,193,3,160,0)"
^XMB(3.9,22,2,1952,0)="M8VC]NF8[3W,?!RS(08!'!1!@6*/,@/L^Q776`#%]``/X71J.G4#7#ERPA:PY"
^XMB(3.9,22,2,1953,0)="""DATA"",396.18,193,3,161,0)"
^XMB(3.9,22,2,1954,0)="M.J52$[(O1W!E^VRU7K$WS7([+OAVALI""0SD!0]W/C\XSQ7Q;`+D=8+$[IEP\"
^XMB(3.9,22,2,1955,0)="""DATA"",396.18,193,3,162,0)"
^XMB(3.9,22,2,1956,0)="M""]'Z.V,ANV`3I&>:>$RF)N9KN*P21SW+I#@0!32I_?Z74RLNOBHS+;<J!:MO"
^XMB(3.9,22,2,1957,0)="""DATA"",396.18,193,3,163,0)"
^XMB(3.9,22,2,1958,0)="M1Z;>QJ)T+7]1Y-#V\<>N^2;-%W:R28?Q*1(*_$A>],$9D]EK&@/]H)VVX>V7"
^XMB(3.9,22,2,1959,0)="""DATA"",396.18,193,3,164,0)"
^XMB(3.9,22,2,1960,0)="MYFLP%GS(7#<V+-M)'<+4V.DE'!55TO/X*M+P:G=3=^$>LDK(PIOI.9O""DPGE"
^XMB(3.9,22,2,1961,0)="""DATA"",396.18,193,3,165,0)"
^XMB(3.9,22,2,1962,0)="MO:EQ7]IYVW,^J</@.Z/6Q%1FYO4&@1!-L;#,]:*O<]8J\1DX(IDV'&<3?4A-"
^XMB(3.9,22,2,1963,0)="""DATA"",396.18,193,3,166,0)"
^XMB(3.9,22,2,1964,0)="M`+&+.)3!7^Y=JILFBFK\GZ7&,58S_FOPW=[+%D8\@E^-G4,V)]FM#5)WFYJX"
^XMB(3.9,22,2,1965,0)="""DATA"",396.18,193,3,167,0)"
^XMB(3.9,22,2,1966,0)="M8AI/X[&%([(Y9)RUIIDZ[C<:V=6LK376SZ8OU>MHT4`=[IA5W'KI+YVSKPF_"
^XMB(3.9,22,2,1967,0)="""DATA"",396.18,193,3,168,0)"
^XMB(3.9,22,2,1968,0)="MM.\2:A2.P]'`M4F6&>J%U/B<62+V!=_U+1A6+34Z8[FKJ`WHSTT\W$(/;-D-"
^XMB(3.9,22,2,1969,0)="""DATA"",396.18,193,3,169,0)"
^XMB(3.9,22,2,1970,0)="M6P8NC3]E2^-5'E:\%@.#NMA+?!W)F""R,HL'R1^-B')4+%4<E9<%%!N*#I`(0"
^XMB(3.9,22,2,1971,0)="""DATA"",396.18,193,3,170,0)"
^XMB(3.9,22,2,1972,0)="M5K+8HB7Z)@1W?BS5=/$4:(VWMW-K+@2R=`%.""*65'PAN6R>G'**I8\+(2:[<"
^XMB(3.9,22,2,1973,0)="""DATA"",396.18,193,3,171,0)"
^XMB(3.9,22,2,1974,0)="M`SNMZ(MN&1(39)@\RN[UWI#LVU3>K<?(3#Q&U>W0E2#(""9/*KU*3+P@FYQ6;"
^XMB(3.9,22,2,1975,0)="""DATA"",396.18,193,3,172,0)"
^XMB(3.9,22,2,1976,0)="MAA_R9/1P]09LXS6];CNP/=M:I2,'[TT-+C@D*\:-M5VN0QE1A2#3G:U8C&3%"
^XMB(3.9,22,2,1977,0)="""DATA"",396.18,193,3,173,0)"
^XMB(3.9,22,2,1978,0)="M(?3+]3H&XNQI.R9""VE$$Q^ED1R43S8ZSUTVG9+EF;]LQ&=*.=$,_1#S,QV*="
^XMB(3.9,22,2,1979,0)="""DATA"",396.18,193,3,174,0)"
^XMB(3.9,22,2,1980,0)="MQF,VVJQ>PB>#/3ZK^\)9,9<#KK&3%5'TDH]DQ>%%$KJ19,6>MF1_R/&8%4#X"
^XMB(3.9,22,2,1981,0)="""DATA"",396.18,193,3,175,0)"
^XMB(3.9,22,2,1982,0)="M.PY(18UDREW+CK&!""\1[W$.&K+QC1WU_""F')3""&2)0?G/&SFWK;C0,@1680>"
^XMB(3.9,22,2,1983,0)="""DATA"",396.18,193,3,176,0)"
^XMB(3.9,22,2,1984,0)="M\A\=S9B+9L:'C,9ZSYLQ;/18@""ZRLQFCN<BA&7Q3W_-V'`IIQ[S@(#L:4E$B"
^XMB(3.9,22,2,1985,0)="""DATA"",396.18,193,3,177,0)"
^XMB(3.9,22,2,1986,0)="M.DC;JIB-GK?DKI""6S`D.LO.0U*(-223`KO:\(8=#KC0:\)`\L?;!8&V2KH4R"
^XMB(3.9,22,2,1987,0)="""DATA"",396.18,193,3,178,0)"
^XMB(3.9,22,2,1988,0)="M8XCB;$D>>A%NE1^/!VY7,B`&R_72""=*(1%DA,Z%`=5WENN;\S#NE1S+OI""G4"
^XMB(3.9,22,2,1989,0)="""DATA"",396.18,193,3,179,0)"
^XMB(3.9,22,2,1990,0)="M]&IIP3OE>8R.K*O!S**]N*0A#>_.PZ>FMP.W4.&9)`N?DD\$*QL*:B$T.5-,"
^XMB(3.9,22,2,1991,0)="""DATA"",396.18,193,3,180,0)"
^XMB(3.9,22,2,1992,0)="MTID:S+E9H#DWR6_R;*9/\,//0E[1>J.^H%TF)3W^^(M(KNU7^5DPDY(>@:9*"
^XMB(3.9,22,2,1993,0)="""DATA"",396.18,193,3,181,0)"
^XMB(3.9,22,2,1994,0)="ME7-6=5MS8\=EAW/T/&R%J+*;#LZ58&KDKH7%BPNSB\OSLTL[""W)`@R3&[Z4*"
^XMB(3.9,22,2,1995,0)="""DATA"",396.18,193,3,182,0)"
^XMB(3.9,22,2,1996,0)="MG)<@2J$NQM<3]V5T15'TG7&=SJI'O-8_2%MO2RZRO4F_;%YOW,>35-L.4-JI"
^XMB(3.9,22,2,1997,0)="""DATA"",396.18,193,3,183,0)"
^XMB(3.9,22,2,1998,0)="M+GFK3L?G*)^+Q=LAU7=""5FI'S?FP@*UQ15(F>AID^H*B.^9\E^IF""=\@LVJ#"
^XMB(3.9,22,2,1999,0)="""DATA"",396.18,193,3,184,0)"
^XMB(3.9,22,2,2000,0)="M'0`\#;-5\T*%W?@[B#O-BA</""GD1?^!7//\$^?%*H??RX_<`KYY1509@,B#4"
^XMB(3.9,22,2,2001,0)="""DATA"",396.18,193,3,185,0)"
^XMB(3.9,22,2,2002,0)="M&?^.SYP;M\/,V2=AVL#*YVBD\K>8H/T;DD3Y.R'A*$FJ(/@=VS];Y)KE%=""M"
^XMB(3.9,22,2,2003,0)="""DATA"",396.18,193,3,186,0)"
^XMB(3.9,22,2,2004,0)="MR3TLKIZ4U`^7R<63F+JS3DN.T/Z\1!(Y2TBU-3-]@MRC$R08DKGJ_9Q`G!#\"
^XMB(3.9,22,2,2005,0)="""DATA"",396.18,193,3,187,0)"
^XMB(3.9,22,2,2006,0)="M9(LF!UF8I-+Q4(])/FNG#*#6IJNPZ:^P"".X_DMNSPK31=,T3N""VKA*0'XW(V"
^XMB(3.9,22,2,2007,0)="""DATA"",396.18,193,3,188,0)"
^XMB(3.9,22,2,2008,0)="MO+1,DAADU;S&*>HIK]*[CHQJER6I5BV-*,!ID7R.->+/DD9DEB6""*0""W3'AH"
^XMB(3.9,22,2,2009,0)="""DATA"",396.18,193,3,189,0)"
^XMB(3.9,22,2,2010,0)="M6ZBJ0NE!DB][`_0IVHPO2IIQ=*;I<*+74M,AJ2XF'ZE=5$:R1$]`124^*.%^"
^XMB(3.9,22,2,2011,0)="""DATA"",396.18,193,3,190,0)"
^XMB(3.9,22,2,2012,0)="M7:;UZ_[;N[\\+R@R2]_^N.3MT[3M_H#L_O8B;/IA^O(E"";S0)7*G""C/CV&JS"
^XMB(3.9,22,2,2013,0)="""DATA"",396.18,193,3,191,0)"
^XMB(3.9,22,2,2014,0)="M5ZC_4M4B/=*>]2[[GPTL.8?;+CE#7;<N9`..-BL31""C[A,6R,I!E+]7S(.UQ"
^XMB(3.9,22,2,2015,0)="""DATA"",396.18,193,3,192,0)"
^XMB(3.9,22,2,2016,0)="MEZ\_3\2YW/V+9L-R//#W9LVDJ5X2BN46<^5H+M(-KS/V4,V6)9W!X),<(BE4"
^XMB(3.9,22,2,2017,0)="""DATA"",396.18,193,3,193,0)"
^XMB(3.9,22,2,2018,0)="M5[.IXYTK**V[/Y""M369OU+?3`\E=I%=^R$Y_KDGH(3V_5MJ""D""(UT,^]<""/!"
^XMB(3.9,22,2,2019,0)="""DATA"",396.18,193,3,194,0)"
^XMB(3.9,22,2,2020,0)="MW.=+DGF7ELT[UAOAI!7@4?7=\4""YEB_LB`<BX:;7K`W3RZ6/(DK-P'O#Q(>I"
^XMB(3.9,22,2,2021,0)="""DATA"",396.18,193,3,195,0)"
^XMB(3.9,22,2,2022,0)="MI!L22<>]@'`S7:7$)""?JZYLN?CHI2[=L(XX.YA_$!'D?EX&8,7EU=[.T;AF$"
^XMB(3.9,22,2,2023,0)="""DATA"",396.18,193,3,196,0)"
^XMB(3.9,22,2,2024,0)="MSELBJ/5DZP[9$2&>OADP3A)CK21:QQG#4*:HYR)!5$W,N^D-$^>MU>B0*@.$"
^XMB(3.9,22,2,2025,0)="""DATA"",396.18,193,3,197,0)"
^XMB(3.9,22,2,2026,0)="M0M[2L*=A(M65FL$+H#`[&;S6:T%Z:=3VO`2)*""X0`^]K(0;&/D:%HX#NP9(F"
^XMB(3.9,22,2,2027,0)="""DATA"",396.18,193,3,198,0)"
^XMB(3.9,22,2,2028,0)="MCPV*0$!A:_3`QV<KUIJ%:216-M,8TAF-U#*8*'B13!T^WSJV6(^?3-WI_RPX"
^XMB(3.9,22,2,2029,0)="""DATA"",396.18,193,3,199,0)"
^XMB(3.9,22,2,2030,0)="M($Y*\];""4`TG0E`->SN"",5""FCX:R!MW.+V,!FZG`9CV5Z=8?84Y1(R1%K_@3"
^XMB(3.9,22,2,2031,0)="""DATA"",396.18,193,3,200,0)"
^XMB(3.9,22,2,2032,0)="M/C*/^4;(1IM5]X)9Y2]EG'/KYB9:""IX63HBGA7C""%05OSX/EK\AF7'<\W('6"
^XMB(3.9,22,2,2033,0)="""DATA"",396.18,193,3,201,0)"
^XMB(3.9,22,2,2034,0)="M%NWQF3X5`C.4&E%PE0[%-4^-J/A3EGX:S>)/2H9^W(V>\.^RS^/G;9(9AU[&"
^XMB(3.9,22,2,2035,0)="""DATA"",396.18,193,3,202,0)"
^XMB(3.9,22,2,2036,0)="MOHNU&;)""CH@6#PS9>X!6V5X:LNWF:!8JS&EC7PZD]R.%<_D>RT:5*IR#RZNO"
^XMB(3.9,22,2,2037,0)="""DATA"",396.18,193,3,203,0)"
^XMB(3.9,22,2,2038,0)="M\;>D&A=Z2>.^=H,Z#_=E9]B@GN&#>@;X8:67-!YHHS#<VO@YUE*%\YE>4KBC"
^XMB(3.9,22,2,2039,0)="""DATA"",396.18,193,3,204,0)"
^XMB(3.9,22,2,2040,0)="M5\9[7ZCXEX**`Z><*W9SROVM3CF>$?TRIB=.I>C_!U3R?S<UH+$'G3UDV4.."
^XMB(3.9,22,2,2041,0)="""DATA"",396.18,193,3,205,0)"
^XMB(3.9,22,2,2042,0)="M/>390X$]%.G#('+>[$GA3RI_TOB3SI^R_""G'G_+\J<""?N`R5RU""Y#)7+4+D,"
^XMB(3.9,22,2,2043,0)="""DATA"",396.18,193,3,206,0)"
^XMB(3.9,22,2,2044,0)="ME<M0N0R5RU""Y#)7+4+D,C<O0N`R-R]""X#(W+T+@,C<O0N`R-R]""X#)W+T+D,"
^XMB(3.9,22,2,2045,0)="""DATA"",396.18,193,3,207,0)"
^XMB(3.9,22,2,2046,0)="MG<O0N0R=R]""Y#)W+T+D,G<O0N8PLEY'E,K)41JS+>(0G:HQ\(_F""+$;(*]V&"
^XMB(3.9,22,2,2047,0)="""DATA"",396.18,193,3,208,0)"
^XMB(3.9,22,2,2048,0)="M8P#%=G""N6:D0FNDA-(<:I\CC*`IL5T^Q8""@UN$0V?T:%1;]=&BR>'6UVBFIT"
^XMB(3.9,22,2,2049,0)="""DATA"",396.18,193,3,209,0)"
^XMB(3.9,22,2,2050,0)="MM5N+^W9(5,/RXZA62P&M#@""MM%[RAXD(@;@.`O'$#+7!\]P&[P$VB`;`?`3$"
^XMB(3.9,22,2,2051,0)="""DATA"",396.18,193,3,210,0)"
^XMB(3.9,22,2,2052,0)="MX?0PH[*99D,P&A1_O$T/""A/I1,""O'P832>^A^Y6Q9?35BEF^8#?,%=M^VMMX"
^XMB(3.9,22,2,2053,0)="""DATA"",396.18,193,3,211,0)"
^XMB(3.9,22,2,2054,0)="MB]\)Y2\L9>!-?MGRC?@8^OV.*H_R7R!:#R&M&^22=#?[`;LP&6%?2*X5^%NH"
^XMB(3.9,22,2,2055,0)="""DATA"",396.18,193,3,212,0)"
^XMB(3.9,22,2,2056,0)="M""7QM]J-G]&$![=EC7F/[2&,/^1GB],X#XKP<D>G*?TI7<F_&LH7\[USKST>#"
^XMB(3.9,22,2,2057,0)="""DATA"",396.18,193,3,213,0)"
^XMB(3.9,22,2,2058,0)="M?7DNW@[VI7\*PX4/#!J5Z8J%^@_""P`B75*D5%V=8;>>5%#P%WBV<`M,QLH]8"
^XMB(3.9,22,2,2059,0)="""DATA"",396.18,193,3,214,0)"
^XMB(3.9,22,2,2060,0)="M*TFM]4<^MY7M;75[-G5Z.#`NI(B\RMM]Q,]+\+BY74K._>X3UD<@D/0[:4SL"
^XMB(3.9,22,2,2061,0)="""DATA"",396.18,193,3,215,0)"
^XMB(3.9,22,2,2062,0)="M)*&7]-9>0O&J?[3!BU""G?:[6>0'R9?:Z4=U6##E99@'$%&((*=VH1>'?%^#?"
^XMB(3.9,22,2,2063,0)="""DATA"",396.18,193,3,216,0)"
^XMB(3.9,22,2,2064,0)="M/QD.]`+^?1'F5ST;VP*S*(-N&!>(9&5#<F\K@:R[G:,RL04XKR)4]5H'50]0"
^XMB(3.9,22,2,2065,0)="""DATA"",396.18,193,3,217,0)"
^XMB(3.9,22,2,2066,0)="M,EJ>^'%+B,9O2M^MP*7I""E1XK(/""([>0(?KM=]+92-54H9IJ!S7'!=9HDDRY"
^XMB(3.9,22,2,2067,0)="""DATA"",396.18,193,3,218,0)"
^XMB(3.9,22,2,2068,0)="MDV$IVRY_.G""LR5_'`I[UN['M5""L1BA]%`4G-B7&JPBN\T](@@Z@8[9@<8,&N"
^XMB(3.9,22,2,2069,0)="""DATA"",396.18,193,3,219,0)"
^XMB(3.9,22,2,2070,0)="M!['^*:!\M#`]%H[S18,Z70B0!0.=5""623G<""G2C)DVE4*""1L-%42X52A<VHO"
^XMB(3.9,22,2,2071,0)="""DATA"",396.18,193,3,220,0)"
^XMB(3.9,22,2,2072,0)="M&6*?82M+7:9*M-W3/J`*I?NI1M.@3^[=Z5;^(UX(?8RV>+H]>=E.GOHR!35!"
^XMB(3.9,22,2,2073,0)="""DATA"",396.18,193,3,221,0)"
^XMB(3.9,22,2,2074,0)="MP2>Z*QA]]8#B=""B.I_>$D]>_5<]&[W7_'1,B^]]RS_;I^';V6C(<,:`""-X4K"
^XMB(3.9,22,2,2075,0)="""DATA"",396.18,193,3,222,0)"
^XMB(3.9,22,2,2076,0)="MU&[5P-11U(C,3_O!U""EONM@+6$;DN1-*!16HD/P<6V&^$),HD54C*7$4NK*Z"
^XMB(3.9,22,2,2077,0)="""DATA"",396.18,193,3,223,0)"
^XMB(3.9,22,2,2078,0)="MM6:XY-:ZC+[%Q6[1U`E+U:A!=5Z-!1""X89]$6VT@\OBZ:3B-E:9#UIGZIH.A"
^XMB(3.9,22,2,2079,0)="""DATA"",396.18,193,3,224,0)"
^XMB(3.9,22,2,2080,0)="M_B(S,X;21X?ZO!4+4$W#[LE'TN<.H(]CKJ'%$JV?T2DF0Q:JL41B;ZJ,M&*R"
^XMB(3.9,22,2,2081,0)="""DATA"",396.18,193,3,225,0)"
^XMB(3.9,22,2,2082,0)="M`C4B9J"",PU4&9S<9-[W@2]N?@^W/MY+T@/;GU""VODAMVU<*EBY'7>2F$L@:K"
^XMB(3.9,22,2,2083,0)="""DATA"",396.18,193,3,226,0)"
^XMB(3.9,22,2,2084,0)="M`.PH%)_]$5GQI`8KP/2(R\$\+C@3\UMW+'Z,5+8J6QB_(VU`[U5@O>1+D1A2"
^XMB(3.9,22,2,2085,0)="""DATA"",396.18,193,3,227,0)"
^XMB(3.9,22,2,2086,0)="M![:PM5%A;R5_$4G>T%;D9:&\6#R*O.&MR,O#T3@61=Q6B$O81;$KG-<\>BLC"
^XMB(3.9,22,2,2087,0)="""DATA"",396.18,193,3,228,0)"
^XMB(3.9,22,2,2088,0)="M*.%L!5;<),WXK>33#379BG""RW<,FV[=EDTV/MB&Y2UCV,/]7U23`MDZZ:E;,"
^XMB(3.9,22,2,2089,0)="""DATA"",396.18,193,3,229,0)"
^XMB(3.9,22,2,2090,0)="M6D1WN[N-`35(HY.-9,""QK8:@--/I5W$A!#T0WQDA:)\,ZIHZU4%(9>#OU0""_"
^XMB(3.9,22,2,2091,0)="""DATA"",396.18,193,3,230,0)"
^XMB(3.9,22,2,2092,0)="MVL4`YBJM8CB[O?A@@0*C(M3H4""MV=]**@P!'Z9$+L%C7:Z/1!9;CB4^[PU\>"
^XMB(3.9,22,2,2093,0)="""DATA"",396.18,193,3,231,0)"
^XMB(3.9,22,2,2094,0)="M*9++HP2?Y;%V5T>W]QV1!N%9&8_06WPG^<EX9]:#G)``_&0K#!^HE^!D[4;-"
^XMB(3.9,22,2,2095,0)="""DATA"",396.18,193,3,232,0)"
^XMB(3.9,22,2,2096,0)="MK*(-F?1M`M0*)P1[)/BZ,1$@N1.4G>S<!KI\%I`FO\_'PKV`DS[:YO/@Q0W3"
^XMB(3.9,22,2,2097,0)="""DATA"",396.18,193,3,233,0)"
^XMB(3.9,22,2,2098,0)="MP?2#:]B-XOHG%%TUUCNP#O<];-OE5-^<83FI/@QI&@L!JIN'5F><>Z_S]B^!"
^XMB(3.9,22,2,2099,0)="""DATA"",396.18,193,3,234,0)"
^XMB(3.9,22,2,2100,0)="MB+H0*=O:PXN8F+9K3S5K&""D09U(C?6P'33NC4C4<]G%XV2BM;Y8PWJV1&EO:"
^XMB(3.9,22,2,2101,0)="""DATA"",396.18,193,3,235,0)"
^XMB(3.9,22,2,2102,0)="M1`X2+1GI:M-!_TFSJCM2#;-B:J_K?Q-KU2GYU1A0JMACZ1C2/0:]S#XD7'-^"
^XMB(3.9,22,2,2103,0)="""DATA"",396.18,193,3,236,0)"
^XMB(3.9,22,2,2104,0)="M+Q:$L!R^3(A+R0P*'VNUG?(4ACX1%^;\ZW'9G)?=Y^5A5['MJ)2HZ^[@2LKS"
^XMB(3.9,22,2,2105,0)="""DATA"",396.18,193,3,237,0)"
^XMB(3.9,22,2,2106,0)="M\U>M&H:0<A_HM,*QR'Y0X'GY&6_JA\`*ERG<-BM<_[+I8E""6L""N;^K^\LDD&"
^XMB(3.9,22,2,2107,0)="""DATA"",396.18,193,3,238,0)"
^XMB(3.9,22,2,2108,0)="MJ+`HL5+V2Q).D^]@?TKH8I&'M-V27;=*D^G'3BT:FSA(]\#WK:JQADLP2W9M"
^XMB(3.9,22,2,2109,0)="""DATA"",396.18,193,3,239,0)"
^XMB(3.9,22,2,2110,0)="MU6+<MN+VV5[A%X.3:6.EABEP*^FJW2#(TI/L5ZV&12A35BO-ZY.^`#85T$\J"
^XMB(3.9,22,2,2111,0)="""DATA"",396.18,193,3,240,0)"
^XMB(3.9,22,2,2112,0)="MA.&#TDN9K%`8_RHN7""'KB5.SC+,[#:@V3X_=/Q,7;)Z7V/R%^5JITBQC+AP,"
^XMB(3.9,22,2,2113,0)="""DATA"",396.18,193,3,241,0)"
^XMB(3.9,22,2,2114,0)="MO>\RPE[*^X$F#('5+E6L&G$4#3P7"",<+,C`R#N4CQL7`5LWK#(^$YG1Z?I4B"
^XMB(3.9,22,2,2115,0)="""DATA"",396.18,193,3,242,0)"
^XMB(3.9,22,2,2116,0)="M_9*JX75_\X66""@)8AXR^TC#0&QY!SF6M8J]8M3-D8V:C8*)QMJ,KTJ$K.D,5"
^XMB(3.9,22,2,2117,0)="""DATA"",396.18,193,3,243,0)"
^XMB(3.9,22,2,2118,0)="MM+DK.@%<D5KL#5<4T#$K]"")3\H)<R5[@F0^)RIN%Z71)(QZ`S[Z;LQCGM&AG"
^XMB(3.9,22,2,2119,0)="""DATA"",396.18,193,3,244,0)"
^XMB(3.9,22,2,2120,0)="ME&>OF!X`=>MX]\:UY4V&,H9I9L.:CN<'^F%FWIQ1,OW3@NU!$^-G$L->'Q`)"
^XMB(3.9,22,2,2121,0)="""DATA"",396.18,193,3,245,0)"
^XMB(3.9,22,2,2122,0)="M@VUQ?+LO=$.<\BO\8J?]?[$3@-\I@]?;,9@%*^-7&YRF-&W;@=_3+AA5(6S]"
^XMB(3.9,22,2,2123,0)="""DATA"",396.18,193,3,246,0)"
^XMB(3.9,22,2,2124,0)="MY0`X@K*]R6RR&]\<S$8;#C#OIB6#NT<2$\6>@<0MR:^S#=F/>++M&WYBXGX`"
^XMB(3.9,22,2,2125,0)="""DATA"",396.18,193,3,247,0)"
^XMB(3.9,22,2,2126,0)="M`U3>1A(_>`#8""K*6@XQ`C,+U1B)(,)'7E'=E98N\;VC5*""M,_!Q5Z??QP""D`"
^XMB(3.9,22,2,2127,0)="""DATA"",396.18,193,3,248,0)"
^XMB(3.9,22,2,2128,0)="MTBBWXS0*B?-..>DIX=AGV3`\RK4\""B*20J25^3X8+H((GN0_U0VW.HE_8*']"
^XMB(3.9,22,2,2129,0)="""DATA"",396.18,193,3,249,0)"
^XMB(3.9,22,2,2130,0)="M`?*:^+0!Q^7!B[)DNU4RU7?A]-3I6&1(=@9LMD>@1'LS<!^A*FHVXC7\%0,'"
^XMB(3.9,22,2,2131,0)="""DATA"",396.18,193,3,250,0)"
^XMB(3.9,22,2,2132,0)="MQJP@_F(=A=A(WT6/E#)J54:L$_X(^J=`UW[/+7?M-^45^]N@M?C-[N[?=_GH"
^XMB(3.9,22,2,2133,0)="""DATA"",396.18,193,3,251,0)"
^XMB(3.9,22,2,2134,0)="M31'<+?[W7U!+`P04``(`""`!.:KDTU:B;UGTP``#1KP$`%0```$5S;W!H86=U"
^XMB(3.9,22,2,2135,0)="""DATA"",396.18,193,3,252,0)"
^XMB(3.9,22,2,2136,0)="M<U\Q,3$N<&YL+F9R;>Q=:6_<.)K^WD#_!R%?*IE)IT529S""[@\3.T8LD-FQW"
^XMB(3.9,22,2,2137,0)="""DATA"",396.18,193,3,253,0)"
^XMB(3.9,22,2,2138,0)="M&XO%8""""76#8G*JE&1YR:7[^D;E*DQ+K<\9$OJ5*52Z\>DN]])%?_PO/<^!1<"
^XMB(3.9,22,2,2139,0)="""DATA"",396.18,193,3,254,0)"
^XMB(3.9,22,2,2140,0)="MX>ABO<(GB_=)NGQM7)17?O[),#[A16[\E_$+-$WV]B)9T7<>>WE)POR&OD$^"
^XMB(3.9,22,2,2141,0)="""DATA"",396.18,193,3,255,0)"
^XMB(3.9,22,2,2142,0)="M>_<1D^L;]DV`V-NC8)63)*;O9Y_?G7UX-_OY)QR'/_^4]&[(;O7;\>3-H-6_"
^XMB(3.9,22,2,2143,0)="""DATA"",396.18,193,3,256,0)"
^XMB(3.9,22,2,2144,0)="M&YRXV[OSDU/A9NS2/T^#&$<NO5GYHG<SIW<K[DZVZW*WLD#UGL3LW>STY/1W"
^XMB(3.9,22,2,2145,0)="""DATA"",396.18,193,3,257,0)"
^XMB(3.9,22,2,2146,0)="M=B?#>(N_X>BW.,8IO7[U[2P@&0[+#Y(TQ.EYOHXP^R0[)_%UA$N""DRAAWYY'"
^XMB(3.9,22,2,2147,0)="""DATA"",396.18,193,3,258,0)"
^XMB(3.9,22,2,2148,0)="MYR3ZAE-V[7T2YZ^.;H(TP^P&Q^_>O_G]T\4_CSZ^.3M_=]%]H_W3MU$P_]I>"
^XMB(3.9,22,2,2149,0)="""DATA"",396.18,193,3,259,0)"
^XMB(3.9,22,2,2150,0)="M;^G\!8#VXI=@B<LU.#?.@S@SSG%*%K/VXX:T__L'NW0:I#C.V0?TTOL@RDI2"
^XMB(3.9,22,2,2151,0)="""DATA"",396.18,193,3,260,0)"
^XMB(3.9,22,2,2152,0)="M+X*K$_88]%J)5!_4<N&0U5_""%E=@N]7[WI;I+:-=7^A6TJDN]-<R2U8WP761"
^XMB(3.9,22,2,2153,0)="""DATA"",396.18,193,3,261,0)"
^XMB(3.9,22,2,2154,0)="MO39.T^0JPDOC?(7G9$'F=!FR/$G7L^J/IK%3HS?$#_4NJQ$4,5QD;Y,H_$?U"
^XMB(3.9,22,2,2155,0)="""DATA"",396.18,193,3,262,0)"
^XMB(3.9,22,2,2156,0)="MD1S+<E=*(`2V+<40658?0^0B'D5@N@**<(CB7RAX.*.4%U=+DAMY8@1A2$G)"
^XMB(3.9,22,2,2157,0)="""DATA"",396.18,193,3,263,0)"
^XMB(3.9,22,2,2158,0)="M4X(S]C:_P?3#Y3)HX;RD&_<R#=@]+])""1?K;(L^3&'B4].HEO_Z^P]'NF3SM"
^XMB(3.9,22,2,2159,0)="""DATA"",396.18,193,3,264,0)"
^XMB(3.9,22,2,2160,0)="M%=OH;P![0/I1A(.TIJFW#VL43N*CB,R_T@O?J_M_P/0,DGEY=9QF7TXS=`2\"
^XMB(3.9,22,2,2161,0)="""DATA"",396.18,193,3,265,0)"
^XMB(3.9,22,2,2162,0)="M'9YFUQ;A'M)<P3PD&NQ*-`0*H!MD=R#Z*$HR?)""S!+8Z2Z.GB(,5;@_K^3Q-"
^XMB(3.9,22,2,2163,0)="""DATA"",396.18,193,3,266,0)"
^XMB(3.9,22,2,2164,0)="MHNAM\AU28-LW'+8>AZP`K&V+IP\UT'Y,TO_4OQBDKRY2""@_E_;WC9!A_X#3O"
^XMB(3.9,22,2,2165,0)="""DATA"",396.18,193,3,267,0)"
^XMB(3.9,22,2,2166,0)="MOG(6Q-?LR6W+E'TL_84W19Y47U&B4__8D&<+_*8[`;""Y4#VS:S7O6YX#S.:2"
^XMB(3.9,22,2,2167,0)="""DATA"",396.18,193,3,268,0)"
^XMB(3.9,22,2,2168,0)="M((6%/=6P[""O,""`]Q'I`(AZ]GS5=U]MG83E/N-8W=IMAOZAU7;Q\9E*XFE`#X"
^XMB(3.9,22,2,2169,0)="""DATA"",396.18,193,3,269,0)"
^XMB(3.9,22,2,2170,0)="M(I:6XVIAV5PQC-E%Q:_Q]YS2::R2+"",4Y9<4WVR>DBM<?CHGZ;Q89GD0SRF+"
^XMB(3.9,22,2,2171,0)="""DATA"",396.18,193,3,270,0)"
^XMB(3.9,22,2,2172,0)="M#^+0(#')21`9RYGQU]ZO!3%98/H]=I_,2!;E7X=4?PDR;%#(2?RO(EW?TS63"
^XMB(3.9,22,2,2173,0)="""DATA"",396.18,193,3,271,0)"
^XMB(3.9,22,2,2174,0)="MRK'1I?042XF:HZ\^%HZE=RJ.@QPSH""G>.#\@KO#/.`N6J3H+B,</`D<$T-=D"
^XMB(3.9,22,2,2175,0)="""DATA"",396.18,193,3,272,0)"
^XMB(3.9,22,2,2176,0)="M*T=)05$R,D+W]L%1_%,XBH54*`(>1<L:H.AIHGA""#WIJS)/EDA*7-0=\Y&CX"
^XMB(3.9,22,2,2177,0)="""DATA"",396.18,193,3,273,0)"
^XMB(3.9,22,2,2178,0)="M""IJ`[4\N+7!\S;4M4@:6D:<XR$O*C`5=IOR&9)36.""3LBX^%&UE`M0T\@1LA"
^XMB(3.9,22,2,2179,0)="""DATA"",396.18,193,3,274,0)"
^XMB(3.9,22,2,2180,0)="M<R!9H.EI\J-&;F0DI&)EL:!$4-339&G,Q=7HD'\7!U3JA+L^H:VYT24/""!#:"
^XMB(3.9,22,2,2181,0)="""DATA"",396.18,193,3,275,0)"
^XMB(3.9,22,2,2182,0)="M\`$'CY/M^WD`4)T2<<&&W$_O8<""KA\;L`#3U,//AEIC!!XB9BC4@:.X)-?20"
^XMB(3.9,22,2,2183,0)="""DATA"",396.18,193,3,276,0)"
^XMB(3.9,22,2,2184,0)="M4'M')0<[FNS_*=7.&[(:=\A+.P[5^`.!""4VSI7IHH4H)^XR7"";,?V/]3Y@.R"
^XMB(3.9,22,2,2185,0)="""DATA"",396.18,193,3,277,0)"
^XMB(3.9,22,2,2186,0)="M1<)LTQX0YD()8<""]<TV3J6F$/O\7?#NUE)](C#-Z/:5V8D8_>=XS4&8OIN5J"
^XMB(3.9,22,2,2187,0)="""DATA"",396.18,193,3,278,0)"
^XMB(3.9,22,2,2188,0)="M:R:S/\XR9CF3>1!)E@*-G2R2Y;4OH'XY(90@&IPM`(?VG&O*%L3N1`^SY$(<"
^XMB(3.9,22,2,2189,0)="""DATA"",396.18,193,3,279,0)"
^XMB(3.9,22,2,2190,0)="MGN.(T2(\VV\Y7DH.*KNL@NP\9[)LUKM""+?%KY@(DWW""T-FZ3-.,^_FVY2I-O"
^XMB(3.9,22,2,2191,0)="""DATA"",396.18,193,3,280,0)"
^XMB(3.9,22,2,2192,0)="M5/IQ%^,<ITN2EV;F[:]&BI>$_@)5N/O?*M7(;HUZ4%O34"",EU,#VIK%VAPI`"
^XMB(3.9,22,2,2193,0)="""DATA"",396.18,193,3,281,0)"
^XMB(3.9,22,2,2194,0)="M3\_LL(;>X;#^DL0<E)]QR+9>_])YD5Z+UTXN?CV]&,'Q<Q'EI""6R4STXA.T1"
^XMB(3.9,22,2,2195,0)="""DATA"",396.18,193,3,282,0)"
^XMB(3.9,22,2,2196,0)="MA(].+S^?!2%)/J1)L4)L4_.7!ES0%0%'0\""'F]N2L4'4L<'SF^2VBH*(8/]/"
^XMB(3.9,22,2,2197,0)="""DATA"",396.18,193,3,283,0)"
^XMB(3.9,22,2,2198,0)="MD>5DL2[!%9Z173L-PEY,@'>P3BNJ?V\)H#RL6,99QX:5NM[8,O\OYG;]ET2Z"
^XMB(3.9,22,2,2199,0)="""DATA"",396.18,193,3,284,0)"
^XMB(3.9,22,2,2200,0)="MY9T)1@^`@M.+VBX<>!=@#^AVAP)[`#[]YS^Q>O8D[M1B*-;""L_>W&*;O3UD8"
^XMB(3.9,22,2,2201,0)="""DATA"",396.18,193,3,285,0)"
^XMB(3.9,22,2,2202,0)="MCWJ-O(DU\O3.B]5)BS'-R+%E@A@]'9>TLPJD2U$%5,0P7R_^)(B.8<@`#0^,"
^XMB(3.9,22,2,2203,0)="""DATA"",396.18,193,3,286,0)"
^XMB(3.9,22,2,2204,0)="M94I8.]//VU`O4PWNJZMG&(+1""%&-PF]9*OP1VM\""_!9G>5K,<T[/ZP<Q=WZ:"
^XMB(3.9,22,2,2205,0)="""DATA"",396.18,193,3,287,0)"
^XMB(3.9,22,2,2206,0)="MHV1YE5""-C_'?YO6$Y3.TR*!EZEADCF5W#%BAW0TCM..J0'/LZH<K_Y,GFY1&"
^XMB(3.9,22,2,2207,0)="""DATA"",396.18,193,3,288,0)"
^XMB(3.9,22,2,2208,0)="MNIAM8O436^Q^NHE3<3$QEKAQNDF+T4/,0`'R]`D`Y""DH#NK';YOX6XM08T%H"
^XMB(3.9,22,2,2209,0)="""DATA"",396.18,193,3,289,0)"
^XMB(3.9,22,2,2210,0)="MYJ!<5E_[E&09BXU]#J*XH'N$??.!I*$`*$]#\3D<?5O`T1%A1`,8*P-'<7/>"
^XMB(3.9,22,2,2211,0)="""DATA"",396.18,193,3,290,0)"
^XMB(3.9,22,2,2212,0)="M-`&NPEII5I5+=VAB\""VK\]`@*%]?:/4RZ#4FH<H^45HG0]ND]Y#5SEBP3)MY"
^XMB(3.9,22,2,2213,0)="""DATA"",396.18,193,3,291,0)"
^XMB(3.9,22,2,2214,0)="MD=.3GQ09_=5&BG6V"".I^3,IG9I])%,ZZ=PDE,,AQ[TJ0?L5APXM$:3,),0(3"
^XMB(3.9,22,2,2215,0)="""DATA"",396.18,193,3,292,0)"
^XMB(3.9,22,2,2216,0)="M$/O^&,:PX;6C&*/#8$RU@@AG&56,LCO$%>CA:HWCBAKK0H4KG,;5=0^""Z]%-"
^XMB(3.9,22,2,2217,0)="""DATA"",396.18,193,3,293,0)"
^XMB(3.9,22,2,2218,0)="MFL1DSAC;:9*DT9H2$40L<^,R*>*PY'B_1W.<WB7J4`]U>Q.&T7C$-V,8]D%`"
^XMB(3.9,22,2,2219,0)="""DATA"",396.18,193,3,294,0)"
^XMB(3.9,22,2,2220,0)="M_UQD<\JU+P/ZQ_'U'0*+](!U-F(3VR%K'68[LX2IS'B3LLU;9K5\3HK\Y@XA"
^XMB(3.9,22,2,2221,0)="""DATA"",396.18,193,3,295,0)"
^XMB(3.9,22,2,2222,0)="MMO0@WDC8`>AO`[%Y$(C?A7@9W""&@MAZ@WD9[=DM$G8,@>AI$5""V\0T@=/4C]"
^XMB(3.9,22,2,2223,0)="""DATA"",396.18,193,3,296,0)"
^XMB(3.9,22,2,2224,0)="MC?:HLY5&!@Z""Z(>()<CEY""Z%EJL%:IDJM<$^W0I5US\(JL?IVCC_2N([!-73"
^XMB(3.9,22,2,2225,0)="""DATA"",396.18,193,3,297,0)"
^XMB(3.9,22,2,2226,0)="M`Q5LLE.A:6^S4^%!,/T8D+0T+>\05%\/5+C13MT.5?<P'/5MA''(E-@/Q?)."
^XMB(3.9,22,2,2227,0)="""DATA"",396.18,193,3,298,0)"
^XMB(3.9,22,2,2228,0)="MS04].ZS,]-/?KY:S#;+>H7C`2^-M2G)JC1EL\]XENGK6F&5MMG&W@M<[C#EV"
^XMB(3.9,22,2,2229,0)="""DATA"",396.18,193,3,299,0)"
^XMB(3.9,22,2,2230,0)="MFB9Y6I1;]VT2XSO=NRJKBX5BH,_%9.0.HK9$0&W8MO*L#Z5_$#<:E+C1AC$8"
^XMB(3.9,22,2,2231,0)="""DATA"",396.18,193,3,300,0)"
^XMB(3.9,22,2,2232,0)="MJ8M?&7]IW<""J$,!HY*4/-AJM^2G-`UFADL=5IM!=N%O-3Y\B:Y.*&KGKN\R#"
^XMB(3.9,22,2,2233,0)="""DATA"",396.18,193,3,301,0)"
^XMB(3.9,22,2,2234,0)="M%%W?L`J1U@GT@""LA-1%?U5EY9I]\WP-GR-!G:SI2GRWD3J3H:++MC3S?'ZFE"
^XMB(3.9,22,2,2235,0)="""DATA"",396.18,193,3,302,0)"
^XMB(3.9,22,2,2236,0)="M1QD-SDCE^<81CH,'XO,V72E^'N""J5RT>0,^;=GFS2H_2'8Q7)*/LMTTWUJNN"
^XMB(3.9,22,2,2237,0)="""DATA"",396.18,193,3,303,0)"
^XMB(3.9,22,2,2238,0)="MK*GS-*A#@L9E@6GJSNE)HM)[O1E1;?3.'83OI)39@B``UH`Q@8$<L!H-6QJR"
^XMB(3.9,22,2,2239,0)="""DATA"",396.18,193,3,304,0)"
^XMB(3.9,22,2,2240,0)="M&X96MY>!)0BXXN62IV7A:&!S>:/2I_3=;9X2S;2]S+4P@(H""4&""-NC1V$`9P"
^XMB(3.9,22,2,2241,0)="""DATA"",396.18,193,3,305,0)"
^XMB(3.9,22,2,2242,0)="M#[+`D\F""JOJ7*XSKF)/#""X.ZY%]?&-Q/_HX4'$!17F^-\7>X675]_1('D7%,"
^XMB(3.9,22,2,2243,0)="""DATA"",396.18,193,3,306,0)"
^XMB(3.9,22,2,2244,0)="MHN`!131-6T,Z-MD1[?GUW6D&^J587M%UH_P]K""'+#!*7KN95D.5TVQI+2N5-"
^XMB(3.9,22,2,2245,0)="""DATA"",396.18,193,3,307,0)"
^XMB(3.9,22,2,2246,0)="MMB6'=50<EJ?=$H.QIC7->Y""W+P[+)<#.0/<2=B^[%*N9U;WL,J!G3O>R2U2?"
^XMB(3.9,22,2,2247,0)="""DATA"",396.18,193,3,308,0)"
^XMB(3.9,22,2,2248,0)="M_;?A*CESS1!-.4/TN,X#GK<_W7@/[%#6@P16?1QJF<FIQI;0\`0""_TDU%EFG"
^XMB(3.9,22,2,2249,0)="""DATA"",396.18,193,3,309,0)"
^XMB(3.9,22,2,2250,0)="MI3C\IIQU-F9\(WY$Z>UNQ#S_2):D%[Z[]QP3:,@;Y$\U(I%PS/<I_G>!X_F:"
^XMB(3.9,22,2,2251,0)="""DATA"",396.18,193,3,310,0)"
^XMB(3.9,22,2,2252,0)="M,<UO-6JO9^/40`UJ/,%QXVLDI)RF>$Y6A)6^Q]?&(ICG29I-$8/DQ'AP#!L7"
^XMB(3.9,22,2,2253,0)="""DATA"",396.18,193,3,311,0)"
^XMB(3.9,22,2,2254,0)="M:M@*39%BPO)D&HDAR1D>DQBV2F+P:-G6%MJJ;>Y+8I0Z-U4T<D+M22,,2+3N"
^XMB(3.9,22,2,2255,0)="""DATA"",396.18,193,3,312,0)"
^XMB(3.9,22,2,2256,0)="M>/XQ_Y;_;F#<8ORU^_22ONM_^V]4^`9Q^25Z>5QT0%77&I?W9'EP;\)CAZXU"
^XMB(3.9,22,2,2257,0)="""DATA"",396.18,193,3,313,0)"
^XMB(3.9,22,2,2258,0)="M=94,&!0G21>8'N&I%78D]D@C>L>*9*2KKU[K-_':6.)>[<OL""*=Y0-6D19*$"
^XMB(3.9,22,2,2259,0)="""DATA"",396.18,193,3,314,0)"
^XMB(3.9,22,2,2260,0)="M78;I[`S/(Q*SD[A*LGY&G5@;HZJ,T3""B2O>E*W-?""@?8%E4J(*I4H*FN;O'S"
^XMB(3.9,22,2,2261,0)="""DATA"",396.18,193,3,315,0)"
^XMB(3.9,22,2,2262,0)="M;6""J3^VC<FG""*0W(DFA`P`<JY^""3!J2A`=E2B>4[""NEIC2M`8"",%Z$M09/B!"
^XMB(3.9,22,2,2263,0)="""DATA"",396.18,193,3,316,0)"
^XMB(3.9,22,2,2264,0)="MN`-]N3<0<NYV2Y2@)MI0^XE+R,;5#=_3($7,N3J0ZN/[<EI,;B-9Z&XUGY*C"
^XMB(3.9,22,2,2265,0)="""DATA"",396.18,193,3,317,0)"
^XMB(3.9,22,2,2266,0)="M.S*.+A!FB]T'S8'_&T@DHO?$T4?3,&M5RM%4I<P?094Z.6N4*4IU^V;DA`'3"
^XMB(3.9,22,2,2267,0)="""DATA"",396.18,193,3,318,0)"
^XMB(3.9,22,2,2268,0)="MV5B;\FW3O\_:5+5A6$2[?J3^II%>'3I)V'-<D%6W^R])'"":W-=))?,V@US5M"
^XMB(3.9,22,2,2269,0)="""DATA"",396.18,193,3,319,0)"
^XMB(3.9,22,2,2270,0)="M+*4SS!L[YQJF#57<P/TU;10:%I)I6&[/Y5X5QG0*+A]^A4^E1T,-RY$+1H5_"
^XMB(3.9,22,2,2271,0)="""DATA"",396.18,193,3,320,0)"
^XMB(3.9,22,2,2272,0)="MPAWQSK><4%._.L/7K(=`_H#\\KX\J`$YQZTE!@]U""HTX-2OM(S>AX=@:%'EB"
^XMB(3.9,22,2,2273,0)="""DATA"",396.18,193,3,321,0)"
^XMB(3.9,22,2,2274,0)="M_UV@$0<^HIB4K<RT""6K9'E*R/6?4H^-`#8^.OV^V=U&SLN-@FNTUW[V<8'L7"
^XMB(3.9,22,2,2275,0)="""DATA"",396.18,193,3,322,0)"
^XMB(3.9,22,2,2276,0)="MC.U=CGMT&H%N*KPC/%B^-P566Q;8`\O;OS@OFQL;BZ@@O1CU6Q+A7S(FU*F^"
^XMB(3.9,22,2,2277,0)="""DATA"",396.18,193,3,323,0)"
^XMB(3.9,22,2,2278,0)="M*7SV>QR2:YSE[!,J\+L/Z-ECS3VCM:'XPMN(OF69&_-DL<#XE^NJ+((E=:3T"
^XMB(3.9,22,2,2279,0)="""DATA"",396.18,193,3,324,0)"
^XMB(3.9,22,2,2280,0)="M#_?@7*E504NN""CHVKPFB'RI`#:>2E7S.'P$\(3Z-MDM6>CBBT95R5$]N,P+."
^XMB(3.9,22,2,2281,0)="""DATA"",396.18,193,3,325,0)"
^XMB(3.9,22,2,2282,0)="MUR;&$39.3*);_ZI('XI85`2LO-'8""]C4^W#3H#8M@:`RIL`KWFB;#)A[$5.X"
^XMB(3.9,22,2,2283,0)="""DATA"",396.18,193,3,326,0)"
^XMB(3.9,22,2,2284,0)="MT(XIE`$8""?>SN#3C?:9J[H'YF3)3P>Z;""BZ7J5EU/NXMJ_G(F9\G9WYRSZO#"
^XMB(3.9,22,2,2285,0)="""DATA"",396.18,193,3,327,0)"
^XMB(3.9,22,2,2286,0)="MGQHQSK!AULZ*7`<9/0YSXYBJ/6E7$7W/V:#G*=HY<`<)F;MZ8<,:M8FPKP9/"
^XMB(3.9,22,2,2287,0)="""DATA"",396.18,193,3,328,0)"
^XMB(3.9,22,2,2288,0)="M]@07NNM/D_(IF9=F`*-D116^S7R?)44*XU.(CH/-<U<YF+8D3N%)1^/`.?JI"
^XMB(3.9,22,2,2289,0)="""DATA"",396.18,193,3,329,0)"
^XMB(3.9,22,2,2290,0)="MJ]O15O-JA:8*+*'L#DQQ:T^76YO;.RT;"":R.\/-'0TP*FQ;'$`%?UR`$/[HX"
^XMB(3.9,22,2,2291,0)="""DATA"",396.18,193,3,330,0)"
^XMB(3.9,22,2,2292,0)="M%LJ`)JJ`O-%40""CZ:MJY-2UR7=_7_=8`O9G/D^4JB`G=TU?K<JO_?5`'!*<6"
^XMB(3.9,22,2,2293,0)="""DATA"",396.18,193,3,331,0)"
^XMB(3.9,22,2,2294,0)="MH]^[L->Y4*?+0KW31C(1O5'+&KB3NPZ::""S(,K45T8$SP%L]V%.>/)[9;H<!"
^XMB(3.9,22,2,2295,0)="""DATA"",396.18,193,3,332,0)"
^XMB(3.9,22,2,2296,0)="MV`4#:S)N$-T&Z]XFJ)E[WC]8)_-YP+J[,B^""$HTV7`*5L1/>\2FBX8G<O2FY"
^XMB(3.9,22,2,2297,0)="""DATA"",396.18,193,3,333,0)"
^XMB(3.9,22,2,2298,0)="MZX,!Q\#8H__EO+C*<IS&_8#*FW39VQLW21&%!XZ6V+M$2^0ZO:SX""GC*#-.F"
^XMB(3.9,22,2,2299,0)="""DATA"",396.18,193,3,334,0)"
^XMB(3.9,22,2,2300,0)="MT5C+X,RG_(J!EN_+51RY&YOO\B,60PX=CN-J_O$Z8R_)`\FP<!6.=LXMY(HA"
^XMB(3.9,22,2,2301,0)="""DATA"",396.18,193,3,335,0)"
^XMB(3.9,22,2,2302,0)="M$Z""A%QY1S2""[93TT;HTDCM9&1/Y=D'!""O7==#7H`M""<S""/0)*B<R90F]3Y9$"
^XMB(3.9,22,2,2303,0)="""DATA"",396.18,193,3,336,0)"
^XMB(3.9,22,2,2304,0)="MI'+6CA/I(1TB7;$!#S`W(U*;'$N#'""128ZOLLX;5N""YL-*DQ6V111`W%DPG$"
^XMB(3.9,22,2,2305,0)="""DATA"",396.18,193,3,337,0)"
^XMB(3.9,22,2,2306,0)="MGLYN@T#TR8""M*+THKK""QJ#H.9).^-64)'4^<)=;V#&Q+68''WF+:HO+P.:%R"
^XMB(3.9,22,2,2307,0)="""DATA"",396.18,193,3,338,0)"
^XMB(3.9,22,2,2308,0)="MJ!X4QG1VF5IA/&<=VJJ0=:G]&U=%;@2Y$6%6&5-I[R_DRD?_;Q,VXJDR""?A?"
^XMB(3.9,22,2,2309,0)="""DATA"",396.18,193,3,339,0)"
^XMB(3.9,22,2,2310,0)="M*`MKN)\XHSR(_^/V.U.ZG:>W#F*FE=XZ6/NRJ1[^.OAZZP#$L+#>0B#-A8""["
^XMB(3.9,22,2,2311,0)="""DATA"",396.18,193,3,340,0)"
^XMB(3.9,22,2,2312,0)="M+,2%<B$^[;`0GW99B$^;+T3I$]99""6\KUJ1;W8N>C@0`>BL!T5;,R9X=R,)4"
^XMB(3.9,22,2,2313,0)="""DATA"",396.18,193,3,341,0)"
^XMB(3.9,22,2,2314,0)="MK\079F]/Q5%4=<Z0TZNAX^PMDF+O'DFQ3?9/UO,95`VY^SFR;6Y[52""_L^WU"
^XMB(3.9,22,2,2315,0)="""DATA"",396.18,193,3,342,0)"
^XMB(3.9,22,2,2316,0)="M@#H\RX>,5^@JTMF%+.3=HBIG^!O!MVSWGN$Y!?<P,17[KLTN!J""BO3,0S%51"
^XMB(3.9,22,2,2317,0)="""DATA"",396.18,193,3,343,0)"
^XMB(3.9,22,2,2318,0)="M;]<R=>I)DI0Q&FF%V^L[Z^:SXSQI1>>'<LM!6?<'O@)[P'S!H#WRP.<'/=^<"
^XMB(3.9,22,2,2319,0)="""DATA"",396.18,193,3,344,0)"
^XMB(3.9,22,2,2320,0)="M:;<,;:E!,FJ0R7<)@^XVY(""9=L/-BC56)U(51O$$5NU-&%CZ890=YJCS48#J"
^XMB(3.9,22,2,2321,0)="""DATA"",396.18,193,3,345,0)"
^XMB(3.9,22,2,2322,0)="M`2::VW&I8R*R$`Q2QP;(.O9A@@-'QGM""]W;%K5[/IB1T]3T<]D,!N5&J166^"
^XMB(3.9,22,2,2323,0)="""DATA"",396.18,193,3,346,0)"
^XMB(3.9,22,2,2324,0)="MV-7:^./-V4D_AUSXJ%1S8OI'P3>J-Y4CQK9MV%PA/]'[#L*=L?<.U""N[GO)5"
^XMB(3.9,22,2,2325,0)="""DATA"",396.18,193,3,347,0)"
^XMB(3.9,22,2,2326,0)="M""X@?;0W02+5,IZ0,BR!Y*2""Z1""Q)JJLOJI1.V\;U$57'F%-S0*3UCK!7[FCU"
^XMB(3.9,22,2,2327,0)="""DATA"",396.18,193,3,348,0)"
^XMB(3.9,22,2,2328,0)="M54*W0K[CC%4SDB=W_+`#Y#!5PU;Y23ES2:P&<S9K^-`<_Y,5B=FGY\5R&:3K"
^XMB(3.9,22,2,2329,0)="""DATA"",396.18,193,3,349,0)"
^XMB(3.9,22,2,2330,0)="M>^^>K^6Z(HL-\:$]:/])>6Q#IE:V4A[VI$1CSFAGX(QNG<!=:5`W/NB)G77L"
^XMB(3.9,22,2,2331,0)="""DATA"",396.18,193,3,350,0)"
^XMB(3.9,22,2,2332,0)="M3)8N78N+V@!S^OS,%HJ+:M7PB9\->ZX.C3:=L4:#>H;-4J@E([_N>831EKL)"
^XMB(3.9,22,2,2333,0)="""DATA"",396.18,193,3,351,0)"
^XMB(3.9,22,2,2334,0)="M^&05).HWEBK1IX.MES52)@%<E5S*>/:V(%'8S*U[9N2),6>32)F#,""*5)VQ5"
^XMB(3.9,22,2,2335,0)="""DATA"",396.18,193,3,352,0)"
^XMB(3.9,22,2,2336,0)="M?9A1J`*RG!E_;7\+EX49)*0/2!8LU2<LV.$N?6?X>[`D<9DE^#Q[\<JXN""%9"
^XMB(3.9,22,2,2337,0)="""DATA"",396.18,193,3,353,0)"
^XMB(3.9,22,2,2338,0)="M\U/53]^2_F]%$?NSV+C""G8;8-""5[=IS,""V:C=X3>ECD&+XV`_FB04CK[OU5Y"
^XMB(3.9,22,2,2339,0)="""DATA"",396.18,193,3,354,0)"
^XMB(3.9,22,2,2340,0)="M[YXUT_BN,"",JQ#G]61R^?F9D)08,&$;(JRUZ6P*DL4[>H+?E=):GN$Z21Z=K"
^XMB(3.9,22,2,2341,0)="""DATA"",396.18,193,3,355,0)"
^XMB(3.9,22,2,2342,0)="MA-F$8R,,\H""5905IV6RY7:>4_NFW/AX!&S"";M,MBY.L5WNJI+8VG'G10KO.N"
^XMB(3.9,22,2,2343,0)="""DATA"",396.18,193,3,356,0)"
^XMB(3.9,22,2,2344,0)="M-WOLVI75/'VYC\I'+R^S(#1+I%RLC6`^+]*@BK!FQ57_L<L1T&$)TZOQ-%E@"
^XMB(3.9,22,2,2345,0)="""DATA"",396.18,193,3,357,0)"
^XMB(3.9,22,2,2346,0)="MZS2.$HZ=1IXLF+JOH],BRM[XOG#JOJ[&?0<+J7%CI+QQ/0H2*9I""""[>V]J>A"
^XMB(3.9,22,2,2347,0)="""DATA"",396.18,193,3,358,0)"
^XMB(3.9,22,2,2348,0)="MF;O[QSUIH4'/,UXAU75]X3WC5B5[G]2&8??PP=94'`CHCU5>.9LU??F#Y-0$"
^XMB(3.9,22,2,2349,0)="""DATA"",396.18,193,3,359,0)"
^XMB(3.9,22,2,2350,0)="M.B?7#T5K0`K3D3M38FM=1R/!Y@(O5RSKM$CQ*$.Q5$DUHQ3HU$2?%E$V<6]/"
^XMB(3.9,22,2,2351,0)="""DATA"",396.18,193,3,360,0)"
^XMB(3.9,22,2,2352,0)="MX^'%$30Z10YG.%L1^O!)NC;.FLQ;)16*+C.\)[#U9[>R<5HTSJK9G;/Q""(E<"
^XMB(3.9,22,2,2353,0)="""DATA"",396.18,193,3,361,0)"
^XMB(3.9,22,2,2354,0)="M,/-V[_#N.@M0CM`;O[N\S,07XKQBR%/[T0UZ,N-K?)""S""NXD)E/!)`]A^=:H"
^XMB(3.9,22,2,2355,0)="""DATA"",396.18,193,3,362,0)"
^XMB(3.9,22,2,2356,0)="M;Z+M^#D8!B[1GOIC7I_3DSMGBB-5C&ZKZVRBE%$FYJ=4+Z+*U%5`56%JEK\P"
^XMB(3.9,22,2,2357,0)="""DATA"",396.18,193,3,363,0)"
^XMB(3.9,22,2,2358,0)="MG@>LEJ&O/5WCYL]J+1P::\Q,\%6*Y]5D&FIVX;RN1L+TIU[<7=.A`ZS;1KJP"
^XMB(3.9,22,2,2359,0)="""DATA"",396.18,193,3,364,0)"
^XMB(3.9,22,2,2360,0)="MREN']K^:'UB;',EJ7K/K3ZNYE]6T=>27.$G!U9A54+4O.&6E>E-""U+8T!-F0"
^XMB(3.9,22,2,2361,0)="""DATA"",396.18,193,3,365,0)"
^XMB(3.9,22,2,2362,0)="MAVL0\;&3(/>9?\J-%F1QT1^QZZE&`L""OXS9+F<DTW20,.=;^O,IP>[<R""[*["
^XMB(3.9,22,2,2363,0)="""DATA"",396.18,193,3,366,0)"
^XMB(3.9,22,2,2364,0)="MTM#_:,,[X$XV7W>!;<^TQS:S^WM2.G8FA'X%Z$^@*$=AF-.(B#M'AQ#/<F;:"
^XMB(3.9,22,2,2365,0)="""DATA"",396.18,193,3,367,0)"
^XMB(3.9,22,2,2366,0)="MD>22$""`EQ.'51.!-*&JRM8&S+><Y3LUQ=0&?I#'`2:0.""=0Y79G8/J+9XB""Q"
^XMB(3.9,22,2,2367,0)="""DATA"",396.18,193,3,368,0)"
^XMB(3.9,22,2,2368,0)="M'XBCZ4X;Z$U+I.^8A)^*@>C,/JRS+96MEWA5$T&Q.R!""&MO,VJ7@#TPF[?_-"
^XMB(3.9,22,2,2369,0)="""DATA"",396.18,193,3,369,0)"
^XMB(3.9,22,2,2370,0)="M:+L1LZD,O=>P]QKU7ELF\T(O$XU:2'4O/N3L`9J=ZD$!^%.@*9F2-#D+^KPW"
^XMB(3.9,22,2,2371,0)="""DATA"",396.18,193,3,370,0)"
^XMB(3.9,22,2,2372,0)="M6_`&#H(.$N[8UA!HY'B4A%C2+#%[=T+09BEK0)H\YUB[<6D7`:2?J\:SY*G9"
^XMB(3.9,22,2,2373,0)="""DATA"",396.18,193,3,371,0)"
^XMB(3.9,22,2,2374,0)="MT*8SZKL==$Y`0]HVG+@K[&T5DYZL2B#Q_*;;LO/EUL.>P<1<8A_P_1'$NC@T"
^XMB(3.9,22,2,2375,0)="""DATA"",396.18,193,3,372,0)"
^XMB(3.9,22,2,2376,0)="MA1$;26H?)""VK=$8RVXN](`LR9R&;OC7/1M<%45Q0_-C?'*28WAN?6.,KU&#?"
^XMB(3.9,22,2,2377,0)="""DATA"",396.18,193,3,373,0)"
^XMB(3.9,22,2,2378,0)="MV;E7[AG^)5GA>*:8,;ECGR!;ZKXW>WV""N)IBCZ\I;KSY3][[P:3-8<FBW`]I"
^XMB(3.9,22,2,2379,0)="""DATA"",396.18,193,3,374,0)"
^XMB(3.9,22,2,2380,0)="MP[&!7]Z&+=MQLHJ"";-D4:>#FHX?ARX?R""`AOY+JB>@(US-QC$ES'23D'DR)7"
^XMB(3.9,22,2,2381,0)="""DATA"",396.18,193,3,375,0)"
^XMB(3.9,22,2,2382,0)="M4*W`>(Z_!_/\Q425L:=!$;#$7`ZD0Q++-""@]3@UISY?+7]?TWQ1-O@Y-_F""6"
^XMB(3.9,22,2,2383,0)="""DATA"",396.18,193,3,376,0)"
^XMB(3.9,22,2,2384,0)="MKX;;_V*]PE69<]A,P<Q92D09A'].A554S3;.BO0:IU.$^D""#T+ITIL<S-?H<"
^XMB(3.9,22,2,2385,0)="""DATA"",396.18,193,3,377,0)"
^XMB(3.9,22,2,2386,0)="MG;*B+6R$=1/Z""3(4[DK`CY&VQ18RPXELCG(1(U9#UH.J6<DQI7@#'YWE:B`Y"
^XMB(3.9,22,2,2387,0)="""DATA"",396.18,193,3,378,0)"
^XMB(3.9,22,2,2388,0)="M?()ALIR$N[!34""YW^QQ4_I*XXC0YF?<?*PQ?&LOE2V-/SU;'Q17CX`#/.M$>"
^XMB(3.9,22,2,2389,0)="""DATA"",396.18,193,3,379,0)"
^XMB(3.9,22,2,2390,0)="M9_JX^RI&<,:U+N2.-BD:=,T4^ZH`%Z'#U""%<!EE5YE?RPF404=V+KOO?-Q]8"
^XMB(3.9,22,2,2391,0)="""DATA"",396.18,193,3,380,0)"
^XMB(3.9,22,2,2392,0)="M+NI6O;ZW7^/D-I8H6^9(5FAICPVR0OF=[@M`PL'@1\L?``F]1SBF?`QH;QKH"
^XMB(3.9,22,2,2393,0)="""DATA"",396.18,193,3,381,0)"
^XMB(3.9,22,2,2394,0)="M=A['""-)@N&71XT-ZS+*7%Z,)XL<S-RW_8DB/-EW2L+,965('B+`/MJ,.:%)G"
^XMB(3.9,22,2,2395,0)="""DATA"",396.18,193,3,382,0)"
^XMB(3.9,22,2,2396,0)="MC6U3.+U-$413V[21)7V&X#Z^;>J,[`-G>A^T/9#40$OV`?1GFT\;DU5D.SV["
^XMB(3.9,22,2,2397,0)="""DATA"",396.18,193,3,383,0)"
^XMB(3.9,22,2,2398,0)="MU>.3U7TAZ^RI^&9HM]J*\9B*ZFQ_K#K;<39K^)UD;')51/Y3]TY-C?/*AG@8"
^XMB(3.9,22,2,2399,0)="""DATA"",396.18,193,3,384,0)"
^XMB(3.9,22,2,2400,0)="M9=I`8>JXH_,>3(U!6PURI546U;UG)SK?0@UB?&>RFDINL[ZFQL+Z9=4,HR2*"
^XMB(3.9,22,2,2401,0)="""DATA"",396.18,193,3,385,0)"
^XMB(3.9,22,2,2402,0)="MY5(89&&4VAY;V6""U2I/OA(TI*`V+""6J1!K4`#:JC+9TLMB""K-AO+^JZRI,M-"
^XMB(3.9,22,2,2403,0)="""DATA"",396.18,193,3,386,0)"
^XMB(3.9,22,2,2404,0)="M-T&1I4&1&`FT@#]I;'6-32A).)C?&)0=Q?E+8T&BJ$E.J6`D\2))E^5BOZQ3"
^XMB(3.9,22,2,2405,0)="""DATA"",396.18,193,3,387,0)"
^XMB(3.9,22,2,2406,0)="MWI_5""O4S8]'/;F%5""-V7RS+3ZB?8VJR*[*;\U:RX6I*F]&&+]'=;!Q(QG`UM"
^XMB(3.9,22,2,2407,0)="""DATA"",396.18,193,3,388,0)"
^XMB(3.9,22,2,2408,0)="M#9]#78;'5B>@*-SPG*)NNE8N&\%9_1PYGNATYBIJ26S>7RL>@N$\9(G%_)<J"
^XMB(3.9,22,2,2409,0)="""DATA"",396.18,193,3,389,0)"
^XMB(3.9,22,2,2410,0)="MI84RL!+2/#&"",&1K5!)8UQKPQ86;F,-(,>(60I//R-^?.>SLEG$A#>OS6\,5"
^XMB(3.9,22,2,2411,0)="""DATA"",396.18,193,3,390,0)"
^XMB(3.9,22,2,2412,0)="MZR+`9$P1F9X[V\ATE&N*/!\1O4U:A/CP\6F*<$PG=S20%F=+6(->D&@PL(>>"
^XMB(3.9,22,2,2413,0)="""DATA"",396.18,193,3,391,0)"
^XMB(3.9,22,2,2414,0)="MS\>'M#7N'5/4]4(7CK(R'790<;`=VRI)B5;-EN1YV%9$E_.79O(`WDXTNXH"""
^XMB(3.9,22,2,2415,0)="""DATA"",396.18,193,3,392,0)"
^XMB(3.9,22,2,2416,0)="M:G[*M+-%=4[C""=MG!75-M*=%=""O7]D(UVJWN&YK3W`,Z<(I[M./2^S,A'R&C"
^XMB(3.9,22,2,2417,0)="""DATA"",396.18,193,3,393,0)"
^XMB(3.9,22,2,2418,0)="M=B<L:4<6`;;Z$6#(A8!-/@0,*\_)DRG-G5OY5$D=2T9L8@$V&RKYD61E40[5"
^XMB(3.9,22,2,2419,0)="""DATA"",396.18,193,3,394,0)"
^XMB(3.9,22,2,2420,0)="MEB_2H%@&#\-^MA05\YS&BR8;<LLCFB];N[D-;5:138;?ZWN<&EY/[U/%SX#0"
^XMB(3.9,22,2,2421,0)="""DATA"",396.18,193,3,395,0)"
^XMB(3.9,22,2,2422,0)="M+7E'@^$>E#WLKSE)624\;+;$#SH5S[([.,L2MW/;OO.I.4DKHV2#CWN#'""O7"
^XMB(3.9,22,2,2423,0)="""DATA"",396.18,193,3,396,0)"
^XMB(3.9,22,2,2424,0)="M2E<\!P1G[V,?Y`CDDQQM176HZXZ.<MRLJU*;6?,P4I""`H@N)Q4OQMJ_#C^0Y"
^XMB(3.9,22,2,2425,0)="""DATA"",396.18,193,3,397,0)"
^XMB(3.9,22,2,2426,0)="M`H[*5.2C9:ZPY);&`#:%U85V-6#^O[UK_8T;1_+_BC!?/`&2G$CJ&6""QR""3."
^XMB(3.9,22,2,2427,0)="""DATA"",396.18,193,3,398,0)"
^XMB(3.9,22,2,2428,0)="M;8#,Q7`R.[<?Y6[9UDYWJT_J=N+]ZX^D6A(?18KJ9^ST8#`82^UVD54LUO-7"
^XMB(3.9,22,2,2429,0)="""DATA"",396.18,193,3,399,0)"
^XMB(3.9,22,2,2430,0)="MR.1U10K^1+P_]W9GK\O-)=^*YGW,RY5)WNCH\CL+TW4_N*-EQEJDG73%PF7U"
^XMB(3.9,22,2,2431,0)="""DATA"",396.18,193,3,400,0)"
^XMB(3.9,22,2,2432,0)="MG^X*>$WMT<E?K#I,+$)A5T+_D6O6R\Q5N`^]!K_A[7I5-A\QWO6;+]/K""96H"
^XMB(3.9,22,2,2433,0)="""DATA"",396.18,193,3,401,0)"
^XMB(3.9,22,2,2434,0)="MM6`:M0\4V$3@0`/G0JY%`Y%VNC(8%WUHTXA&R\E!*QKN>_-]OA$?:""MCPU9&"
^XMB(3.9,22,2,2435,0)="""DATA"",396.18,193,3,402,0)"
^XMB(3.9,22,2,2436,0)="M\DZ&,;""3OMM.OIU.>8%W-F.MO1R7N+7.S801[,CC%A=*T'NI&UW=%??FV7$U"
^XMB(3.9,22,2,2437,0)="""DATA"",396.18,193,3,403,0)"
^XMB(3.9,22,2,2438,0)="M<-R\4-T[3!R9N@$U:K(X_-KCB:\6#>NV*N?\VMO@J79K!""X^VTK""U/6HZ_+9"
^XMB(3.9,22,2,2439,0)="""DATA"",396.18,193,3,404,0)"
^XMB(3.9,22,2,2440,0)="MMM@,+>77#V4UITK;CU\HV%\WCQQ<ZO6VU$?(0'W@)T.,B$*-^E[4]=SC)OM8"
^XMB(3.9,22,2,2441,0)="""DATA"",396.18,193,3,405,0)"
^XMB(3.9,22,2,2442,0)="M47^8X6:MJR6]<.J7=/^79<6?<?YLJI+IVB;EHCF6G(?%JO:$["",#0KN]I8NI"
^XMB(3.9,22,2,2443,0)="""DATA"",396.18,193,3,406,0)"
^XMB(3.9,22,2,2444,0)="MO3I?9FQ(W^S1*VIOD4^HI</R>M2LH<Q^H+M%OZ#)#2^K@N>&BSJ[*>1OF[$!"
^XMB(3.9,22,2,2445,0)="""DATA"",396.18,193,3,407,0)"
^XMB(3.9,22,2,2446,0)="MH?E#-ELW#OMMFRGMR-AZDQ'&KKL<1.HVIXZW`=O;R[?O_M&7=0^K,(2)B3""L"
^XMB(3.9,22,2,2447,0)="""DATA"",396.18,193,3,408,0)"
^XMB(3.9,22,2,2448,0)="MJM=4/XBZ%NM_""^0_BXFP;#,E=7)?4B;S`UBLQ./8`<BQ`7:_L/D7]`Q7E(5U"
^XMB(3.9,22,2,2449,0)="""DATA"",396.18,193,3,409,0)"
^XMB(3.9,22,2,2450,0)="M7<H<FS!>3KUOQ8IEFBGKNY7OP*G`=4-2I!_GT(U5GY?-9?.R-<29J%$9Z\#D"
^XMB(3.9,22,2,2451,0)="""DATA"",396.18,193,3,410,0)"
^XMB(3.9,22,2,2452,0)="M7#@7NA**>AHZ2M-P+.L^+AB&[:KA6'ORREOIS!8<S;^<3-;+;'.=-F$O-L!5"
^XMB(3.9,22,2,2453,0)="""DATA"",396.18,193,3,411,0)"
^XMB(3.9,22,2,2454,0)="M8IV735;%`SU5^2Z\BIRW(/#5+2"".O&I,^=<.#(E=SSA`C:,]$+C0D3C3H0N&"
^XMB(3.9,22,2,2455,0)="""DATA"",396.18,193,3,412,0)"
^XMB(3.9,22,2,2456,0)="M(QW$A8[4E0[])#F2@1W((+XK&=&V7$%6,GAT24+T%GNT%(ZT@641QU$7U`!U"
^XMB(3.9,22,2,2457,0)="""DATA"",396.18,193,3,413,0)"
^XMB(3.9,22,2,2458,0)="MI$)A(]B#@XPPC45:Z@""X_\6PH_`0V""/9EMVTS'B7O?)@NJ15]_13GT7-\;;3"
^XMB(3.9,22,2,2459,0)="""DATA"",396.18,193,3,414,0)"
^XMB(3.9,22,2,2460,0)="M$!?]][E9OW;[UV(!.]G`1BO8;`<+H@$Y$I&1#0BK;$`)`1B1^%LPHJ3;7WFU"
^XMB(3.9,22,2,2461,0)="""DATA"",396.18,193,3,415,0)"
^XMB(3.9,22,2,2462,0)="MT/O:Z755BW>\>""-L`UA<;5]J8EXI45=*?'VA:>J^SD;.Y+5<N!!I/A4H3%VH"
^XMB(3.9,22,2,2463,0)="""DATA"",396.18,193,3,416,0)"
^XMB(3.9,22,2,2464,0)="M1$D$D(DCB,S^&<.>8L9.+IX/;M4P8Y6;I\5\F:E+$MDC7;+T^^IA;AFN7?L."
^XMB(3.9,22,2,2465,0)="""DATA"",396.18,193,3,417,0)"
^XMB(3.9,22,2,2466,0)="MZ?:LA8^""%RY.&AVA.J[SFDU2IA[""M[+ZJ[.2MA?%9@XU=WW$D=36@Q<`""A`1"
^XMB(3.9,22,2,2467,0)="""DATA"",396.18,193,3,418,0)"
^XMB(3.9,22,2,2468,0)="MB-&AH$^Z](N/42(2;!E+_004'0BK8>W6VC1I2:WVFYO@0OK,X`?8#)3+^7)6"
^XMB(3.9,22,2,2469,0)="""DATA"",396.18,193,3,419,0)"
^XMB(3.9,22,2,2470,0)="M/N;3-DUD5[Y0R&Y(.,)1PM$-=1^6C@@#TH'\-'8YJS^GV+RMV25%]^-]006"""
^XMB(3.9,22,2,2471,0)="""DATA"",396.18,193,3,420,0)"
^XMB(3.9,22,2,2472,0)="M<=E[OU8L`^ZB,!1U%CGXRL&Y\]KX@;<W-2MMSHMZ+G_D,[L31:DRS7`?(7'("
^XMB(3.9,22,2,2473,0)="""DATA"",396.18,193,3,421,0)"
^XMB(3.9,22,2,2474,0)="M3>(""F\3UD:(^W@G8`3ZH55$*BER<G$7.)'(L`5\]>A)B%'_Q/F]EZ!T;Z;E8"
^XMB(3.9,22,2,2475,0)="""DATA"",396.18,193,3,422,0)"
^XMB(3.9,22,2,2476,0)="M5;)AL1$T,=KT6WZ?/11E)7_FJF2M*.6DH!?X1U9FGTDC%=H_1R6^F%`9?*1+"
^XMB(3.9,22,2,2477,0)="""DATA"",396.18,193,3,423,0)"
^XMB(3.9,22,2,2478,0)="MW`RPAB8P:-3]7C8V@_%]MEC3O_P^I^RMM,]=M:CV/+CRJ;CEMR]SYM]E5?5("
^XMB(3.9,22,2,2479,0)="""DATA"",396.18,193,3,424,0)"
^XMB(3.9,22,2,2480,0)="M?S""2><TB`MH'OBSS?'+O]9^37_\CS_@,`]/[?Q9LIJKQ]2<J2QS'9<7''\@O"
^XMB(3.9,22,2,2481,0)="""DATA"",396.18,193,3,425,0)"
^XMB(3.9,22,2,2482,0)="M_\RSOY@N8%&6#Y19=^O<M""E4&O+%W>K^C??'<DG/+I7]*I];=K'_A4_E-_,O"
^XMB(3.9,22,2,2483,0)="""DATA"",396.18,193,3,426,0)"
^XMB(3.9,22,2,2484,0)="M_$$7QR*25`&5O,6=2H[\B0_YA,N!Z?T5`RM3MKR^I6NA?XX*X>&5&!Y08KQT"
^XMB(3.9,22,2,2485,0)="""DATA"",396.18,193,3,427,0)"
^XMB(3.9,22,2,2486,0)="M1:ZOM-^8::+K+R*ZG?VI36-8?Z4N^NLP^@D;])->^&+53L8""&*D(9HA-UF(8"
^XMB(3.9,22,2,2487,0)="""DATA"",396.18,193,3,428,0)"
^XMB(3.9,22,2,2488,0)="M.&\N\-$<M0@-40N21,-Q""^3O&+<@9H?9MWAHJJ!%4-PBW<)=5@*?[,=E'[M8"
^XMB(3.9,22,2,2489,0)="""DATA"",396.18,193,3,429,0)"
^XMB(3.9,22,2,2490,0)="MUTR=-A.B87?Y6<8N$$%&7FAG'J<Z+Q($L(*D(""O>5IP+52X&*N""-__MSV/CM"
^XMB(3.9,22,2,2491,0)="""DATA"",396.18,193,3,430,0)"
^XMB(3.9,22,2,2492,0)="M?'-+C$6/7A`$'`^\35CO%W[K_+)AC=N1&.>VRW`G&!D04(0%BV$QLPC&`;!<"
^XMB(3.9,22,2,2493,0)="""DATA"",396.18,193,3,431,0)"
^XMB(3.9,22,2,2494,0)="M\,[QL1\(Y)N`4>RP?3!""BEJ-<U]63GOU)`QP6T1@H5@ZOQ>SJ?*DG+)Q&,KG"
^XMB(3.9,22,2,2495,0)="""DATA"",396.18,193,3,432,0)"
^XMB(3.9,22,2,2496,0)="MOK#!\*J55/&VUGJ+L``:)WQX6/A0D.Y=^M+C2!_]ZN62\NLL?T>3/SQ._LBP"
^XMB(3.9,22,2,2497,0)="""DATA"",396.18,193,3,433,0)"
^XMB(3.9,22,2,2498,0)="M_'60T?N3/P']]J#R=_D]KR9%G9_E[VCR1\;)7S`L?YKV0Y""Q,4K]A4=2?ZP@"
^XMB(3.9,22,2,2499,0)="""DATA"",396.18,193,3,434,0)"
^XMB(3.9,22,2,2500,0)="MZ7SY'D_X@E'""%T7;6'X[2A_RX_@XTG?-HTL]V,I9`H\@@>$X]1=N9?[MK`""["
^XMB(3.9,22,2,2501,0)="""DATA"",396.18,193,3,435,0)"
^XMB(3.9,22,2,2502,0)="M+N,#B^#7*GM@0XW.!N#Q)#`:)8'$W\H`W/T*3HXC@1]R/A[K+']'D[]XG`9,"
^XMB(3.9,22,2,2503,0)="""DATA"",396.18,193,3,436,0)"
^XMB(3.9,22,2,2504,0)="MMS``,2$[2E]T'.G[+5O=GZ7OF-*7C).^9*O8W\[B=R0+\#WKU3S+WS'E+QTG"
^XMB(3.9,22,2,2505,0)="""DATA"",396.18,193,3,437,0)"
^XMB(3.9,22,2,2506,0)="M?_%VX;]=!1""A(]E_93'+5V<)/&H`VA\G@M%V$<""==2`YC@C2%97SLP0>50+'"
^XMB(3.9,22,2,2507,0)="""DATA"",396.18,193,3,438,0)"
^XMB(3.9,22,2,2508,0)="MY4`(V<($C(""JM0@2OQ`JDXP#<DCQL_/I7[E6B""IN\H@24U8BDQI+9?0D;1""Y"
^XMB(3.9,22,2,2509,0)="""DATA"",396.18,193,3,439,0)"
^XMB(3.9,22,2,2510,0)="MEOP'""1RZBLZ5,J,K91!V*Y5A7`P4;IJ:F2.]#4UO`0Z[\R""`]Z#P@""W@&&P!"
^XMB(3.9,22,2,2511,0)="""DATA"",396.18,193,3,440,0)"
^XMB(3.9,22,2,2512,0)="MASADX(^%.P)OS)P9X(M^MD!.;)`)U9%I?;=5BF5^)(G6\H7TQL@0Z/EBJ+.>"
^XMB(3.9,22,2,2513,0)="""DATA"",396.18,193,3,441,0)"
^XMB(3.9,22,2,2514,0)="MV*EZ`=#:_>(@>H9A0>W43*Q-T`0JZ[0(3U]5!S3J(DW&$ISTZ65#V2R4,+=H"
^XMB(3.9,22,2,2515,0)="""DATA"",396.18,193,3,442,0)"
^XMB(3.9,22,2,2516,0)="MS8[WQH-#X(.C-1]K]651`O5%ZR<GB1$YGQPAR;)AA043""P.86)LA7FVW@XB*"
^XMB(3.9,22,2,2517,0)="""DATA"",396.18,193,3,443,0)"
^XMB(3.9,22,2,2518,0)="MM9G$(,!CAC`J5K^EGXIY_D0`KA)X7AR,NB_/;D4*4E.:#.-;75U_OKJ\_OKQ"
^XMB(3.9,22,2,2519,0)="""DATA"",396.18,193,3,444,0)"
^XMB(3.9,22,2,2520,0)="M\LLS&:QG&($F;52@X@,Z#`2@@LY*PO_F!PBAX`E#*38HE)'#-JFC[A%""P_O4"
^XMB(3.9,22,2,2521,0)="""DATA"",396.18,193,3,445,0)"
^XMB(3.9,22,2,2522,0)="MW#=?\^^KOUU*,QMM(U`@X%8DP.*%$G!KB&7@5G*&Q4MAB#>8R_*D=P4$B^@8"
^XMB(3.9,22,2,2523,0)="""DATA"",396.18,193,3,446,0)"
^XMB(3.9,22,2,2524,0)="M:594/&&H06N>?%GF$]91UT*X/GG-TLAT[#2M`*MX>3M@H>V*[!E""R)[M!""FY"
^XMB(3.9,22,2,2525,0)="""DATA"",396.18,193,3,447,0)"
^XMB(3.9,22,2,2526,0)="MG;A#BHJU*0$=!IK@'""1G9$_-BO$QQA`$==SKL4!""]\3J""&+\DZNQYB3I=SK="
^XMB(3.9,22,2,2527,0)="""DATA"",396.18,193,3,448,0)"
^XMB(3.9,22,2,2528,0)="MV0@>!8L)LLUNT@?F6G59T^7+!X`^%]75;6`,6Y`R%KTZ:87XOONH'UZ/+P,%"
^XMB(3.9,22,2,2529,0)="""DATA"",396.18,193,3,449,0)"
^XMB(3.9,22,2,2530,0)="MW&\PO.MB,>$H6!.ZAW>Y]RMO\^.3=SG`&'\OCOIIQK,RI#$V;XG#$M!_,Z_*"
^XMB(3.9,22,2,2531,0)="""DATA"",396.18,193,3,450,0)"
^XMB(3.9,22,2,2532,0)="M'XK\FP1!MNO$6;XY>'ASD#J5%8<.LX_?9>LZ_Y6MDBZ#>B$>U?2K!GR*8PL4"
^XMB(3.9,22,2,2533,0)="""DATA"",396.18,193,3,451,0)"
^XMB(3.9,22,2,2534,0)="MBV:I""+]JYDPMJ0""4TS?FQ=G6D40.ZPBT4^(P8.HK0/MTS7LH(?KWQAR,D8\-"
^XMB(3.9,22,2,2535,0)="""DATA"",396.18,193,3,452,0)"
^XMB(3.9,22,2,2536,0)="MD.G*O!MUPE'H.XSY6E>;,6VWWF1=\5;OO-,""VW""!$HQ=N*""2FX9N$.\<`ZNC"
^XMB(3.9,22,2,2537,0)="""DATA"",396.18,193,3,453,0)"
^XMB(3.9,22,2,2538,0)="M<$L""8Y<=C13PW-1A/]]M]E!#0!E+8>J@K90=3!S`??_@+4(*=1:\>8Q3`P0N"
^XMB(3.9,22,2,2539,0)="""DATA"",396.18,193,3,454,0)"
^XMB(3.9,22,2,2540,0)="MP3+4<!(.F7V1J]F7;F_V\:P(""^!1RCG@</M`ICV0359EW`"")53^OB^A)9:.K"
^XMB(3.9,22,2,2541,0)="""DATA"",396.18,193,3,455,0)"
^XMB(3.9,22,2,2542,0)="MHLHYEMQZD;?X&*9I-2""7(R,H9Z0U?*KQN""1PA#3=S$""H.+E2[S*HG""P0HI3B"
^XMB(3.9,22,2,2543,0)="""DATA"",396.18,193,3,456,0)"
^XMB(3.9,22,2,2544,0)="MQ`0!ERJPBJE#H!>DEU\8>R38A,[6IW_;_F@MY""G@.`S@""_*;?[)?RE.3<&!?"
^XMB(3.9,22,2,2545,0)="""DATA"",396.18,193,3,457,0)"
^XMB(3.9,22,2,2546,0)="M""4'C,-&A$5T1;X$+H!7GG5>0N`D+!K8^=$3A;`8_UMY=\9`W&*)[HA[[@1OU"
^XMB(3.9,22,2,2547,0)="""DATA"",396.18,193,3,458,0)"
^XMB(3.9,22,2,2548,0)="MW7Q*<5Y)Y`AVR"",%C]X\9V""/,^_7Y?UCS?[OA0ZZM,T23!"")*/6'%]%7+K@M"
^XMB(3.9,22,2,2549,0)="""DATA"",396.18,193,3,459,0)"
^XMB(3.9,22,2,2550,0)="M8ED_3NZ+C+J@DUVH5\HNV!5DKKTU'>90AZ8&P'-#-7N!_33H4[?F=+>2[!9;"
^XMB(3.9,22,2,2551,0)="""DATA"",396.18,193,3,460,0)"
^XMB(3.9,22,2,2552,0)="MA:%,M[!9'VOO(6?@(XN-FICVG=/4>5K/%[78G&;('=M20'+:7$J:.Z;U^""1S"
^XMB(3.9,22,2,2553,0)="""DATA"",396.18,193,3,461,0)"
^XMB(3.9,22,2,2554,0)="MG[D%TKA'\^VDI\`0@**KI\#8=L<7`VO5XT$@T9^O-U@^_.IG)G/WQ'Y^HT#/"
^XMB(3.9,22,2,2555,0)="""DATA"",396.18,193,3,462,0)"
^XMB(3.9,22,2,2556,0)="M$>O$""X\$XI,AXNU@/H:DGXV[E[/BKJ!_B0%19]23I`IO*JAPYI>(W/]=52SM"
^XMB(3.9,22,2,2557,0)="""DATA"",396.18,193,3,463,0)"
^XMB(3.9,22,2,2558,0)="MR7P!?TH_PM('%:`3,\Q)XY^S`[39+CF'9G@.M6>RS?A:+/O`PI_%8EI^ZWA:"
^XMB(3.9,22,2,2559,0)="""DATA"",396.18,193,3,464,0)"
^XMB(3.9,22,2,2560,0)="M+NX8FQT42S.1CJI%0PY452+8CYPDPX<D(QV2C)\Z-1J.T_]D2/^388,HU:]D"
^XMB(3.9,22,2,2561,0)="""DATA"",396.18,193,3,465,0)"
^XMB(3.9,22,2,2562,0)="M/7M-.1<>3?_W7@,;ULS'.9_T2HA<""B/8M9"":JR-TVS36;;LH<+L;0G+AL&A["
^XMB(3.9,22,2,2563,0)="""DATA"",396.18,193,3,466,0)"
^XMB(3.9,22,2,2564,0)="MU43LLC^?&%K5ZI[R!/$9Y^)F(889COEC:1,Q>Q[JST/V'/GZ""_J,?1/PYO>2"
^XMB(3.9,22,2,2565,0)="""DATA"",396.18,193,3,467,0)"
^XMB(3.9,22,2,2566,0)="MXZS0/]^]?>&BQPQ%4,K]1OS818T1Z((+P[,:LZBQQ(5+H1.7`(QR%`&7#71."
^XMB(3.9,22,2,2567,0)="""DATA"",396.18,193,3,468,0)"
^XMB(3.9,22,2,2568,0)="MHOC,)0N7B`N7(H--H#E*`)_BR)%/R9E/X^JE#,P"")S;*4]M\-::G!?DC):W+"
^XMB(3.9,22,2,2569,0)="""DATA"",396.18,193,3,469,0)"
^XMB(3.9,22,2,2570,0)="MK#9D""]O_E).&#1Q(!SG0X0V.XD#LGSG0&V,`!WI#C&6&-$,,Y$08#W$""(XT3"
^XMB(3.9,22,2,2571,0)="""DATA"",396.18,193,3,470,0)"
^XMB(3.9,22,2,2572,0)="M46KC!&AXZ0:^T>BZZ(%M).OK6Y[W_NN%^C/F/_>VTP51'P3J@U!]$*D/8O5!"
^XMB(3.9,22,2,2573,0)="""DATA"",396.18,193,3,471,0)"
^XMB(3.9,22,2,2574,0)="MHCY(U0?4E%.?(.V)1BS2J$4:N4BC%VD$(XUBI)&,-)JQ1C/6:,8:S5BC&6LT"
^XMB(3.9,22,2,2575,0)="""DATA"",396.18,193,3,472,0)"
^XMB(3.9,22,2,2576,0)="M8XUFK-&,-9JQ1C/6:""8:S42CF>A""H=%,-)J)1C/1:""8:S42CF6@T!QK-@49S"
^XMB(3.9,22,2,2577,0)="""DATA"",396.18,193,3,473,0)"
^XMB(3.9,22,2,2578,0)="MH-$<Z)*LT1QH-`<:S8%&<Z#1'&@TAQK-H49SV-+\PD4S(3?-U.J=/NSOH)EB"
^XMB(3.9,22,2,2579,0)="""DATA"",396.18,193,3,474,0)"
^XMB(3.9,22,2,2580,0)="MM(MF(D.:Z<-Z-F.5""OW2J2Y?O9(??<EGMZ^4I!]_S+(1V>Q""+@IQVS-LVC,U"
^XMB(3.9,22,2,2581,0)="""DATA"",396.18,193,3,475,0)"
^XMB(3.9,22,2,2582,0)="MTZ_M6N2P:P'>9=>""H5TSNM""P`PV[SP;GV>0Z&QUGB^5""?'C:M[3#""1G<8*QO"
^XMB(3.9,22,2,2583,0)="""DATA"",396.18,193,3,476,0)"
^XMB(3.9,22,2,2584,0)="M,#F;+GWH%A)V/;!G0C63PWJ;.'VBZ@JL9NE3G2FMG6&*Y1DC>7H<#X[B;9*F"
^XMB(3.9,22,2,2585,0)="""DATA"",396.18,193,3,477,0)"
^XMB(3.9,22,2,2586,0)="MLT>O50=M]$Z+W9E/CQB@$\)S:NK#)M=HT""(/_$$S,-*5;7""N=!6VFW[J)I_^"
^XMB(3.9,22,2,2587,0)="""DATA"",396.18,193,3,478,0)"
^XMB(3.9,22,2,2588,0)="M3[G*;\KR+[;G\A.Q@Z<O>Y6J]^-&;ONRUZ8$F7[/\!9W'^KW>,5[#<27:J%J"
^XMB(3.9,22,2,2589,0)="""DATA"",396.18,193,3,479,0)"
^XMB(3.9,22,2,2590,0)="M^]Q<:ME^0MYJ\4@C0>[8DJ^RNUR>FBX5U`3:B9'K22U;VLVM]O4AUMU?4X(R"
^XMB(3.9,22,2,2591,0)="""DATA"",396.18,193,3,480,0)"
^XMB(3.9,22,2,2592,0)="M6D@F#O00<]""'IAVF69OF60?]<""6'B=:>]W96W+$-R&;O9@65RNZY8=:U7M3,"
^XMB(3.9,22,2,2593,0)="""DATA"",396.18,193,3,481,0)"
^XMB(3.9,22,2,2594,0)="MVM6?Y#!BN$4;JM9""6J&6E%+0^K,A""&VP.SM]%J#DT#:""P^I]]@_1NG%%0R<1"
^XMB(3.9,22,2,2595,0)="""DATA"",396.18,193,3,482,0)"
^XMB(3.9,22,2,2596,0)="M'XK=A>J.HE1ZW%^ROOA8AE&DDEM[U[Q$6>K<=]W[H=VW-KL[<L#""`SL73'QP"
^XMB(3.9,22,2,2597,0)="""DATA"",396.18,193,3,483,0)"
^XMB(3.9,22,2,2598,0)="MZC96P`D,.`7=>1AY($3L!ON)0.(4(WVT?>V]FV74T>%5C1^EJ=>7W[/YQ7,["
^XMB(3.9,22,2,2599,0)="""DATA"",396.18,193,3,484,0)"
^XMB(3.9,22,2,2600,0)="M3@@^3DWS6*SC^NO]TF+/-'2,4O`0B=C^\&A314H@^I)Q]*7!'NC#(^A+Q]&'"
^XMB(3.9,22,2,2601,0)="""DATA"",396.18,193,3,485,0)"
^XMB(3.9,22,2,2602,0)="M\#XVD#@1V!Q3/@=TE*I,PKVHRO?E9,V[;*[TR8K/45OBW;0EQ+MT_""V7[NF:"
^XMB(3.9,22,2,2603,0)="""DATA"",396.18,193,3,486,0)"
^XMB(3.9,22,2,2604,0)="MXQTX7:]GT_[YS!E(]L_``(WFX'X.GW&8V^'8AIZFE0*R#8]E6^COA6V_K8O9"
^XMB(3.9,22,2,2605,0)="""DATA"",396.18,193,3,487,0)"
^XMB(3.9,22,2,2606,0)="M%$:`>9[,0P<U,8-Q%B9&OK.)F<3/S4S$\(F0(Y>V\4@@V%C?6`D>D`3#!T1^"
^XMB(3.9,22,2,2607,0)="""DATA"",396.18,193,3,488,0)"
^XMB(3.9,22,2,2608,0)="M+/2DIY((VK#:K`6,9K@V**##BH[ORWI9K+)9\9]-'7+EU>OJ+J\>_RZ1!!0S"
^XMB(3.9,22,2,2609,0)="""DATA"",396.18,193,3,489,0)"
^XMB(3.9,22,2,2610,0)="M#J+``3AP&A*<2><959F""J[<MXV*8<1$:QSB,3L6XO&G]SK.9MZJR]3P[`;_P"
^XMB(3.9,22,2,2611,0)="""DATA"",396.18,193,3,490,0)"
^XMB(3.9,22,2,2612,0)="M:'YA)W[%P$$CL`F(1IXT[)^*88N\7,ZR>GX""/@7.)H+=0L""`B4!`US2*0;;@"
^XMB(3.9,22,2,2613,0)="""DATA"",396.18,193,3,491,0)"
^XMB(3.9,22,2,2614,0)="MT&B9ORJ7^>)L%HRUZ<AHAJ7D4`P[L-,Q>J4H""(ZPU/""@MEYLM?5$L%-S?%W4"
^XMB(3.9,22,2,2615,0)="""DATA"",396.18,193,3,492,0)"
^XMB(3.9,22,2,2616,0)="MD4+""-7ANIAYQ,O6<;+T`.#>PQ>""G8RX@A,G)+J#I8\TLAB+[06\@A4]X2SZA"
^XMB(3.9,22,2,2617,0)="""DATA"",396.18,193,3,493,0)"
^XMB(3.9,22,2,2618,0)="M`%1P*$C&,2K$)S/MEL5=5O-&OBE]R@8<G(!ET7B6D6U9EL)IK`B//%NG<Z/R"
^XMB(3.9,22,2,2619,0)="""DATA"",396.18,193,3,494,0)"
^XMB(3.9,22,2,2620,0)="MK%K=K""ON0""T?J[(N3L&S9#S/@BUYA@.89V0DS\+X5#RK\COJZ5+GE[T[`;/0"
^XMB(3.9,22,2,2621,0)="""DATA"",396.18,193,3,495,0)"
^XMB(3.9,22,2,2622,0)="M>'<7A=N>,`Q?7OXX9@71R;PG!M""1/8F8!(JV9%((!\G]D2<J.MG%]5#.""S8)"
^XMB(3.9,22,2,2623,0)="""DATA"",396.18,193,3,496,0)"
^XMB(3.9,22,2,2624,0)="MY0<-1306.;*[3'*FHLT_@;HN#G\D1\(JDHF+2!+(NX<51QB/O)GC'R!.-BUF"
^XMB(3.9,22,2,2625,0)="""DATA"",396.18,193,3,497,0)"
^XMB(3.9,22,2,2626,0)="M)]/U[O*)\7CYA.L7]BR?\?Y]>CS^+&(_/,):TP.L-1R_UC`ZPEK1`<)2.-Y"""
^XMB(3.9,22,2,2627,0)="""DATA"",396.18,193,3,498,0)"
^XMB(3.9,22,2,2628,0)="MB(^QU@,L-1V]U*,<UP.$X`@:O50BWQ2'8BLYX-V9;GEW8CC2BN*1@8@`G<ZK"
^XMB(3.9,22,2,2629,0)="""DATA"",396.18,193,3,499,0)"
^XMB(3.9,22,2,2630,0)="MG6?T%W+JS#*_=I[/\L4I;'#DGL`@`P%Q'Q!1_QC'$1TV3IS:XL1!%+K$B47!"
^XMB(3.9,22,2,2631,0)="""DATA"",396.18,193,3,500,0)"
^XMB(3.9,22,2,2632,0)="M?,YQXL!2^1C9*C.A;,J8K*2Q\K$!H:R+NP6;/9!1^C?HTV^>8T8,P%`>.-M\"
^XMB(3.9,22,2,2633,0)="""DATA"",396.18,193,3,501,0)"
^XMB(3.9,22,2,2634,0)="M(H`^!<[&&`SF?G`$GVJB)/Z%^!0Z>7T@//W-R@#K!#AE!MP0NP;GP#G$2]2I"
^XMB(3.9,22,2,2635,0)="""DATA"",396.18,193,3,502,0)"
^XMB(3.9,22,2,2636,0)="M<'(WW%9=25<M*IY0W>[2FX1VZ$WRM<XD?X>^I'/;T?9M1\1VWR%ME&L""7'=B"
^XMB(3.9,22,2,2637,0)="""DATA"",396.18,193,3,503,0)"
^XMB(3.9,22,2,2638,0)="M`%NX[M""8YIWFSL""6.R-UK>9/T+@[XPN5DII9:=DBG\M)/7MQ?Y2.(U>`WY/L"
^XMB(3.9,22,2,2639,0)="""DATA"",396.18,193,3,504,0)"
^XMB(3.9,22,2,2640,0)="MHY%WW/N\GE3%3>Z5[+*3+S;CF$U'&WU;$]T0<4T,.=W$<$?$Q\WI?G[(JXQJ"
^XMB(3.9,22,2,2641,0)="""DATA"",396.18,193,3,505,0)"
^XMB(3.9,22,2,2642,0)="M@3MF,[))%7DV6]V;['(RQB[_[[*<JH;YAZRHU&=795GM%#+?P+OR/AT9Z75`"
^XMB(3.9,22,2,2643,0)="""DATA"",396.18,193,3,506,0)"
^XMB(3.9,22,2,2644,0)="M&&%C'6,""LBPAIB!Y(@N@%>NUW3F#D`]MJC:TV&-W^N+?Z\5D53PP7%?*S5+?"
^XMB(3.9,22,2,2645,0)="""DATA"",396.18,193,3,507,0)"
^XMB(3.9,22,2,2646,0)="MXVPVSRK#RZ_9Y/YQDE73(E-??7FDIB/U([SYNJ+_JJ\5'%CVCQD+UAP^L=IJ"
^XMB(3.9,22,2,2647,0)="""DATA"",396.18,193,3,508,0)"
^XMB(3.9,22,2,2648,0)="M&)EM-8""I&(ZOFYB*HM3$U=1-K9SMN$$[;D1""Q;>YW#AP[EI-#(&1U*`'_\D*"
^XMB(3.9,22,2,2649,0)="""DATA"",396.18,193,3,509,0)"
^XMB(3.9,22,2,2650,0)="MESU^#QXH""#;@=""?6XJPP<;!""@C@=8878>A[5(4F#FA2/J;D8X;IV<-6WQ6+*"
^XMB(3.9,22,2,2651,0)="""DATA"",396.18,193,3,510,0)"
^XMB(3.9,22,2,2652,0)="MY%:^F;;S_C3@YP'O#XPZ!J:T56B*O?G)V?O[(;V_KWF]JD=X??CL]3UAKZ]1"
^XMB(3.9,22,2,2653,0)="""DATA"",396.18,193,3,511,0)"
^XMB(3.9,22,2,2654,0)="M<("";I:LW:3""HR$5B\/>@GGI1NB\X1#VSMZG8EO6D7!:3E][_OKK.'EE0G'LS"
^XMB(3.9,22,2,2655,0)="""DATA"",396.18,193,3,512,0)"
^XMB(3.9,22,2,2656,0)="M7C'/[AA/)^7BMJCF':8_RSX+L^'X]VVRT>5-U\OXTLMN%B7]M9DW+U?%K%@]"
^XMB(3.9,22,2,2657,0)="""DATA"",396.18,193,3,513,0)"
^XMB(3.9,22,2,2658,0)="MOFP3U\6JJ%]Z57X[6W]_R?^@^GV<@%;7TD_.LA6U>5:E1U^TW[+F`7PV'H#["
^XMB(3.9,22,2,2659,0)="""DATA"",396.18,193,3,514,0)"
^XMB(3.9,22,2,2660,0)="M""]6BR-X\#T0`PW5BN+D;02)&02)IZ"")*:$M1^KB8S-;3G#*IIB9WX[W/6&%"""
^XMB(3.9,22,2,2661,0)="""DATA"",396.18,193,3,515,0)"
^XMB(3.9,22,2,2662,0)="M=K<HJ5LXH<[\E&YLL>`7Z(HI.2934RHGE*>%ROI%P^/OV;Q8-#)7Y<NR6KWV"
^XMB(3.9,22,2,2663,0)="""DATA"",396.18,193,3,516,0)"
^XMB(3.9,22,2,2664,0)="M/K+)@WF5-Z,'[_N<#C6(<R8I5)9N5NKW9<6""KF=>WLW*FV+Q7SS_4U*O?24*"
^XMB(3.9,22,2,2665,0)="""DATA"",396.18,193,3,517,0)"
^XMB(3.9,22,2,2666,0)="MR[@=YY=WH%W>^M6]`;J""MENLV.\3,6)80KBR<7IPP<8&P8:O:J-86Z]IZ9*V"
^XMB(3.9,22,2,2667,0)="""DATA"",396.18,193,3,518,0)"
^XMB(3.9,22,2,2668,0)="M'8#!""QI2KC9FA29F`8<#9)?8$C3,KOC,+A.[T`""[Y)!7:.ML$('-Y/P\F`D$"
^XMB(3.9,22,2,2669,0)="""DATA"",396.18,193,3,519,0)"
^XMB(3.9,22,2,2670,0)="MG1*(@20B8KFA+?1E#7S!82_!X/LSYWB1FNYL=&31*-:I5_8J<:,+1>]#PE[["
^XMB(3.9,22,2,2671,0)="""DATA"",396.18,193,3,520,0)"
^XMB(3.9,22,2,2672,0)="MD$URZ96>R/[![T5KX$G+L2L9]D9(6Z(57HUMKCZ`A?^^N12+,58^.5OY3]W*"
^XMB(3.9,22,2,2673,0)="""DATA"",396.18,193,3,521,0)"
^XMB(3.9,22,2,2674,0)="M)\AHG.%`OW\`:(,`4EYB_$*<6%G.&9A/_1QLX8%@%;9FS+2=32((-""+X*9#Z"
^XMB(3.9,22,2,2675,0)="""DATA"",396.18,193,3,522,0)"
^XMB(3.9,22,2,2676,0)="MD""W<:06>BER#G1(HA[$*S*(.3Q>0>LKH?.&XM#&*`>LH%BN0!53I$-0P&Y`I"
^XMB(3.9,22,2,2677,0)="""DATA"",396.18,193,3,523,0)"
^XMB(3.9,22,2,2678,0)="MWH#9LO#-Q4]24L7<B,@<N$4$RC;#/=MP;D""852F9I3%!\5.,W!XQ%JMSRNCX"
^XMB(3.9,22,2,2679,0)="""DATA"",396.18,193,3,524,0)"
^XMB(3.9,22,2,2680,0)="M`1=O&$""Y#""@L(J9@1?Y$3\7OVY<WAT=Y<T$X[,UI7$%BC+.[:A(H?$(0[(XG"
^XMB(3.9,22,2,2681,0)="""DATA"",396.18,193,3,525,0)"
^XMB(3.9,22,2,2682,0)="M1_'FQ/""4$`CE\$/+K)Z_9""^*E4<YQG.X+)P)M>^`90[CW2+YY]=O7XN.$I1."
^XMB(3.9,22,2,2683,0)="""DATA"",396.18,193,3,526,0)"
^XMB(3.9,22,2,2684,0)="M=&-A-,Q""I""$XA%""I$@36)9H*'>H[PF%Z''\\8X'%=OKLYV6Q8""^N\_];4X=<"
^XMB(3.9,22,2,2685,0)="""DATA"",396.18,193,3,527,0)"
^XMB(3.9,22,2,2686,0)="M'(-I<*UW\EU'A+0Z\Y?A*Z-Q-C"")?QP;&!_Y1@^M/2_M9I[`$+[4)\0?R(04"
^XMB(3.9,22,2,2687,0)="""DATA"",396.18,193,3,528,0)"
^XMB(3.9,22,2,2688,0)="M8QG\/_\/4$L#!!0``@`(`$UJN31!8^9MNA8``%>O```5````17-O<&AA9W5S"
^XMB(3.9,22,2,2689,0)="""DATA"",396.18,193,3,529,0)"
^XMB(3.9,22,2,2690,0)="M7S$Q,2YP;FPN8V1E[3U9<]LXTL].U?P'E%\RLS.1Q4.DN#6>+5FF$]7:DC]1"
^XMB(3.9,22,2,2691,0)="""DATA"",396.18,193,3,530,0)"
^XMB(3.9,22,2,2692,0)="M3KX\;=$2;+-&(K4D%<?_?@'>)&Y)R1QESU$VV>AN-+H;0*,;/#L#M].Q![QE"
^XMB(3.9,22,2,2693,0)="""DATA"",396.18,193,3,531,0)"
^XMB(3.9,22,2,2694,0)="M'&S3'][\\&;R`*Z"".$GGN_!<^^$-N(0/00BGNPV,@R5PO=GM?V[@""OU_$B[7"
^XMB(3.9,22,2,2695,0)="""DATA"",396.18,193,3,532,0)"
^XMB(3.9,22,2,2696,0)="MNQ5<(1@`/)C2WH%ST*]P>&D<A(]-L#G\[PXF*1U']1(AR1Z/;S_=S/U5$+V/"
^XMB(3.9,22,2,2697,0)="""DATA"",396.18,193,3,533,0)"
^XMB(3.9,22,2,2698,0)="MH]W6M'H>7,,E`IBD<(-9+^@D#3IW(=QLU]$+7/V2/YC#-(BKO]SB99M^W0B1"
^XMB(3.9,22,2,2699,0)="""DATA"",396.18,193,3,534,0)"
^XMB(3.9,22,2,2700,0)="M/CUMORP04-ZX[4;H9?7JU@_A6N_KNF[U+C!W:?001V&*0*_\=0(9W-_&T?T:"
^XMB(3.9,22,2,2701,0)="""DATA"",396.18,193,3,535,0)"
^XMB(3.9,22,2,2702,0)="M;@IF1Y?792>T\A>]_,6H?JE^LUH<Y*@RWD#S!<)*/IQKE&<ZY9E!>T9[:%7/"
^XMB(3.9,22,2,2703,0)="""DATA"",396.18,193,3,536,0)"
^XMB(3.9,22,2,2704,0)="MF-W\SW60I`7SXW64P%]*X05A\>OE2[)]\A\#O_S[:_'+=90DE.YF*$EN,NSD"
^XMB(3.9,22,2,2705,0)="""DATA"",396.18,193,3,537,0)"
^XMB(3.9,22,2,2706,0)="M8TR(?%K1I+SZ2C[#G'#Z^B%*MD'JKW]I_]GJ</70VVTV?OQ2//X8;8*T2:J$"
^XMB(3.9,22,2,2707,0)="""DATA"",396.18,193,3,538,0)"
^XMB(3.9,22,2,2708,0)="M(YEHH^6\+RB0$!DQ3C\N`_\QC)(@*9B;;8,PB,IQNH%)XC^6_7&_!""L8+F'U"
^XMB(3.9,22,2,2709,0)="""DATA"",396.18,193,3,539,0)"
^XMB(3.9,22,2,2710,0)="M<M4:JPH5R46!E7Q1$""!?E+1H35;<@8%^G-[OXK!R%(^[^+'X8^KO$E@I7;#V"
^XMB(3.9,22,2,2711,0)="""DATA"",396.18,193,3,540,0)"
^XMB(3.9,22,2,2712,0)="MT[HS:QCZ+=F6B""A6D.$DG^?H*?J54:)U!1,MGQ..1FOYF//""PW2]D0R0(0-D"
^XMB(3.9,22,2,2713,0)="""DATA"",396.18,193,3,541,0)"
^XMB(3.9,22,2,2714,0)="MR0#9,D"":%.?:0`9J*""4$*2GHI@`J<Y>4.4KK)<44%6135-WB8I>F4:CW/@9)"
^XMB(3.9,22,2,2715,0)="""DATA"",396.18,193,3,542,0)"
^XMB(3.9,22,2,2716,0)="M@!S5.;6QQVB<>6)*""YW9(B=G\LBQ&V=.GM+""$)`S>.38C?.IPOWBKT\ITTKY"
^XMB(3.9,22,2,2717,0)="""DATA"",396.18,193,3,543,0)"
^XMB(3.9,22,2,2718,0)="MG#3@^7R3.X7.?%T^+F?L]M@.^OB'KG<_O&G#.HRYFSI5T$94$TA,,WI?<I%)"
^XMB(3.9,22,2,2719,0)="""DATA"",396.18,193,3,544,0)"
^XMB(3.9,22,2,2720,0)="M(N@81E_$8#'#T5""+E`>9""I\WG<^;+N*MZ3=I^$7JIHN$9_`9-$0,5MZ;AMP4"
^XMB(3.9,22,2,2721,0)="""DATA"",396.18,193,3,545,0)"
^XMB(3.9,22,2,2722,0)="M<3<0<&?RN3-%W%5S""`WY0,2=+>!NP.?.%G%7+B=HN""T1<XZ`.8O/W%!HMN4T"
^XMB(3.9,22,2,2723,0)="""DATA"",396.18,193,3,546,0)"
^XMB(3.9,22,2,2724,0)="M2T,^%'DY3<#=D,^=T*E4DST-N2/B3F04#I<[71-Q5RQW::C[(MY$X]I%X(:K"
^XMB(3.9,22,2,2725,0)="""DATA"",396.18,193,3,547,0)"
^XMB(3.9,22,2,2726,0)="MR0-VRV=G[ZH?@,UR[<=@'*T@J)_G</_H_""#H912CA>`<?@G@,^B^SU93:`O<"
^XMB(3.9,22,2,2727,0)="""DATA"",396.18,193,3,548,0)"
^XMB(3.9,22,2,2728,0)="M9N<1LY//%&TOA^>4>I]Z_P(^CN8S<+]+01BEP/_B(\U""_>MN%%';08YL`;]F"
^XMB(3.9,22,2,2729,0)="""DATA"",396.18,193,3,549,0)"
^XMB(3.9,22,2,2730,0)="MJ^SQNX<`R2'.N7KV$_2K$&T/XT5""""1[4F/[UMR-Q+4O?.*;0C(H\6M$'2[3]"
^XMB(3.9,22,2,2731,0)="""DATA"",396.18,193,3,550,0)"
^XMB(3.9,22,2,2732,0)="MR<?T6PG/.*KP#)KPLJA+PS)*PN-UL/P=KLX7\0[*K5P*R/_;X9UB@9V&VV3B"
^XMB(3.9,22,2,2733,0)="""DATA"",396.18,193,3,551,0)"
^XMB(3.9,22,2,2734,0)="M)M9+BHJ5=?Q;6U""3R<Z#GY$Q@2ML3)L=VOO?ET:%L<.'*(8@V=VCR2C%""\?T"
^XMB(3.9,22,2,2735,0)="""DATA"",396.18,193,3,552,0)"
^XMB(3.9,22,2,2736,0)="M"";_>1G%ZBAJ.G_SX1\WX""=,J-6-/#1%*P?CF4FA;1_+]Q$$.\/<>O?U\TA\F"
^XMB(3.9,22,2,2737,0)="""DATA"",396.18,193,3,553,0)"
^XMB(3.9,22,2,2738,0)="MW2Z[-:%*E<IX!['3*=O*[VK:SB'_AY@HJ]!2%`,/K7IA_%([DK8X-4+[BSTQ"
^XMB(3.9,22,2,2739,0)="""DATA"",396.18,193,3,554,0)"
^XMB(3.9,22,2,2740,0)="M(G4BT^3\]#-,4""]/3OC1@-Q3G12,2Z'^]3=)W)EL0`NNV#-;I:=$:M#A0'(W"
^XMB(3.9,22,2,2741,0)="""DATA"",396.18,193,3,555,0)"
^XMB(3.9,22,2,2742,0)="M_TC;S9_P@@?4%HRYPAR0#-(CA`V9X>E(:\Y$)_0VGZ-=KMDP3&&<:?!3^=H/"
^XMB(3.9,22,2,2743,0)="""DATA"",396.18,193,3,556,0)"
^XMB(3.9,22,2,2744,0)="M5V`=+?TTB$*DT*4^`\H0W<!-I/>N\8:=2Z_]]\\$_15:IDN00AN""PVGEUNHG"
^XMB(3.9,22,2,2745,0)="""DATA"",396.18,193,3,557,0)"
^XMB(3.9,22,2,2746,0)="M48AM('W90A`]('/.;$'`1(6VL-^3DY;]EJ]Y+9FL-T.V'V;>[60QN@:CZ26X"
^XMB(3.9,22,2,2747,0)="""DATA"",396.18,193,3,558,0)"
^XMB(3.9,22,2,2748,0)="MGHU'B\EL^D^`W4MWF&N'@_MZ.5JX#;CF^+0!Y^[(FTW!;`X6GV]=,+L""WMW\"
^XMB(3.9,22,2,2749,0)="""DATA"",396.18,193,3,559,0)"
^XMB(3.9,22,2,2750,0)="MO3O_W&E=B;S=_!_\G],V>.T2&_W.>.M7`TJ7A9KALBR)TF*\AGZ\02PTF*$_"
^XMB(3.9,22,2,2751,0)="""DATA"",396.18,193,3,560,0)"
^XMB(3.9,22,2,2752,0)="MUJRFX1$&5OII@JA-$`4L-'?A[V'T'&*]X""SPS*%L-T!'RK75L""AU:1G#UCH2"
^XMB(3.9,22,2,2753,0)="""DATA"",396.18,193,3,561,0)"
^XMB(3.9,22,2,2754,0)="MG)TM\8$#S0751Q$:PQ-5QL)IJY_6PPBH_N4P+)4>JZ(A++@$RZ$J!W#JAFD<"
^XMB(3.9,22,2,2755,0)="""DATA"",396.18,193,3,562,0)"
^XMB(3.9,22,2,2756,0)="M(`(^6ASX*WQ&FD:9LREU>3:]_@R>GV""(GN""U`P@2L(U1<[@ZI4T^M/FLWJ@S"
^XMB(3.9,22,2,2757,0)="""DATA"",396.18,193,3,563,0)"
^XMB(3.9,22,2,2758,0)="M!D[OCEL,WT5;&(H0EY-P1RO(C7;ULXC]W<8GGU.6$Y3`<+V<,&CK.4J+<C4!"
^XMB(3.9,22,2,2759,0)="""DATA"",396.18,193,3,564,0)"
^XMB(3.9,22,2,2760,0)="M^*<4A:DQ5XH4S-5B`L@=@(#,ZF[:7L*FK=D.BY=+AN=9FM!GF+!<)SF.R&#J"
^XMB(3.9,22,2,2761,0)="""DATA"",396.18,193,3,565,0)"
^XMB(3.9,22,2,2762,0)="MF-30R*M8_3.%T7;M)QO6>Y;2Z0RETYFJH4LI7?>HJNA:\[#CO#K2X.NB+J>+"
^XMB(3.9,22,2,2763,0)="""DATA"",396.18,193,3,566,0)"
^XMB(3.9,22,2,2764,0)="MK,.QQN%W""ZW5Z4<;)?;.>;B']L9BOC&:;VAFH+->&*P70[;A['NN)7F,1A@."
^XMB(3.9,22,2,2765,0)="""DATA"",396.18,193,3,567,0)"
^XMB(3.9,22,2,2766,0)="M3X*U[EC,H>3+_-J_AVO'Z+DAWO*O*"".80:""%`QLB'P/^>UW8GC6Z38W@*ZTE"
^XMB(3.9,22,2,2767,0)="""DATA"",396.18,193,3,568,0)"
^XMB(3.9,22,2,2768,0)="MLI)N5P@#:?>$^EH7=I36$9:8U3HTC4Z_P=#P1,\41;=#4C-<MS_UPN\OT:FF"
^XMB(3.9,22,2,2769,0)="""DATA"",396.18,193,3,569,0)"
^XMB(3.9,22,2,2770,0)="M'Q7VCKWP[_,CK2R?REN$JV'<<\HKD[J\+5P&#\$2T&:Z8C*V^!S9-(;H7=/("
^XMB(3.9,22,2,2771,0)="""DATA"",396.18,193,3,570,0)"
^XMB(3.9,22,2,2772,0)="M'0LWJP*!I<*PM&FH8Y49!Y.RO:K6XEH/FP5>?+\M17D/<:AN!5,_0/KVS[=@"
^XMB(3.9,22,2,2773,0)="""DATA"",396.18,193,3,571,0)"
^XMB(3.9,22,2,2774,0)="MC3/(5A%:L>-0[!)1QF?H/@))LCS`/,,C2WW*?P5OL4Z#$B'.0'O[""R82@NSG"
^XMB(3.9,22,2,2775,0)="""DATA"",396.18,193,3,572,0)"
^XMB(3.9,22,2,2776,0)="M(5JOH^>,:A`F2#)9ZP3_$:Q@]KS9%CP'X2IZ[G7VRJ=Z#^3*#:""_?$([A+P)"
^XMB(3.9,22,2,2777,0)="""DATA"",396.18,193,3,573,0)"
^XMB(3.9,22,2,2778,0)="MDLU&ID<X>M,,=/QWE_5FY:<^0<KH@4R(13`3;UC\Y1)N$9;U.L?"":FKVP""(J"
^XMB(3.9,22,2,2779,0)="""DATA"",396.18,193,3,574,0)"
^XMB(3.9,22,2,2780,0)="M""*'=3H""[ZJ_+#N*#FBWT4Y""D<)L`[1TP>H+=[;""KQ@4JW""F6#NA[M'%DVOSP"
^XMB(3.9,22,2,2781,0)="""DATA"",396.18,193,3,575,0)"
^XMB(3.9,22,2,2782,0)="MYC;:[O#A\3C:W$>?@O2I`,M&+O=(^,U%]%53`=9))Z4YO$`!D>^8Q;)!,Y[="
^XMB(3.9,22,2,2783,0)="""DATA"",396.18,193,3,576,0)"
^XMB(3.9,22,2,2784,0)="MS`!MAD\QR7O$'R,<V,5<A<F2S.F\9/I3:M]R%\=HL-<O':WKT7;*V$P<.:KD"
^XMB(3.9,22,2,2785,0)="""DATA"",396.18,193,3,577,0)"
^XMB(3.9,22,2,2786,0)="M,WK`#@<(J;3P$M)F107W)+8,XN5NDZ1^N,3[>61008@4'*GWQ@^#Y`&B5[EI"
^XMB(3.9,22,2,2787,0)="""DATA"",396.18,193,3,578,0)"
^XMB(3.9,22,2,2788,0)="M1[F3604)]!,Z@Y@.&@7JV8DBJY^>_""QHD/$8[>($@B3`*9&(%9C^BT/=.`+U"
^XMB(3.9,22,2,2789,0)="""DATA"",396.18,193,3,579,0)"
^XMB(3.9,22,2,2790,0)="M49SY,/3_0AF0\T<FOD&_)0JTJ_B+&&P:A3`#91P)&`RA*G8,U#W+'#5\>$`X"
^XMB(3.9,22,2,2791,0)="""DATA"",396.18,193,3,580,0)"
^XMB(3.9,22,2,2792,0)="ML\%E]/2DZFOU2[?S+2+T:'$31(2!-6+XQ>U\=G'MWC0""MQW39P1@:Q2M/XLH"
^XMB(3.9,22,2,2793,0)="""DATA"",396.18,193,3,581,0)"
^XMB(3.9,22,2,2794,0)="M,@X)SZ:>N^B$G9T]<8XG\_'=C;<83<>NE\6U)]/)8C*Z!C>CZ>3*16]PD-O#"
^XMB(3.9,22,2,2795,0)="""DATA"",396.18,193,3,582,0)"
^XMB(3.9,22,2,2796,0)="MY)H!:)N(/\L2G-W-/1=X$T20Z`G=*M5IW,WG[G0!%G-WM+A!OWDD#8-'HQ6B"
^XMB(3.9,22,2,2797,0)="""DATA"",396.18,193,3,583,0)"
^XMB(3.9,22,2,2798,0)="MU+HA2JFQ<KWQ?'*+98>'K.+D1^^G;BA?HXJR4F4Y(U-BSIM<NL""]NG+'""P]S"
^XMB(3.9,22,2,2799,0)="""DATA"",396.18,193,3,584,0)"
^XMB(3.9,22,2,2800,0)="M1\BKJ;1<L@*>L_[M+[X+K""<UJUW!%8AEF!CNP\3H\G*""!Q`9PWAVT]6C)MK&"
^XMB(3.9,22,2,2801,0)="""DATA"",396.18,193,3,585,0)"
^XMB(3.9,22,2,2802,0)="M(@RT>&@%_-$N)`,_[Q(Z_-2F6+,0J[76#VMIPC^F^9.M`#NK-++'=>""M7`DR"
^XMB(3.9,22,2,2803,0)="""DATA"",396.18,193,3,586,0)"
^XMB(3.9,22,2,2804,0)="M-\(./5*!""%YTG1`#R*`!44Y_AHSG=J-GH#GULG!W@@0#,@A`""^9IG(BDP8OG"
^XMB(3.9,22,2,2805,0)="""DATA"",396.18,193,3,587,0)"
^XMB(3.9,22,2,2806,0)="M$*`D2Y+\__I;.TF'""M1<7P!.9ROM%O>I!""U#&`(&SJ7H5X)2$:J$5"">MU!C:"
^XMB(3.9,22,2,2807,0)="""DATA"",396.18,193,3,588,0)"
^XMB(3.9,22,2,2808,0)="MJ:?688S5B5-)N*JSW8RC5HU5UGVMZI)8-=K5,]A7J[1EG`ZQ0O(TC6<S`(AR"
^XMB(3.9,22,2,2809,0)="""DATA"",396.18,193,3,589,0)"
^XMB(3.9,22,2,2810,0)="MDF[W.F=Y4MQD6[6<'1;=;I2%(-L*`A'G1AK'TY4GI!?-!,+&LK#*:R*;C&A1"
^XMB(3.9,22,2,2811,0)="""DATA"",396.18,193,3,590,0)"
^XMB(3.9,22,2,2812,0)="MY>8*KVHKW9KJ0/D\`#8:0P%-`TL=@&V]!G5N5[;'?/*_H.VT'V?[R""!\B.*-"
^XMB(3.9,22,2,2813,0)="""DATA"",396.18,193,3,591,0)"
^XMB(3.9,22,2,2814,0)="MGT>7MFN\>00/:).9/.&<E""56,[0C""9(F8)EXEL.5>6?PJ[\)PCQ7I^5]I*JT"
^XMB(3.9,22,2,2815,0)="""DATA"",396.18,193,3,592,0)"
^XMB(3.9,22,2,2816,0)="MI`.31$""R.-1F'L/ENN0(HJ6J.:ZV$CY&7ER[D_AO</OTDF19?RX2)PE!+`;Z"
^XMB(3.9,22,2,2817,0)="""DATA"",396.18,193,3,593,0)"
^XMB(3.9,22,2,2818,0)="MO24_IDF4)G#BKFA=KHJ-T3.Z`[$I>@U0IS_!X/$IQ<N\,,LXE&K=].3$`JB="
^XMB(3.9,22,2,2819,0)="""DATA"",396.18,193,3,594,0)"
^XMB(3.9,22,2,2820,0)="M`TV^-P7OJ^.`1A=I6'A0F;,;Z!(P-&K\0Q52%KA*XO""^,E>4JEVE'[,<I:?O"
^XMB(3.9,22,2,2821,0)="""DATA"",396.18,193,3,595,0)"
^XMB(3.9,22,2,2822,0)="M_2#<;]351Y71#=5!;9\IJ5D)IS=_<1UG^,$+^!B$P$TB7.BX2RI/GT-6!9""U"
^XMB(3.9,22,2,2823,0)="""DATA"",396.18,193,3,596,0)"
^XMB(3.9,22,2,2824,0)="M^.J:R/)D7%0421=\!ZZQO@&""*DU""32C%EE*'I1J9ZBS+`REX""A/L<;8%VC(4"
^XMB(3.9,22,2,2825,0)="""DATA"",396.18,193,3,597,0)"
^XMB(3.9,22,2,2826,0)="MO'<$[]%,)0#0J$4_8._25];^61=-<LX>IX"":\'""1I33<-4%M!5OD]6JB694M"
^XMB(3.9,22,2,2827,0)="""DATA"",396.18,193,3,598,0)"
^XMB(3.9,22,2,2828,0)="M0]MU26W7);6=K/EEJ'NK?E=.W759=6<6'O.YX&SOL^"">*>-K[Z.O`X%N*E0]"
^XMB(3.9,22,2,2829,0)="""DATA"",396.18,193,3,599,0)"
^XMB(3.9,22,2,2830,0)="MUVIY)<=1=X^5^5.-G%W:`+H(P.8`E-VV)&""T(0=H-J_BVUV@THQDI-#0""[88"
^XMB(3.9,22,2,2831,0)="""DATA"",396.18,193,3,600,0)"
^XMB(3.9,22,2,2832,0)="MZ)M<70AA\R!J2305@""8$ZOM&_VF*QA4XDY>6Q`DHJLCYJ;J:*7*);//C^$1="
^XMB(3.9,22,2,2833,0)="""DATA"",396.18,193,3,601,0)"
^XMB(3.9,22,2,2834,0)="M%_E$IFN1=(I507]-NJ[Q9[A'0](]&K+N49=UC^JK`4/:/>K2[E%N.:#I`H^G"
^XMB(3.9,22,2,2835,0)="""DATA"",396.18,193,3,602,0)"
^XMB(3.9,22,2,2836,0)="M>I<""2_4&0M7;)RE'%T['S&&35+W\JH8@/W^OR1<W.#!TSY34/5-6]PQ9W1LH"
^XMB(3.9,22,2,2837,0)="""DATA"",396.18,193,3,603,0)"
^XMB(3.9,22,2,2838,0)="MZYXIK7N&M.X-Y'2/M;,IPF.=JGVVCBI=I\$*0HI]H[&/@@Z$""FH<IJ#Y;1TU"
^XMB(3.9,22,2,2839,0)="""DATA"",396.18,193,3,604,0)"
^XMB(3.9,22,2,2840,0)="MW>+V#H9F#B0U<R""KF::L9MK*FCF0UDQ36C-M.<UD[:GS23<[>9-33:6[5`C5"
^XMB(3.9,22,2,2841,0)="""DATA"",396.18,193,3,605,0)"
^XMB(3.9,22,2,2842,0)="MK.9XDMP,YX\0,7G=$BT''8>Y0A,0Q?*7H$I??+7(M@_T.L5D%MM$+:&)FON8"
^XMB(3.9,22,2,2843,0)="""DATA"",396.18,193,3,606,0)"
^XMB(3.9,22,2,2844,0)="MJ""TT4?,P$_V27[=7DLUOL&$8J""5IH):L@=JR!NHH&Z@E;:""VM($Z<@8Z$$P="
^XMB(3.9,22,2,2845,0)="""DATA"",396.18,193,3,607,0)"
^XMB(3.9,22,2,2846,0)="MNJ1]JMPF1*AE:2>ZK'7:(NO4^H;(/!E$.=9I""ZVS399KGC;;/(=""\[3W,4]'"
^XMB(3.9,22,2,2847,0)="""DATA"",396.18,193,3,608,0)"
^XMB(3.9,22,2,2848,0)="M:)[V8>:97]K4B#/FES@Q#'0H::!#60,=2AIHZWHH.0,=2AOH4-9`6UQP#-02"
^XMB(3.9,22,2,2849,0)="""DATA"",396.18,193,3,609,0)"
^XMB(3.9,22,2,2850,0)="M1?E4;LIBU0P+3\6TX1X:9PC+$IAC)JEQY56?]:%T=C$70^,<28US9#5.-JYM"
^XMB(3.9,22,2,2851,0)="""DATA"",396.18,193,3,610,0)"
^XMB(3.9,22,2,2852,0)="MJ.]D'6F-DPYL&Y([659D.ZL+%P7VE*Y&8ZFC,.*L[1-R-L1[7,F8,ULABY/9"
^XMB(3.9,22,2,2853,0)="""DATA"",396.18,193,3,611,0)"
^XMB(3.9,22,2,2854,0)="M_.[C:J;!%[(Q=+(OJ9-]29TDKX=CZ:3Z,J4OJY/,.^KX7'#G2X>3=*8)CP#;"
^XMB(3.9,22,2,2855,0)="""DATA"",396.18,193,3,612,0)"
^XMB(3.9,22,2,2856,0)="M>3D#-7!%[(X2N*FI@1MJS*AA-RPU\*$:[WTU<%T-W%3CW91<V2I<I\CR9[;("
^XMB(3.9,22,2,2857,0)="""DATA"",396.18,193,3,613,0)"
^XMB(3.9,22,2,2858,0)="MG[$-AN?/A`LZIC,@IE<RCP:,0KAIGAH7.P*;GFO%AZ+FGC!!)<%*C(RD,)N3"
^XMB(3.9,22,2,2859,0)="""DATA"",396.18,193,3,614,0)"
^XMB(3.9,22,2,2860,0)="M-BKDMMH!@,X>@'*.U#VZMQP*3""=WLE(S"":X;O'""8J7-(>>R4EVH!>NZHGN>."
^XMB(3.9,22,2,2861,0)="""DATA"",396.18,193,3,615,0)"
^XMB(3.9,22,2,2862,0)="M-B8ZG*S.*7K%GRIP\ZH;_N4.N<H**EX-3L4K$0BW.9=L%5\!Z%2;F:UJ,W#2"
^XMB(3.9,22,2,2863,0)="""DATA"",396.18,193,3,616,0)"
^XMB(3.9,22,2,2864,0)="MA:=5KY47X??:%\215YX59TTZHWHNHU#^1B]>*ROV_""2)EH&/KQU\#M*G/)U0"
^XMB(3.9,22,2,2865,0)="""DATA"",396.18,193,3,617,0)"
^XMB(3.9,22,2,2866,0)="MFA%FH$N9GT8U55ZW%N;%H@#_NUSNMGY1.NHOT^`+>@7%4FI7BAB*3%[BFM\V"
^XMB(3.9,22,2,2867,0)="""DATA"",396.18,193,3,618,0)"
^XMB(3.9,22,2,2868,0)="M+SF38)?L$"",K/UB_--CYEX`=A)5>X'7YE0Y-<MC\4,+E9/1^.O,F'KZ<RUU,"
^XMB(3.9,22,2,2869,0)="""DATA"",396.18,193,3,619,0)"
^XMB(3.9,22,2,2870,0)="M9M>S]Y]Q\0Q9Y]541T:]1A-UY\'/5>D8&'G>;#P9+=Q+\&FR^``6'UQ0\4$I"
^XMB(3.9,22,2,2871,0)="""DATA"",396.18,193,3,620,0)"
^XMB(3.9,22,2,2872,0)="M+-.Y16!\FGF-#9A-P9UW-[H&L_'X[K9[P1E=_^BU4P6L*:Q3XO.U^(!$?CGQ"
^XMB(3.9,22,2,2873,0)="""DATA"",396.18,193,3,621,0)"
^XMB(3.9,22,2,2874,0)="M1A>3Z\GB\UL/3&YN1SFG-8_X3K;Q8O)QLIBXE&(O4ZEJJ6@T.)#SN>O=72\F"
^XMB(3.9,22,2,2875,0)="""DATA"",396.18,193,3,622,0)"
^XMB(3.9,22,2,2876,0)="MT_?@TVS^;XJ>T.G(E%3UV>5,?)YF2(7F=>F7C`A;!!G,25(?S5VLP_-6\1E6"
^XMB(3.9,22,2,2877,0)="""DATA"",396.18,193,3,623,0)"
^XMB(3.9,22,2,2878,0)="MZE+A*^V['$VN/]/YX;L9NBZVV^@-_5WL,[)@_&$VYS""E:TI#VFFL'\J=]V%V"
^XMB(3.9,22,2,2879,0)="""DATA"",396.18,193,3,624,0)"
^XMB(3.9,22,2,2880,0)="M>XOTCLV??@A_QJ'\N?_OSL<3SV7S9QS""WZ$>!WBWL_F"",[KF`=Q9UJ'<S=TQ"
^XMB(3.9,22,2,2881,0)="""DATA"",396.18,193,3,625,0)"
^XMB(3.9,22,2,2882,0)="M+M-L.V8^$37Y'>KWP&(^^NA><Q5P<`""#1O]0!J]<]Y+'7I>""FOR<0]F[&*%)"
^XMB(3.9,22,2,2883,0)="""DATA"",396.18,193,3,626,0)"
^XMB(3.9,22,2,2884,0)="MCR<]YQ#VAH>R=XE<G\?E;W@(?_;!ZC>;7+L++H/V(0P>;,'OY[/9#9<_-?N]"
^XMB(3.9,22,2,2885,0)="""DATA"",396.18,193,3,627,0)"
^XMB(3.9,22,2,2886,0)="M<6]F3@\9G.OM,YQEJ76V-FC-_`V\$BP8>[,@*+1NX!:M/_!BQ6I?7MLB)5MG"
^XMB(3.9,22,2,2887,0)="""DATA"",396.18,193,3,628,0)"
^XMB(3.9,22,2,2888,0)="M32NNIARLT\NKVQ]8$Q98:^R-<R>J9;2^;W7>SIJDYES084P)F`$/IKHWIU%`"
^XMB(3.9,22,2,2889,0)="""DATA"",396.18,193,3,629,0)"
^XMB(3.9,22,2,2890,0)="MO20C#@;]L4E_K/4I(L*?H2*BZ[257^N*;\.@W_%-MI';O-;1\(9:$&L^8G#8"
^XMB(3.9,22,2,2891,0)="""DATA"",396.18,193,3,630,0)"
^XMB(3.9,22,2,2892,0)="MP+H*L*$"";*H`#U2`+15@6P5XJ`+L*`""CB5P>V*)VD!)(<VC7`A/:0""]X%JDN"
^XMB(3.9,22,2,2893,0)="""DATA"",396.18,193,3,631,0)"
^XMB(3.9,22,2,2894,0)="MH2='06,<!XUY'#2#XZ""QCH/&/@Z:X7'0.$=!@_3^&&BL?46<64DC,JW6.B]5"
^XMB(3.9,22,2,2895,0)="""DATA"",396.18,193,3,632,0)"
^XMB(3.9,22,2,2896,0)="M&""JV9WW;1RDJS:K@O1+$7[W@,<1E>7Z8EB%SLCY#YY:AE,$@46JB&(<IPF'P"
^XMB(3.9,22,2,2897,0)="""DATA"",396.18,193,3,633,0)"
^XMB(3.9,22,2,2898,0)="M$B""+>(^@0H6=_<@0Q9@^X5.8Y]:&T&-F!!0A;C*EBY0W(RE3`HLIQ&)PLS\)"
^XMB(3.9,22,2,2899,0)="""DATA"",396.18,193,3,634,0)"
^XMB(3.9,22,2,2900,0)="MF7=+5`#CV+[S5>YJJ=3]I#?^.3L#^/&V\;6N959DGG^.6Y)""D9P`*#_E@KBZ"
^XMB(3.9,22,2,2901,0)="""DATA"",396.18,193,3,635,0)"
^XMB(3.9,22,2,2902,0)="M8.$VOT+A'G^6!U_F%H$@_U`Y\$'Y09_BD\.]T^H+'_4OIPM\L>:-'V)L""_R1"
^XMB(3.9,22,2,2903,0)="""DATA"",396.18,193,3,636,0)"
^XMB(3.9,22,2,2904,0)="M<#^%R5NP2X-UD+Z`AV@7K@#ZKSC4>#O;9A<`OL6?<D*V#_PT>WX?H;\VY5E'"
^XMB(3.9,22,2,2905,0)="""DATA"",396.18,193,3,637,0)"
^XMB(3.9,22,2,2906,0)="MLHPA#`%24,S9+LD_"">""O5B17(""V(]D[+[L'J<""\;OD.^H%X@`Z#^+!#(/VJ."
^XMB(3.9,22,2,2907,0)="""DATA"",396.18,193,3,638,0)"
^XMB(3.9,22,2,2908,0)="M[[1K^IWRZOCL(T.BXV;J9\^I1ERBU75'F('/_9IZZ^-&U?TCY??9Z=DQ&5FR"
^XMB(3.9,22,2,2909,0)="""DATA"",396.18,193,3,639,0)"
^XMB(3.9,22,2,2910,0)="M!N1*$K8^G)9N0<NK*3R%KJ%U`&17NN=?1=%UHR^LA\?(^CH/60Z&L-F:#$U:"
^XMB(3.9,22,2,2911,0)="""DATA"",396.18,193,3,640,0)"
^XMB(3.9,22,2,2912,0)="M0BRM`Y;,U048H=8X6DZY@#H'L.K%4)XP5WIR_:4,<U]<<8\%9/&K]ZNJA6[/"
^XMB(3.9,22,2,2913,0)="""DATA"",396.18,193,3,641,0)"
^XMB(3.9,22,2,2914,0)="M)6`%20XE!\,A%VLE`.D\XPQ8)![!U0:T!I+]<4RI6Q.0W])U1P64D;9^%#FV"
^XMB(3.9,22,2,2915,0)="""DATA"",396.18,193,3,642,0)"
^XMB(3.9,22,2,2916,0)="MKT+']&Q9L(JM?#+@ZR1?AI5S/)?WC54NC(K'H]Z83S@\MA""-OH(R&GT)?\@;"
^XMB(3.9,22,2,2917,0)="""DATA"",396.18,193,3,643,0)"
^XMB(3.9,22,2,2918,0)="M_;9S$H/R%*7K8#F*8JL8G*WBCR3]M:""C#6_$<G!=1RS`V%<ASK^KHL`G&@I="
^XMB(3.9,22,2,2919,0)="""DATA"",396.18,193,3,644,0)"
^XMB(3.9,22,2,2920,0)="MSF8=E:%PCCZ<^]@E(__KNZV$V([RU<:/HA3-B0>JS:5_]K7)`9/@WWJ-PW*_"
^XMB(3.9,22,2,2921,0)="""DATA"",396.18,193,3,645,0)"
^XMB(3.9,22,2,2922,0)="M^SK+UY%6L1E9]V9)6-=1)\;O,)V=G;6HH;%8VYH<L4.6,>S)G,R:WV.29,^)"
^XMB(3.9,22,2,2923,0)="""DATA"",396.18,193,3,646,0)"
^XMB(3.9,22,2,2924,0)="MYZ]3XNN4^.HH7Z?$URGQ=4K\#CL\\4Q'7DI':=*MC6*@[7_O[3`1)&+P+L48"
^XMB(3.9,22,2,2925,0)="""DATA"",396.18,193,3,647,0)"
^XMB(3.9,22,2,2926,0)="M.T;KB""YT%0GF#Y)+/:ASF&:?8./LR;LE@)SU1U_Y<**O<#C!#[&S'63*C#Y9"
^XMB(3.9,22,2,2927,0)="""DATA"",396.18,193,3,648,0)"
^XMB(3.9,22,2,2928,0)="MW(M]J8Z1K0R&8L#^;Q.1+G7H7%J%9(*X??D@KL""-?X<S#<'D_3=<3)$?E5;7"
^XMB(3.9,22,2,2929,0)="""DATA"",396.18,193,3,649,0)"
^XMB(3.9,22,2,2930,0)="M`F;(L'EYGK)_4E.J5Y5Z/9;[$Q[+[>]3R>1A=52O%O1J07]-""V(9`5>%NNM4"
^XMB(3.9,22,2,2931,0)="""DATA"",396.18,193,3,650,0)"
^XMB(3.9,22,2,2932,0)="MD;[5UQ4(F%=:+';71$*6I=DXIBXJ<8ED5>:2_;@MK]\H+@'XB<ZYWC>E!#@X"
^XMB(3.9,22,2,2933,0)="""DATA"",396.18,193,3,651,0)"
^XMB(3.9,22,2,2934,0)="M@@`/XXTCU8&*5`<'235Y63X%?AH'2R'S<ML8ZZB""W9,]CFPM%=E:%)<@+>3O"
^XMB(3.9,22,2,2935,0)="""DATA"",396.18,193,3,652,0)"
^XMB(3.9,22,2,2936,0)="MS>CW5+@_P&74SO@NA!*Y`(;""JL10"""",XIERF7I\:WZ$AE'/Y7+(-D9S+2T1B"
^XMB(3.9,22,2,2937,0)="""DATA"",396.18,193,3,653,0)"
^XMB(3.9,22,2,2938,0)="M&RUS7_P?/N,[5-5+N""(4JIYY/`$38;-ODS,,\O3G=]4/II]=*[_V8S"".5A#4"
^XMB(3.9,22,2,2939,0)="""DATA"",396.18,193,3,654,0)"
^XMB(3.9,22,2,2940,0)="M[PJ#NO:3=+X+S^N/FWX-TMF_$06MHX8X.7N29YYC7OL%Q3U2WJL<^F<_J?/H"
^XMB(3.9,22,2,2941,0)="""DATA"",396.18,193,3,655,0)"
^XMB(3.9,22,2,2942,0)="MJ_SY&_>2Q,9`UD*U@?$CQ!^T+W/HV=QK1!XZ(LR""I:7I2Q#.!'E.;=U%-?L="
^XMB(3.9,22,2,2943,0)="""DATA"",396.18,193,3,656,0)"
^XMB(3.9,22,2,2944,0)="M9\_#K[A>1IJOOI""OZ6Q!\M;Z<F-=Q4""F[>/,_2<(ZD+<U+_O,;ZCG%VXDQ<J"
^XMB(3.9,22,2,2945,0)="""DATA"",396.18,193,3,657,0)"
^XMB(3.9,22,2,2946,0)="M[!*8UQ%\HY(#89D!ALANA*HOG<1?DJRK#XXX/HW:`X7JDM(2>(:@Q&*'28#0"
^XMB(3.9,22,2,2947,0)="""DATA"",396.18,193,3,658,0)"
^XMB(3.9,22,2,2948,0)="M/4,0PB](P'Z""G<M#%.<BFVTKOC'7#0?R/U!+`P04``(`""`!-:KDTFX4[^6D*"
^XMB(3.9,22,2,2949,0)="""DATA"",396.18,193,3,659,0)"
^XMB(3.9,22,2,2950,0)="M``!-.0``%0```$5S;W!H86=U<U\Q,3$N<&YL+G)E<+4;:8_;N/5[@/P'`H.B"
^XMB(3.9,22,2,2951,0)="""DATA"",396.18,193,3,660,0)"
^XMB(3.9,22,2,2952,0)="MV2)!K,M',,V""EFF;B$1J26DF;A$4N\BB""-#L+-H4Z,_O>]1A228UE-+Z0S*R"
^XMB(3.9,22,2,2953,0)="""DATA"",396.18,193,3,661,0)"
^XMB(3.9,22,2,2954,0)="M2+[[Y',J\X()34LN!:'B0/`)_V8?:<Z%^?[E""Z9E<::G2ILE9TY+FI$S4X+3"
^XMB(3.9,22,2,2955,0)="""DATA"",396.18,193,3,662,0)"
^XMB(3.9,22,2,2956,0)="MER_^[/%Y^>+^7E9E497R>'S_GKQ]2PI95`4Y2I63O^+Y?RM^_NW7?X2?QDOO"
^XMB(3.9,22,2,2957,0)="""DATA"",396.18,193,3,663,0)"
^XMB(3.9,22,2,2958,0)="M[[DX,-$\W=V9M?FO7Y^2%7Z""N[OVR[1XS-7/G[\\G?[Y]._?Z]?1].L07K]\"
^XMB(3.9,22,2,2959,0)="""DATA"",396.18,193,3,664,0)"
^XMB(3.9,22,2,2960,0)="MH=@#9X]$'DG.#CP%VA1+I3KH"">)<:(97)-GG+]^2%LKX.T3L3]_WF8O""_?WH"
^XMB(3.9,22,2,2961,0)="""DATA"",396.18,193,3,665,0)"
^XMB(3.9,22,2,2962,0)="MN_?OYQP168Z(YAWQ_V>$`*@>&+ET(7USY!DCCU2_(RVQUK5>=+L4<J1EY)$I"
^XMB(3.9,22,2,2963,0)="""DATA"",396.18,193,3,666,0)"
^XMB(3.9,22,2,2964,0)="M-@TO\B-K:!:IS'-XCZ3@WGIU;':.5UN.!Q-E8.R-;5+!LN#6.%NX+)=!<G?G"
^XMB(3.9,22,2,2965,0)="""DATA"",396.18,193,3,667,0)"
^XMB(3.9,22,2,2966,0)="M9>;FJ$\^U#2G=OB:9S]4X?R15@S]R,L7K1#.7)=276Y,W4&JD0X]<'E2LBJ"""
^XMB(3.9,22,2,2967,0)="""DATA"",396.18,193,3,668,0)"
^XMB(3.9,22,2,2968,0)="M6YI=>M#?0[@F)?A/1F@+'[W/6>J""@VOE?ZG]L51$5^K$X*UB&7PG3J24N)-T"
^XMB(3.9,22,2,2969,0)="""DATA"",396.18,193,3,669,0)"
^XMB(3.9,22,2,2970,0)="M'OG'H=Y<H=CYY!""'6Q[Q4![A""K#759[3&F6:96.TZR!1(\Z9=J/^[JJ5ZYY6"
^XMB(3.9,22,2,2971,0)="""DATA"",396.18,193,3,670,0)"
^XMB(3.9,22,2,2972,0)="M&BA^4@X^>4DI6B""ER""FE4M$JI]Z""B.8(8NTKAV`#^)67@KTFF4ROX?M`2X9("
^XMB(3.9,22,2,2973,0)="""DATA"",396.18,193,3,671,0)"
^XMB(3.9,22,2,2974,0)="M-F@Q4/`:WX$3&+$[V'BQ>^W'[7`!MT,GMWN$"""":+C.K<Q>EPELHG/JP>`E@#"
^XMB(3.9,22,2,2975,0)="""DATA"",396.18,193,3,672,0)"
^XMB(3.9,22,2,2976,0)="MEA`:^G(W#*YRL-0<#.`DJ""A=Z*TG?/A8NJA]D(&E)3EP>A)2`W-&4D6@DT*-"
^XMB(3.9,22,2,2977,0)="""DATA"",396.18,193,3,673,0)"
^XMB(3.9,22,2,2978,0)="M_.""!&RR1,)OF&,(Z#*XARNR90<ZV45;=Z:BN+8G1$D,42L=PM8;XBHLTJP[H"
^XMB(3.9,22,2,2979,0)="""DATA"",396.18,193,3,674,0)"
^XMB(3.9,22,2,2980,0)="M,QK_]\,DI5M_2L,>I:!+I0N'(:TVS>H=VI-6_VC0!=[H;,E3/TB1&Y(AU>#/"
^XMB(3.9,22,2,2981,0)="""DATA"",396.18,193,3,675,0)"
^XMB(3.9,22,2,2982,0)="M=*IX48>(HR>85WK(P^V(AZ&?QTV</D#F>[F7'RU9@#T*)DM""9^+T$X)6FE%"""
^XMB(3.9,22,2,2983,0)="""DATA"",396.18,193,3,676,0)"
^XMB(3.9,22,2,2984,0)="MM98IU""?L0!YY>>YK\X'#`LV<`3.9Y3YB+_?1,""6(`>^C8C]53*0]='M)7[?2"
^XMB(3.9,22,2,2985,0)="""DATA"",396.18,193,3,677,0)"
^XMB(3.9,22,2,2986,0)="M3Y>ERH!VW``G%Y!(<@S!)LP>01&ETB0%$/C<@;(:T/6@""<#;41*PMFDAT(5R"
^XMB(3.9,22,2,2987,0)="""DATA"",396.18,193,3,678,0)"
^XMB(3.9,22,2,2988,0)="ML6,S`!^L1N%^[:=\L5\`""M9+5&OM5*T'F7-#RW<HUWJ6<FUF*5<R5JX688MZ"
^XMB(3.9,22,2,2989,0)="""DATA"",396.18,193,3,679,0)"
^XMB(3.9,22,2,2990,0)="M)7[JU>I$^*QV]6!9]:L[:89Z;?['ZN67WEBX;M>414F_.^L_7#1J$:=.Y9F5"
^XMB(3.9,22,2,2991,0)="""DATA"",396.18,193,3,680,0)"
^XMB(3.9,22,2,2992,0)="MR^_FZ,YFK#H=,K>ZL_%3G78YQOP""A(21**4@1)%=B'Z$@D$^DHS_5/&#O@6R"
^XMB(3.9,22,2,2993,0)="""DATA"",396.18,193,3,681,0)"
^XMB(3.9,22,2,2994,0)="MG0=DYP&D+D?DL81_,GX`ALG#+>#=/,#!:@KR%*!@-1,2:DY9[1DY,H8YD48]"
^XMB(3.9,22,2,2995,0)="""DATA"",396.18,193,3,682,0)"
^XMB(3.9,22,2,2996,0)="M0IEQ!8YH?VG1L(#RJ^MWGGJ_)+$/O#)[\)Z0MFAW,3LOM5]YF<#3UU^>]D__"
^XMB(3.9,22,2,2997,0)="""DATA"",396.18,193,3,683,0)"
^XMB(3.9,22,2,2998,0)="MN?&>%KQZK&UWN1M`SO(!DP"":@G``2]Z*CHLIHOTR@2__^@8H(:>[6A#HP+,G"
^XMB(3.9,22,2,2999,0)="""DATA"",396.18,193,3,684,0)"
^XMB(3.9,22,2,3000,0)="MHGZSR5,9&[)-)C_@5@-EQ!Y,R6<<B[%7LP>F>#EQZ/KV3(L77WEJ\Y*F0.#N"
^XMB(3.9,22,2,3001,0)="""DATA"",396.18,193,3,685,0)"
^XMB(3.9,22,2,3002,0)="M""IP95>6^4J9K4UP4%DQ.R<[J""03AK&P@'$NHP\SB(,+O;/R-Z(J7\#1V\E2Q"
^XMB(3.9,22,2,3003,0)="""DATA"",396.18,193,3,686,0)"
^XMB(3.9,22,2,3004,0)="M$Y1_)M1+MYG$LY@9S6)F-&;F`""4+0Z-Y^=7*M&E%B6W:D>\90YK,KCS[99&G"
^XMB(3.9,22,2,3005,0)="""DATA"",396.18,193,3,687,0)"
^XMB(3.9,22,2,3006,0)="M''=+Y+B;L(T<DN:<F2Z&(CG+F'!G.[M9\IR5[IBN6=_16#&SB'4J]UD/FP$F"
^XMB(3.9,22,2,3007,0)="""DATA"",396.18,193,3,688,0)"
^XMB(3.9,22,2,3008,0)="M'>]:'%8`A!5<2\APA[6_;V_;-UYOETAQZQ>OLVF;W,Z2X7:6##%8B""K?0RU@"
^XMB(3.9,22,2,3009,0)="""DATA"",396.18,193,3,689,0)"
^XMB(3.9,22,2,3010,0)="MQPH2)&$:'P5V88*0Y&!A9TNR&7C6G=O)>P\_8VF7-E6,YB?!CQPRQ[+EL?.:"
^XMB(3.9,22,2,3011,0)="""DATA"",396.18,193,3,690,0)"
^XMB(3.9,22,2,3012,0)="MQNS$V$>>N=(HSA=M[C3P\G9TH>&E,DOLWM`$%H4W`2<F\`\,.5EY?N?0CIV["
^XMB(3.9,22,2,3013,0)="""DATA"",396.18,193,3,691,0)"
^XMB(3.9,22,2,3014,0)="MQ]7XLXT7'M?%AIVZKA-9SJF+E>T.=W*R'I6BP50I.@5UU%\+@[$`+9?;3@O9"
^XMB(3.9,22,2,3015,0)="""DATA"",396.18,193,3,692,0)"
^XMB(3.9,22,2,3016,0)="M?IIOR*O1S7?W9M.[A$6O$XV>P]%S,'I>#9^WP\>-N5%_P/N@FC\#/?3LTIK+"
^XMB(3.9,22,2,3017,0)="""DATA"",396.18,193,3,693,0)"
^XMB(3.9,22,2,3018,0)="M#987H$QEU;\;-2]A[='S(%.$5ID>'8'""^>7WKYZ'&(JA#""@XH(/.$/X;'>A;"
^XMB(3.9,22,2,3019,0)="""DATA"",396.18,193,3,694,0)"
^XMB(3.9,22,2,3020,0)="MU'4,WV=0'&(O0^L;`DT2\7;P#1[Q]>OY[]XP4(AGQD_G<G1V>-7+H5K,:*(;"
^XMB(3.9,22,2,3021,0)="""DATA"",396.18,193,3,695,0)"
^XMB(3.9,22,2,3022,0)="ME7BTG8X%9R$K@:,3,ZNC37<F2<]4G)C+?7C&XM;)1]=S,ZDM40""Y_0=BRC(L"
^XMB(3.9,22,2,3023,0)="""DATA"",396.18,193,3,696,0)"
^XMB(3.9,22,2,3024,0)="MJ$M)]E2SC`LV`TI\A7(:%B_M`F\H3G->Y@,`7!/-.W?5#SX]UI#Z%DM4):1'"
^XMB(3.9,22,2,3025,0)="""DATA"",396.18,193,3,697,0)"
^XMB(3.9,22,2,3026,0)="MP_1V=.R<Z!X&\R_:3)YF0;S&$@BH]FE5PNFRTN1(2R>FOCVKX8UMX(`.T2,#"
^XMB(3.9,22,2,3027,0)="""DATA"",396.18,193,3,698,0)"
^XMB(3.9,22,2,3028,0)="M@Q7#CL!H[R*(L1UB>E92\-24E!)J]HN)K-CW?#1&AB^J+&7*C4^\"")_$CD]>"
^XMB(3.9,22,2,3029,0)="""DATA"",396.18,193,3,699,0)"
^XMB(3.9,22,2,3030,0)="MZ;0>CQFUET>[%\%<.WB@:/I!PQNDV*1U.9SK3""ZB]2+@#H5C!Y93)ZAEVK6U"
^XMB(3.9,22,2,3031,0)="""DATA"",396.18,193,3,700,0)"
^XMB(3.9,22,2,3032,0)="M@RJP=:B<L+:+8.WLL$YH2&#C;K79+0$7._S-`6*F_L""=#B5>+8+F,-,SY6KL"
^XMB(3.9,22,2,3033,0)="""DATA"",396.18,193,3,701,0)"
^XMB(3.9,22,2,3034,0)="MZD<;%X$+[>#V6=V6):<J=X,,%X&,G/Q\3?;@I,$=&7*=8*-%8!W>J%""R5/6U"
^XMB(3.9,22,2,3035,0)="""DATA"",396.18,193,3,702,0)"
^XMB(3.9,22,2,3036,0)="M_%X*YB8V]A\-""(<E4>UE>C'HCWKJYC_<>15PEA!TNVBRR`LC[R(/EUJ*O*XV"
^XMB(3.9,22,2,3037,0)="""DATA"",396.18,193,3,703,0)"
^XMB(3.9,22,2,3038,0)="M.\(N[.)/E7NAF:M\IMHK&52W=78]A7GLCWE<Y[E5UC2CQ$'J5!8\?4T^OE'T"
^XMB(3.9,22,2,3039,0)="""DATA"",396.18,193,3,704,0)"
^XMB(3.9,22,2,3040,0)="M@N&FIHSG]&3&,TK0!Z;-J$$JQ9&KO.L_]RISN=>@.2F^>4WH7D""*`-_FLN09"
^XMB(3.9,22,2,3041,0)="""DATA"",396.18,193,3,705,0)"
^XMB(3.9,22,2,3042,0)="M+T&7FZ7HD5X#!L>L^GB%U3+,/4B&:P=#R9.\C6^KOSX3$G]^)4-^807<#,O@"
^XMB(3.9,22,2,3043,0)="""DATA"",396.18,193,3,706,0)"
^XMB(3.9,22,2,3044,0)="M(`9>.Z40K(W445@:670`-K!#,YO!M2G5`=T)?!,GOD.S2Y;<2R9U*H^]GJS&"
^XMB(3.9,22,2,3045,0)="""DATA"",396.18,193,3,707,0)"
^XMB(3.9,22,2,3046,0)="MLJ.H'L(!7)MN""F(*+PNIG""-.2>U9GU'<;J""H5QHN*(S-N'@8KC]Y#L:&JS"","
^XMB(3.9,22,2,3047,0)="""DATA"",396.18,193,3,708,0)"
^XMB(3.9,22,2,3048,0)="MG./B^'87F^(5""L],7LP(33<<^N;FX^/@^E`K7:$EI&E53+9TKYMF^.Y;,D""U"
^XMB(3.9,22,2,3049,0)="""DATA"",396.18,193,3,709,0)"
^XMB(3.9,22,2,3050,0)="M'E@)!;0@::44[('LL::,'7YT#!O7N_WJJPY/T\.N0;C(VUK(6\V[><(]]57H"
^XMB(3.9,22,2,3051,0)="""DATA"",396.18,193,3,710,0)"
^XMB(3.9,22,2,3052,0)="MI:CGU#HIW=X4U8L]Z\3^'C->5:G.A[5T/0LL7``,&5?RG&&R4I*CDCFD]>H#"
^XMB(3.9,22,2,3053,0)="""DATA"",396.18,193,3,711,0)"
^XMB(3.9,22,2,3054,0)="M(H!>+JN[EV],]Y(43/'!=?+@),_ABH;W)NCB``=[I7\P@W@6+,#J'1@X)BVZ"
^XMB(3.9,22,2,3055,0)="""DATA"",396.18,193,3,712,0)"
^XMB(3.9,22,2,3056,0)="MPSVC?[M^T\7+J_9<Y[(AB(J4X4UL>J;JQ,Q0M/G*8->XSTE+""C>++6DUM""3%"
^XMB(3.9,22,2,3057,0)="""DATA"",396.18,193,3,713,0)"
^XMB(3.9,22,2,3058,0)="M2KQTGS2?E>=5P><OW\+5JB:_'1NLSQ^JV76AW\'7J]U6H8VD;XZW6N=H\TRU"
^XMB(3.9,22,2,3059,0)="""DATA"",396.18,193,3,714,0)"
^XMB(3.9,22,2,3060,0)="M2JZ_;7C;Y3N0-4**G/>GO:UJD\P$AN5BH2\I!GX%X;:#\ZR""KF=""NB9TSW'2"
^XMB(3.9,22,2,3061,0)="""DATA"",396.18,193,3,715,0)"
^XMB(3.9,22,2,3062,0)="M""BY:K'W14/LJT?IOLJ]*(F3II9#17->TJAV$S0^V*+@\X6K:_""WAHTDZJ<9["
^XMB(3.9,22,2,3063,0)="""DATA"",396.18,193,3,716,0)"
^XMB(3.9,22,2,3064,0)="MFQ-_8,+D1B-`DZ$DC)^M`IRY0@\;OZG!9N7X-Q#L>&0IIH%BZ,7J>6<.L9="""
^XMB(3.9,22,2,3065,0)="""DATA"",396.18,193,3,717,0)"
^XMB(3.9,22,2,3066,0)="M^OL`&2[K6\+HUSCKR=34/S--?'[]@^L\4\MXR;!NW`SK]I+_M[J@.B<4$*-@"
^XMB(3.9,22,2,3067,0)="""DATA"",396.18,193,3,718,0)"
^XMB(3.9,22,2,3068,0)="MK)C(S[A5C!/WQ=%0[^,9$Z""#36:\GW8_T(+:1Z`%F`D`7;H-+3:2^R]02P$"""
^XMB(3.9,22,2,3069,0)="""DATA"",396.18,193,3,719,0)"
^XMB(3.9,22,2,3070,0)="M%@L4``(`""`!-:KDTMML*4YTK``#Z_0``$0`````````!`""``@($`````17-O"
^XMB(3.9,22,2,3071,0)="""DATA"",396.18,193,3,720,0)"
^XMB(3.9,22,2,3072,0)="M<&AA9W5S7S$Q,2YP;FQ02P$""%@L4``(`""`!.:KDTU:B;UGTP``#1KP$`%0``"
^XMB(3.9,22,2,3073,0)="""DATA"",396.18,193,3,721,0)"
^XMB(3.9,22,2,3074,0)="M```````!`""``@(',*P``17-O<&AA9W5S7S$Q,2YP;FPN9G)M4$L!`A8+%``"""
^XMB(3.9,22,2,3075,0)="""DATA"",396.18,193,3,722,0)"
^XMB(3.9,22,2,3076,0)="M``@`36JY-$%CYFVZ%@``5Z\``!4``````````0`@`(""!?%P``$5S;W!H86=U"
^XMB(3.9,22,2,3077,0)="""DATA"",396.18,193,3,723,0)"
^XMB(3.9,22,2,3078,0)="M<U\Q,3$N<&YL+F-D95!+`0(6""Q0``@`(`$UJN32;A3OY:0H``$TY```5````"
^XMB(3.9,22,2,3079,0)="""DATA"",396.18,193,3,724,0)"
^XMB(3.9,22,2,3080,0)="M``````$`(`""`@6ES``!%<V]P:&%G=7-?,3$Q+G!N;""YR97!02P4&``````0`"
^XMB(3.9,22,2,3081,0)="""DATA"",396.18,193,3,725,0)"
^XMB(3.9,22,2,3082,0)=",!``(`0``!7X`````"
^XMB(3.9,22,2,3083,0)="""DATA"",396.18,193,3,726,0)"
^XMB(3.9,22,2,3084,0)="end"
^XMB(3.9,22,2,3085,0)="""DATA"",396.18,193,4)"
^XMB(3.9,22,2,3086,0)="9^368108016"
^XMB(3.9,22,2,3087,0)="""DATA"",396.18,193,6)"
^XMB(3.9,22,2,3088,0)="1^485"
^XMB(3.9,22,2,3089,0)="""DATA"",396.18,215,0)"
^XMB(3.9,22,2,3090,0)="GENERAL MEDICAL EXAMINATION~111F"
^XMB(3.9,22,2,3091,0)="""DATA"",396.18,215,1,0)"
^XMB(3.9,22,2,3092,0)="^^2^2^3060728"
^XMB(3.9,22,2,3093,0)="""DATA"",396.18,215,1,1,0)"
^XMB(3.9,22,2,3094,0)="Last updated on 06/02/2006 ~111"
^XMB(3.9,22,2,3095,0)="""DATA"",396.18,215,1,2,0)"
^XMB(3.9,22,2,3096,0)="Patch DVBA*2.7*111"
^XMB(3.9,22,2,3097,0)="""DATA"",396.18,215,2)"
^XMB(3.9,22,2,3098,0)="3060522^^3060602.1734"
^XMB(3.9,22,2,3099,0)="""DATA"",396.18,215,3,0)"
^XMB(3.9,22,2,3100,0)="^396.184^2863^2863^3060602^^^^"
^XMB(3.9,22,2,3101,0)="""DATA"",396.18,215,3,1,0)"
^XMB(3.9,22,2,3102,0)="begin 664 general_Medical_Exam_111.pnl.zip"
^XMB(3.9,22,2,3103,0)="""DATA"",396.18,215,3,2,0)"
^XMB(3.9,22,2,3104,0)="M4$L#!!0``@`(`+J#PC3J=18M2ZP``)6<!``<````1V5N97)A;%]-961I8V%L"
^XMB(3.9,22,2,3105,0)="""DATA"",396.18,215,3,3,0)"
^XMB(3.9,22,2,3106,0)="M7T5X86U?,3$Q+G!N;-P]:6P<UWE[B$N*%$F=MFPK\5AQ9-FFZ+U)*BX47I+H"
^XMB(3.9,22,2,3107,0)="""DATA"",396.18,215,3,4,0)"
^XMB(3.9,22,2,3108,0)="M\""J7LFS7KOMVYRUWI-F9[1PDUTF+)$7:NDYZVFF!UDT`%X%;M&[BMD""/'RG0"
^XMB(3.9,22,2,3109,0)="""DATA"",396.18,215,3,5,0)"
^XMB(3.9,22,2,3110,0)="M%BV0^E=_]$B*-#^*Y$^+%DT0H/?WKMDWG-G9'5EQM/I#[OG>=]_O[?;FY6QF"
^XMB(3.9,22,2,3111,0)="""DATA"",396.18,215,3,6,0)"
^XMB(3.9,22,2,3112,0)="M>Q,96#^VWR+_%I""-%TW#L4S]T""JN.ZE$>MMLI8X.7==4IY'^=BIS%6L[#2?]"
^XMB(3.9,22,2,3113,0)="""DATA"",396.18,215,3,7,0)"
^XMB(3.9,22,2,3114,0)="M=G)T`>]B?<-UL#6<J>ZNFP8^!5^U'0MIAF-/KZ%][[,G#[PA5O-_03.Z?$$S"
^XMB(3.9,22,2,3115,0)="""DATA"",396.18,215,3,8,0)"
^XMB(3.9,22,2,3116,0)="MQ!<.;YHMM[6&#7?XY!J\>]FTFM/[WHNYD6U4W;!4;*42B<0V16\55;$^2?]N"
^XMB(3.9,22,2,3117,0)="""DATA"",396.18,215,3,9,0)"
^XMB(3.9,22,2,3118,0)="MMUMXHTZ^0Y%+S_X?Q6Z$89=ZA"".7&A]>1""U',XW,T-KRUI5EWU)C]""]99&7)"
^XMB(3.9,22,2,3119,0)="""DATA"",396.18,215,3,10,0)"
^XMB(3.9,22,2,3120,0)="MM\QIOLP3P64R5Y;7UY:7_""""QUUZD3XJS64;OXV2I])L)3O#/""X*G[O<6^Z/M"
^XMB(3.9,22,2,3121,0)="""DATA"",396.18,215,3,11,0)"
^XMB(3.9,22,2,3122,0)="M!E;P/FIJ!K:4)FHK%OY1%]N.@HRV@E15(Q]#NF([KJIA6S$M_G%$WK`5`V,5"
^XMB(3.9,22,2,3123,0)="""DATA"",396.18,215,3,12,0)"
^XMB(3.9,22,2,3124,0)="MJTH=7F]99@L6436T8YBV9L,2JH)WD>[2SRKG;8P5LX'I)QVS9NHV_=Z.JZG("
^XMB(3.9,22,2,3125,0)="""DATA"",396.18,215,3,13,0)"
^XMB(3.9,22,2,3126,0)="MJ.%'IY5Y75>T9LNT'&0XL/8.?',7=K4;IJNK2A4#>.1=K$X?N0RB-;W80):-"
^XMB(3.9,22,2,3127,0)="""DATA"",396.18,215,3,14,0)"
^XMB(3.9,22,2,3128,0)="MG>')I>7+\]=6MU]<O#J_55G>'F7OFKII#0_7]`4=U6Z.T=<X"";YSF#Y;1TV<"
^XMB(3.9,22,2,3129,0)="""DATA"",396.18,215,3,15,0)"
^XMB(3.9,22,2,3130,0)="M&5^K*!4$R%2PI=795RM.6\=CB=%-9&'#(2^-C%PW+?6ZA5J'HVB?9WS\0R;L"
^XMB(3.9,22,2,3131,0)="""DATA"",396.18,215,3,16,0)"
^XMB(3.9,22,2,3132,0)="M=4[[WT@$&?D!(FHZ<@CY++-)J%+5<5/1-2""_7;,P-B[Z=IJ0=YJ;8QO]99)R"
^XMB(3.9,22,2,3133,0)="""DATA"",396.18,215,3,17,0)"
^XMB(3.9,22,2,3134,0)="M^9<%EW\E9*<'ES""LIP'YZI2]1JU-F6.#UEF:T^Z.3SG/\7DF1;<YEN2""V0SN"
^XMB(3.9,22,2,3135,0)="""DATA"",396.18,215,3,18,0)"
^XMB(3.9,22,2,3136,0)="M<FS94$V[9K;:RA:V7=VQWQ,>9>KV@JFK/E9%(51@""#W-$'J&(Y3^N$>WHH?1"
^XMB(3.9,22,2,3137,0)="""DATA"",396.18,215,3,19,0)"
^XMB(3.9,22,2,3138,0)="M<Z""9RA4$Q@/4P)X""M(CP*0)/K:8L[VHJD!-/*2M&30<5,7:4J[AI6A;:@1>O"
^XMB(3.9,22,2,3139,0)="""DATA"",396.18,215,3,20,0)"
^XMB(3.9,22,2,3140,0)="MZ35L40[#0LN6251EWL+(OD/%MUS@U'F%2=5S@MTO!ME]<LFT;`3""JFQBE?QU"
^XMB(3.9,22,2,3141,0)="""DATA"",396.18,215,3,21,0)"
^XMB(3.9,22,2,3142,0)="M=1MW7SI?S+&E$RF?H;P:7'EBRVQ6L;7S""""B^MF.(-:EO$3I`G^1GF*'[$;KB"
^XMB(3.9,22,2,3143,0)="""DATA"",396.18,215,3,22,0)"
^XMB(3.9,22,2,3144,0)="M0YR37TL*QU)*'KH*5C\SM+FQ>6V3.9D5`RS=\$AU=PMI-E;'%DQBXADL*?Z,"
^XMB(3.9,22,2,3145,0)="""DATA"",396.18,215,3,23,0)"
^XMB(3.9,22,2,3146,0)="M4@\^8U>`GSH>8HP8J>D530>->9>\^_8M\,YS18\E0HF;991(O\;,3H:3XG<\"
^XMB(3.9,22,2,3147,0)="""DATA"",396.18,215,3,24,0)"
^XMB(3.9,22,2,3148,0)="MH3[J4??4%6RL8?6B4KFI&4JEW6PY9O/=JNI_O`M5#44HQUE[DN*SS(4E&Q26"
^XMB(3.9,22,2,3149,0)="""DATA"",396.18,215,3,25,0)"
^XMB(3.9,22,2,3150,0)="M$8'!\+*!P'ZJ(^\]>[KAP""7^]82,1/J=$`M]_NR&`Y[QK&)S;*A]EOQOS6PV"
^XMB(3.9,22,2,3151,0)="""DATA"",396.18,215,3,26,0)"
^XMB(3.9,22,2,3152,0)="M8;L[`DN?'RK.28Q*ORK<T+^$()GUW!`QFHY6;Q-S6375-D0>UDTPL'8-T)E2"
^XMB(3.9,22,2,3153,0)="""DATA"",396.18,215,3,27,0)"
^XMB(3.9,22,2,3154,0)="M'.0XIFF#]QO>7G#AL2$(RYZ56(""3_C(E;#HMK-1'Q)X/=Z*E<XNZ:>/OI\H>"
^XMB(3.9,22,2,3155,0)="""DATA"",396.18,215,3,28,0)"
^XMB(3.9,22,2,3156,0)="M&MXP%G6M=G/XQ#Z#'S00OENC+R820]MKX#'&.8;D<<$O.-<X39\0ABTUR^S:"
^XMB(3.9,22,2,3157,0)="""DATA"",396.18,215,3,29,0)"
^XMB(3.9,22,2,3158,0)="MH7*V5/I>2,38HNE:&D1JZWC/A^'X*@2*-CRS@'5V,I/PX3Q:J4&P#X&_90^/"
^XMB(3.9,22,2,3159,0)="""DATA"",396.18,215,3,30,0)"
^XMB(3.9,22,2,3160,0)="MVO;3V'*T&M([I(!(>G1[8VL5(IP%<_\81]E[H23K/,<ZU3Z`]%`.K%W>PWIB"
^XMB(3.9,22,2,3161,0)="""DATA"",396.18,215,3,31,0)"
^XMB(3.9,22,2,3162,0)="M>=_!!CC6""M9QS7FO]&+%P4TAX./DB4240UO(;F2&*D28,\,K3JT!KV>&J(8G"
^XMB(3.9,22,2,3163,0)="""DATA"",396.18,215,3,32,0)"
^XMB(3.9,22,2,3164,0)="MQM8@,M(8L(=EXDVPQY6&N4?P'!GI//+HESQ""MMK66IY'NJY!,+(WLFH:.X2("
^XMB(3.9,22,2,3165,0)="""DATA"",396.18,215,3,33,0)"
^XMB(3.9,22,2,3166,0)="MH*23VXN;U]>VD*J95RS3;9WF5/:_FB\S8J??9C*F<&HC0>V'.+7SV=E2;I3`"
^XMB(3.9,22,2,3167,0)="""DATA"",396.18,215,3,34,0)"
^XMB(3.9,22,2,3168,0)="MPGSCR)&G7)OH+D7Z\##YMXE4R<%,4,<B#-FE88#5;1IV*O7>L.8@-]+/8CN3"
^XMB(3.9,22,2,3169,0)="""DATA"",396.18,215,3,35,0)"
^XMB(3.9,22,2,3170,0)="M6C>[:&=""*.""$I(!Y'@?Q%.H-8=7^Q-/`BD>>N>S,`&A>.M$]C)KAHO""33!3N"
^XMB(3.9,22,2,3171,0)="""DATA"",396.18,215,3,36,0)"
^XMB(3.9,22,2,3172,0)="MX\B^[L51J.\XZGL;.7WGW9CA<""==F""TR3M<I[H<Y[G\5$CB=$8'3JM;4');3"
^XMB(3.9,22,2,3173,0)="""DATA"",396.18,215,3,37,0)"
^XMB(3.9,22,2,3174,0)="MFG5ES22/[K#XJ3#+;>DD1>N#'*W?]-!ZQ$/KZ?D:2;)IP-%""MDT>6\C8P02Y"
^XMB(3.9,22,2,3175,0)="""DATA"",396.18,215,3,38,0)"
^XMB(3.9,22,2,3176,0)="MIBG0Q*C64%""]#F8+DI@;)LC#E()LI0G9C&O!2U7(*94=T]#,)G;`3DCI1CB$"
^XMB(3.9,22,2,3177,0)="""DATA"",396.18,215,3,39,0)"
^XMB(3.9,22,2,3178,0)="M90G""]*<2$2!65^H*&$^VJP*Y1@MI1MW5%0""-00BA`W`$D'""4O0;\:;%/&O1K"
^XMB(3.9,22,2,3179,0)="""DATA"",396.18,215,3,40,0)"
^XMB(3.9,22,2,3180,0)="M![$AWU:J>$<S>(W""4.U>X);+LTQ)_C;AH^CG/'#G/7!_<<4F^UI8#N!TG]!P"
^XMB(3.9,22,2,3181,0)="""DATA"",396.18,215,3,41,0)"
^XMB(3.9,22,2,3182,0)="M2,ZO;JP]2K""P<`L[&N6#:U-8._BJ+E8<DT(]I=1AB1T74LL]C&Z""08!H23-J"
^XMB(3.9,22,2,3183,0)="""DATA"",396.18,215,3,42,0)"
^XMB(3.9,22,2,3184,0)="M)@#/2S(DTR3B17EFJ*Y%2BN7>J,W)Z.7?EFPX[=#V(&6P0$T"";G!*RA-EPA&"
^XMB(3.9,22,2,3185,0)="""DATA"",396.18,215,3,43,0)"
^XMB(3.9,22,2,3186,0)="M!U%`:4K!^RT+@`.Q`%*K>,?""V%:T.O`%!`S\]A1@3$L$(%(@+`?PO^1Y]YYP"
^XMB(3.9,22,2,3187,0)="""DATA"",396.18,215,3,44,0)"
^XMB(3.9,22,2,3188,0)="MSV1]</]#(E!PZ<!=6Y$!`,<))A*0V&MH@$$=U1P@'0A7T[0=`E[+-.A':9&*"
^XMB(3.9,22,2,3189,0)="""DATA"",396.18,215,3,45,0)"
^XMB(3.9,22,2,3190,0)="ML,./9""CD%T,A%U'L45\4FQ,B]04&^[E`&'NZ4SND46S'F`WU%5/Z7%JV(%N$"
^XMB(3.9,22,2,3191,0)="""DATA"",396.18,215,3,46,0)"
^XMB(3.9,22,2,3192,0)="M#4ZGMSPZ37OA5;DP-P`>+=QQ9XNR57DK$4""SWD&S6!X`-)/A:)9]8O^E()YG"
^XMB(3.9,22,2,3193,0)="""DATA"",396.18,215,3,47,0)"
^XMB(3.9,22,2,3194,0)="M)3P+@Y0C0*1R>'O1;%9-*440SV?]>`\E`WB?DO#N9`F^>%U*S0*A^R98V<SP"
^XMB(3.9,22,2,3195,0)="""DATA"",396.18,215,3,48,0)"
^XMB(3.9,22,2,3196,0)="M969E,R/7N97-3*SXK&SFV""JWL<O""QB;Z#;TA?V%(_+V_1OP9#X<')1R*_<7>"
^XMB(3.9,22,2,3197,0)="""DATA"",396.18,215,3,49,0)"
^XMB(3.9,22,2,3198,0)="M(L;N&OWZDK""NH:!H'9RBD#T@?++7JOE2XBZ(!)/AKD04*/\KX0L%OQ@2""MXC"
^XMB(3.9,22,2,3199,0)="""DATA"",396.18,215,3,50,0)"
^XMB(3.9,22,2,3200,0)="M0L%EWCJQE773P7=:$%C.RPGU68Y0.Q4LS;RROK&]?%$!!VE@%_33W""%*J:""J"
^XMB(3.9,22,2,3201,0)="""DATA"",396.18,215,3,51,0)"
^XMB(3.9,22,2,3202,0)="M85I-I(-_`_\-^X$O=""%B@C!#Z@)-*<Q!PMNDZZ,T(!$UK3;1#AMK+T%T:!-_"
^XMB(3.9,22,2,3203,0)="""DATA"",396.18,215,3,52,0)"
^XMB(3.9,22,2,3204,0)="M7P=;`7$,:I%&D:41URLMXC6%IGM&CN6BC-:'.%J5$+3:2QBWE&V(@V""#+5S7"
^XMB(3.9,22,2,3205,0)="""DATA"",396.18,215,3,53,0)"
^XMB(3.9,22,2,3206,0)="M\;X"":3GX]//9""_-5&Y,@-O?XA:OMEHEH&#REY!^_L$Z1GE(*C\,;V!+O[&E."
^XMB(3.9,22,2,3207,0)="""DATA"",396.18,215,3,54,0)"
^XMB(3.9,22,2,3208,0)="MPW0=I::;A@LH%>D7_>_S-Q_MC4191N(Z1Z*<#""*Q.$^B%A9B^""OCA-SV'J)E"
^XMB(3.9,22,2,3209,0)="""DATA"",396.18,215,3,55,0)"
^XMB(3.9,22,2,3210,0)="M-!+(UI&ND\<4$-P&EM5(V*!.*]V`X)G?""TD?%+DP*#8%#`NH""I'S38WL[K8<"
^XMB(3.9,22,2,3211,0)="""DATA"",396.18,215,3,56,0)"
^XMB(3.9,22,2,3212,0)="MUS+(GL#LJK8##,8<%$.\;!+1(&_8W:`HR*1H<B!^(`2(*Q5LV$2T`""V;[$__"
^XMB(3.9,22,2,3213,0)="""DATA"",396.18,215,3,57,0)"
^XMB(3.9,22,2,3214,0)="MPQXL.'9,B$7A'VX2K@!DP!1&.A87[VI5BPI;]Y"",^Y=IUO_XJ<3!D.S!KB%9"
^XMB(3.9,22,2,3215,0)="""DATA"",396.18,215,3,58,0)"
^XMB(3.9,22,2,3216,0)="MHD=(UCW]GO-5^\8X_OM>^OWJW9!^I\*-;I8[G""L4]R&.^S=#;.Z#'9OK6+C)"
^XMB(3.9,22,2,3217,0)="""DATA"",396.18,215,3,59,0)"
^XMB(3.9,22,2,3218,0)="M3-)RQX#<8<:WG.<*?C_%[$4N2!\*""O41$AJ`L:4--""]BZ;)JH2BMFOZ)1,S^"
^XMB(3.9,22,2,3219,0)="""DATA"",396.18,215,3,60,0)"
^XMB(3.9,22,2,3220,0)="M7,_E2_+R8G0@50TN?P_8`\A_-%""K;:T:`;^O6U""2UQ>F._5,</GC\]SU@(]@"
^XMB(3.9,22,2,3221,0)="""DATA"",396.18,215,3,61,0)"
^XMB(3.9,22,2,3222,0)="M[&[W6KKLZ[R+M9\-KGW""6[M.DD!CY[S]:*_%>3OJ-*7+OXEP^XV0+L?9BMML"
^XMB(3.9,22,2,3223,0)="""DATA"",396.18,215,3,62,0)"
^XMB(3.9,22,2,3224,0)="M(N;^/-C]GC2<^+D\)\XUNLD+(K;]FY!-IAY3-DF""K53<*JQ/_:I**AD0]X%:"
^XMB(3.9,22,2,3225,0)="""DATA"",396.18,215,3,63,0)"
^XMB(3.9,22,2,3226,0)="MP%.2L')(^DE%F5BE/\OB:B.0BC[0U>X-][![W8/YTIPL##I']Q?""0OELSU`^"
^XMB(3.9,22,2,3227,0)="""DATA"",396.18,215,3,64,0)"
^XMB(3.9,22,2,3228,0)="M$/EFF!?/'%[""-=)RQVHFPUQ^(@JH<D[6@)]/1$!5FLOV@BI]NZ#RJ?WO)R)I"
^XMB(3.9,22,2,3229,0)="""DATA"",396.18,215,3,65,0)"
^XMB(3.9,22,2,3230,0)="ME8V=]D1""U6=6,\=%Z(M,A-X1,/YNXF!+(3<[$[.E\($MK&O@]FB5$>MXURND"
^XMB(3.9,22,2,3231,0)="""DATA"",396.18,215,3,66,0)"
^XMB(3.9,22,2,3232,0)="M>1IVZ:""SZ^1$'CFZ)D=CS)S3%22?->1K5QT_V*[*^RW.U0,-J_0G$ITF02[7"
^XMB(3.9,22,2,3233,0)="""DATA"",396.18,215,3,67,0)"
^XMB(3.9,22,2,3234,0)="MM6,5V4O*T!$2.S.RV$9TJ@H>Z6ZU2CI*QRH.(G-6`&H3D1H4O'D%&3N`""LY,"
^XMB(3.9,22,2,3235,0)="""DATA"",396.18,215,3,68,0)"
^XMB(3.9,22,2,3236,0)="M;D.4W=!J2JU!RI^0P3Z-0""E!=95=#/%;9G(1Z76%0F+1%'=H6<5-Y&]0W:ZF"
^XMB(3.9,22,2,3237,0)="""DATA"",396.18,215,3,69,0)"
^XMB(3.9,22,2,3238,0)="M5'?)SF5E(W""UJV`3&O84[$#SY]06^0B$J60RS9.5S$FR9>!5_F'=W`OY\(%7"
^XMB(3.9,22,2,3239,0)="""DATA"",396.18,215,3,70,0)"
^XMB(3.9,22,2,3240,0)="M$]UZTT4>4G_W@""6]+!`ZT^E-,^/=*1EZ>(STL*E=MF;UQ%2IBPT_(]MPC*R0"
^XMB(3.9,22,2,3241,0)="""DATA"",396.18,215,3,71,0)"
^XMB(3.9,22,2,3242,0)="MC3/QZXHB(F&N\7^%VJ]XX?OS$@?S`U""`.MRWR<MR![9'9?>>P""39PP+S7&XV"
^XMB(3.9,22,2,3243,0)="""DATA"",396.18,215,3,72,0)"
^XMB(3.9,22,2,3244,0)="MGL&[ETQ""8BG09='#I5B%GM&HI(/+RD<IZ(<XZ'_@Y1R_=3?D'.G0.*N4XRKZ"
^XMB(3.9,22,2,3245,0)="""DATA"",396.18,215,3,73,0)"
^XMB(3.9,22,2,3246,0)="M\80\B9;^O<A""#UBT&I`:TY3C#LLU2CF>:\Q0A""YSQ5\+QHV3RVU?U:7;>GR<"
^XMB(3.9,22,2,3247,0)="""DATA"",396.18,215,3,74,0)"
^XMB(3.9,22,2,3248,0)="M[.N,0F?X@DYPP7N]F9XFLNEXL&&JKMXKT2CE>._CGQ(^D'\PN,-1;P<^(]5S"
^XMB(3.9,22,2,3249,0)="""DATA"",396.18,215,3,75,0)"
^XMB(3.9,22,2,3250,0)="MZ3F9&#RL3'TXN/+X5:19M%I!)A:ZK"":*M1Q0_38""*F9KV=(0>]_.M4LR!]/?"
^XMB(3.9,22,2,3251,0)="""DATA"",396.18,215,3,76,0)"
^XMB(3.9,22,2,3252,0)="M$F;YE9!DXGW>XJ)QN&.:JE)CL_L]=RK[=O(FA&^$Y(S;$%PZ9(Z-]M0@ZZUB"
^XMB(3.9,22,2,3253,0)="""DATA"",396.18,215,3,77,0)"
^XMB(3.9,22,2,3254,0)="M!]L]=YB1&)K^IB#3?G""#^R""J:.FDK4>'TP&3OO>8E?=01>[UJ41P9G[*(U?-"
^XMB(3.9,22,2,3255,0)="""DATA"",396.18,215,3,78,0)"
^XMB(3.9,22,2,3256,0)="MMQL1)*^I*$:K8_4#N3R46?'II8BQMH-)V&2?`</!'0L^WD7M.$H\$DL3.MM."
^XMB(3.9,22,2,3257,0)="""DATA"",396.18,215,3,79,0)"
^XMB(3.9,22,2,3258,0)="MW'KN5Y25]%I4EE4LQDWYCBSO0^SK-)#>-.W,\*JF*JO(F\#JW[WSNF3.UPSI"
^XMB(3.9,22,2,3259,0)="""DATA"",396.18,215,3,80,0)"
^XMB(3.9,22,2,3260,0)="MM&DN2##.QG+O)]<Q*)K?8L;S[:'=S]Q,T6>W'XLDZ]P@=063X?B6?,8Y6HQ*"
^XMB(3.9,22,2,3261,0)="""DATA"",396.18,215,3,81,0)"
^XMB(3.9,22,2,3262,0)="M=TT75%31F/*T([$NQZT!C""^1VI6E+)J$/)GQZ\AJDN=K)J1R'1T*XT;9QXUH"
^XMB(3.9,22,2,3263,0)="""DATA"",396.18,215,3,82,0)"
^XMB(3.9,22,2,3264,0)="MN&8&B1M#_=N,HF0STK\FW.ZK(;W=4BD;RVB<H:1G\])VVR8?\P:RXAF/3#C["
^XMB(3.9,22,2,3265,0)="""DATA"",396.18,215,3,83,0)"
^XMB(3.9,22,2,3266,0)="M9GSAR!N1I:]2;I#X-]P__THR__XL$3#Z#W5H4(AG].]9L95=,AJ'#`7QP$2K"
^XMB(3.9,22,2,3267,0)="""DATA"",396.18,215,3,84,0)"
^XMB(3.9,22,2,3268,0)="MQ>/<2/^(<&[^7:(/3(KQLM.C@`F/#FFH>""E.K:V#S%BX&,[Z8I+O!L7P/@GP"
^XMB(3.9,22,2,3269,0)="""DATA"",396.18,215,3,85,0)"
^XMB(3.9,22,2,3270,0)="M_"""")X9'H>F+1Y[W3B@A""7_,POR)A7KBU@N+Q%<-V=<VXL&'4,,CA$FIGSHC7"
^XMB(3.9,22,2,3271,0)="""DATA"",396.18,215,3,86,0)"
^XMB(3.9,22,2,3272,0)="MUDP+*Q`W&8KT[N2&A70%LF`>Z68.+6G8R9RD<Z.DM[&%R0FY&LTG8U</Q_NH"
^XMB(3.9,22,2,3273,0)="""DATA"",396.18,215,3,87,0)"
^XMB(3.9,22,2,3274,0)="M'D823?:%8=*B2PH[=VLT.T0.)&?2D#MG#I%4,3.QB""S0M%UDUUP=69DQJ2>9"
^XMB(3.9,22,2,3275,0)="""DATA"",396.18,215,3,88,0)"
^XMB(3.9,22,2,3276,0)="M&5WW1B@R0UO8`)\:-OO?#W$.]T&<,!62,^#TQY,!FLBJGQTD#8HL:<W(E611"
^XMB(3.9,22,2,3277,0)="""DATA"",396.18,215,3,89,0)"
^XMB(3.9,22,2,3278,0)="MTGHA=5>5M`Z%CU`4N-'\8Q9Z'>FGC[YIMVL-#1'5O8/[Z(7""G-R:3%W@*>IN"
^XMB(3.9,22,2,3279,0)="""DATA"",396.18,215,3,90,0)"
^XMB(3.9,22,2,3280,0)="M,/L_[27FHMO*XZ,>R7^AF/5M\3S?P@VI8`2W:((#[%5=$..:O+WZ&6&E/AU2"
^XMB(3.9,22,2,3281,0)="""DATA"",396.18,215,3,91,0)"
^XMB(3.9,22,2,3282,0)="MC7D@N,4-5]W!I&S2<Q_N]%M)F5:A11]:*K%P`QLV;Z61(X;(4.UN:\_Z</BR"
^XMB(3.9,22,2,3283,0)="""DATA"",396.18,215,3,92,0)"
^XMB(3.9,22,2,3284,0)="MP.&G(W$PJS9F9PJJN(%V-=/JB8./W^E_%?M\-O)@.PBO-%?6[UXY'^/3[Q.6"
^XMB(3.9,22,2,3285,0)="""DATA"",396.18,215,3,93,0)"
^XMB(3.9,22,2,3286,0)="M\LV0O1[V]FH@77=KWA4(I)*%=9>0L6>921P)Y0P2DE8.F0I9,1RLZ]H.IK.E"
^XMB(3.9,22,2,3287,0)="""DATA"",396.18,215,3,94,0)"
^XMB(3.9,22,2,3288,0)="MX:OEY=4\L0HK_$ZPY$$<(^VV8,%'CW5!CU^/I+WM5FV'C,""RLPL6""*YK]ZX`"
^XMB(3.9,22,2,3289,0)="""DATA"",396.18,215,3,95,0)"
^XMB(3.9,22,2,3290,0)="M\VCGK]E>/R[V^E@R.+G_#3:>N-W0Z-17$Y/K(1R37`B!E""HXFCJ_,(&,G$GE"
^XMB(3.9,22,2,3291,0)="""DATA"",396.18,215,3,96,0)"
^XMB(3.9,22,2,3292,0)="M[6DRT8@4@C*HD:K9U+R3)6HZTII8I:.+MFNWV+&6*FE]D^E&,CWAK3BE(-^\"
^XMB(3.9,22,2,3293,0)="""DATA"",396.18,215,3,97,0)"
^XMB(3.9,22,2,3294,0)="MHRA>2M=<()N(.:UL=NZJ@!!9==FZY&Q,R[.WMD.VI<]IG&`[OJ''?B-\/MTY"
^XMB(3.9,22,2,3295,0)="""DATA"",396.18,215,3,98,0)"
^XMB(3.9,22,2,3296,0)="M1.E7209LR@<]+S^3+\9K/U4\EEYC+)VOTG,9<7*5(]W+CKSGJU/(/Y'L?\CN"
^XMB(3.9,22,2,3297,0)="""DATA"",396.18,215,3,99,0)"
^XMB(3.9,22,2,3298,0)="M>(^""XT'2W1M*NKF21+G4$WQ[-81NV7@IW@2KH2CSU.W<CHI>R>^:GN1,_HN0"
^XMB(3.9,22,2,3299,0)="""DATA"",396.18,215,3,100,0)"
^XMB(3.9,22,2,3300,0)="M4&XF.V@5O3ZY59:Y]<-18IZ;B\6N(YQ=:_X<MK\9^C!FY7S,NA'%K'QVP,J1"
^XMB(3.9,22,2,3301,0)="""DATA"",396.18,215,3,101,0)"
^XMB(3.9,22,2,3302,0)="M?3)K1C9*/Y>(Y-9,O*H#Y]93$`T12QN/8X?"".>8/S'XU$<6RW.R`U2PC*LB^"
^XMB(3.9,22,2,3303,0)="""DATA"",396.18,215,3,102,0)"
^XMB(3.9,22,2,3304,0)="MR,$S*U\-*?7-Y$I=2L@3W4K(71LM761F5I:9/XV4F7R\2M6)#2_^7.`QX>TH"
^XMB(3.9,22,2,3305,0)="""DATA"",396.18,215,3,103,0)"
^XMB(3.9,22,2,3306,0)="ME?)Q4""$V[T2*33X_X*72+ER;D[GV[]&:'J_2?6I>BN5OC6]=""B/^>/^_H]5]"
^XMB(3.9,22,2,3307,0)="""DATA"",396.18,215,3,104,0)"
^XMB(3.9,22,2,3308,0)="MH$K<,>+&G,RXL\E`85AF7#Y>B^)J(#5:$JE1[-FE,/[Y'&SZ\62`?V<EV`?J"
^XMB(3.9,22,2,3309,0)="""DATA"",396.18,215,3,105,0)"
^XMB(3.9,22,2,3310,0)="MV&.78GC>A_`/!1%6)$,S4!W.\4C_5/#Y)SW2/W6;#Y@\*&?C""U@W]Y3Y74RN"
^XMB(3.9,22,2,3311,0)="""DATA"",396.18,215,3,106,0)"
^XMB(3.9,22,2,3312,0)="M9\L,BP?C\U43/`1_VJ6YZ8,H_7KB($CI?TQ(K""@,``>.=D_0N(D8ZYF@A8Z%"
^XMB(3.9,22,2,3313,0)="""DATA"",396.18,215,3,107,0)"
^XMB(3.9,22,2,3314,0)="M'+O5HU""%LG0""PCL-A+P2[IMW0PEW*+P(*2:V7O9/):XF@R7<*5'""G:^J)H3"""
^XMB(3.9,22,2,3315,0)="""DATA"",396.18,215,3,108,0)"
^XMB(3.9,22,2,3316,0)="M3]`[""LEE$1CL,[F?8-X[;M+^_M=S?2=IQ,5NERF6CW#)R@7K2Z,K!BW+=)U2"
^XMB(3.9,22,2,3317,0)="""DATA"",396.18,215,3,109,0)"
^XMB(3.9,22,2,3318,0)="M+(C)LV\QBIV+.$W46:O/`;J""&#I;IFNO\[670@IU""^8>UI4*.1C;[80CGRX3"
^XMB(3.9,22,2,3319,0)="""DATA"",396.18,215,3,110,0)"
^XMB(3.9,22,2,3320,0)="MD(K5;H:<VI)7ZQ?60E9>/OWGB8-79W6&U\Z3>VL56WN)'=/4S9IWE&*7G!X"""
^XMB(3.9,22,2,3321,0)="""DATA"",396.18,215,3,111,0)"
^XMB(3.9,22,2,3322,0)="MV8$=#0WU?05'0=Q6]G)21B[]^;""S4:P*V3D,14])(9>TT=CE*)>Z;9+W;;(?"
^XMB(3.9,22,2,3323,0)="""DATA"",396.18,215,3,112,0)"
^XMB(3.9,22,2,3324,0)="M,0-8""4..S%KU9/F<;X]S@7GNSB;WKTIKDZMR.^<HNB%0D!=/_T_P@I6P4O,J"
^XMB(3.9,22,2,3325,0)="""DATA"",396.18,215,3,113,0)"
^XMB(3.9,22,2,3326,0)="M9""X6"":,J+1UC0Z9<3Z'@DR@+=+\I8<,_&JRN?F23G.-3Z;RD9M10""]7$537G"
^XMB(3.9,22,2,3327,0)="""DATA"",396.18,215,3,114,0)"
^XMB(3.9,22,2,3328,0)="MR7VQFD7OZ<.JQ2X&5A7'F^-DE<U&V]9J&C(N]3[WS$\8IO^9R>K#(J+YI9`+"
^XMB(3.9,22,2,3329,0)="""DATA"",396.18,215,3,115,0)"
^XMB(3.9,22,2,3330,0)="M6RYMFZ1N:[CDT#.=YD3M,""@U<J</@);+7VB""Y6DH+8K0I1@RS$W)SS#N7$@>"
^XMB(3.9,22,2,3331,0)="""DATA"",396.18,215,3,116,0)"
^XMB(3.9,22,2,3332,0)="M[#)U-""BW:!KL'IC`)3$R6*00W=)L4Y5F3WN#,>-3Y!L""C$K()+>_H'^IVZ$0"
^XMB(3.9,22,2,3333,0)="""DATA"",396.18,215,3,117,0)"
^XMB(3.9,22,2,3334,0)="M<1'4G*\7W''E[_=6'#L7YLOON:6C*.*>CD\G>F[+;VCL['COK0^5^FQV*6I^"
^XMB(3.9,22,2,3335,0)="""DATA"",396.18,215,3,118,0)"
^XMB(3.9,22,2,3336,0)="MJ9SM]PA1YVR<9K.1@8-#</+5C46?*>X!0V[`ZK41E)^5*?]\Y.18(>XX;]3,"
^XMB(3.9,22,2,3337,0)="""DATA"",396.18,215,3,119,0)"
^XMB(3.9,22,2,3338,0)="M(8]4!;V#.[]?VKDX8""77,'Q]?K!S;=I;8=-1Y8$J6([T6WD2%R;P*>>/14VV"
^XMB(3.9,22,2,3339,0)="""DATA"",396.18,215,3,120,0)"
^XMB(3.9,22,2,3340,0)="ME>/5F(^OV&PLN^7J-EAQWUAVG-FVOLMHXL:=)_O`I1RO&;6)]!8!F&(4N^S9"
^XMB(3.9,22,2,3341,0)="""DATA"",396.18,215,3,121,0)"
^XMB(3.9,22,2,3342,0)="M)_@Y""7R(^:+@GXE7NYU\F@>D5VE`&@^!PWTCD/<-W7U.8/""SH1@4XI7#_!B0"
^XMB(3.9,22,2,3343,0)="""DATA"",396.18,215,3,122,0)"
^XMB(3.9,22,2,3344,0)="MOO,65MT:""1AN4:Y&^\:K+#/F*]%HE6*A]4#%;;%?82#AW[;ELF,,""UAW;A&K"
^XMB(3.9,22,2,3345,0)="""DATA"",396.18,215,3,123,0)"
^XMB(3.9,22,2,3346,0)="M(WUCQ0.D3R;]W'HM%*UXQ<O3&^36&*(O_DSHMDZWBA,W/,+[>G!>41H0GRD."
^XMB(3.9,22,2,3347,0)="""DATA"",396.18,215,3,124,0)"
^XMB(3.9,22,2,3348,0)="M6$$O#.&B+ZEZ/N""OSD@.NC289P&ZR.J<K(')9)1I+,4S[2=HX8=6>JZX9!35"
^XMB(3.9,22,2,3349,0)="""DATA"",396.18,215,3,125,0)"
^XMB(3.9,22,2,3350,0)="MV(EG'B?#>57R\:H4X-5I23:S`\""K0WTWLW(^+Q#-K'),N\+[UBR7I\=-:3(?"
^XMB(3.9,22,2,3351,0)="""DATA"",396.18,215,3,126,0)"
^XMB(3.9,22,2,3352,0)="MCV-'PSE6]H6#8\F(>R!+Y8%JB!SKFW=YGT\0KJYS\X^L9_%8-S)O0S:/8P9/"
^XMB(3.9,22,2,3353,0)="""DATA"",396.18,215,3,127,0)"
^XMB(3.9,22,2,3354,0)="M$WU#7I`M1""4H=!+S2C.W_2+(X^$BY:]!K`>GQV6+/5`C1R?""$9[UZ=!3D3I4"
^XMB(3.9,22,2,3355,0)="""DATA"",396.18,215,3,128,0)"
^XMB(3.9,22,2,3356,0)="M&JB4ZF0XPG,^#N\+A+>2!R^N($:C.`!XGHKH*8F+%H=]OXSS#:^G](6[H:>4"
^XMB(3.9,22,2,3357,0)="""DATA"",396.18,215,3,129,0)"
^XMB(3.9,22,2,3358,0)="MZ3)+S4WC6-+74_I*R+&`^T1/:8T-RY+Q<.R0GPJ[TRZ[$/,+)^2[*=)OIP*_"
^XMB(3.9,22,2,3359,0)="""DATA"",396.18,215,3,130,0)"
^XMB(3.9,22,2,3360,0)="MWW7DJ\E$@DT.\PG@FH?4%""W8/CVO5+&!ZYI#,GZK9=K>5:60TAAZ6]RDAJJ:"
^XMB(3.9,22,2,3361,0)="""DATA"",396.18,215,3,131,0)"
^XMB(3.9,22,2,3362,0)="MZ%:0I^(8'[S;1`;:P=)*2@NU:4F6E*7)P#+L0RJUYAZY=-XFM]+#E^'!%(T%"
^XMB(3.9,22,2,3363,0)="""DATA"",396.18,215,3,132,0)"
^XMB(3.9,22,2,3364,0)="M#)/=WF:T^469MEN]@6O.M&`$N=Z]'ZC)4#2Y=QXY,HA3\-$:XG?*:\8-EQWN"
^XMB(3.9,22,2,3365,0)="""DATA"",396.18,215,3,133,0)"
^XMB(3.9,22,2,3366,0)="M54&LD4UN0;<I!*1N33(?VBD!A%C!/Q(?'R[3R@JY85/E5[S:-IEQ)K]\9M&O"
^XMB(3.9,22,2,3367,0)="""DATA"",396.18,215,3,134,0)"
^XMB(3.9,22,2,3368,0)="M-=%->D>IHN,=,HA-8/.FJ1&]KTY&$L(C`([<:$?ON""/HU$'_S3VR""/UY0C)0"
^XMB(3.9,22,2,3369,0)="""DATA"",396.18,215,3,135,0)"
^XMB(3.9,22,2,3370,0)="M<K%7.;TD#O`[U,Y]3>1:_QG2<BENLCU;EDE^THV.>P,8Y^U'""7`V2WB5-I@O"
^XMB(3.9,22,2,3371,0)="""DATA"",396.18,215,3,136,0)"
^XMB(3.9,22,2,3372,0)="M,M9=8S,M/8\R%.7]ET41_+F0!B7?'N^W=/+K!'L-N;_3I4O/?WHI762.Z\<"""
^XMB(3.9,22,2,3373,0)="""DATA"",396.18,215,3,137,0)"
^XMB(3.9,22,2,3374,0)="M17:EZQSUR&V9H^;C5""F%:N*SG+Q+GALYQW^F:&ZN&*\,]^22B6V?IMTTS#VF"
^XMB(3.9,22,2,3375,0)="""DATA"",396.18,215,3,138,0)"
^XMB(3.9,22,2,3376,0)="MB4W3-1PBJ""""+3S!!],GIQ;A3UWWBZI^8C$(VYN5VCP>0;5DN^8$L,#\-,!&@"
^XMB(3.9,22,2,3377,0)="""DATA"",396.18,215,3,139,0)"
^XMB(3.9,22,2,3378,0)="MED(%+\8=4NX3MX+$Q_0G$U&,C#<0___D76N,'%=6[H>G/9[Q*_8X?L5)^1$["
^XMB(3.9,22,2,3379,0)="""DATA"",396.18,215,3,140,0)"
^XMB(3.9,22,2,3380,0)="M]MI.=W7URUG%F8SMV,%)AO%DDP"")J.FNF:FDNZM3U>5X(A*T1)ML-HB-5H3'"
^XMB(3.9,22,2,3381,0)="""DATA"",396.18,215,3,141,0)"
^XMB(3.9,22,2,3382,0)="MB@3!:@5DE]T?BQ!D%4!L$""01@2`VFQ\@6+0""%H%`RR(A""();5?=6W]-UZU95"
^XMB(3.9,22,2,3383,0)="""DATA"",396.18,215,3,142,0)"
^XMB(3.9,22,2,3384,0)="M=XVWJ_D3:<:3<^\Y=>]YW7.^<T?0AS3H+VD_WB&ND;)M1N0U=#4Y@<C`=3Q\"
^XMB(3.9,22,2,3385,0)="""DATA"",396.18,215,3,143,0)"
^XMB(3.9,22,2,3386,0)="M9J.5DU>\'Q+I/VM>1.]+(A:5-3QK92!&0U=B8S0&W&3A0D8^[_)YO,=GM.S#"
^XMB(3.9,22,2,3387,0)="""DATA"",396.18,215,3,144,0)"
^XMB(3.9,22,2,3388,0)="M?><T2Q.BBV>#,@*.K=8:ABTA@K`05^5V775:\V15-P:LXJ;?W'!2$*O9?R*<"
^XMB(3.9,22,2,3389,0)="""DATA"",396.18,215,3,145,0)"
^XMB(3.9,22,2,3390,0)="M?I#V`+7D*\EJ=YU@5Q_7:'[=L/&#_A-L\5NLCF7Q,8&O<P[WWK3G<)_N:>-H"
^XMB(3.9,22,2,3391,0)="""DATA"",396.18,215,3,146,0)"
^XMB(3.9,22,2,3392,0)="M(?^]?8=;%JYH]GE%SL83=)^7Y3DI=?23A?6+?`3=K@""Q6L6TCMI&I,Y$?7'Q"
^XMB(3.9,22,2,3393,0)="""DATA"",396.18,215,3,147,0)"
^XMB(3.9,22,2,3394,0)="M[VS&69ZO.`]>AS&WQUVTOD^-0PRSD>E$2>11OVCS/H5Y?XL1PNPC(<P%#;FT"
^XMB(3.9,22,2,3395,0)="""DATA"",396.18,215,3,148,0)"
^XMB(3.9,22,2,3396,0)="M`'%YQ&(8B;R7'[7/[S\3E?4W#+BQ^CQV2=UR)LMZ(!=:5IL.]CT!YL=HUH8S"
^XMB(3.9,22,2,3397,0)="""DATA"",396.18,215,3,149,0)"
^XMB(3.9,22,2,3398,0)="M:7O9$@)KP((=0[0LI`=,Y/3QT!4J$M$]SL;?B!&R3B)=@0[I/+G3?\;PUD]="
^XMB(3.9,22,2,3399,0)="""DATA"",396.18,215,3,150,0)"
^XMB(3.9,22,2,3400,0)="M(E&!%;NX]3ARW2I6<J8MH]^N*&VU:X%F1L!@(_RUX/QCUZ4^Y.M2!XWYY()8"
^XMB(3.9,22,2,3401,0)="""DATA"",396.18,215,3,151,0)"
^XMB(3.9,22,2,3402,0)="M%""G6,[>0'(5;6OQ*K[08!161L""L./6""'D];Y4/""P:C(PP9J69@5ON1.<O[%&"
^XMB(3.9,22,2,3403,0)="""DATA"",396.18,215,3,152,0)"
^XMB(3.9,22,2,3404,0)="MK,EMU9Y4;J=$%]05M6'AXDY<Z<A&*[=[3M4M%`Q[Y`>**[NFOF1UCEI@TNBD"
^XMB(3.9,22,2,3405,0)="""DATA"",396.18,215,3,153,0)"
^XMB(3.9,22,2,3406,0)="MV1""ZDU>>4NS1%+G<G-4A8.2F%GO`P]LOXRD.1A?=FY7NZL!X&:G!\#*D""GWR"
^XMB(3.9,22,2,3407,0)="""DATA"",396.18,215,3,154,0)"
^XMB(3.9,22,2,3408,0)="M_B35+W\Z`9@O)Q\V30+:9S+-Y3=I`V8Y14H%FNT[O6Q354KY2F1H]ZDY5^7D"
^XMB(3.9,22,2,3409,0)="""DATA"",396.18,215,3,155,0)"
^XMB(3.9,22,2,3410,0)="M)F>Q*LIMN%OKKJ9XQAT').\[QOUD?SR2?3LUBE/,AS+UD^Q\""7D/V0M,_0[&"
^XMB(3.9,22,2,3411,0)="""DATA"",396.18,215,3,156,0)"
^XMB(3.9,22,2,3412,0)="M()B3[`%,PBD!(O/$@=;['W$G,#%2/LY(WX;9+*8]""<S<GQ;.""+-]Z3)KY.CY"
^XMB(3.9,22,2,3413,0)="""DATA"",396.18,215,3,157,0)"
^XMB(3.9,22,2,3414,0)="M1<-&PK^FZ'7T_06G[G\%:>HU""WC`*=I%=M""R]'5T22Q%7H>""<:VFX>0A+8@#"
^XMB(3.9,22,2,3415,0)="""DATA"",396.18,215,3,158,0)"
^XMB(3.9,22,2,3416,0)="M9ZQC;Y$K'H+JLG?1NMRV4H@`\,!V,6S$J*9@#11`RYP6`O-UI""]_$K1/[T]["
^XMB(3.9,22,2,3417,0)="""DATA"",396.18,215,3,159,0)"
^XMB(3.9,22,2,3418,0)="MG:+'17M8E3MTBC9;<C^K;K(3;0J%WP#^@3F6ZBGDZANKBM*]S3A^FN4T]!6["
^XMB(3.9,22,2,3419,0)="""DATA"",396.18,215,3,160,0)"
^XMB(3.9,22,2,3420,0)="MXN^IVWKE%<_,H(/K,#,(WY0<>-3XQ_%JE-G$/B6X8B[[40IT""?TK%^O(;+:T"
^XMB(3.9,22,2,3421,0)="""DATA"",396.18,215,3,161,0)"
^XMB(3.9,22,2,3422,0)="MMA6IS8YP6%`BU73VV.G,GB&:8TJDKNTGTH#622^M37:=((]4B49J<4G%`5--"
^XMB(3.9,22,2,3423,0)="""DATA"",396.18,215,3,162,0)"
^XMB(3.9,22,2,3424,0)="MZL3%S#""D>:XUAH_""(CWJ&0^[T+/YA6*TT1RX/'G[//I3TYI%59>OREVSY?X&"
^XMB(3.9,22,2,3425,0)="""DATA"",396.18,215,3,163,0)"
^XMB(3.9,22,2,3426,0)="MV2)+:Z/?W'BIC0>K""+.GYH5SJFP/2<[M7]1ET]*Y=6%NU7I0>0BYQP)RG!&!"
^XMB(3.9,22,2,3427,0)="""DATA"",396.18,215,3,164,0)"
^XMB(3.9,22,2,3428,0)="MW.[%54V7ZUJG*1O=-:'G3J^G>\P-4_+@3!WS%-_1PBP-),P;Y^6ZTI*?0$KY"
^XMB(3.9,22,2,3429,0)="""DATA"",396.18,215,3,165,0)"
^XMB(3.9,22,2,3430,0)="M4@LQWG9:/'+[KI@=)(NF?%5UE/HLTO<:.K:K@XLC,UBT0/J=WDT!*?PR4PI2"
^XMB(3.9,22,2,3431,0)="""DATA"",396.18,215,3,166,0)"
^XMB(3.9,22,2,3432,0)="M\J,%TGI5R(3@MYRP$GL?BXY9_D/GD>#Y='_#WDT#OZSYY!T(,-CYX!6W0I\W"
^XMB(3.9,22,2,3433,0)="""DATA"",396.18,215,3,167,0)"
^XMB(3.9,22,2,3434,0)="MRB0N.W=*14;D9S*K[@90A/XC;@BR,=VS/)?/7U@4YBZ>O[(8A$I8JF(O9<HF"
^XMB(3.9,22,2,3435,0)="""DATA"",396.18,215,3,168,0)"
^XMB(3.9,22,2,3436,0)="MNP6S=(;10SE+M0#ZF0J)(M:;?""<QC.,\\E!-P_""G5<O3M-Z.<_!""%5<3O9D"""
^XMB(3.9,22,2,3437,0)="""DATA"",396.18,215,3,169,0)"
^XMB(3.9,22,2,3438,0)="M3,=""ND*3[HG@QQEMI'1_XCFSV;02+8'T:X#^%PG]9QA-EC1]>PBJKE@//`""B"
^XMB(3.9,22,2,3439,0)="""DATA"",396.18,215,3,170,0)"
^XMB(3.9,22,2,3440,0)="MD&M*""O31V.^Q)`U*IU0'LB2[W5EFPMU6N^(J;JK-;5Q8U=KU534WL2`W%2,W"
^XMB(3.9,22,2,3441,0)="""DATA"",396.18,215,3,171,0)"
^XMB(3.9,22,2,3442,0)="M^1!R]9^VDE,S\Q9N*PKB&\B8=U1G5FAN>KZIF%8Y^(*Y](,SO2)]8E_VUKU7"
^XMB(3.9,22,2,3443,0)="""DATA"",396.18,215,3,172,0)"
^XMB(3.9,22,2,3444,0)="M>P(3Q8$$-DG.26X+^*+7W;Z6:58_\`Z4.DFQ6DS^<Q[I#,8:@W\7QF!H`VY,"
^XMB(3.9,22,2,3445,0)="""DATA"",396.18,215,3,173,0)"
^XMB(3.9,22,2,3446,0)="MSOY>RN\L4WFXQ,&DL1@N`;WZ-3[#B6H*W9#BNA45$""]P_8KIA4OW7/0X%A-L"
^XMB(3.9,22,2,3447,0)="""DATA"",396.18,215,3,174,0)"
^XMB(3.9,22,2,3448,0)="M#(G\4'[%5MCU'Z.]!I3Q<)(!'19`JEJ,V_)#\J5X#3_+NQ!+I3A\+IZ-+!3Y"
^XMB(3.9,22,2,3449,0)="""DATA"",396.18,215,3,175,0)"
^XMB(3.9,22,2,3450,0)="M/H7LSA^ME:7_)SZ%MUI&K(4U-TA,Q>2;&X+Q'$+[(H:K""=.^K/)^R/#+?(8K"
^XMB(3.9,22,2,3451,0)="""DATA"",396.18,215,3,176,0)"
^XMB(3.9,22,2,3452,0)="MB;>OHAC:8:S6*DFK_^(&!;6P00'ZT+7D!`5^\VU%.O'&S9$P8<ER`\.28=/5"
^XMB(3.9,22,2,3453,0)="""DATA"",396.18,215,3,177,0)"
^XMB(3.9,22,2,3454,0)="ML35F#8OYJ/O:LF4<7ENF?$""1<*""^!MYD3S%0R8Z1QY:+2DNMVX^*E]=:G54["
^XMB(3.9,22,2,3455,0)="""DATA"",396.18,215,3,178,0)"
^XMB(3.9,22,2,3456,0)="MNSU2@&1]'.+0^H!]JEXCCLF##,<$^R.""@?CJ:BWC^G\O/QZ*]""O';?YC!::I"
^XMB(3.9,22,2,3457,0)="""DATA"",396.18,215,3,179,0)"
^XMB(3.9,22,2,3458,0)="M#^&3!B(#F-YR'`39,\*L1^UFVAMT(+""$IO7-K9F&P4,W""9""'LU+V\S'FX8JB"
^XMB(3.9,22,2,3459,0)="""DATA"",396.18,215,3,180,0)"
^XMB(3.9,22,2,3460,0)="M!+CXF""=KW:,MT%PH[::L6]X:FP^??#$VN=]R&/F0,++@?0+VP!T-4S>&Q[[@"
^XMB(3.9,22,2,3461,0)="""DATA"",396.18,215,3,181,0)"
^XMB(3.9,22,2,3462,0)="MSU[%/+[JUHU]FJX;JPXP\VCF/$,<N1V+GD^=VWQ1Z<CH3E@-/FNYS5:+<YO\"
^XMB(3.9,22,2,3463,0)="""DATA"",396.18,215,3,182,0)"
^XMB(3.9,22,2,3464,0)="MM.V*NN*,8T7:M*7*N7WN+Y!8%:MHT3D][?H:'D.?F[9`)DSL+E_G>C`1GLM?"
^XMB(3.9,22,2,3465,0)="""DATA"",396.18,215,3,183,0)"
^XMB(3.9,22,2,3466,0)="M)X;U/E?K':92,H4QR%#DP67I>/@]1O&;3UA!&.L#0Q57X_&;N*D*_D4C!;IH"
^XMB(3.9,22,2,3467,0)="""DATA"",396.18,215,3,184,0)"
^XMB(3.9,22,2,3468,0)="M)$MF1+ENS)?&P8V9]IGOC*_T&2<5E<$*^C&O&S/MEI:M*:-6'T+NZ9=3]""?,"
^XMB(3.9,22,2,3469,0)="""DATA"",396.18,215,3,185,0)"
^XMB(3.9,22,2,3470,0)="M[/;:-/OO1JWPC;R<[\F`[=_BW?[$@O6+D=L_]A0/V=O?CB_09UDSPA<4N4Y<"
^XMB(3.9,22,2,3471,0)="""DATA"",396.18,215,3,186,0)"
^XMB(3.9,22,2,3472,0)="MBH[9L4KUNYK0M/[,*;>KU[66UK#-6V!=''XAP.LVL-@JC(GVGU`-T^ZR4IJ^"
^XMB(3.9,22,2,3473,0)="""DATA"",396.18,215,3,187,0)"
^XMB(3.9,22,2,3474,0)="M@[P(,*A-+?LZ\57RC,J@<ZI17[7LOQ^I$DWJ>X24S$A+6A,2Y5.:4[S1,HUZ"
^XMB(3.9,22,2,3475,0)="""DATA"",396.18,215,3,188,0)"
^XMB(3.9,22,2,3476,0)="M4_';(""XSP>S>A8G>X<^N7#>1.^OK$/B)E;Q!.KM_(<7QFB_+R/EL\9ZG)?IL"
^XMB(3.9,22,2,3477,0)="""DATA"",396.18,215,3,189,0)"
^XMB(3.9,22,2,3478,0)="M9-\CQ.YD)*7GM/;C9MNJMY?]!""O17SR[FT2ZA[W4<A?,=L/T%665IG,F[0^1"
^XMB(3.9,22,2,3479,0)="""DATA"",396.18,215,3,190,0)"
^XMB(3.9,22,2,3480,0)="M?,-EM>',LE+6E""5=>\J79(TF^6C:/_N^9=;*:@N&TE:;JA\Y,N#HG12D=YN7"
^XMB(3.9,22,2,3481,0)="""DATA"",396.18,215,3,191,0)"
^XMB(3.9,22,2,3482,0)="MWN2<W)5U=*_\2('O^1RA]!`GD`N8AT9@Z)W-$:R!:/%)X.TN26""1NP99)/+9"
^XMB(3.9,22,2,3483,0)="""DATA"",396.18,215,3,192,0)"
^XMB(3.9,22,2,3484,0)="MQ]EXLF@CQC(%,E,'?]$7XJRN((-7,&U7>?THHZ7>I=T@6BR0>A50?R_6G=<`"
^XMB(3.9,22,2,3485,0)="""DATA"",396.18,215,3,193,0)"
^XMB(3.9,22,2,3486,0)="M[>_%2;L,[Y""K+F*A70""TS\1)FZ`N_W3Z>AM4?(RDS#K>:S*3%7.W?G:,3$C%"
^XMB(3.9,22,2,3487,0)="""DATA"",396.18,215,3,194,0)"
^XMB(3.9,22,2,3488,0)="MW%P?!4*&56/NAG5*\!AGPD.<^D@""IVQH.X^/3BD3OW8CX+YXIT.Y9@1HTA%H"
^XMB(3.9,22,2,3489,0)="""DATA"",396.18,215,3,195,0)"
^XMB(3.9,22,2,3490,0)="MW)JR#+[^T.X.`1[$0HU5\9;AYX_+22T#%1*S/@>:8PCWCR!]8;G&:AC(+""V\"
^XMB(3.9,22,2,3491,0)="""DATA"",396.18,215,3,196,0)"
^XMB(3.9,22,2,3492,0)="MR5A\2S+?"">\W5F-3@9=K:,>U`B_88T,XKJ0%$).*[+E>694[""GGCMW_`>]/`"
^XMB(3.9,22,2,3493,0)="""DATA"",396.18,215,3,197,0)"
^XMB(3.9,22,2,3494,0)="M)(O,!I+I>20]?;=N&JM]T;-?>IN\""#SKB.XS9'^:UT[WET-_;+!R:.)#_G<J"
^XMB(3.9,22,2,3495,0)="""DATA"",396.18,215,3,198,0)"
^XMB(3.9,22,2,3496,0)="M<$7F4]^)@6<(B'3$E#G!0;*7RH6H,P1X2/9YX,0%K""R.S>0`D0XGW>$Q3*YK"
^XMB(3.9,22,2,3497,0)="""DATA"",396.18,215,3,199,0)"
^XMB(3.9,22,2,3498,0)="MY8$G!_BO7P3)!H,WN2#O-S-B0__Z6^_1-<-HK@EAOCMPL`-V4$A^N2O!)'PG"
^XMB(3.9,22,2,3499,0)="""DATA"",396.18,215,3,200,0)"
^XMB(3.9,22,2,3500,0)="M%>*+)ZTZA7/.0'+BE12/[:K?Q-7<0(H%)#&""EBXG#""^((W&0D?L=+ML5OZ$D"
^XMB(3.9,22,2,3501,0)="""DATA"",396.18,215,3,201,0)"
^XMB(3.9,22,2,3502,0)="M_DCO;%F#7$[0HE+""!HQR9`WRE7_%9;M<\Y'UE&\1TJ6VA4]BH2G<)QL&_[2#"
^XMB(3.9,22,2,3503,0)="""DATA"",396.18,215,3,202,0)"
^XMB(3.9,22,2,3504,0)="MQ%;`5I)5#3;-_0(@JY].<]FN^'R!S<,84O`6<(2[@6HAZDCIZ06EJ_8U?+*_"
^XMB(3.9,22,2,3505,0)="""DATA"",396.18,215,3,203,0)"
^XMB(3.9,22,2,3506,0)="M/\P^!@BB.C834TG7C""/^BWSQ^]W`[0/9%YB3Y7WY:DU*E'W9QI5XA99XDROQ"
^XMB(3.9,22,2,3507,0)="""DATA"",396.18,215,3,204,0)"
^XMB(3.9,22,2,3508,0)="MLI]%WQ'1OL`,-?\SUPH)P_OGR!KR'2!L/_6V,Z*PP4O7R]XU;Z1D+24##IXC"
^XMB(3.9,22,2,3509,0)="""DATA"",396.18,215,3,205,0)"
^XMB(3.9,22,2,3510,0)="MXAI(Z/+C3[^1R[N&,""`22""@%!`9^&FSW,!LH@`WP(S$_AW'O,+$@Z0+'67#^"
^XMB(3.9,22,2,3511,0)="""DATA"",396.18,215,3,206,0)"
^XMB(3.9,22,2,3512,0)="M#A*5`]C'YE<$_/(_>:)L]1XVOR!G&'#'$M5[<R/W8L'4:X#V]LOR'.-H;\[:"
^XMB(3.9,22,2,3513,0)="""DATA"",396.18,215,3,207,0)"
^XMB(3.9,22,2,3514,0)="M,$T;L';59^W;!EL;OI($6&L_C7+K($Y9`::4`Y9.E""HYRA5Y""8@\(`P1?41^"
^XMB(3.9,22,2,3515,0)="""DATA"",396.18,215,3,208,0)"
^XMB(3.9,22,2,3516,0)="M>.@PI`#>,X/VD:A$P!&N_.%K&S_\JOHE5`\.=.3+0.0!D5^BJGH/<45>`2(/"
^XMB(3.9,22,2,3517,0)="""DATA"",396.18,215,3,209,0)"
^XMB(3.9,22,2,3518,0)="MR'CX'?E;XDB^%.""C:,!6$A6>""-Q/`!]L`])^?@;N0+3PI%`%P@Y8-%$PKC=S"
^XMB(3.9,22,2,3519,0)="""DATA"",396.18,215,3,210,0)"
^XMB(3.9,22,2,3520,0)="MA0T""E:!\MI]%WS^0B@&5-D%+)^KQXB9VHT0>,!P0`R=A?.=Q7H,$YO:WG*>I"
^XMB(3.9,22,2,3521,0)="""DATA"",396.18,215,3,211,0)"
^XMB(3.9,22,2,3522,0)="M6S&S!UR\BD?'H4-B,QN?H8:S'<=I'(SL.SR<_?N5^A,C#:A9Q(_JF1^RC^\?"
^XMB(3.9,22,2,3523,0)="""DATA"",396.18,215,3,212,0)"
^XMB(3.9,22,2,3524,0)="MI_PG,.VTKSV<&N!7#T&JGWX>9CQ[B*^'?>LA<A$'+^UACK\HX.[&S)S]L6[W"
^XMB(3.9,22,2,3525,0)="""DATA"",396.18,215,3,213,0)"
^XMB(3.9,22,2,3526,0)="MW,H3O5M9B#9ZZ2:WXT_3K=8^NQ0*>;NZIC;.#CM:R8^;$LW-@UQNHDW@GIE3"
^XMB(3.9,22,2,3527,0)="""DATA"",396.18,215,3,214,0)"
^XMB(3.9,22,2,3528,0)="M]*LV""G$/+_+LL(.%_+@HTUP\S>4BVDR2K7.RKG55""W3$5+MGAQT""Y;?_""K7_"
^XMB(3.9,22,2,3529,0)="""DATA"",396.18,215,3,215,0)"
^XMB(3.9,22,2,3530,0)="MWFAM-@-2)`9V.<VACYLK]G%:4):;YK6S4><>>;%,B,ZZU][R-\F67W.W/$MM"
^XMB(3.9,22,2,3531,0)="""DATA"",396.18,215,3,216,0)"
^XMB(3.9,22,2,3532,0)="MN9P,1`^VRB&=ON<""-0ZS'FIB4.@#4HKXBF,212SA1UR3:(Z#2=SB8Q*QEKT="
^XMB(3.9,22,2,3533,0)="""DATA"",396.18,215,3,217,0)"
^XMB(3.9,22,2,3534,0)="MF,3_8IC$@^[T3,WLKMJECHNKNB9WA0MX*,N(64:18*W/T!:$67'88PD=FQ53"
^XMB(3.9,22,2,3535,0)="""DATA"",396.18,215,3,218,0)"
^XMB(3.9,22,2,3536,0)="M&170`[&&`_[?3@$>8B@6%6L52CK(SF/2^QF-EO>8HX,#(=:JM$AZ&X\#48',"
^XMB(3.9,22,2,3537,0)="""DATA"",396.18,215,3,219,0)"
^XMB(3.9,22,2,3538,0)="M79V!8[87&*0?O(KTO'UDYN6FW!V9(U,DQ6=8/N_&*I\B?:/JF/*2E_(N^T5("
^XMB(3.9,22,2,3539,0)="""DATA"",396.18,215,3,220,0)"
^XMB(3.9,22,2,3540,0)="M:#CS79?C41`QRD@""UZH>IXAHI9/]7R+]@U[2&Q>UMJ$V1T@J0-GT]AY1+)Q"""
^XMB(3.9,22,2,3541,0)="""DATA"",396.18,215,3,221,0)"
^XMB(3.9,22,2,3542,0)="M6/IZ93[.RRSDRP,7'G/6%^GUG^2N+X8MQ)TZ;YURLZF91FYF45&0(5';PHJF"
^XMB(3.9,22,2,3543,0)="""DATA"",396.18,215,3,222,0)"
^XMB(3.9,22,2,3544,0)="M-00=N82J3OVVHZ&(`_\VS'[!6?HB-Q63E\)6[D816)G>P(?<#13R`U=T<C8`"
^XMB(3.9,22,2,3545,0)="""DATA"",396.18,215,3,223,0)"
^XMB(3.9,22,2,3546,0)="MC-1F;KX[7PU;X$@VD)M=,I0>T!?3_8::PGMF#U,;J""022A""P6P+L/LEEMYA("
^XMB(3.9,22,2,3547,0)="""DATA"",396.18,215,3,224,0)"
^XMB(3.9,22,2,3548,0)="M5!C`+M1XC!M&\UM*9&4ZX+<""^/V0RV^R4'\V,OF%OB)#?]#?MY:P6F6_QJ(2"
^XMB(3.9,22,2,3549,0)="""DATA"",396.18,215,3,225,0)"
^XMB(3.9,22,2,3550,0)="MG>+-WN$)I&_Q3=U-AVQE@H$[[N[//!RX'C-PGQHX<,>G^5<<974S_KA/NH'["
^XMB(3.9,22,2,3551,0)="""DATA"",396.18,215,3,226,0)"
^XMB(3.9,22,2,3552,0)="M7Z;&('#?R@Z#\*R([""<AJ+/J#=RWD,`=\6:.7)"".ATE@GPSCNV5JC,;E\[U!"
^XMB(3.9,22,2,3553,0)="""DATA"",396.18,215,3,227,0)"
^XMB(3.9,22,2,3554,0)="MKWZTL#K_S10@%D>T3`9'8-(:)OTT`S[:)2TO+]NORH)A""1Y@['$QGD':XB)>"
^XMB(3.9,22,2,3555,0)="""DATA"",396.18,215,3,228,0)"
^XMB(3.9,22,2,3556,0)="M:8VL]&!/8XGE@0!/Z<&D.^9-W6Q:PY[=QNC<Y)QNVG/O<A,7T)71KS-Z<TT$"
^XMB(3.9,22,2,3557,0)="""DATA"",396.18,215,3,229,0)"
^XMB(3.9,22,2,3558,0)="MHZ`)I/KKKLX^2$F@DDBD-L!N$;![#Y?=:L(\3#\31<I0^S!.7)-QP-=$90=&"
^XMB(3.9,22,2,3559,0)="""DATA"",396.18,215,3,230,0)"
^XMB(3.9,22,2,3560,0)="MN,5R?LW/6C3'(<V[S4=]X3OU'+06JUYKL=E]^41B'SEC@5V;KSEL2'$J>!QI"
^XMB(3.9,22,2,3561,0)="""DATA"",396.18,215,3,231,0)"
^XMB(3.9,22,2,3562,0)="M'K-/9(8X,4<8>`17E$[7;/FE)_-@BZTX,[8%FG3VSXGW_A(#\/7`K1:*C+9D"
^XMB(3.9,22,2,3563,0)="""DATA"",396.18,215,3,232,0)"
^XMB(3.9,22,2,3564,0)="M='43@\JT!46NKR)CU%`""5Q+!2BY@\&7O0MM<+N:UYEK'""""1=!*0SZ?BF49"")"
^XMB(3.9,22,2,3565,0)="""DATA"",396.18,215,3,233,0)"
^XMB(3.9,22,2,3566,0)="M\\>`Y$7&,(I%4U^R7`G_]^\^W-XSG-<H#]SM=#P/X+@2)W,+?=:IT*5*A6K5"
^XMB(3.9,22,2,3567,0)="""DATA"",396.18,215,3,234,0)"
^XMB(3.9,22,2,3568,0)="M2&^5V^^7#;DI7+6FVRXAZ\]YINS+U8""G;T[:!M<D'+&%-T.$]Y.,K(TH1<W:"
^XMB(3.9,22,2,3569,0)="""DATA"",396.18,215,3,235,0)"
^XMB(3.9,22,2,3570,0)="M3)Y3KEHS;!N]O$W8Y]\"")5'W5&<_YXI4I/85[?UZHW/ZHSWX;@B_<Y'>.;GY"
^XMB(3.9,22,2,3571,0)="""DATA"",396.18,215,3,236,0)"
^XMB(3.9,22,2,3572,0)="M/:>0WG@^TL8W/]#3$=%VGV-Y,P1V""JN_>SV8U'3&L);X?!D9A8?9?8;';C&?"
^XMB(3.9,22,2,3573,0)="""DATA"",396.18,215,3,237,0)"
^XMB(3.9,22,2,3574,0)="M^'P9B8*P\OYJBL=O0@>7`=\<&//LW_+Y'8-\&?0PB.+VX;<T)ODR;*P>""+3T"
^XMB(3.9,22,2,3575,0)="""DATA"",396.18,215,3,238,0)"
^XMB(3.9,22,2,3576,0)="M`Z6O_*TD&=%YC-8=F2>]HJZ5I,BP,'=K*RM4_X9_$JU`#_X@8];?=Z.BWQB1"
^XMB(3.9,22,2,3577,0)="""DATA"",396.18,215,3,239,0)"
^XMB(3.9,22,2,3578,0)="MJ.C[PT1%V]F^*!Y?EGW#T=[;^O'C6(C9LCYJ05$%1RX_9C-Q$#.QS\M$'(#9"
^XMB(3.9,22,2,3579,0)="""DATA"",396.18,215,3,240,0)"
^XMB(3.9,22,2,3580,0)="M\>\>6]""/I\'V;_5N/Q;`[/A#4GQ_!'O[=^#MF]Z@8\^\VFX[%2/*M:ZBMY$'"
^XMB(3.9,22,2,3581,0)="""DATA"",396.18,215,3,241,0)"
^XMB(3.9,22,2,3582,0)="M7I?1?]F$)?)9!0C""R""BVN&%QK=61VVI=:""FM)1W=:A^2.#^*2?Y%JE_65&W"""
^XMB(3.9,22,2,3583,0)="""DATA"",396.18,215,3,242,0)"
^XMB(3.9,22,2,3584,0)="M1<4:[+[B1PCL[>;TX"""".$O&@A'0,M&J`UA`,$L,OI..3/C&N#LTXCPJ.J?$9"
^XMB(3.9,22,2,3585,0)="""DATA"",396.18,215,3,243,0)"
^XMB(3.9,22,2,3586,0)="ME/LU`(4Y;YN#@!!=(C6!!VW>OYP:FEZ)IO>?P],KT_3.IX>F5P$?9GCYP2,="
^XMB(3.9,22,2,3587,0)="""DATA"",396.18,215,3,244,0)"
^XMB(3.9,22,2,3588,0)="M@P#AN1Z:XU(>'N^(G\2+Q8C?HO[>L:-G,;4L\2&.!V$Q]GEDI,/RWQTW]&J$"
^XMB(3.9,22,2,3589,0)="""DATA"",396.18,215,3,245,0)"
^XMB(3.9,22,2,3590,0)="M%\P;!O;&<*,^OD3W<BI-BH7J.A0GD<9Y?`JY&Q#S49,F838@T4K]YU+<#8A1"
^XMB(3.9,22,2,3591,0)="""DATA"",396.18,215,3,246,0)"
^XMB(3.9,22,2,3592,0)="M'5)K`.RRIL.\#6<S)7!""`W8C187;BKH;8#C_CKN90BDRA&([_#<""JBIH)Z$Q"
^XMB(3.9,22,2,3593,0)="""DATA"",396.18,215,3,247,0)"
^XMB(3.9,22,2,3594,0)="ML`;92946R>DT=R/%L*5ASDBN,,M#E1BPOA06BZMO?6^$C//""6$MHW%7'(+V5"
^XMB(3.9,22,2,3595,0)="""DATA"",396.18,215,3,248,0)"
^XMB(3.9,22,2,3596,0)="MIS_RU_F7,/GE8,""7S^;X9ZJ<^.Q6%5H<[F%.5G)K$Y-="":B,-_BGN90PV$0&"
^XMB(3.9,22,2,3597,0)="""DATA"",396.18,215,3,249,0)"
^XMB(3.9,22,2,3598,0)="MO]""$+O*+9_,)`ZUC\%L&_.;X_!82!HOHYRICA^""E8%>9F;W<'N`O,\1,^\G\"
^XMB(3.9,22,2,3599,0)="""DATA"",396.18,215,3,250,0)"
^XMB(3.9,22,2,3600,0)="M4U6LU29<R3VTJG:5A&7(?;.F&+P]LV!KSKU8!F^Z6=,70V=-G<^5&?W*DAO8"
^XMB(3.9,22,2,3601,0)="""DATA"",396.18,215,3,251,0)"
^XMB(3.9,22,2,3602,0)="ML2EN%,]<A?EC7D_]/6MMI8YVN6)W+5ME?2.6U)/P(`6<8?@^L10?,0HM2DZ1"
^XMB(3.9,22,2,3603,0)="""DATA"",396.18,215,3,252,0)"
^XMB(3.9,22,2,3604,0)="M0H<,[@'=]<[8GD9#M?[52N+@B09G1J7GIT0J/?X!5D5]M==>['+ZJ_=K7>6,"
^XMB(3.9,22,2,3605,0)="""DATA"",396.18,215,3,253,0)"
^XMB(3.9,22,2,3606,0)="M<$X3YN6.8+0461?4910RM!7A*;6[:O6WR$976$/_<%JXM""R8]EVW9AC5M7;#"
^XMB(3.9,22,2,3607,0)="""DATA"",396.18,215,3,254,0)"
^XMB(3.9,22,2,3608,0)="MK%M3C`2E5\6)N^<PK9-6-SZB9[G>BJ`BV0F&57VH6+]'@NLTE6M""1]<0R=9)"
^XMB(3.9,22,2,3609,0)="""DATA"",396.18,215,3,255,0)"
^XMB(3.9,22,2,3610,0)="M05>6T8U'I-%?=92ZB@1N=$\S)Q?Y:$XR/?E%1W,^[-&<-_>R_T=9JG-ZL+D/"
^XMB(3.9,22,2,3611,0)="""DATA"",396.18,215,3,256,0)"
^XMB(3.9,22,2,3612,0)="MN*DG^]W@=3V5)9LC:VL)0!9O(-KZFCL&]I*CJ#94RE(2L$VFPI9,2`4<N^P%"
^XMB(3.9,22,2,3613,0)="""DATA"",396.18,215,3,257,0)"
^XMB(3.9,22,2,3614,0)="M\W:RO]A?^H\X+Y:CU7H\<%5&O!F]:HGU,&N<>^U;&4.`2GQ4^$1XX8FT\+[$"
^XMB(3.9,22,2,3615,0)="""DATA"",396.18,215,3,258,0)"
^XMB(3.9,22,2,3616,0)="M%5ZT0IG<@UU%-Y,GNPWA98?S_-].A1!>-)"")W&RCC11HXH0W&5IX&)""8"".\S"
^XMB(3.9,22,2,3617,0)="""DATA"",396.18,215,3,259,0)"
^XMB(3.9,22,2,3618,0)="M/.&)$85G`Z5<2YSP-H87GD3?6E=V;[)D%_'6?D)>058[<;++AK^U)4IVF17."
^XMB(3.9,22,2,3619,0)="""DATA"",396.18,215,3,260,0)"
^XMB(3.9,22,2,3620,0)="ML9.BX?-,($=+39[D,N%/786^LES1B85(HMMTJ=W5-;6;0'.1""R\^</#.86_P"
^XMB(3.9,22,2,3621,0)="""DATA"",396.18,215,3,261,0)"
^XMB(3.9,22,2,3622,0)="M&8:MB%;D.]/STCOV8T=+H=&M?L!R=.M)V>)+AQ=?F1;?(=Z]C588NVL6!R]8"
^XMB(3.9,22,2,3623,0)="""DATA"",396.18,215,3,262,0)"
^XMB(3.9,22,2,3624,0)="M>G;D0@EP).46NA9:K$!#Z^\?3XCY6C[:T<LM*/6NW&0<MN#K!)*X_OD7?&D."
^XMB(3.9,22,2,3625,0)="""DATA"",396.18,215,3,263,0)"
^XMB(3.9,22,2,3626,0)="MV%\]B_?^:QF2?WE]''IY=K""3$P3#/Y<&*9?/,U(N.TG*Y6Y=L4+S4<RUD*GR"
^XMB(3.9,22,2,3627,0)="""DATA"",396.18,215,3,264,0)"
^XMB(3.9,22,2,3628,0)="M13""GV,5+F8FU?.W?8M\]?D-Y(0VV?]*[_5C*U^+?/\B""9(KX,/T4(].USVW'"
^XMB(3.9,22,2,3629,0)="""DATA"",396.18,215,3,265,0)"
^XMB(3.9,22,2,3630,0)="M:<F&D]IJ:G4[DQ-4P$(@R[^57M=5RB""CLY%D5J[QFG2-)]0VE;1;""UP$>SL?"
^XMB(3.9,22,2,3631,0)="""DATA"",396.18,215,3,266,0)"
^XMB(3.9,22,2,3632,0)="MIM=SD2KX*L]B>7V2(:_][B)MM=-!%BO*,C7P6=9K&5Q@3;[+-XBI>8'5M^:N"
^XMB(3.9,22,2,3633,0)="""DATA"",396.18,215,3,267,0)"
^XMB(3.9,22,2,3634,0)="MHRN&VC#EIF%E50U37U'TX)4*-$/KNI)(&:#LG>G^XNW>\-;;KZ@K;759K<MV"
^XMB(3.9,22,2,3635,0)="""DATA"",396.18,215,3,268,0)"
^XMB(3.9,22,2,3636,0)="MD_7RLH+N9%VQX(`,]6E%6%*Z3RE*6UBR5;1Q-FCHNE3""*D=-!ZY]RG_M.E(*"
^XMB(3.9,22,2,3637,0)="""DATA"",396.18,215,3,269,0)"
^XMB(3.9,22,2,3638,0)="MFJE;+(=?F;:ZV4<\""U,5C+VC;_'86SI0KF7`',F.9I_CGDG""C,\ZWH(UG/5>"
^XMB(3.9,22,2,3639,0)="""DATA"",396.18,215,3,270,0)"
^XMB(3.9,22,2,3640,0)="M2`-8/;=@;<JO8(U%""Q?""[+`W7""$;_A3Q13+9:,5ON-4K^S_.;?FL)S\\$Y""7"
^XMB(3.9,22,2,3641,0)="""DATA"",396.18,215,3,271,0)"
^XMB(3.9,22,2,3642,0)="MWC=@7AH?JT?3@>MZ\M+[X^EX)"",6=]%6(M-A-,)'].6WGM.L1P=T""2Q\_[%Q"
^XMB(3.9,22,2,3643,0)="""DATA"",396.18,215,3,272,0)"
^XMB(3.9,22,2,3644,0)="MX@MX(F)V""=C5WH6D)2:.L<2V,)\^H&MS%[Z8O\OJ]I0*B:S5`D#VI/426W,^"
^XMB(3.9,22,2,3645,0)="""DATA"",396.18,215,3,273,0)"
^XMB(3.9,22,2,3646,0)="MOXDJUMH:_D*4:`WR,$>#1,RF[#R'3(MI*$C;VGCAR.T9]4L1'A:;#-;<!5U:"
^XMB(3.9,22,2,3647,0)="""DATA"",396.18,215,3,274,0)"
^XMB(3.9,22,2,3648,0)="MEMA*I6ABNV)YO@`_?]3%MHE]N:K`[7<[(WNW2Z""$E""B8EMULAFO`:0]@.%'%"
^XMB(3.9,22,2,3649,0)="""DATA"",396.18,215,3,275,0)"
^XMB(3.9,22,2,3650,0)="MD%/A+T:%MJ^]F\$RL*7*N-^,&\/+K4JKX6=YCEPTJ>VZWXD^$R6W;'BYU8`_"
^XMB(3.9,22,2,3651,0)="""DATA"",396.18,215,3,276,0)"
^XMB(3.9,22,2,3652,0)="M]RS/GZN-O^""V,S43&:**@_R74CQ'IY1/V(!@%L,%H(KY#$N)LCWA$5#P5\<^"
^XMB(3.9,22,2,3653,0)="""DATA"",396.18,215,3,277,0)"
^XMB(3.9,22,2,3654,0)="MRELIGH\2[95QUP*=_[GBY']&_6KDP@M.!#;,E1S3AA7'7W([V7>L"".[8^WRE"
^XMB(3.9,22,2,3655,0)="""DATA"",396.18,215,3,278,0)"
^XMB(3.9,22,2,3656,0)="M(B:LCCGL48'IA(<Y)Z58&_?P:5MXL8'PZ0L\U21%*UG:XI1*MV3T9_*H""VPB"
^XMB(3.9,22,2,3657,0)="""DATA"",396.18,215,3,279,0)"
^XMB(3.9,22,2,3658,0)="MO,""J0""5]@:>2I-+X2FQ':(F5@/7[#A&8P;J9T1)],[/7U"":ZD6OL\6$C*;?)"
^XMB(3.9,22,2,3659,0)="""DATA"",396.18,215,3,280,0)"
^XMB(3.9,22,2,3660,0)="M\'*#QN\[O)-6+(Z]X':%%QPV!7^=AJ#>CS""B?TX1ZR0MN`C8<GO"";Q0_&'TN"
^XMB(3.9,22,2,3661,0)="""DATA"",396.18,215,3,281,0)"
^XMB(3.9,22,2,3662,0)="M%6*C(>N\(VQTFNU-2/1#V2K)G1QUJ^Z/4)M*%(3Q9C:_)?!JMT(8/L%D.%&M"
^XMB(3.9,22,2,3663,0)="""DATA"",396.18,215,3,282,0)"
^XMB(3.9,22,2,3664,0)="ME7L)PYLIAD40@08XBXF:?#[#*;HB>&6G;.]P'ZD6<(NN7AJ'HJN=S'?I,FX-"
^XMB(3.9,22,2,3665,0)="""DATA"",396.18,215,3,283,0)"
^XMB(3.9,22,2,3666,0)="MSVYP7.,-_7:$>CDC-5<7%;VMRB-6;E4F[9LG[*/[:JI?75+C8MWG]4OMNFK8"
^XMB(3.9,22,2,3667,0)="""DATA"",396.18,215,3,284,0)"
^XMB(3.9,22,2,3668,0)="M'6P!S_=EW%+N3-C-_HO'3^E1W]T'[HO%=2AP!8G:?^887N""X=X')R[ALR(\0"
^XMB(3.9,22,2,3669,0)="""DATA"",396.18,215,3,285,0)"
^XMB(3.9,22,2,3670,0)="M-ASOIN!>358ACXKDWU7L:HE5>Y]V""47K=.!N<0+Y9]+KMXA$T'R^Z3QT'@E`"
^XMB(3.9,22,2,3671,0)="""DATA"",396.18,215,3,286,0)"
^XMB(3.9,22,2,3672,0)="M@(M+'<5>""8BG[V5_(0WX\(6""&UU&1'""TOD+LP\\RBEB$AY1F4S#,3D?3K5D1"
^XMB(3.9,22,2,3673,0)="""DATA"",396.18,215,3,287,0)"
^XMB(3.9,22,2,3674,0)="M2VM""5S<-P^IZ1+2Z9YD]C>QEB^""PK<NRWO(7;/H-YZ.=[B^E24?$?B)@7'L="
^XMB(3.9,22,2,3675,0)="""DATA"",396.18,215,3,288,0)"
^XMB(3.9,22,2,3676,0)="M)BYYRE"".]F$__4""'JH;JQZ1=)5&D9Y#WL,%<).<""\1P*1;&<^*($L9BGV?V("
^XMB(3.9,22,2,3677,0)="""DATA"",396.18,215,3,289,0)"
^XMB(3.9,22,2,3678,0)="MRV[29GGPAKC@%`<V4V?ZV7ZXA^U:J44:XK+%(HLL\HJI(GN<VVIKPM[/F^U_"
^XMB(3.9,22,2,3679,0)="""DATA"",396.18,215,3,290,0)"
^XMB(3.9,22,2,3680,0)="MOH!$KZ.?MCC_2GZ<ZAGR=9WI$K(%H8C5Y#?@;+T7775UJ"">E<B5<C$FP+A:4"
^XMB(3.9,22,2,3681,0)="""DATA"",396.18,215,3,291,0)"
^XMB(3.9,22,2,3682,0)="MAEE7EP""VO6\7`GL6=U@N8`4XGXOJ]>4BPK>0P+=8XG)1B\3%I@6EI314N3D@"
^XMB(3.9,22,2,3683,0)="""DATA"",396.18,215,3,292,0)"
^XMB(3.9,22,2,3684,0)="M$QO"",U$""GX++1""5_79G8%)Z)*OTELI].<3]%*1H7#W0471[\/(5.\8KDD=;Y"
^XMB(3.9,22,2,3685,0)="""DATA"",396.18,215,3,293,0)"
^XMB(3.9,22,2,3686,0)="M%$%<E*\K%U/AN2B`;_$'7""XJA6AIL""A;SH7?L@0$__O\+8OKMV5F9DS$J`S9"
^XMB(3.9,22,2,3687,0)="""DATA"",396.18,215,3,294,0)"
^XMB(3.9,22,2,3688,0)="ME]/`(:!\U`)U+J3$I\9$@@:`8X$`AHOC`I!$WL1^F!ZPG?VN""Y#TYCB,9IQA"
^XMB(3.9,22,2,3689,0)="""DATA"",396.18,215,3,295,0)"
^XMB(3.9,22,2,3690,0)="MQV'DC'_=L:73_KFB;217=`$Y3F9SU))%!,HBLX7&9L^^E?;&DX^YZ1P+L;K="
^XMB(3.9,22,2,3691,0)="""DATA"",396.18,215,3,296,0)"
^XMB(3.9,22,2,3692,0)="MM9(8345^0EY1[!ZNMH*""S&4+R4=&?J>=Y=""%MME:<O(=\I*AZ4O6_]>1&X;5"
^XMB(3.9,22,2,3693,0)="""DATA"",396.18,215,3,297,0)"
^XMB(3.9,22,2,3694,0)="M<BLTY#5!5YXT55UIG`Z!YT.FE^]R-,LO>6;*[?4%#<X,UC%!H.M?385949%U"
^XMB(3.9,22,2,3695,0)="""DATA"",396.18,215,3,298,0)"
^XMB(3.9,22,2,3696,0)="M*EB*'C@2#%KG6Q3PM_@C]UO(;B25+T@)T!Z\H10$*OUYYP;=B9E]VU4?WTZ-"
^XMB(3.9,22,2,3697,0)="""DATA"",396.18,215,3,299,0)"
^XMB(3.9,22,2,3698,0)="M';[:+I\,(LX7/$./J,B^QVCVW>].[GODXJPPUY0-PV[]LOYQU++0-1J<*7,2"
^XMB(3.9,22,2,3699,0)="""DATA"",396.18,215,3,300,0)"
^XMB(3.9,22,2,3700,0)="M<Z4Q%,N""S8APZ91POR8TU9;:_3_NG@1(CNNJ.:19K5:2=5F295EN;&2MY)$R"
^XMB(3.9,22,2,3701,0)="""DATA"",396.18,215,3,301,0)"
^XMB(3.9,22,2,3702,0)="MQT[/CK$M=G58:TOKS>[:CN.`W3OS=Z>],]WC[IZ5QC%Q2)DX11)?(:0(1<K@"
^XMB(3.9,22,2,3703,0)="""DATA"",396.18,215,3,302,0)"
^XMB(3.9,22,2,3704,0)="M(G828C`$BB/AJ$`5Q%PFX**@**`@J0I%444@'`7!_+/G_^G?UVAL[6Q5'(U&"
^XMB(3.9,22,2,3705,0)="""DATA"",396.18,215,3,303,0)"
^XMB(3.9,22,2,3706,0)="MN___=_SWW_U([[!6O6/C_G%:U='7=*>350P32A<+*NE5Q>XT6X[9M-'4.TAX"
^XMB(3.9,22,2,3707,0)="""DATA"",396.18,215,3,304,0)"
^XMB(3.9,22,2,3708,0)="M:!I;'?<GPQQI*F4_L25#^O&DM\#NA^CIX/$6&MC6YHX(Y9KDE%6S"">6@@UNC"
^XMB(3.9,22,2,3709,0)="""DATA"",396.18,215,3,305,0)"
^XMB(3.9,22,2,3710,0)="M:0XJ/G2RW3-Z?@']`#31;>P+[H$N')""""K*E)50+(1Q@@$)*+FK4*I75_D#0`"
^XMB(3.9,22,2,3711,0)="""DATA"",396.18,215,3,306,0)"
^XMB(3.9,22,2,3712,0)="M7,:I:\;;!E.1;W+C)D.^7P+4SU""@[C^AS$""U2D?%JK@=G6;!8^$&=++3H69V"
^XMB(3.9,22,2,3713,0)="""DATA"",396.18,215,3,307,0)"
^XMB(3.9,22,2,3714,0)="M9IM,Q""4@9KV,U83/$WSM6A`4]&Q!`61TD2!?5S>JJ-(2V-S*$1XVUOV?3*E)"
^XMB(3.9,22,2,3715,0)="""DATA"",396.18,215,3,308,0)"
^XMB(3.9,22,2,3716,0)="M_XKGF3GD^[`E^AV6RK(MK^>C7>E7-U9_A7U2!BNRV1^TO\*89P86EP#IMK0$"
^XMB(3.9,22,2,3717,0)="""DATA"",396.18,215,3,309,0)"
^XMB(3.9,22,2,3718,0)="MAHXJ4#'#KS-A6ZSP997I8C*@S/L0B<7Q9</G=*.&'OA3RM5H6BF?SLF&B-Y'"
^XMB(3.9,22,2,3719,0)="""DATA"",396.18,215,3,310,0)"
^XMB(3.9,22,2,3720,0)="M=+TG/4$""Q?=*;!](J6I1%?IFIM/L!#5V@EM9WYE2/EY""UA9J""\0;QIB.?G**"
^XMB(3.9,22,2,3721,0)="""DATA"",396.18,215,3,311,0)"
^XMB(3.9,22,2,3722,0)="MN]<(>Q<H-_QG[[QI=/)X&5%CYY&?V:J;>JW;L&G3U4F$(HW\MYREXW,R6V8,"
^XMB(3.9,22,2,3723,0)="""DATA"",396.18,215,3,312,0)"
^XMB(3.9,22,2,3724,0)="M^FG3M.G4_5,8)76DPO699M?G:;?`N\PT[URN.#D<W<)]KM6$4'H>=*VDS:2W"
^XMB(3.9,22,2,3725,0)="""DATA"",396.18,215,3,313,0)"
^XMB(3.9,22,2,3726,0)="M]6E'T0?N7G*;=[!M*]YM1^;!"";,%#,X[/)#[7&`ED#O%Z_Q8SW5&<:I\/""?^"
^XMB(3.9,22,2,3727,0)="""DATA"",396.18,215,3,314,0)"
^XMB(3.9,22,2,3728,0)="MWAG4RI8&]*FZL-[S!/TGM]/92^F/)""+3ZFH^\:G!<$>A+,C,ASSY7M_#S6J,"
^XMB(3.9,22,2,3729,0)="""DATA"",396.18,215,3,315,0)"
^XMB(3.9,22,2,3730,0)="M5U@\.MT``#VP0].;+;HONC#)HRW]5""((;VJ\9W)LL6ZA63""V;@\-YD:B8ZXB"
^XMB(3.9,22,2,3731,0)="""DATA"",396.18,215,3,316,0)"
^XMB(3.9,22,2,3732,0)="M8.Z+P9B+UPQC=`X^#UK+!D.#MQAAS)R`MS>#\1:O3BPX&KM>:]FC(BXO(.ZM"
^XMB(3.9,22,2,3733,0)="""DATA"",396.18,215,3,317,0)"
^XMB(3.9,22,2,3734,0)="M0,258A;_0(W6;EM@W#XF>0#7-P:WHB%4&$7<$""KV=SJ$*G50Z#WYO.NE_)M$"
^XMB(3.9,22,2,3735,0)="""DATA"",396.18,215,3,318,0)"
^XMB(3.9,22,2,3736,0)="MMR[EHM8`R@)J50_M*MX+*C?9\GP!]1ZZ\N<37A_'Y""*`V+>S""FCI-;W6::+/"
^XMB(3.9,22,2,3737,0)="""DATA"",396.18,215,3,319,0)"
^XMB(3.9,22,2,3738,0)="M-D#-6QK*&K#U:@/86>R#MUL`ZFM0&52JD')ACI8B&PWPE\0)>S-]Z3\0U+,-"
^XMB(3.9,22,2,3739,0)="""DATA"",396.18,215,3,320,0)"
^XMB(3.9,22,2,3740,0)="M;;.BKX&H/=N*;-8D`70^8`[A'#2Q;;]52L)1Y]^>H_)E7JDGZ1X/>_?8.V6T"
^XMB(3.9,22,2,3741,0)="""DATA"",396.18,215,3,321,0)"
^XMB(3.9,22,2,3742,0)="M2><Z""_?!5""YIC8;?HF7AY&S5XY)\5G;RT'/RQ?=N%F#JJ&1)^!+8CN8`OY4J"
^XMB(3.9,22,2,3743,0)="""DATA"",396.18,215,3,322,0)"
^XMB(3.9,22,2,3744,0)="M_.&Z2T4\7<#DZP*/RKR'O;G1U^5RW%F+W5ZBTCA*3@!*LODA;O/)(<O`""T""Y"
^XMB(3.9,22,2,3745,0)="""DATA"",396.18,215,3,323,0)"
^XMB(3.9,22,2,3746,0)="MT%OKD4""4%^,.=PQ#^:2`\D<""43XQ9&/D`E#.R[;TQQ-!.""^I4:=&1L6Y(%AD"
^XMB(3.9,22,2,3747,0)="""DATA"",396.18,215,3,324,0)"
^XMB(3.9,22,2,3748,0)="MNW-(+Y6';)A=`-+Y#E#I+P<BO5R*.I?2'^F\IZ@HRLLO!^*\K`Y;KH=OM(#"""
^XMB(3.9,22,2,3749,0)="""DATA"",396.18,215,3,325,0)"
^XMB(3.9,22,2,3750,0)="MG1K#UUNA4+^>BC\-:QU'""_;+W\@R59S?2`BJVI&D-UHPSJ(%,P::6<0B:TX="
^XMB(3.9,22,2,3751,0)="""DATA"",396.18,215,3,326,0)"
^XMB(3.9,22,2,3752,0)="M*8:0.EAEF(:'OHH!!!_'(`7RGPEC/QPP94[>DS(9T3/8LRW50""\F0[?UM*0,"
^XMB(3.9,22,2,3753,0)="""DATA"",396.18,215,3,327,0)"
^XMB(3.9,22,2,3754,0)="M\_QL7:0LWTW>=K^@(YIHJH5*2?I%EY^O2^Y!-\2],R?G-6,%I.?36Z?:CDF^"
^XMB(3.9,22,2,3755,0)="""DATA"",396.18,215,3,328,0)"
^XMB(3.9,22,2,3756,0)="MWG(U>=5'GV/C7/$]3?]#(J@-,Q-TF#7A'Z?;UIKF0""O.?D<`&UNV[S,@*`UX"
^XMB(3.9,22,2,3757,0)="""DATA"",396.18,215,3,329,0)"
^XMB(3.9,22,2,3758,0)="M+Z+$N%B]\E.$0W^6>>E?D\`V?A;^T3!7.CBN#37@M@4!-""UE1=.=&(V-B[0?"
^XMB(3.9,22,2,3759,0)="""DATA"",396.18,215,3,330,0)"
^XMB(3.9,22,2,3760,0)="M;OJO""']^EFWZC&33PZ[AP>P-?-WA]GJ/\1$QCL/""$H28_\&(F7<%SS$:QU&#"
^XMB(3.9,22,2,3761,0)="""DATA"",396.18,215,3,331,0)"
^XMB(3.9,22,2,3762,0)="MXC@RC_7(7?K24IMSJVV*$(!*1C_X!'_P@\F@@T_$2PR^I].JBQ[!30.-G;%I"
^XMB(3.9,22,2,3763,0)="""DATA"",396.18,215,3,332,0)"
^XMB(3.9,22,2,3764,0)="M:F-""YV7YT>-E9F]&I1/QCKTY^K%5_MA+@<>.EXJ]^T*[N:19RG)#<QQHH/-N"
^XMB(3.9,22,2,3765,0)="""DATA"",396.18,215,3,333,0)"
^XMB(3.9,22,2,3766,0)="M[""@PC$2'H<RW;`[A]WC%(CLI$%!DU>)S3RHZ""),""""(<""Z1""S4F2A:C;T^(>/"
^XMB(3.9,22,2,3767,0)="""DATA"",396.18,215,3,334,0)"
^XMB(3.9,22,2,3768,0)="MWG^K*+3,3D_Y'GYS/E\IQ#O]KGDTZ-$&?5(@>D`B3Y@H-8)A>)GI$T]X0""B4"
^XMB(3.9,22,2,3769,0)="""DATA"",396.18,215,3,335,0)"
^XMB(3.9,22,2,3770,0)="M8X)P#=%XE#G\G(!XP?LMTJ8*S*E%G[0O,8S_LONZW,`=MS)D\[FC4HS>F8>2"
^XMB(3.9,22,2,3771,0)="""DATA"",396.18,215,3,336,0)"
^XMB(3.9,22,2,3772,0)="MH20KE>/)KCU3QFJG@=@-=R]#&G@\LFV5DTT5E()?""B);J5P>LC'C76?XSAYG"
^XMB(3.9,22,2,3773,0)="""DATA"",396.18,215,3,337,0)"
^XMB(3.9,22,2,3774,0)="M.+4!,\)0FHKK""_^3KB_\*+356W!;I0DT%!?`(W$57+BX9I]42,VBYMS&Z[-1"
^XMB(3.9,22,2,3775,0)="""DATA"",396.18,215,3,338,0)"
^XMB(3.9,22,2,3776,0)="M1:R0L'ZH9YA6^L4$$[#E8KSW>?N4HS3UV@FG#A<ZY2G*G#6YV0.97;<K^7<5"
^XMB(3.9,22,2,3777,0)="""DATA"",396.18,215,3,339,0)"
^XMB(3.9,22,2,3778,0)="M;N*_VHN_.*'DA6]WYF\Z(?[<CCN%OR?ZZ`I?9!W_/I4(QT(\!6L;Q0+DBN6K"
^XMB(3.9,22,2,3779,0)="""DATA"",396.18,215,3,340,0)"
^XMB(3.9,22,2,3780,0)="M@@2H90:P('5\[\`7[V^3G@8ECR5=2-19T+;,%:BR5'M'-MNV6=4U5!2/$D%Q"
^XMB(3.9,22,2,3781,0)="""DATA"",396.18,215,3,341,0)"
^XMB(3.9,22,2,3782,0)="MKJ9B=XR:93;Y4;P^)@%5M?;@,WR*><P?E?1[@(C32,HP6%'@1QNB47&`[?A9"
^XMB(3.9,22,2,3783,0)="""DATA"",396.18,215,3,342,0)"
^XMB(3.9,22,2,3784,0)="M;Y2LL\G!KUVFYM.ODP2'FJ=HC$L1[([V`(9MHKSJZ!93F2:??3#Q]NZC4DOW"
^XMB(3.9,22,2,3785,0)="""DATA"",396.18,215,3,343,0)"
^XMB(3.9,22,2,3786,0)="M`WB;$Q133P:.&S(=:`+&@:4@X.S6MV634D789#_=Y$9)@&P0\Z6^,^C<T](D"
^XMB(3.9,22,2,3787,0)="""DATA"",396.18,215,3,344,0)"
^XMB(3.9,22,2,3788,0)="M3PAV_/W>XP]BNM>5G=[;VH*:''<0W!_H;6WQ6L*GM85_Q)@.64G-X""O\Y\R("
^XMB(3.9,22,2,3789,0)="""DATA"",396.18,215,3,345,0)"
^XMB(3.9,22,2,3790,0)="M^2/WF7Q.T""_D?%?BH\ZW#R!B6*8JR[^36[DOR(U!$H0-)#T;YDJO](R>X%+D"
^XMB(3.9,22,2,3791,0)="""DATA"",396.18,215,3,346,0)"
^XMB(3.9,22,2,3792,0)="M\NW<'3_K[GC4U9%4-5ZE]O6<9)\V+P'LV8&$J<'?CJ7>^<15""CSV+WJ4NQNY"
^XMB(3.9,22,2,3793,0)="""DATA"",396.18,215,3,347,0)"
^XMB(3.9,22,2,3794,0)="M@P__4)$""Z\E#62/K@??[.7@GAJ-O1T#TB':72L^1-_85]L8VO=$CU3=,.MK+"
^XMB(3.9,22,2,3795,0)="""DATA"",396.18,215,3,348,0)"
^XMB(3.9,22,2,3796,0)="M7%OFL)=O#62VS((5#7T*/D615R*""#U&(&C>4'T)&\ISPY%@!]HNJ#I79&3V/"
^XMB(3.9,22,2,3797,0)="""DATA"",396.18,215,3,349,0)"
^XMB(3.9,22,2,3798,0)="MC`WA.I/DZY=3EM?J5&,VDMB[0+69;B?^3CRS<T1N=E;XA]8))-KDD(78HQ*-"
^XMB(3.9,22,2,3799,0)="""DATA"",396.18,215,3,350,0)"
^XMB(3.9,22,2,3800,0)="M&G_;!)H9$IK%[""9SY31+R6DV*=RT.X.(-EPS96+D"".>$FY8-N&FE>'UG=E_$"
^XMB(3.9,22,2,3801,0)="""DATA"",396.18,215,3,351,0)"
^XMB(3.9,22,2,3802,0)="MRG;?--LLIUF9OV?!)""L/V?L?U2=7X>]9-N"">E=1WE&*)1&""6`C5%M@HUC=]R"
^XMB(3.9,22,2,3803,0)="""DATA"",396.18,215,3,352,0)"
^XMB(3.9,22,2,3804,0)="MO0,O;X0LA0,^]C!5X]XB:MQF3W9OEPC[W3+RKHY_E>=&R[,#:&4\M**PFO3#"
^XMB(3.9,22,2,3805,0)="""DATA"",396.18,215,3,353,0)"
^XMB(3.9,22,2,3806,0)="MS#6LN5<Q)""DAT5]2`A58IY.AVWJ2$I+]%4BI-!+PB^%;[IHU'3RU'I$,R@/+"
^XMB(3.9,22,2,3807,0)="""DATA"",396.18,215,3,354,0)"
^XMB(3.9,22,2,3808,0)="M[BLE8E=O2@352$<Q^UQ/V><-]^X\*,^(>#/)9T3P;[JTM)O%*7%X)G6$[O+)"
^XMB(3.9,22,2,3809,0)="""DATA"",396.18,215,3,355,0)"
^XMB(3.9,22,2,3810,0)="MP&@Z,S^5JDD*SB.D\JHLF/@+""6&GCP6.""79W,J'X-9QH&]$77DOR&\E\1`>\"
^XMB(3.9,22,2,3811,0)="""DATA"",396.18,215,3,356,0)"
^XMB(3.9,22,2,3812,0)="M^S11.668AZC`O+UC*;Q%FFYQWKO%CGD3]5M9.6HKMK[BUQ>7#86FZQWM[<+:"
^XMB(3.9,22,2,3813,0)="""DATA"",396.18,215,3,357,0)"
^XMB(3.9,22,2,3814,0)="M72^ST`*@6O=9ATU]INO,T'7.2L[E@FXBYT*H;X^^P(_CR_`A9AW=Z15EHSBF"
^XMB(3.9,22,2,3815,0)="""DATA"",396.18,215,3,358,0)"
^XMB(3.9,22,2,3816,0)="ML*#7P'HKR5;I$[H%P_`<@V'""BYRMY$V\8-H^R>\J&U+W2D)<[-W>Q7;V-%T."
^XMB(3.9,22,2,3817,0)="""DATA"",396.18,215,3,359,0)"
^XMB(3.9,22,2,3818,0)="M[;;,FM'1M;_)UE[VKGVMQU\+99\=ZGK*""1L<2/92L[O!]FEM23?L53V(>]G`"
^XMB(3.9,22,2,3819,0)="""DATA"",396.18,215,3,360,0)"
^XMB(3.9,22,2,3820,0)="M![J>.QS;D'2@/FUIA@[OV2RPUH""RW#9P2IX?FMG8[9?)RAH++[PD$1HW2<03"
^XMB(3.9,22,2,3821,0)="""DATA"",396.18,215,3,361,0)"
^XMB(3.9,22,2,3822,0)="MW<Q`FXW;QT(&5-/W^@$B\7^4X=T5N#?X3ZB6G)VZP]/+R2OGMZ)*>>*/D^(%"
^XMB(3.9,22,2,3823,0)="""DATA"",396.18,215,3,362,0)"
^XMB(3.9,22,2,3824,0)="MG/%>P*TDEK<.;Z!:$L3<8&\-2T:C:P_\UJ@L\8QN<.6WIBRL-\A;,RFL/,!;"
^XMB(3.9,22,2,3825,0)="""DATA"",396.18,215,3,363,0)"
^XMB(3.9,22,2,3826,0)="M$]%8R=%LL[?P*Y2B@#G>9HCJ9,S!.;->O6,()HM+3%HZVX""J772(>/HG7`K-"
^XMB(3.9,22,2,3827,0)="""DATA"",396.18,215,3,364,0)"
^XMB(3.9,22,2,3828,0)="M<#@J;DR3-D<OU.<3`ILT)&Q2B<<F>V8]2N,0#(Z6<4E!T)D#V:12W)@>1M9C"
^XMB(3.9,22,2,3829,0)="""DATA"",396.18,215,3,365,0)"
^XMB(3.9,22,2,3830,0)="M\+U)@4W>)V.3>$79.V9YG7^]<\@F.8<4!6,GF$/R0UMQM+LG6I//B9;.+L\3"
^XMB(3.9,22,2,3831,0)="""DATA"",396.18,215,3,366,0)"
^XMB(3.9,22,2,3832,0)="MQ\5K*J5WR#O$1X5\^CAX(D0L+M2-%06&J<HBW*5`N/WJVT;\2JU&SW1LS:E;"
^XMB(3.9,22,2,3833,0)="""DATA"",396.18,215,3,367,0)"
^XMB(3.9,22,2,3834,0)="MNH8_MNJ:#3_2MO5R_A/4+C:^DCO/$>X\Y2$+7`4.&U!Y:_(S+*O@>1?PN[J)"
^XMB(3.9,22,2,3835,0)="""DATA"",396.18,215,3,368,0)"
^XMB(3.9,22,2,3836,0)="MHKE<K'$#I(_2UO.@J;<:8$6OXBY/.DK?LW4[DUFTD,#*I!?AO_0[4F`TPD@!"
^XMB(3.9,22,2,3837,0)="""DATA"",396.18,215,3,369,0)"
^XMB(3.9,22,2,3838,0)="M25LFT=)SH7Y)""G5^0PZH+]""1+ZFD8&BDGW)Q,,[A(.;LT07.(#DU@*%XDZ*I"
^XMB(3.9,22,2,3839,0)="""DATA"",396.18,215,3,370,0)"
^XMB(3.9,22,2,3840,0)="M_QTOP0YSART-6>OO`#%);?G/$;AO20;)R;*?G/3<S%U,6BOCQ%@Z%E5L%X7S"
^XMB(3.9,22,2,3841,0)="""DATA"",396.18,215,3,371,0)"
^XMB(3.9,22,2,3842,0)="M7`@\S^2$SWEV^,GM0`E=$EB@Y=WZ06[KH6*!:T)$-+6PZ\DH,KJP[F3TSL&-"
^XMB(3.9,22,2,3843,0)="""DATA"",396.18,215,3,372,0)"
^XMB(3.9,22,2,3844,0)="M?6&5Z8\05/Q3L-!2^Q-:%V(+K5URCE4%_T7(*S-49L]N.<""B*RA$2@^5%K4G"
^XMB(3.9,22,2,3845,0)="""DATA"",396.18,215,3,373,0)"
^XMB(3.9,22,2,3846,0)="M4""J*/KL0*>W7E&3OX*2TR'@A4MKOU;BV+RDM^NQ""I/10L<""^P'9.*E?""DMZ>"
^XMB(3.9,22,2,3847,0)="""DATA"",396.18,215,3,374,0)"
^XMB(3.9,22,2,3848,0)="M[!71Z=_MUK#L/0-`2UF$,MHTE'FPW`""7@1W6+(`-9Z%%,KNI^^!FKRMT9-'2"
^XMB(3.9,22,2,3849,0)="""DATA"",396.18,215,3,375,0)"
^XMB(3.9,22,2,3850,0)="MJZ!E^\7\2OPZU/!**9(0W73@,CS`J0?H,F>\RUPS;6G5NFY:&AJ!I/NN5^;7"
^XMB(3.9,22,2,3851,0)="""DATA"",396.18,215,3,376,0)"
^XMB(3.9,22,2,3852,0)="M>YRNE_.N-WJ/`8!R-[!6_5::Y$GA3E8H2.(54\9J@ZWE?YU4`6.*I_*]>YF*"
^XMB(3.9,22,2,3853,0)="""DATA"",396.18,215,3,377,0)"
^XMB(3.9,22,2,3854,0)="MY?P[XW.)8*)[_#+)7"":5OS63*L#_BO""_B5L#A8@J$'@Z$.K2NH$Z>:50""VQ8"
^XMB(3.9,22,2,3855,0)="""DATA"",396.18,215,3,378,0)"
^XMB(3.9,22,2,3856,0)="M""X2ZO&Z@3ETIU,*5>3H1""'9EW8""=OE*P^;I#:-,$@EU<-V!OB@1VT&-%];0?"
^XMB(3.9,22,2,3857,0)="""DATA"",396.18,215,3,379,0)"
^XMB(3.9,22,2,3858,0)="M3%[Y:W7`1PA7!O-:T4R0*WVM2OG!OE:ER4&]5J7*@%\K6EH6Z;4J;)C7JER*"
^XMB(3.9,22,2,3859,0)="""DATA"",396.18,215,3,380,0)"
^XMB(3.9,22,2,3860,0)="M_EJI&^:U*L=XK28WS&M5CO%:3>8VS&M5CO-:30S;:Q60>TV9_`B?H\A59K^R"
^XMB(3.9,22,2,3861,0)="""DATA"",396.18,215,3,381,0)"
^XMB(3.9,22,2,3862,0)="M$7*OKY/G2[$AHE\3<Z^_)<F]/LQRKR^V[6J#-(2[V]11>X2KG((MAZS`%=RG"
^XMB(3.9,22,2,3863,0)="""DATA"",396.18,215,3,382,0)"
^XMB(3.9,22,2,3864,0)="M#K/Q4BGON_<4Z7S<40!\F94F@<ZTE$<1<(JVO`RJJ.`>P5MC24""Z`3\[FMY0"
^XMB(3.9,22,2,3865,0)="""DATA"",396.18,215,3,383,0)"
^XMB(3.9,22,2,3866,0)="MQA?@^ZNU6I;9LE!E/EZ@W3#M5=``J,$NP,G.=#""893IFU6S@:8--TP)TE9/'"
^XMB(3.9,22,2,3867,0)="""DATA"",396.18,215,3,384,0)"
^XMB(3.9,22,2,3868,0)="M_*""@_O!G$T*[-]EXG&Z2+@7A$M!6#1"">YLBFLCXKC%?NIB%Q^56]6V@.!+L>"
^XMB(3.9,22,2,3869,0)="""DATA"",396.18,215,3,385,0)"
^XMB(3.9,22,2,3870,0)="M6BA.70)TA_0S3`DQ@W+.Z!9V2[.;H1OP[8_3O\9$UT')W*VU<Q#U-ND;1[:P"
^XMB(3.9,22,2,3871,0)="""DATA"",396.18,215,3,386,0)"
^XMB(3.9,22,2,3872,0)="MLXINDWUPH[4V&J=EK""@V:OP#%&""8[94Z2EN'A[*`W3(-&S5:QS1TD\%P>S;^"
^XMB(3.9,22,2,3873,0)="""DATA"",396.18,215,3,387,0)"
^XMB(3.9,22,2,3874,0)="M""[I%%;*HV;9.N1""$MK9FC@H""R[\Q7%WV@G(47S_%O@0:#7C@K`*6E]LV[MQH"
^XMB(3.9,22,2,3875,0)="""DATA"",396.18,215,3,388,0)"
^XMB(3.9,22,2,3876,0)="M*=A%;R'ZGPK?<E*@SW<9_GY;PF;'NDF!(?N&$JTB['J<)?:]-X@KR*5L:)>C"
^XMB(3.9,22,2,3877,0)="""DATA"",396.18,215,3,389,0)"
^XMB(3.9,22,2,3878,0)="M]""?(\9C\`;;^@G?]W>>@5HYZ(R$""Z[6VUO!+,*6*?OHY<NB'F&GS;&!Z_AD`"
^XMB(3.9,22,2,3879,0)="""DATA"",396.18,215,3,390,0)"
^XMB(3.9,22,2,3880,0)="MF:4)C_PNS5AI-R*U]&;9PA\B1M0_,J(\+2LYF*.M^K""4TM#C@_H&+>N7>[?R"
^XMB(3.9,22,2,3881,0)="""DATA"",396.18,215,3,391,0)"
^XMB(3.9,22,2,3882,0)="M*5>A!MN_$*@^ZFEF>6U(N<J^OLI5F#-W)AFZK:=<9?]@IJ?0]L^TUE_M38;E"
^XMB(3.9,22,2,3883,0)="""DATA"",396.18,215,3,392,0)"
^XMB(3.9,22,2,3884,0)="MLC)*\09.[:3/Y`-4""I_JK[Y?R""K(""X*:S7[\,TGT0RU-;-!DR`I/KUH`O2;B"
^XMB(3.9,22,2,3885,0)="""DATA"",396.18,215,3,393,0)"
^XMB(3.9,22,2,3886,0)="MS;JYAM)KBCQI@RBAG10$7,H,HM=$96-F)=)YTW1VU3.)H`L6+RMQ.R78`GJX"
^XMB(3.9,22,2,3887,0)="""DATA"",396.18,215,3,394,0)"
^XMB(3.9,22,2,3888,0)="MXY%+GB+(BN?H>_23B<#[E1^.U,""H9,KS9/JZATQ<YY!2Q!QCSPR5P79+I.K]"
^XMB(3.9,22,2,3889,0)="""DATA"",396.18,215,3,395,0)"
^XMB(3.9,22,2,3890,0)="M+GS@L63`@8MJO`/WW^9`D,_NH>0,5""QOS.X4^2)/F&(@86(F?1%U]P+6_>)="
^XMB(3.9,22,2,3891,0)="""DATA"",396.18,215,3,396,0)"
^XMB(3.9,22,2,3892,0)="M^%$YO0H""O<I>>G$YT\72D&7I!;1PX2><I%<]\P2YX'VAXA.\'Y,G^NR5:;J9"
^XMB(3.9,22,2,3893,0)="""DATA"",396.18,215,3,397,0)"
^XMB(3.9,22,2,3894,0)="M4;>;I3RH7Q&LW'0]^.(4ABS[+NK%H6;X9:(,?Y7)X`=E-R?>4[G5Q7^\:[-'"
^XMB(3.9,22,2,3895,0)="""DATA"",396.18,215,3,398,0)"
^XMB(3.9,22,2,3896,0)="M3JT)P3#Y-GLGO^92ZR'NI$.5W+HW.K6H2Z.=##4<""O$4T6VTVN(<`$X\<FWW"
^XMB(3.9,22,2,3897,0)="""DATA"",396.18,215,3,399,0)"
^XMB(3.9,22,2,3898,0)="M+]*G]MU?D].>HJ<]Q4Y[7<`0TQV#,;1H`@M#F.:/L*""AQ++.'&-3S5;;4[TD"
^XMB(3.9,22,2,3899,0)="""DATA"",396.18,215,3,400,0)"
^XMB(3.9,22,2,3900,0)="MET\TM4A(C8S:#$:\GVZ+R_LD)""_'F]ZW?;;K,P*Q,P-]:,[<>H3FZ1<3<8B^"
^XMB(3.9,22,2,3901,0)="""DATA"",396.18,215,3,401,0)"
^XMB(3.9,22,2,3902,0)="MN[_V$R6!S>IQ=MS9UX[,AT1ET?O8R_&'KBRZI3M:8?[>B\@K,L4\NM1[/3YC"
^XMB(3.9,22,2,3903,0)="""DATA"",396.18,215,3,402,0)"
^XMB(3.9,22,2,3904,0)="M5!MMXO)#!#C&I:CU.Z.>!4GK&!$[Z*FN=6,*SV^$F,)!J>.J1$.EZ<\0LW>4"
^XMB(3.9,22,2,3905,0)="""DATA"",396.18,215,3,403,0)"
^XMB(3.9,22,2,3906,0)="M`O^F)*9P/8LIG$8^5W--0ZYSS5HO/5UZ;A2K1-Y""F.V19.^8O2.^D]U3_?G'"
^XMB(3.9,22,2,3907,0)="""DATA"",396.18,215,3,404,0)"
^XMB(3.9,22,2,3908,0)="MJ%[T8B)TPYVLMPJ@O56B-W8):JVB\D$4%NO_;[<C:$7>6N73R7WBUXL6)`_D"
^XMB(3.9,22,2,3909,0)="""DATA"",396.18,215,3,405,0)"
^XMB(3.9,22,2,3910,0)="MWU%YRY6$#R.I@J_U$XF`N2G?Z_I:T<BB9MN""_R.#)?45`XVUU(QJ6*_1$@MW"
^XMB(3.9,22,2,3911,0)="""DATA"",396.18,215,3,406,0)"
^XMB(3.9,22,2,3912,0)="M$]M%9<+DXS+?+NDUVL.WYW0#R1'[G;^5/DYD:HVE?YJ@\`V&PE<E(!V9??#\"
^XMB(3.9,22,2,3913,0)="""DATA"",396.18,215,3,407,0)"
^XMB(3.9,22,2,3914,0)="ME%)M:+:-$<9F0-6!9CFHU330;'#;U0`M(--HDI_NQ>8E_HX;]\EWU:KS&(P%"
^XMB(3.9,22,2,3915,0)="""DATA"",396.18,215,3,408,0)"
^XMB(3.9,22,2,3916,0)="MLVW4^+Y#R$ZJ@^HJU[*;_9W*L2?(:[:77KX26WL7[50^4:B4W&U2""Q.]$_A\"
^XMB(3.9,22,2,3917,0)="""DATA"",396.18,215,3,409,0)"
^XMB(3.9,22,2,3918,0)="M5N?KX@(7SW&+YP47L?_BE)&?$!8_*UD\SRU>Z!W7Z+,X52RVB7C)2U8O<JL7"
^XMB(3.9,22,2,3919,0)="""DATA"",396.18,215,3,410,0)"
^XMB(3.9,22,2,3920,0)="MQ3ZGO5H7JTKAQGH(W5VW>+K9L8$D)=1H-(ZZE9Z[..,J69ZLB9$)IZ[,G%[("
^XMB(3.9,22,2,3921,0)="""DATA"",396.18,215,3,411,0)"
^XMB(3.9,22,2,3922,0)="MC)38!Y5\"")XHY`6@R+6B2_]XHG?P:_?\:KQ""DLQ%+-[\]<3,U!(:9)P9F2,3"
^XMB(3.9,22,2,3923,0)="""DATA"",396.18,215,3,412,0)"
^XMB(3.9,22,2,3924,0)="MC4-=G[0[9?IY(B9>8F+BCF3/<,!-A=QP5;]%=H'FZ4!X2J[7&0I^Q.6WO#L`"
^XMB(3.9,22,2,3925,0)="""DATA"",396.18,215,3,413,0)"
^XMB(3.9,22,2,3926,0)="M9Z(<BUZ;R>O;#[DRT8_/-SY,)Y)!QX\9&9E#R@)ZZ*""),M]>Z@N0D2@79H+O"
^XMB(3.9,22,2,3927,0)="""DATA"",396.18,215,3,414,0)"
^XMB(3.9,22,2,3928,0)="MW<@N_#<D%[X4#X+TW?>?\;_PO:?.[+P/\S?2IN!;""&P[K/%VOB`X/<\QY/^>"
^XMB(3.9,22,2,3929,0)="""DATA"",396.18,215,3,415,0)"
^XMB(3.9,22,2,3930,0)="M>WTNNK;AA)H;=O\A\W-3I>+OO4H%/SS6KPFT)QXP<AJI'LI,9@O],),999^Z"
^XMB(3.9,22,2,3931,0)="""DATA"",396.18,215,3,416,0)"
^XMB(3.9,22,2,3932,0)="M7]Z?\-7/6<M:>J[_\YZK:X`>G`=K.KBD8)WGM*#S<&[CF*X/+T<7>(Y>\:@G"
^XMB(3.9,22,2,3933,0)="""DATA"",396.18,215,3,417,0)"
^XMB(3.9,22,2,3934,0)="MW!,6SZ.7F:]WG'JSUQH,>-7F`7+'6ID]]$.CH\Q8%OWR6O<C_W5BC+`,WD3H"
^XMB(3.9,22,2,3935,0)="""DATA"",396.18,215,3,418,0)"
^XMB(3.9,22,2,3936,0)="MD!B432>4$;%.IE]Q+=_/;03+]WIYKC6SU_Y75%F^*K%\#S++=P':1>*<@O66"
^XMB(3.9,22,2,3937,0)="""DATA"",396.18,215,3,419,0)"
^XMB(3.9,22,2,3938,0)="M29?G1T6G;J!`?5N26_519(3>ILS@N;$64-`<)6@W+.LK;0N[5^`K8BOCQ*:H"
^XMB(3.9,22,2,3939,0)="""DATA"",396.18,215,3,420,0)"
^XMB(3.9,22,2,3940,0)="M995EK0JRV$HSH&9Y+*O8[:6F[BA5!)W2JIN.N6)IK;K-1M%VD_$L:(R0&3CH"
^XMB(3.9,22,2,3941,0)="""DATA"",396.18,215,3,421,0)"
^XMB(3.9,22,2,3942,0)="M>S['S@(MTW).7K5Q':'95BS62C3_.ZA:.""WI/;G8:>$\G@9`V55^R]$HU@L)"
^XMB(3.9,22,2,3943,0)="""DATA"",396.18,215,3,422,0)"
^XMB(3.9,22,2,3944,0)="M?KWT'T@LO.-3K1:T@I`IG!5'?0)4TNUT][*CYZLQQRZI'G?AN<N=EM'-4CI["
^XMB(3.9,22,2,3945,0)="""DATA"",396.18,215,3,423,0)"
^XMB(3.9,22,2,3946,0)="M6:LZXF2M\6KSI/(>!?[_L1A;4D?,;Y(M;V,M7Q->ECR'.Q9FE1IHP=<=@995"
^XMB(3.9,22,2,3947,0)="""DATA"",396.18,215,3,424,0)"
^XMB(3.9,22,2,3948,0)="M'(I61[?M-L`])+*4Y[J#G4@F5:U._A9TMAV""#Z'`MSOY>:;TMR3)E`OM9E.S"
^XMB(3.9,22,2,3949,0)="""DATA"",396.18,215,3,425,0)"
^XMB(3.9,22,2,3950,0)="M\*!7&PD!BGDYS'GF?OX""<3Z-,E_0JA?F['$%J3*07\EU0GI,#=+8@(\!L-%?"
^XMB(3.9,22,2,3951,0)="""DATA"",396.18,215,3,426,0)"
^XMB(3.9,22,2,3952,0)="M\5AGLGTHLED3]""^15S7+E!L[Z85IL=LES^@H#1WN[KH1(.GU-=WI*#CU%7];"
^XMB(3.9,22,2,3953,0)="""DATA"",396.18,215,3,427,0)"
^XMB(3.9,22,2,3954,0)="M:V,E""XD%+!_@O^`NJP(^3H:S`^\$2.<89M[C/=^>692R*TC;4WZ+\G/#TXM)"
^XMB(3.9,22,2,3955,0)="""DATA"",396.18,215,3,428,0)"
^XMB(3.9,22,2,3956,0)="M_X%6^SRM`?'""X4EW>:%9\X<]V6^'_;/?QD)]>O[M'EB^.Y$_%R@Y/^Q>GH>["
^XMB(3.9,22,2,3957,0)="""DATA"",396.18,215,3,429,0)"
^XMB(3.9,22,2,3958,0)="MD9A""J8]F#YOF-;N>V;G0TN%)43*B;C8U1\L<O@#%O87Y(:M<0GX81/""EMF5@"
^XMB(3.9,22,2,3959,0)="""DATA"",396.18,215,3,430,0)"
^XMB(3.9,22,2,3960,0)="M#LAD%C4(B)G93UQK\+<-I`,AQH"",NFIG=MW;RQR)*.TA$GVU\&'=9:E896AZ"
^XMB(3.9,22,2,3961,0)="""DATA"",396.18,215,3,431,0)"
^XMB(3.9,22,2,3962,0)="M78:FXK`-T_'7[4LYZ13A%R2J?:GH-V0FXQNXDEM/\A'`+TCF%A6'JWN?/$^H"
^XMB(3.9,22,2,3963,0)="""DATA"",396.18,215,3,432,0)"
^XMB(3.9,22,2,3964,0)="M4!8DZO<Q@/_+E:CG.207AB,]2`8G=:#^%GFF[Z-@?E.27E,J#-O<%QF\](E>"
^XMB(3.9,22,2,3965,0)="""DATA"",396.18,215,3,433,0)"
^XMB(3.9,22,2,3966,0)="M(?`^VMM[>(H#=ZBROU+1)S'G!)(_WJND'.<8.Y[%.[;8+6CH+[DPQCQI^C(?"
^XMB(3.9,22,2,3967,0)="""DATA"",396.18,215,3,434,0)"
^XMB(3.9,22,2,3968,0)="M3X5""4:C$\Z5A<V\:6B^K\`4R^H1DLY]*P23+[Q/)LMFC4MS(.R6A*1#=UR'?"
^XMB(3.9,22,2,3969,0)="""DATA"",396.18,215,3,435,0)"
^XMB(3.9,22,2,3970,0)="MD/5WOY`,W3!#M%'.QQ2RH^R&""=KU5YB#YZ?<JJZSC#+ERD1A.-+#?#TI%<%Y"
^XMB(3.9,22,2,3971,0)="""DATA"",396.18,215,3,436,0)"
^XMB(3.9,22,2,3972,0)="ME*.P_JGK29F)[$FA_=G7OU_ED+Q1-\LX^R[1Q;915/R%Q*]R`_.KG(=&G@55"
^XMB(3.9,22,2,3973,0)="""DATA"",396.18,215,3,437,0)"
^XMB(3.9,22,2,3974,0)="M5UR7=-K2'7@$;9VY5DH5OFXM=8M_`=0UTPW3K!&S#MK.MZVS4:HJS?Q)6?Q<"
^XMB(3.9,22,2,3975,0)="""DATA"",396.18,215,3,438,0)"
^XMB(3.9,22,2,3976,0)="MCO0]DFK+#XS/P6N$#%!D""F""G4!W4V@UHH]=YDC4!.I-3UQS\PS5=LQT3""@9E"
^XMB(3.9,22,2,3977,0)="""DATA"",396.18,215,3,439,0)"
^XMB(3.9,22,2,3978,0)="M""6.B13&!2O?@YYJ)_#^&T^@HE5R3U/%!(0N)3OQ+NFTV\-CD,&-29239AR&I"
^XMB(3.9,22,2,3979,0)="""DATA"",396.18,215,3,440,0)"
^XMB(3.9,22,2,3980,0)="M4$B^(('D$W:''BGHX.X/A9T[K^84X>3$O:7Y@TZ\-7@O`X(-?_N8'U#4Y+L9"
^XMB(3.9,22,2,3981,0)="""DATA"",396.18,215,3,441,0)"
^XMB(3.9,22,2,3982,0)="M`_5N5MF=\OH.?D,_2?UW:-\5@XV@%T""L:[9BF(ZR!`""J:05KNMFV(0C`=N`;"
^XMB(3.9,22,2,3983,0)="""DATA"",396.18,215,3,442,0)"
^XMB(3.9,22,2,3984,0)="MIMN0H!3M#H)30TD%>A,@,MAM2.CIDW,G%0@DSI5`59AH*<715N%RSB538<6Q"
^XMB(3.9,22,2,3985,0)="""DATA"",396.18,215,3,443,0)"
^XMB(3.9,22,2,3986,0)="M#OPEN+M!*G.1#P$-C8;8@.>S`'""]-8Y2TSKAC@*5!@@H&AZC:/B@!`V_JA,\"
^XMB(3.9,22,2,3987,0)="""DATA"",396.18,215,3,444,0)"
^XMB(3.9,22,2,3988,0)="M>,#N!9DBB=8'0V`IJ%EHV!(&P%]`$J-_1$B#""SF(P,C_U0<J@E$0@;\K'`[2"
^XMB(3.9,22,2,3989,0)="""DATA"",396.18,215,3,445,0)"
^XMB(3.9,22,2,3990,0)="MGV1/Z/LE2/BT?N580'_OQ8*(`00K!69ZKHL*]$.("";4.<_YR3MY04I=IWVL*"
^XMB(3.9,22,2,3991,0)="""DATA"",396.18,215,3,446,0)"
^XMB(3.9,22,2,3992,0)="MYC<8F+,2,/]G#0)I\""P/'VG%)NZQK`)YV@'*I3K`S@<!%1`6""TJN&BH'1[ZK"
^XMB(3.9,22,2,3993,0)="""DATA"",396.18,215,3,447,0)"
^XMB(3.9,22,2,3994,0)="M-BH71S>W:C9;#8#%&_PM&Q`R$\<G]GN>5+KY2@P5N*!86)_D+]4`*K`%5?1;"
^XMB(3.9,22,2,3995,0)="""DATA"",396.18,215,3,448,0)"
^XMB(3.9,22,2,3996,0)="M`C'6@)B;@\N8VW:+N,CA8LO(R9*%?S0:YB7EDFFMPJL)R$8X'28""'O,\'EV-"
^XMB(3.9,22,2,3997,0)="""DATA"",396.18,215,3,449,0)"
^XMB(3.9,22,2,3998,0)="MJ^7%X[:MR41""7Y,SC""LM7,;@R-XCUGQ8@""<_%5$='&&PVRLK4/(@=/0**E20"
^XMB(3.9,22,2,3999,0)="""DATA"",396.18,215,3,450,0)"
^XMB(3.9,22,2,4000,0)="M#7]B"">L]#:BI9?N\:Y>P""Q67V&H-?-60XQ(1OX<C&"",(F)7'*]WYQ;<3Y7FO"
^XMB(3.9,22,2,4001,0)="""DATA"",396.18,215,3,451,0)"
^XMB(3.9,22,2,4002,0)="M1WGVSR=,])N86BS(AJ7]G:M4?FPCA.=ND(?GV'""@5XD:N8>B>]RK16;NUQVM"
^XMB(3.9,22,2,4003,0)="""DATA"",396.18,215,3,452,0)"
^XMB(3.9,22,2,4004,0)="ML=XB<066$/EU8M[]*XLNW""AI5T6^62^)B'G6K^L`/OF/,3GR<ZX*/^$>W<&L"
^XMB(3.9,22,2,4005,0)="""DATA"",396.18,215,3,453,0)"
^XMB(3.9,22,2,4006,0)="M#*]9-UJEC!,I#.^WT8:FEANWJB'^-%OD)5DR:QWX[.H-*%Y:4(I#88(""/Z0@"
^XMB(3.9,22,2,4007,0)="""DATA"",396.18,215,3,454,0)"
^XMB(3.9,22,2,4008,0)="M24=]'N""#5</!';@0%)H.$CGP6Z=Z+$P0YIEC](`P,>Z@%_.;Y]H-&_BMDO]_"
^XMB(3.9,22,2,4009,0)="""DATA"",396.18,215,3,455,0)"
^XMB(3.9,22,2,4010,0)="M\JX]1J[KK,]C]]IKK]=O.TX;Y_H1QYOX,>^=29-8:WN-G7KMC7?M#2T%[L[<"
^XMB(3.9,22,2,4011,0)="""DATA"",396.18,215,3,456,0)"
^XMB(3.9,22,2,4012,0)="MW;GQW9G)W)E=3P))$4%`*Q4DJ.""/`*6$2J@0M42%-*""""$+0B/%0A5""FJD$#E"
^XMB(3.9,22,2,4013,0)="""DATA"",396.18,215,3,457,0)"
^XMB(3.9,22,2,4014,0)="M#Q`$44(K\1!POO.X<\Z]Y[[&6WON\H?EW;LSYY[O.^=\K_-]OX\?I4%'N2[I"
^XMB(3.9,22,2,4015,0)="""DATA"",396.18,215,3,458,0)"
^XMB(3.9,22,2,4016,0)="MZW1#MUH&,I$!,/@&HMT+WBO';XG46>?M&W>;V->NZC$UZS5>G@=`3IVFXXVZ"
^XMB(3.9,22,2,4017,0)="""DATA"",396.18,215,3,459,0)"
^XMB(3.9,22,2,4018,0)="MQTN>]1I""V*6I#X>=4LYK/`&3.34WP)0H$!^;DA%V2GFO@Y@1IG1[@""DQY/6_"
^XMB(3.9,22,2,4019,0)="""DATA"",396.18,215,3,460,0)"
^XMB(3.9,22,2,4020,0)="M(F?YMQ(^<[JH(Z,""LKIKZE+OB8V*'`XB8@-.28XA%5.J_I11==IM=GEW+@MZ"
^XMB(3.9,22,2,4021,0)="""DATA"",396.18,215,3,461,0)"
^XMB(3.9,22,2,4022,0)="M2X&""-J1S*4&0/^06Y""/?IQF=(1/C!8IAD/[SI-#%\HP$W0^FKT(:@,=0[/+_"
^XMB(3.9,22,2,4023,0)="""DATA"",396.18,215,3,462,0)"
^XMB(3.9,22,2,4024,0)="MIM@04Y9,<&6U!;?O2/+!H%[CY?FII?^!R>G?D&03''$L('?]V3N*`7'<^?83"
^XMB(3.9,22,2,4025,0)="""DATA"",396.18,215,3,463,0)"
^XMB(3.9,22,2,4026,0)="MHE+@A>%1.O<GW6_:OJ""OMN#J$$ETCZ&*O'JQR\&?D?2<6\1/5+0=&BOZT.A'"
^XMB(3.9,22,2,4027,0)="""DATA"",396.18,215,3,464,0)"
^XMB(3.9,22,2,4028,0)="MAI/P("";@X:0+=WZZKQ\I!0`CKYY$?*G2U(UU\ASR&;`'@EY:P[A%R#<`XW=2"
^XMB(3.9,22,2,4029,0)="""DATA"",396.18,215,3,465,0)"
^XMB(3.9,22,2,4030,0)="M/:DARTQ;T=E'#6)AY]2>#IDYR`2OZECT-1N('U1+@FLQ.<Q""AS7O^%PB///0"
^XMB(3.9,22,2,4031,0)="""DATA"",396.18,215,3,466,0)"
^XMB(3.9,22,2,4032,0)="M&6C(F+<""S_\?,2]/M2L].?_*!/91B4E)6.<Q#H,0^BF';7I<,M`<+L+P2G2A"
^XMB(3.9,22,2,4033,0)="""DATA"",396.18,215,3,467,0)"
^XMB(3.9,22,2,4034,0)="MPOUZDH>D2WU(8J636._0%8KE6-.M-XD4?8Z)HW5&PY%^1@K-0[V\<,V.4H<'"
^XMB(3.9,22,2,4035,0)="""DATA"",396.18,215,3,468,0)"
^XMB(3.9,22,2,4036,0)="M.1I=F$%.*4M;@)\93OP#/!`M)[[I]?T(<NS+0DJ`9""C>9$_]J-]0)0D4#I],"
^XMB(3.9,22,2,4037,0)="""DATA"",396.18,215,3,469,0)"
^XMB(3.9,22,2,4038,0)="M412L_W?<6N4A=F^3G<I7-A,`3I;%VU;$G.0O.),;1DJY3#824$GZWD@3CR0?"
^XMB(3.9,22,2,4039,0)="""DATA"",396.18,215,3,470,0)"
^XMB(3.9,22,2,4040,0)="MT#[8O&IX..&CLCW%DLF.D\/]N+/LR<XNR9;S!4=^@6LL:D&;(<;*.[!`7&/E"
^XMB(3.9,22,2,4041,0)="""DATA"",396.18,215,3,471,0)"
^XMB(3.9,22,2,4042,0)="MA'E=\1NK)*3)2\;*""_-ZQF^LHJ,QE6NL@C""O9;^QRL*UHF2L,C]6^E\23E1I"
^XMB(3.9,22,2,4043,0)="""DATA"",396.18,215,3,472,0)"
^XMB(3.9,22,2,4044,0)="M^T#GLWFAPCQDA3QK+;PH=OSJ)^(]W']!)5R)OV<UO]&HUI54=34A](P).U'J"
^XMB(3.9,22,2,4045,0)="""DATA"",396.18,215,3,473,0)"
^XMB(3.9,22,2,4046,0)="MH?X9<0=?IF?R:_:9?-R>:""XB1LU%>J&C7M8:->]T?/Q^912WH%;&IU>7C)I^"
^XMB(3.9,22,2,4047,0)="""DATA"",396.18,215,3,474,0)"
^XMB(3.9,22,2,4048,0)="MIX,FQ]>:3/@E:M$L8K::GW<W;>+@>G,EVP3Q2-G:Z9SAWEO@=&J-1RT2`8<0"
^XMB(3.9,22,2,4049,0)="""DATA"",396.18,215,3,475,0)"
^XMB(3.9,22,2,4050,0)="MB[)GA@N@('L'<44YL`#!5VSV\#%:9Q<7(;>N),S]:^ZY/\3-/5:I,KL2:`%I"
^XMB(3.9,22,2,4051,0)="""DATA"",396.18,215,3,476,0)"
^XMB(3.9,22,2,4052,0)="MHJ5MUY!?IP2O;XH>CAZ+O'XAP4KLRE-3D=(N6=^<K=.-CF9""CRUENJ/=@?_G"
^XMB(3.9,22,2,4053,0)="""DATA"",396.18,215,3,477,0)"
^XMB(3.9,22,2,4054,0)="MC!4=K<76*XU.4T>?5K8N:K4:H'8J6^:KAF4UV\K8);R`:-,J.RZC-Z#UUELM"
^XMB(3.9,22,2,4055,0)="""DATA"",396.18,215,3,478,0)"
^XMB(3.9,22,2,4056,0)="M^`CN;=G&(R'6-3MJK=UL*3OGFI""=CW[LFA#T9GF9G/LG]O`2`&6\N%,2'%DG"
^XMB(3.9,22,2,4057,0)="""DATA"",396.18,215,3,479,0)"
^XMB(3.9,22,2,4058,0)="M=UA&'#!GD)S4G>#]&LA*7]=,*$17=LVU]36<@6X_81]!VQU7<2N[[<^P1UYT"
^XMB(3.9,22,2,4059,0)="""DATA"",396.18,215,3,480,0)"
^XMB(3.9,22,2,4060,0)="M[9-EJ^0<SO1WV38?L?/\;G%U4K$JJ]SOE1#$D&9F'*;OA]VFKRNI^4!D:Y=F"
^XMB(3.9,22,2,4061,0)="""DATA"",396.18,215,3,481,0)"
^XMB(3.9,22,2,4062,0)="MCC)5ZZL>IP2@'#+6.#<6'T&P^P-+K=W\J,W]Q3HRV9TUV5YE<R7>Q:^Y*S3M"
^XMB(3.9,22,2,4063,0)="""DATA"",396.18,215,3,482,0)"
^XMB(3.9,22,2,4064,0)="MV4YEBP7'.X+DMROE=N1)-0M`Z.A?#OW+9Y1MA0R[XO*=)X.MI(T0`R::CSC1"
^XMB(3.9,22,2,4065,0)="""DATA"",396.18,215,3,483,0)"
^XMB(3.9,22,2,4066,0)="M+5$GZEXIRL=I/+WW$DX'D9]=SG.I1GPNR5@+JY,""*/HA^Y+L]2&Y)/OWN[DD"
^XMB(3.9,22,2,4067,0)="""DATA"",396.18,215,3,484,0)"
^XMB(3.9,22,2,4068,0)="M.\S<[QV""^TW6_C41#_Z;DDRK#[),*R2-VSJY85'G>ZNM3G-U""&[.!*H$A/\#"
^XMB(3.9,22,2,4069,0)="""DATA"",396.18,215,3,485,0)"
^XMB(3.9,22,2,4070,0)="M+)-.4L!27X2<FSI224U2F5-%+U""-QO-=]*O14""V]O69`]12]4^?_+`-Z/Z5V"
^XMB(3.9,22,2,4071,0)="""DATA"",396.18,215,3,486,0)"
^XMB(3.9,22,2,4072,0)="M&SA'AT^60`HI\.(]FZ>G\$-)P9/_DJ3&:>9B4\<I%]V:#=M1K0+^""4Y&H`H."
^XMB(3.9,22,2,4073,0)="""DATA"",396.18,215,3,487,0)"
^XMB(3.9,22,2,4074,0)="M[#,3=JJZTL;%%UI'S:FS<Y?)QYX('7[/%FBL\E%\`*\P$3\K""3H3RZ#:7,59"
^XMB(3.9,22,2,4075,0)="""DATA"",396.18,215,3,488,0)"
^XMB(3.9,22,2,4076,0)="M#U[CT4WWQT3@_`P[T3_B'O""0'7.FA4)DOYVT)H-BS33U9Q)S<Y*^H23I@C-O"
^XMB(3.9,22,2,4077,0)="""DATA"",396.18,215,3,489,0)"
^XMB(3.9,22,2,4078,0)="M#RD?*9_G1NH7VO^\#""2&*_'2Z2GIL3E[QK^HU?#1I%!=O:&%7AZZFSKG?TO6"
^XMB(3.9,22,2,4079,0)="""DATA"",396.18,215,3,490,0)"
^XMB(3.9,22,2,4080,0)="MX567[C[DK;O'-@8ECF%'_3Z1/Q]U0E,>L0VF7#$:QMK^""_SY0'L?,:XS8/YU"
^XMB(3.9,22,2,4081,0)="""DATA"",396.18,215,3,491,0)"
^XMB(3.9,22,2,4082,0)="MVE?-EX6#VZ'[XTV)7Y8KYH+4Y8C<GMWU-,GZRV8R:D]KURQE9ZX(""\X]>))\"
^XMB(3.9,22,2,4083,0)="""DATA"",396.18,215,3,492,0)"
^XMB(3.9,22,2,4084,0)="M!#W'#Z2U-SF:,4[/,C/7TE^U9>,);K:%^+>C9]?XD[R;T>^GD?X,]<)&<YER"
^XMB(3.9,22,2,4085,0)="""DATA"",396.18,215,3,493,0)"
^XMB(3.9,22,2,4086,0)="MN3*`I[$5T5^#*@5E[()F+JO(IV@H^R[I<(FP0N&4U@S\@4/(*X-[W0ZNO>7E"
^XMB(3.9,22,2,4087,0)="""DATA"",396.18,215,3,494,0)"
^XMB(3.9,22,2,4088,0)="MM[+MILEJY93Q2^C_%6W)`,]*&9VIZ:L:>DU/P\F9R->KUL%;F;BEH>.&#J6Z"
^XMB(3.9,22,2,4089,0)="""DATA"",396.18,215,3,495,0)"
^XMB(3.9,22,2,4090,0)="MACP]B\E>6]I$;JN<V+BVRBQQY:V$<$UI.'`0@.F5:%@^(_-&3?>.$]$(""WY["
^XMB(3.9,22,2,4091,0)="""DATA"",396.18,215,3,496,0)"
^XMB(3.9,22,2,4092,0)="M8A""\>0H)ELX)=[7I+SMA5?#4HU6TC#'#J><S_YNMEMY61J\VUP78RI3\,)<%"
^XMB(3.9,22,2,4093,0)="""DATA"",396.18,215,3,497,0)"
^XMB(3.9,22,2,4094,0)="M16HWA'[</LUE;K;9F.'X>*!^,-Q<`KJ0_E;""1VLY2U""VA""QZ<;Z2:JF?""WZE"
^XMB(3.9,22,2,4095,0)="""DATA"",396.18,215,3,498,0)"
^XMB(3.9,22,2,4096,0)="ML\Q&B5STDJ/52-3@F'""+Z`JWJ/EX@,MXNU[4%GQ=;'@T9D,.OI?8!`F*#WLD"
^XMB(3.9,22,2,4097,0)="""DATA"",396.18,215,3,499,0)"
^XMB(3.9,22,2,4098,0)="MAM""$B""<%X,R?E3A?>YCSU<>^';HL%^I$'\;$''>V,>)L^JL4B0*9W!B?U2;)"
^XMB(3.9,22,2,4099,0)="""DATA"",396.18,215,3,500,0)"
^XMB(3.9,22,2,4100,0)="MZ\J:6LCO)(6&554WXD3Q$G'3CMY@;7W$%QR5.FW!^4>E^ST!P6IC4,3H![>/"
^XMB(3.9,22,2,4101,0)="""DATA"",396.18,215,3,501,0)"
^XMB(3.9,22,2,4102,0)="M4'Q,I7-H\U/0[""D$SD#N++""&F!_!4_@CEPA\R#-W.1E=!+)N#V0O%1BHD*3G"
^XMB(3.9,22,2,4103,0)="""DATA"",396.18,215,3,502,0)"
^XMB(3.9,22,2,4104,0)="M>Z5<BH$$]`-08@D9!T5(2SOX-+,9,K15N9->$>K\ME/:OR(1@(>8`&3)PM>T"
^XMB(3.9,22,2,4105,0)="""DATA"",396.18,215,3,503,0)"
^XMB(3.9,22,2,4106,0)="M-MC+:_J0R<$LO15-[<$T'6-'->42%N-O(+-TH6Y8M&:JN=IJZW5:Z`%I2*<A"
^XMB(3.9,22,2,4107,0)="""DATA"",396.18,215,3,504,0)"
^XMB(3.9,22,2,4108,0)="M#PDBHU:UK>L-\""?XLXO[T9DF28.&LC-D29[""E1?/0ZF#A;L<&E5H24<J&>PR"
^XMB(3.9,22,2,4109,0)="""DATA"",396.18,215,3,505,0)"
^XMB(3.9,22,2,4110,0)="M'76IAR,%:^3*[XQZA=3I+'=TDN-D--`7$),AJ_ITS;""JB+LK(NP2R!0V`!(U"
^XMB(3.9,22,2,4111,0)="""DATA"",396.18,215,3,506,0)"
^XMB(3.9,22,2,4112,0)="M+W21>]T?&3G'+41)'W!HCA9,S).`&IX\&IAZ.9AX^_.M;AN]&!TW=1H8(Z7^"
^XMB(3.9,22,2,4113,0)="""DATA"",396.18,215,3,507,0)"
^XMB(3.9,22,2,4114,0)="M%*TU`W*A`@\'0Y#/535H_2#NLXA+=2`?G$YD""4IV9(S!Y7LPG%Y%GAJ$<&"""""
^XMB(3.9,22,2,4115,0)="""DATA"",396.18,215,3,508,0)"
^XMB(3.9,22,2,4116,0)="MM&*Q/Y_@K/$BO_@W7/7*_<4OX<77VY""N#J!8:""'9ZO3G=8KV=^N1TAZ\%^R"""
^XMB(3.9,22,2,4117,0)="""DATA"",396.18,215,3,509,0)"
^XMB(3.9,22,2,4118,0)="M'^?TUP&""""_AAU]Q8]6;7K$'1BU:K0>""(+!!ZITX`>""""`A(8EP4UX`-/@FUO*"
^XMB(3.9,22,2,4119,0)="""DATA"",396.18,215,3,510,0)"
^XMB(3.9,22,2,4120,0)="M=`7T3VS8Y3$DZH2KO!`9!$(1JGKL@DCGEL6U??;<852X8[;$A:JA#07OEZW"""
^XMB(3.9,22,2,4121,0)="""DATA"",396.18,215,3,511,0)"
^XMB(3.9,22,2,4122,0)="MT"")]%5@C8;SZZ1]G:OK3DN4_SLY^#6*YL&IPA@S&.`UM:@@.F&2W0N?P#F9:"
^XMB(3.9,22,2,4123,0)="""DATA"",396.18,215,3,512,0)"
^XMB(3.9,22,2,4124,0)="MM]KA.6IA05&#6""\)D'*+I-^IZBT[;;$*!6/HT*X9=JD9%)-ASK:;R""T$X0%1"
^XMB(3.9,22,2,4125,0)="""DATA"",396.18,215,3,513,0)"
^XMB(3.9,22,2,4126,0)="M6ZAW,BRL4-`36#`Z!;-'Z]SNP--NHVMU0430+Y]1;QD$;HL.2_:N8T1Q[JPD"
^XMB(3.9,22,2,4127,0)="""DATA"",396.18,215,3,514,0)"
^XMB(3.9,22,2,4128,0)="MBQ)&=J?&D7Q&';X,R@+KFTQ6^8MLE5^0E!J^O6`?`$3[JM9CDA*?::[""S.IT"
^XMB(3.9,22,2,4129,0)="""DATA"",396.18,215,3,515,0)"
^XMB(3.9,22,2,4130,0)="M:Q#"";3HXU-#UFE[#QP`.I=[FJG0QCMN:9G;)F3EIZ;IS$^`OKG2-&A353"")Y"
^XMB(3.9,22,2,4131,0)="""DATA"",396.18,215,3,516,0)"
^XMB(3.9,22,2,4132,0)="MBHZWL0IX>2`Q&_H*UJ`6)R@(FIY>.S.$C*<`6I3Q?\,8_YKD>+6(=$7DK!`&"
^XMB(3.9,22,2,4133,0)="""DATA"",396.18,215,3,517,0)"
^XMB(3.9,22,2,4134,0)="M-Y>70>W`$B""+N-E?!W6%&A3LP/'R2K/Z)43`R@:D^F(%=AKMV0:1PYP::U$M"
^XMB(3.9,22,2,4135,0)="""DATA"",396.18,215,3,518,0)"
^XMB(3.9,22,2,4136,0)="MAR4P7DTFTP';JF/BK!H0DH`;OX:M<W20='2HFCTVQA*:S[+1L;CK)_G+!)U)"
^XMB(3.9,22,2,4137,0)="""DATA"",396.18,215,3,519,0)"
^XMB(3.9,22,2,4138,0)="MWGA&/4^AU9S'\Y2XK_""&HI.EBT_Y8/:(OJ`""V%A&LL7L$1'/6-6O+#4LJCSN"
^XMB(3.9,22,2,4139,0)="""DATA"",396.18,215,3,520,0)"
^XMB(3.9,22,2,4140,0)="M^X[Q""-TPA)13Y'9EK^N.X^C&UUR6J!&0%P`T/Y'J=U'8!!;]$;D!Q+"""":>1W"
^XMB(3.9,22,2,4141,0)="""DATA"",396.18,215,3,521,0)"
^XMB(3.9,22,2,4142,0)="M""R5^1])MTA]C)OT<5_Y\4SP-PV;<LYR.'9BZ!QDTHD0""74`2Z!(3`!:3'J?="
^XMB(3.9,22,2,4143,0)="""DATA"",396.18,215,3,522,0)"
^XMB(3.9,22,2,4144,0)="M)[K5KUWVE@I($2]U-*K*&X@<""E>)K3I\W8@_K0/<*K855IM@,'3;&""I@V6A;"
^XMB(3.9,22,2,4145,0)="""DATA"",396.18,215,3,523,0)"
^XMB(3.9,22,2,4146,0)="MG<D^$"";<%K>H&4V^N$H0!3HZ-3G7M16=3-J$>NAL#@W8Z-1)13KH+JB91I^R"
^XMB(3.9,22,2,4147,0)="""DATA"",396.18,215,3,524,0)"
^XMB(3.9,22,2,4148,0)="MH/H$O:#=7,52@5D;+?*MT_A;B,2VT80B31.7K=?XUAT`[.H"")<6CP\C!]^8L"
^XMB(3.9,22,2,4149,0)="""DATA"",396.18,215,3,525,0)"
^XMB(3.9,22,2,4150,0)="MAD8:Q%ZG*_+?DMO9J6N#\<WKQ30H?""3)OSGU`Y)NTPLNOGN-R4HIQ3%O2>I%"
^XMB(3.9,22,2,4151,0)="""DATA"",396.18,215,3,526,0)"
^XMB(3.9,22,2,4152,0)="M9QSKYC4BC2[LQ.+OK81W6.Z!18\U]QJYS,_5'EK:&?OP#=]5ED!G.L0X19E."
^XMB(3.9,22,2,4153,0)="""DATA"",396.18,215,3,527,0)"
^XMB(3.9,22,2,4154,0)="M'R0O2T8HG1\D`C\E+,/'F!MG4_:L'8&O9`OQ`'23D2FNH)V6^TNN.!O068[9"
^XMB(3.9,22,2,4155,0)="""DATA"",396.18,215,3,528,0)"
^XMB(3.9,22,2,4156,0)="M]9&,X(IP9/W7M10/:$\)F2Q?9V>89:W$%7XQ1Z^."")GV8B:3LL4LQB-('++&"
^XMB(3.9,22,2,4157,0)="""DATA"",396.18,215,3,529,0)"
^XMB(3.9,22,2,4158,0)="MB-U'_C:YCWR;K?!^F_;3'.W1FI>4%S6KK^'#:_?(';F]S><\#Y+&($L^9YO/"
^XMB(3.9,22,2,4159,0)="""DATA"",396.18,215,3,530,0)"
^XMB(3.9,22,2,4160,0)="M+P\E#MY=Y68>];`VJ8#^:V),IRDK_DL2'W_8OB""D6?DJHK([3`F:#M(J7')T"
^XMB(3.9,22,2,4161,0)="""DATA"",396.18,215,3,531,0)"
^XMB(3.9,22,2,4162,0)="MZFEG:5+?=-C**`AHYF878:XE^2'3?R\Q1[(S+<-J0M`1L-B!3T8'0G&D:X%L"
^XMB(3.9,22,2,4163,0)="""DATA"",396.18,215,3,532,0)"
^XMB(3.9,22,2,4164,0)="M=P>^/""MT.WV1I1!+FB;<N=*H:BVMBJ'2(:C-YG*21`#AV9(.!FJ'H&G9>%$X"
^XMB(3.9,22,2,4165,0)="""DATA"",396.18,215,3,533,0)"
^XMB(3.9,22,2,4166,0)="M.-:J]RRC:FB-2;7_^0+$%$KJNJ[?)K=]C8ZQ9#0!U\K^^KG0""9^Y3(ZGIH^F"
^XMB(3.9,22,2,4167,0)="""DATA"",396.18,215,3,534,0)"
^XMB(3.9,22,2,4168,0)="M]=,27G[@6K-AR""DZ%\@U>K'[R82P""Q8E0.[P.;)4=E.(P-&%1!%[]!]TC[X/"
^XMB(3.9,22,2,4169,0)="""DATA"",396.18,215,3,535,0)"
^XMB(3.9,22,2,4170,0)="M9PU%'5[H"")Q^TP?Z_\`E'&YJ5'L$Q*9+,KT""WR""TT.UG@LB:^1VS$V4;GNL1"
^XMB(3.9,22,2,4171,0)="""DATA"",396.18,215,3,536,0)"
^XMB(3.9,22,2,4172,0)="M\+X""`R`])`0V4YID.:;[H4N6[,N-[I>0E^6K(E*S]!TU9VY+-I<I]PO!HN7E"
^XMB(3.9,22,2,4173,0)="""DATA"",396.18,215,3,537,0)"
^XMB(3.9,22,2,4174,0)="MS4$*WN@EI!?:RIZY+J!V-3!H&KG&4L8NZUI-J];U`9+DDB&2Y'S)+PM;WD7_"
^XMB(3.9,22,2,4175,0)="""DATA"",396.18,215,3,538,0)"
^XMB(3.9,22,2,4176,0)="M38[^\H#TX[S$L5GMCF&:6KNG;+G4;D(47MDRTZFO-HT:$JJMNMZ`G]+3IAF="
^XMB(3.9,22,2,4177,0)="""DATA"",396.18,215,3,539,0)"
^XMB(3.9,22,2,4178,0)="M""ZF[Y4)%.)J^7*@,+1?2`R1,'I1:=*Q`LI44^&&W@E?[_`B;=#@@8K:7_UT4"
^XMB(3.9,22,2,4179,0)="""DATA"",396.18,215,3,540,0)"
^XMB(3.9,22,2,4180,0)="M_.^K_D#3@O\=!/O<SZS>Y2Q,$L2?G?725ZK[.;9D@S*K1P.;%/`EJR5!H=OY"
^XMB(3.9,22,2,4181,0)="""DATA"",396.18,215,3,541,0)"
^XMB(3.9,22,2,4182,0)="M+MS+^37);91O_.U[X&<H?CRO""&1_QY_G^<C%7_X\%\V.AY*NEQ_F7EZ($\^E"
^XMB(3.9,22,2,4183,0)="""DATA"",396.18,215,3,542,0)"
^XMB(3.9,22,2,4184,0)="M+4?8=3'1MW_(>'W%)O>E?E5T-E9;;""RT*UNB1EJ*2+X'G$;:T7ZN:S87$7H?"
^XMB(3.9,22,2,4185,0)="""DATA"",396.18,215,3,543,0)"
^XMB(3.9,22,2,4186,0)="MFW,L'SZ:?^J7L$6W:6I&:$;U=W;&ZA\D-D&UX#&YVT;QWE(O""!FK_R%Q2`^["
^XMB(3.9,22,2,4187,0)="""DATA"",396.18,215,3,544,0)"
^XMB(3.9,22,2,4188,0)="M'-)K>O7VT/JC++V1E`R>C^*/WOME\J*!6A&_D."")X-H1]JDX(1:+L%L13YO^"
^XMB(3.9,22,2,4189,0)="""DATA"",396.18,215,3,545,0)"
^XMB(3.9,22,2,4190,0)="M?M#H98KDN=O5]$\D`@O.[^<Q2M]%WZZL4,5ZPUE#\SAG(Q<\;>1[1+RO)3ZK"
^XMB(3.9,22,2,4191,0)="""DATA"",396.18,215,3,546,0)"
^XMB(3.9,22,2,4192,0)="M69:R$[RRLQV[J0O#""Q&L;IZ)&^6-2>R,C'!.6);>I*UW%SG6%N.D=U/A(7'*"
^XMB(3.9,22,2,4193,0)="""DATA"",396.18,215,3,547,0)"
^XMB(3.9,22,2,4194,0)="M?`@Y=9CNKF5GX27HW6B%EQ-8SKO5;OK>;$5/Y2X_H+Z*GNZ37T\(&!'?MC7]"
^XMB(3.9,22,2,4195,0)="""DATA"",396.18,215,3,548,0)"
^XMB(3.9,22,2,4196,0)="M.YM!TQ_W*-*FFOXE`1C@/\-I>JA*'%9-7Z!B=1\F[%PL-7V!GMXO)W@B-D33"
^XMB(3.9,22,2,4197,0)="""DATA"",396.18,215,3,549,0)"
^XMB(3.9,22,2,4198,0)="M>^M=ZA'_I5ALF'I6TOK)62U^5VJPP*_7-4KJ9Q*N%E""Y3#XS6*QH#XW/=G""H"
^XMB(3.9,22,2,4199,0)="""DATA"",396.18,215,3,550,0)"
^XMB(3.9,22,2,4200,0)="M%*""4+.7(10-2!I%RZJE+$$.OD^X.2'JNU%5H?J%LNX""T#&`I00'O#?3W9KM="
^XMB(3.9,22,2,4201,0)="""DATA"",396.18,215,3,551,0)"
^XMB(3.9,22,2,4202,0)="MUS6I9OO>:;.BN!<8@TXF90S*;LXV=""QR\'N$!X=\M%DFJC8#6;;Q3B0%,TQI"
^XMB(3.9,22,2,4203,0)="""DATA"",396.18,215,3,552,0)"
^XMB(3.9,22,2,4204,0)="M@A/YWM""5/=Z5:GE$6O7#?,AK0M/T64F&X&,NS3+;[$*/)""3#%M!)U#I#I&5$"
^XMB(3.9,22,2,4205,0)="""DATA"",396.18,215,3,553,0)"
^XMB(3.9,22,2,4206,0)="M&@7;_7),E(Q`0IE&9GXMP=,0>V]2K&JD]3H4&3+]NPGOO+*X>Y,Y?D<^Y\3;"
^XMB(3.9,22,2,4207,0)="""DATA"",396.18,215,3,554,0)"
^XMB(3.9,22,2,4208,0)="M6^@KB5QYF+W);9>;\';L0FZ!I[5F6]D]W]+U:AUWQR(Z6]ESH:[CDB;NV?[Y"
^XMB(3.9,22,2,4209,0)="""DATA"",396.18,215,3,555,0)"
^XMB(3.9,22,2,4210,0)="M=8U5.G&/[Y\GREI=T.IWNBKI1Y*R9:EX(:]M)E5N=_^@8D=U%<7SGFDT`(Y#"
^XMB(3.9,22,2,4211,0)="""DATA"",396.18,215,3,556,0)"
^XMB(3.9,22,2,4212,0)="M1'LTV]B,0\ICX]4ZPVZ8%1)VSMBY2[^Y&9#D3GCT;:$*XU6R<B.4^"",2Q?Z("
^XMB(3.9,22,2,4213,0)="""DATA"",396.18,215,3,557,0)"
^XMB(3.9,22,2,4214,0)="M2['/6;UJW=`0VZO#ZCGF6.!?Q;KB`78]];9$(S[BT(A0JAL+A<CN/=\F""O''"
^XMB(3.9,22,2,4215,0)="""DATA"",396.18,215,3,558,0)"
^XMB(3.9,22,2,4216,0)="M7!>]A_M=.DY`.1G!HN6P-@?J*\P,^'PR\+4NYW)B8Z#(*`AD^D12B)[_D[-["
^XMB(3.9,22,2,4217,0)="""DATA"",396.18,215,3,559,0)"
^XMB(3.9,22,2,4218,0)="M^4BQDBU%DCO9.0H&J+:X7<XJLV!OU)M6""SJ0&2_BQ""`93-E01L^VA.?N%'?7"
^XMB(3.9,22,2,4219,0)="""DATA"",396.18,215,3,560,0)"
^XMB(3.9,22,2,4220,0)="M:3/W=US,+67RT?)53V)0K9;>MO#1:NLF*7&K&ZV^CC=T*S8\#8]5Q7JL'1+`"
^XMB(3.9,22,2,4221,0)="""DATA"",396.18,215,3,561,0)"
^XMB(3.9,22,2,4222,0)="M<&NN_5JN1-NO6Z<;=PR]TXL-RR)8%UG^ROT3""4^>53(1V]5?U'%#RSB=WM!-"
^XMB(3.9,22,2,4223,0)="""DATA"",396.18,215,3,562,0)"
^XMB(3.9,22,2,4224,0)="M+5A!#&7;&PG/XXOX%@U`_QCN:H2!5QL=9$.>18+2Q/6VK2;4""1F:&1M^CH3G"
^XMB(3.9,22,2,4225,0)="""DATA"",396.18,215,3,563,0)"
^XMB(3.9,22,2,4226,0)="M9T70-?3HIM^2\;,<B9_'+QK0""'$)""KXQ7]?T%;V#R[S5Y6ZC&BOU$AYPL""""D"
^XMB(3.9,22,2,4227,0)="""DATA"",396.18,215,3,564,0)"
^XMB(3.9,22,2,4228,0)="MKK[O<ZXC9I'LFN\N`1H\VI#:4M?28\,[)6SN(<M()7O16R:""#UJ*=K@A0+[<"
^XMB(3.9,22,2,4229,0)="""DATA"",396.18,215,3,565,0)"
^XMB(3.9,22,2,4230,0)="MC95,'`O+-M;9AK+M#5^V%:/%G)$KB0Q$K=-!-,?'<-D6.MNUP!_6K_MR+IKE"
^XMB(3.9,22,2,4231,0)="""DATA"",396.18,215,3,566,0)"
^XMB(3.9,22,2,4232,0)="MLGO>U/460%QH1IL4/<2$>:/A15U>V'A?3_C8?=%DG8*=UMBP;+NTU4R1]]%/"
^XMB(3.9,22,2,4233,0)="""DATA"",396.18,215,3,567,0)"
^XMB(3.9,22,2,4234,0)="M,A_]?3L(<<-V-$K9.*5VC(?>(""RE\AL)H8#NXPGW^:I$!=7FPS22Z%GL4CSR"
^XMB(3.9,22,2,4235,0)="""DATA"",396.18,215,3,568,0)"
^XMB(3.9,22,2,4236,0)="M&;X]>HJRZA\W5[SN47DXBPF2]\D^42CQ_RM)\5!9O&ZV:R%_NFG=UDT=<)V&"
^XMB(3.9,22,2,4237,0)="""DATA"",396.18,215,3,569,0)"
^XMB(3.9,22,2,4238,0)="M-53'P`EHZLZD3[/E9YIH@0-`^G.TA6]J'(N5S[IR'W:$:'/L,33K!#LN8@M+"
^XMB(3.9,22,2,4239,0)="""DATA"",396.18,215,3,570,0)"
^XMB(3.9,22,2,4240,0)="MBN#V`/=-'6!3PQ:IL5N?<8$-\^ZQ=Y*Q@_C`6AP1OFXP(PK""V&Z4Y?[8N_&B"
^XMB(3.9,22,2,4241,0)="""DATA"",396.18,215,3,571,0)"
^XMB(3.9,22,2,4242,0)="M16($C>Z]FQ0X\9R$R[C4<!G:7P4Q@^;;/I7BQ^3J[/M%G^<E-Z1FLZIQC>T!"
^XMB(3.9,22,2,4243,0)="""DATA"",396.18,215,3,572,0)"
^XMB(3.9,22,2,4244,0)="MKQ#7;IIF_W,G[<E,AB_?9*;ITX36AYT&PH.N,'4+@"";Q-`RKRMK8VK,(?B$-"
^XMB(3.9,22,2,4245,0)="""DATA"",396.18,215,3,573,0)"
^XMB(3.9,22,2,4246,0)="M&C^5W/A=0=-]V=CVKO@A21GG53='`\N&&;+(NXZY2\;?2\I$PVP-5B]%MD;Z"
^XMB(3.9,22,2,4247,0)="""DATA"",396.18,215,3,574,0)"
^XMB(3.9,22,2,4248,0)="M5Q,^>^/""H'NC/YT(FX.5FBT0>E5F(;TFZ_@];5F&A6,'FE$3T.AHDQFOE]!+"
^XMB(3.9,22,2,4249,0)="""DATA"",396.18,215,3,575,0)"
^XMB(3.9,22,2,4250,0)="MO-&4^)(ORJY*)+6D*L9>X]\=T.Z%IFJF)H2KF3[,39_;QZ<QQB)@92Z;2(]T"
^XMB(3.9,22,2,4251,0)="""DATA"",396.18,215,3,576,0)"
^XMB(3.9,22,2,4252,0)="M6SA,\CS6`G3GGPOLHLS:!-`6U(S`U)Q$LM[$0&QV""7#`ALS3JB`V]$4V]""6)"
^XMB(3.9,22,2,4253,0)="""DATA"",396.18,215,3,577,0)"
^XMB(3.9,22,2,4254,0)="M[B)#7PQ73YRGP(5LY&4V\@E96@I4ST*K@H"":89:=-X*'O)9TI><5[#%?N8&Q"
^XMB(3.9,22,2,4255,0)="""DATA"",396.18,215,3,578,0)"
^XMB(3.9,22,2,4256,0)="M!1EH[*,6^&DT9HKA@#!6(@,'<@`DFL:JT;&19U>;'0J910`/661+,SG?C]7S"
^XMB(3.9,22,2,4257,0)="""DATA"",396.18,215,3,579,0)"
^XMB(3.9,22,2,4258,0)="MLV66GA&/M!""Z!I^G'8I<_>4/!MR""[1OH%HRV34[_3_!K7;=@^^\B-R3'FR!V"
^XMB(3.9,22,2,4259,0)="""DATA"",396.18,215,3,580,0)"
^XMB(3.9,22,2,4260,0)="M,EJ_.Z=F.PS93&48*PQ(BV)<]RUV3]FZJ&NW27<69#1J9@\ZJ!RXJ%<!=@QC"
^XMB(3.9,22,2,4261,0)="""DATA"",396.18,215,3,581,0)"
^XMB(3.9,22,2,4262,0)="MZ**MP#J8'KS9J""*_""XW2Z9%=MD;:H&Y$@DABH`01%BHAQN&7W(U3^[Y<-IN)"
^XMB(3.9,22,2,4263,0)="""DATA"",396.18,215,3,582,0)"
^XMB(3.9,22,2,4264,0)="M4T9(4EJ9D>?)_3=?<C/EF""7`^)[`K.""O^!_!TI`?P;'YCK&\3$[=1<""WAIXW"
^XMB(3.9,22,2,4265,0)="""DATA"",396.18,215,3,583,0)"
^XMB(3.9,22,2,4266,0)="MRL15$.'HS!'AC53,NF[BSK0;<;S2@U4""B2Z'__G*Q*HQ\8B4WJ)`;\`!*\8,"
^XMB(3.9,22,2,4267,0)="""DATA"",396.18,215,3,584,0)"
^XMB(3.9,22,2,4268,0)="M\<WW@.4$_^\))UHC?[ZR`P!-^.U\424I%Y`5W[4&KA(8&VRGB[[J#%WX7TFX"
^XMB(3.9,22,2,4269,0)="""DATA"",396.18,215,3,585,0)"
^XMB(3.9,22,2,4270,0)="M:]ZRF5R<%GY;P,+G!6?85[)FLT,K67>?1V.#P=N`ZCK<9&XWQ'QMDQ@_VCK="
^XMB(3.9,22,2,4271,0)="""DATA"",396.18,215,3,586,0)"
^XMB(3.9,22,2,4272,0)="M7J4_7=57R$_C\-,Z,X-VD>>`+E77+4.SR-\;W=6E#:O*5`;;H=2E>C(9QM;)"
^XMB(3.9,22,2,4273,0)="""DATA"",396.18,215,3,587,0)"
^XMB(3.9,22,2,4274,0)="MQVF+;I'26Q;H]9?%V5@=R0#TGYP8<F$K+1?&^:$6QML'V^H5(3KTE81+&C_'"
^XMB(3.9,22,2,4275,0)="""DATA"",396.18,215,3,588,0)"
^XMB(3.9,22,2,4276,0)="M<:`0IZ4?#UCZHA!].NV.%_0XB)?B`&N_ZWJ[4\?(=P9@]7>0R+O0;+?1MR&4"
^XMB(3.9,22,2,4277,0)="""DATA"",396.18,215,3,589,0)"
^XMB(3.9,22,2,4278,0)="M9-6;.EKM\VVMJBM;KS>@+P;`1""VL-_%/EK(-/VQW.]6Z,HX?XY_17Y1%S;P]"
^XMB(3.9,22,2,4279,0)="""DATA"",396.18,215,3,590,0)"
^XMB(3.9,22,2,4280,0)="MR"";9,]`FF<H(,32;5=^4LJH4ITVR-_1=9H['6T]G6$""DZ^H/G,_XE*EOE0%C"
^XMB(3.9,22,2,4281,0)="""DATA"",396.18,215,3,591,0)"
^XMB(3.9,22,2,4282,0)="M#>5=Y0Z_3L/EHA""_.Y-T:8S]'#N*0>!,.YUS4Q9U_;;94_;,K.GMGIH#4,F\"
^XMB(3.9,22,2,4283,0)="""DATA"",396.18,215,3,592,0)"
^XMB(3.9,22,2,4284,0)="M""@\M92]YEH5G.746`X.SAWEX6'`\+!)(2OIP^W6<0:5^OZZUP0:Q+-*L&'XW"
^XMB(3.9,22,2,4285,0)="""DATA"",396.18,215,3,593,0)"
^XMB(3.9,22,2,4286,0)="M>PE?JL50Z[/^5`=""4NURM5R]C#8YFB$E[:+60[]@DJ;(+^/T+X01^\_KG75="
^XMB(3.9,22,2,4287,0)="""DATA"",396.18,215,3,594,0)"
^XMB(3.9,22,2,4288,0)="M;Z`'$)LOT,>[9YND=T\#48F)]B=*#/)V_(F:""B)JMQMSPS!KRM;99@VZ""NN*"
^XMB(3.9,22,2,4289,0)="""DATA"",396.18,215,3,595,0)"
^XMB(3.9,22,2,4290,0)="M@N.YNKPG-.O<2`3-3[*YO&[/Y8/<7&(5=9GPJ\""E5[HF]@N*E.@3]M7_Z&:X"
^XMB(3.9,22,2,4291,0)="""DATA"",396.18,215,3,596,0)"
^XMB(3.9,22,2,4292,0)="M^C_I<3]#KX5O""TTZKDHJ=29=E3J7]56C>O9J;[55USI#5:TCEJ_2Y3V`29R."
^XMB(3.9,22,2,4293,0)="""DATA"",396.18,215,3,597,0)"
^XMB(3.9,22,2,4294,0)="M8P5N)<.W=V8T;+8*7!J8^!:1A.\R9^!&,+)D.E1G!R&<GA<X.N^J/7_)S@XK"
^XMB(3.9,22,2,4295,0)="""DATA"",396.18,215,3,598,0)"
^XMB(3.9,22,2,4296,0)="M3L4WO+S;:7:7^+/`J/[EA!MGD$^*&\)8R.&9A@D0OK@3(L&24DV01&H#`(Z5"
^XMB(3.9,22,2,4297,0)="""DATA"",396.18,215,3,599,0)"
^XMB(3.9,22,2,4298,0)="M#\S<@?Z-N(&FJ>LU]*VS2^VN84&8^2`+...^+[07NX&^M9==$L&HR^`>=I$?"
^XMB(3.9,22,2,4299,0)="""DATA"",396.18,215,3,600,0)"
^XMB(3.9,22,2,4300,0)="M@?&#\4&JU@W31';`-7S?CD;1D%=Q^#)B;;/=(Q#BU=LF\AK0\.P*6=EK8XH8"
^XMB(3.9,22,2,4301,0)="""DATA"",396.18,215,3,601,0)"
^XMB(3.9,22,2,4302,0)="M#4A1@9JD>U9I'#93L""S`9K!.59].2-`7""]'J$`X1-6'::N)[`*%!X3/W""H7"""
^XMB(3.9,22,2,4303,0)="""DATA"",396.18,215,3,602,0)"
^XMB(3.9,22,2,4304,0)="MW[`5^.IF4.""3'JE'=.7>%7/W9+6VQR5`C%TD39HKPZ&\/=0""C=>_2`(%3R>]"
^XMB(3.9,22,2,4305,0)="""DATA"",396.18,215,3,603,0)"
^XMB(3.9,22,2,4306,0)="M^TU'1AL:6\#;GQ.4['>:)9;:@KGZ%.7J5^TM]=W$_=P+28^]0""V=5_""DQRFC"
^XMB(3.9,22,2,4307,0)="""DATA"",396.18,215,3,604,0)"
^XMB(3.9,22,2,4308,0)="M7I%`]=NY5T:C:G9!.MJ)1D%I4NS^Y""^2_%NXN`V7-62_AHLS""UE-@2_+\Q1="
^XMB(3.9,22,2,4309,0)="""DATA"",396.18,215,3,605,0)"
^XMB(3.9,22,2,4310,0)="M<%H$7!Z@_:K00Q<$.MC8ER5Y.ZQKEZ4;+W;;>N#(16'D5RB'/BOAT%%'/P!H"
^XMB(3.9,22,2,4311,0)="""DATA"",396.18,215,3,606,0)"
^XMB(3.9,22,2,4312,0)="MM(A>A-MNA7U;B6?1*X,EW(4KUV""EN^3F:(*^ZF7VJL?ZH<I\M)K)`[S>M=,S"
^XMB(3.9,22,2,4313,0)="""DATA"",396.18,215,3,607,0)"
^XMB(3.9,22,2,4314,0)="M8E-_D`C-0!KN;20%#OXPX^""Q/@=ST3BX8XZ[R3DW&.A[Z$(Q5CM+]L$E)Q7<"
^XMB(3.9,22,2,4315,0)="""DATA"",396.18,215,3,608,0)"
^XMB(3.9,22,2,4316,0)="M/HA8'S]VC=X^#4A!*BP%[+J?PNS[D9#+1RP3),=6I5;A@)2$/I,E_DRF7TWX"
^XMB(3.9,22,2,4317,0)="""DATA"",396.18,215,3,609,0)"
^XMB(3.9,22,2,4318,0)="M+48TPVU""\""3/#=Q(0.)\Y7B1Q<I2_MF6CX]P@B0;^U2FJ:R@#GS)S65C?YLY"
^XMB(3.9,22,2,4319,0)="""DATA"",396.18,215,3,610,0)"
^XMB(3.9,22,2,4320,0)="M)2SN#3]JL['RK--2:O/""XOJ2FXO5U<R8E%S!:$I_*N%+;S%FV2,2>HO<9@X@"
^XMB(3.9,22,2,4321,0)="""DATA"",396.18,215,3,611,0)"
^XMB(3.9,22,2,4322,0)="M-UN)69942&5?XA7,GS`%LRI3,-&JF\>!P^V>""L`/`ZJ7[:&IH&[R+R9$,IZ7"
^XMB(3.9,22,2,4323,0)="""DATA"",396.18,215,3,612,0)"
^XMB(3.9,22,2,4324,0)="M:?QHQ;)[YIK(:KW`Y0\/2,QX:)U/-<J9I$C,1V3$5**MR2T#9^'?Q9KL""$T&"
^XMB(3.9,22,2,4325,0)="""DATA"",396.18,215,3,613,0)"
^XMB(3.9,22,2,4326,0)="MBVH[R*C)R(B&!;2'P@#VH7L')&8B-#'4+?Z8XYP\)R.F'+%_2:?=O'VW%N7."
^XMB(3.9,22,2,4327,0)="""DATA"",396.18,215,3,614,0)"
^XMB(3.9,22,2,4328,0)="MA%>$I4`#[]])!$98MD.)@ZO&(141=\O#.2KRNYH!T4NKE;/9:/`3^_Z/O6N/"
^XMB(3.9,22,2,4329,0)="""DATA"",396.18,215,3,615,0)"
^XMB(3.9,22,2,4330,0)="MD>0XZS/3N[./V]U;W\.^M_ON[/@NOK-GNN=YB1_GW7LE=^?E]LY&#G;2.].["
^XMB(3.9,22,2,4331,0)="""DATA"",396.18,215,3,616,0)"
^XMB(3.9,22,2,4332,0)="MT[Z9Z6%ZYO;&V$$.B6*(D0U!0'""LV,C840111%``(6('L$5""C(Q$""""!%$""$0"
^XMB(3.9,22,2,4333,0)="""DATA"",396.18,215,3,617,0)"
^XMB(3.9,22,2,4334,0)="M`J$$$<,?$8^J[JKJJNGJGJZYW6SW""LG2[<QZJ_O[ZJNOOO>/""G21\&-_<""\R"
^XMB(3.9,22,2,4335,0)="""DATA"",396.18,215,3,618,0)"
^XMB(3.9,22,2,4336,0)="M!0%;'#UN/V%<O),9!02D9Q),@><WR43AJ<T0#KW3!TT4N4-+3#XSE0SH9"";1"
^XMB(3.9,22,2,4337,0)="""DATA"",396.18,215,3,619,0)"
^XMB(3.9,22,2,4338,0)="MT`=@*T@GLN/J4:0W=6N,Q]5CN+]7V''U7Q-/9%I1I3&'IE\Z^R3](K89O\FA"
^XMB(3.9,22,2,4339,0)="""DATA"",396.18,215,3,620,0)"
^XMB(3.9,22,2,4340,0)="M\<YY&/""#E+5U""]Q2%@G^-;1&PUQI:XUCLF&WP)T8W*N&PG/2&XX>_UM/V_2A"
^XMB(3.9,22,2,4341,0)="""DATA"",396.18,215,3,621,0)"
^XMB(3.9,22,2,4342,0)="M*(TP'A'/V688X5E`C)7(X3[AYFS5392S+=+G?J%_7O,):C""P$FGTG_/=1@M5"
^XMB(3.9,22,2,4343,0)="""DATA"",396.18,215,3,622,0)"
^XMB(3.9,22,2,4344,0)="MY,Y>-%JMNDY!L48M(8HNT1>8A*B+N43-'LZ)>3VSZ)H9.@WJK=O*(@L.J9R7"
^XMB(3.9,22,2,4345,0)="""DATA"",396.18,215,3,623,0)"
^XMB(3.9,22,2,4346,0)="ML,KY%#D962(DN5PA'K$6?_L&^>3[&#R:+Y#4W,N;P;PYY@/LAL)-;[*3E8^%"
^XMB(3.9,22,2,4347,0)="""DATA"",396.18,215,3,624,0)"
^XMB(3.9,22,2,4348,0)="MFJQ\IM?4*U%/]^)9--]U+K'K`?BRD[Q^Z]10_=8(XTAZ)#GPJ:/""B#9(V-TB"
^XMB(3.9,22,2,4349,0)="""DATA"",396.18,215,3,625,0)"
^XMB(3.9,22,2,4350,0)="M>/)%%B52#MN[>3_:S2H1Y5QR.SP;Y+3<=4EKKNC27R5O9K^^W`8;`V1X8O)D"
^XMB(3.9,22,2,4351,0)="""DATA"",396.18,215,3,626,0)"
^XMB(3.9,22,2,4352,0)="MMV,ZWX]'+T&=Q7,'2HZ+]QCB\I->RV@WD=IKVHH!#3Y<QK,!9`V8`9$MH:[Y"
^XMB(3.9,22,2,4353,0)="""DATA"",396.18,215,3,627,0)"
^XMB(3.9,22,2,4354,0)="M<5MX'L/""LQ0,ESZ'2O$B8YR75&J""0^H]B(IS7BJF+^A-K5VIZ?+)%?W$#;[_"
^XMB(3.9,22,2,4355,0)="""DATA"",396.18,215,3,628,0)"
^XMB(3.9,22,2,4356,0)="MNVOW_CFZE)H0L-=+P""BL-K?\ELDS0CKFGU&?`7PP6UK76A-&K.%&(N-%2C$4"
^XMB(3.9,22,2,4357,0)="""DATA"",396.18,215,3,629,0)"
^XMB(3.9,22,2,4358,0)="M""#.BR##B,%JFS3FM@!%6IVU/-ZF;J\!G@:.XKVGU""/&DQ/`$$[/+2\P(K/7W"
^XMB(3.9,22,2,4359,0)="""DATA"",396.18,215,3,630,0)"
^XMB(3.9,22,2,4360,0)="M6X558+B8^%H(EE31;);HL`17%2.6G!R.)66%UAJC_>-OW'D[!^;IZI8&84\+"
^XMB(3.9,22,2,4361,0)="""DATA"",396.18,215,3,631,0)"
^XMB(3.9,22,2,4362,0)="MO+M9/1%!O5Y&MLB<L]M/]'<G4@.G%DRK4S'AY'YR49V(7OBEG*,)DGXMX7\!"
^XMB(3.9,22,2,4363,0)="""DATA"",396.18,215,3,632,0)"
^XMB(3.9,22,2,4364,0)="M[X(4-9!^BSA5>:9_]@1N6_D8)^*RN[\(*@J!I(&""B.W$$2;TQRE5FSD/SU9+"
^XMB(3.9,22,2,4365,0)="""DATA"",396.18,215,3,633,0)"
^XMB(3.9,22,2,4366,0)="M:\E6`VCVZ,3]&""7Q(43`14ZMW=GK=@][6U]I:LU*+SH4,,91TW\VW#:WZ!$3"
^XMB(3.9,22,2,4367,0)="""DATA"",396.18,215,3,634,0)"
^XMB(3.9,22,2,4368,0)="M017:C5X^!0S`*;0T_!E%""W5F0M\]?<U?(_E21NFK,X%_/$TMA(1$^L,DHXGO"
^XMB(3.9,22,2,4369,0)="""DATA"",396.18,215,3,635,0)"
^XMB(3.9,22,2,4370,0)="MXRR58_+`G*449JE;`Y8J,/5CG*549JE[`I8J]566>);*TZP:]6=55@FLS?.!"
^XMB(3.9,22,2,4371,0)="""DATA"",396.18,215,3,636,0)"
^XMB(3.9,22,2,4372,0)="MCD2Y?ND-YTWK:/W'\/JWD<GQ89.1PZ3I)L*_;X%^7^G9A/\+J]GU>^')\""^,"
^XMB(3.9,22,2,4373,0)="""DATA"",396.18,215,3,637,0)"
^XMB(3.9,22,2,4374,0)="M`IF.9_\#'*5ZSHMU4""R+Y?>F%O3Z-:,B-S0Z:STJ0L9L>#*0#:@DV1&#JQPR"
^XMB(3.9,22,2,4375,0)="""DATA"",396.18,215,3,638,0)"
^XMB(3.9,22,2,4376,0)="MQ!*].YV4QTJOB6^E(];1(>G9SHN@XT8)QU%MXHMRA(2/'G$CZ-D8C,+>&7K3"
^XMB(3.9,22,2,4377,0)="""DATA"",396.18,215,3,639,0)"
^XMB(3.9,22,2,4378,0)="M2EE:]GXK2/9*RE""R!T>L#+E7,UQMQUP,)WRT'0S[YTM#5,!B5.^?L)=_,&#D"
^XMB(3.9,22,2,4379,0)="""DATA"",396.18,215,3,640,0)"
^XMB(3.9,22,2,4380,0)="M2""9?%M,>486XX:`NYNE+_4G$A&326[.1*61B-O,KI!@4Z'-!D.R>X\J!6""7T"
^XMB(3.9,22,2,4381,0)="""DATA"",396.18,215,3,641,0)"
^XMB(3.9,22,2,4382,0)="MUI-+5;-AQ^[8LR%TO=P4FI(23<G[@RD1NU[V@$VLP@Y#LRTOF:MZG9>\$2%J"
^XMB(3.9,22,2,4383,0)="""DATA"",396.18,215,3,642,0)"
^XMB(3.9,22,2,4384,0)="M6^BRM0QSU_CK+9NJO&!CGMNWJ#?!5NG@C4V?OHLUK<53&*(P;H7T,URBQ#H("
^XMB(3.9,22,2,4385,0)="""DATA"",396.18,215,3,643,0)"
^XMB(3.9,22,2,4386,0)="M=D&@&3CUM2HO]>2ZUFJ;5L5L]=:[)`]#7B*:B'$SFN31)%;,EGW`ECDH?$@."
^XMB(3.9,22,2,4387,0)="""DATA"",396.18,215,3,644,0)"
^XMB(3.9,22,2,4388,0)="MC>8UL^Z,)(6#;%:;<$SR#1,[S561!<:Y/N>Q&:2G,4!Y-EN,UXBB'>%M/L9\"
^XMB(3.9,22,2,4389,0)="""DATA"",396.18,215,3,645,0)"
^XMB(3.9,22,2,4390,0)="M>""?@&!8554QBMSV$$APD%^Y?F1;""JF""*QYCJO[""DJHP;=*G?JZ`I#=6CM`[4"
^XMB(3.9,22,2,4391,0)="""DATA"",396.18,215,3,646,0)"
^XMB(3.9,22,2,4392,0)="MC""?"")_)1$#OED+,/[=S/\5""$<V+G\A8JH:K5-P4*BD)/&2;E<]_97+GUX_P("
^XMB(3.9,22,2,4393,0)="""DATA"",396.18,215,3,647,0)"
^XMB(3.9,22,2,4394,0)="M#[Z6G#)8`@'SKQP4E`,XMP[^-3I0.34U<)%&-JF.40:?3#)#AMSTMCQ\#[5/"
^XMB(3.9,22,2,4395,0)="""DATA"",396.18,215,3,648,0)"
^XMB(3.9,22,2,4396,0)="M0AT%HZ3!3^3/34^M#98OUF:'V.:KG^<--BB)'G]F\X>NYPDL$&#FL>,""@=?)"
^XMB(3.9,22,2,4397,0)="""DATA"",396.18,215,3,649,0)"
^XMB(3.9,22,2,4398,0)="M>3S.+Q!X/JX%`KBS8=$1F]N2,9]TPR4200A)#SM$;DGZP]O,7#8:N@539/*J"
^XMB(3.9,22,2,4399,0)="""DATA"",396.18,215,3,650,0)"
^XMB(3.9,22,2,4400,0)="MKE\-Z-CVN<W1.41P&!@S1<HG/7$/M2""&`#9[60?_0Z5;UV#+=KC8Q^A%.$HE"
^XMB(3.9,22,2,4401,0)="""DATA"",396.18,215,3,651,0)"
^XMB(3.9,22,2,4402,0)="M/0Z,=`BE""8[=O&;4>V3>W+@]+ZW>NS.X*]F/5A3`O>B<]78`K8)H9Y-G]8;6"
^XMB(3.9,22,2,4403,0)="""DATA"",396.18,215,3,652,0)"
^XMB(3.9,22,2,4404,0)="M`2==6R\JI\)36:2IE'XE<$O%/,*Q1:!F:8#LD4$TIK+7TR/*<?5Z6KI7O1[<"
^XMB(3.9,22,2,4405,0)="""DATA"",396.18,215,3,653,0)"
^XMB(3.9,22,2,4406,0)="M!.1'3YFAYZM!].3*@NWD9J5OUX:G:""8T17GZS)$:O6\E.&(H%E&9(451L*3`"
^XMB(3.9,22,2,4407,0)="""DATA"",396.18,215,3,654,0)"
^XMB(3.9,22,2,4408,0)="M)4H:1-24#8W>,#H04\45S,0P:9*\2FN4R60`>04Q\J;AO00SZ!>8,/X:4#<6"
^XMB(3.9,22,2,4409,0)="""DATA"",396.18,215,3,655,0)"
^XMB(3.9,22,2,4410,0)="MGCI6AP1NGIBY,&N;""X""Z\SKLL%M;`L-GC?)%>ON49)""2%#MM.T_9LW5A57?/"
^XMB(3.9,22,2,4411,0)="""DATA"",396.18,215,3,656,0)"
^XMB(3.9,22,2,4412,0)="M\B),2S<X_L""/GC)]V,X'*0^QB1K;KB##CHQH&3*ZG^)F8HJ,H9/#^W""*O/A#"
^XMB(3.9,22,2,4413,0)="""DATA"",396.18,215,3,657,0)"
^XMB(3.9,22,2,4414,0)="M^,658CE.\*0WA=XZA$&!1#'P(LN):9+Q^9ZUGK?U2'@:F>,6=+GELL(VB65`"
^XMB(3.9,22,2,4415,0)="""DATA"",396.18,215,3,658,0)"
^XMB(3.9,22,2,4416,0)="M//+>>E$Y&IY*Y@Y/'0E2*F(FR?8K;;U3:T-L,Q(>6R=R.8GLF[GDL@8+L:G_"
^XMB(3.9,22,2,4417,0)="""DATA"",396.18,215,3,659,0)"
^XMB(3.9,22,2,4418,0)="MQW-'%'-E,6HGYHW^T4?^:A-HF?3(W,F%^?04,$_-*OI3MN77FU?$D>K?[?,^"
^XMB(3.9,22,2,4419,0)="""DATA"",396.18,215,3,660,0)"
^XMB(3.9,22,2,4420,0)="MBOUU%.#MW2ZJ81+E#!1?@%`4BCFQ?,Q.K)K/-2M@'X&Z:E;T(;5S,CPYM.$3"
^XMB(3.9,22,2,4421,0)="""DATA"",396.18,215,3,661,0)"
^XMB(3.9,22,2,4422,0)="MZ%WDQ$[R^!4@U</?+U)X4UMECFG@92EFW&PY7=>:5]?5#]P2&+>DX<+($,1O"
^XMB(3.9,22,2,4423,0)="""DATA"",396.18,215,3,662,0)"
^XMB(3.9,22,2,4424,0)="MDSC)+X6.6SJ'(17]*.9=_.`""FJTDC3%58-*;G""CF+AS%G-/:0'NX34%K3*98"
^XMB(3.9,22,2,4425,0)="""DATA"",396.18,215,3,663,0)"
^XMB(3.9,22,2,4426,0)="M/-.W^]TWN)FGAZI)AB><LM<_N#DZ5'`3#0R79@8_D=NC-#+\6$I41SG+0!@1"
^XMB(3.9,22,2,4427,0)="""DATA"",396.18,215,3,664,0)"
^XMB(3.9,22,2,4428,0)="M[T2Z(SDPQ*8R:FQK?UV)&WN:<DHQ3S9A>FK`%,(LAB=T5GV?/U+IM+/J8@^H"
^XMB(3.9,22,2,4429,0)="""DATA"",396.18,215,3,665,0)"
^XMB(3.9,22,2,4430,0)="M[I8^<%G:1$PM#UP6V'VMIC[X;0NT5?;I1']1HF?=T\XLX('K,M;>ZXF`F9+H"
^XMB(3.9,22,2,4431,0)="""DATA"",396.18,215,3,666,0)"
^XMB(3.9,22,2,4432,0)="M?8TGGH#6-HUJZV(%S/9A!=!O3<;<_H$7*""!;S)0'`04DAM?)0:^HT*_X@:!7"
^XMB(3.9,22,2,4433,0)="""DATA"",396.18,215,3,667,0)"
^XMB(3.9,22,2,4434,0)="M'`S0D%R?5V3D?S7P%7.#7C'E!SW3E!M&O2KKUZ%_!!L$X#<(@\']=AOXUK+Q"
^XMB(3.9,22,2,4435,0)="""DATA"",396.18,215,3,668,0)"
^XMB(3.9,22,2,4436,0)="M&-SOQDYVX#2`3NBADK@R.6T+W;^0YE]O;CJ34\5JVVZ^T#,K]N50A\.KM7;%"
^XMB(3.9,22,2,4437,0)="""DATA"",396.18,215,3,669,0)"
^XMB(3.9,22,2,4438,0)="M;[Q1)#.=HT%B0""LLZ95$D!PHZBAY]X=K1D<?)!;2^D@NXR^_$_#*1;50%'SE"
^XMB(3.9,22,2,4439,0)="""DATA"",396.18,215,3,670,0)"
^XMB(3.9,22,2,4440,0)="MD1MYY:`;""]F<WV%1]_Z=>V5)?+6*`OL(#)9`J+_#20H=1TDA8Z5I+!L5\-YR"
^XMB(3.9,22,2,4441,0)="""DATA"",396.18,215,3,671,0)"
^XMB(3.9,22,2,4442,0)="M!5DW)%%DMN6:4_HD/`$WBU3PJ$V,BE[D\YYB`B`TJF`UUF*O58-09$9%KNE:"
^XMB(3.9,22,2,4443,0)="""DATA"",396.18,215,3,672,0)"
^XMB(3.9,22,2,4444,0)="MVX4@C\MI2X9F8I%FXH\C)K[J92+05X)3<$\UJX[""ZL1H?'#HFETU2S-NVE_Z"
^XMB(3.9,22,2,4445,0)="""DATA"",396.18,215,3,673,0)"
^XMB(3.9,22,2,4446,0)="M`./$7-""]9WLM</_H31LQ(9[RE^#&61G5\=L)3SR_0JGY4ISBK*%CD`JN<G;$"
^XMB(3.9,22,2,4447,0)="""DATA"",396.18,215,3,674,0)"
^XMB(3.9,22,2,4448,0)="MYBG_\P;LQI+@U&GHM<3MO$GAJ\?0,%MIDJD><\?`T-4C8F5_-\WU74O""=2,!"
^XMB(3.9,22,2,4449,0)="""DATA"",396.18,215,3,675,0)"
^XMB(3.9,22,2,4450,0)="M=RX*\?UG(H2;F.+>N6J&F3:&E'3J?HZ'A-MZ@9T`]CAJU18JJK9`LW&^@GVR"
^XMB(3.9,22,2,4451,0)="""DATA"",396.18,215,3,676,0)"
^XMB(3.9,22,2,4452,0)="M""F<XPURM;3;AB$`#8M2MUG1@ZD:.'EP2Y-#SSUBC?9)C#.T]U3(L""(<#C'>Y"
^XMB(3.9,22,2,4453,0)="""DATA"",396.18,215,3,677,0)"
^XMB(3.9,22,2,4454,0)="M!3M#LPKP0B`.W\82QHE*YVEQ0XZ^]*+7M%74<GXC6W6#;FV?L""L^2C;HDO0,"
^XMB(3.9,22,2,4455,0)="""DATA"",396.18,215,3,678,0)"
^XMB(3.9,22,2,4456,0)="MWK&G""7''*>+$(N%;SUGRW-G3,I+<.*E@;R<LK7'(`%6>#)343,'/O=G0D79!"
^XMB(3.9,22,2,4457,0)="""DATA"",396.18,215,3,679,0)"
^XMB(3.9,22,2,4458,0)="M0(\*,Q;POQ*!(E[X4=-#.X4^SG3_%B<SZ60VG532TKVR$CY:D:,1R!3$A1=X"
^XMB(3.9,22,2,4459,0)="""DATA"",396.18,215,3,680,0)"
^XMB(3.9,22,2,4460,0)="MP0I%[$;=#3S5%5B31BS89>""P=MN;T8/*TTR<\H@2'?$1RYSONE33NPTMOEYH"
^XMB(3.9,22,2,4461,0)="""DATA"",396.18,215,3,681,0)"
^XMB(3.9,22,2,4462,0)="M(C!-A,*3'[7Y-HGXII%6EA<W7YKH;I]Q!BB0<9IQ)?^:DR7:@[-$""]TZL!TB"
^XMB(3.9,22,2,4463,0)="""DATA"",396.18,215,3,682,0)"
^XMB(3.9,22,2,4464,0)="M4N?.)4I!U<-_ZK3I_!VV]=[K-8W&^C,%D:D.QGA.!UD:'N1-FD""6M]'4(*BY"
^XMB(3.9,22,2,4465,0)="""DATA"",396.18,215,3,683,0)"
^XMB(3.9,22,2,4466,0)="MT7$#6@-'BJ`"")/28:5Q_]!;'C+S=B:FUR/XS)=>>.NO!CRXSV_0[F,3;O(]."
^XMB(3.9,22,2,4467,0)="""DATA"",396.18,215,3,684,0)"
^XMB(3.9,22,2,4468,0)="M+[:ZG6XC@FBE.,_J(""9*'\8YP/-D^H)_UG%J37H;LID""/>\WE>D?.W<[J2`3"
^XMB(3.9,22,2,4469,0)="""DATA"",396.18,215,3,685,0)"
^XMB(3.9,22,2,4470,0)="M+$-)SYG=E5J<KTT?CB'?""7/LT0"".B=4^;H$5.*U.K%#+PM>-8)MMUP""NJ1FQ"
^XMB(3.9,22,2,4471,0)="""DATA"",396.18,215,3,686,0)"
^XMB(3.9,22,2,4472,0)="MJ./8PS5=?T*/<Z#6[VAF*(Y)OY\(8)F8?9:^_(!\]GIL.)8.2F<5F6O@^XG^"
^XMB(3.9,22,2,4473,0)="""DATA"",396.18,215,3,687,0)"
^XMB(3.9,22,2,4474,0)="MR=;4B(M"":5#^:J+_S7`>-;W=3L8V#5@W+YZ/#>W8X#(4-'W]9_WV'))3]#\G"
^XMB(3.9,22,2,4475,0)="""DATA"",396.18,215,3,688,0)"
^XMB(3.9,22,2,4476,0)="MXSSM,E?3[;%>1JQRKR'Y5J2/""F';1WEL$\L&[5RLZWI+UJ""=%SBQ(9(,'.&&"
^XMB(3.9,22,2,4477,0)="""DATA"",396.18,215,3,689,0)"
^XMB(3.9,22,2,4478,0)="MR53::@L^,F5.\287L0U')IQ%]R4]$,)DQ#Q,:\8I1S(9&)!1&?WSQP',5,L#"
^XMB(3.9,22,2,4479,0)="""DATA"",396.18,215,3,690,0)"
^XMB(3.9,22,2,4480,0)="M]<\XOQ)D<J%M5KO0.M?3,^"";XRWRV1>/!V.8+`RT++G595O6J',V2U_ZR+B4"
^XMB(3.9,22,2,4481,0)="""DATA"",396.18,215,3,691,0)"
^XMB(3.9,22,2,4482,0)="MGO4@GRF9DF#0<ON""QY-8.RQP!/25.F2_MH2Q=TDEZ&]NA@[V#':L9FC'""DUB"
^XMB(3.9,22,2,4483,0)="""DATA"",396.18,215,3,692,0)"
^XMB(3.9,22,2,4484,0)="ME3[%0H$_PQD.KWB&P]O#>O3FW6<TJ],VX?Q>L(FPCS8ZSCY#+!Y._''6E""]Y"
^XMB(3.9,22,2,4485,0)="""DATA"",396.18,215,3,693,0)"
^XMB(3.9,22,2,4486,0)="M?<A)Z.K7M!5#NX^_%)Z*^FDGR7<[1A3@N,*WN3#3,)VB._D5""D4;(CA[JP39"
^XMB(3.9,22,2,4487,0)="""DATA"",396.18,215,3,694,0)"
^XMB(3.9,22,2,4488,0)="MQ^69QSVZWH\KTH\CQ8[2KW*>=RMYWC*#2VW;1'1XP:^S.<L\Z\_6]5D9YEE)"
^XMB(3.9,22,2,4489,0)="""DATA"",396.18,215,3,695,0)"
^XMB(3.9,22,2,4490,0)="M?&V]S'D6$>)CPSY,81YV[QH_C)7L$O,L*^F96>`^:_]YA'9^3.[T6OHQ^SGD"
^XMB(3.9,22,2,4491,0)="""DATA"",396.18,215,3,696,0)"
^XMB(3.9,22,2,4492,0)="MJ8,D`\4/CC@/^@]/:O0.%Z@(3@,&=Q=8WJ!&G<C:<@?<VMUZ!=9<==LK>KMW"
^XMB(3.9,22,2,4493,0)="""DATA"",396.18,215,3,697,0)"
^XMB(3.9,22,2,4494,0)="M'R?^PSZV1!M\[PMBY0$G\G3F'#_DM!'1H'!&+1ZEO]T^XN_OGQ9[T&WZ$HLS"
^XMB(3.9,22,2,4495,0)="""DATA"",396.18,215,3,698,0)"
^XMB(3.9,22,2,4496,0)="MC%V$T^:US9?10$/W$<,>]6>8(""[ZQ$-FPP`7V4J<PS(^B).TC$E/)_QY)MCY"
^XMB(3.9,22,2,4497,0)="""DATA"",396.18,215,3,699,0)"
^XMB(3.9,22,2,4498,0)="M""KO0VNU:C,0L]+A#-((6^#8VTU[`3+N""F7:,,""VO"")9"":<U*6P?*.$ZE4*$'"
^XMB(3.9,22,2,4499,0)="""DATA"",396.18,215,3,700,0)"
^XMB(3.9,22,2,4500,0)="M$:(.3R1L>Y,!PB:6M;5[%X&TF48U/FP+/1800RPX\I;2_,5-$?.AQB[H=;T9"
^XMB(3.9,22,2,4501,0)="""DATA"",396.18,215,3,701,0)"
^XMB(3.9,22,2,4502,0)="MGQ,Z&WJ0(J/5?A""@U01K@R?/PGSV4K<=GQC:9.C;L\2(V1V(:9<Y8J8(GT[@"
^XMB(3.9,22,2,4503,0)="""DATA"",396.18,215,3,702,0)"
^XMB(3.9,22,2,4504,0)="M8C3T.""4V0F,VX]D13PU4:H(S'2<^H'6!I5R)3VHC-&@W!EDZR+IX'B!UV-4M"
^XMB(3.9,22,2,4505,0)="""DATA"",396.18,215,3,703,0)"
^XMB(3.9,22,2,4506,0)="MQK3MIW4X1I'?TRTTR'1':',@SQ!S7[*?&,H<$-,V.\YH]3H>UZIU.F`7AYVK"
^XMB(3.9,22,2,4507,0)="""DATA"",396.18,215,3,704,0)"
^XMB(3.9,22,2,4508,0)="MNRNT.!=I<7X;.]_/)#CR+!BQ<T<Y6ZMZO1XG>WHB-/M88;`\ZL`5!L$VNK69"
^XMB(3.9,22,2,4509,0)="""DATA"",396.18,215,3,705,0)"
^XMB(3.9,22,2,4510,0)="MA+TGM-&1HZ_0MP.N4$$@^JES0*G9)78Q:@+TK>!`Q6#2YYSX_R<]7=R[?3$?"
^XMB(3.9,22,2,4511,0)="""DATA"",396.18,215,3,706,0)"
^XMB(3.9,22,2,4512,0)="M#PS7-HX""'_F!S^/&]?<+QO5]TFTE6CA>\PC'8=>05X22E--VHZ#1TF(E'>G0"
^XMB(3.9,22,2,4513,0)="""DATA"",396.18,215,3,707,0)"
^XMB(3.9,22,2,4514,0)="M5T664JXXHL/5K8+#3,;.ZNVFH6W"";C7&NO*UY&&N,F#:""$_49B[I*]WVBM&)"
^XMB(3.9,22,2,4515,0)="""DATA"",396.18,215,3,708,0)"
^XMB(3.9,22,2,4516,0)="MEZR%'I""?4VC.O>9[D=NL*PU[%;%3]B+.N['0O&,\;FD/UK*-/@5G\ZXP)""Q2"
^XMB(3.9,22,2,4517,0)="""DATA"",396.18,215,3,709,0)"
^XMB(3.9,22,2,4518,0)="M)%ET<_B9Z'0P)[4'B=?SO)G(@C;\'D_Z\`;&(C]X""6*V4YE[\D6)R?U=15M<"
^XMB(3.9,22,2,4519,0)="""DATA"",396.18,215,3,710,0)"
^XMB(3.9,22,2,4520,0)="M]=0K*)F\""]LR<^IZ1V]6]:J#+C\>#%9O9^]G3IMMV3+K1E5>-LUJ>JO]66\8"
^XMB(3.9,22,2,4521,0)="""DATA"",396.18,215,3,711,0)"
^XMB(3.9,22,2,4522,0)="MQ^TOK?06^$7=^,DN^,!BUX?!JQ\-@5?O+=?``U-1_C""'MN_=1!_NETU^-DYX"
^XMB(3.9,22,2,4523,0)="""DATA"",396.18,215,3,712,0)"
^XMB(3.9,22,2,4524,0)="M#%NY`!1,G@]O-I_<G!HG<F_BDLNF4'\]$4AOK.`VN)!D>3:S^C?!],8*A&DG"
^XMB(3.9,22,2,4525,0)="""DATA"",396.18,215,3,713,0)"
^XMB(3.9,22,2,4526,0)="MEUZ5H7<V&4AO/D[TWL*EERFND""X$TQLK=;6;6TQ78.C]6#""]Y3C1NY=+KTIG"
^XMB(3.9,22,2,4527,0)="""DATA"",396.18,215,3,714,0)"
^XMB(3.9,22,2,4528,0)="M\\]YR2T2QZB<CP&1^X+:Q]!5]!>.W7$`T7H/Z1\[OQF*R[+<JHT""BAL<86K+"
^XMB(3.9,22,2,4529,0)="""DATA"",396.18,215,3,715,0)"
^XMB(3.9,22,2,4530,0)="M_HW3,+;?4UMV2FM'M8P,N_6R3=8#R)*\W5N*,@[_-TA)%#K&6!+0#?H;""8:&"
^XMB(3.9,22,2,4531,0)="""DATA"",396.18,215,3,716,0)"
^XMB(3.9,22,2,4532,0)="M8UX:)B[!+Z))A$KM`QG'E=(X4QI.>C$^HM,6AKOW?MJFXZ`GQG=K?U?8AO:K"
^XMB(3.9,22,2,4533,0)="""DATA"",396.18,215,3,717,0)"
^XMB(3.9,22,2,4534,0)="M#X@H<K2]0F_3E[&QEB`EIA]Q+S<E'X,*<8EQ-+?U.YIXV(:C'GZLOT+\@ZZC"
^XMB(3.9,22,2,4535,0)="""DATA"",396.18,215,3,718,0)"
^XMB(3.9,22,2,4536,0)="MG%%\'<T-:.'WN+-P,B\L[$$SM&%B5X._DX$,6NGQRT:S:72Z5GK,9M&*R3JS"
^XMB(3.9,22,2,4537,0)="""DATA"",396.18,215,3,719,0)"
^XMB(3.9,22,2,4538,0)="M-$O#.+;)$(YM(-NSC$H+Y+OZ_WQW8[,A^!XRC(;T\1XZ1.1&6""C0O(SHB#:M"
^XMB(3.9,22,2,4539,0)="""DATA"",396.18,215,3,720,0)"
^XMB(3.9,22,2,4540,0)="M/7Q0*""PH!`H0?3;!O+[I>7TXY%,L$^I<H?K01(P&V)=X;M/S""69V\^O$OOS\"
^XMB(3.9,22,2,4541,0)="""DATA"",396.18,215,3,721,0)"
^XMB(3.9,22,2,4542,0)="M9K`O%;Y]B0RQ""H.[\OUP]F5/CZI]64#&V4XG>E7N-\YVN#E&6[+6RC#[WEK3"
^XMB(3.9,22,2,4543,0)="""DATA"",396.18,215,3,722,0)"
^XMB(3.9,22,2,4544,0)="M@6H+,@P9![UDV/];9*DHT-,`""\G^%DV^E3D7^7)SC/*VGU%W=:^V+@A.)=UF"
^XMB(3.9,22,2,4545,0)="""DATA"",396.18,215,3,723,0)"
^XMB(3.9,22,2,4546,0)="M>STZ.%_KK;(Q\M\/697=XZEL92B5/30125]C7V5F0/R4Q]J_W7\&Q""!\2PH5"
^XMB(3.9,22,2,4547,0)="""DATA"",396.18,215,3,724,0)"
^XMB(3.9,22,2,4548,0)="M\J9^5$AZIF7J0=P_06Z)?TAP02'_*4&#/_;?""#Y(N](8^'&Q8[8FN`<JSXQ]"
^XMB(3.9,22,2,4549,0)="""DATA"",396.18,215,3,725,0)"
^XMB(3.9,22,2,4550,0)="MQ_1G..XSUL\#>E)04;OT;4<,$FNP(O.*]_9GH:EQ*DZS""2TG@Y;.,R^[MFO3"
^XMB(3.9,22,2,4551,0)="""DATA"",396.18,215,3,726,0)"
^XMB(3.9,22,2,4552,0)="MN%;22Y@1>[QKC]IK#UBNF*%?572]Q9K6TK$?:']`4<ZO.Y1O0:N-8A'\1F++"
^XMB(3.9,22,2,4553,0)="""DATA"",396.18,215,3,727,0)"
^XMB(3.9,22,2,4554,0)="M`^VN5>O3AW`MCMF#[I8S]JM5<`CQ:=RSF9IR+)T'NQWP7NFE:S`WQY1P<%=%"
^XMB(3.9,22,2,4555,0)="""DATA"",396.18,215,3,728,0)"
^XMB(3.9,22,2,4556,0)="M`:MY>]7?$UUUW&=5M""UG[56?%5UU+#BOJ?*PS+Y(;*!%U[E6U>'RFF.7]""H4"
^XMB(3.9,22,2,4557,0)="""DATA"",396.18,215,3,729,0)"
^XMB(3.9,22,2,4558,0)="MPS3XJXIN67+'\4?2X]""(@M5IZ2T+-1,<^)JY9&CI::""=5SLUB""\/_\J1#?%,"
^XMB(3.9,22,2,4559,0)="""DATA"",396.18,215,3,730,0)"
^XMB(3.9,22,2,4560,0)="MIZ!#Z&%,CCEHP9PIQ(HS(\/E@!F@B2\F/`QY+\606""4)N6AYN1*CO0;06XP3"
^XMB(3.9,22,2,4561,0)="""DATA"",396.18,215,3,731,0)"
^XMB(3.9,22,2,4562,0)="MO:/!@L]`B<YZR#Y.679#:H3I>;,+_DI^R+!L5.MY';8Q`4]2OF9876#^:I6N"
^XMB(3.9,22,2,4563,0)="""DATA"",396.18,215,3,732,0)"
^XMB(3.9,22,2,4564,0)="MT>FE]YTWP:$PE\%1:'?@O^C7RX8.47M$Y3YQ@QI!831"",&=RL>*,%((SO-!L"
^XMB(3.9,22,2,4565,0)="""DATA"",396.18,215,3,733,0)"
^XMB(3.9,22,2,4566,0)="MEO9MYO'-]!()S69Q87XF5XS!P1@)""I2@B_))&FU(^B-B`2N;(4ZB\BUNM,V+"
^XMB(3.9,22,2,4567,0)="""DATA"",396.18,215,3,734,0)"
^XMB(3.9,22,2,4568,0)="M-NECB/2]G!D/A[UQ$HB.`'8CLM$2U)`C?<DYU?.(NJ]S6L./D/$!A^R;]U""4"
^XMB(3.9,22,2,4569,0)="""DATA"",396.18,215,3,735,0)"
^XMB(3.9,22,2,4570,0)="M\=\9(E$6.;6#II$[CYQL'/(9CEA'*;.<[Y-BO)6O.%=ERN.3'O+W227Q?%""&"
^XMB(3.9,22,2,4571,0)="""DATA"",396.18,215,3,736,0)"
^XMB(3.9,22,2,4572,0)="MV;#%_NR_]'+""U3KY'\',YG4T2X)NHS*]I9@+O^#A@GT;*</=1E,V!IFV!#%B"
^XMB(3.9,22,2,4573,0)="""DATA"",396.18,215,3,737,0)"
^XMB(3.9,22,2,4574,0)="M>ND=]LYH=>,)<!VMZMI5""""*6G@5<JLK@268=_+)9T=.S9W6MPWPS?JYIF8TF"
^XMB(3.9,22,2,4575,0)="""DATA"",396.18,215,3,738,0)"
^XMB(3.9,22,2,4576,0)="ML&""G%K1Z""Q51@[\]U\376Z=FM.'@-/>;+@3<=!J;/FA4FWI/MB!4/,;12>\B"
^XMB(3.9,22,2,4577,0)="""DATA"",396.18,215,3,739,0)"
^XMB(3.9,22,2,4578,0)="MD^;!]5?KM<R5>J^B-\!#F-]<U3NF5C&JIF58Z^I+A!RCC-3-9QSIW8N.RE.\"
^XMB(3.9,22,2,4579,0)="""DATA"",396.18,215,3,740,0)"
^XMB(3.9,22,2,4580,0)="MN)E8EF.[JVK79,31-%.&X@A;RW[I""21LGR67WV<B.<3XW:&O""I<I.:Q/IQE]"
^XMB(3.9,22,2,4581,0)="""DATA"",396.18,215,3,741,0)"
^XMB(3.9,22,2,4582,0)="MZK#C*E.8\E80WB4Z.Y&]!=$%H=H:_""WL['S<O0613LV62R5W_'G?A4BH.[0!"
^XMB(3.9,22,2,4583,0)="""DATA"",396.18,215,3,742,0)"
^XMB(3.9,22,2,4584,0)="M1LR`$3""Y'$UA,@9Q>""X519J*YW%([2$.%61OM#K0PRN&;IU8J]OOW1LI7IEA"
^XMB(3.9,22,2,4585,0)="""DATA"",396.18,215,3,743,0)"
^XMB(3.9,22,2,4586,0)="M;`<4,:O9].@!T6RJ/VTC+>3QH=KP\!#@[R8&TCFZX24Z$X)-?WS$<I3VNM-6"
^XMB(3.9,22,2,4587,0)="""DATA"",396.18,215,3,744,0)"
^XMB(3.9,22,2,4588,0)="MD0<1O1_I*T@=*60%YT1O/0TG6LEWRW,UHUZG;[BH0@.$8U>1%A#""+U*+=@?I"
^XMB(3.9,22,2,4589,0)="""DATA"",396.18,215,3,745,0)"
^XMB(3.9,22,2,4590,0)="M<%=+0GUKXQ>T.KQ_H\ZH\#@4""BU89P($2PQ.?/JBG;);!(9M)_)B%;HADE4\"
^XMB(3.9,22,2,4591,0)="""DATA"",396.18,215,3,746,0)"
^XMB(3.9,22,2,4592,0)="MA%T:AUVJD%Q-$ACAJ/-*XCF16>8>_5:BOZPZ=80""J%-BX""RFN506:""I)WX=+"
^XMB(3.9,22,2,4593,0)="""DATA"",396.18,215,3,747,0)"
^XMB(3.9,22,2,4594,0)="MY1G74U9C0""1WE'""1V<H7O5OI3HTM9_(QB].'G9:?I95B$YURO;_]`W!`<.;3"
^XMB(3.9,22,2,4595,0)="""DATA"",396.18,215,3,748,0)"
^XMB(3.9,22,2,4596,0)="MSK..MPT]:6)'KMV)?W>]1K/Y.K(H:O)A!BS\.>+([A[LR&Z(D^I#:=X'$QYY"
^XMB(3.9,22,2,4597,0)="""DATA"",396.18,215,3,749,0)"
^XMB(3.9,22,2,4598,0)="M<U<8S*%_#""ILNZ1;1K6KU>V8R47=;-4UJQ$QL!T%-5JG=MIT'49TW9OT>C^G"
^XMB(3.9,22,2,4599,0)="""DATA"",396.18,215,3,750,0)"
^XMB(3.9,22,2,4600,0)="MSP%YE8&O8*PT(2!S$U$DUS1+7M+UIMR!@_/TZC%YN5NO]^0JY2W!&?X.,S9@"
^XMB(3.9,22,2,4601,0)="""DATA"",396.18,215,3,751,0)"
^XMB(3.9,22,2,4602,0)="M;RDW%OL2LZPO@=L77W:<B>\E^IV)_;Y#1)*AHJTS3*^50C=N8_""TQ\F)^7*"""
^XMB(3.9,22,2,4603,0)="""DATA"",396.18,215,3,752,0)"
^XMB(3.9,22,2,4604,0)="MI$'+N7(,M&I0F`MYHV,VK2F,84H&>7\A(CF>&](9!9]QPRIC*>)""X+>#X+E."
^XMB(3.9,22,2,4605,0)="""DATA"",396.18,215,3,753,0)"
^XMB(3.9,22,2,4606,0)="M-5IULP<#)#*Z)Z(&SX7*I9P=E?X>&P?'B,K80ZBJ.B$LLU+I.@-EM#J.-2-T"
^XMB(3.9,22,2,4607,0)="""DATA"",396.18,215,3,754,0)"
^XMB(3.9,22,2,4608,0)="MUBHNJ9>/K!J=FCT)VSH*L=V=WSL#LZ]K#=E8A@%M2P;_:4"";7#/T5?L7=X5'"
^XMB(3.9,22,2,4609,0)="""DATA"",396.18,215,3,755,0)"
^XMB(3.9,22,2,4610,0)="MK,)UHV-LV\O_<O)2I3DXH?<(?!7P7*.APTK_CKS<-AORJMF^""J%8ZPX4ZW$;"
^XMB(3.9,22,2,4611,0)="""DATA"",396.18,215,3,756,0)"
^XMB(3.9,22,2,4612,0)="MBE5N`9::U1.#1E#C""MPQ)MH$V.A]A\QESG.K7:?O@/-L$4Z@2HS7',E\'+W%"
^XMB(3.9,22,2,4613,0)="""DATA"",396.18,215,3,757,0)"
^XMB(3.9,22,2,4614,0)="M+W,'?'?;]MY!3E2Z;2@>LDZD=##!95H!/!Y07'>YU[)QT-S%!ZV-R^$0&:?0"
^XMB(3.9,22,2,4615,0)="""DATA"",396.18,215,3,758,0)"
^XMB(3.9,22,2,4616,0)="MXH]P%I]#;^[*XL#%L_2+XTK61>_:LU?L.@%W9;\%%7KK+V+7X;\Y3,^32*/I"
^XMB(3.9,22,2,4617,0)="""DATA"",396.18,215,3,759,0)"
^XMB(3.9,22,2,4618,0)="M@+:U3?""J0`3@&6&.TW*W68$_`J$8N!5%1O9VX1?X2\X+'%]PGFB!HU:'E[K<"
^XMB(3.9,22,2,4619,0)="""DATA"",396.18,215,3,760,0)"
^XMB(3.9,22,2,4620,0)="M,4,\.,15BV'C,DYG]2>2X:_:09`8_E#::&:7=-FIW[\%46Z1*W<YZ=KGE_2."
^XMB(3.9,22,2,4621,0)="""DATA"",396.18,215,3,761,0)"
^XMB(3.9,22,2,4622,0)="MT084`R74;3K""J%<Y*""R3/EQ&SWJ5J6EQIWARD/_:]A/#2'P)"">6$O786K?TA"
^XMB(3.9,22,2,4623,0)="""DATA"",396.18,215,3,762,0)"
^XMB(3.9,22,2,4624,0)="M'@HV5&""""BR,!G;1WY@UL!*UZ5]_M*/:*\#,4!%@H?8--;$N?XXW@YZD>O""6A"
^XMB(3.9,22,2,4625,0)="""DATA"",396.18,215,3,763,0)"
^XMB(3.9,22,2,4626,0)="M'E:FN""7=EO0@K%(SZB_IFF6""JW'%N`9,V65J\\,\"";L'SKX\B1[T*N=!AQ=;"
^XMB(3.9,22,2,4627,0)="""DATA"",396.18,215,3,764,0)"
^XMB(3.9,22,2,4628,0)="M>@7XAW)#KT(K2C[2JO4L^--1?,RM@4]#5?9?33""/^P3G<?OPXUI6KU(S-&#A"
^XMB(3.9,22,2,4629,0)="""DATA"",396.18,215,3,765,0)"
^XMB(3.9,22,2,4630,0)="M57C/"">L5%R@126U%$F+T3V4""7K'HV-!SEGQ-[\#L-I*FZI`#%A,\Q""44G,*'"
^XMB(3.9,22,2,4631,0)="""DATA"",396.18,215,3,766,0)"
^XMB(3.9,22,2,4632,0)="M\E;$L3<]L,WPS8N<PYX,;G7$.)S._M^/EM>)352FEB\-5SEP^!3PO`Q8R;;4"
^XMB(3.9,22,2,4633,0)="""DATA"",396.18,215,3,767,0)"
^XMB(3.9,22,2,4634,0)="MDS5@,0$1K5('!)H'Z3T7^J4*;_;1]'[W=UY9.#IT(C\5NO25<8)P\M!1-G^>"
^XMB(3.9,22,2,4635,0)="""DATA"",396.18,215,3,768,0)"
^XMB(3.9,22,2,4636,0)="M\+!,H5A6WJ0Q)B0U$JL+_X0SPJN<%SM/[Z'.DWN+R4M=X+B;G1L\8ND@0*Y"""
^XMB(3.9,22,2,4637,0)="""DATA"",396.18,215,3,769,0)"
^XMB(3.9,22,2,4638,0)="MAM'P)$3Z""N^LY=5!B%QC_>\S>]XNZZX!PK)R3]?:Z:DLM$X4^X.5GE+@ISSZ"
^XMB(3.9,22,2,4639,0)="""DATA"",396.18,215,3,770,0)"
^XMB(3.9,22,2,4640,0)="M-)V'G[(9]'$&_`3_7_QYVP6SK3N+X>\2?''-TU>)FO2(ZUT44;$*B?H<SP)-"
^XMB(3.9,22,2,4641,0)="""DATA"",396.18,215,3,771,0)"
^XMB(3.9,22,2,4642,0)="M[[/X>+Y&-E%UZ2W$JE1;XM-;I*]4E^`O<0DNQ8G@$1^)IATSZ8>8X'DBT?LH"
^XMB(3.9,22,2,4643,0)="""DATA"",396.18,215,3,772,0)"
^XMB(3.9,22,2,4644,0)="M!1RKB4YC7'IQ/8Y#[]>\]!YPZ2W&:D)9L#IFO,X7O613VI@""F_31QJ/]VCB9"
^XMB(3.9,22,2,4645,0)="""DATA"",396.18,215,3,773,0)"
^XMB(3.9,22,2,4646,0)="M817RJJY?3:?1OV.*_:^5'E/Q#SG\0Q[_4/@_[JX]-H[CO-^#/)$2*9EZ6TGL"
^XMB(3.9,22,2,4647,0)="""DATA"",396.18,215,3,774,0)"
^XMB(3.9,22,2,4648,0)="M-6W+DD.1O/<=;=FF^))B2F)$2K+1&/7R;DEN='=[OKVC=':;QBF:!]*D18LV"
^XMB(3.9,22,2,4649,0)="""DATA"",396.18,215,3,775,0)"
^XMB(3.9,22,2,4650,0)="M2`JG:-W6*0(DJ8NTC9$6-5H409$@_2=`BR#_%&F>35J@8-O40-N9V9G9;VYG"
^XMB(3.9,22,2,4651,0)="""DATA"",396.18,215,3,776,0)"
^XMB(3.9,22,2,4652,0)="M]QX\<^]D!,CQ2.TWO]F9;[[Y'K^/?4BS#QGV(4L_#""&MS3Y%^:<8_Q3GGQ+\"
^XMB(3.9,22,2,4653,0)="""DATA"",396.18,215,3,777,0)"
^XMB(3.9,22,2,4654,0)="M4Y)_2O%/:?XIPS]Q&3$N(\9EQ+B,&)<1XS)B7$:,RXAQ&3$N(\9EQ+F,.)<1"
^XMB(3.9,22,2,4655,0)="""DATA"",396.18,215,3,778,0)"
^XMB(3.9,22,2,4656,0)="MYS+B7$:<RXAS&7$N(\YEQ+F,.)>1X#(27$:""RTAP&0DN(\%E)+B,!)>1X#(2"
^XMB(3.9,22,2,4657,0)="""DATA"",396.18,215,3,779,0)"
^XMB(3.9,22,2,4658,0)="M7$:2RTAR&4DJ(^""Y&N/0J5*GB_$S,M,@'6VV&,.-BW%HL58H8&]=9!CMG^HY"
^XMB(3.9,22,2,4659,0)="""DATA"",396.18,215,3,780,0)"
^XMB(3.9,22,2,4660,0)="M\G$4V;(;YY@%%!E:)1<]M<`,7J_A9K.""@ZGN9<HD8LW&.]`;I@SCIGQ-S/:V"
^XMB(3.9,22,2,4661,0)="""DATA"",396.18,215,3,781,0)"
^XMB(3.9,22,2,4662,0)="M01T'H.)]EM[=HN7-^.[""0H6""W>#P$3`%[>4,WP<,;^JS*-05MOS:+EF7O3^H"
^XMB(3.9,22,2,4663,0)="""DATA"",396.18,215,3,782,0)"
^XMB(3.9,22,2,4664,0)="MT4-G'`K]%-A#B?Z('LE00DT1?B[H@/D`>$5]97`/-W$EP(A9^!$G<+@V.ZR)"
^XMB(3.9,22,2,4665,0)="""DATA"",396.18,215,3,783,0)"
^XMB(3.9,22,2,4666,0)="MNW?6-/7-$KH0YO6-#8TXUO*UJHY6(*B/RQFE'/J-Y6*(/#""/_E3/U0K5NK*!"
^XMB(3.9,22,2,4667,0)="""DATA"",396.18,215,3,784,0)"
^XMB(3.9,22,2,4668,0)="M`!JW<2!""+YG52BUG%1\<OU12R^6*4:[HV+.YKFVIV[I1B1RS2Q#4=1,]4M-T"
^XMB(3.9,22,2,4669,0)="""DATA"",396.18,215,3,785,0)"
^XMB(3.9,22,2,4670,0)="MLP@K$ZIJ)4]2GR('\-NOU""UFI1,K!J%NSN%VE9B.NJ+F0'5[^\Z*H5:J\MSJ"
^XMB(3.9,22,2,4671,0)="""DATA"",396.18,215,3,786,0)"
^XMB(3.9,22,2,4672,0)="MU9C+8D3(=/@&CV5F^SAEWR6RF98Z(!.T,6;X1]81,D2GXK\DD<W[6623>9^N"
^XMB(3.9,22,2,4673,0)="""DATA"",396.18,215,3,787,0)"
^XMB(3.9,22,2,4674,0)="MEO42=EFMUHI%U=?PIDN$8IJ6J9^W(A2#33.+@2IK/QD@1AT+]Y&9/$UG\M-\"
^XMB(3.9,22,2,4675,0)="""DATA"",396.18,215,3,788,0)"
^XMB(3.9,22,2,4676,0)="M47V+)P.D$_%^2)L+>NT@JM0S`EB-@UVX^W901KZ#XG0'_;:X@]*2""M!'W7;0"
^XMB(3.9,22,2,4677,0)="""DATA"",396.18,215,3,789,0)"
^XMB(3.9,22,2,4678,0)="MF2L&TK+(!ERXHQ;1.ZN<[;%<@42<:LP;9""?]B%T^?RS)%?CB&H[NHR>J2A&9"
^XMB(3.9,22,2,4679,0)="""DATA"",396.18,215,3,790,0)"
^XMB(3.9,22,2,4680,0)="M6.CP4!!<&GG<T*O(LM64G%[)U8IF%9?`D;0J_*5)(AQZ3B$-D\WJI+*VA3,'"
^XMB(3.9,22,2,4681,0)="""DATA"",396.18,215,3,791,0)"
^XMB(3.9,22,2,4682,0)="M2ILUXB;?4,9)H""J/'>?H.*EH)CHUT/?C7%+10.>@KN5)W,>@TTL?9RKKY(A"""
^XMB(3.9,22,2,4683,0)="""DATA"",396.18,215,3,792,0)"
^XMB(3.9,22,2,4684,0)="MWZB;FQ5UFQR'D\UB[(EX$F`/%2CTGTEB-#'UK/+SUG]H""H2QJO9HV9^0_]QD"
^XMB(3.9,22,2,4685,0)="""DATA"",396.18,215,3,793,0)"
^XMB(3.9,22,2,4686,0)="MIN!\?]""9FV$+?6(=""BWB+(.""?DM#MNJN!I""&`_@J&\""09`!)#0X`.Z7=!+<B"
^XMB(3.9,22,2,4687,0)="""DATA"",396.18,215,3,794,0)"
^XMB(3.9,22,2,4688,0)="M-P/E_A&3^_<2N>MY*+>`;V`4N&H-XTR!W\J2TU/HJHM#)+1B\^RN!IF%@^0M"
^XMB(3.9,22,2,4689,0)="""DATA"",396.18,215,3,795,0)"
^XMB(3.9,22,2,4690,0)="MW/]*,LCG<W""0*GHW&L[X4!O'JISI[A!9.J`UQ']@0WR?9(A/;_`A7D(B2U98"
^XMB(3.9,22,2,4691,0)="""DATA"",396.18,215,3,796,0)"
^XMB(3.9,22,2,4692,0)="MP320PF69.F9-(RD+1LWZ506W<,;[N8A,3K)O:P6/C(E$2MA"":W0P'Y,,9FT%"
^XMB(3.9,22,2,4693,0)="""DATA"",396.18,215,3,797,0)"
^XMB(3.9,22,2,4694,0)="M3Q!Z9A4;GG5TLA'KM5##G`^F@OX/""<:EKE1GV`9L0=M4<;9B1<L9FR52B%O>"
^XMB(3.9,22,2,4695,0)="""DATA"",396.18,215,3,798,0)"
^XMB(3.9,22,2,4696,0)="MJJ!GF3-NHZ*;[!H9U3@=U5]*=-IG%G02)\=-W=F@T$50PU%_JF1()Q)LOBIH"
^XMB(3.9,22,2,4697,0)="""DATA"",396.18,215,3,799,0)"
^XMB(3.9,22,2,4698,0)="MN2%U5[1R?<@$%I`]BO.>H$U-&Z=;#R':KTHZ>Y:J$_A91)'5T8/(`M&T/%X'"
^XMB(3.9,22,2,4699,0)="""DATA"",396.18,215,3,800,0)"
^XMB(3.9,22,2,4700,0)="M3'WA/V<ZLH5,#9:^-FC906-=M(-<LP5I>L.#0D^47[F;[8.LM""B1QMG#'PX("
^XMB(3.9,22,2,4701,0)="""DATA"",396.18,215,3,801,0)"
^XMB(3.9,22,2,4702,0)="M!!%UB7D09>8!-:CQ$J?9.\HJ.QKG#71N(N%DM_6`R2U6+-+8R\-!L8-K""RW\"
^XMB(3.9,22,2,4703,0)="""DATA"",396.18,215,3,802,0)"
^XMB(3.9,22,2,4704,0)="M@FUS'3#2D7N$1`#;!/V);6\GX^G^2[X5&592D&%EB5TN@G?Q?IJ1[B>6-_5^"
^XMB(3.9,22,2,4705,0)="""DATA"",396.18,215,3,803,0)"
^XMB(3.9,22,2,4706,0)="MF+<B+2^_UT[?)SFF:#==0T=#)6]VD0>]&_7E+%MKB&R:S[-LK:B$8W&NYPCV"
^XMB(3.9,22,2,4707,0)="""DATA"",396.18,215,3,804,0)"
^XMB(3.9,22,2,4708,0)="M6>;FY\0D@=""2DV%_L$UZD]:*0^G%Y!#LM!W^""E\/.J]52V7::Z!Y@MW2Z*JA"
^XMB(3.9,22,2,4709,0)="""DATA"",396.18,215,3,805,0)"
^XMB(3.9,22,2,4710,0)="MZVBFT05W?'9;U0O8=T?.=.NOM'SDE/@]NN+9OQO%/_'?!SJHB4T*K4^\<4^W"
^XMB(3.9,22,2,4711,0)="""DATA"",396.18,215,3,806,0)"
^XMB(3.9,22,2,4712,0)="MU\UQ3EG4T:#?-KB1H]8OB?UBF;<W+LS*O.6""NH<O.OP&,VA_@1^DRP!QM#]B"
^XMB(3.9,22,2,4713,0)="""DATA"",396.18,215,3,807,0)"
^XMB(3.9,22,2,4714,0)="M'.[J/BDX%<*,UI+K^]?NAFJ+QZ3\(?2DNTV0'Z?(/RE1\&-,P;.2+*7'%#MK"
^XMB(3.9,22,2,4715,0)="""DATA"",396.18,215,3,808,0)"
^XMB(3.9,22,2,4716,0)="M/C))H-RDFO%%IUX_-:^KFR7,PD.N-;4BN@""<T>ZHN>I9%_K8#'AR^-<DE""3\"
^XMB(3.9,22,2,4717,0)="""DATA"",396.18,215,3,809,0)"
^XMB(3.9,22,2,4718,0)="MV>]@N<EY+N-,L3A51_^Y/3P+'\ZO_O\LK6Q`%R*3;'A2\$&&CXO'2-W+&1U?"
^XMB(3.9,22,2,4719,0)="""DATA"",396.18,215,3,810,0)"
^XMB(3.9,22,2,4720,0)="MW/+X<F;6*IM:Q4UB9AI*C+!(R:<#SIO8S`*>%B(-""R/E$RKI3T_6`-IC<`#Y"
^XMB(3.9,22,2,4721,0)="""DATA"",396.18,215,3,811,0)"
^XMB(3.9,22,2,4722,0)="M_(12+$XH!*U7584PG""R]+_T@((PGM.4<CC(/!P(DLREN76@4SL%30??5<B^]"
^XMB(3.9,22,2,4723,0)="""DATA"",396.18,215,3,812,0)"
^XMB(3.9,22,2,4724,0)="M(O.R/""[6[9!F35A_QP+T88==?LKUD-[7E2[7[/[_""-D)4_3]_K&3+C0>C<;;"
^XMB(3.9,22,2,4725,0)="""DATA"",396.18,215,3,813,0)"
^XMB(3.9,22,2,4726,0)="MBM*>O*F:Y#YL[1I>U6C'9\-N\=G(ONNE6R7C=BG0+(09A3LBM$&'_R@_>D[S"
^XMB(3.9,22,2,4727,0)="""DATA"",396.18,215,3,814,0)"
^XMB(3.9,22,2,4728,0)="MX4]G,_WAV;<RJT=`9G4,KC_>Y_)11WH1>D?3TTT(8H4)""W_3^;`D>%BF7W(-"
^XMB(3.9,22,2,4729,0)="""DATA"",396.18,215,3,815,0)"
^XMB(3.9,22,2,4730,0)="M';GH@MIB50DV1SZ<L80D%7U`]AJ$@)S]T!=D#TU)'CHH?1_""RWUOT/$^)L$*"
^XMB(3.9,22,2,4731,0)="""DATA"",396.18,215,3,816,0)"
^XMB(3.9,22,2,4732,0)="M3O5'IIQ[;(J""?5P(R.SCCH'?N_ONRH_+'9S,C/QH0.CB\I\28VJ<&5,7#1.3"
^XMB(3.9,22,2,4733,0)="""DATA"",396.18,215,3,817,0)"
^XMB(3.9,22,2,4734,0)="M$!;T%VE!0D59M0YO_ZVK!G34O)HBX%)THVPZ#\QC#!,Q5):-G)>KFJ7R6T]]"
^XMB(3.9,22,2,4735,0)="""DATA"",396.18,215,3,818,0)"
^XMB(3.9,22,2,4736,0)="MGD[9F,15G<)G_PRR`.H3RF52OHD?_RSN1:1O*$_CDP7/WBQV^M[1B]A0P/_"""
^XMB(3.9,22,2,4737,0)="""DATA"",396.18,215,3,819,0)"
^XMB(3.9,22,2,4738,0)="M36X&R`U_+-""H3,#Y;U4XX6=7::4E-:_<'IV%D)A)_:K$SVWB_MF:FMM2T*;`"
^XMB(3.9,22,2,4739,0)="""DATA"",396.18,215,3,820,0)"
^XMB(3.9,22,2,4740,0)="MGN@-O8#S-<@)2\Y*],,&)AK#?SZAX`R0BC).S]%Q$G4#?T`B&]8_PU-3KIE;"
^XMB(3.9,22,2,4741,0)="""DATA"",396.18,215,3,821,0)"
^XMB(3.9,22,2,4742,0)="MEJN[ME[4J[B&`=D33>-OC*#5FIG_8(?)UR3VZ+N!ZQ23%6R)B]FR5#TG*TI;"
^XMB(3.9,22,2,4743,0)="""DATA"",396.18,215,3,822,0)"
^XMB(3.9,22,2,4744,0)="MZH67+!_FW[(7<<LY6Q./*BL5'&):M?!4#4QXBR<%J3P3_XC!TB')_/2BE9:E"
^XMB(3.9,22,2,4745,0)="""DATA"",396.18,215,3,823,0)"
^XMB(3.9,22,2,4746,0)="MKN*O6ZJ_[+#23G=LI3F/&6&5+](IS4H.^^E,NJEYE(0/*WH]+!OK)\Y[$26<"
^XMB(3.9,22,2,4747,0)="""DATA"",396.18,215,3,824,0)"
^XMB(3.9,22,2,4748,0)="M,G0W<1!Z/\`=$/%DJC_*""=P""1O3<^&Y`W`.2E1BQUCXXF5LD`6P426?W3E.)"
^XMB(3.9,22,2,4749,0)="""DATA"",396.18,215,3,825,0)"
^XMB(3.9,22,2,4750,0)="M:.TC%0L,G@X%TNK>#UB5Q'/NH0IV36@]6.$F,BN(O-6.R'#[""4GBB3+@9*!?"
^XMB(3.9,22,2,4751,0)="""DATA"",396.18,215,3,826,0)"
^XMB(3.9,22,2,4752,0)="M!P&23'\4.+E[S&@N]+\('7#""9X.-#E%B]%';+9(K+.M%S4_+[;P\:DB=`>L$"
^XMB(3.9,22,2,4753,0)="""DATA"",396.18,215,3,827,0)"
^XMB(3.9,22,2,4754,0)="MS,%&/E9`-;=R[>K*PK6U2PNK/<::RZX<[R00'J40'G.>V0?0B\;!_?/1:-0/"
^XMB(3.9,22,2,4755,0)="""DATA"",396.18,215,3,828,0)"
^XMB(3.9,22,2,4756,0)="M[E7IX&EL<4*H`OZ(Q.(X96W&->U.]3SC,::!`X_H..RPQ#F2A_D-Y0_O!N_N"
^XMB(3.9,22,2,4757,0)="""DATA"",396.18,215,3,829,0)"
^XMB(3.9,22,2,4758,0)="M$]*9I8EDX4]:^W2$8O^IY$JBL""N)(PC>HX0ZC'V_;)F.=X)[9CHR5;\N""N8G"
^XMB(3.9,22,2,4759,0)="""DATA"",396.18,215,3,830,0)"
^XMB(3.9,22,2,4760,0)="MB^)Z>@8[X^S-PC::G@(=!D*X(XFTG4KXJX%6(.Z>)7A72W\WS01CD'^`U83\"
^XMB(3.9,22,2,4761,0)="""DATA"",396.18,215,3,831,0)"
^XMB(3.9,22,2,4762,0)="M-PCT2YL)_C1T7/QZK8(0(9TP#)L,0D->NCF3L&_""<W2*2TZM=X)MR74->_?S"
^XMB(3.9,22,2,4763,0)="""DATA"",396.18,215,3,832,0)"
^XMB(3.9,22,2,4764,0)="M6E75""VBK]HK^9MF+A`PO_""%FJ[\AN?)NK5E[3<-5%U6E;)@FYF:8`.YU1[XJ"
^XMB(3.9,22,2,4765,0)="""DATA"",396.18,215,3,833,0)"
^XMB(3.9,22,2,4766,0)="MOD7J);V*BQF*:DG?T$S:M@%?/!=FYRYB/BSBI""<7XO?7*O699@$`FOE(L[3X"
^XMB(3.9,22,2,4767,0)="""DATA"",396.18,215,3,834,0)"
^XMB(3.9,22,2,4768,0)="M[%]PSOXH""SI<+:%I[AGZ=7I-/T'F?#CHQ>&$[$.<XT>8P0P,PN61]""Y>""@JE"
^XMB(3.9,22,2,4769,0)="""DATA"",396.18,215,3,835,0)"
^XMB(3.9,22,2,4770,0)="MS3:EN_T:'UK5\^@E;FQHN:III=XQHAD>'GFRY6`,2V^WUL\G*-M=Z(H3RT&+"
^XMB(3.9,22,2,4771,0)="""DATA"",396.18,215,3,836,0)"
^XMB(3.9,22,2,4772,0)="M0(<E9KB\6JHN_\!27O_'<#SKQ/'P7..H3>)5(4Z9G%&RV/>;CI_:C\>)O%>#"
^XMB(3.9,22,2,4773,0)="""DATA"",396.18,215,3,837,0)"
^XMB(3.9,22,2,4774,0)="M#L(Z&\`$9Z@RF\]@ZQ.8A`,PV``^)`U0L@$XQ)DM$Z$E,M2N&+66RO^R*7[2"
^XMB(3.9,22,2,4775,0)="""DATA"",396.18,215,3,838,0)"
^XMB(3.9,22,2,4776,0)="M.<7'KFEF&:\Z<LRV`JU!E(#M']E""KSFAG>30RD)XT&PZ?=05]&9`R)_\-\GT"
^XMB(3.9,22,2,4777,0)="""DATA"",396.18,215,3,839,0)"
^XMB(3.9,22,2,4778,0)="MI>*3""E)A#O5EN>8LQLX7:H0'""WCF)GM%4[-6@F^*+::^(T$:):>GTX&(7Z.I"
^XMB(3.9,22,2,4779,0)="""DATA"",396.18,215,3,840,0)"
^XMB(3.9,22,2,4780,0)="M\F1E`-*EGT=<$/F0!\?3>&Q2L8K2.'.;=>(A8PV;;UK>SXD\)!X?XDP>I;!."
^XMB(3.9,22,2,4781,0)="""DATA"",396.18,215,3,841,0)"
^XMB(3.9,22,2,4782,0)="M2#S73T4GE4L;-*UX@N4MT]E$_RO@+M/4),6Z!RD=CA_G,O<0Z*P`FC)SAE)."
^XMB(3.9,22,2,4783,0)="""DATA"",396.18,215,3,842,0)"
^XMB(3.9,22,2,4784,0)="MS"".70(&CFZ>9&IG_$X"">S-""P\VFA^*3;,Z@!-PBK1:2/B+D^@IX^$5A<)7U$"
^XMB(3.9,22,2,4785,0)="""DATA"",396.18,215,3,843,0)"
^XMB(3.9,22,2,4786,0)="MU&6)L^:#Q)`+'PHU=L`2N-GT/-E3EIE""R*B8[9)#&GG&10(=HT(D+#()GY6L"
^XMB(3.9,22,2,4787,0)="""DATA"",396.18,215,3,844,0)"
^XMB(3.9,22,2,4788,0)="MMI_C6O!,&:DD5E--^4//(FNJCCFO3*U$<OLW[&-.R=>(DK;VG%Y2BK@P`OOW"
^XMB(3.9,22,2,4789,0)="""DATA"",396.18,215,3,845,0)"
^XMB(3.9,22,2,4790,0)="M3:VRK>>T24!\YO1Q9P6#BA7N_(FCYC\Z'9-&M$<@DSHT""'Z7&91?X7""?M9\5"
^XMB(3.9,22,2,4791,0)="""DATA"",396.18,215,3,846,0)"
^XMB(3.9,22,2,4792,0)="M3?='0'MHC18J\]4'6WF&3A*H[V3'VP<8TD6`--E6L7)DM4KR_XZ@V\,F5I_Z"
^XMB(3.9,22,2,4793,0)="""DATA"",396.18,215,3,847,0)"
^XMB(3.9,22,2,4794,0)="M-JZ`(>\^,GRIB%3,-CJF(J<NX;,+*7ARI-V>0B=843=)`0BK%Q:\V&Y`XH+5"
^XMB(3.9,22,2,4795,0)="""DATA"",396.18,215,3,848,0)"
^XMB(3.9,22,2,4796,0)="MQ9%P*V[!1A++M(5D`+>1CNRCCI[($(Z0DD^#5]>F5M:D5<V>O&+RM!G*+XWL"
^XMB(3.9,22,2,4797,0)="""DATA"",396.18,215,3,849,0)"
^XMB(3.9,22,2,4798,0)="M)X'HTT;PM(U`Z(@V[)KEV08YF+2C`/-,6AOA`T''S>I^'@6)1K/]Q)H%=[L`"
^XMB(3.9,22,2,4799,0)="""DATA"",396.18,215,3,850,0)"
^XMB(3.9,22,2,4800,0)="M\D^=(!4.<CJ;[0^F`IL;Y9X&;A1X5GAIR50BF=VC@Q_N/9>>.(T+&%=/N,1="
^XMB(3.9,22,2,4801,0)="""DATA"",396.18,215,3,851,0)"
^XMB(3.9,22,2,4802,0)="M&*<G,=A#)^DF>HD!G+!M!.;6P`K$3P=2H""M9=RPF,M)4?<2F4[%=J8^!)</("
^XMB(3.9,22,2,4803,0)="""DATA"",396.18,215,3,852,0)"
^XMB(3.9,22,2,4804,0)="M1P865;T2&<!<#X$F[5<8+9VUQ;[OL<5PM\<^V&+[97HD`T&^$G*`7`)G:;RA"
^XMB(3.9,22,2,4805,0)="""DATA"",396.18,215,3,853,0)"
^XMB(3.9,22,2,4806,0)="M'6L?8#[4<OZG0%,>5MA,O!R0-:)I+P/T^+S%I(X)1=`ED%J&[?'SC+3*-Q1C"
^XMB(3.9,22,2,4807,0)="""DATA"",396.18,215,3,854,0)"
^XMB(3.9,22,2,4808,0)="M]2Z98""M(VF,<.C:[0>[LNP`RVCJ0!'37-<$1;>^-7-`V,(75;H`<D+8S2L%+"
^XMB(3.9,22,2,4809,0)="""DATA"",396.18,215,3,855,0)"
^XMB(3.9,22,2,4810,0)="MQPTVYB_R_30%QASK)RJA@UZ=-Z@SZ%>M6^E$8WY->.SN2VA\4EH:0N^<CY%Y"
^XMB(3.9,22,2,4811,0)="""DATA"",396.18,215,3,856,0)"
^XMB(3.9,22,2,4812,0)="M&&-5]UZU?Z!%TUI%K155_Y,8!40)F%A^EB+ZO(QMG#15*-#<15YQ01M;=`7;"
^XMB(3.9,22,2,4813,0)="""DATA"",396.18,215,3,857,0)"
^XMB(3.9,22,2,4814,0)="M3O>J`EG*WDO6Z1YP;WKN?[""N@\IC6'T3FJ%O[9]X>_%78.5QO[?]H7MN0,@@"
^XMB(3.9,22,2,4815,0)="""DATA"",396.18,215,3,858,0)"
^XMB(3.9,22,2,4816,0)="M_@Y/57BE1U(5=M75]2EY/)]E_+U#P/ZYD%/?Y)B^L0NY\`YEP13*54%=J&3/"
^XMB(3.9,22,2,4817,0)="""DATA"",396.18,215,3,859,0)"
^XMB(3.9,22,2,4818,0)="MEL0F'.2HU*MU\L]JI`U)7M4Q/8CU""UTS>RW;@267OVY90K4]S':@9L`O$L&F"
^XMB(3.9,22,2,4819,0)="""DATA"",396.18,215,3,860,0)"
^XMB(3.9,22,2,4820,0)="M(Q7@_FYG.Z1ATQ%/@1UG.X@\""G1J?QQH!:&0"";R;U(,H=#NS^,'7^%9_1IYZ"
^XMB(3.9,22,2,4821,0)="""DATA"",396.18,215,3,861,0)"
^XMB(3.9,22,2,4822,0)="M\'I+J0>^WJ;E'NPT<-2'GPBUU_1<OBF267HT'""!SF*3/G'0^<YAKBEZ)I40I"
^XMB(3.9,22,2,4823,0)="""DATA"",396.18,215,3,862,0)"
^XMB(3.9,22,2,4824,0)="MWS\=.U-WWY,8(U.KC.DFST)Q)#[-8D24^8:3U#1O8T4=G6^)A2J?E87DSBP:"
^XMB(3.9,22,2,4825,0)="""DATA"",396.18,215,3,863,0)"
^XMB(3.9,22,2,4826,0)="ME:(22TZG27LQ/8]@69Q?ZW6KD5BSZ""ICZK.`'J/""?BOD5%ROXGH(3)N)[I?E"
^XMB(3.9,22,2,4827,0)="""DATA"",396.18,215,3,864,0)"
^XMB(3.9,22,2,4828,0)="M6J6,MIHY@5""5*0,204T+:RV>31JX(!DB2/.S$\#4RBIZ#G9W8XXL+8>T(8YC"
^XMB(3.9,22,2,4829,0)="""DATA"",396.18,215,3,865,0)"
^XMB(3.9,22,2,4830,0)="M(-6'O=XX\JZ6!'Z@O&Y2'BA%VU8+-<ON<Z8""3/IP<`KSZS09$G!C?33@:(OX"
^XMB(3.9,22,2,4831,0)="""DATA"",396.18,215,3,866,0)"
^XMB(3.9,22,2,4832,0)="MI6#CX0]+$Z5OC%:PC)(W-DR?>$02;)KAP:8%\?!EKCTTB5?AR3O;K0.V>\E+"
^XMB(3.9,22,2,4833,0)="""DATA"",396.18,215,3,867,0)"
^XMB(3.9,22,2,4834,0)="ML#4/3Q8)OTN""]CQ':Z6AK.J;)9PAB=MZ<ORN@.57D@Q@(PG=U]@NUY9]U!(@"
^XMB(3.9,22,2,4835,0)="""DATA"",396.18,215,3,868,0)"
^XMB(3.9,22,2,4836,0)="M/E_^2!J(^\T`?&;X#4EY]X6;6VI5M)O0?@%[02^654NHS'[""#7B;[GY(M\+3"
^XMB(3.9,22,2,4837,0)="""DATA"",396.18,215,3,869,0)"
^XMB(3.9,22,2,4838,0)="MK""2]L4Y<(WQK>)_?Q!W[6""<U-QV6@#0N7V""O[<L2'78:!]\-W,#E-NGV@T1,"
^XMB(3.9,22,2,4839,0)="""DATA"",396.18,215,3,870,0)"
^XMB(3.9,22,2,4840,0)="M6""7M5IM$RC$-D;C%N*(0S#DJ\X-<YKN!@]$1XO+!F>]@$[EBR!9MY(CLRQ',"
^XMB(3.9,22,2,4841,0)="""DATA"",396.18,215,3,871,0)"
^XMB(3.9,22,2,4842,0)="M&[)`)\?UK'>=JB2<JEN.J9H!,9UT#TZ53?4\SZF>YRVJ9\""_O,;YEP%7\RS@"
^XMB(3.9,22,2,4843,0)="""DATA"",396.18,215,3,872,0)"
^XMB(3.9,22,2,4844,0)="M:I:%)ETNQNY3F1`V=-:17E:PYS+=B\N.<5,O$VYJFRA[3B#*;F#!OL!8L$\2"
^XMB(3.9,22,2,4845,0)="""DATA"",396.18,215,3,873,0)"
^XMB(3.9,22,2,4846,0)="M,NM5B\SZDDUF;0K4VHN<F1!FGD0.V](N&Y92BYP""WZDE?/F;Q_E<%?R[<=[`"
^XMB(3.9,22,2,4847,0)="""DATA"",396.18,215,3,874,0)"
^XMB(3.9,22,2,4848,0)="MD?2,7-8WB$;""!L:<6JG4T0^1(T#L-6P>X""_'5LN:ABP%^W>1PQ?1;0C_:_#="
^XMB(3.9,22,2,4849,0)="""DATA"",396.18,215,3,875,0)"
^XMB(3.9,22,2,4850,0)="MV`T=1];A5X>6T9QCY;M:Q72T:N3(34V]A1<5-K@6T>1LUK3(@_:@T;QJI<WJ"
^XMB(3.9,22,2,4851,0)="""DATA"",396.18,215,3,876,0)"
^XMB(3.9,22,2,4852,0)="MUHQRO8Q3/-`+QR%[]""CI'RT;MX4_.GH=#0I;0VC%&H3+`[V%R.%%+4?F%WPW"
^XMB(3.9,22,2,4853,0)="""DATA"",396.18,215,3,877,0)"
^XMB(3.9,22,2,4854,0)="ML*+J./]5-S?0&*Q&A6VL:#E7P334VP=9).H&-U<^%0""K.=N_C9'B$"">G=>$X"
^XMB(3.9,22,2,4855,0)="""DATA"",396.18,215,3,878,0)"
^XMB(3.9,22,2,4856,0)="M;068R2;3?=(.269^TLMSU;JM?X0!3?$7^KJ'_1F2FV2PY1`G<92EUCTQ#]/&"
^XMB(3.9,22,2,4857,0)="""DATA"",396.18,215,3,879,0)"
^XMB(3.9,22,2,4858,0)="MY0X@;+W(?3P]DT#/>A>\0.;PHK/AIFVR13GB<;(1QREJ=Y0M9Q''$M`C\2YJ"
^XMB(3.9,22,2,4859,0)="""DATA"",396.18,215,3,880,0)"
^XMB(3.9,22,2,4860,0)="MJKV7]T^P'4RSI&,*)J/5;+-7+ETP$%L+7[)TNF?DXU!!'EFB+:ZU?7-;1@6]"
^XMB(3.9,22,2,4861,0)="""DATA"",396.18,215,3,881,0)"
^XMB(3.9,22,2,4862,0)="M]FZ%JEI\__)TIH'+>B$?&;ILH*&C\RX26=70UM`B0RL5P@9@!ESMA!:GD=[R"
^XMB(3.9,22,2,4863,0)="""DATA"",396.18,215,3,882,0)"
^XMB(3.9,22,2,4864,0)="M7PDTG\=L6_,XC/ZX7!8Z&'>*T;,)C0LNFFCV?1'7>R2XHNUQ\0TOW-$J.=W4"
^XMB(3.9,22,2,4865,0)="""DATA"",396.18,215,3,883,0)"
^XMB(3.9,22,2,4866,0)="MNHDKW#*N!&P=^,L!K_>5;&_=KV(/BME-5`,MYR*DP&;V0H5.^W1;J`Y<(\8."
^XMB(3.9,22,2,4867,0)="""DATA"",396.18,215,3,884,0)"
^XMB(3.9,22,2,4868,0)="M_MS?.[KE!$7J2:,[VGN)1-NCW]R_5E&WM8*PI_MQ+B,M)WM.0RUBSZ5,C4QG"
^XMB(3.9,22,2,4869,0)="""DATA"",396.18,215,3,885,0)"
^XMB(3.9,22,2,4870,0)="MVIK+H45-RW=9.^YK>8T(O;M_Z`DKU1ZL""VIUJ^\7R%#+$YF!BNN'GNJX/<4U"
^XMB(3.9,22,2,4871,0)="""DATA"",396.18,215,3,886,0)"
^XMB(3.9,22,2,4872,0)="M/$^RL?M])ENWY]*""VO*<RFBT3;5EZ`6MVO=SN;_EN4P):LM[?\?;6Y9(@%'L"
^XMB(3.9,22,2,4873,0)="""DATA"",396.18,215,3,887,0)"
^XMB(3.9,22,2,4874,0)="M^ZD\(,L,I4JQ3""8MS^Y7?\WO5W/`""DGU4R;;2,OG'?1'</Z=I]@$)$""WK):6"
^XMB(3.9,22,2,4875,0)="""DATA"",396.18,215,3,888,0)"
^XMB(3.9,22,2,4876,0)="M30M)A8'6&[IGX*&U''1;U+@U8[JMY,A]\Q5T$2UM=O$H'@W(5E@""!CGG6(-6"
^XMB(3.9,22,2,4877,0)="""DATA"",396.18,215,3,889,0)"
^XMB(3.9,22,2,4878,0)="M'N0\;_-(]D4W,BE&F)P47@XY,G1NVBZM1++_\JO#+#'KT!KZ;EW+XSYAZX9Q"
^XMB(3.9,22,2,4879,0)="""DATA"",396.18,215,3,890,0)"
^XMB(3.9,22,2,4880,0)="MBW'""B]]2+T6(O'$V&?_.\S>^$#R$_MX3]2C_`P)\&`&O$FZ;@^P73)&.L""\D"
^XMB(3.9,22,2,4881,0)="""DATA"",396.18,215,3,891,0)"
^XMB(3.9,22,2,4882,0)="MNI0_A<Z""#0BSO*,?5M1-+0#SRD[:VX-F;,)$%46.EO^>.N>LVS=S]_V`X_Z-"
^XMB(3.9,22,2,4883,0)="""DATA"",396.18,215,3,892,0)"
^XMB(3.9,22,2,4884,0)="MX/&+1N5%28**-)_EUX-N^2R#LYA<>-^06I@KZ.@EPOP6(<DMLF[B3>QOSLOP"
^XMB(3.9,22,2,4885,0)="""DATA"",396.18,215,3,893,0)"
^XMB(3.9,22,2,4886,0)="M&E%EH.""'_2SD^<3H?'V3'SU1/U/Q@BX945&8`,#8O5[C8[[/)F00VS7XB:5I"
^XMB(3.9,22,2,4887,0)="""DATA"",396.18,215,3,894,0)"
^XMB(3.9,22,2,4888,0)="M\R3W5T0]2M^VUO1;%&^$K^F/!_T$-B""-\M/XZAA<5J$C3A=Y>!;M?K=4NRC("
^XMB(3.9,22,2,4889,0)="""DATA"",396.18,215,3,895,0)"
^XMB(3.9,22,2,4890,0)="M?6""=64-5]I""';#U!R;;\G(901]F$K!_R?J&UGPSC\$(I;^30T:'YB3+<&=DA"
^XMB(3.9,22,2,4891,0)="""DATA"",396.18,215,3,896,0)"
^XMB(3.9,22,2,4892,0)="MXW^S8/Z9!\SP0MU7@`.=)84F(+Y_]<2G^IK=/-@9OB3$-QYTQX<,5M/7%QCI"
^XMB(3.9,22,2,4893,0)="""DATA"",396.18,215,3,897,0)"
^XMB(3.9,22,2,4894,0)="MC%%,>('/>``<7-5+-=-/A/LZ>X4Q6'7'B)]E""`]>-FK5+65*6=NJ&&K53ZA#"
^XMB(3.9,22,2,4895,0)="""DATA"",396.18,215,3,898,0)"
^XMB(3.9,22,2,4896,0)="M':J;E%!AZ*56!U:1-><GQ/T=0DP+$+U4*OI0R>MJSD^4!SI$*9:*>BG6X95:"
^XMB(3.9,22,2,4897,0)="""DATA"",396.18,215,3,899,0)"
^XMB(3.9,22,2,4898,0)="MH6B4=M][?%<X1SK$F15P>BG8T-)U/P&.=@:0L6%2@,]X`KSD)\""#'0*DY?7+"
^XMB(3.9,22,2,4899,0)="""DATA"",396.18,215,3,900,0)"
^XMB(3.9,22,2,4900,0)="MP6;J=?2B5M1S2+TNUXOE+3^A'NIPL<:%D^0]7L:`EKOE)\+ASHSRM/`N/0`>"
^XMB(3.9,22,2,4901,0)="""DATA"",396.18,215,3,901,0)"
^XMB(3.9,22,2,4902,0)="MNEPS<[6""8=[2""EK5WPO(/1UA98%&""ZOG47F`)>GM/CU^5T#'.GNIP@;U/#`'"
^XMB(3.9,22,2,4903,0)="""DATA"",396.18,215,3,902,0)"
^XMB(3.9,22,2,4904,0)="MKVBUBN$GQ,.=O4L1HM=I.;ABUG.^*I\CG4&,""Q""]SI'P4KWT=L1*VD9ZK#.D"
^XMB(3.9,22,2,4905,0)="""DATA"",396.18,215,3,903,0)"
^XMB(3.9,22,2,4906,0)="M""0&IETD0N8""S:GTUU(^VW7,$=K@+35)P%QMYAC!W0\(SN\R-T2(#_9H'&AOH"
^XMB(3.9,22,2,4907,0)="""DATA"",396.18,215,3,904,0)"
^XMB(3.9,22,2,4908,0)="M*.#YJ?9""-DLX?;WB06`Q<%DM:)'(HE94&]NY`B??6*,?5G#$YAH=L>&7`[YZ"
^XMB(3.9,22,2,4909,0)="""DATA"",396.18,215,3,905,0)"
^XMB(3.9,22,2,4910,0)="MM]S:U&2@*W;$PQ5[^$)-+^25+I(JO:WN6)=-F8)P$QYPQUAO=EXIY*LCO:/"""
^XMB(3.9,22,2,4911,0)="""DATA"",396.18,215,3,906,0)"
^XMB(3.9,22,2,4912,0)="M8Z'.[GT>8(_3KMJ<F]\JWNYE=ZS73IR&._$M1T@DZ>NZ=;V`--F)#]I$Q+`$"
^XMB(3.9,22,2,4913,0)="""DATA"",396.18,215,3,907,0)"
^XMB(3.9,22,2,4914,0)="M!1>=+MS!E1W^<KSL(CP""\\+#WPTX-.?O^ZHYPRZ;BSK^7R2OZVEZ/LU)NO]<"
^XMB(3.9,22,2,4915,0)="""DATA"",396.18,215,3,908,0)"
^XMB(3.9,22,2,4916,0)="MT\X99:VT6Q:!!)1WNQUY@UUIS1Z'&0B/4_G/.]MEQ;*QML[CPX#5ITJ8;\#1"
^XMB(3.9,22,2,4917,0)="""DATA"",396.18,215,3,909,0)"
^XMB(3.9,22,2,4918,0)="MO#<OWC79Q+7PJ+4IB\(I8PQ'7PK(YJP];K'38,ZVG""T>:4^\7I_'@-M2C\&E"
^XMB(3.9,22,2,4919,0)="""DATA"",396.18,215,3,910,0)"
^XMB(3.9,22,2,4920,0)="MKC1?ZKU\,K>V4F)PI6PU<J_`A=(>>=M1L%!H4^WBDX,P'V11S6D]LTX.6%-,"
^XMB(3.9,22,2,4921,0)="""DATA"",396.18,215,3,911,0)"
^XMB(3.9,22,2,4922,0)="M)`RY1:L#I""K8._%D=&6K;N+T&W(VMI-^$NTT_>1NSS.A!""MA,C%A.C'?XA/S"
^XMB(3.9,22,2,4923,0)="""DATA"",396.18,215,3,912,0)"
^XMB(3.9,22,2,4924,0)="MB:#,QA&M[Q0]0PY""J@[[3M?U?(""=O;]@T-[HX2];?O*7`^X@NQ;PV-E[#RNC"
^XMB(3.9,22,2,4925,0)="""DATA"",396.18,215,3,913,0)"
^XMB(3.9,22,2,4926,0)="M`*4P_]P#YD$2O3*V5>QH57VU4?=WAI4&(U>""35]I5QR/.WOO1$YE(42OG=EE"
^XMB(3.9,22,2,4927,0)="""DATA"",396.18,215,3,914,0)"
^XMB(3.9,22,2,4928,0)="MA_G.7D1Z1*SIJ/`ZO99N5YRL.WOO*D_'A-WY$P^(([/K>:.HE90I9==ANYV]"
^XMB(3.9,22,2,4929,0)="""DATA"",396.18,215,3,915,0)"
^XMB(3.9,22,2,4930,0)="M""#`W($W!$^5I=YS=2!/8V0L/3@.^A/`F'PRZ(]Q]7'EG+P+G#?CBPF;TPA=>"
^XMB(3.9,22,2,4931,0)="""DATA"",396.18,215,3,916,0)"
^XMB(3.9,22,2,4932,0)="M>O;*'E>.=#/PD4X+2+WV9'?""`3M[$;]JY.:/@>WHJ5J[D$:WXT,>9!SJ&\^7"
^XMB(3.9,22,2,4933,0)="""DATA"",396.18,215,3,917,0)"
^XMB(3.9,22,2,4934,0)="MV(T\NIV]2(1L1)B&""+TV9%<2Z7;V(A>R$6(&0GS.`V)W,^EV]B(MLA%K%AX@"
^XMB(3.9,22,2,4935,0)="""DATA"",396.18,215,3,918,0)"
^XMB(3.9,22,2,4936,0)="M7I9=-W(]=O8B+;(!(>U4R6Q7#QN@B_D/.SZD[;`VD`>;7D.ZD(.]LQ>I](T`"
^XMB(3.9,22,2,4937,0)="""DATA"",396.18,215,3,919,0)"
^XMB(3.9,22,2,4938,0)="M1;/5:V-V-0=KQX=\NH3@)_!:M5VK&]CQ(9$W(=IW7J\4-_+4\S6U0`B6KE!G"
^XMB(3.9,22,2,4939,0)="""DATA"",396.18,215,3,920,0)"
^XMB(3.9,22,2,4940,0)="MI<TNU'*J0@ONP<$US<05OJV[!6,2MV""(>_(#1T2GH%5[]HU0.Z5JH?+=X4&4"
^XMB(3.9,22,2,4941,0)="""DATA"",396.18,215,3,921,0)"
^XMB(3.9,22,2,4942,0)="MT6FFING6_KJUM;_'9O!>9T'1P,+<DN+R&):%:CTF]$O4""_EM""9%5<FX+O6/E"
^XMB(3.9,22,2,4943,0)="""DATA"",396.18,215,3,922,0)"
^XMB(3.9,22,2,4944,0)="MF7,5M:ZH)FV/B:.E>1;8-RKH%R8FPO-JQ=LP@J@`Y`T&9-L)Y%[NWU,V:B42"
^XMB(3.9,22,2,4945,0)="""DATA"",396.18,215,3,923,0)"
^XMB(3.9,22,2,4946,0)="MK56J>-W--)>2%J0\P2K*_TX""](9%;$IVS6RAH!B$.Y;2&%>1DL3D@KF""7B+N"
^XMB(3.9,22,2,4947,0)="""DATA"",396.18,215,3,924,0)"
^XMB(3.9,22,2,4948,0)="M<#(`@K>6JY(NLK1?-N$&)&.T"")%]6$3->*59D<XM\O)+=$X&);QMF6L65;5B"
^XMB(3.9,22,2,4949,0)="""DATA"",396.18,215,3,925,0)"
^XMB(3.9,22,2,4950,0)="ME`IU!-#`[8$)\BIFI*T;-04]4->V-07)1Y.`._^AZ9B12X[%80$Y7W8O2\A@"
^XMB(3.9,22,2,4951,0)="""DATA"",396.18,215,3,926,0)"
^XMB(3.9,22,2,4952,0)="M3UU6BT5C$Z'8JD\H^@9X-NAN*1>2%5[Z$8]6Q"">8E*(HPRLK@M&>6:U,7Z(8"
^XMB(3.9,22,2,4953,0)="""DATA"",396.18,215,3,927,0)"
^XMB(3.9,22,2,4954,0)="M_H9'V8\$;2H6-""`%JT@)DU[#OJ9^X)]98_XXVP[GG&/>-UM8KQ7WR`G3>N>#"
^XMB(3.9,22,2,4955,0)="""DATA"",396.18,215,3,928,0)"
^XMB(3.9,22,2,4956,0)="MU#2=]K\(""MU`0S-.""/OG""""%4::_.XC90""+R7C.X_]+#/KZ&ED0NDQT_2D4_Y"
^XMB(3.9,22,2,4957,0)="""DATA"",396.18,215,3,929,0)"
^XMB(3.9,22,2,4958,0)="M/_LM#3XFH2$.G9""4R5ZX?J5W1AV'BI0ME@>=HXZL&GF]5NR=@0LG`%LKTY*&"
^XMB(3.9,22,2,4959,0)="""DATA"",396.18,215,3,930,0)"
^XMB(3.9,22,2,4960,0)="M#""M&%9WM/37V)!P[6RJGG6,?FMM""P]'S/;3*4V#HX4\Q#7E,LLSGKL9Z9]AI"
^XMB(3.9,22,2,4961,0)="""DATA"",396.18,215,3,931,0)"
^XMB(3.9,22,2,4962,0)="MR)'+A_V(1""DN%6HY7_QU;D//P!E_DPW]D*1K^/79WAEU%D[XFY[KY,*<'\.V"
^XMB(3.9,22,2,4963,0)="""DATA"",396.18,215,3,932,0)"
^XMB(3.9,22,2,4964,0)="MTMA'01I[$BZ2T#@=\FQ#'OO_EW<UH7%4<7PWFZ:VDDJKA7YW&BUM9-GLSNQN"
^XMB(3.9,22,2,4965,0)="""DATA"",396.18,215,3,933,0)"
^XMB(3.9,22,2,4966,0)="M-NVAE-;80F/3#RQ2L9UD9Y.Q^^7,;-(%]>!%/%I01,2#X*$@""MX]>!$/""H5>"
^XMB(3.9,22,2,4967,0)="""DATA"",396.18,215,3,934,0)"
^XMB(3.9,22,2,4968,0)="M]:#@0?`@M(('0=_'_[UY;^;-[$X3FX[VE.[._N?_?U__S_?_C>IZ20^TKPE1"
^XMB(3.9,22,2,4969,0)="""DATA"",396.18,215,3,935,0)"
^XMB(3.9,22,2,4970,0)="MDK`6YF(H5:2"">`4E<1Q'^C&4C$`[[""""EJM0.^]-,%*GIBE$:T'*Z5!%U7>Y."
^XMB(3.9,22,2,4971,0)="""DATA"",396.18,215,3,936,0)"
^XMB(3.9,22,2,4972,0)="MJ,U:C=/2*^EH.*T8KY)X2$_$#%=%:K""IH*2+E.9B*!D!<-T0)4E;]Z,IZ=,!"
^XMB(3.9,22,2,4973,0)="""DATA"",396.18,215,3,937,0)"
^XMB(3.9,22,2,4974,0)="MN.\0)5%]QJX&O:K`U)97@\A5[&HPJNG`U([SG8IB'.EOUIF*>YZM1R_D4JY*"
^XMB(3.9,22,2,4975,0)="""DATA"",396.18,215,3,938,0)"
^XMB(3.9,22,2,4976,0)="M]U%8/?E'""F_YY5(!-^9O]NH8XXD'$\QF<^UAA$(4=[K(W3[@;E;!W:Q>@.X_"
^XMB(3.9,22,2,4977,0)="""DATA"",396.18,215,3,939,0)"
^XMB(3.9,22,2,4978,0)="MA""/\9L[E`H6FI:!+&`H!,^'2RPL459/A<D7R88A\,#36[0H^CAL%0('`<'<,"
^XMB(3.9,22,2,4979,0)="""DATA"",396.18,215,3,940,0)"
^XMB(3.9,22,2,4980,0)="M04R4V,-0+\@-=_,XX""2`312B\,5FQ)<?AY??RH9;HM\K%[3+RY8O#YZ@NK5$"
^XMB(3.9,22,2,4981,0)="""DATA"",396.18,215,3,941,0)"
^XMB(3.9,22,2,4982,0)="MRN0(+F_'@>II,E>.M^P@%ND\MOO:JQVT&0F`EXW&#J)B:/H:MM,BS.>UA1X."
^XMB(3.9,22,2,4983,0)="""DATA"",396.18,215,3,942,0)"
^XMB(3.9,22,2,4984,0)="MERQ:[&,*P46>S&N63:)*:)H!_Y<$SPC`,7R0U]H=K=%SR'/D5]`HW_3@[3C2"
^XMB(3.9,22,2,4985,0)="""DATA"",396.18,215,3,943,0)"
^XMB(3.9,22,2,4986,0)="M`AS4""?25&A2+(7-)P%_*$Z@LQ4L^9,6:(WS\#G#4<;U<32O40ZE2D>3\-BSG"
^XMB(3.9,22,2,4987,0)="""DATA"",396.18,215,3,944,0)"
^XMB(3.9,22,2,4988,0)="M/D'.U*C>L)PU2<ZKV9""<>=Y\=+J6!DR+S4HYRW*<[W[D?(Z6C>)#6;:)A-HT"
^XMB(3.9,22,2,4989,0)="""DATA"",396.18,215,3,945,0)"
^XMB(3.9,22,2,4990,0)="M]!5.,!%RWV5%:RJWF\NI\ZZ552/9I9%C5RR*$1%46%0QV52;U3%N!--+H)#6"
^XMB(3.9,22,2,4991,0)="""DATA"",396.18,215,3,946,0)"
^XMB(3.9,22,2,4992,0)="M[U+$'__*I8ALK!T""2^<NC56^QY;.4QP-Y?>,7]I'+[""ZVOEVLR^:<\KHLRZ%"
^XMB(3.9,22,2,4993,0)="""DATA"",396.18,215,3,947,0)"
^XMB(3.9,22,2,4994,0)="MN'>&UJ2O""&<PC&*#TLYK7;.KN2W+=$@D&N.@U3MMB\`;@5%`4-#ZZ(F""$`%7"
^XMB(3.9,22,2,4995,0)="""DATA"",396.18,215,3,948,0)"
^XMB(3.9,22,2,4996,0)="M0=I('!P.<H#\2=Y$%JV7-'71S2@5F!Y08(?""!]Y^0>(TM'4=&R;YZH.E)DG`"
^XMB(3.9,22,2,4997,0)="""DATA"",396.18,215,3,949,0)"
^XMB(3.9,22,2,4998,0)="M&O$)V/_VK0PEBA%D(NVLB+(Z\D)XPVZC<)(,[/;AWY:*RG+6Q""LEK\/JOZ@P"
^XMB(3.9,22,2,4999,0)="""DATA"",396.18,215,3,950,0)"
^XMB(3.9,22,2,5000,0)="M?S^;9[""JW+IOVCB]Q[P4,""0Q_C0'</6=&K.--`*R5;N6!W?D&BK=$7!V:""(U"
^XMB(3.9,22,2,5001,0)="""DATA"",396.18,215,3,951,0)"
^XMB(3.9,22,2,5002,0)="MPM-IV-CZ5[H:@[.[,Z+<#&_OFN*H?7Z^B>'6.*JL#\U)7GGR]#F.D!3&DA5&"
^XMB(3.9,22,2,5003,0)="""DATA"",396.18,215,3,952,0)"
^XMB(3.9,22,2,5004,0)="M8A`T$RNC)ASEOLE$HR?OQ/?^_80CT:RN(K4ID:_!#8K7LC+]JPIT9D*?[#\5"
^XMB(3.9,22,2,5005,0)="""DATA"",396.18,215,3,953,0)"
^XMB(3.9,22,2,5006,0)="M]>CK2;HXIK,PIO.^J;&Q&UA]SQ%&_5FI#>Y]Q?W\=<.7WJ@.N!5Q??W)S):?"
^XMB(3.9,22,2,5007,0)="""DATA"",396.18,215,3,954,0)"
^XMB(3.9,22,2,5008,0)="M^>VQ#WRSI03-!U@]PV#DVPTM6E3T,:^*T=L=(.L=WL;\3:%7NY$2ZR7&)-4E"
^XMB(3.9,22,2,5009,0)="""DATA"",396.18,215,3,955,0)"
^XMB(3.9,22,2,5010,0)="M-<1.LR[?>:]L:""5B9&%:3;7W#G""N)_AZ?`;]82[B((77T<Z@8[=I:;/H]&\3"
^XMB(3.9,22,2,5011,0)="""DATA"",396.18,215,3,956,0)"
^XMB(3.9,22,2,5012,0)="MP-""3C89I.V[Z.J$PV'0Z`$9H`/S""O!*V][M6V^50Z.CT7R&E>EJO3>&-61QG"
^XMB(3.9,22,2,5013,0)="""DATA"",396.18,215,3,957,0)"
^XMB(3.9,22,2,5014,0)="ML6G:CW:G%,5^K4@K>$=H!1\2-FPY!1LV.SPP!FC-OZ2$0.XV5T$3?ILE/5F+"
^XMB(3.9,22,2,5015,0)="""DATA"",396.18,215,3,958,0)"
^XMB(3.9,22,2,5016,0)="M@H,8Q-'M6GB78)5.5+EO.,2T7U)`?>2&EPAB#C>RLD@_912=H_1D08?),R8N"
^XMB(3.9,22,2,5017,0)="""DATA"",396.18,215,3,959,0)"
^XMB(3.9,22,2,5018,0)="M&&OWPW(M6%:;!#>1M9A4N$U*Y]""H2#;3W4QH63XM"")(J=WA,+;!D@W)YYY7R"
^XMB(3.9,22,2,5019,0)="""DATA"",396.18,215,3,960,0)"
^XMB(3.9,22,2,5020,0)="MEM(D[VB<_F1@M#D)Y^."";[B*D9NHUD&2(;D-:/RF:N)%`==)^2NTADA@WPWV"
^XMB(3.9,22,2,5021,0)="""DATA"",396.18,215,3,961,0)"
^XMB(3.9,22,2,5022,0)="M[9^8L^HD072^:[?1!TD\_/+_V<./-IVK(H8""2SU^+S2D&)@)A-[HN5_HT&X%"
^XMB(3.9,22,2,5023,0)="""DATA"",396.18,215,3,962,0)"
^XMB(3.9,22,2,5024,0)="M&I\HRE</740'&#J?:7UTPS_2M`Z=4+4S%C(*RV*MZ12\\&O.]/7LH,K2,K-/"
^XMB(3.9,22,2,5025,0)="""DATA"",396.18,215,3,963,0)"
^XMB(3.9,22,2,5026,0)="M:&YL$DB\H7""2+P36G':4B$!==<M!IW,=,(VY]\Z>1)9-R_3RVNHR.KZ['=>U"
^XMB(3.9,22,2,5027,0)="""DATA"",396.18,215,3,964,0)"
^XMB(3.9,22,2,5028,0)="MD6B%R:AQ!#?V-C44#H14B\_35(@G&H/!63,_>;@($9E);5#,H`P5X3`<U^'5"
^XMB(3.9,22,2,5029,0)="""DATA"",396.18,215,3,965,0)"
^XMB(3.9,22,2,5030,0)="MXWPXROS57UX$#\DB,0&8-VW)7K'PT/06EW%VTNUU<30<YTQ;P""HRX'`RL>>0"
^XMB(3.9,22,2,5031,0)="""DATA"",396.18,215,3,966,0)"
^XMB(3.9,22,2,5032,0)="MY![[U+-N>GB?YOWDKW6SB]8UAG`GYB#YKV>[5I[_""'W4--M2K&7!A*RE8S7)"
^XMB(3.9,22,2,5033,0)="""DATA"",396.18,215,3,967,0)"
^XMB(3.9,22,2,5034,0)="M%^ZRW<UKEK=8F!2ECVA3""""&3"":(<CK%(Z5N9L+V^Z533,ITU7Q(LPE6#S[.#"
^XMB(3.9,22,2,5035,0)="""DATA"",396.18,215,3,968,0)"
^XMB(3.9,22,2,5036,0)="M7_GDI=Y""R_:0G%A$.N!KOM=6A/C>O<Q@!EC_/C;9$)<:_O;@ELNG.JV%CK""5"
^XMB(3.9,22,2,5037,0)="""DATA"",396.18,215,3,969,0)"
^XMB(3.9,22,2,5038,0)="MV?]GI(5WC)6^9X.-/DO3Y6)M*[9VV&80#-*@%;07C=.BV7-ICAEO""HC%H04R"
^XMB(3.9,22,2,5039,0)="""DATA"",396.18,215,3,970,0)"
^XMB(3.9,22,2,5040,0)="M=@1]V>H@TZIIW["":_>@'SZ('T5+&(3*/_$&?QY<].IYVM%*<JA0)2CMX)Y/1"
^XMB(3.9,22,2,5041,0)="""DATA"",396.18,215,3,971,0)"
^XMB(3.9,22,2,5042,0)="MI,[9F(X;HD$^\Y;-MI:$VD&;_CSR@>VKN$!@:<DQ5\A)M=`?VX\_$L66OSY!"
^XMB(3.9,22,2,5043,0)="""DATA"",396.18,215,3,972,0)"
^XMB(3.9,22,2,5044,0)="M?N$E$58F4%LUU2(._.7.57A4_GB<QD=AR8V=.(O$;>/'D)B=YHI%=X/MNCV:"
^XMB(3.9,22,2,5045,0)="""DATA"",396.18,215,3,973,0)"
^XMB(3.9,22,2,5046,0)="M#>KTZ%>.AQWIE@7N08^>!@7NF8U+.6'IQ)T*63:'_=6GIR%!,J+.""(O%,+GW"
^XMB(3.9,22,2,5047,0)="""DATA"",396.18,215,3,974,0)"
^XMB(3.9,22,2,5048,0)="M,\'3/?=Q1I#32$<E0]2Q!K).2[:(G_+RN[L9LI8FND;J?(G56T#/#F_,QA@O"
^XMB(3.9,22,2,5049,0)="""DATA"",396.18,215,3,975,0)"
^XMB(3.9,22,2,5050,0)="ML.CVT$5W-7CDY7[P@Y7/7<'U+18.SF-UB'>*0XYBM$=(P13BTZ:Q;&1ZF`Y%"
^XMB(3.9,22,2,5051,0)="""DATA"",396.18,215,3,976,0)"
^XMB(3.9,22,2,5052,0)="MB\0;&>M$V#LG%%A<`>T/I1&WJ`4W#L;Q2V'#8\<\GHLV-M\85P/N'9594AF("
^XMB(3.9,22,2,5053,0)="""DATA"",396.18,215,3,977,0)"
^XMB(3.9,22,2,5054,0)="M5]>5.&M/#\2OK2_QDD@\]W9F?:GK$O4O'IBZPMF%BPRY=^FP[(4U]BL_V';["
^XMB(3.9,22,2,5055,0)="""DATA"",396.18,215,3,978,0)"
^XMB(3.9,22,2,5056,0)="M&[Z4*N<^JY277=P$>4_'RILJA-R<6EYI98ZT8N6MI4E>=;1*E_<*+TQ1""JP7"
^XMB(3.9,22,2,5057,0)="""DATA"",396.18,215,3,979,0)"
^XMB(3.9,22,2,5058,0)="MTR3P9K7`AB3P5[$""ERII$GC+\`5>TCT%T$JY=S+!B!T>@F1]2[?/85,49P$O"
^XMB(3.9,22,2,5059,0)="""DATA"",396.18,215,3,980,0)"
^XMB(3.9,22,2,5060,0)="MT?+29""'5H:&A=>F""!--]$2(D@X;>-8^4/3*6N8D""4*;))!D97A+I'N6U6$EF"
^XMB(3.9,22,2,5061,0)="""DATA"",396.18,215,3,981,0)"
^XMB(3.9,22,2,5062,0)="MDDD""<[`V24:'ET2Z:,*TNEH4/=FZ>OS%DP_&_=CPW(M(Z-QJB)B(<B+NQT@0"
^XMB(3.9,22,2,5063,0)="""DATA"",396.18,215,3,982,0)"
^XMB(3.9,22,2,5064,0)="M*1GCCT44GP6""@KM8,(L;XGN$0:ZDS`(9KNFR5'[$/)$?^3P=$08@V3Q-7L'."
^XMB(3.9,22,2,5065,0)="""DATA"",396.18,215,3,983,0)"
^XMB(3.9,22,2,5066,0)="MNN9ZR`4PG3H/B['PS`,FBC+P[Q]02P,$%``""``@`S(/""--_/M85[NP``O[<'"
^XMB(3.9,22,2,5067,0)="""DATA"",396.18,215,3,984,0)"
^XMB(3.9,22,2,5068,0)="M`""````!G96YE<F%L7TUE9&EC86Q?17AA;5\Q,3$N<&YL+F9R;>Q=;6_;.+;^"
^XMB(3.9,22,2,5069,0)="""DATA"",396.18,215,3,985,0)"
^XMB(3.9,22,2,5070,0)="M/L#\!V$OL&[OI%V1U&N!BR)ITY=%T@1)9@87%XL%+=.VIK+HU4M2[Z^_AY(M"
^XMB(3.9,22,2,5071,0)="""DATA"",396.18,215,3,986,0)"
^XMB(3.9,22,2,5072,0)="M2Y1D47*<SC;^TL:R+)$/#P_/.7S.(1__P;Q$NZ!C%MRMENQJ^H%'BS?:77;E"
^XMB(3.9,22,2,5073,0)="""DATA"",396.18,215,3,987,0)"
^XMB(3.9,22,2,5074,0)="MYY\T[8)-$^U_M%=8U\7'.[Z$3X[X\W=_DLSA`W'%IT_,G\W%G8B(C^_H,O%Y"
^XMB(3.9,22,2,5075,0)="""DATA"",396.18,215,3,988,0)"
^XMB(3.9,22,2,5076,0)="M"")]'E^<W'\]'/__$PLG//_'2""\6K/K_O?!DVRF\S[-UO^WC^Y?+\O?2Z_.(_"
^XMB(3.9,22,2,5077,0)="""DATA"",396.18,215,3,989,0)"
^XMB(3.9,22,2,5078,0)="MKVG(`FS#&[._2F]TK>W[""*F^SZJ\D.AY=_U0?!I=7UW_>CT25\[8/0L^AR&+"
^XMB(3.9,22,2,5079,0)="""DATA"",396.18,215,3,990,0)"
^XMB(3.9,22,2,5080,0)="MX/KX_H;Z,9MD7_!HPJ+-\_#VTFVR""IBX.;[UPUG`LI[P@(L'>,&M']RS2%S["
^XMB(3.9,22,2,5081,0)="""DATA"",396.18,215,3,991,0)"
^XMB(3.9,22,2,5082,0)="MP,/D];LYC6(FWOG^_,/IKQ=W_WSWZ?3F]OQN>T?QT[.`>E^+ZT737R%<7/Q"""
^XMB(3.9,22,2,5083,0)="""DATA"",396.18,215,3,992,0)"
^XMB(3.9,22,2,5084,0)="M%RP;G%OMEH:Q=LLB?SHJOMXT[?_^(2Y=TXB%B?@""+GV@09PU]8Z.KT0W!$C9"
^XMB(3.9,22,2,5085,0)="""DATA"",396.18,215,3,993,0)"
^XMB(3.9,22,2,5086,0)="M@ZM@9X.*=;L\O@7>R'#SSSGD5OYA@Q&R27YA.\SK.\H#S<)+-GFCW7[U0^UV"
^XMB(3.9,22,2,5087,0)="""DATA"",396.18,215,3,994,0)"
^XMB(3.9,22,2,5088,0)="MM5@F?!&/\MNZ$6O'K(X:*5UNQTU&;AJ?\6#RC_RK9@0S$6W&#37CAO4*;&X5"
^XMB(3.9,22,2,5089,0)="""DATA"",396.18,215,3,995,0)"
^XMB(3.9,22,2,5090,0)="M-\.182,UV""2DSD,Z#MBDW*K'A@\/@F\P<*A9X$Q[%W)8-[NA^\M5,F?17[1X"
^XMB(3.9,22,2,5091,0)="""DATA"",396.18,215,3,996,0)"
^XMB(3.9,22,2,5092,0)="M#:%&PXE&)Q-?W$`#S>.+!33V1X76<!5$$FUDL$""6V-W(OF>Q%_ECIOD3:)(_"
^XMB(3.9,22,2,5093,0)="""DATA"",396.18,215,3,997,0)"
^XMB(3.9,22,2,5094,0)="M78$^U,9\LM(6-/H:GVBQ!XB=:`E-$L[C-Z/6EIZE<$=HZM#4_,^J%+BHW%AL"
^XMB(3.9,22,2,5095,0)="""DATA"",396.18,215,3,998,0)"
^XMB(3.9,22,2,5096,0)="M2F)@RU)`ZGKGK^\""'K/1?\AP5M5T?N4J?!?XWE>X\""W'""%0I/-W+KK8B>\D6"
^XMB(3.9,22,2,5097,0)="""DATA"",396.18,215,3,999,0)"
^XMB(3.9,22,2,5098,0)="MG(C))?[8-;<<LPHJT65M;JY1W2RBEFZ:WW?2O.-IY`-&7]C#+HPO_)#%<#4"""
^XMB(3.9,22,2,5099,0)="""DATA"",396.18,215,3,1000,0)"
^XMB(3.9,22,2,5100,0)="M^8SA^HO\LJ:-1B]WC\*M%_$@.(,NP/4X_HU%B>_1H#9$N!7_JYL+/T[.^#<3"
^XMB(3.9,22,2,5101,0)="""DATA"",396.18,215,3,1001,0)"
^XMB(3.9,22,2,5102,0)="MQJ#XL&,JRN.`,.H8!P3+-=XU$.??$F@;F]RR0+3LSZK9/B=L45,WXF+SV-W0"
^XMB(3.9,22,2,5103,0)="""DATA"",396.18,215,3,1002,0)"
^XMB(3.9,22,2,5104,0)="M>#XJ/MT*5;/]^#GQYO""+[85L$=@,]V4:)'Z!QEV4LMUBD%^_G?.'->9E$6F\"
^XMB(3.9,22,2,5105,0)="""DATA"",396.18,215,3,1003,0)"
^XMB(3.9,22,2,5106,0)="M6I(-M.W(G;_<POB['T[XPUH2>#@3HM&ITM]=_WYY0R<^_QCQ=(DM(575:]4Y"
^XMB(3.9,22,2,5107,0)="""DATA"",396.18,215,3,1004,0)"
^XMB(3.9,22,2,5108,0)="M;CMEV2*X*ENNK.0)J8H6UAT3C;8=S2W@:E?_GL9""]V<#54%37+FFDV8[,+/_"
^XMB(3.9,22,2,5109,0)="""DATA"",396.18,215,3,1005,0)"
^XMB(3.9,22,2,5110,0)="M-DORV_4K`)QT$<:;""?6GD\YF0?Q?5A*\+[Q+IY1$0]^IMC$AC7J[,J3((I(U"
^XMB(3.9,22,2,5111,0)="""DATA"",396.18,215,3,1006,0)"
^XMB(3.9,22,2,5112,0)="M:<AZVZD-JJO;HV>GHTD!=IN/:9L-/B8B1LFI-2M.9JZDMK/')(.<S*?W*-&!"
^XMB(3.9,22,2,5113,0)="""DATA"",396.18,215,3,1007,0)"
^XMB(3.9,22,2,5114,0)="M/$J]Q0@ECM%LW^NX+,PU\UY7=R@O_(4/AJ:XRJ?:)1=__2A^)7',%O>HHMUM"
^XMB(3.9,22,2,5115,0)="""DATA"",396.18,215,3,1008,0)"
^XMB(3.9,22,2,5116,0)="MR7+8N$M;`75E^(I9=NHE_CW+?*,EC6/Q=T3#&1-@+O@&5D:]N4:G4V@@&!E_"
^XMB(3.9,22,2,5117,0)="""DATA"",396.18,215,3,1009,0)"
^XMB(3.9,22,2,5118,0)="M<)#T$XW&VH*-M%^*9]$XC>#K\4JCVHR'/E^P!!;?=>M`Y'^/Z+*T5.SJN*70"
^XMB(3.9,22,2,5119,0)="""DATA"",396.18,215,3,1010,0)"
^XMB(3.9,22,2,5120,0)="M<43('CW_/-7`-L@[H_DQ=-\/IVF@P5UYQ\&/`<$"";!+M80[_+/,[P^QG$2WW"
^XMB(3.9,22,2,5121,0)="""DATA"",396.18,215,3,1011,0)"
^XMB(3.9,22,2,5122,0)="MO`J8>)(V9C,_S)U.Z&<\!`7+<II]N([Q-V44++,=A5AT)V)ESSBH3*EUIUY<"
^XMB(3.9,22,2,5123,0)="""DATA"",396.18,215,3,1012,0)"
^XMB(3.9,22,2,5124,0)="M7%V^%.!$;,D2/Y.:-*Z,O[A[""^DD95K"",S!.M""D\;I:R$^V!T:^@\<$[]$./"
^XMB(3.9,22,2,5125,0)="""DATA"",396.18,215,3,1013,0)"
^XMB(3.9,22,2,5126,0)="M`QI^N'Y3I)6?)>9A)GGA)`6!]-C;80BZ*@BB&H0V5A>D<[""#%D)0P%#2%JF8"
^XMB(3.9,22,2,5127,0)="""DATA"",396.18,215,3,1014,0)"
^XMB(3.9,22,2,5128,0)="M*5LL`;43C7U;1M!GF!L@&!,VBQB+-7\*$@4S;ESI-D`$MX*=""J(SA=DCP?UV"
^XMB(3.9,22,2,5129,0)="""DATA"",396.18,215,3,1015,0)"
^XMB(3.9,22,2,5130,0)="ME[W?#QI;5X$&(T>>8T:O.9;W4?0+[%Y8H`&GA[D/($VIE\""@P\Q;<+""`H==+"
^XMB(3.9,22,2,5131,0)="""DATA"",396.18,215,3,1016,0)"
^XMB(3.9,22,2,5132,0)="M'F:W:E.X+@2I,L<JF#:""\^8QP,E];)1-O::8A&55X'&-CI@$-FI+5SDD45I$"
^XMB(3.9,22,2,5133,0)="""DATA"",396.18,215,3,1017,0)"
^XMB(3.9,22,2,5134,0)="MS7W]?:PW&XZ5`;5=6=3E\31J?J9%W.=G-W88Z;K1C76!;3O8A2540MNPGA_:"
^XMB(3.9,22,2,5135,0)="""DATA"",396.18,215,3,1018,0)"
^XMB(3.9,22,2,5136,0)="MJ`-MJPEM68W;=A?<Q*BC38[!+,E1JD4?^&+,S_BWS""K;?-BY:EBH:R2*\%9I"
^XMB(3.9,22,2,5137,0)="""DATA"",396.18,215,3,1019,0)"
^XMB(3.9,22,2,5138,0)="M)'9&LQK#1/5P:;N_?@V6R-9A_Y!;)-L+OZ\MDU(PJ6*A;*]?K&V3\XUMDH^`"
^XMB(3.9,22,2,5139,0)="""DATA"",396.18,215,3,1020,0)"
^XMB(3.9,22,2,5140,0)="M0N`&87UWX`:C2G""VT`X%CH8<%20-.!J/&+J10S.]XR&-X=(V5]S1&USQ7%36"
^XMB(3.9,22,2,5141,0)="""DATA"",396.18,215,3,1021,0)"
^XMB(3.9,22,2,5142,0)="MDF67/7'+0=7]Y5P#/&-/'+69>T;S3ALVT0Y/'-F6NB=^_HTN0$F!FOG""$_;#"
^XMB(3.9,22,2,5143,0)="""DATA"",396.18,215,3,1022,0)"
^XMB(3.9,22,2,5144,0)="M^.`65MA((])"";Q'2N8^VG2M7=^=O-+""50Y:""JN8SH9XU.@YYM*`!F+?@+4""K"
^XMB(3.9,22,2,5145,0)="""DATA"",396.18,215,3,1023,0)"
^XMB(3.9,22,2,5146,0)="MP2Q.P9N$W[(,:9H[J3RJ^&""Y-P=6-=7F?@P6]DJHJICY_P;G/!;>Q10$!1PS"
^XMB(3.9,22,2,5147,0)="""DATA"",396.18,215,3,1024,0)"
^XMB(3.9,22,2,5148,0)="MNEQ&?!GYPB+?/K#BU6IP1\(]'KP>Y,1;A@)R\J:>Z9KJR+UG;*G=01/@\@V;"
^XMB(3.9,22,2,5149,0)="""DATA"",396.18,215,3,1025,0)"
^XMB(3.9,22,2,5150,0)="M!NP;K'841OV%_NIT'#,1ID""_O/JT6G*:!3I.-/S+JR\9KB<:^:7<6[B)19N["
^XMB(3.9,22,2,5151,0)="""DATA"",396.18,215,3,1026,0)"
^XMB(3.9,22,2,5152,0)="M'OQDSM,$I)&'*:!F9`^I?K_^\N4P;""P%;!S)GB%(5\?F5+A>N6]T`TLVBV:C"
^XMB(3.9,22,2,5153,0)="""DATA"",396.18,215,3,1027,0)"
^XMB(3.9,22,2,5154,0)="M_P([/M9B?Q8*`8D?:+9S*T(44QH$XN^L7VP%`N=E3DK9_WJMC;HZU1RN(E7Z"
^XMB(3.9,22,2,5155,0)="""DATA"",396.18,215,3,1028,0)"
^XMB(3.9,22,2,5156,0)="M2*U7>H\1O][TZ8R._3#^ZHN>I,LDC4+1?A#UL3\#\6;K;H6;RUQ,#""TI]XBO"
^XMB(3.9,22,2,5157,0)="""DATA"",396.18,215,3,1029,0)"
^XMB(3.9,22,2,5158,0)="M%ZQ=/2(JN^BZ*X^3K=ZC6Q;&8I8""WK'H3/8_-#@/G""0\]>;P'UL(Z8-N@O#E"
^XMB(3.9,22,2,5159,0)="""DATA"",396.18,215,3,1030,0)"
^XMB(3.9,22,2,5160,0)="MXYK'3.[]<H_&T=94V>G=6LW>+:G&91$QNW;<D:IWJ_?Q;ELC]6Y3I#[?T%XW"
^XMB(3.9,22,2,5161,0)="""DATA"",396.18,215,3,1031,0)"
^XMB(3.9,22,2,5162,0)="M&57(;A(=S-""-9VX?M%&_++TY'&17S`-39HN@/N9!$K%%OIJ=;Q>P'\5.L'""+"
^XMB(3.9,22,2,5163,0)="""DATA"",396.18,215,3,1032,0)"
^XMB(3.9,22,2,5164,0)="M1J_$BUQ37NVZZ3;""50![X#H-BGG5X""#M:!DQ%%J&B.2R*:S#H_<\BL%""B;5K"
^XMB(3.9,22,2,5165,0)="""DATA"",396.18,215,3,1033,0)"
^XMB(3.9,22,2,5166,0)="M-A'_#F^BJ=)$2XI%N@H,.E@P$AAQD)D[?[P7CJ9*&V5SQE%HXNG:T@,S+)\B"
^XMB(3.9,22,2,5167,0)="""DATA"",396.18,215,3,1034,0)"
^XMB(3.9,22,2,5168,0)="MJT'-:]DR<8R=[7-[M&\J0KCA[$5A\_1K8`M)LM(^;.ARO)DHT""33Q8+FEFZ!"
^XMB(3.9,22,2,5169,0)="""DATA"",396.18,215,3,1035,0)"
^XMB(3.9,22,2,5170,0)="M8=6`[ECH$6X>7*>ZTV+(.Y4(=3?NO[5K$?W7;M,QM""LSO2=B4PA<:%""%\%&$"
^XMB(3.9,22,2,5171,0)="""DATA"",396.18,215,3,1036,0)"
^XMB(3.9,22,2,5172,0)="MNM<]&`T+5ALMP6JSZJ185E>PVE9=SNU]@M6;$)+IML:3JA-?ES<A#+,[G*3O"
^XMB(3.9,22,2,5173,0)="""DATA"",396.18,215,3,1037,0)"
^XMB(3.9,22,2,5174,0)="M%4[J#'?D7L2HY(MX$:-@-FPOY2[(KNC0NN\64@3"",/H#8;KZ/D""0)P7""4`3"""
^XMB(3.9,22,2,5175,0)="""DATA"",396.18,215,3,1038,0)"
^XMB(3.9,22,2,5176,0)="MT8=(A'[0`..C`%&-%[I&%]&KNAVERRS""NL4NL8*08Q^(ZG7#`A_,ZHP0P`)V"
^XMB(3.9,22,2,5177,0)="""DATA"",396.18,215,3,1039,0)"
^XMB(3.9,22,2,5178,0)="M7^PH%RJZQ/^JF=(-H<?641O`S]J\LIF@97;S.C-SKYG8*2VY-NYB=B+LUJA:"
^XMB(3.9,22,2,5179,0)="""DATA"",396.18,215,3,1040,0)"
^XMB(3.9,22,2,5180,0)="M""`VE=O;D4_X:>*Q,H7RWHB$XF.4K03H>5UB5MPF%.S0`:T'%_FOIYH\TG`'`"
^XMB(3.9,22,2,5181,0)="""DATA"",396.18,215,3,1041,0)"
^XMB(3.9,22,2,5182,0)="MI<#Z7<27<]_3O+D@EI1N_8W""2@&KBW;/P)4OO8\&4RWK7U0-R)]/V(*JD3G_"
^XMB(3.9,22,2,5183,0)="""DATA"",396.18,215,3,1042,0)"
^XMB(3.9,22,2,5184,0)="M%*3-M1Y#NII2JPE*ITX3<K*73M,[V;;9;]/E$FZ7S5.Q%2+ZT?IM_N.`/^SX"
^XMB(3.9,22,2,5185,0)="""DATA"",396.18,215,3,1043,0)"
^XMB(3.9,22,2,5186,0)="ML?SMRPYCQS"";;1ULV+MM'3ETAIT&,U)8:+OP+$'G[&,!K?O20C(P24^SS6DP"
^XMB(3.9,22,2,5187,0)="""DATA"",396.18,215,3,1044,0)"
^XMB(3.9,22,2,5188,0)="MVQB-%'MB[4T\((V;X9)E;TJV""\&R[^'BNGCCY[<7[JI:![K;81V@2N`5UQ8B"
^XMB(3.9,22,2,5189,0)="""DATA"",396.18,215,3,1045,0)"
^XMB(3.9,22,2,5190,0)="MIR6!IA@`A)S#&`>GP=;=%6Y0[JJU$L+WV75$>G=<T6F**V*RC2M6LUI)-:W5"
^XMB(3.9,22,2,5191,0)="""DATA"",396.18,215,3,1046,0)"
^XMB(3.9,22,2,5192,0)="MR/7X,PXKDC:?'[4P6'&%S2Z[=[;;(ZX(*[,'<L&RJ.*/$DXT47,XQZR2N20O"
^XMB(3.9,22,2,5193,0)="""DATA"",396.18,215,3,1047,0)"
^XMB(3.9,22,2,5194,0)="MR%;(WCM?E??[PE%7.UJB-KBR1F%Y!)'5(X]P0<661P1*8)(&PV)SJ(4J6UV#"
^XMB(3.9,22,2,5195,0)="""DATA"",396.18,215,3,1048,0)"
^XMB(3.9,22,2,5196,0)="M9+P<U*.5ZX328<US%4:S%N:H42T;FO>)^E&VUR4R:[H&$^LJ*-7:\60P8:S4"
^XMB(3.9,22,2,5197,0)="""DATA"",396.18,215,3,1049,0)"
^XMB(3.9,22,2,5198,0)="M/O-[#6-+E%"">#'*^%2)NCP9NJ,\SSB>:!QH#K(9AK;646FO++'I=8>[>18PF"
^XMB(3.9,22,2,5199,0)="""DATA"",396.18,215,3,1050,0)"
^XMB(3.9,22,2,5200,0)="M(G\Z(^M.?'A+PN)AS;05Y@:6MR<0[MX+!Y-NL0P$Z1@^9YNJ^S7446@H,>7R"
^XMB(3.9,22,2,5201,0)="""DATA"",396.18,215,3,1051,0)"
^XMB(3.9,22,2,5202,0)="M""#4J""+;:!]^KM%C,ZX(V'8,Q$>W<'.@?.,8M^\""H&CBVG?Z9URV!8V3N[S>A"
^XMB(3.9,22,2,5203,0)="""DATA"",396.18,215,3,1052,0)"
^XMB(3.9,22,2,5204,0)="M;%N^R0FLBO:@=@O+M!+)*S?>>)2P=VN0LRI*M91@E6!O0?Y[]`#W^3>^G""=S"
^XMB(3.9,22,2,5205,0)="""DATA"",396.18,215,3,1053,0)"
^XMB(3.9,22,2,5206,0)="M&BQXR>2^\""?:!6W.N%7R8<AN'Z;*'<%V%Q^RP*@$B7,0%^8+`PFHFBX'\5]V"
^XMB(3.9,22,2,5207,0)="""DATA"",396.18,215,3,1054,0)"
^XMB(3.9,22,2,5208,0)="M$]&1W>Q[5V>""@8>(DGMD1BN0TU&6/]HP`L;^D_E8:$&5FY[MSBLHU2+ZWF\@"
^XMB(3.9,22,2,5209,0)="""DATA"",396.18,215,3,1055,0)"
^XMB(3.9,22,2,5210,0)="MK-&A-HG$MG4$&D,,8XF-3J.%N'[)_3A15ZZY/%H*\C@0!_LHD!T[1/+Z9O19"
^XMB(3.9,22,2,5211,0)="""DATA"",396.18,215,3,1056,0)"
^XMB(3.9,22,2,5212,0)="MWU#->JQ5B:H3_DU3/\@""EPE;7M@G7L79;S<YP`=9Z*P.L;95Q%JNBZ`DUB8Z"
^XMB(3.9,22,2,5213,0)="""DATA"",396.18,215,3,1057,0)"
^XMB(3.9,22,2,5214,0)="MBO66UJ$DUF8OL7;-SCP64AL5<AB[[7.LW8O$=!IJ=.T0^MY!!-I11M/N2@NR"
^XMB(3.9,22,2,5215,0)="""DATA"",396.18,215,3,1058,0)"
^XMB(3.9,22,2,5216,0)="M]H?30(>""<QVDR""(6K4`^SNY]V2KK,LL<!<.XV#;<H2\:/`I\U!?Y&""A4P#*,"
^XMB(3.9,22,2,5217,0)="""DATA"",396.18,215,3,1059,0)"
^XMB(3.9,22,2,5218,0)="M]A)8<A2YQO.2`V=V@TU""GH@I\3F,T\`/7UV%'@/5\9ZN1K7O+GG$-'""20ZWI"
^XMB(3.9,22,2,5219,0)="""DATA"",396.18,215,3,1060,0)"
^XMB(3.9,22,2,5220,0)="MKJN(!MHEFZP#/""4KT&<E*R\KRB$HC#<LAG9XV;T'I3V0Q^0];$>^O?B9%-WK"
^XMB(3.9,22,2,5221,0)="""DATA"",396.18,215,3,1061,0)"
^XMB(3.9,22,2,5222,0)="MGH5%4+J\0+A/-/)?>)G0<KXJ?2C""[FOJ2@0*_)[&7AH4^^]9[*38ZBQIM2+="
^XMB(3.9,22,2,5223,0)="""DATA"",396.18,215,3,1062,0)"
^XMB(3.9,22,2,5224,0)="MJT298&'9.^A1OFS@T+N/.?*YWG6;]*X4)74ZB8Q-*YA^5+O*6]I-A9.QU;*C"
^XMB(3.9,22,2,5225,0)="""DATA"",396.18,215,3,1063,0)"
^XMB(3.9,22,2,5226,0)="M;>7$P>..=M61;TH)(TX+S[YJHN$]4F6NXY4W]ZE0_3]BJ@PA;DMUI\JN@R$;"
^XMB(3.9,22,2,5227,0)="""DATA"",396.18,215,3,1064,0)"
^XMB(3.9,22,2,5228,0)="MN<CIL8NV8?^O7=8A&S[$T%7:Z<JQ560/:><""C.=!VU*ZI=+*PD78:EQ]2#/_"
^XMB(3.9,22,2,5229,0)="""DATA"",396.18,215,3,1065,0)"
^XMB(3.9,22,2,5230,0)="M2""<S)C;^AK6U>:^/6,[.D5?9/Q5[?1&;LS!>TXQ%@6>Z*;VUJTV.$GZNC!_I"
^XMB(3.9,22,2,5231,0)="""DATA"",396.18,215,3,1066,0)"
^XMB(3.9,22,2,5232,0)="M0W'@XYCEY=7&;$[O?1X-PT]IYF`BV]%FG[$&=5/*#=^KO4AI!N%:<-SJ,]7G"
^XMB(3.9,22,2,5233,0)="""DATA"",396.18,215,3,1067,0)"
^XMB(3.9,22,2,5234,0)="M-`A2;ZTDL]V8""0M2(0;#]GE;BI)+0BI/>U.!K/$Y3%@0^#,FBH9TM0*KM*(V"
^XMB(3.9,22,2,5235,0)="""DATA"",396.18,215,3,1068,0)"
^XMB(3.9,22,2,5236,0)="MK54H0'E@KU(`?5=#B,H8$KD$`C+[C&&<CN-$U%(1A;S$$-)Q.C!-#[65'3""J"
^XMB(3.9,22,2,5237,0)="""DATA"",396.18,215,3,1069,0)"
^XMB(3.9,22,2,5238,0)="M%J@T?L31U0N;Y24;[N9^EK*]8#3,$KN$HM3&8""-.->@78UGR>8EL]5I4>:!2"
^XMB(3.9,22,2,5239,0)="""DATA"",396.18,215,3,1070,0)"
^XMB(3.9,22,2,5240,0)="MV<0P`;4Z\>,\(N.+U'OJ+]A$E'8`7.)E7G5Q+#))1/4'D2Y6//VD6B2M4AMB"
^XMB(3.9,22,2,5241,0)="""DATA"",396.18,215,3,1071,0)"
^XMB(3.9,22,2,5242,0)="M0\V897S^O/Y]+-10QMN(YSP-)EK&.0@G:?Z.\K-$&<=E88F`]0]/RSYG/DN<"
^XMB(3.9,22,2,5243,0)="""DATA"",396.18,215,3,1072,0)"
^XMB(3.9,22,2,5244,0)="M]""T*(<>\\.Z85]5?(&[7ZE54KB_\!1L;AZEA7,CJK[FLGHY+I?D>E[N*.ZD0"
^XMB(3.9,22,2,5245,0)="""DATA"",396.18,215,3,1073,0)"
^XMB(3.9,22,2,5246,0)="M;<7S]6H):.?Q4OG17M3WZI""[9@\IJ$4)=`4AT`^T^Y^;0Z>9=?D]]OVS4Q,:"
^XMB(3.9,22,2,5247,0)="""DATA"",396.18,215,3,1074,0)"
^XMB(3.9,22,2,5248,0)="M""M!5SQR1T^0Z2W\+Q([[_EW[_I(06SV$V#4&:#+D'E*(+W?%[1^GX%>S"""",%"
^XMB(3.9,22,2,5249,0)="""DATA"",396.18,215,3,1075,0)"
^XMB(3.9,22,2,5250,0)="M$2[HB+UD&!]#19W,B:H,VSUD&!EDB!#;AQ3BOX-C*@R;@PBRT2'(EHH@F^8`"
^XMB(3.9,22,2,5251,0)="""DATA"",396.18,215,3,1076,0)"
^XMB(3.9,22,2,5252,0)="M04;.49""[&!<;""A!NHP!)3I.\*F+D=G($;&0J4H!0;PY0/\JDZ_29J;7HE)+A"
^XMB(3.9,22,2,5253,0)="""DATA"",396.18,215,3,1077,0)"
^XMB(3.9,22,2,5254,0)="M?)BMXJLB""'*V#BI\#QZ):2M,UGHFO=*J<]P7[L<C<=T>LHR[0YA-J\YAR%&G"
^XMB(3.9,22,2,5255,0)="""DATA"",396.18,215,3,1078,0)"
^XMB(3.9,22,2,5256,0)="MI1#90:79Z=AM4W$#L(F'+#U'5E3?A%S41YQ=O9/%TR#.^""#B_*D60WV_B:$>"
^XMB(3.9,22,2,5257,0)="""DATA"",396.18,215,3,1079,0)"
^XMB(3.9,22,2,5258,0)="M.BFW6:Q57`/LNIUB;=01/!;\5B10884Q(+6@3'T,<'VA/!+;R\R;W68M431K"
^XMB(3.9,22,2,5259,0)="""DATA"",396.18,215,3,1080,0)"
^XMB(3.9,22,2,5260,0)="M:WF;:G:M:L+0)G.K?=J?L8`_:*?W+**S$D6F?F',P0;<7.YBLS<>:B%WW;0["
^XMB(3.9,22,2,5261,0)="""DATA"",396.18,215,3,1081,0)"
^XMB(3.9,22,2,5262,0)="MN][0=TR>X4D+5F=(&;6$E-'>$>6=R76]:LJU\5Z(U<![R9M:JF&ZY;VX$N_E"
^XMB(3.9,22,2,5263,0)="""DATA"",396.18,215,3,1082,0)"
^XMB(3.9,22,2,5264,0)="MN1>(-=O($""VYS\7928V5'`C!ZK27T_&$+UCXMX\T3B)QAA0#2T8<^'-:5')<"
^XMB(3.9,22,2,5265,0)="""DATA"",396.18,215,3,1083,0)"
^XMB(3.9,22,2,5266,0)="M_2@<F):R""G9U;95/#'=5MIBS#</NR@ZD+3V<X.HT[U_0=-N&?;+M24MBN%5)"
^XMB(3.9,22,2,5267,0)="""DATA"",396.18,215,3,1084,0)"
^XMB(3.9,22,2,5268,0)="M+9!3?%68`V?\@07:K2BGWUD!O""7I6T));@72[7[-V`LHHJNT$;E65R&ZALST"
^XMB(3.9,22,2,5269,0)="""DATA"",396.18,215,3,1085,0)"
^XMB(3.9,22,2,5270,0)="MN]62:;'_[[R@>L""]HHS?O2AA""K,3FAWZ]-$.)B.DA7[ADIV(6[HJ\6%;&#:K"
^XMB(3.9,22,2,5271,0)="""DATA"",396.18,215,3,1086,0)"
^XMB(3.9,22,2,5272,0)="M&$M3P=;-#[Q[VR4.!*LTKBA.T*M:P6T3RB+!>-CL<55:6F,*887Y<U%J'PU7"
^XMB(3.9,22,2,5273,0)="""DATA"",396.18,215,3,1087,0)"
^XMB(3.9,22,2,5274,0)="M<JV^7?`1E49ADW2=Q[>+2W+APVHK7-C;9<!86![O8=.KF5!2/0F.Z+4A)^I\"
^XMB(3.9,22,2,5275,0)="""DATA"",396.18,215,3,1088,0)"
^XMB(3.9,22,2,5276,0)="MDFM1HGJ2E:CP0X\NJ;<Y@?%%Q/Z5^L(<U,9L$L&2F(E(4M3?R([;+/,VEO-5"
^XMB(3.9,22,2,5277,0)="""DATA"",396.18,215,3,1089,0)"
^XMB(3.9,22,2,5278,0)="M['L^#=\..YJBK18WKF;BUP/+=F=_1W=<D%W""5)Q'D=7CH*NF3OOB$$WH*<*O"
^XMB(3.9,22,2,5279,0)="""DATA"",396.18,215,3,1090,0)"
^XMB(3.9,22,2,5280,0)="M%K""DSK5EAL_;1U0R5HL@5DE"".NKBH#:HS'<\S,\JK!UJ6.ZF8`8M_9A/=E4C"
^XMB(3.9,22,2,5281,0)="""DATA"",396.18,215,3,1091,0)"
^XMB(3.9,22,2,5282,0)="MZ=TM6VE-MZ2Q<TA?TMC;KC,FG)8ZC::],P^@[D3HM9;\=9<7L2ERMT]]$:?E"
^XMB(3.9,22,2,5283,0)="""DATA"",396.18,215,3,1092,0)"
^XMB(3.9,22,2,5284,0)="M>(PBWKQ/XUM(-1MML6=I$;LM5E""UFLPA6;*6/GJDJJ*U)'@_SG-U^F6Z&XVQ"
^XMB(3.9,22,2,5285,0)="""DATA"",396.18,215,3,1093,0)"
^XMB(3.9,22,2,5286,0)="M;TG8AW7U&/KNI,!L1,Y1$SEW2`D2DQRJFHU2)04+*0A8=\<V:J#<,>,H8!W\"
^XMB(3.9,22,2,5287,0)="""DATA"",396.18,215,3,1094,0)"
^XMB(3.9,22,2,5288,0)="ME'P$&F/0LKE=.PB\?MQD/8G7.C(K^J6IVQV;M5(V+\+&@""QURSY4EGI6JFF9"
^XMB(3.9,22,2,5289,0)="""DATA"",396.18,215,3,1095,0)"
^XMB(3.9,22,2,5290,0)="M!C$87SM*-3UZGKKJ7KC3<3:HI3\""NM9!T+VFP5*@EF'\Q)P.""434""T1+'P""B"
^XMB(3.9,22,2,5291,0)="""DATA"",396.18,215,3,1096,0)"
^XMB(3.9,22,2,5292,0)="M?1AVS&_K>,JG+)YR$!15-[(=W&^FFS5V/E:`D3P!C""*?XH9-4D_X8$]8FT)7"
^XMB(3.9,22,2,5293,0)="""DATA"",396.18,215,3,1097,0)"
^XMB(3.9,22,2,5294,0)="M1=KJ(Z]8)T.`-@^4!K%<\BC)#_B`W^2%\,Y8D#PASE@5YPYZ*Y'2=^L2[2H`"
^XMB(3.9,22,2,5295,0)="""DATA"",396.18,215,3,1098,0)"
^XMB(3.9,22,2,5296,0)="M?1ANQI4X^E%HUVK$]<]3:<4B""F9RH3-VV,EU!\`^VLF=1(%\#`P%0[GFJM3M"
^XMB(3.9,22,2,5297,0)="""DATA"",396.18,215,3,1099,0)"
^XMB(3.9,22,2,5298,0)="MY'J5#=,<'<G&;6K%[:6^37N`N6$>QF;+=ENS[=6/J:A:$LX.0_0R.^365)!;"
^XMB(3.9,22,2,5299,0)="""DATA"",396.18,215,3,1100,0)"
^XMB(3.9,22,2,5300,0)="ML]N_,^JJ0W]^<FNH\FY1+P-OF.!:^)#Y'ODN3U;Y/MOF.8ST=G#)+4M!>K%E"
^XMB(3.9,22,2,5301,0)="""DATA"",396.18,215,3,1101,0)"
^XMB(3.9,22,2,5302,0)="M=XEOG:9H6D>:8ID7I""+4N)>-5S.F'043SSR,3)_&GI^P`U%ME94""Z;.8-:1D"
^XMB(3.9,22,2,5303,0)="""DATA"",396.18,215,3,1102,0)"
^XMB(3.9,22,2,5304,0)="MHVZI-A\SO/.H*'7P[""U;P<:M%T$P3`4#ZYAONQX#MV,,'`5M2X@^0-N:QV#P"
^XMB(3.9,22,2,5305,0)="""DATA"",396.18,215,3,1103,0)"
^XMB(3.9,22,2,5306,0)="M>B.E@YAON2KSP+9D'F#746-BQ3.>G\&&42>CU6IBM-I;0JM5)K3:M:/)\#,G"
^XMB(3.9,22,2,5307,0)="""DATA"",396.18,215,3,1104,0)"
^XMB(3.9,22,2,5308,0)="MM%JMM91:#ANR=A%:""Z-!A=!ZR;+:+J(R%4M8Z/TP[%53;^;H2><-RM1,5R;!"
^XMB(3.9,22,2,5309,0)="""DATA"",396.18,215,3,1105,0)"
^XMB(3.9,22,2,5310,0)="M;=+26BOL+'($O0+!DXQ'\]NI-F8AF_J)V-&)ECQF\8D6L2F#^<;#8*4E9494"
^XMB(3.9,22,2,5311,0)="""DATA"",396.18,215,3,1106,0)"
^XMB(3.9,22,2,5312,0)="M?L0Z'?L;RI_XN*D!G7!M04,Z8Z6G:DNZRF@N@HDT]\O/RH*<@@G#'T*X/4XT"
^XMB(3.9,22,2,5313,0)="""DATA"",396.18,215,3,1107,0)"
^XMB(3.9,22,2,5314,0)="M0506O*R3S!D)>7[$>P@ORA@S<9KA]WHM#>5G""3Z04L]$@:%8E)5-RDT_J3QK"
^XMB(3.9,22,2,5315,0)="""DATA"",396.18,215,3,1108,0)"
^XMB(3.9,22,2,5316,0)="MS#R:U4X2;*H_TOQ8@0G,:AJS$Q$&%RT3]"",12<R(A=#IG%8FWE=^EMS_HL^5"
^XMB(3.9,22,2,5317,0)="""DATA"",396.18,215,3,1109,0)"
^XMB(3.9,22,2,5318,0)="M_K[6/H=:;L&)#L>QJ!$44?BRBA<\8D&_BC=1+6`S4>Q(M+^H4D1C\?LR$.#/"
^XMB(3.9,22,2,5319,0)="""DATA"",396.18,215,3,1110,0)"
^XMB(3.9,22,2,5320,0)="M0:,U.IE$E4I)<9QU?PJ:E3^(!_XK%11Q'L9OAC#=3+VELE6UVC:6R9Q8I9K:"
^XMB(3.9,22,2,5321,0)="""DATA"",396.18,215,3,1111,0)"
^XMB(3.9,22,2,5322,0)="M==Z'9<3O_4E^XAYTZT7\4G0VSD/GV@J6(5%^R<M3[8:5A#-4.D&PE*WAJO>!"
^XMB(3.9,22,2,5323,0)="""DATA"",396.18,215,3,1112,0)"
^XMB(3.9,22,2,5324,0)="M?5L&%$;Q8=Z7/[E.*#'<EF.FY!I%J(M/A55K%#UBB2*[8U^V:OHXKGS*;<WZ"
^XMB(3.9,22,2,5325,0)="""DATA"",396.18,215,3,1113,0)"
^XMB(3.9,22,2,5326,0)="ME#P`US4.L^?]GK.XHNJ^AOPA5X4+GL++00O`Y/Y;/K,KBN_-TQ8TD@#O\N.K"
^XMB(3.9,22,2,5327,0)="""DATA"",396.18,215,3,1114,0)"
^XMB(3.9,22,2,5328,0)="MN5]#$#_0D?<UQ)=1.@$X84&:P^(`BG>C6-\\;;D=""6#21Z*1[%`IB;3S740Z"
^XMB(3.9,22,2,5329,0)="""DATA"",396.18,215,3,1115,0)"
^XMB(3.9,22,2,5330,0)="M+LMT1AT&Z&'=#PX#N&J!*-OH)='#$'>?2*3!QN(A#;8R#3BS56;\@'0?$&W5"
^XMB(3.9,22,2,5331,0)="""DATA"",396.18,215,3,1116,0)"
^XMB(3.9,22,2,5332,0)="M4D9VQYZZ5!H/.3+:M;710#6T#[(ILR7$<F$;@%8.?/#3*OB+`I$-5MQF6+0I"
^XMB(3.9,22,2,5333,0)="""DATA"",396.18,215,3,1117,0)"
^XMB(3.9,22,2,5334,0)="MV%5AV6KR_+P*,O6C^#L41W*:RZU(-I8<.#-LO>M@/]T^UH/OW*[,*]ZX""D-0"
^XMB(3.9,22,2,5335,0)="""DATA"",396.18,215,3,1118,0)"
^XMB(3.9,22,2,5336,0)="MB^?6AT!6.C`$Y!@WZ\?RLYU>R@G+-G&#<K)JU@U^2N5$M5N>Z1APOKZ6*\P*"
^XMB(3.9,22,2,5337,0)="""DATA"",396.18,215,3,1119,0)"
^XMB(3.9,22,2,5338,0)="MGY-Y\(F"",PI>3Y2EB<D%:_G2#^$%;P[+&FP])J$IN+:.&&\.]""W'U[!;C:^1"
^XMB(3.9,22,2,5339,0)="""DATA"",396.18,215,3,1120,0)"
^XMB(3.9,22,2,5340,0)="MW/I\QO$UN\4Q-<R6<YU1M6:%7#W$4H^O?>`\*67W;0]7^8\/L!EF<]HQJ2H'"
^XMB(3.9,22,2,5341,0)="""DATA"",396.18,215,3,1121,0)"
^XMB(3.9,22,2,5342,0)="M(H79,>X^:WJ;<[@.3139IL*""F[""$^D%F1B]Y#)C""!)^*(ZC%Y'L1,Q%]`=!%"
^XMB(3.9,22,2,5343,0)="""DATA"",396.18,215,3,1122,0)"
^XMB(3.9,22,2,5344,0)="M.*,\C3>QG&7$$^[Q((ME+<192.L'OG[Y:$ENANDJ8%.<Q_'4A\0;EJ[0/*(;"
^XMB(3.9,22,2,5345,0)="""DATA"",396.18,215,3,1123,0)"
^XMB(3.9,22,2,5346,0)="M<F!9(6/\\R8`)D)Y198A]42&J""@.G@639BST$QJ\?<1SPDVWK<BT6ZT%9'4%"
^XMB(3.9,22,2,5347,0)="""DATA"",396.18,215,3,1124,0)"
^XMB(3.9,22,2,5348,0)="M<`S5`,Y>)VUO3Z`BK2=02>.!Y)E4.X""J8(!N=ZST@IWX>&=-764]$?..B>DI"
^XMB(3.9,22,2,5349,0)="""DATA"",396.18,215,3,1125,0)"
^XMB(3.9,22,2,5350,0)="MRHR+R2@""<#01&:7EXV#;[^4BZAKZRS20CAJ[\6?^9)L*+8ZP6M)X43K#ZO_9"
^XMB(3.9,22,2,5351,0)="""DATA"",396.18,215,3,1126,0)"
^XMB(3.9,22,2,5352,0)="M^];GN(TDSW\%X8L;6C>R%_4$X+@X!_7P6+.6K1`UX]L/\P'J!DF,NH$^H%L2"
^XMB(3.9,22,2,5353,0)="""DATA"",396.18,215,3,1127,0)"
^XMB(3.9,22,2,5354,0)="M]Z^_`M!``_5`)=""-)D4B8F/';(ID5F965CY_&6?%]JIM*E[MI6#<+OL8UOL*"
^XMB(3.9,22,2,5355,0)="""DATA"",396.18,215,3,1128,0)"
^XMB(3.9,22,2,5356,0)="MJO<_$K=[W?T57XJ]!LE->Q/6:K5KO<\?NC/BU>[P-""\M3;X5UO%F>WO.O5?N"
^XMB(3.9,22,2,5357,0)="""DATA"",396.18,215,3,1129,0)"
^XMB(3.9,22,2,5358,0)="MR?=>46V@(UEL>4I<U3--<=KELY,-6<1-?8`$.!TC@1FOS)IBK.=!D1&N3+*X"
^XMB(3.9,22,2,5359,0)="""DATA"",396.18,215,3,1130,0)"
^XMB(3.9,22,2,5360,0)="MODT0FH%0MW<!M6U*U&I\7S;/9WL;8_6\'CYYD0I;]<P>6U#=""K;JR=PO-.@L"
^XMB(3.9,22,2,5361,0)="""DATA"",396.18,215,3,1131,0)"
^XMB(3.9,22,2,5362,0)="M8=MG^0['K]`'!L<6#4,?8[CAF^I@@;Z8AUE?N($]P-:>.MRH5K$5)>;?TVWD"
^XMB(3.9,22,2,5363,0)="""DATA"",396.18,215,3,1132,0)"
^XMB(3.9,22,2,5364,0)="M_.!TMSV6WY\D`$'W4.$/]&7%3F\$E1.GB@_;4^`79N)2J@0+5^#MZP]Y,4\4"
^XMB(3.9,22,2,5365,0)="""DATA"",396.18,215,3,1133,0)"
^XMB(3.9,22,2,5366,0)="M?8VRA5!KIP(!NQ'.S%VQJZ9""0Q'W_KI3X!>.K[!8A=^SZ,JD\9+SJCP?)D[Q"
^XMB(3.9,22,2,5367,0)="""DATA"",396.18,215,3,1134,0)"
^XMB(3.9,22,2,5368,0)="M""]?M/WC5@4^1_U!\K1*S"").BFM[9G5-&/-&R4T@7%E3\HC`7?_Y'9U2).M""#"
^XMB(3.9,22,2,5369,0)="""DATA"",396.18,215,3,1135,0)"
^XMB(3.9,22,2,5370,0)="ML?B]&Q*P/R`,Q#\52XD*?RLJ,C9M1S*4N=FT$XBSIDGY[Q?M\]:+B\I.C+(K"
^XMB(3.9,22,2,5371,0)="""DATA"",396.18,215,3,1136,0)"
^XMB(3.9,22,2,5372,0)="MH(62_""7-/N6W4;3]/G\V='?0'I>#FH`)NSO@:6`+0P@T#'%/@4E8UMODAX"";"
^XMB(3.9,22,2,5373,0)="""DATA"",396.18,215,3,1137,0)"
^XMB(3.9,22,2,5374,0)="M.K@HG2$)U:E5W>7P#;AGK`L`(F_B#`9LXMRMUFE2Y""\O'V.:B?F&/JZNRTPG"
^XMB(3.9,22,2,5375,0)="""DATA"",396.18,215,3,1138,0)"
^XMB(3.9,22,2,5376,0)="MA""%DO@%1S7=[:0""\V^54.H@$!MD8)Y-PKH02\_5858SC>R:O2:R4""UWU:1;D"
^XMB(3.9,22,2,5377,0)="""DATA"",396.18,215,3,1139,0)"
^XMB(3.9,22,2,5378,0)="M]\+-<5F.O@(6S0Z`W:?<Z-V%@WDG?N$N%W]A$7X.M[NU\AWAZQ5N2OL[;Y)%"
^XMB(3.9,22,2,5379,0)="""DATA"",396.18,215,3,1140,0)"
^XMB(3.9,22,2,5380,0)="M\;@+1EW^\,YY%8L[6S2_'5(>6;@K'(V%\_*V:)S[,URMG%=1:QUM\8]NTRQ<"
^XMB(3.9,22,2,5381,0)="""DATA"",396.18,215,3,1141,0)"
^XMB(3.9,22,2,5382,0)="MI)M5F&_O'$UJY1M+A1Q2;VY/ZJT7YE2=M=8I!3N#4H2+:!U^$DQZLQ8""2K92"
^XMB(3.9,22,2,5383,0)="""DATA"",396.18,215,3,1142,0)"
^XMB(3.9,22,2,5384,0)="M*NUJMQ&R6X6?X\H]NA2>4RI,SNU9Q8=/GLDB>M@CE_1*C4&D-H]S@S)91`M["
^XMB(3.9,22,2,5385,0)="""DATA"",396.18,215,3,1143,0)"
^XMB(3.9,22,2,5386,0)="MQ#@Z7@)S+M'63;0/-K`^V*#2_@-EBX<2!-=]\!-WK>YK-<B`WDZZF9!Q='=3"
^XMB(3.9,22,2,5387,0)="""DATA"",396.18,215,3,1144,0)"
^XMB(3.9,22,2,5388,0)="M(!?Z+HBQ!RB;(<1;40)3UU]TG0FO%P*IJ3^UXEX->NWK7SXX+W]]??7!6'72"
^XMB(3.9,22,2,5389,0)="""DATA"",396.18,215,3,1145,0)"
^XMB(3.9,22,2,5390,0)="M>F%2?JE5!*L_J+OWZJ^;U=!^_8GR&'6G0%M(Q'O:]HPRD$3!)""&%)@RCZ5V4"
^XMB(3.9,22,2,5391,0)="""DATA"",396.18,215,3,1146,0)"
^XMB(3.9,22,2,5392,0)="M+79Y#J0H<($485>AR$<PB@Q.J\&B]3/0-Y%;-Q6;A7H?Y'IP<A7VUHT5-GK;"
^XMB(3.9,22,2,5393,0)="""DATA"",396.18,215,3,1147,0)"
^XMB(3.9,22,2,5394,0)="MX,ZO=JM5IV0W@N8`3#-G,LT(L^%$_WJWB;(L*KHAD^THR@\^+%)]6+-*>PKY"
^XMB(3.9,22,2,5395,0)="""DATA"",396.18,215,3,1148,0)"
^XMB(3.9,22,2,5396,0)="M-%#)=YL?:[_*_H'0'G_6X-'V^+2J5UL6<.O`Y44!(WW;AL*OJ\2W:;*XC3L?"
^XMB(3.9,22,2,5397,0)="""DATA"",396.18,215,3,1149,0)"
^XMB(3.9,22,2,5398,0)="MA:NH\V_^O(VB_VX7?:NFDE510UF*<VSBK.LP.^5(R:Z`,'J_^]C^N.,EF_WD"
^XMB(3.9,22,2,5399,0)="""DATA"",396.18,215,3,1150,0)"
^XMB(3.9,22,2,5400,0)="M?D_9Y""OK@AV+OZSWF`$*@P<H#*J3&/T:P[A&89I-@^=1&-D.B,_TU^RLLL13"
^XMB(3.9,22,2,5401,0)="""DATA"",396.18,215,3,1151,0)"
^XMB(3.9,22,2,5402,0)="MR++RO[NX'N8[CQ01$JR*\""#HM@A)OW&"">>-]_KC1([?ZY`:OO,<O;WGF9M_<"
^XMB(3.9,22,2,5403,0)="""DATA"",396.18,215,3,1152,0)"
^XMB(3.9,22,2,5404,0)="MXIVK/<T6*1&#E.2GY2C3',QBZA$3`HB)&L04C#.(&.ENDSN+J4=,!""`F!KQ-"
^XMB(3.9,22,2,5405,0)="""DATA"",396.18,215,3,1153,0)"
^XMB(3.9,22,2,5406,0)="MR`O&BPG-8NH1$^V(J3]*]DQ1LI1>'1DFOW_SMU^-<3(S.OS(?6AALKRRYV$'"
^XMB(3.9,22,2,5407,0)="""DATA"",396.18,215,3,1154,0)"
^XMB(3.9,22,2,5408,0)="M>1Y[8#&].>_Q8(-.GWU[,6=)+F;L&\F?-#$.(B</D0-/>3C\H`$'FB/D;S%"""
^XMB(3.9,22,2,5409,0)="""DATA"",396.18,215,3,1155,0)"
^XMB(3.9,22,2,5410,0)="M+OP*'$SNK@L]F:.J(]UUY$[N!PHQ^;.8P'Z@'H@-+*;14940DS>+Z:BH""N/)"
^XMB(3.9,22,2,5411,0)="""DATA"",396.18,215,3,1156,0)"
^XMB(3.9,22,2,5412,0)="M,TE^X,VQ[_A,TB%W&YPE=RLN53#G;D^3N^VI@U-#^5[I8AE3!N];0,A/LL6<"
^XMB(3.9,22,2,5413,0)="""DATA"",396.18,215,3,1157,0)"
^XMB(3.9,22,2,5414,0)="MZ<;2JTNW[VKUVDW#K&I*:`7T3WTLO;JPVG2`H><5]PZF-ZM`(6W#OT;K>%'."
^XMB(3.9,22,2,5415,0)="""DATA"",396.18,215,3,1158,0)"
^XMB(3.9,22,2,5416,0)="M&_QVM][<ECV`CW"").<$&"",V@NTM%7B'.[)VI^]C4R07_MNDZ?T!S-:.910""]"
^XMB(3.9,22,2,5417,0)="""DATA"",396.18,215,3,1159,0)"
^XMB(3.9,22,2,5418,0)="MUO)(#0/T.<N:U=-*[/D&W,X.%$R@H/T/7`I=+81V5H7R.TG_BML^:@,(M8C="
^XMB(3.9,22,2,5419,0)="""DATA"",396.18,215,3,1160,0)"
^XMB(3.9,22,2,5420,0)="M4V,VP11""'R6V-CT+-Z-D%69%PF`\/_<M;:[A342=UC"",9.@$;)^?^<ND<_S$"
^XMB(3.9,22,2,5421,0)="""DATA"",396.18,215,3,1161,0)"
^XMB(3.9,22,2,5422,0)="M!S:8,WG'/5-A%53D:=>?HIDX:<W,OS;+L!F.UW_OUV@3""@M8`*=V9O974:)^"
^XMB(3.9,22,2,5423,0)="""DATA"",396.18,215,3,1162,0)"
^XMB(3.9,22,2,5424,0)="M&M\D>;657;Q`H>8;0ENB`LRCNJ('2.*""Q&6T#CO-S9N=E)[Z)N?RL1[]2C(B"
^XMB(3.9,22,2,5425,0)="""DATA"",396.18,215,3,1163,0)"
^XMB(3.9,22,2,5426,0)="MW)<1RY7U[>H*432O""09M<24N1`0(6T6@0G""@&0/.-IE?W0(?(`)YS0](`NZ\"
^XMB(3.9,22,2,5427,0)="""DATA"",396.18,215,3,1164,0)"
^XMB(3.9,22,2,5428,0)="MOD+NZ3<.@J+^05#2'00ETB""H]]1C.F3R%+$!$JH[&""S9EX#""([K7=]&C&?HD"
^XMB(3.9,22,2,5429,0)="""DATA"",396.18,215,3,1165,0)"
^XMB(3.9,22,2,5430,0)="M^K%9Y'5W>,ACLP""G5?RB1P.`0/1I`D9X#Y<((/1X7WSK\;#),+[;G<B7O7)J"
^XMB(3.9,22,2,5431,0)="""DATA"",396.18,215,3,1166,0)"
^XMB(3.9,22,2,5432,0)="M!RBX>!^%BSH$VNPV!2K=-G56Y0^44`Z+1;I.EVT/=1BV`B$0TF7$)@;(7OPS"
^XMB(3.9,22,2,5433,0)="""DATA"",396.18,215,3,1167,0)"
^XMB(3.9,22,2,5434,0)="MSG<E%&^TVA>-^\B@$#(\B0Q(2/XJSA>W1=AA)8$!2,!4MI\`Q#H14&7A#VDU"
^XMB(3.9,22,2,5435,0)="""DATA"",396.18,215,3,1168,0)"
^XMB(3.9,22,2,5436,0)="M'[G>Y8NZ0MY##74!U,@P3I""@>B^6<+$[).&`P0I`G2B""R)&PX0F>W\)%MH<L"
^XMB(3.9,22,2,5437,0)="""DATA"",396.18,215,3,1169,0)"
^XMB(3.9,22,2,5438,0)="ML?(.<AVQ#!C""L9V(EVGR[UU2H,V%5GVBD)N%/1FX'W""S?MDERYU=@WS`WV^<"
^XMB(3.9,22,2,5439,0)="""DATA"",396.18,215,3,1170,0)"
^XMB(3.9,22,2,5440,0)="M@R;-`<ERQ<N\M#[17?0Q2[_820D@I,B()0Q`RF71Q.7D41*O8BL9S`""5X>)>"
^XMB(3.9,22,2,5441,0)="""DATA"",396.18,215,3,1171,0)"
^XMB(3.9,22,2,5442,0)="M.BA@2\C+<!MFX7ZFO8\$R/T@OA2""^!X\62S>@W*Y@I42`F&&O+[HM&G%H8\5"
^XMB(3.9,22,2,5443,0)="""DATA"",396.18,215,3,1172,0)"
^XMB(3.9,22,2,5444,0)="MHQ"":.9V6YM-92\8@YU%>W[.!;C`.HD\VY^>CSP/1)[L-P1#ZEAW_83""%/NB6"
^XMB(3.9,22,2,5445,0)="""DATA"",396.18,215,3,1173,0)"
^XMB(3.9,22,2,5446,0)="MN?R^.!B`Z).]GK/1QT$F6WE%ST<?`CTIZ+Y@<XC^!A,Y\?L@0Q,#=CJG#_>%"
^XMB(3.9,22,2,5447,0)="""DATA"",396.18,215,3,1174,0)"
^XMB(3.9,22,2,5448,0)="M(CZ$WP_/;R<!A-??SLM**4CO)X]K*8/P]?Y>>`JS#U,';*:;SAZ&G\$QB$N3"
^XMB(3.9,22,2,5449,0)="""DATA"",396.18,215,3,1175,0)"
^XMB(3.9,22,2,5450,0)="MIB<X`6G2/?HZ''3G)H^[.8,HT_VY7!QTY<Z6:.*P5_;^/$#0BSIA'H4'('VZ"
^XMB(3.9,22,2,5451,0)="""DATA"",396.18,215,3,1176,0)"
^XMB(3.9,22,2,5452,0)="M-Q?4<R$,.D^BQT,07MV?.^R!#/GTF2@/9,P)<Z?+1'D41,*TJ:BKVW`3%;PH"
^XMB(3.9,22,2,5453,0)="""DATA"",396.18,215,3,1177,0)"
^XMB(3.9,22,2,5454,0)="M_T-:!^GU@68JNR#KU7@OLEU^JRL5]?2$E1V!.K@POQO&!9+>(H3L<9*I)XR<"
^XMB(3.9,22,2,5455,0)="""DATA"",396.18,215,3,1178,0)"
^XMB(3.9,22,2,5456,0)="M`.>L3-#HFMD8.I[PO@;O^CD8N5MXOQFA[,?0KTGH:*'\^""!JWY)`>=V79%N("
^XMB(3.9,22,2,5457,0)="""DATA"",396.18,215,3,1179,0)"
^XMB(3.9,22,2,5458,0)="MX`Z%Q&PU@)E[35Q7CQ^)CS\8GGM-;)MG:P4+8`KF^2/D$'""@@N%3*UA]HK*)"
^XMB(3.9,22,2,5459,0)="""DATA"",396.18,215,3,1180,0)"
^XMB(3.9,22,2,5460,0)="M`7`\A-CP\S'7!9Z/VL[WMRS-\]6=,^XB(<!%&GG""N741M#O5Q0`1C+M#WBP!"
^XMB(3.9,22,2,5461,0)="""DATA"",396.18,215,3,1181,0)"
^XMB(3.9,22,2,5462,0)="MVU[G^K(CX&6GP0A!^`QXV?DTKR6!7/)Q)YO!?JW;>6L5PT`5\^D(07@$J&+^"
^XMB(3.9,22,2,5463,0)="""DATA"",396.18,215,3,1182,0)"
^XMB(3.9,22,2,5464,0)="MJ*6W/<I%(<HU[DPSEG=K/TF_<A&8<F'LCG&*`Z!RH<'N_IND.$Y[]]G;L+W!"
^XMB(3.9,22,2,5465,0)="""DATA"",396.18,215,3,1183,0)"
^XMB(3.9,22,2,5466,0)="M$6;@&$`'QQW=F[O_VZW1_4I(@4K(O#&2\*!*.%U(P(`'#,:$GCXTID9TZ`'?"
^XMB(3.9,22,2,5467,0)="""DATA"",396.18,215,3,1184,0)"
^XMB(3.9,22,2,5468,0)="M1]NX;W%$S]7BD*LU3J#^?+4J>0+\4P[3/(+'!`H^V+Y/Y*!Z$""4;<:G\@,X."
^XMB(3.9,22,2,5469,0)="""DATA"",396.18,215,3,1185,0)"
^XMB(3.9,22,2,5470,0)="MZEYTS*YD'E#)^!AOCD.#('1R%]4'J->XFQ/,28Z]T``!D#$A+8MBG'Z!_8/@"
^XMB(3.9,22,2,5471,0)="""DATA"",396.18,215,3,1186,0)"
^XMB(3.9,22,2,5472,0)="MU/JEG?^5LNRNW?O$JGK1BZ<W9NK:-<F<>9:0$4:5`""@T]8RF<C2I""SS@N+P@"
^XMB(3.9,22,2,5473,0)="""DATA"",396.18,215,3,1187,0)"
^XMB(3.9,22,2,5474,0)="M]+G'9+(#(N`!1^:>H=F0&HIUHO0Z0OHM6Z<H(,R%JKT(N44&&""""#<?=H#F#V"
^XMB(3.9,22,2,5475,0)="""DATA"",396.18,215,3,1188,0)"
^XMB(3.9,22,2,5476,0)="M(J`6$1""`"",;9:C*+H!(!MMM<#+2Y(_TO:,66G-#_:LYFS'_*/3?CSN9#J[7N"
^XMB(3.9,22,2,5477,0)="""DATA"",396.18,215,3,1189,0)"
^XMB(3.9,22,2,5478,0)="M!&>C4+F-""V&@;R7Q)@G^$048AY%'F]_(O>A\NY8QH):-3&YBJ):Q\R4W$0.H"
^XMB(3.9,22,2,5479,0)="""DATA"",396.18,215,3,1190,0)"
^XMB(3.9,22,2,5480,0)="MWLCSSK6KO3RY7?4X5/5&Y9E]:*L-(=,8.`[1LG$I]!D9:2\Z:M<R#ZIEXPJ%"
^XMB(3.9,22,2,5481,0)="""DATA"",396.18,215,3,1191,0)"
^XMB(3.9,22,2,5482,0)="M8`.'[J5&BCR(%HX[^IP$W8L6X(3[T,3'N)8)<-ODJ9.@R(>D.L8=BLWZ5>F7"
^XMB(3.9,22,2,5483,0)="""DATA"",396.18,215,3,1192,0)"
^XMB(3.9,22,2,5484,0)="M/35*H:G1D?U>T$`(3Q0L!!`M&W>TN5MR+SK?`O3H0K(YX^H=[.G5.R@`U='5"
^XMB(3.9,22,2,5485,0)="""DATA"",396.18,215,3,1193,0)"
^XMB(3.9,22,2,5486,0)="M@?572_CV\7$'K!]7`.BM^9TG#]:/#:-:.-!/(-(N5K^,5>AB.++C[]'B4PN<"
^XMB(3.9,22,2,5487,0)="""DATA"",396.18,215,3,1194,0)"
^XMB(3.9,22,2,5488,0)="M/X[R1P//[^K'([WN:'D@F>,`,&E7O@9.J'""M9V""K')'6S&NA[KR6$L][S(##"
^XMB(3.9,22,2,5489,0)="""DATA"",396.18,215,3,1195,0)"
^XMB(3.9,22,2,5490,0)="M;)\SXT<-:KW[\^W[<!FGY8Y-5&*]=S_K'*,[LD>MX2)5S2NJG[@""[Z&ZXEV;"
^XMB(3.9,22,2,5491,0)="""DATA"",396.18,215,3,1196,0)"
^XMB(3.9,22,2,5492,0)="M]?==OHVO[\I'NX.X77SR+ESJ%;V!'A=*FJ3+<D!Z>WN7I?'RY_T?%!J\6R<Y"
^XMB(3.9,22,2,5493,0)="""DATA"",396.18,215,3,1197,0)"
^XMB(3.9,22,2,5494,0)="M9%Y'ZW>J,V4@EK(A+/79&):225CZ,LH^%Z^%<[F,]KFM25B)P*SD0UB),![#"
^XMB(3.9,22,2,5495,0)="""DATA"",396.18,215,3,1198,0)"
^XMB(3.9,22,2,5496,0)="M2SP-+\,LW<;%HL5=O)V$BQC,16\0%UDPAHMT$BY66P+^O;LIK_?[Z'JU^SH)"
^XMB(3.9,22,2,5497,0)="""DATA"",396.18,215,3,1199,0)"
^XMB(3.9,22,2,5498,0)="M,_N1W@-M`.!ULQA(68@ASYASIO*-/T'?T_*D$L/L-O>/?E'[!J#9*39<E=@6"
^XMB(3.9,22,2,5499,0)="""DATA"",396.18,215,3,1200,0)"
^XMB(3.9,22,2,5500,0)="MBM-<><)[,'JW[33OA]P/-'ODJ3O-Q.@TZ_$-J-?K-#,7[C2_37?BAPIXC`^W"
^XMB(3.9,22,2,5501,0)="""DATA"",396.18,215,3,1201,0)"
^XMB(3.9,22,2,5502,0)="M61ING5_BI%@K\FA\9QR8\""G[W#P(0L2!=>+*W.RB;W^S%0ZX8;,5[F76F9!/"
^XMB(3.9,22,2,5503,0)="""DATA"",396.18,215,3,1202,0)"
^XMB(3.9,22,2,5504,0)="M<.`!1-F$(<U]`,CR;[O'L)D,!SY$?@J'SK9GRT4``3:+'8U;JS3D_>.S\)?*"
^XMB(3.9,22,2,5505,0)="""DATA"",396.18,215,3,1203,0)"
^XMB(3.9,22,2,5506,0)="MR_@N7(7;1W`9B8LAPE2Y=39A$H`PE9P$`(6H;`5U1$""V+2$*)WR/SBQ0""A%H"
^XMB(3.9,22,2,5507,0)="""DATA"",396.18,215,3,1204,0)"
^XMB(3.9,22,2,5508,0)="M$-R7/""$/)69,WBQD)^]#FN3QZE&($/1`*DPZ@PP;M!ADGO[HP*"".J4""[_+[@"
^XMB(3.9,22,2,5509,0)="""DATA"",396.18,215,3,1205,0)"
^XMB(3.9,22,2,5510,0)="MB)KC8=CQD!*;@LZ'3X6&\[HP7[M5NNLL!XP$*7'BW*3ITLE$H!]GFN]N4J'U"
^XMB(3.9,22,2,5511,0)="""DATA"",396.18,215,3,1206,0)"
^XMB(3.9,22,2,5512,0)="M\G?!_&%`_G`VAC_T5&@ZH^7/8>?#*APTX'S(O2\`D>9\'O!\?$RCINN?""KU"""
^XMB(3.9,22,2,5513,0)="""DATA"",396.18,215,3,1207,0)"
^XMB(3.9,22,2,5514,0)="M/M_EQSQJ;2`'59D#;4>J9$OM=DI=YTC=N<9LRSN7`F```0`LJ4X""\\``*,W*"
^XMB(3.9,22,2,5515,0)="""DATA"",396.18,215,3,1208,0)"
^XMB(3.9,22,2,5516,0)="M(1*PVVJ=!.9N'@@N6.`!)`!X3302F)?*6D&;2@GX$`G8WSO='9C[=FW(1C4("
^XMB(3.9,22,2,5517,0)="""DATA"",396.18,215,3,1209,0)"
^XMB(3.9,22,2,5518,0)="M*S,4]7VWBWK,;""4(!""WJUZ';,>""QS-""+X/M'4]U7.*GQEXZLG'BZR@E'K7:C"
^XMB(3.9,22,2,5519,0)="""DATA"",396.18,215,3,1210,0)"
^XMB(3.9,22,2,5520,0)="M;N6$!YW*"":YT[BE73J@I$^H;<BUU/ZZ^=()<!B^="".;M'D^9Q/<!V1\F/8,,"
^XMB(3.9,22,2,5521,0)="""DATA"",396.18,215,3,1211,0)"
^XMB(3.9,22,2,5522,0)="MA.<?KN,$LD(#^X;LBD?ZB#A;^<$/(.0UL-2-4F$\@,#P^KH<0G#R0KV:*CZ4"
^XMB(3.9,22,2,5523,0)="""DATA"",396.18,215,3,1212,0)"
^XMB(3.9,22,2,5524,0)="MTC_>_Q;G6Q$[EC-7S5<],O7D%A(L\]-7'U;<P/U\W0HZHN55M""JHZ#Q.VB`3"
^XMB(3.9,22,2,5525,0)="""DATA"",396.18,215,3,1213,0)"
^XMB(3.9,22,2,5526,0)="M'E)^*'YQ)E[&5@KEW2[;K81B*UL^Q/=>9D7#17)S^.0780?U.13'>;M;;>.&"
^XMB(3.9,22,2,5527,0)="""DATA"",396.18,215,3,1214,0)"
^XMB(3.9,22,2,5528,0)="MZD-S!G!]3^M3?=KK0[PYW/4_XV29?MD+(4UN""JE815GZ1MJA>M3MPT!8[O;W"
^XMB(3.9,22,2,5529,0)="""DATA"",396.18,215,3,1215,0)"
^XMB(3.9,22,2,5530,0)="MY`IPDZ5MB7"".D6U=1:4$""$`""'AHC@!G6P):DJ)U39'!.J=N[-TAQ\^K7W^Z<"
^XMB(3.9,22,2,5531,0)="""DATA"",396.18,215,3,1216,0)"
^XMB(3.9,22,2,5532,0)="MDE,X>""5:J.+@54U2$`=O/T3_E!T\9GR,#=51@OH=/#J@H?R@&8_`OV,&YZ7C"
^XMB(3.9,22,2,5533,0)="""DATA"",396.18,215,3,1217,0)"
^XMB(3.9,22,2,5534,0)="M$#-\7[Z59UAJTZVK24D`PNWD746;[6YM<ST#%\(>Y`;WU?J""(/1A5\Z2$,!6"
^XMB(3.9,22,2,5535,0)="""DATA"",396.18,215,3,1218,0)"
^XMB(3.9,22,2,5536,0)="MQO]9;+],/^;;;+=?AIDX4;BX%2[H,AI'+09Q4Q:GQP=P\UVZNMODX\@C(&8R"
^XMB(3.9,22,2,5537,0)="""DATA"",396.18,215,3,1219,0)"
^XMB(3.9,22,2,5538,0)="M_WZ$S7S`75!4D0&F/3[LLH]%+&8?\O`""PY-KV<@%:4G]RR0)(:D%O)Q@[&D!"
^XMB(3.9,22,2,5539,0)="""DATA"",396.18,215,3,1220,0)"
^XMB(3.9,22,2,5540,0)="M[[X3S-I'7T>=[?RN/TD'^.]A'JZ<SY'XV8\BV!G1_-U3?(0.>-3E2#-`GK2Z"
^XMB(3.9,22,2,5541,0)="""DATA"",396.18,215,3,1221,0)"
^XMB(3.9,22,2,5542,0)="M3DZ0*UUWFG(DIE.5(U]%G^.P,\IO+<!*$P1HB/HHE@Q1V90UU[-U_&GF,""K#"
^XMB(3.9,22,2,5543,0)="""DATA"",396.18,215,3,1222,0)"
^XMB(3.9,22,2,5544,0)="M.,G,``6S#P]AG_IL*3D('?O<2=CWQ^$AG(2'_3!Z1%^.ZKY,GASO*[N7=;T-"
^XMB(3.9,22,2,5545,0)="""DATA"",396.18,215,3,1223,0)"
^XMB(3.9,22,2,5546,0)="M<RT$4A/W?8``$&8C)$#F'0>0FK@?0""3@C9$`GKL20#5Q%R`!C,=8(3S7Q$$U"
^XMB(3.9,22,2,5547,0)="""DATA"",396.18,215,3,1224,0)"
^XMB(3.9,22,2,5548,0)="M<021@.)T@20P]X5`:^*N/@;J2F%4""'2ZXK+)<P]ZH*W[GS)$K$H4,#K5VL@7"
^XMB(3.9,22,2,5549,0)="""DATA"",396.18,215,3,1225,0)"
^XMB(3.9,22,2,5550,0)="MZ<U-#[Z@L9:.=*G62@'WC83M3""OEW2%$6G'A&\BTXJDRK=R4+?$,F4._BW,D"
^XMB(3.9,22,2,5551,0)="""DATA"",396.18,215,3,1226,0)"
^XMB(3.9,22,2,5552,0)="MJ5&`X(G6UV'V:/*LGCZ1&70W+\@CF]S.K.(7/1XN&5)<B/>QB7AV-KTOOO5X"
^XMB(3.9,22,2,5553,0)="""DATA"",396.18,215,3,1227,0)"
^XMB(3.9,22,2,5554,0)="MLO;ZM""_I:),""7X``;1GOXB2I!N:BK]LH2\*5LPB3O24V4T0-^MVE""!$V?.SK"
^XMB(3.9,22,2,5555,0)="""DATA"",396.18,215,3,1228,0)"
^XMB(3.9,22,2,5556,0)="MP]UZ$R;QPEE'ZX^9,.4V4@SM(D1JW71M2D0T(`QA5G<2]!$`X07V)2^-`GCQ"
^XMB(3.9,22,2,5557,0)="""DATA"",396.18,215,3,1229,0)"
^XMB(3.9,22,2,5558,0)="MJM/>T$>""H6VGVP`W,0T!B(8)!6&HWD@4G$<K#94:B9:SWEE#O:.KIX%G>Y,,"
^XMB(3.9,22,2,5559,0)="""DATA"",396.18,215,3,1230,0)"
^XMB(3.9,22,2,5560,0)="MZ%%C2AS4@&Q`NJU4<F_2Q#0Q`$V8^F>EB0-H(K(//S%-'D3#SZQ/(#MX;H4"""
^XMB(3.9,22,2,5561,0)="""DATA"",396.18,215,3,1231,0)"
^XMB(3.9,22,2,5562,0)="M&<;S2H^Y(%MY-C6_N@TW46$,RO_HDD2Z$ZNR-Z@T]^PU[D6VRV]U/EU?L%^"""
^XMB(3.9,22,2,5563,0)="""DATA"",396.18,215,3,1232,0)"
^XMB(3.9,22,2,5564,0)="MHVN""?4R[5\VCIVN`]TX1Z""/SNA'<6S0`#`P2Y-_WP""\R;AR1-';4^;`[5042"
^XMB(3.9,22,2,5565,0)="""DATA"",396.18,215,3,1233,0)"
^XMB(3.9,22,2,5566,0)="M?#X*$Q]B[ICSX:GR-.^B[#K-!M98ZS,SH$Q''II.MD;[J%-SF*0QYF-N*CO5"
^XMB(3.9,22,2,5567,0)="""DATA"",396.18,215,3,1234,0)"
^XMB(3.9,22,2,5568,0)="M:':]B2T9J]$>4+HC#WJZ_=1'G]2'292X>,Q!R>F&T9-HQ.D""H!Q''H^><`WW"
^XMB(3.9,22,2,5569,0)="""DATA"",396.18,215,3,1235,0)"
^XMB(3.9,22,2,5570,0)="MD/,5915/OTH4]P]R@(XUE]E!9787(`#?&V/]YQHOJ,J.[`+`?-3%GE>!0XKL"
^XMB(3.9,22,2,5571,0)="""DATA"",396.18,215,3,1236,0)"
^XMB(3.9,22,2,5572,0)="MOG:P1':`1MF@N<AN+?&6$J`0""?ACG)2YR-[IZ36+@`%$0.@HK*JYVZH]0V,6"
^XMB(3.9,22,2,5573,0)="""DATA"",396.18,215,3,1237,0)"
^XMB(3.9,22,2,5574,0)="M`0>(8-1+0-W9#K41?GO33YZAW[[;K3$J_=3;;'+4:H52?[#=D1AU@TFS/[TU"
^XMB(3.9,22,2,5575,0)="""DATA"",396.18,215,3,1238,0)"
^XMB(3.9,22,2,5576,0)="M2'L;;Z-9I[H-9*:>&,8U/3%^JR6F2CPW-4$9F#L8!\S=9(P?Y4""B9TKV<P/B"
^XMB(3.9,22,2,5577,0)="""DATA"",396.18,215,3,1239,0)"
^XMB(3.9,22,2,5578,0)="M!.H84BXON`G@;3)_NTNBA3CZ3;FQHL!5>""Q]#M3#H-(;E9'.P<@*U9?I=7?5"
^XMB(3.9,22,2,5579,0)="""DATA"",396.18,215,3,1240,0)"
^XMB(3.9,22,2,5580,0)="M35E+#9?+N/AN44U-UVM!>/[3MP]5R@PS>+@[>D%DPZP\*%SI7FSE7;;13\ZK"
^XMB(3.9,22,2,5581,0)="""DATA"",396.18,215,3,1241,0)"
^XMB(3.9,22,2,5582,0)="M5!""W<?)U%&9.?.TD:1(Y7^+M;8%E&>9;YTY\XT?GS;6S*TVVLTT%HY/E;G'A"
^XMB(3.9,22,2,5583,0)="""DATA"",396.18,215,3,1242,0)"
^XMB(3.9,22,2,5584,0)="M_+7Y75LA""R<Z8(7LL9SWO_=YL?-&_.XBM1,YL1""<DQ?@#E'QN9#:9M7^7=%7"
^XMB(3.9,22,2,5585,0)="""DATA"",396.18,215,3,1243,0)"
^XMB(3.9,22,2,5586,0)="M9Y.EXD^MGSM9=""TNKOB3XB<VT2(6DL^W/_;Y)7\*D_5G%FY:(R-]+S<VK4,B"
^XMB(3.9,22,2,5587,0)="""DATA"",396.18,215,3,1244,0)"
^XMB(3.9,22,2,5588,0)="M7O<)M+[<KCHIU_MTGP`_J5K=HRM[217F4=2;ZE[X6)^#:L,&TMU.PI5^$[F$"
^XMB(3.9,22,2,5589,0)="""DATA"",396.18,215,3,1245,0)"
^XMB(3.9,22,2,5590,0)="MZ4F@#!ZG3W`Q'H+N>:+([9_JPJP[U:6TIQ,+9)O'""9]FJ.MSF!T6PBGS7/?D"
^XMB(3.9,22,2,5591,0)="""DATA"",396.18,215,3,1246,0)"
^XMB(3.9,22,2,5592,0)="M2X*-_Q`<UGTQPZ(<H#25+'X\1/Q(`46!B'^:D<A_;*-L-TM?)WT*EKYE(A:?"
^XMB(3.9,22,2,5593,0)="""DATA"",396.18,215,3,1247,0)"
^XMB(3.9,22,2,5594,0)="M0OS3[-2Z7"";""LYC%KQ&_#Q6_&PP3/_&'BQ_3Z9;\?9W%KQ&_!Q8_'63[%>G["
^XMB(3.9,22,2,5595,0)="""DATA"",396.18,215,3,1248,0)"
^XMB(3.9,22,2,5596,0)="M@5WZT]C^?X8W(J28I:^1/@';?C9(^BX9?O?I-`L^10`<S\+7""1^#K[XWS/*/"
^XMB(3.9,22,2,5597,0)="""DATA"",396.18,215,3,1249,0)"
^XMB(3.9,22,2,5598,0)="MD7Y3L3RM]-\DVRR-M[/KI]4`#M:`0==?0>K&S.[X30.E<\A+;<K&O75DWI3\"
^XMB(3.9,22,2,5599,0)="""DATA"",396.18,215,3,1250,0)"
^XMB(3.9,22,2,5600,0)="M[:J""`7,$H`$(K`%\B`80.L+^3X/F<KE/..[E7V88C2KPR*4-S?-@;YBO/R+1"
^XMB(3.9,22,2,5601,0)="""DATA"",396.18,215,3,1251,0)"
^XMB(3.9,22,2,5602,0)="M@]W`G>;*OQ?':NPB[)*/-[+:5A-C.8YIRG&XM2>7M*MQW`ND""77^U+%`?5/U"
^XMB(3.9,22,2,5603,0)="""DATA"",396.18,215,3,1252,0)"
^XMB(3.9,22,2,5604,0)="MB!I&[CCN*;TA-@`*]$46%96,1U5SH_H""$>M""<_F6=7_8/=^D.K\/+AEF)X->"
^XMB(3.9,22,2,5605,0)="""DATA"",396.18,215,3,1253,0)"
^XMB(3.9,22,2,5606,0)="M-E%J9]-TD^KWPB=#^;M;!9,WSR+B#L#47(=Y5;)=I8O#0H&A4WF4&99JHP='"
^XMB(3.9,22,2,5607,0)="""DATA"",396.18,215,3,1254,0)"
^XMB(3.9,22,2,5608,0)="M*8?P%,N#<0@/(37_%"">MJOC=.$H]`T_Q@Z/4A_`4*:,I.!A`:1)O-N)2'4UK"
^XMB(3.9,22,2,5609,0)="""DATA"",396.18,215,3,1255,0)"
^XMB(3.9,22,2,5610,0)="M`-'4AT$K<T%\#62T(<(&T)I%>;S<""6J*3HY\E]U$V4AJ$8BS#X5:0RN'A$/E"
^XMB(3.9,22,2,5611,0)="""DATA"",396.18,215,3,1256,0)"
^XMB(3.9,22,2,5612,0)="M6X&<5`?G*KY)XNMX$98[-:ZO(V'V%U&QAC2/_SMR/D;;+U&4.!]+_Z<!%86V"
^XMB(3.9,22,2,5613,0)="""DATA"",396.18,215,3,1257,0)"
^XMB(3.9,22,2,5614,0)="M2.S)-SRA'$U)_T*\7>DN*WA_'/4,PGQJ1='JM6P%KP_DCU,2#N*RW,C1`.:#"
^XMB(3.9,22,2,5615,0)="""DATA"",396.18,215,3,1258,0)"
^XMB(3.9,22,2,5616,0)="M""*V9.IK6<LH;:\>]"">ETRE'/,N[-^9AQ[_+O^EH""D+0T3/(`N+IQ[HAY\Q(A"
^XMB(3.9,22,2,5617,0)="""DATA"",396.18,215,3,1259,0)"
^XMB(3.9,22,2,5618,0)="M5]=XP[J--_(Z<'6GQ<""V(<Q/T39$]-03&AQ/O:%M""!\W+M\%*""Y7<_2E./J="
^XMB(3.9,22,2,5619,0)="""DATA"",396.18,215,3,1260,0)"
^XMB(3.9,22,2,5620,0)="M083M^UTFRFB]2HL6.?%7W@H?<TYEV>1LJ5L21OL%30""""QK.@)\M0]T\Q4OT*"
^XMB(3.9,22,2,5621,0)="""DATA"",396.18,215,3,1261,0)"
^XMB(3.9,22,2,5622,0)="MZ:[3R>4GSV=V='$ZSZY`YGB1'K!<<J3'26`>Y&T/P(.L'1ORJOG^B%=MHDK="
^XMB(3.9,22,2,5623,0)="""DATA"",396.18,215,3,1262,0)"
^XMB(3.9,22,2,5624,0)="M*^%0[O)(>""W+W2K,1!3Z5""T>!@N;#Q&VFGN!2)NQ2:1]561R+MN3&$]5VH'%"
^XMB(3.9,22,2,5625,0)="""DATA"",396.18,215,3,1263,0)"
^XMB(3.9,22,2,5626,0)="MNOIZZXK[<<`5\UJ/X[5%.Z\?W%\X8I%!`/`Q1LI@ADH8.(-0^1MPAUYC]@`>"
^XMB(3.9,22,2,5627,0)="""DATA"",396.18,215,3,1264,0)"
^XMB(3.9,22,2,5628,0)="M/?-FLS?M(P=_Y?PAKYR:""P=%ZM.(^_<JLSX+?$""K:65MX?=;(W!(Q![,`I\Z"
^XMB(3.9,22,2,5629,0)="""DATA"",396.18,215,3,1265,0)"
^XMB(3.9,22,2,5630,0)="M<._?<X6H""X@;&_2#08$CFY$_VL/J/3)``,]FG`SH[%T.7)E'W4$/73#FH6-H"
^XMB(3.9,22,2,5631,0)="""DATA"",396.18,215,3,1266,0)"
^XMB(3.9,22,2,5632,0)="MHIZ[5J'SJBIT/E6[Q\'RQL,>NF#,0\?(+/""I'SI+""$\))'QT1SUT>#:R@\;8"
^XMB(3.9,22,2,5633,0)="""DATA"",396.18,215,3,1267,0)"
^XMB(3.9,22,2,5634,0)="M$!U6#O+]$7>.!'.&=-H;Q\#B'I0B1:-2I'2:H=4*[&<=BI\-GZJ@X7+VA[VE"
^XMB(3.9,22,2,5635,0)="""DATA"",396.18,215,3,1268,0)"
^XMB(3.9,22,2,5636,0)="MHY)""E,V""GNI&0\?0JYV,\*('5@PX`QCP:>KYEU_CE3#<=\[E,DK23;B]?;(6"
^XMB(3.9,22,2,5637,0)="""DATA"",396.18,215,3,1269,0)"
^XMB(3.9,22,2,5638,0)="M'""[N84ZR1MZ0!YO,\IXXW8O``K<X:-3KHFK):R=5G`&UZC(4940:%9,$?LK="
^XMB(3.9,22,2,5639,0)="""DATA"",396.18,215,3,1270,0)"
^XMB(3.9,22,2,5640,0)="M\!B<+6`6ST:X/L?SZ9183*=DDP54&.F[@J2.71D>#`?RS`[A*DN\.>)J8;CU"
^XMB(3.9,22,2,5641,0)="""DATA"",396.18,215,3,1271,0)"
^XMB(3.9,22,2,5642,0)="MB$""/T""8U(\M;\+""RD4\G@QE;>V\M^H&=,2#!/C+O0&<)5!)PK5._Y6I*>>JW"
^XMB(3.9,22,2,5643,0)="""DATA"",396.18,215,3,1272,0)"
^XMB(3.9,22,2,5644,0)="MZB2O*]2=L5^*)!!>]M3'?@/#Q`/W36._G;5QU#J881[[_37*D@8^YIN?^.6^"
^XMB(3.9,22,2,5645,0)="""DATA"",396.18,215,3,1273,0)"
^XMB(3.9,22,2,5646,0)="M?HZ(2HO&/(NKT#<@\B99Q'D)ICMFB(7[^E$AVC5:Q+-%=7TD?E<N""-K+]KMQ"
^XMB(3.9,22,2,5647,0)="""DATA"",396.18,215,3,1274,0)"
^XMB(3.9,22,2,5648,0)="M9%(`(^6Z&04,VOS6'A?M(T`_[(-=8F$48,OLJUBHXS8J)Z=N2R:5XU3K'\>Q"
^XMB(3.9,22,2,5649,0)="""DATA"",396.18,215,3,1275,0)"
^XMB(3.9,22,2,5650,0)="MRK`C.?`?&*74M!@3=0=R^%&KV\_P8MX'EH!KF*=T_3[>#=WG_EB9AR&7&:D+"
^XMB(3.9,22,2,5651,0)="""DATA"",396.18,215,3,1276,0)"
^XMB(3.9,22,2,5652,0)="M+@'KJ_^,5BLGWVTV:;85G/MXYVRS79X7L-GB[VU_/@40]OX4!'+1'^XIRGE`"
^XMB(3.9,22,2,5653,0)="""DATA"",396.18,215,3,1277,0)"
^XMB(3.9,22,2,5654,0)="MII],[#K-E%LF$]DQBV@#PR80['=C)VP;K:O'*0V+:!\\MKUF#N@8S'"",M7V\"
^XMB(3.9,22,2,5655,0)="""DATA"",396.18,215,3,1278,0)"
^XMB(3.9,22,2,5656,0)="M7==""61""-L/QJUQ..33R$"")[;>""&S0IBX=@DT.QV&26#.R]BF1_YX_UN<;U^D"
^XMB(3.9,22,2,5657,0)="""DATA"",396.18,215,3,1279,0)"
^XMB(3.9,22,2,5658,0)="M7\MB6?-5CP/+?)LDZOKX(3<0>,W^RZ];04>TO(I6!15*&E6Q]^:,8$G=F^1F"
^XMB(3.9,22,2,5659,0)="""DATA"",396.18,215,3,1280,0)"
^XMB(3.9,22,2,5660,0)="M%R=M-*[2-=!\7O[S7X2:9>J_5CY6`I;N!E''>;M;;>/F$(<<9R6I(C6Z/WU;"
^XMB(3.9,22,2,5661,0)="""DATA"",396.18,215,3,1281,0)"
^XMB(3.9,22,2,5662,0)="M6MI/]>NR/\2;UGZC.%FF7_8R29.;0DA6+T)"";R.6FDF#:K&?S9,W@""A>60WG"
^XMB(3.9,22,2,5663,0)="""DATA"",396.18,215,3,1282,0)"
^XMB(3.9,22,2,5664,0)="MUY(R]TZ90F\W%BUWBUC<X)]/A.!F3R83,%\M(^,2)-0XOOJ/AJ\^F*]TD+X&"
^XMB(3.9,22,2,5665,0)="""DATA"",396.18,215,3,1283,0)"
^XMB(3.9,22,2,5666,0)="M_AB^!E/Q=1TMXW!U/K92,%O9('4=Q5;/?2QL#<!L]0=I*Y)C7IBZLFGX^L<F"
^XMB(3.9,22,2,5667,0)="""DATA"",396.18,215,3,1284,0)"
^XMB(3.9,22,2,5668,0)="MRL*S6@%H""P^VM3]+ZCJ2K_RQ\!4\,(<I&J:P`1YC""-""4)?63<X^#F4>':66`"
^XMB(3.9,22,2,5669,0)="""DATA"",396.18,215,3,1285,0)"
^XMB(3.9,22,2,5670,0)="MQC`/?U/,LU3?,=)'>:[;'^8I>2`ES!/W=RX\@LKO&&DG>^3RP#@9S+`<T`6L"
^XMB(3.9,22,2,5671,0)="""DATA"",396.18,215,3,1286,0)"
^XMB(3.9,22,2,5672,0)="M5+N`%1UJOQ4\5E,@\KN0S_NE*4^X]EO5UW799F2`F_2[LVOHB.+O+R+VWJT>"
^XMB(3.9,22,2,5673,0)="""DATA"",396.18,215,3,1287,0)"
^XMB(3.9,22,2,5674,0)="M3?6W6N""E0^CLI)6ESF@*6+':W*RFQ!H5N9]M499;1>&G\""8JL7""32%B+ZV)A"
^XMB(3.9,22,2,5675,0)="""DATA"",396.18,215,3,1288,0)"
^XMB(3.9,22,2,5676,0)="M9[B]K>IVF9/LUA^K""E[XL;W#,T^SC\7OV(3+O$#O=Y;AG9-%_V\79]'RQX%("
^XMB(3.9,22,2,5677,0)="""DATA"",396.18,215,3,1289,0)"
^XMB(3.9,22,2,5678,0)="MCOO4>KG%0)=:[S85(L9MJ'6L-[4NY^..!-OS?,.&478*LJ,PN]`G<H_*MB.N"
^XMB(3.9,22,2,5679,0)="""DATA"",396.18,215,3,1290,0)"
^XMB(3.9,22,2,5680,0)="M'WOJ%%+D""KFR-R#PY%2OB^C36]$):#-""FJ<&5<[F/A^%.V]-I3L'U<#C^HP>"
^XMB(3.9,22,2,5681,0)="""DATA"",396.18,215,3,1291,0)"
^XMB(3.9,22,2,5682,0)="M];+O*M^M[6K0(S,C:142D[=]<_CS\_M__7KIO%R%>5[BV[9`Q+_]1J3`T&K1"
^XMB(3.9,22,2,5683,0)="""DATA"",396.18,215,3,1292,0)"
^XMB(3.9,22,2,5684,0)="MX9Z,5$NX!W^*2L8Y;WYP?D^=5;R.M]52Z<WM75YN3P\7V_ASO+U[[B2I>(^R"
^XMB(3.9,22,2,5685,0)="""DATA"",396.18,215,3,1293,0)"
^XMB(3.9,22,2,5686,0)="M91PNG/QNO=FF(L82K&X]1>*96L9)T<E?_]08(&$>(,""AY>5)Q/.M(,CRH<6I"
^XMB(3.9,22,2,5687,0)="""DATA"",396.18,215,3,1294,0)"
^XMB(3.9,22,2,5688,0)="MKU;EOVZ=7#RPFL,OTK5XD+?E6NYPVSET%N7;YX>C*S]<_(/=:IN7+3<2`\?Q"
^XMB(3.9,22,2,5689,0)="""DATA"",396.18,215,3,1295,0)"
^XMB(3.9,22,2,5690,0)="M!P/XHVP7(XP-9Y#@T-LP^R3<D6$<ZBXLKSBTBL2OW-Z&R4!>=9R=H_A&('R3"
^XMB(3.9,22,2,5691,0)="""DATA"",396.18,215,3,1296,0)"
^XMB(3.9,22,2,5692,0)="MN]&(%PSFVS]_<-Z(H""\N0.+++>YA)DY;[FK7';K8`9_N""ESNSEGW''VN7KNU"
^XMB(3.9,22,2,5693,0)="""DATA"",396.18,215,3,1297,0)"
^XMB(3.9,22,2,5694,0)="M</&$][@1W""I</_'RB%]=\[G^&^W?U?U[<;(H@+ZC7/S%^J^,<Q2#P.!Q^9VI"
^XMB(3.9,22,2,5695,0)="""DATA"",396.18,215,3,1298,0)"
^XMB(3.9,22,2,5696,0)="M""N1CF\?E0QU%=XC'90PX=<W&%6YRJQFVZ36N3C.O&))@J327C)A>K.Z*(27>"
^XMB(3.9,22,2,5697,0)="""DATA"",396.18,215,3,1299,0)"
^XMB(3.9,22,2,5698,0)="M9`'\P1?_&Q?@ZJ4->2Q//3%9IVXSD^N-6&%1]?&V-P#\$B?+P@G_V?E6FIQZ"
^XMB(3.9,22,2,5699,0)="""DATA"",396.18,215,3,1300,0)"
^XMB(3.9,22,2,5700,0)="MK%!@Q%CO\LXGMD8P##5""QW59=?/DA-O6Q1.I\4<>17'EY3!4FMWT&)IF5'>?"
^XMB(3.9,22,2,5701,0)="""DATA"",396.18,215,3,1301,0)"
^XMB(3.9,22,2,5702,0)="M^C&6<\[1;T""XI=^`DDXPS>1Y-NI91E\%^Z:9?/VU:++);M-XJ2Y>I=_4CM4D"
^XMB(3.9,22,2,5703,0)="""DATA"",396.18,215,3,1302,0)"
^XMB(3.9,22,2,5704,0)="M.DBS:&C*DF[OD/S)BW1[>Q*`@Q+<7(L<(UE.C.4M%;+8F;1[4=RK!L3Y*95,"
^XMB(3.9,22,2,5705,0)="""DATA"",396.18,215,3,1303,0)"
^XMB(3.9,22,2,5706,0)="MD,W>4MA&CC'VMF\A!SI)CM#@L1+27=7I25:"">7;BWT<_I)LHN=#WHISFM<`V"
^XMB(3.9,22,2,5707,0)="""DATA"",396.18,215,3,1304,0)"
^XMB(3.9,22,2,5708,0)="M-&O$^Q\+);,O/Q;B7Z"")NJO>Y$Y8#Z#L@Y<GB^1A#:T,.?BFH>-DBOIM-;CC"
^XMB(3.9,22,2,5709,0)="""DATA"",396.18,215,3,1305,0)"
^XMB(3.9,22,2,5710,0)="M$]XE[`WR')2F!=\.DA*P:?8`O%A%4>'""SVNZQ[2K8'^0X!'!(R3/I_&Y/]QF"
^XMB(3.9,22,2,5711,0)="""DATA"",396.18,215,3,1306,0)"
^XMB(3.9,22,2,5712,0)="MZ?ICFL?Y+/L1T';5>,L`V7MDC.RGV6GU3KAPX2:/9LF/:J!V!TD>(SI&\E-!"
^XMB(3.9,22,2,5713,0)="""DATA"",396.18,215,3,1307,0)"
^XMB(3.9,22,2,5714,0)="MQXYJ3'^R6T%DT:-AHF=LS%,?3)5DR7=9]'W^S.HT/T4=Z.GP+>7\(OV*""I-?"
^XMB(3.9,22,2,5715,0)="""DATA"",396.18,215,3,1308,0)"
^XMB(3.9,22,2,5716,0)="M?R'EI;M+/Z4^""U<>Y,)U5J$EG[>A../5)EH4V55CP4*;\Y4JG4KNXM`O6W_="
^XMB(3.9,22,2,5717,0)="""DATA"",396.18,215,3,1309,0)"
^XMB(3.9,22,2,5718,0)="M*&3M]VL*4UUW(1(ZES]WHDV\C)=WZ^*_\ZC8F+=R/D=YO%A%^?.R[2C?1""+P"
^XMB(3.9,22,2,5719,0)="""DATA"",396.18,215,3,1310,0)"
^XMB(3.9,22,2,5720,0)="MWL8+9R%TMY&&IB34L-MP+&P\%N^>JPZZVPEMKIRK#EGU,!4%Z3?QYTA>(6ZX"
^XMB(3.9,22,2,5721,0)="""DATA"",396.18,215,3,1311,0)"
^XMB(3.9,22,2,5722,0)="M#?V44Z!`ZH*6BF]@H_M=E,2UJO?3PJ!<5(FY9RYRJ%K7JTH/E`<,1OAELJL6"
^XMB(3.9,22,2,5723,0)="""DATA"",396.18,215,3,1312,0)"
^XMB(3.9,22,2,5724,0)="MQV?BSPM5_A*N5B""N>E""N:HBC>!A7C^&A#^5A#130*ED'0%7,TGP;;B,0WP(P"
^XMB(3.9,22,2,5725,0)="""DATA"",396.18,215,3,1313,0)"
^XMB(3.9,22,2,5726,0)="MWU2""SL*WET54).Q[:7WJ+RS,HS""[VOQ4>QC!:ZC43NGJWH"">![!\]5IYS_*3"
^XMB(3.9,22,2,5727,0)="""DATA"",396.18,215,3,1314,0)"
^XMB(3.9,22,2,5728,0)="M>D%*_1H:3E[V$;K=J7VS?(!G]G5G]OLE`_,U^KP-H[]AS98;/(Z>C'DK9VYV"
^XMB(3.9,22,2,5729,0)="""DATA"",396.18,215,3,1315,0)"
^XMB(3.9,22,2,5730,0)="M-""QY<UTSJ$T_""5P_`SY>/\D`_<1GT$\?J)_`,VOUD\[ZV:.?!*:?%*Z?B*+1"
^XMB(3.9,22,2,5731,0)="""DATA"",396.18,215,3,1316,0)"
^XMB(3.9,22,2,5732,0)="M""MKL](,H*#V#@GI`!84>6J>AS)LUM$=#&4Q#V0`-]?WQ)I0-T%`^N882Z`L/"
^XMB(3.9,22,2,5733,0)="""DATA"",396.18,215,3,1317,0)"
^XMB(3.9,22,2,5734,0)="M/;/6A/)907L4U.M(J;?'L!27,FG0&FHCG4$#KVJ"";P&:DJ?>9$A,O7*>H4/<"
^XMB(3.9,22,2,5735,0)="""DATA"",396.18,215,3,1318,0)"
^XMB(3.9,22,2,5736,0)="M#;I#QC)H\H""AMC=)OA%_=]_OO+TM,CQ""R\J0\X5@Q""/H.]QW<R!#-T>WSDP8"
^XMB(3.9,22,2,5737,0)="""DATA"",396.18,215,3,1319,0)"
^XMB(3.9,22,2,5738,0)="MLG5SJ)FQO_2V<QS?S5&&>MIF#G(\[5,,JNT-3?H5EP!Z]5<]HU],2DER7VV="
^XMB(3.9,22,2,5739,0)="""DATA"",396.18,215,3,1320,0)"
^XMB(3.9,22,2,5740,0)="MWA-?F*W&DOWX/DQN""O7PZWZWR]TVK;X]97IXZO)_3S;5=PTI""B3Y!%C-[""#B"
^XMB(3.9,22,2,5741,0)="""DATA"",396.18,215,3,1321,0)"
^XMB(3.9,22,2,5742,0)="M`O-.^_>Z-`?B?U[NLL_A=I>UTM>G?R""1]H'4L56U#?](!.-6PG3]R_8.]N9_"
^XMB(3.9,22,2,5743,0)="""DATA"",396.18,215,3,1322,0)"
^XMB(3.9,22,2,5744,0)="MF""DSVM3&F_P""UKC''HR[K\5_K-*;NW+&),T%7P6+!8=NPGCKA,VZV+LC$FO,"
^XMB(3.9,22,2,5745,0)="""DATA"",396.18,215,3,1323,0)"
^XMB(3.9,22,2,5746,0)="ME%:EA[Q5?1`UKSHTD]6D4\N'0QPI'IU;E;I>J:GKU:SV5(FLB:NF6ZGB""O-#"
^XMB(3.9,22,2,5747,0)="""DATA"",396.18,215,3,1324,0)"
^XMB(3.9,22,2,5748,0)="M_ZNYMM77%*8K<'5?W?CCQUW3SZ!I@^UWJ]O%HT[Y:$AZ1F(O'<Q>-0T/9B^="
^XMB(3.9,22,2,5749,0)="""DATA"",396.18,215,3,1325,0)"
^XMB(3.9,22,2,5750,0)="MEKW_>;>Y;3>,3,1@,HC!;""B#""?)',YA-R^`""?G!BYK)!S.6#F<OH:.;RB9F["
^XMB(3.9,22,2,5751,0)="""DATA"",396.18,215,3,1326,0)"
^XMB(3.9,22,2,5752,0)="M6W\,,^=Z%6ZW4=+J>9N(T]X@3GLV3A/BG\X.>V=AM7!*EF>P%W@0H_WAC/;'"
^XMB(3.9,22,2,5753,0)="""DATA"",396.18,215,3,1327,0)"
^XMB(3.9,22,2,5754,0)="MZ[0_+:.O%NDJ/@.+Z0`6(R,@JIG%1'7V8""Q&*,`3\_A]]#D2/OBYM)D/8#5&"
^XMB(3.9,22,2,5755,0)="""DATA"",396.18,215,3,1328,0)"
^XMB(3.9,22,2,5756,0)="M5K/AR<XH48O\%,)H[$W-Z""K""=]Z5#GND8S,^'9M]:YX4!4R?*%5#%:+6FGRD"
^XMB(3.9,22,2,5757,0)="""DATA"",396.18,215,3,1329,0)"
^XMB(3.9,22,2,5758,0)="M)DH#'5.#.5':DR@-!MT&NVVGI[L/S)O88;E,/MVM""HM3;GTOTH83WPGD`BX%"
^XMB(3.9,22,2,5759,0)="""DATA"",396.18,215,3,1330,0)"
^XMB(3.9,22,2,5760,0)="MUU\*->S5-&4!+P7SYO)6;X-`?PA:=RBJW8J-M*1*C^I('K(1!TFYGD9)7Z;K"
^XMB(3.9,22,2,5761,0)="""DATA"",396.18,215,3,1331,0)"
^XMB(3.9,22,2,5762,0)="MC3B2LX[""HKMT+0Z75W_E<_ZC4X'`A]N?+OJZ6?H=-F2\U$JNL^VS'3XY7&QV"
^XMB(3.9,22,2,5763,0)="""DATA"",396.18,215,3,1332,0)"
^XMB(3.9,22,2,5764,0)="M^+""5O'=;G]:>FT=8Z\*8KW?_!==?\>XEWSKK>/G#]E:0\_-%]P<-VE1>8&<9"
^XMB(3.9,22,2,5765,0)="""DATA"",396.18,215,3,1333,0)"
^XMB(3.9,22,2,5766,0)="M7U]'0I<6T47G6__;0?^!OS-^N_SF#P[J^1??_=#S\_^G^[UG+<9K)-MHJ$W("
^XMB(3.9,22,2,5767,0)="""DATA"",396.18,215,3,1334,0)"
^XMB(3.9,22,2,5768,0)="M&""!DADXO97I6*8OK?/UHA(P4(5OLD6^V1TA^/#RENXQ3]?$@/-#YD=$N2V]$"
^XMB(3.9,22,2,5769,0)="""DATA"",396.18,215,3,1335,0)"
^XMB(3.9,22,2,5770,0)="MB+]HY7KC*'?""/$\7<5BL-""JP<DK8&B>_2Y99NHYT%NKP*&A3P$I_:@OD65;5"
^XMB(3.9,22,2,5771,0)="""DATA"",396.18,215,3,1336,0)"
^XMB(3.9,22,2,5772,0)="MCO8>(!>X3E>)5H>$FH05RE1TXXC_S(72.-LHWUY8;]N^L(&-]!)""'R#!'C42"
^XMB(3.9,22,2,5773,0)="""DATA"",396.18,215,3,1337,0)"
^XMB(3.9,22,2,5774,0)="M3`\9]`-4E:LAF'AP@IML>QXE>5K@CVE*!4:7Q'888M:6MAW[)@[#W9[#</DP"
^XMB(3.9,22,2,5775,0)="""DATA"",396.18,215,3,1338,0)"
^XMB(3.9,22,2,5776,0)="ME.G,])BSK-.M\.5.*A8\1,<H>;@G8<&0DV#-20B""'Z2])Q#ND/>[Y#T52U#-"
^XMB(3.9,22,2,5777,0)="""DATA"",396.18,215,3,1339,0)"
^XMB(3.9,22,2,5778,0)="MLK>CH=_YMO'6'Z+O.MZV/[/QMK6_\C&SMES\YW4W`+;?).0IC*4:I=7QU6O]"
^XMB(3.9,22,2,5779,0)="""DATA"",396.18,215,3,1340,0)"
^XMB(3.9,22,2,5780,0)="MJ'$K8""]QM:.""B<9K.637U,`#895&RK4WBU*]8]4R_5J3Q51E5"";1.N&=V_Y,"
^XMB(3.9,22,2,5781,0)="""DATA"",396.18,215,3,1341,0)"
^XMB(3.9,22,2,5782,0)="MG:8PZF3_5$6/J>HPUG`*WG>*-FL._1:Z8Z""AYZA@S)+""25RE-[*3>`$Z@CP+"
^XMB(3.9,22,2,5783,0)="""DATA"",396.18,215,3,1342,0)"
^XMB(3.9,22,2,5784,0)="M3GK""%P52!7`FSK5G(D'GXR9APILY<7LD8XME3-&,R<5^D7Z)RN8*<:^6XB]V"
^XMB(3.9,22,2,5785,0)="""DATA"",396.18,215,3,1343,0)"
^XMB(3.9,22,2,5786,0)="M""-&DJ:QQCY*N4E)6IFBS5V15<S:6LE>6F].V(]H\EK;]2Q4/@ET:N*VW6?N>"
^XMB(3.9,22,2,5787,0)="""DATA"",396.18,215,3,1344,0)"
^XMB(3.9,22,2,5788,0)="M_!8HQ]63Y[+DNJ1\5__;`,A[F:).@+!1C[!U!J;[F4W:G)JD32]FD0X0*=:*"
^XMB(3.9,22,2,5789,0)="""DATA"",396.18,215,3,1345,0)"
^XMB(3.9,22,2,5790,0)="MU)PZVG?L^[H!DU9$J[AEB.O216Z@>9HQ4K-%0K*M82AC+[^N?&'/];PK6[H^"
^XMB(3.9,22,2,5791,0)="""DATA"",396.18,215,3,1346,0)"
^XMB(3.9,22,2,5792,0)="M2WF8WZ.;L/ST&9PKI(\KFKS$\4S!`YE""S\:4R@RXBAGH22(@C8O9L0"":RD7W"
^XMB(3.9,22,2,5793,0)="""DATA"",396.18,215,3,1347,0)"
^XMB(3.9,22,2,5794,0)="M]@?V2&XJGQX;?'J].3`:@UY3T#$$?6;`:@34:BPX88PQ(&%,L)+4""@*-=-LB"
^XMB(3.9,22,2,5795,0)="""DATA"",396.18,215,3,1348,0)"
^XMB(3.9,22,2,5796,0)="MUU3\NLKNGB=A?+5/VEP>$@3MQ+'6K^J_3+)/)7E4:N.2Y5Y5H-W:>Z4)B5'["
^XMB(3.9,22,2,5797,0)="""DATA"",396.18,215,3,1349,0)"
^XMB(3.9,22,2,5798,0)="MG./NE3_?J\'WB@R^5Y!J&X9=*Q=^K;CW^*\5!EXK?\!SQ?&1MXK-MVKXK>*#"
^XMB(3.9,22,2,5799,0)="""DATA"",396.18,215,3,1350,0)"
^XMB(3.9,22,2,5800,0)="M;Y4[ZK6B],C7B@7GN59ORV3V?5PJ!KQ4WH""WZOA+Y<V7:O""E0D,O%0K&/%7Z"
^XMB(3.9,22,2,5801,0)="""DATA"",396.18,215,3,1351,0)"
^XMB(3.9,22,2,5802,0)="M.S7@J6KA#3S2.^6:""OO]<\J^;D[9->Q""\2B3=J$\^3%E:AI3YJ9%5AVH<2O2"
^XMB(3.9,22,2,5803,0)="""DATA"",396.18,215,3,1352,0)"
^XMB(3.9,22,2,5804,0)="M8-_NLT,R_/77</UHAI)]`TI[4Z2I(>8EY@4R^'5MZ*%#R>X)AI)=PU`R)L?3"
^XMB(3.9,22,2,5805,0)="""DATA"",396.18,215,3,1353,0)"
^XMB(3.9,22,2,5806,0)="M;MI'<@)D?,[T=-.ZQ>0(NG]/MU&Q""*M04O%`9?E4<]7$.%8==%'3I8%PC)3U"
^XMB(3.9,22,2,5807,0)="""DATA"",396.18,215,3,1354,0)"
^XMB(3.9,22,2,5808,0)="MXZQOJIIZEJEJ-9;3K22C)J0\J=N9J`/+-!B*\%=/+B_2:@';<2A_G)J0])#'"
^XMB(3.9,22,2,5809,0)="""DATA"",396.18,215,3,1355,0)"
^XMB(3.9,22,2,5810,0)="M[=2[8ZE/A3>4;(\FW@2O1QBQ$H^]L<2OBX4O1TPO8VJ""UF18IELFVP..+K]/"
^XMB(3.9,22,2,5811,0)="""DATA"",396.18,215,3,1356,0)"
^XMB(3.9,22,2,5812,0)="MBT7#-Q?_@P07N9/'-\D%A*$!F#""E0Y``^7FUB:+%+80:YD*I\10^\:$7*RWJ"
^XMB(3.9,22,2,5813,0)="""DATA"",396.18,215,3,1357,0)"
^XMB(3.9,22,2,5814,0)="MTD=,I'/C1<+2O$H+I:""A5B-5[61?\2NOXF4T(4P!.0*FH-.5,@JA@)LTT)?A"
^XMB(3.9,22,2,5815,0)="""DATA"",396.18,215,3,1358,0)"
^XMB(3.9,22,2,5816,0)="MNY2I0`:\&I5K_UN:0P!<.3'*E=M)TDQ<]&OA=V5[Q'='V$3B0^G%JAXB=R@R"
^XMB(3.9,22,2,5817,0)="""DATA"",396.18,215,3,1359,0)"
^XMB(3.9,22,2,5818,0)="M0MW>N#JP<\SM\5PPU3[H]NB(?A%^C)/\4PPVAPQ#J=),M;?""VGZR7F9A$HMG"
^XMB(3.9,22,2,5819,0)="""DATA"",396.18,215,3,1360,0)"
^XMB(3.9,22,2,5820,0)="MY?<H^QPYU[ND!""P""*2<C1@)EWX.IDU:<C'8^]B0G!<G?Y\]&2;[L.T-R`UHS"
^XMB(3.9,22,2,5821,0)="""DATA"",396.18,215,3,1361,0)"
^XMB(3.9,22,2,5822,0)="M*D9DJZEP&&O`T)J,5$_?62]+N6OT*>[)!!%NNM*4VY\6C\"">EFI6Z#&_+9R!"
^XMB(3.9,22,2,5823,0)="""DATA"",396.18,215,3,1362,0)"
^XMB(3.9,22,2,5824,0)="MO9N'8<J-:#T*O0_(E',C-(]*]3E-N0?V;._)E/M@`A^>*9=RPZX5=N<'&79'"
^XMB(3.9,22,2,5825,0)="""DATA"",396.18,215,3,1363,0)"
^XMB(3.9,22,2,5826,0)="M9;F*?7^8DFDEA'T\?`SXL`$!.A7?CK9[QX#/-1D+L9G_.G(VV5Q;4'-M?4/+"
^XMB(3.9,22,2,5827,0)="""DATA"",396.18,215,3,1364,0)"
^XMB(3.9,22,2,5828,0)="M/M(/+4LN""E,1QYBJUJWWK*4$9)Y8'@]I+EU>.Z33`8;6='M='W9[@[/<WE:V"
^XMB(3.9,22,2,5829,0)="""DATA"",396.18,215,3,1365,0)"
^XMB(3.9,22,2,5830,0)="M:;Z\<.R>ZO)B`PR'G!\\XOH&\_4]`O%=NK[<CL+!+=<WP,#;ZY[C]E;IUOGB"
^XMB(3.9,22,2,5831,0)="""DATA"",396.18,215,3,1366,0)"
^XMB(3.9,22,2,5832,0)="MPA&AJHM+]!=7R8T?<W'1?'&/!L)'98NT`0E?#4T]B/.O0\+G`7N0Z+;_LL#S"
^XMB(3.9,22,2,5833,0)="""DATA"",396.18,215,3,1367,0)"
^XMB(3.9,22,2,5834,0)="M@RX$#+B_[EUO?=9TN3\#""<L;(BM8H*:7U9""]&MZXK06O[O)P>YO%H?3AYC;,"
^XMB(3.9,22,2,5835,0)="""DATA"",396.18,215,3,1368,0)"
^XMB(3.9,22,2,5836,0)="MNQ^6J0S`<@-43H5HC([""&LUR`PUK6C6E%FMF>*(^H],/K?;'^P+E5.AN6;1N"
^XMB(3.9,22,2,5837,0)="""DATA"",396.18,215,3,1369,0)"
^XMB(3.9,22,2,5838,0)="MOK(46Y@J+:KB`WHZV#KWX"".\_KH55$7+JVA54*2!X]*H>;]*)YV[_&NTCC>K"
^XMB(3.9,22,2,5839,0)="""DATA"",396.18,215,3,1370,0)"
^XMB(3.9,22,2,5840,0)="MZ*99X'CX5#`VCSMO[H>L\""LZGW1_KJ/TCO-VM]K&#>EM-Z:26N$![<_=E9SA"
^XMB(3.9,22,2,5841,0)="""DATA"",396.18,215,3,1371,0)"
^XMB(3.9,22,2,5842,0)="M<]V<4G'8#_'FH)1_QLDR_=)()TUN""H&!<C+%+:0FYYT#)*RYCWH)STY`;_#M"
^XMB(3.9,22,2,5843,0)="""DATA"",396.18,215,3,1372,0)"
^XMB(3.9,22,2,5844,0)="M#G+?[8#@]M0O4?WW5JM&2W)T4O_]JI50GAH[#P'>)A=X&3!EH,=)RU(V7X:^"
^XMB(3.9,22,2,5845,0)="""DATA"",396.18,215,3,1373,0)"
^XMB(3.9,22,2,5846,0)="MRX!A7A8R>UGHT-JQ%U=`1[M9WA`W""_@H[9U,Y_LJP_[L&&^3#.`#(7@T'WPZ"
^XMB(3.9,22,2,5847,0)="""DATA"",396.18,215,3,1374,0)"
^XMB(3.9,22,2,5848,0)="MA`\C][C!O4@&O*F$@YXM/]`=>;ZIO3>5`?U(K\>/)-P]H2>)9T_2YDDB/H4K"
^XMB(3.9,22,2,5849,0)="""DATA"",396.18,215,3,1375,0)"
^XMB(3.9,22,2,5850,0)="M*?LH=K1\AF4OA8[W4OA9O)3?SN""E>`#;QX$1]%$N^YQP[[5]`'ARWP/*Z2AO"
^XMB(3.9,22,2,5851,0)="""DATA"",396.18,215,3,1376,0)"
^XMB(3.9,22,2,5852,0)="M<DYU],HI@'E1=$#.[BAO<L@V<>R>W9OD`_APE#<YQ*L^_(:IO$D?>%./\B;G"
^XMB(3.9,22,2,5853,0)="""DATA"",396.18,215,3,1377,0)"
^XMB(3.9,22,2,5854,0)="MF]IW4S$&810C#@9-QSR`>)(HX-HVJ&CC?!#$B""_?1]>KZ&OK_5:6EQK'.,P`"
^XMB(3.9,22,2,5855,0)="""DATA"",396.18,215,3,1378,0)"
^XMB(3.9,22,2,5856,0)="MN2H""AP;GAS`X*.6'+%Y$FQR(W8LI@Y/&=%BD&$[:BV&4<3AEOJ=2U@9,LE*6"
^XMB(3.9,22,2,5857,0)="""DATA"",396.18,215,3,1379,0)"
^XMB(3.9,22,2,5858,0)="MA8O;.,V$FQJN8CB)W@""Y8AW@Y``:_S.)(N?O4?8)3)T_@#JFP7UA+IRZR^33"
^XMB(3.9,22,2,5859,0)="""DATA"",396.18,215,3,1380,0)"
^XMB(3.9,22,2,5860,0)="M""DI>_;)PUH>!I=!(=//^Q`4C8!$/7=S76#\,K?5?`(""NOCE^/=AB_[RY*P'."
^XMB(3.9,22,2,5861,0)="""DATA"",396.18,215,3,1381,0)"
^XMB(3.9,22,2,5862,0)="M_[7[-9:^)M+7]*\#0,\X'R1PSH\5.'LZ`D</4N#>(($;T-2'2-Q[.A+'#U+B"
^XMB(3.9,22,2,5863,0)="""DATA"",396.18,215,3,1382,0)"
^XMB(3.9,22,2,5864,0)="M_C"")$W:LQ(.G(W'R(""4>#),X#XZ5.'DZ$J?W*7%;#.:98S#""W/N(PFBO/QP\"
^XMB(3.9,22,2,5865,0)="""DATA"",396.18,215,3,1383,0)"
^XMB(3.9,22,2,5866,0)="MV""B,N0\U""F/HP4=AS'_(41@+'G@45FY6.6<4AN<H[%X?;(^=.0KC<Q1VOP(_"
^XMB(3.9,22,2,5867,0)="""DATA"",396.18,215,3,1384,0)"
^XMB(3.9,22,2,5868,0)="M>Q3FSU'8_4K\W%&8[\Y1V/U*_.Q1&)VCL'-&8?V@GIX&U+.:B6C!@TDK.EN@"
^XMB(3.9,22,2,5869,0)="""DATA"",396.18,215,3,1385,0)"
^XMB(3.9,22,2,5870,0)="MGO2I@WHR$Z@G-8!ZNK@'U!,3`@?U?+O+%X+6,%DZ?T_C8BWS(\'VW#,0:QF("
^XMB(3.9,22,2,5871,0)="""DATA"",396.18,215,3,1386,0)"
^XMB(3.9,22,2,5872,0)="MNBB3;I>!',D`C37M!P;6%Z7`B5O$UW=.)*)'9UUQ4_#BWP4SG?#Z6I`4+4O^"
^XMB(3.9,22,2,5873,0)="""DATA"",396.18,215,3,1387,0)"
^XMB(3.9,22,2,5874,0)="M+FM0BS@1_[T-XY7S_55TX?RU^5U""#IM-EFZR8OUL^<MVJS3_%*W$OUXY48EG"
^XMB(3.9,22,2,5875,0)="""DATA"",396.18,215,3,1388,0)"
^XMB(3.9,22,2,5876,0)="M68Z'.^)?;=-%NG*NQ=]:IUE4_L;V[XI7/U9-&'W<(0;N=,!#&95`8VO,S1[V"
^XMB(3.9,22,2,5877,0)="""DATA"",396.18,215,3,1389,0)"
^XMB(3.9,22,2,5878,0)="MM%985BSY$H6?DJA!;-$T'_3122%T!KY$9ZWV0^@,MX+_MW?CR&00,IM5=`<Z"
^XMB(3.9,22,2,5879,0)="""DATA"",396.18,215,3,1390,0)"
^XMB(3.9,22,2,5880,0)="MT7`Z\TV8K\=1R?4V!76(E(%7L8]EY%5NO!._""*7,-T)75WMR\^=.G%<T%Y?C"
^XMB(3.9,22,2,5881,0)="""DATA"",396.18,215,3,1391,0)"
^XMB(3.9,22,2,5882,0)="M9A<6,""4W3BY,O-#=*$EW-[<%9JLX8!;E;3W>I$D>B^.5FM[`P=R$\=9I?[#_"
^XMB(3.9,22,2,5883,0)="""DATA"",396.18,215,3,1392,0)"
^XMB(3.9,22,2,5884,0)="M<PMA&M)=]K.9,^)(XOGX,PLWK?[+/G9Y`';A6L2'.^):V751&EPG_Q*M5H(9"
^XMB(3.9,22,2,5885,0)="""DATA"",396.18,215,3,1393,0)"
^XMB(3.9,22,2,5886,0)="MSYWH^GJ7%]\3!RL;A[/BQM1G&4BV#]%%S&2Z`SQ`%VVDC]//`$2Y?-L#=P#A"
^XMB(3.9,22,2,5887,0)="""DATA"",396.18,215,3,1394,0)"
^XMB(3.9,22,2,5888,0)="ME75>A5\/*W6'$2FG3+5:06K8W`:<B]AI_""4+%]M=5MZ#>+D3M-BL.$,&AG4?"
^XMB(3.9,22,2,5889,0)="""DATA"",396.18,215,3,1395,0)"
^XMB(3.9,22,2,5890,0)="M.2K!$#<,!7'L523NWUJPZS_""Y&:W:D/B#N2<_D4F/N^(%\O&G#`[M56CH?CO"
^XMB(3.9,22,2,5891,0)="""DATA"",396.18,215,3,1396,0)"
^XMB(3.9,22,2,5892,0)="MXKD-""Z?02:^=Z_CK&'+WX."">`1R\QOFK<68E>^G)Y-:J`04'Q_AXF.VRI5""+"
^XMB(3.9,22,2,5893,0)="""DATA"",396.18,215,3,1397,0)"
^XMB(3.9,22,2,5894,0)="M#AX<3[P!';SN11M'M]S""[QM:^*5EJ09'Q96-63VHW=[44-?S3$W[QI9]M6&_"
^XMB(3.9,22,2,5895,0)="""DATA"",396.18,215,3,1398,0)"
^XMB(3.9,22,2,5896,0)="M#9U8/=-_[MV>VH@K_?K&B*[3J]_JU)?SNUHVED.U73@KO1GETC7#2#:CM7/<"
^XMB(3.9,22,2,5897,0)="""DATA"",396.18,215,3,1399,0)"
^XMB(3.9,22,2,5898,0)="M9AGM>UY/&S1@3=""@MHYJ8V]CVVC3-&H*P'L;1N5\*TB/@R%ZW*1`!RDR]:=4"
^XMB(3.9,22,2,5899,0)="""DATA"",396.18,215,3,1400,0)"
^XMB(3.9,22,2,5900,0)="MY,O*+YY$CW&O'B,_`""ARXT0/TF0:S)I\R""I""-!FY@S19B75`)MF=4I.OBBAD"
^XMB(3.9,22,2,5901,0)="""DATA"",396.18,215,3,1401,0)"
^XMB(3.9,22,2,5902,0)="M$CVF_7H<N!`]9FR,14873TYE&5AET1""5Q;(AT:@L4@6`3ZBRLDYJC=,QBLK!"
^XMB(3.9,22,2,5903,0)="""DATA"",396.18,215,3,1402,0)"
^XMB(3.9,22,2,5904,0)="MK,,6UGD=UG%O!.L(GY!UQW#)LUQGB'^EL`1TG8DW/TL'D""""0HI(ABDK<48I*"
^XMB(3.9,22,2,5905,0)="""DATA"",396.18,215,3,1403,0)"
^XMB(3.9,22,2,5906,0)="M)WF6JBS0;V4N8I)G*;#H,0;H,0&X5U3E&)OUN`6NHU?D>B6[V@BE3RIQ.66'"
^XMB(3.9,22,2,5907,0)="""DATA"",396.18,215,3,1404,0)"
^XMB(3.9,22,2,5908,0)="MB""%:;TD""UXZNMABI0:@Q*UP'@^""B)R_DE!UA=ZNTP""%X9E%""`E%""[HXQIGA6"
^XMB(3.9,22,2,5909,0)="""DATA"",396.18,215,3,1405,0)"
^XMB(3.9,22,2,5910,0)="MPA:H#<B:TGYK2KRNER_GC_P`8$VG<?(;C9O$E""*;+:4Z-99SFW)0A)77)]#P"
^XMB(3.9,22,2,5911,0)="""DATA"",396.18,215,3,1406,0)"
^XMB(3.9,22,2,5912,0)="M""\UJW!I(!ZDQLZDQ.3I]B*?)NNPQA7^)HNTTBDRL&QH-B6_J=1:*RJ\15QXC"
^XMB(3.9,22,2,5913,0)="""DATA"",396.18,215,3,1407,0)"
^XMB(3.9,22,2,5914,0)="MIASN??1#NHD2S69)>L+<,>*#I!]XPZ7/T,""P3XK?S%9LO=EU@>`'2+_[0'?P"
^XMB(3.9,22,2,5915,0)="""DATA"",396.18,215,3,1408,0)"
^XMB(3.9,22,2,5916,0)="M!Q3@)`@C\<#7@$FNHK)C5G.-FN'82:Y141R.IKE'GNT>E;T+]GN$9-_FN(OD"
^XMB(3.9,22,2,5917,0)="""DATA"",396.18,215,3,1409,0)"
^XMB(3.9,22,2,5918,0)="MGV""U+(,1[M)3$LZ/)YP:]OE*SS""A<NVC/LE!47V5\C_>%C7%R[JQ9]\T]?V;"
^XMB(3.9,22,2,5919,0)="""DATA"",396.18,215,3,1410,0)"
^XMB(3.9,22,2,5920,0)="M9+':53T-A;(]TQ3&!NW--?7:E?,2Z@)M>FBV0YT5VJQJ!FM!5Z&GWFW'#:5I"
^XMB(3.9,22,2,5921,0)="""DATA"",396.18,215,3,1411,0)"
^XMB(3.9,22,2,5922,0)="MYAGZ=UBGU!O(,0B%=]N]+/I>TL]AT=@59H]KC39BIE(Y[S8B,,G]#4SO0WMC"
^XMB(3.9,22,2,5923,0)="""DATA"",396.18,215,3,1412,0)"
^XMB(3.9,22,2,5924,0)="ME:'8?((:.=%3W1CD(ZBN-U%'^TW4)]ZEW>R>YL9%U%*CHW0&YBJ'J%7'L(FZ"
^XMB(3.9,22,2,5925,0)="""DATA"",396.18,215,3,1413,0)"
^XMB(3.9,22,2,5926,0)="M#KB[W_Z0""4TL;%_[808LJW:->\:89UI6W=IY5]L[==6`-W1ILG""2G/4N$_]7"
^XMB(3.9,22,2,5927,0)="""DATA"",396.18,215,3,1414,0)"
^XMB(3.9,22,2,5928,0)="M]HX4Z]KB:Q%^)(MH_(XYYIFW5LO+W%1T9`K<Y%<Z>+)E^25.BL<H?]B;%$:M"
^XMB(3.9,22,2,5929,0)="""DATA"",396.18,215,3,1415,0)"
^XMB(3.9,22,2,5930,0)="MWD7F9:(RYK2K3OUZ%,;5W__KUTO!@3#/2STH/Q;O_FT49EMG*=[&,(]^>E3<"
^XMB(3.9,22,2,5931,0)="""DATA"",396.18,215,3,1416,0)"
^XMB(3.9,22,2,5932,0)="M;0:K??-@-9(X3!4&4\VJ^,-'+0;_6G+R*MTE2_TTM6'BY#9:?!*$E:']_K^5"
^XMB(3.9,22,2,5933,0)="""DATA"",396.18,215,3,1417,0)"
^XMB(3.9,22,2,5934,0)="M@1/BN_+(""=9,E;5GF0_:X*D#)Q0';2R7-BIG>PY%-Z5C'IW9$\_[#N*?^ABN"
^XMB(3.9,22,2,5935,0)="""DATA"",396.18,215,3,1418,0)"
^XMB(3.9,22,2,5936,0)="MX1CHHG^""U'H,K^\8""%/(0=I30;:#(,-!\$7_9*3U(+3O()B#)$(''(08#D(N"
^XMB(3.9,22,2,5937,0)="""DATA"",396.18,215,3,1419,0)"
^XMB(3.9,22,2,5938,0)="M^@?^;#@)AV`=V6!PL?RDJOB""FK6R5(%49-R;=D_>N[=O-,BW(.1D*L[QYN55"
^XMB(3.9,22,2,5939,0)="""DATA"",396.18,215,3,1420,0)"
^XMB(3.9,22,2,5940,0)="M&YF1J1_Q_4?/!F\G/##7OAE!WH;,U,<?<Q""_^;28PV]+CV@LV/#EQUR\/QT@"
^XMB(3.9,22,2,5941,0)="""DATA"",396.18,215,3,1421,0)"
^XMB(3.9,22,2,5942,0)="MT""PJ/WHV;E48-BSH;$%YU,D49:,109YF#;?,4>S.BQ&.617647N$_:%7`;OJ"
^XMB(3.9,22,2,5943,0)="""DATA"",396.18,215,3,1422,0)"
^XMB(3.9,22,2,5944,0)="M*BI"">AR*6G""<46_2JU!&8N>Y""7P0CX/!/#[`?`SFL3^M>2]""WB*.""5?.^]W'"
^XMB(3.9,22,2,5945,0)="""DATA"",396.18,215,3,1423,0)"
^XMB(3.9,22,2,5946,0)="M\W#;`YIU.I3/RB.*<0`RZFQ:+O_]GZ_&/J)FSK8^^D=I-HNTAPB>BB&@9^/6"
^XMB(3.9,22,2,5947,0)="""DATA"",396.18,215,3,1424,0)"
^XMB(3.9,22,2,5948,0)="M,6-BVN@JQ<Y8T6>J6PRIV=%&N7LQFW7`\J=]6TK0N^]&CKXQ@T3?.F3N@.$!"
^XMB(3.9,22,2,5949,0)="""DATA"",396.18,215,3,1425,0)"
^XMB(3.9,22,2,5950,0)="MR-P^1'5?%J&\\^9""_4C[F>[#?UI0O/=IT$`>NNEA$:,@%C'--7X??8ZC+TZ9"
^XMB(3.9,22,2,5951,0)="""DATA"",396.18,215,3,1426,0)"
^XMB(3.9,22,2,5952,0)="MIWC9R5-<]*UNLV8:`:80#_9PU6==FR?01133[NY]?WNWO5VW[:%2T1AA)]]'"
^XMB(3.9,22,2,5953,0)="""DATA"",396.18,215,3,1427,0)"
^XMB(3.9,22,2,5954,0)="M12M49]7*_J/5G?,FR]1O-Q]V_H%TQVOJ3%M5R`#(!JHI(_%#$:E30_)<&;&!"
^XMB(3.9,22,2,5955,0)="""DATA"",396.18,215,3,1428,0)"
^XMB(3.9,22,2,5956,0)="M/?4:DF>H(6%?/U*/60>Q01YN5(H)/36DJT]QTLP]Q]NXJ5%_^V@-B$)FK:4"""
^XMB(3.9,22,2,5957,0)="""DATA"",396.18,215,3,1429,0)"
^XMB(3.9,22,2,5958,0)="M'*TG@2&3Z45%YB?GS761\,\B)RR`$^+\.K[9967M=E$\EM]7B=[E<^<Z7$3/"
^XMB(3.9,22,2,5959,0)="""DATA"",396.18,215,3,1430,0)"
^XMB(3.9,22,2,5960,0)="MRXI`$BT^/7ONM""?3\]W'=;QU%B4W-[?I-KW)PLUM7N2)BWK""`?PAB\+<^1(+"
^XMB(3.9,22,2,5961,0)="""DATA"",396.18,215,3,1431,0)"
^XMB(3.9,22,2,5962,0)="M<HO/:QR'#EJ#(#.+-FFV_7$2::*II#ET+AWIAY4[%58N-9!P`([#A[M-.>R["
^XMB(3.9,22,2,5963,0)="""DATA"",396.18,215,3,1432,0)"
^XMB(3.9,22,2,5964,0)="MBO+Z"">RCP@0+POOHP""X`J.%RLXG""K""@</7=6Z;YR4&A05""P#VQYHS$^'48#T"
^XMB(3.9,22,2,5965,0)="""DATA"",396.18,215,3,1433,0)"
^XMB(3.9,22,2,5966,0)="MD`ZD6\*4C^/)IR&!<IK77T/QQ]9""?W=9M([*5H?%^D?G_SKB_S\[X0GT*`NT"
^XMB(3.9,22,2,5967,0)="""DATA"",396.18,215,3,1434,0)"
^XMB(3.9,22,2,5968,0)="M*Q""F=&P$\*M_=1MNA$R6T4;$+(4`GCO;O=)LXSS?1>4""T.?[^[R,Q>T5""K^H"
^XMB(3.9,22,2,5969,0)="""DATA"",396.18,215,3,1435,0)"
^XMB(3.9,22,2,5970,0)="ML''""Y6T'J*7\SLF.;YB)[UP*Y#&Y[QL`U7""U6Z_#[*XX9%Z\&VW5,].#L-X0"
^XMB(3.9,22,2,5971,0)="""DATA"",396.18,215,3,1436,0)"
^XMB(3.9,22,2,5972,0)="M4RS-^\@DU7,5?:@7_\LI@D9A=BKS6<2)2W$[$N%)17GQ96$C]W2/@K[`>FP&"
^XMB(3.9,22,2,5973,0)="""DATA"",396.18,215,3,1437,0)"
^XMB(3.9,22,2,5974,0)="MY'<+^O*0+?$&H/XTA>,PN7-6L3A(4R(4%R;^'&_O_G][[][D-H[LB7X51N\?"
^XMB(3.9,22,2,5975,0)="""DATA"",396.18,215,3,1438,0)"
^XMB(3.9,22,2,5976,0)="M9=_C=A,`GQV[V^'GN'=MM\-V=]_SUPV6Q""IQ3)$:DBI;_>DO`%(4\2(`2:R'"
^XMB(3.9,22,2,5977,0)="""DATA"",396.18,215,3,1439,0)"
^XMB(3.9,22,2,5978,0)="M2A/GS+@DE2J9F4CD\Y<.1>:AK\[7-!XFMPN]9LIJJ$Q.22NX0_D\W^O!@0+S"
^XMB(3.9,22,2,5979,0)="""DATA"",396.18,215,3,1440,0)"
^XMB(3.9,22,2,5980,0)="M@YT?X/NUHDBO1A\)6!'C<_RF-;&Q""3&>,.EL@]DC\X(LX1V`""B&!G3R(70U"""
^XMB(3.9,22,2,5981,0)="""DATA"",396.18,215,3,1441,0)"
^XMB(3.9,22,2,5982,0)="MPG;PP``A`1S4]-'OL$22C98RP['MSMPE^_B&I=[[W#6VPGYR9V2%I30T-^U+"
^XMB(3.9,22,2,5983,0)="""DATA"",396.18,215,3,1442,0)"
^XMB(3.9,22,2,5984,0)="M_9S4BXL!BE9&F),4UUFY3)ID]\Y[[()5]'`]<[Z3:C$Y5Y?KJJ#':?>YKPEF"
^XMB(3.9,22,2,5985,0)="""DATA"",396.18,215,3,1443,0)"
^XMB(3.9,22,2,5986,0)="M8<GUO3KX6PL2&I)3APW*MYK_P.#4L0WJ\BV6\E?%Q-;H6DO94DOE3`&*Y),Q"
^XMB(3.9,22,2,5987,0)="""DATA"",396.18,215,3,1444,0)"
^XMB(3.9,22,2,5988,0)="MP9B,^SSZF(S/$P5Z&(<NUT7A?J3#69P]`WQDYP7:X2P?(</AK&""OAF7UN`H,"
^XMB(3.9,22,2,5989,0)="""DATA"",396.18,215,3,1445,0)"
^XMB(3.9,22,2,5990,0)="MI+K%/I(P%B$\DCC=@_JR]F/7+<T0,0RE$N!<%>#S?7N\""0^AJ%7PXCPOS'';"
^XMB(3.9,22,2,5991,0)="""DATA"",396.18,215,3,1446,0)"
^XMB(3.9,22,2,5992,0)="MEW';\QBO5D""^0_I)5[\?`SH#B8Q+0#X@Y\?L2`%WG87\;19(/);SS+P.38<K"
^XMB(3.9,22,2,5993,0)="""DATA"",396.18,215,3,1447,0)"
^XMB(3.9,22,2,5994,0)="M'2,-E`MW+OKE%>IHSY-8H6G&/+\*\(C3HV9XQHS5`([XOG<X8_N)[N,REF:7"
^XMB(3.9,22,2,5995,0)="""DATA"",396.18,215,3,1448,0)"
^XMB(3.9,22,2,5996,0)="M7U9I\@V[J\7M,=?7!&I0-5S@NFQ*`N@""-2`9+D@326]^?/AP`5)0W6\M/H#J"
^XMB(3.9,22,2,5997,0)="""DATA"",396.18,215,3,1449,0)"
^XMB(3.9,22,2,5998,0)="M-G]RH<`:V)?NUDI+(2'8=%04\TE:/A?7O[!5VC#V'J%/,AB[5U7C8NE0%QR4"
^XMB(3.9,22,2,5999,0)="""DATA"",396.18,215,3,1450,0)"
^XMB(3.9,22,2,6000,0)="MXR*F'M?VG.Z4HRV)6-?C>@_G)$MTD2(S%<2**I//`G'Q0_K``E7]W6:%U2$M"
^XMB(3.9,22,2,6001,0)="""DATA"",396.18,215,3,1451,0)"
^XMB(3.9,22,2,6002,0)="M*""3NJRIK\*,DIU*F\V,3!&FT!S[OR[PLYVUZ>%WUXQ4/I!*F9E@0*P8+N>DL"
^XMB(3.9,22,2,6003,0)="""DATA"",396.18,215,3,1452,0)"
^XMB(3.9,22,2,6004,0)="MSJ+Z46B>D'[R""6L]R9R37!FM9""[2^3I/GSF+H2XN4_*<S2)IZ(?G65(W);X0"
^XMB(3.9,22,2,6005,0)="""DATA"",396.18,215,3,1453,0)"
^XMB(3.9,22,2,6006,0)="MF,+F)17#JA,#0>[&_YZ7I&A9-/D&BW+9PGAC-P%K=EL@S>HR3TBU<Y_4=:!2"
^XMB(3.9,22,2,6007,0)="""DATA"",396.18,215,3,1454,0)"
^XMB(3.9,22,2,6008,0)="M*7;/`3>B'QC@*>^JM9ON2<?XT7](9`&#2<ZP`P2NPS""D+?4F`^YR7S?\KK8>"
^XMB(3.9,22,2,6009,0)="""DATA"",396.18,215,3,1455,0)"
^XMB(3.9,22,2,6010,0)="M2&DH,&?Q-^E@^X-87BQ#S%QVQ!=1/0L`]^QY5R,GSW!=$#P5.OTT9-TBJ9VB"
^XMB(3.9,22,2,6011,0)="""DATA"",396.18,215,3,1456,0)"
^XMB(3.9,22,2,6012,0)="M;)S+-""7[""-*;K%S7F!UIS2XBN,RS&NMBIR4-X65"")JNR94JTIEYC'7WY_--S"
^XMB(3.9,22,2,6013,0)="""DATA"",396.18,215,3,1457,0)"
^XMB(3.9,22,2,6014,0)="M!S./SJP1S'CRM4Z3?,-?/?RNYGOI;!<>-/@+,%5%NWF!%%X:S$G,<4QWE:9]"
^XMB(3.9,22,2,6015,0)="""DATA"",396.18,215,3,1458,0)"
^XMB(3.9,22,2,6016,0)="M!:]QYLEFOXI*$$<&G.X!F':L=BU8W?):8""W/UDX0W2X)S,2.A4/V/',NUZTB"
^XMB(3.9,22,2,6017,0)="""DATA"",396.18,215,3,1459,0)"
^XMB(3.9,22,2,6018,0)="MTS>Q>I(/$B'A+VV(<I(2KIK=P^\BK)>R>YS->Q[_V(3//)QZ(&""""C_+Y,$8/"
^XMB(3.9,22,2,6019,0)="""DATA"",396.18,215,3,1460,0)"
^XMB(3.9,22,2,6020,0)="M>=,I,\]HELE$>SL>O?RTXS;YT/""[R!E+-MN>D<&.C[TT-G1=`TY""OH?&CRTT"
^XMB(3.9,22,2,6021,0)="""DATA"",396.18,215,3,1461,0)"
^XMB(3.9,22,2,6022,0)="M]@;SL1@:!^SW.G5;L'WFX-/?I,[W14K+*PRW,8LJ?""4QG""3+4+""*E6NR+(78"
^XMB(3.9,22,2,6023,0)="""DATA"",396.18,215,3,1462,0)"
^XMB(3.9,22,2,6024,0)="MSEFY7.4IO</P-]1IJZQM!P)M0'CN[*9VF3IJQWFZ*(+YN^U$[SPE6PHPPVI."
^XMB(3.9,22,2,6025,0)="""DATA"",396.18,215,3,1463,0)"
^XMB(3.9,22,2,6026,0)="M#V[2=JR3J<EV(YYT;<6Z7K6-//B+KT@)ZAG^GSPOOSO?R^H;-FYI^T?I2..>"
^XMB(3.9,22,2,6027,0)="""DATA"",396.18,215,3,1464,0)"
^XMB(3.9,22,2,6028,0)="M8@,F!T""(N:!G<0!NY/K?V_#.H#"":.[BXANQI]Q,,-'JGQ4,-[BZ1#>VSJM?7"
^XMB(3.9,22,2,6029,0)="""DATA"",396.18,215,3,1465,0)"
^XMB(3.9,22,2,6030,0)="MU_AN(.PNA]_%D426>N!/7])P),?1V3/5Q=!9I^%WJ2S5=]ID0'<#)#DU5*0>"
^XMB(3.9,22,2,6031,0)="""DATA"",396.18,215,3,1466,0)"
^XMB(3.9,22,2,6032,0)="M3Y21_>-,2]96,6TEVB4L7%5IF<.;Y6MWX?YP"".XQ$$:0+!B-=[%HVP.R2\T&"
^XMB(3.9,22,2,6033,0)="""DATA"",396.18,215,3,1467,0)"
^XMB(3.9,22,2,6034,0)="M;""S:KE!^S+VAL:HW-%#T9X1L.I#O;W3U<>=?6;-=%'(""`28,50$FMW2'<W&1"
^XMB(3.9,22,2,6035,0)="""DATA"",396.18,215,3,1468,0)"
^XMB(3.9,22,2,6036,0)="M07M>^]X]BBSWY!%0K,F!K""[Q&$<@Y*.`;6.RY,:@9@/;RUU+H_.DO=ZQG2_6"
^XMB(3.9,22,2,6037,0)="""DATA"",396.18,215,3,1469,0)"
^XMB(3.9,22,2,6038,0)="M3;5;MC(GI[M<M9[/93G?8$\T&UK3'-\K*^PJX)N#].""UH*$960R%':\Y[;/#"
^XMB(3.9,22,2,6039,0)="""DATA"",396.18,215,3,1470,0)"
^XMB(3.9,22,2,6040,0)="M7XIOW8;<-?C59O9TGYL4J#;S,'P).8\=&G0=?5KGG<T=^^O`1""J`[R8R6*CV"
^XMB(3.9,22,2,6041,0)="""DATA"",396.18,215,3,1471,0)"
^XMB(3.9,22,2,6042,0)="M.:U7&0[NRVKC?,8RT%`""%3V%W!GBEP(9],!=[+Q9YW\X0$L'4G@V3&CO\15N"
^XMB(3.9,22,2,6043,0)="""DATA"",396.18,215,3,1472,0)"
^XMB(3.9,22,2,6044,0)="M/1F_:/^RD17AVRJM.0""U=(0F'(C<XW,@B$TX`-Q#68!TA(2N""0L`#\M]#!Z$"
^XMB(3.9,22,2,6045,0)="""DATA"",396.18,215,3,1473,0)"
^XMB(3.9,22,2,6046,0)="MBA,)7+:[%MGSX'6*`Q8""[#1W+C>_WE[Y>8*+QM+*PM`SX6K?,+\;S-3W!_?1"
^XMB(3.9,22,2,6047,0)="""DATA"",396.18,215,3,1474,0)"
^XMB(3.9,22,2,6048,0)="MW4^T0^^GHW59>Z[<__(#..9_B=LN)7G_)&M.Q?OR7+G5\#A`--Y--;A""""9L<"
^XMB(3.9,22,2,6049,0)="""DATA"",396.18,215,3,1475,0)"
^XMB(3.9,22,2,6050,0)="M,JFA.;2>8C[#C\,Q$DSF1'Y?KLA$`_8U>IF-T8%,6`%Y7#40V&Q(;?5\T,R\"
^XMB(3.9,22,2,6051,0)="""DATA"",396.18,215,3,1476,0)"
^XMB(3.9,22,2,6052,0)="M^8GNM]QGO9YJ@HI;!<CQS:`T\S5=KD@?+O;?M#Z0`0G""7HS0T]/P=_L>/ES%"
^XMB(3.9,22,2,6053,0)="""DATA"",396.18,215,3,1477,0)"
^XMB(3.9,22,2,6054,0)="M=7H""+CQ0N*IL?B#B@8D15'1#25SXCF7OR[IVGF`!SKH1I._MZV3BA6;<,.ES"
^XMB(3.9,22,2,6055,0)="""DATA"",396.18,215,3,1478,0)"
^XMB(3.9,22,2,6056,0)="MNG\UJ5.2='GJ/$EPQ,UDA*_3[:]E;<8'.IN4E+]753I+J2M0%D0,K2-/TF=/"
^XMB(3.9,22,2,6057,0)="""DATA"",396.18,215,3,1479,0)"
^XMB(3.9,22,2,6058,0)="M']6E&""D&3X+C""Q0;KT(FT&OR^EF@1QI65'CNG""GC9UB0L2G3S=!$\K\/4#"">"
^XMB(3.9,22,2,6059,0)="""DATA"",396.18,215,3,1480,0)"
^XMB(3.9,22,2,6060,0)="M!S&)9G?`>V-S8(KZ%YN7YF.WV+11XF2P;R$MN\C`LEE.(8]OI@?""J@Q9Z$^A"
^XMB(3.9,22,2,6061,0)="""DATA"",396.18,215,3,1481,0)"
^XMB(3.9,22,2,6062,0)="M'MY]_<CWDAQM[^J;>=;0*5+RCQ%E%VR7X.GP\PVA""Z(+BY$+2DFLIP1`?P]2"
^XMB(3.9,22,2,6063,0)="""DATA"",396.18,215,3,1482,0)"
^XMB(3.9,22,2,6064,0)="M@@O+[9.^=/DD9P%<K?\'^5XX''#&%^?N<%4+;:Q;F.IR>\SY<Q7JAE0""')Q."
^XMB(3.9,22,2,6065,0)="""DATA"",396.18,215,3,1483,0)"
^XMB(3.9,22,2,6066,0)="ML7@.W;N[T'0BCSB)NY^(AZ$3NU'_+CG'=""17/-`QFP/D4C""^=J\5B/J=;$9#"
^XMB(3.9,22,2,6067,0)="""DATA"",396.18,215,3,1484,0)"
^XMB(3.9,22,2,6068,0)="M()04("",%L1CE>Y&""+BQ6KU%2H`%7PGU(""2YL5I!16I`!6T)O#UI\U02LFA;/"
^XMB(3.9,22,2,6069,0)="""DATA"",396.18,215,3,1485,0)"
^XMB(3.9,22,2,6070,0)="M@""^`-[I&Q,BN(CA.3&1`#.2[';U(=Q<A(-&7D74BW%(67[>4A=M#B5S-U#<2"
^XMB(3.9,22,2,6071,0)="""DATA"",396.18,215,3,1486,0)"
^XMB(3.9,22,2,6072,0)="M""8R/N=S&?.M*5LP&D\&SI6SMBO%B2%^S!0BZ7-<O/RT=\U?YEK$[1L%I%D.^"
^XMB(3.9,22,2,6073,0)="""DATA"",396.18,215,3,1487,0)"
^XMB(3.9,22,2,6074,0)="M[EH,G7=),;]0W#-J-I(''(Q;#\J>!,EO>9G-TQ\-YD<MXZ^G'8D%0+FOD#NH"
^XMB(3.9,22,2,6075,0)="""DATA"",396.18,215,3,1488,0)"
^XMB(3.9,22,2,6076,0)="M(;]05\P""BP.D,+C03)J,;C'T==SYB^3ND^+B?V`WK&Z;EI9#(,.+-X.R)`Z'"
^XMB(3.9,22,2,6077,0)="""DATA"",396.18,215,3,1489,0)"
^XMB(3.9,22,2,6078,0)="ML50'L^:DCX5&Q\-V%^G.)?5<MW3VEN=='&MY%XN\.X_""#;<)R>/;%C:!!M@2"
^XMB(3.9,22,2,6079,0)="""DATA"",396.18,215,3,1490,0)"
^XMB(3.9,22,2,6080,0)="M!`4NP\LOY090*`_U#N<62C@*PRDP%$B*>+A@LTGRZVPV>*5)?@Q__I1=IT/="
^XMB(3.9,22,2,6081,0)="""DATA"",396.18,215,3,1491,0)"
^XMB(3.9,22,2,6082,0)="M_+UHRA1_[^Z5OY/Y/&=>^3++ZKH<@""N\I0J?#,_'.TPS/C?I:L7\ZNM-O:I8"
^XMB(3.9,22,2,6083,0)="""DATA"",396.18,215,3,1492,0)"
^XMB(3.9,22,2,6084,0)="M""MZ69>/,JW(U(*HDD%GXI75>BR=GF`K?JL*'==YD/0-W%M1L.6,GXD`A;:ZN"
^XMB(3.9,22,2,6085,0)="""DATA"",396.18,215,3,1493,0)"
^XMB(3.9,22,2,6086,0)="MH)<V/VZ-A3TY8`:I7&18X[\G^3>&Y9^J](8B,PGO;'\%FS>Z#D3R._U;YGP>"
^XMB(3.9,22,2,6087,0)="""DATA"",396.18,215,3,1494,0)"
^XMB(3.9,22,2,6088,0)="M6<!([%F[BUF<LN9J)AX/62%4(:*`MVRQ?UXH/%PF-I*14JUO1'`\(25V'R)C"
^XMB(3.9,22,2,6089,0)="""DATA"",396.18,215,3,1495,0)"
^XMB(3.9,22,2,6090,0)="M8!L(#TU!P<`@""MG/\P\O;)9@$AI\?1**7W5HE(-"".U]N""PZSR!H%E,RH#T:G"
^XMB(3.9,22,2,6091,0)="""DATA"",396.18,215,3,1496,0)"
^XMB(3.9,22,2,6092,0)="M9N0^&+OJSA<P@+0L""X'OC1&ZEU^F!3#YGUBZ.RLU_#<<_!L-_NVYVQ&%$8>K"
^XMB(3.9,22,2,6093,0)="""DATA"",396.18,215,3,1497,0)"
^XMB(3.9,22,2,6094,0)="M7[(=*W%<@N@('$-'YUAX1QPCBB\]C`$[28!""3?)?QB9H>`(\;;.RYTN:E=N"""
^XMB(3.9,22,2,6095,0)="""DATA"",396.18,215,3,1498,0)"
^XMB(3.9,22,2,6096,0)="MS*`VL3,4(0=DZSZ09F4X4;-RFQ:0E7X4JQ""#D<(/!+'YB""SVDZJT[0%UOFR6"
^XMB(3.9,22,2,6097,0)="""DATA"",396.18,215,3,1499,0)"
^XMB(3.9,22,2,6098,0)="MJZ9<GDP#LZ+ACP5/A'S_C&<^S/@W&3!<8$^V;+$=9YA6)RO^O<8_9H53I]5-"
^XMB(3.9,22,2,6099,0)="""DATA"",396.18,215,3,1500,0)"
^XMB(3.9,22,2,6100,0)="M1@!(NS&5X=LT8!U6@=O@E7CC38D_^,Q9%W0@<3@2A1W1O>9:`%(,=@%_M*H4"
^XMB(3.9,22,2,6101,0)="""DATA"",396.18,215,3,1501,0)"
^XMB(3.9,22,2,6102,0)="M`?.YEM=E2F>TUO-^3]ML1O;XT7&BSB<FH7I.#K5S75$0N:1QH//ATSN'J8B3"
^XMB(3.9,22,2,6103,0)="""DATA"",396.18,215,3,1502,0)"
^XMB(3.9,22,2,6104,0)="M7_GU:`UGP%.T/<;L4D8NQ@_U8[]=G#0KEW0D2E?&]12G.687-_-9;P`]BS:F"
^XMB(3.9,22,2,6105,0)="""DATA"",396.18,215,3,1503,0)"
^XMB(3.9,22,2,6106,0)="M#L6R/<I/ZJ=[M2_)Z\T>V[/,.5V^`95?6+)&:N[(@`(H>`=>9(7%FG;&;[/E"
^XMB(3.9,22,2,6107,0)="""DATA"",396.18,215,3,1504,0)"
^XMB(3.9,22,2,6108,0)="ME[X2KVBC]CBC<L\06;M@1%$=AUQ?6A1I@A')*FE5,'(0>@N71*:+@<>JD1&["
^XMB(3.9,22,2,6109,0)="""DATA"",396.18,215,3,1505,0)"
^XMB(3.9,22,2,6110,0)="M(9B/""@3H""(3XT!;ZTVQ`?S4TC-CH84$WMX?J@_0A3*3RR+D[`@#^S(5:5Q-S"
^XMB(3.9,22,2,6111,0)="""DATA"",396.18,215,3,1506,0)"
^XMB(3.9,22,2,6112,0)="M%1Z21O;L,C3_NQWB!Z[K;))JL-;R`OKD&$G>^)_MK^#WVS?&<\90#A?(W2=\"
^XMB(3.9,22,2,6113,0)="""DATA"",396.18,215,3,1507,0)"
^XMB(3.9,22,2,6114,0)="M2._YJKWF0T9Y9[1`""<@NG2:2@^RR5X*8,Q1]89=+&KI1%$^=-<12FA.8M,$K"
^XMB(3.9,22,2,6115,0)="""DATA"",396.18,215,3,1508,0)"
^XMB(3.9,22,2,6116,0)="M27[EK$AU?Y#>)3V""U]V""VYN,_87?""SKFT%#X^J&CM?O(G_D6I'?PI?CGZ^0R"
^XMB(3.9,22,2,6117,0)="""DATA"",396.18,215,3,1509,0)"
^XMB(3.9,22,2,6118,0)="MHUG<75EEGBX'Z+ZO-@E%EQCDKV<+)E/Y5X*M-;;PSDV:%2)\[_;ZU*0O[P^F"
^XMB(3.9,22,2,6119,0)="""DATA"",396.18,215,3,1510,0)"
^XMB(3.9,22,2,6120,0)="M+W^U!+JK910C!@@;O#T@:%D,IX&*R^;IA75UERM$TBKE4QM(7HY_H:8.[@:C"
^XMB(3.9,22,2,6121,0)="""DATA"",396.18,215,3,1511,0)"
^XMB(3.9,22,2,6122,0)="M_(L$_L4B_Z;!,-Q&P!M[)OZY6J75L'/G>UI)N`@UMXD<6IJ+""H2E""T)%W`]$"
^XMB(3.9,22,2,6123,0)="""DATA"",396.18,215,3,1512,0)"
^XMB(3.9,22,2,6124,0)="MEIVQI<UP#0&=V)#YQNQL'(2AO6^L@@@,#T<V!'3,0T(WX"".2/>A6`#(&AP(;"
^XMB(3.9,22,2,6125,0)="""DATA"",396.18,215,3,1513,0)"
^XMB(3.9,22,2,6126,0)="M0@2DI2DVN`M=G?^T!:(:*CQZA,B&KCX_""V3(AFVJJW.<F%5CW4J1G7)T&=O'"
^XMB(3.9,22,2,6127,0)="""DATA"",396.18,215,3,1514,0)"
^XMB(3.9,22,2,6128,0)="M""R?1]F5)Y_3DLUYLG57H'_',4[0OEJMU,_3J3F""V43Z<AMC11C[2A`8#<N^["
^XMB(3.9,22,2,6129,0)="""DATA"",396.18,215,3,1515,0)"
^XMB(3.9,22,2,6130,0)="M74]/ZJ?$C^9X-S9DHL@X^6Q.@8=3C/7+F]ZVV=^?/J=U-E]C[K""$_31L7NKS"
^XMB(3.9,22,2,6131,0)="""DATA"",396.18,215,3,1516,0)"
^XMB(3.9,22,2,6132,0)="MOQ=[3=8&)_`,H4&R%@@57Q^8)-BZQZB&3Y'T3W&,AVBOPE!Q*\?LM'NLJ_K#"
^XMB(3.9,22,2,6133,0)="""DATA"",396.18,215,3,1517,0)"
^XMB(3.9,22,2,6134,0)="MV!1S""!Q\*0,IVC![)'U^PB+B=2<2^N#B*'A\=[+^2J9#;?R5W$X/=?GUF%W^"
^XMB(3.9,22,2,6135,0)="""DATA"",396.18,215,3,1518,0)"
^XMB(3.9,22,2,6136,0)="MZ7-@PX]]^6<[KBE+TL=&P,*\!8E=\RMY""\GS,:E(ON4F/96;&?B>8FL;VY;!"
^XMB(3.9,22,2,6137,0)="""DATA"",396.18,215,3,1519,0)"
^XMB(3.9,22,2,6138,0)="M3_PC[16RZ]I=9'6'/EHN5U6ZZ,#_R(CLSV1&EK1%U+,J30N2#!O:9(+NQQ0*"
^XMB(3.9,22,2,6139,0)="""DATA"",396.18,215,3,1520,0)"
^XMB(3.9,22,2,6140,0)="M\[Q%.2*`L3A(?T91]/Y-X.D(5B!9Q8S_2-$BSO50G<[EAI92;M*&72:8$*B\"
^XMB(3.9,22,2,6141,0)="""DATA"",396.18,215,3,1521,0)"
^XMB(3.9,22,2,6142,0)="M%D+RJDG;6=RLP+^,)4U`DWZ>9_4,""_>:`8BD=PC^,@8@E7P9OF;^LT[K9O<7"
^XMB(3.9,22,2,6143,0)="""DATA"",396.18,215,3,1522,0)"
^XMB(3.9,22,2,6144,0)="M7^$'QD^[6T;YJ0.\^])6BND#XC_""`K?2U!UE5O^[JW6%""<(VS'E!&""GEUK,."
^XMB(3.9,22,2,6145,0)="""DATA"",396.18,215,3,1523,0)"
^XMB(3.9,22,2,6146,0)="MY94I,I=TBV1!JTLIOA.R#H`X;9*,Y`>R@D!""=01>$CA(AI$,,%_+5`K:2^!-"
^XMB(3.9,22,2,6147,0)="""DATA"",396.18,215,3,1524,0)"
^XMB(3.9,22,2,6148,0)="MTUE:UZ2P1AZB@S_>T;D?B)1OH(P1U""'@CRIC6A$4++)>%BO35D-V2M-""C)+U"
^XMB(3.9,22,2,6149,0)="""DATA"",396.18,215,3,1525,0)"
^XMB(3.9,22,2,6150,0)="M@E?;K6<[(,H9@Z#8ZQEER7>RV);PN\=SK!?E.I\3X,1D/B>5OE8Q\-]/Z3Y"""
^XMB(3.9,22,2,6151,0)="""DATA"",396.18,215,3,1526,0)"
^XMB(3.9,22,2,6152,0)="M!OB25/_PGVL[!P@K""7G)BC3K5AG!_I+Y*IA:LI1X/F<Z""^A':/F0@J/B1R5?"
^XMB(3.9,22,2,6153,0)="""DATA"",396.18,215,3,1527,0)"
^XMB(3.9,22,2,6154,0)="MWD(@]Y#+_#&C:+XM&_@%N?BOD:;\FE66.59V0I=,^B>]2]<+(P,M!4C8I@LL"
^XMB(3.9,22,2,6155,0)="""DATA"",396.18,215,3,1528,0)"
^XMB(3.9,22,2,6156,0)="M;>:<=%@0C2)V)=L*+\$'FE0""\O:D)CG)?A/!K3&=BAW'-36V<]*-T;8+#!0H"
^XMB(3.9,22,2,6157,0)="""DATA"",396.18,215,3,1529,0)"
^XMB(3.9,22,2,6158,0)="M_3%+5ST4P8R`KV(#=Y/U$*XL:FY""-VGBW[_,J0$FC1`$VS.KJ;N!7R'*U)&6"
^XMB(3.9,22,2,6159,0)="""DATA"",396.18,215,3,1530,0)"
^XMB(3.9,22,2,6160,0)="M;SI<V1_DU76Q9O<X$S/;?=%SYZ^L70[;_8GV''+?/M1:!ABUARCM&-&>M&3`"
^XMB(3.9,22,2,6161,0)="""DATA"",396.18,215,3,1531,0)"
^XMB(3.9,22,2,6162,0)="MHMXBG1I:@A?&)NH8\B#NT`+$^6MO,+`,ELEF>]-1.SE`>*V;]9ST+I2LI-@K"
^XMB(3.9,22,2,6163,0)="""DATA"",396.18,215,3,1532,0)"
^XMB(3.9,22,2,6164,0)="M*4WGZ9R:#6+<TFJ`=4[W-=\D^;JU,4_J-.45EODN\B77ZVQ.,!*?XKL1F\QL"
^XMB(3.9,22,2,6165,0)="""DATA"",396.18,215,3,1533,0)"
^XMB(3.9,22,2,6166,0)="M2;9YDQNO2*^IJU8/#'&[ZSN=/S]598B`@3)`*-BFR.H*Q7R\;B5>7ET1/X;H"
^XMB(3.9,22,2,6167,0)="""DATA"",396.18,215,3,1534,0)"
^XMB(3.9,22,2,6168,0)="M!"":YW""F&<]VYS%MKU2L$@\*/34R]@Z(D\BP(]@GUCG[&A[EH+U[B(W5^T:IS"
^XMB(3.9,22,2,6169,0)="""DATA"",396.18,215,3,1535,0)"
^XMB(3.9,22,2,6170,0)="MH>@UR]@3HG;;""YVL'VUR.EM&;K\,WVLW-`6`K5""*+5*YV7[?):;S*FMJ'H1X"
^XMB(3.9,22,2,6171,0)="""DATA"",396.18,215,3,1536,0)"
^XMB(3.9,22,2,6172,0)="ME`C&.:-_$UNPE]V:X3$[]XP]&/04=`_4:6G'MWS3.@[I?Q@`:'+C9E?8D.>;"
^XMB(3.9,22,2,6173,0)="""DATA"",396.18,215,3,1537,0)"
^XMB(3.9,22,2,6174,0)="M]G[?LGD'B9W5G1=QDFK>E4%4>ZD0MY=*@)GT%4L%;PGE.9`U3K>YK(YB)@L0"
^XMB(3.9,22,2,6175,0)="""DATA"",396.18,215,3,1538,0)"
^XMB(3.9,22,2,6176,0)="M^-S*H39&?,Q9`*3,`JA,'SM+SX\_6?1.?QH`V__)FI&3R0<H-L(`=JP]X)V)"
^XMB(3.9,22,2,6177,0)="""DATA"",396.18,215,3,1539,0)"
^XMB(3.9,22,2,6178,0)="MT/S^>+LUT_76WO\LVMK5#I:>M]U,/J`7`/8[+YND\V(+PBP:Q[6!%^W]I.+"""
^XMB(3.9,22,2,6179,0)="""DATA"",396.18,215,3,1540,0)"
^XMB(3.9,22,2,6180,0)="M'JKSA+K,2QS@,S9_MJ[H/HVKK*J;ISAHVJRH*TS:FE==A-U^R;)=N]&D7;3X"
^XMB(3.9,22,2,6181,0)="""DATA"",396.18,215,3,1541,0)"
^XMB(3.9,22,2,6182,0)="M/;E.1<<D)Q#X`.(_5#2+=OD!<9<(3#[^C9J`P.$_5I5+:KNW#OB*_M;PN^#/"
^XMB(3.9,22,2,6183,0)="""DATA"",396.18,215,3,1542,0)"
^XMB(3.9,22,2,6184,0)="M]!LP2ZJL)'#..=V0,.^W,=#[.*D[Q4Q_-!TV&?U+.1.RUOOM20""*FA<+J1_R"
^XMB(3.9,22,2,6185,0)="""DATA"",396.18,215,3,1543,0)"
^XMB(3.9,22,2,6186,0)="M"")X^-%EQ;R@J5CRZOEU%P0E&\1C%L0'!7P6UT-*BJ-($X1@MD0&:V!M.';64"
^XMB(3.9,22,2,6187,0)="""DATA"",396.18,215,3,1544,0)"
^XMB(3.9,22,2,6188,0)="M*(#-N'47WAYUN+_I&1#U7DM29,(<D29/OX/JXO/(J:AM<3X[QP.I^D;""F&U5"
^XMB(3.9,22,2,6189,0)="""DATA"",396.18,215,3,1545,0)"
^XMB(3.9,22,2,6190,0)="MU_5?F*^7.$+_12@?#69X'/-C""#YOU"".AQRT&C[!_5=/>A2(#9HL($R*W8Y';"
^XMB(3.9,22,2,6191,0)="""DATA"",396.18,215,3,1546,0)"
^XMB(3.9,22,2,6192,0)="MYW77NO:N5@1R]#C6^.^G[X^PM@G&F4VGK<1V1O\(ZGZ&ZA.8#?3,YA4;&BFV"
^XMB(3.9,22,2,6193,0)="""DATA"",396.18,215,3,1547,0)"
^XMB(3.9,22,2,6194,0)="M_YB+]AI81*`;1`JY)<T\R(8P6]CC""0TD$$[2[OQW4N_BCK&8@XTS?K/OCK99"
^XMB(3.9,22,2,6195,0)="""DATA"",396.18,215,3,1548,0)"
^XMB(3.9,22,2,6196,0)="MY:[,CR!9EP10K<$*6L8/)FS@PUW)/-FPN:<,]B/%.@FF!UHP)\""BE[&#%'(P"
^XMB(3.9,22,2,6197,0)="""DATA"",396.18,215,3,1549,0)"
^XMB(3.9,22,2,6198,0)="M$]>G-W$.%!LT61R0`&I0""M63L_4^X[Q0M8V2W7C&DP6A`5UO5EE=DF(P#J5J"
^XMB(3.9,22,2,6199,0)="""DATA"",396.18,215,3,1550,0)"
^XMB(3.9,22,2,6200,0)="M(M.L(:7*=5L6E!B2_1Y`L9<QY%`#^2>P&6#_O9@EJV26-6WQ.MT^V).VW$I>"
^XMB(3.9,22,2,6201,0)="""DATA"",396.18,215,3,1551,0)"
^XMB(3.9,22,2,6202,0)="MNTQ)3J)IMXYN5XRVE<758IA7V=39+$N*I\[N=SU2=PB<[VGZK6T[+)KL,BO)"
^XMB(3.9,22,2,6203,0)="""DATA"",396.18,215,3,1552,0)"
^XMB(3.9,22,2,6204,0)="MTL[^JWX[VLP[=*$)QX0-I``93+U_+(M,SJS?]I,N4N08XS'U-%C+3<>:6K5T"
^XMB(3.9,22,2,6205,0)="""DATA"",396.18,215,3,1553,0)"
^XMB(3.9,22,2,6206,0)="M$KIT--U3_U2[ZN$8A;'!1#R=PSH*B;[1$>'32@`8Y+C>TC)>,=NT2^;6S(RA"
^XMB(3.9,22,2,6207,0)="""DATA"",396.18,215,3,1554,0)"
^XMB(3.9,22,2,6208,0)="M)9F!D5[RPQ\@M,%`*)0*N@_-7JS8X>:/5M1C`_U\L:N5,R`2YA3V0[$4-EX^"
^XMB(3.9,22,2,6209,0)="""DATA"",396.18,215,3,1555,0)"
^XMB(3.9,22,2,6210,0)="M(LO>/CR=P'4U<S4`NM$HEN41QV8_<1.Q-\,!NT]KLBN69#>WC7@#(,0TF2>S"
^XMB(3.9,22,2,6211,0)="""DATA"",396.18,215,3,1556,0)"
^XMB(3.9,22,2,6212,0)="M13KM#""HXY@SJ3G:14G:<$=0++_)%X46W)#QVYOE#\B/+\QU8!9%G59(&GL$<"
^XMB(3.9,22,2,6213,0)="""DATA"",396.18,215,3,1557,0)"
^XMB(3.9,22,2,6214,0)="M<K-8EMD`T_7+:I$6S""LO\GQ2D<)I1!JKCR-[:^PGTO@L4K5(T723XD@S*(Y8"
^XMB(3.9,22,2,6215,0)="""DATA"",396.18,215,3,1558,0)"
^XMB(3.9,22,2,6216,0)="M`#M>N,*\!(*"";(\ZYSPYMHBGK9#X1A42Q&]O$RLDP'@8QCT(=6:+4JB$1.%\"
^XMB(3.9,22,2,6217,0)="""DATA"",396.18,215,3,1559,0)"
^XMB(3.9,22,2,6218,0)="M*GX821)V`%'*X!!(%'\OP2GSB($TC<@_)S^N)#ZG3)OA[=4H_/N<70ST(#R&"
^XMB(3.9,22,2,6219,0)="""DATA"",396.18,215,3,1560,0)"
^XMB(3.9,22,2,6220,0)="M""@?Y-;UF""H<NI@3`M%0X:*!P,-(^)W+%Y_3.""J?!U2&,#Z5E22ZFB3F;C$0X"
^XMB(3.9,22,2,6221,0)="""DATA"",396.18,215,3,1561,0)"
^XMB(3.9,22,2,6222,0)="M'2A@:""%P/O*ZO3-<02'0K!&![`0O]#2)AG[WW0X9`4R%/D,R%UO\GTFJ!/I9"
^XMB(3.9,22,2,6223,0)="""DATA"",396.18,215,3,1562,0)"
^XMB(3.9,22,2,6224,0)="M2FI-^""I!V\G7S:U&PRJ!UYJ1G0ZW2'&/&7_65R6T%1NF`=L`R'=Z>?$>)8&/"
^XMB(3.9,22,2,6225,0)="""DATA"",396.18,215,3,1563,0)"
^XMB(3.9,22,2,6226,0)="M*7;53JXB$/H&*+1!,$5%X#:*M].MY0T5G:<^&.,<B'U3V-:MT=JV&YIGXAXJ"
^XMB(3.9,22,2,6227,0)="""DATA"",396.18,215,3,1564,0)"
^XMB(3.9,22,2,6228,0)="M8[<1&9)'9""QG>ZCUO7<2W'LFR9(&^\6,N[Q/J,S[L$>>'UN50,@A,>WC[9OV"
^XMB(3.9,22,2,6229,0)="""DATA"",396.18,215,3,1565,0)"
^XMB(3.9,22,2,6230,0)="MN4>RL,Q`?4B&*(@D/_P+?<R*A4<<+'O2995$-;@_.6$:'""DZJ,""8_D""AWA!)"
^XMB(3.9,22,2,6231,0)="""DATA"",396.18,215,3,1566,0)"
^XMB(3.9,22,2,6232,0)="MTOC^V3/7]&SRB^LBJU8??K]?OR1%B3E,7/-I,(>I/Z7VS-&]-`Q608*!53<("
^XMB(3.9,22,2,6233,0)="""DATA"",396.18,215,3,1567,0)"
^XMB(3.9,22,2,6234,0)="M'EPI-IH_B!X`$SW$[/:*;NWP8XX>`B7BO2)Z@&AL?X7O[A,]$'#:DXL>//F$"
^XMB(3.9,22,2,6235,0)="""DATA"",396.18,215,3,1568,0)"
^XMB(3.9,22,2,6236,0)="M!F2F&@-TCAX$QJE`&?PQSMU*]##JF@-%L<0=1X,5$Z/`&*+_2(ZOIRYX,MH:"
^XMB(3.9,22,2,6237,0)="""DATA"",396.18,215,3,1569,0)"
^XMB(3.9,22,2,6238,0)="M1ORR+OZX!P*&F-LO3IJZWMFUNC2T8X3L<!Q</*\S,MV.7<N-<TE:M@A""MM,L"
^XMB(3.9,22,2,6239,0)="""DATA"",396.18,215,3,1570,0)"
^XMB(3.9,22,2,6240,0)="ML$]PO7""*'6\IWG=Q398U#I&X/^//EU6U2).]O-;[XIWZ<KAB]F""%`EIQ8""#D"
^XMB(3.9,22,2,6241,0)="""DATA"",396.18,215,3,1571,0)"
^XMB(3.9,22,2,6242,0)="M,UJQG7<*:.)S%+:<10'V]_!.W8F\4W)?WW'>&,I@<5OW3IHW;B<I'B`J[F2>"
^XMB(3.9,22,2,6243,0)="""DATA"",396.18,215,3,1572,0)"
^XMB(3.9,22,2,6244,0)="M7ZA:O25W_-A@B;,12-CM9^+W?2C7^+?))?P56^*D.;TM9B9KS$)X=@$YOD6J"
^XMB(3.9,22,2,6245,0)="""DATA"",396.18,215,3,1573,0)"
^XMB(3.9,22,2,6246,0)="M&74TQKAS_ECKI/JJAAZ7;1>)D/W(\SE_#$WSQY%N.W;D""1X6C!Y?_OA=28AF"
^XMB(3.9,22,2,6247,0)="""DATA"",396.18,215,3,1574,0)"
^XMB(3.9,22,2,6248,0)="MD\7D<_/A9O4OJS2=+9QY[^$/7/E%2@$89>]]^9YL\1EE;Y]03MJ70@8`=B5T"
^XMB(3.9,22,2,6249,0)="""DATA"",396.18,215,3,1575,0)"
^XMB(3.9,22,2,6250,0)="M)'C]R$`G8^MMO>=00)*HUFS@X>X]OMM2W$@@2U1/LX&G=>&PH)K6@[OCJ`#)"
^XMB(3.9,22,2,6251,0)="""DATA"",396.18,215,3,1576,0)"
^XMB(3.9,22,2,6252,0)="MHH)P$!4@9IFQ'W'+C*/''A1$JN$?%;@T8AKBA2[3?9I)/M6;V2)+L(K,3BXB"
^XMB(3.9,22,2,6253,0)="""DATA"",396.18,215,3,1577,0)"
^XMB(3.9,22,2,6254,0)="M@(%BN(]=513QM2@3""""'.M26`VX_'LPT4V=>><]L%J5H405?T;`D:Z4>JG)*&"
^XMB(3.9,22,2,6255,0)="""DATA"",396.18,215,3,1578,0)"
^XMB(3.9,22,2,6256,0)="M]8.<QXYXJ()`#`\G7M5H[QUQO:NG056`L3?6^0.1K^F""]'=P+<>]P#YU.[J="
^XMB(3.9,22,2,6257,0)="""DATA"",396.18,215,3,1579,0)"
^XMB(3.9,22,2,6258,0)="MU<#J;""$^R1E:E/4J:Y(\^X=.3MIM?CWQ""FUHK!^AKDEVM#$L@AKU""%PT#>0&"
^XMB(3.9,22,2,6259,0)="""DATA"",396.18,215,3,1580,0)"
^XMB(3.9,22,2,6260,0)="MW=RY2JN:&M$JS5NTUT6VVD4-65J?M6*?S9->;*,5?<9;/6TG6(THGL9JO""A^"
^XMB(3.9,22,2,6261,0)="""DATA"",396.18,215,3,1581,0)"
^XMB(3.9,22,2,6262,0)="M9&FS.8M]KW`'6(D=1=9BC]UIHIW7Z8H`6YZO`>,=Y:SDD=4UT`,'F-\#6/+>"
^XMB(3.9,22,2,6263,0)="""DATA"",396.18,215,3,1582,0)"
^XMB(3.9,22,2,6264,0)="M)))_7[9XIC/,!QS]_X)]AISBG*]*@D:9)?E9(XPF2WF-B*T<1_$.B#R]2D33"
^XMB(3.9,22,2,6265,0)="""DATA"",396.18,215,3,1583,0)"
^XMB(3.9,22,2,6266,0)="M&(.L;M;5)5E80%7C)KU.&[JFP+E:%[.SLV@\T\:[!=#&2D`/V=\/4TU4K2_K"
^XMB(3.9,22,2,6267,0)="""DATA"",396.18,215,3,1584,0)"
^XMB(3.9,22,2,6268,0)="MABB$DURNZ_0L?K,96K8Q(K*S""/;N`8!N,,TM\:HLKM9G]V#/44KHVDE><`^,"
^XMB(3.9,22,2,6269,0)="""DATA"",396.18,215,3,1585,0)"
^XMB(3.9,22,2,6270,0)="M).]/DT9(BFSF)$V#Q7*.!A4KKC7P')Z5V7?W.O?3A(-?\C1=D7U%258-P>#."
^XMB(3.9,22,2,6271,0)="""DATA"",396.18,215,3,1586,0)"
^XMB(3.9,22,2,6272,0)="M""C`*\,S?^\CJ_.^A`7X43W/QT]3[6>K#8S\.-4V19400"";8*$O.CM<*ZZPCR"
^XMB(3.9,22,2,6273,0)="""DATA"",396.18,215,3,1587,0)"
^XMB(3.9,22,2,6274,0)="M><``G,>D6@$8YV.T""`:`/7<\Z)6`-2H:WMB?IA-U6""K4EIX?_;@4DHU+#:`6"
^XMB(3.9,22,2,6275,0)="""DATA"",396.18,215,3,1588,0)"
^XMB(3.9,22,2,6276,0)="M(+.UVO//Q7$VS16KBKJ>'`6U#TV[L@8_*^6;%\<_K.O9.B_K;VF>DC6:)U<7"
^XMB(3.9,22,2,6277,0)="""DATA"",396.18,215,3,1589,0)"
^XMB(3.9,22,2,6278,0)="M5RR/Z8;Y^OX""#JXK!/JR^/\IB<K60X:-T:%8P<G<3$``M`46$*<_46_AI[TP"
^XMB(3.9,22,2,6279,0)="""DATA"",396.18,215,3,1590,0)"
^XMB(3.9,22,2,6280,0)="M6(%K0![D3;0)WB[1L#Q]4C\]#,L60`,"">3%&R)0^8SD""9*)/=RA(SX0^09*A"
^XMB(3.9,22,2,6281,0)="""DATA"",396.18,215,3,1591,0)"
^XMB(3.9,22,2,6282,0)="M;ZCPAPM2#G[BL3A?@B0-FM?I-UV5I?FA!'(\$7^<%G$QR0B$N*0O/""]GNW7O"
^XMB(3.9,22,2,6283,0)="""DATA"",396.18,215,3,1592,0)"
^XMB(3.9,22,2,6284,0)="M[9IUBOZ=Y[O//=D^#+.U^^GQP,""A`O^=70/+;Z@60R$8J/J%5M@5;1\QJV?D"
^XMB(3.9,22,2,6285,0)="""DATA"",396.18,215,3,1593,0)"
^XMB(3.9,22,2,6286,0)="MO^A.NIJ]8""R)5F""^@_!^'#Z$3.@3#I_)?,%[46GV`_Y'GLGY$WAH0F,+7&YU"
^XMB(3.9,22,2,6287,0)="""DATA"",396.18,215,3,1594,0)"
^XMB(3.9,22,2,6288,0)="M`I%O<@)!<!='</LXS#;B8YY!I``^]]@%M4);OV_0M/>BKK.:%HV2;%X[@Y7:"
^XMB(3.9,22,2,6289,0)="""DATA"",396.18,215,3,1595,0)"
^XMB(3.9,22,2,6290,0)="MWY/\&_:8M9*1SQCYG""X+Q(7[89P[=,_SD.9]M#M0N#'>>!<D-+!J+RJZ1Q/_"
^XMB(3.9,22,2,6291,0)="""DATA"",396.18,215,3,1596,0)"
^XMB(3.9,22,2,6292,0)="M]U6.G=#UBA;G_DV=P,ZX_;:/44.*82X0!*.,C@PV+OY)%TOW4/W[<!2%D0EY"
^XMB(3.9,22,2,6293,0)="""DATA"",396.18,215,3,1597,0)"
^XMB(3.9,22,2,6294,0)="MB,<?#(W)>WW`[@""DVFS/4<?/QB.363@""-+_;VVNW'T#AAGDLO+&G&WO?PH)+"
^XMB(3.9,22,2,6295,0)="""DATA"",396.18,215,3,1598,0)"
^XMB(3.9,22,2,6296,0)="MK-IGNJ?>N4F;M$J*B_^!XHN:I(J[1A*ZQW*1#K9:D@U/@\;=/%LR>]:;UB#B"
^XMB(3.9,22,2,6297,0)="""DATA"",396.18,215,3,1599,0)"
^XMB(3.9,22,2,6298,0)="M#R[+IMNK6U++N:TZXU_:I:*W^URVA^$85K&;)8L4';<A`W:$^'UQPCH(B.PZ"
^XMB(3.9,22,2,6299,0)="""DATA"",396.18,215,3,1600,0)"
^XMB(3.9,22,2,6300,0)="M;J%[>,>M'RL&X7SO<.(5';?;*:\#Q\RH1ZC8.,!$6?QA`A[O&\0""S!1P>W3Z"
^XMB(3.9,22,2,6301,0)="""DATA"",396.18,215,3,1601,0)"
^XMB(3.9,22,2,6302,0)="MDYPH8S'QN8T5^&1=LTO`\:M_I\DW=@+M4U(E^:9FX""72&=G;C`_4K,2'*""L2"
^XMB(3.9,22,2,6303,0)="""DATA"",396.18,215,3,1602,0)"
^XMB(3.9,22,2,6304,0)="M%C_BSV*65F2G=;-I3^Y-2@[G?1@W<X\];D8=5W'<C$V@1$""GFV(2&0#W##)A"
^XMB(3.9,22,2,6305,0)="""DATA"",396.18,215,3,1603,0)"
^XMB(3.9,22,2,6306,0)="ML,:3+M[3""`!Z<`\!N.>EM;I>UYV9!FHSS29Y]K/3P:.UTU^:[.J*-<FO4QPQ"
^XMB(3.9,22,2,6307,0)="""DATA"",396.18,215,3,1604,0)"
^XMB(3.9,22,2,6308,0)="M+1F[_1[[30U6T=9+&L[]IGF^C:ONV/:BH\-/RFTOE_3<R_BZX?GL:WI;J01\"
^XMB(3.9,22,2,6309,0)="""DATA"",396.18,215,3,1605,0)"
^XMB(3.9,22,2,6310,0)="M`PGL:7W]LP0T'24[ZZO&8N`R:+SUC:&!\0471T<O.]SBR?W75TF>K^O;A""V+"
^XMB(3.9,22,2,6311,0)="""DATA"",396.18,215,3,1606,0)"
^XMB(3.9,22,2,6312,0)="MCV[5`MF9XG*/@;""6/-:""Z@(7GH^4KDMO=Z:0&M^$+4?LY=$`\(@\FI>8)I*Y"
^XMB(3.9,22,2,6313,0)="""DATA"",396.18,215,3,1607,0)"
^XMB(3.9,22,2,6314,0)="M*0C0[XHY[*0+I\_QL&^]J);<*^_3:\DKWX68M?T<V8""[2.LLX=XIULO+^P+)"
^XMB(3.9,22,2,6315,0)="""DATA"",396.18,215,3,1608,0)"
^XMB(3.9,22,2,6316,0)="M'1S=>DCA3Q`(CA""0HK/YT`P""4PE$!A+8SR<""9P.NFZ[9V6_/U""<23H.14X3."
^XMB(3.9,22,2,6317,0)="""DATA"",396.18,215,3,1609,0)"
^XMB(3.9,22,2,6318,0)="M3I&N'_:H=BTV\(I`[&K=HD@4I7<^5;HFVMVQ\M5N$5LA1B[0%9*`;/N?/_7!"
^XMB(3.9,22,2,6319,0)="""DATA"",396.18,215,3,1610,0)"
^XMB(3.9,22,2,6320,0)="M^J-J%G2=?5;4F!7U$`RYJO#?(K7>>E$.>U-?5LEL^!5%ZLR2X9=^_5[25VKN"
^XMB(3.9,22,2,6321,0)="""DATA"",396.18,215,3,1611,0)"
^XMB(3.9,22,2,6322,0)="M0]6ZF2VXC]'7AI_\.\F_37TBHV.?R%""Z_(.KQ`M*`$%LH@3!^4BV8C,>)X.:"
^XMB(3.9,22,2,6323,0)="""DATA"",396.18,215,3,1612,0)"
^XMB(3.9,22,2,6324,0)="M?;_L'C3D\E5>$&I@U0""6I65?.W=B-1M_3WU&!.D7^?JJQ:I\ZX""K=1^%4X7%"
^XMB(3.9,22,2,6325,0)="""DATA"",396.18,215,3,1613,0)"
^XMB(3.9,22,2,6326,0)="MYQ^R6!5H5_G^G:;?\H'?\>8FK38.=)K200YYL^;?`^0]Z'S`?%L(;R+RIJ=X"
^XMB(3.9,22,2,6327,0)="""DATA"",396.18,215,3,1614,0)"
^XMB(3.9,22,2,6328,0)="MTR=O!L*;?]!Q9.>_TZ0:!GUU[32+I*""O8PJ?ZB41FDH""A?M(XJ`5MR#00XFN"
^XMB(3.9,22,2,6329,0)="""DATA"",396.18,215,3,1615,0)"
^XMB(3.9,22,2,6330,0)="MJP%7.C:_3C:#%RE[0^[%[I.<L%ZFS?<T+?`;I#/-X]_^4-(N),S?I!6(""8,C"
^XMB(3.9,22,2,6331,0)="""DATA"",396.18,215,3,1616,0)"
^XMB(3.9,22,2,6332,0)="M4P:'>ZEZ>!""#M4N$/V3Y?,@`_'M),W`':)M.JMDM#%UI^ARR/1F""%R4T943B"
^XMB(3.9,22,2,6333,0)="""DATA"",396.18,215,3,1617,0)"
^XMB(3.9,22,2,6334,0)="MXY]+ET/<MW%L_5BV5JD=M^P2?!R.ILN""ZP>/?2EKZ_=+VS45\Q$LTE_(P^O#"
^XMB(3.9,22,2,6335,0)="""DATA"",396.18,215,3,1618,0)"
^XMB(3.9,22,2,6336,0)="M/7`TWZ7+;/;+^\URM4B:$\32C.0]A9""Q%H%_1M?G^!8KFF_C8(QQ9W1]/;I^"
^XMB(3.9,22,2,6337,0)="""DATA"",396.18,215,3,1619,0)"
^XMB(3.9,22,2,6338,0)="MH&@JA&PO-N#'LZ!^`]04""Z!HMY:\68C5!7X=@&3=![]+/G#]<\.`<;-0H%[`"
^XMB(3.9,22,2,6339,0)="""DATA"",396.18,215,3,1620,0)"
^XMB(3.9,22,2,6340,0)="M!<<$T2\34PN""H%Z`Q[<ZX$V1)]4U?E:""34YWSCHYN0F=`GNFP]CIQXPT8M^D"
^XMB(3.9,22,2,6341,0)="""DATA"",396.18,215,3,1621,0)"
^XMB(3.9,22,2,6342,0)="M#N9,.L??\\MEM<YJID-HVS-$*G+ICZ;""%RM!_12;1,E?NR(9Y_7`\WU+/%]J"
^XMB(3.9,22,2,6343,0)="""DATA"",396.18,215,3,1622,0)"
^XMB(3.9,22,2,6344,0)="M""V>++,^'T3)]'/SMR3#G]@ZK05G11M$:'U_,A1G^\]OAA0MQWUE6D#D_@DMZ"
^XMB(3.9,22,2,6345,0)="""DATA"",396.18,215,3,1623,0)"
^XMB(3.9,22,2,6346,0)="M<OL+>*B""R&YI%M\3(""RWYTM*9$_S-'!QK3>6]][87>_/BF0^_@`,`+%H`.VD"
^XMB(3.9,22,2,6347,0)="""DATA"",396.18,215,3,1624,0)"
^XMB(3.9,22,2,6348,0)="MS8YOK7OPF%U\H)Q6E4_B0#8/'!P#*O]CNL9W4'E]6MY]YTVI0-&YM<T@THQ("
^XMB(3.9,22,2,6349,0)="""DATA"",396.18,215,3,1625,0)"
^XMB(3.9,22,2,6350,0)="M;ZW`U/LTJ3DB>X!(#F/[`[M#C5$``<M`F&[S@H>X3:E[+NG1X$*V07=ZN'VE"
^XMB(3.9,22,2,6351,0)="""DATA"",396.18,215,3,1626,0)"
^XMB(3.9,22,2,6352,0)="M*US""[<^[Z;_^(X(?(!\1SHI9OB97>C]'VIM-J2?4254QTPP5I'M;08Z0OJWS"
^XMB(3.9,22,2,6353,0)="""DATA"",396.18,215,3,1627,0)"
^XMB(3.9,22,2,6354,0)="M&9,^Z-5A!F$/>0!DROL@Y!\@@I;T'X->SY3A(KVA(;U?-ZN4^EEI]L^Z2@^A"
^XMB(3.9,22,2,6355,0)="""DATA"",396.18,215,3,1628,0)"
^XMB(3.9,22,2,6356,0)="MUC=7CU#4#T-Z^Q'1=B`Z:2CU>8(]J2,\0F!^.$4-`98:PL[OV]'+>H#*Y0)\"
^XMB(3.9,22,2,6357,0)="""DATA"",396.18,215,3,1629,0)"
^XMB(3.9,22,2,6358,0)="M_K@GWQ-M2R""0[^UDLNN,Z)<9J]W#$0=1YB(RW!G&$?V8V6_]GQ1\1`7;S&Z,"
^XMB(3.9,22,2,6359,0)="""DATA"",396.18,215,3,1630,0)"
^XMB(3.9,22,2,6360,0)="ML3M#>6L8W!N*FV/$H^5\6L:K55\YLC$V,X6)=0J#@D""G,K&H,=LM)HS&P&DU"
^XMB(3.9,22,2,6361,0)="""DATA"",396.18,215,3,1631,0)"
^XMB(3.9,22,2,6362,0)="MYM.@J7,?1=E3)F+#IA'GE=#_JJ,:N@9\EY[4?E_,-'S_V+7,W@W/H07/E?!^"
^XMB(3.9,22,2,6363,0)="""DATA"",396.18,215,3,1632,0)"
^XMB(3.9,22,2,6364,0)="M`VV/CL5UB"";E^I?VDG.Z%,G=,#^R8;[UW83@WAH?3<I[)K=_-YSW1CE/T]F0"
^XMB(3.9,22,2,6365,0)="""DATA"",396.18,215,3,1633,0)"
^XMB(3.9,22,2,6366,0)="M26>K71C1@X%(8M%#F0\`+N[)[2NFN)5WKS+-/4ATCUVUH\EN6?@W(J00R(4D"
^XMB(3.9,22,2,6367,0)="""DATA"",396.18,215,3,1634,0)"
^XMB(3.9,22,2,6368,0)="MN,H'""`F>A30FI%`O)-.3%,&]A=3WI)R%)!,2T@L)&9ZD`X0$@[.01H04ZX7D"
^XMB(3.9,22,2,6369,0)="""DATA"",396.18,215,3,1635,0)"
^XMB(3.9,22,2,6370,0)="M&0H)>`=(R3]+:>Q2<O5B\@T-WB%B`O%93""-B\FUBR<#6M8[%Q)L;&_K6_J2^"
^XMB(3.9,22,2,6371,0)="""DATA"",396.18,215,3,1636,0)"
^XMB(3.9,22,2,6372,0)="M-5&[:N.0+6-WXUD#8,/Y2,=YX)OPWC2FA--F4$I\B%X-8)ON2`)6,;TVC]+W"
^XMB(3.9,22,2,6373,0)="""DATA"",396.18,215,3,1637,0)"
^XMB(3.9,22,2,6374,0)="MPX](('8-!1!/*H""_,@J$=X?*CVQ8[^I8[QDIORGOPVD3*JLTG2V<U]M=MG>4"
^XMB(3.9,22,2,6375,0)="""DATA"",396.18,215,3,1638,0)"
^XMB(3.9,22,2,6376,0)="M4@&>C02@3@*!ZVLE$$6&`I@VJX*Y5GZ[XX068*_=D9J\I^IP]/R#:_($\E&-"
^XMB(3.9,22,2,6377,0)="""DATA"",396.18,215,3,1639,0)"
^XMB(3.9,22,2,6378,0)="M^7B\9>6Z7>6]Y=P.%MFO.P%@FOUR@W8/2?N0T$1SDA-E6\*$=K4#EZ/0ZJ?0"
^XMB(3.9,22,2,6379,0)="""DATA"",396.18,215,3,1640,0)"
^XMB(3.9,22,2,6380,0)="M$-7Z]4.$F;Z1/.""''A[[?I1VVXFDLHRMK[0C*HY&9AZ@V-IJT!#UDL!P-B<W"
^XMB(3.9,22,2,6381,0)="""DATA"",396.18,215,3,1641,0)"
^XMB(3.9,22,2,6382,0)="MZ@`4/66(@=H-T'G606""<""GC:&^,<B-&APP[U:3/6\ST#C00>W^;H>@8['DA?"
^XMB(3.9,22,2,6383,0)="""DATA"",396.18,215,3,1642,0)"
^XMB(3.9,22,2,6384,0)="M""V%GE=;8)ZW['I=ELER6UU6R?.9D%""C[5TLD]\Z+""17(U3&+D:KU8K8WOZJS"
^XMB(3.9,22,2,6385,0)="""DATA"",396.18,215,3,1643,0)"
^XMB(3.9,22,2,6386,0)="M\&'U[7D'SY*X<NQ#YJCQH/Y0`""3Q(V&4Y(RS9#Q*$HZ`M(W)80<ZH9(#@""Z$"
^XMB(3.9,22,2,6387,0)="""DATA"",396.18,215,3,1644,0)"
^XMB(3.9,22,2,6388,0)="MCV^2Y/UZN5)A$'W,5BO\W61SSH*,FYS\_(4.4L/W1^<O7%\#J4'F+Z;9T-QY"
^XMB(3.9,22,2,6389,0)="""DATA"",396.18,215,3,1645,0)"
^XMB(3.9,22,2,6390,0)="MAK<T=B$SC\`+Y#AH[`H=[EPB8>ZR'V+ISZ7G!1>/SA8B?4CG2T(Z.!QC'P9T"
^XMB(3.9,22,2,6391,0)="""DATA"",396.18,215,3,1646,0)"
^XMB(3.9,22,2,6392,0)="M05LCW;&YG==XS`&=I_*J0\5VO9B9<.``=9""PE,PDHOO7IDAGISKC0A>'2B>&"
^XMB(3.9,22,2,6393,0)="""DATA"",396.18,215,3,1647,0)"
^XMB(3.9,22,2,6394,0)="MV7Q:&.@\42#-ITV23NM(]Q3C.5YP,.E33.=T9J7\`4CMI/^)I9WA>L#I;P""$"
^XMB(3.9,22,2,6395,0)="""DATA"",396.18,215,3,1648,0)"
^XMB(3.9,22,2,6396,0)="M.>WM""G)BI'J[]?QS4ERG%%71E;W]M<(Z2*92AG?7BW53MA]Y8""&BX>@/""%6C"
^XMB(3.9,22,2,6397,0)="""DATA"",396.18,215,3,1649,0)"
^XMB(3.9,22,2,6398,0)="M/PAPY9)8TI[OF4T7]%;C)KG.2!2^'>J]N->-\>K2N22P'9_B`)&KX#/7XXM\"
^XMB(3.9,22,2,6399,0)="""DATA"",396.18,215,3,1650,0)"
^XMB(3.9,22,2,6400,0)="ML<DW,N3R+LOQBH5T>&#\'6>D:E[*XQ@9""=-'R(R/'](BJ6:+U'EQG?XZ(0?!"
^XMB(3.9,22,2,6401,0)="""DATA"",396.18,215,3,1651,0)"
^XMB(3.9,22,2,6402,0)="M77%0-<$%^/$*D8>FPWX$OVRK?>/$^*;V9^_9)BS/<I6LZ\D%>F='0C4AY@-?"
^XMB(3.9,22,2,6403,0)="""DATA"",396.18,215,3,1652,0)"
^XMB(3.9,22,2,6404,0)="MP\/CRS,TE>=N+&<'[>@92[1N*KJ<,2^_/W-P+)!6-TE^DL*-3(4K,M3T?AY`"
^XMB(3.9,22,2,6405,0)="""DATA"",396.18,215,3,1653,0)"
^XMB(3.9,22,2,6406,0)="MZXW38NPL!!+A1OL)=]XMN#Q%X<:NJ7""#R84;0[.+52`D$GMF8""`E9#`7N^RE"
^XMB(3.9,22,2,6407,0)="""DATA"",396.18,215,3,1654,0)"
^XMB(3.9,22,2,6408,0)="MO,+<+>>_/AY7,%9Y,`@B?J!7G#HR'$G^5-;-K,R:@;/]Z\5#G$[=[UQYQBSV"
^XMB(3.9,22,2,6409,0)="""DATA"",396.18,215,3,1655,0)"
^XMB(3.9,22,2,6410,0)="M]P]K""(^7G7/Q2/FL]MYX5U(RW8W<_8;3^2+N:3!Z'U-""DR8&-CM`^T(QO""?&"
^XMB(3.9,22,2,6411,0)="""DATA"",396.18,215,3,1656,0)"
^XMB(3.9,22,2,6412,0)="M>H5IJI=#J.+346%@>.W%0&""AH4/S[@==&52EUT6R6R-^4CPTC,D!$),;OBT$"
^XMB(3.9,22,2,6413,0)="""DATA"",396.18,215,3,1657,0)"
^XMB(3.9,22,2,6414,0)="MB\!'&XB*-_.L(7<#^5\^^G4!;[)X8@,QXH2`;T[U(W?7&6\\@$D(HJ=90IGG"
^XMB(3.9,22,2,6415,0)="""DATA"",396.18,215,3,1658,0)"
^XMB(3.9,22,2,6416,0)="M^1H7+$!FA'D7UM,=E#!H2)B$98:4!1?6&`:4,F1(6;`W9=&%]:`FI<PW5#-_"
^XMB(3.9,22,2,6417,0)="""DATA"",396.18,215,3,1659,0)"
^XMB(3.9,22,2,6418,0)="M3RT#4BVS`=P`H:]MFO>X_""1PA9Q0++I+@[FK+;WQ)""WSM]B.'5MQ-K#GK.?N"
^XMB(3.9,22,2,6419,0)="""DATA"",396.18,215,3,1660,0)"
^XMB(3.9,22,2,6420,0)="MR=G!Y/N#Y""RP4UHM=H/+C:M[HNOIB8<?>0)GP]B;=L8IS6^RF;-,Y"",V_O2<"
^XMB(3.9,22,2,6421,0)="""DATA"",396.18,215,3,1661,0)"
^XMB(3.9,22,2,6422,0)="M#ZPXKP?H<3FW'T:NF`B*S7A_&[@9UYMB&TT\J9_>D1#TL\HPD@_!\L6C70*_"
^XMB(3.9,22,2,6423,0)="""DATA"",396.18,215,3,1662,0)"
^XMB(3.9,22,2,6424,0)="MSQ)),.X&`V:[7CXPH5_J/YQ15V@S<0DB8&F+0(CVM441O`U;1+:6WM$Q\/0^"
^XMB(3.9,22,2,6425,0)="""DATA"",396.18,215,3,1663,0)"
^XMB(3.9,22,2,6426,0)="ME:GK[D=[.54`NK[4W;,9`O6TP$XQ7]F*19WP#72""D!O?RM7_Z'#K]!@?O@*7"
^XMB(3.9,22,2,6427,0)="""DATA"",396.18,215,3,1664,0)"
^XMB(3.9,22,2,6428,0)="M@`]YH>!\0#\TFG%T`_>,2C!BJFV&4[W`UFF4.""Y&AIH<RFG1UEY<SLLE;:-1"
^XMB(3.9,22,2,6429,0)="""DATA"",396.18,215,3,1665,0)"
^XMB(3.9,22,2,6430,0)="M&>M;<-E#&^9'ELP?9(_MF3^MRXX/SYQ\(3Y+E^7W-!<ZEV]9#C:H=[YK[;_O"
^XMB(3.9,22,2,6431,0)="""DATA"",396.18,215,3,1666,0)"
^XMB(3.9,22,2,6432,0)="M[:\024P+SC'8QX""?OERFF(WEGKBLMXW4`>T#*3'O`A`P%,2TF)NORN(JJY:8"
^XMB(3.9,22,2,6433,0)="""DATA"",396.18,215,3,1667,0)"
^XMB(3.9,22,2,6434,0)="MJY<;)T]655G/RM7F`>!U^)Z]',1D`@Q,Y3`M:,1+:H^(8>IL5%;<E/E-2CH!"
^XMB(3.9,22,2,6435,0)="""DATA"",396.18,215,3,1668,0)"
^XMB(3.9,22,2,6436,0)="MR9K@[X6#/WCG`C)PK0*Y:R46%6%L$N^""W<=Z:8!PD`P_>U>2D,<N*6<;"",OL"
^XMB(3.9,22,2,6437,0)="""DATA"",396.18,215,3,1669,0)"
^XMB(3.9,22,2,6438,0)="MF=G%$D(TK3W[JVM2[L?'F(,B@7.XA3A9"";(PAABBDQFRSE&+>(6R%+549NXD"
^XMB(3.9,22,2,6439,0)="""DATA"",396.18,215,3,1670,0)"
^XMB(3.9,22,2,6440,0)="M@>I]ED:DAV_AY_C""\3F^'GQA&Z-P<WPH,ICC""R>9XQO,`R6Y?ISOQ%=H&^"":"
^XMB(3.9,22,2,6441,0)="""DATA"",396.18,215,3,1671,0)"
^XMB(3.9,22,2,6442,0)="M>#)<$[@;@@N9/4^M(,]#<+O@WU<-P?GR5:X<%A*WJQDBWWP(#O]OUI`[NTAP"
^XMB(3.9,22,2,6443,0)="""DATA"",396.18,215,3,1672,0)"
^XMB(3.9,22,2,6444,0)="M_'%RTV\H5HR0;5,BBGW7X@@9O)T-3]WD&U`,[6V1#`XA>[*I/>X&4-[)VX>)"
^XMB(3.9,22,2,6445,0)="""DATA"",396.18,215,3,1673,0)"
^XMB(3.9,22,2,6446,0)="M&1E`8:<[T&_2BR:Z`9A3<4<#W;MQ0E<Y3@C@V#AAZ"")AG!"",CA.ZYW'""WO@&"
^XMB(3.9,22,2,6447,0)="""DATA"",396.18,215,3,1674,0)"
^XMB(3.9,22,2,6448,0)="MJH9$A&(N`(C%?5RFS6!6^XP?01NNJYS+\+AV9RA9RF7(]*_9,JU)M[[S/4V_"
^XMB(3.9,22,2,6449,0)="""DATA"",396.18,215,3,1675,0)"
^XMB(3.9,22,2,6450,0)="M'6%!%/""T02/@JBE07#V`7*-V`A2`28/&KRG^S=DZ3\B&J..74#^29;7#<.15"
^XMB(3.9,22,2,6451,0)="""DATA"",396.18,215,3,1676,0)"
^XMB(3.9,22,2,6452,0)="M6=1-4C3#UUXG6;X9OO`W%A3[R@>L6(M\\U\'KPP""GK9W#""&A_=/;5WK^M-)["
^XMB(3.9,22,2,6453,0)="""DATA"",396.18,215,3,1677,0)"
^XMB(3.9,22,2,6454,0)="MERZ3!E]=R8.4FU7.$^CWLHF""\\'>Q\Z?&*>U+%)IRM\[IM3`C^%/\&?$_/R_"
^XMB(3.9,22,2,6455,0)="""DATA"",396.18,215,3,1678,0)"
^XMB(3.9,22,2,6456,0)="M\8\'`Q@#@_5G@EQB=U^Y>-.""1W\L9\KS=!\D8U,[!K[U/276""``RLW-3EXX["
^XMB(3.9,22,2,6457,0)="""DATA"",396.18,215,3,1679,0)"
^XMB(3.9,22,2,6458,0)="M(`8R6BF3#3JF;'XG8[G+K&E2UM[U-O#IH0W,/K+V(""0M<H:R""29>HH;C`C*N"
^XMB(3.9,22,2,6459,0)="""DATA"",396.18,215,3,1680,0)"
^XMB(3.9,22,2,6460,0)="M]T'1#7KWH@FM1&/O'^Q_:J8MK-'(%DOF?4H0\>^I<*S:T_W0]MP,""J'6OMNT"
^XMB(3.9,22,2,6461,0)="""DATA"",396.18,215,3,1681,0)"
^XMB(3.9,22,2,6462,0)="M5\V;""C]G1N#^-O75NIBI=D6@R4N;D94(8EL1A'M+P)MVV>F?7<ZG7X-\-PVD"
^XMB(3.9,22,2,6463,0)="""DATA"",396.18,215,3,1682,0)"
^XMB(3.9,22,2,6464,0)="M4-]&'2H*RWQR`HG5203%.#D2AS%@>`>KA!Y0?[55XQ@(?-M#<D""HXDU[O[_>"
^XMB(3.9,22,2,6465,0)="""DATA"",396.18,215,3,1683,0)"
^XMB(3.9,22,2,6466,0)="MU`\VPK1REP/KRV7_.,8#4R<&:GSU3V#2;D5L5NT`@7W\Z>T=?D[<&_AGE3:+"
^XMB(3.9,22,2,6467,0)="""DATA"",396.18,215,3,1684,0)"
^XMB(3.9,22,2,6468,0)="M""KMLKZ4]'`\FL6,3#-F+3Y)-A;Y)/T?HQ=/*[W66Y!M%+^=!KG;)B.S%I]?#"
^XMB(3.9,22,2,6469,0)="""DATA"",396.18,215,3,1685,0)"
^XMB(3.9,22,2,6470,0)="MG]]ASV#>_663C3RR$15?,:+B""?4/,1/O^P8S*ICW2.=A[#WAI]^B!8YD`H+0"
^XMB(3.9,22,2,6471,0)="""DATA"",396.18,215,3,1686,0)"
^XMB(3.9,22,2,6472,0)="M\V[%*?V]F.$CAOV;8I;>T6""3E02L,QH'9-4],+$(KN\N&K#+O2)KXWE`-#9M"
^XMB(3.9,22,2,6473,0)="""DATA"",396.18,215,3,1687,0)"
^XMB(3.9,22,2,6474,0)="MMN)MGA3?'FX1BFND'V^B0IHFJH!IHFJONUT35;OTQ+J)JK\K3[*O*E#U52%%"
^XMB(3.9,22,2,6475,0)="""DATA"",396.18,215,3,1688,0)"
^XMB(3.9,22,2,6476,0)="M7]461X-!L]B5]$/SOJI7286O7P%/7-[F>4_[K(SWH(TU8/F*!JR`Q?#>SAVH"
^XMB(3.9,22,2,6477,0)="""DATA"",396.18,215,3,1689,0)"
^XMB(3.9,22,2,6478,0)="MU_F%Q@U8_N$-6%#1-P9#]V""RQ_JO#EJ00VT]Z1<BVKW]@5N4P^@WUW/;IZ@'"
^XMB(3.9,22,2,6479,0)="""DATA"",396.18,215,3,1690,0)"
^XMB(3.9,22,2,6480,0)="M.Q1]FXX9I,).$C,;!C/-(P!4+PK2UKY7WT9'J6=(J2],982N#:5?-MAG6Z6'"
^XMB(3.9,22,2,6481,0)="""DATA"",396.18,215,3,1691,0)"
^XMB(3.9,22,2,6482,0)="MD.J;,M6%A]'Z>E.OBO0@M@:FM'JA`8;1""*UODR:[7A_$U]""45@E<&K3B:_;/"
^XMB(3.9,22,2,6483,0)="""DATA"",396.18,215,3,1692,0)"
^XMB(3.9,22,2,6484,0)="M/R0I6>_7:%0N+TM\D.G4;_=O78%#;$>+0A/,`!""ZVI2O=+>1K.QY-PZ8AHO0"
^XMB(3.9,22,2,6485,0)="""DATA"",396.18,215,3,1693,0)"
^XMB(3.9,22,2,6486,0)="MG(NAMS<7`3J<B^`><Q&9<W$`D6//1N]P-D*S7$J1#MGQ1^$LLWSNI#](]K\L"
^XMB(3.9,22,2,6487,0)="""DATA"",396.18,215,3,1694,0)"
^XMB(3.9,22,2,6488,0)="M^/=*_-T$`5CQ?DVD(G_W14-6#C8Z/K,AG3:BXP<[D02@U""2@`ZZ'IH5F^;`I"
^XMB(3.9,22,2,6489,0)="""DATA"",396.18,215,3,1695,0)"
^XMB(3.9,22,2,6490,0)="M9]0USIVLN$HJ98D3/L2.UREA/'RCD^E9G,Q@?P,'D62.\.]%UJ0''UATC^V>"
^XMB(3.9,22,2,6491,0)="""DATA"",396.18,215,3,1696,0)"
^XMB(3.9,22,2,6492,0)="M;\Y=V5""H&7=#%(23<=>[!]P=#UZ0*GCQPG`T>A'F1631""U([A)[2T8;\P1$<"
^XMB(3.9,22,2,6493,0)="""DATA"",396.18,215,3,1697,0)"
^XMB(3.9,22,2,6494,0)="MPH&TC=K]L^LBN\IFF*7.K,L4]"",`6-Z+%@_B&(WI6K`8'H]5>#80B,^&D,0H"
^XMB(3.9,22,2,6495,0)="""DATA"",396.18,215,3,1698,0)"
^XMB(3.9,22,2,6496,0)="MH(G[8S>K199G339S%FE2-62H.4WJ]'Q[&-P>5HG[T%)G(M'4[5H3QW0&NQO3"
^XMB(3.9,22,2,6497,0)="""DATA"",396.18,215,3,1699,0)"
^XMB(3.9,22,2,6498,0)="MMO.\*>:MO]'L!Z;RZ/3$IOT>`4L]`6A/VX+U9.+>B,T*^^II46<WZ=FZ6&N-"
^XMB(3.9,22,2,6499,0)="""DATA"",396.18,215,3,1700,0)"
^XMB(3.9,22,2,6500,0)="MJV]74T#,""7=K&)ETSL8R%!08G=O5CH0Q!_4MS_S9AOZ>EP`(W6AB.-`J.U\"""
^XMB(3.9,22,2,6501,0)="""DATA"",396.18,215,3,1701,0)"
^XMB(3.9,22,2,6502,0)="M>R-&&LUZ0\VL-UON$=`^Q*W=DEGO8))9[U><_WW+4]Y]W..IXA[H':%J`Y5Q"
^XMB(3.9,22,2,6503,0)="""DATA"",396.18,215,3,1702,0)"
^XMB(3.9,22,2,6504,0)="M#W(CY>(;G9L7&._M:M=EX3`R;1[-+#-2SS)SG`42,*+8C+6O%E59X)""HSHI9"
^XMB(3.9,22,2,6505,0)="""DATA"",396.18,215,3,1703,0)"
^XMB(3.9,22,2,6506,0)="MZGQ?I(-LVLDS&+B&#(:2D@@R'!9_L\KJ<I[63E8X*[)""""$!G23(;]:/@-.T$"
^XMB(3.9,22,2,6507,0)="""DATA"",396.18,215,3,1704,0)"
^XMB(3.9,22,2,6508,0)="M5""P`$?18+$$""WRCI!=&@#?,T5F#M&54!5PLQ""WFG&8D8LU""T'P,@[@';IVU="
^XMB(3.9,22,2,6509,0)="""DATA"",396.18,215,3,1705,0)"
^XMB(3.9,22,2,6510,0)="M_+UV7KU[ZW16ZNQ]'8S734YA9'@:XW#/TQBAP1(CNQ3TPSVDGED!>:3""(MPZ"
^XMB(3.9,22,2,6511,0)="""DATA"",396.18,215,3,1706,0)"
^XMB(3.9,22,2,6512,0)="M7KB_.0PN'NK!D%RG-A6N\=/E,A/SS,`\,RWO0+L:JV=K=,7E]L#WS6JL<'(0"
^XMB(3.9,22,2,6513,0)="""DATA"",396.18,215,3,1707,0)"
^XMB(3.9,22,2,6514,0)="MXVL""X=*GLJZ2+%]7YU36T1/EOO5-;>0?R0OSTX[T?5ZDZV5R+JX<GOX<;_.&"
^XMB(3.9,22,2,6515,0)="""DATA"",396.18,215,3,1708,0)"
^XMB(3.9,22,2,6516,0)="MTC;O8-?GW0Y*]8WX/H^6B<Z-WD*C=ZAJ]`:!M-&;[>+=7E.[C$I@WNC]:9WC"
^XMB(3.9,22,2,6517,0)="""DATA"",396.18,215,3,1709,0)"
^XMB(3.9,22,2,6518,0)="M8/#$P#-;YD$@[Y)W6=Q&R+%ON_]%<`/8`>)!JZG4CMQ[',$QSLG5#J%1QFUW"
^XMB(3.9,22,2,6519,0)="""DATA"",396.18,215,3,1710,0)"
^XMB(3.9,22,2,6520,0)="M)XTRKLND944RPS=\UFS&>""C9PCQ&=6A""=1#S8Q&1GNRV[6'5GQ4&[Y`#.3S&"
^XMB(3.9,22,2,6521,0)="""DATA"",396.18,215,3,1711,0)"
^XMB(3.9,22,2,6522,0)="MD\0FF@NV(+""]L0WT3_)EM6[6R]-3W&Y<`\KG'OK6I:[!V.?G'GC.H<!X7`,<"
^XMB(3.9,22,2,6523,0)="""DATA"",396.18,215,3,1712,0)"
^XMB(3.9,22,2,6524,0)="M$706N,%X(0+$#&*JQR73!5U&(5N'\&&?ISIR&:)<7R^4M8?[KFA3`(\#4YD#"
^XMB(3.9,22,2,6525,0)="""DATA"",396.18,215,3,1713,0)"
^XMB(3.9,22,2,6526,0)="MUTKF,;*7>3R)S,F0]JH9#H>?!;]-@!D)WM-4';W#Y(Y<,(G<_UZDZ3_I6>9\"
^XMB(3.9,22,2,6527,0)="""DATA"",396.18,215,3,1714,0)"
^XMB(3.9,22,2,6528,0)="MAMS(P+LV,@>1;R]T-(G0O[YTWOTXRYS'Z)7+O,NOAD*N51&#>)PG!Z#0#`Q8"
^XMB(3.9,22,2,6529,0)="""DATA"",396.18,215,3,1715,0)"
^XMB(3.9,22,2,6530,0)="M.9.=E-&8&R?-9(H@=6K&;$<]^A?H5$F1$<Q*831D?*Q$-E3RU/#$(-_J=@0H"
^XMB(3.9,22,2,6531,0)="""DATA"",396.18,215,3,1716,0)"
^XMB(3.9,22,2,6532,0)="MM#PQF).AI9WDV*QVBA:8@<QJR//!V2;*340?6ME*7O)=6DHC>G<2:_DE3].5"
^XMB(3.9,22,2,6533,0)="""DATA"",396.18,215,3,1717,0)"
^XMB(3.9,22,2,6534,0)="MDY`D@;XSYS'J@*?4`5JP1TR)4![)[V<TXS&CR2.L2@FD_:`>TP\J)S#B]EG`"
^XMB(3.9,22,2,6535,0)="""DATA"",396.18,215,3,1718,0)"
^XMB(3.9,22,2,6536,0)="MB,^0;)NA=LV$($2W%YS[$JT0>S^E.J'L^[S0*<%HQZ>`N#5ZOT)D>,'VZRQL"
^XMB(3.9,22,2,6537,0)="""DATA"",396.18,215,3,1719,0)"
^XMB(3.9,22,2,6538,0)="M=`7%!UVPD>[P,%.;%Y^J<KXF.;%T>***GU>[UY]JLA]Q*,]^<,N""]DE^C($^"
^XMB(3.9,22,2,6539,0)="""DATA"",396.18,215,3,1720,0)"
^XMB(3.9,22,2,6540,0)="M;&%BCK-U!]C8?#[_`;8V06GRH1OU+2/'-?F?A.S@Q*V8JAJ-'TEJ-&U-KM.`"
^XMB(3.9,22,2,6541,0)="""DATA"",396.18,215,3,1721,0)"
^XMB(3.9,22,2,6542,0)="M884F:.?$!^O/H\>^SRQ2Y&5C.>Q./YL\`#H:)&5C:%Z-Z4'AZ6+QM/CE7TG="
^XMB(3.9,22,2,6543,0)="""DATA"",396.18,215,3,1722,0)"
^XMB(3.9,22,2,6544,0)="M5""66!2F(DXTZIU:EB4(%3T=S7GY@5J-9)-=;F%<U"";$G)<%S$;NLC#,UH6M`"
^XMB(3.9,22,2,6545,0)="""DATA"",396.18,215,3,1723,0)"
^XMB(3.9,22,2,6546,0)="M0UK/JNPR=7+2>)FVG9A.5LSR]9PLI)KC<$E]QXR0[)N0S'/M;DD.34CN@55V"
^XMB(3.9,22,2,6547,0)="""DATA"",396.18,215,3,1724,0)"
^XMB(3.9,22,2,6548,0)="M_070@N:K+>PU+<S0D'.TQ#12@W&!"";W01?>%7M>(7I_G;P`,BD:=T7EV5(*A"
^XMB(3.9,22,2,6549,0)="""DATA"",396.18,215,3,1725,0)"
^XMB(3.9,22,2,6550,0)="MT;$#T3TA.(K,S`30[0&4T/N^G""7DW\^<9K-*GU%:>\KW.FWR""BZ,V3D6C\\I"
^XMB(3.9,22,2,6551,0)="""DATA"",396.18,215,3,1726,0)"
^XMB(3.9,22,2,6552,0)="M\P'*]FH;^CEEW6""O%).8#=;+.LE5@V_/=3XC\^'KZCJM>K1)J^)G'""EVAK):"
^XMB(3.9,22,2,6553,0)="""DATA"",396.18,215,3,1727,0)"
^XMB(3.9,22,2,6554,0)="MX>^A%6T5]U^_CY9O'V;YD_68(Z3+F3$.""Q='Q[YF=;'O@6D*2A^3=9TFYSS)"
^XMB(3.9,22,2,6555,0)="""DATA"",396.18,215,3,1728,0)"
^XMB(3.9,22,2,6556,0)="M'E7$R+<1N5!+THL<3I,H^ZM<9MBSO3X+?8\*8F!USON9""@NI>]-(_7665-7B"
^XMB(3.9,22,2,6557,0)="""DATA"",396.18,215,3,1729,0)"
^XMB(3.9,22,2,6558,0)="M?-0-4Z*LB$-=6CQBQ>YS=V7$B]WS>+'[<)H425+,JA1[.LVY98""U\I'IB8]M"
^XMB(3.9,22,2,6559,0)="""DATA"",396.18,215,3,1730,0)"
^XMB(3.9,22,2,6560,0)="M3CR,[.V\%TS6*X*/?)G-SY(7N\<,)!^[5J<^#JT//9PF+_HAS=/B;.G%31`&"
^XMB(3.9,22,2,6561,0)="""DATA"",396.18,215,3,1731,0)"
^XMB(3.9,22,2,6562,0)="M0O>M+GCH>=;'';D3'?>D:B[7U;GP;5K28KWYR.JP(\ZQVQ8>QPX[G,K,)_C]"
^XMB(3.9,22,2,6563,0)="""DATA"",396.18,215,3,1732,0)"
^XMB(3.9,22,2,6564,0)="M]-P3*-MR:W+B=1?\%J=F_QL>37/#_Y]D7<RSV;DO4-P[;7+B/:L3+^:=7;XD"
^XMB(3.9,22,2,6565,0)="""DATA"",396.18,215,3,1733,0)"
^XMB(3.9,22,2,6566,0)="MTL^Q[-;\3""/XM^DLR:7+?<Q4X)!J*#2UJ*%O9U%!K.6O&#5-<Y?^*\GSRSR9"
^XMB(3.9,22,2,6567,0)="""DATA"",396.18,215,3,1734,0)"
^XMB(3.9,22,2,6568,0)="MDZ]+F@8K?WV+##8V7*&=X7+Y#*XPO2*Q7--XJ+382JNK]?<TS\_9*$FGJ(D&"
^XMB(3.9,22,2,6569,0)="""DATA"",396.18,215,3,1735,0)"
^XMB(3.9,22,2,6570,0)="M6!XQOE(2ZT,4!""=6`/M>S8,.EVD<$'M6<0!_MDS2N]$DG/T=NP1TF+\\1P)"""
^XMB(3.9,22,2,6571,0)="""DATA"",396.18,215,3,1736,0)"
^XMB(3.9,22,2,6572,0)="M<]C8`A_5()O/.?[:!3Z^V)4LGV-#[A'V#D5RLGUT,-5C'6C;Q/8Q.M!09)53"
^XMB(3.9,22,2,6573,0)="""DATA"",396.18,215,3,1737,0)"
^XMB(3.9,22,2,6574,0)="M#T+=4?.%#!N<J-N<H)QGJ^1\V,P'-5@?$5BY,'S=U,2#\;R)PNZJR,XYMGTF"
^XMB(3.9,22,2,6575,0)="""DATA"",396.18,215,3,1738,0)"
^XMB(3.9,22,2,6576,0)="MLI!EP&V=8P/0[==,'OG$?TZOU]5UUIR/O+PGV4#\'K02OV#O]8>>R#^:V&W]"
^XMB(3.9,22,2,6577,0)="""DATA"",396.18,215,3,1739,0)"
^XMB(3.9,22,2,6578,0)="MD-3G?)O9]`8G?KNJ""MP""G>[2`K'FOB?B/V;>Y2S=+2R5R3B!9;TTX'OW/#VN"
^XMB(3.9,22,2,6579,0)="""DATA"",396.18,215,3,1740,0)"
^XMB(3.9,22,2,6580,0)="M\T19-:'S^XX`GO_X_#ZKFY?E#^(7]S^,-6L#E[>1KJN;>\(AJSLV;//F1X.I"
^XMB(3.9,22,2,6581,0)="""DATA"",396.18,215,3,1741,0)"
^XMB(3.9,22,2,6582,0)="M2^=?TIS0IA_$,1V[>8O5OR[S;.Y<E>6<>SU=9C_3-VOVC3S[SYJ\V/'QPSIO"
^XMB(3.9,22,2,6583,0)="""DATA"",396.18,215,3,1742,0)"
^XMB(3.9,22,2,6584,0)="MLIZRG7Q;329JT3WG<`I*^JJ()DB>XVNV&H!89L6\_-[QORRNB4""T[8%D4LV+"
^XMB(3.9,22,2,6585,0)="""DATA"",396.18,215,3,1743,0)"
^XMB(3.9,22,2,6586,0)="M92-K7/NJ#_FM1+YB.&@H.G""W>#+W9V3-'Y6`[QI(0#@]1B+PT%D$K0C&YS9]"
^XMB(3.9,22,2,6587,0)="""DATA"",396.18,215,3,1744,0)"
^XMB(3.9,22,2,6588,0)="M8""*""8)]3T(=VCUX$\;@(H($((-CK%+AG$;0.$A@7`3(10;C7*?#/(FA%@,9%"
^XMB(3.9,22,2,6589,0)="""DATA"",396.18,215,3,1745,0)"
^XMB(3.9,22,2,6590,0)="MX!F(`""&TCPC.UW$G@O'KF*(<:D40!?N((#Z+H!6!!D9!:HBX61^^;5V4@""_D"
^XMB(3.9,22,2,6591,0)="""DATA"",396.18,215,3,1746,0)"
^XMB(3.9,22,2,6592,0)="MV'N4N\?$ZT@/W^M*1L-AF\/HN,W""][;7\""""W!1_[<'BLF%L+5..!([/AL$<G"
^XMB(3.9,22,2,6593,0)="""DATA"",396.18,215,3,1747,0)"
^XMB(3.9,22,2,6594,0)="ML)D-?Y-4)S<&'LJG;=G$0L""/UH<&DY7DBS#'3A2J-U1`$@3^&..$M):$<9_I"
^XMB(3.9,22,2,6595,0)="""DATA"",396.18,215,3,1748,0)"
^XMB(3.9,22,2,6596,0)="M6R?,.62@<?V.\;[:8Z!R+^9D55])<G8G,5O:E?8#14<""#-D,>:RI[6^WC*B@"
^XMB(3.9,22,2,6597,0)="""DATA"",396.18,215,3,1749,0)"
^XMB(3.9,22,2,6598,0)="M=>\]DV1;5_;K/*`ND#0<YM0PY%T@`0`C%IU0.(T/=*]!HY`^CTWA=N6););K"
^XMB(3.9,22,2,6599,0)="""DATA"",396.18,215,3,1750,0)"
^XMB(3.9,22,2,6600,0)="M$=!A1H6^4`UPX;YI['M6L['(J']*L@'6X^NLGN&GN!XDV<DT"",$.P:=\D$G_"
^XMB(3.9,22,2,6601,0)="""DATA"",396.18,215,3,1751,0)"
^XMB(3.9,22,2,6602,0)="MFA5%UJP'KU""Q7I=F>75120[*MX-CYMMWR@;451/VCMY/V]!9VQZDML%C:AM7"
^XMB(3.9,22,2,6603,0)="""DATA"",396.18,215,3,1752,0)"
^XMB(3.9,22,2,6604,0)="MTD:Z7;:C)4^A5L?W,Q""UFZ;1G00V=U3EY!<CZ9H`_7$F`J!C(@#A-.#<K=^>"
^XMB(3.9,22,2,6605,0)="""DATA"",396.18,215,3,1753,0)"
^XMB(3.9,22,2,6606,0)="M3LU*7YMKH.CFPJH@;X!#YP]3#9X7<CATWB-/-;0;VF2I!GFP'#.]##SVJ("","
^XMB(3.9,22,2,6607,0)="""DATA"",396.18,215,3,1754,0)"
^XMB(3.9,22,2,6608,0)="M:)1JV*0GEVH(Y""$S#)DXAL?)$D)FZ,J/WNV%R^$=\$X!XA:-L0XA/>O(%YTV"
^XMB(3.9,22,2,6609,0)="""DATA"",396.18,215,3,1755,0)"
^XMB(3.9,22,2,6610,0)="MY^2`7`""R4V>N!KQ\/-WPZO2@K#P='NQX`Y<;:;V9`$VS$8<2F&(#>C]<FD#'"
^XMB(3.9,22,2,6611,0)="""DATA"",396.18,215,3,1756,0)"
^XMB(3.9,22,2,6612,0)="MR""TLL(*3T,2E@5.Z-%.S$N@R8,ALN52HS8""%QLNE#MHMU25-RA]D,*__8<3^"
^XMB(3.9,22,2,6613,0)="""DATA"",396.18,215,3,1757,0)"
^XMB(3.9,22,2,6614,0)="M\)1[@$]WPFVVCP1/?5+F^>>DN$YI0:,S8""_63=F^S2J`S!/;6H?M>R.86/25"
^XMB(3.9,22,2,6615,0)="""DATA"",396.18,215,3,1758,0)"
^XMB(3.9,22,2,6616,0)="M+TVY8I1'8FY]#M-UX(!R&TWYA:;;NTQB=*40D^-KCA5[6-LK`2EHA,!GB73O"
^XMB(3.9,22,2,6617,0)="""DATA"",396.18,215,3,1759,0)"
^XMB(3.9,22,2,6618,0)="MD$A31@;"":MC8-R.RA64<'N\#R/5->7I/Z(U-]300E``&%O3N3V+HFK+T3FC\"
^XMB(3.9,22,2,6619,0)="""DATA"",396.18,215,3,1760,0)"
^XMB(3.9,22,2,6620,0)="MLDA6*7&NZ#]X$EU^I[QPWD6A0[=7C9?5NE[(W2,%.6WH&PY#W^'B5HX<M%NY"
^XMB(3.9,22,2,6621,0)="""DATA"",396.18,215,3,1761,0)"
^XMB(3.9,22,2,6622,0)="MW>.Q>T!DV8X@$OS^L6ZZX)?T,DL6^@8&)$8*$H.()='SW""E(C`Q(C%5<Y+92"
^XMB(3.9,22,2,6623,0)="""DATA"",396.18,215,3,1762,0)"
^XMB(3.9,22,2,6624,0)="MHSB8@L1PE,0^J8O$#*_R%(<""H2#T!$(C).S/ANY@?[9B;_58NE>YV7YLK_1G"
^XMB(3.9,22,2,6625,0)="""DATA"",396.18,215,3,1763,0)"
^XMB(3.9,22,2,6626,0)="M_#>PF1ONEG[S8Y;6M=.T*5;F'6P/5\/4+$G5+DI\5R_*RRP9OHR=S^_XX?')"
^XMB(3.9,22,2,6627,0)="""DATA"",396.18,215,3,1764,0)"
^XMB(3.9,22,2,6628,0)="MY[Z]M0+]\FI51G8\]ZK*OLJR_9H,K#P'JU<);T0E!*MYB$X$9YTXGDYX4^@$"
^XMB(3.9,22,2,6629,0)="""DATA"",396.18,215,3,1765,0)"
^XMB(3.9,22,2,6630,0)="MG;P(F1*O^H[?R7U,%3PH4P5/IPJWM=9>K`4KE]HKZ\&#BO#8#OO1JK`LCAH3"
^XMB(3.9,22,2,6631,0)="""DATA"",396.18,215,3,1766,0)"
^XMB(3.9,22,2,6632,0)="M4B07DNCE'""*E\""RE$2GY9N856-RXP,BZ>CXO+)(7NOT;]W6YQG_'^2NKA^L3"
^XMB(3.9,22,2,6633,0)="""DATA"",396.18,215,3,1767,0)"
^XMB(3.9,22,2,6634,0)="MR1LI`<ZM,0DW6;U.<B>9K7=[#.A'WI?8"")=7V.!6#?G?[H-769K/;\5^NI/>"
^XMB(3.9,22,2,6635,0)="""DATA"",396.18,215,3,1768,0)"
^XMB(3.9,22,2,6636,0)="MJ=#F3CU$ZMY9ZC921\>0NKH[2CJOQ67-H<>GK02LMIC#PMM!,CRB!G%/7[-%"
^XMB(3.9,22,2,6637,0)="""DATA"",396.18,215,3,1769,0)"
^XMB(3.9,22,2,6638,0)="MLIHM'-9L8Z9HV]8H=YG-%B7O,1=M@:(`Y,N+MA$S;<(/O45HGZ(M/G8SK$6G"
^XMB(3.9,22,2,6639,0)="""DATA"",396.18,215,3,1770,0)"
^XMB(3.9,22,2,6640,0)="M5[KU8WD1+62Z,0)N8U""?!#):R?03#3A^HJMA$F4G[ZEU0T/Y]BCHCC%6V!8D"
^XMB(3.9,22,2,6641,0)="""DATA"",396.18,215,3,1771,0)"
^XMB(3.9,22,2,6642,0)="MJTYNM;++E3ZIGUKN,VH+'D!9?('L?JM(5WSQC(LOZ.#>7NG`-Z>ND7;&;[?<"
^XMB(3.9,22,2,6643,0)="""DATA"",396.18,215,3,1772,0)"
^XMB(3.9,22,2,6644,0)="M:'=]^1=\0>7O1=:DYZFS<>RGWH.,E7V9K,[ST@%ZZ1`G$MX2F,7;I,FND\LL"
^XMB(3.9,22,2,6645,0)="""DATA"",396.18,215,3,1773,0)"
^XMB(3.9,22,2,6646,0)="M'[J%%U1!DSS[!__E[VGR#?-[4/S$\IT[F-8RQQ\J9FSG9""-_Y_>B+I?%(&5S"
^XMB(3.9,22,2,6647,0)="""DATA"",396.18,215,3,1774,0)"
^XMB(3.9,22,2,6648,0)="M\2G)5QWR5#W\W-9C;199-=P>OWL'*TF1L/OA_V\V+]*-4^/#E3H++)2R&CS."
^XMB(3.9,22,2,6649,0)="""DATA"",396.18,215,3,1775,0)"
^XMB(3.9,22,2,6650,0)="MFW8)(?5S%YM5>9UO9NER2,SP$]_2IDQFV;RLLP%A3!II$L`.,%U+)]""AV/C<"
^XMB(3.9,22,2,6651,0)="""DATA"",396.18,215,3,1776,0)"
^XMB(3.9,22,2,6652,0)="MY#9?N_<-NB`FZNGLG9$[WHH+99YM:\:ZC1F,8]N^LPL@VAE):\>V-^IWZ>L"""
^XMB(3.9,22,2,6653,0)="""DATA"",396.18,215,3,1777,0)"
^XMB(3.9,22,2,6654,0)="M:U]WX*7I/5ZH\BGDSIH;CDQ$`K'C2>WQ=F;N]-Q<N3/&-NCTG-HAT:DVC_8)"
^XMB(3.9,22,2,6655,0)="""DATA"",396.18,215,3,1778,0)"
^XMB(3.9,22,2,6656,0)="MR#C:`M&I/=^>FS\]G'DLJP63GF?`76%/ZF/LQ&O9%9HH(X^*&046(5>28W_C"
^XMB(3.9,22,2,6657,0)="""DATA"",396.18,215,3,1779,0)"
^XMB(3.9,22,2,6658,0)="M.DOK7V\ON@*W.CRI@$4&+HMTP""N=2>>8@(O\L.8GH\-!I^E`GX2[D(7NW(N["
^XMB(3.9,22,2,6659,0)="""DATA"",396.18,215,3,1780,0)"
^XMB(3.9,22,2,6660,0)="M#W<P]8B0V,&X]^EQF#6<X0PT<""D!B/V)]I)@3\KYQ7FUR/)<[7:>.%:F\8(4"
^XMB(3.9,22,2,6661,0)="""DATA"",396.18,215,3,1781,0)"
^XMB(3.9,22,2,6662,0)="M37LP=YB09BX>\1GW$$73@""!_2'+B=#]6^9H""'0-H<XJ%W1P&ISB<9B<T_8-?"
^XMB(3.9,22,2,6663,0)="""DATA"",396.18,215,3,1782,0)"
^XMB(3.9,22,2,6664,0)="MOJ=)\VC/L""G<+7""M#K$@Y%`O9#3-(7Z=_?,/20L^6A&/H\6!4)9(YD(6P-ED"
^XMB(3.9,22,2,6665,0)="""DATA"",396.18,215,3,1783,0)"
^XMB(3.9,22,2,6666,0)="M)'3O]S.`VX`0A#U>P2-*#P?CO`X,>,UC(XJ\#L6</7I\K!Z'?PL-U!H(XX0"""
^XMB(3.9,22,2,6667,0)="""DATA"",396.18,215,3,1784,0)"
^XMB(3.9,22,2,6668,0)="MJWL<J#Z;&;MG&$I^3EMS=0!@XQ\`?E(1""$56_O+`4IEHP_""[MF!`DO]]*N&6"
^XMB(3.9,22,2,6669,0)="""DATA"",396.18,215,3,1785,0)"
^XMB(3.9,22,2,6670,0)="M[A%PW^X1?8]'+$F$MZ,OG5?@,0B`;9%W-QS1XI18),+O6V[;,*N-%/DP@.39"
^XMB(3.9,22,2,6671,0)="""DATA"",396.18,215,3,1786,0)"
^XMB(3.9,22,2,6672,0)="MV8C=$\(=#PAC\[SVY[3.YFM,%-'HCVFYRI-Z>2K);>@I6@T`FZSAC;X^_[HK"
^XMB(3.9,22,2,6673,0)="""DATA"",396.18,215,3,1787,0)"
^XMB(3.9,22,2,6674,0)="M-6([X""R3/+LN$DQ6T7'0622U<YFFA=-4.)I(Y\^<JW6>;YSY(!'I5/CH.?_5"
^XMB(3.9,22,2,6675,0)="""DATA"",396.18,215,3,1788,0)"
^XMB(3.9,22,2,6676,0)="M?U<KB(L'DH(T3X5WJ3-?M6<N8/T=I)MIW>JW?L\<.+BK`DDAT]A5'CYW`%$@"
^XMB(3.9,22,2,6677,0)="""DATA"",396.18,215,3,1789,0)"
^XMB(3.9,22,2,6678,0)="M5$?""F(=,BWO<WD?D(>A+IY'DQ@AW%P8<WA=A&V(.VN`?2D?@9#>)I[I)7#D$"
^XMB(3.9,22,2,6679,0)="""DATA"",396.18,215,3,1790,0)"
^XMB(3.9,22,2,6680,0)="M)1>E^WPWFV]^D[Q9KO)R0RI1SCNFJ^+!7R.`G_0=ZF6OF7QG,!+0K6""@O$;:"
^XMB(3.9,22,2,6681,0)="""DATA"",396.18,215,3,1791,0)"
^XMB(3.9,22,2,6682,0)="M<F@YFZW;G8I)OFU-<>JLF*7.?(L]YCSYGN'OG^-+I7[JD,TQY/WA->+@""ZAQ"
^XMB(3.9,22,2,6683,0)="""DATA"",396.18,215,3,1792,0)"
^XMB(3.9,22,2,6684,0)="MTA_)TLFN2&],[>#_2_!M<Y.EW^D;S\<B%JL*)U""`C80:3$E?7[-[E:SK]`EY"
^XMB(3.9,22,2,6685,0)="""DATA"",396.18,215,3,1793,0)"
^XMB(3.9,22,2,6686,0)="M2/P4&98TMO&-<U652^=[67USLJ)]4@!_7F)9+IP5%G\Y_]6RYZ][C-#@,?C*"
^XMB(3.9,22,2,6687,0)="""DATA"",396.18,215,3,1794,0)"
^XMB(3.9,22,2,6688,0)="M8R_SL<?X*B%]OFY1XR3D'U,TD0*PEWTJE^^+\%V#@NJZHHI*A#-;5^1`.6EO"
^XMB(3.9,22,2,6689,0)="""DATA"",396.18,215,3,1795,0)"
^XMB(3.9,22,2,6690,0)="M`?:406P@`Y[:V$""3OFY6*2%T1^!>](6N""3\#3M=C`VZ^ZCBX,P#[$0@,[!3'"
^XMB(3.9,22,2,6691,0)="""DATA"",396.18,215,3,1796,0)"
^XMB(3.9,22,2,6692,0)="M/['M6R3O3SKGP1$W1@?4TX$0?YA\9%''+ZG!7%4E9@\^5,0D,M;S:EW,R#_Q"
^XMB(3.9,22,2,6693,0)="""DATA"",396.18,215,3,1797,0)"
^XMB(3.9,22,2,6694,0)="M,=M/&4,#@P`C/O0""4/\,GUJB:VR0<Q(:.$VY#^W6_C>,Y?XWXCH#HB/ZWP<Y"
^XMB(3.9,22,2,6695,0)="""DATA"",396.18,215,3,1798,0)"
^XMB(3.9,22,2,6696,0)="MX#0Q1,:QB!W;_L""2SD+>0SXK'0J)HFW/-K/9M,DJS%M\EZZ+UD2D\S&^#Q_0"
^XMB(3.9,22,2,6697,0)="""DATA"",396.18,215,3,1799,0)"
^XMB(3.9,22,2,6698,0)="M56)9@#!2X6T$@6Z$+/+,L""Q>8P4BEJVBSS""P;'N`;X`(*`B..9B&6(`S`6;D"
^XMB(3.9,22,2,6699,0)="""DATA"",396.18,215,3,1800,0)"
^XMB(3.9,22,2,6700,0)="MTBO]>/1""%8-=CK^Q`,`""0&R#P#([)N$0ABJ8$Y>#F^AG#(;7LR'ELBMZJ^""'"
^XMB(3.9,22,2,6701,0)="""DATA"",396.18,215,3,1801,0)"
^XMB(3.9,22,2,6702,0)="M/D!LIBE0POAMCEU'_N<TJ4OLU%]G-VGA7`U.YX'$(]>,>`#%X>O`$&/FRRJ="
^XMB(3.9,22,2,6703,0)="""DATA"",396.18,215,3,1802,0)"
^XMB(3.9,22,2,6704,0)="M95<;9YG.22#L/%DM-C7YU]/MG54?\@2J@PIB5_\,""-D]PZK>S!99TF![?1CQ"
^XMB(3.9,22,2,6705,0)="""DATA"",396.18,215,3,1803,0)"
^XMB(3.9,22,2,6706,0)="M?!5`U>NC/L<""@@UP14P=)!FUC;T=?(6J(#!2$I`5!1A>_5X[-VE#)ADZ""S'_"
^XMB(3.9,22,2,6707,0)="""DATA"",396.18,215,3,1804,0)"
^XMB(3.9,22,2,6708,0)="MK?][0EE`.>T[-K@[3-,SB7K97+1""`&_F64/+N^0?NDL)""?!%(!:/+@0R9FNA"
^XMB(3.9,22,2,6709,0)="""DATA"",396.18,215,3,1805,0)"
^XMB(3.9,22,2,6710,0)="M!\0<G78F.QP9RN9.;B`H/9)8G<%+`]*C6Q_)?I-GUQD9RK[<.`D.\+&EFP],"
^XMB(3.9,22,2,6711,0)="""DATA"",396.18,215,3,1806,0)"
^XMB(3.9,22,2,6712,0)="M-PD8AY+_P)N4[:%\*O^4>'J?W@WF""9P*\P1ZG@+TA+,?T`V,%,.5*49\AM/8"
^XMB(3.9,22,2,6713,0)="""DATA"",396.18,215,3,1807,0)"
^XMB(3.9,22,2,6714,0)="M&TZ#M_RASO(CO1L4BU<Q\B2""\V_-\N^B!^=RW3A%V=SM93`.S?:J7%Z6V)0&"
^XMB(3.9,22,2,6715,0)="""DATA"",396.18,215,3,1808,0)"
^XMB(3.9,22,2,6716,0)="MM)&K^T'KCX:B0Q=X9K>""K\4X41A/$2=MG#OO*434`DL$.)LTJ8:L`B3:AO1E"
^XMB(3.9,22,2,6717,0)="""DATA"",396.18,215,3,1809,0)"
^XMB(3.9,22,2,6718,0)="MAH60O.Z+K_OD=>""*;^#7R#=)WOE05FG[Y_MWGQK8,%]NP[BK#;FAB0GS`ID`"
^XMB(3.9,22,2,6719,0)="""DATA"",396.18,215,3,1810,0)"
^XMB(3.9,22,2,6720,0)="M_+,)&S%AD8&0`B,A`1''L$\2#N\9V2D)SK!-8T)""!D)20:`)P9%$3&%@**;H"
^XMB(3.9,22,2,6721,0)="""DATA"",396.18,215,3,1811,0)"
^XMB(3.9,22,2,6722,0)="M+*81,7F&D#M>+""NOLTE6GVL=1D+5!49""^]=Y,;%15R3T7:T`0(QT`D""N((#P"
^XMB(3.9,22,2,6723,0)="""DATA"",396.18,215,3,1812,0)"
^XMB(3.9,22,2,6724,0)="MO!]=UP'<>V!0\,""D<A""Z4\6#(,!#Q,'H>FBIQR6Z]>KN07?7.SATN[ZGZ2YH"
^XMB(3.9,22,2,6725,0)="""DATA"",396.18,215,3,1813,0)"
^XMB(3.9,22,2,6726,0)="MO>!_AO3G0=LAXE_P^!=\_H6`?R'D7XCX%V+^!>S#\:\`X16!6""!0""P1R@4`O"
^XMB(3.9,22,2,6727,0)="""DATA"",396.18,215,3,1814,0)"
^XMB(3.9,22,2,6728,0)="M$`@&`L5`(!D(-$.!9BC0#`6:H4`S%&B&`LU0H!D*-$.!9BC0C`2:D4`S$I5"""
^XMB(3.9,22,2,6729,0)="""DATA"",396.18,215,3,1815,0)"
^XMB(3.9,22,2,6730,0)="MH!D)-"".!9B30C`2:D4`S$FCV!)H]@69/H-D3-5F@V1-H]@2:/8%F3Z#9$VCV"
^XMB(3.9,22,2,6731,0)="""DATA"",396.18,215,3,1816,0)"
^XMB(3.9,22,2,6732,0)="M!9I]@69_2_-3O5U""9G8)\NL$?0.[%()#[)(>K&:=YZ1I9`@B4S4_LR]]2?.K"
^XMB(3.9,22,2,6733,0)="""DATA"",396.18,215,3,1817,0)"
^XMB(3.9,22,2,6734,0)="MG[F*'WV95![Z(6<V23;*L3A6<8QONA!X%ACPS(.'\,S3\4P9-\NC9GG,K(B8"
^XMB(3.9,22,2,6735,0)="""DATA"",396.18,215,3,1818,0)"
^XMB(3.9,22,2,6736,0)="M5?&R,EH><5GD.(TL@P4L)9&_4.0O.OLL=D.`4+,`$HUAN@$?:B9YB4RFP0H:"
^XMB(3.9,22,2,6737,0)="""DATA"",396.18,215,3,1819,0)"
^XMB(3.9,22,2,6738,0)="MI.VZVFB^<;:FX)97_K1:#;6.N.=J_3]Q#B;T'G.;L9S52,MJY,7:F`>)NGJ>"
^XMB(3.9,22,2,6739,0)="""DATA"",396.18,215,3,1820,0)"
^XMB(3.9,22,2,6740,0)="M!!L`0HR#XM&F'CDJ'AO^Q[Y6$A*KX=T2*-Z+NLZN""_P'YMG554I[+.;K)AM:"
^XMB(3.9,22,2,6741,0)="""DATA"",396.18,215,3,1821,0)"
^XMB(3.9,22,2,6742,0)="M@QVR\JPL9O@3%8=(]QK_:C9;Y\W&N<+L+;^3WM""LJ)MJ/1,P[Y+5JBI7548:"
^XMB(3.9,22,2,6743,0)="""DATA"",396.18,215,3,1822,0)"
^XMB(3.9,22,2,6744,0)="M?R[317*3E94,^2ZYK/&?2M.L'^=A(?.2:IZQ6'WD1%0;;I7QIY*T&)>S+,D)"
^XMB(3.9,22,2,6745,0)="""DATA"",396.18,215,3,1823,0)"
^XMB(3.9,22,2,6746,0)="M6A\VF#.6^.G![J)#P.Y4<P:>=&,L5(VFA8#=&(M:S7@L&&V&TP>^""M<I4DP?"
^XMB(3.9,22,2,6747,0)="""DATA"",396.18,215,3,1824,0)"
^XMB(3.9,22,2,6748,0)="M(*;SD,?2]4+SZ8-MO?N/55:0M[ZLE\OD)$80ML!#GJ)[$W#MO>`PY""&QF>2`"
^XMB(3.9,22,2,6749,0)="""DATA"",396.18,215,3,1825,0)"
^XMB(3.9,22,2,6750,0)="MZ2GHRVY:Y++]IBS!02#TFPK@<J&''B&6`-!;-1FF>KL_?,CLGM6=%>M5HQNH"
^XMB(3.9,22,2,6751,0)="""DATA"",396.18,215,3,1826,0)"
^XMB(3.9,22,2,6752,0)="M.ENUH54+5%8-R:U:/S\AM6I(V-=N8=6>?""SQM8_CZ#<_DB76M^KIJ<Q8>4@."
^XMB(3.9,22,2,6753,0)="""DATA"",396.18,215,3,1827,0)"
^XMB(3.9,22,2,6754,0)="ME1@%;(,WOWXA!N9#5E_)*!2F*W&6.&;$WI.#V=LUX%]EC8,]&6>65;/ULFX("
^XMB(3.9,22,2,6755,0)="""DATA"",396.18,215,3,1828,0)"
^XMB(3.9,22,2,6756,0)="M)#&=B28OUK03,AL.6<V<*OW/.JV;Y\Y7_(D\*:[7M'GKROF)-@O/23L79G65"
^XMB(3.9,22,2,6757,0)="""DATA"",396.18,215,3,1829,0)"
^XMB(3.9,22,2,6758,0)="MUM@IPJ__U/_593EGONLJPY\F#:YE)^;NJVOGDOIJ^)7D^KI*;JC?N!T0L@.B"
^XMB(3.9,22,2,6759,0)="""DATA"",396.18,215,3,1830,0)"
^XMB(3.9,22,2,6760,0)="M1+X!>_L5QKLKV`!V/7GJ_'_M?S![F6=/=D^__0C]SX6.V,""$6!CI!NXDQ%X."
^XMB(3.9,22,2,6761,0)="""DATA"",396.18,215,3,1831,0)"
^XMB(3.9,22,2,6762,0)="MB5V2J:P\^Y;BV/\XA(<FA$<\EP.#,;)T2#AI+5(1;$5O9$)OP(T,>;[%@/Q\"
^XMB(3.9,22,2,6763,0)="""DATA"",396.18,215,3,1832,0)"
^XMB(3.9,22,2,6764,0)="M2'=.,HP=PY/V,9[D?=;1=W_Q7=JDV*&,/\4/.3PH1WC@V.2!/:[0YGF!^0//"
^XMB(3.9,22,2,6765,0)="""DATA"",396.18,215,3,1833,0)"
^XMB(3.9,22,2,6766,0)="MA@^<8/U*R91?PC^W\T3ZN&L&$>#0QU7@'W!&E3_UR+.0[U7_N+]C\HNVZ:TN"
^XMB(3.9,22,2,6767,0)="""DATA"",396.18,215,3,1834,0)"
^XMB(3.9,22,2,6768,0)="M\?V^'3VMURD=T""K7[5O8N\'Q+;:Y2QPO.\/')79VG9N,F'F!B3V+^)'<&)D_"
^XMB(3.9,22,2,6769,0)="""DATA"",396.18,215,3,1835,0)"
^XMB(3.9,22,2,6770,0)="MV""<B.&S[&Q)I;[`/2,/W?$T6)]4._A_\$`1""OKLC=I%[GEXG>;YA1G*K=%9>"
^XMB(3.9,22,2,6771,0)="""DATA"",396.18,215,3,1836,0)"
^XMB(3.9,22,2,6772,0)="M%Q0D?[6H\/=V^+-C3Z@P@NP^(OX^%%8&C-R';S(ZV]*0Z<CN`9>K/""431=U%"
^XMB(3.9,22,2,6773,0)="""DATA"",396.18,215,3,1837,0)"
^XMB(3.9,22,2,6774,0)="M1&+_-IK'QQ-?E<MVAI4*-F?N,*SBV94S3$Z0I2;]%]);E'""2S&X\(]]++L&K"
^XMB(3.9,22,2,6775,0)="""DATA"",396.18,215,3,1838,0)"
^XMB(3.9,22,2,6776,0)="M#?Y2>B!25NN)WF^O/O*KV[OV8J_!-U>QSP-RP!,ANIO02;DA2>+,HP%ZCL^@"
^XMB(3.9,22,2,6777,0)="""DATA"",396.18,215,3,1839,0)"
^XMB(3.9,22,2,6778,0)="M(02>?W;FM<Y\J!P^EOOR;(:"";\`(+3(474:""V(MN`M1I)VRRF?.ZQ$XGIGR8"
^XMB(3.9,22,2,6779,0)="""DATA"",396.18,215,3,1840,0)"
^XMB(3.9,22,2,6780,0)="M&'SX.8M0<>QB=H-$I#MV6XR*6\![`4A>6V1L+I=A""0!_JT`>)0Z$/@K/<""\2"
^XMB(3.9,22,2,6781,0)="""DATA"",396.18,215,3,1841,0)"
^XMB(3.9,22,2,6782,0)="M$Q?HEL""U([S]_>;&9R.G-7*1PLA%0+$F@W5__0/V9'QN04:PD?N,79YJ/@V<"
^XMB(3.9,22,2,6783,0)="""DATA"",396.18,215,3,1842,0)"
^XMB(3.9,22,2,6784,0)="ME7_[""8I(CFD0L3@G@$]/&&`_G,+ZAL[@NRJ$KV@4T50<TP>F%O^@O6ELXX*G"
^XMB(3.9,22,2,6785,0)="""DATA"",396.18,215,3,1843,0)"
^XMB(3.9,22,2,6786,0)="M6WS$7`)<?1A$`@Y)#Y[4(^`&$9P(E[S+$W9GKCN%6_""(D>KE39+EI$!*O?7V"
^XMB(3.9,22,2,6787,0)="""DATA"",396.18,215,3,1844,0)"
^XMB(3.9,22,2,6788,0)="MMX:=4.S['W%L)WZ&O-I_;G1=TCC[?0V>M!L?@?_N-/Q_Y;S-,)/NCNW,RY_;"
^XMB(3.9,22,2,6789,0)="""DATA"",396.18,215,3,1845,0)"
^XMB(3.9,22,2,6790,0)="M:*E-'OSU\H5U,PKPI%X0BSH9<5DA%/'IMS`0!0`N'G$SE=(+\F5>4%M&Z-2="
^XMB(3.9,22,2,6791,0)="""DATA"",396.18,215,3,1846,0)"
^XMB(3.9,22,2,6792,0)="MP4F->-P[]-AQ[V+%K:V(ZEC\1@CYO8O0W.'98J8ZI^+H0#G//#:S)JS],P`^"
^XMB(3.9,22,2,6793,0)="""DATA"",396.18,215,3,1847,0)"
^XMB(3.9,22,2,6794,0)="M>ITEUP59E4AS9NLE?OPGZ8]DUCS5Y,+""R(`DX""'3)642`)UY3]N3Y?*7#?Z/"
^XMB(3.9,22,2,6795,0)="""DATA"",396.18,215,3,1848,0)"
^XMB(3.9,22,2,6796,0)="MEJC8A""@AUP\#,[RRFMI^""O-'V45@9""FXXI.,9""'G)--8KZOKM-)2&KD&E,*`"
^XMB(3.9,22,2,6797,0)="""DATA"",396.18,215,3,1849,0)"
^XMB(3.9,22,2,6798,0)="M/P4""'A>4K%PDXJ-4$B(IGEU2-%D'@XOMX9#P^?R9LUP^<W;</0;,7:SJ+8'C"
^XMB(3.9,22,2,6799,0)="""DATA"",396.18,215,3,1850,0)"
^XMB(3.9,22,2,6800,0)="MC^=Z^L=[/7RPP9,P*G*4AP`&(D+0W>/4=7GL'GBX?XP+C3?OJ;QYG_.$75W^"
^XMB(3.9,22,2,6801,0)="""DATA"",396.18,215,3,1851,0)"
^XMB(3.9,22,2,6802,0)="M)C#UYL,C+I+2^).(N0+XB@\(^,C-X]K%`0(`3=*:_'=2TZ1W:R%[;&FQ*1G9"
^XMB(3.9,22,2,6803,0)="""DATA"",396.18,215,3,1852,0)"
^XMB(3.9,22,2,6804,0)="M-B7W__ZS^%:4WPLK;YTV]`#IO""9G\USNJ$$A@8`BGIEN'#WFAAX94@]D@'KD"
^XMB(3.9,22,2,6805,0)="""DATA"",396.18,215,3,1853,0)"
^XMB(3.9,22,2,6806,0)="MK`ZTK.;'2+#>NNZ%1<<_#0@,Q`[=4$>+CT1:'J'8T:C8Z6(EC=Q[7+7=30`,"
^XMB(3.9,22,2,6807,0)="""DATA"",396.18,215,3,1854,0)"
^XMB(3.9,22,2,6808,0)="MY.X9HAIZHP0B&7U<*Z=(H)@DEQ`8&!+HCVLKU&LK0EIM]0+12`6/>8.1LNM0"
^XMB(3.9,22,2,6809,0)="""DATA"",396.18,215,3,1855,0)"
^XMB(3.9,22,2,6810,0)="MMN\Z&$2O3-.A#]@4OM>U5I]3^$.FNZJV`.`K""I6,>O/8NF(#BSJB?5?6JZS!"
^XMB(3.9,22,2,6811,0)="""DATA"",396.18,215,3,1856,0)"
^XMB(3.9,22,2,6812,0)="M;L<_'099Y7QI`XU3""7$]1;778UJI?8^/&`P`BK?,H]';^W)FU,P""0@-R8B[?"
^XMB(3.9,22,2,6813,0)="""DATA"",396.18,215,3,1857,0)"
^XMB(3.9,22,2,6814,0)="MUK<KZ,+;7YW7R>:9\X&""C!.R_CM-*M*M\7^)#TC$^X*T;?S(EB3:(;^AI3<R"
^XMB(3.9,22,2,6815,0)="""DATA"",396.18,215,3,1858,0)"
^XMB(3.9,22,2,6816,0)="MH!>@4'='20AN43\)44T'VET/=&^,IMB`)C[3XX'8O%WF+28J368+!]LETL1R"
^XMB(3.9,22,2,6817,0)="""DATA"",396.18,215,3,1859,0)"
^XMB(3.9,22,2,6818,0)="ME>5D)H;ZZM2=QC]<D>W(Y!>?.63ZIG)^ZESMGYRK88L+_JK!AVE#6/L51#ZK"
^XMB(3.9,22,2,6819,0)="""DATA"",396.18,215,3,1860,0)"
^XMB(3.9,22,2,6820,0)="M=;UH.V;6E\NL(6!B3=\68-?V""5T3KO""9$VC223GH9R""[;!:LU6C3%V:RPV&L"
^XMB(3.9,22,2,6821,0)="""DATA"",396.18,215,3,1861,0)"
^XMB(3.9,22,2,6822,0)="ME$H$.1P2'JC>#?61YO_C?*I(A^&7EI=-Z23S.1$.OEUK\B-A-#LM8M=>%`>*"
^XMB(3.9,22,2,6823,0)="""DATA"",396.18,215,3,1862,0)"
^XMB(3.9,22,2,6824,0)="M-@<.5IN??A6[BZ);""9.)ZQ9*74R&VR$_;&K@P+E1>&$=44I'1#A3XL9[$!/#"
^XMB(3.9,22,2,6825,0)="""DATA"",396.18,215,3,1863,0)"
^XMB(3.9,22,2,6826,0)="MB_/@-L?LT(#9/N*-9*`9?<7.O?\(/6-/VWCHJ[;%1Z.&S<0TM/;L0NZN'[KD"
^XMB(3.9,22,2,6827,0)="""DATA"",396.18,215,3,1864,0)"
^XMB(3.9,22,2,6828,0)="M7M&Y!:![,-VO\AVRA`@T=!C9D6)$CNV9#4+[?K-MPNRX'6=;NF,CNH%[3,+1"
^XMB(3.9,22,2,6829,0)="""DATA"",396.18,215,3,1865,0)"
^XMB(3.9,22,2,6830,0)="MP<-]U`O4&!,8N#IC$D=BK]PC3`I%^BJQK!^X6_:XW90Z#+1AS,XL=PT18J""]"
^XMB(3.9,22,2,6831,0)="""DATA"",396.18,215,3,1866,0)"
^XMB(3.9,22,2,6832,0)="M8][[;)D^D``9J)Q)>24E9BTN%]J9=+A]^OS'IS>?O_[^YLO)[#63N]WLY>1Q"
^XMB(3.9,22,2,6833,0)="""DATA"",396.18,215,3,1867,0)"
^XMB(3.9,22,2,6834,0)="M(9-OT-*&E9Q,2?PO`,!#V68YPB5Y?=%CO/N`SQ4@@[54K<']FOYH_A>UNDF^"
^XMB(3.9,22,2,6835,0)="""DATA"",396.18,215,3,1868,0)"
^XMB(3.9,22,2,6836,0)="M'?B\T!J#4+8G$>Q,0<""DW%KO>%#+`H^\8:2MFTBDK1A#[5M""MK.'7,"",+%ID"
^XMB(3.9,22,2,6837,0)="""DATA"",396.18,215,3,1869,0)"
^XMB(3.9,22,2,6838,0)="MA>[_4UN7J$@Z(+8+%(7W,IP'""B<R'B=>='VAJ>M[#!=2X4'"",#R8:E6@@0XG"
^XMB(3.9,22,2,6839,0)="""DATA"",396.18,215,3,1870,0)"
^XMB(3.9,22,2,6840,0)="M&P)%G!$=@]F[U,D#V*4L[LG8C[&=NUG^('=[_P.KR6.88K[0%H.V405Q77MO"
^XMB(3.9,22,2,6841,0)="""DATA"",396.18,215,3,1871,0)"
^XMB(3.9,22,2,6842,0)="M]OGGI+A.J2Q<V=M?*\P_TJ,T;'MXL6[*]B/*AU?O4^,GV`>)-A;6.T;BLB_7"
^XMB(3.9,22,2,6843,0)="""DATA"",396.18,215,3,1872,0)"
^XMB(3.9,22,2,6844,0)="M;.71UC1?IH3T>=HD69[V&T6GP/0&4DQOF3HI4;U5*C6V0@HI-Y`!#B,=""1CI"
^XMB(3.9,22,2,6845,0)="""DATA"",396.18,215,3,1873,0)"
^XMB(3.9,22,2,6846,0)="MG@?%A0^2U1@#</&OK5U."">Y6XZS*NB8+;YX-FI($Z`62/LZ*K""'`4\M!ZAQ_"
^XMB(3.9,22,2,6847,0)="""DATA"",396.18,215,3,1874,0)"
^XMB(3.9,22,2,6848,0)="M6U)D5VG=='GF\LIY\^+5.[(AES8ZT=3ZO]?59B<VR0V@88]J=5\_,JI6-M,5"
^XMB(3.9,22,2,6849,0)="""DATA"",396.18,215,3,1875,0)"
^XMB(3.9,22,2,6850,0)="M8=O>LC\*K$P3:AB\&PWS5%O6(+_;)1""V>L6&QY4$[V1$FVY(+@=\'""5,M340"
^XMB(3.9,22,2,6851,0)="""DATA"",396.18,215,3,1876,0)"
^XMB(3.9,22,2,6852,0)="M\1NPH""^LP(H""(]6_^)+-L;I?7>$_7K<ST]L-?'W[W6^Z!0+66NLAPT,=^(+6"
^XMB(3.9,22,2,6853,0)="""DATA"",396.18,215,3,1877,0)"
^XMB(3.9,22,2,6854,0)="MAI'-.D1N9FGT*,7*+9@>SVY!$:+8C-VO>.;6%$^%5NMF93'/&,PZ>\:J]NU!"
^XMB(3.9,22,2,6855,0)="""DATA"",396.18,215,3,1878,0)"
^XMB(3.9,22,2,6856,0)="M;CV.!X35F%""RH4YN#[:VL-;KSO%5QS=\0A2$XD)!U_()A>>IC_]`D:<TX?R2"
^XMB(3.9,22,2,6857,0)="""DATA"",396.18,215,3,1879,0)"
^XMB(3.9,22,2,6858,0)="M2E]8%Q<@,[W[G-8K8G=HX#&=<"")3Z7B2]4P@M)3.BFEVK@\X-H%R325W!_@"""
^XMB(3.9,22,2,6859,0)="""DATA"",396.18,215,3,1880,0)"
^XMB(3.9,22,2,6860,0)="MV1`9;CE%S_%WB)Y%6WTGA6F""'4'W^PX*[L]/SZ/S(E-F!\(N-0A-]_?2B$1H"
^XMB(3.9,22,2,6861,0)="""DATA"",396.18,215,3,1881,0)"
^XMB(3.9,22,2,6862,0)="M32#J7R<]XHO(YS'""?61*.`KVWL<*GSL=+.F*<?&3^9RD$]+Y""6H$BHQ5`@I."
^XMB(3.9,22,2,6863,0)="""DATA"",396.18,215,3,1882,0)"
^XMB(3.9,22,2,6864,0)="M/@P-SQ]X[OQ^Y10I`6UYMD6+Z=0""_U]._F*7I2$W,KZ*>Q'DV0[2Y:3X'AO;"
^XMB(3.9,22,2,6865,0)="""DATA"",396.18,215,3,1883,0)"
^XMB(3.9,22,2,6866,0)="M/9[MON'>[]]%=.!QGU?IP?C\4BQ7W.YM:HF-*%&YWSY/1[0G'="",#I79X=?@"
^XMB(3.9,22,2,6867,0)="""DATA"",396.18,215,3,1884,0)"
^XMB(3.9,22,2,6868,0)="M[DL&,""%#+1>7OR%%O\LS]2RS.;79;5A,]\MN8^49=L5^-:%3Q2W$>2!^)%SE"
^XMB(3.9,22,2,6869,0)="""DATA"",396.18,215,3,1885,0)"
^XMB(3.9,22,2,6870,0)="M'C!3ZD&$W_LB3U;X%M\""]2_://E3)RDV9""UNG184A.MJY^,[\S5QQMA\06?K"
^XMB(3.9,22,2,6871,0)="""DATA"",396.18,215,3,1886,0)"
^XMB(3.9,22,2,6872,0)="ML\)9$IPUTK16I]5--DN?[[7'FG1.Q?(MRD)^0*+&(#19HPQ<Z.Z6*XGIP9$-"
^XMB(3.9,22,2,6873,0)="""DATA"",396.18,215,3,1887,0)"
^XMB(3.9,22,2,6874,0)="M>(K]=T)JQX_%U([H""`QBL!UI(+SUC,4#7$>XA;HG9T>ZMQKR(7`DKFN'HHL3"
^XMB(3.9,22,2,6875,0)="""DATA"",396.18,215,3,1888,0)"
^XMB(3.9,22,2,6876,0)="MNC*1#+9['GM%]9>&01EP:*;TFGA.V0W!-*2'<?CV[TM\R=_@\\2\2'QR[#52"
^XMB(3.9,22,2,6877,0)="""DATA"",396.18,215,3,1889,0)"
^XMB(3.9,22,2,6878,0)="M5_W[+]@S7V9US0#<BPNIE4L%%<Q&2F:+""0>1VY(T2""#3?QA-Q^R/99%*5GD/"
^XMB(3.9,22,2,6879,0)="""DATA"",396.18,215,3,1890,0)"
^XMB(3.9,22,2,6880,0)="M7R+]^/QK?WS]Y=/7O39[[[G&&4'M%N==LF#+<=>`XZ$OX3ARY6N<AP^B1N^0"
^XMB(3.9,22,2,6881,0)="""DATA"",396.18,215,3,1891,0)"
^XMB(3.9,22,2,6882,0)="MKW&>;/-RJ+71`)@9:22Y3R7Y=R3>'_@_\=E(FRWV-12&AWPC84!1&&Y\%L9N"
^XMB(3.9,22,2,6883,0)="""DATA"",396.18,215,3,1892,0)"
^XMB(3.9,22,2,6884,0)="M-8QV*3D8VTE^+`\K\/SX?H>?BMM#+0>QK6#<G&DVDW?=!8A'`E`F(*'$?Q%S"
^XMB(3.9,22,2,6885,0)="""DATA"",396.18,215,3,1893,0)"
^XMB(3.9,22,2,6886,0)="MJ9XW4GLEE_?#3`K(""MD&=7S#ZY;>&*/7+=QE]@Z\;J$;P'MQW?ZK+.?#^_9M"
^XMB(3.9,22,2,6887,0)="""DATA"",396.18,215,3,1894,0)"
^XMB(3.9,22,2,6888,0)="MDE6,&UJ6<E\QT-I\U2YWP>A'X9Y&'W,1G8T^M46N5AR1F32""(#:11BB+I\%."
^XMB(3.9,22,2,6889,0)="""DATA"",396.18,215,3,1895,0)"
^XMB(3.9,22,2,6890,0)="M&H,M4HNL.>]LKP;X;D;6*(ATU@CPSK_O22X',9F&0EYTT(U=)#='S*,JX5;D"
^XMB(3.9,22,2,6891,0)="""DATA"",396.18,215,3,1896,0)"
^XMB(3.9,22,2,6892,0)="MYFB8(5M7M!HP:W`\NTT._3;4%G8/Y#%B!``MV`TIM.9XL`7@$?GM3LKO%U>T"
^XMB(3.9,22,2,6893,0)="""DATA"",396.18,215,3,1897,0)"
^XMB(3.9,22,2,6894,0)="M.G>K[$96[/:TERTZ(K?!I-Q^F5Z1);NWRVZ@3U,J+F`AI1P+#KZ'Q#RE)^4L"
^XMB(3.9,22,2,6895,0)="""DATA"",396.18,215,3,1898,0)"
^XMB(3.9,22,2,6896,0)="MU%7C'[?)9U-JHQ,'4J1N;X#RX3$;$Q&W6ZR#*SC#?#!>*E*-(4@[Z/V819OF"
^XMB(3.9,22,2,6897,0)="""DATA"",396.18,215,3,1899,0)"
^XMB(3.9,22,2,6898,0)="M<;I=""Y""/MI9""BB=?JV2]3$X&V\,`2,_CEZ^'P`R4T<D[1(\>G/%)_71B'M[6"
^XMB(3.9,22,2,6899,0)="""DATA"",396.18,215,3,1900,0)"
^XMB(3.9,22,2,6900,0)="ML%/7DJ\""_8/LT@:D73/IG5!+_N%[)2(]))7/0X4""8;N(+]DK$9_W2HB7E6P/"
^XMB(3.9,22,2,6901,0)="""DATA"",396.18,215,3,1901,0)"
^XMB(3.9,22,2,6902,0)="MYF""I!+O;%R$.D.JAP""G#J:XE3SE<*T<J8H%:N%G((-+?2[V*;.^G'58PL;3;"
^XMB(3.9,22,2,6903,0)="""DATA"",396.18,215,3,1902,0)"
^XMB(3.9,22,2,6904,0)="M;MANUU;70$1M;T&;&%;4*B<YLTZ,.KQ9LZ%?L:[7^.UYDI$5;.T;NRW=#W_F"
^XMB(3.9,22,2,6905,0)="""DATA"",396.18,215,3,1903,0)"
^XMB(3.9,22,2,6906,0)="M3@$+YK&P?(A?<75/9NX""U:7#(LV&VDL'W.;0G0(E`WGNP51/.'2GPB1!Q^""U"
^XMB(3.9,22,2,6907,0)="""DATA"",396.18,215,3,1904,0)"
^XMB(3.9,22,2,6908,0)="M%*[H.`-M0#G0QL&0\KM%H.""9>&,#;4%\^$#;P_)NU#-W,#1KUO-#(?D1&PZ4"
^XMB(3.9,22,2,6909,0)="""DATA"",396.18,215,3,1905,0)"
^XMB(3.9,22,2,6910,0)="MO)BWG5O8.%M,E?BQLK>52QB+HRZ>Z8#6]@HZO195$+B&[//$QGS#:8\OV\61"
^XMB(3.9,22,2,6911,0)="""DATA"",396.18,215,3,1906,0)"
^XMB(3.9,22,2,6912,0)="M\VVS.!W'V3;_=HLD^]V.^X\9@``JFUMU3P-\0S5]\K:LEJ1;-GQ*)PSGF.<9"
^XMB(3.9,22,2,6913,0)="""DATA"",396.18,215,3,1907,0)"
^XMB(3.9,22,2,6914,0)="M7=Q\N7'2'\GR^?X/`'U#84`@#AL""VUE,`F-8)70'ZVI=K;#%KI]A(:RZO:Q4"
^XMB(3.9,22,2,6915,0)="""DATA"",396.18,215,3,1908,0)"
^XMB(3.9,22,2,6916,0)="M2-TVA'0^Z*RD`YG8!V-[*[>>69VN$ORMI!F,[""=.9]AA((V6V#L@G6!DI""DI"
^XMB(3.9,22,2,6917,0)="""DATA"",396.18,215,3,1909,0)"
^XMB(3.9,22,2,6918,0)="MF/V@\ZQ.+C/VV\@67"">]2?)U&V6+0US/'^:DI)U6M*BZPQ!FI$]:G(I`@5@0"
^XMB(3.9,22,2,6919,0)="""DATA"",396.18,215,3,1910,0)"
^XMB(3.9,22,2,6920,0)="M\W9955E,HNH=D&FKT-T^`*'=O=2-Q^Y>V$T6^+L7)8=./I3TAHT`MLT""^%-_"
^XMB(3.9,22,2,6921,0)="""DATA"",396.18,215,3,1911,0)"
^XMB(3.9,22,2,6922,0)="M#-W_%[QG;ZXIX[HR8KJ-]$6I,6,ZTZN'/$<8J`7A\H(8#%<.1!'M(XIV!/1+"
^XMB(3.9,22,2,6923,0)="""DATA"",396.18,215,3,1912,0)"
^XMB(3.9,22,2,6924,0)="M=ET0])($D]T+1R^-\4>*E$\4\0^$7/%Y@`O,GZ<EFJ79D,R1$[""K0HP2NILC"
^XMB(3.9,22,2,6925,0)="""DATA"",396.18,215,3,1913,0)"
^XMB(3.9,22,2,6926,0)="MEAINN>G&!O+O1=*PT3""VMJTEI;8S6ZZ2]J&8J+@/>!ES2]8V_S;04*F)TO%"""
^XMB(3.9,22,2,6927,0)="""DATA"",396.18,215,3,1914,0)"
^XMB(3.9,22,2,6928,0)="MG.=0RRQ&$E:`V%QFG^D2=')-85J_;:V`J7:!P#.G%>Q<VJ'<+!2,C$65#?[_"
^XMB(3.9,22,2,6929,0)="""DATA"",396.18,215,3,1915,0)"
^XMB(3.9,22,2,6930,0)="M[Z0_FL0.S]I-.72;3+I<Y>4FG1_""_[;-&8@=S^K'\B1F`,!(\E3>X*F&3131"
^XMB(3.9,22,2,6931,0)="""DATA"",396.18,215,3,1916,0)"
^XMB(3.9,22,2,6932,0)="M@.+QWN=[;WD5[76C]4]:\I19OPOF,]H/D$5];[8Z\-3D-I""WE^FTP[?1CCX="
^XMB(3.9,22,2,6933,0)="""DATA"",396.18,215,3,1917,0)"
^XMB(3.9,22,2,6934,0)="MI%<//Y*H!W#C\-&KQXNZQL+'OO/K#`N>#KJ_7G,N""9V&F%4I77+_-:GF)&>N"
^XMB(3.9,22,2,6935,0)="""DATA"",396.18,215,3,1918,0)"
^XMB(3.9,22,2,6936,0)="M_,""+RYK,,Z=9O60_PK7XCS7Y&VL6,-4L;T2S)/>@+U&M`3@""`U0IUZWP;'I("
^XMB(3.9,22,2,6937,0)="""DATA"",396.18,215,3,1919,0)"
^XMB(3.9,22,2,6938,0)="M""0E'5>]+7EE>IUME>546,Y*;91V:3J.&`=C+=)'<9&7%?H9T5#I?RAG!W:$#"
^XMB(3.9,22,2,6939,0)="""DATA"",396.18,215,3,1920,0)"
^XMB(3.9,22,2,6940,0)="M.PDS9;K]<UBULQE6M@U^Q#POOY,[63*4*E#WH6P]%>7[24'R]*_)0'\E?&Y["
^XMB(3.9,22,2,6941,0)="""DATA"",396.18,215,3,1921,0)"
^XMB(3.9,22,2,6942,0)="MX3O?,ZP_[[,KZ@N0R/154E4;_(.2S,\DCA0^\&65ICB\W'V.??M=FM#&,-7["
^XMB(3.9,22,2,6943,0)="""DATA"",396.18,215,3,1922,0)"
^XMB(3.9,22,2,6944,0)="M?V5D?$GY]GNL2\1+^](DRZQ(V#?_3I-OY-""3=,);+*SK=:IB""M:&M+AN%K\Z"
^XMB(3.9,22,2,6945,0)="""DATA"",396.18,215,3,1923,0)"
^XMB(3.9,22,2,6946,0)="M?Z[(0""36?3([I>;B[A?>E]_5O_`G?C@2I&-+4]*M?5ASV$^\36=4#U3O?TJR"
^XMB(3.9,22,2,6947,0)="""DATA"",396.18,215,3,1924,0)"
^XMB(3.9,22,2,6948,0)="M@F=Y?86?!?^Y(13&9-8*:JT5+;^Z7*N1^@J$H<1?1[L64Z8<""^1V*IX\^(0*"
^XMB(3.9,22,2,6949,0)="""DATA"",396.18,215,3,1925,0)"
^XMB(3.9,22,2,6950,0)="M.R3K,AJQ0B.=1DROT;@X-/U&L@*&1EZ00AF9"":P'""]0+3.JS1+$?GN6EDI<G"
^XMB(3.9,22,2,6951,0)="""DATA"",396.18,215,3,1926,0)"
^XMB(3.9,22,2,6952,0)="MR&LL9^4K<E8HA'S62IBD0A*0OKY\:92U@F/)$E<9^@F>BLQ1"">,],B44\TY:"
^XMB(3.9,22,2,6953,0)="""DATA"",396.18,215,3,1927,0)"
^XMB(3.9,22,2,6954,0)="MNB81NKPB_>OI)ZZ@.LT#Q!0B@I+S#8;>I"":!LI/'3_0&^JF3B5H&0S=3WC6Z"
^XMB(3.9,22,2,6955,0)="""DATA"",396.18,215,3,1928,0)"
^XMB(3.9,22,2,6956,0)="M;[)$G8`(A(M(DCN5IA]0+'WJ%Q55P&J@@JKG/20)Q#5.JX>4=A8\VOM1XU"":"
^XMB(3.9,22,2,6957,0)="""DATA"",396.18,215,3,1929,0)"
^XMB(3.9,22,2,6958,0)="MD^@7&XYW4(]/+,G;J-GZ]J*LV!.J5(\'$'Z,)3@*SL_[D.5S[I42<WB[*VSG"
^XMB(3.9,22,2,6959,0)="""DATA"",396.18,215,3,1930,0)"
^XMB(3.9,22,2,6960,0)="M3Z?8-/,^8D479M5[9#F`K?I!O?HQIN-(^A??CO[AKUZML,2,-/""N16SEI'-B"
^XMB(3.9,22,2,6961,0)="""DATA"",396.18,215,3,1931,0)"
^XMB(3.9,22,2,6962,0)="M1'HQ0@1,Q#C,XNK$""-S;$>.;'VDUR^KTH8D1V8K1TXLQ%MSYH5SW.HS^+1U&"
^XMB(3.9,22,2,6963,0)="""DATA"",396.18,215,3,1932,0)"
^XMB(3.9,22,2,6964,0)="M4C&O'YH,/4L9!L$^%_J!0L0A='@[0OQ,4R;DI_.M?FNWNF]K1_R];O6#+0F`"
^XMB(3.9,22,2,6965,0)="""DATA"",396.18,215,3,1933,0)"
^XMB(3.9,22,2,6966,0)="MMZ.$7ZOD)LU-[_6S#AY#!P-+'43N7BZ)5`=M?!(WNAT=?)NF\P?H68:VIB3>"
^XMB(3.9,22,2,6967,0)="""DATA"",396.18,215,3,1934,0)"
^XMB(3.9,22,2,6968,0)="MPR6!""!THQ.!VA/@R:19G,W*;9B2RU;]HK_R(3`&M?.);<J=>4TC`LP;>H@;&"
^XMB(3.9,22,2,6969,0)="""DATA"",396.18,215,3,1935,0)"
^XMB(3.9,22,2,6970,0)="MMAH8[I<B.50%`;@E9ZK,\K0YZ^""MINE<6R4,]DOP''P1H]M10OQ$Y?*L@[>J"
^XMB(3.9,22,2,6971,0)="""DATA"",396.18,215,3,1936,0)"
^XMB(3.9,22,2,6972,0)="M@\""HLARKZLI@6*/M*D]^(*D\Q;+*<J!(8P1WIP`/MN0,;-/%R""!=+/A4@:3*"
^XMB(3.9,22,2,6973,0)="""DATA"",396.18,215,3,1937,0)"
^XMB(3.9,22,2,6974,0)="M&\A,B0\EH@T]-*4I&3]S_YT*O:2*\,C6+@,0[1$?(00/,,O0C??-]K$=0P;>"
^XMB(3.9,22,2,6975,0)="""DATA"",396.18,215,3,1938,0)"
^XMB(3.9,22,2,6976,0)="M:7;#=H`]A!`7(-,6#(IJ*,=4XB?)Q""U.@6252B""BZ""&`X!G3<'""V1F2!Y++P"
^XMB(3.9,22,2,6977,0)="""DATA"",396.18,215,3,1939,0)"
^XMB(3.9,22,2,6978,0)="M^(T)`KQ5$(FM,)$`;P6BV///B(;&Z/PJP!#\""Y?I_&/9I)=E^8TT,+""O#""!$"
^XMB(3.9,22,2,6979,0)="""DATA"",396.18,215,3,1940,0)"
^XMB(3.9,22,2,6980,0)="MX`Y""!#(0(NTE,>A;<CM(#3W_^P_MV-_0I>##-WG';ONZVJO;?H+E_S`#Z@^&"
^XMB(3.9,22,2,6981,0)="""DATA"",396.18,215,3,1941,0)"
^XMB(3.9,22,2,6982,0)="M[<DC?TJN4Q8\@IFK%_%\V+W5HTSM!_==<8J__WL<L+.(7>N)BT0\=S?K6%;_"
^XMB(3.9,22,2,6983,0)="""DATA"",396.18,215,3,1942,0)"
^XMB(3.9,22,2,6984,0)="M:.;U53/_GNO*/Z#XEA=Y=DU8D.2O\@RK:?^Z`@]`A(@A5\@)@1RSPJ=^0S>9"
^XMB(3.9,22,2,6985,0)="""DATA"",396.18,215,3,1943,0)"
^XMB(3.9,22,2,6986,0)="MM/VWON')=V4#`K(^+R^^*^?YB#UR\D87!=2(@+^MF+KMZPY@^-IN75HX?'G7"
^XMB(3.9,22,2,6987,0)="""DATA"",396.18,215,3,1944,0)"
^XMB(3.9,22,2,6988,0)="M0>8.7V;+HUAO:^=S>I,QX8(YWW6<'^6](?='^#\N`;DR&X&5""'ZUTL7>G@`T"
^XMB(3.9,22,2,6989,0)="""DATA"",396.18,215,3,1945,0)"
^XMB(3.9,22,2,6990,0)="M=AH@$-SJGR6C>CZ(I!V`_JD=""$]U(%KX#[&-<G<<0O$X^*[T.,32T\"">IV%'"
^XMB(3.9,22,2,6991,0)="""DATA"",396.18,215,3,1946,0)"
^XMB(3.9,22,2,6992,0)="MY?70<Q_(6W%HQT^M*Y(YC)F&$[*!_-0&""CJIJC++84[QN,+#CJL""'`G9RHR9"
^XMB(3.9,22,2,6993,0)="""DATA"",396.18,215,3,1947,0)"
^XMB(3.9,22,2,6994,0)="MCCQ`:&^*>3G#+G%ZXF)#4X@-`&@MMP@>1VZ;4Y>8-XG$/%N!058$^PLLJ4Y<"
^XMB(3.9,22,2,6995,0)="""DATA"",396.18,215,3,1948,0)"
^XMB(3.9,22,2,6996,0)="M8/XD`O.M!1:[1Q'8Q[(^]2,63""$Q:'W$D'<<!^1+5JSK$Q=9.,DA&[_&`HEK"
^XMB(3.9,22,2,6997,0)="""DATA"",396.18,215,3,1949,0)"
^XMB(3.9,22,2,6998,0)="M""X]SC7THU_@7?W&^+JHR:4Y<=M$T/DA@+;QC.8]?OG%CV*<G,^!.([307FA'"
^XMB(3.9,22,2,6999,0)="""DATA"",396.18,215,3,1950,0)"
^XMB(3.9,22,2,7000,0)="M\AQ?$=B/9';J<@/3R""VRMY1'<B`_K?-E6>RPCD]6<G`:R<7VDCN2)_FO/T]="
^XMB(3.9,22,2,7001,0)="""DATA"",396.18,215,3,1951,0)"
^XMB(3.9,22,2,7002,0)="M9--$U]""U%MFQ7,E__7[J(ILFO(:CR4>F8^/(GN2[=)G-L""?Y?K-<+4Y=>-.$"
^XMB(3.9,22,2,7003,0)="""DATA"",396.18,215,3,1952,0)"
^XMB(3.9,22,2,7004,0)="MV@!9G[<CI8X_IK-O)RZS>)*\<6A]W(XDL0_K>K;.R_I;FJ?-R2?]P229$N1:"
^XMB(3.9,22,2,7005,0)="""DATA"",396.18,215,3,1953,0)"
^XMB(3.9,22,2,7006,0)="M2^]H:?\.F8N'!SQ!T4V2,?'M[[ECQ6\?TW55GKK0)DF5H#V<DV,%;_5F=O)>"
^XMB(3.9,22,2,7007,0)="""DATA"",396.18,215,3,1954,0)"
^XMB(3.9,22,2,7008,0)="MR217'$+60CM:$+!ALUO*MMV3K'-/DD!!GOT1/%(4_I*`5)YZBAD>.5WY9IXU"
^XMB(3.9,22,2,7009,0)="""DATA"",396.18,215,3,1955,0)"
^XMB(3.9,22,2,7010,0)="MQ&J2_Y4(S`M$>7E2BQE""J;18+1MNT/4N5&;&B'!^^G!LP$#6&ZCI:./H[I4/"
^XMB(3.9,22,2,7011,0)="""DATA"",396.18,215,3,1956,0)"
^XMB(3.9,22,2,7012,0)="MJAXG8!YG;-A`,VZ@&CC@6W'P=__&_$W)OF7MR`$9*$ARM@Q*X5F7Y-6G^HXV"
^XMB(3.9,22,2,7013,0)="""DATA"",396.18,215,3,1957,0)"
^XMB(3.9,22,2,7014,0)="MFT8U8->W&<>F?9L`GESC)APWLW%DW;D)C]*Y^7*=Y?-^30J!Z3YW;^YQ2P:V"
^XMB(3.9,22,2,7015,0)="""DATA"",396.18,215,3,1958,0)"
^XMB(3.9,22,2,7016,0)="MXO./([[7Y6Q-`)3%%1<GZK).(;W85G@Q/%+7-.F6[@\?NQGSW(ZYYZ7D6EU*"
^XMB(3.9,22,2,7017,0)="""DATA"",396.18,215,3,1959,0)"
^XMB(3.9,22,2,7018,0)="MLN9I^:7DHU.[DUQ=;6#J2\E7'(SA@@""R&>[-#X*+G]Y6/QXXT<$""S^ID0!F>"
^XMB(3.9,22,2,7019,0)="""DATA"",396.18,215,3,1960,0)"
^XMB(3.9,22,2,7020,0)="MLL)?""^""IG0VDN?!'3P:4I?%]V=%0G`SH*Z^,G\M56ES<9M.T9_VL@,TL3?2P"
^XMB(3.9,22,2,7021,0)="""DATA"",396.18,215,3,1961,0)"
^XMB(3.9,22,2,7022,0)="M1ZZI<5@!)N$G:RFZB6EI\B-6Y#Z0+/P$./Z!MQI^=A.:%'R^2M;+Q""@2?3#."
^XMB(3.9,22,2,7023,0)="""DATA"",396.18,215,3,1962,0)"
^XMB(3.9,22,2,7024,0)="MB2YDYH$2!*B$_?P;8V4#^RH;6ROI[]O05MO<N]*V15FOLB;)LW_:1:Y80>IU"
^XMB(3.9,22,2,7025,0)="""DATA"",396.18,215,3,1963,0)"
^XMB(3.9,22,2,7026,0)="M=9U6F[,&[JN!KDWOM[5M1W`JTWZ.5NU2I'L;#5=>;7%#2ZL![LIJ%&FYRI-Z"
^XMB(3.9,22,2,7027,0)="""DATA"",396.18,215,3,1964,0)"
^XMB(3.9,22,2,7028,0)="M*=B('3#""VV26G@V(Q(!L'T&0T#YS7K+H8XBB<1ANQ*?%IB:('33^LT*/`/<*"
^XMB(3.9,22,2,7029,0)="""DATA"",396.18,215,3,1965,0)"
^XMB(3.9,22,2,7030,0)="M/>(,#G$(.$0X%K6*6X`D""%/0E\[""A_LD18+QR,^3E$/M""E+W8U@;G%)V/A@?"
^XMB(3.9,22,2,7031,0)="""DATA"",396.18,215,3,1966,0)"
^XMB(3.9,22,2,7032,0)="M28QD=R2,CR*UVYX!`*?4+!E$]G*+T%'D1F=NRIN$]$PFIYYWG&9D*@C&.T>"""
^XMB(3.9,22,2,7033,0)="""DATA"",396.18,215,3,1967,0)"
^XMB(3.9,22,2,7034,0)="MZ4[=;7;<@9/J<`UB:Z$=Z7Z[F_YD<%+3'""&P/W)',IBWV2\)3JHS.836MQQ$"
^XMB(3.9,22,2,7035,0)="""DATA"",396.18,215,3,1968,0)"
^XMB(3.9,22,2,7036,0)="MX5&$]N)R7B[3POG%N;7Q*7!2XZ5A8!L-R,M`UI*[Q4%N<$JM'J%G?]CB(P5P"
^XMB(3.9,22,2,7037,0)="""DATA"",396.18,215,3,1969,0)"
^XMB(3.9,22,2,7038,0)="M?YZZP"":9`PZ1O4=R+(G]]\>[;R<')S4<$(;VTCS297>K[>3@I.9P`(*V]]RQ"
^XMB(3.9,22,2,7039,0)="""DATA"",396.18,215,3,1970,0)"
^XMB(3.9,22,2,7040,0)="M_,HW)Q]]3S.*CZP]DV.=LUN$X0(GA72'0FN1'>FBNTT<+G!28'<HLI49\HZ3"
^XMB(3.9,22,2,7041,0)="""DATA"",396.18,215,3,1971,0)"
^XMB(3.9,22,2,7042,0)="MX[H3(""YP2KAW`,7VP0`X4H+RUN`3P$GAWGFNM?]XI(C[]@?PP6F!E7C`VH<\"
^XMB(3.9,22,2,7043,0)="""DATA"",396.18,215,3,1972,0)"
^XMB(3.9,22,2,7044,0)="M4CG@]J!WP2EA7`///C-YK-OM+L""!P&F!<7GV5>]CF<I;AB@')P4/ZMDGO(YU"
^XMB(3.9,22,2,7045,0)="""DATA"",396.18,215,3,1973,0)"
^XMB(3.9,22,2,7046,0)="MZCZG=39?XR<F378?NR8[TQ38$8?:)^@E^YK636W50P8/Z""$3UW*Y\OZQ[6*A"
^XMB(3.9,22,2,7047,0)="""DATA"",396.18,215,3,1974,0)"
^XMB(3.9,22,2,7048,0)="M<%=;.F`]T6`WY;D#[?`.-+HY)'""AN$1DNXQEV$F[S:+(MA/)&M""&9G]H/%_]"
^XMB(3.9,22,2,7049,0)="""DATA"",396.18,215,3,1975,0)"
^XMB(3.9,22,2,7050,0)="MR[G0CG2UI%&\16/2`)2LLF3VR>SZMN6+$5\M\""ER_M^?JV3C)+53I.D<VX*F"
^XMB(3.9,22,2,7051,0)="""DATA"",396.18,215,3,1976,0)"
^XMB(3.9,22,2,7052,0)="M=.;;,60LU:2NT[IV9F4QS\@O#NS'WUA[_JZ2%:>&NJ<$5D\9R9:Q2M?A*""30"
^XMB(3.9,22,2,7053,0)="""DATA"",396.18,215,3,1977,0)"
^XMB(3.9,22,2,7054,0)="M]VPY5^N""#B$Z#;$>OQ[^)*'-DR`0R=;*1L;R8K9'8MN^SAMJV5_@<UTV""ZSZ"
^XMB(3.9,22,2,7055,0)="""DATA"",396.18,215,3,1978,0)"
^XMB(3.9,22,2,7056,0)="M\RRY+LJZP;Y64LSQ<<P*VG!+GY>*<#UKL(BSPKEP_HOY/OS[3DKG,MO)C2I="
^XMB(3.9,22,2,7057,0)="""DATA"",396.18,215,3,1979,0)"
^XMB(3.9,22,2,7058,0)="ME55S\6#6%8_=\GM)%]!5%7+I,KWUVQDYF:$(@+F>?D[_LR;GL2SRC=,LRCKM"
^XMB(3.9,22,2,7059,0)="""DATA"",396.18,215,3,1980,0)"
^XMB(3.9,22,2,7060,0)="MY-8LDL;9E&L'DY*E-ZF#'Q6+<(Y%BX7YJZ%U@32W)7^>V,BV,/&;[FD^),ME"
^XMB(3.9,22,2,7061,0)="""DATA"",396.18,215,3,1981,0)"
^XMB(3.9,22,2,7062,0)="M>8V9OM@\<[(K&;U*]T/W(+&5!0]]F0$)[1]ER3[(A?&@+AP%5O%%YB.9H9!="
^XMB(3.9,22,2,7063,0)="""DATA"",396.18,215,3,1982,0)"
^XMB(3.9,22,2,7064,0)="M.LS##4C&W'&(BW1A!U[2W9#1R)HMR/JF'<5(ZK!ZON6BK?QRO7Q`C1!7]<LR"
^XMB(3.9,22,2,7065,0)="""DATA"",396.18,215,3,1983,0)"
^XMB(3.9,22,2,7066,0)="MGQL'&R.Q0L?X>(3QGB?;9N1+&>]'=HQ_5:78ZA</*<0[-N^!.\+[2)(YELX%"
^XMB(3.9,22,2,7067,0)="""DATA"",396.18,215,3,1984,0)"
^XMB(3.9,22,2,7068,0)="MH_""T-?Z(_`9V_`ZD]6<O/'E%/R++H1W+N0G""WJE!=CQ_^>?'Q\AL-+:KT@V-"
^XMB(3.9,22,2,7069,0)="""DATA"",396.18,215,3,1985,0)"
^XMB(3.9,22,2,7070,0)="M+8KE'?JEG&?KY6-DN&?+<(5)L;P[/Y4-#I$?*<]]6YXK;`JR=5@6F%_9_%%:"
^XMB(3.9,22,2,7071,0)="""DATA"",396.18,215,3,1986,0)"
^XMB(3.9,22,2,7072,0)="M\<"":Y[ZTRJW()JMY_@=\C.P.+2]-.;.1Y<[A?^7KV4DV7ND9'EGK=RSO3;2\"
^XMB(3.9,22,2,7073,0)="""DATA"",396.18,215,3,1987,0)"
^XMB(3.9,22,2,7074,0)="M.?]\\1BY'5NJMYS7UK;DY:M'Q6P""WTQWA2APG""-9$5`*S.+;P#A#`""\.0I6A"
^XMB(3.9,22,2,7075,0)="""DATA"",396.18,215,3,1988,0)"
^XMB(3.9,22,2,7076,0)="M=$=6=(?A,>CV#T.?IG3'5G0#>2^8+>'HXB`@*4)OX-H1'O@'$Q[Z""!B`T(T0"
^XMB(3.9,22,2,7077,0)="""DATA"",396.18,215,3,1989,0)"
^XMB(3.9,22,2,7078,0)="M_B%=EL`G$2;YEVD.1;I,)9(;$S^04P[].X<=>E6NJPPSZV/ZW=20O,^*=`P`"
^XMB(3.9,22,2,7079,0)="""DATA"",396.18,215,3,1990,0)"
^XMB(3.9,22,2,7080,0)="MQ@8LJB\,DR^J:U(K)F4?*[P7J2*.(,]+;^(CV""RLB;X!0J"".<FA)^1&L%J9<"
^XMB(3.9,22,2,7081,0)="""DATA"",396.18,215,3,1991,0)"
^XMB(3.9,22,2,7082,0)="M>?@#<\J1)>7'L%OX$(47^L9/'>F>+>E'L5PPN-`W]&@M%U);+D6VYABV""P5G"
^XMB(3.9,22,2,7083,0)="""DATA"",396.18,215,3,1992,0)"
^XMB(3.9,22,2,7084,0)="MVV5CN^+]D'+A*(BT4#+\&8CU-P]ZLHJA&Y]$A=P$,(E&""5XPEK</3""&D/0""M"
^XMB(3.9,22,2,7085,0)="""DATA"",396.18,215,3,1993,0)"
^XMB(3.9,22,2,7086,0)="M`@9.P<!SY_=BEJ_GJ5/M^B""2/#?L@."":'_`WTIX(>0_$\POS>,H+H!U[Y.OD"
^XMB(3.9,22,2,7087,0)="""DATA"",396.18,215,3,1994,0)"
^XMB(3.9,22,2,7088,0)="M$`P.80]\[G18](0EY-%[-EVF5V65.JNJO,GFI(.,/'/=(M53CA$&BNS!+,UJ"
^XMB(3.9,22,2,7089,0)="""DATA"",396.18,215,3,1995,0)"
^XMB(3.9,22,2,7090,0)="M.T8@.T;(5T;!T++8@)[C`Y#G)7[T>=NOA(4_E&F3+E=Y@GGRC+0\)2O,B565"
^XMB(3.9,22,2,7091,0)="""DATA"",396.18,215,3,1996,0)"
^XMB(3.9,22,2,7092,0)="MX1=LGLZ/8[NGDY=I!S!T;$-G;""1F[[GS%4NO4_F,GH%Y>DV!Q9KL)B7=6RW\"
^XMB(3.9,22,2,7093,0)="""DATA"",396.18,215,3,1997,0)"
^XMB(3.9,22,2,7094,0)="M+ST.5;.H,$?:HU)LG'^+8B[)Q52E_UEG6%^ZQC!\9JZR:DFY]\RY7),&E5FZ"
^XMB(3.9,22,2,7095,0)="""DATA"",396.18,215,3,1998,0)"
^XMB(3.9,22,2,7096,0)="M?3F=.Y>;]I//',FYRFA?$CY;=5K=9#-*4W+5X->Z%YXY1>E<K2OZ.?H]E$#:"
^XMB(3.9,22,2,7097,0)="""DATA"",396.18,215,3,1999,0)"
^XMB(3.9,22,2,7098,0)="M\_+O,I.H8D/[7SHJYP[69\R"".KG,\JS9..E-DJ];4:_6U:JL4T9OE<U`9A=*"
^XMB(3.9,22,2,7099,0)="""DATA"",396.18,215,3,2000,0)"
^XMB(3.9,22,2,7100,0)="MZRMX@J\PTK_F>[(&0EG7U[#5L,?EA-`++NX*C5WN&RAOF%&_@/$*QNXBK4<@"
^XMB(3.9,22,2,7101,0)="""DATA"",396.18,215,3,2001,0)"
^XMB(3.9,22,2,7102,0)="MBTTU$O,M)`9=UU1B0^L]E)A_EIA*8IZAQ""(+B2$O-)78\)KI)>:&47B6F$IB"
^XMB(3.9,22,2,7103,0)="""DATA"",396.18,215,3,2002,0)"
^XMB(3.9,22,2,7104,0)="MH9G$O-CFC'G>(6?,0^Z#,8K'$H.O%0.')^V/[3SH]P>ZXF&22"":2];'ZLOL*"
^XMB(3.9,22,2,7105,0)="""DATA"",396.18,215,3,2003,0)"
^XMB(3.9,22,2,7106,0)="M!6B8<QY#D1[%D)8C2`\\O;]3[`40[Y6+`%I//VO#@[E3[MSZSI\?HDQ+8:3O"
^XMB(3.9,22,2,7107,0)="""DATA"",396.18,215,3,2004,0)"
^XMB(3.9,22,2,7108,0)="M>1PW""ATM`$=SL-&&02`P#ZWCT=`Z$!NE/=G>P.&*@]W1'[8\#D3?KC^LG3^*"
^XMB(3.9,22,2,7109,0)="""DATA"",396.18,215,3,2005,0)"
^XMB(3.9,22,2,7110,0)="M?""/O<(U&W7<(QVJ,L>F8.+1MLWR+->6JI?V9L\(N:+U,DXIV%1=EX\S+(G6^"
^XMB(3.9,22,2,7111,0)="""DATA"",396.18,215,3,2006,0)"
^XMB(3.9,22,2,7112,0)="M8X^Y""T7S!`=N&_R)YV8S6YH<%_0B=8Y+\M!R_!#E0\=R7/D0&X3[O,3W0:6_"
^XMB(3.9,22,2,7113,0)="""DATA"",396.18,215,3,2007,0)"
^XMB(3.9,22,2,7114,0)="M7/MH!5I%*S""*C>_E6&+]L;3AV9-27>'!A`.1K[=9`*NA2'0;0Y%G4/UI1QJ1"
^XMB(3.9,22,2,7115,0)="""DATA"",396.18,215,3,2008,0)"
^XMB(3.9,22,2,7116,0)="M>J`.#0>0ND2;!%'?8IKN#YJH>54NR7Q@?7$"">^)T0W[JL2DD3NY(N(N0--D3"
^XMB(3.9,22,2,7117,0)="""DATA"",396.18,215,3,2009,0)"
^XMB(3.9,22,2,7118,0)="M:T?\/M$D;>HD?8(VS\A\V#;3W>6\,NP)=3G`=+Y+C""<%/^*'G>(FK59IT^UF"
^XMB(3.9,22,2,7119,0)="""DATA"",396.18,215,3,2010,0)"
^XMB(3.9,22,2,7120,0)="MNI*YSUP""O9TK;'UJ_ON8>4+R55<9R;;RV>2A53I@UC(V%X,O20<@WWP4CY5"""
^XMB(3.9,22,2,7121,0)="""DATA"",396.18,215,3,2011,0)"
^XMB(3.9,22,2,7122,0)="MGB;U-F.>.G_,9NM5RT#R@""]>OW?2JRM,;DTSD6DR6^QF9<GS\USKY'0H0\+`"
^XMB(3.9,22,2,7123,0)="""DATA"",396.18,215,3,2012,0)"
^XMB(3.9,22,2,7124,0)="M0BUCR>1I;''HR1[IW>`;#:;J@^?XHI$G""&*S9P""6ST#OAF,\01_^6&TS""5V9"
^XMB(3.9,22,2,7125,0)="""DATA"",396.18,215,3,2013,0)"
^XMB(3.9,22,2,7126,0)="M>0@TL?6)UQ4[I/HQE`Q/NI12&IZP=22#C=L2""W7>DVY?8O>M#@+T)*<YE%Z4"
^XMB(3.9,22,2,7127,0)="""DATA"",396.18,215,3,2014,0)"
^XMB(3.9,22,2,7128,0)="M8+A:?3CHTETSW0#\F\X(XS=W)AK?1B]F37;#PWR=QHD*QZ+]P*H3#TC+T""$["
^XMB(3.9,22,2,7129,0)="""DATA"",396.18,215,3,2015,0)"
^XMB(3.9,22,2,7130,0)="MDK03""92VLP`$N`ZH<T!_W(""^OW7&KQW1Z9=Z1('LN,7>J1T3J`-HBHYT]42*"
^XMB(3.9,22,2,7131,0)="""DATA"",396.18,215,3,2016,0)"
^XMB(3.9,22,2,7132,0)="M-:V><BG1*IF1FG53.N^P,XD?\""WVH(M91NS6U5625>=;:0_(+>C;""M2W$V@P"
^XMB(3.9,22,2,7133,0)="""DATA"",396.18,215,3,2017,0)"
^XMB(3.9,22,2,7134,0)="MDM]=I46]#0Z(QWQ#$;B<=4'Z3LK-MDUAEB?9LC[O2]W+YR#WFK*B+[%^,N`="
^XMB(3.9,22,2,7135,0)="""DATA"",396.18,215,3,2018,0)"
^XMB(3.9,22,2,7136,0)="MN?4;+D<=7FO>.:FI2FH""R[HD`%!?E_Q9[*,)9#`N@0R1!DEJ_-""-H7LK=<D7"
^XMB(3.9,22,2,7137,0)="""DATA"",396.18,215,3,2019,0)"
^XMB(3.9,22,2,7138,0)="M5>K4JY08<1)QTDAS%SMKBX\'5?>L.F-XL1B4BU&`C.0""Y2LZH5PNMU,O?I<0"
^XMB(3.9,22,2,7139,0)="""DATA"",396.18,215,3,2020,0)"
^XMB(3.9,22,2,7140,0)="MY*1B(PKG,DT+VD^6UK<I(=^L?H-&+)V0)8$`&)LZ7RX-I,^*G&V@MK`C%V6@"
^XMB(3.9,22,2,7141,0)="""DATA"",396.18,215,3,2021,0)"
^XMB(3.9,22,2,7142,0)="M%*69(*6I(I4@P5F0$W2G;:,NY-HE/&32##6)/Y.&ABZ(@?;Y,WG#-0KL\F=O"
^XMB(3.9,22,2,7143,0)="""DATA"",396.18,215,3,2022,0)"
^XMB(3.9,22,2,7144,0)="MJ%M+P2*[C>X7$V>@CE<S_9#.Z7#`'ZNLV""%;FE5.O7/E]""36D0=CQQBX)J-!"
^XMB(3.9,22,2,7145,0)="""DATA"",396.18,215,3,2023,0)"
^XMB(3.9,22,2,7146,0)="MH11,D&GN-Y^O@6,P-A#*P/>DN$$@L)NP(8""B#?906]C7JYT_Y)3MZ?CUX"":D"
^XMB(3.9,22,2,7147,0)="""DATA"",396.18,215,3,2024,0)"
^XMB(3.9,22,2,7148,0)="M/GOE27DN`T3LB];27J30E4\*(A^:`.M+V2]%M)&/=O3$`?;5':@-]X9"""".H1"
^XMB(3.9,22,2,7149,0)="""DATA"",396.18,215,3,2025,0)"
^XMB(3.9,22,2,7150,0)="M#T>P4<X3*J6VY)I6V'N=I_6LRBYW5=CM)]^69&I#&*#`W_G,^;[`+N^JK.L,"
^XMB(3.9,22,2,7151,0)="""DATA"",396.18,215,3,2026,0)"
^XMB(3.9,22,2,7152,0)="M2_'Y4T:TC`057`I&N>1!7\8G]@Y11`N&?!+YTC8FD/&2W>#/K&M3>.I<<']:"
^XMB(3.9,22,2,7153,0)="""DATA"",396.18,215,3,2027,0)"
^XMB(3.9,22,2,7154,0)="M-01B]OBAO9+$@>+A@UCQ\*P2CRK)YZ[:D=(:='=@G>OL)B4*LYXMR*Q3O5Z1"
^XMB(3.9,22,2,7155,0)="""DATA"",396.18,215,3,2028,0)"
^XMB(3.9,22,2,7156,0)="M]E=R4RP[YN590V:%UC(EJ>BLSO:33?JC(1?@L]U(7?ICA8UT2H:!2+*+_MAD"
^XMB(3.9,22,2,7157,0)="""DATA"",396.18,215,3,2029,0)"
^XMB(3.9,22,2,7158,0)="M=?JL_279=[:_E2<%TX%PF73#2U6:TS?J1;9ZYJ3-C-/,_>76^ABQ?$'0SFOS"
^XMB(3.9,22,2,7159,0)="""DATA"",396.18,215,3,2030,0)"
^XMB(3.9,22,2,7160,0)="MI&H+/+GH`*_0BI0OF_3-4VX%GGJME;&;9/3TP'7'']_CGV>*Y_^ROEQF#98["
^XMB(3.9,22,2,7161,0)="""DATA"",396.18,215,3,2031,0)"
^XMB(3.9,22,2,7162,0)="M$3GC=XU7N([/#3#.#>BAZ;G1C6EN3VS7.J-F2#`%0UZ5R\L27\4Q,6O;'\PM"
^XMB(3.9,22,2,7163,0)="""DATA"",396.18,215,3,2032,0)"
^XMB(3.9,22,2,7164,0)="M&]L0/+S^5&8=\O=BWS[JN1'W\""3;HKP/5+EF39*FG4RLG5FRKML!1G)M=)U0"
^XMB(3.9,22,2,7165,0)="""DATA"",396.18,215,3,2033,0)"
^XMB(3.9,22,2,7166,0)="MV!!=R#Z\+.L&&\QO:;XQ_T7^Y_:KL#$F344-_4?[C01^OVR<)[[[B^^29J/+"
^XMB(3.9,22,2,7167,0)="""DATA"",396.18,215,3,2034,0)"
^XMB(3.9,22,2,7168,0)="MKE+PE/]C$KM*K;4=""3G!].?^-GVM622%HZ%""3H*6@^2/F+/\.QG/O;ZNDAOJ"
^XMB(3.9,22,2,7169,0)="""DATA"",396.18,215,3,2035,0)"
^XMB(3.9,22,2,7170,0)="M[UQNY!\9BL7@XTECPWJ#+Y0Q<K]O(K^J^5C;C2<WF_CMWS%[""_(UF*UE?I.V"
^XMB(3.9,22,2,7171,0)="""DATA"",396.18,215,3,2036,0)"
^XMB(3.9,22,2,7172,0)="M5C:KZW4[5U""NV[>JAI0<EVF7J5ZWM^YSMLP]:C+:&3U)BX'.!_1""A1N$`I7U"
^XMB(3.9,22,2,7173,0)="""DATA"",396.18,215,3,2037,0)"
^XMB(3.9,22,2,7174,0)="M#)7&`D*.!^8E-'T135-&,^PZ&""VD:3L/A-X#7?'-J/]`'1'I9>[!,:%+[P?@"
^XMB(3.9,22,2,7175,0)="""DATA"",396.18,215,3,2038,0)"
^XMB(3.9,22,2,7176,0)="MN[:N+^#OE*'0T5GHAPH=63M+<-Q9\J6'':@$+XBW]PQ\I:O$AK4TY/B]J)MJ"
^XMB(3.9,22,2,7177,0)="""DATA"",396.18,215,3,2039,0)"
^XMB(3.9,22,2,7178,0)="M35>ZM-VW\H2>+A=Y+#^JSV_XBOS&SK>,H#1&!-:>%'2-@\2_"":1""2IJ82<A&"
^XMB(3.9,22,2,7179,0)="""DATA"",396.18,215,3,2040,0)"
^XMB(3.9,22,2,7180,0)="M;IR*>I_XKJ%0*9B)6=L=FQ5.4E79#0D5DX;&:/C.D05TA,N_J=G,.;[26#J2"
^XMB(3.9,22,2,7181,0)="""DATA"",396.18,215,3,2041,0)"
^XMB(3.9,22,2,7182,0)="MQ]*#39(!_\YVZ03_>@_""%//O*#U(%LJ9G)N""),""V;!+NV)'I-4$[%`\<[_O`"
^XMB(3.9,22,2,7183,0)="""DATA"",396.18,215,3,2042,0)"
^XMB(3.9,22,2,7184,0)="MOO<@'QBY^SYP[#_,!P;[J_0#?6*X]Q.'#^V):247>%(W:/""\OOQY8:AZ7(B0"
^XMB(3.9,22,2,7185,0)="""DATA"",396.18,215,3,2043,0)"
^XMB(3.9,22,2,7186,0)="M\GFA\&T#AP@@N^>S\YA,?"":MUV3L-VD\)P/?2>(]Z?TG0P]J+.%@HC44AFX?"
^XMB(3.9,22,2,7187,0)="""DATA"",396.18,215,3,2044,0)"
^XMB(3.9,22,2,7188,0)="MK0FBXVM-<-::.]`:M(?6`)W6J&RK&Q]?;:*SVMR!VOA[J`W<5VV\XZL-TWMY"
^XMB(3.9,22,2,7189,0)="""DATA"",396.18,215,3,2045,0)"
^XMB(3.9,22,2,7190,0)="M5IO;4IMP#[5!^ZI--(&U\<]J<P=J$UNI#0\[%8_T$3.J%-G&]0""%2CU""HWH$"
^XMB(3.9,22,2,7191,0)="""DATA"",396.18,215,3,2046,0)"
^XMB(3.9,22,2,7192,0)="M!&&,-1H;M!N/-1V+O0JD""$!F%;^TF)>_""=1(&XT-*UF2IF-IZ[$N""68G9KJD"
^XMB(3.9,22,2,7193,0)="""DATA"",396.18,215,3,2047,0)"
^XMB(3.9,22,2,7194,0)="MX!`QJ[,9^XLYO%,Q?ZHR4KKILY""?TQG^R_4]D38\2-K@0&FK4SG[2SN^4VEW"
^XMB(3.9,22,2,7195,0)="""DATA"",396.18,215,3,2048,0)"
^XMB(3.9,22,2,7196,0)="M9_F>2ML[2-KP8!-^?''#N[7A?[VX9Q(.#I(P.E3""X00'VKM3""=,&PGLBW&A4"
^XMB(3.9,22,2,7197,0)="""DATA"",396.18,215,3,2049,0)"
^XMB(3.9,22,2,7198,0)="MN,R/.M0_Z*F1`*3]Q-""3K\64;[900`'@\^J?8?^.A!)@MO.*/<[1Z`$7QU3&"
^XMB(3.9,22,2,7199,0)="""DATA"",396.18,215,3,2050,0)"
^XMB(3.9,22,2,7200,0)="MN\FA8L$;M]9P('WV+(^?8\T95IW?(1@L:>UQZB8IYDDU[[M6MWUUTN$^Y='6"
^XMB(3.9,22,2,7201,0)="""DATA"",396.18,215,3,2051,0)"
^XMB(3.9,22,2,7202,0)="M'&O)D1:.LSG$PW"":A?[7_P]02P,$%``""``@`NH/""-#\D`"",%70``Z%T#`""``"
^XMB(3.9,22,2,7203,0)="""DATA"",396.18,215,3,2052,0)"
^XMB(3.9,22,2,7204,0)="M``!'96YE<F%L7TUE9&EC86Q?17AA;5\Q,3$N<&YL+F-D9>V];7<;.8XV_'GV"
^XMB(3.9,22,2,7205,0)="""DATA"",396.18,215,3,2053,0)"
^XMB(3.9,22,2,7206,0)="MG/T///FP=_=,3UQ%LM[VK/<YCBTGVO7;+3GIR:<^BEQ)M""U+7DE.Q_>O?ZI*"
^XMB(3.9,22,2,7207,0)="""DATA"",396.18,215,3,2054,0)"
^XMB(3.9,22,2,7208,0)="M;U5%@`!D*=TSD^S.3*(""2?`B""((@""1P=J9NKT[[J#V>CA\6__DOWHSH?S>:+"
^XMB(3.9,22,2,7209,0)="""DATA"",396.18,215,3,2055,0)"
^XMB(3.9,22,2,7210,0)="MWN/D./S7?U']?*%>=ZXN.V>_W`PF^3A*7KZ:C2:?%M./L^ED<7P^&,_SHZ/7"
^XMB(3.9,22,2,7211,0)="""DATA"",396.18,215,3,2056,0)"
^XMB(3.9,22,2,7212,0)="M^22?#<;J:C"";#1:C+SE0U(`E3\XN`-H8I+V=#1[O!P`YS-3-;/IAG-^K_D,^"
^XMB(3.9,22,2,7213,0)="""DATA"",396.18,215,3,2057,0)"
^XMB(3.9,22,2,7214,0)="M''T<#=5M?O\P'BP@YL(0J`*@LQILZLUT_C!:%`!,9ZK_./N4SYZ@1B*P\%4^"
^XMB(3.9,22,2,7215,0)="""DATA"",396.18,215,3,2058,0)"
^XMB(3.9,22,2,7216,0)="M+=B:WT,E8""!Z^7`ZNYNK7OYEE/\&E9,!4O!\?S\`>;;PL%WF=Z-AT=_KA]%D"
^XMB(3.9,22,2,7217,0)="""DATA"",396.18,215,3,2059,0)"
^XMB(3.9,22,2,7218,0)="M-)VHT62^F#T.%\7?YU`MEE4+SD;*&YX,)/O7?SDZ^K/O3TFP`E--/ZK^T_W#"
^XMB(3.9,22,2,7219,0)="""DATA"",396.18,215,3,2060,0)"
^XMB(3.9,22,2,7220,0)="M8GH_5S^LY/I'1@T`-TU94<=*M:9+[[H/#9YIEUL54YW)W;28J),<*VG1DD]8"
^XMB(3.9,22,2,7221,0)="""DATA"",396.18,215,3,2061,0)"
^XMB(3.9,22,2,7222,0)="M&1V@9:YND3)1BI5YW<6:T5B1F\?Q_712##M6$H7C=#""[&PV&6#D4C-=OW2(7"
^XMB(3.9,22,2,7223,0)="""DATA"",396.18,215,3,2062,0)"
^XMB(3.9,22,2,7224,0)="M@P\%?D'VLC,9%)/D;BVB9Z/!^&D^FJO_^YC/2_%N%NO<C1:1%19:LA>A[+V_"
^XMB(3.9,22,2,7225,0)="""DATA"",396.18,215,3,2063,0)"
^XMB(3.9,22,2,7226,0)="M<OD[O?GYLC>X&TU?SZ:/#U&P:?)V]@C-!!UCU;^:Y8/Y`@,MP8KU?QU-L$*H"
^XMB(3.9,22,2,7227,0)="""DATA"",396.18,215,3,2064,0)"
^XMB(3.9,22,2,7228,0)="M.%SEC[,I5BK#2KW)[S%I-:BT7C[.AX_CZ?S7?)POT+EE0E0,YT_#SQBK:*G+"
^XMB(3.9,22,2,7229,0)="""DATA"",396.18,215,3,2065,0)"
^XMB(3.9,22,2,7230,0)="MZ>/BL_HW=?MY-ATLH)4,9?AJ""JJP6.-@#G^%""J#SHS^:/$+:.$9%K_-U<%^H"
^XMB(3.9,22,2,7231,0)="""DATA"",396.18,215,3,2066,0)"
^XMB(3.9,22,2,7232,0)="ME]F\X`Y<)Z.$P/^OZP&`5@$4QI/[A\?%`)DI-N(4\ZOH2L/??""XF9;G>Y$4W"
^XMB(3.9,22,2,7233,0)="""DATA"",396.18,215,3,2067,0)"
^XMB(3.9,22,2,7234,0)="MU0\WTX?'A_F/5$%(BB`K0!4MO*N,@/[H$[@*9EBQ-T\/^6R13^;E(G@Z&RWR"
^XMB(3.9,22,2,7235,0)="""DATA"",396.18,215,3,2068,0)"
^XMB(3.9,22,2,7236,0)="MV0BR<XQ%*B@G)T1OL`8[A7*'#""F,PY6JA=J(D2(G'^ZF]SG(5H(4^:_I:`)-"
^XMB(3.9,22,2,7237,0)="""DATA"",396.18,215,3,2069,0)"
^XMB(3.9,22,2,7238,0)="M(I,B!2K]`A7(,*`*2P.TZP*DP.NWT$""&&*[Y8+905^_?G*C3PJ2;EU;61CY5"
^XMB(3.9,22,2,7239,0)="""DATA"",396.18,215,3,2070,0)"
^XMB(3.9,22,2,7240,0)="M2\ZJ7\K%J*IS#A(X?&)HGX_FB\?Q0$'<!BBWLPDH9U&$E%BN'5`)C*]B,8,T"
^XMB(3.9,22,2,7241,0)="""DATA"",396.18,215,3,2071,0)"
^XMB(3.9,22,2,7242,0)="M$`9@9S""3R#&F0S$!0S4B)F""D?D\""5#1!;9V@/7^"">I+$PAD?H6-]GQ]=%(;M"
^XMB(3.9,22,2,7243,0)="""DATA"",396.18,215,3,2072,0)"
^XMB(3.9,22,2,7244,0)="M9Z@5#-^-;085LGY=02\F:.?.IU-P+<7H+_-)J7=/I_</>:%&AT\[Z*FCPG2]"
^XMB(3.9,22,2,7245,0)="""DATA"",396.18,215,3,2073,0)"
^XMB(3.9,22,2,7246,0)="MZ4!<8L)460Q0`4R8-N8[5`C36)VOBUE^/UJ`NZ+`IQ=_H0<`DY:+4=%BI;C*"
^XMB(3.9,22,2,7247,0)="""DATA"",396.18,215,3,2074,0)"
^XMB(3.9,22,2,7248,0)="M_=#EU%V9*WO9Z);IVZ2YS.^G86$<>DBJ:J(D):LQ`:.:C.;&(7&7_\I6>#<H"
^XMB(3.9,22,2,7249,0)="""DATA"",396.18,215,3,2075,0)"
^XMB(3.9,22,2,7250,0)="MEN"""";@Y]5V?YQP+8_J($;UU_=_(_C[.G5_G'Z2SOY[,OHV')@*JS`)`4ULR+"
^XMB(3.9,22,2,7251,0)="""DATA"",396.18,215,3,2076,0)"
^XMB(3.9,22,2,7252,0)="M%YL:YXT:^^%JQ_[3YA=]<G:Q^=?:ZS#Z?]50_3*=_;)R/FQ(EBZ3S3\[G5\N"
^XMB(3.9,22,2,7253,0)="""DATA"",396.18,215,3,2077,0)"
^XMB(3.9,22,2,7254,0)="MWK:$?--*Q4IK`:D:A#[@;4/42S:@+TN.-E\@&-;^D7HO>F\[FW^NEKY&)R^V"
^XMB(3.9,22,2,7255,0)="""DATA"",396.18,215,3,2078,0)"
^XMB(3.9,22,2,7256,0)="MGT_?G#=*7K3ZOZX>X:Y7XZ[V9;W>(EVZ``L5K&""M7/@Q.,_SQ:87Q9#\TOGX"
^XMB(3.9,22,2,7257,0)="""DATA"",396.18,215,3,2079,0)"
^XMB(3.9,22,2,7258,0)="M,1\NYMN>?1G=%9HOWXI*:>EL_M5+XMK?TU9?BLHAOFKM@&ROF@3EIFP=^E`P"
^XMB(3.9,22,2,7259,0)="""DATA"",396.18,215,3,2080,0)"
^XMB(3.9,22,2,7260,0)="M`O^<>OM_<7VY%?O*;-FBL=D$_+2=ZO/YX-.V]RO_DC-Q6DKD^A*4]*HY$)]-"
^XMB(3.9,22,2,7261,0)="""DATA"",396.18,215,3,2081,0)"
^XMB(3.9,22,2,7262,0)="MR]#7%1/0I[6_RS.OO&BLB7XY+3:\N=.M7U9^M.V'K[]LUI[&CT_-?[:-KV8["
^XMB(3.9,22,2,7263,0)="""DATA"",396.18,215,3,2082,0)"
^XMB(3.9,22,2,7264,0)="M/G;738(TM=:Q[T_HE\',#\777ZX:&'S]I3+RZC]41ES]A](V:Y0HC*F?UE+]"
^XMB(3.9,22,2,7265,0)="""DATA"",396.18,215,3,2083,0)"
^XMB(3.9,22,2,7266,0)="M=?'+VX=B/^:P<H5AL&H2^;8T(>%O)2-8E:6_!9IU:_XH6%X_3>I]K*R5)@B%"
^XMB(3.9,22,2,7267,0)="""DATA"",396.18,215,3,2084,0)"
^XMB(3.9,22,2,7268,0)="MC5#_H3`11\/Z#Z^[#12+#?XX=_@LFD%ZL/2H8!TO'4/PMXH/Y%MAI""$H5]Q1"
^XMB(3.9,22,2,7269,0)="""DATA"",396.18,215,3,2085,0)"
^XMB(3.9,22,2,7270,0)="MF&SLV7K'5O9JH^=O&_/BZZ+USU]./SOF?;UZA,FU98ST[2TV![XN\""]+5JB."
^XMB(3.9,22,2,7271,0)="""DATA"",396.18,215,3,2086,0)"
^XMB(3.9,22,2,7272,0)="MEX0KM_:F*\76;//WF\YR$K3^7?DWMS\N[02D\[4F(&Y+KR;P\ZHASZ>*!_!["
^XMB(3.9,22,2,7273,0)="""DATA"",396.18,215,3,2087,0)"
^XMB(3.9,22,2,7274,0)="MG1TO`&TSZG(PWFJ,\_R^_L_Z8)==:B!P]K6N)BZFO[75A,>4*AL%+8FJ?62J"
^XMB(3.9,22,2,7275,0)="""DATA"",396.18,215,3,2088,0)"
^XMB(3.9,22,2,7276,0)="M8QH`P^3L*U:B8M:+TMEH\&DRG8^VNO/MI#P@FC[E=UM(VC_T\L5H5OMW(0F0"
^XMB(3.9,22,2,7277,0)="""DATA"",396.18,215,3,2089,0)"
^XMB(3.9,22,2,7278,0)="MEV!3.<3?MAV0>\^W5>O(]%BYNE<?-]V>/-[GLT+%K,=L/6L+#3\KQF)K.2ZG"
^XMB(3.9,22,2,7279,0)="""DATA"",396.18,215,3,2090,0)"
^XMB(3.9,22,2,7280,0)="M:_OGUV^=7[KM7_JO;MK'IZU6""JZ""MGG8:`\@V+0,?>OBWTINUC^#$""SWBZT^"
^XMB(3.9,22,2,7281,0)="""DATA"",396.18,215,3,2091,0)"
^XMB(3.9,22,2,7282,0)="M5/K;Z>K[J_9/G;_=MG\Z<[I?;P'@L-X6U+E-J\#';?O`QS.JZV7IM^-AL4O^"
^XMB(3.9,22,2,7283,0)="""DATA"",396.18,215,3,2092,0)"
^XMB(3.9,22,2,7284,0)="MJ?;+Z=-@.17JOXT?/WPHYDO]M\Y=WCZ1WE:(\+JN&_N\:@;Y7+5(]NCU8/)I"
^XMB(3.9,22,2,7285,0)="""DATA"",396.18,215,3,2093,0)"
^XMB(3.9,22,2,7286,0)="MEA?67NVWV]GTX7.QPM=^*G>YP])\JOW67PP*YMR&UU4B?*UJ1[ZN&T(^+]M<"
^XMB(3.9,22,2,7287,0)="""DATA"",396.18,215,3,2094,0)"
^XMB(3.9,22,2,7288,0)="M?41G/W@4%FKSLI^/BTU*7NC$_![3#W#A,/84;J@EI'S2*E^Z""[;?U?*,014L"
^XMB(3.9,22,2,7289,0)="""DATA"",396.18,215,3,2095,0)"
^XMB(3.9,22,2,7290,0)="MC.;%+O-)L(F&&WPY;[+;_<@A_(__?/$^GY=^AGKSKQX7B^E$OWPWFH^*56OC"
^XMB(3.9,22,2,7291,0)="""DATA"",396.18,215,3,2096,0)"
^XMB(3.9,22,2,7292,0)="M-""FL]=%'9`,/-N:,`,:587-E.%S5MNY@<YK+EV;S93&^,/<`C$/LL(9C%J/<"
^XMB(3.9,22,2,7293,0)="""DATA"",396.18,215,3,2097,0)"
^XMB(3.9,22,2,7294,0)="MN>R%2<9D<+GGA]$((S9W)6V+NZLIQER<\)A;>P_@%K7E<U?0LKFSS+'=.`3@"
^XMB(3.9,22,2,7295,0)="""DATA"",396.18,215,3,2098,0)"
^XMB(3.9,22,2,7296,0)="M)DW,9Z^@Y0]M%O/X:[@ED$$3\!@Z/%XO/N<SA,LL8H*XWM;`C2;6HY=K?JGC"
^XMB(3.9,22,2,7297,0)="""DATA"",396.18,215,3,2099,0)"
^XMB(3.9,22,2,7298,0)="M%YTO@_&+YO?U>)JUKW=]9-QF`O;'<CG""(6O1JO_X3[4=6,=OK0$^6W2E[SJ)"
^XMB(3.9,22,2,7299,0)="""DATA"",396.18,215,3,2100,0)"
^XMB(3.9,22,2,7300,0)="M-V1-NM-Q/IC=%Q1-ZO+C!OKB+]V/R]7IKYL_JI=_*I343)U.[W*U_7U)IU[G"
^XMB(3.9,22,2,7301,0)="""DATA"",396.18,215,3,2101,0)"
^XMB(3.9,22,2,7302,0)="MD[MBRW`Q_30:5C<#D<ZF;F=?^'1MNT!AGB_W0&V-N]T9E9=<VE_7^ZD*B1>U"
^XMB(3.9,22,2,7303,0)="""DATA"",396.18,215,3,2102,0)"
^XMB(3.9,22,2,7304,0)="M!4+2\""70[*6GT2U+[68W4$N:?U[30)-^R%9+:UW>5M>'7*J$H%J*[O9T!Z8J"
^XMB(3.9,22,2,7305,0)="""DATA"",396.18,215,3,2103,0)"
^XMB(3.9,22,2,7306,0)="M15%;EPAGO12?#>\$\YM)X.<>(EO>]\J,<V($$%DO4<ON2B(A=5TFCAV):-/'"
^XMB(3.9,22,2,7307,0)="""DATA"",396.18,215,3,2104,0)"
^XMB(3.9,22,2,7308,0)="MHMIC4>V1)LA7>$0$MN6@1S%$!*JJ*/;W(FW:LC1&4GHCI$^$])F(WL8R\E1$"
^XMB(3.9,22,2,7309,0)="""DATA"",396.18,215,3,2105,0)"
^XMB(3.9,22,2,7310,0)="M'@40.3@N.B7'12*+,FHCHDY$U)F`VDHFG$T%Q%'@)2X]?(5M?9NOG(#`9^O]"
^XMB(3.9,22,2,7311,0)="""DATA"",396.18,215,3,2106,0)"
^XMB(3.9,22,2,7312,0)="M&A*?0_]GX_^LFY_AB1WYT;+D>MA:0>.$++%442&E_EN<!#%<,=@M&]%+(:86"
^XMB(3.9,22,2,7313,0)="""DATA"",396.18,215,3,2107,0)"
^XMB(3.9,22,2,7314,0)="MFVNA7R\6M/6%\APS$IQ;&5GH+LHND>40Q1RBU$MT.KW_,'TU_9II'IGAD5D>"
^XMB(3.9,22,2,7315,0)="""DATA"",396.18,215,3,2108,0)"
^XMB(3.9,22,2,7316,0)="M6=0B:SL6R^$OZ,+,K>[H""-<A-L1,FM8XU<T9_T!AUUJ:(X53Q2RJU$\%#I:/"
^XMB(3.9,22,2,7317,0)="""DATA"",396.18,215,3,2109,0)"
^XMB(3.9,22,2,7318,0)="MSC#I+)/.L2TX`^;O2%U1P5V@*""Q)T5340LFAZ`'5M%$+[MWE:N]67OVJO\:"""
^XMB(3.9,22,2,7319,0)="""DATA"",396.18,215,3,2110,0)"
^XMB(3.9,22,2,7320,0)="MR.K&]VK+7.BPT_%H^""O^KJ#]`*PI^TY]B;2^U5#B_5N]U6D^@`*H`&XH7MJO"
^XMB(3.9,22,2,7321,0)="""DATA"",396.18,215,3,2111,0)"
^XMB(3.9,22,2,7322,0)="MK;Q]2P)I=637MOT#WY-A]'7>/![E0A,AGN(^UZ7<W!T`/E+PC1RZQ=QZG@&2"
^XMB(3.9,22,2,7323,0)="""DATA"",396.18,215,3,2112,0)"
^XMB(3.9,22,2,7324,0)="M77SCK8Y0#H%F`=CKB[_Z4TQO.N""9""C;3`MXU[Z_OSJ*TYB#B<;#6:%L(2^LO"
^XMB(3.9,22,2,7325,0)="""DATA"",396.18,215,3,2113,0)"
^XMB(3.9,22,2,7326,0)="M06W#>KGWTT=U_SA?J'RRR&=J\3E7G]>?!Y,[-9XN[\:_4'\Y_3R8_1"":'Q4X"
^XMB(3.9,22,2,7327,0)="""DATA"",396.18,215,3,2114,0)"
^XMB(3.9,22,2,7328,0)="M:I4Q5-C""%^61-=%J^Y>_.'S<#18YL\ED3TV672^/HLOKM,6_GA[R\EKM?#FD"
^XMB(3.9,22,2,7329,0)="""DATA"",396.18,215,3,2115,0)"
^XMB(3.9,22,2,7330,0)="M)""^;BM>>-;6^6N9>9U..MFJ/)'5[Z\UU_Z9[>W*A3J[.U,7UZ<EM]_KJWU7!"
^XMB(3.9,22,2,7331,0)="""DATA"",396.18,215,3,2116,0)"
^XMB(3.9,22,2,7332,0)="M)2`!?U$;UHM>GYW<=AJ4S8%K$O<Z)_WK*W7=4[?O;SKJ^ESUW_9>=WKO@1H2"
^XMB(3.9,22,2,7333,0)="""DATA"",396.18,215,3,2117,0)"
^XMB(3.9,22,2,7334,0)="ML(8_^_^\:)*O_PH9Y6&Z&6@,&?Y$QOV!OMD/[P#""R/,M`?9EC9GI82%U64!K"
^XMB(3.9,22,2,7335,0)="""DATA"",396.18,215,3,2118,0)"
^XMB(3.9,22,2,7336,0)="M>COY=3+];?(""7^:#S%N=,W^=&MTZ""W.VOKP6)M)P/)UC:FI[03%$M=5F]GC+"
^XMB(3.9,22,2,7337,0)="""DATA"",396.18,215,3,2119,0)"
^XMB(3.9,22,2,7338,0)="MZQ<,%;2'JI)]5-4F7-)MU,.+SF0Q&Q6-#&:Y&MS=%<.SF%;*:""W5UU<7[]5O"
^XMB(3.9,22,2,7339,0)="""DATA"",396.18,215,3,2120,0)"
^XMB(3.9,22,2,7340,0)="MG_/RZ?6'^]%""C>;J8584S^]>P$>NT'JXM<#1X=0OAQX!02IMN8HA^Z<Z;G<>"
^XMB(3.9,22,2,7341,0)="""DATA"",396.18,215,3,2121,0)"
^XMB(3.9,22,2,7342,0)="M;F.TRI%<$ZP9V]@@2JTN<8U'U24F1.A-W""Y)1""5HJ@>'E6)GQN2D.L52D$6O"
^XMB(3.9,22,2,7343,0)="""DATA"",396.18,215,3,2122,0)"
^XMB(3.9,22,2,7344,0)="MU/+8IO:X7#$M?](XUA[;N&Y@M""](N-N7E975WIO:Q+NCKPZU$GK73;1?.XKS"
^XMB(3.9,22,2,7345,0)="""DATA"",396.18,215,3,2123,0)"
^XMB(3.9,22,2,7346,0)="M,H`\($D@&O@`+O$J8""'<U/QR]FVXLZOM7EX=B.,[4""TM$`@+)##]T1$(['+="
^XMB(3.9,22,2,7347,0)="""DATA"",396.18,215,3,2124,0)"
^XMB(3.9,22,2,7348,0)="M:VR9ES^_')<:M2P^:9R.`7-@-57:\104:Q\9&>]JA\1P:$T8?%.281/&=3D&"
^XMB(3.9,22,2,7349,0)="""DATA"",396.18,215,3,2125,0)"
^XMB(3.9,22,2,7350,0)="MT.%;9_O,H'=1*([2/<$XRHLRQDD>T""""YR<KPLW!OA[;[)Z)'T$:K1LCR&$<9"
^XMB(3.9,22,2,7351,0)="""DATA"",396.18,215,3,2126,0)"
^XMB(3.9,22,2,7352,0)="MQWD;\'VW05U?N\L.Z3LP_OG?$M6U/#_!DMS4T!ML7-6\FCH@DJ`?BDG9GI(`"
^XMB(3.9,22,2,7353,0)="""DATA"",396.18,215,3,2127,0)"
^XMB(3.9,22,2,7354,0)="M,UK$C&8SHVEFG+50MR;X&EM6R!5GHB-+DPW9$SU.&!,XMARBF*,*B)IJ`\VC"
^XMB(3.9,22,2,7355,0)="""DATA"",396.18,215,3,2128,0)"
^XMB(3.9,22,2,7356,0)="M,PS5$GI4""Q-!GVJ)$\Z%@-BRJ""(.562Y.BKD$AI^C936J]7)4I!Q]C+WG%96"
^XMB(3.9,22,2,7357,0)="""DATA"",396.18,215,3,2129,0)"
^XMB(3.9,22,2,7358,0)="MYV*)2P(?H""6-6V&H[18+9HCF""#_G2DL<,85:,^FL7+""=GGLE6[-DUNQ%LL'>"
^XMB(3.9,22,2,7359,0)="""DATA"",396.18,215,3,2130,0)"
^XMB(3.9,22,2,7360,0)="M>PDMOT:VS%J>S""8!+;,I5V93>$&OS2/LEB1C*M$S""9U(SO84X>B8Q1""\[ZKQ"
^XMB(3.9,22,2,7361,0)="""DATA"",396.18,215,3,2131,0)"
^XMB(3.9,22,2,7362,0)="M@U[?J@T.%PA@?.CA04<'!\)R@:@QA`""1TD""L'!ZTB6=%)M[:R""L?Q,*[%<""2"
^XMB(3.9,22,2,7363,0)="""DATA"",396.18,215,3,2132,0)"
^XMB(3.9,22,2,7364,0)="ML;3;Q8W_QMVI6`.JY])8&N<?%RJOGA.[('.MAG""'W4:;)Y_B3-CK;A@(*""'5"
^XMB(3.9,22,2,7365,0)="""DATA"",396.18,215,3,2133,0)"
^XMB(3.9,22,2,7366,0)="MQ-CV12F(9@&FZHT^?<;AY*Y#8;C#YBU*!7BRUX0P%%!Z\72F74PZ5@+AM-OL"
^XMB(3.9,22,2,7367,0)="""DATA"",396.18,215,3,2134,0)"
^XMB(3.9,22,2,7368,0)="MKK:Q@):A@'C>`F<SP8HOQYV#.DI0&\D9H!2RZ]UA3`BJ[>!H@K*Z!)8@8J<D"
^XMB(3.9,22,2,7369,0)="""DATA"",396.18,215,3,2135,0)"
^XMB(3.9,22,2,7370,0)="MW6K<H/?V:WLQWMLQD`SN&4CJ=(VL$#19D(MS""3H?M.""B6I3XIDH4D5,EE$X5"
^XMB(3.9,22,2,7371,0)="""DATA"",396.18,215,3,2136,0)"
^XMB(3.9,22,2,7372,0)="MM?QQ%99+N9%S@/D1T?,C]J]1RFM*:_8F(K2<?79H4Z[&M?2^-TIWV1YHOE8."
^XMB(3.9,22,2,7373,0)="""DATA"",396.18,215,3,2137,0)"
^XMB(3.9,22,2,7374,0)="M+6OG&]J4K9,MY_ZWI#J!2*?[J\;CGB-/0V+Q*K):1%9AX7A3(S3^6QI(P%#^"
^XMB(3.9,22,2,7375,0)="""DATA"",396.18,215,3,2138,0)"
^XMB(3.9,22,2,7376,0)="MXI'RYT82<>9&$G/G1D+/C7@'`U!++)9FI_""YD<1L84X8<R,.!-7QA3HF?,[D"
^XMB(3.9,22,2,7377,0)="""DATA"",396.18,215,3,2139,0)"
^XMB(3.9,22,2,7378,0)="MCB36U(6U\C_+R(/EWR&)C1D[CH006-^!HHXC_OE(&'+>,%&BN!F-B!99$TI/"
^XMB(3.9,22,2,7379,0)="""DATA"",396.18,215,3,2140,0)"
^XMB(3.9,22,2,7380,0)="M*)T.>0](2,L9Z))7PCAO>4S(KXTOKB;T;)^C8!<Y8FZA-V%`W<_`CL(R[!.S"
^XMB(3.9,22,2,7381,0)="""DATA"",396.18,215,3,2141,0)"
^XMB(3.9,22,2,7382,0)="MZR%`&%N^_1YF&<>`UX$!+KU#=*S]@,TTK]6`:G6KUF+V%B-E4V:,S4A""5==^"
^XMB(3.9,22,2,7383,0)="""DATA"",396.18,215,3,2142,0)"
^XMB(3.9,22,2,7384,0)="M>K^+<68%""U""6L>9S8'ADK.,+FVE>;?QEBK\^\LW""3-`ZVW,<I@):^NS8D2F_"
^XMB(3.9,22,2,7385,0)="""DATA"",396.18,215,3,2143,0)"
^XMB(3.9,22,2,7386,0)="M$SGQOZ@SL?!!E(G_#C""2]W'UJ"")%;QEOGETP'J'%(?[)X)^T?Q!]#G``/^^Y"
^XMB(3.9,22,2,7387,0)="""DATA"",396.18,215,3,2144,0)"
^XMB(3.9,22,2,7388,0)="M>LH_6$^)PVR(FTS&3<;G)B./UGVA8&+Z.<%*#X7M9!<`C?;1;""6*092UB:@M"
^XMB(3.9,22,2,7389,0)="""DATA"",396.18,215,3,2145,0)"
^XMB(3.9,22,2,7390,0)="M1ZLG\#L""IRL>O:O]KTB=SOBH,F9=Y40Z)B;:,>9[;5:S!<#M6D1%:(Y=A-!I"
^XMB(3.9,22,2,7391,0)="""DATA"",396.18,215,3,2146,0)"
^XMB(3.9,22,2,7392,0)="M[0A]NSL,-N!SGK@M<IY.9V2G8[+3FMEI[>ET1G4ZICJMZ4ZO]Y*D[S`V.YUN"
^XMB(3.9,22,2,7393,0)="""DATA"",396.18,215,3,2147,0)"
^XMB(3.9,22,2,7394,0)="MK1((*<0X5_@NBG5MKEDH->WC/@]M)*!-^;19P*>U`MK,\FDC`0Z1`(<H$=!F"
^XMB(3.9,22,2,7395,0)="""DATA"",396.18,215,3,2148,0)"
^XMB(3.9,22,2,7396,0)="M`GP%?;.:3QL+<#"""",8X%?4O""`XV;8""P2""6UTF#$V7MJ-#=(<!<78GSF:`MF?"
^XMB(3.9,22,2,7397,0)="""DATA"",396.18,215,3,2149,0)"
^XMB(3.9,22,2,7398,0)="MU>-I:DJ-2"")PI)&,7!;?(PMDT4-DY)F5!1N1(1/)D(ED<5@B61B65-95JT7D"
^XMB(3.9,22,2,7399,0)="""DATA"",396.18,215,3,2150,0)"
^XMB(3.9,22,2,7400,0)="ML0P9(Q.""6-958<`<Z:C*ADD872>)#BD$AB*O*:)6Z""3%-3WH\""0UVX-!G`J("
^XMB(3.9,22,2,7401,0)="""DATA"",396.18,215,3,2151,0)"
^XMB(3.9,22,2,7402,0)="MLT!`;""7$-?N#$0I'@D8D02-*),29!&=)!VM6""$T<2]`PDN&.)1VL62+['D')"
^XMB(3.9,22,2,7403,0)="""DATA"",396.18,215,3,2152,0)"
^XMB(3.9,22,2,7404,0)="MH""0BXNA0PVW\Q(!!L@T2`+\0,=Y[3,T'74=')^.Q6MHCOL-/WBZH;MJ$,M.&"
^XMB(3.9,22,2,7405,0)="""DATA"",396.18,215,3,2153,0)"
^XMB(3.9,22,2,7406,0)="M>LKE&#=D@518().^+K/2`HZ10Q6(I""A%4I2B1%H@DXZ#M--6^BPPEJ)DI*(1"
^XMB(3.9,22,2,7407,0)="""DATA"",396.18,215,3,2154,0)"
^XMB(3.9,22,2,7408,0)="M2SOM&#[['VGIP""7B`M&A1</0!5`SJ.D0?O:FC%9W2][P&`P(IT#46HRRYD!G"
^XMB(3.9,22,2,7409,0)="""DATA"",396.18,215,3,2155,0)"
^XMB(3.9,22,2,7410,0)="M0.`]/<%K;G<`O4]T,ZCR0`*?L44BXE^@2#G171MAB9&027X.?"">D*2NJ'AP:"
^XMB(3.9,22,2,7411,0)="""DATA"",396.18,215,3,2156,0)"
^XMB(3.9,22,2,7412,0)="M&5YW8SRDP#+V4GX_*+C*JR0(GBOVSCJ&H#IO/2'(7+R<7CO1[10):HK?>T(Y"
^XMB(3.9,22,2,7413,0)="""DATA"",396.18,215,3,2157,0)"
^XMB(3.9,22,2,7414,0)="MP`/%N?':%/KV(B/#=5T6C$T&X%>L.UG`EM*,<2]G&VR3+:5M#GQ2R@N)&_""E"
^XMB(3.9,22,2,7415,0)="""DATA"",396.18,215,3,2158,0)"
^XMB(3.9,22,2,7416,0)="M-`H\H""Z360\FPUD^6(SF""J+`>I4D?%P95_2B4(QKD@APY5RG:_)`X!KR`K""="
^XMB(3.9,22,2,7417,0)="""DATA"",396.18,215,3,2159,0)"
^XMB(3.9,22,2,7418,0)="MYV6>\.YD.)TLR@PKPUSA].B4M/SKE4'(`'M[;X.-=BJYC1*$'+B;7!!X:Q[>"
^XMB(3.9,22,2,7419,0)="""DATA"",396.18,215,3,2160,0)"
^XMB(3.9,22,2,7420,0)="M-]/Y0MW,!@5IF4#]JQQL&PC`#AA@&SG8-I""`'7#`-A*P#2-:CGH]*+:2K\9E"
^XMB(3.9,22,2,7421,0)="""DATA"",396.18,215,3,2161,0)"
^XMB(3.9,22,2,7422,0)="M/*!9@;3""2-'Y&PF`U@R@K1SH))(`K3E`6Q!H&&?;P%F=KB)3;:W;Q@Z[\@%@"
^XMB(3.9,22,2,7423,0)="""DATA"",396.18,215,3,2162,0)"
^XMB(3.9,22,2,7424,0)="MEF]JL`0EZ(PVL.6J_,<7:Q-\_;\X1Y&8H^C`'*5BCM+#<M1R0C`X@JR)?7)D"
^XMB(3.9,22,2,7425,0)="""DATA"",396.18,215,3,2163,0)"
^XMB(3.9,22,2,7426,0)="MQ1S9/7#D%>W,BD&RAP4I$D^VZ,""3+1)/MNC`DZWEL>!PE!R8HTS,479@A226"
^XMB(3.9,22,2,7427,0)="""DATA"",396.18,215,3,2164,0)"
^XMB(3.9,22,2,7428,0)="M[/3`DFVU>/KKPW(4B^=:?.""Y9L3+B#GP,A*+)3L^L&0GH92C)/Q'U-GJ[TM%"
^XMB(3.9,22,2,7429,0)="""DATA"",396.18,215,3,2165,0)"
^XMB(3.9,22,2,7430,0)="M)F*.DD-S)%[8DN@?<1GQ""I(1LV3V-?\I-W?%R\K+K?CN<QD?V_?;SOFG;E\P"
^XMB(3.9,22,2,7431,0)="""DATA"",396.18,215,3,2166,0)"
^XMB(3.9,22,2,7432,0)="MW5(XQY='1ZWHNJ8=7+=\\]5./)""""%U2K$""LN2HUJ-X_W-X%VRWC?HZ+4<+`H"
^XMB(3.9,22,2,7433,0)="""DATA"",396.18,215,3,2167,0)"
^XMB(3.9,22,2,7434,0)="M@^Q^'BS4I\%\,9N.)HM\OAA-""F;GJ^""T533>,LAN/EG\I!Z*#>8\5V6$US(R"
^XMB(3.9,22,2,7435,0)="""DATA"",396.18,215,3,2168,0)"
^XMB(3.9,22,2,7436,0)="M[WU1316AMXI1HX;3^_N""K""HS^$D-/P\F17/E]R^#\6,517R@)DLPBAH?II-Y"
^XMB(3.9,22,2,7437,0)="""DATA"",396.18,215,3,2169,0)"
^XMB(3.9,22,2,7438,0)="M_E,98WQ%^31]G*G!9%ZF_EY,""TH/6RN67KZ`!*8.\1;_`M^P_8+*""^X&6_QJ"
^XMB(3.9,22,2,7439,0)="""DATA"",396.18,215,3,2170,0)"
^XMB(3.9,22,2,7440,0)="ML0[H]W:MZGFA@K>^IG4F[M5-8YP8>N"":,L)YZ%V?`^HDE%]C#@/BT74[)&X@"
^XMB(3.9,22,2,7441,0)="""DATA"",396.18,215,3,2171,0)"
^XMB(3.9,22,2,7442,0)="M([<2<I.(*@]$O!C""T[^^""M_(J+G`Z1(_V=)]I#F/B$.=L:@23KI$^:-#G?`"""
^XMB(3.9,22,2,7443,0)="""DATA"",396.18,215,3,2172,0)"
^XMB(3.9,22,2,7444,0)="MQD%)Z`6RQ4BN1H9*\DD7XQI.(JL^D+%CJ',<4,)\A+S@&SKDD64\LH25B4P\"
^XMB(3.9,22,2,7445,0)="""DATA"",396.18,215,3,2173,0)"
^XMB(3.9,22,2,7446,0)="ML+*7?F$@?<X8AM*,<"":2%DC$O0C8#Q:U(5\L)HP7B]H""B1VB9MVU%W9H[*Z@"
^XMB(3.9,22,2,7447,0)="""DATA"",396.18,215,3,2174,0)"
^XMB(3.9,22,2,7448,0)="MZ1+T.NHUL82L6&@[ZNEC:8<+S_.X)A=84D3D2`3&Z]B;!R,#,G'@Z7MW69J!"
^XMB(3.9,22,2,7449,0)="""DATA"",396.18,215,3,2175,0)"
^XMB(3.9,22,2,7450,0)="M64.'3X_E98""90U[KB>1%DAUZPT+`G4'0'1MW%D%4P'3QB1I'TF`:8#4-67FH"
^XMB(3.9,22,2,7451,0)="""DATA"",396.18,215,3,2176,0)"
^XMB(3.9,22,2,7452,0)="M0UYP,UH`J=M.""(?H9`T!-^5JM$1EG*X`C(`;4W3?FX@9,\DWX,L1;PYB0?!-"
^XMB(3.9,22,2,7453,0)="""DATA"",396.18,215,3,2177,0)"
^XMB(3.9,22,2,7454,0)="M.(MWX""S^%IR%.V`6?@O,3""27LFB/?""GW5>]:(RY9<1TR$)WKB'D&`PFO_60/"
^XMB(3.9,22,2,7455,0)="""DATA"",396.18,215,3,2178,0)"
^XMB(3.9,22,2,7456,0)="MS:/KM/%X@Q`5YSJ%+,,II+78*60E3J&'C>OAC^$-`OAANX$<X%%O$(:JZPU"""
^XMB(3.9,22,2,7457,0)="""DATA"",396.18,215,3,2179,0)"
^XMB(3.9,22,2,7458,0)="M7#'+6Q:#V=UH,-S):9,PG#9F=Z<-*\3D)G.MY3DQ8DZP""E;8""\,ALARBR$O4"
^XMB(3.9,22,2,7459,0)="""DATA"",396.18,215,3,2180,0)"
^XMB(3.9,22,2,7460,0)="MU-A&0&L%M!(>8@%MPJ<U(9]61UZ&*QT2D0%.RNA]#/^2L2PJ5BA'$[.H>""%3"
^XMB(3.9,22,2,7461,0)="""DATA"",396.18,215,3,2181,0)"
^XMB(3.9,22,2,7462,0)="M&5=T=;2+WXL7""76E.W""O%P`R[E\QED?&""RY)!G$""@/9YG&)6Q!=>C!G#HK(L"
^XMB(3.9,22,2,7463,0)="""DATA"",396.18,215,3,2182,0)"
^XMB(3.9,22,2,7464,0)="MJLA/A2D/!K&5$(O8B""7$B8#8A`+BN@KA^#S]D8%:&L<O2OZP0)KX;HCOEO@>"
^XMB(3.9,22,2,7465,0)="""DATA"",396.18,215,3,2183,0)"
^XMB(3.9,22,2,7466,0)="M8=_;PM(7O.EN[5=)\DA&'LO($Q&Y""47D.@*9A[V.$:VY:7&J$>%O6S/<FM_)"
^XMB(3.9,22,2,7467,0)="""DATA"",396.18,215,3,2184,0)"
^XMB(3.9,22,2,7468,0)="MLFJ+ZU7^99G?PR>S7B+#(;(<HLA+Y)=CTK=FI04B:8%86B`1%G`DFBK@RC10"
^XMB(3.9,22,2,7469,0)="""DATA"",396.18,215,3,2185,0)"
^XMB(3.9,22,2,7470,0)="MHKW<A[4GB!^?:4J0$@H[Y>""74:=OSM5JZH`D/C>*X&6'""5*.9SU""G::KS[*S"
^XMB(3.9,22,2,7471,0)="""DATA"",396.18,215,3,2186,0)"
^XMB(3.9,22,2,7472,0)="MMY1_<F+QDQ-L<7/B_;*1.N8""A1V$1+(S[A2+""5V%TW8XV#[/8^':JJ1D,)76"
^XMB(3.9,22,2,7473,0)="""DATA"",396.18,215,3,2187,0)"
^XMB(3.9,22,2,7474,0)="M@#L$R6>R_@+''J0SWZZGV0UL8V&VQ\W$>:UETP'';.SNPJ<;+JN^';WUDBUQ"
^XMB(3.9,22,2,7475,0)="""DATA"",396.18,215,3,2188,0)"
^XMB(3.9,22,2,7476,0)="M@<TB!U=TIJ<N2>M*EJ3'+WZ/H4%`40=!I1&^'5A<`(=H7/.;;M9^+YE[_M-N"
^XMB(3.9,22,2,7477,0)="""DATA"",396.18,215,3,2189,0)"
^XMB(3.9,22,2,7478,0)="MB7)F-TP<LFE]@*8-KVES@*8MKVE[@*8CJ&D_G>LD%S?N,Q[K1Q>B,GOG*]J!"
^XMB(3.9,22,2,7479,0)="""DATA"",396.18,215,3,2190,0)"
^XMB(3.9,22,2,7480,0)="MK^@;\&5WX,L>GB\3RODRX3?`*]X!K_@;\)7LP%=R>+YTM(/@ZVA_DH\?ID6>"
^XMB(3.9,22,2,7481,0)="""DATA"",396.18,215,3,2191,0)"
^XMB(3.9,22,2,7482,0)="M[3>TMKE':1'G*,V(C](BR5':<'4<],<X2'.X81^CM2#'#]',CH=HRT??;^%S"
^XMB(3.9,22,2,7483,0)="""DATA"",396.18,215,3,2192,0)"
^XMB(3.9,22,2,7484,0)="M,_BX+"",SP[5RE^)!LEN[98/NQ&JR,!CGY9>R4F>)KO9?[G&1SX7A1DWV>4@R"
^XMB(3.9,22,2,7485,0)="""DATA"",396.18,215,3,2193,0)"
^XMB(3.9,22,2,7486,0)="M""340,=A''8FH$Q&UB&\;BJA%O;2B7EI1+ZVHEY&HEY&HEY&HEY&DE_X^+MVR"
^XMB(3.9,22,2,7487,0)="""DATA"",396.18,215,3,2194,0)"
^XMB(3.9,22,2,7488,0)="M<<C(=J,3_$0-F&^51J$FG/H^XW:;<?]L<PC,A^J2PUE1#S#O6/PD8GYL*&K!"
^XMB(3.9,22,2,7489,0)="""DATA"",396.18,215,3,2195,0)"
^XMB(3.9,22,2,7490,0)="MAM(6OH4VH'WCAG=C]?7;UA&[7TL`L97]BD)6``ZR[5<7P@*)M(""T#S:4%I!V"
^XMB(3.9,22,2,7491,0)="""DATA"",396.18,215,3,2196,0)"
^XMB(3.9,22,2,7492,0)="MVDH[;:6=MM).1]).1]).1]).1\).9]#!*[""N-ER:GG475""ZU.HY]^:1ULDOM"
^XMB(3.9,22,2,7493,0)="""DATA"",396.18,215,3,2197,0)"
^XMB(3.9,22,2,7494,0)="M^*K.TJ69B#R6K1QQ)"".7K0-Q)E7J(G)95ZVLJU;652OK:A1*%W@1>21=K@7D"
^XMB(3.9,22,2,7495,0)="""DATA"",396.18,215,3,2198,0)"
^XMB(3.9,22,2,7496,0)="M1$>!E11-_`X_L//,/7)GW`YD^P)*X10&F2^3%#*G/?J""BH`I._MS^H""<A$'="
^XMB(3.9,22,2,7497,0)="""DATA"",396.18,215,3,2199,0)"
^XMB(3.9,22,2,7498,0)="MX.@FG^*C+)BV.CX]N3DCF<..?ZTT0UR[]3>%7)2!#I_FH_G>N4`=?S;DW[OQ"
^XMB(3.9,22,2,7499,0)="""DATA"",396.18,215,3,2200,0)"
^XMB(3.9,22,2,7500,0)="M^&G.67Z:NB482BW!VB&*P!QDE7*CD+-*13N52G8JM5._'#N15VHG-.Q.:-B="
^XMB(3.9,22,2,7501,0)="""DATA"",396.18,215,3,2201,0)"
^XMB(3.9,22,2,7502,0)="MT+`[H1'MA$:T$QK13FA$NZ""1P3>?#FY6`K%U_$ZC[[/_=Y[]WR?^LR;^-YKS"
^XMB(3.9,22,2,7503,0)="""DATA"",396.18,215,3,2202,0)"
^XMB(3.9,22,2,7504,0)="M?^SI_BROD.?&I.$^8S['U`E^X`P=ND*70>AB7IT&Q_G""ZT]V8RLY+%M1N!-;"
^XMB(3.9,22,2,7505,0)="""DATA"",396.18,215,3,2203,0)"
^XMB(3.9,22,2,7506,0)="M47A@MLQN;)D#L[6;;$4'EJUH-]F*#BQ;=C>T[('1LKNA90^-5K8;6]E!V<K$"
^XMB(3.9,22,2,7507,0)="""DATA"",396.18,215,3,2204,0)"
^XMB(3.9,22,2,7508,0)="MK^'WP@]^<\7S<,2Q.)U+*PGGTHH57UI)1$$!\\EH,7TLFOCCO`%'>.*'`WQ+"
^XMB(3.9,22,2,7509,0)="""DATA"",396.18,215,3,2205,0)"
^XMB(3.9,22,2,7510,0)="MWUVQSWH`OKS!\C3Q/?T&Y<4PGGU'.S_[CI,=`@*EH>1)LHA8\N`Z223$&9_8"
^XMB(3.9,22,2,7511,0)="""DATA"",396.18,215,3,2206,0)"
^XMB(3.9,22,2,7512,0)="M""IY<VY1/NTV>@SG$+/UP(^301`R:D$&C&31FAR?/,2]_SNOW5ZVS6/>M25A["
^XMB(3.9,22,2,7513,0)="""DATA"",396.18,215,3,2207,0)"
^XMB(3.9,22,2,7514,0)="M9PN/D&T]%&G54F7#B)Y7AY<:#^""4^9\(KXA$3X.32$@M>^DI>TPL>T<::8)\"
^XMB(3.9,22,2,7515,0)="""DATA"",396.18,215,3,2208,0)"
^XMB(3.9,22,2,7516,0)="MA0<K3Q7X(!W.A!*3VFXNPDA*;X3TB9!>EBZZ4'XB<EE6[PB\,`$?.J7L58@C"
^XMB(3.9,22,2,7517,0)="""DATA"",396.18,215,3,2209,0)"
^XMB(3.9,22,2,7518,0)="MBS)JT=O])!%19P)J*YEP-A40UQ8CYZ$08)V4/[[Y6IIF-[/\TV0P&3XA=&BR"
^XMB(3.9,22,2,7519,0)="""DATA"",396.18,215,3,2210,0)"
^XMB(3.9,22,2,7520,0)="M!D$FL=`P<BY%.R2WLNT`X3P64#43>5);7;853<2([KRQ%5^-\X+)R2<OJ>?5"
^XMB(3.9,22,2,7521,0)="""DATA"",396.18,215,3,2211,0)"
^XMB(3.9,22,2,7522,0)="MH^?XR[,.J<T?3R24S#+)T;6)1QYC;T[9G?;FU()[S5F(*7I?OWGKIHQ>OHH["
^XMB(3.9,22,2,7523,0)="""DATA"",396.18,215,3,2212,0)"
^XMB(3.9,22,2,7524,0)="M]-Y$C<7'Z7V^F(VF4$+1/_LN!40!,N-D9H""/&GM+S63IF,,1^O@93[R@Q1VW"
^XMB(3.9,22,2,7525,0)="""DATA"",396.18,215,3,2213,0)"
^XMB(3.9,22,2,7526,0)="MHHY;^2-R!UH&2YYGWX[.JK;W@H2SY5K(5U*<%*FQ?$UPF/`K#:'UJ5CV)W[?"
^XMB(3.9,22,2,7527,0)="""DATA"",396.18,215,3,2214,0)"
^XMB(3.9,22,2,7528,0)="MP3;<1:6_9[C*U%=W'-7W24OW1=MU5+#4<AV!OJ,(\1W5G4<*J7GC/?*[CYXF"
^XMB(3.9,22,2,7529,0)="""DATA"",396.18,215,3,2215,0)"
^XMB(3.9,22,2,7530,0)="M^7`ZGGX:_5'>/8$<-5Q'V\/CS5\:WJ,M_!OW$1]:.I^$-2V?(7J:A;MSL%UU"
^XMB(3.9,22,2,7531,0)="""DATA"",396.18,215,3,2216,0)"
^XMB(3.9,22,2,7532,0)="MZ)O^[MYGZ3L5;'[(`D9:()$6:.]_**7G[(""(%IPM$$'O[($<>H^JP;>P^UI0"
^XMB(3.9,22,2,7533,0)="""DATA"",396.18,215,3,2217,0)"
^XMB(3.9,22,2,7534,0)="MB54(]5QP'!<BOX70X!%Y+81.""]9BY'-!K$B.CAJJ\?/@2][6CX,/*^7%5I3%"
^XMB(3.9,22,2,7535,0)="""DATA"",396.18,215,3,2218,0)"
^XMB(3.9,22,2,7536,0)="MWTM=5FC`#=E*8TXKC;GZ5952\V'Z]25]:=+GG\,/Q6,DLKKG3+RMB3""'8:F("
^XMB(3.9,22,2,7537,0)="""DATA"",396.18,215,3,2219,0)"
^XMB(3.9,22,2,7538,0)="M..%)Z_5IAB,R3`Y5KSE0O<E!ZK7Q8:IM!=+93ZU1\!QF/3OPY;Z[,""L*PZ-W"
^XMB(3.9,22,2,7539,0)="""DATA"",396.18,215,3,2220,0)"
^XMB(3.9,22,2,7540,0)="MW:_^R3BAL8P3FI@\H4&G(FMH-CG-&,EY3,`)=QJF+*K,33]$WKF)8Y;!#?8)"
^XMB(3.9,22,2,7541,0)="""DATA"",396.18,215,3,2221,0)"
^XMB(3.9,22,2,7542,0)="M,[E-P(I`&J8\,BI)38TWT-4/+M,FJ(TX:.@EY*-U1Y"":6S]P6W:5/\ZFX,$C"
^XMB(3.9,22,2,7543,0)="""DATA"",396.18,215,3,2222,0)"
^XMB(3.9,22,2,7544,0)="MQ$04,N0YW56>;43'UMI$F1:$28X$9W:1X,PN#@2T@J/.6`O.&`4'G59PSAE)"
^XMB(3.9,22,2,7545,0)="""DATA"",396.18,215,3,2223,0)"
^XMB(3.9,22,2,7546,0)="M^!6$MXX3Y%H_4RA@MVPEQ=R<7Y'PZ""D5D<>!C%P6\336(G(K""[]J,QDR0MYE"
^XMB(3.9,22,2,7547,0)="""DATA"",396.18,215,3,2224,0)"
^XMB(3.9,22,2,7548,0)="M@6EC&>^1Y#0DDIR&Q(&$6'*6%&O)""8[D),E*#I(B$<^2(^=8PO/W$?Q['T&`"
^XMB(3.9,22,2,7549,0)="""DATA"",396.18,215,3,2225,0)"
^XMB(3.9,22,2,7550,0)="MV'MVH'[.![].BETO]!E=$!+245T9:CITEKNV7=A>9ZFE**'=]D[3@%>AU;;7"
^XMB(3.9,22,2,7551,0)="""DATA"",396.18,215,3,2226,0)"
^XMB(3.9,22,2,7552,0)="M?6,T,WW(3;']GQ=[^OEH,/=0HGW+F*AJ3:#J7.JB4,VXJ&I-H0J<Y(.H)B$3"
^XMB(3.9,22,2,7553,0)="""DATA"",396.18,215,3,2227,0)"
^XMB(3.9,22,2,7554,0)="MU:O'^P^P@)*(.JLCVBU#(2J4TU;+/D0-B2A33A-,3BL8^_GH_SW.<M7^A/4@"
^XMB(3.9,22,2,7555,0)="""DATA"",396.18,215,3,2228,0)"
^XMB(3.9,22,2,7556,0)="MYM\'T)J3$T1KQ@E1LGG-C1U:5U06H"")&)&;?+="":E7Q#:\Y94ZM#*)F%R>""!"
^XMB(3.9,22,2,7557,0)="""DATA"",396.18,215,3,2229,0)"
^XMB(3.9,22,2,7558,0)="MMO@G0YP5KXYI)-J>=PEUA4G,&.,=;H;$""7_T8LZP1((CP*1Y,T0-QN/5$1;@"
^XMB(3.9,22,2,7559,0)="""DATA"",396.18,215,3,2230,0)"
^XMB(3.9,22,2,7560,0)="M(XCY^3YMA`++\41/ML[H2;GY:OBBU6B.'=D57U9$/\Q_)'W1ODU>*-OD47'W"
^XMB(3.9,22,2,7561,0)="""DATA"",396.18,215,3,2231,0)"
^XMB(3.9,22,2,7562,0)="MG6T>5<#9Z)$%I*D`G,T>5<!*LQ/83(J2N`_2'`XQW8?V5#NF)]HQ/<EVTW=_"
^XMB(3.9,22,2,7563,0)="""DATA"",396.18,215,3,2232,0)"
^XMB(3.9,22,2,7564,0)="M;`W.6?`9*SZ^Y""N6E<8PTW`[3;',:X9]31K8^%E%M,-#4!N)WX$""&HZY%^$\"
^XMB(3.9,22,2,7565,0)="""DATA"",396.18,215,3,2233,0)"
^XMB(3.9,22,2,7566,0)="M7F(]\FJQ0&;1]&F'^IK"";4,QMPE[K=MC;CZ[[B@^8-WI`3$YX%C&P0'KUL^M"
^XMB(3.9,22,2,7567,0)="""DATA"",396.18,215,3,2234,0)"
^XMB(3.9,22,2,7568,0)="M&[UK$WG2M$+&2?N>5<***YU*G^@EHKC2KK7V.U^Q@AAB/\YKP(Z_STMW>Y]7"
^XMB(3.9,22,2,7569,0)="""DATA"",396.18,215,3,2235,0)"
^XMB(3.9,22,2,7570,0)="M&=QO\OL</R`[;\66UIP3LFSW$]^4LQVJUC7BFOSFE)*3!C/-&$19X'GMQ>T0"
^XMB(3.9,22,2,7571,0)="""DATA"",396.18,215,3,2236,0)"
^XMB(3.9,22,2,7572,0)="MLK0Z/?(>O+(R3J89ARH+^(T*3GN-+X%<%)-'O1DHT.0+@DJ@+Q_GPW%^-/^U"
^XMB(3.9,22,2,7573,0)="""DATA"",396.18,215,3,2237,0)"
^XMB(3.9,22,2,7574,0)="M8'=13!MYPN&(D6_8!(20.Y6FGEYO4-:!_PK6EC#D$FHNH>$26BYAQ""5T]YK+"
^XMB(3.9,22,2,7575,0)="""DATA"",396.18,215,3,2238,0)"
^XMB(3.9,22,2,7576,0)="M5.6LGGN)M8382(BMA#BBB5N:0X,[?.0.!=90-4V/CD[F\^+SZ$NN3D9W<]3'"
^XMB(3.9,22,2,7577,0)="""DATA"",396.18,215,3,2239,0)"
^XMB(3.9,22,2,7578,0)="M&0#^44@_.!L6*+DM,!%0+MW0A%[232)['[.HJ]0D'#WN0W33/@XC""T<>D(HC"
^XMB(3.9,22,2,7579,0)="""DATA"",396.18,215,3,2240,0)"
^XMB(3.9,22,2,7580,0)="M4=!#6TX7V@:""YV*DCOEI^+;/`KW/J4R2,NDR%IT-+46WSN641KPT[FG""I$L9"
^XMB(3.9,22,2,7581,0)="""DATA"",396.18,215,3,2241,0)"
^XMB(3.9,22,2,7582,0)="M*;*#NF>4ZYYM`^_QS[9Q1P6M#;R',.,1MJ'WI8)+(V8N[)2;-#M-.6ENV_!["
^XMB(3.9,22,2,7583,0)="""DATA"",396.18,215,3,2242,0)"
^XMB(3.9,22,2,7584,0)="M3WP*ZI9^WG*_C;4%,^W_GCH17$'#?&G'N)\@'>6\-,.T:8`K,\`/%?@CCY4P"
^XMB(3.9,22,2,7585,0)="""DATA"",396.18,215,3,2243,0)"
^XMB(3.9,22,2,7586,0)="MQ<9/LZP)""AGKV+]0G#/8O+3XM]BTZ_9U_H6$N*4S.?ABJY6#+Z(Q8D/FT-3^"
^XMB(3.9,22,2,7587,0)="""DATA"",396.18,215,3,2244,0)"
^XMB(3.9,22,2,7588,0)="M6+,M9,E8LVQ+%!416D`XXD$+!RX:J&`(^LN?0XTQYLVYRM=`3SHL%00@%2RQ"
^XMB(3.9,22,2,7589,0)="""DATA"",396.18,215,3,2245,0)"
^XMB(3.9,22,2,7590,0)="MH.7""DQ^-U7\F^;;_AY\3J`?=<CWHUI>>#5#<_S4=31;^Z\;89L8C=:%(LQ@2"
^XMB(3.9,22,2,7591,0)="""DATA"",396.18,215,3,2246,0)"
^XMB(3.9,22,2,7592,0)="M14NC&%JREHB.I8UVX9C9`VP$B8M>3A_0>KC':#%^5A9'J/$=""@SUD&VHT_AB"
^XMB(3.9,22,2,7593,0)="""DATA"",396.18,215,3,2247,0)"
^XMB(3.9,22,2,7594,0)="M&MN2&CNB-79(WJR)F1H[QC5V).KO>A?)FF4^A=6&T:NM#:VM+4-;AY:N)Z*T"
^XMB(3.9,22,2,7595,0)="""DATA"",396.18,215,3,2248,0)"
^XMB(3.9,22,2,7596,0)="M]9Y[7A`SNXY;AY9C'>[6>=\<Y6GKUKV=^<-HDA_=C>9#F!!""S'#5MQ'H/AW2"
^XMB(3.9,22,2,7597,0)="""DATA"",396.18,215,3,2249,0)"
^XMB(3.9,22,2,7598,0)="M.BOAZJP$_Y3""/@B&YO7?3O;U^H6`EF-P&\FRJ$-R04OH9='0BVNZB\%M.#'`"
^XMB(3.9,22,2,7599,0)="""DATA"",396.18,215,3,2250,0)"
^XMB(3.9,22,2,7600,0)="M]C`\WUS(!+UFSZ"":)F/.MYHN8TD&1S9XTL&0#Y;A_2P$FMJ<)P\LB?#*Q,$`"
^XMB(3.9,22,2,7601,0)="""DATA"",396.18,215,3,2251,0)"
^XMB(3.9,22,2,7602,0)="M\AG@Y]/I0EWD'Q<\YXE&[HTP:/TF+'V#*XZY,RQ&]:86Z%B]DX[5HJU'3&K'"
^XMB(3.9,22,2,7603,0)="""DATA"",396.18,215,3,2252,0)"
^XMB(3.9,22,2,7604,0)="MV*\=>;A_&\R]69DK.>N-/GU>>`/_8$=&WF,/*Q`T$]&=SKB=SE#AL0)!LSL)"
^XMB(3.9,22,2,7605,0)="""DATA"",396.18,215,3,2253,0)"
^XMB(3.9,22,2,7606,0)="MFI4(FHE(0<OD@L:,7[IWS/%SXV;4[*.CTU40).)$FG%H7@EQY^MBEM^/%D_H"
^XMB(3.9,22,2,7607,0)="""DATA"",396.18,215,3,2254,0)"
^XMB(3.9,22,2,7608,0)="M03GX\C^@C\@M%9NYF9)F,P9`D(-N&>>C8'*1%_4,QX/'ZL[/:#I9K6;*D^7"""
^XMB(3.9,22,2,7609,0)="""DATA"",396.18,215,3,2255,0)"
^XMB(3.9,22,2,7610,0)="MO6%_,?UMLPXJY4UV`9T2.866#^=-QJ%=GP)D*4*]C34EZ54Y57;L5FTAI_N%"
^XMB(3.9,22,2,7611,0)="""DATA"",396.18,215,3,2256,0)"
^XMB(3.9,22,2,7612,0)="M$X,=8Y$WLY_0K,-.?""!4E>\>'2T7^Y+,/[1\T7TL)6N/G?PN;55%SH25P\>&"
^XMB(3.9,22,2,7613,0)="""DATA"",396.18,215,3,2257,0)"
^XMB(3.9,22,2,7614,0)="M3@`;""S(Y7'6$6+/JNOYB9HYL6<JT69"",MX]]-3059""QM#BUD/.$;J293U%Y*"
^XMB(3.9,22,2,7615,0)="""DATA"",396.18,215,3,2258,0)"
^XMB(3.9,22,2,7616,0)="M+P-""-R[_E'=K'^\_C!;NXAR&_K@\;[[^4JSZOYQ^SH>_KL<(L(6B@+2%VC65"
^XMB(3.9,22,2,7617,0)="""DATA"",396.18,215,3,2259,0)"
^XMB(3.9,22,2,7618,0)="M%W+O'^<+-S#7""_47=?IY,/LA-#]R+DXFL;1QZ->_P""R-[G(Q/\GA^,G7)AC"""
^XMB(3.9,22,2,7619,0)="""DATA"",396.18,215,3,2260,0)"
^XMB(3.9,22,2,7620,0)="M5(VK1FW;%P[K&]$`%7*K')*!EIRN2/JK=VL%4?_]Y<WM]>4/_1__796\0A+3"
^XMB(3.9,22,2,7621,0)="""DATA"",396.18,215,3,2261,0)"
^XMB(3.9,22,2,7622,0)="MN>B<WG;.NK>=R[(W;TYZJ]Y0M<._%XCUNV>=1GN`J.R_U<[?;GN=R^[M>V_3"
^XMB(3.9,22,2,7623,0)="""DATA"",396.18,215,3,2262,0)"
^XMB(3.9,22,2,7624,0)="MB;=I7)K0/$D[<GMZ<?+VK'MZ<MN]OE(GMZK7Z=]Z&8^\C'>NSKKG[2[4%H0"""
^XMB(3.9,22,2,7625,0)="""DATA"",396.18,215,3,2263,0)"
^XMB(3.9,22,2,7626,0)="MG.?S?';=Z:ONK;H^/7W;4S^?7/QW]^JU*OB_Z+SK7*C7O>NW5V=E9[2ZO'FC"
^XMB(3.9,22,2,7627,0)="""DATA"",396.18,215,3,2264,0)"
^XMB(3.9,22,2,7628,0)="M3LYO.[UFGUH<,3JQUKT7W:NB\6=WX?KV3:>GD&G1;`MCKM^Y;10PX:J`I]D_"
^XMB(3.9,22,2,7629,0)="""DATA"",396.18,215,3,2265,0)"
^XMB(3.9,22,2,7630,0)="M^__4U4A3H]1[N5XK(G>MH%Z*@(5`1P""VAOB6.<0(Z=2,D'Z';8*0!;""%!B\!"
^XMB(3.9,22,2,7631,0)="""DATA"",396.18,215,3,2266,0)"
^XMB(3.9,22,2,7632,0)="M+@50QB')4LJR^I@V']OBDYMR#`N1.;:>#@!O!Y>""%P=^N4/\#J0K9!EB9/XT"
^XMB(3.9,22,2,7633,0)="""DATA"",396.18,215,3,2267,0)"
^XMB(3.9,22,2,7634,0)="M_(QY04`G"".,Q3$&S\V,8""T38*/A\J/C\_-4_@`4*.3=JF;:)A#@3$$>A@-A("
^XMB(3.9,22,2,7635,0)="""DATA"",396.18,215,3,2268,0)"
^XMB(3.9,22,2,7636,0)="MV#`2-JSF$X>IH.*`3VNLA&'C(U[Z(.--ISP1+Z-=7BV!\3R.CB933/BJN=.*"
^XMB(3.9,22,2,7637,0)="""DATA"",396.18,215,3,2269,0)"
^XMB(3.9,22,2,7638,0)="M4`??IHI(L94DU=$V$=++4@+I2);2J!1A&;V0GT*012F09#F*=""`B+R1:QKP1"
^XMB(3.9,22,2,7639,0)="""DATA"",396.18,215,3,2270,0)"
^XMB(3.9,22,2,7640,0)="MTF]U&&/)JBDQ#G4FH:ZI,0:U$7%B1)S4-!DC/THJJ3H0$->4&8=IXZ4&U!EZ"
^XMB(3.9,22,2,7641,0)="""DATA"",396.18,215,3,2271,0)"
^XMB(3.9,22,2,7642,0)="M;3-B9S>K5$UMS5]6OM%@:ERV.G>7]3C$WT'[%26<=*""E&[UI!US]1T34=Q4@"
^XMB(3.9,22,2,7643,0)="""DATA"",396.18,215,3,2272,0)"
^XMB(3.9,22,2,7644,0)="M62`3%HB$B0U<'4@6D++D:$$J$X(P3X$.9/2.(B0[8.#,#,+81)4LCP:+&2LX"
^XMB(3.9,22,2,7645,0)="""DATA"",396.18,215,3,2273,0)"
^XMB(3.9,22,2,7646,0)="M42Z)320U$ICIXV/+#1ORT3-_4*8\89_P&:DY-I'%(G7MH^[L4%Q'X:%J-LG!"
^XMB(3.9,22,2,7647,0)="""DATA"",396.18,215,3,2274,0)"
^XMB(3.9,22,2,7648,0)="M:CX8&E8?J.8P/13+P8$J-O9Y%:.^H=@31028R2W?G'%BB%`[ZJU!@<0/,:+X"
^XMB(3.9,22,2,7649,0)="""DATA"",396.18,215,3,2275,0)"
^XMB(3.9,22,2,7650,0)="M(8!&W3V`B#<P""-A2,_<2J^MJFW,=@@`8PATP1>L+=JJ/2K>I.E\']\6@S>;J"
^XMB(3.9,22,2,7651,0)="""DATA"",396.18,215,3,2276,0)"
^XMB(3.9,22,2,7652,0)="M:KK(R72;2]'3$158(FYEHD)C-K2F=Q@Q[+RE0RM(R?0XVJ3B](YAQ$E+`[""`"
^XMB(3.9,22,2,7653,0)="""DATA"",396.18,215,3,2277,0)"
^XMB(3.9,22,2,7654,0)="M/,]H\N!_""6M2GR]XFP3D>,%#'8\0L(XR$]..-2H-0RE$]P_CZ5,Y'>MM+'\M"
^XMB(3.9,22,2,7655,0)="""DATA"",396.18,215,3,2278,0)"
^XMB(3.9,22,2,7656,0)="MJBX@A+%N79VMNR']E-L;?=P""OJQ_24""[=W04<G*5Q*F_JHTK-V/5%C$8LZRJ"
^XMB(3.9,22,2,7657,0)="""DATA"",396.18,215,3,2279,0)"
^XMB(3.9,22,2,7658,0)="MDL1?U?9B'M&#%6<9[[5^7(NULT`K8S[]CS7CZ3\%1WNZ4S%^UHE""-""^K2Y*R"
^XMB(3.9,22,2,7659,0)="""DATA"",396.18,215,3,2280,0)"
^XMB(3.9,22,2,7660,0)="M`TLD`DI>KO=4<U[G6\O>V1>T!'R)+(ULR.R*UMR(!''`)VR<GNP5O1I5I^@9"
^XMB(3.9,22,2,7661,0)="""DATA"",396.18,215,3,2281,0)"
^XMB(3.9,22,2,7662,0)="M""<N*:,-0:5L08DKAME&WQUQM2Z<""`]\*,90HBEX4\F4O""FD5ZQUPPY4,0TA&"
^XMB(3.9,22,2,7663,0)="""DATA"",396.18,215,3,2282,0)"
^XMB(3.9,22,2,7664,0)="M0P_CDI$)YE5&:VF_3D@%E+(CT:9.!%0HJ!+QE8<UK2(C$`Q#KTG>(]H:(:[)"
^XMB(3.9,22,2,7665,0)="""DATA"",396.18,215,3,2283,0)"
^XMB(3.9,22,2,7666,0)="M8[8&TOQV,3FKU46(8LQ"",Q""@&>Q=F'=01>BSHV?9DR+-]EVO'4ROI?H/I]?^"
^XMB(3.9,22,2,7667,0)="""DATA"",396.18,215,3,2284,0)"
^XMB(3.9,22,2,7668,0)="MWFV];Z!6=[)D_L$-TS!)=EAE=ET6?E<Y^V,,_[-L8J9AL.\%_[!+]=$1I,@["
^XMB(3.9,22,2,7669,0)="""DATA"",396.18,215,3,2285,0)"
^XMB(3.9,22,2,7670,0)="M!U;DB(6R<80^:_GWK?;'WQ?[[XO]]\7^^V+_?;'_OMC_TRWVWW`-!RZ#MPNX"
^XMB(3.9,22,2,7671,0)="""DATA"",396.18,215,3,2286,0)"
^XMB(3.9,22,2,7672,0)="M@12`*H-OZKD`?)@`TQR>T),?/!\!</C_.SMRO""&`4CQ6CW_)08Y7(T,?KZ*M"
^XMB(3.9,22,2,7673,0)="""DATA"",396.18,215,3,2287,0)"
^XMB(3.9,22,2,7674,0)="M-^)3\E8\UH*'KW>`@/?RQ6CF<RFU]([GB+*MH<@CRI`?YSM,0V86CL:B@)ZX"
^XMB(3.9,22,2,7675,0)="""DATA"",396.18,215,3,2288,0)"
^XMB(3.9,22,2,7676,0)="M)83GUED-T-,V*SMM^X<X+EH+S3%79NB#%D`6L(.6-/P]#='T$*=??T0S$A!F"
^XMB(3.9,22,2,7677,0)="""DATA"",396.18,215,3,2289,0)"
^XMB(3.9,22,2,7678,0)="M^;@#>_6FJ*Y;:=""!>S^0<E5C2M;88C1E58P,08/0,P@`I^!=F()PWJX0H4/&"
^XMB(3.9,22,2,7679,0)="""DATA"",396.18,215,3,2290,0)"
^XMB(3.9,22,2,7680,0)="M->4=(,B5O6C""?I^NW^\>_,YW#W9>F3RSY?C[9/D^6?Y1)@LG/&Q""V?$^T<(C"
^XMB(3.9,22,2,7681,0)="""DATA"",396.18,215,3,2291,0)"
^XMB(3.9,22,2,7682,0)="M[C?9EAC4KO7H99;+PO[D3L!@`=%E7EX$'ZL?'CX_S:N_/<RF16OW/R(1``,."
^XMB(3.9,22,2,7683,0)="""DATA"",396.18,215,3,2292,0)"
^XMB(3.9,22,2,7684,0)="M;O&S<7L67SB8L0#,^!E@UFZY$WR''#R3/>*Y&VLXI(D`T@28]4QLORF/WTR^"
^XMB(3.9,22,2,7685,0)="""DATA"",396.18,215,3,2293,0)"
^XMB(3.9,22,2,7686,0)="MOK56J""O9MY.<O,336GF\=D7""]J#`VRYJF4(C`NB,,X>(U&<U-([98-""NA(3U"
^XMB(3.9,22,2,7687,0)="""DATA"",396.18,215,3,2294,0)"
^XMB(3.9,22,2,7688,0)="M7/#W6KV;T&UJFONPHZ0MVB.P:$B44&<[/):@(J*4O]S.!H_W`^C;=N8L:=!9"
^XMB(3.9,22,2,7689,0)="""DATA"",396.18,215,3,2295,0)"
^XMB(3.9,22,2,7690,0)="MXYZ%?^00'H-OT:JG)-#['2""LD7GY;C0?%>,$D:R8/F;R3#ZE:P7+4%SN(7GE"
^XMB(3.9,22,2,7691,0)="""DATA"",396.18,215,3,2296,0)"
^XMB(3.9,22,2,7692,0)="MTK6[V93%RY8LANE>($!?[.B@\?)*'1T-D2C%,?X42`$1=MK5SO*_3A_R""5VQ"
^XMB(3.9,22,2,7693,0)="""DATA"",396.18,215,3,2297,0)"
^XMB(3.9,22,2,7694,0)="M\QH(>&5VE4\?QH/Y/?BYGH1[289*N>9*N69*>1@QQ=SZQ'S#]S&3;?(Q*EO0"
^XMB(3.9,22,2,7695,0)="""DATA"",396.18,215,3,2298,0)"
^XMB(3.9,22,2,7696,0)="MPX@KP=:58'3W%T/YA&'=&V;`_E?7$C,Z>^.L_A&>1%""=8>""IU-!UZCT-&CHU"
^XMB(3.9,22,2,7697,0)="""DATA"",396.18,215,3,2299,0)"
^XMB(3.9,22,2,7698,0)="M;4`]B@R]S_.<^J35,=]8QA$C>U5&)Q-,O1D)EZ-""$(2,*L`4GVV!(!YUMKKL"
^XMB(3.9,22,2,7699,0)="""DATA"",396.18,215,3,2300,0)"
^XMB(3.9,22,2,7700,0)="MY#XA`,*LI]2;0J_5083""GV3&D6UZG&10``$TF(,;<BC0P7-2DW@ZQGJWZ_3K"
^XMB(3.9,22,2,7701,0)="""DATA"",396.18,215,3,2301,0)"
^XMB(3.9,22,2,7702,0)="M[>37R?2W,G#VWTW??(^U&W]NEIMHU7_(AZ./HR&Z\*X)RSTN2*+<5\;!RV%3"
^XMB(3.9,22,2,7703,0)="""DATA"",396.18,215,3,2302,0)"
^XMB(3.9,22,2,7704,0)="M[Q1_5O6,JVH4HK!,W""[9UE@)N-JZJ^&ROBSE<E+MZ6^F#X_CP2*O-B(_CQ:?"
^XMB(3.9,22,2,7705,0)="""DATA"",396.18,215,3,2303,0)"
^XMB(3.9,22,2,7706,0)="M5Z1EW]N;E+""I(%<N`,-0C#:""L^TYZTT(%=:D5K6I]5]\:.]C)-3&V[Y3LQ<-"
^XMB(3.9,22,2,7707,0)="""DATA"",396.18,215,3,2304,0)"
^XMB(3.9,22,2,7708,0)="MIV:'&EB)0*`==0Q2H9E9,&(V(9KYQ&+Y*L'!YHPV<[B%XRT:<.&([S3DY%AZ"
^XMB(3.9,22,2,7709,0)="""DATA"",396.18,215,3,2305,0)"
^XMB(3.9,22,2,7710,0)="M$\[8B$P-5X,6)4F%5U,DU$;S\\X1J""&Q)6PH6_^,1G+7>RKV*[!:9T:;1KN3"
^XMB(3.9,22,2,7711,0)="""DATA"",396.18,215,3,2306,0)"
^XMB(3.9,22,2,7712,0)="M_WF</;W*/TYG>3^??1D-<WRWEECG/@0>J-L3Y`KRC;*""_R=;WR@C^'\2(\%M"
^XMB(3.9,22,2,7713,0)="""DATA"",396.18,215,3,2307,0)"
^XMB(3.9,22,2,7714,0)="M""%:/V9RBJ1.:C+8SL=6IH0$XYN)?,S""*WIT,A_G#H@QCMEIF@0`AF6\3LEQ?"
^XMB(3.9,22,2,7715,0)="""DATA"",396.18,215,3,2308,0)"
^XMB(3.9,22,2,7716,0)="M6Z'MW:N08=V`]58`A.Q?G1>H#WEA.*B[?#$8%2B];`7PAT:M-,4R;M/@SW`2"
^XMB(3.9,22,2,7717,0)="""DATA"",396.18,215,3,2309,0)"
^XMB(3.9,22,2,7718,0)="M@;O""QE#3C\_D;GWJ@*0]V0^KP^GC;%ZF89@44C*=S/.%@#5S6-8>9[,RR<UB"
^XMB(3.9,22,2,7719,0)="""DATA"",396.18,215,3,2310,0)"
^XMB(3.9,22,2,7720,0)="ME@\652`G#FO-FM&T#`TR5E5@TI5^N+:?B\\WO>M7%YU+,""[^4L)5BW^T+N>G"
^XMB(3.9,22,2,7721,0)="""DATA"",396.18,215,3,2311,0)"
^XMB(3.9,22,2,7722,0)="M,D;_R6U'79^KZZM^IYE08""O'3@/-^%N)&VQ?P,!IMW?Z]K)_>W)U6M1Q<G6F"
^XMB(3.9,22,2,7723,0)="""DATA"",396.18,215,3,2312,0)"
^XMB(3.9,22,2,7724,0)="MNE?=V^[)A;H\N>J>=XHO9<Z#OA-Y?]ULF[E:_B,)&]=O>_V.ZG<+-@`PMM.F"
^XMB(3.9,22,2,7725,0)="""DATA"",396.18,215,3,2313,0)"
^XMB(3.9,22,2,7726,0)="MGE3A.<""?ONWU.E>WZK;7.;F]+/[6AQHT_@;Q:%+-<KL-3:_3ORFA4+?7&)O^"
^XMB(3.9,22,2,7727,0)="""DATA"",396.18,215,3,2314,0)"
^XMB(3.9,22,2,7728,0)="M9O&A\9D3SV>\3""BB.N?G13U]==Z[OE0$VGXF.-U8FN//F@EGG?YIK_NJ0S';"
^XMB(3.9,22,2,7729,0)="""DATA"",396.18,215,3,2315,0)"
^XMB(3.9,22,2,7730,0)="M:(K-VWY8:R!;J`T.JT).;;P?5F].^EZ^-NW(I;2R<)XOIF?=4MG]U]O>>W7="
^XMB(3.9,22,2,7731,0)="""DATA"",396.18,215,3,2316,0)"
^XMB(3.9,22,2,7732,0)="M4V?=?N>DF&S+;""FO.N?7O8XZ.;WMOBM@[_3>=4_]27+L;D*;[`GN'VXZ/?6N"
^XMB(3.9,22,2,7733,0)="""DATA"",396.18,215,3,2317,0)"
^XMB(3.9,22,2,7734,0)="M<]OIG5RI-]W^=>_]CX4Z?Z]^OBX4ZU65^>6\3%O3/7M[<M%79V\KO?*J4W[I"
^XMB(3.9,22,2,7735,0)="""DATA"",396.18,215,3,2318,0)"
^XMB(3.9,22,2,7736,0)="M7JG+[D7W]J2``NIK@U'Y>,7IH8?K[&VO[`=[N-H<[2*#P:$[527DD8A@L)L("
^XMB(3.9,22,2,7737,0)="""DATA"",396.18,215,3,2319,0)"
^XMB(3.9,22,2,7738,0)="MIL^2P&6*GM/K2WB:IY34M+9$H5E&$SV&VOKS'OZ(DO=L7)&""W#UI>^\$79<("
^XMB(3.9,22,2,7739,0)="""DATA"",396.18,215,3,2320,0)"
^XMB(3.9,22,2,7740,0)="M/:=:[DE9>\N:HE_P1/$A_@7_!-\<LO[4]N`>9Q>W$NW'(],S4+XMU.'W]^?5"
^XMB(3.9,22,2,7741,0)="""DATA"",396.18,215,3,2321,0)"
^XMB(3.9,22,2,7742,0)="M0X<&\_-XTQ-9$<YQ*B*O5!4]+MHP+J@E\$6XB\Y)[[)S>>UZ>O;N57$N:X34"
^XMB(3.9,22,2,7743,0)="""DATA"",396.18,215,3,2322,0)"
^XMB(3.9,22,2,7744,0)="M$6XBS20-G.VL#X'*+)7W@]F3[_C(Y3$C3YF;+&+//)>U)<+:>!VNTD2I=Z/%"
^XMB(3.9,22,2,7745,0)="""DATA"",396.18,215,3,2323,0)"
^XMB(3.9,22,2,7746,0)="M8*SZHT^3.48(!,DV%$?%9-KE%%U'<3O%RM'1V?1^-!E,%NK-8'('^%YU$GH/"
^XMB(3.9,22,2,7747,0)="""DATA"",396.18,215,3,2324,0)"
^XMB(3.9,22,2,7748,0)="M8-9K0D@>$Y52Z*&IPG''L*/7R=X1HUS4+O(1[N<V'*LS'1\`[G@`_<='H\GE"
^XMB(3.9,22,2,7749,0)="""DATA"",396.18,215,3,2325,0)"
^XMB(3.9,22,2,7750,0)="M,?Z4N`X5_(ZYAA3F:V^V5O2.U=P>1@8/_Y[@X=^K.SA!\\E^PY1[=1-N]5N="
^XMB(3.9,22,2,7751,0)="""DATA"",396.18,215,3,2326,0)"
^XMB(3.9,22,2,7752,0)="MND5XMB1L4(9;RMHEU*K*_ZB76QJ0FQ#PMU56C/EB6C""M/HRGT[LJ!OO\<9:K"
^XMB(3.9,22,2,7753,0)="""DATA"",396.18,215,3,2327,0)"
^XMB(3.9,22,2,7754,0)="MX6`RF2[4AUR-BU_*^/#+2.]WHP%88!6U?>O5.X=[MF%#PD7^OX^%GJ&;QUK_"
^XMB(3.9,22,2,7755,0)="""DATA"",396.18,215,3,2328,0)"
^XMB(3.9,22,2,7756,0)="M3Z=U2N4X0>`1;[9N7:T55^RY5MB\O'1T].;I(9\M\LE\-)VHT]DH7^2ST0#0"
^XMB(3.9,22,2,7757,0)="""DATA"",396.18,215,3,2329,0)"
^XMB(3.9,22,2,7758,0)="MGYE/?[KMD$MBIKDQS%>&(/1<1QT=O1Z4&9L50;[2&YM$+V5N8-B<,KX3Q^55"
^XMB(3.9,22,2,7759,0)="""DATA"",396.18,215,3,2330,0)"
^XMB(3.9,22,2,7760,0)="M.`,>""BJ:B[4^$;&!7M2':)#+>\:[CX$!QBYV'X`W1XH\0TZCO#SK+^%%MA2)"
^XMB(3.9,22,2,7761,0)="""DATA"",396.18,215,3,2331,0)"
^XMB(3.9,22,2,7762,0)="M)(5J:/8*`H>;+?/DF,5,A&+)'8N8>\<""KY5[3!YF&3RMU<_YZ-/G1;E=GWSR"
^XMB(3.9,22,2,7763,0)="""DATA"",396.18,215,3,2332,0)"
^XMB(3.9,22,2,7764,0)="MI0QS:D#ZM@G,%)/!>5,Z?F\6,Y])I+PP16'`(=-I@+]U%""%T,9W/]]5]C]=C"
^XMB(3.9,22,2,7765,0)="""DATA"",396.18,215,3,2333,0)"
^XMB(3.9,22,2,7766,0)="ME]ZC;W'VUOEBR9@\0SQV&WLT;O8N0R^\C`*!\$\S/^!-9[75[/\ZFBCG@[/9"
^XMB(3.9,22,2,7767,0)="""DATA"",396.18,215,3,2334,0)"
^XMB(3.9,22,2,7768,0)="MC<F]I96]E0#R\YQL+()1OLE:5&9""ZO]W]XJ^*0J^<&ZG#53@7LV$,;61"";4E"
^XMB(3.9,22,2,7769,0)="""DATA"",396.18,215,3,2335,0)"
^XMB(3.9,22,2,7770,0)="M=ZIF^_+<0Z/IIB)R6Y4*;C>:0$(<RFH67)PLZV:^M2C0QC]%Z""8R]3]W-_SG"
^XMB(3.9,22,2,7771,0)="""DATA"",396.18,215,3,2336,0)"
^XMB(3.9,22,2,7772,0)="M[A#I9DFEY:RBOQ@,\]E@4>PJ?E*_31\G=V7JK@^/LXF:#P<S9UN#2J+BR*)B"
^XMB(3.9,22,2,7773,0)="""DATA"",396.18,215,3,2337,0)"
^XMB(3.9,22,2,7774,0)="M2:/RRN/FSA9#()5')*%Z:)E4,JE44KE44LE4/ME4/NF$=K6HJ!SO*""DZ8`Q<"
^XMB(3.9,22,2,7775,0)="""DATA"",396.18,215,3,2338,0)"
^XMB(3.9,22,2,7776,0)="MXJ5Q1,Y#Q!$3RZDH$<D;1K.SN'&H'<^=XZY@J(RZ$?['FN>>!F43G3D7_Y%G"
^XMB(3.9,22,2,7777,0)="""DATA"",396.18,215,3,2339,0)"
^XMB(3.9,22,2,7778,0)="M.KX2^4S3E>47!6L?*W*#V809;2TP7:P%H<?=&ZU?^3`X@5W+=4907_;J^4Q2"
^XMB(3.9,22,2,7779,0)="""DATA"",396.18,215,3,2340,0)"
^XMB(3.9,22,2,7780,0)="M>UX.)/CK_%*:I94C<&UA,Y9SP!9OUP3<SEP\/51W7,=YZ?]KW\QT]U92$V$U"
^XMB(3.9,22,2,7781,0)="""DATA"",396.18,215,3,2341,0)"
^XMB(3.9,22,2,7782,0)="M95KI0G$>H5_K]TKO\OEP-OJ05\P/'AZ*D1Y,AOE/:CP=5DN(&A3K1S&4I?&\"
^XMB(3.9,22,2,7783,0)="""DATA"",396.18,215,3,2342,0)"
^XMB(3.9,22,2,7784,0)="MNKL+]\U5:A_!UC=N]?;5TQH178NGZ^6WV_<WU:70TM97%YU^]_JJ<:\""A;WH"
^XMB(3.9,22,2,7785,0)="""DATA"",396.18,215,3,2343,0)"
^XMB(3.9,22,2,7786,0)="MTIN3WKI++NZM:QY@ZZT?""KA/;FXZ)[WR@NA/ZN+ZM+H/6MT4[?SMMKQ\5G`*"
^XMB(3.9,22,2,7787,0)="""DATA"",396.18,215,3,2344,0)"
^XMB(3.9,22,2,7788,0)="M,-EHL\E8Y^JL>^YR6*KX'5GL_.WD]%9==D[Z;WN7#9[*NTVGQ2_=R_)N%'`]"
^XMB(3.9,22,2,7789,0)="""DATA"",396.18,215,3,2345,0)"
^XMB(3.9,22,2,7790,0)="M;M,HD\=H5Q[[;TYN""@3/.C>]3K]D[2>U'NC;;K__ME.`V^__I$ZO+ZJK0.?G"
^XMB(3.9,22,2,7791,0)="""DATA"",396.18,215,3,2346,0)"
^XMB(3.9,22,2,7792,0)="MG5ZGN@[;4R=G;Y;_`/B/N/S[EPMYAXK!/^OTBJ:]=U+;S8C9#)_)9C6+7O4Z"
^XMB(3.9,22,2,7793,0)="""DATA"",396.18,215,3,2347,0)"
^XMB(3.9,22,2,7794,0)="M)_]]=OWSE9?5D,-JOW/;'`""]&@""H\3U=37)N)A7&K/AFDDZ\@4R\:XGZW3P%"
^XMB(3.9,22,2,7795,0)="""DATA"",396.18,215,3,2348,0)"
^XMB(3.9,22,2,7796,0)="M#""\`UYGPC^XIJ""RMG7P(J,RDH=39Y;_;L<P;/)BYO[LODC69;3KT^MG*<V@%"
^XMB(3.9,22,2,7797,0)="""DATA"",396.18,215,3,2349,0)"
^XMB(3.9,22,2,7798,0)="M)K9>?5$7^<?""_""FY(6A7?QK_:E""K""W4SFDP&&X-C-AF,RZ/EP;A5'WB_0%.W"
^XMB(3.9,22,2,7799,0)="""DATA"",396.18,215,3,2350,0)"
^XMB(3.9,22,2,7800,0)="M&6QF""),SR=BW&31YF\'Z`T&TVO.:VDG6'A($O]NG^X?!9#0L3*O[#X4=EZ,>"
^XMB(3.9,22,2,7801,0)="""DATA"",396.18,215,3,2351,0)"
^XMB(3.9,22,2,7802,0)="MS4U'+`T;=0G$"">:`PV89L)&70(`H!/`5SX`#6XG;FZ)T^0R-(V<Q#5A$`1:R"
^XMB(3.9,22,2,7803,0)="""DATA"",396.18,215,3,2352,0)"
^XMB(3.9,22,2,7804,0)="M`8L9@)'NW31D`A:R`""L1.QO-A\7:6ECO',Q2&K.8PDRS,4L9F)'+;JJ9F.DF"
^XMB(3.9,22,2,7805,0)="""DATA"",396.18,215,3,2353,0)"
^XMB(3.9,22,2,7806,0)="M9JX""7/VL>M7I:V>E*A&ZK7YL""6D/58[*""[VAH4\HZ`T;>L.`GC154L.$WKCB"
^XMB(3.9,22,2,7807,0)="""DATA"",396.18,215,3,2354,0)"
^XMB(3.9,22,2,7808,0)="MVH:UP,U1BBR1C6C<4@HWR\8M8N""6DKA9)FZ6QJU""KE2+D[9>1/!**+RB(*#P"
^XMB(3.9,22,2,7809,0)="""DATA"",396.18,215,3,2355,0)"
^XMB(3.9,22,2,7810,0)="MXE\F3$B\ZLUA>#$]76G,Q`M6B@A@&2U@E(LLC=B`90P!(WV#:<0$+""+""-JJ3"
^XMB(3.9,22,2,7811,0)="""DATA"",396.18,215,3,2356,0)"
^XMB(3.9,22,2,7812,0)="M\5@M[^1`!(`E:WWWHQUEM[WN`U[<+Q4'6#YBEK=(^?4D*'8=\_GX24V(>N*]"
^XMB(3.9,22,2,7813,0)="""DATA"",396.18,215,3,2357,0)"
^XMB(3.9,22,2,7814,0)="M""2[$3;;IS=*+>.`1!WG0/$1+""Q<L;YWR$%6,X@Y1IR0N>U6UAUX""#VW='-KB"
^XMB(3.9,22,2,7815,0)="""DATA"",396.18,215,3,2358,0)"
^XMB(3.9,22,2,7816,0)="M//06X'>H_S`[/U<IQM+M/2>FKNH\Y5RM3#_3""9EO1%8U1G$[G*HZN;A05]>]"
^XMB(3.9,22,2,7817,0)="""DATA"",396.18,215,3,2359,0)"
^XMB(3.9,22,2,7818,0)="MRY,+>#[K].6""UA$ZXU""98$6UUB1^ZI!5I]Y0812&58]E444LJIA%Q<+,!BRJ"
^XMB(3.9,22,2,7819,0)="""DATA"",396.18,215,3,2360,0)"
^XMB(3.9,22,2,7820,0)="M4(*LY;6<4L@69@.G'A8:EH6LY8U20LH$W3=2KJRI4^2>RW-+HVPXG-Y/[Y:G"
^XMB(3.9,22,2,7821,0)="""DATA"",396.18,215,3,2361,0)"
^XMB(3.9,22,2,7822,0)="M?A>=\UN$%#(P-;G%CR+*_18&;$>2IO?X]?8PGWC`5/,%(77Y</70;EZ^@#D9"
^XMB(3.9,22,2,7823,0)="""DATA"",396.18,215,3,2362,0)"
^XMB(3.9,22,2,7824,0)="M/HX63SB$*(@9#:(E060[2G3&`-'2(&HNB%H""XODH']_-Y2"":@`8Q(D%D>^A,"
^XMB(3.9,22,2,7825,0)="""DATA"",396.18,215,3,2363,0)"
^XMB(3.9,22,2,7826,0)="MP``QHD$,N2""&?A`K""""\&P]GH?J>);$(:OIB$C^TQ,B$#/OJ,+#!<^`QE_6PW"
^XMB(3.9,22,2,7827,0)="""DATA"",396.18,215,3,2364,0)"
^XMB(3.9,22,2,7828,0)="M\3!R""&S:?]\EBA(2-+:[R&CBGD^]-10RRX7,$M.V@NUT.OF?Q\EP,?HRR#V3"
^XMB(3.9,22,2,7829,0)="""DATA"",396.18,215,3,2365,0)"
^XMB(3.9,22,2,7830,0)="M%D'/T$*7DOBQO2'&,(0NI1&,N`A&])SM?%W,!G^]'CZ.![/J4$TR9RT-'WG="
^XMB(3.9,22,2,7831,0)="""DATA"",396.18,215,3,2366,0)"
^XMB(3.9,22,2,7832,0)="M*F![WXQEP$=?-`NX%\V""F,J2H,X?)W>/<PPW!#72Q1O%`8E:PD:-]O'6VT-1"
^XMB(3.9,22,2,7833,0)="""DATA"",396.18,215,3,2367,0)"
^XMB(3.9,22,2,7834,0)="M2[BH)21JQ49O/+H3HA;3J(4D:BD;M9B!6DBCEG)12SG*KF$I5^<Z(FU'FWF&"
^XMB(3.9,22,2,7835,0)="""DATA"",396.18,215,3,2368,0)"
^XMB(3.9,22,2,7836,0)="M7""U""_A++,/,,O5Z$W""4V-!PSKVDJ>S!$0+2TF6=(G1>R;67+,/,,K?-""KJT<"
^XMB(3.9,22,2,7837,0)="""DATA"",396.18,215,3,2369,0)"
^XMB(3.9,22,2,7838,0)="MRFWE74""DC3U+VLHAVU:V#&//TK9RR+65PY`SF>O&LG@N6WHN6WHNL^^=6,9<"
^XMB(3.9,22,2,7839,0)="""DATA"",396.18,215,3,2370,0)"
^XMB(3.9,22,2,7840,0)="MMHRYG'$1S!B[C:W%C,.'H)<25G-,^@Q""]E)B4\IJCFF/0<A=2,+Z0N*;P@W#"
^XMB(3.9,22,2,7841,0)="""DATA"",396.18,215,3,2371,0)"
^XMB(3.9,22,2,7842,0)="M>8<I3!^\QO049ELQEG'R&C.F,->*""1.6'EQ:S].E];P#B`RCAI[%;`/:<HP:"
^XMB(3.9,22,2,7843,0)="""DATA"",396.18,215,3,2372,0)"
^XMB(3.9,22,2,7844,0)="MQBSF&M""AUX!N6-`H=@AP#!N:7H79&S?+L:$9JS!WXQ9&C#?'RT6DL*/+JSF%"
^XMB(3.9,22,2,7845,0)="""DATA"",396.18,215,3,2373,0)"
^XMB(3.9,22,2,7846,0)="M2?UA-OW-*X,XFO0^+B%MZY#M1K"",?5Q""V]8AUY$06L_)3Y)*CY)89UE758H_"
^XMB(3.9,22,2,7847,0)="""DATA"",396.18,215,3,2374,0)"
^XMB(3.9,22,2,7848,0)="MUF&6H1^EFYT""GI7++1`Y!PR!E5*ZVB2R[!;MQKT!N%+ZI3A3<9N$`XP.>2D]"
^XMB(3.9,22,2,7849,0)="""DATA"",396.18,215,3,2375,0)"
^XMB(3.9,22,2,7850,0)="M=*:IJS""9$)96T[A54&\;.RUFFE-IQ@)%<T&A=$$62$'1;%!(O9`QSU:RP/NF"
^XMB(3.9,22,2,7851,0)="""DATA"",396.18,215,3,2376,0)"
^XMB(3.9,22,2,7852,0)="M49/[/$W>Z\[8.Q1-;_,T?;J?,3<H6>A)FIMD4G6$Q_O:Q!!A@$G>TF,;W!D'"
^XMB(3.9,22,2,7853,0)="""DATA"",396.18,215,3,2377,0)"
^XMB(3.9,22,2,7854,0)="M3/JR$]/B3M-O!.;ZIH(O:>4A).70D_#0FN_0@W_HY<P7A#AK132%#_];RC;8"
^XMB(3.9,22,2,7855,0)="""DATA"",396.18,215,3,2378,0)"
^XMB(3.9,22,2,7856,0)="MI5#H%""(*:+)`6]-Z;RYD#A5D@""UC`8TFC_/6SY#=18:^C1.FW;5Y?Q=&X(M'"
^XMB(3.9,22,2,7857,0)="""DATA"",396.18,215,3,2379,0)"
^XMB(3.9,22,2,7858,0)="MF'+.M<VH<T\Z\R;6K-\J(\\_,Z9O-C-NQDP6<\B3^3;,>)C`94<R,L)?Q@C0"
^XMB(3.9,22,2,7859,0)="""DATA"",396.18,215,3,2380,0)"
^XMB(3.9,22,2,7860,0)="M#0'""0`2'!/O43GSLZ_<+`:T3C5`Q19@)+A)F,]-$\E3.](`EE-QS9TS'MX/Y"
^XMB(3.9,22,2,7861,0)="""DATA"",396.18,215,3,2381,0)"
^XMB(3.9,22,2,7862,0)="M849\C3NTKH=2=22*/:XNIX^+S^K?U.WGV72P\%)#RI+<)L>IZ,9E9!D7ZW7("
^XMB(3.9,22,2,7863,0)="""DATA"",396.18,215,3,2382,0)"
^XMB(3.9,22,2,7864,0)="M61KT^@[$;9X771Q-U*<R]N\L?QB,9EB9B%5SS*)*R*5IA7[IJ;F=3CZ5_04V"
^XMB(3.9,22,2,7865,0)="""DATA"",396.18,215,3,2383,0)"
^XMB(3.9,22,2,7866,0)="M`71@;/*Y6L;VPFA&8&SZ0G?&=,)D\&6.LWRR*-]B@`R2+VM-0-U*R]@N/DV_"
^XMB(3.9,22,2,7867,0)="""DATA"",396.18,215,3,2384,0)"
^XMB(3.9,22,2,7868,0)="MK#4!>2DM8WKX,LC!]_KQ?HY`$=&20=U3R=AN8ATQ)(.\II(QO<09[""1^^^5Q"
^XMB(3.9,22,2,7869,0)="""DATA"",396.18,215,3,2385,0)"
^XMB(3.9,22,2,7870,0)="M/$#0B&G!H/PV&?OD0<<,P2`W+!G3X,^0<X="":\Q'8TP\$AH04G&PM]<Z80!"""
^XMB(3.9,22,2,7871,0)="""DATA"",396.18,215,3,2386,0)"
^XMB(3.9,22,2,7872,0)="M*P[F#BM+O9OAJ!4$?3B>SG-UO]&VB]5J1RY7=(C1JRHS9>MW:*DD]_Q)(%HJ"
^XMB(3.9,22,2,7873,0)="""DATA"",396.18,215,3,2387,0)"
^XMB(3.9,22,2,7874,0)="MO6MO>]ME`:N/V*E%\B*QO$B""%#DZ@L?=]P(EME*(:5MI>9XWN9L.BW(Y?12U"
^XMB(3.9,22,2,7875,0)="""DATA"",396.18,215,3,2388,0)"
^XMB(3.9,22,2,7876,0)="M?HH2D:S(#*.PE0""E]6K1`W'03K!$C4E@I04BLL`Z#AOK`5T4T9;3U?3N<9Q7"
^XMB(3.9,22,2,7877,0)="""DATA"",396.18,215,3,2389,0)"
^XMB(3.9,22,2,7878,0)="MDWE:1=PODT'DRY72Z\\.#)KTV3ENVIX+P_&=JW.D;9J0;<IGRK,=&#Q)MI\+"
^XMB(3.9,22,2,7879,0)="""DATA"",396.18,215,3,2390,0)"
^XMB(3.9,22,2,7880,0)="M;+_18L._YRB(.:[_P/*ATIH#5;(#5%8`58,+'*I$`E7B5?^=]YV^)\!T2_""]"
^XMB(3.9,22,2,7881,0)="""DATA"",396.18,215,3,2391,0)"
^XMB(3.9,22,2,7882,0)="MAYLA?<<WX1X5)Y$O&B)]L!N2]YN3""(N'6`-#O2GV6M4D+<-G@;PPSM`U?0\U"
^XMB(3.9,22,2,7883,0)="""DATA"",396.18,215,3,2392,0)"
^XMB(3.9,22,2,7884,0)="MX5X^2+QA(NG[`YJ\@YN@@2(;T)R-BOH6HZ%_!D;DX5N[A.]BR,:/XKU&MZ7R"
^XMB(3.9,22,2,7885,0)="""DATA"",396.18,215,3,2393,0)"
^XMB(3.9,22,2,7886,0)="M[:-6<,0TB?2(N-5I\-@/[S4=K2M(_-&Z()2`6B&8L%!FD8X9-`FON8C+/I#Q"
^XMB(3.9,22,2,7887,0)="""DATA"",396.18,215,3,2394,0)"
^XMB(3.9,22,2,7888,0)="M#YRDIX7],9N6QD11R71ZYQ?)A%KL5[TAKWDEJ50PG&0[=-NHPN#>G$O@*]@%"
^XMB(3.9,22,2,7889,0)="""DATA"",396.18,215,3,2395,0)"
^XMB(3.9,22,2,7890,0)="M:/</A3U67=2<J[-5W%+$;VD=D49<V#;""PZZZW:25=,8^`K""N$4<WBZ++O='9"
^XMB(3.9,22,2,7891,0)="""DATA"",396.18,215,3,2396,0)"
^XMB(3.9,22,2,7892,0)="MCK2``N'F-O""1KGAG>)3I=@[3:8^AKUN&_NEX.N?L(!B.W\ID>9/?Y^K?U,73"
^XMB(3.9,22,2,7893,0)="""DATA"",396.18,215,3,2397,0)"
^XMB(3.9,22,2,7894,0)="M_<-GQNW8]8Z&#-YG(NFYF$FI[$88:6V)!FZ)D6</H<[`%%^LMNNV""A:!,:,8"
^XMB(3.9,22,2,7895,0)="""DATA"",396.18,215,3,2398,0)"
^XMB(3.9,22,2,7896,0)="M:Z6W$:!T_*(S&9?WF^_4N!Q""-9G>(5&M-?D\5Z=L!>&B@/&!8)(2+.)W''`H"
^XMB(3.9,22,2,7897,0)="""DATA"",396.18,215,3,2399,0)"
^XMB(3.9,22,2,7898,0)="M;O/)7;'Y(X""($E)3FN`90,!<P#""8@&!0#H-HWFRC]GOX4QP.\=CQ*9+3P?*K"
^XMB(3.9,22,2,7899,0)="""DATA"",396.18,215,3,2400,0)"
^XMB(3.9,22,2,7900,0)="MR!`N,B2`/MWQ%P+:#4CRZ;D-!?[/AR\>=#:0+A[<Q>SF<7P_G6#9DD$O(>V:"
^XMB(3.9,22,2,7901,0)="""DATA"",396.18,215,3,2401,0)"
^XMB(3.9,22,2,7902,0)="M,R+77+$R#EE1F#.V26,RSRD]:`,%?',ID-8=\NL.A76'AETW0$KPK?E\:VG="
^XMB(3.9,22,2,7903,0)="""DATA"",396.18,215,3,2402,0)"
^XMB(3.9,22,2,7904,0)="M_+&TGK'TZA4H<>+147<R?RA^+'8=B,+/^(:2>[W;71=#B:&$7^[V-HYZZJ!\"
^XMB(3.9,22,2,7905,0)="""DATA"",396.18,215,3,2403,0)"
^XMB(3.9,22,2,7906,0)="M*8A:#5GF/@@JAQ)Q6:-=8?0$[\@AU4<3)`9$V(YHWYWV[M("".(GHS6#\,,#G"
^XMB(3.9,22,2,7907,0)="""DATA"",396.18,215,3,2404,0)"
^XMB(3.9,22,2,7908,0)="M@@T$<R&FYX(6S(56V\1<B!ES0;/G@A:Q=NR[R'4(UCC+TC%^A<W#/F?#'_""R"
^XMB(3.9,22,2,7909,0)="""DATA"",396.18,215,3,2405,0)"
^XMB(3.9,22,2,7910,0)="M(!^@XUZV0K9);T-0JH^.3A[GY9/#Q2K23A5'`>I82DNZD4AZ*)'TE(&J8:-J"
^XMB(3.9,22,2,7911,0)="""DATA"",396.18,215,3,2406,0)"
^XMB(3.9,22,2,7912,0)="M1*P1DKY_UCA&DD_2PV=)>LB5]+UWW,N6YDMZ^^W1V>-X/,GGR.E?FM"""";26"""
^XMB(3.9,22,2,7913,0)="""DATA"",396.18,215,3,2407,0)"
^XMB(3.9,22,2,7914,0)="M[;P_8K>/XVC9.-HM=QQLWCP]Y+-9/B]V0Y,%O&*3;U]-Q/<7.^""(&$!-!NX)"
^XMB(3.9,22,2,7915,0)="""DATA"",396.18,215,3,2408,0)"
^XMB(3.9,22,2,7916,0)="MIXD$W/E.],@G1N53S-U1836,HL$]UC3;8TV&)*/[F\,P=GA!8,U%QE3TS,0#"
^XMB(3.9,22,2,7917,0)="""DATA"",396.18,215,3,2409,0)"
^XMB(3.9,22,2,7918,0)="M[C`YNESSC/+O0^<.7<V'M,IZ<?HYGR^P)P:&O3R%AF.(04N%NY-H=U%T0-%B"
^XMB(3.9,22,2,7919,0)="""DATA"",396.18,215,3,2410,0)"
^XMB(3.9,22,2,7920,0)="MQ&N!&4TN4CICKE&5%Y'/E]?\VCM?'"">2Q_;R\,YYJ&)XMM>^>^W5(1G?\,HD"
^XMB(3.9,22,2,7921,0)="""DATA"",396.18,215,3,2411,0)"
^XMB(3.9,22,2,7922,0)="MAI>3D<4U>]S0=;[5*A/974!T>E_[A-D5!WZS*Y.:72D=[X9_]N1""(VD?C9G!"
^XMB(3.9,22,2,7923,0)="""DATA"",396.18,215,3,2412,0)"
^XMB(3.9,22,2,7924,0)="M#3P<!@+F?.\2R)BW6L?/`(75,(*&YJ8<UIHPNC*!T972P9YB[BC%P3<0@\-#"
^XMB(3.9,22,2,7925,0)="""DATA"",396.18,215,3,2413,0)"
^XMB(3.9,22,2,7926,0)="M^PT<[Q)UB9A<WP<.FQ/`)9(P=!.6KO,NORBH!ZK09`^CV6`QG3VIX;2HJ/)E"
^XMB(3.9,22,2,7927,0)="""DATA"",396.18,215,3,2414,0)"
^XMB(3.9,22,2,7928,0)="MC>9J.!Z,[HMRTYF:/U9'(/G=3P7YQS+3]72=+WHV?9B-!HM<_3:=_3K_G.>+"
^XMB(3.9,22,2,7929,0)="""DATA"",396.18,215,3,2415,0)"
^XMB(3.9,22,2,7930,0)="M'^8_OE2M/*PO+J?S!=S47/TV&H^+;__[.)KEZN;\]O_,?U*CR7#\>%?FGGHH"
^XMB(3.9,22,2,7931,0)="""DATA"",396.18,215,3,2416,0)"
^XMB(3.9,22,2,7932,0)="M2O[UPVPZ&7Z>WHW&2U?;?%%\S.<OUX*EP#-0+3UW9+WD7$9M&\SN1H.A0FF<"
^XMB(3.9,22,2,7933,0)="""DATA"",396.18,215,3,2417,0)"
^XMB(3.9,22,2,7934,0)="M0U`ZOI'V'((Z?3-D=59079BEK3M0UP_Y1%V]?W-2B-U@/A]]7-V\4U7E0'M9"
^XMB(3.9,22,2,7935,0)="""DATA"",396.18,215,3,2418,0)"
^XMB(3.9,22,2,7936,0)="M*&J/?)R3A=R`'-L+BZX->%/(7%XLTT='EX^S^\<9>!4D=F_2.]=V0H?&Z1K*"
^XMB(3.9,22,2,7937,0)="""DATA"",396.18,215,3,2419,0)"
^XMB(3.9,22,2,7938,0)="M1VGWB1E!\_B&+A%RY2#T71""P4@%R)P==9YVFBJ.1+3/7+[<!Y6OHM2[:)*0O"
^XMB(3.9,22,2,7939,0)="""DATA"",396.18,215,3,2420,0)"
^XMB(3.9,22,2,7940,0)="M-<WHXU.E7P#Y>[DLN+8""L`96%SZ+[\QN;>O<_`5ZYY9(9S&A4I;AA#_<3>^+"
^XMB(3.9,22,2,7941,0)="""DATA"",396.18,215,3,2421,0)"
^XMB(3.9,22,2,7942,0)="MZ09\=<*DT9<""8XD:B:75`5)0.Q_?QMW9W/""GWT1JZDVDQ<QUK#7OFTA-OHFT"
^XMB(3.9,22,2,7943,0)="""DATA"",396.18,215,3,2422,0)"
^XMB(3.9,22,2,7944,0)="MS-7=-K.""O)K^EH]5?_HXN9N#S*4T%.2UN3AD8Y$RL*`OV<;(D?*E8TLUH^U6"
^XMB(3.9,22,2,7945,0)="""DATA"",396.18,215,3,2423,0)"
^XMB(3.9,22,2,7946,0)="M)\5%,7593%_\CGD:P`\N7%Z+G7M.;7J]),V&$V'$N#1`'DEX.<7WQRX-AU4."
^XMB(3.9,22,2,7947,0)="""DATA"",396.18,215,3,2424,0)"
^XMB(3.9,22,2,7948,0)="M+61$(^9O,\KTNV*!F@W&ZDT^FXP&'BA""]I@%C$=JV[""[""ER`6XW[GI2W2!,^"
^XMB(3.9,22,2,7949,0)="""DATA"",396.18,215,3,2425,0)"
^XMB(3.9,22,2,7950,0)="M*?J&B`F""5QX""SB.Y)@SD0*>:+Q2IX+4.D5RRS0.Q8W/JEM$G$F&&X\Y?C+[D"
^XMB(3.9,22,2,7951,0)="""DATA"",396.18,215,3,2426,0)"
^XMB(3.9,22,2,7952,0)="MJQ=Q#^,\G_C&-`NIIS;+EL@W6,88F7;)0OBE#=+5V,\5]N+)N(?*T$N;[F0X"
^XMB(3.9,22,2,7953,0)="""DATA"",396.18,215,3,2427,0)"
^XMB(3.9,22,2,7954,0)="M>!@,1VMWNH=M0SZ76_*6T(B17KLXI2N)A;`;9!(CN""?XI]3?;7Q(:&]#G#*J"
^XMB(3.9,22,2,7955,0)="""DATA"",396.18,215,3,2428,0)"
^XMB(3.9,22,2,7956,0)="MB1GWV5=&7^3F6*R_;/]6""BR0O7I/0QE]IH7U9\+Z0^%3T<RP7^TGK%?[*9Q<"
^XMB(3.9,22,2,7957,0)="""DATA"",396.18,215,3,2429,0)"
^XMB(3.9,22,2,7958,0)="MUY5-BW^*('F+UKLTX$G:JD8/A7>-.!:M$,>B]8&B_G8K)KY""_;%TA,CFQ&U("
^XMB(3.9,22,2,7959,0)="""DATA"",396.18,215,3,2430,0)"
^XMB(3.9,22,2,7960,0)="MWS+U;$UZF)W*H?>%8@M]7]L(\@''Y>-\.""[?(_[7=#19S!5""Z3@PZ1""ZB<3S"
^XMB(3.9,22,2,7961,0)="""DATA"",396.18,215,3,2431,0)"
^XMB(3.9,22,2,7962,0)="MD#(?79I$%I@W35H5#XJU;4)&;=%!*E/_.A""N%SH,I`6TM(""1%K#2`M+X""%I;"
^XMB(3.9,22,2,7963,0)="""DATA"",396.18,215,3,2432,0)"
^XMB(3.9,22,2,7964,0)="M:8DPIA]&K]?`5*.1:U3I_6N(=/7+_5+\YP^#^?W20^C+S$"",(!(>W=!9D[R7"
^XMB(3.9,22,2,7965,0)="""DATA"",396.18,215,3,2433,0)"
^XMB(3.9,22,2,7966,0)="MX%:5Q.SMJV8D8?)V!0_U7F<#75DL]P)2%G""[0:Y0);$OW()::[J?\\&OY5T&"
^XMB(3.9,22,2,7967,0)="""DATA"",396.18,215,3,2434,0)"
^XMB(3.9,22,2,7968,0)="M#QI!R@Z\8ZRA?1IVZZ1G!]YI,^'S*#1XP!:'%A/^)2N$L3M9S*8/GY]\7&<"""
^XMB(3.9,22,2,7969,0)="""DATA"",396.18,215,3,2435,0)"
^XMB(3.9,22,2,7970,0)="MZ+:WR%!O4.VZ&Q>WC(];C0%T3:USX)?F-&NA5BVIJO];/AX72Y9O^FD!:BG#"
^XMB(3.9,22,2,7971,0)="""DATA"",396.18,215,3,2436,0)"
^XMB(3.9,22,2,7972,0)="MB9:%XDA/;2:\P*6<'6""3""4(3A""!V%X.OHX5/WD(C0""[C(*=W0,[PD<M8R&D!"
^XMB(3.9,22,2,7973,0)="""DATA"",396.18,215,3,2437,0)"
^XMB(3.9,22,2,7974,0)="M<KJ%W,GDUZ?"">AKY-%S(#RUF(DYHL<SN`)MEPQ:Q`HME5@"";]>;&V%@29_G'"
^XMB(3.9,22,2,7975,0)="""DATA"",396.18,215,3,2438,0)"
^XMB(3.9,22,2,7976,0)="MPI8HA/!H,/GTN+QP\*+,D#4;#!>/LUSU\OGH[K%M3J[8)O,S84'B/3R5]_'V"
^XMB(3.9,22,2,7977,0)="""DATA"",396.18,215,3,2439,0)"
^XMB(3.9,22,2,7978,0)="MQ!2V=^)&D`\SXS&QUC:6.L^+^L'OVTY6-/_QGSQ#LW'AB[))ET:L>S0+GHPV"
^XMB(3.9,22,2,7979,0)="""DATA"",396.18,215,3,2440,0)"
^XMB(3.9,22,2,7980,0)="MZ-8189*7[T;S40$'1%0Q?LSFV[VPYB^RC$#$Z@$T+]PN$/<O;0)-0`LDP,8J"
^XMB(3.9,22,2,7981,0)="""DATA"",396.18,215,3,2441,0)"
^XMB(3.9,22,2,7982,0)="M2.$*,G8%""?H>B[[5N_&&+>-H0R2[#9CG%D#6=J""B$8.\I^=N)*+VWE7-\K]."
^XMB(3.9,22,2,7983,0)="""DATA"",396.18,215,3,2442,0)"
^XMB(3.9,22,2,7984,0)="M'\I#""Z8T;Z<F=,'.0$&QO$./:7]+^N*M-WEV;=2<I<9[1]!P;[Q:.N6Y3?@W"
^XMB(3.9,22,2,7985,0)="""DATA"",396.18,215,3,2443,0)"
^XMB(3.9,22,2,7986,0)="M7@W[QJMEY#ZWW/R7-B'N3!J_!Q2=RYX!)3A*OT6?O>($;0TA>?+3U;3%=M:L"
^XMB(3.9,22,2,7987,0)="""DATA"",396.18,215,3,2444,0)"
^XMB(3.9,22,2,7988,0)="MEJOEY:23^X?'U=O>^J?Z0-1(\*4LYB]EL>!=261<%=_6$C;DKAA9Q%PP=-A^"
^XMB(3.9,22,2,7989,0)="""DATA"",396.18,215,3,2445,0)"
^XMB(3.9,22,2,7990,0)="M4EX#X5BQ0:#7Q9@=3*"".!:""R-C0>M0;""A9H(-;0`FF<!@J?()./HV%""RW&3B"
^XMB(3.9,22,2,7991,0)="""DATA"",396.18,215,3,2446,0)"
^XMB(3.9,22,2,7992,0)="M^MIKC&/\E5F?'D:37`$?M\TO2=#YTO(8^D1$6Y[I9S*NZ6>M;V""7G!^S&2=E"
^XMB(3.9,22,2,7993,0)="""DATA"",396.18,215,3,2447,0)"
^XMB(3.9,22,2,7994,0)="M7%LH_""2K#Q[CK]8)B*K)@R&?Q[?IM9#>"".FMD#X2TL=""^D1(GXKHRY@6$GH="
^XMB(3.9,22,2,7995,0)="""DATA"",396.18,215,3,2448,0)"
^XMB(3.9,22,2,7996,0)="M)D+Z5$B?R>AU(*0/A?1""?#0I;^OMM5EM^5$""6R>`5\,@W(^.0-5^Q@U/BB@("
^XMB(3.9,22,2,7997,0)="""DATA"",396.18,215,3,2449,0)"
^XMB(3.9,22,2,7998,0)="M;+-A;:M>?*\!JT^<XY""=*,-5/I.I*JK]F,_RR=!_L\!51)*RAG'(1.@E1I%("
^XMB(3.9,22,2,7999,0)="""DATA"",396.18,215,3,2450,0)"
^XMB(3.9,22,2,8000,0)="M7B26%TGD15)I$5=-D45<346?_4E/84/I*:R6GL+J4%I`>FRKV1>#-AKK*O]4"
^XMB(3.9,22,2,8001,0)="""DATA"",396.18,215,3,2451,0)"
^XMB(3.9,22,2,8002,0)="MV)=?T&-1""]!Y%!AYV]4=RH+'HZ.;Z;ST/H).1S(4+B,IF)<'-!QYO6W4X<D^"
^XMB(3.9,22,2,8003,0)="""DATA"",396.18,215,3,2452,0)"
^XMB(3.9,22,2,8004,0)="ML6RF""&/YV@6GB=NG@#Y?>[R#KYU_FMC@`?>UQX(D'JUL8E5L+'4Y74QGZN3#"
^XMB(3.9,22,2,8005,0)="""DATA"",396.18,215,3,2453,0)"
^XMB(3.9,22,2,8006,0)="MQ,>VX#@QYMPNSY(=L..?*,:LJY&9)`%**_?8$KM^/IF7[R;]Z.F0CUYBZ,/8"
^XMB(3.9,22,2,8007,0)="""DATA"",396.18,215,3,2454,0)"
^XMB(3.9,22,2,8008,0)="M+*.?O?E9\&%7YP""'#CH_0X#+H-@C'*G3@0`WUNE8*I<ZS7]ADO!.QU*)U*40"
^XMB(3.9,22,2,8009,0)="""DATA"",396.18,215,3,2455,0)"
^XMB(3.9,22,2,8010,0)="M>$RQ$YQFU](FH?#I(-@!/OYI=H,'-`Q(DPG""*18TWX*IJ_QQ-OV43T9#5;T+"
^XMB(3.9,22,2,8011,0)="""DATA"",396.18,215,3,2456,0)"
^XMB(3.9,22,2,8012,0)="M.WHU'MS=Y3-?!P0GVTG$07&'DVW-/]E.(A:*6H*B!MU+2\_2Q?5E\T<@,G3F"
^XMB(3.9,22,2,8013,0)="""DATA"",396.18,215,3,2457,0)"
^XMB(3.9,22,2,8014,0)="M1H9V3TXB82*X%$IN6'IUSIO,F^6EZ$V<E^WKUGZ>J_]97K<L0'T8EP_F/Q9:"
^XMB(3.9,22,2,8015,0)="""DATA"",396.18,215,3,2458,0)"
^XMB(3.9,22,2,8016,0)="MJ1"")ZA'\8*Q&D_*$=_O&E62[E=``Y08X$./45Q/F7OZ0+T:E&:G>SG-/OAB!"
^XMB(3.9,22,2,8017,0)="""DATA"",396.18,215,3,2459,0)"
^XMB(3.9,22,2,8018,0)="M&HWC#+@B!8A/S>I`Z);U)0%5W\8XCJ6+6LA7S>U^X?.BU3$TW7F[9Z!'#^J:"
^XMB(3.9,22,2,8019,0)="""DATA"",396.18,215,3,2460,0)"
^XMB(3.9,22,2,8020,0)="M/VY$$""-;AWCK\R#3-'Y=S/+[ZKX.1.&Z',BH]$G&/=5LIRK*D+R6KGO4$KIS"
^XMB(3.9,22,2,8021,0)="""DATA"",396.18,215,3,2461,0)"
^XMB(3.9,22,2,8022,0)="M196B)Y-\+F!W+L`&[LP%;UXQ4@F2L:=H`-&L?S'!^>9X4DLH>;%3*=36<AP&"
^XMB(3.9,22,2,8023,0)="""DATA"",396.18,215,3,2462,0)"
^XMB(3.9,22,2,8024,0)="M?$+LXL!R_I&=V!PJ9GQ""?Y/&,FN*0SXAT207V-CR"";$F6[*76?J:AU,""8`+6"
^XMB(3.9,22,2,8025,0)="""DATA"",396.18,215,3,2463,0)"
^XMB(3.9,22,2,8026,0)="M=%4TR68DB-7OVQ7R]G,^R]6@^,]DJO*U6E.##\N7`\7BMXPVLYL*8$TD0!/!"
^XMB(3.9,22,2,8027,0)="""DATA"",396.18,215,3,2464,0)"
^XMB(3.9,22,2,8028,0)="M\PA;`BE7`C@SFII-W#MTFGY7$=]5Q!]017@N6ZX'>6.]UZHN#)U?WCX\Y+/C"
^XMB(3.9,22,2,8029,0)="""DATA"",396.18,215,3,2465,0)"
^XMB(3.9,22,2,8030,0)="M%U5-T/>+8IO7^(XW43""_W%X_EG5N]<V+=HZ@6KOE1*UG2""+JKYQ&AZM^R?ZX"
^XMB(3.9,22,2,8031,0)="""DATA"",396.18,215,3,2466,0)"
^XMB(3.9,22,2,8032,0)="M[#)1_PJ67=A_1O6<Z=<&@9[9K!*-B=GFE#-'B3+`7.2V0G""V'9&M8*@MM#*5"
^XMB(3.9,22,2,8033,0)="""DATA"",396.18,215,3,2467,0)"
^XMB(3.9,22,2,8034,0)="M@4QQ=X79CJ*_K99&Q(]-&5I[I_F\BSJ7+P__=%K?=[VQO>2O=7-]J/YV^TOG"
^XMB(3.9,22,2,8035,0)="""DATA"",396.18,215,3,2468,0)"
^XMB(3.9,22,2,8036,0)="M+K\?'`?PK5?`;*CH)<O'PK6FMNV&_N""Z0/NG@_%'M:AR&&Z""[$*3;SL?MJZD"
^XMB(3.9,22,2,8037,0)="""DATA"",396.18,215,3,2469,0)"
^XMB(3.9,22,2,8038,0)="MPE)MZW4U'$PFTX7Z//B2%W]OU%T:K54%;=[?CH?Y;'Z\3(['8WM9Y(6ONNHR"
^XMB(3.9,22,2,8039,0)="""DATA"",396.18,215,3,2470,0)"
^XMB(3.9,22,2,8040,0)="MQ%;'.V2G3X-)>7HF:G==Z(6_2K+M\>.'#Z/))UG;JT(O_%52;?<7`VFOET54"
^XMB(3.9,22,2,8041,0)="""DATA"",396.18,215,3,2471,0)"
^XMB(3.9,22,2,8042,0)="M,8ZE5W""!=7]5,\7`Z\'DTRR?Y""(6UH5>^*NDVKXMWQ"".AJ*F5V74\'/12H[T"
^XMB(3.9,22,2,8043,0)="""DATA"",396.18,215,3,2472,0)"
^XMB(3.9,22,2,8044,0)="M?5TQQ<""[P6PTG,YEG5\74E_RT01A8%-Q@X.VG4+N8+AZGJ_H.9J>J^KYNIY6"
^XMB(3.9,22,2,8045,0)="""DATA"",396.18,215,3,2473,0)"
^XMB(3.9,22,2,8046,0)="M]BW\'<W!A:VNBK;CWJRXI1BX53>U#5IY<^:S*V^H$ZSRQISF5HWH""ZR-UNSE"
^XMB(3.9,22,2,8047,0)="""DATA"",396.18,215,3,2474,0)"
^XMB(3.9,22,2,8048,0)="MMM)4""5CES8G)K1N<\U@3K:G';0.:U5@3V^6=7__6M-A6N_X+ZF3QVCMB8X6^"
^XMB(3.9,22,2,8049,0)="""DATA"",396.18,215,3,2475,0)"
^XMB(3.9,22,2,8050,0)="M\HOMIO&,JY$;1KIE+G>*FM;UB&WQ=>%-%-A\LBC#3!>VSGBZ""CP\_;B,.;UR"
^XMB(3.9,22,2,8051,0)="""DATA"",396.18,215,3,2476,0)"
^XMB(3.9,22,2,8052,0)="MR6W-GY?U8--B6\S#3ON7OX`,+IX>\I*Y#6,?1Y,R<O4/\Q\QQLZ]^XBUZ\Y%"
^XMB(3.9,22,2,8053,0)="""DATA"",396.18,215,3,2477,0)"
^XMB(3.9,22,2,8054,0)="ML;T]>![CLT(>""G8?'@MQ:6/8EEF`YSAD\>RL.L_B^6XZFP_&A9I[*$9POCOO"
^XMB(3.9,22,2,8055,0)="""DATA"",396.18,215,3,2478,0)"
^XMB(3.9,22,2,8056,0)="MEL>[_?UY_^C4[APOMPC\I:'5O[-RNER?GMQVKZ_4];DJ]%^O<]F]?:].7EU="
^XMB(3.9,22,2,8057,0)="""DATA"",396.18,215,3,2479,0)"
^XMB(3.9,22,2,8058,0)="M]RY/+HJ__WL5UQV8V@5UV8\W)[UU/]SJ:_\H\%G7JLZ[5V?=J]<_]']LU-Z8"
^XMB(3.9,22,2,8059,0)="""DATA"",396.18,215,3,2480,0)"
^XMB(3.9,22,2,8060,0)="MLIV+SNEMYZQ[V[EL-8,ZJDL-5R^V`8UBK-M7G;/.Y8GJ=2ZZG7>=,_7JO2IJ"
^XMB(3.9,22,2,8061,0)="""DATA"",396.18,215,3,2481,0)"
^XMB(3.9,22,2,8062,0)="M>E=!TT3`WV23TT[1S7/_M&;SV#LYZQ;0W;R]Z'?`,2EK=,?$P\)ZEK)9.+ON"
^XMB(3.9,22,2,8063,0)="""DATA"",396.18,215,3,2482,0)"
^XMB(3.9,22,2,8064,0)="M]0N9Z*N;HK=]#RMES3)6K)""5F^O^;:?7O>ZIV^XK/RYEW1YF^IU;YX2H>]7I"
^XMB(3.9,22,2,8065,0)="""DATA"",396.18,215,3,2483,0)"
^XMB(3.9,22,2,8066,0)="M.TW^F?FGE0:A/M&A@UYGC:7>!A1EO/==)`O?]\..?[###L^-)LM\4I)DP@09"
^XMB(3.9,22,2,8067,0)="""DATA"",396.18,215,3,2484,0)"
^XMB(3.9,22,2,8068,0)="MV[MO""OSJ1)6C`]""GWALAM39.I]-987BM@M;BX8(L*\AO&E(OW&,KC#;;;IJ("
^XMB(3.9,22,2,8069,0)="""DATA"",396.18,215,3,2485,0)"
^XMB(3.9,22,2,8070,0)="M\IN&?K:P:%RQQ6/!-@""[GHT*ZX0,\JN#B(>8IA%+I(A%(L2TGRT<L801%_G/"
^XMB(3.9,22,2,8071,0)="""DATA"",396.18,215,3,2486,0)"
^XMB(3.9,22,2,8072,0)="M976S)S]4,0\J0T.52J&*15`9/ULX5""D'JOY#G@\_P^<R24#E08@C,D5L:DEX"
^XMB(3.9,22,2,8073,0)="""DATA"",396.18,215,3,2487,0)"
^XMB(3.9,22,2,8074,0)="MFLWY0C;4V\,>C*3<#)BI1:2GNH=^,9W/5YG""X8`.,3?`16P2*F^&YL>WB%_."
^XMB(3.9,22,2,8075,0)="""DATA"",396.18,215,3,2488,0)"
^XMB(3.9,22,2,8076,0)="MF?$MZNUB@5(U,U`JE:,]YB=0C('[?VLW%:<+BM$)A7<#\1!9AL>7TP=.^C2^"
^XMB(3.9,22,2,8077,0)="""DATA"",396.18,215,3,2489,0)"
^XMB(3.9,22,2,8078,0)="M<WGOO0=5P.KI0$WB<=W%O_H>&TXXO'2'!P0!^^I[DP<\D*#@`4%!C%@UL\&D"
^XMB(3.9,22,2,8079,0)="""DATA"",396.18,215,3,2490,0)"
^XMB(3.9,22,2,8080,0)="M=--<Y;,O.:`Y-FK.T%K5D%HU8FM5P]""J=*:^E/L,+XU(K5K=2<$F1\)6JW3<"
^XMB(3.9,22,2,8081,0)="""DATA"",396.18,215,3,2491,0)"
^XMB(3.9,22,2,8082,0)="MH%20*3/AZU5&#!UVJ/$T)I2%PQ>F5Q-4)QV\`[""23/CY*!.V/L7TUDJF<)V1"
^XMB(3.9,22,2,8083,0)="""DATA"",396.18,215,3,2492,0)"
^XMB(3.9,22,2,8084,0)="M\!579#F*:X?GBD'""5ER192DNR7/%-.$H+F!R;E1)3&LN,B]6FK(U5\S07'3`"
^XMB(3.9,22,2,8085,0)="""DATA"",396.18,215,3,2493,0)"
^XMB(3.9,22,2,8086,0)="MK)0;,""M-T0VSZGP=W(\F^6RNKJ:+'-JIDS%ZBD5&D'>1WF^WZR-B""`72_3L9"
^XMB(3.9,22,2,8087,0)="""DATA"",396.18,215,3,2494,0)"
^XMB(3.9,22,2,8088,0)="MO[T57,\?@UT<7#P0!S!WMG1T""?(]O\>*X!D1N`WAXROA\04J""9Z.P%4$Y!';"
^XMB(3.9,22,2,8089,0)="""DATA"",396.18,215,3,2495,0)"
^XMB(3.9,22,2,8090,0)="M[`2]>4XVEHV?*O9181L=,(H%MDJNB!7,0#%5EPSHOR`LQC%)D9`4*4F1410)"
^XMB(3.9,22,2,8091,0)="""DATA"",396.18,215,3,2496,0)"
^XMB(3.9,22,2,8092,0)="MV4I""MI+0K6B2TY""L@\0T""5N1+M0/RV/8'Y$""81#P8F@DUE.S-T5PY01]_1;["
^XMB(3.9,22,2,8093,0)="""DATA"",396.18,215,3,2497,0)"
^XMB(3.9,22,2,8094,0)="M""$1V(Y.Q6HF6SXRT.DHI9PZ#M;2K@W&N:G=W<?UC8EE@%!-K:0'#3QV1:8Y:"
^XMB(3.9,22,2,8095,0)="""DATA"",396.18,215,3,2498,0)"
^XMB(3.9,22,2,8096,0)="MR5C*)[,LJ@A)5M%&L_1S_-W""20%)04B!!R23W\RSVWR^:(5F:;-WLKJF`;]I"
^XMB(3.9,22,2,8097,0)="""DATA"",396.18,215,3,2499,0)"
^XMB(3.9,22,2,8098,0)="MSS05^K9,-\""T-+--^&YVH_AS86XTY8(20N8FGR#`&!XP$0T,VP3/#!.8B`%,"
^XMB(3.9,22,2,8099,0)="""DATA"",396.18,215,3,2500,0)"
^XMB(3.9,22,2,8100,0)="MR@8&-,1/)H\P+I:'2T+CDK!QL4Q<$@8N""1L7<`-W,YO.%X/FIL29BP2;&86-"
^XMB(3.9,22,2,8101,0)="""DATA"",396.18,215,3,2501,0)"
^XMB(3.9,22,2,8102,0)="MX<^EB`E-1D)CN%/)`#/I37D&-/L\'=UY(D""U%2?Y^KI=H#J\F3C/R.A&.E\7"
^XMB(3.9,22,2,8103,0)="""DATA"",396.18,215,3,2502,0)"
^XMB(3.9,22,2,8104,0)="M^6RR`L<7<LP56Q]U*J+.)-0F$%$[I[+@@S(_4,=_YSC!]ZT=<O(T@(\MX8'B"
^XMB(3.9,22,2,8105,0)="""DATA"",396.18,215,3,2503,0)"
^XMB(3.9,22,2,8106,0)="M&0HHLG2J)W_V/QQ7FM@$$F))>BHM2DY9=E%$GHG(32`CQU-KB47ANQC\(XK!"
^XMB(3.9,22,2,8107,0)="""DATA"",396.18,215,3,2504,0)"
^XMB(3.9,22,2,8108,0)="M>D%4YZ/YXG$\4,UMX_I7+,AW>R_B71LUG6Y^N:ME)WA),F^""EQ7SQVS>&6N0"
^XMB(3.9,22,2,8109,0)="""DATA"",396.18,215,3,2505,0)"
^XMB(3.9,22,2,8110,0)="M9H6%`/N!1_?GYX.I]9@*[Q_O""P[\`EH0MS.H#)$;:-:3044!-2>ID]RZZB8:"
^XMB(3.9,22,2,8111,0)="""DATA"",396.18,215,3,2506,0)"
^XMB(3.9,22,2,8112,0)="M!RF,<6]YXB1Z\21DL3'WHEIA1,XFHT$3F>5O>%1\P\\B86+FA,D""[H3)8M^$"
^XMB(3.9,22,2,8113,0)="""DATA"",396.18,215,3,2507,0)"
^XMB(3.9,22,2,8114,0)="M6?%^S&:=C(MO8L:1%M@'SQRH=<(;:,2FY/7+77OL/9-MJ_[N9%BP6T:'>W%T"
^XMB(3.9,22,2,8115,0)="""DATA"",396.18,215,3,2508,0)"
^XMB(3.9,22,2,8116,0)="MM/V'6HN/Z[GW7L&KQ%UG_+-K)X+LLQA""#A*@=1J>J3H3XK<\WSLZJO[7QR1U"
^XMB(3.9,22,2,8117,0)="""DATA"",396.18,215,3,2509,0)"
^XMB(3.9,22,2,8118,0)="M+\+=I$A06[/!`XR\,P'9*DC@HT`(&!%8W_C]5""ZUK'8KJMT*:T]%M0N1L:&D"
^XMB(3.9,22,2,8119,0)="""DATA"",396.18,215,3,2510,0)"
^XMB(3.9,22,2,8120,0)="M=F'""#6V,B'<CK#T2U1X)D0E$R`A325B1S)"")19:9I@(_W*MYRG#!A0'7!1<&"
^XMB(3.9,22,2,8121,0)="""DATA"",396.18,215,3,2511,0)"
^XMB(3.9,22,2,8122,0)="MGF\AS*6FN;1!P""$*.?V-&?UU*Q*H'\\=I/9LK*(#=2>?'D<3UP^(*RTH)AJJ"
^XMB(3.9,22,2,8123,0)="""DATA"",396.18,215,3,2512,0)"
^XMB(3.9,22,2,8124,0)="M@QC$J8#8ACYB9TAQFH""DB9W[:=ZA0F-;$OB?EY[0[_#_#O`O@V]QY=](,(TD"
^XMB(3.9,22,2,8125,0)="""DATA"",396.18,215,3,2513,0)"
^XMB(3.9,22,2,8126,0)="MF`828LL`US!H0L8`T&<R8?#\`6!.@._X[QG_8J%P%P""Z6.5RV4US?;=V#VGM"
^XMB(3.9,22,2,8127,0)="""DATA"",396.18,215,3,2514,0)"
^XMB(3.9,22,2,8128,0)="M[MF>V=54\9I?^+-\CY0"">IHIIJZ""$6X/Q/L#X09!O$,0;A'$>P3A)D&\2^!M"
^XMB(3.9,22,2,8129,0)="""DATA"",396.18,215,3,2515,0)"
^XMB(3.9,22,2,8130,0)="M$WC&-6\WP=I.>/<3<-P9P,^9)5QW;"":Z'5QZW%H5X_[3+&#[3ZL;=C?SI_*%"
^XMB(3.9,22,2,8131,0)="""DATA"",396.18,215,3,2516,0)"
^XMB(3.9,22,2,8132,0)="M8>MWX')=2`:=3X0)(?CY[3+I=>-,>MLXD^98RS)I`6%.MC`(I04T-P%:I)$K"
^XMB(3.9,22,2,8133,0)="""DATA"",396.18,215,3,2517,0)"
^XMB(3.9,22,2,8134,0)="M=/B)9!:Q;CT;0[[[B0+9D]PL8N8K,_3#F8CI]""L(.9C$/$PL^0XW""H68Q$Q,"
^XMB(3.9,22,2,8135,0)="""DATA"",396.18,215,3,2518,0)"
^XMB(3.9,22,2,8136,0)="M+/TD-PJYF'!2W&6\V_%1$).8"".,""9,R\=O6F44RX#ZRBF(-)2NJ*%6?D`YU("
^XMB(3.9,22,2,8137,0)="""DATA"",396.18,215,3,2519,0)"
^XMB(3.9,22,2,8138,0)="M^/0_P_+7^=I&4>'FGH\2#BH94U)(C9)(-4K&E11:HR1<C9)P-(JK]+'A""DF="
^XMB(3.9,22,2,8139,0)="""DATA"",396.18,215,3,2520,0)"
^XMB(3.9,22,2,8140,0)="MD@AU2KMMCZR$M%9)N%HE""5FX:""XNY.O<1$MQT6Q<Z*>ZB>;BHKW&4R`UQ\B@"
^XMB(3.9,22,2,8141,0)="""DATA"",396.18,215,3,2521,0)"
^XMB(3.9,22,2,8142,0)="M,YLW%Z]F^6""^4""@)8!PF%#>1,%N8UFSC,#1&:""A)K_R'1FJ[66%ZW'+!$;)D"
^XMB(3.9,22,2,8143,0)="""DATA"",396.18,215,3,2522,0)"
^XMB(3.9,22,2,8144,0)="MI042:8%,VFDM[;2X#Y&4)2FLD73@K+0/5BI+$0AK/4OB4J&HP7BLAM/))A?>"
^XMB(3.9,22,2,8145,0)="""DATA"",396.18,215,3,2523,0)"
^XMB(3.9,22,2,8146,0)="M_SZ6[SBFD[D:3.[4L-0RJE0S'Z9?/=K.\(-(6,MXBUVC8;_%;C/A>8O=Y`'S"
^XMB(3.9,22,2,8147,0)="""DATA"",396.18,215,3,2524,0)"
^XMB(3.9,22,2,8148,0)="M5+68\#NKK&V$>L*9C`5(Q8Q7ZR83OUH/65=\`![05^M-)OQK5.-JOX_)5(`4"
^XMB(3.9,22,2,8149,0)="""DATA"",396.18,215,3,2525,0)"
^XMB(3.9,22,2,8150,0)="M)S#)UG<J0""KE(\4*3-)D@GC?;T,>5):?_-%&G,S-ULBALNQ$C4T><*@,7ZBL"
^XMB(3.9,22,2,8151,0)="""DATA"",396.18,215,3,2526,0)"
^XMB(3.9,22,2,8152,0)="MX2$5H=//91+(Z>6P:.4X13'3,K1@-BT_""P1*7""5E!5./DT7=)#M,/<N?>JPL"
^XMB(3.9,22,2,8153,0)="""DATA"",396.18,215,3,2527,0)"
^XMB(3.9,22,2,8154,0)="MZD;P;-XD3*02`5()!ZET!Z02/E()""ZE4@%3*1""H3()5Q=%2P`U(9'ZF,I:,$"
^XMB(3.9,22,2,8155,0)="""DATA"",396.18,215,3,2528,0)"
^XMB(3.9,22,2,8156,0)="M(2)LP-3F6J#-0T8R:BB-+ZG--5^;AYQDU'#*7?@,A:G+!5HJXIA2-37""U^9\"
^XMB(3.9,22,2,8157,0)="""DATA"",396.18,215,3,2529,0)"
^XMB(3.9,22,2,8158,0)="M+16Q3*DF$Y2!$'GWPX89:S:*9-O^992%]U>\0+,)&1,ABG=+/6P#QG7[=A%"""
^XMB(3.9,22,2,8159,0)="""DATA"",396.18,215,3,2530,0)"
^XMB(3.9,22,2,8160,0)="M""[?)(Q%YV""971/56QDTFXT;+R$,9>2`AUTG&2:2::7GNY[888""]\?$-+WZ9H"
^XMB(3.9,22,2,8161,0)="""DATA"",396.18,215,3,2531,0)"
^XMB(3.9,22,2,8162,0)="M2@Z#/G3JEP@#AZ%,R)`6TH=""^D!$WY0(]%))4R0XL,CN2=L@D=&'3OWTN,H8"
^XMB(3.9,22,2,8163,0)="""DATA"",396.18,215,3,2532,0)"
^XMB(3.9,22,2,8164,0)="MRH0,:2%]**077@U/(/X]RU2$1[@A)GIMR<?+1'!``$4N0QM9(]\8.HULWGQO"
^XMB(3.9,22,2,8165,0)="""DATA"",396.18,215,3,2533,0)"
^XMB(3.9,22,2,8166,0)="MD@?>%`MXH0'*!#7#P:+XRT<U4`^#!S6_+WULOPW*Y""2SC]-BD;][N2-_SU*4"
^XMB(3.9,22,2,8167,0)="""DATA"",396.18,215,3,2534,0)"
^XMB(3.9,22,2,8168,0)="M[.;(.RW:\@<4&QS/[-AIS6][0Z$P%M0\7Y62SG968T&V$XMZIU+A3J6""'4JY"
^XMB(3.9,22,2,8169,0)="""DATA"",396.18,215,3,2535,0)"
^XMB(3.9,22,2,8170,0)="MNH!;2F06?;?IOI%-]QPC+1)FUO@^T[_/].\S_8\WT]71T>Y6C1L_3O7R^>CN"
^XMB(3.9,22,2,8171,0)="""DATA"",396.18,215,3,2536,0)"
^XMB(3.9,22,2,8172,0)="ML3`N*F/B'!$4AM]^97[4S@W:7AQ>Y36KB*B=>`3<N(UQ[E8T]""1V7%[,;5A@"
^XMB(3.9,22,2,8173,0)="""DATA"",396.18,215,3,2537,0)"
^XMB(3.9,22,2,8174,0)="M>'=6549ZARHYSIZ3LPO5^?BQ@&@.$3BIA=QT6JYY:;Q]JU=:M/[+JG4\JHEI"
^XMB(3.9,22,2,8175,0)="""DATA"",396.18,215,3,2538,0)"
^XMB(3.9,22,2,8176,0)="M/_NOM5>KX)A9&HTFPC_IUHQ#29%&T-OK40QB+2$V$F(K(8XDQ+&$.)$0IQ+B"
^XMB(3.9,22,2,8177,0)="""DATA"",396.18,215,3,2539,0)"
^XMB(3.9,22,2,8178,0)="M3$!<""PE`$\>2#H:ARS1E91G#\H2Y\HGYHT$7#:CN,DIVYQ(?@I:1&QFYE9%'"
^XMB(3.9,22,2,8179,0)="""DATA"",396.18,215,3,2540,0)"
^XMB(3.9,22,2,8180,0)="M,O)81I[(R%,9>28B+Z190A[+NEI*M(CYFL)C^!.UB-J(J*V(.A)1QR+J1$2="
^XMB(3.9,22,2,8181,0)="""DATA"",396.18,215,3,2541,0)"
^XMB(3.9,22,2,8182,0)="MBJ@S""75=\]'4L:B7#=V'.9Z@L%$MR^/HJ/_XX;Y,S/NG6EMG7U>[SS_5HC^7"
^XMB(3.9,22,2,8183,0)="""DATA"",396.18,215,3,2542,0)"
^XMB(3.9,22,2,8184,0)="ME[A>7HPF^7R]-?V36P;*+3P:?*JRUK<2""O]IQ6>MC=6SPQ#:""+N-;?\.)S7."
^XMB(3.9,22,2,8185,0)="""DATA"",396.18,215,3,2543,0)"
^XMB(3.9,22,2,8186,0)="M5R;1*COWYA:?*O]_.'Q\&*SN]`V&B]&7XE/.8)&T=FA6SZ8%A$V.!A6KZG%>"
^XMB(3.9,22,2,8187,0)="""DATA"",396.18,215,3,2544,0)"
^XMB(3.9,22,2,8188,0)="MF/GJ;C`:/]68^O](IHIZ5X[!/_VIE7GY[""M6`N)U/53EQ[/NR>NKZWZWKZY["
^XMB(3.9,22,2,8189,0)="""DATA"",396.18,215,3,2545,0)"
^XMB(3.9,22,2,8190,0)="MJG/;O;ZX?OV^S+]\T[M^==&Y;&2QK4M'@]D_%1(&-^#\5.;+75:M3OK]Z]/N"
^XMB(3.9,22,2,8191,0)="""DATA"",396.18,215,3,2546,0)"
^XMB(3.9,22,2,8192,0)="MR6WG3/W<O7VC;M]TU(8?.*WP,H%!JW%!TYWS\\[IK;J^4F_[;T\NU/7IZ=L;"
^XMB(3.9,22,2,8193,0)="""DATA"",396.18,215,3,2547,0)"
^XMB(3.9,22,2,8194,0)="M-[$R+*+-5AV!MJ`3]T\B_F[?%""-QUNV?O.J6^:[_3U]U+V].EAQO>2T8+W[K"
^XMB(3.9,22,2,8195,0)="""DATA"",396.18,215,3,2548,0)"
^XMB(3.9,22,2,8196,0)="MONO>=CM]B''K8WPM)VX/HCWTH-?IO[VX[5Z]5C]?]_X;%"".X-9+):C=9[!>7"
^XMB(3.9,22,2,8197,0)="""DATA"",396.18,215,3,2549,0)"
^XMB(3.9,22,2,8198,0)="M\K<3<\5>\>KZMOC/SQ5W!9<_J;-""`-7%2?]6=2YO+J[?=\X<F=^VRF(R#)[#"
^XMB(3.9,22,2,8199,0)="""DATA"",396.18,215,3,2550,0)"
^XMB(3.9,22,2,8200,0)="MXW4Q#8JI6`EJGSONC681)@4\G/0ZY6PL_KO&1SD]UU-W]<_SZXN+ZY_+P3X["
^XMB(3.9,22,2,8201,0)="""DATA"",396.18,215,3,2551,0)"
^XMB(3.9,22,2,8202,0)="MZ5Z\Q[CSJU-L6CE6T*;4[:[""J4[?7/>\S.E0*)6.];4'+OMOKF]N""E1]?.KG"
^XMB(3.9,22,2,8203,0)="""DATA"",396.18,215,3,2552,0)"
^XMB(3.9,22,2,8204,0)="M\6GVP6?G;YW>:;>=ZAQM:!<^]Z%45?_FNG?K'77[+""[C>!]<]CJGO8Z[%OF;"
^XMB(3.9,22,2,8205,0)="""DATA"",396.18,215,3,2553,0)"
^XMB(3.9,22,2,8206,0)="MDN*Y#Q6O;GLG[SH7A(!&SV*T'3Y\-T;/.YTS/YOM=J1X9OM@\]5)L>[[T<R>"
^XMB(3.9,22,2,8207,0)="""DATA"",396.18,215,3,2554,0)"
^XMB(3.9,22,2,8208,0)="MQV:Z#S;/""M79)_A,G\=GLA?QO.Y>=&X)1I/G,;J7&?^Z=WU]2?#YO/E>[B#W"
^XMB(3.9,22,2,8209,0)="""DATA"",396.18,215,3,2555,0)"
^XMB(3.9,22,2,8210,0)="M,O+%LN[ETVF(92EE+PLMTNGORE6G?]KKONJHRF1R#:)U[2Q6S+-8.3D[ZZXL"
^XMB(3.9,22,2,8211,0)="""DATA"",396.18,215,3,2556,0)"
^XMB(3.9,22,2,8212,0)="MM-/KR\O.U:W+CO&STW(YQIM=.-3@GP5_ZAM+?.>T?AWKG)W\B;SIXJ1TA-^&"
^XMB(3.9,22,2,8213,0)="""DATA"",396.18,215,3,2557,0)"
^XMB(3.9,22,2,8214,0)="M>2.]0XY1F5]4YA:5>45E3E&93U3F$I5Y1&4.49D_5.8.%7I#<59D@PFX3D6>"
^XMB(3.9,22,2,8215,0)="""DATA"",396.18,215,3,2558,0)"
^XMB(3.9,22,2,8216,0)="M4Y'C5.0W%;E-15Y3D=-4Y#,5N4Q%'E.1PU3F+ZT?^$!N'4>$0!\*1@7=LH5?"
^XMB(3.9,22,2,8217,0)="""DATA"",396.18,215,3,2559,0)"
^XMB(3.9,22,2,8218,0)="M*901L89@EB>L2(:>J9</_?;*,NM4C#X40]<(,HNPD8=<J*Y-7.:3Q6""L3J?W"
^XMB(3.9,22,2,8219,0)="""DATA"",396.18,215,3,2560,0)"
^XMB(3.9,22,2,8220,0)="M#_DBGPR?,%IGU;(IQ5,<,R,O-*4PB:D$X:L0*8;&.$VX]RQJ6;""YC*VOF?HY"
^XMB(3.9,22,2,8221,0)="""DATA"",396.18,215,3,2561,0)"
^XMB(3.9,22,2,8222,0)="M@Q]]I@EZO01K/67""PDG^&V5<7`I2,6LX,)9^#1ME&#*0$&92(71GANH_Y,/1"
^XMB(3.9,22,2,8223,0)="""DATA"",396.18,215,3,2562,0)"
^XMB(3.9,22,2,8224,0)="M8%S,;N]+L=!P7_VF,=G-6E!&]BNQT'!N&+D<H'D((OXEI(@3*B?47(02#D*Q"
^XMB(3.9,22,2,8225,0)="""DATA"",396.18,215,3,2563,0)"
^XMB(3.9,22,2,8226,0)="M'""'-1BAA(13S$8K]ZK;\\3(O+[B-U?7#:#*:3ECOWLH80*?4=2SKOP;EUEF_"
^XMB(3.9,22,2,8227,0)="""DATA"",396.18,215,3,2564,0)"
^XMB(3.9,22,2,8228,0)="M-;;@UHDO4LUA2!E24!$6BVEAVGU9IG0!>[?*7IQYI67=J8!%%;*HM)=J^113"
^XMB(3.9,22,2,8229,0)="""DATA"",396.18,215,3,2565,0)"
^XMB(3.9,22,2,8230,0)="MT]I,`S2$$*<<$0;A8YC&&;6&M,WC4%H@D!;0T@+@:3*6<L;B>:/P3SK$/P7X"
^XMB(3.9,22,2,8231,0)="""DATA"",396.18,215,3,2566,0)"
^XMB(3.9,22,2,8232,0)="M)XU_,OCRBK_TUD@BY67V=\P`:(HEFK3'>JS/0E.-QJ/%8/94E)M]&0US7%PA"
^XMB(3.9,22,2,8233,0)="""DATA"",396.18,215,3,2567,0)"
^XMB(3.9,22,2,8234,0)="MF<)""44!W&9T@N>()XW#@T?J68Y@W>?""K_=`V<+N9C;Z4-YA[^7`Z\V68A28*"
^XMB(3.9,22,2,8235,0)="""DATA"",396.18,215,3,2568,0)"
^XMB(3.9,22,2,8236,0)="MRG/&T#.!&+8X0&'SR+Z?.U3<`J^XK:2,`UO(ALT$#-A"".6PA7]I,P,$F9$N;"
^XMB(3.9,22,2,8237,0)="""DATA"",396.18,215,3,2569,0)"
^XMB(3.9,22,2,8238,0)="M#ANPO3OA(*;YB(4,Q+0<,2T5-$URAX*IO8)6I?+RL6KX8&D&6$8.EA&(E^8@"
^XMB(3.9,22,2,8239,0)="""DATA"",396.18,215,3,2570,0)"
^XMB(3.9,22,2,8240,0)="MPG]JH(TWYV/H7(M;6[*J_WA_7RP7D!EIA::IW4\KE$>E-!?;=G4#NN4%L>4B"
^XMB(3.9,22,2,8241,0)="""DATA"",396.18,215,3,2571,0)"
^XMB(3.9,22,2,8242,0)="MV[I$HUM7_.!RY66[R_*R72^O$K%7M]EZ>14;KVATU:D7`!3-QA603+UI`E`,"
^XMB(3.9,22,2,8243,0)="""DATA"",396.18,215,3,2572,0)"
^XMB(3.9,22,2,8244,0)="MW,RF7T9WN1JHU@[$?4O#8&)EG#0AX+)08;""Z4IBKC].9*DAF.#_*96CSNK=U"
^XMB(3.9,22,2,8245,0)="""DATA"",396.18,215,3,2573,0)"
^XMB(3.9,22,2,8246,0)="MB6_U3_!^>ZLSS;21*^DZKBY?W9[<=LKSI_(.7Z_S?]\6OW3.U/5-]ZI]L:`I"
^XMB(3.9,22,2,8247,0)="""DATA"",396.18,215,3,2574,0)"
^XMB(3.9,22,2,8248,0)="M""HTSHA?%]^YI>3\.*-<>Q%;1Y?VE5@7E[4+T8""R,0!YZJSM/Y36C'MJ#[4C6"
^XMB(3.9,22,2,8249,0)="""DATA"",396.18,215,3,2575,0)"
^XMB(3.9,22,2,8250,0)="MC[::""'7*H9L,:_"");+%E$:S&]B_E<>!E>7OOI/=>]3N]=]U3[P69R'.T7S5;"
^XMB(3.9,22,2,8251,0)="""DATA"",396.18,215,3,2576,0)"
^XMB(3.9,22,2,8252,0)="M\-JV[AK7RY02<G?3Z=UVKTH9Z;SKGG6N6OPU&W'8V80!J/U-9*/)X;SI==^5"
^XMB(3.9,22,2,8253,0)="""DATA"",396.18,215,3,2577,0)"
^XMB(3.9,22,2,8254,0)="MM_360M7KG%[WSKP7>N)`B*H.O@&J.M@/JN$^4%W)I@C54(IJ^""U0#?>#JMX'"
^XMB(3.9,22,2,8255,0)="""DATA"",396.18,215,3,2578,0)"
^XMB(3.9,22,2,8256,0)="MJJ5-RP!22X'4WP)(O1\@S3Z`!""YU$.W0()IO`:+9#<1-0PA<VV6^]4-UKWW%"
^XMB(3.9,22,2,8257,0)="""DATA"",396.18,215,3,2579,0)"
^XMB(3.9,22,2,8258,0)="M3B%[[[J=G]=WF&O+::N5%AN.T1VUKY^L6Q->/O'=/U$*=)4ZWF+J`HI3IHSQ"
^XMB(3.9,22,2,8259,0)="""DATA"",396.18,215,3,2580,0)"
^XMB(3.9,22,2,8260,0)="MMDRY+MYR_/,X'/>W/]VC3V6?#J\]>C,.OW/]._?SDF[>U>0].OKKYD\YKXO]"
^XMB(3.9,22,2,8261,0)="""DATA"",396.18,215,3,2581,0)"
^XMB(3.9,22,2,8262,0)="MY*?'\6""F3J?%YFK[;37-+P;S1>]Q<APNU6'92N?K:'']W\?-F-#E__W_4$L#"
^XMB(3.9,22,2,8263,0)="""DATA"",396.18,215,3,2582,0)"
^XMB(3.9,22,2,8264,0)="M!!0``@`(`+J#PC03PY<5O2\``+%)`0`@````1V5N97)A;%]-961I8V%L7T5X"
^XMB(3.9,22,2,8265,0)="""DATA"",396.18,215,3,2583,0)"
^XMB(3.9,22,2,8266,0)="M86U?,3$Q+G!N;""YR97#E?6N+Y$B2X/>""^@^""9ID9J+X,O:5C9D""A\(A0IUZG"
^XMB(3.9,22,2,8267,0)="""DATA"",396.18,215,3,2584,0)"
^XMB(3.9,22,2,8268,0)="M1V9%%\VQ=S-PP^UN'[>]L#__W,REB)#D,KDIZQ:&;9KN*H7DYN9N;FYO2ZNB"
^XMB(3.9,22,2,8269,0)="""DATA"",396.18,215,3,2585,0)"
^XMB(3.9,22,2,8270,0)="M%F6;=%E56DEYLN!O\&?Q-2FR$I]__G01I6B2W""K$*4OE_R<__LG@G\^?_OC'"
^XMB(3.9,22,2,8271,0)="""DATA"",396.18,215,3,2586,0)"
^XMB(3.9,22,2,8272,0)="MJN_JOJO.YS__V7IYL>JJ[FOK7#6%]4V.+X?^[_4__LM?_\D.?IF__<,/PPMI"
^XMB(3.9,22,2,8273,0)="""DATA"",396.18,215,3,2587,0)"
^XMB(3.9,22,2,8274,0)="M_5XT__B7O_UZ^;^__MO_\7_X8>TG[_FGXJ___*L-3SY_:L1;)MZMZGQ'I1%I"
^XMB(3.9,22,2,8275,0)="""DATA"",396.18,215,3,2588,0)"
^XMB(3.9,22,2,8276,0)="MU9Q:`@W#V0""`V:#6NVC$?[6L/_Y1_X4<C(%JFB=989VS7%CO2;L^K$\->U^+"
^XMB(3.9,22,2,8277,0)="""DATA"",396.18,215,3,2589,0)"
^XMB(3.9,22,2,8278,0)="MM""H*478P#KR<E2?Y-YC1?53UJF8PN7E""4LK6KE%[_`L]05=.<)R3^OWSI[8O"
^XMB(3.9,22,2,8279,0)="""DATA"",396.18,215,3,2590,0)"
^XMB(3.9,22,2,8280,0)="MBJ2YP=[5377,16&UM4BS<Y9:IRKM`1L&1=ZW=@US=XIYB2],I_3YT[CAUZSM"
^XMB(3.9,22,2,8281,0)="""DATA"",396.18,215,3,2591,0)"
^XMB(3.9,22,2,8282,0)="MJN:V`#U'<SK""RF8[883$*G\\B69]H^5[FMU9`2'^\K??;!PVN4QH$G\P'V<Z"
^XMB(3.9,22,2,8283,0)="""DATA"",396.18,215,3,2592,0)"
^XMB(3.9,22,2,8284,0)="M!37B@#ULS;5JZZQ+\NQGQ5*JQFK[YB*:VSH>MI[&UHC'<WY9FZLWIR3'AJ5\"
^XMB(3.9,22,2,8285,0)="""DATA"",396.18,215,3,2593,0)"
^XMB(3.9,22,2,8286,0)="M(ITDS^=S;)'O/6;Y((IH3A1R.,/S0$R27%!WOJ!=D_1%LKYX+F_Q`O.UPZ7K"
^XMB(3.9,22,2,8287,0)="""DATA"",396.18,215,3,2594,0)"
^XMB(3.9,22,2,8288,0)="M;K6P\BI]7!""GI!._;_\PF1NQ9,8K%NQ;,&>^8*6HZCQI""^+<\);,]LW6;`HD"
^XMB(3.9,22,2,8289,0)="""DATA"",396.18,215,3,2595,0)"
^XMB(3.9,22,2,8290,0)="M`)8M^;357875]84\""(4DN4N9E-WZU()-YNW8L1SXE""67LFJS%K<!1M\BW)@X"
^XMB(3.9,22,2,8291,0)="""DATA"",396.18,215,3,2596,0)"
^XMB(3.9,22,2,8292,0)="MXMZ<4<""BPC[#Z'=0<Z;A;-XS\4!`[9UPU'P;D73`KJW?9V6:]Z>LO(SG[P\;"
^XMB(3.9,22,2,8293,0)="""DATA"",396.18,215,3,2597,0)"
^XMB(3.9,22,2,8294,0)="MU,1""PWU""0Y)$]X`\Q\6E<$$.>9B/)?<Q&VBMDU?0ZM#V87.=<+E%FS;943P&"
^XMB(3.9,22,2,8295,0)="""DATA"",396.18,215,3,2598,0)"
^XMB(3.9,22,2,8296,0)="MDH=L8S$<T\O9WSA;\J-CW\E+SOK3GX</C__VVV^__HMMXT@@_/W"".3/`_=:N"
^XMB(3.9,22,2,8297,0)="""DATA"",396.18,215,3,2599,0)"
^XMB(3.9,22,2,8298,0)="M#&==;,-5GJY-L'@2$M_;]OJ/Q'?!>-^BE-M44AS\\?'/VMHYQ.G'`<_B3336"
^XMB(3.9,22,2,8299,0)="""DATA"",396.18,215,3,2600,0)"
^XMB(3.9,22,2,8300,0)="MBY5>LSPG)+;`7!`,<6#)29*L)43+T'Q$6W'0,KM<.ZM]E\1'S-1V&`,?<.!3"
^XMB(3.9,22,2,8301,0)="""DATA"",396.18,215,3,2601,0)"
^XMB(3.9,22,2,8302,0)="M]O//\J""TU*@'QJCV0N:0=[IH+IF@(-BV*>,`&@O#YQ/Y/#YQ',.0`.$L#KW:"
^XMB(3.9,22,2,8303,0)="""DATA"",396.18,215,3,2602,0)"
^XMB(3.9,22,2,8304,0)="MR0>04N(B[PHI+]V*NJN*+<F<!TT19'(Z97""12R(WE/\#0Q;C[.4POFM]DZ-5"
^XMB(3.9,22,2,8305,0)="""DATA"",396.18,215,3,2603,0)"
^XMB(3.9,22,2,8306,0)="M<A5*P>(QMFNJ*.)%]/G3'<SBA*LS_EB[YW>?MF.-N(POI:K)__:OOQU__7>8"
^XMB(3.9,22,2,8307,0)="""DATA"",396.18,215,3,2604,0)"
^XMB(3.9,22,2,8308,0)="M4'(L)4YR*P8()+]_?,FA8^<PH>,YB8$8!S?S%EDLQ8F#Z<WC[K]Y'$D8-R9)"
^XMB(3.9,22,2,8309,0)="""DATA"",396.18,215,3,2605,0)"
^XMB(3.9,22,2,8310,0)="M>*8DX2DN(@%,B&%!!C<3`O!L-@%,[JG[4R7]Y^+<61+R@T37Q@Y6QUZA*>2T"
^XMB(3.9,22,2,8311,0)="""DATA"",396.18,215,3,2606,0)"
^XMB(3.9,22,2,8312,0)="M2Z*BYJ^'`3-5M/2T1(;07`):-""=A+]23L#%8-0A[@QSM!@U6)+PK)SO$W""*'"
^XMB(3.9,22,2,8313,0)="""DATA"",396.18,215,3,2607,0)"
^XMB(3.9,22,2,8314,0)="MO44.>XN\#VR1Q]JBZ'ML4<1B;+;1?:;1@TP9E[>;<7F2;R4-3UP^&/,MQ2(D"
^XMB(3.9,22,2,8315,0)="""DATA"",396.18,215,3,2608,0)"
^XMB(3.9,22,2,8316,0)="M`()OP:\&7,OE<RVX3Q1[2AJ#RTHKV&V`@)T=#I@9#)9DY\#)XY.-J::EV4A3"
^XMB(3.9,22,2,8317,0)="""DATA"",396.18,215,3,2609,0)"
^XMB(3.9,22,2,8318,0)="MLO&M;U+-YMUW@3'=V,$@YDL04_%G2CKXNX'($SC\G?4>3*\UV5B/L[%^=&=W"
^XMB(3.9,22,2,8319,0)="""DATA"",396.18,215,3,2610,0)"
^XMB(3.9,22,2,8320,0)="M(XQ]LHUO;+#:O=>.9!%M5O8M;[/-Y=U`W5,(8R;L3K=;O6&RWQY_OP/F?@=\"
^XMB(3.9,22,2,8321,0)="""DATA"",396.18,215,3,2611,0)"
^XMB(3.9,22,2,8322,0)="M$-'(CQ0BR?DLTDZ<3*!%?&CQG37QP1G+[3/S+BRBJ+.V.BGC&4*6%-U:I[X!"
^XMB(3.9,22,2,8323,0)="""DATA"",396.18,215,3,2612,0)"
^XMB(3.9,22,2,8324,0)="MPUD-QBC;^;&HRNYJU:+)JA-A+@Y,Y8CTUW_^'[_*F<,29V6:U$F:@8-%@ASG"
^XMB(3.9,22,2,8325,0)="""DATA"",396.18,215,3,2613,0)"
^XMB(3.9,22,2,8326,0)="M,P$SOLZ1'`)@]N=&_+=>E.E-60G[!FW-&^)""8'/Q@,TKJ_)'!BXQ""Y>)%8^&"
^XMB(3.9,22,2,8327,0)="""DATA"",396.18,215,3,2614,0)"
^XMB(3.9,22,2,8328,0)="M1&+FL""P5T9[[+#3F<?OU-ZF^%?*[J_5B==>F2CJ>1&2;,CO''VQB`.Q%@=(H"
^XMB(3.9,22,2,8329,0)="""DATA"",396.18,215,3,2615,0)"
^XMB(3.9,22,2,8330,0)="M^`O6IR97-</L#)B@A,3G&0Z3"";)V'U'_+I=>:""K@V/L5>E=*."")]Y5UZCCD="
^XMB(3.9,22,2,8331,0)="""DATA"",396.18,215,3,2616,0)"
^XMB(3.9,22,2,8332,0)="M**\I@""`E'/C=9+-W7!`A<[-#SF8'A^^TV8&I]29P]F]V($6<UZSD'?J0C@MP"
^XMB(3.9,22,2,8333,0)="""DATA"",396.18,215,3,2617,0)"
^XMB(3.9,22,2,8334,0)="M7'?=AN^@QTT*/1+J<O^9]GLU&`YE0""I:KQU-*CZ/4GP.H;CV=R(4U^;8F-7N"
^XMB(3.9,22,2,8335,0)="""DATA"",396.18,215,3,2618,0)"
^XMB(3.9,22,2,8336,0)="MW&_`#%[*SC>X^H[5Z6852?/:?K':-&GD_^2EV%75=`+!0N]R75.^%.XGU=#Z"
^XMB(3.9,22,2,8337,0)="""DATA"",396.18,215,3,2619,0)"
^XMB(3.9,22,2,8338,0)="M)N=TRI*41ZW&\K@3*N5K@*)U,#T6=7S+@/!""X]MB%&E`G'QVG927K$QTL@_M"
^XMB(3.9,22,2,8339,0)="""DATA"",396.18,215,3,2620,0)"
^XMB(3.9,22,2,8340,0)="MDQI><J:CM;<RK6JA&\XQ&<Z=#G>ZM74IM+-S38;SIL.=I1AVZ;6S\TR&\V>S"
^XMB(3.9,22,2,8341,0)="""DATA"",396.18,215,3,2621,0)"
^XMB(3.9,22,2,8342,0)="MT_JUQG<9#JT9UL6M4A202['[G#3I(`VO:68N`]0,A>8J^B(![_55)$TG46I%"
^XMB(3.9,22,2,8343,0)="""DATA"",396.18,215,3,2622,0)"
^XMB(3.9,22,2,8344,0)="M0KD5;0Y>L^5/J_(BVBY[$P.T<Y+E/14?1QH`@KF'WO>?//15V8J%)][GS/Z`"
^XMB(3.9,22,2,8345,0)="""DATA"",396.18,215,3,2623,0)"
^XMB(3.9,22,2,8346,0)="M>D]KI5<Y=2DAEEE*.3""-U1Z8""`P]C`GZ7+J(QXJ,#I_WK!K*FVK0!""W4!+5D"
^XMB(3.9,22,2,8347,0)="""DATA"",396.18,215,3,2624,0)"
^XMB(3.9,22,2,8348,0)="MZ7@[M5![NI?7F]0S.X@4O>_F)NUH+Y-5`\:<L=37+,\XE,KPJ:/8]@0-?7]P"
^XMB(3.9,22,2,8349,0)="""DATA"",396.18,215,3,2625,0)"
^XMB(3.9,22,2,8350,0)="M!+N,,HDP?.R./SMYH*9O@W#\[7`@_W'79Y<2HB&3LEO<(:#G#.`W+)V^Z87["
^XMB(3.9,22,2,8351,0)="""DATA"",396.18,215,3,2626,0)"
^XMB(3.9,22,2,8352,0)="M`<]>9'VK^UR2:=+<>%>NN380*@_!'<ZFS_?QILG%:^\[2/8AP-C;_G*EN`F'"
^XMB(3.9,22,2,8353,0)="""DATA"",396.18,215,3,2627,0)"
^XMB(3.9,22,2,8354,0)="M>)'/OE^%^)DZ#K;'&1(TC:LHJKJ[M>09X$1NN*@=Y4+45@+WNL$ZNXPSYF*,"
^XMB(3.9,22,2,8355,0)="""DATA"",396.18,215,3,2628,0)"
^XMB(3.9,22,2,8356,0)="M]%5>,9(19L2-Z?I&W!6NY5;^WA=:3FHD@:#O<EV*X43I'&!/NN/3*5ZEG@/G"
^XMB(3.9,22,2,8357,0)="""DATA"",396.18,215,3,2629,0)"
^XMB(3.9,22,2,8358,0)="M+O*?@^2D+""C%C;>LNRWN3I?E97GX'I?'""G410[^+:?BY\P%--99#]3PVY)FS"
^XMB(3.9,22,2,8359,0)="""DATA"",396.18,215,3,2630,0)"
^XMB(3.9,22,2,8360,0)="M(7<,+<NZ""@RV>E:T9$?3+TQ8DKN3)?GV<S#*.:_>*0&0=8L#S8XH2#FGPI#)"
^XMB(3.9,22,2,8361,0)="""DATA"",396.18,215,3,2631,0)"
^XMB(3.9,22,2,8362,0)="MF;RS^(8CS\9/`.YV9&KZ,6?Z+HY^V1@SX$C@:%>0+$%..J'&Y(BJ`<HOHLVZ"
^XMB(3.9,22,2,8363,0)="""DATA"",396.18,215,3,2632,0)"
^XMB(3.9,22,2,8364,0)="M9&.F'(:#$3(=2.QIGR?-!E.U/0YA(--ITZ;J(*DH(6,#?9:""`TLA&B&Y6""Y`"
^XMB(3.9,22,2,8365,0)="""DATA"",396.18,215,3,2633,0)"
^XMB(3.9,22,2,8366,0)="M2CSWY98""Y7-6!04Y/)MRYKF`5""ER\JQ]5-0LNBM$H<K)I]>DN9""'A4/.&#IP"
^XMB(3.9,22,2,8367,0)="""DATA"",396.18,215,3,2634,0)"
^XMB(3.9,22,2,8368,0)="MSI/R=7,O.4ON^4I82+H-FO98RB,*""Y)?DU&='HN@E0<HW9PG8U&'6/R<%I-B"
^XMB(3.9,22,2,8369,0)="""DATA"",396.18,215,3,2635,0)"
^XMB(3.9,22,2,8370,0)="MUH4,=V>7%5*GDUJ""]2[$Z^(R9GG&G>_E)'"",G03[@V><@QPJ8]W&?F1\&^,)"
^XMB(3.9,22,2,8371,0)="""DATA"",396.18,215,3,2636,0)"
^XMB(3.9,22,2,8372,0)="MFQDM52#1\53)%7BY2!6ZJ;(2^5ZIB077WMILXS),8P'*Q-""\TXL<`99ETK>"""
^XMB(3.9,22,2,8373,0)="""DATA"",396.18,215,3,2637,0)"
^XMB(3.9,22,2,8374,0)="M(/R(<>HC./1O59&!9Y,8DG'D\;:59ZEIKM0L.;>MBX86R:&[K$[H6\""-&(?>"
^XMB(3.9,22,2,8375,0)="""DATA"",396.18,215,3,2638,0)"
^XMB(3.9,22,2,8376,0)="M0Y?X*4-[%C5JS$GQ1#L@6#>.?4.,R;D/D=!`D9.+6F4G*@6!P?10M9;LI*38"
^XMB(3.9,22,2,8377,0)="""DATA"",396.18,215,3,2639,0)"
^XMB(3.9,22,2,8378,0)="M:$C*`W?'1C1H2-?DDB4&CI!HWP'P,.P+#CD>-5KD\!A)#BAP/`9NWT6>DT>"""
^XMB(3.9,22,2,8379,0)="""DATA"",396.18,215,3,2640,0)"
^XMB(3.9,22,2,8380,0)="M(VVX&'`B+E(&S;HM`F9L((K-/R6])&%*%N<(RU$T2@%""WES491BQ(D3PTK[["
^XMB(3.9,22,2,8381,0)="""DATA"",396.18,215,3,2641,0)"
^XMB(3.9,22,2,8382,0)="ME##Q:C!Y6H_<,5!?M\)+=W+.^(!IW;DH""5J/#QR4_,/W0<D_[$,)DUMJJ2I`"
^XMB(3.9,22,2,8383,0)="""DATA"",396.18,215,3,2642,0)"
^XMB(3.9,22,2,8384,0)="MHAEM@""136I:(V<^(3<-Z6DB%4G8%$J>==K4(6/)9I.@T,=$S(U:$L^]\'#-G"
^XMB(3.9,22,2,8385,0)="""DATA"",396.18,215,3,2643,0)"
^XMB(3.9,22,2,8386,0)="M)^<"":JFKMONQ;B2X[$E0L))S)X6Z/D^%09:UQR-2]\E!_>6!\A<6SCM-$B$J"
^XMB(3.9,22,2,8387,0)="""DATA"",396.18,215,3,2644,0)"
^XMB(3.9,22,2,8388,0)="M64F>'W,II$KDDJY+TE>*4'T6<IX>.19N.UTIJ$`^+@Q:$_-9:#E@6QYSM;]@"
^XMB(3.9,22,2,8389,0)="""DATA"",396.18,215,3,2645,0)"
^XMB(3.9,22,2,8390,0)="MYJW:KF?+""(63$[#TBD<.R""7;9=TS=>YK)'QC?<*VOLEK*4NM%RN74[SR#'VQ"
^XMB(3.9,22,2,8391,0)="""DATA"",396.18,215,3,2646,0)"
^XMB(3.9,22,2,8392,0)="MN6JAHH\0U@M""0L?JFOXP-?;-OS)1!?CA2<%ZTHE>V&*1@^M^KZ@3XYB/>'?2"
^XMB(3.9,22,2,8393,0)="""DATA"",396.18,215,3,2647,0)"
^XMB(3.9,22,2,8394,0)="M86A]*_HV[?.J?967>\=,;W8/Z_G-CA-H4X<<7__8TS]V]8_U:4F./IT,TO\^"
^XMB(3.9,22,2,8395,0)="""DATA"",396.18,215,3,2648,0)"
^XMB(3.9,22,2,8396,0)="M?YHA2I+DIB8[&=N""H?/5)!]/G\C$NH=<3Y];1$->LC:7==^C+JI`8(ZD+LY;"
^XMB(3.9,22,2,8397,0)="""DATA"",396.18,215,3,2649,0)"
^XMB(3.9,22,2,8398,0)="M$[GKFH9+33?N)[`"",!?19J&SLH@D8`U^O#7T1]0X2^CSE_"")[]20L(M1Y%F;"
^XMB(3.9,22,2,8399,0)="""DATA"",396.18,215,3,2650,0)"
^XMB(3.9,22,2,8400,0)="MCD$""S)5E92<&*]F).),7DUEHUH`E=..],RW0(D]YEF^&F4?\E7;&;(MS57$)"
^XMB(3.9,22,2,8401,0)="""DATA"",396.18,215,3,2651,0)"
^XMB(3.9,22,2,8402,0)="MUF$A%=SW5`?ORY.4\\!X+.^C#:O4+$#`7P#OG@""R8P5XIR>^KX`6X/=9@MAT"
^XMB(3.9,22,2,8403,0)="""DATA"",396.18,215,3,2652,0)"
^XMB(3.9,22,2,8404,0)="M""7177-((*&XC_WO.Y9_[&O-3%$_9C,]QS&7->V8),)2^[<%)J77UW=\S<<U'"
^XMB(3.9,22,2,8405,0)="""DATA"",396.18,215,3,2653,0)"
^XMB(3.9,22,2,8406,0)="MX7VTIY23Y6""AT6!89>JA.""R'B38#>0YH4A52HTO*W[565M2-:+$4'Y3,N0I+"
^XMB(3.9,22,2,8407,0)="""DATA"",396.18,215,3,2654,0)"
^XMB(3.9,22,2,8408,0)="M?.V@9@Y&;=Z>Q:K/G_*J@`@?12^CRPMTX4+J%PV6VAFRA<:MVLKOW\&'4;&1"
^XMB(3.9,22,2,8409,0)="""DATA"",396.18,215,3,2655,0)"
^XMB(3.9,22,2,8410,0)="M,U8Q?DEV:JU2B),X@0!EO2?YJS*,;1X4EM(3'O0),!9PP\EL-@Y#:!H5[^[."
^XMB(3.9,22,2,8411,0)="""DATA"",396.18,215,3,2656,0)"
^XMB(3.9,22,2,8412,0)="M^W,/UC>YBXT`N[G@9?]Y_D9LO!,N?1M#D8,'2*WPQXCPMJ?5U,:1;WJ.HXGG"
^XMB(3.9,22,2,8413,0)="""DATA"",396.18,215,3,2657,0)"
^XMB(3.9,22,2,8414,0)="MYD64(T[W'4V.\BL^3&.WE;>[3))O0VI+WU0\[=+8<>7Y0VJ+!)%7%[U>.4]S"
^XMB(3.9,22,2,8415,0)="""DATA"",396.18,215,3,2658,0)"
^XMB(3.9,22,2,8416,0)="MN;]KD`KN[S1.P?Z\B^05XJ""!`]5)L^4,]5CBC3NQO(V@7NYPGDRFXX6XI0GL"
^XMB(3.9,22,2,8417,0)="""DATA"",396.18,215,3,2659,0)"
^XMB(3.9,22,2,8418,0)="M-<3%:#:53+F#6`NJ`J?'2AP,)V;3)PAXL1MBM3<@$6VV95\<Z0I-/DO?"""">;"
^XMB(3.9,22,2,8419,0)="""DATA"",396.18,215,3,2660,0)"
^XMB(3.9,22,2,8420,0)="M=A=.H3C?`Q*)S<X]0D6G%=G/O91*-B/E>/H,1G)A.40(2%8PMM!@Z1*AMTR&"
^XMB(3.9,22,2,8421,0)="""DATA"",396.18,215,3,2661,0)"
^XMB(3.9,22,2,8422,0)="M?2XX9PASIUTR6$0)*+%V;>U8IQ@-NF0=HBVL=C(H/T#W30%AUWE%4C@CYA8S"
^XMB(3.9,22,2,8423,0)="""DATA"",396.18,215,3,2662,0)"
^XMB(3.9,22,2,8424,0)="M#>M*\KM4_N<T5$(FQF8XES$E^BU#P8^><<""(N,)(O+86(KU*V?Q\AIBNCCH:"
^XMB(3.9,22,2,8425,0)="""DATA"",396.18,215,3,2663,0)"
^XMB(3.9,22,2,8426,0)="MC""@\3'R&6(97DS-G7$ECM\W7E9=QW=Y2GJG7-4\X'JHK((PLZ9H5,^\LO/SI"
^XMB(3.9,22,2,8427,0)="""DATA"",396.18,215,3,2664,0)"
^XMB(3.9,22,2,8428,0)="M;1/S[LYC[.""5#%$E32V:%D7B1N2JT.TUJQ^[3];+<SB150Y>C4GY-1,433F<"
^XMB(3.9,22,2,8429,0)="""DATA"",396.18,215,3,2665,0)"
^XMB(3.9,22,2,8430,0)="MP""IG<"":.2A""5),$X!PX&H<.Y&E*2)-GF+V]9E8.[4!('J%A9DA/@6#'IWCWD"
^XMB(3.9,22,2,8431,0)="""DATA"",396.18,215,3,2666,0)"
^XMB(3.9,22,2,8432,0)="M_:&*$3Y\C[/H>.SZ8PM1GY*I'GM2W^8$-3@H;]90++WJVPGI#J6W54+)M(XR"
^XMB(3.9,22,2,8433,0)="""DATA"",396.18,215,3,2667,0)"
^XMB(3.9,22,2,8434,0)="M!=SG;)$*JFN[OCD"":KA5;^(B(`1""ZG+;(9T.)QC""'H*$SCU-9S:#B:-QO$X@"
^XMB(3.9,22,2,8435,0)="""DATA"",396.18,215,3,2668,0)"
^XMB(3.9,22,2,8436,0)="MOVO3=>D<.!MS-W92J^UN&1M<?^FKD1O*=]689@NYN\L&N)[U[=@(*0#Q=*O`"
^XMB(3.9,22,2,8437,0)="""DATA"",396.18,215,3,2669,0)"
^XMB(3.9,22,2,8438,0)="MG)TO2\QZJERF@CMG[KLB_F#`83@3[L\OA1.N._<""K9F%IX;=:P^\/!&)H9G1"
^XMB(3.9,22,2,8439,0)="""DATA"",396.18,215,3,2670,0)"
^XMB(3.9,22,2,8440,0)="M/7#\B&KQ4?(%$5CR?WE9M7<IN$B*HKHT2;%1&]DSKEP:[""9-5XYT8Y8X\,WI"
^XMB(3.9,22,2,8441,0)="""DATA"",396.18,215,3,2671,0)"
^XMB(3.9,22,2,8442,0)="M4M4UD1!$NJ[US]-&'F\;AI2&G(K:MC\O@RVYA)3]P(RZ+#VDOM@JK:T:9Y1)"
^XMB(3.9,22,2,8443,0)="""DATA"",396.18,215,3,2672,0)"
^XMB(3.9,22,2,8444,0)="MDU[EEB^;$\`D;B)I6KI`-PR#,ZJ3VFH+53QN.A7&]>K-LI?E90BEVZGT""H\7"
^XMB(3.9,22,2,8445,0)="""DATA"",396.18,215,3,2673,0)"
^XMB(3.9,22,2,8446,0)="M4C11B9Z')Z-.=NI!=@3B5""WR-[C#Z>C_B)/)@<:+M^2""P2PF*0LA:_3P,>N-"
^XMB(3.9,22,2,8447,0)="""DATA"",396.18,215,3,2674,0)"
^XMB(3.9,22,2,8448,0)="M-)&0(98AAS&-P?$8BB%6PAR#EN2%>JS>A<DI]*+-^O.V.B55#5'<NF.""=1`-"
^XMB(3.9,22,2,8449,0)="""DATA"",396.18,215,3,2675,0)"
^XMB(3.9,22,2,8450,0)="MSHFC!AH.+:1[?5'ZPMM4[%4OR\]/R6UC2%<SI,ZIHE[>&G*^L>YS>MI(:E(("
^XMB(3.9,22,2,8451,0)="""DATA"",396.18,215,3,2676,0)"
^XMB(3.9,22,2,8452,0)="M%2<RT-8VM[[,/_2'D+NTPC0?$UB<W)8P&,8?]],01K#3!G)8IK<70DKS%6FG"
^XMB(3.9,22,2,8453,0)="""DATA"",396.18,215,3,2677,0)"
^XMB(3.9,22,2,8454,0)="M]0_[E@]C)4&>!FWG9!UODBM+K:%-JYI@GF1X)/+!-7#`J-4Y@P,WG+VL?*OR"
^XMB(3.9,22,2,8455,0)="""DATA"",396.18,215,3,2678,0)"
^XMB(3.9,22,2,8456,0)="M-X&>K_9:O9?@#C*:QTZ]VPX?#EMY!QO9T.0WK!LC((UH6U*8SPONVU57SC&M"
^XMB(3.9,22,2,8457,0)="""DATA"",396.18,215,3,2679,0)"
^XMB(3.9,22,2,8458,0)="M*S<5@_2]E>KKK;UW&YMU5M+`T,MH@;NO@85+=+!P_(G&@%PM7CQ9O#.-],(G"
^XMB(3.9,22,2,8459,0)="""DATA"",396.18,215,3,2680,0)"
^XMB(3.9,22,2,8460,0)="MJBS0=)=CHKU%O`#CSQ\LP4:+)ZHQPQLR-Z@:8=;N8B$,^I@@6DBY#W+_%A?2"
^XMB(3.9,22,2,8461,0)="""DATA"",396.18,215,3,2681,0)"
^XMB(3.9,22,2,8462,0)="MIN""'2U3W>;N\RX+-;U5J1%MG$C@PMD8%S$^'B;<485SML>]'4M?R^DQ4W#A5"
^XMB(3.9,22,2,8463,0)="""DATA"",396.18,215,3,2682,0)"
^XMB(3.9,22,2,8464,0)="M+(_72P=6^UA;/]B+!CIP1E]FS^PMS)%H8#QG,9ZC&6^SLPV2)8SG+L;S-.-M"
^XMB(3.9,22,2,8465,0)="""DATA"",396.18,215,3,2683,0)"
^XMB(3.9,22,2,8466,0)="M[HRC,D$@:&4QX&0IYX?*VQHY0&>C;F""85%WUY<E8JL""3I`:SI,Q:DC)K;,RG"
^XMB(3.9,22,2,8467,0)="""DATA"",396.18,215,3,2684,0)"
^XMB(3.9,22,2,8468,0)="M[Y5#'W-=6O'O[\@O_P$X*_C\3E976<>D%7E6BNV`DZ?I7^;BZ_T=X_%-#,OJ"
^XMB(3.9,22,2,8469,0)="""DATA"",396.18,215,3,2685,0)"
^XMB(3.9,22,2,8470,0)="M^D&165ZJ<LE.E$V676;65O9>*8=*""""@WZ'""R67Y(=^7&E-+/M=H*120KY<ZV"
^XMB(3.9,22,2,8471,0)="""DATA"",396.18,215,3,2686,0)"
^XMB(3.9,22,2,8472,0)="MY2G`>OYL4.*3K%-,UFCIG[Z%+]'MN&[2V6/0<6Q7OS9W21L`;^4+V,8)'D\K"
^XMB(3.9,22,2,8473,0)="""DATA"",396.18,215,3,2687,0)"
^XMB(3.9,22,2,8474,0)="M!);P%..8%B!T:)G:<=S=)4#""/;4J76^CA^4T'N=>&&[9X6J0`K#8I!)U>%?Q"
^XMB(3.9,22,2,8475,0)="""DATA"",396.18,215,3,2688,0)"
^XMB(3.9,22,2,8476,0)="M8Y""GR!P<[5&?@.PB9E2;#R?^#+^$>,.16K*%.^G^&8<J;6=Z8F>C4[1H\Y)7"
^XMB(3.9,22,2,8477,0)="""DATA"",396.18,215,3,2689,0)"
^XMB(3.9,22,2,8478,0)="MU/8\8A2R8LBPQ/BZH0C.2U'AHU,O@'M""Y4H(HGOA+*YI\)'[@883-K]33FC_"
^XMB(3.9,22,2,8479,0)="""DATA"",396.18,215,3,2690,0)"
^XMB(3.9,22,2,8480,0)="M,A,\[4.L(U@WTC[5$K<;:)_ZVJ>>]JFK?>IHG]K:IP?=4T>+FQ,MY6_;T0[@"
^XMB(3.9,22,2,8481,0)="""DATA"",396.18,215,3,2691,0)"
^XMB(3.9,22,2,8482,0)="M:2?F:2?F:5'SM,O@:9?,TRZOI]T*3XN:IUT<3XN;&]][(4WY#\W@_M/2R]B?"
^XMB(3.9,22,2,8483,0)="""DATA"",396.18,215,3,2692,0)"
^XMB(3.9,22,2,8484,0)="MR9KVBF(Q[<F0C4C2D??(XYKE+;"";'*4[3*%*I1!7G5:#E!U62K4J)::Y^L=I"
^XMB(3.9,22,2,8485,0)="""DATA"",396.18,215,3,2693,0)"
^XMB(3.9,22,2,8486,0)="MO,S@D6SW<.#&<>/:OF48>IVD_4K$M!/S<'+T.,WAT+BPR^DB]0PPSIG(3]I+"
^XMB(3.9,22,2,8487,0)="""DATA"",396.18,215,3,2694,0)"
^XMB(3.9,22,2,8488,0)="MT.5=@@>;Q.4.A\;%9N-BHP=%0BU6*<VU>9BL"")E3*#0>+AL/1\4/:%P1]S=X"
^XMB(3.9,22,2,8489,0)="""DATA"",396.18,215,3,2695,0)"
^XMB(3.9,22,2,8490,0)="M6$S2IYY'IF?NL6?N*M/I3QCA\);H)^_R)K\2>C<#0V/BLS'!VK1?NR;YL5+E"
^XMB(3.9,22,2,8491,0)="""DATA"",396.18,215,3,2696,0)"
^XMB(3.9,22,2,8492,0)="MPU0VG?YX>#R,5K2Z%7`T9NPL%+R=SGUYZO6X^#Q<5O+'[@#HV8?LV6.*.*1F"
^XMB(3.9,22,2,8493,0)="""DATA"",396.18,215,3,2697,0)"
^XMB(3.9,22,2,8494,0)="MP+TB[[!C4[WK$0EXB$QZP`U(5`W"">GF""0^,3L?'!\BM-""DV,1)GEF1X7HR0>"
^XMB(3.9,22,2,8495,0)="""DATA"",396.18,215,3,2698,0)"
^XMB(3.9,22,2,8496,0)="M52THZ9)&7H/:83:3>)1,-!XP$XNY_&*[/?1_5HGTWF=Q1=+BB5I#-9V/B5HN"
^XMB(3.9,22,2,8497,0)="""DATA"",396.18,215,3,2699,0)"
^XMB(3.9,22,2,8498,0)="M3RQ9L[+L$K5L]E7H'4Q$+5YE$-O^'J*6S1:U/-M$U/)X`HK]/40MFRUJX0G9"
^XMB(3.9,22,2,8499,0)="""DATA"",396.18,215,3,2700,0)"
^XMB(3.9,22,2,8500,0)="M$+4\)J7%'Q:U&#W*GL\_*6IY/-7$CG:)6C;[XO!""`U&+EZIDV^''12V;?:4C"
^XMB(3.9,22,2,8501,0)="""DATA"",396.18,215,3,2701,0)"
^XMB(3.9,22,2,8502,0)="MOS85M3S>K6Y_1U'+9HM:'BUJ>3Q1R_8_(FK9;!$8[UPC48L7.*8*OG]4U++9"
^XMB(3.9,22,2,8503,0)="""DATA"",396.18,215,3,2702,0)"
^XMB(3.9,22,2,8504,0)="MRHDJH;<E:GE&QF2472A1:SN$64E%+%'+N&MYN+_)F>OPN_\&$UOLW=6EE:UL"
^XMB(3.9,22,2,8505,0)="""DATA"",396.18,215,3,2703,0)"
^XMB(3.9,22,2,8506,0)="MK71F:^4[6RL+VEKIS-;*=[960K0?/8@-[87?&:?1!""<G\""08[K3`X8AU5I8J"
^XMB(3.9,22,2,8507,0)="""DATA"",396.18,215,3,2704,0)"
^XMB(3.9,22,2,8508,0)="MWQ*R[!N,>$G*61[(_0-6ZENL/ZT$1#(1CGU'XSIVMT*E(Q2B.#9)J;WN;!8?"
^XMB(3.9,22,2,8509,0)="""DATA"",396.18,215,3,2705,0)"
^XMB(3.9,22,2,8510,0)="MBE:LB#I0%$81VX""HNL/(W9_'R]U_9^&Q(@(^`)""S9\M^]J;,9+-DIFA%'#<5"
^XMB(3.9,22,2,8511,0)="""DATA"",396.18,215,3,2706,0)"
^XMB(3.9,22,2,8512,0)="MGB(CCOW=N,:]M;?^Z#+/KLL]NRSC6>1^U[,;L?4W7$FSL\L2AB+O.YU=MA2A"
^XMB(3.9,22,2,8513,0)="""DATA"",396.18,215,3,2707,0)"
^XMB(3.9,22,2,8514,0)="M>BT19Y<E<D?!A\XN6R*UX\VSR]+:(O^#9]<T_RKX@$03[&A,[U*]$4</SX&("
^XMB(3.9,22,2,8515,0)="""DATA"",396.18,215,3,2708,0)"
^XMB(3.9,22,2,8516,0)="M=)P6NIO_:!,_ZCE5K&(>L;W]GB`+'9`R@<CM-R@""?NQSLOL2BRK<%3UR""8^,"
^XMB(3.9,22,2,8517,0)="""DATA"",396.18,215,3,2709,0)"
^XMB(3.9,22,2,8518,0)="M7V)KDKA&D'4)"">TK';%9IJ(H6F$SSS!(^MY9[EM12%WEMYK*&>%5T8LFDMQ]"
^XMB(3.9,22,2,8519,0)="""DATA"",396.18,215,3,2710,0)"
^XMB(3.9,22,2,8520,0)="M<'+^\=[Y`_E71\BHV&I?PJNLAGO\#]@B\3$Z!,>+)+U:;7;:(JN8[^_%V@.B"
^XMB(3.9,22,2,8521,0)="""DATA"",396.18,215,3,2711,0)"
^XMB(3.9,22,2,8522,0)="M7NNDQ2*IV-9?R??QR;G;IL$X^YO;N:'UK<W*GE?=*2`Z'S_:10\-CF'T.1/["
^XMB(3.9,22,2,8523,0)="""DATA"",396.18,215,3,2712,0)"
^XMB(3.9,22,2,8524,0)="M<5I5""WY]E*782@7E""0^QNV84TL/4[`-+""HNG`NY02-+""9=CD(+%IO8E@?P-A"
^XMB(3.9,22,2,8525,0)="""DATA"",396.18,215,3,2713,0)"
^XMB(3.9,22,2,8526,0)="M-_I0J_L@,K@KM8*VHU6<':WX[6B-`8ZJ$(:S?U%SM\[0VJ*\K/4]X9U]3%O#"
^XMB(3.9,22,2,8527,0)="""DATA"",396.18,215,3,2714,0)"
^XMB(3.9,22,2,8528,0)="MM0%Q6:[>2@=>'BN.UZK""*CP0RAV/+0IAR[""XE)<&BDC`.^@GN(-:8L;CSRL2"
^XMB(3.9,22,2,8529,0)="""DATA"",396.18,215,3,2715,0)"
^XMB(3.9,22,2,8530,0)="MX1HX$C.VS1))Y](7>D1X7&)%-)>C&\^?+9_C@>C?^EQI9W62S[)""'B^R<%D1"
^XMB(3.9,22,2,8531,0)="""DATA"",396.18,215,3,2716,0)"
^XMB(3.9,22,2,8532,0)="MR!#2BX)BC!1;+,.S+VFZ545=E[BP5*9X329#`,98F""9Z!?M+M[LQ%-5+7WEQ"
^XMB(3.9,22,2,8533,0)="""DATA"",396.18,215,3,2717,0)"
^XMB(3.9,22,2,8534,0)="MK8=Y7&M,)53-^.KLQX#ZT:=^](9Z?>GK-(A9QU-WR8<87U/FH"".>(/&QK$[H"
^XMB(3.9,22,2,8535,0)="""DATA"",396.18,215,3,2718,0)"
^XMB(3.9,22,2,8536,0)="MC.FNMZ;*3I2\R.D$BUBFHGG#1+SDA`FK$@8U/B<5%I<X39JJRT[6L>FSCAJ9"
^XMB(3.9,22,2,8537,0)="""DATA"",396.18,215,3,2719,0)"
^XMB(3.9,22,2,8538,0)="MTQ;7488&.=OJI_Z"":].(<]Y_I0""$6UZ'^!'?L1Z<OO`\:/.'M(Z'P_X@<-_Z"
^XMB(3.9,22,2,8539,0)="""DATA"",396.18,215,3,2720,0)"
^XMB(3.9,22,2,8540,0)="MAHVKFZQDAH)'.O>#KY4B?(^@^@-U)`[DEX-'89S_0KK=67=%#8S'$,H'O.`I"
^XMB(3.9,22,2,8541,0)="""DATA"",396.18,215,3,2721,0)"
^XMB(3.9,22,2,8542,0)="MH11U,MHP6/B@PHD<,@5!NM_(*GV.-O\""3_P0HJVK.'=_CX?!BKP!D`SO`COT"
^XMB(3.9,22,2,8543,0)="""DATA"",396.18,215,3,2722,0)"
^XMB(3.9,22,2,8544,0)="MV<A@S\@D:U3'E5=]`AM9[$*#RIHQ4,)1*1O&""`7[ZF(K(E=0C]4)*M2VG<!&"
^XMB(3.9,22,2,8545,0)="""DATA"",396.18,215,3,2723,0)"
^XMB(3.9,22,2,8546,0)="M/??J]ZN4Q]RW%9%D#2R-;[@77]C'K!W+5EL)-/`[BBY+*4Q]=G$CC`2`1,8\"
^XMB(3.9,22,2,8547,0)="""DATA"",396.18,215,3,2724,0)"
^XMB(3.9,22,2,8548,0)="M4[5$L1Z0@B5:`PV7&2LP==I-`0/%`AVE(/09-@NRP[V&(`P0E2L\E*JS+E5%"
^XMB(3.9,22,2,8549,0)="""DATA"",396.18,215,3,2725,0)"
^XMB(3.9,22,2,8550,0)="M4E'(HZ)HVHI,\DE(RY,P1H`;+O60WX4&XR(ZZ#V&U1G`>,/92-..X.%NP3.0"
^XMB(3.9,22,2,8551,0)="""DATA"",396.18,215,3,2726,0)"
^XMB(3.9,22,2,8552,0)="M-^F]:SGO)G6?;]*'>47?RV4:)OEXK&_QXNE;O$SC)^^/AP#*1_/U32ET1PL8"
^XMB(3.9,22,2,8553,0)="""DATA"",396.18,215,3,2727,0)"
^XMB(3.9,22,2,8554,0)="M!)*5;2W2A=%'7]J=C)Y<DJ>[XII=@;DD3_-RX],%E2I=G1CB1$9/:G!:<=?J"
^XMB(3.9,22,2,8555,0)="""DATA"",396.18,215,3,2728,0)"
^XMB(3.9,22,2,8556,0)="M06I0<O@H$10UA%*D5]%V)D7N5LXTMI#'/D.=J=&1&:GIKN4KKT'5<&'7Y7,K"
^XMB(3.9,22,2,8557,0)="""DATA"",396.18,215,3,2729,0)"
^XMB(3.9,22,2,8558,0)="MC`X1$/;4&N+%2R[!3(GG$ME2?,P-2F3;S*P)S%MXAG.]2;0:`25BRVX3&._^"
^XMB(3.9,22,2,8559,0)="""DATA"",396.18,215,3,2730,0)"
^XMB(3.9,22,2,8560,0)="M7$N\7UE('4!^=Q:*S8YQ!PLZ9Q(ZPF`2.B_FP(D_3.=.S""?SF$WFO/!D+$""]"
^XMB(3.9,22,2,8561,0)="""DATA"",396.18,215,3,2731,0)"
^XMB(3.9,22,2,8562,0)="MA\P#9G#ZX2-D;K.`.<Y'R5S?!4<KSNSV2`61]2U-FE-6O24M1NSR9!I'9QV("
^XMB(3.9,22,2,8563,0)="""DATA"",396.18,215,3,2732,0)"
^XMB(3.9,22,2,8564,0)="M*0^\0UK<HF4!A,G!?:J*IW^\\K:C?SR=Z/_ZZ__\WT-AC<7#0/?0TSU4?KCI"
^XMB(3.9,22,2,8565,0)="""DATA"",396.18,215,3,2733,0)"
^XMB(3.9,22,2,8566,0)="MHFI-%N8<9HKU3V\3(?_I1\I`-46Z+C+]&'0!QN^Y0MC-W&J'PCPF:Q+IYA)@"
^XMB(3.9,22,2,8567,0)="""DATA"",396.18,215,3,2734,0)"
^XMB(3.9,22,2,8568,0)="MY8GY0U,L%E^&)E]ZNB\]DR]]W9?&*N^4GIOKK;L6^FUTS$A!=3)LY+_Z87C9"
^XMB(3.9,22,2,8569,0)="""DATA"",396.18,215,3,2735,0)"
^XMB(3.9,22,2,8570,0)="MI,Y$(H>N5&ILI15W+983R\Y2.9Y7T=)5[&#'3B+;*6_7Q$IS:.YTSIX8/1*;"
^XMB(3.9,22,2,8571,0)="""DATA"",396.18,215,3,2736,0)"
^XMB(3.9,22,2,8572,0)="MKO'8_6..^1B3`:76_TK9BR/.B,,5FR'?@++\_9$:VR`O\-'Y<,:+M(8N34""\"
^XMB(3.9,22,2,8573,0)="""DATA"",396.18,215,3,2737,0)"
^XMB(3.9,22,2,8574,0)="M::?5<']M'<?ZAI561?ERR7@Q9,&B1$G@+RZ/@+`KQT00643<8+$[K0LR^W)9"
^XMB(3.9,22,2,8575,0)="""DATA"",396.18,215,3,2738,0)"
^XMB(3.9,22,2,8576,0)="MPB?0QISYVFAWGW`Y14I6O2]8`FTUH#AKVV'54S,M_B,.>S^<Z_1+LRS+W^@="
^XMB(3.9,22,2,8577,0)="""DATA"",396.18,215,3,2739,0)"
^XMB(3.9,22,2,8578,0)="M6#K\DDUX[(`C7/>A]""[>/5HL>(EI@;UF;YV`H459FU6A*)AK;`""UDV=3-`O!"
^XMB(3.9,22,2,8579,0)="""DATA"",396.18,215,3,2740,0)"
^XMB(3.9,22,2,8580,0)="M>7FV`Y\'S-,XMK""2U*KBH8&YLWAJ=+>Y''.Q4>@YVEF6%DVZ68NC8]%)B1#E"
^XMB(3.9,22,2,8581,0)="""DATA"",396.18,215,3,2741,0)"
^XMB(3.9,22,2,8582,0)="M""@JW^:]J?)/]+"":-NF#-!A1H:MC9XPH9UYM\!TI6ROTJLX18+7O?:F%2P10("
^XMB(3.9,22,2,8583,0)="""DATA"",396.18,215,3,2742,0)"
^XMB(3.9,22,2,8584,0)="M+%XC3GV:':EUBQA]1C!\N^WKNFHZ52JX:Z3>]'(4.>$'CAAN8.SR64&%4J`L"
^XMB(3.9,22,2,8585,0)="""DATA"",396.18,215,3,2743,0)"
^XMB(3.9,22,2,8586,0)="MXU4+M_=^[`;V!2G@RX($%K!H8G#W$0/></+6SSJJFT_,V9-X4AO]TH-D0=6E"
^XMB(3.9,22,2,8587,0)="""DATA"",396.18,215,3,2744,0)"
^XMB(3.9,22,2,8588,0)="MCAB]5I3\INH+YMF;&/Q_=2X$$>(:\RR%03""M["";!O""@0SZQM<T=V5MM&V4&U"
^XMB(3.9,22,2,8589,0)="""DATA"",396.18,215,3,2745,0)"
^XMB(3.9,22,2,8590,0)="M0H""^UY(2LC)-ZB3-NHTN.;RH2%NUGDYN[1*&_*MDIVUGV<Z/155VUT=O!AIG"
^XMB(3.9,22,2,8591,0)="""DATA"",396.18,215,3,2746,0)"
^XMB(3.9,22,2,8592,0)="M7KYS,'3.446BL1HO!!'!20.OSO.<RHLEZJRM3MMYPD'$N[C8%3<""TV@,=W=G"
^XMB(3.9,22,2,8593,0)="""DATA"",396.18,215,3,2747,0)"
^XMB(3.9,22,2,8594,0)="MD-""3(_6\_JZ+P*59@8]IIZB`$&T=-Z""^U-8-B;7A'K$V!S/6CZ`R,^73K*N@"
^XMB(3.9,22,2,8595,0)="""DATA"",396.18,215,3,2748,0)"
^XMB(3.9,22,2,8596,0)="MV3""XG=:,(JQH`1P99>#V""Y#1*3O=""OAS*Q23>A-M!BGH7P9V(AHH>)!*@FA."
^XMB(3.9,22,2,8597,0)="""DATA"",396.18,215,3,2749,0)"
^XMB(3.9,22,2,8598,0)="M6DW0X;ALG$.L+TJI>C1>H"">589=.YQ!S0R4&?E+JTZUCEX=)]/TPB=B8>-@E"
^XMB(3.9,22,2,8599,0)="""DATA"",396.18,215,3,2750,0)"
^XMB(3.9,22,2,8600,0)="MKF^'OCXIA+*^)[DV42_V>(B%*XAMHA&RT5""]T:JV6XDMC5EA*VZ\;^;NWM[M"
^XMB(3.9,22,2,8601,0)="""DATA"",396.18,215,3,2751,0)"
^XMB(3.9,22,2,8602,0)="MR!RD+)>,<AVTV""/;TCGNBI5ZC9?%ZV%L*^Z'Z$G566??3^^SJ&/J4Y'W$K;7"
^XMB(3.9,22,2,8603,0)="""DATA"",396.18,215,3,2752,0)"
^XMB(3.9,22,2,8604,0)="M-!7.'(?EM7;<PUI2H@DPE^5.=FS""C.%XU(^S0IVS'SWJQZ<<?,@8,LBEBRB"""
^XMB(3.9,22,2,8605,0)="""DATA"",396.18,215,3,2753,0)"
^XMB(3.9,22,2,8606,0)="M1$OGMF;AN)P6AHA!(^0O&^T<.3T7<<U&=8(:E-,K$'?I7>0Y7Q5R/'M+4U$4"
^XMB(3.9,22,2,8607,0)="""DATA"",396.18,215,3,2754,0)"
^XMB(3.9,22,2,8608,0)="M(A>A@!@M92A5ZEQII<5F@6^;1XT'BAHIFO*H+UV?^O$YKWQ&COOHT36E1Y=#"
^XMB(3.9,22,2,8609,0)="""DATA"",396.18,215,3,2755,0)"
^XMB(3.9,22,2,8610,0)="M.KXA/7):9>*J&=""CQ^HQZ7V`'KUM>CQ\A!Y-2[@05Q!Q.2JQ^@R]1W/""/N""N"
^XMB(3.9,22,2,8611,0)="""DATA"",396.18,215,3,2756,0)"
^XMB(3.9,22,2,8612,0)="M=3%>%>[7-0G-(9KHKU!AH,1J^;E(7I.+,C:50FX**%GRRKSB0G[^!%D`?7%4"
^XMB(3.9,22,2,8613,0)="""DATA"",396.18,215,3,2757,0)"
^XMB(3.9,22,2,8614,0)="MBYH<VZHYPI=U<FI!_P-=T8+NXEFS&1'JV*9^:0(S<IU=C,XOJJ:Y5MFII=;:"
^XMB(3.9,22,2,8615,0)="""DATA"",396.18,215,3,2758,0)"
^XMB(3.9,22,2,8616,0)="M6,2=T2)F`&SWU7(<3JMC]`M!HEQQI-MG.1SGD))0I%""9)S79Q=?AM%!&0<2("
^XMB(3.9,22,2,8617,0)="""DATA"",396.18,215,3,2759,0)"
^XMB(3.9,22,2,8618,0)="MD7'8`P;ER2/2]HT`""X>!^&@<A7=7>X?.5G=G8J=W:04+9X&I1\O[0*:%8WV3"
^XMB(3.9,22,2,8619,0)="""DATA"",396.18,215,3,2760,0)"
^XMB(3.9,22,2,8620,0)="MI""OURQ<KOQ4UL\^X;Y#IZT:#_UQ"">4$8J,]RW#_3L,4UO4(?V^/R?""-.-'-4"
^XMB(3.9,22,2,8621,0)="""DATA"",396.18,215,3,2761,0)"
^XMB(3.9,22,2,8622,0)="MW!.3<.J0FV30OH$'TYW'^2C'""`<BLRKW:F""6N4W1,;8\^;NC?6+K6X$>FZI]"
^XMB(3.9,22,2,8623,0)="""DATA"",396.18,215,3,2762,0)"
^XMB(3.9,22,2,8624,0)="M%;GHN'W/0J+OF4U8I!R;LDB1@N$AIGZ,J&""B`^6H=1Q*XK0#ZD=*XIQ6)E-F"
^XMB(3.9,22,2,8625,0)="""DATA"",396.18,215,3,2763,0)"
^XMB(3.9,22,2,8626,0)="M!,TCK94L4KJ3JIGX\A,X=]L/6LDTZZ6&ET)<\CJX""E>;C[.LK=[$""[J$0G%F"
^XMB(3.9,22,2,8627,0)="""DATA"",396.18,215,3,2764,0)"
^XMB(3.9,22,2,8628,0)="M>Z>]`JEC`)5T3553V8>T@6UI/9[6]%A`(?""QH[T&&#P+`ZBV3MJ""0,?FM<Z."
^XMB(3.9,22,2,8629,0)="""DATA"",396.18,215,3,2765,0)"
^XMB(3.9,22,2,8630,0)="M#QIT1A@4,HRJ'K,)HC0`!3AJ-,4.Q4""_@(4)`4-RZNA$4NDR4J8MJ_YRA<++"
^XMB(3.9,22,2,8631,0)="""DATA"",396.18,215,3,2766,0)"
^XMB(3.9,22,2,8632,0)="MGS_)><X=!Y,65-;S@P$(Y*94TX""FQ;3V;@Z<3SR65@LZD)SU%TN<SWV+]TPS"
^XMB(3.9,22,2,8633,0)="""DATA"",396.18,215,3,2767,0)"
^XMB(3.9,22,2,8634,0)="M=<""O@G=XVS8Y5@9PR:W<C;I[1SU/OLYK1<_?Y2$X27J8P2""1<;CF662P9Z@K"
^XMB(3.9,22,2,8635,0)="""DATA"",396.18,215,3,2768,0)"
^XMB(3.9,22,2,8636,0)="M*N53(*WLU""?ZQ/F(N4N3#(23@,L3FD0E):07T\'@PP![=\9_N$W/0E""RMNWS"
^XMB(3.9,22,2,8637,0)="""DATA"",396.18,215,3,2769,0)"
^XMB(3.9,22,2,8638,0)="M--,PX)IJ73SP53=+@-Z,%^=Y-[WPP](6LWKSQ`:-2O9)2D]0(!Y*Q4MEKP/W"
^XMB(3.9,22,2,8639,0)="""DATA"",396.18,215,3,2770,0)"
^XMB(3.9,22,2,8640,0)="MB&D*J7G=ZWM`DJWL\A!4B>O[\*PFJ=+:@0_(I^ABT]<W]$TK'(6[]'8E-""6%"
^XMB(3.9,22,2,8641,0)="""DATA"",396.18,215,3,2771,0)"
^XMB(3.9,22,2,8642,0)="M_&;#F;UJ05@UD=B_F#<G1BX][M7@9I_,BCB&>N:LU1'M76N$4N?3A47J\QYO"
^XMB(3.9,22,2,8643,0)="""DATA"",396.18,215,3,2772,0)"
^XMB(3.9,22,2,8644,0)="ME=SXEQVWM.L1LKD[Y($-?4*M0B2@VJ,GW4(;_UO[7RQE7DVZCP8=!M0LL5A0"
^XMB(3.9,22,2,8645,0)="""DATA"",396.18,215,3,2773,0)"
^XMB(3.9,22,2,8646,0)="M=OJQNTIHA$G(8T3R*MQAU#3)S]2@.^.Q;)=<W(CZ,:1^I)SXGD_]Z%$_ND.("
^XMB(3.9,22,2,8647,0)="""DATA"",396.18,215,3,2774,0)"
^XMB(3.9,22,2,8648,0)="MZ4RDZILW[.),VA5V[2H`O&3'8T]9^3R7LZ6`X.NMOM(F.-?S.(-BN&76=M2`"
^XMB(3.9,22,2,8649,0)="""DATA"",396.18,215,3,2775,0)"
^XMB(3.9,22,2,8650,0)="M/F=`[+73%T<(R)8""@I3@2$.DZP6<T</'Z'G5G+:6(N2,#43;IE6>;8W*""8`?"
^XMB(3.9,22,2,8651,0)="""DATA"",396.18,215,3,2776,0)"
^XMB(3.9,22,2,8652,0)="M_'Q2`VB%P93I3%=2)PD?#%A>W//>Y(NW6?F[Z/X7\IK)J\MM$`TDA""1_06UE"
^XMB(3.9,22,2,8653,0)="""DATA"",396.18,215,3,2777,0)"
^XMB(3.9,22,2,8654,0)="M33Y9AB$QJG/-)AQA',7K+8<%Q&:O&[>,'?%0G`;0#=?LBY*!-H.`X\""DGG1$"
^XMB(3.9,22,2,8655,0)="""DATA"",396.18,215,3,2778,0)"
^XMB(3.9,22,2,8656,0)="MF6:HXJ\.53;6T5>YBRB[%55,UK'CH9!3WU0@=LULL%;2ME6:)>`B>\^Z*Q;N"
^XMB(3.9,22,2,8657,0)="""DATA"",396.18,215,3,2779,0)"
^XMB(3.9,22,2,8658,0)="MM=I;>6JJ0CSOINF]N<5QOS]NUMV//YVO]1&NKP8OJJZ:B^RK-,K+)YV69-,!"
^XMB(3.9,22,2,8659,0)="""DATA"",396.18,215,3,2780,0)"
^XMB(3.9,22,2,8660,0)="M(L7S.-SK5+*QF&G95I.B""A1FO-*&JC/]PQB@!47C%G-[KR,-M5V3J'[UXF+)"
^XMB(3.9,22,2,8661,0)="""DATA"",396.18,215,3,2781,0)"
^XMB(3.9,22,2,8662,0)="M/[9@L(&H.ZWJ[/X'''))@P^O_AIQ[J).')Y#G;PBM?:TR!Z?.J.]U.GPJ9-5"
^XMB(3.9,22,2,8663,0)="""DATA"",396.18,215,3,2782,0)"
^XMB(3.9,22,2,8664,0)="MKL""9]H[E4Z=S.+""ITV-3Y\X\%,=QY^Q>Y??([3OFR>DD*)NCPXS%G-C$YB!?"
^XMB(3.9,22,2,8665,0)="""DATA"",396.18,215,3,2783,0)"
^XMB(3.9,22,2,8666,0)="M'O""(R]8YL$Q8#G:6'8J)`T`IP\ROM`WE^6!<0CG>9V#PGH4;ZK[P>,8[#PN"""
^XMB(3.9,22,2,8667,0)="""DATA"",396.18,215,3,2784,0)"
^XMB(3.9,22,2,8668,0)="MM]G=NI.4EUR`]'3.OAI9[YBJ>NCO68!9LT?2N?3YT[1MO>I6KY<T&#2"")2Y2"
^XMB(3.9,22,2,8669,0)="""DATA"",396.18,215,3,2785,0)"
^XMB(3.9,22,2,8670,0)="MM':I(JIM""W]NY(*)!QCT\T+-<*E+CB69T;#[10I%HQ$!`X<2ZU*5687Q/EO4"
^XMB(3.9,22,2,8671,0)="""DATA"",396.18,215,3,2786,0)"
^XMB(3.9,22,2,8672,0)="MY?+(&18F.RNXOVOE5+/RW.=0SEQ-\HOU?@6'0U:B64T*9=:I$NI%ZR@N6?DB"
^XMB(3.9,22,2,8673,0)="""DATA"",396.18,215,3,2787,0)"
^XMB(3.9,22,2,8674,0)="M""7=K4M[>(NZ'NT5/SD$>9R0^2'V1\\""$B5HJ$KC0?8M+""Y/\_$G9QT^]``\)"
^XMB(3.9,22,2,8675,0)="""DATA"",396.18,215,3,2788,0)"
^XMB(3.9,22,2,8676,0)="M3/6+=9:;?.G%E[NS[0OPI+%@E\1!:B`JXWHUGY@75XI-=B'DOH`R9]?JW2IZ"
^XMB(3.9,22,2,8677,0)="""DATA"",396.18,215,3,2789,0)"
^XMB(3.9,22,2,8678,0)="MN=DS)!K1]GD'A>8Z;&KYC,\6YPK8]P!,Z2PILX)""SVVW]!M-)[<RJ>5M85R#"
^XMB(3.9,22,2,8679,0)="""DATA"",396.18,215,3,2790,0)"
^XMB(3.9,22,2,8680,0)="M8WFBM9QO?R5Q[V!]@]YZHD!>S""O4$?]""!]ZY9`5.I0P\`5_Q2N\J8H<Y97`&"
^XMB(3.9,22,2,8681,0)="""DATA"",396.18,215,3,2791,0)"
^XMB(3.9,22,2,8682,0)="M\MQZ!J'N':J>W686ID*K[8L""\DW@,`SCWS@56O5AP%HBB'>'9D`C%;AU>0$9"
^XMB(3.9,22,2,8683,0)="""DATA"",396.18,215,3,2792,0)"
^XMB(3.9,22,2,8684,0)="MVNJL(1E/H>^G=M""VV@VU80JA5H\.*77RL%)^23L9?<)\H$V8#[2U[P/]N#X9"
^XMB(3.9,22,2,8685,0)="""DATA"",396.18,215,3,2793,0)"
^XMB(3.9,22,2,8686,0)="M$$(5H74.VA2H4`LGU+]+#A_JUT>+7:A=GU""[/E@*=!!:E4""G/;F[8B^>7!EI"
^XMB(3.9,22,2,8687,0)="""DATA"",396.18,215,3,2794,0)"
^XMB(3.9,22,2,8688,0)="M58$3?\OOPZQC.NN^=M0#([6E:'=DR9-;M6HRJ*V_A1RO(NVL-=M1""XO&S=F+"
^XMB(3.9,22,2,8689,0)="""DATA"",396.18,215,3,2795,0)"
^XMB(3.9,22,2,8690,0)="M6_#`K8`X6S)H)N""AY6K1NH.A,7*Y'GW%N""#B5C27WZD2,]K66Z1JJ1T:V6A;"
^XMB(3.9,22,2,8691,0)="""DATA"",396.18,215,3,2796,0)"
^XMB(3.9,22,2,8692,0)="M""Y%>=2.&O-*.:UW5[@#HA?%,3""HK[/KOA3$O;8T[NO]-45#6%:DN&I6/9?5]"
^XMB(3.9,22,2,8693,0)="""DATA"",396.18,215,3,2797,0)"
^XMB(3.9,22,2,8694,0)="M\)RU-B-:D)K:)7M=&+AGHW5E`+1Z>GF1%9'6@F.`C,WOU(ET>4R.6=F^9JL'"
^XMB(3.9,22,2,8695,0)="""DATA"",396.18,215,3,2798,0)"
^XMB(3.9,22,2,8696,0)="M-[2-*3^5:@[43BI%`\$8V%5;J@#:49G+XNLOHF>`OV__L+E&O@DN_Y]/V4F("
^XMB(3.9,22,2,8697,0)="""DATA"",396.18,215,3,2799,0)"
^XMB(3.9,22,2,8698,0)="M&@/&4,D\Y^*KE+4WG1&L:!6$U#59*FKMZ@=FZP!8'-<',7(EX0(=FR2]9E63"
^XMB(3.9,22,2,8699,0)="""DATA"",396.18,215,3,2800,0)"
^XMB(3.9,22,2,8700,0)="M0'J5/E<Z""(U&@TV0*K:P?A+-JW:<R'B+D_(U)P8BE9LU""9&2*E<$45J4Y8J:"
^XMB(3.9,22,2,8701,0)="""DATA"",396.18,215,3,2801,0)"
^XMB(3.9,22,2,8702,0)="MIL*P,\O+6V'Y7)X?LGD^+PYLK:>H,=.WHV`OUP\97)^)5;B;Z[,;%B'U;7-]"
^XMB(3.9,22,2,8703,0)="""DATA"",396.18,215,3,2802,0)"
^XMB(3.9,22,2,8704,0)="M,WDG8'+]@+<LT??A^D8L846I]ADG+5H]P?\A7!\Q(+A^:-1+&C%>Y_JAT=41"
^XMB(3.9,22,2,8705,0)="""DATA"",396.18,215,3,2803,0)"
^XMB(3.9,22,2,8706,0)="M&G+]T(CKAYM</S3;XFVN'QHG`>WN8!#:UK>ZO:6\S+202/VQ#U0_W@-52Y%("
^XMB(3.9,22,2,8707,0)="""DATA"",396.18,215,3,2804,0)"
^XMB(3.9,22,2,8708,0)="M[HF)X+B8N/5B(C0N7I:(U.M,OOZINK5P];($2/W[V4'C)WN#\ID0Q:!X!=?]"
^XMB(3.9,22,2,8709,0)="""DATA"",396.18,215,3,2805,0)"
^XMB(3.9,22,2,8710,0)="M@Y:/W:&0W,O?F?P1/]L8R+XD,8\K^WJCT`""#QL7>B<M3S-A/_>E2D""FM,>_R"
^XMB(3.9,22,2,8711,0)="""DATA"",396.18,215,3,2806,0)"
^XMB(3.9,22,2,8712,0)="M]0,M/@!'#(!HI/;6(HM4%V&A/'A'<4W>)+<D\.(E8?H3H4(+B,8KW(D7<MFZ"
^XMB(3.9,22,2,8713,0)="""DATA"",396.18,215,3,2807,0)"
^XMB(3.9,22,2,8714,0)="M;JJZ@>`K$\QXX47A85HQ9@48W?/GL+?GCXW=L?*\3P<3:/MR$CFF`E$!DP=>"
^XMB(3.9,22,2,8715,0)="""DATA"",396.18,215,3,2808,0)"
^XMB(3.9,22,2,8716,0)="MH%$X.64$/!I+>R^6&*O2']L./)?@G'M)CGU+=F?CM=8()^8;/2@:-X==>M89"
^XMB(3.9,22,2,8717,0)="""DATA"",396.18,215,3,2809,0)"
^XMB(3.9,22,2,8718,0)="M&E4UXBIE[,%/#H7IDK4ZM$8B$UY64`@XSS/Y4ZIU9/KN9MG*T.56RPN-:T3O"
^XMB(3.9,22,2,8719,0)="""DATA"",396.18,215,3,2810,0)"
^XMB(3.9,22,2,8720,0)="M=GN&H?7MV(BDY?5-]HE,^AGA^%0G3ZI:GKI8UW[TR!])F%16,U7NQG;)VM0V"
^XMB(3.9,22,2,8721,0)="""DATA"",396.18,215,3,2811,0)"
^XMB(3.9,22,2,8722,0)="MV:#1IX0X*E/!IE(*;""J[Q':I9A`NU7[554U4%64LI3#CL/._Q^U%._FSZT*A"
^XMB(3.9,22,2,8723,0)="""DATA"",396.18,215,3,2812,0)"
^XMB(3.9,22,2,8724,0)="MOBL]!;TU6,ZU[#:**],=DI;V\47[RTD9W""WC^-ZX&ES`4P;)L6)L?$L&.=J<"
^XMB(3.9,22,2,8725,0)="""DATA"",396.18,215,3,2813,0)"
^XMB(3.9,22,2,8726,0)="MHDIJ\\JLKG.Q""""%8!<`3G*9Y]`M8VZF->R]=I-K+K122^\M3115!MCGI*.JL"
^XMB(3.9,22,2,8727,0)="""DATA"",396.18,215,3,2814,0)"
^XMB(3.9,22,2,8728,0)="MW+-M,2FA;RZ""<CO:'B^HUINX'5=@T<NVL\JR8A/)URS/L9>>21MD_\`A.2R$"
^XMB(3.9,22,2,8729,0)="""DATA"",396.18,215,3,2815,0)"
^XMB(3.9,22,2,8730,0)="M#2U*C0F.IU%-JTS.(&VNF\NH.O3W><DH*_5W8K@>A^$RN[B%'^&X\O.]?,/C"
^XMB(3.9,22,2,8731,0)="""DATA"",396.18,215,3,2816,0)"
^XMB(3.9,22,2,8732,0)="MLEQ.[IW:/R[+Y6ETTSX4.UCN7FT.2=Z4Y7+RZ3QG!\OE1?M_D.'NS:A%%L)D"
^XMB(3.9,22,2,8733,0)="""DATA"",396.18,215,3,2817,0)"
^XMB(3.9,22,2,8734,0)="MMPZ'W$(VN^49?-SH0^PVVMF.&=6<YZ)I<&)%`_HBA$!CJXJCZ-ZA%+X2JRF<"
^XMB(3.9,22,2,8735,0)="""DATA"",396.18,215,3,2818,0)"
^XMB(3.9,22,2,8736,0)="M?5Y4T%081%@/\)NGR]N+LD>B/%2*`9(U0)@7NN;YTR;1""A(#9]]0L_9W5P,+"
^XMB(3.9,22,2,8737,0)="""DATA"",396.18,215,3,2819,0)"
^XMB(3.9,22,2,8738,0)="M73G2K>2IU0$=1TREGGL8=O;YDV)W&(R8Y.SR5@1K4`""PF0?$QHL&YP\`UO?5"
^XMB(3.9,22,2,8739,0)="""DATA"",396.18,215,3,2820,0)"
^XMB(3.9,22,2,8740,0)="M.P3[FJ!X&""!8)[75%B)I1G!4&W?OP-`T/*SKDB='ZD[P;,Z(&+#YEERD[$%-"
^XMB(3.9,22,2,8741,0)="""DATA"",396.18,215,3,2821,0)"
^XMB(3.9,22,2,8742,0)="MTN-,$IAQWXF&RM_W;(<S)):M?9,BA""#'/'`P5XVKH%]61\[T$')&!<$D%<U;"
^XMB(3.9,22,2,8743,0)="""DATA"",396.18,215,3,2822,0)"
^XMB(3.9,22,2,8744,0)="M]I4:,N8@C[V23Z4D6@IW1HD+![V.JJ`^$3$0LDJCX3&?)3M#UM0CQ\+,@&C."
^XMB(3.9,22,2,8745,0)="""DATA"",396.18,215,3,2823,0)"
^XMB(3.9,22,2,8746,0)="MY8+]:1.2S4W$DU)4=9ZT!8OQ;>9/#`$M.D`KZ=W3(ISJKJC'[*GGVE1D:H)I"
^XMB(3.9,22,2,8747,0)="""DATA"",396.18,215,3,2824,0)"
^XMB(3.9,22,2,8748,0)="MO9KXV7\K_O*WWZ:]\?""),W_BQXMWW,4[T>()%9,T]:PB#KXWM5JJ""S!>N&K]"
^XMB(3.9,22,2,8749,0)="""DATA"",396.18,215,3,2825,0)"
^XMB(3.9,22,2,8750,0)="M97=8?^G070*8:9WJT1)[>_%DF6WGJ=JKD%O:SBCP\Z<_P3\TF9*K\OG3.^2"""
^XMB(3.9,22,2,8751,0)="""DATA"",396.18,215,3,2826,0)"
^XMB(3.9,22,2,8752,0)="M83+:D#L%I8ORW%+PLC+-^Q-4>E(9:W""S00I3U5!%OPP,_[Y#H[[<U)6-CS4;"
^XMB(3.9,22,2,8753,0)="""DATA"",396.18,215,3,2827,0)"
^XMB(3.9,22,2,8754,0)="MZ2\H1D-Y[C8M!D-'^N2HEH,;&'Q'(LF/O=2_GY=,_4:MTWT&;77*^F+^<6!O"
^XMB(3.9,22,2,8755,0)="""DATA"",396.18,215,3,2828,0)"
^XMB(3.9,22,2,8756,0)="M?8RKE4HQL\O*64$.]?,F=&PV7W60<:F9@+,Y`=B<8[_$.]Z$C,&UU[QJLM-B"
^XMB(3.9,22,2,8757,0)="""DATA"",396.18,215,3,2829,0)"
^XMB(3.9,22,2,8758,0)="MXH&[^3G0TB7OTZI=?GW8_-I#IYFS^-(S(^OTF&XXL7Q>I;_AJ/;)UK""4/5$["
^XMB(3.9,22,2,8759,0)="""DATA"",396.18,215,3,2830,0)"
^XMB(3.9,22,2,8760,0)="M7<4&L0N]]?7')IGJ@MX2@L>%H""*`ZSXO*NS`-$;+J1.U!<YG@O.&M,'TLC$R"
^XMB(3.9,22,2,8761,0)="""DATA"",396.18,215,3,2831,0)"
^XMB(3.9,22,2,8762,0)="MV2Y>=]L.2U4D15%=FJ2@QW>X""S6R^;MTOS$^6<]/NQ'1*""T\<WGE>CUER:6L"
^XMB(3.9,22,2,8763,0)="""DATA"",396.18,215,3,2832,0)"
^XMB(3.9,22,2,8764,0)="MVBY+7])<\@I0DHRV9S:)<CZ'SY\^?QH&S]KAMF+<6`!$T0_A(EY,:YMF""*$K"
^XMB(3.9,22,2,8765,0)="""DATA"",396.18,215,3,2833,0)"
^XMB(3.9,22,2,8766,0)="M""-:#SD+""6!P2[C<J#2\DRN6$A(DY5`5)8#F4Z%N+3BKY-XW@MT.MQ='?($$^"
^XMB(3.9,22,2,8767,0)="""DATA"",396.18,215,3,2834,0)"
^XMB(3.9,22,2,8768,0)="M*:W7LGJ7PG91]:KOPS5K7[#5K""C%.8.&#C<Z.BEDZ$VA\P2Y;GJ8:'ZSKE+6"
^XMB(3.9,22,2,8769,0)="""DATA"",396.18,215,3,2835,0)"
^XMB(3.9,22,2,8770,0)="MSS%1_C92P!HPAN*'BZ]#LWW&$SL6RCD<LSRG`#,JQB%%W+$430L*S!.:$J2X"
^XMB(3.9,22,2,8771,0)="""DATA"",396.18,215,3,2836,0)"
^XMB(3.9,22,2,8772,0)="M#=4.M@$SM&<DTU-EW:I>[E^>B3<E_(USR5H+FB0>526*(BE!=;_<IPCE1I,R"
^XMB(3.9,22,2,8773,0)="""DATA"",396.18,215,3,2837,0)"
^XMB(3.9,22,2,8774,0)="MS50H7Y(UU+18'B&,!P?ILLZQBT-7C=U>Y/Q@5A5(HNVV3R':Z5+`PYU86#XK"
^XMB(3.9,22,2,8775,0)="""DATA"",396.18,215,3,2838,0)"
^XMB(3.9,22,2,8776,0)="MM]ZKYA6*:8FV!7J#=2E%*O\&5YB<6Z.J^\L5JVK),*DDS9`9PQ;C0D@MSC#="
^XMB(3.9,22,2,8777,0)="""DATA"",396.18,215,3,2839,0)"
^XMB(3.9,22,2,8778,0)="MU#>-WPT,%-HUMAC-FT$ZI%MMJ%LCY&Y6>&#A,'55<]M=5?X!4\I!;0]9JVG:"
^XMB(3.9,22,2,8779,0)="""DATA"",396.18,215,3,2840,0)"
^XMB(3.9,22,2,8780,0)="MU\L5TES%.W-61RSDWH_'(^V;1C$DA1IE>K,=7O$0##(=`*PAMRP&PH@O';-\"
^XMB(3.9,22,2,8781,0)="""DATA"",396.18,215,3,2841,0)"
^XMB(3.9,22,2,8782,0)="MQD[!6)S@OD/:A""""CJEJJ0%C?W.N^C$C0@\>Q4=H21OAG!=3]DS+J&4JFX.$\"
^XMB(3.9,22,2,8783,0)="""DATA"",396.18,215,3,2842,0)"
^XMB(3.9,22,2,8784,0)="M04O/BY7KV\HN4>&UV$0'>YKTK1BJ^>JFD)5KX""GSB<\JH>]XCWZR#Z*`5H'J"
^XMB(3.9,22,2,8785,0)="""DATA"",396.18,215,3,2843,0)"
^XMB(3.9,22,2,8786,0)="M0%EM!JX%J/-WA1XG4(9%/<K'**4-""O*,S7#W#""9LL%(WE;PF""FC""G6/!0<D6"
^XMB(3.9,22,2,8787,0)="""DATA"",396.18,215,3,2844,0)"
^XMB(3.9,22,2,8788,0)="M)S,<)7U59'0K*XK7;T59+S194?=98?E#H_EH_(3^WL`,.YBSC$9T0X.K-3YA"
^XMB(3.9,22,2,8789,0)="""DATA"",396.18,215,3,2845,0)"
^XMB(3.9,22,2,8790,0)="M&_NU0`FU59OE3BB3'0P^/V'J-:-</NQ)A72^&&YM@9Z^9>V82HX6)]`N7NKK"
^XMB(3.9,22,2,8791,0)="""DATA"",396.18,215,3,2846,0)"
^XMB(3.9,22,2,8792,0)="MK44U8]ROK1WA)4H[F)7WG#1A#(>)E/>(7V6MXO#U7C(+YV36E^.-9/W^V'=6"
^XMB(3.9,22,2,8793,0)="""DATA"",396.18,215,3,2847,0)"
^XMB(3.9,22,2,8794,0)="M674CZ?V!HKV06_4(32LZ;C_.8/4R.6R6SO%43\)$RIHM=O\ML8[2;&2*N1I;"
^XMB(3.9,22,2,8795,0)="""DATA"",396.18,215,3,2848,0)"
^XMB(3.9,22,2,8796,0)="M]Z/]LE#@$WE)MK\TX-K+1TLSKQLO'ZE=KH?`;5`'QJ5(I$Z0=3>RBBOCCE%V"
^XMB(3.9,22,2,8797,0)="""DATA"",396.18,215,3,2849,0)"
^XMB(3.9,22,2,8798,0)="MSC(IQ.A4::2L^Q`01+/E%#""/`'Q@^_G3*(:LB#L:WT/,`Q/.Y5#@G)L.CI!W"
^XMB(3.9,22,2,8799,0)="""DATA"",396.18,215,3,2850,0)"
^XMB(3.9,22,2,8800,0)="M0RM5_#VY2,WMC&704""A0BN/FPNV-X[']`6R+U]^*@`+*7;TE(\T'9K%`C""U1"
^XMB(3.9,22,2,8801,0)="""DATA"",396.18,215,3,2851,0)"
^XMB(3.9,22,2,8802,0)="MAQ:)Y]$@\CZES1[#D:D*LQ5YL+I82G.`FE]M+5+,SE32$?@XX$[JZ#N:5]=2"
^XMB(3.9,22,2,8803,0)="""DATA"",396.18,215,3,2852,0)"
^XMB(3.9,22,2,8804,0)="M];0>QU5PMH@N,#?HS2>G])1K\J8DH06&1PBP@5:;HMU`DZ>R8.!SU4A-V!1)"
^XMB(3.9,22,2,8805,0)="""DATA"",396.18,215,3,2853,0)"
^XMB(3.9,22,2,8806,0)="MICU725-/Q=3`9CE>Y5]&N^7@""A[E.XCPP#S#YR8P""[5P]W(K.RJ8WE""4&0T`"
^XMB(3.9,22,2,8807,0)="""DATA"",396.18,215,3,2854,0)"
^XMB(3.9,22,2,8808,0)="M3];-T<8Y'L[Q%9,MB)A=2KP-)['C#W;""R63'^G0;FK/C;]AW)6_]?U!+`0(6"
^XMB(3.9,22,2,8809,0)="""DATA"",396.18,215,3,2855,0)"
^XMB(3.9,22,2,8810,0)="M""Q0``@`(`+J#PC3J=18M2ZP``)6<!``<``````````$`(`""`@0````!'96YE"
^XMB(3.9,22,2,8811,0)="""DATA"",396.18,215,3,2856,0)"
^XMB(3.9,22,2,8812,0)="M<F%L7TUE9&EC86Q?17AA;5\Q,3$N<&YL4$L!`A8+%``""``@`S(/""--_/M85["
^XMB(3.9,22,2,8813,0)="""DATA"",396.18,215,3,2857,0)"
^XMB(3.9,22,2,8814,0)="MNP``O[<'`""```````````0`@`(""!A:P``&=E;F5R86Q?365D:6-A;%]%>&%M"
^XMB(3.9,22,2,8815,0)="""DATA"",396.18,215,3,2858,0)"
^XMB(3.9,22,2,8816,0)="M7S$Q,2YP;FPN9G)M4$L!`A8+%``""``@`NH/""-#\D`"",%70``Z%T#`""``````"
^XMB(3.9,22,2,8817,0)="""DATA"",396.18,215,3,2859,0)"
^XMB(3.9,22,2,8818,0)="M`````0`@`(""!/F@!`$=E;F5R86Q?365D:6-A;%]%>&%M7S$Q,2YP;FPN8V1E"
^XMB(3.9,22,2,8819,0)="""DATA"",396.18,215,3,2860,0)"
^XMB(3.9,22,2,8820,0)="M4$L!`A8+%``""``@`NH/""-!/#EQ6]+P``L4D!`""```````````0`@`(""!@<4!"
^XMB(3.9,22,2,8821,0)="""DATA"",396.18,215,3,2861,0)"
^XMB(3.9,22,2,8822,0)="M`$=E;F5R86Q?365D:6-A;%]%>&%M7S$Q,2YP;FPN<F5P4$L%!@`````$``0`"
^XMB(3.9,22,2,8823,0)="""DATA"",396.18,215,3,2862,0)"
^XMB(3.9,22,2,8824,0)="*-`$``'SU`0``````"
^XMB(3.9,22,2,8825,0)="""DATA"",396.18,215,3,2863,0)"
^XMB(3.9,22,2,8826,0)="end"
^XMB(3.9,22,2,8827,0)="""DATA"",396.18,215,4)"
^XMB(3.9,22,2,8828,0)="9^2628636541"
^XMB(3.9,22,2,8829,0)="""DATA"",396.18,215,6)"
^XMB(3.9,22,2,8830,0)="1^1752"
^XMB(3.9,22,2,8831,0)="""DATA"",396.18,462,0)"
^XMB(3.9,22,2,8832,0)="SKIN DISEASES (OTHER THAN SCARS)~111F"
^XMB(3.9,22,2,8833,0)="""DATA"",396.18,462,1,0)"
^XMB(3.9,22,2,8834,0)="^^2^2^3060728"
^XMB(3.9,22,2,8835,0)="""DATA"",396.18,462,1,1,0)"
^XMB(3.9,22,2,8836,0)="Last Updated on 07/10/2006 ~111 "
^XMB(3.9,22,2,8837,0)="""DATA"",396.18,462,1,2,0)"
^XMB(3.9,22,2,8838,0)="Patch DVBA*2.7*111"
^XMB(3.9,22,2,8839,0)="""DATA"",396.18,462,2)"
^XMB(3.9,22,2,8840,0)="3060315^^3060710.1545"
^XMB(3.9,22,2,8841,0)="""DATA"",396.18,462,3,0)"
^XMB(3.9,22,2,8842,0)="^396.184^391^391^3060710^^^^"
^XMB(3.9,22,2,8843,0)="""DATA"",396.18,462,3,1,0)"
^XMB(3.9,22,2,8844,0)="begin 664 skin_Diseases_111.pnl.zip"
^XMB(3.9,22,2,8845,0)="""DATA"",396.18,462,3,2,0)"
^XMB(3.9,22,2,8846,0)="M4$L#!!0``@`(`*=UZC3AW9QNYA0``')>```5````4VMI;E]$:7-E87-E<U\Q"
^XMB(3.9,22,2,8847,0)="""DATA"",396.18,462,3,3,0)"
^XMB(3.9,22,2,8848,0)="M,3$N<&YL[5QYC""376:_NGNF>>R][$]MK4][-VKN;V74?T\<,L=9S[<[$,SN="
^XMB(3.9,22,2,8849,0)="""DATA"",396.18,462,3,4,0)"
^XMB(3.9,22,2,8850,0)="MZ5X/)CBFNNOU='FJJ]IUS&&,0F*D)`())R(*P@@)\T<4@P)""($*D`'*D`$)"""
^XMB(3.9,22,2,8851,0)="""DATA"",396.18,462,3,5,0)"
^XMB(3.9,22,2,8852,0)="MB;!$,%<(`H5#*`8'B3_`O+M>=;WNZ?$ZWFU@_]CIJ:E^[_N][WO?\7M?5;5\"
^XMB(3.9,22,2,8853,0)="""DATA"",396.18,462,3,6,0)"
^XMB(3.9,22,2,8854,0)="M+9VLEC4+F""?VV^C'@N:""1=OR'-L<6@,-+ZXDJG8[?GQXR]""]9N+->'(%&-M-"
^XMB(3.9,22,2,8855,0)="""DATA"",396.18,462,3,7,0)"
^XMB(3.9,22,2,8856,0)="M+_$;L;$%L`O,#=\#3BI9V[UA6^!N^%77<S3#\MPKZ]H^O_>NCC^PT<)?,*PN"
^XMB(3.9,22,2,8857,0)="""DATA"",396.18,462,3,8,0)"
^XMB(3.9,22,2,8858,0)="M7S`L]H71LMWVV^O`\E-WK<._7K.=UI5]?C$S4M5J&XX.G+BB*%4,;TVK`?,8"
^XMB(3.9,22,2,8859,0)="""DATA"",396.18,462,3,9,0)"
^XMB(3.9,22,2,8860,0)="M_K]ZT`8;#?0=#""Y1>@NC&R'HX@]3</')U*+6]@S;2@ZO+V]>7YZX!I?DRF)3"
^XMB(3.9,22,2,8861,0)="""DATA"",396.18,462,3,10,0)"
^XMB(3.9,22,2,8862,0)="M<US@I8XM+5^;O[E6?7IQ97ZSLEP=(W^U3=M)I>KF@JG5=\;Q-3K<]T;Q;S>T"
^XMB(3.9,22,2,8863,0)="""DATA"",396.18,462,3,11,0)"
^XMB(3.9,22,2,8864,0)="M%DA.KE?4BF:Y:@4X1H-\M>(=F&!<&2MK#K`\=&DD)/PX_A^)O;H4$OR]5/!C"
^XMB(3.9,22,2,8865,0)="""DATA"",396.18,462,3,12,0)"
^XMB(3.9,22,2,8866,0)="M4<'CE<W;)S6VJ&.5S:?QAWP:_<L0>WH>""_Y^:D^OQI@]Y6-#*U#9R>'R1OEF"
^XMB(3.9,22,2,8867,0)="""DATA"",396.18,462,3,13,0)"
^XMB(3.9,22,2,8868,0)="MF=C6JF5!VQJI[6YJA@OT\04;:1;/""Z^Z%</:-L$P@3!2-RN&N0N<=Q^U:'/,"
^XMB(3.9,22,2,8869,0)="""DATA"",396.18,462,3,14,0)"
^XMB(3.9,22,2,8870,0)="MW""!V_(%@+Q""MO4`VTS`%_XK""U':<J^T]E1W#FE,WP:X!]E2[`3_5(6KW%E&]"
^XMB(3.9,22,2,8871,0)="""DATA"",396.18,462,3,15,0)"
^XMB(3.9,22,2,8872,0)="MT1>J9,-=L$V]0Z44TI0(*9,EVCR&`36H&1I1,X3[N-6""8[FJ;:D.P3)WBV#>"
^XMB(3.9,22,2,8873,0)="""DATA"",396.18,462,3,16,0)"
^XMB(3.9,22,2,8874,0)="M?#N&.5Q=U@UO$H)`/[%:*(;W(`R)[R@4Q`$#<3<UR&RV-)L.=#PD'2M'-#P="
^XMB(3.9,22,2,8875,0)="""DATA"",396.18,462,3,17,0)"
^XMB(3.9,22,2,8876,0)="MPX/]7<_!!""<UK""BIZH+O>;9U'`Y'/A&;F2$C_@ZVF<1$C(YXG8UX)O!1BZ;M"
^XMB(3.9,22,2,8877,0)="""DATA"",396.18,462,3,18,0)"
^XMB(3.9,22,2,8878,0)="M@F#01&K#6C2-^D[JU#X9\3J`&\FHXXN*<JRZ6-Y:W]1TP[[NV'[[O7#F\!4B"
^XMB(3.9,22,2,8879,0)="""DATA"",396.18,462,3,19,0)"
^XMB(3.9,22,2,8880,0)="M`5V?)-;Q?=1H7^-&>YU#*N338Y6FO4?VY\C$!WW7,QH'JQYHN:,I]*.LZ8*1"
^XMB(3.9,22,2,8881,0)="""DATA"",396.18,462,3,20,0)"
^XMB(3.9,22,2,8882,0)="M3RVJUPP34""N?F\0W0K4Y<$.[L>0(N0[TY-TW;`]:S;,^<#V@J[4#]8GYS8WD"
^XMB(3.9,22,2,8883,0)="""DATA"",396.18,462,3,21,0)"
^XMB(3.9,22,2,8884,0)="MN<W.2VK-]U0+WJSM:H:IU4R@A"")!OY""I&K^M'(JY5""P>""?/I=:`;=<VD&_K="
^XMB(3.9,22,2,8885,0)="""DATA"",396.18,462,3,22,0)"
^XMB(3.9,22,2,8886,0)="MPAY#UKH.6C;:ONAGR!F3[>M3F""]S9_Q3""L69R11*F7=PNXXOVKYC`$>]`?9"""
^XMB(3.9,22,2,8887,0)="""DATA"",396.18,462,3,23,0)"
^XMB(3.9,22,2,8888,0)="MFW5RS;""`L`Y*:/N.5>HP(8')B>.FQESW"">!X:""T#F$&TQQ%GE(4>LHGBXQCG"
^XMB(3.9,22,2,8889,0)="""DATA"",396.18,462,3,24,0)"
^XMB(3.9,22,2,8890,0)="M$,4YF6`X7SD\Z-Q)X27&?/$8\\6%$C'8OPA'EM.Q:&2Y@""*+N@0QP13/G5-7"
^XMB(3.9,22,2,8891,0)="""DATA"",396.18,462,3,25,0)"
^XMB(3.9,22,2,8892,0)="M#->SG0,48_!?8,(%G1F\\Q81_ONMAYI1!H]LQ_B]&-PR]8"":-,KX4%J$I<Y@"
^XMB(3.9,22,2,8893,0)="""DATA"",396.18,462,3,26,0)"
^XMB(3.9,22,2,8894,0)="M7(T.5Q2',^A:_9H2'>_\$G#KCE$#ZEG;:P+G+!PV,L%<:ME""NTT/!.=Z*6;$"
^XMB(3.9,22,2,8895,0)="""DATA"",396.18,462,3,27,0)"
^XMB(3.9,22,2,8896,0)="MJ:@?B3\2G6F,+_N<9!3J@<_A$/!=&E02ORR1^%S%;[4THDY!LWST""^[%N>B"""
^XMB(3.9,22,2,8897,0)="""DATA"",396.18,462,3,28,0)"
^XMB(3.9,22,2,8898,0)="MS`A2)EYB06LU.OP4-A'WH-7V[)8K$35#`""?B)`""^H'17ULG*`71?+:/.Q[L:"
^XMB(3.9,22,2,8899,0)="""DATA"",396.18,462,3,29,0)"
^XMB(3.9,22,2,8900,0)="M'2\W2\;[1'B\Q*_+L`?:VB#:<CMG$'7%`NXX#[@9ZO8K9+*_9<)?8G.=%&,M"
^XMB(3.9,22,2,8901,0)="""DATA"",396.18,462,3,30,0)"
^XMB(3.9,22,2,8902,0)="MT)Q@2XX=$FO99&-\,@ILGLSU*1;7'V=SW=\UKH_T.9<`+!N:['6E^V3)BE]K"
^XMB(3.9,22,2,8903,0)="""DATA"",396.18,462,3,31,0)"
^XMB(3.9,22,2,8904,0)="M&5XP6^J0V4:K,+6KV0OV_@0*IO1SR.ZK5&G?5"")I4"":?S8RAV,>T*7BYSI@X"
^XMB(3.9,22,2,8905,0)="""DATA"",396.18,462,3,32,0)"
^XMB(3.9,22,2,8906,0)="ML6K!&A,*YT%/D1S!E:$&/XV7'7O;`:YK[(+D,%:]PL+=""`UWH2V_'Y'G04&>"
^XMB(3.9,22,2,8907,0)="""DATA"",396.18,462,3,33,0)"
^XMB(3.9,22,2,8908,0)="M++>1P0AX!.@H!9H5]W+\0@3I?1QIH3@($5V)`,R+SO`MYA!^E3,2'U,$B-D!"
^XMB(3.9,22,2,8909,0)="""DATA"",396.18,462,3,34,0)"
^XMB(3.9,22,2,8910,0)="M@#C:::SBYDE\@2'\<Z[#AP)K+18&`&`""WE_=V%R#\0BZ!E0O\5_""X>+3D7KI"
^XMB(3.9,22,2,8911,0)="""DATA"",396.18,462,3,35,0)"
^XMB(3.9,22,2,8912,0)="MJ@""U.+6\#[>^#O0*,$$=3BPZCDYO,82(J.3P-9C+.<GQ+7R7NF:[+G,1X^N^"
^XMB(3.9,22,2,8913,0)="""DATA"",396.18,462,3,36,0)"
^XMB(3.9,22,2,8914,0)="MZ1EDJ-$I@@=E\FC""D9'@4U""D3:`IJD:;IX);AJ7;>R-KMK6-\(QTVBKSNY\,"
^XMB(3.9,22,2,8915,0)="""DATA"",396.18,462,3,37,0)"
^XMB(3.9,22,2,8916,0)="MPTLLQ&3X2H/D>)+(\^.*B7I^]IER'#$,.?X`1?P-CO@ICCB7SO""P<X;';NC5"
^XMB(3.9,22,2,8917,0)="""DATA"",396.18,462,3,38,0)"
^XMB(3.9,22,2,8918,0)="M@1=.L,2BN\,9T,PP%6(GO\(GNQ:X@D)IF""_95M/PP&`X/WD]DQ-+<I;M?Y.["
^XMB(3.9,22,2,8919,0)="""DATA"",396.18,462,3,39,0)"
^XMB(3.9,22,2,8920,0)="MP%\<K'HF'DG[9M+$BEY70A7;14D]<[&CGLEDU74X?%.M.D#S$.?$$N';7]`$"
^XMB(3.9,22,2,8921,0)="""DATA"",396.18,462,3,40,0)"
^XMB(3.9,22,2,8922,0)="M^*C?^S.""[Q3%=RD6S6H?O<""WQO+\XHKJ,5@PE5=]J$E5]Y%UJ6W-]2#ZRRV,"
^XMB(3.9,22,2,8923,0)="""DATA"",396.18,462,3,41,0)"
^XMB(3.9,22,2,8924,0)="MO@T%L_6+DJFI3_H6F?H\G?I?>72YET_]),**MB*?4[U@6'73UX$*S0M8*.-2"
^XMB(3.9,22,2,8925,0)="""DATA"",396.18,462,3,42,0)"
^XMB(3.9,22,2,8926,0)="M3>Q9D4O5V@?3ZLTG%J;5\LTGYJ=5VU&Q=W5L2ZT!K<5NNG)Q9,MV]""WX>50B"
^XMB(3.9,22,2,8927,0)="""DATA"",396.18,462,3,43,0)"
^XMB(3.9,22,2,8928,0)="M(,W""3\=%`>/GHTN37+)=;1M(ALB+O,8.'6$S.L+Q:YA9L>JX2H*K*1F+I(Z)"
^XMB(3.9,22,2,8929,0)="""DATA"",396.18,462,3,44,0)"
^XMB(3.9,22,2,8930,0)="MEQ5QL,2?2`J0]R_YCH8^T<%Z:28Z49[4\/$3.%:,T8(@\7791$*5%QX\T%23"
^XMB(3.9,22,2,8931,0)="""DATA"",396.18,462,3,45,0)"
^XMB(3.9,22,2,8932,0)="M&+VD1BNDA=5)?(D%I5_J65*Y!E0Z:#2@.MV024C*7UY7%D0UG*/S?$HRSP.\"
^XMB(3.9,22,2,8933,0)="""DATA"",396.18,462,3,46,0)"
^XMB(3.9,22,2,8934,0)="M0,54EX&7+9A""5C\1%2>626A]/E(_/=""U?CIZK49CV@^3N;ZG=)X3W=.U+IPX"
^XMB(3.9,22,2,8935,0)="""DATA"",396.18,462,3,47,0)"
^XMB(3.9,22,2,8936,0)="M\ES%$*Y_4[KCBI1JHT<D?$]&V$]:E'X\%K+U3W""-J4&Z4BH<B?<\@<[<0H:3"
^XMB(3.9,22,2,8937,0)="""DATA"",396.18,462,3,48,0)"
^XMB(3.9,22,2,8938,0)="M@K[6;UEN/!XA/QDSD$Q!,5!(5$)4>2>.4Q$<&1H_CL=#0'Z3`RD*0(Y&X!X/"
^XMB(3.9,22,2,8939,0)="""DATA"",396.18,462,3,49,0)"
^XMB(3.9,22,2,8940,0)="MXHKAJIHZUQW'U**-(KH-P3BVH2=/K+9:OF6[?KO-RM74#6#@;#24675DD3.B"
^XMB(3.9,22,2,8941,0)="""DATA"",396.18,462,3,50,0)"
^XMB(3.9,22,2,8942,0)="M8[B'.88OQZ,I5;Z4'X""T9CR"",!^*28]1A""=X.'R?@#`W``AC(B\R*?(BZ5`T"
^XMB(3.9,22,2,8943,0)="""DATA"",396.18,462,3,51,0)"
^XMB(3.9,22,2,8944,0)="M>8XB_1L9,U+JQHP,138,YT(F;T#W@U)G\NM=UY&Q0GQ>4[/4@KH'P(Z;G,BH"
^XMB(3.9,22,2,8945,0)="""DATA"",396.18,462,3,52,0)"
^XMB(3.9,22,2,8946,0)="MGLU_.[X&;9'<D,&7(B5W)N3'F<PO!!F#('-V,.K1#H#%4,J1C5#"".0%A>A!I"
^XMB(3.9,22,2,8947,0)="""DATA"",396.18,462,3,53,0)"
^XMB(3.9,22,2,8948,0)="MH4Q)C/E?8S'_E;B$4\@6!JD0'>DGKE$""?02C_WF&_G.RN);-'RD<W%OIEAA="
^XMB(3.9,22,2,8949,0)="""DATA"",396.18,462,3,54,0)"
^XMB(3.9,22,2,8950,0)="M[1X8$D\""-QF_80M>/]5)`M$4]CBVR'PD@*6#RG9V=D!*65DE2ZN1OR?^<#Q2"
^XMB(3.9,22,2,8951,0)="""DATA"",396.18,462,3,55,0)"
^XMB(3.9,22,2,8952,0)="MZ!EB)4N+UF3=7#-:X':6K(E(5IVEK%T-`YFB:5LM6K"".E3<WRLN;U=7ERAU4"
^XMB(3.9,22,2,8953,0)="""DATA"",396.18,462,3,56,0)"
^XMB(3.9,22,2,8954,0)="MD3(FY0P6_Q(5?UUR!`1UZ\(/CZ;SZ4PF?SN:BR(E6D&4G68/\8VH[,=(5EP%"
^XMB(3.9,22,2,8955,0)="""DATA"",396.18,462,3,57,0)"
^XMB(3.9,22,2,8956,0)="M^]ZCB#;H8I.T./\RL<DM:I,^/Q9_21DH>F4H>JI&X]U/$(1C=,6LJ+%.+>]K"
^XMB(3.9,22,2,8957,0)="""DATA"",396.18,462,3,58,0)"
^XMB(3.9,22,2,8958,0)="M+;CQ'5>]8=\R9_9.&FRN)+3MQ!^B2GJ,.XZ'.8;/(\GG5.@R#$_%31/P*DS="
^XMB(3.9,22,2,8959,0)="""DATA"",396.18,462,3,59,0)"
^XMB(3.9,22,2,8960,0)="M+5W5<7G;)C6[!9,@F-*#?<14V(BL""/EU^""NG)-4:0!4J((NC3^/!-'='W04P"
^XMB(3.9,22,2,8961,0)="""DATA"",396.18,462,3,60,0)"
^XMB(3.9,22,2,8962,0)="MVX*9U%Y3\_BIHPIQ3./V#-TF'1KP3E@GZF@,+M`5D12)UH64%?DYHK)69UGX"
^XMB(3.9,22,2,8963,0)="""DATA"",396.18,462,3,61,0)"
^XMB(3.9,22,2,8964,0)="M`UW+7>60JA!O@6-5>'\-Z&BI:K:]@T)H^`IU;R1#BM/E_BZG'+\8.P;O[VD>"
^XMB(3.9,22,2,8965,0)="""DATA"",396.18,462,3,62,0)"
^XMB(3.9,22,2,8966,0)="MD_P&;""&CT$(\O!>GV!^8M4^P""Q)+X:-0FQ<KPQ&$HHPH(2+L$.F.Y$N3HDR@"
^XMB(3.9,22,2,8967,0)="""DATA"",396.18,462,3,63,0)"
^XMB(3.9,22,2,8968,0)="M,E:E\<K>/Q-%RO^6%GM?6=;P'8[Y,['3*[;S'`]]5ZH.M'BHU-%3*``&US<U"
^XMB(3.9,22,2,8969,0)="""DATA"",396.18,462,3,64,0)"
^XMB(3.9,22,2,8970,0)="M:QLD7HR=#E_FMP_/F\:VE1K13*@3:/)C\[YGD_M&0MV.R9J+CC7NB-[&@$\B"
^XMB(3.9,22,2,8971,0)="""DATA"",396.18,462,3,65,0)"
^XMB(3.9,22,2,8972,0)="MK$$\$:JU7Y,0BG-5ML$,BQ!E\->&[<#M8M2;;)<U(&Q[#^T-OM_<J[T8PR+5"
^XMB(3.9,22,2,8973,0)="""DATA"",396.18,462,3,66,0)"
^XMB(3.9,22,2,8974,0)="MT]TXO7M#B5!T\UR""5Y>`TX)3>X8[K8+Z<Z""E3<.M:+C-EF89FHLNFW[;AS]T"
^XMB(3.9,22,2,8975,0)="""DATA"",396.18,462,3,67,0)"
^XMB(3.9,22,2,8976,0)="M?*?=;AYX-KY>\Z%<OJOJAHM5`B^UX2?Z+<-""K@)[%HK#A;J=5NL^K,0`^AZ:"
^XMB(3.9,22,2,8977,0)="""DATA"",396.18,462,3,68,0)"
^XMB(3.9,22,2,8978,0)="MH0$WN\;OJD.DT%K57<VM^R8LW'1*8R/JM*VU?;B3G_6U5FC67BN1+X@K\0VV"
^XMB(3.9,22,2,8979,0)="""DATA"",396.18,462,3,69,0)"
^XMB(3.9,22,2,8980,0)="M$K\OT<75FSA%@^)#&(Z!Z<1`5B(16B;,XCH'7M.!:Z6VT)D9U%@+2,3@O%]>"
^XMB(3.9,22,2,8981,0)="""DATA"",396.18,462,3,70,0)"
^XMB(3.9,22,2,8982,0)="M,(C$XXRP^$<)\9?90H[2<,F""M4'=:!CU0.^(XPZ[VJO=SIVH?R+,U2-TRC>"""
^XMB(3.9,22,2,8983,0)="""DATA"",396.18,462,3,71,0)"
^XMB(3.9,22,2,8984,0)="M""N[V-FQUZ^X,G5_1_O/$MX*3WB`0TP9@VC#X[K?.'B&@R!5$`]A_$F_Z%L7Z"
^XMB(3.9,22,2,8985,0)="""DATA"",396.18,462,3,72,0)"
^XMB(3.9,22,2,8986,0)="MS['`FPJTJ>BA$7_""?\F()U^3=)""_Y(,\?S27_)&N+EETP;V<'^T9B@]C6S_-"
^XMB(3.9,22,2,8987,0)="""DATA"",396.18,462,3,73,0)"
^XMB(3.9,22,2,8988,0)="M:.AVU-3OQ<?.J@L]/3)RK3='GQ6'_2NVD?]+LH7RU^`.K0$+CJO""S=LV-;<U"
^XMB(3.9,22,2,8989,0)="""DATA"",396.18,462,3,74,0)"
^XMB(3.9,22,2,8990,0)="M33.;&E""-5ELS',Q70H_3\*WZ84UKA8PX]R^PN5^2'$X]B>9N:2AZ(3R2Z373"
^XMB(3.9,22,2,8991,0)="""DATA"",396.18,462,3,75,0)"
^XMB(3.9,22,2,8992,0)="M%`XER.D1VL^ZY@&<-7F4%S;1.8;D5$'T,W+#FA'$C7^(2OLU+NT'N;3+2%J_"
^XMB(3.9,22,2,8993,0)="""DATA"",396.18,462,3,76,0)"
^XMB(3.9,22,2,8994,0)="M/[='4CKL^,)^;ZY7$9@1B09^'OVBQ/WF;OBM&C0'B!RTH6N'""\:.BY`KE!T9"
^XMB(3.9,22,2,8995,0)="""DATA"",396.18,462,3,77,0)"
^XMB(3.9,22,2,8996,0)="M7>VR)K+^*^J!1[$<5Z@<GY;V7\WR8;O0C4HG?1%+)Q.9R[GDZ`P*#BW;`4H_"
^XMB(3.9,22,2,8997,0)="""DATA"",396.18,462,3,78,0)"
^XMB(3.9,22,2,8998,0)="M)`QU`*58:'&DAPNYHS62W[<)W+9-CB-1YBX<D0HL#,?9!QT3[P?03(C+98`^"
^XMB(3.9,22,2,8999,0)="""DATA"",396.18,462,3,79,0)"
^XMB(3.9,22,2,9000,0)="M(V652D<""],""\`T@!PFT#U`QHF#!WL+;?)J98I""NN)&[T<RQ._R'?.F4!P,Q@"
^XMB(3.9,22,2,9001,0)="""DATA"",396.18,462,3,80,0)"
^XMB(3.9,22,2,9002,0)="M-*4<KC7JW?X[U""""WRC&?$SIR9H^DM,=6M%VL-:B[&@!68(=NZ*!>V-]J>'\?"
^XMB(3.9,22,2,9003,0)="""DATA"",396.18,462,3,81,0)"
^XMB(3.9,22,2,9004,0)="MA3"",R8I$Z@J?QM@*G35B<$R9V@27[3:P!(,_)*AW]-VD1<OY%R5B.0\)C3>S"
^XMB(3.9,22,2,9005,0)="""DATA"",396.18,462,3,82,0)"
^XMB(3.9,22,2,9006,0)="M@T0G#\N6E>Z3?*@9I<W!JGQ=[^G:3=]_^M1!W,^**_TKT95^1.AV3`_22@\I"
^XMB(3.9,22,2,9007,0)="""DATA"",396.18,462,3,83,0)"
^XMB(3.9,22,2,9008,0)="M75/%O)C+OW5GY?(R^\CVG<6_HW3:]SN+7VR""^@Y++.CGC,""L)'Z:=2?L,*@G"
^XMB(3.9,22,2,9009,0)="""DATA"",396.18,462,3,84,0)"
^XMB(3.9,22,2,9010,0)="M`FO,%X/#__FZ!5""N4&]"",!K\)11IY3/11?VQ/F::#6:JP-P.>UG-M%$YJ86."
^XMB(3.9,22,2,9011,0)="""DATA"",396.18,462,3,85,0)"
^XMB(3.9,22,2,9012,0)="M_>0SY41,O./BA&2F0CK4MBL?;D84_&4V7$,V7-``.;D""\V""G:>@.(AM""_D@^"
^XMB(3.9,22,2,9013,0)="""DATA"",396.18,462,3,86,0)"
^XMB(3.9,22,2,9014,0)="M2UX4^N7(<Q;B\I0""`GR>K@JB)#5/""^U&^3P%$<V7>J+)""41[N!X)G7/)YRF*"
^XMB(3.9,22,2,9015,0)="""DATA"",396.18,462,3,87,0)"
^XMB(3.9,22,2,9016,0)="M>/@\KFR>F>`9DO5([='1HBJ;JB1.]9K2^?""T.%4^=-`H'VY6'*[(*L!G),,5"
^XMB(3.9,22,2,9017,0)="""DATA"",396.18,462,3,88,0)"
^XMB(3.9,22,2,9018,0)="M@Q4Z2:I!D>D0.I0Z$[6L2*A\F""5J_R1I9RG,S@Q&!XAR*%L[66X>N/A92>0U"
^XMB(3.9,22,2,9019,0)="""DATA"",396.18,462,3,89,0)"
^XMB(3.9,22,2,9020,0)="M^^5L,Q+.-LX72NE&#_SOH&;EX;0H\K,LG'Y;H+'O+#Z9=@-1CH<>3B7FXE'Z"
^XMB(3.9,22,2,9021,0)="""DATA"",396.18,462,3,90,0)"
^XMB(3.9,22,2,9022,0)="MX:.K#=6V0""_BF'&+#;ON<V968*!1G>_NH4+<,@_P']F!#.(>/<1.0K_L:3""7"
^XMB(3.9,22,2,9023,0)="""DATA"",396.18,462,3,91,0)"
^XMB(3.9,22,2,9024,0)="MPV=""\'>A,;T'%<N:9@B*ASO#5P#B-&(EM,X`*7NVKBB2""S_""GM:54$(/X@<E"
^XMB(3.9,22,2,9025,0)="""DATA"",396.18,462,3,92,0)"
^XMB(3.9,22,2,9026,0)="M"".&CU0G/8D%GI6KX/`NSJ)'19P5Y$[_%=@[H(K#;&6=[,4JL7""#]%Z^R)/:3"
^XMB(3.9,22,2,9027,0)="""DATA"",396.18,462,3,93,0)"
^XMB(3.9,22,2,9028,0)="M$M'O#T3'E##<_NU`[%YST$Z""KRIA`!^1/"":*5SP<""7N*3PO]/U!""\L>?E`P="
^XMB(3.9,22,2,9029,0)="""DATA"",396.18,462,3,94,0)"
^XMB(3.9,22,2,9030,0)="MB-_4#$<U;=?M*;5HZXE_8""-7)8]+(J%#24)/D4OBN(R63*Q)CD?_&`VLWX''"
^XMB(3.9,22,2,9031,0)="""DATA"",396.18,462,3,95,0)"
^XMB(3.9,22,2,9032,0)="M(E;T7(2P<MU.1N94*4,669M9X6GPQ`);FX<D_.8'RL""I4WV""_;:-JGAD+ZYZ"
^XMB(3.9,22,2,9033,0)="""DATA"",396.18,462,3,96,0)"
^XMB(3.9,22,2,9034,0)="MH0DT?1IOKVF\MZ:APBT=^HQ^C#67%D5HQB)O`@E$>)\@@F=[,!K6;/T`2]'?"
^XMB(3.9,22,2,9035,0)="""DATA"",396.18,462,3,97,0)"
^XMB(3.9,22,2,9036,0)="M5+2W\L=)0W&;S?54+$I*VI=4<E:^VJ`\!O2>?*?;6`\-8]MW`&(UIJG#Q5H]"
^XMB(3.9,22,2,9037,0)="""DATA"",396.18,462,3,98,0)"
^XMB(3.9,22,2,9038,0)="MBQ)O]VSH<*_MV)X-E0F-0-5T>G*.O2@Z5K+`E5Y:*N1$;T<;H.+W25[-@SN+"
^XMB(3.9,22,2,9039,0)="""DATA"",396.18,462,3,99,0)"
^XMB(3.9,22,2,9040,0)="M)0/,B$[G8\SI_(=DC7/!TT<X*R,J9JN+7K#0CW\NT#;QYV*BRX>;.CIAMF-"""
^XMB(3.9,22,2,9041,0)="""DATA"",396.18,462,3,100,0)"
^XMB(3.9,22,2,9042,0)="M\5""@S;(>W(C0,""S$EZ-GK>5,;XAQ?H;.^449TUOH^TE;\NS<9-`8.I,^GYR"""
^XMB(3.9,22,2,9043,0)="""DATA"",396.18,462,3,101,0)"
^XMB(3.9,22,2,9044,0)="M_Z$EV""8MI7U1OG1%_I1D8T]1Z7Y6]MQM(7LDLNT>Q)#*M'4T%BW>;5D+HO%\"
^XMB(3.9,22,2,9045,0)="""DATA"",396.18,462,3,102,0)"
^XMB(3.9,22,2,9046,0)="M7>FUKL7,80SZT*$+G(4+?'(!>'N(-\RFL9M#BWX\U,`+KRC=!""Z&8A27^/-2"
^XMB(3.9,22,2,9047,0)="""DATA"",396.18,462,3,103,0)"
^XMB(3.9,22,2,9048,0)="M2\@=)O%PI\23\R;U/""BN)4]52&""&8N(,`V5/?5E$2:!V$F\R*=,Q""6=>.-H3"
^XMB(3.9,22,2,9049,0)="""DATA"",396.18,462,3,104,0)"
^XMB(3.9,22,2,9050,0)="M!C^X2C(]UH*#\""%O@]RRB1C7-LKRX$K:MHG,A:PJ?B#I;1+JR6ZZ*(G>_4/,"
^XMB(3.9,22,2,9051,0)="""DATA"",396.18,462,3,105,0)"
^XMB(3.9,22,2,9052,0)="MX_Z15!4SAZDB)3>>B<!X\N>3#X;L)'\>=QN9(?,Z%9C7^;=A7Z&@N=<;4_XP"
^XMB(3.9,22,2,9053,0)="""DATA"",396.18,462,3,106,0)"
^XMB(3.9,22,2,9054,0)="M3)'5_?ZAZ:!3<R$?/4MA_""@_0$['A(V='HRGQ[L\:I`1(\,215J+R9XTF.WW"
^XMB(3.9,22,2,9055,0)="""DATA"",396.18,462,3,107,0)"
^XMB(3.9,22,2,9056,0)="MZ&^AXL-M!"".5`0/4A3W#:\)LK05T:)$H[T.)&?X`]RKYY`KWUP]<S[V8+""P!"
^XMB(3.9,22,2,9057,0)="""DATA"",396.18,462,3,108,0)"
^XMB(3.9,22,2,9058,0)="MT*9?UM%'F"".:<(E@C6+KZ%LDR?/=RPW#A$;$OG<7>A-2W7?0VI@H)'O&+HB^"
^XMB(3.9,22,2,9059,0)="""DATA"",396.18,462,3,109,0)"
^XMB(3.9,22,2,9060,0)="M'X#""'L.&^C/,P]2ESY*4!N-IA3[(DN$J3*'=?DF2[/]EDB12^<Z(K96)CS/?"
^XMB(3.9,22,2,9061,0)="""DATA"",396.18,462,3,110,0)"
^XMB(3.9,22,2,9062,0)="M]J*LX6&5/O_J`-<W26<H:G'0#6W;LF&`JF/CK9N&A7,X#VD%,P8^3B41C1`F"
^XMB(3.9,22,2,9063,0)="""DATA"",396.18,462,3,111,0)"
^XMB(3.9,22,2,9064,0)="M(.!(;=OQ)/ED5LQ!^%/>ORN1ZH<NJ5MX-XGIN9BOH_0=Y?&X+N6%""[J#E""XN"
^XMB(3.9,22,2,9065,0)="""DATA"",396.18,462,3,112,0)"
^XMB(3.9,22,2,9066,0)="M?I)07=Q8V]A4RRL;U8WKF_/EE8JDG`CEF[3/*O[1J$QG%@R[[1ZHF""N`01;9"
^XMB(3.9,22,2,9067,0)="""DATA"",396.18,462,3,113,0)"
^XMB(3.9,22,2,9068,0)="M/ELU6?*<%\=U*=C/2L!^>#-8>K2\N(&P>=""V4;D!X%9KP:+>:-`U1LC1#6`?"
^XMB(3.9,22,2,9069,0)="""DATA"",396.18,462,3,114,0)"
^XMB(3.9,22,2,9070,0)="M%BN&AER&4.RJ%TAKFXTOR5Z-5!+SP*^RK9*+BC5.""%VL<,FRA71)WXH0?S0Z"
^XMB(3.9,22,2,9071,0)="""DATA"",396.18,462,3,115,0)"
^XMB(3.9,22,2,9072,0)="MS.2\JZ*4OP[CF#X7""5\9:5KZ&N?ROJ`(X2L[2$\J,:I[5ERH1SL!QF<""?+,#"
^XMB(3.9,22,2,9073,0)="""DATA"",396.18,462,3,116,0)"
^XMB(3.9,22,2,9074,0)="M^?Z:3(@+>R&BPOBL@#`[&,\Z'AZ>1I>(@S3Z#E&Y_^?Q.WG\T(LXSU+#>9WO"
^XMB(3.9,22,2,9075,0)="""DATA"",396.18,462,3,117,0)"
^XMB(3.9,22,2,9076,0)="M_6=BDE<$<D>6$3O""V.-)&<F;Z+BF)-Z0<JQ78^(HB6<E5%+]IG79`9[MUYLH"
^XMB(3.9,22,2,9077,0)="""DATA"",396.18,462,3,118,0)"
^XMB(3.9,22,2,9078,0)="M@T,KI;:;MF=OPUC0=%6W:?NFKJ(W""^#8@X.CP#JQR,4:%T6ZC8:M*[U:D&=%"
^XMB(3.9,22,2,9079,0)="""DATA"",396.18,462,3,119,0)"
^XMB(3.9,22,2,9080,0)="MN/3-EG%=0MC.4V(*Y:?T';5SG3XI)PYV?^09M<>#'9O)#H9/.KQ0I[3A!\(-"
^XMB(3.9,22,2,9081,0)="""DATA"",396.18,462,3,120,0)"
^XMB(3.9,22,2,9082,0)="MU;\GHVXR1WMD4BT+=N!I.[""(0SD3MX,C]T&%E34C*""OQD\R__C;?)G\MA,C,"
^XMB(3.9,22,2,9083,0)="""DATA"",396.18,462,3,121,0)"
^XMB(3.9,22,2,9084,0)="MS(""\U/1P?17%+EC6H_05B;IRZ<S1U+6%V#65O;=V`V9R*&WE[Y\]FKH4\N]_"
^XMB(3.9,22,2,9085,0)="""DATA"",396.18,462,3,122,0)"
^XMB(3.9,22,2,9086,0)="M`%!+`P04``(`""`""G=>HTI;?1\4T7``""?J```&0```'-K:6Y?1&ES96%S97-?"
^XMB(3.9,22,2,9087,0)="""DATA"",396.18,462,3,123,0)"
^XMB(3.9,22,2,9088,0)="M,3$Q+G!N;""YF<FWM76MOVSBZ_K[`_`=A@$':/>E`)'4M,!BD:3OM0=L$23K%"
^XMB(3.9,22,2,9089,0)="""DATA"",396.18,462,3,124,0)"
^XMB(3.9,22,2,9090,0)="MP<%BH=A,K5-;\DIRV^RO/R1E223UDJ)RF=E.4RQV;,J1R>>]\+T\E,O+_Z.+"
^XMB(3.9,22,2,9091,0)="""DATA"",396.18,462,3,125,0)"
^XMB(3.9,22,2,9092,0)="MQGN37=+UQ?66GER]+*O-4^]""C/SP-\][0Z\:[Q?O""?9]_O:BW+)W""7_Y(5\V"
^XMB(3.9,22,2,9093,0)="""DATA"",396.18,462,3,126,0)"
^XMB(3.9,22,2,9094,0)="M*_:&I/S=*YI_7/%/(L+?'F?;)B\+]O[@[8NSWUX<\,&79='\?+S*JIKR3SY_"
^XMB(3.9,22,2,9095,0)="""DATA"",396.18,462,3,127,0)"
^XMB(3.9,22,2,9096,0)="M\?+H_9N+?QZ_.CH[?W$Q?*)<EQ6[OE@_6V>+3_UX_Q5/$.H'WV4;*K[EW#O/"
^XMB(3.9,22,2,9097,0)="""DATA"",396.18,462,3,128,0)"
^XMB(3.9,22,2,9098,0)="MBMH[IU5^-7S;>7.]YM?_]Q]\Z#2K:-'P""VSH9;:NZ0]_H\7RA[^5$@X<@=?/"
^XMB(3.9,22,2,9099,0)="""DATA"",396.18,462,3,129,0)"
^XMB(3.9,22,2,9100,0)="M)S'`@0P""""NT@G)]]&PB<G_WS-""OH.O3Y/\10$&\E%%""[\!:$@,@@!*&OH$#\"
^XMB(3.9,22,2,9101,0)="""DATA"",396.18,462,3,130,0)"
^XMB(3.9,22,2,9102,0)="M5C5R\6T'IR>G[T_%Q)[1SW3]NB@H7^3EY[,LK^E27""BK):VZ*5_6YWGQ<4T%"
^XMB(3.9,22,2,9103,0)="""DATA"",396.18,462,3,131,0)"
^XMB(3.9,22,2,9104,0)="MECTDY_GZ,ZW^8]%DT&27)WP9;$S@,4`K-*J%-I(5;`""7H/9]""V_8ONF5+/;;"
^XMB(3.9,22,2,9105,0)="""DATA"",396.18,462,3,132,0)"
^XMB(3.9,22,2,9106,0)="M@4'/HG9`UK1/>?'4.Z.?<_K%*Z_8JP4#M3YH/S@-F1FT,6RA-&P&3H?NJGY6"
^XMB(3.9,22,2,9107,0)="""DATA"",396.18,462,3,133,0)"
^XMB(3.9,22,2,9108,0)="MKI?_:""_!$`J5!)%#&`8NE'%#/M:0\T,=.3)""[KC<;-A<:H^]K5K4GMX+;/A&"
^XMB(3.9,22,2,9109,0)="""DATA"",396.18,462,3,134,0)"
^XMB(3.9,22,2,9110,0)="ML,T#[,4R;X2F<;SX&P4N3&2X,-'APDB#JQ_8VS+&2>KOIRGI>V""?""X'F0GQ?"
^XMB(3.9,22,2,9111,0)="""DATA"",396.18,462,3,135,0)"
^XMB(3.9,22,2,9112,0)="MF0R.;S(9-)Y,""$[FV:YIRJ(UPH#-IWVO*E.B:!..$G5&\6A""R5B9UF5-QW/:"
^XMB(3.9,22,2,9113,0)="""DATA"",396.18,462,3,136,0)"
^XMB(3.9,22,2,9114,0)="MXWY2'*_SQ2<V\+7]_M\H<X;Y0HR""TSX^_?#V+%OFY6]5N=NVT^>B5<>5943*"
^XMB(3.9,22,2,9115,0)="""DATA"",396.18,462,3,137,0)"
^XMB(3.9,22,2,9116,0)="M(C14<:>%_2+B$:I1V(GX?%5^:7VSK'2>]]^[NLFOKE\W=%.S*Q?5;G^!CYQF"
^XMB(3.9,22,2,9117,0)="""DATA"",396.18,462,3,138,0)"
^XMB(3.9,22,2,9118,0)="M2]A%'7LO<Z;3K8_J3$S<@VE[Q5P^O]>C=MCS#MK/T>5!/_*N;)B%_FM'ZX8N"
^XMB(3.9,22,2,9119,0)="""DATA"",396.18,462,3,139,0)"
^XMB(3.9,22,2,9120,0)="MO<MK[_>CLY,#Z0^T2][EKO$*]D?9YRQ?9Y=K>O!X)!K?&7=BQYT!=UODDSB^"
^XMB(3.9,22,2,9121,0)="""DATA"",396.18,462,3,140,0)"
^XMB(3.9,22,2,9122,0)="M%^3?TF6^R-;[3>$_30((E,!;NBF'<(2_LWE^I*$=H&3D^5,5;H2B!/UACOZX"
^XMB(3.9,22,2,9123,0)="""DATA"",396.18,462,3,141,0)"
^XMB(3.9,22,2,9124,0)="MW%4Y6^X[^L7FYM_D!86%T0$';P1,8Q95N5X_8TM@XW7].ZT:+O,1VKA'&PH`"
^XMB(3.9,22,2,9125,0)="""DATA"",396.18,462,3,142,0)"
^XMB(3.9,22,2,9126,0)="M`RCT0U+D)P=^<8*4P""]H+6!&X/=MAG<(""%*B!`Q0,$HMD1V.$[?(SGO.$,MJ"
^XMB(3.9,22,2,9127,0)="""DATA"",396.18,462,3,143,0)"
^XMB(3.9,22,2,9128,0)="M6C]EZ-9-65WS&$]<.2X+MK6RS]Z+*I,_-M0C,(B*8XU2%<0T=HGQ=@P/CMFB"
^XMB(3.9,22,2,9129,0)="""DATA"",396.18,462,3,144,0)"
^XMB(3.9,22,2,9130,0)="M@^O7`_,T8H=I]+'E$*8[!)O/:;VH\DOJ_5@V*UK]R.8SFEGGF%\4W&$NIU&+"
^XMB(3.9,22,2,9131,0)="""DATA"",396.18,462,3,145,0)"
^XMB(3.9,22,2,9132,0)="MD<-\]?TH<()-F9+AV^'0G*C!5.!K:$5D^OO/=YM-UNJZI/;]K![5CVT3""URD"
^XMB(3.9,22,2,9133,0)="""DATA"",396.18,462,3,146,0)"
^XMB(3.9,22,2,9134,0)="M&&I2C%VFQ>VNOMYLFW)3VV:`#(()$V4.7?8W1Z//K]D^N\D7_3QL^DQ26$0I"
^XMB(3.9,22,2,9135,0)="""DATA"",396.18,462,3,147,0)"
^XMB(3.9,22,2,9136,0)="MLLX#Q=$<C3YI-;K69S9'G]NP&!$X0B<D57,&37B!'F(A*$*G636.T)%_TQ""]"
^XMB(3.9,22,2,9137,0)="""DATA"",396.18,462,3,148,0)"
^XMB(3.9,22,2,9138,0)="M_5AJF#%6(""8IT=1-]QDX=<TIDMM-6&34TS/&*)D_X_/=Y29OQE..;YP&E9O+"
^XMB(3.9,22,2,9139,0)="""DATA"",396.18,462,3,149,0)"
^XMB(3.9,22,2,9140,0)="M\EGYE=M3]]IBU4F@Q][15""Z)0HRD@'BD\?KV;XN;7Q<-K1@`#=OWAN""8N:VZ"
^XMB(3.9,22,2,9141,0)="""DATA"",396.18,462,3,150,0)"
^XMB(3.9,22,2,9142,0)="MR>21TZK\6-&ZSC_385!841OL@3%Q#$7#FE/#_M3Z""1FO'YOM]#N-D'7L<3`-"
^XMB(3.9,22,2,9143,0)="""DATA"",396.18,462,3,151,0)"
^XMB(3.9,22,2,9144,0)="M?C"")?;<3#]A'\7>8B/AFF$,(9BV@T#?NJ#/ZP71Q.@8:?W]`IT:@D8,OT<-M"
^XMB(3.9,22,2,9145,0)="""DATA"",396.18,462,3,152,0)"
^XMB(3.9,22,2,9146,0)="MC/3HA""0C7Q)'WQ_,!(3YY.P-BUSW6U?_QAH.!N%4)30:>^^^<O3B*]MVEG1Y"
^XMB(3.9,22,2,9147,0)="""DATA"",396.18,462,3,153,0)"
^XMB(3.9,22,2,9148,0)="M3M=\""LI2P)W-O(^]*PMI8WK)DOAJ>/NAO<^;LJ[!S<OSWN[63=Y/8RA5M4#S"
^XMB(3.9,22,2,9149,0)="""DATA"",396.18,462,3,154,0)"
^XMB(3.9,22,2,9150,0)="M""M=^_C+8X*A>W6TG?9%O!ZWYD!?+\LL>U[+XR(&V1II""_S'H:%)LE0?!V$$>"
^XMB(3.9,22,2,9151,0)="""DATA"",396.18,462,3,155,0)"
^XMB(3.9,22,2,9152,0)="MR<-N*@06@>B+\BDS!-X/ZUYK1A$K@;.VJP:1'H:F(QD0O]M5H72%16,,>RCO"
^XMB(3.9,22,2,9153,0)="""DATA"",396.18,462,3,156,0)"
^XMB(3.9,22,2,9154,0)="MUAL;H^V)*%K33SGNWG>>LWO?3[K3)+D([/=#PRX5);U)21J^RAO:#;LHD$V%"
^XMB(3.9,22,2,9155,0)="""DATA"",396.18,462,3,157,0)"
^XMB(3.9,22,2,9156,0)="MC$HTJ48&1;*HDJ1,9G6:4*AQY-`KE;&628!:9C24,D.EE-GV<H92)@J^BU(F"
^XMB(3.9,22,2,9157,0)="""DATA"",396.18,462,3,158,0)"
^XMB(3.9,22,2,9158,0)="MANHFOJ&4J6Q3>HHU+EI,EC(1]MZRJ:W8WD""SAC=ANS+/7Z&6&1B*/UKG0@^O"
^XMB(3.9,22,2,9159,0)="""DATA"",396.18,462,3,159,0)"
^XMB(3.9,22,2,9160,0)="MTF2ZYO*H]V(OCHY?>4T'WZ/ZL;=C^N@M=]P*O6W&-D&$GVP$RENVQG+YV%8Q"
^XMB(3.9,22,2,9161,0)="""DATA"",396.18,462,3,160,0)"
^XMB(3.9,22,2,9162,0)="M@TMY&`>*+]8[6T2?,AZ)?H@I./#,Z_9S]A[EQ6*]6U*/V1HM>#+LK<5]>""R1"
^XMB(3.9,22,2,9163,0)="""DATA"",396.18,462,3,161,0)"
^XMB(3.9,22,2,9164,0)="M;:\/O?>_/SOT3M__?G3HE0?>?_7WJCP17%3L&RYIMNG^X.?'>T%^**OE!S8B"
^XMB(3.9,22,2,9165,0)="""DATA"",396.18,462,3,162,0)"
^XMB(3.9,22,2,9166,0)="M11^&=<-UYY!8UTT<RG3/RSK[2&V0AT[$!NVK$SS]U2]%HZY8B)KIKK9.`BYX"
^XMB(3.9,22,2,9167,0)="""DATA"",396.18,462,3,163,0)"
^XMB(3.9,22,2,9168,0)="MHPA;9X%]E_K@KLK$ZW86-M6TS#""$VRLH5COVD3[!9%:169W4H**KUBO92KV1"
^XMB(3.9,22,2,9169,0)="""DATA"",396.18,462,3,164,0)"
^XMB(3.9,22,2,9170,0)="M[R)'O3""%(C2CPEKGS$KHU17[WEJQH=D=@\AALD1/0\B<CH%H$^=""U-HT3=0,"
^XMB(3.9,22,2,9171,0)="""DATA"",396.18,462,3,165,0)"
^XMB(3.9,22,2,9172,0)="M4SE2G53B3Y0CNTAQNH!ZVY)O9)AQH/9=1NE#JGO+T+E(C6\WX]@)8QS@^1B;"
^XMB(3.9,22,2,9173,0)="""DATA"",396.18,462,3,166,0)"
^XMB(3.9,22,2,9174,0)="M2K[IW3!?4COW@B21U5,A,EH""'J5L270OY`M.L%6LM4M*RO5N4]1=$&9+Q+MF"
^XMB(3.9,22,2,9175,0)="""DATA"",396.18,462,3,167,0)"
^XMB(3.9,22,2,9176,0)="MSY!HLW7RX!A@4X0.:""+?#F>($SN<B<Y([*IQ,ISWPV498L6\]C+OZ7PTCTN>"
^XMB(3.9,22,2,9177,0)="""DATA"",396.18,462,3,168,0)"
^XMB(3.9,22,2,9178,0)="M690,TJK,)7++Z\UF5Y3U;KL=%>7?T5RN;$RFMZ*X`!:+M1TKT5INT2C\&^>U"
^XMB(3.9,22,2,9179,0)="""DATA"",396.18,462,3,169,0)"
^XMB(3.9,22,2,9180,0)="M81)^?]4U9&8)(;!<K`6MD9ZOC!J])!H#3;Y#H.T-.-_4@=.#1:QM(AB3Z1Y<"
^XMB(3.9,22,2,9181,0)="""DATA"",396.18,462,3,170,0)"
^XMB(3.9,22,2,9182,0)="MXMJ#""Z:-7.^VO6-;*B_V:,._<7_""[MFLLL*+O""^4?I(*FLAKRO'H&^8?VC]`"
^XMB(3.9,22,2,9183,0)="""DATA"",396.18,462,3,171,0)"
^XMB(3.9,22,2,9184,0)="MXI*E78<B!_::CE7?B1]E5#)6^*'&+N$,]D6U#""[TIR@[(:""3_L%#""W3`.7'0"
^XMB(3.9,22,2,9185,0)="""DATA"",396.18,462,3,172,0)"
^XMB(3.9,22,2,9186,0)="MYS31>W-XNF>$HX>*^4#LF(C@)CC@:O@6ZEEGB*:C81S>2_AV;LIA?YT?R/T/"
^XMB(3.9,22,2,9187,0)="""DATA"",396.18,462,3,173,0)"
^XMB(3.9,22,2,9188,0)="MK65J,A""=Q69J,:C&2A81DJFH-QAI<92FWW,G'RK#8Z`,C]O6?$?>EBOQ^T+R"
^XMB(3.9,22,2,9189,0)="""DATA"",396.18,462,3,174,0)"
^XMB(3.9,22,2,9190,0)="ML/FW/,MQ)7[`[4V^H=]&N9T`M1@,UXE3K2FL400=B,.G9R>G+\XN7K\X_RN4"
^XMB(3.9,22,2,9191,0)="""DATA"",396.18,462,3,175,0)"
^XMB(3.9,22,2,9192,0)="MT[&!&ZPV)?3*A4/)BJEUS5[^XH<^0O>36:$_X.176\B-'$#24Z$XG0:I+=I<"
^XMB(3.9,22,2,9193,0)="""DATA"",396.18,462,3,176,0)"
^XMB(3.9,22,2,9194,0)="MT*_-+[R)<V""U>/#\:""*UWI)8.4G<IF+#UX?A=]%[""R""FKJ$2KQ=DM)T).9P0"
^XMB(3.9,22,2,9195,0)="""DATA"",396.18,462,3,177,0)"
^XMB(3.9,22,2,9196,0)="M??$UV[""M@#GS=V5#_Q*G!0QG+HA:,=;9&SI6)#5WJQA23]D.NLD;3QQM8M=K"
^XMB(3.9,22,2,9197,0)="""DATA"",396.18,462,3,178,0)"
^XMB(3.9,22,2,9198,0)="M+RN6WE(4Y=L_8/]K5GGMT:^\""57R/M0^Q)&[56VXPR[UA`/ODO+Z.&T%LSP4"
^XMB(3.9,22,2,9199,0)="""DATA"",396.18,462,3,179,0)"
^XMB(3.9,22,2,9200,0)="M-\[J3]YGRC)2EEU^665-3Z.6[^4QE`[%X:IEV9ZO8G^UIBP89/?K)_KSC#Y8"
^XMB(3.9,22,2,9201,0)="""DATA"",396.18,462,3,180,0)"
^XMB(3.9,22,2,9202,0)="M:^`&WC6+!E7U2Z<*Q,BU""#^K!J\Y&W:;2[KD,KHLRT_<ZZ@C<L`AG>!7^O[M"
^XMB(3.9,22,2,9203,0)="""DATA"",396.18,462,3,181,0)"
^XMB(3.9,22,2,9204,0)="MRH:(KBUML_M,6T;_H<$T&N$BY8NZ'^G&S>;1?4+U)GJ%=X\""7_%I]I$JX@K4"
^XMB(3.9,22,2,9205,0)="""DATA"",396.18,462,3,182,0)"
^XMB(3.9,22,2,9206,0)="M:OY(%&J3W8CG/OPKO_*:3_]&([WX*NG%USDO<1"",.""^!WY--7I75O_LP\^>+"
^XMB(3.9,22,2,9207,0)="""DATA"",396.18,462,3,183,0)"
^XMB(3.9,22,2,9208,0)="MBKD6KL)R.N%Y//`</G26%1^IN(L/?\!PEZ-U_I$O/ULSI6(^IA_?-67[QSHC"
^XMB(3.9,22,2,9209,0)="""DATA"",396.18,462,3,184,0)"
^XMB(3.9,22,2,9210,0)="M17\L`>?#W1\!!X$$',A]&BDX9G+-V.+&/4'MD(C<7AE&M(X`>,(5K%SI9?S."
^XMB(3.9,22,2,9211,0)="""DATA"",396.18,462,3,185,0)"
^XMB(3.9,22,2,9212,0)="M8>9%VQYF;Z\83%]6^6+5><HK)I3R""Q=E[S/K7P^D;QX[-HD8!*PQ]HUKQ$A?"
^XMB(3.9,22,2,9213,0)="""DATA"",396.18,462,3,186,0)"
^XMB(3.9,22,2,9214,0)="M)`X0L$@_`A89A=`BAS&/=W&K#5MID]>''EW\FVZR0^:Q\WJUR8H\J_GP>K?="
^XMB(3.9,22,2,9215,0)="""DATA"",396.18,462,3,187,0)"
^XMB(3.9,22,2,9216,0)="ML?\LQ2?+[>JZ*<7XY8[!(+E_<;]=[2WS6F@H^\B6O=K?)2_XSB,VJCV,-;.&"
^XMB(3.9,22,2,9217,0)="""DATA"",396.18,462,3,188,0)"
^XMB(3.9,22,2,9218,0)="M0V^Q:UA,5K*_X]]XI=^/[1E9_U<+!CSS*M[GK%[LUEG%OTJ0=CPFHFVVW3%G"
^XMB(3.9,22,2,9219,0)="""DATA"",396.18,462,3,189,0)"
^XMB(3.9,22,2,9220,0)="M_J]=MBF'6>CWJ^K;""""J,Y@BJVX^4F""B=H8WO16;+$&1(5KF@`PQPM2!PR?'5"
^XMB(3.9,22,2,9221,0)="""DATA"",396.18,462,3,190,0)"
^XMB(3.9,22,2,9222,0)="MT^JZ655,?-Z&\UN9SF[HK5;J;G6$0`I)""+!.1,!U?N`!15ZW6K&EB_PJ7PRV"
^XMB(3.9,22,2,9223,0)="""DATA"",396.18,462,3,191,0)"
^XMB(3.9,22,2,9224,0)="MQ>E#:D@R&!NX@(ZYB48L3CEXT)<10+Y#MK51-=;=X=I=KL7I.KE=H^.UN5[H"
^XMB(3.9,22,2,9225,0)="""DATA"",396.18,462,3,192,0)"
^XMB(3.9,22,2,9226,0)="M[)`*H_QL""CT""@QFFTE$G>6CHM03R\*CJ.M*+_=-B]D\&.)`_Y8K[%/(6QJDS"
^XMB(3.9,22,2,9227,0)="""DATA"",396.18,462,3,193,0)"
^XMB(3.9,22,2,9228,0)="M^A;\[1*`-T""GP'.D_E9+(#9+P$&JV\(3P**#%+(%*6@"".2'J?/IP#4&QV_AI"
^XMB(3.9,22,2,9229,0)="""DATA"",396.18,462,3,194,0)"
^XMB(3.9,22,2,9230,0)="M(<KF3B""=""N+(H%,*GDX!G3FH(Z%O_I#E;N8@SB9\_;@N&?MBN9FDCG;'JA-U"
^XMB(3.9,22,2,9231,0)="""DATA"",396.18,462,3,195,0)"
^XMB(3.9,22,2,9232,0)="M>,C)L7H!],V:'8KS$U[-`E7NF3.=>@9H(Q3(X1LL0]Y5%5<2DOG+>,E<P""4M"
^XMB(3.9,22,2,9233,0)="""DATA"",396.18,462,3,196,0)"
^XMB(3.9,22,2,9234,0)="M>+S-MM#M.JLWA_N,^9)Z^6:;Y96@<+!0XVI7+&3V??</[`(Y+1_-7SX*(WCY"
^XMB(3.9,22,2,9235,0)="""DATA"",396.18,462,3,197,0)"
^XMB(3.9,22,2,9236,0)="M`4*SEZ^.>RT<FXRG'URB`""(94]N!;=CR8;F>+[.&72RTT$K<<^DU>U[1FI,6"
^XMB(3.9,22,2,9237,0)="""DATA"",396.18,462,3,198,0)"
^XMB(3.9,22,2,9238,0)="M1U1`!QB-P8H5X\Z[!:""GFP(Z,:A9$`8&G.-@%LX[MTBNK;6(6&X(Y2""<>7BG"
^XMB(3.9,22,2,9239,0)="""DATA"",396.18,462,3,199,0)"
^XMB(3.9,22,2,9240,0)="M8SI^L)/)H1@L4>_3C=0QTL=[KQ($^B4PMAV9Y+O=YI+-F.D+W;*`G:E>Q\3E"
^XMB(3.9,22,2,9241,0)="""DATA"",396.18,462,3,200,0)"
^XMB(3.9,22,2,9242,0)="ML2#$QOWU0+^=59>LVC32)XA;$HZH)2.\4ABOP()7:,8+C2Y)[<]T[O)!RLKT"
^XMB(3.9,22,2,9243,0)="""DATA"",396.18,462,3,201,0)"
^XMB(3.9,22,2,9244,0)="M'F1M<4J*Z!\`@^@)@88#GJALRHH.YVZFI:!TDTW/NAI)A.C;G(,.$[-,""+;("
^XMB(3.9,22,2,9245,0)="""DATA"",396.18,462,3,202,0)"
^XMB(3.9,22,2,9246,0)="MA(PQ,#6GAW_&-K4*O]JP-@3)];9L#RCP(J]TZ&)L*J,N]BPUFM(%N?$M#0\M"
^XMB(3.9,22,2,9247,0)="""DATA"",396.18,462,3,203,0)"
^XMB(3.9,22,2,9248,0)="M<%#M\`UU(7#5A9X""-L>?13?3!9S\J;IP5-&VS-\[4WJ9LYTE:YC8O@UU0%9U"
^XMB(3.9,22,2,9249,0)="""DATA"",396.18,462,3,204,0)"
^XMB(3.9,22,2,9250,0)="M,.[_G#21:`<@'>++U+CQ1X:-/]'<I""S\0%NO>Y(ZG:9.)*H.!R0G4U7K8<G1"
^XMB(3.9,22,2,9251,0)="""DATA"",396.18,462,3,205,0)"
^XMB(3.9,22,2,9252,0)="MD4F7]';R^.1(_)&3M#7>^(0GZ)^8#*E`X,,:0'!JT`!]GY""/5^O;\Y3Q3YJ^"
^XMB(3.9,22,2,9253,0)="""DATA"",396.18,462,3,206,0)"
^XMB(3.9,22,2,9254,0)="MV?#ESDGV6=@]L_Y+2HMA$ZB5<W=22.790BJC6YBT>M#F`8LWV;M1X&T1)`""K"
^XMB(3.9,22,2,9255,0)="""DATA"",396.18,462,3,207,0)"
^XMB(3.9,22,2,9256,0)="M4$,8!MJX'L+KW<%Q`!8:@3ZC3\HM+<R!MP:88QEGPJ]A?[YC(]%<QT82DUI'"
^XMB(3.9,22,2,9257,0)="""DATA"",396.18,462,3,208,0)"
^XMB(3.9,22,2,9258,0)="M43HG?7OP>K.]7CC#""!*[$>B%$>58],C)18E)&[#9VTP\ZG$ZM;@;LT#I;+-`"
^XMB(3.9,22,2,9259,0)="""DATA"",396.18,462,3,209,0)"
^XMB(3.9,22,2,9260,0)="M\>S]/HB-9A'[#V9QKV81&'7!M?`=SFH!067O[Z4%Y)M;0/A/:?Z`Q+""'YH^["
^XMB(3.9,22,2,9261,0)="""DATA"",396.18,462,3,210,0)"
^XMB(3.9,22,2,9262,0)="M#1ROZ.)3]W3""_>N1#00C#H4<$`^_6!!#W5QY<'""+87P`=GF/%@7E%:#%BHDC"
^XMB(3.9,22,2,9263,0)="""DATA"",396.18,462,3,211,0)"
^XMB(3.9,22,2,9264,0)="M6Q2R3*$0RKHH;%L4PN0>EI7""RSI?9)4(K[-UR7O7&;PLXK0L,DM6_9%H]?20"
^XMB(3.9,22,2,9265,0)="""DATA"",396.18,462,3,212,0)"
^XMB(3.9,22,2,9266,0)="M^YHB'YYLZC398*X,(FBZ/IXQ7P3+X-4URV16^;+BS!1X2:'3DL)YM@(M*)VC"
^XMB(3.9,22,2,9267,0)="""DATA"",396.18,462,3,213,0)"
^XMB(3.9,22,2,9268,0)="M4XG!5/:JQ`F566/0J,!I1=%<(27!;85$X$4]4UMO\*)BIT7%\\0$+@F%,Y84"
^XMB(3.9,22,2,9269,0)="""DATA"",396.18,462,3,214,0)"
^XMB(3.9,22,2,9270,0)="MP$MZ.VJ?P:N*G%:5S#-^!%G3G$6%\&03I\FFLR9+$(*T*G*?;6S0JK8W+9.%"
^XMB(3.9,22,2,9271,0)="""DATA"",396.18,462,3,215,0)"
^XMB(3.9,22,2,9272,0)="MX%4AW[HLD6>/\@DCY0DD""Y$`BA1#<#EI<'#?$20V1)!P.F"",8JQI@)(""V**="
^XMB(3.9,22,2,9273,0)="""DATA"",396.18,462,3,216,0)"
^XMB(3.9,22,2,9274,0)="MR=!_=*A>$97\4+7;L8Q/5]>U^-41'E\Z<XW1+;C&_HAI[-^""9_Q`(YY+(^[R"
^XMB(3.9,22,2,9275,0)="""DATA"",396.18,462,3,217,0)"
^XMB(3.9,22,2,9276,0)="MO]B6""Q*77#""6DQ68`O473@9;[D`(<0<LK""T?2@;#V`>30;4_;>)4'+R^\LJ"""
^XMB(3.9,22,2,9277,0)="""DATA"",396.18,462,3,218,0)"
^XMB(3.9,22,2,9278,0)="MVNC8'9OTJESL>L)QS^L>,2H.RH)3+^HOG(M0K*_%Q[L#*YQ_VG""&*HLQFRPO"
^XMB(3.9,22,2,9279,0)="""DATA"",396.18,462,3,219,0)"
^XMB(3.9,22,2,9280,0)="MVK,T[/WH$9T3A`.E@J'C&LW#E:00KDI""XX""KX*9D>EXF+\<ZY]@RYV0\YQ2#"
^XMB(3.9,22,2,9281,0)="""DATA"",396.18,462,3,220,0)"
^XMB(3.9,22,2,9282,0)="M<U;;L]-S%H\2;DE:V8(*QDS!XA`O$V>;J-+.L$X_G:G**DMHP!S-Q[S6DT95"
^XMB(3.9,22,2,9283,0)="""DATA"",396.18,462,3,221,0)"
^XMB(3.9,22,2,9284,0)="MA8R%1-MZL#]/'""@-P/60Z*;R$/QMMK=N05G<=%G8LBRD]GRL@DJ#&]B&FHC="
^XMB(3.9,22,2,9285,0)="""DATA"",396.18,462,3,222,0)"
^XMB(3.9,22,2,9286,0)="MA90""ZW)29SDEZ4W%M,KRREN7=7T7TIFY'V`"";@C)#62C)/UW(9EDYE)BL-!)"
^XMB(3.9,22,2,9287,0)="""DATA"",396.18,462,3,223,0)"
^XMB(3.9,22,2,9288,0)="M"".S/5(]MW-OXRI:W.)0SWMOX,9W;',L9WY$?U($.YA3CDSDMHU$[FS.^8S^Y"
^XMB(3.9,22,2,9289,0)="""DATA"",396.18,462,3,224,0)"
^XMB(3.9,22,2,9290,0)="MIYZ;(&^XS6*;SU=)M?M]%H.;%I[K3$YIM=B;'_VZ+7E7GKN4VGNTHMGR4&QE"
^XMB(3.9,22,2,9291,0)="""DATA"",396.18,462,3,225,0)"
^XMB(3.9,22,2,9292,0)="MAV(?.V3V62Q9S'&'/I3X<Y<=@6:*9L9M\K*;LF%9UV6YO!8KO]/EV9P02<#U"
^XMB(3.9,22,2,9293,0)="""DATA"",396.18,462,3,226,0)"
^XMB(3.9,22,2,9294,0)="MP;8;P$Y5Y;`:;??O7GLR^_75GHW!HM!^IR^%45SE'W<5Y=R,PWW@*HSN1UY%"
^XMB(3.9,22,2,9295,0)="""DATA"",396.18,462,3,227,0)"
^XMB(3.9,22,2,9296,0)="MKL=V\:-R&'%;E4W);(U9K9<M]Z>U133*#X$5].?;QZ$1F1=$A.""I##PS#!4/"
^XMB(3.9,22,2,9297,0)="""DATA"",396.18,462,3,228,0)"
^XMB(3.9,22,2,9298,0)="MHW0,VZ)@9IB#P5`9!S/#G.$1_:+BU%IOI\3\ET5O'$='MMB?Q(EK]*_MK;.7"
^XMB(3.9,22,2,9299,0)="""DATA"",396.18,462,3,229,0)"
^XMB(3.9,22,2,9300,0)="M)!_PV'9E$O'T@*N\X,S_VF%%'54:&VC3%D'Y$>QS8%>K\J0E$I;2)+`2H$TT"
^XMB(3.9,22,2,9301,0)="""DATA"",396.18,462,3,230,0)"
^XMB(3.9,22,2,9302,0)="MI`F>D_H+)/NQX>%[@?^3?I$-<<WXV#[43ZZ9F5!4Z&R1E>#6'T`%_%P*FB<*"
^XMB(3.9,22,2,9303,0)="""DATA"",396.18,462,3,231,0)"
^XMB(3.9,22,2,9304,0)="M$CA$(29(L;(B.ZMM@M-F8K1I-%;(RM2MPD!3FQ+>F*(V(JC!A*X)A8]F*WS_"
^XMB(3.9,22,2,9305,0)="""DATA"",396.18,462,3,232,0)"
^XMB(3.9,22,2,9306,0)="M'/!;*GR,7&,F-UL([LX6\-@6GM'F""R<I8E^$AH""U*,^^Y-<?.PLAM@L!S*],"
^XMB(3.9,22,2,9307,0)="""DATA"",396.18,462,3,233,0)"
^XMB(3.9,22,2,9308,0)="M8HCBF7Z'W*T8PCEB.%KO8RN>W.F`GK<Y.4-;5$QXA6NV#TI<?!#@@7``9J_$"
^XMB(3.9,22,2,9309,0)="""DATA"",396.18,462,3,234,0)"
^XMB(3.9,22,2,9310,0)="M-]!!L`G=Z`]U0:_;^F'WR!LN2AYI\=!\S5FT6UXI9""I:EFONGUIU%;_SX.2D"
^XMB(3.9,22,2,9311,0)="""DATA"",396.18,462,3,235,0)"
^XMB(3.9,22,2,9312,0)="M)I3C[OQ7Y&PZR83I0%$TB<$XQ%`1,UM.<+>6$]^=`POMWBG\23SN:.WF\'ZZ"
^XMB(3.9,22,2,9313,0)="""DATA"",396.18,462,3,236,0)"
^XMB(3.9,22,2,9314,0)="M!X^7WD!L*O7YYF(+[U9LR1RQ?0,B$B15`I!4;:%]"")H4""0U%)<V-2D&!_Z=3"
^XMB(3.9,22,2,9315,0)="""DATA"",396.18,462,3,237,0)"
^XMB(3.9,22,2,9316,0)="MYDR\4PMA;H)SJC%.[?0Z![8I1'F:M#B$9D=ZAFI#.#/02](;9#;^#*L:,7S/"
^XMB(3.9,22,2,9317,0)="""DATA"",396.18,462,3,238,0)"
^XMB(3.9,22,2,9318,0)="M=VRC8REASC+!1U]R-NU%N:%+YC)Y&9%7]<0+MMVVKVKI\XOKNH'.+BL,#3'R"
^XMB(3.9,22,2,9319,0)="""DATA"",396.18,462,3,239,0)"
^XMB(3.9,22,2,9320,0)="MG-+M_O9+_C(OKM9,AY9>42[Y?=L:XJY^<I6ON8?A=Q[?Y5W9>(M=Q55BS;/Q"
^XMB(3.9,22,2,9321,0)="""DATA"",396.18,462,3,240,0)"
^XMB(3.9,22,2,9322,0)="MAO]6@IN58F2V4K6#V;$)""2S0$+;2R""30Y,%(YQ@IL;-?[XXE<D&9ACFS0_`#"
^XMB(3.9,22,2,9323,0)="""DATA"",396.18,462,3,241,0)"
^XMB(3.9,22,2,9324,0)="M.^3;?L@<""HR/NT+RSML]NS,""'H_C^\X/O%(85*_WOS-7T7JW;I\^SA^\L<RS"
^XMB(3.9,22,2,9325,0)="""DATA"",396.18,462,3,242,0)"
^XMB(3.9,22,2,9326,0)="MCT7)TIB%\'Z+=5Z(>ES#-5-0#W:B\*B3&0X*E>L@?O-J6U;2(SC,3_W""YN>;"
^XMB(3.9,22,2,9327,0)="""DATA"",396.18,462,3,243,0)"
^XMB(3.9,22,2,9328,0)="M)3H*(8!!$-T,@[^S6W#G+]?'Y8(YUVA>2!?=R[Y?PC_1=DQT#&KQLT_>\<F;"
^XMB(3.9,22,2,9329,0)="""DATA"",396.18,462,3,244,0)"
^XMB(3.9,22,2,9330,0)="MDS/O]-7)Q<EO9T>GK\X=(""#8'0*(!8AP[/[@LV=YN:VO/4$(8+FC\*=[/7`1"
^XMB(3.9,22,2,9331,0)="""DATA"",396.18,462,3,245,0)"
^XMB(3.9,22,2,9332,0)="M5Q2ZSU7ANPY*&]Y,8&>#LG*%%,](7%UO2]ZAH&Q[V.29EU_MM9!+CW^`?KTJ"
^XMB(3.9,22,2,9333,0)="""DATA"",396.18,462,3,246,0)"
^XMB(3.9,22,2,9334,0)="MUWDF]F5-8%++TWO4/LNN%$./77!(9L""0`C""$R%UD+=^TD?8'JS;-,""@""G%""("
^XMB(3.9,22,2,9335,0)="""DATA"",396.18,462,3,247,0)"
^XMB(3.9,22,2,9336,0)="M9LSLJ/9XF7[!TI3E!&HB,T$FNFLR?I)A`I#A,$1W[7^874]'\`/?U<1WQ9.R"
^XMB(3.9,22,2,9337,0)="""DATA"",396.18,462,3,248,0)"
^XMB(3.9,22,2,9338,0)="M2IU%%2%72<G[FB2H%#T(RB2H:0HY\ITEA8B[J&)85`\V9>:0WV-R\+P-S7+W"
^XMB(3.9,22,2,9339,0)="""DATA"",396.18,462,3,249,0)"
^XMB(3.9,22,2,9340,0)="M!($\)`C?/'T<V^CCT?B$""$0?AU($$F'W9[*VV8J%+@#Q!\$&3#""3/M@KO2NK"
^XMB(3.9,22,2,9341,0)="""DATA"",396.18,462,3,250,0)"
^XMB(3.9,22,2,9342,0)="MP4;;),AYGB2Z%27G??&DHDVY6ZQXW4@HVW95-N5'%FZO:J]>E;OUTN._8BQ2"
^XMB(3.9,22,2,9343,0)="""DATA"",396.18,462,3,251,0)"
^XMB(3.9,22,2,9344,0)="M!I%12>R=Y9B2LT])N@=%RO2M?3YR!S2<=*:(40Q3DV<20H[VI"")>O2LWX@DR"
^XMB(3.9,22,2,9345,0)="""DATA"",396.18,462,3,252,0)"
^XMB(3.9,22,2,9346,0)="M#N+F^YVES`VU7&'^2@IW7-5VA;0!(OQ0/IM3/O-G]GQ#EYXO00`W-H#U,47S"
^XMB(3.9,22,2,9347,0)="""DATA"",396.18,462,3,253,0)"
^XMB(3.9,22,2,9348,0)="M>""<H_$.;OJ>29VBR3[00I9?>,_P)]!/D9'S!+.-#!*2T1BE<O,;8U))'P8/Y"
^XMB(3.9,22,2,9349,0)="""DATA"",396.18,462,3,254,0)"
^XMB(3.9,22,2,9350,0)="MS3$_/./9#8K5Q18['#_N9O3$G^&7`E,H_B!0<D%\.0^T&9[5[&""CDQ_]S^E="
^XMB(3.9,22,2,9351,0)="""DATA"",396.18,462,3,255,0)"
^XMB(3.9,22,2,9352,0)="MWENZ%,7-DVU>\`MG5!R^4DT.-#BKN8V,33,U:VHGYPOB__X?4$L#!!0``@`("
^XMB(3.9,22,2,9353,0)="""DATA"",396.18,462,3,256,0)"
^XMB(3.9,22,2,9354,0)="M`*=UZC2\Z""&S^@\``%AC```9````4VMI;E]$:7-E87-E<U\Q,3$N<&YL+F-D"
^XMB(3.9,22,2,9355,0)="""DATA"",396.18,462,3,257,0)"
^XMB(3.9,22,2,9356,0)="M9=4<:W/:2/+SIFK_PQ1?-MDDV.+MJ\MM82PGU!KP(K*W^>02,!A50&(EX=C_"
^XMB(3.9,22,2,9357,0)="""DATA"",396.18,462,3,258,0)"
^XMB(3.9,22,2,9358,0)="M_GI&SWEI!ANR.2HIPZBG7]/=TST/G9VAV_'`0<XB]';QSZ]^?C5<H6LOC.+I"
^XMB(3.9,22,2,9359,0)="""DATA"",396.18,462,3,259,0)"
^XMB(3.9,22,2,9360,0)="MWO]@_?P*7>&5Y^/Q?HM#;X&<Z=T(+R>W=T-_L=DO\1(@$')P+#Y!']!YWM^)"
^XMB(3.9,22,2,9361,0)="""DATA"",396.18,462,3,260,0)"
^XMB(3.9,22,2,9362,0)="M0\^_+X""F^.\]CF)9__P1((#&P>U_1U-WZ04?PV""_Z]8=O,$+>#J,\9;PB^CG"
^XMB(3.9,22,2,9363,0)="""DATA"",396.18,462,3,261,0)"
^XMB(3.9,22,2,9364,0)="M[""Q#PL);5M[!@PZ`LC8(_-CS]QA]""\*OA*G`1_C1W2)XOMNX,:X!TI\2MJ.<"
^XMB(3.9,22,2,9365,0)="""DATA"",396.18,462,3,262,0)"
^XMB(3.9,22,2,9366,0)="M[=LPF&_P]AWY/K62/XWD3S/]TX1^*1,I-""%70T7SU!):&D)+4VS)FU1LW=UX"
^XMB(3.9,22,2,9367,0)="""DATA"",396.18,462,3,263,0)"
^XMB(3.9,22,2,9368,0)="M44S9&&R""""--OGX)HY\7N1N""*`O-$:#^^,4.A))\!2,C>.?OMU@V?1&S5M+)^"
^XMB(3.9,22,2,9369,0)="""DATA"",396.18,462,3,264,0)"
^XMB(3.9,22,2,9370,0)="M2IHC'$7N?4)LLO-\+_#I]ZM'^N?&*G""FH#RIM!???/7(M]Q82B[Z5S?)L'^\"
^XMB(3.9,22,2,9371,0)="""DATA"",396.18,462,3,265,0)"
^XMB(3.9,22,2,9372,0)="MH'_M!V^)_47""UK13X`!`84`_7O!-67<!M*/DX,IS[_T@\J*$9""*]O5J!L2>*"
^XMB(3.9,22,2,9373,0)="""DATA"",396.18,462,3,266,0)"
^XMB(3.9,22,2,9374,0)="M*-EC#BO@%V1.,`B:**PR^?#<3*<EI%,=\..=#?Y89H,VZ+LY^_F6ZY@T:;HZ"
^XMB(3.9,22,2,9375,0)="""DATA"",396.18,462,3,267,0)"
^XMB(3.9,22,2,9376,0)="MH-Y4M*)SJ5'3O;_!8:DC_:GI0HW\[D\W]%QP.L[1\G8-DMD:A^ZNY$-I@XYV"
^XMB(3.9,22,2,9377,0)="""DATA"",396.18,462,3,268,0)"
^XMB(3.9,22,2,9378,0)="ML`^!""*OC4J-1=[XGUXE7Q9=@C[9[""""Q1,AZ>OPK""K1L31X-_\1JC"",(MBIZV"
^XMB(3.9,22,2,9379,0)="""DATA"",396.18,462,3,269,0)"
^XMB(3.9,22,2,9380,0)="MNSC81O4:C^K6]?'&JE\2-N)@%4*<!L37[@9HGYW1$.T',?#U4[E#@^GP@8)S"
^XMB(3.9,22,2,9381,0)="""DATA"",396.18,462,3,270,0)"
^XMB(3.9,22,2,9382,0)="M($T]2$L/TCXG'ZL2,'%7^\'=U(K&-`*DK:S,U/_$68N9M/@^E_LX#OQ6_4\O"
^XMB(3.9,22,2,9383,0)="""DATA"",396.18,462,3,271,0)"
^XMB(3.9,22,2,9384,0)="M\A(3TB*HM%+XRIHG>28=;(GM:D$8(F4F_""*E&!?TQR1M$`B/TV1""%7NV2:`O"
^XMB(3.9,22,2,9385,0)="""DATA"",396.18,462,3,272,0)"
^XMB(3.9,22,2,9386,0)="MAZ`M&_MM?SE<$47\_.KL['W^05-\O]^X(1H$2XR*]@3NU^*#;&)_8VI_P^MB"
^XMB(3.9,22,2,9387,0)="""DATA"",396.18,462,3,273,0)"
^XMB(3.9,22,2,9388,0)="M&!KUP<9;?*79RBS<EUB0FW,""`]QX*YIKY8B:!R)*+2_%Q'&;L#S%BR!<1O#W"
^XMB(3.9,22,2,9389,0)="""DATA"",396.18,462,3,274,0)"
^XMB(3.9,22,2,9390,0)="MP</?$/^<FD7""0FX]]\1Z$DMO"")E3D9G-G]""?_>D$S?<Q\4GD/KC>A@QXK9S/"
^XMB(3.9,22,2,9391,0)="""DATA"",396.18,462,3,275,0)"
^XMB(3.9,22,2,9392,0)="MD5#33E#-\"".-$H/W*P_,(DPX^N9&\%6+E(:*5%!SAO_]GZ-P;$:[>3QE-7/2"
^XMB(3.9,22,2,9393,0)="""DATA"",396.18,462,3,276,0)"
^XMB(3.9,22,2,9394,0)="MD`][""\B^DG$\C=*:1U1:4Z8TULHSHJFM?Y!8NC3.IG!_[,F,)O&>I%-+@9>-"
^XMB(3.9,22,2,9395,0)="""DATA"",396.18,462,3,277,0)"
^XMB(3.9,22,2,9396,0)="M!H<:$17VE'Y29H_Y^18<!JHQ<!@ZL\XSQR&8,4RO.)UL8Q((R0P;XET0QC7H"
^XMB(3.9,22,2,9397,0)="""DATA"",396.18,462,3,278,0)"
^XMB(3.9,22,2,9398,0)="M.%B[X6NK^8;0R:S@6=:@D;YY4NE9#XB^EQK$(?V>X_6<:/./:)1EM""""3FTU6"
^XMB(3.9,22,2,9399,0)="""DATA"",396.18,462,3,279,0)"
^XMB(3.9,22,2,9400,0)="M?W%S=-;/-+MBW3Z;Q)'S!%:V)1E$FE(6P68R)37N9?!HR0TZF<&KH,:!CTNF"
^XMB(3.9,22,2,9401,0)="""DATA"",396.18,462,3,280,0)"
^XMB(3.9,22,2,9402,0)="MKP(%U4]`/R&C_QMW#DGG1=WVB;&7)O322L<VL!H2@$PU2""^'""=U,@0@--M@-"
^XMB(3.9,22,2,9403,0)="""DATA"",396.18,462,3,281,0)"
^XMB(3.9,22,2,9404,0)="MMT""V(%_)4-Y3[C45^L@U=U*V\EI>S4C-$""YC.)6P9&9Z84\N:(D;,/E9B-UX"
^XMB(3.9,22,2,9405,0)="""DATA"",396.18,462,3,282,0)"
^XMB(3.9,22,2,9406,0)="MB_VX,'6H(,`:]""4$%TTD0+2*PQ$CDEAK\*8LJ;`**$4HDQ$G)JVG+HR_G+P`"
^XMB(3.9,22,2,9407,0)="""DATA"",396.18,462,3,283,0)"
^XMB(3.9,22,2,9408,0)="MEF#JB#DV%XO,ZC%Y:E.=P#>K$_@RIM:!F)B:@D75Y5`A^9J+:D&EB$3$0-OU"
^XMB(3.9,22,2,9409,0)="""DATA"",396.18,462,3,284,0)"
^XMB(3.9,22,2,9410,0)="M&U)WB?--CJGTXVUI2<#UHV\XA#`.>0%9#[#J:`:3RB(`EFD#R6<]6L[%F877"
^XMB(3.9,22,2,9411,0)="""DATA"",396.18,462,3,285,0)"
^XMB(3.9,22,2,9412,0)="M5=-WP8_%,_1<?AH)/[Z[Q2A8T0E/R8>$C<Z1V&@E;*QH=N\OG@[D91!LYP&)"
^XMB(3.9,22,2,9413,0)="""DATA"",396.18,462,3,286,0)"
^XMB(3.9,22,2,9414,0)="M4N=,'OYL=MH).\M]F*[BK-`^PLA+%G-V+G2Q&F@+-KB.ZF8Y#/6F""WD4?2Z;"
^XMB(3.9,22,2,9415,0)="""DATA"",396.18,462,3,287,0)"
^XMB(3.9,22,2,9416,0)="M'6#S:9<,G*&B6.<^/RX_W7H1II$7(1?L/(R]10#92AAXRW?(VV[W?A#M=[L0"
^XMB(3.9,22,2,9417,0)="""DATA"",396.18,462,3,288,0)"
^XMB(3.9,22,2,9418,0)="M<B+O`7@/D8\],J$?PGGCN(SWZHBLB""),5T0C1J&_O8BM+*Z7?*9WK%AR44=7"
^XMB(3.9,22,2,9419,0)="""DATA"",396.18,462,3,289,0)"
^XMB(3.9,22,2,9420,0)="M.%J$'B2QD8K]NEDMD-&3)K#YFK6\CSI<YMAD,9;Y2>J'R?AJ.!M.QFAJ__%Y"
^XMB(3.9,22,2,9421,0)="""DATA"",396.18,462,3,290,0)"
^XMB(3.9,22,2,9422,0)="M.!V./Z+9U.[/1O9X]B]$Y""C0#\>V0P3[U)_F@D'W:T[7SV)DW!_9:'*M(&Z9"
^XMB(3.9,22,2,9423,0)="""DATA"",396.18,462,3,291,0)"
^XMB(3.9,22,2,9424,0)="M4^\^A_K5Q.E_M%F276.2G>>0O""8*M\>#+T3JSPY'O&-""G(_`AXG\>=JG`Y^0"
^XMB(3.9,22,2,9425,0)="""DATA"",396.18,462,3,292,0)"
^XMB(3.9,22,2,9426,0)="M1\,QNNT[,XBQ[T>3\>R3DS/$DZGFJ2KV'L3@[,NMPB(J:1S`'1^*""_9,H<=)"
^XMB(3.9,22,2,9427,0)="""DATA"",396.18,462,3,293,0)"
^XMB(3.9,22,2,9428,0)="M%$V7I4V$RH1!0P?U%1+QE%B1""IE,YY<7<6G,8TV8>L@\X_KB_).$1ZE(U;*I"
^XMB(3.9,22,2,9429,0)="""DATA"",396.18,462,3,294,0)"
^XMB(3.9,22,2,9430,0)="M5LN,A'*&5S:RKZ_MP<PQL2N.F))ER2QSF""/:SF`ZO+21GL&,2%5H<.Q9#MK*"
^XMB(3.9,22,2,9431,0)="""DATA"",396.18,462,3,295,0)"
^XMB(3.9,22,2,9432,0)="M9SV>Z*\G_?#C:U@524N*CK(Z,4GSY*<TSLUA&Y6@\A18*+[;LD9+WMJ1MG:9"
^XMB(3.9,22,2,9433,0)="""DATA"",396.18,462,3,296,0)"
^XMB(3.9,22,2,9434,0)="MK9<D<4JVDJ.#TR)F_:!SKELWZHD`!Z1CLCI;)""P4T`+EJJ6-7GGA`K2S2#:0"
^XMB(3.9,22,2,9435,0)="""DATA"",396.18,462,3,297,0)"
^XMB(3.9,22,2,9436,0)="M(2/+2SYJ5:5]M%Y]457SMJKWT4J(+@Y$Q.^CE7%9ZMT]?C==NEO.E(F-EKQ,"
^XMB(3.9,22,2,9437,0)="""DATA"",396.18,462,3,298,0)"
^XMB(3.9,22,2,9438,0)="M9#%Q#>7,%_)82'SC<N&LR,K+5)N*1-N8[#++K@,_@JXPB$LOPFY$JQ85)[+2"
^XMB(3.9,22,2,9439,0)="""DATA"",396.18,462,3,299,0)"
^XMB(3.9,22,2,9440,0)="M=$X6T(A;'D,!F4&9J$/!0[&`6JBK^U)M%3P&!+TAIXIZA#K3T:R&.7Y1J:ID"
^XMB(3.9,22,2,9441,0)="""DATA"",396.18,462,3,300,0)"
^XMB(3.9,22,2,9442,0)="MP7.N7/!\`0_9FOU+^9`-'KCKD4=/QZYJ3ZF$7E9+LN=S\K[7BL""2/!C9HPF)"
^XMB(3.9,22,2,9443,0)="""DATA"",396.18,462,3,301,0)"
^XMB(3.9,22,2,9444,0)="M(337R+'R0:?X7BXFBX2EC(3)"";)\I42L>1""Q/&V:C$G*`_G2U=""Q^U#)3*9("
^XMB(3.9,22,2,9445,0)="""DATA"",396.18,462,3,302,0)"
^XMB(3.9,22,2,9446,0)="MP4E3S\E@,KJ<7$[^`K>U_YH9""_YYZM!B123,(=0HH7N0#B:S3S815DV]C%-#"
^XMB(3.9,22,2,9447,0)="""DATA"",396.18,462,3,303,0)"
^XMB(3.9,22,2,9448,0)="MVCJ(M/,[%(S.E]'M;#)R&'*6GAPXVM""94:4X]@WDNS:P;8],27]Q`'@X$,DK"
^XMB(3.9,22,2,9449,0)="""DATA"",396.18,462,3,304,0)"
^XMB(3.9,22,2,9450,0)="M\#Z#$];E""QTUGC$^:GXSE#2*</E\YNDINUE:3\PX6PSAJ!TA9R]""#9.R6TU]"
^XMB(3.9,22,2,9451,0)="""DATA"",396.18,462,3,305,0)"
^XMB(3.9,22,2,9452,0)="MSLZE,I(>0N+6Y1NW-&_A\NM\#E6FUY:TL2%K;91.J4ZFFXIIARM&\E2?76J1"
^XMB(3.9,22,2,9453,0)="""DATA"",396.18,462,3,306,0)"
^XMB(3.9,22,2,9454,0)="M/F2,IYSS=B6Y=BGA[6HS;9$)/:$\<Y;J7T6?VQ#,M:&4^/0\T-Q^3Q88R'&_"
^XMB(3.9,22,2,9455,0)="""DATA"",396.18,462,3,307,0)"
^XMB(3.9,22,2,9456,0)="M?&#6>/$5..G5Z3=)[DRYD6U_<U5<6X!@-LMDA#(.E90X@()466T5?/#E`F^."
^XMB(3.9,22,2,9457,0)="""DATA"",396.18,462,3,308,0)"
^XMB(3.9,22,2,9458,0)="M[2IS+#T\9X(54[`UU4;)`K9,S;.0KI)L9:['43:';<K,3BN/H;FWI>;^?R18"
^XMB(3.9,22,2,9459,0)="""DATA"",396.18,462,3,309,0)"
^XMB(3.9,22,2,9460,0)="MMK7/'LP$O[I=/T7TI`XY>""I""4)C^PL>\-U@:M^LHW2YYWJU^WFEJW=:RM""`5"
^XMB(3.9,22,2,9461,0)="""DATA"",396.18,462,3,310,0)"
^XMB(3.9,22,2,9462,0)="MOL\HKF,6`2Q=!.BH(X`HM0R@T]3'$$9N-4Q%H#$(5`UI?Z72>""P<8,526B*V"
^XMB(3.9,22,2,9463,0)="""DATA"",396.18,462,3,311,0)"
^XMB(3.9,22,2,9464,0)="MS'+%.9RY<D-^5P3,LS,'I@NZU]_?!#N\$&>.AL:$+ZI-M'&NM3]#NVKH[.I"""
^XMB(3.9,22,2,9465,0)="""DATA"",396.18,462,3,312,0)"
^XMB(3.9,22,2,9466,0)="M8S:-<_V(=JHLHE.IR4R!J$\V.@4]MJOUV&AH]-C2ZK%KIL>V1H^-ADZ/+;T>"
^XMB(3.9,22,2,9467,0)="""DATA"",396.18,462,3,313,0)"
^XMB(3.9,22,2,9468,0)="MNU5Z[%;J$7UZVN%P[2U#<D>*Y[ZE46/;,)CUS)35TBFK;>K?/?-5]5YEB@,:"
^XMB(3.9,22,2,9469,0)="""DATA"",396.18,462,3,314,0)"
^XMB(3.9,22,2,9470,0)="M&N-@MW&C[3NT=3?>O>^2,V@LX]UJ/774TP(M#R[,U-/5J*=CF80LZZ*""NL1`"
^XMB(3.9,22,2,9471,0)="""DATA"",396.18,462,3,315,0)"
^XMB(3.9,22,2,9472,0)="M""O$OL0_B\UQU-+(W*F671""RI[!V=[`VC<'U>05V4_0K3:URQ%R$<+WB6FAKG"
^XMB(3.9,22,2,9473,0)="""DATA"",396.18,462,3,316,0)"
^XMB(3.9,22,2,9474,0)="MZ&EBC"":6-_6QO*>%,+2LIL[Q>KHHI9L.F@;304\/<F&"")58'PXMRI""Q;.:U="
^XMB(3.9,22,2,9475,0)="""DATA"",396.18,462,3,317,0)"
^XMB(3.9,22,2,9476,0)="M2S6-)EM(MY&4""8/$T""W-4%11+.U<G3A'*8Z8[^?38!^3Y2#)""DUZ2%BZZ\9>"
^XMB(3.9,22,2,9477,0)="""DATA"",396.18,462,3,318,0)"
^XMB(3.9,22,2,9478,0)="M5$^/Z/(7W-.;ZZ1Y5[K3LUB[_GUZ-=X$>3H42/+)[LQEB\^UVPW=NB&'I?8A"
^XMB(3.9,22,2,9479,0)="""DATA"",396.18,462,3,319,0)"
^XMB(3.9,22,2,9480,0)="M1G&`O.2^/G)1=C<@O1]=K[W-UI^*+S5R)/""7D>L3;+/TQGST""P(E;;SX"":V"""
^XMB(3.9,22,2,9481,0)="""DATA"",396.18,462,3,320,0)"
^XMB(3.9,22,2,9482,0)="MO;]$\#]=1_]ELB/['0`QI^M0R(UI^SR`7]ML7R1:A!C[:.'ZA+-]!$H`SMSE"
^XMB(3.9,22,2,9483,0)="""DATA"",396.18,462,3,321,0)"
^XMB(3.9,22,2,9484,0)="M4N0JOZ9?KV7BX6S;*RF_GODJ@10/0<K=$02[J+HG>-._M&\2<Z2O3:#&G'ZG"
^XMB(3.9,22,2,9485,0)="""DATA"",396.18,462,3,322,0)"
^XMB(3.9,22,2,9486,0)="MKU""@7-F/7CSY'1BQF`46\8T)\-C0J(1QSVV)N2.6V]'(O@)JJH)70,E@V^(0"
^XMB(3.9,22,2,9487,0)="""DATA"",396.18,462,3,323,0)"
^XMB(3.9,22,2,9488,0)="M3!*,);,HE026,""9`60Z)5!\]Y42;']0H6&R3K\2>\""/=;S'C[MR,N_%D)G*8"
^XMB(3.9,22,2,9489,0)="""DATA"",396.18,462,3,324,0)"
^XMB(3.9,22,2,9490,0)="M>QO96""K\6K3E]&)T<3T_=N?,647V:^:]Y!AN?$(_U/H>@8C7P*]#]A3)U>S"""
^XMB(3.9,22,2,9491,0)="""DATA"",396.18,462,3,325,0)"
^XMB(3.9,22,2,9492,0)="M&X\[0""6?-`VTK%-4^<2AC'*L(L#X#2,?/X""2W8AD#BMRPBHAF'.?S2?2._SD"
^XMB(3.9,22,2,9493,0)="""DATA"",396.18,462,3,326,0)"
^XMB(3.9,22,2,9494,0)="M4D<`$1\2C_PT-1D*""@$:__2(Z+D%BGGOTPU*H+.DY5[E(4^16@)7DV\S=PW["
^XMB(3.9,22,2,9495,0)="""DATA"",396.18,462,3,327,0)"
^XMB(3.9,22,2,9496,0)="M=VO5A^!U_3LU[<'U""A0%J.YZJ^JDHP0GVT^'6'E(48=9QK/\E)I""=3VQ?P8B"
^XMB(3.9,22,2,9497,0)="""DATA"",396.18,462,3,328,0)"
^XMB(3.9,22,2,9498,0)="M[#+7)DEH^>1%<1`^D<!""G)SXZ]U5<GXC0J_!XD;4XHH3ZVF'-^_0$P2OM?N`"
^XMB(3.9,22,2,9499,0)="""DATA"",396.18,462,3,329,0)"
^XMB(3.9,22,2,9500,0)="M.;-[AW9)%$H.,:(%2;7(69#TQ0^$:NGE#_6R1)67A=)K?@H)BY<-I+M_Y2,U"
^XMB(3.9,22,2,9501,0)="""DATA"",396.18,462,3,330,0)"
^XMB(3.9,22,2,9502,0)="MI8.'""N4U6NESNQ3ZK_EC'WH\W2HT^6$;`WZ:58@L8SR6""@VW55>-*0=685.="
^XMB(3.9,22,2,9503,0)="""DATA"",396.18,462,3,331,0)"
^XMB(3.9,22,2,9504,0)="MQ*A&6_2J%+9A+FV#1\0=>1+\X4""'R)ZF3R#=2P_L'-D?3`ZW(<$C%""XA>75'"
^XMB(3.9,22,2,9505,0)="""DATA"",396.18,462,3,332,0)"
^XMB(3.9,22,2,9506,0)="MT2G/3K-;LG=>E!P[I=-@_E(-Q)P:XP_2(/$M'PFITH^W@HYG$AV_0[)C0609"
^XMB(3.9,22,2,9507,0)="""DATA"",396.18,462,3,333,0)"
^XMB(3.9,22,2,9508,0)="M<^4MB@-2KZ,W4`H0M""2[`&:6PAV.[%,R*J2JF%0W-T\A5GI#Q:,I%=18U&;F"
^XMB(3.9,22,2,9509,0)="""DATA"",396.18,462,3,334,0)"
^XMB(3.9,22,2,9510,0)="M-*_*HFQ$;E5E=ZNK;U*]3,K\I*<PQ%;K.X_Q2X07I)=K@YIN6R'7*<:8]/@["
^XMB(3.9,22,2,9511,0)="""DATA"",396.18,462,3,335,0)"
^XMB(3.9,22,2,9512,0)="MO8D49=G\NH@A^;&[LET?.,+J[70>4KXG>NIQ]??;.7P%6+SS(BB/9>/[/DEL"
^XMB(3.9,22,2,9513,0)="""DATA"",396.18,462,3,336,0)"
^XMB(3.9,22,2,9514,0)="M=SCT@N4+1UFQU:Z'.F?U(?.@5G6<.(D2);:4!H]""HR[$D26>D]K.)2]E4*I0"
^XMB(3.9,22,2,9515,0)="""DATA"",396.18,462,3,337,0)"
^XMB(3.9,22,2,9516,0)="MT)E<SN8/+&>(HQVX$[D72<I,Y1T^M<B&=J3>MY#%RXM3QLMKR!?RC16H*+/="
^XMB(3.9,22,2,9517,0)="""DATA"",396.18,462,3,338,0)"
^XMB(3.9,22,2,9518,0)="MAB?A%+:[V91#J>O3+(2]_HJ`]@*C#?&]9/I,4X^7^9UZKT,6A\]+^D(G4=B<"
^XMB(3.9,22,2,9519,0)="""DATA"",396.18,462,3,339,0)"
^XMB(3.9,22,2,9520,0)="M;L5HM>5M=ZX74KT`GM7>7SQ'&5-[]GDZ9M;[9!G5K5UTU1[,D$<L[HS`@6IC"
^XMB(3.9,22,2,9521,0)="""DATA"",396.18,462,3,340,0)"
^XMB(3.9,22,2,9522,0)="MSHT\8QI#K[/;U.1T""<EC!^M-$+KPX]""92WIDX;N+8S_&V=""[X!3$87RRVN+2"
^XMB(3.9,22,2,9523,0)="""DATA"",396.18,462,3,341,0)"
^XMB(3.9,22,2,9524,0)="MVSIX^>8E&5?G&'GERV7LA]F)=0B@;I3+]MN1A>/3R;*_6ZKX^/W4D%\$E^F"""
^XMB(3.9,22,2,9525,0)="""DATA"",396.18,462,3,342,0)"
^XMB(3.9,22,2,9526,0)="MO([*W*2SE<>*R,#]U)YA^<&](UG_=3>[PZVG4A-M4TUT?Q1-K&&Z0$`A.HX"""
^XMB(3.9,22,2,9527,0)="""DATA"",396.18,462,3,343,0)"
^XMB(3.9,22,2,9528,0)="M6EH%&)S:^.[J&$:TX0%#ZN;ZB+[-$]*Q-<3/#4GK=Y@N<L1!L""$^EE8#9%WB"
^XMB(3.9,22,2,9529,0)="""DATA"",396.18,462,3,344,0)"
^XMB(3.9,22,2,9530,0)="M.%IKFII-[T<Q&_RX""\C.)0D[SX_`LCWZ[R_5+0X765P(R!O`Y\'RZ9F2'99`"
^XMB(3.9,22,2,9531,0)="""DATA"",396.18,462,3,345,0)"
^XMB(3.9,22,2,9532,0)="M7?W%K@!RJUKBQ--\4;U?;+T=KJ9W,.-DW5\TT;:/X?(OE.1V'<3!/?COFNQ"""
^XMB(3.9,22,2,9533,0)="""DATA"",396.18,462,3,346,0)"
^XMB(3.9,22,2,9534,0)="M?L4^S92B;%BTHYT-[T^E3;72.WNKA_-C`(34BY1(K&93-$+QS]ZSXUX\3#_I"
^XMB(3.9,22,2,9535,0)="""DATA"",396.18,462,3,347,0)"
^XMB(3.9,22,2,9536,0)="MFJI!Q2RW/!V[Y0K`B&$MQR++$IZ/+$7NAC^6%/_,>$L.</#8N+-#_P-02P,$"
^XMB(3.9,22,2,9537,0)="""DATA"",396.18,462,3,348,0)"
^XMB(3.9,22,2,9538,0)="M%``""``@`IW7J-$4!O^\A!@``F1P``!D```!3:VEN7T1I<V5A<V5S7S$Q,2YP"
^XMB(3.9,22,2,9539,0)="""DATA"",396.18,462,3,349,0)"
^XMB(3.9,22,2,9540,0)="M;FPN<F5PS5EM;]LV$/YNP/^!0+ZT@X/&[W&19J""ELT5$(EF2<N(-1=&N+59L"
^XMB(3.9,22,2,9541,0)="""DATA"",396.18,462,3,350,0)"
^XMB(3.9,22,2,9542,0)="M;89A`_;S=T=)MF5+MN1DP)P/L4X\'H]W]]Q#.E"")!FFY$THR+D-&3_0='G@B"
^XMB(3.9,22,2,9543,0)="""DATA"",396.18,462,3,351,0)"
^XMB(3.9,22,2,9544,0)="MI)=W._9.2!8*""]Q""M_.FP:?;N;E1J=.I4XO%[2U[]8III5/-%LHD[&=KWNL/"
^XMB(3.9,22,2,9545,0)="""DATA"",396.18,462,3,352,0)"
^XMB(3.9,22,2,9546,0)="MWS__/GBW/_#F1L@09/YT<8$CD\_?'L=7].E?7&2B0-\GYL.GKX_+/Q___B-["
^XMB(3.9,22,2,9547,0)="""DATA"",396.18,462,3,353,0)"
^XMB(3.9,22,2,9548,0)="M.3SV<H`ONQT#*P'W3""U8`J$(>,P,!,J$]HA3=0L<%,N#3U__&A<VRA):T@]/"
^XMB(3.9,22,2,9549,0)="""DATA"",396.18,462,3,354,0)"
^XMB(3.9,22,2,9550,0)="M^[0S?W-3DN""8YOK#`_WA[>W_QWO9Q)FZT`>7""Q$#N^?V-<N<K!QYK@GR=""^C"
^XMB(3.9,22,2,9551,0)="""DATA"",396.18,462,3,355,0)"
^XMB(3.9,22,2,9552,0)="MV#T8.&9LV,18.?4#E23XEGP@S6SLR.N5QU9,C04(6-Z^\KB$N$^E5S'(\3E["
^XMB(3.9,22,2,9553,0)="""DATA"",396.18,462,3,356,0)"
^XMB(3.9,22,2,9554,0)="M<^OPG^9+>!\)ZY19[\6A7*3=3N%[/IH=EM/I;?WU\R^_S1__V99X+ACL""X;["
^XMB(3.9,22,2,9555,0)="""DATA"",396.18,462,3,357,0)"
^XMB(3.9,22,2,9556,0)="M@M&^8+POF.P+ION"":Q24);.+BVYG!P69L&P.0BXQ##),`P<A@1ES$>#_.%;W"
^XMB(3.9,22,2,9557,0)="""DATA"",396.18,462,3,358,0)"
^XMB(3.9,22,2,9558,0)="MQ3M!PU_8E]W.Y5,^=5LVJMJRRSS1""E%]Y1ZH#P[5!RW4QX?JXQ;JHT/U40OU"
^XMB(3.9,22,2,9559,0)="""DATA"",396.18,462,3,359,0)"
^XMB(3.9,22,2,9560,0)="MZ:'ZM(7ZY%!]TD+]>JL>\SG$XS;*PSWEZ54+Y=GAPF<E==D47BC\5D,@%B(H"
^XMB(3.9,22,2,9561,0)="""DATA"",396.18,462,3,360,0)"
^XMB(3.9,22,2,9562,0)="MI6^>[5D)0/BZ#G,&#;J$'S>FBBH@`GNP9Q4;B]W.T2Y097B\[W%+\*;""B;BE"
^XMB(3.9,22,2,9563,0)="""DATA"",396.18,462,3,361,0)"
^XMB(3.9,22,2,9564,0)="M$C:`[H)DNTR'.0/<$>(R%%*=:VX=ZP]8HJ2+[(^5Z$[@RQK0'P+AX;N3`2='"
^XMB(3.9,22,2,9565,0)="""DATA"",396.18,462,3,362,0)"
^XMB(3.9,22,2,9566,0)="M^Z.B-6=/1T);`OMV)K>;]/CMXV,)1DL.CJK%P[WHIL9A3S""""]Y@V(N$H#5*'"
^XMB(3.9,22,2,9567,0)="""DATA"",396.18,462,3,363,0)"
^XMB(3.9,22,2,9568,0)="M2U""I92MN@S3&N%N&$`IF[2(#""6=)&CM!""X8G@F=+)-WQ6*;)'`QY`%I8%8)E"
^XMB(3.9,22,2,9569,0)="""DATA"",396.18,462,3,364,0)"
^XMB(3.9,22,2,9570,0)="M86JH$G8RX-)G`))E(U2XZ?+%+$?B,ZK.1-I3CCE()K9F82YPC[#[R&5UKHW:"
^XMB(3.9,22,2,9571,0)="""DATA"",396.18,462,3,365,0)"
^XMB(3.9,22,2,9572,0)="M6R+4""17.OBD\9""Q6XP-S:IOQ6/_5)H>M:\[G+.%5PF.QE!S+""9-`Q]PF6WOU"
^XMB(3.9,22,2,9573,0)="""DATA"",396.18,462,3,366,0)"
^XMB(3.9,22,2,9574,0)="ME*8_*SO9U.3@""DV*1'-A?`EC0!>I#+S'80KD[1PD+FBSFOHU#*[.\IK:`Y=8"
^XMB(3.9,22,2,9575,0)="""DATA"",396.18,462,3,367,0)"
^XMB(3.9,22,2,9576,0)="M#00PS*(M`EG:@+Q.7M?8N_8NGV9G.EI;(E[O"":1/<+1B+,O&UK&SLF]?OAP#"
^XMB(3.9,22,2,9577,0)="""DATA"",396.18,462,3,368,0)"
^XMB(3.9,22,2,9578,0)="MB""TURP7]F@/:AG_YS:1!N\2*6!0/)!`4!%&L##TTJ/_&9>V7Y=8:-EU'R)6*"
^XMB(3.9,22,2,9579,0)="""DATA"",396.18,462,3,369,0)"
^XMB(3.9,22,2,9580,0)="M5^`3XUY@)1_8WPG-I`C-=KY&=;>S2_#@BASD`?B#MH3@CO'%`HA)EE+OP%XC"
^XMB(3.9,22,2,9581,0)="""DATA"",396.18,462,3,370,0)"
^XMB(3.9,22,2,9582,0)="M.G:PX80G6>;A-^QRA:WJNC[""7"":ELJ*]1'0*C-`^>NA3E9621]>E8NJW;]OY"
^XMB(3.9,22,2,9583,0)="""DATA"",396.18,462,3,371,0)"
^XMB(3.9,22,2,9584,0)="M1DPJ,L=BD_'PS&-%-(:?SISFL9N48H>F8KV;.\?#-CG;SVE5A>3N^7UV)[UL"
^XMB(3.9,22,2,9585,0)="""DATA"",396.18,462,3,372,0)"
^XMB(3.9,22,2,9586,0)="M[N.TY&.$>,EB96WAYXG<G#Z1@Q%&1EB:)A*A418)`3G.%JB$0;5'W6Q9%&1*"
^XMB(3.9,22,2,9587,0)="""DATA"",396.18,462,3,373,0)"
^XMB(3.9,22,2,9588,0)="M>+;'5N#`<,GX//:=(,**C*F[:VK]>*A3*J9<QE&>'7*]KBZ;Z_;-R>_<Q^SP"
^XMB(3.9,22,2,9589,0)="""DATA"",396.18,462,3,374,0)"
^XMB(3.9,22,2,9590,0)="M4!+,?&69!&..Q*C'(/@).5&/Q2!LE'`IN""5QG.H4_V4C%<*Z4UX^3_$0BMP*"
^XMB(3.9,22,2,9591,0)="""DATA"",396.18,462,3,375,0)"
^XMB(3.9,22,2,9592,0)="MV:LR^!9%&K_E6D)276(R68HR[0$!86^'DY&%!5C'-Z,""/-9BFY$Y7>.F8,8X"
^XMB(3.9,22,2,9593,0)="""DATA"",396.18,462,3,376,0)"
^XMB(3.9,22,2,9594,0)="MG[\KY#K%5'F;\J1DN$4(_PL61QN+<0SRC(8'K2P>UC-\>A$!#WL>AGL>@WL^"
^XMB(3.9,22,2,9595,0)="""DATA"",396.18,462,3,377,0)"
^XMB(3.9,22,2,9596,0)="M^'C<:8;%UU7TOG8IL_)2G'+8@.<J7/O5-#1YYL&N3U3OD'KX_E<*4.W)KD]W"
^XMB(3.9,22,2,9597,0)="""DATA"",396.18,462,3,378,0)"
^XMB(3.9,22,2,9598,0)="M5/0Y1BVZ'8=)4]R@-EH9[8I?QEPH;=?,HSC6&""V&V""@>`NH7=>YN$!W,Y_:A"
^XMB(3.9,22,2,9599,0)="""DATA"",396.18,462,3,379,0)"
^XMB(3.9,22,2,9600,0)="MP$5[7$7P4=HHAX==2!!>7\##0L4""JV`%.^7X\@A#/8\=>E92K&AA5((0'^<!"
^XMB(3.9,22,2,9601,0)="""DATA"",396.18,462,3,380,0)"
^XMB(3.9,22,2,9602,0)="M\UM:'Y=^0WX8""KZ4A`XGN.'.N`TG;+:M_CA1:-<N>'A>S/RI*,Q.*5@WF^O/"
^XMB(3.9,22,2,9603,0)="""DATA"",396.18,462,3,381,0)"
^XMB(3.9,22,2,9604,0)="M&BNC-F$X=:^+IND&E^E(.;7$Y(RP<_`[R'XEL>D\$:Z63(WK+V`Q]0QH91S%"
^XMB(3.9,22,2,9605,0)="""DATA"",396.18,462,3,382,0)"
^XMB(3.9,22,2,9606,0)="MKV),T9DT9@8YZW,45CQ.>4&W3MWTG3'+X%EF&3_++*-GF67Z++-,GC3+YDZ0"
^XMB(3.9,22,2,9607,0)="""DATA"",396.18,462,3,383,0)"
^XMB(3.9,22,2,9608,0)="M/742NAMDS^#/K!(X3M3""E&YVVFHP^K&%\<W/(@K1/;ML>)LBN-55C@\;_?T+"
^XMB(3.9,22,2,9609,0)="""DATA"",396.18,462,3,384,0)"
^XMB(3.9,22,2,9610,0)="M4$L!`A8+%``""``@`IW7J-.'=G&[F%```<EX``!4``````````0`@`(""!````"
^XMB(3.9,22,2,9611,0)="""DATA"",396.18,462,3,385,0)"
^XMB(3.9,22,2,9612,0)="M`%-K:6Y?1&ES96%S97-?,3$Q+G!N;%!+`0(6""Q0``@`(`*=UZC2EM]'Q31<`"
^XMB(3.9,22,2,9613,0)="""DATA"",396.18,462,3,386,0)"
^XMB(3.9,22,2,9614,0)="M`)^H```9``````````$`(`""`@1D5``!S:VEN7T1I<V5A<V5S7S$Q,2YP;FPN"
^XMB(3.9,22,2,9615,0)="""DATA"",396.18,462,3,387,0)"
^XMB(3.9,22,2,9616,0)="M9G)M4$L!`A8+%``""``@`IW7J-+SH(;/Z#P``6&,``!D``````````0`@`(""!"
^XMB(3.9,22,2,9617,0)="""DATA"",396.18,462,3,388,0)"
^XMB(3.9,22,2,9618,0)="MG2P``%-K:6Y?1&ES96%S97-?,3$Q+G!N;""YC9&502P$""%@L4``(`""`""G=>HT"
^XMB(3.9,22,2,9619,0)="""DATA"",396.18,462,3,389,0)"
^XMB(3.9,22,2,9620,0)="M10&_[R$&``""9'```&0`````````!`""``@('./```4VMI;E]$:7-E87-E<U\Q"
^XMB(3.9,22,2,9621,0)="""DATA"",396.18,462,3,390,0)"
^XMB(3.9,22,2,9622,0)="@,3$N<&YL+G)E<%!+!08`````!``$`!@!```F0P``````"
^XMB(3.9,22,2,9623,0)="""DATA"",396.18,462,3,391,0)"
^XMB(3.9,22,2,9624,0)="end"
^XMB(3.9,22,2,9625,0)="""DATA"",396.18,462,4)"
^XMB(3.9,22,2,9626,0)="9^974683370"
^XMB(3.9,22,2,9627,0)="""DATA"",396.18,462,6)"
^XMB(3.9,22,2,9628,0)="1^271"
^XMB(3.9,22,2,9629,0)="""DATA"",396.18,468,0)"
^XMB(3.9,22,2,9630,0)="FEET~111F"
^XMB(3.9,22,2,9631,0)="""DATA"",396.18,468,1,0)"
^XMB(3.9,22,2,9632,0)="^^2^2^3060728"
^XMB(3.9,22,2,9633,0)="""DATA"",396.18,468,1,1,0)"
^XMB(3.9,22,2,9634,0)="Last updated on 05/24/2006 ~111 "
^XMB(3.9,22,2,9635,0)="""DATA"",396.18,468,1,2,0)"
^XMB(3.9,22,2,9636,0)="Patch DVBA*2.7*111"
^XMB(3.9,22,2,9637,0)="""DATA"",396.18,468,2)"
^XMB(3.9,22,2,9638,0)="3060307^^3060524.1837"
^XMB(3.9,22,2,9639,0)="""DATA"",396.18,468,3,0)"
^XMB(3.9,22,2,9640,0)="^396.184^1823^1823^3060524^^^^"
^XMB(3.9,22,2,9641,0)="""DATA"",396.18,468,3,1,0)"
^XMB(3.9,22,2,9642,0)="begin 664 feet_111.pnl.zip"
^XMB(3.9,22,2,9643,0)="""DATA"",396.18,468,3,2,0)"
^XMB(3.9,22,2,9644,0)="M4$L#!!0``@`(`,"",N#1_]T**070``,Y(`P`,````1F5E=%\Q,3$N<&YLW%U["
^XMB(3.9,22,2,9645,0)="""DATA"",396.18,468,3,3,0)"
^XMB(3.9,22,2,9646,0)="MC!O'>5^2=[R73D_+K\31VDKD4R.=R>5;:.N5[B%=JI,.=^>J;I#X]LCAW4K+"
^XMB(3.9,22,2,9647,0)="""DATA"",396.18,468,3,4,0)"
^XMB(3.9,22,2,9648,0)="M76IW>:<S""H/_N$`3)W71-.@#:=4@==#$+0(CZ#\M@@/:%&F*%$@!!T61/\Y`"
^XMB(3.9,22,2,9649,0)="""DATA"",396.18,468,3,5,0)"
^XMB(3.9,22,2,9650,0)="M^T<+M&CK)/\4A?O-[.QPAKLDEWKY>)(H+G?(^>;W?=\\OL?,KB[-IY*K2YJ)"
^XMB(3.9,22,2,9651,0)="""DATA"",396.18,468,3,6,0)"
^XMB(3.9,22,2,9652,0)="MC&-WZOCMDN:@&<MT;<L8NHJJ;EQ*K%KU^-'A&WK%W4S\))Z\@O2-33?Q3FS\"
^XMB(3.9,22,2,9653,0)="""DATA"",396.18,468,3,7,0)"
^XMB(3.9,22,2,9654,0)="M$MI""QO6&B^R1Y/K6-<M$)^&GCFMKNNDZTXO:'?;=Q]H*_-K$'^AFAQ_HIO^#"
^XMB(3.9,22,2,9655,0)="""DATA"",396.18,468,3,8,0)"
^XMB(3.9,22,2,9656,0)="ML26KWJ@O(K,Q\M@BE,Y;=FWZ#KN9'EW5UJ_;%63')4E:)?""N:NO(.$+^7]VI"
^XMB(3.9,22,2,9657,0)="""DATA"",396.18,468,3,9,0)"
^XMB(3.9,22,2,9658,0)="MH^M5_!L""+E'\@*`;]=#%GZ?@XI,C,UK=U2TS.;PXMWQY3JAJ@OR/*UF8%:IY"
^XMB(3.9,22,2,9659,0)="""DATA"",396.18,468,3,10,0)"
^XMB(3.9,22,2,9660,0)="MDE;SD6`U0_-S<ZM^+0LU;0--X#NOD$O%J^6I&*XE\8Y$J]']:G3_AT10A\@/"
^XMB(3.9,22,2,9661,0)="""DATA"",396.18,468,3,11,0)"
^XMB(3.9,22,2,9662,0)="MR64ZX\FH1,B/4!G]:<R7T5=C0U>`@<GAI>M++RUY\EHP39#7Z/K6LJ8[J#(\"
^XMB(3.9,22,2,9663,0)="""DATA"",396.18,468,3,12,0)"
^XMB(3.9,22,2,9664,0)="M8QD6?""X;*[JQA>Q#\R#\Z9E-S7:0.W)D=F[^XDM75U^9N7)Q>65N==PK)3\9"
^XMB(3.9,22,2,9665,0)="""DATA"",396.18,468,3,13,0)"
^XMB(3.9,22,2,9666,0)="M*1N7#*U\:X+<HTW]Z1CY=$VKH>3DXHJ\HIF.O()LO>K]=,7=,=""$-+ZDV<AT"
^XMB(3.9,22,2,9667,0)="""DATA"",396.18,468,3,14,0)"
^XMB(3.9,22,2,9668,0)="M\:U17F*4PQY$<IE/><QY7>(QQK=\WAQE+#XZCY![05ZUD>;6H'+G/J&\'PE*"
^XMB(3.9,22,2,9669,0)="""DATA"",396.18,468,3,15,0)"
^XMB(3.9,22,2,9670,0)="MLNI<LHR*@$B21E8O-5S7,B<)$.]:R7M(WB9($J_%*)1?\J&<:BG=C&$YB&/,"
^XMB(3.9,22,2,9671,0)="""DATA"",396.18,468,3,16,0)"
^XMB(3.9,22,2,9672,0)="MR'5SQM#+MT9.W/$JNXQ`BGJ9W)2DL=7+MM6H7[+N'""8$_4\>Q?CCA'4?H>KQ"
^XMB(3.9,22,2,9673,0)="""DATA"",396.18,468,3,17,0)"
^XMB(3.9,22,2,9674,0)="M&E./S\08Q07&M@MRYS]SU2HJN_H6$'<<63=E&QDZVM+-#=G9J=5=J^9<:+4Z"
^XMB(3.9,22,2,9675,0)="""DATA"",396.18,468,3,18,0)"
^XMB(3.9,22,2,9676,0)="M%B9.JK'/$A[\C*IZXE^D8)=)K;B:BV07NNPYN0+\D#6S(E=M=+N!S/*.;%7E"
^XMB(3.9,22,2,9677,0)="""DATA"",396.18,468,3,19,0)"
^XMB(3.9,22,2,9678,0)="M&JKH90U_>\HY>V%DSM36#509#=6CK,?]+WC<?][G_G*0\+%9Y)1M?1W)SUGN"
^XMB(3.9,22,2,9679,0)="""DATA"",396.18,468,3,20,0)"
^XMB(3.9,22,2,9680,0)="M)K*?XVL^LCJS=&-Q6:OH%N'R24)""O)?U:,4_2OA^G%+ZC$_I.=HITYE\*C.^"
^XMB(3.9,22,2,9681,0)="""DATA"",396.18,468,3,21,0)"
^XMB(3.9,22,2,9682,0)="MLFEM7[(PPT8/?:KAN'IU9\%%-6=L!+\M:15.Q8>7D>.^V-YE1^!SHV8Z\?@D"
^XMB(3.9,22,2,9683,0)="""DATA"",396.18,468,3,22,0)"
^XMB(3.9,22,2,9684,0)="M^25HI@TB<6+)Q,O(2<:O6=*$IYWDAT*'`]69L6KK%E,=_Y/""L\L?V1)_S^1T"
^XMB(3.9,22,2,9685,0)="""DATA"",396.18,468,3,23,0)"
^XMB(3.9,22,2,9686,0)="MD@.19?P9QPWP&<II0GO#1H%,W4`N2HY`RUQ=,Y)#>/Z0(C(XQS.XU)G!N5*N"
^XMB(3.9,22,2,9687,0)="""DATA"",396.18,468,3,24,0)"
^XMB(3.9,22,2,9688,0)="M+P:/SQEHBRC4BQ&XV@(8[\S(C,#(7^S""R%PIWXN1B0?-R#S/R+5NC""STQ<C#"
^XMB(3.9,22,2,9689,0)="""DATA"",396.18,468,3,25,0)"
^XMB(3.9,22,2,9690,0)="M%^MU8P</#%=@7.F/F4.=F2ETXOAF5V86>S%S^$$SL\`Q,_$;4C=N9NZ1F\#'"
^XMB(3.9,22,2,9691,0)="""DATA"",396.18,468,3,26,0)"
^XMB(3.9,22,2,9692,0)="M2G_<3';F9DX8$G]3ZLK.GIU\Y#[8^7@(.].Y(L_//^_,SWR^4.J+GZ,K#7L#"
^XMB(3.9,22,2,9693,0)="""DATA"",396.18,468,3,27,0)"
^XMB(3.9,22,2,9694,0)="MV3O]<7*4Y^01@9/^*H6R\ITNK,SGBZE>K!Q[T)HI</+=KIK9'R<G%MD4W!\S"
^XMB(3.9,22,2,9695,0)="""DATA"",396.18,468,3,28,0)"
^XMB(3.9,22,2,9696,0)="MQSLS4Q&GZA]U96:A9S>?>-#,+'G,E$GKE%BWZ3W=%S.3U_%RHS\^3DK2\.HB"
^XMB(3.9,22,2,9697,0)="""DATA"",396.18,468,3,29,0)"
^XMB(3.9,22,2,9698,0)="MJEF>/8&OLL+<G<C'`OP[Q3518?R[S_7R3[CU\L2,U;!U9,O7T+:P\)^\JL/:"
^XMB(3.9,22,2,9699,0)="""DATA"",396.18,468,3,30,0)"
^XMB(3.9,22,2,9700,0)="ML85($A;.XRMEL#O!!K6=D7''^64$TBEK1@OMX1""T:4\<SQ&PPS[8?""P,;&J0"
^XMB(3.9,22,2,9701,0)="""DATA"",396.18,468,3,31,0)"
^XMB(3.9,22,2,9702,0)="MP!Z2I(Z&GS?>Q(?(/#A$,?\',\Z_.5B&7ZBEX,DU<28F8/P]*6CYG?0LOV5\"
^XMB(3.9,22,2,9703,0)="""DATA"",396.18,468,3,32,0)"
^XMB(3.9,22,2,9704,0)="M6YZW+%>>NZ/5]IGYEZ:S[37/RO]BP/Q[ZI[-O_%5JDK^2,H^4D-D4EC$_Y""I"
^XMB(3.9,22,2,9705,0)="""DATA"",396.18,468,3,33,0)"
^XMB(3.9,22,2,9706,0)="M23WV^!7+?I4IXO2J#6P`91T[@=6Q=7]9,S=0XNW$X^)M]O7QBPW7\N[W$JLW"
^XMB(3.9,22,2,9707,0)="""DATA"",396.18,468,3,34,0)"
^XMB(3.9,22,2,9708,0)="M.,7'""1>J?G=])\0`_/C<EEX!4P]A4T];-RV[IAGR-OF:O(XTW*NZ&WW%#$_L"
^XMB(3.9,22,2,9709,0)="""DATA"",396.18,468,3,35,0)"
^XMB(3.9,22,2,9710,0)="M;9_EVT%:3S*;CYA\,J*D>]2?X^L?CG<!<X81<(!CLF7+6YI3;AB:S:#I[DX/"
^XMB(3.9,22,2,9711,0)="""DATA"",396.18,468,3,36,0)"
^XMB(3.9,22,2,9712,0)="M<D6>W%R""DOM&&.\8N5K#*1M@.[NV5=\D5C,`E*O02[H3*U%]O>WIZZ=]:G\4"
^XMB(3.9,22,2,9713,0)="""DATA"",396.18,468,3,37,0)"
^XMB(3.9,22,2,9714,0)="M1HU,7+*C;YAZ%08QTY6!EH.',[FJFQ4\_%T()5(0B*@^!U-L]'Z:$;FRX.""F"
^XMB(3.9,22,2,9715,0)="""DATA"",396.18,468,3,38,0)"
^XMB(3.9,22,2,9716,0)="MVX@)A[@`-*-A0C'FJ&F9]!I`0K<'ZG""WAER-?EJ'6=YY<?0&S,<W;*T^QIHT"
^XMB(3.9,22,2,9717,0)="""DATA"",396.18,468,3,39,0)"
^XMB(3.9,22,2,9718,0)="MV6I2.I7FN;SA-^GG69.>9TWZ<DNH0*/A8,)U`^""#5*L@7ET[)V]O(L(<TCZ7"
^XMB(3.9,22,2,9719,0)="""DATA"",396.18,468,3,40,0)"
^XMB(3.9,22,2,9720,0)="M(M`=69,K()$ZJH`L;(3E<:ZEY'7+T5V*1#-W9-=""#G%_X`^&7M-=K55\""\1;"
^XMB(3.9,22,2,9721,0)="""DATA"",396.18,468,3,41,0)"
^XMB(3.9,22,2,9722,0)="ML6Q'KQKH#MQMR;47THS`?=89#\>""(KZP8)*%'@)`>GFSU:).^,J&MMVF9KV:"
^XMB(3.9,22,2,9723,0)="""DATA"",396.18,468,3,42,0)"
^XMB(3.9,22,2,9724,0)="M(RK#/_G-R88H@\$X#R,3]""+""#=P<GA&@]*!^MN,R';#.US<U`P]FP.2;%G8N"
^XMB(3.9,22,2,9725,0)="""DATA"",396.18,468,3,43,0)"
^XMB(3.9,22,2,9726,0)="MRYH#8XIAX'?,7;Q$JQ+_%C""7?""4Z@)(`X(3?93X7TF4^UC;@8$[)%=`#NQ8^"
^XMB(3.9,22,2,9727,0)="""DATA"",396.18,468,3,44,0)"
^XMB(3.9,22,2,9728,0)="M#O""$Z/3O$WK-U]'?Z4HHK*OPA%I>Q"".""%Y'.7/$XF45\4-]FLTBQY48\Q?JH"
^XMB(3.9,22,2,9729,0)="""DATA"",396.18,468,3,45,0)"
^XMB(3.9,22,2,9730,0)="MM7[3<Q7RO?7""OO`N""YRD,\0A@FV:8OOG$#Y.MP06!DVN:[I9;1ARS7+;^!I"""
^XMB(3.9,22,2,9731,0)="""DATA"",396.18,468,3,46,0)"
^XMB(3.9,22,2,9732,0)="M5A%Z'J/[G1""Z4SWH.EAYPV=""@6*1`YIXT[>I?A!""\>=Z4'21""?S$7:073;$_"
^XMB(3.9,22,2,9733,0)="""DATA"",396.18,468,3,47,0)"
^XMB(3.9,22,2,9734,0)="M,*)_'4+TDSV(ZB8,L>NZT;MS9%(\TO_VB?[=/?!V&VFW(N#,I`6<C.2_A9!,"
^XMB(3.9,22,2,9735,0)="""DATA"",396.18,468,3,48,0)"
^XMB(3.9,22,2,9736,0)="M]R#IC08=E@11S-,\[:T)HEF'Z9*G[+=$IH:!DDEEE+ZLTR-+@H;W9Z9*0<.M"
^XMB(3.9,22,2,9737,0)="""DATA"",396.18,468,3,49,0)"
^XMB(3.9,22,2,9738,0)="MD..[WB\$[+84U]+T(-EML6B""*A1Y0=WN)JC^O(43JZR#]NW%;A=27A@V_E#J"
^XMB(3.9,22,2,9739,0)="""DATA"",396.18,468,3,50,0)"
^XMB(3.9,22,2,9740,0)="M)B6E-$A22D234C'-22GQCU(W,67[$M/8#3JZ].T=#_0D8<3[H*N0,@/E`AF."
^XMB(3.9,22,2,9741,0)="""DATA"",396.18,468,3,51,0)"
^XMB(3.9,22,2,9742,0)="M*""3J\=J,""8,>""A%2KK]!;VR%3J]].]T#/4F8#+N/=[G,(`EI).)X5Q*$=+N;"
^XMB(3.9,22,2,9743,0)="""DATA"",396.18,468,3,52,0)"
^XMB(3.9,22,2,9744,0)="MD/KK28<66HN#OEWZ@<XD3N;=A[Q<;I`$-1:Q-Z5X0;7&O#!)9;,/W<,]'B(C"
^XMB(3.9,22,2,9745,0)="""DATA"",396.18,468,3,53,0)"
^XMB(3.9,22,2,9746,0)="M19!1]Q$O.U`RFH@8A2C1B=GCP,_B`1__L\SM7>AS8GJ6&'%@PJ,[6DTW/=L:"
^XMB(3.9,22,2,9747,0)="""DATA"",396.18,468,3,54,0)"
^XMB(3.9,22,2,9748,0)="M#%.Y""G8VME/[[F-A_E#?-W?3\YTE.KM#1Y;1>:N.3$Z1>SI$KR]?U1V7F;+L"
^XMB(3.9,22,2,9749,0)="""DATA"",396.18,468,3,55,0)"
^XMB(3.9,22,2,9750,0)="M8Y;W[;B^A^$2TYL2IS>MR-+AN3O$Z*FL(`/6[&*DJ9T%$S.:81#_#;#B\`KV"
^XMB(3.9,22,2,9751,0)="""DATA"",396.18,468,3,56,0)"
^XMB(3.9,22,2,9752,0)="M]JW;,-57K&TS^=1+9L-I:(;L;%H(VQ<V&(ZN""ZNUY##I&]+$8L-P=8_0V&%/"
^XMB(3.9,22,2,9753,0)="""DATA"",396.18,468,3,57,0)"
^XMB(3.9,22,2,9754,0)="M=;#T<+M&1UM7K57;(=R`5;W.'/HW=!.(C5ZUS`T,.Z+AX`O$TZC+/F_^-:!1"
^XMB(3.9,22,2,9755,0)="""DATA"",396.18,468,3,58,0)"
^XMB(3.9,22,2,9756,0)="MF#?]10G/A[KN.KAT^].N6,CH(`CY+X-""_@0W@*<.X)K5][%[DGS/9\![4@@#"
^XMB(3.9,22,2,9757,0)="""DATA"",396.18,468,3,59,0)"
^XMB(3.9,22,2,9758,0)="MLOG^)'D1A.B)DCC+.ONR0?OO>V'KF_*>)$_&`Y(\SP$I',""%;5[HD_,^`T9B"
^XMB(3.9,22,2,9759,0)="""DATA"",396.18,468,3,60,0)"
^XMB(3.9,22,2,9760,0)="M(7TR4^Q+DOE.H[Q6OMW0;521Z\B1R]I6PY&GL#,7C_QG[WL9G!%B&&\&1?I9"
^XMB(3.9,22,2,9761,0)="""DATA"",396.18,468,3,61,0)"
^XMB(3.9,22,2,9762,0)="M#E'I(""Z#4[Q(G_7=J=\+&V8S_77.*3;,XK[9.?!SW^NOK##""OI0(""'&1PU`8"
^XMB(3.9,22,2,9763,0)="""DATA"",396.18,468,3,62,0)"
^XMB(3.9,22,2,9764,0)="ML.57I'Y)0Q5ZVV3YP]#)LC^3\W2GCKFIU6K08*O?@?502""\4/;,]%D(#98U."
^XMB(3.9,22,2,9765,0)="""DATA"",396.18,468,3,63,0)"
^XMB(3.9,22,2,9766,0)="M1I1@29#@MX.3)""_!5%\23'>6H&$T[L!L:6S@8*$MV_J&7FGT*<^0))A<7I#G"
^XMB(3.9,22,2,9767,0)="""DATA"",396.18,468,3,64,0)"
^XMB(3.9,22,2,9768,0)="M3X/RO,RA&2AOZI&(PVI:,%I?IA-+?*T]#0@O^B+.E'W(Y&A0)FW1CS>""4UV1"
^XMB(3.9,22,2,9769,0)="""DATA"",396.18,468,3,65,0)"
^XMB(3.9,22,2,9770,0)="M:])`377'(LHD)_2Q[_D<>)9Q8*K%@7Q_?>QC*V@++#YWAT\"">*$5UO2%-\3X"
^XMB(3.9,22,2,9771,0)="""DATA"",396.18,468,3,66,0)"
^XMB(3.9,22,2,9772,0)="MVB[%H47=J""1'%RV@I[DH><R_,F!=BRM'R20A@C@Y'X^(7)P?WO>1_WO8Z)++"
^XMB(3.9,22,2,9773,0)="""DATA"",396.18,468,3,67,0)"
^XMB(3.9,22,2,9774,0)="MWX,Q%3*ZA`62^QM93H2X+;.""%I\.SO59#LE`S?6/A:`5DUYN)KKUV;PR`""!/"
^XMB(3.9,22,2,9775,0)="""DATA"",396.18,468,3,68,0)"
^XMB(3.9,22,2,9776,0)="M=DXBI'FV!R6),!Z27Y0NA281?C$DB?`Q+XD0?WW?YA#ZG?&1YA!F]ET.84FP"
^XMB(3.9,22,2,9777,0)="""DATA"",396.18,468,3,69,0)"
^XMB(3.9,22,2,9778,0)="M(3?N.X<P-#.M]!!2!X5D(<&WD7C8N8/Y/$_N4P\A=U!(JQ$=])6'DCR8R>S#"
^XMB(3.9,22,2,9779,0)="""DATA"",396.18,468,3,70,0)"
^XMB(3.9,22,2,9780,0)="MY,'\04X>Y)C?9G%L?-BY@T6A.3\:N-S!M!AVE!]>[F#V8>0.1ED49XI1`PQ*"
^XMB(3.9,22,2,9781,0)="""DATA"",396.18,468,3,71,0)"
^XMB(3.9,22,2,9782,0)="M+K>?`@R=PTE*U'""2DLNG#DXX*>!^4*)&7(`/Z0,8<:'^M,X1E^<XU2[LXXA+"
^XMB(3.9,22,2,9783,0)="""DATA"",396.18,468,3,72,0)"
^XMB(3.9,22,2,9784,0)="M3O#L'@OZ+%(<D.(!C+B4LKPDW^\>5\_LP[@Z3;.)EPF`H0<:5X^T/3+-98MW"
^XMB(3.9,22,2,9785,0)="""DATA"",396.18,468,3,73,0)"
^XMB(3.9,22,2,9786,0)="MC6\HI=(^C6_DA2T@OQ+T`ESA,!0/8'PCG8\<WU!R?>8`/8SX1B3%%`)OLUUB"
^XMB(3.9,22,2,9787,0)="""DATA"",396.18,468,3,74,0)"
^XMB(3.9,22,2,9788,0)="MJ4HND]Z/L=0H*.E4W""6N(7.22^^SN$8DA)G(OE68HU+[V;<J;N.Q@^/,--OH"
^XMB(3.9,22,2,9789,0)="""DATA"",396.18,468,3,75,0)"
^XMB(3.9,22,2,9790,0)="MGBN6!L/;&$F$U,UZLU>P)ITI9A])L""97Z)&6\`HW.""@#EI80`)N+'/V%,2(_"
^XMB(3.9,22,2,9791,0)="""DATA"",396.18,468,3,76,0)"
^XMB(3.9,22,2,9792,0)="M8-'?`%K1-?`_L<[9""H!6&;#8:`""M&'6<#HXI""C<ZI@<]7B/Z&3_?-<::RA_`"
^XMB(3.9,22,2,9793,0)="""DATA"",396.18,468,3,77,0)"
^XMB(3.9,22,2,9794,0)="M&&M.C#1^MVN,-55X*#'6X0<>8^VX%35[<+>B^N$X;S]<]E%M14T)78C1?<!;"
^XMB(3.9,22,2,9795,0)="""DATA"",396.18,468,3,78,0)"
^XMB(3.9,22,2,9796,0)="M4?E3#/+\;J4O/;2=J#Q)T>?YI8>W$96/(&4?Q3Y4GF!^'VU#I5LTXB/""CJQ?"
^XMB(3.9,22,2,9797,0)="""DATA"",396.18,468,3,79,0)"
^XMB(3.9,22,2,9798,0)="M;3=""TIE""MO!(MZ%&2@XK""EN5&ITVP*0S^6SQT6U5BL3W++^KM-%INR+PO9!^"
^XMB(3.9,22,2,9799,0)="""DATA"",396.18,468,3,80,0)"
^XMB(3.9,22,2,9800,0)="M9+M*(S4\'VVC)6[YH]IH&<GU6PC?+54.L[=+'\9NJ:RPT7JF\UXI)9=7!FRC"
^XMB(3.9,22,2,9801,0)="""DATA"",396.18,468,3,81,0)"
^XMB(3.9,22,2,9802,0)="M=0""K,`9V!ZOD!]R.RPJ;L[\J=04[:)NS`V#%TV%ZH""T,V+[,`-I2U""W=2F[@"
^XMB(3.9,22,2,9803,0)="""DATA"",396.18,468,3,82,0)"
^XMB(3.9,22,2,9804,0)="MMG0';-94Y.V<(-J#Z&_W$[NB;&!//Z(-[)T/'Z1C[!]XI_`^1:6%V+GB^F`E"
^XMB(3.9,22,2,9805,0)="""DATA"",396.18,468,3,83,0)"
^XMB(3.9,22,2,9806,0)="M#B;\M?0$E][B=;\9(6WPW9""TP5->VN!%Q]$=LHJ^J%<<^<P9>1:6TV7T81Y"""
^XMB(3.9,22,2,9807,0)="""DATA"",396.18,468,3,84,0)"
^XMB(3.9,22,2,9808,0)="M'[00%`KK-""^X^'S0/)BDK7\!HWDQ-)^LR%65^)K?97\<8FN\,&.9%9VYTKT<"
^XMB(3.9,22,2,9809,0)="""DATA"",396.18,468,3,85,0)"
^XMB(3.9,22,2,9810,0)="M((TQK$)(X;0?$Z$*JH3F>M'M&I2<O\A*_&<(N0PS;<J6;5/;!N='..>\-`FP"
^XMB(3.9,22,2,9811,0)="""DATA"",396.18,468,3,86,0)"
^XMB(3.9,22,2,9812,0)="MX*""?PB=HS+JM`<P+?').Z-G]U""!XPSM2=;Z/Q,NA>]ZKG.:%=88B/L7&Q%>Y"
^XMB(3.9,22,2,9813,0)="""DATA"",396.18,468,3,87,0)"
^XMB(3.9,22,2,9814,0)="M,3'55TK)T9D68U8P8Y)'KMON)MA397F!,"">93,LST->3(PIY=Y+#ES""GDJ-P"
^XMB(3.9,22,2,9815,0)="""DATA"",396.18,468,3,88,0)"
^XMB(3.9,22,2,9816,0)="MWVZXY<WDN$*OH#!Y0S-N(3LY?F,3(:.\J>GWD'@BW4/BB>\/\M3B6U*`21_C"
^XMB(3.9,22,2,9817,0)="""DATA"",396.18,468,3,89,0)"
^XMB(3.9,22,2,9818,0)="MUK:9`5W29GB,[P4QYCB,V0'`&-$@]%-1GB:XGXD%')M<F""_?WS'_^;DJSC3U"
^XMB(3.9,22,2,9819,0)="""DATA"",396.18,468,3,90,0)"
^XMB(3.9,22,2,9820,0)="M'B(1>91HS:""!8_B'+EM6)3DT#XJ?'%JR+%L2UK+\1'J82\!7Z#-!J)?$]]V^"
^XMB(3.9,22,2,9821,0)="""DATA"",396.18,468,3,91,0)"
^XMB(3.9,22,2,9822,0)="MR_R9W^@]DTYXH(EHX*ZS`BTRT'Z:7X?\\?PP-Q,I_@:\__56$<.!_.>6N)[T"
^XMB(3.9,22,2,9823,0)="""DATA"",396.18,468,3,92,0)"
^XMB(3.9,22,2,9824,0)="MYMBY6MVP=O`S2N0K,!Q8]LZ'/[D*D.@>-$^:B:.^QIX+R4&M>$G/5KG<J),H"
^XMB(3.9,22,2,9825,0)="""DATA"",396.18,468,3,93,0)"
^XMB(3.9,22,2,9826,0)="MLV;(FQXHV=&Q$ZZB.S""0VAM(GMK6W4VYHKG(.8NUT2LW-,<E86I9KWHQ:Y(7"
^XMB(3.9,22,2,9827,0)="""DATA"",396.18,468,3,94,0)"
^XMB(3.9,22,2,9828,0)="M;,-LBK9)P72WW%.QX;RS+O$7_A#S0<CL6IS1&@Z:PBT!LGH-&F)!0ZJV59.W"
^XMB(3.9,22,2,9829,0)="""DATA"",396.18,468,3,95,0)"
^XMB(3.9,22,2,9830,0)="M+?L6?BH,:5I:.5\#5FW*=6""H50EQ70I-*/(]H754X%[8@V%60\A6&K@KAI+N"
^XMB(3.9,22,2,9831,0)="""DATA"",396.18,468,3,96,0)"
^XMB(3.9,22,2,9832,0)="MRH<C?"".8,_SKGE+>I*WX<D@K3LTV;)9'76[86#=DQ%0T!*](2NSZE%+\E2""A"
^XMB(3.9,22,2,9833,0)="""DATA"",396.18,468,3,97,0)"
^XMB(3.9,22,2,9834,0)="MX_BA59A(J_*>=1<$&'/MWE>N\AG:\I8F]JR\Q#?\:5KW2K#NHR^1U-16S:VU"
^XMB(3.9,22,2,9835,0)="""DATA"",396.18,468,3,98,0)"
^XMB(3.9,22,2,9836,0)="MU1%^;:7X1PVG//OO]<#JZIF.JZNQR$]&.B8$D@`'Y=&J9W(]047MA#T=Z>0R"
^XMB(3.9,22,2,9837,0)="""DATA"",396.18,468,3,99,0)"
^XMB(3.9,22,2,9838,0)="M<DD:#_2^ANG)`1C$^69#.>5;=6\)SU""+KX:(819GQX.,;4(HBHS]#C-&ZD[3"
^XMB(3.9,22,2,9839,0)="""DATA"",396.18,468,3,100,0)"
^XMB(3.9,22,2,9840,0)="MNC\=K/L$Z;%]5B[LL-F5.N]^><H;R,K]TZ#QD<3WO35U/-9ECX@<UME\240B"
^XMB(3.9,22,2,9841,0)="""DATA"",396.18,468,3,101,0)"
^XMB(3.9,22,2,9842,0)="M5N2XE?BX3^LK84GORTAS+)@)-O""#KHC)T@<E)97EY?)KE-!;(81.K]11&98I"
^XMB(3.9,22,2,9843,0)="""DATA"",396.18,468,3,102,0)"
^XMB(3.9,22,2,9844,0)="M]#%6ACSE[WLY*]=M""XC4G)[4J!9_1Q+(O1Y""[J,^N;JS4][4-5B[E,/HM*_-"
^XMB(3.9,22,2,9845,0)="""DATA"",396.18,468,3,103,0)"
^XMB(3.9,22,2,9846,0)="MG@A9FT&?Y;<OQ8^T/[+NM+\V2Y7Z/&'FQ((C;R$7V9I)E8E_X$W'2'.G,T?G"
^XMB(3.9,22,2,9847,0)="""DATA"",396.18,468,3,104,0)"
^XMB(3.9,22,2,9848,0)="MP/+T[$A\I?@C(^V2IRB_OAMXM`AN>,N)V&D[P/&V[0`*W?A$I:^VNT9:B350"
^XMB(3.9,22,2,9849,0)="""DATA"",396.18,468,3,105,0)"
^XMB(3.9,22,2,9850,0)="M_3V>+W5ZSM`W=/B=O+XC:[`^``6M<-T#3X?)IQ?;=<H7]=GD,ZVRH"":<?00;"
^XMB(3.9,22,2,9851,0)="""DATA"",396.18,468,3,106,0)"
^XMB(3.9,22,2,9852,0)="M!R9;>^0513BB_Q^D`,<4CF.E`4\X[]""5,GSDBXV#?Q/</)`J];E7_`S7F5H3"
^XMB(3.9,22,2,9853,0)="""DATA"",396.18,468,3,107,0)"
^XMB(3.9,22,2,9854,0)="ME[S><,F&J_OK7\*3I8Z*C_#Q#S^@@SM;""W\MK*-QQUU&?;;4T:MXEY6["";C2"
^XMB(3.9,22,2,9855,0)="""DATA"",396.18,468,3,108,0)"
^XMB(3.9,22,2,9856,0)="M\@[2[.2AM.Q:LD(^.,E#""OZ4HY\F<_A3.D4_'H8K_%W_\_%%B^RQ@,K\>U*H"
^XMB(3.9,22,2,9857,0)="""DATA"",396.18,468,3,109,0)"
^XMB(3.9,22,2,9858,0)="MKO)#>R(3""^CJ)SA,`W7J8'C7S/%PW_""[YM>9""#,MN/G""0(:7!+AY?BIMX?U6"
^XMB(3.9,22,2,9859,0)="""DATA"",396.18,468,3,110,0)"
^XMB(3.9,22,2,9860,0)="M*-Z!BD(,A:MS@3>Y7O#5>9:I\RPW]*8',E8JP.7MEL3?2MW@%@8JI""8,Q,?:"
^XMB(3.9,22,2,9861,0)="""DATA"",396.18,468,3,111,0)"
^XMB(3.9,22,2,9862,0)="M!F+_45$>[*\$87,#<;[4]S,38REQ+-Y&Z!;V'I/W$86\.\F1C'^1]2]R_D7>"
^XMB(3.9,22,2,9863,0)="""DATA"",396.18,468,3,112,0)"
^XMB(3.9,22,2,9864,0)="MORCX%T7_HD0O1F'`]J_2[$IA5QEVE657.7:59U<%=E5D5XR&PF@HC(;"":""B,"
^XMB(3.9,22,2,9865,0)="""DATA"",396.18,468,3,113,0)"
^XMB(3.9,22,2,9866,0)="MAL)H*(R&PF@HC(;"":""B,1H;1R#`:&48CPVAD&(T,HY%A-#*,1H;1R#`:648C"
^XMB(3.9,22,2,9867,0)="""DATA"",396.18,468,3,114,0)"
^XMB(3.9,22,2,9868,0)="MRVAD&8TLHY%E-+*,1I;1R#(:648CRVCD&(T<HY&C-*2NVLB[R.([5!E_/VQ5"
^XMB(3.9,22,2,9869,0)="""DATA"",396.18,468,3,115,0)"
^XMB(3.9,22,2,9870,0)="M4$CW_S34^89A8*=4<@P_V>\\N9R$-6SUO+_V28ZN$/-.,_R%;M?FBOZ@G6ZK"
^XMB(3.9,22,2,9871,0)="""DATA"",396.18,468,3,116,0)"
^XMB(3.9,22,2,9872,0)="M&""YUO$-[A_;%*H8>JNEC6@E@>IS#-%!'O\4CK[B%)+E9RH'?91QXGN-`G\=2"
^XMB(3.9,22,2,9873,0)="""DATA"",396.18,468,3,117,0)"
^XMB(3.9,22,2,9874,0)="M<0MNZJ<P=F1?^>[Q:%M!>D('F@J,YD]S'6@0@D%=T@RHD,X0I-<HTC]FL9'_"
^XMB(3.9,22,2,9875,0)="""DATA"",396.18,468,3,118,0)"
^XMB(3.9,22,2,9876,0)="MDPY`;&0X+%N9VD['/<_D:.='WA_W`B,XI]1NE/&M_95O4%+XQTO3$_\3?Q5R"
^XMB(3.9,22,2,9877,0)="""DATA"",396.18,468,3,119,0)"
^XMB(3.9,22,2,9878,0)="M1$AYP=N^2P[-P)$,/X?=,FFB[SER3`K>[RMO;\)_=>^;)OF9C8_E(+L4R'?)"
^XMB(3.9,22,2,9879,0)="""DATA"",396.18,468,3,120,0)"
^XMB(3.9,22,2,9880,0)="MK^5UM*&;WD$CR*PXTSU.X/#/_AJ*""6DM;X:Y(Z=6&NLUW27.0:3A=(9J%95="
^XMB(3.9,22,2,9881,0)="""DATA"",396.18,468,3,121,0)"
^XMB(3.9,22,2,9882,0)="M,*T)@+-A!'Q?'>7&>5J_'@]&AWY[WJ_7I;Y_CR\4W10]H^2<C+#?R/$NW?(T"
^XMB(3.9,22,2,9883,0)="""DATA"",396.18,468,3,122,0)"
^XMB(3.9,22,2,9884,0)="M""<J$M.><7(-)KX$/5S'E""MJP$2*;(V3-BWNVL>^<W'!P,$63-RQ3MVIX/.O!"
^XMB(3.9,22,2,9885,0)="""DATA"",396.18,468,3,123,0)"
^XMB(3.9,22,2,9886,0)="M/27%/V(X?I6""TT+`O0VBIG27KR^2O`\+NR-PHODY63,<B[46B\Y&92!,6EO'"
^XMB(3.9,22,2,9887,0)="""DATA"",396.18,468,3,124,0)"
^XMB(3.9,22,2,9888,0)="M22/>SZ;EB^2\&!(FPVX,>G`/W/&V;B*[K2Y<A.EI&QI.X9<W;&T+;VTA!^/0"
^XMB(3.9,22,2,9889,0)="""DATA"",396.18,468,3,125,0)"
^XMB(3.9,22,2,9890,0)="M>]""-+,!M(YR;HIEEU!-UB7^P\N?\Q?6?A6CX9R^:SC:,GX3M%2\?1C/DVPWD"
^XMB(3.9,22,2,9891,0)="""DATA"",396.18,468,3,126,0)"
^XMB(3.9,22,2,9892,0)="MD(XK:^M6`S2J899]-""&2)!I'HGV^9G@BFPYMGI\ZX#7OFW[SE)#FS:Z@NN;O"
^XMB(3.9,22,2,9893,0)="""DATA"",396.18,468,3,127,0)"
^XMB(3.9,22,2,9894,0)="MS/&4&[<4.B$6#$O>$922JB.^3QHW'9X\XR\X/NF%=WX@M8=W3MWSJ64=I@ZZ"
^XMB(3.9,22,2,9895,0)="""DATA"",396.18,468,3,128,0)"
^XMB(3.9,22,2,9896,0)="M13BN""-N$_J2?D^WHU.&U-+Z?IHQDB*0S-!J4&/8&KY$(3\OU^_PBD>*'.F\L"
^XMB(3.9,22,2,9897,0)="""DATA"",396.18,468,3,129,0)"
^XMB(3.9,22,2,9898,0)="MU+0-Y&6\D$NZP_M5<20^SD)S+\<.+>EE%[KU]*SF:N.__ELQK'FZ6]/JK\+U"
^XMB(3.9,22,2,9899,0)="""DATA"",396.18,468,3,130,0)"
^XMB(3.9,22,2,9900,0)="MI47\/_Z3'Y*D*7@_""Q]7X!631LG]V2_$I.-/2.0E>5^E?YKDG]1L>F_X+USL"
^XMB(3.9,22,2,9901,0)="""DATA"",396.18,468,3,131,0)"
^XMB(3.9,22,2,9902,0)="M[NY*NS_>E?[K^V])DJS"":PU>4""#?A=<NO/8D""6Y+J@PON%""A7(5R%<I5*%>A"
^XMB(3.9,22,2,9903,0)="""DATA"",396.18,468,3,132,0)"
^XMB(3.9,22,2,9904,0)="M'&Y):U""^!N5K\&$-RM>@?`W*U_8H72AO0GESC;1!:D)Y$\J;4`Z7TETHOPOE"
^XMB(3.9,22,2,9905,0)="""DATA"",396.18,468,3,133,0)"
^XMB(3.9,22,2,9906,0)="M=Z'\+I3?A9MWH?PNE,.;M`OENU""^""^6[N.%W<>/A!>7P3]J#\CTHWX/R/2C?"
^XMB(3.9,22,2,9907,0)="""DATA"",396.18,468,3,134,0)"
^XMB(3.9,22,2,9908,0)="M@_(]*-_;\YHOR?#""?]?@U83777CMPFO/@R9#.>!7`;\*^%7`KP)^%?`3V/`E"
^XMB(3.9,22,2,9909,0)="""DATA"",396.18,468,3,135,0)"
^XMB(3.9,22,2,9910,0)="M%2Y4P*\""?A7PJX!?!?R$)8!?!?PJX%<!OPKX5<""O`G[""+L""O`GX5\*N`7P7\"
^XMB(3.9,22,2,9911,0)="""DATA"",396.18,468,3,136,0)"
^XMB(3.9,22,2,9912,0)="M*N!7`3]A)>!7`;\*^%7`KP)^%?""K@)^P&?""K@%\%_""K@5P&_""OA5P(]%H`)^"
^XMB(3.9,22,2,9913,0)="""DATA"",396.18,468,3,137,0)"
^XMB(3.9,22,2,9914,0)="M%?""K@%\%_""K@5P&_""O@]><L$=1/P$]D#_B;@;P)^(AK`WP3\3<#?!/Q-P-\$"
^XMB(3.9,22,2,9915,0)="""DATA"",396.18,468,3,138,0)"
^XMB(3.9,22,2,9916,0)="M_$W`3\0&^)N`OPE@FP""H""8UN0L.:0)R(%/`W`7\3\#<!?Q/P-P%_$_`3<0.1"
^XMB(3.9,22,2,9917,0)="""DATA"",396.18,468,3,139,0)"
^XMB(3.9,22,2,9918,0)="M)E34A""\WL0X""_B;@;P)^H@J`OPGX_Y^]:VEN*U?.6`6X)YNQM!S_CVR3G>&5"
^XMB(3.9,22,2,9919,0)="""DATA"",396.18,468,3,140,0)"
^XMB(3.9,22,2,9920,0)="MU9R-#;HJJ2*SBC@[GR7U.X*[\02IBER5J=B+J\KJ\*?D%Z3N:&:`1:J$=#=P"
^XMB(3.9,22,2,9921,0)="""DATA"",396.18,468,3,141,0)"
^XMB(3.9,22,2,9922,0)="MWJ1$R^,9'E)'#[[.(=6?NAO]0O<5TG^%]%\A_5=(_Q72SVR""]%\A_5=(_Q72"
^XMB(3.9,22,2,9923,0)="""DATA"",396.18,468,3,142,0)"
^XMB(3.9,22,2,9924,0)="M?X7T7R']5T@_L=`5TG^%]%\A_5=(_Q72?X7T7R']S#Y(_X;_X__(5&^0_@U_"
^XMB(3.9,22,2,9925,0)="""DATA"",396.18,468,3,143,0)"
^XMB(3.9,22,2,9926,0)="M_4]B+:1_@_1OD/X-TK]!^C=(_P;I9[9#^C=(_P;IWR#]&Z1_@_1OD'YF2:1_"
^XMB(3.9,22,2,9927,0)="""DATA"",396.18,468,3,144,0)"
^XMB(3.9,22,2,9928,0)="M@_1OD/X-TK]!^C=(_P;I9W9%^C=(_P;IWR#]&R1Z@X1M\(]G5D;Z-TC_!NG?"
^XMB(3.9,22,2,9929,0)="""DATA"",396.18,468,3,145,0)"
^XMB(3.9,22,2,9930,0)="M(/T;I'^#]&^0?F9S_"",W^(=L\,,V^(8;O.BO_Q>%(YP(8!'Y6\28;NB+GL)?"
^XMB(3.9,22,2,9931,0)="""DATA"",396.18,468,3,146,0)"
^XMB(3.9,22,2,9932,0)="MYNG8ZPCBZ=CW,$\03``K\Z4?#;V;Z6+U(`&`YI/^H@_7$NA3`K@MKTT)JP??"
^XMB(3.9,22,2,9933,0)="""DATA"",396.18,468,3,147,0)"
^XMB(3.9,22,2,9934,0)="M%DA1JB_\E*1LM?N=R/I*6.&?[_""_#L[@OQ@L?HI&PB3])CX(]-A')M)(S4_I"
^XMB(3.9,22,2,9935,0)="""DATA"",396.18,468,3,148,0)"
^XMB(3.9,22,2,9936,0)="M]$`8O,Z1@!IZV1JKA;/(/G@U?:?STAGX/!V>'ENZSY]$YQJ8#%8$3$`BD0H)"
^XMB(3.9,22,2,9937,0)="""DATA"",396.18,468,3,149,0)"
^XMB(3.9,22,2,9938,0)="M]-MKM%$0%;)7Z""$D""D6R95QZ@1]HY^@:0%Q]8ITH%-!3Z=LS""OD,F=@+!%Z$"
^XMB(3.9,22,2,9939,0)="""DATA"",396.18,468,3,150,0)"
^XMB(3.9,22,2,9940,0)="MIVO%G^2U_F*6_1WY""HFHJ8U$`1&LG:F!""K;F!'Y&1Z8Q`6<5XR$M7LE_(8%,"
^XMB(3.9,22,2,9941,0)="""DATA"",396.18,468,3,151,0)"
^XMB(3.9,22,2,9942,0)="M8%A)WXZ9D<ZF,T1F1DEO&/`CZ;T""<;6;#%8^_1`M""B(3YXA[""*40B`%<2%`*"
^XMB(3.9,22,2,9943,0)="""DATA"",396.18,468,3,152,0)"
^XMB(3.9,22,2,9944,0)="MZ_C41%PP=!&^)L`+24]I0BSRN<F:YHOX#""6DSMP(*MO7]$GTS\DL-P6L4""R0"
^XMB(3.9,22,2,9945,0)="""DATA"",396.18,468,3,153,0)"
^XMB(3.9,22,2,9946,0)="MD8BW\"";]1K$`ID&S6-*3L>9!1$6K^@%R%;(-/@9:XY!)'%T=ZQ>2[.(=Q,>&"
^XMB(3.9,22,2,9947,0)="""DATA"",396.18,468,3,154,0)"
^XMB(3.9,22,2,9948,0)="M6HQ13/&&'M?_HNG85S)Q""AC;_$92/``+DD6""\+F0_OG6X*H(T>CT@'C&D;K'"
^XMB(3.9,22,2,9949,0)="""DATA"",396.18,468,3,155,0)"
^XMB(3.9,22,2,9950,0)="M$Q7H@#H>D0B&C`1/_):5N],BL/8""GZX`_B2+K.AX)9@*5FC[#,5`WK\V.>@*"
^XMB(3.9,22,2,9951,0)="""DATA"",396.18,468,3,156,0)"
^XMB(3.9,22,2,9952,0)="M\&?(.JO&_H<[7HDG8[>#'M)LDHE@=RZ>]1VUORF9WG,D</JKF/-?T<<!W_]["
^XMB(3.9,22,2,9953,0)="""DATA"",396.18,468,3,157,0)"
^XMB(3.9,22,2,9954,0)="M[9[\`LI^AB&7N-<-F?AK6.Z3]YWU[^<5/L49GK"":.%;.V2>L'M8I4)N,3UCM"
^XMB(3.9,22,2,9955,0)="""DATA"",396.18,468,3,158,0)"
^XMB(3.9,22,2,9956,0)="M&<]ZPJHG9CY`\O$X%A,H&J<5V.P8`P52^#6TQBT9YEK(&(2+CHQOM,,IIA)\"
^XMB(3.9,22,2,9957,0)="""DATA"",396.18,468,3,159,0)"
^XMB(3.9,22,2,9958,0)="M3U:5PW=``QWP)$?>$M[2*=9S,,.@C9'=0K8_V8@/D9P?^AO<X?)5`H4\V>3N"
^XMB(3.9,22,2,9959,0)="""DATA"",396.18,468,3,160,0)"
^XMB(3.9,22,2,9960,0)="MD;/14![)$B4?10JPY`V3CQ?H?O*Q.4`@!_R'SUE5>X_T[2@X%1LO4(?V$R)1"
^XMB(3.9,22,2,9961,0)="""DATA"",396.18,468,3,161,0)"
^XMB(3.9,22,2,9962,0)="M@U:=E)H""@`2H.F""LF*W(D95`?IT)?:R$HH<4DA$J4/@@MJ\D!'R-E0O,H^0J"
^XMB(3.9,22,2,9963,0)="""DATA"",396.18,468,3,162,0)"
^XMB(3.9,22,2,9964,0)="M*@J[)*P,VYPZ8Y5NZD_0_.D>\AMHCO_H0^8KDQ`+KHZ;]+""*Y!4&$CN;0BT:"
^XMB(3.9,22,2,9965,0)="""DATA"",396.18,468,3,163,0)"
^XMB(3.9,22,2,9966,0)="MM.YA59/J7/80P?:PTJ!KD'0?*VGQK?@-^$V1(XW_+8W4WQ@KY8CK'4>AR.U`"
^XMB(3.9,22,2,9967,0)="""DATA"",396.18,468,3,164,0)"
^XMB(3.9,22,2,9968,0)="M#I*F*X.2])37]!J+GLP,QEC)EEO:-502X""35Z14""S38RF/X;KGE_2#*(0""EZ"
^XMB(3.9,22,2,9969,0)="""DATA"",396.18,468,3,165,0)"
^XMB(3.9,22,2,9970,0)="MB'#!(?.58_>,;""D'E*I%W9S]P0@A\FL4;P'\'5'=`$E81-_1&W;K\`TB=#U'"
^XMB(3.9,22,2,9971,0)="""DATA"",396.18,468,3,166,0)"
^XMB(3.9,22,2,9972,0)="MJ5$6@S0R(!\!^N04)8V@(.(282GZJE!<2;,1.`+P'-1H4KN8SK>'K:]ZKJMR"
^XMB(3.9,22,2,9973,0)="""DATA"",396.18,468,3,167,0)"
^XMB(3.9,22,2,9974,0)="M6STXG4.>?2]7WQ=_$!QAW7E!]\UT_2VT/F""^$C!@^]W+MOU<.O[8BH+?V+Y"""
^XMB(3.9,22,2,9975,0)="""DATA"",396.18,468,3,168,0)"
^XMB(3.9,22,2,9976,0)="M?67EX_Z3X7,OVQ'YE'H:6#WYSD_'$U9/6'U=K.!1QQYQ&#U:UP&-;JV_S/&`"
^XMB(3.9,22,2,9977,0)="""DATA"",396.18,468,3,169,0)"
^XMB(3.9,22,2,9978,0)="M/^J@!3T^ZGC0@C?&2:64SV$`M#K1CHP1?1<9O\!`=/$/.[X25BXZ[Y7'\WQB"
^XMB(3.9,22,2,9979,0)="""DATA"",396.18,468,3,170,0)"
^XMB(3.9,22,2,9980,0)="ML/2O0<`""6NSQ""PPE>V18(3TJ#&4R'\89Y[^`L8X,*QL]RIWN>A\-9X&VP;DG"
^XMB(3.9,22,2,9981,0)="""DATA"",396.18,468,3,171,0)"
^XMB(3.9,22,2,9982,0)="MK!I/I\VB]ITW38`)&9^P:G65W+INL2MK\(YZDL'&(_/LW>?OGITAB;,TJ!#A"
^XMB(3.9,22,2,9983,0)="""DATA"",396.18,468,3,172,0)"
^XMB(3.9,22,2,9984,0)="M""2MB'26W&T)&4P@3L9+R>+'RO/:GG_KN;JQ""'98:0$6\YJCPB@R'X\8JW:N1"
^XMB(3.9,22,2,9985,0)="""DATA"",396.18,468,3,173,0)"
^XMB(3.9,22,2,9986,0)="M\O$>=85K(`P=@JSDC;1DMKNHCQ,K7S%</G%5NNECM1AB!=9U;:J.4V,C@B6T"
^XMB(3.9,22,2,9987,0)="""DATA"",396.18,468,3,174,0)"
^XMB(3.9,22,2,9988,0)="M5,>)5>EC555>J8I`JI2OZ%B*V4+`.S""S0IA9'RL-%&_77>E#^""#GLG0CJ$>("
^XMB(3.9,22,2,9989,0)="""DATA"",396.18,468,3,175,0)"
^XMB(3.9,22,2,9990,0)="M5?0EHN4]@A9O$+`2OZKGHL)K*_&RJ,3Y<LA7J=""CRU3:Y`)]9KDCQ8J`6A-G"
^XMB(3.9,22,2,9991,0)="""DATA"",396.18,468,3,176,0)"
^XMB(3.9,22,2,9992,0)="ME95G)D.^0JR^*TJ\=BW*<B;.5T-]Y1PATT8D$#X#>;L2P7C$?+6FKXI45:7P"
^XMB(3.9,22,2,9993,0)="""DATA"",396.18,468,3,177,0)"
^XMB(3.9,22,2,9994,0)="MAOAJ+N9BH2M1""A""SYP,9M#D3FK$B.\O2=L6459$I076,6%6DU_F'ET'%=RKD"
^XMB(3.9,22,2,9995,0)="""DATA"",396.18,468,3,178,0)"
^XMB(3.9,22,2,9996,0)="M$2CHCT==-2\&6#DZ>IQ#;(6,E>H=PM""V/Z9UT(]LAHKEJ:C&T544+V0KYJPV"
^XMB(3.9,22,2,9997,0)="""DATA"",396.18,468,3,179,0)"
^XMB(3.9,22,2,9998,0)="M6TC:""MV;I+(HZZS\<=M7'3.KMAF*+:%6CQ8#*O?0,UA1`%D*3<;*>3A.'\=G"
^XMB(3.9,22,2,9999,0)="""DATA"",396.18,468,3,180,0)"
^XMB(3.9,22,2,10000,0)="MF'RVW/W]_B`R58B!Q+#._E*].YD0AA=#36NDE\?L#W8$T=^+E;&Y9JW-G->A"
^XMB(3.9,22,2,10001,0)="""DATA"",396.18,468,3,181,0)"
^XMB(3.9,22,2,10002,0)="M=T-6EB:PCA6KFI^2_;Z;KR""B""R.D?P@'VI5J'AF7.?!UD$WU&_Q)WQ4_6(JY"
^XMB(3.9,22,2,10003,0)="""DATA"",396.18,468,3,182,0)"
^XMB(3.9,22,2,10004,0)="MN1""7B^52U]N\@?(&7LOH'1H'AH0PV-K`(LYBT[UFL>B.T\=1ZV2ZKST^PEM\"
^XMB(3.9,22,2,10005,0)="""DATA"",396.18,468,3,183,0)"
^XMB(3.9,22,2,10006,0)="M<#[[9U3MI?C^O!#+&Q>4#T%3,6>*7VE4[3+0$6-G@TUG.XYT1VFW>S+5R70G"
^XMB(3.9,22,2,10007,0)="""DATA"",396.18,468,3,184,0)"
^XMB(3.9,22,2,10008,0)="M+[I*6'VW6,'-WY9B-1/5LLCF`?EZX#WJ\>!""KN:PH2-MG?VBX([2%D7'F;'R"
^XMB(3.9,22,2,10009,0)="""DATA"",396.18,468,3,185,0)"
^XMB(3.9,22,2,10010,0)="M](4&O""JK""CUF<?GVG4`79]6KGG/1H.6I0%@II4)37;NLOS0%W!N$X'%6PX';"
^XMB(3.9,22,2,10011,0)="""DATA"",396.18,468,3,186,0)"
^XMB(3.9,22,2,10012,0)="MHNE`K.J[=(C.AJ$>T0'9RDD+;.I+36$&&27E*SCBT%[T..4^`9N!7,%JGQBR"
^XMB(3.9,22,2,10013,0)="""DATA"",396.18,468,3,187,0)"
^XMB(3.9,22,2,10014,0)="MC8`2B""<HQ9J<P$)60[@$QQR,:_CO&/DJVU3)(:R-^-VT.(/(M*L<HD4`(D8I"
^XMB(3.9,22,2,10015,0)="""DATA"",396.18,468,3,188,0)"
^XMB(3.9,22,2,10016,0)="M/F/T$:^#/5/4/\17!M>_&BK-^1P.&GMMG$Z,=0)8[9?'""0PFFNVZ=Y#_!QPH"
^XMB(3.9,22,2,10017,0)="""DATA"",396.18,468,3,189,0)"
^XMB(3.9,22,2,10018,0)="MK:M=3QPKC;I<>:5HV2-\&J#HA[;4I(`R/&%%XE?OE4_X``<6P#K'8,6@4ZU,"
^XMB(3.9,22,2,10019,0)="""DATA"",396.18,468,3,190,0)"
^XMB(3.9,22,2,10020,0)="M!O:DL4I&0.(D2$A!*IBB[28BJB2%&4^C].EB5>\[94`22Q%6WN&R&!R@M^BS"
^XMB(3.9,22,2,10021,0)="""DATA"",396.18,468,3,191,0)"
^XMB(3.9,22,2,10022,0)="MRDJG27NR6`6?N8J#Q9#BH$:GH@8?;0M6QBJXD\6*-BFQ%Y,8RN1(:+/JX7.6"
^XMB(3.9,22,2,10023,0)="""DATA"",396.18,468,3,192,0)"
^XMB(3.9,22,2,10024,0)="MP-(9+/VXT.AQ8`6U0H?FIU,_&BG\[I0W4!L-CTOF'`-6.A!0D'MQYFAQMWHF"
^XMB(3.9,22,2,10025,0)="""DATA"",396.18,468,3,193,0)"
^XMB(3.9,22,2,10026,0)="M`A4YA""@S5E2T=II8:6\$\U(M@'I</H,OZ18L.%F^LC*G`)/\Z6VE1O02BJE4"
^XMB(3.9,22,2,10027,0)="""DATA"",396.18,468,3,194,0)"
^XMB(3.9,22,2,10028,0)="M#5;Z%+&""Z'06/49K6UF6`LO**A?)4""<C>8I8>=K>GF5PBP`2C9[<1!)#Y""S:"
^XMB(3.9,22,2,10029,0)="""DATA"",396.18,468,3,195,0)"
^XMB(3.9,22,2,10030,0)="M'H!8*76""6#DOLE9/@&U-A=&^@*3S=8JUFWB*6*%M1893]@%A1\FMD2J!I;F["
^XMB(3.9,22,2,10031,0)="""DATA"",396.18,468,3,196,0)"
^XMB(3.9,22,2,10032,0)="MA9;1G!Y6M`^[#BGD//R6'3J>=)9._G,PC:5_8EC)F)%*N678$=D""""(HNM1:H"
^XMB(3.9,22,2,10033,0)="""DATA"",396.18,468,3,197,0)"
^XMB(3.9,22,2,10034,0)="MR9J6)VBW6S*9&FM<;-\OIZF/!8""D`]D+'>?'%=A.'BO89V\_8F523:2CO(Y6"
^XMB(3.9,22,2,10035,0)="""DATA"",396.18,468,3,198,0)"
^XMB(3.9,22,2,10036,0)="MC]KM-7&L3(1]VB`@][%B%Y24=A*B.4VLA'ZX]:(G^RKI->1$:>(IQJ_L?GS%"
^XMB(3.9,22,2,10037,0)="""DATA"",396.18,468,3,199,0)"
^XMB(3.9,22,2,10038,0)="M$?:\""*!7&$^2KZSKJJN=J%&WKWJ]#!%.$BOM*?FP!U\%BO2=-E:@M-JKQ0WK"
^XMB(3.9,22,2,10039,0)="""DATA"",396.18,468,3,200,0)"
^XMB(3.9,22,2,10040,0)="MM08K?XKZ""J26>V)E1:/;B>C3LZ]LZ&""U_/&\,M7+:B;*Q6II+I9]7PAJMM(Z"
^XMB(3.9,22,2,10041,0)="""DATA"",396.18,468,3,201,0)"
^XMB(3.9,22,2,10042,0)="MGB!6&AWB%JNR,$M1BK5X68KE7'R[AN'VD[0*(C?&1V6>I\U7Z+JT:=&R$,5Y"
^XMB(3.9,22,2,10043,0)="""DATA"",396.18,468,3,202,0)"
^XMB(3.9,22,2,10044,0)="MA5@5B)59K(HQ7R6H#(33PTH:XJL&J^4%+.:B$N927,Z*M_,!5F12T+07RMV?"
^XMB(3.9,22,2,10045,0)="""DATA"",396.18,468,3,203,0)"
^XMB(3.9,22,2,10046,0)="MG`QJPDIU9)!OJAU;5LG#H?:K'!""4YL2PDI1<'JZ#Q6K7]EYM$E24OK<G%NN#"
^XMB(3.9,22,2,10047,0)="""DATA"",396.18,468,3,204,0)"
^XMB(3.9,22,2,10048,0)="M0/EDOY\T(58N4OS8IE('=UHQ9""Y;H%C??EBEQ2^Q54IIG`Y6UC%6>P:#N?B#"
^XMB(3.9,22,2,10049,0)="""DATA"",396.18,468,3,205,0)"
^XMB(3.9,22,2,10050,0)="M*QX@)?""-/!VLJ*0C=5O0>Y&9>TL35+S?!-3I8!5HKEO@<CZ]#U>EKF$Y-<8-"
^XMB(3.9,22,2,10051,0)="""DATA"",396.18,468,3,206,0)"
^XMB(3.9,22,2,10052,0)="MR]TI8:6!(-""C6%^SQZ16;""'F&J*ZZH$'YWUV<=^$]94W[?9`S2EEF0Q32MJ$"
^XMB(3.9,22,2,10053,0)="""DATA"",396.18,468,3,207,0)"
^XMB(3.9,22,2,10054,0)="MNHD%F@JQZ?];Y_(Y-_;9.YBFBQ7U9VIZZ]#3<I`_#?0*KGX-5#10$;JDGY(M"
^XMB(3.9,22,2,10055,0)="""DATA"",396.18,468,3,208,0)"
^XMB(3.9,22,2,10056,0)="M*M/6MWR,XGMT.)]5E>`*R?95T.)SJT:G;%^Y/09N@H^YLX6UW9.--?ISS88)"
^XMB(3.9,22,2,10057,0)="""DATA"",396.18,468,3,209,0)"
^XMB(3.9,22,2,10058,0)="M8T4[)+;TRW:]%LZIA9.VH\:BQEA]`EA%XTBNJ)AX7,!@>V6SN_T^3;[D""6""5"
^XMB(3.9,22,2,10059,0)="""DATA"",396.18,468,3,210,0)"
^XMB(3.9,22,2,10060,0)="M9GA2]R\]5#G6]?,WN]U%A/DDL$JC#FC1-_=!19LO=VLRX[9@-<,W7)S-H9@1"
^XMB(3.9,22,2,10061,0)="""DATA"",396.18,468,3,211,0)"
^XMB(3.9,22,2,10062,0)="M>YZ]*<1\(8K%V6*B6-7C.*F8&,R@<*V?F[^G;D'#EJYA9^^$F%]2;/5&+,2W"
^XMB(3.9,22,2,10063,0)="""DATA"",396.18,468,3,212,0)"
^XMB(3.9,22,2,10064,0)="M2[$2LQ4^7*XFJ]LOTD8)HM7T""]T_`RLT7OL6&?+@8BG$<B$JBD.OSBZ?B]4,"
^XMB(3.9,22,2,10065,0)="""DATA"",396.18,468,3,213,0)"
^XMB(3.9,22,2,10066,0)="M5L""`30BKV]L_M1?FZ!,-ONXREAN:$/=V/W9]`67Q+1;%V2IAI:OB;(DLM5B)"
^XMB(3.9,22,2,10067,0)="""DATA"",396.18,468,3,214,0)"
^XMB(3.9,22,2,10068,0)="M2S&?&%_]4L/58071G:PRWF5S+U9]4]1D@31%40C\*HMSA,X\$_A0P`1E\$\,"
^XMB(3.9,22,2,10069,0)="""DATA"",396.18,468,3,215,0)"
^XMB(3.9,22,2,10070,0)="M5Z?^)>B6L?1XDTV#56J+U3T,]'WG@>Z:W]3W%J36IZFO$*[K5PTSR#]S!78C"
^XMB(3.9,22,2,10071,0)="""DATA"",396.18,468,3,216,0)"
^XMB(3.9,22,2,10072,0)="MD=NQ<D&.%XB^ZSSR#9N,&?%5^C4MK-+V\(N/"":X/%ZE.P9I=93(^TL9>=+)E"
^XMB(3.9,22,2,10073,0)="""DATA"",396.18,468,3,217,0)"
^XMB(3.9,22,2,10074,0)="M?P\TM5'II0C5$?LXKZ]O/UY<W[WFE4_OJC\F6U2I7.C1[-A)L3[9C?7MYT5/"
^XMB(3.9,22,2,10075,0)="""DATA"",396.18,468,3,218,0)"
^XMB(3.9,22,2,10076,0)="MUQ]\<7UW=W>=]#EO_!XT(=?H!%*##ZXYULTNL'Q'\\RXU@L_<M_Y]=W=Q__Z"
^XMB(3.9,22,2,10077,0)="""DATA"",396.18,468,3,219,0)"
^XMB(3.9,22,2,10078,0)="M)8::;:SM-(NV7$E+>W52-U:;L;)Y?R&""!74JQ_BCCS,0]_ROE:BEH6&E3EN&"
^XMB(3.9,22,2,10079,0)="""DATA"",396.18,468,3,220,0)"
^XMB(3.9,22,2,10080,0)="MUHR@D$+[?,-AS3!YW^-'BJ32VIK:*F>NQ2?,M+$J)+R!F>VUN>KOE_!;.L?D"
^XMB(3.9,22,2,10081,0)="""DATA"",396.18,468,3,221,0)"
^XMB(3.9,22,2,10082,0)="M7='4AFV\!$;MG:1)>8Y&ZIFTMD;AP4HAIXR53VT7'.IO.=H&`""$J*;<6Q*0M"
^XMB(3.9,22,2,10083,0)="""DATA"",396.18,468,3,222,0)"
^XMB(3.9,22,2,10084,0)="MF59PN_?N$O@SPD+33GA\:J3AE1%XH*,""&T2<,%:4I,^)!OJ7NW8UQ.=<9-V]"
^XMB(3.9,22,2,10085,0)="""DATA"",396.18,468,3,223,0)"
^XMB(3.9,22,2,10086,0)="MO3P[Y2BT]E*HSNL7[YG)I,5+Z>IZ@BKQE0O""3SG>3IN<;=)-E@4DQ]_Y/MRG"
^XMB(3.9,22,2,10087,0)="""DATA"",396.18,468,3,224,0)"
^XMB(3.9,22,2,10088,0)="MN!DK2U-`NWSW""1<#HZFWK0G<A\UR!UQP5O+HT.EB93U`&T/GEO_-X5J1W&X0"
^XMB(3.9,22,2,10089,0)="""DATA"",396.18,468,3,225,0)"
^XMB(3.9,22,2,10090,0)="MY#VLO5S.JQ_N-TJG'&]W8/?9KF6W&IIH[2.>O@O.IR/.3;@]-[;M:##@+$U!"
^XMB(3.9,22,2,10091,0)="""DATA"",396.18,468,3,226,0)"
^XMB(3.9,22,2,10092,0)="M;5JWDK8ZXCJ9/?-[UHMM\^&<DKU9Z)_$$6.U]PA#&;8EQW`%D'6+9/&-N/AP"
^XMB(3.9,22,2,10093,0)="""DATA"",396.18,468,3,227,0)"
^XMB(3.9,22,2,10094,0)="MU%CMFS<&I;=XU_A.@1F+I/""?KC^(H\8J!>&6B^)R=BG,`A]=BK.%%HOE?%&\"
^XMB(3.9,22,2,10095,0)="""DATA"",396.18,468,3,228,0)"
^XMB(3.9,22,2,10096,0)="M@V^7B[<<_!54?S2R5<FO)G;C-WI]]]>?7A]O[0=C-5N)LBB+^5*4YT+@3<5M"
^XMB(3.9,22,2,10097,0)="""DATA"",396.18,468,3,229,0)"
^XMB(3.9,22,2,10098,0)="M\%=4NXTW<+;B1#T9IS#<V=O-:*`C_OX8^&K8[[Y>!TFLSE=B=5:8)>V8*,3\"
^XMB(3.9,22,2,10099,0)="""DATA"",396.18,468,3,230,0)"
^XMB(3.9,22,2,10100,0)="MK5ASJ^0E874&JQDG8-A$]3LEEK!Z?_?SO\&1\)5OVMXWLX2""^@>4NG>SZME+"
^XMB(3.9,22,2,10101,0)="""DATA"",396.18,468,3,231,0)"
^XMB(3.9,22,2,10102,0)="MQ&:Q1%7_;DEC.^8WXL8@5H`LM_S>B#][(>[K1$ZYKQ\^???O#]5Q3TH&4T?6"
^XMB(3.9,22,2,10103,0)="""DATA"",396.18,468,3,232,0)"
^XMB(3.9,22,2,10104,0)="MV.[&J>/AB!;JH\07+W.DO,H3/(HZZKD3+/1JWE!>`P),&ZO4L[9NC,R_V@S\"
^XMB(3.9,22,2,10105,0)="""DATA"",396.18,468,3,233,0)"
^XMB(3.9,22,2,10106,0)="MD)IW+6><5=UM2YE6>]\>WP=[_Q[\7(!J[6\JGUJW>U_=5&5KA8<TH.KOQ\F7"
^XMB(3.9,22,2,10107,0)="""DATA"",396.18,468,3,234,0)"
^XMB(3.9,22,2,10108,0)="M[84SNSGKU[K2%"":)E>>!.#0B![^Y+3E/K/(=K,1@$LZ.?@-=:K>#U507Z?LX"
^XMB(3.9,22,2,10109,0)="""DATA"",396.18,468,3,235,0)"
^XMB(3.9,22,2,10110,0)="MZY#YRI=_Y^,:OUN^REBYNDEF>&B+B9.FBZ=1]V-UKQ@>*E;<8;LJ&:BJ6E<T"
^XMB(3.9,22,2,10111,0)="""DATA"",396.18,468,3,236,0)"
^XMB(3.9,22,2,10112,0)="M>H)&5:EJ3=4QX&3PTCN*?=Z+57!](W1[A*93M1;""%+%*]A0*X`T#ETP&[]=="
^XMB(3.9,22,2,10113,0)="""DATA"",396.18,468,3,237,0)"
^XMB(3.9,22,2,10114,0)="M&8R!T$+,3#>3VHS4\]Y""OZ:4\Q$7__%I)U9F-V,=L`S6X/@;SV,G$GRJZNX-"
^XMB(3.9,22,2,10115,0)="""DATA"",396.18,468,3,238,0)"
^XMB(3.9,22,2,10116,0)="M#V1F:0%4=.R50MVLK751Y?BHL[9?H(6&QJ^?[N[N7@\E5>S!6(=O7W4FIN:'"
^XMB(3.9,22,2,10117,0)="""DATA"",396.18,468,3,239,0)"
^XMB(3.9,22,2,10118,0)="M`RZ1[98M@'2>='735<+*FAY8+]_?W5W?_O3QAQ<OQOJ?TH9ZNK:H[XQ*'<P2"
^XMB(3.9,22,2,10119,0)="""DATA"",396.18,468,3,240,0)"
^XMB(3.9,22,2,10120,0)="M2AD^4(K[-3F*W''P!0""92BED+TD**G9+DW40KWZFV]?7'S_=OK_^9EA[)*>*"
^XMB(3.9,22,2,10121,0)="""DATA"",396.18,468,3,241,0)"
^XMB(3.9,22,2,10122,0)="ME;\OY\4R6&=1)4JKE!IZ>DNK*!6E*D+?I6EC[!<?;O_[XR__^N((L$+]Y/%'"
^XMB(3.9,22,2,10123,0)="""DATA"",396.18,468,3,242,0)"
^XMB(3.9,22,2,10124,0)="M<1$'E;Q455S,Q*)80,-7';6L81@!1<<8>%I`K\*M?[Q0?W-]>WM]_>K%A+%"""
^XMB(3.9,22,2,10125,0)="""DATA"",396.18,468,3,243,0)"
^XMB(3.9,22,2,10126,0)="MI:XJFI&*9A7:#C<T):>*:[&:%^L4@^J9`,[`*$SE_*@T4KT9)G7X75Z]^O#A"
^XMB(3.9,22,2,10127,0)="""DATA"",396.18,468,3,244,0)"
^XMB(3.9,22,2,10128,0)="MI]L/[W^YF"")6Z-_$JD3SRI,A2I-?*C2S(O5@$-5+GD*5:AGR3""5G=-W[_[[2"
^XMB(3.9,22,2,10129,0)="""DATA"",396.18,468,3,245,0)"
^XMB(3.9,22,2,10130,0)="MJE'BOLMH+U[__-.GV^OWWTS+%HTE`H3\Q$A5Z/#<^!N%:*W%_)FH2$NA=4`J"
^XMB(3.9,22,2,10131,0)="""DATA"",396.18,468,3,246,0)"
^XMB(3.9,22,2,10132,0)="M7%(O,!J&XVGPV0"")\<9FZ<)NK/!108A]N/WXZ<,%)5<I20_"":SC<>@8>(82Z"
^XMB(3.9,22,2,10133,0)="""DATA"",396.18,468,3,247,0)"
^XMB(3.9,22,2,10134,0)="M2M'X7<_ZBJ?+THPJ4<`ZYZW2!B5)!A9""YB5-/.MI')#CV)[KN86#1M+-U6Q3"
^XMB(3.9,22,2,10135,0)="""DATA"",396.18,468,3,248,0)"
^XMB(3.9,22,2,10136,0)="M1.KE$-&K%M$<M._<L4F'ZV""5`\FHC*!I(""`]C0""(/O0,*AAAI7MHRAU8Y2H:"
^XMB(3.9,22,2,10137,0)="""DATA"",396.18,468,3,249,0)"
^XMB(3.9,22,2,10138,0)="M%/,HJ/3#';K-T(QJ;.VL%)]*`9@0G#""VQ4J#&L8>8ABI)],9&N=0M&P=TJ&O"
^XMB(3.9,22,2,10139,0)="""DATA"",396.18,468,3,250,0)"
^XMB(3.9,22,2,10140,0)="M/E=&H9Q4Z!V`/62L?,_`:OBLQP7!6N.:Z(%1(]5.<;Q!;%C1M(XV8.B<S\MI"
^XMB(3.9,22,2,10141,0)="""DATA"",396.18,468,3,251,0)"
^XMB(3.9,22,2,10142,0)="M5:R+JMCJ7MO#K_WHI27JW_W=21;%L%%)*HQ;6[@A6%[F:EP@@\T8](/2&Y1G"
^XMB(3.9,22,2,10143,0)="""DATA"",396.18,468,3,252,0)"
^XMB(3.9,22,2,10144,0)="MY;PL>JI>QS;M,YEXNV^FIO:U""[5F;S<AP9:6=""9:,\A%Y-[WGHNV.$?(&JY<"
^XMB(3.9,22,2,10145,0)="""DATA"",396.18,468,3,253,0)"
^XMB(3.9,22,2,10146,0)="M%LL!5I.)BT:.+]`R6""E>$#G8T,<J(+F=#1-*CG>@QO[V7>05FL/DK""(?.^4-"
^XMB(3.9,22,2,10147,0)="""DATA"",396.18,468,3,254,0)"
^XMB(3.9,22,2,10148,0)="MP1.<Y5K\2S51K`B8&\2JI&FI""G^5U5!?D6'>#??!>((Z\55?BZ%?S::%HTW0"
^XMB(3.9,22,2,10149,0)="""DATA"",396.18,468,3,255,0)"
^XMB(3.9,22,2,10150,0)="M""5L6T]E,%'-BU8EAY7-<E()794P&/,V:)1=1AL:5P36NCTX8@66B&]1I08""("
^XMB(3.9,22,2,10151,0)="""DATA"",396.18,468,3,256,0)"
^XMB(3.9,22,2,10152,0)="M*MV:MBB^:W&Y,,5X.T78F:]*GEA,1CQ?""$Y*SXC)..PG-QJ[,9)!<B.-M6WI"
^XMB(3.9,22,2,10153,0)="""DATA"",396.18,468,3,257,0)"
^XMB(3.9,22,2,10154,0)="M3)'YJB[$FB)69*_?\*A4M-<IJ;/NZ2OCR%0?-E8%.:C@'O,56F7#DD#$:O'N"
^XMB(3.9,22,2,10155,0)="""DATA"",396.18,468,3,258,0)"
^XMB(3.9,22,2,10156,0)="MK+A9+(I2_^<D=3L)(@WBK9UI/]17M&%K6)`]V&\*J*\&%I9SHV>,`+&>OYTO"
^XMB(3.9,22,2,10157,0)="""DATA"",396.18,468,3,259,0)"
^XMB(3.9,22,2,10158,0)="MB[4.4XS)1%_/2MT>ZQ-H>GHSVDK?W4AH@XPR#)2[&Q6""(%9F?FGFSY=3Y*O="
^XMB(3.9,22,2,10159,0)="""DATA"",396.18,468,3,260,0)"
^XMB(3.9,22,2,10160,0)="MX5%QWW9P*M1KMP8""%^]9-0AKY6DF8O;C^6JV0GU%-D/Y7*S6R]5E<=CZRM<Y"
^XMB(3.9,22,2,10161,0)="""DATA"",396.18,468,3,261,0)"
^XMB(3.9,22,2,10162,0)="M+3\R/^M1O)W\A+AO.SCKL9@'T4N?]RX-8YVY+O=L-5^?7XHT7V#V%R,*ZCD`"
^XMB(3.9,22,2,10163,0)="""DATA"",396.18,468,3,262,0)"
^XMB(3.9,22,2,10164,0)="MDY!!WW$""_3C</LI-;`L(\VAUZKF&:V71Q!IZ6%'[HK27;K6<4^6?]EU)/F""L"
^XMB(3.9,22,2,10165,0)="""DATA"",396.18,468,3,263,0)"
^XMB(3.9,22,2,10166,0)="M?(IWTN$Y/J7H#M_S%&U/`];SRV.^&D?'K</E4?88KCM@`CA>P&[1V7I1K%<\"
^XMB(3.9,22,2,10167,0)="""DATA"",396.18,468,3,264,0)"
^XMB(3.9,22,2,10168,0)="MO-%.`BMR7-85A]7].I)I[@F\2,85FJ&IZN/&>PZ.QCWX""KT7.VCK;CKDH[MD"
^XMB(3.9,22,2,10169,0)="""DATA"",396.18,468,3,265,0)"
^XMB(3.9,22,2,10170,0)="MK&?M7J#WMYHS5M/@*[3)\0?QX-J.M:*0<<(JMEBMT8BOML1D7&S:J77-<FKA"
^XMB(3.9,22,2,10171,0)="""DATA"",396.18,468,3,266,0)"
^XMB(3.9,22,2,10172,0)="MU'W2^'1.P),]IS!ZYCU:""=VV=?J`^:I""5T^1<5Z521JYA&C-*9R*:ZXJ+I3Q"
^XMB(3.9,22,2,10173,0)="""DATA"",396.18,468,3,267,0)"
^XMB(3.9,22,2,10174,0)="M[T9\%0R-""_=]7%0>[/4C?OTE\U7P.5KH>-MJ?U`<R-X:X>S!ZG;?'%RSH(BF"
^XMB(3.9,22,2,10175,0)="""DATA"",396.18,468,3,268,0)"
^XMB(3.9,22,2,10176,0)="MJHK=@CZB4M66UK!9!]4TR$ZVRX=<\+'F8N2D[@7W\U._`LS>T`Y>YJL?Q1Q-"
^XMB(3.9,22,2,10177,0)="""DATA"",396.18,468,3,269,0)"
^XMB(3.9,22,2,10178,0)="MAL496J_=%@3.3<*^\HG36.'WPZ*^.6-;[PZ*&W!5%@B#UE1Z>FV>G]=Q>4I("
^XMB(3.9,22,2,10179,0)="""DATA"",396.18,468,3,270,0)"
^XMB(3.9,22,2,10180,0)="M%]""F6A&KQ6H])S#+,RU[=MKA8]4QIGRNH^W8#!WCO2,['0)10UF/VBCPW-V$"
^XMB(3.9,22,2,10181,0)="""DATA"",396.18,468,3,271,0)"
^XMB(3.9,22,2,10182,0)="MU0JMRU0#PAM1N_-A$*NS(C'>][-GLK=(3`*KAVSWH2TZ7+$HTAFM@*S7*\2J"
^XMB(3.9,22,2,10183,0)="""DATA"",396.18,468,3,272,0)"
^XMB(3.9,22,2,10184,0)="M2J9\/9J0L*&D&<O@8EVLS7I^PRU#.E$P'?149-#729O=%VXQ!9I26J6T&14U"
^XMB(3.9,22,2,10185,0)="""DATA"",396.18,468,3,273,0)"
^XMB(3.9,22,2,10186,0)="MU,^41?GM.B6?+2&W3`H-]5ZWL_+V$MN)SU#87O<XVA""N6JS>GBUO4K!9#NPO"
^XMB(3.9,22,2,10187,0)="""DATA"",396.18,468,3,274,0)"
^XMB(3.9,22,2,10188,0)="M>=18!;FC6IVBP+/YO)@)(V9G(-2SVMHJRZS""^@/0#%H=G63^$6*U:YBN(_E:"
^XMB(3.9,22,2,10189,0)="""DATA"",396.18,468,3,275,0)"
^XMB(3.9,22,2,10190,0)="M?O]R5HKJ_')Y^?_L7<]S',=U'I(6I@F*D4SF1R56Q9N+BTK%*9(B15DY.""(E"
^XMB(3.9,22,2,10191,0)="""DATA"",396.18,468,3,276,0)"
^XMB(3.9,22,2,10192,0)="M&JV($M""`+%/#*F=)+,F-EKLR`'*E0VHO.23_0%+)Z&`JDZI`AU3)A^PAA[GG"
^XMB(3.9,22,2,10193,0)="""DATA"",396.18,468,3,277,0)"
^XMB(3.9,22,2,10194,0)="MGEO^`%^2""D&[Y\9)O]?=,]W3/8LE0-.8@;=8Q.[L;._,M]VO7[_^WO<R'NA^"
^XMB(3.9,22,2,10195,0)="""DATA"",396.18,468,3,278,0)"
^XMB(3.9,22,2,10196,0)="MM7XC.'5/,D1-$9E(`!=G;<:J1O22)AA''I\Z-13F_=2I-`_?K5HP0J!\J,6H"
^XMB(3.9,22,2,10197,0)="""DATA"",396.18,468,3,279,0)"
^XMB(3.9,22,2,10198,0)="M-8@/A\=>T?A_<&6<GII$XU/#7LI7G*T93@*S0`?$KPR5\C9BE?@SLV)`8;@^"
^XMB(3.9,22,2,10199,0)="""DATA"",396.18,468,3,280,0)"
^XMB(3.9,22,2,10200,0)="MQKRFQ2CE2Z$<7]%P\484W.B-H-QL$!.[I9AH>7,_""[[I];QJDB5B9(>HQ[_G"
^XMB(3.9,22,2,10201,0)="""DATA"",396.18,468,3,281,0)"
^XMB(3.9,22,2,10202,0)="MP:J,_MT(QJ^LX]('^Y3I?H(2?+DF]`K4M!$K&EO:7SCA*='']5=N@+;C1,(4"
^XMB(3.9,22,2,10203,0)="""DATA"",396.18,468,3,282,0)"
^XMB(3.9,22,2,10204,0)="M6FZ%V4V]VZEMP>J&\`YN%./)PBK*5[0).K5X[\;PQHU>*D.$IML/?:J,+X2D"
^XMB(3.9,22,2,10205,0)="""DATA"",396.18,468,3,283,0)"
^XMB(3.9,22,2,10206,0)="M=5B5.0[IH@XI0`*`55:)R?$'(COK#[Z%AZ8**R.6@Q&+,A`6M@ZKDK8^N3$\"
^XMB(3.9,22,2,10207,0)="""DATA"",396.18,468,3,284,0)"
^XMB(3.9,22,2,10208,0)="M/=9W'5L^N90EKVSX2%3,0$QHV?2P$OB#:@U)6[#J!<.QID5&H;%/OZ@EBZS)"
^XMB(3.9,22,2,10209,0)="""DATA"",396.18,468,3,285,0)"
^XMB(3.9,22,2,10210,0)="M36(55[`J(0K-3;5<^/0T;`]6]X+)1&,56YP&76_""W$Y6?J@)G\SMH4X$(PI!"
^XMB(3.9,22,2,10211,0)="""DATA"",396.18,468,3,286,0)"
^XMB(3.9,22,2,10212,0)="M*TQ6&V\T5HF9O2MWN*(XCFRL(C=W4%./#:<3E:B+P5O.&A%!K;`LH7F3L?*N"
^XMB(3.9,22,2,10213,0)="""DATA"",396.18,468,3,287,0)"
^XMB(3.9,22,2,10214,0)="M<5@2)U8""9KE&SB('J\B(?3$SF;=`,4FR#+S6*,Y:B%5F\]<-K-B,?H51""\JC"
^XMB(3.9,22,2,10215,0)="""DATA"",396.18,468,3,288,0)"
^XMB(3.9,22,2,10216,0)="M^@36EJR=AXO!OPT7AW#G'XOA4X-5J4*NL3)M&#XO>6K4AQ5O`59C%IQXL""[S"
^XMB(3.9,22,2,10217,0)="""DATA"",396.18,468,3,289,0)"
^XMB(3.9,22,2,10218,0)="MF4@M5H8[3CQT""`BSTX)!XZXUL5^1YF.UR,:G%U/<HA!KN:P&JS).K""<\,V<"""
^XMB(3.9,22,2,10219,0)="""DATA"",396.18,468,3,290,0)"
^XMB(3.9,22,2,10220,0)="M/8BB8[D;%`*KXX^.-STFLSY9#(;WUB>X((8<Z+FQBGD%*U:0MZ+JENH7^>/'"
^XMB(3.9,22,2,10221,0)="""DATA"",396.18,468,3,291,0)"
^XMB(3.9,22,2,10222,0)="M+8A?]=[%N]/FN@ZKLNA@X4@9D6-93S0KWJK6""?VGQ\>;:]M#WSQ8Q8J:<?70"
^XMB(3.9,22,2,10223,0)="""DATA"",396.18,468,3,292,0)"
^XMB(3.9,22,2,10224,0)="MP<KD-:`'D>0UB\+K.\<;/`]ZRTE4L;*""\L7&7X&5B;<DL)4+:&M+[>OMQOH,"
^XMB(3.9,22,2,10225,0)="""DATA"",396.18,468,3,293,0)"
^XMB(3.9,22,2,10226,0)="M(%7A@PI-LHF5!6@Q&Q2`F#Z:%+$ML3+""8TL[UYOK7PG+&_N&(`;-3:MLDX?"""
^XMB(3.9,22,2,10227,0)="""DATA"",396.18,468,3,294,0)"
^XMB(3.9,22,2,10228,0)="M:F:O6=%#QFA\6'5WEAKKBX*:<>(3Y)7,T-VQ""KW]#L/R'JQ^]E53_78:*0U5"
^XMB(3.9,22,2,10229,0)="""DATA"",396.18,468,3,295,0)"
^XMB(3.9,22,2,10230,0)="M'U994!V#_GX5ENS22H9JB15VW.O7EQ^O-'.-$R8)JT^1]V&5N>_+/2^7/X)*"
^XMB(3.9,22,2,10231,0)="""DATA"",396.18,468,3,296,0)"
^XMB(3.9,22,2,10232,0)="M;:4I0[_TR?_M-'(]*(#*C'EP/JR(#ZMR>]^:(4)C<4-75\42X.LG3[:;AQ7)"
^XMB(3.9,22,2,10233,0)="""DATA"",396.18,468,3,297,0)"
^XMB(3.9,22,2,10234,0)="MXLSF]=5BQ8R<Y\324BN0*37N3>.&"".K8(,28EYX\>;2]TC""L!%#$X""%',[&R"
^XMB(3.9,22,2,10235,0)="""DATA"",396.18,468,3,298,0)"
^XMB(3.9,22,2,10236,0)="M8BU6;E.!56G&3*R(&6N@8K)=_M&!Y(OF%C_4/8:,9'@9`).Q]\RP,D_&F8\6"
^XMB(3.9,22,2,10237,0)="""DATA"",396.18,468,3,299,0)"
^XMB(3.9,22,2,10238,0)="M/='6Q3@(6*43CN3V,7#8@7.<8L:@$D=160*7I*0%\).#4Q/8MO)BI78;0KHK"
^XMB(3.9,22,2,10239,0)="""DATA"",396.18,468,3,300,0)"
^XMB(3.9,22,2,10240,0)="M5L27IB(3+(IE3G+PL$IS)+!/0$,MQ[2)23Y!C0_(346L<LB+FX(F9)HN+HZE"
^XMB(3.9,22,2,10241,0)="""DATA"",396.18,468,3,301,0)"
^XMB(3.9,22,2,10242,0)="MEH6+E?8)+`<K<OPO),HDOI0>]+!TE:&$\X.'E4P$2&7WXM,4&=O0K_)TC%QN"
^XMB(3.9,22,2,10243,0)="""DATA"",396.18,468,3,302,0)"
^XMB(3.9,22,2,10244,0)="MQ`KT=XCXCP)6DYE8F80$&RN]G1&6$@TL<>8&CHX7MY5L#T8^#HXR3`,`R""!'"
^XMB(3.9,22,2,10245,0)="""DATA"",396.18,468,3,303,0)"
^XMB(3.9,22,2,10246,0)="M`K-Q4I68`UULC/8J!TG(X%L""J^$N6-7U*VV+(E+VF=`9H\""%Y^*#&3F0\7:9"
^XMB(3.9,22,2,10247,0)="""DATA"",396.18,468,3,304,0)"
^XMB(3.9,22,2,10248,0)="MUS55\*DCA8@%8@5Y.N)O<'H:L-/S8Q7[L&)AN8<3.FMOX/;&=H""F.3Z#5&:`"
^XMB(3.9,22,2,10249,0)="""DATA"",396.18,468,3,305,0)"
^XMB(3.9,22,2,10250,0)="MI&?(!5A=/!7,QLHP[L0TT""5669S48E5N8H0-Q,H;OR+^Z%7E+69B59#W(`7'"
^XMB(3.9,22,2,10251,0)="""DATA"",396.18,468,3,306,0)"
^XMB(3.9,22,2,10252,0)="MYV%)^4SB@[%Y=2WY''Z[9=LC2X1`;SE09GR<FV`R<W?07`$U1T_&S3%)^`RL"
^XMB(3.9,22,2,10253,0)="""DATA"",396.18,468,3,307,0)"
^XMB(3.9,22,2,10254,0)="MS$4>""7SY(ZP,>S*G9X8>&)L\!CVISD78UR0Q6KII!E;E3@5-JAS4HC\9!JO1"
^XMB(3.9,22,2,10255,0)="""DATA"",396.18,468,3,308,0)"
^XMB(3.9,22,2,10256,0)="M6/D*!/GZE1\K,1%DAG9!A6ZDTYR,&'.#L?**\5(583#-=62J,9A8E2T8`3\J"
^XMB(3.9,22,2,10257,0)="""DATA"",396.18,468,3,309,0)"
^XMB(3.9,22,2,10258,0)="MG7:FMC&,&'.3ZWEYTY(U%N8$%M;D!K*BHAXM`H@T4D+2F0*IU)5N,E9>PKYV"
^XMB(3.9,22,2,10259,0)="""DATA"",396.18,468,3,310,0)"
^XMB(3.9,22,2,10260,0)="MC>;!*B@50LI^2`/5#4.91<=:@%5-0J2*B5IT(VJ,5NMC--.^5XQ/J,H!-CM6"
^XMB(3.9,22,2,10261,0)="""DATA"",396.18,468,3,311,0)"
^XMB(3.9,22,2,10262,0)="MF>/4W/W!O%;1*W;VC$LC+K`R%=V3G!L3`,AAT7)YK915BD'86*RRVMH)TNT*"
^XMB(3.9,22,2,10263,0)="""DATA"",396.18,468,3,312,0)"
^XMB(3.9,22,2,10264,0)="M[7Q55F)E`$=I42(T(FKJ8UR+0A%IQ(H/-Q8K4E]#`YUN&ZMR,T=@18V9T%G-"
^XMB(3.9,22,2,10265,0)="""DATA"",396.18,468,3,313,0)"
^XMB(3.9,22,2,10266,0)="M0/EL1>7FG%'S9VDL5C-*<H""MJM`CRP!G8HHYT+C`*N-A1FF(%06436.Z$++J"
^XMB(3.9,22,2,10267,0)="""DATA"",396.18,468,3,314,0)"
^XMB(3.9,22,2,10268,0)="M9TW%BL[""2GA(Q%XKEN+E""3>QBHI9+F24:`61PN]06+6X7\$@Y""3P=RQK#)I\"
^XMB(3.9,22,2,10269,0)="""DATA"",396.18,468,3,315,0)"
^XMB(3.9,22,2,10270,0)="M&>KQT9BR8/$APXKJ@#'W8Y5YL`)K3[,DDU-K*[$2_@2IQFL*`H.M$UENR//,"
^XMB(3.9,22,2,10271,0)="""DATA"",396.18,468,3,316,0)"
^XMB(3.9,22,2,10272,0)="MP8J#NTO$+""+=AD.#5;&`S@QY=V;(5M""""#5D0N2/1L0A,AK*.7#NQRBQQL)+6"
^XMB(3.9,22,2,10273,0)="""DATA"",396.18,468,3,317,0)"
^XMB(3.9,22,2,10274,0)="M(;'*`1\QO)@]292PZ04/R\,0&Y(^1RNQ$O.^^W981!T20$FI\)@I%G&5KETN"
^XMB(3.9,22,2,10275,0)="""DATA"",396.18,468,3,318,0)"
^XMB(3.9,22,2,10276,0)="M!3&=HHU80;2.U&(5$#/2D!N[/#J>4\:9=?0A:ZV]""GW)W641S-**,Y(GK,I#"
^XMB(3.9,22,2,10277,0)="""DATA"",396.18,468,3,319,0)"
^XMB(3.9,22,2,10278,0)="M-M?76EXK;SA6=15_9(96%4JCZ@2%(FEBF9QQ#N8\=.,Y92PBX5`=)9*;]HW%"
^XMB(3.9,22,2,10279,0)="""DATA"",396.18,468,3,320,0)"
^XMB(3.9,22,2,10280,0)="MRI;3-I2M,N:)F3)F[)QF08SUO]""ELA8`.J>\#(W!:8Q%2=:F.`-3^N*2IA;9"
^XMB(3.9,22,2,10281,0)="""DATA"",396.18,468,3,321,0)"
^XMB(3.9,22,2,10282,0)="M6SPLCIC77E6QX@Y6<BS&C<;*E6;`_07M)9D4!0:B:F7IDLBJ+K0;5IG:T-\O"
^XMB(3.9,22,2,10283,0)="""DATA"",396.18,468,3,322,0)"
^XMB(3.9,22,2,10284,0)="M5OS7B!7QE(E-0I8I0;XR6R**(ZPW499*C<(ZK/0+P^EBY4!MKFV/T*/&L&_A"
^XMB(3.9,22,2,10285,0)="""DATA"",396.18,468,3,323,0)"
^XMB(3.9,22,2,10286,0)="M>I?N.G><AC*&96N.6R]TQHDQ<X3/`BN^SYZU;Y\AR8D""2XLHD,+B>PKTED//"
^XMB(3.9,22,2,10287,0)="""DATA"",396.18,468,3,324,0)"
^XMB(3.9,22,2,10288,0)="M2I_W<D<J+*,X#$""4-&MJOX*[SS.39Y:$>58$BS/7:ZCDDCA[\`96IOV/299'"
^XMB(3.9,22,2,10289,0)="""DATA"",396.18,468,3,325,0)"
^XMB(3.9,22,2,10290,0)="MX.!'X=Z[!N?\66#%]X(50L$2<06:1P6UIA(S6%P-,C/7-W#X(QHKLPXTE>4J"
^XMB(3.9,22,2,10291,0)="""DATA"",396.18,468,3,326,0)"
^XMB(3.9,22,2,10292,0)="M:)R13%5MV`-6T_298`74/:O$F2E'KJ1&""R5654N(:'T*]:/!.1FUL[:LA.6,"
^XMB(3.9,22,2,10293,0)="""DATA"",396.18,468,3,327,0)"
^XMB(3.9,22,2,10294,0)="MF'VE%,7T8Q5PST8M?!>'=`0BY>8+JG2.)<Z5K*ZF4!->GI1+`IE%L2;6>?.."
^XMB(3.9,22,2,10295,0)="""DATA"",396.18,468,3,328,0)"
^XMB(3.9,22,2,10296,0)="MP0FOF6+5?X1HE'(L.6$;%`H5"",4#""KC0R-0VX:7P'`/Q#[/@6;0+5CZU*&W;"
^XMB(3.9,22,2,10297,0)="""DATA"",396.18,468,3,329,0)"
^XMB(3.9,22,2,10298,0)="M1?<*H98Y&<M:YH#""&!G32$`D$RBX(@6PTPEJ.L--I@25PN4A_#.1Y&L@?LZ/"
^XMB(3.9,22,2,10299,0)="""DATA"",396.18,468,3,330,0)"
^XMB(3.9,22,2,10300,0)="M%515PI*,BB`*U2NE?CM*_4[%'ZQ""F.8HE.S<(KJA$3Y""(\*>A%P<`>>*93!G"
^XMB(3.9,22,2,10301,0)="""DATA"",396.18,468,3,331,0)"
^XMB(3.9,22,2,10302,0)="MFNHQQ7JQ#BM.9^HSH'XZ4GY!""IRG4Y29SR6G%33""T['`BD/]HSPE^!NCPCKJ"
^XMB(3.9,22,2,10303,0)="""DATA"",396.18,468,3,332,0)"
^XMB(3.9,22,2,10304,0)="M9(^E)OT$/CV1],YYL9IR)4.>(O-8_H&+`<ASO)B)[,8P4""<.5E`F/(Y<K""A+"
^XMB(3.9,22,2,10305,0)="""DATA"",396.18,468,3,333,0)"
^XMB(3.9,22,2,10306,0)="M$B41`+*_U,0JUC&%&JPL""2,_5N-""9!ZO""J^ZU)Z?I%(`&S7#T5ZE0+;&0Q/]"
^XMB(3.9,22,2,10307,0)="""DATA"",396.18,468,3,334,0)"
^XMB(3.9,22,2,10308,0)="MSAB(Q)-)^C1C4$.NU,BG@!54"")>,6@,K?.6S)Y1*N(QL""`ZZOA&*M3,QY5>4"
^XMB(3.9,22,2,10309,0)="""DATA"",396.18,468,3,335,0)"
^XMB(3.9,22,2,10310,0)="M>T.U@JS#:K;NAQAIXO*PKXBG'""O3R#$HKG*:(F!P'UP6/<@E$1UHZ!R+(HE_"
^XMB(3.9,22,2,10311,0)="""DATA"",396.18,468,3,336,0)"
^XMB(3.9,22,2,10312,0)="M<N0@B3\E<]OV,18%2+$R*O9E^-9+\)7C5):H@DP!R>G66%%OKK-IVV$3GT:1"
^XMB(3.9,22,2,10313,0)="""DATA"",396.18,468,3,337,0)"
^XMB(3.9,22,2,10314,0)="M+$P/Q>#LE%^-E7V4AEZ6J=NO4N5=3K$$O`)0]8^BV(/""8)(6""!<?3Y]N_B^P"
^XMB(3.9,22,2,10315,0)="""DATA"",396.18,468,3,338,0)"
^XMB(3.9,22,2,10316,0)="MPL=8%D4ME-OE1($6'6HL://`E;WRY]""[V<L4P4+&BUUD-E0;6O9&H_'*I2S%"
^XMB(3.9,22,2,10317,0)="""DATA"",396.18,468,3,339,0)"
^XMB(3.9,22,2,10318,0)="MEK]DX*/OFDA04IUD54Y'^N3B""=F'+TK&>B4@:\$I<CM7UP.))K(HQ41Q:ZF7"
^XMB(3.9,22,2,10319,0)="""DATA"",396.18,468,3,340,0)"
^XMB(3.9,22,2,10320,0)="M^V%A52F^YXPVYK#:S,]3)UP8[[(FUKK7=H57PR4H'%*^9[\=7:@T+W7;J]5D"
^XMB(3.9,22,2,10321,0)="""DATA"",396.18,468,3,341,0)"
^XMB(3.9,22,2,10322,0)="ME8_""5?%4,^F]#BL0BR8V5X95$Z.9ZQT4<C(T#/D,K'BA,V]IS#LE?O)G)-=3"
^XMB(3.9,22,2,10323,0)="""DATA"",396.18,468,3,342,0)"
^XMB(3.9,22,2,10324,0)="MN\;A]B_$O6L</ZFHA""=)XHI""7W4IK1Q[VV`I;B[E0`&9IU_-0(4_.UDCTV^W"
^XMB(3.9,22,2,10325,0)="""DATA"",396.18,468,3,343,0)"
^XMB(3.9,22,2,10326,0)="MRRN5%D$>""AG+DO(AO0,6JR?F`_7_\5UQFBDGX-HW[36P""OLH5I@S2IX2J^>P"
^XMB(3.9,22,2,10327,0)="""DATA"",396.18,468,3,344,0)"
^XMB(3.9,22,2,10328,0)="M=N83OEN'%2N+C%3Z%>J(UV[6T+ABHISX?)10>]AI3.-`E>D]@%B)^8UPY1-("
^XMB(3.9,22,2,10329,0)="""DATA"",396.18,468,3,345,0)"
^XMB(3.9,22,2,10330,0)="MYUUY\.B,RA0PJ&\=)Z&%E6=[HIH=$-::JQ*K(+9RF\)8+/B2X*!B-9%^.RZ-"
^XMB(3.9,22,2,10331,0)="""DATA"",396.18,468,3,346,0)"
^XMB(3.9,22,2,10332,0)="MT""O@<L4@YKTIOU0N%S5<]5B%%7TO@XKM8L69AT'*Q&*(>=W4@S$&I])OY[@Z"
^XMB(3.9,22,2,10333,0)="""DATA"",396.18,468,3,347,0)"
^XMB(3.9,22,2,10334,0)="MTEB1/,6:2^/<7`'`,I\46>Z.UGT5/<,6N4D6.@YA)S67R!U(>S7&M;=THF2>"
^XMB(3.9,22,2,10335,0)="""DATA"",396.18,468,3,348,0)"
^XMB(3.9,22,2,10336,0)="M\Q273VK1,ZF$+$(L22)&D(""-[885W1TK^ZU2L*_BGQT,K(JD>:)""/.IOKHJD"
^XMB(3.9,22,2,10337,0)="""DATA"",396.18,468,3,349,0)"
^XMB(3.9,22,2,10338,0)="M<N>#%.1DF*Q%8MFK*E;94V/%BABAX[@?K+Q4'3@3@Y$4P;ZQMP8H^`X\""V8_"
^XMB(3.9,22,2,10339,0)="""DATA"",396.18,468,3,350,0)"
^XMB(3.9,22,2,10340,0)="MA._$YL`J]`Y-'AQ8K!R_CI=141<K+-]%$H<?X]BK.;""R5S,J',%X'AY<K(R*"
^XMB(3.9,22,2,10341,0)="""DATA"",396.18,468,3,351,0)"
^XMB(3.9,22,2,10342,0)="M756OEWO\]L""M8^*4=IZ-5>++08')E%*@7=%J\P>[OK.[Y)J)5>)@5188GX45"
^XMB(3.9,22,2,10343,0)="""DATA"",396.18,468,3,352,0)"
^XMB(3.9,22,2,10344,0)="MX9;7$&9(9HNJ>XS-KH]3<:?<P&]<""O3-P""HQ&RJF/]HJK)R]Y=I%GP<K9E@W"
^XMB(3.9,22,2,10345,0)="""DATA"",396.18,468,3,353,0)"
^XMB(3.9,22,2,10346,0)="MTS05]*PD#]N,E>L^UF,5&PZ&'9<A4N\IK-8?:IGF0,;HO%A%1OB]4E5=VKV,"
^XMB(3.9,22,2,10347,0)="""DATA"",396.18,468,3,354,0)"
^XMB(3.9,22,2,10348,0)="M!JW&RJ+TX[JX%BLK'EHISB>I@:Q-6%6KRHM5+[,COW%8-P^*84==K%1(BX.2"
^XMB(3.9,22,2,10349,0)="""DATA"",396.18,468,3,355,0)"
^XMB(3.9,22,2,10350,0)="MVB]76H65W1MH%,.NJ563-Z_'BE:P>OGZ]J-'*H#,*.=)T""JL$I?;9\M[!3/Z"
^XMB(3.9,22,2,10351,0)="""DATA"",396.18,468,3,356,0)"
^XMB(3.9,22,2,10352,0)="ME:DSL)J!WO&3)X^^O+ZT!#R2S%WBM*I?2=JH[;QGM5AEE%47/-M/MI>VMW^V"
^XMB(3.9,22,2,10353,0)="""DATA"",396.18,468,3,357,0)"
^XMB(3.9,22,2,10354,0)="ML_/U]I>,?TREOGG$@BQ(LBQL;!T3+`?K3?*R!F$1+'#G0;O>T,?P9^6Z?+FT"
^XMB(3.9,22,2,10355,0)="""DATA"",396.18,468,3,358,0)"
^XMB(3.9,22,2,10356,0)="MO,1X@.4<,TC'I!D7;FW4LGFP$L0J>?\.5E3M^63P(-6(:O""NP""H20(DW""`O$"
^XMB(3.9,22,2,10357,0)="""DATA"",396.18,468,3,359,0)"
^XMB(3.9,22,2,10358,0)="MP&XN5K)$U\IN6!6V/<K=C0P2,((%Q\6BT:DND7#A99$LH9EP<'.6Q%ECL4I\"
^XMB(3.9,22,2,10359,0)="""DATA"",396.18,468,3,360,0)"
^XMB(3.9,22,2,10360,0)="M:^<96/F4+T!GK@BZ1_5!,.U---JVYUZL3`\KYO65WZQ-^RS:)6P8A$E#^Y5`"
^XMB(3.9,22,2,10361,0)="""DATA"",396.18,468,3,361,0)"
^XMB(3.9,22,2,10362,0)="MX*ME0^K%6A-;?KO?3Z_&B'7_8[/0:FB_^@(F^$</2>QA=5HRETG]NCJKU.&E"
^XMB(3.9,22,2,10363,0)="""DATA"",396.18,468,3,362,0)"
^XMB(3.9,22,2,10364,0)="MS*E<,@]6_'E4&-H;5N1X_G#[7[_>>0R>XT,/IR'S*1DZ^X`X6#-K#-(XB8&O"
^XMB(3.9,22,2,10365,0)="""DATA"",396.18,468,3,363,0)"
^XMB(3.9,22,2,10366,0)="M1>DLK!Q^!R^W"";B7_&'%>;EUY%>%U?%?/-X1CU\</WX]8`*""AX^$,_1%XF,+"
^XMB(3.9,22,2,10367,0)="""DATA"",396.18,468,3,364,0)"
^XMB(3.9,22,2,10368,0)="MA]Y82YS-,%AHVV5(""])W8N`!SN+U<<\M(^_0!U/)C;(02OGSLNUR!X$D3#'W"
^XMB(3.9,22,2,10369,0)="""DATA"",396.18,468,3,365,0)"
^XMB(3.9,22,2,10370,0)="MD/$A'HG*4=X=*W,6D-N""ABM/L4G&;,U,5]FZ?)&C2+&K?UT0NT&R&(D_^E@Z"
^XMB(3.9,22,2,10371,0)="""DATA"",396.18,468,3,366,0)"
^XMB(3.9,22,2,10372,0)="M=]=Z*JS,S1PSV30LQB8P:.!);`FN>G=)/?,HJ]D_H[*3X;B,I1PQ<`G&FK@I"
^XMB(3.9,22,2,10373,0)="""DATA"",396.18,468,3,367,0)"
^XMB(3.9,22,2,10374,0)="M"":YC9.BG4RY)W+`A+,_!772@+$XEU395)Z1(R!WSY]""O],CC8O7W+\!QB&4,"
^XMB(3.9,22,2,10375,0)="""DATA"",396.18,468,3,368,0)"
^XMB(3.9,22,2,10376,0)="M$VZ,&GD1N_0KDW/*R,R-1M$RC4OI9N04`.L:J9FHXIPK_C&^R0MY9X'1.,\E"
^XMB(3.9,22,2,10377,0)="""DATA"",396.18,468,3,369,0)"
^XMB(3.9,22,2,10378,0)="MQ1VEKR=$DA%R(#,_/_\*V&0A)N36Q/&BV5B%,[AL?MN.N""`<2#2?%'T%^@ER"
^XMB(3.9,22,2,10379,0)="""DATA"",396.18,468,3,370,0)"
^XMB(3.9,22,2,10380,0)="MUR=(8TF1_PY_\'6*M&S$""F!%3GN*Q._GBI4_DSY6`XO$RIPQ)_:Y%ZPTQPGX"
^XMB(3.9,22,2,10381,0)="""DATA"",396.18,468,3,371,0)"
^XMB(3.9,22,2,10382,0)="MOR2=P'_(OP;&=BYYTM,4,QM2D'8F1,K/<V1F2UR!%#3))1-H_#QLNXYB<O_T"
^XMB(3.9,22,2,10383,0)="""DATA"",396.18,468,3,372,0)"
^XMB(3.9,22,2,10384,0)="MKD47A#T2?0%2EDD>)IG#0:IBM;*RO+)""Y_""O)+LUS76:A+$//""D8P>.\))5*"
^XMB(3.9,22,2,10385,0)="""DATA"",396.18,468,3,373,0)"
^XMB(3.9,22,2,10386,0)="MQT*<>PGG@!R-&4F?XQJG1ER-::S`KX^D?)^P^]Q)A;!<3\#JB?#99O8K-7$1"
^XMB(3.9,22,2,10387,0)="""DATA"",396.18,468,3,374,0)"
^XMB(3.9,22,2,10388,0)="M""1/'9R57'><ZG6CE\2`TESOE1#P%JLMSP(H%,_BU0<QT-;S00C!.@EIZ5H3["
^XMB(3.9,22,2,10389,0)="""DATA"",396.18,468,3,375,0)"
^XMB(3.9,22,2,10390,0)="M],M/GNQ<W[5?<3.QRIRB>85F\/0^YZ\`J[(""J@^LB.EHE6VB',==2CS&.0GA"
^XMB(3.9,22,2,10391,0)="""DATA"",396.18,468,3,376,0)"
^XMB(3.9,22,2,10392,0)="M)P;@EG>""[L[#^=<X]3!P_]M[3.9]!F/0#U;,]$*GPEUW8@E9%HJAB>ETBN[]"
^XMB(3.9,22,2,10393,0)="""DATA"",396.18,468,3,377,0)"
^XMB(3.9,22,2,10394,0)="M<@""!]Z]:M'9F,\&*""JS,=""7F)HT(!S0#(\;`W33W(I9WOFX-5I$E-%""/E1EG"
^XMB(3.9,22,2,10395,0)="""DATA"",396.18,468,3,378,0)"
^XMB(3.9,22,2,10396,0)="M(`X[""^J5%(+(E1##RL[.2JOV<6K,D'""Q""ZP*K\(G]EYV2L;=H;Q=1:N96-FE"
^XMB(3.9,22,2,10397,0)="""DATA"",396.18,468,3,379,0)"
^XMB(3.9,22,2,10398,0)="MWZJCD$7%V*O?2[5C6)%W-;AMF_D6]""MW42RPBBM8)7ZW58,:U3!/'YIHM0$K"
^XMB(3.9,22,2,10399,0)="""DATA"",396.18,468,3,380,0)"
^XMB(3.9,22,2,10400,0)="MIV/%-,HK6#&_TK0>JU$M2U=,BB^W9PRZXRN*M!>ZZQC<%2N8%+=76M.OJFF4"
^XMB(3.9,22,2,10401,0)="""DATA"",396.18,468,3,381,0)"
^XMB(3.9,22,2,10402,0)="M8EU#5;C/P,J['-+;-_%,]O?*]LYR6[""J*LY!0=6PXC-DW#\(.<@ZE!+`=8^O"
^XMB(3.9,22,2,10403,0)="""DATA"",396.18,468,3,382,0)"
^XMB(3.9,22,2,10404,0)="MA.%JQ1BL`@$IX7)T&?Y53<PE0X6UW:""""2?%Z._I5E=D`@?*PXGO%P7X?C<2*"
^XMB(3.9,22,2,10405,0)="""DATA"",396.18,468,3,383,0)"
^XMB(3.9,22,2,10406,0)="MNG(`B0,6[LP8U7!HLE^L_KF1_<KQE6@UBXDQK+M18""B&)=DS2`G_.*>_)""T9"
^XMB(3.9,22,2,10407,0)="""DATA"",396.18,468,3,384,0)"
^XMB(3.9,22,2,10408,0)="M@QY_5!9T49P.J@?EGAXY_/NBF3P9SP3OU*9G4GR<\E@*&R899_O""JJG\*]=."
^XMB(3.9,22,2,10409,0)="""DATA"",396.18,468,3,385,0)"
^XMB(3.9,22,2,10410,0)="M4P>)F(84\H_P(UF6)1G9*UC`0@VR.&J'O0HJRCH:*S$TQ>""3#BG-]V'=Q832"
^XMB(3.9,22,2,10411,0)="""DATA"",396.18,468,3,386,0)"
^XMB(3.9,22,2,10412,0)="M6%_4I9XYY%G`""FV[VC[<#U91*/I56VR[BQ4%K,RMFB@[C/Z5CG[.Q$KAE!3A"
^XMB(3.9,22,2,10413,0)="""DATA"",396.18,468,3,387,0)"
^XMB(3.9,22,2,10414,0)="MT/SP8E4U6IY``K&2#/<^#[8H?K4+5HD_&'&XL`IWP4K:?TT6VH<OVKY^1;V1"
^XMB(3.9,22,2,10415,0)="""DATA"",396.18,468,3,388,0)"
^XMB(3.9,22,2,10416,0)="M&D;F)W>T&2N#ED=M""1UTN+!#$7UZ?*C'8,""L84<B[ZZ##FUQ?MC'(`IMRW""+"
^XMB(3.9,22,2,10417,0)="""DATA"",396.18,468,3,389,0)"
^XMB(3.9,22,2,10418,0)="M[3^12F7Z;-_38..Q""O&?ZD*0,R(%::#BF]8""""\.,AR'9-U0MLNU&1!A3!&A1"
^XMB(3.9,22,2,10419,0)="""DATA"",396.18,468,3,390,0)"
^XMB(3.9,22,2,10420,0)="M$2A.]FW6VXB5[;9CSV))0H/?8#4[D!)'6&,ABG^#U>X/Q2MB<7!XL8)2.,Z#"
^XMB(3.9,22,2,10421,0)="""DATA"",396.18,468,3,391,0)"
^XMB(3.9,22,2,10422,0)="M,>8>@O\3^/LN/%NAWD_._6ABOO/<#Q#R_S7>8*.P""L-<R9)RKA3#9SPL8CXG"
^XMB(3.9,22,2,10423,0)="""DATA"",396.18,468,3,392,0)"
^XMB(3.9,22,2,10424,0)="M_#!AQ:%3E=W*+P-N5+5(K9RUIR""?-Q<KC@4=IIBOP'L\G8YE00?(\\"",#W'"""
^XMB(3.9,22,2,10425,0)="""DATA"",396.18,468,3,393,0)"
^XMB(3.9,22,2,10426,0)="M5""O&0VD(@KJFR.J?DE2>9&JMMQFK,4KM2^G;""68/84)5D5DD)4QEN0>!RB5Q"
^XMB(3.9,22,2,10427,0)="""DATA"",396.18,468,3,394,0)"
^XMB(3.9,22,2,10428,0)="M:**R9=*""W/\TB44-QJI(OL(L&,@?@DPK`ROH>7C*&""3[L1))#H+""<I@BDL)V"
^XMB(3.9,22,2,10429,0)="""DATA"",396.18,468,3,395,0)"
^XMB(3.9,22,2,10430,0)="M'0:L1,^88C45R,0:<Y)B&0TY-`4V,!+AT#2'=Z:3R9B78S#%_I2""&""P_%%CE"
^XMB(3.9,22,2,10431,0)="""DATA"",396.18,468,3,396,0)"
^XMB(3.9,22,2,10432,0)="M""!.FQ:13--30E^0\-]'I#)#`5ZC$ZZQ1A$R7)SD,MCV767ZJ_A!76!6VK#RE"
^XMB(3.9,22,2,10433,0)="""DATA"",396.18,468,3,397,0)"
^XMB(3.9,22,2,10434,0)="MBC""!P0?);2EFNAT6G\$IPN`^X7[_BA<('PZLO'7!YH3X0""'T?+`R[YI;F?_\"
^XMB(3.9,22,2,10435,0)="""DATA"",396.18,468,3,398,0)"
^XMB(3.9,22,2,10436,0)="M*?%NM\]0+;QB(L3G`8,?/+PPSG%\[0<;H_N?7AY]]M+5=]Y9^[%^=>&U;[S7"
^XMB(3.9,22,2,10437,0)="""DATA"",396.18,468,3,399,0)"
^XMB(3.9,22,2,10438,0)="MN[UU])O'UD:?'GW[A8_ZZUMWC_WHR,)2KW_G[M:Q_PC""*]U/M_JCX<(9UAW>"
^XMB(3.9,22,2,10439,0)="""DATA"",396.18,468,3,400,0)"
^XMB(3.9,22,2,10440,0)="MZ75&MSO71G#@S<ZUM>7.NZ/^<&NS<Z8_[*SW[FST>INODK7NS0\VUGL;1X\$"
^XMB(3.9,22,2,10441,0)="""DATA"",396.18,468,3,401,0)"
^XMB(3.9,22,2,10442,0)="M""VOO=6_V!B?Q2_'I^3<NRJ]<Q*^\(K_RZ!GUC4=/%E\8GMO<@N\(O*V\;K;R"
^XMB(3.9,22,2,10443,0)="""DATA"",396.18,468,3,402,0)"
^XMB(3.9,22,2,10444,0)="ML6KE3SRMG!^NU[=RR6SE)ZJ5[[BM++PVHY$WC$:._6V@6GG5<RT7MN[6-_,]"
^XMB(3.9,22,2,10445,0)="""DATA"",396.18,468,3,403,0)"
^XMB(3.9,22,2,10446,0)="MLYF?SFKFXHQFOG=6-G,;;^D5U<KK;BLOOCW:V.S?'O0^$Z_\39W#IH[]=V""U"
^XMB(3.9,22,2,10447,0)="""DATA"",396.18,468,3,404,0)"
^XMB(3.9,22,2,10448,0)="M]8[;UDO+@^YPJ[O1N3JCN3<NR""O[*^N'_R//_9WM;(TZ;YSU7]1Y>5$_#^9K"
^XMB(3.9,22,2,10449,0)="""DATA"",396.18,468,3,405,0)"
^XMB(3.9,22,2,10450,0)="MYOQ%?S.OF1?S\6ZM7*BYF`O6Q>S:S&LUS5PT+^8G>VWE=>MB=FWF?$TSEXR+"
^XMB(3.9,22,2,10451,0)="""DATA"",396.18,468,3,406,0)"
^XMB(3.9,22,2,10452,0)="M*;OS4S?SAGDU<[1SKJ:=[YF7\],]-O/:V;/6Y3Q5.R?*=N2(./J7B/`?JS:N"
^XMB(3.9,22,2,10453,0)="""DATA"",396.18,468,3,407,0)"
^XMB(3.9,22,2,10454,0)="M>0;$F0\_'7<WUCOWT%:^6K3U8MG6175)_Q58K45N:]\\\_9H/+3;""\*UR_>W"
^XMB(3.9,22,2,10455,0)="""DATA"",396.18,468,3,408,0)"
^XMB(3.9,22,2,10456,0)="MMD;#W\(6Y?-SY]3H^.X1O,T'1U2C?Z$;_?VBT1>N#$:;O=)8!^$'PRN#_JU/"
^XMB(3.9,22,2,10457,0)="""DATA"",396.18,468,3,409,0)"
^XMB(3.9,22,2,10458,0)="MPM.?R=9^T!OV-OJW\*#XPK7EJV<7UI:[0WT7^/2B@B3$FWA)S2`_/ZIGD(='"
^XMB(3.9,22,2,10459,0)="""DATA"",396.18,468,3,410,0)"
^XMB(3.9,22,2,10460,0)="MOK$DIHB%%Y8_6/YP>?%R[T%O0(>BX9#<?,""Z_<W>^HG+([B""U:W/!SUQ='.U"
^XMB(3.9,22,2,10461,0)="""DATA"",396.18,468,3,411,0)"
^XMB(3.9,22,2,10462,0)="M/[PSZ+UP9308B;-N#5;[@P>]C1>OCH9;?WKE;G=CL[<5OO3V.U??^O""]M1]?"
^XMB(3.9,22,2,10463,0)="""DATA"",396.18,468,3,412,0)"
^XMB(3.9,22,2,10464,0)="M67J+K;ZSMBC?Q8^$MP:7!]U;GYS`8^K&?WD<7[W?O==;.'EMM;/:'6YV5L7]"
^XMB(3.9,22,2,10465,0)="""DATA"",396.18,468,3,413,0)"
^XMB(3.9,22,2,10466,0)="MW98?Q6\_$2PN=S=ZPRTX1$IL0D^7.J=&[;$_1*R/+JI;_X=`8_UR@?7O7>WU"
^XMB(3.9,22,2,10467,0)="""DATA"",396.18,468,3,414,0)"
^XMB(3.9,22,2,10468,0)="MMMX4UK&[U;DZ&FUUSC`XX]5]WM/CN>YIX?;FY=%@W;JUP'M#RH!\*3M/HL;("
^XMB(3.9,22,2,10469,0)="""DATA"",396.18,468,3,415,0)"
^XMB(3.9,22,2,10470,0)="ML;\+W""[Y""MY`9ZG7&W1^V!W<N2]\@+>5`_""FO_5+9NM'_UPU_CO:USCZ!T7C"
^XMB(3.9,22,2,10471,0)="""DATA"",396.18,468,3,416,0)"
^XMB(3.9,22,2,10472,0)="M/WF[MWEKHW^SU^D./^\\Z&Z(UD<;X@E^CW!#[@L@Q8G@C&S=%3[)9N=6=W""K"
^XMB(3.9,22,2,10473,0)="""DATA"",396.18,468,3,417,0)"
^XMB(3.9,22,2,10474,0)="MO]D1;LA&3[ZY>;?_*0QD.&$P&M[I=#\3)ZA/;/5O]KNBI?7.[?Y-T1KY2'3!"
^XMB(3.9,22,2,10475,0)="""DATA"",396.18,468,3,418,0)"
^XMB(3.9,22,2,10476,0)="MCS:ZGQ[W7ONYBQ8R_ZF1^7L/,IWW1K>*JQOCNYV;O>Z&Z-2=07_8^[[_&VSL"
^XMB(3.9,22,2,10477,0)="""DATA"",396.18,468,3,419,0)"
^XMB(3.9,22,2,10478,0)="M_U?;IR6/;2G0&8E;V7@S?&?8O3GHK9,:FW!6V825H]CT7S^%33BYBTVH<RN5"
^XMB(3.9,22,2,10479,0)="""DATA"",396.18,468,3,420,0)"
^XMB(3.9,22,2,10480,0)="M4=""_=:3@>K/XK:^6W[$0O+!VK7=O)&T*/#MW]H)I4_3`^F[QZ=>423GW^L5S"
^XMB(3.9,22,2,10481,0)="""DATA"",396.18,468,3,421,0)"
^XMB(3.9,22,2,10482,0)="MY_8YAGYAC*$35T;W-_J]C<[[O;%E%4Z^)WZX3?$*?L7-(PN!-9@65V]MC`:#"
^XMB(3.9,22,2,10483,0)="""DATA"",396.18,468,3,422,0)"
^XMB(3.9,22,2,10484,0)="MR^(*PL7-S1_V-K;ZHC\:IG6&!W[QO/7#?^>(@Q4K?I[3;ZVO]^%9=]""Y,KIW"
^XMB(3.9,22,2,10485,0)="""DATA"",396.18,468,3,423,0)"
^XMB(3.9,22,2,10486,0)="M3US`9ODM)SQ`GC>!?-D!\L\,(,\W'4CET?TVWNNWU;W^3;&4^<=R*7/JK5MW"
^XMB(3.9,22,2,10487,0)="""DATA"",396.18,468,3,424,0)"
^XMB(3.9,22,2,10488,0)="M^X-!;[/SUJ!_9P@XFM_QTMJ5Y8^NL>YZ?X2-_RY^CWWLW`4%[3%KWAL7T'Z["
^XMB(3.9,22,2,10489,0)="""DATA"",396.18,468,3,425,0)"
^XMB(3.9,22,2,10490,0)="MA/;L&XNK=T=C.<N1%]^]O[G5O_TYW>K=VSP>PI_E[KHQ69Q^7]@.VW!\/Q3`"
^XMB(3.9,22,2,10491,0)="""DATA"",396.18,468,3,426,0)"
^XMB(3.9,22,2,10492,0)="MW[\WW#QZ[""1^KD1PX?W1QKWN8.$DE0[""Y=%8O+%P^EIWXY/>>N?_N;OVV#B."
^XMB(3.9,22,2,10493,0)="""DATA"",396.18,468,3,427,0)"
^XMB(3.9,22,2,10494,0)="M\[YW1YU(ZDG1>MF6O)*L2+)IZ7;WGJJ3AGK9;&5)$1FK>3C-ZFY);G1W>[F]"
^XMB(3.9,22,2,10495,0)="""DATA"",396.18,468,3,428,0)"
^XMB(3.9,22,2,10496,0)="M$T7;B6$@10/$@1LT3>VZJ.,ZCALX:.ND#R1MX`0)$*!Q@1:MD;:)""S0!VB9P"
^XMB(3.9,22,2,10497,0)="""DATA"",396.18,468,3,429,0)"
^XMB(3.9,22,2,10498,0)="M$P0MV@;]IS,[W^S.W,[.[4J4>$<C"",@3[YOYS7SO[YN94[;;0EME88P*MY#Q"
^XMB(3.9,22,2,10499,0)="""DATA"",396.18,468,3,430,0)"
^XMB(3.9,22,2,10500,0)="M4!HLRF,RE%HN$<HMEVXNPE1<A'D6X05`^+*OV%5F'TN)$.X]Z;3;5K6#E;.Z"
^XMB(3.9,22,2,10501,0)="""DATA"",396.18,468,3,431,0)"
^XMB(3.9,22,2,10502,0)="M9*.8K6$V[1;8+@:PK\![D6?>8[G9]4A`.C;""GS[G,/AB\VF!Q=<&?&\*\562"
^XMB(3.9,22,2,10503,0)="""DATA"",396.18,468,3,432,0)"
^XMB(3.9,22,2,10504,0)="MX;M@(G.+[++;,MV&BIA6C&\D$M\(XG0K.X+I9-?-8BK9D1/(J#$P,S*)SS,2"
^XMB(3.9,22,2,10505,0)="""DATA"",396.18,468,3,433,0)"
^XMB(3.9,22,2,10506,0)="MG_D:-<K?\K&U`HD_X[2M>>QY""20^%7,E(>4PYJWDYA""GL+)03+22=\VXV""MI"
^XMB(3.9,22,2,10507,0)="""DATA"",396.18,468,3,434,0)"
^XMB(3.9,22,2,10508,0)="M6^H\G29B>)/.-%C*M)!#>,:(+=HE%LXQ*9QDC+\?P;$[:I5A_\O+$<R1EC,_"
^XMB(3.9,22,2,10509,0)="""DATA"",396.18,468,3,435,0)"
^XMB(3.9,22,2,10510,0)="M#RVV3)=9:`])H273S;L0-!:(VD*\.]^M7R>@M(R[P>=\4^'9^VL""]IYXR*Y%"
^XMB(3.9,22,2,10511,0)="""DATA"",396.18,468,3,436,0)"
^XMB(3.9,22,2,10512,0)="M<7<ZWII!-)KVG,3TO;(UTW/#Q0XT1""70?@F@?4$(35ME=N@%M%T`J%!D\<@5"
^XMB(3.9,22,2,10513,0)="""DATA"",396.18,468,3,437,0)"
^XMB(3.9,22,2,10514,0)="M44*5[BNB!C#4#>FA:-XNLIK[6""JDN6U_2F,7VLC?Q3^R1D$47X+0;_5618<@"
^XMB(3.9,22,2,10515,0)="""DATA"",396.18,468,3,438,0)"
^XMB(3.9,22,2,10516,0)="MYU?#\=/D=,/I-CLX/&M1VDP,%8^E=%;#;)%*BY[,^_.WP)]<XG4?FT/1P67'"
^XMB(3.9,22,2,10517,0)="""DATA"",396.18,468,3,439,0)"
^XMB(3.9,22,2,10518,0)="M7W;Z&UWVK6SJ-/,I?];;F5D;_I*,XS'I*C+2%[+F#]GU6G;T(0?]J]FQLEGB"
^XMB(3.9,22,2,10519,0)="""DATA"",396.18,468,3,440,0)"
^XMB(3.9,22,2,10520,0)="MH$GYH,3I.)\17@L8(1AP1+CK%78C1N'[OZ>$DPI'9G#J0#7;U46TM)9K819H"
^XMB(3.9,22,2,10521,0)="""DATA"",396.18,468,3,441,0)"
^XMB(3.9,22,2,10522,0)="MJLVPL\TF`^)Q@\$*Y'Z8Q)\*!3(?CQMN@L&G[E*:V_V_$,ZRD(AG#XJ7-BJ&"
^XMB(3.9,22,2,10523,0)="""DATA"",396.18,468,3,442,0)"
^XMB(3.9,22,2,10524,0)="M2<?3[1'9#++6F;]-]<UFC$_7ZRH)'@+""&_ND--;-G48Q-DGYXI_X5$;F5:6W"
^XMB(3.9,22,2,10525,0)="""DATA"",396.18,468,3,443,0)"
^XMB(3.9,22,2,10526,0)="M""L((C6:P*<-XNU($$7@VQ<6MSX4<=%TSRH7KU.8MSU./<M#C[,>ZF*8)LOY3"
^XMB(3.9,22,2,10527,0)="""DATA"",396.18,468,3,444,0)"
^XMB(3.9,22,2,10528,0)="M)-?T(G5:ONS#V4/A&+E<,LUX`/*,\1R)&)A&64VYF=.47*XR\P\4QN^$5""6&"
^XMB(3.9,22,2,10529,0)="""DATA"",396.18,468,3,445,0)"
^XMB(3.9,22,2,10530,0)="M841HR+'>.6P^?]5JJPMMR^RH'<=""(:Q50Y$=SE(&'ZX[C_=,42"";L\'/YO1P"
^XMB(3.9,22,2,10531,0)="""DATA"",396.18,468,3,446,0)"
^XMB(3.9,22,2,10532,0)="MXO\IH4S10692>5]_#T%>9SRRO$##5[Z\\&._O/#\6B@OC`HM&Y2'#O#EA:<$"
^XMB(3.9,22,2,10533,0)="""DATA"",396.18,468,3,447,0)"
^XMB(3.9,22,2,10534,0)="MY84=H?(""_N:@51=X]OT,5:1/A#VTV_$?BFL+8M*00WV!+-7]0U5:`%7SN10?"
^XMB(3.9,22,2,10535,0)="""DATA"",396.18,468,3,448,0)"
^XMB(3.9,22,2,10536,0)="MYJU@::',C?##&RLM;&*,,5WWRJVK+!AY;JLOP6KE_:V^7UY9R+'N(I6I@_ZW"
^XMB(3.9,22,2,10537,0)="""DATA"",396.18,468,3,449,0)"
^XMB(3.9,22,2,10538,0)="M[_&->;Z2'Y*$>*_'8N0X0:,V.#T3]ECRE2+GL42N.N0B7B0D;T^%EOT#-U""D"
^XMB(3.9,22,2,10539,0)="""DATA"",396.18,468,3,450,0)"
^XMB(3.9,22,2,10540,0)="M@/!\E`MG@SUY@)EN8<B+%$915*1X\F85*?0*F_R=@.$.""-+W^8HVM$4*8'A`"
^XMB(3.9,22,2,10541,0)="""DATA"",396.18,468,3,451,0)"
^XMB(3.9,22,2,10542,0)="MJ0'*_4*4QE`6*0R-1?@N0/B2(D*8&\(BA<$5TQS`]X80GSY<18I\19CJ>NV&"
^XMB(3.9,22,2,10543,0)="""DATA"",396.18,468,3,452,0)"
^XMB(3.9,22,2,10544,0)="M4EU<J?,FI[H,`+""I?ZHK5QB<5!?$#=N]64_+4EVYXDJFNL1)""_!]W[A)28O("
^XMB(3.9,22,2,10545,0)="""DATA"",396.18,468,3,453,0)"
^XMB(3.9,22,2,10546,0)="M_!JX`M^]_OQ:GNV07:7\6CXGRJ]]55##S%=*JY9?RW-EAE/2699O0GZM-Z*-"
^XMB(3.9,22,2,10547,0)="""DATA"",396.18,468,3,454,0)"
^XMB(3.9,22,2,10548,0)="M`7(#\6N\+X[RR;=(?582%EU?NTE%5\-@M<]6B?;)5RJ#7W0%1QK@2""N3N4$K"
^XMB(3.9,22,2,10549,0)="""DATA"",396.18,468,3,455,0)"
^XMB(3.9,22,2,10550,0)="M18D!Y5E`TBIR;G#*AM'<7>84II2]5Z#H:G""G&+9*5T]?S4I>/#3L08@^S)T?"
^XMB(3.9,22,2,10551,0)="""DATA"",396.18,468,3,456,0)"
^XMB(3.9,22,2,10552,0)="M""N;FCH?(F=M8:>:.5N?]H4KT>KRB!(C!,RGVY$?F1R'DN""B1'_2B1!&\H/TD"
^XMB(3.9,22,2,10553,0)="""DATA"",396.18,468,3,457,0)"
^XMB(3.9,22,2,10554,0)="M3?7;2JA`=X#""T2L)K<C-+4KP/JV6XQ)YWPFG""MFJ1.[65""6*!C>IG]%)Y?SP"
^XMB(3.9,22,2,10555,0)="""DATA"",396.18,468,3,458,0)"
^XMB(3.9,22,2,10556,0)="M^S`S*6V-5""5`TUWSQ&,O[2CQTSB5_E6)0:H_C(D.WM#`]5XN+3>7""I<?CI'R"
^XMB(3.9,22,2,10557,0)="""DATA"",396.18,468,3,459,0)"
^XMB(3.9,22,2,10558,0)="MPTFGN6`U[0YB'11OG\*8G1:V-N@#KRIQRG8]J1JHNH1.NX-VL`V@Z?V""<T&G"
^XMB(3.9,22,2,10559,0)="""DATA"",396.18,468,3,460,0)"
^XMB(3.9,22,2,10560,0)="MK[7J2&<Q`;2(G,&00]Y_(GK"")#L4""%XA+LE8*';<%YED'^D3-L;+(8(1W.(-"
^XMB(3.9,22,2,10561,0)="""DATA"",396.18,468,3,461,0)"
^XMB(3.9,22,2,10562,0)="M_RR5[X^(TFOY9%;PK&\+3*1`FR1MK+K=%IICHX6@U+!]P$65JL];QVH<8_E?"
^XMB(3.9,22,2,10563,0)="""DATA"",396.18,468,3,462,0)"
^XMB(3.9,22,2,10564,0)="M2Z9E8R=0RPQXWP-XEX]]'X,]6?+C1(""]J=H(!%1V.HM8XQ+(L""!+IJLN.4A8"
^XMB(3.9,22,2,10565,0)="""DATA"",396.18,468,3,463,0)"
^XMB(3.9,22,2,10566,0)="MFFA!D'%QK?95NVHE=N)Z53?MF-K!'VIYS$>G,^B&JIZ<$8""ML&+^`2G6XC!A"
^XMB(3.9,22,2,10567,0)="""DATA"",396.18,468,3,464,0)"
^XMB(3.9,22,2,10568,0)="M3?%6:D-@I0CBS(D4E_W_8E!L6`NU\W'!R4JH>*:7/>`;0IU.@13N)J:+'&;S"
^XMB(3.9,22,2,10569,0)="""DATA"",396.18,468,3,465,0)"
^XMB(3.9,22,2,10570,0)="MC-3L<J/5<1KN*AJI(#C=S`6G)3:EN0=0?=3?SHNI%>36Q/L@.N&J0]KS\^2$"
^XMB(3.9,22,2,10571,0)="""DATA"",396.18,468,3,466,0)"
^XMB(3.9,22,2,10572,0)="MZSZP7`<$MG""ZHUZTW(Z0""GB8OT&HW`94#@FH7#+K5Q""'BJC0<QZ$)]8#D7O"""
^XMB(3.9,22,2,10573,0)="""DATA"",396.18,468,3,467,0)"
^XMB(3.9,22,2,10574,0)="M1$9G.R;2O!%4X)C>IQ76\TNGPV12C^/OSRZ:+8N(I/<CU#F>\+Z]$[[MZZ!)"
^XMB(3.9,22,2,10575,0)="""DATA"",396.18,468,3,468,0)"
^XMB(3.9,22,2,10576,0)="MX9!@__^9#'D0OK0L:)OPJ_=NRZK:\W95K4/#0-RX#YR7C9Y%6$]=C7K8W!6U"
^XMB(3.9,22,2,10577,0)="""DATA"",396.18,468,3,469,0)"
^XMB(3.9,22,2,10578,0)="M9&'?MK.(VW`=PFK6NFVSR9FO6\.WD492S-#[O$!LT:I>""0(Q^$V#97J4<QDG"
^XMB(3.9,22,2,10579,0)="""DATA"",396.18,468,3,470,0)"
^XMB(3.9,22,2,10580,0)="MZ""I-T%4R""N4@X&'[$J(I@\Y^6NE/6A>07A]-6H<:_DLQ2.<$I$?C!=N`@+!0"
^XMB(3.9,22,2,10581,0)="""DATA"",396.18,468,3,471,0)"
^XMB(3.9,22,2,10582,0)="M>J&W-K4O&$7B,(T*.&C=@R@6'72F&8]>?YKK(TS3DBQ_OBQ8_@T2R@6.::2D"
^XMB(3.9,22,2,10583,0)="""DATA"",396.18,468,3,472,0)"
^XMB(3.9,22,2,10584,0)="M*P+2&^/MK)YCE<.O*9*M+502;>WH1:N&7""!WT'=WBV0/RLSN(E,EV8.B2'""W"
^XMB(3.9,22,2,10585,0)="""DATA"",396.18,468,3,473,0)"
^XMB(3.9,22,2,10586,0)="M2DAS.J$/;4-`>T)""N\0JA3ZT1;IL6]C3AI(-&*S,4^%K!+8S1'/#Y&M/QI,4"
^XMB(3.9,22,2,10587,0)="""DATA"",396.18,468,3,474,0)"
^XMB(3.9,22,2,10588,0)="MVJZQD6^X$TA*,9=,""8Y=LLPKPR`J>Z)YCIZ<)J+REH3EBCF1)MPK(:UQHB*G"
^XMB(3.9,22,2,10589,0)="""DATA"",396.18,468,3,475,0)"
^XMB(3.9,22,2,10590,0)="M+5*%=PG8.<^Q\X]D[%S,#57HJ,9DYSS+SI^3*?Z2D8B=QV?1/\\/`S_?)F&Z"
^XMB(3.9,22,2,10591,0)="""DATA"",396.18,468,3,476,0)"
^XMB(3.9,22,2,10592,0)="M`LO/?RA3H:6B@.>V2TCG.7Z6TRX):.^0T#8XU2^G71#0WBF0E0(G*Z](57]I"
^XMB(3.9,22,2,10593,0)="""DATA"",396.18,468,3,477,0)"
^XMB(3.9,22,2,10594,0)="MJ%)*NV+*2H&5E6_*9,5()BN;SJ!(;L&\;-?MSO*@B\MN""=]QGM+K,K8S1.)R"
^XMB(3.9,22,2,10595,0)="""DATA"",396.18,468,3,478,0)"
^XMB(3.9,22,2,10596,0)="MNX1TB1,7.6V1N-PA8.DBQ]+?EK*T,50L?6=,EBZR$=TAF=N?3Q;1X9[*0>=D"
^XMB(3.9,22,2,10597,0)="""DATA"",396.18,468,3,479,0)"
^XMB(3.9,22,2,10598,0)="M)9K=:.7H4:X-4\1L!1&SQ6W^+>JL2CF4BMR`8E%/IE*R7E%WT'?@8/0.%#E7"
^XMB(3.9,22,2,10599,0)="""DATA"",396.18,468,3,480,0)"
^XMB(3.9,22,2,10600,0)="M,I>*W`*T-"")=\C8):=Z5E-,6;>\A"">T<9WKEM$6F][`B.$;!Y0DS]Z6B%16B"
^XMB(3.9,22,2,10601,0)="""DATA"",396.18,468,3,481,0)"
^XMB(3.9,22,2,10602,0)="M.E2*ZH@(;IF#NTD*5RL,$]R[!59(YY+`#9D1RA?7^0`N+=H=:YBP;Y;D*O)<"
^XMB(3.9,22,2,10603,0)="""DATA"",396.18,468,3,482,0)"
^XMB(3.9,22,2,10604,0)="M`E.:YBJ%NJ?H&D2T1FV2>!45;ERIGA<IF8S$@N2XS)V4M""@4CGEA""*V'$0O^"
^XMB(3.9,22,2,10605,0)="""DATA"",396.18,468,3,483,0)"
^XMB(3.9,22,2,10606,0)="M((SRB""A^2]:8/#:[9-7K_.'^@;0AZP0BI7$B=4X:JE2&28;&))8GSQK,K3+#"
^XMB(3.9,22,2,10607,0)="""DATA"",396.18,468,3,484,0)"
^XMB(3.9,22,2,10608,0)="MH]V45$;BNN)^""1B#,]%R-*6!0'-`P(=\?<^0\6%AJ.S8B""+N:-)`D?^0[%LW"
^XMB(3.9,22,2,10609,0)="""DATA"",396.18,468,3,485,0)"
^XMB(3.9,22,2,10610,0)="MP;'A5)^.)O&ER""6FZBH=3GCX)IW@8F2F^Z+,G@;9$FJ^>&XM-%]L$-6K`7C+"
^XMB(3.9,22,2,10611,0)="""DATA"",396.18,468,3,486,0)"
^XMB(3.9,22,2,10612,0)="M`SX""P/]8T'RQBS1?>(?]![WWPF![+[:'>B_>/W""]%]1K^4SLWHM;STC""6]'!"
^XMB(3.9,22,2,10613,0)="""DATA"",396.18,468,3,487,0)"
^XMB(3.9,22,2,10614,0)="M+#\9N]MC0.8-H:@3N[]D0.8-1O3C""GLD7=S1LCHS[NVA@:Q+-T$/#5Q]E?FZ"
^XMB(3.9,22,2,10615,0)="""DATA"",396.18,468,3,488,0)"
^XMB(3.9,22,2,10616,0)="MPIX@3-A#LQKH`]=G,^_Z$#P?4]A;,$1Q0WY`')_UT5CH!5@QL!0&`LMHV(F#"
^XMB(3.9,22,2,10617,0)="""DATA"",396.18,468,3,489,0)"
^XMB(3.9,22,2,10618,0)="MWHC,:P3$7.B$R2X&17[(@HG>$/,V08C)732Q""'OX_G""$F2\ENQIW^+I^>.8N"
^XMB(3.9,22,2,10619,0)="""DATA"",396.18,468,3,490,0)"
^XMB(3.9,22,2,10620,0)="MLU:A*^'MFQ-B7H='%PFEPND<&99R;B""P;)3TV>4XI2/=F/)`@-DD4#H:IW0^"
^XMB(3.9,22,2,10621,0)="""DATA"",396.18,468,3,491,0)"
^XMB(3.9,22,2,10622,0)="M+%,ZI=*090%CY;78:T,ROZY(U$XYV?'9-=""1IFF,ZLE\6I')ZV#854D/''W7"
^XMB(3.9,22,2,10623,0)="""DATA"",396.18,468,3,492,0)"
^XMB(3.9,22,2,10624,0)="MB""B?/F@&(W$U$:U)-5;Y]`&3'P@P@C8_76>U3^8W%9GZ*1MKL,U/8Q_'"")K-"
^XMB(3.9,22,2,10625,0)="""DATA"",396.18,468,3,493,0)"
^XMB(3.9,22,2,10626,0)="M1.JGDJQ;?BVT^4&6#_3/?\N8O#(8,8JDL9`^``7Z1XYF,!P&02LC/4D#(ON?"
^XMB(3.9,22,2,10627,0)="""DATA"",396.18,468,3,494,0)"
^XMB(3.9,22,2,10628,0)="M4I&M%(:\E5$4IK""/H63^0.HP)*N$K8E.1GB$#$3VRU(FUP:""R26]D_1B51!9"
^XMB(3.9,22,2,10629,0)="""DATA"",396.18,468,3,495,0)"
^XMB(3.9,22,2,10630,0)="M.1I](-!(NC7I):[/QD$S&.&7H#]4SW,*Z(_D/D-ER/M#10JHR""J@UV4*J)3L"
^XMB(3.9,22,2,10631,0)="""DATA"",396.18,468,3,496,0)"
^XMB(3.9,22,2,10632,0)="M_J?A;0_E?6,VC9YY0\;FI<%PC27]J#0K""""I(CF8P8C!!!RP].`A""^S=2H2WI"
^XMB(3.9,22,2,10633,0)="""DATA"",396.18,468,3,497,0)"
^XMB(3.9,22,2,10634,0)="M0]X!*Q+:,IO<I._T/BQR&I+)[+`WP.ILBB&=EW4OZ>(&V$C*7+PO)VV(&Z,B"
^XMB(3.9,22,2,10635,0)="""DATA"",396.18,468,3,498,0)"
^XMB(3.9,22,2,10636,0)="M21M<ZD]*6A.W<X4DI,@EXHY)!*10R`U9""T>L2)B]@3GH9UT4G1M/YE>'6I1C"
^XMB(3.9,22,2,10637,0)="""DATA"",396.18,468,3,499,0)"
^XMB(3.9,22,2,10638,0)="M7'5R,-JZ&*QU.2[MN]7Z]0OSE/.<JI>3UONU""_.D""YSK)R>=DW4+,QQ;XG1Z"
^XMB(3.9,22,2,10639,0)="""DATA"",396.18,468,3,500,0)"
^XMB(3.9,22,2,10640,0)="M*17-LFC+;JTCEK0U.!:#LA=H!YUB0@;-K=S%!C&857+-@,YE4/9(V]M$+""5I"
^XMB(3.9,22,2,10641,0)="""DATA"",396.18,468,3,501,0)"
^XMB(3.9,22,2,10642,0)="MG3/X?*J<MDC!""AK9-#XAN%O.4]J0=63'XC+N+=D9B7.O&=?99QM]*^0J.P]<"
^XMB(3.9,22,2,10643,0)="""DATA"",396.18,468,3,502,0)"
^XMB(3.9,22,2,10644,0)="M7W5D$VXD/W*>A+0'8#""R^]FHWD;P+OZ*"",$2%:RS4;V-J]F^%[>;D@5(GY1H"
^XMB(3.9,22,2,10645,0)="""DATA"",396.18,468,3,503,0)"
^XMB(3.9,22,2,10646,0)="M]L6WDLV4$!4N>>QQ&A3+'K_][A^5N,V4T-TT^*V5&VD;TP;F)B2R""B>X&QE_"
^XMB(3.9,22,2,10647,0)="""DATA"",396.18,468,3,504,0)"
^XMB(3.9,22,2,10648,0)="M2]!9>1OIK#Q]S6P@O==VT39TK%7LJA1*""OB,5SQ&^JS2VY6[-[()6(E]&S[?"
^XMB(3.9,22,2,10649,0)="""DATA"",396.18,468,3,505,0)"
^XMB(3.9,22,2,10650,0)="MP\F^Q.""_</MS?_D>82,3P:5BW'O)&^'KW_._GO?G^](YL]WV6L;N4_UV,LNL"
^XMB(3.9,22,2,10651,0)="""DATA"",396.18,468,3,506,0)"
^XMB(3.9,22,2,10652,0)="M+JK>1<RNU3+QJP'U9?Q*U)2ZM&@U5;/50I/'>FW*NPWPJEWK>G>P(JLUYZ@U"
^XMB(3.9,22,2,10653,0)="""DATA"",396.18,468,3,507,0)"
^XMB(3.9,22,2,10654,0)="MR[47FNA+O?\XI79=*[BG=4K5FS7R@]&&'_*=1?(#?I.J0'XYJJKL+?Q18@=:"
^XMB(3.9,22,2,10655,0)="""DATA"",396.18,468,3,508,0)"
^XMB(3.9,22,2,10656,0)="MV64CI<RD__C:Z;70P[Q)M-<0T'U)8;LY,Y\7B-IV(FH7V@[:NX8ZVVTTS/;R"
^XMB(3.9,22,2,10657,0)="""DATA"",396.18,468,3,509,0)"
^XMB(3.9,22,2,10658,0)="M`,C:1D;6P-O_)V*4]B9HN%?Z/I?9XP1""A66GMW!WP,+]BZ^I?Z[XIMPH&,-W"
^XMB(3.9,22,2,10659,0)="""DATA"",396.18,468,3,510,0)"
^XMB(3.9,22,2,10660,0)="MO>)$(!R%'/X/1.1Q3JE\R\=;6`LBLIF*R`334NNA!SGY))&3+,!_12`G.^&F"
^XMB(3.9,22,2,10661,0)="""DATA"",396.18,468,3,511,0)"
^XMB(3.9,22,2,10662,0)="M1>NJ;2WA>.FB546X;[37_V<W?AGP5AX4;2HB5[[.@ZC8X5;AV^CK9OB2VC9!"
^XMB(3.9,22,2,10663,0)="""DATA"",396.18,468,3,512,0)"
^XMB(3.9,22,2,10664,0)="M<_S6^Z3T`;@MP9.U>&=T1@XS_Z[T=CS[-X7KY4J.R_<(J8%7.]7SA*""0G,9Y"
^XMB(3.9,22,2,10665,0)="""DATA"",396.18,468,3,513,0)"
^XMB(3.9,22,2,10666,0)="M_%0=;6/4$>$=R)A\A2BEC50I/4!IWAFIE#*QE-+6X.545E*WL!U_F=_W)?43"
^XMB(3.9,22,2,10667,0)="""DATA"",396.18,468,3,514,0)"
^XMB(3.9,22,2,10668,0)="MOF;2BF5M""#23X/#G[:*2=XYAARRGEO]>Z7UC3]>+A63YC\TGU3-VW0+!/MX;"
^XMB(3.9,22,2,10669,0)="""DATA"",396.18,468,3,515,0)"
^XMB(3.9,22,2,10670,0)="M'XZ2SZU:=COR09&8?+AKN1URC_'#TQ?/9P]<[/U(O=SMJ$WTQ^95TZYCETC^"
^XMB(3.9,22,2,10671,0)="""DATA"",396.18,468,3,516,0)"
^XMB(3.9,22,2,10672,0)="M%D4T:.#:'RA]49=+I42H=^`[\M%N@!:[5>A3D3?2TP85..Z3"";TL^,I:,$1;"
^XMB(3.9,22,2,10673,0)="""DATA"",396.18,468,3,517,0)"
^XMB(3.9,22,2,10674,0)="M!$$15%3;'NX=@/O%Z%=RSUE.J^Z]!3>OXD]6WP""Q=]T""FOL\-!\$E?BHZ)R*"
^XMB(3.9,22,2,10675,0)="""DATA"",396.18,468,3,518,0)"
^XMB(3.9,22,2,10676,0)="M;2XT'1?>G>TVG+9ZV+IF5CM'1'1+989NYE.TA/<QP2.S=YS""808B6O-'.-QH"
^XMB(3.9,22,2,10677,0)="""DATA"",396.18,468,3,519,0)"
^XMB(3.9,22,2,10678,0)="M'%M&_XE)5UC2?TE)_T!`.C>WW+)<+PZIH4'(U''H@LVH>MAN5NM=?#)*=;OM"
^XMB(3.9,22,2,10679,0)="""DATA"",396.18,468,3,520,0)"
^XMB(3.9,22,2,10680,0)="M!:LM'J^<8\?S7\%^5O`DV?'3>$&\L?!0:->16#4[2.MZ+(#T*3M\#<5BC<:4"
^XMB(3.9,22,2,10681,0)="""DATA"",396.18,468,3,521,0)"
^XMB(3.9,22,2,10682,0)="MZB$-4I[AYWN9R<!+?""@,Y&83)):#R:BGV&DPX]+%C3NDQN(OA'QYYC7?""W7+"
^XMB(3.9,22,2,10683,0)="""DATA"",396.18,468,3,522,0)"
^XMB(3.9,22,2,10684,0)="M1-%A#6)0<1P.CZMEGB$0G@P1O""/2#J]/^+Z`J+8*4?5![O#S$?\XU[U!YD]/"
^XMB(3.9,22,2,10685,0)="""DATA"",396.18,468,3,523,0)"
^XMB(3.9,22,2,10686,0)="M5CG:=<ETR8/,GG`TO,>/3/;MHTQ4,C.[_MW-*TUGJ=E[?S[VA\8#SXA,_:BW"
^XMB(3.9,22,2,10687,0)="""DATA"",396.18,468,3,524,0)"
^XMB(3.9,22,2,10688,0)="M;B\HH;EO9^9>XNQV*&HJL6+OA""CM92@5AR-H""D$TV-5Z/;Q:=P<8#6U8WAC@"
^XMB(3.9,22,2,10689,0)="""DATA"",396.18,468,3,525,0)"
^XMB(3.9,22,2,10690,0)="M&4)G)7-7*LI)QKLHNGQR)$R15R]2DH:H]"">X]T+C3,')5&@C*LPTA^&]Y6RT"
^XMB(3.9,22,2,10691,0)="""DATA"",396.18,468,3,526,0)"
^XMB(3.9,22,2,10692,0)="M4P2J\G[N\<KU?O[JA;7@$VT5Y:^XQB,_+O^>P""M2B5?TH..V\/,J]J/PP'Q;"
^XMB(3.9,22,2,10693,0)="""DATA"",396.18,468,3,527,0)"
^XMB(3.9,22,2,10694,0)="MG25&>*#\([JCQSQ<%1""'^;#MVT$!>=X&/<)[7$A39VE68:TVI,)$2]B$'T?^"
^XMB(3.9,22,2,10695,0)="""DATA"",396.18,468,3,528,0)"
^XMB(3.9,22,2,10696,0)="MQ#+R%-`4%SWBRY;95NUYU;,8>.',5JOM7+,;V-YCWT,\JL&,ZE^2G'Y<X.I="
^XMB(3.9,22,2,10697,0)="""DATA"",396.18,468,3,529,0)"
^XMB(3.9,22,2,10698,0)="M1%:<;$D'^4_8A0#_2$PXS\+931WB5-@C<<\@DEY>&C%^LS.ESMOUNFJ3%W<("
^XMB(3.9,22,2,10699,0)="""DATA"",396.18,468,3,530,0)"
^XMB(3.9,22,2,10700,0)="M&KLYCPLX^,^G5/0W2'KW@VW<C]_-9/_`BUK(U_""RM+KNHD?)[5YNV!T<UR`'"
^XMB(3.9,22,2,10701,0)="""DATA"",396.18,468,3,531,0)"
^XMB(3.9,22,2,10702,0)="M0>[;T.PA691_HT;B.P)?<@HRK7@Y3#3M19Z!B9<9K)/(\X$[NS/?)]KUL01I"
^XMB(3.9,22,2,10703,0)="""DATA"",396.18,468,3,532,0)"
^XMB(3.9,22,2,10704,0)="MT6S?#`2OQ[D]@<)PIB+P%'+EDN#-GO&@<8,EU)(1JNC#D<,(V:<*RP._2WG@"
^XMB(3.9,22,2,10705,0)="""DATA"",396.18,468,3,533,0)"
^XMB(3.9,22,2,10706,0)="MA?"";2_CZ\.'HH1*^ZP6V_2V%>\TO?8=?]&:Y#^D8Y@#Z==1M*Y""J_2AY#>A,"
^XMB(3.9,22,2,10707,0)="""DATA"",396.18,468,3,534,0)"
^XMB(3.9,22,2,10708,0)="M-*]3Y_?&ZL3PWA(=KYEDO$S""HD,EQ[+,_X19YC'*,J5""P>BY'6\(.&A]Q!)K"
^XMB(3.9,22,2,10709,0)="""DATA"",396.18,468,3,535,0)"
^XMB(3.9,22,2,10710,0)="MG/[ZMA*]QME93PDSCN'UU>$A3IGD'*I#OD/UTEIPJ""8$AHG>/?@%OB#X=P*'"
^XMB(3.9,22,2,10711,0)="""DATA"",396.18,468,3,536,0)"
^XMB(3.9,22,2,10712,0)="M:F]/09!>(_*@[7:<5:T,""M)-X"">^E^3UGZ`6\$K869BZ!T&R7#08,><=1S5K"
^XMB(3.9,22,2,10713,0)="""DATA"",396.18,468,3,537,0)"
^XMB(3.9,22,2,10714,0)="M->P3((YW\:_8UH-19JV\L/9?YG+_?L[A+K]3+%+W78\NHJ_JC/7`_.5PJ2$D"
^XMB(3.9,22,2,10715,0)="""DATA"",396.18,468,3,538,0)"
^XMB(3.9,22,2,10716,0)="M*.GKZ9$!P?P3I>]XJ]\$U$_9CL^!>J(]6_ZO.JL,Z'MDBJ\,'DXA)[S]J*_<"
^XMB(3.9,22,2,10717,0)="""DATA"",396.18,468,3,539,0)"
^XMB(3.9,22,2,10718,0)="MCLZUT<21N(]-8A47?'[1;""Y8F6WI'?S'_I^/3W<[#OF\SZ57]/;UW=Z4SL.R"
^XMB(3.9,22,2,10719,0)="""DATA"",396.18,468,3,540,0)"
^XMB(3.9,22,2,10720,0)="M-\/>XTXJGI<MG&^L61W31I'S\<&XDXF^.TW>*ERB?90""%WYACLB==:V#<XDM"
^XMB(3.9,22,2,10721,0)="""DATA"",396.18,468,3,541,0)"
^XMB(3.9,22,2,10722,0)="MQW5MKX>$YOS(4Y)VN]IMN!W<G4H<8[MI=_`;O_B=XGD+_0OQF7$^%OU]#2EJ"
^XMB(3.9,22,2,10723,0)="""DATA"",396.18,468,3,542,0)"
^XMB(3.9,22,2,10724,0)="MG#CT_/L/=9$#+7?;J2/]$X5;]Q/A==]$DZ#GF^X-I][_:V56&Q*@Y&ZWS/]2"
^XMB(3.9,22,2,10725,0)="""DATA"",396.18,468,3,543,0)"
^XMB(3.9,22,2,10726,0)="M*_K>\.RW8?N.UL6UT4*J#H8@),A>%I?Y+)7^<V&""F[WN=I46DH7$-);8)9JN"
^XMB(3.9,22,2,10727,0)="""DATA"",396.18,468,3,544,0)"
^XMB(3.9,22,2,10728,0)="M^6M12!3<7677$$_,SUO5CJO.MYV&6NVV\2($>6=9MGD3V_548BN'DX!E+#QZ"
^XMB(3.9,22,2,10729,0)="""DATA"",396.18,468,3,545,0)"
^XMB(3.9,22,2,10730,0)="M6CLJ?!`W!\N[C@VOA03T""`+\1:TR""D8$!>A,_@:A\$Y8PS<%:ZAY6B\<MV(#"
^XMB(3.9,22,2,10731,0)="""DATA"",396.18,468,3,546,0)"
^XMB(3.9,22,2,10732,0)="MYYI7L3S9+AOUBD>D""1@8,0<C_E0P8M$XJB(I#DDPB;9Q:(O+AG;;JG'#KJ*F"
^XMB(3.9,22,2,10733,0)="""DATA"",396.18,468,3,547,0)"
^XMB(3.9,22,2,10734,0)="MXH!J'%`UU""D5`-VO'T4CU!%/JBU.^R(_`GL65FU@0/'\LA5`[12DA-ZI'55G"
^XMB(3.9,22,2,10735,0)="""DATA"",396.18,468,3,548,0)"
^XMB(3.9,22,2,10736,0)="MYM6F9=6LVI3J$GS`,^A_=7RY)?A*.-M2LP/T=>01#@QD@X-,=58QC'CC3-/M"
^XMB(3.9,22,2,10737,0)="""DATA"",396.18,468,3,549,0)"
^XMB(3.9,22,2,10738,0)="MM+M5SV*$,QW@:OV'PKVS^Z_AVVQS2#,($@%!JH-][M2_)""7S=7\3WA-0TDK#"
^XMB(3.9,22,2,10739,0)="""DATA"",396.18,468,3,550,0)"
^XMB(3.9,22,2,10740,0)="M43`8G3N+]ARY3K#TY!>=!3I*E_ZC%.<9!F=A\VFL)Q""O$4D:'<<E++I'O?6L"
^XMB(3.9,22,2,10741,0)="""DATA"",396.18,468,3,551,0)"
^XMB(3.9,22,2,10742,0)="M[&P'Z_CL)/)V%K""(V5=QUZGWEG1V;*:!&/$J4BO9VV>PKD'*SE-!2\>0QFG8"
^XMB(3.9,22,2,10743,0)="""DATA"",396.18,468,3,552,0)"
^XMB(3.9,22,2,10744,0)="MZ*_1!F?7>29*27PDC)XP.9CBSH1EON1S@AK@,I+UG-P]V]^^,:=P?%,7XSC."
^XMB(3.9,22,2,10745,0)="""DATA"",396.18,468,3,553,0)"
^XMB(3.9,22,2,10746,0)="M:)@/.0.\0'%\P^?#@I^/RE6&[9YPX7W)\+0"">-'P?'+:H7@U?Q\FL,#[D2[F"
^XMB(3.9,22,2,10747,0)="""DATA"",396.18,468,3,554,0)"
^XMB(3.9,22,2,10748,0)="MYOB-H\*X""9I8UA&>&:>B<#+L^*Z_:-WGM*QFDI0LOZUE=EN_&-[67V'$;@AS"
^XMB(3.9,22,2,10749,0)="""DATA"",396.18,468,3,555,0)"
^XMB(3.9,22,2,10750,0)="M1N/QQ)2^`D;ZAH(G?Q=#4FH4*GJBUV4F3_;*I""LYOA3O8!%7V8QU)(OKBPK4"
^XMB(3.9,22,2,10751,0)="""DATA"",396.18,468,3,556,0)"
^XMB(3.9,22,2,10752,0)="MT-,A-:3K!3W9)7';+UIN""T<!7O;#=ZS]]H)(O3/R@./4LB-G3+N=';G@.*QZ"
^XMB(3.9,22,2,10753,0)="""DATA"",396.18,468,3,557,0)"
^XMB(3.9,22,2,10754,0)="M)1>E.HW+3G!(""GXK<'))3>NK@@=/\H7*+?(K6/,3<<BH%[VB1!\X@""3U4\1["
^XMB(3.9,22,2,10755,0)="""DATA"",396.18,468,3,558,0)"
^XMB(3.9,22,2,10756,0)="MF`*(FM_%-I%:<P=]M@EZVB""`/..MPH2DIPVZJB&WB`/KN;;9;9BK7[1ET$#Q"
^XMB(3.9,22,2,10757,0)="""DATA"",396.18,468,3,559,0)"
^XMB(3.9,22,2,10758,0)="M2_/0O!W0/""^($/;A_K`IOUKK-XJ1/K$5P'5=WK+04N68DS&9[RK]*H>#?,HO"
^XMB(3.9,22,2,10759,0)="""DATA"",396.18,468,3,560,0)"
^XMB(3.9,22,2,10760,0)="M5(`KLOL%R9S,&_Y^?83I.1F&$QS1VL9@,Q,T@?F6G\#\Y%JH9DP*!++$=O/["
^XMB(3.9,22,2,10761,0)="""DATA"",396.18,468,3,561,0)"
^XMB(3.9,22,2,10762,0)="M=]4WP^IE""U$O?J_I0/6""E,!8/$.\Q0_=LN)%D?-2'3KNL?Z%V^LJ7L!NG>J!"
^XMB(3.9,22,2,10763,0)="""DATA"",396.18,468,3,562,0)"
^XMB(3.9,22,2,10764,0)="M&:?*%[=XP9X5`X?IQTK?X9(>RXBN)$""(M=[CQSM!$+_O""^),LDK""3U:@DJ""S"
^XMB(3.9,22,2,10765,0)="""DATA"",396.18,468,3,563,0)"
^XMB(3.9,22,2,10766,0)="MISTS'TS#*EP.&ZW)Z1J*@M!/9CV<R&53+`4H3HQ[)/\,2&;^W']JX1""EN?'="
^XMB(3.9,22,2,10767,0)="""DATA"",396.18,468,3,564,0)"
^XMB(3.9,22,2,10768,0)="M*469\7+Q;4M%4J`VNO6.W:I;M""D;'_S$67MD+3L1%8""E1;NZJ%:=)IF=:KMJ"
^XMB(3.9,22,2,10769,0)="""DATA"",396.18,468,3,565,0)"
^XMB(3.9,22,2,10770,0)="MP[2;*/YO$[<5_YG7P^-]'8)I](?3I\YZEM>I5KLM$Y#-=YM>Q@>MXE%UNNXZ"
^XMB(3.9,22,2,10771,0)="""DATA"",396.18,468,3,566,0)"
^XMB(3.9,22,2,10772,0)="MWD'4*C;.2XMF1W6\1+8_FHM_1,)UN=NQ_!F2(;Q\&9)!G$9MT.EZZ54X%\O/"
^XMB(3.9,22,2,10773,0)="""DATA"",396.18,468,3,567,0)"
^XMB(3.9,22,2,10774,0)="M9QY-R2(Q/O[<&P=A=PA\;Z+6M58=(:.=2V:P'U5Z0LNUO-D?[5/'T-DCON^`"
^XMB(3.9,22,2,10775,0)="""DATA"",396.18,468,3,568,0)"
^XMB(3.9,22,2,10776,0)="M/3\:WO.QE=*(*U0P*AGLQ.&ME\PG!`6C%W'/%SZ<W%Q06]UVB[!2VVHY;>\S"
^XMB(3.9,22,2,10777,0)="""DATA"",396.18,468,3,569,0)"
^XMB(3.9,22,2,10778,0)="MKQV,,EF-81^O:H16DFX,<XH9[633JB+UBMNQT$;BM!).T)A-T@K7:MM>*YSM"
^XMB(3.9,22,2,10779,0)="""DATA"",396.18,468,3,570,0)"
^XMB(3.9,22,2,10780,0)="MPO5TJG75K'>)CS=/>]#\H?IL4JG`8ET&K(=%N5G(3!QVCP0,!&=P\+@-U71="
^XMB(3.9,22,2,10781,0)="""DATA"",396.18,468,3,571,0)"
^XMB(3.9,22,2,10782,0)="MIXHG5U.7;'PR&B?W_7,/`U(-A`I,YN44=[1G+!72&VM@=\L:!Q:NTDJ;`KV+"
^XMB(3.9,22,2,10783,0)="""DATA"",396.18,468,3,572,0)"
^XMB(3.9,22,2,10784,0)="ML9Z>/OD@LV%""BI""(_$J*BS]^*C@O\CX<?V`U@BA7%QW');K(1O%KP$#[V7S7"
^XMB(3.9,22,2,10785,0)="""DATA"",396.18,468,3,573,0)"
^XMB(3.9,22,2,10786,0)="M?O01TGY81<MYZ6B?,IM_&I+,\GTPR^=$=93S+:+>IB(*""\PZ<$,4N""':,,0W"
^XMB(3.9,22,2,10787,0)="""DATA"",396.18,468,3,574,0)"
^XMB(3.9,22,2,10788,0)="M!0MQ=H8J]QY=S#*0[5D+SDJ0@,W&-QL@?7L5;;C5%SEMSB#3RCRM2%ZJ(OZ-"
^XMB(3.9,22,2,10789,0)="""DATA"",396.18,468,3,575,0)"
^XMB(3.9,22,2,10790,0)="ML.2FT5Z6EWOHB.J$^0@2!8[YVHDKC1J]"">YE;AL35#LUG9?V=\0KN#+\7@3/"
^XMB(3.9,22,2,10791,0)="""DATA"",396.18,468,3,576,0)"
^XMB(3.9,22,2,10792,0)="M9933%K\@L`67H!I'.F4]Q]C;7UJ?$NO,PV?P_^N%7.F(UR!00[K+GK?)""4;K"
^XMB(3.9,22,2,10793,0)="""DATA"",396.18,468,3,577,0)"
^XMB(3.9,22,2,10794,0)="MFMGH:1;H#;KRS/0RK]""RSI*?XGDUU1L^L54B@:=68<_UCM%+*@3VX+A?'S\="
^XMB(3.9,22,2,10795,0)="""DATA"",396.18,468,3,578,0)"
^XMB(3.9,22,2,10796,0)="M<#3&1R4:L?-YEIVG?28>D+X0]B7VX/KN/0*L;_>QDA:#67NAB=O03.0CG@Y\"
^XMB(3.9,22,2,10797,0)="""DATA"",396.18,468,3,579,0)"
^XMB(3.9,22,2,10798,0)="MO0BXHBP.)!\W><N\%]C2$AR+)^1YZB*""(/?/*RS%S%<%ZNC$):QD+7;3/-WJ"
^XMB(3.9,22,2,10799,0)="""DATA"",396.18,468,3,580,0)"
^XMB(3.9,22,2,10800,0)="M6QSD2)ID2%X=^8!^,>;A.KAW$E`^`BB7!`U$%RT7^^3(J""*""5R@+N?XX0DO."
^XMB(3.9,22,2,10801,0)="""DATA"",396.18,468,3,581,0)"
^XMB(3.9,22,2,10802,0)="MO>3^<O@BU8#^VW!1V<$G@9=PO0Y'+U,D%^8='[0:K;JSC(9AT(B+BQK[].]]"
^XMB(3.9,22,2,10803,0)="""DATA"",396.18,468,3,582,0)"
^XMB(3.9,22,2,10804,0)="M,.+'E=#YNIRNE7N+BZN00^Y-%N\XYXAX-SLI^G`C/F1]&I8F^CI3\4(5V(6Z"
^XMB(3.9,22,2,10805,0)="""DATA"",396.18,468,3,583,0)"
^XMB(3.9,22,2,10806,0)="M$EJHXTR5+WBN8`!7;/>TB^\*0OKXE(W6Q:O`G.IB(<A.SC2K;=S955/GS'8-"
^XMB(3.9,22,2,10807,0)="""DATA"",396.18,468,3,584,0)"
^XMB(3.9,22,2,10808,0)="M9]7<[/;@P^G_+^_J8N.XJO""N)QX[<7Z:7]*H+1,G_7?2_?>N:6J<.%;3VHUQ"
^XMB(3.9,22,2,10809,0)="""DATA"",396.18,468,3,585,0)"
^XMB(3.9,22,2,10810,0)="MG*8(T3)>SV:GF=W9SNS:=850)80$+Q4""I$I(C03BYPV!""@\(""=[[A'A#0N*I"
^XMB(3.9,22,2,10811,0)="""DATA"",396.18,468,3,586,0)"
^XMB(3.9,22,2,10812,0)="M$KP5!$](B/L_Y^[<V9UQ0M>3ONW.SL[<<^ZYYYYS[CG?V?!QUHEE^RU^[CNU"
^XMB(3.9,22,2,10813,0)="""DATA"",396.18,468,3,587,0)"
^XMB(3.9,22,2,10814,0)="M@J6<4K<_(KX8Q5%FTMS-P&(=D+GD!""P%39;V($NG<%@46;_+R%O5/[=H<7Y="
^XMB(3.9,22,2,10815,0)="""DATA"",396.18,468,3,588,0)"
^XMB(3.9,22,2,10816,0)="M<=MU'$,R:<G1M38TB""];37/+=CW]-#[A,6Y@X]`QR$F[29,G]+-XANPZXO""."
^XMB(3.9,22,2,10817,0)="""DATA"",396.18,468,3,589,0)"
^XMB(3.9,22,2,10818,0)="ML>0ZCKN-]0G,K]""/!6];<:FVPST*Q36SC9&@%K'W[^'?N'7J4R-TV6X0'86W"
^XMB(3.9,22,2,10819,0)="""DATA"",396.18,468,3,590,0)"
^XMB(3.9,22,2,10820,0)="M^""NFY^V@+_IQ\-HUO./CBT=O=""P+;?[!;_JQ%RT3<P!>._JJC?,""X*4C'`'S"
^XMB(3.9,22,2,10821,0)="""DATA"",396.18,468,3,591,0)"
^XMB(3.9,22,2,10822,0)="M1A?#C9GZ<=Z]!-L'!):\9^GG@D$COEKMV]WFG'&STT%[$YIPG'""`'J6\:=G="
^XMB(3.9,22,2,10823,0)="""DATA"",396.18,468,3,592,0)"
^XMB(3.9,22,2,10824,0)="MEFXZ<1,-""CLC2'!=4LV-9D$_MF35""7_!M7T87UD_M&C[#30&]'<+BUMLP585"
^XMB(3.9,22,2,10825,0)="""DATA"",396.18,468,3,593,0)"
^XMB(3.9,22,2,10826,0)="MI^2@!M?X:>+KPGKY208(=2T=U2G]1'(+DA+Y&[Y-O2',C!<XC=5:.269-PI#"
^XMB(3.9,22,2,10827,0)="""DATA"",396.18,468,3,594,0)"
^XMB(3.9,22,2,10828,0)="ME!G[[V9E2W0QEB6JJ<RS'#0>)@9DC;VP""--S+=D:[036:,_'J[O?H]HC<8D"""
^XMB(3.9,22,2,10829,0)="""DATA"",396.18,468,3,595,0)"
^XMB(3.9,22,2,10830,0)="M[&VHO1R&>PT,N(*@=YJLOFE&\P`:XQILS)W8!\]PQKX4#HW,+'@6""ZB""6*?Z"
^XMB(3.9,22,2,10831,0)="""DATA"",396.18,468,3,596,0)"
^XMB(3.9,22,2,10832,0)="MY?/PG7&R##@0^IHTBA?Y*$R0\U9*E$,Q<:7I>I`;G\[4AQ(67G';2)VNV,ZF"
^XMB(3.9,22,2,10833,0)="""DATA"",396.18,468,3,597,0)"
^XMB(3.9,22,2,10834,0)="M/KGBHJ&C'4[7;UAH35CZY*I'""DC]3*2!$(N)+%#SP\QP+M82<7$_NKG30:2D"
^XMB(3.9,22,2,10835,0)="""DATA"",396.18,468,3,598,0)"
^XMB(3.9,22,2,10836,0)="MFX]C,?G(4GH^'L['`5C72CY>?=ORZK9OI9N/6DP^EH`ZU[Z9&22/Y62K^@8."
^XMB(3.9,22,2,10837,0)="""DATA"",396.18,468,3,599,0)"
^XMB(3.9,22,2,10838,0)="MR*9\5<?,`ZU4@&H<Q$5D+\TFXN+4&C$625U_JCD9,Y6-1R>I?APLD/EDJ7H'"
^XMB(3.9,22,2,10839,0)="""DATA"",396.18,468,3,600,0)"
^XMB(3.9,22,2,10840,0)="MUCUSRW)2KR'UF+G).:@AARSM:B).3BY9UF;J^3@14R)K4$/^?2`;*\G8>-GL"
^XMB(3.9,22,2,10841,0)="""DATA"",396.18,468,3,601,0)"
^XMB(3.9,22,2,10842,0)="M-E//QLF8;*Q""%3F8C<E4Y/Y%DO6?=C[&M<)G)04YD)'Y?$(%Z=J.U4T])V-F"
^XMB(3.9,22,2,10843,0)="""DATA"",396.18,468,3,602,0)"
^XMB(3.9,22,2,10844,0)="MA?-CK(]C<#)73"":2Z`5N*_6,G`H7%-2@.VQS=_CWPAV^#""R=2IKJ1`[%W%6+"
^XMB(3.9,22,2,10845,0)="""DATA"",396.18,468,3,603,0)"
^XMB(3.9,22,2,10846,0)="M,/QQA8G,%P4^OL#@*!5CB4R,:IU,O)&586!&N\93VEX2R/^\!""!72X@#.['H"
^XMB(3.9,22,2,10847,0)="""DATA"",396.18,468,3,604,0)"
^XMB(3.9,22,2,10848,0)="MV5MH>-&I_C&E##9^""(M6""::\+#/)^JH(+#T58*H7*^G(R.VG$""8P:1V>&_<K"
^XMB(3.9,22,2,10849,0)="""DATA"",396.18,468,3,605,0)"
^XMB(3.9,22,2,10850,0)="MD1MW180<9_/%](+^,(`""[2MC9""J_S""3Q]7!RY:#:JO&A#3#4!20</8UR^3N9"
^XMB(3.9,22,2,10851,0)="""DATA"",396.18,468,3,606,0)"
^XMB(3.9,22,2,10852,0)="MD""!)%23WM^;ITRPH`1""`Y8(4#)GJ1SO4/I!:QS"":];JS;+=&FK5_0I5""RN.,"
^XMB(3.9,22,2,10853,0)="""DATA"",396.18,468,3,607,0)"
^XMB(3.9,22,2,10854,0)="M&[`#3)""4""NR5U;7KJU?7UJ]=O3%ZP!F)`G8$_HC42_,+X1#Y%%I3^*3I4CY7"
^XMB(3.9,22,2,10855,0)="""DATA"",396.18,468,3,608,0)"
^XMB(3.9,22,2,10856,0)="MV1LUTD5Y[`Q%8.RZ`GB7+LIUZ^WN)9Q!'S-2DH=X*K=X0:*P'YX6A6JU8K)="
^XMB(3.9,22,2,10857,0)="""DATA"",396.18,468,3,609,0)"
^XMB(3.9,22,2,10858,0)="MZC&.5NYV[#8^O=LV?:-E>;<)ID""R?G712XT#MWV#C'^>C?^];)#%_0""44YQ4"
^XMB(3.9,22,2,10859,0)="""DATA"",396.18,468,3,610,0)"
^XMB(3.9,22,2,10860,0)="M070PN5B05$PV&UZ6C]-ZBB4'/?I""KT..?)9P3Z""77!L?TU/<E3T%$<6+#@N$"
^XMB(3.9,22,2,10861,0)="""DATA"",396.18,468,3,611,0)"
^XMB(3.9,22,2,10862,0)="MN"">9T*\JA/XF.4M9(LEB[?J.\F$U^#"".$[.D`$:A#UOL>7+Z$$RF84913L8="
^XMB(3.9,22,2,10863,0)="""DATA"",396.18,468,3,612,0)"
^XMB(3.9,22,2,10864,0)="MGU`!7;YJX5/W]I,DY9RXQ#A5J`$3YW%R8W`.UPAFJ&TX=LON,EC4AM%R.4`J"
^XMB(3.9,22,2,10865,0)="""DATA"",396.18,468,3,613,0)"
^XMB(3.9,22,2,10866,0)="MS7GGF?%HN#@-R?;P*?-%8TB:*SMB+1)&O,/&?EYQ5+APBR>8TK-!JVYWR&C8"
^XMB(3.9,22,2,10867,0)="""DATA"",396.18,468,3,614,0)"
^XMB(3.9,22,2,10868,0)="MJ;[I.-:63;\WS'K7]7R2=2LHF(^P1%AVQOO4Q3N3C=]_:U]L\^.P;'[`R:\R"
^XMB(3.9,22,2,10869,0)="""DATA"",396.18,468,3,615,0)"
^XMB(3.9,22,2,10870,0)="MFL\JL""MQDUAH!P#MTZ^A3MRRK#O.#IZ.ENOA2D$TF_J)/$Z-+1KK:!/W#9."""
^XMB(3.9,22,2,10871,0)="""DATA"",396.18,468,3,616,0)"
^XMB(3.9,22,2,10872,0)="MM>K/$JL;-\YBES%RZPQIN.#@;(5NTVS36YT=_3AY1$$\`M^KGUP6]^'4#W8Y"
^XMB(3.9,22,2,10873,0)="""DATA"",396.18,468,3,617,0)"
^XMB(3.9,22,2,10874,0)="M,\#B*D"":WQA(<R6""YI""]<Q2.`D/,[NA3;+3HLZ\;*RX1%_1[H8^Z67K'07;["
^XMB(3.9,22,2,10875,0)="""DATA"",396.18,468,3,618,0)"
^XMB(3.9,22,2,10876,0)="M-F*>KQ^%]Y-+F7!2`$=)HLOMSYD0*15`2C$M^-V8LH-!=@>?+DKDM\-$YOD>"
^XMB(3.9,22,2,10877,0)="""DATA"",396.18,468,3,619,0)"
^XMB(3.9,22,2,10878,0)="MG""^4<^G`5R6[]9%U=&G#VL1]`#=<]PY%XI>OL>5)/1/N@7TBBK!^D3V""[A]("
^XMB(3.9,22,2,10879,0)="""DATA"",396.18,468,3,620,0)"
^XMB(3.9,22,2,10880,0)="M\B%Q`Z%Z/Z*Z2ZR@P_P'O@4?Y!<4NY1X""F-!0,TI]!E]635O6QEX[!^@!4ZP"
^XMB(3.9,22,2,10881,0)="""DATA"",396.18,468,3,621,0)"
^XMB(3.9,22,2,10882,0)="M2FA8:_:8BE;Q*Q-KZA[P""?^;H/I[D:5G435FXPNXT<#$I.D@=8@F""M:<2?:-"
^XMB(3.9,22,2,10883,0)="""DATA"",396.18,468,3,622,0)"
^XMB(3.9,22,2,10884,0)="MON'CX,`HK9GH7HE21=XL8\L?A2U:'&E!\X""F4BR.<)B,^P`;]Z_%N*<#""X/U"
^XMB(3.9,22,2,10885,0)="""DATA"",396.18,468,3,623,0)"
^XMB(3.9,22,2,10886,0)="M'V.M>T;92W885`J8I""/R).4A-MN;H5GR1SE+8\KJACPLN3Z1&$TNSWVP<=@O"
^XMB(3.9,22,2,10887,0)="""DATA"",396.18,468,3,624,0)"
^XMB(3.9,22,2,10888,0)="M)$E]Q:ST@/4A)1Y*RZD""9>R9D(P]&L1P%MUZCS1YX5F9HQ2S[""Z*@6N0U.4!"
^XMB(3.9,22,2,10889,0)="""DATA"",396.18,468,3,625,0)"
^XMB(3.9,22,2,10890,0)="MI)YBC?WN;Q_,>Z)W-\BMY<I@_1$0?.QRSW8VI0#=2#5Y?!TB*_H24""':7S+]"
^XMB(3.9,22,2,10891,0)="""DATA"",396.18,468,3,626,0)"
^XMB(3.9,22,2,10892,0)="M.D2[FPG`.XFKZED.+G*;&^74:K%:""Q6A=N3QB!^(N3P71,U+^63Q%(""W0G%)"
^XMB(3.9,22,2,10893,0)="""DATA"",396.18,468,3,627,0)"
^XMB(3.9,22,2,10894,0)="M>(US`_GW\WNF)WOL-#(5]Z2.@2W&O9\&.RG@7C+TMK.`>PT@409KR]7:ZPS<"
^XMB(3.9,22,2,10895,0)="""DATA"",396.18,468,3,628,0)"
^XMB(3.9,22,2,10896,0)="M%X^!>05P*D!K`@PLUA(Q\`G`P&:X;PMK>K'7N9A1[SALT?8(UU;Z`>`>#@'`"
^XMB(3.9,22,2,10897,0)="""DATA"",396.18,468,3,629,0)"
^XMB(3.9,22,2,10898,0)="MC50-[6)'+4'ZWAE.7_Q3']7;""O!MQM[F9G:W6U@5^BH385\%RIR*256XYT\-"
^XMB(3.9,22,2,10899,0)="""DATA"",396.18,468,3,630,0)"
^XMB(3.9,22,2,10900,0)="M\AFNOHTK7""S/-[`CF9+]OL]GR,&F$8)=IT6(HPY:FV/M?)\;&-R3B.Q3(^0P"
^XMB(3.9,22,2,10901,0)="""DATA"",396.18,468,3,631,0)"
^XMB(3.9,22,2,10902,0)="M33M%*#K&*/JOF,""S0?()OH]$W.\-J)+'B>@;YP:\\<`:OM#WRNRN)Z\@31[W"
^XMB(3.9,22,2,10903,0)="""DATA"",396.18,468,3,632,0)"
^XMB(3.9,22,2,10904,0)="M^!X69RP/94<Y/>.JD#\$TN'MM+4?*4I>SRT%D?0@Y$XB\!BZ'F=5SBL+WB$@"
^XMB(3.9,22,2,10905,0)="""DATA"",396.18,468,3,633,0)"
^XMB(3.9,22,2,10906,0)="MB/9];L)^H().B'[%MNG@\,W\X+A]67K7[WA>E*_HVD7KKGU0IMJD""V@^.D)>"
^XMB(3.9,22,2,10907,0)="""DATA"",396.18,468,3,634,0)"
^XMB(3.9,22,2,10908,0)="M@;S:""IUH!-'B<JD0$2W>U[\-'[E)4E,(P@YFH_YLWP5R7-`2(6`3&;';!E)S"
^XMB(3.9,22,2,10909,0)="""DATA"",396.18,468,3,635,0)"
^XMB(3.9,22,2,10910,0)="MO2[:OS^_$+HU7[Y0S(D;'I%OZ'7P9QR6;KH]3\_)OP9OR??'W8OD#[Y>E?]1"
^XMB(3.9,22,2,10911,0)="""DATA"",396.18,468,3,636,0)"
^XMB(3.9,22,2,10912,0)="MQ!^K]+<96M/H8@PCO^EZV'+TNT8'2:>[Z>MG7G&CY""83S?(JG-`?9Z)YGJ^6"
^XMB(3.9,22,2,10913,0)="""DATA"",396.18,468,3,637,0)"
^XMB(3.9,22,2,10914,0)="M<Q$\'^_G^6%<B&RV-GK(L$4SKD\'+,=R!OB`>;UC>FCX)Q?@'?GG2HC%CJ7/"
^XMB(3.9,22,2,10915,0)="""DATA"",396.18,468,3,638,0)"
^XMB(3.9,22,2,10916,0)="M+*C_R&\@;'S>R-.[3\D/N5`DEWW]M,0;?@/E3!Q;M@2#)ES?_3;D2A4*Y7PR"
^XMB(3.9,22,2,10917,0)="""DATA"",396.18,468,3,639,0)"
^XMB(3.9,22,2,10918,0)="M6W9Z@4*GH*5A;Z%/]J;_W*:U9>-&%114/=GQ=,06+^5-O,Q6[6(<JRMI+ZJR"
^XMB(3.9,22,2,10919,0)="""DATA"",396.18,468,3,640,0)"
^XMB(3.9,22,2,10920,0)="ME,GT45B@+H%SDEHZVFO&`A*6XFH<AN,CA;==R9<3B<@S0>5>`QZ<$]_Q37)P"
^XMB(3.9,22,2,10921,0)="""DATA"",396.18,468,3,641,0)"
^XMB(3.9,22,2,10922,0)="MSAJ6<'AA>O""P9-:M/>,#22C&0QTB*=S(!*I%&'LFB>P.M3,R0P]4#JTV=WR2"
^XMB(3.9,22,2,10923,0)="""DATA"",396.18,468,3,642,0)"
^XMB(3.9,22,2,10924,0)="M.X)MW_C'*GG%L<J8$(;,@WVHHB@-9H%4#>[L8PN*Q`=1*7O;M+MS8?W""BP4T"
^XMB(3.9,22,2,10925,0)="""DATA"",396.18,468,3,643,0)"
^XMB(3.9,22,2,10926,0)="MJ70%@""5.90-E7,JEHUETI+U;A&S+A%*BW@HL>^*K8!E5>7M2B%<*""YYBS_QE"
^XMB(3.9,22,2,10927,0)="""DATA"",396.18,468,3,644,0)"
^XMB(3.9,22,2,10928,0)="MH*CNN[=0D=ZX,.""-N_,6AJ_B\75D*/GQ5V_AL[QZ8V64P_-1K<B3_>]D0W`Q"
^XMB(3.9,22,2,10929,0)="""DATA"",396.18,468,3,645,0)"
^XMB(3.9,22,2,10930,0)="MQ4HQ&:K\W""V+)?MX!&+(YQUNNW@.#;M==WK(+,+F+4U?,EL,X>_^1?S^_?\*"
^XMB(3.9,22,2,10931,0)="""DATA"",396.18,468,3,646,0)"
^XMB(3.9,22,2,10932,0)="M/$<M=*X?)Z6@A""W\VF>S@C^/,NQ-I$4HK(ECM\D&161<H89A^FEI%H*%71V@"
^XMB(3.9,22,2,10933,0)="""DATA"",396.18,468,3,647,0)"
^XMB(3.9,22,2,10934,0)="MAU^[L&;N\""F84S^L""AZFO<_5T[0*BO(:G3;UG&)PQ%Z]2[(QQ:3:;6JKT[D="
^XMB(3.9,22,2,10935,0)="""DATA"",396.18,468,3,648,0)"
^XMB(3.9,22,2,10936,0)="M@HF9@V2QO&#M93&0DAC()^M-""P+X-8Q-ZS96)R:QOS$:+#G0(-SUNDW/[M+;"
^XMB(3.9,22,2,10937,0)="""DATA"",396.18,468,3,649,0)"
^XMB(3.9,22,2,10938,0)="MS/8.,[98.RK?>.V""AUB$!M^P18]H[(V0U""AVF<+""D3MG#,LF/C$BTK<\;..3"
^XMB(3.9,22,2,10939,0)="""DATA"",396.18,468,3,650,0)"
^XMB(3.9,22,2,10940,0)="M;MD-W.>*79@QVJ[1Z'GD/O(O!HMA<E,/9\*)AEC8'54#3W+T2PE],-0W%I[V"
^XMB(3.9,22,2,10941,0)="""DATA"",396.18,468,3,651,0)"
^XMB(3.9,22,2,10942,0)="M:3_+A/BV$^3#EV;3L96&:)0D_F:(Q$N`Q&I*T-RCM`C+4=.^+@&;:U\3:N29"
^XMB(3.9,22,2,10943,0)="""DATA"",396.18,468,3,652,0)"
^XMB(3.9,22,2,10944,0)="M0(T\O81\<^)""8!FL,X'J(+&NFUL]WWBJ[IC;^/>G(7M56J`$8)W''F?OO*Y("
^XMB(3.9,22,2,10945,0)="""DATA"",396.18,468,3,653,0)"
^XMB(3.9,22,2,10946,0)="M0WT7K[V&P'EBXBT)M(U1W]H4\QG)O4=R5`C,8J/O&EYH`7YKT_0Q;LQMVD>-"
^XMB(3.9,22,2,10947,0)="""DATA"",396.18,468,3,654,0)"
^XMB(3.9,22,2,10948,0)="M9$.BI=G$#>N""RW.#D3@+)0D""C2E'[4-%'.W\+7+%V&``40NK1!4OFUV27_FJ"
^XMB(3.9,22,2,10949,0)="""DATA"",396.18,468,3,655,0)"
^XMB(3.9,22,2,10950,0)="M;6U'Z4P)PE#HS'^H6O&]@L-R_2^:$6_!;[R^X=AO]2SQQI#TEV%-VD#I3T4^"
^XMB(3.9,22,2,10951,0)="""DATA"",396.18,468,3,656,0)"
^XMB(3.9,22,2,10952,0)="MGR(QLR;!5`Q18K7T-3+*QK)P`T3N^%9N<7=6KA)S_KO9!]9U98C,\UE8ES*6"
^XMB(3.9,22,2,10953,0)="""DATA"",396.18,468,3,657,0)"
^XMB(3.9,22,2,10954,0)="M#R_820Y_/\*^KA+@?@FV^!*Z9F4L9!8=?.]3!]SW=UJ=KMNB[7@_&^C[^''3"
^XMB(3.9,22,2,10955,0)="""DATA"",396.18,468,3,658,0)"
^XMB(3.9,22,2,10956,0)="MP\%GGT,LN#B=%(*+M\DH9R6DTR!U^W$>%BGF""LD""D+/7?-86.0R<CCXA\QEG"
^XMB(3.9,22,2,10957,0)="""DATA"",396.18,468,3,659,0)"
^XMB(3.9,22,2,10958,0)="M8.!-=Q/7-+D=3+7I!.Z8%N4HZ0\%!P-(R+>E1HM:](FWU'G[-4;J/X7JNCC:"
^XMB(3.9,22,2,10959,0)="""DATA"",396.18,468,3,660,0)"
^XMB(3.9,22,2,10960,0)="MO$]5`+X""_3L>'?ZKZHCV?K56^-=(TNF8O7&""J)P_<97SH8C._2%(IRNP'$GN"
^XMB(3.9,22,2,10961,0)="""DATA"",396.18,468,3,661,0)"
^XMB(3.9,22,2,10962,0)="M""P(E$(%B/#?*>1T/U6Q+IY6\2]E=0>K/,R##:38EKD4_C65I\^/'U]\26N4)"
^XMB(3.9,22,2,10963,0)="""DATA"",396.18,468,3,662,0)"
^XMB(3.9,22,2,10964,0)="M0&,UO77I-=;!_3^4SN?9)C_+R3QU#XTWH[PUWD/MN-3K;X]HL:RZ[=ML7#5V"
^XMB(3.9,22,2,10965,0)="""DATA"",396.18,468,3,663,0)"
^XMB(3.9,22,2,10966,0)="M@,)0XYT@@5;IW^A.J38Z!LY""S1H!\!_T9SL?U""C5JHDV.N.6B4O=>+7P=58M"
^XMB(3.9,22,2,10967,0)="""DATA"",396.18,468,3,664,0)"
^XMB(3.9,22,2,10968,0)="MO$;A_Y,>Q=*R_,S_`%!+`P04``(`""`#%C+@T+^\B`4Z3``#!A`8`$````$9E"
^XMB(3.9,22,2,10969,0)="""DATA"",396.18,468,3,665,0)"
^XMB(3.9,22,2,10970,0)="M971?,3$Q+G!N;""YF<FWL/6MOW#B2WP>8_R#LA^T$EV3%AR@IP&'1<9R9+"":3"
^XMB(3.9,22,2,10971,0)="""DATA"",396.18,468,3,666,0)"
^XMB(3.9,22,2,10972,0)="MP/9<<#@L%G(WV]9&+?5(:CN^^_-'4F^1DBC9W4YB9;&C%B53]6:1K""I&E_^F"
^XMB(3.9,22,2,10973,0)="""DATA"",396.18,468,3,667,0)"
^XMB(3.9,22,2,10974,0)="MJ]3XS;NDP<7=CG[<O(OB[6OC0K3\_)-A_$8WJ?&?QDMHFOSV(MJQ.X?__.RO"
^XMB(3.9,22,2,10975,0)="""DATA"",396.18,468,3,668,0)"
^XMB(3.9,22,2,10976,0)="MTVMV@UQ^]ROUKZ[YFP#QVQ-OE_I1R.X7'T[/?CE=_/P3#=<__Q35/L@_]?[M"
^XMB(3.9,22,2,10977,0)="""DATA"",396.18,468,3,669,0)"
^XMB(3.9,22,2,10978,0)="MX,<@KG\-VOU?>W=Z>M'Z&&_ZUR<OI`%`[&OB5^UKEEU]RZY_""D.K\2T,!-Z_"
^XMB(3.9,22,2,10979,0)="""DATA"",396.18,468,3,670,0)"
^XMB(3.9,22,2,10980,0)="M^B&_6WSZ^.F/3PO>\H;>T.!]&-*8M5_>G'E^0M<""KBB(>-LJ./>#&QKSMG=1"
^XMB(3.9,22,2,10981,0)="""DATA"",396.18,468,3,671,0)"
^XMB(3.9,22,2,10982,0)="MF+XZN?;BA/)NWIZ^6_[QV\6_3GY=GIV?7E1OE'_Z)O!67\KV$IJ7`)2-OWM;"
^XMB(3.9,22,2,10983,0)="""DATA"",396.18,468,3,672,0)"
^XMB(3.9,22,2,10984,0)="M*DA];IQ[86*<T]C?+,K'Y^E=P)__SS]YTR<OIF'*'[""F=UZ04(&_=_DQ7@L,"
^XMB(3.9,22,2,10985,0)="""DATA"",396.18,468,3,673,0)"
^XMB(3.9,22,2,10986,0)="M!.WKM!/\(6:=4R7U`$+9?8V`%0E!1K(ZPTC64&<9I2GK.Z9>NF60)8OLC6%"""
^XMB(3.9,22,2,10987,0)="""DATA"",396.18,468,3,674,0)"
^XMB(3.9,22,2,10988,0)="M=9-*)A:J-7>3JTVP3?(F""M;_S!ZI""2<DK4FO-_LTC4)(&%+9SR;%;%BG&')@"
^XMB(3.9,22,2,10989,0)="""DATA"",396.18,468,3,675,0)"
^XMB(3.9,22,2,10990,0)="MDV:VU2(9`A+)3H(HH3G$;<X9QL?P)/!77UC#U^S[OU`FF_Y*M';`_$L<[7=O"
^XMB(3.9,22,2,10991,0)="""DATA"",396.18,468,3,676,0)"
^XMB(3.9,22,2,10992,0)="MHJ\<Z.)W`VS8@!JV&%UB44&-W3;8V;UA+$I>OS:Z_YUN-@PZ_X;!GB2&'QHQ"
^XMB(3.9,22,2,10993,0)="""DATA"",396.18,468,3,677,0)"
^XMB(3.9,22,2,10994,0)="M#7QZXX=7QL+XC[*OY&Z[2Z-M\EHF1TXW69114Y1+'`M9KDP/*1I*^P.=HJEE"
^XMB(3.9,22,2,10995,0)="""DATA"",396.18,468,3,678,0)"
^XMB(3.9,22,2,10996,0)="MA%HL.D^]E!HI,ZHOC#7CEN&%:V,3TS_W-%S=&='&V-*UO_+X^\^2YP7X#._0"
^XMB(3.9,22,2,10997,0)="""DATA"",396.18,468,3,679,0)"
^XMB(3.9,22,2,10998,0)="MNPSHNBYC)<=4R.`.9``&+6Q<JXU-P;4A9-[29!7[E]3X2Y1>T_@O4Z`]^?3Y"
^XMB(3.9,22,2,10999,0)="""DATA"",396.18,468,3,680,0)"
^XMB(3.9,22,2,11000,0)="MPYFW]B,A7IB#W6QJP5\1.@,?.&WH721!CW#9E)MI@(B)2G#/KZ/;-U$N'S6("
^XMB(3.9,22,2,11001,0)="""DATA"",396.18,468,3,681,0)"
^XMB(3.9,22,2,11002,0)="M#>,?^R3U-W?O4[I-V+.+>%\^XFV?O'7->C6(<T:3]._E%U0V/V_?;T/>-:SW"
^XMB(3.9,22,2,11003,0)="""DATA"",396.18,468,3,682,0)"
^XMB(3.9,22,2,11004,0)="MFS!C$S.9Y@^>%0^86/\W31:UV]^CQ?/B-K-#Q7<:2,BV0,V*:'L9,06'G`?Y"
^XMB(3.9,22,2,11005,0)="""DATA"",396.18,468,3,683,0)"
^XMB(3.9,22,2,11006,0)="M[T'IP9(JF#+](5#1'_>+2T8)A03*NMQ/-(;++J`IK5..42OUO:!)S)`6Y-01"
^XMB(3.9,22,2,11007,0)="""DATA"",396.18,468,3,684,0)"
^XMB(3.9,22,2,11008,0)="M56NLJ%KV1%&U7.N@HGH:T!MA<1KR^D!R6>,6U!`^-$+X"")PJ?)9+[B]\Z!&%"
^XMB(3.9,22,2,11009,0)="""DATA"",396.18,468,3,685,0)"
^XMB(3.9,22,2,11010,0)="MCXP5/I=,%C[[H,*WW.V"".SY\_\I&_P,+(-800#Q""`(&)ITN@<W\)M!Y1`NW1"
^XMB(3.9,22,2,11011,0)="""DATA"",396.18,468,3,686,0)"
^XMB(3.9,22,2,11012,0)="M(S6:;O_0<420""=WZP"")(-$30&B.""&$T7P0<8@>W'$T%@.:-ET,;39)`0VSVH"
^XMB(3.9,22,2,11013,0)="""DATA"",396.18,468,3,687,0)"
^XMB(3.9,22,2,11014,0)="M#)[OXRL:WQU8^AP-Z1-3>FWQLYV)XD>(8]Y?_-Q'M(""CI0\""--D""'E;Z/I23"
^XMB(3.9,22,2,11015,0)="""DATA"",396.18,468,3,688,0)"
^XMB(3.9,22,2,11016,0)="MS@,+(-"":@(P9@R'`DR70?H`Q&#SF',0=$D$$F]1"")ID\7P8'%<&/?`GAT-*'"
^XMB(3.9,22,2,11017,0)="""DATA"",396.18,468,3,689,0)"
^XMB(3.9,22,2,11018,0)="M>DC[@6XCS.>^_,>0U*%""D/NE#BDGOG!(ZG06.?N6.>6%3MAX4""QUGD3[V&>4"
^XMB(3.9,22,2,11019,0)="""DATA"",396.18,468,3,690,0)"
^XMB(3.9,22,2,11020,0)="M^9W>+AHO-->&!2'\D'81O[T(T5X,%2*SBJ,@>,-08D^2Y+\HD_V5%ZB8A(>8"
^XMB(3.9,22,2,11021,0)="""DATA"",396.18,468,3,691,0)"
^XMB(3.9,22,2,11022,0)="M!-1,JJ0VMPP$M'E48]L`C\R91WT\:D[EQ:5C<\54;*[@:F^EL8UCX^:N$<[W"
^XMB(3.9,22,2,11023,0)="""DATA"",396.18,468,3,692,0)"
^XMB(3.9,22,2,11024,0)="M=7[TO16@WEL!RKT5Z.+ZFCMN[:U82'=OY4R\\""Z*4N/TJ[?]0398@*7>8$&H"
^XMB(3.9,22,2,11025,0)="""DATA"",396.18,468,3,693,0)"
^XMB(3.9,22,2,11026,0)="M03;D.@,;+-`ZP@9+KG+9LD-YT]I+:VRQM/AM%XY-9<](L;L6Q?];JO2KBY@Q"
^XMB(3.9,22,2,11027,0)="""DATA"",396.18,468,3,694,0)"
^XMB(3.9,22,2,11028,0)="MB4]RZZ,R5_'JE3,OO.+T=[&I>JSL8;E/H^R5IC71V7""!77L49FNPM:1)1FW>"
^XMB(3.9,22,2,11029,0)="""DATA"",396.18,468,3,695,0)"
^XMB(3.9,22,2,11030,0)="MT;]'<7KCKVFXHGQKQ;L,HWCK!<9M]B>7U..F<O(FBX,T$<!01@""X(S=9Q!Z+"
^XMB(3.9,22,2,11031,0)="""DATA"",396.18,468,3,696,0)"
^XMB(3.9,22,2,11032,0)="M07-\I@-M:0)M`7LRU4N@$R8P!C,3-UZRV@=>7/+`3^^FH^!HHN`@!0KF2!2V"
^XMB(3.9,22,2,11033,0)="""DATA"",396.18,468,3,697,0)"
^XMB(3.9,22,2,11034,0)="M^V3%S)*7QM'N6FS1,488&V8V)R/@=O$`$;>%@>5*&%B:DB,\:B/QKT)_P\9Q"
^XMB(3.9,22,2,11035,0)="""DATA"",396.18,468,3,698,0)"
^XMB(3.9,22,2,11036,0)="M9C\9_`D?T8V-'ZZYDU!@T`.JK0NJ94M3""U2MCU9F5>'\U_R4]PDG;TQ+01=["
^XMB(3.9,22,2,11037,0)="""DATA"",396.18,468,3,699,0)"
^XMB(3.9,22,2,11038,0)="MHEZP#_FK3)+""*,Q_,T:P48IAPUJW-/7$76T3F/46&)=L1I54TXK/;-;R.?9V"
^XMB(3.9,22,2,11039,0)="""DATA"",396.18,468,3,700,0)"
^XMB(3.9,22,2,11040,0)="M#1O6C3TP@::H$6#)SB:1G4VW%_M*;Q@Z^X3CN`L8YYCB;)@&^=X+X_::""KX*"
^XMB(3.9,22,2,11041,0)="""DATA"",396.18,468,3,701,0)"
^XMB(3.9,22,2,11042,0)="M4J0YL?S$\(QU'#6QW^V82&ZBF')A?5&9OUV4^&E.0B^\,]*()F(CFM\$_M9/"
^XMB(3.9,22,2,11043,0)="""DATA"",396.18,468,3,702,0)"
^XMB(3.9,22,2,11044,0)="MQ5*`T>Q-O/R%:<(ZBA-_$]""O[)W70V[R:((C77E3C`I05[G?AV*]@S)J^JOK"
^XMB(3.9,22,2,11045,0)="""DATA"",396.18,468,3,703,0)"
^XMB(3.9,22,2,11046,0)="MB@!=Q%T%WJV.RD_`5UN_L`UE_7+&ZE<I86RL9P99O,`QKS.5V3IF(>(D+=4J"
^XMB(3.9,22,2,11047,0)="""DATA"",396.18,468,3,704,0)"
^XMB(3.9,22,2,11048,0)="M>KF[]@+N'C1E@@G3OR/FG3/J)6Q494Z`EP@IXJL`&Q&BP<1&O/+PE'-U*6<["
^XMB(3.9,22,2,11049,0)="""DATA"",396.18,468,3,705,0)"
^XMB(3.9,22,2,11050,0)="M\C""`G$G#+Y<!8\T4*M[>9P0#P-0%GB#9=\!C?0>5`9T""?!$#))SL9D!0-3]I"
^XMB(3.9,22,2,11051,0)="""DATA"",396.18,468,3,706,0)"
^XMB(3.9,22,2,11052,0)="MJ6D;>N)""Q1P<JK2T&`LR$/R;QJCP>G&XJ3A03L55$Y?.R7CW-%N>.2@E1#*$"
^XMB(3.9,22,2,11053,0)="""DATA"",396.18,468,3,707,0)"
^XMB(3.9,22,2,11054,0)="MU=@#JZ;<-I""JI32&56B,4DXZQ%Q%:F/G^>%F'QC;*&U(3J<RE]*C0@UVHU83"
^XMB(3.9,22,2,11055,0)="""DATA"",396.18,468,3,708,0)"
^XMB(3.9,22,2,11056,0)="M_S[<@&L^&&X)MUN-:<!$K)P1#`,8*SAF6@^&5<I@I3&WP/?&RQW#+25BP'TX"
^XMB(3.9,22,2,11057,0)="""DATA"",396.18,468,3,709,0)"
^XMB(3.9,22,2,11058,0)="MQ/R0^4:7?G,"",0TS9([@&*R6@.L<`P^&V""WUOCP$OQ`8PR\U6@@]&%K9N*F<"
^XMB(3.9,22,2,11059,0)="""DATA"",396.18,468,3,710,0)"
^XMB(3.9,22,2,11060,0)="M]HW%K[G30;H#L""J$9?&4L75=!;*H)@#%^B-$)H(UZ+NW07HW0M1;(0V:?FK8"
^XMB(3.9,22,2,11061,0)="""DATA"",396.18,468,3,711,0)"
^XMB(3.9,22,2,11062,0)="MV[_7OJG8%^G=&9'V1EJ[(^KAJ(,!?-'=MEJK[STZ0Q2R55N""KZ_T.FIR@V%A"
^XMB(3.9,22,2,11063,0)="""DATA"",396.18,468,3,712,0)"
^XMB(3.9,22,2,11064,0)="MT1W_^SV`GN5XC07Y3B^@=U&^L2S?YS$,+LVK@R*UU,AVIJA1W19,TB-T%#VZ"
^XMB(3.9,22,2,11065,0)="""DATA"",396.18,468,3,713,0)"
^XMB(3.9,22,2,11066,0)="M*$?!H^D0U-`AXNCK$+""<>RH1=&<E&JU$:)02.6""""$L$Z$R<I$3Z*$GW.'9.C"
^XMB(3.9,22,2,11067,0)="""DATA"",396.18,468,3,714,0)"
^XMB(3.9,22,2,11068,0)="MJ1#6&89,?16""EG7?<<B<56BT""EGC5`AJJ!`Q=1PZH/3*.Y3(.HY'=Y[/,H^F"
^XMB(3.9,22,2,11069,0)="""DATA"",396.18,468,3,715,0)"
^XMB(3.9,22,2,11070,0)="M1$1G''*[E$@Q4[BW,V>A68E&*Y$]SIESIRF1RIT;IT7'&8K>5Y/_HRF2HS,:"
^XMB(3.9,22,2,11071,0)="""DATA"",396.18,468,3,716,0)"
^XMB(3.9,22,2,11072,0)="M@1&*='^/SK)F31JM2>ZXX<B<I$E*GVZ4)N'C:%(KW/+`.@2T5A;@""""6ZOT^'"
^XMB(3.9,22,2,11073,0)="""DATA"",396.18,468,3,717,0)"
^XMB(3.9,22,2,11074,0)="M9R6:L+8@+RYHQ""F[@Z'RK?!:V])**ZB6*:O03;LV*SI$G++8E/(3@W[UMGZ8"
^XMB(3.9,22,2,11075,0)="""DATA"",396.18,468,3,718,0)"
^XMB(3.9,22,2,11076,0)="M;:!N&-<W@9?RW<%'S.#(HLY$5%(]`*X6LT!:9+:EW3G;DG>4+65Z\\MH1\-%"
^XMB(3.9,22,2,11077,0)="""DATA"",396.18,468,3,719,0)"
^XMB(3.9,22,2,11078,0)="M7T[&8$!<!QX?SW[SDS0/BBMOAH+$%-OC4-YIK))PZZ9@,`_@]*O84%F?TX""#"
^XMB(3.9,22,2,11079,0)="""DATA"",396.18,468,3,720,0)"
^XMB(3.9,22,2,11080,0)="MJ9<ET)L0X`6!"",-H<OV<QTM=QFS&O8YNP_J3/\)]LO<""([F.*-\KB(V=EZ8T"
^XMB(3.9,22,2,11081,0)="""DATA"",396.18,468,3,721,0)"
^XMB(3.9,22,2,11082,0)="M;KPDK'HE-Q_V0>J7(->%/+,'7#]R,C0#@3O:5<M<',D+?U>9OL]^R&`ON16%"
^XMB(3.9,22,2,11083,0)="""DATA"",396.18,468,3,722,0)"
^XMB(3.9,22,2,11084,0)="M5YR!HTL!""#$>8S,0M.6R#*Z&S>`""X![>9K2#FCJB$0^=`C$07&_CC@R(=DBC"
^XMB(3.9,22,2,11085,0)="""DATA"",396.18,468,3,723,0)"
^XMB(3.9,22,2,11086,0)="MG'>H4C>D4C=K#J[O""ZY'VCI""X$@=P0Z0=<32XQHFATW""9>J1*8F('^J.&_7K"
^XMB(3.9,22,2,11087,0)="""DATA"",396.18,468,3,724,0)"
^XMB(3.9,22,2,11088,0)="M\7Q'3Q/GJH%,/1VQD):.8$M%;7O6D1X=L?1U9.PX8CER60F""],81Y#R*[^FM"
^XMB(3.9,22,2,11089,0)="""DATA"",396.18,468,3,725,0)"
^XMB(3.9,22,2,11090,0)="M_MS[,1.1'4V,E7>S3XQG/&21^Z//'S&A72B+HZ<LQ""(ZRN)B%=G=65EZE,76"
^XMB(3.9,22,2,11091,0)="""DATA"",396.18,468,3,726,0)"
^XMB(3.9,22,2,11092,0)="M5A;;'*DLCBD/**:IJ2SD.$X7'T^Z@_@?,^%99#-J.ER.I368V*JA&\V#26\V"
^XMB(3.9,22,2,11093,0)="""DATA"",396.18,468,3,727,0)"
^XMB(3.9,22,2,11094,0)="M(]`?30;+GB""B,2\Q=><E\%'&DVMONV7DB@[N:0$X-'JX';F^4C;`?:;_:%:/"
^XMB(3.9,22,2,11095,0)="""DATA"",396.18,468,3,728,0)"
^XMB(3.9,22,2,11096,0)="M/O48,2%Q1ZL'1D1K2J)4#_.1U"",(]E_9W""2XXCDZL1'[5_YZ?W!E&9J76$13"
^XMB(3.9,22,2,11097,0)="""DATA"",396.18,468,3,729,0)"
^XMB(3.9,22,2,11098,0)="M62QYU%:.)4!%<S`K2Y^RZ,],;#""L+&TG66:<2S0J&O!%ET-,30XBYD,S""J@["
^XMB(3.9,22,2,11099,0)="""DATA"",396.18,468,3,730,0)"
^XMB(3.9,22,2,11100,0)="M)A!+;TP@*G+-4XI>,1\QI[!&CPDVD*?@CNPR85/!.'+8,>&<WM#83^_J::E_"
^XMB(3.9,22,2,11101,0)="""DATA"",396.18,468,3,731,0)"
^XMB(3.9,22,2,11102,0)="MDU.J*LW`&A6&NGCVP0_6=8WY$#%<O&85H:(MN#,2#EOCX7G6HE0S1Y^#XYU>"
^XMB(3.9,22,2,11103,0)="""DATA"",396.18,468,3,732,0)"
^XMB(3.9,22,2,11104,0)="MVY+282'"">J.Z11YE5%<E^!UZ1'<'3!W!FJ;.,;5FAY5!K--[GAWVF3HX-(,G"
^XMB(3.9,22,2,11105,0)="""DATA"",396.18,468,3,733,0)"
^XMB(3.9,22,2,11106,0)="MEBZ3Y.J#VN,1@8N9&[4Z;L.5AT05N;GR4'_E(:BL/`3<*96',-2M/""3Z^]$*"
^XMB(3.9,22,2,11107,0)="""DATA"",396.18,468,3,734,0)"
^XMB(3.9,22,2,11108,0)="M#PE;_?T5'D)/K_""0ZV@7'G*/47BHI_J*^QU6&`*FJ5UBR/I&2PP1HEMB"",-O"
^XMB(3.9,22,2,11109,0)="""DATA"",396.18,468,3,735,0)"
^XMB(3.9,22,2,11110,0)="MLL00`%""[QA!Q'K?&$$)/N\80F6L,';/&D$7T2PRY/T*)(4>_Q)`YEQBJVU""@"
^XMB(3.9,22,2,11111,0)="""DATA"",396.18,468,3,736,0)"
^XMB(3.9,22,2,11112,0)="M;4--\YLK,82_RQ)#S74FY!PM""A1:UAP%6H^^AD>)OH86,>?HZ\>/OA8;B/#0"
^XMB(3.9,22,2,11113,0)="""DATA"",396.18,468,3,737,0)"
^XMB(3.9,22,2,11114,0)="MP;^,V_/^X<,$_R+W0,&_6&4:[3GX-]<1S7@M""[I:P;^.BMK.K"",/$OSKXM&)"
^XMB(3.9,22,2,11115,0)="""DATA"",396.18,468,3,738,0)"
^XMB(3.9,22,2,11116,0)="M9];TQ#/TM!//1/*Y,O',;1?DE+V%;R'OK'6XRF!X!GRH6%CHNG,L+-])`[JQ"
^XMB(3.9,22,2,11117,0)="""DATA"",396.18,468,3,739,0)"
^XMB(3.9,22,2,11118,0)="ML%JQXC9447JVK0\4""PO($6-AH87Q$XZ%;9DF<W1.BSDQIP5:"",PY+9V<L.#!"
^XMB(3.9,22,2,11119,0)="""DATA"",396.18,468,3,740,0)"
^XMB(3.9,22,2,11120,0)="M`EZA2@?`'/""JY@,Z8H@2<]#-.42I&+--W>@71VN)""!/YH#[+<>?H%T7T2Z]&"
^XMB(3.9,22,2,11121,0)="""DATA"",396.18,468,3,741,0)"
^XMB(3.9,22,2,11122,0)="M:(1=PH>)+@;(P3],=+%E/VR^HJ4:4N<3`*?F*PH660=/""F)#+9EY-#4I2##)"
^XMB(3.9,22,2,11123,0)="""DATA"",396.18,468,3,742,0)"
^XMB(3.9,22,2,11124,0)="MT602=IV)B8V,2;,B34Y&$4S23:5P@%[HJJEREN85__O%%T/M?!<P.;[8G,W="
^XMB(3.9,22,2,11125,0)="""DATA"",396.18,468,3,743,0)"
^XMB(3.9,22,2,11126,0)="M`^6[6!.R)4QW<KZ+:7];^2[6]YCO4IYKA.=SC0Y\KA'$(PY=L>#W=*Z1""<><"
^XMB(3.9,22,2,11127,0)="""DATA"",396.18,468,3,744,0)"
^XMB(3.9,22,2,11128,0)="MO*+""[1L\U\@AHXXU<KZ38XT</.Y4(^=[.=7(Q3_@H48N>1IG&MD:1?!MK3.-"
^XMB(3.9,22,2,11129,0)="""DATA"",396.18,468,3,745,0)"
^XMB(3.9,22,2,11130,0)="M3,V*PP#9M5)C3_!,HU8!""V=B`77[/F6?`2*U!;2G5D""]I0)XTGE$]CV.4F$Z"
^XMB(3.9,22,2,11131,0)="""DATA"",396.18,468,3,746,0)"
^XMB(3.9,22,2,11132,0)="M8(.G>AY1B_KDZ`?9<.H_T8-L6@%]]L.5G-<_1@A:V'VJ%>?QF+/L['O5FX<6"
^XMB(3.9,22,2,11133,0)="""DATA"",396.18,468,3,747,0)"
^XMB(3.9,22,2,11134,0)="M@7.]>9U5EU%GV0DNDC&GV-R7C9#,;!S-1EN'C6,.Q2/POFR<#\4;ST:DPT9["
^XMB(3.9,22,2,11135,0)="""DATA"",396.18,468,3,748,0)"
^XMB(3.9,22,2,11136,0)="MS%$X]^>C/?-Q-!]='3ZZQSM@#UKS`7L3V&AIL-$RCWBH#E-'9^;C>""=GW(F]"
^XMB(3.9,22,2,11137,0)="""DATA"",396.18,468,3,749,0)"
^XMB(3.9,22,2,11138,0)="M!#_228G@J9R4.%Q<2,0^MXL+@4Q]""EVJUQ=""68Q)K58*>!+UA9""ROI""E+""]4"
^XMB(3.9,22,2,11139,0)="""DATA"",396.18,468,3,750,0)"
^XMB(3.9,22,2,11140,0)="MN.;*ZD*P6*D=KBZT3!(_$6NV2W^=&'_]J_&6WOBK4AZ^WT)#@F9033UD-:KU"
^XMB(3.9,22,2,11141,0)="""DATA"",396.18,468,3,751,0)"
^XMB(3.9,22,2,11142,0)="M6*UJ/6:;>DBB7DZEOW&J9<K7!0)Q-$``I,U""J`'$212N_3+@-:N=X)4,70L0"
^XMB(3.9,22,2,11143,0)="""DATA"",396.18,468,3,752,0)"
^XMB(3.9,22,2,11144,0)="M>;F$D-(U7;_N!]/5H50QO%4;!8X.K?(-@E44Q_D.`<\-3EYD*<)^F#""+S^X8"
^XMB(3.9,22,2,11145,0)="""DATA"",396.18,468,3,753,0)"
^XMB(3.9,22,2,11146,0)="M$I>QQ\A:;!$H:A!TEI2""CKJD%""@B`8JL""O)@):7P]))29:XXD!/'E:1'K4I8"
^XMB(3.9,22,2,11147,0)="""DATA"",396.18,468,3,754,0)"
^XMB(3.9,22,2,11148,0)="MT+';E""_""5^HN1N$J]F6%*W/"".P<,)G4E%\\Y%\N18_$Q3J\C-G0;[P5'JP>`"
^XMB(3.9,22,2,11149,0)="""DATA"",396.18,468,3,755,0)"
^XMB(3.9,22,2,11150,0)="M$3.L@@\64-S7_O(-9WOC_7B?KJX;?R%:ZG_TV0N^T+AV?TUIL+KV_#*OO""NK"
^XMB(3.9,22,2,11151,0)="""DATA"",396.18,468,3,756,0)"
^XMB(3.9,22,2,11152,0)="MO""^G7-TJ;Y+T9I.K<LD54L!]3=#,D56;!YL,<1^9$O,).H@1APHC+KN-2I>Q"
^XMB(3.9,22,2,11153,0)="""DATA"",396.18,468,3,757,0)"
^XMB(3.9,22,2,11154,0)="MTUTL7<4N-['716RO@750&J-A2L/V8""!3NCA;HDYI_/0H#3LHW0KPZO*_BT`A"
^XMB(3.9,22,2,11155,0)="""DATA"",396.18,468,3,758,0)"
^XMB(3.9,22,2,11156,0)="MTJ""^(U'?;<NY@OK%X:1=?G:GCRW[U_6B=!M>I6LEHKFT1Z[""$:^<\$%[^DL4"
^XMB(3.9,22,2,11157,0)="""DATA"",396.18,468,3,759,0)"
^XMB(3.9,22,2,11158,0)="M58%<BW?<?)5WGZ*H-&9M3[&OG"">$*I_;KGG<C8*>F=#7""GJ2D0YW1O5""""""^3"
^XMB(3.9,22,2,11159,0)="""DATA"",396.18,468,3,760,0)"
^XMB(3.9,22,2,11160,0)="M<X9E0+]?5QRKO4G8X27!(I@TCU9J%?NT'5UW_'2[""Z*[+0..43])H_CN!_'#"
^XMB(3.9,22,2,11161,0)="""DATA"",396.18,468,3,761,0)"
^XMB(3.9,22,2,11162,0)="MH0V4E&M,8V""1@E`5U&I[P5""B7.5]9*7""5JO]3F2!>8%QG='02'P>C++V$^8="
^XMB(3.9,22,2,11163,0)="""DATA"",396.18,468,3,762,0)"
^XMB(3.9,22,2,11164,0)="MQ%?4>';KL_[77DJ3YUQWQ?-:*:V%$7AL\.8I98:_R?++1$FWF/G4]%8\>%5X"
^XMB(3.9,22,2,11165,0)="""DATA"",396.18,468,3,763,0)"
^XMB(3.9,22,2,11166,0)="M5JJ%&SW'M2`-'""8-<%JD*9>?>B<(WCZASSB.#`F?\9GYL:FQB:.M<1O%7YC]"
^XMB(3.9,22,2,11167,0)="""DATA"",396.18,468,3,764,0)"
^XMB(3.9,22,2,11168,0)="MRA`%\.66<?+:V#'F1^O7W:AU8]&.?5-B@:5I#A[&XD(!^7K/#:D2^H=CC!2D"
^XMB(3.9,22,2,11169,0)="""DATA"",396.18,468,3,765,0)"
^XMB(3.9,22,2,11170,0)="M6$PIFK/O\JC@JB*DS@QR'WM%T;_5/N;:9-!2_2>Q`$`='K2A=34$Z>)N)X*Y"
^XMB(3.9,22,2,11171,0)="""DATA"",396.18,468,3,766,0)"
^XMB(3.9,22,2,11172,0)="M*@""GP6?KT+-8:VW'9_5*>D[!2OVG`>AJ6*D6_1PT#-X?HB!6""[CNJ2QTK8[Z"
^XMB(3.9,22,2,11173,0)="""DATA"",396.18,468,3,767,0)"
^XMB(3.9,22,2,11174,0)="MR&:S/K+C#DUF7=W)K#M],EL$@3,""VE),>`%Y<QH.4<O2VU*%9""R#?D93D>;."
^XMB(3.9,22,2,11175,0)="""DATA"",396.18,468,3,768,0)"
^XMB(3.9,22,2,11176,0)="M3/8^S&21KF54G(XR?PP^TE7H#Y#6>=]`2EETL&:9/U[)DBE++*""M*<OHNH0,"
^XMB(3.9,22,2,11177,0)="""DATA"",396.18,468,3,769,0)"
^XMB(3.9,22,2,11178,0)="M8*>K`*>4&2:EHP(]<,4@\7#PZM:+!BZ<7(4Y&^I7#PJXVR49T&QE,T!K>@U@"
^XMB(3.9,22,2,11179,0)="""DATA"",396.18,468,3,770,0)"
^XMB(3.9,22,2,11180,0)="ME=4O1/F^""#AZD@(5A*]E=?:""?T:])&).XA6;""66KC@\#/#2Q'O``2KEU-<WM"
^XMB(3.9,22,2,11181,0)="""DATA"",396.18,468,3,771,0)"
^XMB(3.9,22,2,11182,0)="M!_Y\1U=L&FALZ5H477Y6E%]^;NSBB`&\3>Z#@=TE^*XYC`-""XW#8)7>K:]]C"
^XMB(3.9,22,2,11183,0)="""DATA"",396.18,468,3,772,0)"
^XMB(3.9,22,2,11184,0)="MT\G5?8!OSLS9N#-<+*6-C%R5W%04Z)`SNTT7'[R.TPU-:>R%N8%8]Y9_F)"""""
^XMB(3.9,22,2,11185,0)="""DATA"",396.18,468,3,773,0)"
^XMB(3.9,22,2,11186,0)="MI9=%WY>R>+KV4RB\(OYK:$A""4LHB<&7%A4!%Z\%S:T97/(6@K^AI.]U23HE5"
^XMB(3.9,22,2,11187,0)="""DATA"",396.18,468,3,774,0)"
^XMB(3.9,22,2,11188,0)="MV!Q%<CD#W3EZR=/3P+_RV9>,RSO#8_-%9N?6-</-9R""--+NV02E4\KGZ+5EW"
^XMB(3.9,22,2,11189,0)="""DATA"",396.18,468,3,775,0)"
^XMB(3.9,22,2,11190,0)="MG_]0I5&9-41ZA2&@2;3DPE3)Q7SJW,,4?F1F?[@BT+`+I""I_@A5\LXYF]JLY"
^XMB(3.9,22,2,11191,0)="""DATA"",396.18,468,3,776,0)"
^XMB(3.9,22,2,11192,0)="M@G&Y3T4)^4<=""7I+947;RTB855&J-K\;=$7EHAV`8+TAP1H\R;?#<JIB5?N("
^XMB(3.9,22,2,11193,0)="""DATA"",396.18,468,3,777,0)"
^XMB(3.9,22,2,11194,0)="M\QNO.Y]>,X8`XXYZ<9U2P$@C`XKF!@4A;[?D=HNW`U-^P-IX3XHG'R)1,)=]"
^XMB(3.9,22,2,11195,0)="""DATA"",396.18,468,3,778,0)"
^XMB(3.9,22,2,11196,0)="MOGSZ?-B`=52N;1=-,6T=^X54XYIES?:KQWXYPSRRM'@$L'S<`%&,,2H=(?-Q"
^XMB(3.9,22,2,11197,0)="""DATA"",396.18,468,3,779,0)"
^XMB(3.9,22,2,11198,0)="M?U,+<.<\ZCAF69X4*;AD$TTNS65*^[B$Y4`]):MLU?9X8^D3F>UE.VG]OCS7"
^XMB(3.9,22,2,11199,0)="""DATA"",396.18,468,3,780,0)"
^XMB(3.9,22,2,11200,0)="MK.:H@;X5^2>T96[WT]\=I#]HGX>G17_;G.E?^5^JD(72]P*FY'PI^5"",\=U\"
^XMB(3.9,22,2,11201,0)="""DATA"",396.18,468,3,781,0)"
^XMB(3.9,22,2,11202,0)="M*$_\JYDIMX\/2F=+]N>[XPBJK(""&QW5+Z9=Z9%7S'HK[6E`5:C?@=H/5;B#M"
^XMB(3.9,22,2,11203,0)="""DATA"",396.18,468,3,782,0)"
^XMB(3.9,22,2,11204,0)="M!KO=X+0;W'8#<]_:+4!JD8`%$K1``A=(\`()8""!!#""20@00SE&""&$LQ0@AE*"
^XMB(3.9,22,2,11205,0)="""DATA"",396.18,468,3,783,0)"
^XMB(3.9,22,2,11206,0)="M,$,)9BC!#""68H00SE&""&$LQ(@AE),""-9*""28D00SDF!&$LQ(@AE),"",)9BS!"
^XMB(3.9,22,2,11207,0)="""DATA"",396.18,468,3,784,0)"
^XMB(3.9,22,2,11208,0)="MC""68L00SEB59@AE+,&,)9BS!C""68L02S)<%L23!;!<S/A^T2T+-+A=6I%O8U"
^XMB(3.9,22,2,11209,0)="""DATA"",396.18,468,3,785,0)"
^XMB(3.9,22,2,11210,0)="M[)(-[F.7!N.;WNV#@`<?U**:O#A]V6PZI\'F96M'3S3S_08O6#2C/'0H!KLH"
^XMB(3.9,22,2,11211,0)="""DATA"",396.18,468,3,786,0)"
^XMB(3.9,22,2,11212,0)="MUMZ]EVA&-&A6%E.<1#,\1+/.*;-ZPJR>+G=,EKNFRIT3Y4Z/!9DJCZ5%7P<-"
^XMB(3.9,22,2,11213,0)="""DATA"",396.18,468,3,787,0)"
^XMB(3.9,22,2,11214,0)="MDA?*Y$6SRS(BRI+YC@-QEHWCB8G3MA+MTZB+8S'K+#$/$F596Z[+]T.#.Z,P"
^XMB(3.9,22,2,11215,0)="""DATA"",396.18,468,3,788,0)"
^XMB(3.9,22,2,11216,0)="M!'(T)1S2G/I*7&T=3C-$F,DT&/3""L3GH_!'9R#[!$&%S*#%,=>I\ENB0UWIT"
^XMB(3.9,22,2,11217,0)="""DATA"",396.18,468,3,789,0)"
^XMB(3.9,22,2,11218,0)="MZF&JQ$:-,%6816(_X3!52QG'Y'0$J=J-V*&V#0#:0:J\+E*\7_'&'R1-S%7'"
^XMB(3.9,22,2,11219,0)="""DATA"",396.18,468,3,790,0)"
^XMB(3.9,22,2,11220,0)="M^17GA!=UDUHC&<;#P8NE3KW/3@X29Z_R6-*BFB)[*ROR]4*<,<R/&C)NK]E_"
^XMB(3.9,22,2,11221,0)="""DATA"",396.18,468,3,791,0)"
^XMB(3.9,22,2,11222,0)="M=MF;H?BSN'Z.\H(?`,]+C(J_$ST9E_3*#[-#<QF2R:O%Z'!'0-2Y<I""8?<ER"
^XMB(3.9,22,2,11223,0)="""DATA"",396.18,468,3,792,0)"
^XMB(3.9,22,2,11224,0)="M0(,(BV?G^\NMGXJ`$>KQ++7-AGV=C>N""'L][,].DR`HE=W`++@)L_=#A=P5<"
^XMB(3.9,22,2,11225,0)="""DATA"",396.18,468,3,793,0)"
^XMB(3.9,22,2,11226,0)="M:1[GF+$I)_""S_!S>%P;E&\U)]C-=O1)QM?SO&J'#3=Q>&%OFP^[YN<6AL:97"
^XMB(3.9,22,2,11227,0)="""DATA"",396.18,468,3,794,0)"
^XMB(3.9,22,2,11228,0)="M,:6BHJGA9>D$L=?@YHOZ(<^+?<*#7#WC*@K]:,N'R0F,A::C0;]VAA$Q77WZ"
^XMB(3.9,22,2,11229,0)="""DATA"",396.18,468,3,795,0)"
^XMB(3.9,22,2,11230,0)="M,>'.T3G[^$%D'$9\NXT7_'MA,.6+2B)P`8WIBD$OB+#CZ8HWS=!KUL4K8RE."
^XMB(3.9,22,2,11231,0)="""DATA"",396.18,468,3,796,0)"
^XMB(3.9,22,2,11232,0)="M>Q8AVWS++C]>G+5DQWS0N-4O?\2_[5W5^_)XJ4CC*O9N>%5><:+V5=;&+%C$"
^XMB(3.9,22,2,11233,0)="""DATA"",396.18,468,3,797,0)"
^XMB(3.9,22,2,11234,0)="M2!M3GBWIA2LZB;""NCMEH9^YAZ.J;C668W#)3+P1FG25[>H'QYYXFPOP:WF6T"
^XMB(3.9,22,2,11235,0)="""DATA"",396.18,468,3,798,0)"
^XMB(3.9,22,2,11236,0)="M9WJU#U<%D9KZ5:=&)M1<!T5`>R'KF>""]ZM=!C'10M4$[?I_HHWI.=UY1K#@S"
^XMB(3.9,22,2,11237,0)="""DATA"",396.18,468,3,799,0)"
^XMB(3.9,22,2,11238,0)="M%QQK9B6Y')59K@TUS164M_^[?M;Z@B'ZJC_&5LQ=%!&VL*@&5@0H6`,1MD50"
^XMB(3.9,22,2,11239,0)="""DATA"",396.18,468,3,800,0)"
^XMB(3.9,22,2,11240,0)="MSG""$K3DFPE;M,8FC>]H>4Q8=4:NT7#E,=BNOQY[D,)71^M^OIT248HTZDA8@"
^XMB(3.9,22,2,11241,0)="""DATA"",396.18,468,3,801,0)"
^XMB(3.9,22,2,11242,0)="M:>3SV.WIDG9Z_5EAW3]$M9CT[]=;>K_UKBB70?&C.<.TG3X_H?0^:\$A^2N?"
^XMB(3.9,22,2,11243,0)="""DATA"",396.18,468,3,802,0)"
^XMB(3.9,22,2,11244,0)="M_%7*;/BKMU[JL?;_*[38M""V,(6%3)_*6#>>FO72!""4P30_RV^%W\0\3$_`J="
^XMB(3.9,22,2,11245,0)="""DATA"",396.18,468,3,803,0)"
^XMB(3.9,22,2,11246,0)="M[!ZZ5;4.?F^A_&W^7Z?Z.XR=M[P-0/8!L[KF;XI_]7[J_YS:?_G5:=P5_\]:"
^XMB(3.9,22,2,11247,0)="""DATA"",396.18,468,3,804,0)"
^XMB(3.9,22,2,11248,0)="M3MC_RI`3<?_VA%_?F2?+)1$09PBP*\FO3GY=YM>3_%KN=688%)BP)]D5YU>2"
^XMB(3.9,22,2,11249,0)="""DATA"",396.18,468,3,805,0)"
^XMB(3.9,22,2,11250,0)="M7YW\NLRO)_FUV0_)^R%Y/SE!V97D5R>_+O/K27YM]E-1`.97G%])C4[\NLRO"
^XMB(3.9,22,2,11251,0)="""DATA"",396.18,468,3,806,0)"
^XMB(3.9,22,2,11252,0)="M)_FUV<\R[V>9][/,^UGF_2SS?I;YF\N\GV6KGY.\GY.\GY.\GY.\GY.20\N2"
^XMB(3.9,22,2,11253,0)="""DATA"",396.18,468,3,807,0)"
^XMB(3.9,22,2,11254,0)="M4]FUV<]IWL]IWL]IWL]IWL]IWL]IWL]IWL]IHY^*6Z;H!]?^3_*KDU^7^?4D"
^XMB(3.9,22,2,11255,0)="""DATA"",396.18,468,3,808,0)"
^XMB(3.9,22,2,11256,0)="MOS;[^?_VWKVY<1S+%_PJBMX_LGMO=0^?`%FQ$Q.BTYRNB:JNBLSJJ7MC8^*&"
^XMB(3.9,22,2,11257,0)="""DATA"",396.18,468,3,809,0)"
^XMB(3.9,22,2,11258,0)="MTE9F:EJ6/)*<63EQ][LO#Q[$&P0IR99MI+N+MBS!(/#CP3F_\\KZ7<_8M6!7"
^XMB(3.9,22,2,11259,0)="""DATA"",396.18,468,3,810,0)"
^XMB(3.9,22,2,11260,0)="MQ*X5N\[9]8I=U7&*'C49NQ;LBMBU8M<YNUZQJSH.ZE&7L6O!KHA=*W:=L^L5"
^XMB(3.9,22,2,11261,0)="""DATA"",396.18,468,3,811,0)"
^XMB(3.9,22,2,11262,0)="MNZKC5#UJ,W8MV!6Q:\6N<W:]8E=UG'F/^HQ=""W9%[%JQZYQ=K]A5'>>J?VHR"
^XMB(3.9,22,2,11263,0)="""DATA"",396.18,468,3,812,0)"
^XMB(3.9,22,2,11264,0)="M=BW8%;%KQ:YS=KUB5W4<_K1>LW&NV3C7;)QK-LXU&^>:C:/B1Y8OF825BN&G"
^XMB(3.9,22,2,11265,0)="""DATA"",396.18,468,3,813,0)"
^XMB(3.9,22,2,11266,0)="MDOX_9]<K=E7'R?JG-&/7@ET1NU;L.F?7*W95QRGZISQCUX)=$;M6[#IGURMV"
^XMB(3.9,22,2,11267,0)="""DATA"",396.18,468,3,814,0)"
^XMB(3.9,22,2,11268,0)="M5<=!O93(V+5@5\2N%;O.V?6*7=5QJE[*9.Q:L""MB5RZ7Y^QZQ:[J./->2F7L"
^XMB(3.9,22,2,11269,0)="""DATA"",396.18,468,3,815,0)"
^XMB(3.9,22,2,11270,0)="M6K`K8M>*7>?L>L6NZCA7O93+V+5@5\2N%;O.V?6*7=5QN'2]9N-<LW&NV3C7"
^XMB(3.9,22,2,11271,0)="""DATA"",396.18,468,3,816,0)"
^XMB(3.9,22,2,11272,0)="M;)QK-LXU&T?%CY""&%#]7DHQ!$E:N&'ZNI/^KXV2]5,W8M6!7Q*X5N\[9]8I="
^XMB(3.9,22,2,11273,0)="""DATA"",396.18,468,3,817,0)"
^XMB(3.9,22,2,11274,0)="MU7&*7BIG[%JP*V+7BEWG['K%KNHXJ)?J&;L6[(K8M6+7.;M>L:LZ3M6?""AF["
^XMB(3.9,22,2,11275,0)="""DATA"",396.18,468,3,818,0)"
^XMB(3.9,22,2,11276,0)="M%NR*V+5BUSF[7K&K.LZ\/U4R=BW8%;%KQ:YS=KUB5W6<J_Y4RMBU8%?$KA6["
^XMB(3.9,22,2,11277,0)="""DATA"",396.18,468,3,819,0)"
^XMB(3.9,22,2,11278,0)="MSHD^T39MV^U=(<:92[B'?_![_E^XPG?B)_Y__JZV[0.9NE?*9OH7'^>8,>(X"
^XMB(3.9,22,2,11279,0)="""DATA"",396.18,468,3,820,0)"
^XMB(3.9,22,2,11280,0)="M<1S;[UJ<!/]SZ?-C_\5QXCBA_\HFKD\<Y_+'L>'TM:X/G""N7=5]E9AN'OOHZ"
^XMB(3.9,22,2,11281,0)="""DATA"",396.18,468,3,821,0)"
^XMB(3.9,22,2,11282,0)="M]BL$GY=_7]-VS#:?DM&$11W^Y)Y[?8HZP67&[['MOI\78\;I/O]L\2SOPO.5"
^XMB(3.9,22,2,11283,0)="""DATA"",396.18,468,3,822,0)"
^XMB(3.9,22,2,11284,0)="MAWXLC9E/F?6:>759^R5;#$4-""'V*]7FJ<::<\Y=S7U2>]/Q&064-R)FRH=*C"
^XMB(3.9,22,2,11285,0)="""DATA"",396.18,468,3,823,0)"
^XMB(3.9,22,2,11286,0)="MS&IV>A<UVVG,O^?RB+XN""N>TN$5M*V15]WG<R=7^W4(NP6^(?I#1V5!-0=Q7"
^XMB(3.9,22,2,11287,0)="""DATA"",396.18,468,3,824,0)"
^XMB(3.9,22,2,11288,0)="MV?!18!8UF=.\J!LJ#>E<^'_E<>E8PLZEK]327K6(OZ]N^.OB7OGX=&;/61_S"
^XMB(3.9,22,2,11289,0)="""DATA"",396.18,468,3,825,0)"
^XMB(3.9,22,2,11290,0)="MX?.YW!='7HLI`MC>D1VBW[>(O-Y21/%Q^&OB711G?.\3A<?KD(;%)]3YP&L@"
^XMB(3.9,22,2,11291,0)="""DATA"",396.18,468,3,826,0)"
^XMB(3.9,22,2,11292,0)="MVP@:*3(R]AP@60J2SU84F>*_DA\V$[,0]\#'2K`L5>$W]""_2OR*>+WH""L'ON"
^XMB(3.9,22,2,11293,0)="""DATA"",396.18,468,3,827,0)"
^XMB(3.9,22,2,11294,0)="M_DMP7SU/?55]WI^MO8.9#JE@0O""]W0Y5$M8JP!)],F5D`KYUF:2,@]C3T(K]"
^XMB(3.9,22,2,11295,0)="""DATA"",396.18,468,3,828,0)"
^XMB(3.9,22,2,11296,0)="MEQ'<?::2\$5&(W];&Z=L^)/""$5:3[VOI%2XEV:?96%8[%_/?PV<);K&89XOI"
^XMB(3.9,22,2,11297,0)="""DATA"",396.18,468,3,829,0)"
^XMB(3.9,22,2,11298,0)="M:/*HSU&O&W/.7^Y]]=(*""=10B=7[+1""3<^PTI9CL3G0LQJ%HAKV6T0[X82<\"
^XMB(3.9,22,2,11299,0)="""DATA"",396.18,468,3,830,0)"
^XMB(3.9,22,2,11300,0)="MTG>\0T7#_^*\$'H""TVSA_9B_&W##_G8KQI=]+?KSQ>?26W&*)D""PGLG/GWRO"
^XMB(3.9,22,2,11301,0)="""DATA"",396.18,468,3,831,0)"
^XMB(3.9,22,2,11302,0)="M<""_R.JM2./*BCSL.T^J(A.3RE/XD?R^-4W$.@.X;M9@I0O@GQ'DN]$5ZJJKG"
^XMB(3.9,22,2,11303,0)="""DATA"",396.18,468,3,832,0)"
^XMB(3.9,22,2,11304,0)="MJ?P.)H^)]*-H!_N+:K!4HA&T5E1?D.]+_J2L9]!7*`YKQ<O""YE>5F3).*]ZG"
^XMB(3.9,22,2,11305,0)="""DATA"",396.18,468,3,833,0)"
^XMB(3.9,22,2,11306,0)="M/ZV1%WW""^\)""MDEV2@;6""95@\O=L%Q%A<;`X9^F.TO>U6.B'XL^`)4)M?I#-"
^XMB(3.9,22,2,11307,0)="""DATA"",396.18,468,3,834,0)"
^XMB(3.9,22,2,11308,0)="MW!KCO^'R#BPV^I=J2>^E:`*MF=E/%=4NR""B$4:+/AZH'@T8R+^#OR'8<UU7A"
^XMB(3.9,22,2,11309,0)="""DATA"",396.18,468,3,835,0)"
^XMB(3.9,22,2,11310,0)="MW?+?Y)8BW`.<$""""UV:LX\J(7P$L0WG#P-,,R@SIU/AP-MG%T6^O$YP52&%P<"
^XMB(3.9,22,2,11311,0)="""DATA"",396.18,468,3,836,0)"
^XMB(3.9,22,2,11312,0)="M,@Y_8OQ<:N1%SST.2""@[/BP\?R.S274S=3X61KP:9LFGKX\\;VF<@1.<,V^1"
^XMB(3.9,22,2,11313,0)="""DATA"",396.18,468,3,837,0)"
^XMB(3.9,22,2,11314,0)="M%[V4^X+3S^=KXB?ZR?'3Z8L""[>=<'W+R8_M/+HQ&7O3YZPG/9QQ53I]"";XF\"
^XMB(3.9,22,2,11315,0)="""DATA"",396.18,468,3,838,0)"
^XMB(3.9,22,2,11316,0)="M:!PGCA-YT3C.RQWG=<:+`C]5-Q$_SV><EQ\O2CA\P=RT<=^?TS@OA1<=M+<M"
^XMB(3.9,22,2,11317,0)="""DATA"",396.18,468,3,839,0)"
^XMB(3.9,22,2,11318,0)="M^(SXN?QQGB,O.B_`IR(P!]X@$7?7]K&_X(&$V#01!R)'?H`/AMZ]^#SU_=3L"
^XMB(3.9,22,2,11319,0)="""DATA"",396.18,468,3,840,0)"
^XMB(3.9,22,2,11320,0)="M5>8/QVW;8L7_3F+TJ&>'<+&8Q[^!Y\>C/U2$'^K]YC!7ZN.B(T+T`'T?_9F/"
^XMB(3.9,22,2,11321,0)="""DATA"",396.18,468,3,841,0)"
^XMB(3.9,22,2,11322,0)="M!BR9B.2""OT3\H4J\EKPZ_)D4GZ)W0/>;OMO*KU[POC\O7E1&6A]#@74_=>\!"
^XMB(3.9,22,2,11323,0)="""DATA"",396.18,468,3,842,0)"
^XMB(3.9,22,2,11324,0)="MPB9FZ.\!B[V_$=-(2SF>!'[#8SO:_O=R?(J()#*]^O;[HN^G,5%J+`#_+T$_"
^XMB(3.9,22,2,11325,0)="""DATA"",396.18,468,3,843,0)"
^XMB(3.9,22,2,11326,0)="MB?""DKZCQ?OSOLNA#X][`*\M7B?D],<23B.>+_HXB?TQ\WE/N^_/D115VON+Q"
^XMB(3.9,22,2,11327,0)="""DATA"",396.18,468,3,844,0)"
^XMB(3.9,22,2,11328,0)="M;^#I8W%!C7T/Z4XK\ZGXNUKQ[@H^S:*16HL.2_'9JO>E16U0>8^%O.?>?8+/"
^XMB(3.9,22,2,11329,0)="""DATA"",396.18,468,3,845,0)"
^XMB(3.9,22,2,11330,0)="M1L:GFB<N>'CQU_7,<_/>X)D2\EG&J3RC/KH*46]<Y$7/,PZ+_FDD:4'DDQJW"
^XMB(3.9,22,2,11331,0)="""DATA"",396.18,468,3,846,0)"
^XMB(3.9,22,2,11332,0)="M)N)`7'*47#'_/#W-V[;N8^M@/T5<$^RI$M%<R?MOH@'F(_OR9?\7DZ.-+D=Y"
^XMB(3.9,22,2,11333,0)="""DATA"",396.18,468,3,847,0)"
^XMB(3.9,22,2,11334,0)="M;+^(V)/FHL6+VG"":D)AN]FDV(SH>U4BHC*;Q*I$7/=LX%>&+*HH""-6^""[F6"""
^XMB(3.9,22,2,11335,0)="""DATA"",396.18,468,3,848,0)"
^XMB(3.9,22,2,11336,0)="M)9F(2^<YG_1ZIY`_9""\QTT4Y1K`J627)C749Y[\O.C:3HTQ'4>0C0ZS0GS7)"
^XMB(3.9,22,2,11337,0)="""DATA"",396.18,468,3,849,0)"
^XMB(3.9,22,2,11338,0)="MR2+J>.RH&A?""[BN3SWDEOP""3F.M6:!SA.8F1%QT[#I6C?(?`""N$\)\BMOGH%"
^XMB(3.9,22,2,11339,0)="""DATA"",396.18,468,3,850,0)"
^XMB(3.9,22,2,11340,0)="MM4\LXW062$NLE59\GL?/@;9`K)66:GW$^B(RCWP&""?G3?=_PSU/;""J2P'D\G"
^XMB(3.9,22,2,11341,0)="""DATA"",396.18,468,3,851,0)"
^XMB(3.9,22,2,11342,0)="MRSABCQ$=%IX/(>=9!'5+LT!([BGFH]&H;&K-P>Q8?&M%M0A-_\$<@2Q>D$;G"
^XMB(3.9,22,2,11343,0)="""DATA"",396.18,468,3,852,0)"
^XMB(3.9,22,2,11344,0)="MD4_!/7)Y3/^.?KI$7O14X^A1(JI.98Q3#<6@R9^GW\,NZO:R6W/SQS8%Q4<E"
^XMB(3.9,22,2,11345,0)="""DATA"",396.18,468,3,853,0)"
^XMB(3.9,22,2,11346,0)="M(C?`-9X6/^^9A_Y;?D_TO^I\N%80>='3C4/EIQ*W[#VMQN6;J__J)G3_CKTO"
^XMB(3.9,22,2,11347,0)="""DATA"",396.18,468,3,854,0)"
^XMB(3.9,22,2,11348,0)="MS@E%7O2E\*)4'^V9RR>:3XNG2:""I^8.CQPF<7^1%XSAQG-?(B\9Q7LLX,5XT"
^XMB(3.9,22,2,11349,0)="""DATA"",396.18,468,3,855,0)"
^XMB(3.9,22,2,11350,0)="MCA-YT3A.'.>X<<J^%I#X$OZ4X[Y""QSG-??%X.]5&L/.B@NNAGAS@7GP>P<?>"
^XMB(3.9,22,2,11351,0)="""DATA"",396.18,468,3,856,0)"
^XMB(3.9,22,2,11352,0)="MK_.L\W,>AS,S[81_PA\W[=^)]KVB];ZD>`E,RZNW4&)>LFTI%T_Y<?C[U$\)"
^XMB(3.9,22,2,11353,0)="""DATA"",396.18,468,3,857,0)"
^XMB(3.9,22,2,11354,0)="M\4PJD_U4<@/X]7.L\_,>9QB?YY[/*?8=]I;$Z2'`)1L8R9)5?D(I4D7]!.I3"
^XMB(3.9,22,2,11355,0)="""DATA"",396.18,468,3,858,0)"
^XMB(3.9,22,2,11356,0)="M$E%K3WL.ULUKQ.$P/I]J/L?N.]U/ZD,?'H=+4>FKH34_`-?U!?`;H?A\77)U"
^XMB(3.9,22,2,11357,0)="""DATA"",396.18,468,3,859,0)"
^XMB(3.9,22,2,11358,0)="M_#E_ZOE,VVVRFPC.<3&.3:.4?8`J/L'OS:*DVOH""^`T=GZ_[?!_&YV/-Y[A]"
^XMB(3.9,22,2,11359,0)="""DATA"",396.18,468,3,860,0)"
^XMB(3.9,22,2,11360,0)="MA[/=M+E\/G79_]Y;;)CH""6U]`?S&U'/^9>)9JT?T!/,Y9M])[,[@^6[:BB+B"
^XMB(3.9,22,2,11361,0)="""DATA"",396.18,468,3,861,0)"
^XMB(3.9,22,2,11362,0)="M`J*`:""R3ZYQ_;+DZA,_7*5?#S_ESS6?2IF,1YREB=M3_>G@NS&4HO$O41X)X"
^XMB(3.9,22,2,11363,0)="""DATA"",396.18,468,3,862,0)"
^XMB(3.9,22,2,11364,0)="MMJG=.([',\=G/-_]^'SL^4S?=U+#$X<RB@I?1Z.82-PSDZL8XC9#\'ENN3KV"
^XMB(3.9,22,2,11365,0)="""DATA"",396.18,468,3,863,0)"
^XMB(3.9,22,2,11366,0)="MG'\=>#XY+XH$[Z-<]5>/X$4!3VJ,9!AOS.4MV/#4>T&EK8K/I[*;7/B,O.A)"
^XMB(3.9,22,2,11367,0)="""DATA"",396.18,468,3,864,0)"
^XMB(3.9,22,2,11368,0)="M>5&!3_DU=1PD_V;ZOH,V2OU#(!G]DE2KUR75IZT;[EWBXT5>],7RHJA1QZ%H"
^XMB(3.9,22,2,11369,0)="""DATA"",396.18,468,3,865,0)"
^XMB(3.9,22,2,11370,0)="M18H,E7]""P[PH*GS6$M4HZT;4DW>?[S;L`1HH0EEN415YT9?/BV+2LZ@A7\3_"
^XMB(3.9,22,2,11371,0)="""DATA"",396.18,468,3,866,0)"
^XMB(3.9,22,2,11372,0)="M6#4](AO@V%'3\J\>AV6'M!R1G""^,2!V&')I'DZL'G[07DIR/9D.IR'\@?8DR"
^XMB(3.9,22,2,11373,0)="""DATA"",396.18,468,3,867,0)"
^XMB(3.9,22,2,11374,0)="M993>.PHGO;U^0N1%7Q(OBJ'V!8+_4H3""]R(?#=[18(I80#+\OVG3JR1IV#S@"
^XMB(3.9,22,2,11375,0)="""DATA"",396.18,468,3,868,0)"
^XMB(3.9,22,2,11376,0)="M6LR3.5S3')#KVW<A1^5*8J[3G7!,C2T_5TAA6<.-O.B+Y4490@&L5%9BW+!3"
^XMB(3.9,22,2,11377,0)="""DATA"",396.18,468,3,869,0)"
^XMB(3.9,22,2,11378,0)="MGDI8*D<I/LLBF6/,:20Q']S]`PG:X?3:?\[3_$W>/\YFO\M\/I'0?;4</A*O"
^XMB(3.9,22,2,11379,0)="""DATA"",396.18,468,3,870,0)"
^XMB(3.9,22,2,11380,0)="M]F#B,_*B+X\797*T_W_3:Y]PRM.?A%QE..WD*/P?%1U8NOE@FF_>G?T@8=WX"
^XMB(3.9,22,2,11381,0)="""DATA"",396.18,468,3,871,0)"
^XMB(3.9,22,2,11382,0)="M%.<RR$&YMH(:Z\=Y4M+S@WPIN8]JO1T\D:>-O.BSX$6;MK>/D&*_(YF'(KX<"
^XMB(3.9,22,2,11383,0)="""DATA"",396.18,468,3,872,0)"
^XMB(3.9,22,2,11384,0)="M]DK#ZA!U6)KWUC;1/SO,SOW[SO51BD[X<I_1DEQMA""25ZT/Q>B1#';0B+_H"""
^XMB(3.9,22,2,11385,0)="""DATA"",396.18,468,3,873,0)"
^XMB(3.9,22,2,11386,0)="M>%'4*-RGE2%E[^/GK;1?\Z8-R0F@IS*5GD*&ZG6-U#@2JHLRKV>C:`""\Y@B*"
^XMB(3.9,22,2,11387,0)="""DATA"",396.18,468,3,874,0)"
^XMB(3.9,22,2,11388,0)="MO.@KY$61<QP;[S0?L^\EZ?%%ZB_2B$_L]EC1$UZ<]66CQ^GQ'F/^GB.1%WW6"
^XMB(3.9,22,2,11389,0)="""DATA"",396.18,468,3,875,0)"
^XMB(3.9,22,2,11390,0)="MO*@\#M(D*=)\3,CO_PS:=TPE**VAR4][U5.O]\FB3!63HPV7I2""/>>34Q+SU"
^XMB(3.9,22,2,11391,0)="""DATA"",396.18,468,3,876,0)"
^XMB(3.9,22,2,11392,0)="MR(L^WWA1^XFO^)NFQ9&`3*3U<%WUP\UX49F!JGM\<H1*?9/Q8Y[OD1=]/%[4"
^XMB(3.9,22,2,11393,0)="""DATA"",396.18,468,3,877,0)"
^XMB(3.9,22,2,11394,0)="M)B^M_J8`.>K:=U(!B?6>AWBGL7ARX8=:3+3""6/V$=80B+WIV7I1PH;T7""=.K"
^XMB(3.9,22,2,11395,0)="""DATA"",396.18,468,3,878,0)"
^XMB(3.9,22,2,11396,0)="M_%_V17Y#_$I7W7F;)@EZBPKA;T(EM6]4%/7Y9U#=B?!;8,?3BJ/\I(?*C6H\"
^XMB(3.9,22,2,11397,0)="""DATA"",396.18,468,3,879,0)"
^XMB(3.9,22,2,11398,0)="MB9""=7)8*+Y,N76FMY,B+OFA>%""R@""BM>)DQD)F9X57C1[N<T+W-$;6G""XZ/N"
^XMB(3.9,22,2,11399,0)="""DATA"",396.18,468,3,880,0)"
^XMB(3.9,22,2,11400,0)="M%;"";4-E@4MD66""I,?)55CR`C7A1J(Y+[@:@Z_@4_6SMSRMT_+?C!X[NZ1E[T"
^XMB(3.9,22,2,11401,0)="""DATA"",396.18,468,3,881,0)"
^XMB(3.9,22,2,11402,0)="M&?""BB/+V*@XY3@E6V[:7I!R?98$*=%UF#4X:@L]KX$6)?)W+?B*9;^J[+R""0"
^XMB(3.9,22,2,11403,0)="""DATA"",396.18,468,3,882,0)"
^XMB(3.9,22,2,11404,0)="MIF#_M)A6W)316!,75]WX\D9M2!1YVY$7?9F\*#W/@:$G7LZVZ5]A7GNB!X!7"
^XMB(3.9,22,2,11405,0)="""DATA"",396.18,468,3,883,0)"
^XMB(3.9,22,2,11406,0)="MM+O.U;H]Z&WY%B/P+P%.P??IXG](A5@:D=S0JLE*_W<,44O4BT2JORKZ*GW5"
^XMB(3.9,22,2,11407,0)="""DATA"",396.18,468,3,884,0)"
^XMB(3.9,22,2,11408,0)="MCD6USFWD15\@+XJ4+RX[57^3^A[$L6&B96C?H?,+Q2#83U2JTK]&J\:S*""=,"
^XMB(3.9,22,2,11409,0)="""DATA"",396.18,468,3,885,0)"
^XMB(3.9,22,2,11410,0)="M3G^6AR=BG^P\/\/IB$R[R(L^4UY48ICZ,]XY@VG\(<T\ZOGZJN\>DG#V4_CQ"
^XMB(3.9,22,2,11411,0)="""DATA"",396.18,468,3,886,0)"
^XMB(3.9,22,2,11412,0)="MF=3%U,,IXJ#4+N^]?,XB+_J"">5$]%T3VT&N>IV/X0UHCAUCUK<""AF=]$XY4I"
^XMB(3.9,22,2,11413,0)="""DATA"",396.18,468,3,887,0)"
^XMB(3.9,22,2,11414,0)="MHBD>Y3B]LK'5?=+M^LB+OC!>5$.K3:Z&R-&A?:=5F4A>7""LCBFN:<CTQT$:!"
^XMB(3.9,22,2,11415,0)="""DATA"",396.18,468,3,888,0)"
^XMB(3.9,22,2,11416,0)="MPP*&2N6CJ""15XTK#\!EYT>?+BX[7-,;N>XLEI&.:U:%^R7UJ^!?WO_.:3I0Q"
^XMB(3.9,22,2,11417,0)="""DATA"",396.18,468,3,889,0)"
^XMB(3.9,22,2,11418,0)="M57L21%[TY?.B4\8)VV7HU44L<UKOKI)X42Q+3QVMXC>\ZZ:<,0(HU?$S]9R/"
^XMB(3.9,22,2,11419,0)="""DATA"",396.18,468,3,890,0)"
^XMB(3.9,22,2,11420,0)="MO.C%\Z*3YC-NW^%T3[`>:R=PV$>'D`@1&J6GRE7>N55(4K47.#P)D1=]V;SH"
^XMB(3.9,22,2,11421,0)="""DATA"",396.18,468,3,891,0)"
^XMB(3.9,22,2,11422,0)="ME',^\'R7F""!91K*36XJO$S%,O<>4=U^$#FZ5?-:K>`>65>]/%'G1%\6+3A@G"
^XMB(3.9,22,2,11423,0)="""DATA"",396.18,468,3,892,0)"
^XMB(3.9,22,2,11424,0)="M9.]$]IS>)TM48132D^,3Y""&S^C'I;$=]_$BMDV/B%+C4R(O&^J)C>5'0)%49"
^XMB(3.9,22,2,11425,0)="""DATA"",396.18,468,3,893,0)"
^XMB(3.9,22,2,11426,0)="M*C(\^N\RD?&AQHL2!I74%M.1:N*SM7CH(R_Z@GC1"">.$18>JODM98BKGNQ1;"
^XMB(3.9,22,2,11427,0)="""DATA"",396.18,468,3,894,0)"
^XMB(3.9,22,2,11428,0)="M;]KJ]/VT,JF(;S;Q0[VF4RN015[TV?""B0>,$X3-3Z]Q*EE%F7JUC5`RAF5QO"
^XMB(3.9,22,2,11429,0)="""DATA"",396.18,468,3,895,0)"
^XMB(3.9,22,2,11430,0)="M!W@!^(S./(5D@D9>-/*B^NG;(U/6.YO^K%?JC#CC\""OB96(5H`@.L8I/7A$W"
^XMB(3.9,22,2,11431,0)="""DATA"",396.18,468,3,896,0)"
^XMB(3.9,22,2,11432,0)="M\J*1%PWE18$%8C%-F83(K)3CEHUSW9TU2C_=2TJLUFT6.!V?41]YT=?(BTKU"
^XMB(3.9,22,2,11433,0)="""DATA"",396.18,468,3,897,0)"
^XMB(3.9,22,2,11434,0)="MFK!42T2VD[*R&=.OEN$TXW*7QD+)<<\<G\-]MR,O&GE1'AD'_+MVJC<""9>'X"
^XMB(3.9,22,2,11435,0)="""DATA"",396.18,468,3,898,0)"
^XMB(3.9,22,2,11436,0)="M(9*Q(M7'>@U4K8A'Y>M3Y=E%7O3Y\:+4T\-KTJMUPTJI_DW@_B/NU5=X_HSQ"
^XMB(3.9,22,2,11437,0)="""DATA"",396.18,468,3,899,0)"
^XMB(3.9,22,2,11438,0)="M!#CIX_G)M7+7<HR\:.1%E3JW2&*9FOY\MTC1(/S0^%*DYM(#0@4;2ORL5>1%"
^XMB(3.9,22,2,11439,0)="""DATA"",396.18,468,3,900,0)"
^XMB(3.9,22,2,11440,0)="M(R\:L.^86DH\KD[QPT^I^XV)[059(Q)""2?\EI/H]:;3^F""Z^D1=];;PHJ0&6"
^XMB(3.9,22,2,11441,0)="""DATA"",396.18,468,3,901,0)"
^XMB(3.9,22,2,11442,0)="MV./K^@I-S2@,D9I-LMT$5I(<3])B/I[LRXJ\:.1%/?N.:?4[$34BN""C?*>_&"
^XMB(3.9,22,2,11443,0)="""DATA"",396.18,468,3,902,0)"
^XMB(3.9,22,2,11444,0)="M#X_(([G/[%]-*I.`).7RDX\<>='(B[KE:-UP7MWT_:C]04)Q0KA0$LM'?%""8"
^XMB(3.9,22,2,11445,0)="""DATA"",396.18,468,3,903,0)"
^XMB(3.9,22,2,11446,0)="M?XGY$.Z)1)!,Z<P0>='7Q(O27"".]'^*IY!C#:2/7&Z>U16EFOKOK;>1%(R^J"
^XMB(3.9,22,2,11447,0)="""DATA"",396.18,468,3,904,0)"
^XMB(3.9,22,2,11448,0)="MQF[2+,]P=(;@A\IF82E1?;<E74`!N6`CQ7C1R(L.R]&REZ-ZW:5C\$.844P]"
^XMB(3.9,22,2,11449,0)="""DATA"",396.18,468,3,905,0)"
^XMB(3.9,22,2,11450,0)="M4GI^4R^[<6CEL<B+OEY>5/@]Q\K1$/R(W""35$J,^>YB5R1-$7C3RHK;=HO5L"
^XMB(3.9,22,2,11451,0)="""DATA"",396.18,468,3,906,0)"
^XMB(3.9,22,2,11452,0)="MW3WFI^""'^E-U=*I]E^`]4SG1R(N^#EZ4YKCQNHRGDV.@<PK_._<%J#@-Q6?D"
^XMB(3.9,22,2,11453,0)="""DATA"",396.18,468,3,907,0)"
^XMB(3.9,22,2,11454,0)="M12,O""GWBP;J><L[[\2/T7`L^E<[TD1>-O*A+CH+5`ARE#Y_3\,-M(=-O);@N"
^XMB(3.9,22,2,11455,0)="""DATA"",396.18,468,3,908,0)"
^XMB(3.9,22,2,11456,0)="MBI3(BT9>U(5/J`S*\6G?=U3.K],<NN(T;3'OKCE4?(1*I:B$FL]J;T8;?FAU"
^XMB(3.9,22,2,11457,0)="""DATA"",396.18,468,3,909,0)"
^XMB(3.9,22,2,11458,0)="M,5V*$OZI]>$S\J*1%Q4Y'-0'9,I1C)-YV0`*H68N)GU#2?7<LK=WKI(D;7#K"
^XMB(3.9,22,2,11459,0)="""DATA"",396.18,468,3,910,0)"
^XMB(3.9,22,2,11460,0)="MJTZJU2EA%?.&ZIA%7C3RHB*CCNFB^B]$G5OHT30'64IQRJJ0=U(4I*F[@Q.7"
^XMB(3.9,22,2,11461,0)="""DATA"",396.18,468,3,911,0)"
^XMB(3.9,22,2,11462,0)="MGVI<BD`I,/J,R8^\:.1%6WO\G=*'#MMPVB$Q+3-4E*P/<X?+M]#1`;J$EV_+"
^XMB(3.9,22,2,11463,0)="""DATA"",396.18,468,3,912,0)"
^XMB(3.9,22,2,11464,0)="MJR'\\""JB[(Q'%)&\SL[3]:N-O.CSX$5)K%'#Y:CMG!<_->UX_'`YRJ-""6R8]"
^XMB(3.9,22,2,11465,0)="""DATA"",396.18,468,3,913,0)"
^XMB(3.9,22,2,11466,0)="MY3ZA(G<_\J*1%[6<\33;`P?RHG-71W`??GB76UY11\[>8[9]$WG1R(OJ3).("
^XMB(3.9,22,2,11467,0)="""DATA"",396.18,468,3,914,0)"
^XMB(3.9,22,2,11468,0)="M-^[KAJ`IWL\A_%!\TN@FJG/62C4HJ`(1>='(BSIPVE=GXO',IY9C+.ZNY1:1"
^XMB(3.9,22,2,11469,0)="""DATA"",396.18,468,3,915,0)"
^XMB(3.9,22,2,11470,0)="MDH^O]%CVUW&,O.CKXT5I3^0>G^B<<DQ4'I-J1&5RQ1V2XQ1YT<B+:OO55P?+"
^XMB(3.9,22,2,11471,0)="""DATA"",396.18,468,3,916,0)"
^XMB(3.9,22,2,11472,0)="M*/,CK.[3R3%:=4RN[<#1R?LN2OW$L[!,Y<B+O@Y>M,6$F62\),\@.B7_0V6G"
^XMB(3.9,22,2,11473,0)="""DATA"",396.18,468,3,917,0)"
^XMB(3.9,22,2,11474,0)="MV0=<JB21B;,>_`?#)WWD15\++TKQ2>J`MJ*./?<!#<E2L[^B'3\EZ;JHUF74"
^XMB(3.9,22,2,11475,0)="""DATA"",396.18,468,3,918,0)"
^XMB(3.9,22,2,11476,0)="M:T7QO%):L3GRHI$75?<+;/BRL761[_WI+""O.Y*/ZS$[,^RK)GRT;'9N*]-3K"
^XMB(3.9,22,2,11477,0)="""DATA"",396.18,468,3,919,0)"
^XMB(3.9,22,2,11478,0)="MD(O\Y]$]:R,O^G)Y4=#\P-,C]_6@)Z^A/_MJ+4&6'.XKV;/N=AR=)GYXC2=G"
^XMB(3.9,22,2,11479,0)="""DATA"",396.18,468,3,920,0)"
^XMB(3.9,22,2,11480,0)="M'FKD12,O:NX7D9.MXVM$W#+[!%3=46VDO@NC%9N\IYB83]V<\WR/O.CSXD5Y"
^XMB(3.9,22,2,11481,0)="""DATA"",396.18,468,3,921,0)"
^XMB(3.9,22,2,11482,0)="MI;%3[3N-4Z;C<=E*JSOXQZ$5R:G_*?*BD1?E-A-EF>IFC)T""V<4N:XHS5ZK]"
^XMB(3.9,22,2,11483,0)="""DATA"",396.18,468,3,922,0)"
^XMB(3.9,22,2,11484,0)="M7C>ZMFJ+?0:,$MTW\J*OEA<%/SB<P6H]!]ZQ(Z1B$[&N!NJ/#?O;W?BA]I2."
^XMB(3.9,22,2,11485,0)="""DATA"",396.18,468,3,923,0)"
^XMB(3.9,22,2,11486,0)="MT\B+OBY>E%87XU6^:*U&*NE""[0NWQ4T9K.GUEME3@B,O^GIY49@#Z(K""&M?\"
^XMB(3.9,22,2,11487,0)="""DATA"",396.18,468,3,924,0)"
^XMB(3.9,22,2,11488,0)="MYHU?ZOCX(*@P=DR]'=8='(_2>W,Z8U2D67G5R?=Y]PJ3\MTK<SD>N[Q""!8G3"
^XMB(3.9,22,2,11489,0)="""DATA"",396.18,468,3,925,0)"
^XMB(3.9,22,2,11490,0)="MZMZ+BLB+7C(O2FO<RCBEL^*=/1Q</0J18VW;XF/.9=(A%(=X0=,,DQF55WP<"
^XMB(3.9,22,2,11491,0)="""DATA"",396.18,468,3,926,0)"
^XMB(3.9,22,2,11492,0)="MB+*F^0`-Y`,4D*T""^2P0.UCF\%_X+2IY+&'D12^7%RU3N3,=QX.*3RL.L=_N"
^XMB(3.9,22,2,11493,0)="""DATA"",396.18,468,3,927,0)"
^XMB(3.9,22,2,11494,0)="MM^%SS+G<>PJ&\<SL-530S+X.=P6-MV;Y*M>=I'R;7L%W(%>[_V84J3V>KR,O"
^XMB(3.9,22,2,11495,0)="""DATA"",396.18,468,3,928,0)"
^XMB(3.9,22,2,11496,0)="M^L2\:-9F26W#)X_--.))L$^20JQ)F#P<(T?UOR'DO%M3D+2-[LQ.YAT6KV5\"
^XMB(3.9,22,2,11497,0)="""DATA"",396.18,468,3,929,0)"
^XMB(3.9,22,2,11498,0)="M%AWHQ/G>_;9DTA,RK!*0M-V)'XC/R(N>=3X%1VE0?5',_3XV'5/55\?*T9%R"
^XMB(3.9,22,2,11499,0)="""DATA"",396.18,468,3,930,0)"
^XMB(3.9,22,2,11500,0)="MU</:@Q??-D[W^IQ\)?3_D,N2YA3%99.FY/4YO4/SG(_G^]/SHAU.>YEJQ16B"
^XMB(3.9,22,2,11501,0)="""DATA"",396.18,468,3,931,0)"
^XMB(3.9,22,2,11502,0)="M$2%R/I'A00KHT""GC4QT'(NZ'OHCWH`J(L_+JJ>558SPCG?PLU''<^FBTFYZ*"
^XMB(3.9,22,2,11503,0)="""DATA"",396.18,468,3,932,0)"
^XMB(3.9,22,2,11504,0)="M%Z4HG=>E4XZ!3Z>^HI)&CPEQ24;;.*H<A8BHWFL?<E_(%T4RHD^HF3,][U_K"
^XMB(3.9,22,2,11505,0)="""DATA"",396.18,468,3,933,0)"
^XMB(3.9,22,2,11506,0)="MOXN\Z`7QHDAB[],F%6CM-FQ>IG+=I;JQVTTA/!+\'=*%`7HHD0@549M<KR^J"
^XMB(3.9,22,2,11507,0)="""DATA"",396.18,468,3,934,0)"
^XMB(3.9,22,2,11508,0)="M?K4,QTY\5I$7?1V\*).8];R3JDU:IMWUNE3B-WAT\>C^((2WEW@MP*A2V=:("
^XMB(3.9,22,2,11509,0)="""DATA"",396.18,468,3,935,0)"
^XMB(3.9,22,2,11510,0)="M$U7BF8%I$OBT\PGC8TMBO.CSY$654[P""E,)7=Y6[=;&J]+9\.WT<+@EK@CI>"
^XMB(3.9,22,2,11511,0)="""DATA"",396.18,468,3,936,0)"
^XMB(3.9,22,2,11512,0)="M94Q""N]F+V1HOVM=ZPJ:=Y/,9Q'C1E\>+2GM/\-FD3=)""#@>VU5$$/-%()<M7"
^XMB(3.9,22,2,11513,0)="""DATA"",396.18,468,3,937,0)"
^XMB(3.9,22,2,11514,0)="M_SJUMVC_4(YJ8`C$>:KBM&ZTOO8-&T'+`BV;\^;]15[TR7C1`'SJ\4C7US6M"
^XMB(3.9,22,2,11515,0)="""DATA"",396.18,468,3,938,0)"
^XMB(3.9,22,2,11516,0)="MPX!4CMZN/<H25MUW(8UY])+M<Z9LE>/Y5?[>U3>,Y[#0KE!]?HE6-U7<BWBR"
^XMB(3.9,22,2,11517,0)="""DATA"",396.18,468,3,939,0)"
^XMB(3.9,22,2,11518,0)="MZ/LB+_JDO*AS'!MI3FJ2S+O_YW37;!7(`N086$A]K&B8'.-QSKR^$_F[.,2*"
^XMB(3.9,22,2,11519,0)="""DATA"",396.18,468,3,940,0)"
^XMB(3.9,22,2,11520,0)="M%_=%JTP#%T""U!/*$8-H=3^8C8""Q@SVH:D8KC^7XIO*A/CG)6E,L7J8XBL7=8"
^XMB(3.9,22,2,11521,0)="""DATA"",396.18,468,3,941,0)"
^XMB(3.9,22,2,11522,0)="MS;PA.XET3R21^VTXSZ_E+!.)2VQW+*QX;SQ`SE#7S1&8U5YZDYH5]%[)\U*)"
^XMB(3.9,22,2,11523,0)="""DATA"",396.18,468,3,942,0)"
^XMB(3.9,22,2,11524,0)="MO`""&>=*!'+`;S_=+X455?!IYFAGOR*UDNO4\D,VV5^T=DHW<VSECNM1H=A.K"
^XMB(3.9,22,2,11525,0)="""DATA"",396.18,468,3,943,0)"
^XMB(3.9,22,2,11526,0)="M+T6B!6&TRCY.F<Y32<)BP)N""0S87JB&(.^=RE/""UB<S%Q?/]B7E1GQSE,K37"
^XMB(3.9,22,2,11527,0)="""DATA"",396.18,468,3,944,0)"
^XMB(3.9,22,2,11528,0)="M&KD=H=:G)9]5<YIZ3EZ5L]S""&:,G""#Z*8;)J'1R^&*?)J(5&LDDR>L*7#;WR"
^XMB(3.9,22,2,11529,0)="""DATA"",396.18,468,3,945,0)"
^XMB(3.9,22,2,11530,0)="MRE%@O?'G<%[`/?%XZ<B+7C(OJL;0RW:W>:93_+96#Q&M8^+""H9\I<B&4ULF3"
^XMB(3.9,22,2,11531,0)="""DATA"",396.18,468,3,946,0)"
^XMB(3.9,22,2,11532,0)="M^H3:WY_,LV%O:.1%7P(O2NUO4;OFE'5RALYZ6SUS5C$O8V>T%8%-%GG1U\.+"
^XMB(3.9,22,2,11533,0)="""DATA"",396.18,468,3,947,0)"
^XMB(3.9,22,2,11534,0)="M4GR>)?^""Q4F/&P?.8CB[1>Z??3Y4%XV\Z,OF14%/$^?[>?+6:<_YX>Q//5X4"
^XMB(3.9,22,2,11535,0)="""DATA"",396.18,468,3,948,0)"
^XMB(3.9,22,2,11536,0)="MK'KN;3*UA>9D^=21%[U\7K1F6?1GRELG=9]$!G18O""BUR[CW5#P[*96>\YA'"
^XMB(3.9,22,2,11537,0)="""DATA"",396.18,468,3,949,0)"
^XMB(3.9,22,2,11538,0)="M_WIX48K/NCGI^6[QGX(?(""PFA4U2DJ""Z'8?2>3V?QSSZU\2+REF=--*7Y`'-"
^XMB(3.9,22,2,11539,0)="""DATA"",396.18,468,3,950,0)"
^XMB(3.9,22,2,11540,0)="MH1L(R:)H:+9D]^I;R&E#A,6!G""$IKZU[/T9E!MELJ(`.(E(U?%8?,C2O1,2A"
^XMB(3.9,22,2,11541,0)="""DATA"",396.18,468,3,951,0)"
^XMB(3.9,22,2,11542,0)="M<.DK9D@B""I(V+4_41RS&BUX^+PI<H<CW)3F2F.95=""@CO<#27,$/>;6A8\SA"
^XMB(3.9,22,2,11543,0)="""DATA"",396.18,468,3,952,0)"
^XMB(3.9,22,2,11544,0)="MBJYYGQOV4Y9F')\0$T(]`6""3A>#'JK.R,Y]&O,S3&""_ZS'E1U5^""ANQY?OKR"
^XMB(3.9,22,2,11545,0)="""DATA"",396.18,468,3,953,0)"
^XMB(3.9,22,2,11546,0)="M<5*""4\B?I!WK>,\ZFH=>\BQ@T1>,X3/-2)9ECV>*=ZZ/LB\4;I,9.&0XG:<="
^XMB(3.9,22,2,11547,0)="""DATA"",396.18,468,3,954,0)"
^XMB(3.9,22,2,11548,0)="M3O-Y'LJ015[T0GE1U/\7R:^Y>-%.5TSI6=Z=UGG3IFDQI_BC.<""`8XS(=Y#U"
^XMB(3.9,22,2,11549,0)="""DATA"",396.18,468,3,955,0)"
^XMB(3.9,22,2,11550,0)="M*_1#DB?4$)R3?F$9E<(=LDG%G/I*>)EL/M%@><CREN=9DY7%O-3K\41>]-GS"
^XMB(3.9,22,2,11551,0)="""DATA"",396.18,468,3,956,0)"
^XMB(3.9,22,2,11552,0)="MHHC&'U&<&B=K)4DDEM4#&%7B13.*O_Y3<S4WJ&&5(J3LH#Y&7N,S1WCOA7>K"
^XMB(3.9,22,2,11553,0)="""DATA"",396.18,468,3,957,0)"
^XMB(3.9,22,2,11554,0)="MD_9SN:^]B""N(O.@SXD51_R5_K_[LC!=ML2LB4Q)ER&:3IYF[GQWO3JO*+1]"""
^XMB(3.9,22,2,11555,0)="""DATA"",396.18,468,3,958,0)"
^XMB(3.9,22,2,11556,0)="M??*0=HZ0QW8C-/*B%\:+(E)0'C6X6W""$,?S,OX/O^3CP>XRM\7BXS""4L6&GU"
^XMB(3.9,22,2,11557,0)="""DATA"",396.18,468,3,959,0)"
^XMB(3.9,22,2,11558,0)="M<>>I6D%//>VGG,L=/DL-_=@=5Q!YT2?G1=FI37,L&T7/I#\!$GN<*O^U>W5$"
^XMB(3.9,22,2,11559,0)="""DATA"",396.18,468,3,960,0)"
^XMB(3.9,22,2,11560,0)="M/-`I[&5@WGWCU""-.>S4O0*^E`Y(U#*&1%WTB7K1#78X))BDR6YL<5?$)>!1\"
^XMB(3.9,22,2,11561,0)="""DATA"",396.18,468,3,961,0)"
^XMB(3.9,22,2,11562,0)="MBRI+QW97=/=-!O^EP+VOIDCH<V&K.:J?]I$7O1!>%$GG.Q;(!%22[XC\3""H^"
^XMB(3.9,22,2,11563,0)="""DATA"",396.18,468,3,962,0)"
^XMB(3.9,22,2,11564,0)="M#OTMR%S:8(;G\`"".B`Z*(:NBCYL_F@^GD2FF;#/[W83'ZLGX-.<S7(\_\J*/"
^XMB(3.9,22,2,11565,0)="""DATA"",396.18,468,3,963,0)"
^XMB(3.9,22,2,11566,0)="MR(LBE>\4X]`3OL$""P0KK!-*T=9WSTCB88Y7B5O2[L<>1RE_P-Z1\S\Q7/U_D"
^XMB(3.9,22,2,11567,0)="""DATA"",396.18,468,3,964,0)"
^XMB(3.9,22,2,11568,0)="MSY7IO&JRD.?""7KN9UZB(O.@%\J(:`L%>XO9[PQ#+WP$2U-V/GG,X/4M:T^@D"
^XMB(3.9,22,2,11569,0)="""DATA"",396.18,468,3,965,0)"
^XMB(3.9,22,2,11570,0)="MSKA#%A/!:P9>26'OD/ZSE1J'#]%T=>.K5$J9KK9L1!]GDL=?#O0BL]=T5/-!"
^XMB(3.9,22,2,11571,0)="""DATA"",396.18,468,3,966,0)"
^XMB(3.9,22,2,11572,0)="M(B]ZL;PH,OEYEZ_)+].H]'3)'UK)08R;:-&F4%V,XY/7W7'C!Y!:S(F_"".I,"
^XMB(3.9,22,2,11573,0)="""DATA"",396.18,468,3,967,0)"
^XMB(3.9,22,2,11574,0)="M9&W:I/.LJ(IJC/W%L^]#M>C(BSX9+RK.]E;W*DF8\L9O""#E%NL56O&\=KP0&"
^XMB(3.9,22,2,11575,0)="""DATA"",396.18,468,3,968,0)"
^XMB(3.9,22,2,11576,0)="M<E1$UK%\$?A])<5Y5O0UKFG2JDX.'@DB3$@>)],<^KI/\[I)&ZB3EL[K5$1!"
^XMB(3.9,22,2,11577,0)="""DATA"",396.18,468,3,969,0)"
^XMB(3.9,22,2,11578,0)="MN31./+5O:>1%'XL7'3>.[YS7:SN0SG2(9&-B43?,%:/,?D-RFXD^2_]A+WZP"
^XMB(3.9,22,2,11579,0)="""DATA"",396.18,468,3,970,0)"
^XMB(3.9,22,2,11580,0)="MJ_M""2:)#VZQ3'-(6!+2?!\!CZ^M'7O2,O*@Z)NB92,I'J\"">I[PI00NK4D?T"
^XMB(3.9,22,2,11581,0)="""DATA"",396.18,468,3,971,0)"
^XMB(3.9,22,2,11582,0)="MT^Y`!):>1-OU9[0L/]U]N\`JH3;2`!:P6E>$HM1IT>#0<[F`^T!S5H42*OM)"
^XMB(3.9,22,2,11583,0)="""DATA"",396.18,468,3,972,0)"
^XMB(3.9,22,2,11584,0)="MF!W$9^1%GX@7[:TFPBAAQH02%I3Q4(0CY?C$+'I.U-G&K21'W943$UJAUI?O"
^XMB(3.9,22,2,11585,0)="""DATA"",396.18,468,3,973,0)"
^XMB(3.9,22,2,11586,0)="M:;`$:*CZ.*FX,`\[EV6&JH3\S^Y?""S4H09<MRC3RHA?%B_;_&L;8`SH;]E//"
^XMB(3.9,22,2,11587,0)="""DATA"",396.18,468,3,974,0)"
^XMB(3.9,22,2,11588,0)="MV$O^)LZ54ND*/G6*S*8MYKTUWLIUG'@>NKKO@%-ZE@]Z=*IP.39<86>HGUU1"
^XMB(3.9,22,2,11589,0)="""DATA"",396.18,468,3,975,0)"
^XMB(3.9,22,2,11590,0)="ME76;MU1[K>=I.LINBKSH67A1D(@88_E\IW)38+1A'E(B1S%(68IBB*B#36Q:"
^XMB(3.9,22,2,11591,0)="""DATA"",396.18,468,3,976,0)"
^XMB(3.9,22,2,11592,0)="MKG/*O""BQD2IJ*Y&_A7G=.Y""+K%Z8AXE4[$$4P,UC6A<D`,_>7LXTQ@JP2K37"
^XMB(3.9,22,2,11593,0)="""DATA"",396.18,468,3,977,0)"
^XMB(3.9,22,2,11594,0)="M#JVTLJ^L;X!7B];(H3G0M']./-_/QHNBMN5^>*IOTA.^Z4]^)C&KIF=*Y3Y9"
^XMB(3.9,22,2,11595,0)="""DATA"",396.18,468,3,978,0)"
^XMB(3.9,22,2,11596,0)="M(""K+#+=J?K!TZB-:MXM5':%C,GDKZ;U.'5""O;>?%,V:50IS^*F\%<>RJ(RWX"
^XMB(3.9,22,2,11597,0)="""DATA"",396.18,468,3,979,0)"
^XMB(3.9,22,2,11598,0)="M*_)YXH>`[UBUG+:,O.CY>%%D6/(]CQ^>1]^T:H8(U1R)9]15[PO3ZB6D@A/\"
^XMB(3.9,22,2,11599,0)="""DATA"",396.18,468,3,980,0)"
^XMB(3.9,22,2,11600,0)="M/>SFYH?Z)LO6%3`'3GLG+!_?8R\Q?&;T.^E\)SAE]Q)YT7/SHLA`+;+QI'*<"
^XMB(3.9,22,2,11601,0)="""DATA"",396.18,468,3,981,0)"
^XMB(3.9,22,2,11602,0)="M)PA.?=]I+WG:=]O0)S$[&RLS/L01S]\.1AUC:@EQC<`V#HDE:(W8J+GT_T%>"
^XMB(3.9,22,2,11603,0)="""DATA"",396.18,468,3,982,0)"
^XMB(3.9,22,2,11604,0)="ME%6/J(B/JJ(^-.!XA_`9>=$CYX,\S*B$V*""^2P2?Q'<)N7`&/N$5F1<-B.\D"
^XMB(3.9,22,2,11605,0)="""DATA"",396.18,468,3,983,0)"
^XMB(3.9,22,2,11606,0)="M%?6""^)^*QIV8FFM+?%V@!:ML0R?_YUC26^#G\*@45ETT\J*/PXLBZSC(P>LC"
^XMB(3.9,22,2,11607,0)="""DATA"",396.18,468,3,984,0)"
^XMB(3.9,22,2,11608,0)="M'SXA^TW$Z9%3WSS'JQ;;JM^[ZXJXD<KM>5*93^K]P#Q;%<T>5>-2Y!EAG&88"
^XMB(3.9,22,2,11609,0)="""DATA"",396.18,468,3,985,0)"
^XMB(3.9,22,2,11610,0)="MEU>8VDK8_:PX>(`Z\J*/Q(NZL8MT/2#`/TC./X*%RF(!52H^A^HQPNGLK?""`"
^XMB(3.9,22,2,11611,0)="""DATA"",396.18,468,3,986,0)"
^XMB(3.9,22,2,11612,0)="M:>5(I2]#1CN1P7QI95.13R]T7XQ1""7E\*CXC+WI!O*B""/LI\<HZ>>Y1$/IJP"
^XMB(3.9,22,2,11613,0)="""DATA"",396.18,468,3,987,0)"
^XMB(3.9,22,2,11614,0)="M_'WG/+6<285.Y(T3KIB%X_U'\2G7VW/'@5`2#;!*[/J*QZ?0_'LY)U\=!VBW"
^XMB(3.9,22,2,11615,0)="""DATA"",396.18,468,3,988,0)"
^XMB(3.9,22,2,11616,0)="M)$%7<,X/^ZDB+_I(O*A3SR292XP3Q2WOT86YIVE`#Y7Q0SQ#E7W'B=V!0_V,"
^XMB(3.9,22,2,11617,0)="""DATA"",396.18,468,3,989,0)"
^XMB(3.9,22,2,11618,0)="M7([Z=%<:AT+9+([-6CW?I>=!:`UE3O*MYN45E_XQ7O2B>%&&4AYWW_1^SU;Q"
^XMB(3.9,22,2,11619,0)="""DATA"",396.18,468,3,990,0)"
^XMB(3.9,22,2,11620,0)="M.+7L]^HXA)>WU+!O.3.#O0QE8'PFX)/&Y@WCF68<PQV`=52S6N*ZI'9QIU+\"
^XMB(3.9,22,2,11621,0)="""DATA"",396.18,468,3,991,0)"
^XMB(3.9,22,2,11622,0)="MZBA)&N-%S\B+,GG)<Y,D^8GE/#OJ4>H]3_T,:%9(0K-"".%8Q<>*W/OY'1JK_"
^XMB(3.9,22,2,11623,0)="""DATA"",396.18,468,3,992,0)"
^XMB(3.9,22,2,11624,0)="MI!?G?(#_/:/Z14V^+./.51R6CNKW8?B,\:*/S(LB[D_BYWS_""N(9HMBCARK]"
^XMB(3.9,22,2,11625,0)="""DATA"",396.18,468,3,993,0)"
^XMB(3.9,22,2,11626,0)="M%+@7J=6K?5C\1E5(/<9A.<JY6%XE>@C/%)^HP`@J^C08>B33'O3SMS%>],)X"
^XMB(3.9,22,2,11627,0)="""DATA"",396.18,468,3,994,0)"
^XMB(3.9,22,2,11628,0)="M42V>GGHZ,38C360__@`OVE(O9XC\80P0]LO&VMI'U,[/V_N2F/@D57E:J""\E"
^XMB(3.9,22,2,11629,0)="""DATA"",396.18,468,3,995,0)"
^XMB(3.9,22,2,11630,0)="MZO:`=8];=\?G&""_ZQ+PHDO/:)(_2@/]3CT4FW5Z:T#KV8%/9I2/AAK#LQX<L"
^XMB(3.9,22,2,11631,0)="""DATA"",396.18,468,3,996,0)"
^XMB(3.9,22,2,11632,0)="M/9\DA;%<'GI]/@RG38?+M_#?E.+3D*,Q7O2B>5$TA,^A.,\ASQ'X9T!G=9SO"
^XMB(3.9,22,2,11633,0)="""DATA"",396.18,468,3,997,0)"
^XMB(3.9,22,2,11634,0)="MF:BT#!R2O[8H^.>E?F1BE'Q^#77Z6(V]N>""=,$ZA^MDU!`R@:_2VL^J9'AIY"
^XMB(3.9,22,2,11635,0)="""DATA"",396.18,468,3,998,0)"
^XMB(3.9,22,2,11636,0)="MT3/RHD@P[#*?Z<.;Q,XC@XWRY-D-Q<N'RA_:#TQ\@N>1J'UJA?_<CQ^U+P34"
^XMB(3.9,22,2,11637,0)="""DATA"",396.18,468,3,999,0)"
^XMB(3.9,22,2,11638,0)="M*""VO<)N2*KP<323*I:\/V5"">=%[FK/=G-NZ<C[SH""7A1Y/#$2Z\$C./-K[/@"
^XMB(3.9,22,2,11639,0)="""DATA"",396.18,468,3,1000,0)"
^XMB(3.9,22,2,11640,0)="M$`?*'\S[+G%^P%7WB61ZUFZ=E4I=N<\XNN[K/Y>=ULEJ/A.?$W+8\PY\1E[T"
^XMB(3.9,22,2,11641,0)="""DATA"",396.18,468,3,1001,0)"
^XMB(3.9,22,2,11642,0)="M)+PHDN/B^1>WRY4XSZKIZXZ(;'D6$2I]RAA%YT4]<C0D1TW('Q*%A`B3ZHYI"
^XMB(3.9,22,2,11643,0)="""DATA"",396.18,468,3,1002,0)"
^XMB(3.9,22,2,11644,0)="MJEJ'%T#.QV=K4PDY""H%58`7U^,1#O.A8.1IYT9!SGGLFL9+'T6<AD0HBO7<("
^XMB(3.9,22,2,11645,0)="""DATA"",396.18,468,3,1003,0)"
^XMB(3.9,22,2,11646,0)="M<20S1IXQH6(<+,4;-RQWDT?@AYSS8^0/]572#H8>&2GZT&$'?CM<`B<*<^T1"
^XMB(3.9,22,2,11647,0)="""DATA"",396.18,468,3,1004,0)"
^XMB(3.9,22,2,11648,0)="M.*>^=UJEG.)SD!?-(B]Z/EX4,P3AEE<)$_7""<$NS-^E/')^ROFK#*6:>IT;3"
^XMB(3.9,22,2,11649,0)="""DATA"",396.18,468,3,1005,0)"
^XMB(3.9,22,2,11650,0)="M98?M92H1:7R'EU%B&2.4;1^,)T'R>""W[""Z""W\JP]ZM,:J""\*,<C.K/S(BYZ+"
^XMB(3.9,22,2,11651,0)="""DATA"",396.18,468,3,1006,0)"
^XMB(3.9,22,2,11652,0)="M%^4G,B9G-L4;E:1RO2;^)55E;$76)\_VI*@4E?&ZWZ$1O""BF?`Z5V$/]Z`GN"
^XMB(3.9,22,2,11653,0)="""DATA"",396.18,468,3,1007,0)"
^XMB(3.9,22,2,11654,0)="M*M&WDR#\FOZ_00H^2=4=$6,MSX=KL[0[K9N599&!V%\'SY==$GG1HWE19'XU"
^XMB(3.9,22,2,11655,0)="""DATA"",396.18,468,3,1008,0)"
^XMB(3.9,22,2,11656,0)="M<B51MK\\JDFOP&P9IZ61)%(=<2<^1=\81<YC&M5D8XT@*T2M+(9;T3E$QP^-"
^XMB(3.9,22,2,11657,0)="""DATA"",396.18,468,3,1009,0)"
^XMB(3.9,22,2,11658,0)="MHR-UP^A7U99DW+R<PRCP/(C8`$!Y9R41MDGTS4DSYBMP=%B6LU8C+_IHO""A2"
^XMB(3.9,22,2,11659,0)="""DATA"",396.18,468,3,1010,0)"
^XMB(3.9,22,2,11660,0)="M=%8)SPRI;B;49/#1(""^*=1G$XX]H;`>39B0""7^V_+"">/E$UZE>9Z7E1?P63."
^XMB(3.9,22,2,11661,0)="""DATA"",396.18,468,3,1011,0)"
^XMB(3.9,22,2,11662,0)="M,TKM^*$X106PGN451SQ$+].Z>""[>EN(S\J)GY$5;!X^$3-ZT;16YB*S(1B/Z"
^XMB(3.9,22,2,11663,0)="""DATA"",396.18,468,3,1012,0)"
^XMB(3.9,22,2,11664,0)="MT?.,3^OK<EP<Z>A)/?F<<5*\1M3Z!G0)#9&]2XN?MUM8%)_@?9<E,FK+/$V9"
^XMB(3.9,22,2,11665,0)="""DATA"",396.18,468,3,1013,0)"
^XMB(3.9,22,2,11666,0)="MA,5^OT-XQ=+(BQ[)BZ(3S0>%\/9@^X352>8CU0U%KXRSIE7.Y>NFE;U1JLXJ"
^XMB(3.9,22,2,11667,0)="""DATA"",396.18,468,3,1014,0)"
^XMB(3.9,22,2,11668,0)="M\,>BD1-QSJ.BP^=<U.\M&R)/,;>7:$RUW9H:TI\C+SJ1%QT\YQ5_$[*>XJ/F"
^XMB(3.9,22,2,11669,0)="""DATA"",396.18,468,3,1015,0)"
^XMB(3.9,22,2,11670,0)="MX[""Z<=#)B.0Z>)!U-%SA27\/[9""7-@*'<F42JE$0^5G*F=1,7[;T-E'UY_#N"
^XMB(3.9,22,2,11671,0)="""DATA"",396.18,468,3,1016,0)"
^XMB(3.9,22,2,11672,0)="M#)$7'7?./TT_>G>ECR'YTV)?#2B1""27B_72<EF_3#)4-EC-.G!:]SJ\ZZN&6"
^XMB(3.9,22,2,11673,0)="""DATA"",396.18,468,3,1017,0)"
^XMB(3.9,22,2,11674,0)="MH_N`1UXTA!=]O/FX]ZO%8W)_2%XER\7HK/(K$1<'/G/:[Z[3(""D34*5I;>""3"
^XMB(3.9,22,2,11675,0)="""DATA"",396.18,468,3,1018,0)"
^XMB(3.9,22,2,11676,0)="M]&>4M-:$1-T+/+OX56+[6ROQR/B,O.@I>=''GX\]4WB\7X8R_?1<AIZ*18=."
^XMB(3.9,22,2,11677,0)="""DATA"",396.18,468,3,1019,0)"
^XMB(3.9,22,2,11678,0)="M0%Y#HC^@\S+M.%8Z^M&C`GQ'G21]*V*>;+R""B(^FU9];3[[GE',^GN^!O.@C"
^XMB(3.9,22,2,11679,0)="""DATA"",396.18,468,3,1020,0)"
^XMB(3.9,22,2,11680,0)="MS<<>#3?>+T/JD/7Y(<`*T0[*8#7!]U)^""E1^F@_JK)`[3[U;`_EZK-LC'G?."
^XMB(3.9,22,2,11681,0)="""DATA"",396.18,468,3,1021,0)"
^XMB(3.9,22,2,11682,0)="M1U[T3+SHB>?CW:]1YWS=7+^5[*;>3H?HCTZ]Q(!7!(!""9>K*SC3Q0S)/Z:G?"
^XMB(3.9,22,2,11683,0)="""DATA"",396.18,468,3,1022,0)"
^XMB(3.9,22,2,11684,0)="MV)DQUL&DLE4N"">LG'GG1Y]6/WLS]'6,W060S_5R'QX+U!.=5]QK`9T%R32UY"
^XMB(3.9,22,2,11685,0)="""DATA"",396.18,468,3,1023,0)"
^XMB(3.9,22,2,11686,0)="M)4TG<>?E%=%9KT!+(!$EB(U:^>8H]34C,7ZR=![3RRGRHD?QHF>;C\O_/;XO"
^XMB(3.9,22,2,11687,0)="""DATA"",396.18,468,3,1024,0)"
^XMB(3.9,22,2,11688,0)="M#,3A<:TQ==HI#?%IE;D<^PP:*$3.HT)X326YZ8V?IU5.J79BD<W5V+X,D1=]"
^XMB(3.9,22,2,11689,0)="""DATA"",396.18,468,3,1025,0)"
^XMB(3.9,22,2,11690,0)="MHG[T4WC1+/RD%_7'0(ZZ(C=8U5D)5_0?*M(KDA&7R+PHL>WQH-;!=`95ZFOW"
^XMB(3.9,22,2,11691,0)="""DATA"",396.18,468,3,1026,0)"
^XMB(3.9,22,2,11692,0)="M585:3)$7?3Z\J`V?$H]$.:0KR[GKQB?8-:G.:W'L@(\3O85H>A)37U(Y*K))"
^XMB(3.9,22,2,11693,0)="""DATA"",396.18,468,3,1027,0)"
^XMB(3.9,22,2,11694,0)="M!NHV8XY3RU_'=BTA\J+/GQ>U=]($_Z2(7I*M>:&'>O+H,Z7B>,7X*<B""E[!%"
^XMB(3.9,22,2,11695,0)="""DATA"",396.18,468,3,1028,0)"
^XMB(3.9,22,2,11696,0)="MN'N&3Z4^B;7;EXC)LD:TCJP_%GG1Y\*+VOMN@6\<7:>$Z[3%UU&<NLYD8*3D"
^XMB(3.9,22,2,11697,0)="""DATA"",396.18,468,3,1029,0)"
^XMB(3.9,22,2,11698,0)="M_@["";^G$CXPY1\1=WSE4JC,9XBN3T4R_IS7^X_G^''A1%9_ZOD,F,/$#836Z"
^XMB(3.9,22,2,11699,0)="""DATA"",396.18,468,3,1030,0)"
^XMB(3.9,22,2,11700,0)="MCI[SCKHY<WD^LF;HL;@E?$J2<H@?PR'XA.=#B?=+:)XJ_,VQ=<0C+_ITO*A="
^XMB(3.9,22,2,11701,0)="""DATA"",396.18,468,3,1031,0)"
^XMB(3.9,22,2,11702,0)="MCH+G![?8J(I/,T!=?1#Z$9':(=0>J2+7RQU&L]ROU&6_V[196C^7UA,'=(+6"
^XMB(3.9,22,2,11703,0)="""DATA"",396.18,468,3,1032,0)"
^XMB(3.9,22,2,11704,0)="MX<)GY$4OCQ>U1H3,-3S/Y?VF-<?=]<?,NE!R_2B[7C#L*0+6?J@_H\WVHY71"
^XMB(3.9,22,2,11705,0)="""DATA"",396.18,468,3,1033,0)"
^XMB(3.9,22,2,11706,0)="MJ?P$_((,C>?[<^%%J?]S#""]**]62OB+8;R_;ZI>UV/::CD]?/`G$K5+\FAWJ"
^XMB(3.9,22,2,11707,0)="""DATA"",396.18,468,3,1034,0)"
^XMB(3.9,22,2,11708,0)="M05*[\IM(U7P,%?VIU4_R3F/?I6?""BYI[[<.GB(OS]4MRX-.9'Q<F1T5,%D&J"
^XMB(3.9,22,2,11709,0)="""DATA"",396.18,468,3,1035,0)"
^XMB(3.9,22,2,11710,0)="MHY]XF)<I\J+/A1>UX5/4`X'S?7X-_DITW5?UGM/3-`2?UO@H@T_2\6GJK>HX"
^XMB(3.9,22,2,11711,0)="""DATA"",396.18,468,3,1036,0)"
^XMB(3.9,22,2,11712,0)="MXO>VNK>^B!4'+XI>]_G^''A1&TXQE6,-1B1;0^AZE8Y/5]\EJ^??YOVI'.,X"
^XMB(3.9,22,2,11713,0)="""DATA"",396.18,468,3,1037,0)"
^XMB(3.9,22,2,11714,0)="M)""G/4@))JC\EP#6,YT5)CFVTFRZ6%[7CDW1@Q&E.V7N55^<Q'""T><\Y3DB""("
^XMB(3.9,22,2,11715,0)="""DATA"",396.18,468,3,1038,0)"
^XMB(3.9,22,2,11716,0)="M%Z7O;7T9U7+_7%V2AF3:47PFPFY*DSK:39?)B[KB16FF&XEC>@O?BT@/B@@?"
^XMB(3.9,22,2,11717,0)="""DATA"",396.18,468,3,1039,0)"
^XMB(3.9,22,2,11718,0)="M/KWQ\Y;\(QV?)$O*&^?),4AB]#+=@M=U$.<X5]VBY-U7Y$6?8;PH*HNYQ-IH"
^XMB(3.9,22,2,11719,0)="""DATA"",396.18,468,3,1040,0)"
^XMB(3.9,22,2,11720,0)="M5@S@<Z`>8VN/^C2]Z*)?K:&C6G-`ZD9HLRUVUX>DW4P]<G3>YC;)&7G1B^-%"
^XMB(3.9,22,2,11721,0)="""DATA"",396.18,468,3,1041,0)"
^XMB(3.9,22,2,11722,0)="M<7B?&A.GKMPF%R_J]@L9^&S]>7^""OP(.WNVQMS(3XGS/XOE^V;PH]2J-X45]"
^XMB(3.9,22,2,11723,0)="""DATA"",396.18,468,3,1042,0)"
^XMB(3.9,22,2,11724,0)="M^%3[T;O]]P:>L+-NF./YD2OFVB)*:-:U[[Z:=%['>-%+YT59S:_@NIQF71J7"
^XMB(3.9,22,2,11725,0)="""DATA"",396.18,468,3,1043,0)"
^XMB(3.9,22,2,11726,0)="M'+7Y4W7;S+3?C8[RM2L;63K_L=L/:X^""+:HV*^O(BUX^+TIMBKI)QM8W[C.'"
^XMB(3.9,22,2,11727,0)="""DATA"",396.18,468,3,1044,0)"
^XMB(3.9,22,2,11728,0)="M7+RH?$+;Q[%@KW)[D1S\O!ROA\/PB5)QOA=5C!>]5%Z45J^IU7BV*LRW)+`P"
^XMB(3.9,22,2,11729,0)="""DATA"",396.18,468,3,1045,0)"
^XMB(3.9,22,2,11730,0)="MQ(NZN^!9\(G'Q;?(O$+B[4=OXK3)YO,8+WK9O""CMK4UWE<G#('S:XHC<Y[P;"
^XMB(3.9,22,2,11731,0)="""DATA"",396.18,468,3,1046,0)"
^XMB(3.9,22,2,11732,0)="MG\)^-^0HMMCN+GSJ>HM%CHH3HJR[KZ3-:29`S*._3%X4HH05&\-ZP@[936'X"
^XMB(3.9,22,2,11733,0)="""DATA"",396.18,468,3,1047,0)"
^XMB(3.9,22,2,11734,0)="M'*YCINN_?7ZR]IZ!/H_(K<4*/K^];A/)?H]Y]!?&BU)DLC[%;AP&GO,J/KWX"
^XMB(3.9,22,2,11735,0)="""DATA"",396.18,468,3,1048,0)"
^XMB(3.9,22,2,11736,0)="M:=UCZOB4ZC7AH?>:VH'(M=/]^*3;,O&""-6F'T^MY'?/H+X<7E?K18Q)SYJO3"
^XMB(3.9,22,2,11737,0)="""DATA"",396.18,468,3,1049,0)"
^XMB(3.9,22,2,11738,0)="M7(W)1Y,Q0ZO;6N/<V[H)'T?-;E)'J@/Y53U^FN>7=/9[A\XVG=?R*1_SZ""^`"
^XMB(3.9,22,2,11739,0)="""DATA"",396.18,468,3,1050,0)"
^XMB(3.9,22,2,11740,0)="M%R7(Y+T<='Q*O'HU)A]-Q949+S<<+^K""IZJ]JN,X(ZHJ5[P3(%3.;RJ3LHIY"
^XMB(3.9,22,2,11741,0)="""DATA"",396.18,468,3,1051,0)"
^XMB(3.9,22,2,11742,0)="M]$?PHFJ-^S:@CKWW_:**,^_*0'\KV[FTEC?D)8T_Y_4X3T=<YR`^S>?"";F79"
^XMB(3.9,22,2,11743,0)="""DATA"",396.18,468,3,1052,0)"
^XMB(3.9,22,2,11744,0)="M_X*PU04O:LIN7@4JQHM.YT5)X#>2^]2(GDJ\VSS_/^^T1']J6.\:N1=8(]7+"
^XMB(3.9,22,2,11745,0)="""DATA"",396.18,468,3,1053,0)"
^XMB(3.9,22,2,11746,0)="MS>GICN3.81!3!W67^NQ@)SZ'XS><F<(#\:(>.6J;""<.GDU^M!`NF>T'5#I`Q"
^XMB(3.9,22,2,11747,0)="""DATA"",396.18,468,3,1054,0)"
^XMB(3.9,22,2,11748,0)="MC_X87K3O]\4[)O'.\J2'#>]:1_J$D9^T?O1]EZ6^:UW?]YMT"".M[WD'-)9K+"
^XMB(3.9,22,2,11749,0)="""DATA"",396.18,468,3,1055,0)"
^XMB(3.9,22,2,11750,0)="M:?3U"")""C.I\ISM]1\:(:O]H_)Y4O[]@A""7MN%'A\6]XHQ$^[>CY'7C1<CO8="
^XMB(3.9,22,2,11751,0)="""DATA"",396.18,468,3,1056,0)"
^XMB(3.9,22,2,11752,0)="MO3#O98.EN$HN3QO<2#UM>CG*NMWQ/C@2/JDDEOHSTE<Z;#""<]G'*0?AT\YGV"
^XMB(3.9,22,2,11753,0)="""DATA"",396.18,468,3,1057,0)"
^XMB(3.9,22,2,11754,0)="MW@IE,\BOZEE])-/$EHL2RM.*OA+41J0]S/SXC.>[%Y]([JLH.G>V<B\PQ.6J"
^XMB(3.9,22,2,11755,0)="""DATA"",396.18,468,3,1058,0)"
^XMB(3.9,22,2,11756,0)="M^$F<[OPGN?YAT_::0B^A8012ZS-)&XI/VEMS'""\:XK<,B!>E6-+T1LC2-.7="
^XMB(3.9,22,2,11757,0)="""DATA"",396.18,468,3,1059,0)"
^XMB(3.9,22,2,11758,0)="M4/]<35_H^^+1)Z3%SGC^R(M.YT6E/LF-G)^(&G,^9C]P),O/MN\;2G_N\)DW"
^XMB(3.9,22,2,11759,0)="""DATA"",396.18,468,3,1060,0)"
^XMB(3.9,22,2,11760,0)="M6)8_:3Y&CB:N?""('3NM`?*K^2EN.J,M7):+KY;Q^:A_6_DB]R(L^&2_*Y;#6"
^XMB(3.9,22,2,11761,0)="""DATA"",396.18,468,3,1061,0)"
^XMB(3.9,22,2,11762,0)="MOPFQ3G9D!F6>S--L""B]J\Z];][_2+14++ZK+T0R8,LNI/M`_5^#4EKGGLN@B"
^XMB(3.9,22,2,11763,0)="""DATA"",396.18,468,3,1062,0)"
^XMB(3.9,22,2,11764,0)="M+_KDO*AG!N9)'<J+&II=Y<.S5G=,L\15+/(NGVX<VF4RU#EU/VM._3GRHN-X"
^XMB(3.9,22,2,11765,0)="""DATA"",396.18,468,3,1063,0)"
^XMB(3.9,22,2,11766,0)="MT7/.1^IRYXNOF\Z+NNPE8""1=V<*N?HC0A]$^&WMW/4""Z7C_<S*%W^5`C+SKN"
^XMB(3.9,22,2,11767,0)="""DATA"",396.18,468,3,1064,0)"
^XMB(3.9,22,2,11768,0)="MG#_#?*P=Q""R^2C2&%S7VNW)ZT`?DLRU+$^($+?68,K^<5V0[]J,[\J+3>-''"
^XMB(3.9,22,2,11769,0)="""DATA"",396.18,468,3,1065,0)"
^XMB(3.9,22,2,11770,0)="MFH_['`RK;&S@I]+K@AJQ2.V0G2,C4=AQM@AG5P=E85VY_59VC33RHM/LI7//"
^XMB(3.9,22,2,11771,0)="""DATA"",396.18,468,3,1066,0)"
^XMB(3.9,22,2,11772,0)="M9SBOS6\W&5GK3CEJQZ?,J]M0!Q:9K<+(@)](N@N]""ZX]OR3RHF'X?-H\>K,6"
^XMB(3.9,22,2,11773,0)="""DATA"",396.18,468,3,1067,0)"
^XMB(3.9,22,2,11774,0)="M\I#=!+),_H3+BA&\J%DOQ""U'*1+E.=GZVMLR2,18($G5BK?`MD9>](2\Z!GG"
^XMB(3.9,22,2,11775,0)="""DATA"",396.18,468,3,1068,0)"
^XMB(3.9,22,2,11776,0)="MXXA'PFUP)P855T.\>F*OZN`;1\*9CF#:.=Q`=""-L>JTNNN('4""S_R(L^*2\Z"
^XMB(3.9,22,2,11777,0)="""DATA"",396.18,468,3,1069,0)"
^XMB(3.9,22,2,11778,0)="M-$Y(%-$0#ZG)WB!\^OA,FPVGSXO+:YL\I)U!%6F-Y=[BOGX3D1>]7%Y41LBX"
^XMB(3.9,22,2,11779,0)="""DATA"",396.18,468,3,1070,0)"
^XMB(3.9,22,2,11780,0)="M/'J!!5W+L_%(]KX*;GQ""U3M['7(J]_@K\J@M4N-8.<*5?F29&3<0>='+SZ-W"
^XMB(3.9,22,2,11781,0)="""DATA"",396.18,468,3,1071,0)"
^XMB(3.9,22,2,11782,0)="M1U.ZN6ZI?]R0'$T2JQ9!LZC\?GQ2Y1O9+3""PAWCG.C&.$952E9G<$4*?9>1%"
^XMB(3.9,22,2,11783,0)="""DATA"",396.18,468,3,1072,0)"
^XMB(3.9,22,2,11784,0)="MGYP7'9""C[>@Z.0XV%;MM*Q'?8CX)1(YBN_T#.J:+SZ15P66KG<0W8<V#4,F:"
^XMB(3.9,22,2,11785,0)="""DATA"",396.18,468,3,1073,0)"
^XMB(3.9,22,2,11786,0)="MJ\C)C[SHL^%%JR$^W,^/BNY'0WB&6'@3AQ2?OGZ(3D\3UB-2:/</F_U%8T7%"
^XMB(3.9,22,2,11787,0)="""DATA"",396.18,468,3,1074,0)"
^XMB(3.9,22,2,11788,0)="M7]&?RLB+7CPOBL?@4L<AUT/]5<C-R'<EWKBU:ZJD=Z.!3Y*5C(%3@K\I_`Y<"
^XMB(3.9,22,2,11789,0)="""DATA"",396.18,468,3,1075,0)"
^XMB(3.9,22,2,11790,0)="M7JKZ+=A(\DFO>VHC+WK9O*@+5^']Z!D7687DE5BBEUD\O!V?Q!IW^HF(7*QH"
^XMB(3.9,22,2,11791,0)="""DATA"",396.18,468,3,1076,0)"
^XMB(3.9,22,2,11792,0)="M9*CXO&%_*?AT\6.1%[UX7A0GD_[1D][H(Q\L2=5S/KANL],3YHI+87B6=%:9"
^XMB(3.9,22,2,11793,0)="""DATA"",396.18,468,3,1077,0)"
^XMB(3.9,22,2,11794,0)="MF8J\Z,7SHGC*^:[C-`2?@!(;GV""-[_3@TU^/T92CW*8""'HO6NS#K4$5>]&)Y"
^XMB(3.9,22,2,11795,0)="""DATA"",396.18,468,3,1078,0)"
^XMB(3.9,22,2,11796,0)="M43SE?#?XJBHXK\2HV.3N*^:KVPP:AHO'4N.;P""NAS*>B-J+,/D5>].+[+DTZ"
^XMB(3.9,22,2,11797,0)="""DATA"",396.18,468,3,1079,0)"
^XMB(3.9,22,2,11798,0)="MYY5^QQ:<AD24R'D<CLJ+1/;9$*IKM5(>O=[)KF&2M.*6/?`+_/.1%[UT7M2/"
^XMB(3.9,22,2,11799,0)="""DATA"",396.18,468,3,1080,0)"
^XMB(3.9,22,2,11800,0)="MSV&YRB+?JC9PG-;PU[/><9B?QI2)MUMT9M\E';UZ1`L\/\2FZF<(^)3J1T5>"
^XMB(3.9,22,2,11801,0)="""DATA"",396.18,468,3,1081,0)"
^XMB(3.9,22,2,11802,0)="M]+)Y43SM?)>B-+-D7/]W0\)1>4@Q2>NCF/E-]D@J,^+)%9=B\\[SKG>1%WWI"
^XMB(3.9,22,2,11803,0)="""DATA"",396.18,468,3,1082,0)"
^XMB(3.9,22,2,11804,0)="MO&@?2QR25>*4AWH.DRP#[3FD/!YP.""[%C(V2N?O(BUXV+^K""9[!<Q;Z\)6N]"
^XMB(3.9,22,2,11805,0)="""DATA"",396.18,468,3,1083,0)"
^XMB(3.9,22,2,11806,0)="M)DM<GLWV`=T6]$4J_]SST7.9S;@4>U][D@DPVEZ*O.C3\:)A$?=J'!*73$/Y"
^XMB(3.9,22,2,11807,0)="""DATA"",396.18,468,3,1084,0)"
^XMB(3.9,22,2,11808,0)="ME6H6G`V?:IT<&AW2LMHJ#%_8%2.@1E8[>-$^LH_4Q$7@$Q#V5N1%+YT7=5?["
^XMB(3.9,22,2,11809,0)="""DATA"",396.18,468,3,1085,0)"
^XMB(3.9,22,2,11810,0)="M!EG&.45?WR5;W+Z1+Y=1>>>0AX3K)!6_^R]AW?C[+L&G54W`&OW*1B6]41J1"
^XMB(3.9,22,2,11811,0)="""DATA"",396.18,468,3,1086,0)"
^XMB(3.9,22,2,11812,0)="MU1)YT4OG1=6(""@\_G_'(-V'!\)_T:""3[.-`Q5'@T5:[4%3/J[Y]KC^BWX=,F"
^XMB(3.9,22,2,11813,0)="""DATA"",396.18,468,3,1087,0)"
^XMB(3.9,22,2,11814,0)="MY^M&6%N1%[W\>-%ABTGDM7%.TNR7Y)*?M#<)?)F:HNAW;.^B.!""A(N%3S0>Q"
^XMB(3.9,22,2,11815,0)="""DATA"",396.18,468,3,1088,0)"
^XMB(3.9,22,2,11816,0)="MR5&Y+IGXZ8)X411Y4:N]5+FK+MGM93@M6\7K;>]1!QUSZ/^UN/?&TG.A"">M]"
^XMB(3.9,22,2,11817,0)="""DATA"",396.18,468,3,1089,0)"
^XMB(3.9,22,2,11818,0)="MX\@'P4.()OEZDN80XT6?#R\*>!%RC...H\_TZMB\2-P_'\(#V.)&=7^07>_U"
^XMB(3.9,22,2,11819,0)="""DATA"",396.18,468,3,1090,0)"
^XMB(3.9,22,2,11820,0)="ML`K8[M7W]>&5<7PAO""CRR=+(B](X#\X=R;GHJD4N^RO-*,YA7D""<YA9]HW%Q"
^XMB(3.9,22,2,11821,0)="""DATA"",396.18,468,3,1091,0)"
^XMB(3.9,22,2,11822,0)="MHS[$.^;CK?%(.S%1#:2FY5DC+WKQO""AY=OO:LRYY2'(X6CWSUYU?XCB7*RMZ"
^XMB(3.9,22,2,11823,0)="""DATA"",396.18,468,3,1092,0)"
^XMB(3.9,22,2,11824,0)="MK`CW]Z-WG.P.^TOJOU,!+D$#H9XKT#.&I=<C[!>RUS>Z$%X4/=9\C+R)'ETT"
^XMB(3.9,22,2,11825,0)="""DATA"",396.18,468,3,1093,0)"
^XMB(3.9,22,2,11826,0)="M+H[4=M3J>S)LDNP+_:26\6/M.A8B$_W]FRHOVXKM]I?]4Q#)7S?""]F,=54B4"
^XMB(3.9,22,2,11827,0)="""DATA"",396.18,468,3,1094,0)"
^XMB(3.9,22,2,11828,0)="MGHK31Y=CI`+WQ?*BJ._JP=`JY=VX[3YD>5WT#7$_I[(<K=0^12W6GF@VGL`S"
^XMB(3.9,22,2,11829,0)="""DATA"",396.18,468,3,1095,0)"
^XMB(3.9,22,2,11830,0)="MR[ET]#8N&W=6,VBQHMZ._3T621H0SV_.QQZKYQZGOV_$NZB!5M.OEZT[""W]_"
^XMB(3.9,22,2,11831,0)="""DATA"",396.18,468,3,1096,0)"
^XMB(3.9,22,2,11832,0)="M9>GG8JX@K^UJ&Y'\T^ILMX[.,*)&K'W<,_.B.%26:BC5ZMQ""SXU*QR1?!U[_"
^XMB(3.9,22,2,11833,0)="""DATA"",396.18,468,3,1097,0)"
^XMB(3.9,22,2,11834,0)="MUJ:QJ7EMI*I=_P7]0NF7W?IF'0\:N]^\][<C&JMI0ZA<.<R8SP@Y:K)H0W:<"
^XMB(3.9,22,2,11835,0)="""DATA"",396.18,468,3,1098,0)"
^XMB(3.9,22,2,11836,0)="M;B]1J9I@S/H/)!7MU*+V':""OM:P:MJCF3E>=?(KU'!!]#-1^+IA5SL:]],2D"
^XMB(3.9,22,2,11837,0)="""DATA"",396.18,468,3,1099,0)"
^XMB(3.9,22,2,11838,0)="M[P:O`,^JR+-W23]I?1#$NS$^G9Y@ZJ-L=BVO4J]7LA?SH:^*]TG7EG4'0>Q."
^XMB(3.9,22,2,11839,0)="""DATA"",396.18,468,3,1100,0)"
^XMB(3.9,22,2,11840,0)="MV_YUWM'&Y$4K]]YSMI[SFF4C\&G/QV<YQXB]FS.B&=5?B]KHAQ-2IS0(GY;Z"
^XMB(3.9,22,2,11841,0)="""DATA"",396.18,468,3,1101,0)"
^XMB(3.9,22,2,11842,0)="MSRC$KSO$BS(\MG)'%XHWMKJX[7=)DH>MW+^@91C#F.*4C<A0R^6)Z$Z`L>@_"
^XMB(3.9,22,2,11843,0)="""DATA"",396.18,468,3,1102,0)"
^XMB(3.9,22,2,11844,0)="MI.!0_""7:.8;.I6WEJO%GXD4YKLSY\&='_ZE?.?[TM&+EL*$G"")S2.QK:?6""7"
^XMB(3.9,22,2,11845,0)="""DATA"",396.18,468,3,1103,0)"
^XMB(3.9,22,2,11846,0)="MX$OX!\O&AE,S3QCTV0Z#E7QW4O\XP&P&&J#+HC%Z-0;$\UOU#NSR!(S)H^^["
^XMB(3.9,22,2,11847,0)="""DATA"",396.18,468,3,1104,0)"
^XMB(3.9,22,2,11848,0)="M7PE\BFY8LESM]P=+NIO\*2QUV&AY5PW^DRQ_,-]/+AE;WN%(^RQ#/=E1;*L;"
^XMB(3.9,22,2,11849,0)="""DATA"",396.18,468,3,1105,0)"
^XMB(3.9,22,2,11850,0)="M?P9>%%N>(CY?]A/N\2GU]VS4IZC'J8;/_G>ZOC9<!P^05WOP23DG!8<-]863"
^XMB(3.9,22,2,11851,0)="""DATA"",396.18,468,3,1106,0)"
^XMB(3.9,22,2,11852,0)="M:T:S,.E_;7'(:I[1N/ZY-GRJ>7]CY:A8*]!PY/X74A<6\EM^3M$333KG*5YQ"
^XMB(3.9,22,2,11853,0)="""DATA"",396.18,468,3,1107,0)"
^XMB(3.9,22,2,11854,0)="M(R&UT7`H3C[1HZCO6(2X=M""?I.R_9K\M\3Y9(I^!%^4=E*2^=*I<%><)7XL<"
^XMB(3.9,22,2,11855,0)="""DATA"",396.18,468,3,1108,0)"
^XMB(3.9,22,2,11856,0)="M\U4@G\6]7M2V?4>[UNQGI^'47H-A-`\I9S+1_.(>FYQ_I-'T[7#\,U8K@WJZ"
^XMB(3.9,22,2,11857,0)="""DATA"",396.18,468,3,1109,0)"
^XMB(3.9,22,2,11858,0)="M*'OG$U8':""A>M-$X=7;>F:<JLLLQ<3*+5V0<X;:Q/!NN^?32YLS\CXE/L[\G"
^XMB(3.9,22,2,11859,0)="""DATA"",396.18,468,3,1110,0)"
^XMB(3.9,22,2,11860,0)="MU\![FU%ZU@S+KK>))+F*>JFLG#?L673[9@+L""[<]S\]6F@,OUUNF)[S.W]M]"
^XMB(3.9,22,2,11861,0)="""DATA"",396.18,468,3,1111,0)"
^XMB(3.9,22,2,11862,0)="M1;)OE?ZM*?.Q5:,<75]49RE-'""+=TFH41.D=@NUV=]-:$6^\XI*1CQTO""O:C"
^XMB(3.9,22,2,11863,0)="""DATA"",396.18,468,3,1112,0)"
^XMB(3.9,22,2,11864,0)="M[A/#$F-FK(_>=PF)DZ)ASRF3SXH]+\<1A=<=\_1=ZC.1/-XE[#ZS];@FM2ZH"
^XMB(3.9,22,2,11865,0)="""DATA"",396.18,468,3,1113,0)"
^XMB(3.9,22,2,11866,0)="M*X[`/Q^Y.^C(<]ZW[VC0@RGV!'GQ@UI;-P*3P4<7$""_:LYJ-B4.3\41>1DKB"
^XMB(3.9,22,2,11867,0)="""DATA"",396.18,468,3,1114,0)"
^XMB(3.9,22,2,11868,0)="MVRQ\'=+\2TGKM2S"">$B0D@0+E:\^GKM.LLH8J?7""?75!1?25BF$RPP""?[$""\"
^XMB(3.9,22,2,11869,0)="""DATA"",396.18,468,3,1115,0)"
^XMB(3.9,22,2,11870,0)="M*-(89R=&-;F!@DYC]`+C19']6;6N3YC_4]'8`NT+""PK!B@=K/,!?B8>B3(2'"
^XMB(3.9,22,2,11871,0)="""DATA"",396.18,468,3,1116,0)"
^XMB(3.9,22,2,11872,0)="M2JL+ZHZ\5O+L2)X)JT(VC1>=O.\H;/^>:;RHL`>1\00CYSC(]FX:6]X2+XGY"
^XMB(3.9,22,2,11873,0)="""DATA"",396.18,468,3,1117,0)"
^XMB(3.9,22,2,11874,0)="M)>IY2E]93:WOP2_`#_W.&(>P32!+G3V+@_5>G7OR1;1R"":KGZU%=P1X1,(87"
^XMB(3.9,22,2,11875,0)="""DATA"",396.18,468,3,1118,0)"
^XMB(3.9,22,2,11876,0)="M?9WQ)!9[WH?#=J3'`(EX2,F3YY2C-&X^-#_.+@E9#3NGMCDF3ZK4\""F?XCX>"
^XMB(3.9,22,2,11877,0)="""DATA"",396.18,468,3,1119,0)"
^XMB(3.9,22,2,11878,0)="M@.:'P-,IZ2W5<;QHC!<U^WU3*UWFBV1/D^ISDGC^_E71A9EAF_;3Q&Y\^NK2"
^XMB(3.9,22,2,11879,0)="""DATA"",396.18,468,3,1120,0)"
^XMB(3.9,22,2,11880,0)="MV/V<0?HJ=FFCP_@4>7:JM*L]?>WKAGK6K7GTU31[Z77+59O_4^I""WPJOJQBG"
^XMB(3.9,22,2,11881,0)="""DATA"",396.18,468,3,1121,0)"
^XMB(3.9,22,2,11882,0)="MYXR0['/#C""4&GM3JY6<H%3BTXS0H""Q2738B^:N\ZH^+3-PY(=4L-/>]S`?Y."
^XMB(3.9,22,2,11883,0)="""DATA"",396.18,468,3,1122,0)"
^XMB(3.9,22,2,11884,0)="M.-=%1N`PZQ_SZ,?SH@V6_4O]?UL3GW!Z<[^G\$!YXJ.D*!YYU]AN8C6SPV_O"
^XMB(3.9,22,2,11885,0)="""DATA"",396.18,468,3,1123,0)"
^XMB(3.9,22,2,11886,0)="M^+$LZXWV.HJ#<<]:O)24W^3DQFP8-O70V'?IN'A1YE]JN6\)*]XP]A.6\=RT"
^XMB(3.9,22,2,11887,0)="""DATA"",396.18,468,3,1124,0)"
^XMB(3.9,22,2,11888,0)="M31]'TWMV6W]4+.GSTJCUPZGN1]$[@""`+/NWYGE8D>_&I\ZM&7!]VX[/%TWC:"
^XMB(3.9,22,2,11889,0)="""DATA"",396.18,468,3,1125,0)"
^XMB(3.9,22,2,11890,0)="MF$<?+D?U+S&.%`VH1P=*D8?T5?.<]^714S\EL>4S&G<?EF=G1'I8\B]<^`SC"
^XMB(3.9,22,2,11891,0)="""DATA"",396.18,468,3,1126,0)"
^XMB(3.9,22,2,11892,0)="MM8;Q::]3:N8""#/EV8Q[]$;PHLOH?6*P2L=*1=3XB#B>`%Z4\%.A^+3ZF_IB*"
^XMB(3.9,22,2,11893,0)="""DATA"",396.18,468,3,1127,0)"
^XMB(3.9,22,2,11894,0)="M3Z7>UTA[2<:G)0\:AVL']OSEL_*B+PK/)\BC1P:2@W)?S+C*OAI\Y?<RJ5+*"
^XMB(3.9,22,2,11895,0)="""DATA"",396.18,468,3,1128,0)"
^XMB(3.9,22,2,11896,0)="M:^]DN@?3C4_[.*8<]?DRY3YB:L5P7ZV5R(N.\G_:Q[%Y;^V^II'^7&L>6Q""O"
^XMB(3.9,22,2,11897,0)="""DATA"",396.18,468,3,1129,0)"
^XMB(3.9,22,2,11898,0)="M[JNJ[,:GS(N&R%'+LT*J.@S(0TQS`W@U45(O*JBN6N1%PWC1R?-!(5[D`%XT"
^XMB(3.9,22,2,11899,0)="""DATA"",396.18,468,3,1130,0)"
^XMB(3.9,22,2,11900,0)="M<>VH9)=X\*G[*[5>,L'GO"">_J7*QLK0O6(M%)5VYSHF?>8J\Z#@Y^ECSL<E1"
^XMB(3.9,22,2,11901,0)="""DATA"",396.18,468,3,1131,0)"
^XMB(3.9,22,2,11902,0)="M=VZ<R+0(TU>!&37[*(3J""78Y2FO:^9X+TWIG=?<B+_K,^]&'YE\,VRRZAWT*"
^XMB(3.9,22,2,11903,0)="""DATA"",396.18,468,3,1132,0)"
^XMB(3.9,22,2,11904,0)="M+VJSS-5SQ_[WS2JEI'I%4)Y=Y$6#>-%'FX]GOP8K+=NB,NS[;LE""&L&+6C_M"
^XMB(3.9,22,2,11905,0)="""DATA"",396.18,468,3,1133,0)"
^XMB(3.9,22,2,11906,0)="MC2<A,ZLL\22810E&7O0X7O31YS.NGH*%5\]\^^[&9XB>4#;V["":Y]I.O[Y+0"
^XMB(3.9,22,2,11907,0)="""DATA"",396.18,468,3,1134,0)"
^XMB(3.9,22,2,11908,0)="MEUM\9+QHY$4OH!^]C,_P^N$^1ES4%:F;<7)4CZ]WY.,WOK\NU6W$H7&PD1>]"
^XMB(3.9,22,2,11909,0)="""DATA"",396.18,468,3,1135,0)"
^XMB(3.9,22,2,11910,0)="M^+Y+O;U4-_Y3GL9I4'[2O^]0V6LJ+TI/<[O\T_$IWJ7T@4)ERNZIY-]%7O39"
^XMB(3.9,22,2,11911,0)="""DATA"",396.18,468,3,1136,0)"
^XMB(3.9,22,2,11912,0)="MUA?5,I;]^`$NI^YK-[A.T0Y'[51>E'KW7?A4^R6E25G/ZS9M4S4C!)XDJ4Y^"
^XMB(3.9,22,2,11913,0)="""DATA"",396.18,468,3,1137,0)"
^XMB(3.9,22,2,11914,0)="MY$6?GA>=:""_9>-'A+""9:S<$6<V3Z*\?RHA2?(K[.^IZ<XK.LVZR][K[2>5;6"
^XMB(3.9,22,2,11915,0)="""DATA"",396.18,468,3,1138,0)"
^XMB(3.9,22,2,11916,0)="M15545$^@%=,"">/[(BSY#7C0DGU[@A]8H<TG2=@""?OKKZK99?9_>,=O+S>M[C"
^XMB(3.9,22,2,11917,0)="""DATA"",396.18,468,3,1139,0)"
^XMB(3.9,22,2,11918,0)="MN:CFG41ML@ZW69-VWV?DO)^3^3'=&3Y+(F8PC8Z""6GCPM,7S_9)YT=Y*#N=%"
^XMB(3.9,22,2,11919,0)="""DATA"",396.18,468,3,1140,0)"
^XMB(3.9,22,2,11920,0)="M![-)1(31)%ZT&<KW)+5!Y_W[TU*915&5\/^,^*%@))(OTF*%CZI8%4!$O0QE"
^XMB(3.9,22,2,11921,0)="""DATA"",396.18,468,3,1141,0)"
^XMB(3.9,22,2,11922,0)="MY$5?#""]JBQQUU5FR2.5@7I2PG%C%//V""U_U>,""D??TYQ""C86L03I)TE,+-54"
^XMB(3.9,22,2,11923,0)="""DATA"",396.18,468,3,1142,0)"
^XMB(3.9,22,2,11924,0)="M?/B,O.AE\*(29BJ?[>O*LW/:W9JN""J\,\P#JT\+JZF-1=T=4>!P>!_REC"",E"
^XMB(3.9,22,2,11925,0)="""DATA"",396.18,468,3,1143,0)"
^XMB(3.9,22,2,11926,0)="MM1A9+:F*HA.X+4""\R&.-Y_LE\J+""-J+Q(R/C1?&@W=V:,<9!54]H;S`D]XG0"
^XMB(3.9,22,2,11927,0)="""DATA"",396.18,468,3,1144,0)"
^XMB(3.9,22,2,11928,0)="MH@*;,3&LZGVI-7\C+_JL>-%V1,?:RIZG*5G)-DTUN'Z4N[*.JQ+TI'AL3.*Y"
^XMB(3.9,22,2,11929,0)="""DATA"",396.18,468,3,1145,0)"
^XMB(3.9,22,2,11930,0)="MX_E^L;PHQ=!\7C*V9MR^*_GJB3^?6,TKJ9NA>#P[M^""2SZ'UJ""(O^KQXT?J*"
^XMB(3.9,22,2,11931,0)="""DATA"",396.18,468,3,1146,0)"
^XMB(3.9,22,2,11932,0)="M,S?]..D\I9$8P_^\?0Q[/WU8'(HK7M2>%\?U7%*EM_'A_:R\:%C5ILB+3II/"
^XMB(3.9,22,2,11933,0)="""DATA"",396.18,468,3,1147,0)"
^XMB(3.9,22,2,11934,0)="MAQ&HG`3<8=6D;=;F/0>>#E?(&^QC2)E-1Z:>R""4>Q$_5>CH^T#K/M5JW)S-R"
^XMB(3.9,22,2,11935,0)="""DATA"",396.18,468,3,1148,0)"
^XMB(3.9,22,2,11936,0)="MZ`/^6>)%A^N&R;6,U-X+>I[X,(8=>136?'/7]\^<%^WP6!`4TJ\BJ9.ZK&G?"
^XMB(3.9,22,2,11937,0)="""DATA"",396.18,468,3,1149,0)"
^XMB(3.9,22,2,11938,0)="M6(*:M&7,8GT5C!_&3MJTUX$\^L19""<*CB>KC""'M)CB[EW4;KAM>##I6KSKIX"
^XMB(3.9,22,2,11939,0)="""DATA"",396.18,468,3,1150,0)"
^XMB(3.9,22,2,11940,0)="M]BP&Y*Z7&Z0P(,=^:?4WW5C4ZY&^!EY4SDF#+#NEPG(FUR>C7T1S91E""KCQZ"
^XMB(3.9,22,2,11941,0)="""DATA"",396.18,468,3,1151,0)"
^XMB(3.9,22,2,11942,0)="M=SQ^\+ELS:>3L^9M7BBY3JDT^\P5/\CPZ<X3U[O9V+X(;G!K>Z]E'/L(?7Y/"
^XMB(3.9,22,2,11943,0)="""DATA"",396.18,468,3,1152,0)"
^XMB(3.9,22,2,11944,0)="M(YX/]SCB?<^5%T7>.F:M0RXBM?H3>6<EU],CE9/8/RJ%S5/=C4\QSK""OU<XO"
^XMB(3.9,22,2,11945,0)="""DATA"",396.18,468,3,1153,0)"
^XMB(3.9,22,2,11946,0)="MD*S.""?G45'/E$E;H`VJ\:-]]!O$.'WJ%=[GS`*_V+J\SK<;1M*(B/J_4(8\G"
^XMB(3.9,22,2,11947,0)="""DATA"",396.18,468,3,1154,0)"
^XMB(3.9,22,2,11948,0)="M:LOT_7""P6O]9JF\OC<2ZUO2==%XV+ZK;,G)>$HB#><FKE8'&)TM9NM/]*]C$"
^XMB(3.9,22,2,11949,0)="""DATA"",396.18,468,3,1155,0)"
^XMB(3.9,22,2,11950,0)="MYU""<7@@^_3@DK/YD^UW5""T@'.QD/+=;J%O$>,DJ=-P4_7(Z*_B#2"".P]`OUR"
^XMB(3.9,22,2,11951,0)="""DATA"",396.18,468,3,1156,0)"
^XMB(3.9,22,2,11952,0)="M?R)2H8/V)Y""Z+]&J<[1F%^042MUKZ#OP^>N47B(OVM>,)9TRP!_CLSU\/)*["
^XMB(3.9,22,2,11953,0)="""DATA"",396.18,468,3,1157,0)"
^XMB(3.9,22,2,11954,0)="M=[>)3V\]1C>W?QI>M#_G!=ZD/C5<=@F$]3A4Y6W?BX!V4VJU/F*MD'^X%3]A"
^XMB(3.9,22,2,11955,0)="""DATA"",396.18,468,3,1158,0)"
^XMB(3.9,22,2,11956,0)="MJ6,8[O5+@4_Z""?6YZ.4NQ^F9^C)<8KRHO:=!R+ZK^""3Q&U6M]@O)U/BZ,D""."
^XMB(3.9,22,2,11957,0)="""DATA"",396.18,468,3,1159,0)"
^XMB(3.9,22,2,11958,0)="M!N2_XV3R/RLOJM6_Y/TOH,,""[K]K))0J?85Z.<I^BQNIUQOKEX1I9\%&^EL4"
^XMB(3.9,22,2,11959,0)="""DATA"",396.18,468,3,1160,0)"
^XMB(3.9,22,2,11960,0)="M^XI<59X#7C$1]R,(:?^R>5%[G2Z(_1C#VE!?MR7NE.B15#Y1;R:QK=J$=8/U"
^XMB(3.9,22,2,11961,0)="""DATA"",396.18,468,3,1161,0)"
^XMB(3.9,22,2,11962,0)="M_PTY_MF/X#+MOLA_;2,>Q8N*CAU(Z6^ERE'=[F>O8$N/#.E\5YDK2YUM.GZ."
^XMB(3.9,22,2,11963,0)="""DATA"",396.18,468,3,1162,0)"
^XMB(3.9,22,2,11964,0)="M)3M,TH=%O%9S1CEVB?&BKH[=_GVG]GVM=5VFLE*\6M3,SD*\JUQ('(B3E6?X"
^XMB(3.9,22,2,11965,0)="""DATA"",396.18,468,3,1163,0)"
^XMB(3.9,22,2,11966,0)="M!#:WOZ_K-ITB3ZG\M/.0`@.BKC!]S=K_2.M_T;1JQ^!03HKVP3'GTQ`YSKKD"
^XMB(3.9,22,2,11967,0)="""DATA"",396.18,468,3,1164,0)"
^XMB(3.9,22,2,11968,0)="M\&IT+X(7=<U`9VLF]&5(:E+A7K-<!NJ4`J9=_15=K(#Q7#2T?@[Y/B%^AZRL"
^XMB(3.9,22,2,11969,0)="""DATA"",396.18,468,3,1165,0)"
^XMB(3.9,22,2,11970,0)="MI]I-%CEJ9T21P8LB*Y/BJW+46OL=H\?9]^?$BY:-:[_L.1]V3R1Y'[;E<?BT"
^XMB(3.9,22,2,11971,0)="""DATA"",396.18,468,3,1166,0)"
^XMB(3.9,22,2,11972,0)="M35?%97O?6\[1`XI(#""F3'AS!'4*[OXO2-INGT^RFD7GTQ_""0:-0H&G<?\^C]"
^XMB(3.9,22,2,11973,0)="""DATA"",396.18,468,3,1167,0)"
^XMB(3.9,22,2,11974,0)="M""'7+'YII,=0GB9_W4GS=8""P`S=R@VH'H-DYB20U>BQ_RD-$TGX^WFV(>_>7Q"
^XMB(3.9,22,2,11975,0)="""DATA"",396.18,468,3,1168,0)"
^XMB(3.9,22,2,11976,0)="MHGX<ALG2TH)/>QU%-3-IV)ZG#+W$\S,-EG83)3U[7/7'$LA=&F<WQ7C1R^5%"
^XMB(3.9,22,2,11977,0)="""DATA"",396.18,468,3,1169,0)"
^XMB(3.9,22,2,11978,0)="M79+,'IGGR+.SX-05YT1]JZ'X`1R:54UJ1W23H:]""A$Q6IF//^1@O>JF\Z+1X"
^XMB(3.9,22,2,11979,0)="""DATA"",396.18,468,3,1170,0)"
^XMB(3.9,22,2,11980,0)="M).J=,?&I<U>*?$9A9[`IR06_ZNP^IHY0NS`:XT6?*R_JLO!=IS'%ISW/SLQ?"
^XMB(3.9,22,2,11981,0)="""DATA"",396.18,468,3,1171,0)"
^XMB(3.9,22,2,11982,0)="M2H+JBP[U4PCB_?7GHA;65,RC?\Z\J""N>:,#N)CC5/:`Z/D%ZRI(US.Z6GP`["
^XMB(3.9,22,2,11983,0)="""DATA"",396.18,468,3,1172,0)"
^XMB(3.9,22,2,11984,0)="M/L/&F:<NC,;ZHI?+BP;IF8.2%.))`(]V?)H\_W""U$UMDOR&?1_L^J:7/QTDG"
^XMB(3.9,22,2,11985,0)="""DATA"",396.18,468,3,1173,0)"
^XMB(3.9,22,2,11986,0)="MVDNO2ZX^+2\:&,\V5-^F4?A5[)>CR:B^2ZX,E&%\^N\++/YY+6NHL;[H\^)%"
^XMB(3.9,22,2,11987,0)="""DATA"",396.18,468,3,1174,0)"
^XMB(3.9,22,2,11988,0)="M79'O'KN;1N8I>1QV?([/@]:S/46<U/3^.V5*K*C(BUX\+QHL?RI?S`?M+J9&"
^XMB(3.9,22,2,11989,0)="""DATA"",396.18,468,3,1175,0)"
^XMB(3.9,22,2,11990,0)="M28GZHN:IWN)0>UZ>#ZW""1[]`]QBC+?CP/)]3#37RHI?+BP[G$(7T3:8XI3U"""
^XMB(3.9,22,2,11991,0)="""DATA"",396.18,468,3,1176,0)"
^XMB(3.9,22,2,11992,0)="M!GC12?%^+>ZCI7!X/<8@7JLNZ\B+/D=>5$C0L/IC-#-(X,_TPJMU[$\7YWG2"
^XMB(3.9,22,2,11993,0)="""DATA"",396.18,468,3,1177,0)"
^XMB(3.9,22,2,11994,0)="M>-'(BUX0+ZIFI0WE<?C/58I0R,E4Q[%%BT#6T/`I?2X<.F5I'L_W2^5%AZ.7"
^XMB(3.9,22,2,11995,0)="""DATA"",396.18,468,3,1178,0)"
^XMB(3.9,22,2,11996,0)="MBUK/G7/M.XT;Y5X?$]=4&Q`6V&/C4&5HRSG4(VM+R`^(Y_MSYD6'>'PUHD3T"
^XMB(3.9,22,2,11997,0)="""DATA"",396.18,468,3,1179,0)"
^XMB(3.9,22,2,11998,0)="M\[+7KR,HS=QQ4(\I5QGWUD+U@%A?]/)X46=]6L=)[\>4W`>!2E+>XQ#Z._`,"
^XMB(3.9,22,2,11999,0)="""DATA"",396.18,468,3,1180,0)"
^XMB(3.9,22,2,12000,0)="M?-JS&>PO%S?Z>')5PF>L+WK1O&B(W0(X""^V71/A1XJ^D_6&E/T>JUP)""1=[-"
^XMB(3.9,22,2,12001,0)="""DATA"",396.18,468,3,1181,0)"
^XMB(3.9,22,2,12002,0)="M^%IAI\$SK]5/*S?'^J*7RXN.RT?3?>4^?*KU'.C)+C/YH-^&,9OGEJO4<HR\"
^XMB(3.9,22,2,12003,0)="""DATA"",396.18,468,3,1182,0)"
^XMB(3.9,22,2,12004,0)="MZ*7GT0=5I<4!_4&8Q4YQ*NPE-1O?Q.?3V$TTTQ_D:.1%GS4OJN6M^[%,.\&S"
^XMB(3.9,22,2,12005,0)="""DATA"",396.18,468,3,1183,0)"
^XMB(3.9,22,2,12006,0)="MFJ6%CP>8$@<2>='7Q8NJEGC0O@?(6N'WY/@$""\FH)=X>%P=R>CS'>-'+Y45E"
^XMB(3.9,22,2,12007,0)="""DATA"",396.18,468,3,1184,0)"
^XMB(3.9,22,2,12008,0)="M""1B*SX!][[E/,X=.V/-/QXO&>-&7R(N&1\S+^!1VDSN""ZFG/]Q@O>JF\J&._"
^XMB(3.9,22,2,12009,0)="""DATA"",396.18,468,3,1185,0)"
^XMB(3.9,22,2,12010,0)="M\+1SWF=_Z;V7?+S]4\G5&""]ZN;QH\#^I+^>P%.4Z@[6^(KZ4\SV)\:(7SXO:"
^XMB(3.9,22,2,12011,0)="""DATA"",396.18,468,3,1186,0)"
^XMB(3.9,22,2,12012,0)="M=%%7?1+*(@UU`A?Y\=(XE?[7ZB;\G'\L/$=>]+G4%Z45XEW2L6R&]MV2""X=T"
^XMB(3.9,22,2,12013,0)="""DATA"",396.18,468,3,1187,0)"
^XMB(3.9,22,2,12014,0)="M:\F,/WUJN1IYT>?%BW+O.JUE-XK/K`PMTYI7XO/21UXT\J)V?#KL)JRS4<0C"
^XMB(3.9,22,2,12015,0)="""DATA"",396.18,468,3,1188,0)"
^XMB(3.9,22,2,12016,0)="M@]4N`@29I&*HL-]5;Q+Y#*FB3RHS99=SOD=>]'GGT;MR-*1\S[ZV+==2:151"
^XMB(3.9,22,2,12017,0)="""DATA"",396.18,468,3,1189,0)"
^XMB(3.9,22,2,12018,0)="M57<@GE#\]#B,O.@KX$4#8H4!C\*BE_N,C.W8%7G1R(N>9]^A^P;X5+E.""QG,"
^XMB(3.9,22,2,12019,0)="""DATA"",396.18,468,3,1190,0)"
^XMB(3.9,22,2,12020,0)="MH?B,O&CD12?SHB/V7:WCR#OD7=[Y'GG1R^9%:6\L\TO8._H7[?MA_Y3Z+GT<"
^XMB(3.9,22,2,12021,0)="""DATA"",396.18,468,3,1191,0)"
^XMB(3.9,22,2,12022,0)="MD*'L]7G_OA1>&QK--Y]Q7T/CB&YG\7R_)%[TC..P>/NPG8]V2N1%'W><A-;^"
^XMB(3.9,22,2,12023,0)="""DATA"",396.18,468,3,1192,0)"
^XMB(3.9,22,2,12024,0)="M)CUL^G]*_\K&Z+(Z>3[NSEC(WU$CXO""R>=$SC:/T%P8):I.BUFXP0_.Q==QP"
^XMB(3.9,22,2,12025,0)="""DATA"",396.18,468,3,1193,0)"
^XMB(3.9,22,2,12026,0)="M]1J6.L]$'#YO7O0DXR#:&9!V(13]V%J$2B(ML>CQ2O')^@@BW,I]WU@'5M;Q"
^XMB(3.9,22,2,12027,0)="""DATA"",396.18,468,3,1194,0)"
^XMB(3.9,22,2,12028,0)="M3?1R9>_OODNJOK-K*_7FPG+_.#YRCUU'A[>(P^?`BYYD'-%]5>I(V/?!Q%I_"
^XMB(3.9,22,2,12029,0)="""DATA"",396.18,468,3,1195,0)"
^XMB(3.9,22,2,12030,0)="M*R1P:O1RE3H+\TZ;M#,F?""+'2A],C+5>F12U6L>NMFUMG88C#I\'+WJ2<7C/"
^XMB(3.9,22,2,12031,0)="""DATA"",396.18,468,3,1196,0)"
^XMB(3.9,22,2,12032,0)="MU%;K3]UWP&ZXE,6B5[`=GUP6FWV*""7K[3[""QF:R4\<F?""/J7Y7Y;_H[8$8>7"
^XMB(3.9,22,2,12033,0)="""DATA"",396.18,468,3,1197,0)"
^XMB(3.9,22,2,12034,0)="MS(N>B)>HR&DN)""J3J_`3Z>Z*>QPR)`H\<_SQLY^_F_9RY=H#2<#'$@89>L5\"
^XMB(3.9,22,2,12035,0)="""DATA"",396.18,468,3,1198,0)"
^XMB(3.9,22,2,12036,0)="MA.3D[Z$]X8<ZMD<<7C(O>K)Q>E2*;I>`#TL_5B8O93L<F]W<>,=UO5^;W$D3"
^XMB(3.9,22,2,12037,0)="""DATA"",396.18,468,3,1199,0)"
^XMB(3.9,22,2,12038,0)="M2?92*U""+L2RCI2ZS$8>1%^V[3TL\D^B$B:QVBR3A]/D$<5*(=FMM6`=NN<]L"
^XMB(3.9,22,2,12039,0)="""DATA"",396.18,468,3,1200,0)"
^XMB(3.9,22,2,12040,0)="MTXJ>W%-.^8CG%\B+(C^'I/0I;BW\D2:7)_&BR/)L1%XT\J+(.<ZX?JS3YX-\"
^XMB(3.9,22,2,12041,0)="""DATA"",396.18,468,3,1201,0)"
^XMB(3.9,22,2,12042,0)="M6(PXC+RHK$4ZL&*3L,B)YU/>%XHXC+RHAD$3C<AB-PVA""!UU7RA8SD<<!O*B"
^XMB(3.9,22,2,12043,0)="""DATA"",396.18,468,3,1202,0)"
^XMB(3.9,22,2,12044,0)="M_Q^\N-S<PF7[X3^7-X=9>WW]Z__^U]WVX;[9_E[DW\]^Y3_0`7Y<?CS,_GF6"
^XMB(3.9,22,2,12045,0)="""DATA"",396.18,468,3,1203,0)"
^XMB(3.9,22,2,12046,0)="M,KOYU^U]]Q-B7I;?5K>'S]W/><'""B?^Z7'WZ3-Y?L0]<+>X/J^VF>^G-N\7F"
^XMB(3.9,22,2,12047,0)="""DATA"",396.18,468,3,1204,0)"
^XMB(3.9,22,2,12048,0)="MTW*V_3C[:0LO?3_[Z==?9O^V76T.^]D?5YO9[?+3;KG<_^D-^U.+#S_O;I<["
^XMB(3.9,22,2,12049,0)="""DATA"",396.18,468,3,1205,0)"
^XMB(3.9,22,2,12050,0)="M&(V^(D_YQ\6'Y3JKRF[""Y%M^NWR^O7[#9MS;_7S.1?\.,>F<OR3-.MT?8*)L"
^XMB(3.9,22,2,12051,0)="""DATA"",396.18,468,3,1206,0)"
^XMB(3.9,22,2,12052,0)="M4FSQK'-!@7.I$V,N1=A<LLUMX%QPX%Q2\7?ZS:S"")I.'SJ4*G4N.C(5)P^92"
^XMB(3.9,22,2,12053,0)="""DATA"",396.18,468,3,1207,0)"
^XMB(3.9,22,2,12054,0)="M=.\.FTP=.AF43)U,&3J9.G%.)E-GDU7Z9,I`R+S=[O:KC^OE[]W/`3-*'3/*"
^XMB(3.9,22,2,12055,0)="""DATA"",396.18,468,3,1208,0)"
^XMB(3.9,22,2,12056,0)="MLF1H1J@.F]$OZ\7FL-C-VM!)585SF=#04Y[G89-*9H?MK$H""5BASK5"">G70R"
^XMB(3.9,22,2,12057,0)="""DATA"",396.18,468,3,1209,0)"
^XMB(3.9,22,2,12058,0)="M61DPF3QT94R9,VHR1<C*%*$K<^1D\I#)E*$K8Y.`)Y\-""EV:8V>3A<P&!Z^-"
^XMB(3.9,22,2,12059,0)="""DATA"",396.18,468,3,1210,0)"
^XMB(3.9,22,2,12060,0)="M*9%//YLJ>&V.G$T:,ILZ>&U0<N[9Y$D2O#;GGXWK:*BUA2DR?288A\WDCW^_"
^XMB(3.9,22,2,12061,0)="""DATA"",396.18,468,3,1211,0)"
^XMB(3.9,22,2,12062,0)="M_[K8W<[NB'[XI\$9E<[E$<.[YE0''N9_?+O]NG'/RJ),-P^'PW:3IG!0T.\5"
^XMB(3.9,22,2,12063,0)="""DATA"",396.18,468,3,1212,0)"
^XMB(3.9,22,2,12064,0)="M33I/4EF5SG&AZM*XU%3IK#0TZ:OU=K\TU60&@9\W5^O5S3^Z%WZG?_]?EYOE"
^XMB(3.9,22,2,12065,0)="""DATA"",396.18,468,3,1213,0)"
^XMB(3.9,22,2,12066,0)="M;G5#7NTG3?XCS_N7Q:9;4MAE\AV\D4V9;!_#&9E,/U>JN/93+:B9\-=.I2<G"
^XMB(3.9,22,2,12067,0)="""DATA"",396.18,468,3,1214,0)"
^XMB(3.9,22,2,12068,0)="M_<^__)VJ0<WRRW+]PV9#IOGAR[O%:K\D""]=L8>[O#]_62_C-_OUJ\VF]A-]<"
^XMB(3.9,22,2,12069,0)="""DATA"",396.18,468,3,1215,0)"
^XMB(3.9,22,2,12070,0)="M;==;>/?-^OUJ_66Y@]?:[>;PEZO/B]U^""7_@[74[__N/O_[OJ[_.W[V__E6\"
^XMB(3.9,22,2,12071,0)="""DATA"",396.18,468,3,1216,0)"
^XMB(3.9,22,2,12072,0)="MH_]HLU[06R:O]_/\<YKV+_YM<0=_^LU/[V?O%YO]['VW5!_?]+_F4_M__P->"
^XMB(3.9,22,2,12073,0)="""DATA"",396.18,468,3,1217,0)"
^XMB(3.9,22,2,12074,0)="M^F6Q6VX.\(ONI7:QWI.I2EN`=3301T<_CCA.*R1C@>N@?'G3,M7-*F1@H5TN"
^XMB(3.9,22,2,12075,0)="""DATA"",396.18,468,3,1218,0)"
^XMB(3.9,22,2,12076,0)="M#]]WRM2B^X/;[6'VQW?P7@[3X15SKYFY:KGTLGO=])7[N&^VZ]O_H+^RKZ#E"
^XMB(3.9,22,2,12077,0)="""DATA"",396.18,468,3,1219,0)"
^XMB(3.9,22,2,12078,0)="M,6(+AZP+5Z25LG!(>XC2'.LKEYOV*/G57Y?+]>S?%^M/#YT5^I:9H-^_\<\*"
^XMB(3.9,22,2,12079,0)="""DATA"",396.18,468,3,1220,0)"
^XMB(3.9,22,2,12080,0)="MA\Q*GU2&]4EEQG9R""?3F[7)_LUM]6,X6FV^S+XM=-[MN?[[0>7:&]$.WX?""1"
^XMB(3.9,22,2,12081,0)="""DATA"",396.18,468,3,1221,0)"
^XMB(3.9,22,2,12082,0)="MSIP^?.ZLZOWL9K&^6>UGG2&]6ZX7;V;_HQ\+WKC_O+H'00]O7F\WGV:+W[LW"
^XMB(3.9,22,2,12083,0)="""DATA"",396.18,468,3,1222,0)"
^XMB(3.9,22,2,12084,0)="MLT\?5A]6BV[4V]G'U8=N9+:-OW4/YV^[!=S+K[L'_T:E9<B29-RP$1!/AC?J"
^XMB(3.9,22,2,12085,0)="""DATA"",396.18,468,3,1223,0)"
^XMB(3.9,22,2,12086,0)="MQ^U-?[-?Z?L^+!>[3E3,UJO-\E_\FY4&02C+-4X#9\,3ZS=IVZWB[GNV;->;"
^XMB(3.9,22,2,12087,0)="""DATA"",396.18,468,3,1224,0)"
^XMB(3.9,22,2,12088,0)="MQ8?U\G8`W^R82!S'1%GGRC%1I2<[)OB-A)T3=J:(G!-6IDA;UUJ;=Y[J5!%."
^XMB(3.9,22,2,12089,0)="""DATA"",396.18,468,3,1225,0)"
^XMB(3.9,22,2,12090,0)="MC!DB\\#_:7FW31,P,>`[[;S'FC)DZD*)>=R7XB5V7J6H3-,W/7$6(#I]PM,4"
^XMB(3.9,22,2,12091,0)="""DATA"",396.18,468,3,1226,0)"
^XMB(3.9,22,2,12092,0)="MGYGR""RY`K[8/NU5WVW];?E7_MGKTD-OMT+[O7@?H[[O?_)'_HGO(W_R)_V`7"
^XMB(3.9,22,2,12093,0)="""DATA"",396.18,468,3,1227,0)"
^XMB(3.9,22,2,12094,0)="ML?#O_<UNNUXWW2UUO]GO_WVY.ZPZL=&OGJ%*N+6<'@A9(!`Z^W`(""55F0'A^"
^XMB(3.9,22,2,12095,0)="""DATA"",396.18,468,3,1228,0)"
^XMB(3.9,22,2,12096,0)="M>[N""[Q?K3B&XN^ON:V\!=.K""2Q:&%Q2$E]J&ERSB91Q>G!0S9YB8P-/E1E7I"
^XMB(3.9,22,2,12097,0)="""DATA"",396.18,468,3,1229,0)"
^XMB(3.9,22,2,12098,0)="M\K@T!?+\YO-JO5[N9_/UZM,&X.+4DN7)7?WRVT_O%K>K+9E86@!LU-<T`&GF"
^XMB(3.9,22,2,12099,0)="""DATA"",396.18,468,3,1230,0)"
^XMB(3.9,22,2,12100,0)="M15H:`,*E`:#<)G""2JM_$]Y^W7ZD^K._#OSWL#ZN/WWXX+._VTF$,_^""U7Q:W"
^XMB(3.9,22,2,12101,0)="""DATA"",396.18,468,3,1231,0)"
^XMB(3.9,22,2,12102,0)="M""HJE!?E;=U&/S'_I_UZ'PH>[S5Z^'?(7'(#YVW9WMUB_D5[Y@1I&S?9K]W;Y"
^XMB(3.9,22,2,12103,0)="""DATA"",396.18,468,3,1232,0)"
^XMB(3.9,22,2,12104,0)="M%S\M=O_H#L""WJ_U]A^\EV8<_#:+&OR?YR#TI\.0]Z8WA\^S);Q>['^F(_2A&"
^XMB(3.9,22,2,12105,0)="""DATA"",396.18,468,3,1233,0)"
^XMB(3.9,22,2,12106,0)="M[D=E',HI,GD!P6O(SP@^ZWY<;7>[[C9!:9M]7753NUML5O=,P?9NCT73&]JU"
^XMB(3.9,22,2,12107,0)="""DATA"",396.18,468,3,1234,0)"
^XMB(3.9,22,2,12108,0)="M_[7<RSO3R=[#2MW%OVVM>Y.-V)MRK/Q*""WUSLBP-W)SZK)OSRZ(S:+K#<G^_"
^XMB(3.9,22,2,12109,0)="""DATA"",396.18,468,3,1235,0)"
^XMB(3.9,22,2,12110,0)="MV-_-NM>&-J<X8G,Z:;E4=V>UD7]^#Y.07V@ZQ=^Z6WGP>5B$G8=I56N6$^?="
^XMB(3.9,22,2,12111,0)="""DATA"",396.18,468,3,1236,0)"
^XMB(3.9,22,2,12112,0)="MQ(&8FOI3N]TM/P(MX#D0TV%`H2%`U1J@BJ""'W2I\T5GQ],,>+-[=<O:1KTPG"
^XMB(3.9,22,2,12113,0)="""DATA"",396.18,468,3,1237,0)"
^XMB(3.9,22,2,12114,0)="M1!=\<6R`RB8\UHYG>,QYAT<NN7G>A2\Y/O>2KPZS&TG*?O@V^!AGIY.QCLT8"
^XMB(3.9,22,2,12115,0)="""DATA"",396.18,468,3,1238,0)"
^XMB(3.9,22,2,12116,0)="M<]A5(S<#'[$9U;DW0U[ZV7TGXCX^K)]F""[)@*5DZI626^L4D?\$K)G]:W0Y)"
^XMB(3.9,22,2,12117,0)="""DATA"",396.18,468,3,1239,0)"
^XMB(3.9,22,2,12118,0)="MR6P0)<0=X46)YK0I\LDHR9+XR/HW(QVY&=AR9-6!FY&^UD?6MP4E&KD#QR@-"
^XMB(3.9,22,2,12119,0)="""DATA"",396.18,468,3,1240,0)"
^XMB(3.9,22,2,12120,0)="M]>,H#7=,3CR9SN""3D2B064GR04TR,<GD7W;;#<&?*1ISE\?8Z=M/-9]Q:1B'"
^XMB(3.9,22,2,12121,0)="""DATA"",396.18,468,3,1241,0)"
^XMB(3.9,22,2,12122,0)="M=1GFGYW?;1\Z&&P_SNZU""3H>@B#AD8W5=\OIDCQ['.CVR_.4.N[V[L.60Y7_"
^XMB(3.9,22,2,12123,0)="""DATA"",396.18,468,3,1242,0)"
^XMB(3.9,22,2,12124,0)="M,``-,XRJLV^-I<VL2YN_""9""'%GR91XY_97Y:K6\5OF7;?7AQ6)H<#%^R@,<9"
^XMB(3.9,22,2,12125,0)="""DATA"",396.18,468,3,1243,0)"
^XMB(3.9,22,2,12126,0)="M!ZH\EN<Y=3W/THT5SH?6%0*C8=X(`$Q+,W(T<V!RL9DM=C>?.U0N]TMX?C>S"
^XMB(3.9,22,2,12127,0)="""DATA"",396.18,468,3,1244,0)"
^XMB(3.9,22,2,12128,0)="MC8>JM'@B`Y_D?.0AE)N'4)4&'D+%&9[D)S9#RV+D^ED>URKT$""_/+0DMJ!LF"
^XMB(3.9,22,2,12129,0)="""DATA"",396.18,468,3,1245,0)"
^XMB(3.9,22,2,12130,0)="MQ[-SZ:\>IW!N=PH7J#S:*3Q?KV<*=2S/+YON&;Z^71V(T@W?>(,UN'&L!PX;"
^XMB(3.9,22,2,12131,0)="""DATA"",396.18,468,3,1246,0)"
^XMB(3.9,22,2,12132,0)="MPES&1F[.%CMFHD$8N9@4/KVD]CF>TE)?5$Z#\NEE:5YQZ+J`ZX2M""5KKX4U8"
^XMB(3.9,22,2,12133,0)="""DATA"",396.18,468,3,1247,0)"
^XMB(3.9,22,2,12134,0)="M4#OY:2#5B5,%I1)&I34M@]:TK/Q+6I9J7!/23RAL;'FMK6F>)-E9UI2%^@38"
^XMB(3.9,22,2,12135,0)="""DATA"",396.18,468,3,1248,0)"
^XMB(3.9,22,2,12136,0)="MMB==V,JUL$P+PH9&Y'""C\UL2^""P&'A]82_[X6!4>:9KUT)W^_*5[WZ?=<G&8"
^XMB(3.9,22,2,12137,0)="""DATA"",396.18,468,3,1249,0)"
^XMB(3.9,22,2,12138,0)="M';9""P7GST_)VM5A#A)'EES\#BNFB6)8`'/1$<@A/O>/>R\%@DC[N2[KWPAV7"
^XMB(3.9,22,2,12139,0)="""DATA"",396.18,468,3,1250,0)"
^XMB(3.9,22,2,12140,0)="M<^H`N<P2(&?ZZZW>>J>OOO?4N_ST7B^]+-V3@>!/XC<:$?R)M.#/\I4'?U:."
^XMB(3.9,22,2,12141,0)="""DATA"",396.18,468,3,1251,0)"
^XMB(3.9,22,2,12142,0)="M:,'$'OQ9I][@SR*9$/P)8[^8V,\T*/:SU!<N""XC])&-90S\'(C\SQYS4_,CD"
^XMB(3.9,22,2,12143,0)="""DATA"",396.18,468,3,1252,0)"
^XMB(3.9,22,2,12144,0)="M-45^.H)AA_R7CQ#Y687,+,OP4T1^UJ[`3U1?<N!G7KCC_91GH-)6-4_T`""XT"
^XMB(3.9,22,2,12145,0)="""DATA"",396.18,468,3,1253,0)"
^XMB(3.9,22,2,12146,0)="M(O`SL0?RU4.!GUEM9L$4EC""&HBYB(%\0W0SF79Z$V'FZUH_S03NOJ%&XG==#"
^XMB(3.9,22,2,12147,0)="""DATA"",396.18,468,3,1254,0)"
^XMB(3.9,22,2,12148,0)="MLG1#4GF6LBH;PB0/4CU=""&IJ1VXUY/NP(1>G-N26$;FC'""4YFAJ""6CY:""&I6"
^XMB(3.9,22,2,12149,0)="""DATA"",396.18,468,3,1255,0)"
^XMB(3.9,22,2,12150,0)="MCPWAPB:`PGC+HDYC""&H(%YHG8T-0:W-/DL`]R6,(ZN!^I&-#4%/32U<&[D<2"
^XMB(3.9,22,2,12151,0)="""DATA"",396.18,468,3,1256,0)"
^XMB(3.9,22,2,12152,0)="M0U#'A*#FHT/H4V-SI""S>@<W)8@CJ$2&H13TY<""`]5^""`J[""%7H;DP@('\L%C"
^XMB(3.9,22,2,12153,0)="""DATA"",396.18,468,3,1257,0)"
^XMB(3.9,22,2,12154,0)="M.\U/%CF0E*\P<J!T1PZ(&`#&PI23(P<2]`PC![CS,'4Y#^N+=1[V00^)4Q2E"
^XMB(3.9,22,2,12155,0)="""DATA"",396.18,468,3,1258,0)"
^XMB(3.9,22,2,12156,0)="MY5F#'HK`NE#/(NJA2$X0]8""""\C^*&K^\J(=B;/`HJJ:O7W5940^&W^6T&T(M"
^XMB(3.9,22,2,12157,0)="""DATA"",396.18,468,3,1259,0)"
^XMB(3.9,22,2,12158,0)="M??YWE)L<$RC1ZRYX<OI,^FCI,WD^6BM`4[6""HJYC_@RL>3EVS8_(V4AB`+AU"
^XMB(3.9,22,2,12159,0)="""DATA"",396.18,468,3,1260,0)"
^XMB(3.9,22,2,12160,0)="M#XJQ>W!$$E,2,R*\@K(*U*PF2LJ39-#D@RD#9IG.Z8#)7DG.@'_)J[%+?HR<"
^XMB(3.9,22,2,12161,0)="""DATA"",396.18,468,3,1261,0)"
^XMB(3.9,22,2,12162,0)="M+**<M.T!'KL'Q\C)_(+D9*BR>=I=.I$.JL>95D-QIFHPFU9O*LMU]VB>FG&F"
^XMB(3.9,22,2,12163,0)="""DATA"",396.18,468,3,1262,0)"
^XMB(3.9,22,2,12164,0)="MQ:N*,T7)0)QIH<:9ZO&!?>B^6--26].L[A7F5Q%GFB;.0%,M+,9@6(R`'5N@"
^XMB(3.9,22,2,12165,0)="""DATA"",396.18,468,3,1263,0)"
^XMB(3.9,22,2,12166,0)="M:7+A@:8HMP:::O=>Z*[?1`\T[:/SI'M/8Z!I8*!I90DT3>D><'Y/#C4M*!4I"
^XMB(3.9,22,2,12167,0)="""DATA"",396.18,468,3,1264,0)"
^XMB(3.9,22,2,12168,0)="M2<9\9*CI\PPHK:UQ;5E1V^/:E(J!J5YN+3R>]&J[^;3<K`[=8];=^5M8T^T]"
^XMB(3.9,22,2,12169,0)="""DATA"",396.18,468,3,1265,0)"
^XMB(3.9,22,2,12170,0)="MJ*W=""R3,].UJ3^3DRP@TS4I[H&F6*?%LB;Z>PU&""U[_?KX7_+BPZD$TI#YA2"
^XMB(3.9,22,2,12171,0)="""DATA"",396.18,468,3,1266,0)"
^XMB(3.9,22,2,12172,0)="MSS&>>TXL8A';'0LI5@*9,^YW<3H6\CPT8K&8[E+0`VH&LH`T([C,]=B?=$`["
^XMB(3.9,22,2,12173,0)="""DATA"",396.18,468,3,1267,0)"
^XMB(3.9,22,2,12174,0)="M2U%1Y.?0)'KQW&MIBTZKV-""@M-G^X;Y;B;O[;OEN07.#H-Z;_OG]IUOIX94#"
^XMB(3.9,22,2,12175,0)="""DATA"",396.18,468,3,1268,0)"
^XMB(3.9,22,2,12176,0)="M@]=BB+.H(5G@KE1C=J700TJ-*K^]#BUM2OE(F[*9K;H59?'*A\^@FM""]8#OU"
^XMB(3.9,22,2,12177,0)="""DATA"",396.18,468,3,1269,0)"
^XMB(3.9,22,2,12178,0)="M=;&??=UV,G+3[52G""NZ7NR^K&WE3EF?9BL2C#9$$?4,;4J6,4;,W-[*WRL1<"
^XMB(3.9,22,2,12179,0)="""DATA"",396.18,468,3,1270,0)"
^XMB(3.9,22,2,12180,0)="M]IAU(\4XN):_'EY^HVQJT.JCN/K""B/=HHK5%$<WI!LAQE4(1K=2<)YH[^HIS"
^XMB(3.9,22,2,12181,0)="""DATA"",396.18,468,3,1271,0)"
^XMB(3.9,22,2,12182,0)="MGJBN;SK4[:D7J5:MR;#7<:B.2HNW$VWT_;>[^\/V;O_LM5%.S[M]FJJB5>LZ"
^XMB(3.9,22,2,12183,0)="""DATA"",396.18,468,3,1272,0)"
^XMB(3.9,22,2,12184,0)="M2F8<A]5C/?'#:_(?_B?:'QY-M>+464Y&*QJ2FUUT0L/""#K-WR_UAN%.,L_62"
^XMB(3.9,22,2,12185,0)="""DATA"",396.18,468,3,1273,0)"
^XMB(3.9,22,2,12186,0)="M:.;&ST]C+H&=LGY;K/\APFC=<RF<P2MZ2)39!2\+F\K[PZ+38T+FXNR""5V@I"
^XMB(3.9,22,2,12187,0)="""DATA"",396.18,468,3,1274,0)"
^XMB(3.9,22,2,12188,0)="M#[F9K!,VE__CF\3[SXO[)02?DF^,]=`J?V=F!39S#O7@/6-GUS0]SL;D[;/`"
^XMB(3.9,22,2,12189,0)="""DATA"",396.18,468,3,1275,0)"
^XMB(3.9,22,2,12190,0)="M1C1]QMG^?GFS^KBZF:U9<MR;<$\#&HY$T#O/(7.)$C/B26HVU&LA*#VON^?'"
^XMB(3.9,22,2,12191,0)="""DATA"",396.18,468,3,1276,0)"
^XMB(3.9,22,2,12192,0)="M3D!!_&9WXP^[Q>9FZ77T/%9NC$T0.K-CCG)@V-)E9,4S]^'B\_+F'T`'$T""P"
^XMB(3.9,22,2,12193,0)="""DATA"",396.18,468,3,1277,0)"
^XMB(3.9,22,2,12194,0)="M'PPH9(,EG""V=G;""!A+RLTJ%X2C,)T#_OVC/O(C_9O+,1\\8!\\Y*S[Q%P.K1"
^XMB(3.9,22,2,12195,0)="""DATA"",396.18,468,3,1278,0)"
^XMB(3.9,22,2,12196,0)="M\TY&S+L*EQ_U6/&1)GE`@+9%>N1E,2&\V?`.>L3'7Y>+0Y08IBX_@&`:HQ$H"
^XMB(3.9,22,2,12197,0)="""DATA"",396.18,468,3,1279,0)"
^XMB(3.9,22,2,12198,0)="M,=(TFPKAHAH!X30-F7DY0F8<,_-ZS,S#XP2R9/33ET]^^LKZO$_?N^5M9_OO"
^XMB(3.9,22,2,12199,0)="""DATA"",396.18,468,3,1280,0)"
^XMB(3.9,22,2,12200,0)="MXP.H@*$,@7$UY@$LBJDP1F/.OC3DT,[''-K'S#P?,_.08YM&Z`0>V\?,?(R>"
^XMB(3.9,22,2,12201,0)="""DATA"",396.18,468,3,1281,0)"
^XMB(3.9,22,2,12202,0)="ME/H.;F`5\]R>>YZ9*#$UC1R'I,IT4QY4-5YU5KK7>E2%^7`^JV&<97BB?$?)"
^XMB(3.9,22,2,12203,0)="""DATA"",396.18,468,3,1282,0)"
^XMB(3.9,22,2,12204,0)="MF;6KWY:+?T0!;P0%U@'""AK:?""A3PF=D4.5#8H&2,AI6'Z(8T;R90P!\S\S$:"
^XMB(3.9,22,2,12205,0)="""DATA"",396.18,468,3,1283,0)"
^XMB(3.9,22,2,12206,0)="M5IX.B<DB4$QFICH5*B;1<$;AJQ:3>;@:')!58#3'+J:JP3@_KYA\WWWP8Y23"
^XMB(3.9,22,2,12207,0)="""DATA"",396.18,468,3,1284,0)"
^XMB(3.9,22,2,12208,0)="MAIP,DC;E&$483U;*,!HA;;(02Y0V3PM5A(^8.1XS\RQDYOD81?B(F9=C9IX/"
^XMB(3.9,22,2,12209,0)="""DATA"",396.18,468,3,1285,0)"
^XMB(3.9,22,2,12210,0)="M2?@R5!'&Z61%&!=1PGLD?%:$2_ARM(2ORZD2/C^SA&\7A]6GQ8?5>G7X%H6\"
^XMB(3.9,22,2,12211,0)="""DATA"",396.18,468,3,1286,0)"
^XMB(3.9,22,2,12212,0)="M@H@0MJ,8PW9DR62!DX\2\B%L1X''*,-'S'R4D,=#HA*%BLJZGBPJ\R@JO:(R"
^XMB(3.9,22,2,12213,0)="""DATA"",396.18,468,3,1287,0)"
^XMB(3.9,22,2,12214,0)="MW"",3D#&INZ#KR91P<5Y)"":6.HH0,SN-DDJ5,1PC(<K)'L1PC9484<4/9:-)K"
^XMB(3.9,22,2,12215,0)="""DATA"",396.18,468,3,1288,0)"
^XMB(3.9,22,2,12216,0)="MZEF/4';FLYZD'T4(*X9]""+V.QC!>^=2CLMO_,8=\7H7,?`SC=<S,QSQ^>0C+"
^XMB(3.9,22,2,12217,0)="""DATA"",396.18,468,3,1289,0)"
^XMB(3.9,22,2,12218,0)="M2',K`RVY8V8^QI(KD@'U)$UPH'Z2)U--N6[.43_QZ2=%.KA+52BEBNK)NY26"
^XMB(3.9,22,2,12219,0)="""DATA"",396.18,468,3,1290,0)"
^XMB(3.9,22,2,12220,0)="M<9=\E""H:4O6S4%4_F:[J%\B2[__;Y]5A&??.XS4L0IS2Q1@N[HAX%CQ8LL&Q"
^XMB(3.9,22,2,12221,0)="""DATA"",396.18,468,3,1291,0)"
^XMB(3.9,22,2,12222,0)="MAX&%%D(""%8MZQ,T>H>:.TA!""U/-DA()PQ+S'^/)&E"":IQFKGV(""9I8Z]W=5R"
^XMB(3.9,22,2,12223,0)="""DATA"",396.18,468,3,1292,0)"
^XMB(3.9,22,2,12224,0)="MWD)X[[\NU^NA%G^O3CTOA\Z(-/"",P-5TXKR.Y[CG+`A2YHLQ+""G.IBKSZ<5X"
^XMB(3.9,22,2,12225,0)="""DATA"",396.18,468,3,1293,0)"
^XMB(3.9,22,2,12226,0)="ML4<]06&6:LB9B_(QI.X1""XU?\$(/""IU0&Z^<[JTKH_'@-?$""BTT7]I(0?6`:"
^XMB(3.9,22,2,12227,0)="""DATA"",396.18,468,3,1294,0)"
^XMB(3.9,22,2,12228,0)="M3WO*3]?$:GI)""#;GU%7'X@23]A7('E4?VYZN;*N;D[D:-!K)RC1*_C4G*Z?6"
^XMB(3.9,22,2,12229,0)="""DATA"",396.18,468,3,1295,0)"
^XMB(3.9,22,2,12230,0)="M9.7""D:R<*HGXA=[#%H7F*I/Q7F:J<AZ8JIP.IBH7+RI562_1)%4T2<Z3JGR."
^XMB(3.9,22,2,12231,0)="""DATA"",396.18,468,3,1296,0)"
^XMB(3.9,22,2,12232,0)="M`RL]GT;@SJ8MG5G>67V>S.J7LW29:^G2,R6""OYRE<^;SYWIM@?3(O/67L&8D"
^XMB(3.9,22,2,12233,0)="""DATA"",396.18,468,3,1297,0)"
^XMB(3.9,22,2,12234,0)="MNSYUI=FG9TFS+YUE#NKA=A8G2[-_"";O76[,>8S;7D[_Q1&ZR>,FV;(AWVQ<'"
^XMB(3.9,22,2,12235,0)="""DATA"",396.18,468,3,1298,0)"
^XMB(3.9,22,2,12236,0)="M5N8G6^7RY:[R4*);YF@/G-;:L5=9^MR8@B$K;.L;?<*364K%@3""ZLZD9>U!G"
^XMB(3.9,22,2,12237,0)="""DATA"",396.18,468,3,1299,0)"
^XMB(3.9,22,2,12238,0)="M02Z%0HK</X=+(580F%1!P!?1J^NI:3I9(%Z.6^'T`C&HWD$]XG0_8IVKY`6O"
^XMB(3.9,22,2,12239,0)="""DATA"",396.18,468,3,1300,0)"
^XMB(3.9,22,2,12240,0)="M<TA.3)J,..""/`73U@A=Z*(4G2P./^#3-)Y_Q&,<S?G)4BE;9=^PIGY=33_GJ"
^XMB(3.9,22,2,12241,0)="""DATA"",396.18,468,3,1301,0)"
^XMB(3.9,22,2,12242,0)="MO(U\8J62J95*TG3,25]4DT^@%VSZ!!562;,Q1_T1""_V""W?]!=6#2,2?]$>M<"
^XMB(3.9,22,2,12243,0)="""DATA"",396.18,468,3,1302,0)"
^XMB(3.9,22,2,12244,0)="MO.!U'C3FL]""3WM(%*_2DK_)XTI^F:DV:CSSI+74_0D_Z^KP%16/-FLDU:])B"
^XMB(3.9,22,2,12245,0)="""DATA"",396.18,468,3,1303,0)"
^XMB(3.9,22,2,12246,0)="MQ%&?%5,KO\C=IE]>7%0(>9*6(X[Z8Q;Z!1N;@Q6!LCSP"",J*Z<9F'2/03E01"
^XMB(3.9,22,2,12247,0)="""DATA"",396.18,468,3,1304,0)"
^XMB(3.9,22,2,12248,0)="MJ!QK:YKMVH-MS3,'J<=R0)/+`:5HC+6)Z\F2,7VYDC&H>E&*QUB;1RQT]H(7"
^XMB(3.9,22,2,12249,0)="""DATA"",396.18,468,3,1305,0)"
^XMB(3.9,22,2,12250,0)="M.HA8KL:8FT<L]`MF\`=K0V5%J+F)R^GF9DQQ.5%M*#36VCS"">YR>]:R/A:&."
^XMB(3.9,22,2,12251,0)="""DATA"",396.18,468,3,1306,0)"
^XMB(3.9,22,2,12252,0)="M*@R5C3$X+3ZA4*?;""Z;B@LI89<D8@_.(A7[!)/Y@U:VL##4XDVJZ=S.+A]!I"
^XMB(3.9,22,2,12253,0)="""DATA"",396.18,468,3,1307,0)"
^XMB(3.9,22,2,12254,0)="MJFY5(P^APL@#K%""@O7G>,RB6W)I2<BL;X]<L)]==*+-3E=SB\Q[C)CQBWOFI"
^XMB(3.9,22,2,12255,0)="""DATA"",396.18,468,3,1308,0)"
^XMB(3.9,22,2,12256,0)="M:A'P>><C[*`CYIV>J/8#D>@H4*)/=V*596R]$)[#ZO5A)2,%NJT>EGAIH""O>"
^XMB(3.9,22,2,12257,0)="""DATA"",396.18,468,3,1309,0)"
^XMB(3.9,22,2,12258,0)="M>2G$X1IT$\7GV*)N^0@AF:?3ZXNEIZ[I5HR0DL=,/#MU2;=RA)@\9N+)*2NZ"
^XMB(3.9,22,2,12259,0)="""DATA"",396.18,468,3,1310,0)"
^XMB(3.9,22,2,12260,0)="M93A04.9I.E%2=L_<<^1?SEZJ31.""Z5AJQ5+>(E@()A?4&O0$`C&D%%0VRD=>"
^XMB(3.9,22,2,12261,0)="""DATA"",396.18,468,3,1311,0)"
^XMB(3.9,22,2,12262,0)="ME9-KAXP2+$&5QL8HCL?,?(SF.%A&)`T-),JJ(R1+&G6PJ44(-?E3C)0_.)_*"
^XMB(3.9,22,2,12263,0)="""DATA"",396.18,468,3,1312,0)"
^XMB(3.9,22,2,12264,0)="M[*;YXY<:L];->Q46M[7^W]'5R7K9-,88/R*]\@6'OJ+`8C^YH]A/DJEU<TJM"
^XMB(3.9,22,2,12265,0)="""DATA"",396.18,468,3,1313,0)"
^XMB(3.9,22,2,12266,0)="M;@X:5^SGM!5`TC-7`#FZ'E%6.\H1\62Z(Y;US.6(,DLYHI3&CM))T^J^?9T$"
^XMB(3.9,22,2,12267,0)="""DATA"",396.18,468,3,1314,0)"
^XMB(3.9,22,2,12268,0)="MJAE(A;GPI()$2MV%%U>C*+/6*,JL)8H0DB&2ZB6*BCJT1-'U[XN[3BGH#O2_"
^XMB(3.9,22,2,12269,0)="""DATA"",396.18,468,3,1315,0)"
^XMB(3.9,22,2,12270,0)="M;0_+9U^>B`FLQ/%D)4JAKQ0E`X6^>&3F<'6R9+HTX&64:F=))44>%%IULLS8"
^XMB(3.9,22,2,12271,0)="""DATA"",396.18,468,3,1316,0)"
^XMB(3.9,22,2,12272,0)="M;%YXU116!KI(2(^MM(96<<<L(IRE9LD=0<&*!9,UA,5N1RIJ_'G65]M8+FX^"
^XMB(3.9,22,2,12273,0)="""DATA"",396.18,468,3,1317,0)"
^XMB(3.9,22,2,12274,0)="MSSY""B:S]\G[1_7JY_C9;;&Z_FWW]O-S,%O?WW<K!L?O=;/5F]C^DT3:WJR^K"
^XMB(3.9,22,2,12275,0)="""DATA"",396.18,468,3,1318,0)"
^XMB(3.9,22,2,12276,0)="MVX?%>G;8=DKMK]O9[7*_^K3IAIBMU%]^-WO8+V>?=LO%`7[^;I9M;F?J:.3E"
^XMB(3.9,22,2,12277,0)="""DATA"",396.18,468,3,1319,0)"
^XMB(3.9,22,2,12278,0)="M?'=+?U]TMTB^Z68R*^D/?^G>U2]"")WM^VRWN%?50/D;M8C.UBLU2B$VZ@'R)"
^XMB(3.9,22,2,12279,0)="""DATA"",396.18,468,3,1320,0)"
^XMB(3.9,22,2,12280,0)="M2QJO*M!(!?UKKN.66V4DB0""TU''CM6F5TD>]D$3!==Q^V6T[!-[-WC_<W2UV"
^XMB(3.9,22,2,12281,0)="""DATA"",396.18,468,3,1321,0)"
^XMB(3.9,22,2,12282,0)="MWUZ(E'140\Q29=4R[K$\00G'(X0DL>M59SF?;ZY,5]OE@MOSDC7/Y66OY.>]"
^XMB(3.9,22,2,12283,0)="""DATA"",396.18,468,3,1322,0)"
^XMB(3.9,22,2,12284,0)="MY^K\1>A,:]VJ@#HM]=Y.=ZFH7AM=/Q(\PJI,X)]59%%""1#Z.^N6F$DPZ0.O7"
^XMB(3.9,22,2,12285,0)="""DATA"",396.18,468,3,1323,0)"
^XMB(3.9,22,2,12286,0)="M+K(*J\BBJ^N06X520Q'I]2?34+GU;OEEM?P*?.B[Y4VWKN<I/UD^HN3JURZU"
^XMB(3.9,22,2,12287,0)="""DATA"",396.18,468,3,1324,0)"
^XMB(3.9,22,2,12288,0)="MZ\5\,KR""3*:M7:(++RYW9>&UO;OK9K.?=3_NZ+I]_^:9U*BT+-GU[>I`T`8K"
^XMB(3.9,22,2,12289,0)="""DATA"",396.18,468,3,1325,0)"
^XMB(3.9,22,2,12290,0)="M!C_XI&>N+UAFB,]4E9Y95O5AQ+H/UC>;W#:;/%%4W4R7YF'32<WIE-Z3D#Z,"
^XMB(3.9,22,2,12291,0)="""DATA"",396.18,468,3,1326,0)"
^XMB(3.9,22,2,12292,0)="MCI+&::5@*N,Y)/UY:$RI""CT/\^/.0R&AC4-1>PY2_53D9[ST'.BG8HKZ&*17"
^XMB(3.9,22,2,12293,0)="""DATA"",396.18,468,3,1327,0)"
^XMB(3.9,22,2,12294,0)="M=""IFCO76$H\2_D#9>&MNH_OTDBS5""^%B`\FHC_-PD=5.JMHDJF4TSMI5MZST"
^XMB(3.9,22,2,12295,0)="""DATA"",396.18,468,3,1328,0)"
^XMB(3.9,22,2,12296,0)="M=.""BS<GTOJ'O6][VUL^;OW7FVF[Y7P_+_6%Y._OP;?;O\W<_OY$^H/UJ]N'A"
^XMB(3.9,22,2,12297,0)="""DATA"",396.18,468,3,1329,0)"
^XMB(3.9,22,2,12298,0)="M,-MT'UI\6:S68,WQ[=*5P\""5S_TKGV5'KWW5EX0Y[=K_M+P%W+$#^=+V8$@G"
^XMB(3.9,22,2,12299,0)="""DATA"",396.18,468,3,1330,0)"
^XMB(3.9,22,2,12300,0)="M)!JXH0[2RL:,K92UP5SC_8H,OW9ML+1J-`X]D/-Z_#34#=@\5!'\VW)[OU[L"
^XMB(3.9,22,2,12301,0)="""DATA"",396.18,468,3,1331,0)"
^XMB(3.9,22,2,12302,0)="M[T`5A%=>AAZ8V9>M4,Z^6E>?LVQ8!7R[6GS:;/>K/2S8X>&NN_D_+G]?W!S^"
^XMB(3.9,22,2,12303,0)="""DATA"",396.18,468,3,1332,0)"
^XMB(3.9,22,2,12304,0)="M],8W(5P%3""@M-#Z_=Z1[9P2T5C>9VWYF?[R[^Z=OW;^!*=4A4ZHTG:87H+XI"
^XMB(3.9,22,2,12305,0)="""DATA"",396.18,468,3,1333,0)"
^XMB(3.9,22,2,12306,0)="M_?KM?KDG#-EM-SFZ5$""Q@?(\^^-J<[-^@(+1L_W#[M-R-S#/*@F89U9JY>3["
^XMB(3.9,22,2,12307,0)="""DATA"",396.18,468,3,1334,0)"
^XMB(3.9,22,2,12308,0)="MZ"":A?)F/P#5L')DC3+%[##H9N#ETF@1Y)CHU0)[V[>UWL[N[[V9B91U^/PL%"
^XMB(3.9,22,2,12309,0)="""DATA"",396.18,468,3,1335,0)"
^XMB(3.9,22,2,12310,0)="MZ+JW.K?>6\^@NFZ.Q]3X;NZM?%O2?2C@.,$MI`';D_-V@4ZJR(*B7];+Q7X)"
^XMB(3.9,22,2,12311,0)="""DATA"",396.18,468,3,1336,0)"
^XMB(3.9,22,2,12312,0)="MW""TAA-]X%?7""1>R7JB>R*H<X*QRJH^/I.KJJH6""_SI(KK@D=""UF-M3O@;@#)"
^XMB(3.9,22,2,12313,0)="""DATA"",396.18,468,3,1337,0)"
^XMB(3.9,22,2,12314,0)="M59U59U%9?EOL9X?/2R8'[Q9K(-DW?0%4$<J0#VDQ<L0`Q`OTW_]]\X_-]NMF"
^XMB(3.9,22,2,12315,0)="""DATA"",396.18,468,3,1338,0)"
^XMB(3.9,22,2,12316,0)="MA%9([$B;""5FHGC$TN)""Z!0D+B=\$&P:$F,0V&TR3L>G@3+BW29X)>LW$I&6E"
^XMB(3.9,22,2,12317,0)="""DATA"",396.18,468,3,1339,0)"
^XMB(3.9,22,2,12318,0)="M<^M*J^I^4@RN-#)6.G^%QF[N>;BL;)%V'%?)6'H&(%W[SJ1`""LG*'ND'ZJ3I"
^XMB(3.9,22,2,12319,0)="""DATA"",396.18,468,3,1340,0)"
^XMB(3.9,22,2,12320,0)="MY4G@]$H?3*MA@9!G^1!,2VRN7OGZ8(J&K%*;DP))1FFE>%4I2J3N6*_>*$5V"
^XMB(3.9,22,2,12321,0)="""DATA"",396.18,468,3,1341,0)"
^XMB(3.9,22,2,12322,0)="MKZI=)>_-%:MWHG\&AXW2OV[W]ZM#IT[\-PD*F'6W_YZ:""B_#/$T=.K.JZ.D,"
^XMB(3.9,22,2,12323,0)="""DATA"",396.18,468,3,1342,0)"
^XMB(3.9,22,2,12324,0)="M=Q)@#/*5(\87;U/RO=>^<OA+U,G4FOZ>(1QFF7[?F5??.L.I6YG/9%+?EHO="
^XMB(3.9,22,2,12325,0)="""DATA"",396.18,468,3,1343,0)"
^XMB(3.9,22,2,12326,0)="M;/5Q1M0ZV-G%_?UN^_OJ#LP5,,4&9IL'S#8M#/E>#$_W76=N4+`=.OL53""=F"
^XMB(3.9,22,2,12327,0)="""DATA"",396.18,468,3,1344,0)"
^XMB(3.9,22,2,12328,0)="MGP[,J`B845;J-'L]:,'UTK+MID2B83JQLSE\-_NX6J]GJPU1O>DRKC8?(:0/"
^XMB(3.9,22,2,12329,0)="""DATA"",396.18,468,3,1345,0)"
^XMB(3.9,22,2,12330,0)="M/OA=-]%#]_#^@6G.?YA]E.)9WG1#26\FM!\=`O;F_F'_F8RZ?_APMSH`,7CH"
^XMB(3.9,22,2,12331,0)="""DATA"",396.18,468,3,1346,0)"
^XMB(3.9,22,2,12332,0)="MN]R,L`D)&3BX)+FN]B;Y\"":Q0`O8G46W""I]524%)AZ%MHV9:7KD:56I!EO7)"
^XMB(3.9,22,2,12333,0)="""DATA"",396.18,468,3,1347,0)"
^XMB(3.9,22,2,12334,0)="MHAS0=(L15)K""JG@IBZHWJ,S3?%""Q22K\)MBZ(OE95A5&?0+3;,)$^O).T:U$"
^XMB(3.9,22,2,12335,0)="""DATA"",396.18,468,3,1348,0)"
^XMB(3.9,22,2,12336,0)="ME<4Z8*5+I(L6PZ;1""8$T+U^A]5AXQ4'M""F7/-1-2U\V-@]!&('6'GOF,5<?&"
^XMB(3.9,22,2,12337,0)="""DATA"",396.18,468,3,1349,0)"
^XMB(3.9,22,2,12338,0)="MB=?(/N>^ER83""LEX""<9YE],'M]=UT*3[6/>3S/I(?WJ=##^(68&''L0TTY]$"
^XMB(3.9,22,2,12339,0)="""DATA"",396.18,468,3,1350,0)"
^XMB(3.9,22,2,12340,0)="M+$HCB`?LM\^KP_+5/9[8CYHTZ+1.ZPFG]7NB[3A""0XY+A\`VKVCMLC_+5'.*"
^XMB(3.9,22,2,12341,0)="""DATA"",396.18,468,3,1351,0)"
^XMB(3.9,22,2,12342,0)="MOOKNS-BJ7^9VE3M%M2>J-TO3T5&]O.'C7U?[P_8%A/=2YZC=>L]5KC2O<MW^"
^XMB(3.9,22,2,12343,0)="""DATA"",396.18,468,3,1352,0)"
^XMB(3.9,22,2,12344,0)="MQ,-.I_^[6[OEOILX-2`.V]GB]A8LDD[&[.%'L""[48.DPNX*E;U1!D5B&ER<W"
^XMB(3.9,22,2,12345,0)="""DATA"",396.18,468,3,1353,0)"
^XMB(3.9,22,2,12346,0)="M0WU##^GCF\L[SKL,E=[U-B57%2RYLJ,ST%+70B='3_KY)O8=H46P4Y`6*>Q_"
^XMB(3.9,22,2,12347,0)="""DATA"",396.18,468,3,1354,0)"
^XMB(3.9,22,2,12348,0)="M4-=6Y:BU@ZQ,S?[H_)7M[K_[4_8OO^ZZ]0'ONNS&@U-7O.7=8O-I2=)($MNO"
^XMB(3.9,22,2,12349,0)="""DATA"",396.18,468,3,1355,0)"
^XMB(3.9,22,2,12350,0)="MK2/,'PY;^I;1G<_STI%*E)5:^K99KS9-PIKT<I']80D3OUT>%JOU\O;[E]:3"
^XMB(3.9,22,2,12351,0)="""DATA"",396.18,468,3,1356,0)"
^XMB(3.9,22,2,12352,0)="M.G=E965&]SYC+8O<3&S.D#<OZU<JL)>_'R!TX'Z[WZ](PA7WR9/?WJQV-P]W"
^XMB(3.9,22,2,12353,0)="""DATA"",396.18,468,3,1357,0)"
^XMB(3.9,22,2,12354,0)="M^P,4U:`$S&JS.JP6Z]F=FDFUV*P^+KOW4:8&@D*Z3]]VN@NX^0DQ]9\/G+89"
^XMB(3.9,22,2,12355,0)="""DATA"",396.18,468,3,1358,0)"
^XMB(3.9,22,2,12356,0)="MRJ6RK4WE6IN\&L(90H&]H%E0Q<^;?1\K]<SRO-T+6""2N!31Z')C5\@.?4S`W"
^XMB(3.9,22,2,12357,0)="""DATA"",396.18,468,3,1359,0)"
^XMB(3.9,22,2,12358,0)="MNMW>KSJPS+;2*GJFE0=.JTB-WA:X""IL6*9$UX_']PU-*`Z>4F]T@LJ0<VW=\"
^XMB(3.9,22,2,12359,0)="""DATA"",396.18,468,3,1360,0)"
^XMB(3.9,22,2,12360,0)="M==L]@Q\_=G/8SS[NMG>SFX<=;*X(ZQFJ1##R44JQ2\X@3<P83U(==G/I7P87"
^XMB(3.9,22,2,12361,0)="""DATA"",396.18,468,3,1361,0)"
^XMB(3.9,22,2,12362,0)="M.4M<>-2.C7KJ)+*023BW6A>YDZ>1ATPC<W:ZUVJ@(*.*5Q;:Z9ZJ-88#`/3V"
^XMB(3.9,22,2,12363,0)="""DATA"",396.18,468,3,1362,0)"
^XMB(3.9,22,2,12364,0)="M_>(+2/O57G8?!,P[34+G;<J4+`]>P&X,\Y2BCA!P$T`X]&JWO+5-_L7H!EF:"
^XMB(3.9,22,2,12365,0)="""DATA"",396.18,468,3,1363,0)"
^XMB(3.9,22,2,12366,0)="MAJYU;I;I""CT!L[]T\U_#7[Y75*[.S@/+;WG[`M<U^-DS#Z`,!PO$V0\?9YOE"
^XMB(3.9,22,2,12367,0)="""DATA"",396.18,468,3,1364,0)"
^XMB(3.9,22,2,12368,0)="M\G9Y^]UL3Y>8/7_=_];P%YDY#>[`VY78@/5J?WB!JYX'K[J^Z&41MN8_;/:'"
^XMB(3.9,22,2,12369,0)="""DATA"",396.18,468,3,1365,0)"
^XMB(3.9,22,2,12370,0)="MW<,-T4=]H@R<;K7B?)-T2ZR=`J;XS4W=2)+(G`I.NO/NS<ARN$!).XHE9L/-"
^XMB(3.9,22,2,12371,0)="""DATA"",396.18,468,3,1366,0)"
^XMB(3.9,22,2,12372,0)="M5(O""U(ZJVC*Q%+^)I<L&*OS^V#V$S+QGWPXIT>9!G6:F$,:);4.DROAPZG4R"
^XMB(3.9,22,2,12373,0)="""DATA"",396.18,468,3,1367,0)"
^XMB(3.9,22,2,12374,0)="M@PEE[=X@XM;R#/B*=[T_D!0@Z97.MOX$LGWU!4IP?-WN]LJO?[CK!-&7[G!5"
^XMB(3.9,22,2,12375,0)="""DATA"",396.18,468,3,1368,0)"
^XMB(3.9,22,2,12376,0)="M7H2SMU,AR)'\]9^Z$_ANU8T@'C3R+J)V6\LGAE?JS0?[2F=U0*U>BZ4@3DEI"
^XMB(3.9,22,2,12377,0)="""DATA"",396.18,468,3,1369,0)"
^XMB(3.9,22,2,12378,0)="MZ?/SEJE\/ZSK>PM7.O3_X^M9#O5H3</$4%Z:O$1AJ1=CUNA+DSJVS/%))U\]"
^XMB(3.9,22,2,12379,0)="""DATA"",396.18,468,3,1370,0)"
^XMB(3.9,22,2,12380,0)="M8%[]2.?/G52<I;)N:EH18N?DK!K033@?![+PC;NH?@""9ZKTCTB7#?D/(D+>&"
^XMB(3.9,22,2,12381,0)="""DATA"",396.18,468,3,1371,0)"
^XMB(3.9,22,2,12382,0)="M<H;""""+$W[Y9_WMXO-V_<A?*FWP<\,U78LU-D5<BS4U6V$R.W5)Z4',VOO;MQ"
^XMB(3.9,22,2,12383,0)="""DATA"",396.18,468,3,1372,0)"
^XMB(3.9,22,2,12384,0)="M$GS>%(/=C5G:JPR]/*@L<F:IZ""^UO`L^;PS1[SEPKO3C93^I1NGIRX&&%OU4"
^XMB(3.9,22,2,12385,0)="""DATA"",396.18,468,3,1373,0)"
^XMB(3.9,22,2,12386,0)="M*\:6HS?'I@P(ULZS.5E69ME9E8%WR_T]<*3$<6I0?49ZU:33_U^WVUMY=]K%"
^XMB(3.9,22,2,12387,0)="""DATA"",396.18,468,3,1374,0)"
^XMB(3.9,22,2,12388,0)="M:J<H?]NM74/S%OS?WGW80OEYTA:'_3!PXM06G0R'&$ZH*.O+MGX=6GA0)=8T"
^XMB(3.9,22,2,12389,0)="""DATA"",396.18,468,3,1375,0)"
^XMB(3.9,22,2,12390,0)="M9!/Y!@T7FD.V@)1""RH@H""B5//]'J<](`TUB?4]FBRAZE8@VSP&J\$IZ<N<]B"
^XMB(3.9,22,2,12391,0)="""DATA"",396.18,468,3,1376,0)"
^XMB(3.9,22,2,12392,0)="M4L`;]>MN\7""W>!FY$8YH>L4WCHQD[SHL*?V[/B>BSTZGR>EG6[_T42HY,678"
^XMB(3.9,22,2,12393,0)="""DATA"",396.18,468,3,1377,0)"
^XMB(3.9,22,2,12394,0)="ME0.MUOS)TO*XB/974XV9V+7(&OJI1IKIV3%&L'O*EU3.)WR%I063@>,IMQQ/"
^XMB(3.9,22,2,12395,0)="""DATA"",396.18,468,3,1378,0)"
^XMB(3.9,22,2,12396,0)="M4A743""D>C2E_*52T^M7GZ]7V4A_V@#^UI)I^$G&3:/@DZFNBO(P3""#N*QR1*"
^XMB(3.9,22,2,12397,0)="""DATA"",396.18,468,3,1379,0)"
^XMB(3.9,22,2,12398,0)="M]=,<91<8'XE<L8:I.G<]5'UZ$L/Q\9&.:K-Y5GC7^YC([J/C(TM7LLCQ<SY]"
^XMB(3.9,22,2,12399,0)="""DATA"",396.18,468,3,1380,0)"
^XMB(3.9,22,2,12400,0)="M1<`^W#!UQAZJF0QZ'4.C#%'.HQ,GAQ[B\E%""#[/`*N;(;*);!X8.S6]O5_#]"
^XMB(3.9,22,2,12401,0)="""DATA"",396.18,468,3,1381,0)"
^XMB(3.9,22,2,12402,0)="M8AT>/Y25KI#(5&,GD&D6H]H,(,IK;QS?#R36;K><=8)P=O>P/JSNUTM>,0JJ"
^XMB(3.9,22,2,12403,0)="""DATA"",396.18,468,3,1382,0)"
^XMB(3.9,22,2,12404,0)="MH$-47J<='QSQ?FH<W]?/JYO/LYOMAM[X;+6?W2U6F_6WV8X2%O""AV4=(I/TL"
^XMB(3.9,22,2,12405,0)="""DATA"",396.18,468,3,1383,0)"
^XMB(3.9,22,2,12406,0)="MG!G=&^=O?P2]6QUMMKVY>;A?L""7\^+`A_M@.`W^9S=?[+:G8?@.*^M?/B\-L"
^XMB(3.9,22,2,12407,0)="""DATA"",396.18,468,3,1384,0)"
^XMB(3.9,22,2,12408,0)="M2P*U^K^]G]VHHVU!E'YX.""S[>Z%_GGC7.XD+`2QW_,9(8`LK+L_>K([&9OZQ"
^XMB(3.9,22,2,12409,0)="""DATA"",396.18,468,3,1385,0)"
^XMB(3.9,22,2,12410,0)="MF_R2>F/@760.W9IMZ;(14V+Y^_VZ6P.>EKN@H-#JTG?W=\-+R.Z7-VH4RMAH"
^XMB(3.9,22,2,12411,0)="""DATA"",396.18,468,3,1386,0)"
^XMB(3.9,22,2,12412,0)="MQRP0V4:H1Q$:ZZ@=ZR\FM`#G84N7&ZQM;GGT!D)H(7D;>AMT,NW^87=/'[?="
^XMB(3.9,22,2,12413,0)="""DATA"",396.18,468,3,1387,0)"
^XMB(3.9,22,2,12414,0)="M\GZ[(Z^1O&[^(-Y*#Q6)H^UPHD*(/TQ22X0.T9OE3:=40%IT!VAPQH(3<;&A"
^XMB(3.9,22,2,12415,0)="""DATA"",396.18,468,3,1388,0)"
^XMB(3.9,22,2,12416,0)="MJ?7WNQ5)K5_M%Q^T1@GKU>';;/EEL7Z@-O%'GFC>3V,R/'$9VC[""<#1E-1H5"
^XMB(3.9,22,2,12417,0)="""DATA"",396.18,468,3,1389,0)"
^XMB(3.9,22,2,12418,0)="M\_W'_9_$L\D*7\*MW,T6^_WV!N[^=O9U!;T:('ZMKY/WXH+#G4&;1:8[P(TU"
^XMB(3.9,22,2,12419,0)="""DATA"",396.18,468,3,1390,0)"
^XMB(3.9,22,2,12420,0)="M1Z//E%<*[""H-762SC7.-PX`-2WL]O_JKB57/O%SG05%H;D24A@1:#F4&0(F,"
^XMB(3.9,22,2,12421,0)="""DATA"",396.18,468,3,1391,0)"
^XMB(3.9,22,2,12422,0)="M%:F6<?-YN]W3\W-U6-Z)9_$/LA/X#]U+W?D-""@@\ENI^N1_2R?N4)D7H@M2F"
^XMB(3.9,22,2,12423,0)="""DATA"",396.18,468,3,1392,0)"
^XMB(3.9,22,2,12424,0)="MK[L,C-'^^9[J+=\Y8O,""-BY-RM"")II8.O>-/I!^X0J5H9Q^5)W9%]#5%,Z.$"
^XMB(3.9,22,2,12425,0)="""DATA"",396.18,468,3,1393,0)"
^XMB(3.9,22,2,12426,0)="MZ6K]35/?%IT>\Z5[II9'[%5:!R^!&5""?!^X5-0:'8Y;3+`E]Q""VS""0SW+$+F"
^XMB(3.9,22,2,12427,0)="""DATA"",396.18,468,3,1394,0)"
^XMB(3.9,22,2,12428,0)="M40;/PP3&Z6+/4[V:KGL>YI-TNDC\-`L^WDR=]W19""<@UBVK@B,W3T4\JB^FC"
^XMB(3.9,22,2,12429,0)="""DATA"",396.18,468,3,1395,0)"
^XMB(3.9,22,2,12430,0)="M-6T(842>41[W:U=Z_MC""?[,RP7_2#:W=K#L_-X?5QQ6M_KW\?7$W)=V*,+2%"
^XMB(3.9,22,2,12431,0)="""DATA"",396.18,468,3,1396,0)"
^XMB(3.9,22,2,12432,0)="M3-6ZUZ%O2B*M!#97HA#*MBOJP.1O;):U(4F,S@<27,4+(EY;>I<%+/8,G6LA"
^XMB(3.9,22,2,12433,0)="""DATA"",396.18,468,3,1397,0)"
^XMB(3.9,22,2,12434,0)="M16$_^+G7O>MG683.>U$I>=C#E$^_^NE10(-44*<2ZG-2]]""P6:?(O0V9O@U9"
^XMB(3.9,22,2,12435,0)="""DATA"",396.18,468,3,1398,0)"
^XMB(3.9,22,2,12436,0)="MD5LVHIJR$32/Z_WJTP;R]A?=I*\%_3""T%[X;JMSWD^OW(^*]978X#;\=.F=U"
^XMB(3.9,22,2,12437,0)="""DATA"",396.18,468,3,1399,0)"
^XMB(3.9,22,2,12438,0)="MRD&S](&_#IIFA2S3S)!MFN*U3KC\!LK=4GX,B!8'JCE1QE=W]PMZ2ZI2P7=!"
^XMB(3.9,22,2,12439,0)="""DATA"",396.18,468,3,1400,0)"
^XMB(3.9,22,2,12440,0)="M$57=>%(4DC.LQ2&R_$N492-VLK8`4\JL'=[)=\L]L&V=/=1-]1]<,.R'[\UW"
^XMB(3.9,22,2,12441,0)="""DATA"",396.18,468,3,1401,0)"
^XMB(3.9,22,2,12442,0)="M""S@;\7""E(LC1VLM\^!X@+64+'2*^0NPWL+/?4<\YJ2R^O+M?;[\MY1BBD;M"""
^XMB(3.9,22,2,12443,0)="""DATA"",396.18,468,3,1402,0)"
^XMB(3.9,22,2,12444,0)="MH^53,W#><U=%:;FIW(9=6;;(\9""5O`?>&/J+%]&.\"")OR!"")P[,)RC?*>P;?"
^XMB(3.9,22,2,12445,0)="""DATA"",396.18,468,3,1403,0)"
^XMB(3.9,22,2,12446,0)="M`,U&KCD$_A1R;-C#@/W@*$>!H_?$#:.CK""SH2),:ATB?UPF;^1YZJ7;K\7;5"
^XMB(3.9,22,2,12447,0)="""DATA"",396.18,468,3,1404,0)"
^XMB(3.9,22,2,12448,0)="M`8+$CKY]T'0:8F7>[""""Q_[;;[MTM!!8XWS#_L(=4S>5J?Z>^14L/F<U^`F':"
^XMB(3.9,22,2,12449,0)="""DATA"",396.18,468,3,1405,0)"
^XMB(3.9,22,2,12450,0)="M+[<L7((1EX8AKO`A3D:-6JS5D>@M""]G$#CE<1<BY(`?A-[MOLQ^W.H;>+CF&"
^XMB(3.9,22,2,12451,0)="""DATA"",396.18,468,3,1406,0)"
^XMB(3.9,22,2,12452,0)="MKK:;&W""CJ[H2`YI,%S;+SXLOJ^U.?0]$N<[>`UF\GI'4I862%<C_7(?XU4V'"
^XMB(3.9,22,2,12453,0)="""DATA"",396.18,468,3,1407,0)"
^XMB(3.9,22,2,12454,0)="MP6_=+:[7VZ]PL%N2""(W9_;2E:I#S]XL-=""1^""XZWG?$^KC50?NS'U4>B4(!5"
^XMB(3.9,22,2,12455,0)="""DATA"",396.18,468,3,1408,0)"
^XMB(3.9,22,2,12456,0)="M>+78[;YU/SBG^0X,1N,-[^^7R\Z.%.]3?_W7Y0+VP?G[?U]!(I?SUS]V6`(5"
^XMB(3.9,22,2,12457,0)="""DATA"",396.18,468,3,1409,0)"
^XMB(3.9,22,2,12458,0)="M\/T!&H@OU%_^MES\`V0!&*-MMUF?'I:N1>G0L-Q\.GS^?O;W^_ONV>VP#UED"
^XMB(3.9,22,2,12459,0)="""DATA"",396.18,468,3,1410,0)"
^XMB(3.9,22,2,12460,0)="M[E44'_AQ^]7]@;]W-P>4<B>`MJ3;2X<<]1WM\H;@P/7[7Q:KC;[D^X_=O71_"
^XMB(3.9,22,2,12461,0)="""DATA"",396.18,468,3,1411,0)"
^XMB(3.9,22,2,12462,0)="M3H[0/IL0RP:$&`E<2[2L$I\%5EI,X;Q,;/)+I""VJ\JL^NTV;.<20+:/$(X0\"
^XMB(3.9,22,2,12463,0)="""DATA"",396.18,468,3,1412,0)"
^XMB(3.9,22,2,12464,0)="M625*7HE_-P9R2VS)C-[M0CA\NQ3U76R73:='F66WJKK$<;=<NY4;N^4FP4H'"
^XMB(3.9,22,2,12465,0)="""DATA"",396.18,468,3,1413,0)"
^XMB(3.9,22,2,12466,0)="M""997Q3`-EA5'TF""YFW])1EBY-MT%UQ/8%\VA`#_>""RKL80]G''$A2$Z#[U\Z"
^XMB(3.9,22,2,12467,0)="""DATA"",396.18,468,3,1414,0)"
^XMB(3.9,22,2,12468,0)="M%99YJ""-Y;CSF(`TUU^VLC-B-/Y""3YP]L1\)VX*1,2^&\\<(X@""SGC_6F\]IZ"
^XMB(3.9,22,2,12469,0)="""DATA"",396.18,468,3,1415,0)"
^XMB(3.9,22,2,12470,0)="MT_/=DD4X2>%&]MO]E\E,A9I71DHDVE/-!!>>A=PHSBPW6F,K;Y$4TO3=.6?^"
^XMB(3.9,22,2,12471,0)="""DATA"",396.18,468,3,1416,0)"
^XMB(3.9,22,2,12472,0)="ME$![XID:A?AYNPN$QC.P.7PDR$93[GY:K6^U5[;=""G>V@Z9$+SNAK""N&.]*B"
^XMB(3.9,22,2,12473,0)="""DATA"",396.18,468,3,1417,0)"
^XMB(3.9,22,2,12474,0)="M83^!""4G'@2\;!E]:%B='7_TXZ.N&OK_O]BOB[]'PEXW#7SZ,ORRK3XV_-'D<"
^XMB(3.9,22,2,12475,0)="""DATA"",396.18,468,3,1418,0)"
^XMB(3.9,22,2,12476,0)="M_%W_OMS=K/;+B+]'PU\^#G]%@/PS%-W4IER-DG_E(\D_B**+I^_CH:\8A3Z$"
^XMB(3.9,22,2,12477,0)="""DATA"",396.18,468,3,1419,0)"
^XMB(3.9,22,2,12478,0)="MIJA^1Z(O33!^'/2](XR:Z!P6$?@(""""S'R;]RDOYWM`!,L\>!X*^[Q9?E.FJ`"
^XMB(3.9,22,2,12479,0)="""DATA"",396.18,468,3,1420,0)"
^XMB(3.9,22,2,12480,0)="MCXE`-`J!A&$:KP$>?P17CX/`=KF\C?A[3/SA<1*PGJ(!9GE^)/S0X\""O61P^"
^XMB(3.9,22,2,12481,0)="""DATA"",396.18,468,3,1421,0)"
^XMB(3.9,22,2,12482,0)="M1_@])ORJ<?""K)K%_1\/OD53`MZ3>9\3?(^*O'H<_/(T`/!:`:?I(""N!VM5X>"
^XMB(3.9,22,2,12483,0)="""DATA"",396.18,468,3,1422,0)"
^XMB(3.9,22,2,12484,0)="M(@(?E8).QD$03>,`CY:!^>-`L+NC[5U$X*,B,`V(E*B=@1(6=RJRN5-K6V`+"
^XMB(3.9,22,2,12485,0)="""DATA"",396.18,468,3,1423,0)"
^XMB(3.9,22,2,12486,0)="M0G;2!3W=]C_;$(IT')N;YU-T>5M@NQ*<U`?YVF)@L*B_=0XYXG_@_M?2""*.6"
^XMB(3.9,22,2,12487,0)="""DATA"",396.18,468,3,1424,0)"
^XMB(3.9,22,2,12488,0)="MMV%$@+2Z:F4R92%SJUO&MI*U)9@^2^JIQ*0:^Q:@E*Z^J+&,SN?QJ>6=_""QD"
^XMB(3.9,22,2,12489,0)="""DATA"",396.18,468,3,1425,0)"
^XMB(3.9,22,2,12490,0)="M8?%$(-(*>R%HK68""-@I9YY8RT(79.""#/<Q0[.4B/E7,C\J""-0)E9G*<R=T(J"
^XMB(3.9,22,2,12491,0)="""DATA"",396.18,468,3,1426,0)"
^XMB(3.9,22,2,12492,0)="M,]Y'X&&I(/>KWHEBL,9[[JSQCA(M\;<R6W""9,7:B\/#8HO7EL<7>>2EDTJG)"
^XMB(3.9,22,2,12493,0)="""DATA"",396.18,468,3,1427,0)"
^XMB(3.9,22,2,12494,0)="M41=9+Y""2XY""G?:@N\J,5?7]9Y9++S%*0DADU<J,$4;L&*R4IT])1DE*LYH^K"
^XMB(3.9,22,2,12495,0)="""DATA"",396.18,468,3,1428,0)"
^XMB(3.9,22,2,12496,0)="MN^7SJ""Y)6ZU;,BI3:\'$6JF7R""L4Z.75?.4E?WGW\R_7[W[]X?K]""^F\K2>?"
^XMB(3.9,22,2,12497,0)="""DATA"",396.18,468,3,1429,0)"
^XMB(3.9,22,2,12498,0)="M<D`I*U5H10-#BAMW`A9R,OXY[?GIYUC&F!4V""UDDI,$)!RP2%=6_+G\__#,4"
^XMB(3.9,22,2,12499,0)="""DATA"",396.18,468,3,1430,0)"
^XMB(3.9,22,2,12500,0)="M+GWCF(7FZW>%>5J[-E=Z%=5:KP3,""YJ(+@)USM5GE^KL5)M-E5FZW9^64.=E"
^XMB(3.9,22,2,12501,0)="""DATA"",396.18,468,3,1431,0)"
^XMB(3.9,22,2,12502,0)="M/=O>KS;PTM?%?G:WW'TB;1!Y%*S1RL$I-Q6C13)81E3W)65>C.KS-(Z9;6NN"
^XMB(3.9,22,2,12503,0)="""DATA"",396.18,468,3,1432,0)"
^XMB(3.9,22,2,12504,0)="M5)^OM0*_5/""^X@*_])@WBZ;;'QFUPWRJ54W/2AQ:X;===Q/[\\,]"">MOM]O#"
^XMB(3.9,22,2,12505,0)="""DATA"",396.18,468,3,1433,0)"
^XMB(3.9,22,2,12506,0)="M[-^VL`EO:?/FER&=R\JZB*7:\5XK]5TEPW+G[R0.O2556C8WW]YX)U$'3$*O"
^XMB(3.9,22,2,12507,0)="""DATA"",396.18,468,3,1434,0)"
^XMB(3.9,22,2,12508,0)="M-XZ#)_'V0<J0=!9`=M3@5\_S2JL2FQFM""\SZQ[WX^/<EY%ANWOQ?>?V&5.0D"
^XMB(3.9,22,2,12509,0)="""DATA"",396.18,468,3,1435,0)"
^XMB(3.9,22,2,12510,0)="M_B:H#O%1KD`*5:E$/LE'@<+-;""V7?'MSMZ)MQ>%M=UOZW8X5""^4E1;O;ARH4"
^XMB(3.9,22,2,12511,0)="""DATA"",396.18,468,3,1436,0)"
^XMB(3.9,22,2,12512,0)="MJQWDZ/UE-JJ\,JT!8J^C72JUE=-,.[ZS.AO<G?X^?N,UTFCNS/)F=4_NC.5["
^XMB(3.9,22,2,12513,0)="""DATA"",396.18,468,3,1437,0)"
^XMB(3.9,22,2,12514,0)="M+M;KY9<5_?GCXN:P[>PKJ&W7KXR\)O_RQEO"".""\<W0+4^\FJH1K&O([(<`WC"
^XMB(3.9,22,2,12515,0)="""DATA"",396.18,468,3,1438,0)"
^XMB(3.9,22,2,12516,0)="M8GH-X]YR,@PGZQ-2(FT3*ET_R%*](#_J:T)8#1""3/7`?E;\ME_]8?P,(WFUW"
^XMB(3.9,22,2,12517,0)="""DATA"",396.18,468,3,1439,0)"
^XMB(3.9,22,2,12518,0)="MT&+B('4/>Y-""L;A\]FNG^.]GB^XMF\-G\5M"",758/;!??ULN=M]!)]C9&O)F"
^XMB(3.9,22,2,12519,0)="""DATA"",396.18,468,3,1440,0)"
^XMB(3.9,22,2,12520,0)="M#Y\7&_J1]3=MR*P?\ILHU0T)N?WG($F:__I/0RN=A2UU74Y9:A2XU.G04LLW"
^XMB(3.9,22,2,12521,0)="""DATA"",396.18,468,3,1441,0)"
^XMB(3.9,22,2,12522,0)="MMYS=+LQ%Z5Z3%)>?MN3IZMZ?:8N*M7>RCW_M]M+Q>?JK/WFZ1Q2)M7M$I?;C"
^XMB(3.9,22,2,12523,0)="""DATA"",396.18,468,3,1442,0)"
^XMB(3.9,22,2,12524,0)="MP$,KR!VY\@J^PNX1N:]/!\'KP%+W14#<2\VYE5X_3[,R>7U+G;E5^>Y='Y:W"
^XMB(3.9,22,2,12525,0)="""DATA"",396.18,468,3,1443,0)"
^XMB(3.9,22,2,12526,0)="M?]L>EA^VVW^`0%9?D9D2J76'TKF#NF2DM->$*;K#2]R_2:SQ@1AU\B]U59R_"
^XMB(3.9,22,2,12527,0)="""DATA"",396.18,468,3,1444,0)"
^XMB(3.9,22,2,12528,0)="M[E8D^3O4I997))-@![?\R^+34L6:\E07QJG(.C:],7E!;4G[&OV)6;""__VM:"
^XMB(3.9,22,2,12529,0)="""DATA"",396.18,468,3,1445,0)"
^XMB(3.9,22,2,12530,0)="MH?A$9PEQ84DO3D07N^'*_4'%^6>S^7KU"">YOL>X.\`YT_>N.LOVF50;^F&=9"
^XMB(3.9,22,2,12531,0)="""DATA"",396.18,468,3,1446,0)"
^XMB(3.9,22,2,12532,0)="MB]GNJI-WEA`&3&_AWQLN.6R4DREMY60JFV\S?0'ITW8&U]IW(X%_N>$0D/77"
^XMB(3.9,22,2,12533,0)="""DATA"",396.18,468,3,1447,0)"
^XMB(3.9,22,2,12534,0)="M0GZ15X227Q-IU<K+0J%51E`3(SKD[F?O.B5<<;V'K_W0ZGN#``)WP+,'_EVP"
^XMB(3.9,22,2,12535,0)="""DATA"",396.18,468,3,1448,0)"
^XMB(3.9,22,2,12536,0)="MPSG0X:$YJ1W^ZOYY\#X0R""SIA4*?B%2N\_DR'HG,_DBPLKBIF6:O]L[2XJ^L"
^XMB(3.9,22,2,12537,0)="""DATA"",396.18,468,3,1449,0)"
^XMB(3.9,22,2,12538,0)="MST)M?1+D6`%[H5QMJZT3S,9-4!9IDR>8C9@@'CG!JCC!!/.@""3)3'8T5>$4V"
^XMB(3.9,22,2,12539,0)="""DATA"",396.18,468,3,1450,0)"
^XMB(3.9,22,2,12540,0)="M1N!EM6.2;[<W#\""6V`I7OD29EQXG\VQ[5X_=.HQ.LG7TC.I=VFI/L9>Z?]GI"
^XMB(3.9,22,2,12541,0)="""DATA"",396.18,468,3,1451,0)"
^XMB(3.9,22,2,12542,0)="M]Z]$YU4VG!O8/*S6M_:0A/-N7OHB%8YBE+Z194FPOB%7@U2:>&P/L]UR#9TM"
^XMB(3.9,22,2,12543,0)="""DATA"",396.18,468,3,1452,0)"
^XMB(3.9,22,2,12544,0)="MOG^R:EOG4DER^S.CQ75ZHA%M:Z]Z`8TGJ*CLZKIR1$O!;D6J8-07F#@0FN@*"
^XMB(3.9,22,2,12545,0)="""DATA"",396.18,468,3,1453,0)"
^XMB(3.9,22,2,12546,0)="M3K29]Z*A,&]!]G&Y//R+,A7#Z_K,!+(WO-(2WVI$N$Z3Z4Y1K24F3(1=FM16"
^XMB(3.9,22,2,12547,0)="""DATA"",396.18,468,3,1454,0)"
^XMB(3.9,22,2,12548,0)="MW*$RP$R4<9<\%>X^2C)GMEEN[]>+_5V$WE3H%:.AETZ%GAUY&(]#7EX_%?(^"
^XMB(3.9,22,2,12549,0)="""DATA"",396.18,468,3,1455,0)"
^XMB(3.9,22,2,12550,0)="M;_?@J5RO_GO!O:_[A]VGY>Y;A-]4^""7A!J)71TVQQ<K`-L`A.]ZRTFED_'E["
^XMB(3.9,22,2,12551,0)="""DATA"",396.18,468,3,1456,0)"
^XMB(3.9,22,2,12552,0)="MO]R\<*LB/[U548S>L#ZNX/0[9HMP/MVM9J-O-<\B-A^)L1@PFJI17@L\Q6EA"
^XMB(3.9,22,2,12553,0)="""DATA"",396.18,468,3,1457,0)"
^XMB(3.9,22,2,12554,0)="MEW<FC*K19GAZ$L[_^G>H8K[<[6?@GHLF^#&<?^*#DV)RNP%5V7(WZ]IM@K^_"
^XMB(3.9,22,2,12555,0)="""DATA"",396.18,468,3,1458,0)"
^XMB(3.9,22,2,12556,0)="M7]Y`""Y.9ZGY].:9XX7MLB)_%(WXMSTUE>VZRLK`_-RY^F_P%V(`WY\&:]6:S"
^XMB(3.9,22,2,12557,0)="""DATA"",396.18,468,3,1459,0)"
^XMB(3.9,22,2,12558,0)="ML3=;GN9FWY$W^.[VO'*:W/B8)\ON3[.7F<;92WMB2H\WJ,0>9U!M(PWLKA:4"
^XMB(3.9,22,2,12559,0)="""DATA"",396.18,468,3,1460,0)"
^XMB(3.9,22,2,12560,0)="MCO,'M2)*=;WBX:PDTG5_6&R@%-6_!'NT4#GR'@JK-9""6^%3W\'6Q_H=V""\[J"
^XMB(3.9,22,2,12561,0)="""DATA"",396.18,468,3,1461,0)"
^XMB(3.9,22,2,12562,0)="MVT-W5XZ]N\I^=VDY[NYH;\&]U!'K,SU1@C:&1U(B2^;?P/P=$EEE22V9@""HY"
^XMB(3.9,22,2,12563,0)="""DATA"",396.18,468,3,1462,0)"
^XMB(3.9,22,2,12564,0)="M4!;9&]V2==RT_7`9-G[_3M*Q@?8DF'WC_S6)7+[KPRD7LX_+K[-.UWHXF#;T"
^XMB(3.9,22,2,12565,0)="""DATA"",396.18,468,3,1463,0)"
^XMB(3.9,22,2,12566,0)="MW/A@6OXY3\+>_G`/WT-XZ.?MP\[_7C&?5`^ZS<G'!_Y6#M]6])W?T88]V\WZ"
^XMB(3.9,22,2,12567,0)="""DATA"",396.18,468,3,1464,0)"
^XMB(3.9,22,2,12568,0)="MVVS_>;L#:FY_F-UWTFQ[:Z$)7`^^3!\,XJL:CR^4G0!?:54F$_!5CL$7-)M;"
^XMB(3.9,22,2,12569,0)="""DATA"",396.18,468,3,1465,0)"
^XMB(3.9,22,2,12570,0)="MW'UX6""\T14Z#%T@;:2<!5]\6NUOGUI'WI_]4='!:+[UODN#!WDY`\O_,TN'/"
^XMB(3.9,22,2,12571,0)="""DATA"",396.18,468,3,1466,0)"
^XMB(3.9,22,2,12572,0)="MIG_.R9O\.\_?'KSO""MM8A/""/9:@>E%;E""(]+EI7IX_*/<]I,OI/""JR_==ZO;"
^XMB(3.9,22,2,12573,0)="""DATA"",396.18,468,3,1467,0)"
^XMB(3.9,22,2,12574,0)="M_3_=+K^L;I;[V6:YO%W>!G&/)Z#T1KHKF+;J4U;KRL+9E59>I#HI`W12L@O"""
^XMB(3.9,22,2,12575,0)="""DATA"",396.18,468,3,1468,0)"
^XMB(3.9,22,2,12576,0)="ML<O<J-?CDT99,DH:(<=IAS0H/@7S8R_3X[74O:5ZM&(]0W;]8,$>>_77<%F3"
^XMB(3.9,22,2,12577,0)="""DATA"",396.18,468,3,1469,0)"
^XMB(3.9,22,2,12578,0)="M310V5E^'MN^#WEV4EH\N:VB'F8]R,B3QN/TG28:\I<F0ALP14>KMXF89G2$6"
^XMB(3.9,22,2,12579,0)="""DATA"",396.18,468,3,1470,0)"
^XMB(3.9,22,2,12580,0)="M""/-;,/;M'+X2O[,DL<DD]`B""]U0,@5S4XKA\A5\^?]N3#'+@0$=D+:1'9""TD"
^XMB(3.9,22,2,12581,0)="""DATA"",396.18,468,3,1471,0)"
^XMB(3.9,22,2,12582,0)="M1LY""$C,6'C5C@19A<'>2-[MJR/9I_W""4$_K'?5JL#M^_""2@!2*KO6FL`!O;\"
^XMB(3.9,22,2,12583,0)="""DATA"",396.18,468,3,1472,0)"
^XMB(3.9,22,2,12584,0)="MR#-K0S5+P<E.JU7B.6*EOU%MJWJ&,O<QE,:N);:JC;DUVC]W4_^2W!KC:BJ]"
^XMB(3.9,22,2,12585,0)="""DATA"",396.18,468,3,1473,0)"
^XMB(3.9,22,2,12586,0)="M)X0E>L/NFDW52%Z'1O/$E#D:>Z^H/,F]/AYC?KKS\-?E_K`?<0YF\1Q\QN>@"
^XMB(3.9,22,2,12587,0)="""DATA"",396.18,468,3,1474,0)"
^XMB(3.9,22,2,12588,0)="M5EDSH-NCX1#/$XL',T<V.5;:NL)W;\T>I;+F;TM6<F*WW#^L:;6-1;?[!T#\"
^XMB(3.9,22,2,12589,0)="""DATA"",396.18,468,3,1475,0)"
^XMB(3.9,22,2,12590,0)="M;+6Y63_<+F^!DZ3%.19WW3NA1Y5L[%BMF6==%WF@3.N).NOQ4Y'H7,XCL@IP"
^XMB(3.9,22,2,12591,0)="""DATA"",396.18,468,3,1476,0)"
^XMB(3.9,22,2,12592,0)="MCBO5CJ4,`[MW_.UJ\6FS[6!S0WO)KU<;HNW+8B[LV&3M7GV>L]3""`R`K$8!&"
^XMB(3.9,22,2,12593,0)="""DATA"",396.18,468,3,1477,0)"
^XMB(3.9,22,2,12594,0)="MNF7^YY_?+;YQX'X?[""/+BFKD=%-[8EI6)^,F_`-]G.S/VLUV<_MP<R`UNOJ'"
^XMB(3.9,22,2,12595,0)="""DATA"",396.18,468,3,1478,0)"
^XMB(3.9,22,2,12596,0)="M;;6AU#!]YD[A0\/)V)NWYKPIW8H=%9=M=6[8X_1K=W^W%(4KL@ZWRT]PKB\("
^XMB(3.9,22,2,12597,0)="""DATA"",396.18,468,3,1479,0)"
^XMB(3.9,22,2,12598,0)="MG]N)`AI'3Q""Z.WS>K0[T;8O--\*Y2-5NV(C@8OFOAU6WM+/_^>==AXMN/3^N"
^XMB(3.9,22,2,12599,0)="""DATA"",396.18,468,3,1480,0)"
^XMB(3.9,22,2,12600,0)="M=G=D_:A#A]1`82]WR_SA&WWG=[/EZO#9'+'#?;<3^^4.>&68T^+C`=R`](7O"
^XMB(3.9,22,2,12601,0)="""DATA"",396.18,468,3,1481,0)"
^XMB(3.9,22,2,12602,0)="M9IOM[./#CK@&R3BL\_6""LT+FB%#>A\V2NK)N5_O%A]5Z=?@V6WY9K!_H9M\_"
^XMB(3.9,22,2,12603,0)="""DATA"",396.18,468,3,1482,0)"
^XMB(3.9,22,2,12604,0)="M[.ZW^TZ=/W*_2<ETY.9@K;%3""(W9[M3A$T)%@2,+.X:%34,W%'LVU):R6H[9"
^XMB(3.9,22,2,12605,0)="""DATA"",396.18,468,3,1483,0)"
^XMB(3.9,22,2,12606,0)="M3^3<SBINYYCM3""9EJGG#Y/(J)$PN+ZT$1^U(55LO#H3(!O%VPR33?2=#;Q9?"
^XMB(3.9,22,2,12607,0)="""DATA"",396.18,468,3,1484,0)"
^XMB(3.9,22,2,12608,0)="M'O:S/]ZL%U_A]W]Z,Z9B`SMF""]])DUBB?[$=JG:U($/!)\W';N.V7\$*8H):"
^XMB(3.9,22,2,12609,0)="""DATA"",396.18,468,3,1485,0)"
^XMB(3.9,22,2,12610,0)="M$<2KCYTHWRS)BYT$WY%2#[`@W2\6.\NY(+T+CA4XN%?DCW]>[&?WN^TG*&FW"
^XMB(3.9,22,2,12611,0)="""DATA"",396.18,468,3,1486,0)"
^XMB(3.9,22,2,12612,0)="M)$/<=0?1Y\67I?3R]Z<XQ;/""%PJC/D0^E2O%(Y/7?Z/O^+!<P#,UF_]""-,@?"
^XMB(3.9,22,2,12613,0)="""DATA"",396.18,468,3,1487,0)"
^XMB(3.9,22,2,12614,0)="M%P=2N>S?5\NOHS0Q-/(N7)I8,3+FZF\0F:3?RG?]?<`]_?QAO?JOA^6(>R+B"
^XMB(3.9,22,2,12615,0)="""DATA"",396.18,468,3,1488,0)"
^XMB(3.9,22,2,12616,0)="MN?2(Y_QLXEF+P(CB>9)XMFQG,6X[3Z<^U0YGHE+$/>[U9,WJ#""SA6V[0C&`*"
^XMB(3.9,22,2,12617,0)="""DATA"",396.18,468,3,1489,0)"
^XMB(3.9,22,2,12618,0)="M\XMA""M\M-I^6I%)8$JG$T[K44K=++36ZI%46I:ZHPWUJ5]N[.]*4Y@7$;COT"
^XMB(3.9,22,2,12619,0)="""DATA"",396.18,468,3,1490,0)"
^XMB(3.9,22,2,12620,0)="M9:H\E(5S63.C'9BB./3U]:MZH&F47:U\\\-'%A$"".N/=P_JPNE_WA,9R_QT$"
^XMB(3.9,22,2,12621,0)="""DATA"",396.18,468,3,1491,0)"
^XMB(3.9,22,2,12622,0)="M<!Z6W_$R`*RF<6?4[U<?UMWKFE+YYNOGU<UG29%<[3O-<071HYW.>+_=D(\1"
^XMB(3.9,22,2,12623,0)="""DATA"",396.18,468,3,1492,0)"
^XMB(3.9,22,2,12624,0)="MQ@""&VW^[NS]L[_9$32%5DO7Q#B2*=/[V1_*6[<W-P_V""A6?SFLC=@_R7[MG="
^XMB(3.9,22,2,12625,0)="""DATA"",396.18,468,3,1493,0)"
^XMB(3.9,22,2,12626,0)="M;V>K#52+/RQG7X&[()63]?'$U`A/U0GQ3O%=]K='""S7_9=8MR^H`DU_=\7LE"
^XMB(3.9,22,2,12627,0)="""DATA"",396.18,468,3,1494,0)"
^XMB(3.9,22,2,12628,0)="M\;%+?;S[!318DC\,.C4HX1]WVSOR.IE'MY!;NI;T7G^_7W?+,EOIXU'"";'%+"
^XMB(3.9,22,2,12629,0)="""DATA"",396.18,468,3,1495,0)"
^XMB(3.9,22,2,12630,0)="MY]C=Y0U[""+J_?<.K0__AFO^IS>QG>4GFYOJMOG0C+??_U""WA7_X@8=BAK@>U"
^XMB(3.9,22,2,12631,0)="""DATA"",396.18,468,3,1496,0)"
^XMB(3.9,22,2,12632,0)="MZ$H#&G?FB2$/""EM%0""MP<YL3.T^R\E$\""3_LR2;PA^!6@G/WW:?E!I+$P2:Z"
^XMB(3.9,22,2,12633,0)="""DATA"",396.18,468,3,1497,0)"
^XMB(3.9,22,2,12634,0)="MA9+]VWO8G\7:[D;(C^'IE9]%:'`GDKXN=XY677F@A>[-MK'(<DM\1%;8#/0"""
^XMB(3.9,22,2,12635,0)="""DATA"",396.18,468,3,1498,0)"
^XMB(3.9,22,2,12636,0)="MO9+2=<SY[/,]5Z&!@UD^+EE+5]!>:FKP>9,Y2V_&F<%19:DEI`/5-G]5*K\J"
^XMB(3.9,22,2,12637,0)="""DATA"",396.18,468,3,1499,0)"
^XMB(3.9,22,2,12638,0)="M[1LK8<;])4LAQY6C;7'#Y?;YJRZEEY&X!J8I&A5EG3K*/SA<65KNO51P)/+["
^XMB(3.9,22,2,12639,0)="""DATA"",396.18,468,3,1500,0)"
^XMB(3.9,22,2,12640,0)="MYR.$2?2\,]#-/&>45,2>=+`K""=9P@SRO8J2;*]*M&-@M5N[15J>@[YM@1(@@"
^XMB(3.9,22,2,12641,0)="""DATA"",396.18,468,3,1501,0)"
^XMB(3.9,22,2,12642,0)="MBU0L;:&3F=4<L<04VT/Z@\3_D-:3C%-[BN+UJCW>(M89?A*]Y_KN?KW]!@KW"
^XMB(3.9,22,2,12643,0)="""DATA"",396.18,468,3,1502,0)"
^XMB(3.9,22,2,12644,0)="MFT?5&#3[)ZAMO-G(VX*EU!9(E5O:>&=I5E>/$TBU@/8KO//:SZSSVCOH_+0_"
^XMB(3.9,22,2,12645,0)="""DATA"",396.18,468,3,1503,0)"
^XMB(3.9,22,2,12646,0)="MJ/EHUG""I\[6--GI=_O]02P,$%``""``@`P(RX--@A[<AB)0``,""4!`!````!&"
^XMB(3.9,22,2,12647,0)="""DATA"",396.18,468,3,1504,0)"
^XMB(3.9,22,2,12648,0)="M965T7S$Q,2YP;FPN8V1E[3UK<]LXDI]GJO8_H/QE9LXS,4F0%+FUWBU%IA/M"
^XMB(3.9,22,2,12649,0)="""DATA"",396.18,468,3,1505,0)"
^XMB(3.9,22,2,12650,0)="MRI:74I+)IQ0MT3%O9-$K4<GD?OT!?(-X-60G>[<UKJ2*(AO=C>Y&H]%XG9VA"
^XMB(3.9,22,2,12651,0)="""DATA"",396.18,468,3,1506,0)"
^XMB(3.9,22,2,12652,0)="MF^O)`BU6N^RQ^-/W?_I^>H<NL]V^B`_;<_M/WZ.+]""[;IM>'AW27K=!E%""T_"
^XMB(3.9,22,2,12653,0)="""DATA"",396.18,468,3,1507,0)"
^XMB(3.9,22,2,12654,0)="M7*7K^<V'Z7:U.:S3-8%!:)$6HF_H'%DMCD6QR[8?^V!Q^J]#NB_$.-J/!$GY"
^XMB(3.9,22,2,12655,0)="""DATA"",396.18,468,3,1508,0)"
^XMB(3.9,22,2,12656,0)="M>G+S[BI.UEG^:I<?'FW'?[%(-^F*0$R+](&@:!'<)-MTXSDO7E*""17ZWR[?%"
^XMB(3.9,22,2,12657,0)="""DATA"",396.18,468,3,1509,0)"
^XMB(3.9,22,2,12658,0)="M^66RV:<<%!8`G9V-+V8<I""^$7.Z2PT/""`8^$P#>[_':3/J#%8[K*[H@XE^G#"
^XMB(3.9,22,2,12659,0)="""DATA"",396.18,468,3,1510,0)"
^XMB(3.9,22,2,12660,0)="MXR8I>+9L6XC@=;Y_S(ID@_(=6AQV']/=%[ZH)RQZG>:$U%X@)XO^B>G%Z2K?"
^XMB(3.9,22,2,12661,0)="""DATA"",396.18,468,3,1511,0)"
^XMB(3.9,22,2,12662,0)="MK?<H3C]EZ6>>E%DM""<L/#XF`94>()_H]>2!FL]NCZUP@HD!8:);>$:`\+SCX"
^XMB(3.9,22,2,12663,0)="""DATA"",396.18,468,3,1512,0)"
^XMB(3.9,22,2,12664,0)="M4%S#[..]I(""-)1I/D^(AW?(%7#%+DWS[,=TV:KM(/Z6;_)$B(""\N?N>Q>(J*"
^XMB(3.9,22,2,12665,0)="""DATA"",396.18,468,3,1513,0)"
^XMB(3.9,22,2,12666,0)="M$3'>B7CU;%7MI*7$-43Q_(K(?/=`?O)2<<7-:L]JU''8]D(;<;\!IFE1XY/!"
^XMB(3.9,22,2,12667,0)="""DATA"",396.18,468,3,1514,0)"
^XMB(3.9,22,2,12668,0)="MM7YCW_<;R7[_<_5TV*\V:?4<IVL""5G]8/`ZLG)8A:$].$/.V+,^_KW'Q'TJ\"
^XMB(3.9,22,2,12669,0)="""DATA"",396.18,468,3,1515,0)"
^XMB(3.9,22,2,12670,0)="MS6LA<Y-\MR/^*/N4?EC<YVG-3VLO-7M%LEV3(M6O=\GFM_8'T=,N/3SVB0Y1"
^XMB(3.9,22,2,12671,0)="""DATA"",396.18,468,3,1516,0)"
^XMB(3.9,22,2,12672,0)="M\FRUZ`4<UZ3X+S59_D/-0E=-3E^.*]?70+.63K/]'B&VG;#6IHVM]@FW3W[["
^XMB(3.9,22,2,12673,0)="""DATA"",396.18,468,3,1517,0)"
^XMB(3.9,22,2,12674,0)="M5,.-5_?99I/N9^W/62OB'6.X%+=`TX2.\""T6OO6%;P5X6[Z$GV9""/>WVG&6Q"
^XMB(3.9,22,2,12675,0)="""DATA"",396.18,468,3,1518,0)"
^XMB(3.9,22,2,12676,0)="MPG&=G]M'W#WZS:/7/ME>`]HP$G>_8Y9]UQ%5RA4*P!4)P!-*Q7/D4HF%G^)>"
^XMB(3.9,22,2,12677,0)="""DATA"",396.18,468,3,1519,0)"
^XMB(3.9,22,2,12678,0)="M]04M:V'7G<K/[,\/T3JKVQ7ILMN'ZG7-#6[$%7W*UNEVQ?0D+2:!5A@B`JXO"
^XMB(3.9,22,2,12679,0)="""DATA"",396.18,468,3,1520,0)"
^XMB(3.9,22,2,12680,0)="M9L*7$O!89%8-2TJW$GMA78.F^\_^)RFR?/LAWWVHHX#&U=!@I'H6]?<$$\^#"
^XMB(3.9,22,2,12681,0)="""DATA"",396.18,468,3,1521,0)"
^XMB(3.9,22,2,12682,0)="M'*G(V5`""_/N&F+(>5\N+;)\F^]IICV^W91?SX2JG=*N7DUU*F#G4KC.ZNSOL"
^XMB(3.9,22,2,12683,0)="""DATA"",396.18,468,3,1522,0)"
^XMB(3.9,22,2,12684,0)="MVV^7A+^/R6VVR0HFA&CQ""M3!TN`!&GH""U=2T!3ZRQT?U55;CU\0UU]HHV:B>"
^XMB(3.9,22,2,12685,0)="""DATA"",396.18,468,3,1523,0)"
^XMB(3.9,22,2,12686,0)="M7R6-S;Y+:?_\X66:[-I.8)+M5H=-J0I&2P250.XE6OX])2'P^@PY@3`ZTCU%"
^XMB(3.9,22,2,12687,0)="""DATA"",396.18,468,3,1524,0)"
^XMB(3.9,22,2,12688,0)="MMDZ]+^?R11N0?Z0!N>NT\7C6B\<IX,M#4>1;C%^\S?;9[0:*0""A3\H94FHB^"
^XMB(3.9,22,2,12689,0)="""DATA"",396.18,468,3,1525,0)"
^XMB(3.9,22,2,12690,0)="M$M?KM[/F(:X>;M+]!QHL=;_***B&2A[(0*;\WJ]YBU30/-[.1""\%;JPA+/Y2"
^XMB(3.9,22,2,12691,0)="""DATA"",396.18,468,3,1526,0)"
^XMB(3.9,22,2,12692,0)="MA6(\IHXA9>.IX7I5Z<+*-GHH>A4O?_;`9[:`K(2I7L0JBA`*234[DORWF:WV"
^XMB(3.9,22,2,12693,0)="""DATA"",396.18,468,3,1527,0)"
^XMB(3.9,22,2,12694,0)="M#23D2CZ2(*?H6L+?\VQ;?&!\!O/J0SV<^)EQ8XQG8+#R3#'H-)\;:G('JHX-"
^XMB(3.9,22,2,12695,0)="""DATA"",396.18,468,3,1528,0)"
^XMB(3.9,22,2,12696,0)="M-WE3B0:>Y;_FM?HQ?\RVK=\KV6#40W')^9!S6M/@/]3T)"")05HP,]7,R1LRV"
^XMB(3.9,22,2,12697,0)="""DATA"",396.18,468,3,1529,0)"
^XMB(3.9,22,2,12698,0)="M2>?%(S+>R[^DZ^K7FVW*_([3(MLU/V;SJ[H[V*0[II8L8H&#KI'R7SJ""HO""^"
^XMB(3.9,22,2,12699,0)="""DATA"",396.18,468,3,1530,0)"
^XMB(3.9,22,2,12700,0)="M)""XP4#+FX?L/RE3[NB>!;3\?\K)?Y""7->3""A<QOBG9_\US%_)^@43>Z3W8\V"
^XMB(3.9,22,2,12701,0)="""DATA"",396.18,468,3,1531,0)"
^XMB(3.9,22,2,12702,0)="M_JGWR/%Y?O(^/Z#[Y%.*MGF!'G=$VZ2FB\,M\6PGI_)RW6,%%/YT>A)MB8[)"
^XMB(3.9,22,2,12703,0)="""DATA"",396.18,468,3,1532,0)"
^XMB(3.9,22,2,12704,0)="M>(,,!U""RIJF<(D?%?8KB]#$G,IE?S]ZCS_?IEK[\@I+'1]*KH*S\V8SS36DN"
^XMB(3.9,22,2,12705,0)="""DATA"",396.18,468,3,1533,0)"
^XMB(3.9,22,2,12706,0)="M<TJ*8,CV:)T424.R:2=5E<PJ=#+>%.F.VA`9=K<H)AO*+4&_2Q]R(B]*):UJ"
^XMB(3.9,22,2,12707,0)="""DATA"",396.18,468,3,1534,0)"
^XMB(3.9,22,2,12708,0)="M?""(:.$2?DLV):.P@^H!E'WS9!QF-*CP7?9#1<&4T/`DJ$L""+/Y!J""#\T0QC1"
^XMB(3.9,22,2,12709,0)="""DATA"",396.18,468,3,1535,0)"
^XMB(3.9,22,2,12710,0)="MAUCXH=]0>3I=>^2^L>V8^ZP,7$49PQ=[-C[I-=HR0'&:^.0<4IH/B@6E\#`F"
^XMB(3.9,22,2,12711,0)="""DATA"",396.18,468,3,1536,0)"
^XMB(3.9,22,2,12712,0)="M&M+$*II82K,7<`O*.3JJKHJJHZAIEVL0%'2UM74\%6%77M]^@""8J:0MCSV&\"
^XMB(3.9,22,2,12713,0)="""DATA"",396.18,468,3,1537,0)"
^XMB(3.9,22,2,12714,0)="M(B@9NM*2%<NCL!^U:A'(`R)1V4!#/,`:XH&<>,PX(FEXQV(M`W%[-&1K>H<`"
^XMB(3.9,22,2,12715,0)="""DATA"",396.18,468,3,1538,0)"
^XMB(3.9,22,2,12716,0)="M@.@O?T4G[RL7.JP)X;17DSH3&&W7V9ULU!L_5-$*4Z?F9=LGLP7IH&*<K?MC"
^XMB(3.9,22,2,12717,0)="""DATA"",396.18,468,3,1539,0)"
^XMB(3.9,22,2,12718,0)="M#_*3[=>[EZ(QB&8,8VN&,-P(IJ[BV=DO[1_I0C^28=8.3?)UBKKW%/SLC.__"
^XMB(3.9,22,2,12719,0)="""DATA"",396.18,468,3,1540,0)"
^XMB(3.9,22,2,12720,0)="MZ5LT3(:+`:OIFY[]O)ALLM5OZ?I\N3NDNKQ[#?//0U:TC+/X;,L(8:-G!J.("
^XMB(3.9,22,2,12721,0)="""DATA"",396.18,468,3,1541,0)"
^XMB(3.9,22,2,12722,0)="M=\1.-""!1S5##""BOR:OJ""]7A4X=WTT>T7]'8<S]'MH2@#H^13DFT2HL,3=MJ)"
^XMB(3.9,22,2,12723,0)="""DATA"",396.18,468,3,1542,0)"
^XMB(3.9,22,2,12724,0)="MYFV\""MDR_;T,^R:_W&5$U[N*J\_)GCQJT;XXZ4S;A&G:>IZ%:RA]_)Q""PRWY"
^XMB(3.9,22,2,12725,0)="""DATA"",396.18,468,3,1543,0)"
^XMB(3.9,22,2,12726,0)="M*X)O17Q+I=.O)3S\K,+#(N$-K;\AK&P""PNDT?<NJBKE2W*SG,S>LLN)?NP7U"
^XMB(3.9,22,2,12727,0)="""DATA"",396.18,468,3,1544,0)"
^XMB(3.9,22,2,12728,0)="MF1R\.""6-""5W2QO1PV!?HMFE4%#OMVU.T+\/Z@OIQ&H[ORG'&""3O@:2WC2`O1"
^XMB(3.9,22,2,12729,0)="""DATA"",396.18,468,3,1545,0)"
^XMB(3.9,22,2,12730,0)="M2@%_=2FPK6/_[<3!*_A;:^\XG_1OD^Z0W8Y0:TI-0H6+6)JRT*EVOI.410-E"
^XMB(3.9,22,2,12731,0)="""DATA"",396.18,468,3,1546,0)"
^XMB(3.9,22,2,12732,0)="M.""!<!R""![CS-<$`S;!ZZ495(=0)4YWP,*%S34+LXJ54(4/_EKT#<I5""1*`YM"
^XMB(3.9,22,2,12733,0)="""DATA"",396.18,468,3,1547,0)"
^XMB(3.9,22,2,12734,0)="MW3>QGP$'9L-!6>2N$*!L7,JBZGJ?2X9SF^=<DH3L29/V<""[3N8G+T-11V5C("
^XMB(3.9,22,2,12735,0)="""DATA"",396.18,468,3,1548,0)"
^XMB(3.9,22,2,12736,0)="MZ""[=E8WBOOF<;-=HDZ_*ZI`VTN:B!,J[2A]RY\6,AN1*>NSO4X[^.BE2`""D["
^XMB(3.9,22,2,12737,0)="""DATA"",396.18,468,3,1549,0)"
^XMB(3.9,22,2,12738,0)="M?`9:E0-(]OF6-J?BRV.*\COB(4J=:9AHT8I=0B\I+2\JY;V?R'T]7]Q,E^,9"
^XMB(3.9,22,2,12739,0)="""DATA"",396.18,468,3,1550,0)"
^XMB(3.9,22,2,12740,0)="M&E]?H-E\,EY.Y]=_1M1E#?7,9`M/+L;+J`?75Q`+&$?CQ?P:S6.T?'\3H?DE"
^XMB(3.9,22,2,12741,0)="""DATA"",396.18,468,3,1551,0)"
^XMB(3.9,22,2,12742,0)="M6KR)7T7Q^T'I5N9,<6;BO9]Q?LA#JU62N'IFS502G(E*5'F^!\)#K_*2]W;("
^XMB(3.9,22,2,12743,0)="""DATA"",396.18,468,3,1552,0)"
^XMB(3.9,22,2,12744,0)="ML,&U&QE9GR<K0?)F^]LV_[P]40>""8<@CE%2#D7*OU<D(#4EA=GB(SLY6=&:!"
^XMB(3.9,22,2,12745,0)="""DATA"",396.18,468,3,1553,0)"
^XMB(3.9,22,2,12746,0)="MFVHX'U3F=$CTE#..OC^G*(CCYEM'D_(7=Y8#E]Y+&R@KY0SKM$M_R1_3K7:)"
^XMB(3.9,22,2,12747,0)="""DATA"",396.18,468,3,1554,0)"
^XMB(3.9,22,2,12748,0)="MG2A&EW2J74?<+/]3@C4,UHG""IJ?59`K%_2$&=;7^$3TMAO6TOCAZJ6STBFU2"
^XMB(3.9,22,2,12749,0)="""DATA"",396.18,468,3,1555,0)"
^XMB(3.9,22,2,12750,0)="M?H\HAT:9]WQ:UE1:VB15*[,O2]MH5'+JF1?BVB/4='UCRZ4_NQ4A@T\-%VU2"
^XMB(3.9,22,2,12751,0)="""DATA"",396.18,468,3,1556,0)"
^XMB(3.9,22,2,12752,0)="M66RA#LQ""'5@PZ!UAH@X@W2A?`\N`L8A'`YY/N+Z@RJZ(OF#I%Z__1=0^1K(/"
^XMB(3.9,22,2,12753,0)="""DATA"",396.18,468,3,1557,0)"
^XMB(3.9,22,2,12754,0)="M6/8AD+<HVU,G]9\V)2`M;383(6E4KB:O*-.GHA]US3""*VY#8#$76TLTC)[?I"
^XMB(3.9,22,2,12755,0)="""DATA"",396.18,468,3,1558,0)"
^XMB(3.9,22,2,12756,0)="MA@0CT9:F!M;\LO,2(+#D`)6Y*3]C7>G.\&2VRHTR5'5LPEN8/-X/9E&'-1:%"
^XMB(3.9,22,2,12757,0)="""DATA"",396.18,468,3,1559,0)"
^XMB(3.9,22,2,12758,0)="M28[R*]:)0U!?B2(&QJ*NR75^8JPZ#*QG.T35JVY8E0JQ44VZF/`KUN;IE8'$"
^XMB(3.9,22,2,12759,0)="""DATA"",396.18,468,3,1560,0)"
^XMB(3.9,22,2,12760,0)="M7<V42+E6&;UYW.NAVS%CNX1-W,7Q:]@D/9'+9].:GH@/5OJ3>,W(A//>H=`?"
^XMB(3.9,22,2,12761,0)="""DATA"",396.18,468,3,1561,0)"
^XMB(3.9,22,2,12762,0)="M=<X>QD>_2U0STG:).D[ZD(*!B&M)/]FV,R`PR1]N\Y?Y[S:;D1!!L-,9@DZ/"
^XMB(3.9,22,2,12763,0)="""DATA"",396.18,468,3,1562,0)"
^XMB(3.9,22,2,12764,0)="M68X(4*5L$.0.QEO2B$XF&&'W@S&/5CH2&2)FFD1IZ^6D9O=$:37SF-22`1.9"
^XMB(3.9,22,2,12765,0)="""DATA"",396.18,468,3,1563,0)"
^XMB(3.9,22,2,12766,0)="MU,WKP/IFK-NEP62@Q!.DPY@.P@$7T^DWBBAYX&'F\2;;%[?4""(6IYIXAEZM>"
^XMB(3.9,22,2,12767,0)="""DATA"",396.18,468,3,1564,0)"
^XMB(3.9,22,2,12768,0)="MJ2&[D@\N9E`/$MJND``SVC6:C&:Z[*ZZ3B!)0>A%UYCN)2L^8W0#@Q5GK^F;"
^XMB(3.9,22,2,12769,0)="""DATA"",396.18,468,3,1565,0)"
^XMB(3.9,22,2,12770,0)="MX=XP$10:SCD'+U9L*$?^:D14E8)A0SVGYA]9$'O0@N3I)G^DBZ;3TG.]RXK["
^XMB(3.9,22,2,12771,0)="""DATA"",396.18,468,3,1566,0)"
^XMB(3.9,22,2,12772,0)="M&G!&`%F?Y@5&X+8M\%:^.JP=B7H133CK8N7H1[X73K/`1S/F<L7-0PKNF8'["
^XMB(3.9,22,2,12773,0)="""DATA"",396.18,468,3,1567,0)"
^XMB(3.9,22,2,12774,0)="M9N`C,_#`##PT`K<]'?HG+,0:)#WX""$X!:E8),&9;J%IE*%AVA;V=F`*8?MZM"
^XMB(3.9,22,2,12775,0)="""DATA"",396.18,468,3,1568,0)"
^XMB(3.9,22,2,12776,0)="MD98DZL/0J`_+HSYU>^GB/GF#$<!(E<7-_TB%CX:1)*QJBMP*EL6'TJHA$=`?"
^XMB(3.9,22,2,12777,0)="""DATA"",396.18,468,3,1569,0)"
^XMB(3.9,22,2,12778,0)="MWN""YO,&3VFEG5``M/;E1""^)X4U_6#XOCE';&$HO6Q+;]KK8O`\#@VG4!C46$"
^XMB(3.9,22,2,12779,0)="""DATA"",396.18,468,3,1570,0)"
^XMB(3.9,22,2,12780,0)="M6R""T%DHTUT07_FW23_5N,`DS'KR>V+"">GD$],:B>6%9/NL%-RH</KZ)K6$7?"
^XMB(3.9,22,2,12781,0)="""DATA"",396.18,468,3,1571,0)"
^XMB(3.9,22,2,12782,0)="MH(HNJ(JNK(J3?+.6\C&""5]$SK.+(H(H>J(J>L(IE)=OE*)+U'`)O)F7&M\QJ"
^XMB(3.9,22,2,12783,0)="""DATA"",396.18,468,3,1572,0)"
^XMB(3.9,22,2,12784,0)="MRB%75I7!+J\K`9/HLUILI&R;@,J6XTB;JR@:9,Q\K`)IW8BI^4,$QG'(""XMG"
^XMB(3.9,22,2,12785,0)="""DATA"",396.18,468,3,1573,0)"
^XMB(3.9,22,2,12786,0)="M4>'J7""@8DP$2Y9YL5B'SXC[=2:L:`G7AZ'5A*N40*F4'(&6A^$32<>23F#Z?"
^XMB(3.9,22,2,12787,0)="""DATA"",396.18,468,3,1574,0)"
^XMB(3.9,22,2,12788,0)="MG4(3<=8+@Z;A!_@]@^P7EJ260',QV(%,/G36RPV;R_R.269]0+&;*)>2Y'+C"
^XMB(3.9,22,2,12789,0)="""DATA"",396.18,468,3,1575,0)"
^XMB(3.9,22,2,12790,0)="M+,WFLVB^3ZI!.V02`6=GU:XXS0$&\J,/^@.#-ETAG-GDT(K>BE=9/=8$;U.Z"
^XMB(3.9,22,2,12791,0)="""DATA"",396.18,468,3,1576,0)"
^XMB(3.9,22,2,12792,0)="M\'*=%DE&!/!""L^Z2(@R?FQ6ZP(PN\\JW^[30<4!5,:H6MAS+PK+:RD@J02/="
^XMB(3.9,22,2,12793,0)="""DATA"",396.18,468,3,1577,0)"
^XMB(3.9,22,2,12794,0)="MQWQ?#HQ^)D+8KW;9;;4%<44WX#_LBV2[HELOMVN4;;,B2S;H(=EF=R38+7N;"
^XMB(3.9,22,2,12795,0)="""DATA"",396.18,468,3,1578,0)"
^XMB(3.9,22,2,12796,0)="M/66\K$2=`,_ISLO_/NR^Z""I""DTQEL,EZPB/K-,D/.T)]G]$3+$I!_@VZXE<\"
^XMB(3.9,22,2,12797,0)="""DATA"",396.18,468,3,1579,0)"
^XMB(3.9,22,2,12798,0)="MG#Z6C\-N1Z5:-"".)O1D?9*B2MAZU:`;A4ECQ`N4C^"":CET<J-KH1=:6M`V""U"
^XMB(3.9,22,2,12799,0)="""DATA"",396.18,468,3,1580,0)"
^XMB(3.9,22,2,12800,0)="M=^.?P+61C16/J<TB6Q/[OKLCV$H#?4J-!MC%BRM9H,%$@]P!ROQ<1T7L(P<O"
^XMB(3.9,22,2,12801,0)="""DATA"",396.18,468,3,1581,0)"
^XMB(3.9,22,2,12802,0)="M2(UOXOG+672%7D;3ZU?H(EJ.I[/HHK=<LD\A^G5):_]Z'+>+]Z\OII=]ACI'"
^XMB(3.9,22,2,12803,0)="""DATA"",396.18,468,3,1582,0)"
^XMB(3.9,22,2,12804,0)="M9\X+7>9)UVS.KQ?1<K`N-`11KYW<]#I:F).?3./)FZO%<GP](<7I&M7I]70Y"
^XMB(3.9,22,2,12805,0)="""DATA"",396.18,468,3,1583,0)"
^XMB(3.9,22,2,12806,0)="M'<_0U?AZ>AF1+W3!ZF*PEK2AIV&M<UO1+)HLHXOIDHC=G,GYFW@1H<64,,D)"
^XMB(3.9,22,2,12807,0)="""DATA"",396.18,468,3,1584,0)"
^XMB(3.9,22,2,12808,0)="M2DQ#PQCOSY[&X)LXCJZ7:!E'X^45>>K+2TW+B%'JQ)[$:!PM;J@`T7*.#)@>"
^XMB(3.9,22,2,12809,0)="""DATA"",396.18,468,3,1585,0)"
^XMB(3.9,22,2,12810,0)="MTC63KOMTII=R>;IFK+%I&V->HLM+0FOZ-B+6OR!M!<71;!J]I7YD\?[J9CF_"
^XMB(3.9,22,2,12811,0)="""DATA"",396.18,468,3,1586,0)"
^XMB(3.9,22,2,12812,0)="M^G'QD\""3.&53-I/;0.A',#N+W@[7FZMI`*6'O['T<+M`WD!\_A/-;GQS,WM/"
^XMB(3.9,22,2,12813,0)="""DATA"",396.18,468,3,1587,0)"
^XMB(3.9,22,2,12814,0)="M67M-VH=<@OY1$G2_L03=8R0X>BX)3N:S""[D$1T=)T/O&$O2.D&""9UWJ2""/FM"
^XMB(3.9,22,2,12815,0)="""DATA"",396.18,468,3,1588,0)"
^XMB(3.9,22,2,12816,0)="M'!H*0.DUR;%O)KZ&H)D%/E5\5Z3@1.,""CQ-@D^7ZAEU(0Q$0#[KVL0$AW4/T"
^XMB(3.9,22,2,12817,0)="""DATA"",396.18,468,3,1589,0)"
^XMB(3.9,22,2,12818,0)="M,[J8DQB!1H.7<?3/-]'UY#V-48729,B9:3=\HG;GR]=1W,4O`[$I:4%DZ!PK"
^XMB(3.9,22,2,12819,0)="""DATA"",396.18,468,3,1590,0)"
^XMB(3.9,22,2,12820,0)="MPXMH,8FG+TFLJF*0H6$D./S4@'HQO8A098<+JE@N%%2)$CO&HK2?+$E#COM$"
^XMB(3.9,22,2,12821,0)="""DATA"",396.18,468,3,1591,0)"
^XMB(3.9,22,2,12822,0)="M`?P%Q_)7*7@ROQK&SWVL'0.(X6""00R9!=I6IXNGT*\!-U]N""962R&O2G<F4)"
^XMB(3.9,22,2,12823,0)="""DATA"",396.18,468,3,1592,0)"
^XMB(3.9,22,2,12824,0)="M2N[L$<$T4B#=.R%.^`GS5^<FT^%J8,U2*/W:&4$:/I""\'\DV(O(I?T$N69(M"
^XMB(3.9,22,2,12825,0)="""DATA"",396.18,468,3,1593,0)"
^XMB(3.9,22,2,12826,0)="M-EN0Q9P=;9_\L3SC.9=G2&9DCI_IDD^WG4-G+W53N;J%"";H)??!L^&""ZR#9:"
^XMB(3.9,22,2,12827,0)="""DATA"",396.18,468,3,1594,0)"
^XMB(3.9,22,2,12828,0)="MU0@^5DBU\K2[C$!5CMN=J]E59'KLR\@(GUG%RRG1]CX$])KXSEQ17X$+UZ@E"
^XMB(3.9,22,2,12829,0)="""DATA"",396.18,468,3,1595,0)"
^XMB(3.9,22,2,12830,0)="M4""X#'N#""AKC8%<K5TO?-!E7G.7<KX&L#""A5KEME%U7QK[6WRX<%MUPP^-$3O"
^XMB(3.9,22,2,12831,0)="""DATA"",396.18,468,3,1596,0)"
^XMB(3.9,22,2,12832,0)="MF,%[9N`^&+SR9=B0>]L0WA+#:^9XQ8LHT-E9D6[7Z8Y>U\#L6;]/5[]1SR6?"
^XMB(3.9,22,2,12833,0)="""DATA"",396.18,468,3,1597,0)"
^XMB(3.9,22,2,12834,0)="M]&U!'#T(5DX=.[[)W+%\M86*>V[^6,""^'`8#8$A#IX\:6GH8+(<9""(N9]!X<"
^XMB(3.9,22,2,12835,0)="""DATA"",396.18,468,3,1598,0)"
^XMB(3.9,22,2,12836,0)="M;>!K+<)V92:Q^)QN-L21B-C#>H/PM1`CM3E8)N9@NW![P`![\/4@(ST(!EB#"
^XMB(3.9,22,2,12837,0)="""DATA"",396.18,468,3,1599,0)"
^XMB(3.9,22,2,12838,0)="MKP<9:6S!`MF""I;6%4&8*U8I""GK%`J^-0""V%;:C,P6E$2PJT@T*LOU(/8EAXF"
^XMB(3.9,22,2,12839,0)="""DATA"",396.18,468,3,1600,0)"
^XMB(3.9,22,2,12840,0)="MT&LXU(/0`R.55F""#K,#6>P1'9@;UA3Y""[O0.P=;W$.JU15P7H_8(#MP6;(!'"
^XMB(3.9,22,2,12841,0)="""DATA"",396.18,468,3,1601,0)"
^XMB(3.9,22,2,12842,0)="ML`$]!`0-P""78@`[""UEB#`[(&1VL-GK1[*+([J37HG;\]TH,$:G-P3<S!,[`&"
^XMB(3.9,22,2,12843,0)="""DATA"",396.18,468,3,1602,0)"
^XMB(3.9,22,2,12844,0)="M@/.W`=[?!K@8&^#^[1$`)M#8@PNR!U=K#[[,'LJ[7""2!GSXTU'0""GHFJ?8/0"
^XMB(3.9,22,2,12845,0)="""DATA"",396.18,468,3,1603,0)"
^XMB(3.9,22,2,12846,0)="M$!#1`3P\)*#3N6\/I""!/[[ZQ3$/OTN0W:8MU]<W14^O(Z%`%&QNT1Q?0CCP`"
^XMB(3.9,22,2,12847,0)="""DATA"",396.18,468,3,1604,0)"
^XMB(3.9,22,2,12848,0)="MC`MH1YY&31BD)JQ7DRU3$REXV""6#V[5:,]+K""3OJ%;IFO:AMT)@`>L*0%@?0"
^XMB(3.9,22,2,12849,0)="""DATA"",396.18,468,3,1605,0)"
^XMB(3.9,22,2,12850,0)="M$W;4>K)!_9^M[_\$`^U:3_42>0%O6A7IE:AI:R,C'5H&8R.]>@!:!C1&K-<Q"
^XMB(3.9,22,2,12851,0)="""DATA"",396.18,468,3,1606,0)"
^XMB(3.9,22,2,12852,0)="MP`QTK74$:JVCP<X;>0ZPN^/TF""2@HT[<A8H=YVR2SK9'X""R=;9JF,\R[.989"
^XMB(3.9,22,2,12853,0)="""DATA"",396.18,468,3,1607,0)"
^XMB(3.9,22,2,12854,0)="M/#9,`V+#1!TVS*1AWU`^OFEJSW>`N;I:N>!C5$)A3KMGRA)_$!R3\K'U;LW6"
^XMB(3.9,22,2,12855,0)="""DATA"",396.18,468,3,1608,0)"
^XMB(3.9,22,2,12856,0)="MC_8=M6/#1J-]VR`):`,\FPT8\#N00`/@W&S`D-_1N#<,&O)CP)#?./.#`7&("
^XMB(3.9,22,2,12857,0)="""DATA"",396.18,468,3,1609,0)"
^XMB(3.9,22,2,12858,0)="MIP?QU=9@%JH8)'\P)%2!]&*`H2*&A#,>`,;76`,HY,'ZD,>QCD@`8?UX'NO3"
^XMB(3.9,22,2,12859,0)="""DATA"",396.18,468,3,1610,0)"
^XMB(3.9,22,2,12860,0)="MA3A4&X31&,,QB7L@V5S`>!X#7`@&C.<Q(&F(0XU!@,8J6#]6P?8Q0TI7GQ)T"
^XMB(3.9,22,2,12861,0)="""DATA"",396.18,468,3,1611,0)"
^XMB(3.9,22,2,12862,0)="MU4,5;)3AP09#%1>0J7,!0Q47D,US-4,5#$K-8'UJ!KNJ7)TT6><""QBMZ;^]J"
^XMB(3.9,22,2,12863,0)="""DATA"",396.18,468,3,1612,0)"
^XMB(3.9,22,2,12864,0)="M.G:C#`XVF,UQ(4,6@+MW`>[>A8Q:`.[>U77LH&00UB>#L'=$NL[5NW)7G9K%"
^XMB(3.9,22,2,12865,0)="""DATA"",396.18,468,3,1613,0)"
^XMB(3.9,22,2,12866,0)="M1E.YV""`WZP+\M`OPTR[`![N:G""H&S<%B_1PLEB95;Y)L*V1-'VE[EAY$/=^"""
^XMB(3.9,22,2,12867,0)="""DATA"",396.18,468,3,1614,0)"
^XMB(3.9,22,2,12868,0)="MC;(,V""#MZ@)Z20^0=_4@;AP0:'L6`$8SXX)!N08\@@S0?,<XZ>3KD^P^8-)>"
^XMB(3.9,22,2,12869,0)="""DATA"",396.18,468,3,1615,0)"
^XMB(3.9,22,2,12870,0)="MG8>W+;/$DV\P!^<#].U#9NX!W;8/T+</F;O792$MD%$0,/T0S9?F]3?)ZC>Z"
^XMB(3.9,22,2,12871,0)="""DATA"",396.18,468,3,1616,0)"
^XMB(3.9,22,2,12872,0)="M35B9./;UO;SO:I0?F""G?(,7O`SIQ']"")^X`.VG=U2@M@2@MD=TRAF_LO^_+R"
^XMB(3.9,22,2,12873,0)="""DATA"",396.18,468,3,1617,0)"
^XMB(3.9,22,2,12874,0)="M+'K7Y""`GV%]).,SK>5AW8*CC:E<*=NA\UQP=OUBP[H,:U&QR:^3HC[TME]C:"
^XMB(3.9,22,2,12875,0)="""DATA"",396.18,468,3,1618,0)"
^XMB(3.9,22,2,12876,0)="M@O-T>C#ERES^-""9F.[N>NO#(6P%Y_BA;CKYH'7H'V#^VE,HH6J?T[A()F[X+"
^XMB(3.9,22,2,12877,0)="""DATA"",396.18,468,3,1619,0)"
^XMB(3.9,22,2,12878,0)="M%9+EJ(1$N7!]4R'Y+EA(EJ,4$D=?*21_**3I=E\DM]DF*[[(F0V`H@KTYC0R"
^XMB(3.9,22,2,12879,0)="""DATA"",396.18,468,3,1620,0)"
^XMB(3.9,22,2,12880,0)="MEE0`E50`L*815%""CH:""6_<68$LN'FE3@:^44&#<[L$4%OEY.`51.P5!.O>R#"
^XMB(3.9,22,2,12881,0)="""DATA"",396.18,468,3,1621,0)"
^XMB(3.9,22,2,12882,0)="MA%$?**50;TVAL91\J)1""@#6%4""F%?2EU`:.81SR""""DAK1IYE*B`\`@M(;T:>"
^XMB(3.9,22,2,12883,0)="""DATA"",396.18,468,3,1622,0)"
^XMB(3.9,22,2,12884,0)="M!1209PW-:'Q;+85'[])R>N\E*5-.@L@YAWJI,%"");1[/JO/3'6/103Q5#[U\"
^XMB(3.9,22,2,12885,0)="""DATA"",396.18,468,3,1623,0)"
^XMB(3.9,22,2,12886,0)="M&XZ4#^YF\2ZZ:,]]YQ&7YL9,AE5R$+0>5GW*<T-51&G5(50%H5Q'7,D./Z]V"
^XMB(3.9,22,2,12887,0)="""DATA"",396.18,468,3,1624,0)"
^XMB(3.9,22,2,12888,0)="M=O8VV:_HS>-G^]\4T1$.P1V_I6U?KK&1A/"".W](W,!?:P%S6`[U.'A[279&G"
^XMB(3.9,22,2,12889,0)="""DATA"",396.18,468,3,1625,0)"
^XMB(3.9,22,2,12890,0)="M<C]M`_QTB=I326E#J^(9QT<VQ$]SU'DA\>254O)8*4TVR>>[<D@@8=.UP+:D"
^XMB(3.9,22,2,12891,0)="""DATA"",396.18,468,3,1626,0)"
^XMB(3.9,22,2,12892,0)="M]]7&H9%KP6T)X*RAL9''Q4:OD\WF\#MZFVP^'N0&Y8&')5:@%99Q?.3!AR56"
^XMB(3.9,22,2,12893,0)="""DATA"",396.18,468,3,1627,0)"
^XMB(3.9,22,2,12894,0)="MH!<6-$#RN``)J7M_#T.E9-M:*1G'1QX&2\FV]5*""!DA>R$H)=$'2N-CEC_=?"
^XMB(3.9,22,2,12895,0)="""DATA"",396.18,468,3,1628,0)"
^XMB(3.9,22,2,12896,0)="M]+""R@Q5L_8FIU4Y4OSMRCMOL3=GW;;6<];2%1Z9RQ`5GIG+D56+V[:$Q:H5\"
^XMB(3.9,22,2,12897,0)="""DATA"",396.18,468,3,1629,0)"
^XMB(3.9,22,2,12898,0)="ME6P.V_((X"".E['E`*=MVKS,3BUDY$!\8\LA4)9X'50G#J4PG#E0GCKH6ZBA1"
^XMB(3.9,22,2,12899,0)="""DATA"",396.18,468,3,1630,0)"
^XMB(3.9,22,2,12900,0)="M46E!K""A687/;6$&[.O0C383])(=MA$<+?""B39N);)T(7=I]F""#C'ODR+N9[R"
^XMB(3.9,22,2,12901,0)="""DATA"",396.18,468,3,1631,0)"
^XMB(3.9,22,2,12902,0)="MCJ;RBGK;""2F""Z!.Q6GK%]N`KMH9?U281NM!;(WCF5&<FD-!.^L7F;^""4[G$?"
^XMB(3.9,22,2,12903,0)="""DATA"",396.18,468,3,1632,0)"
^XMB(3.9,22,2,12904,0)="M[*TQW-F/+4-XVQ#>\$85C`WA74-XSQ#>-X0?&<('AO""&^G4-]>L:ZM?7\M^<"
^XMB(3.9,22,2,12905,0)="""DATA"",396.18,468,3,1633,0)"
^XMB(3.9,22,2,12906,0)="MP2`[A$%JW:5KHZ5ORSUV$@`V3VB![SOSL?""FCOK(@K!_K0O$KW48.I\(*RI;"
^XMB(3.9,22,2,12907,0)="""DATA"",396.18,468,3,1634,0)"
^XMB(3.9,22,2,12908,0)="M;&K9@O/+K^NC`8P<0%7(U`U`2GUM9_""U&_=7;JR^;(6W2J(&-]68W6N#72-H"
^XMB(3.9,22,2,12909,0)="""DATA"",396.18,468,3,1635,0)"
^XMB(3.9,22,2,12910,0)="MSPAZ9`0=&$%C8RGZQB5""TQ*Z43_,M\KO*!%?/]*-V'C'V.;:N$&:=B0MNGB#"
^XMB(3.9,22,2,12911,0)="""DATA"",396.18,468,3,1636,0)"
^XMB(3.9,22,2,12912,0)="M&R,.*#+I/25)\;A0?).&QE-W7K(,\\11Y]`']N>1Z^C0L-1X=9]M-NE^1N5<"
^XMB(3.9,22,2,12913,0)="""DATA"",396.18,468,3,1637,0)"
^XMB(3.9,22,2,12914,0)="M\GHB/VG=""87W2B,3^)[SE7!!M<3<&JLY_QU;9ER)X(_G2J`^$H=+U#<@S:JO"
^XMB(3.9,22,2,12915,0)="""DATA"",396.18,468,3,1638,0)"
^XMB(3.9,22,2,12916,0)="M#-\-2_VAON=6'RDU:]77HAC(?-9HJ@_0PR#0B7FL81IL,%?3:GM@:?64/?&@"
^XMB(3.9,22,2,12917,0)="""DATA"",396.18,468,3,1639,0)"
^XMB(3.9,22,2,12918,0)="ME,CXL=3XL<KXL<SXY:6440""@NST[N\K6=0(<%BP8(I59,.2VQJ\3,""J<EB_5"
^XMB(3.9,22,2,12919,0)="""DATA"",396.18,468,3,1640,0)"
^XMB(3.9,22,2,12920,0)="MFZ_2FR^3BP_6VT@G8O\(O05/0""K3FW^$WIXG$%?H31HK8%6L@&6Q`E]*)@WQ"
^XMB(3.9,22,2,12921,0)="""DATA"",396.18,468,3,1641,0)"
^XMB(3.9,22,2,12922,0)="M1&-Y5M^VOE<-B>,_/F8;IB##+H1""T`RG+9M\-&.I#=@T/`G@)!D!]5&KH=-<"
^XMB(3.9,22,2,12923,0)="""DATA"",396.18,468,3,1642,0)"
^XMB(3.9,22,2,12924,0)="M5UU7E`R&Q7LOY5DXU1F%LL/U])E'T$&%@_1JN5L9FE^MMC9+$JP!,,$:`!.L"
^XMB(3.9,22,2,12925,0)="""DATA"",396.18,468,3,1643,0)"
^XMB(3.9,22,2,12926,0)="MG@U(L+J.*L'J8L,$:P!-L/+,J1.LCO2+>W2""U37,8;B&""4W#4VAMPV-H;<-S"
^XMB(3.9,22,2,12927,0)="""DATA"",396.18,468,3,1644,0)"
^XMB(3.9,22,2,12928,0)="M:&W#@VAMPY-H;<],GIXA^YYA_M,S3&EYANKU#-7KCZ#Y55^17R6U4N=71Z#T"
^XMB(3.9,22,2,12929,0)="""DATA"",396.18,468,3,1645,0)"
^XMB(3.9,22,2,12930,0)="M*N`8X'8RUU:D5P.L2:\&FO1JY1)A9:7Y57Q4?M5UCLF4NOBH4E_;%WSMMOV5"
^XMB(3.9,22,2,12931,0)="""DATA"",396.18,468,3,1646,0)"
^XMB(3.9,22,2,12932,0)="M&Y^@<>BR=D8Y4-<H!^H:Y4!=HQRH9QE!&V617>-LJ><8EO#,26#C]*IG<!DZ"
^XMB(3.9,22,2,12933,0)="""DATA"",396.18,468,3,1647,0)"
^XMB(3.9,22,2,12934,0)="MZRT9%R%VB_Q""QLK+*59/UIE07[=^<D!,O&R2H\;LD)&04ZVLM(7C)!+92<9)"
^XMB(3.9,22,2,12935,0)="""DATA"",396.18,468,3,1648,0)"
^XMB(3.9,22,2,12936,0)="M`[_'CI/*@-""P5),@B2%).=<Q2W^)X)7IK_B8I)R+#;G""S\F52'W2M)*K2BNY"
^XMB(3.9,22,2,12937,0)="""DATA"",396.18,468,3,1649,0)"
^XMB(3.9,22,2,12938,0)="MLK22HM0?ZGMN]9%2,9=3C0<RCX?YQ5B04XV!.559?&$:8.ARJJXKRX[&JE*>"
^XMB(3.9,22,2,12939,0)="""DATA"",396.18,468,3,1650,0)"
^XMB(3.9,22,2,12940,0)="MHI3(^*6Y.5>5FW-EN3D7G)MS=;DYETNC7>:[5).<<X,G8)69,&0O.""A(-(L1"
^XMB(3.9,22,2,12941,0)="""DATA"",396.18,468,3,1651,0)"
^XMB(3.9,22,2,12942,0)="MI2[+DRG-4^C,DZC,`VN,C:?T`0LDF>K91^.4+$8T5Y8DXC8+N.7]BR<-#SQ5"
^XMB(3.9,22,2,12943,0)="""DATA"",396.18,468,3,1652,0)"
^XMB(3.9,22,2,12944,0)="M>.#)P@.^E.QR0,<LC5KG(@-1?E0<#AHN%+5E2\G-6%*E1WUUNE4R\-?<6&6!"
^XMB(3.9,22,2,12945,0)="""DATA"",396.18,468,3,1653,0)"
^XMB(3.9,22,2,12946,0)="M\ZCR9)LBCQI@71Y5FF`<Y%%U=]V@O^<9*7Y170_?E.B.@>2V7&MW<-N6P0YN"
^XMB(3.9,22,2,12947,0)="""DATA"",396.18,468,3,1654,0)"
^XMB(3.9,22,2,12948,0)="M>ARM*3K1=B5TE5>F(MGX*ETX/8S[L68?U\C3CD.4E(?.1T*:&Y9PM!6#DI''"
^XMB(3.9,22,2,12949,0)="""DATA"",396.18,468,3,1655,0)"
^XMB(3.9,22,2,12950,0)="M7H;3G7HHYC%P@-)Q=-+Q0S/I!`Y4.HY6.CYP,YP?LM+I;T:6;'0-H/()=/()"
^XMB(3.9,22,2,12951,0)="""DATA"",396.18,468,3,1656,0)"
^XMB(3.9,22,2,12952,0)="MS.0S""L#R"";3R""8#R""5CY,+O:)6R&4`'IMDF.;$,!A6`!A=KF90.;E\T*J-NE"
^XMB(3.9,22,2,12953,0)="""DATA"",396.18,468,3,1657,0)"
^XMB(3.9,22,2,12954,0)="M+3%R&R@=;.FD8QDV+QLJ'6QII6,!I6.QTJEW:$D8M*""BL76B<0Q%8X%%8VM%"
^XMB(3.9,22,2,12955,0)="""DATA"",396.18,468,3,1658,0)"
^XMB(3.9,22,2,12956,0)="MXP!%XPPN*9/MRY:PC&'""$FWMZ6V%KG<9NX;RPD!Y""3?KJ,FKH.1Q=7_G]$P&"
^XMB(3.9,22,2,12957,0)="""DATA"",396.18,468,3,1659,0)"
^XMB(3.9,22,2,12958,0)="M+MDX'6B[>5>_75M,5+%=.]#W\""[0DES6DIK=VM(H!-C#!YY&+MC0`_G0#C[P"
^XMB(3.9,22,2,12959,0)="""DATA"",396.18,468,3,1660,0)"
^XMB(3.9,22,2,12960,0)="M=++!0`>$!PZHVW@L81'8K.A.`HUP#'MW']JF6-)BZ0![=SSHW=N-GY+^%>B@"
^XMB(3.9,22,2,12961,0)="""DATA"",396.18,468,3,1661,0)"
^XMB(3.9,22,2,12962,0)="M`UWDXQKZFQ'4/P?:P,<%-BIWT*C:??U2_8V@EJ-S-]@P;O9'8,O1^AP,C)MQ"
^XMB(3.9,22,2,12963,0)="""DATA"",396.18,468,3,1662,0)"
^XMB(3.9,22,2,12964,0)="M.!0/LU%=PB@T,K1&N@,T?$,1@2-#:Z03D0>=#?)9$74;?B5&#HT,;5UDJ`RL"
^XMB(3.9,22,2,12965,0)="""DATA"",396.18,468,3,1663,0)"
^XMB(3.9,22,2,12966,0)="M!T0-1[`C<!!I:X-(!VAK3@CDGZ/""P:H""""%UX.@(W<-VXQC=U?_`&KAW7^$#_"
^XMB(3.9,22,2,12967,0)="""DATA"",396.18,468,3,1664,0)"
^XMB(3.9,22,2,12968,0)="MY[O#I$KT\+C)O]!;O\MPZY*YB'DTR(!Q*2K'<7QE*JC+>E6$""""IQ6M1QN.U^"
^XMB(3.9,22,2,12969,0)="""DATA"",396.18,468,3,1665,0)"
^XMB(3.9,22,2,12970,0)="M#3,:P'8R""@HOW5+O.#:I<BK>`-3=-X>EY]ST,5F.""E,-11J>EIPS@I!S?!54"
^XMB(3.9,22,2,12971,0)="""DATA"",396.18,468,3,1666,0)"
^XMB(3.9,22,2,12972,0)="M>WVWTS^&HE""`.0JPFF8`):F4%Z22G$;5:SP:F?CJ)2Q5>,]55PNI7GC3$`\"""
^XMB(3.9,22,2,12973,0)="""DATA"",396.18,468,3,1667,0)"
^XMB(3.9,22,2,12974,0)="M[:$'I-JZG5U]4+5(L,%""EA(<5HU0LPRHU7((AA,OOGL&N3$+^5B3DL.TW""""D"
^XMB(3.9,22,2,12975,0)="""DATA"",396.18,468,3,1668,0)"
^XMB(3.9,22,2,12976,0)="MLSFUQ%H'=P[T;]V\""=QQ#=<""""?V63&K8`EL;MO1.3:5EVP::@VVK[8'QD%)S"
^XMB(3.9,22,2,12977,0)="""DATA"",396.18,468,3,1669,0)"
^XMB(3.9,22,2,12978,0)="M&,&;T0CN66#.5EF[GE^1^JD`C,V""DY6LT.[C4LO=@33#$""[W\%GU9M[8^*4N"
^XMB(3.9,22,2,12979,0)="""DATA"",396.18,468,3,1670,0)"
^XMB(3.9,22,2,12980,0)="M\%;W1YM[3MWU/'UJTF7]'^[TC^IP_A/#!K'K.\Y9_:'1XX,18$_US#W05^T["
^XMB(3.9,22,2,12981,0)="""DATA"",396.18,468,3,1671,0)"
^XMB(3.9,22,2,12982,0)="MSLY8.B,;0N7XR$#65?);-8P[HVYP?""DCU@YJ[Q3L6-^NZ^9Z32''`(9D`T#Y"
^XMB(3.9,22,2,12983,0)="""DATA"",396.18,468,3,1672,0)"
^XMB(3.9,22,2,12984,0)="MV8O<\J)_;Q##*2].BVRG2FQ8T,2&99C8L."")#?5@7>9#94-_VW=5Z'CG*=,Z"
^XMB(3.9,22,2,12985,0)="""DATA"",396.18,468,3,1673,0)"
^XMB(3.9,22,2,12986,0)="M-AKV_W\?XS:6<@XT%'VL:H%'B!H?_W63(9HN_#\C?.*W_YJJ&SY&@?;_?VC]"
^XMB(3.9,22,2,12987,0)="""DATA"",396.18,468,3,1674,0)"
^XMB(3.9,22,2,12988,0)="MCUS;UPU-C_5IW`2!PL*&':':&`=';4DK;-`G#=NCAE<H!\]EJ@;L$?E<D4=Z"
^XMB(3.9,22,2,12989,0)="""DATA"",396.18,468,3,1675,0)"
^XMB(3.9,22,2,12990,0)="ML=./C\T53X^[G!![^$G(LF.Y`*%Y3Q;:D]B22M*#2])[@B3W7U;W65+LLI6."
^XMB(3.9,22,2,12991,0)="""DATA"",396.18,468,3,1676,0)"
^XMB(3.9,22,2,12992,0)="M:TA4Y#^C,(_C3""I/'RY/7]#8@8+]AAQ^(\/ZMIZ@\ZIOMJEVXI7;NB@-.S!\"
^XMB(3.9,22,2,12993,0)="""DATA"",396.18,468,3,1677,0)"
^XMB(3.9,22,2,12994,0)="MP!&ZL-G!$))P#R%^6TFP)X=SJ!BT41B&'H'^[^C<0Z%][15""T]B7^UP""Y4;0"
^XMB(3.9,22,2,12995,0)="""DATA"",396.18,468,3,1678,0)"
^XMB(3.9,22,2,12996,0)="M]7(#)_1T>V)$""PZ$FVV4!_""/+V8HNKLCK.W5IPK5&V(:KLZ%/&&&H7/)^H=Z"
^XMB(3.9,22,2,12997,0)="""DATA"",396.18,468,3,1679,0)"
^XMB(3.9,22,2,12998,0)="M,\R(J^%WW:;5BUD9\-8Z_:XI6JY<>S'+MNF^4?=WXE+O\P-Z..P+E&Z+=(=("
^XMB(3.9,22,2,12999,0)="""DATA"",396.18,468,3,1680,0)"
^XMB(3.9,22,2,13000,0)="M&(+66?)QF^^S_8L3=(HF]\GN1QO_1+#7'+94:G\LW.<F)L?^/A623RLQT[L]"
^XMB(3.9,22,2,13001,0)="""DATA"",396.18,468,3,1681,0)"
^XMB(3.9,22,2,13002,0)="MZ<]53JC2;3R(_ENM#H_E_B_24R6K(OM$/J5:1@=W]N(G,'R1$Y&R?%4,H\/^"
^XMB(3.9,22,2,13003,0)="""DATA"",396.18,468,3,1682,0)"
^XMB(3.9,22,2,13004,0)="M0)A:)]GF2X^UOVE8:W'7$>MWWUVE^WWR,64_JTJ*^*<O+Z;C5]?SQ72!YC&*"
^XMB(3.9,22,2,13005,0)="""DATA"",396.18,468,3,1683,0)"
^XMB(3.9,22,2,13006,0)="MEM/Y;/[J/9I?HIMX_G(67?T94=XX>V'8_8Y)H=$3:FTFV_@=1[9]),*J"":'Q"
^XMB(3.9,22,2,13007,0)="""DATA"",396.18,468,3,1684,0)"
^XMB(3.9,22,2,13008,0)="M8C&?3,?+Z`*]FRY?HY:S'@M#`BP;3>55U%Y%UU$\GJ'Y9/+F9DSJ>TU^1)>7"
^XMB(3.9,22,2,13009,0)="""DATA"",396.18,468,3,1685,0)"
^XMB(3.9,22,2,13010,0)="MT639HR,V6G&E:UCQZB%UU9>OB=POIHOQR^ELNGS_PP)-KV[&DR6:7[,,DG?3"
^XMB(3.9,22,2,13011,0)="""DATA"",396.18,468,3,1686,0)"
^XMB(3.9,22,2,13012,0)="MM]/E-%KP3+HJ)EN1#+CUCN`VCA9O9LOI]2OT;A[_0V`@8MP:ALKU8Z/:K$!\"
^XMB(3.9,22,2,13013,0)="""DATA"",396.18,468,3,1687,0)"
^XMB(3.9,22,2,13014,0)="M$/=^/5^2_^]*1@A#/Z,+8C=H-EXL471U,YN_CRX&AMN2`+!C6R;LS)>OH[@V"
^XMB(3.9,22,2,13015,0)="""DATA"",396.18,468,3,1688,0)"
^XMB(3.9,22,2,13016,0)="MH05,<PP1<QL>QQ&B1*..ZB5]T:B$,D%_7LYGL_D[JK""+\73V7LR+VNU)VCG;"
^XMB(3.9,22,2,13017,0)="""DATA"",396.18,468,3,1689,0)"
^XMB(3.9,22,2,13018,0)="M)?>:R1)J3&CR>AXK&'%L(RL:!@G'<+1X/;^Y(=*2\^0\A2=\#$_1KU$\F2XB"
^XMB(3.9,22,2,13019,0)="""DATA"",396.18,468,3,1690,0)"
^XMB(3.9,22,2,13020,0)="M.4_X*3P=X[30XF8>+Q6:<Y_`D>\?PU$<3>*H;'%2KH:(S>1TC+M$RWC\-IHI"
^XMB(3.9,22,2,13021,0)="""DATA"",396.18,468,3,1691,0)"
^XMB(3.9,22,2,13022,0)="M#<I[`E.2`ZDU3)$?%RJ6AEC-Y!0>P]++,>D'55(*G\)2<`Q+%\0U+90\!4_A"
^XMB(3.9,22,2,13023,0)="""DATA"",396.18,468,3,1692,0)"
^XMB(3.9,22,2,13024,0)="M:724.<VGLVBI9&KT%*:.:GFOXOG\2LG34]J=9QVG/-++*5CR+.,`)7Q!VG&T"
^XMB(3.9,22,2,13025,0)="""DATA"",396.18,468,3,1693,0)"
^XMB(3.9,22,2,13026,0)="M@#(0+2;Q]&6$RM!@V/$WN`!DL1'9\<7%M(XZ)O.KJ^AZ.22-U:39J]/:D6&/"
^XMB(3.9,22,2,13027,0)="""DATA"",396.18,468,3,1694,0)"
^XMB(3.9,22,2,13028,0)="M2/FX*)+=GH&O!Z$^MZ[_.\UA&-P0>!\M:Y7-KU[.7\Y_I9%^].M2<XX*""5OV"
^XMB(3.9,22,2,13029,0)="""DATA"",396.18,468,3,1695,0)"
^XMB(3.9,22,2,13030,0)="M/96>L[#"":'X`TR9`RH%%]7'%YRLPNP&B'1:)H6U+#.Z/!.RYZH-CQ,&U8%]K"
^XMB(3.9,22,2,13031,0)="""DATA"",396.18,468,3,1696,0)"
^XMB(3.9,22,2,13032,0)="M.7LB/=Z>/Z<>-O[5'WU#(C:%#KA(""@Z+#6!=`UC/`-8W@!T9P`8&L""$<EO3B"
^XMB(3.9,22,2,13033,0)="""DATA"",396.18,468,3,1697,0)"
^XMB(3.9,22,2,13034,0)="M8%C?H&Z>$F_EW21[BKH<HF:_:8N)G0^4W;S`&;3ZV""`,R#4/ZR')'RN3QW!^"
^XMB(3.9,22,2,13035,0)="""DATA"",396.18,468,3,1698,0)"
^XMB(3.9,22,2,13036,0)="M!2N_N(95$SH'X5,TNN?!@Y\)C_M,>+QGPN,_$Y[1,^$)G@E/^#QXNC7G3\/C"
^XMB(3.9,22,2,13037,0)="""DATA"",396.18,468,3,1699,0)"
^XMB(3.9,22,2,13038,0)="M/Y.</5-^>DL].5=EBD#@RDQ1&+NT8?CD22<0)O1`L7-]H'0JCX].^U$CC01/"
^XMB(3.9,22,2,13039,0)="""DATA"",396.18,468,3,1700,0)"
^XMB(3.9,22,2,13040,0)="MN=25C"")]/)6'-J?R>.9TF&@^Y1)X?<].""?WEK]5$%9L1WZ2[0G0NIFAF97@J"
^XMB(3.9,22,2,13041,0)="""DATA"",396.18,468,3,1701,0)"
^XMB(3.9,22,2,13042,0)="M6"":;N9C6'<8B^[C-[K)5LBV:^1[A7%EWT)RH#VGJK^MG0N$1>GST.,23PNI#"
^XMB(3.9,22,2,13043,0)="""DATA"",396.18,468,3,1702,0)"
^XMB(3.9,22,2,13044,0)="M`[MC*B18ILW72`$T%.J)KN927""Z$H""LBF*HF]:HC0/+MQW2;%?1(>@%0[^#("
^XMB(3.9,22,2,13045,0)="""DATA"",396.18,468,3,1703,0)"
^XMB(3.9,22,2,13046,0)="M%I!*=-""JRXW9]D@0>0,`%7<Q!Y*3_*0AD!""_XC[EP.2ZCS""0?0B5]Z6R,;#^"
^XMB(3.9,22,2,13047,0)="""DATA"",396.18,468,3,1704,0)"
^XMB(3.9,22,2,13048,0)="M@N61$%YVU4$8O/C47G4`TTM_5-AJ]1Q4MEN1<G;V.=_MTRTQR]LO:)_N/F6K"
^XMB(3.9,22,2,13049,0)="""DATA"",396.18,468,3,1705,0)"
^XMB(3.9,22,2,13050,0)="M5''IG?Q^F$%@&FJ.U*S:JNA@=,V!FH[B&A@E#[*KB!SQ,?BBD7+(+($GPML?"
^XMB(3.9,22,2,13051,0)="""DATA"",396.18,468,3,1706,0)"
^XMB(3.9,22,2,13052,0)="M'M-=]O!(//Q:P?((*K4`)C5L+K416&H!4&H8++5`M#:GMOOADH#R0""/A?4W!"
^XMB(3.9,22,2,13053,0)="""DATA"",396.18,468,3,1707,0)"
^XMB(3.9,22,2,13054,0)="MBUOC<T9)973W-05/N:^I\K^]%14JP&=;5P&-KQ1A!'^,JNKJ2I_KC&OEKN<W"
^XMB(3.9,22,2,13055,0)="""DATA"",396.18,468,3,1708,0)"
^XMB(3.9,22,2,13056,0)="M'^+T7X=T7Y3V0B-'1%\_HEW[>G6?$/^T+LT#2J)N(DCP5^'I0JF3FPT]VA7="
^XMB(3.9,22,2,13057,0)="""DATA"",396.18,468,3,1709,0)"
^XMB(3.9,22,2,13058,0)="MIFA_V*6HR%&V76T.ZQ0EJ%D*.'_,Z$$U+TY.FYQB]W""RO$_1#U?)EF);TH4]"
^XMB(3.9,22,2,13059,0)="""DATA"",396.18,468,3,1710,0)"
^XMB(3.9,22,2,13060,0)="M29'N?T""'HCP4$MWEA^T:'>@IFN5RB1_FCW2Q!(&X+16`DJ)\?YN37P_-8H_]"
^XMB(3.9,22,2,13061,0)="""DATA"",396.18,468,3,1711,0)"
^XMB(3.9,22,2,13062,0)="M:I>F6T2B%<K9@3@(REFR7O-<H:(F^N*DJ5[:]!-5NQ/+^QPB2HJDQ%:*CMKG"
^XMB(3.9,22,2,13063,0)="""DATA"",396.18,468,3,1712,0)"
^XMB(3.9,22,2,13064,0)="M+^T?;94H3C_2H]5($$$DUGVKV^HLV1?Q87MN-SU.]'M6S/]!:-N#;`3E;5H)"
^XMB(3.9,22,2,13065,0)="""DATA"",396.18,468,3,1713,0)"
^XMB(3.9,22,2,13066,0)="MGK)FE29E8%5]E;=6]#G9=Y;46M!5=$&(L?A<*38&V4.Z([9(+*0Q(WD-;$X5"
^XMB(3.9,22,2,13067,0)="""DATA"",396.18,468,3,1714,0)"
^XMB(3.9,22,2,13068,0)="M;2C$PR+AGYYT)<YS2?DALOEOU(C2WVG;!?-F`7BC2Q4X_MH61I<V=>V9MU]J"
^XMB(3.9,22,2,13069,0)="""DATA"",396.18,468,3,1715,0)"
^XMB(3.9,22,2,13070,0)="MPL3D+YK55JA(;IF%3.QCTV))HZ@:U%=J>]KV1B&*>\(O/2.(B#5YZ%K@LZJG"
^XMB(3.9,22,2,13071,0)="""DATA"",396.18,468,3,1716,0)"
^XMB(3.9,22,2,13072,0)="M;H""F7E9LPH/V8,CF@%%$$'Y.T3;]1""2<[&E/>9?O*IG-'UO>*>=,9_&G[_\7"
^XMB(3.9,22,2,13073,0)="""DATA"",396.18,468,3,1717,0)"
^XMB(3.9,22,2,13074,0)="M4$L#!!0``@`(`,"",N#0(3P?'3!$``)R)```0````1F5E=%\Q,3$N<&YL+G)E"
^XMB(3.9,22,2,13075,0)="""DATA"",396.18,468,3,1718,0)"
^XMB(3.9,22,2,13076,0)="M<.U=:V_DMA7];L#_0<!^28HU/!(I2@JV&]`:SHRR>D4/>]TB*-(F0(,VW:)-"
^XMB(3.9,22,2,13077,0)="""DATA"",396.18,468,3,1719,0)"
^XMB(3.9,22,2,13078,0)="M@?[\DI0T(\DBA[R2-RU0!\C:,Q(?]\7+PT,R+K*2Y35MDB)W:+YWQ%_B=_:1"
^XMB(3.9,22,2,13079,0)="""DATA"",396.18,468,3,1720,0)"
^XMB(3.9,22,2,13080,0)="M9DDN/[^].3#6W-[\UN#G]N;VYMV[HFW*MBD.A_?OG?M[IRS*MG0.194YOQ=%"
^XMB(3.9,22,2,13081,0)="""DATA"",396.18,468,3,1721,0)"
^XMB(3.9,22,2,13082,0)="M_:'\_F\__M7[;O[HNW=)OF=Y_]>;-_+9[,>?/_D[\>.^>3-\&)=/6?7]#S]]"
^XMB(3.9,22,2,13083,0)="""DATA"",396.18,468,3,1722,0)"
^XMB(3.9,22,2,13084,0)="M.O[CT[_^WGV-]%][_.O;FXH])NS)*0Y.QO9)3%.G8G%1[6M-]U3-]""Z-9#_\"
^XMB(3.9,22,2,13085,0)="""DATA"",396.18,468,3,1723,0)"
^XMB(3.9,22,2,13086,0)="M](L_U#+_3#3L-^M^;)OP[MWLL_?O;8I`""T4@NR)>7Q`YK]6@12I;B.\.2<J<"
^XMB(3.9,22,2,13087,0)="""DATA"",396.18,468,3,1724,0)"
^XMB(3.9,22,2,13088,0)="M)UI_Y0R=77S6J-\J@YQ9F?/$*J:O#YEU:^H6<9%E_'O1%?%N]S26;\Z?7BB>"
^XMB(3.9,22,2,13089,0)="""DATA"",396.18,468,3,1725,0)"
^XMB(3.9,22,2,13090,0)="MNRCCKM_[)LU9ZDZ<,U]^9]FM7:5;XVGK7?]B9=W?+R4];=E0_*QIT[!Q>S/("
^XMB(3.9,22,2,13091,0)="""DATA"",396.18,468,3,1726,0)"
^XMB(3.9,22,2,13092,0)="M_)3435$]O_!L:W4*""2>UTYRX\APZE""N""R*$H&J[;E#9L[YR*NDP:FB:_Z\)I"
^XMB(3.9,22,2,13093,0)="""DATA"",396.18,468,3,1727,0)"
^XMB(3.9,22,2,13094,0)="M43EU6QU9]?RU0N.NE6""-)1OMII*-=E>5_K*""'&#W2""FHIJ)M1IVF$%\ZXE65"
^XMB(3.9,22,2,13095,0)="""DATA"",396.18,468,3,1728,0)"
^XMB(3.9,22,2,13096,0)="M3)""-3(BQL1'>M.:Y9&^=M(@OP]V>:^[2OHG[D*G[N,1(B&2M##TS8\M94::T"
^XMB(3.9,22,2,13097,0)="""DATA"",396.18,468,3,1729,0)"
^XMB(3.9,22,2,13098,0)="MSE1B]*Q,RS>1X[2""@+>3!T^ISZ;-N+%GW/2/.<T;58`+-*%MKB]1/,]!XL;9"
^XMB(3.9,22,2,13099,0)="""DATA"",396.18,468,3,1730,0)"
^XMB(3.9,22,2,13100,0)="M)_28%S67B=""3J$FK)L-*Y*#$ZQ@,X%S+I?'R$8LFH][$ZK-E=4VN&&U$=':^"
^XMB(3.9,22,2,13101,0)="""DATA"",396.18,468,3,1731,0)"
^XMB(3.9,22,2,13102,0)="M2/(X;?=)?AP""PY?:KB#SKJ!15[A9-)=:I_VQ*-*[:&!<,-=OTAM?D\2J>CP+"
^XMB(3.9,22,2,13103,0)="""DATA"",396.18,468,3,1732,0)"
^XMB(3.9,22,2,13104,0)="MN86\HA=M5DLE!(W[GBH[E,/0\C=$^4V@_`8KOU'FIZZZ;<J4U]VIOHE47X2J"
^XMB(3.9,22,2,13105,0)="""DATA"",396.18,468,3,1733,0)"
^XMB(3.9,22,2,13106,0)="M+XC,C%-V:+H04S]G95-DMS=W\Q_C@!+:QQ/1O)(FN2IXZ-1.1H7^^<<__>7A"
^XMB(3.9,22,2,13107,0)="""DATA"",396.18,468,3,1734,0)"
^XMB(3.9,22,2,13108,0)="MT[\](;HBCMN*)UTGD>G5#7=+[GLVA7CS0IYH^L&R#'0I@XKX73>JM\.I8WA"""
^XMB(3.9,22,2,13109,0)="""DATA"",396.18,468,3,1735,0)"
^XMB(3.9,22,2,13110,0)="M,>?12D02'FI[$5W<P]U-_<,C9J[WTFY!+SGU$TM3+A*5WEQLISBTA>+(>KT%"
^XMB(3.9,22,2,13111,0)="""DATA"",396.18,468,3,1736,0)"
^XMB(3.9,22,2,13112,0)="M8+7M%M0VDI)&=3MUOJ!40@10G(@1)QYK53J+[%06;J""Q:+W&9$R$J<Q=4%DO"
^XMB(3.9,22,2,13113,0)="""DATA"",396.18,468,3,1737,0)"
^XMB(3.9,22,2,13114,0)="M((VZ7(""Z1+`'O<3[L\]9K9RMNIZ=TMPM_,S=($""Z8*UY""UJ[2$FC.`\2(GV`"
^XMB(3.9,22,2,13115,0)="""DATA"",396.18,468,3,1738,0)"
^XMB(3.9,22,2,13116,0)="MXD1NP=.DPT&G.=]2<60+Q04;*""X$:PXOA<B1G#2ZPQ#=$8#NA)@/O(5'^I""D"
^XMB(3.9,22,2,13117,0)="""DATA"",396.18,468,3,1739,0)"
^XMB(3.9,22,2,13118,0)="M2?.L4A^Q3$RVR$MVEMJ;R]]?D/^LKQH5^)""XAR!Q3^1.3XQ^T`8^9.D_>`O_"
^XMB(3.9,22,2,13119,0)="""DATA"",396.18,468,3,1740,0)"
^XMB(3.9,22,2,13120,0)="M\5=J`""UH8-13C?011/HN1/IR5*3Q!]$^EN_;BN:Q$KUT74L_V$(-R%NG!G<^"
^XMB(3.9,22,2,13121,0)="""DATA"",396.18,468,3,1741,0)"
^XMB(3.9,22,2,13122,0)="MA""QU5ZT+%S20B#P%]))3""%1HF)^I'6)GF7%OH`B\?CCQP:-),%/B3$P:7PJ,"
^XMB(3.9,22,2,13123,0)="""DATA"",396.18,468,3,1742,0)"
^XMB(3.9,22,2,13124,0)="M,#WU;%:--RAG^T@Y#T>1&HE0@P=$B1X@)4J!E,@&4J(A2(EL(""5*X2E1""E?="
^XMB(3.9,22,2,13125,0)="""DATA"",396.18,468,3,1743,0)"
^XMB(3.9,22,2,13126,0)="M5Z5\L""N!BO]KXK]%$U5R/%W%C,Q!H\@>-)+BTZ%&R#([\[>8%?F[]=$01]!P"
^XMB(3.9,22,2,13127,0)="""DATA"",396.18,468,3,1744,0)"
^XMB(3.9,22,2,13128,0)="MB`((;(0""2%H10D:RT`0ULH3[W""T&,7<#$,(##V/(A>)&""`1$0(`C]QIRY%I"""
^XMB(3.9,22,2,13129,0)="""DATA"",396.18,468,3,1745,0)"
^XMB(3.9,22,2,13130,0)="M1VB+R2SRU^L-8;#>/`AXA#R`SCQ(YBA#_Q7PR+--&;>`_-`&[H;`,""U""0/0("
^XMB(3.9,22,2,13131,0)="""DATA"",396.18,468,3,1746,0)"
^XMB(3.9,22,2,13132,0)="M029@""(*O2YN\""A\A2X`=^UOD^QLD_!B\,H)\,'Z$(.`%@F!_LI$F`!*R!`#Q"
^XMB(3.9,22,2,13133,0)="""DATA"",396.18,468,3,1747,0)"
^XMB(3.9,22,2,13134,0)="M%LZ'@W4S9T360$@B+;,7*`3$D*/J-0@)66(7>`L0#[LK-8""A$)*(&/9#/P$A"
^XMB(3.9,22,2,13135,0)="""DATA"",396.18,468,3,1748,0)"
^XMB(3.9,22,2,13136,0)="M>'*^9`XB$4LPCVR!(A&T$D7:A>M@I%T(4@AH*4G.4@V!)&*YID2V\`OBKA]:"
^XMB(3.9,22,2,13137,0)="""DATA"",396.18,468,3,1749,0)"
^XMB(3.9,22,2,13138,0)="M""'@IT-U=09/TB@Q,.(S16HZ8C#^T8CU+[)#RW^_:LCZSQ+XIDEPPIVI&:Z:B"
^XMB(3.9,22,2,13139,0)="""DATA"",396.18,468,3,1750,0)"
^XMB(3.9,22,2,13140,0)="MB&$[CIC9]/S3SW_\U""_JM75+4^=0L6];EL?CX6]XB+_GV!3JG4L5;B44M%""H"
^XMB(3.9,22,2,13141,0)="""DATA"",396.18,468,3,1751,0)"
^XMB(3.9,22,2,13142,0)="M#?5(EOATXB;22],I*Q8G@L;9<(N[IVG*'A/Y.Q_<XJ:HZJ_5S""2;JK&P4'8X"
^XMB(3.9,22,2,13143,0)="""DATA"",396.18,468,3,1752,0)"
^XMB(3.9,22,2,13144,0)="ML+CIU';18>ZD229;T!E@5@QTTLX4#VT>BT^X&)*,3^PK29E2-@M/606Y&1<T"
^XMB(3.9,22,2,13145,0)="""DATA"",396.18,468,3,1753,0)"
^XMB(3.9,22,2,13146,0)="M,L(\>YG+I;)+JR[-E[T98L!7B]3D<QEF?M`_K0$>EI_6M*\/+_KFA7,AVCMM"
^XMB(3.9,22,2,13147,0)="""DATA"",396.18,468,3,1754,0)"
^XMB(3.9,22,2,13148,0)="M[[.TKA.>JS[RWY)]?;_G!A:SVLD9V[.]TE?-+*NHTI_^^4OO?WW)]Z(:%:/N"
^XMB(3.9,22,2,13149,0)="""DATA"",396.18,468,3,1755,0)"
^XMB(3.9,22,2,13150,0)="M\H*%UV#)..<Z%2+\HOY2Q`H1JN/3J'-=[>);T>FN=VHC=;&%ZTBR(ZOC*BD'"
^XMB(3.9,22,2,13151,0)="""DATA"",396.18,468,3,1756,0)"
^XMB(3.9,22,2,13152,0)="M'XF+BCNNK+@^%:Q^*_]QDKQFE7""PRGFH*!>&QDT0B!2`.S=.8AH_VS1$I6@?"
^XMB(3.9,22,2,13153,0)="""DATA"",396.18,468,3,1757,0)"
^XMB(3.9,22,2,13154,0)="M`PQ-TOO195Q/CGDBFL3'@)X__)5Z6X""<SCI7./7EZ;F6I/K)OB#@;AE3FJ4&"
^XMB(3.9,22,2,13155,0)="""DATA"",396.18,468,3,1758,0)"
^XMB(3.9,22,2,13156,0)="M-@=`]U@)@:O)H40)M1-E""P)E:8&RM$`I@T@""!Q=RII#_'&6W%GDP(9D7#]_T"
^XMB(3.9,22,2,13157,0)="""DATA"",396.18,468,3,1759,0)"
^XMB(3.9,22,2,13158,0)="M%LM=EK\72[*O0(P/;=J//BIS#:QR""+0SY>MW((5!PW148>Q#J,($FXTM+PWE"
^XMB(3.9,22,2,13159,0)="""DATA"",396.18,468,3,1760,0)"
^XMB(3.9,22,2,13160,0)="MBD0'+%<E2X)M9.DA8UD2I2P7X>6Y%`E$B@%$BH&!%!N>J;!*S'&5-FDE1V0N"
^XMB(3.9,22,2,13161,0)="""DATA"",396.18,468,3,1761,0)"
^XMB(3.9,22,2,13162,0)="MQU`IQTNCM)(,`6D#""2'F&%X7)!^2FAZK45ID:&61QKMQ.O#I6JNTH@P`H@P("
^XMB(3.9,22,2,13163,0)="""DATA"",396.18,468,3,1762,0)"
^XMB(3.9,22,2,13164,0)="MQ"";)=5$.J(O2(HF51?K&<HR4<EP$@N9""C"""">+49ET$LC*<HTY67#E7O""`BOY"
^XMB(3.9,22,2,13165,0)="""DATA"",396.18,468,3,1763,0)"
^XMB(3.9,22,2,13166,0)="M>:;R\R^DFI>-T4G.WT%VQT$\&4T\>:QA^I#SCO.4[(G)=?@'1BO-Z()""RRF$"
^XMB(3.9,22,2,13167,0)="""DATA"",396.18,468,3,1764,0)"
^XMB(3.9,22,2,13168,0)="MW/]SO;ZK,PO=I'@&OO@7;&I1""W.\Q?<@!NQ""PH![#@/\?Z,D6,Y]3C3+>'I?"
^XMB(3.9,22,2,13169,0)="""DATA"",396.18,468,3,1765,0)"
^XMB(3.9,22,2,13170,0)="MJ--ZEYC/;WR1^_!ODA&TRXOF'ST6Z2/;=_OT*U8/FHE3^B220ZW%^M!M4[""]"
^XMB(3.9,22,2,13171,0)="""DATA"",396.18,468,3,1766,0)"
^XMB(3.9,22,2,13172,0)="M5FI1I6G[T7FDZ;&5TZ$J.2;[5CT?LL!4?.$K-#^VZ6B#9U'5R2%E'^4'C<1X"
^XMB(3.9,22,2,13173,0)="""DATA"",396.18,468,3,1767,0)"
^XMB(3.9,22,2,13174,0)="MW+IQ,M;0AE9U<5?R)O&7&+?L#C83KYT7DX1\Y<?JF:,/&=91!`D&T3@8U!\2"
^XMB(3.9,22,2,13175,0)="""DATA"",396.18,468,3,1768,0)"
^XMB(3.9,22,2,13176,0)="MB0H]TCKF7:ZZ""<+@IIIA'446,I5KD/.:1I5HC0Y#C`[O`**1LSN5T8D]F3%]"
^XMB(3.9,22,2,13177,0)="""DATA"",396.18,468,3,1769,0)"
^XMB(3.9,22,2,13178,0)="MY`;WQ>`K7RJ1EIV%<`*Y0$N;5MI)R>VH$7K@8DKH6^?IQ+JQI7+RHNFUQIM'"
^XMB(3.9,22,2,13179,0)="""DATA"",396.18,468,3,1770,0)"
^XMB(3.9,22,2,13180,0)="MG7U5E""7W9-XX)EKS]A)=RZ).!K>G^7/G^L(DQ1]38)#F'U(VL7""-D4(2)M^'"
^XMB(3.9,22,2,13181,0)="""DATA"",396.18,468,3,1771,0)"
^XMB(3.9,22,2,13182,0)="MN+^O&K%X]]J\AS+S(N]_[Q:NA""_RWHMMQ+UG\K\>BER#E%CLS94+$S/(:*DU"
^XMB(3.9,22,2,13183,0)="""DATA"",396.18,468,3,1772,0)"
^XMB(3.9,22,2,13184,0)="M.F,F$,9&9R'LD57<5<:UWH^J7.[>+.>!0(X19!(688TG'7AH%0:K4DJ$%Q=`"
^XMB(3.9,22,2,13185,0)="""DATA"",396.18,468,3,1773,0)"
^XMB(3.9,22,2,13186,0)="MEA,U#-AV[B(UD]$3X9'&IR1-A<^(W>@""&C<A)2ZM)2T4G@NX>)[^*+9CF3*A"
^XMB(3.9,22,2,13187,0)="""DATA"",396.18,468,3,1774,0)"
^XMB(3.9,22,2,13188,0)="M%KIG6`7:F:56\]?Z\RR29D`KZ8-894N:$S?//""G[\5.9RVB7RS7U3E`G`>/("
^XMB(3.9,22,2,13189,0)="""DATA"",396.18,468,3,1775,0)"
^XMB(3.9,22,2,13190,0)="M(S)*6F<""AC>K&L:X1[#=)P)2'4+TUO:$)H=EG&OA\>%<D5H*""*8`O*CXAV=#"
^XMB(3.9,22,2,13191,0)="""DATA"",396.18,468,3,1776,0)"
^XMB(3.9,22,2,13192,0)="MV6-8K?UX,*YC`/'4=?DP/1.0GD5NGR7[JVH&:'F""'@QUF""F9P,0=K%-R`*LU"
^XMB(3.9,22,2,13193,0)="""DATA"",396.18,468,3,1777,0)"
^XMB(3.9,22,2,13194,0)="MA""@YA""D9Q%R5N7-9%</:Q1;*G:3CY[+5_8T,9=NO.<I,BF9%RR<E(KT<*GBY"
^XMB(3.9,22,2,13195,0)="""DATA"",396.18,468,3,1778,0)"
^XMB(3.9,22,2,13196,0)="MZ.W#W$6]).)B]=$3XZ6/CO6PFQ[VA4`;G(8,GO)Y6A6?^AEN(X:&E\.N4L:F"
^XMB(3.9,22,2,13197,0)="""DATA"",396.18,468,3,1779,0)"
^XMB(3.9,22,2,13198,0)="MZ?M2=Y<K-ZW8!54\16J[0=%P+""1FK*&+BAYIU=;W_=1[-$_N4_!""3)+26,2."
^XMB(3.9,22,2,13199,0)="""DATA"",396.18,468,3,1780,0)"
^XMB(3.9,22,2,13200,0)="MO#MG2*R0GY)R.+8I+?*C0S_V)_&(I#UY2.C](7G@)6G6=G=FYQI8F,[PJ"",7"
^XMB(3.9,22,2,13201,0)="""DATA"",396.18,468,3,1781,0)"
^XMB(3.9,22,2,13202,0)="MQDZ,I3VB,#OM1AC#GATKQFIK]R:]/?;R&A9V+8(I,3S/86""N&+K-Z/$)46EJ"
^XMB(3.9,22,2,13203,0)="""DATA"",396.18,468,3,1782,0)"
^XMB(3.9,22,2,13204,0)="MJ'RNF+,%>LS.(D%'^#L#L<G)T7GU>3*%""F=3*&1$/M%4^\*NS3BAYV<=NN]H"
^XMB(3.9,22,2,13205,0)="""DATA"",396.18,468,3,1783,0)"
^XMB(3.9,22,2,13206,0)="M""WQV>3XT3V.YKE&#IQ,9$#ED<L9<UM8Q-S/:5$5Y>CZS:S7S+FS!WY`$.W45"
^XMB(3.9,22,2,13207,0)="""DATA"",396.18,468,3,1784,0)"
^XMB(3.9,22,2,13208,0)="MVCFP""T$1$`1%0)I9:,^#$JG4G@FCU8!=/K+`<Z(S_CPM7(.K1,8,#6*&:PV/"
^XMB(3.9,22,2,13209,0)="""DATA"",396.18,468,3,1785,0)"
^XMB(3.9,22,2,13210,0)="M+I`YSBR,0R(95=KS'KOH8[]TJ""9#*+<^$N5>1:*D<!`E42-04BM""9;X2*M.5"
^XMB(3.9,22,2,13211,0)="""DATA"",396.18,468,3,1786,0)"
^XMB(3.9,22,2,13212,0)="M4-F?4-F?2*[4C+8W+K$N[&D7Q-^*=D'\UZ%=!%O0+@+04D,(66H(O?6TB]!["
^XMB(3.9,22,2,13213,0)="""DATA"",396.18,468,3,1787,0)"
^XMB(3.9,22,2,13214,0)="M'=H%B5;1+@AH<3:`K#$&X2:TB_!U:!=D+>V""0-9G`LCZ3!!M0KL(HM>A703N"
^XMB(3.9,22,2,13215,0)="""DATA"",396.18,468,3,1788,0)"
^XMB(3.9,22,2,13216,0)="M6MI%`!G_0Q?BV>YZVD7HO@[M(MBMHET$.U!\A*R*A;LUM(MP]SJTB\`#TBX"""
^XMB(3.9,22,2,13217,0)="""DATA"",396.18,468,3,1789,0)"
^XMB(3.9,22,2,13218,0)="MR&'<(23]#-%&M(L06=(N\$:T""VQ.NY""T.PO:10!:UB40WA`)5M$NB,61PQV:"
^XMB(3.9,22,2,13219,0)="""DATA"",396.18,468,3,1790,0)"
^XMB(3.9,22,2,13220,0)="MMS'M`H%&<0(9?$BT(>V""V%`$R*]#NR`0-B4DRR3>)K0+8D%ED>`6E':!(.PT"
^XMB(3.9,22,2,13221,0)="""DATA"",396.18,468,3,1791,0)"
^XMB(3.9,22,2,13222,0)="M`@F3!&W$NB`6LW2YUC""`-_T&H_\!!@8""'5P=0)*GP/T\%(S``G62Z^<K*1A>"
^XMB(3.9,22,2,13223,0)="""DATA"",396.18,468,3,1792,0)"
^XMB(3.9,22,2,13224,0)="M!*!@R#DMB((QG\B""*!CA&C9%^-IL""JP^>QRK3[K""ZE/.Y<:-U^)@R-9:<#""P"
^XMB(3.9,22,2,13225,0)="""DATA"",396.18,468,3,1793,0)"
^XMB(3.9,22,2,13226,0)="M!^)@8&3.P<""PI7B,5W(P,&PQ'OOK.1@8N-BH/DX?:\[3!QTQ!:_KU?@>F'QV"
^XMB(3.9,22,2,13227,0)="""DATA"",396.18,468,3,1794,0)"
^XMB(3.9,22,2,13228,0)="MO@<.?@V^!PX_&]_#5ZO95R]M^Y!S1.!5O0ZSQ`<32WP8K\3?K3(F'\95\UV`"
^XMB(3.9,22,2,13229,0)="""DATA"",396.18,468,3,1795,0)"
^XMB(3.9,22,2,13230,0)="M,?FPI7@?=)Z&9+M#>""57BK3@E?BFP]S`%B'&O!+891+J,S==7YTZC->*NM57"
^XMB(3.9,22,2,13231,0)="""DATA"",396.18,468,3,1796,0)"
^XMB(3.9,22,2,13232,0)="MT*44P\KA.AZ)CV`]QVMY)#Z&\4@"".(\DL.""1X%^31X*->22&,7YXU.G6^I1$"
^XMB(3.9,22,2,13233,0)="""DATA"",396.18,468,3,1797,0)"
^XMB(3.9,22,2,13234,0)="M$AE1H$02/UQ+)/%#*R))8,4C""2`TDN!56""3=Z:O76""2^NSF+Q+-@D7CV+!+O"
^XMB(3.9,22,2,13235,0)="""DATA"",396.18,468,3,1798,0)"
^XMB(3.9,22,2,13236,0)="M,[%(@MTZ%DE@L?=%SF!@+!*,(7V#P,=!L!&+)+``D@FV9I$0;,XB\<U9)/X&"
^XMB(3.9,22,2,13237,0)="""DATA"",396.18,468,3,1799,0)"
^XMB(3.9,22,2,13238,0)="M+!+?N&5>:-PR\:ASI$FC/I?$Z^""R*^>2-*QNAKM[#>N.A$U\O*OHL[;C46!^"
^XMB(3.9,22,2,13239,0)="""DATA"",396.18,468,3,1800,0)"
^XMB(3.9,22,2,13240,0)="M$6M$C'LN'A7GD;5I=^X335-'=D*>J-/&#=MK6T4L6F5N*>+1>>""GI00]Q763"
^XMB(3.9,22,2,13241,0)="""DATA"",396.18,468,3,1801,0)"
^XMB(3.9,22,2,13242,0)="M%3<6<6^R7F""^1=.P>=/P(N;#F_?VW#;1SN(A3;YMF4$[0:M7/@2'];O#)_NC"
^XMB(3.9,22,2,13243,0)="""DATA"",396.18,468,3,1802,0)"
^XMB(3.9,22,2,13244,0)="MQ1:UWET)J3[XJ1_L=&YP>W.^O')T)(_^<FTUF\#3\`GF7NQI#ISWI.)N;UA6"
^XMB(3.9,22,2,13245,0)="""DATA"",396.18,468,3,1803,0)"
^XMB(3.9,22,2,13246,0)="MIL6SO/_R?""'O'622-*JQ.P-.G.]7TFML)/$*)*/N.R#R-B:L+'?BEB=N>9,^"
^XMB(3.9,22,2,13247,0)="""DATA"",396.18,468,3,1804,0)"
^XMB(3.9,22,2,13248,0)="M.UV?U$H3[YI-R?H6BG&[+U[5K?!%MTR9[GW*YGGR0A=Q0ZD\FO*LEY?9G7C4"
^XMB(3.9,22,2,13249,0)="""DATA"",396.18,468,3,1805,0)"
^XMB(3.9,22,2,13250,0)="M;DK)WY!;+/MC^>3R:-^?*Q5YUA4)835))N81=>,<JB)SGHKJ@ZA<)JSB*E'7"
^XMB(3.9,22,2,13251,0)="""DATA"",396.18,468,3,1806,0)"
^XMB(3.9,22,2,13252,0)="MN\N*O.$3,%8EQ7ZQYIWY""CGW""K%\$=.VED>:B41GH05\OJ.H77<9F6>QULJ?"
^XMB(3.9,22,2,13253,0)="""DATA"",396.18,468,3,1807,0)"
^XMB(3.9,22,2,13254,0)="M#HQSU>[A@6EQ-JO+U=@\+1#K0ONDCD^T.C*)!<N/9#=$PJ1W+2\`NA;H('/Y"
^XMB(3.9,22,2,13255,0)="""DATA"",396.18,468,3,1808,0)"
^XMB(3.9,22,2,13256,0)="MVM@C*]8DE=8-#<\UEU?62F$-=]UV12]<;*OM,EDZ1Z-S#6D[+TI>]._)JU9&"
^XMB(3.9,22,2,13257,0)="""DATA"",396.18,468,3,1809,0)"
^XMB(3.9,22,2,13258,0)="MZE^NG+\_IWEEQ<=&EEV[$\_SK:J2-V_4S_$IX=E_$AO70JQJN1QJ=TU^""U4A"
^XMB(3.9,22,2,13259,0)="""DATA"",396.18,468,3,1810,0)"
^XMB(3.9,22,2,13260,0)="MH'$BF'&BJ7&V^3!,.`]M(]>?K]LKLHV&D2+J#K6KXFYD,S[)N[HJ1FMQ8N8Q"
^XMB(3.9,22,2,13261,0)="""DATA"",396.18,468,3,1811,0)"
^XMB(3.9,22,2,13262,0)="M>63=!&I6AV:L\K#1#-@T^7AY&S/HI7ZJ/-S]S15U/M52_'9D>=)T""^)[]LC2"
^XMB(3.9,22,2,13263,0)="""DATA"",396.18,468,3,1812,0)"
^XMB(3.9,22,2,13264,0)="MHA0=I6K<V>J4(@RX(]GU)DQ=;F0COE)SZGDVETZ(^]GYP%2S7!@A#_>L$H=R"
^XMB(3.9,22,2,13265,0)="""DATA"",396.18,468,3,1813,0)"
^XMB(3.9,22,2,13266,0)="M*CO@:7""FF5%$D;P>7!`NKN8J402""-`U'NH6W1B(:2:-NQ7""<E5+3;2E%QD:*"
^XMB(3.9,22,2,13267,0)="""DATA"",396.18,468,3,1814,0)"
^XMB(3.9,22,2,13268,0)="MOI]H^?*B6ER!N1-)'H""IO$(SO""@T3=3-IZ<BJM=MEM'J>9BGG`\ISJ<Y1'?)"
^XMB(3.9,22,2,13269,0)="""DATA"",396.18,468,3,1815,0)"
^XMB(3.9,22,2,13270,0)="M?<+382H8G%Q4D^-5YSB""^4&FQHWU1SP@S0&G`+#)]4!G1,E!43@='49AIR@3"
^XMB(3.9,22,2,13271,0)="""DATA"",396.18,468,3,1816,0)"
^XMB(3.9,22,2,13272,0)="MR7""1IV#7C0C^""F,BW7:=RW__`5!+`0(6""Q0``@`(`,"",N#1_]T**070``,Y("
^XMB(3.9,22,2,13273,0)="""DATA"",396.18,468,3,1817,0)"
^XMB(3.9,22,2,13274,0)="M`P`,``````````$`(`""`@0````!&965T7S$Q,2YP;FQ02P$""%@L4``(`""`#%"
^XMB(3.9,22,2,13275,0)="""DATA"",396.18,468,3,1818,0)"
^XMB(3.9,22,2,13276,0)="MC+@T+^\B`4Z3``#!A`8`$``````````!`""``@(%K=```1F5E=%\Q,3$N<&YL"
^XMB(3.9,22,2,13277,0)="""DATA"",396.18,468,3,1819,0)"
^XMB(3.9,22,2,13278,0)="M+F9R;5!+`0(6""Q0``@`(`,"",N#38(>W(8B4``#`E`0`0``````````$`(`""`"
^XMB(3.9,22,2,13279,0)="""DATA"",396.18,468,3,1820,0)"
^XMB(3.9,22,2,13280,0)="M@><'`0!&965T7S$Q,2YP;FPN8V1E4$L!`A8+%``""``@`P(RX-`A/!\=,$0``"
^XMB(3.9,22,2,13281,0)="""DATA"",396.18,468,3,1821,0)"
^XMB(3.9,22,2,13282,0)="MG(D``!```````````0`@`(""!=RT!`$9E971?,3$Q+G!N;""YR97!02P4&````"
^XMB(3.9,22,2,13283,0)="""DATA"",396.18,468,3,1822,0)"
^XMB(3.9,22,2,13284,0)="/``0`!`#T````\3X!````"
^XMB(3.9,22,2,13285,0)="""DATA"",396.18,468,3,1823,0)"
^XMB(3.9,22,2,13286,0)="end"
^XMB(3.9,22,2,13287,0)="""DATA"",396.18,468,4)"
^XMB(3.9,22,2,13288,0)="9^1636066166"
^XMB(3.9,22,2,13289,0)="""DATA"",396.18,468,6)"
^XMB(3.9,22,2,13290,0)="1^749"
^XMB(3.9,22,2,13291,0)="""DATA"",396.18,469,0)"
^XMB(3.9,22,2,13292,0)="HAND, THUMB, AND FINGERS~111F"
^XMB(3.9,22,2,13293,0)="""DATA"",396.18,469,1,0)"
^XMB(3.9,22,2,13294,0)="^^2^2^3060728"
^XMB(3.9,22,2,13295,0)="""DATA"",396.18,469,1,1,0)"
^XMB(3.9,22,2,13296,0)="Last updated on 05/25/2006 ~111 "
^XMB(3.9,22,2,13297,0)="""DATA"",396.18,469,1,2,0)"
^XMB(3.9,22,2,13298,0)="Patch DVBA*2.7*111"
^XMB(3.9,22,2,13299,0)="""DATA"",396.18,469,2)"
^XMB(3.9,22,2,13300,0)="3060413^^3060525.13"
^XMB(3.9,22,2,13301,0)="""DATA"",396.18,469,3,0)"
^XMB(3.9,22,2,13302,0)="^396.184^957^957^3060525^^^^"
^XMB(3.9,22,2,13303,0)="""DATA"",396.18,469,3,1,0)"
^XMB(3.9,22,2,13304,0)="begin 664 Hand_Fingers_Thumb_111.pnl.zip"
^XMB(3.9,22,2,13305,0)="""DATA"",396.18,469,3,2,0)"
^XMB(3.9,22,2,13306,0)="M4$L#!!0``@`(`!1@N3231M'OV#@``'!%`0`:````2&%N9%]&:6YG97)S7U1H"
^XMB(3.9,22,2,13307,0)="""DATA"",396.18,469,3,3,0)"
^XMB(3.9,22,2,13308,0)="M=6UB7S$Q,2YP;FSL/6F,)-=9U5TS-3W3L_?A7=M9E_&QN\[LNN_I62M99N?P"
^XMB(3.9,22,2,13309,0)="""DATA"",396.18,469,3,4,0)"
^XMB(3.9,22,2,13310,0)="MCKVSTYKI]3H!8FJZ7\^4M[JJ4U4]AZT<$!R9*Q!#(@1Q4&(%""#DDC$!Q+!!!"
^XMB(3.9,22,2,13311,0)="""DATA"",396.18,469,3,5,0)"
^XMB(3.9,22,2,13312,0)="M`J.(2XHB88*$^`$$D)!,$HL?$//.ZO>Z7O4Q,[L[LV)_['15=WWO?=_[WG>_"
^XMB(3.9,22,2,13313,0)="""DATA"",396.18,469,3,6,0)"
^XMB(3.9,22,2,13314,0)="MK\JEV916+ADVL`YM--""?2X8'IAS;=QUKX`JH^7%%+3N-^,'!ZV;57U6_']<N"
^XMB(3.9,22,2,13315,0)="""DATA"",396.18,469,3,7,0)"
^XMB(3.9,22,2,13316,0)="M`W-EU5=?C8U<`FO`6FCZP!W2EM>N.C8X!A_U?-<P;=\[/V]L!+\]VO8%@R8^"
^XMB(3.9,22,2,13317,0)="""DATA"",396.18,469,3,8,0)"
^XMB(3.9,22,2,13318,0)="M8-H1#Y@V>V""XY#2:C7E@-X>.SL-O9QVW?GXCN)E.E(WE!;<*W+BB*&6,WA5C"
^XMB(3.9,22,2,13319,0)="""DATA"",396.18,469,3,9,0)"
^XMB(3.9,22,2,13320,0)="M&5@'\/_ES098J*%G,')J\1V,78)@%S]-D8OO&YHR&K[IV-K@_,SBXS,""J""3^"
^XMB(3.9,22,2,13321,0)="""DATA"",396.18,469,3,10,0)"
^XMB(3.9,22,2,13322,0)="M'P&9FQ;`G*!@[@N#&;@\>76:0<'T3J([S^""/XX32/\;/17U/0.G/Q08N0S)H"
^XMB(3.9,22,2,13323,0)="""DATA"",396.18,469,3,11,0)"
^XMB(3.9,22,2,13324,0)="M@Z6%TK42H?J<;4.J)Y;7%@W3`]7D)0?AO.1O6@#>]99,>\4""@U..Y<!?5:PE"
^XMB(3.9,22,2,13325,0)="""DATA"",396.18,469,3,12,0)"
^XMB(3.9,22,2,13326,0)="MTUH#[N@L7-CS4ZN&ZP%_Z,#TS.SDM2OE9Z8N3RXNS91'R+?XD:&*=<DR*C>2"
^XMB(3.9,22,2,13327,0)="""DATA"",396.18,469,3,13,0)"
^XMB(3.9,22,2,13328,0)="M^![%Y@?#^.JJ40?:OODE?<FP/7T)N&:-/(I'3RHC)<,%MH]N)?C5H-0;Q7CC"
^XMB(3.9,22,2,13329,0)="""DATA"",396.18,469,3,14,0)"
^XMB(3.9,22,2,13330,0)="MC]D<(=_7""8\-4<S?5!C]#@;T.W79L*L7])+K+%N@KB\U0,6LF17]LNGYCKNY"
^XMB(3.9,22,2,13331,0)="""DATA"",396.18,469,3,15,0)"
^XMB(3.9,22,2,13332,0)="M3<R^UQ-F6LV[Y%A5`<$`K7TMM#*%(L%K-H;P4O]<H7QQ@^%U=X#7V"",0)^#!"
^XMB(3.9,22,2,13333,0)="""DATA"",396.18,469,3,16,0)"
^XMB(3.9,22,2,13334,0)="MT9K+==/7?4<WJE4=@G=-X*%+?Q7`+^MUP]U,7(>K?-TU&L/R82?(L!\@PV[$"
^XMB(3.9,22,2,13335,0)="""DATA"",396.18,469,3,17,0)"
^XMB(3.9,22,2,13336,0)="M;L*P0^5+3=]W;#(N^9RFZ'X5+Z/Z43;N&3;NX=9NFK*`X;:X(C:T8$]99N7&"
^XMB(3.9,22,2,13337,0)="""DATA"",396.18,469,3,18,0)"
^XMB(3.9,22,2,13338,0)="MT)$-`NQQ`!G;K."";$<-1-&-M:#[)ACL5#*<1]%KCJ5L8+Y,FX_V.TG4\B)[C"
^XMB(3.9,22,2,13339,0)="""DATA"",396.18,469,3,19,0)"
^XMB(3.9,22,2,13340,0)="M@=NYS>)=$!PI+U6@:+<N.1L',([!988(H4&\%1^D6W$L$$(SL>.7'?<Y^G/#"
^XMB(3.9,22,2,13341,0)="""DATA"",396.18,469,3,20,0)"
^XMB(3.9,22,2,13342,0)="M/5]VX<2AF!D^\A1P_=;]1<->`>IT_+AX._CYR&33=\C];N(A3Z9T&$_IB79N"
^XMB(3.9,22,2,13343,0)="""DATA"",396.18,469,3,21,0)"
^XMB(3.9,22,2,13344,0)="M;@G7XTPL+`,X@EX%OF%:H'I[Q%^2K`L&E)""*""AY%NG4>C@DX7@KCN&_:\('N"
^XMB(3.9,22,2,13345,0)="""DATA"",396.18,469,3,22,0)"
^XMB(3.9,22,2,13346,0)="MU/0%&\Y^FZA\OW\6D\T^E^(62/U?)N;>'Y[]X2FG"":>J>Z9=@5CL``H_V""$4"
^XMB(3.9,22,2,13347,0)="""DATA"",396.18,469,3,23,0)"
^XMB(3.9,22,2,13348,0)="MLCP*WV5[NQ1&X<`""%(FN7G'J=0C0NR!=3BJ:/J\(%%&_J(3A/3S5=-'4=-\%"
^XMB(3.9,22,2,13349,0)="""DATA"",396.18,469,3,24,0)"
^XMB(3.9,22,2,13350,0)="MAH]AZC7'A8+7].`H=M5$/[MP&X1)6,OP!$OS!/L,)9CZMQ(,STT#K^*:RVC9"
^XMB(3.9,22,2,13351,0)="""DATA"",396.18,469,3,25,0)"
^XMB(3.9,22,2,13352,0)="MJT`'M1JH(""1=IZY7VI&_,#1C&W`35[N-SPL%]1H;_P7)^/<&XX=&\WH=KD""'"
^XMB(3.9,22,2,13353,0)="""DATA"",396.18,469,3,26,0)"
^XMB(3.9,22,2,13354,0)="MTWBQ&!\.#Q9/G]\='%TH\#/^\0XSSNR6&5,A>'>LZY2SNV3*V7%>-3U/F?`_"
^XMB(3.9,22,2,13355,0)="""DATA"",396.18,469,3,27,0)"
^XMB(3.9,22,2,13356,0)="M8V%+ZU-E8DN!#1]Q8,/Q/!/RW1C44I0YT;<5TZTTZYYO0/'HZ=#4U4T;[G_#"
^XMB(3.9,22,2,13357,0)="""DATA"",396.18,469,3,28,0)"
^XMB(3.9,22,2,13358,0)="MTNN&;=8`_`9!\Y`""0+^O0J,?.FHZE!>F_6S3W42?D/0P=!>LF6`=CF?4]8;K"
^XMB(3.9,22,2,13359,0)="""DATA"",396.18,469,3,29,0)"
^XMB(3.9,22,2,13360,0)="MK*&M![T'X*Y!:*O$7#Y_>Z7*8'D&2K<13$[T:4)0@D^'W(!CU/])IS*I%&?K"
^XMB(3.9,22,2,13361,0)="""DATA"",396.18,469,3,30,0)"
^XMB(3.9,22,2,13362,0)="M($CSH.X02.@3ORSJKS'Q^U:P+D^W(*7'=U""))I%^,Z%ZN`K6!1+LNV+:P(-7"
^XMB(3.9,22,2,13363,0)="""DATA"",396.18,469,3,31,0)"
^XMB(3.9,22,2,13364,0)="M+K1,O)BF""$09"">PC;VC$\Y#%9%8,B[-7%251O@(7#1IHU-0G%QD>T223@A\-"
^XMB(3.9,22,2,13365,0)="""DATA"",396.18,469,3,32,0)"
^XMB(3.9,22,2,13366,0)="M2#;+(9K?/X.8KPJJ2\""""(C@Q,N>#.MM<^]`%-T-MR4>""43L""C:H5Y"".8T-W<"
^XMB(3.9,22,2,13367,0)="""DATA"",396.18,469,3,33,0)"
^XMB(3.9,22,2,13368,0)="MU-<=2""5M>*Z.>`I4=>WN.<14T+K&?+W^*&2\N@E_#;E4&\2Z4FGA,1""%1U90"
^XMB(3.9,22,2,13369,0)="""DATA"",396.18,469,3,34,0)"
^XMB(3.9,22,2,13370,0)="MF`$B7PT0F6DADBGVA<@`""DAH0_.@BFBJ)9::[@K^-+A0?K149I-,SC<MWR0`"
^XMB(3.9,22,2,13371,0)="""DATA"",396.18,469,3,35,0)"
^XMB(3.9,22,2,13372,0)="MAULS'E24`^6ITO7Y1:-J.H^[3K-Q#$]<O)<E""P$5$4;@AXSE_C!`X-TM!+*I"
^XMB(3.9,22,2,13373,0)="""DATA"",396.18,469,3,36,0)"
^XMB(3.9,22,2,13374,0)="MD:559YWXZHG1)YJ>;]8V\;2'A]""?DE'E?-X'E[JKS8M#D$.;==N#EC_3:.V$"
^XMB(3.9,22,2,13375,0)="""DATA"",396.18,469,3,37,0)"
^XMB(3.9,22,2,13376,0)="M4-\'/""U^U>'60V-;)QELG;2@V""NQT-[),43@OXD]L'>&PN)!0/%+G5!,34P$"
^XMB(3.9,22,2,13377,0)="""DATA"",396.18,469,3,38,0)"
^XMB(3.9,22,2,13378,0)="M]-P#N"";""N!9Y7-\.XSK)28CL'D""1""SZ,<MXYCV;\),7R8\'N.QWLID-(TP0!"
^XMB(3.9,22,2,13379,0)="""DATA"",396.18,469,3,39,0)"
^XMB(3.9,22,2,13380,0)="M)""1^;FLX;`N!""""9K%F-=D1V=0\'39@4;#:U11[J,.ER><NK+#I3+^XFLHU?\"
^XMB(3.9,22,2,13381,0)="""DATA"",396.18,469,3,40,0)"
^XMB(3.9,22,2,13382,0)="MONFDGPNY_,1@0++KJZ8/!!'-!7[:A92""_W'QT=%6?#1#XH3Q]^+Q36;R![&)"
^XMB(3.9,22,2,13383,0)="""DATA"",396.18,469,3,41,0)"
^XMB(3.9,22,2,13384,0)="MUY0[($`:DX7T<G3)_YY$2$<HZM^61$CO)1'2JXY;AX8>CL(@:W'>0=_NKO@H"
^XMB(3.9,22,2,13385,0)="""DATA"",396.18,469,3,42,0)"
^XMB(3.9,22,2,13386,0)="M<[KOPTCI%*F+\1`?CR9BBG)UH3QS08>^G+EBHQA(U5PQH3XT/&@)-^O+8]""Z"
^XMB(3.9,22,2,13387,0)="""DATA"",396.18,469,3,43,0)"
^XMB(3.9,22,2,13388,0)="MK8(-O097%+ACNN78*\$%8BYZ@:UJ""YHK%J!WSG-`GW50H@$!G9XKZ6>@?>U#"
^XMB(3.9,22,2,13389,0)="""DATA"",396.18,469,3,44,0)"
^XMB(3.9,22,2,13390,0)="M*F*[N;%J6(B:AG5V3""^A;Z$)M&'6I=_/PZ_KP#<JANL(7TS-ZV?@S89#OVW@"
^XMB(3.9,22,2,13391,0)="""DATA"",396.18,469,3,45,0)"
^XMB(3.9,22,2,13392,0)="MNVA.""&(;(#(=9NQC-,^>[Q+]S>5XHE[M0-0&).HLCC0`0CM""-$JM$)F\,?TY"
^XMB(3.9,22,2,13393,0)="""DATA"",396.18,469,3,46,0)"
^XMB(3.9,22,2,13394,0)="MX#K088'F(,`N2,T""&Q`2-/D:T$+$H0L$C/Y>KS4M:#$"":JN-01_F!H:LXX0."
^XMB(3.9,22,2,13395,0)="""DATA"",396.18,469,3,47,0)"
^XMB(3.9,22,2,13396,0)="MG`P<P`;ZNNFOXN<@C`#953C^>9U-SX,<1Q=\#-^P""7N[C+WKF+W9PY#ZA'*F"
^XMB(3.9,22,2,13397,0)="""DATA"",396.18,469,3,48,0)"
^XMB(3.9,22,2,13398,0)="M1^;L._I$2C+S,?8$6L_0(^F4[!E,&?K8M.RQ\13RPHJR9\]WBZ%3KUT]3NS("
^XMB(3.9,22,2,13399,0)="""DATA"",396.18,469,3,49,0)"
^XMB(3.9,22,2,13400,0)="MGU':@\P/M@69>U<E44(URPO5<DBH_M.=(%3CLIW""$@BOBT(U&0L+U8>(4.6U"
^XMB(3.9,22,2,13401,0)="""DATA"",396.18,469,3,50,0)"
^XMB(3.9,22,2,13402,0)="M*6:#&>A=0Q:&O'[5\<'NDJX9&I4]B;&[CV*G2P3!\!Z6KHU;+%YI%HA2=38D"
^XMB(3.9,22,2,13403,0)="""DATA"",396.18,469,3,51,0)"
^XMB(3.9,22,2,13404,0)="M7G,!56/Q_Q>OMUJ\!AA1IMT:+H5N\Y)-J[N\EZ5J\SPW?81RTT1XCVIOE^&X"
^XMB(3.9,22,2,13405,0)="""DATA"",396.18,469,3,52,0)"
^XMB(3.9,22,2,13406,0)="M#<<SV>1K3;O""([**HX5>:[G77;B]]*KC>B::#:CJF12::#:8**&/9""-A7*/V"
^XMB(3.9,22,2,13407,0)="""DATA"",396.18,469,3,53,0)"
^XMB(3.9,22,2,13408,0)="M']O%%&@;1/1DL`""ZL5R%XA+^""MUV'=]`GST4""35\[F<-HZK7#!3R;/$WNNEU"
^XMB(3.9,22,2,13409,0)="""DATA"",396.18,469,3,54,0)"
^XMB(3.9,22,2,13410,0)="MUY>T=.``T9=?N@7ZDH;<!O""2Q>F2_7N@+[]R)U1IJ!)F31=ID.Y@3$#]-R5."
^XMB(3.9,22,2,13411,0)="""DATA"",396.18,469,3,55,0)"
^XMB(3.9,22,2,13412,0)="MR#&B+W>U]S%.6>=UPCHOL=#(MR0II+[J)%A@.QD$MM-DFZNOD*&^QKATL]US"
^XMB(3.9,22,2,13413,0)="""DATA"",396.18,469,3,56,0)"
^XMB(3.9,22,2,13414,0)="MSF13$P7.3T>N.(XO!GEZ=L6T.\G3S]""YEP,V_%FELTN9GJ""6YF<5WCZ09EM\"
^XMB(3.9,22,2,13415,0)="""DATA"",396.18,469,3,57,0)"
^XMB(3.9,22,2,13416,0)="M1Y%""(%%V]3LBA+-A""`DJ'L[+X=""\SU!,@//N,)SD7`V*!=.&FF],#HJ:=)^)"
^XMB(3.9,22,2,13417,0)="""DATA"",396.18,469,3,58,0)"
^XMB(3.9,22,2,13418,0)="M]3HE*9Q,BE!7+8APLF$XHY`;EL&*B0Q""7PZ+UHV\T16]$0@+ZO)H2#0*<"";>"
^XMB(3.9,22,2,13419,0)="""DATA"",396.18,469,3,59,0)"
^XMB(3.9,22,2,13420,0)="M/\%'^8W,2[!]%,I[).2>A!IF#>B+""_/2-#<UH""F@+`4T+2%2R<#Y`Q&2@)K("
^XMB(3.9,22,2,13421,0)="""DATA"",396.18,469,3,60,0)"
^XMB(3.9,22,2,13422,0)="MC=-]<V,F)7+C]!:Y,9,2N7%ZZ]R824T(7#2]'2Y*IP3.GMXJ9Z=%;IS>.C>F"
^XMB(3.9,22,2,13423,0)="""DATA"",396.18,469,3,61,0)"
^XMB(3.9,22,2,13424,0)="M16[LC>`AR4@S=3:&<2^%<2X<4<QG<KQ`""P.BRV;'ND,J""(FU$""2Z:E]6ND/*"
^XMB(3.9,22,2,13425,0)="""DATA"",396.18,469,3,62,0)"
^XMB(3.9,22,2,13426,0)="MMV4A14A41JMO=YM3<3R;$Y)D(4AIGDR3'::43;5E=]H`903D.D)*M^50VB!E"
^XMB(3.9,22,2,13427,0)="""DATA"",396.18,469,3,63,0)"
^XMB(3.9,22,2,13428,0)="M!8)WA)1IRU""T0<H)9)KL1*:\D`CH)3/'\EF$2RLAH^444[V9B6*VK[S<?7/8"
^XMB(3.9,22,2,13429,0)="""DATA"",396.18,469,3,64,0)"
^XMB(3.9,22,2,13430,0)="M7G4!E@(Z<A&(O""0>QA93<B,]HD47\MN*@-<7I'CE^L)+#^'5H.)[6X@E>T0L"
^XMB(3.9,22,2,13431,0)="""DATA"",396.18,469,3,65,0)"
^XMB(3.9,22,2,13432,0)="M*P@ZAM@K4L3R?2'V@(B848-^#7*N@6_B=6MZ8(NXC8:+&=*\;F1;_WT2@Z^8"
^XMB(3.9,22,2,13433,0)="""DATA"",396.18,469,3,66,0)"
^XMB(3.9,22,2,13434,0)="M$FK5V^$([L9DCW`&E0AWB4K_L\00_62L7?P?C2S1373-&448JFG>4#W,DD:!"
^XMB(3.9,22,2,13435,0)="""DATA"",396.18,469,3,67,0)"
^XMB(3.9,22,2,13436,0)="MBYN7%'\*2I1*AQ\21D_2&1^7E.@_@1Q3.1#J9Z\*,(Y)8$RC*(C,V""E2TGTZ"
^XMB(3.9,22,2,13437,0)="""DATA"",396.18,469,3,68,0)"
^XMB(3.9,22,2,13438,0)="M)L#0PS`TXNWP:;0#0AHM5Q108@F\3X03:1/Y;""$B<Q9O9\L3)>:PSXD.NW9\"
^XMB(3.9,22,2,13439,0)="""DATA"",396.18,469,3,69,0)"
^XMB(3.9,22,2,13440,0)="MF@3:VN_?-1\$R?1S>BGX0NEMI[),@XJQ&*8$`0R)LRT%T$$`)23[=``5/+0V"
^XMB(3.9,22,2,13441,0)="""DATA"",396.18,469,3,70,0)"
^XMB(3.9,22,2,13442,0)="M8CNB@XL(OH8'5X2]$T7P?)9??D;OGY?0NY`J])JI')Q#03TX#<=>T086X4U-"
^XMB(3.9,22,2,13443,0)="""DATA"",396.18,469,3,71,0)"
^XMB(3.9,22,2,13444,0)="MNX(C>A+Z'971CW#!H3A//_7/E'8""PKV=*?0EZ,YB06>2<$K3QJ5AH(K""9DW;"
^XMB(3.9,22,2,13445,0)="""DATA"",396.18,469,3,72,0)"
^XMB(3.9,22,2,13446,0)="MP'4D*`P#B7PQFLH2*3<0G1DN"")OC9`?_MIB.(+#:/H.A61)$TX9QN8^']U0'"
^XMB(3.9,22,2,13447,0)="""DATA"",396.18,469,3,73,0)"
^XMB(3.9,22,2,13448,0)="M0<-7KJLQYLY_)W"")7U0""`@VQ(PV<A=->"",,J3(=Y-TG]BT!P-3G^SN^!P@DE"
^XMB(3.9,22,2,13449,0)="""DATA"",396.18,469,3,74,0)"
^XMB(3.9,22,2,13450,0)="M2B=0A>L1G?""+3""=,,41/1)^C&-Q""^4*!6BX&X?L%.MR'V'#W!,/M%],KO9]N"
^XMB(3.9,22,2,13451,0)="""DATA"",396.18,469,3,75,0)"
^XMB(3.9,22,2,13452,0)="MD`Z;%X9]/GK8X_+<^?9.CQ2H+W""R.Y7;`Y5:E^%ZLJIRG!FA_ATK3RL%W/Q`"
^XMB(3.9,22,2,13453,0)="""DATA"",396.18,469,3,76,0)"
^XMB(3.9,22,2,13454,0)="MP,W%\70/PJ9UV.7#@55E5$FQ.J3=E85YG60N...*A:IQ`/F,=U:O-@&*G2%K"
^XMB(3.9,22,2,13455,0)="""DATA"",396.18,469,3,77,0)"
^XMB(3.9,22,2,13456,0)="M;$RO&;ZYT@1C^CHP;D!&]U#.J>+`69BV02+=KHYV#@(#'=.FBZID6Q),[6JP"
^XMB(3.9,22,2,13457,0)="""DATA"",396.18,469,3,78,0)"
^XMB(3.9,22,2,13458,0)="M:5>OX5_@>!U*AG#3HUF!95`QN)G2:EU^WJCFUE@V+=/?%$6C](P29;IWR*K_"
^XMB(3.9,22,2,13459,0)="""DATA"",396.18,469,3,79,0)"
^XMB(3.9,22,2,13460,0)="M2R@\?;PEDA;!.:<!.#8;WF*`FAHJOT*LBTMTJ;_'TIKJ?]P)&=T!6?B/;3**"
^XMB(3.9,22,2,13461,0)="""DATA"",396.18,469,3,80,0)"
^XMB(3.9,22,2,13462,0)="M^B!%_6N2""/4)$J&>!A4755!7=<@MP%[Q5W=5D#I=I&'>8QBANRE""]\3""5N=["
^XMB(3.9,22,2,13463,0)="""DATA"",396.18,469,3,81,0)"
^XMB(3.9,22,2,13464,0)="M@U,.U0`GC^*$2\(;36_51/G'1M.R\`>4*UN'IB&\N""#GWSRU5/^:U.7^B=+M"
^XMB(3.9,22,2,13465,0)="""DATA"",396.18,469,3,82,0)"
^XMB(3.9,22,2,13466,0)="MS%OO1_I""ZC;-8WJ68OI'`==^0FD9Q<6)/:)O(W9HBH_FG&9'9P)4IWI.(9'5"
^XMB(3.9,22,2,13467,0)="""DATA"",396.18,469,3,83,0)"
^XMB(3.9,22,2,13468,0)="MB._^[3HH8^Y\BB]58@>>?T%2?U$DN_5QHP$=E5F2'T2*@WD\/M0%'D012F["""
^XMB(3.9,22,2,13469,0)="""DATA"",396.18,469,3,84,0)"
^XMB(3.9,22,2,13470,0)="M^TADHXSH;=S-TOU$[>1OD/VT/W2&]/[(_13?HO]-55#\(4SD!RB17V,B47VS"
^XMB(3.9,22,2,13471,0)="""DATA"",396.18,469,3,85,0)"
^XMB(3.9,22,2,13472,0)="M917C'W9VQ]-YNDWW87""GZ/SOEGC2V#V2P\CP,-AAQQ.2T_+(MY*#R/(@UJ*#"
^XMB(3.9,22,2,13473,0)="""DATA"",396.18,469,3,86,0)"
^XMB(3.9,22,2,13474,0)="M`M@QDX/(<2#45Y1H&(%;%^5?9@2$SE$:?U+FSX]G(MP?17YNX?`5E';T(2]#"
^XMB(3.9,22,2,13475,0)="""DATA"",396.18,469,3,87,0)"
^XMB(3.9,22,2,13476,0)="M>PH5DE16M4,+-K%AUAU\`UHW1^<=%Y""?M>YV\(@S`OV>[CCCGCWBFSMC8;E8"
^XMB(3.9,22,2,13477,0)="""DATA"",396.18,469,3,88,0)"
^XMB(3.9,22,2,13478,0)="M85S$E(N]!DUN[I3S_)1_K_.4<[VZQ3LRY6AQ02746TIW>4$"",5WRS/G\#@B,"
^XMB(3.9,22,2,13479,0)="""DATA"",396.18,469,3,89,0)"
^XMB(3.9,22,2,13480,0)="MPO8%QOCV!49QYP1&H7>!D=T=`F.\=X$QOCL$1K$/@3&Q.P3&1!\""(W]K!4:$"
^XMB(3.9,22,2,13481,0)="""DATA"",396.18,469,3,90,0)"
^XMB(3.9,22,2,13482,0)="M+<NRI;].Y,5C=,HOQUJ%*'><,:O)I$..;NE)/CV@GI`8LV=X8[8<%,""A=3`;"
^XMB(3.9,22,2,13483,0)="""DATA"",396.18,469,3,91,0)"
^XMB(3.9,22,2,13484,0)="MI'J05'CN+E<T1R5``2/X*)5^AV5""&`7FI2""H._FF(L`X*5$&6+5$&-$T</X5"
^XMB(3.9,22,2,13485,0)="""DATA"",396.18,469,3,92,0)"
^XMB(3.9,22,2,13486,0)="M`N4#[3;TN[9A0T?LRQ2/^L5.V[*8VAWB.BU0NO.4T[=47D<)$BJN`9ZP1B?\"
^XMB(3.9,22,2,13487,0)="""DATA"",396.18,469,3,93,0)"
^XMB(3.9,22,2,13488,0)="MIX$<>?E.J*L<DNT*VD2`'GYF4:MX(RPY#K""@5<U!)ZYW5[NK-&MB\V\*7QLO"
^XMB(3.9,22,2,13489,0)="""DATA"",396.18,469,3,94,0)"
^XMB(3.9,22,2,13490,0)="MZZ%R^`D6`9ZSUQRX*-56'PXYZ`D!]#T])W`%Z4-W\2EA>F-A&,,!@>5PTAP<"
^XMB(3.9,22,2,13491,0)="""DATA"",396.18,469,3,95,0)"
^XMB(3.9,22,2,13492,0)="M]25F!S;#@$X&,3D'-XVI,KA=T&4'XTZ)T?J?EE2FWDTS62S@P8TA!YWCB6!3"
^XMB(3.9,22,2,13493,0)="""DATA"",396.18,469,3,96,0)"
^XMB(3.9,22,2,13494,0)="MR+\D@7QJ$NT>!->P5YH6""<&;-BOU[HA!9IPFE7Z4!+Z;MZH'&0TMJ+]%`BR;"
^XMB(3.9,22,2,13495,0)="""DATA"",396.18,469,3,97,0)"
^XMB(3.9,22,2,13496,0)="M;-Q'PYNIO<!A9(O*@0DN0M%KE*)_().T^4RO9N;(9$!S+;'HD+8?K%5!.'B:"
^XMB(3.9,22,2,13497,0)="""DATA"",396.18,469,3,98,0)"
^XMB(3.9,22,2,13498,0)="MY>>@?BY@F,#Z>(2;1&XOG6@?#%?$\)LC_J&.],ZVVON(Y75MY)O@R?>OC'P?"
^XMB(3.9,22,2,13499,0)="""DATA"",396.18,469,3,99,0)"
^XMB(3.9,22,2,13500,0)="M""Y3/3W'!YWQA;S0""D&X/:A;\LR)NR\!VNC<ZUZMM(>N9%Q(R'<=KM]6&=B#K"
^XMB(3.9,22,2,13501,0)="""DATA"",396.18,469,3,100,0)"
^XMB(3.9,22,2,13502,0)="MR23^<>&`<1#+B-_'E27T5V$AEJBHG4I4M(%+4/KW5JC""JOJHGGLDDKG1C/,]"
^XMB(3.9,22,2,13503,0)="""DATA"",396.18,469,3,101,0)"
^XMB(3.9,22,2,13504,0)="M5ZI@)Z-#P8IV8M*R@G-E8*,""&CXYFJ/=PW\#;3BK646'S/""7""NHCN+!(6[@0"
^XMB(3.9,22,2,13505,0)="""DATA"",396.18,469,3,102,0)"
^XMB(3.9,22,2,13506,0)="M3()+T1@HAS""9#3!)I\>#;;J%SBZ')WU\N(]X4HYM;9[5-'BO-%?""?Z?AWR3\"
^XMB(3.9,22,2,13507,0)="""DATA"",396.18,469,3,103,0)"
^XMB(3.9,22,2,13508,0)="M.U_2L=F!+Z;FR878]F4_V6*($=#D$HG6IU89XRB:1=EL!&;E==.N.NL)1%:$"
^XMB(3.9,22,2,13509,0)="""DATA"",396.18,469,3,104,0)"
^XMB(3.9,22,2,13510,0)="M>Z(3529ZI`J4,X7T=J@R2C""G*(\2>G`$V""%J#/='C8,B-5A1.R7'M8[DR&Z'"
^XMB(3.9,22,2,13511,0)="""DATA"",396.18,469,3,105,0)"
^XMB(3.9,22,2,13512,0)="M'$G"")#N.O]H#_E$.SSA?/L<""!M\-RI6^<""<X/`F9#4ICB>I#I%IL@""J%#T8Z"
^XMB(3.9,22,2,13513,0)="""DATA"",396.18,469,3,106,0)"
^XMB(3.9,22,2,13514,0)="M/)/VC4VH'<Q=%A&A$4;U=Q6A[7-_7@F-^:D?$4OGG@D#.5;BCG\:C""1R?XEN"
^XMB(3.9,22,2,13515,0)="""DATA"",396.18,469,3,107,0)"
^XMB(3.9,22,2,13516,0)="MK"".DV.DN""O1=DE`U-BF[N5_4XSDD%""'OB&.7X2""KP\P^>%;2W)5S=""#R%L%>"
^XMB(3.9,22,2,13517,0)="""DATA"",396.18,469,3,108,0)"
^XMB(3.9,22,2,13518,0)="M[N1DJ8EX$$/]NA+J5-/R/JZ3ZB5&3W2@=2=.KE[LU%=2F""H-9GV1\-!E.M5O"
^XMB(3.9,22,2,13519,0)="""DATA"",396.18,469,3,109,0)"
^XMB(3.9,22,2,13520,0)="M2IKY?'RN1@NM3*^U_I@>J*$J<M;P&>XQO>K`""4%7""I_<K:$G\*E@\>0S=4G)"
^XMB(3.9,22,2,13521,0)="""DATA"",396.18,469,3,110,0)"
^XMB(3.9,22,2,13522,0)="M.7]\#V*&74C');]WH/`PH/K'-]EYXXO=$""H(_,P0>EA2LG(1M6%'0P?SQ%UA"
^XMB(3.9,22,2,13523,0)="""DATA"",396.18,469,3,111,0)"
^XMB(3.9,22,2,13524,0)="M7:Z"")3CEC%U;VI.`5K!>Z)'&F7%J5?T5<48_'+MY?;CY=I9IGA""M+H33DNZ0"
^XMB(3.9,22,2,13525,0)="""DATA"",396.18,469,3,112,0)"
^XMB(3.9,22,2,13526,0)="M+T0N[;)#CW.W=36@S2&E)[/YA@9CNLG*\USJ1B(*<RX]YI]EJ""0O]M@+M2BL"
^XMB(3.9,22,2,13527,0)="""DATA"",396.18,469,3,113,0)"
^XMB(3.9,22,2,13528,0)="ML/HW#+&_E!V<#2(@T:.CN:+Q>5$A<R9H`%K=B(G]Q26!WY#S,K(%YX5%JXF:"
^XMB(3.9,22,2,13529,0)="""DATA"",396.18,469,3,114,0)"
^XMB(3.9,22,2,13530,0)="M@MY@^V&)NR)C""0>V&DO(""YOG#*7LBU+GMN><U>AL$QGQM)KZZ""PYN`]W>^O@"
^XMB(3.9,22,2,13531,0)="""DATA"",396.18,469,3,115,0)"
^XMB(3.9,22,2,13532,0)="MOK8?_P:P0NL.H8:\H%I8]=(;(:<*V6RIO11J4'ML]4@3/4G,%=]2VL\]\/@7"
^XMB(3.9,22,2,13533,0)="""DATA"",396.18,469,3,116,0)"
^XMB(3.9,22,2,13534,0)="M>W,JMW+D:$BR-`5>F9Y@%?!O!$6^SW!3VPMM3T<E.(X+.X0EHM\?[MT(<2SL"
^XMB(3.9,22,2,13535,0)="""DATA"",396.18,469,3,117,0)"
^XMB(3.9,22,2,13536,0)="M)?;3(J1002@<[R3UVD,HR1T(H3!ZDX!JO$%'_PD9M_=TS+#=.^GA!(K02K__"
^XMB(3.9,22,2,13537,0)="""DATA"",396.18,469,3,118,0)"
^XMB(3.9,22,2,13538,0)="MUJQ%06V\JD2A@)HO9&[>ADV$F9F=QJ6:]!^5$#>?X>:6W4O</-Q!R64%M^ET"
^XMB(3.9,22,2,13539,0)="""DATA"",396.18,469,3,119,0)"
^XMB(3.9,22,2,13540,0)="MZ.#3,2XTE-D%0:Z>N(R6.8UBG(Y3G#[=,N,YG'*W,M08'8L:YYVZ$JN^#6:\"
^XMB(3.9,22,2,13541,0)="""DATA"",396.18,469,3,120,0)"
^XMB(3.9,22,2,13542,0)="MQ.WLS!X*T.W?5H`NWQM1T#(6;D5\KG_\]VT+_T+O^!=W8T!N8!L!.;KVGM`."
^XMB(3.9,22,2,13543,0)="""DATA"",396.18,469,3,121,0)"
^XMB(3.9,22,2,13544,0)="M\+4@""?3Y.R$@-RR-05$]]!N*\!JTY\,!N8,T(%=O-(D[M\LB<L)K7'Z9Z=,7"
^XMB(3.9,22,2,13545,0)="""DATA"",396.18,469,3,122,0)"
^XMB(3.9,22,2,13546,0)="M8N'V?!=CBE*B[T4`&T;%URVG$OBDP*BLZD:`Y1BG%=97`8Z<^*M0[J^LLO<P"
^XMB(3.9,22,2,13547,0)="""DATA"",396.18,469,3,123,0)"
^XMB(3.9,22,2,13548,0)="M^(8UIM?-:M7""(8S@:`)QSS=P4""5XDGGZ^#`94IW,'>:!SI7&D(C`[1#Q81W6"
^XMB(3.9,22,2,13549,0)="""DATA"",396.18,469,3,124,0)"
^XMB(3.9,22,2,13550,0)="MJXYT60M>'%%QZ@T+^&18!`V.""@U!#UVCOH%!FSCD9'M\OS@>K59H`:E`'?7T"
^XMB(3.9,22,2,13551,0)="""DATA"",396.18,469,3,125,0)"
^XMB(3.9,22,2,13552,0)="M)[5HKE$1J.*""NF':\)$NS>W2&>$5+6/,'?FL)$SP(T&8@`5\4-^Y>L,P7=3="
^XMB(3.9,22,2,13553,0)="""DATA"",396.18,469,3,126,0)"
^XMB(3.9,22,2,13554,0)="M_HQW]GRWX`""-H_VQ(L9XG@R?[VPWDP>W>K*""[II_4(3TXC<""_,Q6""W^LI'6T"
^XMB(3.9,22,2,13555,0)="""DATA"",396.18,469,3,127,0)"
^XMB(3.9,22,2,13556,0)="M>?0SE54'C@^)3""*DS/`XRQ=21POH''^<XU#[0>LG6DH[U]_['KK:3_W+8J47"
^XMB(3.9,22,2,13557,0)="""DATA"",396.18,469,3,128,0)"
^XMB(3.9,22,2,13558,0)="M61Q)77XK=R3N`^AW/=.VD_(3*@LZTC:W)V@;<IX%\?A&6#R^AT-Q+[P,(""[!"
^XMB(3.9,22,2,13559,0)="""DATA"",396.18,469,3,129,0)"
^XMB(3.9,22,2,13560,0)="M,<?C^%@LA.-C'(Z9O>12#?3HB=!DS0@FP#Y&`#,F<=ESZ;Y<D2<O&Y[N-5VX"
^XMB(3.9,22,2,13561,0)="""DATA"",396.18,469,3,130,0)"
^XMB(3.9,22,2,13562,0)="MI39UPX(Z`I!NGTT/U)H6.K3-U$N@)?`I4W0\KP'5($JBD""C^Q9V+`ZC1%AWE"
^XMB(3.9,22,2,13563,0)="""DATA"",396.18,469,3,131,0)"
^XMB(3.9,22,2,13564,0)="MA0O""`<.'XG>413<B""=%/T-S#I\0WJOZ7Y""#T_<2BF[4@['--4G^.;6]]:;/>"
^XMB(3.9,22,2,13565,0)="""DATA"",396.18,469,3,132,0)"
^XMB(3.9,22,2,13566,0)="M\)WZ+DNZ,JW[FMB>K;^D*V.,(WB/?)R%A.8EK_N[YC6A+5)SP0>;P*[(*T)9"
^XMB(3.9,22,2,13567,0)="""DATA"",396.18,469,3,133,0)"
^XMB(3.9,22,2,13568,0)="MV)X>DP[@25HA[B?P4/<""TB1(!HZ&_'XN)H*[%`G.@YSK1M6KTD(#U17;T/75"
^XMB(3.9,22,2,13569,0)="""DATA"",396.18,469,3,134,0)"
^XMB(3.9,22,2,13570,0)="M02G-JAP)Q;[,5,?_2-)Z[E/0&(4[_K2'3#C\ZBAJ/@;=%+A.$999-_W`[F8I"
^XMB(3.9,22,2,13571,0)="""DATA"",396.18,469,3,135,0)"
^XMB(3.9,22,2,13572,0)="M2I>F)Z7F(*(>;CG.>%:>!6;M*<F4WV)47)?4Z7*YY:#)`TI`RIM5CM/=58N)"
^XMB(3.9,22,2,13573,0)="""DATA"",396.18,469,3,136,0)"
^XMB(3.9,22,2,13574,0)="M1:8W(9^8Y/#AL(D_3H?\2>E;4$'%;&""B(B)!\]UQ.1)Q(""ECO*$(,)\*PSPZ"
^XMB(3.9,22,2,13575,0)="""DATA"",396.18,469,3,137,0)"
^XMB(3.9,22,2,13576,0)="M:5E@S6R'V*&R)R/PW!AEEY=""[_-""A6Q;C""X=;.MGI>]@""RSMR!2[V?K%K8Y%"
^XMB(3.9,22,2,13577,0)="""DATA"",396.18,469,3,138,0)"
^XMB(3.9,22,2,13578,0)="MB30\UY&&N:W1\,`M)LAH#P2)ZC$E;.=?54+ONN.[IJ5[S8UJUP&X86UJAV?6"
^XMB(3.9,22,2,13579,0)="""DATA"",396.18,469,3,139,0)"
^XMB(3.9,22,2,13580,0)="MD%&3P?W,]75XT]..D'MI=""\#19/MKP8WL^AFKNUF'G>/9S>3""ZB<P=`W@>%J"
^XMB(3.9,22,2,13581,0)="""DATA"",396.18,469,3,140,0)"
^XMB(3.9,22,2,13582,0)="M!UN'9M""UM=FI""C0ER/\NJ$:=#QT(!=[F3:NJ)>8=^*WA`TU;0EH#=)I(6M!K"
^XMB(3.9,22,2,13583,0)="""DATA"",396.18,469,3,141,0)"
^XMB(3.9,22,2,13584,0)="M72:2ZO5`XN!E]!9@;20-F2FC5XU-^#D+/X^3STERGZQ!,@,O<O3B4.M(D4&H"
^XMB(3.9,22,2,13585,0)="""DATA"",396.18,469,3,142,0)"
^XMB(3.9,22,2,13586,0)="M+'%RV&$MPB>OLSG_=Z""I4MR<,WNC!%X:\4CS[=C5YT(1CY/1Y1"")K91#9.01"
^XMB(3.9,22,2,13587,0)="""DATA"",396.18,469,3,143,0)"
^XMB(3.9,22,2,13588,0)="MEM/=7^^N]=D+)LOK.O6=\!+6N27,[:V7U@DDI1O]5:7K$O9;'A]ZK6-.T/5/"
^XMB(3.9,22,2,13589,0)="""DATA"",396.18,469,3,144,0)"
^XMB(3.9,22,2,13590,0)="MA=JJ/MQ2)H6]X/J/2'#D-407%/<""UR2C=6%1<(*8>?6R3""ZG)WH]D7J;4ZAI"
^XMB(3.9,22,2,13591,0)="""DATA"",396.18,469,3,145,0)"
^XMB(3.9,22,2,13592,0)="M_O1[T'FB=63UH19.F73_*=3(@$,O*=6(T$.LHPV<[L,&WF)U^PXV?;TIB<:H"
^XMB(3.9,22,2,13593,0)="""DATA"",396.18,469,3,146,0)"
^XMB(3.9,22,2,13594,0)="MP`PM`?A]X3RG^LT@U_;BG1""92<K>6T]]KM\64VUKX<#,?A*8V3U1&`Z+\0(O"
^XMB(3.9,22,2,13595,0)="""DATA"",396.18,469,3,147,0)"
^XMB(3.9,22,2,13596,0)="M:>^G2/P?>=<>&\=QWN\A'4F)$D7J:<6RUY3MD""XEW^V]%3LV15(6#;U""4G)1"
^XMB(3.9,22,2,13597,0)="""DATA"",396.18,469,3,148,0)"
^XMB(3.9,22,2,13598,0)="MQW&7=\OC6G>WE]L[44S=-$F=H&F,PHW3-DU@.$Z""I`B0H$4+]Q&G2=$T""!JT"
^XMB(3.9,22,2,13599,0)="""DATA"",396.18,469,3,149,0)"
^XMB(3.9,22,2,13600,0)="M08&V?S2MT:1(D=8-',,%FC]:M//X9G;F=O9NER9$'FO8\'+O;F:^;[Z9^>9["
^XMB(3.9,22,2,13601,0)="""DATA"",396.18,469,3,150,0)"
^XMB(3.9,22,2,13602,0)="M_+ZBHD8""#'_""F526D,C#1C8>E5H*A<R<APCZWY*.-M=N[[9QK"",?UP'>*H+4"
^XMB(3.9,22,2,13603,0)="""DATA"",396.18,469,3,151,0)"
^XMB(3.9,22,2,13604,0)="MQ7A72:'\$M-&/A+I;D@@4=.\![4A`5I^/VGY_""96H%'6C655:*BV40FAP`UL"
^XMB(3.9,22,2,13605,0)="""DATA"",396.18,469,3,152,0)"
^XMB(3.9,22,2,13606,0)="MI$QM6K1!QM_C46ZT#7OD_*_,DI$D!3VV6(_O%4[%D$7$KQ@66I(7L+'*+`,B"
^XMB(3.9,22,2,13607,0)="""DATA"",396.18,469,3,153,0)"
^XMB(3.9,22,2,13608,0)="M;&)P<<TD6(I""RGABX()=PH78$H./`9!I8F@1'4\KY%%5;7RS_#W*60""][\W>"
^XMB(3.9,22,2,13609,0)="""DATA"",396.18,469,3,154,0)"
^XMB(3.9,22,2,13610,0)="ML^""Y)>P*JV-*-L(_9@OE,^ZN+J31ZGI_Q&1Z<""KSTFY3!B)/>/Q+>K+07P&H"
^XMB(3.9,22,2,13611,0)="""DATA"",396.18,469,3,155,0)"
^XMB(3.9,22,2,13612,0)="M<7]U$VB^F^[225\T$1P6%-CTLM7J)A#U+)W(<2#J>4[4N$!4^I:%[$7]E2;("
^XMB(3.9,22,2,13613,0)="""DATA"",396.18,469,3,156,0)"
^XMB(3.9,22,2,13614,0)="ME6J3\9Z&\4:Y-^MO=A[2TK#*MP7>D6_(&M337@UJS%NU=5MI45!`+78O(>0>"
^XMB(3.9,22,2,13615,0)="""DATA"",396.18,469,3,157,0)"
^XMB(3.9,22,2,13616,0)="MAE8<]:9^O4Y/""FV9[,+:^-FV52VS(O;C^/3'""5,M;&VL6K3*9X-^Z&BEJF'5"
^XMB(3.9,22,2,13617,0)="""DATA"",396.18,469,3,158,0)"
^XMB(3.9,22,2,13618,0)="M*/H_DLHZ$EP+>V&I""X6""7&.4=>*""P8$VVA*N'``_I\VM66BUH:]B?&S-N&%8"
^XMB(3.9,22,2,13619,0)="""DATA"",396.18,469,3,159,0)"
^XMB(3.9,22,2,13620,0)="M50*CC<.$T._'9^U2F_AE^(#6R-DTA2N]XH@DYA0>AR^@9G#G9703L=#F>&9<"
^XMB(3.9,22,2,13621,0)="""DATA"",396.18,469,3,160,0)"
^XMB(3.9,22,2,13622,0)="M<PA]V/6#.SS=/0$)""L8!WZYV0HX)6M-5X)MBB(AG)KX::66C96A-LV(TR1;"""
^XMB(3.9,22,2,13623,0)="""DATA"",396.18,469,3,161,0)"
^XMB(3.9,22,2,13624,0)="M^=9$/[UAU%M,M\)LTEKK#;/7Z(KBZ!C""R@W%Z""ZPT2V8-RQS36.#)%-!1DA>"
^XMB(3.9,22,2,13625,0)="""DATA"",396.18,469,3,162,0)"
^XMB(3.9,22,2,13626,0)="M8ST2N_=6UC6C5&HWC1+1+QUR6A./.J)`6>F-(1;N%P5,650MI?Y]4?S]U2Z_"
^XMB(3.9,22,2,13627,0)="""DATA"",396.18,469,3,163,0)"
^XMB(3.9,22,2,13628,0)="MUY6_!SQN^'V]R^_3IWW4%[A#_SU57YZ/!%<BP]3WW.ONLG`A>5DN""OT`UV%^"
^XMB(3.9,22,2,13629,0)="""DATA"",396.18,469,3,164,0)"
^XMB(3.9,22,2,13630,0)="M8^>!,^]3N`;A@E>2:KO<].ZQHW2/O69A6\.B5=EF6RR+>#HFGO&Q!Q07U26S"
^XMB(3.9,22,2,13631,0)="""DATA"",396.18,469,3,165,0)"
^XMB(3.9,22,2,13632,0)="MUL!^D3;VB""CN[1FQH?DN,*97VE5'W41!;(*MALO>)@XLF$[#0F.QT4UR`6WK"
^XMB(3.9,22,2,13633,0)="""DATA"",396.18,469,3,166,0)"
^XMB(3.9,22,2,13634,0)="MRM:*0FOQ5]G""&%>D>#]F4C`]Q0)/""B'///\D=K>BD2MVNUYVE(VDQ)'\E#7R"
^XMB(3.9,22,2,13635,0)="""DATA"",396.18,469,3,167,0)"
^XMB(3.9,22,2,13636,0)="MJ+>1?70D&A(.I+G=>I%7CAZTJN-D]""/L#OX,5P.G^?!;,/P+.+AV`DE+""<(9"
^XMB(3.9,22,2,13637,0)="""DATA"",396.18,469,3,168,0)"
^XMB(3.9,22,2,13638,0)="MUNA[$G2+HW&-)BV,O&R@<PWIY)/:A(%SJ2LF^RH<G3IQ!N+3UBR9Y/A!.HI)"
^XMB(3.9,22,2,13639,0)="""DATA"",396.18,469,3,169,0)"
^XMB(3.9,22,2,13640,0)="MVH0(A,G-ND%L9(?H>LX!!#>#V@K$N4=PW34%YRKX_?\?SF7%!?,B6S""/*,)["
^XMB(3.9,22,2,13641,0)="""DATA"",396.18,469,3,170,0)"
^XMB(3.9,22,2,13642,0)="MSE9MNTPM/SX;$X.4_SB=AA=8:[N]K47O5S8@[FSQK[/?WZG8`^B;;;)NX?KV"
^XMB(3.9,22,2,13643,0)="""DATA"",396.18,469,3,171,0)"
^XMB(3.9,22,2,13644,0)="MZZ'H%DXX,=O#K6RAJN<V#]""5R@HOH*!\D`ZC'L*%MZ>G>47&/<N+QP?8MN)?"
^XMB(3.9,22,2,13645,0)="""DATA"",396.18,469,3,172,0)"
^XMB(3.9,22,2,13646,0)="M\;I\\JELMFM)0>D<>LR_H50^D^I>=#4IMO2+75HJ9')=2Z6R*IT/$RY^SW,0"
^XMB(3.9,22,2,13647,0)="""DATA"",396.18,469,3,173,0)"
^XMB(3.9,22,2,13648,0)="MB<3IDGTF2*4UX%R%-/X?S""[UNYTIZ[MR>C(5*@$T?FO6@CJ%:A<^AQ*[\)[J"
^XMB(3.9,22,2,13649,0)="""DATA"",396.18,469,3,174,0)"
^XMB(3.9,22,2,13650,0)="M""S?J:]%)BZ?>$H^25DJ3&UOD8]KQI+_N>D!+)=&M`OVGH__2R<2>3!+?0&MV"
^XMB(3.9,22,2,13651,0)="""DATA"",396.18,469,3,175,0)"
^XMB(3.9,22,2,13652,0)="M1\"")/""HP5OY.),BPTKV&-11V6!ZI!""XMD^%\FDGEA$*^Q0*^JJ+""&;&^=8^F"
^XMB(3.9,22,2,13653,0)="""DATA"",396.18,469,3,176,0)"
^XMB(3.9,22,2,13654,0)="MTEUK`3,S$%TJK_@ME5WY=""HM5P3U,2O!TGM`""I(>X&:EEW:""*VZ_JGQY4CPY"
^XMB(3.9,22,2,13655,0)="""DATA"",396.18,469,3,177,0)"
^XMB(3.9,22,2,13656,0)="M&0Q5_/N*(&F-WG+.VPZ.JZQ:[^-0)HLT&OXMTO;&IEYZV(S>3^C*@8""L*$)%"
^XMB(3.9,22,2,13657,0)="""DATA"",396.18,469,3,178,0)"
^XMB(3.9,22,2,13658,0)="M&4'$QL#RW]2UWG6QS9\'7NU56#7RL^C&<@:'<DW1&""W2.-;6-&M%NUZWUR@&"
^XMB(3.9,22,2,13659,0)="""DATA"",396.18,469,3,179,0)"
^XMB(3.9,22,2,13660,0)="M3`-2Y%HF-F""8ZEXS0J_QCT8Z;7T""#NX""TOGHE+0`50@2%90-YXHB.2Q=^W,*"
^XMB(3.9,22,2,13661,0)="""DATA"",396.18,469,3,180,0)"
^XMB(3.9,22,2,13662,0)="M:![G'&J2)+XAP<>Y=RO8&`9:**7&JF/?#R0*4J/2^-4Z^6R<E-X2OJ#5[1;\"
^XMB(3.9,22,2,13663,0)="""DATA"",396.18,469,3,181,0)"
^XMB(3.9,22,2,13664,0)="M#+,%%^4B+5%K#ACXNJN/;%>B3'D]TL5K>%H$S<)(3K(`.V0,E$^6Z>.DS(&B"
^XMB(3.9,22,2,13665,0)="""DATA"",396.18,469,3,182,0)"
^XMB(3.9,22,2,13666,0)="M=8;&F7T[<HN@?%E2ZO?IEOD=UF]*J5F%JE6LM#1)V/3QAD>1NW?#!1H[]2]1"
^XMB(3.9,22,2,13667,0)="""DATA"",396.18,469,3,183,0)"
^XMB(3.9,22,2,13668,0)="MJ!D.=;P8]1P%Z60AWZ'(80_4'C?446RHUJVAHMZ?V5R0""@&R_ML>EV+L+GYN"
^XMB(3.9,22,2,13669,0)="""DATA"",396.18,469,3,184,0)"
^XMB(3.9,22,2,13670,0)="MIOL""F->O4&1:DKYO1ORE;U.*L$*B=/S]U*,WXW]K&8""=+'AE/V5_&:F_ZV'Z"
^XMB(3.9,22,2,13671,0)="""DATA"",396.18,469,3,185,0)"
^XMB(3.9,22,2,13672,0)="MBX=U0XO+PHT>=67F*:Y$YC/)/I""9`5]C-=S]7Y##`)_@QNK1G:""[C2@N[W`$"
^XMB(3.9,22,2,13673,0)="""DATA"",396.18,469,3,186,0)"
^XMB(3.9,22,2,13674,0)="M7I:*17Q5H;D=!\W-<H@U%9V#2TVC73,FG,FMU]D$@N!,.$0(.@$$?5EQI-^#"
^XMB(3.9,22,2,13675,0)="""DATA"",396.18,469,3,187,0)"
^XMB(3.9,22,2,13676,0)="M01.G7+`""`@6`]""<,NHG=;(2Z,UMAHU&N>]""QGZ'[VFN17N:1K12TL""5+&8+O"
^XMB(3.9,22,2,13677,0)="""DATA"",396.18,469,3,188,0)"
^XMB(3.9,22,2,13678,0)="M(2D_1^>K[_<C[D:3[<.2I<)&DQ;*1_-:Z#_>67?$`PI=FYU;^:BXT[@19=[:"
^XMB(3.9,22,2,13679,0)="""DATA"",396.18,469,3,189,0)"
^XMB(3.9,22,2,13680,0)="M+)91J6\""5/$;FYHUJ^?@I/AWJL3_PJVJQ\%267-^&)J'?97XH%76A\5Z`[2W"
^XMB(3.9,22,2,13681,0)="""DATA"",396.18,469,3,190,0)"
^XMB(3.9,22,2,13682,0)="M^VAO3X<``=E(27D60?2QWMUYE+9HSQ!'6*PLQ)'_""9?[A%01^A_Y4GQW]""!>"
^XMB(3.9,22,2,13683,0)="""DATA"",396.18,469,3,191,0)"
^XMB(3.9,22,2,13684,0)="MV'RIGR9E[.-?CAV17Z-CD(0I#NV9;K=L^GY04?Q57`PBQAF_C<?O44'[0IP%"
^XMB(3.9,22,2,13685,0)="""DATA"",396.18,469,3,192,0)"
^XMB(3.9,22,2,13686,0)="M/I56FG8-,`'>V\9EU_%E6#,<QRY9!%:9@`VW<-1)>9-6SR;Y&%C1PR%""\"",Q"
^XMB(3.9,22,2,13687,0)="""DATA"",396.18,469,3,193,0)"
^XMB(3.9,22,2,13688,0)="MF-]E+[T'I]V,YAF[AJ,XE+Y2AC&U5S(Y_:OBG+\?@D/H#9VL1&*%8($YG5SM"
^XMB(3.9,22,2,13689,0)="""DATA"",396.18,469,3,194,0)"
^XMB(3.9,22,2,13690,0)="MGCRLB^AT[P0Z3JM*'VVO&6#XX)1?![I!""$V<PV*E9Y/YR8Y8I^5U$KS3(VZ'"
^XMB(3.9,22,2,13691,0)="""DATA"",396.18,469,3,195,0)"
^XMB(3.9,22,2,13692,0)="MV3D^2;?Z`C#)4$PV-@G-3<^<=^55G8&>!.?0EV0L[-<5..2/$RQLBQBP`,0&"
^XMB(3.9,22,2,13693,0)="""DATA"",396.18,469,3,196,0)"
^XMB(3.9,22,2,13694,0)="M3Z[5$J>:QT_A@-]QBMB-^-=C+?7"":4KJ$N'SP<*$I!;28@OQ#T5Z1/JHFLB("
^XMB(3.9,22,2,13695,0)="""DATA"",396.18,469,3,197,0)"
^XMB(3.9,22,2,13696,0)="MK.)-Q/]<P:L+\_4R4EQ:E$4F@0-W.#X5IUO#YL!2J=TP8&%25=FJXCBJEG4#"
^XMB(3.9,22,2,13697,0)="""DATA"",396.18,469,3,198,0)"
^XMB(3.9,22,2,13698,0)="MK5>S-W.R$FDO=B,MXT-:3B*--W'2V\0`/29\VI$%%.K$Q8<4\8*?PQ+:I.GZ"
^XMB(3.9,22,2,13699,0)="""DATA"",396.18,469,3,199,0)"
^XMB(3.9,22,2,13700,0)="MC7:S@<3)F4([1<-NDG<BHY#0E.PZW;THJCAB)F.J8S8,G""R,>(886C=+2#'`"
^XMB(3.9,22,2,13701,0)="""DATA"",396.18,469,3,200,0)"
^XMB(3.9,22,2,13702,0)="M]D1:?)V`I^%D7&S+;30M8LNU'&/9JEHMM.AN&-4VO:6L,"",J[ZHGXPL2M=>#"
^XMB(3.9,22,2,13703,0)="""DATA"",396.18,469,3,201,0)"
^XMB(3.9,22,2,13704,0)="M!9])+12EU0<MQ#^MVCPN-ZB,3#%U!X\7#92'`Y(%WJD59P2M&&G[T,$:OP`\"
^XMB(3.9,22,2,13705,0)="""DATA"",396.18,469,3,202,0)"
^XMB(3.9,22,2,13706,0)="M%Y5#P3JU7='TI3A]P$8]*,9@Q?];,?PLSVL1%@,!C><3B_YM$Z@0=T5LDQT^"
^XMB(3.9,22,2,13707,0)="""DATA"",396.18,469,3,203,0)"
^XMB(3.9,22,2,13708,0)="M)U#IUKP]K%`J'NQ,W[$J=;3#EW""0)B>\<\WSE>[-\1'.QX+(:E:D^I<4;H8Y"
^XMB(3.9,22,2,13709,0)="""DATA"",396.18,469,3,204,0)"
^XMB(3.9,22,2,13710,0)="MTL\V8Z=`2%&J)0F4Q/]$L8N>?0P?'Y+`D%.#+U\,N$))]>%HT((!8,D'[CX!"
^XMB(3.9,22,2,13711,0)="""DATA"",396.18,469,3,205,0)"
^XMB(3.9,22,2,13712,0)="MW'6\W#VZ8#HX+P:C+-K-ZWSQ""5,WN`29/K#2I;2?0>DB[J+FGV;W\*3NS?NY"
^XMB(3.9,22,2,13713,0)="""DATA"",396.18,469,3,206,0)"
^XMB(3.9,22,2,13714,0)="M1?/6+;OHR""6;Q$XR8:9""YB0.JEX.7[+1'[5&U5XWRSY7V8@?H[(BHZY[&,6Q"
^XMB(3.9,22,2,13715,0)="""DATA"",396.18,469,3,207,0)"
^XMB(3.9,22,2,13716,0)="MT=#FZ5^4:QMP[+9I!Z]^=';-6BND<DA+FVUCH4P<G*^SZB%+)*8;IUT==E]."
^XMB(3.9,22,2,13717,0)="""DATA"",396.18,469,3,208,0)"
^XMB(3.9,22,2,13718,0)="M+SO81V=:3DV9C>5C&_+C*.@M+]$%5P26?H>SM.JR-%_8SBS=BTU:Z&@G425'"
^XMB(3.9,22,2,13719,0)="""DATA"",396.18,469,3,209,0)"
^XMB(3.9,22,2,13720,0)="M9WD)EAF[CJ/U*%Y5XLA\73SMSYJKQ@W+;B:.7;&Q-QRKH9!S3&%#G<1=>(8P"
^XMB(3.9,22,2,13721,0)="""DATA"",396.18,469,3,210,0)"
^XMB(3.9,22,2,13722,0)="MPBG:4LZA2Z:]AM>WF)21&'-[NVC3W2=Q7'AGU/%6.XOQHS#*58+IP0Y5=R]8"
^XMB(3.9,22,2,13723,0)="""DATA"",396.18,469,3,211,0)"
^XMB(3.9,22,2,13724,0)="M*V3/P,K+C-%LKN,<HH-""MPM8]<`O1Q<;IHFT$/>SQ-AYTR""I$,*[T6L6P:P2"
^XMB(3.9,22,2,13725,0)="""DATA"",396.18,469,3,212,0)"
^XMB(3.9,22,2,13726,0)="M7HU<0#S'N^1BBV1+)`ZR[#ZL*IQ#S*FTS<1)=]""(KV:]TEH]HUUM--!AA2:\"
^XMB(3.9,22,2,13727,0)="""DATA"",396.18,469,3,213,0)"
^XMB(3.9,22,2,13728,0)="M:9($0>67+MAKTI<.746#PIH6$EPT@TB*T2PDQLZ9)<)?X1U-3=PW:SDK:`SH"
^XMB(3.9,22,2,13729,0)="""DATA"",396.18,469,3,214,0)"
^XMB(3.9,22,2,13730,0)="MYR86M\""""K7*Z)<4C^<_8D;S""]9H_C0A""7>RS'#>%'@<Z_M-169$[MP%%+JY2"
^XMB(3.9,22,2,13731,0)="""DATA"",396.18,469,3,215,0)"
^XMB(3.9,22,2,13732,0)="M<9(BL`$#XSNN,IMP#:?C9N.CS'7>9K9;I""M+<-XKNC5BE[P7EJEI`NR#<9$%"
^XMB(3.9,22,2,13733,0)="""DATA"",396.18,469,3,216,0)"
^XMB(3.9,22,2,13734,0)="M34Y-Y$/;C4JH`T?G-WZ11:V]JM#44WR""Q\D*'0=R_:D5=)\@68U0^#WVN,3Q"
^XMB(3.9,22,2,13735,0)="""DATA"",396.18,469,3,217,0)"
^XMB(3.9,22,2,13736,0)="M=[&1&*XFE/0O0S""HR&D<F%FUFZ:0*K^EH8]J**O$X)4FB=)Q(KZG>""`F@D7D"
^XMB(3.9,22,2,13737,0)="""DATA"",396.18,469,3,218,0)"
^XMB(3.9,22,2,13738,0)="M\Y'>7""R&XN(0^G*C@4CI;S[&`O(1[$*O]^9C*AF.CW,WS6;)<LS^YF/`DE/@"
^XMB(3.9,22,2,13739,0)="""DATA"",396.18,469,3,219,0)"
^XMB(3.9,22,2,13740,0)="MA0([]""]'NLEC-MRJ7L0FH3Y?U0&!D<$'1K?&;EQ$2DT^%!?W+A""-C@1/]C4G"
^XMB(3.9,22,2,13741,0)="""DATA"",396.18,469,3,220,0)"
^XMB(3.9,22,2,13742,0)="M`Y94`D<0[(_=!3*EAV+EGJ6F<0.G_O3Y#ID(""-8-\1$_""<#)9""$4)P?/F20Q"
^XMB(3.9,22,2,13743,0)="""DATA"",396.18,469,3,221,0)"
^XMB(3.9,22,2,13744,0)="MJK_Y.!!0(HOB#OEO7=F8""\?&LT9KM>_9&%1[+(A;9'<VAMLBAV8)$'2_\W$H"
^XMB(3.9,22,2,13745,0)="""DATA"",396.18,469,3,222,0)"
^XMB(3.9,22,2,13746,0)="M(!_ST@;9E9&I5,@-TK:J9JOO.;DG(""=SH@K90R33X402=6#7^IZ1>X/EP$D>"
^XMB(3.9,22,2,13747,0)="""DATA"",396.18,469,3,223,0)"
^XMB(3.9,22,2,13748,0)="M#A;O^[""G:F8^DP[$Q0`%#Q4!ZT4Q@.3=[**<Y):0^P05K*^PDX8C/B%""8!Z^"
^XMB(3.9,22,2,13749,0)="""DATA"",396.18,469,3,224,0)"
^XMB(3.9,22,2,13750,0)="M0JOEFL#WQ[WACZ,X,T`3'?S!([P[V9P6#\.?C;%*9KP.[+L8FPOY5+H_@N;]"
^XMB(3.9,22,2,13751,0)="""DATA"",396.18,469,3,225,0)"
^XMB(3.9,22,2,13752,0)="M,@;%P);XIR*=$=!N#D1!+Q2#UI*,*$0W(T;07/3T4Q`*,Z?Z)-33)]83C!\_"
^XMB(3.9,22,2,13753,0)="""DATA"",396.18,469,3,226,0)"
^XMB(3.9,22,2,13754,0)="MI)?VO4#J)#>&OB3A3($I-%&J7K!J6QJ^.ZHRS:6$#,[8_LX`+N%8O;)P^<K<"
^XMB(3.9,22,2,13755,0)="""DATA"",396.18,469,3,227,0)"
^XMB(3.9,22,2,13756,0)="MPM+\W.*V`C!A%>UN)P3<!P2\0P%@@N88.RT>3""5SV\.S#Y6+8>@/P]""7%#56"
^XMB(3.9,22,2,13757,0)="""DATA"",396.18,469,3,228,0)"
^XMB(3.9,22,2,13758,0)="MZ)ZV9-YL/8BC:(,=:!+8\P+;X[C-=9*AM^G%=#X4>ML=%TT<7E35[(95Q^;V"
^XMB(3.9,22,2,13759,0)="""DATA"",396.18,469,3,229,0)"
^XMB(3.9,22,2,13760,0)="M-</1:F:S8I8UJ_Y0@$)%OA'58MHM<.>=4A'<#_,XSJ]&=D!(]9@*3A5TXX]*"
^XMB(3.9,22,2,13761,0)="""DATA"",396.18,469,3,230,0)"
^XMB(3.9,22,2,13762,0)="M^&WQ#T2]BS)+8ZI)!""OV@E#83<EW2)Q^<P3!#$,!7K);YK9:OP70NVXCQ-X)"
^XMB(3.9,22,2,13763,0)="""DATA"",396.18,469,3,231,0)"
^XMB(3.9,22,2,13764,0)="MQ#X2\[A`AL]'(Q&>:VH0KP`2.%J.9H+%9=F-ANU8+5-KU^6OD.0/""R,IXMR0"
^XMB(3.9,22,2,13765,0)="""DATA"",396.18,469,3,232,0)"
^XMB(3.9,22,2,13766,0)="M>F5*:S*7:)6`*3*TQ""DDR@8&$R&?-<T2DB'B7B(N!_JV8:""K&GIN,L9#61X>"
^XMB(3.9,22,2,13767,0)="""DATA"",396.18,469,3,233,0)"
^XMB(3.9,22,2,13768,0)="MQ<52;.GHX-.)E:IYD^;`8N<VWHPFI[2V0\:A5=!7[1JN#'1:FU]Q:V`V,/0+"
^XMB(3.9,22,2,13769,0)="""DATA"",396.18,469,3,234,0)"
^XMB(3.9,22,2,13770,0)="M^C5M9(J-R&AI:S@^I4%Z@'3;SO'@=^3WRV;%`EDPZV6G1Z1GH2C.207FY*3"""
^XMB(3.9,22,2,13771,0)="""DATA"",396.18,469,3,235,0)"
^XMB(3.9,22,2,13772,0)="M'_?PHAO_!D&X)""I3R.?MRI->06X0<PHC6821O*$8R74L&O*4HZE<;K=(0K&O"
^XMB(3.9,22,2,13773,0)="""DATA"",396.18,469,3,236,0)"
^XMB(3.9,22,2,13774,0)="M6#BX5JB#7<M""R242+TP6SPKWQ[,I7[A\\73/S%Q8P6/47_I!3U+/W9L-RI82"
^XMB(3.9,22,2,13775,0)="""DATA"",396.18,469,3,237,0)"
^XMB(3.9,22,2,13776,0)="MT[TRP*8RWROG=D+ZR4%5N#C<?K\KUW'[KB+1[03DGQ!,1>XS9H$26[@GJO(T"
^XMB(3.9,22,2,13777,0)="""DATA"",396.18,469,3,238,0)"
^XMB(3.9,22,2,13778,0)="M0(""B5(`.A\BU#IVC!1%/1Z5TB107G3>$'""T]U7\Y6@<$O3VIZV`NB0U(^05_"
^XMB(3.9,22,2,13779,0)="""DATA"",396.18,469,3,239,0)"
^XMB(3.9,22,2,13780,0)="MQ\G]PDY8*8?82CD@Z,F(>`!U0',J4?]'BM5RC*X6&D9'@$$A0W3KE8<.HJ#8"
^XMB(3.9,22,2,13781,0)="""DATA"",396.18,469,3,240,0)"
^XMB(3.9,22,2,13782,0)="M')W1^`%F,YE20%6424B!'*VY""HFOZ!0ND>#L$B(-':(3)'(*)XXZ)%V""?EXU"
^XMB(3.9,22,2,13783,0)="""DATA"",396.18,469,3,241,0)"
^XMB(3.9,22,2,13784,0)="MG!8%.K4@'I14J6Y2?%*21-$MYK-SZ+HX])?9Y?Q_%7$1A1FC[?`<5G21Q&!Z"
^XMB(3.9,22,2,13785,0)="""DATA"",396.18,469,3,242,0)"
^XMB(3.9,22,2,13786,0)="M+9KY0$)!T2%/!I?23U%0D09BJEU6(/=W#*(@K@BW)/@_*P:17%)T#$""YJLX#"
^XMB(3.9,22,2,13787,0)="""DATA"",396.18,469,3,243,0)"
^XMB(3.9,22,2,13788,0)="M\T+7>9(%U'UX""H;QFXIAW#D+Q2$Q+TKM)@EN-+FD]B`9]25O`M!5[$EO3V-+"
^XMB(3.9,22,2,13789,0)="""DATA"",396.18,469,3,244,0)"
^XMB(3.9,22,2,13790,0)="MH+.XK?=N7""Y@,0>M_YRB]1D8NRN0O5LOBD.'[3JVJ,#(O-H1?NT>-*-2_C&Z"
^XMB(3.9,22,2,13791,0)="""DATA"",396.18,469,3,245,0)"
^XMB(3.9,22,2,13792,0)="M_X&W<@[4%<]I<]SWM!D*7!K\H%2\&G?+L@.7:/K!49AQA]M1GHCR?@\OF""VK"
^XMB(3.9,22,2,13793,0)="""DATA"",396.18,469,3,246,0)"
^XMB(3.9,22,2,13794,0)="M24&:VW43@GM%]XV:7;F,B,'(\J-4=^PQC,J#I[I)>@HTU6SI#$G5%!Y7)$21"
^XMB(3.9,22,2,13795,0)="""DATA"",396.18,469,3,247,0)"
^XMB(3.9,22,2,13796,0)="MU1NV]8)8I_@;W<ISTGVMM(%.BL""@OZ3N@QC;/E]4K#M-M>[8;`3KK2`:7N^."
^XMB(3.9,22,2,13797,0)="""DATA"",396.18,469,3,248,0)"
^XMB(3.9,22,2,13798,0)="M>LHRN9W=0?&*'*V""M&YZBPC3E9X40T)B3T-/7U#T='*Q898P>'0-S!H3C=5U"
^XMB(3.9,22,2,13799,0)="""DATA"",396.18,469,3,249,0)"
^XMB(3.9,22,2,13800,0)="M!S]-J@+L?;K+B\7?>'\?5O1W.^NOX:R75BT#Z3DE54>=-I[;5-X?O'R3@IS$"
^XMB(3.9,22,2,13801,0)="""DATA"",396.18,469,3,250,0)"
^XMB(3.9,22,2,13802,0)="M1D!,+-;Q25YNH9C)A;+S')QWM!NT5""V(5%DP[O""1!O5T8/O]"",?XT9/X`)16"
^XMB(3.9,22,2,13803,0)="""DATA"",396.18,469,3,251,0)"
^XMB(3.9,22,2,13804,0)="M)[O\_X6W;`(:NQMN[U=>ZE!'=5""\Q^BB%("")+6YRW:`H=%#86(6IDW-5JV)A"
^XMB(3.9,22,2,13805,0)="""DATA"",396.18,469,3,252,0)"
^XMB(3.9,22,2,13806,0)="MN/?E=0WCL""))+0L+!1^2B>,7.V6+S?ADXH3[F5<@)C=<$""46H""`*O0R,""*4A"
^XMB(3.9,22,2,13807,0)="""DATA"",396.18,469,3,253,0)"
^XMB(3.9,22,2,13808,0)="MD2BGQ6WGKR,>GND""S_HJMGEWB#4%3(C+N^(WO;4ODL5LN%5UK[""JW*.,6RK>"
^XMB(3.9,22,2,13809,0)="""DATA"",396.18,469,3,254,0)"
^XMB(3.9,22,2,13810,0)="MVD)+B(Z@@[(C""""^XHK3;<V7Y\ZH5UQL_<L!3<=@MXIJB95V'H3@L`2-.#)/R"
^XMB(3.9,22,2,13811,0)="""DATA"",396.18,469,3,255,0)"
^XMB(3.9,22,2,13812,0)="ML5GX:Q\I!YM*PI_[T1/^+OM[S""UFRMY%?$16""O]+1STB>X]`5;:?1-9OC69%"
^XMB(3.9,22,2,13813,0)="""DATA"",396.18,469,3,256,0)"
^XMB(3.9,22,2,13814,0)="M@I]E:_2+?!K3+L&Y?)_E'R@)SDFU59_U0M2*%!?ZB>)=?D*=%^]E]S.AGN5"""
^XMB(3.9,22,2,13815,0)="""DATA"",396.18,469,3,257,0)"
^XMB(3.9,22,2,13816,0)="M/2OLPZE^HGC`AV#Q:A/_5J0;P?ED/Q'<=5?&=U^1\!>\A`N;<J[8:U/>W;DI"
^XMB(3.9,22,2,13817,0)="""DATA"",396.18,469,3,258,0)"
^XMB(3.9,22,2,13818,0)="M1Y/ROHQ+12<2\/\!5D=Z@!7U'F#%I`>R[""'''O+LH<`>BO`PB#9O]I3B3SI_"
^XMB(3.9,22,2,13819,0)="""DATA"",396.18,469,3,259,0)"
^XMB(3.9,22,2,13820,0)="M2O.G#'_*\J<<?\KSIP)_XGWHO`^=]Z'S/G3>A\[[T'D?.N]#YWWHO`^=]Y'F"
^XMB(3.9,22,2,13821,0)="""DATA"",396.18,469,3,260,0)"
^XMB(3.9,22,2,13822,0)="M?:1Y'VG>1YKWD>9]I'D?:=Y'FO>1YGVD>1\9WD>&]Y'A?61X'QG>1X;WD>%]"
^XMB(3.9,22,2,13823,0)="""DATA"",396.18,469,3,261,0)"
^XMB(3.9,22,2,13824,0)="M9'@?&=Y'AO>1Y7UD>1]9Z""/20QY%BUIL'<3Q4RH=(9_J)8Z>XEZ#Y]K5*K9@"
^XMB(3.9,22,2,13825,0)="""DATA"",396.18,469,3,262,0)"
^XMB(3.9,22,2,13826,0)="M)8;0&FJ=(H_[D&*[<HHI0XG!17+Y,ZI,^^TQ8-EVM-Y-J\GHO4:\:YMH-2ST"
^XMB(3.9,22,2,13827,0)="""DATA"",396.18,469,3,263,0)"
^XMB(3.9,22,2,13828,0)="M&:A:]%!U1*`JW4_[82R$(IX1%/'8+/#@DYP';Q=XD`P7Q2#HX6#,J*YK3`3#"
^XMB(3.9,22,2,13829,0)="""DATA"",396.18,469,3,264,0)"
^XMB(3.9,22,2,13830,0)="M13%$?6906D@3GGW]N+""0,OWG6AD5$D23^!\@]VE""[L^P.Q.WYV5W@F_E,#,`"
^XMB(3.9,22,2,13831,0)="""DATA"",396.18,469,3,265,0)"
^XMB(3.9,22,2,13832,0)="MC8I5@O`_H*)^)"")A;OZ>PKER%,(VJ-?`7D%/V*>_#2#Q#LA$,?/)""""%II=.T"
^XMB(3.9,22,2,13833,0)="""DATA"",396.18,469,3,266,0)"
^XMB(3.9,22,2,13834,0)="MY-JT#C%,+QRI0"",4G#.;*-&!HZPZS4QD:G3!Q1G_4:2S_C$_'?1"",:DH+=#1"
^XMB(3.9,22,2,13835,0)="""DATA"",396.18,469,3,267,0)"
^XMB(3.9,22,2,13836,0)="M&N3L35%K^;]T;2XE61^8`7Y,1.0CLI,1R]7'AZ.=%6]N][7`!P/_/<#W)6FE"
^XMB(3.9,22,2,13837,0)="""DATA"",396.18,469,3,268,0)"
^XMB(3.9,22,2,13838,0)="MTGEM@ZA^EJ_4C[GYZ[E""JC]/E..*$X42KXL`@:RT^M_R=?H(G[]<-MR1LG]&"
^XMB(3.9,22,2,13839,0)="""DATA"",396.18,469,3,269,0)"
^XMB(3.9,22,2,13840,0)="M.V=535C89SR:#WV/])O#EXBEA\294/RU:],+EQ,G%SI?<;,0+RHI6U6#$PU2"
^XMB(3.9,22,2,13841,0)="""DATA"",396.18,469,3,270,0)"
^XMB(3.9,22,2,13842,0)="M^X-(3ZH+^7#A@$>8_9+N8K>*^JAO,`S<(Z<)I?<""I<8&RL!NXV/HB""J>%-3@"
^XMB(3.9,22,2,13843,0)="""DATA"",396.18,469,3,271,0)"
^XMB(3.9,22,2,13844,0)="M;\F!@W^E.('>1D^@""Y<OX@U[P6R8+8M$MUUUME=X(//N5\3(IM@115G!1W$X"
^XMB(3.9,22,2,13845,0)="""DATA"",396.18,469,3,272,0)"
^XMB(3.9,22,2,13846,0)="ME[()8(L>E=I0%;*B\9/*1F#]#--&G@3>_D""!&W6-H^^MK5JE56W%*+4PWJ*C"
^XMB(3.9,22,2,13847,0)="""DATA"",396.18,469,3,273,0)"
^XMB(3.9,22,2,13848,0)="MU;#GO&DZ#;ON$(\!]FJ1T$(W]@Q/B;&""2V0TW5EI.^:9'D`2<(*\**_O8XI("
^XMB(3.9,22,2,13849,0)="""DATA"",396.18,469,3,274,0)"
^XMB(3.9,22,2,13850,0)="MN0<66WAP:(5KM38.I90[QP-L5]%)KAJ%%/KF.G?W2\[=M#AEAL?'=[_KU07Y"
^XMB(3.9,22,2,13851,0)="""DATA"",396.18,469,3,275,0)"
^XMB(3.9,22,2,13852,0)="MD_O8RF6E9""T86S-B*10ESE[+5OX>#'FV]/M[%>""&9;/2-'$AM<Z21BQ@@<)+"
^XMB(3.9,22,2,13853,0)="""DATA"",396.18,469,3,276,0)"
^XMB(3.9,22,2,13854,0)="M'X(F[O/D<.2*N?1NSIO'5JV6J?"":*0HY,8/RV=X=9-1^.&48&\![#E)5Z8N1"
^XMB(3.9,22,2,13855,0)="""DATA"",396.18,469,3,277,0)"
^XMB(3.9,22,2,13856,0)="MX+7?HCT#""Y@!8$0R!T#!SOA(5/+#_I.W0%8N6RCT,@5X[GX42VB`P1D-,HRC"
^XMB(3.9,22,2,13857,0)="""DATA"",396.18,469,3,278,0)"
^XMB(3.9,22,2,13858,0)="MQ'X,.61C-""T*`S7*X)#FZM@96""^9BCIS66EC.@MC_0-%U?AD(:DHG^6VE!.7"
^XMB(3.9,22,2,13859,0)="""DATA"",396.18,469,3,279,0)"
^XMB(3.9,22,2,13860,0)="M7->&\D79].P3?`]L?#XBM?@FUQ!?VPF'Z%%5[#-LI,]%)!#15Q2'Z&TLHI2A"
^XMB(3.9,22,2,13861,0)="""DATA"",396.18,469,3,280,0)"
^XMB(3.9,22,2,13862,0)="M57$`KNT580]K^[`4X?FKBI/A&@??*7.:RHPF>EBM60Y.K9TB_FGRL(8^)`\M"
^XMB(3.9,22,2,13863,0)="""DATA"",396.18,469,3,281,0)"
^XMB(3.9,22,2,13864,0)="MNTU`Q*9HF/G-!DEH)N6RE$'2<%_^-KWS?,VS.=RU:3&NS*5]6$HE^1H7YE^+"
^XMB(3.9,22,2,13865,0)="""DATA"",396.18,469,3,282,0)"
^XMB(3.9,22,2,13866,0)="MN.NCF.TC0\S($GJU;)9Q5L>R;5^G$1#R.U""@:'XE2W7\""=>&OQ(=0=_O2O(^"
^XMB(3.9,22,2,13867,0)="""DATA"",396.18,469,3,283,0)"
^XMB(3.9,22,2,13868,0)="M_@5""]1""BND62D?:S#]AB'&8O%*++6P$6N-0<0\_HCRM&Q8R(Y]PQ]V2$X%,1"
^XMB(3.9,22,2,13869,0)="""DATA"",396.18,469,3,284,0)"
^XMB(3.9,22,2,13870,0)="M]?T.%:W\4W""IT$7,/""H_XE1_/'KDO-U\GP+M70D._US4#QQ^]W35JM0'!HTJ"
^XMB(3.9,22,2,13871,0)="""DATA"",396.18,469,3,285,0)"
^XMB(3.9,22,2,13872,0)="MDCTT?R)8O+0!)I8=G,6\M<J-G\:6$NMTY!AD/M_R]""TM.M+%;`+K>E0""`/ZZ"
^XMB(3.9,22,2,13873,0)="""DATA"",396.18,469,3,286,0)"
^XMB(3.9,22,2,13874,0)="M&Z3AWLS!P@:7TUMOF0J1X>$W26(%G/B>:.<LQ9^);.4TQ0/E)$H3=M$#OJOQ"
^XMB(3.9,22,2,13875,0)="""DATA"",396.18,469,3,287,0)"
^XMB(3.9,22,2,13876,0)="M7(-<JA#*""'&/4,""(EOC!7I=5?!*A8PM2N\(9]6/!TBQ3(DFW`4DO*TC*YE+A"
^XMB(3.9,22,2,13877,0)="""DATA"",396.18,469,3,288,0)"
^XMB(3.9,22,2,13878,0)="M`H4$DE:]A36A>F/H=$N5G@XWY`]$1$=%;$91?&S!/&4WS/IVKD*D(C`M$?AX"
^XMB(3.9,22,2,13879,0)="""DATA"",396.18,469,3,289,0)"
^XMB(3.9,22,2,13880,0)="M;P*#&UA]UVM!W%2?\BS7ST;<F>9PK3-5PZK1,.=YJ3X#SN#LCH:>D\R:[PA6"
^XMB(3.9,22,2,13881,0)="""DATA"",396.18,469,3,290,0)"
^XMB(3.9,22,2,13882,0)="MI$#\?5K\_7N""P<F+O\\(OW=SWOQ*'""C!((""$,3*$K&<_O\.-UC[;MJIE""0VB"
^XMB(3.9,22,2,13883,0)="""DATA"",396.18,469,3,291,0)"
^XMB(3.9,22,2,13884,0)="M'T12JJ>9$XF]UH78T5F[U""8Y.)N4K?:6SJ_8!I9?421UK0NIA\`GQBC>#.#X"
^XMB(3.9,22,2,13885,0)="""DATA"",396.18,469,3,292,0)"
^XMB(3.9,22,2,13886,0)="MMT1M?"",SFQ3)'>U""[K""8J;VEJF'P36Y$UAR3XBZ7\*J.XMFC$HU,8!5.3F+?"
^XMB(3.9,22,2,13887,0)="""DATA"",396.18,469,3,293,0)"
^XMB(3.9,22,2,13888,0)="MC+&#>>H_98_MP_Q>^""M1T5:BR#[-BVXT@-6/Y;PFX?VS.-``CQYOYK<:3BD$"
^XMB(3.9,22,2,13889,0)="""DATA"",396.18,469,3,294,0)"
^XMB(3.9,22,2,13890,0)="M4&].).A1(.B4EZ`#G3""]W3*]Q(1NJ'<(>#3[F*.SH:@D<=E3PP)R]<X$4\QT"
^XMB(3.9,22,2,13891,0)="""DATA"",396.18,469,3,295,0)"
^XMB(3.9,22,2,13892,0)="M\2ZY!R;WIY&.PKB[\FD]$THOVS>+0;'P>+#]AZM?GD`GTGUB]P+N+3$\75NV"
^XMB(3.9,22,2,13893,0)="""DATA"",396.18,469,3,296,0)"
^XMB(3.9,22,2,13894,0)="ML""T%C<R1%3(_Y!XPVRQ)-1N^YS5DZFD]U\N0Z4'P0==<$OKR=D=SL#N`@**/"
^XMB(3.9,22,2,13895,0)="""DATA"",396.18,469,3,297,0)"
^XMB(3.9,22,2,13896,0)="MS>&""-3C/D201X1M3XLB222P^V$YODA5(#9P\,,N34)P6QWW>,^X3PKCS?1ZU"
^XMB(3.9,22,2,13897,0)="""DATA"",396.18,469,3,298,0)"
^XMB(3.9,22,2,13898,0)="MI!([R51?!_)_&/'48RYF]70HN7O;Y1MHQJI5P3CG`#R^>PGP!*^!_%%AW'76"
^XMB(3.9,22,2,13899,0)="""DATA"",396.18,469,3,299,0)"
^XMB(3.9,22,2,13900,0)="M;JTF!BZ9%IF\T#B[+%F<%O3Y1*0;=:EP:1&W>ZGCIL>W3%Y``-R4.'?Q/V0J"
^XMB(3.9,22,2,13901,0)="""DATA"",396.18,469,3,300,0)"
^XMB(3.9,22,2,13902,0)="M;%U%73@?^0AL9NNU1LNNA;R([O91,^#TN4%&^TH7YXKW4M.K(GL@;A5$;KW*"
^XMB(3.9,22,2,13903,0)="""DATA"",396.18,469,3,301,0)"
^XMB(3.9,22,2,13904,0)="MA.$UI:B'$P9]W@$`%(,G:*,M::6*ENNI=L-Q840VQM$!'XX618[^.!1'!T/:"
^XMB(3.9,22,2,13905,0)="""DATA"",396.18,469,3,302,0)"
^XMB(3.9,22,2,13906,0)="MI-,2,-L)9LX9YV;Y)UWNI?NA-NX004SK9<G==X7EOV%U+K@]-Z6PY\:XI$7\"
^XMB(3.9,22,2,13907,0)="""DATA"",396.18,469,3,303,0)"
^XMB(3.9,22,2,13908,0)="MK+D[VVR;%V_L_P,2=`=77S\1W1:N=%']RT@54C_#]HPW%6$4AK`'5(R&MFRV"
^XMB(3.9,22,2,13909,0)="""DATA"",396.18,469,3,304,0)"
^XMB(3.9,22,2,13910,0)="MUDP38QJU:\M:PR@3-U/+HKL!6/BPEF*TT/IOX#`B0/V!1$SZPY;-K8$]5-6,"
^XMB(3.9,22,2,13911,0)="""DATA"",396.18,469,3,305,0)"
^XMB(3.9,22,2,13912,0)="M!,;Y#UYT!G>LRSYCI3U1R*BF?=.J(;EO(:W+06>=8VKTH""/V/6*HK&LU@WX)"
^XMB(3.9,22,2,13913,0)="""DATA"",396.18,469,3,306,0)"
^XMB(3.9,22,2,13914,0)="MD*)<RA[J@=@D!FK&Q]AN\E^*L3[$Q^K5(XB/K]%V_J^]J]EM&@C""=7Z0DE(N"
^XMB(3.9,22,2,13915,0)="""DATA"",396.18,469,3,307,0)"
^XMB(3.9,22,2,13916,0)="MO2-#""Q)2J>(X=II<N'!#51%_+1(7MS:1J1-%22PU3\`;\`Y<N'#C@G@%7@.)"
^XMB(3.9,22,2,13917,0)="""DATA"",396.18,469,3,308,0)"
^XMB(3.9,22,2,13918,0)="M`^J!(Y[U[GKLM9/=UB**(,=(47:_W9V=V9GYOCB--PZ#@.?S6.9OV4!,/)`G"
^XMB(3.9,22,2,13919,0)="""DATA"",396.18,469,3,309,0)"
^XMB(3.9,22,2,13920,0)="MFB#@BNMDQ(%</]OX:*GB,HY`>,19R:$+V7P%3ZY$>&PJ'VY*D?;2,=3)&.ZQ"
^XMB(3.9,22,2,13921,0)="""DATA"",396.18,469,3,310,0)"
^XMB(3.9,22,2,13922,0)="M])3X:-RS%*O:T<TY'(<SWH7LZ*X_\&?PL#AV)C/TE7*E>QZH';KLYZD2*ZF+"
^XMB(3.9,22,2,13923,0)="""DATA"",396.18,469,3,311,0)"
^XMB(3.9,22,2,13924,0)="MLU(""GF8'XWDH:(PA/""VUO,*#!,_1^3R(95/?1D>5]'D/H9>#H*CH@%0+8+0P"
^XMB(3.9,22,2,13925,0)="""DATA"",396.18,469,3,312,0)"
^XMB(3.9,22,2,13926,0)="MC&]48*R5`6,/7RCLG>Y['HQV[XHPNAY0P\$)+P'&`L^866X""8_7]7_>,.P;:"
^XMB(3.9,22,2,13927,0)="""DATA"",396.18,469,3,313,0)"
^XMB(3.9,22,2,13928,0)="MCM4O[/]?Y^#8E3S>UW=N+7Q$JU]+=6ZE0#%QE^.>EN7%0:`<F*6#LED`2A>#"
^XMB(3.9,22,2,13929,0)="""DATA"",396.18,469,3,314,0)"
^XMB(3.9,22,2,13930,0)="M8F@JH-PL`Y04`]3EPIUBE`Y*P0UI82M4_:VT4YIEF*'43AEH`G6MCLIU.J6C"
^XMB(3.9,22,2,13931,0)="""DATA"",396.18,469,3,315,0)"
^XMB(3.9,22,2,13932,0)="MLE50KY1""9:BT56Y=^8F:5J.UM$(?']_-.5[L@8'984X6T/OLB@^NG*PD<D)!"
^XMB(3.9,22,2,13933,0)="""DATA"",396.18,469,3,316,0)"
^XMB(3.9,22,2,13934,0)="M*B5?QKUM8*:BRM8""%?<7A*5S-*?1.R5A)-XOY^4\G>NG<#&X_C1VCR>Z/WH7"
^XMB(3.9,22,2,13935,0)="""DATA"",396.18,469,3,317,0)"
^XMB(3.9,22,2,13936,0)="M3N:1&QB0;YBR-OSVV='A,H_/ZF&1O7TZO!O<X]M)GFDR3+KR7E\VO&<'NYFB"
^XMB(3.9,22,2,13937,0)="""DATA"",396.18,469,3,318,0)"
^XMB(3.9,22,2,13938,0)="M4*WQ=;NK(7/77H/P7I,*[^OP6CR5#^O;_W)8GW=:*2""W""2#;=-N$.;6:3T\>"
^XMB(3.9,22,2,13939,0)="""DATA"",396.18,469,3,319,0)"
^XMB(3.9,22,2,13940,0)="M3IPY'(Y8ZSL*&P?P3#^=A:X/8O8.R-%[;G2@HI!W""M7^W@7(51,:7'#_>7RP"
^XMB(3.9,22,2,13941,0)="""DATA"",396.18,469,3,320,0)"
^XMB(3.9,22,2,13942,0)="MIWNSLWTYVVP9N)?NQT:6M*UBLWUMVF9;R4?L'WNQQB7O0(!1!E'$#'LJL@%G"
^XMB(3.9,22,2,13943,0)="""DATA"",396.18,469,3,321,0)"
^XMB(3.9,22,2,13944,0)="M00C3H;S&A(5QXH$\&W(:5R-0PF^10E5%P3Z8>*%W*(P?>8'B-]Z!U[-;Z](;"
^XMB(3.9,22,2,13945,0)="""DATA"",396.18,469,3,322,0)"
^XMB(3.9,22,2,13946,0)="MO-0\-![[SF`$092\B3#_FXB45BY-6F]K*<&#CF@A&JPGM[\*N8.B-\LVKA=X"
^XMB(3.9,22,2,13947,0)="""DATA"",396.18,469,3,323,0)"
^XMB(3.9,22,2,13948,0)="M2??]+[Z>K57B7<FM4+""Q,%!#""(KOY.SNM:POM7!]*6=8^LQ-4AW1<3X/AT,G"
^XMB(3.9,22,2,13949,0)="""DATA"",396.18,469,3,324,0)"
^XMB(3.9,22,2,13950,0)="M3LJX;-+]52Y=3=""CL;&F-""O""^<!G\S/AM;;7IN8_.T<K90M8X?8G+=O4&\VQ"
^XMB(3.9,22,2,13951,0)="""DATA"",396.18,469,3,325,0)"
^XMB(3.9,22,2,13952,0)="M:Z\'^Y=4YK&%I4TVA/CP/HL/#;.EEF/7CQW@<V8=S4=4X(1W)BM7VQ83X""9="
^XMB(3.9,22,2,13953,0)="""DATA"",396.18,469,3,326,0)"
^XMB(3.9,22,2,13954,0)="M^+$MW""W=%EZ64W:?I@M.AKW<(#83^G`%^P2?/U!+`P04``(`""``68+DT0BL2"
^XMB(3.9,22,2,13955,0)="""DATA"",396.18,469,3,327,0)"
^XMB(3.9,22,2,13956,0)="M%C,_``""[*`(`'@```$AA;F1?1FEN9V5R<U]4:'5M8E\Q,3$N<&YL+F9R;>Q="
^XMB(3.9,22,2,13957,0)="""DATA"",396.18,469,3,328,0)"
^XMB(3.9,22,2,13958,0)="M6V_<N))^'V#^@X!]Z,FNDR.2N@98#'*=\2!.C-AS@L7BX$#N9MLZHY9Z);4="
^XMB(3.9,22,2,13959,0)="""DATA"",396.18,469,3,329,0)"
^XMB(3.9,22,2,13960,0)="MGU^_)'7C56)?G#BV\Q+KTE*IJEA5K/I8+""[^A>>U\R&YP-GY[1I_6KXORM5+"
^XMB(3.9,22,2,13961,0)="""DATA"",396.18,469,3,330,0)"
^XMB(3.9,22,2,13962,0)="MYYR=^?DGQ_F`E[7SW\YSZ+KT\+Q8DZ.(_ODE7=17Y`#%].AWG%Y>T3L!HH=O"
^XMB(3.9,22,2,13963,0)="""DATA"",396.18,469,3,331,0)"
^XMB(3.9,22,2,13964,0)="MDG6=%CDYGIV\^_S;N]G//^%\\?-/!?=""^JKCMY,O@Y[P-C#^MM]??7PKO8R>"
^XMB(3.9,22,2,13965,0)="""DATA"",396.18,469,3,332,0)"
^XMB(3.9,22,2,13966,0)="M^N=IDN,L)""]C?W`OBX'AN_P0"":_R0,B.TYP>S4X_G?YY.J-G7N-KG!WG.2[)"
^XMB(3.9,22,2,13967,0)="""DATA"",396.18,469,3,333,0)"
^XMB(3.9,22,2,13968,0)="M^8OKSTE:X06[4)0+7)[5MQFF5ZJS-+_,,"".XR`IZ]SP[2[-K7-)S[XN\?O'F"
^XMB(3.9,22,2,13969,0)="""DATA"",396.18,469,3,334,0)"
^XMB(3.9,22,2,13970,0)="M*BDK3%_P]MW[5W]^./_GF]]??3Y[=S[<T?_T=9;,_^K/]W0^!Z`_^3%982:#"
^XMB(3.9,22,2,13971,0)="""DATA"",396.18,469,3,335,0)"
^XMB(3.9,22,2,13972,0)="M,^<LR2OG#)?I<M9?[DC[WW_04Z=)B?.:7B""GWB=9Q4@]3RX^T<\@YYA0>*8R"
^XMB(3.9,22,2,13973,0)="""DATA"",396.18,469,3,336,0)"
^XMB(3.9,22,2,13974,0)="MP2&/%V'/5Q`%S7'#VK`YZ)@+07MBD&1[.R_+)%^\=$[+XB+#*^=LC>?I,IT3"
^XMB(3.9,22,2,13975,0)="""DATA"",396.18,469,3,337,0)"
^XMB(3.9,22,2,13976,0)="M""51U4=[.FONGV69FG,HZQ)TV,T]FW[)Z762+?S27]&QD""JGA'@PB+?L0%-@'"
^XMB(3.9,22,2,13977,0)="""DATA"",396.18,469,3,338,0)"
^XMB(3.9,22,2,13978,0)="MXDAD('!E!D*5@?])F(<K0OGF8I763ETXR6)!2*G+%%?TL+[""Y.)JE?3L_$)T"
^XMB(3.9,22,2,13979,0)="""DATA"",396.18,469,3,339,0)"
^XMB(3.9,22,2,13980,0)="M]DN9T'>>EYL)TF,]Z;[+DX[""X#Z1_GI3UT4.*->;/T6M#3V!]L@3:?=<66TC"
^XMB(3.9,22,2,13981,0)="""DATA"",396.18,469,3,340,0)"
^XMB(3.9,22,2,13982,0)="MA?0W&4[*EB9N](#FS*?\39;._R(GOC;O_PT3RY'.V=EQFF,]S=`/1_D=^A+-"
^XMB(3.9,22,2,13983,0)="""DATA"",396.18,469,3,341,0)"
^XMB(3.9,22,2,13984,0)="MR%5H;MBL$HWV)1H""`Z.#:&^BWV1%A>_$#(""=S,""H`1#8""G=GZ]F\+++L=?$5"
^XMB(3.9,22,2,13985,0)="""DATA"",396.18,469,3,342,0)"
^XMB(3.9,22,2,13986,0)="M$L;V!P)O?8&S$F-]/Y`Y""SM>%^6_VR<FY8OSDK""'>""QN.#G.WW%9#[=\3O)+"
^XMB(3.9,22,2,13987,0)="""DATA"",396.18,469,3,343,0)"
^XMB(3.9,22,2,13988,0)="M^N5^Y.HN:Y_P:E,7S2U&[K0/4SV-+]H;SM=T)UIGXW7'BLU18@=)ISIO<X$I"
^XMB(3.9,22,2,13989,0)="""DATA"",396.18,469,3,344,0)"
^XMB(3.9,22,2,13990,0)="MX0M<)VF&%[/^3HWCME6_,04TJJ""%$AK4L%/$[GT<K\TZVBJ<COF1@?DP]J:X"
^XMB(3.9,22,2,13991,0)="""DATA"",396.18,469,3,345,0)"
^XMB(3.9,22,2,13992,0)="M'P1VS'^;U-@IEF1<$#;.[HZW\%""\W8:!GFNIO=!',@-CUXZ!;XH-X9)3I?F<"
^XMB(3.9,22,2,13993,0)="""DATA"",396.18,469,3,346,0)"
^XMB(3.9,22,2,13994,0)="M,/*.N0B^""Q>1)1>]*)*Y&%ER\1.)+4IG7JQ6A+CJY6QR:,0FF@(X*5H0Q):R"
^XMB(3.9,22,2,13995,0)="""DATA"",396.18,469,3,347,0)"
^XMB(3.9,22,2,13996,0)="MW92464Y=XJ1FE#E+(J;Z*JT(K?DBI3>^_#'EK0W>1M4`V*K!,-C[N8<;69HC"
^XMB(3.9,22,2,13997,0)="""DATA"",396.18,469,3,348,0)"
^XMB(3.9,22,2,13998,0)="M7,W+](*.IP5V\')):""!,+XN5,Y>%,3#^79X0#[+8]P-M?1WR@*)2""&WY@<KG"
^XMB(3.9,22,2,13999,0)="""DATA"",396.18,469,3,349,0)"
^XMB(3.9,22,2,14000,0)="M5(?^GL#T/8'T.8%B^^R^!;QX:*8N"".Q8%L,=608?'LN,04H$#\0T].""8AD)+"
^XMB(3.9,22,2,14001,0)="""DATA"",396.18,469,3,350,0)"
^XMB(3.9,22,2,14002,0)="M4P.@XKV\(?A39O,\V[HSCC,[;^;N^&M-+<ZZJ*J4V)<C$FNWQHA>G:?E?+.J"
^XMB(3.9,22,2,14003,0)="""DATA"",396.18,469,3,351,0)"
^XMB(3.9,22,2,14004,0)="MZH0$,I63Y`LGS8F#2S)G-7/^BWM:DJ=+3.ZC[ZEH[$A_O4@KG)`XB+`\S?^U"
^XMB(3.9,22,2,14005,0)="""DATA"",396.18,469,3,352,0)"
^XMB(3.9,22,2,14006,0)="M*6_I7]19)DZ)KU-\0]Z>K)QU65R+3Z-V/LUK7%Z3-UTU>:87#]^EOB/!`XUA"
^XMB(3.9,22,2,14007,0)="""DATA"",396.18,469,3,353,0)"
^XMB(3.9,22,2,14008,0)="MZ/]3T;T:5O6Y/%X'^B_K\J7`A:[;?XPZ%]82=H)7!=5.^O^4<OI054Z5L(%\"
^XMB(3.9,22,2,14009,0)="""DATA"",396.18,469,3,354,0)"
^XMB(3.9,22,2,14010,0)="MCC`0?O/)!HW44_+]'_'-E(0_I#FNR/F2S$@K<N473F%GSZ;UH)^0TQ]7%9VC"
^XMB(3.9,22,2,14011,0)="""DATA"",396.18,469,3,355,0)"
^XMB(3.9,22,2,14012,0)="MI_,DTX@""C9D*,AK:K$/[Y]0T)@B5P`2JD5?HZ@3B#^$'M1,+O#C#&:5%^K;C"
^XMB(3.9,22,2,14013,0)="""DATA"",396.18,469,3,356,0)"
^XMB(3.9,22,2,14014,0)="M&J\T]IJ>-K'LK*;QS(P[0^;\ES39F%[C[-:Y*<I*N'R\HH:""1$#""26HE5FG-"
^XMB(3.9,22,2,14015,0)="""DATA"",396.18,469,3,357,0)"
^XMB(3.9,22,2,14016,0)="MC-C-WXA=6:7D""<0(\7>QF<0@(X[5WC2KD9G5RKQ""P^M0M<S<5&/@-8SNCM<?"
^XMB(3.9,22,2,14017,0)="""DATA"",396.18,469,3,358,0)"
^XMB(3.9,22,2,14018,0)="MBUQ@Y0E>4-7C3YUMRDOYW*?SOYV>C_#Q9)/5:4_D8-P$#OLC''YS^N7D<[)("
^XMB(3.9,22,2,14019,0)="""DATA"",396.18,469,3,359,0)"
^XMB(3.9,22,2,14020,0)="MB]_*8K-&5*G%4Q+#N2""[F\BI*:8AQ!AJ1DC#<#28P;.KXJ:I$LG,_F-3U>GR"
^XMB(3.9,22,2,14021,0)="""DATA"",396.18,469,3,360,0)"
^XMB(3.9,22,2,14022,0)="MEC%7^D9Z[C19<#43,94[/5GYE<]G;59Y-9AA8[P_)N;_P8+6?RRT*A],&'H`"
^XMB(3.9,22,2,14023,0)="""DATA"",396.18,469,3,361,0)"
^XMB(3.9,22,2,14024,0)="M[""P]\GT;2S_X@Y[WY%_\9.G+H1QGEH6=*#P8[BH*-XZGIIB/6D+1A(0B.PGY"
^XMB(3.9,22,2,14025,0)="""DATA"",396.18,469,3,362,0)"
^XMB(3.9,22,2,14026,0)="MKE58%/@Z+XR>!DLYS`RUHFCJ-G(U<22WJR9K@""(-%&OL.@W.^V(XC0M^U'F)"
^XMB(3.9,22,2,14027,0)="""DATA"",396.18,469,3,363,0)"
^XMB(3.9,22,2,14028,0)="M6NFQJ(2-LI\Y<""W_$3J<`([SJBXW\UH(\O@""[]Y?\Z98710DW*/6M_M[0J%V"
^XMB(3.9,22,2,14029,0)="""DATA"",396.18,469,3,364,0)"
^XMB(3.9,22,2,14030,0)="MGHX%GA]KREI?KM)Z*N)3B]KCX4$W&MMO9O_I`3K0TR!TFF""WG>6Y/H_1(1\A"
^XMB(3.9,22,2,14031,0)="""DATA"",396.18,469,3,365,0)"
^XMB(3.9,22,2,14032,0)="MPH$B_Y%C=(`>JN%!+50#`J$*WVGPH$K(%J7SL2A72>8T%>%BZ9P4]/H#P>C("
^XMB(3.9,22,2,14033,0)="""DATA"",396.18,469,3,366,0)"
^XMB(3.9,22,2,14034,0)="M1:?.N`""AT`ZE0KL*88AEYG6#9/;QT_F[E\Y;7*67.2V""+M++E(3O2>745YO5"
^XMB(3.9,22,2,14035,0)="""DATA"",396.18,469,3,367,0)"
^XMB(3.9,22,2,14036,0)="MQ9&3DGG95V=)M!.71TY6Y)?]`1UR7!IKUEY@6;.,S%#)]S=G7G`O^%>1YLT+"
^XMB(3.9,22,2,14037,0)="""DATA"",396.18,469,3,368,0)"
^XMB(3.9,22,2,14038,0)="MWAZ?.K\LB#\AXF.Y+_Y9ZZLDHR)-LF='SBF]D\R%OZ:K[E[A^@FYO,)U,D_*"
^XMB(3.9,22,2,14039,0)="""DATA"",396.18,469,3,369,0)"
^XMB(3.9,22,2,14040,0)="MHKW`/ZNYZ<V)\PNY85VT=Z[964HK?;KTT(;,-JTG?""-CR[,7.Z""6/,]""F&&T"
^XMB(3.9,22,2,14041,0)="""DATA"",396.18,469,3,370,0)"
^XMB(3.9,22,2,14042,0)="MAS#?L[(<;F36""*N1DBJ2ZLCY-RX+9X$O2XQ9`G.9""4S[2A]>XG6)*U;SHP]N"
^XMB(3.9,22,2,14043,0)="""DATA"",396.18,469,3,371,0)"
^XMB(3.9,22,2,14044,0)="M?^LL-UEVVV12R:S]R%DE#&Z1.,11)8Q.X5DD8')N4O(]]!GD>1UCG2M""UPNG"
^XMB(3.9,22,2,14045,0)="""DATA"",396.18,469,3,372,0)"
^XMB(3.9,22,2,14046,0)="M([NB8ZI1P""-V(F_&MJ`8W3A?L7'>/8AH0"".QM&J^JRZ<V!6_CGW1D2#,]M=4"
^XMB(3.9,22,2,14047,0)="""DATA"",396.18,469,3,373,0)"
^XMB(3.9,22,2,14048,0)="MOY2?`U?W>\;)]F=O^6?I'A&Z-/\;Z9[S8@?L&*O+Z'!8H6A,98.@JE`P""FE2"
^XMB(3.9,22,2,14049,0)="""DATA"",396.18,469,3,374,0)"
^XMB(3.9,22,2,14050,0)="MXR0[O)#!M:()UQIY8YX5PL?N6:'>G(#8`'\-1SUK8(U_Y<-.IO;OOB8K,I3)"
^XMB(3.9,22,2,14051,0)="""DATA"",396.18,469,3,375,0)"
^XMB(3.9,22,2,14052,0)="M^/]8U/B!N%CHZ@,4$<L&)*OL>8_7Q:Y;'\L_ZW)/'RMXGCU\+`06T@S=*1_;"
^XMB(3.9,22,2,14053,0)="""DATA"",396.18,469,3,376,0)"
^XMB(3.9,22,2,14054,0)="MY8V>?.P/[6/[KVX'&O\L_MOMOS?HWR-_HX9V';E:0OEG[:+U,L9%J_4`2DLA"
^XMB(3.9,22,2,14055,0)="""DATA"",396.18,469,3,377,0)"
^XMB(3.9,22,2,14056,0)="M_*XJ8V/$SLGWK(LJ[1BTW.1SGEE7K%1>#2IX4Q*SXRR*LDKI5PIJOW""@2YF!"
^XMB(3.9,22,2,14057,0)="""DATA"",396.18,469,3,378,0)"
^XMB(3.9,22,2,14058,0)="M>F8TNB@9&&8DZ',EN\0_2[(F%6,I>8'T=/J47A&<Y&)!_!JY2S1B""Z<LZH2>"
^XMB(3.9,22,2,14059,0)="""DATA"",396.18,469,3,379,0)"
^XMB(3.9,22,2,14060,0)="MKRA4(*FYGZR3A;-,*""9@&*/T9+53(.>9`CEA+@!""<*\"".:@)Y#QNO10?QH5>"
^XMB(3.9,22,2,14061,0)="""DATA"",396.18,469,3,380,0)"
^XMB(3.9,22,2,14062,0)="M(""YB@O$C#^.0=NR""2#_%AR'D54&*Z($?VT9Q#S,Q$NKGTEY7]VRK1""Z4\TI`"
^XMB(3.9,22,2,14063,0)="""DATA"",396.18,469,3,381,0)"
^XMB(3.9,22,2,14064,0)="MYAO:?P60ADJ:,P>^@&SI2`2Q,,;EA3X`RB3V)]JQ`Y$;!YIE/JZ!%E97I@@*"
^XMB(3.9,22,2,14065,0)="""DATA"",396.18,469,3,382,0)"
^XMB(3.9,22,2,14066,0)="M&NEV!^9U&YU7Z-U$'""@\""TV+C%3]CDU@0N#+Y56P(S*N+B:1TB`V8<T@B*?("
^XMB(3.9,22,2,14067,0)="""DATA"",396.18,469,3,383,0)"
^XMB(3.9,22,2,14068,0)="M\(`=':VW>6%!C1$N&*!):BPQML=+XI_2G(211Q8$F9#D'(SY0.R9I@:ZIA4+"
^XMB(3.9,22,2,14069,0)="""DATA"",396.18,469,3,384,0)"
^XMB(3.9,22,2,14070,0)="M:""AUF*CQ+:DA(_L""7Z9T:EM;4&2""?7L#)F!?@1&*""`66]$`#/;X/O[TZF[19"
^XMB(3.9,22,2,14071,0)="""DATA"",396.18,469,3,385,0)"
^XMB(3.9,22,2,14072,0)="M0O`!!<496)+RBL2:U]CY_.GDI84NVU'C*XP)+.'YIPF#;-F1`UUK`QA$=V<`"
^XMB(3.9,22,2,14073,0)="""DATA"",396.18,469,3,386,0)"
^XMB(3.9,22,2,14074,0)="MH6MM`%4R#JXQT+4V@!IJ[L``0C>V-3DJ07=C<H!K:Y+W%I@%?X""U`=Q=8-L8"
^XMB(3.9,22,2,14075,0)="""DATA"",396.18,469,3,387,0)"
^XMB(3.9,22,2,14076,0)="M0&!M`.]6G5F@%^HAS$!6':B2XEN5S'WHS<Q%<#-AD9XP%`0'(RR8;8GG9809"
^XMB(3.9,22,2,14077,0)="""DATA"",396.18,469,3,388,0)"
^XMB(3.9,22,2,14078,0)="M0-\@A`<CS-\6\TWI83&RAC`.S;0?85&(M*+TI@@#ECH6^+MR#&E1\L$48=!2"
^XMB(3.9,22,2,14079,0)="""DATA"",396.18,469,3,389,0)"
^XMB(3.9,22,2,14080,0)="ME'L0!F9;(@D98<A2^?<@#,ZV!-`QPCQ+'=N5,*)C6N6/K8')S-J/`I/E54VQ"
^XMB(3.9,22,2,14081,0)="""DATA"",396.18,469,3,390,0)"
^XMB(3.9,22,2,14082,0)="M@F[RU>`%*9!["".,(W2DJ^9AE[$K,8@&')FB;6++)]7X?0'(W9FTD,0D1AP!-"
^XMB(3.9,22,2,14083,0)="""DATA"",396.18,469,3,391,0)"
^XMB(3.9,22,2,14084,0)="MRB+P+67A?5M9K-M(^KL*`]@+`TT)0XG-=,)`EL+POZ$PDF5-'E[B-:Y3-CXV"
^XMB(3.9,22,2,14085,0)="""DATA"",396.18,469,3,392,0)"
^XMB(3.9,22,2,14086,0)="M%?Y.\ICRT09/Z$TYZ""BV,)X0N9'6#[I35MV**M6D[T>5KP(<M04'0S,<&(=B"
^XMB(3.9,22,2,14087,0)="""DATA"",396.18,469,3,393,0)"
^XMB(3.9,22,2,14088,0)="MOE0J.'@R#`^ZMEV'HMT[S?0)2V""5L`029""J$<G*\:WY@T>H%NIYI9NK+Z0PE"
^XMB(3.9,22,2,14089,0)="""DATA"",396.18,469,3,394,0)"
^XMB(3.9,22,2,14090,0)="M@0""AW<3B#UJJLIB3&I?BN].D6,YQWM)2\""0ID7'VYP93E""!+I@CUB5&4LA>9"
^XMB(3.9,22,2,14091,0)="""DATA"",396.18,469,3,395,0)"
^XMB(3.9,22,2,14092,0)="M8<J*E#2X:P_:1%&QCX:YS30@&=I8P-.ND'DL0B%XL_BV@6N,W''2@RN<Y\[I"
^XMB(3.9,22,2,14093,0)="""DATA"",396.18,469,3,396,0)"
^XMB(3.9,22,2,14094,0)="M<,LS:T?&H(CC""\\D-Z;V-5(5S-/%R+N$%(I'F5AU-N:GQL3QF1+.<Y9^O-8I"
^XMB(3.9,22,2,14095,0)="""DATA"",396.18,469,3,397,0)"
^XMB(3.9,22,2,14096,0)="MN19JZ:,1]+P[K98HME++P-U&+:UP\L<4RR+PH<@O9P*CQ.,/#.:RC<)-Z9L/"
^XMB(3.9,22,2,14097,0)="""DATA"",396.18,469,3,398,0)"
^XMB(3.9,22,2,14098,0)="MXRF-TZP>\G2>DDM)W%G<E#8X@$W.EOF3,*@HR4'""%C]2_`!1RE]WU4J[,,FS"
^XMB(3.9,22,2,14099,0)="""DATA"",396.18,469,3,399,0)"
^XMB(3.9,22,2,14100,0)="MT,C`K)""*X=8HI,:'Z$,3L(5""6BW??=_B8KA3;(DP7>>L6]1AB!^@5?S0MS'L"
^XMB(3.9,22,2,14101,0)="""DATA"",396.18,469,3,400,0)"
^XMB(3.9,22,2,14102,0)="M`PBD5HD#3>=""O@>DFIB0U\VQQCJ:A7/Q5)$D!!H/RJVUX6RM_[1N3K76YJ@8"
^XMB(3.9,22,2,14103,0)="""DATA"",396.18,469,3,401,0)"
^XMB(3.9,22,2,14104,0)="MZ:-B),)P4""SIAP*AA9YU7TM_W[Z6`=03';@""KB"",95B!C!WJX&#\2C\=P/<P"
^XMB(3.9,22,2,14105,0)="""DATA"",396.18,469,3,402,0)"
^XMB(3.9,22,2,14106,0)="MW2-;XGTKXOM^+UM1/[H2Z)""M10/7,)N*]M<;`WPKV)UF*85A\L3B?+6UC$#N"
^XMB(3.9,22,2,14107,0)="""DATA"",396.18,469,3,403,0)"
^XMB(3.9,22,2,14108,0)="MX=EU+QHR%[X(3@%!%';NP.1]C;YW\+QJT]4!!-KE+9)%TWJ.R/S#IQ.G0=)R"
^XMB(3.9,22,2,14109,0)="""DATA"",396.18,469,3,404,0)"
^XMB(3.9,22,2,14110,0)="MZ8L.FLB`@;]4SYS%!CMU(0`W:>[CR%DF=7JYP4?.#4[^(D:JHICL>4%(3_.D"
^XMB(3.9,22,2,14111,0)="""DATA"",396.18,469,3,405,0)"
^XMB(3.9,22,2,14112,0)="M03F6#K6-])&$Q9N2M@?J'/S@WEO-TJ9&C.Y.\/?4VW=_<^;Q3_9$ACVBR%[N"
^XMB(3.9,22,2,14113,0)="""DATA"",396.18,469,3,406,0)"
^XMB(3.9,22,2,14114,0)="M.UO(Z@6>)]PGMSV.>@9(S8;(I45:)1=IEM:WG>F58PMS.V##(/:!H/X0N1/H"
^XMB(3.9,22,2,14115,0)="""DATA"",396.18,469,3,407,0)"
^XMB(3.9,22,2,14116,0)="M1:B@K&>?\?-BC36#-CX`?A%H\(O`""P<$8U,9&):KBPWF(7KL*U$\/80QT""^A"
^XMB(3.9,22,2,14117,0)="""DATA"",396.18,469,3,408,0)"
^XMB(3.9,22,2,14118,0)="M:%G;XRTDDQYYMA#&MWA>TK9:""X<,'YQ?UE</`\4((L/:$W$<23881F@:P]@W"
^XMB(3.9,22,2,14119,0)="""DATA"",396.18,469,3,409,0)"
^XMB(3.9,22,2,14120,0)="M6%STO*M:WK%^9.M-=972E0OK39:Q/RA2_B8EACF_?#D;'?^^H84Y=*7.\7""_"
^XMB(3.9,22,2,14121,0)="""DATA"",396.18,469,3,410,0)"
^XMB(3.9,22,2,14122,0)="MSMJ':6'.0F^QJXB6S9Z<^O1D<ON\$9<BBN([446H444UTM;&V<8HNX^Q31'V"
^XMB(3.9,22,2,14123,0)="""DATA"",396.18,469,3,411,0)"
^XMB(3.9,22,2,14124,0)="M:'PM1]=C=M;5V5G`[:S19#IZ3@>>8&=1$_UM;6?[`?(03:^OMR""^:[&F6,J/"
^XMB(3.9,22,2,14125,0)="""DATA"",396.18,469,3,412,0)"
^XMB(3.9,22,2,14126,0)="M(Q70:[*\OR5KY[GSOEGM0**/?B%&32*@BC""/A!R-?:&Q!ET#\L-;YM;&&9;:"
^XMB(3.9,22,2,14127,0)="""DATA"",396.18,469,3,413,0)"
^XMB(3.9,22,2,14128,0)="M@E@`F,-P*L9!R-;&P?T+)BPRTR8\D+A3@^*+E=`,J/,KEARU+J0`W]@I688X"
^XMB(3.9,22,2,14129,0)="""DATA"",396.18,469,3,414,0)"
^XMB(3.9,22,2,14130,0)="MNTKQPK)M.Y^W'`&$^M""2$K6!//3L*.$2IF.$($M""`(AVK2UQJ=HQ2CQ;2@*T"
^XMB(3.9,22,2,14131,0)="""DATA"",396.18,469,3,415,0)"
^XMB(3.9,22,2,14132,0)="M*R5MDM@B3\D2=:;,N420IZGG^';UG!!ND:=T=VDS^(&N&ZF)'22S4;I$='XE"
^XMB(3.9,22,2,14133,0)="""DATA"",396.18,469,3,416,0)"
^XMB(3.9,22,2,14134,0)="M-!/,FRG<3<$NB6G>DZ+$S4^YZ\]LF(?LF:<V[;%GWL&K#O>"">9X]\P""""NW,O"
^XMB(3.9,22,2,14135,0)="""DATA"",396.18,469,3,417,0)"
^XMB(3.9,22,2,14136,0)="M.G0I\5YPS]^"">V&X._>\0Q<8OBWWQEQV8'+9T`/[^VR^PFFS6LOW[XW3#NZ+"
^XMB(3.9,22,2,14137,0)="""DATA"",396.18,469,3,418,0)"
^XMB(3.9,22,2,14138,0)="MTP[OC=..[I73#KZ-TT8/TFF'W\9IAP_2:4??R&G'#])IQ]_(:?L/P&GK,UQL"
^XMB(3.9,22,2,14139,0)="""DATA"",396.18,469,3,419,0)"
^XMB(3.9,22,2,14140,0)="M^8J2X?*Y7@B^F.$""2-H\-GS*<,D9KD""?X?("";88K$""&@0,Z1N]NEN,[[)A]4"
^XMB(3.9,22,2,14141,0)="""DATA"",396.18,469,3,420,0)"
^XMB(3.9,22,2,14142,0)="M9=)UTYVEZ<3S0(H-7JAEI""]4?+U0CC*G:PU]7LC\ZLA0YPC'WJW4_#7O'N);"
^XMB(3.9,22,2,14143,0)="""DATA"",396.18,469,3,421,0)"
^XMB(3.9,22,2,14144,0)="M<RK/,^VX*J3R8F^J6AE_@TQ>;Z1=Q4AKY17(0`G/G^@>08L6'91<:Y?5<,I<"
^XMB(3.9,22,2,14145,0)="""DATA"",396.18,469,3,422,0)"
^XMB(3.9,22,2,14146,0)="MNA8L\I@]'K'&([9XC$'`Q""!)JW;C$+#D$+@/'#(XJ4CGI%QNUW&QVMULGLQ!"
^XMB(3.9,22,2,14147,0)="""DATA"",396.18,469,3,423,0)"
^XMB(3.9,22,2,14148,0)="M*]$CKW:'>F.&]':TWQI%7^T&T+[:O2SH!B\/9)]Q@`S&'Z&QGGRJ`U>-_Q\="
^XMB(3.9,22,2,14149,0)="""DATA"",396.18,469,3,424,0)"
^XMB(3.9,22,2,14150,0)="ML.<XORZ(7BVZ;@P:`(Z9O-B&/*AL(V]1@^^75I@=HZ%\YXZQ1ND]J:W_\TID"
^XMB(3.9,22,2,14151,0)="""DATA"",396.18,469,3,425,0)"
^XMB(3.9,22,2,14152,0)="M?C^P>#_PY'W40;@%`J%@FYHN.H)VD9&I#;8[""E8#R$*'6A1O5[Z4Z323Y-EP"
^XMB(3.9,22,2,14153,0)="""DATA"",396.18,469,3,426,0)"
^XMB(3.9,22,2,14154,0)="M3NZ^""CP+[,8K:C8I04E^N<D:_%F:]WT'MV8?#`WL@ZZX$[KL*5T%KQCLWRQK"
^XMB(3.9,22,2,14155,0)="""DATA"",396.18,469,3,427,0)"
^XMB(3.9,22,2,14156,0)="MNTYY/C3MXAZ(M$OCT[/H<FM8N`;<_<,W$)FB$U%!(B6I""Z:#$Q]:!B=P*CAY"
^XMB(3.9,22,2,14157,0)="""DATA"",396.18,469,3,428,0)"
^XMB(3.9,22,2,14158,0)="MU2O8$&M\+FKI#+<'E@%?@R(=OD8:""X$T1T.1#$/0X&M\;S:""J7Q$H!M_I-$<"
^XMB(3.9,22,2,14159,0)="""DATA"",396.18,469,3,429,0)"
^XMB(3.9,22,2,14160,0)="MTO69D[@/=](T-,9]""\`H4XYX6CD@4I1#&<#]JDZ.ON#QH:^B<7MI6N@+XU%;"
^XMB(3.9,22,2,14161,0)="""DATA"",396.18,469,3,430,0)"
^XMB(3.9,22,2,14162,0)="MK\YV(^LE#<&^>'K?@*>7`*0[$6V8HH>'PM.S""&X$3P_AV%8=:A$/J<T>HV!_"
^XMB(3.9,22,2,14163,0)="""DATA"",396.18,469,3,431,0)"
^XMB(3.9,22,2,14164,0)="M/+W&_7$+)Q4$N]EEB$LF>4P0.7I-8CT-G-R=\I;0.)<7HW`/;FO$*/O\0\WE"
^XMB(3.9,22,2,14165,0)="""DATA"",396.18,469,3,432,0)"
^XMB(3.9,22,2,14166,0)="M69)P^%IQU:2X9E)<,2E6U:CCS;*^SS?^.L?KNFDSK+^#3/BSS8(V_VYN,KGB"
^XMB(3.9,22,2,14167,0)="""DATA"",396.18,469,3,433,0)"
^XMB(3.9,22,2,14168,0)="M3Y_;73NI.^X/QABJ-!]5&-I-/@:&@G[36JU7&-O*4RL!V]S)JYHUD6\RM46>"
^XMB(3.9,22,2,14169,0)="""DATA"",396.18,469,3,434,0)"
^XMB(3.9,22,2,14170,0)="MW3X3KIT>GPK';Z7CDU.'7W;?G'QSTIYLE=:TOV=CM.GX:_G`&V[M64V#$?JA"
^XMB(3.9,22,2,14171,0)="""DATA"",396.18,469,3,435,0)"
^XMB(3.9,22,2,14172,0)="MY^F:V_(JS1?%32L?HCU48!,!?2_5^.Y$3!QK`+Z7B.F.!:J<3K5GOY](XSN0"
^XMB(3.9,22,2,14173,0)="""DATA"",396.18,469,3,436,0)"
^XMB(3.9,22,2,14174,0)="M*.OW9R=2?Q>1HN\X:N^3[-`^LC.D6D--JA5QF\<!L36Z)[5&!X\\TQKI<RQ0"
^XMB(3.9,22,2,14175,0)="""DATA"",396.18,469,3,437,0)"
^XMB(3.9,22,2,14176,0)="MGVF%(@9;MF_V6\>]RO^Z)>%A^E`J?%""?:06A.-?R[B25""?5Y5!2)>53)=,46"
^XMB(3.9,22,2,14177,0)="""DATA"",396.18,469,3,438,0)"
^XMB(3.9,22,2,14178,0)="M-;Y3;MN)1!""9.:FKSZOZ2%JA*'$BGB:&)4-VRC,#@W""$8I7_O;+@T((Z*),'"
^XMB(3.9,22,2,14179,0)="""DATA"",396.18,469,3,439,0)"
^XMB(3.9,22,2,14180,0)="MW&""K#""N17M:(;R*[BI""AQB+V?9)7QH'IA*6TC+A3*+ICB+PUR/AV(.+&(;JM"
^XMB(3.9,22,2,14181,0)="""DATA"",396.18,469,3,440,0)"
^XMB(3.9,22,2,14182,0)="M07X=<[A;;.\""D&?@AKCB7][KP(7VV[L<+]M%U6DUC#$F,J=BSJ79,^C(613D"
^XMB(3.9,22,2,14183,0)="""DATA"",396.18,469,3,441,0)"
^XMB(3.9,22,2,14184,0)="M.].ZV8EE27_!=GSAN2'NHM.F_YL]K]@YPDB6:B<FE/VV('XJ(=,==G*Y$;9D"
^XMB(3.9,22,2,14185,0)="""DATA"",396.18,469,3,442,0)"
^XMB(3.9,22,2,14186,0)="MF?-]`;?B66!CCA2>Q1:UE?/;-4O/]RS(YYA^S+#4LM\<AU44VNV^VMXP+P^D"
^XMB(3.9,22,2,14187,0)="""DATA"",396.18,469,3,443,0)"
^XMB(3.9,22,2,14188,0)="M%3#4#UDO$&'#$;Q/67U&;P!L9`-\B7($O2V&MTFA+XIV@R)IGS(FJV&',EX)"
^XMB(3.9,22,2,14189,0)="""DATA"",396.18,469,3,444,0)"
^XMB(3.9,22,2,14190,0)="MA?V%6K7NMF[KFA&4;=J<*@)7MV$CB'_6!8F.#V48(BL=AZY<NW2]+<IWY@^C"
^XMB(3.9,22,2,14191,0)="""DATA"",396.18,469,3,445,0)"
^XMB(3.9,22,2,14192,0)="M;*""?LYV_:?)L#(RD;;TBUG6B'5`YICSE/H6=EFK3RF<Q(NV3U^8VBLBZ&N4?"
^XMB(3.9,22,2,14193,0)="""DATA"",396.18,469,3,446,0)"
^XMB(3.9,22,2,14194,0)="MH!KE&ZM1D;1?CEQ!#2R*!/&ARE'O-S3I);5^8KV@J#^NN0V]9N)O<-\;:INB"
^XMB(3.9,22,2,14195,0)="""DATA"",396.18,469,3,447,0)"
^XMB(3.9,22,2,14196,0)="ME:^K2T@A(I+;Z,3Q1,*63K7=IZ+5,-6>3*$S5SV20I?:BLA8S[X3X:A(H@/F"
^XMB(3.9,22,2,14197,0)="""DATA"",396.18,469,3,448,0)"
^XMB(3.9,22,2,14198,0)="MT.5V;GOV>WFFKTZ8U#;0J:T4J$?RLF1EWZO85WD4/KYJ6D.=B=6AMG(IVLQ("
^XMB(3.9,22,2,14199,0)="""DATA"",396.18,469,3,449,0)"
^XMB(3.9,22,2,14200,0)="M7EWO!8;-1'E6!T\68J@=FOUM8-=H*SH<=A>`0U4&F?:,F341PM(C!/O4""+(P"
^XMB(3.9,22,2,14201,0)="""DATA"",396.18,469,3,450,0)"
^XMB(3.9,22,2,14202,0)="M:]Y!S9J2.M08NZWM6J,BW=/U.5G?CJ/1.$>EX!&$T98<I3OKP1_)440CUHLM"
^XMB(3.9,22,2,14203,0)="""DATA"",396.18,469,3,451,0)"
^XMB(3.9,22,2,14204,0)="MJI^R7E#.@:GFRW-5)J$G\S74@<8B;V2*O*6DK!IGAI.5;6(Q'DME6[(#_H1E"
^XMB(3.9,22,2,14205,0)="""DATA"",396.18,469,3,452,0)"
^XMB(3.9,22,2,14206,0)="M%;=.5?9.=0UY,9ZUW@/%7/0%QM!8;11CR4B!L,KLZ_N1<7X)/D$$MH((>'=0"
^XMB(3.9,22,2,14207,0)="""DATA"",396.18,469,3,453,0)"
^XMB(3.9,22,2,14208,0)="M4/;O3,)T@`0_%$+@3H6'[D!XP9T*+WK""`O!-U`^*!?""UW>]\#@W@""NNNFC8?"
^XMB(3.9,22,2,14209,0)="""DATA"",396.18,469,3,454,0)"
^XMB(3.9,22,2,14210,0)="MW+JKZ)&C`6)#@=E0HO3]D5YW?2=I""S3`:KT1H.\_/!S`4$2-Q,4]GHR\C@WY"
^XMB(3.9,22,2,14211,0)="""DATA"",396.18,469,3,455,0)"
^XMB(3.9,22,2,14212,0)="M""TV5Y;0LKDE(0R*]A+P[*^9]<0`G\RLGZ5EZQ(5Z-U>8U03KJY*OC!2;RZ8P"
^XMB(3.9,22,2,14213,0)="""DATA"",396.18,469,3,456,0)"
^XMB(3.9,22,2,14214,0)="MLV`;H!PYJW2QR%AEK6\[V.R'\I65#ONGM%4>_ED)ZV],@_:N7D%>UK_@^/2("
^XMB(3.9,22,2,14215,0)="""DATA"",396.18,469,3,457,0)"
^XMB(3.9,22,2,14216,0)="M>I$CZC18XU-B@%AUYZ@IV)%I%U^""9&60>;%:9[ANR*%/)M1D1571XQ)7>-Y]"
^XMB(3.9,22,2,14217,0)="""DATA"",396.18,469,3,458,0)"
^XMB(3.9,22,2,14218,0)="M.*V(]%4BUA&1>Q;/AJ'T1.-@I\;EJEEU7B9S@8LE7B5I3G[R8H<Z*/0ME`""Y"
^XMB(3.9,22,2,14219,0)="""DATA"",396.18,469,3,459,0)"
^XMB(3.9,22,2,14220,0)="MLA?QHRU*1%VYD[`D7:V3M%QAADAXL4MAR+1:.W9'RYJA18-X0\K'/T#C1>-."
^XMB(3.9,22,2,14221,0)="""DATA"",396.18,469,3,460,0)"
^XMB(3.9,22,2,14222,0)="M$U!:9""5/1I2<!'!]_2IWAYHIYY?Y54&^@FA,`_;HIE+/K)H\]1&%IX872J_("
^XMB(3.9,22,2,14223,0)="""DATA"",396.18,469,3,461,0)"
^XMB(3.9,22,2,14224,0)="M(8]BLS/(T(:)FP=X0P^0L:C""V""%DK!N(.&?=?Q<;<X@Q'F28P@QS8R)CJ*$/"
^XMB(3.9,22,2,14225,0)="""DATA"",396.18,469,3,462,0)"
^XMB(3.9,22,2,14226,0)="M-JS:B""&3`DHC?2?]8X_:5OW<$?5#8^KG'D[]O""?UNU/U8U42I""U(B5%&'$]%"
^XMB(3.9,22,2,14227,0)="""DATA"",396.18,469,3,463,0)"
^XMB(3.9,22,2,14228,0)="M&8&:W?;0XRM(C=:CO&E.(^!/QG/J0CH//B5T1Q<R2@E(,)&`%`&W@:S\@47%"
^XMB(3.9,22,2,14229,0)="""DATA"",396.18,469,3,464,0)"
^XMB(3.9,22,2,14230,0)="MV@-WD8'L&?9[4CG5IB2V^]9),A)\,@0DVS=EN<GH'BA=#-N'GVR+`-KW>TUB"
^XMB(3.9,22,2,14231,0)="""DATA"",396.18,469,3,465,0)"
^XMB(3.9,22,2,14232,0)="M<#ZJI1#)!N7&;8GRW6I):&J""[FDFZ$V\RTTA^QUOO/AI>JZ!42DSC=B`;_9$"
^XMB(3.9,22,2,14233,0)="""DATA"",396.18,469,3,466,0)"
^XMB(3.9,22,2,14234,0)="MD*H$1?.LVZ*\SPAASS=-9RZ6&7+.;E?KNE@]%/@^,""0X(G&WNNA.X/O`@#$6"
^XMB(3.9,22,2,14235,0)="""DATA"",396.18,469,3,467,0)"
^XMB(3.9,22,2,14236,0)="M]^5""<J'=HA'(G]6&3`R7)?Z_#<[G$PU)@'ZZ*F\M(M,11+9TT+V;^AR/F0P#"
^XMB(3.9,22,2,14237,0)="""DATA"",396.18,469,3,468,0)"
^XMB(3.9,22,2,14238,0)="MLC+VQLD(;,FHB+4H)]NS`/T""&""0MZ)`U`EHN&IAX>62C$3*""VG>G1=$;]K]C"
^XMB(3.9,22,2,14239,0)="""DATA"",396.18,469,3,469,0)"
^XMB(3.9,22,2,14240,0)="MXGB(+_D/%,\JFCN@H.,N]=%O8<7M\Y6EJ[3N<TP,:""X`=:F+:@#GVIP$E3YU"
^XMB(3.9,22,2,14241,0)="""DATA"",396.18,469,3,470,0)"
^XMB(3.9,22,2,14242,0)="M9,O.EDPL0P""Q!0N@O',,`/%6JR)8ZHDFK""AX?)PB&!J@TWXTV@[E'H""^@04K"
^XMB(3.9,22,2,14243,0)="""DATA"",396.18,469,3,471,0)"
^XMB(3.9,22,2,14244,0)="M0XF3L<5X(C3/TS73""BK99%X7Y81<#0V\XE%:(@M:7F49OD[M*!G6?4)CJ4<:"
^XMB(3.9,22,2,14245,0)="""DATA"",396.18,469,3,472,0)"
^XMB(3.9,22,2,14246,0)="MZ'*J%BA8C2!6E[]_JU*LM&&U,^.SQ..[7D_M>6W<\;J_X4UW<;CSQRO8VBN"""
^XMB(3.9,22,2,14247,0)="""DATA"",396.18,469,3,473,0)"
^XMB(3.9,22,2,14248,0)="MOXLB>-]'$>ZS%.'AI-BA?&(CXD=TG)Y2J8JFL?8('`IK_P7CO[+;@?7OKNE,"
^XMB(3.9,22,2,14249,0)="""DATA"",396.18,469,3,474,0)"
^XMB(3.9,22,2,14250,0)="M$%(SCYP;<K&2KP%Z#1*GF]=7RD5$+WJ&BSZ]&""@7/]%U4XES.ZQ[$#IDTO/9"
^XMB(3.9,22,2,14251,0)="""DATA"",396.18,469,3,475,0)"
^XMB(3.9,22,2,14252,0)="M[60C4&#LE""I':[MQ'%ERW)OB^$GZ_^U=Z7/<N'+_5UC.A[&KO`YQ\'(EE?+Z"
^XMB(3.9,22,2,14253,0)="""DATA"",396.18,469,3,476,0)"
^XMB(3.9,22,2,14254,0)="MR#JU?G;)WMWD(SVB)&9GAI,AQ[+>7Q\`/`$T0'`NV=*\VGHE<ZX&NM'H\]>+"
^XMB(3.9,22,2,14255,0)="""DATA"",396.18,469,3,477,0)"
^XMB(3.9,22,2,14256,0)="MRR&D)_M86@VRXY^Y29B-K]<,?*H8R;NMUQ4;=E0-_%9L-P-N(W:LL7>9W@V>"
^XMB(3.9,22,2,14257,0)="""DATA"",396.18,469,3,478,0)"
^XMB(3.9,22,2,14258,0)="M$?8L4I[5[U,D$+.'5'W8HZ*FM6Q9VST$HJX>/),/I=JX$VBM4NVF#K<,S\YP"
^XMB(3.9,22,2,14259,0)="""DATA"",396.18,469,3,479,0)"
^XMB(3.9,22,2,14260,0)="M9'(2SX1""%<EH2&J!KI[$""YR[N^*]F[OP;IE'HEG[L6MSUQ[(62(>C,9%&@?!"
^XMB(3.9,22,2,14261,0)="""DATA"",396.18,469,3,480,0)"
^XMB(3.9,22,2,14262,0)="MF$@C7P\($SH[%_/*XF$""*8OBO67Z\""!E7""H0G""Z0W1RUA[X;'=/'IF/-E`P?"
^XMB(3.9,22,2,14263,0)="""DATA"",396.18,469,3,481,0)"
^XMB(3.9,22,2,14264,0)="M86(&^;:M3L9/XFX[_0C/81VYMIA`1G!5)52J^<M!-&X`H>10X/@_5U&]$&%;"
^XMB(3.9,22,2,14265,0)="""DATA"",396.18,469,3,482,0)"
^XMB(3.9,22,2,14266,0)="M3HM8IY%IJ/IM%<E@:S$Z05&]->]TN%)[ETP4&@W]H..&?DX%^76\`,^/6[=M"
^XMB(3.9,22,2,14267,0)="""DATA"",396.18,469,3,483,0)"
^XMB(3.9,22,2,14268,0)="M2""X2J/HW2OKL8EV7UD]=B.79U_70],><7D1@S)::IBY$MNI??7R-*;WXL'*)"
^XMB(3.9,22,2,14269,0)="""DATA"",396.18,469,3,484,0)"
^XMB(3.9,22,2,14270,0)="M4>@0;2=*ZU_@D,QKMNEI^6PDQ&X8^J#X4N08N<S(D+4)D-4<<_IQ>:A!V0C-"
^XMB(3.9,22,2,14271,0)="""DATA"",396.18,469,3,485,0)"
^XMB(3.9,22,2,14272,0)="M#HA;L>^47=,`.>BDU)*`5)*I-*>6#!1A&9%%SS\[[-ODU)+1#1.]?^!``,4^"
^XMB(3.9,22,2,14273,0)="""DATA"",396.18,469,3,486,0)"
^XMB(3.9,22,2,14274,0)="M20[FI4?[1A9$A1R(;RV?QV!TF#P^04US;YV86Y`DNJG:NXJT5!G26P3['J0#"
^XMB(3.9,22,2,14275,0)="""DATA"",396.18,469,3,487,0)"
^XMB(3.9,22,2,14276,0)="MVB%IOAI:T4S6V&G\4,CS##[?9HN%9&^K(W>$>3[_6WK/7UGZ-R^+&GP/LU6O"
^XMB(3.9,22,2,14277,0)="""DATA"",396.18,469,3,488,0)"
^XMB(3.9,22,2,14278,0)="MY$<#U)DC&2W^X3(6C7`:""NXQ)7L+IRE61_<,;,0NH5S%0Z&Z5';H1@,7Y1'&"
^XMB(3.9,22,2,14279,0)="""DATA"",396.18,469,3,489,0)"
^XMB(3.9,22,2,14280,0)="M<D/+5E,0`D6Y2I':/H(U6'NUYA3[\1D#90PEJ0EQ1,:$3R*%T[5\S^BD.]X*"
^XMB(3.9,22,2,14281,0)="""DATA"",396.18,469,3,490,0)"
^XMB(3.9,22,2,14282,0)="M>K"",XD\6[AA#9Z&RI:KYWZJQW%EF@[TE/SF(`!KS=C'8ZQKUWBZ59@P&RAQ<"
^XMB(3.9,22,2,14283,0)="""DATA"",396.18,469,3,491,0)"
^XMB(3.9,22,2,14284,0)="M7&<>SG-P]:($O;[6Y-)A:_LK=76`WZ_*:K,5-7,/Q`E.#-632KY&':[GNZ/F"
^XMB(3.9,22,2,14285,0)="""DATA"",396.18,469,3,492,0)"
^XMB(3.9,22,2,14286,0)="M-L;=5V&\>$]^W>:+2^;I%.PZ6S[A;@T'A*UXD<.""FV/,(5O7+Y9LJ])\.:Q="
^XMB(3.9,22,2,14287,0)="""DATA"",396.18,469,3,493,0)"
^XMB(3.9,22,2,14288,0)="MS`0@+CO:*Z82<EY17]<J<L\H^YXN\Y6H>^1ME=Z7F[QLOZK^ZMM\^%U,.[*/"
^XMB(3.9,22,2,14289,0)="""DATA"",396.18,469,3,494,0)"
^XMB(3.9,22,2,14290,0)="MK3SFJ*;?TGS![U?18\J^Z\F;8KX5Q9`=H;?""=GSNI:5H;?6DFLJZ"">!)\V;V"
^XMB(3.9,22,2,14291,0)="""DATA"",396.18,469,3,495,0)"
^XMB(3.9,22,2,14292,0)="ME9RHRZQB7YM=OGSBE6(/^,9P0G9H44UB!S;IUAQQ+S-MV`2LG+$HXR%)[S*M"
^XMB(3.9,22,2,14293,0)="""DATA"",396.18,469,3,496,0)"
^XMB(3.9,22,2,14294,0)="M4F^37:<;<9-T;-JPCWZ3.HM75>NO<JYXU=TZVV71B<.BM?&!)*+35WV1?<NS"
^XMB(3.9,22,2,14295,0)="""DATA"",396.18,469,3,497,0)"
^XMB(3.9,22,2,14296,0)="M6Z]=O)`BL7+QF`<(>""GRU9V7SN?;33H7@8-R^U6""=&8W-!=)MDLOK%&$P%`T"
^XMB(3.9,22,2,14297,0)="""DATA"",396.18,469,3,498,0)"
^XMB(3.9,22,2,14298,0)="M3&UGSJ%<%HW\;.+PLZH,.?PLMO]LZ#O\K,9%A]\E+T:B(*8""""^6GU9':>T04"
^XMB(3.9,22,2,14299,0)="""DATA"",396.18,469,3,499,0)"
^XMB(3.9,22,2,14300,0)="M)H'GPN8"".)""X+J>`D#%(?5<-@,B""L[6@60L$EDQ0,.74OQJVP;ZKK?!GSI,Y"
^XMB(3.9,22,2,14301,0)="""DATA"",396.18,469,3,500,0)"
^XMB(3.9,22,2,14302,0)="MG_/KAV(J&.8-8&KS`4*'X0Q?LN6:U_EM-YE5DQC&R<H$J//OL$MY_'91COQT"
^XMB(3.9,22,2,14303,0)="""DATA"",396.18,469,3,501,0)"
^XMB(3.9,22,2,14304,0)="M[/#3FA*+'+3815:N<[;X8G/G7;2UCD8R$@<RL`KFYA(/_ROK7!_C_6%0Y""BP"
^XMB(3.9,22,2,14305,0)="""DATA"",396.18,469,3,502,0)"
^XMB(3.9,22,2,14306,0)="M@R6Z,*#8KB[MXTH""Y+)TU;V/G)?NL8/)?.6C'%6TTU'=Z9`&<'^<G)_`:M\&"
^XMB(3.9,22,2,14307,0)="""DATA"",396.18,469,3,503,0)"
^XMB(3.9,22,2,14308,0)="M(FH[5!@8;:9FOW[GP""Y/V<&=-RU(M_5S`?C""D6!2T2Y;>%]39O[FJ^R9]S3E"
^XMB(3.9,22,2,14309,0)="""DATA"",396.18,469,3,504,0)"
^XMB(3.9,22,2,14310,0)="M4RR&-M-UUGZLL;RQ*&GFAGLVSX29R5RM3'Q_T_SS['01L2/P;9(!')@FO!R>"
^XMB(3.9,22,2,14311,0)="""DATA"",396.18,469,3,505,0)"
^XMB(3.9,22,2,14312,0)="MF_^9,@8`W+SFS\_</`@W`Y<[1,W)10Z9PU\717%99P_'[M#`$""&A<EE\H-9X"
^XMB(3.9,22,2,14313,0)="""DATA"",396.18,469,3,506,0)"
^XMB(3.9,22,2,14314,0)="MCQ/QK_;?=;F[4:)..'98_&_9(&CW\^IM0^D&#8[,%Y<[O8N?]5-FQG_W_6I^"
^XMB(3.9,22,2,14315,0)="""DATA"",396.18,469,3,507,0)"
^XMB(3.9,22,2,14316,0)="MDY5V%PT97#2D3&(.PX/5""^\SX(3/#X^@.>*R&&NY7LT*T4HJ(Q0$,V=\6O[["
^XMB(3.9,22,2,14317,0)="""DATA"",396.18,469,3,508,0)"
^XMB(3.9,22,2,14318,0)="M\3@=:J.&`QWL+6CF7*/'?U^T%HT0H@]6=Z`DIN',&?E%4((@2D+90$3)B'4*"
^XMB(3.9,22,2,14319,0)="""DATA"",396.18,469,3,509,0)"
^XMB(3.9,22,2,14320,0)="ML0;/G/.!<K9D+'_BRSCC1""VWB<(1#)00^^@86.SDAU.GKOBIW""SM_\7-FK$4"
^XMB(3.9,22,2,14321,0)="""DATA"",396.18,469,3,510,0)"
^XMB(3.9,22,2,14322,0)="MI,-,D3:S:$0J5^I_]!E!Q$',K+VG8ZG'>&R;_HV)VZ""#;/`W'OQ-!G]3GT?;"
^XMB(3.9,22,2,14323,0)="""DATA"",396.18,469,3,511,0)"
^XMB(3.9,22,2,14324,0)="MEX5#PQTU5IN'\0%VANRS,\F][(S02`322(D<OU9[C[3<""J`:N\XCAPRY((1"""
^XMB(3.9,22,2,14325,0)="""DATA"",396.18,469,3,512,0)"
^XMB(3.9,22,2,14326,0)="MA*#@`)20F3,^E*`$CRMII(V+&5/2$4%D9NF_,V1F$1!KK0-6$,@14D&.HL=>"
^XMB(3.9,22,2,14327,0)="""DATA"",396.18,469,3,513,0)"
^XMB(3.9,22,2,14328,0)="MA4QA$`O?Q<50!^SBP#6P^EM1<BB+1?[/;N;>YQJDZRA.0'!ZC""-X9J54Q!VH"
^XMB(3.9,22,2,14329,0)="""DATA"",396.18,469,3,514,0)"
^XMB(3.9,22,2,14330,0)="MM1:^@TG>[IQ(:+5`Q""/P+MB!F$2=,1LZ5$F_2:OL)>]K?EXW)@NB>+C`RZ^\"
^XMB(3.9,22,2,14331,0)="""DATA"",396.18,469,3,515,0)"
^XMB(3.9,22,2,14332,0)="MOU?%;3U-<=W@&E<9SZR-0+\8`)ID:I&:6@,*`*`X;5K6PE8UHTT;9#@[16'B"
^XMB(3.9,22,2,14333,0)="""DATA"",396.18,469,3,516,0)"
^XMB(3.9,22,2,14334,0)="M0)$:L*4:.(YEB.<[1I*`0&9JAZ,S7^6+11M_J;<Q7_'*S09BND[E/OEC)5Y["
^XMB(3.9,22,2,14335,0)="""DATA"",396.18,469,3,517,0)"
^XMB(3.9,22,2,14336,0)="MXEU)\-*;X9N]55$U7\%YL]Z6-31T61<HUQG]7<;.NFR).NS%J81Z.$:9#\N5"
^XMB(3.9,22,2,14337,0)="""DATA"",396.18,469,3,518,0)"
^XMB(3.9,22,2,14338,0)="M-44IEE&S+<_&2KU#0V6$G#W$&BKTO:((U:XL-G1I=TJVI5T)U=/$Q:T&Z[_W"
^XMB(3.9,22,2,14339,0)="""DATA"",396.18,469,3,519,0)"
^XMB(3.9,22,2,14340,0)="M[BPGIK&A\B@'$HZU#I/8-100[A<)`&TJ68K5U@2""1JU=XL>1>R1`@#9`U:>*"
^XMB(3.9,22,2,14341,0)="""DATA"",396.18,469,3,520,0)"
^XMB(3.9,22,2,14342,0)="MRO.3'0A)\!E:5BJI#AUV.B!C)=5$K?-')`@?WTY3>V20.*D#E(33U8&IXC[8"
^XMB(3.9,22,2,14343,0)="""DATA"",396.18,469,3,521,0)"
^XMB(3.9,22,2,14344,0)="M5X=A`]$='$9-=!A-CV8V][41P'X/HJD3T<@_)-5DS^8&!YVG@7H`S0V^VMP0"
^XMB(3.9,22,2,14345,0)="""DATA"",396.18,469,3,522,0)"
^XMB(3.9,22,2,14346,0)="M1=1_?$<Q&G&40Z@F*1A6,%.I)DF!`\9U3<9C]I0#N*(&M#`C*?>AAH3CR-E/"
^XMB(3.9,22,2,14347,0)="""DATA"",396.18,469,3,523,0)"
^XMB(3.9,22,2,14348,0)="MSDM15<*,X2^;=+M,GW83""'YR#]F02Y0!7[4D#'&H1&*NW?-^1(\8=,.<3K9Q"
^XMB(3.9,22,2,14349,0)="""DATA"",396.18,469,3,524,0)"
^XMB(3.9,22,2,14350,0)="M`NA;[.++GSC5V&A\$TH/D6=""JO@54[-N/T'Z_C`7J;B2P""8P;(6D)+YV(T6)"
^XMB(3.9,22,2,14351,0)="""DATA"",396.18,469,3,525,0)"
^XMB(3.9,22,2,14352,0)="M=B,%R>.[D?R1&PE""D*""#&EDRO(\B>H[<*O=1"",<\J""'D@6PWDFY6F6ZD-WEZ"
^XMB(3.9,22,2,14353,0)="""DATA"",396.18,469,3,526,0)"
^XMB(3.9,22,2,14354,0)="MO2K*O'P8UQ`.X6(:J@`X1,F/%R)""AJGQ!""E`?FKKCREN,!XB(OMZ*@94`RPG"
^XMB(3.9,22,2,14355,0)="""DATA"",396.18,469,3,527,0)"
^XMB(3.9,22,2,14356,0)="MU$@\UH3M/O4,[TNRN!6@;4Z""O6DVN;%[7&2->JYA#;I_R*DZ>6J+0K96&$3:"
^XMB(3.9,22,2,14357,0)="""DATA"",396.18,469,3,528,0)"
^XMB(3.9,22,2,14358,0)="MBERNZCOM_^*""U]J*F00!]#*S5P6R@%2O\&I;%?5;QAK_]9.JE#EI4[""UW,`@"
^XMB(3.9,22,2,14359,0)="""DATA"",396.18,469,3,529,0)"
^XMB(3.9,22,2,14360,0)="M\)P0;9!6/_U*`ED7_5#<6+S:%,MF+LS_;;.R\GA,W4O+LICG*6\2NLTK'DO/"
^XMB(3.9,22,2,14361,0)="""DATA"",396.18,469,3,530,0)"
^XMB(3.9,22,2,14362,0)="M2^]2T8EN6M&F%XVFDX-N-%SXY@N]$2(0*\6PYXF\Y4%,U""UO#_38CK_JAQZ\"
^XMB(3.9,22,2,14363,0)="""DATA"",396.18,469,3,531,0)"
^XMB(3.9,22,2,14364,0)="M+I:\<:O=13-9R""@*2*:+:H+0#UVSD]4TE=7)!J&]17ZF[454A:/;>D!_6S?8"
^XMB(3.9,22,2,14365,0)="""DATA"",396.18,469,3,532,0)"
^XMB(3.9,22,2,14366,0)="M4:9#K*ZDS<2.+>3-0Y5-@AV%`(7:7+W`43B?ON-G'@=^]$QI6OUZ)]HB7^S*"
^XMB(3.9,22,2,14367,0)="""DATA"",396.18,469,3,533,0)"
^XMB(3.9,22,2,14368,0)="M^-!TLJ@?*V=+(S^)W*CG6<6WKU[_UNNGE^-'RT<FPG`H$Q9A_70E&F7]I_2\"
^XMB(3.9,22,2,14369,0)="""DATA"",396.18,469,3,534,0)"
^XMB(3.9,22,2,14370,0)="MIU=[ZSS3R4AM)B[R4Y57PS/6]>1RK)<G'`F;'<Q-)G3Q(//)1]@:-?/.C$(^"
^XMB(3.9,22,2,14371,0)="""DATA"",396.18,469,3,535,0)"
^XMB(3.9,22,2,14372,0)="M=N54I""M!-T:A%PY\(:YDH%['3:2#N-!!7>4#H`.U)I.[@+Q?73+OLJKE(KNZ"
^XMB(3.9,22,2,14373,0)="""DATA"",396.18,469,3,536,0)"
^XMB(3.9,22,2,14374,0)="M8N24W<3@CKT>3^O/Y]MUVMPE==@G7]S)`N+QD</?V(63[2,1@3,K@F1'5E`7"
^XMB(3.9,22,2,14375,0)="""DATA"",396.18,469,3,537,0)"
^XMB(3.9,22,2,14376,0)="M5H3.K-#I(('C12AN/Q=JW#6:IC=""G9A>E8!BP77;IAY`L]YNUDQQE,_99;PN"
^XMB(3.9,22,2,14377,0)="""DATA"",396.18,469,3,538,0)"
^XMB(3.9,22,2,14378,0)="M-N+94#J80I@7J]K*$'*15](0;8Y)T,A5F:U3/JQ@<<<';:^R.?/>>""T""<]76"
^XMB(3.9,22,2,14379,0)="""DATA"",396.18,469,3,539,0)"
^XMB(3.9,22,2,14380,0)="MS01PCL+/ZUG6FUS4L^1E^C67OVV15^QV^)8NMG4(\JJM[NC(V$/V8F?9\Z,="
^XMB(3.9,22,2,14381,0)="""DATA"",396.18,469,3,540,0)"
^XMB(3.9,22,2,14382,0)="M90^[<#MQECV=CJY*<8R2C^OZ.#]O?6>^DVP+.]P""ZX4F@DO2$,0AG>KP7?V$"
^XMB(3.9,22,2,14383,0)="""DATA"",396.18,469,3,541,0)"
^XMB(3.9,22,2,14384,0)="M1#J5U.]T&M!S;4;FA3Q2R!S4=K6C-^Z?2%W-TCD*</\0V%D8XG&@5+F.[<\*"
^XMB(3.9,22,2,14385,0)="""DATA"",396.18,469,3,542,0)"
^XMB(3.9,22,2,14386,0)="M^V\KAKCUFG4PUM?-C+0;DA93TLF8-)J39H-R(""N041FZ,P!%$<""""X4-G%C0H"
^XMB(3.9,22,2,14387,0)="""DATA"",396.18,469,3,543,0)"
^XMB(3.9,22,2,14388,0)="MF_GUBEF7<PZ]T3%%O=>Z^VNP""6!)M7VAL?LZ^VM\6&XW89EOQ5H>HSB9CS,*"
^XMB(3.9,22,2,14389,0)="""DATA"",396.18,469,3,544,0)"
^XMB(3.9,22,2,14390,0)="ML=,^QR&PSSB$]KE_QEM""N9$LG6QA#?/+2EQ/?%9@S1-8O*0;C7U?-_'6(F^&"
^XMB(3.9,22,2,14391,0)="""DATA"",396.18,469,3,545,0)"
^XMB(3.9,22,2,14392,0)="MV\R^11A/4'D$V""$4N$OB159RK$IF(-P6F[^[6V3WH]0#B""HSWLV+H`&P""`*Q"
^XMB(3.9,22,2,14393,0)="""DATA"",396.18,469,3,546,0)"
^XMB(3.9,22,2,14394,0)="MF0X?MKDD'W>`HN/CWG_X8V681V^=2""_:A00H1ZLL:P4S9"".'!1I[PS\*]L)R"
^XMB(3.9,22,2,14395,0)="""DATA"",396.18,469,3,547,0)"
^XMB(3.9,22,2,14396,0)="MO2CNLLM^.+WMJ,.CYNVR$4R1C8&M-""8<00((!S/+(I=S^CBEYE7);UBV'V]R"
^XMB(3.9,22,2,14397,0)="""DATA"",396.18,469,3,548,0)"
^XMB(3.9,22,2,14398,0)="M)@^<R=Z;K7*5""H^3HYEQM^&+0,D:`M\J;WCUM>2UV%E>+N6W2/BX-HS<""0*'"
^XMB(3.9,22,2,14399,0)="""DATA"",396.18,469,3,549,0)"
^XMB(3.9,22,2,14400,0)="MW`2.6@0.A4@5N0`R8GP""Z50_!D4NBL\B9Q(Y7DS`_$>IH;%!8FYEZ'6QXG@-"
^XMB(3.9,22,2,14401,0)="""DATA"",396.18,469,3,550,0)"
^XMB(3.9,22,2,14402,0)="M&]4@$H(V=#5_S6[2;WFQD=_SJ>""],SPGT4R=2""5HPVXLQ153A4P&[]@2%XOB"
^XMB(3.9,22,2,14403,0)="""DATA"",396.18,469,3,551,0)"
^XMB(3.9,22,2,14404,0)="MEM^!`!*B1MV'HC88C*^G*V[2O>%3C#?:^SZU\'(B(O=[?B7N7NZ#OTXWF[LA"
^XMB(3.9,22,2,14405,0)="""DATA"",396.18,469,3,552,0)"
^XMB(3.9,22,2,14406,0)="M.*I*Y@7WF+4W?%YG&7.D^_?)+_^6I0)+T/3ZG[F8NFQZ^7<F2]Q8^EP)&$+Y"
^XMB(3.9,22,2,14407,0)="""DATA"",396.18,469,3,553,0)"
^XMB(3.9,22,2,14408,0)="MQ187F_N@[QBSKK>9:5.8-&2KZ^KFI??'>LW.+I/]3;:T[&+_@=^+6_,'_F""+"
^XMB(3.9,22,2,14409,0)="""DATA"",396.18,469,3,554,0)"
^XMB(3.9,22,2,14410,0)="MX^$(IH""8G#+-Q""1'?L>[;""[DP/2Z!!S>#BRY8FMA/Y>MJN,K,3RBQ$09CCS!"
^XMB(3.9,22,2,14411,0)="""DATA"",396.18,469,3,555,0)"
^XMB(3.9,22,2,14412,0)="MT'IA0B8A""6)(?24^K+X2%_5U'/6$#>I)K^&Q*B=C+8]4SS/&)6M=#UP',&""C"
^XMB(3.9,22,2,14413,0)="""DATA"",396.18,469,3,556,0)"
^XMB(3.9,22,2,14414,0)="M.0(3&""(P7<+<%H/!X7%B,,0<`O#-3AM1Y0^Z/.-=@C!*=-L0B!$1;3@&\-/Z"
^XMB(3.9,22,2,14415,0)="""DATA"",396.18,469,3,557,0)"
^XMB(3.9,22,2,14416,0)="MSSMYC9&%29J)@X%0602I"")*`3'HEQJ\R@W$8E8$9\A^/EB,XGG!L""`'4=H=Y"
^XMB(3.9,22,2,14417,0)="""DATA"",396.18,469,3,558,0)"
^XMB(3.9,22,2,14418,0)="M-^G@/!&WU).&-4Y'99J/+V-_8&2``QD61SA)8(R`U281Z/+[=$""^""20$``I1"
^XMB(3.9,22,2,14419,0)="""DATA"",396.18,469,3,559,0)"
^XMB(3.9,22,2,14420,0)="M7M710M02JIMBDW5!]7NX$`]JK]OB!RO%,)*&5L.#JX?#JQ4K5[3MECL$$=`T"
^XMB(3.9,22,2,14421,0)="""DATA"",396.18,469,3,560,0)"
^XMB(3.9,22,2,14422,0)="MX</CPH="">G#I2TXC?>RKUVO&K[/\G4S^\#3Y(^/RAX>7Z&'D;X#F<E3Y>_L]"
^XMB(3.9,22,2,14423,0)="""DATA"",396.18,469,3,561,0)"
^XMB(3.9,22,2,14424,0)="MV\SS,CO+W\GDCTR3/^IP^6HN(D%[JK_@1.J/%R^<+]_3""1^=)'RB46""RY;>G"
^XMB(3.9,22,2,14425,0)="""DATA"",396.18,469,3,562,0)"
^XMB(3.9,22,2,14426,0)="M]""$_BDXC?1<B&-6#R9PE\`02&$Q3?\%.YM_>""A#ATXC@ETWZC>,2GPW`TTE@"
^XMB(3.9,22,2,14427,0)="""DATA"",396.18,469,3,563,0)"
^XMB(3.9,22,2,14428,0)="M.$D""16QLS`""D_N&OX/@T$O@N$PC79_D[F?Q%TS1@LH,!B*%@TR3I""T\C?;^F"
^XMB(3.9,22,2,14429,0)="""DATA"",396.18,469,3,564,0)"
^XMB(3.9,22,2,14430,0)="MU<U9^DXI??$TZ8MWBOWM+7XGL@#?\%[5L_R=4OZ2:?(7[1;^VU<`N]&IQ[;_"
^XMB(3.9,22,2,14431,0)="""DATA"",396.18,469,3,565,0)"
^XMB(3.9,22,2,14432,0)="MBGR156<)/&D`VI\F@N%N$<""]=2`YC0BR%17+LP2>5`*GY4`<[F""M2B0$TO1#"
^XMB(3.9,22,2,14433,0)="""DATA"",396.18,469,3,566,0)"
^XMB(3.9,22,2,14434,0)="M/=D756)`^B)*CBE]=C;]3Z95K0[W>$(]*B^H24R%-4BO1J<Q4%GC0[M&,1RY"
^XMB(3.9,22,2,14435,0)="""DATA"",396.18,469,3,567,0)"
^XMB(3.9,22,2,14436,0)="M""L^%-9,+:Q!VJZQIH""E4W+^.H4&BHB+X2&L'0WHS9@!T87&`5&_8@SL#""FJZ"
^XMB(3.9,22,2,14437,0)="""DATA"",396.18,469,3,568,0)"
^XMB(3.9,22,2,14438,0)="M#XYB5AA6Q.62*/()HPV$OM98&@(]T?W]T@EE'""%RQ#YX#/;!0S)GD#B+O`VD"
^XMB(3.9,22,2,14439,0)="""DATA"",396.18,469,3,569,0)"
^XMB(3.9,22,2,14440,0)="MS2QK(Y*FQ[Y!3K1#(+`V$,*,N1%H4`N$`LW@`$MPW*>7#56V4,+<HC:[K3+*"
^XMB(3.9,22,2,14441,0)="""DATA"",396.18,469,3,570,0)"
^XMB(3.9,22,2,14442,0)="M&87E3%U5%+DLJF_0[Q:5!`$ZR]G@5FHX84$#PP`:&*XSQ^UDSB$>&*X/_`""O"
^XMB(3.9,22,2,14443,0)="""DATA"",396.18,469,3,571,0)"
^XMB(3.9,22,2,14444,0)="M""L%X8/V6_IXOLY\$VBN""L:K@H0+*+!)EJ$#[J@W9Z]/%QT]O+[Z\?_OY84RY"
^XMB(3.9,22,2,14445,0)="""DATA"",396.18,469,3,572,0)"
^XMB(3.9,22,2,14446,0)="MQ88IM])&406P/W`8],H$G1>0_SORPY]]6!T-'?8H5(0I=ABR4%_Z7[+OU;]S"
^XMB(3.9,22,2,14447,0)="""DATA"",396.18,469,3,573,0)"
^XMB(3.9,22,2,14448,0)="MQ+B9TY""M9&3(E@2G&F,53U5%VJ(*$#I3)""0ZX(RM?K4?,@Y/L?""*=;[BCV[3"
^XMB(3.9,22,2,14449,0)="""DATA"",396.18,469,3,574,0)"
^XMB(3.9,22,2,14450,0)="MTEMFFVMFZN:KMAJTG\F%Q^88#>W]@:T_`58104B_X6#X>.V>]WY0(""O2^-$#"
^XMB(3.9,22,2,14451,0)="""DATA"",396.18,469,3,575,0)"
^XMB(3.9,22,2,14452,0)="M*\;@@8D-TQV)A%BM3CW23XP)6+&&4RNNO`^%>&'8G2-:9MY^YUTI3`-Y_RBJ"
^XMB(3.9,22,2,14453,0)="""DATA"",396.18,469,3,576,0)"
^XMB(3.9,22,2,14454,0)="M[&%HZM@PDUM&UE,FBG9H8UKAMFVT2BH*A-FY_-^""R_;3%@FD6*^+,J\R;[N2"
^XMB(3.9,22,2,14455,0)="""DATA"",396.18,469,3,577,0)"
^XMB(3.9,22,2,14456,0)="MWR+P@H?0'K/59?:=0PNOKI][F[:3:9%7%=N'*_9OQIOG[/2G?(*K>&V3S=GA"
^XMB(3.9,22,2,14457,0)="""DATA"",396.18,469,3,578,0)"
^XMB(3.9,22,2,14458,0)="M$-7\O!)Y^%W?ZG>LT[+,V=^;EOO+0L8,:2?5U%0WKSZ]6@R_*_M>CX7A+7;\"
^XMB(3.9,22,2,14459,0)="""DATA"",396.18,469,3,579,0)"
^XMB(3.9,22,2,14460,0)="M?GKVW-N6@C[OFGVL6&95MGGAO;]JRMCSDOUN+OH*Q!=*:WS>4IU6WBWO(E^+"
^XMB(3.9,22,2,14461,0)="""DATA"",396.18,469,3,580,0)"
^XMB(3.9,22,2,14462,0)="M7VZFT:AT\F?BN[YFUSD75'F_..,[I)T)\V7BQ$$ND#K[!""<N\V5ZC)<&V4T@"
^XMB(3.9,22,2,14463,0)="""DATA"",396.18,469,3,581,0)"
^XMB(3.9,22,2,14464,0)="M3@U&YECW?H?%(,,8&GDUL3;(97P`DR3ELO0R2?RZK<3X'Z.$L_>PD\T;SH9<"
^XMB(3.9,22,2,14465,0)="""DATA"",396.18,469,3,582,0)"
^XMB(3.9,22,2,14466,0)="M2WM$/H%M)Q305=<UV$KLQ<</+W:9:V-`T\21,FXT&1L*$;HB@$Z:%FNX5($["
^XMB(3.9,22,2,14467,0)="""DATA"",396.18,469,3,583,0)"
^XMB(3.9,22,2,14468,0)="M-1HX)W7@L+M3:P^M)[7F]&.^4Q/#R3""@P,L3>)13[CO#Y[_)JC1?=!U5GV2\"
^XMB(3.9,22,2,14469,0)="""DATA"",396.18,469,3,584,0)"
^XMB(3.9,22,2,14470,0)="MAY_W[JSEUW22`GF&1C0V],-]VM*^^.H!B*].;'""T0:CJ=$RUZ:(11F=\=2VB"
^XMB(3.9,22,2,14471,0)="""DATA"",396.18,469,3,585,0)"
^XMB(3.9,22,2,14472,0)="MXF.,(6=@./1#PEC'LBM`ZX:L1ZRV:NA_/;[`=M8P%+`33G!"")G)W!VID$MZ4"
^XMB(3.9,22,2,14473,0)="""DATA"",396.18,469,3,586,0)"
^XMB(3.9,22,2,14474,0)="MW0X!>2""Q&;9W$1S(4M26.J_>]]T'*HJF0!G:Z*89I<(,X[G`[9NS/62V[%.!"
^XMB(3.9,22,2,14475,0)="""DATA"",396.18,469,3,587,0)"
^XMB(3.9,22,2,14476,0)="M3<!'A)0""Y%6\/K2'O$5:5@+ME4^U%$!*[+^4F<G?\NQ6@H$%LUP3+$6Q.7A\"
^XMB(3.9,22,2,14477,0)="""DATA"",396.18,469,3,588,0)"
^XMB(3.9,22,2,14478,0)="M<Y`:`ND&)=DLW]?IMNSFH.2,UTS)5S7,JH!#8E:\6""K""O]33/-=,`(K+E^;%"
^XMB(3.9,22,2,14479,0)="""DATA"",396.18,469,3,589,0)"
^XMB(3.9,22,2,14480,0)="MV=81AP[KH-H(68<(TQ>`]LNM<,@@^@_&'(PU,-BNZD89U:?.5PA\AV&JVTTS"
^XMB(3.9,22,2,14481,0)="""DATA"",396.18,469,3,590,0)"
^XMB(3.9,22,2,14482,0)="M#/?*FV\W`I\FZ[3`+EQ@!&,7+JCD)@[""]*7QC7H*=R0P<MG14/$&$H?]?-WL"
^XMB(3.9,22,2,14483,0)="""DATA"",396.18,469,3,591,0)"
^XMB(3.9,22,2,14484,0)="MH08W-Y7""Q$%;*3L8.PPJ^@,""P[,,_,$X,4Q/($J\)!X=^N/L.R6[6WPBC,O3"
^XMB(3.9,22,2,14485,0)="""DATA"",396.18,469,3,592,0)"
^XMB(3.9,22,2,14486,0)="MB(QR,4.A?2#33N613XH73""*D32-(@,&^5;[)!#SH=I6UF%ZF`:<@ET,3KC$*"
^XMB(3.9,22,2,14487,0)="""DATA"",396.18,469,3,593,0)"
^XMB(3.9,22,2,14488,0)="MPS$\\9@Z8K%S&!]V9C:""7`EP!51.%MQX1G$<NH'ST\0A\0_2*RZ,`Q)LPJY%"
^XMB(3.9,22,2,14489,0)="""DATA"",396.18,469,3,594,0)"
^XMB(3.9,22,2,14490,0)="M*A!(HD&+(^0(7EO?_//#4IZ8A`/[2LH8]]@SO?)W)!VZ`%IQWGL%L9NP8&#K"
^XMB(3.9,22,2,14491,0)="""DATA"",396.18,469,3,595,0)"
^XMB(3.9,22,2,14492,0)="M`T>\^7J\=NE=Y]^R.HIV(.JQ$71<H;Z;`CZ@/G0<E/!YG<WSJSMOV61TGJYO"
^XMB(3.9,22,2,14493,0)="""DATA"",396.18,469,3,596,0)"
^XMB(3.9,22,2,14494,0)="M[DK^US,=)W*7)9C@L0>X1.9%$#)M$>OR;GZ3I\S[G.]#O5+\R:\@<P>0Z3!K"
^XMB(3.9,22,2,14495,0)="""DATA"",396.18,469,3,597,0)"
^XMB(3.9,22,2,14496,0)="M<-_(!^""^`[6(`OL)[2O(S%5WQKP=7'`WV*SWI?>-1\;35:,F+GOX%BUE9RQA"
^XMB(3.9,22,2,14497,0)="""DATA"",396.18,469,3,598,0)"
^XMB(3.9,22,2,14498,0)="MLQ6BR-5[4NV>L49""'U*-?>X62).JS;<303KH?N10B,.W.YJ-K%4/!8%$?[QH"
^XMB(3.9,22,2,14499,0)="""DATA"",396.18,469,3,599,0)"
^XMB(3.9,22,2,14500,0)="M``C%U<]-YN[)2&677D4$*)_!HP'Q\1CQ=@1""0^F1C;MO%_EUSGZ)#P-)>59D"
^XMB(3.9,22,2,14501,0)="""DATA"",396.18,469,3,600,0)"
^XMB(3.9,22,2,14502,0)="MP]V03H5SOV3(_0^J8FE/YC/X7?H1EMZHH+.9L=EJ_YP?H&:[Y%(>PW,()()O"
^XMB(3.9,22,2,14503,0)="""DATA"",396.18,469,3,601,0)"
^XMB(3.9,22,2,14504,0)="MQI=\W0<6_LI7E\5MQ]-B=<W9[*!8Q,QS'I\R5/RI2@3[H9-D^)!D)&.2\:@K"
^XMB(3.9,22,2,14505,0)="""DATA"",396.18,469,3,602,0)"
^XMB(3.9,22,2,14506,0)="MM()I^I^,Z7\R;A`E^I5,*,""YX&3ZO_<:NJS9O5X)H4MY)K\6$G.-IFZ;ZA-["
^XMB(3.9,22,2,14507,0)="""DATA"",396.18,469,3,603,0)"
^XMB(3.9,22,2,14508,0)="M!NU""]KLA(#.'1=MK-R.7_?F=0VQ6-XPGR+OK9Q""*UQ`?`X'%8VD3,7\>Z,\#"
^XMB(3.9,22,2,14509,0)="""DATA"",396.18,469,3,604,0)"
^XMB(3.9,22,2,14510,0)="M_ASY^@OL&?\FX)4/A0![8S_?O?K,18]1I\IEHL_""@-08@2ZX(#BK,8L:BUVX"
^XMB(3.9,22,2,14511,0)="""DATA"",396.18,469,3,605,0)"
^XMB(3.9,22,2,14512,0)="M%#AQ""5%]<%$(7#;0.0FC,Y<L7""(N7`H--H'F*`%\BD)'/L5G/CFW!QC2N8)9"
^XMB(3.9,22,2,14513,0)="""DATA"",396.18,469,3,606,0)"
^XMB(3.9,22,2,14514,0)="MX,AL*39*U#(=H@7YPUBIUV16&[*%[1]1FC<:XT`RR@&4Q#MP(/+/'.B-,:B$"
^XMB(3.9,22,2,14515,0)="""DATA"",396.18,469,3,607,0)"
^XMB(3.9,22,2,14516,0)="MN3/$>&9(,\1`3@31&""<PTC@1)C9.@(:7;N"";:XY[>#W)^KK-LMY_G:G_QN+?"
^XMB(3.9,22,2,14517,0)="""DATA"",396.18,469,3,608,0)"
^XMB(3.9,22,2,14518,0)="M@V)EHCZ@ZH-`?1""J#R+U0:P^2-0'S)13GR#MB48LTJA%&KE(HQ=I!"".-8J21"
^XMB(3.9,22,2,14519,0)="""DATA"",396.18,469,3,609,0)"
^XMB(3.9,22,2,14520,0)="MC#2:L48SUFC&&LU8HQEK-&.-9JS1C#6:L48SUF@F&LU$HYGH0J'13#2:B48S"
^XMB(3.9,22,2,14521,0)="""DATA"",396.18,469,3,610,0)"
^XMB(3.9,22,2,14522,0)="MT6@F&LU$HYEH-%.-9JK13#6:J2[)&LU4HYEJ-%.-9JK13#6:`XWF0*,Y:&E^"
^XMB(3.9,22,2,14523,0)="""DATA"",396.18,469,3,611,0)"
^XMB(3.9,22,2,14524,0)="MYJ*9D)MFPDC-63MHI@CMHYG(F&9ZMUTL>*5""OW2FRZM?Y$>?L\75+TK23SSF"
^XMB(3.9,22,2,14525,0)="""DATA"",396.18,469,3,612,0)"
^XMB(3.9,22,2,14526,0)="MV8AT,9.+0MSV#)OV3,WT:[L6.NP:Q?OL&AW;-:,+#3O0L/ML<)Y-KK/1<;98"
^XMB(3.9,22,2,14527,0)="""DATA"",396.18,469,3,613,0)"
^XMB(3.9,22,2,14528,0)="M+L2'+!=EA]6R:&""#L;[!Y&RZ]*';T>XK$=BC]A8LJ4@SC%5=@0T=&4.F^$?I"
^XMB(3.9,22,2,14529,0)="""DATA"",396.18,469,3,614,0)"
^XMB(3.9,22,2,14530,0)="MP!I$\9JDZ>+.:]7!43JPT)A<HU&+O/5<+69@J""M;>BYRU8:+^/Q_4'E^DT9M"
^XMB(3.9,22,2,14531,0)="""DATA"",396.18,469,3,615,0)"
^XMB(3.9,22,2,14532,0)="M]IL,""UUIH-3G^\EC+W1%8/E3O;NAH?%-:MA0*]XBYR+]B[J.LKAB?_'&H^.4"
^XMB(3.9,22,2,14533,0)="""DATA"",396.18,469,3,616,0)"
^XMB(3.9,22,2,14534,0)="MYP>G+G3E>X<,Y8)*&Y/:S^J[%',62UY5(6:1U`U;'73T\=7#X7N2>6I;2!N6"
^XMB(3.9,22,2,14535,0)="""DATA"",396.18,469,3,617,0)"
^XMB(3.9,22,2,14536,0)="M\MQPBP!1-PRC,:,+QXD_@TTI&S4$HJ:K1&[(P=$NY*`9[*D;*P#KPTCA$L""N"
^XMB(3.9,22,2,14537,0)="""DATA"",396.18,469,3,618,0)"
^XMB(3.9,22,2,14538,0)="M![JM1U1N:*V,#CLW?9#]FCYZ#:V;>O(Y0,H^4J1A%ZAF!4)A_`A;/]S,NGKG"
^XMB(3.9,22,2,14539,0)="""DATA"",396.18,469,3,619,0)"
^XMB(3.9,22,2,14540,0)="ML=VN""^6B>Z4<&ZEV7:1)<A@<QZY[[;W+V;;6MT.KVLQF6_V^H0/X#Y'$%2V,"
^XMB(3.9,22,2,14541,0)="""DATA"",396.18,469,3,620,0)"
^XMB(3.9,22,2,14542,0)="M/*U[Y_WYZN+C;/`!Y:4N\YM^2_,%]QNLW??C.T_L.X_QWGL?1\=%-:@OY!^-"
^XMB(3.9,22,2,14543,0)="""DATA"",396.18,469,3,621,0)"
^XMB(3.9,22,2,14544,0)="M!VC$)DP@`(1@`(`02\V:C?'7*<:S,8AAQ!""#,2/CS\1JLV;@:@?^_O$#-V8N"
^XMB(3.9,22,2,14545,0)="""DATA"",396.18,469,3,622,0)"
^XMB(3.9,22,2,14546,0)="MLG56Y15O,?ZC?""`P!X:&IZZ!?=A$/&R&&3<#_XOW<<^LOPVSC?BA[;>)PV_7"
^XMB(3.9,22,2,14547,0)="""DATA"",396.18,469,3,623,0)"
^XMB(3.9,22,2,14548,0)="M0!7V'S<@\822S""2!NO#0O=7K_8KKJBKS;F_R^8UWE<XK)@%YZ2UYA]`F*]?%"
^XMB(3.9,22,2,14549,0)="""DATA"",396.18,469,3,624,0)"
^XMB(3.9,22,2,14550,0)="MJA1E>KPB64`Q]`WN3.:D5J_TJF)'8-.+X+8?!S2A52BB!KL_L6K\V*&KY7/%"
^XMB(3.9,22,2,14551,0)="""DATA"",396.18,469,3,625,0)"
^XMB(3.9,22,2,14552,0)="MU\JTO;?<<E0+:2T>7^]VP;P"":""'3VO7;;@UBZMQ0I#=1K>!`]0!II*VF.?,R"
^XMB(3.9,22,2,14553,0)="""DATA"",396.18,469,3,626,0)"
^XMB(3.9,22,2,14554,0)="MG3\+M!)4Q*N+0F""H^P[4ZBRM.,NQ;:`J9F,%Z)&Q^+Q'7S5106(W,BZSZTW6"
^XMB(3.9,22,2,14555,0)="""DATA"",396.18,469,3,627,0)"
^XMB(3.9,22,2,14556,0)="MQ<[,Q<PA7,A,U8)/E8X>9=0&)Q@F(9GI<V#_NLFKS+VX>;0B.X`7H19C[[$*"
^XMB(3.9,22,2,14557,0)="""DATA"",396.18,469,3,628,0)"
^XMB(3.9,22,2,14558,0)="MNG,MMM&!1`:\@%!&W@C'\`+:;K.CX@6TV9?`F%C'$9)3,5HOZ9@;CL(@CO=)"
^XMB(3.9,22,2,14559,0)="""DATA"",396.18,469,3,629,0)"
^XMB(3.9,22,2,14560,0)="MQ8P&DZ5YVS-U;'@W4WPVN,WF!5//^4H>!]^-)G^[XB7FO$/YF2UV`8<MI!L_"
^XMB(3.9,22,2,14561,0)="""DATA"",396.18,469,3,630,0)"
^XMB(3.9,22,2,14562,0)="M5""-VVNVC12V('_N&^(""!D!`B1+DX=B*DF]H-1G,,(""X^%"":F`SB$FI0>@4?Q"
^XMB(3.9,22,2,14563,0)="""DATA"",396.18,469,3,631,0)"
^XMB(3.9,22,2,14564,0)="M#,ACAW&IXW`Z6I/!W*&28@E4-L?N,""Y\-AG;4_;7=V;7Y-4#`4.(`]@\1K;>"
^XMB(3.9,22,2,14565,0)="""DATA"",396.18,469,3,632,0)"
^XMB(3.9,22,2,14566,0)="M8I)0=V""H;D[R9;>'E^T>U@;Q;5[RF0O/19.)^..6O2C^J(KMT#J>WXBG'+8L"
^XMB(3.9,22,2,14567,0)="""DATA"",396.18,469,3,633,0)"
^XMB(3.9,22,2,14568,0)="M^[X6TT+::7'FMN70<.G(,504C\(]D1.!U""@M*2!+B$(MI9J72[&FLY+@G+\;"
^XMB(3.9,22,2,14569,0)="""DATA"",396.18,469,3,634,0)"
^XMB(3.9,22,2,14570,0)="M;#9[U]?LDF,9?BV*O[EQ(C\9`@'W*EH""VHJ41!XE?J.QQK>X>U._QY6`+1V^"
^XMB(3.9,22,2,14571,0)="""DATA"",396.18,469,3,635,0)"
^XMB(3.9,22,2,14572,0)="MJ.K4]KE9.[3OD+=ZJ$/I0.KXDC^EUYDD:Y+6;*V:H5*4\&`L6]HPJ?C.+[[N"
^XMB(3.9,22,2,14573,0)="""DATA"",396.18,469,3,636,0)"
^XMB(3.9,22,2,14574,0)="M'XK-JA15:Q9K1/46$=JWEOQ6;/[9""<.++QLFIAR(0V[$X>+1OZE&NN3?XL-O"
^XMB(3.9,22,2,14575,0)="""DATA"",396.18,469,3,637,0)"
^XMB(3.9,22,2,14576,0)="M,'S+JT5^S3<@7;`SS*2R>[ZMBOK#JHVLWK]\Z,7QZKL16-\-S^TP5'B;:[>A"
^XMB(3.9,22,2,14577,0)="""DATA"",396.18,469,3,638,0)"
^XMB(3.9,22,2,14578,0)="M20^0NXXT=UW2NNJ8AX#J4Q[P\&U`;]T//_EDZO!U<[:-:/,5AO9--'S81$&&"
^XMB(3.9,22,2,14579,0)="""DATA"",396.18,469,3,639,0)"
^XMB(3.9,22,2,14580,0)="MC_J&-S1\##2]Z<-8>4*W"";Q+`T!<MWYL\ZTS,QP98&&!G0FP.#M.CU!FG!C&"
^XMB(3.9,22,2,14581,0)="""DATA"",396.18,469,3,640,0)"
^XMB(3.9,22,2,14582,0)="MG;1G@$X[#S@,70\$(OBAG0@""GPAE""*AE`H_U;$01>#CB$#X<DCSV6'\ABB41"
^XMB(3.9,22,2,14583,0)="""DATA"",396.18,469,3,641,0)"
^XMB(3.9,22,2,14584,0)="MM,WCL7:'FD?R0+>M`,W:I-MERNL?;[@1S'C8H/[^AT01T""@Z.N@'&/6C#?N!"
^XMB(3.9,22,2,14585,0)="""DATA"",396.18,469,3,642,0)"
^XMB(3.9,22,2,14586,0)="MF[*E$V#C&]J5;_U0&)EO>!+?@A#=%]]NBG*=5^DB_V?3G+_QRNV&,>[N'ACG"
^XMB(3.9,22,2,14587,0)="""DATA"",396.18,469,3,643,0)"
^XMB(3.9,22,2,14588,0)="M.S""N\9VLEP^.=4Y1'^)4&(&,DMDJW3Z_%.ML=:)K!]W3M8/VNW8@AI')#),-"
^XMB(3.9,22,2,14589,0)="""DATA"",396.18,469,3,644,0)"
^XMB(3.9,22,2,14590,0)="M@T,R#-;J1[A@XVD7+/+=+]@0@T/Z6AA?[_4BS9<U[-?[2\;U_""JO2PDX5/X,"
^XMB(3.9,22,2,14591,0)="""DATA"",396.18,469,3,645,0)"
^XMB(3.9,22,2,14592,0)="MO.$PS#\1@PFQFB71ZV0DVQDT]A*0=X@8>(=>S!SDJZ:/3*,OH0>@#T^@CTZC"
^XMB(3.9,22,2,14593,0)="""DATA"",396.18,469,3,646,0)"
^XMB(3.9,22,2,14594,0)="MK\/XWHM`XD1@DP&QJU3@@`9DDD'O&XC\=9LO+N$9:F?MZJI=PZG,DRW+G9GW"
^XMB(3.9,22,2,14595,0)="""DATA"",396.18,469,3,647,0)"
^XMB(3.9,22,2,14596,0)="MIIAO!1#O)Q5)ZV$Z9/CPO$NFLFZ`][<7[YKB\I:%<E;M8;*/'.'H^9/Y%QV$"
^XMB(3.9,22,2,14597,0)="""DATA"",396.18,469,3,648,0)"
^XMB(3.9,22,2,14598,0)="M?<,A.`]<8QXW#"")RGQ/,M'""7L""""\&EV<Z/U$U<`!2J?F@ST^2ZD#(PC(""))@"
^XMB(3.9,22,2,14599,0)="""DATA"",396.18,469,3,649,0)"
^XMB(3.9,22,2,14600,0)="MD!/48K&AR&*QH0!P,,%00$!A?\7DFK_A_7J<%=Q8?RDQPC@G^,$<>:#ZSL6X"
^XMB(3.9,22,2,14601,0)="""DATA"",396.18,469,3,650,0)"
^XMB(3.9,22,2,14602,0)="MQN%$5D6@]2\ST(553?[XB>B>?N+*K!U7B;!O6R8&@E,AK!P0GN9&U+C!97Z]"
^XMB(3.9,22,2,14603,0)="""DATA"",396.18,469,3,651,0)"
^XMB(3.9,22,2,14604,0)="M8E[D/&6\:P8&O)Q-CK1AET@;!2Y-,'R#:0SK.0(%VB*""Z4GC;&\*=I+Y?G73"
^XMB(3.9,22,2,14605,0)="""DATA"",396.18,469,3,652,0)"
^XMB(3.9,22,2,14606,0)="M'O5P&ID23N/[H\;3+OB:U8>OEE]S7LS`-KC<*]S6U9H!8'H#CL7452%B!#NQ"
^XMB(3.9,22,2,14607,0)="""DATA"",396.18,469,3,653,0)"
^XMB(3.9,22,2,14608,0)="M&(&Q44QPZ'JP##![-O=K;,/_K-NG9_]""DEGIE;S`6`)L;N%.O['=YK,S!*PV"
^XMB(3.9,22,2,14609,0)="""DATA"",396.18,469,3,654,0)"
^XMB(3.9,22,2,14610,0)="M3U""I[_B2B5(27M&;B;M6-[=UX%(+7\3,(*+-K+<R),*3&)*8&!+=_[5D=B#@"
^XMB(3.9,22,2,14611,0)="""DATA"",396.18,469,3,655,0)"
^XMB(3.9,22,2,14612,0)="M,?;62\DZREX99C]VA8T.M-\S4Q'NJC\-""A0G$Q0H2@),3JI!/WYCQV^Q&)1H"
^XMB(3.9,22,2,14613,0)="""DATA"",396.18,469,3,656,0)"
^XMB(3.9,22,2,14614,0)="M,:<G6UU7-Z;T!)URO$'=""2G97XOJ1DMD9+EZ7$W.IFL:*MB5N_(]N#-W47C/"
^XMB(3.9,22,2,14615,0)="""DATA"",396.18,469,3,657,0)"
^XMB(3.9,22,2,14616,0)="MW.T*\'Y\]M+I[-WY\,9PJ%4^TP[LC4[+WMINO%NNJV)Y'XG@P#V*$UG];C"","
^XMB(3.9,22,2,14617,0)="""DATA"",396.18,469,3,658,0)"
^XMB(3.9,22,2,14618,0)="M$X-G+@H.FJ`*#QFQ4L0QWE$<,88-""1),O$M.JVW>E\V,W[0;>,;,M:L%N\]_"
^XMB(3.9,22,2,14619,0)="""DATA"",396.18,469,3,659,0)"
^XMB(3.9,22,2,14620,0)="MV:[+?IKM/4ILY""ZQR62)Q20Z@<3&AY18;MT2;#9S0;<WAAV/!-:626`03Y+,"
^XMB(3.9,22,2,14621,0)="""DATA"",396.18,469,3,660,0)"
^XMB(3.9,22,2,14622,0)="MSL;L!&,VL0?]P!:LG8I\/[5#(@:Y;)=27[1'J:^O%?KZ>Y3YGJMX=Z_BC6Q1"
^XMB(3.9,22,2,14623,0)="""DATA"",396.18,469,3,661,0)"
^XMB(3.9,22,2,14624,0)="MXE""-$?]""@&C],/DY*-RF#ZUFT;>%$VDP,9R(0D,,CDR*FRKZ:'`K7Z=K[VM6"
^XMB(3.9,22,2,14625,0)="""DATA"",396.18,469,3,662,0)"
^XMB(3.9,22,2,14626,0)="MW6;9BCW;+K]Z:W:C\W+""*J_OYZ:FD$=1THI=O.MJ.(ZT^<;+=JI[,VRF_JJJ"
^XMB(3.9,22,2,14627,0)="""DATA"",396.18,469,3,663,0)"
^XMB(3.9,22,2,14628,0)="M@""L2=XW&TF1J-!;!/EH0'&'[ZJ6*O5MOBN_YDFG+:L-DC'E<9>;5[A;?''W["
^XMB(3.9,22,2,14629,0)="""DATA"",396.18,469,3,664,0)"
^XMB(3.9,22,2,14630,0)="MZOK-E;=,ZX]=+;+OS4[6WWJ0_8OQQ)@]AH/VF$;3HO;=ANDA!='TM=Z6=2_7"
^XMB(3.9,22,2,14631,0)="""DATA"",396.18,469,3,665,0)"
^XMB(3.9,22,2,14632,0)="M>KM8=$U=;2O88=9.)JZ=$`0;W/Y!1&?__C=;%]R^6]:4)]G3[-@Q,3H8N>,F"
^XMB(3.9,22,2,14633,0)="""DATA"",396.18,469,3,666,0)"
^XMB(3.9,22,2,14634,0)="M+G_RXECO,[N7RR-E1>WHHRXN&B0Q$2PPD^J2DX#Z]^2A+=?;JIL6EGJ7^75>"
^XMB(3.9,22,2,14635,0)="""DATA"",396.18,469,3,667,0)"
^XMB(3.9,22,2,14636,0)="M\5K&=;JI!H_NP4-#SB)+[36O/I#,#_`)'#1\/'DE=$=YA?L?L$^FR6L0WY.\"
^XMB(3.9,22,2,14637,0)="""DATA"",396.18,469,3,668,0)"
^XMB(3.9,22,2,14638,0)="MKOZ^6S""30Q@IS`3GHKKDJ,]""2N\CD$#<Q328+*;)*<24'E%,$Q<Q#9U+[[`I"
^XMB(3.9,22,2,14639,0)="""DATA"",396.18,469,3,669,0)"
^XMB(3.9,22,2,14640,0)="M$&N2TS""Y'SF]S-B]ON3W^X\BI^XA6II,EE-$@I\[1$O1COH4P?6]<3)-3J-3"
^XMB(3.9,22,2,14641,0)="""DATA"",396.18,469,3,670,0)"
^XMB(3.9,22,2,14642,0)="MW/\_5EPUF'YK([A5Y4>.JRIBYM2W""*R<^&!(()FH#F/R0,0,N5N'0319SHA_"
^XMB(3.9,22,2,14643,0)="""DATA"",396.18,469,3,671,0)"
^XMB(3.9,22,2,14644,0)="M""G6&CF@?4KRCH$G5GWOH,_1`!""UQE[/IYAVFI\ALHB/ZS61GA08WKJ$XF""!H"
^XMB(3.9,22,2,14645,0)="""DATA"",396.18,469,3,672,0)"
^XMB(3.9,22,2,14646,0)="M',^&/A2-YNY(X.F21L*3:#1ZW+IU*XX""\>F!<A+C\!QU9#I&MO""B#_2""@<<="
^XMB(3.9,22,2,14647,0)="""DATA"",396.18,469,3,673,0)"
^XMB(3.9,22,2,14648,0)="M!<F^9<+=-/>K?'7)Q?&E<\,D%M4)4U:!""!SR2O:)D;XK>!#]KBD,$,F$K$8X"
^XMB(3.9,22,2,14649,0)="""DATA"",396.18,469,3,674,0)"
^XMB(3.9,22,2,14650,0)="M2*^N&,5U3^U7[DI=YF4=5-]X^>I_MYN[Y]YZH<=(Q7O6FX)7C(ION_CXX2`1"
^XMB(3.9,22,2,14651,0)="""DATA"",396.18,469,3,675,0)"
^XMB(3.9,22,2,14652,0)="MTF""D(``HT`5]!!P:@H3&TR<PB]C>#$""/CQTFY>4`U%87``F(#TM(:(BB*U;L"
^XMB(3.9,22,2,14653,0)="""DATA"",396.18,469,3,676,0)"
^XMB(3.9,22,2,14654,0)="MP%S%Y\*`*84!Z%2%`;S(NIQ0$(#/!0$_<4%`<]L!B<3NZM40%A*@92PB(((1"
^XMB(3.9,22,2,14655,0)="""DATA"",396.18,469,3,677,0)"
^XMB(3.9,22,2,14656,0)="MA*\P%/#9?_^R2>^XNB_$Q9<OTVO.P;+:7N99^=Q+2V^599?LBJ@*K^2PY-GW"
^XMB(3.9,22,2,14657,0)="""DATA"",396.18,469,3,678,0)"
^XMB(3.9,22,2,14658,0)="ME!%?YA64>IWU28_G7E;-^]Y]@_VAS-6PA8J464'#DK``VA$$=3,.3)%.&9*0"
^XMB(3.9,22,2,14659,0)="""DATA"",396.18,469,3,679,0)"
^XMB(3.9,22,2,14660,0)="M#)6AS<ZU6KFPC3LXVG]EF_JZ;%'<>1*(B7_%CSR[<.>++=_I8B7>Q%LL.')Z"
^XMB(3.9,22,2,14661,0)="""DATA"",396.18,469,3,680,0)"
^XMB(3.9,22,2,14662,0)="ML9%21*#%_(.7>EC-><V85TSYJ6AO!DD3MZW>;&(\9I!0A3$D5""@A@%0EH4]G"
^XMB(3.9,22,2,14663,0)="""DATA"",396.18,469,3,681,0)"
^XMB(3.9,22,2,14664,0)="MQ^80-G`(OEJ-_+%>JS-79HQ>J)`R/,(-^B9/KU<\D37A%B7G6_1GOT4),EZB"
^XMB(3.9,22,2,14665,0)="""DATA"",396.18,469,3,682,0)"
^XMB(3.9,22,2,14666,0)="M>.B,-WX#UH_W,',]<HEV\_E>SAY`P=U(<`!/PQ:(`<V)*;2WPQC=PZA6Q#;O"
^XMB(3.9,22,2,14667,0)="""DATA"",396.18,469,3,683,0)"
^XMB(3.9,22,2,14668,0)="MU@IP$[M6_S@US%C4X?TY?#\SP$8P$09M""-77F0\)9#[@$($:YO-VN4SK_H[+"
^XMB(3.9,22,2,14669,0)="""DATA"",396.18,469,3,684,0)"
^XMB(3.9,22,2,14670,0)="MEH4/0MNXP%=P(RVTA$:(*R1-:(@$81(;\$<[&/=S9,0I,N)/.4YB8JC)""`>N"
^XMB(3.9,22,2,14671,0)="""DATA"",396.18,469,3,685,0)"
^XMB(3.9,22,2,14672,0)="M:0B_FA(('T7R]WIN1N'9""#<9X622<X[\<>=\&)M0K&5#(JJ_OV*=?Q@1GYS&"
^XMB(3.9,22,2,14673,0)="""DATA"",396.18,469,3,686,0)"
^XMB(3.9,22,2,14674,0)="M-4]++_7:N9@?U_DJ%[,*F_F5HP[X7AZNU2\RF&3MT-T)=Q()?QR[#/](6/#="
^XMB(3.9,22,2,14675,0)="""DATA"",396.18,469,3,687,0)"
^XMB(3.9,22,2,14676,0)="M9I[>.'N[7""^*.PV.XPAFS=""_%O_W_U!+`P04``(`""``48+DT)8=9\B4E``#-"
^XMB(3.9,22,2,14677,0)="""DATA"",396.18,469,3,688,0)"
^XMB(3.9,22,2,14678,0)="M'`$`'@```$AA;F1?1FEN9V5R<U]4:'5M8E\Q,3$N<&YL+F-D9>T]6W?;N-'/"
^XMB(3.9,22,2,14679,0)="""DATA"",396.18,469,3,689,0)"
^XMB(3.9,22,2,14680,0)="MV7/V/^#X)=V;+9*Z]E3MD27:42M;JBAGFZ<<6J)C=F5*%:G$_O<?P#N`P4V2"
^XMB(3.9,22,2,14681,0)="""DATA"",396.18,469,3,690,0)"
^XMB(3.9,22,2,14682,0)="ML^U^44X2B1S,#`:#P6`&EXL+-+L=>LA;[L)M\OUWWW\W?D!7X2Y.YONH;WW_"
^XMB(3.9,22,2,14683,0)="""DATA"",396.18,469,3,691,0)"
^XMB(3.9,22,2,14684,0)="M'1H%#V$4W.Z?@EVX1.\&MZ./-\%J.OLXCI;K_2I881B$O""""!WJ$^:I0XO&07"
^XMB(3.9,22,2,14685,0)="""DATA"",396.18,469,3,692,0)"
^XMB(3.9,22,2,14686,0)="M1I_J8//@/_L@3F`<Y4N,)'T\G/UZ,_=7X>9ZM]EOK<:Y%ZR#)088)\%3227."
^XMB(3.9,22,2,14687,0)="""DATA"",396.18,469,3,693,0)"
^XMB(3.9,22,2,14688,0)="MJ?C1ZN-\_A3$L?\IP&]3[-1#C/?L#,%5_/LFC)*'M;\KB])/2<6JHE%1-,7O"
^XMB(3.9,22,2,14689,0)="""DATA"",396.18,469,3,694,0)"
^XMB(3.9,22,2,14690,0)="M1Y^""X68?)<&.HEM[7A07OA13!2N:@JR""]7[IU['6'I>5%;[D$!/:L]WF?AT\"
^XMB(3.9,22,2,14691,0)="""DATA"",396.18,469,3,695,0)"
^XMB(3.9,22,2,14692,0)="M_9S]FEO%%^=GZOW'21@G^:/A>A,'^?=WFW@;)OZZ7IV\"",U0AAUXYO#/ZC3Y"
^XMB(3.9,22,2,14693,0)="""DATA"",396.18,469,3,696,0)"
^XMB(3.9,22,2,14694,0)="MMREY_G'!2?$&K&T!!-;AH[=_>O)W+S\72IHJ4?YKN@VC<!,5(F@Y$&T5;P4%"
^XMB(3.9,22,2,14695,0)="""DATA"",396.18,469,3,697,0)"
^XMB(3.9,22,2,14696,0)="M'N*&T=CR14X7$$/+D59U,)H4;7G=R[^YG\-5$""V+.HU""_U.TB<.X`'PNX!X>"
^XMB(3.9,22,2,14697,0)="""DATA"",396.18,469,3,698,0)"
^XMB(3.9,22,2,14698,0)="M<+^K4\/8@+:[[O$/""QK\FY(<@.D90)0R(:VC]\RTF??RM$TVA3:G':#^_>-["
^XMB(3.9,22,2,14699,0)="""DATA"",396.18,469,3,699,0)"
^XMB(3.9,22,2,14700,0)="MZE=>MDZTPL@SE""/G7Z38!(\_OA>]8.C`C?BTW2=^4BG>(/KM95UKLO)W6;7J"
^XMB(3.9,22,2,14701,0)="""DATA"",396.18,469,3,700,0)"
^XMB(3.9,22,2,14702,0)="M""5""]""A_/55E0\@JJ#4=06B/\9+-[""I.BQ<K?906J)W3;7OO;`N*94JL""'M""X"
^XMB(3.9,22,2,14703,0)="""DATA"",396.18,469,3,701,0)"
^XMB(3.9,22,2,14704,0)="M""KGLI;#%,4F@W+.T@KC,QRO\*]@5.IGL@NA3\DB;E8_98%G`%#UOV&7HY[@`"
^XMB(3.9,22,2,14705,0)="""DATA"",396.18,469,3,702,0)"
^XMB(3.9,22,2,14706,0)="M;<S1""FU)3@$H""72V85=8J7+TXH:S6I'L4[[>^E&PQ@/X)4&1;!YVF[2#7/GK"
^XMB(3.9,22,2,14707,0)="""DATA"",396.18,469,3,703,0)"
^XMB(3.9,22,2,14708,0)="M.""BA>3*CX+E.!/\L.64(9*_2KZ77\(EX#8Y3>@UAYC4P)2_W2;*)[-;Y^S`."
^XMB(3.9,22,2,14709,0)="""DATA"",396.18,469,3,704,0)"
^XMB(3.9,22,2,14710,0)="M\3""CB>8-;Y<`G\6QA<5R""^I^]M=G]><S(JH>):F^6DZL(S""B?0!.6OE;H*96"
^XMB(3.9,22,2,14711,0)="""DATA"",396.18,469,3,705,0)"
^XMB(3.9,22,2,14712,0)="M4R&P^U1@ED)@'!JFAJT&^5AF]72?MNO-2^H]ENP4SYBZ\H7OH@`H7CU5(I@'"
^XMB(3.9,22,2,14713,0)="""DATA"",396.18,469,3,706,0)"
^XMB(3.9,22,2,14714,0)="M2;BC2^>/1').:VHW;-MN""U2?D0HL#Q:HK0-EZP`Y.D!:Y#I:G&O5KZN%""JK?"
^XMB(3.9,22,2,14715,0)="""DATA"",396.18,469,3,707,0)"
^XMB(3.9,22,2,14716,0)="MQ<4XPBVV7Y(1+>;+.&""9.!O'`?BF%B<M+2@]`>G5O:>E``TM**TFL;6TR=92"
^XMB(3.9,22,2,14717,0)="""DATA"",396.18,469,3,708,0)"
^XMB(3.9,22,2,14718,0)="M)ULEU71:`$T`SV.!1<EM>&&1^F!AD3E*9QR0[1:6R,@Y,G+BPJEKFWXCTYG+"
^XMB(3.9,22,2,14719,0)="""DATA"",396.18,469,3,709,0)"
^XMB(3.9,22,2,14720,0)="MS;,8M'(PH0JU5?QUI/(0%R_<5ZA45T6T)R4J+DYYHD!1NZ&@W)2VAZ1XW<^%"
^XMB(3.9,22,2,14721,0)="""DATA"",396.18,469,3,710,0)"
^XMB(3.9,22,2,14722,0)="M6K*I(MR2*H*X>-U1A4KV5(2ELI84S]Q8H$S34I!L284L*4YYKE!16T59*F5)"
^XMB(3.9,22,2,14723,0)="""DATA"",396.18,469,3,711,0)"
^XMB(3.9,22,2,14724,0)="M\9I?#!54]?*6M!=QQ4&_A':/<GVT[5Y36)CR2D3%:=H(]DM$A=G^X$:K\0-Q"
^XMB(3.9,22,2,14725,0)="""DATA"",396.18,469,3,712,0)"
^XMB(3.9,22,2,14726,0)="MW2\N?BD_:!Y\VJ_]'1IN5@&JGF=P]%@[?J!T\WRX#I>_I2PL=GLJJ`:-%178"
^XMB(3.9,22,2,14727,0)="""DATA"",396.18,469,3,713,0)"
^XMB(3.9,22,2,14728,0)="M/_=ADK(3/K!(VP=@+5Q*""BV+V&GPB.7^1@GW1L*O8QV`MA@.Y0S;`.8B9G1F"
^XMB(3.9,22,2,14729,0)="""DATA"",396.18,469,3,714,0)"
^XMB(3.9,22,2,14730,0)="MG2,,GCP&Z&T1>[L/B!N[""A(_7`>K/[]%:Q)+6VV""&$6;!""TQ;3^,D(]!XE1S"
^XMB(3.9,22,2,14731,0)="""DATA"",396.18,469,3,715,0)"
^XMB(3.9,22,2,14732,0)="MLJ$V#31D7]%;%ZL**A""2P>OMSX1(E#F]#YOU>O,EI1K6%(/\""+'RD.?ULNA+"
^XMB(3.9,22,2,14733,0)="""DATA"",396.18,469,3,716,0)"
^XMB(3.9,22,2,14734,0)="M&*TV7\[/T$]H^.CO_F0Y/^""O9_8YRA03!?[R$6WS(E@Z3SHUPMJ.@C2F2H!W"
^XMB(3.9,22,2,14735,0)="""DATA"",396.18,469,3,717,0)"
^XMB(3.9,22,2,14736,0)="MP7_V:6U6?N)SI)QSE`H1Q?M[;(91LD'^<AEL,9;U.L,B*MH\1XM-3LA?8;G@"
^XMB(3.9,22,2,14737,0)="""DATA"",396.18,469,3,718,0)"
^XMB(3.9,22,2,14738,0)="MJOKKHH(Q)KP-_`3%2;""-D?4+<L[/^"":]N/B1^<R#Y6:WBG&W^QP&7_1@B&)4"
^XMB(3.9,22,2,14739,0)="""DATA"",396.18,469,3,719,0)"
^XMB(3.9,22,2,14740,0)="M\]AL6N44VM&GM*Z<DH""3KUR?:PS""R)LL<D&@';\IBM-3PPP-;;'17_Z:%3$I"
^XMB(3.9,22,2,14741,0)="""DATA"",396.18,469,3,720,0)"
^XMB(3.9,22,2,14742,0)="M@ZE4.8/[%_1^,)\B/#U-5=K_C!7#Q\UQ5N4:6"":9![AAA^@*JQ-ZVF-=NB<*"
^XMB(3.9,22,2,14743,0)="""DATA"",396.18,469,3,721,0)"
^XMB(3.9,22,2,14744,0)="M1(1,L).Q.L@U)2&:E^G7=K-+ZLI!:.7R*_^7U<@Y0`K.JTOA!J->8GTN=.VK"
^XMB(3.9,22,2,14745,0)="""DATA"",396.18,469,3,722,0)"
^XMB(3.9,22,2,14746,0)="MB8-OX*_=>@<TFBF7IY0NRVY%J%2E8EC@$F1%60W;(!A%7[VSDB&GE2%;!,]I"
^XMB(3.9,22,2,14747,0)="""DATA"",396.18,469,3,723,0)"
^XMB(3.9,22,2,14748,0)="M3'WXRP-IXTQ8Z(L?IU9>@9:8WT,4D`CQ)%R?':Q:1Y!W2O*TRKV6\)R3""L^!"
^XMB(3.9,22,2,14749,0)="""DATA"",396.18,469,3,724,0)"
^XMB(3.9,22,2,14750,0)="MA%?\X<;%,MVWV2%OO\,3C9?*:9*%`@B;>=B!#)0Z1?IG'X*8#.B*\%8^HN:L"
^XMB(3.9,22,2,14751,0)="""DATA"",396.18,469,3,725,0)"
^XMB(3.9,22,2,14752,0)="M:Z'^RU\U<:<]$E%P>12$=PU+#DX4,!'&9[@I!>2[6@[/()RUK<F,:$6SKA!O"
^XMB(3.9,22,2,14753,0)="""DATA"",396.18,469,3,726,0)"
^XMB(3.9,22,2,14754,0)="MX#(?-OO,GE9.X&/QFOB&Z\TR#3)@,UKZ<T`3W01/&_M\0@+`4GKT[Y\X^MAY"
^XMB(3.9,22,2,14755,0)="""DATA"",396.18,469,3,727,0)"
^XMB(3.9,22,2,14756,0)="M##1(6>T3T,K&""#_>1*0/)""_;`&T>\""""2]@4%$R7:?-1X4TXFF*S^F]R)%6,0"
^XMB(3.9,22,2,14757,0)="""DATA"",396.18,469,3,728,0)"
^XMB(3.9,22,2,14758,0)="M5J&>5GLW]6;CQ6"""",`"":3(>#Q7AZ^V=$!C>VN6G'>S18N#6X>CO1@'-WX$UO"
^XMB(3.9,22,2,14759,0)="""DATA"",396.18,469,3,729,0)"
^XMB(3.9,22,2,14760,0)="MT72.%A]F+II>(>]N?NW./S""E2]'3Q7^4?YCY0#4@U^J=8J^4""):%60<6]""BH"
^XMB(3.9,22,2,14761,0)="""DATA"",396.18,469,3,730,0)"
^XMB(3.9,22,2,14762,0)="MQ'`=^+LGS$)-4/!CJTUEL]B.5AA^CJ@CF]S2:.ZBWZ+-E^A,/EVVF[K50+24"
^XMB(3.9,22,2,14763,0)="""DATA"",396.18,469,3,731,0)"
^XMB(3.9,22,2,14764,0)="M:SU51(F;0'>I60RZN%B2I1J0*:H6<5@""BU1V&DE9^ZQJ1@3:F>.PE'ILBH;K"
^XMB(3.9,22,2,14765,0)="""DATA"",396.18,469,3,732,0)"
^XMB(3.9,22,2,14766,0)="MP058!E5%%=PHV868`%F6A.>\N)7PA)D8G4*7I[>3#^@+""0AXV80ZC/'\'1</"
^XMB(3.9,22,2,14767,0)="""DATA"",396.18,469,3,733,0)"
^XMB(3.9,22,2,14768,0)="M5F?0(`2-:[H!$)MMOEWPRV8;1,J4$Q2U@:;9Y6>Q\_=//O]<Y%TX`N_""$7H`"
^XMB(3.9,22,2,14769,0)="""DATA"",396.18,469,3,734,0)"
^XMB(3.9,22,2,14770,0)="MCI9ST3[`MW#T?`M!@B_K?#>TL>B(W8E#$R*:^1>1)C24/5E625GX3E?'VD>J"
^XMB(3.9,22,2,14771,0)="""DATA"",396.18,469,3,735,0)"
^XMB(3.9,22,2,14772,0)="M6/8I`EO>-EB&#^$20;J6<]:&`SRB;&P&!%;2LCE4.2,DGB8HU-4J\_UWL\UV"
^XMB(3.9,22,2,14773,0)="""DATA"",396.18,469,3,736,0)"
^XMB(3.9,22,2,14774,0)="MO\8NT'#S=+_Y-4P><[`T`)@U.7ESN7FV3(!MP*GL24.M[`+"">H\I.!!XEVS9"
^XMB(3.9,22,2,14775,0)="""DATA"",396.18,469,3,737,0)"
^XMB(3.9,22,2,14776,0)="MTNN*TW9Z24U@$:9<[G<[[(VM7YCPY#D];>>Z+1E,>GH,\,^PNX(`7Y#XGBJZ"
^XMB(3.9,22,2,14777,0)="""DATA"",396.18,469,3,738,0)"
^XMB(3.9,22,2,14778,0)="MI$MW1+[GH827X6ZY?XH3/UJ2X0)[W6$4)B'V#9_\*'S`TT$_""PUOLB#U*HRQ"
^XMB(3.9,22,2,14779,0)="""DATA"",396.18,469,3,739,0)"
^XMB(3.9,22,2,14780,0)="MVZKD-4^7@B$B4ZY_??33X2EE=[/?X?$N#LDB1<Q6D&ARXIR""D\$NC8WC?W/="
^XMB(3.9,22,2,14781,0)="""DATA"",396.18,469,3,740,0)"
^XMB(3.9,22,2,14782,0)="M00EVXI,G_""T^C(_2`5""#W6ZB(`45C1\""81]>R307$*0KIM+V5U?Z35GM\@LK"
^XMB(3.9,22,2,14783,0)="""DATA"",396.18,469,3,741,0)"
^XMB(3.9,22,2,14784,0)="M!XH>/(.I@TAF,9""A>`,M9)[-IY<3]Z8VF6#LB&!24*&@?N8S&S)-F=YZ[H*9"
^XMB(3.9,22,2,14785,0)="""DATA"",396.18,469,3,742,0)"
^XMB(3.9,22,2,14786,0)="M""O4.Q#D<SX=W-]YB<#MTO72N-;X=+\9XWG4SN!U?N?@-F7AYA%Q]4M3AYD2Z"
^XMB(3.9,22,2,14787,0)="""DATA"",396.18,469,3,743,0)"
^XMB(3.9,22,2,14788,0)="M!*=W<\]%WA@3Y&H""=V!S&G?SN7N[0`L\Q5O<X&\>3\.1T:#<9HMUF[7:RO6&"
^XMB(3.9,22,2,14789,0)="""DATA"",396.18,469,3,744,0)"
^XMB(3.9,22,2,14790,0)="M\_&,R(XT6<G)G[P?V.FE!8JR5&F]?F?$G#<>N<B]NG*'""X]PQ\FKKK12L@J>"
^XMB(3.9,22,2,14791,0)="""DATA"",396.18,469,3,745,0)"
^XMB(3.9,22,2,14792,0)="MT_H=+KY+HB<5JZS@<L0Z3'0/86(P&HU)`^+.,)S>L'I41UN;ZB.*!WJJW\K`"
^XMB(3.9,22,2,14793,0)="""DATA"",396.18,469,3,746,0)"
^XMB(3.9,22,2,14794,0)="M^RRAXR,)N8O#>EV*J``/7ZWNI6Q5_^R,C0#TH!=@_X5A'``&F,IWX<<=RFTN"
^XMB(3.9,22,2,14795,0)="""DATA"",396.18,469,3,747,0)"
^XMB(3.9,22,2,14796,0)="M:C5_+B=3@I532#[D]1ES/O'O@W6S=>Y&)`R]DL][+-$+""J6T/\'T+9Z^&!T+"
^XMB(3.9,22,2,14797,0)="""DATA"",396.18,469,3,748,0)"
^XMB(3.9,22,2,14798,0)="MJN41X'F?L3\@%%*N2CI,%J!<GQ7Z3QKT2R$92.D-&/:RJC=`DYJUJ4:C*OI("
^XMB(3.9,22,2,14799,0)="""DATA"",396.18,469,3,749,0)"
^XMB(3.9,22,2,14800,0)="MY5NIX4HQL0[1Q87^,L.+BRJR5RO'\J^SJ+U6/#/=9H7+25""VD+[HY,IR>H-G"
^XMB(3.9,22,2,14801,0)="""DATA"",396.18,469,3,750,0)"
^XMB(3.9,22,2,14802,0)="M&?7`!02M3=X<MIP?E\RE6(J3JT__?[HZ]7%%.3G(.*MM[&2TJ9J;(UAC$""I!"
^XMB(3.9,22,2,14803,0)="""DATA"",396.18,469,3,751,0)"
^XMB(3.9,22,2,14804,0)="MF,""#VD'2(%[N+Y!0+V%@X2)TF&A%T2M+/$@7T=K+,RHQ2<\S^'!O66X`!HMK"
^XMB(3.9,22,2,14805,0)="""DATA"",396.18,469,3,752,0)"
^XMB(3.9,22,2,14806,0)="M\PGCLO6Y0;F^`""%]!/`40,H'DN!Q#/!`P5+J;17I)C&-1_]S@+;^+HU;A!%9"
^XMB(3.9,22,2,14807,0)="""DATA"",396.18,469,3,753,0)"
^XMB(3.9,22,2,14808,0)="MJ9OON]NN2;0""/811&#^25-N2*`J>WX9Q';!8Q9'!%8LX@F?_*8RR%*0P)M[1"
^XMB(3.9,22,2,14809,0)="""DATA"",396.18,469,3,754,0)"
^XMB(3.9,22,2,14810,0)="M""%5*`HI<(#$/T`L#V)DJ]H2:""&U-4:]^[!CA$U9RM""$""B[+5`2)[(%A,1IL"""
^XMB(3.9,22,2,14811,0)="""DATA"",396.18,469,3,755,0)"
^XMB(3.9,22,2,14812,0)="MJ\/;(<XE;G$P4D,$+UB2T""W,BY2P!(C/S-58XZ""F).K""<V2W)9)(#9VC%`--"
^XMB(3.9,22,2,14813,0)="""DATA"",396.18,469,3,756,0)"
^XMB(3.9,22,2,14814,0)="MBTB\)!:+B7$UXZ@5$)#+YE"":X97[=@JFB@T3L`O!;7E`!^ZT0$BZK\@<""[MA"
^XMB(3.9,22,2,14815,0)="""DATA"",396.18,469,3,757,0)"
^XMB(3.9,22,2,14816,0)="M0Q>#8$5)6V-PS$FV^+""Y?%;IR-9@YSM)BP6,Z7[U>6ZK+=FBN:HP$$\N]F>1"
^XMB(3.9,22,2,14817,0)="""DATA"",396.18,469,3,758,0)"
^XMB(3.9,22,2,14818,0)="MJ?(26%B(6)WL4""N'6!+%-W@%Q2K\1#*7T>?-^G.P4I.D)=_1JJ2<`Q(B5=+U"
^XMB(3.9,22,2,14819,0)="""DATA"",396.18,469,3,759,0)"
^XMB(3.9,22,2,14820,0)="MGFL#,!7I])[39YD=A4N6;(GVN7L?;F:+Z0T=SJJWI#MQAPMW-%ZX-R1H\6XP"
^XMB(3.9,22,2,14821,0)="""DATA"",396.18,469,3,760,0)"
^XMB(3.9,22,2,14822,0)="M+SA%=5^AF3L+-5\!IL@^P9*9+MZY<P1R4D?-DG=O1^,K0U+CV_?3R7MWA$;C"
^XMB(3.9,22,2,14823,0)="""DATA"",396.18,469,3,761,0)"
^XMB(3.9,22,2,14824,0)="MZ_$""B.EBA7+_M6!)Z1,@<2YAU(U5&H9*[""YJ%K![/AG?NAY,YK!`$X*LPM+0"
^XMB(3.9,22,2,14825,0)="""DATA"",396.18,469,3,762,0)"
^XMB(3.9,22,2,14826,0)="M*@`EJB,KY"":`&^3H[BN8A\-=C6-/0ELP-G9ZBK&QV5&-C2*BU""`IIGHUF'BN"
^XMB(3.9,22,2,14827,0)="""DATA"",396.18,469,3,763,0)"
^XMB(3.9,22,2,14828,0)="ME&H!`8R1S8ZXD1S5]AE+M'T&SH]WS/%1\I(FQ;-=B*,L-UB1SAX+!O@NMR-*"
^XMB(3.9,22,2,14829,0)="""DATA"",396.18,469,3,764,0)"
^XMB(3.9,22,2,14830,0)="M8*>[ZJEK=@)""OCV?&_&;@MU+06V9K)HN.#(+""/!SUWRG%;`5J.`""""7=G:F[O"
^XMB(3.9,22,2,14831,0)="""DATA"",396.18,469,3,765,0)"
^XMB(3.9,22,2,14832,0)="M1.B@7:$""!<1S\<I*)'D@8'Q5[S3WHLDA0H+SD:SZXF06EV4)D,&X;""DNVPB7"
^XMB(3.9,22,2,14833,0)="""DATA"",396.18,469,3,766,0)"
^XMB(3.9,22,2,14834,0)="MPZZP9X^`@3R7KLASJ0I2/W5\F'.E,\&=-W4HX7^G.J)/F%&CGLI[,F*&^%%J"
^XMB(3.9,22,2,14835,0)="""DATA"",396.18,469,3,767,0)"
^XMB(3.9,22,2,14836,0)="M%M)1M9FG;HXCN-WA^3990I=NV7CPE\EF%VMRT#L)!_YZ'7P.#>FGNH?U.\_Y"
^XMB(3.9,22,2,14837,0)="""DATA"",396.18,469,3,768,0)"
^XMB(3.9,22,2,14838,0)="M',?!/M[[:_20[BJ(EB_ZU""WK=.17^UT:83&@WC@=]3CX'.S""1%)WNN-A=#7_"
^XMB(3.9,22,2,14839,0)="""DATA"",396.18,469,3,769,0)"
^XMB(3.9,22,2,14840,0)="MF';F<X#\5>'32S`!KCUWNE3JY6*/&A5^+^#Q=F&/E_9P9,9:P@#P$,OS[]/Q"
^XMB(3.9,22,2,14841,0)="""DATA"",396.18,469,3,770,0)"
^XMB(3.9,22,2,14842,0)="MK8@K$3F6O9KSSW$J'`I>B566GA&O7UFLEKY<3>G+ISX]Z522,Y'IU.<(8<SF"
^XMB(3.9,22,2,14843,0)="""DATA"",396.18,469,3,771,0)"
^XMB(3.9,22,2,14844,0)="M[G!,-AXLQK?7V(L>+J9S;N%!04>CP8K!XUB^!I.)^WXLY:JISU71AWM9'SZ"""
^XMB(3.9,22,2,14845,0)="""DATA"",396.18,469,3,772,0)"
^XMB(3.9,22,2,14846,0)="MKZNY^\\[]W;X@:PCN9H,YNXO=S,/,!<]V%Q(F""/V_DCN[KR[P02-[N:#8B&."
^XMB(3.9,22,2,14847,0)="""DATA"",396.18,469,3,773,0)"
^XMB(3.9,22,2,14848,0)="MC,6""H`F/C:-Y]-SW[GR\4`JP(*6I=';C>*5[[R[<^>#VK8?&-[AC>%XN1,P&"
^XMB(3.9,22,2,14849,0)="""DATA"",396.18,469,3,774,0)"
^XMB(3.9,22,2,14850,0)="M62Z$O]66R$S&-^-%*>>;:?9MCK(HS=7=[3`'Q+@&XWFZG(8T3:K10+VI2D@J"
^XMB(3.9,22,2,14851,0)="""DATA"",396.18,469,3,775,0)"
^XMB(3.9,22,2,14852,0)="M[=6C'XY%1S^X*OWXH\Z^G9R6.)PCGE@)9R'$:\[9SO]CICX0,N5<4S`M$(5$"
^XMB(3.9,22,2,14853,0)="""DATA"",396.18,469,3,776,0)"
^XMB(3.9,22,2,14854,0)="M!/YS+4I`-EAFYD3THB=X83=*RNGV3\III#FKO\\=*PF`!:8TJ+1&MYKO4P+A"
^XMB(3.9,22,2,14855,0)="""DATA"",396.18,469,3,777,0)"
^XMB(3.9,22,2,14856,0)="M#BR$8023+&JO/2SMQ>/^Z9[Q""&N^"")_5!L'@2`$$:X'):AA0>)0B""*V86-4]"
^XMB(3.9,22,2,14857,0)="""DATA"",396.18,469,3,778,0)"
^XMB(3.9,22,2,14858,0)="M`4T.;"",.!!O[A2'\J@T&ZS7)H7X*=B2]2DZ9SG*IDI:Q-)O&,FD;7<$8R<76"
^XMB(3.9,22,2,14859,0)="""DATA"",396.18,469,3,779,0)"
^XMB(3.9,22,2,14860,0)="M;YBOJQJJAB&=I]8[)%#*]E-5%C""]DLK*H.$F-&M#@T;4[UZ&_<N@@U4-""1W#"
^XMB(3.9,22,2,14861,0)="""DATA"",396.18,469,3,780,0)"
^XMB(3.9,22,2,14862,0)="MH3/&J*JIKU/Z7&LVG6XOT6V'?'XM3W4T&\JH=U/K$""HFF-XS1PN=F,7&U,EO"
^XMB(3.9,22,2,14863,0)="""DATA"",396.18,469,3,781,0)"
^XMB(3.9,22,2,14864,0)="M-'M\B=/S']QG_XF'X%8.-[ALCO2(3E$>),=F&6-3;`&EW9X.,%=&N-*_!N&G"
^XMB(3.9,22,2,14865,0)="""DATA"",396.18,469,3,782,0)"
^XMB(3.9,22,2,14866,0)="MQX0DNM*SBM]HE:ZOKN3<,$>P0ZMXWU2\!Y8Y@%AD4&FVJ&5KP$#4Y-M%>5E,"
^XMB(3.9,22,2,14867,0)="""DATA"",396.18,469,3,783,0)"
^XMB(3.9,22,2,14868,0)="M-G%\?%V+A<!'5Y5#=+J:7OMA=%BKF[>JH!JFC:K8!:""J\1FT(X""NK*+5M42A"
^XMB(3.9,22,2,14869,0)="""DATA"",396.18,469,3,784,0)"
^XMB(3.9,22,2,14870,0)="MU>@:DE""W.6`!JU-%*[G43AJ%TXC<6:&""?`4#!V81H1.""N:2Z)GY)MK""ESA:6"
^XMB(3.9,22,2,14871,0)="""DATA"",396.18,469,3,785,0)"
^XMB(3.9,22,2,14872,0)="M26E':\Q-&TH.R*QXM92SSW(>#^;&C$^`1<(38#41!/(NXUAB^4.U:E:'9;`K"
^XMB(3.9,22,2,14873,0)="""DATA"",396.18,469,3,786,0)"
^XMB(3.9,22,2,14874,0)="M`.WZZCXU*6Z)LM,T+,]Y+<JC,\4Z)/%:FHXY6I'7@OSB(-Y:7RW/YA7L""FCJ"
^XMB(3.9,22,2,14875,0)="""DATA"",396.18,469,3,787,0)"
^XMB(3.9,22,2,14876,0)="M=56GJ=M5.P=U51:_I*MVM!/[77Y-#129<=I@;S(\U1@)3S761""!REV6+1-A["
^XMB(3.9,22,2,14877,0)="""DATA"",396.18,469,3,788,0)"
^XMB(3.9,22,2,14878,0)="M1,2Y8:>EFBDSN""0+ZX8Z:P@M1Y2*IPEQCR0I>7WBK9,2QZC('NO-0]7%A*P@"
^XMB(3.9,22,2,14879,0)="""DATA"",396.18,469,3,789,0)"
^XMB(3.9,22,2,14880,0)="MKNO)\I,U('6.$FIMN&[UI8BR_!'1""EG^2(Y;\.*G/$,*1>F=<B/V2>C,IMZX"
^XMB(3.9,22,2,14881,0)="""DATA"",396.18,469,3,790,0)"
^XMB(3.9,22,2,14882,0)="MB*D/;O_Q88)_@]F!%DRWGA+`LI""D!,SXRJ+ZM40`P!M%4SNYF:X8I]KL!.RJ"
^XMB(3.9,22,2,14883,0)="""DATA"",396.18,469,3,791,0)"
^XMB(3.9,22,2,14884,0)="M<YP\61..V[\/Q^W#.>[\/AQWC#EF^G-'(^]MV)6GZ<D'N?ZFRDR.)[B>N-EJ"
^XMB(3.9,22,2,14885,0)="""DATA"",396.18,469,3,792,0)"
^XMB(3.9,22,2,14886,0)="M7UR?A3N_<N<N^G6\>%>FMJX0[@-Y>BL%]$BZ*P69OG?G@\DD)5JFOL0VREPH"
^XMB(3.9,22,2,14887,0)="""DATA"",396.18,469,3,793,0)"
^XMB(3.9,22,2,14888,0)="M:=?JG*X[%R?@E55-3V?`]7*'Y)@\MZI%>D9$7MU!NB^?:FB*,?/6;9^\=7&+"
^XMB(3.9,22,2,14889,0)="""DATA"",396.18,469,3,794,0)"
^XMB(3.9,22,2,14890,0)="MDF;*VQ=79/'N[N82#2Y'=X3UM#KSZ6)`OGM3_':P2`MD8+/!B*3;W0S)%=8*"
^XMB(3.9,22,2,14891,0)="""DATA"",396.18,469,3,795,0)"
^XMB(3.9,22,2,14892,0)="MW-CXH;@MV\<J>/>51(#5-ZUGGI8=W%[?3<IT[0!=3F^QE#QO.ARGLDCUF.H5"
^XMB(3.9,22,2,14893,0)="""DATA"",396.18,469,3,796,0)"
^XMB(3.9,22,2,14894,0)="MEUC54S$,!_/9],9=#,B7_(3&5'%F[P83C-?%SU)CX!6=)!6F6&;=@_3?MD^G"
^XMB(3.9,22,2,14895,0)="""DATA"",396.18,469,3,797,0)"
^XMB(3.9,22,2,14896,0)="M_^5Y$V(1D7H0(;$I:MLT1=VF4]0@/S\>_9$MYM>:1RABW%V)TY[-:)V&:E>7"
^XMB(3.9,22,2,14897,0)="""DATA"",396.18,469,3,798,0)"
^XMB(3.9,22,2,14898,0)="MT]+;U>6T`.R6#'M]3)=M**C!Z6!K:V)K:V'K:$)I[!]T'.G>0-9$F<`>3QV>"
^XMB(3.9,22,2,14899,0)="""DATA"",396.18,469,3,799,0)"
^XMB(3.9,22,2,14900,0)="M+_'O6SJ[.IR6%D?*'85.1U/W.A)>%&TCM^Q*:''X4C`5%6QJ=8!<J60R6R5M"
^XMB(3.9,22,2,14901,0)="""DATA"",396.18,469,3,800,0)"
^XMB(3.9,22,2,14902,0)="M(<46)%/E?4`,U=+(Q@F[L6:?TNY44KWFE^2(>Q4%""UP5V97!IK3;0)N)\K)%"
^XMB(3.9,22,2,14903,0)="""DATA"",396.18,469,3,801,0)"
^XMB(3.9,22,2,14904,0)="MV]$9=QF4Z8J)M`4T%T*`.Z01TK222-OJ:K>^?O-KV35D9%>1H665Z8PIO)`;"
^XMB(3.9,22,2,14905,0)="""DATA"",396.18,469,3,802,0)"
^XMB(3.9,22,2,14906,0)="M6,M*('8=@,Q8'*!)'0--ZOQ>FM32Q-@Z0)/XBFB8$JUQ@@:6&A.A?R<*;^KX"
^XMB(3.9,22,2,14907,0)="""DATA"",396.18,469,3,803,0)"
^XMB(3.9,22,2,14908,0)="M7\=8;LV1H*V+KZT[$KS6@,%CT[$7AN;""T%H8&0M:B;IM*4P^%P)`H*6BMF+$"
^XMB(3.9,22,2,14909,0)="""DATA"",396.18,469,3,804,0)"
^XMB(3.9,22,2,14910,0)="M$SD\(K4J/!\57+5XXTA=%6&E>Q44)]1BNVW""MD&7.)#MCB;;'1.V._H^G1[;"
^XMB(3.9,22,2,14911,0)="""DATA"",396.18,469,3,805,0)"
^XMB(3.9,22,2,14912,0)="M@`U3GG-""SU*AS=Q.2_>@$PLZZ>15)\7J$[@ZFB=P64Y;=017;<:D>P971_<,"
^XMB(3.9,22,2,14913,0)="""DATA"",396.18,469,3,806,0)"
^XMB(3.9,22,2,14914,0)="MKCIYX2E<%`,""""U.?MBG6NSA=3=ETE:*I&3Y=T71U1=/5D`Q%7R$98GM%09VV"
^XMB(3.9,22,2,14915,0)="""DATA"",396.18,469,3,807,0)"
^XMB(3.9,22,2,14916,0)="MY(P&16Y:M@2@98Y6N`2@O!(74[EB;\D5+`'H:2X!Z`D5`DDOX=9>`]`3-[J2"
^XMB(3.9,22,2,14917,0)="""DATA"",396.18,469,3,808,0)"
^XMB(3.9,22,2,14918,0)="M`N""%YG<NVL(3>NK`IG<)`V%""Q=D`'`JQ768V6(C>DPE&1.Z7S4]#X\Q&LRGK"
^XMB(3.9,22,2,14919,0)="""DATA"",396.18,469,3,809,0)"
^XMB(3.9,22,2,14920,0)="MFN0@.\=@'EU?DZY/EN^2+%T1A.CJ-X$HRC&%8T=Y?""(T2]`1@QY)@;GN*KS!"
^XMB(3.9,22,2,14921,0)="""DATA"",396.18,469,3,810,0)"
^XMB(3.9,22,2,14922,0)="M""A`8RF6""^""H,?;TV!_J'3?</=K#L:@3T;*V`GM70""M-A,.W`7T_7K^OJ`O;T"
^XMB(3.9,22,2,14923,0)="""DATA"",396.18,469,3,811,0)"
^XMB(3.9,22,2,14924,0)="MYFA0\PJ5W-:*F=E'Q<QZ6K+M&<1#NMH!#*NA#=K5C'58#9UHD40152*4LR:6"
^XMB(3.9,22,2,14925,0)="""DATA"",396.18,469,3,812,0)"
^XMB(3.9,22,2,14926,0)="M8/<5E%,DOX.U$Y2><@)C2_?<_/=5Z)ANWI5-C0#+IPP2=(431UTN=>!RG**Y"
^XMB(3.9,22,2,14927,0)="""DATA"",396.18,469,3,813,0)"
^XMB(3.9,22,2,14928,0)="M<\^`B9XF$SU3)H#&%W,AT!0M0)H/N3D`YX'=KZ!4_S-V@9U)M2Q)UKUT\)5+"
^XMB(3.9,22,2,14929,0)="""DATA"",396.18,469,3,814,0)"
^XMB(3.9,22,2,14930,0)="M99O*L8'!=?1265NT6I4FQ#TZR5+9[FF)%Q!*!NJX!$=QUD#D9W)""C0M717=E"
^XMB(3.9,22,2,14931,0)="""DATA"",396.18,469,3,815,0)"
^XMB(3.9,22,2,14932,0)="M+%$""O96Q$&[!""]G*6%OGP""""^:X.K>\Q8*E8F0@L2&6K\,IYR)HU4IOV5.>T="
^XMB(3.9,22,2,14933,0)="""DATA"",396.18,469,3,816,0)"
^XMB(3.9,22,2,14934,0)="MP:G5^*JLLN1DO!ZL9^[5='XS7GR`=$UQ.%4^&TS789U`%.7JL7PQ*,!9G:)."
^XMB(3.9,22,2,14935,0)="""DATA"",396.18,469,3,817,0)"
^XMB(3.9,22,2,14936,0)="MR^631>'9,F8,#M+5K.DR[6))&W-_6$XKO8MMY%[/7<SFF8Q1>DU;CU[3!C+Q"
^XMB(3.9,22,2,14937,0)="""DATA"",396.18,469,3,818,0)"
^XMB(3.9,22,2,14938,0)="M&BO76K;I.;10B3]""+$&4.&RJ_!6E8Z8,P/P_F8N(%$J]V[][2-""\9XY6&#2_"
^XMB(3.9,22,2,14939,0)="""DATA"",396.18,469,3,819,0)"
^XMB(3.9,22,2,14940,0)="M]K<5?OQ#$""AO6GJ!\J:E'2CO'10H;UKZ@?*>1J""\O!:V(7(%2P@+C,J6<$1X"
^XMB(3.9,22,2,14941,0)="""DATA"",396.18,469,3,820,0)"
^XMB(3.9,22,2,14942,0)="M?3W9L:9*L?>40Q`(]$V]3[-W@+ZU''.T,GU#5VF@AU*[C]DSD?;9FMIGZVJ?"
^XMB(3.9,22,2,14943,0)="""DATA"",396.18,469,3,821,0)"
^XMB(3.9,22,2,14944,0)="MW3A,^VQM[>,IR+3/5FJ?HX1H*B%:2HBV$J*CA.@J(7K*GE3H0U]/'=@.I=A_"
^XMB(3.9,22,2,14945,0)="""DATA"",396.18,469,3,822,0)"
^XMB(3.9,22,2,14946,0)="MRB$0=:BV2O/%K2SK4""USM,(.Y26[``,^UBXRR9^(.I.CV9D<[<YDJ>/4><WK"
^XMB(3.9,22,2,14947,0)="""DATA"",396.18,469,3,823,0)"
^XMB(3.9,22,2,14948,0)="MMY3H]3A'O\=9^HG1.A\5%+`>J6E!&EJ*N*\E89%Z=95Z8)F<J=_JF./CSM1'"
^XMB(3.9,22,2,14949,0)="""DATA"",396.18,469,3,824,0)"
^XMB(3.9,22,2,14950,0)="M([+C=Y>ET<L0P[,H@:ZI3(ZV,HGS26PCVBU397+TE<EJ:""L3Q8=4F6SP[`HB"
^XMB(3.9,22,2,14951,0)="""DATA"",396.18,469,3,825,0)"
^XMB(3.9,22,2,14952,0)="MW;Z6<`5Z9""OMB4BHH!K9;7-T_""DJ:#Z]83&WU8:O:<!HNVV.#C3/'&);L""R%"
^XMB(3.9,22,2,14953,0)="""DATA"",396.18,469,3,826,0)"
^XMB(3.9,22,2,14954,0)="M-&0F@;:)0#OFZ%B!9CA)@;RORR8!PY93/Q.T*#DGAUD--_LT8)D?UE_>6W<3"
^XMB(3.9,22,2,14955,0)="""DATA"",396.18,469,3,827,0)"
^XMB(3.9,22,2,14956,0)="M^/%^%Y!F0^0""N@VV;B22&_^,@L]!A,('_'C]@O_)+V(/8^2GEQCFA_77)N9G"
^XMB(3.9,22,2,14957,0)="""DATA"",396.18,469,3,828,0)"
^XMB(3.9,22,2,14958,0)="MXPC%^^4C6OIQBB""]N""[(SCF/PNC?F-""*W'ZWCPH4&<Z'<!<GY_1ZU*PA;6DB"
^XMB(3.9,22,2,14959,0)="""DATA"",396.18,469,3,829,0)"
^XMB(3.9,22,2,14960,0)="M#ZA=]6R9/_N)7/=0-Q!<*6P/&@:TV7`""IT:.I-U3PEP"")6\.,L""0!&C^FBQG"
^XMB(3.9,22,2,14961,0)="""DATA"",396.18,469,3,830,0)"
^XMB(3.9,22,2,14962,0)="MJI][VF1/(2VQIN?*KH+U?ND7,F`*J4=<U=$]/(]>K@_SX#_[<,?H@VR[0$L4"
^XMB(3.9,22,2,14963,0)="""DATA"",396.18,469,3,831,0)"
^XMB(3.9,22,2,14964,0)="MJ>!H0$])?""V[K<*`-""VA`\EF]YD<4N/VD16^V:2''&F0+C2<:5WQ45[9*,6R"
^XMB(3.9,22,2,14965,0)="""DATA"",396.18,469,3,832,0)"
^XMB(3.9,22,2,14966,0)="M`3PE'3S.[JQ4]>B_*9@CT2JK(SCF5Y>9R^!3&$7DQU-FQ)[R$TL&RR3\G)DT"
^XMB(3.9,22,2,14967,0)="""DATA"",396.18,469,3,833,0)"
^XMB(3.9,22,2,14968,0)="MS.M.4V`I3[TC>2)(3\D0$WTXH9!F?AP?RI3]*E(ZD""-ZXT(32$""7B4^^7\#G"
^XMB(3.9,22,2,14969,0)="""DATA"",396.18,469,3,834,0)"
^XMB(3.9,22,2,14970,0)="MCA[8,8(=N?XUC,A`ZF=-_I3VV[]),X,`5_8K<;7-17P@6\XKL;4+MD$2I@+;"
^XMB(3.9,22,2,14971,0)="""DATA"",396.18,469,3,835,0)"
^XMB(3.9,22,2,14972,0)="MQX&0+0%73<7.%CVV*J[\%4:$Q>.OT23SBN3\T?Z`/I?%%(3J6F`DQD2XL]WF"
^XMB(3.9,22,2,14973,0)="""DATA"",396.18,469,3,836,0)"
^XMB(3.9,22,2,14974,0)="M,QF7T[M]%#4Y%TGZI'6ITE746S8J]96K*C_E^*!*%RY7JW%L(_[Z&&(W.KN."
^XMB(3.9,22,2,14975,0)="""DATA"",396.18,469,3,837,0)"
^XMB(3.9,22,2,14976,0)="MB=C""ITV<X`K%VTV4S3@?\'-QE1-%1^+/V6)8$![>1<,)#NV""O5FJB4LW6+XB"
^XMB(3.9,22,2,14977,0)="""DATA"",396.18,469,3,838,0)"
^XMB(3.9,22,2,14978,0)="MH<G=,4/E_GA\M1^2E0>MZDPN""A_KM7$.MYIDF@0'2!:H6))`II?Q&0V(9P<1"
^XMB(3.9,22,2,14979,0)="""DATA"",396.18,469,3,839,0)"
^XMB(3.9,22,2,14980,0)="M`=3;*N+U+'/AF!D0'@P7X_<NDT&VRBM0S]!BBO^A7O:JEWEZ69!=1CR#YLU"""
^XMB(3.9,22,2,14981,0)="""DATA"",396.18,469,3,840,0)"
^XMB(3.9,22,2,14982,0)="MYE*SP?CVZFZ""Q@MTZ5Z/;STT6+`L=SFN?B;P[NT(@+8;VG7@*U%X=@:5F`T\"
^XMB(3.9,22,2,14983,0)="""DATA"",396.18,469,3,841,0)"
^XMB(3.9,22,2,14984,0)="MCQ>S;4G$;-N'B]EV7DO,MF,DYJ:AF)'`-Y1=YZ6N6WEH$JD@(N=>I4J/J$ZG"
^XMB(3.9,22,2,14985,0)="""DATA"",396.18,469,3,842,0)"
^XMB(3.9,22,2,14986,0)="M)LK9,&KIBX!Q^Z2,YWJDY-P^`>?.Z3@?7""W<.9J[,W<Q3B5_Y[EBYAT3YD7<"
^XMB(3.9,22,2,14987,0)="""DATA"",396.18,469,3,843,0)"
^XMB(3.9,22,2,14988,0)="M-T_""??U.I*GGU6Y#^A,>N'\@34+7JCA=JCZ8J+D[217K$7J$5`X=#](""052B"
^XMB(3.9,22,2,14989,0)="""DATA"",396.18,469,3,844,0)"
^XMB(3.9,22,2,14990,0)="M(OX+)X5:Q<F*1$*=LG/U=RW81##RH&^EH\1#O2A%-;VYG%Y._U4X=`;MGRZ<"
^XMB(3.9,22,2,14991,0)="""DATA"",396.18,469,3,845,0)"
^XMB(3.9,22,2,14992,0)="MRNYEPXWM+7#=O-GTUAM?3EQT1<X2JRN%O/9U-NA%;`BH""GT%=""N_\IR5^`F7"
^XMB(3.9,22,2,14993,0)="""DATA"",396.18,469,3,846,0)"
^XMB(3.9,22,2,14994,0)="M7+4M\:577,BS,-1('(6W]$/<HB5.39.#E2PC:#/4EA&T;03MZ%V-WA*<L@7$"
^XMB(3.9,22,2,14995,0)="""DATA"",396.18,469,3,847,0)"
^XMB(3.9,22,2,14996,0)="MX.AW7<D[\2M;4JHG*=:0O).1D]""S)35GEDW04KMG`[;<ZR8@'#X03U\OGT?S"
^XMB(3.9,22,2,14997,0)="""DATA"",396.18,469,3,848,0)"
^XMB(3.9,22,2,14998,0)="M1]E;DEA5FN-Z$D#7;--9C)XR@9+?N""++JE[I#HZ://""'A0!,\$""DW=J""T""-Y"
^XMB(3.9,22,2,14999,0)="""DATA"",396.18,469,3,849,0)"
^XMB(3.9,22,2,15000,0)="MUY*\LV4%[9;BQCEF1D_E<FMMVM=J4LKNU2HO,'M*,=:2CY0H3=$Q:P+8J`8["
^XMB(3.9,22,2,15001,0)="""DATA"",396.18,469,3,850,0)"
^XMB(3.9,22,2,15002,0)="M&:8D6)VK`2>?&!Y+N3K'XZS^F$6$J;A_I0`W0>(O_=W67Z-?T.S17Y/1JW[)"
^XMB(3.9,22,2,15003,0)="""DATA"",396.18,469,3,851,0)"
^XMB(3.9,22,2,15004,0)="M(NCB:Y_T!MXS)X)U#&"";HD-)P(H2@?]Q:@J<5J/4`R*!3!'$=16.K^K)D@+:"
^XMB(3.9,22,2,15005,0)="""DATA"",396.18,469,3,852,0)"
^XMB(3.9,22,2,15006,0)="M,8)N&D$+ST%5M)$*UC&`;4I62XL/8+$TKMS(C3E_N@H+TY+#E.Y10WF:CY1'"
^XMB(3.9,22,2,15007,0)="""DATA"",396.18,469,3,853,0)"
^XMB(3.9,22,2,15008,0)="M\)P6@$EXR3[#)7#H%\2F$!><9!:.?PP!^%)59?9>YOWP0R7E/E*&O4U=T%J."
^XMB(3.9,22,2,15009,0)="""DATA"",396.18,469,3,854,0)"
^XMB(3.9,22,2,15010,0)="MS0:P+2ELY8(IAS2=]11@S=H4!S4TK.+G<QWE5@';UES*1%_01WT&HPERT_1\"
^XMB(3.9,22,2,15011,0)="""DATA"",396.18,469,3,855,0)"
^XMB(3.9,22,2,15012,0)="M#+WFF""IXZH,W[SD40WW9+7[\PO0WL]T&*_'3.HS%Z[`L?D%CQ</HN<@[UO=N"
^XMB(3.9,22,2,15013,0)="""DATA"",396.18,469,3,856,0)"
^XMB(3.9,22,2,15014,0)="M-<MI;MJ0;UAX<,^H_RDBQVPSJ2'^&KAB_;+@4K=1N8X/?X.WB&ZS6B,_CC?+"
^XMB(3.9,22,2,15015,0)="""DATA"",396.18,469,3,857,0)"
^XMB(3.9,22,2,15016,0)="MT""?+)+Z$R6.VF$*;D6)K""YB%->(GR+2!9-W)S^4FRE)))(FT62[W6S]/+*5I"
^XMB(3.9,22,2,15017,0)="""DATA"",396.18,469,3,858,0)"
^XMB(3.9,22,2,15018,0)="M;/PJ4$N)LI)=0QY'FR!F6,EX1/MXC_E8^>'ZI<;-WQ3<C)Z+3OWF#;V_]ID\"
^XMB(3.9,22,2,15019,0)="""DATA"",396.18,469,3,859,0)"
^XMB(3.9,22,2,15020,0)="MROH.5(KGM&@=\FHT'ES?9L??SY&[&$\GT^OTGO;9?'HY<6^8_7V%5E*LPJB9"
^XMB(3.9,22,2,15021,0)="""DATA"",396.18,469,3,860,0)"
^XMB(3.9,22,2,15022,0)="M!R3:GZ'DCN`G@<&2#R#78_.Y'FV:;GI_`PE&W7EW@PF:#H=W,W9W(*R&-#U&"
^XMB(3.9,22,2,15023,0)="""DATA"",396.18,469,3,861,0)"
^XMB(3.9,22,2,15024,0)="M9>$XZAMMOA;OL,A'8V]P.9Z,%Q^R^^<'&:<5C^3F`1*3'R_&KL<SW)0Q7*@"""
^XMB(3.9,22,2,15025,0)="""DATA"",396.18,469,3,862,0)"
^XMB(3.9,22,2,15026,0)="MRWGK2,[GKG<W69`K[7^=SO\!Z`E,!V2NSEYZ\7HCUR]CKO++>M+6]O2$2!$4"
^XMB(3.9,22,2,15027,0)="""DATA"",396.18,469,3,863,0)"
^XMB(3.9,22,2,15028,0)="MR$Z3^F#NYI'QDH,LWCV<WH[RRXT*#1P-QI,/,$=2BP.K(W.Y7TV%%X<T+AJ^"
^XMB(3.9,22,2,15029,0)="""DATA"",396.18,469,3,864,0)"
^XMB(3.9,22,2,15030,0)="MF\XE/-F6D<HQA>UCN?/>36<SK'IB_NQC^'..Y<_]ESL?CCUQ_M]VCN'O6*.#"
^XMB(3.9,22,2,15031,0)="""DATA"",396.18,469,3,865,0)"
^XMB(3.9,22,2,15032,0)="MO-ETOI""T;O,([MKM8[F;IS?Q2.\18HF8R>]8TX<6\\%[=R)5P-81##J-8QF\"
^XMB(3.9,22,2,15033,0)="""DATA"",396.18,469,3,866,0)"
^XMB(3.9,22,2,15034,0)="M<MV1C#V6@IG\>L>R=SG`XYY,>KUCV.L>R]X(FSY/RE_W&/XZ1ZO?=#QQ%U(&"
^XMB(3.9,22,2,15035,0)="""DATA"",396.18,469,3,867,0)"
^XMB(3.9,22,2,15036,0)="M.\<P>'0/OIY/IS=2_LSZ+QFB>_052"";-29U9P0[]O>JD""A4+SL$LU'*BP^G-"
^XMB(3.9,22,2,15037,0)="""DATA"",396.18,469,3,868,0)"
^XMB(3.9,22,2,15038,0)="MC7N[X&X/E+-!Y3[;5>J3(W50[K.&/Y^H\L?COI$?-F&))]>L.Q/76KY/WYT-"
^XMB(3.9,22,2,15039,0)="""DATA"",396.18,469,3,869,0)"
^XMB(3.9,22,2,15040,0)="M>N!]^'[M;#J0O5P""IU'`CYMEEILE*EAM""\*V)+#`R1A6`Y`;""5[`FQ""[3%ZE"
^XMB(3.9,22,2,15041,0)="""DATA"",396.18,469,3,870,0)"
^XMB(3.9,22,2,15042,0)="MJCLIT]<JHC5[K4)\;T3-A3T]OKV$P+8)L&,""W#0!;ID`MTV`.R;`71/@G@$P"
^XMB(3.9,22,2,15043,0)="""DATA"",396.18,469,3,871,0)"
^XMB(3.9,22,2,15044,0)="M'K[U@=M@!0$M[=4""!V)MR(.U?2.]Y=3D%%B<DV!IG@1+ZR18VB?!TCD)ENY)"
^XMB(3.9,22,2,15045,0)="""DATA"",396.18,469,3,872,0)"
^XMB(3.9,22,2,15046,0)="ML/1.@:6Z2>`8+.T#I9LY""=(;Y\6%TT.0[*Y9<?I(R?3:$#SLW$,!4B_\%(4/"
^XMB(3.9,22,2,15047,0)="""DATA"",396.18,469,3,873,0)"
^XMB(3.9,22,2,15048,0)="MX=*/DB(2?L9?.&+;RENX>DH(^;5?.8<M#9BF#"":/QDB/\!9+A`QH!XA$<`],"
^XMB(3.9,22,2,15049,0)="""DATA"",396.18,469,3,874,0)"
^XMB(3.9,22,2,15050,0)="M3PWBR*^**6LLW\A3""@\$`S;>6PV5\""6\J.ZV,3JFTRBEPN^J[_?[R'W:KC<O"
^XMB(3.9,22,2,15051,0)="""DATA"",396.18,469,3,875,0)"
^XMB(3.9,22,2,15052,0)="MZ6:YOO!3Y;CR/>@-_+%4^]#MAFW;BJWM#%K;[BE7F,!H@3,#JJK1""SFRYY@`"
^XMB(3.9,22,2,15053,0)="""DATA"",396.18,469,3,876,0)"
^XMB(3.9,22,2,15054,0)="MMU@J,YN$""_6""*1%L==F`=@EHF57>3VP+CRB!O,<2E$Y#:4((LH8M0Y:!86P="
^XMB(3.9,22,2,15055,0)="""DATA"",396.18,469,3,877,0)"
^XMB(3.9,22,2,15056,0)="M2X>FW=&B:<MO+""R/S,*@M34&B130E@""6M>CJ$VZHK**ZOD`S-]0FC`BH+;<*"
^XMB(3.9,22,2,15057,0)="""DATA"",396.18,469,3,878,0)"
^XMB(3.9,22,2,15058,0)="MY5EQ;,TU8!66K^""@VU7?N44$X.C>NY4""J\3C2(F""!33KTY-+M&IZ@M4$%%[/"
^XMB(3.9,22,2,15059,0)="""DATA"",396.18,469,3,879,0)"
^XMB(3.9,22,2,15060,0)="M=QHYTNL3""+V.+EC)5K951:Z3<AF6QK&O;QN%*SIE%B_?0*TP>&(A@C=<B931"
^XMB(3.9,22,2,15061,0)="""DATA"",396.18,469,3,880,0)"
^XMB(3.9,22,2,15062,0)="M:6C80UGKT\9)#2I3%-;`2A2E8]+A.B;V2-->*RI:LT8B`\<:8@7&A@EQR?+:"
^XMB(3.9,22,2,15063,0)="""DATA"",396.18,469,3,881,0)"
^XMB(3.9,22,2,15064,0)="M""I^J*6R]/MLS:8K>R9OSD'[)[LSE%N&^LB<D-I3?^OA)E*(^\`1F8^E_NV]R"
^XMB(3.9,22,2,15065,0)="""DATA"",396.18,469,3,882,0)"
^XMB(3.9,22,2,15066,0)="MQ""#XA_9Q1.;W4&/YK:5-^HRN>6MK]*Z3#HQ?83B[N*""HX;98=RP]8L>X,>+!"
^XMB(3.9,22,2,15067,0)="""DATA"",396.18,469,3,883,0)"
^XMB(3.9,22,2,15068,0)="MO-R=>,P@*1X3^]^&Q&]#XC=#^6U(_#8D?AL2O\(,3SW2<9M^H2+UNVXE:!M?"
^XMB(3.9,22,2,15069,0)="""DATA"",396.18,469,3,884,0)"
^XMB(3.9,22,2,15070,0)="M>SK,!8D$O&LQ)H[1]E3;^%2""^9WD4C7J/$C(`86R.7F#<4`D_D?#.#G1,$A."
^XMB(3.9,22,2,15071,0)="""DATA"",396.18,469,3,885,0)"
^XMB(3.9,22,2,15072,0)="MR$/L8@.9""*-/;6F""$C2,8F5P#`/V?YB(=*%#?6T5T@GB-O2#N`HS_A5R&HK!"
^XMB(3.9,22,2,15073,0)="""DATA"",396.18,469,3,886,0)"
^XMB(3.9,22,2,15074,0)="M^P_H3/&'6)MK@3!D6$V0#K!/9DKU3:6^I>7^""]-RA]M4+L9P`*IO/>A;#_K?"
^XMB(3.9,22,2,15075,0)="""DATA"",396.18,469,3,887,0)"
^XMB(3.9,22,2,15076,0)="M[$&B3B!5(=9/5>G;E!RRK,.\D;/(^D1*EK79.*4N&G&9GD6S""I?^&OUI^_@2"
^XMB(3.9,22,2,15077,0)="""DATA"",396.18,469,3,888,0)"
^XMB(3.9,22,2,15078,0)="MI]_RC>0_P)S;C::6`%LG$.!QO$FDVC*1:NLHJ<8OR\?03W;A4LF\WC2F?5+!"
^XMB(3.9,22,2,15079,0)="""DATA"",396.18,469,3,889,0)"
^XMB(3.9,22,2,15080,0)="M'LB>1+9M$]FV`9.@+>2OS>C75+C?P614QO@N""C36`C@&7HEC$$;H-?56ZC7`"
^XMB(3.9,22,2,15081,0)="""DATA"",396.18,469,3,890,0)"
^XMB(3.9,22,2,15082,0)="M^`Z$4,_D2\G61-+7EXC&--K1..'N=Q_Q>Z#JQ5(1*E6O>3H!<V&STR\AEEQ9"
^XMB(3.9,22,2,15083,0)="""DATA"",396.18,469,3,891,0)"
^XMB(3.9,22,2,15084,0)="M4;G<X[P)\XJNIK./Y""Z=($[2PY=(VA21Q]OTYI'L\?*1G(FVJLYG5U/(NP\"""
^XMB(3.9,22,2,15085,0)="""DATA"",396.18,469,3,892,0)"
^XMB(3.9,22,2,15086,0)="M/L7>M_+RK1F6?AR@^P""E=W`E&Q1&R_5^%2`?%</`=!M&X28Z/_NIV(A8?3E;"
^XMB(3.9,22,2,15087,0)="""DATA"",396.18,469,3,893,0)"
^XMB(3.9,22,2,15088,0)="M/`;H[8T?$6P+TD9^$L1OT3X)UV'R@AXV^VB%\-_\V)>WTRTY6@5#W*=M@/PD"
^XMB(3.9,22,2,15089,0)="""DATA"",396.18,469,3,894,0)"
^XMB(3.9,22,2,15090,0)="M?7Z_P;^>BM-@XN4N""""*T]""/""V3[&<L""<^:L5SQ5*<J+G9T7U`OHD6EC<?0U)"
^XMB(3.9,22,2,15091,0)="""DATA"",396.18,469,3,895,0)"
^XMB(3.9,22,2,15092,0)="M$AQ!?C(Y627^2_DAFH7FP:?]VM^AX0:+JWJ7F\J)'R?S?=2W""CUVG\-D^@],"
^XMB(3.9,22,2,15093,0)="""DATA"",396.18,469,3,896,0)"
^XMB(3.9,22,2,15094,0)="MV&(,#&%LG$E]E=V.A@'T%:K>W*4""??'C2HE*Y;EQ1YB6Z#19!AN%ZRG882W$"
^XMB(3.9,22,2,15095,0)="""DATA"",396.18,469,3,897,0)"
^XMB(3.9,22,2,15096,0)="MRE%HD)A_BVL%3%D$""RFI!N5,EGVX.(MK^AO1GN""9'+BCS5E#S=GM=,%S5_8L"
^XMB(3.9,22,2,15097,0)="""DATA"",396.18,469,3,898,0)"
^XMB(3.9,22,2,15098,0)="M<N91U8UYO26JBU6]VA.<^/?G@HV_Z6$\64_%G2'K2*_4YY3]C$""DAT81N:47"
^XMB(3.9,22,2,15099,0)="""DATA"",396.18,469,3,899,0)"
^XMB(3.9,22,2,15100,0)="M[%4][Y2-$Q3'Z1N9UK(KR'J""&9,,FPCC^Q*@*/B,Q>O'9.1(KT+)R)6<$[ZY"
^XMB(3.9,22,2,15101,0)="""DATA"",396.18,469,3,900,0)"
^XMB(3.9,22,2,15102,0)="MXT&S/_\'4$L#!!0``@`(`!1@N32<K/U#:`@``'<L```>````2&%N9%]&:6YG"
^XMB(3.9,22,2,15103,0)="""DATA"",396.18,469,3,901,0)"
^XMB(3.9,22,2,15104,0)="M97)S7U1H=6UB7S$Q,2YP;FPN<F5PM5IM;^NV%?X>(/]!P$6!=D@06Y)E^R*]"
^XMB(3.9,22,2,15105,0)="""DATA"",396.18,469,3,902,0)"
^XMB(3.9,22,2,15106,0)="MA2+1-E>)U$@JCC<$18L6PP66I=@Z8#]_YU""69,FD3#J8OR1Z.SQ\S@N?<\B,"
^XMB(3.9,22,2,15107,0)="""DATA"",396.18,469,3,903,0)"
^XMB(3.9,22,2,15108,0)="MEQ5A,E64LR!E>8!7^#]Y24O*]/W;FQT\N0O4KBZ?[O1;&\JV1,C;F^\=?K<W"
^XMB(3.9,22,2,15109,0)="""DATA"",396.18,469,3,904,0)"
^XMB(3.9,22,2,15110,0)="MMS>/C[Q65:WX9O/E2_#P$%2\JJM@PT49_`W%_U3]_,_?_A&^CE]]?*0L)^QX"
^XMB(3.9,22,2,15111,0)="""DATA"",396.18,469,3,905,0)"
^XMB(3.9,22,2,15112,0)="M]>F3?K?\[>U],</?_-.G]F96[4OQ\Z]?W[?_>O_/[\WC:/IQ""(]O;P1YIF0?"
^XMB(3.9,22,2,15113,0)="""DATA"",396.18,469,3,906,0)"
^XMB(3.9,22,2,15114,0)="M\$U0DIQF:1$(DG&13TW/IF;8*TE^_?K'HAUE?`\5^]/'?KXJ/#Z.[GWYXB,B"
^XMB(3.9,22,2,15115,0)="""DATA"",396.18,469,3,907,0)"
^XMB(3.9,22,2,15116,0)="M,HB(_$3\_X%@,*J#1C9?R.XWM""#!/I6?@W:RQG>=YFUSR)&7!7LBR/1XD=NT"
^XMB(3.9,22,2,15117,0)="""DATA"",396.18,469,3,908,0)"
^XMB(3.9,22,2,15118,0)="MAF&1\;*$YS@5_+9Y.]9?CM\VB(<0)1#HQ]A,&2GF@^!DYF_,83U_==1^ONB]"
^XMB(3.9,22,2,15119,0)="""DATA"",396.18,469,3,909,0)"
^XMB(3.9,22,2,15120,0)="MK+G6PXS&'>:$VYL6T!V5BHO#6=AZVPKAHQ(2'E@F2%NYF""%V7%94I07]:Y,R"
^XMB(3.9,22,2,15121,0)="""DATA"",396.18,469,3,910,0)"
^XMB(3.9,22,2,15122,0)="MN0AD+2`7'GZP6'#N!90=J7B$%/JKK,LR;11+BV*LG-2INE&/DJ$?)$,_F(<7"
^XMB(3.9,22,2,15123,0)="""DATA"",396.18,469,3,911,0)"
^XMB(3.9,22,2,15124,0)="M7<""BGA$_\')OS"",KYDJD=9D&BN/#`#]%V(]+D`WVR`?VQ!GU)6BI#A6Y""PJ>"
^XMB(3.9,22,2,15125,0)="""DATA"",396.18,469,3,912,0)"
^XMB(3.9,22,2,15126,0)="M]:MFGBKRK?RNUW82[*43V,FK-X;A%;BC'^4<UWJF-+BV5!1.)*$3F++WMU_>"
^XMB(3.9,22,2,15127,0)="""DATA"",396.18,469,3,913,0)"
^XMB(3.9,22,2,15128,0)="MG][_BY&<$T4$B""9Y\'0XD=N^,B$Q&0$?:7$R$[1J`@]<GH%[H+]`1E4[G@\P"
^XMB(3.9,22,2,15129,0)="""DATA"",396.18,469,3,914,0)"
^XMB(3.9,22,2,15130,0)="M7XTP-_F#$8_$1ADP-WFCFUB].H4Y/!.!<9N33)!4DH""RQKVE$H1MU<[FW,D5"
^XMB(3.9,22,2,15131,0)="""DATA"",396.18,469,3,915,0)"
^XMB(3.9,22,2,15132,0)="MZX].K195SC7(R0N8CBI[6EN<ZV`>-[D""-OPH2$'/1MO&R@TTA[)2O+3&_3SQ"
^XMB(3.9,22,2,15133,0)="""DATA"",396.18,469,3,916,0)"
^XMB(3.9,22,2,15134,0)="MRK>1<^2OAOG6H-)DS*_<$FSDEF!1&W]05U8/V!0`]GU=2;SX,Z>0""BX""O?("""
^XMB(3.9,22,2,15135,0)="""DATA"",396.18,469,3,917,0)"
^XMB(3.9,22,2,15136,0)="M.G8%.IH/*4`T=T,NMB&GA;AEQO;5HW4EW3*Z`6J!F?&$`^@`H1+(&Q$/\`]&"
^XMB(3.9,22,2,15137,0)="""DATA"",396.18,469,3,918,0)"
^XMB(3.9,22,2,15138,0)="MSA3+BC1?O$!BJMU!:A:#E=>(PCC#O'IUY./SV9""+KX:7R^'E/!I=CYC\W%J&"
^XMB(3.9,22,2,15139,0)="""DATA"",396.18,469,3,919,0)"
^XMB(3.9,22,2,15140,0)="M+76%]8RL1,,)-=5]_W-PB58;1:!0%:FJ3[FR?@CO;AP%X2RKNI`C$>C)O_S^"
^XMB(3.9,22,2,15141,0)="""DATA"",396.18,469,3,920,0)"
^XMB(3.9,22,2,15142,0)="MYBA$0R<(4""U0!UT""_HP$SF=N:V6'[5/!.=3>(%6>35`O70^#.RCB[6WW=]<A"
^XMB(3.9,22,2,15143,0)="""DATA"",396.18,469,3,921,0)"
^XMB(3.9,22,2,15144,0)="MT%P[0K<[-1*-7D%9MB/2511:>F\2A6%:\9KETF%)/W>21F:0P>.MM1I:3L""Z"
^XMB(3.9,22,2,15145,0)="""DATA"",396.18,469,3,922,0)"
^XMB(3.9,22,2,15146,0)="M.J<@42^WX%*>$Q!$]ALLE""I(?SDRS""<(Y0((B\<H<3_*-J7L?)38>93SM+8:"
^XMB(3.9,22,2,15147,0)="""DATA"",396.18,469,3,923,0)"
^XMB(3.9,22,2,15148,0)="MU5S^]&XV2/HE?)EV!`JRV)8J9-.@FCJY94OZX<PKZ2]<DCX7Q==__W$T5\/J"
^XMB(3.9,22,2,15149,0)="""DATA"",396.18,469,3,924,0)"
^XMB(3.9,22,2,15150,0)="MD4I3]LR+9\#KVX)L&F;ZW6?C^MH+<(NZ[OW8,J#0QG09,78;42\"".+VN:`""H"
^XMB(3.9,22,2,15151,0)="""DATA"",396.18,469,3,925,0)"
^XMB(3.9,22,2,15152,0)="M29KM3@PRQ1XBQYF-2B"",U5TJVPH5:D3@=.B!4$;5DFSJ@D'""T44+W!&D!/<%"
^XMB(3.9,22,2,15153,0)="""DATA"",396.18,469,3,926,0)"
^XMB(3.9,22,2,15154,0)="M.-`?H(IALBI@Y2-YXQ+V2FON3N.C^)S&;VJ6X?^P0E`($2JP:P$&F:+S4>Q&"
^XMB(3.9,22,2,15155,0)="""DATA"",396.18,469,3,927,0)"
^XMB(3.9,22,2,15156,0)="M""A8?#1^M<!\^[,<#9!*J,>.,(%(EAP<7$(J]HF;I3)62$55*W%!9?AB5]9!)"
^XMB(3.9,22,2,15157,0)="""DATA"",396.18,469,3,928,0)"
^XMB(3.9,22,2,15158,0)="MY@0G`=6"")RYK+UQ6SKBL1[BLW7#Y<+*-1XVC;5H%3T3M""6%-]QSR;*X;!HHV"
^XMB(3.9,22,2,15159,0)="""DATA"",396.18,469,3,929,0)"
^XMB(3.9,22,2,15160,0)="M7/O8Q0BPCZ""0XV""\\:H"")VOCH_D05HT+'8_8K].T?O4HYO4J@K,!E;IT?+[2"
^XMB(3.9,22,2,15161,0)="""DATA"",396.18,469,3,930,0)"
^XMB(3.9,22,2,15162,0)="MA3._'D$X[\7V2=<@U[$&6'_8@*'=@`W\S2:)X""^TA(2ETR14\5`Y'POHMCZ`"
^XMB(3.9,22,2,15163,0)="""DATA"",396.18,469,3,931,0)"
^XMB(3.9,22,2,15164,0)="M&95I\]*F(""]MKM,RK!8,?2P8SKPLN#BAZ.V]V'`O,MP+#=8?$/E)-I\8M-$X"
^XMB(3.9,22,2,15165,0)="""DATA"",396.18,469,3,932,0)"
^XMB(3.9,22,2,15166,0)="MP],7@[%#M_5DH''!V=8@*O(4A8`(:A05>XI""O`NJ5$$,PA:><;(V&&5EN+<T"
^XMB(3.9,22,2,15167,0)="""DATA"",396.18,469,3,933,0)"
^XMB(3.9,22,2,15168,0)="MW$M,,?8QZR43UDL\<5K:K;?T%+6R6V_E*6H]93VWY608GU=EHT%/O.W1]>U!"
^XMB(3.9,22,2,15169,0)="""DATA"",396.18,469,3,934,0)"
^XMB(3.9,22,2,15170,0)="M3`E0S\H=S/D.""]L""V9M>7O94*KBP9IK(G;CJ16W$V<YUF:*OQY7)GV98YM\U"
^XMB(3.9,22,2,15171,0)="""DATA"",396.18,469,3,935,0)"
^XMB(3.9,22,2,15172,0)="M)S4`[5SO,""T_Z7_V\%#_HWB=[5I0R(LNL&$*5D+B`4L83<'2J3B%2^BU21&&"
^XMB(3.9,22,2,15173,0)="""DATA"",396.18,469,3,936,0)"
^XMB(3.9,22,2,15174,0)="MKKMHL>Y4GS0K!1;5>H.;:U41MG2S(1FR#=WN:S<OCALLY^G!YS?1""HL7;K$3"
^XMB(3.9,22,2,15175,0)="""DATA"",396.18,469,3,937,0)"
^XMB(3.9,22,2,15176,0)="M^L>.%F]NWG6]-5A_<W""'R3W1V*5;IXA4[?D`5]VBIF]4%TI3OY=[D1Z0*3?Z"
^XMB(3.9,22,2,15177,0)="""DATA"",396.18,469,3,938,0)"
^XMB(3.9,22,2,15178,0)="M`E78HJ=*5>?CW;JQAM%5V]Q-ZP9Y30',!2;0:4-95M0YT:P%7>#D\`>\4W%A"
^XMB(3.9,22,2,15179,0)="""DATA"",396.18,469,3,939,0)"
^XMB(3.9,22,2,15180,0)="M;0@LYBX;M#E-MPSKII.^YO1!CXDH""!/7.`AG81A96Y/X=!WK_B3P[H(?L.[L"
^XMB(3.9,22,2,15181,0)="""DATA"",396.18,469,3,940,0)"
^XMB(3.9,22,2,15182,0)="M]Y#/W=HU,;2CUK(&E^-95E<7*_SFHVNJ_&X:D""B?<;\M94%6""\C*JC@$S<Q("
^XMB(3.9,22,2,15183,0)="""DATA"",396.18,469,3,941,0)"
^XMB(3.9,22,2,15184,0)="M;F_HX-?N!;S6$XN!XQ""VZ:T,T_,M#N`;W6[$_5;=,.FL9*H\\&7/11Z_T=N?"
^XMB(3.9,22,2,15185,0)="""DATA"",396.18,469,3,942,0)"
^XMB(3.9,22,2,15186,0)="MM>BZ,NV\+@X67C$8`J=H2;`=J8*-X&6PY^)'5`!#OTCA[CR\+SF#Q;V""]8/G"
^XMB(3.9,22,2,15187,0)="""DATA"",396.18,469,3,943,0)"
^XMB(3.9,22,2,15188,0)="MEM%G;IW0%GO-9[*TEMTNM4$+RFP:]';5`X\,:^1#$\&A*5^3]'KOZ8]O0.9F"
^XMB(3.9,22,2,15189,0)="""DATA"",396.18,469,3,944,0)"
^XMB(3.9,22,2,15190,0)="M&;8.9+9+Q58W$YI;6CO,39<B:9(Y3D?2;!A)@B@J+H3/S,T3L$L>SF;-]/'`"
^XMB(3.9,22,2,15191,0)="""DATA"",396.18,469,3,945,0)"
^XMB(3.9,22,2,15192,0)="M@%Z9M?RAF_4ON@GNNI&=0VM+GXDW1N?H8T^W6O3'F1ZZ119I6$%&^Z%&QUEX"
^XMB(3.9,22,2,15193,0)="""DATA"",396.18,469,3,946,0)"
^XMB(3.9,22,2,15194,0)="M#H=U1R4/0.E2)6CF,5+B.5+4N>@E+(W#15?[7S3TOYJU&3QXJE7`N')R2=^Z"
^XMB(3.9,22,2,15195,0)="""DATA"",396.18,469,3,947,0)"
^XMB(3.9,22,2,15196,0)="M%[UM;<F$K0JV7#B;3@""&!:0ILX$HXQFE+7TF#2,=#32YF(2Q(X\TL(43;1+G"
^XMB(3.9,22,2,15197,0)="""DATA"",396.18,469,3,948,0)"
^XMB(3.9,22,2,15198,0)="M;>%DN/W?,9K/5I:66`](Z)-WSB,O7,_R77,H9';-.0+,D7A(,DB[LXR\HJQA"
^XMB(3.9,22,2,15199,0)="""DATA"",396.18,469,3,949,0)"
^XMB(3.9,22,2,15200,0)="MBW^I@5G:W1/#Y?;F?U!+`0(6""Q0``@`(`!1@N3231M'OV#@``'!%`0`:````"
^XMB(3.9,22,2,15201,0)="""DATA"",396.18,469,3,950,0)"
^XMB(3.9,22,2,15202,0)="M``````$`(`""`@0````!(86YD7T9I;F=E<G-?5&AU;6)?,3$Q+G!N;%!+`0(6"
^XMB(3.9,22,2,15203,0)="""DATA"",396.18,469,3,951,0)"
^XMB(3.9,22,2,15204,0)="M""Q0``@`(`!9@N31""*Q(6,S\``+LH`@`>``````````$`(`""`@1`Y``!(86YD"
^XMB(3.9,22,2,15205,0)="""DATA"",396.18,469,3,952,0)"
^XMB(3.9,22,2,15206,0)="M7T9I;F=E<G-?5&AU;6)?,3$Q+G!N;""YF<FU02P$""%@L4``(`""``48+DT)8=9"
^XMB(3.9,22,2,15207,0)="""DATA"",396.18,469,3,953,0)"
^XMB(3.9,22,2,15208,0)="M\B4E``#-'`$`'@`````````!`""``@(%_>```2&%N9%]&:6YG97)S7U1H=6UB"
^XMB(3.9,22,2,15209,0)="""DATA"",396.18,469,3,954,0)"
^XMB(3.9,22,2,15210,0)="M7S$Q,2YP;FPN8V1E4$L!`A8+%``""``@`%&""Y-)RL_4-H""```=RP``!X`````"
^XMB(3.9,22,2,15211,0)="""DATA"",396.18,469,3,955,0)"
^XMB(3.9,22,2,15212,0)="M`````0`@`(""!X)T``$AA;F1?1FEN9V5R<U]4:'5M8E\Q,3$N<&YL+G)E<%!+"
^XMB(3.9,22,2,15213,0)="""DATA"",396.18,469,3,956,0)"
^XMB(3.9,22,2,15214,0)="4!08`````!``$`""P!``""$I@``````"
^XMB(3.9,22,2,15215,0)="""DATA"",396.18,469,3,957,0)"
^XMB(3.9,22,2,15216,0)="end"
^XMB(3.9,22,2,15217,0)="""DATA"",396.18,469,4)"
^XMB(3.9,22,2,15218,0)="9^1624923048"
^XMB(3.9,22,2,15219,0)="""DATA"",396.18,469,6)"
^XMB(3.9,22,2,15220,0)="1^613"
^XMB(3.9,22,2,15221,0)="""DATA"",396.18,472,0)"
^XMB(3.9,22,2,15222,0)="MUSCLES~111F"
^XMB(3.9,22,2,15223,0)="""DATA"",396.18,472,1,0)"
^XMB(3.9,22,2,15224,0)="^^2^2^3060728"
^XMB(3.9,22,2,15225,0)="""DATA"",396.18,472,1,1,0)"
^XMB(3.9,22,2,15226,0)="Last updated on 05/25/2006 ~111 "
^XMB(3.9,22,2,15227,0)="""DATA"",396.18,472,1,2,0)"
^XMB(3.9,22,2,15228,0)="Patch DVBA*2.7*111"
^XMB(3.9,22,2,15229,0)="""DATA"",396.18,472,2)"
^XMB(3.9,22,2,15230,0)="3060418^^3060525.1251"
^XMB(3.9,22,2,15231,0)="""DATA"",396.18,472,3,0)"
^XMB(3.9,22,2,15232,0)="^396.184^1084^1084^3060525^^^^"
^XMB(3.9,22,2,15233,0)="""DATA"",396.18,472,3,1,0)"
^XMB(3.9,22,2,15234,0)="begin 664 muscles_111.pnl.zip"
^XMB(3.9,22,2,15235,0)="""DATA"",396.18,472,3,2,0)"
^XMB(3.9,22,2,15236,0)="M4$L#!!0``@`(`(E>N33SS+IV1CT``-)_`0`/````375S8VQE<U\Q,3$N<&YL"
^XMB(3.9,22,2,15237,0)="""DATA"",396.18,472,3,3,0)"
^XMB(3.9,22,2,15238,0)="MW%U[<""3'6=^'-*O'Z77OA^T;G^VS9%^<?3_.21E))^F42'?B=L\J0B@S.]O2"
^XMB(3.9,22,2,15239,0)="""DATA"",396.18,472,3,4,0)"
^XMB(3.9,22,2,15240,0)="MMF]V9C,/W:TAY4""H%*02R*.2@C^@@,(I($4%G$J1""I`_""%4)27!,!?[`_&5<"
^XMB(3.9,22,2,15241,0)="""DATA"",396.18,472,3,5,0)"
^XMB(3.9,22,2,15242,0)="M/`+\A9._H,IT]W3/]NS,[LZ.3J>5JTXZ3<],]_R^_KZOO^_KK[LK6ZM)H;(E"
^XMB(3.9,22,2,15243,0)="""DATA"",396.18,472,3,6,0)"
^XMB(3.9,22,2,15244,0)="MJ4""9N]?$_RU)!EC65%/7E)$-L&/&(O&*UHS-CF[#FEF/_S@F7`=PMV[&7XU."
^XMB(3.9,22,2,15245,0)="""DATA"",396.18,472,3,7,0)"
^XMB(3.9,22,2,15246,0)="M+($]H-RT3*`GA.K>#4T%I]""KAJE+4#6-9S:E>\ZS)SMNL-K<+T""URPM092^,"
^XMB(3.9,22,2,15247,0)="""DATA"",396.18,472,3,8,0)"
^XMB(3.9,22,2,15248,0)="M;VE-J[D)5""MQ<A/=7=7TQC/WG,+46$6JWM1K0(]%(I$*@;<A58$R0WY76DUP"
^XMB(3.9,22,2,15249,0)="""DATA"",396.18,472,3,9,0)"
^XMB(3.9,22,2,15250,0)="M<P>_0\#%B^\0=&,VNMB3%%QL*K$L-4VHJ<+HYLJMM15759/D-ZYD_9JKFK.T"
^XMB(3.9,22,2,15251,0)="""DATA"",396.18,472,3,10,0)"
^XMB(3.9,22,2,15252,0)="MFBO>:H3-V^7E#:<>0O%IN^P%<I$JVE7]NDWOFY3>IQQZ_W-DY#HBAC""Z=7/K"
^XMB(3.9,22,2,15253,0)="""DATA"",396.18,472,3,11,0)"
^XMB(3.9,22,2,15254,0)="M]I9-^W551;0?J^[=DJ`!:I-+&D9>-EL*0*5&&:J[""AA=UA0-/24K9:CL`?W8"
^XMB(3.9,22,2,15255,0)="""DATA"",396.18,472,3,12,0)"
^XMB(3.9,22,2,15256,0)="M*NK>9Y;KDFX`,S%S;65U\?9&Y87EZXNWRBN5""?LN>24A*TN*)-^9)&44TT_&"
^XMB(3.9,22,2,15257,0)="""DATA"",396.18,472,3,13,0)"
^XMB(3.9,22,2,15258,0)="MR=4-J0&$J<VR6)940RP#'>[8KY+6)R,36Y(.5!,7C?%]PKJ#8B<7J5S:!O\E"
^XMB(3.9,22,2,15259,0)="""DATA"",396.18,472,3,14,0)"
^XMB(3.9,22,2,15260,0)="M&_PH!?_'$4;(68>09S<M0U;`5?$F@B(IBKAJJ3*^LT]8;P>"")>P82YI2<Z'K"
^XMB(3.9,22,2,15261,0)="""DATA"",396.18,472,3,15,0)"
^XMB(3.9,22,2,15262,0)="MABEOR\\T@72>LL:'O*QQ_!HP9!U6@=C4M:H""&L;52""116;),4U-9G?95EC+)"
^XMB(3.9,22,2,15263,0)="""DATA"",396.18,472,3,16,0)"
^XMB(3.9,22,2,15264,0)="M&X1.\:]&.FM]N,VWRXIF@,/LZVCBIKJL0/E.XL0]^_/7`&)7*)/""2&2TL@D:"
^XMB(3.9,22,2,15265,0)="""DATA"",396.18,472,3,17,0)"
^XMB(3.9,22,2,15266,0)="MVA0%B/_.ND@V3[G@[2@3@5]F(I`JY@K9?6+[,8=M<EFS=`AT\0:XZT(VM0%5"
^XMB(3.9,22,2,15267,0)="""DATA"",396.18,472,3,18,0)"
^XMB(3.9,22,2,15268,0)="M8*`K'8F2$14B+JP391FI2:0R=2,Q81C/`]V$LJ2X5%!7@4\G[;[\4YOG4Q3M"
^XMB(3.9,22,2,15269,0)="""DATA"",396.18,472,3,19,0)"
^XMB(3.9,22,2,15270,0)="MIQVT5Z)!!=YF@MCPBW_47U2RMOC'3A-*'*.4J$>]TI]ETH]X2(4RE-0G#7'-"
^XMB(3.9,22,2,15271,0)="""DATA"",396.18,472,3,20,0)"
^XMB(3.9,22,2,15272,0)="M@C4@[FBZ:-]U5()X2S(1#89-,V0S-MP7""=RG*-R_C'A5PR-E4U)KDEYCR-9T"
^XMB(3.9,22,2,15273,0)="""DATA"",396.18,472,3,21,0)"
^XMB(3.9,22,2,15274,0)="MJ880B>6688+&`^G*08!E;6!/$6#+%-@W?(!=3HKO%Q>K!JKP6?&&)C9L>`UM"
^XMB(3.9,22,2,15275,0)="""DATA"",396.18,472,3,22,0)"
^XMB(3.9,22,2,15276,0)="M#S10F0@-<0<HYH/GU6[(<CRR;8IL*>I%MI1""R""JZ)(-G6:?)DBHB[8X!B:8F"
^XMB(3.9,22,2,15277,0)="""DATA"",396.18,472,3,23,0)"
^XMB(3.9,22,2,15278,0)="MFO@-H%X1JY8IJEH;-%+_-4L&M4.0T&VD.;9UJ3G>#7^>Q[]'\6=]\#^71OBW"
^XMB(3.9,22,2,15279,0)="""DATA"",396.18,472,3,24,0)"
^XMB(3.9,22,2,15280,0)="M-$UWX'OPB9JJM,2[T*R+N[JT!\V6""!38@*ID#B?X`@<^_@4ZZ,:G'?3G'?3/"
^XMB(3.9,22,2,15281,0)="""DATA"",396.18,472,3,25,0)"
^XMB(3.9,22,2,15282,0)="M9Q#Z50GV0B_M(K/5,!EVFP\0CZB:*:*'=5EK`%%26Z(.#&@@!2""#821*D2?*"
^XMB(3.9,22,2,15283,0)="""DATA"",396.18,472,3,26,0)"
^XMB(3.9,22,2,15284,0)="MUQA1_B_B)<H+6424-4VK!2""*@<&W@3,A,9T'+JG([I:42T-.G1)/G3<8=7(^"
^XMB(3.9,22,2,15285,0)="""DATA"",396.18,472,3,27,0)"
^XMB(3.9,22,2,15286,0)="M`O.^'*+.#0+*2Q^L.AR>&#KH78Q4&WO\B[:1^@XS4C<9]@M#9*1&^ABIW?TU"
^XMB(3.9,22,2,15287,0)="""DATA"",396.18,472,3,28,0)"
^XMB(3.9,22,2,15288,0)="MVL,)HA$G:`?_J^.NO1)]%[AK,7_NSM@*,3X2)>`%""OZO?=RU""\Q@<PP8S6J*"
^XMB(3.9,22,2,15289,0)="""DATA"",396.18,472,3,29,0)"
^XMB(3.9,22,2,15290,0)="MZ^J+EMX:-KLL;YLO\6\26/%/1BFN'_H8,%>>$K>0&*(&K6H#DG%=JM5$U`+R"
^XMB(3.9,22,2,15291,0)="""DATA"",396.18,472,3,30,0)"
^XMB(3.9,22,2,15292,0)="M(PPRS-<!NMEH2'JKJZ10.IZT&_Q5VF#L*=;>'""\I0-*#.U==&J0(Q^P&/\$:"
^XMB(3.9,22,2,15293,0)="""DATA"",396.18,472,3,31,0)"
^XMB(3.9,22,2,15294,0)="M_""!K\&R':+8;C/=I<+Q""NG9)NS='FV37*6H['""-MQAE5O^J(RL<B3JL)2K%V"
^XMB(3.9,22,2,15295,0)="""DATA"",396.18,472,3,32,0)"
^XMB(3.9,22,2,15296,0)="MNR-^?B+U%\8(^TW3""G^751A3F)N8S.1S1\1-[-)A-NWBN]TZ[$P[PF1S(B>\"
^XMB(3.9,22,2,15297,0)="""DATA"",396.18,472,3,33,0)"
^XMB(3.9,22,2,15298,0)="M?7ILHD*_J]UE3D&6ZS(6NXB_YO38FY'3US7])0?7,]C@O8.PCY_`Z-KEMR1U"
^XMB(3.9,22,2,15299,0)="""DATA"",396.18,472,3,34,0)"
^XMB(3.9,22,2,15300,0)="M%\0_$SWM+G8>GUBT3,TN[Q\ERE!B?,?VF&.4%C_K$U)9TFHM$?6`)$)U3T-J"
^XMB(3.9,22,2,15301,0)="""DATA"",396.18,472,3,35,0)"
^XMB(3.9,22,2,15302,0)="MM-:+0]-97I<SA^P/';@K4:?FDUX]!FH^""G.:__)""CN?7&?K=IO>[S]K5IJ@_"
^XMB(3.9,22,2,15303,0)="""DATA"",396.18,472,3,36,0)"
^XMB(3.9,22,2,15304,0)="M9*""O)PU<C?C72PGR7Q%>$'I4G`Y:,55,KT<#?G$F8,5%ZOI.$G;^<J1OQ=F@"
^XMB(3.9,22,2,15305,0)="""DATA"",396.18,472,3,37,0)"
^XMB(3.9,22,2,15306,0)="M%6=Y4@2I.1>TYAQ/BR`UYWUJGJC<O+6!C#:.^YP""%W=<I-SW;6?0>99JLW0F"
^XMB(3.9,22,2,15307,0)="""DATA"",396.18,472,3,38,0)"
^XMB(3.9,22,2,15308,0)="ME4Q/K]Q#OF,-U,I``3+2+>LF:+`/F<(7G!H:P2%Y81Q)6Q.\!*V&,+L!]B13"
^XMB(3.9,22,2,15309,0)="""DATA"",396.18,472,3,39,0)"
^XMB(3.9,22,2,15310,0)="MT\6R+#4M10+""#!HP=<FT#'%3VE4M(S*Y:2DFM&L?G[:U6+FNW<7?,#;6_JLM"
^XMB(3.9,22,2,15311,0)="""DATA"",396.18,472,3,40,0)"
^XMB(3.9,22,2,15312,0)="MK,=PJQ78=.R6;:C6M+MC&YJZBQ&.]4;OYN&'>\+/A(!_>0L]J.F2`C'&%Q'X"
^XMB(3.9,22,2,15313,0)="""DATA"",396.18,472,3,41,0)"
^XMB(3.9,22,2,15314,0)="M>5DS3/0/Z*JDB)H.=Z&Z((@;D@D-`Z*^$Z]IN@&1#U83*P""-\O9[PBQ?$T3&"
^XMB(3.9,22,2,15315,0)="""DATA"",396.18,472,3,42,0)"
^XMB(3.9,22,2,15316,0)="MN'#^5EUK5#58,\1YNVX<A,*W%@8G9'2?A'3+[""-,:?L2,AN""D)>\A%Q6D`LK"
^XMB(3.9,22,2,15317,0)="""DATA"",396.18,472,3,43,0)"
^XMB(3.9,22,2,15318,0)="M(T;2Q>M`JBT(B6M`,1$]!D<?VR?Z(J]8OA'IR4:Y$.BGRE93EXPFCE)8AG!N"
^XMB(3.9,22,2,15319,0)="""DATA"",396.18,472,3,44,0)"
^XMB(3.9,22,2,15320,0)="M7=UI7[Z7L@EA""O1DU;#E2X>&,+N,:""9K5?2K#C'Q!J=-?)^T*;ET8Q_BY$,0"
^XMB(3.9,22,2,15321,0)="""DATA"",396.18,472,3,45,0)"
^XMB(3.9,22,2,15322,0)="M1UB"",F@:PM@212G,V']I.%X9#O3(8*""/=X).)5UZVT'M+Q""%$*@3%9W""7E1E"
^XMB(3.9,22,2,15323,0)="""DATA"",396.18,472,3,46,0)"
^XMB(3.9,22,2,15324,0)="M5!!&>XX&0#E36=[:WKR%**F1`>8,A>HN92'*$2+^'Z9HO^N@?:QM%.?R$_A3"
^XMB(3.9,22,2,15325,0)="""DATA"",396.18,472,3,47,0)"
^XMB(3.9,22,2,15326,0)="M;/=S[-@'+,.$.RV""<3R!_]N2:IP/=\9ME8B&B6#MFO4$^F:KH1HQ(;&B2E4%"
^XMB(3.9,22,2,15327,0)="""DATA"",396.18,472,3,48,0)"
^XMB(3.9,22,2,15328,0)="M&4*=A(HE12&60C]I])-!/UGTDQ,C;0((@?$5>7PO4WQO./@NM_$5DP/A>T\%"
^XMB(3.9,22,2,15329,0)="""DATA"",396.18,472,3,49,0)"
^XMB(3.9,22,2,15330,0)="MZ7T+B,CA07H<JJ*L-9I8=C45.W):LZD9T$2X80TL/.>@CG5%'?\98`BQ&QH'"
^XMB(3.9,22,2,15331,0)="""DATA"",396.18,472,3,50,0)"
^XMB(3.9,22,2,15332,0)="M,^&%>=H?ILVU;T7Z=""-BVG2H;DP?2#>.!<5'K:GO1@/@*X3!ESD0?.-!V92J"
^XMB(3.9,22,2,15333,0)="""DATA"",396.18,472,3,51,0)"
^XMB(3.9,22,2,15334,0)="M'9M-X_\;Z0FP&`9@]D``3@0&F.(YM!_""4AB$N0-!.!D889KGT3X(,\DP""/,'"
^XMB(3.9,22,2,15335,0)="""DATA"",396.18,472,3,52,0)"
^XMB(3.9,22,2,15336,0)="M@O!88(09EY9YV3,T7N8`Y@8""^%0?96K6@;XO33H5&&36U8T?B_1$F1\NE--!"
^XMB(3.9,22,2,15337,0)="""DATA"",396.18,472,3,53,0)"
^XMB(3.9,22,2,15338,0)="M4>;X83_^$(NN?=\79&&X0,X$!IEWZ9P^*(O#A7(V,,J""BV'[H""P-%\JY2,\("
^XMB(3.9,22,2,15339,0)="""DATA"",396.18,472,3,54,0)"
^XMB(3.9,22,2,15340,0)="M6^9^1=@F_&.#5-AIZA`+""7_!+Z>""FD%I407RG>Y!H([Z:>;5CR*!&\AT:Z""7"
^XMB(3.9,22,2,15341,0)="""DATA"",396.18,472,3,55,0)"
^XMB(3.9,22,2,15342,0)="MUY)VX6#1D&\ZS53:'%!,AO!99JZWD'M.9V/FC07DK>(X"".K_EHYN""./7X*Z$"
^XMB(3.9,22,2,15343,0)="""DATA"",396.18,472,3,56,0)"
^XMB(3.9,22,2,15344,0)="M!B4H""R*+&QDN1W]=-7``6U,7A!/VNZ@F6-,:Z+50GG]DGXY>.N?JFMXT2X6@"
^XMB(3.9,22,2,15345,0)="""DATA"",396.18,472,3,57,0)"
^XMB(3.9,22,2,15346,0)="MV3'DT&NR#)O01)[MW(9DXLQ#$8>T`7+K%>'XHHJ*D+/;+CL8)S^8'LF[`HHZ"
^XMB(3.9,22,2,15347,0)="""DATA"",396.18,472,3,58,0)"
^XMB(3.9,22,2,15348,0)="MI<??.O1XE*-'9B`M<M:1G8,P7Z*!`19<YHM)$7[/%V$V%,*#\2)&`B,LN@:\"
^XMB(3.9,22,2,15349,0)="""DATA"",396.18,472,3,59,0)"
^XMB(3.9,22,2,15350,0)="MSWEM%Q[BD`T%HT%1EDH<H\8_VQODD(WJL=[C7?I^C7?C7<:C)#].'*<-_(G/"
^XMB(3.9,22,2,15351,0)="""DATA"",396.18,472,3,60,0)"
^XMB(3.9,22,2,15352,0)="M</0$Y>@43AMI0AW'_UN#CDIIOK5'/1KV4KN?""J40&O9TI8Z#I%!VI0D<T&1$"
^XMB(3.9,22,2,15353,0)="""DATA"",396.18,472,3,61,0)"
^XMB(3.9,22,2,15354,0)="M0-XL\#VX1B%_QY<UTZ%43.IPE6BIR`.$/66O<*1D+^4G>W\40O;&_&4OF>1G"
^XMB(3.9,22,2,15355,0)="""DATA"",396.18,472,3,62,0)"
^XMB(3.9,22,2,15356,0)="MQT_0!G[31_9HQ>FD2&8*E$'%+L,W=,F33\L%L`O%$&)WMBS)NF9_&L16'M#W"
^XMB(3.9,22,2,15357,0)="""DATA"",396.18,472,3,63,0)"
^XMB(3.9,22,2,15358,0)="M<&;""@N<.D\\%X4+'G0VK4=4,5(9>.U1Y=86_JYZ0#<?.A50H>4T>LKSF>4?_"
^XMB(3.9,22,2,15359,0)="""DATA"",396.18,472,3,64,0)"
^XMB(3.9,22,2,15360,0)="MXVRP_(&OP.:/E,`F[]=@F?""=P6>L<<*5)?&25US/T8F.TJ!RFN(;>(@""^""L_"
^XMB(3.9,22,2,15361,0)="""DATA"",396.18,472,3,65,0)"
^XMB(3.9,22,2,15362,0)="M!Z009GIM]A9Z$+EABU7D9D'5,H197`F9OKY95>!'+/3,NMI1,H7\-]78`[J!"
^XMB(3.9,22,2,15363,0)="""DATA"",396.18,472,3,66,0)"
^XMB(3.9,22,2,15364,0)="M)54X_M.65+.G^HG,ZE;C4.65ZK8)0K,FI=G?^\IK,HR\.KUX6/*:Y0""VC=NV"
^XMB(3.9,22,2,15365,0)="""DATA"",396.18,472,3,67,0)"
^XMB(3.9,22,2,15366,0)="MDW*1D]?<49)7=^KK?N15\)?7)""].;.7IUWS&UR=I5^>9H(I-H*`A3-R%>@WG"
^XMB(3.9,22,2,15367,0)="""DATA"",396.18,472,3,68,0)"
^XMB(3.9,22,2,15368,0)="M4=MBW""6SIT3C_&]'`C=4""-<0C43_0S1P0\6^#?6<^RZZ&F0Y15]W&OQ`F_?R"
^XMB(3.9,22,2,15369,0)="""DATA"",396.18,472,3,69,0)"
^XMB(3.9,22,2,15370,0)="M8;(A)K:@#G<TO8$4R\4UT`""*@L-$9:MIQT$T'""?:(7\O""$@CF1;Q.\1Y1TNA"
^XMB(3.9,22,2,15371,0)="""DATA"",396.18,472,3,70,0)"
^XMB(3.9,22,2,15372,0)="M""Z;#%H2YMFY:!0U-#Y,O(.PW7Z#DXH;>-`N3/S.SIE@F()E6]W""6D3#M%(`:"
^XMB(3.9,22,2,15373,0)="""DATA"",396.18,472,3,71,0)"
^XMB(3.9,22,2,15374,0)="M1-?M!Z""*'SCP1!'O0.:2O-XD"").+-;IE:)(A)-85*,D(\3A.*8+A,B?NWU""4"
^XMB(3.9,22,2,15375,0)="""DATA"",396.18,472,3,72,0)"
^XMB(3.9,22,2,15376,0)="M3_-#D>*)NG.S??G!/*%SCGXZY+$HZ4JRZPVQ&`IB03SDB!F%^%HT`,12*(.B"
^XMB(3.9,22,2,15377,0)="""DATA"",396.18,472,3,73,0)"
^XMB(3.9,22,2,15378,0)="M>""`($X$[,<4;%)]A!L7?^9I,Z:$S*`*""3+MRU?J@S!S1P&<^Q3-K/Y39X4(Y"
^XMB(3.9,22,2,15379,0)="""DATA"",396.18,472,3,74,0)"
^XMB(3.9,22,2,15380,0)="MUMLX+-XOXW""DRRJ`(A\4H:GI\=_SL:4N4;E-7F65BTU%4DU)=\RHH5E@G""GQ"
^XMB(3.9,22,2,15381,0)="""DATA"",396.18,472,3,75,0)"
^XMB(3.9,22,2,15382,0)="MBV2^Q!CB\SZP'KU)NA!V0$)*R4)>HCY,J+)4*?]'Q-59O^V'RMM9-0V[KL/7"
^XMB(3.9,22,2,15383,0)="""DATA"",396.18,472,3,76,0)"
^XMB(3.9,22,2,15384,0)="M5]D4CZK=6;_A%P%T=Q:%-!Q]Y5[FD.<7OSE+/GI$28*N4BD67,OJ&+EZ5>VW"
^XMB(3.9,22,2,15385,0)="""DATA"",396.18,472,3,77,0)"
^XMB(3.9,22,2,15386,0)="M3F6L0HU4IS/X]0-4<)QUR.U`_1JW&""S,\HFS6T`GR;U(HZJ[V,NIH!KP]/<3"
^XMB(3.9,22,2,15387,0)="""DATA"",396.18,472,3,78,0)"
^XMB(3.9,22,2,15388,0)="MV-(4=Q1P#_6JJ.V(NSJ03+)L0(&FB32;J2'M>6Z+K#7`;E$%5B'J?J>&$UM4"
^XMB(3.9,22,2,15389,0)="""DATA"",396.18,472,3,79,0)"
^XMB(3.9,22,2,15390,0)="M>!>;N`E=,Y`_=8I4R^YLP%T)+P46SB]+BBRI0%.=J7AVSVT\<^Y`=ZH57""SL"
^XMB(3.9,22,2,15391,0)="""DATA"",396.18,472,3,80,0)"
^XMB(3.9,22,2,15392,0)="MD.W[OF0+8^K/+2,6AY()V@AF4!&>.'<*9NEJ@7;)A8H&B%^H&IA<A$PXR(PH"
^XMB(3.9,22,2,15393,0)="""DATA"",396.18,472,3,81,0)"
^XMB(3.9,22,2,15394,0)="MLB""<MGL""U4`'#OM^-_3]_#V7%#OK)=H46.'2PT-%UQT<UR7D'LO0$)=TL(=Z"
^XMB(3.9,22,2,15395,0)="""DATA"",396.18,472,3,82,0)"
^XMB(3.9,22,2,15396,0)="M^)QSYQK<A28.Q=%;!Y-`WI,,:7XX[4V%,%-[9U:)?'B0""G.+U9J%%Y0XY!%."
^XMB(3.9,22,2,15397,0)="""DATA"",396.18,472,3,83,0)"
^XMB(3.9,22,2,15398,0)="M.T7D:6@[PI`/#]AB`81)',/4\60%DK#3M(U..L\MUCJ;N,!_#FN`/7_\FJV>"
^XMB(3.9,22,2,15399,0)="""DATA"",396.18,472,3,84,0)"
^XMB(3.9,22,2,15400,0)="M29`""F4\`BL)Q)HCMP@>?XL+R-:D*=<3U+8^XXFX*D^,R9ZLF1#N6R^++I1M$"
^XMB(3.9,22,2,15401,0)="""DATA"",396.18,472,3,85,0)"
^XMB(3.9,22,2,15402,0)="M!?JQ-KTSZVC+""LX2""N/83^V76*YEW`Y+O^7+TF%RJ.;IN@^QC-09$.?7<,*4"
^XMB(3.9,22,2,15403,0)="""DATA"",396.18,472,3,86,0)"
^XMB(3.9,22,2,15404,0)="M)JN@@7.EL/HO:PHBP8)PW*&J,P8(,PZ%*,G:!90-/>Q,'_2*$KV!]\1#(PX@"
^XMB(3.9,22,2,15405,0)="""DATA"",396.18,472,3,87,0)"
^XMB(3.9,22,2,15406,0)="M?]KL&D:53-RWB$HAPT_&R;WRI[.#^7"".F2AVV/*'%%DI4&9[,Q(`ZF"".W$4'"
^XMB(3.9,22,2,15407,0)="""DATA"",396.18,472,3,88,0)"
^XMB(3.9,22,2,15408,0)="MJLL0/J3E-P4:'OUZ-`#07*@04DH\W+S_8I*'Z&Q<T@5C/A3&],%@#)PN7DSS"
^XMB(3.9,22,2,15409,0)="""DATA"",396.18,472,3,89,0)"
^XMB(3.9,22,2,15410,0)="ML\B?\-I]7.`A6SRB0:1BBA?*?BB'++DE<#R0KJ5G[.J@?-T7Y9#E""`9>JL(6"
^XMB(3.9,22,2,15411,0)="""DATA"",396.18,472,3,90,0)"
^XMB(3.9,22,2,15412,0)="M]E.4%[V;LG`H<\DCNL""!;3+PIGO/)/_P=2XU7""@#KXTKNE)8WO$R+`]RR""+8"
^XMB(3.9,22,2,15413,0)="""DATA"",396.18,472,3,91,0)"
^XMB(3.9,22,2,15414,0)="M([VCGH7[%?6,^\90Z(XW;$)WKN\>%*6@.WU0)?(_D8`5%X-6[-I""IG^]A0$W"
^XMB(3.9,22,2,15415,0)="""DATA"",396.18,472,3,92,0)"
^XMB(3.9,22,2,15416,0)="MS:`$^<>H*R75&:KC7XDXO)0LA7%<9RIUH""+S<J4!5:#*0#B%^%$WQ54:[YFO"
^XMB(3.9,22,2,15417,0)="""DATA"",396.18,472,3,93,0)"
^XMB(3.9,22,2,15418,0)="MU)$+NB#,WFSBX(W*E3AN;+NDUE%RXGJKB9G2U<+YCA9R9EU<1=\$]`7A5+L9"
^XMB(3.9,22,2,15419,0)="""DATA"",396.18,472,3,94,0)"
^XMB(3.9,22,2,15420,0)="M5W&[+;[X&.<>B\*<QZ\5YK8DI;%/KU;8Y[8$;M;S=&'L-M>#80(PL\N2WD2P"
^XMB(3.9,22,2,15421,0)="""DATA"",396.18,472,3,95,0)"
^XMB(3.9,22,2,15422,0)="MF;.*O%.;/ES)#.D/KF""\;)%-'33]P>_3X!*9WO0(LU_!N!-&$::WD,M),C+("
^XMB(3.9,22,2,15423,0)="""DATA"",396.18,472,3,96,0)"
^XMB(3.9,22,2,15424,0)="MSA7""J=5V%!-O7(8IAQY[F(0BN7LV_8SW$JH=ZIQ]B?<P?Z'G""MU4F!6ZA4/V"
^XMB(3.9,22,2,15425,0)="""DATA"",396.18,472,3,97,0)"
^XMB(3.9,22,2,15426,0)="M*]TS]K_8$V`Z#,#BX<[7Y_@.C/]^S\6YV>01=40*[MGL/BA30S>;W<OBR=TO"
^XMB(3.9,22,2,15427,0)="""DATA"",396.18,472,3,98,0)"
^XMB(3.9,22,2,15428,0)="MBV?4?]8HY9<$Z+=)]CQUK3/M*5%GPL6LHX>99=%E>LH_""_#/>R3G99V6)'6`"
^XMB(3.9,22,2,15429,0)="""DATA"",396.18,472,3,99,0)"
^XMB(3.9,22,2,15430,0)="MADJ^68""O=E^SD\HY#34`WD>GLYF>85#:02==N5Q_X[3V\YRM'6:""9]K>\X<E"
^XMB(3.9,22,2,15431,0)="""DATA"",396.18,472,3,100,0)"
^XMB(3.9,22,2,15432,0)="M[`G39=""`#8#,#DG5+'J-*X6J9CR`C<6\!,C[)O3Y4R!,0M]X6=+1$(I3]Z9I"
^XMB(3.9,22,2,15433,0)="""DATA"",396.18,472,3,101,0)"
^XMB(3.9,22,2,15434,0)="MAC8CQLSSDH&O[11'],!Q6D#LK0;-]^/+\$,G*W90?54R9""@!O"".9!!Y\%B!U"
^XMB(3.9,22,2,15435,0)="""DATA"",396.18,472,3,102,0)"
^XMB(3.9,22,2,15436,0)="M9CJS1_T)%R9[=,8QAUD(W""F@(?!V@;TMG3""VAM>?*`>5&!IPS**QB/^.N'>4"
^XMB(3.9,22,2,15437,0)="""DATA"",396.18,472,3,103,0)"
^XMB(3.9,22,2,15438,0)="M\!V5<^%2!;.'G$='9^MC4T$@AHN!9@XY&Y*=-O-:Q\8@/_#%&""X=,B<>;K)@"
^XMB(3.9,22,2,15439,0)="""DATA"",396.18,472,3,104,0)"
^XMB(3.9,22,2,15440,0)="ML>ABU3_H&0+-)X]H'AT=4BFS]@:9*QU1(S*7<;%KGZY,#6.RX#+>)1.-++,,"
^XMB(3.9,22,2,15441,0)="""DATA"",396.18,472,3,105,0)"
^XMB(3.9,22,2,15442,0)="M(+VF%M&W7<$G;B7E*>>\GVPIZQI8.#.A\RO.(`)8""KHEKMEK)O"",[*+>0-Z_"
^XMB(3.9,22,2,15443,0)="""DATA"",396.18,472,3,106,0)"
^XMB(3.9,22,2,15444,0)="MI@-);Y""""Z^B7<&Q5T^R$G0VP*XQ6L'4E3&W9*R[LMX5INNH*65_;DJ((0IFL"
^XMB(3.9,22,2,15445,0)="""DATA"",396.18,472,3,107,0)"
^XMB(3.9,22,2,15446,0)="M?10F;[674Z-Q#9#=X@-N94=QJU'^N*M8M7,Y=2J9*0PVBDR7\5$XR%$G=F.K"
^XMB(3.9,22,2,15447,0)="""DATA"",396.18,472,3,108,0)"
^XMB(3.9,22,2,15448,0)="MW6>=1!J]A5L2R'>X=6B/+>_IT-`B7_VTYX2RC[X;MKR/^^?\I:D^?3WB.C!."
^XMB(3.9,22,2,15449,0)="""DATA"",396.18,472,3,109,0)"
^XMB(3.9,22,2,15450,0)="M\>YX/\-VO""_+DCYO+`S;+O<9ZEB=(]KDBTR;_)*/&W+>.9D,[VO?$N]J%A(5"
^XMB(3.9,22,2,15451,0)="""DATA"",396.18,472,3,110,0)"
^XMB(3.9,22,2,15452,0)="M`^&ZZNB`;JW0,?9""U-6,;])?NY5[T!RHD0P')7;9D_K7;N/I,GS)5@0U8$I0"
^XMB(3.9,22,2,15453,0)="""DATA"",396.18,472,3,111,0)"
^XMB(3.9,22,2,15454,0)="MP:F8I%5R&PL,D.2ZW6K?PSTRU`S\ECVV_E.DQPKP1[8LH\X=$K"""";7UQ!3>&"
^XMB(3.9,22,2,15455,0)="""DATA"",396.18,472,3,112,0)"
^XMB(3.9,22,2,15456,0)="M^6-H<EKI&ICXI^S^6F,;S=_Q'N<RT-$'`8X+8;E--C4W6<N/L)9/=!R""\.!I"
^XMB(3.9,22,2,15457,0)="""DATA"",396.18,472,3,113,0)"
^XMB(3.9,22,2,15458,0)="MUM7+X+(-)\(=R$!GJE^QP:]'A_E`O[%P$""EG/1;M""Y$>87""8&!-],`8<X%/\"
^XMB(3.9,22,2,15459,0)="""DATA"",396.18,472,3,114,0)"
^XMB(3.9,22,2,15460,0)="MP1ZQ#U(%\1<>BPUGUPYFEUY>-XB:0C*';#-\1A`2.*0Q@:ZT\,EP)C'HGNL^"
^XMB(3.9,22,2,15461,0)="""DATA"",396.18,472,3,115,0)"
^XMB(3.9,22,2,15462,0)="M\N_'%&5]27$]X5E\(7*6RV#.X<AM%9K=OUI85^4Z^O#)9009-@#2HH;;;O$>"
^XMB(3.9,22,2,15463,0)="""DATA"",396.18,472,3,116,0)"
^XMB(3.9,22,2,15464,0)="M$\)6BM@CW8^8FOYWYQ""F;>YK,T?@G)#`$^U,I])^,BCR+SO]]#B'?+""LM,<8"
^XMB(3.9,22,2,15465,0)="""DATA"",396.18,472,3,117,0)"
^XMB(3.9,22,2,15466,0)="M_S4EJ.Y89""$OB?_H1/-KEEP?C/GB@4'1Z;'CKDV_7H_X6<V#>4'SBSK`@Q;Z"
^XMB(3.9,22,2,15467,0)="""DATA"",396.18,472,3,118,0)"
^XMB(3.9,22,2,15468,0)="M;0#D_N""L==OBP18#L4HP9&,P8"".^/%GB398\!?$O#H@2Y_&4CL;1-3[G\R1Y"
^XMB(3.9,22,2,15469,0)="""DATA"",396.18,472,3,119,0)"
^XMB(3.9,22,2,15470,0)="MP7LEXD'Y!(>RX%AY1P#NJ""_<E,O6[8.W>)3P""KW<0=>>GN<8:,<=_/2[P1WL"
^XMB(3.9,22,2,15471,0)="""DATA"",396.18,472,3,120,0)"
^XMB(3.9,22,2,15472,0)="ML@B1[O@2_Z'[P.J?\CFR]@KS!U<MG813KA$/A$RG$S^`SHYM8[_G$)U%?^LM"
^XMB(3.9,22,2,15473,0)="""DATA"",396.18,472,3,121,0)"
^XMB(3.9,22,2,15474,0)="M3><""'K=YNQ[M/.+\9-<CRN*AS$7JT\4G[0:KGA.O'NIZ1-E^#KRBO#SC.O#J"
^XMB(3.9,22,2,15475,0)="""DATA"",396.18,472,3,122,0)"
^XMB(3.9,22,2,15476,0)="M6PXOOR\ZT(%7GXS=EP.OZ+9[\56;%B=9[J/H<_+HAQPO6C(,C:R\JHE53057"
^XMB(3.9,22,2,15477,0)="""DATA"",396.18,472,3,123,0)"
^XMB(3.9,22,2,15478,0)="M1$2#/?3?GF38R\;HB(W\7A(E@B3G2E8L<K*PB=>PD;,G=?`1""^)$+$=A]?6,"
^XMB(3.9,22,2,15479,0)="""DATA"",396.18,472,3,124,0)"
^XMB(3.9,22,2,15480,0)="MV<[I_VF+!:!]M^5S0E>EU<3[SV(I:.!C=Y`""Z./MLT4POQ)U50Z]E9]Q:&$'"
^XMB(3.9,22,2,15481,0)="""DATA"",396.18,472,3,125,0)"
^XMB(3.9,22,2,15482,0)="M,&D#?>,)=,HT_JK]^>^G+3SA;6'L>:`@(INMOE722<@/1UU5BMXJT1\*^F2]"
^XMB(3.9,22,2,15483,0)="""DATA"",396.18,472,3,126,0)"
^XMB(3.9,22,2,15484,0)="M;XU4(H68J\9M'QK?L!JH0H[$AK=RUQ0UB_`)KB#7KK?JTWC>C,O8L\]8&YXE"
^XMB(3.9,22,2,15485,0)="""DATA"",396.18,472,3,127,0)"
^XMB(3.9,22,2,15486,0)="MNC1F3H%05HG_CM^ZXPY>`:A4T79;F&HD%.7#-5.N1$>[._[-]N""_Q_3591^F"
^XMB(3.9,22,2,15487,0)="""DATA"",396.18,472,3,128,0)"
^XMB(3.9,22,2,15488,0)="M*:,A4/=E&G<OT%CCRU%WE6EOE>.K6$J!*O>MDX:<S\3<=<[[?.8UO%D/^JM/"
^XMB(3.9,22,2,15489,0)="""DATA"",396.18,472,3,129,0)"
^XMB(3.9,22,2,15490,0)="ME6RSF'%2XT^8<GK<YXS;Q>TZ7AAK6]EB4P?V9LKX<'9B8DN*`O:@?;TCX7E?"
^XMB(3.9,22,2,15491,0)="""DATA"",396.18,472,3,130,0)"
^XMB(3.9,22,2,15492,0)="M@YSGOH/4%7B/U426=^]O*:3X;RG1HP'C3\>\W_(RF:\VKXAP!Y^R?$5LHE[?"
^XMB(3.9,22,2,15493,0)="""DATA"",396.18,472,3,131,0)"
^XMB(3.9,22,2,15494,0)="MPPZEI%[!WT<.7K84$[$U#FQ!_):DB/B$:E-BX<*&9O^E4[;9H4?.HP=A`[E&"
^XMB(3.9,22,2,15495,0)="""DATA"",396.18,472,3,132,0)"
^XMB(3.9,22,2,15496,0)="M.E&A-4LG.A6!9E`&T:84%""2@?HUU6<LGA[:#B8U6HVEJ#>/J_;(U[]LR<[KS"
^XMB(3.9,22,2,15497,0)="""DATA"",396.18,472,3,133,0)"
^XMB(3.9,22,2,15498,0)="M!5VN76&8GO=BFENV=!+?<,!T(U.)D_7XG[%(\T>]55Y<5U%OXC0:9Y!#?4QZ"
^XMB(3.9,22,2,15499,0)="""DATA"",396.18,472,3,134,0)"
^XMB(3.9,22,2,15500,0)="M!P*EUG=\H!Q/AS>GJ?BG_/3*!IGUM>=B[%;K>-M,$VGYE[J(5T=KKO$N_A76"
^XMB(3.9,22,2,15501,0)="""DATA"",396.18,472,3,135,0)"
^XMB(3.9,22,2,15502,0)="MVJS/Z+]=@0U`1$8'IJ63R;N:9;8P@Q+&Q0%O>EW#O$Y.6\<<;&+))+=D/&M&"
^XMB(3.9,22,2,15503,0)="""DATA"",396.18,472,3,136,0)"
^XMB(3.9,22,2,15504,0)="MSMJNDB.XK0:H^3*KCU>;<ADJ2:8+?B[J""3@4L_DCY?%-]T[93;D,'A:4^)S#"
^XMB(3.9,22,2,15505,0)="""DATA"",396.18,472,3,137,0)"
^XMB(3.9,22,2,15506,0)="M$$4.=]OS&RAG1EBRD'I$=93K0%'0*%)'W8#\+V&4[""UQ,`DQ/GV<=IE?#.KY"
^XMB(3.9,22,2,15507,0)="""DATA"",396.18,472,3,138,0)"
^XMB(3.9,22,2,15508,0)="MJ`_40N8H=7&BUQ2UVR3<I*A_RV^*.E]R4'>9JXYW]NW4=9S/MT>-2>'8AG:W"
^XMB(3.9,22,2,15509,0)="""DATA"",396.18,472,3,139,0)"
^XMB(3.9,22,2,15510,0)="M?96XK=Y1M;MJSRGT@LN^[/E]A62_[QOQ?-^&I.\""4;9-4V&JW$!#M7,9Z`.+"
^XMB(3.9,22,2,15511,0)="""DATA"",396.18,472,3,140,0)"
^XMB(3.9,22,2,15512,0)="M_T_>U<?(=5WU^5C/[OHSZ[6=Q/EZ63N-MUG;,^_-I^N2V-YU[,B.E]UU')04"
^XMB(3.9,22,2,15513,0)="""DATA"",396.18,472,3,141,0)"
^XMB(3.9,22,2,15514,0)="M>)YYN_OP?#%O9M<3A7ZD):IH1`.ED+8*Z1<I((HJH52T5,`?@4HM12!2D$AH"
^XMB(3.9,22,2,15515,0)="""DATA"",396.18,472,3,142,0)"
^XMB(3.9,22,2,15516,0)="M!:BTJ%0!H:*H5(C[<>Z=>]^[;^8]V_+.VUJM\O9Y?>\]YYU[[KGG_,XYDKEZ"
^XMB(3.9,22,2,15517,0)="""DATA"",396.18,472,3,143,0)"
^XMB(3.9,22,2,15518,0)="MKN\"",X,6N,6S.:C+(#5&-D$3/0F+4@AQ6K0+]\)B/I'P-,E#BRE&P_T6$(D,"
^XMB(3.9,22,2,15519,0)="""DATA"",396.18,472,3,144,0)"
^XMB(3.9,22,2,15520,0)="M:%#Z%8X#X9_Q=L\KYD+6#ML])UC,+MB!1]Y'S].+"".BNU,A)9+`,\N-G)6.>"
^XMB(3.9,22,2,15521,0)="""DATA"",396.18,472,3,145,0)"
^XMB(3.9,22,2,15522,0)="M*9XW%#HV)XAX!+Y>X+@+1)SIUTO>RH[7DW%/W`5IH7!QEP<O6=SY?0V>@W`N"
^XMB(3.9,22,2,15523,0)="""DATA"",396.18,472,3,146,0)"
^XMB(3.9,22,2,15524,0)="M\<!9GPRD0`G^'V;Z?"">F(#BDO#YPR72(S4>!!B9Z1C.NK!Y&%Y'#\`QR'(ZX"
^XMB(3.9,22,2,15525,0)="""DATA"",396.18,472,3,147,0)"
^XMB(3.9,22,2,15526,0)="MP'GFS,7UCKA,W?<]I8$Q=>$`0&F9.C`]JUWTM(SL`_QE+60F6MJJA91X?24<"
^XMB(3.9,22,2,15527,0)="""DATA"",396.18,472,3,148,0)"
^XMB(3.9,22,2,15528,0)="MB8%[KQFBNDE^@PGLMY44A@M`'>T%:_CUD-S(J!N5?CELO]J5CED-*:#[Q)-L"
^XMB(3.9,22,2,15529,0)="""DATA"",396.18,472,3,149,0)"
^XMB(3.9,22,2,15530,0)="MPG62,0<47/5?9U1]R'.6X0RM@8?MK1YP]'F[6D$G60/]+=J$Z&S#_@(KUG=-"
^XMB(3.9,22,2,15531,0)="""DATA"",396.18,472,3,150,0)"
^XMB(3.9,22,2,15532,0)="M8)6].QY@3<7BH#7=YCE?+UG6E6H7:7FTE*ZFXXN%H:VCETYJDK[+X'<ZNA'7"
^XMB(3.9,22,2,15533,0)="""DATA"",396.18,472,3,151,0)"
^XMB(3.9,22,2,15534,0)="MVZO\I8%?9ETO<_AEGKW<=J%>1CI'ZUIF""W<F=[#@FG7R<[7;UZ;(2\Z,`407"
^XMB(3.9,22,2,15535,0)="""DATA"",396.18,472,3,152,0)"
^XMB(3.9,22,2,15536,0)="M!A%]NP<<=P;I>[1`H*QB=M$/A*(""_6$[_`WEP]Z35AL]U=$+[,S(PNN)\PTB"
^XMB(3.9,22,2,15537,0)="""DATA"",396.18,472,3,153,0)"
^XMB(3.9,22,2,15538,0)="MJ8@DD]*L-$G8]96Z+D:8Z^+CW""8Q!%JB$!+<SZC<+E""9%XD\XR7R'<+.R42`"
^XMB(3.9,22,2,15539,0)="""DATA"",396.18,472,3,154,0)"
^XMB(3.9,22,2,15540,0)="MR#L""=Z$47:K)%>;P>-P;M=9#PK""WS)MV75!O-\?%XZM$U?&SP!40F#>Q)?$I"
^XMB(3.9,22,2,15541,0)="""DATA"",396.18,472,3,155,0)"
^XMB(3.9,22,2,15542,0)="M^:PBO*_GPM67N776*K<LTT&'7[F!_@VX/H:==8'[1C)_\>ZX+&,-%>M""]HP^"
^XMB(3.9,22,2,15543,0)="""DATA"",396.18,472,3,156,0)"
^XMB(3.9,22,2,15544,0)="M6V>L6T9,6S$OVU5T-1UVUDT$9AVXQ5]PL>ZB:GN&`Y6,7[+,*TC%.,/.K-V!"
^XMB(3.9,22,2,15545,0)="""DATA"",396.18,472,3,157,0)"
^XMB(3.9,22,2,15546,0)="MF06^D#L20?9H.+OUMHO(&&BUD49K=ZE_?<W""#MIA9]YD8.;EQ7/@.0\*\GZ!"
^XMB(3.9,22,2,15547,0)="""DATA"",396.18,472,3,158,0)"
^XMB(3.9,22,2,15548,0)="M=>%2CG9>$'W^P\ZP/2H;2""^)D8X7F&#EN7EP5+@NE*)TQ=^K)%=RI2:_%O/X"
^XMB(3.9,22,2,15549,0)="""DATA"",396.18,472,3,159,0)"
^XMB(3.9,22,2,15550,0)="M4@_V,GI*F2C1NU5)KR'%3?XLYG&3'Q;HU:-$KS(<PIKXIF1RWU""2&RE7.4[G"
^XMB(3.9,22,2,15551,0)="""DATA"",396.18,472,3,160,0)"
^XMB(3.9,22,2,15552,0)="M\@$*Y<6<IKZX'8!Y""UZ_`<`=?P@:5+/K$,_@$>!SG,-V_C86%()&%YL8?D"":"
^XMB(3.9,22,2,15553,0)="""DATA"",396.18,472,3,161,0)"
^XMB(3.9,22,2,15554,0)="MNEH""-(=+_HF4GI3\8,R+1]O#\&AGZ[0,.7KI;'R2DDP.7)K>)L',_YBKQ_LY"
^XMB(3.9,22,2,15555,0)="""DATA"",396.18,472,3,162,0)"
^XMB(3.9,22,2,15556,0)="M-6_2N)=VF8B--G6R8U<KVGRK@794;0K?TK']VL9^ABJ&K""#3HDG_TM'*5=.N"
^XMB(3.9,22,2,15557,0)="""DATA"",396.18,472,3,163,0)"
^XMB(3.9,22,2,15558,0)="M(<NVT=+L""H:5+]LD3,IC]M95D\5)#SG31[2E5=MA_YP.MVY7<5$&=/?'P*LU"
^XMB(3.9,22,2,15559,0)="""DATA"",396.18,472,3,164,0)"
^XMB(3.9,22,2,15560,0)="MTZ[BK<RBRE.SC7*'A)GY@M9)I&U&,]%`9JO-ZNU,P2^@8?#D+$GIV)3F$/IP"
^XMB(3.9,22,2,15561,0)="""DATA"",396.18,472,3,165,0)"
^XMB(3.9,22,2,15562,0)="MI!9/>$0!&I`Y5Q0Y=Y$5W%=@,BX""YQ2+1%RS2)Y2Q6R;6LM:,5L$&\8YUT+_"
^XMB(3.9,22,2,15563,0)="""DATA"",396.18,472,3,166,0)"
^XMB(3.9,22,2,15564,0)="M=,VDN0>,45J[V[0&KZ\DKJ\.ZUM3K.\<6]^""M69;ZQI;)OD<9(WD-?:X8%3-"
^XMB(3.9,22,2,15565,0)="""DATA"",396.18,472,3,167,0)"
^XMB(3.9,22,2,15566,0)="M<E<SR^5.RRP3^]$A*H:$O1$-1]2+R17%MK8@9HEQ[UH2&;\12N((%_N,H/N,"
^XMB(3.9,22,2,15567,0)="""DATA"",396.18,472,3,168,0)"
^XMB(3.9,22,2,15568,0)="MD)<:^=;[C&`<\<5,0A3Z[^GY^I&86_=JOIC)6`C5NT-4O7#G_"")5.%OA0QYG"
^XMB(3.9,22,2,15569,0)="""DATA"",396.18,472,3,169,0)"
^XMB(3.9,22,2,15570,0)="M'S+YT<V`_DTI$5]@R2\2RL>!\@\H5.TD4[6/8=B'MFBO#)VF92F4MXDM9A/'"
^XMB(3.9,22,2,15571,0)="""DATA"",396.18,472,3,170,0)"
^XMB(3.9,22,2,15572,0)="MO>*W;<FJ-;%?NH,]TLH:A5EQJ+,PU'[O4%OF.U7';Y""B.`C;#A>\@]PBI%]K"
^XMB(3.9,22,2,15573,0)="""DATA"",396.18,472,3,171,0)"
^XMB(3.9,22,2,15574,0)="M""TC#^XQ7$L9+?HOMC""GO@*E+Y(W//H==ZI!AOLV&.:@89AX'7GQ*`.4RXFK>"
^XMB(3.9,22,2,15575,0)="""DATA"",396.18,472,3,172,0)"
^XMB(3.9,22,2,15576,0)="M8L,\XAUF!UV-A@2EOF(-""WH+*F<D]I/U[XI[9/\$)Z`-!)PCE060Y)3Q$8-!"
^XMB(3.9,22,2,15577,0)="""DATA"",396.18,472,3,173,0)"
^XMB(3.9,22,2,15578,0)="ME?0]J3A`JPT@)8VT^643'77(.)W6#IEHVYLK%OM5.$UU$AEP""'S0(N<1,EPL"
^XMB(3.9,22,2,15579,0)="""DATA"",396.18,472,3,174,0)"
^XMB(3.9,22,2,15580,0)="M,F8%J1/TSZ<W$.XVZ.!C51Q>C@7GW<,F(EW!NQ635VKXR>!=3MPV+[%M\[!W"
^XMB(3.9,22,2,15581,0)="""DATA"",396.18,472,3,175,0)"
^XMB(3.9,22,2,15582,0)="MV^P\66TT*C0_V5=1Y<!8_G7Z*5YDXVWQCA<_ZC.$J.OX#2]QCT(?T#=#LX,!"
^XMB(3.9,22,2,15583,0)="""DATA"",396.18,472,3,176,0)"
^XMB(3.9,22,2,15584,0)="M+_1KH6B7CK^<J`K_/.:/:(><33^KA<%;GR(#U3P7QMM]C99!N=9;EN8J=IN%"
^XMB(3.9,22,2,15585,0)="""DATA"",396.18,472,3,177,0)"
^XMB(3.9,22,2,15586,0)="MG_!S03Q5#-AZ?^C%(!4RN9PKN<T]E'1`7?(?*E/(9ES`%OS/=PA#9=+B6+_4"
^XMB(3.9,22,2,15587,0)="""DATA"",396.18,472,3,178,0)"
^XMB(3.9,22,2,15588,0)="M9ZQB-B_!1A1C`3<?HB%1SPDEDJCWK?^_3PT@HL.OD.'_@[DTON`.Z(_D]71`"
^XMB(3.9,22,2,15589,0)="""DATA"",396.18,472,3,179,0)"
^XMB(3.9,22,2,15590,0)="M/SG#""&V,FY)6(AO!QU-J!""M:OX3P?G%H0SP.&9@Y^<M*N<H.""D-[RNF,'-<R"
^XMB(3.9,22,2,15591,0)="""DATA"",396.18,472,3,180,0)"
^XMB(3.9,22,2,15592,0)="M:73W0/_7T?^-=&IK-HUOJ[6&""Q7@7A<4J/C=6)""%&8,6-AYV80KI!$Y=)@OZ"
^XMB(3.9,22,2,15593,0)="""DATA"",396.18,472,3,181,0)"
^XMB(3.9,22,2,15594,0)="M1,R=?2!(NI&5<H,58P%UOQT+,)CARL?U#*:+V^8K?MMFI&!D#+DTIG`QFA0O"
^XMB(3.9,22,2,15595,0)="""DATA"",396.18,472,3,182,0)"
^XMB(3.9,22,2,15596,0)="M1KDT_@.[\6FI5,ZK_':4VPRWHU%V/$S*IC+^`T?L!^CU,`4,^`O%)6G_>>CO"
^XMB(3.9,22,2,15597,0)="""DATA"",396.18,472,3,183,0)"
^XMB(3.9,22,2,15598,0)="MI\%%']DD""U89$7^]=Z7_NOZ[TFXW94Q>:*+@LG\.VAZT%[&[PD&6EM:B]!R["
^XMB(3.9,22,2,15599,0)="""DATA"",396.18,472,3,184,0)"
^XMB(3.9,22,2,15600,0)="M@1[>P%8`E?D)0>;)%P(Z;B5R_[V8.[>$`VCT8BFMV$.>\<""\G:'NWW_M.V!&"
^XMB(3.9,22,2,15601,0)="""DATA"",396.18,472,3,185,0)"
^XMB(3.9,22,2,15602,0)="MVDG,.M@C60=4C&""K?XEN]>UQM^7GGPR:'&@C8$_];L%K+VU<^GT[(+>?YAOW"
^XMB(3.9,22,2,15603,0)="""DATA"",396.18,472,3,186,0)"
^XMB(3.9,22,2,15604,0)="M0S&N7/+%3#0QIG>JR\RE!;&@4-L[@/S7O&W&]'S(7AL[3VFG[:H%F_R8^T@9"
^XMB(3.9,22,2,15605,0)="""DATA"",396.18,472,3,187,0)"
^XMB(3.9,22,2,15606,0)="MH^^M2FKOHPV:>VHY!*[8U1X[L7`A=6#!_0K[?$FZ""O>[QOH""H_N1#=+[+[&!"
^XMB(3.9,22,2,15607,0)="""DATA"",396.18,472,3,188,0)"
^XMB(3.9,22,2,15608,0)="M=!=#`C+WX>;NZ(N`3KM9],?[14T@CO^;LN_N?5S(7]H,I].8N@@SF-P/$M(G"
^XMB(3.9,22,2,15609,0)="""DATA"",396.18,472,3,189,0)"
^XMB(3.9,22,2,15610,0)="M@?0?*<ZE*>:\>]1J-*NF4X-L97R=AL37(?/E00@N<9C0]K-`VWL5R6EWSMKF"
^XMB(3.9,22,2,15611,0)="""DATA"",396.18,472,3,190,0)"
^XMB(3.9,22,2,15612,0)="M2AUW&\44:>U.#3>0L*Z:Y?:T7S^/HC`XNCYZW!>]T>^8Q0$7XEI@LQRJU8YV"
^XMB(3.9,22,2,15613,0)="""DATA"",396.18,472,3,191,0)"
^XMB(3.9,22,2,15614,0)="MT9]IG\%+XN!?\<*]>X-G<.(X[;)70=/0C@4\G>]0+Y$=W?]7K%;7CQ[639U."
^XMB(3.9,22,2,15615,0)="""DATA"",396.18,472,3,192,0)"
^XMB(3.9,22,2,15616,0)="MF8O[IZKOHOB*,ISG?N.!""GF='E7_RP[`56^RGL;X@Z2J+2Z>,:E?BJCLW2R("
^XMB(3.9,22,2,15617,0)="""DATA"",396.18,472,3,193,0)"
^XMB(3.9,22,2,15618,0)="M1+`YA>2:WJ3'YO#7)3SC4YOU-CI;B'2C4T-<2:4RH]5J,YK_<GR*?4&&Y`N4"
^XMB(3.9,22,2,15619,0)="""DATA"",396.18,472,3,194,0)"
^XMB(3.9,22,2,15620,0)="M""T^%N-2'K;REOJ;""%C@@!81_Z`F\HPMU6(`2`];3S5(SJ_9*W10!2DD_)$PO"
^XMB(3.9,22,2,15621,0)="""DATA"",396.18,472,3,195,0)"
^XMB(3.9,22,2,15622,0)="M)6E`W1QV2Z(;N`JKGU8E4>9R$;`]XBK_B;3OF""]/(%+(!\NYG1X>H$5:'.SK"
^XMB(3.9,22,2,15623,0)="""DATA"",396.18,472,3,196,0)"
^XMB(3.9,22,2,15624,0)="MWL$>$/)BTA'@6%+%,5TD\HZXGV6-&=8#^""ML=G%,T%9OQ`(,6E(,JBR$E)%6"
^XMB(3.9,22,2,15625,0)="""DATA"",396.18,472,3,197,0)"
^XMB(3.9,22,2,15626,0)="M.AOW?(ZT,&HVZN6/0)""/2XB+48X]^=AF,*+&U<4D8-O-$])'@/1%1?&C-#.B"
^XMB(3.9,22,2,15627,0)="""DATA"",396.18,472,3,198,0)"
^XMB(3.9,22,2,15628,0)="MSLBY[]I1W#P7G\_8;31K76[9%8+WW/@KOTPI?.2C8KFV1-EK).QE!-+V[XTR"
^XMB(3.9,22,2,15629,0)="""DATA"",396.18,472,3,199,0)"
^XMB(3.9,22,2,15630,0)="M(=-G4%T<].>!?5L5&(@\MA2.H<.F.T,S2,CH.)2#JU>0,P7SSVPV6XVK=@V?"
^XMB(3.9,22,2,15631,0)="""DATA"",396.18,472,3,200,0)"
^XMB(3.9,22,2,15632,0)="M[17?4""CXS>BTZ""(+Q#RMJ/N[8)D.K6Z!01T43T&^EH_QP[HQ48KVL>Q21:$"""
^XMB(3.9,22,2,15633,0)="""DATA"",396.18,472,3,201,0)"
^XMB(3.9,22,2,15634,0)="MYS0:E-3:1?L!5^%8Q@@:B%)1@NSZ<J-5(_R;`1S*%!R@4Z3$@?`+Y/Y#_QGF"
^XMB(3.9,22,2,15635,0)="""DATA"",396.18,472,3,202,0)"
^XMB(3.9,22,2,15636,0)="M3!,7V\4C4?@'H((&65'LV*6,^2X[19**#U*$LK:8)3@3VE72@=JEE%>XK!)'"
^XMB(3.9,22,2,15637,0)="""DATA"",396.18,472,3,203,0)"
^XMB(3.9,22,2,15638,0)="MH?C5KL@;4N&$5V,WK>PN%,=,?HN>`,T;:*EY3QM1\A*G@;\E[Y&/L[44-I*8"
^XMB(3.9,22,2,15639,0)="""DATA"",396.18,472,3,204,0)"
^XMB(3.9,22,2,15640,0)="M2""3MG5J_H4IZ--PSBG,T+PKDQYA`?C+N*1^;,7+Y""%`YXHL:!23T]Z@4_A63"
^XMB(3.9,22,2,15641,0)="""DATA"",396.18,472,3,205,0)"
^XMB(3.9,22,2,15642,0)="M__L5J!%7>;G4-9678U!DFB^9..4O]<QH#PY3]9DQ*\UX)<R,P9R8DN@41-'Y"
^XMB(3.9,22,2,15643,0)="""DATA"",396.18,472,3,206,0)"
^XMB(3.9,22,2,15644,0)="MH5=TVH()EHD&XM@G?&Q(""NS5F#]C/8#C+=>*>@/NKDN&SSBW^3ZU&6R^K6J@"
^XMB(3.9,22,2,15645,0)="""DATA"",396.18,472,3,207,0)"
^XMB(3.9,22,2,15646,0)="M&(CQ<]1I..IQT?2,/HT9?0S4NMBTRO:R7=;.V`[&:PU;2P3`8""+CG8C2A_M5"
^XMB(3.9,22,2,15647,0)="""DATA"",396.18,472,3,208,0)"
^XMB(3.9,22,2,15648,0)="MI3ITHE(AIZU#3]IIOS$!DWF<GNSMFU=0GZ4#0K;%TVSF`X-UZK65[&1)=##A"
^XMB(3.9,22,2,15649,0)="""DATA"",396.18,472,3,209,0)"
^XMB(3.9,22,2,15650,0)="MU7B(G7B-.A68^_S@&3>^;/[UE""4%:V>,[+F[8,^]Q1WU\^'*DCY^K65)94V0"
^XMB(3.9,22,2,15651,0)="""DATA"",396.18,472,3,210,0)"
^XMB(3.9,22,2,15652,0)="M$^MP/^*6:Z%(I!K4/BQ0**,@TK$&S'U%<6GYZ!*#N>/*@;B]I&,CPF:@A\AE"
^XMB(3.9,22,2,15653,0)="""DATA"",396.18,472,3,211,0)"
^XMB(3.9,22,2,15654,0)="M6M:P;+?*G9K3-NME<%""SPF\ULVXO6TX;[@@01`#@'4D_H$4K<,5#?)W36C02"
^XMB(3.9,22,2,15655,0)="""DATA"",396.18,472,3,212,0)"
^XMB(3.9,22,2,15656,0)="M3F#UZ&JWAIOZV/@FM(;+R%$E>F3X<'KL3O%_,4DT'E+`6YD+G,`0-R(LKG2G"
^XMB(3.9,22,2,15657,0)="""DATA"",396.18,472,3,213,0)"
^XMB(3.9,22,2,15658,0)="MIP6)2'X_YL[1%$JK8FL'?3O'QC4L;@01-TRL6;4D2L17KSNP`17KDR_%9`CU"
^XMB(3.9,22,2,15659,0)="""DATA"",396.18,472,3,214,0)"
^XMB(3.9,22,2,15660,0)="M5>\^N8^5;.21!%K&LXWS9LJ-.JVE.7QR""P7<@67/Q#VM!7H\.\PK;>*N:)JU"
^XMB(3.9,22,2,15661,0)="""DATA"",396.18,472,3,215,0)"
^XMB(3.9,22,2,15662,0)="MC*OJ(""I;C9I6=E-_+'@@1]2IR3DO8$N,W;$5>.9S@D^8SXF!_H-]4U^&IG:H"
^XMB(3.9,22,2,15663,0)="""DATA"",396.18,472,3,216,0)"
^XMB(3.9,22,2,15664,0)="MF$*=>+)OLLW0K+DH-;E_LF]^ST8LVNNL*4E*_'$0Q:][L8-I/9U6>#)$;XUX"
^XMB(3.9,22,2,15665,0)="""DATA"",396.18,472,3,217,0)"
^XMB(3.9,22,2,15666,0)="MQ/*\I.27^!D[UQLK4XA&?&9L""4I_<GN?_JB+I/Z(D?H,9]MI@=1P37-3BVV\"
^XMB(3.9,22,2,15667,0)="""DATA"",396.18,472,3,218,0)"
^XMB(3.9,22,2,15668,0)="MJ5.3R)Y:P1<%&UTK<3<VQ*?4^-D:MA""LBI;:3YL+8X<CT@KK1Y$90>I^H^.)"
^XMB(3.9,22,2,15669,0)="""DATA"",396.18,472,3,219,0)"
^XMB(3.9,22,2,15670,0)="MU0J57#)^E!B2PF>D)-ZM^&AZ\1K:_XX"")""8UAF,`Y&G+A:6C\TO*BJ;7T!;4"
^XMB(3.9,22,2,15671,0)="""DATA"",396.18,472,3,220,0)"
^XMB(3.9,22,2,15672,0)="MD%M.<2_(*]Z&'&G=""(=C.K@X6.]?8Z_,E-*A(YU-""^QD^'+<$])&?TK1J+;J"
^XMB(3.9,22,2,15673,0)="""DATA"",396.18,472,3,221,0)"
^XMB(3.9,22,2,15674,0)="MU1,2D<_W(S)=*D4L89Y=87=*5]BB>/E@S5/>'_-F.$]@G<Q=*7B+;N1E=E""^"
^XMB(3.9,22,2,15675,0)="""DATA"",396.18,472,3,222,0)"
^XMB(3.9,22,2,15676,0)="MJ#\F7?S$_4Z5?#97\@&BQ]V;*.9;CL""06F?T9?!V,1$^3)*)6XC%3YI\S2O$"
^XMB(3.9,22,2,15677,0)="""DATA"",396.18,472,3,223,0)"
^XMB(3.9,22,2,15678,0)="M5X43P-C""O]""E5;MM1:/4A;]C-""]Y!V>`]@SW5,0W@V=TFS(?""NY;AH0#^*K"""
^XMB(3.9,22,2,15679,0)="""DATA"",396.18,472,3,224,0)"
^XMB(3.9,22,2,15680,0)="M+WHG#X;3&SR^_RZUS$[-O/XVL3<@\""T1!1&[O1(>]O.*Z\A]&(\WPR/>')C'"
^XMB(3.9,22,2,15681,0)="""DATA"",396.18,472,3,225,0)"
^XMB(3.9,22,2,15682,0)="MT)*$O@UI#.+C.I0R>?\A-LR>PWCX\$]1_&Z'W9'LY`LQ`1""E1Z/`M:_.@8TW"
^XMB(3.9,22,2,15683,0)="""DATA"",396.18,472,3,226,0)"
^XMB(3.9,22,2,15684,0)="M(K7@^@$/QOS.9E`YV]5(7PC&[(M+Z37O52B="":9T..1WXS6-JU</7#C_AEKK"
^XMB(3.9,22,2,15685,0)="""DATA"",396.18,472,3,227,0)"
^XMB(3.9,22,2,15686,0)="M[[F)D1(XM?)TYF?9S`^PF2=N=*0$LF^[<<G3=$,C);*9""5#__8,GO)'=U#*B"
^XMB(3.9,22,2,15687,0)="""DATA"",396.18,472,3,228,0)"
^XMB(3.9,22,2,15688,0)="MHX9U4WN#[\PGX\KPQ.=O2'A""SXD=9IYE=[_[%&B>!\&JQF<5N<EAZ8'4""^RX"
^XMB(3.9,22,2,15689,0)="""DATA"",396.18,472,3,229,0)"
^XMB(3.9,22,2,15690,0)="MK(D5T=?M]BKU9%9NT$ZZ84XF:-('U74?ANJZB8HB*^U$KZ'1`+\O9(DDMDFQ"
^XMB(3.9,22,2,15691,0)="""DATA"",396.18,472,3,230,0)"
^XMB(3.9,22,2,15692,0)="M[G]3F`!'H5(/Q3Z1C4D07JQ2DINU""M^D9'OHP@=,'`!BCBB:7\T.VX>`6P?P"
^XMB(3.9,22,2,15693,0)="""DATA"",396.18,472,3,231,0)"
^XMB(3.9,22,2,15694,0)="M[)8^;<>F#IW&\J7GTH5I5P&JRUT2^!E82BE?$&N7)M+`*-,[V20&W<V=.'6F"
^XMB(3.9,22,2,15695,0)="""DATA"",396.18,472,3,232,0)"
^XMB(3.9,22,2,15696,0)="M)[I^@#3(?TO^/AWT(2#A345&P1/8\L/0/31X>;6!E`?YR.@R(WSR*?'B.D6["
^XMB(3.9,22,2,15697,0)="""DATA"",396.18,472,3,233,0)"
^XMB(3.9,22,2,15698,0)="M#9ERJP'%QCHRL#<6)*HQXD\$J]WD&L.0QGAJ0.TE]1A9B5]/L<Z1""GZ=.UO'"
^XMB(3.9,22,2,15699,0)="""DATA"",396.18,472,3,234,0)"
^XMB(3.9,22,2,15700,0)="M;J\V91/S(""$;F6R67JX,!EZ6RYVF""?N46M1V%1>X:MMK:/M:01B4DRK;_E:L"
^XMB(3.9,22,2,15701,0)="""DATA"",396.18,472,3,235,0)"
^XMB(3.9,22,2,15702,0)="M#W597^KR(G6]0110@E%Z7OF.)`LKL];&%27=/H.EM46;P34[K282+&<&Z8YF"
^XMB(3.9,22,2,15703,0)="""DATA"",396.18,472,3,236,0)"
^XMB(3.9,22,2,15704,0)="MHT7>B>PB)9TAKD1#KHBEC+6LES/N?N!H=:N,+`>,W41F`@NJXMKL&#S;;-D$"
^XMB(3.9,22,2,15705,0)="""DATA"",396.18,472,3,237,0)"
^XMB(3.9,22,2,15706,0)="M/&L[4.%8L];,:H=>:9899)5/%8#]18G><K#*8*XQ2I)LE5FW&I4ZN=""DTC+#"
^XMB(3.9,22,2,15707,0)="""DATA"",396.18,472,3,238,0)"
^XMB(3.9,22,2,15708,0)="M;""*\9NPX8C7;R(;WVM!9P89._A$[+-?YA>'YN-L:%CW^RL,(L,#W2J;I'L7Q"
^XMB(3.9,22,2,15709,0)="""DATA"",396.18,472,3,239,0)"
^XMB(3.9,22,2,15710,0)="M>YQ'LH3-0""+I_)-Z]@+?`4.C\O,""1*/7I.TV!;T_Y>[29Z_4,2P*%]+C'/`E"
^XMB(3.9,22,2,15711,0)="""DATA"",396.18,472,3,240,0)"
^XMB(3.9,22,2,15712,0)="M>%`?RJ((%;D;Y.T]""G#W')D*S]1Q.FB*WGP;R%.)%)#[3\=$6I)?5NC4DZ2Q"
^XMB(3.9,22,2,15713,0)="""DATA"",396.18,472,3,241,0)"
^XMB(3.9,22,2,15714,0)="MI""0^Y!SAVQ@W8Z3$^K#UP<`A4UT""X[P+..PHVL\ND/Z16%>M-UI7^!84/J!?"
^XMB(3.9,22,2,15715,0)="""DATA"",396.18,472,3,242,0)"
^XMB(3.9,22,2,15716,0)="MZ""4C3G'84\7SB.!!]$1>;M+7ZQ??V?=H@U2Y8U)-1<U)3:I>;L>)SG.U9K71"
^XMB(3.9,22,2,15717,0)="""DATA"",396.18,472,3,243,0)"
^XMB(3.9,22,2,15718,0)="MM2I^[F9_5N5$5EWQL.J8$#$H^#;>&P*>W7[""P8H`G62S-N(,B23-=K!HIB9["
^XMB(3.9,22,2,15719,0)="""DATA"",396.18,472,3,244,0)"
^XMB(3.9,22,2,15720,0)="MU?>72`E.=(""E]O9>GKCLX/P(RW9JRM""9CU?)GZ=@S'R*;KP2,/4;G*G5'E,+"
^XMB(3.9,22,2,15721,0)="""DATA"",396.18,472,3,245,0)"
^XMB(3.9,22,2,15722,0)="MQ6%FZC;L#$-'/2GO(_1_.-6HXUIJM+]M:M_9NGCZG[16S36[T4K=-M]`Q^<B"
^XMB(3.9,22,2,15723,0)="""DATA"",396.18,472,3,246,0)"
^XMB(3.9,22,2,15724,0)="M-E""K&@FJFC0ZD+H7?R.[C'C<U4ZCVVAC'>]R,8""0VMV;[7R#:J'4?N&=6<=*"
^XMB(3.9,22,2,15725,0)="""DATA"",396.18,472,3,247,0)"
^XMB(3.9,22,2,15726,0)="M=Q9CR7`OX!2SD!UJ"")^SEWE;W%-FJ]5%/Z0FA6D7L""F""7TXL-BT+626]OTOM"
^XMB(3.9,22,2,15727,0)="""DATA"",396.18,472,3,248,0)"
^XMB(3.9,22,2,15728,0)="M/F.9I'JM\&[B,1N'@,57N\XAGF-MN=@F!6Y3DZQ7`38;3N-&#QTK=:""W:,17"
^XMB(3.9,22,2,15729,0)="""DATA"",396.18,472,3,249,0)"
^XMB(3.9,22,2,15730,0)="MTLWTF':QB=OEH@^.8\MH*.4OG6NL2[^TYR):%+:\D.@V2,XQ^@JIW:>M,N&O"
^XMB(3.9,22,2,15731,0)="""DATA"",396.18,472,3,250,0)"
^XMB(3.9,22,2,15732,0)="M\&X$]S1)[9BUG66TAA9)""0LAVNILBK1X0O-JW,O<QGDU)HAUI**+R9C:J@/;"
^XMB(3.9,22,2,15733,0)="""DATA"",396.18,472,3,251,0)"
^XMB(3.9,22,2,15734,0)="M_^FX;-:=#F36)=5V#G!QAP3_WJ_RJLR*J,A^IAVU/]QWF^'#AQ72XK4>8+B)"
^XMB(3.9,22,2,15735,0)="""DATA"",396.18,472,3,252,0)"
^XMB(3.9,22,2,15736,0)="M1[U7EYE>;S+!H%.3^>#PT:D7A6^</,\BF-]47#C2[K;I+J/23:UHO09L""`2V"
^XMB(3.9,22,2,15737,0)="""DATA"",396.18,472,3,253,0)"
^XMB(3.9,22,2,15738,0)="MT!,2TW^:+<444$C^#>3&%`B.T5.KC99UTWMC^Q2@4_=\2XW-MTB""I!/S/<0#"
^XMB(3.9,22,2,15739,0)="""DATA"",396.18,472,3,254,0)"
^XMB(3.9,22,2,15740,0)="MLA$<)9^-#>9C*10?Q]$O-YN(F&AS,G`33I8Z]N9@3F;2X3@Y=]5JE6W'BC8G"
^XMB(3.9,22,2,15741,0)="""DATA"",396.18,472,3,255,0)"
^XMB(3.9,22,2,15742,0)="MDX$YF17]U>^/]9/)7+B]O8B]1!'?VR-!^<@`L4\,XB.R:PJA^+AM@9AU^#G:"
^XMB(3.9,22,2,15743,0)="""DATA"",396.18,472,3,256,0)"
^XMB(3.9,22,2,15744,0)="MO`R,&82P$>C)_D*9T4,Q<^M2RUS#]9DCKBE3@?&7D$_WGP%XF2Z&XN78:8O4"
^XMB(3.9,22,2,15745,0)="""DATA"",396.18,472,3,257,0)"
^XMB(3.9,22,2,15746,0)="MKXXV)T<#2Z74'/3?^S(R'XZ1)\WV:N09&=R:+(JJLC\CPZG*\5D""R8XZ)\<#"
^XMB(3.9,22,2,15747,0)="""DATA"",396.18,472,3,258,0)"
^XMB(3.9,22,2,15748,0)="M<[(@*<J^K,QD0BK*AEVUVI'GY=;`O,R+)N4`L33""B26:H%&+/""NW!2W\)H4_"
^XMB(3.9,22,2,15749,0)="""DATA"",396.18,472,3,259,0)"
^XMB(3.9,22,2,15750,0)="M3KDS#[.\WG76"",3'`'!]97F2D@@^>9+=H-/<3?)VP23+1\G5M-T7:LWJ<<\G"
^XMB(3.9,22,2,15751,0)="""DATA"",396.18,472,3,260,0)"
^XMB(3.9,22,2,15752,0)="MI,#($UZ(D1?*'KPD@S^P7(2+)'^#^;HZBH)R>C$4LMS[=;,B,H6U$?A%/M,C"
^XMB(3.9,22,2,15753,0)="""DATA"",396.18,472,3,261,0)"
^XMB(3.9,22,2,15754,0)="M?*9</A<-<*671D-DY\^P3MVO\%:<""STB""Z5HU)[QAY""""<^0[]$J_S5.PSA8A"
^XMB(3.9,22,2,15755,0)="""DATA"",396.18,472,3,262,0)"
^XMB(3.9,22,2,15756,0)="MI.`R396KY^S:A@*#=ZC==QFAR'YB)^S#RUY,Z-;YA0OS<PM+9^<6AZV$+4C?"
^XMB(3.9,22,2,15757,0)="""DATA"",396.18,472,3,263,0)"
^XMB(3.9,22,2,15758,0)="MG82$MP,)[U""THT(?&H<UWIG)9(8F\SHO+AZ@4XDG%45$J();LJZVWTGAN7U$"
^XMB(3.9,22,2,15759,0)="""DATA"",396.18,472,3,264,0)"
^XMB(3.9,22,2,15760,0)="M%#[J!3)H%B3T""8ZEG-L,*.>=:@0B6$<?IKMS%]!^1!%SR#""4LU""?S5-]1NH@"
^XMB(3.9,22,2,15761,0)="""DATA"",396.18,472,3,265,0)"
^XMB(3.9,22,2,15762,0)="M>%-J#J@%7XW4!;,Z3F,V.T(@=:\A32`GI@D<8-DZ7*C^64P3R$0O34`JU,G\"
^XMB(3.9,22,2,15763,0)="""DATA"",396.18,472,3,266,0)"
^XMB(3.9,22,2,15764,0)="MML]0,6H`M7LYM:_'-L$6VN53A@C$ZE?D1AS?560*W,7VT$EDL&NS9@VW$5NP"
^XMB(3.9,22,2,15765,0)="""DATA"",396.18,472,3,267,0)"
^XMB(3.9,22,2,15766,0)="M'+O2,:O.L-5L8O'(20EC_J(B5'4/#U5=QH15*&$M1M@Q/[N6M0G[NY@41>V5"
^XMB(3.9,22,2,15767,0)="""DATA"",396.18,472,3,268,0)"
^XMB(3.9,22,2,15768,0)="M`[DKTJE""K/P-9>#]+'V&AXB?$71`R8B>#M@MZ8""TKK/R^*,2H/V;7`V\O!E."
^XMB(3.9,22,2,15769,0)="""DATA"",396.18,472,3,269,0)"
^XMB(3.9,22,2,15770,0)="MTEN4G6LP^5""C-?ECJ@F2K"">1?TN>8X#.(B7AAZ9TFX>P0D;XKLE;V)U[1E'("
^XMB(3.9,22,2,15771,0)="""DATA"",396.18,472,3,270,0)"
^XMB(3.9,22,2,15772,0)="MJ4PKWDA00""BG!*5\*K931L0A!7&(P'%(CP&""T*=_3^KFD[I,-H`-T?^D@DW]"
^XMB(3.9,22,2,15773,0)="""DATA"",396.18,472,3,271,0)"
^XMB(3.9,22,2,15774,0)="M\(3>M>OBVK_(+J\_5JBQPBFSX_""T2G0!P2TTVQ1I3V""&=IVN+J,?IK6""FXBO"
^XMB(3.9,22,2,15775,0)="""DATA"",396.18,472,3,272,0)"
^XMB(3.9,22,2,15776,0)="MC8H7-NI915'<&<GGV2K^297KL:28&5IF]YU](#=TG8/Z/T=%]!=@'1]1K./N"
^XMB(3.9,22,2,15777,0)="""DATA"",396.18,472,3,273,0)"
^XMB(3.9,22,2,15778,0)="MV0X%<6%NL`(,%A?7042CR61U`',E?DY1ZVD):B""'&[X@T3+7KY84++\GED'&"
^XMB(3.9,22,2,15779,0)="""DATA"",396.18,472,3,274,0)"
^XMB(3.9,22,2,15780,0)="M+XG+A_,OL:AHE'O1A?+MG7>3KLQ872]!%&R.6J'O\UBA^WVMT/&!#ASBISO9"
^XMB(3.9,22,2,15781,0)="""DATA"",396.18,472,3,275,0)"
^XMB(3.9,22,2,15782,0)="MN+H7IF4_XXE99MP2Q;K?""I_>X<?1N^*]6ML+5MMNT<;MG;H%""%)%YQ</T_)9"
^XMB(3.9,22,2,15783,0)="""DATA"",396.18,472,3,276,0)"
^XMB(3.9,22,2,15784,0)="ML0DK2]!)+""D^""BM0UB)S!?SH;"".1<$TBX_:$""1DY9#.''Q^\G%OEWIM/*5#>"
^XMB(3.9,22,2,15785,0)="""DATA"",396.18,472,3,277,0)"
^XMB(3.9,22,2,15786,0)="M4-O+.\VQ`/.4@$]?HZ9/@NG4EQ0[45/M1/99`M+%NM;3,-=!-MTG5=8<K4WN"
^XMB(3.9,22,2,15787,0)="""DATA"",396.18,472,3,278,0)"
^XMB(3.9,22,2,15788,0)="M:""OVFD5S,\3)`E""GIT7X0>)IF.SW%),=I'?'KE:#)DZ'FJM=!S]-]Q(K@LP("
^XMB(3.9,22,2,15789,0)="""DATA"",396.18,472,3,279,0)"
^XMB(3.9,22,2,15790,0)="MTOVG,6G*#RJFO(M-V72ZY57;1,9063F7VRU^ASK""@#=U6I`:=HWN]:P[P'I;"
^XMB(3.9,22,2,15791,0)="""DATA"",396.18,472,3,280,0)"
^XMB(3.9,22,2,15792,0)="MI4O9?*A:.)-G'6W-PO#8.@A8Y1I+W\14?>7T-#XAI1U[CZ>1X%YA]05%HXHX"
^XMB(3.9,22,2,15793,0)="""DATA"",396.18,472,3,281,0)"
^XMB(3.9,22,2,15794,0)="MSE2]L```9Q8[X""^([M%%>6`I;Q:W'TK""%/ZHY[YXY`-S57L%UXS$V7WX^H'$"
^XMB(3.9,22,2,15795,0)="""DATA"",396.18,472,3,282,0)"
^XMB(3.9,22,2,15796,0)="MMB+L&WR,(K/++67LPT^CRQG_.Z]<3""LALCNI]80_*%[_V%COJ0=^VHX7NF0W"
^XMB(3.9,22,2,15797,0)="""DATA"",396.18,472,3,283,0)"
^XMB(3.9,22,2,15798,0)="MN0E[R:Y7&NMCYQKU%>*@9U>'"":GM""I)I0U1%?QWS<$T7N!8I4.V64'L+V)""4"
^XMB(3.9,22,2,15799,0)="""DATA"",396.18,472,3,284,0)"
^XMB(3.9,22,2,15800,0)="M%67/JI[JL2$7;G>]3=A=O6..=WV[O@V7$B,J>]T1%;SQ2M(1P,WJSZIVWN`>"
^XMB(3.9,22,2,15801,0)="""DATA"",396.18,472,3,285,0)"
^XMB(3.9,22,2,15802,0)="MLJ/N-=UR#L/-VZN(N`SI:)':GL&Y:]""I/+5=QS_EX*<=.?Q3)@T_[D1/^'?9"
^XMB(3.9,22,2,15803,0)="""DATA"",396.18,472,3,286,0)"
^XMB(3.9,22,2,15804,0)="MS[O/-PCP%@W&WL5\!5<""GQEQC^#>)]""5BUBM*1^2<R+)S[&]^CG^*8T>R?E"""
^XMB(3.9,22,2,15805,0)="""DATA"",396.18,472,3,287,0)"
^XMB(3.9,22,2,15806,0)="MQ`#P/B3GQ1.W1_,7E#07HT3SB+]H%\1[W%$FVK-<M&<%G9R)$LVCOB2+UZ#D"
^XMB(3.9,22,2,15807,0)="""DATA"",396.18,472,3,288,0)"
^XMB(3.9,22,2,15808,0)="M7\;ZD5Q(1XGD`1H:7Y=%TE_TDBXHZ'QID(+>XE;0\;2LH]<MZTHJ!?\=U<E_"
^XMB(3.9,22,2,15809,0)="""DATA"",396.18,472,3,289,0)"
^XMB(3.9,22,2,15810,0)="MG=2HP1ZR[""'''O+LH<`>BNRA!`]C2)&SIPQ_TOF3P9^R_""G'G_+\J<""?BOR)"
^XMB(3.9,22,2,15811,0)="""DATA"",396.18,472,3,290,0)"
^XMB(3.9,22,2,15812,0)="MSZ'S.70^A\[GT/D<.I]#YW/H?`Z=SZ'S.70^A\'G,/@<!I_#X',8?`Z#SV'P"
^XMB(3.9,22,2,15813,0)="""DATA"",396.18,472,3,291,0)"
^XMB(3.9,22,2,15814,0)="M.0P^A\'G,/@<63Y'EL^1Y7-D^1Q9/D>6SY'E<V3Y'%D^1Y;/D>-SY/@<.9@C"
^XMB(3.9,22,2,15815,0)="""DATA"",396.18,472,3,292,0)"
^XMB(3.9,22,2,15816,0)="M-E`B14]<H@L""^7&5Q5#(#!)(3SO%L=.=:A4[OE+C:!^U#Y/''<C873[,C*/4"
^XMB(3.9,22,2,15817,0)="""DATA"",396.18,472,3,293,0)"
^XMB(3.9,22,2,15818,0)="MV""*Y'9**HL0B'KADV>74[6?E9/5!:QX9&BN'07""!KD4/7?L$NHPHZ<5$*/,\"
^XMB(3.9,22,2,15819,0)="""DATA"",396.18,472,3,294,0)"
^XMB(3.9,22,2,15820,0)="M*YCGB5G@P@N]*I`""%\+5@;U;L,[!ZU'M:DP0!:L\@#$>]_V*TH8ZY-'P^X4-"
^XMB(3.9,22,2,15821,0)="""DATA"",396.18,472,3,295,0)"
^XMB(3.9,22,2,15822,0)="ME8UZF%;_20C33OB$:?/*,.U;BN#,/2PXLV2AFWI]Z`.US,\^(15B?5GA^KJW"
^XMB(3.9,22,2,15823,0)="""DATA"",396.18,472,3,296,0)"
^XMB(3.9,22,2,15824,0)="MESA*20L>JLUN[E""MQ,*^H=I<.AUU/9""1NM,_O#GUP&X?/9""3B&=ZX`<*/7!W"
^XMB(3.9,22,2,15825,0)="""DATA"",396.18,472,3,297,0)"
^XMB(3.9,22,2,15826,0)="MKS]]:VWX\1KL;KI+PFO\@4(-'.!J@&]\[""*M$S*I2ABB>K(Y$-=_W*2J)R=^"
^XMB(3.9,22,2,15827,0)="""DATA"",396.18,472,3,298,0)"
^XMB(3.9,22,2,15828,0)="MMFGX;/^M1HGD(ZYZ&.#P5^GNN[`Y5<^DSP;-BFT?.#[FM7ZJAS:<0#]TJF9+"
^XMB(3.9,22,2,15829,0)="""DATA"",396.18,472,3,299,0)"
^XMB(3.9,22,2,15830,0)="M6RR;+?Q1ADWU@'60V/G_[5U-;%15%)XW0P4JE(+%8$1\`I(V#-KYZ[3$A""`("
^XMB(3.9,22,2,15831,0)="""DATA"",396.18,472,3,300,0)"
^XMB(3.9,22,2,15832,0)="MU!#`6D.Z,.:U<]N^\N:]<=X,4.,/;G2A)&HT43?&O7'CPH71N/)OH\&$N'-G"
^XMB(3.9,22,2,15833,0)="""DATA"",396.18,472,3,301,0)"
^XMB(3.9,22,2,15834,0)="M6+A00G!GO/_OO)G[9MX=&F>FV@W0&=Y]YYY[SSWGW'.^CPJVDV_0M`)0\C1'"
^XMB(3.9,22,2,15835,0)="""DATA"",396.18,472,3,302,0)"
^XMB(3.9,22,2,15836,0)="ML8YT-/AV6*^[7=`0#4%6(+#;7P..1G&RWW<[7Q9U*JR_/C?[B!HZE(L^%_(R"
^XMB(3.9,22,2,15837,0)="""DATA"",396.18,472,3,303,0)"
^XMB(3.9,22,2,15838,0)="MGE40N#\JMCI!4B+'\'&$*N8)RU^P+7*)R3XF>,R,^*[G]CZ/H(>II+NXI%<5"
^XMB(3.9,22,2,15839,0)="""DATA"",396.18,472,3,304,0)"
^XMB(3.9,22,2,15840,0)="M)>2S3]=(R4>9""611/!-RW>;5EDT'/X(B,E7)?S++R/(Y.!%%3&(0*/,61>]<"
^XMB(3.9,22,2,15841,0)="""DATA"",396.18,472,3,305,0)"
^XMB(3.9,22,2,15842,0)="M),""Z%:MJ^[!WOCT8M;AP6Z^F)0\5(5(9-Z5IN0)-2U]UQK6T,3Q'OTJE/MAD"
^XMB(3.9,22,2,15843,0)="""DATA"",396.18,472,3,306,0)"
^XMB(3.9,22,2,15844,0)="M8WY9#S9FI]K&\++[KT.A3'*YV<8,25X,5'5MJ^<BE]""A*&!?SBMJQHX*H\&,"
^XMB(3.9,22,2,15845,0)="""DATA"",396.18,472,3,307,0)"
^XMB(3.9,22,2,15846,0)="MR*@_%F/;<Z#8ZVS;?]+3VSZIO>U%]F<HA&AY2]K?.9'!S&7Z)7R(U]J=#]74"
^XMB(3.9,22,2,15847,0)="""DATA"",396.18,472,3,308,0)"
^XMB(3.9,22,2,15848,0)="MOB%NYZY*=_HA('E!*_6\>]JG6&K+=+O0$B+*3$MXX;03S]1T;9O%OYI'I3->"
^XMB(3.9,22,2,15849,0)="""DATA"",396.18,472,3,309,0)"
^XMB(3.9,22,2,15850,0)="M#<U[W@51)A7^+3]*69NO:`S]0]JR3XUM^/LM5;A5?H%J<3/68HVVP0V)#\0J"
^XMB(3.9,22,2,15851,0)="""DATA"",396.18,472,3,310,0)"
^XMB(3.9,22,2,15852,0)="MW2)^H5BH\BE<I8$\]^*_XW^<LY90`I*#[`H`@G@=.Z0O,-72RL^Y#6=V3""CR"
^XMB(3.9,22,2,15853,0)="""DATA"",396.18,472,3,311,0)"
^XMB(3.9,22,2,15854,0)="MAI3['3T2YK>,*):#@:..O>1NW&0Y>#OA%0E9#T*GP%WS/FFJ[RH/&*CG'6ZH"
^XMB(3.9,22,2,15855,0)="""DATA"",396.18,472,3,312,0)"
^XMB(3.9,22,2,15856,0)="MY\W`^?J;S]<#06%8=]];F.&1<!IGG/SD8$O,%O[F?\DMNR<XLF;0`E:(;\[0"
^XMB(3.9,22,2,15857,0)="""DATA"",396.18,472,3,313,0)"
^XMB(3.9,22,2,15858,0)="MPO]_G\`X/B-;""T7E@:)2/R0:-97Z+M'5PT;M5H0Z)EY/1,,P\Q)HB++->SV."
^XMB(3.9,22,2,15859,0)="""DATA"",396.18,472,3,314,0)"
^XMB(3.9,22,2,15860,0)="M1/5@\@EQJ/YM_NACS;7O&V?0(:^""W/CP!?%`+/C.,4+=Z#?E^GLPR+7E)[6."
^XMB(3.9,22,2,15861,0)="""DATA"",396.18,472,3,315,0)"
^XMB(3.9,22,2,15862,0)="MC!R@'%OV_(I=LQS[!7IVI$T<RRPA1C]>0O-5NX0:2""SC%?#&$S$'19QJ0DLW"
^XMB(3.9,22,2,15863,0)="""DATA"",396.18,472,3,316,0)"
^XMB(3.9,22,2,15864,0)="M`Q$+>A>R4T!$QCHF^(""8-^:;HRQ.HQ?HI`S7O.35W=*8GJ#)N()FH:`EOI96"
^XMB(3.9,22,2,15865,0)="""DATA"",396.18,472,3,317,0)"
^XMB(3.9,22,2,15866,0)="M%'+FI[3D'`%RNLBK.)9?UA-A0]3RS\'E?[)Q^=_78OFG.B(GRL+Q=K<?K[\B"
^XMB(3.9,22,2,15867,0)="""DATA"",396.18,472,3,318,0)"
^XMB(3.9,22,2,15868,0)="M7A$W,$OUGC""OPT8CFCOQ`,?[HR*MQ6$R""4_]+!=VCSQ+/D@$A<T2\?J88]EE"
^XMB(3.9,22,2,15869,0)="""DATA"",396.18,472,3,319,0)"
^XMB(3.9,22,2,15870,0)="MUL@S'2+`>>*R589N:@3R3!:>U]D6Y_6.Q^NV4^H9%E6C(_8P<0U\3ZBD1R7N"
^XMB(3.9,22,2,15871,0)="""DATA"",396.18,472,3,320,0)"
^XMB(3.9,22,2,15872,0)="M=@%U(""3VN^FA)#LR#E-0V%H+84>8#]8%>(<H'-3.M!MJ:-_>0N`086TODP$#"
^XMB(3.9,22,2,15873,0)="""DATA"",396.18,472,3,321,0)"
^XMB(3.9,22,2,15874,0)="M:[&],4;@]6E[C5""4\(VT%^\:[1#)13/<`'W""!'_""H""*U6P2H(,P%)&R!DM:'"
^XMB(3.9,22,2,15875,0)="""DATA"",396.18,472,3,322,0)"
^XMB(3.9,22,2,15876,0)="MN@&F[5[TG(L4>I][#)&W0,*ROT1''N0C_RI5=4""./""8.Z[:#Q9]5Q4F3@3-Q"
^XMB(3.9,22,2,15877,0)="""DATA"",396.18,472,3,323,0)"
^XMB(3.9,22,2,15878,0)="MO)%X.'7*""$Z:;#_4B9&\1*)M++_UG&B3(L>%3D2?443T2:F^1%0\O]X#]R)<"
^XMB(3.9,22,2,15879,0)="""DATA"",396.18,472,3,324,0)"
^XMB(3.9,22,2,15880,0)="M1@(@X'<Q+ZDWC>Z^N/J"")T3W^*'PLGY4$'U?F?9-[R*J6HXCKGD6ZRXUHZ;K"
^XMB(3.9,22,2,15881,0)="""DATA"",396.18,472,3,325,0)"
^XMB(3.9,22,2,15882,0)="M5<MX(=FN26ZTQ34.WK6UM(E<TJKG+J`THSCD/!<X;B*,&D3AE%(,51EEI,2\"
^XMB(3.9,22,2,15883,0)="""DATA"",396.18,472,3,326,0)"
^XMB(3.9,22,2,15884,0)="M)P]A./B.3?;ZD;:L8:+:8A#""7Z5^5A`?S9VR?&D[S'F$7/SN*W72%3UJNPM."
^XMB(3.9,22,2,15885,0)="""DATA"",396.18,472,3,327,0)"
^XMB(3.9,22,2,15886,0)="MG8#DFH3/!/]!/ZX1$.*JS_PKB[0.KB#\J@X:8X$?%HM6KL:@30W1(6QN8HDQ"
^XMB(3.9,22,2,15887,0)="""DATA"",396.18,472,3,328,0)"
^XMB(3.9,22,2,15888,0)="M`4H7""30I)9`?W\#%2[`6B]`J""`*@Z_(M]H/[I*)6A)5F^55""XD!(X@CL`]:D"
^XMB(3.9,22,2,15889,0)="""DATA"",396.18,472,3,329,0)"
^XMB(3.9,22,2,15890,0)="M':IU\'FM@U[D%1LAO0C/MJ#1^YGF3$""AF(LGG,9KQ@;-+HQ#HE>!NGFY,<5-"
^XMB(3.9,22,2,15891,0)="""DATA"",396.18,472,3,330,0)"
^XMB(3.9,22,2,15892,0)="M:H,*:_Z61M3Z%%4,%GVK)Z.!M$A<>384QR8[<]V*<,""76P\8#IPW=#2@F'<Z"
^XMB(3.9,22,2,15893,0)="""DATA"",396.18,472,3,331,0)"
^XMB(3.9,22,2,15894,0)="M8.K;A,Z(=ZW)[A,B4\VG?A-F]U6Y_48E<FUN0B]7M8.0J)#]Y6,CA?QP*JH["
^XMB(3.9,22,2,15895,0)="""DATA"",396.18,472,3,332,0)"
^XMB(3.9,22,2,15896,0)="M&+9R]47"">4<L#![$E.@LW4[H+,5-:Z.G"":BG7:(E\$NEGO3ZD_<'9#>1A9J]"
^XMB(3.9,22,2,15897,0)="""DATA"",396.18,472,3,333,0)"
^XMB(3.9,22,2,15898,0)="MKKG(,ZZ0A9H;-71VV.#::&X2:NZDT81\`#17U-MA#T=H+E1VW^NJNSM2=06H"
^XMB(3.9,22,2,15899,0)="""DATA"",396.18,472,3,334,0)"
^XMB(3.9,22,2,15900,0)="MNCDMU6VY@XB6USO<#N-K!0@VW76?#2739@;<SJ>^$E;\""T55]ECS;8I$J:!X"
^XMB(3.9,22,2,15901,0)="""DATA"",396.18,472,3,335,0)"
^XMB(3.9,22,2,15902,0)="M6(NV2WQ.TJ01<X%/0<CNH2;+=""!8WRT(-U3K>U_$^@;X?[V^NN/7&838[=X7"
^XMB(3.9,22,2,15903,0)="""DATA"",396.18,472,3,336,0)"
^XMB(3.9,22,2,15904,0)="M*IPP&EO<R#3JU1D<X74&94_`E%CNJKGBX<?AB*9LUU@LP6.0DNT3'D!*9DXB"
^XMB(3.9,22,2,15905,0)="""DATA"",396.18,472,3,337,0)"
^XMB(3.9,22,2,15906,0)="MD=5>G^+8=""9YZ.LD'VNJY#@8S'!!T]7AY9-!)8?V990Z><KWM4W?^+2.!4RM"
^XMB(3.9,22,2,15907,0)="""DATA"",396.18,472,3,338,0)"
^XMB(3.9,22,2,15908,0)="M37`&69&3#I^RV2:,#1*_Z""W*$S(XLP@,'0NR24WJHJQ)Y0O2%S6I:3.(B""T<"
^XMB(3.9,22,2,15909,0)="""DATA"",396.18,472,3,339,0)"
^XMB(3.9,22,2,15910,0)="MY6*[U?&%68-_EX?S_*+./`]TYO@7X8![=`;L`""48ULT'$#^!%E\)THJY?'^@"
^XMB(3.9,22,2,15911,0)="""DATA"",396.18,472,3,340,0)"
^XMB(3.9,22,2,15912,0)="M2$1,:PX4IZ:>,YHDW1MXO?RV050^GQ`9I!G&6'^R;I>ZFN!K%S?$2*P.S""*?"
^XMB(3.9,22,2,15913,0)="""DATA"",396.18,472,3,341,0)"
^XMB(3.9,22,2,15914,0)="M,'+$3ZAF_\L)575>$F*QB,OMU$\*SRISSJ$'IV/[-9)%I%RX-7/!L5WJ7=6("
^XMB(3.9,22,2,15915,0)="""DATA"",396.18,472,3,342,0)"
^XMB(3.9,22,2,15916,0)="M,ECU.>45]P]W$?""^0<A)**0@A;V6;!;RHVGL/50J>`F2NNZT>?E0U5JEQIOZ"
^XMB(3.9,22,2,15917,0)="""DATA"",396.18,472,3,343,0)"
^XMB(3.9,22,2,15918,0)="M$P36E-V)H!)-PE[RS(ICN8C6UUNN5?/*]H*)7\@""WUOD0%BD%(O]OPJ!(!TE"
^XMB(3.9,22,2,15919,0)="""DATA"",396.18,472,3,344,0)"
^XMB(3.9,22,2,15920,0)="M),]FS;J`W#1U8/A@)8]^WT7XNS7/I`V&%61A-V;LD=@9KPR,RIX2EF*?M!03"
^XMB(3.9,22,2,15921,0)="""DATA"",396.18,472,3,345,0)"
^XMB(3.9,22,2,15922,0)="MXF3+3>3TO-;#YQ%S6X6>J<?EB`7`SC!R6>XR8EWB=&,!O&K/YT<,94-`:(,<"
^XMB(3.9,22,2,15923,0)="""DATA"",396.18,472,3,346,0)"
^XMB(3.9,22,2,15924,0)="M:H)COM\`F8E^`3=H:UHW'[>M)=?S;2WSFOO?O#:P4?.NVZT&I,5(YA4]?<>\"
^XMB(3.9,22,2,15925,0)="""DATA"",396.18,472,3,347,0)"
^XMB(3.9,22,2,15926,0)="M,FW4Z8K5C+YK""Y6N+#25^F6Z6WFICBHF8`N/N/:^IKCW""59YGU;&%H!V4A\+"
^XMB(3.9,22,2,15927,0)="""DATA"",396.18,472,3,348,0)"
^XMB(3.9,22,2,15928,0)="MS_<S:9QN!-5,4Z""XX""BVUJ+B)FWR24#L\!:.(KFN9MS@W53Q!@7S4P%>ZXD"""
^XMB(3.9,22,2,15929,0)="""DATA"",396.18,472,3,349,0)"
^XMB(3.9,22,2,15930,0)="ME+>ES-^##JV)?FG^5)P[DR'3(:HE/I<G^!E)T5:<'.\/#,1X%:E3</N*_NX_"
^XMB(3.9,22,2,15931,0)="""DATA"",396.18,472,3,350,0)"
^XMB(3.9,22,2,15932,0)="M`Y,CHKE,MJA7>FN>IY?1`J+V;`5[KB0B0L_7L>NBBX:4:(T5CG\RT';FUMQV"
^XMB(3.9,22,2,15933,0)="""DATA"",396.18,472,3,351,0)"
^XMB(3.9,22,2,15934,0)="MWKJS/&L4NGKPXL.A^FZ5`1T,F!<T[!GY^0=02P,$%``""``@`BUZY-""?""K1!V"
^XMB(3.9,22,2,15935,0)="""DATA"",396.18,472,3,352,0)"
^XMB(3.9,22,2,15936,0)="M1```+)\""`!,```!-=7-C;&5S7S$Q,2YP;FPN9G)M[%WK;]PXDO\^P/P/PMX'"
^XMB(3.9,22,2,15937,0)="""DATA"",396.18,472,3,353,0)"
^XMB(3.9,22,2,15938,0)="M)[LSNR+USN*PL)TXR<))?&[/!(?#8L%6TS8GDMBKAQ//7W^DU'I1I%H/NSO3"
^XMB(3.9,22,2,15939,0)="""DATA"",396.18,472,3,354,0)"
^XMB(3.9,22,2,15940,0)="M-A`X%BE+I?H5JXK%8I$N?\-^JIVC)0ZN[M?XT_49C<-7VE7>\N,/FG:.KU/M"
^XMB(3.9,22,2,15941,0)="""DATA"",396.18,472,3,355,0)"
^XMB(3.9,22,2,15942,0)="MO[6?H:[SRRNZ9E<N__4S6:6W[,+P^-4[3&YN^9W`X)>G:)T2&K'KHP]O+M^^"
^XMB(3.9,22,2,15943,0)="""DATA"",396.18,472,3,356,0)"
^XMB(3.9,22,2,15944,0)="M.?KQ!QRM?OR!-E[(7_7^]=:70;/Y-M/<\K9?%J?GXNN*QG]?H`@'P&5OS']K"
^XMB(3.9,22,2,15945,0)="""DATA"",396.18,472,3,357,0)"
^XMB(3.9,22,2,15946,0)="MO!&8L'ZAXS5?:!E&ZXT0%-]+(GYU=/'IXI>+(]YR@N]P\#Z*<,S:EW>7B""1X"
^XMB(3.9,22,2,15947,0)="""DATA"",396.18,472,3,358,0)"
^XMB(3.9,22,2,15948,0)="ME7?0>(7C17H?8-Z3+$AT$^""<;AI0?K<?+$APAV/>=D:C]*^GMRA.,'_!ZS=G"
^XMB(3.9,22,2,15949,0)="""DATA"",396.18,472,3,359,0)"
^XMB(3.9,22,2,15950,0)="MQ[^<7_W[]-WQY>+-57U']:<G`?*_5.T5G3\#4#5^1""'.F;/0%BA*M`6.R?51"
^XMB(3.9,22,2,15951,0)="""DATA"",396.18,472,3,360,0)"
^XMB(3.9,22,2,15952,0)="MU5V2]G__XDT7*,91RCM8TQD*DIS4*[3\Q#^#M>78M#F;(P@LV`2S9JYM%]<%"
^XMB(3.9,22,2,15953,0)="""DATA"",396.18,472,3,361,0)"
^XMB(3.9,22,2,15954,0)="M>ZWBHN0O</2BH<9T<WL3U2SQ`_Q*^\28A()`.\LBG_<=%7=NYYF::UV^&8UF"
^XMB(3.9,22,2,15955,0)="""DATA"",396.18,472,3,362,0)"
^XMB(3.9,22,2,15956,0)="M->=$WETG)S18_:OHDO,P%TD%ZVPYZ\PFYZ#=9IW7X9S1X=QKG/@Q66)M'=-E"
^XMB(3.9,22,2,15957,0)="""DATA"",396.18,472,3,363,0)"
^XMB(3.9,22,2,15958,0)="M@,/DU9&2E),L36ED\@%2_-JB!0*W20PHADD/-=#K4',:T`0_""FA@$FB]<+6$"
^XMB(3.9,22,2,15959,0)="""DATA"",396.18,472,3,364,0)"
^XMB(3.9,22,2,15960,0)="M?O/\3]%I0/POK.%;P:*WF`UXXN>M2L9^P""$U.<+\EQZ`3;W-4M/S.@B77-[H"
^XMB(3.9,22,2,15961,0)="""DATA"",396.18,472,3,365,0)"
^XMB(3.9,22,2,15962,0)="M'^!:CODH'(42CI[2+"":,'Q_QUSY^GI,()ZPU9IHN8>TOBF9-.SIZV<_QA1_3"
^XMB(3.9,22,2,15963,0)="""DATA"",396.18,472,3,366,0)"
^XMB(3.9,22,2,15964,0)="M(#AAG\#:D^17'*?$1T$'#KWBM4K/0UVFYQV[UO.FUS9C3DO/&X4-&JWGR^?!"
^XMB(3.9,22,2,15965,0)="""DATA"",396.18,472,3,367,0)"
^XMB(3.9,22,2,15966,0)="M0U3]0*6_3+GJA[""E,F!;O`U[A.IG(RPB/D'1T7\9WE&BO<W(""FO7C!/%'95-"
^XMB(3.9,22,2,15967,0)="""DATA"",396.18,472,3,368,0)"
^XMB(3.9,22,2,15968,0)="MT""Y1RMA\,*;!-.2F06]955/@+7#=[<9AD:)HA>)5R<*W,5HQUFF+^R3%X7>D"
^XMB(3.9,22,2,15969,0)="""DATA"",396.18,472,3,369,0)"
^XMB(3.9,22,2,15970,0)="MIV=RT)1RT&P)I^V(#+2W,U!G/XZ7""2/G[]I'JH4%&T-ZAT/6II%$N\9!^D<Q"
^XMB(3.9,22,2,15971,0)="""DATA"",396.18,472,3,370,0)"
^XMB(3.9,22,2,15972,0)="M>'TLM`:PT!58:)3#OX>%E64`[.(J1C[^>RF-/HHTYKAP#FHIU5+^#!S]I""VS"
^XMB(3.9,22,2,15973,0)="""DATA"",396.18,472,3,371,0)"
^XMB(3.9,22,2,15974,0)="M5(MHS67FV:PR_TC[2_4LO/KC^!B?F8GX'*-U_OG95ASL`3B`TE.K@-`'*`/("
^XMB(3.9,22,2,15975,0)="""DATA"",396.18,472,3,372,0)"
^XMB(3.9,22,2,15976,0)="M?EQ0&E?\%QB,5QJ-@GOM*V'/O(G1'4GO-1R0D$0H/6""..T,X;@K.,.S,:J""M"
^XMB(3.9,22,2,15977,0)="""DATA"",396.18,472,3,373,0)"
^XMB(3.9,22,2,15978,0)="M%'TCIX_T<1[=(!(E:<GW8A""P`1+15*--T6>NA$\9HU!TK\4X(0E3\3X^6'#<"
^XMB(3.9,22,2,15979,0)="""DATA"",396.18,472,3,374,0)"
^XMB(3.9,22,2,15980,0)="M(>""X0`#'@L/!,=G%6TI7`\!)..-KIA<@-<'A:)4W_RFB<8B""/ST%E+P!*,&N"
^XMB(3.9,22,2,15981,0)="""DATA"",396.18,472,3,375,0)"
^XMB(3.9,22,2,15982,0)="MTO*V*RV+_?B8,[*+#[<?M!P/3X+=FPF\)Y_``TMO,=P2(C&.(XX*YX`F\/J8"
^XMB(3.9,22,2,15983,0)="""DATA"",396.18,472,3,376,0)"
^XMB(3.9,22,2,15984,0)="M"";PR>.A))I5./:4$>G-*Z9B@-:4T(7CBH4.H4A&&W,I""NR6R0OP+>.;P^6,U"
^XMB(3.9,22,2,15985,0)="""DATA"",396.18,472,3,377,0)"
^XMB(3.9,22,2,15986,0)="MQ:'96GL?_9;%]P<S1;05$QRS-44T2G95=K`<='T:]L_:!5.9C/9L&9+<$4>K"
^XMB(3.9,22,2,15987,0)="""DATA"",396.18,472,3,378,0)"
^XMB(3.9,22,2,15988,0)="M%2,FC0E.<K_\%K/.,$0;AO9I)D<16G0$0H7)K-F91\@T$T;QT</&[394FPJJ"
^XMB(3.9,22,2,15989,0)="""DATA"",396.18,472,3,379,0)"
^XMB(3.9,22,2,15990,0)="M;;--M1""]<RQ1GYJ]^K1!M3&'ZES$3^@WP.<*Y47;$K0MKR4XK[;7D0OH=H,'"
^XMB(3.9,22,2,15991,0)="""DATA"",396.18,472,3,380,0)"
^XMB(3.9,22,2,15992,0)="M#<Q;Q&^^4A(""A:T0:$6.6UZ7SG1Y71'DP+*I)DFO_JR*A>J&;1V5K4.&==_`"
^XMB(3.9,22,2,15993,0)="""DATA"",396.18,472,3,381,0)"
^XMB(3.9,22,2,15994,0)="M5D9$M\9$%4:J)R[:B(RJC=F6Z*C,VFWDHT^X;;EP&Z50#!9N27@I5QE=`8%S"
^XMB(3.9,22,2,15995,0)="""DATA"",396.18,472,3,382,0)"
^XMB(3.9,22,2,15996,0)="MI'O#`_J-C\KJHD^\!:OA`'$R#&'Y,33^O>+Q7WDTX@L/A]5>EZ9QGM>W7*+H"
^XMB(3.9,22,2,15997,0)="""DATA"",396.18,472,3,383,0)"
^XMB(3.9,22,2,15998,0)="M!N>!>UW6+7W""<9;2XI9MOHK44`H!@%H;E214WRV.HG)42_1]""[83NKK7F`PB"
^XMB(3.9,22,2,15999,0)="""DATA"",396.18,472,3,384,0)"
^XMB(3.9,22,2,16000,0)="MC41WE#D7Y=Q^@X=*WT""SHV_:/E(W6MD8XJ[>H<XH<9$8]*8AKPB429F4C8XE"
^XMB(3.9,22,2,16001,0)="""DATA"",396.18,472,3,385,0)"
^XMB(3.9,22,2,16002,0)="M<K&KC""IU9-4ME>=1.AH*;K8(+B@%F^A@PKB:T_RJ(KKBJYQ66TDK-*P.M>:#"
^XMB(3.9,22,2,16003,0)="""DATA"",396.18,472,3,386,0)"
^XMB(3.9,22,2,16004,0)="M4`LG4^LHJ35M\Y%X:TREUC64U`+0(=8!#T*M.9E:<Y0D/!""YUF1RK5&B\$#D"
^XMB(3.9,22,2,16005,0)="""DATA"",396.18,472,3,387,0)"
^XMB(3.9,22,2,16006,0)="MVA/(_71Y3I*4:2U.<76Q7348,I++-=L6R5:S<>.N0`/H\*AN?_,M913BU0('"
^XMB(3.9,22,2,16007,0)="""DATA"",396.18,472,3,388,0)"
^XMB(3.9,22,2,16008,0)="MG#;!]FO:^Q2'4A[P#H5;P1R+CS3""1ZT69I;6^'>2A>WF<WR'4N8'+7RTS@(D"
^XMB(3.9,22,2,16009,0)="""DATA"",396.18,472,3,389,0)"
^XMB(3.9,22,2,16010,0)="M_!&;N\0HS1+M`[J)LJ1V5S0VM0I24E%=6[K:F5G<TJ^;SQ8^2MW3M8?EMUZ1"
^XMB(3.9,22,2,16011,0)="""DATA"",396.18,472,3,390,0)"
^XMB(3.9,22,2,16012,0)="M=>VQ?2;1BGYM8$6C&PZ@^,#MX-N]X$M&&/3FPF_L`_X+]G@:HX!P+']C;'SA"
^XMB(3.9,22,2,16013,0)="""DATA"",396.18,472,3,391,0)"
^XMB(3.9,22,2,16014,0)="MTR1E_W`<H4""C,;DAT4M!-E!*DH2PH:6]IG%""-!2MM""O,9H;%,]1O()'8>WE+"
^XMB(3.9,22,2,16015,0)="""DATA"",396.18,472,3,392,0)"
^XMB(3.9,22,2,16016,0)="MPR4EJT1[4;R?K^'RVU[N5*C`3H3*Z14JB1XT]*Y00=T>(53F]R%4IP&Z(SY3"
^XMB(3.9,22,2,16017,0)="""DATA"",396.18,472,3,393,0)"
^XMB(3.9,22,2,16018,0)="M)#$C&:T$@7J-@Y3)P$X1ASM!W.U%7.)6N/9<-6+M`_%%MHY1LN:K?\P<M+K>"
^XMB(3.9,22,2,16019,0)="""DATA"",396.18,472,3,394,0)"
^XMB(3.9,22,2,16020,0)="M1]=UU]\V:J*K""-C\,""EL34R$)YPR6?+IDOVX)5RH=BHGQD[DQ!MK;AY`4.Q]"
^XMB(3.9,22,2,16021,0)="""DATA"",396.18,472,3,395,0)"
^XMB(3.9,22,2,16022,0)="M"",H)\?%:P/=D@ZRLE?(LE)V#;NX$=*""/M0=2U,<9!&<_3J8$]N/(9S?NV'NT"
^XMB(3.9,22,2,16023,0)="""DATA"",396.18,472,3,396,0)"
^XMB(3.9,22,2,16024,0)="M'A/9TXO/'RZ9O-)\]I&GR;2;NAB+""'M0!C""4`-S4""8V@I]4<UIPEQ;)1ERG_"
^XMB(3.9,22,2,16025,0)="""DATA"",396.18,472,3,397,0)"
^XMB(3.9,22,2,16026,0)="MS)*47-_G4'9XS5LOT*JQBM(;Q]""2E&%SD]XVWLWXFH514J_4Y!(7H66`5W)1"
^XMB(3.9,22,2,16027,0)="""DATA"",396.18,472,3,398,0)"
^XMB(3.9,22,2,16028,0)="M4TN4KK5%!PC74+@VA&M3N+:TIM`UQ,,>B[$[`6,`'0G(P)6![$I!=O6=@'S%"
^XMB(3.9,22,2,16029,0)="""DATA"",396.18,472,3,399,0)"
^XMB(3.9,22,2,16030,0)="MW/P,:P%-F'M.(LVGX9J;9]:;4HVNUS0A*0.?K/#+?TBAA[.A_U\LJ(V/5(&="
^XMB(3.9,22,2,16031,0)="""DATA"",396.18,472,3,400,0)"
^XMB(3.9,22,2,16032,0)="M,Q:[[=#!)E(/,4""9!H:['*#PT`:H.Q+D(3K8<A\>9&>'(!N'!K(W$N3<D1JK"
^XMB(3.9,22,2,16033,0)="""DATA"",396.18,472,3,401,0)"
^XMB(3.9,22,2,16034,0)="MA:$%YH+L[A!D\]!`!OI8E,$DA?T`.'L[Q-DZ.)S!6)SA))T]'V=#WR'.]L'A"
^XMB(3.9,22,2,16035,0)="""DATA"",396.18,472,3,402,0)"
^XMB(3.9,22,2,16036,0)="M#,?B;$P:SW+O63H'EGG/'&?K>_"">TUOVRN_$=:[G]D.Q,R>-T2IU:#IV]C-V"
^XMB(3.9,22,2,16037,0)="""DATA"",396.18,472,3,403,0)"
^XMB(3.9,22,2,16038,0)="M`G;F6)=X2EP""NJ8,.7,$<LXS<@)RUECD[&D>T'SLW&?L!.S&1HHL9YI7,Q\["
^XMB(3.9,22,2,16039,0)="""DATA"",396.18,472,3,404,0)"
^XMB(3.9,22,2,16040,0)="M[QD[`;MNI&A;-IOQ766SU5,G658@4&<&`7-0BICIC4X1@UJ$_2]3LX,`<'NR"
^XMB(3.9,22,2,16041,0)="""DATA"",396.18,472,3,405,0)"
^XMB(3.9,22,2,16042,0)="MF8S'(MJ82G2U:).G.?8L\)K#TD1T"">G-@=\8SJW0[\X6<-[=4U+N#'^1"",OW"
^XMB(3.9,22,2,16043,0)="""DATA"",396.18,472,3,406,0)"
^XMB(3.9,22,2,16044,0)="M""YXLPD;X?<P7\=LK^^0&L0D.\>5)1TDK,^!]E/`D9AI)G\_>3%8T9(_;=:K`"
^XMB(3.9,22,2,16045,0)="""DATA"",396.18,472,3,407,0)"
^XMB(3.9,22,2,16046,0)="M;C*.H+5E#=AX>%D""^\D56%+?)VN2BDN^YRCE)7WRQ&F\C,7NXXAU$\;XNO]@"
^XMB(3.9,22,2,16047,0)="""DATA"",396.18,472,3,408,0)"
^XMB(3.9,22,2,16048,0)="M,@':GH$]P$7O3JZ`U%4`,E?!D,N#L<NEB8-;FQ@;Z+*=:0$0($T"",$;@;.X2"
^XMB(3.9,22,2,16049,0)="""DATA"",396.18,472,3,409,0)"
^XMB(3.9,22,2,16050,0)="MYX-;GA@[X;;=:3B;@Y,]5#@_N_ZJ](^!T'G>%$5L6G.!>YYOJ](U!T_9X'<U"
^XMB(3.9,22,2,16051,0)="""DATA"",396.18,472,3,410,0)"
^XMB(3.9,22,2,16052,0)="M9?-Z9S_ZF!F;)(0*'&/TY`?PZ@=K$O,T__M9<R`X<@[4%/I^O]60^ZV.MY<D"
^XMB(3.9,22,2,16053,0)="""DATA"",396.18,472,3,411,0)"
^XMB(3.9,22,2,16054,0)="MMEN>ATK\UN[Q`]K[(&B^`<Y)QV0YTB4X?83B@[OT3,!3]T`]=P+(0)]MWIZ7"
^XMB(3.9,22,2,16055,0)="""DATA"",396.18,472,3,412,0)"
^XMB(3.9,22,2,16056,0)="M`F:;-S#+O($'-F]NGWG3>\P;[$B7+*AAP='F3=?R/0?!+,MF]%NV#O&&+##I"
^XMB(3.9,22,2,16057,0)="""DATA"",396.18,472,3,413,0)"
^XMB(3.9,22,2,16058,0)="MCDC/=MR]1&20'].""782'Y'!\QTL)O.R]JS2'_7>=9^&2)JR-/^Y03>6D1&]W"
^XMB(3.9,22,2,16059,0)="""DATA"",396.18,472,3,414,0)"
^XMB(3.9,22,2,16060,0)="M<+:*7(DZ8)>F4G_RIM*>DNEM2!TB9X2I?,YWF&TJ]>]J)NCTF$I/O4N^:1=["
^XMB(3.9,22,2,16061,0)="""DATA"",396.18,472,3,415,0)"
^XMB(3.9,22,2,16062,0)="M5L'@:$L)O%DF$O2;2*^[H""TSD=[P10MG+_O6+MGCLT0[7JYH2"")QCR,G(]\O"
^XMB(3.9,22,2,16063,0)="""DATA"",396.18,472,3,416,0)"
^XMB(3.9,22,2,16064,0)="M_6D9D/]D6-P!V==[%:,HN<-QDN]R:W7]3X96Q3[[W(S&67BP)G1`+B#0NY%P"
^XMB(3.9,22,2,16065,0)="""DATA"",396.18,472,3,417,0)"
^XMB(3.9,22,2,16066,0)="M:9Z^-\*([C+ELQII3]>(FI-@EL=3I0L>0&Y%GS,^YUK1O-KE]V-%[3XKJH^Q"
^XMB(3.9,22,2,16067,0)="""DATA"",396.18,472,3,418,0)"
^XMB(3.9,22,2,16068,0)="MHK)]U""X8;47MTGIJ:QRPZ9-V0^(5KT!;V-:AF3`>5""?""F,9C$>\\$/%F3Y$?"
^XMB(3.9,22,2,16069,0)="""DATA"",396.18,472,3,419,0)"
^XMB(3.9,22,2,16070,0)="M][&(=V<37^_(=K?LR!Y6]<>5I><Y<G?&WDN]A@L2DVL:AZ+'\1:'.`AX7LXB"
^XMB(3.9,22,2,16071,0)="""DATA"",396.18,472,3,420,0)"
^XMB(3.9,22,2,16072,0)="M6Q?)%I0GYESGOPM3_4_+-,N7#[07E8O#+DIGZ*7*F3G#(8UWO*/?WLV._BUU"
^XMB(3.9,22,2,16073,0)="""DATA"",396.18,472,3,421,0)"
^XMB(3.9,22,2,16074,0)="M'+HC>+[\[*7""R]L@2W%>_^D;KP.DZ,0KHNPC4?Z'AU?*`^HC9T3S16`_E:,2"
^XMB(3.9,22,2,16075,0)="""DATA"",396.18,472,3,422,0)"
^XMB(3.9,22,2,16076,0)="MBL12+P%!OH@X+P9$=E[G88=S%QM.<FIU=W!BMWR[FKW+/<;,OWGRDY<!NXQE"
^XMB(3.9,22,2,16077,0)="""DATA"",396.18,472,3,423,0)"
^XMB(3.9,22,2,16078,0)="ME7KF`[W+?<;,%WSR^5I#MI/;\!&`WN5&8^8W'QC.8PN`>&!:-$*:9FN-""#K!"
^XMB(3.9,22,2,16079,0)="""DATA"",396.18,472,3,424,0)"
^XMB(3.9,22,2,16080,0)="MYVC$MFC$%N3@-%4\'SKC&;IY&94VF*9<YT-G/D.G;:FELRT&Z'Y7,4""S+^G$"
^XMB(3.9,22,2,16081,0)="""DATA"",396.18,472,3,425,0)"
^XMB(3.9,22,2,16082,0)="M<,<DG<A*C]OC0U',<7A?QJ(""%*4H[D:AAAY&T7\<A?+,I*JK[[R9ZJ;NL11]"
^XMB(3.9,22,2,16083,0)="""DATA"",396.18,472,3,426,0)"
^XMB(3.9,22,2,16084,0)="M1TYLV<1G>&-8;LO""?Z8SG.>?\K%$!'XS9R;S4];T)%ANZCW[)H>)N>7,$?,5"
^XMB(3.9,22,2,16085,0)="""DATA"",396.18,472,3,427,0)"
^XMB(3.9,22,2,16086,0)="MY0N73TG*33""*Y7(Q-Z:*^8;?3TK*7?6A%V9SCTR/D$](BYA\1H?KC"")7*B`3"
^XMB(3.9,22,2,16087,0)="""DATA"",396.18,472,3,428,0)"
^XMB(3.9,22,2,16088,0)="MZ)UT2D==['YXDF-KC:8_R]L!TO*5-MQ/5?(XKS?+?+/HAB]Q7+'W=C8;\V""@"
^XMB(3.9,22,2,16089,0)="""DATA"",396.18,472,3,429,0)"
^XMB(3.9,22,2,16090,0)="M=AW@;VR@:?1:NXDQ2O,*]P%)4R;3*14=K(N\7#Y?*[DB2\)&I_S)%QL+=;SF"
^XMB(3.9,22,2,16091,0)="""DATA"",396.18,472,3,430,0)"
^XMB(3.9,22,2,16092,0)="M9,0T$1=?\E>7=YV3&\1/KA1*8:/`1Q&F4;5INKIO8'15%@_?)A].CWS(=)Y<"
^XMB(3.9,22,2,16093,0)="""DATA"",396.18,472,3,431,0)"
^XMB(3.9,22,2,16094,0)="M0,P1`K*7B/8ITZD$I5C%^SCCFY/EG9L2]HK>*XJ+STBXD.3""P7-C&=XO93+*"
^XMB(3.9,22,2,16095,0)="""DATA"",396.18,472,3,432,0)"
^XMB(3.9,22,2,16096,0)="MWK+Q@8M[)V#KCEBT`ELVGL-AQQ+(\+455:CWDN9<(?`.!0&#.M%.8GQ'$L5="
^XMB(3.9,22,2,16097,0)="""DATA"",396.18,472,3,433,0)"
^XMB(3.9,22,2,16098,0)="MK\D-27G257G;P=2IKJ&'8Q/<9R._EZU;9[D^[R+:+B^P7&7\W(I*/!3=^5-("
^XMB(3.9,22,2,16099,0)="""DATA"",396.18,472,3,434,0)"
^XMB(3.9,22,2,16100,0)="ML8))5&O<A1H7R.!9?#'/K!<MR(:^7KD\7O62U_S$DCCI<UX7'F2^8D^3!!--"
^XMB(3.9,22,2,16101,0)="""DATA"",396.18,472,3,435,0)"
^XMB(3.9,22,2,16102,0)="M;J;J&PZPV`;HW]DA\].D1@TZ`XT:%_V]5-LH7!(F4V7UC*W:[CQWC[:I3ME="
^XMB(3.9,22,2,16103,0)="""DATA"",396.18,472,3,436,0)"
^XMB(3.9,22,2,16104,0)="ME8=UQ>NX['C%%^QF>1^88R5'JC.E@J/2F?H>SVS0%LSKP=J+M[R.#_4C'/*R"
^XMB(3.9,22,2,16105,0)="""DATA"",396.18,472,3,437,0)"
^XMB(3.9,22,2,16106,0)="M/=P?7M""`8?U2(6Z54ZP0D5[YD>DM44?*'M#1\]*WT#5SY7&GN=![.[;S8(>)"
^XMB(3.9,22,2,16107,0)="""DATA"",396.18,472,3,438,0)"
^XMB(3.9,22,2,16108,0)="M""HXQ99^2-[.JKKG+HC)`UX3(ZY--5W`&G6]@/3S>YF[Q;D4@G^Q!),Z`0B6F"
^XMB(3.9,22,2,16109,0)="""DATA"",396.18,472,3,439,0)"
^XMB(3.9,22,2,16110,0)="MJ3\\VM8NT0;:DZ^.[NJ3@(:6-1?IG1XL!`\/Z;%I2""Z<M.-T>+U8^3JY^5Q["
^XMB(3.9,22,2,16111,0)="""DATA"",396.18,472,3,440,0)"
^XMB(3.9,22,2,16112,0)="M:&9VB@LF6=X'@.ZYKL;,E##7F*1=%=""Y(Z![+M4FZLO1P\Z<9AE=Z6EL(\IF"
^XMB(3.9,22,2,16113,0)="""DATA"",396.18,472,3,441,0)"
^XMB(3.9,22,2,16114,0)="M6OHS=MJ\RO:N-4EE*KR:$2FW%GC&3IMU^)9K3SI\RQJL,!7`/2?1;DUSWY;."
^XMB(3.9,22,2,16115,0)="""DATA"",396.18,472,3,442,0)"
^XMB(3.9,22,2,16116,0)="MYWQ7Z7Q&3TZ%""4?M+)5H]%;5W&$I%=[4#)`\T*;:Q`L?B5IW,K7FF+2]AR'6"
^XMB(3.9,22,2,16117,0)="""DATA"",396.18,472,3,443,0)"
^XMB(3.9,22,2,16118,0)="MF55S9,LF76](P4GYW!<X4FVC>WNJ.(DC%&MO0A+AR!>+=MW2.-7.-IDJ+ZYN"
^XMB(3.9,22,2,16119,0)="""DATA"",396.18,472,3,444,0)"
^XMB(3.9,22,2,16120,0)="MLW`I;M!=\U232-%;+6C*>U=]O>_NUUSW#:;.8CP_8U^-8R6)REMJ.I6W-!96"
^XMB(3.9,22,2,16121,0)="""DATA"",396.18,472,3,445,0)"
^XMB(3.9,22,2,16122,0)="MM2VKG4+0'P7A_M8Z=[,IV=BR)QE.'RZN8K3L);WC%,5K!G6Y5""DN#>5RH^K-"
^XMB(3.9,22,2,16123,0)="""DATA"",396.18,472,3,446,0)"
^XMB(3.9,22,2,16124,0)="M95S5N<AX.3LF@0>X6]D<FP`R6S;V<@!]E9@A#/^8YL#R!6MY3D:>`\@TG<:E"
^XMB(3.9,22,2,16125,0)="""DATA"",396.18,472,3,447,0)"
^XMB(3.9,22,2,16126,0)="M*Y,E[#7N*V0L^5LN30>[W=F;=.2Y,3/\;.RRW*'SY!</)^YUAN9<F'=9`-I]"
^XMB(3.9,22,2,16127,0)="""DATA"",396.18,472,3,448,0)"
^XMB(3.9,22,2,16128,0)="MZCN=K4ECV88S#_$TGP-F,Y<8G(D;8.=#]QPOV[H!=EO8Q?JNPBY6WU86,+N2"
^XMB(3.9,22,2,16129,0)="""DATA"",396.18,472,3,449,0)"
^XMB(3.9,22,2,16130,0)="MFCMZ(XM1[^FK-E:DM^Q/RYC!T'TX#U!*;?2Q&L""LJ$?1'.*]V:74G/&LMRKB"
^XMB(3.9,22,2,16131,0)="""DATA"",396.18,472,3,450,0)"
^XMB(3.9,22,2,16132,0)="M0[SB.UE&DEYG26XYS$X?5`3)DRFF5F,C'KR7+2,G18YD6=&L/6W$(0EQN(Q1"
^XMB(3.9,22,2,16133,0)="""DATA"",396.18,472,3,451,0)"
^XMB(3.9,22,2,16134,0)="M1#-)'R>11#0YI,I(M0#8#U();90$F/NIG1^S""62GSMFF7K!4,'Y%"">\KZN1E"
^XMB(3.9,22,2,16135,0)="""DATA"",396.18,472,3,452,0)"
^XMB(3.9,22,2,16136,0)="M\LX\(A5*""J@U^SM_?%4D:9^AQ""<(:^>(;T$XO*!%OG`QOTSC*.':2YG&*@@K"
^XMB(3.9,22,2,16137,0)="""DATA"",396.18,472,3,453,0)"
^XMB(3.9,22,2,16138,0)="MRV.N.GMWBWQ`-QTQ><L/;@@.J0*C,*T9DOIJ=+=X0'?F[-7::4DV\\E7ZG('"
^XMB(3.9,22,2,16139,0)="""DATA"",396.18,472,3,454,0)"
^XMB(3.9,22,2,16140,0)="M'%(%C$?`>:>YD,:3+[UGP6E%@^1`.R.`WFGI/4M[ZB797'>:YK;GID[:SR&I"
^XMB(3.9,22,2,16141,0)="""DATA"",396.18,472,3,455,0)"
^XMB(3.9,22,2,16142,0)="MK7&-+=!YDW3Q;.2LY\S)F<%$RYBF7></NN=@XM:R#8I@XBD-EY1-?O)!M_E="
^XMB(3.9,22,2,16143,0)="""DATA"",396.18,472,3,456,0)"
^XMB(3.9,22,2,16144,0)="MB""6"">G./F+LC.5BOP@K69P.6!3E<TZOGUHK)C2S""T,,5GB""2!?S^MT6U?KZC"
^XMB(3.9,22,2,16145,0)="""DATA"",396.18,472,3,457,0)"
^XMB(3.9,22,2,16146,0)="M]#@.&WPZ.J,Q1G&8=[UC/]I]M*C*<HYOFNU7/&#5;+@HS@0HWM+LV!SE@P+M"
^XMB(3.9,22,2,16147,0)="""DATA"",396.18,472,3,458,0)"
^XMB(3.9,22,2,16148,0)="M,PJ""9L\B/[VNV7)9GY3;;/Z(_2\ED""J<6L/*5.O(#6A&70ZH`,T2,:L/CI,<"
^XMB(3.9,22,2,16149,0)="""DATA"",396.18,472,3,459,0)"
^XMB(3.9,22,2,16150,0)="MD]NHH>+4<Q'UT.H96+)AU1A4""S9@^)IW'C""LN2(9-GU2<,F_H,E2SH9Z;'1="
^XMB(3.9,22,2,16151,0)="""DATA"",396.18,472,3,460,0)"
^XMB(3.9,22,2,16152,0)="MQ@V;\__R'VUV7Z`(!WEX(/^-WUJE,N1/V,35<[$M.6H5ZJFQ])'?6O+RXM/%"
^XMB(3.9,22,2,16153,0)="""DATA"",396.18,472,3,461,0)"
^XMB(3.9,22,2,16154,0)="M+Q<YC2?X#@?OHR@G:'EWB4B""<W(*YI8UKY;)@GUJD'.RGN,N2'""'8]ZVO4R7"
^XMB(3.9,22,2,16155,0)="""DATA"",396.18,472,3,462,0)"
^XMB(3.9,22,2,16156,0)="MJD""7M#37EJ)<DG)<\D)<8AA'5OP,""E45JWCN1B@+]FXN*BU3]M9J8R-1G>6*"
^XMB(3.9,22,2,16157,0)="""DATA"",396.18,472,3,463,0)"
^XMB(3.9,22,2,16158,0)="M5]K""1_&+:E?YD(IFZFIF(KN,1G-?%;,VRZZ3$QJL-G7,Y*S;2*6T*""*0<\QJ"
^XMB(3.9,22,2,16159,0)="""DATA"",396.18,472,3,464,0)"
^XMB(3.9,22,2,16160,0)="M,@Q8NL`RZ(DL,SHL>XT3/R9+S%Z?QO?:5YHQ?9@P_I7)E!)SU4<IE%-:+H(H"
^XMB(3.9,22,2,16161,0)="""DATA"",396.18,472,3,465,0)"
^XMB(3.9,22,2,16162,0)="M285C2/U&TOF4&@-X:@A26%4HZZ-S07XO3-$*IXAPBE8YY<4-3-UAY-^V*/_,"
^XMB(3.9,22,2,16163,0)="""DATA"",396.18,472,3,466,0)"
^XMB(3.9,22,2,16164,0)="MAO[G&*T;VK./<E-*.?!:I,/24G?L=!_M%UERJRVR9<@XS/R:-SQ""K+WA]/(Q"
^XMB(3.9,22,2,16165,0)="""DATA"",396.18,472,3,467,0)"
^XMB(3.9,22,2,16166,0)="M]2@#""DP:4%.'DBT74*,,V6YPAR+SR@E_[>)TU<^?M8L8)TF#?VBUR@<6P0F_"
^XMB(3.9,22,2,16167,0)="""DATA"",396.18,472,3,468,0)"
^XMB(3.9,22,2,16168,0)="MY#E@BRP,467LAB)_DJ4IC4PNL\6O`O1ZB_K252ZI-SI2ZW6(/PWP'P?@_G!R"
^XMB(3.9,22,2,16169,0)="""DATA"",396.18,472,3,469,0)"
^XMB(3.9,22,2,16170,0)="MH[5V1B3U,CY%IP'QO[""6;P53WV)FEHF?MVZ#`BB@L-L*I-3!E><E0@%E4-`$"
^XMB(3.9,22,2,16171,0)="""DATA"",396.18,472,3,470,0)"
^XMB(3.9,22,2,16172,0)="M_W&@Z$X]9C$6RAD+/3"";L<7`_$-RUIG#66$""H=I:7'+::>G""<C=#G=`@JL)2"
^XMB(3.9,22,2,16173,0)="""DATA"",396.18,472,3,471,0)"
^XMB(3.9,22,2,16174,0)="MW32++Y8!%=6T03EIZ$X9&@""^3W*[R?0JFV\SEG&ERMP`'`?WS%O6TGR27L[`"
^XMB(3.9,22,2,16175,0)="""DATA"",396.18,472,3,472,0)"
^XMB(3.9,22,2,16176,0)="M.],(Y22B-;EN3*S%>,@0YL)1S#5$.U,6#&\DYG286YU>^[#,_26JQL8(UKV/"
^XMB(3.9,22,2,16177,0)="""DATA"",396.18,472,3,473,0)"
^XMB(3.9,22,2,16178,0)="M_-LF]TX9+""3$S&]()&P$2C9^P""'-ZZWS7WI<,B@:-[,CCU5#@V7&HXQZ*!GU"
^XMB(3.9,22,2,16179,0)="""DATA"",396.18,472,3,474,0)"
^XMB(3.9,22,2,16180,0)="MIS1C]C[6/N*O?6/^G$18SM&2;2JML/!C&@0G[!-8>Y+\RNND^2CH\-H;*K+&"
^XMB(3.9,22,2,16181,0)="""DATA"",396.18,472,3,475,0)"
^XMB(3.9,22,2,16182,0)="M*)$%0%0(3D=F[2X`YJ,JA#4BT766'QV8+ZO'N;M%,__V4;2!,92U9C]K@=OF"
^XMB(3.9,22,2,16183,0)="""DATA"",396.18,472,3,476,0)"
^XMB(3.9,22,2,16184,0)="MK""U.-\1);QFE:7(6/`IGCV/,_57V,\%K%/.2ML44D<]L\AD89WSR*.PU^[6$"
^XMB(3.9,22,2,16185,0)="""DATA"",396.18,472,3,477,0)"
^XMB(3.9,22,2,16186,0)="MMUU+6*;`R=)=KSAIB4K""-:L->D](2>B]K,Z/!MC""ZLKC5?/:D/#:4<_:GQ0`"
^XMB(3.9,22,2,16187,0)="""DATA"",396.18,472,3,478,0)"
^XMB(3.9,22,2,16188,0)="M5C\`0`J`$$Z9AH#[C$""=5-0?##8DP6""G#@47`Z+DOE-$C6K>>\X3#P6;RE""P"
^XMB(3.9,22,2,16189,0)="""DATA"",396.18,472,3,479,0)"
^XMB(3.9,22,2,16190,0)="M(K`)6G,]0;H-J`\/!9]E<;XV]SJ/Q>4[[/)PUB:S_3./(AY`G+B8#$)'-7>&"
^XMB(3.9,22,2,16191,0)="""DATA"",396.18,472,3,480,0)"
^XMB(3.9,22,2,16192,0)="MK4F'+81?RW.QZKFSWAL?ZB9KSIGQ&XJH%K2=%M6B32\GIC75;F\HI;NZ/8WJ"
^XMB(3.9,22,2,16193,0)="""DATA"",396.18,472,3,481,0)"
^XMB(3.9,22,2,16194,0)="MC5XI-D57%VV_KCUE$=PZIQ-,-$H)?D?CWRN]]=>KF(D7G]@VO3:NQ^I;+E%T"
^XMB(3.9,22,2,16195,0)="""DATA"",396.18,472,3,482,0)"
^XMB(3.9,22,2,16196,0)="MPR7'+D/J[6[I$XZSE!:W*,,-NFP=<C-F.ULBRA@J%)8=JXE#PS*YW95'*%D:"
^XMB(3.9,22,2,16197,0)="""DATA"",396.18,472,3,483,0)"
^XMB(3.9,22,2,16198,0)="M;*SF56%_E""0T/UMAI2UIA'_2&%9W[+\[E!3'6&R<?_:`?$&1Y)4A_""/M+XVG"
^XMB(3.9,22,2,16199,0)="""DATA"",396.18,472,3,484,0)"
^XMB(3.9,22,2,16200,0)="M!=DJCQ3P$SGX&0M:C/^3D5;Q"",4""O214JURQ+3@%5)R""]6)K>>PG$#DEV:-3"
^XMB(3.9,22,2,16201,0)="""DATA"",396.18,472,3,485,0)"
^XMB(3.9,22,2,16202,0)="M+Y0W$Q/NU_A%\I(KMI`D""6DL4$L_I)]B0X5MC9N28E""?I-=/<H5HD3:Q(?O5"
^XMB(3.9,22,2,16203,0)="""DATA"",396.18,472,3,486,0)"
^XMB(3.9,22,2,16204,0)="M'+HM!=V-#2P%W7:';,,91O6O.&#BE][/(=-6L=?<3B8<1N8I""AAKXSE4.@HJ"
^XMB(3.9,22,2,16205,0)="""DATA"",396.18,472,3,487,0)"
^XMB(3.9,22,2,16206,0)="M+;""52G<@,S]F(2.R(;3)#()5]`KJR.T*K#&,VCR-O""XV<T>9Z]50&,..S.H["
^XMB(3.9,22,2,16207,0)="""DATA"",396.18,472,3,488,0)"
^XMB(3.9,22,2,16208,0)="M,$MY7-:`P[(41V6IO.)>3EK&,%;*1K_E3AK]F+4'].:>RT*^ICM##SA*?:L+"
^XMB(3.9,22,2,16209,0)="""DATA"",396.18,472,3,489,0)"
^XMB(3.9,22,2,16210,0)="M>R(MKS.^!I*_8$Y[/$\-N$HE:VPETQIH%LZX7<.1/X=.3Z4'ZD1G)9WF0#I?"
^XMB(3.9,22,2,16211,0)="""DATA"",396.18,472,3,490,0)"
^XMB(3.9,22,2,16212,0)="M9S'BOT\G$^H*,H7,-:LKLY5?O(7*AO_P^9:?Y%7$QK1UC'VR)BG[`N93\,`8"
^XMB(3.9,22,2,16213,0)="""DATA"",396.18,472,3,491,0)"
^XMB(3.9,22,2,16214,0)="M""@)\1XKK:\0WSR3:-1OQU\P_P3]GZZ3MC?QCAJR#@9]M=V7(LL9^=KY;*?U)"
^XMB(3.9,22,2,16215,0)="""DATA"",396.18,472,3,492,0)"
^XMB(3.9,22,2,16216,0)="M(]?L,^]_TM9LY-[Q(#^*?N*LN&=^5)(%*=..?-&;\"">@0`M(F'.'MC\[SX(("
^XMB(3.9,22,2,16217,0)="""DATA"",396.18,472,3,493,0)"
^XMB(3.9,22,2,16218,0)="M:9$/$6\4P746^9L_(^$:D3AWSU99G/MKC-LE#Q_#4U,QL^'3;&8AGM'1?(UL"
^XMB(3.9,22,2,16219,0)="""DATA"",396.18,472,3,494,0)"
^XMB(3.9,22,2,16220,0)="MQS&:+[G___:N];EM',G_*ZQ\<7*5F2%>?*1N:RHSR5Q2E6Q23F:G[B,MT39W"
^XMB(3.9,22,2,16221,0)="""DATA"",396.18,472,3,495,0)"
^XMB(3.9,22,2,16222,0)="M)%%'2DZ\?_T!X!-`@P3U2F(KM;5C4[($=#?ZA>Y?+]>;?%F.[N?!V)?`2F:L"
^XMB(3.9,22,2,16223,0)="""DATA"",396.18,472,3,496,0)"
^XMB(3.9,22,2,16224,0)="M4;E3'ZUG$3CZ/]M""W@SJU!WF?^QH]T*S_!4[>KUO5_Q4B';H-O3@9T7*=98N"
^XMB(3.9,22,2,16225,0)="""DATA"",396.18,472,3,497,0)"
^XMB(3.9,22,2,16226,0)="M]K%ZR*H!S3@#6+^KIGXGFTFJ<LUJ)[=Y*93?(OO/GBH<8?>X(S2*67&(I\:4"
^XMB(3.9,22,2,16227,0)="""DATA"",396.18,472,3,498,0)"
^XMB(3.9,22,2,16228,0)="MGS,N\4(O%^EF6\@2[OEV<R^4D519HF:K_GTNM)RH\96?LA'J?[Y5U1E_XTP4"
^XMB(3.9,22,2,16229,0)="""DATA"",396.18,472,3,499,0)"
^XMB(3.9,22,2,16230,0)="M(GNK?./QXRU4X;('E'``-27O/=1<L#WN)EW]?.O=T-BL^`V`(NT@/+TVPJ`V"
^XMB(3.9,22,2,16231,0)="""DATA"",396.18,472,3,500,0)"
^XMB(3.9,22,2,16232,0)="M,O/#5EUDS1'WLL1#HV,',\4@`+^%35UW,=1<;#V5*#!/I:GN&,BO:(Q?PXW&"
^XMB(3.9,22,2,16233,0)="""DATA"",396.18,472,3,501,0)"
^XMB(3.9,22,2,16234,0)="MEDK\H7KKW[;<R5$*KC_=IEKU^RV7ZU6J/),SB#MNV'N%ASN%;<^A+N&1'F&X"
^XMB(3.9,22,2,16235,0)="""DATA"",396.18,472,3,502,0)"
^XMB(3.9,22,2,16236,0)="M0WCH!&++""32T%`(R7]B-HR$YG\""!$Q@ZM;2P@986/24$V$1&W%I:@GB,5^.="
^XMB(3.9,22,2,16237,0)="""DATA"",396.18,472,3,503,0)"
^XMB(3.9,22,2,16238,0)="M+DYG[HV`4+G3,U`2/O`+^/S/U=^K_,MJK+.D)E%H)Y>1FMJ#7*&_/[FH""[G>"
^XMB(3.9,22,2,16239,0)="""DATA"",396.18,472,3,504,0)"
^XMB(3.9,22,2,16240,0)="M)<5-ZLVT5)A03$L>H4$O3*-79*>7D20SD^#N]$+[TXLY-5+)""\8^/:1Z7JO/"
^XMB(3.9,22,2,16241,0)="""DATA"",396.18,472,3,505,0)"
^XMB(3.9,22,2,16242,0)="MW&@D%:4/*TK]@L""(R(/`3""!VV88^::*+LSKL+FJ<.L=""-M8YIH5A@1&%H<`4"
^XMB(3.9,22,2,16243,0)="""DATA"",396.18,472,3,506,0)"
^XMB(3.9,22,2,16244,0)="MW5[FK.4/""_%1.\=>][*&UNXQ)\WZ7KLT:3V5OL?#`W:'AC*P@(,XG03(8<""^"
^XMB(3.9,22,2,16245,0)="""DATA"",396.18,472,3,507,0)"
^XMB(3.9,22,2,16246,0)="MD\/`QK7JHSXA>,()(73B""<&AF4C&&$#7@YR'X*A'Y*^TK>#;X>;TUUV[,=4^"
^XMB(3.9,22,2,16247,0)="""DATA"",396.18,472,3,508,0)"
^XMB(3.9,22,2,16248,0)="M9:5+&1C,X\85-)4K%#A-L1M7CJRX_DI*F?2IVM<2_C/?SLWM3\EJ_E/]<ZW0"
^XMB(3.9,22,2,16249,0)="""DATA"",396.18,472,3,509,0)"
^XMB(3.9,22,2,16250,0)="MCLT!-(4#9+3G&+%Q'A`S549`OR<\(0_J;-;BGO]TS2D@#DEZG?-C<YMR/W%U"
^XMB(3.9,22,2,16251,0)="""DATA"",396.18,472,3,510,0)"
^XMB(3.9,22,2,16252,0)="M<VQ&D""F,F&K""J7E'BS%Q9`,]*ANZ""N/V=D3>""U256=4A$+FT;+[E7WAD+F#L"
^XMB(3.9,22,2,16253,0)="""DATA"",396.18,472,3,511,0)"
^XMB(3.9,22,2,16254,0)="MY/C+`@F+YV_>,IJY2D1B!]=?0-P?(%3""C@[00D%%>)_SO^:V0@F;Q*5GZA@<"
^XMB(3.9,22,2,16255,0)="""DATA"",396.18,472,3,512,0)"
^XMB(3.9,22,2,16256,0)="MR;(76S09X</1*(H.0"".G>/*O-/U[H<37KSE![CTL,L?$^\)?+LU7D7@5>TON"
^XMB(3.9,22,2,16257,0)="""DATA"",396.18,472,3,513,0)"
^XMB(3.9,22,2,16258,0)="MOMP""+Q/Q,K6^S,3+`?#RA]6,FW3OOJO'JU$/2J'6DI5\A:_6C5O!0""AKW//N"
^XMB(3.9,22,2,16259,0)="""DATA"",396.18,472,3,514,0)"
^XMB(3.9,22,2,16260,0)="MPZSP`,QR""F;?<""]4(5C-AWERKSR6]`^-Q_6[#9[^EF[XLQ5_25ST4O,-[W.I"
^XMB(3.9,22,2,16261,0)="""DATA"",396.18,472,3,515,0)"
^XMB(3.9,22,2,16262,0)="MT#@#DHIK#H$RBN'P0+_$-<.#(``RQ""#AXW.D7/2NA`:X$;@Q(Z).S(@AM8[."
^XMB(3.9,22,2,16263,0)="""DATA"",396.18,472,3,516,0)"
^XMB(3.9,22,2,16264,0)="MS)#,""""<X/2@<<WKT""S""S'B5R0[S!/0RW8_@\'Y-L->C)?)=W_3NZ5W9!`<9\"
^XMB(3.9,22,2,16265,0)="""DATA"",396.18,472,3,517,0)"
^XMB(3.9,22,2,16266,0)="M.DD""]L<D`2$Z*@N]2;O#PM`#[#V&,+Q*9T6:E-P2SG+^T?4=\UD\%/$(IBB*"
^XMB(3.9,22,2,16267,0)="""DATA"",396.18,472,3,518,0)"
^XMB(3.9,22,2,16268,0)="M:#0Z""AW$`R%'\3AN`N?MJA&/:RX8-\E5ML@V]V?Q4,1CDAT914ZC?C1N29BC"
^XMB(3.9,22,2,16269,0)="""DATA"",396.18,472,3,519,0)"
^XMB(3.9,22,2,16270,0)="M)4%'3N\E?W-K79[E09&':(H\C""93&(D/:$V.F]7ZDX>%Q8;[%YO[JKSR+A55"
^XMB(3.9,22,2,16271,0)="""DATA"",396.18,472,3,520,0)"
^XMB(3.9,22,2,16272,0)="M9F?Y4.0CGB(?P52_,S;""M!@8M1-#PA$=53@^]""M.SR*AA""+^:%R(+5&Z41W<"
^XMB(3.9,22,2,16273,0)="""DATA"",396.18,472,3,521,0)"
^XMB(3.9,22,2,16274,0)="MLQ]ML340&M(0RK;&YVN\H8AQ_*X5NY9G]7#ZA\JSS`))3%"",SFP:*I!T.$V6"
^XMB(3.9,22,2,16275,0)="""DATA"",396.18,472,3,522,0)"
^XMB(3.9,22,2,16276,0)="M*W&S+C)&+G61E$%LPF<V#;`I'N<2=2M<B)%+X0+,HW.EXQ""/(A.MV-+V'\`-"
^XMB(3.9,22,2,16277,0)="""DATA"",396.18,472,3,523,0)"
^XMB(3.9,22,2,16278,0)="M]""T.]!X-]`IDGEGYXM9!;\75P!#(,NHA:U3'O;6E2`59QGZ\$[)&*ZD/$6R#"
^XMB(3.9,22,2,16279,0)="""DATA"",396.18,472,3,524,0)"
^XMB(3.9,22,2,16280,0)="M6<`VX@""&C8W""(=AE$KAC;;Q=E9MB*YNXRH>""O1R',%YL-(3B1ZF.4$(,,,H6"
^XMB(3.9,22,2,16281,0)="""DATA"",396.18,472,3,525,0)"
^XMB(3.9,22,2,16282,0)="MQJ:N@;^2Q\=[\MLV6\R]CT7.]>'RB;B+$EF@C;CQ6XA:=1[:K:L72TZL)%OV"
^XMB(3.9,22,2,16283,0)="""DATA"",396.18,472,3,526,0)"
^XMB(3.9,22,2,16284,0)="M>E$NN`;E5,SF`H/O.I-=+&W[7/HU:=I8GI;/?O8^WV9E\U'51W_)^I^U$),;"
^XMB(3.9,22,2,16285,0)="""DATA"",396.18,472,3,527,0)"
^XMB(3.9,22,2,16286,0)="MTY5H:$GNDFPA%'33LO3D53[;RAZF=J%?9&G]<R_A'YH4?)W]SZK&GS^IW\P_"
^XMB(3.9,22,2,16287,0)="""DATA"",396.18,472,3,528,0)"
^XMB(3.9,22,2,16288,0)="M4BRJ@4=^\<0K)0T$8<1""?MX%%CF.'!@5:5`RM!&I`4QDG5'`WCF34HF4/$\V"
^XMB(3.9,22,2,16289,0)="""DATA"",396.18,472,3,529,0)"
^XMB(3.9,22,2,16290,0)="MB5>D-TDA429:1A7\3^_Z!$DJ[,J&+][F?IWNMNW88=L(:8`O)*33]WV9WF7I"
^XMB(3.9,22,2,16291,0)="""DATA"",396.18,472,3,530,0)"
^XMB(3.9,22,2,16292,0)="M%Z_9OI0DN7?Y6%R*BL[HZWLOF<VV13*3:8AR>]7?-[<ELKF*TZG:KGUG#&9H"
^XMB(3.9,22,2,16293,0)="""DATA"",396.18,472,3,531,0)"
^XMB(3.9,22,2,16294,0)="MD]^'3YX#XCD:_>+8X8MU27+X8CSVQ8'O\,4&+QV^F0Q\<XW!8X$SQMJ7TW#$"
^XMB(3.9,22,2,16295,0)="""DATA"",396.18,472,3,532,0)"
^XMB(3.9,22,2,16296,0)="MA6AJZL8Q>/Q#>!`1Y$!4H5R#5-!W(&J<G<XMK0+X1PS-%=AD$11%%7<NUGT%"
^XMB(3.9,22,2,16297,0)="""DATA"",396.18,472,3,533,0)"
^XMB(3.9,22,2,16298,0)="M[.XK_$LTCGJ?LIN'XRK8)@JH""DOSP0.'@0*?T^5:E&1MBW1$@U#JL(10`]`U"
^XMB(3.9,22,2,16299,0)="""DATA"",396.18,472,3,534,0)"
^XMB(3.9,22,2,16300,0)="MP`+!N0""+<O3+(X<O-]17Z*""_>J-SO,NF-&U@(;'#0G!3\=>UR(XOY*^TG34S"
^XMB(3.9,22,2,16301,0)="""DATA"",396.18,472,3,535,0)"
^XMB(3.9,22,2,16302,0)="M8#\L:EP#!<,Z2+\+&T3%:CGV_<AE^U3S]$/G[7O\D*YNTA]_&`2S#""M1HF;<"
^XMB(3.9,22,2,16303,0)="""DATA"",396.18,472,3,536,0)"
^XMB(3.9,22,2,16304,0)="MH!O;U5P#OPGX3C7%WLFQ8?P0SX3?*)!NJN=RG%@U2HQ[1=R5NDJX*YRMTF?>"
^XMB(3.9,22,2,16305,0)="""DATA"",396.18,472,3,537,0)"
^XMB(3.9,22,2,16306,0)="MTX3;D*3O.]VDS9_57CB6E7ZEA""%)I</)`Z]4?OZ<VRO^4<].!_%Y%`#\2:XP"
^XMB(3.9,22,2,16307,0)="""DATA"",396.18,472,3,538,0)"
^XMB(3.9,22,2,16308,0)="M@_4O""@[/S_]).`L`?MXD[6BX,S_WYB=SL2=,\T(,,')`C_VVR/-Y-:QEW*8R"
^XMB(3.9,22,2,16309,0)="""DATA"",396.18,472,3,539,0)"
^XMB(3.9,22,2,16310,0)="M2]Z$JJCH3/.,V?@R?AG[9A=KWB9@.Q]W_)O?I+V9:3^R!@\MO&%'YXV+C4>Q"
^XMB(3.9,22,2,16311,0)="""DATA"",396.18,472,3,540,0)"
^XMB(3.9,22,2,16312,0)="M[F,XC&#J#508""-B0;?X,UJ!>V5C.E[D&;/N-S7D]SS:""6^*_`^+,=.UL^""7-"
^XMB(3.9,22,2,16313,0)="""DATA"",396.18,472,3,541,0)"
^XMB(3.9,22,2,16314,0)="M16![=1JBMD[/""=A<K""`:7TD43EX)?PNZF##S0JP`^>-+:3&&IJPEHL'%A#$F"
^XMB(3.9,22,2,16315,0)="""DATA"",396.18,472,3,542,0)"
^XMB(3.9,22,2,16316,0)="M<BT(6DN@.HXH'O%;(0;ABP'8[9&NY9$1""CY1QX,$.JD,+'1M?0'V#SE""06\_"
^XMB(3.9,22,2,16317,0)="""DATA"",396.18,472,3,543,0)"
^XMB(3.9,22,2,16318,0)="M_H[4JWTFPS_S5=?P<R'<U>XWX>R,8:WK`!TP7^LV$[.'""O2\6Q""PSE,C#J)&"
^XMB(3.9,22,2,16319,0)="""DATA"",396.18,472,3,544,0)"
^XMB(3.9,22,2,16320,0)="MAWPDL,?$O'.S$^J_N<!UI.G_C'L_D][/U!<Y^67>]$\-DH;:2(.""Z`""T(?O0"
^XMB(3.9,22,2,16321,0)="""DATA"",396.18,472,3,545,0)"
^XMB(3.9,22,2,16322,0)="M)OY&M)&:B4"":*5:SW$S/[OOC2I+0BPG37>12*+24%OYTG[60BPFC4.1:\+C"""
^XMB(3.9,22,2,16323,0)="""DATA"",396.18,472,3,546,0)"
^XMB(3.9,22,2,16324,0)="M1E$T46&'!`$K8:/)6.:+?P@<G$MM@W-I-9:RT\X[WND^G)1L:,TKB7^6:(0H"
^XMB(3.9,22,2,16325,0)="""DATA"",396.18,472,3,547,0)"
^XMB(3.9,22,2,16326,0)="M;I]N`^/0-3-;OO#J>QX>=5ZF,T[;XR1HV>D3M(*`"",[Y:'Z[C_7QGPXA`]?;"
^XMB(3.9,22,2,16327,0)="""DATA"",396.18,472,3,548,0)"
^XMB(3.9,22,2,16328,0)="MXEZLY%&[5U24>W&R@4+'""+&$8I%""!VH9K/E=.LDP&E$S&$=ME[.SQI/K`8T!"
^XMB(3.9,22,2,16329,0)="""DATA"",396.18,472,3,549,0)"
^XMB(3.9,22,2,16330,0)="M\7TUOQKNLB!T,6%""3Q7^5.>26N*Q2!L%$8VD*]R'6.PU>D-4=G7ZVI@PI)T'"
^XMB(3.9,22,2,16331,0)="""DATA"",396.18,472,3,550,0)"
^XMB(3.9,22,2,16332,0)="M?98P1<8T[J;""H;-G080>WSPMUSF1%>U'AD5JB4OMV@;IR830D.>`^4<9#O>["
^XMB(3.9,22,2,16333,0)="""DATA"",396.18,472,3,551,0)"
^XMB(3.9,22,2,16334,0)="M]T?&""5M9BD;)V1W#ZGT]1%0>;U23-])2XFW<>_]Z>?GAHO<'VDNB/$;""J[:E"
^XMB(3.9,22,2,16335,0)="""DATA"",396.18,472,3,552,0)"
^XMB(3.9,22,2,16336,0)="M*,#8.'\2[<>F'N*]J1^U."":'I?[[=""YDKS;/WQL7T'C9'X-<Q`K9'KRUKW1H"
^XMB(3.9,22,2,16337,0)="""DATA"",396.18,472,3,553,0)"
^XMB(3.9,22,2,16338,0)="M=VN/'ONM?63Q<""+XZC%0Q\5I""1S,)LS3^F>:KQ=)N:Q'SHAKBWHPQD.YQL>P"
^XMB(3.9,22,2,16339,0)="""DATA"",396.18,472,3,554,0)"
^XMB(3.9,22,2,16340,0)="MAZVFE&.J.Q?1N(/X*DMN5GF929@;;[/E<:_W-/V:S#;/7HRDF\/(85%MVGN@"
^XMB(3.9,22,2,16341,0)="""DATA"",396.18,472,3,555,0)"
^XMB(3.9,22,2,16342,0)="M(@-8E2@NE%=,S>J>+I>_W/-_S\86%;LL2@\_6R2NP9*'^W5:RIJR.5^>)%B'"
^XMB(3.9,22,2,16343,0)="""DATA"",396.18,472,3,556,0)"
^XMB(3.9,22,2,16344,0)="MF_XT6\WJ.4[EMKA)B_M1^L7(8:EUZ&G.8!I::=59-:M]_]%U6&I$FC/9S!/4"
^XMB(3.9,22,2,16345,0)="""DATA"",396.18,472,3,557,0)"
^XMB(3.9,22,2,16346,0)="ML^""^D>\-K(SDQW/3IY;""34ON9]+%'`T=B&GN@9'Q/;P6IT'RO-U)LMIPKTUJ"
^XMB(3.9,22,2,16347,0)="""DATA"",396.18,472,3,558,0)"
^XMB(3.9,22,2,16348,0)="M'>YR]3<VGS_WELOGWL%V5T^@]RVN/%.O5L+H8%<K!YSN'@R[-41A$M4'#E-]"
^XMB(3.9,22,2,16349,0)="""DATA"",396.18,472,3,559,0)"
^XMB(3.9,22,2,16350,0)="M#^V#KE&-'<>K:5#9*KVX3!;9S2KI^E>-O+K[@.'V9PW`UGD,+B)0C*3I.5_7"
^XMB(3.9,22,2,16351,0)="""DATA"",396.18,472,3,560,0)"
^XMB(3.9,22,2,16352,0)="M<T;2Q1B+S6G)'E^(-'(?!L7V^GUN/$9J([O*23WI.DRV0/GC;,<^&5L+)<9:"
^XMB(3.9,22,2,16353,0)="""DATA"",396.18,472,3,561,0)"
^XMB(3.9,22,2,16354,0)="M6I291\3VX:PZ'F=[._78/:,CV#XXYM@Y[P2FG-I.M[T6&#LN<'A2-,+CPDHP"
^XMB(3.9,22,2,16355,0)="""DATA"",396.18,472,3,562,0)"
^XMB(3.9,22,2,16356,0)="M'176R%P@?7S""ZC`3&KKG""'HQ;*1VKL5:X?ECO^6(;3.AX1`V4DZ:)L:$Q.X1"
^XMB(3.9,22,2,16357,0)="""DATA"",396.18,472,3,563,0)"
^XMB(3.9,22,2,16358,0)="M[!MU:I'WB_>I""B+$5>2K]*K(YA(XXZ'<>B!+Z*.T_>FMH;%#C-804H9IBWS6"
^XMB(3.9,22,2,16359,0)="""DATA"",396.18,472,3,564,0)"
^XMB(3.9,22,2,16360,0)="M#8$:6`QV6$RL>Z5!X!;&ON!NX_WS""GQ1KDK44XJ9==+M$_Q-UNLB_YHM18`Q"
^XMB(3.9,22,2,16361,0)="""DATA"",396.18,472,3,565,0)"
^XMB(3.9,22,2,16362,0)="M'Z\D1]1AN6WJNU/[U*6F/2FK\7>B]ZMJE9)B.!9""!K'#FO3B=HKBT>""K5:)_"
^XMB(3.9,22,2,16363,0)="""DATA"",396.18,472,3,566,0)"
^XMB(3.9,22,2,16364,0)="M\$6E8D@ZUT5BZ-]UME@T-:H5);/5=5XL)<.?UZUO3VKG^HEWW2]R%>V(W9ME"
^XMB(3.9,22,2,16365,0)="""DATA"",396.18,472,3,567,0)"
^XMB(3.9,22,2,16366,0)="M\K#Z"",&>];:\E9]:RB[CN@=RES8X1%R(0I"">^7(0\T_;Y3(I9#.;F!VB#3VK"
^XMB(3.9,22,2,16367,0)="""DATA"",396.18,472,3,568,0)"
^XMB(3.9,22,2,16368,0)="MDA05Z\3`Z6HGFV8\[,""*`WC)1,T[(_TP(&-X.!!&_U=5W.I5W=NB$#F9SP6C"
^XMB(3.9,22,2,16369,0)="""DATA"",396.18,472,3,569,0)"
^XMB(3.9,22,2,16370,0)="MY!KKQL-Z8Q>[Q,@DLO2+Z>6'WTF,+%PWL&Y#E9!0[Y-$HU4U/61;YW@2=M54"
^XMB(3.9,22,2,16371,0)="""DATA"",396.18,472,3,570,0)"
^XMB(3.9,22,2,16372,0)="MI:+GHIR6TJ)>G&_<&K<X<*`U([JV-&H&]1@.D3:>?$2TIF-(%-BB%M3R%.SK"
^XMB(3.9,22,2,16373,0)="""DATA"",396.18,472,3,571,0)"
^XMB(3.9,22,2,16374,0)="M#IR#'OY]T0%>F\/>=E,+]:J)!3\C4HMJPNFZK,DX[8>?85DV=5IV:S`.LNZ]"
^XMB(3.9,22,2,16375,0)="""DATA"",396.18,472,3,572,0)"
^XMB(3.9,22,2,16376,0)="MBPXDF._(@<24C1W(=F!./U!]A/4&T5B?`'$RU(:;X2(D-FP8=HC.[A""$AHE["
^XMB(3.9,22,2,16377,0)="""DATA"",396.18,472,3,573,0)"
^XMB(3.9,22,2,16378,0)="M981*?%T9P]X5<?C(X^OJ""AUJ4Z:6GADEP@Y'+^WL$78#\_%IG<ZRZVS&V5""*"
^XMB(3.9,22,2,16379,0)="""DATA"",396.18,472,3,574,0)"
^XMB(3.9,22,2,16380,0)="MWMV'<D.,+$`-3+W%([%^G>@0QCY].9]+#[VLO/-GHV$$'-X3I-;2A_A[#"".0"
^XMB(3.9,22,2,16381,0)="""DATA"",396.18,472,3,575,0)"
^XMB(3.9,22,2,16382,0)="M+8P@:M-\I/OE;&=_@>QO>""6.L,.JPP/JU$/X""[:6,;K_LOLQVP_0AVJ.A]N-"
^XMB(3.9,22,2,16383,0)="""DATA"",396.18,472,3,576,0)"
^XMB(3.9,22,2,16384,0)="ML+65SK\*O[?]14U<*HZ-IA&8<:]/VDO""O/A/ZP3\_+G@!!(%#_WK5.$4=&^Y"
^XMB(3.9,22,2,16385,0)="""DATA"",396.18,472,3,577,0)"
^XMB(3.9,22,2,16386,0)="M%$WY,@?M0R^#G_!RN\FKMUCIXUNGMA-F&=IN3$`UYF6TVF=LZ#R,&'7Q78/5"
^XMB(3.9,22,2,16387,0)="""DATA"",396.18,472,3,578,0)"
^XMB(3.9,22,2,16388,0)="MVH3.`K98T3)TI""5""!L(L)28Q,0`""W`,J_-Q`3VU$(<4Z+\N,D_DY)W`Y*[(K"
^XMB(3.9,22,2,16389,0)="""DATA"",396.18,472,3,579,0)"
^XMB(3.9,22,2,16390,0)="M.9?+FV7%;+LL-\EJ5M?BU*/2O#[FF`2SRJ[3<E/GP^JJL+IC7>*15:.\^$_7"
^XMB(3.9,22,2,16391,0)="""DATA"",396.18,472,3,580,0)"
^XMB(3.9,22,2,16392,0)="M(@7K%56#@02^6A?YG?IIV5S`C&W2XHY_TVWE.?S\8W(<-(<C@A!9!`$S.G:J"
^XMB(3.9,22,2,16393,0)="""DATA"",396.18,472,3,581,0)"
^XMB(3.9,22,2,16394,0)="M`NIVJ)I""(8DN</)Y-$<_2]1W/$N]>80#<-T@""47\QX6[S,0LKF/3\1OI)$H<"
^XMB(3.9,22,2,16395,0)="""DATA"",396.18,472,3,582,0)"
^XMB(3.9,22,2,16396,0)="MZ4B90<?(D8Y0]=S(`8EMJV(:5C_&!LHS`J!I(55Y\?NV$`3KJLU*J;LV`C-Q"
^XMB(3.9,22,2,16397,0)="""DATA"",396.18,472,3,583,0)"
^XMB(3.9,22,2,16398,0)="MEJ_F67O7]1B4$D6.DD`B<^BG'SEJI<;VE,(""I-=B%B>G>I$OO9G.C1=CP,'3"
^XMB(3.9,22,2,16399,0)="""DATA"",396.18,472,3,584,0)"
^XMB(3.9,22,2,16400,0)="MM^CJS!`,S,`C$[=H;*@\_(X""VX[TH07FS`*WW:""?'Y[.""P(WHL5X1Z+AAT@T"
^XMB(3.9,22,2,16401,0)="""DATA"",396.18,472,3,585,0)"
^XMB(3.9,22,2,16402,0)="MJ\]""\8'(1AX6V<0U9*Q<1]K]O""@R52IQF+F)?.QWK?;.`]%%:CZTC+O08Y%N"
^XMB(3.9,22,2,16403,0)="""DATA"",396.18,472,3,586,0)"
^XMB(3.9,22,2,16404,0)="MCD6'?&S.S@J@>2<H/`]""[*6C;,>+AS]U=J'^<<RE9;YIG4R?)_0AEG33[EZ+"
^XMB(3.9,22,2,16405,0)="""DATA"",396.18,472,3,587,0)"
^XMB(3.9,22,2,16406,0)="MP'"">SFOH7[=!K4-#6CYM9+=8[PF/[&]$<C&[2Q?WWI>\*)67WRY%9,C-H/)0"
^XMB(3.9,22,2,16407,0)="""DATA"",396.18,472,3,588,0)"
^XMB(3.9,22,2,16408,0)="MA(6RO((O^LLO/)!<9OP3.KCQ:CZN\""G!(<_4A=C$3FS#PP2HC0.W`X""CXU%;"
^XMB(3.9,22,2,16409,0)="""DATA"",396.18,472,3,589,0)"
^XMB(3.9,22,2,16410,0)="M07/QVH9!9:+SMKC1GWWX_,O'SP.4?+]=;+)VD?WI0^;EC]LT<SPZKZ\;+Z%="
^XMB(3.9,22,2,16411,0)="""DATA"",396.18,472,3,590,0)"
^XMB(3.9,22,2,16412,0)="M#?9('@'S^D*`Y.2XLST_C?NM@Y.7!L8B[S?;?'SP+4)N&I\0,_M$L<.T#\3_"
^XMB(3.9,22,2,16413,0)="""DATA"",396.18,472,3,591,0)"
^XMB(3.9,22,2,16414,0)="MG><0]^N8AKCAQ@SJ^[LRPX_/PZ;<1Z_`URGZU=6`339-,AJ8""M=OA^/^87N="
^XMB(3.9,22,2,16415,0)="""DATA"",396.18,472,3,592,0)"
^XMB(3.9,22,2,16416,0)="M*HS2CYIR,""\4'*Y<1F?7(_OL>IT).WO10=>@X3*B'KFH[9'!\'6));8)&,'!"
^XMB(3.9,22,2,16417,0)="""DATA"",396.18,472,3,593,0)"
^XMB(3.9,22,2,16418,0)="MP20,F-D""@C[NPRZARR)'G18X&9A^'J_GP)*^>:UE_J_;;'-6:N;,K\'BFP`J"
^XMB(3.9,22,2,16419,0)="""DATA"",396.18,472,3,594,0)"
^XMB(3.9,22,2,16420,0)="MOJ&]YA:J5-\07P5HP.S15]\@6_6-I7)D:`93/*6[I;HP$]<[GXMDNTR>EL\>"
^XMB(3.9,22,2,16421,0)="""DATA"",396.18,472,3,595,0)"
^XMB(3.9,22,2,16422,0)="M2B>+!0X9#>&TH)""XH0T\;UM86MB!!N-""TO'%#XV67%>`V#K;M=$$B#VF""A""T"
^XMB(3.9,22,2,16423,0)="""DATA"",396.18,472,3,596,0)"
^XMB(3.9,22,2,16424,0)="M=TEK!)6TJG*I5[0""K2<-O$""_3_@1UO/[H]:)`-:IAR_)^J8II%KC95TH^HA-"
^XMB(3.9,22,2,16425,0)="""DATA"",396.18,472,3,597,0)"
^XMB(3.9,22,2,16426,0)="M$[8!WUCT:Q@-04N:P#=VX]0""X#R8WDK+K#`::/6+Y+NLOK3-#46^6L>J55]2"
^XMB(3.9,22,2,16427,0)="""DATA"",396.18,472,3,598,0)"
^XMB(3.9,22,2,16428,0)="MPZ2&IZR^#""VK#D.5YM]7]26SU(RJS1H[K=K2,'>8RD9DK6Q4\?'T=1O04Z2!"
^XMB(3.9,22,2,16429,0)="""DATA"",396.18,472,3,599,0)"
^XMB(3.9,22,2,16430,0)="M%K""4+39`F<<N6\36FW[MLA(1H\(*QV12W:+P(&4F6!S5&FE/%)(LO:0L\UF6"
^XMB(3.9,22,2,16431,0)="""DATA"",396.18,472,3,600,0)"
^XMB(3.9,22,2,16432,0)="M""'""]+]GFMJHLF6OZ\0'=$6-;@:-VI<(B8A:+.A83O9Q7=3G)8E)%$;(*A';W"
^XMB(3.9,22,2,16433,0)="""DATA"",396.18,472,3,601,0)"
^XMB(3.9,22,2,16434,0)="M8(H#<5Q9?6E2M0I+;2[[JYOIJ[J(7.Q<]($=9=NL?`,&J\,U+`]71@EV%`1D"
^XMB(3.9,22,2,16435,0)="""DATA"",396.18,472,3,602,0)"
^XMB(3.9,22,2,16436,0)="ME,RT\.]CY'OZASC]F/GA,VU4[]6]K(C]>7?F![8S1GT]S69DV6+'@FR!#?#Z"
^XMB(3.9,22,2,16437,0)="""DATA"",396.18,472,3,603,0)"
^XMB(3.9,22,2,16438,0)="MY>]O.EWE=,1\6P49U7.9`7#*XLGUS0)2(9/H""K/;G%M'>;JR3?^L/>GGU9_P"
^XMB(3.9,22,2,16439,0)="""DATA"",396.18,472,3,604,0)"
^XMB(3.9,22,2,16440,0)="M1PD_H$4J-;-:D6S7TWLP""_G8E5L!V[="":W@AQ'4A"".]=OS.\$NHJ)<!*4,RF"
^XMB(3.9,22,2,16441,0)="""DATA"",396.18,472,3,605,0)"
^XMB(3.9,22,2,16442,0)="MBLG;E;@7WU32T=S<YM>5<N[P,`5,QVRV72>U<:GR0]GB7A43+YEMLCMN@=+]"
^XMB(3.9,22,2,16443,0)="""DATA"",396.18,472,3,606,0)"
^XMB(3.9,22,2,16444,0)="MY((YLX.A'=E!W=@1.+/#7`EACJ91VD.W]3CK-^/`X(`YW8?TV""DT7<%9+N9X"
^XMB(3.9,22,2,16445,0)="""DATA"",396.18,472,3,607,0)"
^XMB(3.9,22,2,16446,0)="M;XLU5R+E<VZ@UWDAG_5EA""N'MBBX:I3@<J0*1R-=9;I.^*>*FA<N6:MTQB,\"
^XMB(3.9,22,2,16447,0)="""DATA"",396.18,472,3,608,0)"
^XMB(3.9,22,2,16448,0)="M@2[""PSE1\"")*""))5!5.S+C()4Y.5R56F?MHBVW!K<9<LME7&\KI!;&F7L9<$"
^XMB(3.9,22,2,16449,0)="""DATA"",396.18,472,3,609,0)"
^XMB(3.9,22,2,16450,0)="M1JYTCN-]RR""'%Q*[""J""Y$,0<!?##NCK6SYL(6]!2W+LVT]M'#)S,1-%^2JJ_"
^XMB(3.9,22,2,16451,0)="""DATA"",396.18,472,3,610,0)"
^XMB(3.9,22,2,16452,0)="M4.V<A,8Z26BNLW>S#^68X#@/]@<-""G;Q,ND>*:D=Y=R$O8<`'>'RYIXJE8U$"
^XMB(3.9,22,2,16453,0)="""DATA"",396.18,472,3,611,0)"
^XMB(3.9,22,2,16454,0)="M[=DP-&FK,7ME+&[^Y+!'.>!3.GF55K]RZ""JN%1#8NPRLK(AT3J!.*'J\Z)HJ"
^XMB(3.9,22,2,16455,0)="""DATA"",396.18,472,3,612,0)"
^XMB(3.9,22,2,16456,0)="M)O`BEQT697:S$JW8""5]URQTK,U[TZ&`I#QG>:^2^5>*;.T4X=-_I:[D=L9MM"
^XMB(3.9,22,2,16457,0)="""DATA"",396.18,472,3,613,0)"
^XMB(3.9,22,2,16458,0)="MN>7;Z/;T\&7*?KI1@)TH'4'G&P<0I;MG8A""N<)>5<R[]8F&JI''*ENNDX@HL"
^XMB(3.9,22,2,16459,0)="""DATA"",396.18,472,3,614,0)"
^XMB(3.9,22,2,16460,0)="M8XH]XY]7_CHN<Q9;-D8DC-VE,28`C1!SE\;+M!15DMQ!^)(7?[<V9)\#5=6B"
^XMB(3.9,22,2,16461,0)="""DATA"",396.18,472,3,615,0)"
^XMB(3.9,22,2,16462,0)="M(K,LU;X-""J@/1""!6T_[#7BE%U%_Q8'WJ=W^X+$4[@R4ZLIC2^]33FI6:Z3-2"
^XMB(3.9,22,2,16463,0)="""DATA"",396.18,472,3,616,0)"
^XMB(3.9,22,2,16464,0)="M5-&.O4%,V'B]7""_R^W3>57,,'7BX5FI,.M@4Z>AU7X^)!XL`\>!^6>AR6A^G"
^XMB(3.9,22,2,16465,0)="""DATA"",396.18,472,3,617,0)"
^XMB(3.9,22,2,16466,0)="MW+PLA;'E]'B5<8F0];^OMIJ+(V//62$:I.><W\5<W*I:W_#RJA08BVE6+M6W"
^XMB(3.9,22,2,16467,0)="""DATA"",396.18,472,3,618,0)"
^XMB(3.9,22,2,16468,0)="M:/790Q7:SB*'7$6.#H@<""I`N=`R0.>R#FM6'A2Z,SD)G$SI1?<""C2&5PJWSA"
^XMB(3.9,22,2,16469,0)="""DATA"",396.18,472,3,619,0)"
^XMB(3.9,22,2,16470,0)="M5=I(T>_Y2DRK+W372(I:/^#\+;U-[K*\4-_S,>>4^""3N+!:>[,-(M*+!ZNNX"
^XMB(3.9,22,2,16471,0)="""DATA"",396.18,472,3,620,0)"
^XMB(3.9,22,2,16472,0)="MS&<S+H7W?(N+1?Y%6$*PQE!;W?N\<ARLKR<KX=R]$I`%A?&^.I575CFZ=]FU"
^XMB(3.9,22,2,16473,0)="""DATA"",396.18,472,3,621,0)"
^XMB(3.9,22,2,16474,0)="MM,`B$O\]*8I[_HMUF9<B;C;>\&F=ICR<[MZGOOPF300?K*__*Q-=*=:7WW%9"
^XMB(3.9,22,2,16475,0)="""DATA"",396.18,472,3,622,0)"
^XMB(3.9,22,2,16476,0)="M$D[3ITVRS%:)^N)?:?*WT`8B#OV#,^MFF]J(PJ4A7=UL;E]X?Z[7_/1RV1<M"
^XMB(3.9,22,2,16477,0)="""DATA"",396.18,472,3,623,0)"
^XMB(3.9,22,2,16478,0)="M,78J=G_P+O]B_X,_^>9$4H*KH%Q.W^""2H[[CCW0FY<#V^D<Q,U@C>7G-]U+T"
^XMB(3.9,22,2,16479,0)="""DATA"",396.18,472,3,624,0)"
^XMB(3.9,22,2,16480,0)="ML96/J,;PJ!J3E3N^5I8Z8#1C9""HPHMC']MC&`:S`8A<%=AP%A2T*""JI4'5!/"
^XMB(3.9,22,2,16481,0)="""DATA"",396.18,472,3,625,0)"
^XMB(3.9,22,2,16482,0)="M`]6J2KWJ,)]&:E:ABH$>(X?R,,R2AR%=[&S/Q`""M6],R,60H_/?ML9J1B8%L"
^XMB(3.9,22,2,16483,0)="""DATA"",396.18,472,3,626,0)"
^XMB(3.9,22,2,16484,0)="M981WB/ZUQ+:1C:E""9IG,?F#)F!V#Q7""`389/@V.33R&D$4@,LNEE(3E4I/V<"
^XMB(3.9,22,2,16485,0)="""DATA"",396.18,472,3,627,0)"
^XMB(3.9,22,2,16486,0)="M#,R27Q\Q3W`TX>@0`H3PN/^^B:FS5,LOZ9S9)UFF]CY*@#:X';(KEW`2P@@!"
^XMB(3.9,22,2,16487,0)="""DATA"",396.18,472,3,628,0)"
^XMB(3.9,22,2,16488,0)="MVXU#,-3W:6\#]KY(HS-2>Q5JCE2KE&[SPHE:/X2//I0W6&G.T/ML,=>>Y)S"""
^XMB(3.9,22,2,16489,0)="""DATA"",396.18,472,3,629,0)"
^XMB(3.9,22,2,16490,0)="MS?B!SNE,N5G1':E""@O""7.R0/T%3QP^/BA[KK^8/)7WP:^>,?O5YSCITE\&02"
^XMB(3.9,22,2,16491,0)="""DATA"",396.18,472,3,630,0)"
^XMB(3.9,22,2,16492,0)="MB*=*(!F70-RWI8>10.2?1@)??TV+65:F9PD\F022J1)('4RP$1H2M*<*9""=2"
^XMB(3.9,22,2,16493,0)="""DATA"",396.18,472,3,631,0)"
^XMB(3.9,22,2,16494,0)="M@:)XX6R""3R=^=*+X!<$N'N"">\H?\,#R-_%W*1)3X[2R#)Y-!-E4%LIW<P+V5"
^XMB(3.9,22,2,16495,0)="""DATA"",396.18,472,3,632,0)"
^XMB(3.9,22,2,16496,0)="M(,*G$<+/17*7+LZ.X""EE,)@H@S)9-N8(4O_PAC@ZC0S^D:;SLP2>4@+#J5HP"
^XMB(3.9,22,2,16497,0)="""DATA"",396.18,472,3,633,0)"
^XMB(3.9,22,2,16498,0)="MWL$1Q%#N:9+\!:>1O]^2S>U9_DXI?]%4^8MVR@7N+8`G\@1?2>B_LP2>4`+C"
^XMB(3.9,22,2,16499,0)="""DATA"",396.18,472,3,634,0)"
^XMB(3.9,22,2,16500,0)="MJ1(8[I8.W%<$$3J1'YAGBW1SEL&3IJ3]J4(8[)81W%L/DM,((=]1OCS+X$EE"
^XMB(3.9,22,2,16501,0)="""DATA"",396.18,472,3,635,0)"
^XMB(3.9,22,2,16502,0)="M<.J]B(,E-JI%`N`&OZ\KNP)+#,A?2,DQY6^84?^;&C6L?2I/JDX5I36QK<0&"
^XMB(3.9,22,2,16503,0)="""DATA"",396.18,472,3,636,0)"
^XMB(3.9,22,2,16504,0)="MF17J-`)J;'R(;A3#F:S@7&(SN<0&8=<:FQJ!@]J0""5FL`[X;W?RQ""4S8P1<Z"
^XMB(3.9,22,2,16505,0)="""DATA"",396.18,472,3,637,0)"
^XMB(3.9,22,2,16506,0)="M05]""N:W]L23Q`):D#@QAMD^3T`E,,L+1J<$DQ=&C%O!%;5]`$V=@]O-U<X>Z"
^XMB(3.9,22,2,16507,0)="""DATA"",396.18,472,3,638,0)"
^XMB(3.9,22,2,16508,0)="M;;&`G<%]>RIQ@!?$C1>!;S`C`,!'NJ*P'C/"",](R`/<^""""F&`4BQ>N9I,W>M"
^XMB(3.9,22,2,16509,0)="""DATA"",396.18,472,3,639,0)"
^XMB(3.9,22,2,16510,0)="MCRJ&*[>Q5[+.8%2QCJCOLF7Z@P""$$1M`&#QJ-%;PP9`VVCMVP`?[>/GAX^O+"
^XMB(3.9,22,2,16511,0)="""DATA"",396.18,472,3,640,0)"
^XMB(3.9,22,2,16512,0)="MSV]??WHH(V(QC/.)%5)1;28K<YB""SL5=E);_`R'T0P-25H"">@0.5`EV@\#B5"
^XMB(3.9,22,2,16513,0)="""DATA"",396.18,472,3,641,0)"
^XMB(3.9,22,2,16514,0)="M*A_@<_IU\X\*>^YB5`,@0`.$/050.>JM+J[`H[L""3\P>.ZP@M4XHMLR;)HK:"
^XMB(3.9,22,2,16515,0)="""DATA"",396.18,472,3,642,0)"
^XMB(3.9,22,2,16516,0)="MT/`QB>_`Y@97L`;!$Q7.QNSI5_EL*UH.^FTOQT?3/)YZJ43;@H&'6:B""LL4'"
^XMB(3.9,22,2,16517,0)="""DATA"",396.18,472,3,643,0)"
^XMB(3.9,22,2,16518,0)="M0Y/;'R65C:.D$DT*6--'UBVX67$?)16=45(!EP:""2:V'`34^C>+4,*+J-%R-"
^XMB(3.9,22,2,16519,0)="""DATA"",396.18,472,3,644,0)"
^XMB(3.9,22,2,16520,0)="M,W_,.HU9=5H(*S4RA)6*""7+'2OTM7Z7>JV29W*3>95IF\RU?X$-QCY#>#=/0"
^XMB(3.9,22,2,16521,0)="""DATA"",396.18,472,3,645,0)"
^XMB(3.9,22,2,16522,0)="M+Q[""E$0L'+<);?7^E2#@O"")@T1#PQ<483*<%$Q4C15&U[4/ZX-CN],1GB.Q>"
^XMB(3.9,22,2,16523,0)="""DATA"",396.18,472,3,646,0)"
^XMB(3.9,22,2,16524,0)="MU!M""RE]E-]%(2F,3NMTWE'],SLH?4/X^QAB:XA#V9C@H.-F8:3C9^+$K_\`6"
^XMB(3.9,22,2,16525,0)="""DATA"",396.18,472,3,647,0)"
^XMB(3.9,22,2,16526,0)="MVW':!C#N,V8JFJ\^R""%PU_\5:H3P7)N9#@\F-N;T""^%4@NJ]AEB/""?Q1U.SV"
^XMB(3.9,22,2,16527,0)="""DATA"",396.18,472,3,648,0)"
^XMB(3.9,22,2,16528,0)="MK%63I17PF7J8?#VU>YZ5,TY%;AV>RJYQ,?&AE*""<\O4>0,V%MTC*336O/JNA"
^XMB(3.9,22,2,16529,0)="""DATA"",396.18,472,3,649,0)"
^XMB(3.9,22,2,16530,0)="M;OC_E$'V-9G`*P=75.Z..GB<.BC""^D0!AXCI]V1;MG,M,LYN;I(V%2:FQ*O)"
^XMB(3.9,22,2,16531,0)="""DATA"",396.18,472,3,650,0)"
^XMB(3.9,22,2,16532,0)="M5M5>$?YIR1EZZZVY#.1S^^Z&-Q(%#ANA6H""/,7(8V0$L?KZ53?G3-C""5/7QU"
^XMB(3.9,22,2,16533,0)="""DATA"",396.18,472,3,651,0)"
^XMB(3.9,22,2,16534,0)="M/LP>%*C[\G7WA;JX+]L*H$$PJ!D?F+:J8""<^\!5C%S[HZXV9V^04B9BY_Q)#"
^XMB(3.9,22,2,16535,0)="""DATA"",396.18,472,3,652,0)"
^XMB(3.9,22,2,16536,0)="M%Z(&8VX7)/,U&0U@L.EKC!VTED;%R&'^S)\0<-G@'!>,8PN@?#N?O`&4'YWE"
^XMB(3.9,22,2,16537,0)="""DATA"",396.18,472,3,653,0)"
^XMB(3.9,22,2,16538,0)="M$KBF`.)]O$!Y<2[NV?C:)81_\T!=/55&#V#-@I(0&:CRII]]F6ZR(I5`CMM5"
^XMB(3.9,22,2,16539,0)="""DATA"",396.18,472,3,654,0)"
^XMB(3.9,22,2,16540,0)="MVJ`O&=N)[""C:?(F!#8L6!<$8&G1$';&T!=P*/SV%7+`""C`%JJD'D;[[F*'`#"
^XMB(3.9,22,2,16541,0)="""DATA"",396.18,472,3,655,0)"
^XMB(3.9,22,2,16542,0)="M6:>QPZTLN&)I/PZZ9!O6*-(!&\S9X3T0X!&(3^D+S,RUO]AO\;%-1K""/]0E]"
^XMB(3.9,22,2,16543,0)="""DATA"",396.18,472,3,656,0)"
^XMB(3.9,22,2,16544,0)="MD0E0ZHB5""IF$1J[W9T`<N<D,!N@?.,+?7Z9)F7.'\B:[2RNPVO[Z]V,""MH)&"
^XMB(3.9,22,2,16545,0)="""DATA"",396.18,472,3,657,0)"
^XMB(3.9,22,2,16546,0)="MQSID-#4WX,B""*IM\[RVK0<K>T_7M?2E^>F:@Q.ZZ""QNV,8K]\7V08-H^UN7]"
^XMB(3.9,22,2,16547,0)="""DATA"",396.18,472,3,658,0)"
^XMB(3.9,22,2,16548,0)="M[#9+>(@ZVW,#6KF>,$S^V%!GXVB;XRM]`*[9F&.+_9@&1QWI_+;T[E*!=;6J"
^XMB(3.9,22,2,16549,0)="""DATA"",396.18,472,3,659,0)"
^XMB(3.9,22,2,16550,0)="ME<;\VTQP'BXK$*4RV!=Q`Z>\^&7,8A%D@J>'#O4K@N#AV.!@,VUD6?:'RV:\"
^XMB(3.9,22,2,16551,0)="""DATA"",396.18,472,3,660,0)"
^XMB(3.9,22,2,16552,0)="MO7`)A$_=/AD^R>:(`,+,Y;,06GXTMOR##V-_O<AN,OY-8L""#R$5R[3?O:701"
^XMB(3.9,22,2,16553,0)="""DATA"",396.18,472,3,661,0)"
^XMB(3.9,22,2,16554,0)="MN0""SVCL5TQS09_""[S)/\;*<1[E44+PY132ZUZ,+R'&KV%\3XG*U[(UBSU3S_"
^XMB(3.9,22,2,16555,0)="""DATA"",396.18,472,3,662,0)"
^XMB(3.9,22,2,16556,0)="MTO(T7]T(-CNI%Y$RE+DL6]F,IDJP'SC)A@_)QGDF]E`U#9MJ!\B8'2#C/E)L"
^XMB(3.9,22,2,16557,0)="""DATA"",396.18,472,3,663,0)"
^XMB(3.9,22,2,16558,0)="M&C9""`=ZQD]F!+J+PKK8;;Y5OOJUI""-RJ&X5YB.TECJ;#&@+N'G6S$8Q<.&Q["
^XMB(3.9,22,2,16559,0)="""DATA"",396.18,472,3,664,0)"
^XMB(3.9,22,2,16560,0)="MN/0Q=*'0.P&3N+GE7$'>?3=O3KZ&!)P_EH\5,F+QG)G/F7B.?/,%_DQ\$O#*"
^XMB(3.9,22,2,16561,0)="""DATA"",396.18,472,3,665,0)"
^XMB(3.9,22,2,16562,0)="M^USB=_&O;U]]YJ;-+`69FITC'4[OD#(CD*%C[*S,!I19Y,8GYL0GU'4B=V<%"
^XMB(3.9,22,2,16563,0)="""DATA"",396.18,472,3,666,0)"
^XMB(3.9,22,2,16564,0)="M,#K060G"",Y\&^$3<^!18O`,C=@(X%0:.G(K.G)I6;&ME%W@9K$[O]/7,7Q/U"
^XMB(3.9,22,2,16565,0)="""DATA"",396.18,472,3,667,0)"
^XMB(3.9,22,2,16566,0)="MMM0)(O4N6'AP:""C/_X@NB,-Q'L2C/$!QM`,/0O_,@\XQ`WG0.67B,LEPRD!>"
^XMB(3.9,22,2,16567,0)="""DATA"",396.18,472,3,668,0)"
^XMB(3.9,22,2,16568,0)="ML'"",%^VM64]EQ4.\`)TPT^&W.F`7'6R:XHE]2=,NHKW0?\?R]\Z/NB#Z`ZH_"
^XMB(3.9,22,2,16569,0)="""DATA"",396.18,472,3,669,0)"
^XMB(3.9,22,2,16570,0)="M8/J#0'\0Z@\B_4&L/^!NG?X$&4^,Q2)CM<A8+C+6BXP%(V/%R%@R,M:,C35C"
^XMB(3.9,22,2,16571,0)="""DATA"",396.18,472,3,670,0)"
^XMB(3.9,22,2,16572,0)="M8\W86#,VUHR--6-CS=A8,S;6C(TU8V/-Q%@S,=9,3*$PUDR,-1-CS<18,S'6"
^XMB(3.9,22,2,16573,0)="""DATA"",396.18,472,3,671,0)"
^XMB(3.9,22,2,16574,0)="M3(PU$V/-U%@S-=9,C3534Y*--5-CS=18,S763(TU4V/-S%@S,];,FC4_<]--"
^XMB(3.9,22,2,16575,0)="""DATA"",396.18,472,3,672,0)"
^XMB(3.9,22,2,16576,0)="MR$TW-9JGN]EPT$TAVD<WD3'=],=VL1`%#MWFN3[?_*0^^I0NKG_2+@CE8W%="
^XMB(3.9,22,2,16577,0)="""DATA"",396.18,472,3,673,0)"
^XMB(3.9,22,2,16578,0)="MD2PNU&(25ZIA&]7T`@&#;H$#W2C>AVYTC&[6D!H.J.%PVA),VT)I:R`]Z,$0"
^XMB(3.9,22,2,16579,0)="""DATA"",396.18,472,3,674,0)"
^XMB(3.9,22,2,16580,0)="M'RPI5&D<D5$28Y/$Y.S""=""E=6.#-=)\-.5--]M49_$C7&,:T^-AD2^-OV#)\"
^XMB(3.9,22,2,16581,0)="""DATA"",396.18,472,3,675,0)"
^XMB(3.9,22,2,16582,0)="MUOR>F=V#<WOU[>KBWFN40I/3,S)Z]A/43]OUDG;ZM<BP;*-1[[R)9`<<PL!4"
^XMB(3.9,22,2,16583,0)="""DATA"",396.18,472,3,676,0)"
^XMB(3.9,22,2,16584,0)="MNO1<+`L4R^)SI\2^Q;*AM5,BV*53@D;NE;*?.5_%L)V'VBMA*=Y#:MD9TPU="
^XMB(3.9,22,2,16585,0)="""DATA"",396.18,472,3,677,0)"
^XMB(3.9,22,2,16586,0)="M,*%78E.1<'JW!#UW2QRC6R(`79MP[VX)YOMG`P`8`*CY%[&>`0C/^G]8_T=6"
^XMB(3.9,22,2,16587,0)="""DATA"",396.18,472,3,678,0)"
^XMB(3.9,22,2,16588,0)="M_<]@[<7\P4ZYT%W__S,M[AYPJYRM,)H-MLJ%>(+Z;Q6^*$A927)6IN#%#XTQ"
^XMB(3.9,22,2,16589,0)="""DATA"",396.18,472,3,679,0)"
^XMB(3.9,22,2,16590,0)="M4-LH9+-1T=E&[6&CP'9N52HITFU4[-+1%YQM%(!/`77SH0I""I+91\=E&#=JH"
^XMB(3.9,22,2,16591,0)="""DATA"",396.18,472,3,680,0)"
^XMB(3.9,22,2,16592,0)="MV*IBJ47%*OVI>IL2PNXV2DY,7?)?MHNDX%*1%$4W<_3'MU',0D""JV""A=&]!Q"
^XMB(3.9,22,2,16593,0)="""DATA"",396.18,472,3,681,0)"
^XMB(3.9,22,2,16594,0)="M$_4NG_7F10QH><+.6OX(6I[""6E[A*PG&M3PU(I%VFO-9R_>U/(6T/`K[J2AV"
^XMB(3.9,22,2,16595,0)="""DATA"",396.18,472,3,682,0)"
^XMB(3.9,22,2,16596,0)="M5O-#:A[[%BT5P$HJB@<""D;:]S$7)B^G;PH-^E:9KOK1REB6BVKMZV?NTO2HW"
^XMB(3.9,22,2,16597,0)="""DATA"",396.18,472,3,683,0)"
^XMB(3.9,22,2,16598,0)="M23<I^0%H?61IV52TOF8V23S>!=O=Q&U$A]RR(F`B!W&*NMN<?])""?)F8\%W("
^XMB(3.9,22,2,16599,0)="""DATA"",396.18,472,3,684,0)"
^XMB(3.9,22,2,16600,0)="MCUFF25D/EY:3LZO9G?TF[JNDS""1[9OERG119V4TAVJLMN&[)C,_VYQCVA\*7"
^XMB(3.9,22,2,16601,0)="""DATA"",396.18,472,3,685,0)"
^XMB(3.9,22,2,16602,0)="M?$,W(=2$',21:7^""\R6?JU'R(:-4N7,U""\BP30H>NTU""-IM$+#A(>,`H(9^Z"
^XMB(3.9,22,2,16603,0)="""DATA"",396.18,472,3,686,0)"
^XMB(3.9,22,2,16604,0)="M&Z4W:;'*DH>3#6,ND8:F9"",'X(67C76IK,W3LFFCFF@'(IL=H*H=P(_)#N!]"
^XMB(3.9,22,2,16605,0)="""DATA"",396.18,472,3,687,0)"
^XMB(3.9,22,2,16606,0)="M[0`.QN,0JH,'&G`QD5Y40-#C3C8-EW708+BD0ZUFTB^D$#6P&HA)?G:LF@[N"
^XMB(3.9,22,2,16607,0)="""DATA"",396.18,472,3,688,0)"
^XMB(3.9,22,2,16608,0)="M_WFW4O?)AZEHZRRSN_3(%1V`#>7ONTKG_\PWZ56>_RU\9O5)'W*Z,ZD*W&Q8"
^XMB(3.9,22,2,16609,0)="""DATA"",396.18,472,3,689,0)"
^XMB(3.9,22,2,16610,0)="MU<=TZ%QU<4)R-2ZV[9LZN=U(:-S^B[HN:)[;E4'S#E5\^V<>]^1+;/EC<I,J"
^XMB(3.9,22,2,16611,0)="""DATA"",396.18,472,3,690,0)"
^XMB(3.9,22,2,16612,0)="M\D.A.*''117W:I""HM>CG7X6KTOZBM8-HS2!&*TA(S08WVC7&O<F+_[1'[.?/"
^XMB(3.9,22,2,16613,0)="""DATA"",396.18,472,3,691,0)"
^XMB(3.9,22,2,16614,0)="M!3_\`FY(;204AZY[TV6RNDGEI_CP&RR?\G*1W0@2)`NN&OE9;Y]O-WGUQWJC"
^XMB(3.9,22,2,16615,0)="""DATA"",396.18,472,3,692,0)"
^XMB(3.9,22,2,16616,0)="MANXQB7$KQ^M+06!?""CPQQM*98N\Y@2:,P%@RR(""1@;C=\/LG;`X7P1&#AK+X"
^XMB(3.9,22,2,16617,0)="""DATA"",396.18,472,3,693,0)"
^XMB(3.9,22,2,16618,0)="M/\S0'<>A-[T-@7=DOOA'C+$>`%:C""D71?]85[X3]QYWZ]_N/U;'`7'I+[U+"""
^XMB(3.9,22,2,16619,0)="""DATA"",396.18,472,3,694,0)"
^XMB(3.9,22,2,16620,0)="MJ2G#9URI/T;_P6DMCCP8X,(P'VR<<!I;HLW7L8[::<X!G70F>GV_8X<""^P_N"
^XMB(3.9,22,2,16621,0)="""DATA"",396.18,472,3,695,0)"
^XMB(3.9,22,2,16622,0)="M5&#;J:AB,ZQ#LIB^CSI]ED''`2$&'@=$+,>A0BLJN040`.8)WT,-7/CK!2@2"
^XMB(3.9,22,2,16623,0)="""DATA"",396.18,472,3,696,0)"
^XMB(3.9,22,2,16624,0)="M\)&F@X?9CX#U^^#Z`_@TX\!ZFG_*U^GJPB+_;#_Y'_98T<""HKF[SP-81K,@P"
^XMB(3.9,22,2,16625,0)="""DATA"",396.18,472,3,697,0)"
^XMB(3.9,22,2,16626,0)="MK,B4=_=NKFFD['IH;M<@&H%]=!?D'XF<YFU>KK--LLC^(]W=YUZY+6Y2\5KA"
^XMB(3.9,22,2,16627,0)="""DATA"",396.18,472,3,698,0)"
^XMB(3.9,22,2,16628,0)="MS=.K(IO+U.BOROH`F(+1\6#`@#!C1)A-WSFSD>S(1A:"";(Q\F(W8PD;F?RLV"
^XMB(3.9,22,2,16629,0)="""DATA"",396.18,472,3,699,0)"
^XMB(3.9,22,2,16630,0)="M;HIDNTQ$DX0(7ZI,1.D]K9+9LD%""@,AX7_+M:O[L&S`3[\!,O.N9]'U0G?K!"
^XMB(3.9,22,2,16631,0)="""DATA"",396.18,472,3,700,0)"
^XMB(3.9,22,2,16632,0)="M-&[V8%U.S,U5FJ\72;G\!HRB$RP%F6PI0C3%4+#=#`4YK*&HTW.3]XJC8^WU"
^XMB(3.9,22,2,16633,0)="""DATA"",396.18,472,3,701,0)"
^XMB(3.9,22,2,16634,0)="M>+XM^D:^+3HLRV3BCQGC(P=],!J#)B""$+3D-(*4A\E+^-P]#X+&1@XP:'!VI"
^XMB(3.9,22,2,16635,0)="""DATA"",396.18,472,3,702,0)"
^XMB(3.9,22,2,16636,0)="M#8\<8^OH`$D(A6AJL!)-""E;Z87EGW`,@5D&,@.-VZ^E`I??[(LF6%43LVSFG"
^XMB(3.9,22,2,16637,0)="""DATA"",396.18,472,3,703,0)"
^XMB(3.9,22,2,16638,0)="M`O>TQ<7RO?>ZP_*V""S<X%!-/C9Z9?Y#H^;=MMIC#DS+/6L;=""`93V1>1@[""O"
^XMB(3.9,22,2,16639,0)="""DATA"",396.18,472,3,704,0)"
^XMB(3.9,22,2,16640,0)="MF4_5<+!\X/D/?`SNQ9,S5ZK_MD?J2DX`@(:,/50&'L4OD\W<TS@8'H2!;U?E"
^XMB(3.9,22,2,16641,0)="""DATA"",396.18,472,3,705,0)"
^XMB(3.9,22,2,16642,0)="MIMC.Q*_E`]>;Q\X\RC(1JS7'L5-""GC)PVG=_!C@LBT`""S\06[X^J!@PR!44J"
^XMB(3.9,22,2,16643,0)="""DATA"",396.18,472,3,706,0)"
^XMB(3.9,22,2,16644,0)="M""*;E[WK3""*O$7<9C>`%ZG2:SVRIV][+57;ZX$Q<_21WFOYB2W,-L\+A@!H73"
^XMB(3.9,22,2,16645,0)="""DATA"",396.18,472,3,707,0)"
^XMB(3.9,22,2,16646,0)="MX.8P@<]+-!+>CN[GXCA2"",8(R!XC`)0(P(B.VI)]:@#8BQ$P/<<(4V($-*Q6"
^XMB(3.9,22,2,16647,0)="""DATA"",396.18,472,3,708,0)"
^XMB(3.9,22,2,16648,0)="M0.2XG>Z-/S;(R3UGWNWV&.UQ>VQBX?M[W!R?+X;WN1@.ARP1T^T0`<)*`H65"
^XMB(3.9,22,2,16649,0)="""DATA"",396.18,472,3,709,0)"
^XMB(3.9,22,2,16650,0)="M)`X>S<5P7>+-!DRHJI@:H#K8B/H6ORR&[8RFE-Z67GZ7%@D7[[H8_'J[DDZ;"
^XMB(3.9,22,2,16651,0)="""DATA"",396.18,472,3,710,0)"
^XMB(3.9,22,2,16652,0)="MM\J+)3_JV<H3'59-@3<W3YOG0I=LBT0=YE5_XG-9.\Y]OW1UPU=8;J^OLYDX"
^XMB(3.9,22,2,16653,0)="""DATA"",396.18,472,3,711,0)"
^XMB(3.9,22,2,16654,0)="M42+YODX+_@%++^%?<9=MA/WF'SM/LL6]M\B$F5-3ND"")X*CAJN=@#M+7-^E+"
^XMB(3.9,22,2,16655,0)="""DATA"",396.18,472,3,712,0)"
^XMB(3.9,22,2,16656,0)="MX2MWU:D<O:33B/$F*5N[[5VEZ8J3\]];,4+G:;::+;9SH8AN$VG?Y<N;(N'L"
^XMB(3.9,22,2,16657,0)="""DATA"",396.18,472,3,713,0)"
^XMB(3.9,22,2,16658,0)="M**N42>*9Y%T7N=ALMDB?55=0G-)]/)W=Z59G6X;C!>`Z`<X+^LSA,J$_?EU<"
^XMB(3.9,22,2,16659,0)="""DATA"",396.18,472,3,714,0)"
^XMB(3.9,22,2,16660,0)="MLGF?N!(N3^3@J%<G8>ARFT(A]P^.EQ""%""1#`MRDL#$]ZFU(5\A6IQ^/L>2K&"
^XMB(3.9,22,2,16661,0)="""DATA"",396.18,472,3,715,0)"
^XMB(3.9,22,2,16662,0)="M]O&#F""G-E&7=3/D-;EG(+AR,7#@(.?`Q>/0C-NF.FH7D!`P\!?'9#L1GO@OQ"
^XMB(3.9,22,2,16663,0)="""DATA"",396.18,472,3,716,0)"
^XMB(3.9,22,2,16664,0)="M`R!F`$\/PI:;96*YBXS9`R$^FE*),ABLQL`M3@CZ$""&;?.?V8>!^\2B)2#GG"
^XMB(3.9,22,2,16665,0)="""DATA"",396.18,472,3,717,0)"
^XMB(3.9,22,2,16666,0)="M>-)>$0X.M-FARU1ZC,TR?_)FX_@$FPV.:8%)N*,*P02N9\`Q?#7I@SK$)\%I"
^XMB(3.9,22,2,16667,0)="""DATA"",396.18,472,3,718,0)"
^XMB(3.9,22,2,16668,0)="MBXQ><N,K3&SIK8NT=*TA^F&RIP=0B\X)V'""*(AF^TO""!T`#3X`1J,SKJX0IV"
^XMB(3.9,22,2,16669,0)="""DATA"",396.18,472,3,719,0)"
^XMB(3.9,22,2,16670,0)="M/5P1?+BBJ8<K./GAJOQ;*P33^;CM>MSB*:8,3S]N\2D,-SIJ.$FB'<\;P;!#"
^XMB(3.9,22,2,16671,0)="""DATA"",396.18,472,3,720,0)"
^XMB(3.9,22,2,16672,0)="M'(?3SEL8?0_G38&_/!^X70\<FA(5,#;YQ!'*3G'B\+'O2<G@/6G?BEOSTZ1?"
^XMB(3.9,22,2,16673,0)="""DATA"",396.18,472,3,721,0)"
^XMB(3.9,22,2,16674,0)="M@OF0\]-H.'\ZE#V%LF""QQ4T(]VW1:*=UIE^3I7>=K43.M'2\U-64<NRBE*$&"
^XMB(3.9,22,2,16675,0)="""DATA"",396.18,472,3,722,0)"
^XMB(3.9,22,2,16676,0)="M#CK%!R*112<C_#WHY*M\=7:!]M7(NS1?4']7\6-@@I(@W^'JIR]_[!NDF+UE"
^XMB(3.9,22,2,16677,0)="""DATA"",396.18,472,3,723,0)"
^XMB(3.9,22,2,16678,0)="MWDSD35;WWK]SL9Y%MLPVU25'?3DRS\HT*>407WE%<G^6S5UE,]A%-G=-O@2P"
^XMB(3.9,22,2,16679,0)="""DATA"",396.18,472,3,724,0)"
^XMB(3.9,22,2,16680,0)="MWJ?PM1DE%M%DIW57:^2P#L;@NVWYJ6_EAETZX%(C/$4,18YZ(Q?LJBY]L`Z)"
^XMB(3.9,22,2,16681,0)="""DATA"",396.18,472,3,725,0)"
^XMB(3.9,22,2,16682,0)="M4(NZ#&T7.B=5E^;%?&6[$V]1H]_-!?K==8M^5RO.LD&_>^YU5\K)QKPY+G+N"
^XMB(3.9,22,2,16683,0)="""DATA"",396.18,472,3,726,0)"
^XMB(3.9,22,2,16684,0)="M2GWO'5-TLJ`C3$\@Z>PH:?YP\F[A5/>A`[7#5Q(B:J\DA.()[`=3SC#""H:66"
^XMB(3.9,22,2,16685,0)="""DATA"",396.18,472,3,727,0)"
^XMB(3.9,22,2,16686,0)="MD)QK""2?5$DY)I;/A!D<HN\70)-5,A[L#&@30/YJ:I4MNS+GZ^Y]M-D\?>-%Y"
^XMB(3.9,22,2,16687,0)="""DATA"",396.18,472,3,728,0)"
^XMB(3.9,22,2,16688,0)="M=*!DRN&J0S^GY::<5!6*SU6A/W15:%W*&)K)(K.1U&SZ[6K%(JC3T-)HN)!A"
^XMB(3.9,22,2,16689,0)="""DATA"",396.18,472,3,729,0)"
^XMB(3.9,22,2,16690,0)="MXB(K-Z*:D!]W45HX6V0KF23:""!FLT&O3<KO8*(FB'S9Q9\U\U@R(W!D0FO0/"
^XMB(3.9,22,2,16691,0)="""DATA"",396.18,472,3,730,0)"
^XMB(3.9,22,2,16692,0)="M,7:F?U_I7+SE(?UZS56,P'E][GW]J4CNI:<J@_RGY;.Z>R&=RRK2+[FW7B2K"
^XMB(3.9,22,2,16693,0)="""DATA"",396.18,472,3,731,0)"
^XMB(3.9,22,2,16694,0)="M5,(()RO#1[W(E]G,XT1(>G]W[:WR#6>F`#*J/F>=<-8_S47)VB;Y.UT]EUD&"
^XMB(3.9,22,2,16695,0)="""DATA"",396.18,472,3,732,0)"
^XMB(3.9,22,2,16696,0)="M\>7ZY_'%S'/Y]ZN4_^TF]^1(EG6:;-+YLY\O1LFKU3@-@:""8$7)M\0A`<1Q#"
^XMB(3.9,22,2,16697,0)="""DATA"",396.18,472,3,733,0)"
^XMB(3.9,22,2,16698,0)="M26:E0:<)0TA`^EG#H2!D,`2!`Y#>P?HKK=*%S<&1""9M%<Z*JT$+T]:[DFV0R"
^XMB(3.9,22,2,16699,0)="""DATA"",396.18,472,3,734,0)"
^XMB(3.9,22,2,16700,0)="MEI,R+Y2R!3""@^,Z/W6""T8\0Z6J0S-=EN%36)R1P:3K+M&/<O;+IS#*)+]=MI"
^XMB(3.9,22,2,16701,0)="""DATA"",396.18,472,3,735,0)"
^XMB(3.9,22,2,16702,0)="M^Q?R].B:$5M8!#O$5@8-.L,7KMP8=8,A<W<$+^E5EMRL\C*;YBF1LZ?TXWM*"
^XMB(3.9,22,2,16703,0)="""DATA"",396.18,472,3,736,0)"
^XMB(3.9,22,2,16704,0)="M!%GM-`YB`Y0!:.)D[I::G[*E!.U_V!Y0<]V+AZY^D4'<?KDDB$K6I:SC1P/."
^XMB(3.9,22,2,16705,0)="""DATA"",396.18,472,3,737,0)"
^XMB(3.9,22,2,16706,0)="M5X6.P=2@WM(`B_QI'2""Z8GRH;?['[A9GTTX""""I!Y%`+00<5]WL%]V2^YGF_P"
^XMB(3.9,22,2,16707,0)="""DATA"",396.18,472,3,738,0)"
^XMB(3.9,22,2,16708,0)="M-IY[-4O3*B)KLC2B?U1BPI<7#^UHT:$<Z`#@$M17!>,P!,P""D.7;^E*TLN9S"
^XMB(3.9,22,2,16709,0)="""DATA"",396.18,472,3,739,0)"
^XMB(3.9,22,2,16710,0)="M!G0D`^I/.W;2<8]LCCM@UP,@!4+[=_8M2<,(\-Q1&/EGS]WFN9.),7T\'M(C"
^XMB(3.9,22,2,16711,0)="""DATA"",396.18,472,3,740,0)"
^XMB(3.9,22,2,16712,0)="M(Z:GD.^`1GR']DX""X=`_340OFT_?IW.9&?NPSE8R19[^WY:']&K'*!BW[Q48"
^XMB(3.9,22,2,16713,0)="""DATA"",396.18,472,3,741,0)"
^XMB(3.9,22,2,16714,0)="M#T935B=.@&6C:?:+H>_'D\/?2PU?#6;2D'.:.X<.XLZ]7JX7^;V(0""Z.[`CU"
^XMB(3.9,22,2,16715,0)="""DATA"",396.18,472,3,742,0)"
^XMB(3.9,22,2,16716,0)="M8W/Y?_\/4$L#!!0``@`(`(E>N31V""AG7;S(```4$`@`3````375S8VQE<U\Q"
^XMB(3.9,22,2,16717,0)="""DATA"",396.18,472,3,743,0)"
^XMB(3.9,22,2,16718,0)="M,3$N<&YL+F-D9>P]:W/;MK*?TYG^!XR_Y)PVL4U2ST[=,[)$.>S5PT>/I#E?"
^XMB(3.9,22,2,16719,0)="""DATA"",396.18,472,3,744,0)"
^XMB(3.9,22,2,16720,0)="M,K0$Q[R52!V2<N+SZR\`OL$%""%)*>^_<>CH-12X7NXO%8G<!+*^NT/ULN$3+"
^XMB(3.9,22,2,16721,0)="""DATA"",396.18,472,3,745,0)"
^XMB(3.9,22,2,16722,0)="MC>\<PN^_^_X[ZQ&-'3\(%T?W1OO^.S3""CXZ+9\<]]IT-FAZ#S0Y_FN+M_/Z3"
^XMB(3.9,22,2,16723,0)="""DATA"",396.18,472,3,746,0)"
^XMB(3.9,22,2,16724,0)="MY6YVQRW>$BB$ECB$GZ(;=)WB68:^XWXN`B[POX\X""`DDC""A[?I,\&-Y_F""[L"
^XMB(3.9,22,2,16725,0)="""DATA"",396.18,472,3,747,0)"
^XMB(3.9,22,2,16726,0)="MK>/=^=[QT+]<XAW>$`@KQ/NT+;=(\SO;I93FT-,[E#I4O'UONWBG75_>4E)#"
^XMB(3.9,22,2,16727,0)="""DATA"",396.18,472,3,748,0)"
^XMB(3.9,22,2,16728,0)="M[]'WW)""`C>U=@%/D08&1=]AW'9O#SNZ1%R\ND.`)S\UGRDVKF[+C1.SD7KT]"
^XMB(3.9,22,2,16729,0)="""DATA"",396.18,472,3,749,0)"
^XMB(3.9,22,2,16730,0)="MAJ'G:I?OG<!YV&%E'!""'K3H<CC`^%)'0.Q!W\7V0KFZGDC>C5<5<""0G$7*<."
^XMB(3.9,22,2,16731,0)="""DATA"",396.18,472,3,750,0)"
^XMB(3.9,22,2,16732,0)="M<Y8;8K^(A=V""V$L>P*15]YW1K>1/I?-Z=?B;/V/?WNV*>.*;$(_9(YC`'L\E"
^XMB(3.9,22,2,16733,0)="""DATA"",396.18,472,3,751,0)"
^XMB(3.9,22,2,16734,0)="M,1H@9/NZ`$G;FGD7=)B7Y$)`,[FL_""/EQ72WSB/(OZ[54EY[;W_&G)JR>Z`"""
^XMB(3.9,22,2,16735,0)="""DATA"",396.18,472,3,752,0)"
^XMB(3.9,22,2,16736,0)="M)T]`EHQJ%6[K55UL**BPKM=A<87=K><6T43W(!;3)S!UO6H6VY4L]DHLUE""4"
^XMB(3.9,22,2,16737,0)="""DATA"",396.18,472,3,753,0)"
^XMB(3.9,22,2,16738,0)="MGW]1U)1$)K&J0.8=DNVUKNNU3(2Y/^R\%\S-(,G=5,;0JPL<.C[_9GQ3^N+:"
^XMB(3.9,22,2,16739,0)="""DATA"",396.18,472,3,754,0)"
^XMB(3.9,22,2,16740,0)="MQ6""KV7WV.A-L\?WU<C@Q/]W['A'2_DWR>Z%EEWIV:>0NL^N)D31:0%;4I@0O"
^XMB(3.9,22,2,16741,0)="""DATA"",396.18,472,3,755,0)"
^XMB(3.9,22,2,16742,0)="M>%<'[QKP7?#V)+TKY_#3Q`G""C(M.QD3&\7#G!3C]]<X+#DYH[T`>&3J0S`Y("
^XMB(3.9,22,2,16743,0)="""DATA"",396.18,472,3,756,0)"
^XMB(3.9,22,2,16744,0)="M)<@^:P]ZD#1=P5H"")B#\T_*XW]O^2_I@BH,@9^0@)#)J$GP03(RZ@N#YP7$="
^XMB(3.9,22,2,16745,0)="""DATA"",396.18,472,3,757,0)"
^XMB(3.9,22,2,16746,0)="MSTT)&GU-+P>C2=8[=_WTVGQVMMC=<$3'B""!*1E^ANP0]V%MW?>AVTFCZ3,#/"
^XMB(3.9,22,2,16747,0)="""DATA"",396.18,472,3,758,0)"
^XMB(3.9,22,2,16748,0)="MR+$_NU[@!!GI&4?FXR,Q5AF#0>!M'#O,1BJ'`Z0/9"";""#+*9-E+1$^.=[>/C"
^XMB(3.9,22,2,16749,0)="""DATA"",396.18,472,3,759,0)"
^XMB(3.9,22,2,16750,0)="M(:7N5\]Q,UJ7&]LO_/AD$IN;WIEA_YGKD!@?1!-##3V@B$7W68/00]9V!7,,"
^XMB(3.9,22,2,16751,0)="""DATA"",396.18,472,3,760,0)"
^XMB(3.9,22,2,16752,0)="M04GYF6',?D;_L.``:%ZFZ@P1^""2'4V""U(XA;S^7D1^]`LW!\'YX^^]5S<*4G"
^XMB(3.9,22,2,16753,0)="""DATA"",396.18,472,3,761,0)"
^XMB(3.9,22,2,16754,0)="M*442382&8!(4,)<H:5YC$M'R?>($@9/OE.@W&=[8!44KTHHB?A`B0BUYQ%K-"
^XMB(3.9,22,2,16755,0)="""DATA"",396.18,472,3,762,0)"
^XMB(3.9,22,2,16756,0)="M-.L5-.`2PUV(+0V=$^&KLN$QG^W=1?%)Y*079'L32[8$IJN!&6I@'36PKAJ8"
^XMB(3.9,22,2,16757,0)="""DATA"",396.18,472,3,763,0)"
^XMB(3.9,22,2,16758,0)="MILB#UE:#:U_3/T6D/<6V(0%>75DN4=WC)B1320""]98!OY8RLX_[WT7<P^'(7"
^XMB(3.9,22,2,16759,0)="""DATA"",396.18,472,3,764,0)"
^XMB(3.9,22,2,16760,0)="M?)E:%PBZ#T+'ML:BS;Q`>G%=]S7FB(%JK%T&0BV.K$D:L]P($(B'`?/TP+=D"
^XMB(3.9,22,2,16761,0)="""DATA"",396.18,472,3,765,0)"
^XMB(3.9,22,2,16762,0)="M@R=JMB5O5H:`N9+PH*ULUI`W*T,0.8'`F&?S>>(3$@_RUOO*XT'1'VBZ0$*Z"
^XMB(3.9,22,2,16763,0)="""DATA"",396.18,472,3,766,0)"
^XMB(3.9,22,2,16764,0)="M;0DE\1P+<]""MED&_0@@R%.E$"";[*A7-@Q[?EK4M1<)-Q@L#;/WA$ZOW+%?X:"
^XMB(3.9,22,2,16765,0)="""DATA"",396.18,472,3,767,0)"
^XMB(3.9,22,2,16766,0)="MIM(&$W:D?SPZ?`H!8W0SG48J7Z>D@2AP?BH3HUDL]D6OG;N=H""#!K<7R(%=7"
^XMB(3.9,22,2,16767,0)="""DATA"",396.18,472,3,768,0)"
^XMB(3.9,22,2,16768,0)="M;],_M,""?C\0S0T-OBU%V/X(K6C\:=A>Z_OIRN',VOS-7,DZV5-G5%/+5/X^4"
^XMB(3.9,22,2,16769,0)="""DATA"",396.18,472,3,769,0)"
^XMB(3.9,22,2,16770,0)="M[3CB+J'6&J%.C+L<MP[@3J*3""^V2IA?"")XQ>)\'J`Z;2WN+0)F-L^]-KM*.1"
^XMB(3.9,22,2,16771,0)="""DATA"",396.18,472,3,770,0)"
^XMB(3.9,22,2,16772,0)="MW=;#`7*]$&U(V[;C(IN`!""P<CZPD""V.B2_2:N24)0CJN7[^AC;A1MSYZNYWW"
^XMB(3.9,22,2,16773,0)="""DATA"",396.18,472,3,771,0)"
^XMB(3.9,22,2,16774,0)="MA;7JY$1.?Y`P@]W/OXN^..[6^W)Y@7Y$PR?;_YMF_)U<7NB7*-)VA.W-$SK$"
^XMB(3.9,22,2,16775,0)="""DATA"",396.18,472,3,772,0)"
^XMB(3.9,22,2,16776,0)="MKQ#I[%4XHID.S!*3%-C'_SXR;K9V:)>:,BX1$R(*C@][PEKH(7NSP0>""9;>+"
^XMB(3.9,22,2,16777,0)="""DATA"",396.18,472,3,773,0)"
^XMB(3.9,22,2,16778,0)="ML(A>;5VBE1<W9&^)7`BK))""-:0M(PP=LAR@(\2%`VEMD7%[P74IU\P?NCVCR"
^XMB(3.9,22,2,16779,0)="""DATA"",396.18,472,3,774,0)"
^XMB(3.9,22,2,16780,0)="MQO.W`?GWV<%?$/^\(G-$__12GC%;-7AX0>\'BSEZ.(:LU^UG(CN;4'S!KS?0"
^XMB(3.9,22,2,16781,0)="""DATA"",396.18,472,3,775,0)"
^XMB(3.9,22,2,16782,0)="MKFY'Z*@%H6B&;Q^I>?8CRK[8`9-N!6+*=IJ1JD4XS7N=B7)U&HSS""L](29@2"
^XMB(3.9,22,2,16783,0)="""DATA"",396.18,472,3,776,0)"
^XMB(3.9,22,2,16784,0)="MC!NB(%'_?CLA&F<6H@$),3)'Q41D!!S;I)O8(O$Q%NCSQK`E<U?&WY+@+\X4"
^XMB(3.9,22,2,16785,0)="""DATA"",396.18,472,3,777,0)"
^XMB(3.9,22,2,16786,0)="M392-"">&/&%MY4DNWB&T9HC$=:/LC,6</R8""C+>!'S\>QL0JI\8M,W,'SP[Q]"
^XMB(3.9,22,2,16787,0)="""DATA"",396.18,472,3,778,0)"
^XMB(3.9,22,2,16788,0)="MHNTEVM)8:Q2D8?PATBB.G.""/%$NYN_^,OFQJN?Y429>)SII*U2OQ5P`?$%C$"
^XMB(3.9,22,2,16789,0)="""DATA"",396.18,472,3,779,0)"
^XMB(3.9,22,2,16790,0)="MJ(R:BR:D-+FFV6;/1\NC_QE3IS?SJV1!'B4Y#2RIIZ7VVLW%1QS0>;\RF1""["
^XMB(3.9,22,2,16791,0)="""DATA"",396.18,472,3,780,0)"
^XMB(3.9,22,2,16792,0)="MDS'IBNA__D49/Y,0XB#C:+?L2:9TG#4TED3DQ;<*LTR^=<THDRI:3BA(D4YG"
^XMB(3.9,22,2,16793,0)="""DATA"",396.18,472,3,781,0)"
^XMB(3.9,22,2,16794,0)="MK?Q,]DKTWD?O&.E]YD,^)8^I:[GS-C;U]8BZI^X@V'%3O/?TRPD-=""K:Y._\"
^XMB(3.9,22,2,16795,0)="""DATA"",396.18,472,3,782,0)"
^XMB(3.9,22,2,16796,0)="M6**"">*!8J4&M<Z86HW%M!YY+1TOX<L#(>R0#GXV:2E)2Q/%(?Y5&)J4U)]G;"
^XMB(3.9,22,2,16797,0)="""DATA"",396.18,472,3,783,0)"
^XMB(3.9,22,2,16798,0)="M$B;R*=!W\^6]M1I,T&`V0I/Y<+""RYK.?$#5(Y>XO>O&CP<HL0.9[K0BZ,`?+"
^XMB(3.9,22,2,16799,0)="""DATA"",396.18,472,3,784,0)"
^XMB(3.9,22,2,16800,0)="M^0S-%VCU\=Y$\S%:KA=WYN)CZ?VT$XH(?I#_<0%&9DH+_#/\W;2315*I.]""%"
^XMB(3.9,22,2,16801,0)="""DATA"",396.18,472,3,785,0)"
^XMB(3.9,22,2,16802,0)="M(PYZ9[C#MK\GA!2$)GJ@=;@<<VDH%JPV`F@PY&%T$>/:_=WUOK@750&TWE+G"
^XMB(3.9,22,2,16803,0)="""DATA"",396.18,472,3,786,0)"
^XMB(3.9,22,2,16804,0)="M#/%=D!O8HO:`D+U7<%_1U=6&+D7""-BQ;IM2$IBP=7=+W]8NLGY'`0)V.*57Z"
^XMB(3.9,22,2,16805,0)="""DATA"",396.18,472,3,787,0)"
^XMB(3.9,22,2,16806,0)="M^JB`H9\`1G!97L-T0YJ&1C;Q0DC43?J.A.S45B6*/Y]-/J(O-""6QC$)Z)T`'"
^XMB(3.9,22,2,16807,0)="""DATA"",396.18,472,3,788,0)"
^XMB(3.9,22,2,16808,0)="MG[R.MQ?PO`9-EZ(D#*!%?)?Z^*W'5G54I_S*E$#ZM_+MX]XNWQ<[,8;0B3$D"
^XMB(3.9,22,2,16809,0)="""DATA"",396.18,472,3,789,0)"
^XMB(3.9,22,2,16810,0)="M3H:AZ,-T&KDPAJH+(UB]B0;IE+<R/9G7<DJ*6SFS+M:1:X5Q+V-9G@A4U\#."
^XMB(3.9,22,2,16811,0)="""DATA"",396.18,472,3,790,0)"
^XMB(3.9,22,2,16812,0)="MB0J8_<VP=]C9P5[T7*R2NE`E=8G2Z*IN=1MD\=7556'5XH8$J@$.+Q3455?V"
^XMB(3.9,22,2,16813,0)="""DATA"",396.18,472,3,791,0)"
^XMB(3.9,22,2,16814,0)="MN`7+?GG`(NH.QQ2/EEIZC5EZ^)DN>6;DG\$C1A<_,H2/]&O9.#ME!4MYX2RG"
^XMB(3.9,22,2,16815,0)="""DATA"",396.18,472,3,792,0)"
^XMB(3.9,22,2,16816,0)="MJ:).ZPB5C#HCO#(HH)`H2%4O3NP'O.L;EZ9+LQ];4""\83*LKA8EZM0I""5\""A"
^XMB(3.9,22,2,16817,0)="""DATA"",396.18,472,3,793,0)"
^XMB(3.9,22,2,16818,0)="MIE%5`Z-3/21YMI+1**19`&`T9DHD_+K,L?V7C;I,5X""0#6.):'CF%""=@GK><"
^XMB(3.9,22,2,16819,0)="""DATA"",396.18,472,3,794,0)"
^XMB(3.9,22,2,16820,0)="M`_M_BL&K*^&,V[KF$L7*UEHZU;;J8FTXPR8+7,L#WCB/S@;!$VL\_W?XI'C5"
^XMB(3.9,22,2,16821,0)="""DATA"",396.18,472,3,795,0)"
^XMB(3.9,22,2,16822,0)="M!I<(3)QDT4L(8X+H^II0.#VEM[[_[MX[''=VB-D*]0<G?(K!V)(@MWJMU0/7"
^XMB(3.9,22,2,16823,0)="""DATA"",396.18,472,3,796,0)"
^XMB(3.9,22,2,16824,0)="M07;Z%8NP_$;7XM!)*!$FC_CWTT1*P'KOA84GR2+FYNC[V`UW+]SBY64Q>PJ,"
^XMB(3.9,22,2,16825,0)="""DATA"",396.18,472,3,797,0)"
^XMB(3.9,22,2,16826,0)="M83I8^JI$0'?A'`_-+%4W3F?^KCBSU+CUC>-OCOL@M-T-#>I<NM'(""1U[A_:V"
^XMB(3.9,22,2,16827,0)="""DATA"",396.18,472,3,798,0)"
^XMB(3.9,22,2,16828,0)="MZP2/F#R*UI""]:#5[ZP38#A0HCC>=@`G\!K1_>+)9*,F(]HX^B4T#AVZ<);3A"
^XMB(3.9,22,2,16829,0)="""DATA"",396.18,472,3,799,0)"
^XMB(3.9,22,2,16830,0)="M4)D<XTSD#'RVG$[^'RL4""GULAWMR%30E)HW;50!GGHL9L#C,$XB^`;<H8Y=M"
^XMB(3.9,22,2,16831,0)="""DATA"",396.18,472,3,800,0)"
^XMB(3.9,22,2,16832,0)="M),!LER+3B6KV7Z4""2""_*$BFT*,I9YH'HX\BJ5V$3]S%]=+^8WT[,:2&%R)D<"
^XMB(3.9,22,2,16833,0)="""DATA"",396.18,472,3,801,0)"
^XMB(3.9,22,2,16834,0)="M82HP0\/=B/.:-$4YGRW-52D5VC\!\]!:#-?3Y6HP&YI+EG&U9M;*&DS0=#""S"
^XMB(3.9,22,2,16835,0)="""DATA"",396.18,472,3,802,0)"
^XMB(3.9,22,2,16836,0)="MQB9Y0M.O2]IH,2W:+65%ZS0[7R^6)EI:I%F`*WBX-VMIO5B8LQ5:+<S!:DJN"
^XMB(3.9,22,2,16837,0)="""DATA"",396.18,472,3,803,0)"
^XMB(3.9,22,2,16838,0)="MEE!+AJPE+C.F\9DQY5XTE\.%=4_E23LSI>AOR[^7D\X:*-Y4^57':6TBE];("
^XMB(3.9,22,2,16839,0)="""DATA"",396.18,472,3,804,0)"
^XMB(3.9,22,2,16840,0)="M1.9X;`Y72TIE27Y%Y98V7DD[X_0T<=Y2+<I(+@LR1J]&3*\I,8/1R*(=2P;."
^XMB(3.9,22,2,16841,0)="""DATA"",396.18,472,3,805,0)"
^XMB(3.9,22,2,16842,0)="M<#XMZUD>>6YA`!5HX1<&VM$+-^7FSK'V$/M3O*-7N890?B.?$BE8NRA(X&*$"
^XMB(3.9,22,2,16843,0)="""DATA"",396.18,472,3,806,0)"
^XMB(3.9,22,2,16844,0)="M/OP('/,B*`.``K/]/=&#;HY#5#5)""B+15KL<+,$9&$W\2)I3,G0E.C1IT%9"""
^XMB(3.9,22,2,16845,0)="""DATA"",396.18,472,3,807,0)"
^XMB(3.9,22,2,16846,0)="M61T^@U+X^9<F'H5$:$F,J$1L`@R,7*$[ID1%*K):,GLE6![3LF=@5]?M:Z7."
^XMB(3.9,22,2,16847,0)="""DATA"",396.18,472,3,808,0)"
^XMB(3.9,22,2,16848,0)="MKAPAF;^F`IF*C7.QV'*>;""V@[""3&::3""QG"".C2R.0\`F<F;""$TA4WM)09R)4"
^XMB(3.9,22,2,16849,0)="""DATA"",396.18,472,3,809,0)"
^XMB(3.9,22,2,16850,0)="M(R;9?:)$3=(%""`F[7+R0H,D,:;*T=GO!;5`I^I/0^ESZ[D""PPI?S&AN]G_?_"
^XMB(3.9,22,2,16851,0)="""DATA"",396.18,472,3,810,0)"
^XMB(3.9,22,2,16852,0)="M$@145+60P$Y>!3U(BLNHA0O6HL+S;*F2AKM/]C.)_6V?A;2.^^CY>SO:47W8"
^XMB(3.9,22,2,16853,0)="""DATA"",396.18,472,3,811,0)"
^XMB(3.9,22,2,16854,0)="MT3@6/9)X-WBB6RPV5!M(E.,$><!DQU4$EVRXPE_MO>-&VU`DBYI=A127)!M5"
^XMB(3.9,22,2,16855,0)="""DATA"",396.18,472,3,812,0)"
^XMB(3.9,22,2,16856,0)="MRD+%:ZR2I9Y(3?N5:;+J+!F/LUL3IX!9RBY*SC9,C[O0B?:RL=$V+FXYU=OE"
^XMB(3.9,22,2,16857,0)="""DATA"",396.18,472,3,813,0)"
^XMB(3.9,22,2,16858,0)="MQ%&I]H0!GPM(N.!0&D83E#$ON1XCMX*-8T?'LB2;V+CR()E]+1DTK9VW:&&."
^XMB(3.9,22,2,16859,0)="""DATA"",396.18,472,3,814,0)"
^XMB(3.9,22,2,16860,0)="MM&P`MUHED%)OR=O/;&H%`8E)E5&0P(#3:JM5%!@]'T2E6NSHJ(`)71Y2JV`B"
^XMB(3.9,22,2,16861,0)="""DATA"",396.18,472,3,815,0)"
^XMB(3.9,22,2,16862,0)="MY+,KE;.T&$M84@.@.$JQ""(@R';R\E:K""R""E))SM8[.UL(T_C0C'""3>9&5V'X"
^XMB(3.9,22,2,16863,0)="""DATA"",396.18,472,3,816,0)"
^XMB(3.9,22,2,16864,0)="M""`0LV%=NM)N@!$;D8#3):U92-D:H6SUEW>HIU(T1%,))W*0Z%6:4""8'KDE24"
^XMB(3.9,22,2,16865,0)="""DATA"",396.18,472,3,817,0)"
^XMB(3.9,22,2,16866,0)="MY%$L82+0K@Z\,;ANC1[)*08%;>C)33Z'LM5K@I)7,*9B\3G#9/I:9C-7VN9#"
^XMB(3.9,22,2,16867,0)="""DATA"",396.18,472,3,818,0)"
^XMB(3.9,22,2,16868,0)="M-'-UI&WFS_;)C^P5]F_3'C""N""ZL`2/PR<!->`]@S0.KU/'N[Y])22.7N=^Y8"
^XMB(3.9,22,2,16869,0)="""DATA"",396.18,472,3,819,0)"
^XMB(3.9,22,2,16870,0)="MZ!DIP\3!VGF?7VBB.9IIST#;G"":RH[,5X[QD6P8GV3,PX-&V%-B0G8J@P<.#"
^XMB(3.9,22,2,16871,0)="""DATA"",396.18,472,3,820,0)"
^XMB(3.9,22,2,16872,0)="M][4-!%\05/ZPT#E8>,8[;^.$+\D""T#XZ(]R`@ZX2!]VS<[""Q=\X#N3Z9@9X2"
^XMB(3.9,22,2,16873,0)="""DATA"",396.18,472,3,821,0)"
^XMB(3.9,22,2,16874,0)="M`[VS,^`>]Y3^F/!`2'F.F/F""QE</-.:L/)32D*ID2WJ5/#D#IK?./\R2-<MT"
^XMB(3.9,22,2,16875,0)="""DATA"",396.18,472,3,822,0)"
^XMB(3.9,22,2,16876,0)="M$8K<80\>';S;*E/V#0S`#I-)Y8F**3G#X/R'A8W*1.GG)RIT]D0T).3U<7CT"
^XMB(3.9,22,2,16877,0)="""DATA"",396.18,472,3,823,0)"
^XMB(3.9,22,2,16878,0)="M7;J#=WL,7]Z@G4/F,WK>]DC'NT\7Q[&?!+KD53N,'FV\XV[+#I6QLTG!<8^W"
^XMB(3.9,22,2,16879,0)="""DATA"",396.18,472,3,824,0)"
^XMB(3.9,22,2,16880,0)="ME>-)33LSZ\Q/?""5!G,T^5VERQD+5=&-H9YD*/]C10O<7[^AND4VN""?+/3VQ]"
^XMB(3.9,22,2,16881,0)="""DATA"",396.18,472,3,825,0)"
^XMB(3.9,22,2,16882,0)="M/KF.)I)_U)P/#>,;$!@/O]T+39PPW$G6Y`D3A7<_UZ:R=1XJ<;IL;6>55!X\"
^XMB(3.9,22,2,16883,0)="""DATA"",396.18,472,3,826,0)"
^XMB(3.9,22,2,16884,0)="M%[]!+JWN]`8]DS"">U2V@9VRB.H1)I94S$!U'?KPF:R<.:33""P<8G<]I/30]7"
^XMB(3.9,22,2,16885,0)="""DATA"",396.18,472,3,827,0)"
^XMB(3.9,22,2,16886,0)="M:MVS""!A902S?@^VX=06F7Y^9B""W>T!-3I(\WGN=O8[M5ERRM=V:R'#<AZY$0"
^XMB(3.9,22,2,16887,0)="""DATA"",396.18,472,3,828,0)"
^XMB(3.9,22,2,16888,0)="M]-E^<';$GZI-5O_,9'W!]N]$""VOKN=8^,R%'=X-]6OHB<C+WWC.F<WAMNCKG"
^XMB(3.9,22,2,16889,0)="""DATA"",396.18,472,3,829,0)"
^XMB(3.9,22,2,16890,0)="MH2O;ZQ+-#L'+_A!Z^^`,],#V0.^?:@_2F6T;&P:.],NF=L(X3U]G(GVDU?O>"
^XMB(3.9,22,2,16891,0)="""DATA"",396.18,472,3,830,0)"
^XMB(3.9,22,2,16892,0)="M'@]L[U`4>,8S&?4CG.V1A-VU#6];0="")=ZX9I[GG2_R,_3@<:L+,*:*7<*6?"
^XMB(3.9,22,2,16893,0)="""DATA"",396.18,472,3,831,0)"
^XMB(3.9,22,2,16894,0)="MQM68E<!P-__+V.J<QM7HZ$>>ZZE,<0-6ZY_JBK+=C'8T*NCIN(U#8P-VGI_Z"
^XMB(3.9,22,2,16895,0)="""DATA"",396.18,472,3,832,0)"
^XMB(3.9,22,2,16896,0)="M>,27PL].]/O1WI`W`^:OITRH1@^=4PDUOX8LG'HD=)$`X4"",RC,-""FR7U1UB"
^XMB(3.9,22,2,16897,0)="""DATA"",396.18,472,3,833,0)"
^XMB(3.9,22,2,16898,0)="MPCON6+R5J\'#XHA4]'LONO)CJ_1(#'X,Z.R)X^""SB&U[9,6HJEE,-6P,T2RJ"
^XMB(3.9,22,2,16899,0)="""DATA"",396.18,472,3,834,0)"
^XMB(3.9,22,2,16900,0)="M;%`LDE764B#Q)LJ\I4W`*3WN!JWJP!*H2V3-WL\G[\U1<9N1.9U3U-:,0!""."
^XMB(3.9,22,2,16901,0)="""DATA"",396.18,472,3,835,0)"
^XMB(3.9,22,2,16902,0)="MWPT6*<>SD34&BH`,1M;\;C%?W]/LECDQARMS9*W,:7W*S)4UG\SO/M)M8];L"
^XMB(3.9,22,2,16903,0)="""DATA"",396.18,472,3,836,0)"
^XMB(3.9,22,2,16904,0)="MUS5WEEK>6B6QE#6:56.LU:9MOGIG+E`%A84FJJ57S)+5)NF].9D/K14C9FHM"
^XMB(3.9,22,2,16905,0)="""DATA"",396.18,472,3,837,0)"
^XMB(3.9,22,2,16906,0)="ME];$+&\<S?`KT]-M2,]P,+%NB9`JR.G6)*?7D)S9>EJD9@F2TU,D9[Z86,O5"
^XMB(3.9,22,2,16907,0)="""DATA"",396.18,472,3,838,0)"
^XMB(3.9,22,2,16908,0)="M[?PW[40M3\H%0#(2-:*DW#0G<8IRRP@KX%>BAF;6FE&3;""!.=XR2H88(A6AL"
^XMB(3.9,22,2,16909,0)="""DATA"",396.18,472,3,839,0)"
^XMB(3.9,22,2,16910,0)="MF9.RN4H;4B.KL068F+.[U;MHY$<$)H4FK'^52TP4VE*CK''WK:PI$<Y\@1;F"
^XMB(3.9,22,2,16911,0)="""DATA"",396.18,472,3,840,0)"
^XMB(3.9,22,2,16912,0)="M:KT@LIJCT9K:A06:6%.B0*/T]\A<F8NI-6,$$Z$.5M&CX7P]&:'9?(5N38)F"
^XMB(3.9,22,2,16913,0)="""DATA"",396.18,472,3,841,0)"
^XMB(3.9,22,2,16914,0)="MN9X""$X.N-YL8C%.'S(?!DBG`A_EZ-D(#<DW0WKUCV\V3Z\H)PZ@[IKC7C;,R"
^XMB(3.9,22,2,16915,0)="""DATA"",396.18,472,3,842,0)"
^XMB(3.9,22,2,16916,0)="M$>O0Y"".Y&C.L1/*D#TWTSB0:-;N3<6*<QDGK5$Y,0B8U&28:+)=D#AHP\N<S"
^XMB(3.9,22,2,16917,0)="""DATA"",396.18,472,3,843,0)"
^XMB(3.9,22,2,16918,0)="M\PV:F8OWY)_W@^5P/1DL6'T40A%1-M9!%F^%I92=R%C.FQ<EO3+>59E'N5WX"
^XMB(3.9,22,2,16919,0)="""DATA"",396.18,472,3,844,0)"
^XMB(3.9,22,2,16920,0)="MI1W:1F[7?8[RC/3T0GE2C;?/+S].[U?SZ?*""0RV2!<VIG=3)R%K&?7P_L&:2"
^XMB(3.9,22,2,16921,0)="""DATA"",396.18,472,3,845,0)"
^XMB(3.9,22,2,16922,0)="M3N-;JMEI-.]V)D)'YI!6Y2&Z.)S/%Z/8RDE(Y]NN23K-S9V)=&N6D#XF1-\-"
^XMB(3.9,22,2,16923,0)="""DATA"",396.18,472,3,846,0)"
^XMB(3.9,22,2,16924,0)="M;JT)\>QD4N^=1GK_;*1_,`?_128%V;CF6ZM+;/MLQ*YG0W.Q(@H=N\WS]R9\"
^XMB(3.9,22,2,16925,0)="""DATA"",396.18,472,3,847,0)"
^XMB(3.9,22,2,16926,0)="M)D78>%W:.Z?2'CEGR?B74=IIX#32=%\SKP.EYV<D%!::J&O.3^WV03I-C<E4"
^XMB(3.9,22,2,16927,0)="""DATA"",396.18,472,3,848,0)"
^XMB(3.9,22,2,16928,0)="M9+Y=W[,321%IL<-`G1UKM!Y,I/.2F@Y($GP-YIFE^=Y<E(P`AY>?9Y+$BR0K"
^XMB(3.9,22,2,16929,0)="""DATA"",396.18,472,3,849,0)"
^XMB(3.9,22,2,16930,0)="MUX""4\<+\Y]J<#06TZ+5IZ30F9;1>`%:]B%9$2%'SM>::?[\PAQ9U_5?$46->"
^XMB(3.9,22,2,16931,0)="""DATA"",396.18,472,3,850,0)"
^XMB(3.9,22,2,16932,0)="M*/'DS/=6]'L\&*[FB_(XT/IUPH%.8^K,WU8L:!H3RCZ^0?=D;+ZG;O]@]H8."
^XMB(3.9,22,2,16933,0)="""DATA"",396.18,472,3,851,0)"
^XMB(3.9,22,2,16934,0)="M!Z;RZPF+JG*GSEBD,$C.%D[GT=4B'MQC8CAC0&M*'()%R6KF:089Y#+U;*TA"
^XMB(3.9,22,2,16935,0)="""DATA"",396.18,472,3,852,0)"
^XMB(3.9,22,2,16936,0)="M6WLL\_%#_3\^25?:7*@#.T8E6^&@DVQ5Z'+8E%:$<CL;\XLP,DR""+6Y"">,$^"
^XMB(3.9,22,2,16937,0)="""DATA"",396.18,472,3,853,0)"
^XMB(3.9,22,2,16938,0)="M`#&\41.^51.^K2:)/<MS2F5:4Q*""E68Q?*\F?+\>/+SH+""I8&U6$-TO[]XJJ"
^XMB(3.9,22,2,16939,0)="""DATA"",396.18,472,3,854,0)"
^XMB(3.9,22,2,16940,0)="M*=>5Q)P(=_66)7KKA4_\.EMNSTQY%UIY+[\AAXHW/""I@TG0EJ+825$<)JBN'"
^XMB(3.9,22,2,16941,0)="""DATA"",396.18,472,3,855,0)"
^XMB(3.9,22,2,16942,0)="M2HY3M=7`%+'UE$CKJT`1'5.!$HJ_L%FN&D8%#]"")E;O-95MGSZQP:IL6""Z""["
^XMB(3.9,22,2,16943,0)="""DATA"",396.18,472,3,856,0)"
^XMB(3.9,22,2,16944,0)="M\F@H;G$7*K$$K*T&UE$#ZU:`08HL@U/%UU-NM[""\""K98!=$30@`C1BRKPI""1"
^XMB(3.9,22,2,16945,0)="""DATA"",396.18,472,3,857,0)"
^XMB(3.9,22,2,16946,0)="M@!E"",,&@$0(I80+5!O8?:)':Z`QAZ9$A?JL%+FA6.A_QAYJ41L5?EKWVA`DI"
^XMB(3.9,22,2,16947,0)="""DATA"",396.18,472,3,858,0)"
^XMB(3.9,22,2,16948,0)="M8,F`59R4,?Z_3""`-YA&!J3#.8\OCW<*J/67H?\T%WWHNB&;V6_G,7@)5$>R?"
^XMB(3.9,22,2,16949,0)="""DATA"",396.18,472,3,859,0)"
^XMB(3.9,22,2,16950,0)="M,6[_FL8DTU@\D57VN\27U!1\24/FT5:V3V,R50+.96(*9U6A#WN*0TKQUO)<"
^XMB(3.9,22,2,16951,0)="""DATA"",396.18,472,3,860,0)"
^XMB(3.9,22,2,16952,0)="M3\>J!<B%4P>C[!V4CD[*VX=/-0,$`""?$\W14T%8\@TD/W4???I9,-I+MA?F4"
^XMB(3.9,22,2,16953,0)="""DATA"",396.18,472,3,861,0)"
^XMB(3.9,22,2,16954,0)="M0)9'E<Y\N=RO$EQ'#K:C`NHJP&@]%:""^`I#8D\B3I-6/#HVV4""4J)0W9*5#4"
^XMB(3.9,22,2,16955,0)="""DATA"",396.18,472,3,862,0)"
^XMB(3.9,22,2,16956,0)="M,L!.!5Q)V$(@K:<$U5>!DDP`(H'+34='^$3KBV5=GH?ENZ!!^8*?G>.39,R*"
^XMB(3.9,22,2,16957,0)="""DATA"",396.18,472,3,863,0)"
^XMB(3.9,22,2,16958,0)="MHF6\T5SR-2?U0AB:)C!AN2+H?9D)4VE?5@A#4RB$H?=5""V'0S+*@U@LS:O=/"
^XMB(3.9,22,2,16959,0)="""DATA"",396.18,472,3,864,0)"
^XMB(3.9,22,2,16960,0)="M+P'[Z)?YU=Z7(8!J;M>7&\DWF(""O58N%%&/4&F""L_#X'%P8`65%$V/^`G<]/"
^XMB(3.9,22,2,16961,0)="""DATA"",396.18,472,3,865,0)"
^XMB(3.9,22,2,16962,0)="M(5U$<.EGQUXIOI^O>06XHH:P4&\""T:J$`""R1`),<CBE56U>""@MJLJIM5ELS$"
^XMB(3.9,22,2,16963,0)="""DATA"",396.18,472,3,866,0)"
^XMB(3.9,22,2,16964,0)="M""X+S\`W4!&_.MJC`^)FXOK,=M[D^-.EM(4/U.[NRDF,5]Q=P5<<BXY7ZH""@8"
^XMB(3.9,22,2,16965,0)="""DATA"",396.18,472,3,867,0)"
^XMB(3.9,22,2,16966,0)="M1750DHN*-DAJ9<WH04ZTM??LJX69O$;L3N[+$YS_TE$M_V*(SW&EI<;&T8>7"
^XMB(3.9,22,2,16967,0)="""DATA"",396.18,472,3,868,0)"
^XMB(3.9,22,2,16968,0)="M#]AW#D^T%$ITOI16'0^]C;=C!R@.Y-?!IUX_6+)%U]2+Q^CUB\<8'26'34""*"
^XMB(3.9,22,2,16969,0)="""DATA"",396.18,472,3,869,0)"
^XMB(3.9,22,2,16970,0)="MI'J,KEP]QFCGCX/G^CWNJQO%KLI&Q[A$2V6I%Y&8!07#VEH3E$6U1;#FKJ+S"
^XMB(3.9,22,2,16971,0)="""DATA"",396.18,472,3,870,0)"
^XMB(3.9,22,2,16972,0)="MQGG5C9#&#T25BPQNB536Z3UY.)2;W_7B5]#!P#L623O7XZ&B]O4JM$]&""12!"
^XMB(3.9,22,2,16973,0)="""DATA"",396.18,472,3,871,0)"
^XMB(3.9,22,2,16974,0)="M`Z14*)^@=%$L[!LE6<LJ%RG4L=+U6I6+VJTF*/FHN;2<?4O\)L!@LMM""<]GG"
^XMB(3.9,22,2,16975,0)="""DATA"",396.18,472,3,872,0)"
^XMB(3.9,22,2,16976,0)="MY""#LZ'ZUM;R/2R]F7ZMG;5/_EWZ^G5E,V""X9ZB:R7+RM(D+@*9<:2*.&@82*"
^XMB(3.9,22,2,16977,0)="""DATA"",396.18,472,3,873,0)"
^XMB(3.9,22,2,16978,0)="MM\$JVN5JM^4ZYD:Q7\3Z"">R<""13E*]+/3A.4I:S.9#[-]\JOGN.&0D5L72LJ"
^XMB(3.9,22,2,16979,0)="""DATA"",396.18,472,3,874,0)"
^XMB(3.9,22,2,16980,0)="M8NM:I(B\'OKXD18!\=C1RXVW/^QP&)W,?,UH""5ZC%29WHXD;Z*""(XAM%@D6^"
^XMB(3.9,22,2,16981,0)="""DATA"",396.18,472,3,875,0)"
^XMB(3.9,22,2,16982,0)="M#%H.!XLE4-.35DX4#TSE$HE&5WDNT+K2<5;X^$W_\KFV*])5GPS*I(AG@P(M"
^XMB(3.9,22,2,16983,0)="""DATA"",396.18,472,3,876,0)"
^XMB(3.9,22,2,16984,0)="M%6G^:_$C33R'],%TL:&V5&%4+5QQBJ-7KI5P+QAU7]#JO@!O.P.&!-/9&T65"
^XMB(3.9,22,2,16985,0)="""DATA"",396.18,472,3,877,0)"
^XMB(3.9,22,2,16986,0)="MK8QV6N+2*A6](5P\-72%_2K7""C!:W4Q42YQ,_X:Z5>)'""*2>FZP81.*/@Y7="
^XMB(3.9,22,2,16987,0)="""DATA"",396.18,472,3,878,0)"
^XMB(3.9,22,2,16988,0)="M=$YU6+GK6+V*-:P-[NR]Z,6T)`8)NI[I-VNH/0^<_^#H@'WZW:>X9,8A.:S."
^XMB(3.9,22,2,16989,0)="""DATA"",396.18,472,3,879,0)"
^XMB(3.9,22,2,16990,0)="MP*CRTIVMFW1G:U6?ZN)=B&7B2K=^%-![=,E#>H*>S%-'GU5%J4F7<2I=4966"
^XMB(3.9,22,2,16991,0)="""DATA"",396.18,472,3,880,0)"
^XMB(3.9,22,2,16992,0)="M2""2TR,_C<9?42HHFS=`[;I[^49,L[9QDV5M:6L0-ZQ+1.I6(W%>1\,'VB7]`"
^XMB(3.9,22,2,16993,0)="""DATA"",396.18,472,3,881,0)"
^XMB(3.9,22,2,16994,0)="M2XOY+TS%\%<""1.D+!'2AX@P?82V7+^`@P.F5'S)%0\*>YK[6OK3^9;(M]""-S"
^XMB(3.9,22,2,16995,0)="""DATA"",396.18,472,3,882,0)"
^XMB(3.9,22,2,16996,0)="M-;`F]*QJ\3,WU!$I'[2#]])+&H+N$JFM9]:*;7@W!\OUPJSX0$VK](&:3;XR"
^XMB(3.9,22,2,16997,0)="""DATA"",396.18,472,3,883,0)"
^XMB(3.9,22,2,16998,0)="M6^W6HW-)C$5VS&Z\GB0G)NF![#GY;SU\)R/(^'8$#4;T[(Q<'MIYF\].[""S-"
^XMB(3.9,22,2,16999,0)="""DATA"",396.18,472,3,884,0)"
^XMB(3.9,22,2,17000,0)="M^\&""?K6*$+#XR!3$_(UT%7-+912U9!05K7=+4$.C#L7I(:B(SNAP+ZBR+86R"
^XMB(3.9,22,2,17001,0)="""DATA"",396.18,472,3,885,0)"
^XMB(3.9,22,2,17002,0)="M&H6)[XRT4<G)2-/DI`7FJC#X>C&XL.6FAS:@\QN%N1HHF%]*4H^KW_G+#?_F"
^XMB(3.9,22,2,17003,0)="""DATA"",396.18,472,3,886,0)"
^XMB(3.9,22,2,17004,0)="M;KAP(2[NE?(B7XUH2_X%]'X3U#%@U=<PDJK;C/7""""G/\0!0:MZ]50^/VM7IH"
^XMB(3.9,22,2,17005,0)="""DATA"",396.18,472,3,887,0)"
^XMB(3.9,22,2,17006,0)="MW%<.C5MM<9:^X'5';-R<FPMI6-U7#ZM;8)*U#-856HH3N!6J<UOT)8]\)OE:"
^XMB(3.9,22,2,17007,0)="""DATA"",396.18,472,3,888,0)"
^XMB(3.9,22,2,17008,0)="M1>=*`Z7?!#,X4`#D'>E0R7WM!W!($]N?^7(7Q7DL68SK<X73Q$T`-V55XA'+"
^XMB(3.9,22,2,17009,0)="""DATA"",396.18,472,3,889,0)"
^XMB(3.9,22,2,17010,0)="MBLO+CX$F2U""]\G_:N[+FQHTD_:R-V/^`Z!?;8Z_$*IRU$8H-2H2ZN6:+6I*R"
^XMB(3.9,22,2,17011,0)="""DATA"",396.18,472,3,890,0)"
^XMB(3.9,22,2,17012,0)="MIQ_9%%KBF""*U/&SWOU\`O'`6,A-50JN7FG$')28*69E?9>51APK.HBM))6?V"
^XMB(3.9,22,2,17013,0)="""DATA"",396.18,472,3,891,0)"
^XMB(3.9,22,2,17014,0)="MEDKG.,\G5M[O5K\<!3A\B@X[#E_U?KI\F&W#Q_;R><=]P9G&=EE/%70UEJ7!"
^XMB(3.9,22,2,17015,0)="""DATA"",396.18,472,3,892,0)"
^XMB(3.9,22,2,17016,0)="M$D?V_RN,""_-G+R?W`N<.+WYUB3C:)<+?F$1<[1(QWYA$/.T2L=Z81(1VB=AO"
^XMB(3.9,22,2,17017,0)="""DATA"",396.18,472,3,893,0)"
^XMB(3.9,22,2,17018,0)="M3""*LI5TD3K,BN5DLHW@G%L6'\)]R65C:1>&^%5&8VD7AO151<.VB$$V+8K&."
^XMB(3.9,22,2,17019,0)="""DATA"",396.18,472,3,894,0)"
^XMB(3.9,22,2,17020,0)="MY=`+'B6&0K\<6,MXF8WGZ_'R&Q;(*_A?VR-]]Z)8K9>;R3J4PK<-#_8:\'A8"
^XMB(3.9,22,2,17021,0)="""DATA"",396.18,472,3,895,0)"
^XMB(3.9,22,2,17022,0)="M+%?CV;>/#E<[.G:2>""/@T#^S,O8FC*C^>94U'+>-GJ:/3Q()O$(H;W[;$M`?"
^XMB(3.9,22,2,17023,0)="""DATA"",396.18,472,3,896,0)"
^XMB(3.9,22,2,17024,0)="MNC/KVY:`_E""=-1R'W06S/Z>3710F\2WU1U_,>1.28/I#<^:^#4GH3]NPAH.O"
^XMB(3.9,22,2,17025,0)="""DATA"",396.18,472,3,897,0)"
^XMB(3.9,22,2,17026,0)="M]N>'170%WLSX?3R;28;'*SB5#0=?PY=(#A(1Z/<8>*M9$0R""U<MT.8Z.+)3("
^XMB(3.9,22,2,17027,0)="""DATA"",396.18,472,3,898,0)"
^XMB(3.9,22,2,17028,0)="M07_XR1MV(6^#R1\2`>CWH3G_I@6@WW/D=3W'%-^SPMI5XK38\LI>>5=K]C5="
^XMB(3.9,22,2,17029,0)="""DATA"",396.18,472,3,899,0)"
^XMB(3.9,22,2,17030,0)="M[(K""Q_@R55@W<;V#$>\V',O%X>D6QWJZ6FT""8[98K0I$D9``5""P.0>EZ.\G5"
^XMB(3.9,22,2,17031,0)="""DATA"",396.18,472,3,900,0)"
^XMB(3.9,22,2,17032,0)="MZ=S!Z-RAZ5P2*2L2AW*=NWB=:Q[GICJ=NQB=NT2=6[K%H5SG'E[GDHJ;DEY:"
^XMB(3.9,22,2,17033,0)="""DATA"",396.18,472,3,901,0)"
^XMB(3.9,22,2,17034,0)="MZI3N893NT91NV[K%H5SI@J!TIK>7MCJE""XS2!5'ICFYQ*%<Z:Q&TSO5VTU&G"
^XMB(3.9,22,2,17035,0)="""DATA"",396.18,472,3,902,0)"
^XMB(3.9,22,2,17036,0)="M=4GW@-0@O;NZ!:)<[Q9>[8[0VTM7G=HMC-8MHM*UBT.YTDV\TEW-T[JG3NDF"
^XMB(3.9,22,2,17037,0)="""DATA"",396.18,472,3,903,0)"
^XMB(3.9,22,2,17038,0)="M1NDF3>DNURT.]1:>$[2N.4S)+8E08>HYRM1S&@`\_FJ2484$1'A;+[CUM+D_"
^XMB(3.9,22,2,17039,0)="""DATA"",396.18,472,3,904,0)"
^XMB(3.9,22,2,17040,0)="MI4M'U(\61A@MEG9,I%:(T`<+(NJM%_-ZMEXHY->)O""82@-0@0;'7PHYZ`1%\"
^XMB(3.9,22,2,17041,0)="""DATA"",396.18,472,3,905,0)"
^XMB(3.9,22,2,17042,0)="M2%>ST\04YH`9RHMD1#?2,[5+1+WF""8ZDI]F19`HSP0SE2C*B+^E9VB6B7O.$"
^XMB(3.9,22,2,17043,0)="""DATA"",396.18,472,3,906,0)"
^XMB(3.9,22,2,17044,0)="MLH^G.3IF""O/!#%7X8<3*CR>T2T2]Y@FU'ULWPA4FA1FJ_,.H+K*G72+J-4^I"
^XMB(3.9,22,2,17045,0)="""DATA"",396.18,472,3,907,0)"
^XMB(3.9,22,2,17046,0)="M`.D.DQ1FAAFJ"",2('K%M:I>(<LUS0G+8T:UYA=EACLH.<V)V6##M$E$_Y@G%"
^XMB(3.9,22,2,17047,0)="""DATA"",396.18,472,3,908,0)"
^XMB(3.9,22,2,17048,0)="M(*';PU.8(&:H<A`CUH,$URX1]9HGU'X=W9I7F""5FJ.HO(Y9_':9=(NJM/2'U"
^XMB(3.9,22,2,17049,0)="""DATA"",396.18,472,3,909,0)"
^XMB(3.9,22,2,17050,0)="M)73/:D*AM4<E=#@QH2,L[1)1KWE""/""\T+W`X+-]5H7E4/,^)\;QPM$M$O>8)"
^XMB(3.9,22,2,17051,0)="""DATA"",396.18,472,3,910,0)"
^XMB(3.9,22,2,17052,0)="MQ2&A.9[G""G-X'%44XL2BD/""T2T2]YBDK`'2/>84Y/([*WG)B]E8([1)1KWE"""
^XMB(3.9,22,2,17053,0)="""DATA"",396.18,472,3,911,0)"
^XMB(3.9,22,2,17054,0)="M#L_1/>85YO`X*H?'B3D\Q],ND1J:3YW]EGS=41B98V,31(4'QQ8<-V;(#QR["
^XMB(3.9,22,2,17055,0)="""DATA"",396.18,472,3,912,0)"
^XMB(3.9,22,2,17056,0)="MZG<^&>V!WS:ZM_]]/_`[Z9-!CULI_'^.)$?%YAHN_OO/T6FU'5]V^F@X5OV>"
^XMB(3.9,22,2,17057,0)="""DATA"",396.18,472,3,913,0)"
^XMB(3.9,22,2,17058,0)="M?SWR.]V1_S'SRF-/D\=S)>D+#_N$<_=^T+^_,]B.X,?A3X5B*7NYY%S2HLM("
^XMB(3.9,22,2,17059,0)="""DATA"",396.18,472,3,914,0)"
^XMB(3.9,22,2,17060,0)="MK-(Q0.)]]XTQ'`W\V_<CZ:&W<L:3>VH*&??4,C[J#H?WOM'K#Z4'TWI@IC-J"
^XMB(3.9,22,2,17061,0)="""DATA"",396.18,472,3,915,0)"
^XMB(3.9,22,2,17062,0)="M<C1@A$,QXM3#2&,0J860\N*<3H1$;Z4AQ-6`$!.*$+<60AHS(O5L""+,:08A%"
^XMB(3.9,22,2,17063,0)="""DATA"",396.18,472,3,916,0)"
^XMB(3.9,22,2,17064,0)="M18BG`2$6%""%>+824KZ_6#9'HS34P8MM-8,2VJ1@1&C!B0S$BZF&$-8815@\C"
^XMB(3.9,22,2,17065,0)="""DATA"",396.18,472,3,917,0)"
^XMB(3.9,22,2,17066,0)="M3B,8<:@8R0X))2!QH""""I&)""5*.&-H8370XG;""$I<*DHL#2!QH2""Q:F'$$4UA"
^XMB(3.9,22,2,17067,0)="""DATA"",396.18,472,3,918,0)"
^XMB(3.9,22,2,17068,0)="MQ!'U,""(:P8B@8L34@!$/BA&S%D;<QCP2MYY'XO(F,.)R*D:X!HP(*$8X&""/9"
^XMB(3.9,22,2,17069,0)="""DATA"",396.18,472,3,919,0)"
^XMB(3.9,22,2,17070,0)="M64H'VZQEW/7:MZ/V`#Q9\GH@-QL#N5D+Y%XC(/>P(->2W.E'ER<=@!+*^OYZ"
^XMB(3.9,22,2,17071,0)="""DATA"",396.18,472,3,920,0)"
^XMB(3.9,22,2,17072,0)="M%"")D6(@4)1D>KQ$'UJ,[L$S/X.ST!\-V#SPV6;VQV5A>S:V76/-8(VAAM+'I"
^XMB(3.9,22,2,17073,0)="""DATA"",396.18,472,3,921,0)"
^XMB(3.9,22,2,17074,0)="M:AB;.YS`AF:]U)K72/[!(^<?F(ZP@8&K(:Q>X.`V%CBX]0('KY%DMT=.=C,="
^XMB(3.9,22,2,17075,0)="""DATA"",396.18,472,3,922,0)"
^XMB(3.9,22,2,17076,0)="MD0,#%T18O=C!:RQV\.K%#EXC&6^/G/%F6DJKX*H(JU=<]=S&8.+6@TDC:0B/"
^XMB(3.9,22,2,17077,0)="""DATA"",396.18,472,3,923,0)"
^XMB(3.9,22,2,17078,0)="MG(9@.JJK#%P:8?6\;[LQ1]""NZ0@V4H/WR#5XIJ/$RL#5$5:SR-I8XMNNF?AN"
^XMB(3.9,22,2,17079,0)="""DATA"",396.18,472,3,924,0)"
^XMB(3.9,22,2,17080,0)="MQ#>QR;X)UU$>8>#Z""*]7'W$:@XE3#R:BD;!2,+(UT5%J9>`*"":M7;!6-N;""B"
^XMB(3.9,22,2,17081,0)="""DATA"",396.18,472,3,925,0)"
^XMB(3.9,22,2,17082,0)="MG@LK&LD,""G+ZF^E8M<'`11)6;]V&TQA,G'HP<1JQ)@[9FG`M*4UXG:1>+E,T"
^XMB(3.9,22,2,17083,0)="""DATA"",396.18,472,3,926,0)"
^XMB(3.9,22,2,17084,0)="M5F<0]>H,HI&`6)`#8JXC;\);8)C4RYN(QA8*BGHK!44C!1)!+I!P'=5+#L["""
^XMB(3.9,22,2,17085,0)="""DATA"",396.18,472,3,927,0)"
^XMB(3.9,22,2,17086,0)="M\GI52]%8WD34RYN(1@)B00Z(N8YD/0=G87G-53Z-61.GIC5I)+TFR.DUKB,+"
^XMB(3.9,22,2,17087,0)="""DATA"",396.18,472,3,928,0)"
^XMB(3.9,22,2,17088,0)="MR\%96%XO""^LT9DV<>M;$:<2:.#!K,O1'AU<%SPN+G_>ZM_Y0QL`_8#\19Y/="
^XMB(3.9,22,2,17089,0)="""DATA"",396.18,472,3,929,0)"
^XMB(3.9,22,2,17090,0)="M#K;$Q_BEQWY?;=;KQ=QRSZ]GT\D?P4/XXM%R$V2H\IO-WATWK1VVP$67\F1;"
^XMB(3.9,22,2,17091,0)="""DATA"",396.18,472,3,930,0)"
^XMB(3.9,22,2,17092,0)="M[76O?_4[4:N#>__B(ORR/8@:7QW['8OK*JX2_-8==J]""4%P:-^W>T,\(*$%X"
^XMB(3.9,22,2,17093,0)="""DATA"",396.18,472,3,931,0)"
^XMB(3.9,22,2,17094,0)="M->B&H.G?#/JWHRIJ%]JL6][L410':N_\:CF=/ZX77Y:+>;1'[V8\6P7EU+]-"
^XMB(3.9,22,2,17095,0)="""DATA"",396.18,472,3,932,0)"
^XMB(3.9,22,2,17096,0)="M5]//LZ""*4*"":%<!F>0O3;$@-;):AFF709CFJ60YMUD0U:T*;M5#-6H7-'N&8"
^XMB(3.9,22,2,17097,0)="""DATA"",396.18,472,3,933,0)"
^XMB(3.9,22,2,17098,0)="MV:BYW_N9I)!NLRQXH&PYL(S4A)-R.*D-)W7@I""Z<U(.3(N2:78LOI64(6H1H"
^XMB(3.9,22,2,17099,0)="""DATA"",396.18,472,3,934,0)"
^XMB(3.9,22,2,17100,0)="M&4)C#`$$AM`90RB-(;3&$&IC""+UQA-XX0F\<,WH0.N8(O?$RO1UM4D1Y57H)"
^XMB(3.9,22,2,17101,0)="""DATA"",396.18,472,3,935,0)"
^XMB(3.9,22,2,17102,0)="M?9ZP\%""""X_1_\+\^!,OY=!PY6L4;8=/MI+:]9VQ;_HV?@M61NVWK=^-Y,&.Y"
^XMB(3.9,22,2,17103,0)="""DATA"",396.18,472,3,936,0)"
^XMB(3.9,22,2,17104,0)="M&2[EQVPIMWY)<AK:$>7WW\L9B7Q(.""?I^:"",E0/5]2P8+Y]#;W!/&WWF3J:!"
^XMB(3.9,22,2,17105,0)="""DATA"",396.18,472,3,937,0)"
^XMB(3.9,22,2,17106,0)="MC$R+E;CO5^*YG7(N@;I)>7=)UKF7]QG!HMBUFFV349K<$A[X_/=_N[@P.D'P"
^XMB(3.9,22,2,17107,0)="""DATA"",396.18,472,3,938,0)"
^XMB(3.9,22,2,17108,0)="M$KYK-9F.D\"",_UP&2]>!PM)UX+""TP+`T+3PN70>!2PN.2].""`U,4XRR6]250"
^XMB(3.9,22,2,17109,0)="""DATA"",396.18,472,3,939,0)"
^XMB(3.9,22,2,17110,0)="MU.4H$P!(6#B4A9TCM)F""V<5%[J2.[3$B$;B*[BY-ZS!]K6GJJO,B+]^68B@?"
^XMB(3.9,22,2,17111,0)="""DATA"",396.18,472,3,940,0)"
^XMB(3.9,22,2,17112,0)="M16515$CGH@(-%QJ_G,*B4UBD*BPJL'[Y""X&10T>*&[NB;RFGN,)G2CG%8%I7"
^XMB(3.9,22,2,17113,0)="""DATA"",396.18,472,3,941,0)"
^XMB(3.9,22,2,17114,0)="M.HW+3,C-8AE99V,\?S`^A/^\DDC*[8G<^,"",U,F:G*S)JUH3\""A2.WTF,S10"
^XMB(3.9,22,2,17115,0)="""DATA"",396.18,472,3,942,0)"
^XMB(3.9,22,2,17116,0)="M6V'""27D-J[)8Q\+H!8^-6Q1-'HK<`,$,U<FBG""Q*F44!C*"":\YR1"">)*K\F2"
^XMB(3.9,22,2,17117,0)="""DATA"",396.18,472,3,943,0)"
^XMB(3.9,22,2,17118,0)="M^AX<08LP/D7W<1LZ,E$@@W87S/Z<3HSWT^7#+/A>+9HF+TEN`$&&\F31WKY%"
^XMB(3.9,22,2,17119,0)="""DATA"",396.18,472,3,944,0)"
^XMB(3.9,22,2,17120,0)="M@PTAM3-B*F4/MCP>@E:034K[\\/B>3H?SXS?Q[/9R:9HB;QP;I+<`L$LU<FD"
^XMB(3.9,22,2,17121,0)="""DATA"",396.18,472,3,945,0)"
^XMB(3.9,22,2,17122,0)="MO)Y)@0TAQ9-'JK1''/O#EXCKTYC_!L:\)D="";B)@IN0TY@O&O'SH*#:_J=(\"
^XMB(3.9,22,2,17123,0)="""DATA"",396.18,472,3,946,0)"
^XMB(3.9,22,2,17124,0)="M<:P/@M7+=#E>+Y9?3P/^^QWPFJ9YN7V`V9&W/>`!XT>QI4PMLB&.^MM@\L=I"
^XMB(3.9,22,2,17125,0)="""DATA"",396.18,472,3,947,0)"
^XMB(3.9,22,2,17126,0)="MN)^&.W(JE@_C1MV&5QKNLH&CV)*E%LB!BR(VW>M_6FQF#]'=,7$.)$[OMI?/"
^XMB(3.9,22,2,17127,0)="""DATA"",396.18,472,3,948,0)"
^XMB(3.9,22,2,17128,0)="M)S-Q,A/(H2<;_M9;CRY@80!N+""E9;9^T!K/#RO1*PS$[K$R'DKIP4@].*N""D"
^XMB(3.9,22,2,17129,0)="""DATA"",396.18,472,3,949,0)"
^XMB(3.9,22,2,17130,0)="MK%6]+K1@&=MEV2JVBXO4>M\R`WFRA*?E)Z<\:++9P[""YN#!*3)[16SQ.)^E5"
^XMB(3.9,22,2,17131,0)="""DATA"",396.18,472,3,950,0)"
^XMB(3.9,22,2,17132,0)="ML,F=,T6;&,L7A-OG_GP<LI!8Y%K=[&7B,K[RIF6FJN2!(R]%BXY!5KB2=,_Y"
^XMB(3.9,22,2,17133,0)="""DATA"",396.18,472,3,951,0)"
^XMB(3.9,22,2,17134,0)="M8=H!21'4WYPHB_8^5HKVM<4JOZ.NNGT[W[ZLPPX6HB""$.@2$2I<GE#P`1*@#"
^XMB(3.9,22,2,17135,0)="""DATA"",396.18,472,3,952,0)"
^XMB(3.9,22,2,17136,0)="M1ZA#0:A#06B*_4*$@@3[VD*5WH]7#4\<.ETD.O793X;M*;.@Z'3AZ'0IZ'1)"
^XMB(3.9,22,2,17137,0)="""DATA"",396.18,472,3,953,0)"
^XMB(3.9,22,2,17138,0)="MZ+0(Z'3Q,E(L5.G=?)7-(VVGAT1GZ-=#X.D1X&FCNVI#X>G!X>E1X.E1X&G;"
^XMB(3.9,22,2,17139,0)="""DATA"",396.18,472,3,954,0)"
^XMB(3.9,22,2,17140,0)="M!'ABYVK6PC^`@J<*I<D`*K``92""`""@I`L3-7^``0H`(.4$$!J""`!U""$`5&#Q"
^XMB(3.9,22,2,17141,0)="""DATA"",396.18,472,3,955,0)"
^XMB(3.9,22,2,17142,0)="MQO`/H`""J0FDR@)9=C5G>`0Y"":,'(!:@,.WV%#P`A""K`D,EH`2(LD"">HR'J5X"
^XMB(3.9,22,2,17143,0)="""DATA"",396.18,472,3,956,0)"
^XMB(3.9,22,2,17144,0)="ML\CQ#Z!@JD)QR5@__%P5[X=45\'C=&YD-Y]($P(EY[<>-SO+*`_J3&S:CUYX"
^XMB(3.9,22,2,17145,0)="""DATA"",396.18,472,3,957,0)"
^XMB(3.9,22,2,17146,0)="M:;12E]5'^V&,Z?Q?F^578[TPUD_3E?$<TQMQ[W\QOBQFL\5?X3=!S/(OX:?-"
^XMB(3.9,22,2,17147,0)="""DATA"",396.18,472,3,958,0)"
^XMB(3.9,22,2,17148,0)="M\^=?XCY\F<X?@^7*""/X>1XN[UM/%W'A9+M:+R6)VGCB""*<5`\K>?#98\+2F9"
^XMB(3.9,22,2,17149,0)="""DATA"",396.18,472,3,959,0)"
^XMB(3.9,22,2,17150,0)="M3Y;WL6205FR(*1Q#O&H(R8R2A;1)C@#9)(MBDK`S@BV@)LF""2].B&""2+9(\$"
^XMB(3.9,22,2,17151,0)="""DATA"",396.18,472,3,960,0)"
^XMB(3.9,22,2,17152,0)="MP1YA@PA'X!]`F2,52B,`E(PY+9B0=<!$CC`7%CB9A!'F8N<FET-'F`F7IDD9"
^XMB(3.9,22,2,17153,0)="""DATA"",396.18,472,3,961,0)"
^XMB(3.9,22,2,17154,0)="M829EA+F<,,*P222WA7\`,\*4*""UU^$AJ>T3QU(UU51V8J\HIKJK`.OZ""05'+"
^XMB(3.9,22,2,17155,0)="""DATA"",396.18,472,3,962,0)"
^XMB(3.9,22,2,17156,0)="M$:XJ)[FJG.2J""D8`+F_AY:18L/(;*JKG'HZ,J+`QOX#95D8)^@6VMP)L7!DB"
^XMB(3.9,22,2,17157,0)="""DATA"",396.18,472,3,963,0)"
^XMB(3.9,22,2,17158,0)="MZF>DL)^1XGY!L:\,ZS&(%OX!#$R5*$X*4VSNU`'""E)(\=;""#W@%;4X;(GC)2"
^XMB(3.9,22,2,17159,0)="""DATA"",396.18,472,3,964,0)"
^XMB(3.9,22,2,17160,0)="M^I21\J<.Q9HR;`+5:>$?0%E3%8I+!O[I+4W%4PK#&E@3Y@<PBH'%QCX""7)7B"
^XMB(3.9,22,2,17161,0)="""DATA"",396.18,472,3,965,0)"
^XMB(3.9,22,2,17162,0)="M#.$',)(?P$@&EE*8XNAIW<0_@#*P*A271.XJWIA3W'ELN""5@951.B;<$-J4L"
^XMB(3.9,22,2,17163,0)="""DATA"",396.18,472,3,966,0)"
^XMB(3.9,22,2,17164,0)="MP'4`C@BX.""GBXJ202U!*`=S$RTFQ8.7WEU2W;\L1F]A94BP!CH6M""X,MI\`6"
^XMB(3.9,22,2,17165,0)="""DATA"",396.18,472,3,967,0)"
^XMB(3.9,22,2,17166,0)="M._4)\/(ICLEK<A)L.0FV'@6V:,?1Q3^`@JT*Q25A&^V0*.XZ.F\,-+.4Q+%`"
^XMB(3.9,22,2,17167,0)="""DATA"",396.18,472,3,968,0)"
^XMB(3.9,22,2,17168,0)="M1Q3@Q#%'9`DY*77,2;EC0<D=<PLO)\6""E5_L4NW2VE2\8E>G.D#[2EE>Y:!#"
^XMB(3.9,22,2,17169,0)="""DATA"",396.18,472,3,969,0)"
^XMB(3.9,22,2,17170,0)="M""[A]1:Q/Y:0%JIRT0M4AV5<T/%S\`RB\JE!<MO::**_V@L>X+!F=R%4<E&+="
^XMB(3.9,22,2,17171,0)="""DATA"",396.18,472,3,970,0)"
^XMB(3.9,22,2,17172,0)="M!!<6CS&*F^!AIS\/GO!""N`F,Y""8PDIO@D1)>!#DI%FP.%,B*@HE,>&'3!BYL"
^XMB(3.9,22,2,17173,0)="""DATA"",396.18,472,3,971,0)"
^XMB(3.9,22,2,17174,0)="MI36CI`T\;#CLP1->B+0!(Z4-&""EMX)$27@0Y*19L#A1(F,(67,LW`U31P3""'"
^XMB(3.9,22,2,17175,0)="""DATA"",396.18,472,3,972,0)"
^XMB(3.9,22,2,17176,0)="MC4^]JO@4O+B?L+2_SL)^#Q'O$Y?U*Q%F.0Y<(`Y<""@ZP'HQGPW#@0G'@XG%`"
^XMB(3.9,22,2,17177,0)="""DATA"",396.18,472,3,973,0)"
^XMB(3.9,22,2,17178,0)="M6D+OV6@<N'C9U!>F=-K""!K4N;#$4HP2U'G:2]L`[A!@BJ&6DH):1@EJ/LDD("
^XMB(3.9,22,2,17179,0)="""DATA"",396.18,472,3,974,0)"
^XMB(3.9,22,2,17180,0)="MO:U""O6!SH$!.6\@540R;XO:`Y41*BMM#BQ]<E&&(%#<CI;@9*<7M48HRZ+UI"
^XMB(3.9,22,2,17181,0)="""DATA"",396.18,472,3,975,0)"
^XMB(3.9,22,2,17182,0)="MZ@6;`P6R_98\EMV&L/%E%\42P*9@/%@*AE%2,!YVD'K@E""%#I&`8*07#2""D8"
^XMB(3.9,22,2,17183,0)="""DATA"",396.18,472,3,976,0)"
^XMB(3.9,22,2,17184,0)="MCY(R9#9>3HH%FP,%LGT7:5VQFX1M8.Q*BB.P""2</G""EDB'W""C+11F-$""""DJF"
^XMB(3.9,22,2,17185,0)="""DATA"",396.18,472,3,977,0)"
^XMB(3.9,22,2,17186,0)="MD#EX.2D6;`X4R&71R,W""#+U;&+B9B!+FV-C)S8;[JH@-PXRT8YB1XAV;Y*NB"
^XMB(3.9,22,2,17187,0)="""DATA"",396.18,472,3,978,0)"
^XMB(3.9,22,2,17188,0)="M]^YP_`,HF*I07,%Y.[OKM:WS2>$U=ENB[35VI4?-_,]FNCX*,]NT36EZ1YAJ"
^XMB(3.9,22,2,17189,0)="""DATA"",396.18,472,3,979,0)"
^XMB(3.9,22,2,17190,0)="M.?)=2J\H;W=ZAO_E2RB@5='7>;Z<_<5]E]MWG6692I_^<IFZLR_;&,M?`WAV"
^XMB(3.9,22,2,17191,0)="""DATA"",396.18,472,3,980,0)"
^XMB(3.9,22,2,17192,0)="MMUR$TG^.$%\H^8CCQ!5_J;L8O<R=ADGFHN<N@8^5W?7HE5WU>)9\4_H9SLY7"
^XMB(3.9,22,2,17193,0)="""DATA"",396.18,472,3,981,0)"
^XMB(3.9,22,2,17194,0)="MB8<NWU60<QRYB2.W<.0VCMS!D;LX<@]'+E#D9@M%[B""[>D@,[X_2DT,`06QB"
^XMB(3.9,22,2,17195,0)="""DATA"",396.18,472,3,982,0)"
^XMB(3.9,22,2,17196,0)="MB""T,L8TA=C#$+H;8PQ`+!+'90A`[!1U,7,:Z.\`M_""PRS<1_R\\I*9K>^',P"
^XMB(3.9,22,2,17197,0)="""DATA"",396.18,472,3,983,0)"
^XMB(3.9,22,2,17198,0)="MXP4.V-G.`$(MTB7,(.U[LC.Y(""A6TYH(6@M!:R-H'02MBZ#U$+0""3IN`8""6M"
^XMB(3.9,22,2,17199,0)="""DATA"",396.18,472,3,984,0)"
^XMB(3.9,22,2,17200,0)="M(^U;%F8%)'F4[8AR>_RRT[2;FZ83S7;^WGE5B?MX0V:L\]YT'JSV'M=9[HE/"
^XMB(3.9,22,2,17201,0)="""DATA"",396.18,472,3,985,0)"
^XMB(3.9,22,2,17202,0)="MBTVTD7EM!/-UL(RW+S],QX_SQ6JZ.G]G_&Q</XV7/S+SIT+.=K=0%5;H<N\Z"
^XMB(3.9,22,2,17203,0)="""DATA"",396.18,472,3,986,0)"
^XMB(3.9,22,2,17204,0)="M?OZY\+W!U@,R%E_B7R>+\'WQ5NGH_Y/)YB7>.#V>&>/)>OIG^%50PB%\F%:R"
^XMB(3.9,22,2,17205,0)="""DATA"",396.18,472,3,987,0)"
^XMB(3.9,22,2,17206,0)="MV5F$PDMSLV73V*PV(2L/X^GL:X*A_RID*&$XPF9W,=39V7YS^>&K0E-ST&P*"
^XMB(3.9,22,2,17207,0)="""DATA"",396.18,472,3,988,0)"
^XMB(3.9,22,2,17208,0)="M1IV]DJ(O.]WV^]O^L#LT^@/#'W7[O?[[3T;_QK@;]*]Z_L?_-""*V""F""1Y-5("
^XMB(3.9,22,2,17209,0)="""DATA"",396.18,472,3,989,0)"
^XMB(3.9,22,2,17210,0)="M_AQWEL=G6L;;OP\GE<IXR?TI%.*.""Z,]'/:ON^V1WS%^[XX^&*,/OG%@/<7C"
^XMB(3.9,22,2,17211,0)="""DATA"",396.18,472,3,990,0)"
^XMB(3.9,22,2,17212,0)="M_B#-W4M+V=Q+""\/->__6'[1[1O_Z^OZN'0KK-OS%O[GQKT<I'HJQG63E[""PW"
^XMB(3.9,22,2,17213,0)="""DATA"",396.18,472,3,991,0)"
^XMB(3.9,22,2,17214,0)="M$HI+.V<H!D<?0D5VNL/V5;?7'7WZ86AT/]ZUKT=&_S;-=/BW[F_=4=<?%C%N"
^XMB(3.9,22,2,17215,0)="""DATA"",396.18,472,3,992,0)"
^XMB(3.9,22,2,17216,0)="MR1@_""""[7`UM!#P;^\+XWZMZ^-W[O#WXM1&'QVRJ9C,#+6COTDGCKAZ@;[/0]"
^XMB(3.9,22,2,17217,0)="""DATA"",396.18,472,3,993,0)"
^XMB(3.9,22,2,17218,0)="MA(HT]=H2)A$\M`=^!/[PWP,?-_%HV(^4D*W[X7W(3Z?=[7TJXTIJW<J`FG-#"
^XMB(3.9,22,2,17219,0)="""DATA"",396.18,472,3,994,0)"
^XMB(3.9,22,2,17220,0)="M#D^-J.HVKC_T!U+>.$/J.><`*>!R^*%_=Q>""4L8GK\>GJ8)/_Y_^X+H[]&5\"
^XMB(3.9,22,2,17221,0)="""DATA"",396.18,472,3,995,0)"
^XMB(3.9,22,2,17222,0)="MFO7X5&&FC.%=?S""2:MVJQ:7CJ.!RX%\/_'AX2SC-O@HK3Q5&TQ@-VK_YO0J`"
^XMB(3.9,22,2,17223,0)="""DATA"",396.18,472,3,996,0)"
^XMB(3.9,22,2,17224,0)="MVK48-5LJ&+WQ_8Z<S>Q[L/(4*MB\:H<SJ5R:HAZ;G@HV.Z'I'%;PZ=7CTU4"""
^XMB(3.9,22,2,17225,0)="""DATA"",396.18,472,3,997,0)"
^XMB(3.9,22,2,17226,0)="MSWZWYX\J&'7K,:IDQ+\?]/L?*_AT""'Z'.`\'IS^DJMD?7@^Z5[X1.R!Y]V+?"
^XMB(3.9,22,2,17227,0)="""DATA"",396.18,472,3,998,0)"
^XMB(3.9,22,2,17228,0)="M.H@5LQ8K[4ZGN_-WKOL?/_JWHSP[IIR=3,QK'\+,HA?^0_*3C)<R+TN\8Q<!"
^XMB(3.9,22,2,17229,0)="""DATA"",396.18,472,3,999,0)"
^XMB(3.9,22,2,17230,0)="M.[EL?'74+$N59QVH?#(1EU#&Y9-QZ61<-AF73,;EDG&I9%PF&9=(QN61<6GD"
^XMB(3.9,22,2,17231,0)="""DATA"",396.18,472,3,1000,0)"
^XMB(3.9,22,2,17232,0)="M_%W;:1\VWV8J9MU^/2G*39IE7XBR+ZP3$D](!-4S,.4,3#4#4\S`U#(PI0Q,"
^XMB(3.9,22,2,17233,0)="""DATA"",396.18,472,3,1001,0)"
^XMB(3.9,22,2,17234,0)="M)0-3R,#4,3!E#$P5`U""J@%0J\A<-[9<$Y%*?P^GC?/IE.AG/U_O:<_:RFNUK"
^XMB(3.9,22,2,17235,0)="""DATA"",396.18,472,3,1002,0)"
^XMB(3.9,22,2,17236,0)="M""A9TY(@$@,9T*HCV!\E#J""PYU2Y?4[9THE(^\7U,%`$5W8:2DU`ID>E4456?"
^XMB(3.9,22,2,17237,0)="""DATA"",396.18,472,3,1003,0)"
^XMB(3.9,22,2,17238,0)="M*9@19B%A8<F,M:H5(N5)3I932>9RK""+GS48N<]@/E=S*""\-_?IDMOCX'\W5Z"
^XMB(3.9,22,2,17239,0)="""DATA"",396.18,472,3,1004,0)"
^XMB(3.9,22,2,17240,0)="MH=/V/;P5_K""2I1Y;POAUO,5Y:)@*EWODEN/LF^9<V+G*#;#I_+%ZQ\3\MDMA"
^XMB(3.9,22,2,17241,0)="""DATA"",396.18,472,3,1005,0)"
^XMB(3.9,22,2,17242,0)="MF]$ZC,PBFJWYBEYM9595))8F55(7;%*I?N90_$PM[]F-%,Y""6QT4C]PM8023"
^XMB(3.9,22,2,17243,0)="""DATA"",396.18,472,3,1006,0)"
^XMB(3.9,22,2,17244,0)="MJ%FS53;"",PVVN+S!+6'8HLM@;^8N\,W<D1,>',*PT>0AX>L*4BXE/?3'P[R^"
^XMB(3.9,22,2,17245,0)="""DATA"",396.18,472,3,1007,0)"
^XMB(3.9,22,2,17246,0)="M0IK0OA>HO^ITJ8.XG.H5^3M'.RL%$'75`K,#'Y5++`_""*%P]F+""=6?)J88&W"
^XMB(3.9,22,2,17247,0)="""DATA"",396.18,472,3,1008,0)"
^XMB(3.9,22,2,17248,0)="M>""0?`?>L\B""J(R2BEG'$^1OMU,HU0>B'78W?ZL()#^P9!@2S53(]&-=+C&W-"
^XMB(3.9,22,2,17249,0)="""DATA"",396.18,472,3,1009,0)"
^XMB(3.9,22,2,17250,0)="M+_\$V<O;!<Q<RH1JME!@-5L@>RK'1=JL08CE(,H::2F(7-S@='&6#&SW*SN="
^XMB(3.9,22,2,17251,0)="""DATA"",396.18,472,3,1010,0)"
^XMB(3.9,22,2,17252,0)="ML&/EYC%KSBM;;>%8*)-[ILUJ]7#H&!<X]0A-:J:-X^Q!^ZGLXJMY7S)C>[(+"
^XMB(3.9,22,2,17253,0)="""DATA"",396.18,472,3,1011,0)"
^XMB(3.9,22,2,17254,0)="MF@""3G,X""[%S]5GRA6A/L_QN_JLR,US&X)P2`/$""2SP:?H#5-NJ\T35Y<9-X9"
^XMB(3.9,22,2,17255,0)="""DATA"",396.18,472,3,1012,0)"
^XMB(3.9,22,2,17256,0)="MZF?F,N@KZSI.Y2[#?M:L/0'+YMO+TW1[FFY/T^UINCU-MZ?I]HU&I=5S:,&>"
^XMB(3.9,22,2,17257,0)="""DATA"",396.18,472,3,1013,0)"
^XMB(3.9,22,2,17258,0)="M[**'\I?=E33=:B:D+TB(E?0""R*`L=UUY\$2UF!J54E+9@V`]759E%UH9=T?J"
^XMB(3.9,22,2,17259,0)="""DATA"",396.18,472,3,1014,0)"
^XMB(3.9,22,2,17260,0)="M[;0(I9T6JK1359`H-[%K2;;-L>2M%II6&4Q,=(GC.\S:[_%UB8`7++W=PJ2W"
^XMB(3.9,22,2,17261,0)="""DATA"",396.18,472,3,1015,0)"
^XMB(3.9,22,2,17262,0)="M/>?;J`E5N@??M0M7,`I(^""A-FR8#.9)EPT+N!+A3Z?--EC[KV.6""K`FIN=-8"
^XMB(3.9,22,2,17263,0)="""DATA"",396.18,472,3,1016,0)"
^XMB(3.9,22,2,17264,0)="M.XVU[W6LE0\5*;S*K@,N1V-__10L89U`.JME9TQ)6$<PHQJI2&Y#R7T,/T[&"
^XMB(3.9,22,2,17265,0)="""DATA"",396.18,472,3,1017,0)"
^XMB(3.9,22,2,17266,0)="M,^/'EZ>OJ_C3R_8PHI_*>L!;%E""<MA)QUN50*F,;)V.[IHQ77R=/T_%Z.9T`"
^XMB(3.9,22,2,17267,0)="""DATA"",396.18,472,3,1018,0)"
^XMB(3.9,22,2,17268,0)="M.@$-L1S%8B8S*96T@Y.T4V`^$"")OAN'7!V-C)B9IS._G`6A]AHGR?4Q4.D18"
^XMB(3.9,22,2,17269,0)="""DATA"",396.18,472,3,1019,0)"
^XMB(3.9,22,2,17270,0)="MT/69K<+<57&CT(FCXN4)`5UBY`-*`9AE![1]B_Y$\:5RJPJ1`J!IJ16Y'.67"
^XMB(3.9,22,2,17271,0)="""DATA"",396.18,472,3,1020,0)"
^XMB(3.9,22,2,17272,0)="M)Y""?0/[=@%SO)HK4Z48IWH['`71W.CWT]Z%_%T;3_[L)5N&W\=E#%Q=&].<7"
^XMB(3.9,22,2,17273,0)="""DATA"",396.18,472,3,1021,0)"
^XMB(3.9,22,2,17274,0)="M8WGX\^1I/'\,'K:'%`%?LAM@1L'/_K""C_3E1[^Y""/:P""XW-@K#;+P%@OC.E\"
^XMB(3.9,22,2,17275,0)="""DATA"",396.18,472,3,1022,0)"
^XMB(3.9,22,2,17276,0)="M,ML\!,;8V'M+_9?I?+J8G[_[>;^7^OCAW>@I,'[X.)Y'K8TB38W7P>H'8[.>"
^XMB(3.9,22,2,17277,0)="""DATA"",396.18,472,3,1023,0)"
^XMB(3.9,22,2,17278,0)="MSJ;KK\:7Q6;^8(3_[4[D^J'_$AUY%5)\CO5@C-?QWS\OPM^>]P=UK2;+()@;"
^XMB(3.9,22,2,17279,0)="""DATA"",396.18,472,3,1024,0)"
^XMB(3.9,22,2,17280,0)="MD_$\XFRS""@41<C9^>,AS9:QW+SU_M^]>L%\TLL51F<0O(<*,FHG;BX5W<?$?"
^XMB(3.9,22,2,17281,0)="""DATA"",396.18,472,3,1025,0)"
^XMB(3.9,22,2,17282,0)="MAY_X""K1!\+B9C9?&]2*4V/&[0X:R-UZM!YOY)=N#VO][NN[_&KZ;Y2Q0Q%UW"
^XMB(3.9,22,2,17283,0)="""DATA"",396.18,472,3,1026,0)"
^XMB(3.9,22,2,17284,0)="M*_R(N58,+`2V4FH_0.FO\>H(IR.,_$[XMG1S5GESJ=:>@V6(R!`G>S#)>L%R"
^XMB(3.9,22,2,17285,0)="""DATA"",396.18,472,3,1027,0)"
^XMB(3.9,22,2,17286,0)="M*@G?7DY=A%G`V[=2O2Q^/-]:_X\(3L'?T98N!'>M:NYN^Z,\AX?!%IU0=QS:"
^XMB(3.9,22,2,17287,0)="""DATA"",396.18,472,3,1028,0)"
^XMB(3.9,22,2,17288,0)="M>2A':`[1?SSI8#W^?%YRG$%\""MIV\(;C8SNV-`W#RJ$74:R?0GZWD@LE.WX^"
^XMB(3.9,22,2,17289,0)="""DATA"",396.18,472,3,1029,0)"
^XMB(3.9,22,2,17290,0)="M#D>U*MH-1JS5+<%R9F1@&<VP:H0M_A48\^#/4,SC532Q?%DLMX+KOQRXCWA/"
^XMB(3.9,22,2,17291,0)="""DATA"",396.18,472,3,1030,0)"
^XMB(3.9,22,2,17292,0)="M%#*B__T?4$L#!!0``@`(`(E>N33CDK,,#`@``#TI```3````375S8VQE<U\Q"
^XMB(3.9,22,2,17293,0)="""DATA"",396.18,472,3,1031,0)"
^XMB(3.9,22,2,17294,0)="M,3$N<&YL+G)E<+U:6V_;-A1^#Y#_0""`8T`XI:DNR91=9""EJF;7:2J)&4,V\("
^XMB(3.9,22,2,17295,0)="""DATA"",396.18,472,3,1032,0)"
^XMB(3.9,22,2,17296,0)="MAA8MA@++4FP=L)^_<RC)LJP;Z0+S2V*9Y+E_YT)%(LE8JJCF(B4T71/\AO^S"
^XMB(3.9,22,2,17297,0)="""DATA"",396.18,472,3,1033,0)"
^XMB(3.9,22,2,17298,0)="MGVG""4_/\^BK)512SZZL?+#[75]=7=W<BUUFNQ69S?T]>OR:9R/*,;(1,R*_%"
^XMB(3.9,22,2,17299,0)="""DATA"",396.18,472,3,1034,0)"
^XMB(3.9,22,2,17300,0)="M8;]E[__\](?W>+[X[HZG:Y:6WVYNRM7)IZ?GV00_TYN;^G&4/23R_<?/S]N_"
^XMB(3.9,22,2,17301,0)="""DATA"",396.18,472,3,1035,0)"
^XMB(3.9,22,2,17302,0)="MGO_Y4BSPQQ9XL.#Z2K(]9P]$;$C""UCRB,9$L$G*M!L3L8]8[995]_/QU5M%I"
^XMB(3.9,22,2,17303,0)="""DATA"",396.18,472,3,1036,0)"
^XMB(3.9,22,2,17304,0)="M/T7VOO^VCSL;=W>MI_?W;L?XG<?XKL?\'TI)@;(55WW>$;W:\)B1!ZK>D%KH"
^XMB(3.9,22,2,17305,0)="""DATA"",396.18,472,3,1037,0)"
^XMB(3.9,22,2,17306,0)="MSM66\O<YZIGOD0<FV1A-WU:\9M!$(DE@!8J$NXOU@=G;7M]!`L*8`4`<XY>F"
^XMB(3.9,22,2,17307,0)="""DATA"",396.18,472,3,1038,0)"
^XMB(3.9,22,2,17308,0)="M+)ZV`[A!?3J[N7&`@^FCM5QX<I/SZ:QMBW.>""R+DS%>:F`-P5QIEQY46\M`"""
^XMB(3.9,22,2,17309,0)="""DATA"",396.18,472,3,1039,0)"
^XMB(3.9,22,2,17310,0)="MA`LLC@;@BN@=V)?0ZF1$GYU0&=<TYK\8L+TE*I=;)@^W1$BR9BO)UPSM]K;7"
^XMB(3.9,22,2,17311,0)="""DATA"",396.18,472,3,1040,0)"
^XMB(3.9,22,2,17312,0)="M*WJ,U:OD?BT'+2V'P+?*DX06S-(X/F=8F;11,,U9T[L6Y]XU#3MX[5&9WW8="
^XMB(3.9,22,2,17313,0)="""DATA"",396.18,472,3,1041,0)"
^XMB(3.9,22,2,17314,0)="M""T7[O8K6DN8))5K@CZ38K/JUZKMI=>Z@U`7PJ`\9NR6QB.K4NZ::O5`O:UY'"
^XMB(3.9,22,2,17315,0)="""DATA"",396.18,472,3,1042,0)"
^XMB(3.9,22,2,17316,0)="M=+EH^WN/4KR+5(E(R'67*E,FLIBJI%][GJ-/SNS4UR0R!P8!HXT]=9Y`O""3@"
^XMB(3.9,22,2,17317,0)="""DATA"",396.18,472,3,1043,0)"
^XMB(3.9,22,2,17318,0)="MEMN4IKH?0^<#Z-DV%;H3E$*1)FM.MZE0X%MH'Z36,,^\91[?EA!F0<0'M#\>"
^XMB(3.9,22,2,17319,0)="""DATA"",396.18,472,3,1044,0)"
^XMB(3.9,22,2,17320,0)="M?J1T*H19Y,*Z-RF]3!V=JV!=,JH14,@+GD9QON;IML*<E\,B>1,7D;Q:=:5@"
^XMB(3.9,22,2,17321,0)="""DATA"",396.18,472,3,1045,0)"
^XMB(3.9,22,2,17322,0)="MX#(:F-&\]!_-HYJ=<V$]%UK^B?H,E=YC?2?SHPP""`Z`[>[:-[@W$I%'AU#(4"
^XMB(3.9,22,2,17323,0)="""DATA"",396.18,472,3,1046,0)"
^XMB(3.9,22,2,17324,0)="MJ\6GZ%M$((`L1A!A--J1!Y&#<7FZ%_$>#5G""VG"".]Z9C7&)RM:\QS/)""30K"""
^XMB(3.9,22,2,17325,0)="""DATA"",396.18,472,3,1047,0)"
^XMB(3.9,22,2,17326,0)="MCV\@>X)_%2LJW!AAR23OL<2<[0[*9.9&=V)3J0]@S^+Q`FP,S\O8Z;3UI%7J"
^XMB(3.9,22,2,17327,0)="""DATA"",396.18,472,3,1048,0)"
^XMB(3.9,22,2,17328,0)="M3OW6D\GYD\7Y@]!T*WO,N$:[T)^\JC_6$8+':`;-GJ0Z;]:8YF=8O[$^#)G,"
^XMB(3.9,22,2,17329,0)="""DATA"",396.18,472,3,1049,0)"
^XMB(3.9,22,2,17330,0)="M\EBUCL$D]>'+DSWLH?R204$!;&%R@3^M0Z>3_B*[?2+J>!4+`:TL'*PZ9#7("
^XMB(3.9,22,2,17331,0)="""DATA"",396.18,472,3,1050,0)"
^XMB(3.9,22,2,17332,0)="M_/KL&1[T]+3[W9X0FG?'^';7PAA$`0)!&>V8LC\/'>BA^SP$?O!?""'5U09H,"
^XMB(3.9,22,2,17333,0)="""DATA"",396.18,472,3,1051,0)"
^XMB(3.9,22,2,17334,0)="MCP>3:$?3[4""#$0Z@X[Q!X?GIP_/J^5^_/CL6JMDN54M@WW>(GQF5;(WUUXHJ"
^XMB(3.9,22,2,17335,0)="""DATA"",396.18,472,3,1052,0)"
^XMB(3.9,22,2,17336,0)="M%D,2<*(4U)2VE*==E`)K2KU]V46%$FXC.RA$:(5Y*\92<(!WX'WK6ZCBE9;B"
^XMB(3.9,22,2,17337,0)="""DATA"",396.18,472,3,1053,0)"
^XMB(3.9,22,2,17338,0)="M@/\"";D-MMV=2L?7;@3[/L7Q:VE>?@==,*B7'6RGR#*O/DNOA/!=XEKW6\M%2"
^XMB(3.9,22,2,17339,0)="""DATA"",396.18,472,3,1054,0)"
^XMB(3.9,22,2,17340,0)="M]6&!<^Y`')X6_#S53.*Z/*:0C""(J)63%?D6'H4LY$&"">JTKV$07-K(OS<'&1"
^XMB(3.9,22,2,17341,0)="""DATA"",396.18,472,3,1055,0)"
^XMB(3.9,22,2,17342,0)="MT^$V%+RTWR9/(]-)I.`=D""IX2E`5IN2#B`""?T;=HGUS2-(+.PS1M4""6E6[T#"
^XMB(3.9,22,2,17343,0)="""DATA"",396.18,472,3,1056,0)"
^XMB(3.9,22,2,17344,0)="M=]A`SN98%$+00(XP+@:E&X>\PXNZ<4UY?""`QWP\K=&&)U49)6,`+""`9L*RL!"
^XMB(3.9,22,2,17345,0)="""DATA"",396.18,472,3,1057,0)"
^XMB(3.9,22,2,17346,0)="MW@QI=>[0/H:7]8_H3P`?QGF4R2&#S;<?.H9J:!^J_N)\QN$O+.,NM(T[?WZ9"
^XMB(3.9,22,2,17347,0)="""DATA"",396.18,472,3,1058,0)"
^XMB(3.9,22,2,17348,0)="MFN:EFHJX`RWQ=4YC572'<L_`7Q*Z90.*<VK$?`P]P-%(\LRX^1F=X6CT[:/1"
^XMB(3.9,22,2,17349,0)="""DATA"",396.18,472,3,1059,0)"
^XMB(3.9,22,2,17350,0)="MORP:C:EZ]*'!/,#QJ$(63@J9MQ72(#2BD;F]1I:7:639KY&52""T<9.FDC[""M"
^XMB(3.9,22,2,17351,0)="""DATA"",396.18,472,3,1060,0)"
^XMB(3.9,22,2,17352,0)="MCQ,R(]H(K;417`8K0=B<2VU@!_9K=0*&'U)N,DN_2H+0`5T]])#B.^9UNMFP"
^XMB(3.9,22,2,17353,0)="""DATA"",396.18,472,3,1061,0)"
^XMB(3.9,22,2,17354,0)="M2$-9M#J<T!II^.>6],[8G!^%/2$%39O&RZ7]@,T#>[<,+P.N<-XT!%:M)KTQ"
^XMB(3.9,22,2,17355,0)="""DATA"",396.18,472,3,1062,0)"
^XMB(3.9,22,2,17356,0)="M!G!-5<0I%FFE452^4AH3YD#&<\*Q`,M8.%)7$\@3NT`'36*VT28W2U/I)HQB"
^XMB(3.9,22,2,17357,0)="""DATA"",396.18,472,3,1063,0)"
^XMB(3.9,22,2,17358,0)="M!V,F#\A6T61#5<NKQ`ZE+E>CU4A@[]^7E<""XK3)Y(JH`I.F!O!-0E$'=D/#2"
^XMB(3.9,22,2,17359,0)="""DATA"",396.18,472,3,1064,0)"
^XMB(3.9,22,2,17360,0)="M^4JYUUR!<`RE,B7G8<`K)D-IW\Q=`H>Q""B[N&%<TA@M5@(Y,4J9&L4-3B^LK"
^XMB(3.9,22,2,17361,0)="""DATA"",396.18,472,3,1065,0)"
^XMB(3.9,22,2,17362,0)="M#=5_=:EHS:/!BPA:%\.1.:)P""Z;R>.P.)[""'L]GTLHZG:%8Q@N**O9(U4DP5"
^XMB(3.9,22,2,17363,0)="""DATA"",396.18,472,3,1066,0)"
^XMB(3.9,22,2,17364,0)="MP=;@`^@.)[,:6)-!(3K0^!0CSI$QT'%`>C+[&;Y''KJ""]KRY_;63-_$\?^`*"
^XMB(3.9,22,2,17365,0)="""DATA"",396.18,472,3,1067,0)"
^XMB(3.9,22,2,17366,0)="M&G]?!J:584D6BX.9M!XODEZU/@[SW))RKB""-$A%%>68#X6:;+43U""`.!O6?0"
^XMB(3.9,22,2,17367,0)="""DATA"",396.18,472,3,1068,0)"
^XMB(3.9,22,2,17368,0)="M3M""41+F$ID%#*U#(-]3&%OMM1PI';A%*2C)]8BXZQ;0>3U<#`]QEYBXX)T?`"
^XMB(3.9,22,2,17369,0)="""DATA"",396.18,472,3,1069,0)"
^XMB(3.9,22,2,17370,0)="MJFW6-5\HEKN.2,PN;+JQ]ZJ0L9+/@J!W$4$S_><)PP2GR4:*A#P(^2,R@76'"
^XMB(3.9,22,2,17371,0)="""DATA"",396.18,472,3,1070,0)"
^XMB(3.9,22,2,17372,0)="M&9)/O5>)2""'K0,?'Q;J7@R&]+KI,Z&'M%]%<'>^S.CB!#K6'B]K.AG3+T-[2"
^XMB(3.9,22,2,17373,0)="""DATA"",396.18,472,3,1071,0)"
^XMB(3.9,22,2,17374,0)="M[2($=H1'R*\]JK[AA3P`.1Y34K2C<FN24O'(<(@(-AYE7O@-439I1IEDFLO1"
^XMB(3.9,22,2,17375,0)="""DATA"",396.18,472,3,1072,0)"
^XMB(3.9,22,2,17376,0)="MT)K8>H:Y3YE,""C54]R0%C<ZK%[/4]G`AX\]_?SUU=&/Y%HF>Z#W;[NQJL_HM"
^XMB(3.9,22,2,17377,0)="""DATA"",396.18,472,3,1073,0)"
^XMB(3.9,22,2,17378,0)="MBM?'%)Y)L8I9HFR<:>9,$DO(3!VB'12VDD=.U.;.U/SZ#FI$KSTD_6_P2[_I"
^XMB(3.9,22,2,17379,0)="""DATA"",396.18,472,3,1074,0)"
^XMB(3.9,22,2,17380,0)="MEWE:H3Y9Y9JD0ENZJN\.8I,""1KI0LV*C'S<GPR#1F7B\P%Q&4(4O-6RA3TG-"
^XMB(3.9,22,2,17381,0)="""DATA"",396.18,472,3,1075,0)"
^XMB(3.9,22,2,17382,0)="M/=L9L9$DY`46K\[TUAW-5W<<:MI9^ST-9AH+A658`_.*VV`<YM4#OC=#;P2-"
^XMB(3.9,22,2,17383,0)="""DATA"",396.18,472,3,1076,0)"
^XMB(3.9,22,2,17384,0)="M7!8&""P<^<;'EFTB!_?L-ETTHEN7K`_3X%I;(H.`V9>I/.=2TZ-4]3KU$WOX#"
^XMB(3.9,22,2,17385,0)="""DATA"",396.18,472,3,1077,0)"
^XMB(3.9,22,2,17386,0)="M4$L!`A8+%``""``@`B5ZY-//,NG9&/0``TG\!``\``````````0`@`(""!````"
^XMB(3.9,22,2,17387,0)="""DATA"",396.18,472,3,1078,0)"
^XMB(3.9,22,2,17388,0)="M`$UU<V-L97-?,3$Q+G!N;%!+`0(6""Q0``@`(`(M>N30GPJT0=D0``""R?`@`3"
^XMB(3.9,22,2,17389,0)="""DATA"",396.18,472,3,1079,0)"
^XMB(3.9,22,2,17390,0)="M``````````$`(`""`@7,]``!-=7-C;&5S7S$Q,2YP;FPN9G)M4$L!`A8+%``"""
^XMB(3.9,22,2,17391,0)="""DATA"",396.18,472,3,1080,0)"
^XMB(3.9,22,2,17392,0)="M``@`B5ZY-'8*&==O,@``!00""`!,``````````0`@`(""!&H(``$UU<V-L97-?"
^XMB(3.9,22,2,17393,0)="""DATA"",396.18,472,3,1081,0)"
^XMB(3.9,22,2,17394,0)="M,3$Q+G!N;""YC9&502P$""%@L4``(`""`"")7KDTXY*S#`P(```]*0``$P``````"
^XMB(3.9,22,2,17395,0)="""DATA"",396.18,472,3,1082,0)"
^XMB(3.9,22,2,17396,0)="M```!`""``@(&ZM```375S8VQE<U\Q,3$N<&YL+G)E<%!+!08`````!``$```!"
^XMB(3.9,22,2,17397,0)="""DATA"",396.18,472,3,1083,0)"
^XMB(3.9,22,2,17398,0)="(``#WO```````"
^XMB(3.9,22,2,17399,0)="""DATA"",396.18,472,3,1084,0)"
^XMB(3.9,22,2,17400,0)="end"
^XMB(3.9,22,2,17401,0)="""DATA"",396.18,472,4)"
^XMB(3.9,22,2,17402,0)="9^3964252924"
^XMB(3.9,22,2,17403,0)="""DATA"",396.18,472,6)"
^XMB(3.9,22,2,17404,0)="1^631"
^XMB(3.9,22,2,17405,0)="""DATA"",396.18,473,0)"
^XMB(3.9,22,2,17406,0)="SPINE~111F"
^XMB(3.9,22,2,17407,0)="""DATA"",396.18,473,1,0)"
^XMB(3.9,22,2,17408,0)="^^2^2^3060728"
^XMB(3.9,22,2,17409,0)="""DATA"",396.18,473,1,1,0)"
^XMB(3.9,22,2,17410,0)="Last updated on 05/24/2006 ~111 "
^XMB(3.9,22,2,17411,0)="""DATA"",396.18,473,1,2,0)"
^XMB(3.9,22,2,17412,0)="Patch DVBA*2.7*111"
^XMB(3.9,22,2,17413,0)="""DATA"",396.18,473,2)"
^XMB(3.9,22,2,17414,0)="3060328^^3060524.1802"
^XMB(3.9,22,2,17415,0)="""DATA"",396.18,473,3,0)"
^XMB(3.9,22,2,17416,0)="^396.184^2148^2148^3060524^^^^"
^XMB(3.9,22,2,17417,0)="""DATA"",396.18,473,3,1,0)"
^XMB(3.9,22,2,17418,0)="begin 664 spine_111.pnl.zip"
^XMB(3.9,22,2,17419,0)="""DATA"",396.18,473,3,2,0)"
^XMB(3.9,22,2,17420,0)="M4$L#!!0``@`(`$*(N#2S+`^4@X4``)*Q""0`-````4W!I;F5?,3$Q+G!N;.R]"
^XMB(3.9,22,2,17421,0)="""DATA"",396.18,473,3,3,0)"
^XMB(3.9,22,2,17422,0)="M#W`;5W[GV2`D@I(EP1I[--1$,>!1Q3/>\3C\HS^45V>,)4NR$LG2B71\N;H["
^XMB(3.9,22,2,17423,0)="""DATA"",396.18,473,3,4,0)"
^XMB(3.9,22,2,17424,0)="M""R*;$LXD0`.@+,XI`E6:&WEN';.RR4[9N[GA;MW6525[=7<[NW=)ZK;*5.@R"
^XMB(3.9,22,2,17425,0)="""DATA"",396.18,473,3,5,0)"
^XMB(3.9,22,2,17426,0)="M)W4JL^JR6Y.MNXG!06J4<F5C($S&S;@'?>]?-QI`_WD-@G\D?3\SIO#O^_K]"
^XMB(3.9,22,2,17427,0)="""DATA"",396.18,473,3,6,0)"
^XMB(3.9,22,2,17428,0)="M_;W?>_W>ZZ'S)WLZA\XGT^K8[FL3])]CR9QZ/)/.9S-C6\ZHH_D.)3R4F>AX"
^XMB(3.9,22,2,17429,0)="""DATA"",396.18,473,3,7,0)"
^XMB(3.9,22,2,17430,0)="M=.NKJ9'\E?#?=G2^I*8N7\F'?Q#:?DR]JHZ=F\RKV4CGI:LO9]+J%XDTE\\F"
^XMB(3.9,22,2,17431,0)="""DATA"",396.18,473,3,8,0)"
^XMB(3.9,22,2,17432,0)="M4^E\[MFSR6O6;Q]O^,(,K5Z02KL(4FE3L.U\9F)RXJR:GHP\?I9\>S*3'7_V"
^XMB(3.9,22,2,17433,0)="""DATA"",396.18,473,3,9,0)"
^XMB(3.9,22,2,17434,0)="MFO5A;]=0\M*Y[(B:[5`498@E[TSRDCH697^'IB;4<Z-4PQ(7'C!8ZKIXZCJ^"
^XMB(3.9,22,2,17435,0)="""DATA"",396.18,473,3,10,0)"
^XMB(3.9,22,2,17436,0)="M*A+7L3-R/#F13V72G5O/GKAPZD1=4(^POS20TR_6!=,M@HD[!#-X_O3+]<'L"
^XMB(3.9,22,2,17437,0)="""DATA"",396.18,473,3,11,0)"
^XMB(3.9,22,2,17438,0)="M8A^]QE[W]AWBN;V5!71#!/1H<T`=0[T[3I+R>?;XE60VI^8CT1=/G'SAE3-#"
^XMB(3.9,22,2,17439,0)="""DATA"",396.18,473,3,12,0)"
^XMB(3.9,22,2,17440,0)="MKQU_Z84+@R>&MO-O,V.9;""0R/'9L+#G\^B/L,Q'6WVUC[UY.CJN=.\\.Q@>3"
^XMB(3.9,22,2,17441,0)="""DATA"",396.18,473,3,13,0)"
^XMB(3.9,22,2,17442,0)="MZ5Q\4,VF1KET,#\UIC[2.9H[EAD;4;:?3V;5=)Y^T^4:_?Z>'IX1_S[$XO\E"
^XMB(3.9,22,2,17443,0)="""DATA"",396.18,473,3,14,0)"
^XMB(3.9,22,2,17444,0)="M$?^O-\=_>RH?5],CN7@ROR[ID$O`P0,\`1U1%O]?%/&_T1S_+Y^XEE?3.?+R"
^XMB(3.9,22,2,17445,0)="""DATA"",396.18,473,3,15,0)"
^XMB(3.9,22,2,17446,0)="MN7A//)^)'S@8'U$O9U4U9X;.FM-.'CI[W<L+-_P[O""TE1%O:9;6EIT);7B(5"
^XMB(3.9,22,2,17447,0)="""DATA"",396.18,473,3,16,0)"
^XMB(3.9,22,2,17448,0)="MO7/K^7/G7SG/V]7I=)JTJZY+5R\D4SEUY)%C&5JK6:+(I[G!5/KRF+J5YT_7"
^XMB(3.9,22,2,17449,0)="""DATA"",396.18,473,3,17,0)"
^XMB(3.9,22,2,17450,0)="M\-A@:NRJFEW_++6W-Y&Q.VP9V\=3_B<\Y5M%ON;,?'W4RM='!R=2:?6Y^,DQ"
^XMB(3.9,22,2,17451,0)="""DATA"",396.18,473,3,18,0)"
^XMB(3.9,22,2,17452,0)="M$O8W)B=RJTQ*916U7*1CI[V!'N8)^2%/R%Z1D+[F""K+M9%9]8U)-#T\Y!S3`"
^XMB(3.9,22,2,17453,0)="""DATA"",396.18,473,3,19,0)"
^XMB(3.9,22,2,17454,0)="M`[H2J@OH:\T!=;TXF4W25X[A]/7R""OLX""^:D"".9B<S![SF?5X=1$*D_""2E^."
^XMB(3.9,22,2,17455,0)="""DATA"",396.18,473,3,20,0)"
^XMB(3.9,22,2,17456,0)="MCR:'\YEL[CGG0/MYY!X)U87Z:\VA/O[""V)AZ-241YH%#MHB&_XDB*O^?ALQ`"
^XMB(3.9,22,2,17457,0)="""DATA"",396.18,473,3,21,0)"
^XMB(3.9,22,2,17458,0)="MOVP%6F!M*_],/#4:3Z:GGHE/J-GX597T+\GT,_'\%74JGE5SDV/Y>""H=3XZ,"
^XMB(3.9,22,2,17459,0)="""DATA"",396.18,473,3,22,0)"
^XMB(3.9,22,2,17460,0)="MI*@J.18?2XVSY&72\<QH?#S#7V7C&2+)QD<GT\/BAZGQB60J.TZN$1^9S-*H"
^XMB(3.9,22,2,17461,0)="""DATA"",396.18,473,3,23,0)"
^XMB(3.9,22,2,17462,0)="MDU_$1T65>Z[K5=+&7LTF)[8I2F3HV&0^GTD+*\'?](E:\#&K!6$E)#+H5\VT"
^XMB(3.9,22,2,17463,0)="""DATA"",396.18,473,3,24,0)"
^XMB(3.9,22,2,17464,0)="M[*T9_.-CF9RZD>VQ,W(N?7PL-?QZY+%K//JG5&)24L/L0T6)#AT__^K9""\F1"
^XMB(3.9,22,2,17465,0)="""DATA"",396.18,473,3,25,0)"
^XMB(3.9,22,2,17466,0)="M5.94-C,Y\26>TOH/>P^(>K;=7EW#_U8Q4QP7EJNOO^?PP>V#5S)O<D/5M>-7"
^XMB(3.9,22,2,17467,0)="""DATA"",396.18,473,3,26,0)"
^XMB(3.9,22,2,17468,0)="M)G/YU.C4Z;PZGML6H?^<3X[86GS7(#%SV51^*D)R8'(\G>L([V0_)LFB99,+"
^XMB(3.9,22,2,17469,0)="""DATA"",396.18,473,3,27,0)"
^XMB(3.9,22,2,17470,0)="M=6XYFQH;Z>PZFR$!)O-J9R>3J$I=)[]MZ'AF_%+F6.9:5*1`O*VW/5\54?\M"
^XMB(3.9,22,2,17471,0)="""DATA"",396.18,473,3,28,0)"
^XMB(3.9,22,2,17472,0)="M*^I?M$6];SN]M%G-:^&'&J/4^:JJOCXVU?F%$R0F4_$^V@7TQ]\D'^8Z'^.?"
^XMB(3.9,22,2,17473,0)="""DATA"",396.18,473,3,29,0)"
^XMB(3.9,22,2,17474,0)="M]=+/^D@]3.>O6!_VL[ZBX<.#],-#YH>/G$L/J_%D?$I-9CL?/:/F<J1Z)M/L"
^XMB(3.9,22,2,17475,0)="""DATA"",396.18,473,3,30,0)"
^XMB(3.9,22,2,17476,0)="M_=B45TK[ZVR*9TH/'7%):4=C2K>^E)G,DEB)Y(PDI\@;EHS#_,T.\0U/_!>/"
^XMB(3.9,22,2,17477,0)="""DATA"",396.18,473,3,31,0)"
^XMB(3.9,22,2,17478,0)="MJ7GR*DT^2*9'2%+YQ[O/9K(J3T>2)Y0D9.O0674\(_H)^M+L(87A&10I^""LK"
^XMB(3.9,22,2,17479,0)="""DATA"",396.18,473,3,32,0)"
^XMB(3.9,22,2,17480,0)="M!0.V%`RLLE7]K:U5/7*<)#)%K,3+ZIMU;6KG&=(=V7)#J6MEVP>'B8-,G.5L"
^XMB(3.9,22,2,17481,0)="""DATA"",396.18,473,3,33,0)"
^XMB(3.9,22,2,17482,0)="M+K(]E_LU-9M/#2?':KFYQ2&1PGH(D^V9QL,'[H,TAIW2.&""W]O^;:>U+EK4_"
^XMB(3.9,22,2,17483,0)="""DATA"",396.18,473,3,34,0)"
^XMB(3.9,22,2,17484,0)="M94MD[WV0R*V*NULGRO,767EN$4E]S_+J?O]!\.I""CD[,0=Y<_YB;UDZ1]""^&"
^XMB(3.9,22,2,17485,0)="""DATA"",396.18,473,3,35,0)"
^XMB(3.9,22,2,17486,0)="MFOVZIX1?]S(9+I$>^+B:O4HS.'XAF;ZLTN[Z+.NN5YG$Y55X>XX]?3_O]L)?"
^XMB(3.9,22,2,17487,0)="""DATA"",396.18,473,3,36,0)"
^XMB(3.9,22,2,17488,0)="M908I_(^:>OHO-?3TMB[)I]_=-L1Z5F*V'^57--_V\@ZKXX!]#!7NM>I3.E1?"
^XMB(3.9,22,2,17489,0)="""DATA"",396.18,473,3,37,0)"
^XMB(3.9,22,2,17490,0)="M+*?'DY=542SL=:\8A9T,V4>UX273PH1_3]EQ/C6<G\RJS[Z8S"">W?^N=3IK\"
^XMB(3.9,22,2,17491,0)="""DATA"",396.18,473,3,38,0)"
^XMB(3.9,22,2,17492,0)="M5'X\.9$FKX^=I7\IA\A_7R/__?N0HO21_T)*-_M\0'QOQP``````````````"
^XMB(3.9,22,2,17493,0)="""DATA"",396.18,473,3,39,0)"
^XMB(3.9,22,2,17494,0)="M````````````````````````````````````````````````````````````"
^XMB(3.9,22,2,17495,0)="""DATA"",396.18,473,3,40,0)"
^XMB(3.9,22,2,17496,0)="M````````````````````````````````````````````````````````````"
^XMB(3.9,22,2,17497,0)="""DATA"",396.18,473,3,41,0)"
^XMB(3.9,22,2,17498,0)="M````````````````````````````````````````````````````````````"
^XMB(3.9,22,2,17499,0)="""DATA"",396.18,473,3,42,0)"
^XMB(3.9,22,2,17500,0)="M````````````````````````````````````````````````````````````"
^XMB(3.9,22,2,17501,0)="""DATA"",396.18,473,3,43,0)"
^XMB(3.9,22,2,17502,0)="M````````````````````````````````````````````````````````````"
^XMB(3.9,22,2,17503,0)="""DATA"",396.18,473,3,44,0)"
^XMB(3.9,22,2,17504,0)="M````````````````````````````````````````````````````````````"
^XMB(3.9,22,2,17505,0)="""DATA"",396.18,473,3,45,0)"
^XMB(3.9,22,2,17506,0)="M````````````````````````````````````````````````````````````"
^XMB(3.9,22,2,17507,0)="""DATA"",396.18,473,3,46,0)"
^XMB(3.9,22,2,17508,0)="M````````````````````````````````````````````````````````````"
^XMB(3.9,22,2,17509,0)="""DATA"",396.18,473,3,47,0)"
^XMB(3.9,22,2,17510,0)="M````````````````````````````````````````````````````````````"
^XMB(3.9,22,2,17511,0)="""DATA"",396.18,473,3,48,0)"
^XMB(3.9,22,2,17512,0)="M````````````````````````````````````````````````````````````"
^XMB(3.9,22,2,17513,0)="""DATA"",396.18,473,3,49,0)"
^XMB(3.9,22,2,17514,0)="M````````````````````````````````````````````````````````````"
^XMB(3.9,22,2,17515,0)="""DATA"",396.18,473,3,50,0)"
^XMB(3.9,22,2,17516,0)="M``````````````````````````````````````````````````#`0T^E4D$F"
^XMB(3.9,22,2,17517,0)="""DATA"",396.18,473,3,51,0)"
^XMB(3.9,22,2,17518,0)="M``#`>K+%!%D!``#K;'MW[-@!\PL``.OL],+[!0""`-<6:W6VPNG!]`0!@K<VO"
^XMB(3.9,22,2,17519,0)="""DATA"",396.18,473,3,52,0)"
^XMB(3.9,22,2,17520,0)="MW=&%ZPL``.M`@YEM,,+$`3:P^`$`\.!:/S[,M[,.%J_9O[7>-OC#``#P`#N?"
^XMB(3.9,22,2,17521,0)="""DATA"",396.18,473,3,53,0)"
^XMB(3.9,22,2,17522,0)="M;ECS`^WU0NW.;8/M=3/.``#P$!KA-II!QP`=/\&M-P``;/(J[3!WFZT0/OGD"
^XMB(3.9,22,2,17523,0)="""DATA"",396.18,473,3,54,0)"
^XMB(3.9,22,2,17524,0)="M$S?;:SG8>_;L62/;Z^C)P],&`&PJ['.PJ['`'D+'S]=TYF%-?7L``%A3>]46"
^XMB(3.9,22,2,17525,0)="""DATA"",396.18,473,3,55,0)"
^XMB(3.9,22,2,17526,0)="MP^OA<[9EYL&ZG]A\8Q'V%@#P`%M@WU_ZFN5`1K+""L%M=MPAC&1L`X'Z?B/""U"
^XMB(3.9,22,2,17527,0)="""DATA"",396.18,473,3,56,0)"
^XMB(3.9,22,2,17528,0)="MO2W_0.82;A,C<&X!``^V#[P:RRGY`U_?&/86`/!0F5\^NF\>PDM:0M_??/+)"
^XMB(3.9,22,2,17529,0)="""DATA"",396.18,473,3,57,0)"
^XMB(3.9,22,2,17530,0)="M)\T3O_:)!0.K@@$`#ZOWZ_:Y[[2JO'UN^!FQR<T[-0``X*&UO8&\T$#W[+B9"
^XMB(3.9,22,2,17531,0)="""DATA"",396.18,473,3,58,0)"
^XMB(3.9,22,2,17532,0)="MY2N$W18,`P#`0VA[?9?RMC9#ZW;Z&8H```#;:_CME5CE%F;<5@,`@&9CZST%"
^XMB(3.9,22,2,17533,0)="""DATA"",396.18,473,3,59,0)"
^XMB(3.9,22,2,17534,0)="MT7;SBS6Z``""XOA[S#VV9B&A^Y@4R'P#P<.*VST+>E6U!!=L+``#-IK)Y/Z_D"
^XMB(3.9,22,2,17535,0)="""DATA"",396.18,473,3,60,0)"
^XMB(3.9,22,2,17536,0)="ME(6C!?8P^%A=!@""`[6UV@^7E#1,+S0ZPXZF/\'X!`+""]JSGES/%#?HJOS/T["
^XMB(3.9,22,2,17537,0)="""DATA"",396.18,473,3,61,0)"
^XMB(3.9,22,2,17538,0)="ME`(`X""'!T4%MX=3'ULYJP$)?`,!#:WC;<BBNA\INWOFUK+,C[+,<>,`0``!3"
^XMB(3.9,22,2,17539,0)="""DATA"",396.18,473,3,62,0)"
^XMB(3.9,22,2,17540,0)="M#6VWO9(^,,PO`.#A-+PMG*M@]V#E?^RVD)@O>\""&""P``/-[5^+V^YM<Q5B@@"
^XMB(3.9,22,2,17541,0)="""DATA"",396.18,473,3,63,0)"
^XMB(3.9,22,2,17542,0)="M`,`#;'OM9G`U)XD%M;T>YM>:?T89`0#@]'H;VQ9"":#C3S/=S``!X,`QOH#%^"
^XMB(3.9,22,2,17543,0)="""DATA"",396.18,473,3,64,0)"
^XMB(3.9,22,2,17544,0)="M\RTS-QLN[[@V6W[K*GQ5,`H+`/#@&5YC=0\1MDREX[VV0!OB/,ZK1)$!`.YK"
^XMB(3.9,22,2,17545,0)="""DATA"",396.18,473,3,65,0)"
^XMB(3.9,22,2,17546,0)="MFL?R;;%O]N6[J^\+&K[""HE\`P`/F\1I-9SBT,>06Y!XF'>87`'""_.[WV&8-`"
^XMB(3.9,22,2,17547,0)="""DATA"",396.18,473,3,66,0)"
^XMB(3.9,22,2,17548,0)="MSR!NRY'I\K87DP\`@/O=ZC9;L*`GE?GN35N--98\'!CF%P!P?QE>QX4'+1NT"
^XMB(3.9,22,2,17549,0)="""DATA"",396.18,473,3,67,0)"
^XMB(3.9,22,2,17550,0)="MAMF)AOG>%MQ@WU]:ISW@`4,`@/N%=5A(X+VGV-=:RMA>N+X`@/O1\#;L66N["
^XMB(3.9,22,2,17551,0)="""DATA"",396.18,473,3,68,0)"
^XMB(3.9,22,2,17552,0)="M-6LY*/F8M.O.(```K(_A;;94@29CU]3VRGO@\'X!`/?O5$.S[?7P(;FY\_A!"
^XMB(3.9,22,2,17553,0)="""DATA"",396.18,473,3,69,0)"
^XMB(3.9,22,2,17554,0)="MP]F_S;_D(:QFRJ(U0PT``)O-]MJW_4J.]'T-N/>L<AMM+\PO`.`^,KQN#Z]L"
^XMB(3.9,22,2,17555,0)="""DATA"",396.18,473,3,70,0)"
^XMB(3.9,22,2,17556,0)="M(33'0Q@<'VHLOS(AZ%(WV%X`P&8VO-[K<EL+UO'H&V_C+!FX_!TTN+X`@,V#"
^XMB(3.9,22,2,17557,0)="""DATA"",396.18,473,3,71,0)"
^XMB(3.9,22,2,17558,0)="MQ]THQ]/&6@[?UW%MRV..?24[&""AW`,!FFVIP-&ZK60]FF""L?&GS4MCSV`MXO"
^XMB(3.9,22,2,17559,0)="""DATA"",396.18,473,3,72,0)"
^XMB(3.9,22,2,17560,0)="M`.`^=7H=_4""W)[.W;"">];7L+S[]H83($A^T``#;<ZLH[O48[;E3YKF<(NO>A"
^XMB(3.9,22,2,17561,0)="""DATA"",396.18,473,3,73,0)"
^XMB(3.9,22,2,17562,0)="MY8EH+/H%`&S.V8;F2=JVV%['TR':$F8+9_;BM`<`P*8RO,V&L5TNXAK9WA:\"
^XMB(3.9,22,2,17563,0)="""DATA"",396.18,473,3,74,0)"
^XMB(3.9,22,2,17564,0)="M7[B^`(`--+P>LZP-3N]:K`U8S?*)5=K>!M?7:&G""&0``6K!7'F/MAK6^[3JX"
^XMB(3.9,22,2,17565,0)="""DATA"",396.18,473,3,75,0)"
^XMB(3.9,22,2,17566,0)="MS,-RKG[:H8U//08`@#6RO8%^LT:FJ2UVKX6G)WMXOP``L%'FSO%&6VOS`.MI"
^XMB(3.9,22,2,17567,0)="""DATA"",396.18,473,3,76,0)"
^XMB(3.9,22,2,17568,0)="M>XVU>?@F``""LI^&USW^V92OQFMK>EJ<=&L+!EC<`P$8-\!T7@[5PQ=4_>Z(U"
^XMB(3.9,22,2,17569,0)="""DATA"",396.18,473,3,77,0)"
^XMB(3.9,22,2,17570,0)="MO[>U-6-P?0$`&VAXK1^OQN]MP6QNN.WE\CU[]L#\`@#:;G@E?5&CZ32SH`90"
^XMB(3.9,22,2,17571,0)="""DATA"",396.18,473,3,78,0)"
^XMB(3.9,22,2,17572,0)="MQMJOD>UMRQD1J#8`@-7@<6*#C#ULX<EHCFMN9;8MVV<J6C/@W&MMXP0R``""T"
^XMB(3.9,22,2,17573,0)="""DATA"",396.18,473,3,79,0)"
^XMB(3.9,22,2,17574,0)="M8'5;L""2^9YZW8'[=-OPZ;EOVL-XR#[EHHR\-\PL`6#<;XF$_6[BZX;D[P^V$"
^XMB(3.9,22,2,17575,0)="""DATA"",396.18,473,3,80,0)"
^XMB(3.9,22,2,17576,0)="M!QD#[O8TBK;83&NP`/,+`%@?YZW!Z?6P9NV=JFVP>S(NM^-\R&9XA#T`X*'%"
^XMB(3.9,22,2,17577,0)="""DATA"",396.18,473,3,81,0)"
^XMB(3.9,22,2,17578,0)="MVJL5Z)@""M^/+/!Y\N9H%L6V_U[86ME?R'B4``*QFNM)CQE7FQP^2[34P\0L`"
^XMB(3.9,22,2,17579,0)="""DATA"",396.18,473,3,82,0)"
^XMB(3.9,22,2,17580,0)="M""&XN5KG%H&7SZ\WJS:9'(&MA*G':`P!@?4;*DK;7[0GRK=G>UD(PG/84M]=."
^XMB(3.9,22,2,17581,0)="""DATA"",396.18,473,3,83,0)"
^XMB(3.9,22,2,17582,0)="MXJPS`,#ZC)&;EQ#(G,G0LMELE^VU5B:TW?8:YLPVS""\`8(T,KZ-M]/:?^;<M"
^XMB(3.9,22,2,17583,0)="""DATA"",396.18,473,3,84,0)"
^XMB(3.9,22,2,17584,0)="M^-C>CXH+-.FQ1CG0L+D/WB\`P,U>M?&.O#W`M;`YJS]GTM%$MWU-@GUV!0>="
^XMB(3.9,22,2,17585,0)="""DATA"",396.18,473,3,85,0)"
^XMB(3.9,22,2,17586,0)="M`0#6P?!:QF>C;*],JE>SUF)C1Q8``$PUN)FUM;,Y;;>]:YW5V.\&`&BV8.UR"
^XMB(3.9,22,2,17587,0)="""DATA"",396.18,473,3,86,0)"
^XMB(3.9,22,2,17588,0)="M>IOO[*^196NO[5V'K&[MB`P``)S>%H)=.U.SRL=,&'Z[GC'Y``""XORR`?0)Y"
^XMB(3.9,22,2,17589,0)="""DATA"",396.18,473,3,87,0)"
^XMB(3.9,22,2,17590,0)="M]4]R7R/;N]9N.<PO`*!AV&MO^X%.;&AY6+UVL\JM"">V3KFMT*]`73/P""\+""9"
^XMB(3.9,22,2,17591,0)="""DATA"",396.18,473,3,88,0)"
^XMB(3.9,22,2,17592,0)="MW[6^X[.FYX.M,LSFT]V--7NJ$5Q?`(#=\*[/8BIBWNUN=MO7S:[RP)]V35_`"
^XMB(3.9,22,2,17593,0)="""DATA"",396.18,473,3,89,0)"
^XMB(3.9,22,2,17594,0)="M_`(`UM1DM6Q2UF@Y0<L!-ONZ&V4`<=H#``^#QVNLS38*[ZO8#6][YY8?F'/."
^XMB(3.9,22,2,17595,0)="""DATA"",396.18,473,3,90,0)"
^XMB(3.9,22,2,17596,0)="M<=89``^#Q[L.;;S9]FX2!]Y^6ZWYMN,&=HO8<P$`#&];KN7X?+0U.JMG]<(-"
^XMB(3.9,22,2,17597,0)="""DATA"",396.18,473,3,91,0)"
^XMB(3.9,22,2,17598,0)="MM+UN3XX#`,#P;D[[MIIU#IO']FY@&0$`ULZG(FS(=*+;9HJ&Q;2KF78.FJB&"
^XMB(3.9,22,2,17599,0)="""DATA"",396.18,473,3,92,0)"
^XMB(3.9,22,2,17600,0)="MR>?-9GL-'/,+P`/G\:[_T8621^:NQORN\OGUF]#VPOL%`+,-J_2W#?<-""^W:"
^XMB(3.9,22,2,17601,0)="""DATA"",396.18,473,3,93,0)"
^XMB(3.9,22,2,17602,0)="MS[N:QVLV'W&Y&2P>#ML!`(9W[;S?=JW[7>5\;X/OO7EL'1;]`@##N_HXN,TJ"
^XMB(3.9,22,2,17603,0)="""DATA"",396.18,473,3,94,0)"
^XMB(3.9,22,2,17604,0)="M^#XSPG<NPBUU#0\AXB_XK(OUU2:W;/99^C5:B0T`>%`-K]NT@V52+//2?.9D"
^XMB(3.9,22,2,17605,0)="""DATA"",396.18,473,3,95,0)"
^XMB(3.9,22,2,17606,0)="MN_Q>R3`WH1V&ZPO`_6MX-\F<@^/NW6;#V_!0XP9GV-J`8*T$L%XT+&!P/#UX"
^XMB(3.9,22,2,17607,0)="""DATA"",396.18,473,3,96,0)"
^XMB(3.9,22,2,17608,0)="M\]NQYKT>]FBW=TL@`&#MS)VC1=JH^$C..30\7K/!('O;U18>$+_Y>TQXOP#<"
^XMB(3.9,22,2,17609,0)="""DATA"",396.18,473,3,97,0)"
^XMB(3.9,22,2,17610,0)="M7[;7V[ZM?WP:)BWM,ZX-EK9A)[*O*QN(YKG3C9W[;4Y[0VQQWPV`^\OI]6W7"
^XMB(3.9,22,2,17611,0)="""DATA"",396.18,473,3,98,0)"
^XMB(3.9,22,2,17612,0)="MZ[F_..CE).\NR7BY#9?>5/>M?""._>4Z<``!(&EZ/!KYGSYX-V5^\=GN*[1;5"
^XMB(3.9,22,2,17613,0)="""DATA"",396.18,473,3,99,0)"
^XMB(3.9,22,2,17614,0)="M<=[8.Y!-Z/$VK'^SO-_UWR,#`)""T;\W+M+Q]JG6VO6V\[NJ->8.5WCP.L.,0"
^XMB(3.9,22,2,17615,0)="""DATA"",396.18,473,3,100,0)"
^XMB(3.9,22,2,17616,0)="M`*XO`)L*[RE!N_FU+RW8$`>OO8<5M,OV;I*R\QT=8.8!@,T_U6`?KAHN#VU?"
^XMB(3.9,22,2,17617,0)="""DATA"",396.18,473,3,101,0)"
^XMB(3.9,22,2,17618,0)="MMU;L>#=M8VWO9EC\T-!IRL0'YA>`=3.J=^_>Y6_W[=O'7<<?__C'ENWBRSYE"
^XMB(3.9,22,2,17619,0)="""DATA"",396.18,473,3,102,0)"
^XMB(3.9,22,2,17620,0)="M&N,Z/,1')@[6;//J+WU?VUYK#&)-X4K&![87@/5IGMSV-HQ)FU?:!]V!N_Z+"
^XMB(3.9,22,2,17621,0)="""DATA"",396.18,473,3,103,0)"
^XMB(3.9,22,2,17622,0)="MEQPGGS?$]FZ2-<^.ZQE0[0'8\'&HY1<1\VNUTQ_]Z$<MW.^V)A\:#/6&F*!V"
^XMB(3.9,22,2,17623,0)="""DATA"",396.18,473,3,104,0)"
^XMB(3.9,22,2,17624,0)="MF;Z6SS';5(;7@O2G+4S%?.4K7R%#"">OMO_SG__S8L6/?^][WT)0`:*%M$M-J"
^XMB(3.9,22,2,17625,0)="""DATA"",396.18,473,3,105,0)"
^XMB(3.9,22,2,17626,0)="MC<W)BU*IM!J;X]VB-]`0K?(&7!O/[UW_]+9KO8<]+0W;M-&4``C$:Z^]9C]J"
^XMB(3.9,22,2,17627,0)="""DATA"",396.18,473,3,106,0)"
^XMB(3.9,22,2,17628,0)="MAL_N\M9$G)PU:EEV-WNC+-(:V=[FN8[U',7XSC.T`!_[-`R.#-L!%_Q#X@.C"
^XMB(3.9,22,2,17629,0)="""DATA"",396.18,473,3,107,0)"
^XMB(3.9,22,2,17630,0)="M-0'0LH-$&IIAWFA;4^O1W)8W9`I""/G62/][PDQCMJ_O:$HUFVVN=MT-Z:O*"""
^XMB(3.9,22,2,17631,0)="""DATA"",396.18,473,3,108,0)"
^XMB(3.9,22,2,17632,0)="M3U+9YR(``$$M$K_7QEO3.IC$YC7`ZV.U9'9X-=QA]+:]&^C)6_FV=FNJ'8_<"
^XMB(3.9,22,2,17633,0)="""DATA"",396.18,473,3,109,0)"
^XMB(3.9,22,2,17634,0)="MY*]+I1)_\9WO?`?M""(""@C(Z.-JPQLYLC[@PW?+Y&EG""=>QQ).]QL>SV.=-C8"
^XMB(3.9,22,2,17635,0)="""DATA"",396.18,473,3,110,0)"
^XMB(3.9,22,2,17636,0)="MWK/M$;!F45YYY16/HY/0B`!HV6MRL[WV#XEG]8,?_*""]S:UYN<7&VJ[F?7D>"
^XMB(3.9,22,2,17637,0)="""DATA"",396.18,473,3,111,0)"
^XMB(3.9,22,2,17638,0)="MV,_U7?]2:[:Z:W3T;O/D/[\_2R[7<',6`+`6!HIXR.1%?W]_VV<UFRWPQIX#"
^XMB(3.9,22,2,17639,0)="""DATA"",396.18,473,3,112,0)"
^XMB(3.9,22,2,17640,0)="MYK8#=_/$<)T[K(8+<3>8+Y+!9""\`Z]#ZUOIH,D?[MN'G,6Z2D77;]XRL)A.:"
^XMB(3.9,22,2,17641,0)="""DATA"",396.18,473,3,113,0)"
^XMB(3.9,22,2,17642,0)="M5U/P40`.0`.@[1!O9]^^?=/3TP^84W>_V-Z-/2/N1XR&MW?OWN4?\BC-S<UA"
^XMB(3.9,22,2,17643,0)="""DATA"",396.18,473,3,114,0)"
^XMB(3.9,22,2,17644,0)="M!AB`^YI//OFD8=*5O-TH!WA#[(GW4]4VX;""(3TD]_?33L+T`W+_8+8_=""&_("
^XMB(3.9,22,2,17645,0)="""DATA"",396.18,473,3,115,0)"
^XMB(3.9,22,2,17646,0)="MD';SW`1LSI_-8WL)UBE,J,``/#!V>`-/!M[88R@VYW.(FGGEE5?V[-FS#E-2"
^XMB(3.9,22,2,17647,0)="""DATA"",396.18,473,3,116,0)"
^XMB(3.9,22,2,17648,0)="M`(#-X`JNVUW^M>Y?/)*VR:VNXX`%```CO)EM[WWWB'D`P$,^""^%AN]9H7^V:"
^XMB(3.9,22,2,17649,0)="""DATA"",396.18,473,3,117,0)"
^XMB(3.9,22,2,17650,0)="MVMOFDQY1T`""`S6^*O?>F-5CL0$/C=IV^O@[=!```;*`I]MV5MJ9^K\Q^Y`8)"
^XMB(3.9,22,2,17651,0)="""DATA"",396.18,473,3,118,0)"
^XMB(3.9,22,2,17652,0)="MO%P`P`.&Q^$,S4N('5=SN9VNTPS?]]>P*`[^+0#@(9R+:/A$QBMN""\A_``!H"
^XMB(3.9,22,2,17653,0)="""DATA"",396.18,473,3,119,0)"
^XMB(3.9,22,2,17654,0)="MXW0!#""P``*R;09;QJP$``*RU[04```#;""P``L+T```!@>P$``+87````;""\`"
^XMB(3.9,22,2,17655,0)="""DATA"",396.18,473,3,120,0)"
^XMB(3.9,22,2,17656,0)="M`&P>[""=%(#<``&!#C#````````````!`NZA4*D>.''GSS3>1%0``L#[T]_?C"
^XMB(3.9,22,2,17657,0)="""DATA"",396.18,473,3,121,0)"
^XMB(3.9,22,2,17658,0)="MY!P``%AG+)/+#^:=FYM#G@``P+K9WKMW[\+U!0""`=;:]GWSR""6PO``""LL^UU"
^XMB(3.9,22,2,17659,0)="""DATA"",396.18,473,3,122,0)"
^XMB(3.9,22,2,17660,0)="M?'(0``""`-;6]?,YASYX]R!,``%@?VVM-]I9*)>0)``""L-9;5M4\X6`\@1OX`"
^XMB(3.9,22,2,17661,0)="""DATA"",396.18,473,3,123,0)"
^XMB(3.9,22,2,17662,0)="M`,#:\:,?_:C!$YZ;F\/T+P``K!O$W1T=':U4*D\__31L+P``K`_<W>5;+6!["
^XMB(3.9,22,2,17663,0)="""DATA"",396.18,473,3,124,0)"
^XMB(3.9,22,2,17664,0)="M`0!V%*5SZ/1X\K*Z<_#\Z9=/O,9>]_9N.:..YCO""X:',1$?7UE=3(_DKX5\*"
^XMB(3.9,22,2,17665,0)="""DATA"",396.18,473,3,125,0)"
^XMB(3.9,22,2,17666,0)="M=;ZDIBY?R8=_3]EQ/C6<G\RJS[Z8S"">W9Y]7E,C0L51^/#DQ2EX?.TO_4N@_"
^XMB(3.9,22,2,17667,0)="""DATA"",396.18,473,3,126,0)"
^XMB(3.9,22,2,17668,0)="M7R/_?3^D*'WDOQ#Y'^5KXGM*1^VE0F/40BIT:*""!!AIHH($&&FB@@08::*""!"
^XMB(3.9,22,2,17669,0)="""DATA"",396.18,473,3,127,0)"
^XMB(3.9,22,2,17670,0)="M!AIHH&E-\_XZ:1[J/!""O$T$T9?Y/S#""TPOIHRM)QJZR+1K-IEF0UA<VKT0O+"
^XMB(3.9,22,2,17671,0)="""DATA"",396.18,473,3,128,0)"
^XMB(3.9,22,2,17672,0)="M[-\JT<Q+:TJ!-56;YK:L)M&*IF)IHK+UH!5-C&OT1$L:>BDY3;0BRC:`9J:F"
^XMB(3.9,22,2,17673,0)="""DATA"",396.18,473,3,129,0)"
^XMB(3.9,22,2,17674,0)="M2<AJ;I?-EJ=+:Q:XINC7M.V:><W4E*4U)1[\$I,%TY#Z>4=:LZ0SS8)?M;9K"
^XMB(3.9,22,2,17675,0)="""DATA"",396.18,473,3,130,0)"
^XMB(3.9,22,2,17676,0)="MRI;F5@""-F<51:8UF%J5/-:C3W!""_]2E2NT9/S`JQO,:*DD^1UME>4U,,T/^8"
^XMB(3.9,22,2,17677,0)="""DATA"",396.18,473,3,131,0)"
^XMB(3.9,22,2,17678,0)="MV;440#-C5KP`&M/:+`30S+>@N=.""QDS[8O!^NR7-QP$TIAF8#>*')()KS`H7"
^XMB(3.9,22,2,17679,0)="""DATA"",396.18,473,3,132,0)"
^XMB(3.9,22,2,17680,0)="M""Z*)!M<8K6@B+6ANM:""9;T%S1\KLU&N*]>U(2B,,P>T@&F%P;@71B,HS'T@3"
^XMB(3.9,22,2,17681,0)="""DATA"",396.18,473,3,133,0)"
^XMB(3.9,22,2,17682,0)="MJVM[4AI1X8+8*C.7@]A$,\<""V%XKQ_18$,V=NC8AIRGS)AX)HF&]?3D1""J2A"
^XMB(3.9,22,2,17683,0)="""DATA"",396.18,473,3,134,0)"
^XMB(3.9,22,2,17684,0)="MJ9^+32<"":%A%F(X6E</R&M:C;HF4%24A/\XBN5S=%S;^4`G):TC3T8Z^0/)!"
^XMB(3.9,22,2,17685,0)="""DATA"",396.18,473,3,135,0)"
^XMB(3.9,22,2,17686,0)="MD=>0+J%\_2*YF%?DFC5W](F""=_UIT-PC]4>_EO#V*QHT):,:T:_'`FF62075"
^XMB(3.9,22,2,17687,0)="""DATA"",396.18,473,3,136,0)"
^XMB(3.9,22,2,17688,0)="M+T6]#5:#ID(2HD<B@30:::1Z])9WA]*DN4-B=R>01B=V7D\4O4?=C9H;4:*A"
^XMB(3.9,22,2,17689,0)="""DATA"",396.18,473,3,137,0)"
^XMB(3.9,22,2,17690,0)="M!D&^?/1K,=+F2(%6Y3554@?*!6(0J@5YS47:MHE!""'*=,!T,DHP(HHDPS:T@"
^XMB(3.9,22,2,17691,0)="""DATA"",396.18,473,3,138,0)"
^XMB(3.9,22,2,17692,0)="M94I-&]'<""52F"":8I!M$4N:9<B,IKYKA&*TS+IT?A&M)ZI#75KL-,0SJ5&6D["
^XMB(3.9,22,2,17693,0)="""DATA"",396.18,473,3,139,0)"
^XMB(3.9,22,2,17694,0)="M.B`TM^4UY8G#_*-Y><V=LKC.DKSFUM(?<$U96E.-S/];KM$*4>F^?D%H](2L"
^XMB(3.9,22,2,17695,0)="""DATA"",396.18,473,3,140,0)"
^XMB(3.9,22,2,17696,0)="M1DO<_IW""""OVHVAV6]I%FOE<H7V>%JQ1D?;'9GQG%HTPSEY#U$V,_,TILR'FK"
^XMB(3.9,22,2,17697,0)="""DATA"",396.18,473,3,141,0)"
^XMB(3.9,22,2,17698,0)="M*J<A33KQL]<6='Y).0UI<(F??<PU14D-,6N%GRW>UOEK.4V16*CJ8I1]I#TO"
^XMB(3.9,22,2,17699,0)="""DATA"",396.18,473,3,142,0)"
^XMB(3.9,22,2,17700,0)="MI[E)K=KB$RRO]2?D-,1""&<9'S^]C^;%#2D.RC;S[JP+3&%NDRI38'*JI<LVT"
^XMB(3.9,22,2,17701,0)="""DATA"",396.18,473,3,143,0)"
^XMB(3.9,22,2,17702,0)="ME(9D&WFG5_E'<U+UC1C""G]<T12G-K3I-629NU%03C?;GU[E&)M^HJ:::CZXS"
^XMB(3.9,22,2,17703,0)="""DATA"",396.18,473,3,144,0)"
^XMB(3.9,22,2,17704,0)="M_Z@8D]#0@%?(_Q>O]U(GYB=1""0U---7\]#H=#]\J120T=X2F?'V9Q/#6O5L2"
^XMB(3.9,22,2,17705,0)="""DATA"",396.18,473,3,145,0)"
^XMB(3.9,22,2,17706,0)="MFHC0:-=8?U>ZXZ]A3C75?/^Z0;)YNE3TUS""'C6JFZ77>UY?=""TBO&V,1C3YW"
^XMB(3.9,22,2,17707,0)="""DATA"",396.18,473,3,146,0)"
^XMB(3.9,22,2,17708,0)="MG?1Q'QO+[EZ?I6'UBVJ*.O%;[AD5]U&#7C>\H)K/!XS/J4_F/FK0Z\;`1%.]"
^XMB(3.9,22,2,17709,0)="""DATA"",396.18,473,3,147,0)"
^XMB(3.9,22,2,17710,0)="MT6V$#""VF&1$_#8\)U>P:(#945_:Y#P7UNOF&%=K8M`A)OK*CL.2GX:5!-<N:"
^XMB(3.9,22,2,17711,0)="""DATA"",396.18,473,3,148,0)"
^XMB(3.9,22,2,17712,0)="ML;1H:#O<)__UNM'2""O<5ITGRWW6?\=3KI@&X1E-B5.DZ#:?7&IRE*5Y\C6I<"
^XMB(3.9,22,2,17713,0)="""DATA"",396.18,473,3,149,0)"
^XMB(3.9,22,2,17714,0)="M76RAT4*U=YI9Q:/>FO)%NV:1:VY[:XK%A$TCHCGOK;G%F[]-4W&?NQ.:2)EE"
^XMB(3.9,22,2,17715,0)="""DATA"",396.18,473,3,150,0)"
^XMB(3.9,22,2,17716,0)="M`NOB+$W94Z/'RJ$ZS0K5N!60T""3X8,S2_)"",:EP+2&@*&M-4+<W=DOL8R*JC"
^XMB(3.9,22,2,17717,0)="""DATA"",396.18,473,3,151,0)"
^XMB(3.9,22,2,17718,0)="MD3I-\8.2^P0,TRQ&#(W[':9FZ?J\^V0*TWP4-K1DG::2?L%],H5J-&78T""?8"
^XMB(3.9,22,2,17719,0)="""DATA"",396.18,473,3,152,0)"
^XMB(3.9,22,2,17720,0)="MVX29;Z,5]XD1KLF1`4G!G'9BY?.#""?<^B&D6R75XQEJ:_YL..%U,'-7H)#U5"
^XMB(3.9,22,2,17721,0)="""DATA"",396.18,473,3,153,0)"
^XMB(3.9,22,2,17722,0)="M;F8LC7$TYCJP99J7(V:KFZG3N)@XYN#MBIJ95-/\NYCKQ`C+ZUT)<Q9VP=+0"
^XMB(3.9,22,2,17723,0)="""DATA"",396.18,473,3,154,0)"
^XMB(3.9,22,2,17724,0)="M:U0C[IIHV)P_J6EH6LIA=\U,V.P82I:F2#N4D$?=""<^+!""];&F+S=>6B5QV]"
^XMB(3.9,22,2,17725,0)="""DATA"",396.18,473,3,155,0)"
^XMB(3.9,22,2,17726,0)="M*2)?L33DDZ(R4?#0[!495[8T$:IQ+B"";YHXPVYII\+207O"".&ZLIM`9I9O>J"
^XMB(3.9,22,2,17727,0)="""DATA"",396.18,473,3,156,0)"
^XMB(3.9,22,2,17728,0)="MAZI>&MI:-%&*FED\6EC&YZMIZ$6+$7_?,LS_T\SN]>9M?\T<3QC3T-(,STCX"
^XMB(3.9,22,2,17729,0)="""DATA"",396.18,473,3,157,0)"
^XMB(3.9,22,2,17730,0)="MR@E^I\T<0Y,QJE;T\^.CK`91S?\>HT$0S5S!9[P09IF@T:DGVK'2X<G)A,^X"
^XMB(3.9,22,2,17731,0)="""DATA"",396.18,473,3,158,0)"
^XMB(3.9,22,2,17732,0)="M9)KIB$9_@8=@*#?\-#1!2H%HRAD22]K@WOW03Z.3E,]%-&*(""GSH;;SEEQZC"
^XMB(3.9,22,2,17733,0)="""DATA"",396.18,473,3,159,0)"
^XMB(3.9,22,2,17734,0)="M&J(-0#'8C!TSX#^<\QV?TK#IYJB8:<""+]_S'SJP%*&$V>RFI87FLS9BO2""!%"
^XMB(3.9,22,2,17735,0)="""DATA"",396.18,473,3,160,0)"
^XMB(3.9,22,2,17736,0)="MO_20W(Z9=937:4U""0[M(IE%B]?/@7G,U""JL'MGE+?<9/0W(@0>N!8EE0;=%7"
^XMB(3.9,22,2,17737,0)="""DATA"",396.18,473,3,161,0)"
^XMB(3.9,22,2,17738,0)="M4U64`5*FM>E1W5]#8D6)-L[K>VJ,.847D'T*V$]#1('FR6L3W]!`\X!I]!8T"
^XMB(3.9,22,2,17739,0)="""DATA"",396.18,473,3,162,0)"
^XMB(3.9,22,2,17740,0)="MQ@.F*;>@*1:"":SYH0?-A`IH/$['@>7TCN(TO7K\7O.[HP37,CPNJJ4;7H""TX"
^XMB(3.9,22,2,17741,0)="""DATA"",396.18,473,3,163,0)"
^XMB(3.9,22,2,17742,0)="M;UWOXUO7.^C6]?!'BMB[OM/:N_Z[V+L.#3300`,---!``PTTT$`##3300`,-"
^XMB(3.9,22,2,17743,0)="""DATA"",396.18,473,3,164,0)"
^XMB(3.9,22,2,17744,0)="M--!``PTTT$`##32;6:,91ZO7EO]F?Z6R<&__>\OW$A*:XM$=UZ_-%?=72N'O"
^XMB(3.9,22,2,17745,0)="""DATA"",396.18,473,3,165,0)"
^XMB(3.9,22,2,17746,0)="M=.Z>6XA):.:Z=UP?^.#%_97YW6^?[)T^):-9Z-*O#;Q]<G_E0_*W]W>E-#/O"
^XMB(3.9,22,2,17747,0)="""DATA"",396.18,473,3,166,0)"
^XMB(3.9,22,2,17748,0)="M[KC6/?/'^ROO#+S=V;M/3J/MF.J>*>XO[QIX1UYS]XUWW]&'RYT#,Q^2N""6D"
^XMB(3.9,22,2,17749,0)="""DATA"",396.18,473,3,167,0)"
^XMB(3.9,22,2,17750,0)="M-&_O?NN#D>%R>'?'BZ&WCDEI_MV.\%MSQ>%**=2Q)30GM;]HX9W$K%$IERJE"
^XMB(3.9,22,2,17751,0)="""DATA"",396.18,473,3,168,0)"
^XMB(3.9,22,2,17752,0)="MA9DG$B7G99F-Y1-CRTA*Y;`Q4^V5JSMTX1_31(Q%0U+C<\`(VJFGQF\_N8-&"
^XMB(3.9,22,2,17753,0)="""DATA"",396.18,473,3,169,0)"
^XMB(3.9,22,2,17754,0)="M]]K'YJ(I*DHHJ.:FYT8I1PU=<>^WV[UI?SB]1C28ABV/NA5,PT[>*072\$7&"
^XMB(3.9,22,2,17755,0)="""DATA"",396.18,473,3,170,0)"
^XMB(3.9,22,2,17756,0)="M6B2(9IIODE!B\AJM@R6_JBC77Y/5%,5""FN_7KYKTT)`?BKU_,\O3GE6HMB>)"
^XMB(3.9,22,2,17757,0)="""DATA"",396.18,473,3,171,0)"
^XMB(3.9,22,2,17758,0)="MU!JQ#G/!,#Z?COAK=""6JQX1]*K%$^=O>N7#M#2NEZ9""?1F=[[\4;OBO'_4+F"
^XMB(3.9,22,2,17759,0)="""DATA"",396.18,473,3,172,0)"
^XMB(3.9,22,2,17760,0)="MWIJ0]6-1@S3%;^\37\)<L=540P_[:'B8RZ)%\*SPV<<DVDR]1O/6""+M;KW'="
^XMB(3.9,22,2,17761,0)="""DATA"",396.18,473,3,173,0)"
^XMB(3.9,22,2,17762,0)="M>5JW(='4B!_'/#6E.HWYXQE/C3@UQUQ/-6O8/W71B!`7ZS4E3\ULO6:F/JK."
^XMB(3.9,22,2,17763,0)="""DATA"",396.18,473,3,174,0)"
^XMB(3.9,22,2,17764,0)="MFIBC9L53DW"",F^:E,3/WTWJ-[JDI.%['K;MWU-RLJP_.&GV5&EJ-?BBC,6H:"
^XMB(3.9,22,2,17765,0)="""DATA"",396.18,473,3,175,0)"
^XMB(3.9,22,2,17766,0)="MVCS_/^]*6J>Y31LY:6I_'D!#5_EW*X;QD;RF^E42M6O$5Q(:0TZCA34M'$AS"
^XMB(3.9,22,2,17767,0)="""DATA"",396.18,473,3,176,0)"
^XMB(3.9,22,2,17768,0)="MV2C&-$,I_'D@#=V%48Q):42:""\1WTPP]%$3SU6FV$V5ZGX3&+/""G^*Z%LOD0"
^XMB(3.9,22,2,17769,0)="""DATA"",396.18,473,3,177,0)"
^XMB(3.9,22,2,17770,0)="M+0E-M2=B6+M7_,K'O([""75)#G#GCJ1&1T$.B<4Y'_>NHL`=LOP;5_'%(0L--"
^XMB(3.9,22,2,17771,0)="""DATA"",396.18,473,3,178,0)"
^XMB(3.9,22,2,17772,0)="M_/01H;G-G7AOS2T>M7>%9L:VF])5PS;\E:-WA6:V&O*U.WS_VW2""KE#66/)8"
^XMB(3.9,22,2,17773,0)="""DATA"",396.18,473,3,179,0)"
^XMB(3.9,22,2,17774,0)="MSJWX]@LDUXJ)SY@FP3;,^-A1M@LK:I1C?RLTK%B];3SU=HE/J9TR-6PWC_>>"
^XMB(3.9,22,2,17775,0)="""DATA"",396.18,473,3,180,0)"
^XMB(3.9,22,2,17776,0)="M6#W!NES]TBZZ>X66/W'(?/;>DJ^+=,?80'16XQO42.1<-V[KIK6E3E'U-Q9G"
^XMB(3.9,22,2,17777,0)="""DATA"",396.18,473,3,181,0)"
^XMB(3.9,22,2,17778,0)="M-.NDHSL^??T]Y@V0@E_0Q#9\?Y_B,[[W-F'<,S55=V_,W$NL7.::$M'\).'M"
^XMB(3.9,22,2,17779,0)="""DATA"",396.18,473,3,182,0)"
^XMB(3.9,22,2,17780,0)="M89H^4FB):RI$\V&!A>+GNQ25'JXI#QC&.P7F`2D^&H7[>+.&UFT8NPJL/YGS"
^XMB(3.9,22,2,17781,0)="""DATA"",396.18,473,3,183,0)"
^XMB(3.9,22,2,17782,0)="M+A]B.^>BO(.;-O2C?`3@M@W0K*,QOA5REL9)NRZ\)L53HXCVL$BK:Y%^1A?["
^XMB(3.9,22,2,17783,0)="""DATA"",396.18,473,3,184,0)"
^XMB(3.9,22,2,17784,0)="MNQU]H(NH\8;SU_2?>?K9M.&S1U&+\7IJ_)38T>4H;6OLYR'M:,Q9$[FE?6;P"
^XMB(3.9,22,2,17785,0)="""DATA"",396.18,473,3,185,0)"
^XMB(3.9,22,2,17786,0)="ME>#+).7EQ`IMY\SA*7<[:ZKA,&^1)#K+<W3_^7]G6<7*>S/.FN%>[KR2@?U*"
^XMB(3.9,22,2,17787,0)="""DATA"",396.18,473,3,186,0)"
^XMB(3.9,22,2,17788,0)="M,:2Q;8K<P""66O^NBR?6*\\3H.1MS&K4Y<WR`DJB\M^BLN73$K,D)_=JW2'^Z"
^XMB(3.9,22,2,17789,0)="""DATA"",396.18,473,3,187,0)"
^XMB(3.9,22,2,17790,0)="M*$I&+VA[G35&YQ&><23T:B*J_1DQB<(6NVJJ5!,5`RR2;WHB-BTJ;L$K;F(("
^XMB(3.9,22,2,17791,0)="""DATA"",396.18,473,3,188,0)"
^XMB(3.9,22,2,17792,0)="M-QV9IT7[?-AT[KWR392XIM`^>,4<IRL%4CX)M_(1>4M$45)WQ'YZTKJUH_NB"
^XMB(3.9,22,2,17793,0)="""DATA"",396.18,473,3,189,0)"
^XMB(3.9,22,2,17794,0)="M+O5@5C.KL!9>T79%S/&-X;C5CN^-CFB6P:AH>E?,O*CAN*6/:R[K^\WW*YIU"
^XMB(3.9,22,2,17795,0)="""DATA"",396.18,473,3,190,0)"
^XMB(3.9,22,2,17796,0)="M3;9_T&'K(-^W;=-H*Y7:$-=P'N6SZYS2W[#>3Y7J-&[MIQK5K2ZM.E7K0;S;"
^XMB(3.9,22,2,17797,0)="""DATA"",396.18,473,3,191,0)"
^XMB(3.9,22,2,17798,0)="M=DUC'+$27=WK8Q,M0WOD8TMSQ$=C%?=[L]97_YFWIM8_3;]?-]'A-0ZVJDAM"
^XMB(3.9,22,2,17799,0)="""DATA"",396.18,473,3,192,0)"
^XMB(3.9,22,2,17800,0)="M3E#S&SM;15<;8?J>F6%M@ZXY!;YG<\PW:TI^FJ5FS;R?IMRLN>VGL68@:QK?"
^XMB(3.9,22,2,17801,0)="""DATA"",396.18,473,3,193,0)"
^XMB(3.9,22,2,17802,0)="M<U""L0JUI_/K36J%:&O>#GO3&F%1\JT%-<[OQ.IJ_9KY14_:?WUEJU""SY:\J-"
^XMB(3.9,22,2,17803,0)="""DATA"",396.18,473,3,194,0)"
^XMB(3.9,22,2,17804,0)="MFGE_C6D\K3R0.!/(-##F=:H29P^9OZDTA.$Y+W:K7J-)S:W7:Z3.>1+N9Z7^"
^XMB(3.9,22,2,17805,0)="""DATA"",396.18,473,3,195,0)"
^XMB(3.9,22,2,17806,0)="MLCYSZ[$Z341&(S+!G+.2.ULM;-=(GE$Y9]<4""U(:?E)5I6[:P4_#.WQQ$'Q$"
^XMB(3.9,22,2,17807,0)="""DATA"",396.18,473,3,196,0)"
^XMB(3.9,22,2,17808,0)="M3L,..A`:+2HYISI=TQ03TO.PEF9:>K[7/-'#8RZQ4<,&5]R5BTK/15,OG$^H"
^XMB(3.9,22,2,17809,0)="""DATA"",396.18,473,3,197,0)"
^XMB(3.9,22,2,17810,0)="M%J0U=""#,3AL)R<]YTY-0*[7QMMQ\?#'$S@+RN9?1<*]`""57XM)""\AATLX'V0"
^XMB(3.9,22,2,17811,0)="""DATA"",396.18,473,3,198,0)"
^XMB(3.9,22,2,17812,0)="MK.%PO@(AT+P_%_E)FN?_*H8!S0.F,1XPS7P+FILM:-YK0=,-C;'W3@OE\\,6"
^XMB(3.9,22,2,17813,0)="""DATA"",396.18,473,3,199,0)"
^XMB(3.9,22,2,17814,0)="M-&\'U]R[ZZ^A>]?/)""^I8V+O.GM]Y""#;NQ[>'V*;UW\A)#:O_S-%;%[OV!DY"
^XMB(3.9,22,2,17815,0)="""DATA"",396.18,473,3,200,0)"
^XMB(3.9,22,2,17816,0)="MGIS(IS+ISB?/)/-J-CD6OY#))^DGS\5[XOE,?*`G/J)>SJIJSOD2A_@E,OP2"
^XMB(3.9,22,2,17817,0)="""DATA"",396.18,473,3,201,0)"
^XMB(3.9,22,2,17818,0)="M?VCNC_\=ATO$S4N<'%.OU:YPX&#3%7;9KM#;T\,O\9L*N\0?F)?XITZ7.)G)"
^XMB(3.9,22,2,17819,0)="""DATA"",396.18,473,3,202,0)"
^XMB(3.9,22,2,17820,0)="MOIG,C@2]Q`';\^G#_Z>X0L>-Y@M\^<2UO)K..0>M*$/G3_9T#IU/IJU<8J]["
^XMB(3.9,22,2,17821,0)="""DATA"",396.18,473,3,203,0)"
^XMB(3.9,22,2,17822,0)="M^WGXOTC#[]@B$O!>AWF&P.^'MKR42N<[MYX_=_Z5\]N/J5?5L=/IM)J-=%VZ"
^XMB(3.9,22,2,17823,0)="""DATA"",396.18,473,3,204,0)"
^XMB(3.9,22,2,17824,0)="M>B&9RJDCCQS+9$?4[&!^:DPEG^8&4^G+8^K6XYFQ#/G5\-A@:NRJFMUQ,I/."
^XMB(3.9,22,2,17825,0)="""DATA"",396.18,473,3,205,0)"
^XMB(3.9,22,2,17826,0)="M/WO\2C*;4_.1Z(LG3K[PRIFAUXZ_],*%P1-#V_FW3!(9'CLVEAQ^_1'VF4CG"
^XMB(3.9,22,2,17827,0)="""DATA"",396.18,473,3,206,0)"
^XMB(3.9,22,2,17828,0)="MWVUC[UY.CJN=.\\.Q@>3Z5Q\4,VF1KF47?T19?OY9%9-Y^E'75U#R4OG:,PZ"
^XMB(3.9,22,2,17829,0)="""DATA"",396.18,473,3,207,0)"
^XMB(3.9,22,2,17830,0)="M.ARS=N`P+[WW6>EU=(JTGS#/3^AXU,K;KP].I-+J<_&7,]EQ4DN&KF2RR>',"
^XMB(3.9,22,2,17831,0)="""DATA"",396.18,473,3,208,0)"
^XMB(3.9,22,2,17832,0)="MV.3XI60V?B&9OJS&,Z/QLQGZXU4F=%DJH9VCN6.9L9&Z]++#'2;S^4Q:))._"
^XMB(3.9,22,2,17833,0)="""DATA"",396.18,473,3,209,0)"
^XMB(3.9,22,2,17834,0)="M.<AK4/AKO!W\IFAJ';]J)O-+5C*W'A_+Y-1:OBF1<^GC8ZGAUR./7>.!G5))"
^XMB(3.9,22,2,17835,0)="""DATA"",396.18,473,3,210,0)"
^XMB(3.9,22,2,17836,0)="MT:>&V8>*LFWH5#8S.7$L<^U1?D7S;;^HM?M9SNX1.7O!JE7Y4.TB(>?""&>`A"
^XMB(3.9,22,2,17837,0)="""DATA"",396.18,473,3,211,0)"
^XMB(3.9,22,2,17838,0)="M#+)(?]Y""X^WO\6Q9?6;Q""_OPKY063%#]-=BI'#ML)W0<LK5=JWZ]8)W/\2G."
^XMB(3.9,22,2,17839,0)="""DATA"",396.18,473,3,212,0)"
^XMB(3.9,22,2,17840,0)="MYX`&&FB@@08::*!QU<P$UU3#+6CVMQ""WBJQ&""T<&;G0<F;MQ]%1HWWRY:T?/"
^XMB(3.9,22,2,17841,0)="""DATA"",396.18,473,3,213,0)"
^XMB(3.9,22,2,17842,0)="M&\7]%:WX8?^M=PINFH[PP/7.(],W!DX*3>_<<$6;N]0?<M=4WQS03QYY^\;`"
^XMB(3.9,22,2,17843,0)="""DATA"",396.18,473,3,214,0)"
^XMB(3.9,22,2,17844,0)="M!\E]B\LK;P_W?D`T'Q5SW>X:O3""@CQ[YW1L]'[Q!--K;ERL?$LU,>7G`0Q,>"
^XMB(3.9,22,2,17845,0)="""DATA"",396.18,473,3,215,0)"
^XMB(3.9,22,2,17846,0)="MJ'82S9-<L^/B[B+13%_SU`P/&-\AFA#35'=<WJT-E[O?GO#25(=)>GK?OJ%\"
^XMB(3.9,22,2,17847,0)="""DATA"",396.18,473,3,216,0)"
^XMB(3.9,22,2,17848,0)="M^&0W2T_/BT1S]V*N^VUW3:=RHS,T?>/HR9!R:UGKZNF)TWS[2?_-:5>-L4LI"
^XMB(3.9,22,2,17849,0)="""DATA"",396.18,473,3,217,0)"
^XMB(3.9,22,2,17850,0)="M[`JS\ME]:UGO'LCVE""K:TH?]\].N9<IG=?0;RH(16UQF=P!+Y2['!58VC1)4"
^XMB(3.9,22,2,17851,0)="""DATA"",396.18,473,3,218,0)"
^XMB(3.9,22,2,17852,0)="M`WL`#33KK*E;B7A[$VMFUDD373N-L5X:V^^JLIJ9U6FL&_6+\AHM%EQCW=GV"
^XMB(3.9,22,2,17853,0)="""DATA"",396.18,473,3,219,0)"
^XMB(3.9,22,2,17854,0)="MT[`Z]CE[.2VK6;!\';ZD59?5%/E]`*JA""S`69#1SM>O(:UB_SA;_2&MXZME2"
^XMB(3.9,22,2,17855,0)="""DATA"",396.18,473,3,220,0)"
^XMB(3.9,22,2,17856,0)="M'^U-MYMA#1J^.)>M/Y'55'?7:TH^&OJ]WCL37//&[9HFY[;FIUZCO;%@M5FJ"
^XMB(3.9,22,2,17857,0)="""DATA"",396.18,473,3,221,0)"
^XMB(3.9,22,2,17858,0)="MD;E.N5*JT\A<IU)9JM-4)#1+E4I-\X:<9KY2MFR#K&:API<&T7:J3?EK:$IF"
^XMB(3.9,22,2,17859,0)="""DATA"",396.18,473,3,222,0)"
^XMB(3.9,22,2,17860,0)="M*GH@#?T^6N&KRF@IT6>;E?TUU5B%FU.JT24T9;:8EYNY>7F-3C2LPMV1U-""%"
^XMB(3.9,22,2,17861,0)="""DATA"",396.18,473,3,223,0)"
^XMB(3.9,22,2,17862,0)="M](4*-R45H=$D-.3'\^*:[*E&$IHRT;`*QQXI>;W@LI""K3K-$-%:%H\O0_30D"
^XMB(3.9,22,2,17863,0)="""DATA"",396.18,473,3,224,0)"
^XMB(3.9,22,2,17864,0)="M[!+1E,U.HDHTNK]F@3Z;C;V)2&MN4TV!+G>_134)ER=@U6FB1$-_MD@+J+KO"
^XMB(3.9,22,2,17865,0)="""DATA"",396.18,473,3,225,0)"
^XMB(3.9,22,2,17866,0)="M'[JL3ZS3Q(B&)G^!VN#J$X_Y:Q)5JJ%M9YG%\(FPA$9G*X2B=#T?M3QTG;._"
^XMB(3.9,22,2,17867,0)="""DATA"",396.18,473,3,226,0)"
^XMB(3.9,22,2,17868,0)="MID`UM]F'1$F?""!7STVA,0ZQ5E2G?B?EJJK$RJYSS[$/R]YV$A&;)?&):E25L"
^XMB(3.9,22,2,17869,0)="""DATA"",396.18,473,3,227,0)"
^XMB(3.9,22,2,17870,0)="MAXRFQ#059G>T0K6KX/($7+MFWGK*VBS-D6XWI\SFPT9O&^93UCZFJ7M#1C/#"
^XMB(3.9,22,2,17871,0)="""DATA"",396.18,473,3,228,0)"
^XMB(3.9,22,2,17872,0)="M-+1>DOYZYLZRC"";*C0^K<,9<I""2AF8D)@\7V%!2C]]R<69N&E@?/-./G(:,<"
^XMB(3.9,22,2,17873,0)="""DATA"",396.18,473,3,229,0)"
^XMB(3.9,22,2,17874,0)="M79#0?+O`-3/,M]`3""X9+9V]?SR@T""\+P+,IHA&&;%X9G1D)S1VBHY:'K&64T"
^XMB(3.9,22,2,17875,0)="""DATA"",396.18,473,3,230,0)"
^XMB(3.9,22,2,17876,0)="M2T)3$<[%C.'B5#A<AUDK)<+J6DE2PPWA-*O3?IIIT[@S33DFH^DR-=RWZHA)"
^XMB(3.9,22,2,17877,0)="""DATA"",396.18,473,3,231,0)"
^XMB(3.9,22,2,17878,0)="MY$&WT(B1`UO1YZ.IFAK1..<D-&P[4J4V""BC*:*Z;&EXQ-0F-5A7U6OR0V5""?"
^XMB(3.9,22,2,17879,0)="""DATA"",396.18,473,3,232,0)"
^XMB(3.9,22,2,17880,0)="M]E.V-""*#""_Z:)2,F-$L^`SN[OQ,5FK*T9M[2:-(:]OAKKBG(:F9H?E4,HVXE"
^XMB(3.9,22,2,17881,0)="""DATA"",396.18,473,3,233,0)"
^XMB(3.9,22,2,17882,0)="M?=1O/&=J;#U5S&]\6C(U,4D-J<VFIO;+JH^F8""R9FJBDAG=RE?JI`!]-V:AI"
^XMB(3.9,22,2,17883,0)="""DATA"",396.18,473,3,234,0)"
^XMB(3.9,22,2,17884,0)="M%B0U%5:6%<.PMV@?S9(9/7N%\]',LX7A%:.NPOEH%EC+K!AU%<Y'0_+JCJ4I"
^XMB(3.9,22,2,17885,0)="""DATA"",396.18,473,3,235,0)"
^XMB(3.9,22,2,17886,0)="MR&E(F2R8&LL%\];0;V_/BIG:JJ0FP3IA;@^LGWK[530ZL06N6;8JC[>&)+M*"
^XMB(3.9,22,2,17887,0)="""DATA"",396.18,473,3,236,0)"
^XMB(3.9,22,2,17888,0)="M>D,6MQ6KJ?EHZ`[7DFAS5N7QUM#1@JFI%N:E-+3J&.4""S^M$24K#_"",MP?-Z"
^XMB(3.9,22,2,17889,0)="""DATA"",396.18,473,3,237,0)"
^XMB(3.9,22,2,17890,0)="MUAQ?>3Z#DJ9@F8UEV)1&64ISF[:`JKC./;/R>&NBK-7$N*9B5AYO#?/$C46N"
^XMB(3.9,22,2,17891,0)="""DATA"",396.18,473,3,238,0)"
^XMB(3.9,22,2,17892,0)="MT:LR&EI;9NBI+OS=\S$)#8T,T=P6=Q-FHQ)Y3<TM""7M>:!9F)#1\![JQ)#3W"
^XMB(3.9,22,2,17893,0)="""DATA"",396.18,473,3,239,0)"
^XMB(3.9,22,2,17894,0)="M;DMHRL(_%)K*O(RFP+XW-=HM""0W=4$PU.?%I2$(S%V;9\.UA<5E%0O.APC3O"
^XMB(3.9,22,2,17895,0)="""DATA"",396.18,473,3,240,0)"
^XMB(3.9,22,2,17896,0)="MB'N-TXJ$/7A'H2,98Q?75,WC>CPU427""LMO<MSJ0\-?$A.:6T)B5QT-334PG"
^XMB(3.9,22,2,17897,0)="""DATA"",396.18,473,3,241,0)"
^XMB(3.9,22,2,17898,0)="MV/R!*!>E$/'5Z$3#A@IBH;(B-AQY]=M:82[*-'QWE:Z8&VP\?'_-N!-9XL\4"
^XMB(3.9,22,2,17899,0)="""DATA"",396.18,473,3,242,0)"
^XMB(3.9,22,2,17900,0)="M96^?-#Y(F&;""35,V2C=+M5.UBDEC?L;RA5TT2T:I.,SV!K/@;RX;2_RLFZ*["
^XMB(3.9,22,2,17901,0)="""DATA"",396.18,473,3,243,0)"
^XMB(3.9,22,2,17902,0)="MIF0LTU,5/M>X)KQL5,R]1I^Z:>:-93TBZBJ=(O[,*',SHNT+N6EH]K#<91N%"
^XMB(3.9,22,2,17903,0)="""DATA"",396.18,473,3,244,0)"
^XMB(3.9,22,2,17904,0)="MZ(8K8:UH""INV@]7.WF&W/$L1,:@QCP91M%C3:4RU<S/HXTX-MATG9&L%TY'."
^XMB(3.9,22,2,17905,0)="""DATA"",396.18,473,3,245,0)"
^XMB(3.9,22,2,17906,0)="M#L5)PZKBCC#=DA,2VZ#,VEFDD2LX:%AZHXHH5+XS5B2"")JCJJ*$?QNCNIR+Y"
^XMB(3.9,22,2,17907,0)="""DATA"",396.18,473,3,246,0)"
^XMB(3.9,22,2,17908,0)="MA5+G54XKAQM;A&[Y`U&ZZZFD),33A<V:1LI9Z2PT:\H\8#(>*Y6?%SN,+-^J"
^XMB(3.9,22,2,17909,0)="""DATA"",396.18,473,3,247,0)"
^XMB(3.9,22,2,17910,0)="M')EK.*)!MV;';].(E73S3#;+MRIW*O%PLV:)5\>J_;&JEF]%6O""N4+-F7E1'"
^XMB(3.9,22,2,17911,0)="""DATA"",396.18,473,3,248,0)"
^XMB(3.9,22,2,17912,0)="MDK'6T6]6]TCB.G8TT:19$*:49)+RS5I'+@HH(1ZP7:^9L6Y>E""R?2C,K3^'S"
^XMB(3.9,22,2,17913,0)="""DATA"",396.18,473,3,249,0)"
^XMB(3.9,22,2,17914,0)="MQNUW>JW\(DQC[M$4W:.N%*:,C^MW.NJU>C+'-.8N0%'AV.AKOGY'I5[[FFY-"
^XMB(3.9,22,2,17915,0)="""DATA"",396.18,473,3,250,0)"
^XMB(3.9,22,2,17916,0)="M+-4V7,;,CHG$_.?SC1I1!S7>=R_9AA>SAG;O,_)M^4\;-6;[BC!-V7[_Q-#H"
^XMB(3.9,22,2,17917,0)="""DATA"",396.18,473,3,251,0)"
^XMB(3.9,22,2,17918,0)="MN1VE/WN]46/^*F38GVY/""^#GO&&LU-=LW59\<P568R)&S;3%EA:9]/U&C9F"""
^XMB(3.9,22,2,17919,0)="""DATA"",396.18,473,3,252,0)"
^XMB(3.9,22,2,17920,0)="M<H)/?-LJSX(P<#]OU,S7;DF5:I>MT(,@2DLN&JO:A_A-!A[Y<IE4UY72^\Z:"
^XMB(3.9,22,2,17921,0)="""DATA"",396.18,473,3,253,0)"
^XMB(3.9,22,2,17922,0)="MV[69%]8""$F9C""QGZF^\;#4,\KJD]NSABFV/0E;*2,)MUDZ8V%`O9-1%ZOM^L"
^XMB(3.9,22,2,17923,0)="""DATA"",396.18,473,3,254,0)"
^XMB(3.9,22,2,17924,0)="M@[.DUW7H1=MZGW+,J%IMK9RHU]@F:.VGA5`S/.VFL0U[JZ%ZC580<=,:-;:W"
^XMB(3.9,22,2,17925,0)="""DATA"",396.18,473,3,255,0)"
^XMB(3.9,22,2,17926,0)="MTS4+<^>V+0J-&OM$?;$6N5OSMIN5C1K[#9N2=0O0N%VBTU9WG#7V>9]2V4I1"
^XMB(3.9,22,2,17927,0)="""DATA"",396.18,473,3,256,0)"
^XMB(3.9,22,2,17928,0)="ME$Z4AL4.Z)\W:.QML&28&S6K,5KO0E7Q18/F7IW&O)`6H_<K>PH.3EG#/?Z2"
^XMB(3.9,22,2,17929,0)="""DATA"",396.18,473,3,257,0)"
^XMB(3.9,22,2,17930,0)="M=>8.C]3SO^%<#^HU_*1"",\:SUPL2UQ%'%8K*/ON^3-S$R9.BLUYT&@CIU5BT"
^XMB(3.9,22,2,17931,0)="""DATA"",396.18,473,3,258,0)"
^XMB(3.9,22,2,17932,0)="M0:,K$6;9F:-M.+4%?5>D0<,>U1TR&[B31MMRJE%#NP?ZG/OGZ32V4SO5/KC<"
^XMB(3.9,22,2,17933,0)="""DATA"",396.18,473,3,259,0)"
^XMB(3.9,22,2,17934,0)="MI!'U?U_4J'9?=FJG'Y1<-)5N8JFGPX$TRV^17""M..VGVN6F,[Q(C5KZ8:)B."
^XMB(3.9,22,2,17935,0)="""DATA"",396.18,473,3,260,0)"
^XMB(3.9,22,2,17936,0)="MHIH=KIJ]""_3.:ZQAVHN6SUVW/*@>6:!GH\PT3*_1?-MQRDM3??ZUAFD\YS(5"
^XMB(3.9,22,2,17937,0)="""DATA"",396.18,473,3,261,0)"
^XMB(3.9,22,2,17938,0)="MK'33FI/XY29?E@PKGTBXE$\WO9-Q>[[)9]9MJPT:--K1;CHLK#3-W1'-RJ*S"
^XMB(3.9,22,2,17939,0)="""DATA"",396.18,473,3,262,0)"
^XMB(3.9,22,2,17940,0)="M1K]QA%BW4K%I#.""A(=\0S1*[A1^5C!O_ILS:>JQ!H[MJJ!G5M\0:QW4.[;2!"
^XMB(3.9,22,2,17941,0)="""DATA"",396.18,473,3,263,0)"
^XMB(3.9,22,2,17942,0)="M:+CQ?`]_#9W&*AL!-=5PPP9;""0WQNL.!-9H2#:SQF,-?3\UR""QH#&IG=WDYG"
^XMB(3.9,22,2,17943,0)="""DATA"",396.18,473,3,264,0)"
^XMB(3.9,22,2,17944,0)="M10?6[&Y!TPV-T;W00E[?:J%,][90=UK0&""W$3:J2HFU#`TV;-8LM:&ZWH`D'"
^XMB(3.9,22,2,17945,0)="""DATA"",396.18,473,3,265,0)"
^XMB(3.9,22,2,17946,0)="MUU1;T.BA%C1*<(WVS4)@3?EN0EXC9FF6/HK):[A?;,PO^&@<=ZZ+,P-.LKWQ"
^XMB(3.9,22,2,17947,0)="""DATA"",396.18,473,3,266,0)"
^XMB(3.9,22,2,17948,0)="M'5UBZWJ'M77]7V#K.C300`,---!``PTTT$`##3300`,---!``PTTT$`##330"
^XMB(3.9,22,2,17949,0)="""DATA"",396.18,473,3,267,0)"
^XMB(3.9,22,2,17950,0)="M0`,---!L>LW<]8'RT7T7>]_^YL1>X_F>:]],=A]9\-,,=!>[=WR3:.)[C:,7"
^XMB(3.9,22,2,17951,0)="""DATA"",396.18,473,3,268,0)"
^XMB(3.9,22,2,17952,0)="M>Y3DHWO]-(M[WRJ]=_=D[]NG]A/-\.ZW+X?]-;O?TG=_<(IHGMQK#-S;_>W+"
^XMB(3.9,22,2,17953,0)="""DATA"",396.18,473,3,269,0)"
^XMB(3.9,22,2,17954,0)="MX>^Z:_0;!:KYK;?*7-.SU^B]MWO.4\.?[$HTQ3>8YFBWH=S;7?;4E+NC[Q/-"
^XMB(3.9,22,2,17955,0)="""DATA"",396.18,473,3,270,0)"
^XMB(3.9,22,2,17956,0)="MNV^%N^\2S;'^[H0RO/ONY7""W1WJ^.Q,AFGT#W4>/GNI[=.[:0.SY:Q<OWNF>"
^XMB(3.9,22,2,17957,0)="""DATA"",396.18,473,3,271,0)"
^XMB(3.9,22,2,17958,0)="MBKGL4""2:]Q9OBJUR=#$R#5PI5(Q[-,8NZVKTZM[%8J%1L\(U+L?9Z=4CBUJ"""
^XMB(3.9,22,2,17959,0)="""DATA"",396.18,473,3,272,0)"
^XMB(3.9,22,2,17960,0)="M'\-F:D)TEP_5:#&7N.V=<7TDG<LSY'2Z`<!MC>!-M_+9%S.?TM>(VS/D2)DF"
^XMB(3.9,22,2,17961,0)="""DATA"",396.18,473,3,273,0)"
^XMB(3.9,22,2,17962,0)="MZC?HU'!)#JUO%;<'S+D];UJG^_+*SI&82[AJ[A:*SHGMB+95\U'AIF-!U&\T"
^XMB(3.9,22,2,17963,0)="""DATA"",396.18,473,3,274,0)"
^XMB(3.9,22,2,17964,0)="MJ-=\4`@Y/C102[@_-KFHAQQK0M'M@=-LJUW8L0+?-%P>(\<>^1QV:BBD%K@\"
^XMB(3.9,22,2,17965,0)="""DATA"",396.18,473,3,275,0)"
^XMB(3.9,22,2,17966,0)="M$XYJYL).Q:?'#""7JI7&H)J1""34=<-7K$J3K.U6WL<M`X9,(MUZ?\L7R+&,W-"
^XMB(3.9,22,2,17967,0)="""DATA"",396.18,473,3,276,0)"
^XMB(3.9,22,2,17968,0)="M@5[YV^Z:\J)#':8I_,`]WRJ+1O-!9320C]S3L_2I@XFA.T,6W37S(LF-6>!V"
^XMB(3.9,22,2,17969,0)="""DATA"",396.18,473,3,277,0)"
^XMB(3.9,22,2,17970,0)="MQ*>U15%D@KE7AU]WQE5SN]:0K=VZ?-^(^]&1,S6#,6<^$9"";%?=C(*,UPQ0R"
^XMB(3.9,22,2,17971,0)="""DATA"",396.18,473,3,278,0)"
^XMB(3.9,22,2,17972,0)="M5[?QJ+H?M1BS#""#-<;YCB=>+I79JQ+;*HL@U5KKUSQAUT""2L5%LG*8FVX7ID"
^XMB(3.9,22,2,17973,0)="""DATA"",396.18,473,3,279,0)"
^XMB(3.9,22,2,17974,0)="MH+D!.""K2O%#K$5R/_S/WVH2%/:6_OVG(:6Z*MDPW#YI/W2ZX:,S`BM?YEFY-"
^XMB(3.9,22,2,17975,0)="""DATA"",396.18,473,3,280,0)"
^XMB(3.9,22,2,17976,0)="ML6R7KT:+[V,IJTXHBM@0[GJ4G]!,*PK?B%A-6-OS7(^8J)B2D(C*K!&>YA=R"
^XMB(3.9,22,2,17977,0)="""DATA"",396.18,473,3,281,0)"
^XMB(3.9,22,2,17978,0)="MU;#""I@]U+XMG7]\CYKO*ZVK,1<.W&!9J2V9+-+>+S5NK&C1\<Z8P6!5:.D46"
^XMB(3.9,22,2,17979,0)="""DATA"",396.18,473,3,282,0)"
^XMB(3.9,22,2,17980,0)="MNZB'AA_3:I8DBU8Y:K@?#;5@]>IFC>&A+WAK1)4LQFQMU""AY:X1%_(NHK8VR"
^XMB(3.9,22,2,17981,0)="""DATA"",396.18,473,3,283,0)"
^XMB(3.9,22,2,17982,0)="MAQ1[:$3;NL<S09AI<=:>FT;8BGO\E-LM!:L2N!TK-F-%89&E1#/W^,5D-+,L"
^XMB(3.9,22,2,17983,0)="""DATA"",396.18,473,3,284,0)"
^XMB(3.9,22,2,17984,0)="M+XH%H9EINT94D=DJ/V%"":!:E-*PFA$W-O?KMO_4:L\K/4H-%VJAX6_+4%$P-"
^XMB(3.9,22,2,17985,0)="""DATA"",396.18,473,3,285,0)"
^XMB(3.9,22,2,17986,0)="MR3C2$,3;93D-N4BQ8%YVV?WHNQG+5,S2Q-RTK,Z*I.9FM=;Q>VAFK4'=+#58"
^XMB(3.9,22,2,17987,0)="""DATA"",396.18,473,3,286,0)"
^XMB(3.9,22,2,17988,0)="M)`^?#*;1'B6).6)941=-4?$B]%!H:/F(?/J85&I:/D?J[)BG1C=$/9#2""*/Q"
^XMB(3.9,22,2,17989,0)="""DATA"",396.18,473,3,287,0)"
^XMB(3.9,22,2,17990,0)="M,:UOQ""8,!-`LTGI-_E^[CF^]UL]12THN5:L':Z*I9D3;EM+P1E:]+&S(8:M>"
^XMB(3.9,22,2,17991,0)="""DATA"",396.18,473,3,288,0)"
^XMB(3.9,22,2,17992,0)="MN]L0X;U4[S%;54[<]M4L6`WS,]:9:+':4^4]-,(9[;_)/;F8C$8,2]X3_4+-"
^XMB(3.9,22,2,17993,0)="""DATA"",396.18,473,3,289,0)"
^XMB(3.9,22,2,17994,0)="M5BWZ]B5OV0ZGY#;17S.76+3U<_2+&?<^N&QJ_E_3*Q-]B8=&[)J_.?L?62:$"
^XMB(3.9,22,2,17995,0)="""DATA"",396.18,473,3,290,0)"
^XMB(3.9,22,2,17996,0)="M+6?'0\,+2-M7?()E]L6""V:W&//P=]EWY^N<QFI3R-9:@B(^&I7U.YV?N%F]8"
^XMB(3.9,22,2,17997,0)="""DATA"",396.18,473,3,291,0)"
^XMB(3.9,22,2,17998,0)="M+JF7AM7%L""[.D2V$J>?GY5=1_XUF0C5:+;""""_Z`PQQ^I[JW10PLD,D1#>_VW"
^XMB(3.9,22,2,17999,0)="""DATA"",396.18,473,3,292,0)"
^XMB(3.9,22,2,18000,0)="MJ8_!#H!PU]!<FDO2CJ=@_(2\V4?3<L?3'V5?5)7""'7J8!JDWU6[J,T7\-:1B"
^XMB(3.9,22,2,18001,0)="""DATA"",396.18,473,3,293,0)"
^XMB(3.9,22,2,18002,0)="MAJF&C'NT`=H-\1(K>/K^VHXH.[3CIE$F;6V.SPYH1MLUK-7$:(VY0S3E>,%3"
^XMB(3.9,22,2,18003,0)="""DATA"",396.18,473,3,294,0)"
^XMB(3.9,22,2,18004,0)="M8QX#:XB3EV^O6.YLQ4=#O3;ZR.1[T66K:E=\QG-;2-P^3-"":0S1:R&<\Q\>-"
^XMB(3.9,22,2,18005,0)="""DATA"",396.18,473,3,295,0)"
^XMB(3.9,22,2,18006,0)="M3X2YH[BB?T8BRIO#O/>8MEP@D2O1&0-Z@F)(\QF?BG$P/3VS&F))F8O6CH]W"
^XMB(3.9,22,2,18007,0)="""DATA"",396.18,473,3,296,0)"
^XMB(3.9,22,2,18008,0)="MUI3X^%K;5=`J96,Z-FN8HZ89OW%]54EHUR+D][&RF++\U'V,7EG@X^NY""#4;"
^XMB(3.9,22,2,18009,0)="""DATA"",396.18,473,3,297,0)"
^XMB(3.9,22,2,18010,0)="MY4)B3OCT'O,'FO#*JPJSU-4;$6'D/DSXSX?,A6FB_YZ-%ZB1\YC;H/,NM_CH"
^XMB(3.9,22,2,18011,0)="""DATA"",396.18,473,3,298,0)"
^XMB(3.9,22,2,18012,0)="MCPYZQ%%($<]YE[\,FZ93)Z--[0EKU#!M>,XCF;%8,,H],7,2Q6,>J1BNS9Z6"
^XMB(3.9,22,2,18013,0)="""DATA"",396.18,473,3,299,0)"
^XMB(3.9,22,2,18014,0)="MS'U]U""8H[IJR[0R)9:.<J<V+><P]A6I'<VFU.G;3:RZM:IOGTVV'/AD>\WRM"
^XMB(3.9,22,2,18015,0)="""DATA"",396.18,473,3,300,0)"
^XMB(3.9,22,2,18016,0)="M:(Q0;?)6KYVL7GX^Y*&Y63NQKUJ8E9GK)!7[IDU32W=GU$-CG^^-U>K+=,Q#"
^XMB(3.9,22,2,18017,0)="""DATA"",396.18,473,3,301,0)"
^XMB(3.9,22,2,18018,0)="M8Y]-M#W$K%CPNDZA;AI18O[:<)LGU[W2X[;5-NQ1IF[S_G,>\[TN\7:;I]<-"
^XMB(3.9,22,2,18019,0)="""DATA"",396.18,473,3,302,0)"
^XMB(3.9,22,2,18020,0)="MC[,HJNYM(>)ZM^NF:__C_I""?HD^?Y9@@5XVKQ.7NW;K=!RQKP35S$X7`F@\N"
^XMB(3.9,22,2,18021,0)="""DATA"",396.18,473,3,303,0)"
^XMB(3.9,22,2,18022,0)="M)=9%\]%7@FNJ7PVNT2\'UVCW6M#\-+CF+UK(M[F+`[&@FF)Y:C:HIJ)5`FL<"
^XMB(3.9,22,2,18023,0)="""DATA"",396.18,473,3,304,0)"
^XMB(3.9,22,2,18024,0)="MMZX?M&]=#_^1TK1W_0^Q=QT::*""!!AIHH($&&FB@@08::*""!YO[5/#_R0M]H"
^XMB(3.9,22,2,18025,0)="""DATA"",396.18,473,3,305,0)"
^XMB(3.9,22,2,18026,0)="M0>OZRI8?_O93ER4UYTI??>K:E#YZ??$+65G--X>Y9LM=:4W'B_/[GRIHW:,C"
^XMB(3.9,22,2,18027,0)="""DATA"",396.18,473,3,306,0)"
^XMB(3.9,22,2,18028,0)="M/\SVR5[GXI_T7""RLK#RYI>NQSHBDYHWO#A2-E<J3;^_K?R<J&;<""O3FKQ>Y)"
^XMB(3.9,22,2,18029,0)="""DATA"",396.18,473,3,307,0)"
^XMB(3.9,22,2,18030,0)="M'*W=J/DL@`9U]#[2S+:@B?EJ5M@+V\,X_&:_B>8]KJG]\-[[LIJ""E18)S1_Q"
^XMB(3.9,22,2,18031,0)="""DATA"",396.18,473,3,308,0)"
^XMB(3.9,22,2,18032,0)="M5^(Z,RUH9J72\V\V1+.X9IH_J*LPGQ*9O^;VJC7$6'WDKYEI0?-IDZ;@JXG6"
^XMB(3.9,22,2,18033,0)="""DATA"",396.18,473,3,309,0)"
^XMB(3.9,22,2,18034,0)="M:4HM:.2N,VM5SE8U""U*:6*-F,7''3Y.HTRQ2S5PBJ&;A_85(4,V]]Q>*A<"":"
^XMB(3.9,22,2,18035,0)="""DATA"",396.18,473,3,310,0)"
^XMB(3.9,22,2,18036,0)="M&2WAJ3&-ATWS_83GB==.FL_F""BX[,!HUB]8_RW?<5F&9&M/Z+EJ76U[0""QXW"
^XMB(3.9,22,2,18037,0)="""DATA"",396.18,473,3,311,0)"
^XMB(3.9,22,2,18038,0)="MH1TU*S-$$0N@F67W[1->Y_KKUM/`;)H""N5K)2[/2K*%+<BK!-""MT095>\-`L"
^XMB(3.9,22,2,18039,0)="""DATA"",396.18,473,3,312,0)"
^XMB(3.9,22,2,18040,0)="M.U_'(^-<-/>\.CO=^,RP&HZI^=2[@]2MY;$+]NLLNZW#XII/FS1\[>6""AV;1"
^XMB(3.9,22,2,18041,0)="""DATA"",396.18,473,3,313,0)"
^XMB(3.9,22,2,18042,0)="M*3TEKR>QN&CFO5P_W?C8.:\]""K6VML>>!]7CAE76<IH5MH1#]]`D'#0T/8$U"
^XMB(3.9,22,2,18043,0)="""DATA"",396.18,473,3,314,0)"
^XMB(3.9,22,2,18044,0)="MY18TI(:Z5](F#6VGI$TE7![[ZZA9I!K=,+PTUE=V#?W0O3'4-(LVC=&*Q@BD"
^XMB(3.9,22,2,18045,0)="""DATA"",396.18,473,3,315,0)"
^XMB(3.9,22,2,18046,0)="M^91J[DEJ:K;W<_8ZF&:%YZ6TAJZE""JJA.YXT5F_EXW9GT>PK9#2\3=S^F%8V"
^XMB(3.9,22,2,18047,0)="""DATA"",396.18,473,3,316,0)"
^XMB(3.9,22,2,18048,0)="M^GMI335&--6CU%#)U!VFT=GRNJ.79PVO>FUI^-X\)HWUSWJV'TM#%Y]I(?80"
^XMB(3.9,22,2,18049,0)="""DATA"",396.18,473,3,317,0)"
^XMB(3.9,22,2,18050,0)="MS'=D-?T&?6`M*Y6[=-6^A*8ZP->!T[<?T%U6FH3F*%NLS]ZRQX=7_#7TN::W"
^XMB(3.9,22,2,18051,0)="""DATA"",396.18,473,3,318,0)"
^XMB(3.9,22,2,18052,0)="M1`ZSU:92FI!NEDJ9/Y7572.*6]?GKA5$J;!U=5[]@KB.QM=`\W6*MK;AI5GA"
^XMB(3.9,22,2,18053,0)="""DATA"",396.18,473,3,319,0)"
^XMB(3.9,22,2,18054,0)="MZ^PT<V#HL8+.LE6?\P:S8FEB$G:4)X5IZ.HY/2&E,<P<KA8^]2A2NZ9BTQC>"
^XMB(3.9,22,2,18055,0)="""DATA"",396.18,473,3,320,0)"
^XMB(3.9,22,2,18056,0)="M?H@U4%ZV_E03GWD]QTAO&%SS7C0Q[^5<Z@W;0.Z9X[1H8,WGWG[BIPZ:V+SN"
^XMB(3.9,22,2,18057,0)="""DATA"",396.18,473,3,321,0)"
^XMB(3.9,22,2,18058,0)="MZ8_6;^WAM2RVH!GR&A[3V&<53\VRD^9>*;!F=G'!D/$MZS2?S@37_'7,D/&O"
^XMB(3.9,22,2,18059,0)="""DATA"",396.18,473,3,322,0)"
^XMB(3.9,22,2,18060,0)="MZR9>_DIN7%*GT0O!-9K<.*MN@J<B-VZLTY3DQNAV$@L^&H<]48D9'XW#_K-$"
^XMB(3.9,22,2,18061,0)="""DATA"",396.18,473,3,323,0)"
^XMB(3.9,22,2,18062,0)="MS$?3'/>JKZ;9*:[>*$C-B]5IKOMIV/:`V@)$8H&KU_S&Z-1B?EJO><-/0RWS"
^XMB(3.9,22,2,18063,0)="""DATA"",396.18,473,3,324,0)"
^XMB(3.9,22,2,18064,0)="M7+UFV'=N,&K;W,)KWX*O9L&FX:9]QE=C>_ZWV%SAKRDW:6*^&M+`'C/?LZZT"
^XMB(3.9,22,2,18065,0)="""DATA"",396.18,473,3,325,0)"
^XMB(3.9,22,2,18066,0)="MFO#5V$?7Y<3S7FY_K:.*UMI=\8E]"";\)7?YX]UIDBOM.SWH,EVJ:I9KF@]B?"
^XMB(3.9,22,2,18067,0)="""DATA"",396.18,473,3,326,0)"
^XMB(3.9,22,2,18068,0)="MR&G*-3NB?7_;K-_,/]/H^VH:G6A*,O/*.RS-BD[BMB""C^;91IYF1T=36\U>J"
^XMB(3.9,22,2,18069,0)="""DATA"",396.18,473,3,327,0)"
^XMB(3.9,22,2,18070,0)="M^P8DYJ]I*G(U)^'Y[(V$C*82MO7UR]<+4II;-DUYPI#1+%L[+NCSJ9>D-""5K"
^XMB(3.9,22,2,18071,0)="""DATA"",396.18,473,3,328,0)"
^XMB(3.9,22,2,18072,0)="MQ\4]WU9J:98CMKY^1DJS8&V-6O1M<37-7]:FHO6$E&;1VO0QX[;YHDDS8QW0"
^XMB(3.9,22,2,18073,0)="""DATA"",396.18,473,3,329,0)"
^XMB(3.9,22,2,18074,0)="M-""OQ!$I+(_;^Q#R],+N&^GV*\-STF)R&_HQNL*/F9*X@IV%I4;CI#1M2&FX."
^XMB(3.9,22,2,18075,0)="""DATA"",396.18,473,3,330,0)"
^XMB(3.9,22,2,18076,0)="MZ.Y4O5`MR&J8!5`2AE8-&9*:`M,4E>BT$I'4Z%S#>B%#5F-:)WV_(:O1+(M6"
^XMB(3.9,22,2,18077,0)="""DATA"",396.18,473,3,331,0)"
^XMB(3.9,22,2,18078,0)="M:D&S(*U9:7`3930USVNF!4U,6K-<<W2D-:6ZX9F<QO+&Y/8:Z74YW(JF(J]9"
^XMB(3.9,22,2,18079,0)="""DATA"",396.18,473,3,332,0)"
^XMB(3.9,22,2,18080,0)="M-()4`ZZ9,7-N05YC]:`SP375F+PF)C1Z0EZ3$!JM(*VIFAJYK*Z?H9R7UUBU"
^XMB(3.9,22,2,18081,0)="""DATA"",396.18,473,3,333,0)"
^XMB(3.9,22,2,18082,0)="M['8+FF@`39TO*J<Q:V:Y$%RS9,AK*L&RP*ZI1@-HENUNLJ2FQ&5%(Z""FFM##"
^XMB(3.9,22,2,18083,0)="""DATA"",396.18,473,3,334,0)"
^XMB(3.9,22,2,18084,0)="M032DI2V7""W.QH)JYBR$CJ$918H$TU#N0Z=\:-+I2""*:AL2HF@FOTH!IJHMX/"
^XMB(3.9,22,2,18085,0)="""DATA"",396.18,473,3,335,0)"
^XMB(3.9,22,2,18086,0)="MI*GVT,ED(YA&22P&U>@3T5)@S;6)BX$U-Q+3A8`:S4@4'PMZ'>/CN5S0?"".U"
^XMB(3.9,22,2,18087,0)="""DATA"",396.18,473,3,336,0)"
^XMB(3.9,22,2,18088,0)="M9SF@IJZWE]/<B@;7_/97@VO>O6P$1#?^I@7-3UO0_*0%#<N#@)I;D>"":A=F8"
^XMB(3.9,22,2,18089,0)="""DATA"",396.18,473,3,337,0)"
^XMB(3.9,22,2,18090,0)="M=(]=JSOGY+LK2T.7*20"":F+!-70D$UACM*;YFQ8TY3>"":[2_""*XQ_JH%S5(+"
^XMB(3.9,22,2,18091,0)="""DATA"",396.18,473,3,338,0)"
^XMB(3.9,22,2,18092,0)="MFN46-)S/UTECK)-F#=-#]ZZ?25Y2QW;QO>OL==_``-^]_B\4MGO]0DCL7O^G"
^XMB(3.9,22,2,18093,0)="""DATA"",396.18,473,3,339,0)"
^XMB(3.9,22,2,18094,0)="MBMB]WK$S<CPYD4]ETIWQDYGLF\GL2/SDF'J-?/!<O"">>S\2/],1'U,M95<VY"
^XMB(3.9,22,2,18095,0)="""DATA"",396.18,473,3,340,0)"
^XMB(3.9,22,2,18096,0)="M7.)(W25>$Y?HN-%\A2^?N)97T[E:V/W>81\\T,_""[MC&@G[2C/TSYM[[CJ]:"
^XMB(3.9,22,2,18097,0)="""DATA"",396.18,473,3,341,0)"
^XMB(3.9,22,2,18098,0)="M8?_66369F\RJ\?R53#8YG!F;'+^4S,8OG#L;'\UFQN/)>""Z?3(^DTI?C$YE<"
^XMB(3.9,22,2,18099,0)="""DATA"",396.18,473,3,342,0)"
^XMB(3.9,22,2,18100,0)="MBFJ>B9,/XA/9S-74B!H?%:D?Y:F/9T9)4(W!Y292:36>S)'@)M.I_+/Q%S/Q"
^XMB(3.9,22,2,18101,0)="""DATA"",396.18,473,3,343,0)"
^XMB(3.9,22,2,18102,0)="M=""8?3Z6'QR9)(%=2$V8`SW:]FLF.O)I-3FQS21POFXY_R!+WJ)FX_^!0-/M?"
^XMB(3.9,22,2,18103,0)="""DATA"",396.18,473,3,344,0)"
^XMB(3.9,22,2,18104,0)="MSF3'DV,\-9FL4Z2>VW$RD\X_>_Q*,IM3\Y'HBR=.OO#*F:'7CK_TPH7!$T/;"
^XMB(3.9,22,2,18105,0)="""DATA"",396.18,473,3,345,0)"
^XMB(3.9,22,2,18106,0)="M^;>9L4PV$AD>.S:6''[]$?:9N-C?;6/O7DZ.JYT[SP[&!Y/I7'Q0S:9&N70P"
^XMB(3.9,22,2,18107,0)="""DATA"",396.18,473,3,346,0)"
^XMB(3.9,22,2,18108,0)="M/S6F/M(YFCN6&1M1MI]/9M5TGG[394^GH@R=/]G3.70^F5;'=O+4LM<'>WEB"
^XMB(3.9,22,2,18109,0)="""DATA"",396.18,473,3,347,0)"
^XMB(3.9,22,2,18110,0)="MWZ"")[3@DTOJ?K$,4G@IM>2F5SG=N/7_N_""OGMQ]3KZICI]-I-1OING3U0C*5"
^XMB(3.9,22,2,18111,0)="""DATA"",396.18,473,3,348,0)"
^XMB(3.9,22,2,18112,0)="M4T<>.4:NHV991,BGN4%2EF/J5IZFKN&QP=38536[+ME0G_ZAY*5S-&8=8:=R"
^XMB(3.9,22,2,18113,0)="""DATA"",396.18,473,3,349,0)"
^XMB(3.9,22,2,18114,0)="M[NT]P!O(3=9`.AX1:?^)5<Z/6N4<&V1%&7]9G<R2.%Y.#9-""/W$M.9Y*)^D/"
^XMB(3.9,22,2,18115,0)="""DATA"",396.18,473,3,350,0)"
^XMB(3.9,22,2,18116,0)="M5IFXY9;+V*K!.VTI.\!;?L<76;K^2Y&N1*BY_IZZH`[G25+46E+B7\L14Y#D"
^XMB(3.9,22,2,18117,0)="""DATA"",396.18,473,3,351,0)"
^XMB(3.9,22,2,18118,0)="M[3""?2:O/Q*]FQEB[)#\<)A<E.<!;:%:E34K-/?T<.UAC,D]^+G*8O^GKXSG\"
^XMB(3.9,22,2,18119,0)="""DATA"",396.18,473,3,352,0)"
^XMB(3.9,22,2,18120,0)="M?_`<?EK$9-K*X:]8,>D:)%?-9*?BM5(+1<ZECX^EAE^//':-AW=*)14O-<P^"
^XMB(3.9,22,2,18121,0)="""DATA"",396.18,473,3,353,0)"
^XMB(3.9,22,2,18122,0)="M=+LDMTSA5T+^E[P@XE^[9$<KE^P]:,]NKRMN/9O)9[*URRFM7.Z@2.'_P^UZ"
^XMB(3.9,22,2,18123,0)="""DATA"",396.18,473,3,354,0)"
^XMB(3.9,22,2,18124,0)="MAVG7?]6\WM[:]8Z/97)J[7I;?:ZW;>A4-C,Y<2QS[5%^1?-MWX`MB>%_:9ZU"
^XMB(3.9,22,2,18125,0)="""DATA"",396.18,473,3,355,0)"
^XMB(3.9,22,2,18126,0)="M,F=5J?^\=LV7SPV=V$""C9R5VBW.C/VCKN3J^(!+ROU@).6`F9`<]"".9X)CTR"
^XMB(3.9,22,2,18127,0)="""DATA"",396.18,473,3,356,0)"
^XMB(3.9,22,2,18128,0)="M.9PGO4K:WO+MS>7-*VJ:=#,CY(N\.A*_-,5Z)_(E[?-$7T5:S0AK0?%+*NWH"
^XMB(3.9,22,2,18129,0)="""DATA"",396.18,473,3,357,0)"
^XMB(3.9,22,2,18130,0)="MN%X=>5;8$-)SC=%0\UEUG/Q.S;'.9)Q6%M;0<J)MD-+,/4-^-ZQ.Y/F%TYGX"
^XMB(3.9,22,2,18131,0)="""DATA"",396.18,473,3,358,0)"
^XMB(3.9,22,2,18132,0)="ML)J]RF)%?CPY,:&:O5!J6/2*(\1()W-J/)4C?:I*PLH_$Q\>2Z;&U9%GJ""@W"
^XMB(3.9,22,2,18133,0)="""DATA"",396.18,473,3,359,0)"
^XMB(3.9,22,2,18134,0)="MF9L@9H!&YW2:B)/Y^##Y_3-UR10IX1>PQY2$2CO:M*J.T!`VP,S;N[FM0V?5"
^XMB(3.9,22,2,18135,0)="""DATA"",396.18,473,3,360,0)"
^XMB(3.9,22,2,18136,0)="M\8PX)HB^%$9>-,XK317WD.C>^OI[>H^L,O)_:XO\(\<SD]D4R:N7U3?KHK[S"
^XMB(3.9,22,2,18137,0)="""DATA"",396.18,473,3,361,0)"
^XMB(3.9,22,2,18138,0)="M#""F3''F7)34A%^I4ZA*S?7""85+.Q8R0&D>VYW*^IV3PM6WM7YMZ5]_""DQEA2"
^XMB(3.9,22,2,18139,0)="""DATA"",396.18,473,3,362,0)"
^XMB(3.9,22,2,18140,0)="MCXJDOM!A=N5?E.[*N4'IV/P=^Q:G[F]`].MW>*^S4V3$_^K0K^\5_3K-9_52"
^XMB(3.9,22,2,18141,0)="""DATA"",396.18,473,3,363,0)"
^XMB(3.9,22,2,18142,0)="MEC2BDZ3ET*:[@3VZL]7GA1O^3]SJ_U21M_H=+5M]82MWLGS\1J,?3'+4NN97"
^XMB(3.9,22,2,18143,0)="""DATA"",396.18,473,3,364,0)"
^XMB(3.9,22,2,18144,0)="M:CEX*3,R1<T*^9=9,I&A([9NSZG4CASF%]O%+O;+XF+O6(7V9>M:1\^KV6&2"
^XMB(3.9,22,2,18145,0)="""DATA"",396.18,473,3,365,0)"
^XMB(3.9,22,2,18146,0)="M7<G+S,!2HTC_O<)^1]R7/#'$S(""JR>$K/#I6))YV</[K8C%@BT7XM\V.[G<="
^XMB(3.9,22,2,18147,0)="""DATA"",396.18,473,3,366,0)"
^XMB(3.9,22,2,18148,0)="M?/\G?STS&1]/3A'[>8G8POCXY%@^-3&F6A=S'CL=$..RCO^*)712E./KS>E\"
^XMB(3.9,22,2,18149,0)="""DATA"",396.18,473,3,367,0)"
^XMB(3.9,22,2,18150,0)="MYA_$SY-02+WA%R#CLN3(2)RD/$LSEKRE%GEP<GP\F9VRIVO;T/',^*5,K4#-"
^XMB(3.9,22,2,18151,0)="""DATA"",396.18,473,3,368,0)"
^XMB(3.9,22,2,18152,0)="MM[U]]CS^DDC<;UF)^Z(P$+W]?;U'MI_.J^-FJFV%MY-^;C-@X>/Q7OJGC_[I"
^XMB(3.9,22,2,18153,0)="""DATA"",396.18,473,3,369,0)"
^XMB(3.9,22,2,18154,0)="MIW\.T#\'Z9]#],_ASO`0_<D0_<D0_<D0_<D0_<D0_<D0_\D`_7.D<POY<0_["
^XMB(3.9,22,2,18155,0)="""DATA"",396.18,473,3,370,0)"
^XMB(3.9,22,2,18156,0)="MV\O^$M$9*C\39Z_ZZ9\#],]!Q2NI_?:DGO=,ZH!+4D.-2=UZE$3MESK#[$\?"
^XMB(3.9,22,2,18157,0)="""DATA"",396.18,473,3,371,0)"
^XMB(3.9,22,2,18158,0)="M_=-/_QR@?P[2/X?HG\/DS];GX^0?Q:TQ]]HC-^G>E#MYT<NW98_&?(@;D'M*"
^XMB(3.9,22,2,18159,0)="""DATA"",396.18,473,3,372,0)"
^XMB(3.9,22,2,18160,0)="M76L^'7)HS4^+2D6;%?5,KMH;MTNC#C7WO76S!!V[Q16_85WQOU=JA=#7<Q]T"
^XMB(3.9,22,2,18161,0)="""DATA"",396.18,473,3,373,0)"
^XMB(3.9,22,2,18162,0)="MOHK'0+I7E.E+++''1&)/M-#[;N+^=JN3S3PD^MO_D=>L+2+I?^_0W^X7_>WI"
^XMB(3.9,22,2,18163,0)="""DATA"",396.18,473,3,374,0)"
^XMB(3.9,22,2,18164,0)="M=)YXK5:M>C&5&XX/3J5'LIEQ=7.-I0^);FDW2]LOB+09#F/IB3.I7)[W.:GT"
^XMB(3.9,22,2,18165,0)="""DATA"",396.18,473,3,375,0)"
^XMB(3.9,22,2,18166,0)="M<'*"">.""D)V+N_D0JEQDACO@DK7;,:D\DR6][^[XQ3BY\)4Y\ZE1FA+GZJ7R."
^XMB(3.9,22,2,18167,0)="""DATA"",396.18,473,3,376,0)"
^XMB(3.9,22,2,18168,0)="M_DX,Q5/I^$AR*O<TZ\XL1S^K7J93=7[S6/U]]JC?$%'_>:BYIYE<ZZC7SXLY"
^XMB(3.9,22,2,18169,0)="""DATA"",396.18,473,3,377,0)"
^XMB(3.9,22,2,18170,0)="MQ-_13(J)N/`*]WG^LLGGV=>RS]-DJ_H/V3/K&9%9^\SFV_$K-5/5<^#^,%7-"
^XMB(3.9,22,2,18171,0)="""DATA"",396.18,473,3,378,0)"
^XMB(3.9,22,2,18172,0)="M:;37Y?"",XIG(OOL@D2%W<VQ.XG:P\NP62?UKRQS_XP?!''<Z6:Q>,>^_G\^`"
^XMB(3.9,22,2,18173,0)="""DATA"",396.18,473,3,379,0)"
^XMB(3.9,22,2,18174,0)="MA46CN=YLC7<+:\S^B9]/IC;9/*9IP/A=AD_,YC_>;'OWV!P6/NDQ05+C-BUY"
^XMB(3.9,22,2,18175,0)="""DATA"",396.18,473,3,380,0)"
^XMB(3.9,22,2,18176,0)="M2+A""_P4_.O@_F@%_W0SX<;M=49.V&;LMK<S8'1!'%9_AUWLCU+ZQV_8AT48L"
^XMB(3.9,22,2,18177,0)="""DATA"",396.18,473,3,381,0)"
^XMB(3.9,22,2,18178,0)="M?\]Z+YRO2)VO_V.K`?R!LN>E3/9;5A-[=HA8Z-=)%=_V&&UHM<\O)-.7U?#O"
^XMB(3.9,22,2,18179,0)="""DATA"",396.18,473,3,382,0)"
^XMB(3.9,22,2,18180,0)="M*WOJ/[9^OOV%R7R&?][E,,;;8:^:/$IA%J4N$:7O.8VMSF2&>3]"".Y81TCME"
^XMB(3.9,22,2,18181,0)="""DATA"",396.18,473,3,383,0)"
^XMB(3.9,22,2,18182,0)="M4Y<FS8DH6K:.X1^VAR\F0#H2S<'O/)<F];LI*'O=.RA:D:;8(]MQNCFP1P>)"
^XMB(3.9,22,2,18183,0)="""DATA"",396.18,473,3,384,0)"
^XMB(3.9,22,2,18184,0)="M[<BF\E/>X8F^;*""C+KQ7FL/;?3*KOC&IIH>]`^P3$P)_SR,X*@+\5G.`OV!E"
^XMB(3.9,22,2,18185,0)="""DATA"",396.18,473,3,385,0)"
^XMB(3.9,22,2,18186,0)="M)@DOFQQ)\:Z=M9#(B73RTACQXQVOT2MFE#K9)28\;H3UO*CFAK.I""?M<87YJ"
^XMB(3.9,22,2,18187,0)="""DATA"",396.18,473,3,386,0)"
^XMB(3.9,22,2,18188,0)="M0C63P+P`VC*)^T):??(YY^OQ""A+^RY`]3>'_R^&""_\#C@L'2*.Y1O!NJ*YA?"
^XMB(3.9,22,2,18189,0)="""DATA"",396.18,473,3,387,0)"
^XMB(3.9,22,2,18190,0)="M=2CH%TWGQJM<Q,#3#,^<R/@=IQN[/`V72*1)]+,UYTF$;X]Y4V?>=\1>V?>("
^XMB(3.9,22,2,18191,0)="""DATA"",396.18,473,3,388,0)"
^XMB(3.9,22,2,18192,0)="MR_S4NLPOF7UY[\#!_OO483EXR)[&TZYI[.OOZ;D?)F^WVB<LHO43%H?K[,V>"
^XMB(3.9,22,2,18193,0)="""DATA"",396.18,473,3,389,0)"
^XMB(3.9,22,2,18194,0)="MIFI3F[#HZ9.>L-AR-C4VTMEUEKCPI&JIG9W,5JF*1SQZZ^R4=SSZ7.*QI6GB"
^XMB(3.9,22,2,18195,0)="""DATA"",396.18,473,3,390,0)"
^XMB(3.9,22,2,18196,0)="MY,5D:FRJ\PN]=-;J$!L8Q)/Q-U7U]<[=KY*_8U/T""S:B(#][G,626(I\:ERE"
^XMB(3.9,22,2,18197,0)="""DATA"",396.18,473,3,391,0)"
^XMB(3.9,22,2,18198,0)="M/YPB?7#G8TS<5__AX[]._HZQ^<8QE<T#YE72+I7HT/'SKYZ]0`Q!ADV`?$DD"
^XMB(3.9,22,2,18199,0)="""DATA"",396.18,473,3,392,0)"
^XMB(3.9,22,2,18200,0)="MLN[#WL-BY+K,,SW1.!>WWY;60]L'KV3>Y""YAUXY?F<SE4Z-3+)G;(O2?\\D1"
^XMB(3.9,22,2,18201,0)="""DATA"",396.18,473,3,393,0)"
^XMB(3.9,22,2,18202,0)="MFVOUA0O<!M4:<R)RG(Y_TKF.CC;65`^7L6F>[M?57&?'RQE77])AP%#?QTPV"
^XMB(3.9,22,2,18203,0)="""DATA"",396.18,473,3,394,0)"
^XMB(3.9,22,2,18204,0)="M-<`#M@PZ;%FK^Z`E.EG4_CKWY$938K]N69O>OOMA=!1Q2N/!NA[6O41I(GOO"
^XMB(3.9,22,2,18205,0)="""DATA"",396.18,473,3,395,0)"
^XMB(3.9,22,2,18206,0)="MIQ+=YF'3#M9UR>XVC23:==Z[H[$]1<ZFTI-YTJ:VOD12E.OLZOU&'[-LG5W]"
^XMB(3.9,22,2,18207,0)="""DATA"",396.18,473,3,396,0)"
^XMB(3.9,22,2,18208,0)="MWSC,7VVEQBW7V7F66C;RQ?%,FJYV(I<Z1WM\IS[OP(&ZR`J;%#YH3=L\92NA"
^XMB(3.9,22,2,18209,0)="""DATA"",396.18,473,3,397,0)"
^XMB(3.9,22,2,18210,0)="MGONIA,)NT^&'ZL='_T$),""$>""CS1,V`?5'YF3H+\J34)DK/=$>ZYO^\('ZA;"
^XMB(3.9,22,2,18211,0)="""DATA"",396.18,473,3,398,0)"
^XMB(3.9,22,2,18212,0)="MF6+>""/V!-0;\_H,P""1)Q7.=QI'[I48=(^R^'FJ=!GA;3(&R@2[OKLQG6<;^2"
^XMB(3.9,22,2,18213,0)="""DATA"",396.18,473,3,399,0)"
^XMB(3.9,22,2,18214,0)="MHT.(9/Q4)IW*C*OY52>S[3>%#XE!98@WG((YL7#,3.077""<RMK8TD=%?=Q/Z"
^XMB(3.9,22,2,18215,0)="""DATA"",396.18,473,3,400,0)"
^XMB(3.9,22,2,18216,0)="M-\SK_=<.#?6IAIF,EF9.Q``@_#_S4ORB*,5_I31?\!>'ZM>7UA>F_)HKVXS*"
^XMB(3.9,22,2,18217,0)="""DATA"",396.18,473,3,401,0)"
^XMB(3.9,22,2,18218,0)="M[H89%7,X_`46F7X1F=^TFM.+H4!3*O]#1[`IE0ZGX>9A83O_G!?)NZ8]^R.'"
^XMB(3.9,22,2,18219,0)="""DATA"",396.18,473,3,402,0)"
^XMB(3.9,22,2,18220,0)="M\>93I#\<)U4JQV95U&L38W1D3D?.8ZG75>)%#R<G<VIMU%E_3]F\D1BMOZ]X"
^XMB(3.9,22,2,18221,0)="""DATA"",396.18,473,3,403,0)"
^XMB(3.9,22,2,18222,0)="MQ#[-]-^(J_^W'4WKJ3JCYY.Y7.JJ*DKDN4VQ;J3>9HB\_)\4^YQ9Q[;FG.S("
^XMB(3.9,22,2,18223,0)="""DATA"",396.18,473,3,404,0)"
^XMB(3.9,22,2,18224,0)="M9Q3G(,0P[L?U03S5'$3$:X%U[Q$Q_10-U863;`ZG^S0?7XQ.CCT33^7CE]3+"
^XMB(3.9,22,2,18225,0)="""DATA"",396.18,473,3,405,0)"
^XMB(3.9,22,2,18226,0)="M*9(3R;SSJO`>,;[[O=""J(M@G%DJ$#W:L*IQ^,SY_5A^?KS>'LYTD3DV/\*1M"
^XMB(3.9,22,2,18227,0)="""DATA"",396.18,473,3,406,0)"
^XMB(3.9,22,2,18228,0)="M'3HQDLJ+;IV^-*?#OA6RWVRNQ4>X>%L.'3C<5]=W-H<DA@%3]A6""C@'UU]V)"
^XMB(3.9,22,2,18229,0)="""DATA"",396.18,473,3,407,0)"
^XMB(3.9,22,2,18230,0)="M:`Y(E.&_5GQ#ZK6W\N:0#HO.;%N'9^*V$N_UR!%[+1=!/5(+2G@$6UA`CXN`"
^XMB(3.9,22,2,18231,0)="""DATA"",396.18,473,3,408,0)"
^XMB(3.9,22,2,18232,0)="MU&9'N*>OO_Z^M^O""`M,J<@NPW\,""['IA.+])#(#CBO""^OE4;@+Z^]AB`OKZU"
^XMB(3.9,22,2,18233,0)="""DATA"",396.18,473,3,409,0)"
^XMB(3.9,22,2,18234,0)="M,@#][3$`_;VM-5S'H$2>'0I@2YK:B'F31;2VQ]U;VZ$![]9VX%""=*?$*Z8BW"
^XMB(3.9,22,2,18235,0)="""DATA"",396.18,473,3,410,0)"
^XMB(3.9,22,2,18236,0)="M*3EPV&Y*/`(ZW.-M2@X?J3,`CWL9@,/>!N!`^PV`N-.TE7D@GRN-%B`\%;(*"
^XMB(3.9,22,2,18237,0)="""DATA"",396.18,473,3,411,0)"
^XMB(3.9,22,2,18238,0)="ML.^%D1%S+\&9U#A;9D#&Q/%1XNIDWJ3^=E:=4/,I9B?&,VW86[$J,['=L7,^"
^XMB(3.9,22,2,18239,0)="""DATA"",396.18,473,3,412,0)"
^XMB(3.9,22,2,18240,0)="M?,3IUMI3#@LK""J=SU+_*JG3EGI7N<_\_>]<>&\=QWF]OR2,I2J0H60]+LC66"
^XMB(3.9,22,2,18241,0)="""DATA"",396.18,473,3,413,0)"
^XMB(3.9,22,2,18242,0)="M;8FT*.;>#R&!3%$O.M0C(FW:<5UW>;?DK75W>[K=HT3;;9*F*>P8:%,W2-H&"
^XMB(3.9,22,2,18243,0)="""DATA"",396.18,473,3,414,0)"
^XMB(3.9,22,2,18244,0)="M@9$$A6T4;1R@18$&*`+42/H`""@<-D+Z""&'&0`DGC%$B;(""B0=F9W9G?F=FYW"
^XMB(3.9,22,2,18245,0)="""DATA"",396.18,473,3,415,0)"
^XMB(3.9,22,2,18246,0)="MEN*11YI_$*:.Y]W?]\TWWWSS/2\#>+V@""(56%XEA/*-#_H\:8Z#45)&_$^WL"
^XMB(3.9,22,2,18247,0)="""DATA"",396.18,473,3,416,0)"
^XMB(3.9,22,2,18248,0)="M<;`(V;345,?!+56Y`2^+QCA*U-""A>8;SLZU$;D0[>@[<;,V&4BNJ9V@+KM4E"
^XMB(3.9,22,2,18249,0)="""DATA"",396.18,473,3,417,0)"
^XMB(3.9,22,2,18250,0)="MNI_K$HW34U6=D^8)0MI]1-#RA7Q*Q""/:>E/L&B_HH+W@UAOZ^:OO*_0%2NBC"
^XMB(3.9,22,2,18251,0)="""DATA"",396.18,473,3,418,0)"
^XMB(3.9,22,2,18252,0)="M!2P#3SDR_WYI(^56XLLMUK-OV2KRI._QYHV:L<_""]M^@Q#S+1V<'/3!#QQKO"
^XMB(3.9,22,2,18253,0)="""DATA"",396.18,473,3,419,0)"
^XMB(3.9,22,2,18254,0)="MQL\#WN?%;/,AZ'%8B4_:^`;P`O5P-FD1':`ZO)O`QXT[I1S@5EDKEN'.*Z(J"
^XMB(3.9,22,2,18255,0)="""DATA"",396.18,473,3,420,0)"
^XMB(3.9,22,2,18256,0)="M#,V`VL@PX:8UZE!?H:_BQ"";/UE863;71LKOY=RH>[CP3<IW"";'C,RX9A*N7A"
^XMB(3.9,22,2,18257,0)="""DATA"",396.18,473,3,421,0)"
^XMB(3.9,22,2,18258,0)="M^M7+I_UR83,,+XYC7@Q)GN,#[NJT`[6-(U3V!)E0YDBL[X*MHV+]\UA'Q8:F"
^XMB(3.9,22,2,18259,0)="""DATA"",396.18,473,3,422,0)"
^XMB(3.9,22,2,18260,0)="M&1T5&YG!""NH\45#<H%^:YL`<!COC[*Q_=[)&\[GT9O##]W`.]):KY@F\S@_Q"
^XMB(3.9,22,2,18261,0)="""DATA"",396.18,473,3,423,0)"
^XMB(3.9,22,2,18262,0)="M5B3;ZQ`P7]9,U94EK\VPRWV%$]WZCL`[\L'OB'*,B2R]5.0%*QRW>B[3DD4K"
^XMB(3.9,22,2,18263,0)="""DATA"",396.18,473,3,424,0)"
^XMB(3.9,22,2,18264,0)="M=!KAI#SBW/@V,2V^P(L`)]*A(G3`.9JM_`1X(->Q?\(V.ZAX7=LSA(DGB5%$"
^XMB(3.9,22,2,18265,0)="""DATA"",396.18,473,3,425,0)"
^XMB(3.9,22,2,18266,0)="MIZ@$$90,1=!1#T%*T5PM/7VB]&!O.I-K)K_FUCY2]F0X<H9F[6P10UU""/JOV"
^XMB(3.9,22,2,18267,0)="""DATA"",396.18,473,3,426,0)"
^XMB(3.9,22,2,18268,0)="MZ/NG<%YL;!?C`HPP$B=&#3:S7X\PY!0D'CF)4.204XN0X0F1]^'J_MB`4XP?"
^XMB(3.9,22,2,18269,0)="""DATA"",396.18,473,3,427,0)"
^XMB(3.9,22,2,18270,0)="M&YZ!!Q$*A./2]=AN\D%#MRWG""*,#Q*+>6`;E'[()@B4>D>'V5,^L5E+=E7*4"
^XMB(3.9,22,2,18271,0)="""DATA"",396.18,473,3,428,0)"
^XMB(3.9,22,2,18272,0)="MB""<=X#IZ4<R""$6$TC-`RY>E`K?R'3@C'D;I10D&RD`^W3,?A)H)GO&:@6D[-"
^XMB(3.9,22,2,18273,0)="""DATA"",396.18,473,3,429,0)"
^XMB(3.9,22,2,18274,0)="M0&[_AE:$6VA915((:E:]?[B]U,N+\F'-]K:MV5XE-/RN(VIC%`W)S13FBXEN"
^XMB(3.9,22,2,18275,0)="""DATA"",396.18,473,3,430,0)"
^XMB(3.9,22,2,18276,0)="M-GP$OBFQNO!+7%T8+OWB?E87\DRR<&LXT+:4!U/QI!08H3A(%%7[X,2J2MZS"
^XMB(3.9,22,2,18277,0)="""DATA"",396.18,473,3,431,0)"
^XMB(3.9,22,2,18278,0)="M!;KDW3\JTQH^E8/JB=I$%DGVV:!%=1^F^IN.D?;J5H@L]G,M]&R*EQD*=[(W"
^XMB(3.9,22,2,18279,0)="""DATA"",396.18,473,3,432,0)"
^XMB(3.9,22,2,18280,0)="M>_@0CBR>4TU%@]L76/7_5M'W'=+U7W>>:<T2E68BB1\E(?C[O$197^PV^'@7"
^XMB(3.9,22,2,18281,0)="""DATA"",396.18,473,3,433,0)"
^XMB(3.9,22,2,18282,0)="MOF/OPH]@]..<A&[KZ.DV^-B.CEOH)[!$_9Q39*2EP2DP2>PZ?""@I2U#)P<LI"
^XMB(3.9,22,2,18283,0)="""DATA"",396.18,473,3,434,0)"
^XMB(3.9,22,2,18284,0)="M.J[PZ84N5^,@X_/EQ6:EPGSYRAS\]A7=!',J.OW:(,7V:])"">B]&^JM1+])/"
^XMB(3.9,22,2,18285,0)="""DATA"",396.18,473,3,435,0)"
^XMB(3.9,22,2,18286,0)="MQ,&<CGJ+0.J5R@I\#P`@`5]Q3:G4T6&&/%;+FGV5MMJ*(',5>;)`D@-[J:$L"
^XMB(3.9,22,2,18287,0)="""DATA"",396.18,473,3,436,0)"
^XMB(3.9,22,2,18288,0)="MHQQKM:)9/0E0[X*4#WGX^WPJ<%^2Z#U,7ND#G.Y%+YW35<.WHX-66]:AHK(_"
^XMB(3.9,22,2,18289,0)="""DATA"",396.18,473,3,437,0)"
^XMB(3.9,22,2,18290,0)="M#6C%,`&F%\&5J^-`M^IYX?^QJ#4@V!RXV81,)_GN]89>5*&V,'5P:?H:N#!S"
^XMB(3.9,22,2,18291,0)="""DATA"",396.18,473,3,438,0)"
^XMB(3.9,22,2,18292,0)="M_O&KUV<G@NNEL$M^R-[$S_O4&0P>GX3+;W<O$C\-^&_%P:GEX+=ZD@*""RAO$"
^XMB(3.9,22,2,18293,0)="""DATA"",396.18,473,3,439,0)"
^XMB(3.9,22,2,18294,0)="MS$&LNZ[:F_^"")P)^S""UKR@G:$5V=JAGQK?O`)_-]UFI\AEA5+SM'\W?""%7[4"
^XMB(3.9,22,2,18295,0)="""DATA"",396.18,473,3,440,0)"
^XMB(3.9,22,2,18296,0)="MY7!9""GS7(\Y4B>Z@6RU%)SFE&><K""_HMTNIL_4__-FJO0,,_@N%K7GTQ,3J%"
^XMB(3.9,22,2,18297,0)="""DATA"",396.18,473,3,441,0)"
^XMB(3.9,22,2,18298,0)="ME.Y4=@R`RTVCV*SHQ294L*K>-$!M`HPN:$6U;H`J_%M%'0OR!N*H-G[O+'[O"
^XMB(3.9,22,2,18299,0)="""DATA"",396.18,473,3,442,0)"
^XMB(3.9,22,2,18300,0)="M%8XWT&:;<W7L%L:18+I%@/RY2.M=T_7""@M&I[#B8RL&?_)A=PE%!'*NJ\+<:"
^XMB(3.9,22,2,18301,0)="""DATA"",396.18,473,3,443,0)"
^XMB(3.9,22,2,18302,0)="M""&S;EL""=G_""K7B*O>C]'QN8;J-ZURV0LF:;7NM0J8RZG3C""<NNYP:A1=5<,("
^XMB(3.9,22,2,18303,0)="""DATA"",396.18,473,3,444,0)"
^XMB(3.9,22,2,18304,0)="M5X9FV-]$VI<X#=L,ZS[IRM$4_%.D?9!\/U^Z`EE$JRWY1Y'V>FOH`E2)\,!'"
^XMB(3.9,22,2,18305,0)="""DATA"",396.18,473,3,445,0)"
^XMB(3.9,22,2,18306,0)="M0J4WC*[A$*VXG-BL&^]E]I_%G7$PEQ@#S4I-:4`&C8OOOQ2MJ^2CQ`RXQBFD"
^XMB(3.9,22,2,18307,0)="""DATA"",396.18,473,3,446,0)"
^XMB(3.9,22,2,18308,0)="MPKR:7$#-M;I(GE*,MGH?(6&&4Z0WVLJI0/8DZ6=?E-I'=G;/E9O5!7""U3OIA"
^XMB(3.9,22,2,18309,0)="""DATA"",396.18,473,3,447,0)"
^XMB(3.9,22,2,18310,0)="M=@U[&`T[3TB8]Y*PQV&/N/C0ZD_6R</3WH</7M+JW::\4XPN=1)QE[S[[*'1"
^XMB(3.9,22,2,18311,0)="""DATA"",396.18,473,3,448,0)"
^XMB(3.9,22,2,18312,0)="MF<0XF$G""G]086%2K>@.K;ZVBZ75#5X05..E98+_T5<G'JD(LZSKUG6+4]U]Z"
^XMB(3.9,22,2,18313,0)="""DATA"",396.18,473,3,449,0)"
^XMB(3.9,22,2,18314,0)="M_%:N6548G<F,@UG(N-GD&+QR+:*N$PVP5&F:*N:>]3LTLJK*;:W:%.<AJ^$)"
^XMB(3.9,22,2,18315,0)="""DATA"",396.18,473,3,450,0)"
^XMB(3.9,22,2,18316,0)="MAD<X&OZ#-57M0B:R&MY'\DZ.VE('?]*LY-UL*J5PMD.:5?8XO3XZQU$%D[4;"
^XMB(3.9,22,2,18317,0)="""DATA"",396.18,473,3,451,0)"
^XMB(3.9,22,2,18318,0)="M\(9_#AZ*VF)W;=HTJ^X)$1_VRE]^=""8-V6;)X!@HJ6H=-3[1:T3X3&T!&A0:"
^XMB(3.9,22,2,18319,0)="""DATA"",396.18,473,3,452,0)"
^XMB(3.9,22,2,18320,0)="M2JPV;=$4Y2-S*CQ-(!2]?-QG\_%:!;Y"":72;_DLS1X-.Z+CL965RE&QCFVGV"
^XMB(3.9,22,2,18321,0)="""DATA"",396.18,473,3,453,0)"
^XMB(3.9,22,2,18322,0)="MYE4,LZ$7:VI5:QKCP-`KJK.%C6`F,D?'*]'V9N#>BPU5,<&<WH4;.<T<(5\F"
^XMB(3.9,22,2,18323,0)="""DATA"",396.18,473,3,454,0)"
^XMB(3.9,22,2,18324,0)="M5-STLO#A`&E4+=*@$):52J59A&)9T6M+81B:HSLZR6^3ZIG/<HH*[G6*V)4%"
^XMB(3.9,22,2,18325,0)="""DATA"",396.18,473,3,455,0)"
^XMB(3.9,22,2,18326,0)="M.SJ&7V,U#PXHOL\FF!<=)Q'7_^""\Z'T7+4>?W4W<+F/0%\&"";I:!H95PS]2B"
^XMB(3.9,22,2,18327,0)="""DATA"",396.18,473,3,456,0)"
^XMB(3.9,22,2,18328,0)="M7JTK\+*B,\7SK6ZD/38$]X,L]F%]3&+B&3]V8""1PJF:F4&B?]M;/\2#UM?IV"
^XMB(3.9,22,2,18329,0)="""DATA"",396.18,473,3,457,0)"
^XMB(3.9,22,2,18330,0)="MI'A,2L2D9$Q*Q:1T3,K$HE?F_,.X7K@X!/')2##<9&?ABH;6\RR'I]I!MIQT"
^XMB(3.9,22,2,18331,0)="""DATA"",396.18,473,3,458,0)"
^XMB(3.9,22,2,18332,0)="M^<YBED4QLVSVQYSK+&;AV'B&P?P;?I@+'<;<(XBY$&=DPQ]SAV6C5Q1S@L8L"
^XMB(3.9,22,2,18333,0)="""DATA"",396.18,473,3,459,0)"
^XMB(3.9,22,2,18334,0)="M_T7$%W2VLZ!%LW5(4:0M'$&@,YT%+9HG4$@QG/Z!+^A\A]6=:!YU(<UP.@!T"
^XMB(3.9,22,2,18335,0)="""DATA"",396.18,473,3,460,0)"
^XMB(3.9,22,2,18336,0)="MHK.@19/3""HSND(<E7X57Z""SH':*@LXQX^(/.QSL+>E`4=([A=,X7=*<MCIVB"
^XMB(3.9,22,2,18337,0)="""DATA"",396.18,473,3,461,0)"
^XMB(3.9,22,2,18338,0)="MH/,,IP-`ISL+>I=HMALI,,2L?L5?/CJL\W8+HV;,I2#4'3Y>1H11,P:3_+8_"
^XMB(3.9,22,2,18339,0)="""DATA"",396.18,473,3,462,0)"
^XMB(3.9,22,2,18340,0)="MZ@XKD#W""J-,,K_U1%SJL0?8*HV:5]4C45UEW^%B\2Q@UJZT#4'=8\>T31LVJ"
^XMB(3.9,22,2,18341,0)="""DATA"",396.18,473,3,463,0)"
^XMB(3.9,22,2,18342,0)="MZP_YH^ZPYMLOC)K5UP&H.ZSY#@BC+C""\_AU?U/D.2\A!4=0)Y@H3A+K#$G*W"
^XMB(3.9,22,2,18343,0)="""DATA"",396.18,473,3,464,0)"
^XMB(3.9,22,2,18344,0)="M,.H$U217_CYQ.=UNS4%&>B]<'O7^:8-V`ZTJ;_H0KS@HSCB,?D+X_):3NS5."
^XMB(3.9,22,2,18345,0)="""DATA"",396.18,473,3,465,0)"
^XMB(3.9,22,2,18346,0)="M8=Y4>=.'1<VP`B-J)?]#ML/7Y6'A;1UGMG4`:B''1-O24D$JF`I0EZ0A+TG["
^XMB(3.9,22,2,18347,0)="""DATA"",396.18,473,3,466,0)"
^XMB(3.9,22,2,18348,0)="M>""2EZ;WC>""[=;K9C5/9Z+M3F.>)6#==6R#92S(9>+Z^$VT)'>%N(=>ZFY;9;"
^XMB(3.9,22,2,18349,0)="""DATA"",396.18,473,3,467,0)"
^XMB(3.9,22,2,18350,0)="M""""'/;Z8M=(_/?`:2RF$W>'\($_W/3EK<S:V0L3[`=^=C0^!_(TPM[-<Y`QH."
^XMB(3.9,22,2,18351,0)="""DATA"",396.18,473,3,468,0)"
^XMB(3.9,22,2,18352,0)="MMV:LVS/RUB)E_:=KG#1-IAS>9%*1?\A+FHZC1.$%-/EL`B1.PG]<6JGK=G7<"
^XMB(3.9,22,2,18353,0)="""DATA"",396.18,473,3,469,0)"
^XMB(3.9,22,2,18354,0)="M!$B>M/*>T?DT`5+XKVK#_O,XN*699;UI@F)%KS6-""9#F?@/_.2BP0HZO;S%#"
^XMB(3.9,22,2,18355,0)="""DATA"",396.18,473,3,470,0)"
^XMB(3.9,22,2,18356,0)="M6*)'-C++7H#5>%Z-_$6)@7U\0]/K11JDD8*^)^RS\H(G-_G>U><F^Z3@,JKF"
^XMB(3.9,22,2,18357,0)="""DATA"",396.18,473,3,471,0)"
^XMB(3.9,22,2,18358,0)="M');,-QQ5\XMP&;B?DE;9>IU=PR0]$&$8,^)^;YK`X%D[$V`J<RJ[L=/\N&2D"
^XMB(3.9,22,2,18359,0)="""DATA"",396.18,473,3,472,0)"
^XMB(3.9,22,2,18360,0)="M:#(2K9+HDK%S#F<T3&5/Y;N0#J8/R].8CHM>.NXZ""U>[K.EVSJ+6M>M""-Y:2"
^XMB(3.9,22,2,18361,0)="""DATA"",396.18,473,3,473,0)"
^XMB(3.9,22,2,18362,0)="M7R2)ACDO02,X^^\1M7$#3.5/S26ZD)HLW=+F7PDU62\UPU96D$4+F$F=2G<A"
^XMB(3.9,22,2,18363,0)="""DATA"",396.18,473,3,474,0)"
^XMB(3.9,22,2,18364,0)="M+3F:ECZB`L]S,ISL%!.;F-DN7!;2=,46LB]'6G,$W679/;E0TJM6`?D<$K%D"
^XMB(3.9,22,2,18365,0)="""DATA"",396.18,473,3,475,0)"
^XMB(3.9,22,2,18366,0)="M5Q##3*ED1.P*698/\>8.D`R+8U;7X&/^.15Y;-_/2W?TY,`D!)):7&8:K/Y+"
^XMB(3.9,22,2,18367,0)="""DATA"",396.18,473,3,476,0)"
^XMB(3.9,22,2,18368,0)="MZ_VG)QL/&92+<:YOT<3)6#0)?U+P)WW2/P'!`Y7T,7]$""L8:[R!6D=P.DH-<"
^XMB(3.9,22,2,18369,0)="""DATA"",396.18,473,3,477,0)"
^XMB(3.9,22,2,18370,0)="M9NXI/*@ATR3""08V*0$TR;/7%FNT@5ED$:XIFZZR?!'02:H\(U#3#5E^LZ0YB"
^XMB(3.9,22,2,18371,0)="""DATA"",396.18,473,3,478,0)"
^XMB(3.9,22,2,18372,0)="M[17!FJ'9^CRY5?,DH)-*(""8""-<NP]7D_:>TD6_M$L.8HMLIO17RP9C,=Q+I#"
^XMB(3.9,22,2,18373,0)="""DATA"",396.18,473,3,479,0)"
^XMB(3.9,22,2,18374,0)="M!&N>YJL+]AT>V'#EE^'`#HJ`I0\MMU<A5P@Z>1+L%,"":9DXM%RQO=V4[>1;L"
^XMB(3.9,22,2,18375,0)="""DATA"",396.18,473,3,480,0)"
^XMB(3.9,22,2,18376,0)="M$@&;I!H!R0\0]^[#DA>K3PB5YPT]@)[KY#V/GE46M)IQ0QMSB/$T)#M(OHSS"
^XMB(3.9,22,2,18377,0)="""DATA"",396.18,473,3,481,0)"
^XMB(3.9,22,2,18378,0)="MS<&H[=X9BQV@T]#!Z""3.6!TC\QA\O<!>FE/,`CE$G^41'2Y^<M#RHZP[U<+N"
^XMB(3.9,22,2,18379,0)="""DATA"",396.18,473,3,482,0)"
^XMB(3.9,22,2,18380,0)="M?%*M8^^C+[4536N49""=ELU\8<899K`#(N0Y""'N`YY9/T;>`IR=-YR@67RVTJ"
^XMB(3.9,22,2,18381,0)="""DATA"",396.18,473,3,483,0)"
^XMB(3.9,22,2,18382,0)="MG_QN'K4IYHKR*_[D%C83N2-M&P7A:UF?3?-5J;5A\DC;60VK:LM`NGS93G]?"
^XMB(3.9,22,2,18383,0)="""DATA"",396.18,473,3,484,0)"
^XMB(3.9,22,2,18384,0)="MUR>_&82TRM9`9,A\/UWJ+[_C>#\_+QQHL0%'NS_LPF\33')=?L%FZ?^4TRCH"
^XMB(3.9,22,2,18385,0)="""DATA"",396.18,473,3,485,0)"
^XMB(3.9,22,2,18386,0)="M2&O89=8JX%CIQE9!9,#ASVRRCF*R?L8IV<BY@9=Q`!*GP'2UKF@-2!^PN[S8"
^XMB(3.9,22,2,18387,0)="""DATA"",396.18,473,3,486,0)"
^XMB(3.9,22,2,18388,0)="M,H?^=64.U'03F+CW#%^DDW1/='DY='^3Z*HV$KZ.O13\5D\,05I]#`'?`$XP"
^XMB(3.9,22,2,18389,0)="""DATA"",396.18,473,3,487,0)"
^XMB(3.9,22,2,18390,0)="M+8'^V-E%9Z2.=O'PZ7Q,'!3V_MZ!D7W40?99M]OWR*-6$YSSM\V&6M5,3376"
^XMB(3.9,22,2,18391,0)="""DATA"",396.18,473,3,488,0)"
^XMB(3.9,22,2,18392,0)="M)8;8MFT*=Y=B1E]@&J)W>T2.Y':]U*9'?3=$Y+BX\?WK@+678N3@[Y>\TR*^"
^XMB(3.9,22,2,18393,0)="""DATA"",396.18,473,3,489,0)"
^XMB(3.9,22,2,18394,0)="M>JVA+VMH]CQ1BEIM$6UHNT_2`@K*5O!DVW&@3BQ-@&,E:.@VJZ1)TZ(.-0IJ"
^XMB(3.9,22,2,18395,0)="""DATA"",396.18,473,3,490,0)"
^XMB(3.9,22,2,18396,0)="MJ+1D5?V9N@I4LSAQ##`-GVN0*'NP/:2G7K;::\(]NJS:@5T#:^(%%(9!56::"
^XMB(3.9,22,2,18397,0)="""DATA"",396.18,473,3,491,0)"
^XMB(3.9,22,2,18398,0)="M:8V6-<N:`>J*::H-:\8C^1Y4`,;$6EDLG?""AXUOE4]+V$JS#$@BE=)%@X%YF"
^XMB(3.9,22,2,18399,0)="""DATA"",396.18,473,3,492,0)"
^XMB(3.9,22,2,18400,0)="M9/!/G!/UA'LS28=KA+GC,6W!'BKL)@[UK`]'VB9AH=RKMHVMQ/B%[W*/20(,"
^XMB(3.9,22,2,18401,0)="""DATA"",396.18,473,3,493,0)"
^XMB(3.9,22,2,18402,0)="MRV]AADFB#,O2`O9A/WZEPN6J[4;-W\$H-%_KT*RY,;89N""9:2TFN;%C,_-E6"
^XMB(3.9,22,2,18403,0)="""DATA"",396.18,473,3,494,0)"
^XMB(3.9,22,2,18404,0)="MV/)L$RV;Q<74MK#)OQ7Q95LJ%-MVSEANL3F]62QO!I:)5L""2@FY;TH)XEMG2"
^XMB(3.9,22,2,18405,0)="""DATA"",396.18,473,3,495,0)"
^XMB(3.9,22,2,18406,0)="M/!.MP,W2AZ;\%5^6I<-Y7X>OX<Y+UCU<W0Q<$ZVFS3(Z+8AMJ:W.-M'*:=*_"
^XMB(3.9,22,2,18407,0)="""DATA"",396.18,473,3,496,0)"
^XMB(3.9,22,2,18408,0)="MTA:V?_/E6C+<47!T!EO0R(1U>F@@6[;%#(EN#!=[KN@UE80*VC7*%N1B@1$^"
^XMB(3.9,22,2,18409,0)="""DATA"",396.18,473,3,497,0)"
^XMB(3.9,22,2,18410,0)="M?S:F$N\U-O(""`Z0KC'UA/DMN:P><V]HT)7B9S>0IW\&C-L=<3@/(S6TF<@?]"
^XMB(3.9,22,2,18411,0)="""DATA"",396.18,473,3,498,0)"
^XMB(3.9,22,2,18412,0)="MIHFE:)^Y_+KD<:J]3CG59O1;W>-4X[?[)85E4\Q`QVYWJN'(A?Q""F]&8W>I4"
^XMB(3.9,22,2,18413,0)="""DATA"",396.18,473,3,499,0)"
^XMB(3.9,22,2,18414,0)="M2V297?-_1*WNWW;IK)M7+4>K:5G:7H$-=ZKEXK3/(^YKY^:VG6KU7(+6(@$,"
^XMB(3.9,22,2,18415,0)="""DATA"",396.18,473,3,500,0)"
^XMB(3.9,22,2,18416,0)="M*VP[U>ID*C=FV)POP^+;[B'""MA2]+WVYELIO^R()U]*,L#WGR[;LMH,(L2Q#"
^XMB(3.9,22,2,18417,0)="""DATA"",396.18,473,3,501,0)"
^XMB(3.9,22,2,18418,0)="M""YH_Q]+;;DC$,=:0?,W?.93>=@YAMN5HYU``UY+;GDC,M3PC;-_V=P8EWX/."
^XMB(3.9,22,2,18419,0)="""DATA"",396.18,473,3,502,0)"
^XMB(3.9,22,2,18420,0)="M(+&&G[29*W_+GXOQ]Z!GTNMD8@7O`UXGT].4DRF_R9Q,7G*9E)L`:K.;S(/H"
^XMB(3.9,22,2,18421,0)="""DATA"",396.18,473,3,503,0)"
^XMB(3.9,22,2,18422,0)="MDX:*]\6*=?KOQE3_0`J?AMK%B:>#O`)0TGOT4W:""9@R3_O><=A_WX+S3R=J-"
^XMB(3.9,22,2,18423,0)="""DATA"",396.18,473,3,504,0)"
^XMB(3.9,22,2,18424,0)="M%7C!UPSB8K`^W\""&'_Q,3!PE_;J=TGS3DXD)Z!3JM4K$Q*D3]S+9KG_BR-&E"
^XMB(3.9,22,2,18425,0)="""DATA"",396.18,473,3,505,0)"
^XMB(3.9,22,2,18426,0)="M<(F8SZ]),P?<U#+:9S'BMR.>J;-N#NZ#T[629JMQ:W6;M45E66]8$Q@5LNRG"
^XMB(3.9,22,2,18427,0)="""DATA"",396.18,473,3,506,0)"
^XMB(3.9,22,2,18428,0)="M-]""QTX;"")$WA;JEU<)A+X%V3)7L4(SR;BGK5Z@Q_>B/($#JNR>#G-R/TF""_Y"
^XMB(3.9,22,2,18429,0)="""DATA"",396.18,473,3,507,0)"
^XMB(3.9,22,2,18430,0)="M:\[*W4]*AC+)<%ZIHXZI:.UA:A*Z/7S2K1SJA(X/<6SW75&;9D.I\$:>M[_R"
^XMB(3.9,22,2,18431,0)="""DATA"",396.18,473,3,508,0)"
^XMB(3.9,22,2,18432,0)="M]<_-:(8)]R,1$_M?65I,?I]LA$\XA]NS+CM3#MU#UOM*:FE6K:A%>-(@A$2P"
^XMB(3.9,22,2,18433,0)="""DATA"",396.18,473,3,509,0)"
^XMB(3.9,22,2,18434,0)="M^%9&]IRVN*@5FQ5S!=Q2*FC'@@6UJ#0-:R:H`M!<4C0TO`)9C3Y!HTW1T)7K"
^XMB(3.9,22,2,18435,0)="""DATA"",396.18,473,3,510,0)"
^XMB(3.9,22,2,18436,0)="MJH'FLJ$_Z76UAOX_K&.K>M,L6W[<8EF]!?\0FSB+'+IE]!WR.%,')4VIEQO*"
^XMB(3.9,22,2,18437,0)="""DATA"",396.18,473,3,511,0)"
^XMB(3.9,22,2,18438,0)="M$O(0%]'(UKIF.]-B9RY.`V.E6C?UJ@%*3=1K#]3A%PQF4JF!IK!6E<:2!D6C"
^XMB(3.9,22,2,18439,0)="""DATA"",396.18,473,3,512,0)"
^XMB(3.9,22,2,18440,0)="M9GVHH.X(:BW6=V[%J-=4)3:`?BDK2YH22TV:J)!,5VYK]B139ZJIT5RH-&]C"
^XMB(3.9,22,2,18441,0)="""DATA"",396.18,473,3,513,0)"
^XMB(3.9,22,2,18442,0)="MB[`!<1G$3QV+PS6%FDM?0J-.6Q#93N<&<EI#5JAF$1$8&;P,>:G9""S#`W!X\"
^XMB(3.9,22,2,18443,0)="""DATA"",396.18,473,3,514,0)"
^XMB(3.9,22,2,18444,0)="M%DR2T79DLABUR(\[BYPHK(?=$LI*$;U%$CM-""E8,X2+CAVC%X""[F9M<)HIZS"
^XMB(3.9,22,2,18445,0)="""DATA"",396.18,473,3,515,0)"
^XMB(3.9,22,2,18446,0)="M=(;1N`]@QOZ#P]B'7<8*EOZ308P61+.-OG5/5T^CPHWE]6'(3@OT'`/:,OEB"
^XMB(3.9,22,2,18447,0)="""DATA"",396.18,473,3,516,0)"
^XMB(3.9,22,2,18448,0)="MA\[73`UJ#\[?V(:)PIXF?CEF,DM+N^PQ8(XY/0@3R7!92,><[HFLK+OK$:Z'"
^XMB(3.9,22,2,18449,0)="""DATA"",396.18,473,3,517,0)"
^XMB(3.9,22,2,18450,0)="MHFC\A*F`=L3LSQR*SKAB%NX:?LP5LW84;;!$[2<2-47PV<*T#PL3^[%XV*6-"
^XMB(3.9,22,2,18451,0)="""DATA"",396.18,473,3,518,0)"
^XMB(3.9,22,2,18452,0)="MZ.28#4UDYQL\V<F&\QN=<&3'=T.'$R""YY9:ZD[JEXH2HST688BJG%:?\A:UP"
^XMB(3.9,22,2,18453,0)="""DATA"",396.18,473,3,519,0)"
^XMB(3.9,22,2,18454,0)="M2]W);5.$27^!;4KY-9^FE)?M\57=<D?E7;VQT^&<1=-Q?&DYY""5I+?)>UAH["
^XMB(3.9,22,2,18455,0)="""DATA"",396.18,473,3,520,0)"
^XMB(3.9,22,2,18456,0)="M#F>F)`;\@U[P:Y+]<B?H?6[K..:SSZ*A@(7J\\Y^RH6[K5>B(K?U]5&ZH8H:"
^XMB(3.9,22,2,18457,0)="""DATA"",396.18,473,3,521,0)"
^XMB(3.9,22,2,18458,0)="M<8Q5ICU`T0IG+O+5A6=4JX\I.(^24FI%='$XW25>@`SQ`CQH6?Z#I''7.<D["
^XMB(3.9,22,2,18459,0)="""DATA"",396.18,473,3,522,0)"
^XMB(3.9,22,2,18460,0)="M%.]-M^.X45>,ZKB51%/1GD67*'39:]3@Q0C=6Y::2J.$[E@&U*90U:LUO;E4"
^XMB(3.9,22,2,18461,0)="""DATA"",396.18,473,3,523,0)"
^XMB(3.9,22,2,18462,0)="M1C>5!=6Z7NDU*X7&&BCGN+V7%,T$]`?H3+!<#O""NU(1'1+,(+W,&,.""AH:%#"
^XMB(3.9,22,2,18463,0)="""DATA"",396.18,473,3,524,0)"
^XMB(3.9,22,2,18464,0)="M8AP^""S[?0'=""J*'MC^@'E-2EAFK=TVZLU,O6N=)]B4TY9@+]X=;IHI0DN8>\"
^XMB(3.9,22,2,18465,0)="""DATA"",396.18,473,3,525,0)"
^XMB(3.9,22,2,18466,0)="M`K>%S1W-:"".?S*S#/>1&]P+'?W6XQ1)E'RY6QX-I.&J]+4':W/\Z>=D#K@,\"
^XMB(3.9,22,2,18467,0)="""DATA"",396.18,473,3,526,0)"
^XMB(3.9,22,2,18468,0)="MD0S5H""BZ,?:68V3P=8+XU`*\O8[01>;1)PE?'G3YD@F7B1&;15MP[:*5G>%3"
^XMB(3.9,22,2,18469,0)="""DATA"",396.18,473,3,527,0)"
^XMB(3.9,22,2,18470,0)="M1)A/V/&\1V(8]32/484MR""CA,L,\+4^S?O(4SB[OGVSM?M^=C!*N+""PP`C7K"
^XMB(3.9,22,2,18471,0)="""DATA"",396.18,473,3,528,0)"
^XMB(3.9,22,2,18472,0)="M)U""I+<DIX6+"".""U2S_F)5+A\E(&+V`SH=DX)UQ`F&)EZSD^F,EN35:*98:3W"
^XMB(3.9,22,2,18473,0)="""DATA"",396.18,473,3,529,0)"
^XMB(3.9,22,2,18474,0)="MKB54\A<C?JP*ETLW8J4@6@G657UM$UX[PS+1;!W25=B6K@"">Y;8VST0]^GGZ"
^XMB(3.9,22,2,18475,0)="""DATA"",396.18,473,3,530,0)"
^XMB(3.9,22,2,18476,0)="M.)3_-N*CO++A7(*#<\Z-IMN9)1H8S3-'HLLMGH!E$UN56P/"")FF:EJW[R`WJ"
^XMB(3.9,22,2,18477,0)="""DATA"",396.18,473,3,531,0)"
^XMB(3.9,22,2,18478,0)="MYQ$ONU+QS)W9I`(^SIW""N#/,,A/@O&5.Q;,=QRT\1C3!'!GG_?B=+!3NU&03"
^XMB(3.9,22,2,18479,0)="""DATA"",396.18,473,3,532,0)"
^XMB(3.9,22,2,18480,0)="M0#XDC)S5W.=].1Y?!^3""3483C/ZL^,MXXHY-&@'HPO-;$ZPVJ_@R/;D>T(6'"
^XMB(3.9,22,2,18481,0)="""DATA"",396.18,473,3,533,0)"
^XMB(3.9,22,2,18482,0)="MN""9IBUO^M#_74VMVT@N0(#S1-<F8P@X-?.ZGUY,$X?&N2=HU(W_5?Q5R:W`<"
^XMB(3.9,22,2,18483,0)="""DATA"",396.18,473,3,534,0)"
^XMB(3.9,22,2,18484,0)="M""H`7GO*:9/PE#GH^__/K`UYXV""ONZHPY_VY[JRV?2X>\1\VKRHW-8(7L$.95"
^XMB(3.9,22,2,18485,0)="""DATA"",396.18,473,3,535,0)"
^XMB(3.9,22,2,18486,0)="MFEGH=]L;;9!9V:W)K$%A9F5HP?JNSY:&S""K<,;,$]H3P*&&2M8C7^;N2SSIG"
^XMB(3.9,22,2,18487,0)="""DATA"",396.18,473,3,536,0)"
^XMB(3.9,22,2,18488,0)="MXNL!_4""[/LMDULOW[""3A9WW:M89-$N:^C\R5?#;P=3M6TY*V7>(`?FN,&7[X"
^XMB(3.9,22,2,18489,0)="""DATA"",396.18,473,3,537,0)"
^XMB(3.9,22,2,18490,0)="M/:=?Q(M;(6]@%R],348H_I+-&_A'3M[`O3AO8+IFU%&0DZ3&;GSJ@$\`.TW'"
^XMB(3.9,22,2,18491,0)="""DATA"",396.18,473,3,538,0)"
^XMB(3.9,22,2,18492,0)="MVTBZ^=\Y""_N!<`'L_UYMNCG#<IQ_>1?3:_8A;ZRN_YINF,V&>F8#X\<T<-*U"
^XMB(3.9,22,2,18493,0)="""DATA"",396.18,473,3,539,0)"
^XMB(3.9,22,2,18494,0)="MR0;>@X$GO,!WN""+2+=`+%'3YF^1@W>O%WG-1T<PN04VBQ3;JMPGJ.(?C""#4P"
^XMB(3.9,22,2,18495,0)="""DATA"",396.18,473,3,540,0)"
^XMB(3.9,22,2,18496,0)="M5^KJ&?Z3DO237B.'Y6]R(L2'R$`+:UO#_TPU&\L*DD.C2]B""'8'R5R(L7RYY"
^XMB(3.9,22,2,18497,0)="""DATA"",396.18,473,3,541,0)"
^XMB(3.9,22,2,18498,0)="MB1EV1K+I*!'MM/^LMQR],^7?(\^M>9][@'TNZA."".!3T?&900_1NO`J?Y*S"""
^XMB(3.9,22,2,18499,0)="""DATA"",396.18,473,3,542,0)"
^XMB(3.9,22,2,18500,0)="M/2TO**M*"";W%RCP.>DV:><T\)D/QOF6O\Q;%6*E65;.Q<MIG:!UW<#?VY.RT"
^XMB(3.9,22,2,18501,0)="""DATA"",396.18,473,3,543,0)"
^XMB(3.9,22,2,18502,0)="M>/97Y,!^U)MGG0AWN^V[J""TL-$/:,:*@L2:[$0PZ9!CL@R3W)!1LT>I4TE+I"
^XMB(3.9,22,2,18503,0)="""DATA"",396.18,473,3,544,0)"
^XMB(3.9,22,2,18504,0)="M78D%/L\!'NXRU8L*0,*!WB$*&HOC\1;0""QS0X2XU>V;L+);%""FJP4POMQ!D4"
^XMB(3.9,22,2,18505,0)="""DATA"",396.18,473,3,545,0)"
^XMB(3.9,22,2,18506,0)="MI0![6;\182EXDD-!R'Z_F`*2TG3';F(^?C*K+<KB?X*#/V1_YUF2GQ7:4=RF"
^XMB(3.9,22,2,18507,0)="""DATA"",396.18,473,3,546,0)"
^XMB(3.9,22,2,18508,0)="M`BE'VQCWDT$-CH:L8J3)?#X1JNXH9E\58CNOJ95ES0`59,/']N!_F5K%JC:"""
^XMB(3.9,22,2,18509,0)="""DATA"",396.18,473,3,547,0)"
^XMB(3.9,22,2,18510,0)="MKX[M93]KH.?%!AQ""8WVSIJ[7U5+LX`7MMM5ORIH1I;KZF111MRG*B5#$#S/$"
^XMB(3.9,22,2,18511,0)="""DATA"",396.18,473,3,548,0)"
^XMB(3.9,22,2,18512,0)="M)Y@#B-S_W0-""_M.(0W\NMRKZ^R=KIE)9THJQV*2IW$;_O:8MJ<C<G*Z9NHH*"
^XMB(3.9,22,2,18513,0)="""DATA"",396.18,473,3,549,0)"
^XMB(3.9,22,2,18514,0)="MI_KGE5*I@G[KFRUJAJ$W8@,75""@)-06^>]<E^`9@F&J]CKYBU3HUK""?!\UTW"
^XMB(3.9,22,2,18515,0)="""DATA"",396.18,473,3,550,0)"
^XMB(3.9,22,2,18516,0)="M0:FAUU&G!1T>B_#79L6JW!JQ6.*DZVGFBD_-DEB%0(+N+^=*]:^U2'5O(E%("
^XMB(3.9,22,2,18517,0)="""DATA"",396.18,473,3,551,0)"
^XMB(3.9,22,2,18518,0)="MAA/KD>MVKN$J]^40K^H*7[3>B+!K^Y]2Z]I""O/G,IFK&V,>A-\58W*\0<E\@"
^XMB(3.9,22,2,18519,0)="""DATA"",396.18,473,3,552,0)"
^XMB(3.9,22,2,18520,0)="M5Z_H26H^V*:JDQ>NK""@DZ&.#W#[=1,E3%`<*H4JEAB[1YN""9C4Z@)+K%MW=$"
^XMB(3.9,22,2,18521,0)="""DATA"",396.18,473,3,553,0)"
^XMB(3.9,22,2,18522,0)="ME-=,(<Y8JB<\""<D4BQ+QS20DLK""0)!DA>0*SX,4(CP7AC-$#L]BF1T>44J^K"
^XMB(3.9,22,2,18523,0)="""DATA"",396.18,473,3,554,0)"
^XMB(3.9,22,2,18524,0)="M2D.I%=5PY38]O&5+,,NF>I:-VMN)3=5%M[>='Q2/YY:?M0^;Q;4<6\5_(;;9"
^XMB(3.9,22,2,18525,0)="""DATA"",396.18,473,3,555,0)"
^XMB(3.9,22,2,18526,0)="M=@6_<$T]H=A1D&)NJ*\X#K-/;P5/Z!#OUDR""+S^R-V(O)OW/.9[0@]@3""JT$"
^XMB(3.9,22,2,18527,0)="""DATA"",396.18,473,3,556,0)"
^XMB(3.9,22,2,18528,0)="M3;V%O*""S*P;:25W0XF,7+41L:QYOAX_#:RRT9!K2]R.!+US=2#G*TSO2XNDE"
^XMB(3.9,22,2,18529,0)="""DATA"",396.18,473,3,557,0)"
^XMB(3.9,22,2,18530,0)="MV?>#=+=A^>..Y#X:SM7[R[5P]>)!%-%ABQTYPHZ+'$?5M8JJ0(-3O5VO*%J0"
^XMB(3.9,22,2,18531,0)="""DATA"",396.18,473,3,558,0)"
^XMB(3.9,22,2,18532,0)="MAX=,.+*?^Q')Q\/#:>?1)6X\,G;H#;;$]W6.-^R!""PWU9E.M%5?`:$E9,;6J"
^XMB(3.9,22,2,18533,0)="""DATA"",396.18,473,3,559,0)"
^XMB(3.9,22,2,18534,0)="M""I9US2H[@MI(;2PKE;$`EF4IED7O(^+!*Y&9+VO%,HYMP""6!9`#T>C1I,<#Q"
^XMB(3.9,22,2,18535,0)="""DATA"",396.18,473,3,560,0)"
^XMB(3.9,22,2,18536,0)="MAG7VRQ+C0)3_@/.6HRY)\$V+*BKUT6JH_`FJ%GA*=T,+&89_26:URIBT/^*0"
^XMB(3.9,22,2,18537,0)="""DATA"",396.18,473,3,561,0)"
^XMB(3.9,22,2,18538,0)="M=NR*7C3A\:R`T?NMWAWV2AFH=3*HH2^/^3@9^7>]%!V@(Z&'F^3=1XG_(A>R"
^XMB(3.9,22,2,18539,0)="""DATA"",396.18,473,3,562,0)"
^XMB(3.9,22,2,18540,0)="MC>*^1Z&=H%@6DLMZUT#J7<N""=NS,-RS9^&LB&Q^+M!*1286L>MEWOH&""+145"
^XMB(3.9,22,2,18541,0)="""DATA"",396.18,473,3,563,0)"
^XMB(3.9,22,2,18542,0)="ME%:,Q6:MR%X*Y-4E[O&)H`.E\F>(A_R9%AIZ$]E""R!JGO1>L+3""]ZG40%262"
^XMB(3.9,22,2,18543,0)="""DATA"",396.18,473,3,564,0)"
^XMB(3.9,22,2,18544,0)="MD&63\&-""PBW/,H2MJMDWHRZABD2KG_@M$H;W=*L(IHEI#.&;+<?W]N%3?TQB"
^XMB(3.9,22,2,18545,0)="""DATA"",396.18,473,3,565,0)"
^XMB(3.9,22,2,18546,0)="M),VS2(C""D,D%5YK5!3:YH'=UN95\X/A:\3\2NS1E#_!<,IRC>.]CFM%$-:*\"
^XMB(3.9,22,2,18547,0)="""DATA"",396.18,473,3,566,0)"
^XMB(3.9,22,2,18548,0)="M_=&[EKE:I.WWRP',AU>C>""+<-M^%Q,)`9Y*FA%R!8=$5P`&JCT?8%7C<HVCS"
^XMB(3.9,22,2,18549,0)="""DATA"",396.18,473,3,567,0)"
^XMB(3.9,22,2,18550,0)="M_\_=E<?&<9WW/:@A*5('J<.2ZF,L^:!DBMJ=V9.-+4LD)3/5%9*VFK:N,]P="
^XMB(3.9,22,2,18551,0)="""DATA"",396.18,473,3,568,0)"
^XMB(3.9,22,2,18552,0)="MDF/M[BQV9B73=1SW\!^%:R!)6Z<U&B>]G/Y1-$D+!W""*GFF#HD"";%CW3)FZ!"
^XMB(3.9,22,2,18553,0)="""DATA"",396.18,473,3,569,0)"
^XMB(3.9,22,2,18554,0)="M-H!=H&B#%$51!'#?/>_-O)F=H5ES5_XCF5VNYKWO>]_[WO>^X_?EDXF.<L%H"
^XMB(3.9,22,2,18555,0)="""DATA"",396.18,473,3,570,0)"
^XMB(3.9,22,2,18556,0)="M-!+..G:.985,^Z,^P;DN87K""`K#=\]:SSUK)93YV9F*%7#M2Z6B6H[DGB^GL"
^XMB(3.9,22,2,18557,0)="""DATA"",396.18,473,3,571,0)"
^XMB(3.9,22,2,18558,0)="M>;P%;B5@J.33CYT;6B%&W-^F^),Y^U<IV?23;=II>C9W3`C8`O--L!D&K;Z:"
^XMB(3.9,22,2,18559,0)="""DATA"",396.18,473,3,572,0)"
^XMB(3.9,22,2,18560,0)="M`38"",/RL9XWDNSFV<X96-BGB9C9EQ""7$O+ZZ""G[0WL+DQV7.5HV_#]#F]-EK"
^XMB(3.9,22,2,18561,0)="""DATA"",396.18,473,3,573,0)"
^XMB(3.9,22,2,18562,0)="MS-FJLXGF\]5!<L@<EE!+NX-@:E\.4OO]G&.U.`!$WA$S:DWHOBD8P4\%[<>$"
^XMB(3.9,22,2,18563,0)="""DATA"",396.18,473,3,574,0)"
^XMB(3.9,22,2,18564,0)="M_?GVTXW6[:S#""\DVVBRQ4<6(%ORUM$#;AH2V9.?.)*5MC5ZWMI&ZV/!<I-R/"
^XMB(3.9,22,2,18565,0)="""DATA"",396.18,473,3,575,0)"
^XMB(3.9,22,2,18566,0)="MZ)&#5&*OIP.A*K`_D]G-%Q<=U01/#7L=W22-UJ9W=04W?N1.<!VUV^J8#8-@"
^XMB(3.9,22,2,18567,0)="""DATA"",396.18,473,3,576,0)"
^XMB(3.9,22,2,18568,0)="M(-;`ETWP6+<<8]6""P;APKF22<N40[,PU9S=7;2\?CWZDD6ARB]0((S[/CHM#"
^XMB(3.9,22,2,18569,0)="""DATA"",396.18,473,3,577,0)"
^XMB(3.9,22,2,18570,0)="M+/,UIQ>8HA(BFYRWUC^UD0^H>?4QL$F5\3RD4T,?'&5<@Y]T\FGT$?J8@AZE"
^XMB(3.9,22,2,18571,0)="""DATA"",396.18,473,3,578,0)"
^XMB(3.9,22,2,18572,0)="MJTLD^DKFRCX7>8\![8K\`ENS'_*F6MHB&.;1.1L<T4;+52GP9;O=L*""37KEK"
^XMB(3.9,22,2,18573,0)="""DATA"",396.18,473,3,579,0)"
^XMB(3.9,22,2,18574,0)="M$?HUFI:+P,H""?SYUW30Z!/W26'7LSBK\6=.`1R+L3`2N(-1GH5R*_JV[8;@0"
^XMB(3.9,22,2,18575,0)="""DATA"",396.18,473,3,580,0)"
^XMB(3.9,22,2,18576,0)="MZ\6%@""VU#>C]@I%P!V)W&2W`0^ANP9?WNK&I7-S""VQ#[""[X7;65:31N!B8%I"
^XMB(3.9,22,2,18577,0)="""DATA"",396.18,473,3,581,0)"
^XMB(3.9,22,2,18578,0)="M^=Z6VHN%$6X=N""PC(]Z3Y],<A_Q?L=I,UJ];K;I]:^22W5J'BQXW?:C(7^7I"
^XMB(3.9,22,2,18579,0)="""DATA"",396.18,473,3,582,0)"
^XMB(3.9,22,2,18580,0)="M+3C[Q:#1D\N7DMEL1SQT.NP3:H""+I+%NSFX_MN168>(O6XVZ,G+9!O2`M5*4"
^XMB(3.9,22,2,18581,0)="""DATA"",396.18,473,3,583,0)"
^XMB(3.9,22,2,18582,0)="M983[\QYQ]VE9';FTOA)N!@.6)LNQ`9)1=]ANX""+Y.\S(WE4CX6JT+-PR/YL*"
^XMB(3.9,22,2,18583,0)="""DATA"",396.18,473,3,584,0)"
^XMB(3.9,22,2,18584,0)="MI&T?XMA5ZJ5'Q_Q3F[Q:JQD.]AH3`53NY[ZS6C<!$ULN/%A7[5MF`VS,FR9T"
^XMB(3.9,22,2,18585,0)="""DATA"",396.18,473,3,585,0)"
^XMB(3.9,22,2,18586,0)="M+C-7K1OQ(T>Y[YK9<<""&@[^#K=!0:[3VA@7NYF`_0Q<0L)AB`\IHHO7P?41V"
^XMB(3.9,22,2,18587,0)="""DATA"",396.18,473,3,586,0)"
^XMB(3.9,22,2,18588,0)="M:G[9T32]4D[H\2""NS&1!4X5?NWWBVA6$$[`;>0*6>ZW<L!Q>&3<52>M*NJ"","
^XMB(3.9,22,2,18589,0)="""DATA"",396.18,473,3,587,0)"
^XMB(3.9,22,2,18590,0)="M%J%3ZC)0G*D(Y$22>+0L-""O;PX(G""[=#V&^?S*]-+9+/XPOL2&`]/&$X3,)^"
^XMB(3.9,22,2,18591,0)="""DATA"",396.18,473,3,588,0)"
^XMB(3.9,22,2,18592,0)="MUSHV6).FNMQM-H%P]UO0C^B&;V`?SMW;6+$3O(F1@W`OXMU=A'?_SE*:_B?E"
^XMB(3.9,22,2,18593,0)="""DATA"",396.18,473,3,589,0)"
^XMB(3.9,22,2,18594,0)="MV;55;0!N8E$=,(A;]5M84,8(L2>9/6CQ6X3(O5)K7`)FRDY*_7X99%R!PF.O"
^XMB(3.9,22,2,18595,0)="""DATA"",396.18,473,3,590,0)"
^XMB(3.9,22,2,18596,0)="M(F+V^E-R.0?8M:6KUQ:65A87EG<>8%,@H2A@&9TB)'QO,!XU]@0\;.S6P_E<"
^XMB(3.9,22,2,18597,0)="""DATA"",396.18,473,3,591,0)"
^XMB(3.9,22,2,18598,0)="MJ4^@&`NT""`A/_E%_`KHW^?UX(ZZ8S[@/8[Q?04(G.0DMYN!_Y,7/H1<_1*3T"
^XMB(3.9,22,2,18599,0)="""DATA"",396.18,473,3,592,0)"
^XMB(3.9,22,2,18600,0)="M#]F6+-X.FGR""\G12*&6#_Q&/W<<$=V2\)(XELP8(?Z_A\6^_=S&?\%&5Y]U["
^XMB(3.9,22,2,18601,0)="""DATA"",396.18,473,3,593,0)"
^XMB(3.9,22,2,18602,0)="MF34B+):D><<<""?&KR%F*R)E]__%4X4FQ4+=<8K7""1[0X&M\ZZ6UJXF_Z+1]-"
^XMB(3.9,22,2,18603,0)="""DATA"",396.18,473,3,594,0)"
^XMB(3.9,22,2,18604,0)="MJU1SO@PTV>N(UW\:&\'_$OF^O)#C1<_-`_RYB>6'F&=OXM-S/)""R<6?HZ9GM"
^XMB(3.9,22,2,18605,0)="""DATA"",396.18,473,3,595,0)"
^XMB(3.9,22,2,18606,0)="M<7KZ;=GOD8-K<HQ2>)30[%\S(;[(""""LEC.#MG5,OP$`Q%OK9@/\$?V_6E4-7"
^XMB(3.9,22,2,18607,0)="""DATA"",396.18,473,3,596,0)"
^XMB(3.9,22,2,18608,0)="MB`?!=*#/:'53?>+<TE7EQ)+_*W6UZR)W@W'3L!K06(V.C4=0K?.EQI%D5\K)"
^XMB(3.9,22,2,18609,0)="""DATA"",396.18,473,3,597,0)"
^XMB(3.9,22,2,18610,0)="MS/C#E\TZ`E/%6_S](C]-3:8)SV02E/0^X0[P2TQ)O^2E@I<J^0&PFS(1=A.)"
^XMB(3.9,22,2,18611,0)="""DATA"",396.18,473,3,598,0)"
^XMB(3.9,22,2,18612,0)="M$+V""E_5.6M/`B/W$[7`B35+=/<ZG?^%5-H6;Q1L19]$5TVXW#`>U)M^.HNIO"
^XMB(3.9,22,2,18613,0)="""DATA"",396.18,473,3,599,0)"
^XMB(3.9,22,2,18614,0)="M;R^F.>TR,8,(NAB10W7GO&6LMV@+--7M-L$==,I\QJBY)T,J5""O\NYV(TL@["
^XMB(3.9,22,2,18615,0)="""DATA"",396.18,473,3,600,0)"
^XMB(3.9,22,2,18616,0)="MYPT7>4/K;(RI9O/,)O@O[-U5[MW95ZFWY&W)R_,KFVW306V$ZF`8C(X/VPC!"
^XMB(3.9,22,2,18617,0)="""DATA"",396.18,473,3,601,0)"
^XMB(3.9,22,2,18618,0)="M8U6=LEJU1A>C7<-@22=L1-I&\@P:\;_HB#_/1CS&1IQ=@%Q!H\'!P/+#;O0P"
^XMB(3.9,22,2,18619,0)="""DATA"",396.18,473,3,602,0)"
^XMB(3.9,22,2,18620,0)="M!0;)`FQ2Q$V@7I]6F\UI%5'+O`,2V&D!BYYHUG],""=/QPBO>;-1Y?A[<P)3#"
^XMB(3.9,22,2,18621,0)="""DATA"",396.18,473,3,603,0)"
^XMB(3.9,22,2,18622,0)="ML<<D*BZ'ACQ%S]$K$@N7I#[622WJ;%R$3G+Y/""'4]GOI@Z>\NV=""8*4CUPW4"
^XMB(3.9,22,2,18623,0)="""DATA"",396.18,473,3,604,0)"
^XMB(3.9,22,2,18624,0)="MN(+(+2Q76H>E3UQ.U<YBIRC#C[=NM.Q;K7`H9FPRC7DFD\9))*T)!NL2<#OI"
^XMB(3.9,22,2,18625,0)="""DATA"",396.18,473,3,605,0)"
^XMB(3.9,22,2,18626,0)="MN6K5=X3!?S[NO8D""B6'A_K%4Q+ORN7QT!0A!]B+O^O7@N\YS[ZH.1N%'D&&"""
^XMB(3.9,22,2,18627,0)="""DATA"",396.18,473,3,606,0)"
^XMB(3.9,22,2,18628,0)="M-IA(AQFJD$:O7$)B`7/+2;;T/Z5BO+,L>><NV6)H_)Z=30<6XR0G).4!6`PE"
^XMB(3.9,22,2,18629,0)="""DATA"",396.18,473,3,607,0)"
^XMB(3.9,22,2,18630,0)="M)$^=UAW]`N;>C8@\=;^5/[S%N@IR='Y`L`6&,\F-(#S33/^;1`=D)A$1VY?%"
^XMB(3.9,22,2,18631,0)="""DATA"",396.18,473,3,608,0)"
^XMB(3.9,22,2,18632,0)="M#CW_*K&)[B4VT6.P/X$+6T^P5GG+^.S=>>.(IZS`Z]>'B4""M23H[4(*0D4%;"
^XMB(3.9,22,2,18633,0)="""DATA"",396.18,473,3,609,0)"
^XMB(3.9,22,2,18634,0)="M_LU*WUGDW[E.F#66#KZT#(_M61@(!>8!F"")NA+AI&AW56E/148&:9;3;'?L9"
^XMB(3.9,22,2,18635,0)="""DATA"",396.18,473,3,610,0)"
^XMB(3.9,22,2,18636,0)="M""\98D<$Q*W5.Z7J)UU>T#63F.0E8R!(XNO&B0/`1%,;!BQ/VZC)/$O48_W(Z"
^XMB(3.9,22,2,18637,0)="""DATA"",396.18,473,3,611,0)"
^XMB(3.9,22,2,18638,0)="M:(DX%\!+3:.VH8*]T'*GU36K`2-/Z&#&%%FM-5@_`G\^K9HP7JX>)P?C<=1N"
^XMB(3.9,22,2,18639,0)="""DATA"",396.18,473,3,612,0)"
^XMB(3.9,22,2,18640,0)="MA/L!NJ3A?P99T^XZ&^A-3G>U:;GP&@>V<H_V';HNG'S?206:WWF<F2;1`13="
^XMB(3.9,22,2,18641,0)="""DATA"",396.18,473,3,613,0)"
^XMB(3.9,22,2,18642,0)="M!A/?$,48FYB1O""J(+83`*&0=;@29-7U*O08[58*M@<AQ;=6HUR%/@%IUX$>$"
^XMB(3.9,22,2,18643,0)="""DATA"",396.18,473,3,614,0)"
^XMB(3.9,22,2,18644,0)="MTX2GQ%,IKSTCZO$MK!XW$H00AGN&$'SG6)Z7A\N$H56965(I^PP<_^FE\Z]R"
^XMB(3.9,22,2,18645,0)="""DATA"",396.18,473,3,615,0)"
^XMB(3.9,22,2,18646,0)="M`Z^ZFSN\M,&X4P=I%`20Q7U_,>UOUI;/Z\72`!`Y%""*""%'[_;2R""7Z.R_Q`E"
^XMB(3.9,22,2,18647,0)="""DATA"",396.18,473,3,616,0)"
^XMB(3.9,22,2,18648,0)="M=((70:#GN$-_*Y5K);+7GL=AV0^&2SPUO=]CJ1PI#:,#=I(,F$T:I]/YK9$="
^XMB(3.9,22,2,18649,0)="""DATA"",396.18,473,3,617,0)"
^XMB(3.9,22,2,18650,0)="M2@?$YDDJ-N5B<1`R)L-ZFI=$S<54IJQ,%ZM*SB+>HF5'3K2GA/;PH\RR^]7;"
^XMB(3.9,22,2,18651,0)="""DATA"",396.18,473,3,618,0)"
^XMB(3.9,22,2,18652,0)="MS[([*+OPZ\1S_K/8M!LGC/B&Q+2[QQ](;YLU:\VJJ8]9CFOO:$1=5OE&`NK+"
^XMB(3.9,22,2,18653,0)="""DATA"",396.18,473,3,619,0)"
^XMB(3.9,22,2,18654,0)="M:1&3<CN/X0@$0W(G&T5<G2)<_4[:R\SX?VC!UZ.L52=VZ:2`+W9#8NO2%5Z%"
^XMB(3.9,22,2,18655,0)="""DATA"",396.18,473,3,620,0)"
^XMB(3.9,22,2,18656,0)="MN#)JW70-""UQ#^Z2DD=JBA]&Z_C@]3-^0&*/K*WCI3)R=U[8=U--NFCFM<'-P"
^XMB(3.9,22,2,18657,0)="""DATA"",396.18,473,3,621,0)"
^XMB(3.9,22,2,18658,0)="MJU/K-F%""9XWX$*V6Y5JH7WC+6C/!7[#M1W`SZV#S0\\7LE2?[@)#L(=3C=B?"
^XMB(3.9,22,2,18659,0)="""DATA"",396.18,473,3,622,0)"
^XMB(3.9,22,2,18660,0)="MV=TBLMNC0<[OH7X\,)SI[D0(4%9BG^,#@*-T(_U`</J3\-P`G'$LU$(1TB!_"
^XMB(3.9,22,2,18661,0)="""DATA"",396.18,473,3,623,0)"
^XMB(3.9,22,2,18662,0)="MH\XOX0':B^Z:I,`:XP_1&NA9.7\)RL-G\?'Q;H2C](&Y;@=2Z_E('73E<#<L"
^XMB(3.9,22,2,18663,0)="""DATA"",396.18,473,3,624,0)"
^XMB(3.9,22,2,18664,0)="M!R:PX:KK7@M*D#3(_+]&#^:_D%PH3C.L/L>J`TE<6S-K<,R.W51K_KG,QG73"
^XMB(3.9,22,2,18665,0)="""DATA"",396.18,473,3,625,0)"
^XMB(3.9,22,2,18666,0)="M4A1E/(&7Z)(\+W.[H_';#/B5CC7EG(P<CK_3:+2EZRXDP`TRW&APN(PV$_*&"
^XMB(3.9,22,2,18667,0)="""DATA"",396.18,473,3,626,0)"
^XMB(3.9,22,2,18668,0)="M/!\<O2_B#?FP-Q!;[P\$I(=,*?B*\<66XW:ZJ&#0""7F9+KR,P+EF[Y!<TA_-"
^XMB(3.9,22,2,18669,0)="""DATA"",396.18,473,3,627,0)"
^XMB(3.9,22,2,18670,0)="MSZB+:VK+-.MF?5IU4((XN7G""@#U$'Z-'!KS[`A&""""%I(@3;`R3C3)\DK6K4@"
^XMB(3.9,22,2,18671,0)="""DATA"",396.18,473,3,628,0)"
^XMB(3.9,22,2,18672,0)="MT$PK]U^7U8)K,RK.A&>DX+,`$`E/2K/>/U05!:H*A*K_D%!5TF=4<""($3@/L"
^XMB(3.9,22,2,18673,0)="""DATA"",396.18,473,3,629,0)"
^XMB(3.9,22,2,18674,0)="M@X#7?9INS+L@^H?2DD#I/*'TF[)X&#)^@YX2**>.<=/$^HXG,L1S0IC[OWC("
^XMB(3.9,22,2,18675,0)="""DATA"",396.18,473,3,630,0)"
^XMB(3.9,22,2,18676,0)="M9L2VU6<D;@*BF$?3?`H,(""""8[ZSE<I([])AW&2IS/8V]*_2;;,-^V'M5OCP8"
^XMB(3.9,22,2,18677,0)="""DATA"",396.18,473,3,631,0)"
^XMB(3.9,22,2,18678,0)="M$8<0+$6-I_1.JML_YL-21(06DX$)+KM0W2L'@'VW#K>Q!2XUF^HM&W!)&5UL"
^XMB(3.9,22,2,18679,0)="""DATA"",396.18,473,3,632,0)"
^XMB(3.9,22,2,18680,0)="M@JU^$\B^<DPH8KEU!FR+IN7`7#R'@H4E[\Q'BAV!BD5T?9`>FE]FPO""@1YB>"
^XMB(3.9,22,2,18681,0)="""DATA"",396.18,473,3,633,0)"
^XMB(3.9,22,2,18682,0)="M+#_FON7>9RN7""LZ.O1@YX3*0/(KWB%?H549)$/\,_%<=C'MY8+\)-+X516.N"
^XMB(3.9,22,2,18683,0)="""DATA"",396.18,473,3,634,0)"
^XMB(3.9,22,2,18684,0)="M.@@TCDIHK/`TWIL)T'B.VVKZ`-""X.[(P3A.L9*98W(!BT7.Y:B+%@LL7ADFZ"
^XMB(3.9,22,2,18685,0)="""DATA"",396.18,473,3,635,0)"
^XMB(3.9,22,2,18686,0)="MEC(""(SWH:=?5E3/75I2AE84KR\J^2S:&RWD:@\PK(_`6&XJ\&J<T;-<62L-"""
^XMB(3.9,22,2,18687,0)="""DATA"",396.18,473,3,636,0)"
^XMB(3.9,22,2,18688,0)="M$""`(=PYC]724""OQO!M63GDN(HG!H""?=3-Y$K@2HD26E8@*\7;;NN#%TPK(XR"
^XMB(3.9,22,2,18689,0)="""DATA"",396.18,473,3,637,0)"
^XMB(3.9,22,2,18690,0)="M!*%9PXI5_(5&5?ZF3T%__C)X[)8*Q6I(C4K:/YE4&,A>41AM3R""_J.@!M$*;"
^XMB(3.9,22,2,18691,0)="""DATA"",396.18,473,3,638,0)"
^XMB(3.9,22,2,18692,0)="M@/F/X/KLI#\LU<MS*`=+(Y?YK^!M]#S=1O?W=G%GMX0HF!=@\WNW<ME)EF:V"
^XMB(3.9,22,2,18693,0)="""DATA"",396.18,473,3,639,0)"
^XMB(3.9,22,2,18694,0)="M!#]'K,2A=$\*`][?=`+O+Y_>2`HILC^##=NS1&CSS$'WS=1MD-YX2(IN5^13"
^XMB(3.9,22,2,18695,0)="""DATA"",396.18,473,3,640,0)"
^XMB(3.9,22,2,18696,0)="M]H8)Y7\?T3J&^'=9>J,*]':W:?17EF.)1+_W\&G('CZ4=U,Y`G,%6:H@]HE`"
^XMB(3.9,22,2,18697,0)="""DATA"",396.18,473,3,641,0)"
^XMB(3.9,22,2,18698,0)="M<F9WXIXGSW,A=QT;[8<OIOIYQ\<K/N-L+HU?)EKH,LE,KH]RD`KY`2\]*T37"
^XMB(3.9,22,2,18699,0)="""DATA"",396.18,473,3,642,0)"
^XMB(3.9,22,2,18700,0)="M]/S.[:!B#DL=LL2[]A,BO-!K$AUSB.B8A6>,)GCH..H5V^VS!.H""7P'#0""@_"
^XMB(3.9,22,2,18701,0)="""DATA"",396.18,473,3,643,0)"
^XMB(3.9,22,2,18702,0)="MX5T3*#7C/YD&TK`!@2?!7;K>K5D8I@,C?`#+MV[=M.I=H_&@HW9@8`?^`7?0"
^XMB(3.9,22,2,18703,0)="""DATA"",396.18,473,3,644,0)"
^XMB(3.9,22,2,18704,0)="M5&'.-5""M\#<U`ZA;%`4`;VUVF_!F:W?<&16VW9Q6UV!^$/@K#CY,PWA$%X<C"
^XMB(3.9,22,2,18705,0)="""DATA"",396.18,473,3,645,0)"
^XMB(3.9,22,2,18706,0)="M6F87W'V[3JW;@""E$K0TP/GIYT]A4&Q;T`S5M,J753;5NUH`QZD""_'O04>=-S"
^XMB(3.9,22,2,18707,0)="""DATA"",396.18,473,3,646,0)"
^XMB(3.9,22,2,18708,0)="MV(B+:X&)-L$_Z79,XCLWK`:T:IN&6]L@B3IMP]U`P"";3:AOG""`-V`*,7#<+_"
^XMB(3.9,22,2,18709,0)="""DATA"",396.18,473,3,647,0)"
^XMB(3.9,22,2,18710,0)="MZQEU:LE<,SL0-7!6O=@%EW@6;5NX:32Z!O5:7S,[3;""EP'U^L=D&UG`3I19="
^XMB(3.9,22,2,18711,0)="""DATA"",396.18,473,3,648,0)"
^XMB(3.9,22,2,18712,0)="ML-;<#74!^^RG52V7RX,A#3!;O5H].?/^AT]ZINB42%#R#6S,O9""*7Z>4VF*<"
^XMB(3.9,22,2,18713,0)="""DATA"",396.18,473,3,649,0)"
^XMB(3.9,22,2,18714,0)="M6^<]]Q09^ELLSOWB[5#&<8<\$8MD%=R3YIOD97XDJ(0FB!)26?U#GQ7-TIX$"
^XMB(3.9,22,2,18715,0)="""DATA"",396.18,473,3,650,0)"
^XMB(3.9,22,2,18716,0)="M7\4F\E/O<S`[S\L0U7]_E_&*4Q,%LU_;CF""V1CS3%_'BGH]H^B6/9L_V23A;"
^XMB(3.9,22,2,18717,0)="""DATA"",396.18,473,3,651,0)"
^XMB(3.9,22,2,18718,0)="M*W.9`MD3&7]-MQP4FE:,AKCMJSRH-C7Q/R4)%-Q-HCPXK1$)#$K>)%$?^>MI"
^XMB(3.9,22,2,18719,0)="""DATA"",396.18,473,3,652,0)"
^XMB(3.9,22,2,18720,0)="M0'A,8/U,\.VCV[6?MBN&HM,>"")]+"":P9DL3]*LB/[&Z8M*(0!HJ;ZM0%^+]:"
^XMB(3.9,22,2,18721,0)="""DATA"",396.18,473,3,653,0)"
^XMB(3.9,22,2,18722,0)="M,5<^B3(`ZA#D<,W""M84FL&)FQ&!J0""$3JW`$K?>+-)#186;A*VF_:N6#!C()"
^XMB(3.9,22,2,18723,0)="""DATA"",396.18,473,3,654,0)"
^XMB(3.9,22,2,18724,0)="M(JO]D$#2`0E)LRP8O4!\Y22E@6X1<-I>K=6Z&.`0B-FYF@M,`M?JFR:""-,<9"
^XMB(3.9,22,2,18725,0)="""DATA"",396.18,473,3,655,0)"
^XMB(3.9,22,2,18726,0)="M05=D?XMR[XB$V$=\O?@<:[T%TY4@;A<-%4#K@J?78/1*H-SY%.\*?XNY.[RT"
^XMB(3.9,22,2,18727,0)="""DATA"",396.18,473,3,656,0)"
^XMB(3.9,22,2,18728,0)="M^Q!FM#C06>DKB4?B,RFAF^V7);5GYZ]#D""V37T)@/7JH<*H%C""3_H`)U9^,F"
^XMB(3.9,22,2,18729,0)="""DATA"",396.18,473,3,657,0)"
^XMB(3.9,22,2,18730,0)="M&FC""=>U)0J@CT;)+I@.=MT##WK([-Z@""<3@VAH2[\EPGPLQIVG`H%6A*DM/R"
^XMB(3.9,22,2,18731,0)="""DATA"",396.18,473,3,658,0)"
^XMB(3.9,22,2,18732,0)="M%;]7^GV2RBC?]^$KMKK,B1;96<H!V9?CL$!YH=ENV)MF/;P*+(1319Y3-P*<"
^XMB(3.9,22,2,18733,0)="""DATA"",396.18,473,3,659,0)"
^XMB(3.9,22,2,18734,0)="MFN4B,N509+L^8-G1<P[<C$!ESEMKR/YWU?DNE$OEP&(+W4G`WU:,#L;`50YY"
^XMB(3.9,22,2,18735,0)="""DATA"",396.18,473,3,660,0)"
^XMB(3.9,22,2,18736,0)="M7YY;=6""TWK2<IC1H$.*D""&4I28EX#6^Z*N'IGS&>-CR>EBO]S-,QZ%OI;*J7"
^XMB(3.9,22,2,18737,0)="""DATA"",396.18,473,3,661,0)"
^XMB(3.9,22,2,18738,0)="M;,""P.^9-RK`Y&URN@.UGX,R^Q18J)FEW+.C[.F]N&#<MNZ,<07W?ENV:A<#<"
^XMB(3.9,22,2,18739,0)="""DATA"",396.18,473,3,662,0)"
^XMB(3.9,22,2,18740,0)="M79,$9ASE7KA$%KA0`K5R`=AE]BVXQ?D$&V72&^TRN5TJQ[COC!8$\9Z':1<="
^XMB(3.9,22,2,18741,0)="""DATA"",396.18,473,3,663,0)"
^XMB(3.9,22,2,18742,0)="M^+?CY+1QU%L6N+]=`K<XE%H""3)`YH]/9A.WI#G##+D&+!'X)S'33!,:)]S=E"
^XMB(3.9,22,2,18743,0)="""DATA"",396.18,473,3,664,0)"
^XMB(3.9,22,2,18744,0)="M\C&""1LA]-_&$!6/5_%?[+@&>(_^E""]T,AG*`-ER'9_@%P)SUKJF<\""8-^&JV"
^XMB(3.9,22,2,18745,0)="""DATA"",396.18,473,3,665,0)"
^XMB(3.9,22,2,18746,0)="MUMV-6?7Q-L0J!`L.@^#@5=(?7;)O""3\Z2/%+>6!\93((EJ\,P3N]LF?><M;`"
^XMB(3.9,22,2,18747,0)="""DATA"",396.18,473,3,666,0)"
^XMB(3.9,22,2,18748,0)="M'/#%.(%D2ZL-<GQOUZ_0,_*'F87Q)RE.J@>D.E-F214%_'!F2CT:RY0:DIH7"
^XMB(3.9,22,2,18749,0)="""DATA"",396.18,473,3,667,0)"
^XMB(3.9,22,2,18750,0)="M.?ZX&X[(""O.L""Y1@*II3;<^<ZF($>W#EV.2MBWZY?!`[9@)Q\!(->KXE2REB"
^XMB(3.9,22,2,18751,0)="""DATA"",396.18,473,3,668,0)"
^XMB(3.9,22,2,18752,0)="M!!]'TGF<$!U.9+_U0B%X@YD,7\26^1""+[WI7Z',(KA0<3+RA*""?R+&]`Q>MD"
^XMB(3.9,22,2,18753,0)="""DATA"",396.18,473,3,669,0)"
^XMB(3.9,22,2,18754,0)="M(8#VW>6OL#>XE*A""HO:""PW,;=H>W7'<(:10E`X3@C2HCUSJH,-!)A1[5\;BH"
^XMB(3.9,22,2,18755,0)="""DATA"",396.18,473,3,670,0)"
^XMB(3.9,22,2,18756,0)="M""2=W)!N3=6D<!3]&/5)GP^/R,4E,CJBM$<_YO_4F*R()04K6PC-FIV8YYG:2"
^XMB(3.9,22,2,18757,0)="""DATA"",396.18,473,3,671,0)"
^XMB(3.9,22,2,18758,0)="ME8U+%MEZNX6<??EJ%9,)_7+;[KC.=A(5-Z.-1AR7>Q$%3MER(J+&EI""-(3:-"
^XMB(3.9,22,2,18759,0)="""DATA"",396.18,473,3,672,0)"
^XMB(3.9,22,2,18760,0)="M'\3=O""NN?!3YW1PM('DM$2]WKW2,FV9#V,^#R,JX_96)""4,T2(^]5DG$RI$+"
^XMB(3.9,22,2,18761,0)="""DATA"",396.18,473,3,673,0)"
^XMB(3.9,22,2,18762,0)="MIEG?9L4X'%=""JKR;])U(JDK)J#ION!L#+QZQ^VA5>*45S<=D2FMT'J44#SHC"
^XMB(3.9,22,2,18763,0)="""DATA"",396.18,473,3,674,0)"
^XMB(3.9,22,2,18764,0)="M8YMQ94%E17(RGT^HLFRK8;H#S\K=<5E9$E16M%#JR802#&`W!YZ38Y)$FBI_"
^XMB(3.9,22,2,18765,0)="""DATA"",396.18,473,3,675,0)"
^XMB(3.9,22,2,18766,0)="M=?M(.N`)/\69'P/5J7T\[DE'0MO#R%2>\U=5%EAQ?$&/)33QND8&%T+G`SIY"
^XMB(3.9,22,2,18767,0)="""DATA"",396.18,473,3,676,0)"
^XMB(3.9,22,2,18768,0)="MFD7^!=;7Z#J#AJ\6BH/135N>O%#@:YJ/^.'Z'XQ(\XV?QA#@;H&/-2X1YN:8"
^XMB(3.9,22,2,18769,0)="""DATA"",396.18,473,3,677,0)"
^XMB(3.9,22,2,18770,0)="ME$][^6*507!EI2/2MBF`RV-I@=AN6I*W7<J%Y&UG9'G;(8FW1.^>]F45G&'C"
^XMB(3.9,22,2,18771,0)="""DATA"",396.18,473,3,678,0)"
^XMB(3.9,22,2,18772,0)="M;6\J,^U_8?O&VXY$7RFF/KE5'.D]GC_;)DD?]@F^#WM.TRC>YK""0_/8W+%WB"
^XMB(3.9,22,2,18773,0)="""DATA"",396.18,473,3,679,0)"
^XMB(3.9,22,2,18774,0)="M]=LAY>:(#/4:4E\B<<SOBKE_ORW)_3M*<_]00`P!5O8-E(2?+-(A%""]J=C\]"
^XMB(3.9,22,2,18775,0)="""DATA"",396.18,473,3,680,0)"
^XMB(3.9,22,2,18776,0)="M;J<EJ`-U7+,NA%XW2`HUKHRO6TX-T+9NJE,H!((P2U$Z`?X[0O&$N000!@R7"
^XMB(3.9,22,2,18777,0)="""DATA"",396.18,473,3,681,0)"
^XMB(3.9,22,2,18778,0)="M:CJJH78PYCE*,H@*X`;FKO%S_Q+UD[\K\?)6YHRN8T[!R:RA5DVPSXN+2^I0"
^XMB(3.9,22,2,18779,0)="""DATA"",396.18,473,3,682,0)"
^XMB(3.9,22,2,18780,0)="M7-=JX=GEM=,8L:P-V&K7)>%R_RPJ_+;(?IS.XI\EL\BM2$:N=U&@1S9Z?&YH"
^XMB(3.9,22,2,18781,0)="""DATA"",396.18,473,3,683,0)"
^XMB(3.9,22,2,18782,0)="M6I[`=-,4D*?)/%Z1=?N>[W98#B*M*#29M/8B&@PFZH*G_<W_..B$%0+$YKT^"
^XMB(3.9,22,2,18783,0)="""DATA"",396.18,473,3,684,0)"
^XMB(3.9,22,2,18784,0)="MQMO+`BD+4<@,9/:>5,9X?96?_#'R]F4)%NSCR#?NO=O3QY,B0IG&ZK47L%+^"
^XMB(3.9,22,2,18785,0)="""DATA"",396.18,473,3,685,0)"
^XMB(3.9,22,2,18786,0)="MT8!2/A:JE$=[*.71%607@I/T(!Z5?H3CTL-G!1^N=Y!E=UBPZ,DT7[#EHC)P"
^XMB(3.9,22,2,18787,0)="""DATA"",396.18,473,3,686,0)"
^XMB(3.9,22,2,18788,0)="ML"".[+9/$Z_G+=@C'B(F4?1TOR'Y""VXID02C21P<-%6^]Z1;""%EB>O/T'):EB"
^XMB(3.9,22,2,18789,0)="""DATA"",396.18,473,3,687,0)"
^XMB(3.9,22,2,18790,0)="M:!LG?GV%]]+^?BJ\AN(H@>78RB@4AN!/\6TO0U7I9R0;4)5M0+HB,8>K\(ZC"
^XMB(3.9,22,2,18791,0)="""DATA"",396.18,473,3,688,0)"
^XMB(3.9,22,2,18792,0)="M^^AHGY8EPV%81$==M\!E#.&"")!I+RPD6\G,1``LG,'C2IMHD$/=3[8U-!SZ="
^XMB(3.9,22,2,18793,0)="""DATA"",396.18,473,3,689,0)"
^XMB(3.9,22,2,18794,0)="ME*7.A(U'9/IW4\*`+\K@M^F`;6>SMF$9P#JLR4;RW[R.R9NQ:PP2!`E+9I\_"
^XMB(3.9,22,2,18795,0)="""DATA"",396.18,473,3,690,0)"
^XMB(3.9,22,2,18796,0)="M!8JVQM1RU4+""KM^+CGH3-@DV6D2NZENLW4Y)6E!H.7@@""KN48E#_<:`^$DY>"
^XMB(3.9,22,2,18797,0)="""DATA"",396.18,473,3,691,0)"
^XMB(3.9,22,2,18798,0)="MAL*;%NIL#_GK;*&V$?""?2*.8K,FLA2HW0F5K72A/+#2L=0A@`1,/8=([$-<Z"
^XMB(3.9,22,2,18799,0)="""DATA"",396.18,473,3,692,0)"
^XMB(3.9,22,2,18800,0)="MMUW@H:D<N^R7+[KH)Y6[O+\%9>+DEFMR,S%J<O$M;S]7%03M9IU7/W^>""C!-"
^XMB(3.9,22,2,18801,0)="""DATA"",396.18,473,3,693,0)"
^XMB(3.9,22,2,18802,0)="MXY@V4.V0=R795X0+65$[_E'*CQ4)N)""P-?<#W,[RCC76""^.];3:A'OF@_V(+"
^XMB(3.9,22,2,18803,0)="""DATA"",396.18,473,3,694,0)"
^XMB(3.9,22,2,18804,0)="M""1/4/K.@?T6VZXIZXA9Z^R^QWJ=Y!*'+FLG""#[29;)%\VE.$G_(Y\G$O>(*_"
^XMB(3.9,22,2,18805,0)="""DATA"",396.18,473,3,695,0)"
^XMB(3.9,22,2,18806,0)="MI9\G+[..I?2[5)C4\CH_JZ<#4GL_1U9QD*0V=)\6>8I_BN[3SZ7\;<L!Q:7R"
^XMB(3.9,22,2,18807,0)="""DATA"",396.18,473,3,696,0)"
^XMB(3.9,22,2,18808,0)="M(%&<#:.XQ)^S'LE?D))<&222AT+ENLQ?U\Y0N9YG<CW/:>/\()$\'$8Q?]W)"
^XMB(3.9,22,2,18809,0)="""DATA"",396.18,473,3,697,0)"
^XMB(3.9,22,2,18810,0)="M?C4517$Y-T@41^MF>""?F*?]TD').-9>JB?M[IW.B=KYEFC<4A?S_L(;^WU&&"
^XMB(3.9,22,2,18811,0)="""DATA"",396.18,473,3,698,0)"
^XMB(3.9,22,2,18812,0)="M=?I0H`]%^E""B#V7Z4*$/5?(P`E0X?<JS)XT]Z>RIP)Z*[*G$GLKLJ<*>V!@:"
^XMB(3.9,22,2,18813,0)="""DATA"",396.18,473,3,699,0)"
^XMB(3.9,22,2,18814,0)="M&T-C8VAL#(V-H;$Q-#:&QL;0V!@:&T-C8^AL#)V-H;,Q=#:&SL;0V1@Z&T-G"
^XMB(3.9,22,2,18815,0)="""DATA"",396.18,473,3,700,0)"
^XMB(3.9,22,2,18816,0)="M8^AL#)V-46!C%-@8!39&@8U18&,4V!@%-D:!C5%@8Q38&$4V1I&-421CI'H)"
^XMB(3.9,22,2,18817,0)="""DATA"",396.18,473,3,701,0)"
^XMB(3.9,22,2,18818,0)="M).]MRVP2>7Q59BJ4\[WD,1MH&':AVVA`YY8R""G:1>QH][@$F[MII:A0I(\OH"
^XMB(3.9,22,2,18819,0)="""DATA"",396.18,473,3,702,0)"
^XMB(3.9,22,2,18820,0)="M+H@P;)`=W&O&HE=I,\JZ*6B]ICS4+]8-S28A9""T'R#K,D:4/DD[,)+')""YQ-"
^XMB(3.9,22,2,18821,0)="""DATA"",396.18,473,3,703,0)"
^XMB(3.9,22,2,18822,0)="MSH#W?BX`#029D`P:Z&[.)""?^C<:F2J4P6?OJ=-@:""IMI*J#<CW&;J3!`D`O["
^XMB(3.9,22,2,18823,0)="""DATA"",396.18,473,3,704,0)"
^XMB(3.9,22,2,18824,0)="M5L!7JV8=`@:LVO8-<@\7O\SS.;\T-ON?+!;S&^E]X/>1-.]A/T!DCP*R7=38"
^XMB(3.9,22,2,18825,0)="""DATA"",396.18,473,3,705,0)"
^XMB(3.9,22,2,18826,0)="M=2_]`XVGC-,O)($']A;""`X^<H^`9?+@&KO`I/-DA'&#U<AQ)5(0OT;U'2BS["
^XMB(3.9,22,2,18827,0)="""DATA"",396.18,473,3,706,0)"
^XMB(3.9,22,2,18828,0)="M,SG0\:YEG=,8V9],5K'[\718Q>ZN<[#)UO""(T9AK6&`%^0I>(8BEK#HP`V)'"
^XMB(3.9,22,2,18829,0)="""DATA"",396.18,473,3,707,0)"
^XMB(3.9,22,2,18830,0)="M\9XX!_$^T4$L%#B_&\!`G]O9:4?T/=7Y3MZD'W3V][QF:EX+4=(FES31W`%L"
^XMB(3.9,22,2,18831,0)="""DATA"",396.18,473,3,708,0)"
^XMB(3.9,22,2,18832,0)="MA/A(!MXR[?<MD[!.Y_WKE/U4:D>A<.11;Z%D-3,;6*/C7M[$O%WKHC`HK9#:"
^XMB(3.9,22,2,18833,0)="""DATA"",396.18,473,3,709,0)"
^XMB(3.9,22,2,18834,0)="MR67:4G^,8H4G=B*""V,GS7:M1'Q@P.&E^094G=CV""V,.D735KG8#A%W9R>3/Q"
^XMB(3.9,22,2,18835,0)="""DATA"",396.18,473,3,710,0)"
^XMB(3.9,22,2,18836,0)="M=Z%/61:X39C]>BJP""]],[2A=\J4B0:<7L`?GDS2V-1=L'3>\9)ZVVV9K)XG8"
^XMB(3.9,22,2,18837,0)="""DATA"",396.18,473,3,711,0)"
^XMB(3.9,22,2,18838,0)="ME;`I]2$IIB67()CY4.`.=2_7HRE9H\U[.$`XC)U&844<F-#!6:T[VV\S5$+B"
^XMB(3.9,22,2,18839,0)="""DATA"",396.18,473,3,712,0)"
^XMB(3.9,22,2,18840,0)="M\4_G^7<@@`?*\R^9T?\`Q[^-8)\\TEZLW]F8BLE&C<]3?8ENO(8_4`C9F$_$"
^XMB(3.9,22,2,18841,0)="""DATA"",396.18,473,3,713,0)"
^XMB(3.9,22,2,18842,0)="MQH,<&TG;W6:_,VTHY""31>?64.>[73D?[2CMM*1=/$RC\2']3F-WRX4@6\IV4"
^XMB(3.9,22,2,18843,0)="""DATA"",396.18,473,3,714,0)"
^XMB(3.9,22,2,18844,0)="M<)5XAQV./YWN@>9""6IJ1ZNW+Z0`D@9<?<W;1P=EA1@LEA5DMK$-P#T77[-P$"
^XMB(3.9,22,2,18845,0)="""DATA"",396.18,473,3,715,0)"
^XMB(3.9,22,2,18846,0)="MES9SM0/+5BVGICJ;K7K';IKJU.(3\\LGS_:$*Q/=<!39]^N2Z\4$,7!@B?VF"
^XMB(3.9,22,2,18847,0)="""DATA"",396.18,473,3,716,0)"
^XMB(3.9,22,2,18848,0)="M@Q*K8YM6,0&:A;CH=ZD>>3*@CO.5HI9(CXQA4-.V8;7Z77V$=L8E-MDMQ)PT"
^XMB(3.9,22,2,18849,0)="""DATA"",396.18,473,3,717,0)"
^XMB(3.9,22,2,18850,0)="MS:FZ'&[=Q._]&""\77_""0/>)7\G1Q-#U72A:S'B'@#(E=8;&F35O,9_G^%/)I"
^XMB(3.9,22,2,18851,0)="""DATA"",396.18,473,3,718,0)"
^XMB(3.9,22,2,18852,0)="M%Q-->\)#B<""PB<GFGXF[*^CE$N^*EU,1%$34H,HHV+T,_KP&(3*233T;>^H5"
^XMB(3.9,22,2,18853,0)="""DATA"",396.18,473,3,719,0)"
^XMB(3.9,22,2,18854,0)="M?NI?BIQZ)='41RFX1[*9#\6>.2\U[`8DGWDR:5>6VZ(1$V/:N^).FV9L*6)["
^XMB(3.9,22,2,18855,0)="""DATA"",396.18,473,3,720,0)"
^XMB(3.9,22,2,18856,0)="MV`\'#5HM%],2ZVME&7:J4<'#RK*52%GNWI:SC`+H80&Z-QWP'/""*)]FV?=##"
^XMB(3.9,22,2,18857,0)="""DATA"",396.18,473,3,721,0)"
^XMB(3.9,22,2,18858,0)="MKEAK`*Z<[K81+`FZF7D=SI*)6!A0-<T$P9S,)^+DV)9-+)*]]P]IP<3Z;ZF)"
^XMB(3.9,22,2,18859,0)="""DATA"",396.18,473,3,722,0)"
^XMB(3.9,22,2,18860,0)="M)45YH?C:8WPW<UD[OO%Y8-743.?,.:O^?^5=S6\;113?=!NK#9`4M2F@<ECE"
^XMB(3.9,22,2,18861,0)="""DATA"",396.18,473,3,723,0)"
^XMB(3.9,22,2,18862,0)="MTE9RTNS&3FP+*0HE$A5-TH1""A#BMUYLX96-;NUZ""#TB]EA,(.'`L4N](G/@/"
^XMB(3.9,22,2,18863,0)="""DATA"",396.18,473,3,724,0)"
^XMB(3.9,22,2,18864,0)="M.'`""<>7*@5N!$P+QWGSM3':\L9.TMMM<VKH;S[S9-V_>Q[S?+])#`Y>DKS*_"
^XMB(3.9,22,2,18865,0)="""DATA"",396.18,473,3,725,0)"
^XMB(3.9,22,2,18866,0)="MY:;@G@8@[3;B[W(FP89UX`:803^*:LZ6^Y\20MV6AM1[(P5SQ[H.*G+M<DJM"
^XMB(3.9,22,2,18867,0)="""DATA"",396.18,473,3,726,0)"
^XMB(3.9,22,2,18868,0)="M72KS_\Y(<4I-2V[5?*]4$9,(<^;N5^,`D8P[N9GW2%T0LP0H-AR)O/ZX`SYC"
^XMB(3.9,22,2,18869,0)="""DATA"",396.18,473,3,727,0)"
^XMB(3.9,22,2,18870,0)="MQPUK46YZ17[""OE&P]O<""/Y=?T?\B?X#<7GO#LNG3E]4OF5T@'T>Y5]>;%/^8"
^XMB(3.9,22,2,18871,0)="""DATA"",396.18,473,3,728,0)"
^XMB(3.9,22,2,18872,0)="M.LCL`9BLD<F88LMZ\LKAM3$?)#A*I4+I&(PI%VXVPQ#)4#[V+=CD,-&IC;!="
^XMB(3.9,22,2,18873,0)="""DATA"",396.18,473,3,729,0)"
^XMB(3.9,22,2,18874,0)="M!X?!0X@M\-[QFL1-%\E5'/)GE!M_,W0]/W<./@_CME?/33CL;_""?N6T0RP]S"
^XMB(3.9,22,2,18875,0)="""DATA"",396.18,473,3,730,0)"
^XMB(3.9,22,2,18876,0)="M$]MUWP^\NKMWC`N<1L\7.""70J:*\5N9O*44R'QG""IME.<30*Q`2*+[LV]](="
^XMB(3.9,22,2,18877,0)="""DATA"",396.18,473,3,731,0)"
^XMB(3.9,22,2,18878,0)="M?J\6$<S[J-#9F@K=&;'MC&[UN6>\$%>262*Y:?])U""T_'QOLO#60LL5B0<(,"
^XMB(3.9,22,2,18879,0)="""DATA"",396.18,473,3,732,0)"
^XMB(3.9,22,2,18880,0)="M,[\T4@SV!:$LOT/`OM>V.J""P5A,.9&*+$,O3#6#7Q[MUDD3=VEC#?J_0K\4>"
^XMB(3.9,22,2,18881,0)="""DATA"",396.18,473,3,733,0)"
^XMB(3.9,22,2,18882,0)="M,DZ2$!\1Y?V(8*[/-)""U+YA)B$L3Y':KZHNF#%#:O%5MUCI6W:WNM>,H3P'B"
^XMB(3.9,22,2,18883,0)="""DATA"",396.18,473,3,734,0)"
^XMB(3.9,22,2,18884,0)="M@^8NV!?&8IO'C"",%2-UQ/;#6D14W0A\,-X0N+*LK(8OBD`?U/:_.>'6Q12UB"
^XMB(3.9,22,2,18885,0)="""DATA"",396.18,473,3,735,0)"
^XMB(3.9,22,2,18886,0)="MR,HM/T2$7+^V?`2=:+$H(UF:?_`E^U?3M^""L?M(*(#*'43MB=2)8K*`&PZ)#"
^XMB(3.9,22,2,18887,0)="""DATA"",396.18,473,3,736,0)"
^XMB(3.9,22,2,18888,0)="M@[RJV*O#EV5.ZF;09S5D@CU1D+LO!K^6Q$!@A%N4K.JD'#<L+_20[O<7,@:="
^XMB(3.9,22,2,18889,0)="""DATA"",396.18,473,3,737,0)"
^XMB(3.9,22,2,18890,0)="MQ'0$O,FU./+@[#IA08[[#],*%91NW/,KC8\Z`8(U2^[3L1B+""HJL66-.;7%R"
^XMB(3.9,22,2,18891,0)="""DATA"",396.18,473,3,738,0)"
^XMB(3.9,22,2,18892,0)="M@;6FNLKC/?=Z':H1\]$WQQ1""\Z3/ZW[2YS6YAFFQ301W1K=LD!G'\SKG;VE)"
^XMB(3.9,22,2,18893,0)="""DATA"",396.18,473,3,739,0)"
^XMB(3.9,22,2,18894,0)="M1CO^FN^3KW2=4EL^`F&!G4`87DICG;B""GE]Y$G>S3@+%76#=9N8WAI)=_$+7"
^XMB(3.9,22,2,18895,0)="""DATA"",396.18,473,3,740,0)"
^XMB(3.9,22,2,18896,0)="MATGX'4%+6J"">Q%NZ#:9K-_:O1D3(C/XE;=JGJ-PCX-<F'FA*.UG0+;KPZPI8"
^XMB(3.9,22,2,18897,0)="""DATA"",396.18,473,3,741,0)"
^XMB(3.9,22,2,18898,0)="M>'5N8LXC6,_1+YXC+U[$%N_>F&;QG/X6[^UM-[+:N!GA-,&3IM%LS#;#7;>!"
^XMB(3.9,22,2,18899,0)="""DATA"",396.18,473,3,742,0)"
^XMB(3.9,22,2,18900,0)="M?4G<S\)%A:,LBN$0@N>WW5K-#Y!1!8/;V&LKU^:&M0B4\I\YQPS=ZH_X5O]0"
^XMB(3.9,22,2,18901,0)="""DATA"",396.18,473,3,743,0)"
^XMB(3.9,22,2,18902,0)="MF*U?#&E=G1'O?M(KED)5PG+(IJ-3++N_M-HRN67):R$[""&X<0R#I6AZX%ONT"
^XMB(3.9,22,2,18903,0)="""DATA"",396.18,473,3,744,0)"
^XMB(3.9,22,2,18904,0)="MSQ>B+8SU9T&+&CYJD399,JP%;7U5@.4IZV1!UUB,L=R]Y-9[`:P[AHFC6/77"
^XMB(3.9,22,2,18905,0)="""DATA"",396.18,473,3,745,0)"
^XMB(3.9,22,2,18906,0)="M4U9=)!1*2X4CN[Q2F87Q+7PD1\:`4!@<5\O(NC&F=K&([E\!$7RFGG3(WE)+"
^XMB(3.9,22,2,18907,0)="""DATA"",396.18,473,3,746,0)"
^XMB(3.9,22,2,18908,0)="M9F^A;_`N*YEI>K_E@[I<EE5W*@4.L2X8HMX9,XSUC;NK%:16(LZ[7+F#?QY5"
^XMB(3.9,22,2,18909,0)="""DATA"",396.18,473,3,747,0)"
^XMB(3.9,22,2,18910,0)="MO,MS.P?J*VRB]!UY^&TOB!&G3W;WE2=P#$+S$5%7$\XK<NWLFD<V`5(%@/L`"
^XMB(3.9,22,2,18911,0)="""DATA"",396.18,473,3,748,0)"
^XMB(3.9,22,2,18912,0)="M(0GL%-3\JAM>MUP""A4MY+LB,6`0Q1R7!C"",H)R>PHFFN'8@_#OP`]U<U0$,="
^XMB(3.9,22,2,18913,0)="""DATA"",396.18,473,3,749,0)"
^XMB(3.9,22,2,18914,0)="M$FX""2N!DU6*2JZ&I2?@VLIMQ=@@S3IQ]&:Q<7B?XM-V$J2E<&UUNI#F*-YKE"
^XMB(3.9,22,2,18915,0)="""DATA"",396.18,473,3,750,0)"
^XMB(3.9,22,2,18916,0)="M[K^\+M:+Q?/]`]XH-6^90SG;YU?ISTZ[=LKSM/3*UH_\</DUU5,*IK4XWU?J"
^XMB(3.9,22,2,18917,0)="""DATA"",396.18,473,3,751,0)"
^XMB(3.9,22,2,18918,0)="MW^QFJW*7UN=6D.&+1K,T.+NN-HRF3D%>1J2!X3_I6/JJ--%1:SKK(9LT?A>\"
^XMB(3.9,22,2,18919,0)="""DATA"",396.18,473,3,752,0)"
^XMB(3.9,22,2,18920,0)="MGZB/+)+S/&>1=*D%=B/:;-/P[]/ND""B76+Z\'=<Z/&RJ#`E/49$A27`Q7CP,"
^XMB(3.9,22,2,18921,0)="""DATA"",396.18,473,3,753,0)"
^XMB(3.9,22,2,18922,0)="MMI:(<?E6!+:PY0^K(,ST6&1'_\E5]'T-50ZH7(-8WL""M#I\<BY(<7*VTP:JU"
^XMB(3.9,22,2,18923,0)="""DATA"",396.18,473,3,754,0)"
^XMB(3.9,22,2,18924,0)="MBIGVL%FCW%>8RQ_25[,DB\15S->IV+Z[B_[$X.5(G1C<WZ0;)6G-7A)'Q@?T"
^XMB(3.9,22,2,18925,0)="""DATA"",396.18,473,3,755,0)"
^XMB(3.9,22,2,18926,0)="MR#B[6'(61JD'7192-6I7LF1T1@,$,2UC0384_`J35D:[/!J-]6D9%6.8K:OS"
^XMB(3.9,22,2,18927,0)="""DATA"",396.18,473,3,756,0)"
^XMB(3.9,22,2,18928,0)="MHU$B2\NH&,I,51T1?N?>?&R>SF3@EO_QE_M:&I!W87&AOQN*E6V?WNH0Z5TL"
^XMB(3.9,22,2,18929,0)="""DATA"",396.18,473,3,757,0)"
^XMB(3.9,22,2,18930,0)="M[P0!299%+.##-$8C*<N$)!]\>JF+OY](ZF*\%Z\XH9'LPS->.)YG_$SW/^H8"
^XMB(3.9,22,2,18931,0)="""DATA"",396.18,473,3,758,0)"
^XMB(3.9,22,2,18932,0)="MCQ@AYL4QY>9Y04/FR3E'*X.H('2M&+,(Z""*9_AVVZ1Z+%VT/<L6[]""(Q""WE!"
^XMB(3.9,22,2,18933,0)="""DATA"",396.18,473,3,759,0)"
^XMB(3.9,22,2,18934,0)="MIB4V?Q93MDZ?/_5I]6L>>C=%Z=V8GW&+^+THYY^3(!=92QQ:MAJ7NC+(EW<V"
^XMB(3.9,22,2,18935,0)="""DATA"",396.18,473,3,760,0)"
^XMB(3.9,22,2,18936,0)="MC46]*""%]BRS?0R'.XR1%;Y?G1Z23/B5D43$(-_A+$\?8IB2D/1H.=4]]2F79"
^XMB(3.9,22,2,18937,0)="""DATA"",396.18,473,3,761,0)"
^XMB(3.9,22,2,18938,0)="MD'#W\P<C!>-E.^7^[H);6-9R+8ZVM\$N?FQ15N%^41Z,3)Q3^+%E.:Q3-XA_"
^XMB(3.9,22,2,18939,0)="""DATA"",396.18,473,3,762,0)"
^XMB(3.9,22,2,18940,0)="MG4Z+]""%<V&3>1UO%B00ON@\CA3__`U!+`P04``(`""`!@B+@T@E><^)^V``!/"
^XMB(3.9,22,2,18941,0)="""DATA"",396.18,473,3,763,0)"
^XMB(3.9,22,2,18942,0)="M614`$0```%-P:6YE7S$Q,2YP;FPN9G)M[?UKDQRW=N<+OY^(^0X5>^(,I6-*"
^XMB(3.9,22,2,18943,0)="""DATA"",396.18,473,3,764,0)"
^XMB(3.9,22,2,18944,0)="M3B2R\J(8'P>9G;7%.93$1^2VCF/""X2AV)]EE55>UJZHIT0Y_]P?(*Y``,I&W"
^XMB(3.9,22,2,18945,0)="""DATA"",396.18,473,3,765,0)"
^XMB(3.9,22,2,18946,0)="MZMN?]+;8U=T_``MK`0NWM?8?_RV]/""W>KC^FVP]?;]-?/JWVAYL?%A^R3_[["
^XMB(3.9,22,2,18947,0)="""DATA"",396.18,473,3,766,0)"
^XMB(3.9,22,2,18948,0)="M?ULLWJ:?3HM_6'SG.@[_\L/^EGT5\G_^MKDZ7;,O:,2_^C'=?+[F/TDH_S)>"
^XMB(3.9,22,2,18949,0)="""DATA"",396.18,473,3,767,0)"
^XMB(3.9,22,2,18950,0)="MWYXV^QW[^L5/R:]_35[\]_^6[J[^^W_;""P7RHMY<=!;F>E)I;GMI[]^]^;E9"
^XMB(3.9,22,2,18951,0)="""DATA"",396.18,473,3,768,0)"
^XMB(3.9,22,2,18952,0)="M6O;9O[Y;[](M\5EYV;^$\H@7UL7Y5""QNZ?I2>6Z4U>;'S8Y_]>+=+^_^]NX%"
^XMB(3.9,22,2,18953,0)="""DATA"",396.18,473,3,769,0)"
^XMB(3.9,22,2,18954,0)="M_^1U^B7=OMGMT@/[_..77]>;8WJ5?6-_N$H/[T]?MRG_SO']9O=YFV:UWF_W"
^XMB(3.9,22,2,18955,0)="""DATA"",396.18,473,3,770,0)"
^XMB(3.9,22,2,18956,0)="M_*<OM^\WVR_I@7^VVN].W\?7Z\,QY05<)*M7?WO[X5_C'U_]^C[Y4/]$]:NO"
^XMB(3.9,22,2,18957,0)="""DATA"",396.18,473,3,771,0)"
^XMB(3.9,22,2,18958,0)="MM^O+WZO/JWI^1TCUX<_KFS3KB/>+]^O=<?$^/6P^O:B^75;M__P+_^C=^I#N"
^XMB(3.9,22,2,18959,0)="""DATA"",396.18,473,3,772,0)"
^XMB(3.9,22,2,18960,0)="M3OP;[*/5>GO,JOIA_?$7W@SV6=8SDF""S[G/%?JPDZSHD_SJ7[3+_HA0N(<4'"
^XMB(3.9,22,2,18961,0)="""DATA"",396.18,473,3,773,0)"
^XMB(3.9,22,2,18962,0)="M=7?Z^0=BA]YN=ND/B]665>R[N]OCB_PGN@5E%I4JK*7PL5E<38%].K[>;Z_^"
^XMB(3.9,22,2,18963,0)="""DATA"",396.18,473,3,774,0)"
^XMB(3.9,22,2,18964,0)="M)?^67G""9&NKD10*#P!Q18&Y#8DNG*3""J""&QU2/_]+MU=?GW17H%06P'JMU;`"
^XMB(3.9,22,2,18965,0)="""DATA"",396.18,473,3,775,0)"
^XMB(3.9,22,2,18966,0)="MLZC`Q=UAS?_=7KY+#`(0BP\<N?C([R[^W2&]W-QN3JP.N\^+3^O+T_YP_*&C"
^XMB(3.9,22,2,18967,0)="""DATA"",396.18,473,3,776,0)"
^XMB(3.9,22,2,18968,0)="M,E1?&3]HJTUH49M7VVWZ9=.G+IYO(1CB18V.*:M:#U6*+>5?+Q8ODC]/3%=?"
^XMB(3.9,22,2,18969,0)="""DATA"",396.18,473,3,777,0)"
^XMB(3.9,22,2,18970,0)="M+C:?%NO=UY>+6V;97])3>ECO7BY.U^G7Q2$]WFU/B\UNL;ZZVO#?7V\7V\U-"
^XMB(3.9,22,2,18971,0)="""DATA"",396.18,473,3,778,0)"
^XMB(3.9,22,2,18972,0)="M)M;]B\7?5:S=8O]I<;//BF""&MF>_?EA\NMM=%K^TN;E=;PXWK+S%U=V!BX']"
^XMB(3.9,22,2,18973,0)="""DATA"",396.18,473,3,779,0)"
^XMB(3.9,22,2,18974,0)="MQ.)38<X_%(;U&QLE?SNL>=,^'.Z,IO/Z[G3:[UQN._D_91&Y5-9=7Y91T!QN"
^XMB(3.9,22,2,18975,0)="""DATA"",396.18,473,3,780,0)"
^XMB(3.9,22,2,18976,0)="M2NT6^BO>[H_I+&,,&33&M(XNTL!<-/:77;S=7/[./O@S%]%?4S8I;2ZS3TUR"
^XMB(3.9,22,2,18977,0)="""DATA"",396.18,473,3,781,0)"
^XMB(3.9,22,2,18978,0)="MC=_]]M.OZZO-_J^'_=TM\;AMRI])@B:M8P0)FX-$/FG7TZ9+G6!9-/?]]?Z/"
^XMB(3.9,22,2,18979,0)="""DATA"",396.18,473,3,782,0)"
^XMB(3.9,22,2,18980,0)="M?(Z46_:_[XZGS:>O;T[IS5'0BL6""?_)N?668+=@T?-B<OA9PUC%W-SO^^[3^"
^XMB(3.9,22,2,18981,0)="""DATA"",396.18,473,3,783,0)"
^XMB(3.9,22,2,18982,0)="MY2.3+E=$_O$WE1[_M-E>O:B_VK,*K4]I_4E&3E]\J\C=,0IU?_-Q_WK_)Y\:"
^XMB(3.9,22,2,18983,0)="""DATA"",396.18,473,3,784,0)"
^XMB(3.9,22,2,18984,0)="MRW^WS8ZT8=+$4_25J')T7]0M4P8BH9JD2P""_I>GOVZ]U@Q/6WJ\+=W':+^CB"
^XMB(3.9,22,2,18985,0)="""DATA"",396.18,473,3,785,0)"
^XMB(3.9,22,2,18986,0)="M#_;-8_-[A'_/9<:_.UTKWZ3\FY[AFTO^35_YYB^[RW2Q7GQ-UX?ZP[?I\<C&"
^XMB(3.9,22,2,18987,0)="""DATA"",396.18,473,3,786,0)"
^XMB(3.9,22,2,18988,0)="MC/4N^YS5\-LN@5.3P!N3VR""!^Y&EP-TN@?^XOSL(C2^D>;7^*GR823%H?%C\"
^XMB(3.9,22,2,18989,0)="""DATA"",396.18,473,3,787,0)"
^XMB(3.9,22,2,18990,0)="M9*-/7J<G]LF.?6.]NV*2;WS[I_TAS<6XSN5NEN-/Z<T^<Y3Y/]HFQ)#*`G1I"
^XMB(3.9,22,2,18991,0)="""DATA"",396.18,473,3,788,0)"
^XMB(3.9,22,2,18992,0)="M<T8LAV!1@.$LPZNK&5YC)N$-ZXR?TS_:!M>WS,/4=U%I[J;A]_WE8;_=OF9-"
^XMB(3.9,22,2,18993,0)="""DATA"",396.18,473,3,789,0)"
^XMB(3.9,22,2,18994,0)="M8)\?C_^4'DZ;R_56T06O3=39=*:*VADMZ<![?I*FK9(.NR5-@J;+6\J^$D&@"
^XMB(3.9,22,2,18995,0)="""DATA"",396.18,473,3,790,0)"
^XMB(3.9,22,2,18996,0)="M&8;)\Q/ULA*U:;$=:!;;;E2OM:65O>\OI:6V5RR]G^]2FQA6;DOM`H'D6Q/5"
^XMB(3.9,22,2,18997,0)="""DATA"",396.18,473,3,791,0)"
^XMB(3.9,22,2,18998,0)="M/D9CP`@""Z[7VS_O##?/<X_3PA7?\XM?U[G/*W?R?]M6Z;FI-I^=<@>>.,26&"
^XMB(3.9,22,2,18999,0)="""DATA"",396.18,473,3,792,0)"
^XMB(3.9,22,2,19000,0)="M942TE+V$9=<R@K8N(YJ^XD`?/7/#F4=#N#]9?B%5?.E*;GECRECZI.F6^[[)"
^XMB(3.9,22,2,19001,0)="""DATA"",396.18,473,3,793,0)"
^XMB(3.9,22,2,19002,0)="M391*?G.S_IP2AQ6;_:L<2$JGJEQH2KN#DNZ5*P1)^Z+RLW>;R]/=(?W^8GU:"
^XMB(3.9,22,2,19003,0)="""DATA"",396.18,473,3,794,0)"
^XMB(3.9,22,2,19004,0)="ML^_\9_GY8L%6""1X;!J+`\R]\$CA^$B:.[SB>ZUV4_R[_T.+?;IC_]\(KO>N,"
^XMB(3.9,22,2,19005,0)="""DATA"",396.18,473,3,795,0)"
^XMB(3.9,22,2,19006,0)="MQ'^""^=O9M]C_)Z'PFZ%,TOV12:L1?VK2:N0?D$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19007,0)="""DATA"",396.18,473,3,796,0)"
^XMB(3.9,22,2,19008,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19009,0)="""DATA"",396.18,473,3,797,0)"
^XMB(3.9,22,2,19010,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19011,0)="""DATA"",396.18,473,3,798,0)"
^XMB(3.9,22,2,19012,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19013,0)="""DATA"",396.18,473,3,799,0)"
^XMB(3.9,22,2,19014,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19015,0)="""DATA"",396.18,473,3,800,0)"
^XMB(3.9,22,2,19016,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19017,0)="""DATA"",396.18,473,3,801,0)"
^XMB(3.9,22,2,19018,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19019,0)="""DATA"",396.18,473,3,802,0)"
^XMB(3.9,22,2,19020,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19021,0)="""DATA"",396.18,473,3,803,0)"
^XMB(3.9,22,2,19022,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19023,0)="""DATA"",396.18,473,3,804,0)"
^XMB(3.9,22,2,19024,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19025,0)="""DATA"",396.18,473,3,805,0)"
^XMB(3.9,22,2,19026,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19027,0)="""DATA"",396.18,473,3,806,0)"
^XMB(3.9,22,2,19028,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19029,0)="""DATA"",396.18,473,3,807,0)"
^XMB(3.9,22,2,19030,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19031,0)="""DATA"",396.18,473,3,808,0)"
^XMB(3.9,22,2,19032,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19033,0)="""DATA"",396.18,473,3,809,0)"
^XMB(3.9,22,2,19034,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19035,0)="""DATA"",396.18,473,3,810,0)"
^XMB(3.9,22,2,19036,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19037,0)="""DATA"",396.18,473,3,811,0)"
^XMB(3.9,22,2,19038,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19039,0)="""DATA"",396.18,473,3,812,0)"
^XMB(3.9,22,2,19040,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19041,0)="""DATA"",396.18,473,3,813,0)"
^XMB(3.9,22,2,19042,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19043,0)="""DATA"",396.18,473,3,814,0)"
^XMB(3.9,22,2,19044,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19045,0)="""DATA"",396.18,473,3,815,0)"
^XMB(3.9,22,2,19046,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19047,0)="""DATA"",396.18,473,3,816,0)"
^XMB(3.9,22,2,19048,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19049,0)="""DATA"",396.18,473,3,817,0)"
^XMB(3.9,22,2,19050,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19051,0)="""DATA"",396.18,473,3,818,0)"
^XMB(3.9,22,2,19052,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19053,0)="""DATA"",396.18,473,3,819,0)"
^XMB(3.9,22,2,19054,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19055,0)="""DATA"",396.18,473,3,820,0)"
^XMB(3.9,22,2,19056,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19057,0)="""DATA"",396.18,473,3,821,0)"
^XMB(3.9,22,2,19058,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19059,0)="""DATA"",396.18,473,3,822,0)"
^XMB(3.9,22,2,19060,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19061,0)="""DATA"",396.18,473,3,823,0)"
^XMB(3.9,22,2,19062,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19063,0)="""DATA"",396.18,473,3,824,0)"
^XMB(3.9,22,2,19064,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19065,0)="""DATA"",396.18,473,3,825,0)"
^XMB(3.9,22,2,19066,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19067,0)="""DATA"",396.18,473,3,826,0)"
^XMB(3.9,22,2,19068,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19069,0)="""DATA"",396.18,473,3,827,0)"
^XMB(3.9,22,2,19070,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19071,0)="""DATA"",396.18,473,3,828,0)"
^XMB(3.9,22,2,19072,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19073,0)="""DATA"",396.18,473,3,829,0)"
^XMB(3.9,22,2,19074,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19075,0)="""DATA"",396.18,473,3,830,0)"
^XMB(3.9,22,2,19076,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19077,0)="""DATA"",396.18,473,3,831,0)"
^XMB(3.9,22,2,19078,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19079,0)="""DATA"",396.18,473,3,832,0)"
^XMB(3.9,22,2,19080,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19081,0)="""DATA"",396.18,473,3,833,0)"
^XMB(3.9,22,2,19082,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19083,0)="""DATA"",396.18,473,3,834,0)"
^XMB(3.9,22,2,19084,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19085,0)="""DATA"",396.18,473,3,835,0)"
^XMB(3.9,22,2,19086,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19087,0)="""DATA"",396.18,473,3,836,0)"
^XMB(3.9,22,2,19088,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19089,0)="""DATA"",396.18,473,3,837,0)"
^XMB(3.9,22,2,19090,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19091,0)="""DATA"",396.18,473,3,838,0)"
^XMB(3.9,22,2,19092,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19093,0)="""DATA"",396.18,473,3,839,0)"
^XMB(3.9,22,2,19094,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19095,0)="""DATA"",396.18,473,3,840,0)"
^XMB(3.9,22,2,19096,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19097,0)="""DATA"",396.18,473,3,841,0)"
^XMB(3.9,22,2,19098,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19099,0)="""DATA"",396.18,473,3,842,0)"
^XMB(3.9,22,2,19100,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19101,0)="""DATA"",396.18,473,3,843,0)"
^XMB(3.9,22,2,19102,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19103,0)="""DATA"",396.18,473,3,844,0)"
^XMB(3.9,22,2,19104,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19105,0)="""DATA"",396.18,473,3,845,0)"
^XMB(3.9,22,2,19106,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19107,0)="""DATA"",396.18,473,3,846,0)"
^XMB(3.9,22,2,19108,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19109,0)="""DATA"",396.18,473,3,847,0)"
^XMB(3.9,22,2,19110,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19111,0)="""DATA"",396.18,473,3,848,0)"
^XMB(3.9,22,2,19112,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19113,0)="""DATA"",396.18,473,3,849,0)"
^XMB(3.9,22,2,19114,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19115,0)="""DATA"",396.18,473,3,850,0)"
^XMB(3.9,22,2,19116,0)="M""2200`()))!``@DDD$`""""2200`()))!``@DDD$`""""2200`()))!``@DDD$`"""
^XMB(3.9,22,2,19117,0)="""DATA"",396.18,473,3,851,0)"
^XMB(3.9,22,2,19118,0)="M""2200`()))!``@DDD$`""""2200`()))!``NG9DDCV%W(""""2200`()))!``@DD"
^XMB(3.9,22,2,19119,0)="""DATA"",396.18,473,3,852,0)"
^XMB(3.9,22,2,19120,0)="MD!X0R?&:?R$GD$`""""2200`()))!``NEAD*2U2IS];5VU0.(@@0022""""!!!)("
^XMB(3.9,22,2,19121,0)="""DATA"",396.18,473,3,853,0)"
^XMB(3.9,22,2,19122,0)="M(($$TOPD]63%_JP%$@<)))!``@DDD$`""""2201I""4%RGR2J1EW6)UR@*)@P02"
^XMB(3.9,22,2,19123,0)="""DATA"",396.18,473,3,854,0)"
^XMB(3.9,22,2,19124,0)="M2""""!!!)((($$$D@C2=FJQ71NTK%NL3IE@<1!`@DDD$`""""2200`()I&&D]K6'"
^XMB(3.9,22,2,19125,0)="""DATA"",396.18,473,3,855,0)"
^XMB(3.9,22,2,19126,0)="M_KQ%\YO9B8NX`H+$00()))!``@DDD$`""J9UDNL.D_RN>(W3[W(]?3C:G))KO"
^XMB(3.9,22,2,19127,0)="""DATA"",396.18,473,3,856,0)"
^XMB(3.9,22,2,19128,0)="M$H'4<C(#S00)))!``@DDD$`""""20;DLVK<<MW&[(O+JYIM.N;1_2:7CP?:5^O"
^XMB(3.9,22,2,19129,0)="""DATA"",396.18,473,3,857,0)"
^XMB(3.9,22,2,19130,0)="M:.LT9M4""'0<)))!``@DDD$`"""":3^*Y@^<;(>@YS:6F?S.]8KH)ZO\:&9(($$"
^XMB(3.9,22,2,19131,0)="""DATA"",396.18,473,3,858,0)"
^XMB(3.9,22,2,19132,0)="M$D@@@0022""""!-`VI[UG-/;9../%1ZY6\XG^[259G2_D'?DTB/O&'K%<>F!9("
^XMB(3.9,22,2,19133,0)="""DATA"",396.18,473,3,859,0)"
^XMB(3.9,22,2,19134,0)="MYV?R+;AIUG>P.Y!``@DDD$`""""2209B09(FMUKUT>3VYZ^S.DMG.IQZP%0T[="
^XMB(3.9,22,2,19135,0)="""DATA"",396.18,473,3,860,0)"
^XMB(3.9,22,2,19136,0)="M8""T@@0022""""!!!)((#U$4M\3E_M^3=]-ZOO[XHVPIF=__WTGU:D9?:$S'H,L"
^XMB(3.9,22,2,19137,0)="""DATA"",396.18,473,3,861,0)"
^XMB(3.9,22,2,19138,0)="M!U@+2""""!!!)((($$$DB/F=1G[3)%G=IV_X>PQIR2#'DI,U'?$>%OL4;1K4,&"
^XMB(3.9,22,2,19139,0)="""DATA"",396.18,473,3,862,0)"
^XMB(3.9,22,2,19140,0)="MGI)HHBK`6D`""""2200`()))!`>O0DBYMC8^LDL\:UKBWKRM!52R->]+`_A1S["
^XMB(3.9,22,2,19141,0)="""DATA"",396.18,473,3,863,0)"
^XMB(3.9,22,2,19142,0)="M1$*XOQ,ND$`""""2200`()))!`>GRDZ;WHZ5_*3'D&U!9W;0RE^Y0$F@D22""""!"
^XMB(3.9,22,2,19143,0)="""DATA"",396.18,473,3,864,0)"
^XMB(3.9,22,2,19144,0)="M!!)((($$$DC#2*:7$_*-H[E?T_=9KPR54QZ)3!?CN(5DN,\UY0H(F@D22""""!"
^XMB(3.9,22,2,19145,0)="""DATA"",396.18,473,3,865,0)"
^XMB(3.9,22,2,19146,0)="M!!)((($$$DCM)-OUAM5K>M(69[=?Z^9=`=F>`14K'8NLEM`GD$`""""2200`()"
^XMB(3.9,22,2,19147,0)="""DATA"",396.18,473,3,866,0)"
^XMB(3.9,22,2,19148,0)="M))!`FIYD?SXRY6OZ[M;UH?>1DVGMD:],FJ2VK#'0)Y!``@DDD$`""""2200)J;"
^XMB(3.9,22,2,19149,0)="""DATA"",396.18,473,3,867,0)"
^XMB(3.9,22,2,19150,0)="M9+->T?W,X#6""US].UJ1R,L0=D&NJJQ/T""2200`()))!``@DDD,Y-ZKM>L:U3"
^XMB(3.9,22,2,19151,0)="""DATA"",396.18,473,3,868,0)"
^XMB(3.9,22,2,19152,0)="M_YA9_2-NC953OSI!GT`""""2200`()))!``NF<I.YSA""%KA""'Q?<>L6\;*R<@5"
^XMB(3.9,22,2,19153,0)="""DATA"",396.18,473,3,869,0)"
^XMB(3.9,22,2,19154,0)="M7N-`GT`""""2200`()))!``NG<I+&Y""_NM-OK5:%B&$VLY*9$![%C0)Y!``@DD"
^XMB(3.9,22,2,19155,0)="""DATA"",396.18,473,3,870,0)"
^XMB(3.9,22,2,19156,0)="MD$`""""2200#H#R?""*H_LUO>VJ8:ZL*W/=$^OW:@;Z!!)((($$$D@@@0022'.3"
^XMB(3.9,22,2,19157,0)="""DATA"",396.18,473,3,871,0)"
^XMB(3.9,22,2,19158,0)="MS/Z^CB1F(;%?*<R9=672>V+J""JXC<C'T""2200`()))!``@DDD.8D&7W\RG<_"
^XMB(3.9,22,2,19159,0)="""DATA"",396.18,473,3,872,0)"
^XMB(3.9,22,2,19160,0)="M=_;V#GI6K^Z8P[:98>Q70-`GD$`""""2200`()))!`.C=IR!OX>>MDOT;0KZ6("
^XMB(3.9,22,2,19161,0)="""DATA"",396.18,473,3,873,0)"
^XMB(3.9,22,2,19162,0)="MS_\.OR<V],0&^@022""""!!!)((($$$DB#_L@G$L1JI2+<_#IOZ\9F71GV,E__"
^XMB(3.9,22,2,19163,0)="""DATA"",396.18,473,3,874,0)"
^XMB(3.9,22,2,19164,0)="M>L<D*6@F2""""!!!)((($$$D@@34`2[D#E*Y!^$;?NHW4#;YMUWQ,3W]Z(JS'E"
^XMB(3.9,22,2,19165,0)="""DATA"",396.18,473,3,875,0)"
^XMB(3.9,22,2,19166,0)="MU8I2I_PGC""LX:""9((($$$D@@@0022""`-)PW)<'+NUNGK-&QE9H@5,.C<I5]6"
^XMB(3.9,22,2,19167,0)="""DATA"",396.18,473,3,876,0)"
^XMB(3.9,22,2,19168,0)="M36@F2""""!!!)((($$$D@@S96]/?^;O.)_S]@ZY7QC5CD9HCAW99G1KEO$Z&':"
^XMB(3.9,22,2,19169,0)="""DATA"",396.18,473,3,877,0)"
^XMB(3.9,22,2,19170,0)="MU_S03)!``@DDD$`""""2200-*1^IXF/*0SH#/(J775TE9'TWD+-!,DD$`""""220"
^XMB(3.9,22,2,19171,0)="""DATA"",396.18,473,3,878,0)"
^XMB(3.9,22,2,19172,0)="M0`()))#L26HD7]4OUYVDW%?K^F5=&?A'CCI`!JY:6MX!03-!`@DDD$`""""220"
^XMB(3.9,22,2,19173,0)="""DATA"",396.18,473,3,879,0)"
^XMB(3.9,22,2,19174,0)="M0`+)[.\_O-?T^CKU6Z_,+''#JL6\ZA%_WJYUT'&00`()))!``@DDD)XKJ3LW"
^XMB(3.9,22,2,19175,0)="""DATA"",396.18,473,3,880,0)"
^XMB(3.9,22,2,19176,0)="M_<ROZ0TO-]HB;MG?5I.B>FE;-XW$K=9T2DOK7""\B""9H)$D@@@0022""""!!!)("
^XMB(3.9,22,2,19177,0)="""DATA"",396.18,473,3,881,0)"
^XMB(3.9,22,2,19178,0)="M7>N0>WQM082_RN?=;TG:VSN]Q-O.I?KV`#03))!``@DDD$`"""":1G3;*XO?3`"
^XMB(3.9,22,2,19179,0)="""DATA"",396.18,473,3,882,0)"
^XMB(3.9,22,2,19180,0)="MO>AB'3-)UI5)ZM06+:W'[TOY6:#C(($$$D@@@0022""`]1Y)=]%W#SS3?F]]C"
^XMB(3.9,22,2,19181,0)="""DATA"",396.18,473,3,883,0)"
^XMB(3.9,22,2,19182,0)="MZ\:N$::OTZ#UG9B/4RMUZ#A((($$$D@@@0022$^:))RG-#U[T[VK[C7-^?)."
^XMB(3.9,22,2,19183,0)="""DATA"",396.18,473,3,884,0)"
^XMB(3.9,22,2,19184,0)="MVO^][XA;TT14?JCQHD$""""2200`()))!``FDR4L>N?9][8C-$W-*^KQ_XFGZ2"
^XMB(3.9,22,2,19185,0)="""DATA"",396.18,473,3,885,0)"
^XMB(3.9,22,2,19186,0)="M%=`TK6OC]I63F04=!PDDD$`""""2200`+I$9/$E8HF,E87:6@DL$E:IW]-;[T:"
^XMB(3.9,22,2,19187,0)="""DATA"",396.18,473,3,886,0)"
^XMB(3.9,22,2,19188,0)="M:WYBLVZ9LG4V]'[WQ#0]6+4=U@(22""""!!!)((($$TF,E]?7+VSS[!RLGZZA@"
^XMB(3.9,22,2,19189,0)="""DATA"",396.18,473,3,887,0)"
^XMB(3.9,22,2,19190,0)="MMNN[L77J([O^K1N]`H*U@`022""""!!!)(((%T[R2['/0FO_CQY2[LL[*:L4Y]"
^XMB(3.9,22,2,19191,0)="""DATA"",396.18,473,3,888,0)"
^XMB(3.9,22,2,19192,0)="M,T;VJI,Y^H&XUH*U@`022""""!!!)((('T\$AM[S9LS@ZZ7X"",:5NS3M/+:<A)"
^XMB(3.9,22,2,19193,0)="""DATA"",396.18,473,3,889,0)"
^XMB(3.9,22,2,19194,0)="MT%Q]-UM6S5ZK(5@+2""""!!!)((($$$D@/@33-BVSCNP[;MR2F/X*/W2#UCH(L"
^XMB(3.9,22,2,19195,0)="""DATA"",396.18,473,3,890,0)"
^XMB(3.9,22,2,19196,0)="MO^)HR<QH<[=+&RUM5,<U6C=O5LV9(R&`!!)((($$$D@@@0321*2Q,8?5'(5F"
^XMB(3.9,22,2,19197,0)="""DATA"",396.18,473,3,891,0)"
^XMB(3.9,22,2,19198,0)="MUM#6C8W*.R0*6-\:S1HO>B8MF/2E#.P.))!``@DDD$`"""":1)25;>JG#6T""^^"
^XMB(3.9,22,2,19199,0)="""DATA"",396.18,473,3,892,0)"
^XMB(3.9,22,2,19200,0)="M[_2MLXVH;%4C)6Y6=^LT*Y7.B,I]_UC$BQZK!:U9<F`M(($$$D@@@0022""#="
^XMB(3.9,22,2,19201,0)="""DATA"",396.18,473,3,893,0)"
^XMB(3.9,22,2,19202,0)="M/\GNY;5I!=#EV9^C=8-.2:P\]:ZW)/9M'-*Z^X@Y?+[6@0022""""!!!)((($$"
^XMB(3.9,22,2,19203,0)="""DATA"",396.18,473,3,894,0)"
^XMB(3.9,22,2,19204,0)="M4N./\L:ZWUVCGC>ILO.*A]&ZWJL#R_7=O*V[OYC#TKV^'OT(NP,)))!``@DD"
^XMB(3.9,22,2,19205,0)="""DATA"",396.18,473,3,895,0)"
^XMB(3.9,22,2,19206,0)="MD$`"":3AI[&MZD_\\?(TPJ9R4C(_EYXW[3X-6!_?1=^UQ""^:OT_#3,M@=2""""!"
^XMB(3.9,22,2,19207,0)="""DATA"",396.18,473,3,896,0)"
^XMB(3.9,22,2,19208,0)="M!!)((($$$DB]2.+90\M^N8G4[KG.\-Y\I)Q&Q`I0?E.7:^8\K>OW)FB"".A7K"
^XMB(3.9,22,2,19209,0)="""DATA"",396.18,473,3,897,0)"
^XMB(3.9,22,2,19210,0)="MH#-%5(8%@P022""""!!!)((#UODG+>,""0W?;LOW_W=^Y13OYM4]K$&SM6Z83$,"
^XMB(3.9,22,2,19211,0)="""DATA"",396.18,473,3,898,0)"
^XMB(3.9,22,2,19212,0)="MYH^HW/\N'""P8))!``@DDD$`""""20]::""?69S'V.6F?ZB9.[KJ93Y'>$A:H(E*"
^XMB(3.9,22,2,19213,0)="""DATA"",396.18,473,3,899,0)"
^XMB(3.9,22,2,19214,0)="M)D0R.V^=U$C55OEI8,$@@0022""""!!!)((&F\V[&9.[IST_?W\>\KITS;=]55"
^XMB(3.9,22,2,19215,0)="""DATA"",396.18,473,3,900,0)"
^XMB(3.9,22,2,19216,0)="MV4/2@ON)%RVO6\UQUV!W(($$$D@@@0022""#U7ZGD?\N7%^,R,[;5:7@DL,>P"
^XMB(3.9,22,2,19217,0)="""DATA"",396.18,473,3,901,0)"
^XMB(3.9,22,2,19218,0)="MOAL:X6R*UMG&BSY?S.'Z;,6TOM.]]($%@P022""""!!!)((('4%4&J?YW:L[$T"
^XMB(3.9,22,2,19219,0)="""DATA"",396.18,473,3,902,0)"
^XMB(3.9,22,2,19220,0)="M/=8'*R>+NTK=L9GOLW5M)UQG?TLR,AHV+!@DD$`""""2200`()N>FGVFFW>5__"
^XMB(3.9,22,2,19221,0)="""DATA"",396.18,473,3,903,0)"
^XMB(3.9,22,2,19222,0)="M-""3>=E9Q_ZU3Z]5VWG(^B<OO6![)ZA4DD$`""""2200`()I+.39HC:I.RBMZU7"
^XMB(3.9,22,2,19223,0)="""DATA"",396.18,473,3,904,0)"
^XMB(3.9,22,2,19224,0)="MSB&GH7>@^N>4N8_,C'W7*^7G#^$M2=NY%""P8))!``@DDD$`""Z3F29KB-TQ*W"
^XMB(3.9,22,2,19225,0)="""DATA"",396.18,473,3,905,0)"
^XMB(3.9,22,2,19226,0)="MUO0>P3;BUI1RFNN]>1_6?<4*T$0(>T!K!*E^V;D++!@DD$`""""2200`+I^9'&"
^XMB(3.9,22,2,19227,0)="""DATA"",396.18,473,3,906,0)"
^XMB(3.9,22,2,19228,0)="MYJ:WH=NN@&:.2=5-ZA5#M[U.0TZHSJ<%5ADZ26/-^:0T$R200`()))!``@FD"
^XMB(3.9,22,2,19229,0)="""DATA"",396.18,473,3,907,0)"
^XMB(3.9,22,2,19230,0)="MATZR]:A'O4>03E5J4M_SE<<G\8>:=:7O>N6^)9[7A?C\[\-[!P022""""!!!)("
^XMB(3.9,22,2,19231,0)="""DATA"",396.18,473,3,908,0)"
^XMB(3.9,22,2,19232,0)="M(($$TAPDXTJE]7QA^'OS)KW=BYY&3C8>^?2WX!Y^UI6^TGD8.MY>+XP%(($$"
^XMB(3.9,22,2,19233,0)="""DATA"",396.18,473,3,909,0)"
^XMB(3.9,22,2,19234,0)="M$D@@@0022(^<I']+,C`+2/_WYOH:B76:*R:534[$[IC#]C72D[I[IX[H;+.6"
^XMB(3.9,22,2,19235,0)="""DATA"",396.18,473,3,910,0)"
^XMB(3.9,22,2,19236,0)="M&KZ:ZGI-+YYCM)=T'SK>I248""T`""""2200`()))`>$<G@!9\KMT6[;]GECT\;"
^XMB(3.9,22,2,19237,0)="""DATA"",396.18,473,3,911,0)"
^XMB(3.9,22,2,19238,0)="MDZKWJD5ZVUW&U^V[7FFK4_]UE&X%U'>59_N:?OIH:5/J^$,]`P()))!``@DD"
^XMB(3.9,22,2,19239,0)="""DATA"",396.18,473,3,912,0)"
^XMB(3.9,22,2,19240,0)="MD$`""Z3&]61Z[1CB?G,S9*WN=DG1Z^O81E;LD):VEXO8SK/;:=??=`]1Q,3)V"
^XMB(3.9,22,2,19241,0)="""DATA"",396.18,473,3,913,0)"
^XMB(3.9,22,2,19242,0)="MW""8!C`4@@0022""""!!!)(#Y=TCM?T;:3VDY5VO]BV=0^O[P;=I!+\[_9US*`Z"
^XMB(3.9,22,2,19243,0)="""DATA"",396.18,473,3,914,0)"
^XMB(3.9,22,2,19244,0)="M*7EONF]2/>Q8`?U75AA50`()))!``@DDD!X22<X1WI;O9-(Z57ZQS6L+N]64"
^XMB(3.9,22,2,19245,0)="""DATA"",396.18,473,3,915,0)"
^XMB(3.9,22,2,19246,0)="M951>BW<XY^J[QW.32O_=QQ`KP$J/M)$C,*J`!!)((($$$D@@W0?)]`)DF+<Y"
^XMB(3.9,22,2,19247,0)="""DATA"",396.18,473,3,916,0)"
^XMB(3.9,22,2,19248,0)="M7][)Z3,S]N>>\Q;<P].G[O5*[U@!#Z)U?=_Q8%0!""2200`()))!`.@^I]47V"
^XMB(3.9,22,2,19249,0)="""DATA"",396.18,473,3,917,0)"
^XMB(3.9,22,2,19250,0)="MH-R'8^MD%]UJV*IELI<RO==2]F=`]BN""*?7)-B])_RC&C\E:U'-%C""H@@002"
^XMB(3.9,22,2,19251,0)="""DATA"",396.18,473,3,918,0)"
^XMB(3.9,22,2,19252,0)="M2""""!!!)(]TLRWX9IK%O.W+KA:X0.<+$&,Z\1YEVWM+6W_2;5O&LIV[XS_>83"
^XMB(3.9,22,2,19253,0)="""DATA"",396.18,473,3,919,0)"
^XMB(3.9,22,2,19254,0)="MB;AE]5('HPI((($$$D@@@032<WA-;[>NT-=7[T7WK<_P4Y(A:P3[]=E]G`%U"
^XMB(3.9,22,2,19255,0)="""DATA"",396.18,473,3,920,0)"
^XMB(3.9,22,2,19256,0)="MU:Z39'TR\0""M1;LVMXD>AE$%))!``@DDD$`"":0[2L,R*]]VZV<Z`&GDG3>NE"
^XMB(3.9,22,2,19257,0)="""DATA"",396.18,473,3,921,0)"
^XMB(3.9,22,2,19258,0)="ML[=N0#RQ?NN6(;4S95WIKU,/PEH:O6P3+QJC""D@@@0022""""!!-+4I-;7]+W]"
^XMB(3.9,22,2,19259,0)="""DATA"",396.18,473,3,922,0)"
^XMB(3.9,22,2,19260,0)="M\OMJG:G6W;D+'UWK)E\!E=S^I""$G-_UTZL%8BU!K0^LLHLAA?`()))!``@DD"
^XMB(3.9,22,2,19261,0)="""DATA"",396.18,473,3,923,0)"
^XMB(3.9,22,2,19262,0)="MD$`:Y[/>]VOZ(22C+Z]D'7F\???P;E(-OW'V5.RN;56&\0DDD$`""""2200`)I"
^XMB(3.9,22,2,19263,0)="""DATA"",396.18,473,3,924,0)"
^XMB(3.9,22,2,19264,0)="M'.F^H_).0VI_;?$T8E+9KU?.6Z=^K_2?I-WI\P'U?-&""\0DDD$`""""2200`+)"
^XMB(3.9,22,2,19265,0)="""DATA"",396.18,473,3,925,0)"
^XMB(3.9,22,2,19266,0)="MTO]]#/GO&F])VE==#S96P`#2P\NZ,DT\L4=M=Z3Y^G[L.R"",3R""!!!)((($$"
^XMB(3.9,22,2,19267,0)="""DATA"",396.18,473,3,926,0)"
^XMB(3.9,22,2,19268,0)="M$DB/]36]SG<WWS5Z>MG][O^ND?X=D$GJS]/NGL,M.)!``@DDD$`"""":2Y_<S["
^XMB(3.9,22,2,19269,0)="""DATA"",396.18,473,3,927,0)"
^XMB(3.9,22,2,19270,0)="MS$T_#:GMC80I0X;=6^C'T7?W4Z=^$96?L]VUO=[!^`022""""!!!)((#UC4FM&"
^XMB(3.9,22,2,19271,0)="""DATA"",396.18,473,3,928,0)"
^XMB(3.9,22,2,19272,0)="MDJ;_E+SB?Q]GZTRG)[9Y21Z/%G2O$<Y1)W.FD09)B6_PG""U8E!?&)Y!``@DD"
^XMB(3.9,22,2,19273,0)="""DATA"",396.18,473,3,929,0)"
^XMB(3.9,22,2,19274,0)="MD$`""""239K^_*9?><8@4\YJA-]QTKH$-VU1I2).$<P:RE&)]``@DDD$`"""":1G"
^XMB(3.9,22,2,19275,0)="""DATA"",396.18,473,3,930,0)"
^XMB(3.9,22,2,19276,0)="M33+<A'IZ<M+<\]*>+:GWQ!Z;%DR?=65(G6RT27__""1:LMT>,=""""!!!)((($$"
^XMB(3.9,22,2,19277,0)="""DATA"",396.18,473,3,931,0)"
^XMB(3.9,22,2,19278,0)="MTO,E#3M->%QRLH\*]MB]Z`<2<4NYB]=54UBPW2X""Y`022""""!!!)((#U14DOV"
^XMB(3.9,22,2,19279,0)="""DATA"",396.18,473,3,932,0)"
^XMB(3.9,22,2,19280,0)="M]L>9F[ZMI5(&2]-ZQ?3*/OM;OM5!UI7Y6O>,LJX,)HGW,Q][/B""00`()))!`"
^XMB(3.9,22,2,19281,0)="""DATA"",396.18,473,3,933,0)"
^XMB(3.9,22,2,19282,0)="M`@FD?A[B\WK5:[->>1I:</:(6]*+>2W)(JH#++A;NOJW99`32""""!!!)((('T"
^XMB(3.9,22,2,19283,0)="""DATA"",396.18,473,3,934,0)"
^XMB(3.9,22,2,19284,0)="M-$A/(S=]WS^EGR>L6]KRB!OBB3TN.=UGK`!#O&@+G80%MVFCC;PPTH$$$D@@"
^XMB(3.9,22,2,19285,0)="""DATA"",396.18,473,3,935,0)"
^XMB(3.9,22,2,19286,0)="M@0022(^5]!Q>T\.+ON_,'4->6SS.>-'W1[*S9,@)))!``@DDD$!ZD*1\+U9^"
^XMB(3.9,22,2,19287,0)="""DATA"",396.18,473,3,936,0)"
^XMB(3.9,22,2,19288,0)="MMT',=]^?EYS4[(]#;N/HOZN^E+D?.=W+';_6%T#=)&CF$%)7W''(""2200`()"
^XMB(3.9,22,2,19289,0)="""DATA"",396.18,473,3,937,0)"
^XMB(3.9,22,2,19290,0)="M))!`>K@D0W0KJRSM3UE.8V_!V604>8Y95TPK%5LO>LS-M><^%MB?FF+,!`DD"
^XMB(3.9,22,2,19291,0)="""DATA"",396.18,473,3,938,0)"
^XMB(3.9,22,2,19292,0)="MD$`""""220'@[I^;ZF-_Z(153=;I)-%.3[EM/]95U12S;613B/T4=""P%A@03*\"
^XMB(3.9,22,2,19293,0)="""DATA"",396.18,473,3,939,0)"
^XMB(3.9,22,2,19294,0)="MLL([()!``@DDD$`""Z2&3GN=K^B&D(6^6;?*UW'?4IOO>:>]QRM(=3PQC@2WI"
^XMB(3.9,22,2,19295,0)="""DATA"",396.18,473,3,940,0)"
^XMB(3.9,22,2,19296,0)="MV>1[!0DDD$`""""220'B\)ODH_DB0C8ZZ9/GDGC9YZ]SVQ7KEN9LNZ(M9""K9&X"
^XMB(3.9,22,2,19297,0)="""DATA"",396.18,473,3,941,0)"
^XMB(3.9,22,2,19298,0)="MFR_>+-2WKE>,:&CF1""1B>*W6JE^0.$@@@0022""""!-#>IWTH%$M>L5UK_&"")N"
^XMB(3.9,22,2,19299,0)="""DATA"",396.18,473,3,942,0)"
^XMB(3.9,22,2,19300,0)="M&7Q#4V]H7Q1YT[=N^C6""U0VO`7V'UQ;G.N&""G$`""""2200`()I/.2#*_I>[UV"
^XMB(3.9,22,2,19301,0)="""DATA"",396.18,473,3,943,0)"
^XMB(3.9,22,2,19302,0)="MAL1M)-46E==FI:)Z^OHZF<YDBA]5,P5*,:$:JU<U7E1K]""[]*R?3&F7(:WI8"
^XMB(3.9,22,2,19303,0)="""DATA"",396.18,473,3,944,0)"
^XMB(3.9,22,2,19304,0)="M\$2DUCPLW6-!_CO)*_X7$@<)))!``@DDD.8A==\ULO>?(7']BL2N!_I)7+\."
^XMB(3.9,22,2,19305,0)="""DATA"",396.18,473,3,945,0)"
^XMB(3.9,22,2,19306,0)="MZ7YO;K-JJ+\[M$[=ZY:AV@0+GI)D9]LX>P4)))!``@DDD.Z3U!6?JK_'^MPE"
^XMB(3.9,22,2,19307,0)="""DATA"",396.18,473,3,946,0)"
^XMB(3.9,22,2,19308,0)="M;G_+7_\B0ZI3:[PFZ1:99KUAUW<VGNMYURU6;V^:^8!&1`)[LIJI?0?4M\?*"
^XMB(3.9,22,2,19309,0)="""DATA"",396.18,473,3,947,0)"
^XMB(3.9,22,2,19310,0)="M_$NRQ,>L6C#Z@@022""""!!!)(=B2CQZ'UD<=XK,]!XMURFJU.G=[]^*PKH\^`"
^XMB(3.9,22,2,19311,0)="""DATA"",396.18,473,3,948,0)"
^XMB(3.9,22,2,19312,0)="M%*+^GIAMBV#!Y^@[4V^TD3#Z@@022""""!!!)(4Y#LO8Q^7@_Q^=_G?$^L6TZ/"
^XMB(3.9,22,2,19313,0)="""DATA"",396.18,473,3,949,0)"
^XMB(3.9,22,2,19314,0)="MIW5MGJN)U/W&IOG)N'Q`&`O:5J]CS\J,].)$3TL:E$$6?0<22""""!!!)(SYW4"
^XMB(3.9,22,2,19315,0)="""DATA"",396.18,473,3,950,0)"
^XMB(3.9,22,2,19316,0)="MYJL8][([_)[.<P3K/?+GDE6SQUVG!]&ZAWK'KWTUA+%@BIV']O&@R=6,*I`X"
^XMB(3.9,22,2,19317,0)="""DATA"",396.18,473,3,951,0)"
^XMB(3.9,22,2,19318,0)="M2""""!!!)((('4_:<UV]OHW=HJ8M3C/T>8B-0AJ;EC#D]/&I%U9=;6V>H7Q@*["
^XMB(3.9,22,2,19319,0)="""DATA"",396.18,473,3,952,0)"
^XMB(3.9,22,2,19320,0)="M*&XZ""QZV#FJ]XX=Q'""200`()))!`:O$C!N6V$&Y^M!,'[=8^U;[K=1MG^%G+"
^XMB(3.9,22,2,19321,0)="""DATA"",396.18,473,3,953,0)"
^XMB(3.9,22,2,19322,0)="M.5KWD#(SCHFLC=STW;$5QM:I;06$<1PDD$`""""220'CM)G.?C[(_D=L3\K[A3"
^XMB(3.9,22,2,19323,0)="""DATA"",396.18,473,3,954,0)"
^XMB(3.9,22,2,19324,0)="M?Y']:<MO+F9#F'XO>G@\L>>I!::7/0]_+_K^^Z[[M05&E4)2<2.+C]?VHJ1="
^XMB(3.9,22,2,19325,0)="""DATA"",396.18,473,3,955,0)"
^XMB(3.9,22,2,19326,0)="MCL/K-.4*""',+2""""!!!)((-TWB7L0DH>AK%?:[W#(&=HZZS3A6Q*;6^ZX)]:4"
^XMB(3.9,22,2,19327,0)="""DATA"",396.18,473,3,956,0)"
^XMB(3.9,22,2,19328,0)="MNNUMG`>@F0_B/8+M:PN,*MUR,HT!71+$.`X22""""!!!)(SX1D<8.\F=\\_Z-Z"
^XMB(3.9,22,2,19329,0)="""DATA"",396.18,473,3,957,0)"
^XMB(3.9,22,2,19330,0)="M91<!_]L6A6?FUBDWQ-K71+@GUNV%&^Z)W6/K]'4ZAYR&Y""Y\SN-3^QVY-E*Q"
^XMB(3.9,22,2,19331,0)="""DATA"",396.18,473,3,958,0)"
^XMB(3.9,22,2,19332,0)="MVV&YBS%5ZURW)KGL3W[FJ/[<*^^5\\KQ7/XW\OE?S""T@@0022""""!=#9/+%MC"
^XMB(3.9,22,2,19333,0)="""DATA"",396.18,473,3,959,0)"
^XMB(3.9,22,2,19334,0)="MJ#>#\D\26I,2FE`;+V7FUC4RQ`V#X)Z8M<\9-T[=[N6>F*YGSOE2QG95^SQ'"
^XMB(3.9,22,2,19335,0)="""DATA"",396.18,473,3,960,0)"
^XMB(3.9,22,2,19336,0)="M%7W,B[:74`\]2J'T$[%REVWX^SO,4B""!!!)((('4B[3,_DK9R(6967R1HO?L"
^XMB(3.9,22,2,19337,0)="""DATA"",396.18,473,3,961,0)"
^XMB(3.9,22,2,19338,0)="MW>Q/__.)!W<+KFW=TCMOPU/3)UD:\JG;^>K4IE^CY""3=CNO*`?+LM,""PWNC."
^XMB(3.9,22,2,19339,0)="""DATA"",396.18,473,3,962,0)"
^XMB(3.9,22,2,19340,0)="ME=+^^_?1.ND<V/2WL397URNJ-N;G+IA;0`()))!``FE.DFEO-)_?""[=#>%__"
^XMB(3.9,22,2,19341,0)="""DATA"",396.18,473,3,963,0)"
^XMB(3.9,22,2,19342,0)="M5&]2662MZ[5V>2KZU""^[WUQUFNO\3N)VYIU\SJ.*.D(HKYQ&Q)6;OW56ZQ5!"
^XMB(3.9,22,2,19343,0)="""DATA"",396.18,473,3,964,0)"
^XMB(3.9,22,2,19344,0)="MOY)7PLGRJ^15L7^3_1'OQIKNCV%N`0DDD$`"""":2I2>JL+;ZRE]ZN%%[[LXUK"
^XMB(3.9,22,2,19345,0)="""DATA"",396.18,473,3,965,0)"
^XMB(3.9,22,2,19346,0)="MI/K,K7[:\\WN9[.>K2,TG""/K2M\UZ#,>5<07;G&7#3R>UK5'4=;_I*CC_$YL"
^XMB(3.9,22,2,19347,0)="""DATA"",396.18,473,3,966,0)"
^XMB(3.9,22,2,19348,0)="M0L7?""7W^%W,+2""""!!!)((,U/\K,_[5&,NW?:Q3.9]M]\C'(:DVWCJ=X3*__="
^XMB(3.9,22,2,19349,0)="""DATA"",396.18,473,3,967,0)"
^XMB(3.9,22,2,19350,0)="M;]W2/VYMN[S[G0%U9:+'J#)4UQ]@Z^2W;E)<O&7VIWN]@EAP(($$$D@@@?20"
^XMB(3.9,22,2,19351,0)="""DATA"",396.18,473,3,968,0)"
^XMB(3.9,22,2,19352,0)="M9O,AZY7R)UO]S&R']K7+_SZZ-\N-G#)#7F$_3\VT6JL8WS*/6P&)7*5U@^\M"
^XMB(3.9,22,2,19353,0)="""DATA"",396.18,473,3,969,0)"
^XMB(3.9,22,2,19354,0)="M/9F^T\:T;K_C)\<J?]QRLGEY)T8@R=N>GZU@;@$)))!``@FDIT;*Y_O\]"";_"
^XMB(3.9,22,2,19355,0)="""DATA"",396.18,473,3,970,0)"
^XMB(3.9,22,2,19356,0)="M/LW^=,4/>GSK.XWW\VSNB8T@=4;6[KMN>0PQJ>Z;9!O)_&G+J7V](IV^""#$4"
^XMB(3.9,22,2,19357,0)="""DATA"",396.18,473,3,971,0)"
^XMB(3.9,22,2,19358,0)="MZ_<JT"">00`()))!`>LPDO9^IQDQ^2G+JX45+'C7TR<ZOAIP&D*QR@S['J+SZ"
^XMB(3.9,22,2,19359,0)="""DATA"",396.18,473,3,972,0)"
^XMB(3.9,22,2,19360,0)="M=;#]RDZTY&:FJJ&1!3$6@`022""""!!-+Y2?D.94W*HXR%#O_[M.6$S!W3D.XC"
^XMB(3.9,22,2,19361,0)="""DATA"",396.18,473,3,973,0)"
^XMB(3.9,22,2,19362,0)="MZ\KC)]F>2^E6S\]%3OE+._ZW)NE>WM4_=Q'D]U[%-WK2K5BG)O&E""G(Y@002"
^XMB(3.9,22,2,19363,0)="""DATA"",396.18,473,3,974,0)"
^XMB(3.9,22,2,19364,0)="M2""""!!!)(#Y^4WWIOSS97[,(*/B,DWKY>>>::J:PNNN['-6(.PX(G)*FW7=W("
^XMB(3.9,22,2,19365,0)="""DATA"",396.18,473,3,975,0)"
^XMB(3.9,22,2,19366,0)="MC6J2&XW+K@J)@P022""""!!!)(,Y-,OJ5I!2/=(('$Y\NZ\MA)0V)'MVLF+'@("
^XMB(3.9,22,2,19367,0)="""DATA"",396.18,473,3,976,0)"
^XMB(3.9,22,2,19368,0)="M292WF*-*GW<28R9((($$$D@@@?2X<EMH/$_M.D;<'W]N$I\FZ\KCE%._J`,F"
^XMB(3.9,22,2,19369,0)="""DATA"",396.18,473,3,977,0)"
^XMB(3.9,22,2,19370,0)="M_8+=S4_*[[WFK_-TMUTA)Y!``@DDD$`""Z:F0^MSK>1[9'X:T]%%G9O3ZW.ZR"
^XMB(3.9,22,2,19371,0)="""DATA"",396.18,473,3,978,0)"
^XMB(3.9,22,2,19372,0)="M7Z/`[LY&:ND'R`DDD$`""""2200'IZI""'Q?9^2G)[6F^4A.65@+2""!!!)((($$"
^XMB(3.9,22,2,19373,0)="""DATA"",396.18,473,3,979,0)"
^XMB(3.9,22,2,19374,0)="M$D@@/4B289]V1%Z21R,G?>L>3]_U.R6QZ2-SKD98""T@@@0022""""!!!)(#Y""D"
^XMB(3.9,22,2,19375,0)="""DATA"",396.18,473,3,980,0)"
^XMB(3.9,22,2,19376,0)="MC2<V-)-\Z2E;O<BVNG?T-+.N#%TIFM<DT'&00`()))!``@DDD)XUJ=?;""!M_"
^XMB(3.9,22,2,19377,0)="""DATA"",396.18,473,3,981,0)"
^XMB(3.9,22,2,19378,0)="M_!RMNX^L*T-6'NWKEO9:R""<FT'&00`()))!``@DDD$!2U@7MF6&ZSQ$L,LOT"
^XMB(3.9,22,2,19379,0)="""DATA"",396.18,473,3,982,0)"
^XMB(3.9,22,2,19380,0)="MC!6@K*^Z6]=WE9''<5+JU!IC&J<D(($$$D@@@0022""""!=!:2S7TN4O\=?_^I"
^XMB(3.9,22,2,19381,0)="""DATA"",396.18,473,3,983,0)"
^XMB(3.9,22,2,19382,0)="MUPKH09""@3R""!!!)((($$$D@@@?0\2/>Q;D'?@0022""""!!!)((($$$D@/)NL*"
^XMB(3.9,22,2,19383,0)="""DATA"",396.18,473,3,984,0)"
^XMB(3.9,22,2,19384,0)="M61&!1""!QD$`""""2200`()))!``@E95T`""""2200`()))!``@FDYT'""6Q*00`()"
^XMB(3.9,22,2,19385,0)="""DATA"",396.18,473,3,985,0)"
^XMB(3.9,22,2,19386,0)="M))!``@DDD$`""Z:&2'FK6%9!``@DDD$`""""2200`()I/O(N@(22""""!!!)((($$"
^XMB(3.9,22,2,19387,0)="""DATA"",396.18,473,3,986,0)"
^XMB(3.9,22,2,19388,0)="M$D@@@31TO0(Y@0022""""!!!)((($$$D@/@63SRAYR`@DDD$`""""2200`()))#."
^XMB(3.9,22,2,19389,0)="""DATA"",396.18,473,3,987,0)"
^XMB(3.9,22,2,19390,0)="M1A*R5_:)""@:)@P022""""!!!)((($$$DCW0!)6,)`32""""!!!)((($$$D@@@002"
^XMB(3.9,22,2,19391,0)="""DATA"",396.18,473,3,988,0)"
^XMB(3.9,22,2,19392,0)="M2""""!!!)((($$$D@@@0022""""!!!)((($$$D@@@032HR!E-[]HQ/\&V1_(""220"
^XMB(3.9,22,2,19393,0)="""DATA"",396.18,473,3,989,0)"
^XMB(3.9,22,2,19394,0)="M0`()))!``@DDD$""Z;Q+-_HCOZ^6W]I`32""""!!!)((($$$D@@@71?)#42&/'Y"
^XMB(3.9,22,2,19395,0)="""DATA"",396.18,473,3,990,0)"
^XMB(3.9,22,2,19396,0)="MW_R3V.%_(2>00`()))!``@DDD$`""Z3Y(ZGHESOZ8(AI#XB""!!!)((($$$D@@"
^XMB(3.9,22,2,19397,0)="""DATA"",396.18,473,3,991,0)"
^XMB(3.9,22,2,19398,0)="M@032N4CJNB1YQ?]V96""!Q$$""""2200`()))!``@FDN4F:=4GV]MXV8R0D#A)("
^XMB(3.9,22,2,19399,0)="""DATA"",396.18,473,3,992,0)"
^XMB(3.9,22,2,19400,0)="M(($$$D@@@0022""!-2RI7(O*Z)?^>>!\L?\L""B8,$$D@@@0022""""!!!)(YR.)"
^XMB(3.9,22,2,19401,0)="""DATA"",396.18,473,3,993,0)"
^XMB(3.9,22,2,19402,0)="MIR=\=5*3Y)<K"">5_(7&00`()))!``@DDD$`""Z7PD]4V][KQ%O@DF_606.`P2"
^XMB(3.9,22,2,19403,0)="""DATA"",396.18,473,3,994,0)"
^XMB(3.9,22,2,19404,0)="M!PDDD$`""""2200`()))#F)5T$_&\;23J-R98JMJ];('&00`()))!``@DDD$`"""
^XMB(3.9,22,2,19405,0)="""DATA"",396.18,473,3,995,0)"
^XMB(3.9,22,2,19406,0)="M:0X27Y@(YRVQG_W)7^.[$?]KLUZ!Q$$""""2200`()))!``@FDZ4GZ>V)B-LD^"
^XMB(3.9,22,2,19407,0)="""DATA"",396.18,473,3,996,0)"
^XMB(3.9,22,2,19408,0)="MZQ5('""200`()))!``LG^SW_EOY[NKO)_[#_^6WIY6KQ_]^;GY%_?W*P_IX3\"
^XMB(3.9,22,2,19409,0)="""DATA"",396.18,473,3,997,0)"
^XMB(3.9,22,2,19410,0)="ML/B0_:LLZ6WZZ;3XAP4MO_ZPOV5?AN67OVVN3M?L`S>J?N+'=//YFO\.\:/R"
^XMB(3.9,22,2,19411,0)="""DATA"",396.18,473,3,998,0)"
^XMB(3.9,22,2,19412,0)="MLW>;R]/=(?W^8GU:L^_\I[!_'2P]S_6CP/,O?!(XOD\3A_WQ7.^B_'?YI_S*"
^XMB(3.9,22,2,19413,0)="""DATA"",396.18,473,3,999,0)"
^XMB(3.9,22,2,19414,0)="M#?/_1HE#!!+_""=<AV;=(\3^G_`V95'^C_J=,*O\4/JQS]OZ.[U%S[O.%1GQV"
^XMB(3.9,22,2,19415,0)="""DATA"",396.18,473,3,1000,0)"
^XMB(3.9,22,2,19416,0)="MNXCOT5;C>QP_XK./1/$]CHXQ+!@6#`N&!<.""8<&P8%@P+!@6#`N&!<.""8<&P"
^XMB(3.9,22,2,19417,0)="""DATA"",396.18,473,3,1001,0)"
^XMB(3.9,22,2,19418,0)="M8%@P+!@6#`N&!<.""8<&P8%@P+!@6#`N&!<.""8<&P8%@P+!@6#`N&!<.""8<%/"
^XMB(3.9,22,2,19419,0)="""DATA"",396.18,473,3,1002,0)"
^XMB(3.9,22,2,19420,0)="MTX)?WZ,%OX8%/UD+?GV/%OSZ'!9LJ!,]AP5+-]-)_I\P.(\%MY8]BP4[>A+1"
^XMB(3.9,22,2,19421,0)="""DATA"",396.18,473,3,1003,0)"
^XMB(3.9,22,2,19422,0)="M?'=R""R::+YPS6;!5V9-9<*@O,2%GL&""N/]JR9[/@JD25U%7V:`ON;.V,%AP'"
^XMB(3.9,22,2,19423,0)="""DATA"",396.18,473,3,1004,0)"
^XMB(3.9,22,2,19424,0)="M\A!5%!K3U5P6S$J4LA@F30N.Z6P6G#3+)H;A:C(+%EI'+<N>S()Y<40MT3G+"
^XMB(3.9,22,2,19425,0)="""DATA"",396.18,473,3,1005,0)"
^XMB(3.9,22,2,19426,0)="M'&PJ>[XYF)@LN%`H9S6;!5=E2R4*0\:<<[`CEYTKE,5P-7P.#ALEUJ2@U+O9"
^XMB(3.9,22,2,19427,0)="""DATA"",396.18,473,3,1006,0)"
^XMB(3.9,22,2,19428,0)="MYF#6/$?Q!31#QAQS<""R5G3@]#7B`%\T:%BHE.L%9+)AUH]""V7*$29TXONBRQ"
^XMB(3.9,22,2,19429,0)="""DATA"",396.18,473,3,1007,0)"
^XMB(3.9,22,2,19430,0)="M2<J[-R:K&2V8M2\.Q$FJH5:S>M&.6G9(5S-:,""^1&DG.""*6R\*)#9830CE:S"
^XMB(3.9,22,2,19431,0)="""DATA"",396.18,473,3,1008,0)"
^XMB(3.9,22,2,19432,0)="M>-%AT""RKE[LQ8!W,^%&C_?1<ZV!5KDXP\SJ8&$F),UJ?.LIV6IL_[SHX7`U1"
^XMB(3.9,22,2,19433,0)="""DATA"",396.18,473,3,1009,0)"
^XMB(3.9,22,2,19434,0)="MJS'K8'GB$4EQL)K7@I76Z4N<9QW<G`?ZM7;(3I8R9)QS)\OIL]DVR4Z68R)="
^XMB(3.9,22,2,19435,0)="""DATA"",396.18,473,3,1010,0)"
^XMB(3.9,22,2,19436,0)="MS+^3U?""FHM7Y++BIU-%J;@N6%4LDD=7<%MP<CLGJ?!;<5&JRFMN""FQ,?.:<%"
^XMB(3.9,22,2,19437,0)="""DATA"",396.18,473,3,1011,0)"
^XMB(3.9,22,2,19438,0)="M-WPY,K\%9ZJL(Y'Y+;@Q/COGM.""&4H?S6[""D6""(IG'T.;BJ6?L4PVVF2-%KV"
^XMB(3.9,22,2,19439,0)="""DATA"",396.18,473,3,1012,0)"
^XMB(3.9,22,2,19440,0)="MV[,;>)HD*59,SFG!\DC=[LE.=1YLV*=S@MDMN*&](3VC!3>*LUKTCST/CO4["
^XMB(3.9,22,2,19441,0)="""DATA"",396.18,473,3,1013,0)"
^XMB(3.9,22,2,19442,0)="M[8DSOP6+`R3?V@K.:,'B`.G0E4-FMV""A<V-67,A*/>-Y<#5(A8ZSXJ'`:#""O"
^XMB(3.9,22,2,19443,0)="""DATA"",396.18,473,3,1014,0)"
^XMB(3.9,22,2,19444,0)="M!<N[_X6@/=;'>22S62VXFNL3$O.B7O-X:>0\%EPI5DACK]CX=YPY+;A:!0H1"
^XMB(3.9,22,2,19445,0)="""DATA"",396.18,473,3,1015,0)"
^XMB(3.9,22,2,19446,0)="MW(+8=XKAVJ%S6G""Y6\AW$$L#'C]F6M[H2,K=PC@HRTS(G!:<;]XEK*%QD`V<"
^XMB(3.9,22,2,19447,0)="""DATA"",396.18,473,3,1016,0)"
^XMB(3.9,22,2,19448,0)="M\IA)YK3@_*R2EQK[KM/BT\YR)XL4_1H[53>362V8FU$V""<5.I5#1F2R8EYUU"
^XMB(3.9,22,2,19449,0)="""DATA"",396.18,473,3,1017,0)"
^XMB(3.9,22,2,19450,0)="M+U=KTKTBGN!.5IP[-P*)C=CE)/QZ5@MFNIP7Q.>(HG//9<'<<DGI=.7=;'6"""
^XMB(3.9,22,2,19451,0)="""DATA"",396.18,473,3,1018,0)"
^XMB(3.9,22,2,19452,0)="M-N).5E(H,/__K'-E""P[FM>#$K\_-<IEK6SN+!2?%1)`-V)D($CJO!2>%,F4E"
^XMB(3.9,22,2,19453,0)="""DATA"",396.18,473,3,1019,0)"
^XMB(3.9,22,2,19454,0)="MYIU+SF7!I=EF9>=?S&S!Q2`E6G!0.=+1K!9<=FTQ&7,G2RIQ3@N.Y;*99H?."
^XMB(3.9,22,2,19455,0)="""DATA"",396.18,473,3,1020,0)"
^XMB(3.9,22,2,19456,0)="MO'.P(Y?8N$,SZQR<.""$-))?+L-,RF04+]PMHH^QLR)S3@ME47Y98+R+""LU@P"
^XMB(3.9,22,2,19457,0)="""DATA"",396.18,473,3,1021,0)"
^XMB(3.9,22,2,19458,0)="MLUA';BUWKL(9+3BD""7D=Z""PX[^9P/@MFXV1,7WMB:YM7/>;;R>*.>Z-LULW."
^XMB(3.9,22,2,19459,0)="""DATA"",396.18,473,3,1022,0)"
^XMB(3.9,22,2,19460,0)="M?!8<\HL.D1?P03%69RD2.G0N""TZR?HS\@.MV7(\GCF;K8:*]:""*2V)CL9Z.U"
^XMB(3.9,22,2,19461,0)="""DATA"",396.18,473,3,1023,0)"
^XMB(3.9,22,2,19462,0)="M4';<H[G]+#C,KZ'YV41?'12&V56\F2TXF_18\?Z2%QR+TJ#S6'`VQ?,2+UB)"
^XMB(3.9,22,2,19463,0)="""DATA"",396.18,473,3,1024,0)"
^XMB(3.9,22,2,19464,0)="MH@6+5:+S6'""F/>Q_?LS--A8_IS-;<""9H[K4F,;?96!S.Z""P6G+GKF9\<KT@2"
^XMB(3.9,22,2,19465,0)="""DATA"",396.18,473,3,1025,0)"
^XMB(3.9,22,2,19466,0)="MQ#HYD6&WX#HM./=:LQ]-V'`=""_HV]A9<O#(-&.Q[,BEA*BV4O7*\8`X+SOW)"
^XMB(3.9,22,2,19467,0)="""DATA"",396.18,473,3,1026,0)"
^XMB(3.9,22,2,19468,0)="M.""]Q);:6>5C!S'>R@OJG6-GBS\=C;\'%+;O0%V6).@L>MBEM<:N2RF5+/V4X"
^XMB(3.9,22,2,19469,0)="""DATA"",396.18,473,3,1027,0)"
^XMB(3.9,22,2,19470,0)="MX1IEP8F8_4$H.[Q(`JGL&2RX7!<5)<:L1-W.:.*0Z2W8H>)62A2OF-M3+=,2"
^XMB(3.9,22,2,19471,0)="""DATA"",396.18,473,3,1028,0)"
^XMB(3.9,22,2,19472,0)="MUYG<@BM]B1JD*/&#N-RNXT.E$TQMP=6Y2M':S./(!1""R$H.0SF?!56O*LL,@"
^XMB(3.9,22,2,19473,0)="""DATA"",396.18,473,3,1029,0)"
^XMB(3.9,22,2,19474,0)="MK)>*""8W)Q!9<&V918I2(>]'9[)B-6VS8=B:VX'JWN2B;C8YAM6_&9>X$TUJP"
^XMB(3.9,22,2,19475,0)="""DATA"",396.18,473,3,1030,0)"
^XMB(3.9,22,2,19476,0)="M;O3-RX[CS*^,2@.CW5=9^UFP,/H6)3)YQOD.84W*IF<RZ-)PBP4+32G*7KVF"
^XMB(3.9,22,2,19477,0)="""DATA"",396.18,473,3,1031,0)"
^XMB(3.9,22,2,19478,0)="M8;$]F>T/JP/T.`L6K+)IP4G`5@JK_-PNS)>&MC9L9<&B[*)""QQ,:%FN%V''X"
^XMB(3.9,22,2,19479,0)="""DATA"",396.18,473,3,1032,0)"
^XMB(3.9,22,2,19480,0)="M?%R30CJA!8L'T%$YXV>3?E8,JP)_1T2FLV""IV\J-(W%\""E>E`Q(Z\:KW)>DV"
^XMB(3.9,22,2,19481,0)="""DATA"",396.18,473,3,1033,0)"
^XMB(3.9,22,2,19482,0)="M""Y:4-!)WX,/BV""P*:YE,8<%.H""6)98=..?^%J\X+'CTL.)%T5""@Q<7QGV22%"
^XMB(3.9,22,2,19483,0)="""DATA"",396.18,473,3,1034,0)"
^XMB(3.9,22,2,19484,0)="MJR%G2B8+EK?E8E'2\ESE3&7!CB^B8EV=A%^)5BO;FT/=%LR,5?2>I-:*\I?N"
^XMB(3.9,22,2,19485,0)="""DATA"",396.18,473,3,1035,0)"
^XMB(3.9,22,2,19486,0)="MUM)I+)BGVB)=99.5L7/[6W!VJMY\1""&3E+)7SB06S%7'$9I;7T@.A7X5GON-"
^XMB(3.9,22,2,19487,0)="""DATA"",396.18,473,3,1036,0)"
^XMB(3.9,22,2,19488,0)="MMN#LE(H/#=KWG%+9<5@=<K1VKK4%\Q)""X30_:98HO)<*X[@HNZ\-F^?@4.AE"
^XMB(3.9,22,2,19489,0)="""DATA"",396.18,473,3,1037,0)"
^XMB(3.9,22,2,19490,0)="MI6RV""/;*A;<SVH+C?)R4=N,:;]W$LDD0ER*VL>%V""XYSXPU]07""*7A$_\4B3"
^XMB(3.9,22,2,19491,0)="""DATA"",396.18,473,3,1038,0)"
^XMB(3.9,22,2,19492,0)="MU',>CBNY.K[LC\>!($*JZ+3OEP<-.B>KEP6SLH/L9#\0!$=:+/BU6]:MCR^M"
^XMB(3.9,22,2,19493,0)="""DATA"",396.18,473,3,1039,0)"
^XMB(3.9,22,2,19494,0)="MM>`P7OE9V:)]$&6\BE]7]RN&[CR4)<9%WR:\\J;WYO)862U70CK.@IEYE/;C"
^XMB(3.9,22,2,19495,0)="""DATA"",396.18,473,3,1040,0)"
^XMB(3.9,22,2,19496,0)="M*.JD6K!4=C]?6K5@/B$I?G2H:>WKLB2A<X=9L%/MPNE>T]<;PAIG+.GVI=LM"
^XMB(3.9,22,2,19497,0)="""DATA"",396.18,473,3,1041,0)"
^XMB(3.9,22,2,19498,0)="MV*DW+QQE:@CE146#U._""4ER+T%%7U)6H*U&$JC,6.NIF1[\YF(V5M#""@6D]H"
^XMB(3.9,22,2,19499,0)="""DATA"",396.18,473,3,1042,0)"
^XMB(3.9,22,2,19500,0)="MVQQ<K./8.L)W1EEPO2<K]AI16QL6;UC9:.-HQO&>W@Z)5*^GT=]AT^/F99MM"
^XMB(3.9,22,2,19501,0)="""DATA"",396.18,473,3,1043,0)"
^XMB(3.9,22,2,19502,0)="MV-Z++LNN1%V.FSH+KCN9]'HL99B#0])8FE:3GK*8XOMJ23#*@B7')53>;90E"
^XMB(3.9,22,2,19503,0)="""DATA"",396.18,473,3,1044,0)"
^XMB(3.9,22,2,19504,0)="MA8K]6IVA]=B+3AH33BAWK7PBT?.2=N=I4MF6XK]A<R\D).'0F\.F%WZ.*'*="
^XMB(3.9,22,2,19505,0)="""DATA"",396.18,473,3,1045,0)"
^XMB(3.9,22,2,19506,0)="M!9<CAD,'G\"";WML5S2Q?V#<&J]AIWH(+K;V`[O/@JN%4*/NU0ZJ:Y8NT6-O%"
^XMB(3.9,22,2,19507,0)="""DATA"",396.18,473,3,1046,0)"
^XMB(3.9,22,2,19508,0)="M@\Z#Y>:&ROZX4^U_%).#Y]-1%BR-FXY0A[#P$8A4+[ZP2NAJJO/@1+GUG9E+"
^XMB(3.9,22,2,19509,0)="""DATA"",396.18,473,3,1047,0)"
^XMB(3.9,22,2,19510,0)="M6*R7Y<:NHC#VZ306G.M.4$PZ059BZ%1*I=[5#@V]/,2""A0.%.,\I[51S;KV:"
^XMB(3.9,22,2,19511,0)="""DATA"",396.18,473,3,1048,0)"
^XMB(3.9,22,2,19512,0)="M8BLF9RH+SHLJ8I\HF:V)LIIB[EDPE06OJF[-Y[SZNGOLZ**BV):]LKV3E50R"
^XMB(3.9,22,2,19513,0)="""DATA"",396.18,473,3,1049,0)"
^XMB(3.9,22,2,19514,0)="M#<.5\EGN&DYGP?+FDFX.ECVZ,.FE5Q9:4'9HV/Q`]FQGNE7I.&+9NKO^<3B5"
^XMB(3.9,22,2,19515,0)="""DATA"",396.18,473,3,1050,0)"
^XMB(3.9,22,2,19516,0)="M!9==Z=!JO""H+-+0NC*>RX+KP?-(+'?V[ACB>S()KF6IRTVM99#H+KD81Q]$_"
^XMB(3.9,22,2,19517,0)="""DATA"",396.18,473,3,1051,0)"
^XMB(3.9,22,2,19518,0)="M66F>2-#I+%@N?:B'T5_2QG7PP#]]H\V&(UHWU((MRY[2@O4EGC5>=#B!/O5J"
^XMB(3.9,22,2,19519,0)="""DATA"",396.18,473,3,1052,0)"
^XMB(3.9,22,2,19520,0)="MK6$O>JS$!TEZE,3[1IL-)]`G6#`L^'E;<'R/%KPZNP6O[M&""5_=HP:NS6[!S"
^XMB(3.9,22,2,19521,0)="""DATA"",396.18,473,3,1053,0)"
^XMB(3.9,22,2,19522,0)="M?Q9LNPZ:PX)C+SBS!9MV,LYAP;%/SVS!98GW8<%=K9W3@OM*>KP%\Q+)/5DP"
^XMB(3.9,22,2,19523,0)="""DATA"",396.18,473,3,1054,0)"
^XMB(3.9,22,2,19524,0)="MLZ+$N2<+YH^&DN""<%LSC9B;!_5CPJOWB^3QS<-:WCW\._J_\Q]/=5?Z/_<=_"
^XMB(3.9,22,2,19525,0)="""DATA"",396.18,473,3,1055,0)"
^XMB(3.9,22,2,19526,0)="M2R]/B_?OWOR<_.N;F_7GE+@_+#YD_RK);]-/I\4_+-SRZP_[6_ZEXY<?_+:Y"
^XMB(3.9,22,2,19527,0)="""DATA"",396.18,473,3,1056,0)"
^XMB(3.9,22,2,19528,0)="M.EWSC_SJ9N:/Z>;S-?\MLJQ^[-WF\G1W2+^_6)_6[#O_*=Y\7WH>^^W`\R]\"
^XMB(3.9,22,2,19529,0)="""DATA"",396.18,473,3,1057,0)"
^XMB(3.9,22,2,19530,0)="M$CB^3[.])<_U+LI_5ULOQ5=NF/\W2APB[PA1UR'YUF[Q/Z?\#9E4?Z/^IV9O"
^XMB(3.9,22,2,19531,0)="""DATA"",396.18,473,3,1058,0)"
^XMB(3.9,22,2,19532,0)="MJ=IT<9S9^@7^&G)LG4.?AH[V4]8)*RY8,""P8%@P+A@7#@F'!L&!8,""P8%@P+"
^XMB(3.9,22,2,19533,0)="""DATA"",396.18,473,3,1059,0)"
^XMB(3.9,22,2,19534,0)="MA@7#@F'!L&!8,""P8%@P+A@7#@F'!L&!8,""P8%@P+A@7#@F'!L&!8,""P8%@P+"
^XMB(3.9,22,2,19535,0)="""DATA"",396.18,473,3,1060,0)"
^XMB(3.9,22,2,19536,0)="MA@7#@F'!L&!8,""P8%@P+A@7#@F'!L&!8,""P8%@P+A@7#@F'!L&!8,""SX<5MP"
^XMB(3.9,22,2,19537,0)="""DATA"",396.18,473,3,1061,0)"
^XMB(3.9,22,2,19538,0)="M*))HO$J""<$57KLO#?9`X2`*71M&*)L'T6?)XAE8G#N(@C)W$X24FU*&A7X<_"
^XMB(3.9,22,2,19539,0)="""DATA"",396.18,473,3,1062,0)"
^XMB(3.9,22,2,19540,0)="M6""P(X3\R?9:\V""$A+YN&L>=YO.R8$L*^\""G[AJ<I<:P%QX$3\NP35)`X+R\K"
^XMB(3.9,22,2,19541,0)="""DATA"",396.18,473,3,1063,0)"
^XMB(3.9,22,2,19542,0)="MVZ=A7G84>SU::VO!(4_7QLHF(:M""UK=APDMT6(DD*W$^""\Y23,5!Q,O.>MGA"
^XMB(3.9,22,2,19543,0)="""DATA"",396.18,473,3,1064,0)"
^XMB(3.9,22,2,19544,0)="M&;YX*J:R[*DMF)<8,Z6)6""E9X!HQ]@27-/\PD_3TF6K#+*0STR3>G3R(MN.P"
^XMB(3.9,22,2,19545,0)="""DATA"",396.18,473,3,1065,0)"
^XMB(3.9,22,2,19546,0)="M9CJNYS&%""[FB36W!H4!Z'?-$QV%F3WYN3ZQLAY4=6V5`[FO!3*62(EHYR1)A"
^XMB(3.9,22,2,19547,0)="""DATA"",396.18,473,3,1066,0)"
^XMB(3.9,22,2,19548,0)="ML!+99^P_8J1K,2_RI!9<B3P+""UN&ZTTHF6#,U(]7FC&S*#O(?X62""<9Q[3@="
^XMB(3.9,22,2,19549,0)="""DATA"",396.18,473,3,1067,0)"
^XMB(3.9,22,2,19550,0)="MS#E+80Z&%WV_7K152JE9O.A8GYE^/B\ZD<+CG]>""\UP;H75[1UMPF11)R$M("
^XMB(3.9,22,2,19551,0)="""DATA"",396.18,473,3,1068,0)"
^XMB(3.9,22,2,19552,0)="MSF7!U:SCG-^""PUZ*/84%5V)-Z'DM6,I%TZ%:TU@P3ZFA(<7.H'S:O2PX=,0,"
^XMB(3.9,22,2,19553,0)="""DATA"",396.18,473,3,1069,0)"
^XMB(3.9,22,2,19554,0)="MVIDI!_'R+!;,_0\IC6MBBID_A07GZ&""E]UB9>N=I>@>-G.T6')?CHQ3KOS#F"
^XMB(3.9,22,2,19555,0)="""DATA"",396.18,473,3,1070,0)"
^XMB(3.9,22,2,19556,0)="MUZ%4Y""06G&5W$&<$LI(]UCK%FXV&];'@N.Z]6+7F1M;%8>IMLF""AZ$;9D6AH"
^XMB(3.9,22,2,19557,0)="""DATA"",396.18,473,3,1071,0)"
^XMB(3.9,22,2,19558,0)="M9#H+%F&1*?>F6/9TN::E+#M$/TO(LY0S6:YIJ14R50[TZ4QDP7)^#FH@R66'"
^XMB(3.9,22,2,19559,0)="""DATA"",396.18,473,3,1072,0)"
^XMB(3.9,22,2,19560,0)="M$UFPO$YI:VU"")['@.C1L@]0HF^HGRU$6W(!2=4+6D<))+%A>4C<CQD9&%1]N"
^XMB(3.9,22,2,19561,0)="""DATA"",396.18,473,3,1073,0)"
^XMB(3.9,22,2,19562,0)="MP:'R#3TI:A/\0`N.6@?PT$0:D6O:M""?65K92T8$63(VME4E1:U4&67""CNY)5"
^XMB(3.9,22,2,19563,0)="""DATA"",396.18,473,3,1074,0)"
^XMB(3.9,22,2,19564,0)="M:_/B""2Q84%V9%'>4'8RWX(;9Q)K5DI;4-R2T3DYQ=]FF$@=:L*;$QDY6F50S"
^XMB(3.9,22,2,19565,0)="""DATA"",396.18,473,3,1075,0)"
^XMB(3.9,22,2,19566,0)="M7*WZMK;#@F-]I4J7X""(V:$%""AUIP;))3&%1>7P:_T,Y+HRRXT=HR2QT)Q3C("
^XMB(3.9,22,2,19567,0)="""DATA"",396.18,473,3,1076,0)"
^XMB(3.9,22,2,19568,0)="MV0]:E-W3@N6R$S?(Y<Q/68A:XHJ.M^#8Y&&X96[S,,^5JBM[I`4W6NL'11+$"
^XMB(3.9,22,2,19569,0)="""DATA"",396.18,473,3,1077,0)"
^XMB(3.9,22,2,19570,0)="M,$\.R/M63Z(36+!:=IEGDM?AHJ6UDU@PYSL-/S/,-)M<])""TK04'#;TJTM^&"
^XMB(3.9,22,2,19571,0)="""DATA"",396.18,473,3,1078,0)"
^XMB(3.9,22,2,19572,0)="MN;-.3!:\&FS!QKYS?2D7H>-XJ\[6]K3@IEV6:Y%0R7SLK*:VX$;?5>NTL%P8"
^XMB(3.9,22,2,19573,0)="""DATA"",396.18,473,3,1079,0)"
^XMB(3.9,22,2,19574,0)="M4:7$L5ZTX5RJ3J59E>U8SPRV7C31-K8L,7;%*/03S\$K<6W&Y!HU6AM(IV93"
^XMB(3.9,22,2,19575,0)="""DATA"",396.18,473,3,1080,0)"
^XMB(3.9,22,2,19576,0)="MS,'B?B""3;A0JI+""J@KC^C2>8@\6%(>O'*H5D6/E79?Y8F=1WP2*ND#1]Q_6W"
^XMB(3.9,22,2,19577,0)="""DATA"",396.18,473,3,1081,0)"
^XMB(3.9,22,2,19578,0)="MRHP3UCH@Z/4D7G2U,LRT.#N]""S06G.M^+>M>PY5Q'5S@BN&!5\""K6TM7XLB1"
^XMB(3.9,22,2,19579,0)="""DATA"",396.18,473,3,1082,0)"
^XMB(3.9,22,2,19580,0)="M=^WHG:Q""L<)FWOF0B;I9=IVU=YJ=K#Q]>@F-?9<?!I=YII7Q*=\C3GIO9NE7"
^XMB(3.9,22,2,19581,0)="""DATA"",396.18,473,3,1083,0)"
^XMB(3.9,22,2,19582,0)="M&QFG$F9""PRQW=RC4J_QV8SMI^$Y6)""I,$EP(&9^R&P""RH7/UB\D`?=*6S0:A"
^XMB(3.9,22,2,19583,0)="""DATA"",396.18,473,3,1084,0)"
^XMB(3.9,22,2,19584,0)="M>E#*1J0X*.=!*NR=&?:?QNU%!XFPA4?S""C3+;DE-/V`OFK7$#Z02:=.""D_I6"
^XMB(3.9,22,2,19585,0)="""DATA"",396.18,473,3,1085,0)"
^XMB(3.9,22,2,19586,0)="MQ8`3@):]:-9QM9+2?)@*<P4/Q%W*,><M<M]RF*.2\A&*YIY6-0OQ/<VNS""GV"
^XMB(3.9,22,2,19587,0)="""DATA"",396.18,473,3,1086,0)"
^XMB(3.9,22,2,19588,0)="M>]&,).QNYQGH259BGCB[L1=-Y#S;HRPX7QM438F*#S/[E<_P&J[/4`LNM+A*"
^XMB(3.9,22,2,19589,0)="""DATA"",396.18,473,3,1087,0)"
^XMB(3.9,22,2,19590,0)="M#1<U=QXR+SZ(Y6G3+DM-EP57`Q61OL5*9/-57-:O*?&DKZQCT:TQG4XF2?D5"
^XMB(3.9,22,2,19591,0)="""DATA"",396.18,473,3,1088,0)"
^XMB(3.9,22,2,19592,0)="M&RCC52UWC:P'67""]B5&,Q(E?K!F$.CG5?%^7R)H;4LM!4[5@MMCEHT30<`1H"
^XMB(3.9,22,2,19593,0)="""DATA"",396.18,473,3,1089,0)"
^XMB(3.9,22,2,19594,0)="MD4.<%Q,UNS21[HF1D/21-',NLKI3M4Z%/&F66""O,ALS7&O&2*`J'63`3:7;K"
^XMB(3.9,22,2,19595,0)="""DATA"",396.18,473,3,1090,0)"
^XMB(3.9,22,2,19596,0)="MJ#[_S<E19LYAU7SAUI*H3)2?Y$5AK]8*'D9>MB-H6_%3K+UAJ;:Q:#K<'V""M"
^XMB(3.9,22,2,19597,0)="""DATA"",396.18,473,3,1091,0)"
^XMB(3.9,22,2,19598,0)="MC8=9<.*[F9<NS3=4.KD)PN!5OML1-ZV6CR8AB>*!%NSX6=F"";F0MXZK#/KW("
^XMB(3.9,22,2,19599,0)="""DATA"",396.18,473,3,1092,0)"
^XMB(3.9,22,2,19600,0)="MIWY!N!+)L2E;T:NB1,E:I-FNT.F8GPV'\N*,EUA)NK<%EY(.Y362$V2FW)B#"
^XMB(3.9,22,2,19601,0)="""DATA"",396.18,473,3,1093,0)"
^XMB(3.9,22,2,19602,0)="M:2*K<UR4'0ZSX%*G92,)B_/F,!NR&Q<KLN\T+)CVM^!0NP(J2R_&RH;KFGL\"
^XMB(3.9,22,2,19603,0)="""DATA"",396.18,473,3,1094,0)"
^XMB(3.9,22,2,19604,0)="M?+S29L_KGH/Y>!4IB^NB_:RE3C%3Z4]QRW_%0^=@3@\U7AL?/6*G.1+6M0SC"
^XMB(3.9,22,2,19605,0)="""DATA"",396.18,473,3,1095,0)"
^XMB(3.9,22,2,19606,0)="MH7,PWRN+7=HBIRC;,VS*PZE;&PZ=@V-=V9E&1ZO6.UF5==DZ\U5KV0I,')_4"
^XMB(3.9,22,2,19607,0)="""DATA"",396.18,473,3,1096,0)"
^XMB(3.9,22,2,19608,0)="M7X^#2+=Q%#JCO6@^^,>:%7P21''01AJ1DT]:&>IV#ZAN%$Q(-(T77>Z5&/9]"
^XMB(3.9,22,2,19609,0)="""DATA"",396.18,473,3,1097,0)"
^XMB(3.9,22,2,19610,0)="MHPM-V32:QHNN5ISB:C&*VD@QO9C$B]:NJ$/GM>;WIUH'-_</FEZT3J6G6@=K"
^XMB(3.9,22,2,19611,0)="""DATA"",396.18,473,3,1098,0)"
^XMB(3.9,22,2,19612,0)="M44XKR5FMADA:.Q:H2]Q(I]*3K8.UBM5&2L;<.XP[VZ%I;3S9.KCL20-)4W;7"
^XMB(3.9,22,2,19613,0)="""DATA"",396.18,473,3,1099,0)"
^XMB(3.9,22,2,19614,0)="M]?A>MRI56-1&ZJ]6+>?F:C=K6COAG:Q&YS9(T6JP6MG=JG2ZFB9[]JOI+%C3"
^XMB(3.9,22,2,19615,0)="""DATA"",396.18,473,3,1100,0)"
^XMB(3.9,22,2,19616,0)="MS9&]6@V[5:ET;IL%]U:K]EN5B@U'YI^8Z%ZT8V_!,1VD3^:R0VK4J[8SH`DL"
^XMB(3.9,22,2,19617,0)="""DATA"",396.18,473,3,1101,0)"
^XMB(3.9,22,2,19618,0)="M6/4/FZW59#,?>2]:(#9(S5Z/9WA=V'ZU+@QFO!?=6'""13D&/M&!%78CQEDG_"
^XMB(3.9,22,2,19619,0)="""DATA"",396.18,473,3,1102,0)"
^XMB(3.9,22,2,19620,0)="M^Z/=+QODM1@Q5VRREPV)=N=!N4/K#-6GMK)7D@-ILN`A@NZRX&:3B+*O,K4%"
^XMB(3.9,22,2,19621,0)="""DATA"",396.18,473,3,1103,0)"
^XMB(3.9,22,2,19622,0)="M""\UML^""0#-:G]K+%I291&SOKRP9Q[XAT+G_'6["",UEIPX@S3*INW20*;F!L["
^XMB(3.9,22,2,19623,0)="""DATA"",396.18,473,3,1104,0)"
^XMB(3.9,22,2,19624,0)="MT]ND>C=/W,2D(_2I0]+""#1EAA]HPJDQJP7G32*/L<-SI9%=KLQLL!@L.^Q^8"
^XMB(3.9,22,2,19625,0)="""DATA"",396.18,473,3,1105,0)"
^XMB(3.9,22,2,19626,0)="M]7Q=F!2'D:2Y57>.UX7%\2&I-HK'Z5-W:_,[G*1AP7'7BZCQ%EP7[K0\P9KU"
^XMB(3.9,22,2,19627,0)="""DATA"",396.18,473,3,1106,0)"
^XMB(3.9,22,2,19628,0)="M?7!2%1V,UB<;2==E!A/H4P\+;ED9SF7!W5[T?!;<TMJSO?`G$^E3K];>VPM_"
^XMB(3.9,22,2,19629,0)="""DATA"",396.18,473,3,1107,0)"
^XMB(3.9,22,2,19630,0)="M,I$^];7@@7HU\H4_F4B?'IL%K\YNP:M[M.#5V2UX=7\6W+9W-+<%AV>WX""BZ"
^XMB(3.9,22,2,19631,0)="""DATA"",396.18,473,3,1108,0)"
^XMB(3.9,22,2,19632,0)="M/PLFX?U9,`G/;<&Z$L]EP7U:.XT%D_#^+)A$YFW)^2TX#L]KP2$)X_NRX""3H"
^XMB(3.9,22,2,19633,0)="""DATA"",396.18,473,3,1109,0)"
^XMB(3.9,22,2,19634,0)="MOB;2SX+_*__Q='>5_V/_\=_2R]/B_;LW/R?_^G;],=U&RQ\6'[)_E>2WZ:?3"
^XMB(3.9,22,2,19635,0)="""DATA"",396.18,473,3,1110,0)"
^XMB(3.9,22,2,19636,0)="MXA\6;E2]#OBPO^4?A-72^;?-U>F:?426R_*C']/-YVO^>Z3ZJ7A]>]KL=^RS"
^XMB(3.9,22,2,19637,0)="""DATA"",396.18,473,3,1111,0)"
^XMB(3.9,22,2,19638,0)="M%V_7I_2PWBY^W9_6_+,?%L[BM%^$SN(J_7Q(T^.+[HKZAHI2/Y`K2D)/J:@7"
^XMB(3.9,22,2,19639,0)="""DATA"",396.18,473,3,1112,0)"
^XMB(3.9,22,2,19640,0)="M]JOH:IO^6=?36]K7DSB.H:+$(\V*:B3JV55TM3_\L3Y<C:JH9Y)HLYJN4DW7"
^XMB(3.9,22,2,19641,0)="""DATA"",396.18,473,3,1113,0)"
^XMB(3.9,22,2,19642,0)="MMZMF\N<IW1V[*YC])_M_4D7?K7>LHI35,_L7_\E*/?D7>04SD955\_U,)ZMJ"
^XMB(3.9,22,2,19643,0)="""DATA"",396.18,473,3,1114,0)"
^XMB(3.9,22,2,19644,0)="M>7E5?]SL^%<OWOWR[F_OLK)?IU_2[9O=+CVPSS]^^76].:9975[O#U?IX?WI"
^XMB(3.9,22,2,19645,0)="""DATA"",396.18,473,3,1115,0)"
^XMB(3.9,22,2,19646,0)="MZS;EWSF^W^P^;U/^G7B_W?.?OMR^WVR_I`?^V6J_.WT?7Z\/QY07<)&L7OWM"
^XMB(3.9,22,2,19647,0)="""DATA"",396.18,473,3,1116,0)"
^XMB(3.9,22,2,19648,0)="M[8=_C7]\]>O[Y$/]$]6OOMZN+W^O/J_J^1TAU8<_KV]XT2]^>K]XO]X=%^_3"
^XMB(3.9,22,2,19649,0)="""DATA"",396.18,473,3,1117,0)"
^XMB(3.9,22,2,19650,0)="MP^;3B^K;9=7^S[_PC]ZM#^GNQ+_!/EJMM\>LJA_6'W_AS>""BXE]K^C\,Y/XO"
^XMB(3.9,22,2,19651,0)="""DATA"",396.18,473,3,1118,0)"
^XMB(3.9,22,2,19652,0)="MU;0T_%RX14>7XJ5N8?)UOQ<_(?3Z^]O-+OUA\?/^<,-LZ</U_K""^W&_O;CZN"
^XMB(3.9,22,2,19653,0)="""DATA"",396.18,473,3,1119,0)"
^XMB(3.9,22,2,19654,0)="M#XM?U[O/Z6+_:?'3GO]XH0;=4C3+494D%3XVR[(IS4_'U_OMU;_DW])+M=!6"
^XMB(3.9,22,2,19655,0)="""DATA"",396.18,473,3,1120,0)"
^XMB(3.9,22,2,19656,0)="M29BO[TZG_6[)C2G_IR1--_)%:=(HD.49-,7I4D6<\79_3(LJ""_U:[-/^LHNW"
^XMB(3.9,22,2,19657,0)="""DATA"",396.18,473,3,1121,0)"
^XMB(3.9,22,2,19658,0)="MF\O?V0=_YN7_-64ZO;G,/C55^J^'_=WMZ_V?E%>[_$*J.%V*]79=N=K+R&O4"
^XMB(3.9,22,2,19659,0)="""DATA"",396.18,473,3,1122,0)"
^XMB(3.9,22,2,19660,0)="MFP:N4D-B''O""T##VA(W!QUV2B0=SVF/2<9LVTC+K!&3JZ=&RIF]NUI]3/CMF"
^XMB(3.9,22,2,19661,0)="""DATA"",396.18,473,3,1123,0)"
^XMB(3.9,22,2,19662,0)="M_V@?R_UF':E+E#JZ-""H_>[>Y/-T=TN\OUJ<U^\Y_B@^7EAX;6Z/`\R]\$CB^"
^XMB(3.9,22,2,19663,0)="""DATA"",396.18,473,3,1124,0)"
^XMB(3.9,22,2,19664,0)="M3[,M2,_U+LI_5QNPQ5=N'I7*B1+QV6CV$ZY#\L!2Q?^<\C=D4OV-^I\RJ?Q3"
^XMB(3.9,22,2,19665,0)="""DATA"",396.18,473,3,1125,0)"
^XMB(3.9,22,2,19666,0)="M[O>?;0M@R*;+ZOZ6;-AT>;J;+I/7""8%18<&P8%@P+!@6#`N&!<.""8<&P8%@P"
^XMB(3.9,22,2,19667,0)="""DATA"",396.18,473,3,1126,0)"
^XMB(3.9,22,2,19668,0)="M+!@6#`N&!3]#""P[OSX*32:Z$]VFM\-#$I6>W8#*C!8<.%=-5T##@>=""BV`D2"
^XMB(3.9,22,2,19669,0)="""DATA"",396.18,473,3,1127,0)"
^XMB(3.9,22,2,19670,0)="M&GN!0T@<\Q12H1.S'R1Y*KQ5F#BQ3VE(PR08;L$\706#!#S56Q3R$D//+TL4"
^XMB(3.9,22,2,19671,0)="""DATA"",396.18,473,3,1128,0)"
^XMB(3.9,22,2,19672,0)="M=K6SLBF)L[1A*YX9SJ74(6%WD$6S!8>K)`AHN.*)[:(PYF6S?_*R>=09]@D/"
^XMB(3.9,22,2,19673,0)="""DATA"",396.18,473,3,1129,0)"
^XMB(3.9,22,2,19674,0)="M\L&_F968)$Y`B9@<S[)LJ<0X6/$2?;\^7U@L(EZVPW/-%66'(0\""0?B/\;)Y"
^XMB(3.9,22,2,19675,0)="""DATA"",396.18,473,3,1130,0)"
^XMB(3.9,22,2,19676,0)="MT)85Y4GI@N$6S$-E,$8>LH67Z!*Q1-:9#A%.)))""TJQ/PK:RK2PXRVC'PX.%"
^XMB(3.9,22,2,19677,0)="""DATA"",396.18,473,3,1131,0)"
^XMB(3.9,22,2,19678,0)="M1=F.6#97)/8%_^:*9Z&+`ZFU@RPXS$*TY'U+>-\ZK!#!@DEVQZ7L9<?S\K)C"
^XMB(3.9,22,2,19679,0)="""DATA"",396.18,473,3,1132,0)"
^XMB(3.9,22,2,19680,0)="M)@7>RV%'.,M6""\YD[#!=9O^?A+D5^?Q$)Z29I$.FR4SM<_D*H?F<A.ET2""R2"
^XMB(3.9,22,2,19681,0)="""DATA"",396.18,473,3,1133,0)"
^XMB(3.9,22,2,19682,0)="M'VEBO#OB0S@>>""W+7EE9,,G*CME_PL""E62H\9L$\L2.-::^G/=KX\M5UL%S2"
^XMB(3.9,22,2,19683,0)="""DATA"",396.18,473,3,1134,0)"
^XMB(3.9,22,2,19684,0)="M/+8._T'YH4DATRP=7?[S=.0<G(=_<_1EFTJ$%PTO&EXTO&A8,""P8%@P+[FG!"
^XMB(3.9,22,2,19685,0)="""DATA"",396.18,473,3,1135,0)"
^XMB(3.9,22,2,19686,0)="MQK#0=2R6V2S8HNR)+3CI3C0>!C-9L+FU<UEPTIUH/)S+@HVM=>:WX):RY[)@"
^XMB(3.9,22,2,19687,0)="""DATA"",396.18,473,3,1136,0)"
^XMB(3.9,22,2,19688,0)="MTDERYK+@57=KYYN#'=-^UFQS<*>U),YJ)@LV68L2CB6>)=V\WH"")]?32=PX."
^XMB(3.9,22,2,19689,0)="""DATA"",396.18,473,3,1137,0)"
^XMB(3.9,22,2,19690,0)="MC5N5QB3QD\W!PBC\6MK:,U9[K`7'NOF."",VN]S%BV];:6G!=MJ""\L5!BV`S*"
^XMB(3.9,22,2,19691,0)="""DATA"",396.18,473,3,1138,0)"
^XMB(3.9,22,2,19692,0)="M%@=367!-$M18;&UH*G&H!8LE:O?$ZA>F8=_6=EEP'&AU*1%*#/(J3&7!NK""O"
^XMB(3.9,22,2,19693,0)="""DATA"",396.18,473,3,1139,0)"
^XMB(3.9,22,2,19694,0)="M4MJ$^BU>5?94%ERU-B%$+E$-MYR7W2N,9:L%5Z28BJ\KE=8F=""H+KDL4@_\*"
^XMB(3.9,22,2,19695,0)="""DATA"",396.18,473,3,1140,0)"
^XMB(3.9,22,2,19696,0)="M(XE8-FUU%'I;<%5V&(B9N>H""1`NFPR1MJE-%<E9$H"";=K1UJP54I9%6D[#!Z"
^XMB(3.9,22,2,19697,0)="""DATA"",396.18,473,3,1141,0)"
^XMB(3.9,22,2,19698,0)="M]D79]J$7NBRX+#OA@6B(MK7Y/\E4%IPH8T$6_5T7P:LJ>RH++EO+=(J(DZ*C"
^XMB(3.9,22,2,19699,0)="""DATA"",396.18,473,3,1142,0)"
^XMB(3.9,22,2,19700,0)="ML^""HGZ0[+9A4?@`1AV!G92IQ]#J8:%HG)2:O1!`&H9U;;;V31:I&$]%4JA*E"
^XMB(3.9,22,2,19701,0)="""DATA"",396.18,473,3,1143,0)"
^XMB(3.9,22,2,19702,0)="ME`>]7?KVG2RGZFPB8JN9(#:5.#RL8E5`GKU1]0M(5]F#=[+""2K!$\O2:)8:3"
^XMB(3.9,22,2,19703,0)="""DATA"",396.18,473,3,1144,0)"
^XMB(3.9,22,2,19704,0)="M[62%FJ1O1)IIZU.7O$+A9#M9M?2(-.JK@7;C(+>R/EL0[3M9867'1!K_JVPX"
^XMB(3.9,22,2,19705,0)="""DATA"",396.18,473,3,1145,0)"
^XMB(3.9,22,2,19706,0)="MM%'B:`O.>`E5O&A'69<F1=F=SIVU!<=!^?^(W(-E=CCA5H!EV=86G)'""JNR<"
^XMB(3.9,22,2,19707,0)="""DATA"",396.18,473,3,1146,0)"
^XMB(3.9,22,2,19708,0)="MF^7SH&5KJ=:Y&VS!68E.:3<QU:1SCLLQ+::O5T.#21O+)F79A3;%0;5^29A;"
^XMB(3.9,22,2,19709,0)="""DATA"",396.18,473,3,1147,0)"
^XMB(3.9,22,2,19710,0)="M0!L2'V?!L41*JK++08/64B?Y;1IC:WM;,.^SN`[T5^BO'$RZ3%I5!/""D4UEP"
^XMB(3.9,22,2,19711,0)="""DATA"",396.18,473,3,1148,0)"
^XMB(3.9,22,2,19712,0)="M5G90E5TNB.IZ.(7(R6063(MBFNO@\OBYKD>8$""N7P]J""DVKZ(X*QQ/6_Q?LJ"
^XMB(3.9,22,2,19713,0)="""DATA"",396.18,473,3,1149,0)"
^XMB(3.9,22,2,19714,0)="M/1W++@M.JFF?""$-D(O1[K""]QL`4GE6MC\%BK+D\<8429Q()9V5)S:J4N=*Y<"
^XMB(3.9,22,2,19715,0)="""DATA"",396.18,473,3,1150,0)"
^XMB(3.9,22,2,19716,0)="MM`D2'V?!*S$(:6FJHHMU46E`0-IWIP>$-A8SGU:JW-RG""[D9T[X[XUVG24XI"
^XMB(3.9,22,2,19717,0)="""DATA"",396.18,473,3,1151,0)"
^XMB(3.9,22,2,19718,0)="M7%&CBFKR39ZD4>+XTZ2P*$K9R2I'ZNR2""8\46UZ#&I3005]VV1PY$NQ%MN7A"
^XMB(3.9,22,2,19719,0)="""DATA"",396.18,473,3,1152,0)"
^XMB(3.9,22,2,19720,0)="MB)Y];%FVM05GN5?%0D-Q5XWGW`M6VOVDX>?!Y0[62DEC)6=2%/(A!1-9<+U?"
^XMB(3.9,22,2,19721,0)="""DATA"",396.18,473,3,1153,0)"
^XMB(3.9,22,2,19722,0)="M1Y35@D&?XF`J""ZY6!Z2Q_""[FO[""CM?TM.&F4N-(D#LOWU<+FZFFT!3=;6WNS"
^XMB(3.9,22,2,19723,0)="""DATA"",396.18,473,3,1154,0)"
^XMB(3.9,22,2,19724,0)="M>8#6J+%:'V_!,3'N10OFPF^Z$64+<[0%.\IZ3!C,Q+U#V[+M+=@)FV6+N[2."
^XMB(3.9,22,2,19725,0)="""DATA"",396.18,473,3,1155,0)"
^XMB(3.9,22,2,19726,0)="M2U936S`)C?HD;9C508<GL^""D6;;L6]1QPB>SX%A9`0E%.HU3GHDMN%S=2MME"
^XMB(3.9,22,2,19727,0)="""DATA"",396.18,473,3,1156,0)"
^XMB(3.9,22,2,19728,0)="M6E+85](6Z^#&K-1@U]NW4\W!3LG4G2;)]A*L[#P.Z[UHTIQ\FWN_FIESPKUH"
^XMB(3.9,22,2,19729,0)="""DATA"",396.18,473,3,1157,0)"
^XMB(3.9,22,2,19730,0)="MIZG*SLJX+3+>@F.EQ,9=;8NRAUIP&*QDO]+HSDSE1<OGP7'0*%MK,,Y$7K2S"
^XMB(3.9,22,2,19731,0)="""DATA"",396.18,473,3,1158,0)"
^XMB(3.9,22,2,19732,0)="MTI2HIIO7;>B.M>`\Z7QS^:4]OIEH'1S76PC:\V!=RY*)UL'Y'IJRM'8Z5J^3"
^XMB(3.9,22,2,19733,0)="""DATA"",396.18,473,3,1159,0)"
^XMB(3.9,22,2,19734,0)="M6'`8"".O159M2)Q.M@\7M""VTRV#CH+VE+""R;""<$`TTX'PD>KU#-&KI!EZ792W"
^XMB(3.9,22,2,19735,0)="""DATA"",396.18,473,3,1160,0)"
^XMB(3.9,22,2,19736,0)="MJ6G&UO:SX,*5DE)6E#U@)""736'#>AXE:=FAN[3@+S@4;$VJT8(U23V3!Q>%*"
^XMB(3.9,22,2,19737,0)="""DATA"",396.18,473,3,1161,0)"
^XMB(3.9,22,2,19738,0)="MH+16\&9GLN""DW%*)FMN0JE)/8\$%M]AAT5@PZWNU;=/L15=;6/6&=+D;[+18"
^XMB(3.9,22,2,19739,0)="""DATA"",396.18,473,3,1162,0)"
^XMB(3.9,22,2,19740,0)="M\(B]Z.;.:%+L*M3(2*/4T^Q%Y]@DR'%$_+F6Y,+))'O1I4HWRV:U4=;9""9W`"
^XMB(3.9,22,2,19741,0)="""DATA"",396.18,473,3,1163,0)"
^XMB(3.9,22,2,19742,0)="M@I-Z;'8""@P53M7&=K;6Q8&%GE*]%!&34=MJ=3'&:5,QV=%6=S@J_TE1JI<0A"
^XMB(3.9,22,2,19743,0)="""DATA"",396.18,473,3,1164,0)"
^XMB(3.9,22,2,19744,0)="M%AS6]W""2NK4RB174'""VM6]MFP8Z\R2XGH&LJ5C(H-6FLF_*;*^I8+CM6]""@)"
^XMB(3.9,22,2,19745,0)="""DATA"",396.18,473,3,1165,0)"
^XMB(3.9,22,2,19746,0)="MQEMP(KH;87-T-GL8R03GP84LJZ-WJ7E14[&FL&!IJ2#=IZ/RCX736[""T*$N("
^XMB(3.9,22,2,19747,0)="""DATA"",396.18,473,3,1166,0)"
^XMB(3.9,22,2,19748,0)="M7&(2A*:D2@D=;\&.O-/>.`HD#:5.)C@/=L2+='6)ZKY*2*>>@Y/\)F-5=D`;"
^XMB(3.9,22,2,19749,0)="""DATA"",396.18,473,3,1167,0)"
^XMB(3.9,22,2,19750,0)="M6]1DZCDXSC?BE-L3(7_S+$FE$2EV@CDX]AUA$1PVHC:$4MS:J;WH,$\V5ZBN"
^XMB(3.9,22,2,19751,0)="""DATA"",396.18,473,3,1168,0)"
^XMB(3.9,22,2,19752,0)="M(Y>=*)G))O""BG7QWN[(EH754:K9#9<6:P(LFC;+#9HD),9`&>M&29F9W@ZNI"
^XMB(3.9,22,2,19753,0)="""DATA"",396.18,473,3,1169,0)"
^XMB(3.9,22,2,19754,0)="M2;;8[#5ZT+;'T=N""XZ+$ZGPP)GH2URI9YYRQ%LST*3L-K,J6GD]DWY+?TPL["
^XMB(3.9,22,2,19755,0)="""DATA"",396.18,473,3,1170,0)"
^XMB(3.9,22,2,19756,0)="M6</VHD.^*G.""I'G:'3NRQ89\LS_VJ'[Y-,R""'=[$D%3#E60UB>-+=8JI.#/U"
^XMB(3.9,22,2,19757,0)="""DATA"",396.18,473,3,1171,0)"
^XMB(3.9,22,2,19758,0)="MR.2LM>`DN_V5Q:$H=%A,8QAF<U1""Q*F^[(FA%IRUDJ[*)KX6;\&)93MTE?OT"
^XMB(3.9,22,2,19759,0)="""DATA"",396.18,473,3,1172,0)"
^XMB(3.9,22,2,19760,0)="M1-[_3T98<)R7'3M!8Z8HIJA5?GDIUKXE""4ELF;HS%A59L18J#(]""8S5K_U(3"
^XMB(3.9,22,2,19761,0)="""DATA"",396.18,473,3,1173,0)"
^XMB(3.9,22,2,19762,0)="MBB/5OA8<5@-3=>&>JHE\8T>[2\LKQ[H_=-K;;+)@-=MIK5B.]H!.)/&\H8[/"
^XMB(3.9,22,2,19763,0)="""DATA"",396.18,473,3,1174,0)"
^XMB(3.9,22,2,19764,0)="M8Z];2[H:W9VX.2-D8B1-431<@#*KI20%2PN.J3`WR:-&K$WGW&A6V<]='K7."
^XMB(3.9,22,2,19765,0)="""DATA"",396.18,473,3,1175,0)"
^XMB(3.9,22,2,19766,0)="M@N,ZDV^IGDE!$Z777/N'4CQ[&G3.CK&Z/^54W2M$M*&\FQ-IVE=&Y""(ZO^,'"
^XMB(3.9,22,2,19767,0)="""DATA"",396.18,473,3,1176,0)"
^XMB(3.9,22,2,19768,0)="M?2W8$=N3=RJ/.T(3.?DJ%XJQ[UC=8J=#K6-1D75O<7,9\TFQB=(X=`Z/5..J"
^XMB(3.9,22,2,19769,0)="""DATA"",396.18,473,3,1177,0)"
^XMB(3.9,22,2,19770,0)="M*8$[RJZ[)!OEQ?P$AM:IG9C[*T[BD'X6'%-YO*\*)^:C%.7%8]8G?DS;KCS$"
^XMB(3.9,22,2,19771,0)="""DATA"",396.18,473,3,1178,0)"
^XMB(3.9,22,2,19772,0)="MFD,B1_&BLZ(]I_T(*:F&&,=NI1AKK*,:#A,JJZ[V1$(H.BC?!+8E+(_;QX+2"
^XMB(3.9,22,2,19773,0)="""DATA"",396.18,473,3,1179,0)"
^XMB(3.9,22,2,19774,0)="M:K*RFU.[+,7L'9X@IRB_J=82UBC6*4FLS.;YCDN#DS06Q^5--;I:-59O[1:<"
^XMB(3.9,22,2,19775,0)="""DATA"",396.18,473,3,1180,0)"
^XMB(3.9,22,2,19776,0)="MR,N#0/BPR2$MT8B*_KIH42SI8I-N-A?W>)IVX]3[:GR)$ZR""0-',B^ZRF[.Y"
^XMB(3.9,22,2,19777,0)="""DATA"",396.18,473,3,1181,0)"
^XMB(3.9,22,2,19778,0)="MN""!V+-Z8\E!>E49<A/[K'A;<4$)Y04QU6R),GH8D\5'KS!3K%ARRAQ$(72]K"
^XMB(3.9,22,2,19779,0)="""DATA"",396.18,473,3,1182,0)"
^XMB(3.9,22,2,19780,0)="M5ET5?L^U,LB+^H&MC04KXYYTU3HV[#P(XVO0,+8+>PM6=#`S*>$MFJS4U=:$"
^XMB(3.9,22,2,19781,0)="""DATA"",396.18,473,3,1183,0)"
^XMB(3.9,22,2,19782,0)="M]H6:1=FZDT>'*!:L_F""V<,[4(DKHZY;6MEFPNKJ*G4`P:WGKH9$Q)WL1$`2O"
^XMB(3.9,22,2,19783,0)="""DATA"",396.18,473,3,1184,0)"
^XMB(3.9,22,2,19784,0)="MM<IG:FVK[QO6]U25:CF%R]E0#O%V?%?9NM-TAW3>IXL+]RM0;D;;Q!:,S?M"""
^XMB(3.9,22,2,19785,0)="""DATA"",396.18,473,3,1185,0)"
^XMB(3.9,22,2,19786,0)="M651(W9]""J9RVUX7F8)ZQ;E10]^GT@-+-U$Q[6M]76[9^T:YX+8H%ERXN^_V&"
^XMB(3.9,22,2,19787,0)="""DATA"",396.18,473,3,1186,0)"
^XMB(3.9,22,2,19788,0)="MI$-J:\&&JR^AUF6*RY>[<8N'T5&V:7M$C`NIDW58.E)J+(F06EJPR<U/J*Y["
^XMB(3.9,22,2,19789,0)="""DATA"",396.18,473,3,1187,0)"
^XMB(3.9,22,2,19790,0)="MQ=5K4I;='""L[6MM]^S2+'*AZKM5;!U8QQ[`JNV@OV^0?9/?!S!$CA*MJK%Z-"
^XMB(3.9,22,2,19791,0)="""DATA"",396.18,473,3,1188,0)"
^XMB(3.9,22,2,19792,0)="M#0=J:<&F*3.31[.]/%[&ZR:)-IVYA%J>)IDD7OAV,E?XBB;!A6Z\&AXG*Z'"""
^XMB(3.9,22,2,19793,0)="""DATA"",396.18,473,3,1189,0)"
^XMB(3.9,22,2,19794,0)="M[KA""BJ4SS*""Q`V%MP:UE""X4W!IJH$+F&U%/2&@NFXL)`7EEH,8F5!2?$N+=:"
^XMB(3.9,22,2,19795,0)="""DATA"",396.18,473,3,1190,0)"
^XMB(3.9,22,2,19796,0)="MS_K%]F$QB&BTH*F9;?-@[%1K@58+%A:<FG5BPXHLY^#0\;R@O;6-ES*.4V^>"
^XMB(3.9,22,2,19797,0)="""DATA"",396.18,473,3,1191,0)"
^XMB(3.9,22,2,19798,0)="MQH6+Q;K<QN-H6#""/4MQ1MF86SOI8NJL=2I16CR/V$FIEP;H_A(1A=0RAEMAE"
^XMB(3.9,22,2,19799,0)="""DATA"",396.18,473,3,1192,0)"
^XMB(3.9,22,2,19800,0)="MP6K9IA(U)!H6N:P31_(""6EM+8HW':BOI51@5<,?7C^-A6]E.G%!;""]:(NBP["
^XMB(3.9,22,2,19801,0)="""DATA"",396.18,473,3,1193,0)"
^XMB(3.9,22,2,19802,0)="M#`)BW&(S67`<]]4KZ5Y/678<1*'-@0NWHMCK8\'-;T15@-]DJ9,365F-'G86"
^XMB(3.9,22,2,19803,0)="""DATA"",396.18,473,3,1194,0)"
^XMB(3.9,22,2,19804,0)="M+/V)ZASI=.5VGGDT+)B'7S8TJ\6"">0STYJ@2U/-4YXY#2(9:,'/O2%C>2Q!>"
^XMB(3.9,22,2,19805,0)="""DATA"",396.18,473,3,1195,0)"
^XMB(3.9,22,2,19806,0)="M(]BO@Z-XJ`7SV.A15':S8W&.UYR#+<N6^[<HD0V;ZAV:KK+5&&/V%BS\MG#6"
^XMB(3.9,22,2,19807,0)="""DATA"",396.18,473,3,1196,0)"
^XMB(3.9,22,2,19808,0)="M9G5B&K>I8&)W$E@J4>QXI%M,EM%F[:Y-..6B++:ZM63AV_4Y""2RN!SA]3Y-Z"
^XMB(3.9,22,2,19809,0)="""DATA"",396.18,473,3,1197,0)"
^XMB(3.9,22,2,19810,0)="MZI7!I\LN*I!5S];VL&#=)H0P&X_UHBW/I<13EKZG20,DW:M.`[WHH7_ZQXM."
^XMB(3.9,22,2,19811,0)="""DATA"",396.18,473,3,1198,0)"
^XMB(3.9,22,2,19812,0)="MZ`2M&VC!*SI!ZWI)>I+6#;3@6>J$>-'GDKBE!<=GM^""0W)\%$W)N""U;C89S/"
^XMB(3.9,22,2,19813,0)="""DATA"",396.18,473,3,1199,0)"
^XMB(3.9,22,2,19814,0)="M@DEX?Q9,PG-;,`GOSX)M6SN'!9,P#LYKP5D>G7NRX)""0Z+P6'-.\Q/N9@T-Z"
^XMB(3.9,22,2,19815,0)="""DATA"",396.18,473,3,1200,0)"
^XMB(3.9,22,2,19816,0)="M?W/PL+D!<W!?""YZE3LBZ`B\:7C0L&!8,""QYHP?$]6G#;*Y&Y+=BA9[9@Z576"
^XMB(3.9,22,2,19817,0)="""DATA"",396.18,473,3,1201,0)"
^XMB(3.9,22,2,19818,0)="MF2W8ZLW$3!8<.\Z9+3CTG.""^+-B)>SC4`RU8ONE.8HM<3I-9L/0JBH>()A-9"
^XMB(3.9,22,2,19819,0)="""DATA"",396.18,473,3,1202,0)"
^XMB(3.9,22,2,19820,0)="M\'_E/Y[NKO)_[#_^6WIY6KQ_]^;GY%_?W*P_I]X/BP_9/TKPV_33:?$/""^I6"
^XMB(3.9,22,2,19821,0)="""DATA"",396.18,473,3,1203,0)"
^XMB(3.9,22,2,19822,0)="MZ6X_[&_9!]6-Q]\V5Z=K]H&[K#[Z,=U\ON:_1>H'7>\VEZ>[0_K]Q?JT9M_Y"
^XMB(3.9,22,2,19823,0)="""DATA"",396.18,473,3,1204,0)"
^XMB(3.9,22,2,19824,0)="M3^'""9+#T/->/`L^_\$G@^#[-[N![KG=1_KO\4W[E%O<?(NDB8/83+D^-RZ]E"
^XMB(3.9,22,2,19825,0)="""DATA"",396.18,473,3,1205,0)"
^XMB(3.9,22,2,19826,0)="M%/]SRM^02?4WZG\V+G&6+Q""*/H&[!G<-[AH67+!@6#`L&!8,""X8%PX)AP;!@"
^XMB(3.9,22,2,19827,0)="""DATA"",396.18,473,3,1206,0)"
^XMB(3.9,22,2,19828,0)="M6#`L&!8,""X8%PX)AP;!@6#`L&!8,""X8%PX)AP;!@6#`L&!8,""X8%PX)AP;!@"
^XMB(3.9,22,2,19829,0)="""DATA"",396.18,473,3,1207,0)"
^XMB(3.9,22,2,19830,0)="M6#`L&!8,""X8%PX)AP;!@6#`L&!8,""X8%PX)AP;!@6#`L&!8,""X8%PX)AP;!@"
^XMB(3.9,22,2,19831,0)="""DATA"",396.18,473,3,1208,0)"
^XMB(3.9,22,2,19832,0)="M6#`L&!8,""X8%PX)AP;!@6#`L&!8\I07'3A#3<.70F,2^0TD8>T[@\'""]E&=2"
^XMB(3.9,22,2,19833,0)="""DATA"",396.18,473,3,1209,0)"
^XMB(3.9,22,2,19834,0)="M#SW'Y[&*(R'<>3""5!<<.#4F89`EIO*)L-R^;UX5GSR;$J5(136#!\8I$8<CS"
^XMB(3.9,22,2,19835,0)="""DATA"",396.18,473,3,1210,0)"
^XMB(3.9,22,2,19836,0)="MP,2QYV<E!BXED4AB95/6Y-@/6)6BOJTU6W""<YZ^*""8D]+RC*SD(QTS`)V/<\"
^XMB(3.9,22,2,19837,0)="""DATA"",396.18,473,3,1211,0)"
^XMB(3.9,22,2,19838,0)="M7F*5]&FH!<=!E?LLYMF%0C$-KU@VS25->-FQ(Y<]T()Y>A^I[,0)Q!)C'N3;"
^XMB(3.9,22,2,19839,0)="""DATA"",396.18,473,3,1212,0)"
^XMB(3.9,22,2,19840,0)="M<7B)`LFR;&V)3'>$V%U%$C16=AB&F4+%1=DNI3SB-M,HUK=QWK=*T.^^%AQ&"
^XMB(3.9,22,2,19841,0)="""DATA"",396.18,473,3,1213,0)"
^XMB(3.9,22,2,19842,0)="M89%9D/5MS'69QI27Z`H2=YB%A>Q[//%@Z#N^PQ0@#*(B""1(9:L%,@XLT`'$="
^XMB(3.9,22,2,19843,0)="""DATA"",396.18,473,3,1214,0)"
^XMB(3.9,22,2,19844,0)="M^;#*FY5_F063(SP9'M&0>H5HY&GY6(EYIBO)@MO*CLJRLS]J2D];""^8)NHHX"
^XMB(3.9,22,2,19845,0)="""DATA"",396.18,473,3,1215,0)"
^XMB(3.9,22,2,19846,0)="MWD*&0:E$D92%8\R2/-89ILA@""R8\""5G<-\IB(J4N[R7I(LU=.#B@95MCNRR8"
^XMB(3.9,22,2,19847,0)="""DATA"",396.18,473,3,1216,0)"
^XMB(3.9,22,2,19848,0)="M9""IITUPM*7&""GA;,;$9(!]I;,>7&#IB#^:^'`S73JK$MB6J=TE#Z:V;<-\)J"
^XMB(3.9,22,2,19849,0)="""DATA"",396.18,473,3,1217,0)"
^XMB(3.9,22,2,19850,0)="MGBR6&4OBA&2(9K*I>=0<7)8]1#/U9=O/P3&;$T/20SF+I'[#O6B>CY""-0R'M"
^XMB(3.9,22,2,19851,0)="""DATA"",396.18,473,3,1218,0)"
^XMB(3.9,22,2,19852,0)="MKYE\GJ)CO&BF5SPD;:<1:])^L4;W#""BK>M%9EF5;]>3Z()K`$""\ZSP(;DYZ:"
^XMB(3.9,22,2,19853,0)="""DATA"",396.18,473,3,1219,0)"
^XMB(3.9,22,2,19854,0)="MF?6P8U'1-B^ZR+QKIUG""2$<RTW=Z2[HL44SN;36W9=4,-:--+R\Z+M+N!GTT"
^XMB(3.9,22,2,19855,0)="""DATA"",396.18,473,3,1220,0)"
^XMB(3.9,22,2,19856,0)="M,U?$T""$C++@JVTJS<K,+A\_!!:;P[IP>FEG()O2""<>M@)[:88QJD,K6F1\=9"
^XMB(3.9,22,2,19857,0)="""DATA"",396.18,473,3,1221,0)"
^XMB(3.9,22,2,19858,0)="M,""E5K9-3YB$6,J0.LF""2:'S$=E+YH_&*C+-@*FM-NU8I7O00""P[4.C4&Z]#0"
^XMB(3.9,22,2,19859,0)="""DATA"",396.18,473,3,1222,0)"
^XMB(3.9,22,2,19860,0)="M6,VW^EFP$!1>U*PX3V>MEQ-INMP#+3C4>FVQF-!:69K$=(P%.Y)=JJ1\2!*'"
^XMB(3.9,22,2,19861,0)="""DATA"",396.18,473,3,1223,0)"
^XMB(3.9,22,2,19862,0)="M8;$?S*D9;2R8Z)S44MFJ;I#6+4)Y""1ECP79EFTH<8,%2=2ME#152;6SR:I"","
^XMB(3.9,22,2,19863,0)="""DATA"",396.18,473,3,1224,0)"
^XMB(3.9,22,2,19864,0)="ML&""YF\HF542G(0B%Y/36JZ(5:NN<1H5*>VE,F.$(""VZ88.Y]U'@AL6CQ8<,]"
^XMB(3.9,22,2,19865,0)="""DATA"",396.18,473,3,1225,0)"
^XMB(3.9,22,2,19866,0)="M""$=8<*/LW'<3Q.<4]A28O)Z@KZ2-"">E8ZV)']""C"";`1K^KS&`<O""@IN2""EV'"
^XMB(3.9,22,2,19867,0)="""DATA"",396.18,473,3,1226,0)"
^XMB(3.9,22,2,19868,0)="MB#-B$BBQXR51]\G]U;1@J>P\Y/TJ"":2AJ0A2+QD>'6[!I%D>EZ;>?XHRO0OE"
^XMB(3.9,22,2,19869,0)="""DATA"",396.18,473,3,1227,0)"
^XMB(3.9,22,2,19870,0)="MPCOSV+:L@XDP%Y1J+:6HX\LW6KCZNG&<])2T)JUS7!E1(YT'3Q8>K*K""#27:"
^XMB(3.9,22,2,19871,0)="""DATA"",396.18,473,3,1228,0)"
^XMB(3.9,22,2,19872,0)="M6W`E*$%\QN0E9;;TK&S2<\!2+3BADBNM'1^$;U6V79/""GI*.`WD`E.74'!<="
^XMB(3.9,22,2,19873,0)="""DATA"",396.18,473,3,1229,0)"
^XMB(3.9,22,2,19874,0)="MC>F&@RTXU@R`B=RYF>#-Z:_#P19<E""VU+_&<E=[3*(Q**+&_!><ERGX#&Z*T"
^XMB(3.9,22,2,19875,0)="""DATA"",396.18,473,3,1230,0)"
^XMB(3.9,22,2,19876,0)="M_E,HR[W<21ULP3E`'O""20&AAXDCK(8%4B+K'[G]<RRDTR""D632HDC;&):$NT"
^XMB(3.9,22,2,19877,0)="""DATA"",396.18,473,3,1231,0)"
^XMB(3.9,22,2,19878,0)="MM^!0HQN1H&?R'$PUTZ]M:U4+[BK;5.*@\SNA1-/Z+A*,F/<W[799>EAPJ!EK"
^XMB(3.9,22,2,19879,0)="""DATA"",396.18,473,3,1232,0)"
^XMB(3.9,22,2,19880,0)="M(\&D>2=3`RF?+I-@J`6'FEDMJAW73+GE[^8_G`1#+3C45#B22;E69W-AHV'4"
^XMB(3.9,22,2,19881,0)="""DATA"",396.18,473,3,1233,0)"
^XMB(3.9,22,2,19882,0)="MIK5F""S:5G;<SZV))%A*)6CD`NA)CTPY-5/5OJ/,I(UV)/2TXUB!Y:<I*T:'="
^XMB(3.9,22,2,19883,0)="""DATA"",396.18,473,3,1234,0)"
^XMB(3.9,22,2,19884,0)="M9=M;<*09:J/2=HNUMJNJO#BJ])1TLT3%@O.&%\V4/:]5V-;:+@O6)U[2_=%G"
^XMB(3.9,22,2,19885,0)="""DATA"",396.18,473,3,1235,0)"
^XMB(3.9,22,2,19886,0)="M8-+XN!VM3=I)MG_($`M.AK6N5VM-%IST;J*V3KTD/:AUK:WM:\&RIEZ4`[-B"
^XMB(3.9,22,2,19887,0)="""DATA"",396.18,473,3,1236,0)"
^XMB(3.9,22,2,19888,0)="MP0V=CL=9L*;L>-48KW0E#K?@YG@EU^FB&J=SCXN&]JVUG(/EL3*.ZV$Q^_^\"
^XMB(3.9,22,2,19889,0)="""DATA"",396.18,473,3,1237,0)"
^XMB(3.9,22,2,19890,0)="MM2WKNY%SL%RV5Z\;\CE8-UY-.0=G)2K[*IUE3S(')W[3VXD,I'""(I,O!77^6"
^XMB(3.9,22,2,19891,0)="""DATA"",396.18,473,3,1238,0)"
^XMB(3.9,22,2,19892,0)="M[P<-WT[G'HSSHAO+E>R85B6QAH<69=M;</Z;#9\B$%:CK!:-5389YT7G/U^?"
^XMB(3.9,22,2,19893,0)="""DATA"",396.18,473,3,1239,0)"
^XMB(3.9,22,2,19894,0)="M,#3&)RHL4OFE*4W9P[WH8G4F0:-(]&I""Q^A%4YN58=<Z6.[F4%KG)PWW*@G$"
^XMB(3.9,22,2,19895,0)="""DATA"",396.18,473,3,1240,0)"
^XMB(3.9,22,2,19896,0)="M$J=9!_/;$D*=M""<-0B\-W\FBZ@8-+_OBM7[9K^[9]]UQ*$H,]7NL(8E6%Y%!"
^XMB(3.9,22,2,19897,0)="""DATA"",396.18,473,3,1241,0)"
^XMB(3.9,22,2,19898,0)="MU,5R/1R[DR6*.B1QXI!B&)+')U],;>KTV[?3[$43A<""\Y]5K4J_)^+T[Y;!+"
^XMB(3.9,22,2,19899,0)="""DATA"",396.18,473,3,1242,0)"
^XMB(3.9,22,2,19900,0)="M/H'OM1=-I*F^<1M'\+1S$TX<98.-#-^+)J)M%(H;B[V7W=QH[O6$U09>,L%>"
^XMB(3.9,22,2,19901,0)="""DATA"",396.18,473,3,1243,0)"
^XMB(3.9,22,2,19902,0)="M=!C4)S=91<H1B=]U*7JTODXQ9B\ZK-2$9&6$V25&6>+E#EU<=FY2;\Z.V(NN"
^XMB(3.9,22,2,19903,0)="""DATA"",396.18,473,3,1244,0)"
^XMB(3.9,22,2,19904,0)="M)YK8\4FY\LWX;OZ=['`\Z]-8=V(:]S[CB#76DC4F'[%I;;@)OS];W%L)S&<<"
^XMB(3.9,22,2,19905,0)="""DATA"",396.18,473,3,1245,0)"
^XMB(3.9,22,2,19906,0)="MPTZ3^!R0%T.KZ4+4@MRKY.MCT=Z#X1:<2!-0H4""T-AFGVH`0#^;#$>?!C1+%"
^XMB(3.9,22,2,19907,0)="""DATA"",396.18,473,3,1246,0)"
^XMB(3.9,22,2,19908,0)="MF\-V9:^&6[""DDV%A)J0:#9FXHZ;7XXH.2K@:;L'2R%..O9'8B9'FY&/,>;!\"
^XMB(3.9,22,2,19909,0)="""DATA"",396.18,473,3,1247,0)"
^XMB(3.9,22,2,19910,0)="M`EW>$E'Z+@FJ+4-Y;AIS'BR?^A=W86*?U@<114?K5_D)[:U7RAYKN>]<F&U0"
^XMB(3.9,22,2,19911,0)="""DATA"",396.18,473,3,1248,0)"
^XMB(3.9,22,2,19912,0)="MM""UB/U\L'J39D*Z&6[!HPHR9RSJAY6TK8=U""JE:'4]WHJ'^;:U717%(<LA1?"
^XMB(3.9,22,2,19913,0)="""DATA"",396.18,473,3,1249,0)"
^XMB(3.9,22,2,19914,0)="M9F=ZPI@1!F-N=""32;1UQ?'+X*!VN,L>=-S([I6SL'8:K$1;<O*647SL,@TSD"
^XMB(3.9,22,2,19915,0)="""DATA"",396.18,473,3,1250,0)"
^XMB(3.9,22,2,19916,0)="MO""22_:=QKZ><N0?<%&K<R2J,J!PS^`1!JWZGE5TG$]W)6H6-,ZS$D5KGU`Y["
^XMB(3.9,22,2,19917,0)="""DATA"",396.18,473,3,1251,0)"
^XMB(3.9,22,2,19918,0)="MO7!R9&L;:L'RS;NBO;2:;%X))X7L1QH2'W#[K3P2%4G""P!_6%Y02FD@NI^8T"
^XMB(3.9,22,2,19919,0)="""DATA"",396.18,473,3,1252,0)"
^XMB(3.9,22,2,19920,0)="MK;<%)_ET$#>6#;GS)HR9)%'/#\,>:J6UX-QC4ZZ^97WOT,9I:9`+8YP%9R66"
^XMB(3.9,22,2,19921,0)="""DATA"",396.18,473,3,1253,0)"
^XMB(3.9,22,2,19922,0)="M*F-<<S:NA!73<LMM>;M;E?4.G7)ZXO@F4G%3F(RSX&QVU=0_U(W""^=T:.LZ"""
^XMB(3.9,22,2,19923,0)="""DATA"",396.18,473,3,1254,0)"
^XMB(3.9,22,2,19924,0)="M$]TM\*86J""X<_Q5GZ`N0UK)-)8HOBE:#;J""O\M'>:;PE47XR4C]U:*+KVGZO"
^XMB(3.9,22,2,19925,0)="""DATA"",396.18,473,3,1255,0)"
^XMB(3.9,22,2,19926,0)="M""T.2Z&J=<->JA52\,QACP=FR@.C+UHV$S/58C7X?K+UQ)F]9Z9K5?@?<\GVP"
^XMB(3.9,22,2,19927,0)="""DATA"",396.18,473,3,1256,0)"
^XMB(3.9,22,2,19928,0)="MX;Y[&+>_(NC[-$G[/MC`,#RU&/LVR4""VTTQG-=*"">SW$:CTQM1^OAFKF""#FU"
^XMB(3.9,22,2,19929,0)="""DATA"",396.18,473,3,1257,0)"
^XMB(3.9,22,2,19930,0)="M:Y45J4=SM?>BR:KOGV3<'""RK<5_2L#=<Y3K8&:!/8L-'6'!""5P/^."",L.!FD"
^XMB(3.9,22,2,19931,0)="""DATA"",396.18,473,3,1258,0)"
^XMB(3.9,22,2,19932,0)="M3[I1;Y`%]_GSB&-T.-V[(W/%Z&#+!B>8LW5*:V//=^EY6F=5]JP2C^/$=5M]"
^XMB(3.9,22,2,19933,0)="""DATA"",396.18,473,3,1259,0)"
^XMB(3.9,22,2,19934,0)="MNODD'O,M7WI>?:K+COV`GM>""PR2@]V7!8>+3>[+@I(=.3V3!S`6GC4GT7!;,"
^XMB(3.9,22,2,19935,0)="""DATA"",396.18,473,3,1260,0)"
^XMB(3.9,22,2,19936,0)="MYD\GB*(S6C!;""HC[OB0ZHP7_5_[CZ>XJ_\?^X[^EEZ?%^W=O?D[^]<W-^G.Z"
^XMB(3.9,22,2,19937,0)="""DATA"",396.18,473,3,1261,0)"
^XMB(3.9,22,2,19938,0)="M_&'Q(?M'""7Z;?CHM_F%!7;_\Y,/^EGU`PF7YP6^;J],U^\A=5@W[,=U\OCYE"
^XMB(3.9,22,2,19939,0)="""DATA"",396.18,473,3,1262,0)"
^XMB(3.9,22,2,19940,0)="M/^:5G[W;7)[N#NGW%^O3FGWG/X6MLV#I>:X?!9Y_X9/`\7V:W:;R7.^B_'?Y"
^XMB(3.9,22,2,19941,0)="""DATA"",396.18,473,3,1263,0)"
^XMB(3.9,22,2,19942,0)="MI_S*+5YE1&RQ*E^XHJY#\JM4Q?^<\C>H_E:8VW4QK5SCG6WP:5MRG6^X/__@"
^XMB(3.9,22,2,19943,0)="""DATA"",396.18,473,3,1264,0)"
^XMB(3.9,22,2,19944,0)="M\UP=MG/I4\NFR?F&^WO0IT%Z!0N&!<.""8<&P8%@P+!@6#`N&!<.""8<&P8%@P"
^XMB(3.9,22,2,19945,0)="""DATA"",396.18,473,3,1265,0)"
^XMB(3.9,22,2,19946,0)="M+!@6#`N&!<.""8<&P8%@P+!@6#`N&!<.""8<&P8%@P+!@6#`N&!<.""8<%C+9@F"
^XMB(3.9,22,2,19947,0)="""DATA"",396.18,473,3,1266,0)"
^XMB(3.9,22,2,19948,0)="MON<1ZOH^?]#MA*[K>'$8%1_,8<$T\5:)$#S%#5P_""(-H%;,BXWA%L@_FL6!6"
^XMB(3.9,22,2,19949,0)="""DATA"",396.18,473,3,1267,0)"
^XMB(3.9,22,2,19950,0)="MMN-3L436VK@L<5X+=ES/BZE+LZ)""$OJ^SR0=%!_,8<&L;YTXHGGX`S'M8N02"
^XMB(3.9,22,2,19951,0)="""DATA"",396.18,473,3,1268,0)"
^XMB(3.9,22,2,19952,0)="MQW-""0J7("")-:,$T""PM0HS)X01:Q321B3F!8?S&O!3A8\IHQ90\I`/G0^""VZ6"
^XMB(3.9,22,2,19953,0)="""DATA"",396.18,473,3,1269,0)"
^XMB(3.9,22,2,19954,0)="MN&HF':'S63#F8,S!F(.?IA<=W:,%DVDM6&R*-G)F_B!J#@N67N!HGZ4FP>M)"
^XMB(3.9,22,2,19955,0)="""DATA"",396.18,473,3,1270,0)"
^XMB(3.9,22,2,19956,0)="M+3@RM%87#+J][/X6_%I2&EUX>KG$\19<EM@D:2)YKQ*KAW;V%OR:FEO;"".=N"
^XMB(3.9,22,2,19957,0)="""DATA"",396.18,473,3,1271,0)"
^XMB(3.9,22,2,19958,0)="M6;:]!7>5;2IQN`4W2S0F9%CU;6VW!;>U-I[9@E\'YE$Q*7Z!3FK!H:'$1DH5"
^XMB(3.9,22,2,19959,0)="""DATA"",396.18,473,3,1272,0)"
^XMB(3.9,22,2,19960,0)="MB[+[6W#8UMH\5),Y/<`@29L2H727/=Z""DU5[:Z5`E$DPJ04[;67G`=6T)0ZW"
^XMB(3.9,22,2,19961,0)="""DATA"",396.18,473,3,1273,0)"
^XMB(3.9,22,2,19962,0)="MX&:)>E(IZ6!2""];$S]:6.,L<W%)V;-':_A9LRL36""&`6E!8<D^DLF+:UMAHS"
^XMB(3.9,22,2,19963,0)="""DATA"",396.18,473,3,1274,0)"
^XMB(3.9,22,2,19964,0)="MZK32XRW81-*6S>;_N#.2@KT%=[56GH-YV<G`,`ZJ!7=+FI<8*D'7!EMP0TO#"
^XMB(3.9,22,2,19965,0)="""DATA"",396.18,473,3,1275,0)"
^XMB(3.9,22,2,19966,0)="MCCDXRH81N\BMG1:LE*UQ\8.XD8@W(2,L.#&E$]1F9*""%#87!%!8<FY8P,BDL"
^XMB(3.9,22,2,19967,0)="""DATA"",396.18,473,3,1276,0)"
^XMB(3.9,22,2,19968,0)="MRPXR8T[H%!8<MRV?BA*CL""B-3&'!L:E.L6Z.R@(::&,)#K'@B[;6-KWHO'?#"
^XMB(3.9,22,2,19969,0)="""DATA"",396.18,473,3,1277,0)"
^XMB(3.9,22,2,19970,0)="MU6I0A!_%@J.NLDN!AU0>U`=;L%)B6U*D(C0Q75E%;^VT8&K;6B$M!QTHZJ)$"
^XMB(3.9,22,2,19971,0)="""DATA"",396.18,473,3,1278,0)"
^XMB(3.9,22,2,19972,0)="M8Z)P8]GY,$/&6W!#8''0M@Y>A<F`O0=CBAYCV<W6YGT2CK;@Q%@G;=E""4/\X"
^XMB(3.9,22,2,19973,0)="""DATA"",396.18,473,3,1279,0)"
^XMB(3.9,22,2,19974,0)="M&&O!\:J?!==E]U>LI@5WEUV66$30I6,M^&+5RX+KT6-HJ&NA[.:.G%&OA)G3"
^XMB(3.9,22,2,19975,0)="""DATA"",396.18,473,3,1280,0)"
^XMB(3.9,22,2,19976,0)="MH\;-/(O6FD-::LL6LN:INWY]+9BN>EEP)/1R/-:""Z<JRM>6B*AYKP;2?!4?B"
^XMB(3.9,22,2,19977,0)="""DATA"",396.18,473,3,1281,0)"
^XMB(3.9,22,2,19978,0)="MXB48:<'MK0V;I""B?M:WR$'9:<'O9<=W:N+FC.=""""E1K'09L7G>MTT+)_V\."""
^XMB(3.9,22,2,19979,0)="""DATA"",396.18,473,3,1282,0)"
^XMB(3.9,22,2,19980,0)="MU;)7AA)7BN\[9!:.F\DT[,HV[5;W#:IF;JUN)RO+,&J=V*/#@I6RM>N5U\+G"
^XMB(3.9,22,2,19981,0)="""DATA"",396.18,473,3,1283,0)"
^XMB(3.9,22,2,19982,0)="MR:C@<[%YI]U0=B3J/AUGP>VMC1V-!7>7;6G![667H:5""0;42.K$%Z_VGF,3J"
^XMB(3.9,22,2,19983,0)="""DATA"",396.18,473,3,1284,0)"
^XMB(3.9,22,2,19984,0)="MZG5R""Q8-)@PNZD%,U:?)+5@HFRVT+\I28DT6H8DL6+L7'0?5YS3V@T@WD$]@"
^XMB(3.9,22,2,19985,0)="""DATA"",396.18,473,3,1285,0)"
^XMB(3.9,22,2,19986,0)="MP8[TSZCRUFF9*6_L'-QBP=5F61;7NCS!""I.Z[-7$%DS+""QU.F<>DL7<85\GC"
^XMB(3.9,22,2,19987,0)="""DATA"",396.18,473,3,1286,0)"
^XMB(3.9,22,2,19988,0)="M>I^==UAP4J25+))*56F2/*)D2Y_(@IG.-M/%R]X%3Q<86""[/>EIP'.29IZAL"
^XMB(3.9,22,2,19989,0)="""DATA"",396.18,473,3,1287,0)"
^XMB(3.9,22,2,19990,0)="M,3S]@T(BJVDMF)7-@^>K.;_,V;SZ6K""RZ.>*$RH[[;&8;ZRG`1N]Z$""=&.KD"
^XMB(3.9,22,2,19991,0)="""DATA"",396.18,473,3,1288,0)"
^XMB(3.9,22,2,19992,0)="M/[$Z88Q?!QLM.#/3:N,W5%R2EFC3`[WHU]+<&FE(<3UVCUT'ZU(@!.J@76X3"
^XMB(3.9,22,2,19993,0)="""DATA"",396.18,473,3,1289,0)"
^XMB(3.9,22,2,19994,0)="MQ`/33;2L&>090;.9PK0[49VA0>M@36N)OL0&:=AN=.LZ>*5WI;C=!;J$3_W7"
^XMB(3.9,22,2,19995,0)="""DATA"",396.18,473,3,1290,0)"
^XMB(3.9,22,2,19996,0)="MP9&=G*A8H9CVR-C68L%M4XLXD-;9,,=:<&PEIT;9K]M]*UL+3CI;VR01+NEX"
^XMB(3.9,22,2,19997,0)="""DATA"",396.18,473,3,1291,0)"
^XMB(3.9,22,2,19998,0)="MR'E2TX+;%M)B`81_%0[6IY9=2CTIEHTLL+.AOGO1IG6IF(8J""9*A5VA:]Z)-"
^XMB(3.9,22,2,19999,0)="""DATA"",396.18,473,3,1292,0)"
^XMB(3.9,22,2,20000,0)="M9?,<;OJN[;T7'=G(22X[Z94'L.4T*;)M;9*0X?HD(N.^<F)EQW2X/HEE=^Y'"
^XMB(3.9,22,2,20001,0)="""DATA"",396.18,473,3,1293,0)"
^XMB(3.9,22,2,20002,0)="M:6Z9Q!.=!UONA47*'#C\1D??'1IB/0=VW^BP`TD6//P*G""Y=?.<?.BR5MK;L"
^XMB(3.9,22,2,20003,0)="""DATA"",396.18,473,3,1294,0)"
^XMB(3.9,22,2,20004,0)="MN*><:$_[;4TV'=BUEHS1)[E$VHN4T$YMZ'$OFO8BL6EADK0<ZDUALRL0C]I7"
^XMB(3.9,22,2,20005,0)="""DATA"",396.18,473,3,1295,0)"
^XMB(3.9,22,2,20006,0)="MD5M;)\MKB=->9R4,PE'ZU""B[6/2NM-'CRQ+)+""\;DBJ]94O9YEP10UXV.,W%"
^XMB(3.9,22,2,20007,0)="""DATA"",396.18,473,3,1296,0)"
^XMB(3.9,22,2,20008,0)="MCTI*6K(MC[#@ZJA&;8_P43A.GQHEYC;<.,MOK,BI87]\I`47HC:5J'K1J^DL"
^XMB(3.9,22,2,20009,0)="""DATA"",396.18,473,3,1297,0)"
^XMB(3.9,22,2,20010,0)="MN!`U4<NNDW<E=)P^*;L'XO40+8F539.@IUK9O4URM$-FXI""$Y+H5S_<VB34F"
^XMB(3.9,22,2,20011,0)="""DATA"",396.18,473,3,1298,0)"
^XMB(3.9,22,2,20012,0)="MT98=>_DSA&BD/BFM9<-&Z[E4[+$54F?90RPX$[5NK@FCQ,E+I*M)+7B5'6*8"
^XMB(3.9,22,2,20013,0)="""DATA"",396.18,473,3,1299,0)"
^XMB(3.9,22,2,20014,0)="M;L$59AOG9=OX5GW?)CDZ767+HCB2[];&(RY&F]XFA=[*4'9D&*W&ODU*VM._"
^XMB(3.9,22,2,20015,0)="""DATA"",396.18,473,3,1300,0)"
^XMB(3.9,22,2,20016,0)="M,;UC]A1._C:I:*[FP03)7K*Z^;)WQM>%1)/5L+@M$\33WHLN2PQIYTZ6$SBC"
^XMB(3.9,22,2,20017,0)="""DATA"",396.18,473,3,1301,0)"
^XMB(3.9,22,2,20018,0)="M]4E7-E432!:V$\L;L5.]+A3?FZL)),L!)1Y_2U=;]HHZVMMH4@+LU9@_)@N."
^XMB(3.9,22,2,20019,0)="""DATA"",396.18,473,3,1302,0)"
^XMB(3.9,22,2,20020,0)="M`S5I=;QJF_''6G!V[!K2]IVLF([7)UW9A=+*@[/@=LYHP6'A25-YE\&BL4,M"
^XMB(3.9,22,2,20021,0)="""DATA"",396.18,473,3,1303,0)"
^XMB(3.9,22,2,20022,0)="MN&R9/CDP$9L]N067T[J8M2KW<\@4^J0ID:BD.KUQDF=T#Z;0)TW9=0?6AX)Y"
^XMB(3.9,22,2,20023,0)="""DATA"",396.18,473,3,1304,0)"
^XMB(3.9,22,2,20024,0)="MQO;9WP<++D52]G1F8L$T^J2VEI>HV7DHTJ.'J\0A$^F3INQ`$':V&E^%CIR&"
^XMB(3.9,22,2,20025,0)="""DATA"",396.18,473,3,1305,0)"
^XMB(3.9,22,2,20026,0)="M?C8+C@/)=XRE[&RS6+""Z!R_XF>Z4$2/4LD-UP6+R7B>RX+`M'D9?[[6G!4?F"
^XMB(3.9,22,2,20027,0)="""DATA"",396.18,473,3,1306,0)"
^XMB(3.9,22,2,20028,0)="M;\YNP42W8)A0G]36MKZ1(%/JDUHV71D<N_DM6*._\:0S@KH.5O'AN6)T:)H6"
^XMB(3.9,22,2,20029,0)="""DATA"",396.18,473,3,1307,0)"
^XMB(3.9,22,2,20030,0)="M3JI/VA*-)#*I/JEEMZC5W!8<*GK=K5;C+%C<QVB_QSJ]!3?W4'0W8^:R8-(L"
^XMB(3.9,22,2,20031,0)="""DATA"",396.18,473,3,1308,0)"
^XMB(3.9,22,2,20032,0)="MN\<Z89@%TV:)87""N*#N)4C:96)^4$LUONV,ZL3XURU9,)IS:I^O8BY8VH:?6"
^XMB(3.9,22,2,20033,0)="""DATA"",396.18,473,3,1309,0)"
^XMB(3.9,22,2,20034,0)="M)Z6UYCK1J?6I679S@'""""J?7);,&-LOM=JAMDP42G56>R8+GLQ)E>GYHE4@,I"
^XMB(3.9,22,2,20035,0)="""DATA"",396.18,473,3,1310,0)"
^XMB(3.9,22,2,20036,0)="MI-/K4Z/L1'J[UVSLO!9<E<W_$3MT!GUJ;E""5$0.9]<3"">3""90Y\,9?/$]>:U"
^XMB(3.9,22,2,20037,0)="""DATA"",396.18,473,3,1311,0)"
^XMB(3.9,22,2,20038,0)="M]CP67):=)3B?1Y\:K:UVL:9?Y7=:<%@M]8.Y]*E1HGJ[*W%FFQ&T99OFH'DM"
^XMB(3.9,22,2,20039,0)="""DATA"",396.18,473,3,1312,0)"
^XMB(3.9,22,2,20040,0)="MF%13P^NY]$EN;4(=(KP3/FNLRH3OE<7SZI/)@N/`<5;#[W@-L.`X""`,V4IU)"
^XMB(3.9,22,2,20041,0)="""DATA"",396.18,473,3,1313,0)"
^XMB(3.9,22,2,20042,0)="MGYIELZ:&3C""G/LDEAMDT),X(=$9]:K26/_F-G8#.J$\F""TZJQL^G3_K%/CVW"
^XMB(3.9,22,2,20043,0)="""DATA"",396.18,473,3,1314,0)"
^XMB(3.9,22,2,20044,0)="M!8?4,>]FS6+!D10-VZ[LJ2PX""OW@K/HD]G*O.-]36'!2134_?[39I+.U\UEP"
^XMB(3.9,22,2,20045,0)="""DATA"",396.18,473,3,1315,0)"
^XMB(3.9,22,2,20046,0)="M1-W@#/HD6U%P5GT2RHZ#J/1V.A[@S'.KTFM9><\R!R=E_""UZ;@NN%_F4GL6"""
^XMB(3.9,22,2,20047,0)="""DATA"",396.18,473,3,1316,0)"
^XMB(3.9,22,2,20048,0)="MZZ%1/$VB9[%@<5:BYY^#RS\N/8L%2WM(Y.Q>=+6WD7AGM^!Z4R<^DP4;]LS."
^XMB(3.9,22,2,20049,0)="""DATA"",396.18,473,3,1317,0)"
^XMB(3.9,22,2,20050,0)="M'/&=GLN"".TBOSV#!AA*1-VER""^[HVS/F;'@]CP7_5_[CZ>XJ_\?^X[^EEZ?%"
^XMB(3.9,22,2,20051,0)="""DATA"",396.18,473,3,1318,0)"
^XMB(3.9,22,2,20052,0)="M^W=O?D[^]>WZ8[IUP_""'Q8?LGR7Z;?KIM/B'!?&KIQT?]K?L`TJK,^3?-E>G"
^XMB(3.9,22,2,20053,0)="""DATA"",396.18,473,3,1319,0)"
^XMB(3.9,22,2,20054,0)="M:_XS2Z_\Z,=T\_DZ^[UJS1""O;T^;_8Y]]F*U/_RQ/EPM5MOT3_;1#PMG<=HO"
^XMB(3.9,22,2,20055,0)="""DATA"",396.18,473,3,1320,0)"
^XMB(3.9,22,2,20056,0)="M(F=QE7X^I.GQA45%(^N*+HE24=>WJVCRYRG='>LJTAY57'K44,5(KB!K2[."""
^XMB(3.9,22,2,20057,0)="""DATA"",396.18,473,3,1321,0)"
^XMB(3.9,22,2,20058,0)="MM'[<4U601FH%Z_Y_\5.Z/MX=TL7I>G]87^ZW=S<?UX?%K[_\M/ATV-\LUHOC"
^XMB(3.9,22,2,20059,0)="""DATA"",396.18,473,3,1322,0)"
^XMB(3.9,22,2,20060,0)="M:;V[VNP^+V[WQPW__9<+]L'B]K#_LKE*%R\6?R?0/A4]]""GOH<7^$P,WX<?;"
^XMB(3.9,22,2,20061,0)="""DATA"",396.18,473,3,1323,0)"
^XMB(3.9,22,2,20062,0)="MS2Y=K(\,?K?;G+Y?7.P7N_UIL=E=RK3M'2O@>G-;XKY_435X?[CZ[;#F8OAP"
^XMB(3.9,22,2,20063,0)="""DATA"",396.18,473,3,1324,0)"
^XMB(3.9,22,2,20064,0)="MN$LMA&I2T&53JH';E*I;]W%[M_^\/]RLM[GP]@==JW^H6K#:[T[?Q]?KPS'E"
^XMB(3.9,22,2,20065,0)="""DATA"",396.18,473,3,1325,0)"
^XMB(3.9,22,2,20066,0)="MO(MD]>IO;S_\:_SCJU_?)Q_DG]IO&>T?%I?;U]OUY>_2]ZH*?4>(](V?US<I"
^XMB(3.9,22,2,20067,0)="""DATA"",396.18,473,3,1326,0)"
^XMB(3.9,22,2,20068,0)="MK]-/[Q?OU[OCXGUZV'R22W]_^KKE/_-_/AU?[[=7_U)^\]WZD.Y._$?8-U?K"
^XMB(3.9,22,2,20069,0)="""DATA"",396.18,473,3,1327,0)"
^XMB(3.9,22,2,20070,0)="M[3&U$7OVG^S_2>)_M]XQ\1,F_>Q?_""=+B\MEF(L]'P)*B7OYED'5.#?*OOWC"
^XMB(3.9,22,2,20071,0)="""DATA"",396.18,473,3,1328,0)"
^XMB(3.9,22,2,20072,0)="M)JO2BW>_O/O;NZPMK],OZ?;-;I=R^7S\\NMZ<TRSVKQF-4T/90L_'M\S#=YF"
^XMB(3.9,22,2,20073,0)="""DATA"",396.18,473,3,1329,0)"
^XMB(3.9,22,2,20074,0)="M%:ZE^7ZS_9(>^&?=G6'J""&TG='2`+/Q,['J1?UA__(4W@ULQ_UK5:T(\6:]+"
^XMB(3.9,22,2,20075,0)="""DATA"",396.18,473,3,1330,0)"
^XMB(3.9,22,2,20076,0)="MV;J%6N?2+76CTNAR(*OUN?A`T.;WF<(N?D[O#JS=GS>73+63/]<WF]V:_TBA"
^XMB(3.9,22,2,20077,0)="""DATA"",396.18,473,3,1331,0)"
^XMB(3.9,22,2,20078,0)="M2S9Z;-;BIOBH\'&;!K?HKUZ4A9*J$O0BK0!=(LHO<F3Y41(UY4>;\BMMYL6O"
^XMB(3.9,22,2,20079,0)="""DATA"",396.18,473,3,1332,0)"
^XMB(3.9,22,2,20080,0)="MK$0FNK06W>*;(YL>UOE@>MKOTI>++_MM-KBR'[QD56<2SX?90_I)&!-?L'$P"
^XMB(3.9,22,2,20081,0)="""DATA"",396.18,473,3,1333,0)"
^XMB(3.9,22,2,20082,0)="M/7Z;CR*Z)KV^.S&>Z[(VY?^4M2*46N4UM(*X8:-5U%.U@M5\?_BZ*#I""4-&"""
^XMB(3.9,22,2,20083,0)="""DATA"",396.18,473,3,1334,0)"
^XMB(3.9,22,2,20084,0)="M]LLNWFXN?V<?_)E7X:\I,\_-9?9I1[VIOM[4&U_O7]-/F?#4>KNCZTV6^GJ["
^XMB(3.9,22,2,20085,0)="""DATA"",396.18,473,3,1335,0)"
^XMB(3.9,22,2,20086,0)="MXZO]T_ZT/ZAU=D;7>4E-=7;$2KO+4*YUL&Q4VETJE8ZW^V.J5GHYHM)_/>SO"
^XMB(3.9,22,2,20087,0)="""DATA"",396.18,473,3,1336,0)"
^XMB(3.9,22,2,20088,0)="M;E_O_W3Y/%Y^T2)LXGMRO3VO*>W2&,0)_)</R0^S#&QDKH%-DK!G\G](IJ(6"
^XMB(3.9,22,2,20089,0)="""DATA"",396.18,473,3,1337,0)"
^XMB(3.9,22,2,20090,0)="M3B51O'//#17O9^FV^I3Q?G=UQRJP7NS$R4,<`?^X3G?,X;MBWSBE5XN/7S,_"
^XMB(3.9,22,2,20091,0)="""DATA"",396.18,473,3,1338,0)"
^XMB(3.9,22,2,20092,0)="MD7V3^Z*R%UCXD&Q8O,J&R,7'E+NC.2V]^KZ8E)A'N>5EG`[I#?NY])CY8#?["
^XMB(3.9,22,2,20093,0)="""DATA"",396.18,473,3,1339,0)"
^XMB(3.9,22,2,20094,0)="M4X-VR,;58S&,,4T]OF2_=9G>GO)*[?:+R_3P):LQ^^&[V]NT=.4VEXNC3,L\"
^XMB(3.9,22,2,20095,0)="""DATA"",396.18,473,3,1340,0)"
^XMB(3.9,22,2,20096,0)="MV2OF=*R/Z6)S9%YQRLBGETP9UIN;].HE1QSOCK>L/WA5W^P8:GU:7+*?Y\7*"
^XMB(3.9,22,2,20097,0)="""DATA"",396.18,473,3,1341,0)"
^XMB(3.9,22,2,20098,0)="MM%H\19OSPL4VL3*XJ[Q+TRO.>Y#NY!2.9$.)?TIO]IFKP__19O9.I]F7B\W2"
^XMB(3.9,22,2,20099,0)="""DATA"",396.18,473,3,1342,0)"
^XMB(3.9,22,2,20100,0)="MF72I0Z)9;-[5V'R\OSML6)_^G/ZAM?A""=F^97AW9IP>FZ4?V^3>5!_#BV_;1"
^XMB(3.9,22,2,20101,0)="""DATA"",396.18,473,3,1343,0)"
^XMB(3.9,22,2,20102,0)="MX/TE,[CM:]8$]OGQ^$_IX<1561DJ:*?/[FA\=DIJE]UW1)=]&02RRUY\W==E"
^XMB(3.9,22,2,20103,0)="""DATA"",396.18,473,3,1344,0)"
^XMB(3.9,22,2,20104,0)="MKUS4I^C%>WH?-#0X\>7!::';M.$_!)ZU$\_5(/UX8$/:BHUC?)!]_.Y[X<<X"
^XMB(3.9,22,2,20105,0)="""DATA"",396.18,473,3,1345,0)"
^XMB(3.9,22,2,20106,0)="M!C^&!I(?0YW)_!AW""C]F:?)CB-3IWK*Q<BN_77=ZH'J-=7=_W%]]Y7,0^V\V"
^XMB(3.9,22,2,20107,0)="""DATA"",396.18,473,3,1346,0)"
^XMB(3.9,22,2,20108,0)="M)1:]?V5T*57MC`+3EIDG^PY>H&R8>:[B.]1[:$*%WZ6'2];MZ\\IG_KXI,S_"
^XMB(3.9,22,2,20109,0)="""DATA"",396.18,473,3,1347,0)"
^XMB(3.9,22,2,20110,0)="M>YW_SC?'$W,2LND\75]>YVVJ6O+MX$VA*+1L&-&T;&FY%?C/^[O%S?HK<P(^"
^XMB(3.9,22,2,20111,0)="""DATA"",396.18,473,3,1348,0)"
^XMB(3.9,22,2,20112,0)="MLBE\<7.W/6UNF=Z7];?8$?2,FY:1VZ@H42OJ!'9=\'\OWK':,#O-*WK:+]97"
^XMB(3.9,22,2,20113,0)="""DATA"",396.18,473,3,1349,0)"
^XMB(3.9,22,2,20114,0)="M5ZQ:;`YBBL.^Y`[)^[N;F_7AZQ""1Q_N;CWNF[(0O3LLO.@3O4E6CEFIS*E>E"
^XMB(3.9,22,2,20115,0)="""DATA"",396.18,473,3,1350,0)"
^XMB(3.9,22,2,20116,0)="MG&T(=:LY?;%X<TIO-)VDZG[^H]IYEWNU""_)""^M*5OZ3REY[\Y5+^TI>_#,0O"
^XMB(3.9,22,2,20117,0)="""DATA"",396.18,473,3,1351,0)"
^XMB(3.9,22,2,20118,0)="M/\@%?9`+^B`7]$$NZ(-<T`>YH`_-@D+YRZA1#:?Q=:->1*K86[G:;Q>-[U+Y"
^XMB(3.9,22,2,20119,0)="""DATA"",396.18,473,3,1352,0)"
^XMB(3.9,22,2,20120,0)="M2T_^<EDZ-AW:0^VU)W2&:T_80WN(C?;\+R;-_TML<N-+5_Z2RE]Z\I=+^4M?"
^XMB(3.9,22,2,20121,0)="""DATA"",396.18,473,3,1353,0)"
^XMB(3.9,22,2,20122,0)="M_C*0O_Q_%OR#5ND64REI3*7F`5$=9P*-9)>:828?7EYHQ%B-99T3:^M2H9IA"
^XMB(3.9,22,2,20123,0)="""DATA"",396.18,473,3,1354,0)"
^XMB(3.9,22,2,20124,0)="M?>-.`25M4RQU(XLIMA@)^33%UYU?Q!FW8Z8EFA[@ZYKLX*=>X!B7Z(%Z[$,T"
^XMB(3.9,22,2,20125,0)="""DATA"",396.18,473,3,1355,0)"
^XMB(3.9,22,2,20126,0)="MDQ'5Z+7KS+AB=+4K1G7%8UPO&E<]PKJG;579NO;1#?@61Q=$=W21GQ$5RR!?"
^XMB(3.9,22,2,20127,0)="""DATA"",396.18,473,3,1356,0)"
^XMB(3.9,22,2,20128,0)="M6@;ENTJCET%/9\VSU*]Y?,.:9RFY[8W5O+MTK)<\;W:G]%"";Y<7F>+EX_W5W"
^XMB(3.9,22,2,20129,0)="""DATA"",396.18,473,3,1357,0)"
^XMB(3.9,22,2,20130,0)="M==C?I$_D[,(/]#*45SZ!+,-EN;-C<W;Q=G,\Y4[W9G>YOEU?;I@KGNV^W6Z."
^XMB(3.9,22,2,20131,0)="""DATA"",396.18,473,3,1358,0)"
^XMB(3.9,22,2,20132,0)="M^ZMT<77'C37S#6_7[&>)^]T-J_[UXI:U>'\EGEUD^VZ;TY'_3G$,LMDMKM9?"
^XMB(3.9,22,2,20133,0)="""DATA"",396.18,473,3,1359,0)"
^XMB(3.9,22,2,20134,0)="MC]]FOGVUZW9(/_.C\T)<&A?3*)`E=2TD4AWC5R)QFB.^ZS\(D<@GR(/DDL^@"
^XMB(3.9,22,2,20135,0)="""DATA"",396.18,473,3,1360,0)"
^XMB(3.9,22,2,20136,0)="MV?&W;I7L1?(JV>U:)8?G6""7S29#ZNNT^N2>]QOBP])KC0]#8[6-SH.,]O]T^"
^XMB(3.9,22,2,20137,0)="""DATA"",396.18,473,3,1361,0)"
^XMB(3.9,22,2,20138,0)="MIU720;>DB4>'B-I]?J(F71Y%9HM-CT)P*%SI*D203WE5ZSW'?>8.A6^X""F$X"
^XMB(3.9,22,2,20139,0)="""DATA"",396.18,473,3,1362,0)"
^XMB(3.9,22,2,20140,0)="MR(\D9[^YA^K:[Z%F_V'5VSR5JP^&R;(Q(S2&6.)T7WT0%T?Y9:];)K6N6PN^"
^XMB(3.9,22,2,20141,0)="""DATA"",396.18,473,3,1363,0)"
^XMB(3.9,22,2,20142,0)="M;SK]]Z0:D89#XS5W1%U',T>E:\TQNC?Z&-TS'/W3<B8MU,Z/'L3V<S&([?_D"
^XMB(3.9,22,2,20143,0)="""DATA"",396.18,473,3,1364,0)"
^XMB(3.9,22,2,20144,0)="M2\WJ""ZGFC6WS1K6ILOT<EI_L#_]1C9'??V!^R^_<#1(W!OF86?_(K^O=YS2;"
^XMB(3.9,22,2,20145,0)="""DATA"",396.18,473,3,1365,0)"
^XMB(3.9,22,2,20146,0)="M:!S=M[6$5W>G??XCQC-PXSXV,6RBTL:ND;K5Z]AM];[=7^9.'/?JKIB;>-A\"
^XMB(3.9,22,2,20147,0)="""DATA"",396.18,473,3,1366,0)"
^XMB(3.9,22,2,20148,0)="MO""N/<V_K<:-EJS>PJZ.O[&SYEE<4?]GQP<JZ/DO3SK/KA1UB""RQK])[-6X?-"
^XMB(3.9,22,2,20149,0)="""DATA"",396.18,473,3,1367,0)"
^XMB(3.9,22,2,20150,0)="MZ6N/2AGO<OI=E0J7EC>-#^F_WZ6[RQZU<AV3J&K]*0^I7?5FL=M3QUB]#NNK"
^XMB(3.9,22,2,20151,0)="""DATA"",396.18,473,3,1368,0)"
^XMB(3.9,22,2,20152,0)="M3;[TJ(?7+`?&;OUQFU[)%M)2<V*JN=_<]1M^-?8B/5X>-K?BY8;3U]NT%&^V"
^XMB(3.9,22,2,20153,0)="""DATA"",396.18,473,3,1369,0)"
^XMB(3.9,22,2,20154,0)="MVN%3!5O^L4EL_4.WO(G)GKTP[)9W&(RN]V3B=TT-<3IMS%*=+\KEI;4V$VI;"
^XMB(3.9,22,2,20155,0)="""DATA"",396.18,473,3,1370,0)"
^XMB(3.9,22,2,20156,0)="M*=VI7]A'N!^9-)E<#_4BN*CE()'R=8P;Z3=2&Z.HJZHSU=R?#Y1]5!(N*?91"
^XMB(3.9,22,2,20157,0)="""DATA"",396.18,473,3,1371,0)"
^XMB(3.9,22,2,20158,0)="MU7U435<L?:NN"".BPKF`_Y43H""N%V9?OQ66`^/5-F=-4\=(:M.SYSW,F/SW[:"
^XMB(3.9,22,2,20159,0)="""DATA"",396.18,473,3,1372,0)"
^XMB(3.9,22,2,20160,0)="M;*_$0ZV?]NR7UZ=4_""SS)%++<T2S(!0O8HP@W!Z""\&P$<;'>;+]*YXC\;-[/"
^XMB(3.9,22,2,20161,0)="""DATA"",396.18,473,3,1373,0)"
^XMB(3.9,22,2,20162,0)="M-@T7Z\4?:?J[^-W?V-?;K_Q'LCU(^5<S@;$9][2Y2?DO?ZT7237:-7[[G]G7"
^XMB(3.9,22,2,20163,0)="""DATA"",396.18,473,3,1374,0)"
^XMB(3.9,22,2,20164,0)="MV^QVR3;-+FR<TEV']-_]]M.O;-K<9^=R).!G`/)GBE(V/5]J<\&!+G5]41^%"
^XMB(3.9,22,2,20165,0)="""DATA"",396.18,473,3,1375,0)"
^XMB(3.9,22,2,20166,0)="MO[_>_Y%OBS3M[7_?'4^;3U^S'I!6'GFOO%M?""7L$\@7SW!VHIZ]_K(J+^0[N"
^XMB(3.9,22,2,20167,0)="""DATA"",396.18,473,3,1376,0)"
^XMB(3.9,22,2,20168,0)="M[BB><9YKJ.IU7[--[_ZYNJF2??GSWF;T:N[:M,T4U-'/%*K[K!Z`ZB:+^HZR"
^XMB(3.9,22,2,20169,0)="""DATA"",396.18,473,3,1377,0)"
^XMB(3.9,22,2,20170,0)="MJ`-!NT_QS.>0L+.3B-5T+CR4;.LBCZKS.1&&S&?=%T%G7RSU?:&N?X8:#.\-"
^XMB(3.9,22,2,20171,0)="""DATA"",396.18,473,3,1378,0)"
^XMB(3.9,22,2,20172,0)="M`H-IZ:3(QM=8FGT-934UU-=@7=7KQIMKYW3M[D[RN/\CZP7I`_*=F_D>TN6E"
^XMB(3.9,22,2,20173,0)="""DATA"",396.18,473,3,1379,0)"
^XMB(3.9,22,2,20174,0)="M[P+E,^Z('&4/CODCTB?Q?L<?&Y_$SW[A*\-VIR*[.N,9;*$I7]5_H$ZD^@^A"
^XMB(3.9,22,2,20175,0)="""DATA"",396.18,473,3,1380,0)"
^XMB(3.9,22,2,20176,0)="MSA0<F$*+*=#.FUG%-K_=CKG;O.YNLV,N72Z;Z&EB-M2&NA-2^:#$:QQ+!*ZR"
^XMB(3.9,22,2,20177,0)="""DATA"",396.18,473,3,1381,0)"
^XMB(3.9,22,2,20178,0)="M54Z6ZM,3!T]/U!/2I>Z$5'AZDNM&M?<=-8Y(R7-_+1Z8CD@-UV/D=\&-.R#4"
^XMB(3.9,22,2,20179,0)="""DATA"",396.18,473,3,1382,0)"
^XMB(3.9,22,2,20180,0)="MH=9GI/F9#EL`_;3/OO.W(]\?72_^NM]M]C?I*3T\E7<GONE&C7R!C8:-8<Q7"
^XMB(3.9,22,2,20181,0)="""DATA"",396.18,473,3,1383,0)"
^XMB(3.9,22,2,20182,0)="M7MZ'MJ>5R_&GE=3JL0P-&T^5(]H]]OY/PW'E^#/6I>%@F)2R+&>,YOLHTEWK"
^XMB(3.9,22,2,20183,0)="""DATA"",396.18,473,3,1384,0)"
^XMB(3.9,22,2,20184,0)="M#W+8$UE]IWUW71VW9N<M^L/74AF*H!B-%OG+9C_0ZO[""T--7?SGIZ:MK/-DT"
^XMB(3.9,22,2,20185,0)="""DATA"",396.18,473,3,1385,0)"
^XMB(3.9,22,2,20186,0)="M/4!VW>8CEJ7FN,;RH(.YV3?,C(_9$6SZY^V6GRWQ0YOMYO=T^W5QN;X[IC]T"
^XMB(3.9,22,2,20187,0)="""DATA"",396.18,473,3,1386,0)"
^XMB(3.9,22,2,20188,0)="M^7$]7K64%\PCY;)Y\T""]BB7A*6>WQ.Z%]8MWZ^-Q\R4MM/.'Q_KX5[?EJ9NL"
^XMB(3.9,22,2,20189,0)="""DATA"",396.18,473,3,1387,0)"
^XMB(3.9,22,2,20190,0)="M%(T1+%\(*=M\*B0,6_5'&K611'O:5^VI.EI?J\!8*]<E-K6BH7VUY*A1G76+"
^XMB(3.9,22,2,20191,0)="""DATA"",396.18,473,3,1388,0)"
^XMB(3.9,22,2,20192,0)="MS'4+K.H6!?9U>Y-O<WZZV[Y<;$Z+C^GG#=.-]<FNLJY#C)7UZI<C]R)(5WT9"
^XMB(3.9,22,2,20193,0)="""DATA"",396.18,473,3,1389,0)"
^XMB(3.9,22,2,20194,0)="M*)P.W&_=:)O<ZMA5;77SJ'W=6,>RZEAU:W*U.667(/@_E+K1(&S6C026<A/M"
^XMB(3.9,22,2,20195,0)="""DATA"",396.18,473,3,1390,0)"
^XMB(3.9,22,2,20196,0)="MJO3J?=988:-`78AV5)28*DI4*R;AN(I2?46)544C8T6#8.J*$GU%79N*!JZI"
^XMB(3.9,22,2,20197,0)="""DATA"",396.18,473,3,1391,0)"
^XMB(3.9,22,2,20198,0)="MHDN-1,=T/6$#7:2OJ6=3TZ6IHIYB/8Y:3>(0RWJRY;UKZ'I'J6>[>Y&YC';^"
^XMB(3.9,22,2,20199,0)="""DATA"",396.18,473,3,1392,0)"
^XMB(3.9,22,2,20200,0)="M17WVU=N_>'5Y>EKN!6T9X]V'Z%ZX[L-U+USW,;D7].&Z%Y0\U""F\J%[0XOWX"
^XMB(3.9,22,2,20201,0)="""DATA"",396.18,473,3,1393,0)"
^XMB(3.9,22,2,20202,0)="M]R4Z/F)[RQZ3H6[P[C$9^N&(R=#S>_A!8RL:C?""#O*""''S2RHH$SP@\*HA[N"
^XMB(3.9,22,2,20203,0)="""DATA"",396.18,473,3,1394,0)"
^XMB(3.9,22,2,20204,0)="MQ:B*<O<B&.%>>(_0O:!F]V+9.*!4PR+K_`M:VZ/H8%Q=E5$NWVYNLH>3^QT/"
^XMB(3.9,22,2,20205,0)="""DATA"",396.18,473,3,1395,0)"
^XMB(3.9,22,2,20206,0)="MU+;=[O_@NTV']#8];3(OY$;<@GO,3@AQ6I;L@7E.#6Q&6C?R=.KBZX;:^K,%"
^XMB(3.9,22,2,20207,0)="""DATA"",396.18,473,3,1396,0)"
^XMB(3.9,22,2,20208,0)="MFUZ/?%_LD/(H+U6?_/+3@OVDT`EWQ[2\]OQO>Z9WWQR_75S=I0OFSXB1Z_A3"
^XMB(3.9,22,2,20209,0)="""DATA"",396.18,473,3,1397,0)"
^XMB(3.9,22,2,20210,0)="M5CY9OUQ\8EWZ^2Y]N?@C7?^^2WEPO<WN<K\_7!6A[;*(>+Q;.)=IY=UAO;M,"
^XMB(3.9,22,2,20211,0)="""DATA"",396.18,473,3,1398,0)"
^XMB(3.9,22,2,20212,0)="M_U'08^WNF]GD&G?*'..5LGH(=GV;]4BH\^\HU0P8812*AFB^7=9ZOTQ_PTQ_"
^XMB(3.9,22,2,20213,0)="""DATA"",396.18,473,3,1399,0)"
^XMB(3.9,22,2,20214,0)="M!&6\5V9K*.VFTG(0;64N1H-IO6^@W#)KW#,K[:VL=$.T9F/L&!M-@Z)N3U<="
^XMB(3.9,22,2,20215,0)="""DATA"",396.18,473,3,1400,0)"
^XMB(3.9,22,2,20216,0)="M%JO->HT*^<Y2IT-B[\[3762J[K(4JE"">;I#3.)3UTL$)Q4^+1P54_$RSX#+X"
^XMB(3.9,22,2,20217,0)="""DATA"",396.18,473,3,1401,0)"
^XMB(3.9,22,2,20218,0)="ME:9%5\MFOZ0(^NJ';=7W`]OJT[!?_9N>\;A&+%L:X:M-$-=(8FR<?DWX29[$"
^XMB(3.9,22,2,20219,0)="""DATA"",396.18,473,3,1402,0)"
^XMB(3.9,22,2,20220,0)="MQ[7`;VD!%3VDZJA%UP37=[1M<'U]&\1/%_FR='\\;E@;7E8!;!=_7&\NK]GD"
^XMB(3.9,22,2,20221,0)="""DATA"",396.18,473,3,1403,0)"
^XMB(3.9,22,2,20222,0)="M=WEB]KDY,N?E>&+SZ/&6N3?\1XMH#FRV;<R;C""C/O^M/I_30F()_L!.@<>KL"
^XMB(3.9,22,2,20223,0)="""DATA"",396.18,473,3,1404,0)"
^XMB(3.9,22,2,20224,0)="MEFWH]-,.6>FK&=/OIQW"",^%??_E);*6YOM4%?MVMNBZ%D""VPTHC`H!$209SM"
^XMB(3.9,22,2,20225,0)="""DATA"",396.18,473,3,1405,0)"
^XMB(3.9,22,2,20226,0)="M/=L.,5S$,ZW4.B?(!3\$W,@&Q3Y;Y5Y7\^/?""A^L^?D;R2-K?O=MX9PEI7,F"
^XMB(3.9,22,2,20227,0)="""DATA"",396.18,473,3,1406,0)"
^XMB(3.9,22,2,20228,0)="MSL#FCLE>^S2OX;5K4>CINF,9ZL=)UW7T_1%XKM0&VRFU:U)M]8(LKN2U3JRM"
^XMB(3.9,22,2,20229,0)="""DATA"",396.18,473,3,1407,0)"
^XMB(3.9,22,2,20230,0)="M5_,:U_.Z)N+.:WJF96Q;?_(E;*3NM^@W22L#TPZYGMO3OGQ)AG4'_7:].:66"
^XMB(3.9,22,2,20231,0)="""DATA"",396.18,473,3,1408,0)"
^XMB(3.9,22,2,20232,0)="MIJ?W3MK;F[](,338U8XHTS0XG+;!KFV#?7-S?=O&DD:SVEOK4N:*O##4V]'6"
^XMB(3.9,22,2,20233,0)="""DATA"",396.18,473,3,1409,0)"
^XMB(3.9,22,2,20234,0)="MNV,30U[M96&#VM\4-2^<N$0Y,A&R0;6_/B3>K(^*JE5Z]DB:?79;7`')=T=:"
^XMB(3.9,22,2,20235,0)="""DATA"",396.18,473,3,1410,0)"
^XMB(3.9,22,2,20236,0)="MGQ@-?,UC^QRD(?:@2^QT0J&[YQ7Z^O)T-ID'/60>=LF\F=),E;AFY\[32-R="
^XMB(3.9,22,2,20237,0)="""DATA"",396.18,473,3,1411,0)"
^XMB(3.9,22,2,20238,0)="M5^+O\Y?_Q_0SO[TU5,!Q$4!.""E(KWN_3""MSI(?""H4^!^U""%RJHF8H!<YF57D"
^XMB(3.9,22,2,20239,0)="""DATA"",396.18,473,3,1412,0)"
^XMB(3.9,22,2,20240,0)="MC959+6JK5ZA%!CY1TE7..RFN+UL<\1>FG]2?+[]UV.?;P-K.(3U>DW8/05[D"
^XMB(3.9,22,2,20241,0)="""DATA"",396.18,473,3,1413,0)"
^XMB(3.9,22,2,20242,0)="M=!F$+H&>MG?F'???;Z[2-C,PN`%M7?8K;X[4`4PH6J&[]D(/2<]AGRS5E_Y$"
^XMB(3.9,22,2,20243,0)="""DATA"",396.18,473,3,1414,0)"
^XMB(3.9,22,2,20244,0)="M'?8]1Y&Y&X5D[F&?K=@W1YZ/9G/DM]4/FTLVZ'])^:""TV&7)_68>_9>=#YT,"
^XMB(3.9,22,2,20245,0)="""DATA"",396.18,473,3,1415,0)"
^XMB(3.9,22,2,20246,0)="M\11<MQFBV5?#!$?J2R>/Z`3MXJ53RTLGO\>,L>P<DY8VWBBU=(S\,SI&NIVJ"
^XMB(3.9,22,2,20247,0)="""DATA"",396.18,473,3,1416,0)"
^XMB(3.9,22,2,20248,0)="MF<TCLGQCMC2],?.""T2\&2B^C^['`^(1X?F25$&_0>PW36SG:I]:&!US932$U"
^XMB(3.9,22,2,20249,0)="""DATA"",396.18,473,3,1417,0)"
^XMB(3.9,22,2,20250,0)="MWV?]@""N00ERZ<LQL+S_H?,;OMT+#^RV?ZF-<>M*SD;""9[-/K#I!8O-^Z2$_K"
^XMB(3.9,22,2,20251,0)="""DATA"",396.18,473,3,1418,0)"
^XMB(3.9,22,2,20252,0)="M#1_OL[R#66:U61YL^6</=DD,`<<;[[6JI(S5I&D173+SI)Z*F)9:,7FAG(NJ"
^XMB(3.9,22,2,20253,0)="""DATA"",396.18,473,3,1419,0)"
^XMB(3.9,22,2,20254,0)="M&57<L]`QT0-]_'+R#7*2XE,K@<:I?>QU;_'=XE6Y\U`XH>O/;.8]GA;</2V\"
^XMB(3.9,22,2,20255,0)="""DATA"",396.18,473,3,1420,0)"
^XMB(3.9,22,2,20256,0)="M5;Y#_W*Q5']8#C1>_.*GN^U6^L6?/[#?_'E_6GQ(N>?[HJ/5^HCS2REG:#/5"
^XMB(3.9,22,2,20257,0)="""DATA"",396.18,473,3,1421,0)"
^XMB(3.9,22,2,20258,0)="MEN_X]JUV&(2GRV7]L=Y^9?5D'Q)6Q7?K[2UW1?GUD2^;_%`MRY3+-V?XM9*%"
^XMB(3.9,22,2,20259,0)="""DATA"",396.18,473,3,1422,0)"
^XMB(3.9,22,2,20260,0)="MFXE`;+4LN\^']1<>9S+=;K(\BSP[(VV1\>>#R,I^MT,ZKFL(02Q*)V@\""'7+"
^XMB(3.9,22,2,20261,0)="""DATA"",396.18,473,3,1423,0)"
^XMB(3.9,22,2,20262,0)="M)$Y*QG:-=""[VZ5',E*GDQMSLONS9/)=_JJ:Q%%M4I;3D0__WBS>?%C__\G*Q"
^XMB(3.9,22,2,20263,0)="""DATA"",396.18,473,3,1424,0)"
^XMB(3.9,22,2,20264,0)="MSY(_L=_^M#DP(02+?[]CBE%&-;T][""]3-CV<]HL?1=:;=XO5V^3_^^77]]\/"
^XMB(3.9,22,2,20265,0)="""DATA"",396.18,473,3,1425,0)"
^XMB(3.9,22,2,20266,0)="M""D]/#.]2`UFQP@%)W/[G*Z;Q>6;VD<Z.ONJ&7,LT\,97?88(P(WUNRD""5Q64"
^XMB(3.9,22,2,20267,0)="""DATA"",396.18,473,3,1426,0)"
^XMB(3.9,22,2,20268,0)="M82GI;J,1U;M,9;-$""`(?E(L2TY+$N""!1ER/*JF+^L`G=\\B_U+75!TX0%S?"""
^XMB(3.9,22,2,20269,0)="""DATA"",396.18,473,3,1427,0)"
^XMB(3.9,22,2,20270,0)="MTL8BH:_3^9@X,KXEIO*,O6R.RLMF9M3J@&OP8^(PG/0Q,3%&)_6-J?N48&'*"
^XMB(3.9,22,2,20271,0)="""DATA"",396.18,473,3,1428,0)"
^XMB(3.9,22,2,20272,0)="M;57+I\3)]N/^CT5SH_-174-MB^_J1Y82=-6`V(XJPOIH4!#A-S%W2V+_V\7B"
^XMB(3.9,22,2,20273,0)="""DATA"",396.18,473,3,1429,0)"
^XMB(3.9,22,2,20274,0)="MI[OCY=UV?WG'W(YT?W=<[+Y??/-Q<YG>'A<W['O;='@>1V(,O=QL2ZAL/@9A"
^XMB(3.9,22,2,20275,0)="""DATA"",396.18,473,3,1430,0)"
^XMB(3.9,22,2,20276,0)="M'VU0][B?C#ZXQ-:BEDN;77-MCLEO8O_E(@[8_\)O\_C)6ZX(-RG[UX[]:X0*"
^XMB(3.9,22,2,20277,0)="""DATA"",396.18,473,3,1431,0)"
^XMB(3.9,22,2,20278,0)="M4-OJUYI:^Z=V.O#;@:?^>;(C@NO9BM!Q;(:$;@WXM=*`;_A>^S1CP=*V%=%R"
^XMB(3.9,22,2,20279,0)="""DATA"",396.18,473,3,1432,0)"
^XMB(3.9,22,2,20280,0)="M:,CZ7!&>\F`0V$X.ZOP:6496UX\%(SK>UB5P-2]D;=,"","">&>29\""-@+8?"">"
^XMB(3.9,22,2,20281,0)="""DATA"",396.18,473,3,1433,0)"
^XMB(3.9,22,2,20282,0)="M3K];.P7J*R""B24)I&`*R3G^Y^$""^7=QM=^L#Z_>74TP""U+'V:93#L=#II0*O"
^XMB(3.9,22,2,20283,0)="""DATA"",396.18,473,3,1434,0)"
^XMB(3.9,22,2,20284,0)="M/E[=79Z>I/%36T^@""@PFC*""^K?$W^G]$I[NVU7753K>L[H?KNYN/BU]N;_?'"
^XMB(3.9,22,2,20285,0)="""DATA"",396.18,473,3,1435,0)"
^XMB(3.9,22,2,20286,0)="MS1/M=%O_B7I*IX=!STZ?PM1MG16JGH,O+7.M_+BY?;K>'K7UDVBHN25#+8?Z"
^XMB(3.9,22,2,20287,0)="""DATA"",396.18,473,3,1436,0)"
^XMB(3.9,22,2,20288,0)="MM^3EXJW+_D>_77Q*;_:'PMW;;#?[V^-^/8'#1WW+AGAJ-GG;>9]KPA-V]ZBM"
^XMB(3.9,22,2,20289,0)="""DATA"",396.18,473,3,1437,0)"
^XMB(3.9,22,2,20290,0)="MN^>IBZ>(6NX%O%V^7+QGZO#>_7:QV7WBN5`/B\_;NU-:Z$3V[SNF$>L_-S=W"
^XMB(3.9,22,2,20291,0)="""DATA"",396.18,473,3,1438,0)"
^XMB(3.9,22,2,20292,0)="M4VB&K4?H18HW$WAVFO'_[M+T2:N&K4>X=((1PT0V1+#_>?(P\>]WZZNI%H:>"
^XMB(3.9,22,2,20293,0)="""DATA"",396.18,473,3,1439,0)"
^XMB(3.9,22,2,20294,0)="MK7.XU,QPEMKP:O<[D_D%6QML/CW5B<.S=0^72W6P<&P'""X\I0S9@?+NX2M-;"
^XMB(3.9,22,2,20295,0)="""DATA"",396.18,473,3,1440,0)"
^XMB(3.9,22,2,20296,0)="MGCMYORM'BM/F(ULM;GB4QU,^CHS7#ELOTE?U7'.MKD4[WFU9K=>'I^M9>+:N"
^XMB(3.9,22,2,20297,0)="""DATA"",396.18,473,3,1441,0)"
^XMB(3.9,22,2,20298,0)="MI*].R$%@J2#E3)*K0CY_K(^GP_YRE]YL[HXO%\?]-JUFD>,8U;!U-?U@\&;("
^XMB(3.9,22,2,20299,0)="""DATA"",396.18,473,3,1442,0)"
^XMB(3.9,22,2,20300,0)="M7P_I^L0P3WHN\6Q=3E]=GA-"")QDZTDR\3$C7Z^WV[I*-(=O][O,T>F+THI9!"
^XMB(3.9,22,2,20301,0)="""DATA"",396.18,473,3,1443,0)"
^XMB(3.9,22,2,20302,0)="M,]N9KR89)3USYJT_YC>2BYHO3JR1PY,0^L2V\J&CR>UB6?F_9A<MTO7Q[I#F"
^XMB(3.9,22,2,20303,0)="""DATA"",396.18,473,3,1444,0)"
^XMB(3.9,22,2,20304,0)="M<7KWGQ8?]PQRW%REQ^R5].7^YG9]V!SWP_+_U0?9OMMY-SUL!+?1Y$E1#=B+"
^XMB(3.9,22,2,20305,0)="""DATA"",396.18,473,3,1445,0)"
^XMB(3.9,22,2,20306,0)="MFC=OEU%$^U^\56[N*S=OJ\/NP.8*K2.EY1""_<*7D'.(7XD/F%TOI!NZ'_@\R"
^XMB(3.9,22,2,20307,0)="""DATA"",396.18,473,3,1446,0)"
^XMB(3.9,22,2,20308,0)="M!-G3SI<R-)Q*]NXSD7V/ETIA?]WW!W8`O^$1/I,>H#UZH+\%C.F!X)GT0)^W"
^XMB(3.9,22,2,20309,0)="""DATA"",396.18,473,3,1447,0)"
^XMB(3.9,22,2,20310,0)="M2<O>/:#-6V;9!=%SZ0+/O@LBI_<P-*H+GLLXM.S1!:1_%X1D>!?XSZ0+>KS3"
^XMB(3.9,22,2,20311,0)="""DATA"",396.18,473,3,1448,0)"
^XMB(3.9,22,2,20312,0)="MCMS^`]&8+E@^DR[H\0XOHKVM0$B1V+L+PN?BDD8]NL#K;06CNH`\DR[H$:0C"
^XMB(3.9,22,2,20313,0)="""DATA"",396.18,473,3,1449,0)"
^XMB(3.9,22,2,20314,0)="MZN\1N<'P@2B(GLNBN,?*+/+[CT0C^B!TGDL?]`@5$06][8""2$1/RL]D<ZK$Z"
^XMB(3.9,22,2,20315,0)="""DATA"",396.18,473,3,1450,0)"
^XMB(3.9,22,2,20316,0)="MB\+>=C""J#[SGT@<]]BB(0WH;@J>&)[`?C)Z+9TK\/IW0?Z]N5""<\EQ4:""?IT"
^XMB(3.9,22,2,20317,0)="""DATA"",396.18,473,3,1451,0)"
^XMB(3.9,22,2,20318,0)="M0O_M.B\<X9T^&]<H[-,)7G]+&-$)T;/QC:(^G=!_D;!TH^&+A.>R5':=/IW0"
^XMB(3.9,22,2,20319,0)="""DATA"",396.18,473,3,1452,0)"
^XMB(3.9,22,2,20320,0)="M?Y4PJA.>BX?J]@DHY_1?)BPC.KP3GHN+ZKI].J'_.F%4)SP7%]7MM4Z(^A]F"
^XMB(3.9,22,2,20321,0)="""DATA"",396.18,473,3,1453,0)"
^XMB(3.9,22,2,20322,0)="M+KWAWM&S&8YZG*41TO\P;50G/)OA:-FG$SI7S(UP?H&G/I9U'8LXC-Q!G3W@"
^XMB(3.9,22,2,20323,0)="""DATA"",396.18,473,3,1454,0)"
^XMB(3.9,22,2,20324,0)="MI7!W[#P!+EV_*\+ETM%'N%1OT:EO$#U?O:CM>3K)(L)E6X1+M\_I9M1_(V\Y"
^XMB(3.9,22,2,20325,0)="""DATA"",396.18,473,3,1455,0)"
^XMB(3.9,22,2,20326,0)="M_(P_?""YG_*3/L.0X_7>TQW3""3'==M'G.'DSGM&0?$_NMQYSN]9Q,-'=OJ[@^"
^XMB(3.9,22,2,20327,0)="""DATA"",396.18,473,3,1456,0)"
^XMB(3.9,22,2,20328,0)="M[4%]J4.""\\2&7>^^EM/*^G38WUY_G7M*""3NGE,!R2@E=9]B4PN4;8DIIFU(T"
^XMB(3.9,22,2,20329,0)="""DATA"",396.18,473,3,1457,0)"
^XMB(3.9,22,2,20330,0)="ML7M-T6-#7?38H(X>FZ=7J</'AE+X6)K'X'_&X6,C0WQ""+S2$0)6B""4>-&&]1"
^XMB(3.9,22,2,20331,0)="""DATA"",396.18,473,3,1458,0)"
^XMB(3.9,22,2,20332,0)="M,TY8%8S-'#[VUY2_?YLO?BP]?\!/+](*KWJ8HH]]6:4<L(M]^=WBU<<CJ];W"
^XMB(3.9,22,2,20333,0)="""DATA"",396.18,473,3,1459,0)"
^XMB(3.9,22,2,20334,0)="M""_)W[(L?O][N\^0CWR_<O\L""=7(?_?L%+;Z;'O)OOUS\L3E=BQ$9]W<G)L+]"
^XMB(3.9,22,2,20335,0)="""DATA"",396.18,473,3,1460,0)"
^XMB(3.9,22,2,20336,0)="M[N[X_<+3_G3Q[7[Q&G-9+!V](I4#4F&FRT:DR_#1A=(=J""M+H@\.2\(V^=#P"
^XMB(3.9,22,2,20337,0)="""DATA"",396.18,473,3,1461,0)"
^XMB(3.9,22,2,20338,0)="M\<70[2V@/%(E-08VE^)-5IEZC5$SJ7.6J)E5A,70&&Z12'&D_488:3]4.K?T"
^XMB(3.9,22,2,20339,0)="""DATA"",396.18,473,3,1462,0)"
^XMB(3.9,22,2,20340,0)="MK`='6_2<2:,M.L:7;4O3XUBW&1I.23EA&1;L=?[(.UY^YS_6C-^]WPLNJ9U4"
^XMB(3.9,22,2,20341,0)="""DATA"",396.18,473,3,1463,0)"
^XMB(3.9,22,2,20342,0)="M/>5<AX9V4OU0O)V/_>_""YR-6TW/=1H(43?@WRP!6KYF!76_V><RRS7/3VJ6="
^XMB(3.9,22,2,20343,0)="""DATA"",396.18,473,3,1464,0)"
^XMB(3.9,22,2,20344,0)="M>`E5X^Y8#@9%B*W_G1Y^7\3A=Q_(\Q&N*99-\T8H48*R+CT[X68!2S+1+M[2"
^XMB(3.9,22,2,20345,0)="""DATA"",396.18,473,3,1465,0)"
^XMB(3.9,22,2,20346,0)="M[[SG(]K`4K2^&B6H5WR'7+;OGX_2DLAR1`B6%I&XM$K[ZN/5_B9+$?B!CP?N"
^XMB(3.9,22,2,20347,0)="""DATA"",396.18,473,3,1466,0)"
^XMB(3.9,22,2,20348,0)="M<Y%M:#D>4*J<\X5]XPG\Y1>^?_>7P1$$0I.!""1'C'D1MZ\U6M_M8VVDHL:MF"
^XMB(3.9,22,2,20349,0)="""DATA"",396.18,473,3,1467,0)"
^XMB(3.9,22,2,20350,0)="MKPLL]E]]9^8G07[_K?&_D_;&I:^H])7W=_V?HPLIT+J/K:DSE9""=IR9DRW@+"
^XMB(3.9,22,2,20351,0)="""DATA"",396.18,473,3,1468,0)"
^XMB(3.9,22,2,20352,0)="ME/369&^PE&=^[G\/4G8MI>SV5N414O:?FI2II91I;UT.Z>`1X\E)V;.4LM=;"
^XMB(3.9,22,2,20353,0)="""DATA"",396.18,473,3,1469,0)"
^XMB(3.9,22,2,20354,0)="MET=(V7MJ4EY:2GG96Y>)J][9(K[=D/'D?`S?4LQ^;V76BMER9'YRVAQ8BCGH"
^XMB(3.9,22,2,20355,0)="""DATA"",396.18,473,3,1470,0)"
^XMB(3.9,22,2,20356,0)="M[R\[X5`Q^\LGY\S9NLQA?Y=9(V?74LYS)`V^5S';.LT#EG_JG4/K4>/IK4TL"
^XMB(3.9,22,2,20357,0)="""DATA"",396.18,473,3,1471,0)"
^XMB(3.9,22,2,20358,0)="MW69OP`I0)V>[2=!_<JL38NDX>]UQ9AI2CI35"";6ZF^P[0][.];A-EM6WC)3["
^XMB(3.9,22,2,20359,0)="""DATA"",396.18,473,3,1472,0)"
^XMB(3.9,22,2,20360,0)="MS>OUQ\WN^/OF6\U%,FK3'R6I"",J\^"":_1_&M*'PQ:O/BFU=%=$WI1[(])WT7"
^XMB(3.9,22,2,20361,0)="""DATA"",396.18,473,3,1473,0)"
^XMB(3.9,22,2,20362,0)="M67K='NUO""KI.<NTZ:=[[X]E=A$?52WVNU'8OD%37W:?#1BW""S.[)#5M]7OYV"
^XMB(3.9,22,2,20363,0)="""DATA"",396.18,473,3,1474,0)"
^XMB(3.9,22,2,20364,0)="MKY-4!WZ,L(.G)NRH\PZLJ[\#VSQ)T-PVT(1>UDDU""'`#MNT&+.E^^D+U?:2>"
^XMB(3.9,22,2,20365,0)="""DATA"",396.18,473,3,1475,0)"
^XMB(3.9,22,2,20366,0)="MH'CA\%Z*T$MMO12H]Y2U5]BR`V5=SFI?OA!*&[?\/""4%?*!<88NWZ?HP1[9J"
^XMB(3.9,22,2,20367,0)="""DATA"",396.18,473,3,1476,0)"
^XMB(3.9,22,2,20368,0)="M:JJT?`5XV+V[MD3;I$_5#??""B:NY%Q[6U\+S=5^=S#&2KH5[N8'TOA9>32Y/"
^XMB(3.9,22,2,20369,0)="""DATA"",396.18,473,3,1477,0)"
^XMB(3.9,22,2,20370,0)="M\:9XOB.A.=1W?/T-7T_.9=^XX*OHMN8&:_.J^/LL'O_7^>Z*^^>_*TZH07J^"
^XMB(3.9,22,2,20371,0)="""DATA"",396.18,473,3,1478,0)"
^XMB(3.9,22,2,20372,0)="M9&6D*3Z_\ZZX<$?\Y6)!OEN\N;E=;PY,CNR/6]T0YU_]_&&QVY\6I_1X2J]>"
^XMB(3.9,22,2,20373,0)="""DATA"",396.18,473,3,1479,0)"
^XMB(3.9,22,2,20374,0)="M=(P+ABSV5>BYHL9E6J1>6>S;Q@5W_)#F&:X21\OQ53=<)2937""4.S)G;)2/S"
^XMB(3.9,22,2,20375,0)="""DATA"",396.18,473,3,1480,0)"
^XMB(3.9,22,2,20376,0)="M&F.Q7R9)J0=C,O8J\<2)VW57B3.GGK4T.ZHNOV@X.LTHN,IK+-_3;$_4&7F$"
^XMB(3.9,22,2,20377,0)="""DATA"",396.18,473,3,1481,0)"
^XMB(3.9,22,2,20378,0)="MKOO;[2VK2O+GZ9#>;$Z;=,YLK73..T.J6/4#MG+]II)JX-0?E;O%]2?-UQG:"
^XMB(3.9,22,2,20379,0)="""DATA"",396.18,473,3,1482,0)"
^XMB(3.9,22,2,20380,0)="M\=O\2L->HNTR-8[;EG(U2K9-MI4KKA=I:!0IK6\/M\F4]I""I^++C*0LU,@JU"
^XMB(3.9,22,2,20381,0)="""DATA"",396.18,473,3,1483,0)"
^XMB(3.9,22,2,20382,0)="M3@=57\9T-8I:O\@4I+IT=5*M/^/[2X?]E\U5NK@J78_-[A.?EK*?77_D+Z:V"
^XMB(3.9,22,2,20383,0)="""DATA"",396.18,473,3,1484,0)"
^XMB(3.9,22,2,20384,0)="M^\OLRY>+]/O/WR_^<K4_'.]N>)::TW4J/*_*>(M/>S:_KG=7B\]9^J;3/EVD"
^XMB(3.9,22,2,20385,0)="""DATA"",396.18,473,3,1485,0)"
^XMB(3.9,22,2,20386,0)="MI\OO_[)X\VEQNS\>-VQU]7*QXR)FO\X3$6UNK],LN5UZ^*+RLE=9Q\(?^LAO"
^XMB(3.9,22,2,20387,0)="""DATA"",396.18,473,3,1486,0)"
^XMB(3.9,22,2,20388,0)="MF?.<.)O3B0_!I^O-<7&[/IW2PXY7J/PY-D,=OQ=ZS+""HFTNAR/P*9;@WV:5I"
^XMB(3.9,22,2,20389,0)="""DATA"",396.18,473,3,1487,0)"
^XMB(3.9,22,2,20390,0)="MQ#&;;[W+`56#JHU0-7G/<FG>,ZYWC175\P*-YM%(HWG2A_5VIN<+K39O:+;N"
^XMB(3.9,22,2,20391,0)="""DATA"",396.18,473,3,1488,0)"
^XMB(3.9,22,2,20392,0)="M]>OW-*49ZI\V3%'X%_\H%%?O>GJ/IO];MF4;&[.-$!*-(!*-^!#MBJ7SXRRU"
^XMB(3.9,22,2,20393,0)="""DATA"",396.18,473,3,1489,0)"
^XMB(3.9,22,2,20394,0)="M:MFM5=1SIU>K$&KUF-2*]%0K?\A@%3DCM8H&9]&J=^O-;O'-[69WRQ;DOW\+"
^XMB(3.9,22,2,20395,0)="""DATA"",396.18,473,3,1490,0)"
^XMB(3.9,22,2,20396,0)="MW1JG6VY/W0H&#5GCE2N""<CT^Y:+]E*LEL6?+P,6T8ZQRT;,HU]NL%A_V=Y?7"
^XMB(3.9,22,2,20397,0)="""DATA"",396.18,473,3,1491,0)"
^XMB(3.9,22,2,20398,0)="M4*QQBN7U5""PZ:-2:0+.6T*S'I5G+GIHU:&%(@M$N/#G/?+@_;K)_\\.\%+HU"
^XMB(3.9,22,2,20399,0)="""DATA"",396.18,473,3,1492,0)"
^XMB(3.9,22,2,20400,0)="M3K?\GKHUS->:0+DHE.O1*5?04[G""(0.7*WXT2+?<\SCR;XM-6+[+N2XNDV;;"
^XMB(3.9,22,2,20401,0)="""DATA"",396.18,473,3,1493,0)"
^XMB(3.9,22,2,20402,0)="MG2T;$NX3T;6?][M45JC&S5EKG0I[ZE0T:,`:KU240*D>C5)%74K%+TIZR\:-"
^XMB(3.9,22,2,20403,0)="""DATA"",396.18,473,3,1494,0)"
^XMB(3.9,22,2,20404,0)="MR9;#1.'6O*`_@4Y_`JH?E);W=_CA&OI/=XFRI?=:+E)*5RG;NZGC.J7VT5M'"
^XMB(3.9,22,2,20405,0)="""DATA"",396.18,473,3,1495,0)"
^XMB(3.9,22,2,20406,0)="M1P:FCM2<U4W0DP%ZLG]/JAO,^KO,U54?U_JJC^<NK>[ZU#\F#;A_/+F[/J3M"
^XMB(3.9,22,2,20407,0)="""DATA"",396.18,473,3,1496,0)"
^XMB(3.9,22,2,20408,0)="M9)L83[;]0)DV*>[Z6%P6<%ON^K@V,L5='U6H?J\;&,NE;E0/<0,#-S""Z52WH"
^XMB(3.9,22,2,20409,0)="""DATA"",396.18,473,3,1497,0)"
^XMB(3.9,22,2,20410,0)="M<ZUL&4'3H&GC[OH$SJ""[/N'83;<`ES*>\%V?@-CLC<R@5A'4Z@G?]0G<06H5"
^XMB(3.9,22,2,20411,0)="""DATA"",396.18,473,3,1498,0)"
^XMB(3.9,22,2,20412,0)="M>F/5RL%]C""=_'R.@0V;""T;I%0^C6D[](%GB#!BZBW?7HI5T^KF0\Z2L9P7+0"
^XMB(3.9,22,2,20413,0)="""DATA"",396.18,473,3,1499,0)"
^XMB(3.9,22,2,20414,0)="ME8SQBN5!L9[T+;+`'S9D^:-]>`_W,9[Z?8P@&#1JC=<M%[KUU""^2!>&@@<LE"
^XMB(3.9,22,2,20415,0)="""DATA"",396.18,473,3,1500,0)"
^XMB(3.9,22,2,20416,0)="MR[%3HHM[&4_G7H:L0:$S[`+9Z""O5#G3JZ5P@RZZ(A'VNB)#`]HJ(&,I!O""(2"
^XMB(3.9,22,2,20417,0)="""DATA"",396.18,473,3,1501,0)"
^XMB(3.9,22,2,20418,0)="MXHK(%%=$=#T9];BU-;XC?73D%+>V+#)W9R$7E,S=+A%BM/EBC#8O]"">)T?:$"
^XMB(3.9,22,2,20419,0)="""DATA"",396.18,473,3,1502,0)"
^XMB(3.9,22,2,20420,0)="M`K(1?4BQR--GGRY3T1=99QL!Q1S7.G7WJ]WO7[?,^SX6I]*+[//'G[R[""!)&"
^XMB(3.9,22,2,20421,0)="""DATA"",396.18,473,3,1503,0)"
^XMB(3.9,22,2,20422,0)="M]4'""JN3FQ6#C1UUQ#UU-L,;Y8H3YYAAA3ELH.<]58H15V;>'Q@BCX9G2#3O$"
^XMB(3.9,22,2,20423,0)="""DATA"",396.18,473,3,1504,0)"
^XMB(3.9,22,2,20424,0)="MD$DN:*8855)XD,`RD=R;W=4F]]PRA;_;?5I_V1_XW+!8EY;PP_D#I<Z8?;`M"
^XMB(3.9,22,2,20425,0)="""DATA"",396.18,473,3,1505,0)"
^XMB(3.9,22,2,20426,0)="MA:/CVDG<#918Y,1Q++-C7EUE2WOF'U_N;VY8'04!/P%)RFL<KS,C#8G\9K0["
^XMB(3.9,22,2,20427,0)="""DATA"",396.18,473,3,1506,0)"
^XMB(3.9,22,2,20428,0)="M)=P=B=1`[T)*[3+0^](-9@WT7NW*9%,#,Y-+OI;YN#XLCL(DH8WW?L\AAGOU"
^XMB(3.9,22,2,20429,0)="""DATA"",396.18,473,3,1507,0)"
^XMB(3.9,22,2,20430,0)="M=UNT[I_3N].A""F""9?;3*H]""+'R5_GMC2CW_X;:_+OJUQZ=]NCJ=B*BC^V3$L"
^XMB(3.9,22,2,20431,0)="""DATA"",396.18,473,3,1508,0)"
^XMB(3.9,22,2,20432,0)="M>H&:,%R3PE9((E`K$NT:\[(F7J57[],MKZ(F+KIF&&B5K+R*?'&Q^?1I<WFW"
^XMB(3.9,22,2,20433,0)="""DATA"",396.18,473,3,1509,0)"
^XMB(3.9,22,2,20434,0)="M/7U=_+'>9C/+Q_1R?7=,LS7V8KNYV9Q8O;9,\_@G7S;'1B_\FAY929?\A_:W"
^XMB(3.9,22,2,20435,0)="""DATA"",396.18,473,3,1510,0)"
^XMB(3.9,22,2,20436,0)="MZ8X3""I_F9G_'Y,&OUEU>IW^P;XB_]IK?MKOF/UT6<=HOKC;KV^O#^C._SG>Y"
^XMB(3.9,22,2,20437,0)="""DATA"",396.18,473,3,1511,0)"
^XMB(3.9,22,2,20438,0)="M.*1,X?,++.)O_O7-XOCUYO:T9X9U=9?RW[ME/WJ\.Z1ER9?[XXF-?#?KP^<-"
^XMB(3.9,22,2,20439,0)="""DATA"",396.18,473,3,1512,0)"
^XMB(3.9,22,2,20440,0)="MLZ-=]N&:I[5-)=3%U^/M+ETW/[I>?]Y('[XZ\60)^_6?&T9E]G&9'KYP9WYQ"
^XMB(3.9,22,2,20441,0)="""DATA"",396.18,473,3,1513,0)"
^XMB(3.9,22,2,20442,0)="MO/NXO?NSV),XL/H?R\N'+V1U9I/S_C-K4[/FV1W""Q8'?061B3$^77""2U/O_$"
^XMB(3.9,22,2,20443,0)="""DATA"",396.18,473,3,1514,0)"
^XMB(3.9,22,2,20444,0)="M>F93=;XXB-BF[>(+/Y?H(YTWYYO02I7#4-5D$KUXP/',IXA4'O28C:*>F6'&"
^XMB(3.9,22,2,20445,0)="""DATA"",396.18,473,3,1515,0)"
^XMB(3.9,22,2,20446,0)="MS$7D;'-1K?28AJ:8AMP>&K7L[=]07\G7X:@Y""^J(BX)*S9*DL]:I3%XG@W=3"
^XMB(3.9,22,2,20447,0)="""DATA"",396.18,473,3,1516,0)"
^XMB(3.9,22,2,20448,0)="MKP=$!5.V%IZ2EC%ER:3Q09+&>\G(N)KM3ALVP^E^JJ%W9;,DL5BII-<CB8SK"
^XMB(3.9,22,2,20449,0)="""DATA"",396.18,473,3,1517,0)"
^XMB(3.9,22,2,20450,0)="M]QSEJ,WRD2H*Z5(B^$ES#')OCMP_8+*51[A:%?]1,]BY-EW[S\+CN,SYZI_:"
^XMB(3.9,22,2,20451,0)="""DATA"",396.18,473,3,1518,0)"
^XMB(3.9,22,2,20452,0)="MNS$0]$TZI@X#)/#488!JAH%Y<X[5HX!)ZB^>JJ''98---M[X@6^'/&6TL^&@"
^XMB(3.9,22,2,20453,0)="""DATA"",396.18,473,3,1519,0)"
^XMB(3.9,22,2,20454,0)="M_[RB>BJ1G17[[GFLN'56F=F4J?7F?:3;N\_?Y(GA^*LMQGRF%O;N@^>^=^_J"
^XMB(3.9,22,2,20455,0)="""DATA"",396.18,473,3,1520,0)"
^XMB(3.9,22,2,20456,0)="M]^[#2+]W3Z5L((V=Y\K=MMB[_^GN>+E-G]K.?7[NX6AEY\O;]F'CW,/O%IWP"
^XMB(3.9,22,2,20457,0)="""DATA"",396.18,473,3,1521,0)"
^XMB(3.9,22,2,20458,0)="MK/G1R\C5RHB6>3'T0J)!MY#$=\J/6$K5""<K2>)SB2GENEHW$1AZA2LH5,O(X"
^XMB(3.9,22,2,20459,0)="""DATA"",396.18,473,3,1522,0)"
^XMB(3.9,22,2,20460,0)="MQ7?''Z=,VR?NH#YI[0W;$Q]J.']HY+U37<<Z[77[Z<,O6:&;+^DBX8]U=Y=\"
^XMB(3.9,22,2,20461,0)="""DATA"",396.18,473,3,1523,0)"
^XMB(3.9,22,2,20462,0)="M9^Y)G3]DXEL:3W)H8VMMZ5(UK:SJA]>WJW2OG[F+<Y--/LRK61]O7F8OG;>;"
^XMB(3.9,22,2,20463,0)="""DATA"",396.18,473,3,1524,0)"
^XMB(3.9,22,2,20464,0)="M_^"";IWR;^+!+CT>^#_GY;GVXXFI]9-X`<XG2W?[N\_5"">JO\XK1??$RS3=;]"
^XMB(3.9,22,2,20465,0)="""DATA"",396.18,473,3,1525,0)"
^XMB(3.9,22,2,20466,0)="M+GOEO/C$?K6Z5O5YO3DMQ`^X)Y4=)^U.^SOF6,FTN\OKQ?JX.#+':\,=K9>,"
^XMB(3.9,22,2,20467,0)="""DATA"",396.18,473,3,1526,0)"
^XMB(3.9,22,2,20468,0)="MS,H^\KUCYGGD'XFXJ_3S(<UV;'__>GN]EVF2I_:HU,7PSKGM/#!P#%I$FLF)"
^XMB(3.9,22,2,20469,0)="""DATA"",396.18,473,3,1527,0)"
^XMB(3.9,22,2,20470,0)="M`]4BJ9U%UDN*-1O9\JZLEEBMAY5+Z\JIY\/4MZM=8U/#NHJ-,-C=F<\;J^.E"
^XMB(3.9,22,2,20471,0)="""DATA"",396.18,473,3,1528,0)"
^XMB(3.9,22,2,20472,0)="MKR0^)W7,F]HL?4U66S+'<D9=DSRZ56[+0LEN6[3/)A3IW`]QFZ&/E%DMTNQ"""
^XMB(3.9,22,2,20473,0)="""DATA"",396.18,473,3,1529,0)"
^XMB(3.9,22,2,20474,0)="M!9H.7X:SKE_?\R%=MSSUGJTJ.'TTH3/7NS!`&55A::D*$53AO*K08U=K&?8="
^XMB(3.9,22,2,20475,0)="""DATA"",396.18,473,3,1530,0)"
^XMB(3.9,22,2,20476,0)="M$T(Z>$R8=T_KU>FPO[W^""E48>&ZVC'H/""AI=L!T4*'3AW+I`[77!=_H.""\0="
^XMB(3.9,22,2,20477,0)="""DATA"",396.18,473,3,1531,0)"
^XMB(3.9,22,2,20478,0)="M/BYXL^K""7XOU'91AX.FE3WH/##IML!T9EM""&LVO#TEX;0K_WT.""[@Y7!G_?&"
^XMB(3.9,22,2,20479,0)="""DATA"",396.18,473,3,1532,0)"
^XMB(3.9,22,2,20480,0)="M#@^@DL6@N]G+C^*@%!U7Y1I*$?0?(D9H10""MN#>MZ'&W+^R]N'#5RWVV7H0_"
^XMB(3.9,22,2,20481,0)="""DATA"",396.18,473,3,1533,0)"
^XMB(3.9,22,2,20482,0)="M[Q6,#]6>,=1!\S[62AWZ+S!T^F`Y2/@$^G`/^A#UV8;R>H\/]17KZD2]?E/0"
^XMB(3.9,22,2,20483,0)="""DATA"",396.18,473,3,1534,0)"
^XMB(3.9,22,2,20484,0)="MJA#46=[S/M3X&S/$[2/=97]S4\5K:6[4\1^_=&D?Z?9V@ZF:1\!6=]THNO?M"
^XMB(3.9,22,2,20485,0)="""DATA"",396.18,473,3,1535,0)"
^XMB(3.9,22,2,20486,0)="MD@GDV^NPHK]'J1&PM?8Z3T&^RS[R[>V;4=\;/O:2^U_43R!@OX^`^WL[&@E;"
^XMB(3.9,22,2,20487,0)="""DATA"",396.18,473,3,1536,0)"
^XMB(3.9,22,2,20488,0)="M*[#[)`0<]+F/VWN/TG-&:#!].&O.""00=]A%T__T_C:2M-=E[4H+NXP^[_0_H"
^XMB(3.9,22,2,20489,0)="""DATA"",396.18,473,3,1537,0)"
^XMB(3.9,22,2,20490,0)="M/3I<HX.'L$`:+V*WS\FW.^#DVZ.#=3E\(B+N\T[""H[U7=76""HGZ[/F'@S;NH"
^XMB(3.9,22,2,20491,0)="""DATA"",396.18,473,3,1538,0)"
^XMB(3.9,22,2,20492,0)="M^RU=_XXUOBD""DYTZ>/V7H1I]6%KJ@P]].+\^]!H>EKTGN6#HI@_3A^C^]6&"""
^XMB(3.9,22,2,20493,0)="""DATA"",396.18,473,3,1539,0)"
^XMB(3.9,22,2,20494,0)="M\;?/OD]W?!=UB@NBH0:W=)Z$@#5OT?31NAQ]M""[7E5Y,T2#LB-95[E7,&ZTK"
^XMB(3.9,22,2,20495,0)="""DATA"",396.18,473,3,1540,0)"
^XMB(3.9,22,2,20496,0)="M_TDW-(08*_5J1*5?;;>+G[-+ZFK-W3XU-SS]""S5/__SZX1^5'OX%^<0A/!%X"
^XMB(3.9,22,2,20497,0)="""DATA"",396.18,473,3,1541,0)"
^XMB(3.9,22,2,20498,0)="M]D'[J/YAUE+_>,U=>BT/_US'MW[X]V9WO.7/6LK03$_F[5_U2,LSOM@BK0'P"
^XMB(3.9,22,2,20499,0)="""DATA"",396.18,473,3,1542,0)"
^XMB(3.9,22,2,20500,0)="M`LV+K6#DBZVE<YX`>$M3_#NW^<!!.;?S7+OG#>_VQ]/=(?W')_<`R@\M9:=L"
^XMB(3.9,22,2,20501,0)="""DATA"",396.18,473,3,1543,0)"
^XMB(3.9,22,2,20502,0)="MG7B1;>3`TN:>GO`B:\6+U$?W=N+[ZWIS>G*"",[Z74@3GJGH7V@MN<?IZ6QEM"
^XMB(3.9,22,2,20503,0)="""DATA"",396.18,473,3,1544,0)"
^XMB(3.9,22,2,20504,0)="M6WU<6RMP-4^D;`,ZEN_FWN?/\.*[PY<U'U6.3ZY_0].H0H*@LX,#RS'Y(CU>"
^XMB(3.9,22,2,20505,0)="""DATA"",396.18,473,3,1545,0)"
^XMB(3.9,22,2,20506,0)="M'C8?T\6>1XWH""#[:UOFVTP=;)2J=3YPAE>5I:7G/CZBT\06PUW@#K)X_$AH."
^XMB(3.9,22,2,20507,0)="""DATA"",396.18,473,3,1546,0)"
^XMB(3.9,22,2,20508,0)="MJO1URI9$MT4\L1%5]VRKKD:SBX*>-5\?O][<I*?#UT'U;5PY[@RUXC8W:97;"
^XMB(3.9,22,2,20509,0)="""DATA"",396.18,473,3,1547,0)"
^XMB(3.9,22,2,20510,0)="MA.'2*B@<F?=@YZ^;CQ_OYEZ^]KF$U2E9)YA,M/,>Y?R__""FT(4S-A,+M=8+3"
^XMB(3.9,22,2,20511,0)="""DATA"",396.18,473,3,1548,0)"
^XMB(3.9,22,2,20512,0)="M)5TO\KJE&]A)=]ZM;Q[0=>[#L5[[R)V[6A:BC4([T<Z[B_PV?[K]:<MSF^_."
^XMB(3.9,22,2,20513,0)="""DATA"",396.18,473,3,1549,0)"
^XMB(3.9,22,2,20514,0)="M<*S>9W_6(GIBU""UG8B?GX!QR+D,J/*3+>9T3W#+TNP>*R$[*,[_%+J-8W.OU"
^XMB(3.9,22,2,20515,0)="""DATA"",396.18,473,3,1550,0)"
^XMB(3.9,22,2,20516,0)="MO""+^=&`,1=UT,:GJK/GJM$;JY605G2T,Z]M,,\2<%O92\TAXZ?;+YKC8\BU+"
^XMB(3.9,22,2,20517,0)="""DATA"",396.18,473,3,1551,0)"
^XMB(3.9,22,2,20518,0)="MS>>GS3:+.5T'C=)\]R!$2\J^776:].%IO[]-KZ00KIL_V:]O=FRP2OF_2I]4"
^XMB(3.9,22,2,20519,0)="""DATA"",396.18,473,3,1552,0)"
^XMB(3.9,22,2,20520,0)="M_)E&:B6K,,R.15\28MV9FA-#K>L=4+4W@^""<O?EJ=UIO/V\NY8C9ZS_E3]YM"
^XMB(3.9,22,2,20521,0)="""DATA"",396.18,473,3,1553,0)"
^XMB(3.9,22,2,20522,0)="M/J>RD-_L3ONT$1;\M_75U;;QV?O+S?&X/TA]F#+3WJUWD@+\R-JQ.)[2V]L&"
^XMB(3.9,22,2,20523,0)="""DATA"",396.18,473,3,1554,0)"
^XMB(3.9,22,2,20524,0)="M@,?T/C3KL^(QMZ\.^UNIDGNV++YE']YMCSJ5J,+7;$Y?IXS2W8CRV7D[B4;="
^XMB(3.9,22,2,20525,0)="""DATA"",396.18,473,3,1555,0)"
^XMB(3.9,22,2,20526,0)="MBX7(MQA*""8G<><?27_,P0&>;LKS.:.B./AHZ""?Q.""_0T8;DU%DA(*#SHNN?X"
^XMB(3.9,22,2,20527,0)="""DATA"",396.18,473,3,1556,0)"
^XMB(3.9,22,2,20528,0)="MI3T""I;=DOGIA<X`^43AUWCDTTO>2LJVR5#9'?<TFGT<U5]""%""_[HHW&19""/2"
^XMB(3.9,22,2,20529,0)="""DATA"",396.18,473,3,1557,0)"
^XMB(3.9,22,2,20530,0)="MV\>F5K&7O*6NXZ)Y0Y3_*.Y5M8:,?7PQ[97IN^'KC(_!D24=-`RRRBX=C6P"""
^XMB(3.9,22,2,20531,0)="""DATA"",396.18,473,3,1558,0)"
^XMB(3.9,22,2,20532,0)="MXVFU@#@PWQ;S[?/T)W)[FZ_ZKHK0P++CYMU$>U]LVG(??WU[FZX/Z]UE.G/D"
^XMB(3.9,22,2,20533,0)="""DATA"",396.18,473,3,1559,0)"
^XMB(3.9,22,2,20534,0)="MYTZWPR.6%D$<8F42NAE-V$""#273%A&BY713I;Q=5UXG*]?:`VT7_<[X[4;[A"
^XMB(3.9,22,2,20535,0)="""DATA"",396.18,473,3,1560,0)"
^XMB(3.9,22,2,20536,0)="M(E>99W%$K>>^$^5J[D0MA4RF>94J#R_/'%';0OXVXSE?BO+TEZ(\?293MUP)"
^XMB(3.9,22,2,20537,0)="""DATA"",396.18,473,3,1561,0)"
^XMB(3.9,22,2,20538,0)="M%G$P&]'0R]R3%I>BV/)ND_[!+T2]_WKDH^A326)JN&!89;^VS6%:!FT]RQ!`"
^XMB(3.9,22,2,20539,0)="""DATA"",396.18,473,3,1562,0)"
^XMB(3.9,22,2,20540,0)="MC'<YP_&UGFP,,%T_R\Z:#/?/I(CAY=W6>L6GW#_SQD8,7Y+SW#_S36?Q9-E<"
^XMB(3.9,22,2,20541,0)="""DATA"",396.18,473,3,1563,0)"
^XMB(3.9,22,2,20542,0)="M+RE^@6W^U7?;='U,%^F?M]OU9L3A^]*SK:LFC)[EX;LF<^G3""QQN""JKL4;<S"
^XMB(3.9,22,2,20543,0)="""DATA"",396.18,473,3,1564,0)"
^XMB(3.9,22,2,20544,0)="M?X]O>?=K=4C__2[=77Y=?'.U_GK:L*9]V6^RL.!LGDP/7];;;X=K@F^K""6K"""
^XMB(3.9,22,2,20545,0)="""DATA"",396.18,473,3,1565,0)"
^XMB(3.9,22,2,20546,0)="M&&JIM;]=;RZOBZNV3'N9F!>\29N#L)_?^_J(J=Z>XW;?UUFZ?47/:O\IY7&W"
^XMB(3.9,22,2,20547,0)="""DATA"",396.18,473,3,1566,0)"
^XMB(3.9,22,2,20548,0)="M-SL>.)U-F6PI\EPR'2]=6S4GZN-:LO3LA/WS_O+$UAKKQ3?_(\M0FNOX<7'+"
^XMB(3.9,22,2,20549,0)="""DATA"",396.18,473,3,1567,0)"
^XMB(3.9,22,2,20550,0)="MQMT=_\5OQU_>Z7X`Z'=<>""5$C=0N&$)YLAEX\ZZ-_\866>ML:5RKHVYEO+R?"
^XMB(3.9,22,2,20551,0)="""DATA"",396.18,473,3,1568,0)"
^XMB(3.9,22,2,20552,0)="M]&:=[]])<WPAD9H[TXTL1+VD,T=Q3@[\XC*SHJNOQT]WNTO37B*]GW`O7MA3"
^XMB(3.9,22,2,20553,0)="""DATA"",396.18,473,3,1569,0)"
^XMB(3.9,22,2,20554,0)="MI<E2E;3C6TB:S5@SQTY?94/LF_/I=(_;:=TQ'91C)S7-`['2Z+G#4;]-/_,4"
^XMB(3.9,22,2,20555,0)="""DATA"",396.18,473,3,1570,0)"
^XMB(3.9,22,2,20556,0)="M'I_XR>D?NE=LVCR=TW5`2WK+H2%-ND/&1$'W@&-E!JQ[YGU8^//=S4?3P\+E"
^XMB(3.9,22,2,20557,0)="""DATA"",396.18,473,3,1571,0)"
^XMB(3.9,22,2,20558,0)="M?<4\ZKP4Y)!N]7<\&_D&[KQWW/YI<[SCB6O:A_/E/86!""#I%K;JX0U694(=$"
^XMB(3.9,22,2,20559,0)="""DATA"",396.18,473,3,1572,0)"
^XMB(3.9,22,2,20560,0)="M,\<T.:1'[O=OUK/K<Y\84YU^(*'=^AR&-JY@2.8=+AAF.[ML^T0_""CN%2T,+"
^XMB(3.9,22,2,20561,0)="""DATA"",396.18,473,3,1573,0)"
^XMB(3.9,22,2,20562,0)="MX09V""CQSN/Z+S7_\Q^8<HW&?N]QA]XWCI3^-^G()SWN;^V^[XREE[3B'D/O$"
^XMB(3.9,22,2,20563,0)="""DATA"",396.18,473,3,1574,0)"
^XMB(3.9,22,2,20564,0)="ME@J[HT$0KV.UZ!)B*6/_+,O%0\JS-?,/\QT8OHETN6;C\RD];/YC?8:YL,]I"
^XMB(3.9,22,2,20565,0)="""DATA"",396.18,473,3,1575,0)"
^XMB(3.9,22,2,20566,0)="M=G<\=]]B(K3M@7D7[+]\9+]Y>PX)D\Y+'=0UW)QK[OFYRJ[E4G-Q;JD1)Q'\"
^XMB(3.9,22,2,20567,0)="""DATA"",396.18,473,3,1576,0)"
^XMB(3.9,22,2,20568,0)="M""IQ@]PV;POLFBS)JTTE18--)PF`OW+]:OD!OJ#%66D>E[E3K).R8%70!;#3["
^XMB(3.9,22,2,20569,0)="""DATA"",396.18,473,3,1577,0)"
^XMB(3.9,22,2,20570,0)="M6AXYRYQP=_C,M[@?W@9`CT<KW9&\A#?;IIU=N]4I]9RS=,NG\NSAX75,GXV#"
^XMB(3.9,22,2,20571,0)="""DATA"",396.18,473,3,1578,0)"
^XMB(3.9,22,2,20572,0)="M[O0;34<U4""8=X6I5VQ5X-NG,NCTI9_!-V:?;_>?L:&B]^UJ?;UWN;[+CV=-Q"
^XMB(3.9,22,2,20573,0)="""DATA"",396.18,473,3,1579,0)"
^XMB(3.9,22,2,20574,0)="M<;<[I-LU?^5RVK->6V]NV#^O-L>UG""7WXX:_0^C3S^YY#+#]YO#^YN.>G_9G"
^XMB(3.9,22,2,20575,0)="""DATA"",396.18,473,3,1580,0)"
^XMB(3.9,22,2,20576,0)="M7EKQ1=<!D6;O.5!'0U?U*$*'>ET>A>$5C'IQK%UN_VM!%C^R:4H4'N$]Z&8?"
^XMB(3.9,22,2,20577,0)="""DATA"",396.18,473,3,1581,0)"
^XMB(3.9,22,2,20578,0)="M2T)U^>=4_?S_J3[\MDV&O_Q:/""+B:XWJBXX9WU,F?!JJ0Y?@`]0R]&F7#""=_"
^XMB(3.9,22,2,20579,0)="""DATA"",396.18,473,3,1582,0)"
^XMB(3.9,22,2,20580,0)="M9Q3OV?INS6IP=\RR1*]O;[>;M7AZFC\A2@\W&_[FM/T'?TO7V:*%?__C<7_X"
^XMB(3.9,22,2,20581,0)="""DATA"",396.18,473,3,1583,0)"
^XMB(3.9,22,2,20582,0)="MR'_A9LV7+^OM8K<_J4?+""\%P.PFGZ_6))^<^\9S:E]?\#@E_P'8\\N_LF`:<"
^XMB(3.9,22,2,20583,0)="""DATA"",396.18,473,3,1584,0)"
^XMB(3.9,22,2,20584,0)="M)--E/&;3^1GEU?KKA&5FBN4M3AF^6>;TQ=WL#VG>1*^CB8TQA(^SA8+)SI?A"
^XMB(3.9,22,2,20585,0)="""DATA"",396.18,473,3,1585,0)"
^XMB(3.9,22,2,20586,0)="M<_6:5*X^'S:W];#WVV9WM?^C,H/][C.WC/['O<O^QY""Z`<IJ)\HA_KS[))EE"
^XMB(3.9,22,2,20587,0)="""DATA"",396.18,473,3,1586,0)"
^XMB(3.9,22,2,20588,0)="MGNJ;""-MT_?OZLQ`]1',4^9@N)K0-(C]MMM+;SY_V3+1,H:7GA?R!6CIC3IB@"
^XMB(3.9,22,2,20589,0)="""DATA"",396.18,473,3,1587,0)"
^XMB(3.9,22,2,20590,0)="M_QF3JDUVFVY,F>9.)'9UK(;*UJ=\3T6%9HXL7#I#08LSI)S;^(IZN)IS&U>K"
^XMB(3.9,22,2,20591,0)="""DATA"",396.18,473,3,1588,0)"
^XMB(3.9,22,2,20592,0)="M'_YX;X@0&\']<GFY/N87^8HAYX7^NYO=%Z8^NQ-?O7S<_Y%NV:SR)>4W_Z3W"
^XMB(3.9,22,2,20593,0)="""DATA"",396.18,473,3,1589,0)"
^XMB(3.9,22,2,20594,0)="MNOFZYM3RXT?YM?CAR`9__AO;/9N'V?AWO+W>[""[9=+;@%P78(K_=R6H&0NF_"
^XMB(3.9,22,2,20595,0)="""DATA"",396.18,473,3,1590,0)"
^XMB(3.9,22,2,20596,0)="M5@S4[""TV!_FN2\-YS;B\,S7SHQC?1O6]'LL`0H+AZX!@O.8'=D_L=I*J$\GQ"
^XMB(3.9,22,2,20597,0)="""DATA"",396.18,473,3,1591,0)"
^XMB(3.9,22,2,20598,0)="M%[^@XA>>^,627[3X:5_/2^*;%<,;""J)Y0Y'?PRW\_U!\0[',GU34:EA\_8S?"
^XMB(3.9,22,2,20599,0)="""DATA"",396.18,473,3,1592,0)"
^XMB(3.9,22,2,20600,0)="M4""SU;RB(KWU#42E>\1ZN\89""N5)O?D/Q[K!GZGBS>']W<\-&M:?R@B(PO460"
^XMB(3.9,22,2,20601,0)="""DATA"",396.18,473,3,1593,0)"
^XMB(3.9,22,2,20602,0)="M8LFZ9528>XXKG>V=+Z6]\[*CI0#"";N/IA!<UWQZXY?MS88<I<F?I55?3J^I."
^XMB(3.9,22,2,20603,0)="""DATA"",396.18,473,3,1594,0)"
^XMB(3.9,22,2,20604,0)="MN=;K,>Z25WOD)O>F=7^\>?&S=<#21<)V<P&7X[TX9!5^LA#)QC!DU;)[R]:@"
^XMB(3.9,22,2,20605,0)="""DATA"",396.18,473,3,1595,0)"
^XMB(3.9,22,2,20606,0)="MCV3T\4TON""+M\!-)+WI*'6U&!6L;?=[]^LN[Y-</;Y+WCW_$R45E""@$NB:J,"
^XMB(3.9,22,2,20607,0)="""DATA"",396.18,473,3,1596,0)"
^XMB(3.9,22,2,20608,0)="ME%*?>C5%1151_1-W)O>[?R!5R(AI944&R6JHE(B%E/R&0H7+;BGE@^V'],_3"
^XMB(3.9,22,2,20609,0)="""DATA"",396.18,473,3,1597,0)"
^XMB(3.9,22,2,20610,0)="M/]21T=L&@*7#_^C\%I*[TD6/47$4\/+%<>VXY/&LGK/C$I@BXO,_!N^E?.$G"
^XMB(3.9,22,2,20611,0)="""DATA"",396.18,473,3,1598,0)"
^XMB(3.9,22,2,20612,0)="MG6J->P'Z:WK))#O/""]#EV4<3+CWBZH4G>7[$:8PHQ;S4;BQQ\;AMD5VJR03W"
^XMB(3.9,22,2,20613,0)="""DATA"",396.18,473,3,1599,0)"
^XMB(3.9,22,2,20614,0)="MP]E\A!G&EN1J<\H4CHN,?]%X<""R_WVQ*K%RQ*4NX>DT<1H[J\7F=U:&ZZE!'"
^XMB(3.9,22,2,20615,0)="""DATA"",396.18,473,3,1600,0)"
^XMB(3.9,22,2,20616,0)="M]D%+8^A7'Z+69]GN$N<6Z1EREX226KE^\YV^4J?0UC&F(QSCQM:X4_:Q;BM$"
^XMB(3.9,22,2,20617,0)="""DATA"",396.18,473,3,1601,0)"
^XMB(3.9,22,2,20618,0)="M/IHM#V8;*3=*C:S:$2BR]:NK\J;=#^/>A[KS(8IGL>(O<O(AJS0WXUK^1?YS"
^XMB(3.9,22,2,20619,0)="""DATA"",396.18,473,3,1602,0)"
^XMB(3.9,22,2,20620,0)="MPID06]OG)T7ID9_.?ORZ^*=7O_[R0OB%QK<6'^].V?'2^LMZL^6[#J5WK764"
^XMB(3.9,22,2,20621,0)="""DATA"",396.18,473,3,1603,0)"
^XMB(3.9,22,2,20622,0)="M+41/VT7?R-HS1/AU^,!IA?]3>L77""<4T\=`Z@;0M#&M'15T=RG,!:0C<(XHG"
^XMB(3.9,22,2,20623,0)="""DATA"",396.18,473,3,1604,0)"
^XMB(3.9,22,2,20624,0)="M7H8\JJ/%^57XS6>T/'0[EX=+G6.8>W_EWH'H&-(\6K(0%80\=\<PU+LV!I?0"
^XMB(3.9,22,2,20625,0)="""DATA"",396.18,473,3,1605,0)"
^XMB(3.9,22,2,20626,0)="M(6T;6B&Q=@E_3O>WV_7Q)@L+,EN.I/.[A*Y><)XTY`:-Y$C5BY`V;_!BL_Z\"
^XMB(3.9,22,2,20627,0)="""DATA"",396.18,473,3,1606,0)"
^XMB(3.9,22,2,20628,0)="MX^$QN<@6I[L;UOQOTC_7EZ=O__%%:YV""T*).U7FU$DJVM5+K4W:CXJJJW#<W"
^XMB(3.9,22,2,20629,0)="""DATA"",396.18,473,3,1607,0)"
^XMB(3.9,22,2,20630,0)="M-W__E?WIK%1D4ZEE8]51N85ME?KP]38]+M:[J\45JUXFK],A79^X,[WX9K.["
^XMB(3.9,22,2,20631,0)="""DATA"",396.18,473,3,1608,0)"
^XMB(3.9,22,2,20632,0)="MW-YE,0Z._'[BH;.FH7[+P)-61Z[77!\ME4T_U1@2WGU9+7DEF3VP""2A[GYH9"
^XMB(3.9,22,2,20633,0)="""DATA"",396.18,473,3,1609,0)"
^XMB(3.9,22,2,20634,0)="M!QL4Q8I?7;U<W-R\7&32+117>TSQ&QNC?CNL;X5YU]BXB.I7^B1J;UUYH[&M"
^XMB(3.9,22,2,20635,0)="""DATA"",396.18,473,3,1610,0)"
^XMB(3.9,22,2,20636,0)="M=1=BNX2&E!HR61OTNQ5>*&_*-GUE""_4NHJ)<%=D^?GAAYX;YRW8/3`ZMU$R5"
^XMB(3.9,22,2,20637,0)="""DATA"",396.18,473,3,1611,0)"
^XMB(3.9,22,2,20638,0)="M5H7OJ*<I5]DMKC*S3^N`_;8^9FGK\N&%1S'^S&,HEX>`RCV0![0.-;N'XDDD"
^XMB(3.9,22,2,20639,0)="""DATA"",396.18,473,3,1612,0)"
^XMB(3.9,22,2,20640,0)="M/X>L_OVWW>^[_1^[+G?%Q@_GZT?MLE8>)L*FLZWLPC97D80Z4?3""WA?E%<AV"
^XMB(3.9,22,2,20641,0)="""DATA"",396.18,473,3,1613,0)"
^XMB(3.9,22,2,20642,0)="MS3MJ4J65ZE,5-O^_:/'2=.<ED<XC;E0E<+NJXOMJ5:+GYQ#3UEYWNGO=#6C?"
^XMB(3.9,22,2,20643,0)="""DATA"",396.18,473,3,1614,0)"
^XMB(3.9,22,2,20644,0)="M;0PNZF7;4&V[UZ+=9G$;VS[#ZA=8UF_9JJJN5E7EL&C-4Q1553V-`0?/3U7]"
^XMB(3.9,22,2,20645,0)="""DATA"",396.18,473,3,1615,0)"
^XMB(3.9,22,2,20646,0)="M]FTNSQ""&CBSEE,(^[1^&SK##%4P0A-+7)>85EIOR_8G<B1J]VJQT[4DN0"".]"
^XMB(3.9,22,2,20647,0)="""DATA"",396.18,473,3,1616,0)"
^XMB(3.9,22,2,20648,0)="M4Z?W2XE'Y'WUAC6ZH?4*],?]\79S8AY._CB5WZ9YGR\(GLA2U+-8MOA-W].Q"
^XMB(3.9,22,2,20649,0)="""DATA"",396.18,473,3,1617,0)"
^XMB(3.9,22,2,20650,0)="M6%^5DLN66-O]Y;K.UV<^*K&H#'-J&]WI!W9+T!_X_7&V.F*BN<YJ]35='Q:;"
^XMB(3.9,22,2,20651,0)="""DATA"",396.18,473,3,1618,0)"
^XMB(3.9,22,2,20652,0)="M3XO,O^-=N[Z]/>S_W/""KZMEZJZ.ZE/HV%?:40P&ON\*_LC5%KF\\>VAVZS#7"
^XMB(3.9,22,2,20653,0)="""DATA"",396.18,473,3,1619,0)"
^XMB(3.9,22,2,20654,0)="MN\XZ!38+T>;E$Q)UKM2JP7_%*I6N+Z\7;$#:G5XN/FVV_/)EMB3(1;G9?>+Q"
^XMB(3.9,22,2,20655,0)="""DATA"",396.18,473,3,1620,0)"
^XMB(3.9,22,2,20656,0)="M/?DOOF15Y3<E_U*XT7]9?!*N][]@*.&'L\W5','[Y_;N>)U1CW<?;S8GOOUZ"
^XMB(3.9,22,2,20657,0)="""DATA"",396.18,473,3,1621,0)"
^XMB(3.9,22,2,20658,0)="MJI*I]%G[41I:K<Z;FN70[HXJ+EMECQV8'*[E`2/?8;#K.B_2GQ)21ZYFTP""J"
^XMB(3.9,22,2,20659,0)="""DATA"",396.18,473,3,1622,0)"
^XMB(3.9,22,2,20660,0)="MM(1MR^S_>_'NP)^1O,]%>=HOUE=7O&^8(W#D7V9YR*6+8Y82+H)&&R/&NO)4"
^XMB(3.9,22,2,20661,0)="""DATA"",396.18,473,3,1623,0)"
^XMB(3.9,22,2,20662,0)="M[4QV2RL8<1B5N<+=GG#0,%VJ)""C7K,2J.[<V2\+,IZ06RQ_B=U6E7*N)/J7["
^XMB(3.9,22,2,20663,0)="""DATA"",396.18,473,3,1624,0)"
^XMB(3.9,22,2,20664,0)="MG,\#=*(.+43=U%&/!$I8X.;1""UWZST_47ON8X!/#F$!=>4!KGG4IPZ[.?6>3"
^XMB(3.9,22,2,20665,0)="""DATA"",396.18,473,3,1625,0)"
^XMB(3.9,22,2,20666,0)="M]PO]@F)4Z&O?-03L#J5*!U[_<:S<29HA8'<6_;F[UH1,66TZ\IHLM1CWW&YC"
^XMB(3.9,22,2,20667,0)="""DATA"",396.18,473,3,1626,0)"
^XMB(3.9,22,2,20668,0)="MK""[.EL88+*N00<_(&,,.#;&;H!7OPD9#<J?""<(MEY&(ZT""RF\P`6Q>)$?HS0"
^XMB(3.9,22,2,20669,0)="""DATA"",396.18,473,3,1627,0)"
^XMB(3.9,22,2,20670,0)="M2.C@8C&M+*;S>_,:+]DSK*:E4Q[2W(9UG?X/%&[3R\VGS27KF.-I_Q1>*N3+"
^XMB(3.9,22,2,20671,0)="""DATA"",396.18,473,3,1628,0)"
^XMB(3.9,22,2,20672,0)="M5_W2BU(YU4,0/BC_O4J48,Z:(-7?:P[(47/M2,LA8G#2!-\]3]($:@J@WXRA"
^XMB(3.9,22,2,20673,0)="""DATA"",396.18,473,3,1629,0)"
^XMB(3.9,22,2,20674,0)="M$VJ""B5HF(BB5_B//4;JX2D_KS5:XA?14@K0W]QV$"":;Q]DY-V.=I,GZY[1%0"
^XMB(3.9,22,2,20675,0)="""DATA"",396.18,473,3,1630,0)"
^XMB(3.9,22,2,20676,0)="M/N0:G^:/TF_WQ^.&2?EE=0J;??=R<[B\N^'A'RZ+L_[-;G/B00ANY`@HZ]WF"
^XMB(3.9,22,2,20677,0)="""DATA"",396.18,473,3,1631,0)"
^XMB(3.9,22,2,20678,0)="M4\I^+E^RYZ%4>*""4[&`WVZ/XM[MR_6XPK7;AA"";A^'Z7HOF6\>O+@W36@O1T"
^XMB(3.9,22,2,20679,0)="""DATA"",396.18,473,3,1632,0)"
^XMB(3.9,22,2,20680,0)="M]KA:<ZN7YY@DV$A[YOKJ8UG'3H+<E6/]?=PP=9'$V%8O:JGV2U7M0\MZY2F#"
^XMB(3.9,22,2,20681,0)="""DATA"",396.18,473,3,1633,0)"
^XMB(3.9,22,2,20682,0)="MRRPF/W17BD:F8<UO9H=>+FWB4.F,\45\=^#=6%_:.""X^\?W*Z\V1/XS.TZ\,"
^XMB(3.9,22,2,20683,0)="""DATA"",396.18,473,3,1634,0)"
^XMB(3.9,22,2,20684,0)="MMQF/6$K6\ZGZC#VT-)IRN#ANKMAH\ND3JP1KQF%_L[AL-N^'KG>_O5NXM&PA"
^XMB(3.9,22,2,20685,0)="""DATA"",396.18,473,3,1635,0)"
^XMB(3.9,22,2,20686,0)="MC=1><OT^+<R_%.\X?7/\=O(&N9')2IMA3APE);)E-AKW^Q<6U3""ICM^5%<>R"
^XMB(3.9,22,2,20687,0)="""DATA"",396.18,473,3,1636,0)"
^XMB(3.9,22,2,20688,0)="M%L2J%J:T)21JC%E*[]KF+'FS.YX.=UD,\:--C:AMC5PU,D1@+9O%FT^+79I>"
^XMB(3.9,22,2,20689,0)="""DATA"",396.18,473,3,1637,0)"
^XMB(3.9,22,2,20690,0)="MI5<O%\<\CE.^=<_?J&QYB87[R@\2V##!,Z5G+M*6+0>^?W*>D1MYMF+7I6GR"
^XMB(3.9,22,2,20691,0)="""DATA"",396.18,473,3,1638,0)"
^XMB(3.9,22,2,20692,0)="M;0UC4<3,NI4<3B9GOG!(KYZB8)?6%J:DM7>II3[3[QE#=33S8RU^Y%.&L1%/"
^XMB(3.9,22,2,20693,0)="""DATA"",396.18,473,3,1639,0)"
^XMB(3.9,22,2,20694,0)="MLIZBL'U;8?O*X.ZZEKFZ\HTBY<R/#QC']9<T=RXT<FYSAHR+/'?93`+O1`,G"
^XMB(3.9,22,2,20695,0)="""DATA"",396.18,473,3,1640,0)"
^XMB(3.9,22,2,20696,0)="M!-I>$7[,%$G'3<(*0)D;%5T5)-P:E<=UZMB@?;)L&T+]NJ0S7I#GJ1U;9W06"
^XMB(3.9,22,2,20697,0)="""DATA"",396.18,473,3,1641,0)"
^XMB(3.9,22,2,20698,0)="M:D8""A/KMC#]>Q%_,_`9M*,9FC[BA&D;6U>Q+.-HN$9(\3QUU\?TI>QXEQE$Z"
^XMB(3.9,22,2,20699,0)="""DATA"",396.18,473,3,1642,0)"
^XMB(3.9,22,2,20700,0)="M[#_SB6CS)=U^7?RQ/QSE""(PW;-KZP@918UC&/_Z>C;0WF^-1<'9TB>>'!8JE"
^XMB(3.9,22,2,20701,0)="""DATA"",396.18,473,3,1643,0)"
^XMB(3.9,22,2,20702,0)="MG9G+!0>H3$FHQNH+-6E/=+*G\P;Q?=^]FFD-V=02V&A<)*>@,^PXL1N+/*(9"
^XMB(3.9,22,2,20703,0)="""DATA"",396.18,473,3,1644,0)"
^XMB(3.9,22,2,20704,0)="MBUR;O/%$C`W_K,>BL+,S+/LB""(?V17UM_9GW1=35%Z%=7RS5=*.ZOO""7N@F!"
^XMB(3.9,22,2,20705,0)="""DATA"",396.18,473,3,1645,0)"
^XMB(3.9,22,2,20706,0)="MHB^Z0RU689+=MIC)RD:;9J8FOM5,31TGFF^F;D:9*UY72Y%-[PZ?FY_]\N'O"
^XMB(3.9,22,2,20707,0)="""DATA"",396.18,473,3,1646,0)"
^XMB(3.9,22,2,20708,0)="MWWT0/_B0_/Q>_/KM/D]7RR6WJ6[MY3]Z6""N?-2;QG^ZVITW51G'F&QWV=SE["
^XMB(3.9,22,2,20709,0)="""DATA"",396.18,473,3,1647,0)"
^XMB(3.9,22,2,20710,0)="MV%\26#@385,_B!J1,+1Q)J@S<X*O7]/C+=\-STX92_=A0-3?-BW\ZWXO!=A="
^XMB(3.9,22,2,20711,0)="""DATA"",396.18,473,3,1648,0)"
^XMB(3.9,22,2,20712,0)="MK3=2_/-W^_UA>&C(['V1(39D\Z1/DT+8=2*;Y9?O""9E@+:*?VLBE/;)H$0PD"
^XMB(3.9,22,2,20713,0)="""DATA"",396.18,473,3,1649,0)"
^XMB(3.9,22,2,20714,0)="M:MSL,+?-*HGV4K?`Y2O7ZOR>F\7CW.#0'0M;7%""1XV9J>R&[6:A[JQ+)[SC#"
^XMB(3.9,22,2,20715,0)="""DATA"",396.18,473,3,1650,0)"
^XMB(3.9,22,2,20716,0)="MQOT)&@R^[$9'7QMS#3?TJICCABL+?6_M/O@H9[K]DA%R)9'ALI7OC):KZ;(5"
^XMB(3.9,22,2,20717,0)="""DATA"",396.18,473,3,1651,0)"
^XMB(3.9,22,2,20718,0)="MF>""R518C4`F5D;]N*_;VI!AJU)&#O[KN<P^5D0M`$RIC:1/RH1EDQ[=_J)3?"
^XMB(3.9,22,2,20719,0)="""DATA"",396.18,473,3,1652,0)"
^XMB(3.9,22,2,20720,0)="MI*HB9;`)?GUWLWXBKY1\0Z01VA:CB)#(+@Q$%04B/R#E<OOA,8=G+!Y/&N+F"
^XMB(3.9,22,2,20721,0)="""DATA"",396.18,473,3,1653,0)"
^XMB(3.9,22,2,20722,0)="M$B*_CFN^<7C:8_O8T+[:Y[^R'BK/B`+EO5=U04[('440V5<-W>2-B^E)PN<>"
^XMB(3.9,22,2,20723,0)="""DATA"",396.18,473,3,1654,0)"
^XMB(3.9,22,2,20724,0)="MTS._2J([%3.,J&Y;.,^E_<O9Y,_U#?L'4X&?]Z>G$KC)T[_0D\,3T(;]>TXS"
^XMB(3.9,22,2,20725,0)="""DATA"",396.18,473,3,1655,0)"
^XMB(3.9,22,2,20726,0)="M.H&_-#ZN_'""=+@[I[6%_=7>YR1.SY1G>%IO=U>;+YNINO7WQ/VCTXK@X9)=E"
^XMB(3.9,22,2,20727,0)="""DATA"",396.18,473,3,1656,0)"
^XMB(3.9,22,2,20728,0)="MV3=O]AF%!WUB$_]F)SZPY)LYS#'(+@:RPF[N;OBYP/YP^IZU?;-[N?C$'\&R"
^XMB(3.9,22,2,20729,0)="""DATA"",396.18,473,3,1657,0)"
^XMB(3.9,22,2,20730,0)="M[^97'%_R6X]W^:7'77IWV(NLF[OCY=V6OYG=7;.Z987>K+\NMAM^4GNS+ZK["
^XMB(3.9,22,2,20731,0)="""DATA"",396.18,473,3,1658,0)"
^XMB(3.9,22,2,20732,0)="M\>OB*KT\I.LCOW_`SW*+JHLLUHQC59,WGY3&W+!?OSNDQ;6R]6;+=Q]NUJ?+"
^XMB(3.9,22,2,20733,0)="""DATA"",396.18,473,3,1659,0)"
^XMB(3.9,22,2,20734,0)="MZ_R!J,A:W*Y/UUDRO)>+VSP8#Q-ANCYEA8ND[Q??_)I^2EF?7S(5_>O=YHI?"
^XMB(3.9,22,2,20735,0)="""DATA"",396.18,473,3,1660,0)"
^XMB(3.9,22,2,20736,0)="MGI8>I&:_DWQ9;^_6Y9VI=^GAAHU!3$?>W-RN-X>;[-GK:O.)=6^27W-[N7`="
^XMB(3.9,22,2,20737,0)="""DATA"",396.18,473,3,1661,0)"
^XMB(3.9,22,2,20738,0)="MA[#B1=::M8A&T;??/Y9XK#W??/HF#R.4/0QWN@""DS@2+'*J94X0')?G<7-75"
^XMB(3.9,22,2,20739,0)="""DATA"",396.18,473,3,1662,0)"
^XMB(3.9,22,2,20740,0)="MDU^44,PHU/1\V10U7=I+B)J/X:GUE+*HHML]E4#SIJ!D2RE5!%V2A_EBA!A?"
^XMB(3.9,22,2,20741,0)="""DATA"",396.18,473,3,1663,0)"
^XMB(3.9,22,2,20742,0)="MC""S;)L3`5=[3ECNLPU^,!.=Y,>*:+A-1MY%\S5?O\A%GS).1'Y[>G3+3FY&H"
^XMB(3.9,22,2,20743,0)="""DATA"",396.18,473,3,1664,0)"
^XMB(3.9,22,2,20744,0)="M>:BIO(J(+""]XO[K*)^CU=E%&2K>Y,F:\0-\X;E6?!2TM;[H5AUMY>(C,0K.8"
^XMB(3.9,22,2,20745,0)="""DATA"",396.18,473,3,1665,0)"
^XMB(3.9,22,2,20746,0)="M&L7E38LZ&E]$-.NH*J)G>W>\,=X^H==*QM<%Q`\ZNMCU+<TXNWASRASZ+)(T"
^XMB(3.9,22,2,20747,0)="""DATA"",396.18,473,3,1666,0)"
^XMB(3.9,22,2,20748,0)="M?QYQL_AFQ?^_NW2"";[.G15>L[IM/FSS,=,I63=\/>3*1;]^*GHW0)N482#D'"
^XMB(3.9,22,2,20749,0)="""DATA"",396.18,473,3,1667,0)"
^XMB(3.9,22,2,20750,0)="MHH':)J_.!6C*""*T>1NBOCC9E+61FJS]JB%O<0%G6'VI$KG_1D137GXK77.68"
^XMB(3.9,22,2,20751,0)="""DATA"",396.18,473,3,1668,0)"
^XMB(3.9,22,2,20752,0)="MRG[JE\O+N]MU,2J\NCRQM<EI(UU?LE/S=D5O474K93>J>]OI5J4<6J7WC?U`"
^XMB(3.9,22,2,20753,0)="""DATA"",396.18,473,3,1669,0)"
^XMB(3.9,22,2,20754,0)="MO&8_D/JZF]`3]9.E'CVQS]XO'3>?=_S1+\_%7%Y-X^LKL3/656?\(,C!<)[<"
^XMB(3.9,22,2,20755,0)="""DATA"",396.18,473,3,1670,0)"
^XMB(3.9,22,2,20756,0)="MVM;0W%1%Y:BCMK3*O6'3TES5Y-;4]^M:ZVDV#;*,K""I:7SG4/MC2OY_D69IY"
^XMB(3.9,22,2,20757,0)="""DATA"",396.18,473,3,1671,0)"
^XMB(3.9,22,2,20758,0)="M'N94-)+-,4L.7RSC-VRMVVR4V$7-+,W'?^SN,L.0UB$CU^W1F1'5R(CTZ,Q?"
^XMB(3.9,22,2,20759,0)="""DATA"",396.18,473,3,1672,0)"
^XMB(3.9,22,2,20760,0)="MTR._?,(<KS_VA]_+""?DX0A_S&T)$O=4K;&DVF^$M-<V@NJX6AU#Q,E<HUKCU"
^XMB(3.9,22,2,20761,0)="""DATA"",396.18,473,3,1673,0)"
^XMB(3.9,22,2,20762,0)="MUM""#'^\,ERE:KTYD5YL6[X5!IY@07D@_T_D#/$E$<G.[W7]-K^H;*&UCL/Z."
^XMB(3.9,22,2,20763,0)="""DATA"",396.18,473,3,1674,0)"
^XMB(3.9,22,2,20764,0)="M08=V+'MIA_#XO$L]EJ%&/4@=;;356I^GWKPZ\KF*R>-B\RG;+#PM+NX:'D)V"
^XMB(3.9,22,2,20765,0)="""DATA"",396.18,473,3,1675,0)"
^XMB(3.9,22,2,20766,0)="M.SW;Y&0_]V%]N.*')<8?>/7QR-\+I9OCC?PCC6MO;1??K%6.6*J<UZ9RHMH4"
^XMB(3.9,22,2,20767,0)="""DATA"",396.18,473,3,1676,0)"
^XMB(3.9,22,2,20768,0)="MBS""=9Z:?)1V]S@4A=,ZD<_Q,\?!U\7;?5**+M%2B>+^[Y-LWZ\;=R4S3LM""5"
^XMB(3.9,22,2,20769,0)="""DATA"",396.18,473,3,1677,0)"
^XMB(3.9,22,2,20770,0)="MMX<-/\5^G5ZOOVSV!_EG^!6ZQ?O])0]_D#VL6$OO1LOBF,IO+ID2?F5-W&[W"
^XMB(3.9,22,2,20771,0)="""DATA"",396.18,473,3,1678,0)"
^XMB(3.9,22,2,20772,0)="M?_"")4//,5*G=3\7VO_'[Z]T=*_F""/Z0[*#]7>.?'Q1\;IEAO-Y^R""9@OCN/U"
^XMB(3.9,22,2,20773,0)="""DATA"",396.18,473,3,1679,0)"
^XMB(3.9,22,2,20774,0)="MX?""5?6&LYJ]\W:S\P/O;-&7+Z?KGY&__F*YY/QB__T\;_LS$^.VW3)>RJQ8G"
^XMB(3.9,22,2,20775,0)="""DATA"",396.18,473,3,1680,0)"
^XMB(3.9,22,2,20776,0)="M?LBUEK_Y6[K^G0\&?'6W8IWU^2XU""85I0[K[?+K^8?&WVUMFO$SW^1L7LQ3K"
^XMB(3.9,22,2,20777,0)="""DATA"",396.18,473,3,1681,0)"
^XMB(3.9,22,2,20778,0)="M7WB[_\/\""W]CC>-!*=D(M,]213#-D7]BE5YF>F#Z/C\<:HK\^(FUY=#,J#[3"
^XMB(3.9,22,2,20779,0)="""DATA"",396.18,473,3,1682,0)"
^XMB(3.9,22,2,20780,0)="M*.9VC6+9`P6G<2N^;<Z,-""X57>H6-*[CZ`>P:/8UHFL8AW07Y5M&H9;+\M)U"
^XMB(3.9,22,2,20781,0)="""DATA"",396.18,473,3,1683,0)"
^XMB(3.9,22,2,20782,0)="M^?;NZ+@RKU__5_W5LE&Q-&Q4T)!T;U6X8[<JO)8ELM-CJ:'=JH@&+)""S2#;R"
^XMB(3.9,22,2,20783,0)="""DATA"",396.18,473,3,1684,0)"
^XMB(3.9,22,2,20784,0)="M=L5MO5UQ=^0#Y]5ZL_UJ6""`_S>T*MV4-'RA+8^IJ>L-U!_3&7[+A[""]%CYA["
^XMB(3.9,22,2,20785,0)="""DATA"",396.18,473,3,1685,0)"
^XMB(3.9,22,2,20786,0)="MP,:9>:(]XQE[1AEV7<TV4D@TW4(C;;>\.F3V<4C%32-]AX@;$#WW&>3'&MFU"
^XMB(3.9,22,2,20787,0)="""DATA"",396.18,473,3,1686,0)"
^XMB(3.9,22,2,20788,0)="M:/W[C7I/E=JT-`@U+8T""[8K=\83ZFQ]R*$\Y&M_5O>:0C]:O]P>K#;9'X6NW"
^XMB(3.9,22,2,20789,0)="""DATA"",396.18,473,3,1687,0)"
^XMB(3.9,22,2,20790,0)="M+?]W#:?FI\WVJO')GDEX?6K\W/N431Q-A^B0A3L_#M@#(#VUS^W6/LWZ;+3Z"
^XMB(3.9,22,2,20791,0)="""DATA"",396.18,473,3,1688,0)"
^XMB(3.9,22,2,20792,0)="M1>=1/X:^O64=9J6`]]W#?1S21B_2[EYTJ3=U+PIOP6;MQ>3/]'""Y.::/K1=I"
^XMB(3.9,22,2,20793,0)="""DATA"",396.18,473,3,1689,0)"
^XMB(3.9,22,2,20794,0)="MSU[T+&S1498:E(RTQ>69;/%V?S@='UL?>OWZ,'L\T'LV']F';+$8G*</?\TV"
^XMB(3.9,22,2,20795,0)="""DATA"",396.18,473,3,1690,0)"
^XMB(3.9,22,2,20796,0)="M!^18>YC29Y[2ESV'D>6@*7WT.$+<\^C@A\/Z2[JUG=2A@E.HH-]/!;.=C?[^"
^XMB(3.9,22,2,20797,0)="""DATA"",396.18,473,3,1691,0)"
^XMB(3.9,22,2,20798,0)="MR/BI+#R/""J[2].H1>I5!SX$DZNY%Y=J`2^G(/O3/TX>OUZ=K#""+G'$3""GNH7"
^XMB(3.9,22,2,20799,0)="""DATA"",396.18,473,3,1692,0)"
^XMB(3.9,22,2,20800,0)="M#MH8&:U_9W*E+K(`95#`,RI@U%,!@V%[(V,UL'J=.;<CM=]LTQ-4\*S;<TY/"
^XMB(3.9,22,2,20801,0)="""DATA"",396.18,473,3,1693,0)"
^XMB(3.9,22,2,20802,0)="M'?2'[>R,'@7I>720M6A_`Q4\JPH2F]/NR'C8K1Z'+5W;V[N>J]^^\.^O^Q_M"
^XMB(3.9,22,2,20803,0)="""DATA"",396.18,473,3,1694,0)"
^XMB(3.9,22,2,20804,0)="M(3CIN4E,+3:)E;[U->?.OJ>[^J?KV<""C<XXC[0;WSZERN]*P+G(LKQ-D>>3T"
^XMB(3.9,22,2,20805,0)="""DATA"",396.18,473,3,1695,0)"
^XMB(3.9,22,2,20806,0)="MH1$;KQZ6OA)AS0_55T1U`I9*9&'D+1$94=CV:HM&YGNF:&2-1UVN$F<MBEKB"
^XMB(3.9,22,2,20807,0)="""DATA"",396.18,473,3,1696,0)"
^XMB(3.9,22,2,20808,0)="MW5G%(AL7W$NC6IY>M9I/K$(E9#?59%'Q/#5X'U,NJ)9P2-H>R""_+,FP(Y$?="
^XMB(3.9,22,2,20809,0)="""DATA"",396.18,473,3,1697,0)"
^XMB(3.9,22,2,20810,0)="ML+-3`FH7R,]W>@3R<P<$\FL)'>8;,GDZI/5-L!<8,A.?(XX<,40""H'[06NFS"
^XMB(3.9,22,2,20811,0)="""DATA"",396.18,473,3,1698,0)"
^XMB(3.9,22,2,20812,0)="MQ3O3!TXT!&D+G=&5-H0O<""<(7^`ZKILM09HQ#`(A*HX4PL!=-I)BNL\]A(&G"
^XMB(3.9,22,2,20813,0)="""DATA"",396.18,473,3,1699,0)"
^XMB(3.9,22,2,20814,0)="M?X_/1>M'^B@&R];`.&%@'Q@G>TS""+]$^L?277'J!/J""!G-(W:(;`=)S.<`95"
^XMB(3.9,22,2,20815,0)="""DATA"",396.18,473,3,1700,0)"
^XMB(3.9,22,2,20816,0)="M4)4\&9KT).VZB'V7)VZ[VAPOF1`_IXMOLLOD/+#;,7MJFWU?""ARS71]/V9O;"
^XMB(3.9,22,2,20817,0)="""DATA"",396.18,473,3,1701,0)"
^XMB(3.9,22,2,20818,0)="MQ:9X`,?^;[U@""[E-^H?T&%>[`K*,EU!+Q^V6#FD&""*U2M+6%L8O7=\?T&]Y,"
^XMB(3.9,22,2,20819,0)="""DATA"",396.18,473,3,1702,0)"
^XMB(3.9,22,2,20820,0)="MUHX-ZVTV_ISRR/_9*[;-+F\K<;^[8?UYO;AE*K""O0@IH6M?:D-""W:(CG-3/%"
^XMB(3.9,22,2,20821,0)="""DATA"",396.18,473,3,1703,0)"
^XMB(3.9,22,2,20822,0)="M>A;Q^#25O[K+[NKK&C!=][@N<?3=0^1)C)1WC>LG_TYWNR[N#E4\H3(70UJ-"
^XMB(3.9,22,2,20823,0)="""DATA"",396.18,473,3,1704,0)"
^XMB(3.9,22,2,20824,0)="M!(/Z@=78M>F'9GVCI6581%;5NHI#:QC8R-1O1(6)+""1:IA^LAX*A58PLQJR&"
^XMB(3.9,22,2,20825,0)="""DATA"",396.18,473,3,1705,0)"
^XMB(3.9,22,2,20826,0)="M#$/:7<&_99=4&]5KB<7+[""HRN""151MTRB/""RRR7Q;5V2:(0;E6U89&XY$R/O"
^XMB(3.9,22,2,20827,0)="""DATA"",396.18,473,3,1706,0)"
^XMB(3.9,22,2,20828,0)="MZ/(#N?*>Y$^YM!D`N1D.BI89IZ5;+J<LQQ8;QN]V:?D>4Y\$W=31OC$/6S,+"
^XMB(3.9,22,2,20829,0)="""DATA"",396.18,473,3,1707,0)"
^XMB(3.9,22,2,20830,0)="M*U%""9H0]L[`>LOI*3V6T8U1;=!16Y=""WBY#BJ8FK;#-NK;-P;]/5V)3JEC23"
^XMB(3.9,22,2,20831,0)="""DATA"",396.18,473,3,1708,0)"
^XMB(3.9,22,2,20832,0)="M;45JGBMBF6ZKR(@Z<=6->?I<QVVF30W5P""^6==?-!*5*CV]"":*<OKD;X2\N$"
^XMB(3.9,22,2,20833,0)="""DATA"",396.18,473,3,1709,0)"
^XMB(3.9,22,2,20834,0)="MUK^FZR-/D_QY\R7=92E?IZJ^ZWAVU2?JYI%UHL0\^?S7Q4V>Z&+QS>WUUR/_"
^XMB(3.9,22,2,20835,0)="""DATA"",396.18,473,3,1710,0)"
^XMB(3.9,22,2,20836,0)="MU[?J6_]!;0B,>?*<[E90VJ\5M\>OE]>;]8D-U:.JWSCBXG.1TY7$0K%H32[A"
^XMB(3.9,22,2,20837,0)="""DATA"",396.18,473,3,1711,0)"
^XMB(3.9,22,2,20838,0)="MI;JEIZ2><9W(\V=-8?'FN/B2\B>ONV*LN+J?]%=.5Y)`U^'+!'VF0&664C-*"
^XMB(3.9,22,2,20839,0)="""DATA"",396.18,473,3,1712,0)"
^XMB(3.9,22,2,20840,0)="MDRBPV.#B\@ZZ<O_:;LW5Z7""X$]""6$Z=AP[ZB_%0S`BT#7>W#KMI/GB8GV6X^"
^XMB(3.9,22,2,20841,0)="""DATA"",396.18,473,3,1713,0)"
^XMB(3.9,22,2,20842,0)="M\\2?/$@3C^O)1KTK82#GZQ1-%IUZ<""F-\UO]3ZE6_.W]9,=Q9\B.D\7-YKM6"
^XMB(3.9,22,2,20843,0)="""DATA"",396.18,473,3,1714,0)"
^XMB(3.9,22,2,20844,0)="MAH.:YCCB.KZ5:C@ZU8BZ5`,'.#WF`-HU!]!NQRC2Y$3T-%VW/-L<4*\@>'[9"
^XMB(3.9,22,2,20845,0)="""DATA"",396.18,473,3,1715,0)"
^XMB(3.9,22,2,20846,0)="MQ6Y_NM]IP;<[^^`=8C[_4)W40/7Q?,]N?EC2%Q:M;C\7""6P$])8'2CA=LTXA"
^XMB(3.9,22,2,20847,0)="""DATA"",396.18,473,3,1716,0)"
^XMB(3.9,22,2,20848,0)="MBZ_UZ43V/<*CE+K9QY(47?[Y4OU\R3\GCOH-]ADG:;[STSY[7LJ*K[[[K=50"
^XMB(3.9,22,2,20849,0)="""DATA"",396.18,473,3,1717,0)"
^XMB(3.9,22,2,20850,0)="M9C@8;*8(=0*;D8SJ)KGE$B/9F.2563<MK;J)>&HF5U\SX>@LQ0_034/S'5?="
^XMB(3.9,22,2,20851,0)="""DATA"",396.18,473,3,1718,0)"
^XMB(3.9,22,2,20852,0)="MY!L<`V7%I.FHP+?LJ!`=U=)17N?Y=-5;@2X'BGS0ZS0W^92]_S))O.B[D;;="
^XMB(3.9,22,2,20853,0)="""DATA"",396.18,473,3,1719,0)"
^XMB(3.9,22,2,20854,0)="M_&>4%R7H[(*HLPM(%`[H@L!!%]0NF:X+:G>,GQ@I[IBV*Y9!5U>43I@X7D5M"
^XMB(3.9,22,2,20855,0)="""DATA"",396.18,473,3,1720,0)"
^XMB(3.9,22,2,20856,0)="M7:%UOU1'W^AZO:AON$@^V!]I6B]D7S2_=K.O:P_J!6U^X#4_6#8_\)L?!,T/"
^XMB(3.9,22,2,20857,0)="""DATA"",396.18,473,3,1721,0)"
^XMB(3.9,22,2,20858,0)="MPN8'4?,#YM`U/R'*)TIEB5);HE27*/4E2H6)4F.B5)DH=7:5.KM*G5VESJY2"
^XMB(3.9,22,2,20859,0)="""DATA"",396.18,473,3,1722,0)"
^XMB(3.9,22,2,20860,0)="M9U>ILZO4V57J[""IU=I4ZNTJ=J5)GJM29JDJAU)DJ=:9*G:E29ZK4F2IUIDJ="
^XMB(3.9,22,2,20861,0)="""DATA"",396.18,473,3,1723,0)"
^XMB(3.9,22,2,20862,0)="M/:7.GE)G3ZFSIVJR4F=/J;.GU-E3ZNPI=?:4.B^5.B^5.B_+.G]K-301NZ')"
^XMB(3.9,22,2,20863,0)="""DATA"",396.18,473,3,1724,0)"
^XMB(3.9,22,2,20864,0)="M;::66%H,30$9,S31KJ%I=;?=\DL,==O9:'[Z3O[H?;K]]%WC(##[F!].""+FJ"
^XMB(3.9,22,2,20865,0)="""DATA"",396.18,473,3,1725,0)"
^XMB(3.9,22,2,20866,0)="MQ;VS3J&Y)J$U[P`H8O,MQ.:Y8\3F=8G-N)36+Z3URVC#(MJTA#8NH-N\%^IH"
^XMB(3.9,22,2,20867,0)="""DATA"",396.18,473,3,1726,0)"
^XMB(3.9,22,2,20868,0)="MD^C)(@YIIX1=5<(4[DN]C:M5=W6/SQ3B1-[A*S;MP^9PX38/[R.U5TI?P[2M"
^XMB(3.9,22,2,20869,0)="""DATA"",396.18,473,3,1727,0)"
^XMB(3.9,22,2,20870,0)="M9]S44[?T]!MZQ3GJ]NNB'!'*C3QE&\]L/^)>G;!3USP(:=5LTNF7ERO8%E_0"
^XMB(3.9,22,2,20871,0)="""DATA"",396.18,473,3,1728,0)"
^XMB(3.9,22,2,20872,0)="M5P=<#\DA17FS'_N87O'$@A_W^]^YT.5/A%NQKI#92[H5FVNN$$;=*6Z)=LNX"
^XMB(3.9,22,2,20873,0)="""DATA"",396.18,473,3,1729,0)"
^XMB(3.9,22,2,20874,0)="M^J%:R*?=A_3/D_C-YCW6\G/S9<SR)V19BU:]%#2/-_G=^G,J9XZ2;MIXBLW("
^XMB(3.9,22,2,20875,0)="""DATA"",396.18,473,3,1730,0)"
^XMB(3.9,22,2,20876,0)="M-T[;9%KE=7+4)$]5<8WM&65S)O`TKR#J?6J+;$^F?$]>':+5(N/38O%JN_G,"
^XMB(3.9,22,2,20877,0)="""DATA"",396.18,473,3,1731,0)"
^XMB(3.9,22,2,20878,0)="M);#>QML-T\OJ<T,N*/72,W\L^(1RWFLO<A'E#I?0V<OF0[3OB""[DINZ-H?AD"
^XMB(3.9,22,2,20879,0)="""DATA"",396.18,473,3,1732,0)"
^XMB(3.9,22,2,20880,0)="M[=&&Q-3+4?^RP.%_J/(22G1W//'#<GM3_*P^0""/BQ]J'F\V(4$QWCXM?LVO,"
^XMB(3.9,22,2,20881,0)="""DATA"",396.18,473,3,1733,0)"
^XMB(3.9,22,2,20882,0)="MTH,[6^%WB;_US:9E%[1T0GLWF#K""ZJU7XW&FZ9UF91']3,+W;4U""2!3V5&R"""
^XMB(3.9,22,2,20883,0)="""DATA"",396.18,473,3,1734,0)"
^XMB(3.9,22,2,20884,0)="MM-H$]?N:@QC'H=L<J&<PAXO]Y5WVW.*=FLKE*5H$&6<1^@$M[#V6!9-TWNN["
^XMB(3.9,22,2,20885,0)="""DATA"",396.18,473,3,1735,0)"
^XMB(3.9,22,2,20886,0)="MS?9*_]ASWMXCCW,\T_9>U+OS'#I)[^4S4-5]<K;1IVI_[KPSDM=K0G))8#TC"
^XMB(3.9,22,2,20887,0)="""DATA"",396.18,473,3,1736,0)"
^XMB(3.9,22,2,20888,0)="MA<O[""NPPUXSDMIJ%UVH6;JAST'R=7?B!UBS<P&@6W^UOT]T3MX/EI"".9O$/5"
^XMB(3.9,22,2,20889,0)="""DATA"",396.18,473,3,1737,0)"
^XMB(3.9,22,2,20890,0)="M%J!=&Q:EVE8DVH%MZ>D'-FD8K%_M.R&5Q-461:/USIHYD(9NV9Z][CNL[V[6"
^XMB(3.9,22,2,20891,0)="""DATA"",396.18,473,3,1738,0)"
^XMB(3.9,22,2,20892,0)="M9?[F(W]3^H]27307UQZ5?K5&$-'$$%&BB`P;JFTUCP[5/!)I-2\(>VJ><U^:"
^XMB(3.9,22,2,20893,0)="""DATA"",396.18,473,3,1739,0)"
^XMB(3.9,22,2,20894,0)="M=[UGVG9:;S?_45Q[/BR.=X?/Z>$K%'""H`CK]%=`=K(!4KX&.00.7)@TD]Z6!"
^XMB(3.9,22,2,20895,0)="""DATA"",396.18,473,3,1740,0)"
^XMB(3.9,22,2,20896,0)="MNW1_NUT?;Z!O0_7-LU\TT-[>$?7Z.$?+9^T<S;%(=WOW6.2CQVQ[C,Z[K*-M"
^XMB(3.9,22,2,20897,0)="""DATA"",396.18,473,3,1741,0)"
^XMB(3.9,22,2,20898,0)="MRSHI=F3+YKOX8\*!""VU/A:%[R>AK<BYKD^O5"";BT6P92AE!#@NKFJ6X6B&.]"
^XMB(3.9,22,2,20899,0)="""DATA"",396.18,473,3,1742,0)"
^XMB(3.9,22,2,20900,0)="MR^)O;':YL\&?F6YXULHOZ>&4?CSP]$^;X^7B^'5W==BS_O_FS3]=O/]6GAD,"
^XMB(3.9,22,2,20901,0)="""DATA"",396.18,473,3,1743,0)"
^XMB(3.9,22,2,20902,0)="M2:""Z+2G;]36:DG9NU3:>!'UW[K/]$IY9\NOQU-RJG&V7J+&V""JQ\7*I*P5VZ"
^XMB(3.9,22,2,20903,0)="""DATA"",396.18,473,3,1744,0)"
^XMB(3.9,22,2,20904,0)="M.C%$M(^+2\*E>U8'(XO+L[A=;W;P*X;Z%;Z];7GMVR[R,JG4*^UF<C#!MHON"
^XMB(3.9,22,2,20905,0)="""DATA"",396.18,473,3,1745,0)"
^XMB(3.9,22,2,20906,0)="MO=(,-D6]@2;EN[U\=JU)N=3Q_;.:5)'VULJ>)E!3O5]EVS=!-+!OB#-1YRS/"
^XMB(3.9,22,2,20907,0)="""DATA"",396.18,473,3,1746,0)"
^XMB(3.9,22,2,20908,0)="MVCEU-N&;/?_L'GIIP+X+H?[0;O+()-TD)70ZP[3$?O\3SR-]#_U#A_1/.+1_"
^XMB(3.9,22,2,20909,0)="""DATA"",396.18,473,3,1747,0)"
^XMB(3.9,22,2,20910,0)="MPFG,2$HO/W__E&F^[Z%[O""'=,W24<PTGN;V[QS^S5V>[431MWRP']$WDV/2-"
^XMB(3.9,22,2,20911,0)="""DATA"",396.18,473,3,1748,0)"
^XMB(3.9,22,2,20912,0)="MKUET^8ZN;\*HUYZRZYQC1P_>M+4W'?78I0M[>]/4]\_@39-9EZB>,W0T""Z->"
^XMB(3.9,22,2,20913,0)="""DATA"",396.18,473,3,1749,0)"
^XMB(3.9,22,2,20914,0)="M-QN,/MMYG8$Z""_:G+=.B[^YNLTSQV?'?XG*_N]K<DR<7]MB>7/9757GW:""Y5"
^XMB(3.9,22,2,20915,0)="""DATA"",396.18,473,3,1750,0)"
^XMB(3.9,22,2,20916,0)="M)?-N[05M6WM>X%EM[8DW#SJW]KRVK3TO:-O:([IUCG:76']D+N^$2<N.+YO+"
^XMB(3.9,22,2,20917,0)="""DATA"",396.18,473,3,1751,0)"
^XMB(3.9,22,2,20918,0)="M]/CWKS97HH*9M2:O;-BWLJ85L]^ONF\W-YM3MO>899S_8[W]O9$39]#^8M84"
^XMB(3.9,22,2,20919,0)="""DATA"",396.18,473,3,1752,0)"
^XMB(3.9,22,2,20920,0)="MXO5LE.OH?3!YDNMN5!XW\;CYO-M\VERNV6A6Q$[^P:I'RJ=QH28*35>W!-I)"
^XMB(3.9,22,2,20921,0)="""DATA"",396.18,473,3,1753,0)"
^XMB(3.9,22,2,20922,0)="MQW7UXV[C8V%O4#[^-D2A:3MLZ1K_?MZ?%NN;CW?;M?!2HOKNW[*'9?SZ!=<("
^XMB(3.9,22,2,20923,0)="""DATA"",396.18,473,3,1754,0)"
^XMB(3.9,22,2,20924,0)="MMH(NG[]]2O]8?%T?KI3!\Y7X\^3OO<7-9INV_E`-+7\\""U/TOQ:D^W?)=S3["
^XMB(3.9,22,2,20925,0)="""DATA"",396.18,473,3,1755,0)"
^XMB(3.9,22,2,20926,0)="M(<T8OMA6*EW^.!.!.+*;>[Z*Z49T`=ZZM)?VZ7I""`T/?>_(""KSW&6X=V=&O!"
^XMB(3.9,22,2,20927,0)="""DATA"",396.18,473,3,1756,0)"
^XMB(3.9,22,2,20928,0)="M3A%TO#\<6$F;+RF?[U41_W(X7>]/F\O%F]TQ/9R:WR;,$E6HFWVJL%X?UI>I"
^XMB(3.9,22,2,20929,0)="""DATA"",396.18,473,3,1757,0)"
^XMB(3.9,22,2,20930,0)="MAG""X.UU>:QC9YRKF-];)Z4'Y]#I-MY?7Z\U!GM?-<>5J]]440Z[T@DS?,QU>"
^XMB(3.9,22,2,20931,0)="""DATA"",396.18,473,3,1758,0)"
^XMB(3.9,22,2,20932,0)="M=,29RU1+&VNN76'Y([PE41)FM>NIZ_925'^I=PZ)N[SWLU!]JJS6%4YKNJQ&"
^XMB(3.9,22,2,20933,0)="""DATA"",396.18,473,3,1759,0)"
^XMB(3.9,22,2,20934,0)="MPJRNQ4QGTBR+[<!FYB?YX>6@YV_ORFB,R9_KFSZ/X,B(1W"".\@3.&?$`#N_;"
^XMB(3.9,22,2,20935,0)="""DATA"",396.18,473,3,1760,0)"
^XMB(3.9,22,2,20936,0)="M1KQO""]L\<=_&#P^(W@]WGLL#M\QM72Y;/5CM)KS6@Z5$?S:\-)R0-X:D-\?%"
^XMB(3.9,22,2,20937,0)="""DATA"",396.18,473,3,1761,0)"
^XMB(3.9,22,2,20938,0)="MYK3XRL:ZQ9XMA3//YGK-_+<MFXGO/E]G=V1__>4GGM;CD%[=7:97+_/K!8?T"
^XMB(3.9,22,2,20939,0)="""DATA"",396.18,473,3,1762,0)"
^XMB(3.9,22,2,20940,0)="M]L""FRSH92$'D""1P7?]GM#S?K[5^R6P=Y6A""VPOZRN>(!_3^F5=QQ-OR\7'S<"
^XMB(3.9,22,2,20941,0)="""DATA"",396.18,473,3,1763,0)"
^XMB(3.9,22,2,20942,0)="M7WU=7*\_;DYWQY<+E;A+[YCY[3\SO^!J<^0'+R_YU<E]YHI_6E\R+_.XN-L="
^XMB(3.9,22,2,20943,0)="""DATA"",396.18,473,3,1764,0)"
^XMB(3.9,22,2,20944,0)="M4N9PIE?EQ5[VHPRYW9R^JL2L6G]<;R[S]N7Y2XZL8GQ8N$T/[-LW8BC+,4N5"
^XMB(3.9,22,2,20945,0)="""DATA"",396.18,473,3,1765,0)"
^XMB(3.9,22,2,20946,0)="MY7+9\R*(2[5K=G=)^ZU5DC]OM^L-6WE=?ZVZ\<AZ=7O%6LKW/(X;IJE,8F5O"
^XMB(3.9,22,2,20947,0)="""DATA"",396.18,473,3,1766,0)"
^XMB(3.9,22,2,20948,0)="M?2][AZ:4E9UW/UJO4;G$^IV:J]\@]QS3S9?=\9:[EWOC1H4[PZ4QTG[/S]>M"
^XMB(3.9,22,2,20949,0)="""DATA"",396.18,473,3,1767,0)"
^XMB(3.9,22,2,20950,0)="MY<@D[>7W+I@]_71WO&RN5V:^*$>\OEU,'&^2-K_:_?YUNS]NC,WUYK@7Z/7O"
^XMB(3.9,22,2,20951,0)="""DATA"",396.18,473,3,1768,0)"
^XMB(3.9,22,2,20952,0)="MXHG:FS_79T/E3_LVQ9[VJ4B5ED3_5*K>'J:ZFUS:-4""5I*2Y/QR:GK[]Q&^G"
^XMB(3.9,22,2,20953,0)="""DATA"",396.18,473,3,1769,0)"
^XMB(3.9,22,2,20954,0)="M_?_NTF.VA?3$[T9*6[?J)!)H=QP-+Q!KCR&2/ZZ4T`OE;QCFDL86\.W^P,,\"
^XMB(3.9,22,2,20955,0)="""DATA"",396.18,473,3,1770,0)"
^XMB(3.9,22,2,20956,0)="M']D:E]\NO!*VP2[3'QI+9./LT:__NGNPHP^M>[&U'[MZ4C(E_2YLV-Z#2ZKM"
^XMB(3.9,22,2,20957,0)="""DATA"",396.18,473,3,1771,0)"
^XMB(3.9,22,2,20958,0)="M0FKJP67_'GS/IGL^DMRRX3/;@WG+7*G/=^F+_T&C%\>L-^T[L:W%\K'2LOVI"
^XMB(3.9,22,2,20959,0)="""DATA"",396.18,473,3,1772,0)"
^XMB(3.9,22,2,20960,0)="MF>[EI:C#!@'((X_QP$DZI26DT;[V0Z?.8R?SP5/S0JXJZ:H7_K%1)\.ATZ,T"
^XMB(3.9,22,2,20961,0)="""DATA"",396.18,473,3,1773,0)"
^XMB(3.9,22,2,20962,0)="MFHX]0NU9F>:TK,OZS'MC/;34':.E9*E74^J[_=74O1<U57KAM_5Q<>*S+UL3"
^XMB(3.9,22,2,20963,0)="""DATA"",396.18,473,3,1774,0)"
^XMB(3.9,22,2,20964,0)="M\?72;K_[;G_XO-[Q%!OE-A!79;9H.]ZQI13[^=_65U?I=EOH^>5>67KQY1Q;"
^XMB(3.9,22,2,20965,0)="""DATA"",396.18,473,3,1775,0)"
^XMB(3.9,22,2,20966,0)="M19Z:JROH_5B]]VSU/LO*[6HV=KO<""=^DY)YI+';EA8ZLY>[C\!A,^\`=*M""Q"
^XMB(3.9,22,2,20967,0)="""DATA"",396.18,473,3,1776,0)"
^XMB(3.9,22,2,20968,0)="M%ZSL!G?WM<6.L'E)T&,@I"",&PN9P5R>H]0=,U_Y]3=?U$YE/A_7EZ>Z0+M9,"
^XMB(3.9,22,2,20969,0)="""DATA"",396.18,473,3,1777,0)"
^XMB(3.9,22,2,20970,0)="MD]:;FSR!XC$]\*/X[R[WNUW*!S/3#1(,:V.'-==6BXNW$?I(+4*F).W8%@1Z"
^XMB(3.9,22,2,20971,0)="""DATA"",396.18,473,3,1778,0)"
^XMB(3.9,22,2,20972,0)="MO?6I:61;MBR4U+LRYG=PUJOU#ALN@_""ZAIL%72L--^R[TG!-8WL8>+3/V-YR"
^XMB(3.9,22,2,20973,0)="""DATA"",396.18,473,3,1779,0)"
^XMB(3.9,22,2,20974,0)="MR&S>R++1QE\Y4]5'+@CUT]=[UEY9426!6^R6!.V[)9J]$B&+I#1<NHY^J]?Q"
^XMB(3.9,22,2,20975,0)="""DATA"",396.18,473,3,1780,0)"
^XMB(3.9,22,2,20976,0)="MC%N?TLN^""[YW\KYXV?>B^^:9;LD:1:TK5KTC;'(1',>@14%H[9#^_,N'Y(?%"
^XMB(3.9,22,2,20977,0)="""DATA"",396.18,473,3,1781,0)"
^XMB(3.9,22,2,20978,0)="MFR+/N/BVD7W9];SQY>)2YXSN,V^4C>Z51RMP7S+BY?;NBGO`PB&$^!,Z9E:7"
^XMB(3.9,22,2,20979,0)="""DATA"",396.18,473,3,1782,0)"
^XMB(3.9,22,2,20980,0)="M=,T\XF.^0<O6?EGXM&\NLWF#?<)W3T[7>S:Y\.GAX_KP[6+]Z5,^E7S4,;_F"
^XMB(3.9,22,2,20981,0)="""DATA"",396.18,473,3,1783,0)"
^XMB(3.9,22,2,20982,0)="MK2G./[[/I<!O,[*1-#M;N2QO6GU:?-S_D6[Y-/5QR]UQ)I>;6QUSO3EDU;JZ"
^XMB(3.9,22,2,20983,0)="""DATA"",396.18,473,3,1784,0)"
^XMB(3.9,22,2,20984,0)="MRVZ_Y%<A60G9#/N2M6*[W?^1G1RL;V\/^]O#AJ?FK5NO=>YY]KW3GC7K^X:)"
^XMB(3.9,22,2,20985,0)="""DATA"",396.18,473,3,1785,0)"
^XMB(3.9,22,2,20986,0)="M&<]/K.VL""*3F]MZ+G>AXX>=*!>3S[_8!?JH=]]X;[M.<,219=Z?,Z>1G^O?R"
^XMB(3.9,22,2,20987,0)="""DATA"",396.18,473,3,1786,0)"
^XMB(3.9,22,2,20988,0)="MFC:[]MIY57FIN_3GZ!\54XL@;((CNG3.>;N?CK]KW/SD^U??+[XI3G'SL[YO"
^XMB(3.9,22,2,20989,0)="""DATA"",396.18,473,3,1787,0)"
^XMB(3.9,22,2,20990,0)="MC?>1?=O+0=1KN1RD.]9<DCX'V'*L%;$WB-TQ):X-=5X;""LYU;>A#>CP=^UP7"
^XMB(3.9,22,2,20991,0)="""DATA"",396.18,473,3,1788,0)"
^XMB(3.9,22,2,20992,0)="M<G%=Z#%?%\IO/F3QFQL>9'ER&+C-RT)$7%-5D0^T<1:%$4.]FWVZN_I:'E/]"
^XMB(3.9,22,2,20993,0)="""DATA"",396.18,473,3,1789,0)"
^XMB(3.9,22,2,20994,0)="M\.()W""HRO8XHA.SU$[)&QI&]C-\<F7=WFSX_*2_-4E:$['I4E7+HVTN9#2F["
^XMB(3.9,22,2,20995,0)="""DATA"",396.18,473,3,1790,0)"
^XMB(3.9,22,2,20996,0)="MS,O<KC\^)R'[/82L'2ZDW8HN*2?\FO9A?[59?][MC_S:^;/3ZJ""7P#7R=DB/"
^XMB(3.9,22,2,20997,0)="""DATA"",396.18,473,3,1791,0)"
^XMB(3.9,22,2,20998,0)="ML>-F_9E/I,]'REE6&_6HI65X%M=AM8>L$[+X#+/TCOW0I2_N*P2QWO,U2K/5"
^XMB(3.9,22,2,20999,0)="""DATA"",396.18,473,3,1792,0)"
^XMB(3.9,22,2,21000,0)="MZY5\WC:/M]/?U2W+6[N+]N@N-QC96RYZR]1;Q*JW/&-OJ9VU'-E;)$)OF7K+"
^XMB(3.9,22,2,21001,0)="""DATA"",396.18,473,3,1793,0)"
^XMB(3.9,22,2,21002,0)="ML^JMI7UOC1\)'?26J;=<J][R>]C6V(&0H+-,G>5T=59CNS1L""R-4]J`8H;0<"
^XMB(3.9,22,2,21003,0)="""DATA"",396.18,473,3,1794,0)"
^XMB(3.9,22,2,21004,0)="M'CW-H_E0UX=B],5Z8\ZGXFS6MDG:ND6JWR""5P@;EH1RJJZC\'<EVF]U5.A8G"
^XMB(3.9,22,2,21005,0)="""DATA"",396.18,473,3,1795,0)"
^XMB(3.9,22,2,21006,0)="M-OR8?E>_[3AD=U?%HWGML?P#]S];]X*5G>#&L;OEHZ7EC)N`%_E"":]-K(Y`^"
^XMB(3.9,22,2,21007,0)="""DATA"",396.18,473,3,1796,0)"
^XMB(3.9,22,2,21008,0)="MF(U`),Z;;:<PR_JI7X>Z@9*1A6H&*O&Y6^?NROZ&GWN>8>GIWM_2L[J4T/9@"
^XMB(3.9,22,2,21009,0)="""DATA"",396.18,473,3,1797,0)"
^XMB(3.9,22,2,21010,0)="M4XP84V3W<'214W3""%1\7/(T'F^VY;MJ3KVE""BT7ZLT?]S0YJ""FC<'#2?Z@.8"
^XMB(3.9,22,2,21011,0)="""DATA"",396.18,473,3,1798,0)"
^XMB(3.9,22,2,21012,0)="MF;,0+ON9`:&A:@=^I'.&7#&,C_C:(D_5Q;V3J[(/G\1FEU6<)+YN\,WGP[K,"
^XMB(3.9,22,2,21013,0)="""DATA"",396.18,473,3,1799,0)"
^XMB(3.9,22,2,21014,0)="M4$M])'W]Z;`K1P""OO5`2.0@=T><,V.EE3UE4$-.Z4#-7>YJ%H4=UF_322D/H"
^XMB(3.9,22,2,21015,0)="""DATA"",396.18,473,3,1800,0)"
^XMB(3.9,22,2,21016,0)="M3JP,AV]HRJO`J'M=J!D)-9O^H:[_Q`=95207XD;+\RP*U\?%>O%3>I4=F_U2"
^XMB(3.9,22,2,21017,0)="""DATA"",396.18,473,3,1801,0)"
^XMB(3.9,22,2,21018,0)="MA#+X-?UW_GY4?FRB7?J-6EOU6:Q7?AG/;TSZS4K4?3C.V;D3$;:GQJVD>0\>"
^XMB(3.9,22,2,21019,0)="""DATA"",396.18,473,3,1802,0)"
^XMB(3.9,22,2,21020,0)="M6G)SN]U_Y2N*%S/[-N)2//OW_Q]02P,$%``""``@`0HBX---MB99:)0``4RL!"
^XMB(3.9,22,2,21021,0)="""DATA"",396.18,473,3,1803,0)"
^XMB(3.9,22,2,21022,0)="M`!$```!3<&EN95\Q,3$N<&YL+F-D9>0]:Y/B.)*?=R+F/RB(N(C9V9TJ_,+X"
^XMB(3.9,22,2,21023,0)="""DATA"",396.18,473,3,1804,0)"
^XMB(3.9,22,2,21024,0)="M8GLO*'!5<\&C%JB>Z4\=+C!=W@',V::GZW[]238VMI1ZN>C9F[O^U(53F:E\"
^XMB(3.9,22,2,21025,0)="""DATA"",396.18,473,3,1805,0)"
^XMB(3.9,22,2,21026,0)="M2<K4X_86/<Z&2[1<)]$Q^_Z[[[\;;]%]E*39XG1X9WS_'1J%V^@0SD[[,(G6"
^XMB(3.9,22,2,21027,0)="""DATA"",396.18,473,3,1806,0)"
^XMB(3.9,22,2,21028,0)="M:/DXGOF?IN%F_OAI?%CO3IMP@X$06H89^!&]0]T*RS)+HL/G!MPB_*]3F&8<"
^XMB(3.9,22,2,21029,0)="""DATA"",396.18,473,3,1807,0)"
^XMB(3.9,22,2,21030,0)="M+-57C*;X??CX\W01;*+X(8E/1^]F&>[""-0889^&^HI/6Z8R^4JA'7S&V3J>"""
^XMB(3.9,22,2,21031,0)="""DATA"",396.18,473,3,1808,0)"
^XMB(3.9,22,2,21032,0)="M/I1].^(_/MWOPJ])G%%MSK\V>E-2R9L]'<+]<1>_UCM""?6A2;;3VX;:^O.4B"
^XMB(3.9,22,2,21033,0)="""DATA"",396.18,473,3,1809,0)"
^XMB(3.9,22,2,21034,0)="MS**$:7C^M6QWZ<=C<`AW9M<TS=[-'4&3Q=LD/I"".W0>[-&2!K0;<NQSJ]G8P"
^XMB(3.9,22,2,21035,0)="""DATA"",396.18,473,3,1810,0)"
^XMB(3.9,22,2,21036,0)="MFK""@A@W""^E^#/68J2=$LS@`*M@<V6R7!:1^PX""X(_9C$S[MPC_L?KJ,MUN:*"
^XMB(3.9,22,2,21037,0)="""DATA"",396.18,473,3,1811,0)"
^XMB(3.9,22,2,21038,0)="MB#V`Z/5`!._C]!AEP0[%""5J>DL]A\@KTT`';SL(8TTKW;`.G2_X98*M%N(Z3"
^XMB(3.9,22,2,21039,0)="""DATA"",396.18,473,3,1812,0)"
^XMB(3.9,22,2,21040,0)="M38H6X9<H_`T@U@>:`6!Z\L""=V^\#J',FATO""'8JW:/FZ/V;Q/F5;]F$67E[3"
^XMB(3.9,22,2,21041,0)="""DATA"",396.18,473,3,1813,0)"
^XMB(3.9,22,2,21042,0)="M:(TE2@P`!X04LY)%\8%M[RFTGY[2]2X$B!M=V$(/O[[NXC2""6L`]78:'-`8%"
^XMB(3.9,22,2,21043,0)="""DATA"",396.18,473,3,1814,0)"
^XMB(3.9,22,2,21044,0)="MT^=(9HNC`L22""7>(VP4;-JO52YP$ZWAWVC\'""5K,IT!+F+4\""J#'(`*$;<`&"
^XMB(3.9,22,2,21045,0)="""DATA"",396.18,473,3,1815,0)"
^XMB(3.9,22,2,21046,0)="M,_XP6D+V""P)_""9,L?$ZP;NXQA]DI`>S2,3B^<DKB7*4`:U""P0;>W:/5RDDG"""
^XMB(3.9,22,2,21047,0)="""DATA"",396.18,473,3,1816,0)"
^XMB(3.9,22,2,21048,0)="M<&^>P;;#,/F2FU'>#&C(C83`8'*_""ZB^YK_DPQ,)O-7P])D,3X;=K0:HJ!B@"
^XMB(3.9,22,2,21049,0)="""DATA"",396.18,473,3,1817,0)"
^XMB(3.9,22,2,21050,0)="M+@WO3ED6'TSGYD.41MA7""8ZC""@Z8LVF8IL'G\%,QQC*C:?TC/)SD@)?@4&]^"
^XMB(3.9,22,2,21051,0)="""DATA"",396.18,473,3,1818,0)"
^XMB(3.9,22,2,21052,0)="M_O7<#FYY#CA_/?^)!XCROV5DC?X[(.[_*4X^G0-L""3&=-]5RCEV$'&I\P5B!"
^XMB(3.9,22,2,21053,0)="""DATA"",396.18,473,3,1819,0)"
^XMB(3.9,22,2,21054,0)="M7_D$`.#IO/H1Z$4QZ)1\^5^B37A8A^7?99PO_RZMB'*S`@E`N\0'?""I1`Y\N"
^XMB(3.9,22,2,21055,0)="""DATA"",396.18,473,3,1820,0)"
^XMB(3.9,22,2,21056,0)="M5$2<$_\M^:K<\U/IGOPOGZ#Q@""`#.&%;*P$U[(?#_F0^+<%HN^'^/L3QO>F,"
^XMB(3.9,22,2,21057,0)="""DATA"",396.18,473,3,1821,0)"
^XMB(3.9,22,2,21058,0)="M-2P"".U$!R7&+&""XA.5;^UZ;GE7_.L8?30V`U\Y!:-F3.!7[@RYE4^87CM=BJ"
^XMB(3.9,22,2,21059,0)="""DATA"",396.18,473,3,1822,0)"
^XMB(3.9,22,2,21060,0)="M2%RA'+[\61`I""$AZ>MZ#;8L/O'A13%$7^X)U>NI:_GYIS?B__R78=22""@I8+"
^XMB(3.9,22,2,21061,0)="""DATA"",396.18,473,3,1823,0)"
^XMB(3.9,22,2,21062,0)="MUDW:C,9,.+;*:/Q.J3W@\U`[@QX%V&%`2-?@TZW%#:BE*:5L""RF;?,J-L`1R"
^XMB(3.9,22,2,21063,0)="""DATA"",396.18,473,3,1824,0)"
^XMB(3.9,22,2,21064,0)="M[5IRZF+R!`67@7.0`MMY72EIJR\FC5%P28.!$,+B*(C`$_+AT!+P#YOQEOC%"
^XMB(3.9,22,2,21065,0)="""DATA"",396.18,473,3,1825,0)"
^XMB(3.9,22,2,21066,0)="M[>U/U3^\B/A\PC,1-(PW(;K\7L#]2/U#S:4'HK_G7C?>@O.18D73M""OBDY>E"
^XMB(3.9,22,2,21067,0)="""DATA"",396.18,473,3,1826,0)"
^XMB(3.9,22,2,21068,0)="M^O,K^C!8S-'S*4,'O&8.O@31+L#]Z]#+6]S8*;""MPJ]YN!C^M(WP5""@I^/HM"
^XMB(3.9,22,2,21069,0)="""DATA"",396.18,473,3,1827,0)"
^XMB(3.9,22,2,21070,0)="M2/%_I7AO""&(LEFBKR?;?_GXMOI4YL*XJ.*MB8(H1YI/<7+/?3(#6=05H00+,"
^XMB(3.9,22,2,21071,0)="""DATA"",396.18,473,3,1828,0)"
^XMB(3.9,22,2,21072,0)="M<U`%8.$A)>GA+EK_&F[>K9)3->SG8/RE]AGT'R<R3)WQ@]AM/G9Z1-(VL;S["
^XMB(3.9,22,2,21073,0)="""DATA"",396.18,473,3,1829,0)"
^XMB(3.9,22,2,21074,0)="MW]Z=ZGS2O_P%NQ:Z)ZZU/Z49>BY=C.`/MS&.7\60G9$!.GLAGX]QDG5PP^%+"
^XMB(3.9,22,2,21075,0)="""DATA"",396.18,473,3,1830,0)"
^XMB(3.9,22,2,21076,0)="MD/Q@6'\FU$H;:6LK<DE8OX,DFKZ2_HXB8?7\^RNQ99CZ%\J8X?A""J3*J<A[,"
^XMB(3.9,22,2,21077,0)="""DATA"",396.18,473,3,1831,0)"
^XMB(3.9,22,2,21078,0)="M3B[+UBKAHESY-^(%,(*""R4+""'CAII-T`G+*>^R=%\*[S,4P[S8D$E-8\A[&Z"
^XMB(3.9,22,2,21079,0)="""DATA"",396.18,473,3,1832,0)"
^XMB(3.9,22,2,21080,0)="M[*2X__9W1>1%<@6:S?2,,I!BNZ!XT)UL<U,GJK/])3UQ.@\O]TV6NRS+O.59"
^XMB(3.9,22,2,21081,0)="""DATA"",396.18,473,3,1833,0)"
^XMB(3.9,22,2,21082,0)="M79)D%#,:`QBGU<?X5-A_>,C"")+?SE_)S<-B@7;S.^X'-OK1Z!*EN&NYCP[J9"
^XMB(3.9,22,2,21083,0)="""DATA"",396.18,473,3,1834,0)"
^XMB(3.9,22,2,21084,0)="MD*64F""3UPU\8'C9!%BJ1ZU^%7.':08IUA3TF>SV&)*&<%IXCXZ/""RSI[XWLM"
^XMB(3.9,22,2,21085,0)="""DATA"",396.18,473,3,1835,0)"
^XMB(3.9,22,2,21086,0)="M&K-M^?S7LP'OY_C;:C!!@]D(3>;#P6H\G_T[(O&(T?DE1)$.CP8KOP[8T%43"
^XMB(3.9,22,2,21087,0)="""DATA"",396.18,473,3,1836,0)"
^XMB(3.9,22,2,21088,0)="M=.$/EO,9FB_0ZN.CC^;8&I\6#_[B(].^#[;_4?ROTP2OCU7UM,$^MBZFQ)&("
^XMB(3.9,22,2,21089,0)="""DATA"",396.18,473,3,1837,0)"
^XMB(3.9,22,2,21090,0)="MIH,WYF^2)FBX""X-DC]EH""(S[I=_DA?4]*F33+)@L""SQL3X=?#_%OAPXT;ZRC"
^XMB(3.9,22,2,21091,0)="""DATA"",396.18,473,3,1838,0)"
^XMB(3.9,22,2,21092,0)="MM%B4W$XU)5]W8AXUAI[9;4Q1T>WM^IS_$N:O#%[,JKQ)U-KL2`/16_'TWXZ'"
^XMB(3.9,22,2,21093,0)="""DATA"",396.18,473,3,1839,0)"
^XMB(3.9,22,2,21094,0)="MALO!_E1&B8Y_R)((4R"")^F!#BM)9G(>DTL[GL\E']-M+>,""_Y(FK*$7'!#</"
^XMB(3.9,22,2,21095,0)="""DATA"",396.18,473,3,1840,0)"
^XMB(3.9,22,2,21096,0)="M-QUP_`+&Q%K=0*Q'BU9C$OX4'\.#M%`)K66@U?V/9>6T(GQ.3E53#TEVBC-7"
^XMB(3.9,22,2,21097,0)="""DATA"",396.18,473,3,1841,0)"
^XMB(3.9,22,2,21098,0)="M,-3F(70YEQU12[!R]&<AZ*08""Z&7;Y/,@@QJ%H14^U9J7,!Z!9+'AFDS-IA7"
^XMB(3.9,22,2,21099,0)="""DATA"",396.18,473,3,1842,0)"
^XMB(3.9,22,2,21100,0)="MZ!3/SFR7%R\4.U4S-,1&(V4KYMB#W(S/_R[%]8J%*NG)L6A3T:)--8NFJ_X<"
^XMB(3.9,22,2,21101,0)="""DATA"",396.18,473,3,1843,0)"
^XMB(3.9,22,2,21102,0)="MBS8<J47;`@C=3*[$IDU5FP;W-(B9!T"":Q'L.)=D..WP7R3/P$QX3:M\@QS$\"
^XMB(3.9,22,2,21103,0)="""DATA"",396.18,473,3,1844,0)"
^XMB(3.9,22,2,21104,0)="MH%67C]&2(C2OH@VN,W;!_))<""Z(9B*V)$_8\COV`*JQ5VH+G<.=9-_Z!)&`V"
^XMB(3.9,22,2,21105,0)="""DATA"",396.18,473,3,1845,0)"
^XMB(3.9,22,2,21106,0)="MP.:4'*+?%4`4BA%_-[IR@(MJN4K7[""U>""'?4)7-V+'[7X0FGY+LEE1S4;XY>"
^XMB(3.9,22,2,21107,0)="""DATA"",396.18,473,3,1846,0)"
^XMB(3.9,22,2,21108,0)="M:`,2]HA,M&9QIX4VWZ8MKCCH3A4`6GUZ5YMH_Q%Z)1T8$;W#BYUH]B3QP87"""
^XMB(3.9,22,2,21109,0)="""DATA"",396.18,473,3,1847,0)"
^XMB(3.9,22,2,21110,0)="M`QQJG#Z[V#DSL(M2;H1R/+5FC_'Q1#:G#>/]<_QSE+V<@288J-0N^707?R61"
^XMB(3.9,22,2,21111,0)="""DATA"",396.18,473,3,1848,0)"
^XMB(3.9,22,2,21112,0)="M7P/<[#:\?KX@,.1WP-^1#.P==HM#2`TO'%@@XR""`!/#FYF$[C.G!PY<A&HXM"
^XMB(3.9,22,2,21113,0)="""DATA"",396.18,473,3,1849,0)"
^XMB(3.9,22,2,21114,0)="MD\7""@S5<#6#+%(_S+&H6G)G'\'6D(""5V7L45A0RT+@DPT5'E$=5-X/^)4F7#"
^XMB(3.9,22,2,21115,0)="""DATA"",396.18,473,3,1850,0)"
^XMB(3.9,22,2,21116,0)="MK64J#:&VH17R+9.3S>:C+84!BI\_G3.\1FB]O5V6.V'@76R-:7H5R(I!HU%:"
^XMB(3.9,22,2,21117,0)="""DATA"",396.18,473,3,1851,0)"
^XMB(3.9,22,2,21118,0)="MH5J>ZQ7GO^&\ZO'\]3DD191-F`41[MF-H(92#4Y7XH`DDTD^-SZD828E3$3K"
^XMB(3.9,22,2,21119,0)="""DATA"",396.18,473,3,1852,0)"
^XMB(3.9,22,2,21120,0)="M%CF?-U->1\GZM$^SX+`F^9W#!D6'*(N""'=H'ARC=AO@3R:RGA+V<U2@-@S0D"
^XMB(3.9,22,2,21121,0)="""DATA"",396.18,473,3,1853,0)"
^XMB(3.9,22,2,21122,0)="M6>CH\,]3\BIEEWCV,]>SVW,>GQ+,1QJ1[8!J@BNBS+?@Y90D^""^4)6&0[?'_"
^XMB(3.9,22,2,21123,0)="""DATA"",396.18,473,3,1854,0)"
^XMB(3.9,22,2,21124,0)="MTM:\-(J\4L@JG@.+V,]0<+GTM7UODS`]$H&3)*""\YY<""+Z+RE@9EPVH,C<)T"
^XMB(3.9,22,2,21125,0)="""DATA"",396.18,473,3,1855,0)"
^XMB(3.9,22,2,21126,0)="MG43/H1YIJ,C\>^K!NKX:TF@3HG""[Q4A3;570\M!AO$R#T/JDU:FIST9_\(1Z"
^XMB(3.9,22,2,21127,0)="""DATA"",396.18,473,3,1856,0)"
^XMB(3.9,22,2,21128,0)="MWZY'%4\E#4[1Z_RY;A/W\,""3?R@*_63D>:Y&G@MJN*N-OW%7'Q?SNXD_17?^"
^XMB(3.9,22,2,21129,0)="""DATA"",396.18,473,3,1857,0)"
^XMB(3.9,22,2,21130,0)="M>/:`1OYJ,)[XHWK1:CB?WLWOYK\0`OXO*]+9]X-%M5-B-AK?-QCR1^-5.UY("
^XMB(3.9,22,2,21131,0)="""DATA"",396.18,473,3,1858,0)"
^XMB(3.9,22,2,21132,0)="MN8U4SN:SI;]J%.@*E""K4I_YTC@<BW&JI2WXX7@R?ILO58#;$C4FQ<#P;K\:#"
^XMB(3.9,22,2,21133,0)="""DATA"",396.18,473,3,1859,0)"
^XMB(3.9,22,2,21134,0)="M""9H.9N-['W\AE<,E87$T7OJ#I4_J?>/9?SZQ93[W4N43\CL9+U=8N-BB_8D_"
^XMB(3.9,22,2,21135,0)="""DATA"",396.18,473,3,1860,0)"
^XMB(3.9,22,2,21136,0)="M7)&>8FWH<CY_6F!FEF/,.2L]D(2,+QQ9KL+9TV+ASU9HM?`'JRG^WQ+=DQKI"
^XMB(3.9,22,2,21137,0)="""DATA"",396.18,473,3,1861,0)"
^XMB(3.9,22,2,21138,0)="M^_$2#>>8*EV+Y=!543L)WFWT/O*7P\7XD7!""5%NQ^L/RSTSQUE!4:QZP!J/Q"
^XMB(3.9,22,2,21139,0)="""DATA"",396.18,473,3,1862,0)"
^XMB(3.9,22,2,21140,0)="M_&$Q?WK,1[PW2''A+Q^)6M%J?F&OX:-""<GK,6F_C=3D>^<B_O\<(L*X7\REB"
^XMB(3.9,22,2,21141,0)="""DATA"",396.18,473,3,1863,0)"
^XMB(3.9,22,2,21142,0)="M;(#/N=5""ZU=1N@+7D#DH6@/AL]^.S\&H\!$<A7`@SCV(YJ(OXH(Y,X2Y=LZC"
^XMB(3.9,22,2,21143,0)="""DATA"",396.18,473,3,1864,0)"
^XMB(3.9,22,2,21144,0)="M(D/L1_F_#D6&*2@80%()\5=0]*A_>\M=GO7IS%=]^4JMOZ!R`><3)RG4T5]-"
^XMB(3.9,22,2,21145,0)="""DATA"",396.18,473,3,1865,0)"
^XMB(3.9,22,2,21146,0)="M:^9(Y$FD>FF#VH#0YWUPN;LMN!\,8#7MJ*VF#:6%N$:V0R/9P=U38>BE2%7W"
^XMB(3.9,22,2,21147,0)="""DATA"",396.18,473,3,1866,0)"
^XMB(3.9,22,2,21148,0)="M!^:'`D_'!L7BH""""I6""J=\BOF<W+(RY06JNTQ>Q0RMC+YQ)Q#K&>[D`8KHBHC"
^XMB(3.9,22,2,21149,0)="""DATA"",396.18,473,3,1867,0)"
^XMB(3.9,22,2,21150,0)="M=[>$F)5F@HPR1Y-OP3UNF\M.HL:DV.3MY""L!+""X`)10#7""NQFT@N)T<A+%WN"
^XMB(3.9,22,2,21151,0)="""DATA"",396.18,473,3,1868,0)"
^XMB(3.9,22,2,21152,0)="M[L7M61G5`5+!SB:.[)O9M/O&?GC3O5E7""#-%A+2?T3YQ/HM<.4/M\!!O5PI["
^XMB(3.9,22,2,21153,0)="""DATA"",396.18,473,3,1869,0)"
^XMB(3.9,22,2,21154,0)="M>HBW>\-5W""%+'Y;F[4SIR^OXHD)^FX-1L@TJKNI&7;NO6LVW.5M4*'^QNMPO"
^XMB(3.9,22,2,21155,0)="""DATA"",396.18,473,3,1870,0)"
^XMB(3.9,22,2,21156,0)="MW&'""]+AMN(.1Y8CI``.XT&,Q@,L#>(.&:A9.G2/I21RQ>:)2<%ZR/AO,A4EM"
^XMB(3.9,22,2,21157,0)="""DATA"",396.18,473,3,1871,0)"
^XMB(3.9,22,2,21158,0)="MP86Q4C_`29=RIW&>*MU$Y$#F\RG_X9P?/>+V-[PC#DV^G-[U^,H3H)H\E'&9"
^XMB(3.9,22,2,21159,0)="""DATA"",396.18,473,3,1872,0)"
^XMB(3.9,22,2,21160,0)="MTO(;N$C#+V$29:\M&7&NQLCFE`0MM,(R,L>MDTMFK](==GY*=V]1'B&BQC.;"
^XMB(3.9,22,2,21161,0)="""DATA"",396.18,473,3,1873,0)"
^XMB(3.9,22,2,21162,0)="M[P*R4U<3XS8_^G98*RJT*2++N**(RAWO$J$TE]FU++@MS_B+.!JGA`L\V4@P"
^XMB(3.9,22,2,21163,0)="""DATA"",396.18,473,3,1874,0)"
^XMB(3.9,22,2,21164,0)="MSE:6)>6GRJHVA=B]HA""KX'7F_=R9P^<6MM:V/\Z;^[,I$\9UNVC9G2U-Z)(Q"
^XMB(3.9,22,2,21165,0)="""DATA"",396.18,473,3,1875,0)"
^XMB(3.9,22,2,21166,0)="MH++%M6/^@N95KQJ=K@:@""W;>\,7\A'M>'J/(TZ2C\7*U&-\]E<F4Q\&XD=,C"
^XMB(3.9,22,2,21167,0)="""DATA"",396.18,473,3,1876,0)"
^XMB(3.9,22,2,21168,0)="MZ0]""+\]_4.F#*EG29*\:A]JQE^=`>:P0W&)6.$&CQHL.,W1^\;U?G1%AV*N3"
^XMB(3.9,22,2,21169,0)="""DATA"",396.18,473,3,1877,0)"
^XMB(3.9,22,2,21170,0)="MN[""'""J)`4""N3\VZ1'6\GK:7_P5^,5Q\ACB@""<NV5#9RW<#1Z6@QXUD014+`G"
^XMB(3.9,22,2,21171,0)="""DATA"",396.18,473,3,1878,0)"
^XMB(3.9,22,2,21172,0)="MK',R-E+I-RU[PDI;(!%7#2+J4C+>(J7[A?^/)W\V%""K.$(F)8DH<0-LQ.5X2"
^XMB(3.9,22,2,21173,0)="""DATA"",396.18,473,3,1879,0)"
^XMB(3.9,22,2,21174,0)="MBU_XB&1Y^4H5DU8+&M7`=.:T?53#')[9G3V`JB:D-,)9-<2T=(<\@MSYC=@A"
^XMB(3.9,22,2,21175,0)="""DATA"",396.18,473,3,1880,0)"
^XMB(3.9,22,2,21176,0)="M8=""1,$@=&^M3Q\8:#&@<5*/3Q?1JEED6,4?1>FI'T>J+M'J3C#FT50ODO`]="
^XMB(3.9,22,2,21177,0)="""DATA"",396.18,473,3,1881,0)"
^XMB(3.9,22,2,21178,0)="MS@>GQ_F0+X9!5$XSB0G.?]GOKN2[P_NN,J=LG)&5+2H*W'EIDF1SC6HK*[4`"
^XMB(3.9,22,2,21179,0)="""DATA"",396.18,473,3,1882,0)"
^XMB(3.9,22,2,21180,0)="MKB\[+A`9F(.BR!$G4*+72#W7!+W/R8HYD22);4>2).;E7(1[]VTYTN?6F_=I"
^XMB(3.9,22,2,21181,0)="""DATA"",396.18,473,3,1883,0)"
^XMB(3.9,22,2,21182,0)="M[18IL=O;QOS_2-];-AG<^1-3L""W]'#GY.YH)`L.0('""T-O717>'NZC-%N[0I"
^XMB(3.9,22,2,21183,0)="""DATA"",396.18,473,3,1884,0)"
^XMB(3.9,22,2,21184,0)="MS@%K:2:\*-R&(</MJ.%V!#E2^A]SA6=U4QME2Y[L'(C:G2@UC*X>1M6R""+V%"
^XMB(3.9,22,2,21185,0)="""DATA"",396.18,473,3,1885,0)"
^XMB(3.9,22,2,21186,0)="M?7G,+]/[+0Q^Q0-*L8$OS:+MEOPE%!%:S)=LV4]6S3'5-[SWI:B>E23P=$A"""
^XMB(3.9,22,2,21187,0)="""DATA"",396.18,473,3,1886,0)"
^XMB(3.9,22,2,21188,0)="MLE4]/W.ZB=+@.=I%&?^V""*/O<M>BE%'V@'A+FV55""4-,UE^1/IAJ9ND#>6:6"
^XMB(3.9,22,2,21189,0)="""DATA"",396.18,473,3,1887,0)"
^XMB(3.9,22,2,21190,0)="M`7&BV93Z!BHN*:U8SV\`X]4/V""O`>%WVN@HB!^].Y9T$-*05!$M49-""[V4Q6"
^XMB(3.9,22,2,21191,0)="""DATA"",396.18,473,3,1888,0)"
^XMB(3.9,22,2,21192,0)="M._`TJG2&8O6@QKY8J=PZG.5>H<_<#0""""XW9-W+;%G/#HB,!M+7##U(-W]9CI"
^XMB(3.9,22,2,21193,0)="""DATA"",396.18,473,3,1889,0)"
^XMB(3.9,22,2,21194,0)="MZH'WM<!-/>R&'G;#T`.W-)EQ->%U\6O:0=_1A._IP;N@.)LWWK#K=MOB!3YJ"
^XMB(3.9,22,2,21195,0)="""DATA"",396.18,473,3,1890,0)"
^XMB(3.9,22,2,21196,0)="MJNWT.%/[QV(#X*[86NPP4/63,G+ZM<@D8J`Y!3MO02PY@!+E$E:9^3^'6UM5"
^XMB(3.9,22,2,21197,0)="""DATA"",396.18,473,3,1891,0)"
^XMB(3.9,22,2,21198,0)="M6HY(6M4ZKZ<K+5M96HY06C4.V*4BET5%*=$A3R`F4T5,MJ:4&/H"",9E*8K(E"
^XMB(3.9,22,2,21199,0)="""DATA"",396.18,473,3,1892,0)"
^XMB(3.9,22,2,21200,0)="M4I(M)8&$&16*:1E!U[()944M[47K\+SG;D\$4JG?Y<I>K5NTZ,%^B1V6Z1H7"
^XMB(3.9,22,2,21201,0)="""DATA"",396.18,473,3,1893,0)"
^XMB(3.9,22,2,21202,0)="MG&:=49I$JH`!\,7:`.;(E84!!2O+/O2IHV:<6SPX4S=X=6/12+FW=QA&V]L["
^XMB(3.9,22,2,21203,0)="""DATA"",396.18,473,3,1894,0)"
^XMB(3.9,22,2,21204,0)="M$/1(0,4'<(,N9R+OJ.X#<BS5:3S]J@%G&H_!I!N!1+?8O.&68,F<WK&4I_3@"
^XMB(3.9,22,2,21205,0)="""DATA"",396.18,473,3,1895,0)"
^XMB(3.9,22,2,21206,0)="M""P[BSD(G1,L]-Z9LTXU![9.#YOZV=6U!\;S',<K-;*5^V'.8C8M(JDNC@`+T"
^XMB(3.9,22,2,21207,0)="""DATA"",396.18,473,3,1896,0)"
^XMB(3.9,22,2,21208,0)="MA\J@[^+-Z^7:/M*N<`C@'`\E%P4R_T:2<]C)\T.++V'T^26KD^!3*#IR/LL."
^XMB(3.9,22,2,21209,0)="""DATA"",396.18,473,3,1897,0)"
^XMB(3.9,22,2,21210,0)="M<^#_LBJ_J][8CS[XBY5_MQA,T-U\]!'=+P;#U=."".OE#V4>S$(`>_<70GZT&"
^XMB(3.9,22,2,21211,0)="""DATA"",396.18,473,3,1898,0)"
^XMB(3.9,22,2,21212,0)="M#WDY8C)?YB=CWOOCA_<K$(T%H6E72""@,[F;7J%D(WT'@V_T[B=6_`S:J(X%U"
^XMB(3.9,22,2,21213,0)="""DATA"",396.18,473,3,1899,0)"
^XMB(3.9,22,2,21214,0)="M=M5B.\^'A0EF3S7$<Z(A$^+1($WQY#GZ$J)1^""5:DY=LV$/[!EP)E`+""ER`("
^XMB(3.9,22,2,21215,0)="""DATA"",396.18,473,3,1900,0)"
^XMB(3.9,22,2,21216,0)="MH-4A2[RJ5VLT;D+'_6X\1*38+&]X>?GJD+]\1>VT->0[=VWQSEVJN.5R$%YN"
^XMB(3.9,22,2,21217,0)="""DATA"",396.18,473,3,1901,0)"
^XMB(3.9,22,2,21218,0)="MO641RG;NXG_UIYOH1(M)61F:@S;&9+O$+TB),K.F1U\]-H2]IJ^4I.9F0AU3"
^XMB(3.9,22,2,21219,0)="""DATA"",396.18,473,3,1902,0)"
^XMB(3.9,22,2,21220,0)="M-1'KNC>A)!%K:R=B'5-EB&?I<Q*Q-IB(74.#LRDX+T%77,D#2X/=#LWB9)_?"
^XMB(3.9,22,2,21221,0)="""DATA"",396.18,473,3,1903,0)"
^XMB(3.9,22,2,21222,0)="MP,K-4'B07Y)&PKR&9XH7D\""]/]*KC)KP?4UXP]9MX.@VT.V"";>A2,.7W/17!"
^XMB(3.9,22,2,21223,0)="""DATA"",396.18,473,3,1904,0)"
^XMB(3.9,22,2,21224,0)="MU%526AEY!2J&;`JFD8\8V*X>X_3\L)BXP;O:+E?:,0S!92]Y$MKCW/""""%)A4"
^XMB(3.9,22,2,21225,0)="""DATA"",396.18,473,3,1905,0)"
^XMB(3.9,22,2,21226,0)="M(<LKBWB<&V#H)+DGFN(JR8_<95IYITR2%^5^XSZI6%I'$>[""=%-22""HJSOT\"
^XMB(3.9,22,2,21227,0)="""DATA"",396.18,473,3,1906,0)"
^XMB(3.9,22,2,21228,0)="MWT9__)(;$!H+V\):?!\&&X15&3$O)Q:L6N)BN]W5*[9[AL#.^;3AHKBM5G""W"
^XMB(3.9,22,2,21229,0)="""DATA"",396.18,473,3,1907,0)"
^XMB(3.9,22,2,21230,0)="MNPH;&CPP9&$!+5_W^S""CWB\K^+,ELC$T90/>G-$1$N8(QE`3C""'P>L.`W?XA"
^XMB(3.9,22,2,21231,0)="""DATA"",396.18,473,3,1908,0)"
^XMB(3.9,22,2,21232,0)="MR%>)$O!ST$3!\R'WGBA[A3RAWY<$4':W""""^`&CS+TN""!XXW`S@_X6%)7(9KR"
^XMB(3.9,22,2,21233,0)="""DATA"",396.18,473,3,1909,0)"
^XMB(3.9,22,2,21234,0)="MY(J(8(7!%""AI\:+IE?ND-!1W5`$UXJD""F6^G0L3-/%8/K=*K%4NRJ\-37X98"
^XMB(3.9,22,2,21235,0)="""DATA"",396.18,473,3,1910,0)"
^XMB(3.9,22,2,21236,0)="M73U<:I>#FWW5PK5A--]FDQ=<+4UX6Q/>T83O:<*[FO!]37A/#][L:L(;FO!Z"
^XMB(3.9,22,2,21237,0)="""DATA"",396.18,473,3,1911,0)"
^XMB(3.9,22,2,21238,0)="M^NWKB:>OU]N^GC#[>KIU])CIZ4G2T>.]U_U?9F>:?FOKPFOZN:WIY[:F+8#B"
^XMB(3.9,22,2,21239,0)="""DATA"",396.18,473,3,1912,0)"
^XMB(3.9,22,2,21240,0)="M%VX,0[6WONF(;]/Y?\GKX<*0+QL^C*Y:S.<<0S-[\LHY57`UF0W5W%JG[4G+"
^XMB(3.9,22,2,21241,0)="""DATA"",396.18,473,3,1913,0)"
^XMB(3.9,22,2,21242,0)="MPD;7$)69SWLLA/L65/H%5N0%'9-59FU35A6F!:%3<V[(#=H$`7;9U5:EHZ'*"
^XMB(3.9,22,2,21243,0)="""DATA"",396.18,473,3,1914,0)"
^XMB(3.9,22,2,21244,0)="MWK],E:Z^*G6*[+:CI\J>GBI;[6>!:7#!13D&GGZH63%'0TVH8P-*<.6(;+\,"
^XMB(3.9,22,2,21245,0)="""DATA"",396.18,473,3,1915,0)"
^XMB(3.9,22,2,21246,0)="M+]VHT<.BP?_M/O[A>O@'U2&[RNQQ*WK,<E84#U0PBC>@DQ]G_M-B/ID_C(>#"
^XMB(3.9,22,2,21247,0)="""DATA"",396.18,473,3,1916,0)"
^XMB(3.9,22,2,21248,0)="M""?)_&4PYD'2IUY1,1!Q#XS9^2Q.9T@$-C.20QL#Y$E/&NZ%QL,*2OEIBMEDX"
^XMB(3.9,22,2,21249,0)="""DATA"",396.18,473,3,1917,0)"
^XMB(3.9,22,2,21250,0)="M6R:-EE=7`[8'SE;""&2E;\8&?(:.:.=J$G':$>MJ$>NT(N=J$W%:$>J8NH9[9"
^XMB(3.9,22,2,21251,0)="""DATA"",396.18,473,3,1918,0)"
^XMB(3.9,22,2,21252,0)="MCI""E3<AJ1TC;ZGKMK*ZGK:->.QVY75U"";K<=(4.;D-&.D+;5N>VLSM6V.K>="
^XMB(3.9,22,2,21253,0)="""DATA"",396.18,473,3,1919,0)"
^XMB(3.9,22,2,21254,0)="MU;G:5N>VLSI7.]:Y[6*=JQWKW':QSM7V(U?B1US_\Q2F-U23OG835[])ORN="
^XMB(3.9,22,2,21255,0)="""DATA"",396.18,473,3,1920,0)"
^XMB(3.9,22,2,21256,0)="M)=W>HJ?C,4R0_S5+PCVY.VMPKN;DLXF`VC0D[491:[R]G83;##B&V_4D);W+"
^XMB(3.9,22,2,21257,0)="""DATA"",396.18,473,3,1921,0)"
^XMB(3.9,22,2,21258,0)="M,5RE33:]OGJYLTZ<4]:K41?6]1R%!\D\KFP69$<H=$99<G+;=C6%XVD(QY""="
^XMB(3.9,22,2,21259,0)="""DATA"",396.18,473,3,1922,0)"
^XMB(3.9,22,2,21260,0)="MOJY3%PK';=K7)/ZMK7T!!BRQK\O&?(X(/3T1]KLZ(G1E(O041>C)[<OMZ]M7"
^XMB(3.9,22,2,21261,0)="""DATA"",396.18,473,3,1923,0)"
^XMB(3.9,22,2,21262,0)="M3R*<OIYP7!WGJQ'G""*>O*)R^<`<H6H3;7?@5*!Z:LNROJ;&)T?(TD<E60;7="
^XMB(3.9,22,2,21263,0)="""DATA"",396.18,473,3,1924,0)"
^XMB(3.9,22,2,21264,0)="M8*;0ZM'C+CAD08**XGO17>""IOQZM3$K>P.DMNJM\GBZJ;LT4;`7@D2[(#!Q3"
^XMB(3.9,22,2,21265,0)="""DATA"",396.18,473,3,1925,0)"
^XMB(3.9,22,2,21266,0)="M(D5+[!^J'+LR,5HZ8K3X8FS+%4>.EJH<+<&:W*4W!Y.MH@=VJVCMT#%='#/_"
^XMB(3.9,22,2,21267,0)="""DATA"",396.18,473,3,1926,0)"
^XMB(3.9,22,2,21268,0)="MTN&`6EUU4$,=U%0'M=1!;7501QVTIP[JJH/VU4'5M67+M$6?][8UX=7%9M,J"
^XMB(3.9,22,2,21269,0)="""DATA"",396.18,473,3,1927,0)"
^XMB(3.9,22,2,21270,0)="M+IV&.`NY&^>'8@?,G[D(+'4$W*,?S.O<A7NI^H6R5RC[A+)'*/N#LC<H^X*R"
^XMB(3.9,22,2,21271,0)="""DATA"",396.18,473,3,1928,0)"
^XMB(3.9,22,2,21272,0)="M)RC[@;(7*/N`L@?HV;^>]2O;OK*-=P0#*7=DX`_@""!IYJ,$)*-+5)FQH&F=Q"
^XMB(3.9,22,2,21273,0)="""DATA"",396.18,473,3,1929,0)"
^XMB(3.9,22,2,21274,0)="MPE;\9;=UF9[D+(JIL0O,-N746F2S;8.;S5;)DH(:[=$/ACA@&D0E.0KCMY3P"
^XMB(3.9,22,2,21275,0)="""DATA"",396.18,473,3,1930,0)"
^XMB(3.9,22,2,21276,0)="M4PLD%1K"")HIT3'TZ0GEQ""3GZA)P6'?*ZVG2\;ALZ^H+SS#9T#'TZ1ALZMCX="
^XMB(3.9,22,2,21277,0)="""DATA"",396.18,473,3,1931,0)"
^XMB(3.9,22,2,21278,0)="MNPT=?</VVABVIV]O7BM[Z^G3Z;6AX^K3<=O0Z>O3Z;>@8W3U'95NH]@C3[]'"
^XMB(3.9,22,2,21279,0)="""DATA"",396.18,473,3,1932,0)"
^XMB(3.9,22,2,21280,0)="M7JL>&2UZ9+2B9+:@9+:B9+6@9+6B9+>@9+>BY+2@Y+2BU&M!J=>*DMN""DMN*"
^XMB(3.9,22,2,21281,0)="""DATA"",396.18,473,3,1933,0)"
^XMB(3.9,22,2,21282,0)="M4K\%I781PFM!J97G&BUBD2&,18)VAL+Q:>H<*[PG27HV##S#TKF]+8Z!H%5\"
^XMB(3.9,22,2,21283,0)="""DATA"",396.18,473,3,1934,0)"
^XMB(3.9,22,2,21284,0)="M`)89ABW)]3N:1^>@@T-Z;'!2<6JGZ!R%4W3PS5P5AX,LB8\OP$FZGN1*7\?5"
^XMB(3.9,22,2,21285,0)="""DATA"",396.18,473,3,1935,0)"
^XMB(3.9,22,2,21286,0)="M$A7G@BXM/CBR<M5DY<IN@4#D7<_52YP$ZWAWVC\'[$+3E-[@[$`W.-=K6T6:"
^XMB(3.9,22,2,21287,0)="""DATA"",396.18,473,3,1936,0)"
^XMB(3.9,22,2,21288,0)="MB-#B5Y!4W""BO:_2J2P!4KQB@<==.-(J1""X]HV3U!UJLGV_QE""65&H[/I!#/O"
^XMB(3.9,22,2,21289,0)="""DATA"",396.18,473,3,1937,0)"
^XMB(3.9,22,2,21290,0)="M<BQ+]2X(>+^DY<&WFC1?#:TNBH.V*E,HF,:.5F.>1'I>[?$^P%?S6X<^+3,B"
^XMB(3.9,22,2,21291,0)="""DATA"",396.18,473,3,1938,0)"
^XMB(3.9,22,2,21292,0)="M#'9W9.W6GPY_&+'ZLD-_#!WP9_*<"".XK=H`T_$S>1R>G*\F335$2;NCW;R1#"
^XMB(3.9,22,2,21293,0)="""DATA"",396.18,473,3,1939,0)"
^XMB(3.9,22,2,21294,0)="MF^5=C:=IG%^0KL++/7RUOL7N!)D$64@NCCIGB#N""#`+4O,.\S:LJ8/(JO:`K"
^XMB(3.9,22,2,21295,0)="""DATA"",396.18,473,3,1940,0)"
^XMB(3.9,22,2,21296,0)="M])NZ%Z9R@^:^H*?,P%WX.3H<R!_[,$A/29@K.MZBP3J_28C$61VUYVPY;V:+"
^XMB(3.9,22,2,21297,0)="""DATA"",396.18,473,3,1941,0)"
^XMB(3.9,22,2,21298,0)="MX+TJ3Z;Q[43U&*1I:[Z\;R2KMDQ)A[>V;!:/G&%&R""55./Y%:4PN!HC6:%]X"
^XMB(3.9,22,2,21299,0)="""DATA"",396.18,473,3,1942,0)"
^XMB(3.9,22,2,21300,0)="M=%%X_(\W,W@>(:L&YP&2^QBB<@\>D_@+\==UO""=2+N[#SU\^BWX-=Z]H'9S2"
^XMB(3.9,22,2,21301,0)="""DATA"",396.18,473,3,1943,0)"
^XMB(3.9,22,2,21302,0)="M_+FP\L0\O[/J?D[%43#V_*FU.I+BB3E$GIPLG*O@3U,+5N^;L74\VW$[OIQO"
^XMB(3.9,22,2,21303,0)="""DATA"",396.18,473,3,1944,0)"
^XMB(3.9,22,2,21304,0)="MQE<2'L,LRD6&M:[)E]&]DEM=^`HVF_P.$FQU$^SRWX##<E[;B%\>_U5-;;\B"
^XMB(3.9,22,2,21305,0)="""DATA"",396.18,473,3,1945,0)"
^XMB(3.9,22,2,21306,0)="MKO0,!MEM7%R]*.MD6[?2[>WE[:?&9_(62E,:;Q5'R,;VUK)@7RB\@E2J*W.O"
^XMB(3.9,22,2,21307,0)="""DATA"",396.18,473,3,1946,0)"
^XMB(3.9,22,2,21308,0)="M8`<_OT3K%[3%@0AW$8]9^SC-2`@]QH?BN7'2=7ZW,]C0F=XBU!@<&ES4WP6D"
^XMB(3.9,22,2,21309,0)="""DATA"",396.18,473,3,1947,0)"
^XMB(3.9,22,2,21310,0)="M'VEL@IZ!5)`2F:`*:7-6.AB-YP^+^=,CF;7[$W^X\D?CE3^E.`$7`<V_R6P2"
^XMB(3.9,22,2,21311,0)="""DATA"",396.18,473,3,1948,0)"
^XMB(3.9,22,2,21312,0)="M_S""8H*7_,/5G*_!1-G""%0-D):KZ@*.#9>SO/Y1MHTSEYKDW`LW<=GO/I^YL%"
^XMB(3.9,22,2,21313,0)="""DATA"",396.18,473,3,1949,0)"
^XMB(3.9,22,2,21314,0)="M/1[Y?%:9%8*,UTL0P2R5D_HV?`V&J_$'/Y_SC9=U!NN(R86O(_]AX?M+M)K3"
^XMB(3.9,22,2,21315,0)="""DATA"",396.18,473,3,1950,0)"
^XMB(3.9,22,2,21316,0)="M0-5;C!50!^""_;O;4Y+_7DGV4T\Q?P$-W_L-XMD2#%<U=C^$N?[842Q.`=CVX"
^XMB(3.9,22,2,21317,0)="""DATA"",396.18,473,3,1951,0)"
^XMB(3.9,22,2,21318,0)="M+\VG./^GO:OM;1M'PI]SP/T'(E^Z>X=K9<F2;.!\@.+(K:YV9$C.MOUT\#I*"
^XMB(3.9,22,2,21319,0)="""DATA"",396.18,473,3,1952,0)"
^XMB(3.9,22,2,21320,0)="M8IQCYV)[-_GW1^I=?!_9:;M=>[&`4XV'#V>&0W)(S0@[@SD4NX8VNIAZ<2Q6"
^XMB(3.9,22,2,21321,0)="""DATA"",396.18,473,3,1953,0)"
^XMB(3.9,22,2,21322,0)="M1L%9J@SSL`Z0[87QBMH@S`':,`_I3',+W^L(ZUEJZR>(4>3'08S]`-9/./%G"
^XMB(3.9,22,2,21323,0)="""DATA"",396.18,473,3,1954,0)"
^XMB(3.9,22,2,21324,0)="M43#$;N@7GSA/=!5&$V\L+FQ)0]`=(VEU48<M80I0RS""<$(BYL#]/QT1)I)[D"
^XMB(3.9,22,2,21325,0)="""DATA"",396.18,473,3,1955,0)"
^XMB(3.9,22,2,21326,0)="M./CHC[^@H7<=^TQ%4[94+DCDEGL4D6<%1%.S(B6',W\E\?W<MG5E37%Q7J$'"
^XMB(3.9,22,2,21327,0)="""DATA"",396.18,473,3,1956,0)"
^XMB(3.9,22,2,21328,0)="MQ2A7=L$Y2A?L8W?!&\W\""`^$J3\+4EU0IB-O']P+[KKRH%YXE]BW8-'C=4^1"
^XMB(3.9,22,2,21329,0)="""DATA"",396.18,473,3,1957,0)"
^XMB(3.9,22,2,21330,0)="MMSS3!?H)KP]_)CIJ]JXHW/SO,)""MD6B0Q^EJO7(YXZS9W05+4VXQ*""(]J9$5"
^XMB(3.9,22,2,21331,0)="""DATA"",396.18,473,3,1958,0)"
^XMB(3.9,22,2,21332,0)="M,R.0QM24PR@<=7-**MK76""!0*YRZK/A+'WHCT<XUCK!'""2-L`?&,>/=I>!4'"
^XMB(3.9,22,2,21333,0)="""DATA"",396.18,473,3,1959,0)"
^XMB(3.9,22,2,21334,0)="M%V,?C?`_-BQ%(8<ZFF;-9;[31/2)C-VEJO#6M/`W\.>\F6F_40:8;CT_:.BQ"
^XMB(3.9,22,2,21335,0)="""DATA"",396.18,473,3,1960,0)"
^XMB(3.9,22,2,21336,0)="MN<9ELA38TFB5/#]MR+;.J&VEA-5[>[($Y_+Y4Y%)1G""H(23O@\A%,7W!$9#L"
^XMB(3.9,22,2,21337,0)="""DATA"",396.18,473,3,1961,0)"
^XMB(3.9,22,2,21338,0)="M;(GW3/I#1_;0E3QT^Y*'Q<*/_[`C>RACZYI:=7LL6)H@RX&1NS#E&M)*RL)J"
^XMB(3.9,22,2,21339,0)="""DATA"",396.18,473,3,1962,0)"
^XMB(3.9,22,2,21340,0)="M2:)#14'N)8[)\4Z5>&.K0QU:P;AC'E6=D^.Q'RE`&ZVX^L^[9+W5Y`MGK\.U"
^XMB(3.9,22,2,21341,0)="""DATA"",396.18,473,3,1963,0)"
^XMB(3.9,22,2,21342,0)="MIO""FC*3N055IJV""%K03`BY.*1\LST4?BZOT)E4.^*HDEK%Q6.SN1E7C3VYVI"
^XMB(3.9,22,2,21343,0)="""DATA"",396.18,473,3,1964,0)"
^XMB(3.9,22,2,21344,0)="MVY:^%.K(40EK=&FOQIINSH'=%.`5G+&EQ7_S=599\J%V)X0FZU3IJD5DV4TE"
^XMB(3.9,22,2,21345,0)="""DATA"",396.18,473,3,1965,0)"
^XMB(3.9,22,2,21346,0)="MM\Y/0N;HD;EZ9#T.F>(FEE:]VX8:A&5];'F)8ZZ8!72,G#ET7$&+Z1Q-.E>3"
^XMB(3.9,22,2,21347,0)="""DATA"",396.18,473,3,1966,0)"
^XMB(3.9,22,2,21348,0)="MKJ>BJ\E%(#G>F0TKA]IC7B&6_""482WW!JGT9\C1N-DR>?B.5?7AWBU3O$75<"
^XMB(3.9,22,2,21349,0)="""DATA"",396.18,473,3,1967,0)"
^XMB(3.9,22,2,21350,0)="MR%4EJZ-[5<G5O*I4=0M-EMN%N)!,1[>.3;?74XS)0O^F^N5O.0A)-1L:A<0,"
^XMB(3.9,22,2,21351,0)="""DATA"",396.18,473,3,1968,0)"
^XMB(3.9,22,2,21352,0)="M35,^/&MT/(L3)KFTM0N]VK)$G&D%B""XXQ::M7^95,;_54,B!L:_9#08#Y#\\"
^XMB(3.9,22,2,21353,0)="""DATA"",396.18,473,3,1969,0)"
^XMB(3.9,22,2,21354,0)="MKC8OZ:'@0/AAJEJ9!OYT!-?0JDI4IF&:IB,O;T4S-LV^K2QQQ6?,]K#6/6J9"
^XMB(3.9,22,2,21355,0)="""DATA"",396.18,473,3,1970,0)"
^XMB(3.9,22,2,21356,0)="MGCW`39""*E$T5Y96Q,9`N4Y5RI$LL6>D+?T*/VBI#(^XM2><HJ$!5ZILPM0S1"
^XMB(3.9,22,2,21357,0)="""DATA"",396.18,473,3,1971,0)"
^XMB(3.9,22,2,21358,0)="MHJ')SC""E[#(ZS,_M:#5KNGK-FHZ4KAS-F&6GEI5R)Z<T991E5WJ`MN52U.PU"
^XMB(3.9,22,2,21359,0)="""DATA"",396.18,473,3,1972,0)"
^XMB(3.9,22,2,21360,0)="M1^6&(H=F(2>G*R<L2^'1_=<AUDE[2D#4O#27;RD&7B8)KI/*J)52LC2W-_5?"
^XMB(3.9,22,2,21361,0)="""DATA"",396.18,473,3,1973,0)"
^XMB(3.9,22,2,21362,0)="MZ':JKY!L90:$+XB671$=4YX571:<,9KF)Z<KH2&D8:,*69;.<P#PG>*-N,PA"
^XMB(3.9,22,2,21363,0)="""DATA"",396.18,473,3,1974,0)"
^XMB(3.9,22,2,21364,0)="M\C/6,OY0(DS+@!BG9>CX2ZDI-#V7!JW4;&@7+#,;%S0,79""STO7IJN[67)70"
^XMB(3.9,22,2,21365,0)="""DATA"",396.18,473,3,1975,0)"
^XMB(3.9,22,2,21366,0)="M_]&^6L73`+4O$#?%4:D44W,L]T%*Z;^&:EN-5_K.$QOY>O4UE,25GD;_<4VD"
^XMB(3.9,22,2,21367,0)="""DATA"",396.18,473,3,1976,0)"
^XMB(3.9,22,2,21368,0)="M/D<EP+GWC[""F.63*_!.LCD0NNKT[/6D=K""5#W_LY.D/NR-/H5YGZWKUK-HBU"
^XMB(3.9,22,2,21369,0)="""DATA"",396.18,473,3,1977,0)"
^XMB(3.9,22,2,21370,0)="M4JO5^:KK'_'\WWP3NO64*IE!!Z<)]#2!GB;0TP1ZTOII`OVN]H[J:9%SUL+Y"
^XMB(3.9,22,2,21371,0)="""DATA"",396.18,473,3,1978,0)"
^XMB(3.9,22,2,21372,0)="M31D/OY4S-K[!AIL-30DZH`=.$B_FU.>C[ZG<?G?Q""%;!4;(C+P)+-_X&M6Z1"
^XMB(3.9,22,2,21373,0)="""DATA"",396.18,473,3,1979,0)"
^XMB(3.9,22,2,21374,0)="M+5L,^-F)`3D[443^Q1YT)XYZ.5TI3Z[GE%B&!3U)^+%BY(5%#?0-2BNB;``B"
^XMB(3.9,22,2,21375,0)="""DATA"",396.18,473,3,1980,0)"
^XMB(3.9,22,2,21376,0)="MRBI?_U7.7%2S_8^Z#F-MOHU)""(.6M4U7&^<%M+&3A9T.$O\(!XD'>%TVF-&&"
^XMB(3.9,22,2,21377,0)="""DATA"",396.18,473,3,1981,0)"
^XMB(3.9,22,2,21378,0)="MV6E8G8;5#S*LA.-"":E#,4E=E?F7U'&4'8(M-9C&EA*V/Y+BF""4.*13;!7Q?S"
^XMB(3.9,22,2,21379,0)="""DATA"",396.18,473,3,1982,0)"
^XMB(3.9,22,2,21380,0)="M%?KI\?YEFWY[?-K@)A]^%J`WC:Z>'.UCR/%`>#+AVB#AVH<)=_NRN%_.TP1%"
^XMB(3.9,22,2,21381,0)="""DATA"",396.18,473,3,1983,0)"
^XMB(3.9,22,2,21382,0)="MR@YH;HJ<X\JW+4*9B!V0B!V.H]""7]3<`^Y7-[]NXDIJSOEXG.K<:+,A""QH*$"
^XMB(3.9,22,2,21383,0)="""DATA"",396.18,473,3,1984,0)"
^XMB(3.9,22,2,21384,0)="M*OI=S4N*!C>:Q&6I.2O(6ZY)9@`0C,XFW5)<'/]N%@A]KBENY:)4FV+WF))F"
^XMB(3.9,22,2,21385,0)="""DATA"",396.18,473,3,1985,0)"
^XMB(3.9,22,2,21386,0)="MHW6O<+5:_,Z%=SE&_NTM!L:6UU-EAK7TB[+@U39]^WR:N?05=J%__4LB*C3?"
^XMB(3.9,22,2,21387,0)="""DATA"",396.18,473,3,1986,0)"
^XMB(3.9,22,2,21388,0)="M?$GAG_\ZCY=WZ^4MGB%P1W/@G.*$LKJ@.6<Z@?LYGTC"")S,S=4NV3DNVJB7+"
^XMB(3.9,22,2,21389,0)="""DATA"",396.18,473,3,1987,0)"
^XMB(3.9,22,2,21390,0)="MX2=2GC3?F^L8K`ZXLAR`1<E8`2,DEH*2D8B%K6!A.?QTUL*W6RQ+\<I&A:ZG"
^XMB(3.9,22,2,21391,0)="""DATA"",396.18,473,3,1988,0)"
^XMB(3.9,22,2,21392,0)="MR&#=5[S1TASKO!I>8FH31&V!J+L@:AM$[8""H71!U#T3=AU!S2[&):SK#>BF^"
^XMB(3.9,22,2,21393,0)="""DATA"",396.18,473,3,1989,0)"
^XMB(3.9,22,2,21394,0)="MM\#7/(3:`E%W0=0VB-H!4;L@ZAZ(N@^AQIH'4#N\7O+>4NZKWK*S+'#-!5/X"
^XMB(3.9,22,2,21395,0)="""DATA"",396.18,473,3,1990,0)"
^XMB(3.9,22,2,21396,0)="M""H_*CI3$%H2X""R&V(<0.A-B%$/<@Q'T`<<-^5,0.IX/B68?[!GY?](XB6UW/"
^XMB(3.9,22,2,21397,0)="""DATA"",396.18,473,3,1991,0)"
^XMB(3.9,22,2,21398,0)="M%2_3R.J.2>IQ^<QDDT_?KL^RU[!O""&?T7S9[]+#?[E""RWB59.M*;Y?QNO=DN"
^XMB(3.9,22,2,21399,0)="""DATA"",396.18,473,3,1992,0)"
^XMB(3.9,22,2,21400,0)="MMR3OJ""S/+'?]@0;<ALJO?^>VF:3K%)(#=+_=SU=HLUCL'^=%?F5`FF#K%<#<"
^XMB(3.9,22,2,21401,0)="""DATA"",396.18,473,3,1993,0)"
^XMB(3.9,22,2,21402,0)="MS)>KERRK\G+WHL""#N98)CYI91R^?!?2%;LHD#!._U%LM>Q*M_^H[[L9EX+V_"
^XMB(3.9,22,2,21403,0)="""DATA"",396.18,473,3,1994,0)"
^XMB(3.9,22,2,21404,0)="M""N-F>L(T6QR3+""X]H""LR-U6)'\+)17@1?BY2`6JV.XW""B[$_05X<A\/`(RGX"
^XMB(3.9,22,2,21405,0)="""DATA"",396.18,473,3,1995,0)"
^XMB(3.9,22,2,21406,0)="M/@6S#XB+AVI#!6D<Q#-,W1%E^90""\T<C_!N2&^HZOO;&*!P.KZ<>G=J-VX0F"
^XMB(3.9,22,2,21407,0)="""DATA"",396.18,473,3,1996,0)"
^XMB(3.9,22,2,21408,0)="M+KL5KLB/K\>SX.H]^A1&'U$N/PXFNPVF;BM,GSYX,Y0)+,Z2J@4QUF#L703C"
^XMB(3.9,22,2,21409,0)="""DATA"",396.18,473,3,1997,0)"
^XMB(3.9,22,2,21410,0)="M8/8%!9.IE\FRDB(6:9KS+Y@%?LR!WP7!S[8X;U<@D_?C811<^""@D^>-0'+R_"
^XMB(3.9,22,2,21411,0)="""DATA"",396.18,473,3,1998,0)"
^XMB(3.9,22,2,21412,0)="M""D;!T+NJ]44+,1DFN/%TG""B'23-MKM5*WE[DYSGO:D`S,[WT@O$7`4YIVUS@"
^XMB(3.9,22,2,21413,0)="""DATA"",396.18,473,3,1999,0)"
^XMB(3.9,22,2,21414,0)="M9V>""](-FS6G/J@.0L[.S!O`:;I(E;O@AC#B0N%SI3'MG9[GK$V,RVV""*/X13"
^XMB(3.9,22,2,21415,0)="""DATA"",396.18,473,3,2000,0)"
^XMB(3.9,22,2,21416,0)="M_/=[""2KS(%16&U3^9S\:!K($C*9U$""K^>^XJ64W#:"";37_<03([3!E/D#R/?"
^XMB(3.9,22,2,21417,0)="""DATA"",396.18,473,3,2001,0)"
^XMB(3.9,22,2,21418,0)="MDZ?<=)R#9&6WP36+O%_\L=RP[$-@648;6"",?#W<9*,LX2%;]-J`N/#QC2""75"
^XMB(3.9,22,2,21419,0)="""DATA"",396.18,473,3,2002,0)"
^XMB(3.9,22,2,21420,0)="M/PA4KPVH2^RJ8CFJWD&HW%9F%09C?R:'Y1X$J]4HQ#-*.)&CTAF##5QD6NTW"
^XMB(3.9,22,2,21421,0)="""DATA"",396.18,473,3,2003,0)"
^XMB(3.9,22,2,21422,0)="MTR.K5-:8T9DYNE\M9:4""(;06I.%:/M$B(S/=MB5KFY<V-""]3,VA,_*W2A++\"
^XMB(3.9,22,2,21423,0)="""DATA"",396.18,473,3,2004,0)"
^XMB(3.9,22,2,21424,0)="M\QTB$\C/R/P9NTWD7\23,N,D]\GN/].1;HU(*2A0""HJ3@L*DH""@I*$@*BI&"""
^XMB(3.9,22,2,21425,0)="""DATA"",396.18,473,3,2005,0)"
^XMB(3.9,22,2,21426,0)="M0J2@""""DH0`J*CPHYRY4B.*(X;WUR(S]TX5HJ+\!'CE/0@O/`$D<$^?D,3['C"
^XMB(3.9,22,2,21427,0)="""DATA"",396.18,473,3,2006,0)"
^XMB(3.9,22,2,21428,0)="M/W'LN,WQY%%.'N&'BD<X'A,6!X4=*`OR[`DSKU=KQR!?T!0H;\+I?Z+D?_LD"
^XMB(3.9,22,2,21429,0)="""DATA"",396.18,473,3,2007,0)"
^XMB(3.9,22,2,21430,0)="MK<Q&/N_>(?+/CVF5O.R?%_?S]5URDTV/>DWDT7S$^12S;!':.Y]BI[`EU:X0"
^XMB(3.9,22,2,21431,0)="""DATA"",396.18,473,3,2008,0)"
^XMB(3.9,22,2,21432,0)="MJ>N$=ANT7""]6^YL$S5%QYRE\7*[34&89.:R^G,_N$_1F,E\3;C-RY6""^2[9O"
^XMB(3.9,22,2,21433,0)="""DATA"",396.18,473,3,2009,0)"
^XMB(3.9,22,2,21434,0)="MT'ZW7""UW+^AVLU_?(/Q_'IQ\$SZ2L""BF^#45/IKOLG);&_S7`ZE91_[:+IZ2"
^XMB(3.9,22,2,21435,0)="""DATA"",396.18,473,3,2010,0)"
^XMB(3.9,22,2,21436,0)="M9(T6\S5!MM]B.6!D\YL;%A7:Y8V^/2^ZEU3+&J)*@;P'&J(D3%)NJ>C(;85_"
^XMB(3.9,22,2,21437,0)="""DATA"",396.18,473,3,2011,0)"
^XMB(3.9,22,2,21438,0)="ME!^R*$%1<K=?S9_0<(,E5CW+K6P\W^ZB_7I0YN'UGY>[\&,CRV\-6Y!)_B;+"
^XMB(3.9,22,2,21439,0)="""DATA"",396.18,473,3,2012,0)"
^XMB(3.9,22,2,21440,0)="M$HPI]*VJKO+2B'Z?;RM#*@UHXE_BMD2%EBEN#5X/R=,=*2&XYBT9J0YT&%7@"
^XMB(3.9,22,2,21441,0)="""DATA"",396.18,473,3,2013,0)"
^XMB(3.9,22,2,21442,0)="MIH7$/%-5-YU)<\#]-<,K_""\QH>29#%I]9(82V54X8]&5PXN$YZNQS!HOL5]L"
^XMB(3.9,22,2,21443,0)="""DATA"",396.18,473,3,2014,0)"
^XMB(3.9,22,2,21444,0)="M[Y?%F07:S7]]2R?9K[X6PY64=]R]XL!3#C9""L;O'>--+/UBL\X=J_!U3._GH"
^XMB(3.9,22,2,21445,0)="""DATA"",396.18,473,3,2015,0)"
^XMB(3.9,22,2,21446,0)="M`WK8<C#(Q@(,)`4387Z_)VB=_(;E.]^2*T1I4;BLN1(YP5U-$<6EI^R__P-0"
^XMB(3.9,22,2,21447,0)="""DATA"",396.18,473,3,2016,0)"
^XMB(3.9,22,2,21448,0)="M2P,$%``""``@`0HBX-/++@L;8%0``-Y,``!$```!3<&EN95\Q,3$N<&YL+G)E"
^XMB(3.9,22,2,21449,0)="""DATA"",396.18,473,3,2017,0)"
^XMB(3.9,22,2,21450,0)="M<.U=ZX_<N)'_/L#\#T+\(3.7<:SWP_!NP%:SNQ5+HE:/F>T]&,$&NQ\6V,3!"
^XMB(3.9,22,2,21451,0)="""DATA"",396.18,473,3,2018,0)"
^XMB(3.9,22,2,21452,0)="MW1YP?_ZQ2$FM5HM%B>,DM\`:,&""W)!;KQV*]6""135E2T;$B;L=(BY=Z""_\&_"
^XMB(3.9,22,2,21453,0)="""DATA"",396.18,473,3,2019,0)"
^XMB(3.9,22,2,21454,0)="MZ;>DR$KQ^_U=4V4EO;_[:L6?^[L/'UC75EW+#H>OO[;>O;,J5G65=6!U8?VG"
^XMB(3.9,22,2,21455,0)="""DATA"",396.18,473,3,2020,0)"
^XMB(3.9,22,2,21456,0)="M:.DOU?=___%G]]/\W0\?LG)/R_Y_;][(EXL?__8YL.&/\^;-^&M:O13U]S_\"
^XMB(3.9,22,2,21457,0)="""DATA"",396.18,473,3,2021,0)"
^XMB(3.9,22,2,21458,0)="M]/GX7Y__YQ_RN:=Y[O+G]W<U?<[HB\4.5D'W64IRJZ8IJ_<-PJ""JI^ZDG_2'"
^XMB(3.9,22,2,21459,0)="""DATA"",396.18,473,3,2022,0)"
^XMB(3.9,22,2,21460,0)="MGWX)!C(W/T+?_N-U?S9WXL.'^8]??[VI$6^I$6]C(_\J.#0COZ;/*J%)WQZR"
^XMB(3.9,22,2,21461,0)="""DATA"",396.18,473,3,2023,0)"
^XMB(3.9,22,2,21462,0)="MG%HOI'EOC8`LOKP.&Y7PS@32>J$UU5#DHV&M(7D]BU)6%/P%8`<^EJ_[XM.;"
^XMB(3.9,22,2,21463,0)="""DATA"",396.18,473,3,2024,0)"
^XMB(3.9,22,2,21464,0)="MUQ<(\$E-N:X89C,I:>[(Z:R:P$X@1V#Z7-5->/>J(T[0]^'ZZ[Y'I7@X0'?*"
^XMB(3.9,22,2,21465,0)="""DATA"",396.18,473,3,2025,0)"
^XMB(3.9,22,2,21466,0)="MFI;5YYNYO$Y:/*$AM@X@?)4U5GOBPV61H0N@84Z,O]^2//M.:EA66TU7'VE]"
^XMB(3.9,22,2,21467,0)="""DATA"",396.18,473,3,2026,0)"
^XMB(3.9,22,2,21468,0)="M_I-J6+$!]6=(>4""YZ8J""2'(DS^<D&Z'5>Z)7PQW.AMM;HKS,L&,RG1PE2FU-"
^XMB(3.9,22,2,21469,0)="""DATA"",396.18,473,3,2027,0)"
^XMB(3.9,22,2,21470,0)="MNH)8+8.'EOA6""8^S`1Z8NNVYH@*""/6GIA1B*A-$L=I7LE915.6D*)4_N2IZN"
^XMB(3.9,22,2,21471,0)="""DATA"",396.18,473,3,2028,0)"
^XMB(3.9,22,2,21472,0)="MOPIAFG""5)$!KNX++5L&'_5B2LE62""@.$5CA3W\`2]P/2UMIGY%BRAO,'""`*M"
^XMB(3.9,22,2,21473,0)="""DATA"",396.18,473,3,2029,0)"
^XMB(3.9,22,2,21474,0)="MB5H2KVYHUHEYN\-PC""W/&G3B#0/M)/U(-^-0RY[6E+2@Z*R'K$SS;I^5QV$N"
^XMB(3.9,22,2,21475,0)="""DATA"",396.18,473,3,2030,0)"
^XMB(3.9,22,2,21476,0)="M/*(BX""0KR8N^VIS\R!$?ZI9WH\WZ<6^S]-*1.9?V!C+>!#9!1-7J%A7BP""#O"
^XMB(3.9,22,2,21477,0)="""DATA"",396.18,473,3,2031,0)"
^XMB(3.9,22,2,21478,0)="M:9/66255U`2VA^8:I7B.DKO!^CB1TCUS8NQ9B#P+D&<^\DSM*CJ1VLUTD,^0"
^XMB(3.9,22,2,21479,0)="""DATA"",396.18,473,3,2032,0)"
^XMB(3.9,22,2,21480,0)="MKV+E(]=6/O+57_GJK]0X^NJ^^X#4E6?<G)N6%@W\^/;FSW95Y9A!:H:;;3:T"
^XMB(3.9,22,2,21481,0)="""DATA"",396.18,473,3,2033,0)"
^XMB(3.9,22,2,21482,0)="MF$B@HA2"",?S2H[%9)AS7UTR31>/T?HW27NAZ5_/@D+?`U2H3JJY,U3;;QQ12"
^XMB(3.9,22,2,21483,0)="""DATA"",396.18,473,3,2034,0)"
^XMB(3.9,22,2,21484,0)="M/""'$ZORG__YE]_E_H;\U_:;+:LK5.1?+E""MT'D%:0*UF.<CH4A?>7W254*U#"
^XMB(3.9,22,2,21485,0)="""DATA"",396.18,473,3,2035,0)"
^XMB(3.9,22,2,21486,0)="M?RX-K[13M^,XD`/K4:9J_RTRHB""':*!1TY:_#=I8@@!F*R5\]%I:]WZ=VD&*"
^XMB(3.9,22,2,21487,0)="""DATA"",396.18,473,3,2036,0)"
^XMB(3.9,22,2,21488,0)="MS7@48C=TX`!T439]?^68II__]M?/''D'U/C8KO6P)^<V*ZCUS#)AEK.2,_=,"
^XMB(3.9,22,2,21489,0)="""DATA"",396.18,473,3,2037,0)"
^XMB(3.9,22,2,21490,0)="M\L=IP#-^:P:JF!,E2UO.%U$CYF[E9=JL]?`&I+%GH[$J6EME=CRU2XSX9D,#"
^XMB(3.9,22,2,21491,0)="""DATA"",396.18,473,3,2038,0)"
^XMB(3.9,22,2,21492,0)="MT_Y`(;Q9-]_BM?Q<!Y3""W0/)`X8DO9R2C^2(!*%&E(0K0+@JJ@B/<H>)KAZ@"
^XMB(3.9,22,2,21493,0)="""DATA"",396.18,473,3,2039,0)"
^XMB(3.9,22,2,21494,0)="M:*NL15>R-G*S1E5<VE!'`=@\!C%G.^[U5;IY:B;4PKYQ-9ZVD)+8GYM#5Z8H"
^XMB(3.9,22,2,21495,0)="""DATA"",396.18,473,3,2040,0)"
^XMB(3.9,22,2,21496,0)="M)=\V5$D@Y5VQ*VG3(&R8-2Y,<<5EH.%JK<D(0B%RC$@('R&G1PBZ#XRUU@N7"
^XMB(3.9,22,2,21497,0)="""DATA"",396.18,473,3,2041,0)"
^XMB(3.9,22,2,21498,0)="M9907UQ`H,(@''GLC/'B&0R""4<LF=,<*U""SX.9KI%N&;/6=/QZ;%&F!S'D!,1"
^XMB(3.9,22,2,21499,0)="""DATA"",396.18,473,3,2042,0)"
^XMB(3.9,22,2,21500,0)="MO63??:=CPS,*AF4$P5T<RGN?LZ/,*W#)HMR7+:J6<6>V*VN:\_AI#YF&-""?<"
^XMB(3.9,22,2,21501,0)="""DATA"",396.18,473,3,2043,0)"
^XMB(3.9,22,2,21502,0)="M^G#G(FO(+LNS]HST::U-%VD4&37SR*\D0T`U=`H-ICQW2]@F-.A^GP$)/G2+"
^XMB(3.9,22,2,21503,0)="""DATA"",396.18,473,3,2044,0)"
^XMB(3.9,22,2,21504,0)="M"";V;H#8R26QX:L<R2A""_'@G;/,2/]1+PIQFXJN/0S:,0`P'Y-W""A\+@-9H_H"
^XMB(3.9,22,2,21505,0)="""DATA"",396.18,473,3,2045,0)"
^XMB(3.9,22,2,21506,0)="M_(&+T[%36WW/3`$([O<TY3%_P^=#P=#I'R6&*A)PY$;Q<)#37Z4F#1T],11:"
^XMB(3.9,22,2,21507,0)="""DATA"",396.18,473,3,2046,0)"
^XMB(3.9,22,2,21508,0)="M_<Y?,VP>,&HJTA18XX;01)ZPA!FB<R-DS26>ZY]XECTW95HX&N""D21D^Y/S?"
^XMB(3.9,22,2,21509,0)="""DATA"",396.18,473,3,2047,0)"
^XMB(3.9,22,2,21510,0)="M;[M*)-;@`Z%U2JF!$%C`^S#P$'VP2PU]Y@%/>YZ0'+OQ7DW164FQ]_3<&V=Q"
^XMB(3.9,22,2,21511,0)="""DATA"",396.18,473,3,2048,0)"
^XMB(3.9,22,2,21512,0)="MB<;P\D975)B]KAY-`=;VVC!9Y*C!`%3<#<P@V]]""!'4@*=<QC<JQE5]M(""$B"
^XMB(3.9,22,2,21513,0)="""DATA"",396.18,473,3,2049,0)"
^XMB(3.9,22,2,21514,0)="M-N[6\/#[FH""%4%@=JHGN@*P^0U1+RM\W5E9PAIIF,)IC*#*Q<WE6""';E*U)9"
^XMB(3.9,22,2,21515,0)="""DATA"",396.18,473,3,2050,0)"
^XMB(3.9,22,2,21516,0)="M@8,G[<7@O8""K7_`I50N;""/B+[H_0JXVP&]_*CD)""$]MH%00^DY8A@VSU=*%="
^XMB(3.9,22,2,21517,0)="""DATA"",396.18,473,3,2051,0)"
^XMB(3.9,22,2,21518,0)="M9#AD'$SKENYJ\,FR)N5VL-S7C`?+#]GSOGE43[;$WK)Z!..;<\,DT"";I"">(C"
^XMB(3.9,22,2,21519,0)="""DATA"",396.18,473,3,2052,0)"
^XMB(3.9,22,2,21520,0)="M4I%T$""A:90W;4]$M6&1(><?Z]<DC=+?'%1Y5D(]V7#XB97N""&#AC>Y&+AP"""""
^XMB(3.9,22,2,21521,0)="""DATA"",396.18,473,3,2053,0)"
^XMB(3.9,22,2,21522,0)="MCPQD^LE9Z([I;!!4>S+OD:6I<`M;T4:VVA.K2<IRWE-2_^MYBU;FT,<<EB,,"
^XMB(3.9,22,2,21523,0)="""DATA"",396.18,473,3,2054,0)"
^XMB(3.9,22,2,21524,0)="MMLB)O2/9?JI)+N^L;'10/;'`;)A;G)?2>B'Y1P[!@IZ*MZPY0V][;RX[EMF!"
^XMB(3.9,22,2,21525,0)="""DATA"",396.18,473,3,2055,0)"
^XMB(3.9,22,2,21526,0)="M""Q""?U;T_]!Y9?;[6XN5-?<C]774Z-T(>KXI53.LWYJOK:N<.2=X&:I\P5+>("
^XMB(3.9,22,2,21527,0)="""DATA"",396.18,473,3,2056,0)"
^XMB(3.9,22,2,21528,0)="M+''$B)/IN$@?U?YNH/9W0W6""'%FBB1$'&LOO^\CJC8,XW@Z6!D?&S94%0*K>"
^XMB(3.9,22,2,21529,0)="""DATA"",396.18,473,3,2057,0)"
^XMB(3.9,22,2,21530,0)="M8!2QGB)K5RZRX.!BBTD8HC[8G:G9D*&N571-FO<+G\,Z^M+ZS?*?[2$5(NN8"
^XMB(3.9,22,2,21531,0)="""DATA"",396.18,473,3,2058,0)"
^XMB(3.9,22,2,21532,0)="MB-E&TA<:""69L)K.NH3Q[^'SD8>WNSY""X>^8AX:YD-:S7MYD<LM&X-B2MF?1V"
^XMB(3.9,22,2,21533,0)="""DATA"",396.18,473,3,2059,0)"
^XMB(3.9,22,2,21534,0)="MLV;]^&D'$LL!Z1@6L8^!%R\:SNFA57OKCFN60A;]JB'1CK0M/>KMB.A$F[0U"
^XMB(3.9,22,2,21535,0)="""DATA"",396.18,473,3,2060,0)"
^XMB(3.9,22,2,21536,0)="MX];'(,<>ZP`)#)/WB1:.(#%$0S=ECQVI8?%C>Z]#6P=':!O!(?J%PQ$ZAG#H"
^XMB(3.9,22,2,21537,0)="""DATA"",396.18,473,3,2061,0)"
^XMB(3.9,22,2,21538,0)="M=!'$\M9+QGU%&9]L[[V@@,*""+AX@#4=:6/IDIP$L&F7+H[D]K2%!8]!O[;2)"
^XMB(3.9,22,2,21539,0)="""DATA"",396.18,473,3,2062,0)"
^XMB(3.9,22,2,21540,0)="MS:9-K)\VL>FTT=J#,6-EDA_QM)IU];+[4M<TFK5?_C4I!?$-W:S0S`7#G$7,"
^XMB(3.9,22,2,21541,0)="""DATA"",396.18,473,3,2063,0)"
^XMB(3.9,22,2,21542,0)="MS4(=24?C9""(.+^H$R%`T2_\M3H!N8(R=`%_O!/B&3D""PP@D(3.>O5N2,W0#9"
^XMB(3.9,22,2,21543,0)="""DATA"",396.18,473,3,2064,0)"
^XMB(3.9,22,2,21544,0)="MM`:3T!""3:`4FD3$FNNED[@S(MC6@Q(:@)""M`,5;T6EWQ>I?`<;6NDN.:^4JR"
^XMB(3.9,22,2,21545,0)="""DATA"",396.18,473,3,2065,0)"
^XMB(3.9,22,2,21546,0)="MBQIP7,<8'/>5QE^VH&'=,(IP5T01KF?L``2O-/*!WL@;5N""(;(?.R,\T4*E>"
^XMB(3.9,22,2,21547,0)="""DATA"",396.18,473,3,2066,0)"
^XMB(3.9,22,2,21548,0)="M5_'Q1)I<"">TS%-*0/%DY2V&;`JS'C](!N?Q!@\CE'VK1DG7'$RS:[ZA5TZ9B"
^XMB(3.9,22,2,21549,0)="""DATA"",396.18,473,3,2067,0)"
^XMB(3.9,22,2,21550,0)="M99/M<IG`'4RH=219:TU_N*Q1M:RK_Z3>1K,V53I+M2-V/IGZ!WU&-KK]""2N+"
^XMB(3.9,22,2,21551,0)="""DATA"",396.18,473,3,2068,0)"
^XMB(3.9,22,2,21552,0)="M14P/XB0A)ES=71])NZ@#/_!DLK*I:#K-0>%)IS72,X&K8DW;7>V`&AYNJ<=("
^XMB(3.9,22,2,21553,0)="""DATA"",396.18,473,3,2069,0)"
^XMB(3.9,22,2,21554,0)="M;@O<27GN<](7$DAA1F)6DB*DX$3)'JB(!2SU5$N<#2R)E5DE2W.*:L9\VY`Q"
^XMB(3.9,22,2,21555,0)="""DATA"",396.18,473,3,2070,0)"
^XMB(3.9,22,2,21556,0)="MD*7F7!2T%?6W%JDJ2FH""575J#MTM'#H+'`X4<9[6;A"":SD&A.V#_R*VH.5L&"
^XMB(3.9,22,2,21557,0)="""DATA"",396.18,473,3,2071,0)"
^XMB(3.9,22,2,21558,0)="MQD4'9DH%6Z,U5$B_`HW!V;I1SUW]3&`*HE&.P>XH&-9LM^O4A0*AD?0#@Q_/"
^XMB(3.9,22,2,21559,0)="""DATA"",396.18,473,3,2072,0)"
^XMB(3.9,22,2,21560,0)="MU6FV9VGVDMG$<ON52\07,6M81&!R??.0DY;;V]G*WNQU,RK!A4K.ZCV*D!.8"
^XMB(3.9,22,2,21561,0)="""DATA"",396.18,473,3,2073,0)"
^XMB(3.9,22,2,21562,0)="MT1!U1""G+,[QUL[$5<EV#U]%0/0L^[A(C4]5&\@XVDLNPD8F,['YWD)WSCJV."
^XMB(3.9,22,2,21563,0)="""DATA"",396.18,473,3,2074,0)"
^XMB(3.9,22,2,21564,0)="M71)U5Q)U3Q*U2D%\)F0GU]7.G,GTQ=;/D(#,1B)8&U&B-J(J;35CB7JL$W5/"
^XMB(3.9,22,2,21565,0)="""DATA"",396.18,473,3,2075,0)"
^XMB(3.9,22,2,21566,0)="M$G5'$C7?B7J<$V3UV5W&%QDLL9@EGKSG]JXE62Y+![G_#0N37U:5_S9=?ILN"
^XMB(3.9,22,2,21567,0)="""DATA"",396.18,473,3,2076,0)"
^XMB(3.9,22,2,21568,0)="MO_KI8MG65SR$;;G+4W%7.3\WD-=U^(\5R2L""X2R?/,^9C&S%-C>2RE21RU\B"
^XMB(3.9,22,2,21569,0)="""DATA"",396.18,473,3,2077,0)"
^XMB(3.9,22,2,21570,0)="M,F%<L&<J]C,?:_(,A9$4BG9**&J_O_,6WB/<Z2R;\?W[.Q]YJ8$2,^Z)<0\$"
^XMB(3.9,22,2,21571,0)="""DATA"",396.18,473,3,2078,0)"
^XMB(3.9,22,2,21572,0)="M?/G[NP!Y^=#E^=7+_-E75LFXBTL;T9\U>0.UD12@[1F5F8-2^(A#E#G6G?+@"
^XMB(3.9,22,2,21573,0)="""DATA"",396.18,473,3,2079,0)"
^XMB(3.9,22,2,21574,0)="MXYGES_2Z/(T#V56P#^N23D?/%(""M$VM<?,5DFLD`S7?LA;M9]%OHX$,:6&^M"
^XMB(3.9,22,2,21575,0)="""DATA"",396.18,473,3,2080,0)"
^XMB(3.9,22,2,21576,0)="M-'P4R8\N9VG'\:*L:ZSRC];#+DMIU?2)D6&SM2Z5,^O'+$$T?0IG=5C!UD;="
^XMB(3.9,22,2,21577,0)="""DATA"",396.18,473,3,2081,0)"
^XMB(3.9,22,2,21578,0)="MA=30]+%LU6B-T,75EL1.5'XV$KWPR4HC_C=^M&JRS_CH`FQM;8+;`D%\3=$;"
^XMB(3.9,22,2,21579,0)="""DATA"",396.18,473,3,2082,0)"
^XMB(3.9,22,2,21580,0)="M.-W<MJM?5GP-C`&NN%YJ*'^\B.`BB'!B""BFMT@P\;692;$-]9X""=X`#'3I2Y"
^XMB(3.9,22,2,21581,0)="""DATA"",396.18,473,3,2083,0)"
^XMB(3.9,22,2,21582,0)="MOC.""#M/Y[@B=1@+?&W""ES6&+!(D18/KTO4@O""6$SV`F`65""Q,87'DE!\S<6-"
^XMB(3.9,22,2,21583,0)="""DATA"",396.18,473,3,2084,0)"
^XMB(3.9,22,2,21584,0)="MU0U'3*#U9+7.H]7E)8\&RS\^7<3-@$'M`F+BF\[41+\`D'CF,Q5S_,(+=F2W"
^XMB(3.9,22,2,21585,0)="""DATA"",396.18,473,3,2085,0)"
^XMB(3.9,22,2,21586,0)="M[V0>]6&&G`E<VKF9!,9PZ9<-DO`5<$6X]]>>NF)GL6I(;U[@>HUX15J\(F.\"
^XMB(3.9,22,2,21587,0)="""DATA"",396.18,473,3,2086,0)"
^XMB(3.9,22,2,21588,0)="M8CU>\2OP2C21RBFK+G8@=YZLW.5_O4?K0`M6]]8TRS-6-8Q<[*G!@I*M7Y^T"
^XMB(3.9,22,2,21589,0)="""DATA"",396.18,473,3,2087,0)"
^XMB(3.9,22,2,21590,0)="M;6,8]<NW26(.(Q[QN3V.$Z.0!T]6P]%LW$?N@AY@2T!M'?.NI3VDXM_<QRO("
^XMB(3.9,22,2,21591,0)="""DATA"",396.18,473,3,2088,0)"
^XMB(3.9,22,2,21592,0)="MMUG1O0Y81P^L8V@Z)'.:94#;?0VRGB9$_%A2>@6M$%#^U[\6TF\ZLI]Y?2;\"
^XMB(3.9,22,2,21593,0)="""DATA"",396.18,473,3,2089,0)"
^XMB(3.9,22,2,21594,0)="MZLNF;&.O3S*D0]-_#9J!)A@GY4<X%8#;X>PR[7V.IA#81VM/:05;6%@Y2&J;"
^XMB(3.9,22,2,21595,0)="""DATA"",396.18,473,3,2090,0)"
^XMB(3.9,22,2,21596,0)="M[3(H,H(CJZ0<OP9>_8*U'9C#NV+-V@Y?`V^DR8-(>&%O=TOJBV(=5('$4BH`"
^XMB(3.9,22,2,21597,0)="""DATA"",396.18,473,3,2091,0)"
^XMB(3.9,22,2,21598,0)="MTK0U2TM:9%W#G[*<CFJ@,<,VTF,;F6,;K\`V[M6,R792+(DG\D]'.'7,:MFU"
^XMB(3.9,22,2,21599,0)="""DATA"",396.18,473,3,2092,0)"
^XMB(3.9,22,2,21600,0)="M-D!E5[[(1?9$\KQ+N1#GK#R^%N=$CW-BC+-CKRA$LG4RC*PM./TYBWVM1<O1"
^XMB(3.9,22,2,21601,0)="""DATA"",396.18,473,3,2093,0)"
^XMB(3.9,22,2,21602,0)="MLN22&W*F@[.NLD.>""KJPQCDLZDV((EO>`MLD(>1?[:@OSP.QO@A/??S)!MZB"
^XMB(3.9,22,2,21603,0)="""DATA"",396.18,473,3,2094,0)"
^XMB(3.9,22,2,21604,0)="M6]ZNJ6!<(:<K7!V;NG`>LCA!-?ADL$T-V>:EMA5(KC)09U(16B&RWT?M`(21"
^XMB(3.9,22,2,21605,0)="""DATA"",396.18,473,3,2095,0)"
^XMB(3.9,22,2,21606,0)="M2><#]5<1<C"">NAL1TB""29D=HJ;W)2(U\A)Q0H1Z4*!;+ZOU:S&4QIA&*\:Q="
^XMB(3.9,22,2,21607,0)="""DATA"",396.18,473,3,2096,0)"
^XMB(3.9,22,2,21608,0)="MCEE8D5D^LEN(:/C),I11VWK+U03O5?MD6<[;?G\V[RC_X_)GO0+A?\I6_'?("
^XMB(3.9,22,2,21609,0)="""DATA"",396.18,473,3,2097,0)"
^XMB(3.9,22,2,21610,0)="M(R/IJ2\]+3#9CTPF$R;[OLFT"".-U4U!4P@3S'R)8M9.9<6XY:^Z:0-WY@G08"
^XMB(3.9,22,2,21611,0)="""DATA"",396.18,473,3,2098,0)"
^XMB(3.9,22,2,21612,0)="M5/EI`'_.=C7!*E]#O&E\RY1TJ5V#MO7UXT$P-&Z`BD:@1%GP`W]:\<CFXZ-!"
^XMB(3.9,22,2,21613,0)="""DATA"",396.18,473,3,2099,0)"
^XMB(3.9,22,2,21614,0)="M_[5EY$%HC(V^CCR(S+'139L<*'-/HDM/!CO6M-G6?A7#`)=0GS'L%U[,<-$H"
^XMB(3.9,22,2,21615,0)="""DATA"",396.18,473,3,2100,0)"
^XMB(3.9,22,2,21616,0)="MAC'U!1J>&IS?&6KG4V@\GT*]S(2OD1F-^I/63^RD@>+B&_>T&:ZZ,(%-NSDA"
^XMB(3.9,22,2,21617,0)="""DATA"",396.18,473,3,2101,0)"
^XMB(3.9,22,2,21618,0)="MC$U.#`SUJ:TP@8;7.K&+>O_B&&0EF/7^PH\=;U""LG0YP/5F7@[+ENFLQKKK"""
^XMB(3.9,22,2,21619,0)="""DATA"",396.18,473,3,2102,0)"
^XMB(3.9,22,2,21620,0)="MR1<5][XA^((C2N2&AL'1V$']YPF.:<W:]G)T1MO26@S""\%[.&GF4ZXTANCF["
^XMB(3.9,22,2,21621,0)="""DATA"",396.18,473,3,2103,0)"
^XMB(3.9,22,2,21622,0)="M[(:K'OZU!]CX\XL$H%@>(3$5WM4THCD-HT/60L19#Y%3""Z(O[H5Z1@YJ8.2["
^XMB(3.9,22,2,21623,0)="""DATA"",396.18,473,3,2104,0)"
^XMB(3.9,22,2,21624,0)="M1KA;N\+Q%HC'\Q_$$7(Y>_DG.#HZP$='QT#%1-H4>F2;:N9(OT@8.>::62=1"
^XMB(3.9,22,2,21625,0)="""DATA"",396.18,473,3,2105,0)"
^XMB(3.9,22,2,21626,0)="M,T_'!!RM28^,37JD-^G1*TRZ;N),7!T38+0YUR@P!D:?T([\5P""CT0VO]G4B"
^XMB(3.9,22,2,21627,0)="""DATA"",396.18,473,3,2106,0)"
^XMB(3.9,22,2,21628,0)="M;<XTBHRQT6>CH]`<&RR_$/^3?9U8JXABV\37B?1)YBC>Y.LLJ?[_A[[.C2W"""
^XMB(3.9,22,2,21629,0)="""DATA"",396.18,473,3,2107,0)"
^XMB(3.9,22,2,21630,0)="M?9W$P-=)YGY(@OHZL8FO,S]:TH]?F?(,/ZT9Z<D)S<EBW9UG+__L+/^\7,#I"
^XMB(3.9,22,2,21631,0)="""DATA"",396.18,473,3,2108,0)"
^XMB(3.9,22,2,21632,0)="M+=?T71T<._DY6/XY7/XY6OXY7OYYF4M_F4M_F1WL\`GD,%S'FX</@3O_P9M4"
^XMB(3.9,22,2,21633,0)="""DATA"",396.18,473,3,2109,0)"
^XMB(3.9,22,2,21634,0)="M?U\F6TUA/<PDX?C;F/]*QAQJF&42]_[.^0/_S^E<,5D@?'_G_D'4_X+QN;_S"
^XMB(3.9,22,2,21635,0)="""DATA"",396.18,473,3,2110,0)"
^XMB(3.9,22,2,21636,0)="M^J>TEH^?A`(%#9SFK.RX+^XOOC$^GEWO]J4$IJ^W':MRMY7]N@E6;NNN/0!X"
^XMB(3.9,22,2,21637,0)="""DATA"",396.18,473,3,2111,0)"
^XMB(3.9,22,2,21638,0)="MUB=UJ:UGKSYE9=T,&.IF'](0^(\W\N\Y&/^>LYU_O-2X/Q)](__(G.:&.SUE"
^XMB(3.9,22,2,21639,0)="""DATA"",396.18,473,3,2112,0)"
^XMB(3.9,22,2,21640,0)="M3-9Q9L9RX*%EUYZW'0<?Q\$WP0'15GW9X9]I_1%*Z#@&K;,5@P#%(-B.08AC"
^XMB(3.9,22,2,21641,0)="""DATA"",396.18,473,3,2113,0)"
^XMB(3.9,22,2,21642,0)="M$)J>.*35?&2W9X78C?K02BS<1Y-3PO7GW!B>T2Z[J:D:\`(3(4&,E*C,DB*2"
^XMB(3.9,22,2,21643,0)="""DATA"",396.18,473,3,2114,0)"
^XMB(3.9,22,2,21644,0)="M>QR6W-\J(A$J(M%V$8EQ$8E-$$`,KRSWD1`TFR<(:BR\[<;""QXV%;V(L,$=B"
^XMB(3.9,22,2,21645,0)="""DATA"",396.18,473,3,2115,0)"
^XMB(3.9,22,2,21646,0)="M*'-ZV)%=5C8?LXT`^""X&@.]N!\##`?!6`Z#T<>;5'_TI$3=(""#<7U*BX]&GM"
^XMB(3.9,22,2,21647,0)="""DATA"",396.18,473,3,2116,0)"
^XMB(3.9,22,2,21648,0)="M^0#!B(CZ`(/`71=9CSV6@""`->O.#E%??V""BL$DW;ZR.68==7E[<-<GBSXQM5"
^XMB(3.9,22,2,21649,0)="""DATA"",396.18,473,3,2117,0)"
^XMB(3.9,22,2,21650,0)="M^*BK2'SD,`)U$NEJ*:0_T""&<C;HK+K/E,_V<CQ><Z@XR,=G:'T[+ERZ'O<*["
^XMB(3.9,22,2,21651,0)="""DATA"",396.18,473,3,2118,0)"
^XMB(3.9,22,2,21652,0)="MUD@=N:,L-$FX^.[5G5XJLNHM[J[9'57)-'EW0UA-+C$Y8<AQHRFVU\>YKP?8"
^XMB(3.9,22,2,21653,0)="""DATA"",396.18,473,3,2119,0)"
^XMB(3.9,22,2,21654,0)="MZ+XO__K2-)2VFFW#&_O""&<H+U-4TPVWGI`CQ+>&.[?Z`^(/5E0?RS""G""AM4+"
^XMB(3.9,22,2,21655,0)="""DATA"",396.18,473,3,2120,0)"
^XMB(3.9,22,2,21656,0)="MD\L%<D,K6VYO=@RN.'*W5#+*7>R7Z[-K5MS>>(H4_!DI.<<5+F<.T3""<:L5U"
^XMB(3.9,22,2,21657,0)="""DATA"",396.18,473,3,2121,0)"
^XMB(3.9,22,2,21658,0)="M#=#-X!Z\?9?2_=.PZU7\!#=B@'#]3D;6O^MO+>#/8#2>L[VXN*N#FLOA$@QY"
^XMB(3.9,22,2,21659,0)="""DATA"",396.18,473,3,2122,0)"
^XMB(3.9,22,2,21660,0)="M2X<HH9I<>`6$+I==63LJKD(06AV[>L\-U@,J'.#9U5<OI_/(8\-9SO=PBE<*"
^XMB(3.9,22,2,21661,0)="""DATA"",396.18,473,3,2123,0)"
^XMB(3.9,22,2,21662,0)="M1WCM*=1_#8QA5R1L`9J'=NQ8LZX*;M8_+X]<]2.1Z""BR)J5YWF_4_::CC9#Z"
^XMB(3.9,22,2,21663,0)="""DATA"",396.18,473,3,2124,0)"
^XMB(3.9,22,2,21664,0)="M5QULM=`[*%@F#3UV]/>-N!ZAG\[/-WN5)]^MU16LV+$=^U8<G@=@PV@,S<_("
^XMB(3.9,22,2,21665,0)="""DATA"",396.18,473,3,2125,0)"
^XMB(3.9,22,2,21666,0)="M3K7$^-F6$U2NX`.V+A>8'""""_TXE+L(8[U[@$-\(@T+=<$$KN8/`?QSW=:M:7"
^XMB(3.9,22,2,21667,0)="""DATA"",396.18,473,3,2126,0)"
^XMB(3.9,22,2,21668,0)="MXFIUL6)@?UKE1]&""""<=RH@A(GD\XV+$]',\Z,+)7GS\EFMI@PJX%4MSE#I(&"
^XMB(3.9,22,2,21669,0)="""DATA"",396.18,473,3,2127,0)"
^XMB(3.9,22,2,21670,0)="M=]5PC$I6OF7UD919:HU77<!P-0*L#F!3@[7ZN""WHM$C#2*].W&QRN:HCI3B["
^XMB(3.9,22,2,21671,0)="""DATA"",396.18,473,3,2128,0)"
^XMB(3.9,22,2,21672,0)="M[O*80-+_9C`L[#Z/^SO@O>GO[UCKHDJWJB!'<5Y@V^W/HW<Z[?;</W7##5>8"
^XMB(3.9,22,2,21673,0)="""DATA"",396.18,473,3,2129,0)"
^XMB(3.9,22,2,21674,0)="M""(5-<RZF->NOJX<[W3=0""[90`R6:YEDIACLGNW4D_""TDY""1E+:OH%C:\+33<"
^XMB(3.9,22,2,21675,0)="""DATA"",396.18,473,3,2130,0)"
^XMB(3.9,22,2,21676,0)="MR[TOZRFX9D>?Q?+Z-U`R?.8*.1K%6:[Q@=8IA2&Z#F0J5B,IE?@FH;`@MKU("
^XMB(3.9,22,2,21677,0)="""DATA"",396.18,473,3,2131,0)"
^XMB(3.9,22,2,21678,0)="M9,WDZAEU%(IIK>___N//KNN&GU:#;+NNYR""WI+NNV#M]?T>+*F=G<8!'?_6."
^XMB(3.9,22,2,21679,0)="""DATA"",396.18,473,3,2132,0)"
^XMB(3.9,22,2,21680,0)="MZ<WN5W0[<6\H2]-.WG:+^V;B*Z.#N49.A&D1]X7!R7$U_R@_6Y(YQ(N1GV\Z"
^XMB(3.9,22,2,21681,0)="""DATA"",396.18,473,3,2133,0)"
^XMB(3.9,22,2,21682,0)="MR(]W%=(M/1$5B_$2BZM/51RNE.,?B5T[<#:@N#EJ'*RE""^C$VVN=@.E'[NPJ"
^XMB(3.9,22,2,21683,0)="""DATA"",396.18,473,3,2134,0)"
^XMB(3.9,22,2,21684,0)="MNH$W/3G7A!S`)V[XYG%!RZTG=P!?6/UQN%DKE[=JO9W>JJ6B;V^Y&(]_(-9I"
^XMB(3.9,22,2,21685,0)="""DATA"",396.18,473,3,2135,0)"
^XMB(3.9,22,2,21686,0)="M4M(U]*%Y%)'10C^R4M4']'!&:'U+%`,?1*,NO,@1GS?#I:`-UU'"".4]/I#Z*"
^XMB(3.9,22,2,21687,0)="""DATA"",396.18,473,3,2136,0)"
^XMB(3.9,22,2,21688,0)="M@X#D3Z)_H+""T\PJ]V$\SK^SK>573%KV-6WZS4B+H#S_]XMJVA&#/8Q$19PD*"
^XMB(3.9,22,2,21689,0)="""DATA"",396.18,473,3,2137,0)"
^XMB(3.9,22,2,21690,0)="M,X&[O+FRZ?&NLU&XQ8C?$%B>K;.OMPH8N`1PY`""WT>]&WZRJ&8^%BV:%""`5;"
^XMB(3.9,22,2,21691,0)="""DATA"",396.18,473,3,2138,0)"
^XMB(3.9,22,2,21692,0)="M""8I8OSFGIXS`(MX66N%66MXHKCI$EPEZYK+H7<MB5PZZW=IU;1_2KA!/;[/"""
^XMB(3.9,22,2,21693,0)="""DATA"",396.18,473,3,2139,0)"
^XMB(3.9,22,2,21694,0)="MLJ726-*/0R>4&M)V5R_]CAC)U""II()=RY!&9O/QQ1@HW-(L^W\SWWNQ2A+>1"
^XMB(3.9,22,2,21695,0)="""DATA"",396.18,473,3,2140,0)"
^XMB(3.9,22,2,21696,0)="MT""!J3U;OZE#^3X@2)M=MTL.!^\>X=Q>NSSS#]%K,]]S<$FCD,""9]M$6&.6PQ"
^XMB(3.9,22,2,21697,0)="""DATA"",396.18,473,3,2141,0)"
^XMB(3.9,22,2,21698,0)="M_I;T""$6PC\B72%'^'U!+`0(6""Q0``@`(`$*(N#2S+`^4@X4``)*Q""0`-````"
^XMB(3.9,22,2,21699,0)="""DATA"",396.18,473,3,2142,0)"
^XMB(3.9,22,2,21700,0)="M````````(`""`@0````!3<&EN95\Q,3$N<&YL4$L!`A8+%``""``@`8(BX-()7"
^XMB(3.9,22,2,21701,0)="""DATA"",396.18,473,3,2143,0)"
^XMB(3.9,22,2,21702,0)="MG/B?M@``3UD5`!$``````````0`@`(""!KH4``%-P:6YE7S$Q,2YP;FPN9G)M"
^XMB(3.9,22,2,21703,0)="""DATA"",396.18,473,3,2144,0)"
^XMB(3.9,22,2,21704,0)="M4$L!`A8+%``""``@`0HBX---MB99:)0``4RL!`!$``````````0`@`(""!?#P!"
^XMB(3.9,22,2,21705,0)="""DATA"",396.18,473,3,2145,0)"
^XMB(3.9,22,2,21706,0)="M`%-P:6YE7S$Q,2YP;FPN8V1E4$L!`A8+%``""``@`0HBX-/++@L;8%0``-Y,`"
^XMB(3.9,22,2,21707,0)="""DATA"",396.18,473,3,2146,0)"
^XMB(3.9,22,2,21708,0)="M`!$``````````0`@`(""!!6(!`%-P:6YE7S$Q,2YP;FPN<F5P4$L%!@`````$"
^XMB(3.9,22,2,21709,0)="""DATA"",396.18,473,3,2147,0)"
^XMB(3.9,22,2,21710,0)="-``0`^`````QX`0``````"
^XMB(3.9,22,2,21711,0)="""DATA"",396.18,473,3,2148,0)"
^XMB(3.9,22,2,21712,0)="end"
^XMB(3.9,22,2,21713,0)="""DATA"",396.18,473,4)"
^XMB(3.9,22,2,21714,0)="9^1421266923"
^XMB(3.9,22,2,21715,0)="""DATA"",396.18,473,6)"
^XMB(3.9,22,2,21716,0)="1^785"
^XMB(3.9,22,2,21717,0)="""FIA"",396.17)"
^XMB(3.9,22,2,21718,0)="CAPRI TEMPLATES"
^XMB(3.9,22,2,21719,0)="""FIA"",396.17,0)"
^XMB(3.9,22,2,21720,0)="^DVB(396.17,"
^XMB(3.9,22,2,21721,0)="""FIA"",396.17,0,0)"
^XMB(3.9,22,2,21722,0)="396.17PI"
^XMB(3.9,22,2,21723,0)="""FIA"",396.17,0,1)"
^XMB(3.9,22,2,21724,0)="y^y^f^^^^n"
^XMB(3.9,22,2,21725,0)="""FIA"",396.17,0,10)"
^XMB(3.9,22,2,21726,0)=""
^XMB(3.9,22,2,21727,0)="""FIA"",396.17,0,11)"
^XMB(3.9,22,2,21728,0)=""
^XMB(3.9,22,2,21729,0)="""FIA"",396.17,0,""RLRO"")"
^XMB(3.9,22,2,21730,0)=""
^XMB(3.9,22,2,21731,0)="""FIA"",396.17,0,""VR"")"
^XMB(3.9,22,2,21732,0)="2.7^DVBA"
^XMB(3.9,22,2,21733,0)="""FIA"",396.17,396.17)"
^XMB(3.9,22,2,21734,0)="0"
^XMB(3.9,22,2,21735,0)="""FIA"",396.17,396.1714)"
^XMB(3.9,22,2,21736,0)="0"
^XMB(3.9,22,2,21737,0)="""FIA"",396.17,396.17144)"
^XMB(3.9,22,2,21738,0)="0"
^XMB(3.9,22,2,21739,0)="""FIA"",396.17,396.1715)"
^XMB(3.9,22,2,21740,0)="0"
^XMB(3.9,22,2,21741,0)="""FIA"",396.17,396.17153)"
^XMB(3.9,22,2,21742,0)="0"
^XMB(3.9,22,2,21743,0)="""FIA"",396.17,396.1718)"
^XMB(3.9,22,2,21744,0)="0"
^XMB(3.9,22,2,21745,0)="""FIA"",396.17,396.176)"
^XMB(3.9,22,2,21746,0)="0"
^XMB(3.9,22,2,21747,0)="""FIA"",396.17,396.178)"
^XMB(3.9,22,2,21748,0)="0"
^XMB(3.9,22,2,21749,0)="""FIA"",396.17,396.19)"
^XMB(3.9,22,2,21750,0)="0"
^XMB(3.9,22,2,21751,0)="""FIA"",396.17,396.191)"
^XMB(3.9,22,2,21752,0)="0"
^XMB(3.9,22,2,21753,0)="""FIA"",396.17,396.193)"
^XMB(3.9,22,2,21754,0)="0"
^XMB(3.9,22,2,21755,0)="""FIA"",396.18)"
^XMB(3.9,22,2,21756,0)="CAPRI TEMPLATE DEFINITIONS"
^XMB(3.9,22,2,21757,0)="""FIA"",396.18,0)"
^XMB(3.9,22,2,21758,0)="^DVB(396.18,"
^XMB(3.9,22,2,21759,0)="""FIA"",396.18,0,0)"
^XMB(3.9,22,2,21760,0)="396.18"
^XMB(3.9,22,2,21761,0)="""FIA"",396.18,0,1)"
^XMB(3.9,22,2,21762,0)="y^y^f^^n^PATCH 111^y^o^n"
^XMB(3.9,22,2,21763,0)="""FIA"",396.18,0,10)"
^XMB(3.9,22,2,21764,0)=""
^XMB(3.9,22,2,21765,0)="""FIA"",396.18,0,11)"
^XMB(3.9,22,2,21766,0)=""
^XMB(3.9,22,2,21767,0)="""FIA"",396.18,0,""RLRO"")"
^XMB(3.9,22,2,21768,0)="^DIBT(1615,1)"
^XMB(3.9,22,2,21769,0)="""FIA"",396.18,0,""VR"")"
^XMB(3.9,22,2,21770,0)="2.7^DVBA"
^XMB(3.9,22,2,21771,0)="""FIA"",396.18,396.18)"
^XMB(3.9,22,2,21772,0)="0"
^XMB(3.9,22,2,21773,0)="""FIA"",396.18,396.181)"
^XMB(3.9,22,2,21774,0)="0"
^XMB(3.9,22,2,21775,0)="""FIA"",396.18,396.184)"
^XMB(3.9,22,2,21776,0)="0"
^XMB(3.9,22,2,21777,0)="""INI"")"
^XMB(3.9,22,2,21778,0)="PRE^DVBA2811"
^XMB(3.9,22,2,21779,0)="""INIT"")"
^XMB(3.9,22,2,21780,0)="POST^DVBA2811"
^XMB(3.9,22,2,21781,0)="""MBREQ"")"
^XMB(3.9,22,2,21782,0)="0"
^XMB(3.9,22,2,21783,0)="""PKG"",223,-1)"
^XMB(3.9,22,2,21784,0)="1^1"
^XMB(3.9,22,2,21785,0)="""PKG"",223,0)"
^XMB(3.9,22,2,21786,0)="AUTOMATED MED INFO EXCHANGE^DVBA^The entire AMIE package 7131/2507."
^XMB(3.9,22,2,21787,0)="""PKG"",223,20,0)"
^XMB(3.9,22,2,21788,0)="^9.402P^^"
^XMB(3.9,22,2,21789,0)="""PKG"",223,22,0)"
^XMB(3.9,22,2,21790,0)="^9.49I^1^1"
^XMB(3.9,22,2,21791,0)="""PKG"",223,22,1,0)"
^XMB(3.9,22,2,21792,0)="2.7^2950410^3010328"
^XMB(3.9,22,2,21793,0)="""PKG"",223,22,1,""PAH"",1,0)"
^XMB(3.9,22,2,21794,0)="111^3060728"
^XMB(3.9,22,2,21795,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,22,2,21796,0)="Y"
^XMB(3.9,22,2,21797,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,22,2,21798,0)="^D REP^XPDH"
^XMB(3.9,22,2,21799,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,22,2,21800,0)="Shall I write over your |FLAG| File"
^XMB(3.9,22,2,21801,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,22,2,21802,0)="YES"
^XMB(3.9,22,2,21803,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,22,2,21804,0)="D XPF1^XPDIQ"
^XMB(3.9,22,2,21805,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,22,2,21806,0)="Y"
^XMB(3.9,22,2,21807,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,22,2,21808,0)="^D DTA^XPDH"
^XMB(3.9,22,2,21809,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,22,2,21810,0)="Want my data |FLAG| yours"
^XMB(3.9,22,2,21811,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,22,2,21812,0)="YES"
^XMB(3.9,22,2,21813,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,22,2,21814,0)="D XPF2^XPDIQ"
^XMB(3.9,22,2,21815,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,22,2,21816,0)="YO"
^XMB(3.9,22,2,21817,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,22,2,21818,0)="^D INHIBIT^XPDH"
^XMB(3.9,22,2,21819,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,22,2,21820,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,22,2,21821,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,22,2,21822,0)="YES"
^XMB(3.9,22,2,21823,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,22,2,21824,0)="D XPI1^XPDIQ"
^XMB(3.9,22,2,21825,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,22,2,21826,0)="PO^VA(200,:EM"
^XMB(3.9,22,2,21827,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,22,2,21828,0)="^D MG^XPDH"
^XMB(3.9,22,2,21829,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,22,2,21830,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,22,2,21831,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,22,2,21832,0)=""
^XMB(3.9,22,2,21833,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,22,2,21834,0)="D XPM1^XPDIQ"
^XMB(3.9,22,2,21835,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,22,2,21836,0)="Y"
^XMB(3.9,22,2,21837,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,22,2,21838,0)="^D MENU^XPDH"
^XMB(3.9,22,2,21839,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,22,2,21840,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,22,2,21841,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,22,2,21842,0)="YES"
^XMB(3.9,22,2,21843,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,22,2,21844,0)="D XPO1^XPDIQ"
^XMB(3.9,22,2,21845,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,22,2,21846,0)="Y"
^XMB(3.9,22,2,21847,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,22,2,21848,0)="^D OPT^XPDH"
^XMB(3.9,22,2,21849,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,22,2,21850,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,22,2,21851,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,22,2,21852,0)="YES"
^XMB(3.9,22,2,21853,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,22,2,21854,0)="D XPZ1^XPDIQ"
^XMB(3.9,22,2,21855,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,22,2,21856,0)="Y"
^XMB(3.9,22,2,21857,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,22,2,21858,0)="^D RTN^XPDH"
^XMB(3.9,22,2,21859,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,22,2,21860,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,22,2,21861,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,22,2,21862,0)="NO"
^XMB(3.9,22,2,21863,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,22,2,21864,0)="D XPZ2^XPDIQ"
^XMB(3.9,22,2,21865,0)="""RTN"")"
^XMB(3.9,22,2,21866,0)="1"
^XMB(3.9,22,2,21867,0)="""RTN"",""DVBA2811"")"
^XMB(3.9,22,2,21868,0)="0^1^B15849291^n/a"
^XMB(3.9,22,2,21869,0)="""RTN"",""DVBA2811"",1,0)"
^XMB(3.9,22,2,21870,0)="DVBA2811 ;SPH - PATCH DRIVER ; 5/19/06"
^XMB(3.9,22,2,21871,0)="""RTN"",""DVBA2811"",2,0)"
^XMB(3.9,22,2,21872,0)=" ;;2.7;AMIE;**111**;Apr 10, 1995"
^XMB(3.9,22,2,21873,0)="""RTN"",""DVBA2811"",3,0)"
^XMB(3.9,22,2,21874,0)=" ;"
^XMB(3.9,22,2,21875,0)="""RTN"",""DVBA2811"",4,0)"
^XMB(3.9,22,2,21876,0)=" ; Make sure to call each exam name being sent in the patch"
^XMB(3.9,22,2,21877,0)="""RTN"",""DVBA2811"",5,0)"
^XMB(3.9,22,2,21878,0)=" ; This routine will find existing matching entries and will ensure they're disabled."
^XMB(3.9,22,2,21879,0)="""RTN"",""DVBA2811"",6,0)"
^XMB(3.9,22,2,21880,0)=" ; Call as a pre-init or else it'll disable the exams just loaded."
^XMB(3.9,22,2,21881,0)="""RTN"",""DVBA2811"",7,0)"
^XMB(3.9,22,2,21882,0)="PRE ;"
^XMB(3.9,22,2,21883,0)="""RTN"",""DVBA2811"",8,0)"
^XMB(3.9,22,2,21884,0)=" N DVBVERSS,DVBVERSN"
^XMB(3.9,22,2,21885,0)="""RTN"",""DVBA2811"",9,0)"
^XMB(3.9,22,2,21886,0)=" S DVBVERSS=""111F"" ; What the version will be in the incoming file"
^XMB(3.9,22,2,21887,0)="""RTN"",""DVBA2811"",10,0)"
^XMB(3.9,22,2,21888,0)=" S DVBVERSN=""111"" ; What the final version should be named"
^XMB(3.9,22,2,21889,0)="""RTN"",""DVBA2811"",11,0)"
^XMB(3.9,22,2,21890,0)=" W !!!,""**** PRE-PROCESSING ****"",!!"
^XMB(3.9,22,2,21891,0)="""RTN"",""DVBA2811"",12,0)"
^XMB(3.9,22,2,21892,0)=" D DISABLE(""EPILEPSY AND NARCOLEPSY"")"
^XMB(3.9,22,2,21893,0)="""RTN"",""DVBA2811"",13,0)"
^XMB(3.9,22,2,21894,0)=" D DISABLE(""ESOPHAGUS AND HIATAL HERNIA"")"
^XMB(3.9,22,2,21895,0)="""RTN"",""DVBA2811"",14,0)"
^XMB(3.9,22,2,21896,0)=" D DISABLE(""FEET"")"
^XMB(3.9,22,2,21897,0)="""RTN"",""DVBA2811"",15,0)"
^XMB(3.9,22,2,21898,0)=" D DISABLE(""HAND, THUMB, AND FINGERS"")"
^XMB(3.9,22,2,21899,0)="""RTN"",""DVBA2811"",16,0)"
^XMB(3.9,22,2,21900,0)=" D DISABLE(""MUSCLES"")"
^XMB(3.9,22,2,21901,0)="""RTN"",""DVBA2811"",17,0)"
^XMB(3.9,22,2,21902,0)=" D DISABLE(""SKIN DISEASES (OTHER THAN SCARS)"")"
^XMB(3.9,22,2,21903,0)="""RTN"",""DVBA2811"",18,0)"
^XMB(3.9,22,2,21904,0)=" D DISABLE(""SPINE"")"
^XMB(3.9,22,2,21905,0)="""RTN"",""DVBA2811"",19,0)"
^XMB(3.9,22,2,21906,0)=" D DISABLE(""GENERAL MEDICAL EXAMINATION"")"
^XMB(3.9,22,2,21907,0)="""RTN"",""DVBA2811"",20,0)"
^XMB(3.9,22,2,21908,0)=" Q"
^XMB(3.9,22,2,21909,0)="""RTN"",""DVBA2811"",21,0)"
^XMB(3.9,22,2,21910,0)="POST ;"
^XMB(3.9,22,2,21911,0)="""RTN"",""DVBA2811"",22,0)"
^XMB(3.9,22,2,21912,0)=" N DVBVERSS,DVBVERSN"
^XMB(3.9,22,2,21913,0)="""RTN"",""DVBA2811"",23,0)"
^XMB(3.9,22,2,21914,0)=" S DVBVERSS=""111F"" ; What the version will be in the incoming file"
^XMB(3.9,22,2,21915,0)="""RTN"",""DVBA2811"",24,0)"
^XMB(3.9,22,2,21916,0)=" S DVBVERSN=""111"" ; What the final version should be named"
^XMB(3.9,22,2,21917,0)="""RTN"",""DVBA2811"",25,0)"
^XMB(3.9,22,2,21918,0)=" W !!!,""**** POST-PROCESSING ****"",!!"
^XMB(3.9,22,2,21919,0)="""RTN"",""DVBA2811"",26,0)"
^XMB(3.9,22,2,21920,0)=" D POSTP(""EPILEPSY AND NARCOLEPSY"")"
^XMB(3.9,22,2,21921,0)="""RTN"",""DVBA2811"",27,0)"
^XMB(3.9,22,2,21922,0)=" D POSTP(""ESOPHAGUS AND HIATAL HERNIA"")"
^XMB(3.9,22,2,21923,0)="""RTN"",""DVBA2811"",28,0)"
^XMB(3.9,22,2,21924,0)=" D POSTP(""FEET"")"
^XMB(3.9,22,2,21925,0)="""RTN"",""DVBA2811"",29,0)"
^XMB(3.9,22,2,21926,0)=" D POSTP(""HAND, THUMB, AND FINGERS"")"
^XMB(3.9,22,2,21927,0)="""RTN"",""DVBA2811"",30,0)"
^XMB(3.9,22,2,21928,0)=" D POSTP(""MUSCLES"")"
^XMB(3.9,22,2,21929,0)="""RTN"",""DVBA2811"",31,0)"
^XMB(3.9,22,2,21930,0)=" D POSTP(""SKIN DISEASES (OTHER THAN SCARS)"")"
^XMB(3.9,22,2,21931,0)="""RTN"",""DVBA2811"",32,0)"
^XMB(3.9,22,2,21932,0)=" D POSTP(""SPINE"")"
^XMB(3.9,22,2,21933,0)="""RTN"",""DVBA2811"",33,0)"
^XMB(3.9,22,2,21934,0)=" D POSTP(""GENERAL MEDICAL EXAMINATION"")"
^XMB(3.9,22,2,21935,0)="""RTN"",""DVBA2811"",34,0)"
^XMB(3.9,22,2,21936,0)=" D RBXREF"
^XMB(3.9,22,2,21937,0)="""RTN"",""DVBA2811"",35,0)"
^XMB(3.9,22,2,21938,0)=" Q"
^XMB(3.9,22,2,21939,0)="""RTN"",""DVBA2811"",36,0)"
^XMB(3.9,22,2,21940,0)="POSTP(NM) ;"
^XMB(3.9,22,2,21941,0)="""RTN"",""DVBA2811"",37,0)"
^XMB(3.9,22,2,21942,0)=" ; Rename XXXXXXX~imported version to XXXXXXX~new version"
^XMB(3.9,22,2,21943,0)="""RTN"",""DVBA2811"",38,0)"
^XMB(3.9,22,2,21944,0)=" N DVBABCNT,DVBABIEN,DVBABST,DVBACH"
^XMB(3.9,22,2,21945,0)="""RTN"",""DVBA2811"",39,0)"
^XMB(3.9,22,2,21946,0)=" N DVBABCN2,DVBABIE2,DVBABS2"
^XMB(3.9,22,2,21947,0)="""RTN"",""DVBA2811"",40,0)"
^XMB(3.9,22,2,21948,0)=" S DVBABCNT=0,DVBABIEN=0"
^XMB(3.9,22,2,21949,0)="""RTN"",""DVBA2811"",41,0)"
^XMB(3.9,22,2,21950,0)=" F  S DVBABIEN=$O(^DVB(396.18,DVBABIEN)) Q:'DVBABIEN  D"
^XMB(3.9,22,2,21951,0)="""RTN"",""DVBA2811"",42,0)"
^XMB(3.9,22,2,21952,0)=" .S DVBABST=$P($G(^DVB(396.18,DVBABIEN,0)),""^"",1)"
^XMB(3.9,22,2,21953,0)="""RTN"",""DVBA2811"",43,0)"
^XMB(3.9,22,2,21954,0)=" .I $P(DVBABST,""~"",1)=NM  I $P(DVBABST,""~"",2)=DVBVERSS  D"
^XMB(3.9,22,2,21955,0)="""RTN"",""DVBA2811"",44,0)"
^XMB(3.9,22,2,21956,0)=" ..;Check and be sure the new version isn't in the file yet"
^XMB(3.9,22,2,21957,0)="""RTN"",""DVBA2811"",45,0)"
^XMB(3.9,22,2,21958,0)=" ..S DVBABCN2=0,DVBABIE2=0,DVBACH=0"
^XMB(3.9,22,2,21959,0)="""RTN"",""DVBA2811"",46,0)"
^XMB(3.9,22,2,21960,0)=" ..F  S DVBABIE2=$O(^DVB(396.18,DVBABIE2)) Q:'DVBABIE2  D"
^XMB(3.9,22,2,21961,0)="""RTN"",""DVBA2811"",47,0)"
^XMB(3.9,22,2,21962,0)=" ...S DVBABS2=$P($G(^DVB(396.18,DVBABIE2,0)),""^"",1)"
^XMB(3.9,22,2,21963,0)="""RTN"",""DVBA2811"",48,0)"
^XMB(3.9,22,2,21964,0)=" ...I $P(DVBABS2,""~"",1)=NM  I $P(DVBABS2,""~"",2)=DVBVERSN  S DVBACH=1"
^XMB(3.9,22,2,21965,0)="""RTN"",""DVBA2811"",49,0)"
^XMB(3.9,22,2,21966,0)=" ..;If new version is found, delete the import version and don't import"
^XMB(3.9,22,2,21967,0)="""RTN"",""DVBA2811"",50,0)"
^XMB(3.9,22,2,21968,0)=" ..I DVBACH=1  D"
^XMB(3.9,22,2,21969,0)="""RTN"",""DVBA2811"",51,0)"
^XMB(3.9,22,2,21970,0)=" ...W ""FOUND EXISTING ""_NM_"".  NO MODIFICATIONS MADE."",!"
^XMB(3.9,22,2,21971,0)="""RTN"",""DVBA2811"",52,0)"
^XMB(3.9,22,2,21972,0)=" ...K ^DVB(396.18,DVBABIEN)"
^XMB(3.9,22,2,21973,0)="""RTN"",""DVBA2811"",53,0)"
^XMB(3.9,22,2,21974,0)=" ..;If existing version isn't found, go ahead and rename imported entry to new version name"
^XMB(3.9,22,2,21975,0)="""RTN"",""DVBA2811"",54,0)"
^XMB(3.9,22,2,21976,0)=" ..I DVBACH=0  D"
^XMB(3.9,22,2,21977,0)="""RTN"",""DVBA2811"",55,0)"
^XMB(3.9,22,2,21978,0)=" ...S $P(^DVB(396.18,DVBABIEN,0),""^"",1)=NM_""~""_DVBVERSN"
^XMB(3.9,22,2,21979,0)="""RTN"",""DVBA2811"",56,0)"
^XMB(3.9,22,2,21980,0)=" ...W ""ACTIVATED: ""_$P($G(^DVB(396.18,DVBABIEN,0)),""^"",1),!"
^XMB(3.9,22,2,21981,0)="""RTN"",""DVBA2811"",57,0)"
^XMB(3.9,22,2,21982,0)=" K DVBABCNT,DVBABIEN,DVBABST,DVBACH"
^XMB(3.9,22,2,21983,0)="""RTN"",""DVBA2811"",58,0)"
^XMB(3.9,22,2,21984,0)=" Q"
^XMB(3.9,22,2,21985,0)="""RTN"",""DVBA2811"",59,0)"
^XMB(3.9,22,2,21986,0)="RBXREF ;"
^XMB(3.9,22,2,21987,0)="""RTN"",""DVBA2811"",60,0)"
^XMB(3.9,22,2,21988,0)=" ; Rebuild cross-references"
^XMB(3.9,22,2,21989,0)="""RTN"",""DVBA2811"",61,0)"
^XMB(3.9,22,2,21990,0)=" ; XRef: B"
^XMB(3.9,22,2,21991,0)="""RTN"",""DVBA2811"",62,0)"
^XMB(3.9,22,2,21992,0)=" W !!,""CLEANING UP FILES AND REBUILDING 2 CROSS-REFERENCES."",!,""THIS MAY TAKE A FEW MINUTES."",!"
^XMB(3.9,22,2,21993,0)="""RTN"",""DVBA2811"",63,0)"
^XMB(3.9,22,2,21994,0)=" W !!,""REBUILDING 'B' XREF, CAPRI TEMPLATE DEFINITIONS FILE"",!"
^XMB(3.9,22,2,21995,0)="""RTN"",""DVBA2811"",64,0)"
^XMB(3.9,22,2,21996,0)=" N DA,DIK,REGIEN,ROOT"
^XMB(3.9,22,2,21997,0)="""RTN"",""DVBA2811"",65,0)"
^XMB(3.9,22,2,21998,0)=" S ROOT=$$ROOT^DILFD(396.18,,1)  K @ROOT@(""B"")"
^XMB(3.9,22,2,21999,0)="""RTN"",""DVBA2811"",66,0)"
^XMB(3.9,22,2,22000,0)=" S REGIEN=0"
^XMB(3.9,22,2,22001,0)="""RTN"",""DVBA2811"",67,0)"
^XMB(3.9,22,2,22002,0)=" F  S REGIEN=$O(@ROOT@(REGIEN))  Q:'REGIEN  D"
^XMB(3.9,22,2,22003,0)="""RTN"",""DVBA2811"",68,0)"
^XMB(3.9,22,2,22004,0)=" . S DIK=$$ROOT^DILFD(396.18,"",""_REGIEN_"",""),DIK(1)="".01^B"""
^XMB(3.9,22,2,22005,0)="""RTN"",""DVBA2811"",69,0)"
^XMB(3.9,22,2,22006,0)=" . S DA(1)=REGIEN  D ENALL^DIK"
^XMB(3.9,22,2,22007,0)="""RTN"",""DVBA2811"",70,0)"
^XMB(3.9,22,2,22008,0)=" ; "
^XMB(3.9,22,2,22009,0)="""RTN"",""DVBA2811"",71,0)"
^XMB(3.9,22,2,22010,0)=" ; XRef: AV"
^XMB(3.9,22,2,22011,0)="""RTN"",""DVBA2811"",72,0)"
^XMB(3.9,22,2,22012,0)=" W !!,""REBUILDING 'AV' XREF, CAPRI TEMPLATE DEFINITIONS FILE"",!"
^XMB(3.9,22,2,22013,0)="""RTN"",""DVBA2811"",73,0)"
^XMB(3.9,22,2,22014,0)=" N DA,DIK,REGIEN,ROOT"
^XMB(3.9,22,2,22015,0)="""RTN"",""DVBA2811"",74,0)"
^XMB(3.9,22,2,22016,0)=" S ROOT=$$ROOT^DILFD(396.18,,1)  K @ROOT@(""AV"")"
^XMB(3.9,22,2,22017,0)="""RTN"",""DVBA2811"",75,0)"
^XMB(3.9,22,2,22018,0)=" S REGIEN=0"
^XMB(3.9,22,2,22019,0)="""RTN"",""DVBA2811"",76,0)"
^XMB(3.9,22,2,22020,0)=" F  S REGIEN=$O(@ROOT@(REGIEN))  Q:'REGIEN  D"
^XMB(3.9,22,2,22021,0)="""RTN"",""DVBA2811"",77,0)"
^XMB(3.9,22,2,22022,0)=" . S DIK=$$ROOT^DILFD(396.18,"",""_REGIEN_"",""),DIK(1)="".01^AV"""
^XMB(3.9,22,2,22023,0)="""RTN"",""DVBA2811"",78,0)"
^XMB(3.9,22,2,22024,0)=" . S DA(1)=REGIEN  D ENALL^DIK"
^XMB(3.9,22,2,22025,0)="""RTN"",""DVBA2811"",79,0)"
^XMB(3.9,22,2,22026,0)=" K DA,DIK,REGIEN,ROOT"
^XMB(3.9,22,2,22027,0)="""RTN"",""DVBA2811"",80,0)"
^XMB(3.9,22,2,22028,0)=" Q "
^XMB(3.9,22,2,22029,0)="""RTN"",""DVBA2811"",81,0)"
^XMB(3.9,22,2,22030,0)="DISABLE(NM) ;"
^XMB(3.9,22,2,22031,0)="""RTN"",""DVBA2811"",82,0)"
^XMB(3.9,22,2,22032,0)=" ; First look for matches and turn off the ""selectable by user field"""
^XMB(3.9,22,2,22033,0)="""RTN"",""DVBA2811"",83,0)"
^XMB(3.9,22,2,22034,0)=" ; This will keep the entry from showing in the list"
^XMB(3.9,22,2,22035,0)="""RTN"",""DVBA2811"",84,0)"
^XMB(3.9,22,2,22036,0)=" ; Next, look at disabled date.  If there's no date, set it to today."
^XMB(3.9,22,2,22037,0)="""RTN"",""DVBA2811"",85,0)"
^XMB(3.9,22,2,22038,0)=" ; File is 396.18.  Field 3 is de-activation date.  Field 7 is selectable by user (0=no)"
^XMB(3.9,22,2,22039,0)="""RTN"",""DVBA2811"",86,0)"
^XMB(3.9,22,2,22040,0)=" N DVBABCNT,DVBABIEN,DVBABST,DVBACH"
^XMB(3.9,22,2,22041,0)="""RTN"",""DVBA2811"",87,0)"
^XMB(3.9,22,2,22042,0)=" S DVBABCNT=0,DVBABIEN=0"
^XMB(3.9,22,2,22043,0)="""RTN"",""DVBA2811"",88,0)"
^XMB(3.9,22,2,22044,0)=" F  S DVBABIEN=$O(^DVB(396.18,DVBABIEN)) Q:'DVBABIEN  D"
^XMB(3.9,22,2,22045,0)="""RTN"",""DVBA2811"",89,0)"
^XMB(3.9,22,2,22046,0)=" .S DVBABST=$P($G(^DVB(396.18,DVBABIEN,0)),""^"",1)"
^XMB(3.9,22,2,22047,0)="""RTN"",""DVBA2811"",90,0)"
^XMB(3.9,22,2,22048,0)=" .I $P(DVBABST,""~"",1)=NM  I $P(DVBABST,""~"",2)'=DVBVERSN  D"
^XMB(3.9,22,2,22049,0)="""RTN"",""DVBA2811"",91,0)"
^XMB(3.9,22,2,22050,0)=" ..S DVBACH=0"
^XMB(3.9,22,2,22051,0)="""RTN"",""DVBA2811"",92,0)"
^XMB(3.9,22,2,22052,0)=" ..I $P(^DVB(396.18,DVBABIEN,6),""^"",1)'=""0""  S $P(^DVB(396.18,DVBABIEN,6),""^"",1)=""0"",DVBACH=1"
^XMB(3.9,22,2,22053,0)="""RTN"",""DVBA2811"",93,0)"
^XMB(3.9,22,2,22054,0)=" ..I $P(^DVB(396.18,DVBABIEN,2),""^"",2)=""""  S $P(^DVB(396.18,DVBABIEN,2),""^"",2)=DT,DVBACH=1  ; This is deactivation date "
^XMB(3.9,22,2,22055,0)="""RTN"",""DVBA2811"",94,0)"
^XMB(3.9,22,2,22056,0)=" ..I DVBACH=1  W ""MODIFIED: ""_DVBABST,!"
^XMB(3.9,22,2,22057,0)="""RTN"",""DVBA2811"",95,0)"
^XMB(3.9,22,2,22058,0)=" K DVBABCNT,DVBABIEN,DVBABST,DVBACH"
^XMB(3.9,22,2,22059,0)="""RTN"",""DVBA2811"",96,0)"
^XMB(3.9,22,2,22060,0)=" Q"
^XMB(3.9,22,2,22061,0)="""SEC"",""^DIC"",396.17,396.17,0,""AUDIT"")"
^XMB(3.9,22,2,22062,0)="@"
^XMB(3.9,22,2,22063,0)="""SEC"",""^DIC"",396.17,396.17,0,""DD"")"
^XMB(3.9,22,2,22064,0)="@"
^XMB(3.9,22,2,22065,0)="""SEC"",""^DIC"",396.17,396.17,0,""DEL"")"
^XMB(3.9,22,2,22066,0)="@"
^XMB(3.9,22,2,22067,0)="""SEC"",""^DIC"",396.17,396.17,0,""LAYGO"")"
^XMB(3.9,22,2,22068,0)="@"
^XMB(3.9,22,2,22069,0)="""SEC"",""^DIC"",396.17,396.17,0,""RD"")"
^XMB(3.9,22,2,22070,0)="@"
^XMB(3.9,22,2,22071,0)="""SEC"",""^DIC"",396.17,396.17,0,""WR"")"
^XMB(3.9,22,2,22072,0)="@"
^XMB(3.9,22,2,22073,0)="""SEC"",""^DIC"",396.18,396.18,0,""AUDIT"")"
^XMB(3.9,22,2,22074,0)="@"
^XMB(3.9,22,2,22075,0)="""SEC"",""^DIC"",396.18,396.18,0,""DD"")"
^XMB(3.9,22,2,22076,0)="@"
^XMB(3.9,22,2,22077,0)="""SEC"",""^DIC"",396.18,396.18,0,""DEL"")"
^XMB(3.9,22,2,22078,0)="@"
^XMB(3.9,22,2,22079,0)="""SEC"",""^DIC"",396.18,396.18,0,""LAYGO"")"
^XMB(3.9,22,2,22080,0)="@"
^XMB(3.9,22,2,22081,0)="""SEC"",""^DIC"",396.18,396.18,0,""RD"")"
^XMB(3.9,22,2,22082,0)="@"
^XMB(3.9,22,2,22083,0)="""SEC"",""^DIC"",396.18,396.18,0,""WR"")"
^XMB(3.9,22,2,22084,0)="@"
^XMB(3.9,22,2,22085,0)="""VER"")"
^XMB(3.9,22,2,22086,0)="8.0^22.0"
^XMB(3.9,22,2,22087,0)="""^DD"",396.17,396.17,0)"
^XMB(3.9,22,2,22088,0)="FIELD^^22^22"
^XMB(3.9,22,2,22089,0)="""^DD"",396.17,396.17,0,""DDA"")"
^XMB(3.9,22,2,22090,0)="N"
^XMB(3.9,22,2,22091,0)="""^DD"",396.17,396.17,0,""DT"")"
^XMB(3.9,22,2,22092,0)="3060619"
^XMB(3.9,22,2,22093,0)="""^DD"",396.17,396.17,0,""ID"",9)"
^XMB(3.9,22,2,22094,0)="W:$D(^(4)) ""   "",$P(^(4),U,1)"
^XMB(3.9,22,2,22095,0)="""^DD"",396.17,396.17,0,""IX"",""AC"",396.17,16)"
^XMB(3.9,22,2,22096,0)=""
^XMB(3.9,22,2,22097,0)="""^DD"",396.17,396.17,0,""IX"",""AT"",396.17,2)"
^XMB(3.9,22,2,22098,0)=""
^XMB(3.9,22,2,22099,0)="""^DD"",396.17,396.17,0,""IX"",""B"",396.17,.01)"
^XMB(3.9,22,2,22100,0)=""
^XMB(3.9,22,2,22101,0)="""^DD"",396.17,396.17,0,""IX"",""C"",396.17,5)"
^XMB(3.9,22,2,22102,0)=""
^XMB(3.9,22,2,22103,0)="""^DD"",396.17,396.17,0,""IX"",""FT"",396.17,9)"
^XMB(3.9,22,2,22104,0)=""
^XMB(3.9,22,2,22105,0)="""^DD"",396.17,396.17,0,""IX"",""ID"",396.1715,2)"
^XMB(3.9,22,2,22106,0)=""
^XMB(3.9,22,2,22107,0)="""^DD"",396.17,396.17,0,""IX"",""RS"",396.17,11)"
^XMB(3.9,22,2,22108,0)=""
^XMB(3.9,22,2,22109,0)="""^DD"",396.17,396.17,0,""IX"",""TR"",396.17,10)"
^XMB(3.9,22,2,22110,0)=""
^XMB(3.9,22,2,22111,0)="""^DD"",396.17,396.17,0,""NM"",""CAPRI TEMPLATES"")"
^XMB(3.9,22,2,22112,0)=" "
^XMB(3.9,22,2,22113,0)="""^DD"",396.17,396.17,0,""PT"",396.4,1)"
^XMB(3.9,22,2,22114,0)=""
^XMB(3.9,22,2,22115,0)="""^DD"",396.17,396.17,0,""VRPK"")"
^XMB(3.9,22,2,22116,0)="DVBA"
^XMB(3.9,22,2,22117,0)="""^DD"",396.17,396.17,.001,0)"
^XMB(3.9,22,2,22118,0)="NUMBER^NJ12,0a^^ ^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^XMB(3.9,22,2,22119,0)="""^DD"",396.17,396.17,.001,3)"
^XMB(3.9,22,2,22120,0)="Type a Number between 0 and 999999999999, 0 Decimal Digits"
^XMB(3.9,22,2,22121,0)="""^DD"",396.17,396.17,.001,21,0)"
^XMB(3.9,22,2,22122,0)="^^2^2^3030530^"
^XMB(3.9,22,2,22123,0)="""^DD"",396.17,396.17,.001,21,1,0)"
^XMB(3.9,22,2,22124,0)="This field is used to maintain a tracking ID # used internally in "
^XMB(3.9,22,2,22125,0)="""^DD"",396.17,396.17,.001,21,2,0)"
^XMB(3.9,22,2,22126,0)="the CAPRI Delphi client."
^XMB(3.9,22,2,22127,0)="""^DD"",396.17,396.17,.001,""AUDIT"")"
^XMB(3.9,22,2,22128,0)="e"
^XMB(3.9,22,2,22129,0)="""^DD"",396.17,396.17,.001,""DT"")"
^XMB(3.9,22,2,22130,0)="3060428"
^XMB(3.9,22,2,22131,0)="""^DD"",396.17,396.17,.01,0)"
^XMB(3.9,22,2,22132,0)="NAME^P2'a^DPT(^0;1^Q"
^XMB(3.9,22,2,22133,0)="""^DD"",396.17,396.17,.01,1,0)"
^XMB(3.9,22,2,22134,0)="^.1"
^XMB(3.9,22,2,22135,0)="""^DD"",396.17,396.17,.01,1,1,0)"
^XMB(3.9,22,2,22136,0)="396.17^B"
^XMB(3.9,22,2,22137,0)="""^DD"",396.17,396.17,.01,1,1,1)"
^XMB(3.9,22,2,22138,0)="S ^DVB(396.17,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,22,2,22139,0)="""^DD"",396.17,396.17,.01,1,1,2)"
^XMB(3.9,22,2,22140,0)="K ^DVB(396.17,""B"",$E(X,1,30),DA)"
^XMB(3.9,22,2,22141,0)="""^DD"",396.17,396.17,.01,3)"
^XMB(3.9,22,2,22142,0)=" "
^XMB(3.9,22,2,22143,0)="""^DD"",396.17,396.17,.01,21,0)"
^XMB(3.9,22,2,22144,0)="^.001^1^1^3050428^^"
^XMB(3.9,22,2,22145,0)="""^DD"",396.17,396.17,.01,21,1,0)"
^XMB(3.9,22,2,22146,0)="Pointer field to the PATIENT (#2) file to link the document to a patient."
^XMB(3.9,22,2,22147,0)="""^DD"",396.17,396.17,.01,""AUDIT"")"
^XMB(3.9,22,2,22148,0)="e"
^XMB(3.9,22,2,22149,0)="""^DD"",396.17,396.17,.01,""DT"")"
^XMB(3.9,22,2,22150,0)="3060428"
^XMB(3.9,22,2,22151,0)="""^DD"",396.17,396.17,2,0)"
^XMB(3.9,22,2,22152,0)="AUTHOR^P200'^VA(200,^0;2^Q"
^XMB(3.9,22,2,22153,0)="""^DD"",396.17,396.17,2,1,0)"
^XMB(3.9,22,2,22154,0)="^.1"
^XMB(3.9,22,2,22155,0)="""^DD"",396.17,396.17,2,1,1,0)"
^XMB(3.9,22,2,22156,0)="396.17^AT"
^XMB(3.9,22,2,22157,0)="""^DD"",396.17,396.17,2,1,1,1)"
^XMB(3.9,22,2,22158,0)="S ^DVB(396.17,""AT"",$E(X,1,30),DA)="""""
^XMB(3.9,22,2,22159,0)="""^DD"",396.17,396.17,2,1,1,2)"
^XMB(3.9,22,2,22160,0)="K ^DVB(396.17,""AT"",$E(X,1,30),DA)"
^XMB(3.9,22,2,22161,0)="""^DD"",396.17,396.17,2,1,1,""DT"")"
^XMB(3.9,22,2,22162,0)="3030530"
^XMB(3.9,22,2,22163,0)="""^DD"",396.17,396.17,2,21,0)"
^XMB(3.9,22,2,22164,0)="^^2^2^3030530^"
^XMB(3.9,22,2,22165,0)="""^DD"",396.17,396.17,2,21,1,0)"
^XMB(3.9,22,2,22166,0)="Pointer field to NEW PERSON (#200) file to link document to a user "
^XMB(3.9,22,2,22167,0)="""^DD"",396.17,396.17,2,21,2,0)"
^XMB(3.9,22,2,22168,0)="responsible for managing the document in CAPRI."
^XMB(3.9,22,2,22169,0)="""^DD"",396.17,396.17,2,""DT"")"
^XMB(3.9,22,2,22170,0)="3030530"
^XMB(3.9,22,2,22171,0)="""^DD"",396.17,396.17,3,0)"
^XMB(3.9,22,2,22172,0)="DATE/TIME ENTERED^Da^^0;3^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,22,2,22173,0)="""^DD"",396.17,396.17,3,21,0)"
^XMB(3.9,22,2,22174,0)="^^2^2^3030530^"
^XMB(3.9,22,2,22175,0)="""^DD"",396.17,396.17,3,21,1,0)"
^XMB(3.9,22,2,22176,0)="This field is used to record the exact date/time the document was "
^XMB(3.9,22,2,22177,0)="""^DD"",396.17,396.17,3,21,2,0)"
^XMB(3.9,22,2,22178,0)="originally started.  "
^XMB(3.9,22,2,22179,0)="""^DD"",396.17,396.17,3,""AUDIT"")"
^XMB(3.9,22,2,22180,0)="e"
^XMB(3.9,22,2,22181,0)="""^DD"",396.17,396.17,3,""DT"")"
^XMB(3.9,22,2,22182,0)="3060428"
^XMB(3.9,22,2,22183,0)="""^DD"",396.17,396.17,4,0)"
^XMB(3.9,22,2,22184,0)="DATE/TIME UPDATED^Da^^0;4^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,22,2,22185,0)="""^DD"",396.17,396.17,4,21,0)"
^XMB(3.9,22,2,22186,0)="^^4^4^3030530^"
^XMB(3.9,22,2,22187,0)="""^DD"",396.17,396.17,4,21,1,0)"
^XMB(3.9,22,2,22188,0)="This field records the last time data was saved back to VistA.  It will "
^XMB(3.9,22,2,22189,0)="""^DD"",396.17,396.17,4,21,2,0)"
^XMB(3.9,22,2,22190,0)="be updated during auto-saves, at signature, and if the user saves their "
^XMB(3.9,22,2,22191,0)="""^DD"",396.17,396.17,4,21,3,0)"
^XMB(3.9,22,2,22192,0)="document from within CAPRI.  It will not be updated if a reviewer works "
^XMB(3.9,22,2,22193,0)="""^DD"",396.17,396.17,4,21,4,0)"
^XMB(3.9,22,2,22194,0)="with the document unless information is changed in the form fields."
^XMB(3.9,22,2,22195,0)="""^DD"",396.17,396.17,4,""AUDIT"")"
^XMB(3.9,22,2,22196,0)="e"
^XMB(3.9,22,2,22197,0)="""^DD"",396.17,396.17,4,""DT"")"
^XMB(3.9,22,2,22198,0)="3060428"
^XMB(3.9,22,2,22199,0)="""^DD"",396.17,396.17,5,0)"
^XMB(3.9,22,2,22200,0)="DATE/TIME LOCKED^D^^0;5^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,22,2,22201,0)="""^DD"",396.17,396.17,5,1,0)"
^XMB(3.9,22,2,22202,0)="^.1"
^XMB(3.9,22,2,22203,0)="""^DD"",396.17,396.17,5,1,1,0)"
^XMB(3.9,22,2,22204,0)="396.17^C"
^XMB(3.9,22,2,22205,0)="""^DD"",396.17,396.17,5,1,1,1)"
^XMB(3.9,22,2,22206,0)="S ^DVB(396.17,""C"",$E(X,1,30),DA)="""""
^XMB(3.9,22,2,22207,0)="""^DD"",396.17,396.17,5,1,1,2)"
^XMB(3.9,22,2,22208,0)="K ^DVB(396.17,""C"",$E(X,1,30),DA)"
^XMB(3.9,22,2,22209,0)="""^DD"",396.17,396.17,5,1,1,""DT"")"
^XMB(3.9,22,2,22210,0)="3021024"
^XMB(3.9,22,2,22211,0)="""^DD"",396.17,396.17,5,21,0)"
^XMB(3.9,22,2,22212,0)="^^3^3^3030530^"
^XMB(3.9,22,2,22213,0)="""^DD"",396.17,396.17,5,21,1,0)"
^XMB(3.9,22,2,22214,0)="This field will be filled in at the time the note is transferred to TIU.  "
^XMB(3.9,22,2,22215,0)="""^DD"",396.17,396.17,5,21,2,0)"
^XMB(3.9,22,2,22216,0)="This will prevent further modification of the document contents by "
^XMB(3.9,22,2,22217,0)="""^DD"",396.17,396.17,5,21,3,0)"
^XMB(3.9,22,2,22218,0)="reviewer or author."
^XMB(3.9,22,2,22219,0)="""^DD"",396.17,396.17,5,""DT"")"
^XMB(3.9,22,2,22220,0)="3030530"
^XMB(3.9,22,2,22221,0)="""^DD"",396.17,396.17,6,0)"
^XMB(3.9,22,2,22222,0)="TEMPLATES UTILIZED^396.176^^1;0"
^XMB(3.9,22,2,22223,0)="""^DD"",396.17,396.17,6,21,0)"
^XMB(3.9,22,2,22224,0)="^^3^3^3030530^"
^XMB(3.9,22,2,22225,0)="""^DD"",396.17,396.17,6,21,1,0)"
^XMB(3.9,22,2,22226,0)="A document may be made up of more than one of the predefined C&P "
^XMB(3.9,22,2,22227,0)="""^DD"",396.17,396.17,6,21,2,0)"
^XMB(3.9,22,2,22228,0)="templates.  This word processing field will store each template utilized"
^XMB(3.9,22,2,22229,0)="""^DD"",396.17,396.17,6,21,3,0)"
^XMB(3.9,22,2,22230,0)="during the documentation process on a separate line."
^XMB(3.9,22,2,22231,0)="""^DD"",396.17,396.17,7,0)"
^XMB(3.9,22,2,22232,0)="TIU DOCUMENT NUMBER^NJ15,0^^2;1^K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^XMB(3.9,22,2,22233,0)="""^DD"",396.17,396.17,7,3)"
^XMB(3.9,22,2,22234,0)="Type a Number between 0 and 999999999999999, 0 Decimal Digits"
^XMB(3.9,22,2,22235,0)="""^DD"",396.17,396.17,7,21,0)"
^XMB(3.9,22,2,22236,0)="^^3^3^3030530^"
^XMB(3.9,22,2,22237,0)="""^DD"",396.17,396.17,7,21,1,0)"
^XMB(3.9,22,2,22238,0)="After the document is completed and transferred into TIU as an ASCII "
^XMB(3.9,22,2,22239,0)="""^DD"",396.17,396.17,7,21,2,0)"
^XMB(3.9,22,2,22240,0)="report, the new TIU file/document number will be stored in this field for "
^XMB(3.9,22,2,22241,0)="""^DD"",396.17,396.17,7,21,3,0)"
^XMB(3.9,22,2,22242,0)="auditing/validation purposes later. "
^XMB(3.9,22,2,22243,0)="""^DD"",396.17,396.17,7,""DT"")"
^XMB(3.9,22,2,22244,0)="3030530"
^XMB(3.9,22,2,22245,0)="""^DD"",396.17,396.17,8,0)"
^XMB(3.9,22,2,22246,0)="FORM DATA^396.178^^3;0"
^XMB(3.9,22,2,22247,0)="""^DD"",396.17,396.17,8,21,0)"
^XMB(3.9,22,2,22248,0)="^.001^6^6^3030530^^^"
^XMB(3.9,22,2,22249,0)="""^DD"",396.17,396.17,8,21,1,0)"
^XMB(3.9,22,2,22250,0)="All of the MS Windows generated ascii code to re-populate GUI form fields"
^XMB(3.9,22,2,22251,0)="""^DD"",396.17,396.17,8,21,2,0)"
^XMB(3.9,22,2,22252,0)="will be stored in this field.  A standard Windows API is used to generate"
^XMB(3.9,22,2,22253,0)="""^DD"",396.17,396.17,8,21,3,0)"
^XMB(3.9,22,2,22254,0)="this text."
^XMB(3.9,22,2,22255,0)="""^DD"",396.17,396.17,8,21,4,0)"
^XMB(3.9,22,2,22256,0)=" "
^XMB(3.9,22,2,22257,0)="""^DD"",396.17,396.17,8,21,5,0)"
^XMB(3.9,22,2,22258,0)="WARNING:  DO NOT EDIT THIS FIELD OR THE DOCUMENT MAY BECOME CORRUPT AND"
^XMB(3.9,22,2,22259,0)="""^DD"",396.17,396.17,8,21,6,0)"
^XMB(3.9,22,2,22260,0)="INACCESSIBLE FROM THE GUI."
^XMB(3.9,22,2,22261,0)="""^DD"",396.17,396.17,8.5,0)"
^XMB(3.9,22,2,22262,0)="FORM SAVE BUFFER^396.19D^^9;0"
^XMB(3.9,22,2,22263,0)="""^DD"",396.17,396.17,8.5,21,0)"
^XMB(3.9,22,2,22264,0)="^.001^5^5^3050314^^^^"
^XMB(3.9,22,2,22265,0)="""^DD"",396.17,396.17,8.5,21,1,0)"
^XMB(3.9,22,2,22266,0)="Snapshots of the user's template data each time they exit the template in "
^XMB(3.9,22,2,22267,0)="""^DD"",396.17,396.17,8.5,21,2,0)"
^XMB(3.9,22,2,22268,0)="the GUI will be stored here.  They'll be used in case of template "
^XMB(3.9,22,2,22269,0)="""^DD"",396.17,396.17,8.5,21,3,0)"
^XMB(3.9,22,2,22270,0)="corruption or if the user wishes to revert to an earlier version of their "
^XMB(3.9,22,2,22271,0)="""^DD"",396.17,396.17,8.5,21,4,0)"
^XMB(3.9,22,2,22272,0)="work.  Once a form is signed and successfully in TIU, then the data in "
^XMB(3.9,22,2,22273,0)="""^DD"",396.17,396.17,8.5,21,5,0)"
^XMB(3.9,22,2,22274,0)="this field will be removed."
^XMB(3.9,22,2,22275,0)="""^DD"",396.17,396.17,9,0)"
^XMB(3.9,22,2,22276,0)="FORM TITLE^F^^4;1^K:$L(X)>250!($L(X)<1) X"
^XMB(3.9,22,2,22277,0)="""^DD"",396.17,396.17,9,1,0)"
^XMB(3.9,22,2,22278,0)="^.1"
^XMB(3.9,22,2,22279,0)="""^DD"",396.17,396.17,9,1,1,0)"
^XMB(3.9,22,2,22280,0)="396.17^FT"
^XMB(3.9,22,2,22281,0)="""^DD"",396.17,396.17,9,1,1,1)"
^XMB(3.9,22,2,22282,0)="S ^DVB(396.17,""FT"",$E(X,1,30),DA)="""""
^XMB(3.9,22,2,22283,0)="""^DD"",396.17,396.17,9,1,1,2)"
^XMB(3.9,22,2,22284,0)="K ^DVB(396.17,""FT"",$E(X,1,30),DA)"
^XMB(3.9,22,2,22285,0)="""^DD"",396.17,396.17,9,1,1,""DT"")"
^XMB(3.9,22,2,22286,0)="3030530"
^XMB(3.9,22,2,22287,0)="""^DD"",396.17,396.17,9,3)"
^XMB(3.9,22,2,22288,0)="Answer must be 1-250 characters in length."
^XMB(3.9,22,2,22289,0)="""^DD"",396.17,396.17,9,21,0)"
^XMB(3.9,22,2,22290,0)="^.001^2^2^3031009^^"
^XMB(3.9,22,2,22291,0)="""^DD"",396.17,396.17,9,21,1,0)"
^XMB(3.9,22,2,22292,0)="The text in this field will be displayed in CAPRI as the document title "
^XMB(3.9,22,2,22293,0)="""^DD"",396.17,396.17,9,21,2,0)"
^XMB(3.9,22,2,22294,0)="in lists and reports."
^XMB(3.9,22,2,22295,0)="""^DD"",396.17,396.17,9,""DT"")"
^XMB(3.9,22,2,22296,0)="3031009"
^XMB(3.9,22,2,22297,0)="""^DD"",396.17,396.17,10,0)"
^XMB(3.9,22,2,22298,0)="TRANSCRIBER^P200'^VA(200,^5;1^Q"
^XMB(3.9,22,2,22299,0)="""^DD"",396.17,396.17,10,1,0)"
^XMB(3.9,22,2,22300,0)="^.1"
^XMB(3.9,22,2,22301,0)="""^DD"",396.17,396.17,10,1,1,0)"
^XMB(3.9,22,2,22302,0)="396.17^TR"
^XMB(3.9,22,2,22303,0)="""^DD"",396.17,396.17,10,1,1,1)"
^XMB(3.9,22,2,22304,0)="S ^DVB(396.17,""TR"",$E(X,1,30),DA)="""""
^XMB(3.9,22,2,22305,0)="""^DD"",396.17,396.17,10,1,1,2)"
^XMB(3.9,22,2,22306,0)="K ^DVB(396.17,""TR"",$E(X,1,30),DA)"
^XMB(3.9,22,2,22307,0)="""^DD"",396.17,396.17,10,1,1,""DT"")"
^XMB(3.9,22,2,22308,0)="3030530"
^XMB(3.9,22,2,22309,0)="""^DD"",396.17,396.17,10,21,0)"
^XMB(3.9,22,2,22310,0)="^^3^3^3030530^"
^XMB(3.9,22,2,22311,0)="""^DD"",396.17,396.17,10,21,1,0)"
^XMB(3.9,22,2,22312,0)="If the document is created for someone, the individual who created the "
^XMB(3.9,22,2,22313,0)="""^DD"",396.17,396.17,10,21,2,0)"
^XMB(3.9,22,2,22314,0)="document will be placed into this field.  For example, a clerk may create "
^XMB(3.9,22,2,22315,0)="""^DD"",396.17,396.17,10,21,3,0)"
^XMB(3.9,22,2,22316,0)="a document for a physician in advance of an appointment."
^XMB(3.9,22,2,22317,0)="""^DD"",396.17,396.17,10,""DT"")"
^XMB(3.9,22,2,22318,0)="3030530"
^XMB(3.9,22,2,22319,0)="""^DD"",396.17,396.17,11,0)"
^XMB(3.9,22,2,22320,0)="REVIEW STATUS^Sa^P:REVIEW PENDING;N:NOT REQUIRED;S:SENT BACK;C:COMPLETE;D:DRAFT/NOT READY;A:AWAITING SIGNATURE;U:UNCOSIGNED;L:DELETED;^5;2^Q"
^XMB(3.9,22,2,22321,0)="""^DD"",396.17,396.17,11,1,0)"
^XMB(3.9,22,2,22322,0)="^.1"
^XMB(3.9,22,2,22323,0)="""^DD"",396.17,396.17,11,1,1,0)"
^XMB(3.9,22,2,22324,0)="396.17^RS"
^XMB(3.9,22,2,22325,0)="""^DD"",396.17,396.17,11,1,1,1)"
^XMB(3.9,22,2,22326,0)="S ^DVB(396.17,""RS"",$E(X,1,30),DA)="""""
^XMB(3.9,22,2,22327,0)="""^DD"",396.17,396.17,11,1,1,2)"
^XMB(3.9,22,2,22328,0)="K ^DVB(396.17,""RS"",$E(X,1,30),DA)"
^XMB(3.9,22,2,22329,0)="""^DD"",396.17,396.17,11,1,1,""DT"")"
^XMB(3.9,22,2,22330,0)="3030530"
^XMB(3.9,22,2,22331,0)="""^DD"",396.17,396.17,11,21,0)"
^XMB(3.9,22,2,22332,0)="^.001^7^7^3060519^^^"
^XMB(3.9,22,2,22333,0)="""^DD"",396.17,396.17,11,21,1,0)"
^XMB(3.9,22,2,22334,0)="This field is used when the reviewer functionality is activated within "
^XMB(3.9,22,2,22335,0)="""^DD"",396.17,396.17,11,21,2,0)"
^XMB(3.9,22,2,22336,0)="the CAPRI GUI to find documents that may be new and need review.  In "
^XMB(3.9,22,2,22337,0)="""^DD"",396.17,396.17,11,21,3,0)"
^XMB(3.9,22,2,22338,0)="addition, if the field is set to SENT BACK, then the original author will "
^XMB(3.9,22,2,22339,0)="""^DD"",396.17,396.17,11,21,4,0)"
^XMB(3.9,22,2,22340,0)="be notified in the CAPRI GUI that they have a document returned to them "
^XMB(3.9,22,2,22341,0)="""^DD"",396.17,396.17,11,21,5,0)"
^XMB(3.9,22,2,22342,0)="from the reviewer.  The field will be set to the current document status "
^XMB(3.9,22,2,22343,0)="""^DD"",396.17,396.17,11,21,6,0)"
^XMB(3.9,22,2,22344,0)="and may be cycled through several values before the document is finally "
^XMB(3.9,22,2,22345,0)="""^DD"",396.17,396.17,11,21,7,0)"
^XMB(3.9,22,2,22346,0)="completed."
^XMB(3.9,22,2,22347,0)="""^DD"",396.17,396.17,11,""AUDIT"")"
^XMB(3.9,22,2,22348,0)="y"
^XMB(3.9,22,2,22349,0)="""^DD"",396.17,396.17,11,""DT"")"
^XMB(3.9,22,2,22350,0)="3060519"
^XMB(3.9,22,2,22351,0)="""^DD"",396.17,396.17,14,0)"
^XMB(3.9,22,2,22352,0)="REVIEW DATE/TIME^396.1714D^^6;0"
^XMB(3.9,22,2,22353,0)="""^DD"",396.17,396.17,15,0)"
^XMB(3.9,22,2,22354,0)="FORM SAVED DATA^396.1715^^7;0"
^XMB(3.9,22,2,22355,0)="""^DD"",396.17,396.17,16,0)"
^XMB(3.9,22,2,22356,0)="LOCKED?^S^0:NO;1:YES;^8;1^Q"
^XMB(3.9,22,2,22357,0)="""^DD"",396.17,396.17,16,1,0)"
^XMB(3.9,22,2,22358,0)="^.1"
^XMB(3.9,22,2,22359,0)="""^DD"",396.17,396.17,16,1,1,0)"
^XMB(3.9,22,2,22360,0)="396.17^AC"
^XMB(3.9,22,2,22361,0)="""^DD"",396.17,396.17,16,1,1,1)"
^XMB(3.9,22,2,22362,0)="S ^DVB(396.17,""AC"",$E(X,1,30),DA)="""""
^XMB(3.9,22,2,22363,0)="""^DD"",396.17,396.17,16,1,1,2)"
^XMB(3.9,22,2,22364,0)="K ^DVB(396.17,""AC"",$E(X,1,30),DA)"
^XMB(3.9,22,2,22365,0)="""^DD"",396.17,396.17,16,1,1,""DT"")"
^XMB(3.9,22,2,22366,0)="3031113"
^XMB(3.9,22,2,22367,0)="""^DD"",396.17,396.17,16,21,0)"
^XMB(3.9,22,2,22368,0)="^^3^3^3031113^"
^XMB(3.9,22,2,22369,0)="""^DD"",396.17,396.17,16,21,1,0)"
^XMB(3.9,22,2,22370,0)="This field is used to find forms that require some action by the user."
^XMB(3.9,22,2,22371,0)="""^DD"",396.17,396.17,16,21,2,0)"
^XMB(3.9,22,2,22372,0)="Once the template has been uploaded to TIU, the value in this field will "
^XMB(3.9,22,2,22373,0)="""^DD"",396.17,396.17,16,21,3,0)"
^XMB(3.9,22,2,22374,0)="be deleted."
^XMB(3.9,22,2,22375,0)="""^DD"",396.17,396.17,16,""DT"")"
^XMB(3.9,22,2,22376,0)="3031113"
^XMB(3.9,22,2,22377,0)="""^DD"",396.17,396.17,17,0)"
^XMB(3.9,22,2,22378,0)="IN USE^F^^8;2^K:$L(X)>200!($L(X)<3) X"
^XMB(3.9,22,2,22379,0)="""^DD"",396.17,396.17,17,3)"
^XMB(3.9,22,2,22380,0)="Answer must be 3-200 characters in length."
^XMB(3.9,22,2,22381,0)="""^DD"",396.17,396.17,17,21,0)"
^XMB(3.9,22,2,22382,0)="^^11^11^3050128^"
^XMB(3.9,22,2,22383,0)="""^DD"",396.17,396.17,17,21,1,0)"
^XMB(3.9,22,2,22384,0)="Once a form has been opened in the GUI, this field will be populated with "
^XMB(3.9,22,2,22385,0)="""^DD"",396.17,396.17,17,21,2,0)"
^XMB(3.9,22,2,22386,0)="identifying information - user DUZ^date/time file was opened.  It "
^XMB(3.9,22,2,22387,0)="""^DD"",396.17,396.17,17,21,3,0)"
^XMB(3.9,22,2,22388,0)="will be left in edit mode in the GUI fileman components until the user "
^XMB(3.9,22,2,22389,0)="""^DD"",396.17,396.17,17,21,4,0)"
^XMB(3.9,22,2,22390,0)="exits.  The data will then be cleared and the field exited on the GUI "
^XMB(3.9,22,2,22391,0)="""^DD"",396.17,396.17,17,21,5,0)"
^XMB(3.9,22,2,22392,0)="side. If the application is terminated prematurely, the lock is"
^XMB(3.9,22,2,22393,0)="""^DD"",396.17,396.17,17,21,6,0)"
^XMB(3.9,22,2,22394,0)="automatically dropped."
^XMB(3.9,22,2,22395,0)="""^DD"",396.17,396.17,17,21,7,0)"
^XMB(3.9,22,2,22396,0)=" "
^XMB(3.9,22,2,22397,0)="""^DD"",396.17,396.17,17,21,8,0)"
^XMB(3.9,22,2,22398,0)="By leaving the field in edit mode throughout the session, until the user "
^XMB(3.9,22,2,22399,0)="""^DD"",396.17,396.17,17,21,9,0)"
^XMB(3.9,22,2,22400,0)="closes their template, other CAPRI instances will be able to tell that "
^XMB(3.9,22,2,22401,0)="""^DD"",396.17,396.17,17,21,10,0)"
^XMB(3.9,22,2,22402,0)="someone is using the record and prevent other users from changing the "
^XMB(3.9,22,2,22403,0)="""^DD"",396.17,396.17,17,21,11,0)"
^XMB(3.9,22,2,22404,0)="data until the first user exits."
^XMB(3.9,22,2,22405,0)="""^DD"",396.17,396.17,17,""DT"")"
^XMB(3.9,22,2,22406,0)="3050128"
^XMB(3.9,22,2,22407,0)="""^DD"",396.17,396.17,18,0)"
^XMB(3.9,22,2,22408,0)="AMIE EXAMS^396.1718P^^10;0"
^XMB(3.9,22,2,22409,0)="""^DD"",396.17,396.17,19,0)"
^XMB(3.9,22,2,22410,0)="FLAG NEW^S^0:N;1:Y;^11;1^Q"
^XMB(3.9,22,2,22411,0)="""^DD"",396.17,396.17,19,""DT"")"
^XMB(3.9,22,2,22412,0)="3051103"
^XMB(3.9,22,2,22413,0)="""^DD"",396.17,396.17,20,0)"
^XMB(3.9,22,2,22414,0)="FLAG GREEN FLAG^S^0:N;1:Y;^11;2^Q"
^XMB(3.9,22,2,22415,0)="""^DD"",396.17,396.17,20,""DT"")"
^XMB(3.9,22,2,22416,0)="3051103"
^XMB(3.9,22,2,22417,0)="""^DD"",396.17,396.17,21,0)"
^XMB(3.9,22,2,22418,0)="FLAG EXCLAMATION^S^0:N;1:Y;^11;3^Q"
^XMB(3.9,22,2,22419,0)="""^DD"",396.17,396.17,21,""DT"")"
^XMB(3.9,22,2,22420,0)="3051103"
^XMB(3.9,22,2,22421,0)="""^DD"",396.17,396.17,22,0)"
^XMB(3.9,22,2,22422,0)="PERFORMANCE USE DATA^F^^12;1^K:$L(X)>250!($L(X)<1) X"
^XMB(3.9,22,2,22423,0)="""^DD"",396.17,396.17,22,3)"
^XMB(3.9,22,2,22424,0)="Answer must be 1-250 characters in length."
^XMB(3.9,22,2,22425,0)="""^DD"",396.17,396.17,22,21,0)"
^XMB(3.9,22,2,22426,0)="^^4^4^3060619^"
^XMB(3.9,22,2,22427,0)="""^DD"",396.17,396.17,22,21,1,0)"
^XMB(3.9,22,2,22428,0)="THIS FIELD IS USED FOR DATA ANALYSIS AND QUALITY IMPROVEMENT."
^XMB(3.9,22,2,22429,0)="""^DD"",396.17,396.17,22,21,2,0)"
^XMB(3.9,22,2,22430,0)="DATA WILL BE STORED IN THIS FORMAT:"
^XMB(3.9,22,2,22431,0)="""^DD"",396.17,396.17,22,21,3,0)"
^XMB(3.9,22,2,22432,0)="MERGED TEMPATE (Y/N)^TOTAL TIME FORM WAS IN USE^DOCUMENTATION CLUSTERS^"
^XMB(3.9,22,2,22433,0)="""^DD"",396.17,396.17,22,21,4,0)"
^XMB(3.9,22,2,22434,0)="DOCUMENTATION CLUSTER TIME INTERVAL"
^XMB(3.9,22,2,22435,0)="""^DD"",396.17,396.17,22,""DT"")"
^XMB(3.9,22,2,22436,0)="3060619"
^XMB(3.9,22,2,22437,0)="""^DD"",396.17,396.1714,0)"
^XMB(3.9,22,2,22438,0)="REVIEW DATE/TIME SUB-FIELD^^4^5"
^XMB(3.9,22,2,22439,0)="""^DD"",396.17,396.1714,0,""DT"")"
^XMB(3.9,22,2,22440,0)="3030530"
^XMB(3.9,22,2,22441,0)="""^DD"",396.17,396.1714,0,""IX"",""B"",396.1714,.01)"
^XMB(3.9,22,2,22442,0)=""
^XMB(3.9,22,2,22443,0)="""^DD"",396.17,396.1714,0,""NM"",""REVIEW DATE/TIME"")"
^XMB(3.9,22,2,22444,0)=" "
^XMB(3.9,22,2,22445,0)="""^DD"",396.17,396.1714,0,""UP"")"
^XMB(3.9,22,2,22446,0)="396.17"
^XMB(3.9,22,2,22447,0)="""^DD"",396.17,396.1714,.01,0)"
^XMB(3.9,22,2,22448,0)="REVIEW DATE/TIME^MDa^^0;1^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,22,2,22449,0)="""^DD"",396.17,396.1714,.01,1,0)"
^XMB(3.9,22,2,22450,0)="^.1"
^XMB(3.9,22,2,22451,0)="""^DD"",396.17,396.1714,.01,1,1,0)"
^XMB(3.9,22,2,22452,0)="396.1714^B"
^XMB(3.9,22,2,22453,0)="""^DD"",396.17,396.1714,.01,1,1,1)"
^XMB(3.9,22,2,22454,0)="S ^DVB(396.17,DA(1),6,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,22,2,22455,0)="""^DD"",396.17,396.1714,.01,1,1,2)"
^XMB(3.9,22,2,22456,0)="K ^DVB(396.17,DA(1),6,""B"",$E(X,1,30),DA)"
^XMB(3.9,22,2,22457,0)="""^DD"",396.17,396.1714,.01,21,0)"
^XMB(3.9,22,2,22458,0)="^^2^2^3030530^"
^XMB(3.9,22,2,22459,0)="""^DD"",396.17,396.1714,.01,21,1,0)"
^XMB(3.9,22,2,22460,0)="An entry will be made here each time a new ""needs review"" action is "
^XMB(3.9,22,2,22461,0)="""^DD"",396.17,396.1714,.01,21,2,0)"
^XMB(3.9,22,2,22462,0)="activated in the CAPRI GUI."
^XMB(3.9,22,2,22463,0)="""^DD"",396.17,396.1714,.01,""AUDIT"")"
^XMB(3.9,22,2,22464,0)="y"
^XMB(3.9,22,2,22465,0)="""^DD"",396.17,396.1714,.01,""DT"")"
^XMB(3.9,22,2,22466,0)="3060428"
^XMB(3.9,22,2,22467,0)="""^DD"",396.17,396.1714,1,0)"
^XMB(3.9,22,2,22468,0)="REVIEWER NAME^P200'^VA(200,^0;2^Q"
^XMB(3.9,22,2,22469,0)="""^DD"",396.17,396.1714,1,21,0)"
^XMB(3.9,22,2,22470,0)="^^3^3^3030530^"
^XMB(3.9,22,2,22471,0)="""^DD"",396.17,396.1714,1,21,1,0)"
^XMB(3.9,22,2,22472,0)="This field will remain blank until one of the C&P Exam reviewers picks up"
^XMB(3.9,22,2,22473,0)="""^DD"",396.17,396.1714,1,21,2,0)"
^XMB(3.9,22,2,22474,0)="on the document from within the GUI and activates it using their"
^XMB(3.9,22,2,22475,0)="""^DD"",396.17,396.1714,1,21,3,0)"
^XMB(3.9,22,2,22476,0)="reviewer-specific dialogs."
^XMB(3.9,22,2,22477,0)="""^DD"",396.17,396.1714,1,""DT"")"
^XMB(3.9,22,2,22478,0)="3030530"
^XMB(3.9,22,2,22479,0)="""^DD"",396.17,396.1714,2,0)"
^XMB(3.9,22,2,22480,0)="DATE/TIME MARKED COMPLETE^D^^0;3^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,22,2,22481,0)="""^DD"",396.17,396.1714,2,21,0)"
^XMB(3.9,22,2,22482,0)="^^2^2^3030530^"
^XMB(3.9,22,2,22483,0)="""^DD"",396.17,396.1714,2,21,1,0)"
^XMB(3.9,22,2,22484,0)="Once the reviewer is satisfied with the document and transfers it to TIU, "
^XMB(3.9,22,2,22485,0)="""^DD"",396.17,396.1714,2,21,2,0)"
^XMB(3.9,22,2,22486,0)="this field will be completed automatically by the CAPRI GUI."
^XMB(3.9,22,2,22487,0)="""^DD"",396.17,396.1714,2,""DT"")"
^XMB(3.9,22,2,22488,0)="3030530"
^XMB(3.9,22,2,22489,0)="""^DD"",396.17,396.1714,3,0)"
^XMB(3.9,22,2,22490,0)="DATE/TIME SENT BACK^D^^0;4^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,22,2,22491,0)="""^DD"",396.17,396.1714,3,21,0)"
^XMB(3.9,22,2,22492,0)="^^3^3^3030530^"
^XMB(3.9,22,2,22493,0)="""^DD"",396.17,396.1714,3,21,1,0)"
^XMB(3.9,22,2,22494,0)="If during the review activity, the review would like the original author "
^XMB(3.9,22,2,22495,0)="""^DD"",396.17,396.1714,3,21,2,0)"
^XMB(3.9,22,2,22496,0)="to re-address the document, then this field will be populated.  "
^XMB(3.9,22,2,22497,0)="""^DD"",396.17,396.1714,3,21,3,0)"
^XMB(3.9,22,2,22498,0)="Otherwise, it will remain blank."
^XMB(3.9,22,2,22499,0)="""^DD"",396.17,396.1714,3,""DT"")"
^XMB(3.9,22,2,22500,0)="3030530"
^XMB(3.9,22,2,22501,0)="""^DD"",396.17,396.1714,4,0)"
^XMB(3.9,22,2,22502,0)="SENT BACK COMMENTS^396.17144^^1;0"
^XMB(3.9,22,2,22503,0)="""^DD"",396.17,396.1714,4,21,0)"
^XMB(3.9,22,2,22504,0)="^^4^4^3030530^"
^XMB(3.9,22,2,22505,0)="""^DD"",396.17,396.1714,4,21,1,0)"
^XMB(3.9,22,2,22506,0)="This field contains a list of comments the reviewer wishes to send to the "
^XMB(3.9,22,2,22507,0)="""^DD"",396.17,396.1714,4,21,2,0)"
^XMB(3.9,22,2,22508,0)="document author.  Normally, it will contain required or suggested changes "
^XMB(3.9,22,2,22509,0)="""^DD"",396.17,396.1714,4,21,3,0)"
^XMB(3.9,22,2,22510,0)="to the document.  These comments will not be part of the final TIU/AMIE "
^XMB(3.9,22,2,22511,0)="""^DD"",396.17,396.1714,4,21,4,0)"
^XMB(3.9,22,2,22512,0)="examination report document."
^XMB(3.9,22,2,22513,0)="""^DD"",396.17,396.17144,0)"
^XMB(3.9,22,2,22514,0)="SENT BACK COMMENTS SUB-FIELD^^.01^1"
^XMB(3.9,22,2,22515,0)="""^DD"",396.17,396.17144,0,""DT"")"
^XMB(3.9,22,2,22516,0)="3030530"
^XMB(3.9,22,2,22517,0)="""^DD"",396.17,396.17144,0,""NM"",""SENT BACK COMMENTS"")"
^XMB(3.9,22,2,22518,0)=" "
^XMB(3.9,22,2,22519,0)="""^DD"",396.17,396.17144,0,""UP"")"
^XMB(3.9,22,2,22520,0)="396.1714"
^XMB(3.9,22,2,22521,0)="""^DD"",396.17,396.17144,.01,0)"
^XMB(3.9,22,2,22522,0)="SENT BACK COMMENTS^W^^0;1^Q"
^XMB(3.9,22,2,22523,0)="""^DD"",396.17,396.17144,.01,""DT"")"
^XMB(3.9,22,2,22524,0)="3030530"
^XMB(3.9,22,2,22525,0)="""^DD"",396.17,396.1715,0)"
^XMB(3.9,22,2,22526,0)="FORM SAVED DATA SUB-FIELD^^3^4"
^XMB(3.9,22,2,22527,0)="""^DD"",396.17,396.1715,0,""DT"")"
^XMB(3.9,22,2,22528,0)="3031002"
^XMB(3.9,22,2,22529,0)="""^DD"",396.17,396.1715,0,""IX"",""B"",396.1715,.01)"
^XMB(3.9,22,2,22530,0)=""
^XMB(3.9,22,2,22531,0)="""^DD"",396.17,396.1715,0,""NM"",""FORM SAVED DATA"")"
^XMB(3.9,22,2,22532,0)=" "
^XMB(3.9,22,2,22533,0)="""^DD"",396.17,396.1715,0,""UP"")"
^XMB(3.9,22,2,22534,0)="396.17"
^XMB(3.9,22,2,22535,0)="""^DD"",396.17,396.1715,.01,0)"
^XMB(3.9,22,2,22536,0)="CONTROL NAME^MF^^0;1^K:$L(X)>200!($L(X)<3) X"
^XMB(3.9,22,2,22537,0)="""^DD"",396.17,396.1715,.01,1,0)"
^XMB(3.9,22,2,22538,0)="^.1"
^XMB(3.9,22,2,22539,0)="""^DD"",396.17,396.1715,.01,1,1,0)"
^XMB(3.9,22,2,22540,0)="396.1715^B"
^XMB(3.9,22,2,22541,0)="""^DD"",396.17,396.1715,.01,1,1,1)"
^XMB(3.9,22,2,22542,0)="S ^DVB(396.17,DA(1),7,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,22,2,22543,0)="""^DD"",396.17,396.1715,.01,1,1,2)"
^XMB(3.9,22,2,22544,0)="K ^DVB(396.17,DA(1),7,""B"",$E(X,1,30),DA)"
^XMB(3.9,22,2,22545,0)="""^DD"",396.17,396.1715,.01,3)"
^XMB(3.9,22,2,22546,0)="Answer must be 3-200 characters in length."
^XMB(3.9,22,2,22547,0)="""^DD"",396.17,396.1715,.01,""DT"")"
^XMB(3.9,22,2,22548,0)="3031002"
^XMB(3.9,22,2,22549,0)="""^DD"",396.17,396.1715,1,0)"
^XMB(3.9,22,2,22550,0)="CONTROL TYPE^F^^0;2^K:$L(X)>20!($L(X)<3) X"
^XMB(3.9,22,2,22551,0)="""^DD"",396.17,396.1715,1,3)"
^XMB(3.9,22,2,22552,0)="Answer must be 3-20 characters in length."
^XMB(3.9,22,2,22553,0)="""^DD"",396.17,396.1715,1,""DT"")"
^XMB(3.9,22,2,22554,0)="3031001"
^XMB(3.9,22,2,22555,0)="""^DD"",396.17,396.1715,2,0)"
^XMB(3.9,22,2,22556,0)="OBJECT ID^F^^0;3^K:$L(X)>15!($L(X)<1) X"
^XMB(3.9,22,2,22557,0)="""^DD"",396.17,396.1715,2,1,0)"
^XMB(3.9,22,2,22558,0)="^.1"
^XMB(3.9,22,2,22559,0)="""^DD"",396.17,396.1715,2,1,1,0)"
^XMB(3.9,22,2,22560,0)="396.17^ID"
^XMB(3.9,22,2,22561,0)="""^DD"",396.17,396.1715,2,1,1,1)"
^XMB(3.9,22,2,22562,0)="S ^DVB(396.17,""ID"",$E(X,1,30),DA(1),DA)="""""
^XMB(3.9,22,2,22563,0)="""^DD"",396.17,396.1715,2,1,1,2)"
^XMB(3.9,22,2,22564,0)="K ^DVB(396.17,""ID"",$E(X,1,30),DA(1),DA)"
^XMB(3.9,22,2,22565,0)="""^DD"",396.17,396.1715,2,1,1,""DT"")"
^XMB(3.9,22,2,22566,0)="3031001"
^XMB(3.9,22,2,22567,0)="""^DD"",396.17,396.1715,2,3)"
^XMB(3.9,22,2,22568,0)="Answer must be 1-15 characters in length."
^XMB(3.9,22,2,22569,0)="""^DD"",396.17,396.1715,2,""DT"")"
^XMB(3.9,22,2,22570,0)="3031001"
^XMB(3.9,22,2,22571,0)="""^DD"",396.17,396.1715,3,0)"
^XMB(3.9,22,2,22572,0)="DATA^396.17153^^1;0"
^XMB(3.9,22,2,22573,0)="""^DD"",396.17,396.17153,0)"
^XMB(3.9,22,2,22574,0)="DATA SUB-FIELD^^.01^1"
^XMB(3.9,22,2,22575,0)="""^DD"",396.17,396.17153,0,""DT"")"
^XMB(3.9,22,2,22576,0)="3031001"
^XMB(3.9,22,2,22577,0)="""^DD"",396.17,396.17153,0,""NM"",""DATA"")"
^XMB(3.9,22,2,22578,0)=" "
^XMB(3.9,22,2,22579,0)="""^DD"",396.17,396.17153,0,""UP"")"
^XMB(3.9,22,2,22580,0)="396.1715"
^XMB(3.9,22,2,22581,0)="""^DD"",396.17,396.17153,.01,0)"
^XMB(3.9,22,2,22582,0)="DATA^WL^^0;1^Q"
^XMB(3.9,22,2,22583,0)="""^DD"",396.17,396.17153,.01,""DT"")"
^XMB(3.9,22,2,22584,0)="3031001"
^XMB(3.9,22,2,22585,0)="""^DD"",396.17,396.1718,0)"
^XMB(3.9,22,2,22586,0)="AMIE EXAMS SUB-FIELD^^.01^1"
^XMB(3.9,22,2,22587,0)="""^DD"",396.17,396.1718,0,""DT"")"
^XMB(3.9,22,2,22588,0)="3050518"
^XMB(3.9,22,2,22589,0)="""^DD"",396.17,396.1718,0,""IX"",""B"",396.1718,.01)"
^XMB(3.9,22,2,22590,0)=""
^XMB(3.9,22,2,22591,0)="""^DD"",396.17,396.1718,0,""NM"",""AMIE EXAMS"")"
^XMB(3.9,22,2,22592,0)=" "
^XMB(3.9,22,2,22593,0)="""^DD"",396.17,396.1718,0,""UP"")"
^XMB(3.9,22,2,22594,0)="396.17"
^XMB(3.9,22,2,22595,0)="""^DD"",396.17,396.1718,.01,0)"
^XMB(3.9,22,2,22596,0)="AMIE EXAMS^MP396.4'^DVB(396.4,^0;1^Q"
^XMB(3.9,22,2,22597,0)="""^DD"",396.17,396.1718,.01,1,0)"
^XMB(3.9,22,2,22598,0)="^.1"
^XMB(3.9,22,2,22599,0)="""^DD"",396.17,396.1718,.01,1,1,0)"
^XMB(3.9,22,2,22600,0)="396.1718^B"
^XMB(3.9,22,2,22601,0)="""^DD"",396.17,396.1718,.01,1,1,1)"
^XMB(3.9,22,2,22602,0)="S ^DVB(396.17,DA(1),10,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,22,2,22603,0)="""^DD"",396.17,396.1718,.01,1,1,2)"
^XMB(3.9,22,2,22604,0)="K ^DVB(396.17,DA(1),10,""B"",$E(X,1,30),DA)"
^XMB(3.9,22,2,22605,0)="""^DD"",396.17,396.1718,.01,21,0)"
^XMB(3.9,22,2,22606,0)="^^2^2^3050518^"
^XMB(3.9,22,2,22607,0)="""^DD"",396.17,396.1718,.01,21,1,0)"
^XMB(3.9,22,2,22608,0)="Contains references to the AMIE exams being closed at the point this exam "
^XMB(3.9,22,2,22609,0)="""^DD"",396.17,396.1718,.01,21,2,0)"
^XMB(3.9,22,2,22610,0)="template is signed in TIU."
^XMB(3.9,22,2,22611,0)="""^DD"",396.17,396.1718,.01,""DT"")"
^XMB(3.9,22,2,22612,0)="3050518"
^XMB(3.9,22,2,22613,0)="""^DD"",396.17,396.176,0)"
^XMB(3.9,22,2,22614,0)="TEMPLATES UTILIZED SUB-FIELD^^.01^1"
^XMB(3.9,22,2,22615,0)="""^DD"",396.17,396.176,0,""DT"")"
^XMB(3.9,22,2,22616,0)="3021003"
^XMB(3.9,22,2,22617,0)="""^DD"",396.17,396.176,0,""NM"",""TEMPLATES UTILIZED"")"
^XMB(3.9,22,2,22618,0)=" "
^XMB(3.9,22,2,22619,0)="""^DD"",396.17,396.176,0,""UP"")"
^XMB(3.9,22,2,22620,0)="396.17"
^XMB(3.9,22,2,22621,0)="""^DD"",396.17,396.176,.01,0)"
^XMB(3.9,22,2,22622,0)="TEMPLATES UTILIZED^WL^^0;1^Q"
^XMB(3.9,22,2,22623,0)="""^DD"",396.17,396.176,.01,""DT"")"
^XMB(3.9,22,2,22624,0)="3030530"
^XMB(3.9,22,2,22625,0)="""^DD"",396.17,396.178,0)"
^XMB(3.9,22,2,22626,0)="FORM DATA SUB-FIELD^^.01^1"
^XMB(3.9,22,2,22627,0)="""^DD"",396.17,396.178,0,""DT"")"
^XMB(3.9,22,2,22628,0)="3021001"
^XMB(3.9,22,2,22629,0)="""^DD"",396.17,396.178,0,""NM"",""FORM DATA"")"
^XMB(3.9,22,2,22630,0)=" "
^XMB(3.9,22,2,22631,0)="""^DD"",396.17,396.178,0,""UP"")"
^XMB(3.9,22,2,22632,0)="396.17"
^XMB(3.9,22,2,22633,0)="""^DD"",396.17,396.178,.01,0)"
^XMB(3.9,22,2,22634,0)="FORM DATA^WL^^0;1^Q"
^XMB(3.9,22,2,22635,0)="""^DD"",396.17,396.178,.01,""DT"")"
^XMB(3.9,22,2,22636,0)="3030530"
^XMB(3.9,22,2,22637,0)="""^DD"",396.17,396.19,0)"
^XMB(3.9,22,2,22638,0)="FORM SAVE BUFFER SUB-FIELD^^3^4"
^XMB(3.9,22,2,22639,0)="""^DD"",396.17,396.19,0,""DT"")"
^XMB(3.9,22,2,22640,0)="3050314"
^XMB(3.9,22,2,22641,0)="""^DD"",396.17,396.19,0,""IX"",""B"",396.19,.01)"
^XMB(3.9,22,2,22642,0)=""
^XMB(3.9,22,2,22643,0)="""^DD"",396.17,396.19,0,""NM"",""FORM SAVE BUFFER"")"
^XMB(3.9,22,2,22644,0)=" "
^XMB(3.9,22,2,22645,0)="""^DD"",396.17,396.19,0,""UP"")"
^XMB(3.9,22,2,22646,0)="396.17"
^XMB(3.9,22,2,22647,0)="""^DD"",396.17,396.19,.01,0)"
^XMB(3.9,22,2,22648,0)="DATE/TIME^MRDa^^0;1^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,22,2,22649,0)="""^DD"",396.17,396.19,.01,1,0)"
^XMB(3.9,22,2,22650,0)="^.1"
^XMB(3.9,22,2,22651,0)="""^DD"",396.17,396.19,.01,1,1,0)"
^XMB(3.9,22,2,22652,0)="396.19^B"
^XMB(3.9,22,2,22653,0)="""^DD"",396.17,396.19,.01,1,1,1)"
^XMB(3.9,22,2,22654,0)="S ^DVB(396.17,DA(1),9,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,22,2,22655,0)="""^DD"",396.17,396.19,.01,1,1,2)"
^XMB(3.9,22,2,22656,0)="K ^DVB(396.17,DA(1),9,""B"",$E(X,1,30),DA)"
^XMB(3.9,22,2,22657,0)="""^DD"",396.17,396.19,.01,3)"
^XMB(3.9,22,2,22658,0)=" "
^XMB(3.9,22,2,22659,0)="""^DD"",396.17,396.19,.01,""AUDIT"")"
^XMB(3.9,22,2,22660,0)="y"
^XMB(3.9,22,2,22661,0)="""^DD"",396.17,396.19,.01,""DT"")"
^XMB(3.9,22,2,22662,0)="3060428"
^XMB(3.9,22,2,22663,0)="""^DD"",396.17,396.19,1,0)"
^XMB(3.9,22,2,22664,0)="SAVE DATA^396.191^^1;0"
^XMB(3.9,22,2,22665,0)="""^DD"",396.17,396.19,2,0)"
^XMB(3.9,22,2,22666,0)="COMMENTS^F^^2;1^K:$L(X)>80!($L(X)<1) X"
^XMB(3.9,22,2,22667,0)="""^DD"",396.17,396.19,2,3)"
^XMB(3.9,22,2,22668,0)="Answer must be 1-80 characters in length."
^XMB(3.9,22,2,22669,0)="""^DD"",396.17,396.19,2,""DT"")"
^XMB(3.9,22,2,22670,0)="3050310"
^XMB(3.9,22,2,22671,0)="""^DD"",396.17,396.19,3,0)"
^XMB(3.9,22,2,22672,0)="TEMPLATES UTILIZED^396.193^^3;0"
^XMB(3.9,22,2,22673,0)="""^DD"",396.17,396.191,0)"
^XMB(3.9,22,2,22674,0)="SAVE DATA SUB-FIELD^^.01^1"
^XMB(3.9,22,2,22675,0)="""^DD"",396.17,396.191,0,""DT"")"
^XMB(3.9,22,2,22676,0)="3050308"
^XMB(3.9,22,2,22677,0)="""^DD"",396.17,396.191,0,""NM"",""SAVE DATA"")"
^XMB(3.9,22,2,22678,0)=" "
^XMB(3.9,22,2,22679,0)="""^DD"",396.17,396.191,0,""UP"")"
^XMB(3.9,22,2,22680,0)="396.19"
^XMB(3.9,22,2,22681,0)="""^DD"",396.17,396.191,.01,0)"
^XMB(3.9,22,2,22682,0)="SAVE DATA^W^^0;1^Q"
^XMB(3.9,22,2,22683,0)="""^DD"",396.17,396.191,.01,""DT"")"
^XMB(3.9,22,2,22684,0)="3050308"
^XMB(3.9,22,2,22685,0)="""^DD"",396.17,396.193,0)"
^XMB(3.9,22,2,22686,0)="TEMPLATES UTILIZED SUB-FIELD^^.01^1"
^XMB(3.9,22,2,22687,0)="""^DD"",396.17,396.193,0,""DT"")"
^XMB(3.9,22,2,22688,0)="3050314"
^XMB(3.9,22,2,22689,0)="""^DD"",396.17,396.193,0,""NM"",""TEMPLATES UTILIZED"")"
^XMB(3.9,22,2,22690,0)=" "
^XMB(3.9,22,2,22691,0)="""^DD"",396.17,396.193,0,""UP"")"
^XMB(3.9,22,2,22692,0)="396.19"
^XMB(3.9,22,2,22693,0)="""^DD"",396.17,396.193,.01,0)"
^XMB(3.9,22,2,22694,0)="TEMPLATES UTILIZED^WL^^0;1^Q"
^XMB(3.9,22,2,22695,0)="""^DD"",396.17,396.193,.01,""DT"")"
^XMB(3.9,22,2,22696,0)="3050314"
^XMB(3.9,22,2,22697,0)="""^DD"",396.18,396.18,0)"
^XMB(3.9,22,2,22698,0)="FIELD^^10^10"
^XMB(3.9,22,2,22699,0)="""^DD"",396.18,396.18,0,""DDA"")"
^XMB(3.9,22,2,22700,0)="N"
^XMB(3.9,22,2,22701,0)="""^DD"",396.18,396.18,0,""DT"")"
^XMB(3.9,22,2,22702,0)="3051020"
^XMB(3.9,22,2,22703,0)="""^DD"",396.18,396.18,0,""IX"",""AV"",396.18,.01)"
^XMB(3.9,22,2,22704,0)=""
^XMB(3.9,22,2,22705,0)="""^DD"",396.18,396.18,0,""IX"",""B"",396.18,.01)"
^XMB(3.9,22,2,22706,0)=""
^XMB(3.9,22,2,22707,0)="""^DD"",396.18,396.18,0,""NM"",""CAPRI TEMPLATE DEFINITIONS"")"
^XMB(3.9,22,2,22708,0)=" "
^XMB(3.9,22,2,22709,0)="""^DD"",396.18,396.18,0,""VRPK"")"
^XMB(3.9,22,2,22710,0)="DVBA"
^XMB(3.9,22,2,22711,0)="""^DD"",396.18,396.18,.01,0)"
^XMB(3.9,22,2,22712,0)="NAME^RF^^0;1^K:$L(X)>250!($L(X)<4)!'(X'?1P.E) X"
^XMB(3.9,22,2,22713,0)="""^DD"",396.18,396.18,.01,1,0)"
^XMB(3.9,22,2,22714,0)="^.1"
^XMB(3.9,22,2,22715,0)="""^DD"",396.18,396.18,.01,1,1,0)"
^XMB(3.9,22,2,22716,0)="396.18^B"
^XMB(3.9,22,2,22717,0)="""^DD"",396.18,396.18,.01,1,1,1)"
^XMB(3.9,22,2,22718,0)="S ^DVB(396.18,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,22,2,22719,0)="""^DD"",396.18,396.18,.01,1,1,2)"
^XMB(3.9,22,2,22720,0)="K ^DVB(396.18,""B"",$E(X,1,30),DA)"
^XMB(3.9,22,2,22721,0)="""^DD"",396.18,396.18,.01,1,2,0)"
^XMB(3.9,22,2,22722,0)="396.18^AV^MUMPS"
^XMB(3.9,22,2,22723,0)="""^DD"",396.18,396.18,.01,1,2,1)"
^XMB(3.9,22,2,22724,0)="Q:X'[""~""  N A,B S A=$E($P(X,""~""),1,30),B=$P(X,""~"",2) S:A]""""&B ^DVB(396.18,""AV"",+B,+$P(B,""T"",2),A,DA)="""""
^XMB(3.9,22,2,22725,0)="""^DD"",396.18,396.18,.01,1,2,2)"
^XMB(3.9,22,2,22726,0)="Q:X'[""~""  N A,B S A=$E($P(X,""~""),1,30),B=$P(X,""~"",2) K:A]""""&B ^DVB(396.18,""AV"",+$P(B,""T"",2),+B,A,DA)"
^XMB(3.9,22,2,22727,0)="""^DD"",396.18,396.18,.01,1,2,""%D"",0)"
^XMB(3.9,22,2,22728,0)="^^14^14^3050408^"
^XMB(3.9,22,2,22729,0)="""^DD"",396.18,396.18,.01,1,2,""%D"",1,0)"
^XMB(3.9,22,2,22730,0)="""AV"" Cross Reference will be in the following format:"
^XMB(3.9,22,2,22731,0)="""^DD"",396.18,396.18,.01,1,2,""%D"",2,0)"
^XMB(3.9,22,2,22732,0)=" ^DVB(396.18,""AV"",<patnum>,<testver>,<name>,DA) = """""
^XMB(3.9,22,2,22733,0)="""^DD"",396.18,396.18,.01,1,2,""%D"",3,0)"
^XMB(3.9,22,2,22734,0)="  where:"
^XMB(3.9,22,2,22735,0)="""^DD"",396.18,396.18,.01,1,2,""%D"",4,0)"
^XMB(3.9,22,2,22736,0)="   patnum is the patch number"
^XMB(3.9,22,2,22737,0)="""^DD"",396.18,396.18,.01,1,2,""%D"",5,0)"
^XMB(3.9,22,2,22738,0)="   testver is ""Test Version"" number, (0 for production)"
^XMB(3.9,22,2,22739,0)="""^DD"",396.18,396.18,.01,1,2,""%D"",6,0)"
^XMB(3.9,22,2,22740,0)="   name is 1st 30 chars of TemplateName"
^XMB(3.9,22,2,22741,0)="""^DD"",396.18,396.18,.01,1,2,""%D"",7,0)"
^XMB(3.9,22,2,22742,0)=" "
^XMB(3.9,22,2,22743,0)="""^DD"",396.18,396.18,.01,1,2,""%D"",8,0)"
^XMB(3.9,22,2,22744,0)="Examples:"
^XMB(3.9,22,2,22745,0)="""^DD"",396.18,396.18,.01,1,2,""%D"",9,0)"
^XMB(3.9,22,2,22746,0)="  TemplateName: JOINTS~78T1"
^XMB(3.9,22,2,22747,0)="""^DD"",396.18,396.18,.01,1,2,""%D"",10,0)"
^XMB(3.9,22,2,22748,0)="  AV cross ref: ^DVB(396.18,""AV"",78,1,""JOINTS"",DA)="""""
^XMB(3.9,22,2,22749,0)="""^DD"",396.18,396.18,.01,1,2,""%D"",11,0)"
^XMB(3.9,22,2,22750,0)=" "
^XMB(3.9,22,2,22751,0)="""^DD"",396.18,396.18,.01,1,2,""%D"",12,0)"
^XMB(3.9,22,2,22752,0)="  TemplateName: SPINE~92"
^XMB(3.9,22,2,22753,0)="""^DD"",396.18,396.18,.01,1,2,""%D"",13,0)"
^XMB(3.9,22,2,22754,0)="  AV cross ref: ^DVB(396.18,""AV"",92,0,""SPINE"",DA)="""""
^XMB(3.9,22,2,22755,0)="""^DD"",396.18,396.18,.01,1,2,""%D"",14,0)"
^XMB(3.9,22,2,22756,0)=" "
^XMB(3.9,22,2,22757,0)="""^DD"",396.18,396.18,.01,1,2,""DT"")"
^XMB(3.9,22,2,22758,0)="3050318"
^XMB(3.9,22,2,22759,0)="""^DD"",396.18,396.18,.01,3)"
^XMB(3.9,22,2,22760,0)="Answer must be 4-250 characters in length."
^XMB(3.9,22,2,22761,0)="""^DD"",396.18,396.18,.01,21,0)"
^XMB(3.9,22,2,22762,0)="^.001^13^13^3050408^^^^"
^XMB(3.9,22,2,22763,0)="""^DD"",396.18,396.18,.01,21,1,0)"
^XMB(3.9,22,2,22764,0)="This is the name of the template as displayed in the CAPRI GUI."
^XMB(3.9,22,2,22765,0)="""^DD"",396.18,396.18,.01,21,2,0)"
^XMB(3.9,22,2,22766,0)=" "
^XMB(3.9,22,2,22767,0)="""^DD"",396.18,396.18,.01,21,3,0)"
^XMB(3.9,22,2,22768,0)="Name is TemplateName~<patnum>"
^XMB(3.9,22,2,22769,0)="""^DD"",396.18,396.18,.01,21,4,0)"
^XMB(3.9,22,2,22770,0)="  or is TemplateName~<patnum>T<testver>"
^XMB(3.9,22,2,22771,0)="""^DD"",396.18,396.18,.01,21,5,0)"
^XMB(3.9,22,2,22772,0)=" "
^XMB(3.9,22,2,22773,0)="""^DD"",396.18,396.18,.01,21,6,0)"
^XMB(3.9,22,2,22774,0)="   where:"
^XMB(3.9,22,2,22775,0)="""^DD"",396.18,396.18,.01,21,7,0)"
^XMB(3.9,22,2,22776,0)="    patnum is the patch number"
^XMB(3.9,22,2,22777,0)="""^DD"",396.18,396.18,.01,21,8,0)"
^XMB(3.9,22,2,22778,0)="    testver is ""Test Version"" number"
^XMB(3.9,22,2,22779,0)="""^DD"",396.18,396.18,.01,21,9,0)"
^XMB(3.9,22,2,22780,0)=" "
^XMB(3.9,22,2,22781,0)="""^DD"",396.18,396.18,.01,21,10,0)"
^XMB(3.9,22,2,22782,0)="Examples:"
^XMB(3.9,22,2,22783,0)="""^DD"",396.18,396.18,.01,21,11,0)"
^XMB(3.9,22,2,22784,0)="   JOINTS~78T1"
^XMB(3.9,22,2,22785,0)="""^DD"",396.18,396.18,.01,21,12,0)"
^XMB(3.9,22,2,22786,0)="   SPINE~92"
^XMB(3.9,22,2,22787,0)="""^DD"",396.18,396.18,.01,21,13,0)"
^XMB(3.9,22,2,22788,0)=" "
^XMB(3.9,22,2,22789,0)="""^DD"",396.18,396.18,.01,""DT"")"
^XMB(3.9,22,2,22790,0)="3050408"
^XMB(3.9,22,2,22791,0)="""^DD"",396.18,396.18,1,0)"
^XMB(3.9,22,2,22792,0)="DESCRIPTION^396.181^^1;0"
^XMB(3.9,22,2,22793,0)="""^DD"",396.18,396.18,1,21,0)"
^XMB(3.9,22,2,22794,0)="^^2^2^3030530^"
^XMB(3.9,22,2,22795,0)="""^DD"",396.18,396.18,1,21,1,0)"
^XMB(3.9,22,2,22796,0)="The text placed in this field will be displayed in the template selection "
^XMB(3.9,22,2,22797,0)="""^DD"",396.18,396.18,1,21,2,0)"
^XMB(3.9,22,2,22798,0)="dialog in the CAPRI GUI to assist the user in making a selection."
^XMB(3.9,22,2,22799,0)="""^DD"",396.18,396.18,2,0)"
^XMB(3.9,22,2,22800,0)="ACTIVATION DATE^D^^2;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,22,2,22801,0)="""^DD"",396.18,396.18,2,21,0)"
^XMB(3.9,22,2,22802,0)="^^3^3^3030530^"
^XMB(3.9,22,2,22803,0)="""^DD"",396.18,396.18,2,21,1,0)"
^XMB(3.9,22,2,22804,0)="If a template is loaded but should not become active until a date in the "
^XMB(3.9,22,2,22805,0)="""^DD"",396.18,396.18,2,21,2,0)"
^XMB(3.9,22,2,22806,0)="future, that date can be set with this field.  If the date entered has "
^XMB(3.9,22,2,22807,0)="""^DD"",396.18,396.18,2,21,3,0)"
^XMB(3.9,22,2,22808,0)="already passed, the template will become active immediately."
^XMB(3.9,22,2,22809,0)="""^DD"",396.18,396.18,2,""DT"")"
^XMB(3.9,22,2,22810,0)="3021001"
^XMB(3.9,22,2,22811,0)="""^DD"",396.18,396.18,3,0)"
^XMB(3.9,22,2,22812,0)="DE-ACTIVATION DATE^D^^2;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,22,2,22813,0)="""^DD"",396.18,396.18,3,21,0)"
^XMB(3.9,22,2,22814,0)="^^7^7^3030530^"
^XMB(3.9,22,2,22815,0)="""^DD"",396.18,396.18,3,21,1,0)"
^XMB(3.9,22,2,22816,0)="Placing a date in this field will de-activate the template on the date "
^XMB(3.9,22,2,22817,0)="""^DD"",396.18,396.18,3,21,2,0)"
^XMB(3.9,22,2,22818,0)="specified.  It will often occur that an entry will contain a "
^XMB(3.9,22,2,22819,0)="""^DD"",396.18,396.18,3,21,3,0)"
^XMB(3.9,22,2,22820,0)="de-activation date and another entry in the file that's meant to replace "
^XMB(3.9,22,2,22821,0)="""^DD"",396.18,396.18,3,21,4,0)"
^XMB(3.9,22,2,22822,0)="it will contain the same date but in its activation date field.   Once a "
^XMB(3.9,22,2,22823,0)="""^DD"",396.18,396.18,3,21,5,0)"
^XMB(3.9,22,2,22824,0)="template has de-activated, a user will not be able to create a new "
^XMB(3.9,22,2,22825,0)="""^DD"",396.18,396.18,3,21,6,0)"
^XMB(3.9,22,2,22826,0)="document using that template but can still access old documents "
^XMB(3.9,22,2,22827,0)="""^DD"",396.18,396.18,3,21,7,0)"
^XMB(3.9,22,2,22828,0)="previously created with the template."
^XMB(3.9,22,2,22829,0)="""^DD"",396.18,396.18,3,""DT"")"
^XMB(3.9,22,2,22830,0)="3021001"
^XMB(3.9,22,2,22831,0)="""^DD"",396.18,396.18,4,0)"
^XMB(3.9,22,2,22832,0)="FORM DEFINITION^396.184^^3;0"
^XMB(3.9,22,2,22833,0)="""^DD"",396.18,396.18,4,21,0)"
^XMB(3.9,22,2,22834,0)="^.001^4^4^3031113^^"
^XMB(3.9,22,2,22835,0)="""^DD"",396.18,396.18,4,21,1,0)"
^XMB(3.9,22,2,22836,0)="This field contains the Windows format screen definition that will "
^XMB(3.9,22,2,22837,0)="""^DD"",396.18,396.18,4,21,2,0)"
^XMB(3.9,22,2,22838,0)="generate the template in the CAPRI GUI.  WARNING:  DO NOT MODIFY THIS "
^XMB(3.9,22,2,22839,0)="""^DD"",396.18,396.18,4,21,3,0)"
^XMB(3.9,22,2,22840,0)="FIELD TO PREVENT CORRUPTION OF THE TEMPLATE. If there is a problem, the"
^XMB(3.9,22,2,22841,0)="""^DD"",396.18,396.18,4,21,4,0)"
^XMB(3.9,22,2,22842,0)="field will need to be updated at a national level and re-distributed. "
^XMB(3.9,22,2,22843,0)="""^DD"",396.18,396.18,4,""DT"")"
^XMB(3.9,22,2,22844,0)="3031113"
^XMB(3.9,22,2,22845,0)="""^DD"",396.18,396.18,5,0)"
^XMB(3.9,22,2,22846,0)="LAST UPDATE^D^^2;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,22,2,22847,0)="""^DD"",396.18,396.18,5,3)"
^XMB(3.9,22,2,22848,0)="ENTER THE DATE/TIME THE TEMPLATE WAS UPDATED"
^XMB(3.9,22,2,22849,0)="""^DD"",396.18,396.18,5,21,0)"
^XMB(3.9,22,2,22850,0)="^^3^3^3040615^"
^XMB(3.9,22,2,22851,0)="""^DD"",396.18,396.18,5,21,1,0)"
^XMB(3.9,22,2,22852,0)="FACILITATES THE CUTTING OF BUILDS SINCE A"
^XMB(3.9,22,2,22853,0)="""^DD"",396.18,396.18,5,21,2,0)"
^XMB(3.9,22,2,22854,0)="SCREEN CAN CHECK FOR THOSE WHOSE 'LAST UPDATE'"
^XMB(3.9,22,2,22855,0)="""^DD"",396.18,396.18,5,21,3,0)"
^XMB(3.9,22,2,22856,0)="IS GREATER THAN THE LAST DISTRIBUTION."
^XMB(3.9,22,2,22857,0)="""^DD"",396.18,396.18,5,""DT"")"
^XMB(3.9,22,2,22858,0)="3040615"
^XMB(3.9,22,2,22859,0)="""^DD"",396.18,396.18,7,0)"
^XMB(3.9,22,2,22860,0)="SELECTABLE BY USER?^Sa^1:YES;0:NO;^6;1^Q"
^XMB(3.9,22,2,22861,0)="""^DD"",396.18,396.18,7,21,0)"
^XMB(3.9,22,2,22862,0)="^.001^2^2^3030709^^^"
^XMB(3.9,22,2,22863,0)="""^DD"",396.18,396.18,7,21,1,0)"
^XMB(3.9,22,2,22864,0)="If set to NO, this template will be accessible by CAPRI for merging "
^XMB(3.9,22,2,22865,0)="""^DD"",396.18,396.18,7,21,2,0)"
^XMB(3.9,22,2,22866,0)="purposes but not selectable by the user in the forms list."
^XMB(3.9,22,2,22867,0)="""^DD"",396.18,396.18,7,""AUDIT"")"
^XMB(3.9,22,2,22868,0)="e"
^XMB(3.9,22,2,22869,0)="""^DD"",396.18,396.18,7,""DT"")"
^XMB(3.9,22,2,22870,0)="3051103"
^XMB(3.9,22,2,22871,0)="""^DD"",396.18,396.18,8,0)"
^XMB(3.9,22,2,22872,0)="OBJECT COUNT^NJ7,0^^6;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^XMB(3.9,22,2,22873,0)="""^DD"",396.18,396.18,8,3)"
^XMB(3.9,22,2,22874,0)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^XMB(3.9,22,2,22875,0)="""^DD"",396.18,396.18,8,21,0)"
^XMB(3.9,22,2,22876,0)="^.001^1^1^3040714^^"
^XMB(3.9,22,2,22877,0)="""^DD"",396.18,396.18,8,21,1,0)"
^XMB(3.9,22,2,22878,0)="Enter the number of Windows Objects contained within the Template."
^XMB(3.9,22,2,22879,0)="""^DD"",396.18,396.18,8,""DT"")"
^XMB(3.9,22,2,22880,0)="3040714"
^XMB(3.9,22,2,22881,0)="""^DD"",396.18,396.18,9,0)"
^XMB(3.9,22,2,22882,0)="RELEASED?^S^0:NO;1:YES;9:TEST;^4;1^Q"
^XMB(3.9,22,2,22883,0)="""^DD"",396.18,396.18,9,""DT"")"
^XMB(3.9,22,2,22884,0)="3051020"
^XMB(3.9,22,2,22885,0)="""^DD"",396.18,396.18,10,0)"
^XMB(3.9,22,2,22886,0)="CRC^F^^4;2^K:$L(X)>20!($L(X)<1) X"
^XMB(3.9,22,2,22887,0)="""^DD"",396.18,396.18,10,3)"
^XMB(3.9,22,2,22888,0)="Answer must be 1-20 characters in length."
^XMB(3.9,22,2,22889,0)="""^DD"",396.18,396.18,10,21,0)"
^XMB(3.9,22,2,22890,0)="^^2^2^3060207^"
^XMB(3.9,22,2,22891,0)="""^DD"",396.18,396.18,10,21,1,0)"
^XMB(3.9,22,2,22892,0)="This is a value used internally by the CAPRI team to verify a template's "
^XMB(3.9,22,2,22893,0)="""^DD"",396.18,396.18,10,21,2,0)"
^XMB(3.9,22,2,22894,0)="version prior to being distributed to the field."
^XMB(3.9,22,2,22895,0)="""^DD"",396.18,396.18,10,""DT"")"
^XMB(3.9,22,2,22896,0)="3060207"
^XMB(3.9,22,2,22897,0)="""^DD"",396.18,396.181,0)"
^XMB(3.9,22,2,22898,0)="DESCRIPTION SUB-FIELD^^.01^1"
^XMB(3.9,22,2,22899,0)="""^DD"",396.18,396.181,0,""DT"")"
^XMB(3.9,22,2,22900,0)="3021001"
^XMB(3.9,22,2,22901,0)="""^DD"",396.18,396.181,0,""NM"",""DESCRIPTION"")"
^XMB(3.9,22,2,22902,0)=" "
^XMB(3.9,22,2,22903,0)="""^DD"",396.18,396.181,0,""UP"")"
^XMB(3.9,22,2,22904,0)="396.18"
^XMB(3.9,22,2,22905,0)="""^DD"",396.18,396.181,.01,0)"
^XMB(3.9,22,2,22906,0)="DESCRIPTION^W^^0;1^Q"
^XMB(3.9,22,2,22907,0)="""^DD"",396.18,396.181,.01,""DT"")"
^XMB(3.9,22,2,22908,0)="3021001"
^XMB(3.9,22,2,22909,0)="""^DD"",396.18,396.184,0)"
^XMB(3.9,22,2,22910,0)="FORM DEFINITION SUB-FIELD^^.01^1"
^XMB(3.9,22,2,22911,0)="""^DD"",396.18,396.184,0,""DT"")"
^XMB(3.9,22,2,22912,0)="3021001"
^XMB(3.9,22,2,22913,0)="""^DD"",396.18,396.184,0,""NM"",""FORM DEFINITION"")"
^XMB(3.9,22,2,22914,0)=" "
^XMB(3.9,22,2,22915,0)="""^DD"",396.18,396.184,0,""UP"")"
^XMB(3.9,22,2,22916,0)="396.18"
^XMB(3.9,22,2,22917,0)="""^DD"",396.18,396.184,.01,0)"
^XMB(3.9,22,2,22918,0)="FORM DEFINITION^WL^^0;1^Q"
^XMB(3.9,22,2,22919,0)="""^DD"",396.18,396.184,.01,""DT"")"
^XMB(3.9,22,2,22920,0)="3031113"
^XMB(3.9,22,2,22921,0)="""^DIC"",396.17,396.17,0)"
^XMB(3.9,22,2,22922,0)="CAPRI TEMPLATES^396.17"
^XMB(3.9,22,2,22923,0)="""^DIC"",396.17,396.17,0,""GL"")"
^XMB(3.9,22,2,22924,0)="^DVB(396.17,"
^XMB(3.9,22,2,22925,0)="""^DIC"",396.17,396.17,""%"",0)"
^XMB(3.9,22,2,22926,0)="^1.005^^0"
^XMB(3.9,22,2,22927,0)="""^DIC"",396.17,396.17,""%D"",0)"
^XMB(3.9,22,2,22928,0)="^^6^6^3030603^"
^XMB(3.9,22,2,22929,0)="""^DIC"",396.17,396.17,""%D"",1,0)"
^XMB(3.9,22,2,22930,0)="This file holds the definitions generated by users of the CAPRI C&P "
^XMB(3.9,22,2,22931,0)="""^DIC"",396.17,396.17,""%D"",2,0)"
^XMB(3.9,22,2,22932,0)="Worksheet Module (CPWM) that are used to re-generate GUI screens.  CPWM "
^XMB(3.9,22,2,22933,0)="""^DIC"",396.17,396.17,""%D"",3,0)"
^XMB(3.9,22,2,22934,0)="allows point-n-click entry of C&P examinations and will store ASCII "
^XMB(3.9,22,2,22935,0)="""^DIC"",396.17,396.17,""%D"",4,0)"
^XMB(3.9,22,2,22936,0)="reports in AMIE and TIU when the user has finished the documentation "
^XMB(3.9,22,2,22937,0)="""^DIC"",396.17,396.17,""%D"",5,0)"
^XMB(3.9,22,2,22938,0)="process.  This file serves to track documents in progress as well as "
^XMB(3.9,22,2,22939,0)="""^DIC"",396.17,396.17,""%D"",6,0)"
^XMB(3.9,22,2,22940,0)="documents that have been already completed and sent to TIU and AMIE."
^XMB(3.9,22,2,22941,0)="""^DIC"",396.17,""B"",""CAPRI TEMPLATES"",396.17)"
^XMB(3.9,22,2,22942,0)=""
^XMB(3.9,22,2,22943,0)="""^DIC"",396.18,396.18,0)"
^XMB(3.9,22,2,22944,0)="CAPRI TEMPLATE DEFINITIONS^396.18"
^XMB(3.9,22,2,22945,0)="""^DIC"",396.18,396.18,0,""GL"")"
^XMB(3.9,22,2,22946,0)="^DVB(396.18,"
^XMB(3.9,22,2,22947,0)="""^DIC"",396.18,396.18,""%"",0)"
^XMB(3.9,22,2,22948,0)="^1.005^^0"
^XMB(3.9,22,2,22949,0)="""^DIC"",396.18,396.18,""%D"",0)"
^XMB(3.9,22,2,22950,0)="^1.001^9^9^3050824^^^^"
^XMB(3.9,22,2,22951,0)="""^DIC"",396.18,396.18,""%D"",1,0)"
^XMB(3.9,22,2,22952,0)="This file maintains a list of definitions used to generate "
^XMB(3.9,22,2,22953,0)="""^DIC"",396.18,396.18,""%D"",2,0)"
^XMB(3.9,22,2,22954,0)="examination templates in the CAPRI GUI interface. These definitions will"
^XMB(3.9,22,2,22955,0)="""^DIC"",396.18,396.18,""%D"",3,0)"
^XMB(3.9,22,2,22956,0)="be used by providers to document C&P examinations in point-n-click"
^XMB(3.9,22,2,22957,0)="""^DIC"",396.18,396.18,""%D"",4,0)"
^XMB(3.9,22,2,22958,0)="format.  The definitions will not be used in the roll-n-scroll AMIE-II "
^XMB(3.9,22,2,22959,0)="""^DIC"",396.18,396.18,""%D"",5,0)"
^XMB(3.9,22,2,22960,0)="application and are specific to the GUI environment.  Old definitions, as"
^XMB(3.9,22,2,22961,0)="""^DIC"",396.18,396.18,""%D"",6,0)"
^XMB(3.9,22,2,22962,0)="they are retired, will be retained in the file for historical"
^XMB(3.9,22,2,22963,0)="""^DIC"",396.18,396.18,""%D"",7,0)"
^XMB(3.9,22,2,22964,0)="purposes.  This file should remain standardized between all sites and "
^XMB(3.9,22,2,22965,0)="""^DIC"",396.18,396.18,""%D"",8,0)"
^XMB(3.9,22,2,22966,0)="entries not be modified, removed, or added except through patch "
^XMB(3.9,22,2,22967,0)="""^DIC"",396.18,396.18,""%D"",9,0)"
^XMB(3.9,22,2,22968,0)="installation."
^XMB(3.9,22,2,22969,0)="""^DIC"",396.18,""B"",""CAPRI TEMPLATE DEFINITIONS"",396.18)"
^XMB(3.9,22,2,22970,0)=""
^XMB(3.9,22,2,22971,0)="""BLD"",6078,6)"
^XMB(3.9,22,2,22972,0)="^98"
^XMB(3.9,22,2,22973,0)="$END KID DVBA*2.7*111"
^XMB(3.9,22,6,0)="^3.911A^2^2"
^XMB(3.9,22,6,1,0)="POSTMASTER"
^XMB(3.9,22,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,22,6,"B","POSTMASTER",1)=""
^XMB(3.9,22,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,23,0)="DVBA-2P7_SEQ-99_PAT-113.KID^.5^3061008.015733^^^^K"
^XMB(3.9,23,.6)="3061008"
^XMB(3.9,23,1,0)="^3.91A^2^2"
^XMB(3.9,23,1,1,0)=".5^0^3061008.015733^^^^^^^3061008.015733"
^XMB(3.9,23,1,2,0)="1^0^3061008.023024^^^^^^^3061008.023024"
^XMB(3.9,23,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,23,1,"C",.5,1)=""
^XMB(3.9,23,1,"C",1,2)=""
^XMB(3.9,23,2,0)="^^32279^32279^3061008"
^XMB(3.9,23,2,1,0)="$TXT Released DVBA*2.7*113 SEQ #99"
^XMB(3.9,23,2,2,0)="Extracted from mail message"
^XMB(3.9,23,2,3,0)="$END TXT"
^XMB(3.9,23,2,4,0)="$KID DVBA*2.7*113"
^XMB(3.9,23,2,5,0)="**INSTALL NAME**"
^XMB(3.9,23,2,6,0)="DVBA*2.7*113"
^XMB(3.9,23,2,7,0)="""BLD"",6156,0)"
^XMB(3.9,23,2,8,0)="DVBA*2.7*113^AUTOMATED MED INFO EXCHANGE^0^3060922^y"
^XMB(3.9,23,2,9,0)="""BLD"",6156,4,0)"
^XMB(3.9,23,2,10,0)="^9.64PA^396.18^3"
^XMB(3.9,23,2,11,0)="""BLD"",6156,4,396.17,0)"
^XMB(3.9,23,2,12,0)="396.17"
^XMB(3.9,23,2,13,0)="""BLD"",6156,4,396.17,222)"
^XMB(3.9,23,2,14,0)="y^y^f^^^^n"
^XMB(3.9,23,2,15,0)="""BLD"",6156,4,396.18,0)"
^XMB(3.9,23,2,16,0)="396.18"
^XMB(3.9,23,2,17,0)="""BLD"",6156,4,396.18,222)"
^XMB(3.9,23,2,18,0)="y^y^f^^n^PATCH113^y^o^n"
^XMB(3.9,23,2,19,0)="""BLD"",6156,4,396.4,0)"
^XMB(3.9,23,2,20,0)="396.4"
^XMB(3.9,23,2,21,0)="""BLD"",6156,4,396.4,222)"
^XMB(3.9,23,2,22,0)="y^y^f^^^^n"
^XMB(3.9,23,2,23,0)="""BLD"",6156,4,""B"",396.17,396.17)"
^XMB(3.9,23,2,24,0)=""
^XMB(3.9,23,2,25,0)="""BLD"",6156,4,""B"",396.18,396.18)"
^XMB(3.9,23,2,26,0)=""
^XMB(3.9,23,2,27,0)="""BLD"",6156,4,""B"",396.4,396.4)"
^XMB(3.9,23,2,28,0)=""
^XMB(3.9,23,2,29,0)="""BLD"",6156,""INI"")"
^XMB(3.9,23,2,30,0)="PRE^DVBA2813"
^XMB(3.9,23,2,31,0)="""BLD"",6156,""INIT"")"
^XMB(3.9,23,2,32,0)="POST^DVBA2813"
^XMB(3.9,23,2,33,0)="""BLD"",6156,""KRN"",0)"
^XMB(3.9,23,2,34,0)="^9.67PA^8989.52^19"
^XMB(3.9,23,2,35,0)="""BLD"",6156,""KRN"",.4,0)"
^XMB(3.9,23,2,36,0)=".4"
^XMB(3.9,23,2,37,0)="""BLD"",6156,""KRN"",.401,0)"
^XMB(3.9,23,2,38,0)=".401"
^XMB(3.9,23,2,39,0)="""BLD"",6156,""KRN"",.402,0)"
^XMB(3.9,23,2,40,0)=".402"
^XMB(3.9,23,2,41,0)="""BLD"",6156,""KRN"",.403,0)"
^XMB(3.9,23,2,42,0)=".403"
^XMB(3.9,23,2,43,0)="""BLD"",6156,""KRN"",.5,0)"
^XMB(3.9,23,2,44,0)=".5"
^XMB(3.9,23,2,45,0)="""BLD"",6156,""KRN"",.84,0)"
^XMB(3.9,23,2,46,0)=".84"
^XMB(3.9,23,2,47,0)="""BLD"",6156,""KRN"",3.6,0)"
^XMB(3.9,23,2,48,0)="3.6"
^XMB(3.9,23,2,49,0)="""BLD"",6156,""KRN"",3.8,0)"
^XMB(3.9,23,2,50,0)="3.8"
^XMB(3.9,23,2,51,0)="""BLD"",6156,""KRN"",9.2,0)"
^XMB(3.9,23,2,52,0)="9.2"
^XMB(3.9,23,2,53,0)="""BLD"",6156,""KRN"",9.8,0)"
^XMB(3.9,23,2,54,0)="9.8"
^XMB(3.9,23,2,55,0)="""BLD"",6156,""KRN"",19,0)"
^XMB(3.9,23,2,56,0)="19"
^XMB(3.9,23,2,57,0)="""BLD"",6156,""KRN"",19.1,0)"
^XMB(3.9,23,2,58,0)="19.1"
^XMB(3.9,23,2,59,0)="""BLD"",6156,""KRN"",101,0)"
^XMB(3.9,23,2,60,0)="101"
^XMB(3.9,23,2,61,0)="""BLD"",6156,""KRN"",409.61,0)"
^XMB(3.9,23,2,62,0)="409.61"
^XMB(3.9,23,2,63,0)="""BLD"",6156,""KRN"",771,0)"
^XMB(3.9,23,2,64,0)="771"
^XMB(3.9,23,2,65,0)="""BLD"",6156,""KRN"",870,0)"
^XMB(3.9,23,2,66,0)="870"
^XMB(3.9,23,2,67,0)="""BLD"",6156,""KRN"",8989.51,0)"
^XMB(3.9,23,2,68,0)="8989.51"
^XMB(3.9,23,2,69,0)="""BLD"",6156,""KRN"",8989.52,0)"
^XMB(3.9,23,2,70,0)="8989.52"
^XMB(3.9,23,2,71,0)="""BLD"",6156,""KRN"",8994,0)"
^XMB(3.9,23,2,72,0)="8994"
^XMB(3.9,23,2,73,0)="""BLD"",6156,""KRN"",""B"",.4,.4)"
^XMB(3.9,23,2,74,0)=""
^XMB(3.9,23,2,75,0)="""BLD"",6156,""KRN"",""B"",.401,.401)"
^XMB(3.9,23,2,76,0)=""
^XMB(3.9,23,2,77,0)="""BLD"",6156,""KRN"",""B"",.402,.402)"
^XMB(3.9,23,2,78,0)=""
^XMB(3.9,23,2,79,0)="""BLD"",6156,""KRN"",""B"",.403,.403)"
^XMB(3.9,23,2,80,0)=""
^XMB(3.9,23,2,81,0)="""BLD"",6156,""KRN"",""B"",.5,.5)"
^XMB(3.9,23,2,82,0)=""
^XMB(3.9,23,2,83,0)="""BLD"",6156,""KRN"",""B"",.84,.84)"
^XMB(3.9,23,2,84,0)=""
^XMB(3.9,23,2,85,0)="""BLD"",6156,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,23,2,86,0)=""
^XMB(3.9,23,2,87,0)="""BLD"",6156,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,23,2,88,0)=""
^XMB(3.9,23,2,89,0)="""BLD"",6156,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,23,2,90,0)=""
^XMB(3.9,23,2,91,0)="""BLD"",6156,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,23,2,92,0)=""
^XMB(3.9,23,2,93,0)="""BLD"",6156,""KRN"",""B"",19,19)"
^XMB(3.9,23,2,94,0)=""
^XMB(3.9,23,2,95,0)="""BLD"",6156,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,23,2,96,0)=""
^XMB(3.9,23,2,97,0)="""BLD"",6156,""KRN"",""B"",101,101)"
^XMB(3.9,23,2,98,0)=""
^XMB(3.9,23,2,99,0)="""BLD"",6156,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,23,2,100,0)=""
^XMB(3.9,23,2,101,0)="""BLD"",6156,""KRN"",""B"",771,771)"
^XMB(3.9,23,2,102,0)=""
^XMB(3.9,23,2,103,0)="""BLD"",6156,""KRN"",""B"",870,870)"
^XMB(3.9,23,2,104,0)=""
^XMB(3.9,23,2,105,0)="""BLD"",6156,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,23,2,106,0)=""
^XMB(3.9,23,2,107,0)="""BLD"",6156,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,23,2,108,0)=""
^XMB(3.9,23,2,109,0)="""BLD"",6156,""KRN"",""B"",8994,8994)"
^XMB(3.9,23,2,110,0)=""
^XMB(3.9,23,2,111,0)="""BLD"",6156,""QUES"",0)"
^XMB(3.9,23,2,112,0)="^9.62^^"
^XMB(3.9,23,2,113,0)="""DATA"",396.18,194,0)"
^XMB(3.9,23,2,114,0)="RECTUM AND ANUS~113F"
^XMB(3.9,23,2,115,0)="""DATA"",396.18,194,1,0)"
^XMB(3.9,23,2,116,0)="^^2^2^3060831"
^XMB(3.9,23,2,117,0)="""DATA"",396.18,194,1,1,0)"
^XMB(3.9,23,2,118,0)="Last updated on 08/10/2006"
^XMB(3.9,23,2,119,0)="""DATA"",396.18,194,1,2,0)"
^XMB(3.9,23,2,120,0)="Patch DVBA*2.7*113 "
^XMB(3.9,23,2,121,0)="""DATA"",396.18,194,2)"
^XMB(3.9,23,2,122,0)="3060504^^3060810.1255"
^XMB(3.9,23,2,123,0)="""DATA"",396.18,194,3,0)"
^XMB(3.9,23,2,124,0)="^396.184^740^740^3060831^^^^"
^XMB(3.9,23,2,125,0)="""DATA"",396.18,194,3,1,0)"
^XMB(3.9,23,2,126,0)="begin 664 Rectum_and_Anus_113.pnl.zip"
^XMB(3.9,23,2,127,0)="""DATA"",396.18,194,3,2,0)"
^XMB(3.9,23,2,128,0)="M4$L#!!0``@`(``%3'S6L3`GYYBL``/,?`0`7````4F5C='5M7V%N9%]!;G5S"
^XMB(3.9,23,2,129,0)="""DATA"",396.18,194,3,3,0)"
^XMB(3.9,23,2,130,0)="M7S$Q,RYP;FSD77EL)%EYK^ZVR\=X[FMW=G:WUC.S:R]>3Q]N7RPLML>>,=CC"
^XMB(3.9,23,2,131,0)="""DATA"",396.18,194,3,4,0)"
^XMB(3.9,23,2,132,0)="MQN[9R88EI%S];-=.=U535>UC(1!RB!`@4K@4`@OL$A(""NPF""$(55(J*$C121"
^XMB(3.9,23,2,133,0)="""DATA"",396.18,194,3,5,0)"
^XMB(3.9,23,2,134,0)="M*$&@*`$ID(0<2(G(""B)%RA^;=WRO^KVNJG;WS&3<[8PT,^YR]5?O][WO>M_["
^XMB(3.9,23,2,135,0)="""DATA"",396.18,194,3,6,0)"
^XMB(3.9,23,2,136,0)="MWE?YW%Q2S>=T""Q6/;I?)?].ZBV9LRW/L8L<""6O/B2B)OE^-'.J^;!6\C\>.X"
^XMB(3.9,23,2,137,0)="""DATA"",396.18,194,3,7,0)"
^XMB(3.9,23,2,138,0)="M>@69ZQM>XHNQWFFTB8I+%0\Y7>KJYE7;0B?Q5UW/T4W+<X<7]6W_WA,UO^#4"
^XMB(3.9,23,2,139,0)="""DATA"",396.18,194,3,8,0)"
^XMB(3.9,23,2,140,0)="MY""^85L073(M_H2=GEROE1615NDXLXM_.V4YI>-N_F.K.ZZM+3@$Y<451\A3>"
^XMB(3.9,23,2,141,0)="""DATA"",396.18,194,3,9,0)"
^XMB(3.9,23,2,142,0)="M@KZ*BH?IO_F=,EI:(]^AX!+CKU!TW0Q=_""$`%S_8-:.7/=.VU,[%V>7+LQ*I"
^XMB(3.9,23,2,143,0)="""DATA"",396.18,194,3,10,0)"
^XMB(3.9,23,2,144,0)="M`_1?0F3^DD3F+B`S'""2C+L_.Y*\M<CJ4X\?9M;?0#]DD^9-B/'\[)?<JX/F?"
^XMB(3.9,23,2,145,0)="""DATA"",396.18,194,3,11,0)"
^XMB(3.9,23,2,146,0)="MQ#C/L[&.*Y@A:F=N*7<MQ_@_;UF8_]VKF\NZZ:+""@6F;H%_Q=HH(7W573&N]"
^XMB(3.9,23,2,147,0)="""DATA"",396.18,194,3,12,0)"
^XMB(3.9,23,2,148,0)="MB#IG[**-[S***V9Q$SE]<WB*AV<V=,=%7M?A2[-S4]<6\F^9N3*UO#*;[V6_"
^XMB(3.9,23,2,149,0)="""DATA"",396.18,194,3,13,0)"
^XMB(3.9,23,2,150,0)="MI5_I,HK31=VX<8!>`US_U4,_7=5+2#VXN**MZ):KK2#'7&-?I4\_H/3F=`=9"
^XMB(3.9,23,2,151,0)="""DATA"",396.18,194,3,14,0)"
^XMB(3.9,23,2,152,0)="M'KG4+<X+\)'CIQ\8_E&&_TF*OP/P=W#\\2,^/_N7D>%52IIN%;0IJ^).:LMH"
^XMB(3.9,23,2,153,0)="""DATA"",396.18,194,3,15,0)"
^XMB(3.9,23,2,154,0)="MTT1;FKV&?S(P#]Q;Q/AR0QC5-7?:+A8DJ#[`8[4`4VF&[S#%MP;B8@;%!4M_"
^XMB(3.9,23,2,155,0)="""DATA"",396.18,194,3,16,0)"
^XMB(3.9,23,2,156,0)="MJ83IN9IM:0[#,WF+@'[<_*0I2F=^MF!Z1P$(^9E.%.`X37`D_DT!(#L<R$D0"
^XMB(3.9,23,2,157,0)="""DATA"",396.18,194,3,17,0)"
^XMB(3.9,23,2,158,0)="MTW1Z?"")9G?F.2'H9ID=#,4KPG^H2%%2\4U&Z\M,5S[.M$T""2?6+2-,*H?H6:"
^XMB(3.9,23,2,159,0)="""DATA"",396.18,194,3,18,0)"
^XMB(3.9,23,2,160,0)="ML$1?#*A>YE3/5K5\IFB[J$HXUK5DS11-XT;7\6U&\3+"":F8:]**B',[/Y*XO"
^XMB(3.9,23,2,161,0)="""DATA"",396.18,194,3,19,0)"
^XMB(3.9,23,2,162,0)="M+NL%T[[LV)7R67BZ?)6-`GBETCF_!V3Z6PH?Q&4?VF@VV;NR86\Q#>[N>WW%"
^XMB(3.9,23,2,163,0)="""DATA"",396.18,194,3,20,0)"
^XMB(3.9,23,2,164,0)="M]<RUG7D/E=R>+O)?3B\(.G!H1ILSBP@D?_(@O1%/HX-5WHVIW>PZ*J@GK]H>"
^XMB(3.9,23,2,165,0)="""DATA"",396.18,194,3,21,0)"
^XMB(3.9,23,2,166,0)="MEJ*W5I#KH8*VNJ,]/K6\I)Y;KKVDK58\S<(WZYNZ6=17BTBI\B3>'&R8TG]4"
^XMB(3.9,23,2,167,0)="""DATA"",396.18,194,3,22,0)"
^XMB(3.9,23,2,168,0)="M=L4]/C;6%.Y3BZA@&GH1%/U.X4\0Z5U$)9NK-?E9,MM,K2L`]3G?;+]7`:RI"
^XMB(3.9,23,2,169,0)="""DATA"",396.18,194,3,23,0)"
^XMB(3.9,23,2,170,0)="MU.AXZC:J\8$9N^*8R-&NHBU)B0\NF!82>*%(:MV[8F#WCEV]XW;UNN[CR/$("
^XMB(3.9,23,2,171,0)="""DATA"",396.18,194,3,24,0)"
^XMB(3.9,23,2,172,0)="M/R77*3JJ0Z*C2C-Y3GR)3>PBH+5]M+^D[`,G%>,V_+!HPU.9+)OIUU#L78#]"
^XMB(3.9,23,2,173,0)="""DATA"",396.18,194,3,25,0)"
^XMB(3.9,23,2,174,0)="M927HH+00!V5X6&ASF/5ZV46WB.Y'M^"">:M7X=*@:CX%4GZ!8+P#6W_6Q/L2%"
^XMB(3.9,23,2,175,0)="""DATA"",396.18,194,3,26,0)"
^XMB(3.9,23,2,176,0)="M.IE)IIM2X#.SVQX>#?'5#F-*&9@RV84A5TJ6&T_<F=FO-1H=BV:QH'8OVAB("
^XMB(3.9,23,2,177,0)="""DATA"",396.18,194,3,27,0)"
^XMB(3.9,23,2,178,0)="M[B%57<'BZZ#(4*917H+2_*TB,C/^MC!>9IKBY?%Y5RLB_8:^CC1L[PIXD(_Y"
^XMB(3.9,23,2,179,0)="""DATA"",396.18,194,3,28,0)"
^XMB(3.9,23,2,180,0)="M3(SO#1,33R!7C5^U(W7+]]J'9:_-)""[Q`<:E)X!+;^!<NKO&7^^E@8CO$B%$"
^XMB(3.9,23,2,181,0)="""DATA"",396.18,194,3,29,0)"
^XMB(3.9,23,2,182,0)="MVT\`^1P#.09Z]3[??KZX'^QG/,)^LJ@@_B#%W@O87QT2X`\%[""<1+WS)0<1N"
^XMB(3.9,23,2,183,0)="""DATA"",396.18,194,3,30,0)"
^XMB(3.9,23,2,184,0)="MD$N:[8""5W4-;&@Z319[QNRG,:R#'F\$X_^XY1`(9KL""FRW5X\LY/7J.V;'2<"
^XMB(3.9,23,2,185,0)="""DATA"",396.18,194,3,31,0)"
^XMB(3.9,23,2,186,0)="M""?""WF``_"".BV.;ISOBU+CX\V9<M.3VD&AN1Z=FF'\*+L(+<][%F#G)N0.`=R"
^XMB(3.9,23,2,187,0)="""DATA"",396.18,194,3,32,0)"
^XMB(3.9,23,2,188,0)="MD?BL$L:ZYF+BTS,2XY!3PK9&9%VB:]8B`6VA>V]YJ/9>LJV'/.V&96]%\#/1"
^XMB(3.9,23,2,189,0)="""DATA"",396.18,194,3,33,0)"
^XMB(3.9,23,2,190,0)="ML%=-,C4[+@IBXLNA[)QH+D*9*MD5%J%@]B&R!B]4#/*K]HM0>O(S=FG5GK:W"
^XMB(3.9,23,2,191,0)="""DATA"",396.18,194,3,34,0)"
^XMB(3.9,23,2,192,0)="M^;*;?TXE13-5`/[]ME*[ZB;\&^\EX^`&3##T@?&1/&#D*""-=/QM*XEFV5G\/"
^XMB(3.9,23,2,193,0)="""DATA"",396.18,194,3,35,0)"
^XMB(3.9,23,2,194,0)="MSP`LM:+O[[AIWP\HGV<&8`(X_B[?]]^S'Q)\B7""GF&;6+_XZBET%[(D0WW\N"
^XMB(3.9,23,2,195,0)="""DATA"",396.18,194,3,36,0)"
^XMB(3.9,23,2,196,0)="MX/OG2V7=Q#JHK90W3,OP;AG@[7?Y,+7O8E.K!?(=5:<_?`FYAF.N(LW;P#Z?"
^XMB(3.9,23,2,197,0)="""DATA"",396.18,194,3,37,0)"
^XMB(3.9,23,2,198,0)="M0W,]W2-!S1J]['*@>Q()A$.4TAQO!H0_""$&8]A'JUHY6L;!4%'>PG&KZJF5C"
^XMB(3.9,23,2,199,0)="""DATA"",396.18,194,3,38,0)"
^XMB(3.9,23,2,200,0)="MUU0T/1.YFFE1J/C!>@NA%'.TB<^`(4I\+`3F_4MX^(YFK[K(V=3))1J3&I""["
^XMB(3.9,23,2,201,0)="""DATA"",396.18,194,3,39,0)"
^XMB(3.9,23,2,202,0)="M;>48;DR<RG-@;)_B$`<%P[_OEZ.1/FD$PK5GF$_Z3^Z3KG`VW1.9/][-0[!$"
^XMB(3.9,23,2,203,0)="""DATA"",396.18,194,3,40,0)"
^XMB(3.9,23,2,204,0)="MXD$AD9@9%V>D""%+W)M\Z9OB43*12[9!""C(>""G!!UZTM*793I-D""9""$4Y)KF"""
^XMB(3.9,23,2,205,0)="""DATA"",396.18,194,3,41,0)"
^XMB(3.9,23,2,206,0)="M84#YK[X%>=A'F<Z.=?H0KF^8'FH#T+$Z$4X*=.:##/M#@/T9/\*YN!\BG(Z("
^XMB(3.9,23,2,207,0)="""DATA"",396.18,194,3,42,0)"
^XMB(3.9,23,2,208,0)="M""`>V+^\3-Y43>DB$DPE$.%/8,;)<Z)SI>I6BK@W`#X^8UB.Z90^V6L23!A]R"
^XMB(3.9,23,2,209,0)="""DATA"",396.18,194,3,43,0)"
^XMB(3.9,23,2,210,0)="M+U7F9[@R_V*(HSSKQP/5:,>/;^[PPE2:T>M8TJX[>KDG""B/D.K['Q'D;/,""3"
^XMB(3.9,23,2,211,0)="""DATA"",396.18,194,3,44,0)"
^XMB(3.9,23,2,212,0)="M08C'@[%`*_O_I)C;?QBF[CW^U/57`X""QYG(X]W#QM<O((B&?Z6J;IFOB&6Z#"
^XMB(3.9,23,2,213,0)="""DATA"",396.18,194,3,45,0)"
^XMB(3.9,23,2,214,0)="M0*!![D$*]^\4B7T?""65?<_'36<8^&R\$/$<W/)K-T8MEO0WXUW@>+""U*WQ*P"
^XMB(3.9,23,2,215,0)="""DATA"",396.18,194,3,46,0)"
^XMB(3.9,23,2,216,0)="M[_=""V9=JBGW]ETS7P%R1<JDD)D?;))F(G4NK,S'>,!,SDA`NU=7A\>8VV/.("
^XMB(3.9,23,2,217,0)="""DATA"",396.18,194,3,47,0)"
^XMB(3.9,23,2,218,0)="M+-EPC.""V41JVX;3A:%84/[#IB1=#&==<%O:""GYX@?,-$B`9OF=Z&QI:]&EX("
^XMB(3.9,23,2,219,0)="""DATA"",396.18,194,3,48,0)"
^XMB(3.9,23,2,220,0)="MM+P:=T2NA\`9?IZMAV*Q5MZ?ZVI^!<:BM\0_,'COY@'-L[Y@/""6L3I)M$*AW"
^XMB(3.9,23,2,221,0)="""DATA"",396.18,194,3,49,0)"
^XMB(3.9,23,2,222,0)="MAL+,BF';\QSEYWR4LU64R8F:U<GMBM7N!'JUWC(%5ML):@)RP(/O5XM;]\,>"
^XMB(3.9,23,2,223,0)="""DATA"",396.18,194,3,50,0)"
^XMB(3.9,23,2,224,0)="M;&=$3`N.(TZ+[>('`/RW0XI8S@:6*5>P!#G.AFW><GWE[5^/0+G?;%S*P/Y"""
^XMB(3.9,23,2,225,0)="""DATA"",396.18,194,3,51,0)"
^XMB(3.9,23,2,226,0)="MR'KDWA7S:;J-C.<8^SELF#>JN/9R01(%C>ELXLMR<OG=]:""A[5:#UIAWSHZ("
^XMB(3.9,23,2,227,0)="""DATA"",396.18,194,3,52,0)"
^XMB(3.9,23,2,228,0)="MFWH/`-0/^5""?J'KGB>:6)CT+MD%79I-[XW>[9V%*U.YYD#OUS+2-HP-?#(FB"
^XMB(3.9,23,2,229,0)="""DATA"",396.18,194,3,53,0)"
^XMB(3.9,23,2,230,0)="M\8F[U55*%H3F,_)N\\_[G'Q`X&1S`>+I61I9&XCM5CAD/]$UW5:/;#H;9AV$"
^XMB(3.9,23,2,231,0)="""DATA"",396.18,194,3,54,0)"
^XMB(3.9,23,2,232,0)="M`E,Q20C?'\JZD>9VE@4+2G8^V,YRS?*X1?;J;W6)DH5$Z/F85`>S%<;%YM9Y"
^XMB(3.9,23,2,233,0)="""DATA"",396.18,194,3,55,0)"
^XMB(3.9,23,2,234,0)="M)T4!Q)Q""!3SR5A<_M6&^0:#]EY+XQ2MA?!N[>;[QHLNV$;R&5WA9R$+_NBQX"
^XMB(3.9,23,2,235,0)="""DATA"",396.18,194,3,56,0)"
^XMB(3.9,23,2,236,0)="M.V$,;""X_<SI'%\.,@6NFZU8<-.`.MKKH=?&3%WW""R8N4%""\-!XR<4/XQD?4E"
^XMB(3.9,23,2,237,0)="""DATA"",396.18,194,3,57,0)"
^XMB(3.9,23,2,238,0)="M(^0XQT&1J!RJ<*J_'$HU'4(ULCIT!*S))3:I[VSEU6=/D^='PL4X!3-T)""YY"
^XMB(3.9,23,2,239,0)="""DATA"",396.18,194,3,58,0)"
^XMB(3.9,23,2,240,0)="M\*\&W%`ZDTXV%PN=%PT!VC9(JH=X(JN@6Y[F$<$6[4*DN%4A=]=;;L%6@2N>"
^XMB(3.9,23,2,241,0)="""DATA"",396.18,194,3,59,0)"
^XMB(3.9,23,2,242,0)="M>\+:R9=;S^R'Y98:$;M#LG-!.C*@-E3VDL./UDE<Z*<U]W#1%:&5<CDSJM7*"
^XMB(3.9,23,2,243,0)="""DATA"",396.18,194,3,60,0)"
^XMB(3.9,23,2,244,0)="M!]JH9KLQK1S)AM1.""$6<K_4-7*K)O9-CY'@J4<@""G^[)O?8KG;1`656GB[9="
^XMB(3.9,23,2,245,0)="""DATA"",396.18,194,3,61,0)"
^XMB(3.9,23,2,246,0)="MV%&[<Q6G4L2<5?OP=^TR?+K5I<H(Q-O?5R2>?M[GZ6,""3[.1/.T.X>F)ZH[`"
^XMB(3.9,23,2,247,0)="""DATA"",396.18,194,3,62,0)"
^XMB(3.9,23,2,248,0)="M&CT""9AD[>\[5WB7#T%T\/+(6G&/#\M1>K.YX%>5%,[3NSCNLFY^B+'P,6/@]"
^XMB(3.9,23,2,249,0)="""DATA"",396.18,194,3,63,0)"
^XMB(3.9,23,2,250,0)="MW\:^LA]L;%>$C4U)%1?=;9C2:E!1`.B+#.A*[3FBAP4]:6Y%=>H*ECS;V6FO"
^XMB(3.9,23,2,251,0)="""DATA"",396.18,194,3,64,0)"
^XMB(3.9,23,2,252,0)="M%7W#*X*1M)A5NA\$Y*-*"".-&FRP5GX;E)[8O=DG,MK5MX1N4:25>8CLA?Z'4"
^XMB(3.9,23,2,253,0)="""DATA"",396.18,194,3,65,0)"
^XMB(3.9,23,2,254,0)="M.O5S+>34.V^/4\](BG5_=,T6UJSFCFF?FN-^1TQ63+;,R8Q;<$8-\A82\Z^)"
^XMB(3.9,23,2,255,0)="""DATA"",396.18,194,3,66,0)"
^XMB(3.9,23,2,256,0)="MB49+6&B:`F_337GWN[$UKSA.,!4YN<=,/7C5)F=;86SJL10I0BB25589.=H."
^XMB(3.9,23,2,257,0)="""DATA"",396.18,194,3,67,0)"
^XMB(3.9,23,2,258,0)="MTAVU-RW\G*G^?&R$W(NM""/*O1>_4-KB0A'*?(W0""W@@3\!N!""2#KR.;2F?<)"
^XMB(3.9,23,2,259,0)="""DATA"",396.18,194,3,68,0)"
^XMB(3.9,23,2,260,0)="M$T`VNNV*)\[""S;$E)[`E5X\M4DXR.C(""W7Z!Z?9/`OQA/S3ZPGX(C;IY:'1("
^XMB(3.9,23,2,261,0)="""DATA"",396.18,194,3,69,0)"
^XMB(3.9,23,2,262,0)="M#(W&H""3Q$(7>V=2A""W8V<=XR\(-,BTQ8RVWY)45T;ZA3JJ])1GB-(C,%9""U<"
^XMB(3.9,23,2,263,0)="""DATA"",396.18,194,3,70,0)"
^XMB(3.9,23,2,264,0)="MJ\>+ICLIR'L#Y_`O""J%+MBGEO:MZ#G]-/(>Z7T_AC\`9G3]21%;&'P_CY%A3"
^XMB(3.9,23,2,265,0)="""DATA"",396.18,194,3,71,0)"
^XMB(3.9,23,2,266,0)="M?N@0_NC2%B.DN+4-""O6JAP*/U!P*G!!5BMO*KE@P?9L:'6WT3.""Q:HC!94R]"
^XMB(3.9,23,2,267,0)="""DATA"",396.18,194,3,72,0)"
^XMB(3.9,23,2,268,0)="M(%PSK4W,,,O3\?ICU=Y""16SG-Q$Y1*.>YQ%)G9M<]7PU6M%P0$I/4?D5QIK!"
^XMB(3.9,23,2,269,0)="""DATA"",396.18,194,3,73,0)"
^XMB(3.9,23,2,270,0)="M^IE%Q[N0GMR2$LM76C&%E;C9HX>\]51%2LO'_(J7;S3L`QEWXJWO$7M""/>+$"
^XMB(3.9,23,2,271,0)="""DATA"",396.18,194,3,74,0)"
^XMB(3.9,23,2,272,0)="MJ'1""@><*_BHD5W!O\!PBZ4G'#@*W0/V+C&M,;*W`V[7\@:^X#_FP?KB""BA@8"
^XMB(3.9,23,2,273,0)="""DATA"",396.18,194,3,75,0)"
^XMB(3.9,23,2,274,0)="M:7:$Y4?KGZY@:TOZTN!XN=2O>;9F.`B;74W7BEBG8*N0_-+5C*)NEE""!A&*T"
^XMB(3.9,23,2,275,0)="""DATA"",396.18,194,3,76,0)"
^XMB(3.9,23,2,276,0)="MMM9<,_&G0H4H.CW,A[;UDFG1,HL!=W!8RV_0""E+Z=49NRRP6R:V61LX'\D9+"
^XMB(3.9,23,2,277,0)="""DATA"",396.18,194,3,77,0)"
^XMB(3.9,23,2,278,0)="M_#!@_R7;("">NO>J`MDRK8&\-:3HIA78\?D*R'V[`9,C#""\C#I%!ALE]S*3X\"
^XMB(3.9,23,2,279,0)="""DATA"",396.18,194,3,78,0)"
^XMB(3.9,23,2,280,0)="M`OK`X9`J?YESXR+GKM4>61&BB&O`N9!!8JXA4L6A%71/QYY@77=H4L#GG(._"
^XMB(3.9,23,2,281,0)="""DATA"",396.18,194,3,79,0)"
^XMB(3.9,23,2,282,0)="MNDDW5VR?49JW4T:[CV]""')\%X]L,&=\""'Q\TP^/#I--!QT@O$WG>))*VH^D&"
^XMB(3.9,23,2,283,0)="""DATA"",396.18,194,3,80,0)"
^XMB(3.9,23,2,284,0)="M#L9U%A6YE=62Z9%V6`3#</A@8&\:_`-O9-,3'$L\%45!\C#7ZE!(1U`8E<(^"
^XMB(3.9,23,2,285,0)="""DATA"",396.18,194,3,81,0)"
^XMB(3.9,23,2,286,0)="MJPZ%S'""DS8=,VM^P',<'`SD.+?)PG]*$#3XHVF#8UO]]1>I^\JB_#OEP;-_9"
^XMB(3.9,23,2,287,0)="""DATA"",396.18,194,3,82,0)"
^XMB(3.9,23,2,288,0)="MX%X^@0>E""63SEZ9\Z`$^?+VA;.WC)CDCM6*NMYP!YKUM[J*H^D&>'@M*95\>"
^XMB(3.9,23,2,289,0)="""DATA"",396.18,194,3,83,0)"
^XMB(3.9,23,2,290,0)="ME<HDL*TX:#*<%J1,@-8\T+HWI*]HKE)T(ZF,BU2XGBP&J1Q=1F[9Q"",B""6`2"
^XMB(3.9,23,2,291,0)="""DATA"",396.18,194,3,84,0)"
^XMB(3.9,23,2,292,0)="M<4<1G!`()OZ>ZTQ_R+BNTRL1%B`I;`<GOLO)G`^#9U>L@AM!)B6.YK\YF84@"
^XMB(3.9,23,2,293,0)="""DATA"",396.18,194,3,85,0)"
^XMB(3.9,23,2,294,0)="MF4-L-)JQH5OK:""_/FLL`(""8[0P$<C@4J5J=\!!X@6""#![0""6'@,6;EOL.@UZ"
^XMB(3.9,23,2,295,0)="""DATA"",396.18,194,3,86,0)"
^XMB(3.9,23,2,296,0)="M#;N$'22VW]C0K^K8""^*U[:`VH&,;0,YCPZW@:-,TA4)/=Q@L?XUC&N3!]B/"""
^XMB(3.9,23,2,297,0)="""DATA"",396.18,194,3,87,0)"
^XMB(3.9,23,2,298,0)="M7Q]LK9-Y,NL@I_.;2N.\NZQCZ""&\6R?7_S_Q+BOJS2>5VK:H@M[0;5^-U#R1"
^XMB(3.9,23,2,299,0)="""DATA"",396.18,194,3,88,0)"
^XMB(3.9,23,2,300,0)="M0J<(<J-BUS;_(&B\,T@O=C&""A&CN$E_E%.X/,0CL2LMH,-0D_6I3V""5?F!5M"
^XMB(3.9,23,2,301,0)="""DATA"",396.18,194,3,89,0)"
^XMB(3.9,23,2,302,0)="MX1]S`EH(]'G+V$!N5$`#Q4+Q'4K(VO5PCN""C=STJ4ULY-B;ZE0RHWN\$2[S&"
^XMB(3.9,23,2,303,0)="""DATA"",396.18,194,3,90,0)"
^XMB(3.9,23,2,304,0)="M4MFLE*<)DI)<U/5H4JFQD924P0@I/4N*M'ZF#JWQD=&:3@4!6BFA64WB.P$7"
^XMB(3.9,23,2,305,0)="""DATA"",396.18,194,3,91,0)"
^XMB(3.9,23,2,306,0)="M)4),URWQ/!7>NHJ17Z?D_YT?POF""/];[&?V.T72RP7W</<[8L:Y/Q#VI'<30"
^XMB(3.9,23,2,307,0)="""DATA"",396.18,194,3,92,0)"
^XMB(3.9,23,2,308,0)="M1A<B1J>>,J([S,<""!\I%IH_X!C8B""=4=&.*C6BJ)ER7X;QK_S235WI$DWU-0"
^XMB(3.9,23,2,309,0)="""DATA"",396.18,194,3,93,0)"
^XMB(3.9,23,2,310,0)="MZHT+]J\^JS0RL,QN`^MI=F`AT@F<6J4#^AB7SH$02<^,U'2K""-`""=)]0&B""6"
^XMB(3.9,23,2,311,0)="""DATA"",396.18,194,3,94,0)"
^XMB(3.9,23,2,312,0)="MV:WZ,RVJS1]&J4W'6"":5D>KRH_-64$_Z$7G1]'Y_T?3<?F@H<2#4NXPGQ4JS"
^XMB(3.9,23,2,313,0)="""DATA"",396.18,194,3,95,0)"
^XMB(3.9,23,2,314,0)="MPP""]%+)YDPZLDZXBNUS4W=*`.\@3)@Z[!PN6CF]IL=43[YWQ"",6:!ZP_&]I,"
^XMB(3.9,23,2,315,0)="""DATA"",396.18,194,3,96,0)"
^XMB(3.9,23,2,316,0)="MPM37+;*]2(!I&!)&-(""V=<,;C%BWC(T+Q+&SKG-^ZNPEDOFB@1Q_RD""I='$'"
^XMB(3.9,23,2,317,0)="""DATA"",396.18,194,3,97,0)"
^XMB(3.9,23,2,318,0)="M_XFD/B%2YT*?^.<0ZBE2X>?2:2K@Y[!N7R391I-)`Z9E%""LTGL3AUCIR(A\Y"
^XMB(3.9,23,2,319,0)="""DATA"",396.18,194,3,98,0)"
^XMB(3.9,23,2,320,0)="MD1(?F>7./A=\XF'6E\+O215!#\+I[S`C\#]<<3<XP3,^P0<X@[!T>>+@?2Y5"
^XMB(3.9,23,2,321,0)="""DATA"",396.18,194,3,99,0)"
^XMB(3.9,23,2,322,0)="MB[IW""42AHAM0\(<*53G5I[YZELPO99K_;)UNWE$Q]TQ#'$JA,*252D-:G?%$"
^XMB(3.9,23,2,323,0)="""DATA"",396.18,194,3,100,0)"
^XMB(3.9,23,2,324,0)="M5+/""#M''&1]V`E%4=,NGKB;K4,+C`M""""?JFQQ%=\A@P)9W.;Z[E]UW7=I5:`"
^XMB(3.9,23,2,325,0)="""DATA"",396.18,194,3,101,0)"
^XMB(3.9,23,2,326,0)="MZ0OIP;9NZ5*'T,B6G5W7+-*NTU)J8KG:H\7<+3$=7H71#\:""?8]2R61[-#H*"
^XMB(3.9,23,2,327,0)="""DATA"",396.18,194,3,102,0)"
^XMB(3.9,23,2,328,0)="M!JQI46:?50(@3PH@4[OTP^+[UXS8UX/$Q/G.MDL_K%J.B98]<5<LZMT>!&.F"
^XMB(3.9,23,2,329,0)="""DATA"",396.18,194,3,103,0)"
^XMB(3.9,23,2,330,0)="MWC$3D:9LK^H3'0DA&GHT/B7-[70L,!UIGVIR8J+=C\""#""WE4V@;K\C<$G]U_"
^XMB(3.9,23,2,331,0)="""DATA"",396.18,194,3,104,0)"
^XMB(3.9,23,2,332,0)="MR>B^4""_$EXTYZ8#&2$B4]:I@[;#MEDE""VGR:;K&0V&J%>>Z]?_N0#!)F^R(%"
^XMB(3.9,23,2,333,0)="""DATA"",396.18,194,3,105,0)"
^XMB(3.9,23,2,334,0)="M.0KJLA:,%TYQ2!1ED9^8CJ"":%JG^-+#N0,C.U!B)&B:Q_][!GAD/<X.2)UDT"
^XMB(3.9,23,2,335,0)="""DATA"",396.18,194,3,106,0)"
^XMB(3.9,23,2,336,0)="MS5RCS:`I\_1RV;&WS1)Q\X7H/#2O=;\H-PM^>_""Y9Y:1[K*)\>!P!816$:2A"
^XMB(3.9,23,2,337,0)="""DATA"",396.18,194,3,107,0)"
^XMB(3.9,23,2,338,0)="M1S=`.@60/AT+AB3N'.DKI!L;&E8-RQO2ULC&)F0(&2+36B-]7\CM0[`]V`^^"
^XMB(3.9,23,2,339,0)="""DATA"",396.18,194,3,108,0)"
^XMB(3.9,23,2,340,0)="MM%];(WNHU1OH>V?8UPAKRA5W@S6""I;MRL%F[6T3%/3!CS(^40+U7E3/C*Y52"
^XMB(3.9,23,2,341,0)="""DATA"",396.18,194,3,109,0)"
^XMB(3.9,23,2,342,0)="M26<%WSH>^(8LRBQ(9;PBO5K]S<')J+ZI4#2\RM[A]!*?E!M!S@T]S%**6%<H"
^XMB(3.9,23,2,343,0)="""DATA"",396.18,194,3,110,0)"
^XMB(3.9,23,2,344,0)="M-L_6]$*!,(@^""C9(87R[!VT9J4E;HA@(VAZ\Z:`MZ'A$R8O/`7\G@MX_DQP?"
^XMB(3.9,23,2,345,0)="""DATA"",396.18,194,3,111,0)"
^XMB(3.9,23,2,346,0)="M""PF7^D3O+Y(JU2,UD6[7CI^I45$@/\H%\E.QP%'<5""8[V@8H([LC\2K3(TS^"
^XMB(3.9,23,2,347,0)="""DATA"",396.18,194,3,112,0)"
^XMB(3.9,23,2,348,0)="MOZ9$2Z'*Y+[Q&O;P)_*3A=N[/A""+/;:T0EQP<\\#A.]@==PST1EFOF!H_(5J"
^XMB(3.9,23,2,349,0)="""DATA"",396.18,194,3,113,0)"
^XMB(3.9,23,2,350,0)="M$4\<D9YXHYDG)IIN`,5/J3)9[8@%9%47PK_Q-I#5[CJU""%+)&W_3XJF;B/Y:"
^XMB(3.9,23,2,351,0)="""DATA"",396.18,194,3,114,0)"
^XMB(3.9,23,2,352,0)="M.-X[&+Y/#R;\;5(?^J&0>&\P>""`72HY6RL@PUTQ#@U-3+=>-'ESB&YDQ<F-W"
^XMB(3.9,23,2,353,0)="""DATA"",396.18,194,3,115,0)"
^XMB(3.9,23,2,354,0)="MS!E#9RU^=NAI_N3[^)./1EJEQ$W9""-YQ^!7V0""?@_>^+MKLW:952TMYSO2>V"
^XMB(3.9,23,2,355,0)="""DATA"",396.18,194,3,116,0)"
^XMB(3.9,23,2,356,0)="M_IGGWCQ8D>KK0?P+X%^ZJ**<!T51?!LQ&\.+!>=IWPH-YQT\=&P%>HX36U2]"
^XMB(3.9,23,2,357,0)="""DATA"",396.18,194,3,117,0)"
^XMB(3.9,23,2,358,0)="MODRJ+A+)^""GYLG][[U3%L]GUL/?$RMH+^Z7'Z*!>#ZRW@O'MZ8CRP%;9.N9%"
^XMB(3.9,23,2,359,0)="""DATA"",396.18,194,3,118,0)"
^XMB(3.9,23,2,360,0)="MQPS(%G#W^9""%QH?SO&*0UC>7;9>VTQW""F(3W2!BF8U1*KJ=;!F283<OT3+R0"
^XMB(3.9,23,2,361,0)="""DATA"",396.18,194,3,119,0)"
^XMB(3.9,23,2,362,0)="M*^F6N89<C[^A@.T&0*$""K>2TGJJ0A8!#UR2D>I&6""=(*1;P>(YTB6(NJ3=)."
^XMB(3.9,23,2,363,0)="""DATA"",396.18,194,3,120,0)"
^XMB(3.9,23,2,364,0)="MC%F\R=:K:^!&KS,FR<9,2%T#SV'3LHT]>;%N:#X<,A$GI=5;_,TAW:9)Q(`G"
^XMB(3.9,23,2,365,0)="""DATA"",396.18,194,3,121,0)"
^XMB(3.9,23,2,366,0)="MSS7IR;?;@>*V""38<I004W[SEO0F^L/P4,[<_4&I?.%;5E`=GZ,DR85O""I2+M"
^XMB(3.9,23,2,367,0)="""DATA"",396.18,194,3,122,0)"
^XMB(3.9,23,2,368,0)="MD2)DP[;P^NW.M7]K1G3A7#?P[%=XZ/G7(5M(C_B]U%VBEVAM#0<I+CM\;-3"""
^XMB(3.9,23,2,369,0)="""DATA"",396.18,194,3,123,0)"
^XMB(3.9,23,2,370,0)="M;V(O)BN.(!=KJ)M[X'ENXP_D77A5T;M$%!*WBFB/CHIC?K)NZ7++C!FLXLO*"
^XMB(3.9,23,2,371,0)="""DATA"",396.18,194,3,124,0)"
^XMB(3.9,23,2,372,0)="MKH/.[,F@@SF6""<F._P2(XC?""6D@EDR$)""#')(GK9Q(=X_N$EW\TN5&FEQMIC"
^XMB(3.9,23,2,373,0)="""DATA"",396.18,194,3,125,0)"
^XMB(3.9,23,2,374,0)="MAZ4[OX!],([/_)B??4R+&JS&`EOH<P+4[""%Z]J^`""NS(@%RL4KL3J*YX1*G5"
^XMB(3.9,23,2,375,0)="""DATA"",396.18,194,3,126,0)"
^XMB(3.9,23,2,376,0)="MXSBF6B>+!1,O!W>T+1OS2>V9+Y$@`14T]0SM:TGSA-@J;%W$D43)=,DA+U?M"
^XMB(3.9,23,2,377,0)="""DATA"",396.18,194,3,127,0)"
^XMB(3.9,23,2,378,0)="MI,9>.;!8*7HF>VB/E%:)@I61S#_'%7]'H%]Q,IT>;PH6*UKJ9:\3IRK03;+W"
^XMB(3.9,23,2,379,0)="""DATA"",396.18,194,3,128,0)"
^XMB(3.9,23,2,380,0)="MA.%XN/F+N;QZ[!(Y/E$DB>DBO^GH4L4KXQ]I%>GVSCJRU(Z9W%1.[2,1[09B"
^XMB(3.9,23,2,381,0)="""DATA"",396.18,194,3,129,0)"
^XMB(3.9,23,2,382,0)="M[V'<!7##O2CA?52)""S&IZW;BBTK(VYHRS;4F.+^RNPL)ZP[80#LP-33#(KFY"
^XMB(3.9,23,2,383,0)="""DATA"",396.18,194,3,130,0)"
^XMB(3.9,23,2,384,0)="MG^)0ON9KXR-^-C""5FFBG9M-=8;9'0OOQ>FB3$VV%MCL,[;B(]KM!M%.""^<FT"
^XMB(3.9,23,2,385,0)="""DATA"",396.18,194,3,131,0)"
^XMB(3.9,23,2,386,0)="M`4@AQ7%(6O^/BPNWNP-M=:L'[8X29^;GC(@YV\M,@')3R0YN?I9CN\+M$T]'"
^XMB(3.9,23,2,387,0)="""DATA"",396.18,194,3,132,0)"
^XMB(3.9,23,2,388,0)="M-EY>'%UWF1(972<,&!W)UC:JCZB]C-5:+H7^B4J20F7[^UCH-`0C2/FUAXG]"
^XMB(3.9,23,2,389,0)="""DATA"",396.18,194,3,133,0)"
^XMB(3.9,23,2,390,0)="MMT=^*+1(/2/.Q%'@PZ&0E.F%X!9YM:\4=H^5DC[@#N[]YKB$#A+""1Z77""+\0"
^XMB(3.9,23,2,391,0)="""DATA"",396.18,194,3,134,0)"
^XMB(3.9,23,2,392,0)="MLO*Y0,KWAOQ=<;^.CQ=94GQ[LA""/R%1*!ZV^&=@AZF^A1*72_'[-N#AO8S!O"
^XMB(3.9,23,2,393,0)="""DATA"",396.18,194,3,135,0)"
^XMB(3.9,23,2,394,0)="M?;YV?D`1BH#&VN_%>I(I`@WLD/JX_(>?B_VM_;!?<SB\,EA2SV,`_<_C0>.S"
^XMB(3.9,23,2,395,0)="""DATA"",396.18,194,3,136,0)"
^XMB(3.9,23,2,396,0)="MP8S/169XJF7""M*L^!+F0_81CV51Q+<TVC$J9JC0)];$#VS2]'?JUBEO!EPJZ"
^XMB(3.9,23,2,397,0)="""DATA"",396.18,194,3,137,0)"
^XMB(3.9,23,2,398,0)="M6=SAOS""1N_?V2][NX6T!_XRM$=[Q?['=4V^C`!QUMU2U^FU?.!=BH1L""+]R6"
^XMB(3.9,23,2,399,0)="""DATA"",396.18,194,3,138,0)"
^XMB(3.9,23,2,400,0)="M#0%X-T:\CT)_+U_A#X24O+PN5YUUNMAA5?%OK2#7(WE""[+9<US9,G9R!IZ]M"
^XMB(3.9,23,2,401,0)="""DATA"",396.18,194,3,139,0)"
^XMB(3.9,23,2,402,0)="MHHE#OQ*\95*L_-6+/13SY3A,=R$(^<14@24]L13ODF>%DQ;Q`]*6\+^$N,&+"
^XMB(3.9,23,2,403,0)="""DATA"",396.18,194,3,140,0)"
^XMB(3.9,23,2,404,0)="MT&:`50A1,:)U4+S-0RUO0U*!DO]-""S,8?RV`206?VWNIY6:""ORV:,>T(,.T3"
^XMB(3.9,23,2,405,0)="""DATA"",396.18,194,3,141,0)"
^XMB(3.9,23,2,406,0)="M(4SK'Y@C$I;.)L<&:]IGK.[0O99=&T'`6YL3O\9B\7'@E!ZR/T!JTV:G9JX("
^XMB(3.9,23,2,407,0)="""DATA"",396.18,194,3,142,0)"
^XMB(3.9,23,2,408,0)="MPAMA.Y)@.S['B%X!""#\,*<)_$^U/;-)J.F/#Q@$#>X.Y)\YYO[C>Z<>7=(^^"
^XMB(3.9,23,2,409,0)="""DATA"",396.18,194,3,143,0)"
^XMB(3.9,23,2,410,0)="MYZ*^:@WO^BK.9%H""/]]8YXD:&AF11N+GE%U:1X03&1$9YA-)_&D(QQ;F+9I;"
^XMB(3.9,23,2,411,0)="""DATA"",396.18,194,3,144,0)"
^XMB(3.9,23,2,412,0)="M8HP2?!#5E^H1DX`/HH&E['0:8%%6@O?)>O!&(N&-2O!\(N>""1+J8#XFD)(LK"
^XMB(3.9,23,2,413,0)="""DATA"",396.18,194,3,145,0)"
^XMB(3.9,23,2,414,0)="M#UIZ0EK2?)K(JX/1DXXI%:>,1<L=PN:C;#OTFL@N+$#^5@[;Y\0LY:QU45DG"
^XMB(3.9,23,2,415,0)="""DATA"",396.18,194,3,146,0)"
^XMB(3.9,23,2,416,0)="M#0PPYS!;+40:VY,B1^S7^$ZF;K$RT[)CTC)3T]57S2)Q^/_;WO7%QG&4\;U;"
^XMB(3.9,23,2,417,0)="""DATA"",396.18,194,3,147,0)"
^XMB(3.9,23,2,418,0)="MY_P_<>PD39V27)JV2J!I[W;W_KEMTB1.J""&-7=M)$*'0L[V.EYSO3K=W22Q5"
^XMB(3.9,23,2,419,0)="""DATA"",396.18,194,3,148,0)"
^XMB(3.9,23,2,420,0)="M0H4'_J.*!P25*@2JV@=$X0%5`J&B2J@5""/&`5/%'/""""@_)&0J%H>>$`J,[,S"
^XMB(3.9,23,2,421,0)="""DATA"",396.18,194,3,149,0)"
^XMB(3.9,23,2,422,0)="ML]_<SN[M7M+>;<""*E+VSM=]\WWSSS3<SO_E]YM5RI>5D]NL,V\E%A3!_4=#W"
^XMB(3.9,23,2,423,0)="""DATA"",396.18,194,3,150,0)"
^XMB(3.9,23,2,424,0)="M2CAFD[9WE(31>""6`TN[.^;KC+?>R21RW&>\X,,X9,N2]J:0!4DFW""/<UGC<_"
^XMB(3.9,23,2,425,0)="""DATA"",396.18,194,3,151,0)"
^XMB(3.9,23,2,426,0)="MG1`7K>TI(MQQE\Y.)9@.,'J/_TA4R/&3I+;TS.U@],_)P=SQT3>Q/P_T5+_'"
^XMB(3.9,23,2,427,0)="""DATA"",396.18,194,3,152,0)"
^XMB(3.9,23,2,428,0)="M#+E7DGD<XXK6R)&G;5VN8OP0Y@/BJLOS4#3RW4,U^?Q9A/;>3YOQ:8F]]YTF"
^XMB(3.9,23,2,429,0)="""DATA"",396.18,194,3,153,0)"
^XMB(3.9,23,2,430,0)="MLF1&[>6,*BA3$NH)[/=4YW2#Z\F+>&X1/(=,*7P\XV+3CK8=#=MIZF582\?&"
^XMB(3.9,23,2,431,0)="""DATA"",396.18,194,3,154,0)"
^XMB(3.9,23,2,432,0)="MC].A;4M@)XNFC3?\4=""Z5FM<X6,1=*'?08>011^EBG^.*WX?V#_UG'.\1[T7"
^XMB(3.9,23,2,433,0)="""DATA"",396.18,194,3,155,0)"
^XMB(3.9,23,2,434,0)="M=)JRYUR-\/(POW9\S4Y-R;X<.U=#'S;KE=J6N>;/Z^AGJAPTU16/J6;`QGJ!"
^XMB(3.9,23,2,435,0)="""DATA"",396.18,194,3,156,0)"
^XMB(3.9,23,2,436,0)="M6[X/;7;[""1N'`DRY92'+D).7M19VS=347!73L.'IKDFXQ-!,EMKM?EE>P45Y"
^XMB(3.9,23,2,437,0)="""DATA"",396.18,194,3,157,0)"
^XMB(3.9,23,2,438,0)="M3=.R-Z5'3;[4CWXVI6G-MYR!5_*P,E5<HQ:*_6S44;PYA.9\S(F3NFW69!9#"
^XMB(3.9,23,2,439,0)="""DATA"",396.18,194,3,158,0)"
^XMB(3.9,23,2,440,0)="MDPIF?FDXIWA[YJHP#5@Q-\I7K5HCM7>AAN91DJM6'-13V=G13AV<17UDK2(;"
^XMB(3.9,23,2,441,0)="""DATA"",396.18,194,3,159,0)"
^XMB(3.9,23,2,442,0)="M;Z'\H%*I72/US<&F-SXN9-(V:TX42DV#[\I5LIU`2OSAW[%DV79RXHJU3B('"
^XMB(3.9,23,2,443,0)="""DATA"",396.18,194,3,160,0)"
^XMB(3.9,23,2,444,0)="MSFI6RXW&%OJ0F@)B&S@GP5_N7*J;)LF)V.]2DX^894+#![[;><'""IZ_PJQUG"
^XMB(3.9,23,2,445,0)="""DATA"",396.18,194,3,161,0)"
^XMB(3.9,23,2,446,0)="MD<W)/9@F8>I+35TTRU=(K6<,`$/&N=PR4X?<1B/US.KEYL9,NE7'S,NH\?A8"
^XMB(3.9,23,2,447,0)="""DATA"",396.18,194,3,162,0)"
^XMB(3.9,23,2,448,0)="M%[U*^D?(+,(?[3J/&H53,$BWFYH\XZ'@30TLE*UJ:GS6LM=1&QH._V=XUY;?"
^XMB(3.9,23,2,449,0)="""DATA"",396.18,194,3,163,0)"
^XMB(3.9,23,2,450,0)="M/\C`.9HQRZCK/-EY30%N':M#.%61IW=T$?!D0LSOSG21WZGRO(?:=%RX,#<M"
^XMB(3.9,23,2,451,0)="""DATA"",396.18,194,3,164,0)"
^XMB(3.9,23,2,452,0)="M27N.ST*$8N<<[R;OL[T+0*U""!J[W&8/P.>^*YMX3#:)UPX0)GES-X_VGIU8$"
^XMB(3.9,23,2,453,0)="""DATA"",396.18,194,3,165,0)"
^XMB(3.9,23,2,454,0)="M?:P^RDYS7Y<DE9FVW-9LRS';M879;#@(!`5<)R\)1G_,<RTC$\1>+Z-M'CRU"
^XMB(3.9,23,2,455,0)="""DATA"",396.18,194,3,166,0)"
^XMB(3.9,23,2,456,0)="M46N8/2\60,ESY*37J:&%!KE@:-]H'0::PZK/*9WM6(IDQV'TQ_4ZJ6H19TN&"
^XMB(3.9,23,2,457,0)="""DATA"",396.18,194,3,167,0)"
^XMB(3.9,23,2,458,0)="M+FS*;D+]L[,ELYEHECQ]W6RL6K89;TN&KLO##G><G>S/*$$^&:WPU^`2WCR*"
^XMB(3.9,23,2,459,0)="""DATA"",396.18,194,3,168,0)"
^XMB(3.9,23,2,460,0)="M^=@.7>&#(5,O=;(CRG*B4=N/+I(DC^P1Q-J6H1%WK-JZ$R>#G3(;K5[-R'*C"
^XMB(3.9,23,2,461,0)="""DATA"",396.18,194,3,169,0)"
^XMB(3.9,23,2,462,0)="M?!5S2\8\4H8N94QS1?7-$+;,%""/9<N@,JZ049TL.AO;*$HR4?P\T9#Z:(4^6"
^XMB(3.9,23,2,463,0)="""DATA"",396.18,194,3,170,0)"
^XMB(3.9,23,2,464,0)="MFQNQ-V3X;+((0V6P(:.%RN%9@HV.NR6'0UNR(`3*0%-FLQ$#9<VJF,W8VW(D"
^XMB(3.9,23,2,465,0)="""DATA"",396.18,194,3,171,0)"
^XMB(3.9,23,2,466,0)="MM""WS,*7LX)9Z-+=$`FJ;L3?E:%@.->$XA+$4/,SL:'""N3D,/9<<08'<IO4<)"
^XMB(3.9,23,2,467,0)="""DATA"",396.18,194,3,172,0)"
^XMB(3.9,23,2,468,0)="MXE(^QE;0&2\;&DK)\G':>!KS+:3#N$07DD(QZ$M>O@8O-#H\&X;7U#J<&C^2"
^XMB(3.9,23,2,469,0)="""DATA"",396.18,194,3,173,0)"
^XMB(3.9,23,2,470,0)="M9+1Y'""+V&#-UL1`+Z/E`$""H:HF749]CVWN->WIBB5BQ%P4%[[6I`8,Y9CZ02"
^XMB(3.9,23,2,471,0)="""DATA"",396.18,194,3,174,0)"
^XMB(3.9,23,2,472,0)="MX,.(`SN=XN^X-/I.4TQ'HIT$]\99""\0[!'2)L:L-L!>""K3O9'4L""G:I;G05&"
^XMB(3.9,23,2,473,0)="""DATA"",396.18,194,3,175,0)"
^XMB(3.9,23,2,474,0)="M9DGPQ:S2_:8WG%V240^=G@4QJW07.K5:.6MM]A2)/""'?$<T""SN7D=FJ_%2\*"
^XMB(3.9,23,2,475,0)="""DATA"",396.18,194,3,176,0)"
^XMB(3.9,23,2,476,0)="M=61A<7[A].+RW.FE?N/8I7'R#HC3E-4#V7X!EU.K51_*Y#+Y3*EO;I;G8?L?"
^XMB(3.9,23,2,477,0)="""DATA"",396.18,194,3,177,0)"
^XMB(3.9,23,2,478,0)="M#@`Z['7\=-F\WGR(WDBXG]Q'""/!6VK_SY.4&??DEP'9QR]WUV""G'@5(K5X3C"
^XMB(3.9,23,2,479,0)="""DATA"",396.18,194,3,178,0)"
^XMB(3.9,23,2,480,0)="MG:<DEST,SV4/P""G7AU0Y\E!,(V/""B8Q3$=CCNKBR0($+>XAMI]F%(NYD;\$K"
^XMB(3.9,23,2,481,0)="""DATA"",396.18,194,3,179,0)"
^XMB(3.9,23,2,482,0)="M""_GX75F8%,)_1M,8K?>@`""I^G2O\_*UP;V&2C:-)(=HB]2F;I/HG1=!_-%3]"
^XMB(3.9,23,2,483,0)="""DATA"",396.18,194,3,180,0)"
^XMB(3.9,23,2,484,0)="M70<>0QBM^X9FRJ-A(0LZ6)U(>.BT7+S6FD/W(6""Q*)L,)3)9L^Q5I-QE,WV8"
^XMB(3.9,23,2,485,0)="""DATA"",396.18,194,3,181,0)"
^XMB(3.9,23,2,486,0)="MX""$(1SI!2SN_)[3?A);&HF@O?+L#\M7<%X3H\C8>,ARI+[%<^AW)C%(\56[9"
^XMB(3.9,23,2,487,0)="""DATA"",396.18,194,3,182,0)"
^XMB(3.9,23,2,488,0)="M_*(7RE`PO*3IP)X)T,NJ.LW+:D<=@M,Z,FQM38+=\S2C""`>)^C1KQA]DAZW+"
^XMB(3.9,23,2,489,0)="""DATA"",396.18,194,3,183,0)"
^XMB(3.9,23,2,490,0)="M$M&T_*),?`1[:!K'6+_@N.LG:4.^)FG(@=E6@W+>KO-+XR;WV(YJ(VEB;*#"""
^XMB(3.9,23,2,491,0)="""DATA"",396.18,194,3,184,0)"
^XMB(3.9,23,2,492,0)="MDI_PRII<IM2M[OO#O+X@*'.:OO^CDO<SVAC7-<.\OP2;3V-Y<LG[^HGS;5A+"
^XMB(3.9,23,2,493,0)="""DATA"",396.18,194,3,185,0)"
^XMB(3.9,23,2,494,0)="M=R:::KNNIVDENC(XYDQ'3WFFHVG?Z6BXXT5;LCV""EI""[J5CV&0MF*X1E!WE\"
^XMB(3.9,23,2,495,0)="""DATA"",396.18,194,3,186,0)"
^XMB(3.9,23,2,496,0)="M&^U[F\-&'D]PR;L7S28N=(Q'9JMJ4AB?I!:YQVAY`W*GL0L3R65)IS"".I@:1"
^XMB(3.9,23,2,497,0)="""DATA"",396.18,194,3,187,0)"
^XMB(3.9,23,2,498,0)="M%;+3V5`B6P');/L&!&10PN,Y^OOIYM*(6*[IFE?`[93<J""LQ)6JFGSN[@4D6"
^XMB(3.9,23,2,499,0)="""DATA"",396.18,194,3,188,0)"
^XMB(3.9,23,2,500,0)="M5K\I*VTN&XFL5\+**\(=E+N8N&<EXO8[C,IV^K)UU72`\E""8KPPM`X]ZDT]2"
^XMB(3.9,23,2,501,0)="""DATA"",396.18,194,3,189,0)"
^XMB(3.9,23,2,502,0)="M$<]+1!QR<L:M]""9AYJBD#]<WMFS\=$2&I_452#WZ9460**4T8A+K]M;JAE5&"
^XMB(3.9,23,2,503,0)="""DATA"",396.18,194,3,190,0)"
^XMB(3.9,23,2,504,0)="MV=""J3%3[!N0^^5XN'L<9X""BL=DO28J(/T;1'RY2,?""3.CJDY.WW5Q+#$*O6I"
^XMB(3.9,23,2,505,0)="""DATA"",396.18,194,3,191,0)"
^XMB(3.9,23,2,506,0)="MM2XI.GAIH9VPO$$&SXO""(#W`2',\-^]QZPL2=OT$OBXXOTB!I6R7EG]!PHT&"
^XMB(3.9,23,2,507,0)="""DATA"",396.18,194,3,192,0)"
^XMB(3.9,23,2,508,0)="MO8&MY4S/WA(6X8\V#<2!'CI=L2YCICQ\P0H7\4.NN@;&""IX[4]./MOL8Z_<C"
^XMB(3.9,23,2,509,0)="""DATA"",396.18,194,3,193,0)"
^XMB(3.9,23,2,510,0)="MJ?>YO_.ZQ1$I-'&[DS3A#L7M'QIRG]P=G#'<T&6KSE/8BZ3""\=#96O4RV0IE"
^XMB(3.9,23,2,511,0)="""DATA"",396.18,194,3,194,0)"
^XMB(3.9,23,2,512,0)="M2X>=0JT(Y-(ZC#Z_5#Q6TX#58@5FW!9I;%$SJ&)P_""GWSSM=,^2BC:Y[P.AR"
^XMB(3.9,23,2,513,0)="""DATA"",396.18,194,3,195,0)"
^XMB(3.9,23,2,514,0)="M9S;,OD[XV6]LP*7@MN[N]FU=//!*0MCGV?1SLI'7N=+88'N;)LYBF&]S`RF7"
^XMB(3.9,23,2,515,0)="""DATA"",396.18,194,3,196,0)"
^XMB(3.9,23,2,516,0)="M)>3[J;$LOCQ$ZUFFQC3\*4<_C>?PIVR&?MR.GO#?LL^3C]8(Q!&]C'VG^#JN"
^XMB(3.9,23,2,517,0)="""DATA"",396.18,194,3,197,0)"
^XMB(3.9,23,2,518,0)="M`//1$Q['O1OHE8L3`XY'TQS4]$MLB+[`>U!W-<T78H8W]E$Y#^=95^?O2W4N"
^XMB(3.9,23,2,519,0)="""DATA"",396.18,194,3,198,0)"
^XMB(3.9,23,2,520,0)="MQDGG`7^/+L`UV_W,HV>Y1\^""4)R-)9651V6XX%%?58)4+F3BI'*'P(Q7QE#U"
^XMB(3.9,23,2,521,0)="""DATA"",396.18,194,3,199,0)"
^XMB(3.9,23,2,522,0)="M9[VJ@[B<+W6*R]O:XW(B(X;F:Z9Y)96B_P]JY'\[-:BS!X,]Y-A#GCT4V$.1"
^XMB(3.9,23,2,523,0)="""DATA"",396.18,194,3,200,0)"
^XMB(3.9,23,2,524,0)="M/93HPQ""*W^PIRY\T_J3S)X,_Y?A3GC\5^%.1/W$9&I>A<1D:EZ%Q&1J7H7$9"
^XMB(3.9,23,2,525,0)="""DATA"",396.18,194,3,201,0)"
^XMB(3.9,23,2,526,0)="M&I>A<1D:EZ%Q&3J7H7,9.I>A<QDZEZ%S&3J7H7,9.I>A<QD&EV%P&0:787`9"
^XMB(3.9,23,2,527,0)="""DATA"",396.18,194,3,202,0)"
^XMB(3.9,23,2,528,0)="M!I=A<!D&EV%P&0:787`9.2XCQV7DJ`REHT?""?;?D%G7(9V2)0B';R2$]I=^&"
^XMB(3.9,23,2,529,0)="""DATA"",396.18,194,3,203,0)"
^XMB(3.9,23,2,530,0)="MSK0J%;S+E1I&XZAYE#R.HQQW_2C+B5)#2V0A2+@222+<L<GB[M)64')C:)W:"
^XMB(3.9,23,2,531,0)="""DATA"",396.18,194,3,204,0)"
^XMB(3.9,23,2,532,0)="M/-`WR0W#.%*]ECQZ[0%ZZ7&*B\E(6;D!LO+D++7""UUVB.&""%:#25^T%23C<X"
^XMB(3.9,23,2,533,0)="""DATA"",396.18,194,3,205,0)"
^XMB(3.9,23,2,534,0)="M*EMIYH@@&0^1@R=\>U$84(<]$7X:#""@C)F`'?#*S8QE]M6*NG:LUS95:[0I;"
^XMB(3.9,23,2,535,0)="""DATA"",396.18,194,3,206,0)"
^XMB(3.9,23,2,536,0)="MC8O?4N4=W`X#T+S)CVE>3.Q`?Q^H]#C_`Z+W,-*[20Y@M[-?L*.6,?:%Y"""""""
^XMB(3.9,23,2,537,0)="""DATA"",396.18,194,3,207,0)"
^XMB(3.9,23,2,538,0)="MOX4:P=5G""CVC#PMH(:]`+JR]+N*?GI)`JJ*T7%O^>SJO.R.73>M_XWI_-5J)"
^XMB(3.9,23,2,539,0)="""DATA"",396.18,194,3,208,0)"
^XMB(3.9,23,2,540,0)="M@Z<3?HQ&VT[@>IN#0^7*J0HFCH4,1\(!5VK%QBBYGC*Q@9WBB;:=8NHGNX3C"
^XMB(3.9,23,2,541,0)="""DATA"",396.18,194,3,209,0)"
^XMB(3.9,23,2,542,0)="MK-_S,:[UMMUL6WV7B+7)X!^!PI!A47ZB>&MV;%\T5U&'V.E%<JSTWA<'""'_`"
^XMB(3.9,23,2,543,0)="""DATA"",396.18,194,3,210,0)"
^XMB(3.9,23,2,544,0)="M'-!1!N@H]==*>T^I/U1Z6I4D))138%WX%-U$K;$^2_.07,A'JX:[""[!2TA+"""
^XMB(3.9,23,2,545,0)="""DATA"",396.18,194,3,211,0)"
^XMB(3.9,23,2,546,0)="MF]'FD8&P:%0=JO!ASZUZJ(,>28?#0`>'>9*QMXF%OJ/IE0RKE\!6P2A!?R#5"
^XMB(3.9,23,2,547,0)="""DATA"",396.18,194,3,212,0)"
^XMB(3.9,23,2,548,0)="M*QMM""P[HM>&MKTG+-T;32O$#?U`',XD6!]LKAH#Z8HOFT5K=K/9RT""2Z0AKJ"
^XMB(3.9,23,2,549,0)="""DATA"",396.18,194,3,213,0)"
^XMB(3.9,23,2,550,0)="M4,-+G36\462C`>2I7U&B""-S6?;@KPGFIZ(EVWU9<]^*4""Z<J9;2L(8>8<P(9"
^XMB(3.9,23,2,551,0)="""DATA"",396.18,194,3,214,0)"
^XMB(3.9,23,2,552,0)="MV^GKY4V8,4JYV#18""N*!<&QDXAMT^(:/AV.+$M]@@#>H3W5B,_-!AFIP8LP%"
^XMB(3.9,23,2,553,0)="""DATA"",396.18,194,3,215,0)"
^XMB(3.9,23,2,554,0)="M3(R3)UM69:UO^*R[*][%2)L<=2\$J+MSMK;:(N@;YC&]3`6270W&DJS&E$S9"
^XMB(3.9,23,2,555,0)="""DATA"",396.18,194,3,216,0)"
^XMB(3.9,23,2,556,0)="M74ZRDV8ZWPRBK1O2M[MB<(R:0B2JEBDLD)7W,^\Q""'H[VY-QNO'PMK-\4:FZ"
^XMB(3.9,23,2,557,0)="""DATA"",396.18,194,3,217,0)"
^XMB(3.9,23,2,558,0)="M?^1A[\LN9&/4G55G)`0?(@M=5@ANE(HJ>5)2P8DA<YP28N_U!:,0U+A9(<JN"
^XMB(3.9,23,2,559,0)="""DATA"",396.18,194,3,218,0)"
^XMB(3.9,23,2,560,0)="M4U5.2%1A>)/^50563%*_J[070I%5:$+IDT/]VECK8\5@627U7XI_Q;`)#))$"
^XMB(3.9,23,2,561,0)="""DATA"",396.18,194,3,219,0)"
^XMB(3.9,23,2,562,0)="M^J#VD[N_Q_M'AP+486^BLPYUM/@OUVVSCW0H0AT>2`0XV(DJ86_""3""^DJ.!A"
^XMB(3.9,23,2,563,0)="""DATA"",396.18,194,3,220,0)"
^XMB(3.9,23,2,564,0)="MM.9P=N:.'.\7)L$LU.8)ILT')+S"":()'>C0M^WC8ZYIL+*IR>,\!?EDSJQ>B"
^XMB(3.9,23,2,565,0)="""DATA"",396.18,194,3,221,0)"
^XMB(3.9,23,2,566,0)="MP7OF5^RFB8$FR,!S9,2""I4YO[FWR!94O3Y^WAI=0W:U%9Z9?24IX9?5B#R-2"
^XMB(3.9,23,2,567,0)="""DATA"",396.18,194,3,222,0)"
^XMB(3.9,23,2,568,0)="M%^0O+%HEA!6.^AO/TA?IELM%ZORC2YYPC1;S%4*:C-;VONOZOG0+->@2HS""5"
^XMB(3.9,23,2,569,0)="""DATA"",396.18,194,3,223,0)"
^XMB(3.9,23,2,570,0)="M<02/U#\*Q;#'J+2>U_SJ:MDF\/+4T!E""08[>-+*`KS3930)1#&B8$,;O""6Q8"
^XMB(3.9,23,2,571,0)="""DATA"",396.18,194,3,224,0)"
^XMB(3.9,23,2,572,0)="M,>/3L-2[T3`A-G\HL&&Y8EA`D-.PL0?368P7=T[-=M!3,_[%V#'P29%=:]%A"
^XMB(3.9,23,2,573,0)="""DATA"",396.18,194,3,225,0)"
^XMB(3.9,23,2,574,0)="MJ$T^Z&G;^\%%T5AA(1)2;6%VK/Y8\:B;!^IJ,8.[^#N@D*35_!U0TS%5D]P!"
^XMB(3.9,23,2,575,0)="""DATA"",396.18,194,3,226,0)"
^XMB(3.9,23,2,576,0)="MAVZ*`P8MB>@9\V\3PI+H'=F2:(+!_I>V-NO-VF9/EX$#/BE9""2(^/\B2F+HW"
^XMB(3.9,23,2,577,0)="""DATA"",396.18,194,3,227,0)"
^XMB(3.9,23,2,578,0)="MB9F>]S!+LU+-H6>V(CP%I*OGY!.2I""8?[0!WW$D7FX2[-`;I3$ASE:""Y,D'F"
^XMB(3.9,23,2,579,0)="""DATA"",396.18,194,3,228,0)"
^XMB(3.9,23,2,580,0)="MBK8#/G2RU:C&P%+AF0<ST%+G@BP5[1QG>-8J-QH;9KG?314ZN]2%D_B*IX@K"
^XMB(3.9,23,2,581,0)="""DATA"",396.18,194,3,229,0)"
^XMB(3.9,23,2,582,0)="MM%6T\Z+;`8]PO4QXBM(H/M0J,4@D0]I.![93!Q*!QC.B+<N\?,7];K;0-$ZZ"
^XMB(3.9,23,2,583,0)="""DATA"",396.18,194,3,230,0)"
^XMB(3.9,23,2,584,0)="M`<WV9R5H>!8C66WL$<S$W=BH66M]OUP)3<2FYZ""YOA!DKD*T$;H-$V#WNYU"""
^XMB(3.9,23,2,585,0)="""DATA"",396.18,194,3,231,0)"
^XMB(3.9,23,2,586,0)="M4U*RDQ;'3G<'CL9""Q-&(UDQ6&><4_,9POYMM-+39""M!L+P2Y5S'B9+ELHL7!"
^XMB(3.9,23,2,587,0)="""DATA"",396.18,194,3,232,0)"
^XMB(3.9,23,2,588,0)="M9O_O'(2OC0T35HY(E]LJ6@HVO'3-K%1BD(.E?(_""Z&18)[8YS%8.QYAM]@D'"
^XMB(3.9,23,2,589,0)="""DATA"",396.18,194,3,233,0)"
^XMB(3.9,23,2,590,0)="M\?,]QC:,=7?<9T`=WU#Z6\>A[G3,01T'^[P?1R)3HC`_)8SZZGDV3?Q#\51)"
^XMB(3.9,23,2,591,0)="""DATA"",396.18,194,3,234,0)"
^XMB(3.9,23,2,592,0)="M+V5*<2!O&R<EI3N!5<<7V'53C#:)`EG-2B""K26XMQ0^P>JLC4PN0JXZQ%OV"""
^XMB(3.9,23,2,593,0)="""DATA"",396.18,194,3,235,0)"
^XMB(3.9,23,2,594,0)="M(WGG$OT!36T#W]""%\10D%0/%U>]PS^\O8!P<*;!DAP</A)M&#3J-[H!()/6+"
^XMB(3.9,23,2,595,0)="""DATA"",396.18,194,3,236,0)"
^XMB(3.9,23,2,596,0)="MO!7WN-2CI6@;/WO<!0""F3JDW3%RTZ)99K!LE8#CU1XJ'I>&0:[EBM!3W(-DR"
^XMB(3.9,23,2,597,0)="""DATA"",396.18,194,3,237,0)"
^XMB(3.9,23,2,598,0)="MPU41G=-B&Q\)-EL-,RY&#$T1GLM`(_(""OI^5&;$0S?VF3U1KU'[KEMUL5<IQ"
^XMB(3.9,23,2,599,0)="""DATA"",396.18,194,3,238,0)"
^XMB(3.9,23,2,600,0)="ML=Z`7\0PZ'39(-;Z!HO_Q^7XROE(^$H?B0:4^+-($@=O2GS*:=!#_AHXS`JE"
^XMB(3.9,23,2,601,0)="""DATA"",396.18,194,3,239,0)"
^XMB(3.9,23,2,602,0)="M:""O)I?J&55UMHC0`5PMLN]S?EZX1FN@\IT.S328""S*9GHBV/]K9A6.(RK$9\"
^XMB(3.9,23,2,603,0)="""DATA"",396.18,194,3,240,0)"
^XMB(3.9,23,2,604,0)="MG3P'G3R=B.+DH]T-JSR4^%:D816>Z<ES/D:K/;^F0.""*^F_.\I1SS\?N\IXH"
^XMB(3.9,23,2,605,0)="""DATA"",396.18,194,3,241,0)"
^XMB(3.9,23,2,606,0)="M<8Z4=:N*\5?V#*2%EB3WANR6P%^XM'T)X(*96%,(&QKHS^1FE.[L#FB?A:FC"
^XMB(3.9,23,2,607,0)="""DATA"",396.18,194,3,242,0)"
^XMB(3.9,23,2,608,0)="M'I`Z[CY7:VRB/DL+2XX(_+Z=5S/;EDT;$[>'7\5H_\NK&.E1+]LO+0DWU%Z1"
^XMB(3.9,23,2,609,0)="""DATA"",396.18,194,3,243,0)"
^XMB(3.9,23,2,610,0)="ME-5;7:C@JHOX-*+26C/IG1]<=I84URM7*JQ6-O)>IYADQ:J2GF_B?B*E]UJK"
^XMB(3.9,23,2,611,0)="""DATA"",396.18,194,3,244,0)"
^XMB(3.9,23,2,612,0)="M&%5D59W2?-=)+4ARQ\:INMT7)>G:#%0`!E)?9&G`G,1""C\RM<XRH4ZV^44,&"
^XMB(3.9,23,2,613,0)="""DATA"",396.18,194,3,245,0)"
^XMB(3.9,23,2,614,0)="M<!&+I""0]G;3N3==%>YXZ>8K9LQ=8QI""S.QW_>6*-^40[7Y^+0M'S>K2-XIF+"
^XMB(3.9,23,2,615,0)="""DATA"",396.18,194,3,246,0)"
^XMB(3.9,23,2,616,0)="M9D/J58[W4#.MX1)_S'FHU\1@91<P-^IP`++*T^?Y%L+GW4M$=\\&C""]FM1DX"
^XMB(3.9,23,2,617,0)="""DATA"",396.18,194,3,247,0)"
^XMB(3.9,23,2,618,0)="MY+USHR$PQ.VBXD[PH@6;[M18+,1D:@PPK@$'[RM*D'7'P`""<@7`#B1&UD$8L"
^XMB(3.9,23,2,619,0)="""DATA"",396.18,194,3,248,0)"
^XMB(3.9,23,2,620,0)="M:;EB3(S8>;H=INYG19IR]?]/N6V%;&DRO#TAL(4:WOED^%1M$U^+LF=Z,2'X"
^XMB(3.9,23,2,621,0)="""DATA"",396.18,194,3,249,0)"
^XMB(3.9,23,2,622,0)="M;WIJ\-KC""O7^MWB?9GH+J);GK7FX)!CVP`@/2KP\IG?P<_`./J_4\C(/>6^["
^XMB(3.9,23,2,623,0)="""DATA"",396.18,194,3,250,0)"
^XMB(3.9,23,2,624,0)="M(6\W8,Y?8VK/]!:0Z*T'DX?!EJWFOL/U^9T""CFKR,8FV7BUS0E1@U*2O\L3J"
^XMB(3.9,23,2,625,0)="""DATA"",396.18,194,3,251,0)"
^XMB(3.9,23,2,626,0)="M'-#2B`=Q7[@K_70W>T(X0GF)C\PC#."";U3/1[C6D+Y8Q3SNC4YVOHVP))8^+"
^XMB(3.9,23,2,627,0)="""DATA"",396.18,194,3,252,0)"
^XMB(3.9,23,2,628,0)="M&`)O-Z-2^""C!5-;H1V`IR=STL'A#\23A2_[M-KQS;!QQBP-$""%7XY[]02P,$"
^XMB(3.9,23,2,629,0)="""DATA"",396.18,194,3,253,0)"
^XMB(3.9,23,2,630,0)="M%``""``@``U,?-3EB^HQC,```H^D!`!L```!296-T=6U?86YD7T%N=7-?,3$S"
^XMB(3.9,23,2,631,0)="""DATA"",396.18,194,3,254,0)"
^XMB(3.9,23,2,632,0)="M+G!N;""YF<FWL75MSV[B2?I^J^0^L[(.2W4R&`'A-[=:IQ$DF.369N&+/I+:V"
^XMB(3.9,23,2,633,0)="""DATA"",396.18,194,3,255,0)"
^XMB(3.9,23,2,634,0)="M3IVB*=CF&8K4(2D[GE^_`'@1<2,@69J))?M)@F2QT=UH=#>^;I07_\)IX_R<"
^XMB(3.9,23,2,635,0)="""DATA"",396.18,194,3,256,0)"
^XMB(3.9,23,2,636,0)="M7.#\_&Z)/UV^*ZO%2^><C7S_G>/\C""\;YW^<'Z#KTK?GY9*\B^C++]F\N29O"
^XMB(3.9,23,2,637,0)="""DATA"",396.18,194,3,257,0)"
^XMB(3.9,23,2,638,0)="M4$S?O<?9U37])D#T[4FR;+*R(.]G']]^_NGM[/OO<#'__KMR]$#ZJ`]OC`^#"
^XMB(3.9,23,2,639,0)="""DATA"",396.18,194,3,258,0)"
^XMB(3.9,23,2,640,0)="MWOAI7C#]M,]O3\Y__2@\KAW\YVE2X-QWZ1\@CV5O1X\%[9/:IWJ(>ZKO<H]%"
^XMB(3.9,23,2,641,0)="""DATA"",396.18,194,3,259,0)"
^XMB(3.9,23,2,642,0)="M;COIK*#O9J>?3G\]G=&1U_@&YQ^*`E=D_.+F<Y+5>,X^**LYKLZ:NQS33^JS"
^XMB(3.9,23,2,643,0)="""DATA"",396.18,194,3,260,0)"
^XMB(3.9,23,2,644,0)="MK+C*,2.^S$OZ[30_R_(;7-&Q=V71O#BY3JH:TP>\>?ONU:\_G__SY/VKSV=O"
^XMB(3.9,23,2,645,0)="""DATA"",396.18,194,3,261,0)"
^XMB(3.9,23,2,646,0)="MS]??&/[U=9ZDOP_C`YT_`#`,_I(L,)/'F7.6%+5SAJOL<C9\W)/V?_^@0Z=)"
^XMB(3.9,23,2,647,0)="""DATA"",396.18,194,3,262,0)"
^XMB(3.9,23,2,648,0)="MA8N&?D""&WB5YS4@]3RX^T6F0,<8/GKU,C""U[@[%4!P;'L'W;<;A]T[,8!FX["
^XMB(3.9,23,2,649,0)="""DATA"",396.18,194,3,263,0)"
^XMB(3.9,23,2,650,0)="ML)9MT`Z,I4L>MUHX23%W7A6K^J7S&=]D^-8I+\FKE+""XGK7_8V:@GH4R$_W1"
^XMB(3.9,23,2,651,0)="""DATA"",396.18,194,3,264,0)"
^XMB(3.9,23,2,652,0)="ML)Z-(B,OZ]=E/O]'^Y&:H4Q)M7P$4,G&GIR6C<""%/"".!ZXN,1!(C3\K%@M!3"
^XMB(3.9,23,2,653,0)="""DATA"",396.18,194,3,265,0)"
^XMB(3.9,23,2,654,0)="M.^1MU7+NY5Y8![=BW>9,>SO/&J9[E&?T#<<RB,8L@TAD&00""RX:!;H5#&,5N"
^XMB(3.9,23,2,655,0)="""DATA"",396.18,194,3,266,0)"
^XMB(3.9,23,2,656,0)="M1^IH%7AF>I""*'N2Z'$$PW(8@(!/D:PEZO6J:LFB7IT=H:M_SBA5QF@6#B*<J"
^XMB(3.9,23,2,657,0)="""DATA"",396.18,194,3,267,0)"
^XMB(3.9,23,2,658,0)="ME(B*9,7*RQK+='7_^:DXR;/T=S+PM7W^3YB8RBQEHUK23TZ_?/R<S+/RIZI<"
^XMB(3.9,23,2,659,0)="""DATA"",396.18,194,3,268,0)"
^XMB(3.9,23,2,660,0)="M+=LI4#'SX]Q4`FXB`G=AKY7#1$*)NX'?B_OLNKQMK?=8""1WG[ZNZR2[O/C1X"
^XMB(3.9,23,2,661,0)="""DATA"",396.18,194,3,269,0)"
^XMB(3.9,23,2,662,0)="M49-/SJM5]P$=.4WF:@MVXKS+B(ZW=JM?<NPWB/979%.@O_6T'7:HP:/?P_/9"
^XMB(3.9,23,2,663,0)="""DATA"",396.18,194,3,270,0)"
^XMB(3.9,23,2,664,0)="M,/)+V9`5^^\5KAL\=R[NG-]>??XT&_V#\)%SL6J<@OQ3<I-D>7*1X]DS23QP"
^XMB(3.9,23,2,665,0)="""DATA"",396.18,194,3,271,0)"
^XMB(3.9,23,2,666,0)="M(]ZC:=X3YMV7^U$8[H7['_$\2Y.\VRR^-2D@K10^XD6Y=ESHNZD=`0@<]T`D"
^XMB(3.9,23,2,667,0)="""DATA"",396.18,194,3,272,0)"
^XMB(3.9,23,2,668,0)="M[0@QSW(`@@C\:1O`2;FJ,C+E7_#ME/G_.2NP6B`]\]0;!-&:M""KS_#69`AFO"
^XMB(3.9,23,2,669,0)="""DATA"",396.18,194,3,273,0)"
^XMB(3.9,23,2,670,0)="MZ]]PU5""Y2QQW!X[KW$4(59YB&*\]Q3#DO.$@%!S4X,@]1:#Q<`#RE>Y-`,;*"
^XMB(3.9,23,2,671,0)="""DATA"",396.18,194,3,274,0)"
^XMB(3.9,23,2,672,0)="M+!H/#VSE):8-6?6G1""F2Y;`][5;/T9_J(_+F-P0&B\QY&TAT-D+1892L@XM<"
^XMB(3.9,23,2,673,0)="""DATA"",396.18,194,3,275,0)"
^XMB(3.9,23,2,674,0)="MN!>#_/9K0Z9,_?>JE=&RDU%OE`GO5XNB[JWCKJ4&[N.>ZC>,CUD^VBP^EH1;"
^XMB(3.9,23,2,675,0)="""DATA"",396.18,194,3,276,0)"
^XMB(3.9,23,2,676,0)="M28/7(V=D\5?89,64ALJ@""0:_""()@4A5Z1WE2%=!>5.%#[>0X^3VYP@[9;N>$"
^XMB(3.9,23,2,677,0)="""DATA"",396.18,194,3,277,0)"
^XMB(3.9,23,2,678,0)="M(W^3=``^(!WX7UR/_84-A`U,3CS0^.\>)]PH%MQW<9E#?])]_X:X;,$TN$F$"
^XMB(3.9,23,2,679,0)="""DATA"",396.18,194,3,278,0)"
^XMB(3.9,23,2,680,0)="MH=WME7FA`*YW>]_G<U]"".BHZ]MT>:G=[I-SM4<0G,WB51<#?8KNGJY$,59CN"
^XMB(3.9,23,2,681,0)="""DATA"",396.18,194,3,279,0)"
^XMB(3.9,23,2,682,0)="M*W3((=QHOW4`6W_'3D_)3LA%`GT\/YAW12`@L?,=IA%2;XJSNK?&+Q^*6;#8"
^XMB(3.9,23,2,683,0)="""DATA"",396.18,194,3,280,0)"
^XMB(3.9,23,2,684,0)="M)H/(M$URJ4H4B=NDF*M$OKA-PBC8RS;YRDD)7^NF7-Q1X2PK7#]NE6:!QQL)"
^XMB(3.9,23,2,685,0)="""DATA"",396.18,194,3,281,0)"
^XMB(3.9,23,2,686,0)="M7%HX060A\/WD+$XX<>-J0;8GE<""[E?RVH-F%.?_D!ZD%P^LW93'[#Q3/&N?W"
^XMB(3.9,23,2,687,0)="""DATA"",396.18,194,3,282,0)"
^XMB(3.9,23,2,688,0)="MHKS=0#N0K=?L3FL'B"">M000LE""/>CS58E*LV?B)J@&DN?[Y*Z8>/\9-M_%0N"
^XMB(3.9,23,2,689,0)="""DATA"",396.18,194,3,283,0)"
^XMB(3.9,23,2,690,0)="M+LK7Y5?`=*![,[&G`M<5;4-LR-53\4>C)*.T^\INK)XUOY3%B!&;,&KR6$`3"
^XMB(3.9,23,2,691,0)="""DATA"",396.18,194,3,284,0)"
^XMB(3.9,23,2,692,0)="M4?#)&""#&BV%\R""&%MY.0PE4F$,<A!9]`;/>>T1D+.O*0`NE\8!BK$XC>6&<#"
^XMB(3.9,23,2,693,0)="""DATA"",396.18,194,3,285,0)"
^XMB(3.9,23,2,694,0)="M(8'HQUM$%!\6RR0CMM4Y6UYG1=K@ZG`""""5=]R`SY/0^:#G$4D<0;7*=5=H&="
^XMB(3.9,23,2,695,0)="""DATA"",396.18,194,3,286,0)"
^XMB(3.9,23,2,696,0)="MYIH$$CT+ZR9I:$AVR8;KGJ$/.[SH>`DL#NQC)+`2H0U8F11WSJH@""R._(\O:"
^XMB(3.9,23,2,697,0)="""DATA"",396.18,194,3,287,0)"
^XMB(3.9,23,2,698,0)="M22Z*DGB$>=9DN':R@O&4D)T<!#NM\`^!Z*O[%OB'3X1/%7EHC:N;A`ZR'$':"
^XMB(3.9,23,2,699,0)="""DATA"",396.18,194,3,288,0)"
^XMB(3.9,23,2,700,0)="MH2(.*M0-#;XMQTTD,M,-!&9Z""N?F,2&\WRC7-;AO7JQQW_R0.XGW!-<U%(UX"
^XMB(3.9,23,2,701,0)="""DATA"",396.18,194,3,289,0)"
^XMB(3.9,23,2,702,0)="M?U9O!G1X]P%TT`-L%%F<9+M""J(6\4*#8%]4Q!N`(#[+A-*]C""UZ'\3:\AL?'"
^XMB(3.9,23,2,703,0)="""DATA"",396.18,194,3,290,0)"
^XMB(3.9,23,2,704,0)="MZVF8!@J5O.;=*4_T2I&80O""@R&OHAVOSU['PRW76X*,3`#`&72!6!5VM0G<;"
^XMB(3.9,23,2,705,0)="""DATA"",396.18,194,3,291,0)"
^XMB(3.9,23,2,706,0)="M7<SA>UL7883O/?:@R],&76IL+^(@!J+9]M$60=<KXMJVH(!W6=VL\L1YVKWX"
^XMB(3.9,23,2,707,0)="""DATA"",396.18,194,3,292,0)"
^XMB(3.9,23,2,708,0)="M(2M^2(KRV<$$83!4G^9P1F/8S0?G;*/(81V`B2'7MYXRUMF++V3-?:F2Y<BE"
^XMB(3.9,23,2,709,0)="""DATA"",396.18,194,3,293,0)"
^XMB(3.9,23,2,710,0)="MG.)QI.8QY-(%P]%.S^08;A--'%0$X6Z""+O)$;#42W0CD21%$N)^SLMYNE$M<"
^XMB(3.9,23,2,711,0)="""DATA"",396.18,194,3,294,0)"
^XMB(3.9,23,2,712,0)="MT&@YJYV;K,Z(LC]&$@:9FQ!E()P4NN]:""!WM4>CEJG::*B'SHZ=F2;Y,CECJ"
^XMB(3.9,23,2,713,0)="""DATA"",396.18,194,3,295,0)"
^XMB(3.9,23,2,714,0)="MUJ>D<).5+@8,(+(1.MB+T-]D=4K$QP$6:$8'?Z4'Y,1'.U;1VR+[`[31@I=D"
^XMB(3.9,23,2,715,0)="""DATA"",396.18,194,3,296,0)"
^XMB(3.9,23,2,716,0)="M;V7EH[W(_AS3?""@).NI'0(3UD7?@;[+4):^H`[H9Y+T?0,1P!D/%39Y&C?QM"
^XMB(3.9,23,2,717,0)="""DATA"",396.18,194,3,297,0)"
^XMB(3.9,23,2,718,0)="M1LAJ4^%.4Q9':^D]4Z8PTF0*0^Z@%XJAQF%C1\-[)S,#5=('""L@!*;D>2,4,"
^XMB(3.9,23,2,719,0)="""DATA"",396.18,194,3,298,0)"
^XMB(3.9,23,2,720,0)="M0[I]E&)SCR_%YD]SVU=RFP^60]$E#47O)(@E7KOQ5(KM3XB3OVFI!.:\6Z3("
^XMB(3.9,23,2,721,0)="""DATA"",396.18,194,3,299,0)"
^XMB(3.9,23,2,722,0)="MNZ%1XP!WG'4+/;ZJ'H31D6?=?&WR`FG@OCQ\&HBG]-$6>;?W9&55U769[:F:"
^XMB(3.9,23,2,723,0)="""DATA"",396.18,194,3,300,0)"
^XMB(3.9,23,2,724,0)="M_B])L*GATGX$IE`.`%DD?\ZR/QC0G&@M\4*)_W&]YM_#SK!-\5-=NP=,_/3M"
^XMB(3.9,23,2,725,0)="""DATA"",396.18,194,3,301,0)"
^XMB(3.9,23,2,726,0)="M^8F_'@4_A0)K;R,DJ@`E`9ZXWB.I?`O&^\FU_5RFR1AX^B`<[;>=CJV][0^%"
^XMB(3.9,23,2,727,0)="""DATA"",396.18,194,3,302,0)"
^XMB(3.9,23,2,728,0)="M./*Z)+P=%C<UD[UF[B'OYAO""L@'MHL&I2^>(PQ'!2`'V$X:_95F7%+?(KHHB"
^XMB(3.9,23,2,729,0)="""DATA"",396.18,194,3,303,0)"
^XMB(3.9,23,2,730,0)="M:>NL/M9`S+<5>#`M<`3!](JW$;BW%X&/_`0*.6NQYY/)]<.I3=A]`LXWX+1@"
^XMB(3.9,23,2,731,0)="""DATA"",396.18,194,3,304,0)"
^XMB(3.9,23,2,732,0)="M/%VA`F(+10![7_E$OGA.V'>LZSZP%;>A`LT+IM<]""""W$'>Y=W'VY_N.2WR('"
^XMB(3.9,23,2,733,0)="""DATA"",396.18,194,3,305,0)"
^XMB(3.9,23,2,734,0)="MZQN*TCS@3BYY:&/[]W/(=LJR[*T.7&9UO:KPT_K9L2[Z<+(-&%!U`!,B3Q$0"
^XMB(3.9,23,2,735,0)="""DATA"",396.18,194,3,306,0)"
^XMB(3.9,23,2,736,0)="M)N_KBJ*BV)\*AZS;E`%?12`P$(@B""P*A)8&FC@=>J$Y;(Q&\<51IZWAW3=6`"
^XMB(3.9,23,2,737,0)="""DATA"",396.18,194,3,307,0)"
^XMB(3.9,23,2,738,0)="MX;S?A]&D*8I-I@@BZ`9[WX[PUY0>`U)/M)@GY,D-M4WZW6EC8S#B?F3.AH8J"
^XMB(3.9,23,2,739,0)="""DATA"",396.18,194,3,308,0)"
^XMB(3.9,23,2,740,0)="M%&(+N^6:-ZYAB$)""M#V&.>*$:*!-0*EK0\)@JGE4`+=(AYZ2""20T]!\P!@>0"
^XMB(3.9,23,2,741,0)="""DATA"",396.18,194,3,309,0)"
^XMB(3.9,23,2,742,0)="M%>W,JJZ13`!Y&#XPF%6$CK63S+19]?Q[%=](70<""$17N@CU!YV@W:&I1Y[W2"
^XMB(3.9,23,2,743,0)="""DATA"",396.18,194,3,310,0)"
^XMB(3.9,23,2,744,0)="MOWS0OAUK:C+*Z>5E.;];OS]=5:N<Z,6X<+HJE_WH[O-\7F#JH1E-:H;4BC5`"
^XMB(3.9,23,2,745,0)="""DATA"",396.18,194,3,311,0)"
^XMB(3.9,23,2,746,0)="MLF;XFVG&Z!-+K-4E:X%9I'</6SD^I6E2D\F-->1=.[611I!]H,[J9C-]L""A5"
^XMB(3.9,23,2,747,0)="""DATA"",396.18,194,3,312,0)"
^XMB(3.9,23,2,748,0)="M\%1.0HL#Z""J8^5;D$>\CP+;<\8A]A%#K(P"";TN;H\<S48*L,L<&`!>OXB4P]"
^XMB(3.9,23,2,749,0)="""DATA"",396.18,194,3,313,0)"
^XMB(3.9,23,2,750,0)="M!3W%+K:?S.1[LF#+ZN[Q2&*3M)0'-SJ#!""+TVT+<P7ZZX;SNDL]D8RH7XW/C"
^XMB(3.9,23,2,751,0)="""DATA"",396.18,194,3,314,0)"
^XMB(3.9,23,2,752,0)="M1[B_.@!`NL+AF""\<=CU3`'!(>15_AP$`VLAVBHO)HBZ4V,[]=*I_USMWXV.="
^XMB(3.9,23,2,753,0)="""DATA"",396.18,194,3,315,0)"
^XMB(3.9,23,2,754,0)="MEX?7=NQ/\?X,6F)`?2`>?!\9#X'7=X"",U`3N)QP@OM""JJN23_X>""U9EJM46["
^XMB(3.9,23,2,755,0)="""DATA"",396.18,194,3,316,0)"
^XMB(3.9,23,2,756,0)="M4G>36ZL""H(4E.<TS+@D+[W!2K3^#BC&D&//H;Y#M"":\_VP7(6TCJFMK:\7Z;"
^XMB(3.9,23,2,757,0)="""DATA"",396.18,194,3,317,0)"
^XMB(3.9,23,2,758,0)="MN)'W?93T6D63NOO!%HR4BD+[RU6CT*P=2^Y4(;G3#22G//37AGU(V19LA)6-"
^XMB(3.9,23,2,759,0)="""DATA"",396.18,194,3,318,0)"
^XMB(3.9,23,2,760,0)="M.:PL:C/%(ZSLL7<:CC1A7Z@N4`?<29&_BZY@;:?<#T5*B,R*D:H=`%[6M6!B"
^XMB(3.9,23,2,761,0)="""DATA"",396.18,194,3,319,0)"
^XMB(3.9,23,2,762,0)="MN$WG)<ZMN&0<S$8</*3"":60XW^=O6XI-MS(,_5A&<92_YUL9+L?-H!][BFZ7"
^XMB(3.9,23,2,763,0)="""DATA"",396.18,194,3,320,0)"
^XMB(3.9,23,2,764,0)="MZS5MPU$\I0A2I9U*#\+]^';D@YK=<T0;1SQ63^MZQ\:ZUK&\O8Q=\3P2&3$4"
^XMB(3.9,23,2,765,0)="""DATA"",396.18,194,3,321,0)"
^XMB(3.9,23,2,766,0)="M(`AVU3EV'>CT""WJF^BPK;HB`BR:I[IR+\A;GQ-NYP0LN&NKCHXDOUZK8R<G+"
^XMB(3.9,23,2,767,0)="""DATA"",396.18,194,3,322,0)"
^XMB(3.9,23,2,768,0)="MFK5^''J0.-3T5V5N;%&+-!`0P*>C9`@(/.2S2K2+%K5`><<5&'5+:M$_/4M]"
^XMB(3.9,23,2,769,0)="""DATA"",396.18,194,3,323,0)"
^XMB(3.9,23,2,770,0)="MH5L2W/(VU&$='*)[&FM<JUCGGH93AQ)NN$W7VJ)NJK8=^,%4<L6AQ34B8IMJ"
^XMB(3.9,23,2,771,0)="""DATA"",396.18,194,3,324,0)"
^XMB(3.9,23,2,772,0)="MSW,UUQJMV3?R`W+ZT`NVCIPGKU?$;Z!7AUWD>/'$:4HGK3!Q')S$R8E1ZT""P"
^XMB(3.9,23,2,773,0)="""DATA"",396.18,194,3,325,0)"
^XMB(3.9,23,2,774,0)="M],.:,""O)%C/GOX;?PG,:+;)N%-EE1M[-5]0NLRZM^&NRR`I6,_.T?O;"".;]F"
^XMB(3.9,23,2,775,0)="""DATA"",396.18,194,3,326,0)"
^XMB(3.9,23,2,776,0)="MW0O83[4_?9N-?RO/Z;\5#FT""VU\BV'=\??*F3&G_]V9-Z&U6S,O;YTY""VY]4"
^XMB(3.9,23,2,777,0)="""DATA"",396.18,194,3,327,0)"
^XMB(3.9,23,2,778,0)="MA,[Q;[6]=Y]T7R8_28F:XX;\+)Z_?.+4C`>4,920%[,M^BW%D86@1!R9!\P="
^XMB(3.9,23,2,779,0)="""DATA"",396.18,194,3,328,0)"
^XMB(3.9,23,2,780,0)="MK41!*>9.A(1IP8XS3YJ$^""]72<6.!09!5>1?;\8,85BQ<I""+T]PM\7;3CFVN"
^XMB(3.9,23,2,781,0)="""DATA"",396.18,194,3,329,0)"
^XMB(3.9,23,2,782,0)="MN9'NN0F]S>?=W7W<3Y]I$IL[&Z9FX(:NP3LG2=-5E;015[VZ&,][D37TEDK*"
^XMB(3.9,23,2,783,0)="""DATA"",396.18,194,3,330,0)"
^XMB(3.9,23,2,784,0)="MIW:Z$S<21Q8AH;CR8G-`""(P/CBT>+&J2Q8.AZ<&!31`LR=+BR6CBR9VWHT%F"
^XMB(3.9,23,2,785,0)="""DATA"",396.18,194,3,331,0)"
^XMB(3.9,23,2,786,0)="M0>'AG@GPVI=@FCNZNKMP)53UWR""""8\0CE]4""_/U9GNL_>A+2!9JZN];5GH3/"
^XMB(3.9,23,2,787,0)="""DATA"",396.18,194,3,332,0)"
^XMB(3.9,23,2,788,0)="M%0W$HB.Q32?&WS+:A?$LNSH</T)S'1F/)T?""L6=@T6_Q'""^6-+.PJKI\B9X&"
^XMB(3.9,23,2,789,0)="""DATA"",396.18,194,3,333,0)"
^XMB(3.9,23,2,790,0)="MS[.@(13;Q5O8E]-57IN?'ED\7;)N86A^_&=<+S/""`HJ\H#D6(R6Q!2400K$_"
^XMB(3.9,23,2,791,0)="""DATA"",396.18,194,3,334,0)"
^XMB(3.9,23,2,792,0)="ML9F2+^PST_ZB,?,\.!-""01`HL!!$N2HZ1-#$\X'-]#WQ,O;`=OI.>IT45_@`"
^XMB(3.9,23,2,793,0)="""DATA"",396.18,194,3,335,0)"
^XMB(3.9,23,2,794,0)="M;@3PU:!O\;YQ8.KB$/A:YZICV<\T3_&4+.2T2X3>MN,L?Y&6""^)2$[>)^%H7"
^XMB(3.9,23,2,795,0)="""DATA"",396.18,194,3,336,0)"
^XMB(3.9,23,2,796,0)="M""?&5LP(_<YXF9$=)QL[5%>[_K7/3(3LO8CW*TA:H0B(SW'0X6TQ^ZMDQM63U"
^XMB(3.9,23,2,797,0)="""DATA"",396.18,194,3,337,0)"
^XMB(3.9,23,2,798,0)="MU388!+N7YT\)$8%""GE=T_%&>.Y*G;[.C^.*UM,!LR!A>VZ%%A[32T&1/=1F6"
^XMB(3.9,23,2,799,0)="""DATA"",396.18,194,3,338,0)"
^XMB(3.9,23,2,800,0)="M8+*;LL79U8^F)]MLZ$.MU-H)-C_Y_7HC>]@6/-3(QM^[;&PV>1""+3H9%`Z`/"
^XMB(3.9,23,2,801,0)="""DATA"",396.18,194,3,339,0)"
^XMB(3.9,23,2,802,0)="M17J-:U-$!W2U-D*#AR""X7PFC%#AL""V2C%:&AJC*45V=?M,Y2*D,ZU`B![\\V"
^XMB(3.9,23,2,803,0)="""DATA"",396.18,194,3,340,0)"
^XMB(3.9,23,2,804,0)="M.$ZC%$1F2J)P8TK(5\!L@P,?5B[KFDD!T-^<EL@+9ANTCV""T*&N+^0O0((@-"
^XMB(3.9,23,2,805,0)="""DATA"",396.18,194,3,341,0)"
^XMB(3.9,23,2,806,0)="MCJM*0'""V=6L#TX5#?0C:D8?$RF+)LT4""?0%T=PD7?Y""GV?PUD-1=7;^CSLY."
^XMB(3.9,23,2,807,0)="""DATA"",396.18,194,3,342,0)"
^XMB(3.9,23,2,808,0)="MJM?[,TVDO1J31Z^*]PO)%Q2H5,V;\I%,IYZ1B5'_[0P--""D"";/0:CEZCT6O/"
^XMB(3.9,23,2,809,0)="""DATA"",396.18,194,3,343,0)"
^XMB(3.9,23,2,810,0)="M[2%>$X>2/3L\[=%O$.V`-^@^O(G_(MXPRX14EBGFT^""^F/YWS482>;,-*AL8"
^XMB(3.9,23,2,811,0)="""DATA"",396.18,194,3,344,0)"
^XMB(3.9,23,2,812,0)="M*9ZROX&_`UK0;-->""]!LL$$4;6BP0P04E/CF@U]?E:YM$XC*=&U;%C""Z""^[8"
^XMB(3.9,23,2,813,0)="""DATA"",396.18,194,3,345,0)"
^XMB(3.9,23,2,814,0)="M&W:V/ZQP-R/7YNY""7Q2TOT5V]A=<+O.D7CRMG_6W:E;M=PA7$O*50\G9:JX>"
^XMB(3.9,23,2,815,0)="""DATA"",396.18,194,3,346,0)"
^XMB(3.9,23,2,816,0)="MXF.'R!/+SR*+2W*RY*J@T&+*0(>PCLS_*?Z:I,TS4_(RC""R(&N*;C3IAOJ''"
^XMB(3.9,23,2,817,0)="""DATA"",396.18,194,3,347,0)"
^XMB(3.9,23,2,818,0)="MS""R7T%/W=+'X\8[\F:F*;:@2#0VT22[3RO"":J=^<T-=>Y$I/Q-D1[-.L2/,5"
^XMB(3.9,23,2,819,0)="""DATA"",396.18,194,3,348,0)"
^XMB(3.9,23,2,820,0)="M2X602/T*5V928V!!*G)%5)QK>RT/?ZGG!!V:$P$>7P2E>,>5//M`*TFR3)LQ"
^XMB(3.9,23,2,821,0)="""DATA"",396.18,194,3,349,0)"
^XMB(3.9,23,2,822,0)="MMWAQ:K;YC7(P7FC!37D24M$>5*%""::?]^7@J""8/M,O/39.EX9O/Y<V>Q>.[L"
^XMB(3.9,23,2,823,0)="""DATA"",396.18,194,3,350,0)"
^XMB(3.9,23,2,824,0)="M;GI=RPK=3>4^[XJ&QDY`UE==AKLK!S,U>_0F+]6))$2P)W<PAWM!!']):K:Q"
^XMB(3.9,23,2,825,0)="""DATA"",396.18,194,3,351,0)"
^XMB(3.9,23,2,826,0)="MM*:17CA\522J6S;0ICC,X?6OQ>]%>5LHJBG<R6[PS-.4NL'S""A^+ABX.C?<M"
^XMB(3.9,23,2,827,0)="""DATA"",396.18,194,3,352,0)"
^XMB(3.9,23,2,828,0)="M`O<(&^]/ISZ4SJNPIP3`Q&HH7R/J@DTR'U38K$#!(/7AL'M""[(H5Y#]>:<J+"
^XMB(3.9,23,2,829,0)="""DATA"",396.18,194,3,353,0)"
^XMB(3.9,23,2,830,0)="M/3""+'4:NJ3FA2NQH)PWLE*&FN&]O1Z!G2>#TA14LZC,H*Q+/MV5E'2Y5&PAT"
^XMB(3.9,23,2,831,0)="""DATA"",396.18,194,3,354,0)"
^XMB(3.9,23,2,832,0)="MX_CXE-7B&@J@B&N#45@;\7#F6(AJPT<0DA3H0EVIF#K0C=R)1FS(W:K'2EDO"
^XMB(3.9,23,2,833,0)="""DATA"",396.18,194,3,355,0)"
^XMB(3.9,23,2,834,0)="M*1`I^X-!'6ET>];&&'M9`_Y?4':G""84X:+@O!KBNQ1E5SSO&SIQKU3]5!6A!"
^XMB(3.9,23,2,835,0)="""DATA"",396.18,194,3,356,0)"
^XMB(3.9,23,2,836,0)="M3BQ>91V$=I'M2Q)*W)$@@7#GFI%%S]*=[-)A;B#+72R75?DU6]""(8VZ!(P*>"
^XMB(3.9,23,2,837,0)="""DATA"",396.18,194,3,357,0)"
^XMB(3.9,23,2,838,0)="M!;U`A*@""Z-E`FI*Z5;FF:XS6A;<FFH+8@B;1]'M2,V\Y'%O7XM!K#I/TVB'6"
^XMB(3.9,23,2,839,0)="""DATA"",396.18,194,3,358,0)"
^XMB(3.9,23,2,840,0)="MJ6B>.Y=9GO<`A9:567%);T:C__B\`T8_Z;SM)\[E&.%`P>KK+SM%V70_0>6S"
^XMB(3.9,23,2,841,0)="""DATA"",396.18,194,3,359,0)"
^XMB(3.9,23,2,842,0)="M7-77[%?KU<4BZQ'RVX""D`;)ABH>,1;J*VT-6BT72=OQ)""!^N>9O1YBU:T66X"
^XMB(3.9,23,2,843,0)="""DATA"",396.18,194,3,360,0)"
^XMB(3.9,23,2,844,0)="M[F;2X+E1M9`&U^T+9_NB<DF%&XK`^C];9`.Q9HRO3>DD\SD5%*.Q@Z5W$YMM"
^XMB(3.9,23,2,845,0)="""DATA"",396.18,194,3,361,0)"
^XMB(3.9,23,2,846,0)="M$S0CS:UOPMW'*#""V>8G^E*""9.G/*I#VO(:&(H@?&(Q6R\X2S#0-,M?/&&Q4Q"
^XMB(3.9,23,2,847,0)="""DATA"",396.18,194,3,362,0)"
^XMB(3.9,23,2,848,0)="M/65%RM`>^8B<M^FH#@06O/:1:""T#4Q]T@/S@^'AMN@R2F6&560CY]J]QL+E9"
^XMB(3.9,23,2,849,0)="""DATA"",396.18,194,3,363,0)"
^XMB(3.9,23,2,850,0)="M:&W9;+>]E=JOLM:_2B2->V^R3_)ULP\QY+@GU1IFHXAC=K!%!_,^<Z;.YMR3"
^XMB(3.9,23,2,851,0)="""DATA"",396.18,194,3,364,0)"
^XMB(3.9,23,2,852,0)="M;,^*[&&?VPG=Z#YT,SL2FNT(#%R3'8E#.>"".CL^.F#N=JQN=QZ,""8B[@;O/<"
^XMB(3.9,23,2,853,0)="""DATA"",396.18,194,3,365,0)"
^XMB(3.9,23,2,854,0)="M]PZX#RBZ1KHR%4_3PI3#4`5B>.UNT^>\*P8]6^(TN\Q2IVN>>3`];9""F(A6%"
^XMB(3.9,23,2,855,0)="""DATA"",396.18,194,3,366,0)"
^XMB(3.9,23,2,856,0)="M_,D1^!9=>!!9=6I$H8@=D50AM-WTT/UW#Z#I+PE]/O<I>O+R5NU:>QB[V/2T"
^XMB(3.9,23,2,857,0)="""DATA"",396.18,194,3,367,0)"
^XMB(3.9,23,2,858,0)="M??&#>Y-]I'WQN[VF_$J=M^$-?W<#'XL*""'`@]?'H/8KW9?7'L)6].*\(@RC^"
^XMB(3.9,23,2,859,0)="""DATA"",396.18,194,3,368,0)"
^XMB(3.9,23,2,860,0)="M8'RV2;>V]5<^TW(H^IN]!\!_K/R%5ZNF;+\RW0](;<4%\/FH-+8?Z""):KW^_"
^XMB(3.9,23,2,861,0)="""DATA"",396.18,194,3,369,0)"
^XMB(3.9,23,2,862,0)="MONC+[8>DM(=P(Y.REG\X7[71M2EMT^J;A<9I=$ZO=9T*J9D96C)SZ`PS<O%@"
^XMB(3.9,23,2,863,0)="""DATA"",396.18,194,3,370,0)"
^XMB(3.9,23,2,864,0)="M)'&SM^:JY!IQHL[[K@""L?\VRK&MZQ>%SPN$ZK;(+S#Y-LRI=+>HF*=(.&Y,5"
^XMB(3.9,23,2,865,0)="""DATA"",396.18,194,3,371,0)"
^XMB(3.9,23,2,866,0)="M69,EN3-N!\'Z#&27N&ZZ9%2'UNIJA5BKB.)?*YJ]JIQ+F@!UJK;&G_4D6%;E"
^XMB(3.9,23,2,867,0)="""DATA"",396.18,194,3,372,0)"
^XMB(3.9,23,2,868,0)="M#?]KV1RW-Y/>T&MRV^WZ@4I<N1\:%""'2*`(,@&E9]6&6:57UP!U6U[5/UL*_"
^XMB(3.9,23,2,869,0)="""DATA"",396.18,194,3,373,0)"
^XMB(3.9,23,2,870,0)="M9C%YKHZ'`@N';.RHT0&RXR&-8XAVUQEK$;MO1OY%5LE#EHSTUJHG8ME,C%3A"
^XMB(3.9,23,2,871,0)="""DATA"",396.18,194,3,374,0)"
^XMB(3.9,23,2,872,0)="MV0Q+)-;9RL`5Y(LD^0[Y%(.QG)VP1JLC8%O-K%=#&]JD93'/QO=""'[Y=\H""E"
^XMB(3.9,23,2,873,0)="""DATA"",396.18,194,3,375,0)"
^XMB(3.9,23,2,874,0)="M*J`X$GD.W<C2,/7;3TTW`7QY2:BHV[[WJ2B.->N5,(9MINC;3A$%DEHAM.$4"
^XMB(3.9,23,2,875,0)="""DATA"",396.18,194,3,376,0)"
^XMB(3.9,23,2,876,0)="MI0G5NY]1H)M1($Q(FD]L-QOPXO"",7A#8,2V&6S(-'B+3M&Z+!W;$-G18;*/'"
^XMB(3.9,23,2,877,0)="""DATA"",396.18,194,3,377,0)"
^XMB(3.9,23,2,878,0)="M@#%W'*AW]2*%296YMC93H]M*W76=DQSU:DBC.68^UZP/1SR)-,^736$8*$@#"
^XMB(3.9,23,2,879,0)="""DATA"",396.18,194,3,378,0)"
^XMB(3.9,23,2,880,0)="MX9_N>LK99ZTXM1GH40YZ:H>=S$.K4E*ZY44BH""[#T+TT.;4!E)T>>0,.795("
^XMB(3.9,23,2,881,0)="""DATA"",396.18,194,3,379,0)"
^XMB(3.9,23,2,882,0)="M_/4>1&/#.9YWC=F$V2FK]""80TK3#6T,WM=EHA$3W5S3!F-W@_,ZY+:N:^_C#"
^XMB(3.9,23,2,883,0)="""DATA"",396.18,194,3,380,0)"
^XMB(3.9,23,2,884,0)="M@@:'9!OD!FEDR.`-A.C;'TDLN<CJ>M0,LNW\2IW*M90^KO(F&R:RWCOE@T63"
^XMB(3.9,23,2,885,0)="""DATA"",396.18,194,3,381,0)"
^XMB(3.9,23,2,886,0)="M&)!6#++SJ9)#(,DAB!5R@-'^Y,`5V=*FT7B>M=""I\2@%H67CZP4I5\]_/#T?"
^XMB(3.9,23,2,887,0)="""DATA"",396.18,194,3,382,0)"
^XMB(3.9,23,2,888,0)="M#[RA'?IR""FG*%3_Q:=4LR2#K3?+U[@IS'YZ<OCH=OZ?YJ6M<DFA_<7=?2?J3"
^XMB(3.9,23,2,889,0)="""DATA"",396.18,194,3,383,0)"
^XMB(3.9,23,2,890,0)="MDA3:F>ONA5JOKW5(V!>:2,$."".4%YJG,\:CL5%?+,%'-H*IGX-/'9K_Y;P,!"
^XMB(3.9,23,2,891,0)="""DATA"",396.18,194,3,384,0)"
^XMB(3.9,23,2,892,0)="M4LMKK>,YI4[CT@>N"";7JK'EBPV$P0<6.(SG?OBOO.%#FOB]QG_S%)A?[J#>B"
^XMB(3.9,23,2,893,0)="""DATA"",396.18,194,3,385,0)"
^XMB(3.9,23,2,894,0)="MT""PD.QEY`&XKHS7X^U%&*AE%1AE%EC(*8QL9!;[*34""/GMNH%X%&&.U!DGC$"
^XMB(3.9,23,2,895,0)="""DATA"",396.18,194,3,386,0)"
^XMB(3.9,23,2,896,0)="MJ76EH2\G%8`D#Q0KS#Z-(8:C;NJ>/-2TE'SP9'$T9Q``@CH)(+0[$2C:DBO;"
^XMB(3.9,23,2,897,0)="""DATA"",396.18,194,3,387,0)"
^XMB(3.9,23,2,898,0)="M%MUG/GU+#B""UY]`JU=:18^#Y\=A3Z%3CRW76F)Q/^=AZVH/HUV0WZTE,3J#"""
^XMB(3.9,23,2,899,0)="""DATA"",396.18,194,3,388,0)"
^XMB(3.9,23,2,900,0)="MY'BC(AC/XR^8\H5[A1^;^LLX'4^'TU'#=/@6(P)$#H;;P'1&5]J20&""U2)[6"
^XMB(3.9,23,2,901,0)="""DATA"",396.18,194,3,389,0)"
^XMB(3.9,23,2,902,0)="MSPZE_D4#=N*!`9'8+@K9]2QX/M2]#,T+^HX9C(\/NS]J!US15<<+O6P!,`%7"
^XMB(3.9,23,2,903,0)="""DATA"",396.18,194,3,390,0)"
^XMB(3.9,23,2,904,0)="MO`,""KKCWAI-&*C@IKY=B_R`82#5N?0/*<8%I>,PUYKJM2W4WHK?>N/SQOA5Z"
^XMB(3.9,23,2,905,0)="""DATA"",396.18,194,3,391,0)"
^XMB(3.9,23,2,906,0)="M0O5F""XT\9C""IK^N?8V-?@=AG&I@[Q@\JTNY6/[8[U;JI#K6W?:JEP[QT5W$P"
^XMB(3.9,23,2,907,0)="""DATA"",396.18,194,3,392,0)"
^XMB(3.9,23,2,908,0)="M""UPX99JN:`*,JT6CEU$EQ$V\R9H[]A.K>D6&YDF6W_4?9+@^F.)/3]<(AR_2"
^XMB(3.9,23,2,909,0)="""DATA"",396.18,194,3,393,0)"
^XMB(3.9,23,2,910,0)="MBN""WA4\=P'Q`B^R+IMJ:A!)$%?5=5]6PO:#O@[)OV![4PO:@<+2#I`0!C(.-"
^XMB(3.9,23,2,911,0)="""DATA"",396.18,194,3,394,0)"
^XMB(3.9,23,2,912,0)="M<'MT(;`L9-N^Z]\K7#<414%<O[HNTRRAU[30JW!;6,70$NH`H310!_""+>:[["
^XMB(3.9,23,2,913,0)="""DATA"",396.18,194,3,395,0)"
^XMB(3.9,23,2,914,0)="MD0Q9<2VA-*_F+2J%V)--\#1`JQ%BRDC2!V1)69>Q;^M4V6)EQ;W]Q5""BCLRV"
^XMB(3.9,23,2,915,0)="""DATA"",396.18,194,3,396,0)"
^XMB(3.9,23,2,916,0)="M1CQ`2^66SV8\RV/H-P>LI`A::@*0`3""^)<;GZ3NZ_J'OAL^$:\0N[A@D],7V"
^XMB(3.9,23,2,917,0)="""DATA"",396.18,194,3,397,0)"
^XMB(3.9,23,2,918,0)="MT@]TB\QSA;R(+R->+,&3M#+][:N3][*UFEQCK@X_Y4$!5Q)"">9G%&P-\:4%_"
^XMB(3.9,23,2,919,0)="""DATA"",396.18,194,3,398,0)"
^XMB(3.9,23,2,920,0)="MQFK[T^N2Q#AL>67->+$]&6<,GY""AA*S0""C/;S$-R]9;Z'L(""+K255HCNBT^:"
^XMB(3.9,23,2,921,0)="""DATA"",396.18,194,3,399,0)"
^XMB(3.9,23,2,922,0)="M)@39$@*0>U_TRC0EGJV6*""@!L;^IFGPHV-EOJQTC9Y99YW6'QI$SVSJP+-5`"
^XMB(3.9,23,2,923,0)="""DATA"",396.18,194,3,400,0)"
^XMB(3.9,23,2,924,0)="M/%9>34;^Z[WTPK<6AQ]O*0[/3AR!M3AD2I!ON3>R#=&.'GO[)MF0P+=*9(_$"
^XMB(3.9,23,2,925,0)="""DATA"",396.18,194,3,401,0)"
^XMB(3.9,23,2,926,0)="M22U=141.[QA<54MB1.KG9(=>EA4;&^L(,0X#)K:M%""!ZQ""M'KUTU_O_VKK7)"
^XMB(3.9,23,2,927,0)="""DATA"",396.18,194,3,402,0)"
^XMB(3.9,23,2,928,0)="M;1O9_A5]F[CNYE[BP9=K]Z:2V*EU51)/V=Y-[4=:HF=X(XFZI&1G]M<O0(HD"
^XMB(3.9,23,2,929,0)="""DATA"",396.18,194,3,403,0)"
^XMB(3.9,23,2,930,0)="M'@T2H""A./,-4*A53\@S8?=!H]./T(>'SD]AUAR%KGZZ9!\^Y+9B[SLL]>`(["
^XMB(3.9,23,2,931,0)="""DATA"",396.18,194,3,404,0)"
^XMB(3.9,23,2,932,0)="MV=<L*8<BJUA2LC+YF,D_;<NO3^GG9'NJ@U^?&KZ0=AD7(3""R1J`77EH%V+^2"
^XMB(3.9,23,2,933,0)="""DATA"",396.18,194,3,405,0)"
^XMB(3.9,23,2,934,0)="MV!J!^DI:^N?!&NQ#O;'_TMRAN#1Y3JF9+3EPQ%5A#2K&-\25*NO4\XXDU-=)"
^XMB(3.9,23,2,935,0)="""DATA"",396.18,194,3,406,0)"
^XMB(3.9,23,2,936,0)="M.Z<7"",'+28DNC@&7N<&>HB99]6:GS9N3>5MP]Q""0+ESTJ\0+NCW#_JT#`9V="
^XMB(3.9,23,2,937,0)="""DATA"",396.18,194,3,407,0)"
^XMB(3.9,23,2,938,0)="M%:HJ[!S,?A>SQ\FT<C.-CF9?/J_%""^QN!O8J0!U&!""5T308.2LBKCH,RN]OS"
^XMB(3.9,23,2,939,0)="""DATA"",396.18,194,3,408,0)"
^XMB(3.9,23,2,940,0)="MCF`^)+55BWK.M>?92T$.AK*$_G>-[%^5>/J;(N+PIJ^KUX$P]?+I@\J\K5&`"
^XMB(3.9,23,2,941,0)="""DATA"",396.18,194,3,409,0)"
^XMB(3.9,23,2,942,0)="MK40=!8""H<0"")NGO&IW)Q!UK:X96GS`^OZKC*=H>D5@L,,NF$8S_/!G2&TVU("
^XMB(3.9,23,2,943,0)="""DATA"",396.18,194,3,410,0)"
^XMB(3.9,23,2,944,0)="M2!@[&#\""R`CY]G!\EY:\:H^Y#%_RXO?V3+ED1]45F$@OQC2_!O6A706IFHH/"
^XMB(3.9,23,2,945,0)="""DATA"",396.18,194,3,411,0)"
^XMB(3.9,23,2,946,0)="MA:*72%QQ;U7FGWYS&3+WO7GZJKBOFI?:F,W:SHB*Y(6C0U_X-6<?[`[;_""'="
^XMB(3.9,23,2,947,0)="""DATA"",396.18,194,3,412,0)"
^XMB(3.9,23,2,948,0)="M=.4X?1L>K@L90H?O@@[!>QJ""AQ\!\&"".6FBS6Y\G;KXO^6G+1W)G#!%5/>KF"
^XMB(3.9,23,2,949,0)="""DATA"",396.18,194,3,413,0)"
^XMB(3.9,23,2,950,0)="M)*0YVMLHGT+/+Q/':K9Y6AJ_D'PL.>=?FI4[^2M*O7!?Q;`UY)`MY&@/Y%""`"
^XMB(3.9,23,2,951,0)="""DATA"",396.18,194,3,414,0)"
^XMB(3.9,23,2,952,0)="M5-#Y`.9:>F?9LGHPZ,)H`9T)=#RUS>Z5VUQ%T:NT01'SO_GHS$+UMRNHB5?0"
^XMB(3.9,23,2,953,0)="""DATA"",396.18,194,3,415,0)"
^XMB(3.9,23,2,954,0)="MC^E]\CG+""_D[MSF31)7'V-8=ZXE2_U7_.H;Y;,U0^,!NJ=MM_H6?A!E4+J:L"
^XMB(3.9,23,2,955,0)="""DATA"",396.18,194,3,416,0)"
^XMB(3.9,23,2,956,0)="M;I?7CH/Q\V1?I0YY%W^A?>\<W""OKJ-TV^U2=P/QNODZ*XH']P;C,@M^DM2^\"
^XMB(3.9,23,2,957,0)="""DATA"",396.18,194,3,417,0)"
^XMB(3.9,23,2,958,0)="M/Z1I=>-OOB=__/<T*2J2!L/G_\QXEX;QXY\9EBH&TF.RR_:)_.%O:?([MP85"
^XMB(3.9,23,2,959,0)="""DATA"",396.18,194,3,418,0)"
^XMB(3.9,23,2,960,0)="MA0!3UMTI-0F%B37=WQWO7ZY.AP/;O4PXO$7$+,7N+S#5F/_""/]C+\3!%MF>@"
^XMB(3.9,23,2,961,0)="""DATA"",396.18,194,3,419,0)"
^XMB(3.9,23,2,962,0)="MX?,A&'+D;_R4KBL<F#Z_Y0/,%)&7G]B[L%_'0'A],X8'S5A5%N(I]<,]AV:,"
^XMB(3.9,23,2,963,0)="""DATA"",396.18,194,3,420,0)"
^XMB(3.9,23,2,964,0)="M=`-&I/.QW;9Q#!NPV,:`7<=`88.!@DJ->\Q33[FQ5'#<KZ>!HF.H84Q09%]<"
^XMB(3.9,23,2,965,0)="""DATA"",396.18,194,3,421,0)"
^XMB(3.9,23,2,966,0)="MQC?$94CD#4=F@(:E22(SI""\LX)FO<$3%('2$1F-"",TH$W!"">,=1I?-7WZ9%W"
^XMB(3.9,23,2,967,0)="""DATA"",396.18,194,3,422,0)"
^XMB(3.9,23,2,968,0)="MR+!'39JK@X$06@@9""A*#:OJ^J#14I&*L!E;)=\]8)SARV#J$`#=[C,CHD%JJ"
^XMB(3.9,23,2,969,0)="""DATA"",396.18,194,3,423,0)"
^XMB(3.9,23,2,970,0)="MQ)U4S5P21)-;]""HN,[AKKRNLL`)AA(#7C4,P`M`.SNAOW],:^)1/H1X^N2CU"
^XMB(3.9,23,2,971,0)="""DATA"",396.18,194,3,424,0)"
^XMB(3.9,23,2,972,0)="M/B]2N^C/5^""Z]X43]HJ/]$NVW2A/<B9AYH(KOFC*CA75ORHJKOAR1$P!N<(/"
^XMB(3.9,23,2,973,0)="""DATA"",396.18,194,3,425,0)"
^XMB(3.9,23,2,974,0)="M#\,/!71R_,7SX(_]Z,.!:6Q!X&P(Q*X(),,(Q.)9.@T""A6FZ5T7@ZS_28IV5"
^XMB(3.9,23,2,975,0)="""DATA"",396.18,194,3,426,0)"
^XMB(3.9,23,2,976,0)="MZ8+`V1!(7!%(+8Y@[<9(T(4FT)_)!/(JA^4(G@]^U!%^03#&`[P0?\@+PWGP"
^XMB(3.9,23,2,977,0)="""DATA"",396.18,194,3,427,0)"
^XMB(3.9,23,2,978,0)="M]ZZ*3ZDIVP6#5\6@[VH""_5%NX,5&$.%Y0/BA2#ZGV\41G!.#@2,&JV#9D""-("
^XMB(3.9,23,2,979,0)="""DATA"",396.18,194,3,428,0)"
^XMB(3.9,23,2,980,0)="MO>D/XF@>#/Z4IIL%@7,B,'2U@O$(1Q!#L2<G_`7SX.^'Y'B_X&]._$6N^(M&"
^XMB(3.9,23,2,981,0)="""DATA"",396.18,194,3,429,0)"
^XMB(3.9,23,2,982,0)="MQ0(O!N!,GN""KBB%O0>"",""(Q=$1B.""P=>""D&$9O(#\VR;'A<,SAJ2]EQ!&(R+"
^XMB(3.9,23,2,983,0)="""DATA"",396.18,194,3,430,0)"
^XMB(3.9,23,2,984,0)="M""%YL!\D\(&1OE.\6#,Z*0=>\B,5)K!61!$`&7[257=TE!O`74G)-_/4KZE^I"
^XMB(3.9,23,2,985,0)="""DATA"",396.18,194,3,431,0)"
^XMB(3.9,23,2,986,0)="M5MHJ2MFI:)57W,2FRAND%Z[3""""B]\2""Y40Q'LH*E\L:Y\@9AV]*;\Z@P:N*>"
^XMB(3.9,23,2,987,0)="""DATA"",396.18,194,3,432,0)"
^XMB(3.9,23,2,988,0)="M\V.5;L%#6B>9SCW7,=19T?]!P:WQ_',<FP1FEU18#`)/ZTX-@`;K2.>=B\*%"
^XMB(3.9,23,2,989,0)="""DATA"",396.18,194,3,433,0)"
^XMB(3.9,23,2,990,0)="M7-*&C[KA_\,]7(`JPGR-P(%0*S+`""$==ZODZK'\0UJB!@UYYKS""P>:VNV%H<"
^XMB(3.9,23,2,991,0)="""DATA"",396.18,194,3,434,0)"
^XMB(3.9,23,2,992,0)="M?.HO6!/.)Y&!T6#0`L/L0WER+HF427?T42<V^J:1T$$O""9'-N%_#I'A\^:*K"
^XMB(3.9,23,2,993,0)="""DATA"",396.18,194,3,435,0)"
^XMB(3.9,23,2,994,0)="M<;_0D.*07+SJ2<9,FHC.,$!TAK$P-[?V*SM2H5#B.D-GSDZ-ZZS;=C]GN_0K"
^XMB(3.9,23,2,995,0)="""DATA"",396.18,194,3,436,0)"
^XMB(3.9,23,2,996,0)="MH2T+3+1E,""]6+)-K4EFU<33,K7G[[NWMZW<?WKQ^_U1FW&*8AQ3W$W""%PP2:"
^XMB(3.9,23,2,997,0)="""DATA"",396.18,194,3,437,0)"
^XMB(3.9,23,2,998,0)="MS""#RGH2_>;X7M+557R=39LTT&E@(*E`PA?1ANKJD:BOP(?WC^+<S=^O_5,RM"
^XMB(3.9,23,2,999,0)="""DATA"",396.18,194,3,438,0)"
^XMB(3.9,23,2,1000,0)="M-X/&``'&(!1L07VK:YW$NOM)'8>Z\/5*-B4TD>W!^F^;QZ2*^=97BOP1A+UG"
^XMB(3.9,23,2,1001,0)="""DATA"",396.18,194,3,439,0)"
^XMB(3.9,23,2,1002,0)="M5CU>*?^$1VS7L`]-XYXEBDD<^D/TLY&M]W`YMZL/<;MBR4?#ZC#BID&Q<QP:"
^XMB(3.9,23,2,1003,0)="""DATA"",396.18,194,3,440,0)"
^XMB(3.9,23,2,1004,0)="MHRIRNP8+MRO@\G@88XB;/!28R26""5^PK!*_XN1.\1J;CG\DVB.&3#4M;D*ID"
^XMB(3.9,23,2,1005,0)="""DATA"",396.18,194,3,441,0)"
^XMB(3.9,23,2,1006,0)="MQ>$(RU:WIO..O""=DR%I!AK#;J5@RQ9<BGC=(QMINNGJ>J\1P<1[B?!Z6N\G*"
^XMB(3.9,23,2,1007,0)="""DATA"",396.18,194,3,442,0)"
^XMB(3.9,23,2,1008,0)="M-9/B7;KZIFI-Y9SE9<4%6'TNLN6NMDEYK.=$9V<^#4Z\*PZ0;EB4P`BF+=MK"
^XMB(3.9,23,2,1009,0)="""DATA"",396.18,194,3,443,0)"
^XMB(3.9,23,2,1010,0)="M)QX\+!ZD7KBP[P][4#\FI[*E9F?7%]Z7?*RY^""I6C&Q?ORS""W^Z81N]7!P:"""
^XMB(3.9,23,2,1011,0)="""DATA"",396.18,194,3,444,0)"
^XMB(3.9,23,2,1012,0)="MO!UU#KQ>_YM$@<6;4'7'8&I!.P^L?G.J>G^A-YA001AKG(%M=E5^,4\YVY!O"
^XMB(3.9,23,2,1013,0)="""DATA"",396.18,194,3,445,0)"
^XMB(3.9,23,2,1014,0)="MX>2^.M6-X%Q%S=BLM+4&XS3!EHQM-*$N./;M^/\KLKYVC:.7&-I(M9E4UZ[1"
^XMB(3.9,23,2,1015,0)="""DATA"",396.18,194,3,446,0)"
^XMB(3.9,23,2,1016,0)="M0J;-%&6-ULI]C;&%Y5*D&%E,4?@'1+O5.XT`X]@04""+R;(S6M3:'9@);ES""^"
^XMB(3.9,23,2,1017,0)="""DATA"",396.18,194,3,447,0)"
^XMB(3.9,23,2,1018,0)="MQ""6L4G$\6,S67H65F@?RZIL@79,95DZ!$&GS%&+@/#UF15HQR)WV:4/SHKU."
^XMB(3.9,23,2,1019,0)="""DATA"",396.18,194,3,448,0)"
^XMB(3.9,23,2,1020,0)="M9&;P94L,J''""=S!$1!M12QY?SNO`=D]1+5CJP`=-52_K,%MS%-@1/-/8(LT#"
^XMB(3.9,23,2,1021,0)="""DATA"",396.18,194,3,449,0)"
^XMB(3.9,23,2,1022,0)="MCYSG1\BD2S;1'""*U,UP?VHN0)<_A>;[[U&N/31!A&%>'.D4Z,:(MV3-P)#2P"
^XMB(3.9,23,2,1023,0)="""DATA"",396.18,194,3,450,0)"
^XMB(3.9,23,2,1024,0)="MGN`=(CO(8$#\OB5=\;LT*7/F4]YEG].:)A-8_\!""L9&65EDHPEJ&2=BQ`S2H"
^XMB(3.9,23,2,1025,0)="""DATA"",396.18,194,3,451,0)"
^XMB(3.9,23,2,1026,0)="M5?C@8;6KQI%N5]\<[A]*_G\O=,:P,=+&1O)4%'O#KV$[W[UYC4/YL+[/$G8K"
^XMB(3.9,23,2,1027,0)="""DATA"",396.18,194,3,452,0)"
^XMB(3.9,23,2,1028,0)="M75^V?J7*AY\^WM#(4FW_ZG/-/(`.5AOUA[V8!E<=6/JF7'U..7/._FP9-H\S"
^XMB(3.9,23,2,1029,0)="""DATA"",396.18,194,3,453,0)"
^XMB(3.9,23,2,1030,0)="MG]0;G-6-/7X_@`=V:\<203HY<VB1:>4""#X?F7^KY&L.RW[YKAD?S<Y][SNV3"
^XMB(3.9,23,2,1031,0)="""DATA"",396.18,194,3,454,0)"
^XMB(3.9,23,2,1032,0)="M@?2]GB@&[(V>4>7+CX:6/_E`X]?;[""YCOXD3R""?L6LELW$:PV_R""HL\[%@Q,"
^XMB(3.9,23,2,1033,0)="""DATA"",396.18,194,3,455,0)"
^XMB(3.9,23,2,1034,0)="MLS]?P-_2-_*+40.*Z^LZWT1G<<FY6L-SJ$>8""^-#=A""F\F7[3?ZEU6F^O^-J"
^XMB(3.9,23,2,1035,0)="""DATA"",396.18,194,3,456,0)"
^XMB(3.9,23,2,1036,0)="MMC(O/$A81:\,A1VJ*<%>8(4-#\+&,MJU+PGONYX#9.@<(,.>$##1A5!`=_YL"
^XMB(3.9,23,2,1037,0)="""DATA"",396.18,194,3,457,0)"
^XMB(3.9,23,2,1038,0)="MYT!W;5A]/!U7^_SXN$=#8%>'PX^'V%R,H[NE^IP'H4:\_XSPR8W%:_<7Z80V"
^XMB(3.9,23,2,1039,0)="""DATA"",396.18,194,3,458,0)"
^XMB(3.9,23,2,1040,0)="M$OJ9DZX=[YE6T.JAJ\ZH/D.<+!Q7CR4Q8O[<UY_[_#GR]`_8,_Z3@$]^R2O:"
^XMB(3.9,23,2,1041,0)="""DATA"",396.18,194,3,459,0)"
^XMB(3.9,23,2,1042,0)="M'_;KVT]?V%DS:E6F1G3.=,B8$>B@\Y?2(<N!U)5""?""N%(*I/M0B`TP7:%$&X"
^XMB(3.9,23,2,1043,0)="""DATA"",396.18,194,3,460,0)"
^XMB(3.9,23,2,1044,0)="MG""X]>B)V>@H,;H!V1P(T%0:6FHH635D7?AISO)6Z0BC/*X^6]=0XGA;D;X=Z"
^XMB(3.9,23,2,1045,0)="""DATA"",396.18,194,3,461,0)"
^XMB(3.9,23,2,1046,0)="M""JX:Z@O;/Z/<;SBL@WA0!RB.1N@@]!8==!X8J(/.^^*Y(<W[`G7AAT.Z:'PN"
^XMB(3.9,23,2,1047,0)="""DATA"",396.18,194,3,462,0)"
^XMB(3.9,23,2,1048,0)="MT63%?;H`O2W=LS=Z6C<=K9+D<GU)T^[J>J/^&5=_[ARF&Z(^H.H#7WT0J`]"""
^XMB(3.9,23,2,1049,0)="""DATA"",396.18,194,3,463,0)"
^XMB(3.9,23,2,1050,0)="M]4&D/HC5!\Q_4Y\@[8FV6*2M%FG+1=IZD;9@I*T8:4M&VIJQMF:LK1EK:\;:"
^XMB(3.9,23,2,1051,0)="""DATA"",396.18,194,3,464,0)"
^XMB(3.9,23,2,1052,0)="MFK&V9JRM&6MKQMJ:L;9FK*V9:&LFVIJ)#@IMS41;,]'63+0U$VW-1%LST=9,"
^XMB(3.9,23,2,1053,0)="""DATA"",396.18,194,3,465,0)"
^XMB(3.9,23,2,1054,0)="MM353;<U46S/5D:RMF6IKIMJ:J;9FJJV9:FOVM37[VIK]9LTO[&P3LK--&*EY"
^XMB(3.9,23,2,1055,0)="""DATA"",396.18,194,3,466,0)"
^XMB(3.9,23,2,1056,0)="M:PO;%*)+;!,9LDT_G;9;7K'0O3RSY\=OY4?OT^VG;Y5T7_689Q^2[8U<'F(K"
^XMB(3.9,23,2,1057,0)="""DATA"",396.18,194,3,467,0)"
^XMB(3.9,23,2,1058,0)="M-6R2FIKOU^066,B-XDOD1H?D9KP[PS=G^-YLN#6;[LS&&W.O!T,\<!*\+..("
^XMB(3.9,23,2,1059,0)="""DATA"",396.18,194,3,468,0)"
^XMB(3.9,23,2,1060,0)="M#(H8ZR(FBPO3Q6YAP.MQ/1.SGAS5.X?J(]5B8#5+'^MJ:?P-4RC/&,C3PWAP"
^XMB(3.9,23,2,1061,0)="""DATA"",396.18,194,3,469,0)"
^XMB(3.9,23,2,1062,0)="M$.^<+-T^K!JCT`3OM-""=>0>)\3DA.@=69AJQC0:]\^8FV^,0!KK1I<^O#M;K"
^XMB(3.9,23,2,1063,0)="""DATA"",396.18,194,3,470,0)"
^XMB(3.9,23,2,1064,0)="MJX-EW_N8;G[-C^G'//^=2UU^(C8#=46Q4O5_6&.W*XJM6Q/8SQD6<ONE3LK'"
^XMB(3.9,23,2,1065,0)="""DATA"",396.18,194,3,471,0)"
^XMB(3.9,23,2,1066,0)="MJF%!_%`M8VV>FPLPFV_(PA81&`O8XZ]\F]RE\JA[J:B&:KM&KC+M%6H[B-[3"
^XMB(3.9,23,2,1067,0)="""DATA"",396.18,194,3,472,0)"
^XMB(3.9,23,2,1068,0)="MI]*WOT\)U&AAFI!2@-._C8_\/2_^/3!_WC3#7I@,8#'%?K7Z?IO=<1$DVQ^W"
^XMB(3.9,23,2,1069,0)="""DATA"",396.18,194,3,473,0)"
^XMB(3.9,23,2,1070,0)="M&4-F^]PPWUXO>N94""5_E%&Z8'0""NVD):P9:45]`&G0&D[AB:'NA[3X(H'Q*D"
^XMB(3.9,23,2,1071,0)="""DATA"",396.18,194,3,474,0)"
^XMB(3.9,23,2,1072,0)="MH0W4X_\0K25?='HB\:'8KJC*5!I^(AZWGOA8KC1GZ""U7[ZKB98DXPE;Z0_+O"
^XMB(3.9,23,2,1073,0)="""DATA"",396.18,194,3,475,0)"
^XMB(3.9,23,2,1074,0)="M95JPU$&/%OKU8-*$%>.`PHUAI,EH]@%UVQ,8^;:[`D7^4]L6V+0M%-^SA[T%"
^XMB(3.9,23,2,1075,0)="""DATA"",396.18,194,3,476,0)"
^XMB(3.9,23,2,1076,0)="MXF_I;E\AN$&088-(F.Q<JC#`$@S[N%QZ4\UF.A?HW.4E(OLT/VR3<O>=M``@"
^XMB(3.9,23,2,1077,0)="""DATA"",396.18,194,3,477,0)"
^XMB(3.9,23,2,1078,0)="MR3S(""0.PPFB\,##OL03Z`<[/D8H21^@:)LY9Z8D\EIZ.17+:)?SFR\?S%'7K"
^XMB(3.9,23,2,1079,0)="""DATA"",396.18,194,3,478,0)"
^XMB(3.9,23,2,1080,0)="M#MMSR?Y4/H+N\`C=H;&;#-YCD>>H._18NKO/RT-V3+;9O\^56<6J/!5W:?'P"
^XMB(3.9,23,2,1081,0)="""DATA"",396.18,194,3,479,0)"
^XMB(3.9,23,2,1082,0)="M"")KSK#1W+OCO]1<\I.N*$$A700BJ""OM&?^';_)#N9W(4T"",Y""N@R1P%6&7%6"
^XMB(3.9,23,2,1083,0)="""DATA"",396.18,194,3,480,0)"
^XMB(3.9,23,2,1084,0)="M68RNI3)HQ,*4[TJ=WQ51/,/+^E?V`"",W#]`/K!U`<4RX2*S1#-3\<9MDN[K%"
^XMB(3.9,23,2,1085,0)="""DATA"",396.18,194,3,481,0)"
^XMB(3.9,23,2,1086,0)="MY<V&H3S[E/%:M8?5ZS\2<1HMC'*@.CT`IG&WKQ+H""O1C2'\QJ#Y$#.I#_WUC"
^XMB(3.9,23,2,1087,0)="""DATA"",396.18,194,3,482,0)"
^XMB(3.9,23,2,1088,0)="MA;)ZA<1MA3&=8(78:874;84(3R%$8KG$,Z,/=KUZ^F22J^</IVR[@1GBEE/%"
^XMB(3.9,23,2,1089,0)="""DATA"",396.18,194,3,483,0)"
^XMB(3.9,23,2,1090,0)="M_E0)7-47!9.H[U6^/E4-Z;=J(\G3#![@:V@O=@_[Q!/%?:IF]4:)^JSIIZ?`"
^XMB(3.9,23,2,1091,0)="""DATA"",396.18,194,3,484,0)"
^XMB(3.9,23,2,1092,0)="MJS@Z59;238/A)`I\8YK5_?3LYK7#=E6-EMEKH_J,4LAK""\""YL2'HM74WT)<W"
^XMB(3.9,23,2,1093,0)="""DATA"",396.18,194,3,485,0)"
^XMB(3.9,23,2,1094,0)="M_7//8$HEY.B;43#&$@1N?D73VI_M_^]4/+R4]&SDZGTB@!SR]!!R=$:1!]]W"
^XMB(3.9,23,2,1095,0)="""DATA"",396.18,194,3,486,0)"
^XMB(3.9,23,2,1096,0)="M?#>=-`WCBTX@G?B..@EASQ8[;I1V`G%YR#C5#$^Q+!H""-12X:0A3\`YG""#@:"
^XMB(3.9,23,2,1097,0)="""DATA"",396.18,194,3,487,0)"
^XMB(3.9,23,2,1098,0)="M%<3YE9A>F.RK.4[?W3Q#R8>.DI=E?*'D#T6^30YE^BPE'[E)GB!_$JOT/3=%"
^XMB(3.9,23,2,1099,0)="""DATA"",396.18,194,3,488,0)"
^XMB(3.9,23,2,1100,0)="MV9Y/0^=.X^J;(CT71+UXCFIP5((/'M>4N.F`W969](^9E!BR3]/X-GD:`AQL"
^XMB(3.9,23,2,1101,0)="""DATA"",396.18,194,3,489,0)"
^XMB(3.9,23,2,1102,0)="M,((\V-D@"",K3(`^1<-8\S=N/Y3'E+>X,MV^JT],J*?/5P'>""[-&8.U0/W#B+"
^XMB(3.9,23,2,1103,0)="""DATA"",396.18,194,3,490,0)"
^XMB(3.9,23,2,1104,0)="MA*^P20RX3/!U%B/X7,!&:$7/RC&Z/&,;V)@""^SP+1H%#SI8IS/=GM07O-4]Z"
^XMB(3.9,23,2,1105,0)="""DATA"",396.18,194,3,491,0)"
^XMB(3.9,23,2,1106,0)="M5:1;=OG9\,3[B*3[8B7ZPPY]2#PW/_@`L<""`$^E'DUB+4+86!EZ!OMS?D%2U"
^XMB(3.9,23,2,1107,0)="""DATA"",396.18,194,3,492,0)"
^XMB(3.9,23,2,1108,0)="M<5>\2V2]3LI,ZAQINE&*]/]/(O-6TY/""N=S9(<8^>>$DVM!=M'!VRUFTD3="""
^XMB(3.9,23,2,1109,0)="""DATA"",396.18,194,3,493,0)"
^XMB(3.9,23,2,1110,0)="MM,%7)-K(6;2$>).(UA^#VO!2T?YUA3CIJ<J4(?;\F#[^7_$S.RE7TYB0-C*L"
^XMB(3.9,23,2,1111,0)="""DATA"",396.18,194,3,494,0)"
^XMB(3.9,23,2,1112,0)="M3[R!DW0I?""#%7HP>WX,PIS;@(6*]AK]WD)@R2FS(Q@^.$S,E*H=4C9U4C2(G"
^XMB(3.9,23,2,1113,0)="""DATA"",396.18,194,3,495,0)"
^XMB(3.9,23,2,1114,0)="M^^]3DZ[QHNN)=$V=C&?@;CR#""2X(F&#/'V$\HS^W\1S.3.&^S!0-K3)3ON^0"
^XMB(3.9,23,2,1115,0)="""DATA"",396.18,194,3,496,0)"
^XMB(3.9,23,2,1116,0)="MF6JHD=\_[`['7$KJ/XVR<SH0G(M[XD(R9L\2-]698[?(4,U(6V9W>SZN)&%O"
^XMB(3.9,23,2,1117,0)="""DATA"",396.18,194,3,497,0)"
^XMB(3.9,23,2,1118,0)="M<2:H?SDJ4A397`^Q;78Z#MP""18$WZ^6PCFP>U_=:+'^Y_$T=(E)P%H_$&8TF"
^XMB(3.9,23,2,1119,0)="""DATA"",396.18,194,3,498,0)"
^XMB(3.9,23,2,1120,0)="MP=F\A>,_G(K]`K$+((9&0`Q[(R$63@.Q>?M_7F5)4=RGR8*QL1@;$TTE:.QQ"
^XMB(3.9,23,2,1121,0)="""DATA"",396.18,194,3,499,0)"
^XMB(3.9,23,2,1122,0)="MZ45P;BYR1!F9&66?F)-QVAX?5H>D+'D3-/,U\NV""NBM'3F74D9&HPW#(Q!UU"
^XMB(3.9,23,2,1123,0)="""DATA"",396.18,194,3,500,0)"
^XMB(3.9,23,2,1124,0)="M=%;4_92NJPSTFHF3W7?WZW3!VUB\Q6/P1L?B#4]SE$;SMOFENYR=I7FV63)"""
^XMB(3.9,23,2,1125,0)="""DATA"",396.18,194,3,501,0)"
^XMB(3.9,23,2,1126,0)="MHW$6CL&9/_8T)9/@+)SW,+U-LOT""L+$`&]5J'HPU9#&9Y.`,YSTX;YGR$A[C"
^XMB(3.9,23,2,1127,0)="""DATA"",396.18,194,3,502,0)"
^XMB(3.9,23,2,1128,0)="M:*<4+G@;?04=<P<EX5B+%DP23XOFO81^2/=IN5L**<:CS!\#LM$QVWB28S.:"
^XMB(3.9,23,2,1129,0)="""DATA"",396.18,194,3,503,0)"
^XMB(3.9,23,2,1130,0)="M-YCV_DNZW2[1M`M`%KCTJ?6S#R#PL`0;10,XL2&G0>2._+?/@#'B*NVAA+IK"
^XMB(3.9,23,2,1131,0)="""DATA"",396.18,194,3,504,0)"
^XMB(3.9,23,2,1132,0)="M#6XA7[0VF!^>3&F^N](""LBC->JMYTVJMJF,AYCH6!)'I4)"":!1/XS)7[+\5"""
^XMB(3.9,23,2,1133,0)="""DATA"",396.18,194,3,505,0)"
^XMB(3.9,23,2,1134,0)="M%G*S5*NX5"":1_D(*<#S)*`+4VV8.G\""?8D>#BBZ@0?4T$E3O`@K4A>'T$H;3"
^XMB(3.9,23,2,1135,0)="""DATA"",396.18,194,3,506,0)"
^XMB(3.9,23,2,1136,0)="ML*_V1MQ0YW2C7GH3(K`I7#RAGP7%*>HG28BA+@4P3D-@D@0Y?""-LXG]R;K?5"
^XMB(3.9,23,2,1137,0)="""DATA"",396.18,194,3,507,0)"
^XMB(3.9,23,2,1138,0)="M>P;W\N8ZY`+]5SIJ=:63N[/ZN(H0@:F`Y+AI=Z?#L?=((?=O2CXA.2T9>I8+"
^XMB(3.9,23,2,1139,0)="""DATA"",396.18,194,3,508,0)"
^XMB(3.9,23,2,1140,0)="MWIRI;!J/A1PR$`/Y!LSY!LQ%=/[B+P:&HNXL+GG#X/%4I`O\YHDOR%CSO='P"
^XMB(3.9,23,2,1141,0)="""DATA"",396.18,194,3,509,0)"
^XMB(3.9,23,2,1142,0)="M(S""S$?'=X!?.77N8GY'W*2N/IVVRX&Z>E-""9:'(@KD6A9FCXLDV<F2;?7H]I"
^XMB(3.9,23,2,1143,0)="""DATA"",396.18,194,3,510,0)"
^XMB(3.9,23,2,1144,0)="MTO""VU/EML8=F>-OPFEZ4C\?:%$S0)$=:&,_<['J?[==']N.SW2&1ATPOQF1T"
^XMB(3.9,23,2,1145,0)="""DATA"",396.18,194,3,511,0)"
^XMB(3.9,23,2,1146,0)="MB,\><&0TX$(Z!>""(-V\N1F%E68ZPB[/,+ES>U'>WZG`CW<16'5V%L90&[J]K"
^XMB(3.9,23,2,1147,0)="""DATA"",396.18,194,3,512,0)"
^XMB(3.9,23,2,1148,0)="M((>>]G7C:=^V;>*""1^4(\8_8EK'%]ZB!)3*V;BLZ-('-3]F>DU^5+V^L<EI`"
^XMB(3.9,23,2,1149,0)="""DATA"",396.18,194,3,513,0)"
^XMB(3.9,23,2,1150,0)="MT)P""07-X7`#<7B3PZ,AW3RFV0Y1/!""OI*1O6WA8-6Z.!&+IE%+W7(@U&TK58"
^XMB(3.9,23,2,1151,0)="""DATA"",396.18,194,3,514,0)"
^XMB(3.9,23,2,1152,0)="M^I`)LHJGF^-?$IJ'-S)V][V]>(:-?!6F5^0:P_31)#',7_-BQW;K""DI(]#78"
^XMB(3.9,23,2,1153,0)="""DATA"",396.18,194,3,515,0)"
^XMB(3.9,23,2,1154,0)="M7$25.ET>Y4-:'DNG_`E>\B=?=?ZD;J0E`+/C68E^J.9.1$>C/1)H#,U!(%#;"
^XMB(3.9,23,2,1155,0)="""DATA"",396.18,194,3,516,0)"
^XMB(3.9,23,2,1156,0)="MLHCZF]MMFC`?EMV@MJ=->A[*4YZVQY(3I29;7D:9W.USYC2O5\E^P\29[:N="
^XMB(3.9,23,2,1157,0)="""DATA"",396.18,194,3,517,0)"
^XMB(3.9,23,2,1158,0)="M=>187=VL_DOZ>>M\OSFM.=-0MJ]^6LHV8+:O!\84Z2$OCD^C2_HWAM+?BN2@"
^XMB(3.9,23,2,1159,0)="""DATA"",396.18,194,3,518,0)"
^XMB(3.9,23,2,1160,0)="MP-W8I7Y6=.BBZ!`8!""@EQ%PT_>932^')(\#K^R)GBNPX#E=)%P;^R^H@X^+'"
^XMB(3.9,23,2,1161,0)="""DATA"",396.18,194,3,519,0)"
^XMB(3.9,23,2,1162,0)="M'WY4-=W@Y""FHTZ@UY:K;U_G6J)%J-`,$F%Q'0@3-<Q3^<NNZD8""(%:U]U]O>"
^XMB(3.9,23,2,1163,0)="""DATA"",396.18,194,3,520,0)"
^XMB(3.9,23,2,1164,0)="MRRU\M15.G]_2`K0`]4X_0V&SRKN-?=[1XM47O/C^R8'1>]G5KKK*1==U@M\P"
^XMB(3.9,23,2,1165,0)="""DATA"",396.18,194,3,521,0)"
^XMB(3.9,23,2,1166,0)="MCP7IRZ7K9D(D7&KO/B)CA6`E8!Z+5STFO@&#@7O=ZRL4HEY/H9`'A5_!>UP("
^XMB(3.9,23,2,1167,0)="""DATA"",396.18,194,3,522,0)"
^XMB(3.9,23,2,1168,0)="MCS52W&/AJA.%2Z&02Z&0-Y)PA;H!%<7D4J2R<V@`D*@7D/@Q`!ECA<QL`>1E"
^XMB(3.9,23,2,1169,0)="""DATA"",396.18,194,3,523,0)"
^XMB(3.9,23,2,1170,0)="M@)SNPG6V?)G;I8LLEZZO_])%D-$5QZ$^DCL&3!>V]L39]MOQT4&2U7IZ[G)S"
^XMB(3.9,23,2,1171,0)="""DATA"",396.18,194,3,524,0)"
^XMB(3.9,23,2,1172,0)="M&&""WR7YB2TY;'4PAZ8I,.$]\LG,=A>H-_P,#DV(7_CA""S,0JDEE\O&/KZQZ6"
^XMB(3.9,23,2,1173,0)="""DATA"",396.18,194,3,525,0)"
^XMB(3.9,23,2,1174,0)="MY+OM`^0#%_[0@S:""-&A)S(:?=KND'M>[:93X\OGPTG'?+G#S\6`2MR`R1-E1"
^XMB(3.9,23,2,1175,0)="""DATA"",396.18,194,3,526,0)"
^XMB(3.9,23,2,1176,0)="M9.I.""!8?[XJ7#JY17].L^<`.@*U$I?A*(U&1^DK4)[WZML&&;0/KT:C%7AW>"
^XMB(3.9,23,2,1177,0)="""DATA"",396.18,194,3,527,0)"
^XMB(3.9,23,2,1178,0)="MV,8J!K4'Y8PL`V?Q<-Q,C$D9>P10!#H%2%<@1D0B0;UBU""PI5\GJEW13A4S>"
^XMB(3.9,23,2,1179,0)="""DATA"",396.18,194,3,528,0)"
^XMB(3.9,23,2,1180,0)="M'K(]_^`=)^(NCW(Q$A@;NRCX!.VG8>_,8_\@MZ.)_HE<-#SS:8,&ILLWXIS?"
^XMB(3.9,23,2,1181,0)="""DATA"",396.18,194,3,529,0)"
^XMB(3.9,23,2,1182,0)="M3WN].VSSAYW*^'X%#T>\<E?_^0]02P,$%``""``@``5,?-3PJ%[#@&```=LL`"
^XMB(3.9,23,2,1183,0)="""DATA"",396.18,194,3,530,0)"
^XMB(3.9,23,2,1184,0)="M`!L```!296-T=6U?86YD7T%N=7-?,3$S+G!N;""YC9&7M/5UWVS:RS^XY_0\X"
^XMB(3.9,23,2,1185,0)="""DATA"",396.18,194,3,531,0)"
^XMB(3.9,23,2,1186,0)="M?LGVIK7%#U'2GJKW*+*<Z*QM^4IR<_.40TMTS*U$:D4JL?_]!?@E$AP``TI)"
^XMB(3.9,23,2,1187,0)="""DATA"",396.18,194,3,532,0)"
^XMB(3.9,23,2,1188,0)="MVEY[VZTD#@8S@\%@,,`,S\_)[<UP1F:+K;^)?_SAQQ_&#^32WT;Q=!?TC1]_"
^XMB(3.9,23,2,1189,0)="""DATA"",396.18,194,3,533,0)"
^XMB(3.9,23,2,1190,0)="M(#,O)M/1<'YW_?'6#;R5V3)-TSE[L_6#3W'XL`V#F/3)I;N*/`I]X3WX@1?%"
^XMB(3.9,23,2,1191,0)="""DATA"",396.18,194,3,534,0)"
^XMB(3.9,23,2,1192,0)="M[&G>;.K%_M9;5G%E/]*FIZ=$T'""TWJS""9[YE_JNXZ>[ZXUW@U1M7?N>:W^S6"
^XMB(3.9,23,2,1193,0)="""DATA"",396.18,194,3,535,0)"
^XMB(3.9,23,2,1194,0)="MWM9?Y)U<>\O)[<=QL%CMECP!U6<43XNH`(IN9A4&4\""I]Y\=)1_NIGA8T""L%"
^XMB(3.9,23,2,1195,0)="""DATA"",396.18,194,3,536,0)"
^XMB(3.9,23,2,1196,0)="MR1X,;]]?3]VE'[[=AKM-[VSFK;P%A1C'WEH@[-MM>+_RUC_GXV,4G\SBDY5_"
^XMB(3.9,23,2,1197,0)="""DATA"",396.18,194,3,537,0)"
^XMB(3.9,23,2,1198,0)="MNBJ>7EF<CJ1H(&JG!OBK""?YJ0;]>@1BN0-CO2XA$PA^O_""C>B[20Z=3)/PU7"
^XMB(3.9,23,2,1199,0)="""DATA"",396.18,194,3,538,0)"
^XMB(3.9,23,2,1200,0)="M8>3E7RZ>0+X2+##!(,53!_HUZ0EZ</$DD>FWZQL2X[LPVOBQN_J9^_YQMENO"
^XMB(3.9,23,2,1201,0)="""DATA"",396.18,194,3,539,0)"
^XMB(3.9,23,2,1202,0)="MW>WSSU.JZKOUQUGL;J/\RV#E;>-J-WD[B`0>9Q6FA!]ZD/0EP_J5>X2$=NU%"
^XMB(3.9,23,2,1203,0)="""DATA"",396.18,194,3,540,0)"
^XMB(3.9,23,2,1204,0)="MD?NI4*K)Q@_\,,B_#BZN""BU\VRL^AG[-)""58(/HSC-`CBAW4BK<]\&?:*VSK"
^XMB(3.9,23,2,1205,0)="""DATA"",396.18,194,3,541,0)"
^XMB(3.9,23,2,1206,0)="MOG'?D!@O?/=3$$9^5,CH*?\T>GB@@Y%_NQP7ZNFMP^)7.F]V*Y=3]QPG2!$X"
^XMB(3.9,23,2,1207,0)="""DATA"",396.18,194,3,542,0)"
^XMB(3.9,23,2,1208,0)="M#].^H"">78U""Y*`T@=$H/.`G_/%3!`Q$M'MWM7J-GFT<_H$O<MAB/S_[2""Q9["
^XMB(3.9,23,2,1209,0)="""DATA"",396.18,194,3,543,0)"
^XMB(3.9,23,2,1210,0)="M`-J>3I9M\0,U9BMWDW@M%;XSQ!!E12<@^UF'8,.\<X%530B!A^&[D\.M<>Z]"
^XMB(3.9,23,2,1211,0)="""DATA"",396.18,194,3,544,0)"
^XMB(3.9,23,2,1212,0)="MM[*-LU'@TJ5@V<\=O\I,78<U``A+6XE%@:;JYEAF'?J$=U^-BN>:`];`3!R8"
^XMB(3.9,23,2,1213,0)="""DATA"",396.18,194,3,545,0)"
^XMB(3.9,23,2,1214,0)="MA0-S<&`=')B!Y,%HX^""Z2'203,[/QP&=F;M%3`UP!+6RP%80I(VD`RLF+%\]"
^XMB(3.9,23,2,1215,0)="""DATA"",396.18,194,3,546,0)"
^XMB(3.9,23,2,1216,0)="MI$JTD'!8%8-UC*1__++?/_TO^=\I>4V&U%3\P[!^@K`D/D+_]$.X(X_N9X\$"
^XMB(3.9,23,2,1217,0)="""DATA"",396.18,194,3,547,0)"
^XMB(3.9,23,2,1218,0)="M84PV6[JHTGW#;'>_]N/3U^KVY2\I>.^GUZ>C@!H4+R(NM2CNDNUYXI#$CQYM"
^XMB(3.9,23,2,1219,0)="""DATA"",396.18,194,3,548,0)"
^XMB(3.9,23,2,1220,0)="MNPFI9S*YN?I`OCQZ`?OQF;B;C>=NB9]\)9G#T[SW><@ZI;CH8K5T8S?O//<'"
^XMB(3.9,23,2,1221,0)="""DATA"",396.18,194,3,549,0)"
^XMB(3.9,23,2,1222,0)="M4S:;,GDZ6%$+&[BQ_]E;%<B&*\8![6A+S125)NO/2Z5P6AWK9+-1LE=;9J\^"
^XMB(3.9,23,2,1223,0)="""DATA"",396.18,194,3,550,0)"
^XMB(3.9,23,2,1224,0)="M,7MEG$79MLQ/MF7E5F]V<1P&YMGO?N13B];G#5Z&8""9$D.QFP%:FI%7:K2WO"
^XMB(3.9,23,2,1225,0)="""DATA"",396.18,194,3,551,0)"
^XMB(3.9,23,2,1226,0)="M5H8@V2Z!K2QEMY:\6QF""=(<Q^NRN..D7/@F,4L9*YCH""2!/W)U_)J+-R'S[)"
^XMB(3.9,23,2,1227,0)="""DATA"",396.18,194,3,552,0)"
^XMB(3.9,23,2,1228,0)="MB..D5UO3)+""F!JRE`6MKP+8U8!T-V(X&;%<#MH>'M5IX6$?*6^+APGT@%+^M"
^XMB(3.9,23,2,1229,0)="""DATA"",396.18,194,3,553,0)"
^XMB(3.9,23,2,1230,0)="MT'RIZJ=[%KBAK>Y;,=FE*,K>*=S:41.@FO8R%-D6`FQH=]6&3F%@I2CVVQ2P"
^XMB(3.9,23,2,1231,0)="""DATA"",396.18,194,3,554,0)"
^XMB(3.9,23,2,1232,0)="M;;NE[E[!NA1%V?F'6R,,O:,@0(:BO(F`I==3$Z#0/BF*TD8%IEX]\VS%S*NA"
^XMB(3.9,23,2,1233,0)="""DATA"",396.18,194,3,555,0)"
^XMB(3.9,23,2,1234,0)="M*'D,)5>NW6)_ALR?`P/CTW4:U.!VU_G/^QW8*%B.']B'\_-?BC_JM'RB""K@E"
^XMB(3.9,23,2,1235,0)="""DATA"",396.18,194,3,556,0)"
^XMB(3.9,23,2,1236,0)="MPW#ID?WO*5S5+Q\_<+.N=39<^8L_DJ#Q?+MC)*@\_@+RY']V?IP0Y3\`J(U&"
^XMB(3.9,23,2,1237,0)="""DATA"",396.18,194,3,557,0)"
^XMB(3.9,23,2,1238,0)="MJ'.C*L=M`KCSR-""I<49H`^:*O<JCO_<>D_?2BUV?6NY_OB(K%KI<AM1990[P"
^XMB(3.9,23,2,1239,0)="""DATA"",396.18,194,3,558,0)"
^XMB(3.9,23,2,1240,0)="M@O;M4C_4I2!1<AZ1NF0L-I9])*]&=.Q)CI""M]Z]^9IT$Z<`^A*M5^""7IU2^)"
^XMB(3.9,23,2,1241,0)="""DATA"",396.18,194,3,559,0)"
^XMB(3.9,23,2,1242,0)="MG'VA&_#D]W);\L4/EN&7L[*[3C^>FF<DU33BN8M'ZF6F3:ATUAB.W&#)_$]J"
^XMB(3.9,23,2,1243,0)="""DATA"",396.18,194,3,560,0)"
^XMB(3.9,23,2,1244,0)="M#1CPUOO/+N&&N<.UKJPSD@B11(E'S+Q8=['P-A3+:I5B$36USPCUMM..J,_M"
^XMB(3.9,23,2,1245,0)="""DATA"",396.18,194,3,561,0)"
^XMB(3.9,23,2,1246,0)="M,U;=5<Y@1#NFGGU,HMC;1,3XA5AGI_R0,MWD]R[,_0ZWRXC^][/O?2'\\V3?"
^XMB(3.9,23,2,1247,0)="""DATA"",396.18,194,3,562,0)"
^XMB(3.9,23,2,1248,0)="MO]<%WDJROZJE8C-G?RQR_TQ^'TPGY'X7)Z/N?J:R8TOY:3(]R^XB;=U.T<V]"
^XMB(3.9,23,2,1249,0)="""DATA"",396.18,194,3,563,0)"
^XMB(3.9,23,2,1250,0)="MIR26-?SE@0J:<I90]L6-$NDJ$#.V2<:P'N&__G8TRO$T6,<5GE60<$TQ+JB"""
^XMB(3.9,23,2,1251,0)="""DATA"",396.18,194,3,564,0)"
^XMB(3.9,23,2,1252,0)="MI./[]81H'5F(%B3$NCG*.\]L4C^S2*CE(8.5FKNTH2W!7UTKFBA;(H1O,;?*"
^XMB(3.9,23,2,1253,0)="""DATA"",396.18,194,3,565,0)"
^XMB(3.9,23,2,1254,0)="MI-9^HK9E2""[91%OOJ#F[SR<<Z\%[""*F3D1JKF!F_U,2QR`(?],BUI;'6(*1A"
^XMB(3.9,23,2,1255,0)="""DATA"",396.18,194,3,566,0)"
^XMB(3.9,23,2,1256,0)="M?1-I5&=.]""W%4A_N[S&632W7=Y5TG>A]5X5ZY?X*X`7F[;4<3&YY!1;8XN`Q"
^XMB(3.9,23,2,1257,0)="""DATA"",396.18,194,3,567,0)"
^XMB(3.9,23,2,1258,0)="MW)+9CN[7ML]E8R.+*C&RBT@6\[9PS?JG'])(F#)ZG;F4&?E(]+_^AL:?2(EP"
^XMB(3.9,23,2,1259,0)="""DATA"",396.18,194,3,568,0)"
^XMB(3.9,23,2,1260,0)="MD%EXK>Y-%G0<-19GB+8H?""OA2F-8=5)%)\L5*;(ES2ZO9B>B=BPRG.C^WH]\"
^XMB(3.9,23,2,1261,0)="""DATA"",396.18,194,3,569,0)"
^XMB(3.9,23,2,1262,0)="MS!\S]W(5+ESF[U&5+UQ""<.#8R8UY=L6V.XH^^5]>UZB@7JB'ZM!PCM1C.K?="
^XMB(3.9,23,2,1263,0)="""DATA"",396.18,194,3,570,0)"
^XMB(3.9,23,2,1264,0)="M*`S8;(F?-QX)'^CD3V:-DI0""<3;;3TZXV9X#R%M+F""A?$'@WF=V.YX,K,KBY"
^XMB(3.9,23,2,1265,0)="""DATA"",396.18,194,3,571,0)"
^XMB(3.9,23,2,1266,0)="M(%>3X6`^GMS\DS""C5!_^JB=_,9B/*I#E4:N""3D>#V>2&3*9D_N%V1"":79'8W"
^XMB(3.9,23,2,1267,0)="""DATA"",396.18,194,3,572,0)"
^XMB(3.9,23,2,1268,0)="M?3N:?JBU+P:A@J!\C,$QE33J%"",G8E5W]@JG$=0F"">6O62""I+`G1`\/A`LRU"
^XMB(3.9,23,2,1269,0)="""DATA"",396.18,194,3,573,0)"
^XMB(3.9,23,2,1270,0)="M^54QQP2@P9+OCZL8[X(_@O!+<*K:&9LVGC/""#T%IMHKZ`_;BW8I?2L[/%^Q&"
^XMB(3.9,23,2,1271,0)="""DATA"",396.18,194,3,574,0)"
^XMB(3.9,23,2,1272,0)="M#T7_-J1K)6>4/_I1>@!3N^<&6>W2C4(%%29/Q-;[)=QX`>+<%`IF0+O3XF^^"
^XMB(3.9,23,2,1273,0)="""DATA"",396.18,194,3,575,0)"
^XMB(3.9,23,2,1274,0)="M=7=KM_Z[>""VUA&NI)5GK+.12ZC1:22WL2BHXM4[5ZIJ?%UW9XGG(T0[Z1$FL"
^XMB(3.9,23,2,1275,0)="""DATA"",396.18,194,3,576,0)"
^XMB(3.9,23,2,1276,0)="M(RV!IF)9EL>D\!KH'*B`^[\;+]RLW&@M>BY625.HDJ9$:4RL=]<&6:R>U?7I"
^XMB(3.9,23,2,1277,0)="""DATA"",396.18,194,3,577,0)"
^XMB(3.9,23,2,1278,0)="MCBGRXE.$LIIHMT]PV>%$>%W$X5CBT3([G`93X&>.Y)E5?@;/%U/\R!(^,ENR"
^XMB(3.9,23,2,1279,0)="""DATA"",396.18,194,3,578,0)"
^XMB(3.9,23,2,1280,0)="M67;(N2WZN!B893*YEA7,X0]M^P@$L'*@1C""Y9=2KGXO68.R.%""8=416$@\""!"
^XMB(3.9,23,2,1281,0)="""DATA"",396.18,194,3,579,0)"
^XMB(3.9,23,2,1282,0)="MTR;5I'#4DY%G""YB'59H%`%9CID3""UV7N)CQM.&0.`D(VA26BX9E#+KT\;R5G"
^XMB(3.9,23,2,1283,0)="""DATA"",396.18,194,3,580,0)"
^XMB(3.9,23,2,1284,0)="MZR_%H'""EM5M<K!)MIZ5+K*V+M>'*FI^QS#;>PG_P%P1>4+-UW^'CLJH+?2F8"
^XMB(3.9,23,2,1285,0)="""DATA"",396.18,194,3,581,0)"
^XMB(3.9,23,2,1286,0)="M@$?#K*'+R&$'/,)F752K'W^X#3>[%=U,#\/U??C>CQ\SL.1,*E=6]NQ-^&1H"
^XMB(3.9,23,2,1287,0)="""DATA"",396.18,194,3,582,0)"
^XMB(3.9,23,2,1288,0)="M@-^'3R88L.@I3@'Y5(+JM,E0&\+(!=^^V,5'R=@])_OX_!1ML=MNZ>Y^]<R="
^XMB(3.9,23,2,1289,0)="""DATA"",396.18,194,3,583,0)"
^XMB(3.9,23,2,1290,0)="MGIU5PW?`_&43I8<E`OH5#C""PL(:Z<[;B=\1AC<:]+_SM8K>.8C=8L$M[P9+X"
^XMB(3.9,23,2,1291,0)="""DATA"",396.18,194,3,584,0)"
^XMB(3.9,23,2,1292,0)="M@1_[[HJLW<""/'CSZ*#W$#-/CU*4?>6Z$H#B[#05&D!O0_O[1C8D?I42'NVWD"
^XMB(3.9,23,2,1293,0)="""DATA"",396.18,194,3,585,0)"
^XMB(3.9,23,2,1294,0)="MD<AG=YHI;5Z,)L<Z$CF#;7*>2_\_4R@2;STW7M-/45-BBC@1!O`F#+P$6+RY"
^XMB(3.9,23,2,1295,0)="""DATA"",396.18,194,3,586,0)"
^XMB(3.9,23,2,1296,0)="M$XC^(&Z3@VPON4F7J(2:^Y.""_^)#72""5#D7QLC*0&HMX:-FCV^GDS=7HNA*V"
^XMB(3.9,23,2,1297,0)="""DATA"",396.18,194,3,587,0)"
^XMB(3.9,23,2,1298,0)="MXBQ-E0L0#?=#%DMC8;')S6PTKX7?>@=@'HZGP[OKV7QP,QS-DBC?^&8\'P^N"
^XMB(3.9,23,2,1299,0)="""DATA"",396.18,194,3,588,0)"
^XMB(3.9,23,2,1300,0)="MR/7@9GPYHD]8R&_&.JV&XCJU2)Q.MY.[Z6Q$9F/:+<`5/,N;]70WG8YNYF0^"
^XMB(3.9,23,2,1301,0)="""DATA"",396.18,194,3,589,0)"
^XMB(3.9,23,2,1302,0)="M'0WFU_33#.K)DO7$Q8&-C/%""H=""C.)H-I^-;)D\VF`K**GU5""2I4'SM)M4F="
^XMB(3.9,23,2,1303,0)="""DATA"",396.18,194,3,590,0)"
^XMB(3.9,23,2,1304,0)="MC2]&9'1Y21_,0%JK*B[M7$E[FLYQ'*%6""+^<3JX5I)?[QE':;4KIX.)BS,BD"
^XMB(3.9,23,2,1305,0)="""DATA"",396.18,194,3,591,0)"
^XMB(3.9,23,2,1306,0)="M<VLXN88'O%L/;Y,*+7QHNYTVZ->ZD\3$,_^IYMA5_@2)K@@7O8:X$B&I6,-T"
^XMB(3.9,23,2,1307,0)="""DATA"",396.18,194,3,592,0)"
^XMB(3.9,23,2,1308,0)="MW\!M&WKP(]`FB*`L``H,5G=%#SH@A].G4KA!<#.;<""OM&YB<$T2VDFA$X-0E"
^XMB(3.9,23,2,1309,0)="""DATA"",396.18,194,3,593,0)"
^XMB(3.9,23,2,1310,0)="M4;3'$#^2QJ\L$T6V(=TDJC*H!'Y,36B__M;$BY'(&%)ZI:3SC2R*PQP8,""1"""
^XMB(3.9,23,2,1311,0)="""DATA"",396.18,194,3,594,0)"
^XMB(3.9,23,2,1312,0)="MOQ%%.J@>>""W1&IX3P2F5L7\&:I6N6J'T2CG3]^XH!K(0-N]""ZJ5B[$_BQ#%+"
^XMB(3.9,23,2,1313,0)="""DATA"",396.18,194,3,595,0)"
^XMB(3.9,23,2,1314,0)="M""XYO5P>,Y[M046'N8V7#C^Z]B'++N]^KF2KWDH*(-$%\9F+PZT_]5*^C.-3K"
^XMB(3.9,23,2,1315,0)="""DATA"",396.18,194,3,596,0)"
^XMB(3.9,23,2,1316,0)="MH.ZK""*,RM6A,=APL.>I(:>\IPT7J:!&/LZ.)$XQK,6;)Y)Z,@W_OI%=PVK7)"
^XMB(3.9,23,2,1317,0)="""DATA"",396.18,194,3,597,0)"
^XMB(3.9,23,2,1318,0)="MD&D$KP^&4=B$?9RE#F1)@9@N6(84)+D968.HR4K.!C/^*#Z`=&""`$4'2<(43"
^XMB(3.9,23,2,1319,0)="""DATA"",396.18,194,3,598,0)"
^XMB(3.9,23,2,1320,0)="M`(9G10A2O@(*6EG+J(SL;..SR]#*P77P@]M6CYNI/2J.QJBT$?*&1@Z6EUF="
^XMB(3.9,23,2,1321,0)="""DATA"",396.18,194,3,599,0)"
^XMB(3.9,23,2,1322,0)="M""9?C,I67XY+SIDB`$MX*M""R1<(DB,WDO80(E:'U.3];V4*K[B98E%#.""E,)R"
^XMB(3.9,23,2,1323,0)="""DATA"",396.18,194,3,600,0)"
^XMB(3.9,23,2,1324,0)="MRVF!P#@R>O`-26$#NZ5ND.T2>N!5\V99<>)K)IUZ(!DO/_G)?;L):NCB=J+."
^XMB(3.9,23,2,1325,0)="""DATA"",396.18,194,3,601,0)"
^XMB(3.9,23,2,1326,0)="M+!EMNWT,_64EX29)T!-JMHW6;!NOV39>L^T&FFUK:+:MH=FVEF;;AJYFF[H-"
^XMB(3.9,23,2,1327,0)="""DATA"",396.18,194,3,602,0)"
^XMB(3.9,23,2,1328,0)="M+-T&MF8#`YYLP%322O/<3Z;+/-*@E%U]"":CQ)EIHD)W`""PU*@CBJ,IU1<V_J"
^XMB(3.9,23,2,1329,0)="""DATA"",396.18,194,3,603,0)"
^XMB(3.9,23,2,1330,0)="M<V]I<V\VX-[2Y-Z2<`_8NQ[""WMG-3*G=!+70E!:)Q>6>]MG&0FOJH*VI@[>F"
^XMB(3.9,23,2,1331,0)="""DATA"",396.18,194,3,604,0)"
^XMB(3.9,23,2,1332,0)="M';PUM1I84T?#FG8TK*FE9TW;NK;.P9HN_2QQ\?T""`Z%FG68:;#5!#6LPOZE-"
^XMB(3.9,23,2,1333,0)="""DATA"",396.18,194,3,605,0)"
^XMB(3.9,23,2,1334,0)="M=/KV\3E*$DU&3^ZZ#@%$:EMG""\F=?Z!VCW@+D&$T&F`4[&1%^MP!SC8(9?^]"
^XMB(3.9,23,2,1335,0)="""DATA"",396.18,194,3,606,0)"
^XMB(3.9,23,2,1336,0)="MYW]ZC%G@/&#3^@39OAP'`EQ02W@VGT/82@C`B`HPR>%6;,O4-E%04)^JVT-U"
^XMB(3.9,23,2,1337,0)="""DATA"",396.18,194,3,607,0)"
^XMB(3.9,23,2,1338,0)="MR5R%470<OH$K0,W9!I`=D^NWKA\TUX<FHRUD2'^PE1>I5-R?PB<V5<:5^H`4"
^XMB(3.9,23,2,1339,0)="""DATA"",396.18,194,3,608,0)"
^XMB(3.9,23,2,1340,0)="M#%(=4'+!:$/9!^#L92JCU-/*K)G48$LK>:1F1>Y;]71;M%O:+4SM%I:L12J="
^XMB(3.9,23,2,1341,0)="""DATA"",396.18,194,3,609,0)"
^XMB(3.9,23,2,1342,0)="M)-1B[^\-9?93N%4M:U]24$7D7O%""9%[-)5K>0J>FB_:O]O5:`/\*28G4O^KB"
^XMB(3.9,23,2,1343,0)="""DATA"",396.18,194,3,610,0)"
^XMB(3.9,23,2,1344,0)="M_:L*+1`8""R)6[J_5G[:%C]/PFPE,-@BLK0#C=$AWE]K6]0W;CFZ#CFZ#KFX#"
^XMB(3.9,23,2,1345,0)="""DATA"",396.18,194,3,611,0)"
^XMB(3.9,23,2,1346,0)="MW3B88>@SK34*70`<\)ZU2APIUY.V#>>\8^&I%-Z$\2/Q@Z0H7IH92G4X^:(A"
^XMB(3.9,23,2,1347,0)="""DATA"",396.18,194,3,612,0)"
^XMB(3.9,23,2,1348,0)="M'V""*2\0#0`,3!(!*YR`&41N!""(!19JG7Y3<._E[2$MH^))!6N9*Z.$?ZRM=P"
^XMB(3.9,23,2,1349,0)="""DATA"",396.18,194,3,613,0)"
^XMB(3.9,23,2,1350,0)="M<C:PS[Q$$3T[Q[>$\I7H*!.@,#PZ0_<R9,<;LJ\P""X'P2Z<6/]#PH>0I'F83"
^XMB(3.9,23,2,1351,0)="""DATA"",396.18,194,3,614,0)"
^XMB(3.9,23,2,1352,0)="MU,(`HAN$6RI@EF=?.6/,:O:)/-Q:Q3U)^1&\@]O#.[B6Q,%%4B)U<'L:#JZE"
^XMB(3.9,23,2,1353,0)="""DATA"",396.18,194,3,615,0)"
^XMB(3.9,23,2,1354,0)="M<'""YW*:6YBQP=!TL1_?\QM$]OW'4CFZRN6KC3$T'`H-/QMOB1X[@;%6S_&3E"
^XMB(3.9,23,2,1355,0)="""DATA"",396.18,194,3,616,0)"
^XMB(3.9,23,2,1356,0)="M5`3)?+JUE+(O]A$ZLA,3#`'I7<%O-P!BL]=%A(9[S<R>U02UT.R-UQLW*?Q7"
^XMB(3.9,23,2,1357,0)="""DATA"",396.18,194,3,617,0)"
^XMB(3.9,23,2,1358,0)="M5`>M\K,O&BJT@"";:`IIH""\B53I=:0*>!!33Q%K!.BL0"".GH64+"")A16N(W[4"
^XMB(3.9,23,2,1359,0)="""DATA"",396.18,194,3,618,0)"
^XMB(3.9,23,2,1360,0)="M%3_JP<9`OQBLY)C01AP3BL4H5W>G""6JANA<E:#DM+RK3""B-9/:R6`V%`H6H9"
^XMB(3.9,23,2,1361,0)="""DATA"",396.18,194,3,619,0)"
^XMB(3.9,23,2,1362,0)="M>""VW];6<IT2JY8:&EMMZ6JX;2'%Z6MZTHQO9Z>`O+!DMU8TE_:+&RI""+T]6^"
^XMB(3.9,23,2,1363,0)="""DATA"",396.18,194,3,620,0)"
^XMB(3.9,23,2,1364,0)="M;5`1&>I2G]/5OVT`#HSFN$O,2+N%F.M&,S-B-T$M-""/[-P&5NRK*2PN72O2M"
^XMB(3.9,23,2,1365,0)="""DATA"",396.18,194,3,621,0)"
^XMB(3.9,23,2,1366,0)="MQ#;^5J)IXHU(N\%2J7$KT30UC$A;RXAT='W_CHF];:!=%5RFPHCK!F(IR56X"
^XMB(3.9,23,2,1367,0)="""DATA"",396.18,194,3,622,0)"
^XMB(3.9,23,2,1368,0)="MW02U2(6%%0W82RS2=V!$JC)!*5V.ZIZ[I5/3`""A*!I<GJ+7L2.L=9J\(K&7+"
^XMB(3.9,23,2,1369,0)="""DATA"",396.18,194,3,623,0)"
^XMB(3.9,23,2,1370,0)="MVY5L>7)2;P,EX^>O.D/G<!O*A/*+4EX*_0SGX9=2JM,,]R""MJ$W8/XO%;N-F"
^XMB(3.9,23,2,1371,0)="""DATA"",396.18,194,3,624,0)"
^XMB(3.9,23,2,1372,0)="M];7=1>Q_IH\\!(E5;>\VH/2""54>O$I122G;1CE*S=/W5<XFF_U;2=/$DS.]F"
^XMB(3.9,23,2,1373,0)="""DATA"",396.18,194,3,625,0)"
^XMB(3.9,23,2,1374,0)="MK[>$6T""TEE]*=S$>O+V9S,;U-$T;2,NMIF'MCY*+(A:I9U""0*7H77NVGUT5>"
^XMB(3.9,23,2,1375,0)="""DATA"",396.18,194,3,626,0)"
^XMB(3.9,23,2,1376,0)="M.1G,9I/A>#`?79#WX_D[,G\W(C""57*]B0J',4A4Y:7XMF=R0N]G=X(I,AL.["
^XMB(3.9,23,2,1377,0)="""DATA"",396.18,194,3,627,0)"
^XMB(3.9,23,2,1378,0)="MVWII2%B71;G5&;2-R%Q6T3=_-YY1N<P&;\97X_F'5S,ROKX=I!3O:655+8?S"
^XMB(3.9,23,2,1379,0)="""DATA"",396.18,194,3,628,0)"
^XMB(3.9,23,2,1380,0)="M\>_C^7@$)H7;FGG,6;/V$3B8CF9W5_/QS5OR?C+]%X'J""L""]X9*M6[(<9A5M"
^XMB(3.9,23,2,1381,0)="""DATA"",396.18,194,3,629,0)"
^XMB(3.9,23,2,1382,0)="M$ZIUTWUR.$ZDE6X%1&K0,)B.F/)/*TGJ;#;D,Z70S8O!^.J#B""JI*1,I:NUM"
^XMB(3.9,23,2,1383,0)="""DATA"",396.18,194,3,630,0)"
^XMB(3.9,23,2,1384,0)="M2T6K>=/A)L-WDZF4-M/0'.?:>YZ.0.7LW>3VEBJEC$[S,#JM8]`Y^M_1=#B>"
^XMB(3.9,23,2,1385,0)="""DATA"",396.18,194,3,631,0)"
^XMB(3.9,23,2,1386,0)="MC61T6H?1>0PS16:WD^E<.NKV050ZSC&HI#^RT@F\=9=WI2O/8QA-,I\.?A]="
^XMB(3.9,23,2,1387,0)="""DATA"",396.18,194,3,632,0)"
^XMB(3.9,23,2,1388,0)="M*12T?1""A5NL8A%Z.1A=R,OE^=.79.P:9;P9T)95+LW<8F=UCD'E!3>=,06?W"
^XMB(3.9,23,2,1389,0)="""DATA"",396.18,194,3,633,0)"
^XMB(3.9,23,2,1390,0)="M,#H[1U'/R?AJ-%<0VCF,T*/,^+?3R>1:0:?N?+\>74]Z9W1RCF9-ASFI]/)F"
^XMB(3.9,23,2,1391,0)="""DATA"",396.18,194,3,634,0)"
^XMB(3.9,23,2,1392,0)="M1!('A',O2MA1I%@'D:(LY5+J0>WL,-_(X4N4ESM4UW)QZM?NE65:9!MQWC&*"
^XMB(3.9,23,2,1393,0)="""DATA"",396.18,194,3,635,0)"
^XMB(3.9,23,2,1394,0)="M$#57#'EEENJ.)'V\X(\@V&=+],""NOE!5YJL7K^F`H=L2:+C<10N^@2+<KL_\"
^XMB(3.9,23,2,1395,0)="""DATA"",396.18,194,3,636,0)"
^XMB(3.9,23,2,1396,0)="M3P$K*>`&<1X>`>]8F"";BJ+.'@+$4U[D*SC%0BFM<F3./N*L&RX=-ND8""$I[$"
^XMB(3.9,23,2,1397,0)="""DATA"",396.18,194,3,637,0)"
^XMB(3.9,23,2,1398,0)="M]C!`ENJ^CUR7T&HDU""#5@$AIDH/5AH2[\%FU`""QH)PHZ=Y5OK,4U0P:,]O'A"
^XMB(3.9,23,2,1399,0)="""DATA"",396.18,194,3,638,0)"
^XMB(3.9,23,2,1400,0)="M$^DK;2-I):+:)D0+W-(#M_7`VWK@CAYX1P^\JP?>TP*G3JL.N`.R""LZ>'ER<"
^XMB(3.9,23,2,1401,0)="""DATA"",396.18,194,3,639,0)"
^XMB(3.9,23,2,1402,0)="M1_CB8VW-%KX6^5!,UM$PV4?#U#X:)N=HF#I'P]0]&J;>L3""57@-]("";G`(DG"
^XMB(3.9,23,2,1403,0)="""DATA"",396.18,194,3,640,0)"
^XMB(3.9,23,2,1404,0)="M$ZFT1&@C2!?DKBX*\=L-U16@+$4%*`M5`0I\XUY2&6N_?QU7WR5P[2TGMQ_W"
^XMB(3.9,23,2,1405,0)="""DATA"",396.18,194,3,641,0)"
^XMB(3.9,23,2,1406,0)="M+]YC?^?GA/V\*;U;<I%DFRY3[Q'9278X""U5OR[W0XHVSMRM6%YF]+2YB=P;B"
^XMB(3.9,23,2,1407,0)="""DATA"",396.18,194,3,642,0)"
^XMB(3.9,23,2,1408,0)="MD/C!8K5;>L0E^7OE)AL_\,/@[+1X==3^P^F<O=KUV@T8MKFWWK"":V]$KLHO]"
^XMB(3.9,23,2,1409,0)="""DATA"",396.18,194,3,643,0)"
^XMB(3.9,23,2,1410,0)="ME1\_DX=P%RP)_3<[,7HUV22%F5^Q-PS2(2)NG/Q^'])OZ_P@*5IL/2\@U'EC"
^XMB(3.9,23,2,1411,0)="""DATA"",396.18,194,3,644,0)"
^XMB(3.9,23,2,1412,0)="ME.TB*@CVCM?ELDX5B;-.STYS]KS,3<Q<<Y'$^QAA,C0)/I+Z..EI9;_?)R/:"
^XMB(3.9,23,2,1413,0)="""DATA"",396.18,194,3,645,0)"
^XMB(3.9,23,2,1414,0)="M;?C,B@>3OO""O?%<P?Y5+\AZ\A?H2D6F:CCPYNH;:-'N84UD0-9#`N&>1=_#2"
^XMB(3.9,23,2,1415,0)="""DATA"",396.18,194,3,646,0)"
^XMB(3.9,23,2,1416,0)="M)QY8%B:18D)+O33,)1IZG]BCT0:^EI#Y^2:[3NFI]AT,K=5"";(@8PI8I1Y@"""
^XMB(3.9,23,2,1417,0)="""DATA"",396.18,194,3,647,0)"
^XMB(3.9,23,2,1418,0)="M4HP=`]<S<.=4P(HJNR:KA,^0&J5L@%@!:DI!""WZZ.MVWU+L]#._`\+<PVS(F"
^XMB(3.9,23,2,1419,0)="""DATA"",396.18,194,3,648,0)"
^XMB(3.9,23,2,1420,0)="M+D>UOYE,LZJ@O!10T,K]7$Y'MXO89R7""L-`W?U-PM;`L[""VV<A,T9SV5A/<J"
^XMB(3.9,23,2,1421,0)="""DATA"",396.18,194,3,649,0)"
^XMB(3.9,23,2,1422,0)="MP3#K`4O32(X@5_ZE2:S7#AZP(""]=@50ZJTR=R8UK7\>V2M*(9?:R?C\=-I<R"
^XMB(3.9,23,2,1423,0)="""DATA"",396.18,194,3,650,0)"
^XMB(3.9,23,2,1424,0)="MH5HM+66U6BA[*M>+JEG#`,N5B#?24B7JZ$W.CIXE0]M])=,E.R8VC[PY5V)M"
^XMB(3.9,23,2,1425,0)="""DATA"",396.18,194,3,651,0)"
^XMB(3.9,23,2,1426,0)="MZ9$@DCN'4ST\)G:.]_2&I_>5AKG9/.;?=0WL;KZ!]R4SMB]VX2LI3'DY\W37"
^XMB(3.9,23,2,1427,0)="""DATA"",396.18,194,3,652,0)"
^XMB(3.9,23,2,1428,0)="MZK^*+W30`OO_QJ\2F?%##.Z+!J`\P$8^&WZ!_DJ+[C=:)L_/N3[I^*PZ!K;+"
^XMB(3.9,23,2,1429,0)="""DATA"",396.18,194,3,653,0)"
^XMB(3.9,23,2,1430,0)="M0QTGL<N0KYH'+\""R];;_LMR^++<OR^W+<ONRW+XLMW_17:EZ#84*+0""-@,I;"
^XMB(3.9,23,2,1431,0)="""DATA"",396.18,194,3,654,0)"
^XMB(3.9,23,2,1432,0)="M,.K6]]G2`P$Q`1=(`F6QZYZJL)!:3-]52N7!GGIQ4H)!&EW@JW-(O9U6@Z.="
^XMB(3.9,23,2,1433,0)="""DATA"",396.18,194,3,655,0)"
^XMB(3.9,23,2,1434,0)="MEM;1CNI`0FQB8TFTS4'4&ZN95IF:6-I'''_#J'VN7WT-]<*%MULZX6WE@O""-"
^XMB(3.9,23,2,1435,0)="""DATA"",396.18,194,3,656,0)"
^XMB(3.9,23,2,1436,0)="MSH0<^VL>2?S973A@%C32#V'8M/(FDR:635?E7A3NY>CS+WGT>8A=AMYEV@3="
^XMB(3.9,23,2,1437,0)="""DATA"",396.18,194,3,657,0)"
^XMB(3.9,23,2,1438,0)="MRUQ[F6M_U[DFGBI2]:I[RRIMG+""WWN.8T'16ZUZ8DG0-8HZMJ9K44LGEEPO_"
^XMB(3.9,23,2,1439,0)="""DATA"",396.18,194,3,658,0)"
^XMB(3.9,23,2,1440,0)="ML<EK]V_2:A\_B3@P6S92G.VCB/-0""J4R;NO)N'V@C*/GQ:/OLH)5"""":P6RSG"
^XMB(3.9,23,2,1441,0)="""DATA"",396.18,194,3,659,0)"
^XMB(3.9,23,2,1442,0)="MR&)N3*14THZ>I!VP4/'EH<O3UR7XVROC=S,Q96-^%WBH^QF6EN]C:85#>C;V"
^XMB(3.9,23,2,1443,0)="""DATA"",396.18,194,3,660,0)"
^XMB(3.9,23,2,1444,0)="M?F8+C%W!2+$+AZ+SDH#Z.O)!A0!PY<'^)/Y$#U3-2""%2A&K:QQ4Y$""3\&E?."
^XMB(3.9,23,2,1445,0)="""DATA"",396.18,194,3,661,0)"
^XMB(3.9,23,2,1446,0)="MT_^]G<PG>TE%\7079/?1JZ6_R.SNS71R-T^RH/FJ8#_^<#5X,[JJEJ$UQ,D>"
^XMB(3.9,23,2,1447,0)="""DATA"",396.18,194,3,662,0)"
^XMB(3.9,23,2,1448,0)="MPU48>?V2JYV^;>AU6;!I""G7Y)R-+JZZ&=QFJ7W]+1YTK%C58>=NXI,ITC[3;"
^XMB(3.9,23,2,1449,0)="""DATA"",396.18,194,3,663,0)"
^XMB(3.9,23,2,1450,0)="M!C""Y'22U16W(""L6,AUZ-ATZ5ARSYLU8Q5]@5^_):]K;ZUYCWPU=$:-3%VOV*"
^XMB(3.9,23,2,1451,0)="""DATA"",396.18,194,3,664,0)"
^XMB(3.9,23,2,1452,0)="M4K6P4I5DJ+^691^_!O/17Y<3T`OV=.1L@[V`F<*O@:)(1Q#F^?DOQ1][3!]]"
^XMB(3.9,23,2,1453,0)="""DATA"",396.18,194,3,665,0)"
^XMB(3.9,23,2,1454,0)="MVJW<+1F&2X_LG]4$7\QB2D'VN6_D%FKTY,>3?U%KD/R29E/5Y))26D_?JDUI"
^XMB(3.9,23,2,1455,0)="""DATA"",396.18,194,3,666,0)"
^XMB(3.9,23,2,1456,0)="M$9-`)7D#J@.XKU@&(.OGN.J$\).52""BIT](1D+*_U=*(*.L@HBP=HBIN`,NS"
^XMB(3.9,23,2,1457,0)="""DATA"",396.18,194,3,667,0)"
^XMB(3.9,23,2,1458,0)="M&J=I9&Q-:""4@&EERE02V(BGNBQOM$^,*;JY'%[2W*CI;C*Z"";>UM/U$*_0`0"
^XMB(3.9,23,2,1459,0)="""DATA"",396.18,194,3,668,0)"
^XMB(3.9,23,2,1460,0)="M08T+HY9<1GL70T/9=XC>T]G0AYO7L4W^8(EQWA/+1M2@KJ6F[F8RKU-8I`VR"
^XMB(3.9,23,2,1461,0)="""DATA"",396.18,194,3,669,0)"
^XMB(3.9,23,2,1462,0)="M6I#[),5Z4A[+RWOTR+[(2.S>5RH_5C_F:8@[^F_\%1,*E4F$#"")^I/2F)5&H"
^XMB(3.9,23,2,1463,0)="""DATA"",396.18,194,3,670,0)"
^XMB(3.9,23,2,1464,0)="M9-WU/K'PN$.4IA42W?Q1@2YS,T.74(Y40C%^\4C@?:9B=B/FVSV$VU1PDTU!"
^XMB(3.9,23,2,1465,0)="""DATA"",396.18,194,3,671,0)"
^XMB(3.9,23,2,1466,0)="M/:.]XKUQ!KY$10M:[A+C@[#J`JN%-.G@JWVDRTH'NZH@#3EW-J5!B=64$NLP"
^XMB(3.9,23,2,1467,0)="""DATA"",396.18,194,3,672,0)"
^XMB(3.9,23,2,1468,0)="M2BH*Q&T$Z&SX/U!+`P04``(`""``!4Q\U]C)(]G8*``!7/@``&P```%)E8W1U"
^XMB(3.9,23,2,1469,0)="""DATA"",396.18,194,3,673,0)"
^XMB(3.9,23,2,1470,0)="M;5]A;F1?06YU<U\Q,3,N<&YL+G)E<+U;;8_CMA'^OL#^!P&+`DG1Q5FOMA?;"
^XMB(3.9,23,2,1471,0)="""DATA"",396.18,194,3,674,0)"
^XMB(3.9,23,2,1472,0)="M*VB9MME(HB)2N^<4AR)!@N*`;C9H4Z`_OS.49%EO-,D#ZB]W*Y&<X;P^'(Y2"
^XMB(3.9,23,2,1473,0)="""DATA"",396.18,194,3,675,0)"
^XMB(3.9,23,2,1474,0)="MGI>T$$0R7GBDV'OX%_Z??B(Y*]3S^[N*IK+.U7M2U.+^[L\&O_N[YV=>R[*6"
^XMB(3.9,23,2,1475,0)="""DATA"",396.18,194,3,676,0)"
^XMB(3.9,23,2,1476,0)="M_'#X^-'[\,$K>5F7WH%7N?>W9LV_ES_^^LL_@\_CP<_/K-C3HOWKX:$=G?_R"
^XMB(3.9,23,2,1477,0)="""DATA"",396.18,194,3,677,0)"
^XMB(3.9,23,2,1478,0)="M]AZO\.<_//2/T_(UKW[\^<O[\5_O__FM&1#>&A#``-S:""Z.O'C]X.=VSE&0>"
^XMB(3.9,23,2,1479,0)="""DATA"",396.18,194,3,678,0)"
^XMB(3.9,23,2,1480,0)="M3.'57K?))6:#:U;ISU]^CSLZTZ?(WA^_[F?/QO/SY.G'CW;+A+/+A+;+_#^$"
^XMB(3.9,23,2,1481,0)="""DATA"",396.18,194,3,679,0)"
^XMB(3.9,23,2,1482,0)="M4@!E(ZZ6K""-]/+"",>J]$/'G]IF='&^Y_R5!'MN>]THK>HAF:;F_H-""G/<QB!"
^XMB(3.9,23,2,1483,0)="""DATA"",396.18,194,3,680,0)"
^XMB(3.9,23,2,1484,0)="M6\+9S?A(S9V.GR$!;DPA#ES\EQ0T\Z<.O.#M:O1D<,\JS;D?/SR8[:L=?,6Y"
^XMB(3.9,23,2,1485,0)="""DATA"",396.18,194,3,681,0)"
^XMB(3.9,23,2,1486,0)="M>F+*].>1K0QCSOU=IY03$Y)7YTE`6-R%TA;9,WZL>%WZAMN9S/*8\.0)+,$C"
^XMB(3.9,23,2,1487,0)="""DATA"",396.18,194,3,682,0)"
^XMB(3.9,23,2,1488,0)="M'0\8ITY<E$R2C/W01&U>>:*NCK0Z_V5L,?UJ\S)9U)""_&)""CB0;6P*FH\YPT"
^XMB(3.9,23,2,1489,0)="""DATA"",396.18,194,3,683,0)"
^XMB(3.9,23,2,1490,0)="M[)$L&[,H5.9HF&1T:'G)P/+4>J;ZT]C1</>ADP;""10W(BM0Y\23'EUZ;'$$-"
^XMB(3.9,23,2,1491,0)="""DATA"",396.18,194,3,684,0)"
^XMB(3.9,23,2,1492,0)="MF!N7=1#:Z2""Q4,$&6)7GDO[)RWC:Y_(]D?0;\6W/\@W);PPEGY@*/E@6_*UY"
^XMB(3.9,23,2,1493,0)="""DATA"",396.18,194,3,685,0)"
^XMB(3.9,23,2,1494,0)="MWH+L""\K+C(A\6<Z!I:W'9H(>$DF`0\@+R@#@+2@_!W,_%J203XN<)9J(/54J"
^XMB(3.9,23,2,1495,0)="""DATA"",396.18,194,3,686,0)"
^XMB(3.9,23,2,1496,0)="MVA^@L%1Z>T:.!1<@$-0D4KNAR-""4$$0XB<)&2\'%+Y2N-Z$&V;`>K%I[%!<S"
^XMB(3.9,23,2,1497,0)="""DATA"",396.18,194,3,687,0)"
^XMB(3.9,23,2,1498,0)="M;%BO*)&8?+QO6)%F]9X5QRYV?:O?4K""RV5)XM24P%ME3'N_+2E))KY'KQ4'G"
^XMB(3.9,23,2,1499,0)="""DATA"",396.18,194,3,688,0)"
^XMB(3.9,23,2,1500,0)="MK#5+R=)E6G;J1[5P=(#YC#U5>F`:-V-3]S7.Q--I""][+=T)26:FTRHJ_UMJ<"
^XMB(3.9,23,2,1501,0)="""DATA"",396.18,194,3,689,0)"
^XMB(3.9,23,2,1502,0)="M%=O(*_1;FT,RS=)Z>86^C>KC*XNZK#[0;CR%@$OR2=S$BN;'Y)Q8(=L6(%'$"
^XMB(3.9,23,2,1503,0)="""DATA"",396.18,194,3,690,0)"
^XMB(3.9,23,2,1504,0)="MCBUWD)4R8'>/2<HT0?E6!AJJN$%%6K&RP2%S?-S00:`3&L]W?,<_&1MA/W[!"
^XMB(3.9,23,2,1505,0)="""DATA"",396.18,194,3,691,0)"
^XMB(3.9,23,2,1506,0)="M^G`@L+?+*,70,Y!$-]F`H;4E0^M;#)45ST@IZ!Q#<VAH0F%CR=%&QU%=51BB"
^XMB(3.9,23,2,1507,0)="""DATA"",396.18,194,3,692,0)"
^XMB(3.9,23,2,1508,0)="M2:%\]``S$<+-\;8QX2VQY""U9Y`W$!+Q(-LM+8NY^FTEEH'^W77ZGLMH25O0U"
^XMB(3.9,23,2,1509,0)="""DATA"",396.18,194,3,693,0)"
^XMB(3.9,23,2,1510,0)="M[T+-NTCS+M:\2S3OUIIW&U7TZ'0LSGDI>2[N[QY'/P=(I.3:6(U,3^!?RT!H"
^XMB(3.9,23,2,1511,0)="""DATA"",396.18,194,3,694,0)"
^XMB(3.9,23,2,1512,0)="M%FF:D$#U[.JJT*^^=5M=*1@04%6=*%E>WAR*S-C(GAT.+*TS>?9*(H0""0)+S"
^XMB(3.9,23,2,1513,0)="""DATA"",396.18,194,3,695,0)"
^XMB(3.9,23,2,1514,0)="M;)F<>9Z:,9^2L$*S=.RX-%J8I`45>2TTRZ\=ET=#$J\TR[1J#O7A9^)G+D?`"
^XMB(3.9,23,2,1515,0)="""DATA"",396.18,194,3,696,0)"
^XMB(3.9,23,2,1516,0)="M:/D4#ND+#(6SO>[(%UF>12*7LT@47'/993?O4/'<C,U(A^X3#6&,;(>*?E_3"
^XMB(3.9,23,2,1517,0)="""DATA"",396.18,194,3,697,0)"
^XMB(3.9,23,2,1518,0)="M(E52Z8@O:RT*'5T?G;/+3BGU7ID\P1*PZ0HSP.C(,I[K1C-:+L+T9#5B]1W%"
^XMB(3.9,23,2,1519,0)="""DATA"",396.18,194,3,698,0)"
^XMB(3.9,23,2,1520,0)="M&@VW.B""GD6QD>@""(C`LGCI63Y=()P`D%*U*N#DVP/8WW6%9,_-#%>\*M.M5)"
^XMB(3.9,23,2,1521,0)="""DATA"",396.18,194,3,699,0)"
^XMB(3.9,23,2,1522,0)="MS(<7!C-*OB-'J@D^CCDF6JFHO!<>N@VKZ%ZC4'.S;4'0=NR/4W$_S6""GK:GA"
^XMB(3.9,23,2,1523,0)="""DATA"",396.18,194,3,700,0)"
^XMB(3.9,23,2,1524,0)="MA,:&XW;$""37@CU9,@8L]$^F)5$>=X226AK-V""KOQU8GSPI5&G8[9-DH4;FC7"
^XMB(3.9,23,2,1525,0)="""DATA"",396.18,194,3,701,0)"
^XMB(3.9,23,2,1526,0)="M[_6KH928*G2M+\4;^W\WN*U8""'8L&.`<`C[5ZE!SW:#F*HYO%.3+TUFHT@%>"
^XMB(3.9,23,2,1527,0)="""DATA"",396.18,194,3,702,0)"
^XMB(3.9,23,2,1528,0)="M3H[*\1;JWGQV,,T!J,;SOA].G@23)_[DR6K\9#-^L%80_07KYTJ00W1N7+%H"
^XMB(3.9,23,2,1529,0)="""DATA"",396.18,194,3,703,0)"
^XMB(3.9,23,2,1530,0)="M,%H.?D-D/;Q-4J]A_,%X,62RK#,Q608QV$^_O1DOU*9Q43)@""UT;_IDLZEL5"
^XMB(3.9,23,2,1531,0)="""DATA"",396.18,194,3,704,0)"
^XMB(3.9,23,2,1532,0)="M^Y0B=AGG>S@A4B%F-JL*HA]&SW""AM[?3/\P)H7Y/E!U/D]*>*KY!F#U18;X<"
^XMB(3.9,23,2,1533,0)="""DATA"",396.18,194,3,705,0)"
^XMB(3.9,23,2,1534,0)="M&L?K_'*('$I>%WOA$##6EW4]B!F%+B:MC1%*FRK""?NV,""S&735#6?\""B94FJ"
^XMB(3.9,23,2,1535,0)="""DATA"",396.18,194,3,706,0)"
^XMB(3.9,23,2,1536,0)="MI@""U(X(""EJ=6E**>TG%\BNF&&%.:""WX;TV06;9R26:3.PY#'>@R.ES%HHS!1"
^XMB(3.9,23,2,1537,0)="""DATA"",396.18,194,3,707,0)"
^XMB(3.9,23,2,1538,0)="M`QLWEMEKXY*]8I1O=UNT;""!Q9.6*>'!C/[154DDK3-A71Y"")G5LM'E^MCH#M"
^XMB(3.9,23,2,1539,0)="""DATA"",396.18,194,3,708,0)"
^XMB(3.9,23,2,1540,0)="MYNJ.""3=.6L7AY<[5^A""W]G7*X(RSK+PX<:0Y*,G1%[;OH']7'-3HR+&:$L=+"
^XMB(3.9,23,2,1541,0)="""DATA"",396.18,194,3,709,0)"
^XMB(3.9,23,2,1542,0)="M-$V.&[&K=-=+5&\?'F/'BD*\;37*""XIU<%`I`""FF<H6X[9&Q(]CW_:6MTD\I"
^XMB(3.9,23,2,1543,0)="""DATA"",396.18,194,3,710,0)"
^XMB(3.9,23,2,1544,0)="M9""KV0I5-%7L$2A+YT9B6;]R-81S9XI539,-IN""^""U\R\+6*#.&6=$0-IKBSC"
^XMB(3.9,23,2,1545,0)="""DATA"",396.18,194,3,711,0)"
^XMB(3.9,23,2,1546,0)="MV];I@K;EL6.+EQ2KAMX+$WH/3AR+!8E_39#7`N_<4PF'O:PD>HJ.%;ZDK?OT"
^XMB(3.9,23,2,1547,0)="""DATA"",396.18,194,3,712,0)"
^XMB(3.9,23,2,1548,0)="M9X/&Q""2:./VDP!#=:^@&CG2[XSU8'@1AH');Z8ECV2=I8Y0H3P""O(.9C7D&Q"
^XMB(3.9,23,2,1549,0)="""DATA"",396.18,194,3,713,0)"
^XMB(3.9,23,2,1550,0)="M8OW'`^/+P?3@M*`3;VP*<M1)))Y>:S$`&'A4[[D8G&8VD]-,O-P.-KU'2R['"
^XMB(3.9,23,2,1551,0)="""DATA"",396.18,194,3,714,0)"
^XMB(3.9,23,2,1552,0)="M)KX3M'II6F9N7)R97W=$6S?T@B&3D<;'0<9@4JVC""[R_Q2.%`90QKBQL;1K("
^XMB(3.9,23,2,1553,0)="""DATA"",396.18,194,3,715,0)"
^XMB(3.9,23,2,1554,0)="M`M\E(JPQ(I`<4+4J]&1U3HLFI>LAT-HU(+0IG0!""!:PL>7XV\).-6\TPV3;$"
^XMB(3.9,23,2,1555,0)="""DATA"",396.18,194,3,716,0)"
^XMB(3.9,23,2,1556,0)="MKDA1\(U""3VQK6V#RNZAZ727KPL[<M9R_,K2`P+B;*P[<DE8PB22M6VM2E64O"
^XMB(3.9,23,2,1557,0)="""DATA"",396.18,194,3,717,0)"
^XMB(3.9,23,2,1558,0)="M4;!R2E4M(M*)<S3!ZJ)^/8UHB&S[J"":)K$7W>#[&32.0'0^;*0^D.'LU9I#L"
^XMB(3.9,23,2,1559,0)="""DATA"",396.18,194,3,718,0)"
^XMB(3.9,23,2,1560,0)="MC(F9[)IHSB0#3,8*Q0Q@MAM-:W@+9,[&=C;68G`S:[()30/:C""4LV:5;C3UN"
^XMB(3.9,23,2,1561,0)="""DATA"",396.18,194,3,719,0)"
^XMB(3.9,23,2,1562,0)="MD_""HA<``?EE6U8/`*=CZ@ZKZB$M-L'7$0NO`TH?6INU2,_L?VE1D4R.-9FND"
^XMB(3.9,23,2,1563,0)="""DATA"",396.18,194,3,720,0)"
^XMB(3.9,23,2,1564,0)="ME\+F`>:!,X@G7:TT,JF52BID]PV#EO]H9<%_U%Z18Y,@]KIA>U^:L4(QCR2Q"
^XMB(3.9,23,2,1565,0)="""DATA"",396.18,194,3,721,0)"
^XMB(3.9,23,2,1566,0)="MME=G4KN!V7N-(9G`AB?5JK]+C4@'QK@I=NO;CINJ'EY?9(U(1,>8US0]0L3E"
^XMB(3.9,23,2,1567,0)="""DATA"",396.18,194,3,722,0)"
^XMB(3.9,23,2,1568,0)="M372[^L8&QI2\TKFM;Z+U2__F575<WX&K^RHG"")+/QE\8!*L@""#5?Y>#[;:1J"
^XMB(3.9,23,2,1569,0)="""DATA"",396.18,194,3,723,0)"
^XMB(3.9,23,2,1570,0)="MVS0O,WY6C:""7WOK'1Z<6E`'E6M2(5-.T+KNRUE(LOTRS""C?3S4#(>:&0+`$F"
^XMB(3.9,23,2,1571,0)="""DATA"",396.18,194,3,724,0)"
^XMB(3.9,23,2,1572,0)="MMTTUV=EK]C<#+$;SC<\E';?H?5WOSL(V-[/;-(>P[V\_O>_>_XNS_.N6REYG"
^XMB(3.9,23,2,1573,0)="""DATA"",396.18,194,3,725,0)"
^XMB(3.9,23,2,1574,0)="M@^`]&&X,7:]GJ3;""NB(=+.CV9T`P<""*HFI-93K&`+9LNB5=>?8=,(`Y1+;U^"
^XMB(3.9,23,2,1575,0)="""DATA"",396.18,194,3,726,0)"
^XMB(3.9,23,2,1576,0)="M\)CS`DZ8>.W(]XL<Z.2ZF5-A@`@D);6X-.;/<`+@9X&+7L^*]$31@3&BO\Q8"
^XMB(3.9,23,2,1577,0)="""DATA"",396.18,194,3,727,0)"
^XMB(3.9,23,2,1578,0)="M]Y#H8E']1R^0IK!DU9<8\&L3]4AQB!'LMI<%ZZ_PLM70RRHJ9S'[:)*I9>""G"
^XMB(3.9,23,2,1579,0)="""DATA"",396.18,194,3,728,0)"
^XMB(3.9,23,2,1580,0)="M9\%JU8BA:_!M:$Q:N""]#31?G5?;EW[]?&[K2_(3$@O>.IEN;6MQ_6/;A@C``"
^XMB(3.9,23,2,1581,0)="""DATA"",396.18,194,3,729,0)"
^XMB(3.9,23,2,1582,0)="M@NTRF@L38XJM26(MHQ3G],0(5@FLJ""76U/H+YUMR72`9?H5=AD.[K(LNZGN["
^XMB(3.9,23,2,1583,0)="""DATA"",396.18,194,3,730,0)"
^XMB(3.9,23,2,1584,0)="M6GH%EX:F&MH'L5431N:B9L?&<MQ<Z8/$;.()FHXD(O""P=&0OM$""X,""9V(PD%"
^XMB(3.9,23,2,1585,0)="""DATA"",396.18,194,3,731,0)"
^XMB(3.9,23,2,1586,0)="M)OU)B[ACP)-I=TD[=OQY&CU@5[-`&#:(><W'*@PR.$DE>U$GT2?-1Y*Z(ARB"
^XMB(3.9,23,2,1587,0)="""DATA"",396.18,194,3,732,0)"
^XMB(3.9,23,2,1588,0)="M39L/&6.S3S-QY""T(>[$OJ\K?]2SU:1.Y?)7*2T#X""J-^7P.@U9GT%IF[O_L?"
^XMB(3.9,23,2,1589,0)="""DATA"",396.18,194,3,733,0)"
^XMB(3.9,23,2,1590,0)="M4$L!`A8+%``""``@``5,?-:Q,""?GF*P``\Q\!`!<``````````0`@`(""!````"
^XMB(3.9,23,2,1591,0)="""DATA"",396.18,194,3,734,0)"
^XMB(3.9,23,2,1592,0)="M`%)E8W1U;5]A;F1?06YU<U\Q,3,N<&YL4$L!`A8+%``""``@``U,?-3EB^HQC"
^XMB(3.9,23,2,1593,0)="""DATA"",396.18,194,3,735,0)"
^XMB(3.9,23,2,1594,0)="M,```H^D!`!L``````````0`@`(""!&RP``%)E8W1U;5]A;F1?06YU<U\Q,3,N"
^XMB(3.9,23,2,1595,0)="""DATA"",396.18,194,3,736,0)"
^XMB(3.9,23,2,1596,0)="M<&YL+F9R;5!+`0(6""Q0``@`(``%3'S4\*A>PX!@``';+```;``````````$`"
^XMB(3.9,23,2,1597,0)="""DATA"",396.18,194,3,737,0)"
^XMB(3.9,23,2,1598,0)="M(`""`@;=<``!296-T=6U?86YD7T%N=7-?,3$S+G!N;""YC9&502P$""%@L4``(`"
^XMB(3.9,23,2,1599,0)="""DATA"",396.18,194,3,738,0)"
^XMB(3.9,23,2,1600,0)="M""``!4Q\U]C)(]G8*``!7/@``&P`````````!`""``@('0=0``4F5C='5M7V%N"
^XMB(3.9,23,2,1601,0)="""DATA"",396.18,194,3,739,0)"
^XMB(3.9,23,2,1602,0)="H9%]!;G5S7S$Q,RYP;FPN<F5P4$L%!@`````$``0`(`$``'^`````````"
^XMB(3.9,23,2,1603,0)="""DATA"",396.18,194,3,740,0)"
^XMB(3.9,23,2,1604,0)="end"
^XMB(3.9,23,2,1605,0)="""DATA"",396.18,194,4)"
^XMB(3.9,23,2,1606,0)="9^113122877"
^XMB(3.9,23,2,1607,0)="""DATA"",396.18,194,6)"
^XMB(3.9,23,2,1608,0)="1^489"
^XMB(3.9,23,2,1609,0)="""DATA"",396.18,195,0)"
^XMB(3.9,23,2,1610,0)="DIGESTIVE CONDITIONS, MISCELLANEOUS~113F"
^XMB(3.9,23,2,1611,0)="""DATA"",396.18,195,1,0)"
^XMB(3.9,23,2,1612,0)="^^2^2^3060831"
^XMB(3.9,23,2,1613,0)="""DATA"",396.18,195,1,1,0)"
^XMB(3.9,23,2,1614,0)="Last updated on 06/30/2006"
^XMB(3.9,23,2,1615,0)="""DATA"",396.18,195,1,2,0)"
^XMB(3.9,23,2,1616,0)="Patch DVBA*2.7*113"
^XMB(3.9,23,2,1617,0)="""DATA"",396.18,195,2)"
^XMB(3.9,23,2,1618,0)="3060509^^3060630.1406"
^XMB(3.9,23,2,1619,0)="""DATA"",396.18,195,3,0)"
^XMB(3.9,23,2,1620,0)="^396.184^678^678^3060831^^^^"
^XMB(3.9,23,2,1621,0)="""DATA"",396.18,195,3,1,0)"
^XMB(3.9,23,2,1622,0)="begin 664 Digestive_Conditions_Misc_113.pnl.zip"
^XMB(3.9,23,2,1623,0)="""DATA"",396.18,195,3,2,0)"
^XMB(3.9,23,2,1624,0)="M4$L#!!0``@`(`(Q3'S5`=#R>AR<``.CJ```A````1&EG97-T:79E7T-O;F1I"
^XMB(3.9,23,2,1625,0)="""DATA"",396.18,195,3,3,0)"
^XMB(3.9,23,2,1626,0)="M=&EO;G-?36ES8U\Q,3,N<&YLW%UK;!S'?=^[(Y<O41)%69)MQ5Y1=B)9%'5O"
^XMB(3.9,23,2,1627,0)="""DATA"",396.18,195,3,4,0)"
^XMB(3.9,23,2,1628,0)="MWK&N;8JD),:B=.6=Q`2)FR[WAN1:>[N7??#AI,X+:-PDK1L$=9T4;N""DJ9$V"
^XMB(3.9,23,2,1629,0)="""DATA"",396.18,195,3,5,0)"
^XMB(3.9,23,2,1630,0)="MJ0&C:9VT0=$4*%""@+1""@Z8=^*-(&+=(/36K4*=HB0#HS.[,W<SM[#XD0>?('"
^XMB(3.9,23,2,1631,0)="""DATA"",396.18,195,3,6,0)"
^XMB(3.9,23,2,1632,0)="MB[?D_6=^__G/_SVSE=*EI%PIJ28PQK;KZ)^+J@/F+-.U+:/O*EASXU*B8M7C"
^XMB(3.9,23,2,1633,0)="""DATA"",396.18,195,3,7,0)"
^XMB(3.9,23,2,1634,0)="MA_M7]*J[D7@[+E\!^OJ&FW@C-GP1;`+CNN<"">T!>W;QFF>`^^%7'M57==)VI"
^XMB(3.9,23,2,1635,0)="""DATA"",396.18,195,3,8,0)"
^XMB(3.9,23,2,1636,0)="M)74[^-NC3;^@U/@OZ&;$%W23?F&H9-6]^A(PO8&C2_""WERR[-K4=/$P-5M35"
^XMB(3.9,23,2,1637,0)="""DATA"",396.18,195,3,9,0)"
^XMB(3.9,23,2,1638,0)="MZW85V'%)DBH8WE5U%1B'\/\K.W5P?0U]!X-+%'Z&T0WZZ.+O(N#BHP-S:MW5"
^XMB(3.9,23,2,1639,0)="""DATA"",396.18,195,3,10,0)"
^XMB(3.9,23,2,1640,0)="M+5/N7UI8OKS`D1K!_T=$%N<Y,B<(F3-A,O+\XN6%<H6C<]!_]@'\H9#S2?T`"
^XMB(3.9,23,2,1641,0)="""DATA"",396.18,195,3,11,0)"
^XMB(3.9,23,2,1642,0)="M\SOQ9Q*A50C3&EX&-5#5U54#1-,K$GI_&L-36R'DG@N3>^"":Y2I;P##..UZ]"
^XMB(3.9,23,2,1643,0)="""DATA"",396.18,195,3,12,0)"
^XMB(3.9,23,2,1644,0)="M;MDNJ""JK.PJDX;8@G]\%\@<N04&;FMM0;0>X`X?F%R[-WKA:^<#<E=GE\D)E"
^XMB(3.9,23,2,1645,0)="""DATA"",396.18,195,3,13,0)"
^XMB(3.9,23,2,1646,0)="MV/^M95CVP(!F7#14[=8(?D;&^,D0_G1-K0%Y=*FLE%734<K`UM?\KY;='0.,"
^XMB(3.9,23,2,1647,0)="""DATA"",396.18,195,3,14,0)"
^XMB(3.9,23,2,1648,0)="M2,,EU0:FBQX-\B+!`DHE4RRBQ$_I`BR'(1VY"""">OF!""7;E9U3860*&&\E2BG"
^XMB(3.9,23,2,1649,0)="""DATA"",396.18,195,3,15,0)"
^XMB(3.9,23,2,1650,0)="M\(=4TM]'*F:41O;1;\;H/I)B?5>@D,O]I>NE&R5_3RV:)MQ3@ZN;RZKN@.K("
^XMB(3.9,23,2,1651,0)="""DATA"",396.18,195,3,16,0)"
^XMB(3.9,23,2,1652,0)="M10M)-,8#GSIEW5PW0+_/FD'-*.O&)K#O/C?9O282DKS/TGB6W62)4Q1Z_'#`"
^XMB(3.9,23,2,1653,0)="""DATA"",396.18,195,3,17,0)"
^XMB(3.9,23,2,1654,0)="MT;/S^CIP7'T3S""@5;Q78FF=8CNXHUIKB;@""E!.?A0OWBU>X0Y7]UA%)><RY:"
^XMB(3.9,23,2,1655,0)="""DATA"",396.18,195,3,18,0)"
^XMB(3.9,23,2,1656,0)="M1K5)=(00TS[$!S%$A<C,#8',S$,Q07#@QETW$;:9""(H9EN(UPK07I##)DTB;"
^XMB(3.9,23,2,1657,0)="""DATA"",396.18,195,3,19,0)"
^XMB(3.9,23,2,1658,0)="M*:I95:J0ML\K&ZAN#4XYBGB6U3)TOHE?$5''$]9-58/+HKL[RI;J*)""\M@&J"
^XMB(3.9,23,2,1659,0)="""DATA"",396.18,195,3,20,0)"
^XMB(3.9,23,2,1660,0)="M4=1SS-03GZ4[Z&:8^-B<9R/.*LY.K>Y:-<2,@<I%SX6+3+>E_RE-9OQE7R]^"
^XMB(3.9,23,2,1661,0)="""DATA"",396.18,195,3,21,0)"
^XMB(3.9,23,2,1662,0)="MCQ)]FA)]N*&JYZ#,@+W<!GT#U\TY0]=N#8QO^]._#.!.UC7\4)+Z*TN@9HT2"
^XMB(3.9,23,2,1663,0)="""DATA"",396.18,195,3,22,0)"
^XMB(3.9,23,2,1664,0)="M@.CG-""<_OTC6X[W!%GF,*(=4*I/,W""&TMQEH(W.69^O`5JZ!+0[8Z%7=!`[\"
^XMB(3.9,23,2,1665,0)="""DATA"",396.18,195,3,23,0)"
^XMB(3.9,23,2,1666,0)="M9$,EX\1DB8,Z7-:@8P""=!-L9&':<F\!VH?XS&AR((Y`+5=VE(-'/*58NXDD"""
^XMB(3.9,23,2,1667,0)="""DATA"",396.18,195,3,24,0)"
^XMB(3.9,23,2,1668,0)="M\M<#H;N/`9GD#+B`5IZ3X-;$&&\@)N0^N]<2KTHMV9_N`?8GI!:&B(`]A1DG"
^XMB(3.9,23,2,1669,0)="""DATA"",396.18,195,3,25,0)"
^XMB(3.9,23,2,1670,0)="M$ZP?""1RZU^X%0Q2CBFF454S$%WK;EYD^HD)VPG9HC+%#5X!MZNH^LS?3OC>1"
^XMB(3.9,23,2,1671,0)="""DATA"",396.18,195,3,26,0)"
^XMB(3.9,23,2,1672,0)="M^(SOI7PR1K#<HE@>""+!,/J:4;.#`X;S5FNXJKJ6HU:H""Z4/)<]!'9%G+7JVF"
^XMB(3.9,23,2,1673,0)="""DATA"",396.18,195,3,27,0)"
^XMB(3.9,23,2,1674,0)="MVCN#*W!E5VRU/A2EB#-DY/_T%?&GZ<@9.O(A5A$#U686I8U:C!B0.&19'^JO"
^XMB(3.9,23,2,1675,0)="""DATA"",396.18,195,3,28,0)"
^XMB(3.9,23,2,1676,0)="MQIHU_[&&=^U#9-30;8V8+O@C_J/4=L2]MS6)-A""'*T196-MC!&7P@&B""@W@["
^XMB(3.9,23,2,1677,0)="""DATA"",396.18,195,3,29,0)"
^XMB(3.9,23,2,1678,0)="MW$\T@1IH@F=CQZY8]G.!LIFJV'#J<*\/C2.5TWB^K)KK(/%F[!C_./CSX5G/"
^XMB(3.9,23,2,1679,0)="""DATA"",396.18,195,3,30,0)"
^XMB(3.9,23,2,1680,0)="MM?SG@[NH/7?)/9WV78OX,&9#/UGLR;""W,G35@DX^_""G""[YG.L(3*A-!&F-""Q"
^XMB(3.9,23,2,1681,0)="""DATA"",396.18,195,3,31,0)"
^XMB(3.9,23,2,1682,0)="M>>!HMKX*'4&X]VQE`ZN8F8$%$P5SU<:>;PI-?""<A\35??YTC`WCA`>Z?UR&#"
^XMB(3.9,23,2,1683,0)="""DATA"",396.18,195,3,32,0)"
^XMB(3.9,23,2,1684,0)="M8$"".G$&?.G3A%*TV<_?9+^95EC!]""&^Q,;K%0!C+?40U-:""<<<[""%3A4F2NM"
^XMB(3.9,23,2,1685,0)="""DATA"",396.18,195,3,33,0)"
^XMB(3.9,23,2,1686,0)="M+""VK5=VZ;%M>_3@ASS_-$NV1]@/4;2+D'P_\A(F&:<^DALL;UI9OW`8/O-N#"
^XMB(3.9,23,2,1687,0)="""DATA"",396.18,195,3,34,0)"
^XMB(3.9,23,2,1688,0)="M%F!M9]$%-6=H`/U34JN,D;B_9#FN50>VB@S%)'2*-=^;?7(`<M""KF0[4/W1)"
^XMB(3.9,23,2,1689,0)="""DATA"",396.18,195,3,35,0)"
^XMB(3.9,23,2,1690,0)="M1S&9AD%/O!<X<OR:)36D$ZK<P<I5W7'AS@P6WO^89P5KG,:.`8:?;V!(YPXN"
^XMB(3.9,23,2,1691,0)="""DATA"",396.18,195,3,36,0)"
^XMB(3.9,23,2,1692,0)="M;+O`K()J&1A`@\X""&IERM7D:@XOFN@>=>T,>N`0=(1O]<!.9!OA#_W4DG%*3"
^XMB(3.9,23,2,1693,0)="""DATA"",396.18,195,3,37,0)"
^XMB(3.9,23,2,1694,0)="M(Q;RG:;9N:FAN669N4T'[.@!'RK6J8BEN-""$BEA\BW+@%""-AV:XD[,@R@*,8"
^XMB(3.9,23,2,1695,0)="""DATA"",396.18,195,3,38,0)"
^XMB(3.9,23,2,1696,0)="M.U""TJIZF0\Z)1.ON;.E(`1:KVOZ.N>?+3V(VQF4'/A8(T&F&??FNV'>\D2!3"
^XMB(3.9,23,2,1697,0)="""DATA"",396.18,195,3,39,0)"
^XMB(3.9,23,2,1698,0)="M+*@*T5;E>=C!KI0[!I+G-`U-A3TO$H-D5SB.-2F:#:#""=;]-+3/8*9X,$>N_"
^XMB(3.9,23,2,1699,0)="""DATA"",396.18,195,3,40,0)"
^XMB(3.9,23,2,1700,0)="MX#7G""R+-F4YWMS`KPCQ@`U&B+2*Y[]K4[!2#:[1C7`4.UTHH]\'@2A6[PG4("
^XMB(3.9,23,2,1701,0)="""DATA"",396.18,195,3,41,0)"
^XMB(3.9,23,2,1702,0)="M)P2#9""""#IV,8!R1IJ#)GU58MJ/8/4P#D,V__9XB$;0I""WG3F+AEZUKA$.*C-"
^XMB(3.9,23,2,1703,0)="""DATA"",396.18,195,3,42,0)"
^XMB(3.9,23,2,1704,0)="MV.,I18ZG%3F6D6-9.9:38WDY-BW'""G*L""'^9E!-/I))2QP:>U[Y4?[P2UA_%"
^XMB(3.9,23,2,1705,0)="""DATA"",396.18,195,3,43,0)"
^XMB(3.9,23,2,1706,0)="M;+$[_=%?UJM@IK&(>Z-H^Y?1MV6,4AY<TJOG#6C7(M1NO&-ME>-V00NU""]E6"
^XMB(3.9,23,2,1707,0)="""DATA"",396.18,195,3,44,0)"
^XMB(3.9,23,2,1708,0)="MZ(IMARNV!\/-.]H&PYWB2""<Y'.="".%C_KCL<)\):RD7([DA-C8A\J$R&=88?"
^XMB(3.9,23,2,1709,0)="""DATA"",396.18,195,3,45,0)"
^XMB(3.9,23,2,1710,0)="M)LYP8B:(Q#XG,:LQW0/.TR&DQO`"",6J,?LZS:+]`LVV/4[1Q-UB""@\07)4F8"
^XMB(3.9,23,2,1711,0)="""DATA"",396.18,195,3,46,0)"
^XMB(3.9,23,2,1712,0)="M!OV#$1$2R3`.8F$X2""A_10IG11XO@TU43,!AQ190;P$3`D4?:IZC>89J*V3E"
^XMB(3.9,23,2,1713,0)="""DATA"",396.18,195,3,47,0)"
^XMB(3.9,23,2,1714,0)="MT3-UM6K5D)NL;*F&T0C4V'2)>$(LUOA39$)_(LBS/XK==E<X@V!^W8Q,_*KO"
^XMB(3.9,23,2,1715,0)="""DATA"",396.18,195,3,48,0)"
^XMB(3.9,23,2,1716,0)="M21PO7A+PXN<B>;&F.IH.4>\**PK<A.;(A/Y`P(M'&KQHGH&`%5'C%?WQ?BW&"
^XMB(3.9,23,2,1717,0)="""DATA"",396.18,195,3,49,0)"
^XMB(3.9,23,2,1718,0)="M%F43O]N:]]!==%R5E)Q@1.?J>#D,X+`#1IMH-JR-/T;&_+8H*YW-!`0Y*\K$"
^XMB(3.9,23,2,1719,0)="""DATA"",396.18,195,3,50,0)"
^XMB(3.9,23,2,1720,0)="M6\U:I0_5UN6^)=VH0DM@59%'""&09+Q^06DTKQT[K1LMI)=M-*R:>%LZ.&/IS"
^XMB(3.9,23,2,1721,0)="""DATA"",396.18,195,3,51,0)"
^XMB(3.9,23,2,1722,0)="MH""H/0_K`J=LP>FDY*UY$SY)I?5TXK6R[:<5WCUMY;EXW6LXKW6Y>B5UC%]E`"
^XMB(3.9,23,2,1723,0)="""DATA"",396.18,195,3,52,0)"
^XMB(3.9,23,2,1724,0)="M+\8X=KTFG%:JW;3ZNF57A^X8L<>?\B=YF?BH'Z%S5!ASW)US?6+1878GC(;@"
^XMB(3.9,23,2,1725,0)="""DATA"",396.18,195,3,53,0)"
^XMB(3.9,23,2,1726,0)="M/^[M9UOZ.X:4R7,>YDJK0""C392`$725`$W1UVT+^!7S^9',I1>!Q[&W43_R:"
^XMB(3.9,23,2,1727,0)="""DATA"",396.18,195,3,54,0)"
^XMB(3.9,23,2,1728,0)="M$=\GP.,,1M1""._9(BUPB@'IRGQ#&F]UY<D=+-MC4+<_!J92ZJMO0*XWF<:3T"
^XMB(3.9,23,2,1729,0)="""DATA"",396.18,195,3,55,0)"
^XMB(3.9,23,2,1730,0)="M<'`;$`>D5N4V8A$\C&J*H(H%KMUWI4[+;?Y.BN__XEM<G!TGF=@_X@.USTOA"
^XMB(3.9,23,2,1731,0)="""DATA"",396.18,195,3,56,0)"
^XMB(3.9,23,2,1732,0)="M\MMQIORVB-J_/`T]=_9;$8Y8U7=B0(\20&\&5>-W!8!^[.=BE55<H%$F+GI0"
^XMB(3.9,23,2,1733,0)="""DATA"",396.18,195,3,57,0)"
^XMB(3.9,23,2,1734,0)="MRRHEVX);N3:!:G`:ZM@`BJH84*LAWZ/N_])1-$/5:S#\L&P%F@D3""KH./U4]"
^XMB(3.9,23,2,1735,0)="""DATA"",396.18,195,3,58,0)"
^XMB(3.9,23,2,1736,0)="M))RX=`>V5>20H8'..&>GE,H&TH_^UWUR6[IAH#\UE54XQ*:J&S@GIIOX^Q/S"
^XMB(3.9,23,2,1737,0)="""DATA"",396.18,195,3,59,0)"
^XMB(3.9,23,2,1738,0)="MEN:A9I'&A+9@\&9M32HJ)*3Z?A_^2_('D`P:O`I<2`I49R84!^.#,\`#3@F<"
^XMB(3.9,23,2,1739,0)="""DATA"",396.18,195,3,60,0)"
^XMB(3.9,23,2,1740,0)="M0;[++<-RCAK85V)AU^P&X9Q@DI!K\#.,7:JJJ\)]O:[:532M@',V_.JF:KJT"
^XMB(3.9,23,2,1741,0)="""DATA"",396.18,195,3,61,0)"
^XMB(3.9,23,2,1742,0)="MQHD8I;@[==!^?EEV?B:9WZ9@?E?I_):AA@%;""ITF7@X\1_P8=><@'WMM1U$U"
^XMB(3.9,23,2,1743,0)="""DATA"",396.18,195,3,62,0)"
^XMB(3.9,23,2,1744,0)="MS;-5#3O;#JY7HN`289B*F$R>+=,1,8L/A><23T51F&8IW&A!(1U%H<!2,%M0"
^XMB(3.9,23,2,1745,0)="""DATA"",396.18,195,3,63,0)"
^XMB(3.9,23,2,1746,0)="MR$Q%%G+]14_\@U]6_5RHA4=I*JLRGG"";(B>K?4=9[4MLRI=\G?-NLI""O!UUW"
^XMB(3.9,23,2,1747,0)="""DATA"",396.18,195,3,64,0)"
^XMB(3.9,23,2,1748,0)="MI^Z%9H>$<,ER1&R>P-`/$.A90=?=)*=NG_50K<U65BP/""NTR,%`.!PGROFR$"
^XMB(3.9,23,2,1749,0)="""DATA"",396.18,195,3,65,0)"
^XMB(3.9,23,2,1750,0)="MR!'1GL`H'R$B50\+Y@G:>*<'""+<0PHA:;J[`TBT1NA\4T,7==YW3+3)T83!*"
^XMB(3.9,23,2,1751,0)="""DATA"",396.18,195,3,66,0)"
^XMB(3.9,23,2,1752,0)="M""#\CJ'LN;->AZC>1&L/:Q-G0Z]']<20W_+J_N7X2VESOZ*&>!4&[5X9=C@P1"
^XMB(3.9,23,2,1753,0)="""DATA"",396.18,195,3,67,0)"
^XMB(3.9,23,2,1754,0)="MYENQ<.B3+F;WML5`5""--LK/_I=#L""\SL<[U1&A6`3+&2_0VI)<I\;_0P1MH5"
^XMB(3.9,23,2,1755,0)="""DATA"",396.18,195,3,68,0)"
^XMB(3.9,23,2,1756,0)="MDKEXT;<K<8)U*/#JOW(OV)4^H0:C=<%/29QA^6^!'W^:,2S4=2S7@09=6$VY"
^XMB(3.9,23,2,1757,0)="""DATA"",396.18,195,3,69,0)"
^XMB(3.9,23,2,1758,0)="M`AU%R][9>WO""M0@2-?J4WVSVH;O75Y<BV9U7?`7^43KRA3!;Y3G5U(""QI_V5"
^XMB(3.9,23,2,1759,0)="""DATA"",396.18,195,3,70,0)"
^XMB(3.9,23,2,1760,0)="MM]581T/\_Y!X[@9&ZF1S*]^>AK&WUSQ(PMS?:(^QMYL'TVQ*^131`O\3>-8W"
^XMB(3.9,23,2,1761,0)="""DATA"",396.18,195,3,71,0)"
^XMB(3.9,23,2,1762,0)="MNVL>?$^\D^;!=JU\&>(-'L&3>HY,ZANQ\.Y=K]""8$&?^ZY;CH/Z:21C4DM8\"
^XMB(3.9,23,2,1763,0)="""DATA"",396.18,195,3,72,0)"
^XMB(3.9,23,2,1764,0)="M]%M-MV$XY[AHOSDXB---W47UB)IJZFM0M_F>&0V0JU""QJP[N-O'=P9EVD2;M"
^XMB(3.9,23,2,1765,0)="""DATA"",396.18,195,3,73,0)"
^XMB(3.9,23,2,1766,0)="M1O@_+D*)SX7]P8/4@87C`7?_-/(E&98GAF+1#NTXLM.0.8X.N4E01-#,L#3_"
^XMB(3.9,23,2,1767,0)="""DATA"",396.18,195,3,74,0)"
^XMB(3.9,23,2,1768,0)="ME](LA6D>PCUJBF;54-`==98F0_3.%_P]^3/J'&^'Y>*=]$1*<(3&4=;@<KHH"
^XMB(3.9,23,2,1769,0)="""DATA"",396.18,195,3,75,0)"
^XMB(3.9,23,2,1770,0)="MJ:)9)O1%40-HNV7-YE@$5BS4=MB`\&#0#*J%AFY57>/C<X+P1[X8O;]E@+X7"
^XMB(3.9,23,2,1771,0)="""DATA"",396.18,195,3,76,0)"
^XMB(3.9,23,2,1772,0)="MY^V$AP>)Z,AMYYS>/W-.LQJ&;E<S/.?C$;FR?0,DRS+_D999I?TR9]+,2W;5"
^XMB(3.9,23,2,1773,0)="""DATA"",396.18,195,3,77,0)"
^XMB(3.9,23,2,1774,0)="M&W17O2JH:9\/=I6C5Z&:7UL#&MK*ME4+[[.94""V`[CL^X\]L0C]$/<""$J$5."
^XMB(3.9,23,2,1775,0)="""DATA"",396.18,195,3,78,0)"
^XMB(3.9,23,2,1776,0)="MD;^'S.V[X>I<,LV>;HK36.H`$TNQ9BSQ6S24^F9@QT""#5FJZ-\XC1;4VL_LI"
^XMB(3.9,23,2,1777,0)="""DATA"",396.18,195,3,79,0)"
^XMB(3.9,23,2,1778,0)="M<9(NZ4<#MEUBH';7VRR77;2(\CC<B>O(4X=QB+&C;%F03_+08JUN6YN@JL@/"
^XMB(3.9,23,2,1779,0)="""DATA"",396.18,195,3,80,0)"
^XMB(3.9,23,2,1780,0)="M+*(L,L[#0J'8NJ#8H*8[J`[GT![HD27/<'5_T""&NMA4%B^0Z/R]QN!K=H`L-"
^XMB(3.9,23,2,1781,0)="""DATA"",396.18,195,3,81,0)"
^XMB(3.9,23,2,1782,0)="M6.E""5[#\.NWP$L#M54C6!\N>O8X8#J=;N5""JR$?F40;:4-1ZW:!_-';=<^OP"
^XMB(3.9,23,2,1783,0)="""DATA"",396.18,195,3,82,0)"
^XMB(3.9,23,2,1784,0)="M1]SGL+VS#DRY;ZXT6Y(/($]K`Z`6T]I.&\`==_5F2!QUTH^CCM-U?4,*':E+"
^XMB(3.9,23,2,1785,0)="""DATA"",396.18,195,3,83,0)"
^XMB(3.9,23,2,1786,0)="MIKMLAWVDW'Y'WV916!8E-E*<UGF>0OE6L!O/!XF-5*K82RWN`R+=PZ']3BNT"
^XMB(3.9,23,2,1787,0)="""DATA"",396.18,195,3,84,0)"
^XMB(3.9,23,2,1788,0)="MR6)/H1V,+$R0C,;E&'<0JE%Y;A3R#K#E2*9=L4T<%=W3463=B19&(Y_-%?L#"
^XMB(3.9,23,2,1789,0)="""DATA"",396.18,195,3,85,0)"
^XMB(3.9,23,2,1790,0)="M!JYLZ""[HM#T'5:<C@+->:DO<8\C""!3D<I./V])J!CLY7LT)=8(6Z/QX2ZD7&"
^XMB(3.9,23,2,1791,0)="""DATA"",396.18,195,3,86,0)"
^XMB(3.9,23,2,1792,0)="MRO3""^>JAII:#<38YF4NB_\@^_C#73?&=(#[/W0L9RG[J)HYS-1:,GY2_7/94"
^XMB(3.9,23,2,1793,0)="""DATA"",396.18,195,3,87,0)"
^XMB(3.9,23,2,1794,0)="M7^+O!%G*DTR6DE1Q892]##2(_DY;#MZZ\_3DD69H*>(R'<+(UHAGH8<]]Z-S"
^XMB(3.9,23,2,1795,0)="""DATA"",396.18,195,3,88,0)"
^XMB(3.9,23,2,1796,0)="M)""R&P3;J941X]B1OX#O+8XRSC)>(X#B.-^4/I>;CV%3W00>IF.2<K@AZQ.>:"
^XMB(3.9,23,2,1797,0)="""DATA"",396.18,195,3,89,0)"
^XMB(3.9,23,2,1798,0)="M]'V.'[0DF.*<&JH>CW+JT9<C8AR^Z7MR!Z@G=SDJG]=YDK39E3HI=*7\6:39"
^XMB(3.9,23,2,1799,0)="""DATA"",396.18,195,3,90,0)"
^XMB(3.9,23,2,1800,0)="M:.U!(LU_'TCSY0!:/M>=-W5P3KD$`U,B^3.A`X+^<U""5[T,7^-C@@Q[<*WXW"
^XMB(3.9,23,2,1801,0)="""DATA"",396.18,195,3,91,0)"
^XMB(3.9,23,2,1802,0)="M_,W9Y>ORZ>7F1ZC+!=^*$W2:2""T/*+2""39;T7Z2VN`O3T]T=JO(=:(-L]+N%"
^XMB(3.9,23,2,1803,0)="""DATA"",396.18,195,3,92,0)"
^XMB(3.9,23,2,1804,0)="M/T&MTQ'&.G$*V]_6'H'ZI4!A?SHX`Y#*%U(]8*.D%O6S#-NG/T2P_G-0/GLE"
^XMB(3.9,23,2,1805,0)="""DATA"",396.18,195,3,93,0)"
^XMB(3.9,23,2,1806,0)="M=L\UQ<GB+G5:+CC)G\/YK,!.'67LU#R]/6CO[1-7/B-UT;_V5;!Y%\MGI$EW"
^XMB(3.9,23,2,1807,0)="""DATA"",396.18,195,3,94,0)"
^XMB(3.9,23,2,1808,0)="MRA_9IB.?HR,?;;J6H@>K9X2YM2;F]F;UK%5I*<4:NX?)EOB;0#O,Q80EI!_M"
^XMB(3.9,23,2,1809,0)="""DATA"",396.18,195,3,95,0)"
^XMB(3.9,23,2,1810,0)="M2@F)GF?OQTQ>(Z%""O""IPKV:K?C4`&I%V!0ABOD<PHO.$9DIPIU^PL?=-HIC<"
^XMB(3.9,23,2,1811,0)="""DATA"",396.18,195,3,96,0)"
^XMB(3.9,23,2,1812,0)="MO$7F3B[-2?R;H))Q@?1""HCJ9W]FHH'O""@EY4G*I!NYI8T;:UL1P[,KUZ\G<$"
^XMB(3.9,23,2,1813,0)="""DATA"",396.18,195,3,97,0)"
^XMB(3.9,23,2,1814,0)="M(T^<0=<P*NE<<OIL4Z,L-,JH[[-MRV>QR`R6>('F7,\(>CZ?(G'P&>=L""!,J"
^XMB(3.9,23,2,1815,0)="""DATA"",396.18,195,3,98,0)"
^XMB(3.9,23,2,1816,0)="M%M44U7$L3<>-<UNZN^%7CZK[86F;SDB1TQHOQ[@H:4C0POQER&$%G4!'';:>"
^XMB(3.9,23,2,1817,0)="""DATA"",396.18,195,3,99,0)"
^XMB(3.9,23,2,1818,0)="M78>>KH/NO$""GLM`SO-($(H0=E,K\JBF,06C""S@%U%1TM,784R!03:-`(H.L]"
^XMB(3.9,23,2,1819,0)="""DATA"",396.18,195,3,100,0)"
^XMB(3.9,23,2,1820,0)="MH,9'&5F4VU--E+JTK;J->(BJJNJJ;J`#:F!3-3R<T,15.3QH,-14^S-H&0YO"
^XMB(3.9,23,2,1821,0)="""DATA"",396.18,195,3,101,0)"
^XMB(3.9,23,2,1822,0)="M@6Q$55""L1'`79N>NB""[J:R)*(H3?]XE>(4S\L:`J\3[<+*B;2$:U#0MR""LN."
^XMB(3.9,23,2,1823,0)="""DATA"",396.18,195,3,102,0)"
^XMB(3.9,23,2,1824,0)="M[K*[8X)-LTS`1RK<4C9H(U3MP9,;*.D\;Y%Y_K9H/UVO^XIMDMIEQ&R4`J+-"
^XMB(3.9,23,2,1825,0)="""DATA"",396.18,195,3,103,0)"
^XMB(3.9,23,2,1826,0)="MU5',H)=AO,P-TJ[7N(E&CJ.QV%G'<Q.-/$LC\7&I3<NRF,@TR[&`2.(O!4M["
^XMB(3.9,23,2,1827,0)="""DATA"",396.18,195,3,104,0)"
^XMB(3.9,23,2,1828,0)="M=9&<=_;;""HBP6VO<QM!Q*&YIFE=7B>7P[VU$EWR0&Q:A]]/!6A8X>%]L!2\;"
^XMB(3.9,23,2,1829,0)="""DATA"",396.18,195,3,105,0)"
^XMB(3.9,23,2,1830,0)="M"":_(P0N(G`X3&?`=""DPI[,V3]?IEG\ZW*9MR0>SR4JS9%6_7O4RN&8N/8A$8"
^XMB(3.9,23,2,1831,0)="""DATA"",396.18,195,3,106,0)"
^XMB(3.9,23,2,1832,0)="M(!2/""[3Q$_-LQP;#>/21FA[(=<_Q(+N;6;U_S""Q)48YA'B[1O/L_""79G*D`\"
^XMB(3.9,23,2,1833,0)="""DATA"",396.18,195,3,107,0)"
^XMB(3.9,23,2,1834,0)="M@:LU$P1U-,IV9V7I]9,)S.UW$#GXA;`5F)RU,9]MAM-1@SZY!^XGLV\ZO#^`"
^XMB(3.9,23,2,1835,0)="""DATA"",396.18,195,3,108,0)"
^XMB(3.9,23,2,1836,0)="M^)HE#ODB1:XR1=OHNWL&!?F%@;D-RV9/#=\=;G1UJE,>1`?CD-\:>8UBIVQ,"
^XMB(3.9,23,2,1837,0)="""DATA"",396.18,195,3,109,0)"
^XMB(3.9,23,2,1838,0)="ML_7.UGPL=L7'(?C']3IWX/MV,=[&-1GD9M#$]]OC2B6[P[6P#6Q-=\!NXDIT"
^XMB(3.9,23,2,1839,0)="""DATA"",396.18,195,3,110,0)"
^XMB(3.9,23,2,1840,0)="MC""O+)&`2GY!:K5>N.[DO(X_0V4U4'1\AS>>9S=P*52K9(ELH0C6R#/`)/=3["
^XMB(3.9,23,2,1841,0)="""DATA"",396.18,195,3,111,0)"
^XMB(3.9,23,2,1842,0)="MU=,[NN,*?CK'=3""T%)%4NBMF#L/`?!,8W)[N15YV?#48O3/U^QWP,EGHBI>#"
^XMB(3.9,23,2,1843,0)="""DATA"",396.18,195,3,112,0)"
^XMB(3.9,23,2,1844,0)="MEP""H[K)V'.A81HJL%OGWEK#RW<&ZJ,+PIM<%I..[UJCS5^J`D=TIKJ%YW/G4"
^XMB(3.9,23,2,1845,0)="""DATA"",396.18,195,3,113,0)"
^XMB(3.9,23,2,1846,0)="MZYSLW)^;YM162U:F4EVJ+4LW@-OSO.S\;JT\I[9:BV6F.[&$`Z!KA'J<E2.B"
^XMB(3.9,23,2,1847,0)="""DATA"",396.18,195,3,114,0)"
^XMB(3.9,23,2,1848,0)="M7I,B&\B]GP9RHX++Y)/3^5YJH#H0%IQC8C^,K>Z1BY[B3X5NA)W.9CJ2F@X:"
^XMB(3.9,23,2,1849,0)="""DATA"",396.18,195,3,115,0)"
^XMB(3.9,23,2,1850,0)="M]U""M4929R#)Q;2,QL14D)EZ.\77$Z#2%^%(+:@&'N$+FN""!-,1,$[0M\BJ+4"
^XMB(3.9,23,2,1851,0)="""DATA"",396.18,195,3,116,0)"
^XMB(3.9,23,2,1852,0)="M2%%<9Q-#LT$@O5]2%!GNXK;7*3=/M$S*^#=<._JZB4[]H=L8F,0!GPEK)&7"""
^XMB(3.9,23,2,1853,0)="""DATA"",396.18,195,3,117,0)"
^XMB(3.9,23,2,1854,0)="M^0JNREA@F7Z:R->:Z`AUD!=IC#0CIDER85^46**);PDR?1=74$:62S3A1&R0"
^XMB(3.9,23,2,1855,0)="""DATA"",396.18,195,3,118,0)"
^XMB(3.9,23,2,1856,0)="MI-9K=;5YU`A\[:H2:>Z4U6KSC9_,,?1EX*""677,=-3C?:N1I&59&]2JGV#'2"
^XMB(3.9,23,2,1857,0)="""DATA"",396.18,195,3,119,0)"
^XMB(3.9,23,2,1858,0)="MH>N-SC$6,]2J?)=DLU5#]+%KEE)FY(OL+WE<]/``ZN)8J-4-:P=4H\]P1[&*"
^XMB(3.9,23,2,1859,0)="""DATA"",396.18,195,3,120,0)"
^XMB(3.9,23,2,1860,0)="MNT>M'F+5#-,;V[CL>A_R[/Y9!VU)=/&(#CF#FZ>K'I)->7S11*$N*N*X^$85"
^XMB(3.9,23,2,1861,0)="""DATA"",396.18,195,3,121,0)"
^XMB(3.9,23,2,1862,0)="MZ#_*]S4>JJL.NG8%Z$Y-V""T>F4F*XFF6VWE/$*;^;<!4@[&7A?W,U!%D_>T="
^XMB(3.9,23,2,1863,0)="""DATA"",396.18,195,3,122,0)"
^XMB(3.9,23,2,1864,0)="MQ;`@QX[/`\HQS3(U?(^EWWBT:++%K56PH6[JEBV?*%D65)06ONY01T<25+_-"
^XMB(3.9,23,2,1865,0)="""DATA"",396.18,195,3,123,0)"
^XMB(3.9,23,2,1866,0)="M6#XU#]=(UR""/=Y0U:*&M+;3-=:83&77\T]%JEJ^&Y`>89ZJ),[3HM"".ZZ%&F"
^XMB(3.9,23,2,1867,0)="""DATA"",396.18,195,3,124,0)"
^XMB(3.9,23,2,1868,0)="M-2;'+R49^AI6':@8H:FVO0,_R./,L/B%3^CA6+D.`""YHT-_)1ZX`%5]&Q#P;"
^XMB(3.9,23,2,1869,0)="""DATA"",396.18,195,3,125,0)"
^XMB(3.9,23,2,1870,0)="MNZFC`Q3LHT-7(<_QI3<NOJ]('E\!ZBTD7:BXM`:9L^X!^71CTA`>,-?=C1G%"
^XMB(3.9,23,2,1871,0)="""DATA"",396.18,195,3,126,0)"
^XMB(3.9,23,2,1872,0)="MJ]>A#8&31R<S(""GA'T&V<']T]`:<%""HLZB9<``@/P%60CUP""&N8O\ZROI.JF"
^XMB(3.9,23,2,1873,0)="""DATA"",396.18,195,3,127,0)"
^XMB(3.9,23,2,1874,0)="M/#JO.VMP#O#K`(E;QZ(=%QX:2+*V\L^IK:P&GL=?28Q8]U0??4(2>;U<E\#C"
^XMB(3.9,23,2,1875,0)="""DATA"",396.18,195,3,128,0)"
^XMB(3.9,23,2,1876,0)="M!.XS@6MP,3`BR?QT;S2O-9KVQYJ:]NGBCO#GLYX)7T=22!>*=]ZG3\[#)DIQ"
^XMB(3.9,23,2,1877,0)="""DATA"",396.18,195,3,129,0)"
^XMB(3.9,23,2,1878,0)="MS%U`W(#WT>'N;]&GSZ3^NNZ:)UUZ?1BF2[OFOQ9<U%L+8$[W1-=\'\/A@WRK"
^XMB(3.9,23,2,1879,0)="""DATA"",396.18,195,3,130,0)"
^XMB(3.9,23,2,1880,0)="MK\_@\?:M5?O_T'YDTR7Q)<]Q+_[ZO:""MZM5[X43`@-""-IH7\K_-W#UX17(9U"
^XMB(3.9,23,2,1881,0)="""DATA"",396.18,195,3,131,0)"
^XMB(3.9,23,2,1882,0)="M@;^S!/>C+)JHJZ?1=K*`2OKHT!W8#_>7\$A)8\!;,>Y<[]/AB.$PO4_`\8%$"
^XMB(3.9,23,2,1883,0)="""DATA"",396.18,195,3,132,0)"
^XMB(3.9,23,2,1884,0)="MM*Z1)@'R?I='FKO?F:/X]""(L\C:CMJ%-BB6\U.J5F326-.C[ESJ.G[(DK'LB"
^XMB(3.9,23,2,1885,0)="""DATA"",396.18,195,3,133,0)"
^XMB(3.9,23,2,1886,0)="MQHZ2^$/1)=!^!.4H9Z!S8'CX*D&MZ?649Z-N]4HR6!)?I0;A,X)A'F)>9Z0:"
^XMB(3.9,23,2,1887,0)="""DATA"",396.18,195,3,134,0)"
^XMB(3.9,23,2,1888,0)="M!KW\E2Y""6T#3'""""Z'O,MUL._\31JYO163E_S;=W%CEU2%+G9-'(@J@_MIW96"
^XMB(3.9,23,2,1889,0)="""DATA"",396.18,195,3,135,0)"
^XMB(3.9,23,2,1890,0)="M^?9:=E.<7?EPZ%*?(_NH*WFHHUO9V""/O64[7T%O97A2^@[.PE[>R]8F\FS2K"
^XMB(3.9,23,2,1891,0)="""DATA"",396.18,195,3,136,0)"
^XMB(3.9,23,2,1892,0)="M?\CM$XF)P""3,,:^!R?:2?QYO==Z44[J95F]-3>4ZO9:^@Y>(""4.D#*?*Z`K,"
^XMB(3.9,23,2,1893,0)="""DATA"",396.18,195,3,137,0)"
^XMB(3.9,23,2,1894,0)="MBU8@6>P!QO<+4;)O%TR\24W#AP*WZX\EAN?)WC@U'BU?_)I2`?MJ6,""*N5U]"
^XMB(3.9,23,2,1895,0)="""DATA"",396.18,195,3,138,0)"
^XMB(3.9,23,2,1896,0)="MD^XNOZ/H>,56@^;^ZW5@*LO8BLH/58""),AOGUVP`R$/E!BJP*DO`V9""/7%7K"
^XMB(3.9,23,2,1897,0)="""DATA"",396.18,195,3,139,0)"
^XMB(3.9,23,2,1898,0)="MMN5H5EW7R*^E3LLF.>Z>>6K:GZ6L>Y1A7>I.7F04?24""^ZXAB4O>1=@WTO;U"
^XMB(3.9,23,2,1899,0)="""DATA"",396.18,195,3,140,0)"
^XMB(3.9,23,2,1900,0)="M4ZFM#=_[N&FPB[B)O\*=+,Q+_L*,T=?*Q+H_KK:/(Z=!\<52Q+.=Q`O\EA2Z"
^XMB(3.9,23,2,1901,0)="""DATA"",396.18,195,3,141,0)"
^XMB(3.9,23,2,1902,0)="MM9UYC<S""-BI[5$E88:@..@J""DFQ6'7V`&R*XGT,Y4ZU.*K7:I+(#_SO;TJ'G"
^XMB(3.9,23,2,1903,0)="""DATA"",396.18,195,3,142,0)"
^XMB(3.9,23,2,1904,0)="MRC2D!%7`*S%*9E,4Q''GF#CNFC^#&BVY!;]2RCL.W`%[?XB.CXSR#,_C3X>N"
^XMB(3.9,23,2,1905,0)="""DATA"",396.18,195,3,143,0)"
^XMB(3.9,23,2,1906,0)="MQ!EECZX'?>5KBN)ZT/HJ9P!:AZA09;K`$G^>$/^DD#A9R4;S^IE:[8*_8!'$"
^XMB(3.9,23,2,1907,0)="""DATA"",396.18,195,3,144,0)"
^XMB(3.9,23,2,1908,0)="MBZRTO$:EY5]%3<PH/'%(^[L+_$):0SP:,1B)C**&+*;8(<]1#71>\/I>&D=&"
^XMB(3.9,23,2,1909,0)="""DATA"",396.18,195,3,145,0)"
^XMB(3.9,23,2,1910,0)="M42*VZX?2_[=WK;%Q'57X[JZ]=A+;29U'(7UMDB9**CO9O??N*Z&""-G%40T(B"
^XMB(3.9,23,2,1911,0)="""DATA"",396.18,195,3,146,0)"
^XMB(3.9,23,2,1912,0)="MVU%$Q:-K^\:^S7IWX[N+XZH@JM(?0`45$@@A52""!6GX@Z`\>X@\OE?X`J4*@"
^XMB(3.9,23,2,1913,0)="""DATA"",396.18,195,3,147,0)"
^XMB(3.9,23,2,1914,0)="M5`($X@\212`H$N(/`N[,G)E[9F?N[EXG[>X-6)%RUX\Y]\R<.7/F/+XCR7K0"
^XMB(3.9,23,2,1915,0)="""DATA"",396.18,195,3,148,0)"
^XMB(3.9,23,2,1916,0)="MP#<0]0-GL)""CUQ;SHQ7H$.\>7(1>8G2;`ZU$1R+6M(=TB0'/XB%\TJ6FQ38^"
^XMB(3.9,23,2,1917,0)="""DATA"",396.18,195,3,149,0)"
^XMB(3.9,23,2,1918,0)="MRH\ZJV#F(S9MJWATC[.]L%:INBNU""@8$""F]""-W*I=K56WZAU:WG+J_G8%GH4"
^XMB(3.9,23,2,1919,0)="""DATA"",396.18,195,3,150,0)"
^XMB(3.9,23,2,1920,0)="MWOY20FE4XK^]%1<XY_:[G;2M/FTH3.Y%3-IMP9#VL?!\I78EE#,$CQ5DQ&@@"
^XMB(3.9,23,2,1921,0)="""DATA"",396.18,195,3,151,0)"
^XMB(3.9,23,2,1922,0)="M'_""@\F[M,FI1,ZK>7)?>]61""X3N'1C5CL+AZ2""M)3W]775T[L#5CX=E/=3+?"
^XMB(3.9,23,2,1923,0)="""DATA"",396.18,195,3,152,0)"
^XMB(3.9,23,2,1924,0)="M8$DW)20<P6OJ-[=?!YYMV@.N`$?_<3H1.V`BWM!`#1R0('$\=[E5J3(3@YM2"
^XMB(3.9,23,2,1925,0)="""DATA"",396.18,195,3,153,0)"
^XMB(3.9,23,2,1926,0)="M`^;V+H!`[Z:L93@:L<;NR`MO\CIFC!P9-6XF\I+5`""`R%.T9K@;/,""WT]:X]"
^XMB(3.9,23,2,1927,0)="""DATA"",396.18,195,3,154,0)"
^XMB(3.9,23,2,1928,0)="M3089=D""#Z9_'TWI"".:<]U'&N$#]($EE-P(GW#BE$-+*%\%ALU,1V?<0'[-&G"
^XMB(3.9,23,2,1929,0)="""DATA"",396.18,195,3,155,0)"
^XMB(3.9,23,2,1930,0)="M#:GB_]\:/7$8Z8E'ZE[#;9*6ABQ0YEM?MR9$=JNO5WRA3U#V""N'I@_LX2U0A"
^XMB(3.9,23,2,1931,0)="""DATA"",396.18,195,3,156,0)"
^XMB(3.9,23,2,1932,0)="MB.!3R*@F'I7W^-BAR8TLDLO#2?_6L^G?@/W77*7#;SJ5]8Q[)4,M4#)Y-$GH"
^XMB(3.9,23,2,1933,0)="""DATA"",396.18,195,3,157,0)"
^XMB(3.9,23,2,1934,0)="MNKM&*^#)7X30M1#=U"">X`GI2I;M_SJEX;&&:$!KJ$OJS,4O[@*6O:-#4O;.\"
^XMB(3.9,23,2,1935,0)="""DATA"",396.18,195,3,158,0)"
^XMB(3.9,23,2,1936,0)="M&)^F2T]EKI"".8]!?C''D!C'4*>C;=1#L[8,TJ(I^@:(GL3\C4]-H>:MT)`""5"
^XMB(3.9,23,2,1937,0)="""DATA"",396.18,195,3,159,0)"
^XMB(3.9,23,2,1938,0)="M8%W4ND7*P&L#$R,\%RG-BI3:8W*R*'N`:$'FBD2Z1->ND%12""/J<9T&?GQEO"
^XMB(3.9,23,2,1939,0)="""DATA"",396.18,195,3,160,0)"
^XMB(3.9,23,2,1940,0)="M64@-X.]3OV.G44.Y21X)Q2I+1P[^X.E-GE4\,8'UG2T5NURH(&@-8ZUU&JML"
^XMB(3.9,23,2,1941,0)="""DATA"",396.18,195,3,161,0)"
^XMB(3.9,23,2,1942,0)="MQB,""H[DUXMWD7U.`RR\++@\$AVF^$(]LFA`QA*#[GYD8_IQO`(MS.M$6]>S="
^XMB(3.9,23,2,1943,0)="""DATA"",396.18,195,3,162,0)"
^XMB(3.9,23,2,1944,0)="M1QOB08$=]]&$5''P'C4_BE_Q;Q:+R38EBE>C4$Q%-L,L2949""45T5E%HP(I'"
^XMB(3.9,23,2,1945,0)="""DATA"",396.18,195,3,163,0)"
^XMB(3.9,23,2,1946,0)="M""""E$=$J2!GO9""-=@D!30>WY;:%X4V`,>74J;U^L(PZ]\^QE^._0G)OB=Y^E$"
^XMB(3.9,23,2,1947,0)="""DATA"",396.18,195,3,164,0)"
^XMB(3.9,23,2,1948,0)="M[&Y/645V7Q;9?>CL5'H\+3AK#=(_L)^=6_4)?W!2_I+)V9!R4AX<H'N;$5UA"
^XMB(3.9,23,2,1949,0)="""DATA"",396.18,195,3,165,0)"
^XMB(3.9,23,2,1950,0)="M@$AGI'O;JYKD8ZM@EN/AHL3;=U)*:\R:)@^9C$A7EAMB#[]P.T3HQK20P(1]"
^XMB(3.9,23,2,1951,0)="""DATA"",396.18,195,3,166,0)"
^XMB(3.9,23,2,1952,0)="M<'^D_BI?V6YHKFSWH*W+ZF!HY&)@NK$IO$'?:+:T@9]W2G,-66;=@*2JJU7&"
^XMB(3.9,23,2,1953,0)="""DATA"",396.18,195,3,167,0)"
^XMB(3.9,23,2,1954,0)="M&'0=6G:])9^Y%2=SE!8^T-`3A8QC/Z?Q'-HGV(6Z+O\?:2Y,8:$ID%RG4*7Z"
^XMB(3.9,23,2,1955,0)="""DATA"",396.18,195,3,168,0)"
^XMB(3.9,23,2,1956,0)="M\B9^^>]PH^\_&L=4Z72EY3D$4XZXH]PUDNY(\.0(+!@MZ?*O4_3U<N8TNS8V"
^XMB(3.9,23,2,1957,0)="""DATA"",396.18,195,3,169,0)"
^XMB(3.9,23,2,1958,0)="M_(FM+VN*Y937*.'MD7J.O\;O-:^17=""0AF[3.O(1YL,T<X!CG'J1"">KC\""*?"
^XMB(3.9,23,2,1959,0)="""DATA"",396.18,195,3,170,0)"
^XMB(3.9,23,2,1960,0)="MU[S(?6=:Z^!)N""(2,1TAL5W9]JG)6@&()3^D23'EN9+!^+T,7Y28F8'Q']6,"
^XMB(3.9,23,2,1961,0)="""DATA"",396.18,195,3,171,0)"
^XMB(3.9,23,2,1962,0)="MS[M*!:+9R_AE_/K[8?AY32KO)0K`%`P>G'J[97>E+PME<%G.L.OI4\K1MS_T"
^XMB(3.9,23,2,1963,0)="""DATA"",396.18,195,3,172,0)"
^XMB(3.9,23,2,1964,0)="MDKBM:YL#&MU[N'Y]+Y#EGPEAGH2]P&SF.V'M/7$J?2`15&[..4UWG74];]4<"
^XMB(3.9,23,2,1965,0)="""DATA"",396.18,195,3,173,0)"
^XMB(3.9,23,2,1966,0)="MJ-?3)""LHDU:`I,07#(P:F5S0Y15#$'>=TNIQT4NX""#:9:R_%P.W.R'Z./GX)"
^XMB(3.9,23,2,1967,0)="""DATA"",396.18,195,3,174,0)"
^XMB(3.9,23,2,1968,0)="MYXO]D!O`&RJ!MT/OLRV1@?9/J9\R`RC)U>J7-#LQH]N)?%5ZI8=K=E/W<W+/"
^XMB(3.9,23,2,1969,0)="""DATA"",396.18,195,3,175,0)"
^XMB(3.9,23,2,1970,0)="MZS*DF9_*RZSXAQ1+N(]&S`1$1EBC)WFE@X;6(6:J;F;6``W\:&-UTR-/QT0)"
^XMB(3.9,23,2,1971,0)="""DATA"",396.18,195,3,176,0)"
^XMB(3.9,23,2,1972,0)="M;2\$0;2_;T@4G]%E57""*#6]S:=6M^`;1DHY4>R#]+CU$`]G0./D\N;.]'\`A"
^XMB(3.9,23,2,1973,0)="""DATA"",396.18,195,3,177,0)"
^XMB(3.9,23,2,1974,0)="M#I&>+=N%2+'TW;->YL,.*42L@7`M;[&OCJ'#[#>SY(""4=BO'^OV)$L0E;Z\+"
^XMB(3.9,23,2,1975,0)="""DATA"",396.18,195,3,178,0)"
^XMB(3.9,23,2,1976,0)="MXB8(DO""%.2@EY7EUXAM4[T@UU.\""$HZP'\J(1'A]:<?*ST,S57>%](\D<+.5"
^XMB(3.9,23,2,1977,0)="""DATA"",396.18,195,3,179,0)"
^XMB(3.9,23,2,1978,0)="M%=H`<AEM&G*(IO>?;Y<QON['TO<$/U/%XIBV&'&""64]D0<G[CXX&3X$C:HR\"
^XMB(3.9,23,2,1979,0)="""DATA"",396.18,195,3,180,0)"
^XMB(3.9,23,2,1980,0)="MZ(+;$%;L9;>V7-\8/5>OK=#J,'Y[N$-J5^V+M(75T*N&,FLFFK58E2\.1]I;"
^XMB(3.9,23,2,1981,0)="""DATA"",396.18,195,3,181,0)"
^XMB(3.9,23,2,1982,0)="M%@:0$%KR9:,]U\.?AGRTW74$[:[@B!/-`VYNPZ5QCN[>MAQ=NO'*DOX79O57"
^XMB(3.9,23,2,1983,0)="""DATA"",396.18,195,3,182,0)"
^XMB(3.9,23,2,1984,0)="M=3LO;PG:(3GA(^WOM.L<<6LW5WWF<C2VD1[+$7^V23]XZ3&3?,K#I_$\^93+"
^XMB(3.9,23,2,1985,0)="""DATA"",396.18,195,3,183,0)"
^XMB(3.9,23,2,1986,0)="MPL<)_XG\+O\\>;Y.82?]P?CWC%#!Q;H_9244P3V,^,K'K']5"",L8E2#U+-^K"
^XMB(3.9,23,2,1987,0)="""DATA"",396.18,195,3,184,0)"
^XMB(3.9,23,2,1988,0)="M+XJEM`*6""\68E1J'L%S`!V[`\TM:GDMQXGDH7+2+^!9W(J$43)Q!.CD7RT9T"
^XMB(3.9,23,2,1989,0)="""DATA"",396.18,195,3,185,0)"
^XMB(3.9,23,2,1990,0)="M""LOX""I1ZQ>C$<C$;)Y:[:&AR5\:L/Z^RCA1TH=Q-00^W*^A$5M;1&XYS-9V&"
^XMB(3.9,23,2,1991,0)="""DATA"",396.18,195,3,186,0)"
^XMB(3.9,23,2,1992,0)="M_T=,^K^7'K'X@\T?\ORAP!^*_*'$'\KP,.HK<OZ4$T^F>++$DRV>\N*I()Z*"
^XMB(3.9,23,2,1993,0)="""DATA"",396.18,195,3,187,0)"
^XMB(3.9,23,2,1994,0)="MXJDDG@0-4]`P!0U3T#`%#5/0,`4-4]`P!0U3T#`%#4O0L`0-2]""P!`U+T+`$"
^XMB(3.9,23,2,1995,0)="""DATA"",396.18,195,3,188,0)"
^XMB(3.9,23,2,1996,0)="M#4O0L`0-2]""P!`U;T+`%#5O0L`4-6]""P!0U;T+`%#5O0L`6-O*""1%S3R0,/H"
^XMB(3.9,23,2,1997,0)="""DATA"",396.18,195,3,189,0)"
^XMB(3.9,23,2,1998,0)="M*I'8$Y?<!('\HLYB*.:Z"":22ACMZME6M$K]7>IN_CYK3]''<-W:O3'/C*#TZ"
^XMB(3.9,23,2,1999,0)="""DATA"",396.18,195,3,190,0)"
^XMB(3.9,23,2,2000,0)="M3Z^&N*ZLRRO+_J;-3E:.;79[YZ&!L7(XHBCP-:_PM0_Q9<6L>C&"">8[QW9)G"
^XMB(3.9,23,2,2001,0)="""DATA"",396.18,195,3,191,0)"
^XMB(3.9,23,2,2002,0)="M8!:^$#2P1+,0K2W:O<@Z!Y='=3/#!1%9Y3T8XXG0590VU%%%P^]'&\J.><<O"
^XMB(3.9,23,2,2003,0)="""DATA"",396.18,195,3,192,0)"
^XMB(3.9,23,2,2004,0)="M,-B>90([!;Q^6SC_?G3[9>&.:[.#X$:Y(:49OM*E+R6$9X@O86&]TEJK#%C?"
^XMB(3.9,23,2,2005,0)="""DATA"",396.18,195,3,193,0)"
^XMB(3.9,23,2,2006,0)="M+QNU<DS>RWO7Z3J+$$_[E$BF$_4_K/R'<-:7C@PAV;V@9;_);AF?X\[8LX-8"
^XMB(3.9,23,2,2007,0)="""DATA"",396.18,195,3,194,0)"
^XMB(3.9,23,2,2008,0)="MF1,]NY=GR-V)NU*E/B+4S_N#(+&5C7MV+S@:_V!(R>_'!+,N5C^@1=)+U7.^"
^XMB(3.9,23,2,2009,0)="""DATA"",396.18,195,3,195,0)"
^XMB(3.9,23,2,2010,0)="M%=+/59W05PB""$EFDS$R`6""ZJ.F3[Q;D+%V?F%F9GY@<L8]\""%NZF+#P`+)Q2"
^XMB(3.9,23,2,2011,0)="""DATA"",396.18,195,3,196,0)"
^XMB(3.9,23,2,2012,0)="M-<8.?Z%)Q?6#N9NN1+EE2*C%(GYY[E+^GD;?'6%;<<&YWGPP*#L]S5M6>5.9"
^XMB(3.9,23,2,2013,0)="""DATA"",396.18,195,3,197,0)"
^XMB(3.9,23,2,2014,0)="M\ZZW=!PD=^>""O_""+SO)[ZTUGL5Z_ROW9\G?!:F!@8!R5ZV\BU^$;B9W^[W><"
^XMB(3.9,23,2,2015,0)="""DATA"",396.18,195,3,198,0)"
^XMB(3.9,23,2,2016,0)="MJ7'Q""W2RMOF3U:3O.,%_P&=LC']#,VEB%)BW0&IW^L_^AXN5%<=`&&+)MP5I"
^XMB(3.9,23,2,2017,0)="""DATA"",396.18,195,3,199,0)"
^XMB(3.9,23,2,2018,0)="M<7""BX3Z`&3VWXN=P(68[F-^'_RCX_FQBWR/U]2<T_?_""^@(./T2J`T=&*U5?"
^XMB(3.9,23,2,2019,0)="""DATA"",396.18,195,3,200,0)"
^XMB(3.9,23,2,2020,0)="M1_HKCOL$2N9%>M$C.-']A##!T=5=;=%5"">7X!I^9OW!Q],^O?KYY,B0%""PKX"
^XMB(3.9,23,2,2021,0)="""DATA"",396.18,195,3,201,0)"
^XMB(3.9,23,2,2022,0)="M/B9=89*G-2F4<\YTO>%$2*'4$[0Q0='BKS>*PQ'K7O4(#Q""):NM)5E<*1W-F"
^XMB(3.9,23,2,2023,0)="""DATA"",396.18,195,3,202,0)"
^XMB(3.9,23,2,2024,0)="M.1K""PQYD(/(RIFB7E*%>>;`0#\ESP,)C.A;,2""Q,(A:8)1B-@62O#.0P`]P0"
^XMB(3.9,23,2,2025,0)="""DATA"",396.18,195,3,203,0)"
^XMB(3.9,23,2,2026,0)="M>%WH[FE^Z;),RX[$00YQL*I6P]3JM6D9[2L:@Z'@A::TD>[N+M;]U`;=S-0."
^XMB(3.9,23,2,2027,0)="""DATA"",396.18,195,3,204,0)"
^XMB(3.9,23,2,2028,0)="M:@X4QAOR`?!W<87\>**?C.G[V/&61""PXOP)KT]!4YUQ0@-(A=>UD'[CJT$=-"
^XMB(3.9,23,2,2029,0)="""DATA"",396.18,195,3,205,0)"
^XMB(3.9,23,2,2030,0)="MOZEL?,QS7(YO&:I:L++1-M5AM*G(MJ%1<@9I%X`-HHWTUDQ6Z'8-113O;1HA"
^XMB(3.9,23,2,2031,0)="""DATA"",396.18,195,3,206,0)"
^XMB(3.9,23,2,2032,0)="M*IM*2//X*T.G7JU(\SB-YM&M/=XB3^N9C7K+OX""O.U7:5K195^=S:YI7#_O`"
^XMB(3.9,23,2,2033,0)="""DATA"",396.18,195,3,207,0)"
^XMB(3.9,23,2,2034,0)="M0QI,2DX""=T9""QUTI$G?Y60_:$E9$QB<Y1UJ+SOI2J\H14FA+2(*`[1MSK:@'"
^XMB(3.9,23,2,2035,0)="""DATA"",396.18,195,3,208,0)"
^XMB(3.9,23,2,2036,0)="MY(C_.-^LDSVAJ93%,%_)%K#V6Z&;T@G$6S$>\2G]:0.)7-=NA\,F!-4*,B0;"
^XMB(3.9,23,2,2037,0)="""DATA"",396.18,195,3,209,0)"
^XMB(3.9,23,2,2038,0)="MB3CPF-H2C]R#<$UJL3N@+`YOW6;(X0""!<C-*'N]K78=8FSTR&'66?,$""34IF"
^XMB(3.9,23,2,2039,0)="""DATA"",396.18,195,3,210,0)"
^XMB(3.9,23,2,2040,0)="MZ@\,U?4X,><L^6K2R\S1+/6^7E*WOE`EO%`GE""OLUXS`(A""]""TY7*^X:2Q*>"
^XMB(3.9,23,2,2041,0)="""DATA"",396.18,195,3,211,0)"
^XMB(3.9,23,2,2042,0)="M91W?6</WF>N5-1Q^T;K0X""Q*4X*G>NLQ+4/Q%O`('^RMT[4\0@F-D'JJ6X_J"
^XMB(3.9,23,2,2043,0)="""DATA"",396.18,195,3,212,0)"
^XMB(3.9,23,2,2044,0)="MD)*Y`A:4RXJ@W!>`PY^I+[5HM0>?P;ZZ!;9TAR]C9I_HP.P^MAN""FC16IA9#"
^XMB(3.9,23,2,2045,0)="""DATA"",396.18,195,3,213,0)"
^XMB(3.9,23,2,2046,0)="M32VQ?$<'EL=F44N002Y8""Q%D$S-J=V!T\N&66UV6VAP,<N2%]A/J[`X=O\A3"
^XMB(3.9,23,2,2047,0)="""DATA"",396.18,195,3,214,0)"
^XMB(3.9,23,2,2048,0)="M@HGNBN(4S6F<HDDQ9\:`NT3_\6:Y1(NX!=TPR-)KPE?\R41_7US;A9WGU^R0"
^XMB(3.9,23,2,2049,0)="""DATA"",396.18,195,3,215,0)"
^XMB(3.9,23,2,2050,0)="MLAE.:0`K9@C>AKC<M#Q^J7&;KC>56>8(1Y7:9J:R6"".P&M6,2#J_XM8(L**N"
^XMB(3.9,23,2,2051,0)="""DATA"",396.18,195,3,216,0)"
^XMB(3.9,23,2,2052,0)="MRUK;^YBXS<F?C`XE(O>KW@N57G<`""UX.T$Q@'*?`++WK5INE;VHCCAXOQ3FL"
^XMB(3.9,23,2,2053,0)="""DATA"",396.18,195,3,217,0)"
^XMB(3.9,23,2,2054,0)="M$B:52S&""A;""C82'F'Z+Y1.16'(YU19!7,-25+N$\+CZ5D`D&_^AX0JH(<]H+"
^XMB(3.9,23,2,2055,0)="""DATA"",396.18,195,3,218,0)"
^XMB(3.9,23,2,2056,0)="M9`C^=K3FRWMF27$H^'0;_AS+\S>0TZ;%)N']AYGFN<3CF4)=?@9AE-O%F&53"
^XMB(3.9,23,2,2057,0)="""DATA"",396.18,195,3,219,0)"
^XMB(3.9,23,2,2058,0)="M:]@M8\7V+T/A]VG,;RD>12TA&A5N!X_1E3TXV`KU%AA2PPN.1]KU]FY`F?_+"
^XMB(3.9,23,2,2059,0)="""DATA"",396.18,195,3,220,0)"
^XMB(3.9,23,2,2060,0)="M!I3^W`?7PS""=DA3LCN<T=LC[9BE,,SU?:.\<`-`""Q&@""^4U;""E;=&C4%FF1Q"
^XMB(3.9,23,2,2061,0)="""DATA"",396.18,195,3,221,0)"
^XMB(3.9,23,2,2062,0)="M2#_$9?^6XM_5`2&,U-6[-18H6W<:]?5F7Y+`-#@:63P3_.[U:Z$G]B:0GBC'"
^XMB(3.9,23,2,2063,0)="""DATA"",396.18,195,3,222,0)"
^XMB(3.9,23,2,2064,0)="M(T6J1X1FV!9C5$6^,Z'D2SV`DL.B!7I/7G:87=(N-4PZ&/(W\>H$P@%2$3GM"
^XMB(3.9,23,2,2065,0)="""DATA"",396.18,195,3,223,0)"
^XMB(3.9,23,2,2066,0)="MMKN^V""80U*/H#.O_.J,MFPL0N/YI2.E<.55EC)ZNKQ$[LR]=K</OBY`*N9.*"
^XMB(3.9,23,2,2067,0)="""DATA"",396.18,195,3,224,0)"
^XMB(3.9,23,2,2068,0)="M^Z>X1?!CL=.'`FR""<AM:('>F365`E@#6_FRKM@0@)-!]N)_K-J3I@`2VP01="
^XMB(3.9,23,2,2069,0)="""DATA"",396.18,195,3,225,0)"
^XMB(3.9,23,2,2070,0)="MLSV\;%#P_#I&""<K%)`%4H\0+DFR6N!87JNS=`CW-+I?C4149+L@F$N3D@@+T"
^XMB(3.9,23,2,2071,0)="""DATA"",396.18,195,3,226,0)"
^XMB(3.9,23,2,2072,0)="MDNN>ER6YM;?#""+\P5$3C0'<.=,RAM\@[KJT4296O"":Z/\*R@G%DL1CKN,J0C"
^XMB(3.9,23,2,2073,0)="""DATA"",396.18,195,3,227,0)"
^XMB(3.9,23,2,2074,0)="M027#""_PO-'Q;J$[Z""5UK^>==U%H2HS/*BO^5PP)P5!6`OL9C0W%I@A=/2P$O"
^XMB(3.9,23,2,2075,0)="""DATA"",396.18,195,3,228,0)"
^XMB(3.9,23,2,2076,0)="MG=QM#W""K(H@!^?HO4$L#!!0``@`(`(U3'S7K/!EL8BL``*2-`0`E````1&EG"
^XMB(3.9,23,2,2077,0)="""DATA"",396.18,195,3,229,0)"
^XMB(3.9,23,2,2078,0)="M97-T:79E7T-O;F1I=&EO;G-?36ES8U\Q,3,N<&YL+F9R;>Q=6V_;2+)^'V#^"
^XMB(3.9,23,2,2079,0)="""DATA"",396.18,195,3,230,0)"
^XMB(3.9,23,2,2080,0)="M`Y$7)6=GLNP+;P'.622.,Y.#9&+8G@D.#A8+FFK;W*%(+4G9\?[Z[29%JJ]D"
^XMB(3.9,23,2,2081,0)="""DATA"",396.18,195,3,231,0)"
^XMB(3.9,23,2,2082,0)="M4[(<W^9ES)8B5E=55U=75WU5G/V3)+7S*3XCV>G-DGPY_U""4BS?.:3/RXP^."
^XMB(3.9,23,2,2083,0)="""DATA"",396.18,195,3,232,0)"
^XMB(3.9,23,2,2084,0)="M\XF<U\Y_.S]#UV6/I\62/H7LSZ_IO+ZD#RAB3[^2].*2?1,@]G@0+^NTR.GS"
^XMB(3.9,23,2,2085,0)="""DATA"",396.18,195,3,233,0)"
^XMB(3.9,23,2,2086,0)="M[//A\2^'LQ]_(/G\QQ\*[H7L51_?C[X,8OYMV!U^V_N/OQR>G$JO:P?_<13G"
^XMB(3.9,23,2,2087,0)="""DATA"",396.18,195,3,234,0)"
^XMB(3.9,23,2,2088,0)="M)`,N?6/S%_?&*-B\+XK$]WG""""Z'G-\]ISIYF1U^.?C^:L9%WY(ID'_.<E'3\"
^XMB(3.9,23,2,2089,0)="""DATA"",396.18,195,3,235,0)"
^XMB(3.9,23,2,2090,0)="M[.HX3BLR;SXHRCDI3^J;C+!/JI,TO\A(0W:1%>S;27:29E>D9&,?BKQ^?7`9"
^XMB(3.9,23,2,2091,0)="""DATA"",396.18,195,3,236,0)"
^XMB(3.9,23,2,2092,0)="MEQ5A+WA_^.'M[Y]._W'PZ]OCD\/3S3?Z?_HNBY,_^_&>SI\!Z`=_BQ>DD<2)"
^XMB(3.9,23,2,2093,0)="""DATA"",396.18,195,3,237,0)"
^XMB(3.9,23,2,2094,0)="M<Q+GE7-""RO1\UG_<D?;_?V=#1W%)\II]0(<^Q%G5D'H:GWUATZ!CC0!$QC8"""
^XMB(3.9,23,2,2095,0)="""DATA"",396.18,195,3,238,0)"
^XMB(3.9,23,2,2096,0)="M]`$ORIZU'FP?.<W9<!>&43NP$:C?#O`B32](5:=7A/[^ZHR4R2HKJK1RBG.G"
^XMB(3.9,23,2,2097,0)="""DATA"",396.18,195,3,239,0)"
^XMB(3.9,23,2,2098,0)="MOB3.$9U-7>1DM9BU_W2<A68FJFQ$W+""9D3(KSZMW13;_>_N1GJ6-@NHY"";6<"
^XMB(3.9,23,2,2099,0)="""DATA"",396.18,195,3,240,0)"
^XMB(3.9,23,2,2100,0)="MA`'/201%5H:>S$FD<C*N""6/;/(TO<L;#-[,12I`%)8$D5(#\<5*8M7'B?.[,"
^XMB(3.9,23,2,2101,0)="""DATA"",396.18,195,3,241,0)"
^XMB(3.9,23,2,2102,0)="M*4VM+$L2UPO*J%&BL)ZH8?X`A""T9E.9Q0M4MK6^<Z[AR*%G))9F/4N59L`I@"
^XMB(3.9,23,2,2103,0)="""DATA"",396.18,195,3,242,0)"
^XMB(3.9,23,2,2104,0)="M3Y*:!:L.5B73'Z>Z62SK8C$DM'>KFBX%R!C4_BG0`GS$$P.[=W7$!+(*(:`2"
^XMB(3.9,23,2,2105,0)="""DATA"",396.18,195,3,243,0)"
^XMB(3.9,23,2,2106,0)="M0]<>V<M""`ULMM,$E)MBMM?B_Y`=9FOQ)![ZU+/J%4)N=)LVHD;&?R:*`;%FR"
^XMB(3.9,23,2,2107,0)="""DATA"",396.18,195,3,244,0)"
^XMB(3.9,23,2,2108,0)="M/P8$'&&1I0C+/,5KO>QV$`""0B_;""4*AAZ$&Q*E/*CM_(]1`[/Z4YJ>AH2?>J"
^XMB(3.9,23,2,2109,0)="""DATA"",396.18,195,3,245,0)"
^XMB(3.9,23,2,2110,0)="MBHZ_;(<=9S9[-<SPDZ0LLNP=G0(=KZH_2%FG29PITH!&5A_.TQJPQ<3^&&`U"
^XMB(3.9,23,2,2111,0)="""DATA"",396.18,195,3,246,0)"
^XMB(3.9,23,2,2112,0)="MELU.S]E^KP8JJ]V90HH[3(JO)>4V:`$J+6!8`]&X!@(?;*.""\.FI(.IY;?05"
^XMB(3.9,23,2,2113,0)="""DATA"",396.18,195,3,247,0)"
^XMB(3.9,23,2,2114,0)="MD<971&CC*_J\J^A+GC""&Z(F[BL""P5QJV2HR%-24MJ7X%V;F*OY(R3^/'XA(&"
^XMB(3.9,23,2,2115,0)="""DATA"",396.18,195,3,248,0)"
^XMB(3.9,23,2,2116,0)="MKI9E*/(%GR>2UCYP`]D.J4S[+^>H)!4E?76V2&NG+IQX/J>TT*5'/3/ZR+SL"
^XMB(3.9,23,2,2117,0)="""DATA"",396.18,195,3,249,0)"
^XMB(3.9,23,2,2118,0)="MD]5B$9<WZYE]I8KZM8S9.T_+%1GQ1Y""K]T=@>YC;4""\Y1YXB<4_CCY""X--C1"
^XMB(3.9,23,2,2119,0)="""DATA"",396.18,195,3,250,0)"
^XMB(3.9,23,2,2120,0)="M;3?[-=5`3S5R0Y'J,2\*0H7JEM4S_:ZX&]DP-#`;[$[VPW7^T""Z,76\HQ3>V"
^XMB(3.9,23,2,2121,0)="""DATA"",396.18,195,3,251,0)"
^XMB(3.9,23,2,2122,0)="M'?0/HFLMF""XH*;+ORL=<Y'=[<%'^N]^P7I^6E$/4Z'/KRG'8!K;YRG&<7[#)"
^XMB(3.9,23,2,2123,0)="""DATA"",396.18,195,3,252,0)"
^XMB(3.9,23,2,2124,0)="MXV[QB!]K?^'MJB[:KX@,VO]F?YLR7,]79QVE$^%&+&XWT`K&ZQ[[\`[N1I03"
^XMB(3.9,23,2,2125,0)="""DATA"",396.18,195,3,253,0)"
^XMB(3.9,23,2,2126,0)="MF*#YGXHD9G^_6<]AK2=Z:I`E-2&2R0&N)3WO2964Z1D]S5/C7#J7S6;7$><X"
^XMB(3.9,23,2,2127,0)="""DATA"",396.18,195,3,254,0)"
^XMB(3.9,23,2,2128,0)="MAWE\EI&YR,HAFH$+340'4*0:JU2#P)+JE*I%3>FEQ_V69'K8=I+%AG`;C1S2"
^XMB(3.9,23,2,2129,0)="""DATA"",396.18,195,3,255,0)"
^XMB(3.9,23,2,2130,0)="M2:-66NBE03/-NCG$4&Q2R4CD)@PT2@#LV+G>DS?<?%F]&E'0@Z.OGX_C>5K\"
^XMB(3.9,23,2,2131,0)="""DATA"",396.18,195,3,256,0)"
^XMB(3.9,23,2,2132,0)="M4A:K)69;G#@D48M<7Z070%>A%[D*O6BCQYM#!@(]IT\NB^O6VQ59ZCC_NZ(."
^XMB(3.9,23,2,2133,0)="""DATA"",396.18,195,3,257,0)"
^XMB(3.9,23,2,2134,0)="MW/G-QYHL*L&(.0X;.XKGG.LGL..HJ.IB2<J8.8`_.25)VL#)W_JW4I59+?)J"
^XMB(3.9,23,2,2135,0)="""DATA"",396.18,195,3,258,0)"
^XMB(3.9,23,2,2136,0)="ML]$:5DK[*NWI@YX__H]4,^[QMZ([D`C6*AK6D;2JZ1[""SI;K/T=L!8@4MN-("
^XMB(3.9,23,2,2137,0)="""DATA"",396.18,195,3,259,0)"
^XMB(3.9,23,2,2138,0)="M8;L/-&R'WL8N?*LI061^0C)&C&;2&HT;XL7'_&*5YG'&,^0#/:""6XM`?S)L4"
^XMB(3.9,23,2,2139,0)="""DATA"",396.18,195,3,260,0)"
^XMB(3.9,23,2,2140,0)="MA[XPPZ7EG#O(N>8<'`CG8""/3HL""&:1[4,2V8C:C(79DJ];QL-%3&,S-W:C:;"
^XMB(3.9,23,2,2141,0)="""DATA"",396.18,195,3,261,0)"
^XMB(3.9,23,2,2142,0)="MLY&3L\Z_MK(R`(]9F3XP.61E@""HYA'16!N_5RAP3.HOLAIJ7^2I)J6)L8U[N"
^XMB(3.9,23,2,2143,0)="""DATA"",396.18,195,3,262,0)"
^XMB(3.9,23,2,2144,0)="MY3:WI<TSJQ.G+]X4?0E&=R4()$]*T1:HT19/IRW^GK5E0>8ITP&'2K'9G<94"
^XMB(3.9,23,2,2145,0)="""DATA"",396.18,195,3,263,0)"
^XMB(3.9,23,2,2146,0)="M9O>MQY_"";'^R""Q""J5A7ZEFO3O4L/X)+$=.U]G^T_G""`#-&H@,8XLW##?S@V#"
^XMB(3.9,23,2,2147,0)="""DATA"",396.18,195,3,264,0)"
^XMB(3.9,23,2,2148,0)="M<*]""^$JR[.=JM5P694TY>W;C4""=8ZX2A6Y4""__3Z[6NM5#JGQDXLX62Q:)8&"
^XMB(3.9,23,2,2149,0)="""DATA"",396.18,195,3,265,0)"
^XMB(3.9,23,2,2150,0)="MPG92`=%>I?*.RH`>MN9T/Z_U:P+MD>UPF.W%XJR@+C`[@G9_CYU""/=7D@U#A"
^XMB(3.9,23,2,2151,0)="""DATA"",396.18,195,3,266,0)"
^XMB(3.9,23,2,2152,0)="M--3ZPVAV[_=AC1MNM<]:""1$XO-2@\(3X!\P_>/R#SS\$_$/(/T3\`W#YI_^A"
^XMB(3.9,23,2,2153,0)="""DATA"",396.18,195,3,267,0)"
^XMB(3.9,23,2,2154,0)="MCZ^FG%6G>Y&JBGB!C5<0X6B_7L%).B=OAI;@@_,/C]F+>/$RF?#/G]/YSQD]"
^XMB(3.9,23,2,2155,0)="""DATA"",396.18,195,3,268,0)"
^XMB(3.9,23,2,2156,0)="MGDST&^$45\:;;J^W]!NIAH1[U1#ZU:KZ?O;:G<!VZ$YFNR:$J..[-H84WK'S"
^XMB(3.9,23,2,2157,0)="""DATA"",396.18,195,3,269,0)"
^XMB(3.9,23,2,2158,0)="M4C-)W!/O!8Q&1A#21T;DJ*/JJ'B!&L4#.-""I?C![CH%PMY$&<30K81WCZ_X>"
^XMB(3.9,23,2,2159,0)="""DATA"",396.18,195,3,270,0)"
^XMB(3.9,23,2,2160,0)="ME@KPL""H5J$I%J[GK$)MX[RW2V_^Z]@+`DP/6/9GA9J1+8]N,]""O8]S:#RG6S"
^XMB(3.9,23,2,2161,0)="""DATA"",396.18,195,3,271,0)"
^XMB(3.9,23,2,2162,0)="MO`&2*Y:UV82NKTG\)\G9E15]6*RJ9)7%I;->@VPL/IL7""Q9D=*[C+'O#+17#"
^XMB(3.9,23,2,2163,0)="""DATA"",396.18,195,3,272,0)"
^XMB(3.9,23,2,2164,0)="MRM/>3PN2,K#`-[(@DEG@ZUBPN=#1ANX%%C2AV%H[YYXC^YQK8)PKY""D>$+CG"
^XMB(3.9,23,2,2165,0)="""DATA"",396.18,195,3,273,0)"
^XMB(3.9,23,2,2166,0)="MWH+`S^,J2:EHOXN\PRD\\`,-#P*PC<3E24\1^-B<(N.<4!3(<X+:A8RWF=,\"
^XMB(3.9,23,2,2167,0)="""DATA"",396.18,195,3,274,0)"
^XMB(3.9,23,2,2168,0)="MC:LZ7N=EEY2NM%'LC%2[3*H[#F+-T=""\.#'4+<Y(IZZ\_#9>!D8V6F<XJ.DN"
^XMB(3.9,23,2,2169,0)="""DATA"",396.18,195,3,275,0)"
^XMB(3.9,23,2,2170,0)="M,T8<@L8'R,E,&/F<9G-II)BSX);TO69M<8[U*#.]2<P,O5V9Z=X6,\'VS&07"
^XMB(3.9,23,2,2171,0)="""DATA"",396.18,195,3,276,0)"
^XMB(3.9,23,2,2172,0)="M^%GZ;R)QE$Z(5,N2Q/,)_`N&^*>Q'!CH+`>:P$%\6QR$]U`=_8GLU""KD)';"""
^XMB(3.9,23,2,2173,0)="""DATA"",396.18,195,3,277,0)"
^XMB(3.9,23,2,2174,0)="MVV(GNA\*&0YQ$$61E4+R^]LH!\%M<1#?)X44`T[F<RW'6RSS-M#Q%NIXBZ""6"
^XMB(3.9,23,2,2175,0)="""DATA"",396.18,195,3,278,0)"
^XMB(3.9,23,2,2176,0)="MMX@/FIG/N(.G7/TY5]BY/U;<EKTD)?U?+21+:.]+1J1M%I]XXI7N3717A9R<"
^XMB(3.9,23,2,2177,0)="""DATA"",396.18,195,3,279,0)"
^XMB(3.9,23,2,2178,0)="M[*+U_O3X8+#U'0J""^P[_D""Y#:ED6+`9!/Q&B$$HZ^+3HQ"".X@3:&3-K#?4>V"
^XMB(3.9,23,2,2179,0)="""DATA"",396.18,195,3,280,0)"
^XMB(3.9,23,2,2180,0)="M,&VKH"".>$G2,)E]6:Z)?""%A>W>TW^G54DJNT6%5->L,R3DLI\FBK<SME$FCE"
^XMB(3.9,23,2,2181,0)="""DATA"",396.18,195,3,281,0)"
^XMB(3.9,23,2,2182,0)="MQDDG$*0S7+^!-?4;ZVS%M2R$""@ZOW:0VNU^;MSNY@J,O;WV,11W05**@K_\%"
^XMB(3.9,23,2,2183,0)="""DATA"",396.18,195,3,282,0)"
^XMB(3.9,23,2,2184,0)="MH3M0``P\-*FJXV->46.8L$^J1U/;H2^'06*^?B`RKD__WAB,2&9<7S&U3O<["
^XMB(3.9,23,2,2185,0)="""DATA"",396.18,195,3,283,0)"
^XMB(3.9,23,2,2186,0)="M:U+>G1?O5M1S<H[*@FX,BQ>LPB-AM;?$B9V,>@'L`+]L/ZPHL^)T,7/^TO\6"
^XMB(3.9,23,2,2187,0)="""DATA"",396.18,195,3,284,0)"
^XMB(3.9,23,2,2188,0)="MW4HH%ZF7FE,CD]*G^8HM\Z9(A'R+6>""&O?YE]>JU<WK)?(OVI]J?OD[YW\HR"
^XMB(3.9,23,2,2189,0)="""DATA"",396.18,195,3,285,0)"
^XMB(3.9,23,2,2190,0)="M]L]RYXR^^BI.LR9/)LV;WWKQODA6K!QX0^AUFL^+ZY^<F/YHS&)%_&^UQ>`O"
^XMB(3.9,23,2,2191,0)="""DATA"",396.18,195,3,286,0)"
^XMB(3.9,23,2,2192,0)="MUE^F/\F(FI.:_BR9OWGA5`T/&&,8(:\G%K(TX@F1A:!""*?<?`S1:XBL+2C-W"
^XMB(3.9,23,2,2193,0)="""DATA"",396.18,195,3,287,0)"
^XMB(3.9,23,2,2194,0)="M*B3Z3!?@/*YC:ITOXG+.9M@+JJ3_](IG2)S77?$.DXM3WRS)=M/&%M,&W9U1"
^XMB(3.9,23,2,2195,0)="""DATA"",396.18,195,3,288,0)"
^XMB(3.9,23,2,2196,0)="M7W88X.GS/J;[#[EVNNDWFM3,O1EFY>(LC'A^X\1)LBKCI(DG5JLS?MZ+M&97"
^XMB(3.9,23,2,2197,0)="""DATA"",396.18,195,3,289,0)"
^XMB(3.9,23,2,2198,0)="M-XQ/KT=JMD-?;[+PT,J+QBNVP>B+`XL7RYID\6(X^N+0XL6*+""W>C%Z/5:4W"
^XMB(3.9,23,2,2199,0)="""DATA"",396.18,195,3,290,0)"
^XMB(3.9,23,2,2200,0)="M5U/:PB3QY3@8JTH?+DQ2@V]V53\F)R+2^1!M^<[ZQ""<""E+2^W,:'""*,G7@6*"
^XMB(3.9,23,2,2201,0)="""DATA"",396.18,195,3,291,0)"
^XMB(3.9,23,2,2202,0)="M3%6@^M7G""X`A0()QZ*OOK!V&?ZY8B41);=Z*VH]CDK$+=693'E>%J*<W*4BT"
^XMB(3.9,23,2,2203,0)="""DATA"",396.18,195,3,292,0)"
^XMB(3.9,23,2,2204,0)="M9;[D?@%HCQJ2]JR\9JP<`\3P0@N""0E<F""%EBAVQ!4&1!4'_[T=L^""X(.ORVI"
^XMB(3.9,23,2,2205,0)="""DATA"",396.18,195,3,293,0)"
^XMB(3.9,23,2,2206,0)="MFY2S/;C9LJK+=#F.T@$-*!V=P>NN:+RQ0LWHN5""3PVM`.KP&4<B>#)'@HU&X"
^XMB(3.9,23,2,2207,0)="""DATA"",396.18,195,3,294,0)"
^XMB(3.9,23,2,2208,0)="M!ACAV8.MFC0C2K@Z1`F16Y$_QBW/5[GE/3U`B1'P#C#.:A"""";7CM/V7\&)/?"
^XMB(3.9,23,2,2209,0)="""DATA"",396.18,195,3,295,0)"
^XMB(3.9,23,2,2210,0)="M%NC\-LR!=T`A]`.!!-X!GKC;A@W;*-(?!X%T'I3\-HC]27Y;=XX_69(D/4\3"
^XMB(3.9,23,2,2211,0)="""DATA"",396.18,195,3,296,0)"
^XMB(3.9,23,2,2212,0)="M*HFJ+GH`B@?OKNDAWA`4$3&""Z#[B>0`#Q$2?7KVF/I1<*1R,J\!!G""<D>Y""N"
^XMB(3.9,23,2,2213,0)="""DATA"",396.18,195,3,297,0)"
^XMB(3.9,23,2,2214,0)="MRRU@CC2W"";HS,@H&]4+U""<-AS)&'Q=G;@$4QH+D`C'?F[%.'18%&6)1(X*V$"
^XMB(3.9,23,2,2215,0)="""DATA"",396.18,195,3,298,0)"
^XMB(3.9,23,2,2216,0)="M...Y<H00X5U147QW=U04*\@1%)CP,D*Y4@\JH""-(+4.!FOLX[IKLM`OD-NEV"
^XMB(3.9,23,2,2217,0)="""DATA"",396.18,195,3,299,0)"
^XMB(3.9,23,2,2218,0)="MRZ*J6.GQ3\Z\PP%AGR9IF:P65<U,:-5$2],\K5FB(1_!;T+#Z3G=:-NS:H>C"
^XMB(3.9,23,2,2219,0)="""DATA"",396.18,195,3,300,0)"
^XMB(3.9,23,2,2220,0)="M.J>.3%PU=:KMP7J3MZ=-KQQ""OT""A@3O0DTKT`R7EV;<%$UF')>@42/T8$41<"
^XMB(3.9,23,2,2221,0)="""DATA"",396.18,195,3,301,0)"
^XMB(3.9,23,2,2222,0)="M2PV#O@)K$R$['C)WGHJ\2JG&B(P<I`Q94N:Y""F6A:T=9`P_A),6""W0-4-E2A"
^XMB(3.9,23,2,2223,0)="""DATA"",396.18,195,3,302,0)"
^XMB(3.9,23,2,2224,0)="MR$35)JV^@V?RU/H3UVI)]F""L/5IMY9Q3):K935=2Y/.41PG:8N5@SY*WR`]L"
^XMB(3.9,23,2,2225,0)="""DATA"",396.18,195,3,303,0)"
^XMB(3.9,23,2,2226,0)="M@%B&T8,2939CJ!>3)Q2:Q`*1-*-(,921W730ZSVN?O!]5G]D6OW^+3$-/D:F"
^XMB(3.9,23,2,2227,0)="""DATA"",396.18,195,3,304,0)"
^XMB(3.9,23,2,2228,0)="M0<O%H^XZ`%BN'<,%\R-D)K;3P$W*W$0-!(]0`S&PU$"",5!7T@=T>U)OO*IU3"
^XMB(3.9,23,2,2229,0)="""DATA"",396.18,195,3,305,0)"
^XMB(3.9,23,2,2230,0)="MG_#\G%)!MZ&R6*@&_<UH_I;!T`\D8TW9`U@D/A(B\F9?,%3*<:$;V=3TN]!U"
^XMB(3.9,23,2,2231,0)="""DATA"",396.18,195,3,306,0)"
^XMB(3.9,23,2,2232,0)="M9Y.KAUDLU@0D)3OQ'E""1`S4H;:Z.-O!<+\D?-H<1T:`9$4UV>T-U!4$5`H(K"
^XMB(3.9,23,2,2233,0)="""DATA"",396.18,195,3,307,0)"
^XMB(3.9,23,2,2234,0)="M:^5$LD=(M).:K2<^QY%N&1<L(I=>D>S&N2[*2OCXXV)9%E=T!0J#+-FG266A"
^XMB(3.9,23,2,2235,0)="""DATA"",396.18,195,3,308,0)"
^XMB(3.9,23,2,2236,0)="M1%__U2G)(JTJ+NU-!Z+V>975:3\1/O'3.KMUS7MD%H.'+.2@IE'[D48.7#[K"
^XMB(3.9,23,2,2237,0)="""DATA"",396.18,195,3,309,0)"
^XMB(3.9,23,2,2238,0)="MK<M!*AB8?29-,3UE(3]ZLBHOF+X*7#W]Z]$I/_"">Y2)E3KQ<9IJ?^+*JEW2P"
^XMB(3.9,23,2,2239,0)="""DATA"",396.18,195,3,310,0)"
^XMB(3.9,23,2,2240,0)="MJ8/[=G-!A`\/CMX>\<\L$G%)&$[1XF9724X!U4)P+$^9DV,'3:EB#@;J`L-0"
^XMB(3.9,23,2,2241,0)="""DATA"",396.18,195,3,311,0)"
^XMB(3.9,23,2,2242,0)="M(]@]`SV=C&]\WP?VR1_=<0""PVW)0J,:-L%H,CC6@9H##$GH&+QS+(-<*R4Y&"
^XMB(3.9,23,2,2243,0)="""DATA"",396.18,195,3,312,0)"
^XMB(3.9,23,2,2244,0)="MV'.WE9$;/<MH2$;#^&GKC$*YSPUWCQ;((1^KFHM(8VLT*>=:L!2+,/HH`E8T"
^XMB(3.9,23,2,2245,0)="""DATA"",396.18,195,3,313,0)"
^XMB(3.9,23,2,2246,0)="M@(`5WI*S[&,OTAP*OEZF]=AVJRO%';*9(P!/:REZ)BDJ'M_V0F3'C_Y.F3DV"
^XMB(3.9,23,2,2247,0)="""DATA"",396.18,195,3,314,0)"
^XMB(3.9,23,2,2248,0)="M#_/HJ2\MWU[OF(T+[6R=!P(;6Q<@G;N-GD]`*B;T8/:*Y[+_@""Z'I05MX&O)"
^XMB(3.9,23,2,2249,0)="""DATA"",396.18,195,3,315,0)"
^XMB(3.9,23,2,2250,0)="M>H%X8G=$Y#[UW&//E`O:L->0_@^$IBI2^B5TIR6RK$L:BG/Z5T*YNY^R)>\["
^XMB(3.9,23,2,2251,0)="""DATA"",396.18,195,3,316,0)"
^XMB(3.9,23,2,2252,0)="M)!PS_=2GL0`A@Y4:`#F+Q:)7X<'ZZL<I6%YMP[DW#R4!TYB<VJ@=U#84$UOS"
^XMB(3.9,23,2,2253,0)="""DATA"",396.18,195,3,317,0)"
^XMB(3.9,23,2,2254,0)="M*=T+E>Y'<H8J/4M'FN9F>)P>?<*L*V0B]?W.IA&DZ7#FC21JM""O3U,$P%'.C"
^XMB(3.9,23,2,2255,0)="""DATA"",396.18,195,3,318,0)"
^XMB(3.9,23,2,2256,0)="M?:F<,`#3LC5N*WM'/%BW4S`=N,4H>G?4EHR,DI<?*-SUO4[<IA.V\7RMGJYY"
^XMB(3.9,23,2,2257,0)="""DATA"",396.18,195,3,319,0)"
^XMB(3.9,23,2,2258,0)="M_C@?4JKCK=WJEIS1RYNUW^-@+.C1N*8K]E\K:@%;""+T_WAY_F7'_0/J(U24Z"
^XMB(3.9,23,2,2259,0)="""DATA"",396.18,195,3,320,0)"
^XMB(3.9,23,2,2260,0)="M.?U'?0U@M^M:]0O4\1X-\Q[""G;D?!L%>N-]&J;+U9G'?I(`&,YPW/HN2YBSM"
^XMB(3.9,23,2,2261,0)="""DATA"",396.18,195,3,321,0)"
^XMB(3.9,23,2,2262,0)="M""$""N9@5*54_GQF^.S'X(GEZ>LSOJ*>IZ%(9<.VO>00S:S*--9`*@YP)WV6?T"
^XMB(3.9,23,2,2263,0)="""DATA"",396.18,195,3,322,0)"
^XMB(3.9,23,2,2264,0)="M#0X/@/H*]SYPJJ]P5]IO#ON+[[O>S(_%3]37I6$I5]CW[V6FLV_J`0C%K%&I"
^XMB(3.9,23,2,2265,0)="""DATA"",396.18,195,3,323,0)"
^XMB(3.9,23,2,2266,0)="MC`TK]43N8.?""IY?H'!@8ZWN#:O&<Z&R1CPN,^;ABMU`@.\^^4FF-AI)M`^^."
^XMB(3.9,23,2,2267,0)="""DATA"",396.18,195,3,324,0)"
^XMB(3.9,23,2,2268,0)="MDFVA*=G6$V-4/E""O(EW+O)ZW\S9WC_I>D[(.C2E',NJ/VGO0,D^FWQ$>89(1"
^XMB(3.9,23,2,2269,0)="""DATA"",396.18,195,3,325,0)"
^XMB(3.9,23,2,2270,0)="MQ+;L4Z+=MLF.ZUM4E@Y=M?L$B9/+'I:DN3UD^\3:6=XAZ=FSG`OPU<8$H=UD"
^XMB(3.9,23,2,2271,0)="""DATA"",396.18,195,3,326,0)"
^XMB(3.9,23,2,2272,0)="M7GXHR@7+G`E>23`LU(UG,!^OMZ<_BFSI5U.^8.1/2I][6;U2.,\2:1=.7%5%"
^XMB(3.9,23,2,2273,0)="""DATA"",396.18,195,3,327,0)"
^XMB(3.9,23,2,2274,0)="MDC8U^M<I_>TFLW;^B)<`M5`&OF,W'&E?RJ5^#]Y_\-WY*""M8@R2&';,JET5%"
^XMB(3.9,23,2,2275,0)="""DATA"",396.18,195,3,328,0)"
^XMB(3.9,23,2,2276,0)="M*M8KD>$0L[%F;:S93470IS2WY01UY8B5!-T=?$66,4->S&X<*JZ<)-0M8ZTI"
^XMB(3.9,23,2,2277,0)="""DATA"",396.18,195,3,329,0)"
^XMB(3.9,23,2,2278,0)="MJ0_&DEO8=7V<LP2*LEB63+JLW""`^2\5?RQA""-+F*LU639-%D5C<$]63LH-[`"
^XMB(3.9,23,2,2279,0)="""DATA"",396.18,195,3,330,0)"
^XMB(3.9,23,2,2280,0)="M1=9\5E,:+8L2&'</WQ[\JFKL,&DF,XBAE&T90-401I.K21B`0IHS""Y)<%E30"
^XMB(3.9,23,2,2281,0)="""DATA"",396.18,195,3,331,0)"
^XMB(3.9,23,2,2282,0)="MS3),:]X<ON!ORU[0H9C:T)(TZU.4FGFU[B(MX-JRI#\J\/;4LRPS6+9[_D_="
^XMB(3.9,23,2,2283,0)="""DATA"",396.18,195,3,332,0)"
^XMB(3.9,23,2,2284,0)="MX8%I'+LK['""5K,0'L*UF:6B=FJ\]3(EG2XG:=W9JVNXP(;XU2Y""[:][_,""6!"
^XMB(3.9,23,2,2285,0)="""DATA"",396.18,195,3,333,0)"
^XMB(3.9,23,2,2286,0)="MM2*IE(#(F[JX/JZ;MK0%6VO[6)P+EC5MKC6*)%DMX[73R>SK/$ZS&W%Q.7%2"
^XMB(3.9,23,2,2287,0)="""DATA"",396.18,195,3,334,0)"
^XMB(3.9,23,2,2288,0)="MIU?4]I'=5E-H+0XOVE(<V$X<D;4X5$J0Y;)NCX`C]+3WK'ST3$`WDYV>4*5&"
^XMB(3.9,23,2,2289,0)="""DATA"",396.18,195,3,335,0)"
^XMB(3.9,23,2,2290,0)="MDW""!-]T230G7.OQHG3OI&I'\54QL36\""+GUO',?_/5]'R""DM>^P\9?K-5;6B"
^XMB(3.9,23,2,2291,0)="""DATA"",396.18,195,3,336,0)"
^XMB(3.9,23,2,2292,0)="MJMJH*:>8/,""_G5LV[)@-N&96SIG1/1NZQ1_NJP#-K2*`TE4!(:01!X1;B.-%"
^XMB(3.9,23,2,2293,0)="""DATA"",396.18,195,3,337,0)"
^XMB(3.9,23,2,2294,0)="MDQ?Z8BT2LPAV[AL!H;EOA-(U(E*G%^H:8:!(.[NW9:-G):=IIGG][3&HUO3^"
^XMB(3.9,23,2,2295,0)="""DATA"",396.18,195,3,338,0)"
^XMB(3.9,23,2,2296,0)="M)%*'+3"".1!ZZ-E+2HN3S;4'XD@J\'0ZY!A9\$(C\X+(HK9J$W'L-V#.`O3#&"
^XMB(3.9,23,2,2297,0)="""DATA"",396.18,195,3,339,0)"
^XMB(3.9,23,2,2298,0)="MH)J;>LU7=AJH2]VS53\XKGY<5<""MZ5]T-_I'?WJYM&VV]+U%K&OE82M&-""Y&"
^XMB(3.9,23,2,2299,0)="""DATA"",396.18,195,3,340,0)"
^XMB(3.9,23,2,2300,0)="M""/%MBU'H^KE',1Y^(V625N2AB1%-%2.VV`R4_ET([+@8O3M:C""P.53TT&>*)"
^XMB(3.9,23,2,2301,0)="""DATA"",396.18,195,3,341,0)"
^XMB(3.9,23,2,2302,0)="M,O3];3;T'84(W""""X&R$>DP9/7`!"">-[5][RK>U/MB+?5KKZS)0'P;I3PM(RO"
^XMB(3.9,23,2,2303,0)="""DATA"",396.18,195,3,342,0)"
^XMB(3.9,23,2,2304,0)="M2&:[KS_KX&WHH#]1!Y&[E4NR^VX6WHT.?B!D_@`]RV""J*8FV<$F@+D@R28C^"
^XMB(3.9,23,2,2305,0)="""DATA"",396.18,195,3,343,0)"
^XMB(3.9,23,2,2306,0)="MW0CQ75Q?/IN1NS0CX53]""[>*C^RL@'?D3KUOL`.>-?`.-3"":JH'!=B&27540"
^XMB(3.9,23,2,2307,0)="""DATA"",396.18,195,3,344,0)"
^XMB(3.9,23,2,2308,0)="M@#MRIHHT(_6S#MYIF,Z=JH3^=@&>G>T@NALEI#-B?<&?=?`.=7`\5LQ*/2*I"
^XMB(3.9,23,2,2309,0)="""DATA"",396.18,195,3,345,0)"
^XMB(3.9,23,2,2310,0)="MA'CH;@R'FKLQ7W=5B:$^BN%_/_E#@_QUU<8#TA^H.!9JCH?E-%)W+`IR:K38"
^XMB(3.9,23,2,2311,0)="""DATA"",396.18,195,3,346,0)"
^XMB(3.9,23,2,2312,0)="MW\*E]S6WT-IF\IY.L@%&^S0DM]6>UK5M3]MD%6!3>L%X<D'@:9(+>IYKZG`L"
^XMB(3.9,23,2,2313,0)="""DATA"",396.18,195,3,347,0)"
^XMB(3.9,23,2,2314,0)="M<P[@T#5W9+P%5II(1[J4`V^+.^Y#,=W@:)-N\(5/D'FKN^Q^I.D&R+>7`P@T"
^XMB(3.9,23,2,2315,0)="""DATA"",396.18,195,3,348,0)"
^XMB(3.9,23,2,2316,0)="M_=`A?]ZQED31@.Y6Z47.6BZP!H+<!;V8K:1-_M@J]2""TGRK2=7YW)^15'/9I"
^XMB(3.9,23,2,2317,0)="""DATA"",396.18,195,3,349,0)"
^XMB(3.9,23,2,2318,0)="M%)O9;""8P3*=Y:7"")2H.4AKZNP[K6V1%[PK/<2R$IITFR9/FS3<9LNEC&\JQX"
^XMB(3.9,23,2,2319,0)="""DATA"",396.18,195,3,350,0)"
^XMB(3.9,23,2,2320,0)="M&0D99?3W[.Y7IN8LM`8$3C`@&D\`@-!>FL>D8C!I^07#U/M32=G<2B-;S#N@"
^XMB(3.9,23,2,2321,0)="""DATA"",396.18,195,3,351,0)"
^XMB(3.9,23,2,2322,0)="MPM^9Y^&YFGD@G:PQTI_B^'#D,`[>@W!LM7(;\WB=$\[LK+<$R;<=^P(K>3Y<"
^XMB(3.9,23,2,2323,0)="""DATA"",396.18,195,3,352,0)"
^XMB(3.9,23,2,2324,0)="M++/BALRW<'9=6^WPIF@'X)W&8?7P0JW#&P4VR_5IZLW;BNU6K-UK2C6B00""<"
^XMB(3.9,23,2,2325,0)="""DATA"",396.18,195,3,353,0)"
^XMB(3.9,23,2,2326,0)="MKR0?H<G)93>2K*""A;OKFDLKXA?BL8HUV25HMQ*](""(U#&(VWF(JSUC,\H'*:"
^XMB(3.9,23,2,2327,0)="""DATA"",396.18,195,3,354,0)"
^XMB(3.9,23,2,2328,0)="M[<?7Z!QTM<Z9JU>Z('Q6.I/2L:-N>>-DA:Q%[TFG14F1)ZP.608+;52-+X,Y"
^XMB(3.9,23,2,2329,0)="""DATA"",396.18,195,3,355,0)"
^XMB(3.9,23,2,2330,0)="M(Y?Q55J4TI&]H)QHZJ`R)V5(L+&$/]>^CNI\FE`MO''.Z4FPN&9;8:J#JY.H"
^XMB(3.9,23,2,2331,0)="""DATA"",396.18,195,3,356,0)"
^XMB(3.9,23,2,2332,0)="M6Q2MYV#\/,Z;9$S6;J14OG?4M9QN*CZR]+S9@EG^>A*7Y0U],))9LB1XY0LG"
^XMB(3.9,23,2,2333,0)="""DATA"",396.18,195,3,357,0)"
^XMB(3.9,23,2,2334,0)="M2T*:W/CN>^+'OY*XZ3!N^OR/E.'B&C_^1'6I:1-=-\W)Q0^_DOA/9@U8W<<Y"
^XMB(3.9,23,2,2335,0)="""DATA"",396.18,195,3,358,0)"
^XMB(3.9,23,2,2336,0)="M%=;%BIB80ME*\HOZ\HVS6B[IZJ7,8:""\9BYN_@$5C?D?_$XGQTJETIPJ#64E"
^XMB(3.9,23,2,2337,0)="""DATA"",396.18,195,3,359,0)"
^XMB(3.9,23,2,2338,0)="MH9HC?N,#21H],'U^%*>YS/+JG,Z%OHXJX?[-&+2*$@'7%""92-\U(<\.+/-VF"
^XMB(3.9,23,2,2339,0)="""DATA"",396.18,195,3,360,0)"
^XMB(3.9,23,2,2340,0)="M""2*#`8N>PT23PT3(-KC!Q(@-P(%2X82O%-4@3>6S[ZNX@:[_C)S.>Z8CX*'-"
^XMB(3.9,23,2,2341,0)="""DATA"",396.18,195,3,361,0)"
^XMB(3.9,23,2,2342,0)="M^C*AAX)10'N=5#3PH2$,-ROK+G%"",3+AA'J;)BA=E9TRNTC36\&;!!2JR[7:"
^XMB(3.9,23,2,2343,0)="""DATA"",396.18,195,3,362,0)"
^XMB(3.9,23,2,2344,0)="M#7D3Z1>0!,/M0P7IU=]`=7..G`JP'@;/R)LZT/LA^#E#`\9@=UR2)](FT(13"
^XMB(3.9,23,2,2345,0)="""DATA"",396.18,195,3,363,0)"
^XMB(3.9,23,2,2346,0)="M!34X57P[7I\'JO);H'D.J""IXXDBF@0F52H^O!`(T`$J%8#BU&V]3P_\Q9Q@-"
^XMB(3.9,23,2,2347,0)="""DATA"",396.18,195,3,364,0)"
^XMB(3.9,23,2,2348,0)="MF^+\0U;3REHHD,?3F5<NE>U4-9(`JT8,@`;2M.M86+4,:^.4`X1$>LFZ@W2`"
^XMB(3.9,23,2,2349,0)="""DATA"",396.18,195,3,365,0)"
^XMB(3.9,23,2,2350,0)="M<3J:\G]*!ST(Y&G\9B(R5AOG!1:T!1+*7VC#H^XN(BL2(3RO=>$GT8SU_$0@"
^XMB(3.9,23,2,2351,0)="""DATA"",396.18,195,3,366,0)"
^XMB(3.9,23,2,2352,0)="M'""(:!'B<ZC8273DOZ2$M6[&<S[XA176S6-;%HGHU)F[/M6`I\.6.T-@=)V\-"
^XMB(3.9,23,2,2353,0)="""DATA"",396.18,195,3,367,0)"
^XMB(3.9,23,2,2354,0)="M@<9D'F?96NZB&D[E96##2UDY_=!>.4NRC--RE&EZ/<1(1+H*O'N)+N<:0-`P"
^XMB(3.9,23,2,2355,0)="""DATA"",396.18,195,3,368,0)"
^XMB(3.9,23,2,2356,0)="M'*1>L37(?4P@:/XMP,L!.S<N=,<ZE(>/""+<OVH6Q[&""$=4C1TL;H`=E`H1&@"
^XMB(3.9,23,2,2357,0)="""DATA"",396.18,195,3,369,0)"
^XMB(3.9,23,2,2358,0)="M:`!0GY!_[Z&]+<&UV;$.:H%P!7,>23#?,)*M>9=3PS$+X*$M\0EAXPY@0G<A"
^XMB(3.9,23,2,2359,0)="""DATA"",396.18,195,3,370,0)"
^XMB(3.9,23,2,2360,0)="M$24BHA6#JK-P7&?['G+:((@:O3&#-W_,+U9ISO4@FWU@-PS\P!_-90(WP(5Q"
^XMB(3.9,23,2,2361,0)="""DATA"",396.18,195,3,371,0)"
^XMB(3.9,23,2,2362,0)="MC0H(D$X#I3U:5D$$\;@*]K793TC;O&%>X_'5#KJP3>\/(<4C[KI^\8KF/CUF"
^XMB(3.9,23,2,2363,0)="""DATA"",396.18,195,3,372,0)"
^XMB(3.9,23,2,2364,0)="M!Z-+&YF6MJ3?RMKN/&CSVHX\%]Z__4AK9NR#-V;S<UK&/?3IER7)G>/&]=[8"
^XMB(3.9,23,2,2365,0)="""DATA"",396.18,195,3,373,0)"
^XMB(3.9,23,2,2366,0)="MFE.2LQNVG\]+0M8?.K^SBA3G,ZDN-]_[%""_+HDJ*99ITO_'*%K9_&+`?^&CH"
^XMB(3.9,23,2,2367,0)="""DATA"",396.18,195,3,374,0)"
^XMB(3.9,23,2,2368,0)="M7`&4GBPH4&4*]@+8SUH1=D<HI=.@=H<>0/%GU'/\I)/7@/""#,><7&IQ?;_=C"
^XMB(3.9,23,2,2369,0)="""DATA"",396.18,195,3,375,0)"
^XMB(3.9,23,2,2370,0)="MQ<.-88:W$<,$GJXA4YL`UF5C""@V96MNR,][^XPECAH:#?/B?]JZTMVUCB_X5"
^XMB(3.9,23,2,2371,0)="""DATA"",396.18,195,3,376,0)"
^XMB(3.9,23,2,2372,0)="MHE^4`$X>9^$6H`C:Q$4#=`D2%_VL2+3-%XGR$Z7&[J]_G.$VRYV%DFS'LH*B"
^XMB(3.9,23,2,2373,0)="""DATA"",396.18,195,3,377,0)"
^XMB(3.9,23,2,2374,0)="ML""G'N9P[<]<SY\+5#RI1ZV.J&O.(N//X\UN&CIRWQ;?%M&)DP*R1OKIAW]3&"
^XMB(3.9,23,2,2375,0)="""DATA"",396.18,195,3,378,0)"
^XMB(3.9,23,2,2376,0)="MJA\:&KR8S\^""Y?(LN*O_O#Q<[0F>-!5)58K.IO>1&""*CBK1_-""^T[(#4_4?!"
^XMB(3.9,23,2,2377,0)="""DATA"",396.18,195,3,379,0)"
^XMB(3.9,23,2,2378,0)="MY[NJMCG',E``QQY;1:OX8(_:T_N!G?$R""#;;.@@/7N1L^SBK=TGJ(50_%WG`"
^XMB(3.9,23,2,2379,0)="""DATA"",396.18,195,3,380,0)"
^XMB(3.9,23,2,2380,0)="M`8XH&P_<D2^6R_\(&]0B5>8C5:S.O\&97YVN:EDK-WF#2QZ.T5`';:N,3E$S"
^XMB(3.9,23,2,2381,0)="""DATA"",396.18,195,3,381,0)"
^XMB(3.9,23,2,2382,0)="MY&,`,J7\24>4E)T2$'B\!\%V&Q12MPUZ+UH?89UD1>YI:=H^N:&JB!*E)HJ?"
^XMB(3.9,23,2,2383,0)="""DATA"",396.18,195,3,382,0)"
^XMB(3.9,23,2,2384,0)="MD_M/#C?>BSJF2Y'(%JN24.W0]!7\+E8E,8[N)5;]>UIQS]!8MN5T45R5TV%4"
^XMB(3.9,23,2,2385,0)="""DATA"",396.18,195,3,383,0)"
^XMB(3.9,23,2,2386,0)="M]A""^.G,&\;X4NRO5?_U7^;5<?2N!L#6TYL\$K);)IS]3JK6$JDM)J+Z4Y/EE"
^XMB(3.9,23,2,2387,0)="""DATA"",396.18,195,3,384,0)"
^XMB(3.9,23,2,2388,0)="MS\A:Q45@%5=V""12[EEK+FNNEII,1-3HF`G:+@E4[!<1\@""BQS:!ZST<D\*A&"
^XMB(3.9,23,2,2389,0)="""DATA"",396.18,195,3,385,0)"
^XMB(3.9,23,2,2390,0)="M?``!$T\!'64GCV-#$'4IDV:Z@/CYG9O8OM:9>ZU12EQK'6&M-(&>H8TB[F0;"
^XMB(3.9,23,2,2391,0)="""DATA"",396.18,195,3,386,0)"
^XMB(3.9,23,2,2392,0)="M@]./D6GZ<;O4PJG;;?KQ40^WRTP)JB%_D3-4)?3%VN9VS4*NBOFVEHKG5UV^"
^XMB(3.9,23,2,2393,0)="""DATA"",396.18,195,3,387,0)"
^XMB(3.9,23,2,2394,0)="M>BS`H=B`U\DD8ZQV_&@Z`A2S%A>017)EE_-WXUGZW,*2[321+S9`'1&1:JW("
^XMB(3.9,23,2,2395,0)="""DATA"",396.18,195,3,388,0)"
^XMB(3.9,23,2,2396,0)="MG2?@(\H3]IIMQ[N^$=@(DC8!35PY`>H**T(?B,:G\:>`ET""`EXB%BFPJ^HBH"
^XMB(3.9,23,2,2397,0)="""DATA"",396.18,195,3,389,0)"
^XMB(3.9,23,2,2398,0)="M]0G[XDJ/VD<T74MP3A%LX3H^1FE46[]$$1WE)'Y=53?%ILY-_VUPIO4JW""?"""
^XMB(3.9,23,2,2399,0)="""DATA"",396.18,195,3,390,0)"
^XMB(3.9,23,2,2400,0)="M]!$*F,A0ZI)Q-%0M,V&WH^C6CKL#&4%I$0=[B),I90P<)WZ5RS?!?'IW%BSK"
^XMB(3.9,23,2,2401,0)="""DATA"",396.18,195,3,391,0)"
^XMB(3.9,23,2,2402,0)="MU;GF8MWETW507`:\3L""TRZ]#WA9+/A6,_0V7O,1#7D2T@?5>.,YIU6RY30M#"
^XMB(3.9,23,2,2403,0)="""DATA"",396.18,195,3,392,0)"
^XMB(3.9,23,2,2404,0)="M],7J4@^9,%:G7F?.RN$`"">EFH7$RI[/@LEBP.X$\""FB6LAC`V6<,IEB?Y1_:"
^XMB(3.9,23,2,2405,0)="""DATA"",396.18,195,3,393,0)"
^XMB(3.9,23,2,2406,0)="M<LP/P:5``C%ADP,%)#>;^MW\""J:?FVUUS7]K.RWQ""_=_NX!$U6%4\**H]50<"
^XMB(3.9,23,2,2407,0)="""DATA"",396.18,195,3,394,0)"
^XMB(3.9,23,2,2408,0)="M9>,1K;+-J-IICTQU#*O9O,DFGSO5""*-:Y8@(A^1[1),2PTC=?O!,5X],7?&<"
^XMB(3.9,23,2,2409,0)="""DATA"",396.18,195,3,395,0)"
^XMB(3.9,23,2,2410,0)="M_>K*H9"":K*X2@?4?:7^HHY7UKIA>70G39#*R_LA1_WIR+]N4,-M!ENP9%E*P"
^XMB(3.9,23,2,2411,0)="""DATA"",396.18,195,3,396,0)"
^XMB(3.9,23,2,2412,0)="MO=9+/=8Z(JJQU#`>1`N1HV<8(E.77<@,=D'&R.-0L0N1EI-0*Q9Z5ZR%H8ME"
^XMB(3.9,23,2,2413,0)="""DATA"",396.18,195,3,397,0)"
^XMB(3.9,23,2,2414,0)="M0'""35+)F:NM2OX<7:4)W+8K[F&M.L9?8O<<XB-QDWYR51.X#B:/8=2""'3JB`"
^XMB(3.9,23,2,2415,0)="""DATA"",396.18,195,3,398,0)"
^XMB(3.9,23,2,2416,0)="MNB(G\*)V(E,O3XVR>+RGENY]Z%>6]X0_0079)H-JDQ8L)=O-)A[$W1']=-S)"
^XMB(3.9,23,2,2417,0)="""DATA"",396.18,195,3,399,0)"
^XMB(3.9,23,2,2418,0)="M-C+%HC#,)96K<VI$$L6CDFTACNXNO7^^R6>,9BNXR)<W""X;M.(("";;/931$R"
^XMB(3.9,23,2,2419,0)="""DATA"",396.18,195,3,400,0)"
^XMB(3.9,23,2,2420,0)="MDNH7.`Y=YXX>4<4SW-M[(/"":`;95/&FL53,Z'A>Q!YD]Y]Z]\2)]6#N*&##%"
^XMB(3.9,23,2,2421,0)="""DATA"",396.18,195,3,401,0)"
^XMB(3.9,23,2,2422,0)="MB=`9$^UPHMAAVOB99XQ"";;8`A""VLU];0Q^GGK,-5SI%@S8:GD(/`?BVJS>IX"
^XMB(3.9,23,2,2423,0)="""DATA"",396.18,195,3,402,0)"
^XMB(3.9,23,2,2424,0)="M[L^S)4S@0DIBQ4V0,/0OA_'[3S+?Z76SCD%5E+.<\:/.ZE6\RH,7G*>,HQ1?"
^XMB(3.9,23,2,2425,0)="""DATA"",396.18,195,3,403,0)"
^XMB(3.9,23,2,2426,0)="MLM(>_UPLAS6HO/QVNF1U2<ZN6O\W#=;Y/T7^C7_P^F!(8+X\V+T\_4V@H2[F"
^XMB(3.9,23,2,2427,0)="""DATA"",396.18,195,3,404,0)"
^XMB(3.9,23,2,2428,0)="M@75\-]U6^0OVGO6+%$MVC;Y^M<OU:MEPI!9E\[((OVHJLC?U)EC-+?!#^YND"
^XMB(3.9,23,2,2429,0)="""DATA"",396.18,195,3,405,0)"
^XMB(3.9,23,2,2430,0)="ML<>;4/6L^)1B+P#IYUM.!`>]P0$5A#$*807U2-DNBU/AO)''9?SWVW7;V+CL"
^XMB(3.9,23,2,2431,0)="""DATA"",396.18,195,3,406,0)"
^XMB(3.9,23,2,2432,0)="M20+RWAKLIHE:9.RC""57@+/*_D#_(N+.(B<^JJ@P'F<>:OFO7<;`'.\N8>5@N"
^XMB(3.9,23,2,2433,0)="""DATA"",396.18,195,3,407,0)"
^XMB(3.9,23,2,2434,0)="M9153XI;P+S[>6I'/UIVO#U=FZ-`3K-QB=UWD`<K1AHKN7E?$.13VY]4MDYW3"
^XMB(3.9,23,2,2435,0)="""DATA"",396.18,195,3,408,0)"
^XMB(3.9,23,2,2436,0)="MTG0/%'8#Z5(D5@%3B0[JS(!&S:98UWJMS?FVS#O.7U,ARJ#KF*IDU?V.C!5"""
^XMB(3.9,23,2,2437,0)="""DATA"",396.18,195,3,409,0)"
^XMB(3.9,23,2,2438,0)="ML5BEX((8N`C`)]8!O]=<8(F.$315!KJP7N8T-LB<R1+3S(,!#928NY""#BIR:"
^XMB(3.9,23,2,2439,0)="""DATA"",396.18,195,3,410,0)"
^XMB(3.9,23,2,2440,0)="MECE45GG@<1OXP#,_J9MX8'9HV3/3%L&APCF'(XVF32#F=6P2P""5TV_H`[Y#Z"
^XMB(3.9,23,2,2441,0)="""DATA"",396.18,195,3,411,0)"
^XMB(3.9,23,2,2442,0)="M;1D,+'^4^+U!TSBM@JLZN&VHH0XF/PZIG_QHF&TT7/:-_>1OBAYWP3*?LZPL"
^XMB(3.9,23,2,2443,0)="""DATA"",396.18,195,3,412,0)"
^XMB(3.9,23,2,2444,0)="M>'%S?5>QKU[VM/)[OD1B.@19Z'Z-8423WVO<5'>SZV):IZFS_>17)DPQIV2>"
^XMB(3.9,23,2,2445,0)="""DATA"",396.18,195,3,413,0)"
^XMB(3.9,23,2,2446,0)="MV6DZUI'V/J$^VV28F-#EI3C,Z##KQSP/QG@7`AX%(RS7ARKX)V?LRF5K,.9O"
^XMB(3.9,23,2,2447,0)="""DATA"",396.18,195,3,414,0)"
^XMB(3.9,23,2,2448,0)="M)\(D%?DNKY%%UL9L*<^5D:;*>/-[<J!\R-(&J5MJ]E9$8[]$6>+![<D6/)DX"
^XMB(3.9,23,2,2449,0)="""DATA"",396.18,195,3,415,0)"
^XMB(3.9,23,2,2450,0)="MWE;OEQC$_O-32UC.PP$64/=/[.<XUO8_`<R0\$@0/W6);V<L-_""9VC1\OBBN"
^XMB(3.9,23,2,2451,0)="""DATA"",396.18,195,3,416,0)"
^XMB(3.9,23,2,2452,0)="MBOI?""K[<!=,ZVZQ-WUPPYRQO$7?`[ZJ!Z<[G2_BG](,L_:#""YFSF<FZR>':("
^XMB(3.9,23,2,2453,0)="""DATA"",396.18,195,3,417,0)"
^XMB(3.9,23,2,2454,0)="MVN62B30-SR&.9[88%\7-4'[XNRCGJV^]3E?E%5.SEWGA@$E6SC)0H:JF!(>Q"
^XMB(3.9,23,2,2455,0)="""DATA"",396.18,195,3,418,0)"
^XMB(3.9,23,2,2456,0)="MU]X(H;V1N?;&LV9(C<;Z`>+R`\0=(&6Z>R84T%WT8'Y@R""88\(E#HQ[5-<1>"
^XMB(3.9,23,2,2457,0)="""DATA"",396.18,195,3,419,0)"
^XMB(3.9,23,2,2458,0)="MU,_</61F^F<]6DWT6""^F?CXB(A./U[;30B<^*_0;PTMMKFNM((X:%)<+,<@4"
^XMB(3.9,23,2,2459,0)="""DATA"",396.18,195,3,420,0)"
^XMB(3.9,23,2,2460,0)="MYH^E9<3L>:0_C]AS%.H?U,_8;P(^^7VUSIM_OO_TI9\U,S""C*WZ.A(F/,2.0"
^XMB(3.9,23,2,2461,0)="""DATA"",396.18,195,3,421,0)"
^XMB(3.9,23,2,2462,0)="MHXNBDS&S&+/43T^1EYYZBDWQK`!.!SHK<7+2DT5/Q$]/L2$ZT%(G0%-)[*FI"
^XMB(3.9,23,2,2463,0)="""DATA"",396.18,195,3,422,0)"
^XMB(3.9,23,2,2464,0)="M]*2I_0C4>W4E4#]89D]6(;0`ZYS2#F81'#H1'SH`1KT.,J<.^H;[*!TDX4D'"
^XMB(3.9,23,2,2465,0)="""DATA"",396.18,195,3,423,0)"
^XMB(3.9,23,2,2466,0)="MCKO""0U#&.DDFFCH%[9JX=*$BBYG)RB8.FC$;+67DXG@(12:R(1+[EN=#1CM1"
^XMB(3.9,23,2,2467,0)="""DATA"",396.18,195,3,424,0)"
^XMB(3.9,23,2,2468,0)="MO\?\>X$<@J@/J/H@4A_$ZH-$?9""J#S+U01W6J4^0]D03%FG2(DU<I,F+-(&1"
^XMB(3.9,23,2,2469,0)="""DATA"",396.18,195,3,425,0)"
^XMB(3.9,23,2,2470,0)="M)C'21$::S%B3&6LR8TUFK,F,-9FQ)C/69,::S%B3&6LR$TUFHLE,]$VAR4PT"
^XMB(3.9,23,2,2471,0)="""DATA"",396.18,195,3,426,0)"
^XMB(3.9,23,2,2472,0)="MF8DF,]%D)IK,1).9:#)336:JR4PUF:F^DS69J28SU62FFLQ4DYEJ,D>:S)$F"
^XMB(3.9,23,2,2473,0)="""DATA"",396.18,195,3,427,0)"
^XMB(3.9,23,2,2474,0)="M<]3)_-+/-B$_VX0UTC4/VY2@?6R3DW_FE^UBP?`-P\O7]GSS2G[T.5]<OE*:"
^XMB(3.9,23,2,2475,0)="""DATA"",396.18,195,3,428,0)"
^XMB(3.9,23,2,2476,0)="M@_PQZU6,(=.55@T;.85CQ[K%'NM&\3[K1EWK9DRIX80:3J<-R;0IE38FTM8("
^XMB(3.9,23,2,2477,0)="""DATA"",396.18,195,3,429,0)"
^XMB(3.9,23,2,2478,0)="MAH3@/6IYC56V#6"")L;[$Y!3""N/BS]7(?=9!>21"".5+48*MJ39+I:PGOAO!)J"
^XMB(3.9,23,2,2479,0)="""DATA"",396.18,195,3,430,0)"
^XMB(3.9,23,2,2480,0)="M>VUK=7$7=$;AK8FXU9_Y:@P_:[^WD3,ZIZ$S((QUHTM/#`$Z7A:""RK:5@G:M"
^XMB(3.9,23,2,2481,0)="""DATA"",396.18,195,3,431,0)"
^XMB(3.9,23,2,2482,0)="M);0L;0IN`C#Y=&M!!]`2`X8*OIN-9/X+U3QDXZ91M8!9UEZ[6$^WR^FQ$`-0"
^XMB(3.9,23,2,2483,0)="""DATA"",396.18,195,3,432,0)"
^XMB(3.9,23,2,2484,0)="M`_!8+IVH+@_[8?C.>D*`GK6S(>UD*_CFJ5Q=L$+F3,27D0Q'50""&27C,Q)=["
^XMB(3.9,23,2,2485,0)="""DATA"",396.18,195,3,433,0)"
^XMB(3.9,23,2,2486,0)="M$]H@\'*@O""FI@D`DJ0KBR[!VNX.$)V\%W+%+`'?5,O**+%S#R!C%7378&MU="
^XMB(3.9,23,2,2487,0)="""DATA"",396.18,195,3,434,0)"
^XMB(3.9,23,2,2488,0)="M#8OW6YTE/1$W0TU07=C/9*E\TA4DL8>;^?CISX_GGRX^G'\^EOL8Q$!K+""V5"
^XMB(3.9,23,2,2489,0)="""DATA"",396.18,195,3,435,0)"
^XMB(3.9,23,2,2490,0)="MRO?IP\%1;W(V%N)'=$_TA0_E/1JF[,1CE6*5D\=GHF%C;B_RV\V/`R/[NU79"
^XMB(3.9,23,2,2491,0)="""DATA"",396.18,195,3,436,0)"
^XMB(3.9,23,2,2492,0)="MS-RHSH+?BVKV>F(S#/6)^)+/_UAM\B^KU5>6/,A/1$LQV`GI+F[2I&##';#&"
^XMB(3.9,23,2,2493,0)="""DATA"",396.18,195,3,437,0)"
^XMB(3.9,23,2,2494,0)="MR=6_QZVT_H<&K6WX""XD?JHKKGILUU_V$K#KQ]$>""LM@K?YQ>Y?(5=9E)1N=#"
^XMB(3.9,23,2,2495,0)="""DATA"",396.18,195,3,438,0)"
^XMB(3.9,23,2,2496,0)="MDJY661>UM>""K6Q9%]-\H'4>EWZAU&Q.J8RCH@+WX=;7^M_<4K^O8=?:5W6>1"
^XMB(3.9,23,2,2497,0)="""DATA"",396.18,195,3,439,0)"
^XMB(3.9,23,2,2498,0)="ML2K,=SA_Z""=&W5P_FRYJ!UYO]/[Y=K-J_K+:ZE,SD#]6Y8-W-J'3:^QMFKN6"
^XMB(3.9,23,2,2499,0)="""DATA"",396.18,195,3,440,0)"
^XMB(3.9,23,2,2500,0)="M.G+2=!.!:I<0('Q2OX&0\*CWKP/^0CSG230\]5L^^P):EM!K$8W+:%M(&.!G"
^XMB(3.9,23,2,2501,0)="""DATA"",396.18,195,3,441,0)"
^XMB(3.9,23,2,2502,0)="M(""W0IJ^+(?8PHUPOSBFSRQ/Q*3"",74.6OUK=Y.5$^OU:I=A['+L$-S"".FA_]"
^XMB(3.9,23,2,2503,0)="""DATA"",396.18,195,3,442,0)"
^XMB(3.9,23,2,2504,0)="MKHC$#_""RT6%?5JGR&?%\XLM#KQY""KXX0`M]]P/?)W#TX0])KFW%^#JR?"">\'"
^XMB(3.9,23,2,2505,0)="""DATA"",396.18,195,3,443,0)"
^XMB(3.9,23,2,2506,0)="MNP:6`G<DJF\E`0""4GP.P!L#Z-&@?7+`?I2BRHZ(2<(MF\4@UX<=24U.I>`0E"
^XMB(3.9,23,2,2507,0)="""DATA"",396.18,195,3,444,0)"
^XMB(3.9,23,2,2508,0)="MX1V4A'8]30A2$B8$U!*-(""UA@@E]+""U=Z_2=Y:I\)<^<?@0EAB/L/QYM_^5G"
^XMB(3.9,23,2,2509,0)="""DATA"",396.18,195,3,445,0)"
^XMB(3.9,23,2,2510,0)="MAS3_OL&%*[RP!AB>(88ER+""'&5!%:E<O)GP)!WW$%O3U=)-`%""_T`+(4""/I("
^XMB(3.9,23,2,2511,0)="""DATA"",396.18,195,3,446,0)"
^XMB(3.9,23,2,2512,0)="MFAY;T$=,!Z%A--<NFX)W,\0+Y@2.!3!X$!`Q'(3F-F=5YSB,B6A:OT1+[O#F"
^XMB(3.9,23,2,2513,0)="""DATA"",396.18,195,3,447,0)"
^XMB(3.9,23,2,2514,0)="M&,\&0$\PTMM0'V]#H=@-5%<:CHH)2/AHWH;Y$WY3:MV,)64.B'L:+P_S9/;/"
^XMB(3.9,23,2,2515,0)="""DATA"",396.18,195,3,448,0)"
^XMB(3.9,23,2,2516,0)="M`5RAMWD.=]A_F<_^P\-U:-<.Q""@9&962Q]J!1?G?+?MJ'7Q;;<MYO1$99]J<"
^XMB(3.9,23,2,2517,0)="""DATA"",396.18,195,3,449,0)"
^XMB(3.9,23,2,2518,0)="M(6%&[,3O(&`-=[0A$1CZ]'21WAI,'U2#'_@DM'4>3'O>()9B;+_DZ]EVT<V`"
^XMB(3.9,23,2,2519,0)="""DATA"",396.18,195,3,450,0)"
^XMB(3.9,23,2,2520,0)="M9)S,C%^FCDOR[2/GA_SYY\UJE)O@B!/U.I++B<N'KX^)$D,T&V.32I-']];0"
^XMB(3.9,23,2,2521,0)="""DATA"",396.18,195,3,451,0)"
^XMB(3.9,23,2,2522,0)="M70J'K;7<J5#N5;C-JN-^!7S7SRM%2:TIBFQ53RG*`Z<HAKG<D4UG/2_[26>["
^XMB(3.9,23,2,2523,0)="""DATA"",396.18,195,3,452,0)"
^XMB(3.9,23,2,2524,0)="MZ>Q>*L&8C#YG""3GIS%=GT3V7`M""H_D_HV_VA\7W7`=`#UP%""^S&(0O;'?A92"
^XMB(3.9,23,2,2525,0)="""DATA"",396.18,195,3,453,0)"
^XMB(3.9,23,2,2526,0)="MWV(FR@R=@=!X%F9U)%@%GS@?XY$?B?"">CT0ZZDC0Q+LC*OHO$5#3T@\%[Q;3"
^XMB(3.9,23,2,2527,0)="""DATA"",396.18,195,3,454,0)"
^XMB(3.9,23,2,2528,0)="M8ME0MGV8UVM17#*.A;O@_':ZG("";$EF+4SBT%*=B($_)P/;'N,(4>CWQ\AX-"
^XMB(3.9,23,2,2529,0)="""DATA"",396.18,195,3,455,0)"
^XMB(3.9,23,2,2530,0)="MG#,>)V%&#R`A'B5A.DY""A`^QB,13Q+;Q'(\U.VDRRNP@@YCO5[,M)^C]J#)H"
^XMB(3.9,23,2,2531,0)="""DATA"",396.18,195,3,456,0)"
^XMB(3.9,23,2,2532,0)="M':?EP?<10&6C?0;&!]%>XRP&5GMILM(I!AX3`X_7X6$.X(>RVJRW,PZ3>R#%"
^XMB(3.9,23,2,2533,0)="""DATA"",396.18,195,3,457,0)"
^XMB(3.9,23,2,2534,0)="MH:?I]0V6$X]57'28L_?SMEC,^Z/'V,"".7'V':FF""]!H[(1\_=O1R0GCEAW]$"
^XMB(3.9,23,2,2535,0)="""DATA"",396.18,195,3,458,0)"
^XMB(3.9,23,2,2536,0)="M>^`?0PW]&#X_[""/Z/K""/B2W03]5`/]+C_`3'4!-<C%*///EMI[4B6Q<<P/#$"
^XMB(3.9,23,2,2537,0)="""DATA"",396.18,195,3,459,0)"
^XMB(3.9,23,2,2538,0)="M8-6.H&A4F*R4G=G\S[X]L:VZMD2Q*:JS8-X-"")^6=\'T2\E&>RZ""GF+RLBCG"
^XMB(3.9,23,2,2539,0)="""DATA"",396.18,195,3,460,0)"
^XMB(3.9,23,2,2540,0)="MPL""#]C>R^K;<3S<0'[GS""*3.D'6N$29@LH.B;%^D@/36^CONTFQOXZ#$6K]-"
^XMB(3.9,23,2,2541,0)="""DATA"",396.18,195,3,461,0)"
^XMB(3.9,23,2,2542,0)="ML/Z6!(^I!2;?12T0'4?LJG0WT:X(B7'=36)`2-#H0;N;/W'""!=;>7.=5,=_6"
^XMB(3.9,23,2,2543,0)="""DATA"",396.18,195,3,462,0)"
^XMB(3.9,23,2,2544,0)="M_T+7SNS`KJP.4VRJ8+/.IQN6YGIU-XT6X@2F.!B8`GDAL7$,H2E`B""\*#?%["
^XMB(3.9,23,2,2545,0)="""DATA"",396.18,195,3,463,0)"
^XMB(3.9,23,2,2546,0)="M9-BM:(]>O/:Y7S-^VJ(E@IMZQ_KNQM.6VQG\P8$!J048`/CL-`*]60:[,T2-"
^XMB(3.9,23,2,2547,0)="""DATA"",396.18,195,3,464,0)"
^XMB(3.9,23,2,2548,0)="MQC""9?,<VY4E!!JB_LK-QRL9P+<""H;;D8(&H[/:%`QJ@T&A.26FOC&5#!A\/N"
^XMB(3.9,23,2,2549,0)="""DATA"",396.18,195,3,465,0)"
^XMB(3.9,23,2,2550,0)="M4T3Z-*HZ%WFUJ495<_""IFO.DJSEM>DWT]+I58J16<H`[K#0,H8XM@1JVXIZ?"
^XMB(3.9,23,2,2551,0)="""DATA"",396.18,195,3,466,0)"
^XMB(3.9,23,2,2552,0)="M?""AGB^V<9Q';Q8;G$--:(?-B>E6NZK!OQJED9HNBY!GWAFW/8+8JY]L9P\`6"
^XMB(3.9,23,2,2553,0)="""DATA"",396.18,195,3,467,0)"
^XMB(3.9,23,2,2554,0)="M2M%A4O(4A`U4+,KF>M`ZOUFM-V\F1U!3,K;>^9#<4'._)@4BH.>>$$B#6(1D"
^XMB(3.9,23,2,2555,0)="""DATA"",396.18,195,3,468,0)"
^XMB(3.9,23,2,2556,0)="MBBXWFSS61178U1I7T^IF)2=KL]I.!PN=,Z.ZE*L5MFRLOQ*F'4*4`<"")#`03"
^XMB(3.9,23,2,2557,0)="""DATA"",396.18,195,3,469,0)"
^XMB(3.9,23,2,2558,0)="M84""')"";B/4M;!F:M%L#)E^!1_LZ;4H%ZQ)NC7#3G?QZLAI/;'EDQ00/3,VO."
^XMB(3.9,23,2,2559,0)="""DATA"",396.18,195,3,470,0)"
^XMB(3.9,23,2,2560,0)="MHV4\2KX#>>%[\*?O&T-6C/.IY.13G[Y/)<CH4K&(>I+Y<>1+@MY.M3:+2U9C"
^XMB(3.9,23,2,2561,0)="""DATA"",396.18,195,3,471,0)"
^XMB(3.9,23,2,2562,0)="MJX[:SW7=ILC6>4*ZOR.`K4Q""J/F$XQ!<WA;=T1FO#K!S%K0'/*]XH/++MIRU"
^XMB(3.9,23,2,2563,0)="""DATA"",396.18,195,3,472,0)"
^XMB(3.9,23,2,2564,0)="MPZ+/+R]KR8]""'Z:""@!Z$Q)82`%#[QB&<*\(M&FPH?I,8HU,%8$P%(!R'[.3A"
^XMB(3.9,23,2,2565,0)="""DATA"",396.18,195,3,473,0)"
^XMB(3.9,23,2,2566,0)="M96P*+P%C)C8OAML]%#AOTL-.H1G-3O&E,;XDWF82CS.3*04B2@QI371,_@0_"
^XMB(3.9,23,2,2567,0)="""DATA"",396.18,195,3,474,0)"
^XMB(3.9,23,2,2568,0)="MUE(2A`4-X9N;AKO#V(2R5$*P$ZY[W.F74Y/$G:QHY@`(;3""B(/^!;@W85/?D"
^XMB(3.9,23,2,2569,0)="""DATA"",396.18,195,3,475,0)"
^XMB(3.9,23,2,2570,0)="M83*5*>L2=9,Q_[PI2O;!I_Q_VSI5$<?SW7,^$OH?<'9I`HT[Y33<Y90?!QD%"
^XMB(3.9,23,2,2571,0)="""DATA"",396.18,195,3,476,0)"
^XMB(3.9,23,2,2572,0)="M<A2[N^4<9:700:S4N3[+^I[.MYC<\O_]'U!+`P04``(`""`"",4Q\UL]<T:P,;"
^XMB(3.9,23,2,2573,0)="""DATA"",396.18,195,3,477,0)"
^XMB(3.9,23,2,2574,0)="M``""6X0``)0```$1I9V5S=&EV95]#;VYD:71I;VYS7TUI<V-?,3$S+G!N;""YC"
^XMB(3.9,23,2,2575,0)="""DATA"",396.18,195,3,478,0)"
^XMB(3.9,23,2,2576,0)="M9&7L/=MRXS:RSTY5_@'EE]E,$H](ZKH59TN6Z!G6RJ(.*<_$YR5%2[3-79E4"
^XMB(3.9,23,2,2577,0)="""DATA"",396.18,195,3,479,0)"
^XMB(3.9,23,2,2578,0)="M1""HS_OL#\"":"";-PDV9/),9/=R&2CN]%H-(!NH/'N'9I-1RYR%YM@G7S_W???"
^XMB(3.9,23,2,2579,0)="""DATA"",396.18,195,3,480,0)"
^XMB(3.9,23,2,2580,0)="M67?H,MC$B;,-S[7OOT-C_RX(_>GVT=\$""S2VWION_/<K?VG/?K?""Q6J[])<8"
^XMB(3.9,23,2,2581,0)="""DATA"",396.18,195,3,481,0)"
^XMB(3.9,23,2,2582,0)="MRO43^!LZ1RV$`1`?I""3D)IL@O*<!'?^/K1\G,*'R(T9S>LH@507*/XQFGZX<"
^XMB(3.9,23,2,2583,0)="""DATA"",396.18,195,3,482,0)"
^XMB(3.9,23,2,2584,0)="M;QE$[S?1=MT[<_V5O\`05N(_$B05'!?;)(E""O7?V,8B#VY5_#J+0]!)'D.'("
^XMB(3.9,23,2,2585,0)="""DATA"",396.18,195,3,483,0)"
^XMB(3.9,23,2,2586,0)="M:A06H@ON,0N_SS91LMG&0106M:F_+T3&_%BBCG-A94"".\^C'L7?OTV7+UZ6`"
^XMB(3.9,23,2,2587,0)="""DATA"",396.18,195,3,484,0)"
^XMB(3.9,23,2,2588,0)="M*E6;>:&_TENZKG?/+@BR)+K;1&&""82^]5>PW2&7%'#\)-O7VR%^69*""""YN-Z"
^XMB(3.9,23,2,2589,0)="""DATA"",396.18,195,3,485,0)"
^XMB(3.9,23,2,2590,0)="M%3W52Q9ON46O0Q\LO'M?*UY3I>Y/Y4^M7?G=*7\[VNZGOOMIU-2N""PD2XX1?"
^XMB(3.9,23,2,2591,0)="""DATA"",396.18,195,3,486,0)"
^XMB(3.9,23,2,2592,0)="M=Z#7C@:^U<&W!HCXZW$!-<X'?Q,&WDYF.P$[_=W/0474K<IOC::5(0.Y`*OG"
^XMB(3.9,23,2,2593,0)="""DATA"",396.18,195,3,487,0)"
^XMB(3.9,23,2,2594,0)="M],&W`[C.+?@U*(NOS`E;TK^[V\=';_-4$>).8[&UP%;J\?=)$""?ER_$7J&H%"
^XMB(3.9,23,2,2595,0)="""DATA"",396.18,195,3,488,0)"
^XMB(3.9,23,2,2596,0)="M'I@34!.JV*'OXR]L23XO.4A<>?%2#*-5%/OE7Q^B>!TDWJKQ(H,#.8&82*'!"
^XMB(3.9,23,2,2597,0)="""DATA"",396.18,195,3,489,0)"
^XMB(3.9,23,2,2598,0)="M:N?X>-_8I5^((JAF!6A=T<:!=Q]&<1#O3""@]ZL#EP:8K4($VBSUH'1TW)`!["
^XMB(3.9,23,2,2599,0)="""DATA"",396.18,195,3,490,0)"
^XMB(3.9,23,2,2600,0)="M'81XO""UK:?X9+/UP4:MF#@41*0I`WQ2*??]=?;C6J)'ZO!BG&V`M23@('S1-"
^XMB(3.9,23,2,2601,0)="""DATA"",396.18,195,3,491,0)"
^XMB(3.9,23,2,2602,0)="MP!,<.82&)%Q'#DZ2K""353HL\DC+LR8$-)""O<%L(Y&F-R69];-J>GQ>R43'&S"
^XMB(3.9,23,2,2603,0)="""DATA"",396.18,195,3,492,0)"
^XMB(3.9,23,2,2604,0)="MF5^)XEZ$PM%ALKJ0;%M$EH?"",6""R!J],&R[3YI49P&4&O#):B]$4+;!45O>\"
^XMB(3.9,23,2,2605,0)="""DATA"",396.18,195,3,493,0)"
^XMB(3.9,23,2,2606,0)="M+0QA8[2XI%E:P&U#39=<F)CATKHCEN7=NY_+!SG^_7;E;=`H6OIH]SZ#>UM["
^XMB(3.9,23,2,2607,0)="""DATA"",396.18,195,3,494,0)"
^XMB(3.9,23,2,2608,0)="M,/0BVBQC_-\_`_\SJG\GI1!>2H*5S[H@S14Q=[M5VNT3^CAT;'2[35`8)<C["
^XMB(3.9,23,2,2609,0)="""DATA"",396.18,195,3,495,0)"
^XMB(3.9,23,2,2610,0)="MTPM6'I;GZ6Y]EV$V<>E.AF[N?TEG""*.?[P(L^4W&V6<OQC^%B,\(9BR8X$Z5"
^XMB(3.9,23,2,2611,0)="""DATA"",396.18,195,3,496,0)"
^XMB(3.9,23,2,2612,0)="M\5]^/1KG\CP8QQ6>4;*`U\O!`L\>LO9]/B$:1Q:B`0DQ]690/;,@/EH%B__Z"
^XMB(3.9,23,2,2613,0)="""DATA"",396.18,195,3,497,0)"
^XMB(3.9,23,2,2614,0)="MR_/Y9EM;+K,'B1SV?[9!DO8A0@'&W^;@IY?C^RA;*H27Z%M55ANO?L0=#5V2"
^XMB(3.9,23,2,2615,0)="""DATA"",396.18,195,3,498,0)"
^XMB(3.9,23,2,2616,0)="MCO:XQ3/SVZ+#$0K^7;3Q4;R]?0R2A,RID@?R>1UMDE-<</3@;?ZA&3\0>H6V"
^XMB(3.9,23,2,2617,0)="""DATA"",396.18,195,3,499,0)"
^XMB(3.9,23,2,2618,0)="M[*TU$M(P7D0:=,^)7U(LS>;^&FVYK^7ZJI)N,KTC5:I7L5X`'&U%>2D+4DSX"
^XMB(3.9,23,2,2619,0)="""DATA"",396.18,195,3,500,0)"
^XMB(3.9,23,2,2620,0)="M*!.2_=,88LMU7+1![G9S[V^>,G-3&^*!N1UAO)P48'(G<L7.3V_\&-?WY$2T"
^XMB(3.9,23,2,2621,0)="""DATA"",396.18,195,3,501,0)"
^XMB(3.9,23,2,2622,0)="M1,BLVDE>`4GTO_PJC;]8@E""0F8$U!H5MQ<I1XX,])SZ7X(]&D/K&I$I18PW%"
^XMB(3.9,23,2,2623,0)="""DATA"",396.18,195,3,502,0)"
^XMB(3.9,23,2,2624,0)="M:K_)*FNA3DDQ'=2JX]D)J]Q-M,VTWP\3?Y-J^4/QV0N7:!4MO`0O-+'2%SJ/"
^XMB(3.9,23,2,2625,0)="""DATA"",396.18,195,3,503,0)"
^XMB(3.9,23,2,2626,0)="MP(:[\A\CK7\V(<M@`='ZFQ\;;""R]Q)>B:+2/1#'KWEZ,E]2XNR1/:Q]%=[C_"
^XMB(3.9,23,2,2627,0)="""DATA"",396.18,195,3,504,0)"
^XMB(3.9,23,2,2628,0)="MI]U&R$J).._P)R=EAZ<!^*4YE:AZ*C[8[LR:#R=H.!VCB3T:SBU[^D]$[%*S"
^XMB(3.9,23,2,2629,0)="""DATA"",396.18,195,3,505,0)"
^XMB(3.9,23,2,2630,0)="M_7>VBM1Z/)R;%""35;#2L8PY=>XIL!\UO9B:R+Y%[[;PWG9L&@K(5:`1O^<\I"
^XMB(3.9,23,2,2631,0)="""DATA"",396.18,195,3,506,0)"
^XMB(3.9,23,2,2632,0)="M#;XSJ90`4OR=LI598E'MZNP^!Y09K7QO\X@9H:7&^F*TZ7[:Z(V%R6]2;VL-"
^XMB(3.9,23,2,2633,0)="""DATA"",396.18,195,3,507,0)"
^XMB(3.9,23,2,2634,0)="MZHB-ZCK\;QA]#HG.-.:4%%9=H4ZH+OUJKV91!.38HZ:PZ-V[1>80/>&Z$S6F"
^XMB(3.9,23,2,2635,0)="""DATA"",396.18,195,3,508,0)"
^XMB(3.9,23,2,2636,0)="M(2N[%K>\?KIK8\0R3X>C*C5>'170\0O`#*ZT':=FF&P""3,3#4Q%O20*=291:"
^XMB(3.9,23,2,2637,0)="""DATA"",396.18,195,3,509,0)"
^XMB(3.9,23,2,2638,0)="MJD+K[>GD!GU^\$/\ALQ44!""C]087]Y>G\+`&C9:[4!VS-?5Z8V[\GZ.U'XJ1"
^XMB(3.9,23,2,2639,0)="""DATA"",396.18,195,3,510,0)"
^XMB(3.9,23,2,2640,0)="M%T-]8\;2=`F4SWSC;1^]YOLJ7X[QRZ]RKA]@<@$`%G,7U'""Z=<%%7%D32?SE"
^XMB(3.9,23,2,2641,0)="""DATA"",396.18,195,3,511,0)"
^XMB(3.9,23,2,2642,0)="MY$5(H)CCH;2+7M6[:*<R9]S'%0:5S;LL/SQ=1P1H20M<MHJK6E$.P""@:BEBA"
^XMB(3.9,23,2,2643,0)="""DATA"",396.18,195,3,512,0)"
^XMB(3.9,23,2,2644,0)="M9397WW;/U(_6*R]^9'VG-%!G:*`NJX&ZI`;6_=QY!:EH#CW#U,[,D*Q!*\-("
^XMB(3.9,23,2,2645,0)="""DATA"",396.18,195,3,513,0)"
^XMB(3.9,23,2,2646,0)="M=9TB9H:CKBRO.\A.YEFM=[4Z7F+FM=3,P]_TZC>X6PR8GPQ=A+'VS1!3T^7%"
^XMB(3.9,23,2,2647,0)="""DATA"",396.18,195,3,514,0)"
^XMB(3.9,23,2,2648,0)="M3XL'=.5JX(H6[.2R;G:.GUT.`S`4I'']Y]#XKZ++?[4F`P0NT8LJA"";>K;\:"
^XMB(3.9,23,2,2649,0)="""DATA"",396.18,195,3,515,0)"
^XMB(3.9,23,2,2650,0)="M&$4]H.!0""M)O\4""R#B``T.L`C8FG@/6\/3BL-4T]31C^;HBKMNO;8MFI5FL:"
^XMB(3.9,23,2,2651,0)="""DATA"",396.18,195,3,516,0)"
^XMB(3.9,23,2,2652,0)="MG>XE<%T,`+)-5[DIDGJU,@C56NTF_=](S8`5D&@*P1AB^<NJEBI6AOL.F)H4"
^XMB(3.9,23,2,2653,0)="""DATA"",396.18,195,3,517,0)"
^XMB(3.9,23,2,2654,0)="M&S?<M;\([H(%>QJ2SY&Z'%XR$*TO8K<'R8""])JBNE!.&`-KUE08E6!\6K&'L"
^XMB(3.9,23,2,2655,0)="""DATA"",396.18,195,3,518,0)"
^XMB(3.9,23,2,2656,0)="M@YD6KL\*X!C-Q3#*I;T*8G9@QNC(E9M%Z^W*2_Q1]'@;?0J2AQPHW7Y4#"";D"
^XMB(3.9,23,2,2657,0)="""DATA"",396.18,195,3,519,0)"
^XMB(3.9,23,2,2658,0)="MVT7T9:`&KK7H""A&8V^@+(Z8A@L-CUC0*_5/N0&<P(@.\`CYC(*WTW':G81<8"
^XMB(3.9,23,2,2659,0)="""DATA"",396.18,195,3,520,0)"
^XMB(3.9,23,2,2660,0)="M,RVM1BU[*1BLF14^E04L)-/T[K.%+B5-OSZ7X<F&`F'4GYX2T<M216E\JTW/"
^XMB(3.9,23,2,2661,0)="""DATA"",396.18,195,3,521,0)"
^XMB(3.9,23,2,2662,0)="M#-8:;<""=5KI7M#,B).)/>5.8VUN?Q'J6?N(%F,0_WR#2M=$R\N,TMK?`EL8+"
^XMB(3.9,23,2,2663,0)="""DATA"",396.18,195,3,522,0)"
^XMB(3.9,23,2,2664,0)="M0N1AD#C=JARG$DJW>64_T1LR=!66`1'9O_F)$`E1^MQ%JU7T.:4:A#$V;FGI"
^XMB(3.9,23,2,2665,0)="""DATA"",396.18,195,3,523,0)"
^XMB(3.9,23,2,2666,0)="MF/P1+/WT?;4L^AR$R^CS6<U9>JJ?H:QQD.\M'M`Z+X)MX:-,C8AKO^KX_F.;"
^XMB(3.9,23,2,2667,0)="""DATA"",396.18,195,3,524,0)"
^XMB(3.9,23,2,2668,0)="MUF;I)5Z#E'&&4B'FT3#B@_(6""W^-L:Q6&196T?89FD<Y(6^)Y8*KZJV*""I(="
^XMB(3.9,23,2,2669,0)="""DATA"",396.18,195,3,525,0)"
^XMB(3.9,23,2,2670,0)="M`6O?2U""<^.L8:3\CXTS""LZ@-^#[2QGY/.L!$;""GN#0-F>*1>OHP4Q.E8_)2*"
^XMB(3.9,23,2,2671,0)="""DATA"",396.18,195,3,526,0)"
^XMB(3.9,23,2,2672,0)="MK!#X8KO9X/JMGFJ""/H,]?D0WI""E#;[%0$1""Z(`$3!DG2:WKL*,G^-!?!9K%]"
^XMB(3.9,23,2,2673,0)="""DATA"",396.18,195,3,527,0)"
^XMB(3.9,23,2,2674,0)="MC!,O7!`?)=:H(,0MC-OWT0N#^`YW0R_3[2CK9<L@]KV8Q6=NI4""CLP_'GQZ\"
^XMB(3.9,23,2,2675,0)="""DATA"",396.18,195,3,528,0)"
^XMB(3.9,23,2,2676,0)="MU!^:LAIM-[&/XH!LB\0<^<F_N$P8QV)BN$F[-/[_7%'P=`9K_""/^%2NQ4/J9"
^XMB(3.9,23,2,2677,0)="""DATA"",396.18,195,3,529,0)"
^XMB(3.9,23,2,2678,0)="M90#S@>CDA!E8-1AB/JR.J07S[^XPWK31&74^*6M=_FB*@2+#""JM5@<18V,U("
^XMB(3.9,23,2,2679,0)="""DATA"",396.18,195,3,530,0)"
^XMB(3.9,23,2,2680,0)="M/LT<^V)B7E'!K9JQ8`:I=FAJ+_*0&PF>V5/7G#>B=(=@'EG.Z/K*G0^G(]--"
^XMB(3.9,23,2,2681,0)="""DATA"",396.18,195,3,531,0)"
^XMB(3.9,23,2,2682,0)="M@X'6U)I;PPFZ&DZM2PR=1@9=0I0.V/4:\3H5LO:UXYK(M3!9H%9P/]Z/TK7C"
^XMB(3.9,23,2,2683,0)="""DATA"",396.18,195,3,532,0)"
^XMB(3.9,23,2,2684,0)="MF-,YFCOF<'Z%?[D0)8-'J18!TNIA&^E6--V18\V(/$EC-CC[A_M#,ZZJ@6(N"
^XMB(3.9,23,2,2685,0)="""DATA"",396.18,195,3,533,0)"
^XMB(3.9,23,2,2686,0)="ME5^V<RHSZUIC$YF7E^9H[DIQRZ<O9#^M[&&2O2`*M>.Z*<L<O1PS_7V9&8['"
^XMB(3.9,23,2,2687,0)="""DATA"",396.18,195,3,534,0)"
^XMB(3.9,23,2,2688,0)="M%FECW(=&]E53Y:K(*U,=1/%2CU[GO)\WR1TC0,Y8W`L#W;42)#Z+)^&`.WS`"
^XMB(3.9,23,2,2689,0)="""DATA"",396.18,195,3,535,0)"
^XMB(3.9,23,2,2690,0)="M<)63[G=1[^A,,#`$`,[[^\POO6]EO9+W*AN8:E8BH,S`8;,B@/\Z8PY8"":)Z"
^XMB(3.9,23,2,2691,0)="""DATA"",396.18,195,3,536,0)"
^XMB(3.9,23,2,2692,0)="M_+X$0260P`4(62`I%B`I-GD0R)'G<]+J:DZM#\MML2WNI!\*VE<*:\*Y^WX("
^XMB(3.9,23,2,2693,0)="""DATA"",396.18,195,3,537,0)"
^XMB(3.9,23,2,2694,0)="MJB/O?AC@L?4@7,8Q<-4A=FMLLFYX\/[$""R9ODZX-@O`NVCQZV9)YO2(+`G2'"
^XMB(3.9,23,2,2695,0)="""DATA"",396.18,195,3,538,0)"
^XMB(3.9,23,2,2696,0)="M%P[Q`]EXE=H@/)L,XBI@L1TS@RMV8_I?O,<@S':G579J2)[`J9UN/:=""[%DC"
^XMB(3.9,23,2,2697,0)="""DATA"",396.18,195,3,539,0)"
^XMB(3.9,23,2,2698,0)="M""8+'=1=ML2M#%#?.-'D@]!VK.Z1[BCCEW='-)S_8FF\L%87*VXQ0>5LV<-B6"
^XMB(3.9,23,2,2699,0)="""DATA"",396.18,195,3,540,0)"
^XMB(3.9,23,2,2700,0)="M#)7KO,T:DM@YL6]=K$SYZ%HW5+FQRW9<5?Q9;5;84/*4$GL[1Y\?\&USMG,4"
^XMB(3.9,23,2,2701,0)="""DATA"",396.18,195,3,541,0)"
^XMB(3.9,23,2,2702,0)="M]E*CS!UB`N!^?XDKL_%6_!&W(Q7*;>""VPOLM[NF'(:^XTNF:4=BYD-4ZRO%1"
^XMB(3.9,23,2,2703,0)="""DATA"",396.18,195,3,542,0)"
^XMB(3.9,23,2,2704,0)="M*@@/')RU-/;O7^ZF%5<7]H7]&V;,_&U.""MAD^=UP;9/!66?.#W8JJ'/DQB'Z"
^XMB(3.9,23,2,2705,0)="""DATA"",396.18,195,3,543,0)"
^XMB(3.9,23,2,2706,0)="M$:_G@09_;K)6N`CBU(WX+)1YS;\3,Q>L*AB1YE%UX5<&5*5Z=79`H+5)MZWL"
^XMB(3.9,23,2,2707,0)="""DATA"",396.18,195,3,544,0)"
^XMB(3.9,23,2,2708,0)="MS$U-Q\KW3*:ALQ;/H?PO)`GVVJA56QME#N^FF;HH1'-.G_.`G<;%MO)TEWTZ"
^XMB(3.9,23,2,2709,0)="""DATA"",396.18,195,3,545,0)"
^XMB(3.9,23,2,2710,0)="M?K+.N\'VMY&HX[38F?W!=*;6$/1=::6'Z</0R<^LU`[8#,>6_=ZQKV>X.<P)"
^XMB(3.9,23,2,2711,0)="""DATA"",396.18,195,3,546,0)"
^XMB(3.9,23,2,2712,0)="M7G^;>!5L7K'I5O\H_`UU+B3P4SR9T[%U""4K!$$BAQDTA$\><#2T'E(D!R*1)"
^XMB(3.9,23,2,2713,0)="""DATA"",396.18,195,3,547,0)"
^XMB(3.9,23,2,2714,0)="MGW#95J-=./N@G?(5=`+""5^:5K9]-K*GIRE,NW""C@@8`J1@GBFJ%(W3'=Z\G<"
^XMB(3.9,23,2,2715,0)="""DATA"",396.18,195,3,548,0)"
^XMB(3.9,23,2,2716,0)="M1=9T-+D>6]/WI<_)O;F:S>TKM\%.20/DI[&`;--.E)SN6]F'Z4N1F;L)72F:"
^XMB(3.9,23,2,2717,0)="""DATA"",396.18,195,3,549,0)"
^XMB(3.9,23,2,2718,0)="MI""NES7""E@+8$^&ZPOE,SNXZTJT4S#K3FSV:<F;(6;F+1U==-FJZ(E'D,C[-T"
^XMB(3.9,23,2,2719,0)="""DATA"",396.18,195,3,550,0)"
^XMB(3.9,23,2,2720,0)="MLL+_;#=/OSL^V>VQS-/9B-9-`\:Z:2""[;AI(KIL&>ZV;!K+KIH%XW93N`19O"
^XMB(3.9,23,2,2721,0)="""DATA"",396.18,195,3,551,0)"
^XMB(3.9,23,2,2722,0)="MO=5;[$]U!YQTU@9P`299F+T`TSK\%=A`N*%>Z]#G+L290V347==5L<H[""N87"
^XMB(3.9,23,2,2723,0)="""DATA"",396.18,195,3,552,0)"
^XMB(3.9,23,2,2724,0)="M9((S\S<!)N1O'T4*KK48&M[,;\%2PAHD9QM]2[B-'LB^P=JFHVD2OE>]K[YY"
^XMB(3.9,23,2,2725,0)="""DATA"",396.18,195,3,553,0)"
^XMB(3.9,23,2,2726,0)="MN58?WD[\EJP[@JH1L_=U.)OBM:ZX:^KL3X98A""S?,25#VG7<&#CZK,XLG8L%"
^XMB(3.9,23,2,2727,0)="""DATA"",396.18,195,3,554,0)"
^XMB(3.9,23,2,2728,0)="MVO>>YEE[`2UE:8R<[KVL7CU_`[*#`(;0?C&Z.M\LMI71,NTB`I[9AQO7&@TG"
^XMB(3.9,23,2,2729,0)="""DATA"",396.18,195,3,555,0)"
^XMB(3.9,23,2,2730,0)="MR/QM>,5T*IMH:MJSR=""]>BMU""$G36`94DU9-3=:`[N==U31IQ=-5CL+IS*-P"
^XMB(3.9,23,2,2731,0)="""DATA"",396.18,195,3,556,0)"
^XMB(3.9,23,2,2732,0)="MTNF/V(.WWA4D:]7$Q^&Z8H7:8[:J=Y31'N+H)RK)F*S2BL@Z#J=)GP[2I`_$"
^XMB(3.9,23,2,2733,0)="""DATA"",396.18,195,3,557,0)"
^XMB(3.9,23,2,2734,0)="M&?LIHOP9-T/""`F:![:X@_EWSNK>5P#5%\(X:N!KO6D\-?*`$KK>4P`TUR1AJ"
^XMB(3.9,23,2,2735,0)="""DATA"",396.18,195,3,558,0)"
^XMB(3.9,23,2,2736,0)="M537Z:JVJQGM;$X'GZWU=X`\0^1,Z@N]=P?>>X'M?/""?L,6VT;+*Y8V329J<I"
^XMB(3.9,23,2,2737,0)="""DATA"",396.18,195,3,559,0)"
^XMB(3.9,23,2,2738,0)="M`!(NP.E[H2WU7<Z.DSJ""TB,<A""3Y4.)3+N',':R8#ZEF3+CTZ;]_9/&3;N&D"
^XMB(3.9,23,2,2739,0)="""DATA"",396.18,195,3,560,0)"
^XMB(3.9,23,2,2740,0)="M7-0<GBB4S5Q'U<]@=(>6+D+\=+\<7_?$<N<7]F]=CGM9@!U^S_)M5W2N]&V3"
^XMB(3.9,23,2,2741,0)="""DATA"",396.18,195,3,561,0)"
^XMB(3.9,23,2,2742,0)="MQF!3WU4:YI6*XNW+JSW'7.:<HLJ.Q<86-KVR`31G$N%):\I!&A@IO+""52!Q5"
^XMB(3.9,23,2,2743,0)="""DATA"",396.18,195,3,562,0)"
^XMB(3.9,23,2,2744,0)="MV9HYW37^GIS/G6NS8'SFV/A/M\YWDP&VM(7\U\;5@_EWS/'UR+J8F&(]T=JJ"
^XMB(3.9,23,2,2745,0)="""DATA"",396.18,195,3,563,0)"
^XMB(3.9,23,2,2746,0)="MG.<Q4#V+@1[*JFO];T6AD35%H]JF9YJ>JF1[QY6LY1:<.N85%MF0""-EVD#TS"
^XMB(3.9,23,2,2747,0)="""DATA"",396.18,195,3,564,0)"
^XMB(3.9,23,2,2748,0)="M'?*;)^G>83HR.&Y-/@Q=A#MH49T+TYQB73<_6O:U.[G)PU7FF%>AP6$5.G*G"
^XMB(3.9,23,2,2749,0)="""DATA"",396.18,195,3,565,0)"
^XMB(3.9,23,2,2750,0)="MQ71FMCM/6V)N?31_0KBQK#FNX'#""K\=AG;>MO4P]'#,/8O&LOG98DW2.WEN&"
^XMB(3.9,23,2,2751,0)="""DATA"",396.18,195,3,566,0)"
^XMB(3.9,23,2,2752,0)="MB%A/$HH;6Z/AG-\0G8.XKTW9C\%]I8-\,B<3Y%[/9K:#^4,7-^G'M'*<*A&>"
^XMB(3.9,23,2,2753,0)="""DATA"",396.18,195,3,567,0)"
^XMB(3.9,23,2,2754,0)="M#JA2;>)_G`:Y,""=SJ?8@U`]AOOWR[4'JQJO1OJ-=^TBCG?G1=*SY#1GQ/IG#"
^XMB(3.9,23,2,2755,0)="""DATA"",396.18,195,3,568,0)"
^XMB(3.9,23,2,2756,0)="M?YM3$IS&?UQ=NZ/KR=`I:D3>#2_&]I5%-O]_&DXFX*#8EAT4<_C.<:J!<9!@"
^XMB(3.9,23,2,2757,0)="""DATA"",396.18,195,3,569,0)"
^XMB(3.9,23,2,2758,0)="M.L1W62N0WXXBO[UG%OOET!V1$TIJ4N\IUJ)[;*G7V>8+O:O(;O_8[.)IDCL?"
^XMB(3.9,23,2,2759,0)="""DATA"",396.18,195,3,570,0)"
^XMB(3.9,23,2,2760,0)="MNI:;[8,9S:U4;^JS)9J\ZBA\?.._8QL/Q?@_<\'8*V?J77->W7=B%/M..+R\"
^XMB(3.9,23,2,2761,0)="""DATA"",396.18,195,3,571,0)"
^XMB(3.9,23,2,2762,0)="MW>]1V61BM,X6=<>#,#<E4(9[R1?G[$M7*=^1(?9T'.:)?%;7HJ(WSWA6EVZ["
^XMB(3.9,23,2,2763,0)="""DATA"",396.18,195,3,572,0)"
^XMB(3.9,23,2,2764,0)="MF3-'T;'(SDK5!AJ5G?(*]A[5W7RWA1N2`@#)=UGD0>>5IL)L6Q,R6^>%""0]>"
^XMB(3.9,23,2,2765,0)="""DATA"",396.18,195,3,573,0)"
^XMB(3.9,23,2,2766,0)="M,M)2X:8^\15A-Y0:QA""[]:3]CVF8MF?(1&E[@BAMS:G;#`:W.@(RA3ZU!>?N"
^XMB(3.9,23,2,2767,0)="""DATA"",396.18,195,3,574,0)"
^XMB(3.9,23,2,2768,0)="M=G#4KN,FP9XDP9XDP9Z(X$""28%^28%]$L,LW%J6?7PZ*<9`S(]670M*5A)+9"
^XMB(3.9,23,2,2769,0)="""DATA"",396.18,195,3,575,0)"
^XMB(3.9,23,2,2770,0)="MJ'BP*01&2KAG-$^P,'L0>)B""&EEU81]C[0;JR>S:8->@QMIS]W!9UC@G=""BY"
^XMB(3.9,23,2,2771,0)="""DATA"",396.18,195,3,576,0)"
^XMB(3.9,23,2,2772,0)="M:6HX&2>*#D').+,B;EW:MD'Y5TN3);%[I]630]:30C:00]8_3/<:HGNU_*^6"
^XMB(3.9,23,2,2773,0)="""DATA"",396.18,195,3,577,0)"
^XMB(3.9,23,2,2774,0)="M_^M9?B`VVC`,DJL?YA&P""D+<`[076$^!2=RD9WQ_I46@""#\#_'4Z^VK47HT:"
^XMB(3.9,23,2,2775,0)="""DATA"",396.18,195,3,578,0)"
^XMB(3.9,23,2,2776,0)="MO#,O'X%9F_'>0@>XV]P#W)4=1'3NRA=I,\;)[Y*I7WZ5XXHUYZ&8`CUL''E\"
^XMB(3.9,23,2,2777,0)="""DATA"",396.18,195,3,579,0)"
^XMB(3.9,23,2,2778,0)="M'5E`3=BCFK#)<4_<@L_4%9I)9""B6^.W7EVF_+IS?64#XI4T""I_'ZHO[7Y[3>"
^XMB(3.9,23,2,2779,0)="""DATA"",396.18,195,3,580,0)"
^XMB(3.9,23,2,2780,0)="M<TZ9(""X8#<9D0[9/]5_:>K*ON0.F&-068*%7590^"":322)_T7,Y;""0G4=[5("
^XMB(3.9,23,2,2781,0)="""DATA"",396.18,195,3,581,0)"
^XMB(3.9,23,2,2782,0)="M2:#+3ZK`<>SF.]0%`H.VVJAQ)9Z]""O-423F<53W.O%L=[H%`B51[4,YJ*8V$"
^XMB(3.9,23,2,2783,0)="""DATA"",396.18,195,3,582,0)"
^XMB(3.9,23,2,2784,0)="M]IFHD1%+#':*RW3*OKH(#/5.V=]#!*#C7M5S3UW3V3C-T1>?YC`D3G,T\/:4"
^XMB(3.9,23,2,2785,0)="""DATA"",396.18,195,3,583,0)"
^XMB(3.9,23,2,2786,0)="M\2K?FV0O%MNUER=U-K.\KW+9K[JB`]<&]RH""#D_#\42-E;;1O!P/RNO/N::4"
^XMB(3.9,23,2,2787,0)="""DATA"",396.18,195,3,584,0)"
^XMB(3.9,23,2,2788,0)="M:>ZI-&JUWJ*=Q?41C`>NJX$;:N!M-?"".&GA7#;RG!MY7`Q\H@1LM)?""N8E6U"
^XMB(3.9,23,2,2789,0)="""DATA"",396.18,195,3,585,0)"
^XMB(3.9,23,2,2790,0)="M^IR'KP(*P(8*<%L%N*,""W%4![JD`]U6`!PK`1DL!N`M4$'0R#8#,L(#[A8+)"
^XMB(3.9,23,2,2791,0)="""DATA"",396.18,195,3,586,0)"
^XMB(3.9,23,2,2792,0)="MLFL`IV>%%R>SIKERNIA;02E5%,,:""K!M!=B.`FQ7`;:G`-M7@!W(PQHM>=@N"
^XMB(3.9,23,2,2793,0)="""DATA"",396.18,195,3,587,0)"
^XMB(3.9,23,2,2794,0)="MMVYU-0-`FEI&9Q`&$U/TN#=3C[\T+UX@G-""W-:.39AGH;H/`NP^C.(C/Z*-("
^XMB(3.9,23,2,2795,0)="""DATA"",396.18,195,3,588,0)"
^XMB(3.9,23,2,2796,0)="M[)RFFC!]?TIL]QN^#[J2R3Z[1""#,;K!`Y-_JU,=;),&?^),OP:*HGXHY'9/;"
^XMB(3.9,23,2,2797,0)="""DATA"",396.18,195,3,589,0)"
^XMB(3.9,23,2,2798,0)="M2&B&,D[1-MYB;I9>L'JJ\/0O(4\8+RO#_O@+JP3$:]%2Y./8&KZ?VND>1`>9"
^XMB(3.9,23,2,2799,0)="""DATA"",396.18,195,3,590,0)"
^XMB(3.9,23,2,2800,0)="M<\N>V._3_:!0HOVJ<E#,YF?G@>R0K5IF+NIA,-5X]6.9]Q\-7=<>662#-OID"
^XMB(3.9,23,2,2801,0)="""DATA"",396.18,195,3,591,0)"
^XMB(3.9,23,2,2802,0)="MS3^DFYO+.L""9U5K-Y/TT&U!*<!$_609T9$_1M7L]G""![-+J>-3-ZP:K.2GZ?"
^XMB(3.9,23,2,2803,0)="""DATA"",396.18,195,3,592,0)"
^XMB(3.9,23,2,2804,0)="M0[<E$LN+^)M_2'=JNL,+:V+-;]ZXR+J:#3..=[R2V\E'<^NC-;=,,&M_6S''"
^XMB(3.9,23,2,2805,0)="""DATA"",396.18,195,3,593,0)"
^XMB(3.9,23,2,2806,0)="M?%ZL<X0:9,G*R(;D3[;S;U`?86IRB?!;O.3S(MZR(WQE[GXYD5)D&4PJ\#!T"
^XMB(3.9,23,2,2807,0)="""DATA"",396.18,195,3,594,0)"
^XMB(3.9,23,2,2808,0)="M3*+]#G6'`.D.15<I=7,\M""8W+*ZXEHZEJ(TY25EJOF]SH]$'V^'RIFN*[=R8"
^XMB(3.9,23,2,2809,0)="""DATA"",396.18,195,3,595,0)"
^XMB(3.9,23,2,2810,0)="M#1V!2_>#/9LU=I0S"">W#IW$,/LW?3&=DN2:/3^,P/H]AII!+-NIS6[U]$)?="
^XMB(3.9,23,2,2811,0)="""DATA"",396.18,195,3,596,0)"
^XMB(3.9,23,2,2812,0)="M[C&X=,P1N90#/.S*)*4JSV,8331WAA_-B4!!.P<Q:K2.P>BE:8[Y;-;IJ,IS"
^XMB(3.9,23,2,2813,0)="""DATA"",396.18,195,3,597,0)"
^XMB(3.9,23,2,2814,0)="M<`PV+X9X).5+<W`8F_UCL#G&IM,5\-D_C,_>4=33MB;F7,!H[S!&C]+CWSLV"
^XMB(3.9,23,2,2815,0)="""DATA"",396.18,195,3,598,0)"
^XMB(3.9,23,2,2816,0)="M.>[$Y5.UOY-S+0,Z9:MJ,Q?I8],)2#-;ZV""7K%7,BG$0*\([>""H4Q),=,C?J"
^XMB(3.9,23,2,2817,0)="""DATA"",396.18,195,3,599,0)"
^XMB(3.9,23,2,2818,0)="MELM.B.#1KN#I-D[GB""_AZ8+WF<`3J*9G4<V[K.9<5O,MJ[F6U3S+:HYE-;^R"
^XMB(3.9,23,2,2819,0)="""DATA"",396.18,195,3,600,0)"
^XMB(3.9,23,2,2820,0)="MFEM9S:NLYE16\RDWSX(`.85.@""U:^:(U^[ZH>RK);X/U8<#ZT'Y5Q5=5E(IN"
^XMB(3.9,23,2,2821,0)="""DATA"",396.18,195,3,601,0)"
^XMB(3.9,23,2,2822,0)="MJ`0W5&(;*J$-E<B&2F!#):ZA$M90B6JH!#548AH2@0N9N$73.P=[@\ZK/KTF"
^XMB(3.9,23,2,2823,0)="""DATA"",396.18,195,3,602,0)"
^XMB(3.9,23,2,2824,0)="M=(<##09?R,7IK)NQ+^JF\Y=?3]W@/B17.GEA4@23H9O#+^J,GY\RP$0IV2L7"
^XMB(3.9,23,2,2825,0)="""DATA"",396.18,195,3,603,0)"
^XMB(3.9,23,2,2826,0)="M`K7H@X2I+!L-#7)2P$!G+[,FT?DP!:]""1+N-W2!,[H]J@,""7J5\TQRX9^=-R"
^XMB(3.9,23,2,2827,0)="""DATA"",396.18,195,3,604,0)"
^XMB(3.9,23,2,2828,0)="MJ6XC8(@%`*D)A8FD(T)B=#D0-7'0V^98^T(ZBCLDI#:%'`4IV7YQ?GZ.S,?U"
^XMB(3.9,23,2,2829,0)="""DATA"",396.18,195,3,605,0)"
^XMB(3.9,23,2,2830,0)="M*GHBU_JB<^:#>;BD[V376_C1F@?9JT<8TI3[+5W'5K;*3V.K3P.UK@\ZC(1^"
^XMB(3.9,23,2,2831,0)="""DATA"",396.18,195,3,606,0)"
^XMB(3.9,23,2,2832,0)="M0M1Y9:M9?'=5W#52?C=(^@43P6N<^LZA/)TEYJ5YO=FE-/1NTZA""&7CK5*[G"
^XMB(3.9,23,2,2833,0)="""DATA"",396.18,195,3,607,0)"
^XMB(3.9,23,2,2834,0)="MNJ973PZP;D?"":(T6?\-?B;""E\Q%F@!AC3Y.CK/<D*>NB/8E%""DV,M)JE.A&`"
^XMB(3.9,23,2,2835,0)="""DATA"",396.18,195,3,608,0)"
^XMB(3.9,23,2,2836,0)="MZES0LCY]%?(MB3NI).H.-']+L`6R%%>W+8""TG>(^UYH4I*!%AY)*/OI]`>92"
^XMB(3.9,23,2,2837,0)="""DATA"",396.18,195,3,609,0)"
^XMB(3.9,23,2,2838,0)="M&(9\TO`47""PL0W:_:+6(=,T&(@GO5()@5@-N'JLYKEPK@""39?TJU)P]8LD=N"
^XMB(3.9,23,2,2839,0)="""DATA"",396.18,195,3,610,0)"
^XMB(3.9,23,2,2840,0)="M0A;KK$BFI7$]5[&MU?RB""O9R&LF92YY0C9:2LAHM*7O*UPO:K,D`\Y6H;J2Y"
^XMB(3.9,23,2,2841,0)="""DATA"",396.18,195,3,611,0)"
^XMB(3.9,23,2,2842,0)="M2M13ZYP]-4LF;?>%E:[8,;9YK)MS(=:6&@LLN==PBIM'E^WC`[7F&3Q3,^_7"
^XMB(3.9,23,2,2843,0)="""DATA"",396.18,195,3,612,0)"
^XMB(3.9,23,2,2844,0)="MCQG7$K[P[(MG;%_MPC,I3'4X\U7'ZF]E+G30`/O_9E[%,N.'&-Q7#9"":`>XU"
^XMB(3.9,23,2,2845,0)="""DATA"",396.18,195,3,613,0)"
^XMB(3.9,23,2,2846,0)="M9Y,?H)]IT'VA8?+=NQI-W#ZKGB9+\M"")$WO*0%^R<,``S!MOSU^'V]?A]G6X"
^XMB(3.9,23,2,2847,0)="""DATA"",396.18,195,3,614,0)"
^XMB(3.9,23,2,2848,0)="M?1UN7X?;U^'V&UV5BL?0W0AXR2M4S>K`1=WZ.DMZP""'&J(4D@SS?]8""948MQ"
^XMB(3.9,23,2,2849,0)="""DATA"",396.18,195,3,615,0)"
^XMB(3.9,23,2,2850,0)="MO?U?Q?$!-+;C)\%&Y%VHW_S)G>VT]@CMM)1"".Z*`!-O$)AQO6[?-QPJ:5IZ:"
^XMB(3.9,23,2,2851,0)="""DATA"",396.18,195,3,616,0)"
^XMB(3.9,23,2,2852,0)="M&,HACK^AU[[0KW,%]9)S;[=4W-O""`>&%8D+""Z<'?>@H'](*]](/I-JTNY/:R"
^XMB(3.9,23,2,2853,0)="""DATA"",396.18,195,3,617,0)"
^XMB(3.9,23,2,2854,0)="M;*HJ]ZIPKZ'/;S+T>8A=!KPF>Z%[[6NO?>WOVM?8786K7LW9LD@;P1SN<""44"
^XMB(3.9,23,2,2855,0)="""DATA"",396.18,195,3,618,0)"
^XMB(3.9,23,2,2856,0)="M)ZO-69B0=05FCJVIBMQBR5WYY#+8%?K'^N$I3G^MLUQ(/[!JH+?:DN+L'$6<"
^XMB(3.9,23,2,2857,0)="""DATA"",396.18,195,3,619,0)"
^XMB(3.9,23,2,2858,0)="MAW+(E7%'3<:=`V4</RT>`B_9!`N)2L@NL;I'%O/>3'(EW563=!?,CGUYZ/#T"
^XMB(3.9,23,2,2859,0)="""DATA"",396.18,195,3,620,0)"
^XMB(3.9,23,2,2860,0)="MO`R_O#)^-1-3->;7H2^U/\-0FOL82NZ005MV?V8+]%W!2&4'#@'QBH#.5>0C"
^XMB(3.9,23,2,2861,0)="""DATA"",396.18,195,3,621,0)"
^XMB(3.9,23,2,2862,0)="MY0(PI-(<_D7F$P-0-6.!2""54LWU<D0-.PN?8<DXENJ&XVYU<MO)6+8^W+.T9"
^XMB(3.9,23,2,2863,0)="""DATA"",396.18,195,3,622,0)"
^XMB(3.9,23,2,2864,0)="M7FK\L<6T,`?D>?<.D==KM""E?+QZ\\-Y?9L=D)(GD70P!3W'<IL@6=#K#+1'["
^XMB(3.9,23,2,2865,0)="""DATA"",396.18,195,3,623,0)"
^XMB(3.9,23,2,2866,0)="MZ-9'\7;CHR1""0;A8;9<^\E`QE-CK(`RB\.STQ^(<[>['Z?S!1V^NO)!@FY.V"
^XMB(3.9,23,2,2867,0)="""DATA"",396.18,195,3,624,0)"
^XMB(3.9,23,2,2868,0)="M\A(_?H.V2;`*DB=T%VW#)<+_RW,SO;'7)/,1AKA-VP%Y2?K^-L)_/18IF^+%"
^XMB(3.9,23,2,2869,0)="""DATA"",396.18,195,3,625,0)"
^XMB(3.9,23,2,2870,0)="MQO=#M/!""PMDVQH+`G'G+99,KE.1$STZ+ZOE%1#W3));$SV6$2=""D^%+AD<,%"
^XMB(3.9,23,2,2871,0)="""DATA"",396.18,195,3,626,0)"
^XMB(3.9,23,2,2872,0)="M/Y</43+D^/?;E;=!HPC+;/>M=.#\WWP2BTN""2O-LX==0N%9DEOA[HUQU@>P^"
^XMB(3.9,23,2,2873,0)="""DATA"",396.18,195,3,627,0)"
^XMB(3.9,23,2,2874,0)="M3TCPIT`N@0`J(2%UH40\/#&5)Q8C$A0\(?FZN@!M0SN=&;=Q**;EIA8!TR0P"
^XMB(3.9,23,2,2875,0)="""DATA"",396.18,195,3,628,0)"
^XMB(3.9,23,2,2876,0)="MI<""2$SY?&&)$""M!VW*JQI5HB;(>$JBUV[9BF^6>#$E1J!6A[#`FN,R#L.C__"
^XMB(3.9,23,2,2877,0)="""DATA"",396.18,195,3,629,0)"
^XMB(3.9,23,2,2878,0)="M$$P7PK,;Z+0R1.;&3,R@]`Q,_XA][B6)27HX-K.##\&""9%]@#H'D+AIE1(*9"
^XMB(3.9,23,2,2879,0)="""DATA"",396.18,195,3,630,0)"
^XMB(3.9,23,2,2880,0)="M#Z2B)`/H7DC9F5F6""LP0T%/.BH'AG)B+R)[4C3!HYB2U%,:1LM'R"":D.17.J"
^XMB(3.9,23,2,2881,0)="""DATA"",396.18,195,3,631,0)"
^XMB(3.9,23,2,2882,0)="M`M#$\E2%O-0R8*`G%H,JFK3\(D@P^A?`70]R.[2)``!02P,$%``""``@`C%,?"
^XMB(3.9,23,2,2883,0)="""DATA"",396.18,195,3,632,0)"
^XMB(3.9,23,2,2884,0)="M-=WL<:]\!@``/"",``""4```!$:6=E<W1I=F5?0V]N9&ET:6]N<U]-:7-C7S$Q"
^XMB(3.9,23,2,2885,0)="""DATA"",396.18,195,3,633,0)"
^XMB(3.9,23,2,2886,0)="M,RYP;FPN<F5PO5E;;]LV%'X/D/]`(`_KA@:1*=N)ARP%0]$V-XG4>$GF#<70"
^XMB(3.9,23,2,2887,0)="""DATA"",396.18,195,3,634,0)"
^XMB(3.9,23,2,2888,0)="MH7THL""[#U@'[^2,IZV:)$ND""RU.BD#S?.?S.E9@7)6$2*<H90""P#]B_[._D)"
^XMB(3.9,23,2,2889,0)="""DATA"",396.18,195,3,635,0)"
^XMB(3.9,23,2,2890,0)="M%92Y[Y<7&=T1J>@3`9BSC-J/\C4HJ,0DSQ$C7,O+B^\""?BXO[N^Y5J56?+M]"
^XMB(3.9,23,2,2891,0)="""DATA"",396.18,195,3,636,0)"
^XMB(3.9,23,2,2892,0)="M>``W-Z#DI2[!EHL""_%+)^;5\]\>'W^';T\7W]Y1EA!W_NKHZKBX^?'I9)?9G"
^XMB(3.9,23,2,2893,0)="""DATA"",396.18,195,3,637,0)"
^XMB(3.9,23,2,2894,0)="M<775?L;E<R'>O?_XLOOKY9\_JP7IW`)H%EQ>""/)$R3/@6U""0C&*4`T$P%]F4"
^XMB(3.9,23,2,2895,0)="""DATA"",396.18,195,3,638,0)"
^XMB(3.9,23,2,2896,0)="MDCZPL`N5O/_X>57+&7ZU\+[YLI]X&/?W@Z\/#W''I*/'I+''_!]&849R$""H?"
^XMB(3.9,23,2,2897,0)="""DATA"",396.18,195,3,639,0)"
^XMB(3.9,23,2,2898,0)="M._#UEN8$/""/Y+6B5'ET=J+^/J""?<`\]$D#F9::AZ?:?!O""C,""JN2W5VM7[J]"
^XMB(3.9,23,2,2899,0)="""DATA"",396.18,195,3,640,0)"
^XMB(3.9,23,2,2900,0)="MP_4C(HP;$Q,[&O\U(2%?#!W8X^UN]6!Q""Y44/#4HP_0Z+NX@=U\<Z!,>]./)"
^XMB(3.9,23,2,2901,0)="""DATA"",396.18,195,3,641,0)"
^XMB(3.9,23,2,2902,0)="MY45M\#V5BHO#P-F]""-U-H(SRG>""Z#(4ZV`6H!&IO;AF@&H.-07LN2ZI03G^N"
^XMB(3.9,23,2,2903,0)="""DATA"",396.18,195,3,642,0)"
^XMB(3.9,23,2,2904,0)="MHC070&JQ(^+PYI0-[6GCE^2U_L(;;)<#ZZX,4JF+`E7P4)Z?0I0NDU0@*>FS"
^XMB(3.9,23,2,2905,0)="""DATA"",396.18,195,3,643,0)"
^XMB(3.9,23,2,2906,0)="M:MUCE3LOE%`3'.EKGYYU`ZGW!I1`ND!`<?M/T""9#>9""*%/Y;2.-N81U^""0M["
^XMB(3.9,23,2,2907,0)="""DATA"",396.18,195,3,644,0)"
^XMB(3.9,23,2,2908,0)="M"">I0DM<@Y[C-WAE2I$4\;?A%J.'7H7:'9]D=>NUN""HLR1W+""PC""2YZLP$_>%"
^XMB(3.9,23,2,2909,0)="""DATA"",396.18,195,3,645,0)"
^XMB(3.9,23,2,2910,0)="M+""TS3,!WMZ]T81RP,%S?,<24']IR*A8/O<I:P=1<6!E^H1WCTIC$7J05-^-`"
^XMB(3.9,23,2,2911,0)="""DATA"",396.18,195,3,646,0)"
^XMB(3.9,23,2,2912,0)="M,%20B6_*QIF:)8VD;EIQBV*@+S9'+LJ&@A5T09""R:06\H@SG.J-L5T>NKV>H"
^XMB(3.9,23,2,2913,0)="""DATA"",396.18,195,3,647,0)"
^XMB(3.9,23,2,2914,0)="MN8E1*>VH9.BB6LFG>J4QQW9NI'NXN71Z)*:BV""]KZE;6`QM:81F16-""R""O(="
^XMB(3.9,23,2,2915,0)="""DATA"",396.18,195,3,648,0)"
^XMB(3.9,23,2,2916,0)="M^[V2?7/=#<P%0T/H*M25EV>Y\M*?Q(A@%+GK/Q8U):)BPGOB'!M&A,[E2/YJ"
^XMB(3.9,23,2,2917,0)="""DATA"",396.18,195,3,649,0)"
^XMB(3.9,23,2,2918,0)="MT1ERSG!S&6AL&&KKS5FVWGAM3=GWVOXFP#/7!I4@N2%P9O-7I:C?[)LXLV_>"
^XMB(3.9,23,2,2919,0)="""DATA"",396.18,195,3,650,0)"
^XMB(3.9,23,2,2920,0)="MAL>=KI=6""&\<O$'LB8J;,#D&GY%C)RX1)E%""7''6.;PRJ:UT]K1L[3HC,[1R"
^XMB(3.9,23,2,2921,0)="""DATA"",396.18,195,3,651,0)"
^XMB(3.9,23,2,2922,0)="MWH029Y&<5VHF_DI'/Q*!==ZD'Y/Q2E/$F8*9Z(D\O$@B$W$2P9Q54,I:167!"
^XMB(3.9,23,2,2923,0)="""DATA"",396.18,195,3,652,0)"
^XMB(3.9,23,2,2924,0)="M=7TF92;""TR>J#B[%FYB+]V1(RG447V!-RO&$.,,3&""7+^A760MA$*P]%J7@Q"
^XMB(3.9,23,2,2925,0)="""DATA"",396.18,195,3,653,0)"
^XMB(3.9,23,2,2926,0)="M4W'#-#1=)--=&5Q&=&5V,>""6<T"":VHEN31XPD(_DF^@\W5[;2X.9_JW<'Z1+"
^XMB(3.9,23,2,2927,0)="""DATA"",396.18,195,3,654,0)"
^XMB(3.9,23,2,2928,0)="M+G9V==*]A7K4F<V;#1#(.%/E4H)(FFF4-RY4%[(V)E/UE6RI,.%2L3U<1`Z$"
^XMB(3.9,23,2,2929,0)="""DATA"",396.18,195,3,655,0)"
^XMB(3.9,23,2,2930,0)="MJV&YT6!LT5OV]N'.$&MU_FS`9]GS>HK%L:E`=6HOC5;3YHYM)=*(ECGMEQP5"
^XMB(3.9,23,2,2931,0)="""DATA"",396.18,195,3,656,0)"
^XMB(3.9,23,2,2932,0)="MIM.R;EC8!_MI.N.G=S%^>F>Y_,B,QL:5&I_:FN6F@)>]+*%EG1VHHG+&A^^&"
^XMB(3.9,23,2,2933,0)="""DATA"",396.18,195,3,657,0)"
^XMB(3.9,23,2,2934,0)="M\[""^X$T,RLUH-!G`G<&T""9D+F?""MZM'O])0JB9E2V2QL6*ES)>LZ])C=;%]A"
^XMB(3.9,23,2,2935,0)="""DATA"",396.18,195,3,658,0)"
^XMB(3.9,23,2,2936,0)="M?0_GE#EM'`(W>]?85G*&CB[(36N7)A,6/RFWSW,SN\W-)1WZ""F6M4M7S&;`F"
^XMB(3.9,23,2,2937,0)="""DATA"",396.18,195,3,659,0)"
^XMB(3.9,23,2,2938,0)="MO-@8:/':LI^+J:89SEZ(?8TXU@""=&#_]5C#US`""A?^XR&)G""!,)TXIG!_G^S"
^XMB(3.9,23,2,2939,0)="""DATA"",396.18,195,3,660,0)"
^XMB(3.9,23,2,2940,0)="M=(\(I""AS?G#];S-0O![\A,60KF0M36P&'&-=NA)T(H8TVT(+""H\R)I`^$44$"
^XMB(3.9,23,2,2941,0)="""DATA"",396.18,195,3,661,0)"
^XMB(3.9,23,2,2942,0)="M8G6ED1]`I1_)WGA'TM7^X#:X1IMT""AJ/FG>C:@;7]/CETV\OCR__VETN==<-"
^XMB(3.9,23,2,2943,0)="""DATA"",396.18,195,3,662,0)"
^XMB(3.9,23,2,2944,0)="M1'MGO4%[;WFH/KU=KKW7`M7)MM8O0""`\2Z!KBVA!@""GE%=@*7IAF4/Q@0=@Q"
^XMB(3.9,23,2,2945,0)="""DATA"",396.18,195,3,663,0)"
^XMB(3.9,23,2,2946,0)="MC)MD+.!UP9G:NQC.,R^""*;O>C5VA""\X8:4E,CG,)8P0)93X4[3T[T8.+AL'3"
^XMB(3.9,23,2,2947,0)="""DATA"",396.18,195,3,664,0)"
^XMB(3.9,23,2,2948,0)="MH6;';9,M6D:UDWZ30ABV@UV)]TCLB!NQNT\.X2#2CGH9O/T""+TOZ7B:(HF+6"
^XMB(3.9,23,2,2949,0)="""DATA"",396.18,195,3,665,0)"
^XMB(3.9,23,2,2950,0)="MM9)09MBW-)@DE1GJ3JJ2,9A<-4M##^<B__CWYR[1W<T/1'B\]V1[--56[4O9"
^XMB(3.9,23,2,2951,0)="""DATA"",396.18,195,3,666,0)"
^XMB(3.9,23,2,2952,0)="M39/]2\$?<W+2!WG(M(H6:7O'4A[PGB(E3*J.D;:.EI8VU)VSJT=D^@6\3/N\"
^XMB(3.9,23,2,2953,0)="""DATA"",396.18,195,3,667,0)"
^XMB(3.9,23,2,2954,0)="MU*R.^N!1*\""X""J1J&A_$DBJ,C$7-&H8_;B;306(T\;@&U30ZTCY@[>@38:[."
^XMB(3.9,23,2,2955,0)="""DATA"",396.18,195,3,668,0)"
^XMB(3.9,23,2,2956,0)="M.A$VDX1@R'306W?T,*U#B\EJ[>E,DVRW!-O2DO5C7C62H"":#'P<?]H5NXM5W"
^XMB(3.9,23,2,2957,0)="""DATA"",396.18,195,3,669,0)"
^XMB(3.9,23,2,2958,0)="M/5.VI^N8HG<=]MKLELY5KPW%;F.*U^XN-_)!S4L[+TV]S6WX_5&;]9;5'E+?"
^XMB(3.9,23,2,2959,0)="""DATA"",396.18,195,3,670,0)"
^XMB(3.9,23,2,2960,0)="M6FS_`5!+`0(6""Q0``@`(`(Q3'S5`=#R>AR<``.CJ```A``````````$`(`""`"
^XMB(3.9,23,2,2961,0)="""DATA"",396.18,195,3,671,0)"
^XMB(3.9,23,2,2962,0)="M@0````!$:6=E<W1I=F5?0V]N9&ET:6]N<U]-:7-C7S$Q,RYP;FQ02P$""%@L4"
^XMB(3.9,23,2,2963,0)="""DATA"",396.18,195,3,672,0)"
^XMB(3.9,23,2,2964,0)="M``(`""`""-4Q\UZSP9;&(K``""DC0$`)0`````````!`""``@('&)P``1&EG97-T"
^XMB(3.9,23,2,2965,0)="""DATA"",396.18,195,3,673,0)"
^XMB(3.9,23,2,2966,0)="M:79E7T-O;F1I=&EO;G-?36ES8U\Q,3,N<&YL+F9R;5!+`0(6""Q0``@`(`(Q3"
^XMB(3.9,23,2,2967,0)="""DATA"",396.18,195,3,674,0)"
^XMB(3.9,23,2,2968,0)="M'S6SUS1K`QL``);A```E``````````$`(`""`@6M3``!$:6=E<W1I=F5?0V]N"
^XMB(3.9,23,2,2969,0)="""DATA"",396.18,195,3,675,0)"
^XMB(3.9,23,2,2970,0)="M9&ET:6]N<U]-:7-C7S$Q,RYP;FPN8V1E4$L!`A8+%``""``@`C%,?-=WL<:]\"
^XMB(3.9,23,2,2971,0)="""DATA"",396.18,195,3,676,0)"
^XMB(3.9,23,2,2972,0)="M!@``/"",``""4``````````0`@`(""!L6X``$1I9V5S=&EV95]#;VYD:71I;VYS"
^XMB(3.9,23,2,2973,0)="""DATA"",396.18,195,3,677,0)"
^XMB(3.9,23,2,2974,0)="G7TUI<V-?,3$S+G!N;""YR97!02P4&``````0`!`!(`0``<'4`````"
^XMB(3.9,23,2,2975,0)="""DATA"",396.18,195,3,678,0)"
^XMB(3.9,23,2,2976,0)="end"
^XMB(3.9,23,2,2977,0)="""DATA"",396.18,195,4)"
^XMB(3.9,23,2,2978,0)="9^338779783"
^XMB(3.9,23,2,2979,0)="""DATA"",396.18,195,6)"
^XMB(3.9,23,2,2980,0)="1^446"
^XMB(3.9,23,2,2981,0)="""DATA"",396.18,198,0)"
^XMB(3.9,23,2,2982,0)="CRANIAL NERVES~113F"
^XMB(3.9,23,2,2983,0)="""DATA"",396.18,198,1,0)"
^XMB(3.9,23,2,2984,0)="^^2^2^3060830"
^XMB(3.9,23,2,2985,0)="""DATA"",396.18,198,1,1,0)"
^XMB(3.9,23,2,2986,0)="Last updated on 07/10/2006 ~113"
^XMB(3.9,23,2,2987,0)="""DATA"",396.18,198,1,2,0)"
^XMB(3.9,23,2,2988,0)="Patch DVBA*2.7*113"
^XMB(3.9,23,2,2989,0)="""DATA"",396.18,198,2)"
^XMB(3.9,23,2,2990,0)="3060509^^3060710.1759"
^XMB(3.9,23,2,2991,0)="""DATA"",396.18,198,3,0)"
^XMB(3.9,23,2,2992,0)="^396.184^865^865^3060830^^^^"
^XMB(3.9,23,2,2993,0)="""DATA"",396.18,198,3,1,0)"
^XMB(3.9,23,2,2994,0)="begin 664 Cranial_Nerves_113.pnl.zip"
^XMB(3.9,23,2,2995,0)="""DATA"",396.18,198,3,2,0)"
^XMB(3.9,23,2,2996,0)="M4$L#!!0``@`(`'MW'C5G-:1Y:C0``%PU`0`6````0W)A;FEA;%].97)V97-?"
^XMB(3.9,23,2,2997,0)="""DATA"",396.18,198,3,3,0)"
^XMB(3.9,23,2,2998,0)="M,3$S+G!N;.1=?6QDUU5_,V._\<>NO=_9;)+FK?/E31SO?'@\,V9%8GN]NT[6"
^XMB(3.9,23,2,2999,0)="""DATA"",396.18,198,3,4,0)"
^XMB(3.9,23,2,3000,0)="M7F//9FE2%*[GW;$?^^:]X;TWMB<*54FH`/$AVE)$59J0%A!%*B""0""D0@""@31"
^XMB(3.9,23,2,3001,0)="""DATA"",396.18,198,3,5,0)"
^XMB(3.9,23,2,3002,0)="M/T!0J$""HM)5`(""H50M121?0/N-]SW[SWYF-WL^M95MIDY\W,N??\[CGGGG/N"
^XMB(3.9,23,2,3003,0)="""DATA"",396.18,198,3,6,0)"
^XMB(3.9,23,2,3004,0)="MN6=*:Q=2:FD-6-`\O%?#_UL`+ERT+<^QS8'+L.+%E43)KL4/#5XS=&\[\>VX"
^XMB(3.9,23,2,3005,0)="""DATA"",396.18,198,3,7,0)"
^XMB(3.9,23,2,3006,0)="M>@D:6]M>XG=B(PMP!YI7ZAYTDNKFSJIMP>/HJZ[G`,/RW.D5L""<^>ZSE#4[-"
^XMB(3.9,23,2,3007,0)="""DATA"",396.18,198,3,8,0)"
^XMB(3.9,23,2,3008,0)="M_P7#BOB""8?$O#*_9M7IM!5KUY+$5].X%VZE.[XF'Z:$2V+SBZ-"")*XI2(NQ="
^XMB(3.9,23,2,3009,0)="""DATA"",396.18,198,3,9,0)"
^XMB(3.9,23,2,3010,0)="M!IO0'""?_+35J\$H%?X<PERC\+^%NB'(7?XPQ%S^87`0US[`M=7!E:?WBDH_4"
^XMB(3.9,23,2,3011,0)="""DATA"",396.18,198,3,10,0)"
^XMB(3.9,23,2,3012,0)="M*/DO)K)\WD?F)"",S'2237%R?7UV>O\P)$<C'V,,7R:L\Q7N7D!I@>`\+O-^("
^XMB(3.9,23,2,3013,0)="""DATA"",396.18,198,3,11,0)"
^XMB(3.9,23,2,3014,0)="M#5Q""8*B#:U?6KJY1[)<M""V$_M+FS#@P7ZJ,+-N9\PVN8$#UU-PQKRX2#B[9I"
^XMB(3.9,23,2,3015,0)="""DATA"",396.18,198,3,12,0)"
^XMB(3.9,23,2,3016,0)="MHT^5S0W#W('.@0MH>:<7MX'C0B\Y?G[IPOS5RZ47%R_-KV\LE4;HN^0KR;*Y"
^XMB(3.9,23,2,3017,0)="""DATA"",396.18,198,3,13,0)"
^XMB(3.9,23,2,3018,0)="M8(+R]5'RC/'TW\/DU2JH0O7@RH:V`2Q7VX"".4:%?):./*B-KP(&6AQ\-R6O"""
^XMB(3.9,23,2,3019,0)="""DATA"",396.18,198,3,14,0)"
^XMB(3.9,23,2,3020,0)="MEX.S3EYE9RB./T.%[0!C_E\5#N0A`>3I10=8!C#GM#7'WC1A5=NHP;)1,<K:"
^XMB(3.9,23,2,3021,0)="""DATA"",396.18,198,3,15,0)"
^XMB(3.9,23,2,3022,0)="M)</U;*=QD_Q]JRO^U(J[8)NZCTW!W""$?<YELFG*W%L/<);P8$Y/KG+M3@KNI"
^XMB(3.9,23,2,3023,0)="""DATA"",396.18,198,3,16,0)"
^XMB(3.9,23,2,3024,0)="MQQ%;T$4#UC>KAJ=YM@9T74,C.`9T\4MO&Z(WJU7@-(:NH>6^YH#:L*(D2PMU"
^XMB(3.9,23,2,3025,0)="""DATA"",396.18,198,3,17,0)"
^XMB(3.9,23,2,3026,0)="MS[,M,31]F2[0H=\BP"";V^-`:'_I(4]`730B<YE(EDE>L1=,H7T\>W:/$+D(D"
^XMB(3.9,23,2,3027,0)="""DATA"",396.18,198,3,18,0)"
^XMB(3.9,23,2,3028,0)="M;4:9/(P>L4A'C+<P^VR0694RV1PR=F-#9AB^OZ)T'!(Q:;OP3FI`O`./(Z6-"
^XMB(3.9,23,2,3029,0)="""DATA"",396.18,198,3,19,0)"
^XMB(3.9,23,2,3030,0)="M,K*]YH*]=X2S*9YDJ(D8)%KR,-.2=V/<1""S%3ERRG9?8QX$S77+0W)$1&#[Z"
^XMB(3.9,23,2,3031,0)="""DATA"",396.18,198,3,20,0)"
^XMB(3.9,23,2,3032,0)="M''2\YO-U8&W!Q&OQ$_['XN,C\W7/IL^[4-X<G=41,JMG6H6[:0-/<(W=A&@0"
^XMB(3.9,23,2,3033,0)="""DATA"",396.18,198,3,21,0)"
^XMB(3.9,23,2,3034,0)="M38<>,$RHW_[5B&(D+S-29_#^?BPH1A\O446$>QZBJ=5LUS409U.()[?L&)N0"
^XMB(3.9,23,2,3035,0)="""DATA"",396.18,198,3,22,0)"
^XMB(3.9,23,2,3036,0)="MO%LVG'*]ZGK`*B/=!9:N&9;A(=NE59$)JT#T#J;F:G:%?%Y'-ASMOIKMH`_^"
^XMB(3.9,23,2,3037,0)="""DATA"",396.18,198,3,23,0)"
^XMB(3.9,23,2,3038,0)="M4-UIX']5T%^@.7#'@+MH/%#5:HZ]8^@0?09MO#N(VC:U>]-W0*PE""Q0.:4&V"
^XMB(3.9,23,2,3039,0)="""DATA"",396.18,198,3,24,0)"
^XMB(3.9,23,2,3040,0)="M!D(XG@X*Q\'SP(,8""00(]&Z2E6_?,IF825&9.$9,RR`W+<\'&3BR:-?1;#77"
^XMB(3.9,23,2,3041,0)="""DATA"",396.18,198,3,25,0)"
^XMB(3.9,23,2,3042,0)="M0,M]2[BX=9(]DZ5<'""=</!=G7*P%N1B_@B31T<IVM8IHNG-1Z\JL_)O4Y+ZK"
^XMB(3.9,23,2,3043,0)="""DATA"",396.18,198,3,26,0)"
^XMB(3.9,23,2,3044,0)="M,(I[05UY=+'NX/EIG@.!1Z@2H?:0V*)Q+-W`'YO;A\([DY91&V.H)?Y&""<+V"
^XMB(3.9,23,2,3045,0)="""DATA"",396.18,198,3,27,0)"
^XMB(3.9,23,2,3046,0)="MY'FN^""Y635BIP#+FT[&K6KF5_[GDD@60N=""[F$).%K\*$[_$AT.F<+^80F!`"
^XMB(3.9,23,2,3047,0)="""DATA"",396.18,198,3,28,0)"
^XMB(3.9,23,2,3048,0)="MMX<19]F(JKS'Q(>#X\73T_M&OF=GY4E_H,VD,_MHTLPV?D?I..OL'9GU8&D)"
^XMB(3.9,23,2,3049,0)="""DATA"",396.18,198,3,29,0)"
^XMB(3.9,23,2,3050,0)="M*>=!/FG\PN?<Q;^?B>.7A#@>9S%*.I5)I22G!Q-;@55;$,,OY.TV\3%F0A)?"
^XMB(3.9,23,2,3051,0)="""DATA"",396.18,198,3,30,0)"
^XMB(3.9,23,2,3052,0)="M$/OMBTUBZ?PMW!%&L:4VD)5;A;L^]@]>-BSHHE<.\D_<F*KX`!D1CI*;''%="
^XMB(3.9,23,2,3053,0)="""DATA"",396.18,198,3,31,0)"
^XMB(3.9,23,2,3054,0)="M[#H996!*'K.B#)4NH\T8>6K-$(""^SLAZ?(SK\<<$<,]*O.;&EK!?H4-]`YK("
^XMB(3.9,23,2,3055,0)="""DATA"",396.18,198,3,32,0)"
^XMB(3.9,23,2,3056,0)="MC@R-+'NPRJ7B('XA35+=\+!JJT>1=[6%8P<#!88-;==&0*G#RU7L+D!=4T\M"
^XMB(3.9,23,2,3057,0)="""DATA"",396.18,198,3,33,0)"
^XMB(3.9,23,2,3058,0)="M8W\!^=O$9=D]BWR*JH$^C78J=9!8?65TI6YZ!AUTN,G70!N^LKY]@#,6_V`("
^XMB(3.9,23,2,3059,0)="""DATA"",396.18,198,3,34,0)"
^XMB(3.9,23,2,3060,0)="M7YE""3WP-X'R"".K(""=80R48.AC;JSA2%'\RV=72NI1\XC5I`#!&HUDW_H\)6Z"
^XMB(3.9,23,2,3061,0)="""DATA"",396.18,198,3,35,0)"
^XMB(3.9,23,2,3062,0)="M5T/_Q$S:>XTM:*D#BVOS:^H![-UN0QOY2M5&!XX'N;R.R?*:3LN+R,.,Q)M"""
^XMB(3.9,23,2,3063,0)="""DATA"",396.18,198,3,36,0)"
^XMB(3.9,23,2,3064,0)="M8""]R9M&?HC""Y?2""YPZ'ZZ=O^[H\'V""T(=E/%OF+W0""B[!9E=/<AN3E+1;!]P"
^XMB(3.9,23,2,3065,0)="""DATA"",396.18,198,3,37,0)"
^XMB(3.9,23,2,3066,0)="M>;`9,(_[`^:""'.?<RQA]5=BBQ\3&<QC;?)%HP2I_1Y-''4+GX=*B7=VTD54Z"
^XMB(3.9,23,2,3067,0)="""DATA"",396.18,198,3,38,0)"
^XMB(3.9,23,2,3068,0)="MS/GE#](RQVVVK=F97-%GE:3D1*N!4I3(C$26FOO$>JPCQ`>6<9JS7B:18'.T"
^XMB(3.9,23,2,3069,0)="""DATA"",396.18,198,3,39,0)"
^XMB(3.9,23,2,3070,0)="ML1M+A;!8/+%*LR^'`O;X7C'P:-.RNDWW4$Q`O<$)Y'T3>++-!)+8G$.G$3)X"
^XMB(3.9,23,2,3071,0)="""DATA"",396.18,198,3,40,0)"
^XMB(3.9,23,2,3072,0)="M\@8'+_H&?[;-X""S.$2YRR""2&.DQBO+2X=FUE'>B&?=&QZ[630NA\C[,L]CI$"
^XMB(3.9,23,2,3073,0)="""DATA"",396.18,198,3,41,0)"
^XMB(3.9,23,2,3074,0)="MYO3G?-?X,R$+CW#A*^2+Z9&-;7N7IG&'#CQ3=SVCTB!R-YS$_UL#NI0+/5KB"
^XMB(3.9,23,2,3075,0)="""DATA"",396.18,198,3,42,0)"
^XMB(3.9,23,2,3076,0)="MTT>;N5O#,>=<$FE?O6JY\81@*;""S7K1M71VX``Q''5^S;>>L`RMH<\1)!*7)"
^XMB(3.9,23,2,3077,0)="""DATA"",396.18,198,3,43,0)"
^XMB(3.9,23,2,3078,0)="M_TCW+&9D%O]3;(R""Q8FFZ<RF>F+QX8W.\=13K1EN@4$\$H/$^Z&KQE=M992:"
^XMB(3.9,23,2,3079,0)="""DATA"",396.18,198,3,44,0)"
^XMB(3.9,23,2,3080,0)="M&D)!6OQ11?&EZL=]J7J65HT;1+W/,7[3(E?_/TJWN7HJH/']G[F/A2>WTQD:"
^XMB(3.9,23,2,3081,0)="""DATA"",396.18,198,3,45,0)"
^XMB(3.9,23,2,3082,0)="M>B%Y)EB,,""P^&Y*Z/RE2]U3YA/3NMXQ].L-""DTG?L<Z3P<ALF`?=<Z$>(SO7"
^XMB(3.9,23,2,3083,0)="""DATA"",396.18,198,3,46,0)"
^XMB(3.9,23,2,3084,0)="MB#]&Z#S*L/FJ2-C^JB+I?JH/?(KH+6^&R<%W:23PCSPCE.>@'8X\:8C?F+5G"
^XMB(3.9,23,2,3085,0)="""DATA"",396.18,198,3,47,0)"
^XMB(3.9,23,2,3086,0)="MN9'$VW3$OU5:T_[WMJ3]NS]H:*/Y3#*>)ROZ%%O1G-#\SRMWP2E=/$HM6+3W"
^XMB(3.9,23,2,3087,0)="""DATA"",396.18,198,3,48,0)"
^XMB(3.9,23,2,3088,0)="MUU37509X+:CJAX2JLTU^_ZDX.W)\A_)RFO%R*20E*A)K-C9;S5Q:)&F60COL"
^XMB(3.9,23,2,3089,0)="""DATA"",396.18,198,3,49,0)"
^XMB(3.9,23,2,3090,0)="MHWPZY%""8!IYS^-3GRCJ+J,6ICWB2E<F=92+W16%@GY%L2*:G$/OA%0/I^PYP"
^XMB(3.9,23,2,3091,0)="""DATA"",396.18,198,3,50,0)"
^XMB(3.9,23,2,3092,0)="MRW43.)H.RW:U1E((MH53\4AL=Z`ZO+YMO&23J/E]J_B)MN6`BH</)SRTRF[-"
^XMB(3.9,23,2,3093,0)="""DATA"",396.18,198,3,51,0)"
^XMB(3.9,23,2,3094,0)="M!!8]R5`?7*F[9;/-!\+""[C&Z6M@KP(P,#37_U;0[!_#42T9-:,DUP]+MW:'+"
^XMB(3.9,23,2,3095,0)="""DATA"",396.18,198,3,52,0)"
^XMB(3.9,23,2,3096,0)="MMK6%81H*M[]9WR)S[*9B8=AE^RF$C46;12;8WZ1F\:/<+&:""6GJ+CGS9Z4+B"
^XMB(3.9,23,2,3097,0)="""DATA"",396.18,198,3,53,0)"
^XMB(3.9,23,2,3098,0)="MG^F('^8C/L-'U""(-<?S&#3';6E?)RBZSE7U>&.(_N1L,<2+*PM!3J<27%;E\"
^XMB(3.9,23,2,3099,0)="""DATA"",396.18,198,3,54,0)"
^XMB(3.9,23,2,3100,0)="M)?&S(4[7,6&)I7AO_UEC%J`_1/AYH!N3&4&(1=Z_I_@H]6;6H^2<T1ZDX>4G"
^XMB(3.9,23,2,3101,0)="""DATA"",396.18,198,3,55,0)"
^XMB(3.9,23,2,3102,0)="MN)QG.[LXB8ZG_FWL?T;&9HJM]8^+M;[:M&&%WE*L8_,6,BNVM5,W762BU9$U"
^XMB(3.9,23,2,3103,0)="""DATA"",396.18,198,3,56,0)"
^XMB(3.9,23,2,3104,0)="M!^J6X>+$ZS!^;\=P@*F>6K""]NFE8]:KFV7N&A4^G(4U84!(Z)+L&)G&[#;Q_"
^XMB(3.9,23,2,3105,0)="""DATA"",396.18,198,3,57,0)"
^XMB(3.9,23,2,3106,0)="MN3DXK\;""P""G>)08^[?-[/Q+P>^]_+\PM$\(ZP7F:X1P3YO9+=U_$.Q!^;%><"
^XMB(3.9,23,2,3107,0)="""DATA"",396.18,198,3,58,0)"
^XMB(3.9,23,2,3108,0)="ME8\\A.W]B1#;>US87CG)=^>-;PM#+*1YE/#S2*#LI9FK?)LJM+9)1$>;6*@;"
^XMB(3.9,23,2,3109,0)="""DATA"",396.18,198,3,59,0)"
^XMB(3.9,23,2,3110,0)="MIL[3PQ.X.JV,0WJH`<U$*HM=R!I]T]7*)C""J4""?%+3J:D5$QT""N]CK6#U=*`"
^XMB(3.9,23,2,3111,0)="""DATA"",396.18,198,3,60,0)"
^XMB(3.9,23,2,3112,0)="MJF&1_6G2/3.ME7!]`/LZ);=KF"";^J*4AHPUV@&%B;4;6B'Q_XKQ=KI-<F)C0"
^XMB(3.9,23,2,3113,0)="""DATA"",396.18,198,3,61,0)"
^XMB(3.9,23,2,3114,0)="M+C$A4QI`A(#C\3J;B?`ZI+D)S27\8>\7#SC=\;""\6)""AN\J@^U0LN-M<9=""%"
^XMB(3.9,23,2,3115,0)="""DATA"",396.18,198,3,62,0)"
^XMB(3.9,23,2,3116,0)="MS!+!!O'1G*8##U?Z;`%'Q_,2T#GHJSO`\GCY'ZD""\AHUV,4$B_($+3;!G9`)"
^XMB(3.9,23,2,3117,0)="""DATA"",396.18,198,3,63,0)"
^XMB(3.9,23,2,3118,0)="M7N837*>E1GR>9$'(),EC7,6T@X6MH8%RN>Z`<@/#ZI)*/@^O*&)B.F(V.0;7"
^XMB(3.9,23,2,3119,0)="""DATA"",396.18,198,3,64,0)"
^XMB(3.9,23,2,3120,0)="MF""QI$;4%422*,HFK;4_ZH\[=4S()J^VQ>W2JF1GAOU=\I]=-(QSM\RH]&&%_"
^XMB(3.9,23,2,3121,0)="""DATA"",396.18,198,3,65,0)"
^XMB(3.9,23,2,3122,0)="MA3`K&/B\/]5V3J23/AZ[ZXSP(%_#,?\:TB5\/P%BF`'Q8VW=W^<,?%2\86SM"
^XMB(3.9,23,2,3123,0)="""DATA"",396.18,198,3,66,0)"
^XMB(3.9,23,2,3124,0)="M/PO,CPA.$G8FF""B=""TKD:`E6:]`!7MV!415#,S(M%A?%3X44MJ\AKR^22D&F"
^XMB(3.9,23,2,3125,0)="""DATA"",396.18,198,3,67,0)"
^XMB(3.9,23,2,3126,0)="MPG7D2I#*H77HUI""7B,\.M'5D^Z,(%B6""B:]Q=9D(4E2OD2=1^L^4UR5TOL[I"
^XMB(3.9,23,2,3127,0)="""DATA"",396.18,198,3,68,0)"
^XMB(3.9,23,2,3128,0)="M/!Q""9\VN6[H;12<MS^?=0,@J%2;2^6A(7*PMN&^JAW+,(3M%&!B/!71@7G#@"
^XMB(3.9,23,2,3129,0)="""DATA"",396.18,198,3,69,0)"
^XMB(3.9,23,2,3130,0)="M,0XNVZZK32+Y*9/BB(JV2Y^;^#E._:!!=6SI-P':"")'W>D:;!$C_P1;D'V5["
^XMB(3.9,23,2,3131,0)="""DATA"",396.18,198,3,70,0)"
^XMB(3.9,23,2,3132,0)="M;49KH/`&;\^P#,EF1>H=,4U6Q'KF5OG:[T5A7XXE+'Y-Z1Z\BP#Q'@+>%G[^"
^XMB(3.9,23,2,3133,0)="""DATA"",396.18,198,3,71,0)"
^XMB(3.9,23,2,3134,0)="M_PJ\G*PYKW/-N1C4G+$%T[9U>J$AVF#EF#_]4;H8G^($!X,$8V>C:,A&+_''"
^XMB(3.9,23,2,3135,0)="""DATA"",396.18,198,3,72,0)"
^XMB(3.9,23,2,3136,0)="MG,2#(5:!/MD_:LS.RS_2$_?^S3`GF\0O**U7/""3FEZWR-G2C[VXPH]@@E*R."
^XMB(3.9,23,2,3137,0)="""DATA"",396.18,198,3,73,0)"
^XMB(3.9,23,2,3138,0)="M]RBDL^(./DU(*6%>WF&R3`-_,UB2D4_G<KX#J!!:OMWJ6C2M='XF[0NQ*:TQ"
^XMB(3.9,23,2,3139,0)="""DATA"",396.18,198,3,74,0)"
^XMB(3.9,23,2,3140,0)="MF58Z)1/[D3;$""C.S+26.06(,T:<)HE\);%<REQFI^"")X]'Y/^-$[0W&+T/\F"
^XMB(3.9,23,2,3141,0)="""DATA"",396.18,198,3,75,0)"
^XMB(3.9,23,2,3142,0)="MKZ'\;3';!^D``[.95)>U!;Q\X/:H2'C5WP#>JM0!;',C_,)DVW*?K+PWEH)5"
^XMB(3.9,23,2,3143,0)="""DATA"",396.18,198,3,76,0)"
^XMB(3.9,23,2,3144,0)="MTS+L,\+81A3^!.LGSFGI%(I1T-\,^IM-J2,S*1S85FULY=I-C.7F?UWI9F;9"
^XMB(3.9,23,2,3145,0)="""DATA"",396.18,198,3,77,0)"
^XMB(3.9,23,2,3146,0)="M3C,;[G5F81+*L-HD,_HDE]#)$''/SOAJ7<.(,?Y>4[J@EO55F(91R\C*\X=1"
^XMB(3.9,23,2,3147,0)="""DATA"",396.18,198,3,78,0)"
^XMB(3.9,23,2,3148,0)="MRC.0SZ:SOMI-.8(ZYHN@<BG\ARGERT3#GV!K\*<BC,K=#3<M5;Y7'&OQG_$?"
^XMB(3.9,23,2,3149,0)="""DATA"",396.18,198,3,79,0)"
^XMB(3.9,23,2,3150,0)="M%CZ]1``89`#\44CX=$J$3RPM@)R4=5A&S-]L$/7.S0=11P.<<8D9)XQ5F,`8"
^XMB(3.9,23,2,3151,0)="""DATA"",396.18,198,3,80,0)"
^XMB(3.9,23,2,3152,0)="MP9WPV""*[X()\+\VA#,W=B4M'5.R/R&)/EH@Q<@\1_7_GHM]HU:-,IE!,A>A1"
^XMB(3.9,23,2,3153,0)="""DATA"",396.18,198,3,81,0)"
^XMB(3.9,23,2,3154,0)="MD""!S>:?HV<6_M*68]FD3=Q:.^YT%*DE,X?^`*OR!6*LW&)V+3O187O=`^`9("
^XMB(3.9,23,2,3155,0)="""DATA"",396.18,198,3,82,0)"
^XMB(3.9,23,2,3156,0)="MIY&1[W_<QP3ZRTIK878F,YOKK?YL;%&[8)B0B?]<J\$=HL^AKAY?M7$5W@_7"
^XMB(3.9,23,2,3157,0)="""DATA"",396.18,198,3,83,0)"
^XMB(3.9,23,2,3158,0)="MH8O38)L-[;GY]2OJ0^NMCW#V5+/0AT4&4_&Y-SWQ[3MY;<MX(9_OB?$3]+C0"
^XMB(3.9,23,2,3159,0)="""DATA"",396.18,198,3,84,0)"
^XMB(3.9,23,2,3160,0)="M9.I^NP""(\6.>H_(QC\]LC_NN9WY:F.V?$L54Z=E""N@^.>.)M#UQ8==,O^)-]"
^XMB(3.9,23,2,3161,0)="""DATA"",396.18,198,3,85,0)"
^XMB(3.9,23,2,3162,0)="M/RK8??WN2_8EPV.D`O/('R=(C#,D)F/![>IQL5VM0KMF`K<ZZ9[A:7_VGD9J"
^XMB(3.9,23,2,3163,0)="""DATA"",396.18,198,3,86,0)"
^XMB(3.9,23,2,3164,0)="M6/9=#I#54<:?)$S^(&/R0Z$7_0RP9=FN02X.:UX=.7?:)-P#9>],U'W-?$&B"
^XMB(3.9,23,2,3165,0)="""DATA"",396.18,198,3,87,0)"
^XMB(3.9,23,2,3166,0)="M+HX,I4-DF3R[B*N+82:KU;,-]"">:?%$FSSTUJ7]#DWP:M^""@MZ%U-!""]_""S*"
^XMB(3.9,23,2,3167,0)="""DATA"",396.18,198,3,88,0)"
^XMB(3.9,23,2,3168,0)="MF""<-JVS625+$I85CD6,6T_*8N=A-WVDM,F/Z%;J7?9=OD=O!\/<TQPB)F""=/"
^XMB(3.9,23,2,3169,0)="""DATA"",396.18,198,3,89,0)"
^XMB(3.9,23,2,3170,0)="M7P#5PQ7/O,P''S7Q""24X[/<LX44FN(G!@>4A(T2$'9D7>2ZZ/J55JU-:FPE%"
^XMB(3.9,23,2,3171,0)="""DATA"",396.18,198,3,90,0)"
^XMB(3.9,23,2,3172,0)="MG3""S\I)?HDB\%$@$W!>YJR=[3P0PV+]*![LW%N69I`NSA4Q(G?Y@U\$R4[%'"
^XMB(3.9,23,2,3173,0)="""DATA"",396.18,198,3,91,0)"
^XMB(3.9,23,2,3174,0)="MB(K-,J#?$$`_(6*O?*&W0OR3UX!+;`Q5QBHPC2T+K<Q3S7`ZJ@!=35ZUKEOV"
^XMB(3.9,23,2,3175,0)="""DATA"",396.18,198,3,92,0)"
^XMB(3.9,23,2,3176,0)="MKJ6T)#F""U\^RLH6PV?3/""#/X/C']0BK5'Q4.(=*0D;7A#27`93-`+J2+(3=,"
^XMB(3.9,23,2,3177,0)="""DATA"",396.18,198,3,93,0)"
^XMB(3.9,23,2,3178,0)="M?9""Q.BE&[2^#U!YN4LL6^N.*:0AF\M;13H'RA6(N1($&PL7-MQ*+L0!VJ2;9"
^XMB(3.9,23,2,3179,0)="""DATA"",396.18,198,3,94,0)"
^XMB(3.9,23,2,3180,0)="M7#]<SU7;NEML-SGG*^I(WEW=EX;""=R""6\4S\M.)K/?4?(?F`AX2#=<EV:_A$"
^XMB(3.9,23,2,3181,0)="""DATA"",396.18,198,3,95,0)"
^XMB(3.9,23,2,3182,0)="MU7B)5`C@)-.M*?5^YU9[5GQIS\IF/UX)Z4_#>2+>B6G38LDH=X'KQUF?PS8:"
^XMB(3.9,23,2,3183,0)="""DATA"",396.18,198,3,96,0)"
^XMB(3.9,23,2,3184,0)="M4EJ1Q][""'-JV&VA#1A/=)O3Q(9!F5#1B_#%\H%9S[#VCBG=WO,5'#CPC#9SX"
^XMB(3.9,23,2,3185,0)="""DATA"",396.18,198,3,97,0)"
^XMB(3.9,23,2,3186,0)="M2>ZFO!P<^-0Z!""Y=&UPN0@LUR!I%T9XMRDR=8$Q])J0%CGL!486@O*TA5;""\"
^XMB(3.9,23,2,3187,0)="""DATA"",396.18,198,3,98,0)"
^XMB(3.9,23,2,3188,0)="M*:V""JW/8$1?ER;`JME,E($ZQ$I<)MME-D!8@T@=(0$B_AL&IU=UM0HD6EK""*"
^XMB(3.9,23,2,3189,0)="""DATA"",396.18,198,3,99,0)"
^XMB(3.9,23,2,3190,0)="MHXZ^%-\B*33?XO8^$;(H!=9$""X,""T,RW_?),/52*%NZ\)0I<YB*[?+%2Q(LT"
^XMB(3.9,23,2,3191,0)="""DATA"",396.18,198,3,100,0)"
^XMB(3.9,23,2,3192,0)="MP_*6<ONZ?/$N.ZP`N\9W@$7A&D3Z:VKO_IHL?O$+#.)B<(/.I@KY$)_&=^?:"
^XMB(3.9,23,2,3193,0)="""DATA"",396.18,198,3,101,0)"
^XMB(3.9,23,2,3194,0)="MIT/5=K2*F?Z(Z,-VTEE9*GG9<.*7!9NG1>(BFYOM`S8C'(:\S&8B%F!SL^E?"
^XMB(3.9,23,2,3195,0)="""DATA"",396.18,198,3,102,0)"
^XMB(3.9,23,2,3196,0)="MS_3#!?ID=,<YINO_117NBUS7G^""LGHBL!!^ZP1YW+$KZ(+U1OAA]UXW'$S??"
^XMB(3.9,23,2,3197,0)="""DATA"",396.18,198,3,103,0)"
^XMB(3.9,23,2,3198,0)="M5F_&-^3U7H:\T>:!_ILDPH:&&+)`\\#!&RZKF_6Y/[R&/""TR;8?OODS;<'@E"
^XMB(3.9,23,2,3199,0)="""DATA"",396.18,198,3,104,0)"
^XMB(3.9,23,2,3200,0)="M`=L^LP2(PPR(OPCQ`Q]H^H&T^1S>1DL.J%?!I'OFSN?6_&S-R!?HSC""V/A>2"
^XMB(3.9,23,2,3201,0)="""DATA"",396.18,198,3,105,0)"
^XMB(3.9,23,2,3202,0)="MG'H$)Z>FA.LGLE0\BT@8G+L3Q2-1.NHKA_N'0!7JQ*WM?/F=F[I!WM'5""&XI"
^XMB(3.9,23,2,3203,0)="""DATA"",396.18,198,3,106,0)"
^XMB(3.9,23,2,3204,0)="M!7GE""JT^=N+GE>:6,IOIC_O3T78H*W?W9)=K$]\0(>AG[X80=""0B^\WVFL=C"
^XMB(3.9,23,2,3205,0)="""DATA"",396.18,198,3,107,0)"
^XMB(3.9,23,2,3206,0)="MOA#T0R&FYX@P/2(/?N<CSM98@$747Z>QP""OO1<??MHUBT_)YZ""F&YC\)4?I`"
^XMB(3.9,23,2,3207,0)="""DATA"",396.18,198,3,108,0)"
^XMB(3.9,23,2,3208,0)="M++0A[.=N34-8?O_Y@""]`E0YLF@;W:78+`AM8TMP#,\L.$7&(6-6`Z]IE`^#S"
^XMB(3.9,23,2,3209,0)="""DATA"",396.18,198,3,109,0)"
^XMB(3.9,23,2,3210,0)="MPUW#VZ9M(\71Q-R^*>3C+2.&""=,7>8M-/:3V8%ZG/2^!V?%,@IT""QD?)0O*>"
^XMB(3.9,23,2,3211,0)="""DATA"",396.18,198,3,110,0)"
^XMB(3.9,23,2,3212,0)="M5/\6LG6=9?<W:-A*1(E$Y_P&32NZ(;&T?]/,2(L8UQ@[Z>#`(^?WWV+PAC04"
^XMB(3.9,23,2,3213,0)="""DATA"",396.18,198,3,111,0)"
^XMB(3.9,23,2,3214,0)="MMC$&VVLAL$U,XC[N6B:7RI]IN9NTV2`W;3I?LIEE-9R_&).WJ3@(CG84)TV6"
^XMB(3.9,23,2,3215,0)="""DATA"",396.18,198,3,112,0)"
^XMB(3.9,23,2,3216,0)="MYA<O21(<=9.5'7<G?H-2O<28>#OD7.@%[+;@W`NB7MZVT3Y/5MKPY'6?D-MX"
^XMB(3.9,23,2,3217,0)="""DATA"",396.18,198,3,113,0)"
^XMB(3.9,23,2,3218,0)="M3:!'``F+`SLH6!CWK1/-^-A?[NY:3RN1K$PD\8K2X5I.!)49&3-!16JVU`3M"
^XMB(3.9,23,2,3219,0)="""DATA"",396.18,198,3,114,0)"
^XMB(3.9,23,2,3220,0)="M\K)%[D-3K'B'(>3E$;5I'G[B_%FY7*\!IK+4)S1,?`$*WY#UD)GN!J6<C\'7"
^XMB(3.9,23,2,3221,0)="""DATA"",396.18,198,3,115,0)"
^XMB(3.9,23,2,3222,0)="MVS$X$\W@K(]!0>6AL)O2Q`I$D_)++:\""&PZY]_<9++8.`@#?2JL[-21@[A0R"
^XMB(3.9,23,2,3223,0)="""DATA"",396.18,198,3,116,0)"
^XMB(3.9,23,2,3224,0)="M)#7;(<]DQ)`8B::^M.<U0I6CZ\(:0'1P?TJ$K`7+^-8P""A[0+L>[6@.+)D)K"
^XMB(3.9,23,2,3225,0)="""DATA"",396.18,198,3,117,0)"
^XMB(3.9,23,2,3226,0)="MCD$2H88+-@W3\)`R[@""S3OWR""L\]BJ&Z68&""C^'KW=T=:R52]&DE(Y+X9)AI"
^XMB(3.9,23,2,3227,0)="""DATA"",396.18,198,3,118,0)"
^XMB(3.9,23,2,3228,0)="MN5*C(C/%-W4\:]Q0C]_LB\PE\CSF03((8#,]&7*)![?'BB:3D1OCB_N)?Q>B"
^XMB(3.9,23,2,3229,0)="""DATA"",396.18,198,3,119,0)"
^XMB(3.9,23,2,3230,0)="M#4O+I$@""V0.R,+C+A]YP*W6K3-.WN%<YU':W(3E*1SR@CVWB39IW/->1(9GS"
^XMB(3.9,23,2,3231,0)="""DATA"",396.18,198,3,120,0)"
^XMB(3.9,23,2,3232,0)="M+T*(B\LBL0$BO;_+U7-7./0_%_-'TJVN:\?;N9FBC!R_&78LQ/4X)^[_2[I/"
^XMB(3.9,23,2,3233,0)="""DATA"",396.18,198,3,121,0)"
^XMB(3.9,23,2,3234,0)="MVK8+\0VHOE#X_;/3L=SB$$'TMSBB)T,8_EY_PP/--;8L_+L9^&:I@""""2XY""V"
^XMB(3.9,23,2,3235,0)="""DATA"",396.18,198,3,122,0)"
^XMB(3.9,23,2,3236,0)="M-WY_H2!-)/X^-H]70O3BOB4R&!ZK[M;1(,T1[Z0'X>>&J?FG%1\[;X9HSL(U"
^XMB(3.9,23,2,3237,0)="""DATA"",396.18,198,3,123,0)"
^XMB(3.9,23,2,3238,0)="MO)/Z9(ALH,)N&=4:H.QVA+:CJ\$2CPSE'V""&82<(\LEUZ.(6#,@Z[]K.]:;)"
^XMB(3.9,23,2,3239,0)="""DATA"",396.18,198,3,124,0)"
^XMB(3.9,23,2,3240,0)="MD98QLJEO6A[DR<`%]VFI$6J@X<1M6L%V;2U.K-KDGB<7;BIOKGHT[.$!7+:X"
^XMB(3.9,23,2,3241,0)="""DATA"",396.18,198,3,125,0)"
^XMB(3.9,23,2,3242,0)="M5*V9=@/JD;]:$XU53L;J>@""K.:E';EY@OP]!NW?>Q08!W^`V$#2DPZ)>Q^*I"
^XMB(3.9,23,2,3243,0)="""DATA"",396.18,198,3,126,0)"
^XMB(3.9,23,2,3244,0)="M'EVV\+U^O+5[Y&XZVK75X\V'8-/%IWO0<*NA_3^B&@I&@\K<N#>H]A49JG\E"
^XMB(3.9,23,2,3245,0)="""DATA"",396.18,198,3,127,0)"
^XMB(3.9,23,2,3246,0)="M4#6;J.8+^QG549S%0@X.OF*IWG,><LC0'H/O$3JT*]:)94OV>3;A-M@Q;$<]"
^XMB(3.9,23,2,3247,0)="""DATA"",396.18,198,3,128,0)"
^XMB(3.9,23,2,3248,0)="MB9MS:L0]-^G/?0#6=N7T>;1(1AF!W$#.D&G:NUC3#:G+!&Z.S4>KVM04J:>D"
^XMB(3.9,23,2,3249,0)="""DATA"",396.18,198,3,129,0)"
^XMB(3.9,23,2,3250,0)="M9\#""ME?'/V'BX/=X?.#2,,`T*L1Z8!>N#!RG@5ZH1Z5A'>R`X8>'-VH0$@>0"
^XMB(3.9,23,2,3251,0)="""DATA"",396.18,198,3,130,0)"
^XMB(3.9,23,2,3252,0)="MOZ<>N00!:>P@/3O\G$'ZBDF/QB\CS,FIM$=Z/ZA'KT%P'8L7^>43!,Y6':H/"
^XMB(3.9,23,2,3253,0)="""DATA"",396.18,198,3,131,0)"
^XMB(3.9,23,2,3254,0)="M-2>-V(/6EK<]I]5K-;2%H<GC+N:(5.B'$""R^#QV[BB:%_4W#0@N`Z^;0*JA'"
^XMB(3.9,23,2,3255,0)="""DATA"",396.18,198,3,132,0)"
^XMB(3.9,23,2,3256,0)="M+L`RP5=Z-K`&#/R;)(9;07-`7X<1O6VB&NB%9C-3\E[-;RDF*L+[>4N1Y+JO"
^XMB(3.9,23,2,3257,0)="""DATA"",396.18,198,3,133,0)"
^XMB(3.9,23,2,3258,0)="MNM4DE`B'CT4]+\?\'M^%&_#X!B,\H)3L\279`*=""'*""GSLN_SM/.ZZ-^26N4"
^XMB(3.9,23,2,3259,0)="""DATA"",396.18,198,3,134,0)"
^XMB(3.9,23,2,3260,0)="MMP\OX^93<J*#=[M:#89P4_,.9`Z^Y.N%\_G4/F0T4Y!6.;'""#Y>_%E9A+)9Y"
^XMB(3.9,23,2,3261,0)="""DATA"",396.18,198,3,135,0)"
^XMB(3.9,23,2,3262,0)="M@BCL!.,XFF'))^JRXS'O5_:""#_?OXY,!TL]@S$16D@Z%5)(F%[=M1W8)[^@U"
^XMB(3.9,23,2,3263,0)="""DATA"",396.18,198,3,136,0)"
^XMB(3.9,23,2,3264,0)="MS!7#U-6A%5O'/2>@JFY`I)%0'5IS2-&/&]DKN&L<_1%J6R""+/0$YC#Y<JR%N"
^XMB(3.9,23,2,3265,0)="""DATA"",396.18,198,3,137,0)"
^XMB(3.9,23,2,3266,0)="M^AO*>/=09N6V8&VA3*=Z@W)I#SIE`S<7[V<H$]U#.2/G\E]5VDEEKC?UWL`Y"
^XMB(3.9,23,2,3267,0)="""DATA"",396.18,198,3,138,0)"
^XMB(3.9,23,2,3268,0)="MLSY7[X&N@>2_R_1"")R""1OY/O""<C1=>+OD:1!7X,YV+U4YGP_<]E6+-.9GM`<"
^XMB(3.9,23,2,3269,0)="""DATA"",396.18,198,3,139,0)"
^XMB(3.9,23,2,3270,0)="M*3E@!W<MZ7-KJ7;_DP4I7P57>QTO]`3FT`5(VKKT-Y3)[N6R*%O+;[1%<K8W"
^XMB(3.9,23,2,3271,0)="""DATA"",396.18,198,3,140,0)"
^XMB(3.9,23,2,3272,0)="M)!>`M]WW2/;@519D<]D>R=[,Y?!YTM:[WZ$<[A[*O,]8ML4RG>[16-J&"";V^"
^XMB(3.9,23,2,3273,0)="""DATA"",396.18,198,3,141,0)"
^XMB(3.9,23,2,3274,0)="M![/[WW?AO_'Q=A=@IK*]""28:P*[V/9:C7=]!]!V3++;^'NZ,J&>;R78%9.3O"
^XMB(3.9,23,2,3275,0)="""DATA"",396.18,198,3,142,0)"
^XMB(3.9,23,2,3276,0)="MVG2JO""_^'WM7'QO'<=WO0SQ^ZX.B),N2[15MZ\.6E+O=O2\9MBJ+I$U7E%21"
^XMB(3.9,23,2,3277,0)="""DATA"",396.18,198,3,143,0)"
^XMB(3.9,23,2,3278,0)="MDNVD3KN\6Y%G'6_/MW>2SVCB&$&,&BC0Q$&<M&B:((D=H'\4;8,::)/:A>$4"
^XMB(3.9,23,2,3279,0)="""DATA"",396.18,198,3,144,0)"
^XMB(3.9,23,2,3280,0)="M31H$:-HF!1H@:0L'C5&X*=`&J=$@G9F=F9W9G9W=O:--GM'`B8]'9N:]F3=O"
^XMB(3.9,23,2,3281,0)="""DATA"",396.18,198,3,145,0)"
^XMB(3.9,23,2,3282,0)="MWKR/WV-S='Z5O*>SU&UR%V.:%0:LN9N(7XWUO5TFF31?(RE1J8=IE6E9SP]&"
^XMB(3.9,23,2,3283,0)="""DATA"",396.18,198,3,146,0)"
^XMB(3.9,23,2,3284,0)="M-5M0$C7VGE],(1DSL8Q]P)^W[6_O%J>0U[?$.ILQ1'HMV%2B;G=E6R\,1JZF"
^XMB(3.9,23,2,3285,0)="""DATA"",396.18,198,3,147,0)"
^XMB(3.9,23,2,3286,0)="M!,F)38]*?X;X-=M)04NY0C8`ORDM:BGGSCGEG9,`(3@KW,1S?L(/'E4""_XG:"
^XMB(3.9,23,2,3287,0)="""DATA"",396.18,198,3,148,0)"
^XMB(3.9,23,2,3288,0)="MQ@X-F1FZ!/\P,WI_K6[`.$-=3@DN^""=^&T+*/PE)*0:0DO*2`K?'J'=AUDUF"
^XMB(3.9,23,2,3289,0)="""DATA"",396.18,198,3,149,0)"
^XMB(3.9,23,2,3290,0)="MY+P)=K5=LS.C\)-17ZT9DHY[N,8FG7<<S<\FHV/S]U@>@<M=TD][<CP%1?*^"
^XMB(3.9,23,2,3291,0)="""DATA"",396.18,198,3,150,0)"
^XMB(3.9,23,2,3292,0)="M6H6H'8\\?1OQ`W`F?,:X8#O!2<G80?>&L]'COBK@&IN4C)WWF4K]7&W=W,P\"
^XMB(3.9,23,2,3293,0)="""DATA"",396.18,198,3,151,0)"
^XMB(3.9,23,2,3294,0)="MX_$`-W*.03LCB8&I%7^6\=C%2Q<NSEU:7IA;VG)((?@J.XAXN`OS<(\`+1CH"
^XMB(3.9,23,2,3295,0)="""DATA"",396.18,198,3,152,0)"
^XMB(3.9,23,2,3296,0)="M-!ARNS?7=[_2#6Q%7V""I_R5,_=-^ZO<[<KIL/MF^EX=ND8DKWM\+:'0=2^L'"
^XMB(3.9,23,2,3297,0)="""DATA"",396.18,198,3,153,0)"
^XMB(3.9,23,2,3298,0)="M:.+SW'NOE&<B(',8*\3G^(-[2H"":<YQIUD5K8HE5L-0T*S!G@A3Z;.)I""-""*"
^XMB(3.9,23,2,3299,0)="""DATA"",396.18,198,3,154,0)"
^XMB(3.9,23,2,3300,0)="M6`\G':VXVZ<5#_?<!DX4P\7Y'@I:U=M(M)$*V)M,18JJ#UY%RFY>^6=5E0`3"
^XMB(3.9,23,2,3301,0)="""DATA"",396.18,198,3,155,0)"
^XMB(3.9,23,2,3302,0)="M#7.5&?]`.7[IO5""6,BG&%(3\XY+X]-L\.L+K@M*4`_0@.0E%""(=G\\]-(&O%"
^XMB(3.9,23,2,3303,0)="""DATA"",396.18,198,3,156,0)"
^XMB(3.9,23,2,3304,0)="M'+.UM%DPTQ[-S7*K.AA*7`;;&B[]LVN-""LK4K0#N5DWE*$H@0>A.**?>^3U"""
^XMB(3.9,23,2,3305,0)="""DATA"",396.18,198,3,157,0)"
^XMB(3.9,23,2,3306,0)="M*T*M*VHX1P[\`_M=(%Q)E&DORX,34*^RU+],3/!?""$+""I;-&QZ95?,`T@0DY"
^XMB(3.9,23,2,3307,0)="""DATA"",396.18,198,3,158,0)"
^XMB(3.9,23,2,3308,0)="M;2<W'J7'U1H.?3GUA(/0T`1+:U4%28]^.DKL`4E_G-#Q0P$=V67!W+@'BFC^"
^XMB(3.9,23,2,3309,0)="""DATA"",396.18,198,3,159,0)"
^XMB(3.9,23,2,3310,0)="M.""NBJC03_\N.J#Z.*7E!0,EMLYT6!NZX2COJFE1JPQD'T_&:`<^6^C7_9%/+"
^XMB(3.9,23,2,3311,0)="""DATA"",396.18,198,3,160,0)"
^XMB(3.9,23,2,3312,0)="M&'W""G2#2^$6.G3D\P?L%$YS%'+CR&6F"",LL`+I-*+0FZ'%SV)*JZE]&TMR!3"
^XMB(3.9,23,2,3313,0)="""DATA"",396.18,198,3,161,0)"
^XMB(3.9,23,2,3314,0)="M5<O83K_'N9&>B8&C/1K:XAPYD<`+;""^9EWP!9R9ODF4G.WV?]PV>?BSI-B>Z"
^XMB(3.9,23,2,3315,0)="""DATA"",396.18,198,3,162,0)"
^XMB(3.9,23,2,3316,0)="M9+9K+:<C3Z=AX@Q(`5B,?]T*.HN?G]J)^5L6;`P!2FNAR:+N/#E2**20RGD]"
^XMB(3.9,23,2,3317,0)="""DATA"",396.18,198,3,163,0)"
^XMB(3.9,23,2,3318,0)="M&$Q!#3K8/4R`W7!C/&;Z#8$9BL'C>INGC%?JFX[G-$54[.<$1U(1'4FR,Y$G"
^XMB(3.9,23,2,3319,0)="""DATA"",396.18,198,3,164,0)"
^XMB(3.9,23,2,3320,0)="M++'!F#O(?)\5S'>K@PYC*ZNUZZ934Q%S-C7+!LI3OX$G>TDPV>V.'=E5UC&L"
^XMB(3.9,23,2,3321,0)="""DATA"",396.18,198,3,165,0)"
^XMB(3.9,23,2,3322,0)="MZ-'F&GCH@T_':&YRI!FQA+^2X*;\F`C(D$S9M+N5M9H!#*2*:""ZOX_9@@!,<"
^XMB(3.9,23,2,3323,0)="""DATA"",396.18,198,3,166,0)"
^XMB(3.9,23,2,3324,0)="MGNPL(S8$B=+%%R8>+C5;U@OQ.KDOV,IU$SI>&EC""JJ?C=#$7`.1S$,!J%EZ8"
^XMB(3.9,23,2,3325,0)="""DATA"",396.18,198,3,167,0)"
^XMB(3.9,23,2,3326,0)="MW*DEMNO7?3X;2'Y1@!.6Y/H4[O/W*80:2&4E`C_OTB:U*,K,',&9N]*<VMOG"
^XMB(3.9,23,2,3327,0)="""DATA"",396.18,198,3,168,0)"
^XMB(3.9,23,2,3328,0)="MZK75&NS\M=)58'L-(+A5YNC`2S5S\Z)7SLC6'\O<XO[.+QG'>FYAF(K<PG""*"
^XMB(3.9,23,2,3329,0)="""DATA"",396.18,198,3,169,0)"
^XMB(3.9,23,2,3330,0)="MQZ@#8JVQZNC;""=^RJ<RR#51BZ%""\\X77(<UK2]?6GG'7(1_OA!UF3IA[W5$L"
^XMB(3.9,23,2,3331,0)="""DATA"",396.18,198,3,170,0)"
^XMB(3.9,23,2,3332,0)="MXOX.789UEN[UN8KAX2MS%P&UM;\D.GWAR/_#7J)VGH-9T^TUP%T.08ME)G*P"
^XMB(3.9,23,2,3333,0)="""DATA"",396.18,198,3,171,0)"
^XMB(3.9,23,2,3334,0)="M[`PWF\E,J/""G//YI,@]_RF7QC]O!)_BWY.>I10MEBX+!R'>)8-GEDJ6TI$]V"
^XMB(3.9,23,2,3335,0)="""DATA"",396.18,198,3,172,0)"
^XMB(3.9,23,2,3336,0)="M[V08RP^2[$K.:Y[E^;?(>?TRW4S-Y;E0'+!$[B"">""^S-ZS+]1T*F2X/$]#:)"
^XMB(3.9,23,2,3337,0)="""DATA"",396.18,198,3,173,0)"
^XMB(3.9,23,2,3338,0)="M=!?9Q]W[B'3/4NF>931S;I""8'@[FF7T6I?\J(>.YF!TDGL/T-'Q#L[Q_UL\["
^XMB(3.9,23,2,3339,0)="""DATA"",396.18,198,3,174,0)"
^XMB(3.9,23,2,3340,0)="MHZ8+Y3`U/>15T\DLKZEOF.:U3`;_>UA%_[8SPQKYH),/>?*A0#X4R8<2^5#&"
^XMB(3.9,23,2,3341,0)="""DATA"",396.18,198,3,175,0)"
^XMB(3.9,23,2,3342,0)="M'T:`.B>?<O232C]I])-./^7IIP+]5*2?2O03G4.E<ZAT#I7.H=(Y5#J'2N=0"
^XMB(3.9,23,2,3343,0)="""DATA"",396.18,198,3,176,0)"
^XMB(3.9,23,2,3344,0)="MZ1PJG4.E<ZAT#HW.H=$Y-#J'1N?0Z!P:G4.C<VAT#HW.H=$Y=#J'3N?0Z1PZ"
^XMB(3.9,23,2,3345,0)="""DATA"",396.18,198,3,177,0)"
^XMB(3.9,23,2,3346,0)="MG4.G<^AT#IW.H=,Y=#J'3N?(TSGR=(X\GB,1+I*LER[5Q1+YNR+#H9@+DTA?"
^XMB(3.9,23,2,3347,0)="""DATA"",396.18,198,3,178,0)"
^XMB(3.9,23,2,3348,0)="MR'EDOE.O0Y=89A2<I/8)]'$2F+U73Q`C*3.RA%Z*1IW8QN$T\YZHKLS:T=4P"
^XMB(3.9,23,2,3349,0)="""DATA"",396.18,198,3,179,0)"
^XMB(3.9,23,2,3350,0)="MHK=M'6N'Y(UBQI9\C.UE&-,&23>FXEGJ.F.IIV;Q,GR&+L,19AGB=5RYE3'4"
^XMB(3.9,23,2,3351,0)="""DATA"",396.18,198,3,180,0)"
^XMB(3.9,23,2,3352,0)="ML1>DWE6(+#(&>@2[/!F\C]RA.NI3\S<SAVJ0PC@[EL%7*V;UO-4V5RSK&GVE"
^XMB(3.9,23,2,3353,0)="""DATA"",396.18,198,3,181,0)"
^XMB(3.9,23,2,3354,0)="M\U]C[E,<K-!/:$SG#Y,[P-]+N9ZD?X`8'P6,MU&P=COY!8G+3)`O!,$+.@I>"
^XMB(3.9,23,2,3355,0)="""DATA"",396.18,198,3,182,0)"
^XMB(3.9,23,2,3356,0)="M!9>A[>`S^.$B>.`G&-""(U$UN+06.K+!(6(<""V*5_@*]WY_22V_W?*.//)_<^"
^XMB(3.9,23,2,3357,0)="""DATA"",396.18,198,3,183,0)"
^XMB(3.9,23,2,3358,0)="M:+6>$B!@""0&S3@4""9@V=@2T`AD>,^MEZ#>PB""Z#%A<,R*S;,/-S,X%<0]A3V"
^XMB(3.9,23,2,3359,0)="""DATA"",396.18,198,3,184,0)"
^XMB(3.9,23,2,3360,0)="M%_TXP556_D`0'?K27<KY""\MSIQ2G:WL;GE;H^*U8U\V6[>F\HEPYKEQ96#BN"
^XMB(3.9,23,2,3361,0)="""DATA"",396.18,198,3,185,0)"
^XMB(3.9,23,2,3362,0)="M+#QR7('_@(^PROB1A863BO=OX9^A_\+_0?]'YX_!``L(O@A-`1[RG485QJ>0"
^XMB(3.9,23,2,3363,0)="""DATA"",396.18,198,3,186,0)"
^XMB(3.9,23,2,3364,0)="MLY9I)0_=.FVK8M5YC![7C[[+ZT?7&0E)_[TOFI-^-+F9>Y4,P*7A;7;:>.^<"
^XMB(3.9,23,2,3365,0)="""DATA"",396.18,198,3,187,0)"
^XMB(3.9,23,2,3366,0)="MH""OKO%$Q%;N[WFQ;P1`T.8TSA/_`WY;$'?'0.:.""EANVL@6K#SUFT*-FKUF5"
^XMB(3.9,23,2,3367,0)="""DATA"",396.18,198,3,188,0)"
^XMB(3.9,23,2,3368,0)="M:TH3-G$,F@3KH=O1)'].J)[RSX'^;A.36+R$8_OF4PF>\OT""B)Y+F]QPUDNZ"
^XMB(3.9,23,2,3369,0)="""DATA"",396.18,198,3,189,0)"
^XMB(3.9,23,2,3370,0)="MQF`#IM](^$""!7-)/+C2N@]NVT88Y(7`?Z]#LNFH@/(+VC5H;`0""@$&_3L-<#"
^XMB(3.9,23,2,3371,0)="""DATA"",396.18,198,3,190,0)"
^XMB(3.9,23,2,3372,0)="M9]39&7>1-_0K@AF/L@``39H-:%TELZYW[`J@XE3D?&LV2)QZ`F]3B\RLT&R-"
^XMB(3.9,23,2,3373,0)="""DATA"",396.18,198,3,191,0)"
^XMB(3.9,23,2,3374,0)="M0DPS99H!OL7]=];C&2?;(O.@L3P0G_J+""0$3:KR^-2QZ;P4K7@?\R8&ZC<=0"
^XMB(3.9,23,2,3375,0)="""DATA"",396.18,198,3,192,0)"
^XMB(3.9,23,2,3376,0)="M*C)#G/$UB1EZ6<!0OJ#'\_(R#*WY.U3@[@?QV)+G`7-Z]QM$#SSFSX,MYO,!"
^XMB(3.9,23,2,3377,0)="""DATA"",396.18,198,3,193,0)"
^XMB(3.9,23,2,3378,0)="MSYM,O%J$D""1AXL'X<`2*""E'=R_U1Q*69_%1*43ER$]Z^*%+9-9)2%)B\/;JQ"
^XMB(3.9,23,2,3379,0)="""DATA"",396.18,198,3,194,0)"
^XMB(3.9,23,2,3380,0)="M%.GL&LTD96L4E$\]MK$4:>P:R2D*2C8?CT]10)(?OF\_XMBBA[RX\`P6_27S"
^XMB(3.9,23,2,3381,0)="""DATA"",396.18,198,3,195,0)"
^XMB(3.9,23,2,3382,0)="MA-4T&YMJI/66WJUQ/%X*YS$^WKYG1IV;L1-GQE""X?8F)76(?8;K/POY""PM7G"
^XMB(3.9,23,2,3383,0)="""DATA"",396.18,198,3,196,0)"
^XMB(3.9,23,2,3384,0)="M%)3H;-VHK3O9*@L<1NL<,/9#WS(%KD'L/=$@2CU#L'93ZH/1T"",]0W""&T#-A"
^XMB(3.9,23,2,3385,0)="""DATA"",396.18,198,3,197,0)"
^XMB(3.9,23,2,3386,0)="M&*=!A0>8ERE$2!XOWZL)?X^$J?L[X*!Q!3Z#<""R\W6T*++]7)/SNFK4J'91T"
^XMB(3.9,23,2,3387,0)="""DATA"",396.18,198,3,198,0)"
^XMB(3.9,23,2,3388,0)="M2<3FW6_IW'>11YGE]H:$VVG<DILPC:R<S62XQZ8?Y*4YQ76=$'$\L<``G&VJ"
^XMB(3.9,23,2,3389,0)="""DATA"",396.18,198,3,199,0)"
^XMB(3.9,23,2,3390,0)="MQR2Z\IOR*C_2;>W[24[]_2]5?_^39,.Q`<_]$FM!3TC0-F\^;X)'^.'#\#7>"
^XMB(3.9,23,2,3391,0)="""DATA"",396.18,198,3,200,0)"
^XMB(3.9,23,2,3392,0)="MJ4,?2>C37]>YUL.D2N81_^""[T.#.FPP]$`5YH][!^;[&9[REQ*Y3:<\2H5@X"
^XMB(3.9,23,2,3393,0)="""DATA"",396.18,198,3,201,0)"
^XMB(3.9,23,2,3394,0)="M03C@+^FLZM3:/HEG6A2X1,Y#R.RP=5$Y\$WP?,6K_DG!JM_BP5IM<!.$+1+-"
^XMB(3.9,23,2,3395,0)="""DATA"",396.18,198,3,202,0)"
^XMB(3.9,23,2,3396,0)="M!W)FJB0E+=X>,,""1L""`X('@9P:SL<#9T=O`_(\_QUP1L'/.PL1HX6?B^<T""U"
^XMB(3.9,23,2,3397,0)="""DATA"",396.18,198,3,203,0)"
^XMB(3.9,23,2,3398,0)="M;R8DA3]S1@OY^-8PB&""XP+)%U>DLX>@O!!P=\7`$F_`!D\(W%<,/D_,VY<MY"
^XMB(3.9,23,2,3399,0)="""DATA"",396.18,198,3,204,0)"
^XMB(3.9,23,2,3400,0)="MX\JY#_K@/R^[1G))BY7EYEC*>Q8=T4?^%=OQ-52N9?;[OB:G.S,]V[*L)G++"
^XMB(3.9,23,2,3401,0)="""DATA"",396.18,198,3,205,0)"
^XMB(3.9,23,2,3402,0)="M,-_N]![4S+3H=,5/>DM$2'J3/3+*K!^-+*"";0\X\,DJ%L#""AO[15_,Z0OWMP"
^XMB(3.9,23,2,3403,0)="""DATA"",396.18,198,3,206,0)"
^XMB(3.9,23,2,3404,0)="M2QU""TF,RDHIA)*6BD\2(V6Z?F.582-[TLT3U_)@*6LDM7R_J/0C:V%*[<_6J"
^XMB(3.9,23,2,3405,0)="""DATA"",396.18,198,3,207,0)"
^XMB(3.9,23,2,3406,0)="M`^TZ=JG3:'21SNHY&3(=.1F2*Z_2RBR?W_+S>8#A,S]@.4;R'>8NEU;2Q_D#"
^XMB(3.9,23,2,3407,0)="""DATA"",396.18,198,3,208,0)"
^XMB(3.9,23,2,3408,0)="M#.=J#SL\=6:E""I$V@-9>J5O(6Y_)G(=I[49FY`KX#?JFU_T>ZFV_=0X2]:_]"
^XMB(3.9,23,2,3409,0)="""DATA"",396.18,198,3,209,0)"
^XMB(3.9,23,2,3410,0)="M7!]AN-8&+-5(>G%P@OXS^8'.];#=M[KXS+;9L&L(ZQ)U6K""M3J.:V><H'J3V"
^XMB(3.9,23,2,3411,0)="""DATA"",396.18,198,3,210,0)"
^XMB(3.9,23,2,3412,0)="ME:II-F$-%,RDZ%4""AGL\\2R`=OH^(@%O)GPMNH&^';3T4>D[`/=W^6$BPCL@"
^XMB(3.9,23,2,3413,0)="""DATA"",396.18,198,3,211,0)"
^XMB(3.9,23,2,3414,0)="M%11:8<L]:+L#437$S8M6!W<>;J^UP/F/$`+DLEQIH^$/""4HM&%SHRIJ)P*AM"
^XMB(3.9,23,2,3415,0)="""DATA"",396.18,198,3,212,0)"
^XMB(3.9,23,2,3416,0)="M*%]`Y,)-0XVM]G%[&'Q$:%>[$]E-T[@6<R:N2=-W$SY[C2V08V:Z81""([>AS"
^XMB(3.9,23,2,3417,0)="""DATA"",396.18,198,3,213,0)"
^XMB(3.9,23,2,3418,0)="MZ6PE1/H8L>$/""""*$L#PNPH#X4=!!`_Z<;,<Q_X""C2]%7A--#UPF5\_Y!)^>Z"
^XMB(3.9,23,2,3419,0)="""DATA"",396.18,198,3,214,0)"
^XMB(3.9,23,2,3420,0)="M$<+&1*'GT'@?2PY,1%<G[982/.5;*J(KO5&X6JR;?!>*Q<0T>KE01N##`D)$"
^XMB(3.9,23,2,3421,0)="""DATA"",396.18,198,3,215,0)"
^XMB(3.9,23,2,3422,0)="M9G8`IANKJ.%4&SP(3?#F<,'7C7KMNH-J/\W<0.ZWNP4G.+-'>-@R4WZU\NZ_"
^XMB(3.9,23,2,3423,0)="""DATA"",396.18,198,3,216,0)"
^XMB(3.9,23,2,3424,0)="M4#B5\3O^BYJ-%:GOSA,EQRG,5^0T:1OX1I'1Q%T6/Y+3I,=.4XWT;O*?""8ZH"
^XMB(3.9,23,2,3425,0)="""DATA"",396.18,198,3,217,0)"
^XMB(3.9,23,2,3426,0)="M(CG3CQ.:[F%HRO=6C3:T!#1`,S.RU#965J#00KO`<#(C,L/W=UJ-GJ1VJ$^I"
^XMB(3.9,23,2,3427,0)="""DATA"",396.18,198,3,218,0)"
^XMB(3.9,23,2,3428,0)="M+;%WQ?:DM[Z5W8S0=W5F@S8#YY,]ZVC83_MVXQ$FHMC+&W;W9<0'M'$KL*Q:"
^XMB(3.9,23,2,3429,0)="""DATA"",396.18,198,3,219,0)"
^XMB(3.9,23,2,3430,0)="M,;MF9H?[Y0K07M<R8P]#@*LN^N7PK/,A_OZ,1-@?Z6)P1UB^%MH67XLHEG]4"
^XMB(3.9,23,2,3431,0)="""DATA"",396.18,198,3,220,0)"
^XMB(3.9,23,2,3432,0)="M6-X\TP.7%@""Z)?^W,W);C)49,K'L6+WPO7-ZB$U:A?EP<<K^QITE04/PJ-BR"
^XMB(3.9,23,2,3433,0)="""DATA"",396.18,198,3,221,0)"
^XMB(3.9,23,2,3434,0)="MF&=.E'CJ8D2<W,QPQC8:FMGC`1S+PO]H;'QF5!*?V7[)K(#ML!4G,K69L:C0"
^XMB(3.9,23,2,3435,0)="""DATA"",396.18,198,3,222,0)"
^XMB(3.9,23,2,3436,0)="M""$TB-+]X\B*I'(8AYEA9QJ+-3M$%2\3*,6ZFWQLYQK*G,,Y\^&F2.QW_0I_"""
^XMB(3.9,23,2,3437,0)="""DATA"",396.18,198,3,223,0)"
^XMB(3.9,23,2,3438,0)="MJ^G-I#TH""$=0*IP:B"".8ZN\F_-U7?F5YS00ZN.'D-,.T92=%&7;4LE:=GHHK"
^XMB(3.9,23,2,3439,0)="""DATA"",396.18,198,3,224,0)"
^XMB(3.9,23,2,3440,0)="MIH,Q`7ZHM132>=%6*D8#%BBOF+1[9O7DY%AX]*O$1;\>Q4)8$,#$/6""L*BWS"
^XMB(3.9,23,2,3441,0)="""DATA"",396.18,198,3,225,0)"
^XMB(3.9,23,2,3442,0)="M:MU\\G3@8-B>.(0&>V!@7G4E'%]X/L$1/@!IN@1JPA&NIWTA+3=.>O(N!6J@"
^XMB(3.9,23,2,3443,0)="""DATA"",396.18,198,3,226,0)"
^XMB(3.9,23,2,3444,0)="M4\JBT85BXK1C4QI6:QV\I&""S*\6VUDVE"";-4S0B-4LLYM@K_\PD?N*>[:B?F"
^XMB(3.9,23,2,3445,0)="""DATA"",396.18,198,3,227,0)"
^XMB(3.9,23,2,3446,0)="MZN9UBKS0-%#6/_C!-F""_,&7FS-J,U5*ZQ@UH!9^.,+7*WO\_(:KSL@#YY0QN"
^XMB(3.9,23,2,3447,0)="""DATA"",396.18,198,3,228,0)"
^XMB(3.9,23,2,3448,0)="MKP@]FLZ3,5!Z"":R`,^H!8E4<EWA.3H=Z3D@%E#/H/!GTD'_0S!6K5C&#J>-L"
^XMB(3.9,23,2,3449,0)="""DATA"",396.18,198,3,229,0)"
^XMB(3.9,23,2,3450,0)="MGL<WB+HB.ZB2""C[^HPH*#)B-8`)+[%B_3,9ZT#_6#CZZ&A[H)LFJSM!_FI+`"
^XMB(3.9,23,2,3451,0)="""DATA"",396.18,198,3,230,0)"
^XMB(3.9,23,2,3452,0)="MX]QQP=>UE$)[7`7V)K32@COA<BR\D)0@""LUV[6;#-%""Z,+#]JE;K=.""H97;4"
^XMB(3.9,23,2,3453,0)="""DATA"",396.18,198,3,231,0)"
^XMB(3.9,23,2,3454,0)="M5S=DYU25._@9O"")_*3CX]W&U,LK""(\K,`[#18!.HKRXP'8SZ#/+W\G\&_NJ*"
^XMB(3.9,23,2,3455,0)="""DATA"",396.18,198,3,232,0)"
^XMB(3.9,23,2,3456,0)="ML=JQ9[9B.S-\HWZHISO+,Q9W`MY(^II(N@M96+!Q;S2X?`@C#OJUH""*#K>&:"
^XMB(3.9,23,2,3457,0)="""DATA"",396.18,198,3,233,0)"
^XMB(3.9,23,2,3458,0)="ME@U[)`*!R+U/0[\%[YJ.>9HO*`I\BQ>X%J%7,5,?%""`EY_2`%[@/K3YS'FGW"
^XMB(3.9,23,2,3459,0)="""DATA"",396.18,198,3,234,0)"
^XMB(3.9,23,2,3460,0)="M3.8,4O9RUTR!6U4I`?FH?BL_`?+H)BO4Z3\A5\H_""L)=I5PAUGMW?*F[OF["""
^XMB(3.9,23,2,3461,0)="""DATA"",396.18,198,3,235,0)"
^XMB(3.9,23,2,3462,0)="M@B-`SL09F_EI\O+U3MU0UFM5\-HU,P><'ZO@<0*Q""1T(/OS+=P;N1[8I1=%+"
^XMB(3.9,23,2,3463,0)="""DATA"",396.18,198,3,236,0)"
^XMB(3.9,23,2,3464,0)="MEQ%/=ELB`XB3;=D)"";:97ILA$L*IQ[OEQ.1BEVOWY%`L<,IU24Y3,2H``UF@"
^XMB(3.9,23,2,3465,0)="""DATA"",396.18,198,3,237,0)"
^XMB(3.9,23,2,3466,0)="M@T#-&ZWV6JMF*$?7+*@#H<9O&+91/Q:""?<[=65TY8:4-=*[):,JQ-&53,IJR"
^XMB(3.9,23,2,3467,0)="""DATA"",396.18,198,3,238,0)"
^XMB(3.9,23,2,3468,0)="MI:CU`V2QQF:!.,.<:V@G$P0`42RWP%+Q?C\55Q@J!@K&:ES,+W>&O^[C-_U"""
^XMB(3.9,23,2,3469,0)="""DATA"",396.18,198,3,239,0)"
^XMB(3.9,23,2,3470,0)="MPHWB9[7!:)XAZS_`'<D7Y9*OQJLM&K[8,L.OLC)W]KXEIR`T\C$2_>Q%]%_F"
^XMB(3.9,23,2,3471,0)="""DATA"",396.18,198,3,240,0)"
^XMB(3.9,23,2,3472,0)="MN*?3+XA%>(60=QN!%=!D+=HX_V6,2K71D(P#7$3S(]X)N8.B@SZ4<BL#>:/Q"
^XMB(3.9,23,2,3473,0)="""DATA"",396.18,198,3,241,0)"
^XMB(3.9,23,2,3474,0)="MRL*"",C/OE&""B;V8VTR$3E`U!-/,HFTDN?*?,>ZM)`P9DMS-5""'Z-[KIP'3;-"
^XMB(3.9,23,2,3475,0)="""DATA"",396.18,198,3,242,0)"
^XMB(3.9,23,2,3476,0)="M0`FQT/SH!CZF""&IQ%@UYY\!X4HK81_>5!$?X`'A2BAQ42043_I``Y7>N:ZZT"
^XMB(3.9,23,2,3477,0)="""DATA"",396.18,198,3,243,0)"
^XMB(3.9,23,2,3478,0)="MK!ND]WGP'N;94TX0GT7(Q[OGK9:Y9AI5Y08XMM?JTE%9=V+ZJV34(_Y11Y;6"
^XMB(3.9,23,2,3479,0)="""DATA"",396.18,198,3,244,0)"
^XMB(3.9,23,2,3480,0)="M:_*ABNQ0)!@KXGD[U$'05=,VS?9:\(`E=D!2PBWD^""+*(UU5K$X;!NW-:W;P"
^XMB(3.9,23,2,3481,0)="""DATA"",396.18,198,3,245,0)"
^XMB(3.9,23,2,3482,0)="MJ&5VU'N)-O^H"",P5`B7#8<TNL-S;%GC\V<`H,1H5\[02Z/WC7ATU0G5.\#Z?"
^XMB(3.9,23,2,3483,0)="""DATA"",396.18,198,3,246,0)"
^XMB(3.9,23,2,3484,0)="M!_O>D""UI267'^E32V[G+'6OBP6X3*(-*!Q`8/!R'=/DZ&<[V#W<3<1V@FF9F"
^XMB(3.9,23,2,3485,0)="""DATA"",396.18,198,3,247,0)"
^XMB(3.9,23,2,3486,0)="MZ%`?4(D5_/1;9(Z[!`*U[.2_N^1NYX=RSOYO)OK0@_R(16[$G@ZE!ZVDQ([8"
^XMB(3.9,23,2,3487,0)="""DATA"",396.18,198,3,248,0)"
^XMB(3.9,23,2,3488,0)="M^Z'TC%KF1HUW*#UM6[+<4+T<2D\U(;<KO1]*C]N$'W4##J5G?)4;/^:A](RE"
^XMB(3.9,23,2,3489,0)="""DATA"",396.18,198,3,249,0)"
^XMB(3.9,23,2,3490,0)="M<6/%/Y2>X71NN`TZE)XY\MP<$0^EQ""+6.1-EWK=;C$&LY>.ZEZ:(.Z6K&,TF"
^XMB(3.9,23,2,3491,0)="""DATA"",396.18,198,3,250,0)"
^XMB(3.9,23,2,3492,0)="MNFKE]KG.[6X(.86XSJ;XY+!:-M624:-J4=.C""#7;(%9)-`^<SDE6""""%Z7&=/"
^XMB(3.9,23,2,3493,0)="""DATA"",396.18,198,3,251,0)"
^XMB(3.9,23,2,3494,0)="M'$(XR^5S""2DA^:C^G5X(*7#G((220ESW3AQ*.%OIFU)""-""VJ%Z<70O@;+(02"
^XMB(3.9,23,2,3495,0)="""DATA"",396.18,198,3,252,0)"
^XMB(3.9,23,2,3496,0)="M/>KSNA=*.+OLO^6$Y*(^KGL@),_?F2&4J%&1.GJAA'O8'TI*Q;4<U\$6AQ#^"
^XMB(3.9,23,2,3497,0)="""DATA"",396.18,198,3,253,0)"
^XMB(3.9,23,2,3498,0)="M_I13HF6C`G/T0@EGPBX20IX1+DF0E$QL!""'\O;THWYP@*9G<""$HX]?JDG)`@"
^XMB(3.9,23,2,3499,0)="""DATA"",396.18,198,3,254,0)"
^XMB(3.9,23,2,3500,0)="MG_7VC2""$5Z\AE`0YA'=L!""6<+GE1+JY!2^)K<SQ^WFHK3<=C&-%U6.!U20@E"
^XMB(3.9,23,2,3501,0)="""DATA"",396.18,198,3,255,0)"
^XMB(3.9,23,2,3502,0)="M04=XUT90PNF2OY,3$AI`F-J8:`NO5N1$Z=DPHG9O#%&\??]S.5%!!WM/D!2/"
^XMB(3.9,23,2,3503,0)="""DATA"",396.18,198,3,256,0)"
^XMB(3.9,23,2,3504,0)="MTK*%B'%4[CT=0DV0PIN.14U4MS-V=#@-IPZ20,3;OB(ZZ'>.!Q&7E\?&C08."
^XMB(3.9,23,2,3505,0)="""DATA"",396.18,198,3,257,0)"
^XMB(3.9,23,2,3506,0)="MC:M<:#R6VWJO/'.VR""93SF#6_I7&6(ZX3NL9C]-:F5ENU59-I^AU\]W60=B="
^XMB(3.9,23,2,3507,0)="""DATA"",396.18,198,3,258,0)"
^XMB(3.9,23,2,3508,0)="MV,K!"":@[@L$>]B^9#1NBVS$`IZ>4BQ*`36PMX'ZHMPR,MQG;%NDO)CC""!\#;"
^XMB(3.9,23,2,3509,0)="""DATA"",396.18,198,3,259,0)"
^XMB(3.9,23,2,3510,0)="MG&?3PE)93/@)P?.>>*$""1V+SPE(/X9%N$RS!6>C1""1R&#<JFJGB8/0(1.+LF"
^XMB(3.9,23,2,3511,0)="""DATA"",396.18,198,3,260,0)"
^XMB(3.9,23,2,3512,0)="M$20VU)GZ<+#39GRN`3OI*':M:@8.5F($/OU)8M7_GJ@IFE#DS\&_`KJF4UG;"
^XMB(3.9,23,2,3513,0)="""DATA"",396.18,198,3,261,0)"
^XMB(3.9,23,2,3514,0)="M0CO/14=?2O2Q]04NS/EJHM>]+W!I`=]+]+CY!2XK\S\2_>T^`5)S=O\IX@%["
^XMB(3.9,23,2,3515,0)="""DATA"",396.18,198,3,262,0)"
^XMB(3.9,23,2,3516,0)="M5-`]4%FTVA:'YQPXJ,X.^ARYF_]&D(Q][:)1=[HXHNPX""]RU+3>'M0*VN&54"
^XMB(3.9,23,2,3517,0)="""DATA"",396.18,198,3,263,0)"
^XMB(3.9,23,2,3518,0)="MR(\0RMIJ@>L#_NFZ8=L0F9[$#>$EN()P$Q0@?U7E*/+7*N!7#53_=2Q""QBO)"
^XMB(3.9,23,2,3519,0)="""DATA"",396.18,198,3,264,0)"
^XMB(3.9,23,2,3520,0)="M#G,(_X8/9I'UK3>4=53$#9'X9+$*DO""UC?<Q""MRBV\]:K88)V'-RZ0('Q*?_"
^XMB(3.9,23,2,3521,0)="""DATA"",396.18,198,3,265,0)"
^XMB(3.9,23,2,3522,0)="M#C3@VX-3U8L3F]*?3O""4;_V+A+;]<#9Q&Y'H+T96DLM`=*&QW6F96X@K+FMZ"
^XMB(3.9,23,2,3523,0)="""DATA"",396.18,198,3,266,0)"
^XMB(3.9,23,2,3524,0)="M7[)W):F2BM-=:*A<LD<EJ9)JVCU.>G.R-R5)>J]BSJK)J$I2!D6$1>`4NG1/"
^XMB(3.9,23,2,3525,0)="""DATA"",396.18,198,3,267,0)"
^XMB(3.9,23,2,3526,0)="M>#'=F>=&(1?7M>]_;F1&:<%V""$(2?BO^=B*<+C6NC[\?NC1VN>8E9`5"",:?>"
^XMB(3.9,23,2,3527,0)="""DATA"",396.18,198,3,268,0)"
^XMB(3.9,23,2,3528,0)="M"";)T;KFD=!7B^O[[H2O/+M>OR\@JQHT$]$-6@5LN*5VEN'&!?N@JLLOUE(RL"
^XMB(3.9,23,2,3529,0)="""DATA"",396.18,198,3,269,0)"
^XMB(3.9,23,2,3530,0)="M<MPH03]DE;CEDM$5""&4]_$[056:6*_V%A&R]8H<0^J""+-'!RUBN$L-@1A7X("
^XMB(3.9,23,2,3531,0)="""DATA"",396.18,198,3,270,0)"
^XMB(3.9,23,2,3532,0)="MX[2JFVH@(DPOQ/7K]T,8JU9I1Q0Q7<6X;OY^Z.+T:@AAI;A>_WX(8Q5K^M^E"
^XMB(3.9,23,2,3533,0)="""DATA"",396.18,198,3,271,0)"
^XMB(3.9,23,2,3534,0)="M=)7C!@'ZH0MKUH\GP@G+9^/&!/HAK,B:NE\AIN[W18[5?%#@\R8O86.T,$3)"
^XMB(3.9,23,2,3535,0)="""DATA"",396.18,198,3,272,0)"
^XMB(3.9,23,2,3536,0)="M['(1:L"";K0XFRTQQ7[7@<""%4<EZ+[\FI#`H4[_=2N?<AXP9X?:T;-6!3UQJT"
^XMB(3.9,23,2,3537,0)="""DATA"",396.18,198,3,273,0)"
^XMB(3.9,23,2,3538,0)="M6&4:?D]+5=J60_0>[[=1Z""ZSJ.-CI'S/$(EC$-DW>\DFD8Z(`67LSW@""D3"">"
^XMB(3.9,23,2,3539,0)="""DATA"",396.18,198,3,274,0)"
^XMB(3.9,23,2,3540,0)="M\C9.9TD(VM\#_9%0XK38R:3LGM2BAEH\55!A+15P0AXY@'(B]*BAE;A$<-KI"
^XMB(3.9,23,2,3541,0)="""DATA"",396.18,198,3,275,0)"
^XMB(3.9,23,2,3542,0)="M02D-^;A!C*@T\)I(3D0A;EPG*A%%C@A#2D30_;&O7R)*[&[(:0BZ7/?V2P/["
^XMB(3.9,23,2,3543,0)="""DATA"",396.18,198,3,276,0)"
^XMB(3.9,23,2,3544,0)="MS$Q/2VDH1XW0QJ5!Y39#2D0Q&S4X&Y,(C5L(N066CYOC$78_!K9[P+I31?;]"
^XMB(3.9,23,2,3545,0)="""DATA"",396.18,198,3,277,0)"
^XMB(3.9,23,2,3546,0)="M-E_0T6W2,7X%MCM2EFJK#3LZ$HHD\J:QK?#.I7RAMP-)%RG<4V2\H,PL-5'<"
^XMB(3.9,23,2,3547,0)="""DATA"",396.18,198,3,278,0)"
^XMB(3.9,23,2,3548,0)="M[4RE8MK(.^5$X%C8&;$G)9ME.VWLE&0;+[>,IOE4K6-CCVQ@_7>6:]Z!@R#`"
^XMB(3.9,23,2,3549,0)="""DATA"",396.18,198,3,279,0)"
^XMB(3.9,23,2,3550,0)="M^/>/.4-QL>VU5F=5,5;AS=QF4EN#)\%N\KNY7F-;WDE*NMFG?S_!$3X`/M)L"
^XMB(3.9,23,2,3551,0)="""DATA"",396.18,198,3,280,0)"
^XMB(3.9,23,2,3552,0)="MGC5M_ID$DIX3Y2HO=UH-!65]^[<T<&6*S(ZFWTH,SI:6V""UU3?TMM:=1,<'8"
^XMB(3.9,23,2,3553,0)="""DATA"",396.18,198,3,281,0)"
^XMB(3.9,23,2,3554,0)="M!,V4@O?X\W2/9QBDY$*LW(8#7OVA&+1N(6Z+N*C,<)A!9S$S?YOP`YR5BZ58"
^XMB(3.9,23,2,3555,0)="""DATA"",396.18,198,3,282,0)"
^XMB(3.9,23,2,3556,0)="MS.SW,]-N6<VUK@3MS.>_<X3!D>;,MONM]EIF^+Q9<Q""AQ;AG27EA,M=XZ6G)"
^XMB(3.9,23,2,3557,0)="""DATA"",396.18,198,3,283,0)"
^XMB(3.9,23,2,3558,0)="MVZ/<CT]VPD6VJUHAI=+X*G@RG*)^O+%>BJ+*!Y<N1^%&ORJ4]G*\QMI+;;/5"
^XMB(3.9,23,2,3559,0)="""DATA"",396.18,198,3,284,0)"
^XMB(3.9,23,2,3560,0)="ML(!DU*K6NF&WK5JU5X'?%ITAKG+L:PE?8)9AJ!0O->F@D""$L]+W)..-""E@L1"
^XMB(3.9,23,2,3561,0)="""DATA"",396.18,198,3,285,0)"
^XMB(3.9,23,2,3562,0)="MU\DKD91)D=:'-SB.7.<9N0XA2>_#$>PE269`%MB""X_3YE*_B>+]K0=[IM2""!"
^XMB(3.9,23,2,3563,0)="""DATA"",396.18,198,3,286,0)"
^XMB(3.9,23,2,3564,0)="M""?E@MVFMPKPSFK_%;E""`35!D.RG2)FMS@N#W!:<]=*MC@Q\#47ZR;*\EBEV2"
^XMB(3.9,23,2,3565,0)="""DATA"",396.18,198,3,287,0)"
^XMB(3.9,23,2,3566,0)="MNML_X/!2TS0K:\$C<<U""?Y""(B1<4\<3I7'/W*1^DTFT,)D',`[>,LOLPM!CT"
^XMB(3.9,23,2,3567,0)="""DATA"",396.18,198,3,288,0)"
^XMB(3.9,23,2,3568,0)="M5AG-IFFT4,'7.W1A$AAUAYNRMQ>5PDAU/'4X<L:K*:(0GHQ.N,82_E@PX>5L"
^XMB(3.9,23,2,3569,0)="""DATA"",396.18,198,3,289,0)"
^XMB(3.9,23,2,3570,0)="MO,[#.^8-NP)175""<WX[=HU>F0PJL6OL$4=;_*7!QEK-JU-MQ>!'[-/?/,IY+"
^XMB(3.9,23,2,3571,0)="""DATA"",396.18,198,3,290,0)"
^XMB(3.9,23,2,3572,0)="M8P6+$0R#9_:[6L4YDE43YY*&:#WNM+\FHQA<F''#F""-G,)$A1'`:XBTY$:$)"
^XMB(3.9,23,2,3573,0)="""DATA"",396.18,198,3,291,0)"
^XMB(3.9,23,2,3574,0)="MW4/1<Z<CH)@.+9MVVXZ%7JKVAE[ZWH`I#7A/L3[TU'!PI>WT8LVNF/6ZT3`M"
^XMB(3.9,23,2,3575,0)="""DATA"",396.18,198,3,292,0)"
^XMB(3.9,23,2,3576,0)="M8(G#1FFB9N4!.H-4&24Y;V#Z`+DO4X>)(&D%38VE-4X]#'.X8<HV>/9VZFV4"
^XMB(3.9,23,2,3577,0)="""DATA"",396.18,198,3,293,0)"
^XMB(3.9,23,2,3578,0)="MR@TKM1&)0)=7ZN#,54E>-\PD`G_9M%IM1L&\.UL3J,:""TJJ%G85R[([M)>""L"
^XMB(3.9,23,2,3579,0)="""DATA"",396.18,198,3,294,0)"
^XMB(3.9,23,2,3580,0)="M*6)YW)<D2UG.ZN4!@.:)=-I'9VO&:L.R:_%.O/;_)]Y3IXU=P>F?.6MR#*^)"
^XMB(3.9,23,2,3581,0)="""DATA"",396.18,198,3,295,0)"
^XMB(3.9,23,2,3582,0)="M+C#5P""T`VZ_:I[:0^P<+_TZD1SZ:\,+_3[)O*`C9:H(?ZM9J][A2NPKQ#NW:"
^XMB(3.9,23,2,3583,0)="""DATA"",396.18,198,3,296,0)"
^XMB(3.9,23,2,3584,0)="M""O*F2FQ[?$OL0.NSY`,TSVTN0%!`<UW6ODF-8Z*_0XE6!`=I2Z.82_8GSXH`"
^XMB(3.9,23,2,3585,0)="""DATA"",396.18,198,3,297,0)"
^XMB(3.9,23,2,3586,0)="M[1'R.E6`WTDPG58[Z^M&""X$95`G?IS9S`X>P2I]D53K;092^:_Z8,O0R!5LK"
^XMB(3.9,23,2,3587,0)="""DATA"",396.18,198,3,298,0)"
^XMB(3.9,23,2,3588,0)="M%LJE`='H`C;SG.8ID9N+V@`/N6P6!^'B2HNQ\TJL?#Y/Y/.UE+_O6SF;'XP&"
^XMB(3.9,23,2,3589,0)="""DATA"",396.18,198,3,299,0)"
^XMB(3.9,23,2,3590,0)="MCUXK;Y_8RBLS><NI-&;\VU0)'2*U>CDU'\^?K3QLV(JA+)I5A(I\H5EKP#*&"
^XMB(3.9,23,2,3591,0)="""DATA"",396.18,198,3,300,0)"
^XMB(3.9,23,2,3592,0)="M2^83'6#DF=78;W17O>SUJ7_8&2+'W@&'-_P.^*_^JNW('3#-WP$LY>$7P=C<"
^XMB(3.9,23,2,3593,0)="""DATA"",396.18,198,3,301,0)"
^XMB(3.9,23,2,3594,0)="M>K-N=?]OH!J>I-LE&!@`4$L#!!0``@`(`'UW'C4Z:S\$ICH``.@^`@`:````"
^XMB(3.9,23,2,3595,0)="""DATA"",396.18,198,3,302,0)"
^XMB(3.9,23,2,3596,0)="M0W)A;FEA;%].97)V97-?,3$S+G!N;""YF<FWL/6MOVTB2WP>8_T#XBY*[;(;="
^XMB(3.9,23,2,3597,0)="""DATA"",396.18,198,3,303,0)"
^XMB(3.9,23,2,3598,0)="MS:=QAX7C.),<\C!LSP2'PV)!BRV;&XK4DI0=S:^_[J9(]9-LR;)G8CO`8""R2"
^XMB(3.9,23,2,3599,0)="""DATA"",396.18,198,3,304,0)"
^XMB(3.9,23,2,3600,0)="M$JNKJNM=7>7EO_""T<3XFESB_6""WPE]F[LIH?.A?LRL\_.<Y'/&N<_W;^!EV7"
^XMB(3.9,23,2,3601,0)="""DATA"",396.18,198,3,305,0)"
^XMB(3.9,23,2,3602,0)="M?KPH%^131/_\FJ7--?F`8OKI/<ZNKNF3`-&/Q\FBR<J""?)Y\.CG[]63R\T^X"
^XMB(3.9,23,2,3603,0)="""DATA"",396.18,198,3,306,0)"
^XMB(3.9,23,2,3604,0)="M2'_^J>1>2%_UX>WHRZ#'O\T+AM]V?';T^</11^E]ZZO_/$T*G(?DE>P/[I4`"
^XMB(3.9,23,2,3605,0)="""DATA"",396.18,198,3,307,0)"
^XMB(3.9,23,2,3606,0)="MQ)LW""B_T(1#>Z(&0?<X*^FER^N7TM],)O?(&W^#\0U'@BER_O#E+LAJG[$99"
^XMB(3.9,23,2,3607,0)="""DATA"",396.18,198,3,308,0)"
^XMB(3.9,23,2,3608,0)="MI;@Z;U8YIG?J\ZRXRC&#N\Q+^O0T/\_R&US1:^_*HGE]?)U4-:8O>'OR[NBW"
^XMB(3.9,23,2,3609,0)="""DATA"",396.18,198,3,309,0)"
^XMB(3.9,23,2,3610,0)="MCQ?_/'Y_='9^<K%YHO_JFSR9?NNO]W#^#8#^XN=DCADISIWSI*B=<UQELTE_"
^XMB(3.9,23,2,3611,0)="""DATA"",396.18,198,3,310,0)"
^XMB(3.9,23,2,3612,0)="MNP/M__Y!+YTF%2X:>H-<>I?D-0/U(KG\0I=!KC':2(AE)$0>3\P-;CW0?FZQ"
^XMB(3.9,23,2,3613,0)="""DATA"",396.18,198,3,311,0)"
^XMB(3.9,23,2,3614,0)="M""V#[J4,PA'%[84/4H+W`D[5*BBS)#YW3JKS,\=PY7^!I-LNFA!!U4U:K2?N5"
^XMB(3.9,23,2,3615,0)="""DATA"",396.18,198,3,312,0)"
^XMB(3.9,23,2,3616,0)="M<>R9\:=B$'&7S3B4L3BKWY1Y^H_VEAZ;C#?U2(0(:+&(4,!C$842&H$;2FB$"
^XMB(3.9,23,2,3617,0)="""DATA"",396.18,198,3,313,0)"
^XMB(3.9,23,2,3618,0)="M*AK_@^`/UP3XY>4\:YRF=)(T)=`T589K^K&YQN3F?)[T&/U*N/=KE=!W7E3+"
^XMB(3.9,23,2,3619,0)="""DATA"",396.18,198,3,314,0)"
^XMB(3.9,23,2,3620,0)="M`>C?+)NF+$!$H&__%)D@EL`/1/`1E)D@4ID@QTFU!HOCQS65OA3'>3;]1BY\"
^XMB(3.9,23,2,3621,0)="""DATA"",396.18,198,3,315,0)"
^XMB(3.9,23,2,3622,0)="M;]__*R9[,9NRJZ-@QWJPH1\-8CWTQY'>(EN%&^P!;@@,Z`Z\.\-]G)<UOI=]"
^XMB(3.9,23,2,3623,0)="""DATA"",396.18,198,3,316,0)"
^XMB(3.9,23,2,3624,0)="M!7;:5X,[2L`LO!-FSZ=5F>=ORN^0X+;_(*#7%Y`KL;+O>A)R$>S0759_K'\Q"
^XMB(3.9,23,2,3625,0)="""DATA"",396.18,198,3,317,0)"
^XMB(3.9,23,2,3626,0)="MJ5Y?5`1#1!EP6\MQ?L=5LWGD+""FNZ.*#T-7=UO[""T;(IVT>,""%K_F%:(^Z+X"
^XMB(3.9,23,2,3627,0)="""DATA"",396.18,198,3,318,0)"
^XMB(3.9,23,2,3628,0)="MV;!4U%UHEQUZW6=%!""D*6N*L3HA?8@I[BILDRW$ZZ9ZT8;8A=C,RG`7+&9C."
^XMB(3.9,23,2,3629,0)="""DATA"",396.18,198,3,319,0)"
^XMB(3.9,23,2,3630,0)="MS'9K'C(@,[1$)@""AC$W/<Q5L=KN4QV9WQ7$F%ZT`Q]\;`JJS*.LZ(WA^13!<"
^XMB(3.9,23,2,3631,0)="""DATA"",396.18,198,3,320,0)"
^XMB(3.9,23,2,3632,0)="M3ZOL$K.[TZR:+N=UDQ13(O.3(G6R(FN(<G7F$^<_N5\C&G>&R7/T/;53SMBW"
^XMB(3.9,23,2,3633,0)="""DATA"",396.18,198,3,321,0)"
^XMB(3.9,23,2,3634,0)="M4V+5)#5V""-:SXE_+:D7_FI'_$J?""-QF^)6]/YLZB*F_$7\M23+[1X.J&O.FZ"
^XMB(3.9,23,2,3635,0)="""DATA"",396.18,198,3,322,0)"
^XMB(3.9,23,2,3636,0)="M5=JO?TR2:Y7B&""=$!D[H-8QY7P6>W;9ZFS28THF0""S?WB%KX)^TFSS7AT!51"
^XMB(3.9,23,2,3637,0)="""DATA"",396.18,198,3,323,0)"
^XMB(3.9,23,2,3638,0)="M""`,@XS!V[7!X7""X)HIPZ([OCWA'Y9XDE#YD0""41$^G$D(S*R1.07(BTJ9UK."
^XMB(3.9,23,2,3639,0)="""DATA"",396.18,198,3,324,0)"
^XMB(3.9,23,2,3640,0)="MYP2^^G!BLT=BH[0,)`)[""EP`VHG+R?&RHBASF@HG#0..R:^&R""0"";I%F],'#"
^XMB(3.9,23,2,3641,0)="""DATA"",396.18,198,3,325,0)"
^XMB(3.9,23,2,3642,0)="MIR.9/&#+#!MT]KZ;&UF*IDX#U50/X-F,@$'P7I5S9RK38X/[DR(A^BO=PQI]"
^XMB(3.9,23,2,3643,0)="""DATA"",396.18,198,3,326,0)"
^XMB(3.9,23,2,3644,0)="M2\F!?)6Q$-IRC<J*ZGM84F!:DK15D$*TV&XYX/4CE'Q!8(>U&.Z(-?@HL68T"
^XMB(3.9,23,2,3645,0)="""DATA"",396.18,198,3,327,0)"
^XMB(3.9,23,2,3646,0)="M7KQ]X0T],KR=$#U""U1G]_YC%%T6J7%71MA''7>P1N-!U>\!5_]<$VR<\+ZEC"
^XMB(3.9,23,2,3647,0)="""DATA"",396.18,198,3,328,0)"
^XMB(3.9,23,2,3648,0)="M0O\_YI=X&K]$E?FQKX$-A`]N@U+K+2,H^(QOQPCZ,2MP3:Y7Q`6MR9T7G*\R"
^XMB(3.9,23,2,3649,0)="""DATA"",396.18,198,3,329,0)"
^XMB(3.9,23,2,3650,0)="M>3FN:'LGG'ZYKJE?GDV37$,--++#B""^T#C:L_QRS;D-%I'-DZG$4:FGB;S01"
^XMB(3.9,23,2,3651,0)="""DATA"",396.18,198,3,330,0)"
^XMB(3.9,23,2,3652,0)="M]1)3G)[CG((C+>]#@^>:'4LOF[!VWE#5-N&N$#__BL8;LQN<KYS;LJJ%VQ_F"
^XMB(3.9,23,2,3653,0)="""DATA"",396.18,198,3,331,0)"
^XMB(3.9,23,2,3654,0)="MU$TDRE""X2'W$>=8P%_;V%^)5SC/R""\04YY]BUN6&3)^6>9/U""]EH4($.GA4="
^XMB(3.9,23,2,3655,0)="""DATA"",396.18,198,3,332,0)"
^XMB(3.9,23,2,3656,0)="MD)$.JA6J(<3&1AHF!(SNCQ""?RT+`\R><$M:DDI:_>KZLKBC'""FB]^.7T@K_P"
^XMB(3.9,23,2,3657,0)="""DATA"",396.18,198,3,333,0)"
^XMB(3.9,23,2,3658,0)="MEE""!^.O)8I%K?N++LEF0BY12Y??5%19N'I\>G?*?::SJ&I?$\9^O[DI*?US`"
^XMB(3.9,23,2,3659,0)="""DATA"",396.18,198,3,334,0)"
^XMB(3.9,23,2,3660,0)="M`:""7<(K%%T)5PD&5B*KT)?_B,;ON20N^V()*!B+)KL<F%C9$)#]0B>3&ST0:"
^XMB(3.9,23,2,3661,0)="""DATA"",396.18,198,3,335,0)"
^XMB(3.9,23,2,3662,0)="M(A*P,!8B.RH%P&HK^4BGF-""SL5!Q$MY$CC:1(2?9C/8;]%5W%B@40;'&(J>6"
^XMB(3.9,23,2,3663,0)="""DATA"",396.18,198,3,336,0)"
^XMB(3.9,23,2,3664,0)="M:Y]NI1KQ1PV)J'D/B]20F0+'Y?RR)-8!%5W=WR-4V-G`#SQ_([T,EH"":41RV"
^XMB(3.9,23,2,3665,0)="""DATA"",396.18,198,3,337,0)"
^XMB(3.9,23,2,3666,0)="M#CI^'>8P!$TLAM#^>.Q#43?5<MH(YAV_(&\/!%LOR#<OR)/M.FACUVW6S5>["
^XMB(3.9,23,2,3667,0)="""DATA"",396.18,198,3,338,0)"
^XMB(3.9,23,2,3668,0)="M]+96/:9VN'4&^UMF:+U,Y(*=ETF-1URMMEABN+\EQO9+1+LOL0U@]S&\+98:"
^XMB(3.9,23,2,3669,0)="""DATA"",396.18,198,3,339,0)"
^XMB(3.9,23,2,3670,0)="M[4/*G'[]=):D6?EK52X7B'HEXB59Y$B^B;?1LOW*.2^]WY6A(G.B,`;]8L^O"
^XMB(3.9,23,2,3671,0)="""DATA"",396.18,198,3,340,0)"
^XMB(3.9,23,2,3672,0)="MR]NV?DE>[_\LZR:;K9BDD0QU>NTT206H.,1>=""@EOEV]H#F637B4Z(OEO*@W"
^XMB(3.9,23,2,3673,0)="""DATA"",396.18,198,3,341,0)"
^XMB(3.9,23,2,3674,0)="M7K,1WT,B[M>R3'D7XUV258)?6I;5+Q6>$8^$U0Z]U(D>=RL""P:T)%*OY\TAE"
^XMB(3.9,23,2,3675,0)="""DATA"",396.18,198,3,342,0)"
^XMB(3.9,23,2,3676,0)="MS0U'<\82<N^50.?C,?J_\Q13:MA$2L([4/)_L>#V?RYE:ZM[O6DO=J;%FHSL"
^XMB(3.9,23,2,3677,0)="""DATA"",396.18,198,3,343,0)"
^XMB(3.9,23,2,3678,0)="M?\;*0%:\I)0&NOZF-#!PA=K`0*P-A+Z[4VU@;Q4\QG)!8*IT(Y)87R\8""^4U"
^XMB(3.9,23,2,3679,0)="""DATA"",396.18,198,3,344,0)"
^XMB(3.9,23,2,3680,0)="MW4;L=TFP3;U@*\4O)""G^XY<)`AAJD=<YRGSM+.>.R65?'>R:-%8KE/4@4&>0"
^XMB(3.9,23,2,3681,0)="""DATA"",396.18,198,3,345,0)"
^XMB(3.9,23,2,3682,0)="M57MNO,).!<="":50DO3\,%=IU(''ZQ[T7,D$-F50?4.M>&/V_WIHVN1^#GI_L"
^XMB(3.9,23,2,3683,0)="""DATA"",396.18,198,3,346,0)"
^XMB(3.9,23,2,3684,0)="MF0Q5^GF!J4)1J*Z%72%1+Z,4DH>VA95P#P6*GF\`6V04*.]RM4#1'RQ0W+6N"
^XMB(3.9,23,2,3685,0)="""DATA"",396.18,198,3,347,0)"
^XMB(3.9,23,2,3686,0)="MTJP+=&7B,5>7'B!1%?AB87H$GWB9.#2++J057;`K'USC5Q+[`&XA]D7_Y#&("
^XMB(3.9,23,2,3687,0)="""DATA"",396.18,198,3,348,0)"
^XMB(3.9,23,2,3688,0)="M>WUM/11KZ[M2A7X707MY[Y1457:FN,96&P3/UZOR<`BZ[O,0=&TF8$@7?3GC"
^XMB(3.9,23,2,3689,0)="""DATA"",396.18,198,3,349,0)"
^XMB(3.9,23,2,3690,0)="M,C?]AP$P/$E""KKM-^&""_I^HDV""%F(%NCC=`8S=O)IXPHAYNDGB[SI')2/""WG"
^XMB(3.9,23,2,3691,0)="""DATA"",396.18,198,3,350,0)"
^XMB(3.9,23,2,3692,0)="M""Y8N(TLO9PX1$3>;/,[D[#K[HQ22)Y//]`GGJDK(*FD)$^'^>I$G12-F:B:?"
^XMB(3.9,23,2,3693,0)="""DATA"",396.18,198,3,351,0)"
^XMB(3.9,23,2,3694,0)="MEO4TMWE0R,68,C$M\U+'8XT?7MUIKZH1.(J4BVRQV6]?LR(M;]=4*XLK2L9Q"
^XMB(3.9,23,2,3695,0)="""DATA"",396.18,198,3,352,0)"
^XMB(3.9,23,2,3696,0)="MYF-V""-+9(=+&D&F.K&B.S)OA21DG8%3+>R8M+W1]`$\IE;>0Z??7]<'J('5@"
^XMB(3.9,23,2,3697,0)="""DATA"",396.18,198,3,353,0)"
^XMB(3.9,23,2,3698,0)="M0Q%L1:RJ!?ZVQ@G<CW'B:8R3,-H8)Z%@G`0N%(V3&#UQXP29-9FK5[3=#N4Z"
^XMB(3.9,23,2,3699,0)="""DATA"",396.18,198,3,354,0)"
^XMB(3.9,23,2,3700,0)="M(/GZBVV,$S5&_!@,%$/;FN#+=ZU^^[4`U@!`O0D2H2$('L!""6LL::)`U@=@="
^XMB(3.9,23,2,3701,0)="""DATA"",396.18,198,3,355,0)"
^XMB(3.9,23,2,3702,0)="MZ4NRIG/O=O#?[B8B>U,*&NTJD;B>%&P`2/;A(M77CZ+]VU5'!5%C97&SS.N$"
^XMB(3.9,23,2,3703,0)="""DATA"",396.18,198,3,356,0)"
^XMB(3.9,23,2,3704,0)="M""]Q/3BN<%EG-5\>P9V^RBBN#F;PIFV6>%<NYTY3?LX+VN6`I1<6^EF)FK0FO"
^XMB(3.9,23,2,3705,0)="""DATA"",396.18,198,3,357,0)"
^XMB(3.9,23,2,3706,0)="M^""$-**@SH*1](Q,71:$%<>-G`\K2@`)681+0!?#,89+H@2T1J.VF#[EN^D""("
^XMB(3.9,23,2,3707,0)="""DATA"",396.18,198,3,358,0)"
^XMB(3.9,23,2,3708,0)="MD[3;=P-OFPA_#IDKE8HZ)1<;(N91,&2<=$:XE7&B2<G_^-9)K`^6(ZFY6PI6"
^XMB(3.9,23,2,3709,0)="""DATA"",396.18,198,3,359,0)"
^XMB(3.9,23,2,3710,0)="M>[)WTFU&M?ER;:4XEVP+.0=OEEF>=M4S![2S?DI3$-A)G)P*9N+>+]J;-<%6"
^XMB(3.9,23,2,3711,0)="""DATA"",396.18,198,3,360,0)"
^XMB(3.9,23,2,3712,0)="MDO&MEQ,B*&E[94K6F,TR\BE=4M&T[NU,YEG!C,<7]<O7S@5M6UK_5/O3MQG_"
^XMB(3.9,23,2,3713,0)="""DATA"",396.18,198,3,361,0)"
^XMB(3.9,23,2,3714,0)="M6WE.OU8XQ'I);I(LIW*8:#3V6P=OR^F2)6)[0&^9%GGE).1'DXK`R?]6VP%Z"
^XMB(3.9,23,2,3715,0)="""DATA"",396.18,198,3,362,0)"
^XMB(3.9,23,2,3716,0)="MH._>/3QP:H8#BA@*R.MM#Q!H*1594""J2I*`'QNU(F5*:Q1,J85I][*1)0]M9"
^XMB(3.9,23,2,3717,0)="""DATA"",396.18,198,3,363,0)"
^XMB(3.9,23,2,3718,0)="MKY(JI4OL*561K_)MK9.D:+I3$UC;:[-:X!W7'5NL&\A1<J1XHA8+/VO[=+OU"
^XMB(3.9,23,2,3719,0)="""DATA"",396.18,198,3,364,0)"
^XMB(3.9,23,2,3720,0)="M,UYBBV>7:4/P#=V&*R>93I=5,EU1;JV7E_S""68%VRA#U>LPR]R/#L2!#FR\>"
^XMB(3.9,23,2,3721,0)="""DATA"",396.18,198,3,365,0)"
^XMB(3.9,23,2,3722,0)="M-\O!^)MCBS?+S&3Q9CCZYL""U>+-""3HM7HZ%7K^MC3+:$]'8Y)J;8$O91#7<O"
^XMB(3.9,23,2,3723,0)="""DATA"",396.18,198,3,366,0)"
^XMB(3.9,23,2,3724,0)="MMH0V^][F4?A4<,_\0#P+R&L3]<^FA%(IK^50+8-&@KD9RX;$-E&.WS/:.7"">"
^XMB(3.9,23,2,3725,0)="""DATA"",396.18,198,3,367,0)"
^XMB(3.9,23,2,3726,0)="M73TB.P(9,E>B*)-<I<`=W]87>+[`5=(L*SPF6CS/`H90BB+`8!R&4^(OC[\]"
^XMB(3.9,23,2,3727,0)="""DATA"",396.18,198,3,368,0)"
^XMB(3.9,23,2,3728,0)="MLGB[(MA""""\EVANL%<<1I099S1DRE44AB""T@@E`Z^0>,*<_*5W1M5+@81#\2("
^XMB(3.9,23,2,3729,0)="""DATA"",396.18,198,3,369,0)"
^XMB(3.9,23,2,3730,0)="M%Y237C:4*)=%6H\""`&P0X$4CL6LC`ARR58NK'^8$H""%,Z4.#8I0?=BT^9G$7"
^XMB(3.9,23,2,3731,0)="""DATA"",396.18,198,3,370,0)"
^XMB(3.9,23,2,3732,0)="M^$;C:HVRCV5=.R_(5IZRIJB9<]M>S^EUFM\CH*?4UKI,B+6<%?BE\R(ARB3A"
^XMB(3.9,23,2,3733,0)="""DATA"",396.18,198,3,371,0)"
^XMB(3.9,23,2,3734,0)="MC:LKW'UM;:A#9X5IC&%1X2EF)BD[F8+^_OH\EI</%VBYE\.;MC.6?;T8!L'^"
^XMB(3.9,23,2,3735,0)="""DATA"",396.18,198,3,372,0)"
^XMB(3.9,23,2,3736,0)="M""?IK0FB@(>@5O?Y,T'T1U+?1*KX<NP?CHNQ-7I9I>^J=A6[U#?$53\P'^G*-"
^XMB(3.9,23,2,3737,0)="""DATA"",396.18,198,3,373,0)"
^XMB(3.9,23,2,3738,0)="MU3@<OXR^VD:M@UAB:62!@O<;=?:#B_'00!W__JECH^M!#,<.-51?_:&87N-Z"
^XMB(3.9,23,2,3739,0)="""DATA"",396.18,198,3,374,0)"
^XMB(3.9,23,2,3740,0)="MU*D#IH/^H%@`%`1W.^A/4P&_8_Z(]H^%P@D(6I;V92&M&""C=""OO$0@A\?[)-"
^XMB(3.9,23,2,3741,0)="""DATA"",396.18,198,3,375,0)"
^XMB(3.9,23,2,3742,0)="M!24%(1H')0JW!H4\`B;;A/LI"",`=AP5`?WM@(B\PQ/D'@`$Z8,3C(R&(1XQ8"
^XMB(3.9,23,2,3743,0)="""DATA"",396.18,198,3,376,0)"
^XMB(3.9,23,2,3744,0)="M'8V@""DM@AD5LG@@-[11]3;Z8U)6/8`2A#""""2``R@VQ'.U$)A;*!0VR>4MI6_"
^XMB(3.9,23,2,3745,0)="""DATA"",396.18,198,3,377,0)"
^XMB(3.9,23,2,3746,0)="MD)@UYTF%<P(FU'3=?*)VSUCV2^[N,A!VW2.)E'Y)K1F./+G>7RD2T#&;-V0O"
^XMB(3.9,23,2,3747,0)="""DATA"",396.18,198,3,378,0)"
^XMB(3.9,23,2,3748,0)="M:?/':L.6&5/_13AN@QO^;\C]S;7E3#R7QO#G);$Y7H[CQC/A!@31'I""#[H*<"
^XMB(3.9,23,2,3749,0)="""DATA"",396.18,198,3,379,0)"
^XMB(3.9,23,2,3750,0)="M^,]""#I-.2"">=8C$J[LOI`'=<4B+/4""\Q`(NG@P7X>P`&J<!X(\#`<;$-HFA+"
^XMB(3.9,23,2,3751,0)="""DATA"",396.18,198,3,380,0)"
^XMB(3.9,23,2,3752,0)="ML1TBH`'%'P_=^B[]!W0!W%:OK7/!0EF:MVZ7ZF7TCKG@QQ.M#<S!)OK/X)U`"
^XMB(3.9,23,2,3753,0)="""DATA"",396.18,198,3,381,0)"
^XMB(3.9,23,2,3754,0)="MH31-MANB;=JEUKDAXH>>X2E![OV$;OT_(71+,0@,)6)2OYERLKJ%!W&\/NB2"
^XMB(3.9,23,2,3755,0)="""DATA"",396.18,198,3,382,0)"
^XMB(3.9,23,2,3756,0)="M./).U:+N\,&ZF.[%Y:+""A;&=5M)`R0""3<0;!B*B!,.K[O.S%'@-(JQ/ZBNXN"
^XMB(3.9,23,2,3757,0)="""DATA"",396.18,198,3,383,0)"
^XMB(3.9,23,2,3758,0)="M[AKN`A$8DGX&UZS=FX8*:!"")X>`@&HEAV!?PW*V\3[2NVS7`8:M;BJY)&0:E"
^XMB(3.9,23,2,3759,0)="""DATA"",396.18,198,3,384,0)"
^XMB(3.9,23,2,3760,0)="M/R=4\!OX[AYM;@Y!SKN,\'DKO+IM9S98VN>X`\>))4R;T?^]Q#7-:E^NG-^/"
^XMB(3.9,23,2,3761,0)="""DATA"",396.18,198,3,385,0)"
^XMB(3.9,23,2,3762,0)="MSKYPK1?R+5KGX13D2WU-16<KVSFD.N2C8>1#>&?T1V%X+^AOZYGSM<KXJY$!"
^XMB(3.9,23,2,3763,0)="""DATA"",396.18,198,3,386,0)"
^XMB(3.9,23,2,3764,0)="M#%<_;BP7M012U`MR9Z77'?/""Z858MNV""""#R]9E9H43?HZVQ%WS4F^R-?&L/S"
^XMB(3.9,23,2,3765,0)="""DATA"",396.18,198,3,387,0)"
^XMB(3.9,23,2,3766,0)="MG.Q7S,?09/Q$^ERE!T7711(I\39U@Y]QN<B3>OZB?MG-""EC?<UB;VN,I`C`<"
^XMB(3.9,23,2,3767,0)="""DATA"",396.18,198,3,388,0)"
^XMB(3.9,23,2,3768,0)="M6R!&H6,Y(@4CBT:#++DJRCICTQ:<9DD\9.<%_IY,FY>C_0]A9`&54C^LUNCK"
^XMB(3.9,23,2,3769,0)="""DATA"",396.18,198,3,389,0)"
^XMB(3.9,23,2,3770,0)="MP%K/%4A[\%[,Y[^LR#\+L&(;L&1'53,32E,SL5JL!UBD!,!V0D5_M,R+K)CF"
^XMB(3.9,23,2,3771,0)="""DATA"",396.18,198,3,390,0)"
^XMB(3.9,23,2,3772,0)="M2Y9:J]M>X'%88V`!*W*E6&AD4=ZA.PQ_""!!#F0D0>^:5T+DR>$83[.^(2?9J"
^XMB(3.9,23,2,3773,0)="""DATA"",396.18,198,3,391,0)"
^XMB(3.9,23,2,3774,0)="MP^-+I*@A5K1=5L\++?""IKL)'XZLXH9N""T;U?2U(T1+$Q(42T$K^T-'WES.>O"
^XMB(3.9,23,2,3775,0)="""DATA"",396.18,198,3,392,0)"
^XMB(3.9,23,2,3776,0)="MG#VN;UVU[QJ,?E\:=A6-)65""6Z,_O'-.1NL]03&-!"".PK?<$HB""""0[BU<ZE$"
^XMB(3.9,23,2,3777,0)="""DATA"",396.18,198,3,393,0)"
^XMB(3.9,23,2,3778,0)="M""S@8MHF1T-?MR_U'@0RSA^38:!B!>S&)OR8U4X&M#)\G>795))MCDY1\@=E*"
^XMB(3.9,23,2,3779,0)="""DATA"",396.18,198,3,394,0)"
^XMB(3.9,23,2,3780,0)="MYD]`HN<?]7__5GPKRMMB.\>#G;FJ;9B6)#(`LC$@]_L@5T9FY#[!@UM&<GW:"
^XMB(3.9,23,2,3781,0)="""DATA"",396.18,198,3,395,0)"
^XMB(3.9,23,2,3782,0)="MX(F$ZV`4UVI0/^K/'K9+]5%ZL];6$<)#UQLE?*``@Z*G1_B1;$$P3OA=I&P8"
^XMB(3.9,23,2,3783,0)="""DATA"",396.18,198,3,396,0)"
^XMB(3.9,23,2,3784,0)="MQ;ZEE/5&Q``<YP8D5R^JW-#5%W(0^N'3XX;`PN75I4<""TUA='\3/<V?5+*VV"
^XMB(3.9,23,2,3785,0)="""DATA"",396.18,198,3,397,0)"
^XMB(3.9,23,2,3786,0)="M]=O4;""%$A&6YAL(MO-OW9;V@]>S9'ZQ=AJ8O[_.(H3\C00(,WL^PC>5:E#AU"
^XMB(3.9,23,2,3787,0)="""DATA"",396.18,198,3,398,0)"
^XMB(3.9,23,2,3788,0)="MR&.^6EZV1Q]8-/1;P"".[V3`([?S90^(\K(A;0/!SS>""B!9E.-G.8447IFRP6"
^XMB(3.9,23,2,3789,0)="""DATA"",396.18,198,3,399,0)"
^XMB(3.9,23,2,3790,0)="M5?D]FU,?@SH:XP![%@`#I.0E/)O:^*1NN8YVF+7]6(S[1H$*8@N@Y"")Y#\2C"
^XMB(3.9,23,2,3791,0)="""DATA"",396.18,198,3,400,0)"
^XMB(3.9,23,2,3792,0)="M+E@O0=\1J'`RO7:('""J:5\XLR_.NSK5%9E;,RFK.J/YJW6%WL+9>#YP97RC+"
^XMB(3.9,23,2,3793,0)="""DATA"",396.18,198,3,401,0)"
^XMB(3.9,23,2,3794,0)="MIDKV#[/0;OL3E$*+97W-?K5NIQ>WO98[==L!9(,53U9^OD548CT]F=(H(8BX"
^XMB(3.9,23,2,3795,0)="""DATA"",396.18,198,3,402,0)"
^XMB(3.9,23,2,3796,0)="M%@5'&Z]HB4='+K=+:7`Z2DB(]/L!09&_E,#37V,N-(JLCMI!<GXL,+D=XZYR"
^XMB(3.9,23,2,3797,0)="""DATA"",396.18,198,3,403,0)"
^XMB(3.9,23,2,3798,0)="M<&=765OP(3))*'=D@M&""'.1&X61;ITUOK(FDER-35K#T!YL]R?R$WC(.+)`M"
^XMB(3.9,23,2,3799,0)="""DATA"",396.18,198,3,404,0)"
^XMB(3.9,23,2,3800,0)="MG]/B`:7D4(XV`.0'3P_98VY(.(YL*%?^J\B.%3<D]-#30W8X.C#>=`R1='""P"
^XMB(3.9,23,2,3801,0)="""DATA"",396.18,198,3,405,0)"
^XMB(3.9,23,2,3802,0)="M*\DU3Q$ET/88HF@?<^X-)[6A2$AA!>'VI\AV<;2[G2-K@MNS@KM7TGL!?!]'"
^XMB(3.9,23,2,3803,0)="""DATA"",396.18,198,3,406,0)"
^XMB(3.9,23,2,3804,0)="MXP'+H_%D<\-&7[=6AJ'2YLY=Y($NL>QQ;G9[E-'F)$@QL0Q#])Q8EEWOV-@0"
^XMB(3.9,23,2,3805,0)="""DATA"",396.18,198,3,407,0)"
^XMB(3.9,23,2,3806,0)="MK;5)Q2.IY;H)$&]3D?B^'15/[>F+*EG.DQ?URT>32O8L3LWUE`899)<;?=7["
^XMB(3.9,23,2,3807,0)="""DATA"",396.18,198,3,408,0)"
^XMB(3.9,23,2,3808,0)="MVGV2M$O.,T0>_M@M86L!:TK!26W88.S@K*XQW.!7[!=)[GVT7.Y-=3&S+-)6"
^XMB(3.9,23,2,3809,0)="""DATA"",396.18,198,3,409,0)"
^XMB(3.9,23,2,3810,0)="M1(G!H/'@BQH=#@/XE$_W-ZHMI%%;_.`17F>%GE0,!?TG'AMN=Y0V;F+HJQ5["
^XMB(3.9,23,2,3811,0)="""DATA"",396.18,198,3,410,0)"
^XMB(3.9,23,2,3812,0)="M2+S1:IT!%=67[3R:6#!$AH*Q4!KO\5<+-JTW9#N=K_\P4,4LM\LJ+;NH$V%T"
^XMB(3.9,23,2,3813,0)="""DATA"",396.18,198,3,411,0)"
^XMB(3.9,23,2,3814,0)="M<_?[_?49/1J#_EI7WRW>IL-NO]'B([YBX&C9E.TC8Z=[:FGB&X:P;\9;2B%F"
^XMB(3.9,23,2,3815,0)="""DATA"",396.18,198,3,412,0)"
^XMB(3.9,23,2,3816,0)="M32G?V!CV]5EHU$Y@@Y\H*=85N0Z-RSI)79?3+*%%N+=90^.Q6;TI##M\7$/<"
^XMB(3.9,23,2,3817,0)="""DATA"",396.18,198,3,413,0)"
^XMB(3.9,23,2,3818,0)="M6[R'!KS'THS:2)VXYKIV:#]*TXS^G>12D=@(;,#($])H5F6@(426H*U/C6O#"
^XMB(3.9,23,2,3819,0)="""DATA"",396.18,198,3,414,0)"
^XMB(3.9,23,2,3820,0)="MUFS#LF!_=^2@S""4]""31;=@S1EOR-U""FSL=U:WCYF/D70DA>`.GC.C^P0^.(="
^XMB(3.9,23,2,3821,0)="""DATA"",396.18,198,3,415,0)"
^XMB(3.9,23,2,3822,0)="ME0'0=\.7TA&5ERMV`N+K.]`_,&TTSY4FCOK*W/4XM%L`35:='!V_5T76\#YS"
^XMB(3.9,23,2,3823,0)="""DATA"",396.18,198,3,416,0)"
^XMB(3.9,23,2,3824,0)="M@0DV*,WU""S5;33/K53-WCY^53K-\&4OX3:]+XH6P+98U_(8[X&?S'I!+""=FE"
^XMB(3.9,23,2,3825,0)="""DATA"",396.18,198,3,417,0)"
^XMB(3.9,23,2,3826,0)="M%682FLNID5\SR^N[D`NXT)9>H2(9+3<L>&U''60+""4#NCJ`@2U`\6T;1@**;"
^XMB(3.9,23,2,3827,0)="""DATA"",396.18,198,3,418,0)"
^XMB(3.9,23,2,3828,0)="MT#G""*1\*-DN@99!N9B-Q\9F0WA1LT^3Q=+I<)&LMTP8$LGPE<HJ33.EQZ`TQ"
^XMB(3.9,23,2,3829,0)="""DATA"",396.18,198,3,419,0)"
^XMB(3.9,23,2,3830,0)="MQ.[&&KXU0?QX1X)XE@0)K`FB@H)\2R7)-*,E0/9B3I$D@6\U5YD??4I$2$6H"
^XMB(3.9,23,2,3831,0)="""DATA"",396.18,198,3,420,0)"
^XMB(3.9,23,2,3832,0)="M3H^Q758+(DKJ5T17+\J*7>/9A(B(:5FTA@ACD(RPDL@?'8/5>)&07\7YRB',"
^XMB(3.9,23,2,3833,0)="""DATA"",396.18,198,3,421,0)"
^XMB(3.9,23,2,3834,0)="M5>`I/0>_6E'CG1@&-W1^:%*T%12+*F,5%%F=7&;BK^590[3&39(OVRC5K*LD"
^XMB(3.9,23,2,3835,0)="""DATA"",396.18,198,3,422,0)"
^XMB(3.9,23,2,3836,0)="MZ,&X&Q-&UDSHACLR(;2D>6S-A""HH_9$""8\!\6;2[^U7G4U%\TBGNW0'&5KH."
^XMB(3.9,23,2,3837,0)="""DATA"",396.18,198,3,423,0)"
^XMB(3.9,23,2,3838,0)="M`I,TY6:.M\4WJI_A6>X7PB&6P!BMFD"":]1RIVP6`K<4IZUPB6I2Q-9VNE:[J"
^XMB(3.9,23,2,3839,0)="""DATA"",396.18,198,3,424,0)"
^XMB(3.9,23,2,3840,0)="MV;*8ML4K=4-Y^?8:LWX.@EGRV""7UC=+UB!""1P5.BC`]W8V$6""A*F_/!<(_%,"
^XMB(3.9,23,2,3841,0)="""DATA"",396.18,198,3,425,0)"
^XMB(3.9,23,2,3842,0)="MJ`JN4.49;^.-:%(60[-\Y6RND5H*FVMX1SI<5B!8&&PN:CA(/Y6%TWI4""6YD"
^XMB(3.9,23,2,3843,0)="""DATA"",396.18,198,3,426,0)"
^XMB(3.9,23,2,3844,0)="MF*+T>N7&S12V<P""&78`!)\#*#3`Z`F97@.,<@SL0&&D1R:0`&V[AB!&Y.Q""#"
^XMB(3.9,23,2,3845,0)="""DATA"",396.18,198,3,427,0)"
^XMB(3.9,23,2,3846,0)="MC<AQZNRJ('[!E)Z/WI/'2(U##A&&&=$CBXWLUXI<=:D`;;'4$[8>NIQEO23K"
^XMB(3.9,23,2,3847,0)="""DATA"",396.18,198,3,428,0)"
^XMB(3.9,23,2,3848,0)="MV""SJ\`FPU<`.#Z`5KB/='H>!#M>;:_1`3NK@""'N=>3+4K&""&1#9?)""U=]&PF"
^XMB(3.9,23,2,3849,0)="""DATA"",396.18,198,3,429,0)"
^XMB(3.9,23,2,3850,0)="MB&;R>S9L9Q#:HUB""T)XA8Z1!$HCL&?(,UW30$+'F;LOJFZ+L=]M5[;0GYO7R"
^XMB(3.9,23,2,3851,0)="""DATA"",396.18,198,3,430,0)"
^XMB(3.9,23,2,3852,0)="M@Y^&%N+YNIVEH[;'7]R,M0<1#_+`/*@?8(-I3]4:F7;/&KS8B>F=[&QE#:^N"
^XMB(3.9,23,2,3853,0)="""DATA"",396.18,198,3,431,0)"
^XMB(3.9,23,2,3854,0)="MZ!R'L0?H,0HG\T5>KG#:9;""&-[TN!FW!'OXV[,%9MF/\X4<:_B!&=&BS8Y\F"
^XMB(3.9,23,2,3855,0)="""DATA"",396.18,198,3,432,0)"
^XMB(3.9,23,2,3856,0)="MXQS55.?2D1P980E*9R==2J8.""Q?0.334U6O8<!-<&Q](+FM:JXVS>BX^(LPX"
^XMB(3.9,23,2,3857,0)="""DATA"",396.18,198,3,433,0)"
^XMB(3.9,23,2,3858,0)="M&YISM@7/`6N>\P9XKN^DXWQH#=-!U]=)5U?/=6'TS'4FKJ,%`L3MSTN9C=[B"
^XMB(3.9,23,2,3859,0)="""DATA"",396.18,198,3,434,0)"
^XMB(3.9,23,2,3860,0)="MCHV(.4Z/SJ[$2<-K7N,C!)?X.KG)RDI\YK0DF&`I)]I4T.`JD4;QM:\C3)]-"
^XMB(3.9,23,2,3861,0)="""DATA"",396.18,198,3,435,0)"
^XMB(3.9,23,2,3862,0)="M""1NNG%F9Y^4MU8:9.LE*@6Y>MM:#\7Y24!LOQ82\E?+<:3<8B(56\VS&M#`-"
^XMB(3.9,23,2,3863,0)="""DATA"",396.18,198,3,436,0)"
^XMB(3.9,23,2,3864,0)="MG4R3JEJ1#T8P*QKH4!XX7V#,`C+=<^+M]SAA@Z!,]W_/V.QHT^V/A)=8[TC#"
^XMB(3.9,23,2,3865,0)="""DATA"",396.18,198,3,437,0)"
^XMB(3.9,23,2,3866,0)="M9DB)-[_BY!L5!S1H,""/$NEIB$U((6G%QU5P?.LO%@FQ?@IP*SP>PN/D""(8WY"
^XMB(3.9,23,2,3867,0)="""DATA"",396.18,198,3,438,0)"
^XMB(3.9,23,2,3868,0)="M""[^1Q=$H4E80IJ'-_(1SQ""?>X2GC`]/]4WIJJ83R>D;60EZ'N3F-]R;'X+@<"
^XMB(3.9,23,2,3869,0)="""DATA"",396.18,198,3,439,0)"
^XMB(3.9,23,2,3870,0)="M8]4U8B?NH-J,@2K!D*^U#^-`+\%B&PEV/Q(*&B246IHS*)^,)3I""F<X8H0;+"
^XMB(3.9,23,2,3871,0)="""DATA"",396.18,198,3,440,0)"
^XMB(3.9,23,2,3872,0)="M=?1%M!PE!T,UOB%4@S9>M#E8`X/[""=;X@P$""=XM@C4Z+1G""'^(""4IE`""-JU/"
^XMB(3.9,23,2,3873,0)="""DATA"",396.18,198,3,441,0)"
^XMB(3.9,23,2,3874,0)="MS5(3CRQ>LZLO&0[023%WH"":J%NID!8JU=#JJ\#H`RH5M]#3Y^U,F""HRVV#P("
^XMB(3.9,23,2,3875,0)="""DATA"",396.18,198,3,442,0)"
^XMB(3.9,23,2,3876,0)="M:5S\?C+15MOG@""FM@S5UK#;,UKZ_>.`*F^NM.X.%KX2QXL,(:!8<A]I0@.MQ"
^XMB(3.9,23,2,3877,0)="""DATA"",396.18,198,3,443,0)"
^XMB(3.9,23,2,3878,0)="M*S`=S:(YGD6ZJY[1(M?P79<5MHL$_0`6_%!<H9!,I4]9GDI7RI2.().>.\=$"
^XMB(3.9,23,2,3879,0)="""DATA"",396.18,198,3,444,0)"
^XMB(3.9,23,2,3880,0)="MM\AF5L5Z?>L=@@M@:_Z#X_S'Y8+VQH#QPS`@^>G%@I#LF04?C`7AUBR(QED0"
^XMB(3.9,23,2,3881,0)="""DATA"",396.18,198,3,445,0)"
^XMB(3.9,23,2,3882,0)="M\@IU/RS(G:1_KRQX\AU7TZS&SRSX8""R(MF9!ST(+*ZXC`G<4@OX#""4%:CO*L"
^XMB(3.9,23,2,3883,0)="""DATA"",396.18,198,3,446,0)"
^XMB(3.9,23,2,3884,0)="MA1^._[QM^2\(=K$""[\B`P`W#AV'`,Q:JDG.XSTQXKTSH;RT$_9U,P3N+00`?"
^XMB(3.9,23,2,3885,0)="""DATA"",396.18,198,3,447,0)"
^XMB(3.9,23,2,3886,0)="MA@LOJN2&SI!\-@8?C@F#;9F0A<W&C$'/_?_VKKVY;2/)?Q64KVJ5;""4YS`.O"
^XMB(3.9,23,2,3887,0)="""DATA"",396.18,198,3,448,0)"
^XMB(3.9,23,2,3888,0)="M5&VE'#]V=14[+LMQ<G]""%""2A3`$\`+3#?/J;`5\`I@>8'H$$K3""5S9H@)/=T"
^XMB(3.9,23,2,3889,0)="""DATA"",396.18,198,3,449,0)"
^XMB(3.9,23,2,3890,0)="M]_3T]./7XY_%X7&4\'52#R0]J^#15#!`V\'(PAFD4!`*I8#^<13PY[BZ/RO@"
^XMB(3.9,23,2,3891,0)="""DATA"",396.18,198,3,450,0)"
^XMB(3.9,23,2,3892,0)="M,14P1""M@:!43?+0&'LD;?""G;4\\J>$P5C-`J&-B%!1^K@X0<R1?,TWE2G97P"
^XMB(3.9,23,2,3893,0)="""DATA"",396.18,198,3,451,0)"
^XMB(3.9,23,2,3894,0)="MJ+%I%ZV%OEUD\-&6D!U'""\6*\H>S$AY5""=$9$H/#6*DJ\8&$?M-:[DLQ*:""`"
^XMB(3.9,23,2,3895,0)="""DATA"",396.18,198,3,452,0)"
^XMB(3.9,23,2,3896,0)="M`6>'5,!^2?UOHI2[-MF,*V25-3B1KA:'J`7M/`2*<5R(<9S""$2W_7(N#KL4A"
^XMB(3.9,23,2,3897,0)="""DATA"",396.18,198,3,453,0)"
^XMB(3.9,23,2,3898,0)="MU+@81PJ2=03:W02;RE""U?2T`\!K""?6?Y;M))Q+T#`@A0$$``$I)&1#T"":HA'"
^XMB(3.9,23,2,3899,0)="""DATA"",396.18,198,3,454,0)"
^XMB(3.9,23,2,3900,0)="M+YP!T:C1$YTP-E""""70S$/;Y1U(4N<8G2B`GT\'E`2Z'$Z76:+?$7`+T[60XB"
^XMB(3.9,23,2,3901,0)="""DATA"",396.18,198,3,455,0)"
^XMB(3.9,23,2,3902,0)="M8_5K&(<UK(M4P0.U+T]=3J/)>&]@N7_6L(8-UPEC.S2=*@/4]?`X'E6E0E4E"
^XMB(3.9,23,2,3903,0)="""DATA"",396.18,198,3,456,0)"
^XMB(3.9,23,2,3904,0)="M(XI4?.[O4[*:BFDHR==SGNVX-;3`>H*?Z0J)LD+""/9,5AN(?Q`J)R0HED8UC"
^XMB(3.9,23,2,3905,0)="""DATA"",396.18,198,3,457,0)"
^XMB(3.9,23,2,3906,0)="MY>*]_(W-!S^G\U@6=L]->5'/E-/QHML6##!C-T=MD!D!@AG4A!EB2\3SE41D"
^XMB(3.9,23,2,3907,0)="""DATA"",396.18,198,3,458,0)"
^XMB(3.9,23,2,3908,0)="M:'+@;2)V7I66W6?Q_""Z-.USI!6WU-6BS;ANV*^J`^WK=L3,D,`7W'0,DMX:`"
^XMB(3.9,23,2,3909,0)="""DATA"",396.18,198,3,459,0)"
^XMB(3.9,23,2,3910,0)="M!D%R62_:F,D8-1W6+!V!;D\#D1NYCR9[C)'/6JA!""D`-;B8N;O=,$VUP,_.G"
^XMB(3.9,23,2,3911,0)="""DATA"",396.18,198,3,460,0)"
^XMB(3.9,23,2,3912,0)="MT2BC01O<GSZ_I`_)5P(<2+08>/`\E#9N(.D`!T8&N('OWO_Z[M7[#Y>OKI[."
^XMB(3.9,23,2,3913,0)="""DATA"",396.18,198,3,461,0)"
^XMB(3.9,23,2,3914,0)="M2%3-P,HVQF)GRHC)-`WA&<B6EG\1PKYNM-HUW*]OP""9?P:(T&&FS-@,?DC^K"
^XMB(3.9,23,2,3915,0)="""DATA"",396.18,198,3,462,0)"
^XMB(3.9,23,2,3916,0)="M?P%3=P?F4@'F(&A8@[6_M(L2N*QE#1@]#V)6K0K53IZ!58""T1UEVIR\RPA%X"
^XMB(3.9,23,2,3917,0)="""DATA"",396.18,198,3,463,0)"
^XMB(3.9,23,2,3918,0)="MI(T1--L+T=4BF<F>X2V<]E.P/&N=U_@.U&M/D`@&\9]#TT-X!'!E#P)79JV1"
^XMB(3.9,23,2,3919,0)="""DATA"",396.18,198,3,464,0)"
^XMB(3.9,23,2,3920,0)="M`*RC`A[K'BUT""UG=`%>F_`RN#'D\+J44&@P0-,8""M!""6:1=AF?[=$9:9]O`7"
^XMB(3.9,23,2,3921,0)="""DATA"",396.18,198,3,465,0)"
^XMB(3.9,23,2,3922,0)="MS-6,&:->WP@^@AHPOT8TJ""<Z/R$CMN-@`+N;'2O6<:&8ZYH/:EL/(6^!H]QO"
^XMB(3.9,23,2,3923,0)="""DATA"",396.18,198,3,466,0)"
^XMB(3.9,23,2,3924,0)="MABN4:3:K,=IF@HUWB?--W=!<CU6O@3[K[YN#VM8CMR7BIYR95T.QB']CIT@^"
^XMB(3.9,23,2,3925,0)="""DATA"",396.18,198,3,467,0)"
^XMB(3.9,23,2,3926,0)="MI\F7%A3H""(/$:_[08?Z0D'8GMAF,MW\1+\O=9`1Q<9'M[-4:9[,&5$FS]6H)"
^XMB(3.9,23,2,3927,0)="""DATA"",396.18,198,3,468,0)"
^XMB(3.9,23,2,3928,0)="M_7X]+G`AU""""_Z1DD/K""4T#=8""N_.JS29$_@!(/]F6?>,0TL84T24*H""@NY!,"
^XMB(3.9,23,2,3929,0)="""DATA"",396.18,198,3,469,0)"
^XMB(3.9,23,2,3930,0)="M9TQ9%S3<<PUF-BZ+S>3-6V>V+&J`BV1G$2QE(6BF)K+H4AQY9A,X:B#.'9'V"
^XMB(3.9,23,2,3931,0)="""DATA"",396.18,198,3,470,0)"
^XMB(3.9,23,2,3932,0)="M-`8F?/4[,[(B`ZZ^V'!R;Q3LB8P,[%>'CZ'!))/?.B!;%\,302B--*$9UIX*"
^XMB(3.9,23,2,3933,0)="""DATA"",396.18,198,3,471,0)"
^XMB(3.9,23,2,3934,0)="MPL(AKQ""`K]=XA=&CO,(Z;2OCV(+X.ARV?=`FOS.DJS."";I=<:(#71\`LT2HM"
^XMB(3.9,23,2,3935,0)="""DATA"",396.18,198,3,472,0)"
^XMB(3.9,23,2,3936,0)="MDAH<<IDE6Y@@W=0NG;A]KL5E[""):*F#-H2%*I)S3*K=045/<`G``+58_DJ0@"
^XMB(3.9,23,2,3937,0)="""DATA"",396.18,198,3,473,0)"
^XMB(3.9,23,2,3938,0)="M.O3-H-QY9)""%`DFNSY)Q:=:AF)(NL$""D1OV)(8SIVC68C4Y\I-,2ZG9R%G2/"
^XMB(3.9,23,2,3939,0)="""DATA"",396.18,198,3,474,0)"
^XMB(3.9,23,2,3940,0)="M:+$_%TQAW8&S8:O:8RPB--,:""@C`,\0E7P_X+9V[]'.R!L(=;P%4BTG=60""A"
^XMB(3.9,23,2,3941,0)="""DATA"",396.18,198,3,475,0)"
^XMB(3.9,23,2,3942,0)="M*C*\;S@X8AU@6#D/B<2CGCO?+.Y7I?S3MSM`NL>N0H>;3"")W>!W[BBNS=2S*"
^XMB(3.9,23,2,3943,0)="""DATA"",396.18,198,3,476,0)"
^XMB(3.9,23,2,3944,0)="MU>P^C<6U=?;(!70JQN3II&\AT.UM3QTMX1DDDJD;-1+)^CJ=3I5.$P@!*M%I"
^XMB(3.9,23,2,3945,0)="""DATA"",396.18,198,3,477,0)"
^XMB(3.9,23,2,3946,0)="M\.NR=#XG,GN7;:S&S1X70MRWE@]9V<R-:2I>^E)F[7J?5K6/>9Y85@=05UXC"
^XMB(3.9,23,2,3947,0)="""DATA"",396.18,198,3,478,0)"
^XMB(3.9,23,2,3948,0)="M6B-]]:<6(RHX>V""0-90<#RX&EJL&DW1T__I^@W56.P;2O]X]Z=_+/E>QS%7Z"
^XMB(3.9,23,2,3949,0)="""DATA"",396.18,198,3,479,0)"
^XMB(3.9,23,2,3950,0)="MO0""B/QRBOQ_L3),J[9/QJWEZEXJ_28Z1B,7]4]B_FX91E_>8I@Z\Z1J9[1;]"
^XMB(3.9,23,2,3951,0)="""DATA"",396.18,198,3,480,0)"
^XMB(3.9,23,2,3952,0)="M%GY+W<NM%SM`4'H8J/7%7FZC#;O:10V:Y[H<\8=TL8](_)YF-_F7G4SS[$Z*"
^XMB(3.9,23,2,3953,0)="""DATA"",396.18,198,3,481,0)"
^XMB(3.9,23,2,3954,0)="MV<S""U/.A981+4_C4M2;4]8V4PX64(QI2CK]UN8J'/@O8T%G`AATE8+H3XX#P"
^XMB(3.9,23,2,3955,0)="""DATA"",396.18,198,3,482,0)"
^XMB(3.9,23,2,3956,0)="MO*.=!?N;A7.]K)PLKZ8]'GS#,B)Y1/14EZANJSKNI5&!TG].>.S""8-W]12>!"
^XMB(3.9,23,2,3957,0)="""DATA"",396.18,198,3,483,0)"
^XMB(3.9,23,2,3958,0)="M605.6<KY,)E#G-6^BJ/^CLA9`;1^W.(CE<\]];DGGQ-7_4(\D[\)^.9-7H-*"
^XMB(3.9,23,2,3959,0)="""DATA"",396.18,198,3,484,0)"
^XMB(3.9,23,2,3960,0)="MB;]^]^VWA@9-4V?7.>N8.C,!LF<,.NP\[VS/>NQ9:""@HSTA0A*LC;WS@X(%V"
^XMB(3.9,23,2,3961,0)="""DATA"",396.18,198,3,485,0)"
^XMB(3.9,23,2,3962,0)="MBQ^<!=4C*&8H*%_C(BAW*$!4@6\HJO`LJAY1<8-ZOIV\`BA3W`JJ,K<;!E0R"
^XMB(3.9,23,2,3963,0)="""DATA"",396.18,198,3,486,0)"
^XMB(3.9,23,2,3964,0)="M!7YG""J_TXTA?[/]OE#T.#(00#0J!;`N_4$((W+,0]NX9+(2]:R8S3(IK!@K#"
^XMB(3.9,23,2,3965,0)="""DATA"",396.18,198,3,487,0)"
^XMB(3.9,23,2,3966,0)="M""X:$L77(FE8KZA,&Z(JICK_6#;O85XZW_+$O2;*_VEYT/]/Z\]Z;NF#=![S["
^XMB(3.9,23,2,3967,0)="""DATA"",396.18,198,3,488,0)"
^XMB(3.9,23,2,3968,0)="MP.L^\+L/@NZ#L/L@ZCX0SEWW""5&>*,02A5JBD$L4>HE"",%$H)@K)1*&9*C13"
^XMB(3.9,23,2,3969,0)="""DATA"",396.18,198,3,489,0)"
^XMB(3.9,23,2,3970,0)="MA6:JT$P5FJE"",U5HI@K-5*&9*C13A6:FT,P4FIFJ%`K-3*&9*30SA6:FT,P4"
^XMB(3.9,23,2,3971,0)="""DATA"",396.18,198,3,490,0)"
^XMB(3.9,23,2,3972,0)="MFIE"",U=HY@K-7*&9JYJLT,P5FKE"",U=HY@K-7*'94VCV%)J]+<W?&AHG8F:<"
^XMB(3.9,23,2,3973,0)="""DATA"",396.18,198,3,491,0)"
^XMB(3.9,23,2,3974,0)="M*.FFOPV,4T`>8YS8D'%ZO9S/9>G#?O7""HE??MQ]=)?/;[SL)P_JQ3%W$\XMV"
^XMB(3.9,23,2,3975,0)="""DATA"",396.18,198,3,492,0)"
^XMB(3.9,23,2,3976,0)="MH8DQVZB.;=VZ`85QO@'C.'T,X_@0X[17:_AB#5^K-9=JW95:>Z'N]V*8""WDQ"
^XMB(3.9,23,2,3977,0)="""DATA"",396.18,198,3,493,0)"
^XMB(3.9,23,2,3978,0)="M'2:';)#'5.4Q.[LQ^_""N1N75R)\.TK$=]]N$\\.NT5#FU$>J7+8^AR[8IPWU"
^XMB(3.9,23,2,3979,0)="""DATA"",396.18,198,3,494,0)"
^XMB(3.9,23,2,3980,0)="MJ8$^.,RWR;;.5\[6+FS#>TIP3[^'FA&\1ORNFR09T&XRZ*-S=]`K]%7#>RZH"
^XMB(3.9,23,2,3981,0)="""DATA"",396.18,198,3,495,0)"
^XMB(3.9,23,2,3982,0)="M[7!<O'B=W+S-J^0ZSS])MK>?-)N*]M6UK1Z""8*V]^^K:]:`X\7N&N;Q[:<_F"
^XMB(3.9,23,2,3983,0)="""DATA"",396.18,198,3,496,0)"
^XMB(3.9,23,2,3984,0)="MJFY\:'[9K8?=/M<7=&[?:'.[J8.\H7URR>_BNZ2E;+Q5F\.5?=.N6NWGZD94"
^XMB(3.9,23,2,3985,0)="""DATA"",396.18,198,3,497,0)"
^XMB(3.9,23,2,3986,0)="M^9_2:.\^=((VG9""-$K`).`?F2NQ;7?/BKYU*_/""A$,HJ""P7;(7^I)/N7WL?9"
^XMB(3.9,23,2,3987,0)="""DATA"",396.18,198,3,498,0)"
^XMB(3.9,23,2,3988,0)="M75+G#5WX!<UO>3Y/[R0/XOF+>2IT<_=\6>7K'^Z&4[KETQ*?XW#1(P)&CV""("
^XMB(3.9,23,2,3989,0)="""DATA"",396.18,198,3,499,0)"
^XMB(3.9,23,2,3990,0)="M$4W\2!\9@A`IP-:00#M3H`48HYW(P8/(;K3B/YVWOWYX]:/XU;*0MY*V7)9>"
^XMB(3.9,23,2,3991,0)="""DATA"",396.18,198,3,500,0)"
^XMB(3.9,23,2,3992,0)="MS?+/B;`5[88BY^-WSL?+R^^<RS^^<^2_XH_=T8IR`M(?EY<_.-V?E3]6_T_^"
^XMB(3.9,23,2,3993,0)="""DATA"",396.18,198,3,501,0)"
^XMB(3.9,23,2,3994,0)="MI_Y%W]7CDL0OO*R'U]=_I3*J\<999I*!Z^&BLK@XS=;)X4615_DLGS?&E5N,"
^XMB(3.9,23,2,3995,0)="""DATA"",396.18,198,3,502,0)"
^XMB(3.9,23,2,3996,0)="M=-@6VW&E\`[:;;LMW@344,IT.]DX[TD,RX!ZOS7*#,T""[I[+[1(7K_EP9\/\"
^XMB(3.9,23,2,3997,0)="""DATA"",396.18,198,3,503,0)"
^XMB(3.9,23,2,3998,0)="MYE-P3D8;OC*>)4ZY>EA4>7L$9D/Z&HJA@3B]%`<N1#'Q&([D7^)9K<["":LJ!"
^XMB(3.9,23,2,3999,0)="""DATA"",396.18,198,3,504,0)"
^XMB(3.9,23,2,4000,0)="MW;+N0%8JE/?Y[).S:$^T,E@%Z5D%\X!EA#ZXC!""YBG:;O[F:#REZKZH;*GN/"
^XMB(3.9,23,2,4001,0)="""DATA"",396.18,198,3,505,0)"
^XMB(3.9,23,2,4002,0)="MNO<KO`&_:0^_""8^,&4X]',.[.`I_'XZS'H[[*K\IC4!^MU<US/#+[+.XU&25"
^XMB(3.9,23,2,4003,0)="""DATA"",396.18,198,3,506,0)"
^XMB(3.9,23,2,4004,0)="M;*V4VW(N[_ZW<3V:L/J25O4\O[I;9A&W9F8:+(DCEQ0P<,]&+FY)S:%_BQTT"
^XMB(3.9,23,2,4005,0)="""DATA"",396.18,198,3,507,0)"
^XMB(3.9,23,2,4006,0)="M17Z[7=;#LIS-$V,[VKGD]N""2]=I5`B^.<'!QC+8>[WHA?>ZV]+$/I:RWZD4/"
^XMB(3.9,23,2,4007,0)="""DATA"",396.18,198,3,508,0)"
^XMB(3.9,23,2,4008,0)="M5`:Y]Y)[69(+#ZI\^*E%`%#O,HAV!N""=*8AG,+(_1E+,4E(^!P7E>SA!43*5"
^XMB(3.9,23,2,4009,0)="""DATA"",396.18,198,3,509,0)"
^XMB(3.9,23,2,4010,0)="MH&8;]S23[JE3%?'R(9Y`:-1&:,1V>\&[*Z0HH7D^GTIH]WFY2*MXGOZU*1`5"
^XMB(3.9,23,2,4011,0)="""DATA"",396.18,198,3,510,0)"
^XMB(3.9,23,2,4012,0)="M%G=9W""7%:@+1N8:BVP2XH=JR?G%1ET#RBF`GDQ)07&'@>1==)FB.!P@<WX1O"
^XMB(3.9,23,2,4013,0)="""DATA"",396.18,198,3,511,0)"
^XMB(3.9,23,2,4014,0)="M""H(FA*&I0]&$<30[<((F#""9N/X<)]0_'8]^""Q\%7R&.""UV+NC\+AR(+#X5?("
^XMB(3.9,23,2,4015,0)="""DATA"",396.18,198,3,512,0)"
^XMB(3.9,23,2,4016,0)="M86JCQ>/PV'<M>!Q]A3SF>""V.W%&T.+#@,'&_0A8S&S4>B<FA#9/)U\/D3;>S"
^XMB(3.9,23,2,4017,0)="""DATA"",396.18,198,3,513,0)"
^XMB(3.9,23,2,4018,0)="M@JW:XF^H\I>!_I\?P.SU=-&'Y/M\D61/+_Z@""W(:8<::R8RA9=9VSL>4&817"
^XMB(3.9,23,2,4019,0)="""DATA"",396.18,198,3,514,0)"
^XMB(3.9,23,2,4020,0)="M.NIB.7JQA`1'6*WWN-4.)Q-""5#+!,\XE$)^""6/T;J*_2>3&/TX=U@__EC=#S"
^XMB(3.9,23,2,4021,0)="""DATA"",396.18,198,3,515,0)"
^XMB(3.9,23,2,4022,0)="M]#:5;3@KY]6?<3,L!=]BH/B43W'A*0\,N$6XV!3Y`1-""\Y%!P8B/0""+%D8@,"
^XMB(3.9,23,2,4023,0)="""DATA"",396.18,198,3,516,0)"
^XMB(3.9,23,2,4024,0)="M\A$Z!AN9*8T;+-;^`P78KIXF%`E'5YFKH?/GI3@Y80#O\]F"".%M\K/PTZ1^L"
^XMB(3.9,23,2,4025,0)="""DATA"",396.18,198,3,517,0)"
^XMB(3.9,23,2,4026,0)="M_%[FLV4-SO6NVRU_6/'1B<1'#R*^""""N]!L3'H\3W?@W<M95B$POHJ4KP,/Y."
^XMB(3.9,23,2,4027,0)="""DATA"",396.18,198,3,518,0)"
^XMB(3.9,23,2,4028,0)="MG47&B3`818*765D5RYG\6#YQT^D>VG>KHXA:YXTWBQ)ZW+?6[)Q]5[W7/Q)<"
^XMB(3.9,23,2,4029,0)="""DATA"",396.18,198,3,519,0)"
^XMB(3.9,23,2,4030,0)="M5T\1(JL3P""L#8<@,X=M$L/8?_Y#5"",NYI-2NMH+W^3[$<P'Z00<M#""W(7V<Q"
^XMB(3.9,23,2,4031,0)="""DATA"",396.18,198,3,520,0)"
^XMB(3.9,23,2,4032,0)="MZYSMCRU=U,[?,5B0AUV0#]:WA/`NI[H\R-56#OA%:0NCC-8;]*P7,FH4C.($"
^XMB(3.9,23,2,4033,0)="""DATA"",396.18,198,3,521,0)"
^XMB(3.9,23,2,4034,0)="M`5)^>6E9SD,I15(,QYT(1Y+\,BEG17J=;*K5,MT*'J-^E#+<XAA<744HQRWN"
^XMB(3.9,23,2,4035,0)="""DATA"",396.18,198,3,522,0)"
^XMB(3.9,23,2,4036,0)="MW[$X9/(TJY*R2B6""J*5L.(Y\S@E\1O)'R>;.9#6/,Q,^;J&4P2EUBE3""5W%1"
^XMB(3.9,23,2,4037,0)="""DATA"",396.18,198,3,523,0)"
^XMB(3.9,23,2,4038,0)="M%U;>)W&-_FEIM4.DEKDP]6'T*#&)-<A@1M]:+(6T`U,*(62E`5&%\`$+%RR&"
^XMB(3.9,23,2,4039,0)="""DATA"",396.18,198,3,524,0)"
^XMB(3.9,23,2,4040,0)="MGB9.';+V,GJAE08BV58!Z_4Y4M<LE>OBE=FGP9>V[D#WQ9=%GB_J,BC].]TS"
^XMB(3.9,23,2,4041,0)="""DATA"",396.18,198,3,525,0)"
^XMB(3.9,23,2,4042,0)="M60F+`T=<._^N1VC:NY$Z-*9ML8+N.YV;.8#85.L*B-IDG""P9J`T`:PEA)8P\"
^XMB(3.9,23,2,4043,0)="""DATA"",396.18,198,3,526,0)"
^XMB(3.9,23,2,4044,0)="M7*XD]$T]"",,T""D8I+3(FR#04=2TX&[%1.!N,RUEZ&IS=F<JZ%`!I.`E\QE$&"
^XMB(3.9,23,2,4045,0)="""DATA"",396.18,198,3,527,0)"
^XMB(3.9,23,2,4046,0)="M9_@\'^;MOC5K(LMY52UO;V4SEE(O]'Z99:O:\^M^TX&:.Z(Q8T<Q9O7X376@"
^XMB(3.9,23,2,4047,0)="""DATA"",396.18,198,3,528,0)"
^XMB(3.9,23,2,4048,0)="M:N\YZJ+4H>,)-=3!,]UJ4X2RX!FKO>&0WCFKG43Q4/!D<-JJ31'IW@I0O!5@"
^XMB(3.9,23,2,4049,0)="""DATA"",396.18,198,3,529,0)"
^XMB(3.9,23,2,4050,0)="M</>$3NP!T8F=3FL%GE_?R!'9XO)P/<_K+@[%WY&PRG'WZ4?Q4]#;TUD([V@6"
^XMB(3.9,23,2,4051,0)="""DATA"",396.18,198,3,530,0)"
^XMB(3.9,23,2,4052,0)="M@KLH""\$]'Z,J+-*I""CM;B)$LA(^T$)'%_8J'X[@)9%H#<9G-BB0NA:*525:*"
^XMB(3.9,23,2,4053,0)="""DATA"",396.18,198,3,531,0)"
^XMB(3.9,23,2,4054,0)="M/?\YK582V*',E]D-[(?5=Q[G)DD6<OI(&[)Q8BL1',^/\%!6@A&-OFC:1GR="
^XMB(3.9,23,2,4055,0)="""DATA"",396.18,198,3,532,0)"
^XMB(3.9,23,2,4056,0)="MRW[V(\:R$J%M^H7TI5]:93%CI5_H4(=67R@,NC[""P2%D:^B;?""E^4`;RJOM"""
^XMB(3.9,23,2,4057,0)="""DATA"",396.18,198,3,533,0)"
^XMB(3.9,23,2,4058,0)="M>!>VG:T>CGC""X)0DMD7Q92HN2#-AEU;.[#[Y4@?OI'T3!G""T""""OSD6L+-)'P"
^XMB(3.9,23,2,4059,0)="""DATA"",396.18,198,3,534,0)"
^XMB(3.9,23,2,4060,0)="MT'IMY2*)/QUF<0%N<13.FNF""DD:+^Q+/Y_EA9,<I<GD1J)?8X+@<S33>&OHR"
^XMB(3.9,23,2,4061,0)="""DATA"",396.18,198,3,535,0)"
^XMB(3.9,23,2,4062,0)="M,9U2QBV""-QA:XLAVU*O1E2U""1OL#4-D""9(;YU<JV89_W->Q#,3T61N=6=_O&"
^XMB(3.9,23,2,4063,0)="""DATA"",396.18,198,3,536,0)"
^XMB(3.9,23,2,4064,0)="M:]X'+=!!0^AE^+G5W?SFQ`=N3I""91`74""-%V`DU\<Y+)I#D0(A%RES!$XF94"
^XMB(3.9,23,2,4065,0)="""DATA"",396.18,198,3,537,0)"
^XMB(3.9,23,2,4066,0)="MQ:4:RGZ9[""Y<\3S]K):RM2]EVG>`$[[OE=TYV?/2Q@OZ.V2S@OZ<""^29P>>B"
^XMB(3.9,23,2,4067,0)="""DATA"",396.18,198,3,538,0)"
^XMB(3.9,23,2,4068,0)="M-A""L55OZI+-9]01Q)&<C=QS.LB>9S=IQUD-SEK*1.,O'Y2P[L3RAAS_%&(%K"
^XMB(3.9,23,2,4069,0)="""DATA"",396.18,198,3,539,0)"
^XMB(3.9,23,2,4070,0)="M?ESX+N-%.M8:QW,.>L!=""6=EH:80X^MKX,BXF@G>UW@RW6]^7A;95"">(=]P3"
^XMB(3.9,23,2,4071,0)="""DATA"",396.18,198,3,540,0)"
^XMB(3.9,23,2,4072,0)="M)!S(VH-W*PTF%XF0^W'DB@C_Q/9C,+`?.SGZ+8!J@-F1G5K=1FONQ(G[WVII"
^XMB(3.9,23,2,4073,0)="""DATA"",396.18,198,3,541,0)"
^XMB(3.9,23,2,4074,0)="MRA#\3,[R=9)5SRO7P@-5ZJ%^%Y(H5M`/OMP\GF)_AD?9GSNU\?$V?30-8F<-"
^XMB(3.9,23,2,4075,0)="""DATA"",396.18,198,3,542,0)"
^XMB(3.9,23,2,4076,0)="M^GJ3.QWP*<\$R,B#XFAP\1L<?V*Z`DP_.""J0T8=U(%\F^!2XHCV@L82Q-,`R"
^XMB(3.9,23,2,4077,0)="""DATA"",396.18,198,3,543,0)"
^XMB(3.9,23,2,4078,0)="M&CB7'@ESM%:K+5U]>L-M$SVH'FG7M$6Z""83R--!6^4#7F>?*?QBV]6RLWL&9"
^XMB(3.9,23,2,4079,0)="""DATA"",396.18,198,3,544,0)"
^XMB(3.9,23,2,4080,0)="MV#""EL^XA?.)=@V/UGH'COZQPQ=]MA^`V^OL-T<7)(]#%705;W!T!63P,S\CB"
^XMB(3.9,23,2,4081,0)="""DATA"",396.18,198,3,545,0)"
^XMB(3.9,23,2,4082,0)="M8R*+[RPMZS.UGDN-C*T/&-LP($_-V@[U8H9].6<&A#(T`+3<H'X-AFQWI"".1"
^XMB(3.9,23,2,4083,0)="""DATA"",396.18,198,3,546,0)"
^XMB(3.9,23,2,4084,0)="M"",\S6P.K2^ST-2ZZ\`:J_""ZI&V>NDYFL/73$A[1P;I?9NCO8F<59EG=`UL5O"
^XMB(3.9,23,2,4085,0)="""DATA"",396.18,198,3,547,0)"
^XMB(3.9,23,2,4086,0)="MK,0/.&4B@6""KY.:'B_\B[+_:L%./:""`,D0V$<.;(0_>KW3E%<CM/_OP)E5H,"
^XMB(3.9,23,2,4087,0)="""DATA"",396.18,198,3,548,0)"
^XMB(3.9,23,2,4088,0)="M^\H]&""#B@)PSB_:9Q3#J!='V3?E]3BP:,CQR<1:LTX`XU-FG;5_^IR.=D!^="
^XMB(3.9,23,2,4089,0)="""DATA"",396.18,198,3,549,0)"
^XMB(3.9,23,2,4090,0)="M-_%*&IOXNI20(5E>/,3S^4JF],I<,&4A`923'RY&LCT10:[6AZ/Z!-G'^&J>"
^XMB(3.9,23,2,4091,0)="""DATA"",396.18,198,3,550,0)"
^XMB(3.9,23,2,4092,0)="M?-Y@U-Z*&U\]5$-\*..5=&2>/;]_)I1G%7^1$=V?1EML7U$-=(WFX&)#Y%9Z"
^XMB(3.9,23,2,4093,0)="""DATA"",396.18,198,3,551,0)"
^XMB(3.9,23,2,4094,0)="M?IW.MX6MZU0HSN)&#$EV""%?1<+LJFI_&JJ*).&X=C(+%[=A*P8]Y.DN0'/>0"
^XMB(3.9,23,2,4095,0)="""DATA"",396.18,198,3,552,0)"
^XMB(3.9,23,2,4096,0)="ME/KT-#D>X-;A<3Z&:^'4G1])AF1ZB""0V!`UO0!_343T:#`%Q<:OQX:Y*XB$-"
^XMB(3.9,23,2,4097,0)="""DATA"",396.18,198,3,553,0)"
^XMB(3.9,23,2,4098,0)="M:UW^[I3BZI?>BJNO.$(6VTOP;9K=R)`7#I""`(,7""71AK%UG#]W)5+K(DKB',"
^XMB(3.9,23,2,4099,0)="""DATA"",396.18,198,3,554,0)"
^XMB(3.9,23,2,4100,0)="MJR*]R8N?<&1'2+)Y<(I;F%*D.Z*!+*,X9Z0UG,JY_,-Y]N]Y7I8+X?VMLKLD"
^XMB(3.9,23,2,4101,0)="""DATA"",396.18,198,3,555,0)"
^XMB(3.9,23,2,4102,0)="MGC^K2Z_;KXFW/L9WR_+94\18LG<[@KXK<:=P_`0N>`'RS.`A6#5.70^G<I=R"
^XMB(3.9,23,2,4103,0)="""DATA"",396.18,198,3,556,0)"
^XMB(3.9,23,2,4104,0)="M6JQL\)&*)KW""NH)-.H7BL;/(Q8<B%:I!_IO5W^;9W3(9P37<YM']@1(7J%W;"
^XMB(3.9,23,2,4105,0)="""DATA"",396.18,198,3,557,0)"
^XMB(3.9,23,2,4106,0)="M!8]]#?2*+J,>$FZ!QXS$O):W""+4_4UXQL*5`OC^$7.T=CE,VHQK(L3FU;_YU"
^XMB(3.9,23,2,4107,0)="""DATA"",396.18,198,3,558,0)"
^XMB(3.9,23,2,4108,0)="M!_+`T`4K@'NUB(_J[0N)?[P\\-7JX2&1D]D`SI7Z[W[[O)S'SD-Z,T^!/'+]"
^XMB(3.9,23,2,4109,0)="""DATA"",396.18,198,3,559,0)"
^XMB(3.9,23,2,4110,0)="MY4WR.157P]*Y+?*'W:M3Y'_I42M\_($:4?.<K]8.:_>8S9`#]O@])N50.C>["
^XMB(3.9,23,2,4111,0)="""DATA"",396.18,198,3,560,0)"
^XMB(3.9,23,2,4112,0)="MBF""T70KQ+(NB<5A&QBV)XJ=5_.E':,XR-A)G;>9!>(]71G'[B(OJODACYYO["
^XMB(3.9,23,2,4113,0)="""DATA"",396.18,198,3,561,0)"
^XMB(3.9,23,2,4114,0)="M7/JN\B*2Q64\_Q;+OL#%LR\(QF%?^""1K]7:<)6C.>IKX)9:S;GB$026@9HHS"
^XMB(3.9,23,2,4115,0)="""DATA"",396.18,198,3,562,0)"
^XMB(3.9,23,2,4116,0)="M12+7JTT92N/[8!>YK^\BAR(4L`^G8UVH\TS<Z-Q%/E(7>?,*/""CM`""7MP$59"
^XMB(3.9,23,2,4117,0)="""DATA"",396.18,198,3,563,0)"
^XMB(3.9,23,2,4118,0)="M\`ZN:P-DPF479YEB9$IQ1C#$G\Z<DG&.%SK%5+=W16)S;XWPQS`?Z;`@(S<'"
^XMB(3.9,23,2,4119,0)="""DATA"",396.18,198,3,564,0)"
^XMB(3.9,23,2,4120,0)="MA2=R#+>';AI-W01NO![<S1+""%UX&,IDRVE'&PQ2K'F-N9F1;,4I[H4&84=%H"
^XMB(3.9,23,2,4121,0)="""DATA"",396.18,198,3,565,0)"
^XMB(3.9,23,2,4122,0)="MLWA@'V1HRD(;)?YX>>D\>[V>CEP_>7;QU*J?AJ!0`A>+N#%&!NNUU43J#<7("
^XMB(3.9,23,2,4123,0)="""DATA"",396.18,198,3,566,0)"
^XMB(3.9,23,2,4124,0)="M_+_'Q\B(_RK,3#RO0:5E<&B%2Q0&?6E\#L(QG""N0[`MB@EX8CR`RY?>Y`LF4"
^XMB(3.9,23,2,4125,0)="""DATA"",396.18,198,3,567,0)"
^XMB(3.9,23,2,4126,0)="MX1RW)^$H5L#18""/71?[%F:>W5:?HQH!D#UE&!!<:1$@5>9T7R7TB#NHOXNC]"
^XMB(3.9,23,2,4127,0)="""DATA"",396.18,198,3,568,0)"
^XMB(3.9,23,2,4128,0)="M-,>3C:Q6)7#)`4/FZ*\>4@M:`QRMFOYKK%I(/TJ69%5)4MTC*0Z1%`=L#*5X"
^XMB(3.9,23,2,4129,0)="""DATA"",396.18,198,3,569,0)"
^XMB(3.9,23,2,4130,0)="M5V,/WSGYLI*H$LFG$DEVA""QAUDPI8LB*AQ?SO)1T)ZNDE+5BXIJ3EE6<S9*?"
^XMB(3.9,23,2,4131,0)="""DATA"",396.18,198,3,570,0)"
^XMB(3.9,23,2,4132,0)="M'%R%+K)D@/F@`\Z16OU:6(\,K=8AQ1'+73#=[""/5^C^KA7!!9DO!8B2]#$FO"
^XMB(3.9,23,2,4133,0)="""DATA"",396.18,198,3,571,0)"
^XMB(3.9,23,2,4134,0)="M!T\;(IY=88G,?=_#Q#^J5""Q$'CH<'A/)D;[KA_7D""IP,^OP1YI^DTQI@:3Z!"
^XMB(3.9,23,2,4135,0)="""DATA"",396.18,198,3,572,0)"
^XMB(3.9,23,2,4136,0)="M0SW$TGPBIWJ$IGNZ8[VWO`LD=O)SW4?OO],XV`,TW:=VLO=>?.$53'BT]]\;"
^XMB(3.9,23,2,4137,0)="""DATA"",396.18,198,3,573,0)"
^XMB(3.9,23,2,4138,0)="M(6HG/MM[[UTPP5_'X=Y[.X,7-LGIOHW.\X&\+M1DYF)VJC92S[R)2O&V3H43"
^XMB(3.9,23,2,4139,0)="""DATA"",396.18,198,3,574,0)"
^XMB(3.9,23,2,4140,0)="M+Q9U\`"";WJ@!8_O*\B`QC\4U?Z*RO,=SC:$UC>B`A)%,H^SBP+!P,--^3^)/"
^XMB(3.9,23,2,4141,0)="""DATA"",396.18,198,3,575,0)"
^XMB(3.9,23,2,4142,0)="MXU2""UI-+L2HW&OOX-&5J([+/P^N>%XW#/!LSQT^*>;Z-[HW%/G^:JK01V1>@"
^XMB(3.9,23,2,4143,0)="""DATA"",396.18,198,3,576,0)"
^XMB(3.9,23,2,4144,0)="M=8^Z=)S#PL;N^2?%O-!""]T9C'S]\S<6!V1?A=8][XS""/7!RXVN+0S/-<&]T;"
^XMB(3.9,23,2,4145,0)="""DATA"",396.18,198,3,577,0)"
^XMB(3.9,23,2,4146,0)="MBWTV]3[12;$/?[.@X4B'1C11Q>B(W+.Y8XS%/V;3ET#(2?$/?]M@#&X+IA%2"
^XMB(3.9,23,2,4147,0)="""DATA"",396.18,198,3,578,0)"
^XMB(3.9,23,2,4148,0)="M^VPL'SFIZX9G<]W0\0^]>VU,'SFI^X:'OV^PP!^'>S9M'.2D+AR>S85C-/Y9"
^XMB(3.9,23,2,4149,0)="""DATA"",396.18,198,3,579,0)"
^XMB(3.9,23,2,4150,0)="M=1N<U(W#PWM]FC)E_,EAI7W(*T?E+#9UR>.4*_LVCMYH'+/R58*).8;W[;@?"
^XMB(3.9,23,2,4151,0)="""DATA"",396.18,198,3,580,0)"
^XMB(3.9,23,2,4152,0)="MC,.OD?NL2'AB'8`VCM]8S.7NR,R-3HRYS(*YGCN.5\UM_!HZ@E>]&T4T$BH!"
^XMB(3.9,23,2,4153,0)="""DATA"",396.18,198,3,581,0)"
^XMB(3.9,23,2,4154,0)="M1V_^T5AHXUI3]W18V&[C<$W:.`A49`,WRW@N8LBL[.,@1P4=[X<=B;,-Z@C5"
^XMB(3.9,23,2,4155,0)="""DATA"",396.18,198,3,582,0)"
^XMB(3.9,23,2,4156,0)="MHXX<I2F$4LNND`""%(]Z<;;''M@V@GA""/F/2$.,\^%.E=LAX#_T2[0LA`/9+7"
^XMB(3.9,23,2,4157,0)="""DATA"",396.18,198,3,583,0)"
^XMB(3.9,23,2,4158,0)="M.XP12E/`5WXT%%56YG)B0@U^6X,M_BB6E&:H8BJOK^8D`"">1GILM[&O_O=ZB"
^XMB(3.9,23,2,4159,0)="""DATA"",396.18,198,3,584,0)"
^XMB(3.9,23,2,4160,0)="M&9^9\OO<;&'*<(Z%NP(+8RQ+''%;$8E*""0^A11>OR4H[')T^CD[B:C!EL81B"
^XMB(3.9,23,2,4161,0)="""DATA"",396.18,198,3,585,0)"
^XMB(3.9,23,2,4162,0)="M31L2Z8S`>*388KI7694*?Z-,;Q(<N2'R&($1#8GGCW""._%+_5)4O9_=_2ZN!"
^XMB(3.9,23,2,4163,0)="""DATA"",396.18,198,3,586,0)"
^XMB(3.9,23,2,4164,0)="M1)<DOC^9V?""12*2=(2?'LQN]A<40?!/L*!W<;OA8&&D8#.E8=L-G.+O!8`2Z"
^XMB(3.9,23,2,4165,0)="""DATA"",396.18,198,3,587,0)"
^XMB(3.9,23,2,4166,0)="M$$FN\R:OQ-YN6`T<U1Q)-8R?2UWVF$D2[^+Y8@U3+N%.<W&O+O:PY3-A/(IX"
^XMB(3.9,23,2,4167,0)="""DATA"",396.18,198,3,588,0)"
^XMB(3.9,23,2,4168,0)="MMOTH[GN+O!#7'/GJ0UP*""YBHDR2*;9^VO&)>I[(KPQ'F\L;YIJ[$%Y8PR>KQ"
^XMB(3.9,23,2,4169,0)="""DATA"",396.18,198,3,589,0)"
^XMB(3.9,23,2,4170,0)="MEM^.!GON>SA6<@\\.""(D[O:OF?.0+\6/YHL$WQ?F^TBBX8IE;.WXB[S($B'#"
^XMB(3.9,23,2,4171,0)="""DATA"",396.18,198,3,590,0)"
^XMB(3.9,23,2,4172,0)="M-7`JCN+>!DTPAN>?KTKV9[#?VY_D$6.&G^]*AKU*A.#V)(7Q<SK76$L/](,P"
^XMB(3.9,23,2,4173,0)="""DATA"",396.18,198,3,591,0)"
^XMB(3.9,23,2,4174,0)="MMS(*ORR2OZ4LD/=6&D13>:""4]/:?`+.*&=P(='`7E)*^4X<2J+Z$3.&#4H*\"
^XMB(3.9,23,2,4175,0)="""DATA"",396.18,198,3,592,0)"
^XMB(3.9,23,2,4176,0)="MNS)OHKOK-B=#A[`:0\@1`3L=?5Q^QB?3]/0,I6<Z3R^S[>O(U!<=2LYR=C#6"
^XMB(3.9,23,2,4177,0)="""DATA"",396.18,198,3,593,0)"
^XMB(3.9,23,2,4178,0)="MTFD:?X[&6H976KBG""LM9SYNF.^AHG.462CL2:_UI.H>.QEH/K[21/PIG@VG:"
^XMB(3.9,23,2,4179,0)="""DATA"",396.18,198,3,594,0)"
^XMB(3.9,23,2,4180,0)="MBH[&6=]"":4=B;3@1$/:Q6!O@E990.@IKHVD:DH[&VM!"":T?BK>].TZUT--Y&"
^XMB(3.9,23,2,4181,0)="""DATA"",396.18,198,3,595,0)"
^XMB(3.9,23,2,4182,0)="M%FKKCZ.V$_4R'8NUS+51VY%X.U&CT]%X:W-ET*#D8'G+_8GZ>([&7(M+`R6C"
^XMB(3.9,23,2,4183,0)="""DATA"",396.18,198,3,596,0)"
^XMB(3.9,23,2,4184,0)="MZ""T/)NKR.1IO;:X-8S$WG*@%Z&C,M;@X4#:*>\NCB1J$CL;;P:L#/QAS/7>B"
^XMB(3.9,23,2,4185,0)="""DATA"",396.18,198,3,597,0)"
^XMB(3.9,23,2,4186,0)="M[J&C,7?@\@""E""QE<.T!=)&]MVO$I2G%WT]4<+7]E+GG>30-V7RCJM!66M2&>"
^XMB(3.9,23,2,4187,0)="""DATA"",396.18,198,3,598,0)"
^XMB(3.9,23,2,4188,0)="MM9H!]&C66@'DH-3V?^(O3I$\Q&E6R@'KFE%T\JW=(+HJ!SG=?<>.V0.W""2B'"
^XMB(3.9,23,2,4189,0)="""DATA"",396.18,198,3,599,0)"
^XMB(3.9,23,2,4190,0)="M#-_3H@!I?ZUXC;H$OX.;O2PQ)(8N!P1J^*!P+S!VG`>WVO/!9,P*+1Q2YHYS"
^XMB(3.9,23,2,4191,0)="""DATA"",396.18,198,3,600,0)"
^XMB(3.9,23,2,4192,0)="M_[?1*S+""+14^8=""<XQ:G]EBLL]$R$IT,ZRR<24;#43CG3=20-1+G;%S%L5CG"
^XMB(3.9,23,2,4193,0)="""DATA"",396.18,198,3,601,0)"
^XMB(3.9,23,2,4194,0)="M3]0..!+K`AO6>6P4UME<#RD[&=:%%OMU),[91""TH/1G.650VT&""4FYT?'0'9"
^XMB(3.9,23,2,4195,0)="""DATA"",396.18,198,3,602,0)"
^XMB(3.9,23,2,4196,0)="MX(""<HS:7XG%8%[A'@#@X'.N8A=*-%<#UIAI].FXX0=\[^_.RJO*L[H1>_U%I"
^XMB(3.9,23,2,4197,0)="""DATA"",396.18,198,3,603,0)"
^XMB(3.9,23,2,4198,0)="MG/64SEF@<;;52;[GJP?VS7Y,JWCN7*5W6;,M&*Y(^C5[,4]GG\3#/]?T_3O)"
^XMB(3.9,23,2,4199,0)="""DATA"",396.18,198,3,604,0)"
^XMB(3.9,23,2,4200,0)="MDB*=U4_-6X,9JC78""T/3WF`:,H/>X#\NG6=7B[HQ^/ELEI1UB:?2(@Q7""L!0"
^XMB(3.9,23,2,4201,0)="""DATA"",396.18,198,3,605,0)"
^XMB(3.9,23,2,4202,0)="M^GV-+A`<J#_&6(@/1;Q(_DJ7Y::P_T<<_#]#TNQJ2FHI&OY_.9=L+>^+Y9T3"
^XMB(3.9,23,2,4203,0)="""DATA"",396.18,198,3,606,0)"
^XMB(3.9,23,2,4204,0)="MW\D82-5`ID<NHW<D&XBBS,ZU[_;5O[2WHA8T_C##S[7OIAKNX38JI1K,S0!I"
^XMB(3.9,23,2,4205,0)="""DATA"",396.18,198,3,607,0)"
^XMB(3.9,23,2,4206,0)="M7I9%YM334-0]BMJB-$!N4<K""\Q9]Q!8-L5M4D^XY;]%AK[B%5[-.!UE,(F8P"
^XMB(3.9,23,2,4207,0)="""DATA"",396.18,198,3,608,0)"
^XMB(3.9,23,2,4208,0)="M1+.O0;#AFHGG@7]4!)NN`^+$T(2J(^'4N%8""\RT%!B.,41?N:FBG_)H""""R<6"
^XMB(3.9,23,2,4209,0)="""DATA"",396.18,198,3,609,0)"
^XMB(3.9,23,2,4210,0)="M6%7DBWM57-M=6&6OXUD""RQ*52E1-@P,8:/'LY[RZ5Z2>I!(IJ2WZ]8[=TJHP"
^XMB(3.9,23,2,4211,0)="""DATA"",396.18,198,3,610,0)"
^XMB(3.9,23,2,4212,0)="M""R[[-[G@!A2=""R,T&"",7%IU:Z?UO->*=S""K>Y-@X03`$+M>.>X_+R%,KM+=B"
^XMB(3.9,23,2,4213,0)="""DATA"",396.18,198,3,611,0)"
^XMB(3.9,23,2,4214,0)="M9-M219:6BGB:^TZ`/%NBHYJJJRHILES8J/0F?XC+*D]O)CU>N)700ENAA2$*"
^XMB(3.9,23,2,4215,0)="""DATA"",396.18,198,3,612,0)"
^XMB(3.9,23,2,4216,0)="M4T`GM)!,+S3-$7,:IPC<LV!DWSCZF*!P*R3:NK$3:QMXU#'A61P38S&2GUB/"
^XMB(3.9,23,2,4217,0)="""DATA"",396.18,198,3,613,0)"
^XMB(3.9,23,2,4218,0)="M@`$CAX.K?E]PM37#<Q->C5P@O!J`$>20&(57+YUG_UDM\CN);`FA+\*[#HY^"
^XMB(3.9,23,2,4219,0)="""DATA"",396.18,198,3,614,0)"
^XMB(3.9,23,2,4220,0)="M]`4/`LB#`+O-_0@-(;(H\JI8EN(!<JYJB*081KWA6*B""19+,[I&D1CA2*5S'"
^XMB(3.9,23,2,4221,0)="""DATA"",396.18,198,3,615,0)"
^XMB(3.9,23,2,4222,0)="MQ-'XD.NADR-,F6P?KNOQC4/G+87.6QBP3'.=TQB4R#WN<?NAQH1ULMK(R#+"""
^XMB(3.9,23,2,4223,0)="""DATA"",396.18,198,3,616,0)"
^XMB(3.9,23,2,4224,0)="M>+%(XJ(>[_J57,#7PR,M)`8C!85PB+`=7FF>`,=U:I_W^T('%`ZQ$@ZS%`Z,"
^XMB(3.9,23,2,4225,0)="""DATA"",396.18,198,3,617,0)"
^XMB(3.9,23,2,4226,0)="MB(443N2Z1Q7.Z[B<I;/EO$9Y*:=`6D9Z3CX^3@&#+U"".`QZ/7'KH^_4;N""#Z"
^XMB(3.9,23,2,4227,0)="""DATA"",396.18,198,3,618,0)"
^XMB(3.9,23,2,4228,0)="M9:/0.;[>&+X.)DC'DUH?XS?)!D$;[9\.%'9!!SH,""(;ELKAR3]/4_GS#6#2K"
^XMB(3.9,23,2,4229,0)="""DATA"",396.18,198,3,619,0)"
^XMB(3.9,23,2,4230,0)="M0C2K-)D>/*M&'H/A33*H8??'S1\V_[=A]P=!W[OX;K.:=A?$=MK>^E-K#G99"
^XMB(3.9,23,2,4231,0)="""DATA"",396.18,198,3,620,0)"
^XMB(3.9,23,2,4232,0)="M;6U01VSBUUTG-V_S*KG.\T_D:E;D\[GL+!92W'W8DM:MS5C_A;N/6\'M'NQ8"
^XMB(3.9,23,2,4233,0)="""DATA"",396.18,198,3,621,0)"
^XMB(3.9,23,2,4234,0)="MO'^2%W]M?FU<_/""AB&>?)`)AVU1_3(IJ\*7G\_1.+BZ>OYBG25;MGB^K?/W#"
^XMB(3.9,23,2,4235,0)="""DATA"",396.18,198,3,622,0)"
^XMB(3.9,23,2,4236,0)="M7<&OCXUMYN>Z?)MGN^_,4E1]Z2EM:LH@+:5)2>G349##!6<!`=]>/1DV\"";J"
^XMB(3.9,23,2,4237,0)="""DATA"",396.18,198,3,623,0)"
^XMB(3.9,23,2,4238,0)="M!3#R@/L?@:MKWJ3E+)G/XRS)E\(T2Y7;%W'H+ZQMS\+K\]W5X0]`'>C.>C2+"
^XMB(3.9,23,2,4239,0)="""DATA"",396.18,198,3,624,0)"
^XMB(3.9,23,2,4240,0)="M@/9N1L/2[""P'\UN3)?M<C%X'`W8O&BSZ70YZD',=BJ1<SJMZWD,L%+5FEG#="
^XMB(3.9,23,2,4241,0)="""DATA"",396.18,198,3,625,0)"
^XMB(3.9,23,2,4242,0)="M9W-Q1-ULAS](N#GQYB(OJJ8?`GHA)S[)H-=X*@Y2QSW""CD'0Z]J;Y""&O;X?R"
^XMB(3.9,23,2,4243,0)="""DATA"",396.18,198,3,626,0)"
^XMB(3.9,23,2,4244,0)="M#\,;HEGCNZM6;'8=->Z""D%Y%;JNO]#`RHAH9O<B712H8\S;Y8B*A7X2?I9>0"
^XMB(3.9,23,2,4245,0)="""DATA"",396.18,198,3,627,0)"
^XMB(3.9,23,2,4246,0)="MJ3AV5EO^BK*4ACR=Q?/^@L(#''@OT_@NR\L4>>BQ\Z'W!`X]1K1G'FV.3]@4"
^XMB(3.9,23,2,4247,0)="""DATA"",396.18,198,3,628,0)"
^XMB(3.9,23,2,4248,0)="MSA)UDWO4_-@3KNZ#(+C\\2G,E=&;SHT[H6<M4<QGJ_YX%TUKMH@-\?:J$LZS"
^XMB(3.9,23,2,4249,0)="""DATA"",396.18,198,3,629,0)"
^XMB(3.9,23,2,4250,0)="MDXB/\_QN]9V3WCJ+O""S3ZV:9ZW`LG/;%PIN-YFNZ0\B;:/9,[\ANPE<^C5E"""
^XMB(3.9,23,2,4251,0)="""DATA"",396.18,198,3,630,0)"
^XMB(3.9,23,2,4252,0)="M5'N_6U=Z^T!->F^L00-/ZAH$@7KL^:'KRNCQZLKTL)]&9?;(M)#7NQ74+0QE"
^XMB(3.9,23,2,4253,0)="""DATA"",396.18,198,3,631,0)"
^XMB(3.9,23,2,4254,0)="MA0(WA+)""39DV]_#RX2$N5M+5O=E*\<<G-X-+G\""2KJ:ON)P[GH>F:0A?-P`A"
^XMB(3.9,23,2,4255,0)="""DATA"",396.18,198,3,632,0)"
^XMB(3.9,23,2,4256,0)="MA"".G@=\)ATRQ6V`GM'>O]#JB'5=T:&<-NJ,&J8O^VX2GNTP`GD8S7;U+FC4Q"
^XMB(3.9,23,2,4257,0)="""DATA"",396.18,198,3,633,0)"
^XMB(3.9,23,2,4258,0)="M17<L;4Y.:@@T.-\FM+<)9B:ONA8'%!A@_+@/&3_P_N<#`@LCUSL+3""<PC@T-"
^XMB(3.9,23,2,4259,0)="""DATA"",396.18,198,3,634,0)"
^XMB(3.9,23,2,4260,0)="M10:1H4`)#0&N'""Q!IDJ0$MH""ZSU@8""@NG=AYD]Q(=CF_+M),?O$^^;]E4E;)"
^XMB(3.9,23,2,4261,0)="""DATA"",396.18,198,3,635,0)"
^XMB(3.9,23,2,4262,0)="MS6#XYU'QE=X[N=ZI=L4_!.=9L_!T/&MZ,E,ZU\[=CI\3N->O'A;S?/70;6(]"
^XMB(3.9,23,2,4263,0)="""DATA"",396.18,198,3,636,0)"
^XMB(3.9,23,2,4264,0)="M@&/:#/'4V:3_!U!+`P04``(`""`![=QXU?'6.]408``#RPP``&@```$-R86YI"
^XMB(3.9,23,2,4265,0)="""DATA"",396.18,198,3,637,0)"
^XMB(3.9,23,2,4266,0)="M86Q?3F5R=F5S7S$Q,RYP;FPN8V1E[3W;<MM&LL]*5?YAB@_'R7%,$0`)$EMA"
^XMB(3.9,23,2,4267,0)="""DATA"",396.18,198,3,638,0)"
^XMB(3.9,23,2,4268,0)="M3M$D;+.6$GE(RHZ?4A`)2:B0`!<`+>GO=P;W2\\-I.UL5MID(P$]W3T]W3T]"
^XMB(3.9,23,2,4269,0)="""DATA"",396.18,198,3,639,0)"
^XMB(3.9,23,2,4270,0)="M/3V#RTNTN!ZOT&KC.X?PQQ]^_&%ZA]XY?A`NC^Y0^?$'-+'O'->^/NYMW]F@"
^XMB(3.9,23,2,4271,0)="""DATA"",396.18,198,3,640,0)"
^XMB(3.9,23,2,4272,0)="ML6^YCK7[X\K>SA=_3-W-[KBUMQ@,H94=4EZC(>IDF%:A[[CW%<BE_:^C'814"
^XMB(3.9,23,2,4273,0)="""DATA"",396.18,198,3,641,0)"
^XMB(3.9,23,2,4274,0)="M3-E[C""I],UY\NEI:6\=[[WO'@]%>V3M[@T&FH;W':(I(%I9K[]2.JJIZ^RTA"
^XMB(3.9,23,2,4275,0)="""DATA"",396.18,198,3,642,0)"
^XMB(3.9,23,2,4276,0)="M'WIWON>&&-L[:Q?8&7-!F3ES?]AYSQ%7X/L;U^9`+.W0\8'7R]'U=#3[8^VY"
^XMB(3.9,23,2,4277,0)="""DATA"",396.18,198,3,643,0)"
^XMB(3.9,23,2,4278,0)="M]T>[PFW\$.KI/>FITLFZZL1=9:`^>%AJON/Y((WL+9V8(D1LX7NW.WO_2_9@"
^XMB(3.9,23,2,4279,0)="""DATA"",396.18,198,3,644,0)"
^XMB(3.9,23,2,4280,0)="MJ11^5PN_:\7?BW_H^>^S0N.%HA7_,-)^E`EC_ELM5'FW5.#'*OQ8HSRF/-?!"
^XMB(3.9,23,2,4281,0)="""DATA"",396.18,198,3,645,0)"
^XMB(3.9,23,2,4282,0)="MQS.8)NX%Y;F1/6<)]H^9$X2Y',8[+[#S/S]XP<$)K5W]20P)RRS""""7(5-0+?"
^XMB(3.9,23,2,4283,0)="""DATA"",396.18,198,3,646,0)"
^XMB(3.9,23,2,4284,0)="MI'B9+ROMP7YEL*OC?F_YSSGK5W806/>%WLT/CNMX+HU8@@#D*,$%ODO0LMF<"
^XMB(3.9,23,2,4285,0)="""DATA"",396.18,198,3,647,0)"
^XMB(3.9,23,2,4286,0)="M/.5\C"":S@KJ^-_(_S""_.UG8W53E/GD#""&`^L4>\-\'F*G<.I8]V[7N`$!1X+"
^XMB(3.9,23,2,4287,0)="""DATA"",396.18,198,3,648,0)"
^XMB(3.9,23,2,4288,0)="MS)MW=]B(JPRF;6!^8/9C3.FK""_!5ID@E%ZVI%5]R`8C%_&+M6I57D?M62IY["
^XMB(3.9,23,2,4289,0)="""DATA"",396.18,198,3,649,0)"
^XMB(3.9,23,2,4290,0)="MF/CM.IPJ""*<)PNF""<'U!.$6T(TH/!$3Q3VUZZW7(C\)J`\]0RWUL)1`/`U%>"
^XMB(3.9,23,2,4291,0)="""DATA"",396.18,198,3,650,0)"
^XMB(3.9,23,2,4292,0)="M(:E?7DY=3.RX"";&=!67.2XV[W(Z6P/MRX`-1\&B^@%57:0=TS7U[#$//5=L?"
^XMB(3.9,23,2,4293,0)="""DATA"",396.18,198,3,651,0)"
^XMB(3.9,23,2,4294,0)="MG<#!CG5(0\%0_FA.@MLQC28FW>609J*(YCV*P?)):QS23!3Q'`I9?.1[LCD5"
^XMB(3.9,23,2,4295,0)="""DATA"",396.18,198,3,652,0)"
^XMB(3.9,23,2,4296,0)="MSU-OO2<FJDJ'E;;I6IBK+:BR%6!5!EB3`>[*`/=D@'49X+X,\$`&V)``UCH2"
^XMB(3.9,23,2,4297,0)="""DATA"",396.18,198,3,653,0)"
^XMB(3.9,23,2,4298,0)="MP'JM@Z:[=>[(`N7R\DWV@Y;V_7%G^6CL;6V4/X_ARNX'+VPJNMMICW?.YL]H"
^XMB(3.9,23,2,4299,0)="""DATA"",396.18,198,3,654,0)"
^XMB(3.9,23,2,4300,0)="M5;'VHSB<Z]HRT(O_/SIAQE8=N=(,>2H:#G85P)Y&.RVEC7""+\,%&K]+X^-8F"
^XMB(3.9,23,2,4301,0)="""DATA"",396.18,198,3,655,0)"
^XMB(3.9,23,2,4302,0)="M/G]KAY:#9?J/5VA'@K^M9P?(]4*TP<0MQT46!@G(@@7%_@Y+[I?D5_3*Q(:'"
^XMB(3.9,23,2,4303,0)="""DATA"",396.18,198,3,656,0)"
^XMB(3.9,23,2,4304,0)="M4H3$*%_]0HBXL2>]\W8[[S&BZA3D3O[`\4OTO-@6/3KNUGMLM]!K-'ZP_)\4"
^XMB(3.9,23,2,4305,0)="""DATA"",396.18,198,3,657,0)"
^XMB(3.9,23,2,4306,0)="M[6?\:TMMH]C,D6UM'M`A:8+%LQ?ID>5ND>WB14T$[.-E8]2;K15:-5):&T5"""
^XMB(3.9,23,2,4307,0)="""DATA"",396.18,198,3,658,0)"
^XMB(3.9,23,2,4308,0)="M1,'Q=H^[%GK(VFSL`\:RV\58:$V[;;3V$D+6%LL%=Q5'Q0EO`29\L*T0X=75"
^XMB(3.9,23,2,4309,0)="""DATA"",396.18,198,3,659,0)"
^XMB(3.9,23,2,4310,0)="M(4#*&Z2U6]4Q3?]W>?F_`C_HRCN&#RAXWA]"";U_6YOF2""/36>^J6/""3Z]3<<"
^XMB(3.9,23,2,4311,0)="""DATA"",396.18,198,3,660,0)"
^XMB(3.9,23,2,4312,0)="MHY&9K@2[`V&Q'[[V7+N5K[_Y#2#@F1SVBH?HE9H-6P(-*EX"")=+-A""PHIY0]"
^XMB(3.9,23,2,4313,0)="""DATA"",396.18,198,3,661,0)"
^XMB(3.9,23,2,4314,0)="M&;&*,9989YDO`3)#(2JGRDM""3L/6Q+F[<S;'7?B,-@\V-N#[5G7EZ.UO/=Q2"
^XMB(3.9,23,2,4315,0)="""DATA"",396.18,198,3,662,0)"
^XMB(3.9,23,2,4316,0)="MZ5?[7UHD6[?8]=5D)""R;7W]KQDJJ(TQ>(*`""KK7]%`ZCI4]3T078-?S)8E@7"
^XMB(3.9,23,2,4317,0)="""DATA"",396.18,198,3,663,0)"
^XMB(3.9,23,2,4318,0)="MD)U^'ME)\,(0GBXF//T<PGNTR#3#8KDG(+[^F<0GPPU#@'TQ`?8@`0K.'^L'"
^XMB(3.9,23,2,4319,0)="""DATA"",396.18,198,3,664,0)"
^XMB(3.9,23,2,4320,0)="MW\,ST@'/\J5^,CT*<4*?[2!R*Z""?SWJ7AR$PZP,.8""R(;A:*8S?&!-0`0$BG"
^XMB(3.9,23,2,4321,0)="""DATA"",396.18,198,3,665,0)"
^XMB(3.9,23,2,4322,0)="MV-TCKERX?]G""D=M!$!+L(0M2`R$I;-;G`0J7B0;)*Y#Y;$?AAT>//W2)^$.7"
^XMB(3.9,23,2,4323,0)="""DATA"",396.18,198,3,666,0)"
^XMB(3.9,23,2,4324,0)="MC3]TF?B#CETD/NA+]*,OVX^^3#_ZPOT0',5K&\>[_X-6#]YQM[5]N/\#B?X/"
^XMB(3.9,23,2,4325,0)="""DATA"",396.18,198,3,667,0)"
^XMB(3.9,23,2,4326,0)="M9/L_D.G_X*1Q'%3,(NK\_AAL=G;D""*EF8O""GD&Y7?`H95*>0!HS09X]N5VSV"
^XMB(3.9,23,2,4327,0)="""DATA"",396.18,198,3,668,0)"
^XMB(3.9,23,2,4328,0)="M,$2GWZK84F41X5CM""(BN=X+H&C+#$)]8Z(=Q-9]\KZ--&*A_E?TUMJU5@?G&"
^XMB(3.9,23,2,4329,0)="""DATA"",396.18,198,3,669,0)"
^XMB(3.9,23,2,4330,0)="M!K1@6!L#OXBY59H/6W.\!O=;D-350M(-T),K>^]IAKB65""AC-1$C#0UXA78*"
^XMB(3.9,23,2,4331,0)="""DATA"",396.18,198,3,670,0)"
^XMB(3.9,23,2,4332,0)="M,M[9EK_'[RJ`#292B^)V#0E5,&0UP9!1!.,D/3""$U4#I#KAJ(.$L#'$M*%*F"
^XMB(3.9,23,2,4333,0)="""DATA"",396.18,198,3,671,0)"
^XMB(3.9,23,2,4334,0)="M:D%/5`MZI:R.H!Z\GU*4695Q"":JT2U""E7()ZFDM0)5Q""EZ<+W8Z$2U!E7$*7"
^XMB(3.9,23,2,4335,0)="""DATA"",396.18,198,3,672,0)"
^XMB(3.9,23,2,4336,0)="MJPS=CJ`R=#M-HC+_BXVFOU_^7EZ\)'./GJ8=\.3W&*!MM@""E37SZ@#\+&QI7"
^XMB(3.9,23,2,4337,0)="""DATA"",396.18,198,3,673,0)"
^XMB(3.9,23,2,4338,0)="MF!7Z\>PKRP!K4M4+ZQ$VBXQT588L#7`FSX'EAP^^8Z&?'CS+#VSD^<BU`FOW"
^XMB(3.9,23,2,4339,0)="""DATA"",396.18,198,3,674,0)"
^XMB(3.9,23,2,4340,0)="M,XWAOD#<8O3$)6:D$CN1&9;T^AVV]'HRTNLK""3*&SS3XWEH7%E%""D.VE#0$O"
^XMB(3.9,23,2,4341,0)="""DATA"",396.18,198,3,675,0)"
^XMB(3.9,23,2,4342,0)="MK8MZ:9TM@4&J/PO?#FPWI(V.P5<553&$Y3#(5$6<+DLK#*96J/4E13-G]7$Z"
^XMB(3.9,23,2,4343,0)="""DATA"",396.18,198,3,676,0)"
^XMB(3.9,23,2,4344,0)="M!;O3$Y2BKO`-;J#5LD9T.?9X<@1P,GV3(N;""%""""E`GF$CJ!<5*Y<^ET)L21T"
^XMB(3.9,23,2,4345,0)="""DATA"",396.18,198,3,677,0)"
^XMB(3.9,23,2,4346,0)="M^>JEJ_S%4HDR4RHJ))5WU1)''-J(UCB2KHF`%E.6V8;H`CL$['B3+<K""AIW]"
^XMB(3.9,23,2,4347,0)="""DATA"",396.18,198,3,678,0)"
^XMB(3.9,23,2,4348,0)="M9.T=UR)_D:W&T-MX.PSFXTZYQ%/?H;45A':TK;C:V[M=NQ#YG%2T29=*7I1)"
^XMB(3.9,23,2,4349,0)="""DATA"",396.18,198,3,679,0)"
^XMB(3.9,23,2,4350,0)="M%X\B+A[E+R2>!O6FS;S3[Q3OU$\CJ=&MZ_G[J/`$GEMK4QW@2SOB7KZ?A5!%"
^XMB(3.9,23,2,4351,0)="""DATA"",396.18,198,3,680,0)"
^XMB(3.9,23,2,4352,0)="MRFR<S+E_(`HFDO!%2WOC^=L`__>+8S^BZGO2BJYB<>59?:&0%VW?/J./H^4<"
^XMB(3.9,23,2,4353,0)="""DATA"",396.18,198,3,681,0)"
^XMB(3.9,23,2,4354,0)="MW1[#J-S`^F(Y.\)]JU;O38H,>C$^PCG!,WYSY^S(9G[$VZ,51/OZ',PE391C"
^XMB(3.9,23,2,4355,0)="""DATA"",396.18,198,3,682,0)"
^XMB(3.9,23,2,4356,0)="MG2RXSL6[!!?:F06H94Q<890;;,[Q*']%06KG%J0&""3(VL`0TKH=)R2=%,:6I"
^XMB(3.9,23,2,4357,0)="""DATA"",396.18,198,3,683,0)"
^XMB(3.9,23,2,4358,0)="MDULDF0#7*FX`""ET6A:R2,N577NVR=?[7-[0BM_5GK['9H7?$[/;'($2WJ?D1"
^XMB(3.9,23,2,4359,0)="""DATA"",396.18,198,3,684,0)"
^XMB(3.9,23,2,4360,0)="M&C:>`>RD:""8D13AQJ<W!\\-BG0RAF.I-<_T1D8CVC212MJ/@FXJ&F;7YAD/:"
^XMB(3.9,23,2,4361,0)="""DATA"",396.18,198,3,685,0)"
^XMB(3.9,23,2,4362,0)="MV)E]9WD#?.>T,D5+0R*@.!H,:_B5U[6:K]KLFYVI(''5T;^W_6?&%G9]OR`O"
^XMB(3.9,23,2,4363,0)="""DATA"",396.18,198,3,686,0)"
^XMB(3.9,23,2,4364,0)="M7R9%@((-ATD4>,$O4$_*'9,NB!+`D8XPA4A6J`J:E%77*QTS5LY=A,VJ_Z9%"
^XMB(3.9,23,2,4365,0)="""DATA"",396.18,198,3,687,0)"
^XMB(3.9,23,2,4366,0)="M[]7*3$6K\TL]05,6)YGUNL4)[X+:\K-WC*TAKW5\2%^38'SG;:*H'1M!5K8("
^XMB(3.9,23,2,4367,0)="""DATA"",396.18,198,3,688,0)"
^XMB(3.9,23,2,4368,0)="MCR')C*CM&3D7P*-:>_2ZQLC6""FTQFHI^-J*QS5L!7J1@$PJ?#]'*)(A-B<]-"
^XMB(3.9,23,2,4369,0)="""DATA"",396.18,198,3,689,0)"
^XMB(3.9,23,2,4370,0)="MACGQ`A=9(6T5@M.>U9/B,:4/\]5BNA[-T.AZ@F;S\6@]G5__`T4.JZX*Y<+3"
^XMB(3.9,23,2,4371,0)="""DATA"",396.18,198,3,690,0)"
^XMB(3.9,23,2,4372,0)="MR6AMED&+`UB&79JCU?P:S9=H_7EAHOD[M+I9OC>7G^L(LM$H8^`LMBI5L;FW"
^XMB(3.9,23,2,4373,0)="""DATA"",396.18,198,3,691,0)"
^XMB(3.9,23,2,4374,0)="M+<L@(M#/AILJ&FD'0+=""J!&<%52I;Q2]>KRI:I_IC``QH''*O\O(;MP_7>_1"
^XMB(3.9,23,2,4375,0)="""DATA"",396.18,198,3,692,0)"
^XMB(3.9,23,2,4376,0)="M;7$+O]6N1,=0;1@*EDXC""56;#TIA+[J\W,3'""B_8Q_\4NH/+;(V-06WEHXUH"
^XMB(3.9,23,2,4377,0)="""DATA"",396.18,198,3,693,0)"
^XMB(3.9,23,2,4378,0)="M;NL<N#(#:(`,<@8I9`R8E^:;;N@[F(R%PQ9K2\Y&AU[DP%(CF%_//J-'4E6_"
^XMB(3.9,23,2,4379,0)="""DATA"",396.18,198,3,694,0)"
^XMB(3.9,23,2,4380,0)="MBJO2G0`=?-S<WK8H4Q\TI^;Y.8:15$?5M]]X!]L5.;4&G8%@YFC6OG7<6_7G"
^XMB(3.9,23,2,4381,0)="""DATA"",396.18,198,3,695,0)"
^XMB(3.9,23,2,4382,0)="MK&H]>JBCL0(13332T9L%.IIPH$,Y.QA;[%7-X0R8L<UI1ZW$3WDQ%*8CX@=8"
^XMB(3.9,23,2,4383,0)="""DATA"",396.18,198,3,696,0)"
^XMB(3.9,23,2,4384,0)="M/>><:I%02/U$?<Q_KFWOL+.""/>T]0T-5NH:J+`U2A6/Q'MC-RBFZ87:&CJN["
^XMB(3.9,23,2,4385,0)="""DATA"",396.18,198,3,697,0)"
^XMB(3.9,23,2,4386,0)="MJGB0WJ,H+^/05KT,]:(VZ15V!NHO==9+K?B28D(JXYU&?Z=VF*9WV@%+\;.="
^XMB(3.9,23,2,4387,0)="""DATA"",396.18,198,3,698,0)"
^XMB(3.9,23,2,4388,0)="M_`IFG:YQ>NUTY5`$!TM;N`,:Y:SKV_0`4+?/!HH'F`NBBV`15#""NL>@""9EKM"
^XMB(3.9,23,2,4389,0)="""DATA"",396.18,198,3,699,0)"
^XMB(3.9,23,2,4390,0)="M'&2A9<9I$-H)7:.-@W07K[U6X^'314""8]LT24;6+HK-UM8>%N/<_KYOTN;G;"
^XMB(3.9,23,2,4391,0)="""DATA"",396.18,198,3,700,0)"
^XMB(3.9,23,2,4392,0)="MJ:2FQ3TZ>U+N2N-M.!>G!SM7!WOCW#D;1)F""DUA!KZ;BN5<RT/;HDL2-6D.8"
^XMB(3.9,23,2,4393,0)="""DATA"",396.18,198,3,701,0)"
^XMB(3.9,23,2,4394,0)="M<$0*Y^CM!D+-?OQAX1V..RNTHZVY3T[XD(!%AV%+^W9OO2=%$EZ%<U$&[PQR"
^XMB(3.9,23,2,4395,0)="""DATA"",396.18,198,3,702,0)"
^XMB(3.9,23,2,4396,0)="M]2:8BB&EW-""34E4,66HFB$;Q.5K;I(=X-T??M]UP]UPYO-NF>&-B+88P;?#Q"
^XMB(3.9,23,2,4397,0)="""DATA"",396.18,198,3,703,0)"
^XMB(3.9,23,2,4398,0)="M:]1""0+J(Y*EH5$D\T&<DITX@NW'\S7$?A):[(6M`=XL<UPD=:X?VENO<V?A-"
^XMB(3.9,23,2,4399,0)="""DATA"",396.18,198,3,704,0)"
^XMB(3.9,23,2,4400,0)="M?&C:BX]O;YV`[,S3.$TN1@""W!IKQ_.G!BE:<$;/>D52K!0ZY>P8S98<</K3S"
^XMB(3.9,23,2,4401,0)="""DATA"",396.18,198,3,705,0)"
^XMB(3.9,23,2,4402,0)="M\3'RHQ/C^/\3G4&A;UOA'O\6R'&1K>>%()/:UHL+QNJ/(NY3.QJ=DK>C&W2B"
^XMB(3.9,23,2,4403,0)="""DATA"",396.18,198,3,706,0)"
^XMB(3.9,23,2,4404,0)="M\:=T_""+K>O8+((L2'6I>LP@E@(<QH.3=8CE_.S.ORLG%B@NA)PES1-4G2=:3"
^XMB(3.9,23,2,4405,0)="""DATA"",396.18,198,3,707,0)"
^XMB(3.9,23,2,4406,0)="MY""_GURMS7<^4&B<A'T^7XYNKU7IT/39744YV>CU=8R!TA6'?F?@-2=""N""-U*"
^XMB(3.9,23,2,4407,0)="""DATA"",396.18,198,3,708,0)"
^XMB(3.9,23,2,4408,0)="MVK1?RYK*49[?+%<F6DTQ9:AOL'TW)7:S7)K7:[1>FJ/U%?YM!1+3Z,10Z8=N"
^XMB(3.9,23,2,4409,0)="""DATA"",396.18,198,3,709,0)"
^XMB(3.9,23,2,4410,0)="M(#0+%.<UXQ$MS=6""2*:B54R""90&E&3^8]:Q>7#V9Z2MS,AWGJO*:2X/+9XG3"
^XMB(3.9,23,2,4411,0)="""DATA"",396.18,198,3,710,0)"
^XMB(3.9,23,2,4412,0)="MJ(2UEO(49V^^_F`N$97)$GI)UK(.GC[RX`X%#7\#`6JG""I""ZA9*A;L)6]U2V"
^XMB(3.9,23,2,4413,0)="""DATA"",396.18,198,3,711,0)"
^XMB(3.9,23,2,4414,0)="M,HL!&.LR&;NHI<*5YLQ,S-5X.5T0_2+^NN9S@)TG!?2A$'/L>;B)LDTG)C+?"
^XMB(3.9,23,2,4415,0)="""DATA"",396.18,198,3,712,0)"
^XMB(3.9,23,2,4416,0)="MO3/'ZY4`NVSZ@L(]5;9OR7R1LPT(E#G:`$N#YBR-)I,I&6L\5X[G5\""D4L1?"
^XMB(3.9,23,2,4417,0)="""DATA"",396.18,198,3,713,0)"
^XMB(3.9,23,2,4418,0)="MV""M$)1'5]@I[<8LA0/$L&Y+)ZJBV<BO]!.8:O&549#%>0WU1*\[,8J(X2U!-"
^XMB(3.9,23,2,4419,0)="""DATA"",396.18,198,3,714,0)"
^XMB(3.9,23,2,4420,0)="M$AB4=V!(0`73.&""Q8Q7`EP'R,#)G9BZX""MYG@]AWVM3KUKE-ZHDR>`]U0'W3"
^XMB(3.9,23,2,4421,0)="""DATA"",396.18,198,3,715,0)"
^XMB(3.9,23,2,4422,0)="MI[[1Z#O*FD9_U87U:?E4S/%2;L)#W,4-+64(''XN_=1,LWZQ'BW;KC#>L;<1"
^XMB(3.9,23,2,4423,0)="""DATA"",396.18,198,3,716,0)"
^XMB(3.9,23,2,4424,0)="M&&H@,K1""_5;823Q!%6NB::(KUU]_:[1N90TQY.;X`YUF*<4$1*<A)*64&#1_"
^XMB(3.9,23,2,4425,0)="""DATA"",396.18,198,3,717,0)"
^XMB(3.9,23,2,4426,0)="M4M,,8KT'ATY""ST]0D""9Z<D$K2U'RE[!E29H6NX'&;4`U*/Z,E""=/A$""S<:YF"
^XMB(3.9,23,2,4427,0)="""DATA"",396.18,198,3,718,0)"
^XMB(3.9,23,2,4428,0)="M/F2O#LT+=YC[_""KEZ,P%<'`C%T#AXB*:=@&7%PF4':BTRXNX_%25DLU0%9JN"
^XMB(3.9,23,2,4429,0)="""DATA"",396.18,198,3,719,0)"
^XMB(3.9,23,2,4430,0)="M:HQ2`849`:5E-&];U9K5<KX(K,;)6H]H%3V%I%!##,7L3D,4</:&APRQL6ER"
^XMB(3.9,23,2,4431,0)="""DATA"",396.18,198,3,720,0)"
^XMB(3.9,23,2,4432,0)="MV""AZ50+(BY-(QOK!^D(N5?&CK+3CWI&S2O$UH(?DE)CC.L$#J;3<$+U`X8,3"
^XMB(3.9,23,2,4433,0)="""DATA"",396.18,198,3,721,0)"
^XMB(3.9,23,2,4434,0)="M%`'3HNP8+JW)+IPD8Y8QP7<[5S>1XL)PZKVN/?Z659>_957?""5.D\8);;""74"
^XMB(3.9,23,2,4435,0)="""DATA"",396.18,198,3,722,0)"
^XMB(3.9,23,2,4436,0)="M8&9CF):^5X^G91WDG3L#T>*00A2OR/60XG<[*`+7O:CB=SM(7.V@B-SVHHJ>"
^XMB(3.9,23,2,4437,0)="""DATA"",396.18,198,3,723,0)"
^XMB(3.9,23,2,4438,0)="M(%>9.[#E#<3+RP@)[<HV*,85H)H8`'A0(!G$/E]+^TVT7Y/&VUC[2>\8:MIO"
^XMB(3.9,23,2,4439,0)="""DATA"",396.18,198,3,724,0)"
^XMB(3.9,23,2,4440,0)="MK/[""B$7T7Y/0?^[=)IHFKO^:C/[SKS:I!Y^(OGYEZ']71O\U<?W7@""H""%'4Y"
^XMB(3.9,23,2,4441,0)="""DATA"",396.18,198,3,725,0)"
^XMB(3.9,23,2,4442,0)="MWQR##,'@*^R@B2'TI/$V-@1P8+/N-;4"",:S<^N&N3AEP@10'M1JD5@62%$:S"
^XMB(3.9,23,2,4443,0)="""DATA"",396.18,198,3,726,0)"
^XMB(3.9,23,2,4444,0)="MBC)C=@2&N\%H]V6Q4L:ZW&'R-UH\/`?1^383!T=U""""BOV&EO6(>+@&]V,*Z("
^XMB(3.9,23,2,4445,0)="""DATA"",396.18,198,3,727,0)"
^XMB(3.9,23,2,4446,0)="M2'`J37#R-;J\>(&NU$18!I]LY_XA))E:-_H""B2B""XFH0RJUJ]+*1%*3+!P'N"
^XMB(3.9,23,2,4447,0)="""DATA"",396.18,198,3,728,0)"
^XMB(3.9,23,2,4448,0)="M""J'AX@!&SKBGBH%!9+G+P[J`9EX0G*OW4*G:""9VG5KZ=J^_OXVLA&RM'HY&G"
^XMB(3.9,23,2,4449,0)="""DATA"",396.18,198,3,729,0)"
^XMB(3.9,23,2,4450,0)="M]ZK!P/,+_W@R:%'V'<K=YRN'J'Q$=4-,/$*J(7;K'OFT5/QMJH!;X!\[19WK"
^XMB(3.9,23,2,4451,0)="""DATA"",396.18,198,3,730,0)"
^XMB(3.9,23,2,4452,0)="M]35&;2'D98%S6W""=8+UIO]84^,I8J6%T#UVIA*U<]Q>W@>KBTB^""M<O'I^'8"
^XMB(3.9,23,2,4453,0)="""DATA"",396.18,198,3,731,0)"
^XMB(3.9,23,2,4454,0)="M(LK3\+1N4LS'X3_@\YN%PJ>X]LR-+Z%!Y)_-YGBPDBMIK$WH?,&O;#Z+9?L8"
^XMB(3.9,23,2,4455,0)="""DATA"",396.18,198,3,732,0)"
^XMB(3.9,23,2,4456,0)="M-.%T0CZ04F8HYA0=@R/F9FLYN^<""3_\'\E1T7),G>CW6Y`EV=MD0EWU&Z?-M"
^XMB(3.9,23,2,4457,0)="""DATA"",396.18,198,3,733,0)"
^XMB(3.9,23,2,4458,0)="MD^GH_?5\-5V1\Y[F>CJ?S=]_)IO:8%E644'*^Z30#66=2BJ-RD7]6;++'E.G"
^XMB(3.9,23,2,4459,0)="""DATA"",396.18,198,3,734,0)"
^XMB(3.9,23,2,4460,0)="M8A;8^T\OM#%.XF7]`0MH/+^.MZT1_N.MN5JC=&M]@D8K""JM]@\%JO;@CO1HA"
^XMB(3.9,23,2,4461,0)="""DATA"",396.18,198,3,735,0)"
^XMB(3.9,23,2,4462,0)="MO3VXPC62XCH90LS<:CZ>CM:8ST_3]0<4]28;>+CP3JVS7>86W(;GLA27'R`L"
^XMB(3.9,23,2,4463,0)="""DATA"",396.18,198,3,736,0)"
^XMB(3.9,23,2,4464,0)="MPYO5S6B&YN/QS0(XR`R["":K*)>!=D=(.L<&>3%>CM]/9=/WYU0I-KQ:CF.N<"
^XMB(3.9,23,2,4465,0)="""DATA"",396.18,198,3,737,0)"
^XMB(3.9,23,2,4466,0)="M7W(.>[R>?L0:8<(E<5W90H^D7>\LO5B:JYO9>GK]'GV:+_\)FS-,4+`BI<.L"
^XMB(3.9,23,2,4467,0)="""DATA"",396.18,198,3,738,0)"
^XMB(3.9,23,2,4468,0)="M_^#R%]<?954T@J(M4:8P*L7&:&DBPDFIH`<_2`66J^ID-)U]IC+&G#3HKK+Z"
^XMB(3.9,23,2,4469,0)="""DATA"",396.18,198,3,739,0)"
^XMB(3.9,23,2,4470,0)="M^;FLV;KYR*/QA_F2S9^JR`YY[=MW9^%T]6&^6&`=9?*JGLBK=AY>S=_-Y7C*"
^XMB(3.9,23,2,4471,0)="""DATA"",396.18,198,3,740,0)"
^XMB(3.9,23,2,4472,0)="M+BE5M1-Y/8\'0ZO%?+EF:T#W-$YU_3R<+LTQJ9JK30!L:M)R/8]/1>OEZ*,Y"
^XMB(3.9,23,2,4473,0)="""DATA"",396.18,198,3,741,0)"
^XMB(3.9,23,2,4474,0)="MXREL[S1FM<YYF'UGFA,.JU52TG(USL/JVQ&>=#E2-4YD=7`>5B?8M:YXO`Y."
^XMB(3.9,23,2,4475,0)="""DATA"",396.18,198,3,742,0)"
^XMB(3.9,23,2,4476,0)="MY+5_)G6=3V?FFL=L_T1FS^0)WB_G\RL>KWJ34,5H8Y,U5\V'/*V@C6(6(""))"
^XMB(3.9,23,2,4477,0)="""DATA"",396.18,198,3,743,0)"
^XMB(3.9,23,2,4478,0)="M""8BQHYW(CE#UK,9FJ;J7H]>NV2G1/%_QK%[+&M/+9\O?&1<JH&4F8*HQ6L""L"
^XMB(3.9,23,2,4479,0)="""DATA"",396.18,198,3,744,0)"
^XMB(3.9,23,2,4480,0)="M,1U-9D/P(\/@VF1(37FIE)+<]'W?X``,""C=S7VS@/1+J&TI]*$EM%0I$6=$K"
^XMB(3.9,23,2,4481,0)="""DATA"",396.18,198,3,745,0)"
^XMB(3.9,23,2,4482,0)="M^+UUP8:B695""31+[\\P!NTBS%CG*P6N2\%U)^)XDO""X)WY>$'TC""&W+P.+J0"
^XMB(3.9,23,2,4483,0)="""DATA"",396.18,198,3,746,0)"
^XMB(3.9,23,2,4484,0)="M@M?!_L*[@@:E&HCZ0>\&JD[]WO?IN+0SXNJ>$5?OC+CT,^+JGQ'7X(RXC//A"
^XMB(3.9,23,2,4485,0)="""DATA"",396.18,198,3,747,0)"
^XMB(3.9,23,2,4486,0)="M*GSG_&1<^DFRCT.:?-.D`8KX4O*!-!):C4,]%U@\WJ""`=?&UBT57SKU+:@,L"
^XMB(3.9,23,2,4487,0)="""DATA"",396.18,198,3,748,0)"
^XMB(3.9,23,2,4488,0)="M-TSW=>IE_E#N#CH.`*7.V'<,=6HXE&$KVI!BGTRO!AI""W<""H201$*YJ,KPNI"
^XMB(3.9,23,2,4489,0)="""DATA"",396.18,198,3,749,0)"
^XMB(3.9,23,2,4490,0)="M*4DD25`<?,CXBTC""*'N""*#6=#YAD!?D(E2%3MJS0LB>[M4<MZ!@.A\C<'W;>"
^XMB(3.9,23,2,4491,0)="""DATA"",396.18,198,3,750,0)"
^XMB(3.9,23,2,4492,0)="M,ZE`0D/J3^DC#^E5:M&5P;48NG:YL-I1555GEW34D:NJT:O?_2&(O%YT6^AF"
^XMB(3.9,23,2,4493,0)="""DATA"",396.18,198,3,751,0)"
^XMB(3.9,23,2,4494,0)="MO-E:V.*(7V$RT-<J8N=*V.G6OECQ3AP\NZ!9JE'UX\5)P_0K@`J>C&SXH\0)"
^XMB(3.9,23,2,4495,0)="""DATA"",396.18,198,3,752,0)"
^XMB(3.9,23,2,4496,0)="M9'PSF*KF'IT""F*'LJ!R4R4<>5+6O""!+/ITP>\7RBID!F*QF,5BF<#PAYL""H;"
^XMB(3.9,23,2,4497,0)="""DATA"",396.18,198,3,753,0)"
^XMB(3.9,23,2,4498,0)="M-NO40(H#GE2%)0""H0H?Z.>:JU/0N#S0_)5F1A1@X>!$ZR,I@P,.=B03ZBE&Q"
^XMB(3.9,23,2,4499,0)="""DATA"",396.18,198,3,754,0)"
^XMB(3.9,23,2,4500,0)="M[JX&+R`SC4<=;""/>/8,KZ5P]""&Y)Z.*7(KZ.?*N?J(@(]R4@,Q;)""6@!'>;*"
^XMB(3.9,23,2,4501,0)="""DATA"",396.18,198,3,755,0)"
^XMB(3.9,23,2,4502,0)="M-G.^0RG?FUV&+^E.H]OA1+PI4[A:1TYYM8Z8O^4H2=GG""4%S5*KJQMDJU9<T"
^XMB(3.9,23,2,4503,0)="""DATA"",396.18,198,3,756,0)"
^XMB(3.9,23,2,4504,0)="MV;ZDFQ.?&_A=+S@YAO>L>GP^WHXD%]0!J&`5&""A5V/8-R8$ROMZ0-[3OZL=%"
^XMB(3.9,23,2,4505,0)="""DATA"",396.18,198,3,757,0)"
^XMB(3.9,23,2,4506,0)="MH`_G?).XC>F.7SS&U_88Q9G/EI[;_Y-BJ-.FX_^RB(SFZD]SR2_:(!,_-HOW"
^XMB(3.9,23,2,4507,0)="""DATA"",396.18,198,3,758,0)"
^XMB(3.9,23,2,4508,0)="M).;SKS9%?[,I]?*R2A:/U*ZO""%,]/>*B1QE9Y>?ITS5S=AZ^3,XOD_/+Y/PR"
^XMB(3.9,23,2,4509,0)="""DATA"",396.18,198,3,759,0)"
^XMB(3.9,23,2,4510,0)="M.;],SB^3\U]H<OY>$R[TW6RH5;9C<,=#WOEN20,H#4?IBBB3S#RZ40<L2U5`"
^XMB(3.9,23,2,4511,0)="""DATA"",396.18,198,3,760,0)"
^XMB(3.9,23,2,4512,0)="M6M];6*6!7]JAXW-3&-5/K[.#I$Z3G:>.W,X3=Y^$[H-#5I9/[W+P@KZ7J3.:"
^XMB(3.9,23,2,4513,0)="""DATA"",396.18,198,3,761,0)"
^XMB(3.9,23,2,4514,0)="M_-[+WW4?(=6VH8RR"">;:.U*Y=OZL\<WVK/CQQ-\_^H/LHIFR4!.WI<5A,[<G"
^XMB(3.9,23,2,4515,0)="""DATA"",396.18,198,3,762,0)"
^XMB(3.9,23,2,4516,0)="MK8$O^O>R6?OWV*P]R7-#Z9EF""%\,\,4`_VL,D&$]3&4#`FZ><F;W60ET1#;8"
^XMB(3.9,23,2,4517,0)="""DATA"",396.18,198,3,763,0)"
^XMB(3.9,23,2,4518,0)="M!<(W+OLR_)Q?<64YQ@),;H5$/QW2*ZF23W;]3.V%VNF*2K5W'JF>S""1;U#U)"
^XMB(3.9,23,2,4519,0)="""DATA"",396.18,198,3,764,0)"
^XMB(3.9,23,2,4520,0)="M4?=.%77PO'EPK-!W-B(=$5ZPZ>>6=G,^V0+7)06N`TY%1O+?C>GOHIK?T_64"
^XMB(3.9,23,2,4521,0)="""DATA"",396.18,198,3,765,0)"
^XMB(3.9,23,2,4522,0)="MG/V-:XM5FFARX9(FEW(QNL*EJ1TP4T9!*SRW\.@7Y#24$I-8@D&C'=3[JX8?"
^XMB(3.9,23,2,4523,0)="""DATA"",396.18,198,3,766,0)"
^XMB(3.9,23,2,4524,0)="M!JBJ`4^T(JK:/;?LH=SD5RG%+U\N5&(P/U8_38_59/W>SA=XR?*OHQV$T1WO"
^XMB(3.9,23,2,4525,0)="""DATA"",396.18,198,3,767,0)"
^XMB(3.9,23,2,4526,0)="M9&\=D<<'Y&>/-]$=C-OX(*\HF<3LH*\=I"">""L^O%%_$%XK<V""H[DLX<><MS-"
^XMB(3.9,23,2,4527,0)="""DATA"",396.18,198,3,768,0)"
^XMB(3.9,23,2,4528,0)="M[KBUD872Z69^<%S'<]NMU^GYX_R7UOK!1J^N+)=@6Y,1LT([>(6.H;-SPF=T"
^XMB(3.9,23,2,4529,0)="""DATA"",396.18,198,3,769,0)"
^XMB(3.9,23,2,4530,0)="MYQW=+<+_)G>*O9H?HBO""7Z';:""R0%4;/;SW\USZ]:BS8^+;MHHU%;BY'QP!+"
^XMB(3.9,23,2,4531,0)="""DATA"",396.18,198,3,770,0)"
^XMB(3.9,23,2,4532,0)="M`G-F;;=UKE""8$&VWTN[9^0509$BI,A\*B9,@BC""B^-S%F^R':!I:VO?'G>6C"
^XMB(3.9,23,2,4533,0)="""DATA"",396.18,198,3,771,0)"
^XMB(3.9,23,2,4534,0)="ML8=EEK]+'.[,""L+ET1TJJ7:;3TXX_R<FK=2=$N%N&DN?,->)E$M&OXH#GRG3"
^XMB(3.9,23,2,4535,0)="""DATA"",396.18,198,3,772,0)"
^XMB(3.9,23,2,4536,0)="MHQ7D""I4ITI4YP=3*V+J""V/:VCW42*TJJ3<QN*+5!P>09X)#:\LG'<AV""K0%L"
^XMB(3.9,23,2,4537,0)="""DATA"",396.18,198,3,773,0)"
^XMB(3.9,23,2,4538,0)="M\S^)0ME/Y/20#'<=+G?7\W6=P])M_KEUUY69Z#/6__QP?FC=MBF7`$2WD,7F"
^XMB(3.9,23,2,4539,0)="""DATA"",396.18,198,3,774,0)"
^XMB(3.9,23,2,4540,0)="MBRTDMJZO9(A<XR,0T4<'$LE%WQ;(+?*\8Q1;(Y+VO9DZLVQ#EM$*JPAC?+21"
^XMB(3.9,23,2,4541,0)="""DATA"",396.18,198,3,775,0)"
^XMB(3.9,23,2,4542,0)="M:W_!<K8"",K_<>7XLN?DAXY[P7L@C_QM02P,$%``""``@`>W<>-;&C:C@O#@``"
^XMB(3.9,23,2,4543,0)="""DATA"",396.18,198,3,776,0)"
^XMB(3.9,23,2,4544,0)="M?F$``!H```!#<F%N:6%L7TYE<G9E<U\Q,3,N<&YL+G)E<-4<VX[CMO5]@/D'"
^XMB(3.9,23,2,4545,0)="""DATA"",396.18,198,3,777,0)"
^XMB(3.9,23,2,4546,0)="M818%LD6#M43='&PWX$BT3:PDJB(ULTX1%`F2%@&ZF:!-@7Y^2<JR+8ND>+1-"
^XMB(3.9,23,2,4547,0)="""DATA"",396.18,198,3,778,0)"
^XMB(3.9,23,2,4548,0)="MT\Q+LC3)<^&Y4SP%JUO2<""PH:P+<E('ZE_I_\@'7M-'C]W=%AQN*JZ`AW1/A"
^XMB(3.9,23,2,4549,0)="""DATA"",396.18,198,3,779,0)"
^XMB(3.9,23,2,4550,0)="M]W=_]/B[OWO[EO6B[07;[=Z]""]Z\""5K6]FVP8UT=_/FTY5_:;W[\_N_1U[>S"
^XMB(3.9,23,2,4551,0)="""DATA"",396.18,198,3,780,0)"
^XMB(3.9,23,2,4552,0)="MW[ZE34F:T[]>O1JGU]]_?$DVZB]\]>IJO&B?Z^Z;[WYXV?_CY5\_#3/0XHQ("
^XMB(3.9,23,2,4553,0)="""DATA"",396.18,198,3,781,0)"
^XMB(3.9,23,2,4554,0)="MSKB_Z\@3)<\!VP4U*6DAZ>Q(P;K21:@-WVB""+?GNAY^3$9!A6&'X^T_[6X'("
^XMB(3.9,23,2,4555,0)="""DATA"",396.18,198,3,782,0)"
^XMB(3.9,23,2,4556,0)="MV[?SX7?O@!LA\T8(O-'_A#6-A.V'ETU,BL]WM""+!,^9?!%>$&Z?[\L`FM#=B"
^XMB(3.9,23,2,4557,0)="""DATA"",396.18,198,3,783,0)"
^XMB(3.9,23,2,4558,0)="M&#R3CBQ""1=XD3G6H8'4MIRBRU/)A0:P7&Q88@$C%)M)P7#0:-Z0*YRIM,P!Z"
^XMB(3.9,23,2,4559,0)="""DATA"",396.18,198,3,784,0)"
^XMB(3.9,23,2,4560,0)="M^FSV%;JD9F'RZI4G<:?9U^CK(8WYC4A,K<S]W<CX`^6""=<>9_MN1U"">""2\KV"
^XMB(3.9,23,2,4561,0)="""DATA"",396.18,198,3,785,0)"
^XMB(3.9,23,2,4562,0)="M'>O;T!?;V;*`\D`<Y'D'>,1""&:8#XRT5N*)?#9::=0'ONSWICE_.Y.*RG?FP"
^XMB(3.9,23,2,4563,0)="""DATA"",396.18,198,3,786,0)"
^XMB(3.9,23,2,4564,0)="M[(<06LUP/.=Q)I'E?5WC`4-<5;=8<NU0!CPIF0I8.A4PO:&W;+FD9<H""M.X@"
^XMB(3.9,23,2,4565,0)="""DATA"",396.18,198,3,787,0)"
^XMB(3.9,23,2,4566,0)="MD/4@1(?[&CN8CH!,3R$\SR5>XMB2/P05*RX^N\2""?,9?7_!;8G7NR^K4F]/1"
^XMB(3.9,23,2,4567,0)="""DATA"",396.18,198,3,788,0)"
^XMB(3.9,23,2,4568,0)="M.DY'5DXWA+45YK6#UQ%4P!-/9D_!I!)':?<5DH'H:ZE[M93Q?8,;\84=N=1A"
^XMB(3.9,23,2,4569,0)="""DATA"",396.18,198,3,789,0)"
^XMB(3.9,23,2,4570,0)="MCPU'JT1.QER%""$J*]PWCDBOJ/!6\I>-$WJ""D?1.*Y4IBU/9&6%=N74T'T1%M"
^XMB(3.9,23,2,4571,0)="""DATA"",396.18,198,3,790,0)"
^XMB(3.9,23,2,4572,0)="M3B)Z%LQAZXY@H=Q,\!EMBJHO:;,?+=AK=51>A$8;$*'IA:4G<J4\""8F8H""?A"
^XMB(3.9,23,2,4573,0)="""DATA"",396.18,198,3,791,0)"
^XMB(3.9,23,2,4574,0)="M$K2XH#:C/`5!0U=LU7`N-""OZ1G&>04$P.5&GQY2ZG!VW#!,J:0LD0P73,GH%"
^XMB(3.9,23,2,4575,0)="""DATA"",396.18,198,3,792,0)"
^XMB(3.9,23,2,4576,0)="MRBDVD;?!31;B<_,J]+6G16#U(WMD'\)X&K""/P\@\')F'0_/PQCB\U0G`#A<J"
^XMB(3.9,23,2,4577,0)="""DATA"",396.18,198,3,793,0)"
^XMB(3.9,23,2,4578,0)="MN^''NA6LYE]X&HGEK?DYM=)""4>B$2AZ4E`=2D4)T4O[X@17O@Q;3Q@HW-<)5"
^XMB(3.9,23,2,4579,0)="""DATA"",396.18,198,3,794,0)"
^XMB(3.9,23,2,4580,0)="M`""JRN[%!XX\.J4KM9'1T?S!O&/KKGL\)T>:)57TC5/2@:*\(Y\'I',0S%<7A"
^XMB(3.9,23,2,4581,0)="""DATA"",396.18,198,3,795,0)"
^XMB(3.9,23,2,4582,0)="MQ""?>*DD&DA*Z6!.&<-Y$;MY$<-XX9/V9X/>-XH<DO\4=KHXG`WWB3]WS0O(+"
^XMB(3.9,23,2,4583,0)="""DATA"",396.18,198,3,796,0)"
^XMB(3.9,23,2,4584,0)="MRI38R908SA3D9HK)L%UV85TE?;V<%_L&#M<K@EK./V@?(PX=PV*JO*8DYK(<"
^XMB(3.9,23,2,4585,0)="""DATA"",396.18,198,3,797,0)"
^XMB(3.9,23,2,4586,0)="M3JF.=<F3#&.%CDV*`WE6\EG2W8X6?26.9A9D<%#I#2C>2FGP@97""826WL)YE"
^XMB(3.9,23,2,4587,0)="""DATA"",396.18,198,3,798,0)"
^XMB(3.9,23,2,4588,0)="M%,^\*$O\)7X:'B?VT'HX2&4-7/%UXDWG^<23,2:90KD2E=PL*@F<I_D-3Z_A"
^XMB(3.9,23,2,4589,0)="""DATA"",396.18,198,3,799,0)"
^XMB(3.9,23,2,4590,0)="M&3F9^ZE)""E83'?X<""=2M3=8K>S'=Q!Y37!9ZR\9Y23::$C""P;%YL,>R?@[FG"
^XMB(3.9,23,2,4591,0)="""DATA"",396.18,198,3,800,0)"
^XMB(3.9,23,2,4592,0)="MSK$ATC/K'/;`^JJ4,9>_E<GAHK.]$1T-?C#V#OF!>WH=HT_T?B1O""9@Q`#<P"
^XMB(3.9,23,2,4593,0)="""DATA"",396.18,198,3,801,0)"
^XMB(3.9,23,2,4594,0)="M+PS!_-8^6Z8B!,!C@""=7`2]2#""X)+SK:CD'9$$I/X5Y+73X+F]'62^*V8`XH"
^XMB(3.9,23,2,4595,0)="""DATA"",396.18,198,3,802,0)"
^XMB(3.9,23,2,4596,0)="M[`CNM,`=Y/_H%,F;%UL8*Q(;*ZP8+'`E\>)*&,$%0\5>>YE0=8PV,IV4`?1U"
^XMB(3.9,23,2,4597,0)="""DATA"",396.18,198,3,803,0)"
^XMB(3.9,23,2,4598,0)="MK!XL2TD$8DV\L;'&@823-_%FL?9X?]<>9)2G:H_JXN6V\`@I<N2>69?*/6\B"
^XMB(3.9,23,2,4599,0)="""DATA"",396.18,198,3,804,0)"
^XMB(3.9,23,2,4600,0)="M=#T4SH?0?&@S&\IG(]G\_N7LQC.=>#VI:F'`Z;[A]W<^MQKSM%MM)$C=D@Z+"
^XMB(3.9,23,2,4601,0)="""DATA"",396.18,198,3,805,0)"
^XMB(3.9,23,2,4602,0)="M_J9,KG^7*W:`-%Z1T?85G^^D#O;;GSX""]AI2*L);*I%348[\SWS?$%;5T*?Q"
^XMB(3.9,23,2,4603,0)="""DATA"",396.18,198,3,806,0)"
^XMB(3.9,23,2,4604,0)="M6#%6!JW<FYN(UK'WF]M!M=?'CX>_08`I`3F069`__"":GTT;&PARP8:@3'/.&"
^XMB(3.9,23,2,4605,0)="""DATA"",396.18,198,3,807,0)"
^XMB(3.9,23,2,4606,0)="MRIRWK&]*[NG09B(U[""SC<]SLB:,XYPK,<Z/31)?=*\:YT3TJKO].U65DUD9*"
^XMB(3.9,23,2,4607,0)="""DATA"",396.18,198,3,808,0)"
^XMB(3.9,23,2,4608,0)="M58YYQ)Q4M""$P6/$%UM[FBF,P+$>I)@=6:J+<F+U&F7DX-0\GYF%S9AR9JT""1"
^XMB(3.9,23,2,4609,0)="""DATA"",396.18,198,3,809,0)"
^XMB(3.9,23,2,4610,0)="MN<80F:M`R#)LKN`@,TAD)@>9R4'#';/A!S,/8PLN6_.PF>.Y>>_<,MM,4&XF"
^XMB(3.9,23,2,4611,0)="""DATA"",396.18,198,3,810,0)"
^XMB(3.9,23,2,4612,0)="M*#>?3VYF5FX^G]QR$):S'\ITDZ\0@J?@0<B4@=3:%>NQAZD3`=Z8FPLU_S^L"
^XMB(3.9,23,2,4613,0)="""DATA"",396.18,198,3,811,0)"
^XMB(3.9,23,2,4614,0)="MM`AO9)8,FXJF8.TR""2_P6&$:$X.T,8*HM,U""P4Q1>""KM*I=^]9U,\/+7H&BD"
^XMB(3.9,23,2,4615,0)="""DATA"",396.18,198,3,812,0)"
^XMB(3.9,23,2,4616,0)="M8'YV*YBO)1,_!_T!,[K?A#U6:27,$;IVDZ$OD4E*:=M1AU66M=8R:.3**&T["
^XMB(3.9,23,2,4617,0)="""DATA"",396.18,198,3,813,0)"
^XMB(3.9,23,2,4618,0)="MNHO#402.-5PLE^$6>0_%$#EI1BMHCMTTQW"":'4*I+@.@""""9.DI,5)*=NDE,X"
^XMB(3.9,23,2,4619,0)="""DATA"",396.18,198,3,814,0)"
^XMB(3.9,23,2,4620,0)="MR0ZME8MH1V1J5!(HGIF3\FP%Y;F;<GBIZ]=P""*#0[Q1Q5#H&%ZPO#M!TP;'O"
^XMB(3.9,23,2,4621,0)="""DATA"",396.18,198,3,815,0)"
^XMB(3.9,23,2,4622,0)="M6LOEO/""+MO""#1>XK/[2!9TD.YJ^Q7,AIK=$*:XW<UAK!K;5+/%=8+N0TUFB%"
^XMB(3.9,23,2,4623,0)="""DATA"",396.18,198,3,816,0)"
^XMB(3.9,23,2,4624,0)="ML49N8XW@QMJEO^LM%W+:;+3""9B.WS4;P.[/?1F9U?W=5$@.>K6O?E98K=VIQ"
^XMB(3.9,23,2,4625,0)="""DATA"",396.18,198,3,817,0)"
^XMB(3.9,23,2,4626,0)="MOD*+<[<6YW`M=C%_C>7*G6J<KU#CW*W&.5R-7>*YPG+E3OW-5^AO[M;?'!YS"
^XMB(3.9,23,2,4627,0)="""DATA"",396.18,198,3,818,0)"
^XMB(3.9,23,2,4628,0)="MN?1WO>72N]HISU=0GKDIS\!?G%CJ36BHQ-=,J(^2?HED%A@:*GQV?5.,=R_*"
^XMB(3.9,23,2,4629,0)="""DATA"",396.18,198,3,819,0)"
^XMB(3.9,23,2,4630,0)="MDK%.`E>W4C7FG(CS324/Y)Q'JK^I.N""NM-[H7W:'QZHY%*'AVQ36DD;BM8Q2"
^XMB(3.9,23,2,4631,0)="""DATA"",396.18,198,3,820,0)"
^XMB(3.9,23,2,4632,0)="M#C_*K;5T>']7L*XA^O'`KB(?;H\*2/L8<FJE,/M0^/US?`X[[=O.[\P\RM*9"
^XMB(3.9,23,2,4633,0)="""DATA"",396.18,198,3,821,0)"
^XMB(3.9,23,2,4634,0)="MV5-FD>,B""KENJ73\8*I_968/GL6NS10S[;_FAAKG!QH\\%:K'BX*PG7%""5#J"
^XMB(3.9,23,2,4635,0)="""DATA"",396.18,198,3,822,0)"
^XMB(3.9,23,2,4636,0)="M7%7Q_*6X*#K<DJ]HST^Z,K<B:VY]-&3,CW5-1'=T7/E`5'^./A8=:P_._>'!"
^XMB(3.9,23,2,4637,0)="""DATA"",396.18,198,3,823,0)"
^XMB(3.9,23,2,4638,0)="MI(O3ET].#EV_#[""Z"".)""W292+G!3`*^4])YN3<[@05.&EC4Y0V#[]HMI%Y>6"
^XMB(3.9,23,2,4639,0)="""DATA"",396.18,198,3,824,0)"
^XMB(3.9,23,2,4640,0)="MNF%2]FC)I.46C)968?Q$L=SZBN5VK5CF?F()K\ZXV""\3BD9]&U)^ND3&RQ()"
^XMB(3.9,23,2,4641,0)="""DATA"",396.18,198,3,825,0)"
^XMB(3.9,23,2,4642,0)="M#VDU[DL2F:SP+8DY5D[,O$K,V41B5OC$G'+%%C=ON3@T(QB;,8DM($.+PTO-"
^XMB(3.9,23,2,4643,0)="""DATA"",396.18,198,3,826,0)"
^XMB(3.9,23,2,4644,0)="MVZ1F@E)S]2LQ$Y282W.)>9/8G&K'YH.(D>GJD$J_>OJ8>O""FP;([A9FP7T%<"
^XMB(3.9,23,2,4645,0)="""DATA"",396.18,198,3,827,0)"
^XMB(3.9,23,2,4646,0)="M;/QRB(OII&V,C.W\A8F7MP#8Y'_(6*YS%?5T>XR_SY_)DP_Z^QCU.R1A`<:R"
^XMB(3.9,23,2,4647,0)="""DATA"",396.18,198,3,828,0)"
^XMB(3.9,23,2,4648,0)="M#D+9$^G4L\C1""P`_`@D7[6,<@NUC''G$WA$\I'=(!SF2QXX]!Q7=J40-B""]:"
^XMB(3.9,23,2,4649,0)="""DATA"",396.18,198,3,829,0)"
^XMB(3.9,23,2,4650,0)="MY@*""<R'VX`+\G8#-!""=7I;/@N:/-^PK.B&29$0F<$:D'(^""!K<WFZ'<4-5U!"
^XMB(3.9,23,2,4651,0)="""DATA"",396.18,198,3,830,0)"
^XMB(3.9,23,2,4652,0)="M?;9,/?R;KCCWH!X>/]D,\78(Z_7[""D&(.`""Q74[&XRV8!XE',IYLX#R([):^"
^XMB(3.9,23,2,4653,0)="""DATA"",396.18,198,3,831,0)"
^XMB(3.9,23,2,4654,0)="M[7<[_;JK%T-IE0-17K:,""=PR)AZ6,8%;1I=K+RK&%2.DA>3J""[ZUH72R;""03"
^XMB(3.9,23,2,4655,0)="""DATA"",396.18,198,3,832,0)"
^XMB(3.9,23,2,4656,0)="MN)%,/(QD`C>2KLAH)_U$`S8.R;)I3.""F,?$PC0G<-%IB8$O$G)HCHU1_EGM4"
^XMB(3.9,23,2,4657,0)="""DATA"",396.18,198,3,833,0)"
^XMB(3.9,23,2,4658,0)="M-SQ%+V4&2-FR(4E6W"":GX=6S$N.N*5PK4P_SE&Y6(!LM(@O7=5LVI!/GX3T%"
^XMB(3.9,23,2,4659,0)="""DATA"",396.18,198,3,834,0)"
^XMB(3.9,23,2,4660,0)="MD/KE'#F%Y\BI1]4F=33R<54E]""?OY_=]ZDMI73+'7#V,;_3S=-P(R776!=$;"
^XMB(3.9,23,2,4661,0)="""DATA"",396.18,198,3,835,0)"
^XMB(3.9,23,2,4662,0)="MI']DS;XGKCXF&^^&.F.&;\X1L]110(J1ZT=7\?.4--^6;F6.*564[143((DF"
^XMB(3.9,23,2,4663,0)="""DATA"",396.18,198,3,836,0)"
^XMB(3.9,23,2,4664,0)="M*-V<(Z*8KSD:-*RK)6#:!+AMI?@IQ^)@LS.;<(*=-O$82E(N0-%:0.J(L(0Q"
^XMB(3.9,23,2,4665,0)="""DATA"",396.18,198,3,837,0)"
^XMB(3.9,23,2,4666,0)="M0-IA7J@WJD.S&1?`%25()2JM=,_G6Y^!I_(?;<=$UZN\TEQ=2N'`=%S<$E(<"
^XMB(3.9,23,2,4667,0)="""DATA"",396.18,198,3,838,0)"
^XMB(3.9,23,2,4668,0)="MS%O"";ZVR?,F^9;E_3ZQQB=D;Y1:79AF>ZN;EF9;%`YK#A30QZ!S]$#QH=9,"""
^XMB(3.9,23,2,4669,0)="""DATA"",396.18,198,3,839,0)"
^XMB(3.9,23,2,4670,0)="MB+MCLR>X>M#7=#>Z&3P\X7W/09<H_X6BD(N6/=Z?KNP""J-=9#G]2^$/FU""/\"
^XMB(3.9,23,2,4671,0)="""DATA"",396.18,198,3,840,0)"
^XMB(3.9,23,2,4672,0)="M25>\]-7'3""KR=*[<M+C""@W?@^*C""X0=\>%""]#XY8!X,^KX!7=*?0<H@?93(J"
^XMB(3.9,23,2,4673,0)="""DATA"",396.18,198,3,841,0)"
^XMB(3.9,23,2,4674,0)="MCBKX/CU^-Q,*5\!T40%3^,6O5JDG1@O+><#O8K/-HIV`LU8;A/+(VX9@W<-#"
^XMB(3.9,23,2,4675,0)="""DATA"",396.18,198,3,842,0)"
^XMB(3.9,23,2,4676,0)="M=+2\:2UTF0O&>;N(\]81,;@<3!@N1B_2)YS""E]`W?`F]D;FVL_BQ9#5I`IDJ"
^XMB(3.9,23,2,4677,0)="""DATA"",396.18,198,3,843,0)"
^XMB(3.9,23,2,4678,0)="MJVY)YA=G6>@;INE'NNGT:>O2F][4]:97S\@@;?GT5>WPE%8]^:0[6LA8,#B_"
^XMB(3.9,23,2,4679,0)="""DATA"",396.18,198,3,844,0)"
^XMB(3.9,23,2,4680,0)="M?+VBU-J)4&_C\9Q6O=$=^W>Z:8A#""`TZQ))Y>E\)+1LUY06I*MP0UDNY45`7"
^XMB(3.9,23,2,4681,0)="""DATA"",396.18,198,3,845,0)"
^XMB(3.9,23,2,4682,0)="MT(]#%U>GHI.L;""28#*\L531650-69Z2'_END'`5:U='ECRWKA$.(3P45-]//"
^XMB(3.9,23,2,4683,0)="""DATA"",396.18,198,3,846,0)"
^XMB(3.9,23,2,4684,0)="MW<2NWB\OOD:T-X6-HO1K_XZ6T2:*D*LIK)JPC8>[@[JMV%'WYCJW>O2_""8CM"
^XMB(3.9,23,2,4685,0)="""DATA"",396.18,198,3,847,0)"
^XMB(3.9,23,2,4686,0)="ML'O>2T%F1=&W>*9AZ:RIYK`.%@W/Z9$&ZTE]@X2;H.B[3BZKCL%`(BF_M/<-"
^XMB(3.9,23,2,4687,0)="""DATA"",396.18,198,3,848,0)"
^XMB(3.9,23,2,4688,0)="M'3;P?QP_(JS,[PF0C=3<3""K`E;Q\_/;E\>7?:IFVRF/_ELO130WB9+Z_2[E>"
^XMB(3.9,23,2,4689,0)="""DATA"",396.18,198,3,849,0)"
^XMB(3.9,23,2,4690,0)="MIAOC]=TY,!EI]`$9K0.IN^716OL:H<I?=?#,NO<*#14)Z3YR8?1YS1IQ""%KE"
^XMB(3.9,23,2,4691,0)="""DATA"",396.18,198,3,850,0)"
^XMB(3.9,23,2,4692,0)="M=TH[#OZ?ZX\'HI\4%+CGY_:1!EQD_FC!XW+>&O;\P)V/$LQJ%%V<Q$6V+BU9"
^XMB(3.9,23,2,4693,0)="""DATA"",396.18,198,3,851,0)"
^XMB(3.9,23,2,4694,0)="MI>>066Q02K,K0_P]T>&%'M(X*F/FH7-1]BDZMYGJ7$?49Z.+BN9?0U<]D*/-"
^XMB(3.9,23,2,4695,0)="""DATA"",396.18,198,3,852,0)"
^XMB(3.9,23,2,4696,0)="M9F#%V%)P@#+O4WB>""VF+],,_?[X6>BT!,R"".[DC7Z^%""EUQ:'+\Y.W^953]6"
^XMB(3.9,23,2,4697,0)="""DATA"",396.18,198,3,853,0)"
^XMB(3.9,23,2,4698,0)="MY*:7ADVL$CA0G<_S8W&@6+?=`\%+X?#0I4_C`G=M0-&GR""B:RFC?C/X@>.Q%"
^XMB(3.9,23,2,4699,0)="""DATA"",396.18,198,3,854,0)"
^XMB(3.9,23,2,4700,0)="MT##A*[9HA6';#(;%9$M'1!S6=.,V&V:G-#Q())BKML-[^J0""9VD:;L`M.2CC"
^XMB(3.9,23,2,4701,0)="""DATA"",396.18,198,3,855,0)"
^XMB(3.9,23,2,4702,0)="MN\59QP1K<#)%R[MCUVGR;3=ELMN10N@OBB>6<&BL2J6/QX6@3U108N\/I/=>"
^XMB(3.9,23,2,4703,0)="""DATA"",396.18,198,3,856,0)"
^XMB(3.9,23,2,4704,0)="M""N-!S;43SY[A:NIB_I""#\@>54DNI917;'Y>2!'=;M:F@;T%1]O4RW1<8GQNV"
^XMB(3.9,23,2,4705,0)="""DATA"",396.18,198,3,857,0)"
^XMB(3.9,23,2,4706,0)="MLY8V2N`[\J=>!MU*NVS*I;M(_0=02P$""%@L4``(`""`![=QXU9S6D>6HT``!<"
^XMB(3.9,23,2,4707,0)="""DATA"",396.18,198,3,858,0)"
^XMB(3.9,23,2,4708,0)="M-0$`%@`````````!`""``@($`````0W)A;FEA;%].97)V97-?,3$S+G!N;%!+"
^XMB(3.9,23,2,4709,0)="""DATA"",396.18,198,3,859,0)"
^XMB(3.9,23,2,4710,0)="M`0(6""Q0``@`(`'UW'C4Z:S\$ICH``.@^`@`:``````````$`(`""`@9XT``!#"
^XMB(3.9,23,2,4711,0)="""DATA"",396.18,198,3,860,0)"
^XMB(3.9,23,2,4712,0)="M<F%N:6%L7TYE<G9E<U\Q,3,N<&YL+F9R;5!+`0(6""Q0``@`(`'MW'C5\=8[U"
^XMB(3.9,23,2,4713,0)="""DATA"",396.18,198,3,861,0)"
^XMB(3.9,23,2,4714,0)="M1!@``/+#```:``````````$`(`""`@7QO``!#<F%N:6%L7TYE<G9E<U\Q,3,N"
^XMB(3.9,23,2,4715,0)="""DATA"",396.18,198,3,862,0)"
^XMB(3.9,23,2,4716,0)="M<&YL+F-D95!+`0(6""Q0``@`(`'MW'C6QHVHX+PX``'YA```:``````````$`"
^XMB(3.9,23,2,4717,0)="""DATA"",396.18,198,3,863,0)"
^XMB(3.9,23,2,4718,0)="M(`""`@?B'``!#<F%N:6%L7TYE<G9E<U\Q,3,N<&YL+G)E<%!+!08`````!``$"
^XMB(3.9,23,2,4719,0)="""DATA"",396.18,198,3,864,0)"
^XMB(3.9,23,2,4720,0)="+`!P!``!?E@``````"
^XMB(3.9,23,2,4721,0)="""DATA"",396.18,198,3,865,0)"
^XMB(3.9,23,2,4722,0)="end"
^XMB(3.9,23,2,4723,0)="""DATA"",396.18,198,4)"
^XMB(3.9,23,2,4724,0)="9^2538986788"
^XMB(3.9,23,2,4725,0)="""DATA"",396.18,198,6)"
^XMB(3.9,23,2,4726,0)="1^611"
^XMB(3.9,23,2,4727,0)="""DATA"",396.18,202,0)"
^XMB(3.9,23,2,4728,0)="GYNECOLOGICAL CONDITIONS AND DISORDERS OF THE BREAST~113F"
^XMB(3.9,23,2,4729,0)="""DATA"",396.18,202,1,0)"
^XMB(3.9,23,2,4730,0)="^^2^2^3060831"
^XMB(3.9,23,2,4731,0)="""DATA"",396.18,202,1,1,0)"
^XMB(3.9,23,2,4732,0)="Last updated on 07/05/2006"
^XMB(3.9,23,2,4733,0)="""DATA"",396.18,202,1,2,0)"
^XMB(3.9,23,2,4734,0)="Patch DVBA*2.7*113"
^XMB(3.9,23,2,4735,0)="""DATA"",396.18,202,2)"
^XMB(3.9,23,2,4736,0)="3060512^^3060705.164"
^XMB(3.9,23,2,4737,0)="""DATA"",396.18,202,3,0)"
^XMB(3.9,23,2,4738,0)="^396.184^1100^1100^3060831^^^^"
^XMB(3.9,23,2,4739,0)="""DATA"",396.18,202,3,1,0)"
^XMB(3.9,23,2,4740,0)="begin 664 Gyn_Breast_113.pnl.zip"
^XMB(3.9,23,2,4741,0)="""DATA"",396.18,202,3,2,0)"
^XMB(3.9,23,2,4742,0)="M4$L#!!0``@`(`-Q3'S6.J!]!94(``*F;`0`2````1WEN7T)R96%S=%\Q,3,N"
^XMB(3.9,23,2,4743,0)="""DATA"",396.18,202,3,3,0)"
^XMB(3.9,23,2,4744,0)="M<&YLW%U[;!S'>;\'N;PC*5$2J:>K:/6J)5M6[L6[(^/8%1^2Z)`B39ZDNH%K"
^XMB(3.9,23,2,4745,0)="""DATA"",396.18,202,3,4,0)"
^XMB(3.9,23,2,4746,0)="MS^W-D5ON[9[W0>D0Q'&3HK7[0E$TB(NT==-'^DC=)^(T;0H4"".I_6A1(BQ0M"
^XMB(3.9,23,2,4747,0)="""DATA"",396.18,202,3,5,0)"
^XMB(3.9,23,2,4748,0)="MVJ!%D01(""S0PFB!_%$4[,SN[.[,[]Y)LB<=_)-X^OIG?-]_WS?=],]]L9>UJ"
^XMB(3.9,23,2,4749,0)="""DATA"",396.18,202,3,6,0)"
^XMB(3.9,23,2,4750,0)="M1JJL`1UJ!^\V\7]SP(+SAFZ;AC:T#.MV(I:L&,W$@>';:LW>2GXG(5V'ZN:6"
^XMB(3.9,23,2,4751,0)="""DATA"",396.18,202,3,7,0)"
^XMB(3.9,23,2,4752,0)="MG?SC^.@<W(':JF-#<T2J[MPP='@8O6K9)E!UV[J\`N[ZSTZ%;GC4^!=4O<T+"
^XMB(3.9,23,2,4753,0)="""DATA"",396.18,202,3,8,0)"
^XMB(3.9,23,2,4754,0)="MJNZ]D%XSFDYS!>K.R-0*NGO5,!N7[_H7LZD*J*Z:-6@F8K%8A<!;!E6H39!_"
^XMB(3.9,23,2,4755,0)="""DATA"",396.18,202,3,9,0)"
^XMB(3.9,23,2,4756,0)="M*ZTF7*WC=PBX9/G_""+J4BR[Q*`67V#<R#YJV:NC2\,KB^K5%CM08^1<365K@"
^XMB(3.9,23,2,4757,0)="""DATA"",396.18,202,3,10,0)"
^XMB(3.9,23,2,4758,0)="MR!RC9(Y&R22O/7?#(T+8/8HNO$#^RKM\'B(DABF?O^7S^9?C0]<1$Z3AM=6U"
^XMB(3.9,23,2,4759,0)="""DATA"",396.18,202,3,11,0)"
^XMB(3.9,23,2,4760,0)="MFVLNSY=T'?$\5=U9!ZH%:V-S!D:\8;<TB*Y:&ZJ^J<'A>4,ST%.*MJ%J.]`<"
^XMB(3.9,23,2,4761,0)="""DATA"",396.18,202,3,12,0)"
^XMB(3.9,23,2,4762,0)="MOXJ&]?+\%C`M:(],+""Q>O7)SN?+""_/4KZQN+E5'W+GEE1-'F-*!LCY%K%,MW"
^XMB(3.9,23,2,4763,0)="""DATA"",396.18,202,3,13,0)"
^XMB(3.9,23,2,4764,0)="MT^37#=""`TKZ5#7D#Z):\`4VU[KY*6A^+C:X!$^HVOI1BQX+R;AS#)G]EIW,N"
^XMB(3.9,23,2,4765,0)="""DATA"",396.18,202,3,14,0)"
^XMB(3.9,23,2,4766,0)="M\Z;B[!@D/Q/SN'?`Y]YA]-;[YTP(+'M67E#!IFY8JG6?@/Z[)T!2W9HSM!J'"
^XMB(3.9,23,2,4767,0)="""DATA"",396.18,202,3,15,0)"
^XMB(3.9,23,2,4768,0)="M2X`FEW.',?D5@B9IQ*DL;'MH3OAH+CTFKYG00HTYU89JR[8A@UI-1M1-%5KX"
^XMB(3.9,23,2,4769,0)="""DATA"",396.18,202,3,16,0)"
^XMB(3.9,23,2,4770,0)="MI[T%T<U&`YBMU&TTMK=-T$S'8B.5.<>V#9TTZ_Z9+;K-&FZS5CPLR8<""29[7"
^XMB(3.9,23,2,4771,0)="""DATA"",396.18,202,3,17,0)"
^XMB(3.9,23,2,4772,0)="M(#""#,8F/K.KSFJILCTS>=8E=@TBL5(5<%+=6<EO30R`_Y+5VTF]-<L$%S26Z"
^XMB(3.9,23,2,4773,0)="""DATA"",396.18,202,3,18,0)"
^XMB(3.9,23,2,4774,0)="M-#=:V5""0T='FC+O[<8O^KZRK'Q*1DO=1*?E'7S^NQ2=O0=.FCP/S\CK0-V'R"
^XMB(3.9,23,2,4775,0)="""DATA"",396.18,202,3,19,0)"
^XMB(3.9,23,2,4776,0)="M2XDC_.6*B00`*49Z](IC&^YUD82.!6/JHDVD""=BU!`5;BVKWU)5:3<5_`4U6"
^XMB(3.9,23,2,4777,0)="""DATA"",396.18,202,3,20,0)"
^XMB(3.9,23,2,4778,0)="MC$8##:4U*Z""8=T4^,4ZP/$L)9J,$1WTAGWWP:NMW?#1@!=OO'!V#]7A4MG]R"
^XMB(3.9,23,2,4779,0)="""DATA"",396.18,202,3,21,0)"
^XMB(3.9,23,2,4780,0)="M25<TIP;EF@=`-NJ()[K+'TNV(/Z!!)O(.5)I&W-+!GI-KJ,1,>Y@7?!X""9I-"
^XMB(3.9,23,2,4781,0)="""DATA"",396.18,202,3,22,0)"
^XMB(3.9,23,2,4782,0)="MTVB:*K""A#.^""AJH#?$=&5VU#,31+5NNR#A7%LBA%8%E8LY`""-5C-B8YM@4&4"
^XMB(3.9,23,2,4783,0)="""DATA"",396.18,202,3,23,0)"
^XMB(3.9,23,2,4784,0)="M?#5&(9V/1\?BZ373J&JP<<&Z*-=-HT&TTX0O.=""R49_-!F[44'`G:_(=U=Y"""
^XMB(3.9,23,2,4785,0)="""DATA"",396.18,202,3,24,0)"
^XMB(3.9,23,2,4786,0)="M#R#8M7?)3-W/`#)XIUV\8V0$ARC<;\:B<-^_`36HN""-BN08*`F4+\QQS(<("""
^XMB(3.9,23,2,4787,0)="""DATA"",396.18,202,3,25,0)"
^XMB(3.9,23,2,4788,0)="M`9M9(Y]GV_6\B%\1M'OF`IY1Y=QTIG11-DQ9K2$X:EU%3*VVR.A?[MS43,8U"
^XMB(3.9,23,2,4789,0)="""DATA"",396.18,202,3,26,0)"
^XMB(3.9,23,2,4790,0)="M3J_'N9DT[0_IHWY;OXZ:DDTD2_JFW'3,IH&$YA(""U#1,<HT`I@.(VO?%ES!%"
^XMB(3.9,23,2,4791,0)="""DATA"",396.18,202,3,27,0)"
^XMB(3.9,23,2,4792,0)="MM2T9UNN(1UB:FP#1@5I+1D..)!'ZDHCXM8,PH%<X,:ZI%JBJFFHC3#M`<UR!"
^XMB(3.9,23,2,4793,0)="""DATA"",396.18,202,3,28,0)"
^XMB(3.9,23,2,4794,0)="M1F+D-NHWU0ULE@-;IJ8$1/DZB;$N7IF_'DCDK)`BG8Y_UZ5XG;+OV[&HDG\8"
^XMB(3.9,23,2,4795,0)="""DATA"",396.18,202,3,29,0)"
^XMB(3.9,23,2,4796,0)="MNU&RJN-A4K8,Q"",B$*K-BL<9JC;RLFK99]`E@&3*A%V4I1OL/-?);=K)3XOD"
^XMB(3.9,23,2,4797,0)="""DATA"",396.18,202,3,30,0)"
^XMB(3.9,23,2,4798,0)="M:;7I6I%+W@2+>8R8ZTER&S84V!:2'_<LPY<%?%A>0H.EX%'%@#V90/:.E1]L"
^XMB(3.9,23,2,4799,0)="""DATA"",396.18,202,3,31,0)"
^XMB(3.9,23,2,4800,0)="M`1&G%,5I`L^L(2FJ`14)#5!L=0>--^P*?)KKUANT6XFS4>`C[LQ[64BFR(I-"
^XMB(3.9,23,2,4801,0)="""DATA"",396.18,202,3,32,0)"
^XMB(3.9,23,2,4802,0)="M0""8=)9,HB""F4.`H?[T0A+Z90YD1WNP.!G)C`#$=@J0.!+""$0<KBIZ4\1`'_D"
^XMB(3.9,23,2,4803,0)="""DATA"",396.18,202,3,33,0)"
^XMB(3.9,23,2,4804,0)="M#;#NV8GDS\7#KC/CQ0A,J]N=Q`3I39J2FQ3,)+,+T%),M0KEQ4!6L.AXJH($"
^XMB(3.9,23,2,4805,0)="""DATA"",396.18,202,3,34,0)"
^XMB(3.9,23,2,4806,0)="M9945E""N^>.R*221?9""?--SW.'1-`?<J':B""`IFRIFSHRY@I`<[VO*&&U\-'."
^XMB(3.9,23,2,4807,0)="""DATA"",396.18,202,3,35,0)"
^XMB(3.9,23,2,4808,0)="MCBSJ`'&D)O)%7/%)[&/]P40]VH7#+I/Y9F8%!*DX_6*,\S""_(%#XN=O8BD%V"
^XMB(3.9,23,2,4809,0)="""DATA"",396.18,202,3,36,0)"
^XMB(3.9,23,2,4810,0)="M\(CQ\DVZVFB""<)-MD'5V3W(LR.<IR)THR&/KT'(T,FG=,<SMP+8Q'$Q5L`E&"
^XMB(3.9,23,2,4811,0)="""DATA"",396.18,202,3,37,0)"
^XMB(3.9,23,2,4812,0)="MGK2K0^[?6=:C>X)B_E$?\^,TZ,QF<MGR_L6[-M1KL.:Z!JD')(Q+:#[Q`._#"
^XMB(3.9,23,2,4813,0)="""DATA"",396.18,202,3,38,0)"
^XMB(3.9,23,2,4814,0)="M/RQTRT10K;ATY(8A;S`R115*FA1='+]AH!^-IF:T8*UMA""KFTS3+I^T(GV8]"
^XMB(3.9,23,2,4815,0)="""DATA"",396.18,202,3,39,0)"
^XMB(3.9,23,2,4816,0)="M/F4S,R6?Y[N08<>O6%@'T:Q;4Q%;,`?DFH-%4II$/CN.K=$]&Y@U54=.C'0X"
^XMB(3.9,23,2,4817,0)="""DATA"",396.18,202,3,40,0)"
^XMB(3.9,23,2,4818,0)="MN`BJ%GH:0M5J2,.K6)UC8RM8Z%QT:3%#XVT82N?7UUUMFZ$<?=OGJ!9PM%3>"
^XMB(3.9,23,2,4819,0)="""DATA"",396.18,202,3,41,0)"
^XMB(3.9,23,2,4820,0)="MS1P=6X$-`_EZFH'8=70!>NQ""+IR""8WFB_-*1)9UU_ZIP""^RHABD=6S.0/T)<"
^XMB(3.9,23,2,4821,0)="""DATA"",396.18,202,3,42,0)"
^XMB(3.9,23,2,4822,0)="M(0VY4C8TL9%`$9)T>@$-D*H@!K=H2(2U6\79,(<^<BAHK6&XID<ZP5P#NH.H"
^XMB(3.9,23,2,4823,0)="""DATA"",396.18,202,3,43,0)"
^XMB(3.9,23,2,4824,0)="MUB#BF8GO>;Z8Y;I<FEHG%@/[(0HPS1;Z(4TRS9K8@<$7#VXT(22^C'=/.G0="
^XMB(3.9,23,2,4825,0)="""DATA"",396.18,202,3,44,0)"
^XMB(3.9,23,2,4826,0)="M`LP!]MK!6ZJ%W5CFTL0RXCDVD99-XC9I\C8$VUBTL!]61\S9=*!T-N@T@@?U"
^XMB(3.9,23,2,4827,0)="""DATA"",396.18,202,3,45,0)"
^XMB(3.9,23,2,4828,0)="M37MK5G::331CH,Z;L(%[+WP(L85[:.HFZA1VO54=#0""""!]$H2(>N0H7PE[DV"
^XMB(3.9,23,2,4829,0)="""DATA"",396.18,202,3,46,0)"
^XMB(3.9,23,2,4830,0)="MM`947=JWH%IUU`?T.L3BUK-<(TLQ7,%#3R80_$<VPTZ+?^%-BS=]A^+M&""/3"
^XMB(3.9,23,2,4831,0)="""DATA"",396.18,202,3,47,0)"
^XMB(3.9,23,2,4832,0)="M,[Y,WZ<,?X>1X;%YPS%5Q)`;\`XGP?N6L3H'0AOCS-^HGQZQ1D8M""R=,D.74"
^XMB(3.9,23,2,4833,0)="""DATA"",396.18,202,3,48,0)"
^XMB(3.9,23,2,4834,0)="M`K#)F,!_HJYH*\X[4(L].5!)@5N182>[$4KN:$>O(N1PXY_-P(ER+""+_(1=["
^XMB(3.9,23,2,4835,0)="""DATA"",396.18,202,3,49,0)"
^XMB(3.9,23,2,4836,0)="M=G=$XM1_.4BX]PQ-H26_*@AA,B$G""OH.31N`4;>)R5!F,FRB^23U*9Z-1L>7"
^XMB(3.9,23,2,4837,0)="""DATA"",396.18,202,3,50,0)"
^XMB(3.9,23,2,4838,0)="MKIB$P29D735QDT\_A*PRXSA-5.;7;J^L@YIJ7#,-ISF%X?*7<M33N<G!7O5@"
^XMB(3.9,23,2,4839,0)="""DATA"",396.18,202,3,51,0)"
^XMB(3.9,23,2,4840,0)="M@\#1R11&-[:,.VXR/37^C&/9:KU%K'YJ!/^W!FI,4GID?LLP6:8_&%:$IZ$A"
^XMB(3.9,23,2,4841,0)="""DATA"",396.18,202,3,52,0)"
^XMB(3.9,23,2,4842,0)="MO.XB#:VH6DU*K1BHZVB>D:0-B-0.2JDU$_VAVU:L[2S=""P]I;N""78MV9.-,7"
^XMB(3.9,23,2,4843,0)="""DATA"",396.18,202,3,53,0)"
^XMB(3.9,23,2,4844,0)="M$]/HX683(1EL-B9Z8R/-7OQG=S9F,_VQ<?$N-!75@H/-QF1O;""RP>?E/Q#I)"
^XMB(3.9,23,2,4845,0)="""DATA"",396.18,202,3,54,0)"
^XMB(3.9,23,2,4846,0)="MXW1_*KV!,X`#KM)#/3&Q6&3,8B<F(I>EU!<3Q]:)NT:B[8%FY'!OTCC-VL;."
^XMB(3.9,23,2,4847,0)="""DATA"",396.18,202,3,55,0)"
^XMB(3.9,23,2,4848,0)="MXIC-]<7)T8H)=J`V\-91ZHF1U`VDUK&+7I?[8F3J*H2U@6?C2&_R.,-:QV]U"
^XMB(3.9,23,2,4849,0)="""DATA"",396.18,202,3,56,0)"
^XMB(3.9,23,2,4850,0)="MY&*Q/R[.`7MKX+F8ZHV+9=8\=N9B?^8QO8#7_@>>C3TZWR7..';D8S;;IW$T"
^XMB(3.9,23,2,4851,0)="""DATA"",396.18,202,3,57,0)"
^XMB(3.9,23,2,4852,0)="M5`W:`\_(T=X86>2,8V>!S/<GD*@!HS'P?!SS\C)I+R]##>$!PK'GO$#[G)]7"
^XMB(3.9,23,2,4853,0)="""DATA"",396.18,202,3,58,0)"
^XMB(3.9,23,2,4854,0)="M>(QQ<8J#E)49[TEDLEEF(DC,4X'Y`0]]P4-?*N1[$ICP<""6?@Y:4N&'$N""1Z"
^XMB(3.9,23,2,4855,0)="""DATA"",396.18,202,3,59,0)"
^XMB(3.9,23,2,4856,0)="M>!#8?1:)%^D8/.^/P6F_%_E\>0!8CP""F*_-&HVK,&7?W$:;3'^P6F>0G8Q&D"
^XMB(3.9,23,2,4857,0)="""DATA"",396.18,202,3,60,0)"
^XMB(3.9,23,2,4858,0)="MASVDY5QYADLL,]%XF,>8H8)]6-XR[EJ""L!72L?VPU]9Q7[D/+N(5;W8IGO%O"
^XMB(3.9,23,2,4859,0)="""DATA"",396.18,202,3,61,0)"
^XMB(3.9,23,2,4860,0)="MN^S(""HUDGETV_6&Z&RKY>6\C5N(Y'V`IFQ^`H1QB>#L6\):Z\X>[;W$;GM<,"
^XMB(3.9,23,2,4861,0)="""DATA"",396.18,202,3,62,0)"
^XMB(3.9,23,2,4862,0)="M""S+1:Q=^LML_Q_QL:I8NA_^LFQ28I'Q]S<^FOK@7-H#&HXG0$M68'^2V?WY5"
^XMB(3.9,23,2,4863,0)="""DATA"",396.18,202,3,63,0)"
^XMB(3.9,23,2,4864,0)="ML/WSY+66[F__1-/`I@YTI25?1])LF*V'OPV4P425Y##!=(;*SDO1U.Z1&TZC"
^XMB(3.9,23,2,4865,0)="""DATA"",396.18,202,3,64,0)"
^XMB(3.9,23,2,4866,0)="MBF3:J,M-""@@G<$4D""RS)%4I2Z4A24W>@7%5->TN4$V9H3[.T6^V[>S2@W5`M"
^XMB(3.9,23,2,4867,0)="""DATA"",396.18,202,3,65,0)"
^XMB(3.9,23,2,4868,0)="MO&:D@DW8A7B)(9[\K.>Q5`7;)P/JH(JW8!EZ9])EEB?)(4]'MP2;``+2\T]8"
^XMB(3.9,23,2,4869,0)="""DATA"",396.18,202,3,66,0)"
^XMB(3.9,23,2,4870,0)="M4.F!-LL3)(Y4+E\5Y.=/!L1WP*:JDS4WS'M3[<(;3^F_'.,1G(PV(I&5J<[4"
^XMB(3.9,23,2,4871,0)="""DATA"",396.18,202,3,67,0)"
^XMB(3.9,23,2,4872,0)="M9CAJ7I_OD5H^RU'[[+U08W;KE/,L.5_([I5:@:.V<I_4ICEJ9_JA)IB6O0R&"
^XMB(3.9,23,2,4873,0)="""DATA"",396.18,202,3,68,0)"
^XMB(3.9,23,2,4874,0)="MNY,D68C,'7+;N6.\R]P1.!W[6:>#RA%58&]C[NNQB--1RI>*;9R.B!\>STCQ"
^XMB(3.9,23,2,4875,0)="""DATA"",396.18,202,3,69,0)"
^XMB(3.9,23,2,4876,0)="MK!3/2?&\%""](\6DI7I3B)2E>EN(S4B*;\59+VW=KAM6AMV*=^E4,%OG;=%!Z"
^XMB(3.9,23,2,4877,0)="""DATA"",396.18,202,3,70,0)"
^XMB(3.9,23,2,4878,0)="M]SN8R[`=G(QW9%RF6P='NW>P:X>R[$`^W[$_N6[]2;P'#,NQ#'NUXXB6""MTZ"
^XMB(3.9,23,2,4879,0)="""DATA"",396.18,202,3,71,0)"
^XMB(3.9,23,2,4880,0)="M./0>=)""=>9-?[]S!KB*7NH\.AG8'3)<X&^,-[6_['3O.=""P_8)L#PECY:<T7"
^XMB(3.9,23,2,4881,0)="""DATA"",396.18,202,3,72,0)"
^XMB(3.9,23,2,4882,0)="M$S'8Z4$"".QP%R\^Z7^\,=J""V?:0C8(L93HIS';&6!@EK/(J5=X#>ZCBPQ8$:"
^XMB(3.9,23,2,4883,0)="""DATA"",396.18,202,3,73,0)"
^XMB(3.9,23,2,4884,0)="MV)&H%!<YL/Y4*![9[""""!'6L;<M/(Y`21Y3Q%?-PO*?N7V!Z(N`4[U8O48GW:"
^XMB(3.9,23,2,4885,0)="""DATA"",396.18,202,3,74,0)"
^XMB(3.9,23,2,4886,0)="M56*)`O^&(.1^'QMRKT""R^1""%-QNM1M,V&M:NBKFI+W>)@#K;/LR<#'!8%(>P"
^XMB(3.9,23,2,4887,0)="""DATA"",396.18,202,3,75,0)"
^XMB(3.9,23,2,4888,0)="M2(]RZ<]C'$%;$!6'-[F[5+M$""71I*?E-5^/^P(NOYKT&3K6-$KK74*ZNTVVV"
^XMB(3.9,23,2,4889,0)="""DATA"",396.18,202,3,76,0)"
^XMB(3.9,23,2,4890,0)="MQ#GR?Q59%E&!3WS4:_`E7\.1CH=WVG;<`SMUI5K#:P<X\D4MX8HMG'1T!4<F"
^XMB(3.9,23,2,4891,0)="""DATA"",396.18,202,3,77,0)"
^XMB(3.9,23,2,4892,0)="M=$RRG5BZ`1P+`BEU""SUNDZVEBPW#*YG<PB6;EC2Q!K4=59'KCJ:1MX[,DSNX"
^XMB(3.9,23,2,4893,0)="""DATA"",396.18,202,3,78,0)"
^XMB(3.9,23,2,4894,0)="MU*AJW(&:O`6JJFT)=VON=Z4$)[(QFE0J^""L(=<9Q_RMJT]?3VZI>,^ZDE@U]"
^XMB(3.9,23,2,4895,0)="""DATA"",396.18,202,3,79,0)"
^XMB(3.9,23,2,4896,0)="MDR1'(_;16WCYLQAG+!Z/BYA7&+"")3VP>:95J\A47\@<HY/_Q,Y)?V`OV,2G("
^XMB(3.9,23,2,4897,0)="""DATA"",396.18,202,3,80,0)"
^XMB(3.9,23,2,4898,0)="M!]`""E^27.`.9^$C4/A[@["".P=E4Q>C;/37!>C<REJ`5++QM*J""Z&(>-M^_M5"
^XMB(3.9,23,2,4899,0)="""DATA"",396.18,202,3,81,0)"
^XMB(3.9,23,2,4900,0)="MKC(FT124H80LH>:1[6P*BS2;\_>N*?R)B""E\W[MA""B<X4T@KYBEO:.5+HN6U"
^XMB(3.9,23,2,4901,0)="""DATA"",396.18,202,3,82,0)"
^XMB(3.9,23,2,4902,0)="MN!%X.YEL7[9P%).5C1U@MJ2Q=?P,_9$F-VRG""J51]SKY>]]-&YJ.)2N&V70>"
^XMB(3.9,23,2,4903,0)="""DATA"",396.18,202,3,83,0)"
^XMB(3.9,23,2,4904,0)="MJ$WSQ)R.JU?]\U1<Q(3<GK!IWJX8G2!^G"")N^28MM1<6689$.DSS(K.<R_=="
^XMB(3.9,23,2,4905,0)="""DATA"",396.18,202,3,84,0)"
^XMB(3.9,23,2,4906,0)="M@<MWFC5IMV@^&U=50'D9@FVP""7>5C?,JVGD;=RMJFPX1);;)NHB+0[C,PIF%"
^XMB(3.9,23,2,4907,0)="""DATA"",396.18,202,3,85,0)"
^XMB(3.9,23,2,4908,0)="M.Y3<]2BY""=[4=;%P7D;DDZZ%^^<'8N%R+)3+=,CG?.V^ZFMWKMR?B3LX#Q!F"
^XMB(3.9,23,2,4909,0)="""DATA"",396.18,202,3,86,0)"
^XMB(3.9,23,2,4910,0)="M9+9(\;]JPIKTP77W+PN7B1EF%7.Z`7#=D>_8X2(E4E$`=+D@VVH#/8PK?&J@"
^XMB(3.9,23,2,4911,0)="""DATA"",396.18,202,3,87,0)"
^XMB(3.9,23,2,4912,0)="M)3W9R^LY7,$=>E-.I]/24[V\K;D'0J#&<SR)M&=SWRLSFV7&(?GCL<A`+#,#"
^XMB(3.9,23,2,4913,0)="""DATA"",396.18,202,3,88,0)"
^XMB(3.9,23,2,4914,0)="ML4?,+)W0_]:=63Y*(:=\._MJSZZCJR>)W6]UAP7&*4,7*#.$#:.4#;\AL+I'"
^XMB(3.9,23,2,4915,0)="""DATA"",396.18,202,3,89,0)"
^XMB(3.9,23,2,4916,0)="MN;5M-_[!!6J[RM9FJ*V]Q2V330O.K;E*3@71E=:LT!P6Z'K5BX10);P^=J*M"
^XMB(3.9,23,2,4917,0)="""DATA"",396.18,202,3,90,0)"
^XMB(3.9,23,2,4918,0)="M,8SWO#[&;<J98?N="":<&@B6!7'ZFU]6QT55%`18)7*44A6M+H_.DP-`Q'""O6"
^XMB(3.9,23,2,4919,0)="""DATA"",396.18,202,3,91,0)"
^XMB(3.9,23,2,4920,0)="M-NW$^2#+7O6\GW;ZS;T05DF""%?4BM\-E@@+_GD`;3H723D83.-8NS3N5:9#U"
^XMB(3.9,23,2,4921,0)="""DATA"",396.18,202,3,92,0)"
^XMB(3.9,23,2,4922,0)="M""$'U*!4N7;""]@0'2*?%4H'GG3\58BLG/""W8>G`W%6PU!""UW6JFEL]^^<I>YE"
^XMB(3.9,23,2,4923,0)="""DATA"",396.18,202,3,93,0)"
^XMB(3.9,23,2,4924,0)="MF],])Z$X?I7""FTV>#/(HQ4Q?7LG8=<.6ZQJPMJ`EC2^9IFK3\QBD""<^/K9DM"
^XMB(3.9,23,2,4925,0)="""DATA"",396.18,202,3,94,0)"
^XMB(3.9,23,2,4926,0)="MDE%ZD)FC$C><%'""R&A<AS@[P]!]4!E,?^DD""^!(%/.4;N._MO<E_)'J<""`VX"
^XMB(3.9,23,2,4927,0)="""DATA"",396.18,202,3,95,0)"
^XMB(3.9,23,2,4928,0)="M/D28L(\RX>5XU-@56&-7,8'3`-C115>A@KJ[B9F.+)^%CU4R3-E]\C[!OG/_"
^XMB(3.9,23,2,4929,0)="""DATA"",396.18,202,3,96,0)"
^XMB(3.9,23,2,4930,0)="M%C!`2IV<8VR>//FFP%R=QP=&7?*S0O0`)!OB(]5P]3;!_E#*LT7Y>;K4^6]N"
^XMB(3.9,23,2,4931,0)="""DATA"",396.18,202,3,97,0)"
^XMB(3.9,23,2,4932,0)="MR/;7L;!I#.?G'^J^RI[V\`9'%939(?-6<?_5=\]_/A:X1-G,8.S';I/$IK--"
^XMB(3.9,23,2,4933,0)="""DATA"",396.18,202,3,98,0)"
^XMB(3.9,23,2,4934,0)="MA2#](8KT+WVD;^P%9RLE.G&/AF!OQ+AC\'Y,X&U-L@;H*IK$'`WLJKACFL8="
^XMB(3.9,23,2,4935,0)="""DATA"",396.18,202,3,99,0)"
^XMB(3.9,23,2,4936,0)="M4P3*(U01%Z,&Y@`YD0Z9DKJ+0IC.SN=9Q?;()5\3&*Q3(?_*#I'O[%O1;;7)"
^XMB(3.9,23,2,4937,0)="""DATA"",396.18,202,3,100,0)"
^XMB(3.9,23,2,4938,0)="M+[H--<,&Y+W(^9183CU&H?V5#^TI)J,[T]\2WSIZQ/#VMU(&2.=NFM#>,L/7"
^XMB(3.9,23,2,4939,0)="""DATA"",396.18,202,3,101,0)"
^XMB(3.9,23,2,4940,0)="MY0N&CD_B@/C$H(O2Q79/-;#[U=281Q^@8U;@#'P79I7W1EZ&0GZ'7])[PC>'"
^XMB(3.9,23,2,4941,0)="""DATA"",396.18,202,3,102,0)"
^XMB(3.9,23,2,4942,0)="MO[\7S&$Z&E/10T'I^:/C%/=A@3=VGC6&<YI;,&S)<]""^`Z$NKZ$^&+6'%X!V"
^XMB(3.9,23,2,4943,0)="""DATA"",396.18,202,3,103,0)"
^XMB(3.9,23,2,4944,0)="M/""YNACLN[GR/^9DH&3IU_$*,HW-1L&Y(BO)0A""5.\^2I9[A-Z+P<MG^GW_W8"
^XMB(3.9,23,2,4945,0)="""DATA"",396.18,202,3,104,0)"
^XMB(3.9,23,2,4946,0)="MLLSU?#J\JO?!P*W)]6?^AI?Q=4E:0?+@-*0#UR'8:;G':""F:@4^<""ZX8CNU>"
^XMB(3.9,23,2,4947,0)="""DATA"",396.18,202,3,105,0)"
^XMB(3.9,23,2,4948,0)="M[""FC'._!<K5):Y78X8Z`9=):N7*O:2UI'?58:TGC07H+_?+DQ=9:[=-:5,4*"
^XMB(3.9,23,2,4949,0)="""DATA"",396.18,202,3,106,0)"
^XMB(3.9,23,2,4950,0)="MI#?[J8K]B!_UO1[?<U'?J""!Y0R7P/V+<*58_W<WMVG#,3;B[BI@*=`/4T^[Y"
^XMB(3.9,23,2,4951,0)="""DATA"",396.18,202,3,107,0)"
^XMB(3.9,23,2,4952,0)="MJN<Z'+)[.KP#""J$A8:M_LG>G2I,""-5N/<^V(_+&3&Q'""EFQ""!:H[L#;;P2[0"
^XMB(3.9,23,2,4953,0)="""DATA"",396.18,202,3,108,0)"
^XMB(3.9,23,2,4954,0)="M)9C'2`L%VL+_>BTDS\:#'$QYNB_#<+QBV*@_AM'$QT`A%ZG1DB_@QBY*)T2W"
^XMB(3.9,23,2,4955,0)="""DATA"",396.18,202,3,109,0)"
^XMB(3.9,23,2,4956,0)="MR,K_1>D1Q'M;;?/B]XEOTE>G-H""&CTKBWSD<NDH?/D;W8&E.H\F_<%QPQWMI"
^XMB(3.9,23,2,4957,0)="""DATA"",396.18,202,3,110,0)"
^XMB(3.9,23,2,4958,0)="M0VU@KZR![H=>$MRA+YU9,6KN.=TFJ)$QBKY^MN,SE-#Q];;OGUAO_]H4Q5-5"
^XMB(3.9,23,2,4959,0)="""DATA"",396.18,202,3,111,0)"
^XMB(3.9,23,2,4960,0)="MC:85L""5TE3X\N0Z;0""4E6TK+L@T%C31[D?""<7-Q?<:JH04W==`]R/#`/+:0V"
^XMB(3.9,23,2,4961,0)="""DATA"",396.18,202,3,112,0)"
^XMB(3.9,23,2,4962,0)="M0)=I&9DTNM(R&FYGI*EY:.Z0'BIFR[!<I98.N8*PA7,X=#2E\QM.U2:7+UA."
^XMB(3.9,23,2,4963,0)="""DATA"",396.18,202,3,113,0)"
^XMB(3.9,23,2,4964,0)="MTP0*??$B_]B4AYB[^B#3ESG.""G31G>*`N<FBCUM0[^>,6_E;]ZJW'H]:\/""G"
^XMB(3.9,23,2,4965,0)="""DATA"",396.18,202,3,114,0)"
^XMB(3.9,23,2,4966,0)="M-!+W\""D-&HP><%NK]E$K=F]UQG1;:^)C[-);,N-/T]-[80?,F""#LIZ4+B4>Y"
^XMB(3.9,23,2,4967,0)="""DATA"",396.18,202,3,115,0)"
^XMB(3.9,23,2,4968,0)="MJ%_TZ8.L/YNAJ%2M.4`CATOJT&AJP&KXI__[<Y`PS5""DBO,S_""[K84',<8;U"
^XMB(3.9,23,2,4969,0)="""DATA"",396.18,202,3,116,0)"
^XMB(3.9,23,2,4970,0)="M!/B\[PW:Z$-T#,)A<X[EHQ<U?\T/(?\NR!WF""]G!R!V*DC<S;*B,AJWW[=GQ"
^XMB(3.9,23,2,4971,0)="""DATA"",396.18,202,3,117,0)"
^XMB(3.9,23,2,4972,0)="M/A0S6#2A*=EUPM9G*%M/^WKYM;T0F8]'%P_HHO!G8MRQ^?_0K?S?6]!;4""T%"
^XMB(3.9,23,2,4973,0)="""DATA"",396.18,202,3,118,0)"
^XMB(3.9,23,2,4974,0)="M0=EEF]*\S:5'V0,>DY\0V)I'?%OCEXY[B,0Q-0VSDM]PY?)/(CO)3MZS7(;K"
^XMB(3.9,23,2,4975,0)="""DATA"",396.18,202,3,119,0)"
^XMB(3.9,23,2,4976,0)="MGW(L""&^OY'_Y]NOE0,]GR@.]1L""IWBH%NA7?4ZJW3Y17+[.?K)`B^W\#W7N,"
^XMB(3.9,23,2,4977,0)="""DATA"",396.18,202,3,120,0)"
^XMB(3.9,23,2,4978,0)="MU;TK5=TP&_B[%'[5QV+P5:;=M7)`O9U1[O""C#T3U<*SB%ZET/BL@3Y/ZO^<:"
^XMB(3.9,23,2,4979,0)="""DATA"",396.18,202,3,121,0)"
^XMB(3.9,23,2,4980,0)="MK#G*M-_IN#L#A2N6^R4E%&JI]5:O&^/IV1G)GW*5_7-]*/O0/2\AE-E4*?TX"
^XMB(3.9,23,2,4981,0)="""DATA"",396.18,202,3,122,0)"
^XMB(3.9,23,2,4982,0)="M6?)3/KXU)BO>_E,''6/F2;(3WCVZ_24'U$R`""$ZY>^)#5]U'W:/@PX^&KHYM"
^XMB(3.9,23,2,4983,0)="""DATA"",396.18,202,3,123,0)"
^XMB(3.9,23,2,4984,0)="MX#BJZ5151>X_-$KT$!KU<-J6ES3Y+?YL7_](IG,,]]H?2IL6G,]V8,FBIW$#"
^XMB(3.9,23,2,4985,0)="""DATA"",396.18,202,3,124,0)"
^XMB(3.9,23,2,4986,0)="M(D]/CZ"">.@W=BM;Y""X[DZNV`YVGJ(P^3SI^BG3<$G2\4^NK\E-_YH!BL/P#1"
^XMB(3.9,23,2,4987,0)="""DATA"",396.18,202,3,125,0)"
^XMB(3.9,23,2,4988,0)="MBGIOGQ351$]2/R>4U,*@';<O7K_A=M:<]KXPX#N)I_9""\+9?Y%#1L7Z;7\W^"
^XMB(3.9,23,2,4989,0)="""DATA"",396.18,202,3,126,0)"
^XMB(3.9,23,2,4990,0)="M&X&;>();P""'E@KMGVR`+*<].OMXW8V<$4Q/M_@7KHFBUQEOHIQ;G`B7TO*#P"
^XMB(3.9,23,2,4991,0)="""DATA"",396.18,202,3,127,0)"
^XMB(3.9,23,2,4992,0)="M=4$%IKD%@5SWEW\ZY66+>8[RLV%SP%3`DJ_TJDWZ%;O>J-.)=#O.]?MC4>HG"
^XMB(3.9,23,2,4993,0)="""DATA"",396.18,202,3,128,0)"
^XMB(3.9,23,2,4994,0)="M\-(S<C*J=#6NUP:*7`.>?7A+,%.?\]?#R$E<0-7KCD9K31O&#ODV2.>V2LQ@"
^XMB(3.9,23,2,4995,0)="""DATA"",396.18,202,3,129,0)"
^XMB(3.9,23,2,4996,0)="M)G_-FZ>7HDWM7VU7(RP0D1R'X"",=,O`RAZ`>^=S)@S[4DY?^7@XBIVN%1[B\"
^XMB(3.9,23,2,4997,0)="""DATA"",396.18,202,3,130,0)"
^XMB(3.9,23,2,4998,0)="MU""L^U%/^P:;98G]SSV3TXR_,U/-PSCCU)[BVA\&*BHBH.$ANKO""=6.^YPO0]"
^XMB(3.9,23,2,4999,0)="""DATA"",396.18,202,3,131,0)"
^XMB(3.9,23,2,5000,0)="M>X,9UDI1)47^:+1$,%<L]^4$ICQK)(VSUD.:""&F[='1-J(^6\*L^[V5FO-V1"
^XMB(3.9,23,2,5001,0)="""DATA"",396.18,202,3,132,0)"
^XMB(3.9,23,2,5002,0)="M0[P!]C;X?E%PY-!TINN10_%[*31HU[-IKF<O=NQ9J>_CI.ZG9[QM]GCV3\*>"
^XMB(3.9,23,2,5003,0)="""DATA"",396.18,202,3,133,0)"
^XMB(3.9,23,2,5004,0)="M%;OU+/EN]JS$]>S%3CW+9OH^X:J7GH4W:V;9N>4/O?JQ@G_B:I'1P8$ZAD8P"
^XMB(3.9,23,2,5005,0)="""DATA"",396.18,202,3,134,0)"
^XMB(3.9,23,2,5006,0)="M,TP*@A(7_@B!_THL(L1G*?Q</I?K+Z0Z%I2$NC.F5QCJ3P])GYV14ZK%YU/'"
^XMB(3.9,23,2,5007,0)="""DATA"",396.18,202,3,135,0)"
^XMB(3.9,23,2,5008,0)="M^OUNA.=DN:5R/K[$""R)XI;[@(;M7L_P236;.:PM*$'=);7>?Y%E%2;X6:ZLI"
^XMB(3.9,23,2,5009,0)="""DATA"",396.18,202,3,136,0)"
^XMB(3.9,23,2,5010,0)="MN.===7@DW)=#@:9XXR*=9ZZI^@[""H]OX8V_\S.""[<W:'ARSIW!HT+?>T$O+Q"
^XMB(3.9,23,2,5011,0)="""DATA"",396.18,202,3,137,0)"
^XMB(3.9,23,2,5012,0)="M/O*5NN86FDYP92N>4Y#TMM_N0OT5AZNNC?NAV%?V7I'#A,#OI=M=WHQQI_>*"
^XMB(3.9,23,2,5013,0)="""DATA"",396.18,202,3,138,0)"
^XMB(3.9,23,2,5014,0)="M*AR/L7'9$O,9PUUUB!""UM=_/[GQ+_JG@V^'?IM]'KQ)O2CXSYR![X)VP?087"
^XMB(3.9,23,2,5015,0)="""DATA"",396.18,202,3,139,0)"
^XMB(3.9,23,2,5016,0)="M<)""OW^!LC8:$S#WAEWY]4=&`VH""UT.?-:P[YGB+YI%V03D51WV6Y@K\OZWW8"
^XMB(3.9,23,2,5017,0)="""DATA"",396.18,202,3,140,0)"
^XMB(3.9,23,2,5018,0)="MCI""[HVH:?E27JZB)':!J6+OP""3GDH]L+AN)@*0\Z=(>X,Y=D@`C]/WO7'B/7"
^XMB(3.9,23,2,5019,0)="""DATA"",396.18,202,3,141,0)"
^XMB(3.9,23,2,5020,0)="M==;GX=S=6;_M^!D['C_BK-VU/7/O/)U&S<9KQR:VXWCM)$5)Q=V9N[LWGL=J"
^XMB(3.9,23,2,5021,0)="""DATA"",396.18,202,3,142,0)"
^XMB(3.9,23,2,5022,0)="M[LQZ)Z2@J`_^*!0""I""2M4E+:I""I""@'@(J%K$HQ25ETI;4BKX(U$0!8$0I4)%"
^XMB(3.9,23,2,5023,0)="""DATA"",396.18,202,3,143,0)"
^XMB(3.9,23,2,5024,0)="M116<QW?._<[<,Z_UKCVSZLJ2[[S..=]Y?.=[_CZ[5A?5\F1Y[AF'%7-TZJ0I"
^XMB(3.9,23,2,5025,0)="""DATA"",396.18,202,3,144,0)"
^XMB(3.9,23,2,5026,0)="MIWCZ4-QC]%%]CG9XLG/@81Y/VW68ME<UI?NNP[1I1DBFC-87I3G9=9NPK3E6"
^XMB(3.9,23,2,5027,0)="""DATA"",396.18,202,3,145,0)"
^XMB(3.9,23,2,5028,0)="MA'3.G[8:^>DB+>A*OBEFB85D=RF:G3#QZ""HPND7-Z""Z*T5UU%EWG9EP,DJT$"
^XMB(3.9,23,2,5029,0)="""DATA"",396.18,202,3,146,0)"
^XMB(3.9,23,2,5030,0)="M&R%[FUIR:=SC+""V!5VC4;*YU>:S@-JUH3BG0UJQ.@`%GDQ)9V;YD=>#W>?S["
^XMB(3.9,23,2,5031,0)="""DATA"",396.18,202,3,147,0)"
^XMB(3.9,23,2,5032,0)="MZWW7S!;B_""8\%6V+=NL@YT'8?9-?5[_0APX26EZ\@H6=,S,!O^C;:X_/;M$L"
^XMB(3.9,23,2,5033,0)="""DATA"",396.18,202,3,148,0)"
^XMB(3.9,23,2,5034,0)="MG`A6_SAGM.MA'M[NECPK_*3""9^/6FP-E!0,C;F0/(^LHD/5Z#[FNPE]J^Y3I"
^XMB(3.9,23,2,5035,0)="""DATA"",396.18,202,3,149,0)"
^XMB(3.9,23,2,5036,0)="M/:;""#O3/*H[C*GA,1;+1'AR0&_V.9#1-7U`?;H^IV(V?5YU@,J<U^N):<)EN"
^XMB(3.9,23,2,5037,0)="""DATA"",396.18,202,3,150,0)"
^XMB(3.9,23,2,5038,0)="MU47UI'%(NQ'PCB&7AXKH0`%T&N6!.GNB]A\WN>V%8V%KT//Y\'LY;+FD$O4T"
^XMB(3.9,23,2,5039,0)="""DATA"",396.18,202,3,151,0)"
^XMB(3.9,23,2,5040,0)="M<SMRGO*8#&&B^KA<DA.^&RB=Z<M$M?>J4[*7N%%;5!>&A31B5V6(:.R,""""%="
^XMB(3.9,23,2,5041,0)="""DATA"",396.18,202,3,152,0)"
^XMB(3.9,23,2,5042,0)="M';M3+XX[N)9_3\4,^/E0H,@1F83^M$@V""4Q0GW<7J`@D""E4T3[=WX(VP'SE%"
^XMB(3.9,23,2,5043,0)="""DATA"",396.18,202,3,153,0)"
^XMB(3.9,23,2,5044,0)="M(W:]4N./H5[RD\!@]5^J2R\F^<H+:^^VWZ83\^`B.:3@QOQI-V^7'X\Q>-`Q"
^XMB(3.9,23,2,5045,0)="""DATA"",396.18,202,3,154,0)"
^XMB(3.9,23,2,5046,0)="M.5SEY1:@8X2+^IG5@XY1:Q@D\,`%=LS3NB2;S&W`CDEB![!0MT>D-/RIM9=D"
^XMB(3.9,23,2,5047,0)="""DATA"",396.18,202,3,155,0)"
^XMB(3.9,23,2,5048,0)="MLST8,PAW\/-L$M:U,@ET.H[BTW&^ZBVX=7)W/0<<O3:(63=BOYUBQ&5@O\UJ"
^XMB(3.9,23,2,5049,0)="""DATA"",396.18,202,3,156,0)"
^XMB(3.9,23,2,5050,0)="MZOP(>I@Z6@H`>*(FD[A)8=%>K]%_LU.$4Y^FH&@3\3(9X#QKN^G8M;@[&[]1"
^XMB(3.9,23,2,5051,0)="""DATA"",396.18,202,3,157,0)"
^XMB(3.9,23,2,5052,0)="MJ=YDTV8O$)U\R:40:PR_0=NIB3J5UL'(\UKWKNWQ]1#YU9`XH6W7PL3L!&(^"
^XMB(3.9,23,2,5053,0)="""DATA"",396.18,202,3,158,0)"
^XMB(3.9,23,2,5054,0)="M'0XR`.\<:=&Q""_-Q5C!P(CY+;29@(>&TN)59*L[0KT^`\>'0]0K[[%!\EIIG"
^XMB(3.9,23,2,5055,0)="""DATA"",396.18,202,3,159,0)"
^XMB(3.9,23,2,5056,0)="M_""_$*]4Z_(Q.RD+#FV<M<:T?[$`=K23""9,BGY+O""8!K5+$1NNE$N4Z,EK85$"
^XMB(3.9,23,2,5057,0)="""DATA"",396.18,202,3,160,0)"
^XMB(3.9,23,2,5058,0)="M1CVO[ET()F.SY#J>;WG01:*;4%0D^BBWU/Z96(L;P3F;.$X+:WED^W*JR'5O"
^XMB(3.9,23,2,5059,0)="""DATA"",396.18,202,3,161,0)"
^XMB(3.9,23,2,5060,0)="M%XMT:E@_8'B!P6%B=:(@A$+]""]>[_DIT.QXL3]>:2#'2?R*%\""A]C?=6#B12"
^XMB(3.9,23,2,5061,0)="""DATA"",396.18,202,3,162,0)"
^XMB(3.9,23,2,5062,0)="M'&U[,QA=M3Q:/8\5P*,/RFDZ!XN8#Q;XLQ*YK""9^21;2PP<D4N[43MX<`F4Q"
^XMB(3.9,23,2,5063,0)="""DATA"",396.18,202,3,163,0)"
^XMB(3.9,23,2,5064,0)="M$B`PC;?[*V*[OQ8L^I@D@OEP5`K4)3GGE(WWI5#[C6?P4]5[Z46=`0Y4[Y\("
^XMB(3.9,23,2,5065,0)="""DATA"",396.18,202,3,164,0)"
^XMB(3.9,23,2,5066,0)="M*R&MCP8/U0APLMY%(%UW2:6[&_UT%^T3E"":#]XM(N$#[94;LE[R9R0V'>Q-+"
^XMB(3.9,23,2,5067,0)="""DATA"",396.18,202,3,165,0)"
^XMB(3.9,23,2,5068,0)="M<5ND%)=.T+\DEF)$>/V?A-=4(M;=XCK:X@MOC'A8ZZH2SO>M;ED?8)8GER+1"
^XMB(3.9,23,2,5069,0)="""DATA"",396.18,202,3,166,0)"
^XMB(3.9,23,2,5070,0)="MO@GMWIV'P=JL$"":D'AXN,PNGQ=6``1+]@J<O$\FBQHDYO8)[NN?0+'ZY;1*7"
^XMB(3.9,23,2,5071,0)="""DATA"",396.18,202,3,167,0)"
^XMB(3.9,23,2,5072,0)="M&UL=G/A!KN]VP`*FF<LG%/:H:PS<Q!-<^'BG8VM)Q7LNV-%6K/W1OQ3&U8EN"
^XMB(3.9,23,2,5073,0)="""DATA"",396.18,202,3,168,0)"
^XMB(3.9,23,2,5074,0)="M$%?](Z+)?<O.F6PUM>S1Q4BC*3*49,)OR/W[B""0JDT[TY[0_$S_GEAS8ZJ<#"
^XMB(3.9,23,2,5075,0)="""DATA"",396.18,202,3,169,0)"
^XMB(3.9,23,2,5076,0)="M45/\?:=H[+A,Y%&F.WK4Y333C#\Q>?4QX_#5UK>H:,J$5^DF5,.J>Z;94J`B"
^XMB(3.9,23,2,5077,0)="""DATA"",396.18,202,3,170,0)"
^XMB(3.9,23,2,5078,0)="M.Q&=R_9G8]I)835H``8_UK>+>%GS:;,463!GYH>X`73^BN3,'Y$9CLE,+CD<"
^XMB(3.9,23,2,5079,0)="""DATA"",396.18,202,3,171,0)"
^XMB(3.9,23,2,5080,0)="MHID^YQ`""""G_`5W0:*#TF;UP77T%PKQB%TD6W?$?1[G8$=2M1.'$&HX_X$+_^"
^XMB(3.9,23,2,5081,0)="""DATA"",396.18,202,3,172,0)"
^XMB(3.9,23,2,5082,0)="M5AN[<O6Q*V>O7KMP=GJ0U'Z!S[\/9]5J$Y6>H%$KU<J#R5NNKKVL4-X@>D<&"
^XMB(3.9,23,2,5083,0)="""DATA"",396.18,202,3,173,0)"
^XMB(3.9,23,2,5084,0)="MC_RA5O:.BH-PAGO-6:H_2""[U^""F`LHRW=?V""-?AWU?#%XW)[UM>`A+13YQ3%"
^XMB(3.9,23,2,5085,0)="""DATA"",396.18,202,3,174,0)"
^XMB(3.9,23,2,5086,0)="MDK""T\GU9(QW=@Z4C*""1RA3`#>\$;K(S8%%BT-S""2]G5*4G#F:HX#\3*,$+TA"
^XMB(3.9,23,2,5087,0)="""DATA"",396.18,202,3,175,0)"
^XMB(3.9,23,2,5088,0)="M6(3JS&,]W%=,[EEQ0W`&4W`,%F5C6&,)SO=L""3Y.6E\H.75G(DX!\AISW*;$"
^XMB(3.9,23,2,5089,0)="""DATA"",396.18,202,3,176,0)"
^XMB(3.9,23,2,5090,0)="M?=L<:(""&H;GUAF>,7:@4X-OM';,63M[;+8`]I7WXQ;6@5.S2[""\HCQ[=Q?74"
^XMB(3.9,23,2,5091,0)="""DATA"",396.18,202,3,177,0)"
^XMB(3.9,23,2,5092,0)="M:""`9K$T@&L\D7!%,W94],*(F^S9LYXR\5W-@(&9)=<T&K8""BGG<UK%A.OZX)"
^XMB(3.9,23,2,5093,0)="""DATA"",396.18,202,3,178,0)"
^XMB(3.9,23,2,5094,0)="MM9CHGKC*WW2?<[38%RD\^&@FW*EX>DM8AT\&+9ZN-RS""6E_@*D4EW/O97W96"
^XMB(3.9,23,2,5095,0)="""DATA"",396.18,202,3,179,0)"
^XMB(3.9,23,2,5096,0)="MK""A\O%7!J+HL9<+/8-2+_A""D-E(,@QHYU6RVC2V7W04*L21Q`(QM4^[L;,-S"
^XMB(3.9,23,2,5097,0)="""DATA"",396.18,202,3,180,0)"
^XMB(3.9,23,2,5098,0)="MB!Q;;)1LBK=GC/GYRL;.2;)]!8;R/*'#J=""X.2,VZ36)DEFO-8TM4Q2WB;Y+"
^XMB(3.9,23,2,5099,0)="""DATA"",396.18,202,3,181,0)"
^XMB(3.9,23,2,5100,0)="MK>LWW`K%\ZS7[(+P;5=8I\;NR26W5**&YU*SO#!O%QF@?'V^:1Q@V;6%DKWH"
^XMB(3.9,23,2,5101,0)="""DATA"",396.18,202,3,182,0)"
^XMB(3.9,23,2,5102,0)="M%N@@`E^XYRH&2YGA5[M`0%K=M`RFHPA^+5Y8>,6D]3GZ>1DV[VB*9&*K.7@L"
^XMB(3.9,23,2,5103,0)="""DATA"",396.18,202,3,183,0)"
^XMB(3.9,23,2,5104,0)="M1]F*A]JGIW4B7'LXH.$MK.$M'>#.[H6C+=PB:MNG.VU7""\?Y056D:%:#.6^E"
^XMB(3.9,23,2,5105,0)="""DATA"",396.18,202,3,184,0)"
^XMB(3.9,23,2,5106,0)="MLGWMU@=)4PYC`Z6XLU1P/>8[<2N%4H-%:_IP8A,LT-15T+HD@-@XP[XZAC^Z"
^XMB(3.9,23,2,5107,0)="""DATA"",396.18,202,3,185,0)"
^XMB(3.9,23,2,5108,0)="MIP,XF+$MB/P56JWX""DT.`K@R2F'E7OUB,#LM:_6I[X_+S&C/G:L0^@LTPM4N"
^XMB(3.9,23,2,5109,0)="""DATA"",396.18,202,3,186,0)"
^XMB(3.9,23,2,5110,0)="MU6E:`3V<;H7QV=5(]Q;5G(&L!P((N(BL5'[%R:*NM?>T""A8]D+F>KSO[X:BJ"
^XMB(3.9,23,2,5111,0)="""DATA"",396.18,202,3,187,0)"
^XMB(3.9,23,2,5112,0)="MY;:FB&>5.T^P[:>T;#N=',HRU4)9X'?M67'7_H'D<_>A1<P,7_;[9H1>;)HB"
^XMB(3.9,23,2,5113,0)="""DATA"",396.18,202,3,188,0)"
^XMB(3.9,23,2,5114,0)="M`WY$\?W_G11PWU@+`N[NH'&9TB[J-G\WI!""OK]O\WLM2QCU+.&ZUR8+MSQ.."
^XMB(3.9,23,2,5115,0)="""DATA"",396.18,202,3,189,0)"
^XMB(3.9,23,2,5116,0)="M5QV$@`>5,J'+\1RO+6(/3VB\^D6>/UTM%!H\891B(W*J""*NI%)#@%!]G^+PT"
^XMB(3.9,23,2,5117,0)="""DATA"",396.18,202,3,190,0)"
^XMB(3.9,23,2,5118,0)="M0H$*1S7XO$3O4)8[X#)YR8N3?S3A@/D6Z`<G9;*2QI_?,G(3CUS6B/\_S6V>"
^XMB(3.9,23,2,5119,0)="""DATA"",396.18,202,3,191,0)"
^XMB(3.9,23,2,5120,0)="M.T-K'PLYS2W36Y2,9+96+<=O5FLW*$MD8TN:)WCPQ0(#F];DB*MCR.$S$?TY"
^XMB(3.9,23,2,5121,0)="""DATA"",396.18,202,3,192,0)"
^XMB(3.9,23,2,5122,0)="M,8:W-&-(7-/T""XDGNKY[G0G3%%D6(MGT61C%Q[2P^HV:C*HL-&IT>\0=N4L["
^XMB(3.9,23,2,5123,0)="""DATA"",396.18,202,3,193,0)"
^XMB(3.9,23,2,5124,0)="M$TRZ4IG`LZT9<ZCFHZ@'X#?>M>VL0L99:/Q'-8V?@9'[>[%KXWD\<!%Q.ZTI"
^XMB(3.9,23,2,5125,0)="""DATA"",396.18,202,3,194,0)"
^XMB(3.9,23,2,5126,0)="M9'#=H_7)_99]16@++E%BFGDPDCW`E:$7PKU'Q,6Z&D*$++T-""]:T5Z@S$+W&"
^XMB(3.9,23,2,5127,0)="""DATA"",396.18,202,3,195,0)"
^XMB(3.9,23,2,5128,0)="M+]9=L-B>O%B?""?O1PT33H`F(]`0V*GPER!0%JU>H<R6*`K\1PG)RY)IF(6C4"
^XMB(3.9,23,2,5129,0)="""DATA"",396.18,202,3,196,0)"
^XMB(3.9,23,2,5130,0)="M$D=MI1WULLKBR,18V\E6E!ZD7;-#VV?C.00Z%?TCH3K<#+:^AS.S0O]]B#R<"
^XMB(3.9,23,2,5131,0)="""DATA"",396.18,202,3,197,0)"
^XMB(3.9,23,2,5132,0)="MO^`^L(A@F;^LPX;0'3>Q$CUUED.S%3TB^GI5I[+P8""XO/N<N.DS$ZZ<G4Q1,"
^XMB(3.9,23,2,5133,0)="""DATA"",396.18,202,3,198,0)"
^XMB(3.9,23,2,5134,0)="MY.OR/'3TABX=9!HL$F5P'8TOS#<]CJ`K,L:Z]@:[^`]#2G<?TG2W3W2WX#4+"
^XMB(3.9,23,2,5135,0)="""DATA"",396.18,202,3,199,0)"
^XMB(3.9,23,2,5136,0)="M\ZY-9)N""KI]6J7MW4.IFIS:!<<DVM_J)9<YO(I_*]`=V0>3N15J:U:[`;EIN"
^XMB(3.9,23,2,5137,0)="""DATA"",396.18,202,3,200,0)"
^XMB(3.9,23,2,5138,0)="MXF\HX,XU$_3""4T[E@8#*L`,-W8<44`18I+5N5[56REE,O`/`G1!UI""201^WG"
^XMB(3.9,23,2,5139,0)="""DATA"",396.18,202,3,201,0)"
^XMB(3.9,23,2,5140,0)="ME@<_=OALR9US:;KD3#-N$SF!;-(B.B+T4C3V7FK=5V*YCQG[_<^""NV'Y-4PB"
^XMB(3.9,23,2,5141,0)="""DATA"",396.18,202,3,202,0)"
^XMB(3.9,23,2,5142,0)="M/:,S;Y(Q9%0DMC""[^9M08,I,-&5#A0]P5^_G"">8@JG+#+\EM><B?@W1_)^HH"
^XMB(3.9,23,2,5143,0)="""DATA"",396.18,202,3,203,0)"
^XMB(3.9,23,2,5144,0)="M.E'^]27]RK=VR)3L^FT*#@4];'F%R4NY^#.ZTY:V^DZQWW)1UD1.LBA?8T.2"
^XMB(3.9,23,2,5145,0)="""DATA"",396.18,202,3,204,0)"
^XMB(3.9,23,2,5146,0)="MQGB:[(5G;&`5E]/P:F.:ODHFX.4F\D2_*UYONR2K.XOW0OK]BGE\U`H']NM]"
^XMB(3.9,23,2,5147,0)="""DATA"",396.18,202,3,205,0)"
^XMB(3.9,23,2,5148,0)="MB*CTD.%9Z.A-8WI_6IS/S\I%M'QZ,]DAPZG3T9O!MZI/\&]J""1ZJPDKKVNSH"
^XMB(3.9,23,2,5149,0)="""DATA"",396.18,202,3,206,0)"
^XMB(3.9,23,2,5150,0)="M+%;`3HD=/25W]!3BP$-5XG-$3R]68Z)?#G6B-YL8)GH[\6.JXV*Z7PW2C=@Q"
^XMB(3.9,23,2,5151,0)="""DATA"",396.18,202,3,207,0)"
^XMB(3.9,23,2,5152,0)="M0N)IPX[O:F7'X83*D6\ZS@W#@/]'3/:_9XQ8XB$E'M+B(2,>LN(A)Q[R\#!*"
^XMB(3.9,23,2,5153,0)="""DATA"",396.18,202,3,208,0)"
^XMB(3.9,23,2,5154,0)="MV+9X2LHG4SY9\BDEG]+R*2.?LO(I)Y]D'Z;LPY1]F+(/4_9ARCY,V8<I^S!E"
^XMB(3.9,23,2,5155,0)="""DATA"",396.18,202,3,209,0)"
^XMB(3.9,23,2,5156,0)="M'Z;LPY1]6+(/2_9AR3XLV8<E^[!D'Y;LPY)]6+(/2_:1DGVD9!\IV4=*]I&2"
^XMB(3.9,23,2,5157,0)="""DATA"",396.18,202,3,210,0)"
^XMB(3.9,23,2,5158,0)="M?:1D'RG91TKVD9)]I&0?:=E'6O:1ACY""G;<CMII%FH'$5[0;L\F^,;1&SS5*"
^XMB(3.9,23,2,5159,0)="""DATA"",396.18,202,3,211,0)"
^XMB(3.9,23,2,5160,0)="M)6JF,F*T',T)]KB1B+.S)X009(Q.,VW/+@F9M_-X50M1LY,TDS+[AM:Z,]*,"
^XMB(3.9,23,2,5161,0)="""DATA"",396.18,202,3,212,0)"
^XMB(3.9,23,2,5162,0)="ME5""(F@X0M1,190T3+XST+GVGD/0=F8(I>%E.P?UH""OKSCMV+A&^P7)2:<;'_"
^XMB(3.9,23,2,5163,0)="""DATA"",396.18,202,3,213,0)"
^XMB(3.9,23,2,5164,0)="M^O:)Z=9/.43C`9:^%QVBU#!C-H`_._H2WZB6T-RER>[#:P&S88\.]"":/8T,%"
^XMB(3.9,23,2,5165,0)="""DATA"",396.18,202,3,214,0)"
^XMB(3.9,23,2,5166,0)="M=,KW-&Z3@SKH%(XR>9%#D`U4C!""4\P1LG`.WD%0-(OL75:3?'E`;EAM,E\(C"
^XMB(3.9,23,2,5167,0)="""DATA"",396.18,202,3,215,0)"
^XMB(3.9,23,2,5168,0)="M/Q7P]Z!@NFR^UV`Z=`'0V[/4-.YC%X#%O""T>=6FP#^+C""W91XN(=BQL/I*@)"
^XMB(3.9,23,2,5169,0)="""DATA"",396.18,202,3,216,0)"
^XMB(3.9,23,2,5170,0)="MJ,PXOOI-JN679*M%VR7<1_VU<6B*O2L:J,[6G4K+=]JG<T-(_?^H$:Z[Y#R\"
^XMB(3.9,23,2,5171,0)="""DATA"",396.18,202,3,217,0)"
^XMB(3.9,23,2,5172,0)="M?PT<R;T:V#@P\AU4`ER_ICF1^_"")O.0PV#AR&L_4[/+""G42.TV6@IG!`ZJ,K"
^XMB(3.9,23,2,5173,0)="""DATA"",396.18,202,3,218,0)"
^XMB(3.9,23,2,5174,0)="MAS+42R0'W&(GE7B?WY83>M2'8DSVAYZ\7Y1XI9;1LER``EL`!)39/SYF^WHL"
^XMB(3.9,23,2,5175,0)="""DATA"",396.18,202,3,219,0)"
^XMB(3.9,23,2,5176,0)="M""K3BI0#DE[$6?/SWZ""+#+*5\;:R#@S^.SX4L.CBP*%\I#(PEMN?/Z/Q',AQ4"
^XMB(3.9,23,2,5177,0)="""DATA"",396.18,202,3,220,0)"
^XMB(3.9,23,2,5178,0)="M%$3L`>`+))MO<X/3-P,`7_$5`_C*83I.`!W_*D6H3_GA1&9NN&LB)10<)P'0"
^XMB(3.9,23,2,5179,0)="""DATA"",396.18,202,3,221,0)"
^XMB(3.9,23,2,5180,0)="MO""1)_>I:D!;WZ80J<`TGE+OIL`9=Y)B2?$$6@,;-7J-!M;0L&7G;&9QX&TP@"
^XMB(3.9,23,2,5181,0)="""DATA"",396.18,202,3,222,0)"
^XMB(3.9,23,2,5182,0)="M6""MWX""(BD?/!L[@9PD^+G!AMI+>H%L0;>Q\TMC_8F,$,!#BTHSV@EX7;!&C="
^XMB(3.9,23,2,5183,0)="""DATA"",396.18,202,3,223,0)"
^XMB(3.9,23,2,5184,0)="MR-4`;`""1#5-].?XV7*C,<DS3<>_8JL8DZ[@4G*B?Y5SJLZ'VJ?3]9JVVB8`6"
^XMB(3.9,23,2,5185,0)="""DATA"",396.18,202,3,224,0)"
^XMB(3.9,23,2,5186,0)="M&2M+;![C@EM)KGM&=JA,C-9IJ]E&.,I!9MQ=[1""$XXI..E>]$-;EAM)P45-U"
^XMB(3.9,23,2,5187,0)="""DATA"",396.18,202,3,225,0)"
^XMB(3.9,23,2,5188,0)="M1,1]L,@E;>OM]U@*UT[?WQKE<P#M,6MY7N91B@KGUEW/V'2EZ92J%6=AOD9?"
^XMB(3.9,23,2,5189,0)="""DATA"",396.18,202,3,226,0)"
^XMB(3.9,23,2,5190,0)="MKU;97NJB'Y,@)1D\B8*^.9U^9:K`;*U7GG(82["")+H5;?3FTI?20F;?:&$H@"
^XMB(3.9,23,2,5191,0)="""DATA"",396.18,202,3,227,0)"
^XMB(3.9,23,2,5192,0)="M4>8U52G+R*OOC]?""U;=?@^*<P<ECPDZRKQNNEBP'.(`U.1%Q67RM'PG$K?AL"
^XMB(3.9,23,2,5193,0)="""DATA"",396.18,202,3,228,0)"
^XMB(3.9,23,2,5194,0)="M95PII2.D3VU]SF`O.=P+J""Z1]VG3'$'.[5+O4V#*LH,<?2G4>QG:2,^F&076"
^XMB(3.9,23,2,5195,0)="""DATA"",396.18,202,3,229,0)"
^XMB(3.9,23,2,5196,0)="M7Z%`6`G_6E/^PK32*PEXUUIW7!G'TX%QG$+C2`U'X+X^!Q\T=T\IK[Y1*KMG"
^XMB(3.9,23,2,5197,0)="""DATA"",396.18,202,3,230,0)"
^XMB(3.9,23,2,5198,0)="MUX*R>Z\&#`V8S>.*JON$AMF<PLP&X:()Y'H>F><6!D#8%N=W/4I3YI?)VUSJ"
^XMB(3.9,23,2,5199,0)="""DATA"",396.18,202,3,231,0)"
^XMB(3.9,23,2,5200,0)="MVQL(SSVP4KII,HW+]8K:@'\O;ZWO(-TT,=2ZJ0@1?$9Q-VV51V;G6C@R!S25"
^XMB(3.9,23,2,5201,0)="""DATA"",396.18,202,3,232,0)"
^XMB(3.9,23,2,5202,0)="M_L!*_SFU"".*O=\MQ%F;3P:C.B^A)8VL*8,)&OZ""YDN^?8G4I6((EI`G/,>]L"
^XMB(3.9,23,2,5203,0)="""DATA"",396.18,202,3,233,0)"
^XMB(3.9,23,2,5204,0)="MG9DD'2\^X\S9%/RR]18!,7\WCO-&Q>I_U3\4R4QJ:(O50W9R]#\YE_EW(25D"
^XMB(3.9,23,2,5205,0)="""DATA"",396.18,202,3,234,0)"
^XMB(3.9,23,2,5206,0)="MQ51N;PNU&.D?$PXXC>!I_Q1:.9[6!M4`[LB'E?(B9^6!W[KV4&_C.KQVL'.^"
^XMB(3.9,23,2,5207,0)="""DATA"",396.18,202,3,235,0)"
^XMB(3.9,23,2,5208,0)="MHIJ'UVONS"".*>1A0(^*/+=HUUZ[$)^NUZL+\8%FE(+DM<D0Q$>_08*.>EJ+S"
^XMB(3.9,23,2,5209,0)="""DATA"",396.18,202,3,236,0)"
^XMB(3.9,23,2,5210,0)="M#)$I&4\H5&G^L2=P""9REA9+M5OR\""IL3W`9.P,)I==&W0BOG_6Q-U01=^K!B"
^XMB(3.9,23,2,5211,0)="""DATA"",396.18,202,3,237,0)"
^XMB(3.9,23,2,5212,0)="M/OZ!Y$:?P]FH0QUL(*(J'E=PW'T7SJ?7@@I]4%<>'O)R?H>?T9%`>7@$>H;/"
^XMB(3.9,23,2,5213,0)="""DATA"",396.18,202,3,238,0)"
^XMB(3.9,23,2,5214,0)="MJ`_G,%""G$C!\0:@$R+?(1/!0QBX&`*A]O.ZDPK=$*PL:B*@6,!""):HU,>CK3"
^XMB(3.9,23,2,5215,0)="""DATA"",396.18,202,3,239,0)"
^XMB(3.9,23,2,5216,0)="M*EQ_;_$.:BNG([>W'RK2]O%6U*MW(S]0?V@@O.#]Q>I-0O[C+07O6]X=\PO>"
^XMB(3.9,23,2,5217,0)="""DATA"",396.18,202,3,240,0)"
^XMB(3.9,23,2,5218,0)="MKZHQN]4BF%:6$VB/SH=UQ&>&R238MBZ%!<KJ3RKA*O^QMBR""AW2.VSP&J17."
^XMB(3.9,23,2,5219,0)="""DATA"",396.18,202,3,241,0)"
^XMB(3.9,23,2,5220,0)="ML'_KYI""F2&1D):@ED-S$!9;1.%!\3521V(;+I406-1F:./RAB,C1>L-$*>""_"
^XMB(3.9,23,2,5221,0)="""DATA"",396.18,202,3,242,0)"
^XMB(3.9,23,2,5222,0)="M5,NP&!HI)B-9'4-WH6++++8[^J$6I-=ZHS9C5PJ.UX419BTE8>CET,HA([4+"
^XMB(3.9,23,2,5223,0)="""DATA"",396.18,202,3,243,0)"
^XMB(3.9,23,2,5224,0)="MY,KBB81R!=$7=>;""?*I7<V&[V)&>0F$$]A3':7L,9N#]&L]./ME7),S89''>"
^XMB(3.9,23,2,5225,0)="""DATA"",396.18,202,3,244,0)"
^XMB(3.9,23,2,5226,0)="MH3*FMQI8+""D%7JX*$_F5D&[<5E_C/C3I>=6""2VOPM-E5_=$3""=X(2IZ:W`5^"
^XMB(3.9,23,2,5227,0)="""DATA"",396.18,202,3,245,0)"
^XMB(3.9,23,2,5228,0)="M18ZGT.#-(<MP:J.2FIV!]EY:""S:HPSI<.I""U]H05$)+7-%?""+GPE,+%F$''V"
^XMB(3.9,23,2,5229,0)="""DATA"",396.18,202,3,246,0)"
^XMB(3.9,23,2,5230,0)="M+,S`-M\RSEY2U`.``N)[8(*^JC%KO8O>`;<`LP?G#J!_S)6&V0/3]7F.+#$7"
^XMB(3.9,23,2,5231,0)="""DATA"",396.18,202,3,247,0)"
^XMB(3.9,23,2,5232,0)="M,%W??PN7B39@07C^.63;GP<AV^:[0+8IZ`$K""=FFG/9-[6'==[4@MO4""U9;`"
^XMB(3.9,23,2,5233,0)="""DATA"",396.18,202,3,248,0)"
^XMB(3.9,23,2,5234,0)="M;0O#QXF@-)VWDND?0K5U+X4'Y^_IL.+!_$J@7CR=T,SJ@)KU>Y_V0E96(6M3"
^XMB(3.9,23,2,5235,0)="""DATA"",396.18,202,3,249,0)"
^XMB(3.9,23,2,5236,0)="M1[*R@P%!AS?])F73*^""F@`8<O2#UJ==#B!CKAVB:MQ%-L]5DF58@`D5^U--R"
^XMB(3.9,23,2,5237,0)="""DATA"",396.18,202,3,250,0)"
^XMB(3.9,23,2,5238,0)="MJ3Z!ERHWG`AZ*7R-3@81]`XB$E/#++6*T,]U2K7E-Z746EX+4NL179@J;./O"
^XMB(3.9,23,2,5239,0)="""DATA"",396.18,202,3,251,0)"
^XMB(3.9,23,2,5240,0)="MA92ZO=_JEG%""AE8D;<:GR?$D%]E@&6>%[GVW$N.7U]0,@.$3KJ8+6A(U>R$S"
^XMB(3.9,23,2,5241,0)="""DATA"",396.18,202,3,252,0)"
^XMB(3.9,23,2,5242,0)="M4#3D::PA4W:3(=<M5ETF0KBT9MZB7=)$=*+V065X=UAIW]$4&E9""KXI-PO!<"
^XMB(3.9,23,2,5243,0)="""DATA"",396.18,202,3,253,0)"
^XMB(3.9,23,2,5244,0)="MNW/;EM(V5**.U#2BF=+VO%.VZ]U;SRLS(^KY/-MMY)1/LP*YG>)<(00U^FUU"
^XMB(3.9,23,2,5245,0)="""DATA"",396.18,202,3,254,0)"
^XMB(3.9,23,2,5246,0)="M6GJ*G=:8GM1%?#B0#>XW=^ARM<!HCX\?IJ.%Q>1I;Q7ZY6,=NU*1E7])R-E7"
^XMB(3.9,23,2,5247,0)="""DATA"",396.18,202,3,255,0)"
^XMB(3.9,23,2,5248,0)="M-#!V(O2WQ+,G.Y.03N)VOR_$_U_4(@BJZDR]KWX@CL(**P1$/ZS#_7J2B`#S"
^XMB(3.9,23,2,5249,0)="""DATA"",396.18,202,3,256,0)"
^XMB(3.9,23,2,5250,0)="M4/V9""`WD1,J\OB[&.%&3F6_-Z$/A5K=$>[_BV++=$G@*A8<Q\N.BQV=\.TRF"
^XMB(3.9,23,2,5251,0)="""DATA"",396.18,202,3,257,0)"
^XMB(3.9,23,2,5252,0)="M/[$J)O>W,7*=[VYC9(H?4!H^7F""A?.1MQXB=%V=KE6&_M0;)EC3G""5C;3VHL"
^XMB(3.9,23,2,5253,0)="""DATA"",396.18,202,3,258,0)"
^XMB(3.9,23,2,5254,0)="MDNE$5\BD<$>0@7ER?4N0`?K"",]:;/.-TGK[8ZH,(6/SS4-MQBX0;8&2=Q]T_"
^XMB(3.9,23,2,5255,0)="""DATA"",396.18,202,3,259,0)"
^XMB(3.9,23,2,5256,0)="M.`*.P!39P/58K""4&L]W8DLK8KG0<6[)OW!,\MI@<6V]#,U4.7>\XM'3?(!B]"
^XMB(3.9,23,2,5257,0)="""DATA"",396.18,202,3,260,0)"
^XMB(3.9,23,2,5258,0)="M35NK.32A,':QE-^48_HQ=`Q30PN/HT0-9Y1E:+]#3,LT4]V6(:!>KKM<K3A&"
^XMB(3.9,23,2,5259,0)="""DATA"",396.18,202,3,261,0)"
^XMB(3.9,23,2,5260,0)="M.&F$32-L&>&4$4N+C.M.:F8*7RBO""SX_)FTKU]""H\LM+\]@%.\$NQ1O,YP57"
^XMB(3.9,23,2,5261,0)="""DATA"",396.18,202,3,262,0)"
^XMB(3.9,23,2,5262,0)="MD'&WR`AS,7-,BG?A:_%BPZ$<@ZIVS&C2@,^+[B(O]&1L)WU1IJ.TLUS..M(#"
^XMB(3.9,23,2,5263,0)="""DATA"",396.18,202,3,263,0)"
^XMB(3.9,23,2,5264,0)="M9VUOJ@(^D`NK$_HA[80N$YUQ#YE0KTXM$"")XA^C2+O53&/LO4'&353K6?7S\"
^XMB(3.9,23,2,5265,0)="""DATA"",396.18,202,3,264,0)"
^XMB(3.9,23,2,5266,0)="M2<>N@59NSWC5V@S]&JU27:.FK0J4C*-7MW&Q\W=Y:&&#Z-PT$Y4P\#FGB(``"
^XMB(3.9,23,2,5267,0)="""DATA"",396.18,202,3,265,0)"
^XMB(3.9,23,2,5268,0)="M3(034+2;QB/+:(U=%*F6AI8SK+*\9%I:Z\GJ-MJ_32""I'*M1H2__6B0`.&F9"
^XMB(3.9,23,2,5269,0)="""DATA"",396.18,202,3,266,0)"
^XMB(3.9,23,2,5270,0)="MUE#!?\7:*LX@\KH**NE8)%!'8)@5Y_LTLG(""[K*70UTKM=ZK*,[<8C6H"">FB"
^XMB(3.9,23,2,5271,0)="""DATA"",396.18,202,3,267,0)"
^XMB(3.9,23,2,5272,0)="MQ.,$3HV,V!J]+N#UX?Z28#""S""FX5#_C%D/[5HKR`=0\[ECIK%A`/&_U;1>CQ"
^XMB(3.9,23,2,5273,0)="""DATA"",396.18,202,3,268,0)"
^XMB(3.9,23,2,5274,0)="M'3/[5R+>2;U)\WB^3K3JP0^B9)QD7]Q^W<5&><&(R90Q8]T5VZW<3@NGD""!A"
^XMB(3.9,23,2,5275,0)="""DATA"",396.18,202,3,269,0)"
^XMB(3.9,23,2,5276,0)="MX414YLFPCCAS380S""6O8Q]2]^H(TZGYT+=@!CVKL.>!K>T@)9_I^*`@4<04S"
^XMB(3.9,23,2,5277,0)="""DATA"",396.18,202,3,270,0)"
^XMB(3.9,23,2,5278,0)="ML\M.=:%D>V5Z*W?X(S]Q""H08+LA--SVR%665RSO&_C2%&U#948@Z.<$FY*G6"
^XMB(3.9,23,2,5279,0)="""DATA"",396.18,202,3,271,0)"
^XMB(3.9,23,2,5280,0)="M8!GD,9UR[;E*%>*MZPTB=,3'G26[4->:%+,YU&[T12$H_I3.PB*RN(NRA_%R"
^XMB(3.9,23,2,5281,0)="""DATA"",396.18,202,3,272,0)"
^XMB(3.9,23,2,5282,0)="M^523_.F;SN.FOQ`*@*3X32>I^8D[UED1$#9TLAIU5@MEW/>$@F-%VU\^B?M+"
^XMB(3.9,23,2,5283,0)="""DATA"",396.18,202,3,273,0)"
^XMB(3.9,23,2,5284,0)="M""RO.98VUZTJ)@3X4@;UK6P-[Y3_P""*W_%<:S^6""YAH-*>CL:MYR=3L4Y4('6"
^XMB(3.9,23,2,5285,0)="""DATA"",396.18,202,3,274,0)"
^XMB(3.9,23,2,5286,0)="M+""9`]!A])13L\H&S=$799,F.;:9SL`-`^`L>1[$X$2^7)^(=!J.[O!2)(EH,"
^XMB(3.9,23,2,5287,0)="""DATA"",396.18,202,3,275,0)"
^XMB(3.9,23,2,5288,0)="MA!4<;'M[C?0)E*0IY)7!60:)0'3V43\=*-]?P:O=3]K,BPIG@][C<Q4R=^]I"
^XMB(3.9,23,2,5289,0)="""DATA"",396.18,202,3,276,0)"
^XMB(3.9,23,2,5290,0)="M#Y$DG*;&R/7*C4KU9J45?5^5NDU\5&<#M9J/HO2^Q+#XX2A404Q@%BC[]+50"
^XMB(3.9,23,2,5291,0)="""DATA"",396.18,202,3,277,0)"
^XMB(3.9,23,2,5292,0)="M@$(42YA(=HI'$P`B)]32?WY+[T(M988):-LG4>&""#X<#).Y')*:&P[34LAWP"
^XMB(3.9,23,2,5293,0)="""DATA"",396.18,202,3,278,0)"
^XMB(3.9,23,2,5294,0)="M?H_N""K>&V./=8&DP2]8%&@36^X^A'EI,:UJ\JUT*-VS</#N98[`4STGE\)-K"
^XMB(3.9,23,2,5295,0)="""DATA"",396.18,202,3,279,0)"
^XMB(3.9,23,2,5296,0)="M09JZ/WBQB%R7WP\IXE2X6S[:`""9N:V+)0)_[""+=U>6*WW`C>FA/'""4G4-C3="
^XMB(3.9,23,2,5297,0)="""DATA"",396.18,202,3,280,0)"
^XMB(3.9,23,2,5298,0)="MF""F[=6K7L8O%.&F='!2/OJ3W`F2N=[D=`4\I^@[?I$NBVT-RD[;-Y`PO(Y,3"
^XMB(3.9,23,2,5299,0)="""DATA"",396.18,202,3,281,0)"
^XMB(3.9,23,2,5300,0)="M=!^3$UD/M]<D#4[<+26.""OLAG,!.W?&K_TYN^&A751E8&JC*\I42*R@""9F80"
^XMB(3.9,23,2,5301,0)="""DATA"",396.18,202,3,282,0)"
^XMB(3.9,23,2,5302,0)="MH,/.\]7:<Y(?GJ2(83?(>8]MIUS1?_\J->]%IR([U;?EU\<F&_4J?Q]KP)IS"
^XMB(3.9,23,2,5303,0)="""DATA"",396.18,202,3,283,0)"
^XMB(3.9,23,2,5304,0)="MJN19`Y1;I*)QD8N3.>-0J;C(DJZ=XNG;OPPZ*H#+[F14.*)\M2:U8NX:/W'."
^XMB(3.9,23,2,5305,0)="""DATA"",396.18,202,3,284,0)"
^XMB(3.9,23,2,5306,0)="M$K,3+U0]CU;[F9"""".?NTX-8*C3*U-!=`1W`K+L1`5MQ9AWQ""6_/`]RM0T*C;"
^XMB(3.9,23,2,5307,0)="""DATA"",396.18,202,3,285,0)"
^XMB(3.9,23,2,5308,0)="MP:T\VZ@U!V1:@&&<""RNK>R8X+9N$/D&(<NJ#,7I0!OBBRDH2D6=TA=BH_]2!"
^XMB(3.9,23,2,5309,0)="""DATA"",396.18,202,3,286,0)"
^XMB(3.9,23,2,5310,0)="M&HZ#1(*%HG""B_QUN'PVQ&:J]5<M4?]);$8%#?I`SY&^$VELFMU^3FABY?!;H"
^XMB(3.9,23,2,5311,0)="""DATA"",396.18,202,3,287,0)"
^XMB(3.9,23,2,5312,0)="MC'2,94E;&.,Y^JP0&5_0ZN2JA=*C@<3.+`58\SK'5F1@-@RV&R_""\&/!+B+)"
^XMB(3.9,23,2,5313,0)="""DATA"",396.18,202,3,288,0)"
^XMB(3.9,23,2,5314,0)="MDW=P^7""**P369L)=AVP.RI!S:)*C'PAU&+)U)X?L9P!CR$FY]71%->\&>[M^"
^XMB(3.9,23,2,5315,0)="""DATA"",396.18,202,3,289,0)"
^XMB(3.9,23,2,5316,0)="MQV'AJ46XSRML\'R@0K<4[A-$/=8HCS&A62G7C(@GB$O?UH_X[22SPZ$ZCEX#"
^XMB(3.9,23,2,5317,0)="""DATA"",396.18,202,3,290,0)"
^XMB(3.9,23,2,5318,0)="M(S[?0N#+Q2ORIE""1/RCGZQRBL[^T`V.Z3E?+V$ZDB3DJ%[M$WVG2JGJ>8\0N"
^XMB(3.9,23,2,5319,0)="""DATA"",396.18,202,3,291,0)"
^XMB(3.9,23,2,5320,0)="ME!=JU46G&#?V*M[<FZ<(&RN['DNPT]K_%=5.@[24PPLGP#$^$`IFJVRE^T5J"
^XMB(3.9,23,2,5321,0)="""DATA"",396.18,202,3,292,0)"
^XMB(3.9,23,2,5322,0)="M(<PKX(M/RP--2^*^.VR^3""J=[S74*-0ILL%4[HEWQ/K]ANPRA2Q9B>5YXO<^"
^XMB(3.9,23,2,5323,0)="""DATA"",396.18,202,3,293,0)"
^XMB(3.9,23,2,5324,0)="M4JT6X^,B]I6B;-3I9J.H]T?.V6X-?0;Y(V2=\;?NO5*MXF]1%SSZ/+12$0L]"
^XMB(3.9,23,2,5325,0)="""DATA"",396.18,202,3,294,0)"
^XMB(3.9,23,2,5326,0)="M&/Z`R_^6:G=%$W;,G[!<?_D3!R_PN>'Q0,A""*J(-EE\<L.WZ8U3.Z'/A0-YM"
^XMB(3.9,23,2,5327,0)="""DATA"",396.18,202,3,295,0)"
^XMB(3.9,23,2,5328,0)="M$RU_<ID`II.5:LU9<FW#N$R!5&QC](DJ.:[D4V-TRK5KM7GRW@86KN'R*L7&"
^XMB(3.9,23,2,5329,0)="""DATA"",396.18,202,3,296,0)"
^XMB(3.9,23,2,5330,0)="M^B=98_$YZL03+X@FYQF;SY4:+JV)0$\[2Z>=<A88=Z""RS""66^-#PB/3MP68A"
^XMB(3.9,23,2,5331,0)="""DATA"",396.18,202,3,297,0)"
^XMB(3.9,23,2,5332,0)="M_9>JU$)@&R/G2.MS#<?8<84<Q07""&6@XA].H0;+$AND;%.V%Q4-X1NR\6_,:"
^XMB(3.9,23,2,5333,0)="""DATA"",396.18,202,3,298,0)"
^XMB(3.9,23,2,5334,0)="M==<K&^LF""Y7EQ\ILZ-F9*""^/I"")CR759E%K*3;0N0^5,W-A3EA*@^HEC]G5Q"
^XMB(3.9,23,2,5335,0)="""DATA"",396.18,202,3,299,0)"
^XMB(3.9,23,2,5336,0)="MS#ZA.69FIK_\ZSA+4W+962,,G*;:<#V5';A^JP'=I7=.*-?B_6+]7@\%09I'"
^XMB(3.9,23,2,5337,0)="""DATA"",396.18,202,3,300,0)"
^XMB(3.9,23,2,5338,0)="MH`CL2BWB+1DK1OLWQHAB`Q\-=Z<5-!>I<0P$S6/+H#F%`R>ZK.\T=PH.!*VQ"
^XMB(3.9,23,2,5339,0)="""DATA"",396.18,202,3,301,0)"
^XMB(3.9,23,2,5340,0)="M6R\1(K)%-C/2SPC2WY2DCZ.3V5^5KHE)%H'&,PA]N1V7&Y>7XC+OPO7:]<RG"
^XMB(3.9,23,2,5341,0)="""DATA"",396.18,202,3,302,0)"
^XMB(3.9,23,2,5342,0)="M%:F_D]""WX<+_MW=U,6Y<57C&D_5F-]G=;)*&9/,W;2!)HP0\ML<_*RI(MPN-"
^XMB(3.9,23,2,5343,0)="""DATA"",396.18,202,3,303,0)"
^XMB(3.9,23,2,5344,0)="M"",EJ2=.@""M""L=YRUL#UF_+-U0:CB""41!$4(@!*52W@!1B0<>4!]`0E!^5`2!"
^XMB(3.9,23,2,5345,0)="""DATA"",396.18,202,3,304,0)"
^XMB(3.9,23,2,5346,0)="M!XI`JE!%`Q42#U4E^@(S=^Z]<Z[OM3/7=K&](M)(B6//S'?NO>>>>WZ^@Y@/"
^XMB(3.9,23,2,5347,0)="""DATA"",396.18,202,3,305,0)"
^XMB(3.9,23,2,5348,0)="M4(E>/;SO0B0&+ZK?<_""LK\4Z>:UH=VK?:DY-@%:?5[K%-'!\Z;U(L`<PT$]1"
^XMB(3.9,23,2,5349,0)="""DATA"",396.18,202,3,306,0)"
^XMB(3.9,23,2,5350,0)="M+^8'=Q[EWEE!>@2.5?^59?.Z?2\VKV!K&#>^34+E?@SR;<8^(7`M/>JX%3_G"
^XMB(3.9,23,2,5351,0)="""DATA"",396.18,202,3,307,0)"
^XMB(3.9,23,2,5352,0)="M/5RV(F<5J9L\CE;#-XD;XK(@,R+8/^#=1-$(;#W-!SO202X\\,Z^\]HZ<[X2"
^XMB(3.9,23,2,5353,0)="""DATA"",396.18,202,3,308,0)"
^XMB(3.9,23,2,5354,0)="M4!*$%C1#E_$&.`M,""%5N)T(#(-2^J_2$F)_D9+8DGM55-):G.#;@QW:>IGI0"
^XMB(3.9,23,2,5355,0)="""DATA"",396.18,202,3,309,0)"
^XMB(3.9,23,2,5356,0)="MX-U-@-V=1)UBVZ(2SH[*.7Z%PSQ9;""3>5AC6@9\)%.!1J``[[,41:L'.=8%G"
^XMB(3.9,23,2,5357,0)="""DATA"",396.18,202,3,310,0)"
^XMB(3.9,23,2,5358,0)="MRSS3UBAD<OL;(`3.9B:6$)B4[?\],'1/J\/C-$6K<.&:]_T->_.*T[`W'.>3"
^XMB(3.9,23,2,5359,0)="""DATA"",396.18,202,3,311,0)"
^XMB(3.9,23,2,5360,0)="MR.'""?H054`P)FEA*_Z++\GEUP?M^3_G.T2\@$<]X(FY4K]E/-N;)?Y#%M)=\"
^XMB(3.9,23,2,5361,0)="""DATA"",396.18,202,3,312,0)"
^XMB(3.9,23,2,5362,0)="M()@B]""Y8WB'2<][?O7^L63=M!=;%'P[/`#@S`09[CPN@TO_$JU""!!#3:70KZ"
^XMB(3.9,23,2,5363,0)="""DATA"",396.18,202,3,313,0)"
^XMB(3.9,23,2,5364,0)="M*W*QW_N[QGZG+OKI9=.[K;(W*MY<@;%@1G_%-^I^[=0HM16D^YEC^A,%P@IL"
^XMB(3.9,23,2,5365,0)="""DATA"",396.18,202,3,314,0)"
^XMB(3.9,23,2,5366,0)="M=PT+ZU6J6C*C?6FRJA9!16_""_\,01I$CQX_#8U08<%VW""]Y0U/5UNU6RMX>H"
^XMB(3.9,23,2,5367,0)="""DATA"",396.18,202,3,315,0)"
^XMB(3.9,23,2,5368,0)="M3.3AW&M1=VLAQ8Q1OG.,M&\HHQPD5=!6PH3QQW3/^*/(I&5^_GC/6*#@YZ0-"
^XMB(3.9,23,2,5369,0)="""DATA"",396.18,202,3,316,0)"
^XMB(3.9,23,2,5370,0)="M9_#SIWK&Y<3=7C)P<JUQDRM4VXN/.(4F\C+C0$9]E/,K:C(0""-=`[C(:9Q,A"
^XMB(3.9,23,2,5371,0)="""DATA"",396.18,202,3,317,0)"
^XMB(3.9,23,2,5372,0)="M/10LGS!M+$BD&B5<3=[UE$]""O+,]\#*>BI'JP#Y0,LKQ0@^4^Q]NELJ;3!1N"
^XMB(3.9,23,2,5373,0)="""DATA"",396.18,202,3,318,0)"
^XMB(3.9,23,2,5374,0)="MI*HDNH)D]K`TT(_:'853D)?44:**""0X*6<`SJOV4O/$7A+U881U`2!U:\Y[N"
^XMB(3.9,23,2,5375,0)="""DATA"",396.18,202,3,319,0)"
^XMB(3.9,23,2,5376,0)="M;`K35W+PYJ^1FW]+R.!AM?VV'8UMVZYR-Q<GQ^3AW?>H/3I7LH<<F+(2(53("
^XMB(3.9,23,2,5377,0)="""DATA"",396.18,202,3,320,0)"
^XMB(3.9,23,2,5378,0)="M6*XS7""_E=X$03D[*3WH:FY.(@,:IUTH-JUQZ*N!8<UQ2A2(7QU`B04I!2"";'"
^XMB(3.9,23,2,5379,0)="""DATA"",396.18,202,3,321,0)"
^XMB(3.9,23,2,5380,0)="M'1=""2AIR09DS`-)-4O^$NJ'CJL:&:S4KUL"",>`),28B)=.G[BPA30BZ>>UZ$"
^XMB(3.9,23,2,5381,0)="""DATA"",396.18,202,3,322,0)"
^XMB(3.9,23,2,5382,0)="M""=5TA;!P18PDU1^?DPY9?[7?D07S""P%]A0$;-4YWS41(PQN^T?N&B2ZI"")Q#"
^XMB(3.9,23,2,5383,0)="""DATA"",396.18,202,3,323,0)"
^XMB(3.9,23,2,5384,0)="M/I9,>Y?I71GORGI7SKORGAF3\""[#NY(DRLJ?N""$?LW9$Y=[H#'@C8\*JQ05V"
^XMB(3.9,23,2,5385,0)="""DATA"",396.18,202,3,324,0)"
^XMB(3.9,23,2,5386,0)="M#<[,^#S;[&!%$&!:MR\X-;LZVFWO>@DEQ^Z6-^!2#-""5>P.%]E/_CTTSCW5D"
^XMB(3.9,23,2,5387,0)="""DATA"",396.18,202,3,325,0)"
^XMB(3.9,23,2,5388,0)="M'CL5];%1^#CS0/UH7R0+[?=T6C\0DB`8<H3=ARZ*FEN%FH8CT(D9WA(TDMZ5"
^XMB(3.9,23,2,5389,0)="""DATA"",396.18,202,3,326,0)"
^XMB(3.9,23,2,5390,0)="M\JXT68I,)@F1Y!SPMR>8(=2^H\@(<S:J,+N93OCA=Q7F_/]/:CH=CL$L-OZL"
^XMB(3.9,23,2,5391,0)="""DATA"",396.18,202,3,327,0)"
^XMB(3.9,23,2,5392,0)="ME8!DOZ3XY`\""4^/""Q9;M!EPKF-""4X=?'%H=^=M.S2(0EH!F&5YB<""F\(`B>K"
^XMB(3.9,23,2,5393,0)="""DATA"",396.18,202,3,328,0)"
^XMB(3.9,23,2,5394,0)="M0<JY3]E9MFV_ME1(N)<#]]-TM4=&/F.""K5DUO5ZQ+7>YJ_HWX9N^`POE3R+M"
^XMB(3.9,23,2,5395,0)="""DATA"",396.18,202,3,329,0)"
^XMB(3.9,23,2,5396,0)="MGXG<O1/R[JAF7,W$U6Q\)@<(>""+LUCGH2,`]O;6OA977X,7D""B^/AL'G<$P+"
^XMB(3.9,23,2,5397,0)="""DATA"",396.18,202,3,330,0)"
^XMB(3.9,23,2,5398,0)="MKE6IR?/TBVI6L.G40""_^T'BK\]@0%9R1@$>;;RM<[%,'1J/<D!T7#1G)^QI&"
^XMB(3.9,23,2,5399,0)="""DATA"",396.18,202,3,331,0)"
^XMB(3.9,23,2,5400,0)="M&@_A.6VA=_^^,MZC%I?=#2'2/%0E+Y%1^K/""5U,OKKFV7Y)<:`^IX&X@T--#"
^XMB(3.9,23,2,5401,0)="""DATA"",396.18,202,3,332,0)"
^XMB(3.9,23,2,5402,0)="MF*%).$/?Y`[?L1-`J22E9NB%2YA8JF""ARB$+3MC.3$6Y&2OHU0Z5MF:HO;1V"
^XMB(3.9,23,2,5403,0)="""DATA"",396.18,202,3,333,0)"
^XMB(3.9,23,2,5404,0)="M-@MVX&A22D$I75:Y\RQ8QRFYO)\'*'$XV>WH@1YOJG*B$2?YD+2%8#%_3!WO"
^XMB(3.9,23,2,5405,0)="""DATA"",396.18,202,3,334,0)"
^XMB(3.9,23,2,5406,0)="MQ;QWF""J8\2Z1;-*0=N<$&#DY)OO]U[ENYE(C%3$;U(3O_QR9>E\23CTY&_E8"
^XMB(3.9,23,2,5407,0)="""DATA"",396.18,202,3,335,0)"
^XMB(3.9,23,2,5408,0)="M./4X]B2Y2;<0#0JT7[37R5`\(4+2W=NP6X!D@2(I^EV.Y%[^0'?.SB2T!(L]"
^XMB(3.9,23,2,5409,0)="""DATA"",396.18,202,3,336,0)"
^XMB(3.9,23,2,5410,0)="M=(II&E'I,*<N^U^)Q_W\IF8E?O!1VVJUS^O;I<:6TVSHA;+3J,<7P:?!1^(8"
^XMB(3.9,23,2,5411,0)="""DATA"",396.18,202,3,337,0)"
^XMB(3.9,23,2,5412,0)="M->E>$JSKY\=\7>\;YKK.P\GT2[6SGPB<3'(>QOOH9*K9Y5:IH->L4E5N2BV*"
^XMB(3.9,23,2,5413,0)="""DATA"",396.18,202,3,338,0)"
^XMB(3.9,23,2,5414,0)="M$PH8B^HW8SY8^X<X6!EH9<0^R[FT=7#.-Z4&Z\2Z?1-WH&!/I(5VH=RKV\8T"
^XMB(3.9,23,2,5415,0)="""DATA"",396.18,202,3,339,0)"
^XMB(3.9,23,2,5416,0)="M_F%\YI+K!G]5A-51<+49<`""GQGP`9P8PB4FY>X#TZ3%'.C^H&P47-KW,IE&\"
^XMB(3.9,23,2,5417,0)="""DATA"",396.18,202,3,340,0)"
^XMB(3.9,23,2,5418,0)="M)72C[!*QN>-SWBQC?8JZLRY=Q<7`89.8K>`@L1QI)9&LR\!COZ>3;`QHO:2<"
^XMB(3.9,23,2,5419,0)="""DATA"",396.18,202,3,341,0)"
^XMB(3.9,23,2,5420,0)="MP_XPU7K6QJ9308:-O.*+UEXP98A""*5\5F32FW*GX1*B[G7KC0L'QPT/4LGX["
^XMB(3.9,23,2,5421,0)="""DATA"",396.18,202,3,342,0)"
^XMB(3.9,23,2,5422,0)="M>@JEF!#*=8SE&1&6K-S)X$AXPM]PMNU^STI:-!AIZ(I]6N&*X0"".C-FO<VD#"
^XMB(3.9,23,2,5423,0)="""DATA"",396.18,202,3,343,0)"
^XMB(3.9,23,2,5424,0)="MMP+IVT\1!8D)D7Q/X6BT`9*<W(B<I+.KA4W_HNV'M#`/M1R:Z6AH,A#-RPI'"
^XMB(3.9,23,2,5425,0)="""DATA"",396.18,202,3,344,0)"
^XMB(3.9,23,2,5426,0)="MB0K1I`9$PY!ORZ&9B88F""]&0#51[4;A:Y/37.8IF*XP\$B)PU%>*L(](GZ<["
^XMB(3.9,23,2,5427,0)="""DATA"",396.18,202,3,345,0)"
^XMB(3.9,23,2,5428,0)="MJ>G34-F3EA3::W2W>$D!*(S)J$L4]=[`6MI""FFUSO$V`70,8.YC5(P""J?7D'"
^XMB(3.9,23,2,5429,0)="""DATA"",396.18,202,3,346,0)"
^XMB(3.9,23,2,5430,0)="M>SI-$R)]8<R1[AX`*6FZ'4S>I1T6089#FH5#>G?,AW1V$*1P2+7[=HH/4U'N"
^XMB(3.9,23,2,5431,0)="""DATA"",396.18,202,3,347,0)"
^XMB(3.9,23,2,5432,0)="MF4(_M[;5KJ/DF=4GK4KD1'I#D$@?HUNMTBV-?F?DRPL.:2)Y:#^)\62$SYW3"
^XMB(3.9,23,2,5433,0)="""DATA"",396.18,202,3,348,0)"
^XMB(3.9,23,2,5434,0)="MKUR]MKJLKSC5S:;/7*\7F^5R1R*33W>&':>V-RR>I8'BXLTJZG&!^MS4_7[A"
^XMB(3.9,23,2,5435,0)="""DATA"",396.18,202,3,349,0)"
^XMB(3.9,23,2,5436,0)="M#0=5V_OW<:KEMG>SFN.2$'K`L1;^VG'][P>?V/Y7?4Z0H+TE+=D?`1T1)`WJ"
^XMB(3.9,23,2,5437,0)="""DATA"",396.18,202,3,350,0)"
^XMB(3.9,23,2,5438,0)="MUG@85Q[^,4B$.$#LHKU4P)\1Y""+`+M+8U)UFDA%>$""0C/,@?HFMDA?BBTXNE"
^XMB(3.9,23,2,5439,0)="""DATA"",396.18,202,3,351,0)"
^XMB(3.9,23,2,5440,0)="M*NK&MLSWJ<0^Z-U,</_?E%OBH]1T2YFIR2A=ZC8@F-4N-L6.Q\^I0#\-$HF#"
^XMB(3.9,23,2,5441,0)="""DATA"",396.18,202,3,352,0)"
^XMB(3.9,23,2,5442,0)="M>;P:SD1X#HZ2RH,'3T-R/=3IES@)Q""H713Q\!84DO%-)L0&7V]N1X9F&&#[$"
^XMB(3.9,23,2,5443,0)="""DATA"",396.18,202,3,353,0)"
^XMB(3.9,23,2,5444,0)="MT3F=!%Y*.9?R$0S""15PN?:.(B7N,8]$7F<P:RIUW+*Q26_<_&""@#/V?""9YWN"
^XMB(3.9,23,2,5445,0)="""DATA"",396.18,202,3,354,0)"
^XMB(3.9,23,2,5446,0)="M_BSTM;Y2P]G:&9@A1IL<OT*+P6XKX1Q>""[SUPCD<[72*:2#;@1MP+T;G\),X"
^XMB(3.9,23,2,5447,0)="""DATA"",396.18,202,3,355,0)"
^XMB(3.9,23,2,5448,0)="M*<EN=)`>3ANT2;+<T.^-AH`1U_L[F2#!*DRDI`)L^T+O(.H)/8QY2V@.GV`X"
^XMB(3.9,23,2,5449,0)="""DATA"",396.18,202,3,356,0)"
^XMB(3.9,23,2,5450,0)="M`]\7+?=QX)`$H=!_48&#[9W^1,*2<Q,=Y1PK-$(L)[=X-""1XXVT&T[9&6DD)"
^XMB(3.9,23,2,5451,0)="""DATA"",396.18,202,3,357,0)"
^XMB(3.9,23,2,5452,0)="MD""0E""?E/421!H3/!TW>@>%\T1#C_]]<*@^CK(D2Y?AW$!=MM!79<OV!FQ=,:"
^XMB(3.9,23,2,5453,0)="""DATA"",396.18,202,3,358,0)"
^XMB(3.9,23,2,5454,0)="M!Q-.J(PK-=K$WC.$B9UBI@/ILW5+.!VR?28,U#RKQ*H%S>.:#=MM2FJ$>?'N"
^XMB(3.9,23,2,5455,0)="""DATA"",396.18,202,3,359,0)"
^XMB(3.9,23,2,5456,0)="M@A7P4O#J]\M(;@BY4&GH`Z>S[EFAX,P^9YTO+-^R]S1""S3,8[0XZGVCU#U&P"
^XMB(3.9,23,2,5457,0)="""DATA"",396.18,202,3,360,0)"
^XMB(3.9,23,2,5458,0)="MY!CUUF,K2.;24E@.@*V@6*HWO+.)=/)6%(.2*;?9S\6(H$4I9XPM74+=_;Q1"
^XMB(3.9,23,2,5459,0)="""DATA"",396.18,202,3,361,0)"
^XMB(3.9,23,2,5460,0)="M:%:""XP+1`-(VI6CY8VU\IX\Y/""=OD&7RS..D=M&%/AYGPL=)*K=%^>=ED\!&"
^XMB(3.9,23,2,5461,0)="""DATA"",396.18,202,3,362,0)"
^XMB(3.9,23,2,5462,0)="MD'S<5!^/2S,*2$J:,WU8TSB8>T-^JO1;:\F$DVCEXBLA-6^8!G.1QH&%)K4:"
^XMB(3.9,23,2,5463,0)="""DATA"",396.18,202,3,363,0)"
^XMB(3.9,23,2,5464,0)="M20UEX7%[$3_N1T(C*R.=-QE&JJ$+I>_5'$4K8<OD5RH#Z%6A6LI+ILM26\O5"
^XMB(3.9,23,2,5465,0)="""DATA"",396.18,202,3,364,0)"
^XMB(3.9,23,2,5466,0)="MMRWR#];G)""B9DV&`B[9WX""B!]EN%`?FZ$*3<1OAN""M)NE39M1$-?]-G<:V7;"
^XMB(3.9,23,2,5467,0)="""DATA"",396.18,202,3,365,0)"
^XMB(3.9,23,2,5468,0)="M+])H66[)\H:PX3JUK?8P3AG$J[3!$'9%7&/].ZMQ\S;M=$S^N5,#/#>7A-U("
^XMB(3.9,23,2,5469,0)="""DATA"",396.18,202,3,366,0)"
^XMB(3.9,23,2,5470,0)="MY)ZK#>ZIGKIFUQOUR![J9'\>:B'1RRUUISJNLUG8#64!B^DP[Q?=M?+PBI"""""
^XMB(3.9,23,2,5471,0)="""DATA"",396.18,202,3,367,0)"
^XMB(3.9,23,2,5472,0)="MBLS&SZG,+=[#WV(/ZJU=;M=+=?&=\N!=PNKT#ZB\%_W6-4?W.X!LE$OU+=""9"
^XMB(3.9,23,2,5473,0)="""DATA"",396.18,202,3,368,0)"
^XMB(3.9,23,2,5474,0)="MT%OP=M53W+:WEH,/7+W4\'MSMYQR""UG$J/@+Y;SXU<)!TLAYW3MQ6*Y3+SBU"
^XMB(3.9,23,2,5475,0)="""DATA"",396.18,202,3,369,0)"
^XMB(3.9,23,2,5476,0)="M4L'WAA=+GII'*K]4ISS1Y_52$7%D6V77MC91&H""+.&26!1W^8$.`!$1&&P(X"
^XMB(3.9,23,2,5477,0)="""DATA"",396.18,202,3,370,0)"
^XMB(3.9,23,2,5478,0)="M`OJOQ\H-UZH[S6KP--_97/#9<X42RQE0]F%JC:AGQ-*'K4K%N>F]XE8[RJV3"
^XMB(3.9,23,2,5479,0)="""DATA"",396.18,202,3,371,0)"
^XMB(3.9,23,2,5480,0)="MS*W_06[]0\&MS]+""-RPA[Q#B9Q>7JB@&@6KCVD%9'-]PT009#['_8,D\Q#]D"
^XMB(3.9,23,2,5481,0)="""DATA"",396.18,202,3,372,0)"
^XMB(3.9,23,2,5482,0)="M[F*=>>4HFXT!-(FV1;S42WQ/OE0F)><Z7G[<#C*/_.8>S7)`IFJ5RWK#5U)Z"
^XMB(3.9,23,2,5483,0)="""DATA"",396.18,202,3,373,0)"
^XMB(3.9,23,2,5484,0)="MT+K2WM2=*@W#>-_T@S-@X_G?*(.NVUN7'``^K@'79>PXEN(ZE>)'PBT[DYA("
^XMB(3.9,23,2,5485,0)="""DATA"",396.18,202,3,374,0)"
^XMB(3.9,23,2,5486,0)="M-D;,SD=T6&^(YJ0T;V0A&E`%T?2H$.+'`<1)2""S:Q4.$G;W""IK;B49R$GHM\"
^XMB(3.9,23,2,5487,0)="""DATA"",396.18,202,3,375,0)"
^XMB(3.9,23,2,5488,0)="MYTS2)`AKY5N],28GLG6FF68POL5CW`(8)R&0.A7%O)VA'9PCF[BI_YNXW4Q<"
^XMB(3.9,23,2,5489,0)="""DATA"",396.18,202,3,376,0)"
^XMB(3.9,23,2,5490,0)="MP#B'?>9O!F(Z@\64YBV,F96P\U<7%T<2LKC>(!X.*G)CM&12`C:.#""2\(UQ)"
^XMB(3.9,23,2,5491,0)="""DATA"",396.18,202,3,377,0)"
^XMB(3.9,23,2,5492,0)="M=^@+GQ),OPGA063&!1N1<TAC/$-9=6@L5U5#WQ/FIV-:FB^/-+^TD\4^`TUB"
^XMB(3.9,23,2,5493,0)="""DATA"",396.18,202,3,378,0)"
^XMB(3.9,23,2,5494,0)="MPNW^@YB``S>5GA""#BU/R)K,J,Z3^D>KXM1!C:D+Z>$4)HJ<`V5),Y7R6IT@:"
^XMB(3.9,23,2,5495,0)="""DATA"",396.18,202,3,379,0)"
^XMB(3.9,23,2,5496,0)="MB)',RODL=;^_N869[<OZU5JIZI]>UTFJF+3',EQI^QD-Z%.L&E`-GAZZ&GQC"
^XMB(3.9,23,2,5497,0)="""DATA"",396.18,202,3,380,0)"
^XMB(3.9,23,2,5498,0)="M,-)1H@;W`1H&\-9Q6-X$=*%.93F[6JF5G;:_%TBH)O_/?P%02P,$%``""``@`"
^XMB(3.9,23,2,5499,0)="""DATA"",396.18,202,3,381,0)"
^XMB(3.9,23,2,5500,0)="MX5,?-1Z\?::+2```#[\""`!8```!G>6Y?0G)E87-T7S$Q,RYP;FPN9G)M[%WK"
^XMB(3.9,23,2,5501,0)="""DATA"",396.18,202,3,382,0)"
^XMB(3.9,23,2,5502,0)="M;]NXEO\^P/P/PNP'MWMG9D52SP*+BS9MIUWT$229*2X6%Q>T3""?:D25?24[J"
^XMB(3.9,23,2,5503,0)="""DATA"",396.18,202,3,383,0)"
^XMB(3.9,23,2,5504,0)="M_WY)R9;$ET3YA4EBY$OTL'3TX^%Y\S"";_A^)2NL3GI+D9KTD7^?OLWSQRKJI"
^XMB(3.9,23,2,5505,0)="""DATA"",396.18,202,3,384,0)"
^XMB(3.9,23,2,5506,0)="MSOSX@V5](O/2^F_K%VC;[/`F6]*C@/W[+9Z5=_0`A>SH`XEO[]B=`+'#""[PL"
^XMB(3.9,23,2,5507,0)="""DATA"",396.18,202,3,385,0)"
^XMB(3.9,23,2,5508,0)="MXRREQY//[ZY^>S?Y\0>2SG[\(>N\D+WJX]O!ET&G^S:(^M_VVS^^"".^B9_YU"
^XMB(3.9,23,2,5509,0)="""DATA"",396.18,202,3,386,0)"
^XMB(3.9,23,2,5510,0)="MB5.2(/JJZI_.JYSV/6[W-;[C<N]QZA=]B%-V-+G\>OG[Y82=>4/N2?(Q34E."
^XMB(3.9,23,2,5511,0)="""DATA"",396.18,202,3,387,0)"
^XMB(3.9,23,2,5512,0)="MST_OKW!<D%EU(<MG)+\NUPEA5XKK.+U-2$5MEF3L[BBYCI-[DK-S[[.T_/7B"
^XMB(3.9,23,2,5513,0)="""DATA"",396.18,202,3,388,0)"
^XMB(3.9,23,2,5514,0)="M#N<%82]X^^[]Z]\_W?SKXL/KJ^MW-^T=S4_?)#CZLSG?T/D+`,W)+WA!J@&X"
^XMB(3.9,23,2,5515,0)="""DATA"",396.18,202,3,389,0)"
^XMB(3.9,23,2,5516,0)="MMJYQ6EC7)(_GD^;REK3__2<[=8ESDI;L`CWU'B=%1>H-GGYEGT'/52/2@;0:"
^XMB(3.9,23,2,5517,0)="""DATA"",396.18,202,3,390,0)"
^XMB(3.9,23,2,5518,0)="M-.#""[O@UL$+?JX\[_-*""""SQ0GVB'<7,[/Y#_]28GN""A?66]C?)MF15Q,ZMN&"
^XMB(3.9,23,2,5519,0)="""DATA"",396.18,202,3,391,0)"
^XMB(3.9,23,2,5520,0)="MT=+C)2.&.J?UF(FHS8LW63+[9WU)C5[%A3)H$""(E:([G=D%#GB_`9OL"";%""&"
^XMB(3.9,23,2,5521,0)="""DATA"",396.18,202,3,392,0)"
^XMB(3.9,23,2,5522,0)="M[3^MRYP4E/#5=!&75IE9>#:CE)1Y3`IV6-X1>G&QP/EZ\UW?**=^RS%[YTV^"
^XMB(3.9,23,2,5523,0)="""DATA"",396.18,202,3,393,0)"
^XMB(3.9,23,2,5524,0)="MTE#^9E6660H\2GG]+T=Z0^N&=!_PI-<RHCO@@43Y14)POB&IPW>;)WU-+Y(X"
^XMB(3.9,23,2,5525,0)="""DATA"",396.18,202,3,394,0)"
^XMB(3.9,23,2,5526,0)="M^I.>^%Z__S=""YUP<56=[2?9U)'N]:/NN""'8HD5R#+-,,=Z;Y.LJS)'F3?0>4"
^XMB(3.9,23,2,5527,0)="""DATA"",396.18,202,3,395,0)"
^XMB(3.9,23,2,5528,0)="MZN:`(YPGVQ:HAH%`-H*;#_N#Y.7FB3C_]0JGMXR/?=M67;[)Z72A$JO#$Y;U"
^XMB(3.9,23,2,5529,0)="""DATA"",396.18,202,3,396,0)"
^XMB(3.9,23,2,5530,0)="M>E5F]2U=+I>EA(+E?9[CFX\)M\<;&1S""[8F6Z^WM*4'J""X/Q>C:+V?\XL:)L"
^XMB(3.9,23,2,5531,0)="""DATA"",396.18,202,3,397,0)"
^XMB(3.9,23,2,5532,0)="ML:`L7[S:#,T&9YDN!#5T`<@3%@""1+B<T(ZN175MBS,17GP#3""'TC(:84_GH1"
^XMB(3.9,23,2,5533,0)="""DATA"",396.18,202,3,398,0)"
^XMB(3.9,23,2,5534,0)="MUH.=*72N+4*'4""!AMQ5E7>RV9RQK\C&-DM6,6+,MFE8VI\.<UD->6`5A!U2F"
^XMB(3.9,23,2,5535,0)="""DATA"",396.18,202,3,399,0)"
^XMB(3.9,23,2,5536,0)="M52*.JHV2,8""%TYDUI_R:3:R_=9[VP(3BEEGP<IEGRSS&);'(=[R(4UR]GYXM"
^XMB(3.9,23,2,5537,0)="""DATA"",396.18,202,3,400,0)"
^XMB(3.9,23,2,5538,0)="MLRA+""BN>6RF)HJ+8/!_S3RL*)G""I7%TT&""M$:A^2CB&4`'DBEC!$9GQXF6?3"
^XMB(3.9,23,2,5539,0)="""DATA"",396.18,202,3,401,0)"
^XMB(3.9,23,2,5540,0)="MA""Q>%""^M>9XM*CV0DW^O2%%2B/*%A8LBBQ@*,^LAIL\N[RC*,T'S/AGF=760"
^XMB(3.9,23,2,5541,0)="""DATA"",396.18,202,3,402,0)"
^XMB(3.9,23,2,5542,0)="M`QYR1P(<&<JC:Y*P5S(6+&IE3'!TQ]B*C8,T""#OR#G""1X9<`B7>`&YA]R@MF"
^XMB(3.9,23,2,5543,0)="""DATA"",396.18,202,3,403,0)"
^XMB(3.9,23,2,5544,0)="MJEO0M?V7%AW1>$;!CN<QY93INIHSO^Y*?6AKJ'?L0!`CTD!XKD0]""GNE""/T,"
^XMB(3.9,23,2,5545,0)="""DATA"",396.18,202,3,404,0)"
^XMB(3.9,23,2,5546,0)="M*Z>SF^JUY2I?9G3B_DSQ7V9Y=:X:GPW'TV]KQ$LUAG%96/R\)_,Y_1@F>Y:8"
^XMB(3.9,23,2,5547,0)="""DATA"",396.18,202,3,405,0)"
^XMB(3.9,23,2,5548,0)="M/I4D:XO.&""HI2"",IZ&#?4[3H`S@Q,XL+/(WYIR5Q2;&\Q\FJ%C]T3M8$-63L"
^XMB(3.9,23,2,5549,0)="""DATA"",396.18,202,3,406,0)"
^XMB(3.9,23,2,5550,0)="M#C(P!EGBD=`W8Q$&[;O7%Q]:B3&H?$&H4R%.JPUJNGPH3\-PK`YA#JX5IXR#"
^XMB(3.9,23,2,5551,0)="""DATA"",396.18,202,3,407,0)"
^XMB(3.9,23,2,5552,0)="MH[N,#G$U_>*R.QE_VHA)ZU-<E#_14YC.X)Q4PI$?+[VHW'V<D""D>C2O0G<RN"
^XMB(3.9,23,2,5553,0)="""DATA"",396.18,202,3,408,0)"
^XMB(3.9,23,2,5554,0)="MV4A]7=:*[^>M<\`8C7+85C*9#)QC3""B2M#\(W?':?Q9';.*P(=I..VH`=""<L"
^XMB(3.9,23,2,5555,0)="""DATA"",396.18,202,3,409,0)"
^XMB(3.9,23,2,5556,0)="M,PGHV$;1:HFWFIU.VQF.DS4_<A:.ROB>3BFRQU""YQ@BXH63_&(Y4[5[\.CP<"
^XMB(3.9,23,2,5557,0)="""DATA"",396.18,202,3,410,0)"
^XMB(3.9,23,2,5558,0)="MGNG\5A!C:,8Z!F3XQF3(7&%(!C(@(S`F0YY%AF1``S)""4S)\M"",5H(^**M+E"
^XMB(3.9,23,2,5559,0)="""DATA"",396.18,202,3,411,0)"
^XMB(3.9,23,2,5560,0)="M=$->'1I$('P)B,8][@;!6E=,%<-2.\$*VTM""IK59W/9435K8GFA$O]^Y2X$0"
^XMB(3.9,23,2,5561,0)="""DATA"",396.18,202,3,412,0)"
^XMB(3.9,23,2,5562,0)="M[WZ1(LKC*;'>M6*#29&MG*=W?>W*C->-;)BTSS.S>?NMWAZ[U\CRU=J^>NNW"
^XMB(3.9,23,2,5563,0)="""DATA"",396.18,202,3,413,0)"
^XMB(3.9,23,2,5564,0)="MPQ@*U]?3CP(41P'X2#$.@;W#.&04_=PJXMN46I`1IC0W`ET4W\U0O.J@\""[%"
^XMB(3.9,23,2,5565,0)="""DATA"",396.18,202,3,414,0)"
^XMB(3.9,23,2,5566,0)="M=.!F([XTT'\H$C\4V?)W`AN:?V?-9ORWM.3W4-DW*<S(#)""""S%8=J74KU8??"
^XMB(3.9,23,2,5567,0)="""DATA"",396.18,202,3,415,0)"
^XMB(3.9,23,2,5568,0)="MF)%#NM.CLF:8B5H9I?%BB<5/Z@X/IUV9/VPP7!J%VXL0A"",&,E0P+`""!^4!>"
^XMB(3.9,23,2,5569,0)="""DATA"",396.18,202,3,416,0)"
^XMB(3.9,23,2,5570,0)="MD6*55&[!0Y;_*1E'XUF1&I2;N-[F7X-YY[B*KX""AXBN<[N!OLA24<4'0I?=["
^XMB(3.9,23,2,5571,0)="""DATA"",396.18,202,3,417,0)"
^XMB(3.9,23,2,5572,0)="M26DCLXUG*@W)7US,?:26NG+4V(6""_B2GHU70:R\X=OR26=<=:;/1`Q/NGL$;"
^XMB(3.9,23,2,5573,0)="""DATA"",396.18,202,3,418,0)"
^XMB(3.9,23,2,5574,0)="MOF3TPF*99&LRF[PT$;VJL.@`;[BC>*-CO0PQAQLHF`/8H6\R49\GU[PNF(JB"
^XMB(3.9,23,2,5575,0)="""DATA"",396.18,202,3,419,0)"
^XMB(3.9,23,2,5576,0)="M>,QBR@]LD*W92C`+ZK@DRU'1^TJ<S^*4NOZZ&_""TH$\A)""X6_""U?F4;L,M5G"
^XMB(3.9,23,2,5577,0)="""DATA"",396.18,202,3,420,0)"
^XMB(3.9,23,2,5578,0)="M)G@:N+O2T9CA@!'#.7T,YTH<YZH8+E3*5%O-<7YPYC@=QWTFBRQ?6TDFLM!;"
^XMB(3.9,23,2,5579,0)="""DATA"",396.18,202,3,421,0)"
^XMB(3.9,23,2,5580,0)="MLF6A*$LCELJK5+#(9]T`TY3<X?LXR_E[+C.*1!7D32PZ)B1G*CQ+Q==1AH\C"
^XMB(3.9,23,2,5581,0)="""DATA"",396.18,202,3,422,0)"
^XMB(3.9,23,2,5582,0)="MRH+K.G3^P'1@G!9EOE+>WE""WR&J#07L=IROZYAFAPYM+]VT,\J*.J""3QO-*]"
^XMB(3.9,23,2,5583,0)="""DATA"",396.18,202,3,423,0)"
^XMB(3.9,23,2,5584,0)="MS(6/<)ZOZ8&6S)S%`:0;KI>$5.&![7W\Y0\$LW'07O\C+I@EH+O\B?(2,Y:*"
^XMB(3.9,23,2,5585,0)="""DATA"",396.18,202,3,424,0)"
^XMB(3.9,23,2,5586,0)="MLLH8\!>_$?PG$P4LM#*G@W6[(CI0**PDO2WO7EFKY9).70I.3A8]*+8_H$.C"
^XMB(3.9,23,2,5587,0)="""DATA"",396.18,202,3,425,0)"
^XMB(3.9,23,2,5588,0)="M_\'O].-8$#).*=-0*`GE'/Z.]R2J^$!W_1+'J0AY,:??0E]'F?#X,@SVRS`V"
^XMB(3.9,23,2,5589,0)="""DATA"",396.18,202,3,426,0)"
^XMB(3.9,23,2,5590,0)="M7P`+'[-_3/1EH/`ED0-4XBO4B*_01'P=1SQ!C7BZR%9Y3/'Z0AY,A-,GIJ.T"
^XMB(3.9,23,2,5591,0)="""DATA"",396.18,202,3,427,0)"
^XMB(3.9,23,2,5592,0)="M,LC4M&D2Q>P11<%RQ]1X2I3#B*1AU(8K7$VX`K7Q""7W``KI[!BR0UE6V1S@>"
^XMB(3.9,23,2,5593,0)="""DATA"",396.18,202,3,428,0)"
^XMB(3.9,23,2,5594,0)="MOBI@$>[@*`NQ3G:X;(,6JZ*2I2RZJ7&4GV+0`O;X\K[D)*N\9`C0SD$+TOCV"
^XMB(3.9,23,2,5595,0)="""DATA"",396.18,202,3,429,0)"
^XMB(3.9,23,2,5596,0)="MP^B/#U-`6\]FCOAM4""'+`I4H0Z'RRU[G%8/EI!M]47_5WY\""3XV,-UQ<?OM\"
^XMB(3.9,23,2,5597,0)="""DATA"",396.18,202,3,430,0)"
^XMB(3.9,23,2,5598,0)="MA6=Q]EN>K9:0.>W\*6F$`M=DB)2""(/25KKOM=#[Y^BY[J""L*Y2_[GU51QO-U"
^XMB(3.9,23,2,5599,0)="""DATA"",396.18,202,3,431,0)"
^XMB(3.9,23,2,5600,0)="M95W*5]GI2SSC$L!\W=5=EA.SF,TC,+S[X@""I8.%\CI.9<"":C""%,#6K`D""548"
^XMB(3.9,23,2,5601,0)="""DATA"",396.18,202,3,432,0)"
^XMB(3.9,23,2,5602,0)="MHG64TY-I6>P0#`""C>`\.\QYPO8,S7W@:YJ./7B[I<)W9[V3L!T>Q'QIF/X@."
^XMB(3.9,23,2,5603,0)="""DATA"",396.18,202,3,433,0)"
^XMB(3.9,23,2,5604,0)="M+ON`?1KV>_>=Y%%<D#/[G8S]T""CV<X;9+Y0</03V%'[NB80?*SPZ:][3\9XS"
^XMB(3.9,23,2,5605,0)="""DATA"",396.18,202,3,434,0)"
^XMB(3.9,23,2,5606,0)="MAO<\;Q>K;T_F`[;OGX;YKJJ($I^>/#/@D1G0'27\W)U,O[W%'X""GX<"";'-^3"
^XMB(3.9,23,2,5607,0)="""DATA"",396.18,202,3,435,0)"
^XMB(3.9,23,2,5608,0)="MY&S\G9(!O3$,6,6]QAM_^^O?X#0,^)Z0V9G]3LE^_BCY%^Y@_$&$]F0^[S3,"
^XMB(3.9,23,2,5609,0)="""DATA"",396.18,202,3,436,0)"
^XMB(3.9,23,2,5610,0)="M]P:7=V?F.R7S!:.8+]@IYK<W]YW(^GO+%HF>V>^4[!>.8C]_M[#?OOP'P(EL"
^XMB(3.9,23,2,5611,0)="""DATA"",396.18,202,3,437,0)"
^XMB(3.9,23,2,5612,0)="MORQ.2'EFP)/&G>U1'.CM%OG;6P*BTW`@_:)L<6;`DS(@&*[H""+4%'9*P0ZKJ"
^XMB(3.9,23,2,5613,0)="""DATA"",396.18,202,3,438,0)"
^XMB(3.9,23,2,5614,0)="M6!BJBK4=J(ZU>.=ZCM'U'&!4`@&`'8QX3U%$X3FJPE;5N/H..J8,Z9]L_R!2"
^XMB(3.9,23,2,5615,0)="""DATA"",396.18,202,3,439,0)"
^XMB(3.9,23,2,5616,0)="MY7!W$'IK@E5U,6PN.,*<T*P.#Z7%FTC1I*""5SRU@""`5'7-\-E>N[57RNX?(>"
^XMB(3.9,23,2,5617,0)="""DATA"",396.18,202,3,440,0)"
^XMB(3.9,23,2,5618,0)="M'N]PN)Z_![A;'A/50%QDBVGV)OM>Y6,W_P\MUW=""DQ&!0!J1``9M`E933ZK*"
^XMB(3.9,23,2,5619,0)="""DATA"",396.18,202,3,441,0)"
^XMB(3.9,23,2,5620,0)="M*/?P9H.4ZN/J]B2AV-VE^;).7XYM\;G4$"",$\I>YBE5K[]A:T^XRVXGBBYH?"
^XMB(3.9,23,2,5621,0)="""DATA"",396.18,202,3,442,0)"
^XMB(3.9,23,2,5622,0)="M#O90T4\;I)XVPMHWSY:FC:?HJ=`6#[:#Y`-TGC:=O,IF('2=>%QU(Q[H^WLW"
^XMB(3.9,23,2,5623,0)="""DATA"",396.18,202,3,443,0)"
^XMB(3.9,23,2,5624,0)="MXKE(LH+(?7C0F#X\RIYA(%`T#0.U.;&9""2'?#(WO3X9J#?6,^X8!50LL7]TV"
^XMB(3.9,23,2,5625,0)="""DATA"",396.18,202,3,444,0)"
^XMB(3.9,23,2,5626,0)="M+`AZNH8UE7N]7</6:=,UC%JJMRE.HS6%ORBSIM_5X^X>YJN;AVV5R-8T%EJ'"
^XMB(3.9,23,2,5627,0)="""DATA"",396.18,202,3,445,0)"
^XMB(3.9,23,2,5628,0)="MR=@A"";LOJ\64#EDVMY8;Y)J:1ATMC@$MOC""?PW`,*4E\3ZQIG)=W3:)<8:CK"
^XMB(3.9,23,2,5629,0)="""DATA"",396.18,202,3,446,0)"
^XMB(3.9,23,2,5630,0)="MZ',-Z`,0[`76(B[8""H48WY)=2/1-2-PNQFXP#,90B*>LP4F6[D!>8#+""T+/%"
^XMB(3.9,23,2,5631,0)="""DATA"",396.18,202,3,447,0)"
^XMB(3.9,23,2,5632,0)="M3G7.&/HN?BE(M""N!)D/<B(Z&P&TC)3,""[_%MG%9+5Q@[YO$N`PT""):%--PP-"
^XMB(3.9,23,2,5633,0)="""DATA"",396.18,202,3,448,0)"
^XMB(3.9,23,2,5634,0)="ME-!@ME2++W:@*#2B2,3NB!0A8$*1-!N.B5&`C$@29<A127),2!+%[E$I<DTH"
^XMB(3.9,23,2,5635,0)="""DATA"",396.18,202,3,449,0)"
^XMB(3.9,23,2,5636,0)="M$I72<2BJ+;PJ=:TP-INU]-MU],&`L8F@J;$)=N_ZN/4G*QG!.Y=*>>:*\G8;"
^XMB(3.9,23,2,5637,0)="""DATA"",396.18,202,3,450,0)"
^XMB(3.9,23,2,5638,0)="M!Y%\RHZ/WP2[E/ZD[`1K?<E)6YPY:=,%D[9J9-*Z19.VB'W25M5-VKC;I$UX"
^XMB(3.9,23,2,5639,0)="""DATA"",396.18,202,3,451,0)"
^XMB(3.9,23,2,5640,0)="M3=H@Q""3LO*+SNLXRLQX40S,4J9>]`XQ>H.?&86R]1XXMM,VP;7JTC&-1>Q]L"
^XMB(3.9,23,2,5641,0)="""DATA"",396.18,202,3,452,0)"
^XMB(3.9,23,2,5642,0)="MP0D8UPPD8`92B';!"".Z#$7SL_`<-YS;R=L'6V0=;Y[%CBPSG-@QVP78ON1D\"
^XMB(3.9,23,2,5643,0)="""DATA"",396.18,202,3,453,0)"
^XMB(3.9,23,2,5644,0)="M4FQ9_-'UN4""DVCB29($GNGC;8&H74]2'Z6'C'%`1YY""#D<I0I#80V80A=4'("
^XMB(3.9,23,2,5645,0)="""DATA"",396.18,202,3,454,0)"
^XMB(3.9,23,2,5646,0)="MWA""D&.C3H!\8H""^+""R/XW3/\;;1>`W]H`+\L48S@#\_PMY5%:O@]VP!^R9TP"
^XMB(3.9,23,2,5647,0)="""DATA"",396.18,202,3,455,0)"
^XMB(3.9,23,2,5648,0)="M0M\_H]\&N#7H`Q/9([DA)O![9^;OE!1K9(]G(GLD3\6(^\$9_DY-3T\""S5<D"
^XMB(3.9,23,2,5649,0)="""DATA"",396.18,202,3,456,0)"
^XMB(3.9,23,2,5650,0)="MT.JFA!OA`[KY,Q?Y7/X,0ON9Y\^@*N+F:4*W+L?:8IA4#KCU)]`^DZKK$TZL"
^XMB(3.9,23,2,5651,0)="""DATA"",396.18,202,3,457,0)"
^XMB(3.9,23,2,5652,0)="MZ_5B66:+I['_CF^KM]]QN,B@.S[CTN)5;/#JS9XAS2`&?A\A`!BD+L1NJS4Y"
^XMB(3.9,23,2,5653,0)="""DATA"",396.18,202,3,458,0)"
^XMB(3.9,23,2,5654,0)="M.\11JS)X5=)^VUMEVX]'H-(3MRK:K@D:CJ/N'D;]>K5I9L?D?G/0,\BNF/F#"
^XMB(3.9,23,2,5655,0)="""DATA"",396.18,202,3,459,0)"
^XMB(3.9,23,2,5656,0)="M8OBWS04VLA^T7E=/GSJE0ZMW7U]/9ZP:E>68*-5L>X5.@[=)/2&MZFTYUV-P"
^XMB(3.9,23,2,5657,0)="""DATA"",396.18,202,3,460,0)"
^XMB(3.9,23,2,5658,0)="M\@6O""M*V'YO\01]3=GNA3=XMLNVV.'=LTY_.CR])<A]'UGR5)/Q3+ZH[6;/\"
^XMB(3.9,23,2,5659,0)="""DATA"",396.18,202,3,461,0)"
^XMB(3.9,23,2,5660,0)="M:?9`$NL.3^-.2TR^W9>NU5<]*5GYW0:\KGI1GE4'H6_B92M'OL7I+'O8C&F6"
^XMB(3.9,23,2,5661,0)="""DATA"",396.18,202,3,462,0)"
^XMB(3.9,23,2,5662,0)="MWK)![F=D9@!`M240>'W<`.5,M8H;G+,E(-C!ZMWWH*J2IG;\MIL_<9:`S5L"""
^XMB(3.9,23,2,5663,0)="""DATA"",396.18,202,3,463,0)"
^XMB(3.9,23,2,5664,0)="MF_;&S]@20,K<F]C'N^'MH,<4`'!D+<UG7#P-Y0^0IN""B=ULUQZ"">X5,6=9;3"
^XMB(3.9,23,2,5665,0)="""DATA"",396.18,202,3,464,0)"
^XMB(3.9,23,2,5666,0)="MZUX/U95/P+/[W@\`'*WT$XZ>45K?<S1:'PA!]D&M;Y]0ZP.]VN='UQ%-*BCN"
^XMB(3.9,23,2,5667,0)="""DATA"",396.18,202,3,465,0)"
^XMB(3.9,23,2,5668,0)="M1QE(<A[9X/!:OZ(NNV^W8J3GKJI?""R>K&\O5E(CW\>=^+TF^*JPHRY>K1ZRM"
^XMB(3.9,23,2,5669,0)="""DATA"",396.18,202,3,466,0)"
^XMB(3.9,23,2,5670,0)="MD5I;\U-$'$0$`H-!A&=E;:*LJZ77DK(&G5UYZW[S#?B^X+;7JS6>L;)VU-)?"
^XMB(3.9,23,2,5671,0)="""DATA"",396.18,202,3,467,0)"
^XMB(3.9,23,2,5672,0)="M74WD]NEJZ+CC=/4?FVHUU@*8T%?@/_$M>1K*&[H[*._`P&&NA'I9%9S6>/77"
^XMB(3.9,23,2,5673,0)="""DATA"",396.18,202,3,468,0)"
^XMB(3.9,23,2,5674,0)="MO7H&9``0BGNSCM7A.ZAN5^.P-VM1ME5]X5]*=4-3U2U,#@1%4'U;E/HP.(+J"
^XMB(3.9,23,2,5675,0)="""DATA"",396.18,202,3,469,0)"
^XMB(3.9,23,2,5676,0)="MOL!T@*BZK;9OC',RZVCF^DS!.OYG^93QU0*SEN>-""\YZI5<-6'%J.589+^C-"
^XMB(3.9,23,2,5677,0)="""DATA"",396.18,202,3,470,0)"
^XMB(3.9,23,2,5678,0)="MK/GW#*_'/0:R/=R$)UB3_PC9WZ@')?46II0>*-#3>1!G1_R5[`5EFD68C6+U"
^XMB(3.9,23,2,5679,0)="""DATA"",396.18,202,3,471,0)"
^XMB(3.9,23,2,5680,0)="MH8)S/)ESSO:""F;W@J*+\=B?,OPFMM9MW.KQW7R?@1QL,S?.>H@WA*G6@K2[_"
^XMB(3.9,23,2,5681,0)="""DATA"",396.18,202,3,472,0)"
^XMB(3.9,23,2,5682,0)="M=3@;`D@I76?DXIDZ--C9!.""1FPZVVG3@0X""BD'`-5H*\KS;P3:.USF2HM:&C"
^XMB(3.9,23,2,5683,0)="""DATA"",396.18,202,3,473,0)"
^XMB(3.9,23,2,5684,0)="M4<PA1T#@#""U^\XSKD?<N1];6T?*@.<%`JD2N!H,H/%0Q\M<HPD45WVY5YV9("
^XMB(3.9,23,2,5685,0)="""DATA"",396.18,202,3,474,0)"
^XMB(3.9,23,2,5686,0)="MRDY`N]KD8I6MBDZEECIA.>CZU'JB91&/EV3UML3/V/7QE.MT-&'*;6>&[?ZD"
^XMB(3.9,23,2,5687,0)="""DATA"",396.18,202,3,475,0)"
^XMB(3.9,23,2,5688,0)="MHN_CCTY99DN\*IY:SC+01""WY5&$H1@UMHZ3E%C&CK*6C6:/C@EY2`C`Z@+G0"
^XMB(3.9,23,2,5689,0)="""DATA"",396.18,202,3,476,0)"
^XMB(3.9,23,2,5690,0)="M439N)0C4Q#(%^Q""Z!UMV?`""'R-?[0]R0N^[0VD5/\H>`9Q_>'_J0E=8\P<5="
^XMB(3.9,23,2,5691,0)="""DATA"",396.18,202,3,477,0)"
^XMB(3.9,23,2,5692,0)="M-[_X,<_C$@N[0DVV\8E9ON:SCH\NJZ@N[.5G@CA""R'4,1NA<7F3D=W@*7>UU"
^XMB(3.9,23,2,5693,0)="""DATA"",396.18,202,3,478,0)"
^XMB(3.9,23,2,5694,0)="MHY0.KZHA'Z6LM<O9Z9#JZ:12%:7,]X4::H'1`SA.=]_D>+7`+*)!SY*(0G#+"
^XMB(3.9,23,2,5695,0)="""DATA"",396.18,202,3,479,0)"
^XMB(3.9,23,2,5696,0)="M>((J\J)DFQ[E5GWG412Z>V*%KEE7W5N#U.S""W*=$;]9+\G.3_*LVT)OADKPH"
^XMB(3.9,23,2,5697,0)="""DATA"",396.18,202,3,480,0)"
^XMB(3.9,23,2,5698,0)="M7E:[2%48OSH*A&`G""$>""MRE+LG5*G0,0VFAH>6=_6=)?'J`#>7S57GK*A1(\"
^XMB(3.9,23,2,5699,0)="""DATA"",396.18,202,3,481,0)"
^XMB(3.9,23,2,5700,0)="MH&*EN.-+)3*.'$5K5LL\(\5E#U3#J,IB:^=_LQ[([FHNI_:Q6Y3K6IEG[&0&"
^XMB(3.9,23,2,5701,0)="""DATA"",396.18,202,3,482,0)"
^XMB(3.9,23,2,5702,0)="MRB""/JUD:[W+)#U&LHI&*ZCVU#E<)?AIQ,5>34K/Y(GDA6Q2:*2*F<N8U6OUE"
^XMB(3.9,23,2,5703,0)="""DATA"",396.18,202,3,483,0)"
^XMB(3.9,23,2,5704,0)="M,4C3U4:0Y[XX<OYHK[)4D37*H_0UC:Q`P-M#``XIGY.FV'I<2KZP0ER.$HH@"
^XMB(3.9,23,2,5705,0)="""DATA"",396.18,202,3,484,0)"
^XMB(3.9,23,2,5706,0)="M>U`NK`@/[U)>T0=DV]8K<V[.51O<DO(N%Z];+[*4[9-)V%[;+X?O7C`O<YFH"
^XMB(3.9,23,2,5707,0)="""DATA"",396.18,202,3,485,0)"
^XMB(3.9,23,2,5708,0)="M?O+8O%%'N=1+F$&[#6YP]D:-LF""V*@M6[S""L*G%%=1/%=DKXS[UJ)E0IAU""]"
^XMB(3.9,23,2,5709,0)="""DATA"",396.18,202,3,486,0)"
^XMB(3.9,23,2,5710,0)="M7D.H1108N^DJ:*K4WR3U;B`%1;M\(""2U+NFG9+-'%C]6;G2JT;JAIA:5;Y'C"
^XMB(3.9,23,2,5711,0)="""DATA"",396.18,202,3,487,0)"
^XMB(3.9,23,2,5712,0)="M'R$E5K]>8ZSQF4SQ_8Y!(+GJ6QV7`QDYI*ER!;;/<Y8WI,?1""?5XH%7C`G`N"
^XMB(3.9,23,2,5713,0)="""DATA"",396.18,202,3,488,0)"
^XMB(3.9,23,2,5714,0)="M&JIR]>2\'#R""'O_$[FSUZF<ZS5:+]O@#P?=KZR&F1$9)UEUETE[)5N7FXB&J"
^XMB(3.9,23,2,5715,0)="""DATA"",396.18,202,3,489,0)"
^XMB(3.9,23,2,5716,0)="M3\#!].XV.^KK,J7\7!H>$D6J%`:'2I5>4=""23B""^39UVSVZ3I_3<4*I4I>_<"
^XMB(3.9,23,2,5717,0)="""DATA"",396.18,202,3,490,0)"
^XMB(3.9,23,2,5718,0)="M;F]4+OSJ`=Z)=>KF6^?PJ]S$2(H6JIL'0L09=Z)WY-CC5.#U*K\E3Z1-JJ->"
^XMB(3.9,23,2,5719,0)="""DATA"",396.18,202,3,491,0)"
^XMB(3.9,23,2,5720,0)="M7(E`R#<;%CO9N.,75U+4JCAUR?937+1E!^8-]!RU(G90+ZTFSN^U1%QAY20B"
^XMB(3.9,23,2,5721,0)="""DATA"",396.18,202,3,492,0)"
^XMB(3.9,23,2,5722,0)="M\3V9Z;1CZS+JEU%R67M7M+TD&P&&DERCWO+A5<U-5M)OS;(EV].<>H^+M?6"""
^XMB(3.9,23,2,5723,0)="""DATA"",396.18,202,3,493,0)"
^XMB(3.9,23,2,5724,0)="MD=QQZU2W5&LI.O=03BOCH0>I;Q(?=8T3MK^UYAG""5?''FW6?R6JQU#Q`<8=$"
^XMB(3.9,23,2,5725,0)="""DATA"",396.18,202,3,494,0)"
^XMB(3.9,23,2,5726,0)="M0;Q@#NZ""WJ>C0KY#?,CG;!;/8\K,.9Y5_-3SN-Y[Q0=?#3_ORN`Q&QRF<;8L"
^XMB(3.9,23,2,5727,0)="""DATA"",396.18,202,3,495,0)"
^XMB(3.9,23,2,5728,0)="MM""AMKTHTD""6.JT:OT;HHLXCRH>IB-<;\Q9O5E!*6Q+>87[![00HJK'!J;1K;"
^XMB(3.9,23,2,5729,0)="""DATA"",396.18,202,3,496,0)"
^XMB(3.9,23,2,5730,0)="M=L!99XOZ([IWY_?5%T;Y.BLX(=PP[!U+@N7B+Z]7T[*Z_*)8+7,<;1[T4G/["
^XMB(3.9,23,2,5731,0)="""DATA"",396.18,202,3,497,0)"
^XMB(3.9,23,2,5732,0)="M%DGUU4>7?H>J@(<@X7>43=XYXM'7W*;V6H!NF6#(+V9TA0)!QV#QZ45""<'Y("
^XMB(3.9,23,2,5733,0)="""DATA"",396.18,202,3,498,0)"
^XMB(3.9,23,2,5734,0)="M!VI#,M)M0@!YDH?J,,W[PNZ_""0%2EB36P?!NV6CCHM<E$)TX\W//%@'E+@3`"
^XMB(3.9,23,2,5735,0)="""DATA"",396.18,202,3,499,0)"
^XMB(3.9,23,2,5736,0)="M4T>64-B7=&A:7QC9B#DIXMF*DL0T2$JR98*+1965CZDIUEAE_=D13Q.H<4#?"
^XMB(3.9,23,2,5737,0)="""DATA"",396.18,202,3,500,0)"
^XMB(3.9,23,2,5738,0)="MNC$/C#/_^:J++QM:'[LW4(7&U9HB[(N,.U(`$0*I4`LYX#FGME7)L5`C8!UA"
^XMB(3.9,23,2,5739,0)="""DATA"",396.18,202,3,501,0)"
^XMB(3.9,23,2,5740,0)="MRP!PL(8Q8&\!J]KD)>C$,7Q>O-8+,CL]JL!S%Z_J)E6:3@=\#V1QDQ=GM\6N"
^XMB(3.9,23,2,5741,0)="""DATA"",396.18,202,3,502,0)"
^XMB(3.9,23,2,5742,0)="M;^,BHA`]E86N0+/""E(L(0+'(&HTILFXVM=@BUQ\M!]J2JY#O!#6TL-2\CGJ_"
^XMB(3.9,23,2,5743,0)="""DATA"",396.18,202,3,503,0)"
^XMB(3.9,23,2,5744,0)="M>B9/*?1Y!!TA(.N$$OM!J9X)A<&YGDDT40=%*)_Y%""S4LP@%ZNX^KF;7F+X^"
^XMB(3.9,23,2,5745,0)="""DATA"",396.18,202,3,504,0)"
^XMB(3.9,23,2,5746,0)="M?W(GC`$9^GJ:9OF""BH*V""]F[[YC]TXE=//8R)TVS/<Y3%;>><TW*G)JF;#ML"
^XMB(3.9,23,2,5747,0)="""DATA"",396.18,202,3,505,0)"
^XMB(3.9,23,2,5748,0)="MG((T&Z?PWJ@G-:<.1\CY!2Z*RN$HEB2*Y^M]&@-5NU6I4J9(4`+@8$K`.4#I"
^XMB(3.9,23,2,5749,0)="""DATA"",396.18,202,3,506,0)"
^XMB(3.9,23,2,5750,0)="M4T_.E#-&`K$?H""LU!I)=`+NW$?*ANP4EV0.%Y=\K/,MQ=X%CW0Y(=[7ZZ6JY"
^XMB(3.9,23,2,5751,0)="""DATA"",396.18,202,3,507,0)"
^XMB(3.9,23,2,5752,0)="M[/FI[NHU""RPN5],XLHX:&X2'2\IRNPU7B2#5!L2-/>KWV52AR`%(M@?L;29#"
^XMB(3.9,23,2,5753,0)="""DATA"",396.18,202,3,508,0)"
^XMB(3.9,23,2,5754,0)="MM]6PL,UPBYB\PW!G0GQD'1E(3BQ<S>&_;UY""H5DMTL)D,X_N9L2=C8B'XWL\"
^XMB(3.9,23,2,5755,0)="""DATA"",396.18,202,3,509,0)"
^XMB(3.9,23,2,5756,0)="M7J[=#R&_RY.TFYX!@HYS7`3;SIE'0='N""3VH6X#S`EZ2.[Z)W#DWGA0W?U!7"
^XMB(3.9,23,2,5757,0)="""DATA"",396.18,202,3,510,0)"
^XMB(3.9,23,2,5758,0)="MY0TM$D-<*RLW%%I9!?YS-TW5O:R`;K.^H*?6'MHC_?LW5?_9)[66&P!D8-1#"
^XMB(3.9,23,2,5759,0)="""DATA"",396.18,202,3,511,0)"
^XMB(3.9,23,2,5760,0)="ML16%2;:_ANE%\;(WGJQ;)<%K0D=8ZQ,:%/Z]C7&>WQ%LS?D*P#%&L8=,J`L&"
^XMB(3.9,23,2,5761,0)="""DATA"",396.18,202,3,512,0)"
^XMB(3.9,23,2,5762,0)="MU8R""O(LLI6ID6:^,VX=$M=F./-0'((`&0\B*WJG_-=U4H^Y%I6=""I01D`$<4"
^XMB(3.9,23,2,5763,0)="""DATA"",396.18,202,3,513,0)"
^XMB(3.9,23,2,5764,0)="M>%:[!>,XG:^23:OH179/VHS&*'I]@VD!/'%5A0%;?MVY""_IFPD(3))NFNJ.J"
^XMB(3.9,23,2,5765,0)="""DATA"",396.18,202,3,514,0)"
^XMB(3.9,23,2,5766,0)="MB3@HYX2E7N(TJMJ5T+/DU>F4_$G6;_)F9-5HML>RA+""O.0Z`@29IT)A)-O""."
^XMB(3.9,23,2,5767,0)="""DATA"",396.18,202,3,515,0)"
^XMB(3.9,23,2,5768,0)="M8UJ^ET9*:UG^A49IM)%KLNJT-Q_DZMIO>)#7=N!@""??P`!$#6Q\Q<'ME/`H'"
^XMB(3.9,23,2,5769,0)="""DATA"",396.18,202,3,516,0)"
^XMB(3.9,23,2,5770,0)="MN]#""=@O1PP4'MIJ7:WG4*+L)MZBJHU^ZY6PJ*=YA""IGC'V?I4+/=H:,MVO;Z"
^XMB(3.9,23,2,5771,0)="""DATA"",396.18,202,3,517,0)"
^XMB(3.9,23,2,5772,0)="M>ZP$[F#5MFOOM=TA.&+7*S48KB$8H;<+&/Y1]RP].!B>#@Q!XXN<`8%O`(:W"
^XMB(3.9,23,2,5773,0)="""DATA"",396.18,202,3,518,0)"
^XMB(3.9,23,2,5774,0)="M#QCHY&#XAF""(G&$$!K""/NN/JH<""H^B.H(SF\=>H+(+A2W\6F_4]''YSW<NLL"
^XMB(3.9,23,2,5775,0)="""DATA"",396.18,202,3,519,0)"
^XMB(3.9,23,2,5776,0)="MZA^,1O:;C,+:K6!(7""%A<S>((#Q./+?M,5V;^5RGZ:[=B`:FA'H0/L?)C""O"""
^XMB(3.9,23,2,5777,0)="""DATA"",396.18,202,3,520,0)"
^XMB(3.9,23,2,5778,0)="M)CDN.SJZ6A1'%-%+U\A21P.6NNWU`A^:X.X?!7=ZH6C:-&NM])%H#P>%O7ZY"
^XMB(3.9,23,2,5779,0)="""DATA"",396.18,202,3,521,0)"
^XMB(3.9,23,2,5780,0)="MB@S%*A`70`[+50;E7DK&-Y>K6RY6K2JCQN(]A3DM<;X6[$I9'/?<S.U8E1?U"
^XMB(3.9,23,2,5781,0)="""DATA"",396.18,202,3,522,0)"
^XMB(3.9,23,2,5782,0)="M!ED6-?ZKHLIB>4>-4M:*FUFF5-`,+EMSE!T^.^6T#M_ALT:HA7O'<MJGO6Y-"
^XMB(3.9,23,2,5783,0)="""DATA"",396.18,202,3,523,0)"
^XMB(3.9,23,2,5784,0)="MV:S8TY0O^'P(:L]>Q1^K;?>JA19/9(=""=6@=]2^,EI;[(2G)WE$&E7LVK1QC"
^XMB(3.9,23,2,5785,0)="""DATA"",396.18,202,3,524,0)"
^XMB(3.9,23,2,5786,0)="MZZ<W*ZH\K,L\H[)B\1-KP1:QRF26>DR80\6B?/7%@B*%X\7$^EOS+""I=*(3Q"
^XMB(3.9,23,2,5787,0)="""DATA"",396.18,202,3,525,0)"
^XMB(3.9,23,2,5788,0)="MC.U:5ZW[F:V8Q&""I-XNT=20OBI>_6C=W<;%]5/WHA[C[K""1A/TNM*7WU/8X3"
^XMB(3.9,23,2,5789,0)="""DATA"",396.18,202,3,526,0)"
^XMB(3.9,23,2,5790,0)="M)KS8-G3L63^]S:(5DP<MH0^5]_>SA>E#<4[I[#YK7O]J<S-]Y/^W]Z7-;1S9"
^XMB(3.9,23,2,5791,0)="""DATA"",396.18,202,3,527,0)"
^XMB(3.9,23,2,5792,0)="MEG\%T?V!4C_97;G5HH@7'7JV/':$%XTDVS$?BT""1K#&`PE0!E.A?/YE96^Z5"
^XMB(3.9,23,2,5793,0)="""DATA"",396.18,202,3,528,0)"
^XMB(3.9,23,2,5794,0)="M""0($%SA>Q&L50?!6WLR;=SV'"";4HMO1KB\7;?\P:O@9L89@@WUX$C\]G'EI*"
^XMB(3.9,23,2,5795,0)="""DATA"",396.18,202,3,529,0)"
^XMB(3.9,23,2,5796,0)="MB3J^/IVO5+5D>'&J(?IO#M&_S>GE=IW7/%T\:*FFOWHKKD9.?YW^5J\4CH,3"
^XMB(3.9,23,2,5797,0)="""DATA"",396.18,202,3,530,0)"
^XMB(3.9,23,2,5798,0)="M_LX@@AXO#53X<93@\+?^6-R6Q9=9__)\$_$WYX]91PN;\K^ZF^7S^:[.VPQJ"
^XMB(3.9,23,2,5799,0)="""DATA"",396.18,202,3,531,0)"
^XMB(3.9,23,2,5800,0)="ML[L4WWI5;K<%1\#+OW6VV$<V?&+7D?-HPP$3?S;S^+/J'O+XL]#]9T'D\6<U"
^XMB(3.9,23,2,5801,0)="""DATA"",396.18,202,3,532,0)"
^XMB(3.9,23,2,5802,0)="M+7K\7?2MLXDTLQ*+R7\9)P?+!D;W'[]!$[V-;<73WAY.SNZ""YBX80<(!MNQ+"
^XMB(3.9,23,2,5803,0)="""DATA"",396.18,202,3,533,0)"
^XMB(3.9,23,2,5804,0)="MHFQ,E=AX3X:DOO%QA""=^XI5E""S@WE#MT-'\K?.B];Q[/QQ5TMX_S8J0'D7`*"
^XMB(3.9,23,2,5805,0)="""DATA"",396.18,202,3,534,0)"
^XMB(3.9,23,2,5806,0)="M'TG[.#*"".\LK2;3V<:W"":P#T.+>/:R86FY!$.GI>L0=6`=$64$=?.ND""2,R3"
^XMB(3.9,23,2,5807,0)="""DATA"",396.18,202,3,535,0)"
^XMB(3.9,23,2,5808,0)="M@Y8&8QGB*)YJ>YTDBV%4<[O5\S""BEKX)N1:M@D)E'KT=[3*%6,T4V-C<Y""&J"
^XMB(3.9,23,2,5809,0)="""DATA"",396.18,202,3,536,0)"
^XMB(3.9,23,2,5810,0)="M]%$A369VI$GH+)YJT/B8:&V/)#X&TN0R_]IV!55MU+B1=W2/1BFC/WPWH$4\"
^XMB(3.9,23,2,5811,0)="""DATA"",396.18,202,3,537,0)"
^XMB(3.9,23,2,5812,0)="MD<JGG$>?Z+T`*7(R>F""55A'KR)'D.!E=IB^>[;DI-RP@W-``>)T+35(!W;W\"
^XMB(3.9,23,2,5813,0)="""DATA"",396.18,202,3,538,0)"
^XMB(3.9,23,2,5814,0)="MNT3ZOM_7=??H=3``)#$""0`JA0MMM-8YHRZ$""@.?,HGZSF:&>(W.WF(R(I=&@"
^XMB(3.9,23,2,5815,0)="""DATA"",396.18,202,3,539,0)"
^XMB(3.9,23,2,5816,0)="M921T-*J?B'I&3&CFI*Q,&']$)C1BF23-T*-E0N/Y$C,56NJD0H,>^'[QHZ5"""
^XMB(3.9,23,2,5817,0)="""DATA"",396.18,202,3,540,0)"
^XMB(3.9,23,2,5818,0)="M`Q.=\W+>HP7>&:\#<&97T8V9$>'6XJ0KT,TJO$>@*?NQ:C;EECJ=?W>>3OVL"
^XMB(3.9,23,2,5819,0)="""DATA"",396.18,202,3,541,0)"
^XMB(3.9,23,2,5820,0)="M`/\L*4TLMW*I':211[-SOW`\Y2P/3UKSJQZR:/TRL0^8/75,WC)>WC>S%5V7"
^XMB(3.9,23,2,5821,0)="""DATA"",396.18,202,3,542,0)"
^XMB(3.9,23,2,5822,0)="M&R[379'7L_)J]M>Z^L+UFF\V=?6U9""R_G/S%+2ST$%:K0@^;T]W,GC?M3NM1"
^XMB(3.9,23,2,5823,0)="""DATA"",396.18,202,3,543,0)"
^XMB(3.9,23,2,5824,0)="M]SMTLPDR``^!H`K7`K+)^V$TBE2B(I_?S*@E6F_?S*[*Y;*O,K6+6*ZO6(3&"
^XMB(3.9,23,2,5825,0)="""DATA"",396.18,202,3,544,0)"
^XMB(3.9,23,2,5826,0)="M?O%-5VGYQ^]K_K-_S*[$""@,K?8T?GJVK;?<53#.;77/#O[797:[*OMX67G7!"
^XMB(3.9,23,2,5827,0)="""DATA"",396.18,202,3,545,0)"
^XMB(3.9,23,2,5828,0)="M/BNB@AE`G_'E3[O5BE7<J6YRN@@WLI'H!H>YTLJBZ5YC:\>.Y$)"":*E?(AFR"
^XMB(3.9,23,2,5829,0)="""DATA"",396.18,202,3,546,0)"
^XMB(3.9,23,2,5830,0)="M.U/W5)1,W_'_FGVH&5GUIW9%J?>?+Q9,15S`KL+5O57(0G<!MPV^!LG1?Z08"
^XMB(3.9,23,2,5831,0)="""DATA"",396.18,202,3,547,0)"
^XMB(3.9,23,2,5832,0)="M$JWVVB<*IR'-DGM""FD%;9E6>;4?Q%,%AGQ>>=JCBO45^ORBW;'.P_^_8RXE:"
^XMB(3.9,23,2,5833,0)="""DATA"",396.18,202,3,548,0)"
^XMB(3.9,23,2,5834,0)="M/]2JIIHCA:(TN0B9S#3""@RA6+\KVD"".#+R^_""^WK3#S664ND@]B""L3ZL,Q@S"
^XMB(3.9,23,2,5835,0)="""DATA"",396.18,202,3,549,0)"
^XMB(3.9,23,2,5836,0)="M02]HG;$3T#[UL@0@B\,M06MN+\S-@_>P7IDE&!S8`\W(''HTJ-O;[KX^9#S8"
^XMB(3.9,23,2,5837,0)="""DATA"",396.18,202,3,550,0)"
^XMB(3.9,23,2,5838,0)="MR0R\9!ZNLX,(C>Y5S>)X4A.G4,-DTT_A0.W=G\)L'&9YD7W*QKB91.P_8`3M"
^XMB(3.9,23,2,5839,0)="""DATA"",396.18,202,3,551,0)"
^XMB(3.9,23,2,5840,0)="M%""C>L#1WCLD9M%..E:$1""K]=7$NWC@SG,CF=,1$Q=PU(U#7^6,SIXC;/@GF4"
^XMB(3.9,23,2,5841,0)="""DATA"",396.18,202,3,552,0)"
^XMB(3.9,23,2,5842,0)="M+:`EYE.&&2*5+""HB/C/6JQ9FGOZS;I?M[8-9B(./JS(_E>\X:'):%3@^!$/I"
^XMB(3.9,23,2,5843,0)="""DATA"",396.18,202,3,553,0)"
^XMB(3.9,23,2,5844,0)="M/2!,L^C""]Y8?A$$F85`D4_9I9'E>TH`+W_F`/IG+_L->C'CTKE`N1$TB[Q!D"
^XMB(3.9,23,2,5845,0)="""DATA"",396.18,202,3,554,0)"
^XMB(3.9,23,2,5846,0)="M_^M0Q;;IM>LHA<5./&""@YI`2;5UC$AVE$/;=[(>2[NO64+V]F*YUL<^)Q:Y?"
^XMB(3.9,23,2,5847,0)="""DATA"",396.18,202,3,555,0)"
^XMB(3.9,23,2,5848,0)="MJRT?C2@:UB9Y>3?[X]W'W\2BI_(CEL'@.8ZA.]<?#L>T\%-3)?#>2Y\FQZE!"
^XMB(3.9,23,2,5849,0)="""DATA"",396.18,202,3,556,0)"
^XMB(3.9,23,2,5850,0)="M,AHC-L737@V/307`$8\-WLG4,!O0J+<T8,%AW'D(R^(4O.3PUUP7-I6%VYBW"
^XMB(3.9,23,2,5851,0)="""DATA"",396.18,202,3,557,0)"
^XMB(3.9,23,2,5852,0)="M*Z1(KB!4((BZ>U=W!<>%^[E<%4_$JS-""L5LRAC*6$%""2;ID'SN6'C[]]>/_Q"
^XMB(3.9,23,2,5853,0)="""DATA"",396.18,202,3,558,0)"
^XMB(3.9,23,2,5854,0)="M\T_O/SV+*@>T\.2F+BASGSSP'VRPJEK_-P#HZ9+#MV1*L<<2Q7C*.3*L4>MA"
^XMB(3.9,23,2,5855,0)="""DATA"",396.18,202,3,559,0)"
^XMB(3.9,23,2,5856,0)="M?""Z^;O^;A@FS?\\Z7IF+B?YQ8FQN%&A!LU@^_@K9=[NM7W(D"",U5D=BC+*(V"
^XMB(3.9,23,2,5857,0)="""DATA"",396.18,202,3,560,0)"
^XMB(3.9,23,2,5858,0)="M.V>!X+B_;XMZU[#)FV6^:9X)O#BV0""W)18YT#P""PXKHNBFY>C""^8NQ<DL34X"
^XMB(3.9,23,2,5859,0)="""DATA"",396.18,202,3,561,0)"
^XMB(3.9,23,2,5860,0)="M1MA5#]`S:<D#-H-8X2'D]5,A;:`&VVMJ#C]8-PB5<+,LML6;&6.^WEVWA<BV"
^XMB(3.9,23,2,5861,0)="""DATA"",396.18,202,3,562,0)"
^XMB(3.9,23,2,5862,0)="M<;\E(&'3LN5V)XS7_K2>=[\UU1N""D7&(=K1I4.),2!!1N!]?.N`W-`-^)^92"
^XMB(3.9,23,2,5863,0)="""DATA"",396.18,202,3,563,0)"
^XMB(3.9,23,2,5864,0)="M+TQDWL(IO-""IS!;_6/NOYV'1$DL/3>IJ&DA]""N1M.Z]'RW;GH%EJW[&S?0&"""
^XMB(3.9,23,2,5865,0)="""DATA"",396.18,202,3,564,0)"
^XMB(3.9,23,2,5866,0)="M$.H&*Z1W^[#\>Z+C`_LL%M*:)U$</""<T+EM9-!.][I8D$H(*96=\L+O@`-CB"
^XMB(3.9,23,2,5867,0)="""DATA"",396.18,202,3,565,0)"
^XMB(3.9,23,2,5868,0)="MG(3.@A26N.@[$=*GW+$.C$R.`15&541-/-]&0AZBW#`6R(5""I,)_X>IJUQ2S"
^XMB(3.9,23,2,5869,0)="""DATA"",396.18,202,3,566,0)"
^XMB(3.9,23,2,5870,0)="M=;78+?-ZG):;B?#WX[-WU*Z\:EZWO?1T""8LU&TT6?M[<K5;%5B0Y_)Y14+)/"
^XMB(3.9,23,2,5871,0)="""DATA"",396.18,202,3,567,0)"
^XMB(3.9,23,2,5872,0)="ML1ZAOTH)L&Q;Y_.^-W_-A12^ZFNY7++^E>7=:G.3+XIUM<FW-W<*?OE\F=^6"
^XMB(3.9,23,2,5873,0)="""DATA"",396.18,202,3,568,0)"
^XMB(3.9,23,2,5874,0)="M<R:\_8,?1::NR]:SU\@8GQ+0&4^G,:01MD7[?SAVJ-;4$NN^<@1L$R-Z$Y#2"
^XMB(3.9,23,2,5875,0)="""DATA"",396.18,202,3,569,0)"
^XMB(3.9,23,2,5876,0)="M9CRVS/;_;O]LU/]3PTDU6!JEO6Q*8]VBF$R@3;K^YAP!1S7YD*=\W=;H>]]D"
^XMB(3.9,23,2,5877,0)="""DATA"",396.18,202,3,570,0)"
^XMB(3.9,23,2,5878,0)="M""=\Z1!RM""]*MBS:M/5@8;251?ZN(I._#IT0SDPQ;W&5H+*;&86SHD:'""%/R"""
^XMB(3.9,23,2,5879,0)="""DATA"",396.18,202,3,571,0)"
^XMB(3.9,23,2,5880,0)="M6LZ*K_.RX2UUY7J^W''$@I&Z]@W'<""@EIM<+X8LZFMI7G/'TM>5##O)9\6,Z"
^XMB(3.9,23,2,5881,0)="""DATA"",396.18,202,3,572,0)"
^XMB(3.9,23,2,5882,0)="MIVQ_J-W'UW:`34=XXA"";C[%Y0\@I<ANC@>!L*%L#8FT3][Z/`3U5'N&)+L17"
^XMB(3.9,23,2,5883,0)="""DATA"",396.18,202,3,573,0)"
^XMB(3.9,23,2,5884,0)="M-R70'2ET4Q+=#-'?E-=KJKDYPZG(EUL&7L4^4JZY/_.?00AMM,>]^T2<)@FI"
^XMB(3.9,23,2,5885,0)="""DATA"",396.18,202,3,574,0)"
^XMB(3.9,23,2,5886,0)="MR1043B]]'`6O/<FTM<\2O[7'V:G7GC6V2FNO15J'U4E[]OJ_8SM@4%*7A7C!"
^XMB(3.9,23,2,5887,0)="""DATA"",396.18,202,3,575,0)"
^XMB(3.9,23,2,5888,0)="M.+^MN.&:4X9]G#+R`BL<CH(2-O86*<$$)*IOH1$^)KKW^P([_*;8+""((C8P6"
^XMB(3.9,23,2,5889,0)="""DATA"",396.18,202,3,576,0)"
^XMB(3.9,23,2,5890,0)="M(GR9E'F!2N:E#3U?<N;%R&?!%C8VH_$,G?7F01R8>21?_L^O0_+E/75CJCN."
^XMB(3.9,23,2,5891,0)="""DATA"",396.18,202,3,577,0)"
^XMB(3.9,23,2,5892,0)="MY_0CO?VK9S*`PQ;0`EPFAQF)DOL8&E=\1C=:*/]J/M^UR-:,S;Y=1'J+K>="""
^XMB(3.9,23,2,5893,0)="""DATA"",396.18,202,3,578,0)"
^XMB(3.9,23,2,5894,0)="M_#I[]:6DW\_F7U@L6K<_%T<W9DOFCW,TK)*'JLV,_A^#T^)]7^P'W[I@%/T'"
^XMB(3.9,23,2,5895,0)="""DATA"",396.18,202,3,579,0)"
^XMB(3.9,23,2,5896,0)="M./C:P.FUT>!/H`^%P'<YC<[[@+M<,6^;OM=57:UF7ZKZ+W:/\S<%\)MV:(A-"
^XMB(3.9,23,2,5897,0)="""DATA"",396.18,202,3,580,0)"
^XMB(3.9,23,2,5898,0)="MMU>+<""($]AII[/$:6#LC'M-""GPVB=U!R)O$/I1H(;:!F""O0UB#2<#!\F\%T]"
^XMB(3.9,23,2,5899,0)="""DATA"",396.18,202,3,581,0)"
^XMB(3.9,23,2,5900,0)="M(`O,=S4[4+-BL`![Z(#*""WUTH$J;>>RDSUVH.@JXGWR)SWK&*M6:QVI^UZW@"
^XMB(3.9,23,2,5901,0)="""DATA"",396.18,202,3,582,0)"
^XMB(3.9,23,2,5902,0)="M:`#V$S#SL%/*^J4>Y:_?FQTU2(IPUL$=>IHR8DEZ`@6RB1QL&GI_>H0^A\0$"
^XMB(3.9,23,2,5903,0)="""DATA"",396.18,202,3,583,0)"
^XMB(3.9,23,2,5904,0)="M!XDMJ82PW(>(5""A`C0\.9X;)P2U#ZV5F>[=N=^/0,Z4V8IM5'&-K@F<RPY-B"
^XMB(3.9,23,2,5905,0)="""DATA"",396.18,202,3,584,0)"
^XMB(3.9,23,2,5906,0)="MOP0/F\9DQZ7FTDJXMD:K9$U',8%5PSHVP<CB8BV>S(""?N/R>.)R\U@Q:I*QO"
^XMB(3.9,23,2,5907,0)="""DATA"",396.18,202,3,585,0)"
^XMB(3.9,23,2,5908,0)="M!K4(&&1^(K?7_?R@@F>VG0$CJ*1-2*I)3CPE-]G]?BO?]P52OYT""#0M/O'.K"
^XMB(3.9,23,2,5909,0)="""DATA"",396.18,202,3,586,0)"
^XMB(3.9,23,2,5910,0)="M;'2WF5V7MP5/`QQ(>!AA/^&!(6<UGMR)Q&M7%EMU/9JO-C=W#?M?KP>`U/N\"
^XMB(3.9,23,2,5911,0)="""DATA"",396.18,202,3,587,0)"
^XMB(3.9,23,2,5912,0)="M06+;^%DT_0X(A;W#IKF;WY0YC3CG]Q!>3EGQFV<RDZ6=8Z*]3$3T1!91$UDP"
^XMB(3.9,23,2,5913,0)="""DATA"",396.18,202,3,588,0)"
^XMB(3.9,23,2,5914,0)="MRH9`_FB)K-N""I:W6G858./.%QE4[1!HQLBN`M>O#B(4!4N^^_58:$X*NM""$$"
^XMB(3.9,23,2,5915,0)="""DATA"",396.18,202,3,589,0)"
^XMB(3.9,23,2,5916,0)="MIM5.+B9>U2_U.98AV(4/':4(Y>S&VK9'!KLC/!)D3Z=D/WB!XOVRO""X9SO3E"
^XMB(3.9,23,2,5917,0)="""DATA"",396.18,202,3,590,0)"
^XMB(3.9,23,2,5918,0)="MW2RG<2.U=0O!>+,X1*HPJ$:E/Y:OS9_2SZ_T0:FB:*\I'J`L`0]>EN!CU""PA"
^XMB(3.9,23,2,5919,0)="""DATA"",396.18,202,3,591,0)"
^XMB(3.9,23,2,5920,0)="MA:0,H-6""#""01$QLC,FV,;&IC^*1/7`D4:Z)P,E5H218ZTH5""PM"">,IQ(&IKF"
^XMB(3.9,23,2,5921,0)="""DATA"",396.18,202,3,592,0)"
^XMB(3.9,23,2,5922,0)="M<#UM/YJL8DP[0IE^&2-L4!QY,-L_1@K#C,1)KX/8H9.>78E=""9G63^AP21/="
^XMB(3.9,23,2,5923,0)="""DATA"",396.18,202,3,593,0)"
^XMB(3.9,23,2,5924,0)="MIXNQW[U`T(7'.QNLIXY6X5Z>GQE`Q_:&J@1P<!IQK0##Z(#\L;2&D#TG^G/"""
^XMB(3.9,23,2,5925,0)="""DATA"",396.18,202,3,594,0)"
^XMB(3.9,23,2,5926,0)="MGH-(_P%]QK[)\)-?*D;YS?[\\-/7'D8,FXU8IE;9$Q\;ADR7&R%G&^:P8:F'"
^XMB(3.9,23,2,5927,0)="""DATA"",396.18,202,3,595,0)"
^XMB(3.9,23,2,5928,0)="MDHB7D@#6NTIBPT5C.B5Q<E:20TG(0TFQQ1W0XB.#FI+84TWI64T.-6&/$CG7"
^XMB(3.9,23,2,5929,0)="""DATA"",396.18,202,3,596,0)"
^XMB(3.9,23,2,5930,0)="ME;%,+A?)(S6%IV7S8P47@OEKX$QJ-]Z8#@5DDPH`*KZSEP*2Z*P`'R(V'MQ:"
^XMB(3.9,23,2,5931,0)="""DATA"",396.18,202,3,597,0)"
^XMB(3.9,23,2,5932,0)="M\3T5G*)D2A':3#VU5-E]N-C(5#OOV)\E^5U?BF(,6R_4?T/^;Z%G%ZD/L/J`"
^XMB(3.9,23,2,5933,0)="""DATA"",396.18,202,3,598,0)"
^XMB(3.9,23,2,5934,0)="MJ`]B]4&B/DC5!YGZ@#IQZA.@/=&$!9JT0!,7:/(""36""@20PTD8$F,]1DAIK,"
^XMB(3.9,23,2,5935,0)="""DATA"",396.18,202,3,599,0)"
^XMB(3.9,23,2,5936,0)="M4),9:C)#36:HR0PUF:$F,]1DAIK,2),9:3(C?5-H,B--9J3)C#29D28STF1&"
^XMB(3.9,23,2,5937,0)="""DATA"",396.18,202,3,600,0)"
^XMB(3.9,23,2,5938,0)="MFLQ8DQEK,F--9JSO9$UFK,F,-9FQ)C/69,::S$23F6@RDU[FUQZ&""?@9)@BF"
^XMB(3.9,23,2,5939,0)="""DATA"",396.18,202,3,601,0)"
^XMB(3.9,23,2,5940,0)="MH/0-ABD!1V4B_F&W7+)V!)%CO-Y^(S_Z5""ROOE$*?/PQ*S^(0,9""GFQBR:`G"
^XMB(3.9,23,2,5941,0)="""DATA"",396.18,202,3,602,0)"
^XMB(3.9,23,2,5942,0)="ME;6^:+''HF%X5,9B:^AL#IS-8;,E:+:%S-:`V>ZUH,C8\R<O<(HFUQ?JZXO."
^XMB(3.9,23,2,5943,0)="""DATA"",396.18,202,3,603,0)"
^XMB(3.9,23,2,5944,0)="M;HL+4M&0S9L@<I"":UU0('D""@A352U,EQT&N$U%U7(5W>S7I;\)]P*H=I3EXP"
^XMB(3.9,23,2,5945,0)="""DATA"",396.18,202,3,604,0)"
^XMB(3.9,23,2,5946,0)="ML:O!I""^N<I88/,!8-[3XS/BD]K&FIOGAMK>AZYL',CR>3,(+VESS2VYC)6;H"
^XMB(3.9,23,2,5947,0)="""DATA"",396.18,202,3,605,0)"
^XMB(3.9,23,2,5948,0)="M\<P'244=3<>!T'@]@]X/G,G\9XD#^HE/$D,SD+R,[8G`\>@Q8AN8FC0'FX*#"
^XMB(3.9,23,2,5949,0)="""DATA"",396.18,202,3,606,0)"
^XMB(3.9,23,2,5950,0)="M<3X=`!(!6_DQ9$B$9++U5X=$2+)#02*,SA5SP)=WBG.%>/=LP_I+^0=FKS;T"
^XMB(3.9,23,2,5951,0)="""DATA"",396.18,202,3,607,0)"
^XMB(3.9,23,2,5952,0)="MZNJ9XU_/Q.""8;MP5]YKDWV!UI^7P5Q9Y26\T^5N$F5?^T_Z+JJMML58_.T70"
^XMB(3.9,23,2,5953,0)="""DATA"",396.18,202,3,608,0)"
^XMB(3.9,23,2,5954,0)="M@8Q\0ZD562;)%+ZAETZ;!XT\I+&%Y-C%6CZ`+/N:T%\*3EM.S>=W=;[:/'GF"
^XMB(3.9,23,2,5955,0)="""DATA"",396.18,202,3,609,0)"
^XMB(3.9,23,2,5956,0)="M\JZI%?L!NI!'0/.IC/8!MQN-8SDIKD)P9!80[<$/1!#@H_C1GPI&A+WE)`ZK"
^XMB(3.9,23,2,5957,0)="""DATA"",396.18,202,3,610,0)"
^XMB(3.9,23,2,5958,0)="M85?-^:[2&=$FX_9?RN5""C`T7;!Y0""MGIGW/C/IIQL+`1,D887$H2)Y%R_.(G"
^XMB(3.9,23,2,5959,0)="""DATA"",396.18,202,3,611,0)"
^XMB(3.9,23,2,5960,0)="ME\PDGQA9V+PEGR_;9VQ)L%??%?4M;VEZ?JS)V(<U63WP.`2Q9=XOGC]AL@W,"
^XMB(3.9,23,2,5961,0)="""DATA"",396.18,202,3,612,0)"
^XMB(3.9,23,2,5962,0)="M7R91@6#*DOI3I=^3,#F=)DS&BK!81^"")=0<P/1,F:[;42)B,!?RM=G!LG+J("
^XMB(3.9,23,2,5963,0)="""DATA"",396.18,202,3,613,0)"
^XMB(3.9,23,2,5964,0)="M95L:I2_=EIII)2VC5;(I55V_+!!^ZW>Z;QAHS6>&;#/[GBYQWA3/:AC4-@(&"
^XMB(3.9,23,2,5965,0)="""DATA"",396.18,202,3,614,0)"
^XMB(3.9,23,2,5966,0)="M)>.%E`1Q`KWQN!;MHDW0L*4>0F3JK*('*!@O1@3-[HWLR,C.CBS)A=7Y,SA%"
^XMB(3.9,23,2,5967,0)="""DATA"",396.18,202,3,615,0)"
^XMB(3.9,23,2,5968,0)="MB4-#97QXN*B?UE<%QU]ZU;Q^FD!(W84:V;BTI;`.[$,U<W""0^GZRCF--FK&;"
^XMB(3.9,23,2,5969,0)="""DATA"",396.18,202,3,616,0)"
^XMB(3.9,23,2,5970,0)="MH$SOI0X.(S4C%>NP:`;5&JLNNH^@GW?O:3!M-B""%?A,Q_7!JV4O]=L\A'FW\"
^XMB(3.9,23,2,5971,0)="""DATA"",396.18,202,3,617,0)"
^XMB(3.9,23,2,5972,0)="M4XU&7-*""*`H;#N2SR_>1>30=V(4&I;9LZV.""D1?J#$S0@X]@,"";U<EM*7;P?"
^XMB(3.9,23,2,5973,0)="""DATA"",396.18,202,3,618,0)"
^XMB(3.9,23,2,5974,0)="M[HIEM2XV-S7_R4-,2!P>N(GSW<66D1]UL^DJ`Q'R:.UF.H,7D[,]%K<=&=UV"
^XMB(3.9,23,2,5975,0)="""DATA"",396.18,202,3,619,0)"
^XMB(3.9,23,2,5976,0)="MF:DQ4AO0-.M""#'E;<J[D>K$#&)FB1)YE.8O;`7..1ZP%9G[)OKR153FSD40Y"
^XMB(3.9,23,2,5977,0)="""DATA"",396.18,202,3,620,0)"
^XMB(3.9,23,2,5978,0)="M*V$I#F6(;P/ZH23VO0*@^;0=^2SQB(=4&""V0)0'E,,X]VZ_B;;>*`XR+T\//"
^XMB(3.9,23,2,5979,0)="""DATA"",396.18,202,3,621,0)"
^XMB(3.9,23,2,5980,0)="M4@_I$L6ARW!`XF92CHYZ,;$XET`!1LFFLC7`U[F$]Z[:I;:BG;Q^1#TB&@V8"
^XMB(3.9,23,2,5981,0)="""DATA"",396.18,202,3,622,0)"
^XMB(3.9,23,2,5982,0)="MH6B'R""-@M=>;/(PY*B5/""J=>%R?ZZ^*7#`EG+DX:L_U$R%!!*=NOX)2A%U^;"
^XMB(3.9,23,2,5983,0)="""DATA"",396.18,202,3,623,0)"
^XMB(3.9,23,2,5984,0)="M1$;^0V""^U5+@R/4C#,,N-8$5_$,[LSQK\0C*^7-)4W7\$Y8DNYRVABHLE]YL"
^XMB(3.9,23,2,5985,0)="""DATA"",396.18,202,3,624,0)"
^XMB(3.9,23,2,5986,0)="M`1XFR0Z,;,HR#Z&:5<-:6@UBW6!'YR2[9L%,O%V90-O5-E..%DSNKH#)2\^Q"
^XMB(3.9,23,2,5987,0)="""DATA"",396.18,202,3,625,0)"
^XMB(3.9,23,2,5988,0)="M(R/7%['XY7'F(&\%""=ZOO4+`""'O:GC@A/E5*E=<J37V<W6U>MBCJ'6O#-6\'"
^XMB(3.9,23,2,5989,0)="""DATA"",396.18,202,3,626,0)"
^XMB(3.9,23,2,5990,0)="MW_)N@J*971;7^=KF`'._""AO-DM3RH;J^.-&""A)[F9S1+('[1K;.F!AMHN;)4"
^XMB(3.9,23,2,5991,0)="""DATA"",396.18,202,3,627,0)"
^XMB(3.9,23,2,5992,0)="MV#4E)M.!)$T=-N/$P4$BC?9S@/C=LBKAU$/=LF:""(Y/_VH+T=$5`J<!*6@=,"
^XMB(3.9,23,2,5993,0)="""DATA"",396.18,202,3,628,0)"
^XMB(3.9,23,2,5994,0)="M,/[[)66&J.-9W@=F'K<XM;!1(U?_2AS8LMSS8<U^N\WK,E_/WFWK:G/S3.JM"
^XMB(3.9,23,2,5995,0)="""DATA"",396.18,202,3,629,0)"
^XMB(3.9,23,2,5996,0)="M%NABY&Q:@TD2D`JYI&$XOR3F%6-O:'J^H>+K9IF7ZQ&E+V\7=H+N!]GLF$RJ"
^XMB(3.9,23,2,5997,0)="""DATA"",396.18,202,3,630,0)"
^XMB(3.9,23,2,5998,0)="M#?$CZ'/F,.?&1#ER]K>02.]OR70\^?-XB-;?8K*^(F5F""ERM@B!^Z2EQ9*:7"
^XMB(3.9,23,2,5999,0)="""DATA"",396.18,202,3,631,0)"
^XMB(3.9,23,2,6000,0)="M0]C""_""4Y#RIS?!S8*JB10CUQXYI:<.&1BYP<>Z29?^YXV]QM+#ZWH_K7`8`!"
^XMB(3.9,23,2,6001,0)="""DATA"",396.18,202,3,632,0)"
^XMB(3.9,23,2,6002,0)="MIKUU^Y>2-)Z-+5USA<TKE6,`H%(XGR3_/1;4B;T7![D8E76ZX#C2VQ:/P-W&"
^XMB(3.9,23,2,6003,0)="""DATA"",396.18,202,3,633,0)"
^XMB(3.9,23,2,6004,0)="MI?NY^D)7X'_O\D6=BSGPEM71]E-.A+;979;SI]G%PXO5Q$Q;[U06BB,/9<7G"
^XMB(3.9,23,2,6005,0)="""DATA"",396.18,202,3,634,0)"
^XMB(3.9,23,2,6006,0)="M8K5/5A^9N$<ZQC9QQFNP@FVU[5RL'F]F;&Y""SRR4S-C5>8I(.)LUW4*L2$V="
^XMB(3.9,23,2,6007,0)="""DATA"",396.18,202,3,635,0)"
^XMB(3.9,23,2,6008,0)="M]KD(I?W$[V@2^7"":9NHMF?ITG([C-0MAW=R7-K0,%43()5`WX^)Y;7-F01:"""
^XMB(3.9,23,2,6009,0)="""DATA"",396.18,202,3,636,0)"
^XMB(3.9,23,2,6010,0)="M78FU]'$$B$J[W=67^7I>-'M<ZHDM1(N@C(HT51UY""$;6810UL<)_R%5M-5.*"
^XMB(3.9,23,2,6011,0)="""DATA"",396.18,202,3,637,0)"
^XMB(3.9,23,2,6012,0)="M/:K:&3Y453MDR&IJ<HW3^3HFUV1:\D0]`]""69A-?'!QE<NW=XJ9@>83F(=$>"
^XMB(3.9,23,2,6013,0)="""DATA"",396.18,202,3,638,0)"
^XMB(3.9,23,2,6014,0)="ME,6+0Q8/:/U""$?!8/72<U6N::E[2;;.PG/FCK""ITN&=&+#O%7*@'#\;J_DM3"
^XMB(3.9,23,2,6015,0)="""DATA"",396.18,202,3,639,0)"
^XMB(3.9,23,2,6016,0)="M?07AV3WSH8?#T-AU,7IG4"":'0PHY7/3BFR[,J!H6\BXHMUVH5TH<.!+.O[7]"
^XMB(3.9,23,2,6017,0)="""DATA"",396.18,202,3,640,0)"
^XMB(3.9,23,2,6018,0)="MQ_-PRA+DX92I$XQIYCT%Y#%-V>6]4DMZ7$ZB$-6XIW[>&'/&&)LZ=\::CKFC"
^XMB(3.9,23,2,6019,0)="""DATA"",396.18,202,3,641,0)"
^XMB(3.9,23,2,6020,0)="M3Z>T#\N_)X:54.;CP&H<9'V&/R#/,ZY:V?N%UBR]I4$&05DLDDUEZ;/CNX`#"
^XMB(3.9,23,2,6021,0)="""DATA"",396.18,202,3,642,0)"
^XMB(3.9,23,2,6022,0)="M/U7F1W@.LFR:\!S[$YY[,MN<B/`<6F=>ID=>R%Z$YT%,YY%KM@5,,IU'7DSG"
^XMB(3.9,23,2,6023,0)="""DATA"",396.18,202,3,643,0)"
^XMB(3.9,23,2,6024,0)="M&0+DS'3^=)C.23I)5(%3A6Y;X\V!AKVALQ2QO1$_.KKMPU.=0^^U3X+77C<="
^XMB(3.9,23,2,6025,0)="""DATA"",396.18,202,3,644,0)"
^XMB(3.9,23,2,6026,0)="M_FN?O#B:>4=APEZ7D-T!J`&#ZY4ZH@13=*W1X0L3;.JE9MT5S`T2(LARPRS9"
^XMB(3.9,23,2,6027,0)="""DATA"",396.18,202,3,645,0)"
^XMB(3.9,23,2,6028,0)="M0IF)X;]P=<7Z!=;58K?,ZQ%,A/Y,JQ_29^_H===SW-Y0%Z!8,YLJ_+RY6ZV*"
^XMB(3.9,23,2,6029,0)="""DATA"",396.18,202,3,646,0)"
^XMB(3.9,23,2,6030,0)="M;7TG_@EJ1MFGV%WT5[D6*B7T@_F\9WA:<R&%K_I:+I>L_7EYM]K<Y(MB76WR"
^XMB(3.9,23,2,6031,0)="""DATA"",396.18,202,3,647,0)"
^XMB(3.9,23,2,6032,0)="M[<V=4DN9+_/;<LZ$MW]P^L9^@E48;*S""H!@[@3*QYEL1P]9,7_(<A;[2QKY*"
^XMB(3.9,23,2,6033,0)="""DATA"",396.18,202,3,648,0)"
^XMB(3.9,23,2,6034,0)="M)21088QC;?I*0PJ@""_T"">TXF<B<<LD+-G>`Q=8*D;N\$RH@J*'[QJ9/8#,)A"
^XMB(3.9,23,2,6035,0)="""DATA"",396.18,202,3,649,0)"
^XMB(3.9,23,2,6036,0)="MZ5O&,AFTBJ87V-U'WW;!Q/A$+3%U<I])XPFPH*C(K;Y*%$L\FOJZ9:(7JC,I"
^XMB(3.9,23,2,6037,0)="""DATA"",396.18,202,3,650,0)"
^XMB(3.9,23,2,6038,0)="MD5IZ3W#F$@``#ZKQ[_,[SE5_6Y4\.J+GIJAO\V4X(WIJ06L$L5/(""`3.J""[N"
^XMB(3.9,23,2,6039,0)="""DATA"",396.18,202,3,651,0)"
^XMB(3.9,23,2,6040,0)="MZ,U=YGL(B'P$C-7,#L""!`MX4JWR[IXB9CZ)!I/;!1'&@C,SW&2!P0R0$`%MF"
^XMB(3.9,23,2,6041,0)="""DATA"",396.18,202,3,652,0)"
^XMB(3.9,23,2,6042,0)="M?1.7FH^#YM.5>+U.AZ97XJ'77ZLYU^3LU3_9JG6'I`6:7;-?>QTN+C*?$R4G"
^XMB(3.9,23,2,6043,0)="""DATA"",396.18,202,3,653,0)"
^XMB(3.9,23,2,6044,0)="MID[[IM&TM#TRR[+%@=YC*0GPD`T2#8,O#4Y^;N\OJWE^:2`&M""PD0!YZ_Y.&"
^XMB(3.9,23,2,6045,0)="""DATA"",396.18,202,3,654,0)"
^XMB(3.9,23,2,6046,0)="M-C=MC%/0X(A>%@,:\!X%?&(!8U4L#X+15%>>?X]U=(""V/&`/?Q-7NS6`*BQ)"
^XMB(3.9,23,2,6047,0)="""DATA"",396.18,202,3,655,0)"
^XMB(3.9,23,2,6048,0)="MIF-DQ4>(?@<3-P9UO[>&3HA&V^OC0@#6FO.A=?HQ(?C\L3?B3S,^')A8K.`"""
^XMB(3.9,23,2,6049,0)="""DATA"",396.18,202,3,656,0)"
^XMB(3.9,23,2,6050,0)="MBGG$:M&,I)-]&""1""]R%A`2$D+#<T>M%(6-A#E80%S6YV9E(5U'U^@KP&64G("
^XMB(3.9,23,2,6051,0)="""DATA"",396.18,202,3,657,0)"
^XMB(3.9,23,2,6052,0)="ME/.ZWY(=E[?&B=+PS^R?60!2P[`@P'-!TFB?!0%'I66;6)`]EL/`$VQQTT""\"
^XMB(3.9,23,2,6053,0)="""DATA"",396.18,202,3,658,0)"
^XMB(3.9,23,2,6054,0)="MSWJ0H[)!'7*#\%Z3R`SED;A.""M0BDRS6+PA\[C7Q(4Z,/;=C^.F$""$)\G]TX"
^XMB(3.9,23,2,6055,0)="""DATA"",396.18,202,3,659,0)"
^XMB(3.9,23,2,6056,0)="MV>;T:[46[EP@F'*!D4[@>Q""IM3K&!MOF'!P7[.G%#""GZL2-*C:H&4""IA@9RL"
^XMB(3.9,23,2,6057,0)="""DATA"",396.18,202,3,660,0)"
^XMB(3.9,23,2,6058,0)="MD@?T;;KCF""]I[,9:AY<2V0OW=%HTV]+HS_0_[7YMMM@5[+9D27!>E]QU/U^4"
^XMB(3.9,23,2,6059,0)="""DATA"",396.18,202,3,661,0)"
^XMB(3.9,23,2,6060,0)="MMT7=C,/Z+,N^K=E%;/[>XSM%R<&<HK'*;?=LD=)HJ&X*I+7%F#9%^G"";HMFR"
^XMB(3.9,23,2,6061,0)="""DATA"",396.18,202,3,662,0)"
^XMB(3.9,23,2,6062,0)="M&EH_\KG9+,M<4M!/+*&S*K?T;[H^]F>1UUV-)K]LJOJ2?9RZP#18H+MC76V'"
^XMB(3.9,23,2,6063,0)="""DATA"",396.18,202,3,663,0)"
^XMB(3.9,23,2,6064,0)="M`&CX';'D[OSM%L-@1]7#(-BI*W9-EV2D9Z%NV\7LOX1O&[A<%OG=@?X:=PUQ"
^XMB(3.9,23,2,6065,0)="""DATA"",396.18,202,3,664,0)"
^XMB(3.9,23,2,6066,0)="M1Q,C_[7#_J'5X&YBYVN]/L#)2`]:3@+F(H<<^L?JX)B&TT<B[3B@,P5RJ[!L"
^XMB(3.9,23,2,6067,0)="""DATA"",396.18,202,3,665,0)"
^XMB(3.9,23,2,6068,0)="MHO)A[!J-!*RN&,M(-U`9MWWI9&S(S,P16892""'1`W837/MJZ\K/CY8C,24&,"
^XMB(3.9,23,2,6069,0)="""DATA"",396.18,202,3,666,0)"
^XMB(3.9,23,2,6070,0)="M7<#7/M""36O>HHP^RQ=ZQI$YEOE-5%$/_[V1ZLNL1T!I;@_)^'+O$.+CCCA/U"
^XMB(3.9,23,2,6071,0)="""DATA"",396.18,202,3,667,0)"
^XMB(3.9,23,2,6072,0)="MP9WL`:=Q,ZMO)&M<R_II10@#AP@""1QC&W:TV%U('C-+C\B$7FTZ>6IL'S#PX"
^XMB(3.9,23,2,6073,0)="""DATA"",396.18,202,3,668,0)"
^XMB(3.9,23,2,6074,0)="M?E5EH`AZ*.,\S>$'H4E,]S(1D*&1A*&)4@5#,WOQ""'1&EI?4?""W'SE%;$DT2"
^XMB(3.9,23,2,6075,0)="""DATA"",396.18,202,3,669,0)"
^XMB(3.9,23,2,6076,0)="M*PW[0[R=?RVJS3)O5LR9=_Q'?Z68TX7B4;'@OU_,/MTU]$#/_OTD)T/H`M(M"
^XMB(3.9,23,2,6077,0)="""DATA"",396.18,202,3,670,0)"
^XMB(3.9,23,2,6078,0)="M]6>=;P0S9[EE;=P[$L1.FDZ-+YHNV3*_7E<=?-%V1V.EV:OB:S[?NML?DM1#"
^XMB(3.9,23,2,6079,0)="""DATA"",396.18,202,3,671,0)"
^XMB(3.9,23,2,6080,0)="M(*#=1\BK_:%EAU@,DKU:K?Y]1_^;$""GS$4E=).A3!F=5W':""94&%:Y>*[K@M"
^XMB(3.9,23,2,6081,0)="""DATA"",396.18,202,3,672,0)"
^XMB(3.9,23,2,6082,0)="MFW6>O1K[V+O^1;><&?""0$T7JV(A'/??#DK,E+3J_R2T%LA``R?TK6JDVLI%Z"
^XMB(3.9,23,2,6083,0)="""DATA"",396.18,202,3,673,0)"
^XMB(3.9,23,2,6084,0)="MV_@]A(62U6BYX_P/!4X\%E)_`XV0V/`&[]D)X,H>WB/GB39NL.B-);[68O%F"
^XMB(3.9,23,2,6085,0)="""DATA"",396.18,202,3,674,0)"
^XMB(3.9,23,2,6086,0)="MMEJ]F1WHW3I'U<;)(P=(B$PYJ@CY.JK)H>A""W6/#,O`:3J<0E9`V\PJR[""A3"
^XMB(3.9,23,2,6087,0)="""DATA"",396.18,202,3,675,0)"
^XMB(3.9,23,2,6088,0)="MPW_FO!>^,X,LQKA>4[7_)YPH5)T5'G.^Z[_6U9>UDR)43P-!8T&'.!N0H-[K"
^XMB(3.9,23,2,6089,0)="""DATA"",396.18,202,3,676,0)"
^XMB(3.9,23,2,6090,0)="MJ@\/1]&YJ5C@HTDD.AKS.L?1U#H;T!&&BJK?M#A`TPJ'$9X2!.LM'E'\DIN;"
^XMB(3.9,23,2,6091,0)="""DATA"",396.18,202,3,677,0)"
^XMB(3.9,23,2,6092,0)="M]87.IA<:P<F3!3-]H5]@%WEL/UEP^F1!'7X#>)PLY$G/ANW""(9-P4&DEWD\Z"
^XMB(3.9,23,2,6093,0)="""DATA"",396.18,202,3,678,0)"
^XMB(3.9,23,2,6094,0)="MXBD=<8>[IOY[(B!+M;UE0P4`R<A2&+SX)+21!LD*^>B.=@-ST,^5)J(;[;:T"
^XMB(3.9,23,2,6095,0)="""DATA"",396.18,202,3,679,0)"
^XMB(3.9,23,2,6096,0)="MF&>R#4VT.""*9]L+_1=>.E20_[2Y7Y9:5""_/%@DI""31@-PN@_F;/6$7)<!'O8"
^XMB(3.9,23,2,6097,0)="""DATA"",396.18,202,3,680,0)"
^XMB(3.9,23,2,6098,0)="MP$8C#>74=1*KXUJ6<S\-%[X_S&XG<F;I6HWDKM4$AF>OVT4^/,0YM&7<%9;."
^XMB(3.9,23,2,6099,0)="""DATA"",396.18,202,3,681,0)"
^XMB(3.9,23,2,6100,0)="M?606`YG#GB.PUSF:R/<<A/^TNXRKK^S@#?]P\+BIXX8QT--U_5I7]=_#9?\M"
^XMB(3.9,23,2,6101,0)="""DATA"",396.18,202,3,682,0)"
^XMB(3.9,23,2,6102,0)="MXV#^BZ4UQ`""*7?[C1SZR""CO'>(],/S9^P[O=MFH_,I6MU^PUL0`U0*),NA,-"
^XMB(3.9,23,2,6103,0)="""DATA"",396.18,202,3,683,0)"
^XMB(3.9,23,2,6104,0)="MJ`%X<I/VUOJR8'(O./_#V&'NM\U<&\VZU3PVFV6[V3><%?,"");:5A,K<>J2!"
^XMB(3.9,23,2,6105,0)="""DATA"",396.18,202,3,684,0)"
^XMB(3.9,23,2,6106,0)="M!N#8#Y-#:+/XW)KJXBOO>-E435/217XS9*KX3^=E/=^M6._,O$NVE>NRA8*0"
^XMB(3.9,23,2,6107,0)="""DATA"",396.18,202,3,685,0)"
^XMB(3.9,23,2,6108,0)="MFS;R=7E5T,^QO]-T$P$]ZS5K02O7_W<W8FL\&Y79:(01C*=VOZ?&AL0=7==B"
^XMB(3.9,23,2,6109,0)="""DATA"",396.18,202,3,686,0)"
^XMB(3.9,23,2,6110,0)="M^]P6$$>^>SY+-8)@Y+>`+!1K&)0""W<//=!61;145-FNB6X[4TP;S<O!L7JU8"
^XMB(3.9,23,2,6111,0)="""DATA"",396.18,202,3,687,0)"
^XMB(3.9,23,2,6112,0)="M?K5Y.P7@HTY(C2<C55`X(("":9CV/QN<AWTM=T@U3[;X<V\2V@B!5X)!0#'5`"
^XMB(3.9,23,2,6113,0)="""DATA"",396.18,202,3,688,0)"
^XMB(3.9,23,2,6114,0)="MI,SS*,O-$PT#X""FN&-5VLS<Y>&R37#%`2:RMLI_0X-MG=EI`:KMHD<K^OO>B"
^XMB(3.9,23,2,6115,0)="""DATA"",396.18,202,3,689,0)"
^XMB(3.9,23,2,6116,0)="MP>>W:*G?/@,([+EFZ+FMF=6?`Y,F)8N""(,P""+(DQ'+>SP6=F,GC-OTETJYAF"
^XMB(3.9,23,2,6117,0)="""DATA"",396.18,202,3,690,0)"
^XMB(3.9,23,2,6118,0)="M/F3PT5CO\`5^8KGA1,H1V]T&H)U@@K$F5X(-<@D83X??C]""X'_6LL74W6C/'"
^XMB(3.9,23,2,6119,0)="""DATA"",396.18,202,3,691,0)"
^XMB(3.9,23,2,6120,0)="M0N[8OF<G\L>FL-BXS;LY`;;1C5!XZE:'!K@^!'5]1""9]'!$+[].6'141$XO&"
^XMB(3.9,23,2,6121,0)="""DATA"",396.18,202,3,692,0)"
^XMB(3.9,23,2,6122,0)="MG-<LT57>%LN[V9>J;J0?_[3:U-4M/5S20W&&X,N_J5>R*AL.&""U^2FJLL[?6"
^XMB(3.9,23,2,6123,0)="""DATA"",396.18,202,3,693,0)"
^XMB(3.9,23,2,6124,0)="MF08:33KHD""^5A([U1&3Z^ALPSS*#K6%F8$B<,G5?N""#V)K,H%E""W'A==F]:R"
^XMB(3.9,23,2,6125,0)="""DATA"",396.18,202,3,694,0)"
^XMB(3.9,23,2,6126,0)="MOM'>IB?&)+N8V#1ZHM""]D7J]NM$C'>""1NG\\PFV.[*(ZPB6!VOLE((NF+H.#"
^XMB(3.9,23,2,6127,0)="""DATA"",396.18,202,3,695,0)"
^XMB(3.9,23,2,6128,0)="MGZ3_556+V:L>UX:1KVV9H2D6K\4S\$->UL*G.GQ)>M`LG_]05>+GV9R-^,G#"
^XMB(3.9,23,2,6129,0)="""DATA"",396.18,202,3,696,0)"
^XMB(3.9,23,2,6130,0)="M040F1X:(G$0I!(FJ?QTBTJ1_#`SZ3X\.4S@?IE^%[IM^!,J)3VC9D/>'+8P]"
^XMB(3.9,23,2,6131,0)="""DATA"",396.18,202,3,697,0)"
^XMB(3.9,23,2,6132,0)="M3B!RG$#-/4NTU,/01""?Z9]""D@0P\^`E\MZ[JXJN`R,""6BI$=2D_^J.A%17];"
^XMB(3.9,23,2,6133,0)="""DATA"",396.18,202,3,698,0)"
^XMB(3.9,23,2,6134,0)="M?/9]F=?UC?PY/CI7;D1BXF[FBPMU+?:,CX^752.IZH?EKES,&.+B6OVB[XL-"
^XMB(3.9,23,2,6135,0)="""DATA"",396.18,202,3,699,0)"
^XMB(3.9,23,2,6136,0)="MOV?EI[]P<,)=DR]GC8R1U;[CLF*5NURV*=OR>B=?XO3&V=#;EHWF%;M:@3MD"
^XMB(3.9,23,2,6137,0)="""DATA"",396.18,202,3,700,0)"
^XMB(3.9,23,2,6138,0)="M]_Y?C`F2SZ1)W_]C63>[;=FLI#\Z7Q=[7>3WMDH`'MPL\4X+LQ.MYSST$X`2"
^XMB(3.9,23,2,6139,0)="""DATA"",396.18,202,3,701,0)"
^XMB(3.9,23,2,6140,0)="MW8L&(#.=`#AU`EZT=PV0[]4!XO""[`^AW!_&[.V`,C@]Q6_(+A/J5[&%;W>&W"
^XMB(3.9,23,2,6141,0)="""DATA"",396.18,202,3,702,0)"
^XMB(3.9,23,2,6142,0)="MR,35<?\[@DSYTQA:'6HUI,GTPE:LK_%8#A,6X9>""HUT__`$Y8CK$-'J[=SC0"
^XMB(3.9,23,2,6143,0)="""DATA"",396.18,202,3,703,0)"
^XMB(3.9,23,2,6144,0)="M*0/9E(&R]'#::%/<0U+Y^6H%1(=1""[:>D2@[G%H^*0#$STX=V7UC9OF:F`XQ"
^XMB(3.9,23,2,6145,0)="""DATA"",396.18,202,3,704,0)"
^XMB(3.9,23,2,6146,0)="ME,H\@D@#0@?Z]8XCTRT1'?66>,=1`EHD]#'%R5F]=S5;VC'J.$VP`<#4*<F("
^XMB(3.9,23,2,6147,0)="""DATA"",396.18,202,3,705,0)"
^XMB(3.9,23,2,6148,0)="MU7BI2=3]<S,_<3XM#A'>F-(RH\KWW&/,34PM.5>UR`B(GG,U)""P24XX/G7.N"
^XMB(3.9,23,2,6149,0)="""DATA"",396.18,202,3,706,0)"
^XMB(3.9,23,2,6150,0)="MM4!-(&+O&YM0,T,3:BQ,7+8N^=!S`)6)RS:W%-R$.IB)Y]B7VMHYK:G2/(0)"
^XMB(3.9,23,2,6151,0)="""DATA"",396.18,202,3,707,0)"
^XMB(3.9,23,2,6152,0)="M8>RD(H=A?:FM0RB$R$^[$Q59!MID1'AE9B+SF$?\L:I7#)QM-/_.P3IL83>5"
^XMB(3.9,23,2,6153,0)="""DATA"",396.18,202,3,708,0)"
^XMB(3.9,23,2,6154,0)="M\06(,AF9Q)Y@O--2=*VBMK;+1&EKGYP?BX\/=,!GZHVH=;+ZL(KGK<&!9?JP"
^XMB(3.9,23,2,6155,0)="""DATA"",396.18,202,3,709,0)"
^XMB(3.9,23,2,6156,0)="M6/H""B1,<PV003*\S2*)]%CJ[.,,4*/!!R$@Z*<(4$!D^*),OS39=<KXTI4L3"
^XMB(3.9,23,2,6157,0)="""DATA"",396.18,202,3,710,0)"
^XMB(3.9,23,2,6158,0)="M&(%H;(!""KE[H(8T8`I/M=0V`R$+P&,M@=BI@;18X76).)#S9JYQ;*./T(Y""&"
^XMB(3.9,23,2,6159,0)="""DATA"",396.18,202,3,711,0)"
^XMB(3.9,23,2,6160,0)="M<M3[$V?:5`:*-`N5Q.>K0$ZK$(N7@&3VSPQ/>0G^,.@A7H)J5.GW7!:+7ZMM"
^XMB(3.9,23,2,6161,0)="""DATA"",396.18,202,3,712,0)"
^XMB(3.9,23,2,6162,0)="M<5E5?[&;3'XB6%DH,/M*[#1$1FC#K>CT>Z8WQ?""A<5=LUY^+KUOQAZH%[)_;"
^XMB(3.9,23,2,6163,0)="""DATA"",396.18,202,3,713,0)"
^XMB(3.9,23,2,6164,0)="M3T[_""7ESB!8/""MICK_PAOR[D44I)75AW8J69,_N*#@,ED3Y=,ORQ:(*U,\&F"
^XMB(3.9,23,2,6165,0)="""DATA"",396.18,202,3,714,0)"
^XMB(3.9,23,2,6166,0)="MC,[8-#`]96*=,QF#>X])D]GL'1OAI\_R)=U7]!@-SRTS*/IER>!PGW[:;U""1"
^XMB(3.9,23,2,6167,0)="""DATA"",396.18,202,3,715,0)"
^XMB(3.9,23,2,6168,0)="M@1,6:)2PHM4=GW3^ROA@A%!)QX=CS@6/#_T6SKUTCL7S6C[K`KJ6T+R()CZ)"
^XMB(3.9,23,2,6169,0)="""DATA"",396.18,202,3,716,0)"
^XMB(3.9,23,2,6170,0)="MB/VGUPX,W&3&+)SL`P#QL2$IJI'?SNFN;68?B]M2R""R%K/S4VCLR7-[K[]""`"
^XMB(3.9,23,2,6171,0)="""DATA"",396.18,202,3,717,0)"
^XMB(3.9,23,2,6172,0)="M6P<V+7AE&*4LH_0_36<A[#"",><6ITS""@SCR?XP"",QZ$C@E';D4U-W,(Z0M,Y"
^XMB(3.9,23,2,6173,0)="""DATA"",396.18,202,3,718,0)"
^XMB(3.9,23,2,6174,0)="MR(RG`""#+*1""&!R0U&U(T@>*ER0'$@][BQ2!,/``/L7S(1[[VD*$XU,ZE48BA"
^XMB(3.9,23,2,6175,0)="""DATA"",396.18,202,3,719,0)"
^XMB(3.9,23,2,6176,0)="M0S9#]WTUW_&NKZXUM'GFM@[>S]:9*D2AFA.ZVN^ENO9N&L$0I*G]YZH_='C]"
^XMB(3.9,23,2,6177,0)="""DATA"",396.18,202,3,720,0)"
^XMB(3.9,23,2,6178,0)="MP6`%'N;H&:M^Q]4:>)H>ADEKP8[A&.?<2VO_LRN7""W,C_?/4'3BF=XB#G$,H"
^XMB(3.9,23,2,6179,0)="""DATA"",396.18,202,3,721,0)"
^XMB(3.9,23,2,6180,0)="MGCRW=XA@]MR\0VCW;TCB\&]D6]T7ELVG`25A+HZ$2TG]""&;1\B7C?R@K`>)A"
^XMB(3.9,23,2,6181,0)="""DATA"",396.18,202,3,722,0)"
^XMB(3.9,23,2,6182,0)="MPCTC::#X$`&C^""0.%?^NF5T6VR]%L=;$;_SEST+ECXW^;P(#Q9?2Z&^EHV_I"
^XMB(3.9,23,2,6183,0)="""DATA"",396.18,202,3,723,0)"
^XMB(3.9,23,2,6184,0)="MF;&_B=*'9&U#$G.:ON%W8O:<E=TF=!VGTKO8>Y,F^I-L/4KF5!ZGM:V:3;G-"
^XMB(3.9,23,2,6185,0)="""DATA"",396.18,202,3,724,0)"
^XMB(3.9,23,2,6186,0)="ME^7?O([/P""\Z""-K_2""(9NI0F6I(,;4E::Y+]VO33&MI3:P29U`8C$*0V"",""I"
^XMB(3.9,23,2,6187,0)="""DATA"",396.18,202,3,725,0)"
^XMB(3.9,23,2,6188,0)="MU';=`UK?,8UUO`;;.M^M\A/H#8;J#>Y[VHR1!(2!>HN2D^N-TW.-JNM@@5<G"
^XMB(3.9,23,2,6189,0)="""DATA"",396.18,202,3,726,0)"
^XMB(3.9,23,2,6190,0)="M4!Z>5AZ;I8R5T>HIBQ]EYB,6&56E:%""HM\$+B]R)QZ;K1C*Q83QS2GZ,#R-_"
^XMB(3.9,23,2,6191,0)="""DATA"",396.18,202,3,727,0)"
^XMB(3.9,23,2,6192,0)="M=*&JSG+/F?K0?;0-L:IL2+0GL?8DT9ZDVI-,?8(B[0G0GD#UB3)Y9-<7+]T2"
^XMB(3.9,23,2,6193,0)="""DATA"",396.18,202,3,728,0)"
^XMB(3.9,23,2,6194,0)="MI6]S2E$I""%$4RFR*`G[NQ&F2#*:VSXF`Q]'^J;2`3H='$ZV@M@[QJ:#6G8E`"
^XMB(3.9,23,2,6195,0)="""DATA"",396.18,202,3,729,0)"
^XMB(3.9,23,2,6196,0)="MAD0E-/J1L=F+A\2:2?JFVA3KEQ3(_E%RP#33KQPD/X&""51D?396V]-FQUP`'"
^XMB(3.9,23,2,6197,0)="""DATA"",396.18,202,3,730,0)"
^XMB(3.9,23,2,6198,0)="MKP$`X`$6@3S,(L@.'8\1]_'Q`#)[#L#BY&&308=(;,Y_""""?OW771<4?2L+I@"
^XMB(3.9,23,2,6199,0)="""DATA"",396.18,202,3,731,0)"
^XMB(3.9,23,2,6200,0)="M4?9UOK:Y<R3D@@?:%0NT*U9Y6?8$3U[#ICGTZ5T.HO""S/E`R''6?RWGJ@VYT"
^XMB(3.9,23,2,6201,0)="""DATA"",396.18,202,3,732,0)"
^XMB(3.9,23,2,6202,0)="M=U8/N;)Z$$&?#@@Q6!D[(,3%-)LUK?07.7(SF:&N9CYL@9F9=[=%W1(0UUT>"
^XMB(3.9,23,2,6203,0)="""DATA"",396.18,202,3,733,0)"
^XMB(3.9,23,2,6204,0)="MX4K/+\U>+?*[YK5WFBG&@:]BO%'2-.Q5WK<0H_0%Z.XI&""F/M\!I&B8P3(VK"
^XMB(3.9,23,2,6205,0)="""DATA"",396.18,202,3,734,0)"
^XMB(3.9,23,2,6206,0)="M#T!TCZSDAWPS:U9%7ON(W4=%Q!TAF60WIU!`&A8?Q62/^""@*,I]:6*-%+.H#"
^XMB(3.9,23,2,6207,0)="""DATA"",396.18,202,3,735,0)"
^XMB(3.9,23,2,6208,0)="MS71J`9463VGA5""I3F8=<G:G/S0D,%1]SG958(B%H4TGVL!?G,#0Y&HQYG:\V"
^XMB(3.9,23,2,6209,0)="""DATA"",396.18,202,3,736,0)"
^XMB(3.9,23,2,6210,0)="MS0F2(<`[='%?@L#D\()S[+)7V\)#N:P@VO/@`6*VXS$,.GD0G/[D]?`U)SA["
^XMB(3.9,23,2,6211,0)="""DATA"",396.18,202,3,737,0)"
^XMB(3.9,23,2,6212,0)="MQ/OL)>ZS9VIA2-#Y\/D>OO@A@V;H[""<R.1X1,1<!+-><S6GZ4!>,FVU^I[""I"
^XMB(3.9,23,2,6213,0)="""DATA"",396.18,202,3,738,0)"
^XMB(3.9,23,2,6214,0)="M/%>M)L>SFW!/NPFQI9Z3>O2HB!X+?%""[^=/5+-]LZ$KEG((@%\VH""@-V`CN:"
^XMB(3.9,23,2,6215,0)="""DATA"",396.18,202,3,739,0)"
^XMB(3.9,23,2,6216,0)="M^A5T>(>MI:)C.';(<NQ""'?XD\0G?/3<>VG/C(02#ZO:V""UNIAQQ]XS7=1NLC"
^XMB(3.9,23,2,6217,0)="""DATA"",396.18,202,3,740,0)"
^XMB(3.9,23,2,6218,0)="MTZ&7HXNP3^$Q>[O,""`5?VPAGYVO;.]]_&J<9[WL&$[/3',5!QA^B^$'/X!_Y"
^XMB(3.9,23,2,6219,0)="""DATA"",396.18,202,3,741,0)"
^XMB(3.9,23,2,6220,0)="M=<F@'!9E,Z>[Y[IX>X(SAX*U1/;-*0!SXQP&@982G<A2MOT5^>6ZJAD=[_84"
^XMB(3.9,23,2,6221,0)="""DATA"",396.18,202,3,742,0)"
^XMB(3.9,23,2,6222,0)="M?4V`!.MK[QQ09LPR9*'JND>'C/;S$'U=%;=%?0H59?[)4@2#LZ4@@H?PG@@!"
^XMB(3.9,23,2,6223,0)="""DATA"",396.18,202,3,743,0)"
^XMB(3.9,23,2,6224,0)="M>Z1+4<BR_<R^35TX!O2S6ZE/?RSRV[LWLR_E]J;:;>G56&T;QV>Z#[SV]A>R"
^XMB(3.9,23,2,6225,0)="""DATA"",396.18,202,3,744,0)"
^XMB(3.9,23,2,6226,0)="M8'\!H^CL+WC[""_%)_(5L7\M&$K._0`)-6WJ:FVA3+&_+^6R3E^M3V+?$NXLA"
^XMB(3.9,23,2,6227,0)="""DATA"",396.18,202,3,745,0)"
^XMB(3.9,23,2,6228,0)="M/+N&8W@^=M['+CW%L8OWS=$`&(>,'IB/'6O'(`]Z[#X6U[ME7E-_3RY%S^_F"
^XMB(3.9,23,2,6229,0)="""DATA"",396.18,202,3,746,0)"
^XMB(3.9,23,2,6230,0)="MR^(@YZ_[""^H9_*FNNQ_<H^&VNP!!\$F$YR*3_TG,'K1!CH1G/U)\5J:W6<4G"
^XMB(3.9,23,2,6231,0)="""DATA"",396.18,202,3,747,0)"
^XMB(3.9,23,2,6232,0)="M:OY)7,T_6*P[V9M_Q!+]9/,/=J`F(%?WC]Q6XDSK@M`&H-\ZCLCK-2.HSZFZ"
^XMB(3.9,23,2,6233,0)="""DATA"",396.18,202,3,748,0)"
^XMB(3.9,23,2,6234,0)="M;MJJBE<7BCP<$NW;.6@>DH.!#B),3N,@YI>+:L5S2R?R$</'K\!!YZ\`3L,T"
^XMB(3.9,23,2,6235,0)="""DATA"",396.18,202,3,749,0)"
^XMB(3.9,23,2,6236,0)="M1;(3N?)5L_UF7K&YN2$5_Q3&KM""^<U>IV0?$89U%,(E.U-]P67TI3EJ3""T[8"
^XMB(3.9,23,2,6237,0)="""DATA"",396.18,202,3,750,0)"
^XMB(3.9,23,2,6238,0)="M(KRO$83FM#H.M((Q.96NEOF""_9G'W8FB:(OLJZW$,M@=:`G3$Q4B;[MJR%7!"
^XMB(3.9,23,2,6239,0)="""DATA"",396.18,202,3,751,0)"
^XMB(3.9,23,2,6240,0)="MYAF71?Y7?EV<0&-)L,;B/34&@3D-%0?:PA2=5F,[NO#%""366!6LLV5=CYI@8"
^XMB(3.9,23,2,6241,0)="""DATA"",396.18,202,3,752,0)"
^XMB(3.9,23,2,6242,0)="M9('%_N1$?N'-.#[,E);3_[FM<[I&B[(I\J9XI$5_-L/);S';,*<I&H'&_+T"""
^XMB(3.9,23,2,6243,0)="""DATA"",396.18,202,3,753,0)"
^XMB(3.9,23,2,6244,0)="M?S&&O$KN5]`5N#B/;`:,;/I4E#N82F=2*DM,M:]S4<8[C8$?,B=%4+`N\3G3"
^XMB(3.9,23,2,6245,0)="""DATA"",396.18,202,3,754,0)"
^XMB(3.9,23,2,6246,0)="M_SC[:`D)UF5Z'J;VUF7ZH(/$6:@NS46:LRHG9GP>X%@FP:I$9Q/KK\OH0949"
^XMB(3.9,23,2,6247,0)="""DATA"",396.18,202,3,755,0)"
^XMB(3.9,23,2,6248,0)="M?BZ3LXU]#`VLP_\4*>KNQX?PX>:NX2A.[[_F*W]6!'`/5H1(XT2([L&(<""8\"
^XMB(3.9,23,2,6249,0)="""DATA"",396.18,202,3,756,0)"
^XMB(3.9,23,2,6250,0)="M""""8\Z(IL!G1M58.:#@74PP@;JGWB#3[N,G'77_QK]NMOG]^_I2'^>K&C$N6S"
^XMB(3.9,23,2,6251,0)="""DATA"",396.18,202,3,757,0)"
^XMB(3.9,23,2,6252,0)="MJQW5AHPIEJ\7?=-K03=FN6[G\7?K97$Q^R_I^YIF5A?_;U<TVV(QVU:<W)I]"
^XMB(3.9,23,2,6253,0)="""DATA"",396.18,202,3,758,0)"
^XMB(3.9,23,2,6254,0)="M;[5>WM$OWU1U/\J_O2FD;Z-ZHI]7OZ_]1,%^-6?1)NN""&!FSO[UX%@""E?]+-"
^XMB(3.9,23,2,6255,0)="""DATA"",396.18,202,3,759,0)"
^XMB(3.9,23,2,6256,0)="M_F>=;Y13XZX10R<I`!1S0/V]0?2-0Z!IXP#QJ1]&!$AB1YDX\02)4.*'?6K$"
^XMB(3.9,23,2,6257,0)="""DATA"",396.18,202,3,760,0)"
^XMB(3.9,23,2,6258,0)="MF]Z&LJTSNRK7K)+FA4/*DDHXM6>74E_$`F+I'TPM0&&(H'-J*22U%.T#J)*Z"
^XMB(3.9,23,2,6259,0)="""DATA"",396.18,202,3,761,0)"
^XMB(3.9,23,2,6260,0)="MS@OQ.BT@,[)HB+M`A+EN3>;[T<A=!(`2*]!'7K4%9-BA,*B!`=AVZ,..0_[*"
^XMB(3.9,23,2,6261,0)="""DATA"",396.18,202,3,762,0)"
^XMB(3.9,23,2,6262,0)="M)RMF2_9:PLWS%!H8\)Z*2BQHTC!`4:PG,CV%HFHNUFDU!7U#KM1-%!)!;Q@@"
^XMB(3.9,23,2,6263,0)="""DATA"",396.18,202,3,763,0)"
^XMB(3.9,23,2,6264,0)="M""W!G:@NYM#F(H[(RI""3X/5%ZB/=D?^'B%%#X?!#`[A-I-CXU>-)BAYQ`=PF-"
^XMB(3.9,23,2,6265,0)="""DATA"",396.18,202,3,764,0)"
^XMB(3.9,23,2,6266,0)="M)OY#VX`_:>(CGV*DUWP62DQI5[.1M\';`5O]^$35R""W5:E%39^(DP\;A+4_["
^XMB(3.9,23,2,6267,0)="""DATA"",396.18,202,3,765,0)"
^XMB(3.9,23,2,6268,0)="MPA#&QM[;#(5=Q1$ZT1Q=/EOE)U&1MV6/W<4GPRA""8DYRH^,AAAYT!`/[P0ME"
^XMB(3.9,23,2,6269,0)="""DATA"",396.18,202,3,766,0)"
^XMB(3.9,23,2,6270,0)="MF;?-P#!P-YZX2VB8F3[!OHR#U07\3#PR-2);X""7""]`6S$_6WMBS5O=9./#L="
^XMB(3.9,23,2,6271,0)="""DATA"",396.18,202,3,767,0)"
^XMB(3.9,23,2,6272,0)="MKCB_+M<H0'$D]'(^D>+F17W;9@%/J[/(^Q)PEL=@&GLWN![X&@#@>/<`VMNP"
^XMB(3.9,23,2,6273,0)="""DATA"",396.18,202,3,768,0)"
^XMB(3.9,23,2,6274,0)="MF)T2(',5>-B5$_F.F[I:YIN&8Y7NMD6].XD/Z3U_Q^%<'9O3%).A!]B;QT/R"
^XMB(3.9,23,2,6275,0)="""DATA"",396.18,202,3,769,0)"
^XMB(3.9,23,2,6276,0)="MPGMWG=L,9Q*X,\EI=B;;C:QT03V4S3*?%XPB]'%RL2@*2_?V*0\2X,`4GVA8"
^XMB(3.9,23,2,6277,0)="""DATA"",396.18,202,3,770,0)"
^XMB(3.9,23,2,6278,0)="M:G95-MO=,G^<`&M*0GA?GBJ0!LU)61/""#PYYL.'':;=J""SN]-_(X4\*=)^+L"
^XMB(3.9,23,2,6279,0)="""DATA"",396.18,202,3,771,0)"
^XMB(3.9,23,2,6280,0)="M:\5Q?"")C#PZ?:XRSX%=]D-!;AIHZS*N2X%=](/\R.?B[)C`TH?(PKWIXK28X"
^XMB(3.9,23,2,6281,0)="""DATA"",396.18,202,3,772,0)"
^XMB(3.9,23,2,6282,0)="MV#%[D`V<';XL$+G>-$U/992.61B(@^H""$K.KNS""08&-=X-TP=SU9&@`^+IG7"
^XMB(3.9,23,2,6283,0)="""DATA"",396.18,202,3,773,0)"
^XMB(3.9,23,2,6284,0)="MG)(1H]K<91%8_8WBA[[LQ\%UL4?H<5_ZBH/FE3+""Q%MK5@ACJXMVJE1?/?N2"
^XMB(3.9,23,2,6285,0)="""DATA"",396.18,202,3,774,0)"
^XMB(3.9,23,2,6286,0)="M]_^0.\F"".""D=?'DG#I&(WVQNY*];%-J/<:*@MK@M%\5ZSM,M\VJU61:,)N8V"
^XMB(3.9,23,2,6287,0)="""DATA"",396.18,202,3,775,0)"
^XMB(3.9,23,2,6288,0)="MK\N<'L]M76UN[AYSA2AQUOXS(U[P0U]^QVXY3YPY*$*B$RT""><A%2)V>+8KB"
^XMB(3.9,23,2,6289,0)="""DATA"",396.18,202,3,776,0)"
^XMB(3.9,23,2,6290,0)="M$RT"">G1-Z9^+9L#@]&A&AX^F&?UCOKYF&PB/PZ+G;O6#=*LGB;5;72QR]$PV"
^XMB(3.9,23,2,6291,0)="""DATA"",396.18,202,3,777,0)"
^XMB(3.9,23,2,6292,0)="M!G0J8]>QN8WRN__Y;NS>-;OYG52I52J4QCYBX<1?K-_9W/SRKBD;3^FR@#63"
^XMB(3.9,23,2,6293,0)="""DATA"",396.18,202,3,778,0)"
^XMB(3.9,23,2,6294,0)="MIM-[Z1"",]VOR_US-Z!FFSE39W,P697Z]KJC8[`JG`E>K@E[""[8-Z5FZ;6;F^"
^XMB(3.9,23,2,6295,0)="""DATA"",396.18,202,3,779,0)"
^XMB(3.9,23,2,6296,0)="MK9:W/%_-*>LJM2F?`=\PGO$65>7-;)EO\KIJYM6FG+/F_*N2.NE<D+(=!RCK"
^XMB(3.9,23,2,6297,0)="""DATA"",396.18,202,3,780,0)"
^XMB(3.9,23,2,6298,0)="M8O%F5E[-UM66'BOU^^HB7W`L@IJZBO5""[-4.:HUO%SJ-0C:G::&EQJG)?;#<"
^XMB(3.9,23,2,6299,0)="""DATA"",396.18,202,3,781,0)"
^XMB(3.9,23,2,6300,0)="MUGE3[=;M&[)^\WF^+19^NR(%07O6U+$&8.8O[2_Y:E5=TP6]N=M+7!@B+A1O"
^XMB(3.9,23,2,6301,0)="""DATA"",396.18,202,3,782,0)"
^XMB(3.9,23,2,6302,0)="MS#'X#%C<@7BPVSWK@L,^EVL^/L*Y"">\D6D*'\!FQ[PMMQN8;P[:(`P1_U_@O"
^XMB(3.9,23,2,6303,0)="""DATA"",396.18,202,3,783,0)"
^XMB(3.9,23,2,6304,0)="MK1);N'I$Y""M;<$UBPU""0E+0:0PJQA;T/*%`L4:R[P@EG,&$.)81U^;-H09GH"
^XMB(3.9,23,2,6305,0)="""DATA"",396.18,202,3,784,0)"
^XMB(3.9,23,2,6306,0)="M46]VRRTW0CF]4+?,R:!+-E_N%C3DJ];#?!#]))L:$H,*8TCQR.=_G/&.%NTH"
^XMB(3.9,23,2,6307,0)="""DATA"",396.18,202,3,785,0)"
^XMB(3.9,23,2,6308,0)="ML8YK=L+4CV3>9WR^)=/F6^R74&:X@Y!I`B)%ACV5T$UY]/DL:-&/>9S%JAWG"
^XMB(3.9,23,2,6309,0)="""DATA"",396.18,202,3,786,0)"
^XMB(3.9,23,2,6310,0)="M*,N%KRHFAUA,SI5=5R2RZ<ID:^^M+')6EDU9P$-9(.!@Q<!761DV*PN<E653"
^XMB(3.9,23,2,6311,0)="""DATA"",396.18,202,3,787,0)"
^XMB(3.9,23,2,6312,0)="M%O90%O17EH1RN-_)PF=EV90%/92%`LR@U+>VG[;@65LV;2$/;>&02XM$OMH"""
^XMB(3.9,23,2,6313,0)="""DATA"",396.18,202,3,788,0)"
^XMB(3.9,23,2,6314,0)="MD<42HK.Z;.HB1\P*?M^G$?PS@^B<&7S^F4%KC""T1LW91:V8"")`C(#%8KEJ2:"
^XMB(3.9,23,2,6315,0)="""DATA"",396.18,202,3,789,0)"
^XMB(3.9,23,2,6316,0)="M3,`-D`FN+@""@C8""GAF0+-&8N14K))XQ#,3F3WC5`N2HGAKI)9J8ILX#;VNHF"
^XMB(3.9,23,2,6317,0)="""DATA"",396.18,202,3,790,0)"
^XMB(3.9,23,2,6318,0)="MJL$)6^U#0B4<%[$H.F8?#'&>`*1[4R:L&6`ZHE!LRQ;4]FFW6N4MTNR0>7Y["
^XMB(3.9,23,2,6319,0)="""DATA"",396.18,202,3,791,0)"
^XMB(3.9,23,2,6320,0)="M\=R.""[8""BL1A:+7`3$Z;FG&%H8W!%.'HC""AR+$01[N82FYMKN.<(-I6:3!>)"
^XMB(3.9,23,2,6321,0)="""DATA"",396.18,202,3,792,0)"
^XMB(3.9,23,2,6322,0)="M.&DO:%.BSCP[N2$QB3*ZC::3ZT#O!S15,8@IMTYT]4$`D_AA<NMY,\MGC%>3"
^XMB(3.9,23,2,6323,0)="""DATA"",396.18,202,3,793,0)"
^XMB(3.9,23,2,6324,0)="MM5K]MBG7[`<?>SBNR0SZO5+4_JG-P1N+Z'\@S""5#C\@E@P]\QP""'2S:L98A?"
^XMB(3.9,23,2,6325,0)="""DATA"",396.18,202,3,794,0)"
^XMB(3.9,23,2,6326,0)="M9N8VLCIFT.*8O5]MEM4=<\0OCNS2B-$K_]__'U!+`P04``(`""`#<4Q\UL_,1"
^XMB(3.9,23,2,6327,0)="""DATA"",396.18,202,3,795,0)"
^XMB(3.9,23,2,6328,0)="MM#0E``#6-0$`%@```$=Y;E]""<F5A<W1?,3$S+G!N;""YC9&7L/=MRXS:RSTY5"
^XMB(3.9,23,2,6329,0)="""DATA"",396.18,202,3,796,0)"
^XMB(3.9,23,2,6330,0)="M_H'EE^PEL46""-VVM]Y0MR3.JLB6O)#N9IQ0MT38K$JDEJ9GX[P_!BT02W6""3"
^XMB(3.9,23,2,6331,0)="""DATA"",396.18,202,3,797,0)"
^XMB(3.9,23,2,6332,0)="M&LVFMN(\1$,""Z$;?`#2ZFY>7RL-D,%?FR]#;QM]_]_UWXQ?EU@NC>+;SK]3O"
^XMB(3.9,23,2,6333,0)="""DATA"",396.18,202,3,798,0)"
^XMB(3.9,23,2,6334,0)="MOU.&[HOGNY/=Q@V]I?+AT^37>W<U??AU[""_7NY6[2IK,W1AXH5PI/25YJTC>"
^XMB(3.9,23,2,6335,0)="""DATA"",396.18,202,3,799,0)"
^XMB(3.9,23,2,6336,0)="M[\>?QZ'GOY9:S=S_[-PH!L;?OTD&.#^'()1;\*>#AY_O9\[*""SZ$P6[+V,7<"
^XMB(3.9,23,2,6337,0)="""DATA"",396.18,202,3,800,0)"
^XMB(3.9,23,2,6338,0)="M7;O+Y/TX=C>E\1\<WUUK/4W3S(L;CD\<O(2!'R?#W#KKR-UC&QVPG;FQ%U:P"
^XMB(3.9,23,2,6339,0)="""DATA"",396.18,202,3,801,0)"
^XMB(3.9,23,2,6340,0)="MS)_LL1.ZC#;;=?!>Z5,\PCL]^J[8[?`0[WCGOL3/H>M$<:GCX>&^(_BJ0KU7"
^XMB(3.9,23,2,6341,0)="""DATA"",396.18,202,3,802,0)"
^XMB(3.9,23,2,6342,0)="M3CW#W%//JU+O9A?'@6\;%T]>Y#VO76)WD:+>ZYN(<>FI@'+UG0A4;T#9E**,"
^XMB(3.9,23,2,6343,0)="""DATA"",396.18,202,3,803,0)"
^XMB(3.9,23,2,6344,0)="M]D[%Q>CQ/[4B+U>XM,PV;A0YKVX9^^(9SL.',$BPV_R8_N-Z>)?]F*GY_[7\"
^XMB(3.9,23,2,6345,0)="""DATA"",396.18,202,3,804,0)"
^XMB(3.9,23,2,6346,0)="M_ZSX?_'#S/X__+V,=3:60,1D6)&PJOA($Q\QX!'PS!0>#7\7'OU!T1-8\G1O"
^XMB(3.9,23,2,6347,0)="""DATA"",396.18,202,3,805,0)"
^XMB(3.9,23,2,6348,0)="MYF2_'TWFV:_![+IX-,Q^W-R-LA_3^:?LQ\/'7_(V#R5(?#0!/!]8>)C``!H."
^XMB(3.9,23,2,6349,0)="""DATA"",396.18,202,3,806,0)"
^XMB(3.9,23,2,6350,0)="MA6<)9.%9@H1([X^_B.,]""(]D""`):WL=TYANC+[`M&3?GR%/!HNN;7(^FD\6/"
^XMB(3.9,23,2,6351,0)="""DATA"",396.18,202,3,807,0)"
^XMB(3.9,23,2,6352,0)="MR5J2_\RY>S/_=)_]>DQ^53$447P""9I*,+TYELH"">B23FX(6'C]##/PH^HJ;<"
^XMB(3.9,23,2,6353,0)="""DATA"",396.18,202,3,808,0)"
^XMB(3.9,23,2,6354,0)="MYO;JZ3'_\;@8?LQ^+4:3G`WWU_-<BYZN)\/1+->HT>QI/""A/Z%8T`\FX(DH)"
^XMB(3.9,23,2,6355,0)="""DATA"",396.18,202,3,809,0)"
^XMB(3.9,23,2,6356,0)="M"".$AAR9*2P)8'#+%052^%!VQ]1\)*7'QF$WO<KLT',\?LE^WX_DB7TYN1KE%"
^XMB(3.9,23,2,6357,0)="""DATA"",396.18,202,3,810,0)"
^XMB(3.9,23,2,6358,0)="MFHRF#T7+A]%L/,G5XNEZ]JFL<GP\T58F0PL/.131DB<`A8<9;%&].1JB9'*,"
^XMB(3.9,23,2,6359,0)="""DATA"",396.18,202,3,811,0)"
^XMB(3.9,23,2,6360,0)="MQ+9_,+P$1GP,HJT7.^L?*__Z=;`.(K?V;+[;;)SP/>>:Y[SZ0>1%)5!%2P&'"
^XMB(3.9,23,2,6361,0)="""DATA"",396.18,202,3,812,0)"
^XMB(3.9,23,2,6362,0)="MZK#XZQR""2*\""&-KU&X`42'>?[9!R@=QZOA?XV3]&G[V5ZR_S5_GNX=<[+XIS"
^XMB(3.9,23,2,6363,0)="""DATA"",396.18,202,3,813,0)"
^XMB(3.9,23,2,6364,0)="M""\)QJIPAJGNM/>^R087GQ?C81B4%)>HD2(G_)NQTLXIL4ZOG'T(;1FAC$MI8"
^XMB(3.9,23,2,6365,0)="""DATA"",396.18,202,3,814,0)"
^XMB(3.9,23,2,6366,0)="MA#8J!6G5(#3J4P;J41I1:*12B*22*&!3&E%FIU%FIY&DA#([C4(G3:<THO!7"
^XMB(3.9,23,2,6367,0)="""DATA"",396.18,202,3,815,0)"
^XMB(3.9,23,2,6368,0)="MHXB<1J&X1J&X1J$XHU""<42C.2(I)80NC4)Q1*,XH%&<4BC,*Q1F%XCJ%XCJ%"
^XMB(3.9,23,2,6369,0)="""DATA"",396.18,202,3,816,0)"
^XMB(3.9,23,2,6370,0)="MXCJ%XA2\=9(I@+G""_ZL>>$6/EGH1R?P;6N'>N(*Z(@>U]""`MMM?DKA1=`@KM"
^XMB(3.9,23,2,6371,0)="""DATA"",396.18,202,3,817,0)"
^XMB(3.9,23,2,6372,0)="MFA[0`3^='!23@$*[9H?\T6=G?2Z223:B+3_0MNB0`[-D3.EAG;,C<)L>.;%4"
^XMB(3.9,23,2,6373,0)="""DATA"",396.18,202,3,818,0)"
^XMB(3.9,23,2,6374,0)="M&3B4,^E)NDV'')J,DBK.U^P$VZI+!L^0P4/]=^GAN$V''%I?!LU`.V?G[E9="
^XMB(3.9,23,2,6375,0)="""DATA"",396.18,202,3,819,0)"
^XMB(3.9,23,2,6376,0)="M,IV2B@KJ:<F.]&UZY.!DT]-Z$G""(Q6@034,FF@R7M,SGT*I+!D]J.%#>/Z+P"
^XMB(3.9,23,2,6377,0)="""DATA"",396.18,202,3,820,0)"
^XMB(3.9,23,2,6378,0)="M&L3%D`DG0WF?^13:],C!R:2%H<[[S%W1ID<.3B8MR<J/43/SA+3IDL$SI=*"""
^XMB(3.9,23,2,6379,0)="""DATA"",396.18,202,3,821,0)"
^XMB(3.9,23,2,6380,0)="M&MW<R=*F2PY/*BVH*N7^FS9=<G@R:='1U7KO&FK3*8<H$Q@=5::]UZE-IQRB"
^XMB(3.9,23,2,6381,0)="""DATA"",396.18,202,3,822,0)"
^XMB(3.9,23,2,6382,0)="M3&9TU-87_ITV?3*`EFP'I*/ZF[N.VG3)X<FV03HJ<;E7JDV7')XI@X=J5.[P"
^XMB(3.9,23,2,6383,0)="""DATA"",396.18,202,3,823,0)"
^XMB(3.9,23,2,6384,0)="M:M,EAV=+X!DH]_>^M#:=\BNZG@PB+C*YFZY-GQR@3&0,U`87'L`V?7*`,IKJ"
^XMB(3.9,23,2,6385,0)="""DATA"",396.18,202,3,824,0)"
^XMB(3.9,23,2,6386,0)="MZ!J:W\L0NB2=QB_-=S5\?SR-W]R0;Y!K.*J]@S5<A#M^A!GY*^^%.O0__T4;"
^XMB(3.9,23,2,6387,0)="""DATA"",396.18,202,3,825,0)"
^XMB(3.9,23,2,6388,0)="MNS@?Y8/G__O^N\O+G_9_RLQ]W:V=4!D$*U<Y/,_:_:WVE[1>!N$J2O[_V7._"
^XMB(3.9,23,2,6389,0)="""DATA"",396.18,202,3,826,0)"
^XMB(3.9,23,2,6390,0)="M*/7W$O*D][N:0*-#C,'SNY)P?:H\[V+%#V+%^>QX:R>9QWDE-&&4=#6RL1;N"
^XMB(3.9,23,2,6391,0)="""DATA"",396.18,202,3,827,0)"
^XMB(3.9,23,2,6392,0)="M[ZG;;O#3B[=VE3##Z8L3)3\;1[TX;R0[A#*G_=?`F0B=?46""L3WP^V2XI;/."
^XMB(3.9,23,2,6393,0)="""DATA"",396.18,202,3,828,0)"
^XMB(3.9,23,2,6394,0)="MN7DBPK&O23@&$2X-LBGMH7*P@[6W_,U=%:K5'&:0-_SWSHOW6@*,K&,C5R,/"
^XMB(3.9,23,2,6395,0)="""DATA"",396.18,202,3,829,0)"
^XMB(3.9,23,2,6396,0)="M6HM3.N73*DT9P^J__YZHCW++U6>SBV+EN5`C/K;[$H2N$NV>-UX<\RN$Q.8D"
^XMB(3.9,23,2,6397,0)="""DATA"",396.18,202,3,830,0)"
^XMB(3.9,23,2,6398,0)="MK[=!&)\G'0=O3O@7E?V50RKDH9M<-%&`G9@""57V(OADI1,Y^6[9U,D#_);K6"
^XMB(3.9,23,2,6399,0)="""DATA"",396.18,202,3,831,0)"
^XMB(3.9,23,2,6400,0)="M<#W`V0M0<2U4#Q`J>M+CC2J6`%P)]Y=X0:C,=^&K&[[O;4:5C*H@[ID',@%S"
^XMB(3.9,23,2,6401,0)="""DATA"",396.18,202,3,832,0)"
^XMB(3.9,23,2,6402,0)="M1NAP=?[)C9+IG9U);W,RBW26HTP9^)__HHV<TD0I-\LW6OW""'"":<KX$G^4U?"
^XMB(3.9,23,2,6403,0)="""DATA"",396.18,202,3,833,0)"
^XMB(3.9,23,2,6404,0)="M(;_I&>ZB!=O#*T%R&A5P`Z]?#Z3B*XU:7F3.P!Z?@ETFQ:X?NV$JK6_%:\=?"
^XMB(3.9,23,2,6405,0)="""DATA"",396.18,202,3,834,0)"
^XMB(3.9,23,2,6406,0)="M*>M@Z<1>X""?""6\BN(O+EWMT$VL4=OYN50:O\\^\""\)43N\UPC*/A9""KI1('/"
^XMB(3.9,23,2,6407,0)="""DATA"",396.18,202,3,835,0)"
^XMB(3.9,23,2,6408,0)="MI3U^W[I*\)+H;""KU<@3VH^9*>G965M+BK:0?AG7Y$OSC=/XP7ES?*<GA7;F;"
^XMB(3.9,23,2,6409,0)="""DATA"",396.18,202,3,836,0)"
^XMB(3.9,23,2,6410,0)="M#JX7X^GD'PJW'S7.'@P*G^;P>C$Z-""OSI-IN-KJ>3R?*=*8L/CV,E.FM,G^<"
^XMB(3.9,23,2,6411,0)="""DATA"",396.18,202,3,837,0)"
^XMB(3.9,23,2,6412,0)="M?1C-/E4[&V#GO\G_SJO-#_;N,&4^MFKNN0A2H95ZPCH#=1BL72?<)/`/%`*?"
^XMB(3.9,23,2,6413,0)="""DATA"",396.18,202,3,838,0)"
^XMB(3.9,23,2,6414,0)="M&B7]$A6I8DV5&MA^3P""K(&,]^K_YP1=?&+(ZGDJ<AE(A<$D;,3`U0)I9V0XJ"
^XMB(3.9,23,2,6415,0)="""DATA"",396.18,202,3,839,0)"
^XMB(3.9,23,2,6416,0)="MEY?++$2BA:79:P7413V7&XY.G8VNG87W>TT^'_EQZ""5C.LE*[JQX1'H<I$:C"
^XMB(3.9,23,2,6417,0)="""DATA"",396.18,202,3,840,0)"
^XMB(3.9,23,2,6418,0)="MD,[IY.Z3\N7-]9,G?*%7O$C9ADEW=U6""I$CC%0ZQXQ#7M3HO0O>G8.OZ3:."""
^XMB(3.9,23,2,6419,0)="""DATA"",396.18,202,3,841,0)"
^XMB(3.9,23,2,6420,0)="M6W_HX+O_6X3.;N.(S\75'[A!VZ_^#-AT`>V+Q5^1AH0TN!""`<?=KOT**-5%2"
^XMB(3.9,23,2,6421,0)="""DATA"",396.18,202,3,842,0)"
^XMB(3.9,23,2,6422,0)="M!;HO*Y!J`QNK8RX4:7>7B""KV$%4DS0ZW)0R7*@(_Z#)U^)NXP7;M1!OL/2)E"
^XMB(3.9,23,2,6423,0)="""DATA"",396.18,202,3,843,0)"
^XMB(3.9,23,2,6424,0)="M&BQE&B8-&D7*ZK%`^;1*=\!7^QO@@SN[>H30+D8^/XN5C+M43#62F&)12B(6"
^XMB(3.9,23,2,6425,0)="""DATA"",396.18,202,3,844,0)"
^XMB(3.9,23,2,6426,0)="MZ:!F;;:5`;DUSKPRP`L+>\'*+P#MT)#G#'G>)](0G^DKX/ZM^YF^1HP!+9RA"
^XMB(3.9,23,2,6427,0)="""DATA"",396.18,202,3,845,0)"
^XMB(3.9,23,2,6428,0)="M='2B"".Q5.WE5!+$XM=B=BB5-=#)AQ38KH1A73?VP:4L5X\YY=M=]5LQ45+*T"
^XMB(3.9,23,2,6429,0)="""DATA"",396.18,202,3,846,0)"
^XMB(3.9,23,2,6430,0)="M@6[A#3)%D;[6FGHC^E?66""EGS09+5Y]$W<A5D83>L@Y3P&C;:BJ3X+PU.[2F"
^XMB(3.9,23,2,6431,0)="""DATA"",396.18,202,3,847,0)"
^XMB(3.9,23,2,6432,0)="MUZB]PTA0GPI%W>HS.>RX_^#3@;<?>D_J<L96*WS?H;<:K^-VHT@0FV_=I??B"
^XMB(3.9,23,2,6433,0)="""DATA"",396.18,202,3,848,0)"
^XMB(3.9,23,2,6434,0)="M+15@EY%O@TPI/E9+9WI?$T]\L@B^0RO)F'KK,9O98->GG9-L[448&JQ]%P,X"
^XMB(3.9,23,2,6435,0)="""DATA"",396.18,202,3,849,0)"
^XMB(3.9,23,2,6436,0)="M_^Z/5NH%UR!^EOJAX->SR]VD*S=VO$1`__&#PL=65D%R`./N[V4R.\?S%2=I"
^XMB(3.9,23,2,6437,0)="""DATA"",396.18,202,3,850,0)"
^XMB(3.9,23,2,6438,0)="M$J7YLUE,8QKHG_U4?N`Z4*""F\.#W'W[D0'SE)5BO@R\I0,^/XG""7=HSX/[R5"
^XMB(3.9,23,2,6439,0)="""DATA"",396.18,202,3,851,0)"
^XMB(3.9,23,2,6440,0)="MFSXO=U.^>/XJ^')1\V*<:Q=*IN&*ZRS?DK->UB4A_88R&>Y(*[N>_K-+)[)R"
^XMB(3.9,23,2,6441,0)="""DATA"",396.18,202,3,852,0)"
^XMB(3.9,23,2,6442,0)="M8D<`Q2Z4E'ZY#YD?/9WETMTFHZS7V2A85_U""600YH.3<ZO&I)@?<'#=^%[9U"
^XMB(3.9,23,2,6443,0)="""DATA"",396.18,202,3,853,0)"
^XMB(3.9,23,2,6444,0)="MG5B)8G<;*>I/""KMH\@FHH@]%R?Z@M,RR#T+(1""@Y<8/-<_`<_(YX)^L]]\Z["
^XMB(3.9,23,2,6445,0)="""DATA"",396.18,202,3,854,0)"
^XMB(3.9,23,2,6446,0)="M*%7L]Y2&!0>6NS!,)KQ^KU'^HNILSX[D9QQ,R6G1KR*`82`\2DBM`""Y%[KZL"
^XMB(3.9,23,2,6447,0)="""DATA"",396.18,202,3,855,0)"
^XMB(3.9,23,2,6448,0)="MPQ4!\^VQ57-A'@MYZ87+W2:*'7_)W1:)M'E^POV$]QO']Z(7-WF5R7V0*=_*"
^XMB(3.9,23,2,6449,0)="""DATA"",396.18,202,3,856,0)"
^XMB(3.9,23,2,6450,0)="MBUPG0K`M(<N!)IP""MWPMT?[YS4G])""F^P2Z,7""7R>`Y+@I8;_Q^&28Y(93C0"
^XMB(3.9,23,2,6451,0)="""DATA"",396.18,202,3,857,0)"
^XMB(3.9,23,2,6452,0)="M]UIN(7I[('$\`V3X83:]N1O='QRA-6&%/9J'`<K_RCVRW+\ZG<Q'BZH'M]]I"
^XMB(3.9,23,2,6453,0)="""DATA"",396.18,202,3,858,0)"
^XMB(3.9,23,2,6454,0)="MP,%X-GB\GR^N)X/1//4/CR?CQ?CZ3KF_GHQO1\D;[BR><U@E5ZXEN')IT*:/"
^XMB(3.9,23,2,6455,0)="""DATA"",396.18,202,3,859,0)"
^XMB(3.9,23,2,6456,0)="ML_E(F8\3:/4YP*)1!0#?VIC@?>D9`9_Q7%E\'""F#Z60XYM-4;D;CR0=E,1LE"
^XMB(3.9,23,2,6457,0)="""DATA"",396.18,202,3,860,0)"
^XMB(3.9,23,2,6458,0)="M=!Z6F""8%*!?Y:E_K&%P3/!?CR>/T<9ZA>#^:+)39Z-^/XQF.K=4&V>D,9D,+"
^XMB(3.9,23,2,6459,0)="""DATA"",396.18,202,3,861,0)"
^XMB(3.9,23,2,6460,0)="M/,N8S1\XDP^88</+D4I]NKVZ7[89DX_3V?UTPD5Y-!P/DO_O49O7;C6*P2F("
^XMB(3.9,23,2,6461,0)="""DATA"",396.18,202,3,862,0)"
^XMB(3.9,23,2,6462,0)="MJ.T1F29""-FO&0J5AL2>BVIE'_'H&Q04;GT`;K2MMI`A5AJ:@P;JB@4)G-.@U"
^XMB(3.9,23,2,6463,0)="""DATA"",396.18,202,3,863,0)"
^XMB(3.9,23,2,6464,0)="M.]%=V>?CX4@9W=Z.!HLYM_>#Q]F,J]0>0=0V=5-WUAG3.QY+6D87$""365I`Z"
^XMB(3.9,23,2,6465,0)="""DATA"",396.18,202,3,864,0)"
^XMB(3.9,23,2,6466,0)="MZ-AP-!_,QC?)LI()%(A1>6P""&G9[-*Z'V4J2B/)@>@^(DBU>@BH5^)5;S?PV"
^XMB(3.9,23,2,6467,0)="""DATA"",396.18,202,3,865,0)"
^XMB(3.9,23,2,6468,0)="MZJH&Y>@KTWPW+AS@*G_PEEQ^20H,N7?[\9W/3;'S`9P.?=`3E(C037W!J+7)"
^XMB(3.9,23,2,6469,0)="""DATA"",396.18,202,3,866,0)"
^XMB(3.9,23,2,6470,0)="M!.VF+FA8*]I8*M1*O""BUX<<6_%B%'VL]Y#G67D.>,]S);\EF7<O<:=,6\)'N"
^XMB(3.9,23,2,6471,0)="""DATA"",396.18,202,3,867,0)"
^XMB(3.9,23,2,6472,0)="M1>,AV.[6R2DF9?W/7OR6BU*Z:Z[(1(NVFGB]I;;QOR`Q3*`C3D7<H[6+`L$!"
^XMB(3.9,23,2,6473,0)="""DATA"",396.18,202,3,868,0)"
^XMB(3.9,23,2,6474,0)="M6GO/&M[KV'N!+Z1V:+/4>6>HV.O2]JS:HNJ7D9+H<#>`TJB>E2H0""6F@HPU0"
^XMB(3.9,23,2,6475,0)="""DATA"",396.18,202,3,869,0)"
^XMB(3.9,23,2,6476,0)="M,C4V%.6\B:3R(64CUJE?'PD@?_5&GSLM+R_SF,&Z2U23ZD`?\D%""[C95;3.."
^XMB(3.9,23,2,6477,0)="""DATA"",396.18,202,3,870,0)"
^XMB(3.9,23,2,6478,0)="M)!Z0_]4#__:,E+IO>V1<6:N!FAV::A6SR\O4Q""9=$!,L<$Z5&$/Y]OWJD+!0"
^XMB(3.9,23,2,6479,0)="""DATA"",396.18,202,3,871,0)"
^XMB(3.9,23,2,6480,0)="M"";O1I+JL]Z6:BL!*=+0)6%TVZ]""*]S!A<BPN+U,P2ARZ3KQQ_;@N""'+^U4L_"
^XMB(3.9,23,2,6481,0)="""DATA"",396.18,202,3,872,0)"
^XMB(3.9,23,2,6482,0)="MX(*@&ZT&JFN5?#=<Y\R[G^\CI4:6T1C#Y(P18.%T5R4H(!-NL(8U.U[""639S"
^XMB(3.9,23,2,6483,0)="""DATA"",396.18,202,3,873,0)"
^XMB(3.9,23,2,6484,0)="MJ\W:836L'0!,U&JR)M.+V/`3T1B]7Q+NE?(H,""R2);\&D9NZEE=,5IO1$""-/"
^XMB(3.9,23,2,6485,0)="""DATA"",396.18,202,3,874,0)"
^XMB(3.9,23,2,6486,0)="MBM=)<Z+N79\/0$W=*BK^D1/)@%POL'Q._41RRF0SO'Z/0LM)@TRK#L2J<$J1"
^XMB(3.9,23,2,6487,0)="""DATA"",396.18,202,3,875,0)"
^XMB(3.9,23,2,6488,0)="M2B,B!S:YZ<0J$$G6T(8$(Y@I8,RBL*6!2=)6(H?.>Z0\N_$7U_65K1MZP2HZ"
^XMB(3.9,23,2,6489,0)="""DATA"",396.18,202,3,876,0)"
^XMB(3.9,23,2,6490,0)="M2&?NG]?SPRB\4!IRXR]?E:L@T,78D""_&!FDQ-KHH;*ZV@]#9;""/$=-N@V@YF"
^XMB(3.9,23,2,6491,0)="""DATA"",396.18,202,3,877,0)"
^XMB(3.9,23,2,6492,0)="MUUA,@TT*J6/M(S=M6D@<:U+%JOJ8T/D?CA/K7,^%4LX%"">C420&=6&DP7'LU"
^XMB(3.9,23,2,6493,0)="""DATA"",396.18,202,3,878,0)"
^XMB(3.9,23,2,6494,0)="M:D@GPJFN:T0F<=EV<>-&?ASNG+42O6^V<;#!9+!6C*80PNG\$R8KM1Z8%%KM"
^XMB(3.9,23,2,6495,0)="""DATA"",396.18,202,3,879,0)"
^XMB(3.9,23,2,6496,0)="MI;`V,BJ&%CF""6#-!OY1)E\L3E_Y!1-.FB:;56C0MJF@2`FXN+UUN//D5?V*)"
^XMB(3.9,23,2,6497,0)="""DATA"",396.18,202,3,880,0)"
^XMB(3.9,23,2,6498,0)="MW:BV,P?H+!CIU`JS/K829""P4XBRA<X``#5H3ZN""4^JH@`)0L""V9W'7T(W5??"
^XMB(3.9,23,2,6499,0)="""DATA"",396.18,202,3,881,0)"
^XMB(3.9,23,2,6500,0)="M6?KU4SVCQ9AC-08E?.]3^6Y33-+XMGH/;U<R313)Z]XYZ,ZVT5BY8A!-E3?A"
^XMB(3.9,23,2,6501,0)="""DATA"",396.18,202,3,882,0)"
^XMB(3.9,23,2,6502,0)="MH_2;1]&:F[#F)CUY:)^EBZ'!M19&8PNKJ87="",4N0XEK!ACFT17(HBK]Q6!D"
^XMB(3.9,23,2,6503,0)="""DATA"",396.18,202,3,883,0)"
^XMB(3.9,23,2,6504,0)="MD0%PFRH'\#:,T*;7$#1<80+2Q&AN8C4VL9L!V5)`)1(#ES<EXF)O,[+*WC+I"
^XMB(3.9,23,2,6505,0)="""DATA"",396.18,202,3,884,0)"
^XMB(3.9,23,2,6506,0)="MVYX8Z+Q7=8F@_""DG?\H)N@<HF7;)(=#L20^!JFTTGP(/0+!CH-F3'P/+8/`%"
^XMB(3.9,23,2,6507,0)="""DATA"",396.18,202,3,885,0)"
^XMB(3.9,23,2,6508,0)="MW^P!WK\Z2T#XAM4P2YUTULV!8+,TK*99ZH19&I9DEIITEG;#+!EMEII\EG;3"
^XMB(3.9,23,2,6509,0)="""DATA"",396.18,202,3,886,0)"
^XMB(3.9,23,2,6510,0)="M+!EEEC8RR[(""P;(D]UDSE2:P?;G`JO)),HJCU50EG&123O;EG*2Y9G(8*""/["
^XMB(3.9,23,2,6511,0)="""DATA"",396.18,202,3,887,0)"
^XMB(3.9,23,2,6512,0)="M#8RD^&:,OF2./>D<S09II<VQ)Y^CV22LE#D><=""X=_U@Z^P@SS%4'';O.7Y`"
^XMB(3.9,23,2,6513,0)="""DATA"",396.18,202,3,888,0)"
^XMB(3.9,23,2,6514,0)="MC^BTK,Y^A\,_,2VSWY""6N3\.6K3@$\W""DXQ/6X@7*2NBT<Z`_=:)QBKU#-C_"
^XMB(3.9,23,2,6515,0)="""DATA"",396.18,202,3,889,0)"
^XMB(3.9,23,2,6516,0)="M&F=_BW3VUU7IV=^BGOTMVMF_!`X^^UNTL[_5725OUFZ""I/\::9A.PNG\O.`R"
^XMB(3.9,23,2,6517,0)="""DATA"",396.18,202,3,890,0)"
^XMB(3.9,23,2,6518,0)="MJCNDC'ZMUT$K:3G]V+<*1*VTI6%1^?)H`9F7W[AJ-:*<-)^QUCIJ@E%]Q@@3"
^XMB(3.9,23,2,6519,0)="""DATA"",396.18,202,3,891,0)"
^XMB(3.9,23,2,6520,0)="MC_,97S_[0;AQULJ3\^KQ]*2A%RW?G/`573=T4$:?AJ@<Z20)53M(J$Z34+4I"
^XMB(3.9,23,2,6521,0)="""DATA"",396.18,202,3,892,0)"
^XMB(3.9,23,2,6522,0)="MG3^7/5O(NJ^JOETNO_9-2YLC(FG11%)M+9(&5235$XCD3?:%R$(RO?@=$T4#"
^XMB(3.9,23,2,6523,0)="""DATA"",396.18,202,3,893,0)"
^XMB(3.9,23,2,6524,0)="M-I?7-RHJ,@9)&+4.PFC0A%$CF<MD9>T3-S%]B52>N@0^DK""LTN2R]>4XH_JR"
^XMB(3.9,23,2,6525,0)="""DATA"",396.18,202,3,894,0)"
^XMB(3.9,23,2,6526,0)="M$0;6]C&CAGU,G[2/.51K$%*#,_Y0-S)]VD:F#`_<R/1I&YG^$9<8[OJSMU2V"
^XMB(3.9,23,2,6527,0)="""DATA"",396.18,202,3,895,0)"
^XMB(3.9,23,2,6528,0)="MCN=CJ@G'I4PG""U1_^B3-U#MH9I^FF3IEF4@5LVF+<NI/02!J1[LZQ.8IJ1=`"
^XMB(3.9,23,2,6529,0)="""DATA"",396.18,202,3,896,0)"
^XMB(3.9,23,2,6530,0)="MO3I$N'/L#F45;-*MB43>M!XF;WC1%])EMF:T%SB-=IFM&42!4WO-$G?JKX%@"
^XMB(3.9,23,2,6531,0)="""DATA"",396.18,202,3,897,0)"
^XMB(3.9,23,2,6532,0)="M)9%I(M>^1`79TANGV($$7]QR^`12\PSVH-QDWY^E=,%DKDL!-IH/!?OVFNCQ"
^XMB(3.9,23,2,6533,0)="""DATA"",396.18,202,3,898,0)"
^XMB(3.9,23,2,6534,0)="MUZ7W`9;TK2E]:T!O#['6/=J^1Q6B2545JIL$3(S0R*`T,BF-(+<""K,,G_\(."
^XMB(3.9,23,2,6535,0)="""DATA"",396.18,202,3,899,0)"
^XMB(3.9,23,2,6536,0)="MHL,TKY/6NKR=0?4Z:6:7W1H0IM^#2W\WM;M2SF]=7D?:\WEY$\_G'_,4JP55"
^XMB(3.9,23,2,6537,0)="""DATA"",396.18,202,3,900,0)"
^XMB(3.9,23,2,6538,0)="MY4N($*C&OS%R4UD\0""%%K+'@F)0(#;,KSK]X+2E8M:1H-M4M@^M^H]1LT=J@"
^XMB(3.9,23,2,6539,0)="""DATA"",396.18,202,3,901,0)"
^XMB(3.9,23,2,6540,0)="M8V$RB78V4/;J?.@Y8?CF.B*]#+TYDD3OS-/$N)-`*UVMNWX,50:!'\7>-BM3"
^XMB(3.9,23,2,6541,0)="""DATA"",396.18,202,3,902,0)"
^XMB(3.9,23,2,6542,0)="M+:!G$F)LC&,H0P:OH'X@>(62K@UDZLR2WXDN/N>N8`!#HYE`YC$$:H.!1(+,"
^XMB(3.9,23,2,6543,0)="""DATA"",396.18,202,3,903,0)"
^XMB(3.9,23,2,6544,0)="MAAW`$31Z2/;Y+[L$Q70;M@D^NSS[""2BL9YK-M+*.H5473""0TLQKV5$?03$RA"
^XMB(3.9,23,2,6545,0)="""DATA"",396.18,202,3,904,0)"
^XMB(3.9,23,2,6546,0)="MR/""R!.=$Q5F@JL>0AP!4((8`59*QD>[QQ+""DYN7\U#A]&^9_&[7\-@;RVRQ2"
^XMB(3.9,23,2,6547,0)="""DATA"",396.18,202,3,905,0)"
^XMB(3.9,23,2,6548,0)="M?VYII%N:3G>6O.1ZV)1+P.!;H4?969AV+]0AF8`1[X4LJBM>)5:S8+VZ56$]"
^XMB(3.9,23,2,6549,0)="""DATA"",396.18,202,3,906,0)"
^XMB(3.9,23,2,6550,0)="M4EB?36K5)PDL""2)3)8O-<5]B[?`I5N1@2KQQ;9T*89!O7""V:<TEZD0#)#^S9"
^XMB(3.9,23,2,6551,0)="""DATA"",396.18,202,3,907,0)"
^XMB(3.9,23,2,6552,0)="M5U5=%A)1X:P\7UVE7264`""KP90(H3;#@EVM-WTKQ*0[FC62Z33\7YR_?!<QM"
^XMB(3.9,23,2,6553,0)="""DATA"",396.18,202,3,908,0)"
^XMB(3.9,23,2,6554,0)="M-'@$U""DPSDMK',/L3G`2ZJC3R*9XELK7U>C,L-X4WU5I+T&;]]7Y8_@*3[K?"
^XMB(3.9,23,2,6555,0)="""DATA"",396.18,202,3,909,0)"
^XMB(3.9,23,2,6556,0)="MR*]^=V(3H*)4[`-4E%E<*B6&[]$N]!P1)ZV)$L?H.0$J1@G6DU`""L@-42HQK"
^XMB(3.9,23,2,6557,0)="""DATA"",396.18,202,3,910,0)"
^XMB(3.9,23,2,6558,0)="M?J>JK#+\^C1K8)BX(N^!ZH0VFMJ=KO0YP-&>ADS?P%G@Y6U4VE#0]A(:#&A'"
^XMB(3.9,23,2,6559,0)="""DATA"",396.18,202,3,911,0)"
^XMB(3.9,23,2,6560,0)="MY>Q'=^/$L+RQ1BD_@ALDN*B<JS(Y5U$YKZ?`H:M;C=8GP^M_7`A/;\!.OUC\"
^XMB(3.9,23,2,6561,0)="""DATA"",396.18,202,3,912,0)"
^XMB(3.9,23,2,6562,0)="M[ZS\HEKJ^/>H:V*GXL8Y]:CH5$N@2TJ'2&!**M+H,ES(-6G@HW,14?F2WKXD"
^XMB(3.9,23,2,6563,0)="""DATA"",396.18,202,3,913,0)"
^XMB(3.9,23,2,6564,0)="ML']ST*A*!H>R/=W>H8=<6B2;W>'X3(QDLZGA""WIC^((A""Y]D:*!:0A[X@$F+"
^XMB(3.9,23,2,6565,0)="""DATA"",396.18,202,3,914,0)"
^XMB(3.9,23,2,6566,0)="M4S-,V@&S=<ZU08Z?M$\0O5#(7;)`^FZ3W,%?`'IZQ.7.),E=AS009M+DKD]V"
^XMB(3.9,23,2,6567,0)="""DATA"",396.18,202,3,915,0)"
^XMB(3.9,23,2,6568,0)="MVVA$MXV*""Z8LDHN9J&`^(H)IT@23&,G5.A'$($=R];^2YT,C>3XL4^KXH&\5"
^XMB(3.9,23,2,6569,0)="""DATA"",396.18,202,3,916,0)"
^XMB(3.9,23,2,6570,0)="M-9KCPS+E,92,MGPPM;N6/B;DY1^OC$-G&1=?@%#>DGD$(1;PS""S8R[H8?D25"
^XMB(3.9,23,2,6571,0)="""DATA"",396.18,202,3,917,0)"
^XMB(3.9,23,2,6572,0)="MRJ*H*^N0'\(LDKJR'EE=""?6'L^6$IM65:KXIRKRW*?^FDVKB-P9R-VW>ID^/"
^XMB(3.9,23,2,6573,0)="""DATA"",396.18,202,3,918,0)"
^XMB(3.9,23,2,6574,0)="M]Y'%[-6H6^K,N0T;%XMD7$Q:S!YKG<AB4&/V6.\K&1<F>!I>LD\1_27Z:UGG"
^XMB(3.9,23,2,6575,0)="""DATA"",396.18,202,3,919,0)"
^XMB(3.9,23,2,6576,0)="M`>9C3@)5;W0;-CL6Z:XL)CH:R%-`CUTJZ0@'ZA&J""@1-:%8$\7.$*""_1G7TI"
^XMB(3.9,23,2,6577,0)="""DATA"",396.18,202,3,920,0)"
^XMB(3.9,23,2,6578,0)="M<18Z3##6F?8DD.!J`=R9PO:HZV*Q</V5&_INA-Z_P07E%J,)FI?%2""7E6(>\"
^XMB(3.9,23,2,6579,0)="""DATA"",396.18,202,3,921,0)"
^XMB(3.9,23,2,6580,0)="M+$:K*<=4\LI@$$V^(1ID]"".(56-L2H,OT3)TG,""P,:95HC-IP9<(J2`K;%*C"
^XMB(3.9,23,2,6581,0)="""DATA"",396.18,202,3,922,0)"
^XMB(3.9,23,2,6582,0)="M+F'.HDF^H-(:M'LMZ>;.(""NL0;S50BVD`$^BK<81J?<.KJ=(O=;K^1S5)E)B"
^XMB(3.9,23,2,6583,0)="""DATA"",396.18,202,3,923,0)"
^XMB(3.9,23,2,6584,0)="M#.N0LL9HB3&,G+*FFD0]-7$]E%XVHZDSG(""P'M)R9TS:73-KG;)F4N^:F79T"
^XMB(3.9,23,2,6585,0)="""DATA"",396.18,202,3,924,0)"
^XMB(3.9,23,2,6586,0)="MZCW$`41%\,+H&7_(.DFLO%<&""*^AM-)[[(B*&)]SO\BJ(<-9AW.)GNY--)=("
^XMB(3.9,23,2,6587,0)="""DATA"",396.18,202,3,925,0)"
^XMB(3.9,23,2,6588,0)="M)^42=?#%Z;14(EM6%K-:&D9#5<^V):JGHSE$G""Z@ZNFT'""*5=AYI[82S;:+F"
^XMB(3.9,23,2,6589,0)="""DATA"",396.18,202,3,926,0)"
^XMB(3.9,23,2,6590,0)="MG=('YS0F,>LJ+&W7D^%HAHJ%2EH3.I0#UE7:FL#($L?P*BNFS.U;PZ0L<2EM"
^XMB(3.9,23,2,6591,0)="""DATA"",396.18,202,3,927,0)"
^XMB(3.9,23,2,6592,0)="M8)E3:>:>YOEEK0L`FU3/+SM%`>""!&W[F'S>AB!V<O#88S9[&`U0X2.EKK$.."
^XMB(3.9,23,2,6593,0)="""DATA"",396.18,202,3,928,0)"
^XMB(3.9,23,2,6594,0)="MKDY+7V,Z7>QL7.QD3ET=3;3*:`.+'2W5RJ3Y=5GK#%V3ZM=EI\C0?>0?0=Y%"
^XMB(3.9,23,2,6595,0)="""DATA"",396.18,202,3,929,0)"
^XMB(3.9,23,2,6596,0)="M_""O`:V>+5IS2X>HV#[/I'5KV7"">5MV$=DG1U6GD;1D[2-1MON4R9PT]'*]>D"
^XMB(3.9,23,2,6597,0)="""DATA"",396.18,202,3,930,0)"
^XMB(3.9,23,2,6598,0)="M!(+%CE:ZQJ+58V""MLW1-LL?/.*'8)?NY[=I9NI5/Y-0(!8<G#\=SM-R93@I/"
^XMB(3.9,23,2,6599,0)="""DATA"",396.18,202,3,931,0)"
^XMB(3.9,23,2,6600,0)="M9AU2=75:>#*CINJJ<&9!%:9!_R:=3CW%]85H9[KSV])DNH`6S.$<@U6!%E-L"
^XMB(3.9,23,2,6601,0)="""DATA"",396.18,202,3,932,0)"
^XMB(3.9,23,2,6602,0)="M,9HJM$YVM32J*I@T5<""*J\I8!8A2?OK2\5L/E'$(RV5?)-(;/O@G8`.Z<%'W"
^XMB(3.9,23,2,6603,0)="""DATA"",396.18,202,3,933,0)"
^XMB(3.9,23,2,6604,0)="M>6L3<9N<4G=K!\,6=IK>CN=HE1*=YC3MD+2@$YVF]*0%8A5$O8<KJ2Y34M0I"
^XMB(3.9,23,2,6605,0)="""DATA"",396.18,202,3,934,0)"
^XMB(3.9,23,2,6606,0)="MR@D(*RG-*6H9-""5M'?AOZ50EM;Z*,X96""%%E3.:,T>GAP,12B""IT88&""Q)TQ"
^XMB(3.9,23,2,6607,0)="""DATA"",396.18,202,3,935,0)"
^XMB(3.9,23,2,6608,0)="M>N]K5'5Q?W<VF(+""]]W7-Z-?4#6BW7?#9_X&#25>>-MD#;5I%]YV0QUS%2BH"
^XMB(3.9,23,2,6609,0)="""DATA"",396.18,202,3,936,0)"
^XMB(3.9,23,2,6610,0)="M""[%+E:SY??K^P.B1OZ%BF3(#@EYQ<P;#!H1VQ6W1""N.QUCXERZ0:$/L(`]+`"
^XMB(3.9,23,2,6611,0)="""DATA"",396.18,202,3,937,0)"
^XMB(3.9,23,2,6612,0)="M&G!-98;4AC1%T$A!BA\6%&""""5H061*.K39]6-'K$3RNJ#77(F[XL)H,J^;JB"
^XMB(3.9,23,2,6613,0)="""DATA"",396.18,202,3,938,0)"
^XMB(3.9,23,2,6614,0)="M:A/NY.VF[RL""6MS5N'Y0)FZ0G(DBS+`:L/=G,IH^X&=Q@^;]Z5.^&F@=?,T*"
^XMB(3.9,23,2,6615,0)="""DATA"",396.18,202,3,939,0)"
^XMB(3.9,23,2,6616,0)="M97=D$/U#3;&!(G29P81\Y1F-0.MDH%Z@RTL2&ZZJ7*#U.O#A\I+$B4,SE!<\"
^XMB(3.9,23,2,6617,0)="""DATA"",396.18,202,3,940,0)"
^XMB(3.9,23,2,6618,0)="M]B:;-@V'$C\:D-B36X9%J1'""E3V""^Q]U2]VG+0&M0R@MZK4""ZY_`Y_'@\J#>"
^XMB(3.9,23,2,6619,0)="""DATA"",396.18,202,3,941,0)"
^XMB(3.9,23,2,6620,0)="M':K7B(MM-!M/4-4BN=CT#A&""!LW%IC=%""-9&U6F[ICYYEV+W)+L4`_?+<:K"""
^XMB(3.9,23,2,6621,0)="""DATA"",396.18,202,3,942,0)"
^XMB(3.9,23,2,6622,0)="MAH#FE[-I?CF]=22>W2/*J'Z*DM+3SPX:P6K`>0[3I^L9^M5!@Y3IH'<(5#)H"
^XMB(3.9,23,2,6623,0)="""DATA"",396.18,202,3,943,0)"
^XMB(3.9,23,2,6624,0)="MF0ZZ2KYUT!DN93*/EX'F.*2D@:6,EN5@TUQ>>NLJT3;5Y:6?KDKT/AOOSGV)"
^XMB(3.9,23,2,6625,0)="""DATA"",396.18,202,3,944,0)"
^XMB(3.9,23,2,6626,0)="MG[/""T<555K6""AA""K#TM$W8$U""0!Y('T8V3:0[R)3`"">B6(.\-VQ23ZX`&G7#"
^XMB(3.9,23,2,6627,0)="""DATA"",396.18,202,3,945,0)"
^XMB(3.9,23,2,6628,0)="ME@AV1:&7K(0('TMY+AA2D1':24QO'5=C4R]:]?]O[]J:V]:-\+/^!<8O.6=R"
^XMB(3.9,23,2,6629,0)="""DATA"",396.18,202,3,946,0)"
^XMB(3.9,23,2,6630,0)="MZE""\2>I4[<@2'7..9'I$^:1Y9&3:YM0679$ZB?]]`5*\X<:%:+NI*\TD8U/K"
^XMB(3.9,23,2,6631,0)="""DATA"",396.18,202,3,947,0)"
^XMB(3.9,23,2,6632,0)="MQ8?%8G>Q`!?Z@<4%SV5B%]86M)AZ7TETL\/=0?'M7D0HV6WOPNWS"">]\>NW8"
^XMB(3.9,23,2,6633,0)="""DATA"",396.18,202,3,948,0)"
^XMB(3.9,23,2,6634,0)="MK.AN/[U6^@8)J?JF+J<JZT[K&KP&E,56$Y/V3]:]_"",Z24_U4DI+]55$R^NQ"
^XMB(3.9,23,2,6635,0)="""DATA"",396.18,202,3,949,0)"
^XMB(3.9,23,2,6636,0)="MG#:_YT<<1[2-/KE,81NF(7H,$EY>WAC*RW.95H>A46F<NRM@6K!=`=-2$(F@"
^XMB(3.9,23,2,6637,0)="""DATA"",396.18,202,3,950,0)"
^XMB(3.9,23,2,6638,0)="M9EB_?C<K5Q1F!U%`&N6+P`2*P(14*K,`A<I>&-,[G8!OH<IL@IV!\B6Z""=%#"
^XMB(3.9,23,2,6639,0)="""DATA"",396.18,202,3,951,0)"
^XMB(3.9,23,2,6640,0)="MO,[2V&OL<N/-;Z3.ZL..E%9$#[O')TP=/S[_AIZ"";1IA.CP9T_R9+,4Z@)2/"
^XMB(3.9,23,2,6641,0)="""DATA"",396.18,202,3,952,0)"
^XMB(3.9,23,2,6642,0)="MS4F'T.T!MBSYF\!O6\Y)LML,5WB.FI-NJT6:R^CNOHI82F>?/99%D28HB#2Y"
^XMB(3.9,23,2,6643,0)="""DATA"",396.18,202,3,953,0)"
^XMB(3.9,23,2,6644,0)="M,60S*C%`(:2M$D*:T`A2UP$AI-T>0M;%-09(BQO'P0Y>F\HG\8;05+UI''17"
^XMB(3.9,23,2,6645,0)="""DATA"",396.18,202,3,954,0)"
^XMB(3.9,23,2,6646,0)="MR+E4IL+XD)&]:H!HB.^QKLRK(;^E6M>'<H*^R1""(?*VN*X:$LAY)/(;1L@E6"
^XMB(3.9,23,2,6647,0)="""DATA"",396.18,202,3,955,0)"
^XMB(3.9,23,2,6648,0)="M[Y/(28%-C<)NF*V!TE&ZH1!&,DK2$LKIS-VC""L.EP%OF.`?P1ANU0N@QLEK"""
^XMB(3.9,23,2,6649,0)="""DATA"",396.18,202,3,956,0)"
^XMB(3.9,23,2,6650,0)="M0(7:Q[H.C0--JRU^L('Q@PV)`SGR.,X,67SWLN/36<$YL97Q1I'A2%SQFA:^"
^XMB(3.9,23,2,6651,0)="""DATA"",396.18,202,3,957,0)"
^XMB(3.9,23,2,6652,0)="M;*M3!/P5@\(15,5L[8V4$9)ZG,SFR+DE[V0GO*_I`[&-F(/9$>(&&LVXJT^S"
^XMB(3.9,23,2,6653,0)="""DATA"",396.18,202,3,958,0)"
^XMB(3.9,23,2,6654,0)="MX""=U1R59:09[5]L8""^WQ(4I2]L](/[@A;9]^8Z)7GL*8S;EA'?L7=#C*(\LB"
^XMB(3.9,23,2,6655,0)="""DATA"",396.18,202,3,959,0)"
^XMB(3.9,23,2,6656,0)="MHCR]WNOQ2Q?K_=.$'B,AK:Y`:RC0F@JTE@*MK4`[4*`=*M"".X+2&!J>U5?K&"
^XMB(3.9,23,2,6657,0)="""DATA"",396.18,202,3,960,0)"
^XMB(3.9,23,2,6658,0)="M&%O)""$,I#3""E""::TP)0VF'(`IAR""*4=02D.#4MJ<'K$.<51GD#U@77!%D+M:"
^XMB(3.9,23,2,6659,0)="""DATA"",396.18,202,3,961,0)"
^XMB(3.9,23,2,6660,0)="M3MF(WMY2P8S(&&!#FGX/H%XMA`:4T(026E!""&THX@!(.H80C(*&A`0EM<6=H"
^XMB(3.9,23,2,6661,0)="""DATA"",396.18,202,3,962,0)"
^XMB(3.9,23,2,6662,0)="M[:&_9Y5G3T%'VI\^^2F.2<C""<Q-^1^L8AS+Q!DUV=Z@_Y#MX]GW4`>M:R]</"
^XMB(3.9,23,2,6663,0)="""DATA"",396.18,202,3,963,0)"
^XMB(3.9,23,2,6664,0)="M?I2Q>O8IGT?!W29.HF3_=:',6>!X.H\V8?$-ZE',OL8[]+C#2^1PDX9;A!<H"
^XMB(3.9,23,2,6665,0)="""DATA"",396.18,202,3,964,0)"
^XMB(3.9,23,2,6666,0)="MZ*;@=GJ""/J+I?;#]I6_\6G6WXE^<=>`M)ZB&]C]\Y+88YA$.D1OY=1WCAD@1"
^XMB(3.9,23,2,6667,0)="""DATA"",396.18,202,3,965,0)"
^XMB(3.9,23,2,6668,0)="M&B*\>+W>Y=?ID!<+UVGT)_XJ%&$#3V,9PEF,Y=4$DB-$NV1'WN`.HH?G&I9_"
^XMB(3.9,23,2,6669,0)="""DATA"",396.18,202,3,966,0)"
^XMB(3.9,23,2,6670,0)="MR+%@IOMT3*^W""),DN`OWS[FT#+CZX,[<R>=+SW?]OR+2*#W(=1BH\2GD4M3P"
^XMB(3.9,23,2,6671,0)="""DATA"",396.18,202,3,967,0)"
^XMB(3.9,23,2,6672,0)="MS-[9J7!Q5:GY.Q;,U=([FSL+-/%];^I.5LX,?7%7%VAUX2`.,JHQ,;A""""#T0"
^XMB(3.9,23,2,6673,0)="""DATA"",396.18,202,3,968,0)"
^XMB(3.9,23,2,6674,0)="M""N?\W)FND'>)KOWKR1QYT^GUU63E>I=5TWS-;(P2I<0F-X'6`V):7;@^%H$_"
^XMB(3.9,23,2,6675,0)="""DATA"",396.18,202,3,969,0)"
^XMB(3.9,23,2,6676,0)="M.7/G[NKK!Q^YBZM)CK+""A\'B9^X?[LIU?`:L*0-;BJB)VNJ$>NGXU_.5>_D9"
^XMB(3.9,23,2,6677,0)="""DATA"",396.18,202,3,970,0)"
^XMB(3.9,23,2,6678,0)="M??&6OZ/]\#+`+!5@61E3;:^/BG@\K$A+E(^O#Q)=HS4!,%#3DZ5#U!C_7S9_"
^XMB(3.9,23,2,6679,0)="""DATA"",396.18,202,3,971,0)"
^XMB(3.9,23,2,6680,0)="MGNEUH?.ENLTF[OPK%XS<Z'""5CXD>RC]9J0\GFEYX2S$@O:\RCDRXT@F9?^%="
^XMB(3.9,23,2,6681,0)="""DATA"",396.18,202,3,972,0)"
^XMB(3.9,23,2,6682,0)="M76%%$V+3.V`SNF%S_NDLIZ[O""+$9';!U,RO(O_*6*_&(FH<CL^UNR);.=.E0"
^XMB(3.9,23,2,6683,0)="""DATA"",396.18,202,3,973,0)"
^XMB(3.9,23,2,6684,0)="M5E?>@I+<NADVM%I._G#F,H6S#@=G:-W`G3O.3`*-9J\DMU$W:&<3[,DD4AMU"
^XMB(3.9,23,2,6685,0)="""DATA"",396.18,202,3,974,0)"
^XMB(3.9,23,2,6686,0)="M@#;L!FV&39LOPS;L@&W04=T\=^ZL9.`&'<!UG*F?EYZWD&%3FJ<+9^&-3O'4"
^XMB(3.9,23,2,6687,0)="""DATA"",396.18,202,3,975,0)"
^XMB(3.9,23,2,6688,0)="M<GSU(73\Z=(]<U#FZ.MNO,:TO7GCP.8GLYF[CR6FWF+A7*XH""(8<0GV]:)?+"
^XMB(3.9,23,2,6689,0)="""DATA"",396.18,202,3,976,0)"
^XMB(3.9,23,2,6690,0)="M*J8=V;G1^DJ!:H9)Q*ZI96`S9A:N_9C[(FYE^5W!:KG/RX4JI$T5LJ8*25.%"
^XMB(3.9,23,2,6691,0)="""DATA"",396.18,202,3,977,0)"
^XMB(3.9,23,2,6692,0)="MG*E""RE0A8ZJ0,%7(ERJD2Q6RI0K)TC+1P5LU4=P::[K\NW4C.4=^,+A/1]RG"
^XMB(3.9,23,2,6693,0)="""DATA"",396.18,202,3,978,0)"
^XMB(3.9,23,2,6694,0)="MYE&SWK]FM6;AP4EX<`X>G(('9^#!""7AP_AV<?@=GW\')=W#NO2W'WIIBIQR6"
^XMB(3.9,23,2,6695,0)="""DATA"",396.18,202,3,979,0)"
^XMB(3.9,23,2,6696,0)="M]'(>+JDE(>5<JE(O""U!/EYS1ENUO?S_QH[M-=!NM@TU:[+,2M650G-&`QS4,"
^XMB(3.9,23,2,6697,0)="""DATA"",396.18,202,3,980,0)"
^XMB(3.9,23,2,6698,0)="M/&K.:Q*]""O""""!DRU2$3)CBT?E9PJ/X$!8F4!6!FVG&B?CZ%IJ""PG=S3&PL$0"
^XMB(3.9,23,2,6699,0)="""DATA"",396.18,202,3,981,0)"
^XMB(3.9,23,2,6700,0)="MB*7(CHM%PA!0TA`PL.0,#%OX/=7]YC8!7:]>9;.>>^`PWW(8C\?(>7QZB)])"
^XMB(3.9,23,2,6701,0)="""DATA"",396.18,202,3,982,0)"
^XMB(3.9,23,2,6702,0)="M!2HT%G[*4X-Y^[J&/WTVRFQ>Q*'INMXL&<2<\VTRU?61Q>Q@0)BR+YW7NM4H"
^XMB(3.9,23,2,6703,0)="""DATA"",396.18,202,3,983,0)"
^XMB(3.9,23,2,6704,0)="M`)T_QNSI$P7948L,`GM2]AQ&6IV<A/Y!N2?(S#J]CTU^*#Q(392%,.1<N,AA"
^XMB(3.9,23,2,6705,0)="""DATA"",396.18,202,3,984,0)"
^XMB(3.9,23,2,6706,0)="MI>D25CD5YC7H`QK4!Y`&=5MV""+RXBANSJU]=GLKH=#%=V8$AN%69U$`]Y0RM"
^XMB(3.9,23,2,6707,0)="""DATA"",396.18,202,3,985,0)"
^XMB(3.9,23,2,6708,0)="MUGK#!I&,+;W[N_:60;//[:3MKV>0YH?2>T#*KANP(VDY;8M<#/B!^CT]K""LC"
^XMB(3.9,23,2,6709,0)="""DATA"",396.18,202,3,986,0)"
^XMB(3.9,23,2,6710,0)="MT""WJV%+I@-NG*\ILN^E5Y%>_H"")K;`""D*B$AU*J#4MF5QF\,MGWE`54%DT8="
^XMB(3.9,23,2,6711,0)="""DATA"",396.18,202,3,987,0)"
^XMB(3.9,23,2,6712,0)="MWN=;-*'P^+>`\Y6O>6LYW]Y)!KQI?UHI):I!FT^Q:@P4IM9`P>3`;+&\BS6#"
^XMB(3.9,23,2,6713,0)="""DATA"",396.18,202,3,988,0)"
^XMB(3.9,23,2,6714,0)="M([!@M)65\],46N8*E^+6,@`Z:&Z.%`9@]+)#>,#\*R>@(#7WJO&,T`P>9W(7"
^XMB(3.9,23,2,6715,0)="""DATA"",396.18,202,3,989,0)"
^XMB(3.9,23,2,6716,0)="M-:A[DU#)-_[,,<;A;NV=1BHBTWJ8*3R.+FA^`.V7W3Z17M#5O;J+JBI2D:;P"
^XMB(3.9,23,2,6717,0)="""DATA"",396.18,202,3,990,0)"
^XMB(3.9,23,2,6718,0)="M""#P,^J""6#H]&Q)ZY\%@=W)[0RXV/3N[HY(YF\.CDCD[N_\[)O:7SJAS0N?`O"
^XMB(3.9,23,2,6719,0)="""DATA"",396.18,202,3,991,0)"
^XMB(3.9,23,2,6720,0)="MJ/?D!4RU-UVLTND:`6P(*&%>=""1\C9FN6/<3K-[I@5R&:;25+I?IJ[_$@82F"
^XMB(3.9,23,2,6721,0)="""DATA"",396.18,202,3,992,0)"
^XMB(3.9,23,2,6722,0)="MFOW7X-E_:2Y;;/]241;(-B7\N'9/./Z&6E[\/>1_""ZT90Y4&D#?5P'E3N85^"
^XMB(3.9,23,2,6723,0)="""DATA"",396.18,202,3,993,0)"
^XMB(3.9,23,2,6724,0)="M]3T#N2]^7Q$1K<_J`R],V)6+&743I*1%1QTZ;G+]]S>Y#K:8]-)?G=%QLAPG"
^XMB(3.9,23,2,6725,0)="""DATA"",396.18,202,3,994,0)"
^XMB(3.9,23,2,6726,0)="MR__$9!%HO%1IJ""""S3<$$58,8X""K!'A7:M,*%8G@YY5-!B(6TP#^2FC&_/-T_"
^XMB(3.9,23,2,6727,0)="""DATA"",396.18,202,3,995,0)"
^XMB(3.9,23,2,6728,0)="M)]E/3WD]DE^YJ'7-A$C.ZBZY3L#$XK04Q&EU$6?RO+Z/@G0;K=N`@Q8>]DM*"
^XMB(3.9,23,2,6729,0)="""DATA"",396.18,202,3,996,0)"
^XMB(3.9,23,2,6730,0)="M]#!L8J':""D+E5]HZ/]QEO!;(-U.QMS8-I;&]WH3M.^@&/,0PX$O\D0DZKJ9Q"
^XMB(3.9,23,2,6731,0)="""DATA"",396.18,202,3,997,0)"
^XMB(3.9,23,2,6732,0)="M,RX<=B![+FNS)HLQ6!3M""UU#5$SI9W'A(ZZJ)3+1M:F:^5)RI?-7+WY4E@#E"
^XMB(3.9,23,2,6733,0)="""DATA"",396.18,202,3,998,0)"
^XMB(3.9,23,2,6734,0)="MUF0U*DAN[;X+;$&]*QR5_WL7)NF^""/*G3X@\?D+;\O'Z/MC<A3?Y.7<0__U4"
^XMB(3.9,23,2,6735,0)="""DATA"",396.18,202,3,999,0)"
^XMB(3.9,23,2,6736,0)="M09Q/<5J^J(!Q<H6EGH3H6TBJ<X8HC?=5WD(4H,+$>T_1)HHWIR<?BS?EJA]."
^XMB(3.9,23,2,6737,0)="""DATA"",396.18,202,3,1000,0)"
^XMB(3.9,23,2,6738,0)="M5O<A^K`(-H3;BHQ.D(;)![1+(W+Q.+J-=YL;A/_MBXQ\\)Y(*0],\2V3/PK2"
^XMB(3.9,23,2,6739,0)="""DATA"",396.18,202,3,1001,0)"
^XMB(3.9,23,2,6740,0)="M[/FW&/_V6-0>(<4HPPU:!QN"";)=@,6!DP<T-BPJE^T9/3XKNA<6V::XX7&&/"
^XMB(3.9,23,2,6741,0)="""DATA"",396.18,202,3,1002,0)"
^XMB(3.9,23,2,6742,0)="MV^5(.&2L$#D&_9?R0Q0*+<.[W4.P15-27:;Z;F\/YT&2+G>;<7G9GO,C2KW?"
^XMB(3.9,23,2,6743,0)="""DATA"",396.18,202,3,1003,0)"
^XMB(3.9,23,2,6744,0)="M<:O]IBTAH-Q<X`23EFD16)&H@2Z5YWN05`I4*L[""F>'61.6""&88-;H_A%NL@"
^XMB(3.9,23,2,6745,0)="""DATA"",396.18,202,3,1004,0)"
^XMB(3.9,23,2,6746,0)="MUHU""@81=Z#-C@)L6D""+!I[WI7)YC(0>*F_<OHC_A#W)L'XI.`Z&[]%8LPG)V"
^XMB(3.9,23,2,6747,0)="""DATA"",396.18,202,3,1005,0)"
^XMB(3.9,23,2,6748,0)="MD2H[U4QF=9>H+U;WZNW1-/AV*G@[-2O]DL]6/""'RR?1*\ZYUKA&*]![C_?R\"
^XMB(3.9,23,2,6749,0)="""DATA"",396.18,202,3,1006,0)"
^XMB(3.9,23,2,6750,0)="M""=?Q0WR7D06XR?Q*ENQ""SVI&ONR@Y9,2J5G<^DR13115H!14A#E^#]$F_!,+"
^XMB(3.9,23,2,6751,0)="""DATA"",396.18,202,3,1007,0)"
^XMB(3.9,23,2,6752,0)="M/DB(3[F-M[DHO:<2/<&^+RO]'U!+`P04``(`""`#<4Q\U<@2W,\H.``#F7@``"
^XMB(3.9,23,2,6753,0)="""DATA"",396.18,202,3,1008,0)"
^XMB(3.9,23,2,6754,0)="M%@```$=Y;E]""<F5A<W1?,3$S+G!N;""YR97""U'%O/I+;U?:7]#TC?2U)U%<#`"
^XMB(3.9,23,2,6755,0)="""DATA"",396.18,202,3,1009,0)"
^XMB(3.9,23,2,6756,0)="MS*RV&WD8SPP*8&)@ODRJ594J>8C4=*LTE?KS:YNKP3;')-VG_0;P.3[WFYW2"
^XMB(3.9,23,2,6757,0)="""DATA"",396.18,202,3,1010,0)"
^XMB(3.9,23,2,6758,0)="MHB)EC9N,EAXN+Y[X2_R??(>+K)2_OWUS>Y8DI3F]92G.O926ETP\J.47EZRF"
^XMB(3.9,23,2,6759,0)="""DATA"",396.18,202,3,1011,0)"
^XMB(3.9,23,2,6760,0)="M[$)8[=&KU]R)=V8$U\W;-W_9\>_MFP\?:-M4;4.OUX\?O:^^\BI:M95WI:SP"
^XMB(3.9,23,2,6761,0)="""DATA"",396.18,202,3,1012,0)"
^XMB(3.9,23,2,6762,0)="M_LH1^5N%2Y('R:?EJQ\^9.6%E/U?+R_BW>*G7S['OO@7O+STOZ75:\%^^/'G"
^XMB(3.9,23,2,6763,0)="""DATA"",396.18,202,3,1013,0)"
^XMB(3.9,23,2,6764,0)="MS[=?/__G7]U39'T:\J=OWS#RR,BKV&1!+I(0C!.%76K+3DTXAB.&Y,>??XL'"
^XMB(3.9,23,2,6765,0)="""DATA"",396.18,202,3,1014,0)"
^XMB(3.9,23,2,6766,0)="M((N?!%9_^GW_'!'X\$']Z>-'AP70>@'DM,#_G00EA[F-CTD$TG?7+""?>*Z[?"
^XMB(3.9,23,2,6767,0)="""DATA"",396.18,202,3,1015,0)"
^XMB(3.9,23,2,6768,0)="M>_U&M:]""]FP2PH5H>:^$$2LT!-J2J@<I+0K^6&Q#?-J]',D/%R]K%N<:2;C6"
^XMB(3.9,23,2,6769,0)="""DATA"",396.18,202,3,1016,0)"
^XMB(3.9,23,2,6770,0)="M6U71J+6K-WOT2$&#^.4%L)'^S0%5^:>*9;FR!6_?#&2]9W5#V7.EL7JT)+WQ"
^XMB(3.9,23,2,6771,0)="""DATA"",396.18,202,3,1017,0)"
^XMB(3.9,23,2,6772,0)="M):,W1MLJ@.""W^L3+:F$4&?'P`%V8D#NMJZS!>?9]9WHI\^J6W0A[?JUP>UI*"
^XMB(3.9,23,2,6773,0)="""DATA"",396.18,202,3,1018,0)"
^XMB(3.9,23,2,6774,0)="MSPH]F0.C<8Q42B8<P;HM""MQAA?-\B5EGXSO<,J**3#*)C%P,)""TF&5""WB]R)"
^XMB(3.9,23,2,6775,0)="""DATA"",396.18,202,3,1019,0)"
^XMB(3.9,23,2,6776,0)="MC8S$;AAN""^PUU%,=6?VL&U((VG<NRT!ZY$#Z!$KY(\>V>5;DSUY.T\G]7G!#"
^XMB(3.9,23,2,6777,0)="""DATA"",396.18,202,3,1020,0)"
^XMB(3.9,23,2,6778,0)="MOJB_G+""V$?P((7@""HG?H3N_02.^2T""K'=2'^OXOBH8NPQP""2J\L+J>=67`8K"
^XMB(3.9,23,2,6779,0)="""DATA"",396.18,202,3,1021,0)"
^XMB(3.9,23,2,6780,0)="M35MP;`HN[[<2ER:$=*(]8Z8@!0^8TH8'0_A6TCKK@B&QMHV!H<5X3\ASV]4<"
^XMB(3.9,23,2,6781,0)="""DATA"",396.18,202,3,1022,0)"
^XMB(3.9,23,2,6782,0)="M.`0A&V+9$<;H&.0;H+4D6-3+7CV*7(<N9TDC'(/W15:F>7O)RMM@E;ZT;0.!"
^XMB(3.9,23,2,6783,0)="""DATA"",396.18,202,3,1023,0)"
^XMB(3.9,23,2,6784,0)="MMX%FV^`2TDPPE;W`%YQ1?KXLYV362V&3I08H(9QB)X$WJ5.659VYGE&+JZN-"
^XMB(3.9,23,2,6785,0)="""DATA"",396.18,202,3,1024,0)"
^XMB(3.9,23,2,6786,0)="M."">058Q-6DJ+,SW3[W;8PU@@C6]<-QOO]9ZE=QY<E#5G]9G<</E>+^CQR47U"
^XMB(3.9,23,2,6787,0)="""DATA"",396.18,202,3,1025,0)"
^XMB(3.9,23,2,6788,0)="M0J""U""Z,U_7#);84P'A+'!6HF:H81B)JA@9J""ZPF$DOV+JE`)'!O6<C-6<5]("
^XMB(3.9,23,2,6789,0)="""DATA"",396.18,202,3,1026,0)"
^XMB(3.9,23,2,6790,0)="M+XHP)2!A&M@IZ8&?8L/-*R'E:NU9B#E\8@&0J-2.;=3>!#O1_JC2/G;:HD`"""
^XMB(3.9,23,2,6791,0)="""DATA"",396.18,202,3,1027,0)"
^XMB(3.9,23,2,6792,0)="M/P@3W+VT#`^8;.]4P!%80OS6T5TOA.?%W&5UCFM"")V6XJ&J#`SBZJ`5R]T@B"
^XMB(3.9,23,2,6793,0)="""DATA"",396.18,202,3,1028,0)"
^XMB(3.9,23,2,6794,0)="M4JP))U?6/%4J=6@9U#6!1>AHR[K`W/_L;6YT&^$I%%3/.2'""::PXBD*C_QQ>"
^XMB(3.9,23,2,6795,0)="""DATA"",396.18,202,3,1029,0)"
^XMB(3.9,23,2,6796,0)="M2=P9F0@\&+FU.=:0[9GFQ.3-+>BH0;>_(^;W#?)5/XNJH85)P@+?1<0.`!&C"
^XMB(3.9,23,2,6797,0)="""DATA"",396.18,202,3,1030,0)"
^XMB(3.9,23,2,6798,0)="M+.<Q64=;#1X&,SM]95'WHVIP$IO!T4"">X,I=SVP,+(<X;!1_C&0[?H*+>3@K"
^XMB(3.9,23,2,6799,0)="""DATA"",396.18,202,3,1031,0)"
^XMB(3.9,23,2,6800,0)="M""@T_^>N?PO5/P>HG&4`L?CK*JE+%!9@'GNESRDW?+?_!C:Y<M&R+,Z<[9\*P"
^XMB(3.9,23,2,6801,0)="""DATA"",396.18,202,3,1032,0)"
^XMB(3.9,23,2,6802,0)="M>)>XJ3JIS1[T#B41V^Z8:5K;Y#02W\EI2-)-,/+L0;QSQIK[&O\P`.,?'S3X"
^XMB(3.9,23,2,6803,0)="""DATA"",396.18,202,3,1033,0)"
^XMB(3.9,23,2,6804,0)="MJVN;\(\/;OB'""OY%5J>8,1ZO:Q@0AO`-'#4;6""QNW,'1:0=24B<@^$R9+`.L"
^XMB(3.9,23,2,6805,0)="""DATA"",396.18,202,3,1034,0)"
^XMB(3.9,23,2,6806,0)="MY><$EY]`@_Y\9:/T!&[41PKN#WS+2FYV+D3PFNF4($1P'IPTF]"""",'+BY+8;"
^XMB(3.9,23,2,6807,0)="""DATA"",396.18,202,3,1035,0)"
^XMB(3.9,23,2,6808,0)="M7]E-^JXFJ9X5H0_?1:+9A;*T$7N8:3Z""R@W!CGJ#S+(5QTHKW-8`S^I43CBY"
^XMB(3.9,23,2,6809,0)="""DATA"",396.18,202,3,1036,0)"
^XMB(3.9,23,2,6810,0)="M>-9#YUF7B&RYU@/<M1XV7*L5]-*['D`L/%FR)UB5=GA3S9\J7'EU03!3$B=1"
^XMB(3.9,23,2,6811,0)="""DATA"",396.18,202,3,1037,0)"
^XMB(3.9,23,2,6812,0)="MO@6)S(X4.%!J@D-X.F8_?0)B$AN7NE_H?X)KMN#IE9%O6\+]_DJ;81YGE*7C"
^XMB(3.9,23,2,6813,0)="""DATA"",396.18,202,3,1038,0)"
^XMB(3.9,23,2,6814,0)="M+',8UYJ>0CBN05Y+S6@'!R*E2G@N.=FXM(YVD_NP.V8W4Z0>1""X\""!QX<)SS"
^XMB(3.9,23,2,6815,0)="""DATA"",396.18,202,3,1039,0)"
^XMB(3.9,23,2,6816,0)="MH*NJ]:BL&`(/E,+C6EOGZQI3:QB;8*5SF(JNOYDIBJS-CMSB@F5B3^S""GM#%"
^XMB(3.9,23,2,6817,0)="""DATA"",396.18,202,3,1040,0)"
^XMB(3.9,23,2,6818,0)="ML@ION\9CR["">X(;U9#.L&Y""7=A54XPM#&/M..]AWFK.O(ODC2[FYS4H3WURJ"
^XMB(3.9,23,2,6819,0)="""DATA"",396.18,202,3,1041,0)"
^XMB(3.9,23,2,6820,0)="M?&'DH%:GI5K-D%DI%HQL$8QL.RI!,EL:R7851M1$L""/,284[""@8RSIN9R`LM"
^XMB(3.9,23,2,6821,0)="""DATA"",396.18,202,3,1042,0)"
^XMB(3.9,23,2,6822,0)="MI&VT\""]TJ16$L0/_9/5""8:""*T#H-\$%,C&%=OQT]5J0T62M:-^]2*AJ8H[\W"
^XMB(3.9,23,2,6823,0)="""DATA"",396.18,202,3,1043,0)"
^XMB(3.9,23,2,6824,0)="MM?4""8!4([0A6D1JLGNDKV8Q3D4N<&B8NUE2R=1$B+J""LYP!F7\M7MGW@F)#("
^XMB(3.9,23,2,6825,0)="""DATA"",396.18,202,3,1044,0)"
^XMB(3.9,23,2,6826,0)="M^G;&L],[P:K3,\<](:S""/;X>RTF&LFZRJA]3`L*)W>`DLLJ8SB4*#""IQ`R4"""
^XMB(3.9,23,2,6827,0)="""DATA"",396.18,202,3,1045,0)"
^XMB(3.9,23,2,6828,0)="M0Z%EUS;O1::@#R)G-<`@#^;QDT375M+WC@R_)^*#*Q&MW*SDQ!==MC(E*G*F"
^XMB(3.9,23,2,6829,0)="""DATA"",396.18,202,3,1046,0)"
^XMB(3.9,23,2,6830,0)="M!:>2<;=""3O`W6,1%VD94MXW5JC/$9T18E)L-WZZW4N%+[8EE,D8N>D02RPR3"
^XMB(3.9,23,2,6831,0)="""DATA"",396.18,202,3,1047,0)"
^XMB(3.9,23,2,6832,0)="M&E($P3JDZ,,)1?W-Y<\`5,X/82U]M""-<%]_,S5:.+Q>._Y;A<HK2G4K7DJ;["
^XMB(3.9,23,2,6833,0)="""DATA"",396.18,202,3,1048,0)"
^XMB(3.9,23,2,6834,0)="M#5?@:+B2=3%7212V!4'Y[H*?3580[T$SF7AF94/8`^=KK3U""A&R.94G3IF49"
^XMB(3.9,23,2,6835,0)="""DATA"",396.18,202,3,1049,0)"
^XMB(3.9,23,2,6836,0)="M]KYXD86H#D(M<EJOS&[WYLL5D,3%,LCX6/3^^UV#;,_)R?8(GW1YUF(74`C("
^XMB(3.9,23,2,6837,0)="""DATA"",396.18,202,3,1050,0)"
^XMB(3.9,23,2,6838,0)="MAT`8^1^-[)3:-?TYOB$+SDM39N>""LKH8HY`%CL&6Z;.$Z1MP@A)$)FO2C6[,"
^XMB(3.9,23,2,6839,0)="""DATA"",396.18,202,3,1051,0)"
^XMB(3.9,23,2,6840,0)="M@)KM""0R<2@U!""T9S`6#0_Q[08""D-%FRVC)/;DQ'<G12XL8K""0A+@Y?].T+1V"
^XMB(3.9,23,2,6841,0)="""DATA"",396.18,202,3,1052,0)"
^XMB(3.9,23,2,6842,0)="M>6'?WIL2=)W<K>WR`6:7=^3G2,G/A^J)XD9-MMDI13^ZI`K1,E68E&""1(X""F"
^XMB(3.9,23,2,6843,0)="""DATA"",396.18,202,3,1053,0)"
^XMB(3.9,23,2,6844,0)="M-D)8Z1CMZ!2+;];DX])6DBWR)2[DL]>.M7`U/LWF#M76^Y+@L_?@VA'8""B$="
^XMB(3.9,23,2,6845,0)="""DATA"",396.18,202,3,1054,0)"
^XMB(3.9,23,2,6846,0)="M++->P`*6$XRSAQV</1BG$`69Q5QKP[K!O)K@VLCF@P.;D>\4P2#I2#6XV,,9"
^XMB(3.9,23,2,6847,0)="""DATA"",396.18,202,3,1055,0)"
^XMB(3.9,23,2,6848,0)="M375+5J3-X8S&H'?EU_+:M7>DY]`(""\Q+R&+]:BAJ7%PMZB?0H!DAF_AML=/L"
^XMB(3.9,23,2,6849,0)="""DATA"",396.18,202,3,1056,0)"
^XMB(3.9,23,2,6850,0)="M^A""RCFS""@N/AS1Z;.KN5V35+,=>^'C/3""+W\4&*P,9E>W9^U'(T5!VX6<^G."
^XMB(3.9,23,2,6851,0)="""DATA"",396.18,202,3,1057,0)"
^XMB(3.9,23,2,6852,0)="M$W^F=""XZFAY$I@?&I4+3@\#TP#<\0""?3@WXTHBL=*B>1WFT.1Y@(XSJ2%?>]"
^XMB(3.9,23,2,6853,0)="""DATA"",396.18,202,3,1058,0)"
^XMB(3.9,23,2,6854,0)="M(]$D*DE;2#S&BK#!CL0N/:/(;$<TL:RL\0[AIEJ87NHSK#._P#R298Z\&_J_"
^XMB(3.9,23,2,6855,0)="""DATA"",396.18,202,3,1059,0)"
^XMB(3.9,23,2,6856,0)="M9Y48EQ^'4TS3HB#''L':2Y'OSJ3(USGVK:Y2Y%(^/7X""#CF$:T.V0L@VZQ!"""
^XMB(3.9,23,2,6857,0)="""DATA"",396.18,202,3,1060,0)"
^XMB(3.9,23,2,6858,0)="M:`F,D8[NI$1*,9Q[?1X8EZ0VYOPN$Y$H<))T$>R.IR+$J/6(C(%^LT_!^16R"
^XMB(3.9,23,2,6859,0)="""DATA"",396.18,202,3,1061,0)"
^XMB(3.9,23,2,6860,0)="M3LD.X&UM'U-HK7(,`0^\G':P[*0&/P4VL\NEXX-"")W8E""W8)-#89!9\N1,GO"
^XMB(3.9,23,2,6861,0)="""DATA"",396.18,202,3,1062,0)"
^XMB(3.9,23,2,6862,0)="M9A1H=`7!^G/1#MV*CBJCKIP(;8Y-YLE)M0Y.O#KT3F23/_`1E<BW\6?P6/V6"
^XMB(3.9,23,2,6863,0)="""DATA"",396.18,202,3,1063,0)"
^XMB(3.9,23,2,6864,0)="M;6R*0*TD!,NRHQTN/U+&12I&<US5$ONV(:PUZ5;DXO11_`E>&>G"";7)CA'0C"
^XMB(3.9,23,2,6865,0)="""DATA"",396.18,202,3,1064,0)"
^XMB(3.9,23,2,6866,0)="MEQU&ZP0;)N""P)EP4[:""<,N8AJ""527.[VJARGLH%AHIU+Z1@E+K0[Z`9CIJ<["
^XMB(3.9,23,2,6867,0)="""DATA"",396.18,202,3,1065,0)"
^XMB(3.9,23,2,6868,0)="M8J1(GFFXW$FMCN$M7MJSLF`T-YLTS7AR=9G-3%^$WK`S#\*($:*#+=4=9!(:"
^XMB(3.9,23,2,6869,0)="""DATA"",396.18,202,3,1066,0)"
^XMB(3.9,23,2,6870,0)="M*@Z""*;4<`P9F&PMJYB-8ZR(*=XB@<AXQ)>PATZKM(9;(I>V*(F`XB#2C0#JD"
^XMB(3.9,23,2,6871,0)="""DATA"",396.18,202,3,1067,0)"
^XMB(3.9,23,2,6872,0)="M+!$A`DT%(=A\1!3L(*G26N_L^1#2`NCJ<F09(2A=#^8P&TA6T!2D!2%C^FWJ"
^XMB(3.9,23,2,6873,0)="""DATA"",396.18,202,3,1068,0)"
^XMB(3.9,23,2,6874,0)="MFL;&G/D@$]UIQ&(CUP6FN]%A!Z_[0IH6EZVT-W(JGT$RJ@4!?:?<)/;=VAYR"
^XMB(3.9,23,2,6875,0)="""DATA"",396.18,202,3,1069,0)"
^XMB(3.9,23,2,6876,0)="M#@B0<.AZ'<!C%`MZP0/W""#[2%FDJN6)E:=PA<7($JN;NX9_2OB""/[""):;=(D"
^XMB(3.9,23,2,6877,0)="""DATA"",396.18,202,3,1070,0)"
^XMB(3.9,23,2,6878,0)="MTJ+*B:@G/C#+,)>TAM'J;K(IL4LW(S)GG0O""B;COC/M3VRD5AY_KX41^BMLN"
^XMB(3.9,23,2,6879,0)="""DATA"",396.18,202,3,1071,0)"
^XMB(3.9,23,2,6880,0)="M!NPQLQ(0@>HA@3L!%>=&V7!\G?^A'K`?CMZ;Z.?DZTY0^FE*'XP'21<>/M3*"
^XMB(3.9,23,2,6881,0)="""DATA"",396.18,202,3,1072,0)"
^XMB(3.9,23,2,6882,0)="MA0""""H%E3*P>RS=0$540L6%H*@HG)(@O+V4]__A&%1TNS:@.[?E(Z)]?&FR%D"
^XMB(3.9,23,2,6883,0)="""DATA"",396.18,202,3,1073,0)"
^XMB(3.9,23,2,6884,0)="M8JQ+GRH*`;YMM'""Q;A)W>=)%,WP10UKUDL^:2DP/4)BOQ0T9=?8],?:C@,'W"
^XMB(3.9,23,2,6885,0)="""DATA"",396.18,202,3,1074,0)"
^XMB(3.9,23,2,6886,0)="MU*GV9T75'F9_XX$U/;:>N)%BK.6KTJR:=Q-PSE.F;H]9*;=HXO-A%^`C#+""0"
^XMB(3.9,23,2,6887,0)="""DATA"",396.18,202,3,1075,0)"
^XMB(3.9,23,2,6888,0)="M$Q-@^!1\9)Q<T(J1D9>PXG((OGTH0K!(>8_*1I/&,C%]`U#9""'1STR1RX4X]"
^XMB(3.9,23,2,6889,0)="""DATA"",396.18,202,3,1076,0)"
^XMB(3.9,23,2,6890,0)="M#$.P(A[^.$4\.""HB,BKB>[LFHCT*<?K=BGC:`S;Q`7!%L<RLAPG\K%^4_#%Z"
^XMB(3.9,23,2,6891,0)="""DATA"",396.18,202,3,1077,0)"
^XMB(3.9,23,2,6892,0)="M""""HN&95++G&$=ENCH[;;.G9)K_PC,>=FZ;M&<I9NH^W:D+H9+NZSX'T""XRTD"
^XMB(3.9,23,2,6893,0)="""DATA"",396.18,202,3,1078,0)"
^XMB(3.9,23,2,6894,0)="M*CVG(NYI\\:*W\ETED`>L_2A(&52)+OB^5.$KMN08]\*.01#%J:(PV*XIBV7"
^XMB(3.9,23,2,6895,0)="""DATA"",396.18,202,3,1079,0)"
^XMB(3.9,23,2,6896,0)="M`@#DT`H9@2'+._)P47!EP%PH(*""1%70`!BVRJQQ7F-$ZI566BD3AFG']&72+"
^XMB(3.9,23,2,6897,0)="""DATA"",396.18,202,3,1080,0)"
^XMB(3.9,23,2,6898,0)="M*P0M2,.R[OXG)B/=K'S0O)OAEJ9-3@+3<?3,AGA@11P\P""`[N^/92PC%(MAA"
^XMB(3.9,23,2,6899,0)="""DATA"",396.18,202,3,1081,0)"
^XMB(3.9,23,2,6900,0)="MEWC':0U)Q5>9]>:Y)[5PP,CK+ITB%T],JMR)4H!@I*+,5$2.@\U)B[=OQENS"
^XMB(3.9,23,2,6901,0)="""DATA"",396.18,202,3,1082,0)"
^XMB(3.9,23,2,6902,0)="M9D,6[K=(_/#/G_X1AI;#%^J=BZ$?ALAT]:AX>(ID!8CP+)@^I9""8KX$`W`.A"
^XMB(3.9,23,2,6903,0)="""DATA"",396.18,202,3,1083,0)"
^XMB(3.9,23,2,6904,0)="MP&QK4;ZE:=I6Z]0_4:Y[[+Z!'4_7[X%+_(,('U9Z:<L8_R1_>MVVR.5K_0V6"
^XMB(3.9,23,2,6905,0)="""DATA"",396.18,202,3,1084,0)"
^XMB(3.9,23,2,6906,0)="MW<<P?S8@*8Q>#\""TM>-Z:\!;*#[_\O?/Y\__%9_(P?,A()G8,Y7@E7=A-:#Y"
^XMB(3.9,23,2,6907,0)="""DATA"",396.18,202,3,1085,0)"
^XMB(3.9,23,2,6908,0)="M)S)EGEV+-.QI""U3H#DKF.&(,/:?<Z5\9+;Q7RKX1X,50NASC""L)W!2V;^_)J"
^XMB(3.9,23,2,6909,0)="""DATA"",396.18,202,3,1086,0)"
^XMB(3.9,23,2,6910,0)="M*W4A6""FJ)[J<()?5D^%""0PT./,@RP->7!<:U87>W#:]/%X!,,C-=!\I##5&."
^XMB(3.9,23,2,6911,0)="""DATA"",396.18,202,3,1087,0)"
^XMB(3.9,23,2,6912,0)="M&J<TY&V<\J=\B.$W=""<\[-4=7]4=1AIQ%,6F,+``4-R@&_I^M_5A8J];7;T("
^XMB(3.9,23,2,6913,0)="""DATA"",396.18,202,3,1088,0)"
^XMB(3.9,23,2,6914,0)="M;WP/&K#__._?YD(\UL>4Q0TQ^_Q;-V&*I\MQOQJCP8K1<TXLEQZ,7[L!$X%S"
^XMB(3.9,23,2,6915,0)="""DATA"",396.18,202,3,1089,0)"
^XMB(3.9,23,2,6916,0)="M53_3>X:Y.T_A<!(W.&@4RRTJZH""AO3*'5)EKR\%.>^>VX6EL`Q%#Y&B(_,X@"
^XMB(3.9,23,2,6917,0)="""DATA"",396.18,202,3,1090,0)"
^XMB(3.9,23,2,6918,0)="MZ&S>@(#!ZOEV=5\[B;"";9>/1:5E[M^Q!9&5C""<;F,+;O&30&`A,JH$'U_L7E"
^XMB(3.9,23,2,6919,0)="""DATA"",396.18,202,3,1091,0)"
^XMB(3.9,23,2,6920,0)="M+;SD*L9J:Q$**1:KN[`SX[X5ITWV6&9NZB7.B36`!-^W',?S.Z.-4:/]'H]1"
^XMB(3.9,23,2,6921,0)="""DATA"",396.18,202,3,1092,0)"
^XMB(3.9,23,2,6922,0)="M>!#\'@_E&UGRQN,%V3P""+[O`\-N61Y%""5G6BBF3T_S]02P$""%@L4``(`""`#<"
^XMB(3.9,23,2,6923,0)="""DATA"",396.18,202,3,1093,0)"
^XMB(3.9,23,2,6924,0)="M4Q\UCJ@?065""``""IFP$`$@`````````!`""``@($`````1WEN7T)R96%S=%\Q"
^XMB(3.9,23,2,6925,0)="""DATA"",396.18,202,3,1094,0)"
^XMB(3.9,23,2,6926,0)="M,3,N<&YL4$L!`A8+%``""``@`X5,?-1Z\?::+2```#[\""`!8``````````0`@"
^XMB(3.9,23,2,6927,0)="""DATA"",396.18,202,3,1095,0)"
^XMB(3.9,23,2,6928,0)="M`(""!E4(``&=Y;E]""<F5A<W1?,3$S+G!N;""YF<FU02P$""%@L4``(`""`#<4Q\U"
^XMB(3.9,23,2,6929,0)="""DATA"",396.18,202,3,1096,0)"
^XMB(3.9,23,2,6930,0)="ML_,1M#0E``#6-0$`%@`````````!`""``@(%4BP``1WEN7T)R96%S=%\Q,3,N"
^XMB(3.9,23,2,6931,0)="""DATA"",396.18,202,3,1097,0)"
^XMB(3.9,23,2,6932,0)="M<&YL+F-D95!+`0(6""Q0``@`(`-Q3'S5R!+<SR@X``.9>```6``````````$`"
^XMB(3.9,23,2,6933,0)="""DATA"",396.18,202,3,1098,0)"
^XMB(3.9,23,2,6934,0)="M(`""`@;RP``!'>6Y?0G)E87-T7S$Q,RYP;FPN<F5P4$L%!@`````$``0`#`$`"
^XMB(3.9,23,2,6935,0)="""DATA"",396.18,202,3,1099,0)"
^XMB(3.9,23,2,6936,0)="'`+J_````````"
^XMB(3.9,23,2,6937,0)="""DATA"",396.18,202,3,1100,0)"
^XMB(3.9,23,2,6938,0)="end"
^XMB(3.9,23,2,6939,0)="""DATA"",396.18,202,4)"
^XMB(3.9,23,2,6940,0)="9^456802609"
^XMB(3.9,23,2,6941,0)="""DATA"",396.18,202,6)"
^XMB(3.9,23,2,6942,0)="1^716"
^XMB(3.9,23,2,6943,0)="""DATA"",396.18,204,0)"
^XMB(3.9,23,2,6944,0)="STOMACH, DUODENUM AND PERITONEAL ADHESIONS~113F"
^XMB(3.9,23,2,6945,0)="""DATA"",396.18,204,1,0)"
^XMB(3.9,23,2,6946,0)="^^2^2^3060831"
^XMB(3.9,23,2,6947,0)="""DATA"",396.18,204,1,1,0)"
^XMB(3.9,23,2,6948,0)="Last updated on 07/05/2006"
^XMB(3.9,23,2,6949,0)="""DATA"",396.18,204,1,2,0)"
^XMB(3.9,23,2,6950,0)="Patch DVBA*2.7*113"
^XMB(3.9,23,2,6951,0)="""DATA"",396.18,204,2)"
^XMB(3.9,23,2,6952,0)="3060515^^3060705.1722"
^XMB(3.9,23,2,6953,0)="""DATA"",396.18,204,3,0)"
^XMB(3.9,23,2,6954,0)="^396.184^757^757^3060831^^^^"
^XMB(3.9,23,2,6955,0)="""DATA"",396.18,204,3,1,0)"
^XMB(3.9,23,2,6956,0)="begin 664 Stomach_Duodenum_113.pnl.zip"
^XMB(3.9,23,2,6957,0)="""DATA"",396.18,204,3,2,0)"
^XMB(3.9,23,2,6958,0)="M4$L#!!0``@`(`#94'S6S.%*MP""T``%<7`0`8````4W1O;6%C:%]$=6]D96YU"
^XMB(3.9,23,2,6959,0)="""DATA"",396.18,204,3,3,0)"
^XMB(3.9,23,2,6960,0)="M;5\Q,3,N<&YLY%U_;""3779_=L6?7]OE\O^^2-LF<<]?<I8YO9W]Z+T&I?]Y="
^XMB(3.9,23,2,6961,0)="""DATA"",396.18,204,3,4,0)"
^XMB(3.9,23,2,6962,0)="M8I^-=Q,WHJ&,=Y_MR<W.;&9F[7/:H-(?0A`0M%6K5BBD!!0JT0`JB`**""*HH"
^XMB(3.9,23,2,6963,0)="""DATA"",396.18,204,3,5,0)"
^XMB(3.9,23,2,6964,0)="MBDI1`%7I'T&`J"")50*&4@%(!A?=[W^S,[*[OCO/:G)2L=V;V.]_/=][[_GYO"
^XMB(3.9,23,2,6965,0)="""DATA"",396.18,204,3,6,0)"
^XMB(3.9,23,2,6966,0)="MRDMS*:6\I%O`/'R]CCZF=!=,VY;GV&;?/%CSXI)<MNOQ0_TK1M7;D-^.*Y>!"
^XMB(3.9,23,2,6967,0)="""DATA"",396.18,204,3,7,0)"
^XMB(3.9,23,2,6968,0)="ML;[AR5^.#4Z!36`N-CS@))35S:NV!8[#G[J>HQN6YXXOZ-?YM<=:3C!J_A\8"
^XMB(3.9,23,2,6969,0)="""DATA"",396.18,204,3,8,0)"
^XMB(3.9,23,2,6970,0)="M5L0/#(O]8&#)KC?J""\!J)(XMP+-SME,;O\X/:LFROKKH5($3ER2IC.'-ZZO`"
^XMB(3.9,23,2,6971,0)="""DATA"",396.18,204,3,9,0)"
^XMB(3.9,23,2,6972,0)="M','_+V_7P>(:^@T&)T_\#T:7).CB]U%P\>'$M%[W#-M2^A=FER_-^D@-X?\C"
^XMB(3.9,23,2,6973,0)="""DATA"",396.18,204,3,10,0)"
^XMB(3.9,23,2,6974,0)="M(E=F?&1.43*Y()E$J;RX,#E]F1'""(A^A!S^(OVEY(G`/TUJF`O]FC`G\\U+?"
^XMB(3.9,23,2,6975,0)="""DATA"",396.18,204,3,11,0)"
^XMB(3.9,23,2,6976,0)="M92@-I7]I<>FQ)2+\*Y8%A9]<W5S6#1=4AZ9L!+WD;9L`'G5+AK5N@OYIV[3A"
^XMB(3.9,23,2,6977,0)="""DATA"",396.18,204,3,12,0)"
^XMB(3.9,23,2,6978,0)="M516S9)B;P#DP!Y_O^/2&[KC`2XS,S,Y-/C9?_N#TY<GETFQYD)S%/TE4S""E3"
^XMB(3.9,23,2,6979,0)="""DATA"",396.18,204,3,13,0)"
^XMB(3.9,23,2,6980,0)="MKUP;PL<HJ'\?P-^NZC6@#""^4U))NN6H).,8:^2F^^Y`TN*0[P/+0H:3X4-CS"
^XMB(3.9,23,2,6981,0)="""DATA"",396.18,204,3,14,0)"
^XMB(3.9,23,2,6982,0)="M8-CQM[Q&!/DB&6TR!?]3$I/D(2[)PR7/KNF5C8OJC*$[S@;0;Q+/OW6%1UES"
^XMB(3.9,23,2,6983,0)="""DATA"",396.18,204,3,15,0)"
^XMB(3.9,23,2,6984,0)="MIVRSZH,5`:9`P,2'?(/BJ>""@.#'G@*<;P*ILJ_::6J5P+D:138MD)ZF(/B8%"
^XMB(3.9,23,2,6985,0)="""DATA"",396.18,204,3,16,0)"
^XMB(3.9,23,2,6986,0)="MZ;[K:J.V""AQ$5/<\B-=5Z_#K-M""=BXE92U\U0362^0QY$O\HB;>)5X-W.3[3"
^XMB(3.9,23,2,6987,0)="""DATA"",396.18,204,3,17,0)"
^XMB(3.9,23,2,6988,0)="M<'3T%[H/J!NN706N2#]1GFIXGFT=8C<@7],3Y`Y_2NY0IW=XE-WACN;<FS9M"
^XMB(3.9,23,2,6989,0)="""DATA"",396.18,204,3,18,0)"
^XMB(3.9,23,2,6990,0)="M%S0'3U]BT9HVC<JUQ-'KA-8E`,>_4<$')6F@/&W75NTI^_H1=DMV@$TN(KRS"
^XMB(3.9,23,2,6991,0)="""DATA"",396.18,204,3,19,0)"
^XMB(3.9,23,2,6992,0)="M5'AO<.$=IW-+*V3SN<$K'J@QO,+8'4;'73@@'#BOW)AR<L%V@.IMZ)::5SVC"
^XMB(3.9,23,2,6993,0)="""DATA"",396.18,204,3,20,0)"
^XMB(3.9,23,2,6994,0)="M!ERUJAOFMG(DJWIVZS$-'<OZCITKP4GLZ""8]N`7`-7-;76UXJ@E<EU`F5RHK"
^XMB(3.9,23,2,6995,0)="""DATA"",396.18,204,3,21,0)"
^XMB(3.9,23,2,6996,0)="M^)QR:)Z?(%=+;6&G4R+LJVUA9R-@QUIA'VC""UM)*8@+A@G\H&'1!43#0C')@"
^XMB(3.9,23,2,6997,0)="""DATA"",396.18,204,3,22,0)"
^XMB(3.9,23,2,6998,0)="M#6S!44>NZ\""FYAMT[?G,1/`IM_(YK$'AP:GE8&DJ2AI]A9\9^IFEGSGZF2>?"
^XMB(3.9,23,2,6999,0)="""DATA"",396.18,204,3,23,0)"
^XMB(3.9,23,2,7000,0)="M!POH)S6$$7V'G(^4IY=6%I;UJF%?<NQ&_13GWW=8HRB^+8D37_XD1W$?19'."
^XMB(3.9,23,2,7001,0)="""DATA"",396.18,204,3,24,0)"
^XMB(3.9,23,2,7002,0)="MI-.9P=*&O47T=?+`(PW7,]:V,8""!!/I8TJN""TCN!K:'>JBD24*TU:I8;C[=B"
^XMB(3.9,23,2,7003,0)="""DATA"",396.18,204,3,25,0)"
^XMB(3.9,23,2,7004,0)="M'UP""CFNX'E152G(63TZC(C6%U;2.89:(C!KY=0(D0X'\#@?B[0-+%`O7?VS&"
^XMB(3.9,23,2,7005,0)="""DATA"",396.18,204,3,26,0)"
^XMB(3.9,23,2,7006,0)="M',/0^[LR1(_;-<.#`'O-$&6IQ3B(L:A4T5[K9(@V*9R+[36JC_B%P&#G4U9+"
^XMB(3.9,23,2,7007,0)="""DATA"",396.18,204,3,27,0)"
^XMB(3.9,23,2,7008,0)="MYU+=:M2C?H5(=%__#/XXYC^G8P7(%>/P0RU:,<KZ%`C;*<SV?/?&)];!^(C3"
^XMB(3.9,23,2,7009,0)="""DATA"",396.18,204,3,28,0)"
^XMB(3.9,23,2,7010,0)="MZ:!O.A7);'J5S*9+5%)?8Y*2/[X?'+MX^!#4B+&/WXVQ*U3<'PK.IA$^FZ[J"
^XMB(3.9,23,2,7011,0)="""DATA"",396.18,204,3,29,0)"
^XMB(3.9,23,2,7012,0)="M#;?WG#J-/,7X*0SD+@ID/3B7COGFDH7!7(P>CM0OF1`-WZT8CLV9>[AUYN9%"
^XMB(3.9,23,2,7013,0)="""DATA"",396.18,204,3,30,0)"
^XMB(3.9,23,2,7014,0)="M)&/1$[>8T[1=F+AM[!*=29\D,^DB9?W7>8B4BNV#F22S`7C(/P""S=`26,/@A"
^XMB(3.9,23,2,7015,0)="""DATA"",396.18,204,3,31,0)"
^XMB(3.9,23,2,7016,0)="M""OZ?0RS3/7PN+=FN]T#=T2WH,IAJ:;M6AV?<FT3WKS<_MUJ@Y:C1'<70SM!9"
^XMB(3.9,23,2,7017,0)="""DATA"",396.18,204,3,32,0)"
^XMB(3.9,23,2,7018,0)="MD`E.K@$&X>+M?T*1S%.W[Q4R*M]+N;\GR+VR:$%F>XGUM(_UY>C\Q2#7:KW$"
^XMB(3.9,23,2,7019,0)="""DATA"",396.18,204,3,33,0)"
^XMB(3.9,23,2,7020,0)="M?L;'_K.4_:4@^R.+W@:,1?CHX5'J;H""),`79'$'S:QB-K,0HG-+-!\;)\CR,"
^XMB(3.9,23,2,7021,0)="""DATA"",396.18,204,3,34,0)"
^XMB(3.9,23,2,7022,0)="M!:#J;PJ0?)\0YUVFU13(KS'/1$MIV<+!V>LPGJB"":@F8H.(E?;:AU2`D)RT8"
^XMB(3.9,23,2,7023,0)="""DATA"",396.18,204,3,35,0)"
^XMB(3.9,23,2,7024,0)="M05TW=""4Y!<S*!CP*_S)M'7F6R@"",9]8:+L*29&D<96#&>.89PT*Q6G(.)?[0"
^XMB(3.9,23,2,7025,0)="""DATA"",396.18,204,3,36,0)"
^XMB(3.9,23,2,7026,0)="ME0IQ!Y2^)7A$.;""DFW7#PVD'>%5I""Q!Z2>:""*\D5H%_#-(96,&LJ%)6K].,!"
^XMB(3.9,23,2,7027,0)="""DATA"",396.18,204,3,37,0)"
^XMB(3.9,23,2,7028,0)="M(`TM-$S/(/P/^%*%[3S=""=\P*U(Q?3UH,:&4)KJ-HN]>,3PH%3634FN&U?""0"
^XMB(3.9,23,2,7029,0)="""DATA"",396.18,204,3,38,0)"
^XMB(3.9,23,2,7030,0)="M95SSX""""ED$X+)U""`K6[8#<=_R>@4\*#9A.&U""C6\FL:7N!'7I/$UF;!K[FX&"
^XMB(3.9,23,2,7031,0)="""DATA"",396.18,204,3,39,0)"
^XMB(3.9,23,2,7032,0)="M]&'G.TBGZ)/.3[253CY"".H'X]2AV'7@@;D-VK`Z.1%AJI+^\`&HV=\?1ETQ."
^XMB(3.9,23,2,7033,0)="""DATA"",396.18,204,3,40,0)"
^XMB(3.9,23,2,7034,0)="MY%?^>2G`L,T=H%0N=ZLTQ=N""IAB:AC(VH'RO@BV?GAB>1\._*07)ISD&2Q7'"
^XMB(3.9,23,2,7035,0)="""DATA"",396.18,204,3,41,0)"
^XMB(3.9,23,2,7036,0)="M-LTIR$%BT'4?!XYG5'13]!S:.4]TKE?Q8WHW1?T5[CN5]H/OU!=A*3+4=P*^"
^XMB(3.9,23,2,7037,0)="""DATA"",396.18,204,3,42,0)"
^XMB(3.9,23,2,7038,0)="M]/)W0WPGE?M.ERQ]""P)$8W""JX5CH3Z2#>LYYRE+GZ0X\GC]'QW-\+,1[FK<K"
^XMB(3.9,23,2,7039,0)="""DATA"",396.18,204,3,43,0)"
^XMB(3.9,23,2,7040,0)="M6'7VD`W/4N_I[R4_^_4@^Z=F@%MQC%6H#K`U-QF:7;7F$;#2PD.)G]ACCE4V"
^XMB(3.9,23,2,7041,0)="""DATA"",396.18,204,3,44,0)"
^XMB(3.9,23,2,7042,0)="M(W+_?LK]>T-&%*L!]!+S67%$<>Z?[CR@J@Q,+PZHG`_528KJ`T%41\K0.J+<"
^XMB(3.9,23,2,7043,0)="""DATA"",396.18,204,3,45,0)"
^XMB(3.9,23,2,7044,0)="M@UVI-""#=""NBEAY,7E=4;;+8_&(1Q8!F8!C1""576UIZ9&P:>OOL407`X).OS#"
^XMB(3.9,23,2,7045,0)="""DATA"",396.18,204,3,46,0)"
^XMB(3.9,23,2,7046,0)="MJS>##AI""_2&!<YH%'3.=@X[D353C1/TBO\1<L#\*\QG34<GCOD#-8[9NK.LN"
^XMB(3.9,23,2,7047,0)="""DATA"",396.18,204,3,47,0)"
^XMB(3.9,23,2,7048,0)="M_%I1!DN-51>ZL)9N,M^_/4=94>.=;<M0]TFQG3NQB07XN#;@'R>Q-XM_0GS:"
^XMB(3.9,23,2,7049,0)="""DATA"",396.18,204,3,48,0)"
^XMB(3.9,23,2,7050,0)="M&CG1`49.A+'6#H8VT:TOGE@@80BJ[%V&GJMR/#3NZ$[.!?')O]7^R4=5^I0`"
^XMB(3.9,23,2,7051,0)="""DATA"",396.18,204,3,49,0)"
^XMB(3.9,23,2,7052,0)="MAU=MCT28DY:G5XRJJ_3-V7:UR5)(()#V>QXAO(P)]3IM+P4""B7#`:1_@E]H#"
^XMB(3.9,23,2,7053,0)="""DATA"",396.18,204,3,50,0)"
^XMB(3.9,23,2,7054,0)="M3NTEP/WA@#,^F[G6#J]6W&.1WF!Y<9EF<?@LXT?\P,^V`Y[)[""BO,SP%UI`R"
^XMB(3.9,23,2,7055,0)="""DATA"",396.18,204,3,51,0)"
^XMB(3.9,23,2,7056,0)="M8UF*10N@](1+E5I(=B$YZ:D6(N;/OAPD>%$5'/&23#;_:B9-#J""[EXTZ#S%7"
^XMB(3.9,23,2,7057,0)="""DATA"",396.18,204,3,52,0)"
^XMB(3.9,23,2,7058,0)="M#*MJ;R7G;6L=04VVC7BI3E_!0GB(""N$;/.+]SGZHN_5'^""EI:@D>]M6Q-QCX"
^XMB(3.9,23,2,7059,0)="""DATA"",396.18,204,3,53,0)"
^XMB(3.9,23,2,7060,0)="MN,KM^BR/>""=7JW;-@""93A=P:E3%:BD,&C.77L,)O7C=#6@P@F5VKUR57X""-:"
^XMB(3.9,23,2,7061,0)="""DATA"",396.18,204,3,54,0)"
^XMB(3.9,23,2,7062,0)="M<?3Z0)3+QFIL)\6""UYZ)Q5C!^J0O1;]'8C':ZT69;U#FSX<5=I`"",;R>DCS-"
^XMB(3.9,23,2,7063,0)="""DATA"",396.18,204,3,55,0)"
^XMB(3.9,23,2,7064,0)="M;+XE^0;.U<CR@KN;Q:DV!5_?0WB0JH)/A+E<J?SM\&T/-S.U85YM@/^BR/^/"
^XMB(3.9,23,2,7065,0)="""DATA"",396.18,204,3,56,0)"
^XMB(3.9,23,2,7066,0)="MM^4_UVWZ_3`R7(Q[XK\FT*&JOJTDRULVZ04[4MYP`&CM!VOGWZ8$7N6/26V9"
^XMB(3.9,23,2,7067,0)="""DATA"",396.18,204,3,57,0)"
^XMB(3.9,23,2,7068,0)="M+73K@?<M&&9522[8\*SN`47!<@92!R]`\XW?!P.)[GDAT9W:D1?0AYJ]E0.X"
^XMB(3.9,23,2,7069,0)="""DATA"",396.18,204,3,58,0)"
^XMB(3.9,23,2,7070,0)="M*\VH8ZVCG)TT<<""%S41%.(-M!NM94^Y9:I@FNJ2N&Y:*SGJ0=AW_:LMVKBEG"
^XMB(3.9,23,2,7071,0)="""DATA"",396.18,204,3,59,0)"
^XMB(3.9,23,2,7072,0)="M?!?HZ^N.O@E!HSP`?`J;H`;'O+MS7T+NPI>(""I(UL8.'.\[Q2TR0=]]P9:Z-"
^XMB(3.9,23,2,7073,0)="""DATA"",396.18,204,3,60,0)"
^XMB(3.9,23,2,7074,0)="M]T)]N$^1FWZ:#:4?C>VG+CPE2O?2_.GC/O?EI9""$_4GNOERQ*GH=1G^D/+C["
^XMB(3.9,23,2,7075,0)="""DATA"",396.18,204,3,61,0)"
^XMB(3.9,23,2,7076,0)="M#42MD&C2XQ""&=,=><T-H5O5ER<=^S_DA$5.8%H#DCTB^OK]+G=-<\1MOM,J)"
^XMB(3.9,23,2,7077,0)="""DATA"",396.18,204,3,62,0)"
^XMB(3.9,23,2,7078,0)="M'9+GHANM4EHF?YMD)2KUB!4:K;I^:-&J`&C+GP""ZHQQ-X^9NM4P-/#YX(HLL"
^XMB(3.9,23,2,7079,0)="""DATA"",396.18,204,3,63,0)"
^XMB(3.9,23,2,7080,0)="M)""XBB\?;&W6:1_T-J0OIY'I&.@$_HE]39Z#+H*31!VXNGZ'-Y3.TN7R&-I>3"
^XMB(3.9,23,2,7081,0)="""DATA"",396.18,204,3,64,0)"
^XMB(3.9,23,2,7082,0)="MSP+]+)+/$2W%93=#O(LV)H'6`#Y+9#;(FI-Y1/O""?JCA)L(;,"">H9Y7`V$<H"
^XMB(3.9,23,2,7083,0)="""DATA"",396.18,204,3,65,0)"
^XMB(3.9,23,2,7084,0)="M]GHL:!%2S5928-=-W:V=<\^C@@ATTE67G"",^20,Z5%:CUFN]IBQ@?4#LJ(@_"
^XMB(3.9,23,2,7085,0)="""DATA"",396.18,204,3,66,0)"
^XMB(3.9,23,2,7086,0)="M&[+09\;0URW;-5P,KP&=5/4<N*Y7O/.1JX@F!-IPNE$Y_G3(,J)WST""WBZXW"
^XMB(3.9,23,2,7087,0)="""DATA"",396.18,204,3,67,0)"
^XMB(3.9,23,2,7088,0)="MH'<Y5ZM=V(;_HLD71?*O,/)OA9#7T&(\ESP('76Y(`@.T#WDX*GG#*MB-JK("
^XMB(3.9,23,2,7089,0)="""DATA"",396.18,204,3,68,0)"
^XMB(3.9,23,2,7090,0)="M#W0;SCIPHN]9U,1[YF(=V\`J=@T[D9$$J>OU)G&]_I/Y>QN,XIV<XFDF(SC,"
^XMB(3.9,23,2,7091,0)="""DATA"",396.18,204,3,69,0)"
^XMB(3.9,23,2,7092,0)="M/)%]+BB>5@Q)5+2TZQ=$'.RN\N>EX&T?G$4/&<N-WUQ'#5-DP'M&1>2E6AU3"
^XMB(3.9,23,2,7093,0)="""DATA"",396.18,204,3,70,0)"
^XMB(3.9,23,2,7094,0)="M:[4QM0U#49XO70GR.2*)9V+=-R@G.MC-UD4U)\,7U>3%#C6-BN1Y+I('FB%,"
^XMB(3.9,23,2,7095,0)="""DATA"",396.18,204,3,71,0)"
^XMB(3.9,23,2,7096,0)="M/K>C)36G5G07:P0R;6JZ::Q;4(8/\T4U@05%\A/`5>)7;27QF'7-LK<LR=="""
^XMB(3.9,23,2,7097,0)="""DATA"",396.18,204,3,72,0)"
^XMB(3.9,23,2,7098,0)="M%I*!9H4N,I,MROYYKK1.""^QG]D#>.890SE8-;YBA1%]\\^\+4@#E<0%EUK<&"
^XMB(3.9,23,2,7099,0)="""DATA"",396.18,204,3,73,0)"
^XMB(3.9,23,2,7100,0)="M*2QIGQ*I?2-([7Z!VL3>R-6'R(S&-V,8Y1UL7FV'B2S?G+%""HU,84;_>:D^U"
^XMB(3.9,23,2,7101,0)="""DATA"",396.18,204,3,74,0)"
^XMB(3.9,23,2,7102,0)="M$$(UO(S""5OJ0)S(=""SR1M$`VO0>>B-)NM0Y1./+/^9)^T*HP'^L_]D/5(,DL"
^XMB(3.9,23,2,7103,0)="""DATA"",396.18,204,3,75,0)"
^XMB(3.9,23,2,7104,0)="MT$&?!:+:*HVA#U#H?Q42=-_%7:S+!O2H'+S6I>SHC9H.?:W=;Y'SP_+5]D]3"
^XMB(3.9,23,2,7105,0)="""DATA"",396.18,204,3,76,0)"
^XMB(3.9,23,2,7106,0)="M6""^'N""1GD4LRQAO+N&_""_$<,L)?""6J8L;3PU7Y<ZF>==77#9P2$(TSP3XI-C"
^XMB(3.9,23,2,7107,0)="""DATA"",396.18,204,3,77,0)"
^XMB(3.9,23,2,7108,0)="MUO^'O#_]4Y*@>8I[0/.T#^^H'=5]RX=_P#7/T_LANAN(6%Y''<V/2N)""0?F="
^XMB(3.9,23,2,7109,0)="""DATA"",396.18,204,3,78,0)"
^XMB(3.9,23,2,7110,0)="M$-US;U/WV""Y:#&`:S]!]""!RU1&*%W==`+?#HH[V`T>7I-%T+68G+,&'=PSM<"
^XMB(3.9,23,2,7111,0)="""DATA"",396.18,204,3,79,0)"
^XMB(3.9,23,2,7112,0)="MH\BF1;)/4J$-Q8)T""RA.N8@*&&.DYH+IHQTA5&--Q<XL$I]>KSOV=:.&X@JD"
^XMB(3.9,23,2,7113,0)="""DATA"",396.18,204,3,80,0)"
^XMB(3.9,23,2,7114,0)="M^"")OG!5N+/\BTSL?#M[XSF6@N^39>%""Y(C5*X[DHVOFB""(JVSLJ_&@M&0>Z<"
^XMB(3.9,23,2,7115,0)="""DATA"",396.18,204,3,81,0)"
^XMB(3.9,23,2,7116,0)="MC;H,8#0/IX+EC:EKAFFJAH7=>H+)L-9LIX:%.*;"":^""4'J7.^Z@*3XD7J);M"
^XMB(3.9,23,2,7117,0)="""DATA"",396.18,204,3,82,0)"
^XMB(3.9,23,2,7118,0)="MT9\AX=0;[@9)&316:X:'MF6`.JMC%,=<?B*:UYC_*H<\E(E2HU;3B?'43=0\"
^XMB(3.9,23,2,7119,0)="""DATA"",396.18,204,3,83,0)"
^XMB(3.9,23,2,7120,0)="MX1O/)#8FTC)@?$SX\$#U8E22-D\31-,Q?//+L=8EWTW9C=VO+CFH#%<BZ#Q;"
^XMB(3.9,23,2,7121,0)="""DATA"",396.18,204,3,84,0)"
^XMB(3.9,23,2,7122,0)="MU:M5)"")\+_@50:<,BJ!#W$YQ,,3G*.!BT/W/I""8*(1'3L,_]%VD]%:`UVJ15"
^XMB(3.9,23,2,7123,0)="""DATA"",396.18,204,3,85,0)"
^XMB(3.9,23,2,7124,0)="MW`NN9GB,PW8C(6/D>39&OA"",""[5,+K\'8/9%>BBLC/4]R3\D0UP4A0Q%P4_O"
^XMB(3.9,23,2,7125,0)="""DATA"",396.18,204,3,86,0)"
^XMB(3.9,23,2,7126,0)="MX#%$.46TS^VWR""T?C;6N)STL>D50!7;?TQIU1PKR)_&\BT]'8V29@^[=HJA;"
^XMB(3.9,23,2,7127,0)="""DATA"",396.18,204,3,87,0)"
^XMB(3.9,23,2,7128,0)="M9GVWW-C)+>4;\,0*XHA](SABJT(M.;,W.@:C2D5TN=_SG4?L3G->T;X?;4:-"
^XMB(3.9,23,2,7129,0)="""DATA"",396.18,204,3,88,0)"
^XMB(3.9,23,2,7130,0)="MR_AIWDO%^SK?;>W-_1!U#D:9+5_>@@>>0R&Y_;/<^:.K.^=ME]C)!=VT&G`P"
^XMB(3.9,23,2,7131,0)="""DATA"",396.18,204,3,89,0)"
^XMB(3.9,23,2,7132,0)="M]&3M-Y\-6>`N?S$L!.6+!K::RU=5DJ#D^*+WDZ"";!,CCQ`/X$O/,?BSH`;0."
^XMB(3.9,23,2,7133,0)="""DATA"",396.18,204,3,90,0)"
^XMB(3.9,23,2,7134,0)="M7FGG6H$NM8G?BV&E6;,+&[7Q&M^V*9<N[HWT9ILI2F-M%X.=HF!C?(I^;3],"
^XMB(3.9,23,2,7135,0)="""DATA"",396.18,204,3,91,0)"
^XMB(3.9,23,2,7136,0)="MT:&H`4Q;8/Y`$ALRFIG%L(U<)BU0,_3>FXO4Q3R,D;RK%4ES*M[!IZ)KK%NX"
^XMB(3.9,23,2,7137,0)="""DATA"",396.18,204,3,92,0)"
^XMB(3.9,23,2,7138,0)="M/J5C2&VF'[4=?T%LQPM2][;C1J9?1D1R/QV1W^)J\REA^N7W^O1CL6X#@UVE"
^XMB(3.9,23,2,7139,0)="""DATA"",396.18,204,3,93,0)"
^XMB(3.9,23,2,7140,0)="M8+_/LR,O[H?I=R""B($F3TE^4Q.U*Y4^'9$>.""^U0KN<T*CB2[+4*=Y&ZD^\1"
^XMB(3.9,23,2,7141,0)="""DATA"",396.18,204,3,94,0)"
^XMB(3.9,23,2,7142,0)="M=U.2?Y^/W/LXGG\A+7XT^E9'IQJ&686AJ[UJ@MHHBE,KJ-"")&E1,P_70)*V3"
^XMB(3.9,23,2,7143,0)="""DATA"",396.18,204,3,95,0)"
^XMB(3.9,23,2,7144,0)="MDZY:,76C!JK(>AI5U*:^9@!4]4>C$X>WX+J.^MC1C<ZYY\?5\H;ALI\3<ELH"
^XMB(3.9,23,2,7145,0)="""DATA"",396.18,204,3,96,0)"
^XMB(3.9,23,2,7146,0)="MHP`OM52H!O1-W3!1S83E&$9G[$H#UU@Y0UNXJ7!,U2$AW?%8V\$HO0""203>O"
^XMB(3.9,23,2,7147,0)="""DATA"",396.18,204,3,97,0)"
^XMB(3.9,23,2,7148,0)="M`@^2@I'\J.IB?""C]@&XXWC&_4)P017>%541#T@N/4=&%<`G%1I(A5=W350>L"
^XMB(3.9,23,2,7149,0)="""DATA"",396.18,204,3,98,0)"
^XMB(3.9,23,2,7150,0)="MZPXNM7/1.?""GF[KEL40`DA1.X'3!8%%DD""6E-D,8G&<,+H--`VRIC$_\0#""3"
^XMB(3.9,23,2,7151,0)="""DATA"",396.18,204,3,99,0)"
^XMB(3.9,23,2,7152,0)="M^##R[E!S^-JVJJ,EK3K96HNG0S""(\0AN<A-B$Q;;MVL@R$Q<BR11%$E<:4,B"
^XMB(3.9,23,2,7153,0)="""DATA"",396.18,204,3,100,0)"
^XMB(3.9,23,2,7154,0)="M'44BGQ))/-F&1&8\.C""A-OCKDJ^;_A;8ENAJ&+5GO^?O.'J(:]W/[(><]'!X"
^XMB(3.9,23,2,7155,0)="""DATA"",396.18,204,3,101,0)"
^XMB(3.9,23,2,7156,0)="MV2@O[K?%@I)?""-&YQYH[0>+4;0FY""[VF<C,9<=NW43IX'@Y9>%T&M3KJ,V\X"
^XMB(3.9,23,2,7157,0)="""DATA"",396.18,204,3,102,0)"
^XMB(3.9,23,2,7158,0)="MD?E?YOB?\DV)NT*VO%IJF&XTF0F1#&V/B""\$R1Q>!F[=@#RA4J/3)C&=%;?I"
^XMB(3.9,23,2,7159,0)="""DATA"",396.18,204,3,103,0)"
^XMB(3.9,23,2,7160,0)="MD_^&^5^C(9R1`#)JSHO.OORWC,Z9,(1VPZJZ470TD9]W&)U'@G2&:4`+1XRU"
^XMB(3.9,23,2,7161,0)="""DATA"",396.18,204,3,104,0)"
^XMB(3.9,23,2,7162,0)="M#G:Q\;<%`'6[[L0`1ECQ_^-\&DQR!)X8DI^#0ZB"";`[4U&(D6[%KT""Y""I0VU"
^XMB(3.9,23,2,7163,0)="""DATA"",396.18,204,3,105,0)"
^XMB(3.9,23,2,7164,0)="M^ZH.C1_T&,^KYW2T;F2=![W4OJ9QA0*99%`!V$#9:`<UTI/F`OCS\[NXJ+ZC"
^XMB(3.9,23,2,7165,0)="""DATA"",396.18,204,3,106,0)"
^XMB(3.9,23,2,7166,0)="M)63[D[TD=2^\2VC10XCPUM'Q_U?""RXDSYX7`FHOFS#DX9=IVE90S&FA53#B]"
^XMB(3.9,23,2,7167,0)="""DATA"",396.18,204,3,107,0)"
^XMB(3.9,23,2,7168,0)="MO&\]!4NZQ_N#!&,7HFB(:D]^56JSU1\YTCO3N""!NG=DM>K\]S(DJ\8\9!34$"
^XMB(3.9,23,2,7169,0)="""DATA"",396.18,204,3,108,0)"
^XMB(3.9,23,2,7170,0)="M_!6KL@'<Z)H`58K/8DK6#A*L@QV#Y$!QJB"":&+;%W6^&[""RNY7(MQ:D`+9^Y"
^XMB(3.9,23,2,7171,0)="""DATA"",396.18,204,3,109,0)"
^XMB(3.9,23,2,7172,0)="M6HFFI16R6DC3W$%?TUQ*)/9L&V(3V7Q+02E(C$KT?5BB;P;,E8@R[6N$ZK(-"
^XMB(3.9,23,2,7173,0)="""DATA"",396.18,204,3,110,0)"
^XMB(3.9,23,2,7174,0)="MDTIQ'=/_)Y;^_VW.[3WD!GWY=$KKK@V3-5G>GBD2OH""M#YDJI0_IW,AF]'9K"
^XMB(3.9,23,2,7175,0)="""DATA"",396.18,204,3,111,0)"
^XMB(3.9,23,2,7176,0)="M&#*B;2S'HA?[0;%GN;*-6/67#/#XD*JE8%P""_TO#_S(I93"";8FL1VR^NR(KY"
^XMB(3.9,23,2,7177,0)="""DATA"",396.18,204,3,112,0)"
^XMB(3.9,23,2,7178,0)="M@DZ<93IQ-K!3SL)&*)75*N;HE]@(/1<RW#/9D.9)/S&*[Y>E+JAE0KHF_=32"
^XMB(3.9,23,2,7179,0)="""DATA"",396.18,204,3,113,0)"
^XMB(3.9,23,2,7180,0)="MXN1Y)6KR]!4R6L970!+#IF.^L""F70O_HI/RPN""^L_%4>.^7V0^QTD-F*8RW^"
^XMB(3.9,23,2,7181,0)="""DATA"",396.18,204,3,114,0)"
^XMB(3.9,23,2,7182,0)="M,_J7%P7`%O&]%A)!W<DC*)H*@$[*,JA`\#VP6?'1`#(V8D;$?47B1LAFX--T"
^XMB(3.9,23,2,7183,0)="""DATA"",396.18,204,3,115,0)"
^XMB(3.9,23,2,7184,0)="MJ0%:Z.H00!=O82:V:Z>`#/LCXK#'CR@M+E?^CA35,)Q.3Q13(?,H2)""ZO&.D"
^XMB(3.9,23,2,7185,0)="""DATA"",396.18,204,3,116,0)"
^XMB(3.9,23,2,7186,0)="M_O3MMA2UT'+L<;^S0$925BP_R`=BK=[@NV]XH_16`WA7N`$D;%!Q*6+I0/XF"
^XMB(3.9,23,2,7187,0)="""DATA"",396.18,204,3,117,0)"
^XMB(3.9,23,2,7188,0)="M']""7.+A\+K6CU0@'I]4YPP1T^%\,[*9+CH.J<ORJ[:EX?:A+UT0_/KF\J-R["
^XMB(3.9,23,2,7189,0)="""DATA"",396.18,204,3,118,0)"
^XMB(3.9,23,2,7190,0)="MW'H(OT8&=33QK*7_]1\[PNW?3Z8=\(E""86=O-EF`L4E%-^ETOUT""D%E!Y:A8"
^XMB(3.9,23,2,7191,0)="""DATA"",396.18,204,3,119,0)"
^XMB(3.9,23,2,7192,0)="M4/&I[1$QRR:_R-7V<[SI5,M/:'NOZ=2?X*..W18&VT?!#O""BYJ_L!QLU$I$1"
^XMB(3.9,23,2,7193,0)="""DATA"",396.18,204,3,120,0)"
^XMB(3.9,23,2,7194,0)="MHTKE9_Q5E>^%V*?3S1WU:1Z_5`<58\VHL`;XGBMSTJRUO$PT\?7_BU[`J/B."
^XMB(3.9,23,2,7195,0)="""DATA"",396.18,204,3,121,0)"
^XMB(3.9,23,2,7196,0)="M9HV_3+3U1V+1&_JW-F#=8#<4VX0ZU@*VFRZS^`TV8-%L_)>DCK?<_=[[3AU?"
^XMB(3.9,23,2,7197,0)="""DATA"",396.18,204,3,122,0)"
^XMB(3.9,23,2,7198,0)="M@V6J1(1M1/@1:O22OMZ5=[@^G(V=N&P[SW`M-%YV(.]0""0P<1;JH>7P9)3;E"
^XMB(3.9,23,2,7199,0)="""DATA"",396.18,204,3,123,0)"
^XMB(3.9,23,2,7200,0)="M]\=/^`_SRP<G&YY-CG=^8R#=QCM^!'/U""!6^%1QA)R,J;SV3FLD41""3;@5IH"
^XMB(3.9,23,2,7201,0)="""DATA"",396.18,204,3,124,0)"
^XMB(3.9,23,2,7202,0)="M<YY^ILR*<6C3+;4.@U<#0AN#H&BC`CI;,9Q*HX;?%D:7UQJ6X:'W?]1TRUB#"
^XMB(3.9,23,2,7203,0)="""DATA"",396.18,204,3,125,0)"
^XMB(3.9,23,2,7204,0)="M-I)V%]/2)$T&XBJI]53#P9OZH-9H5!C$SC@N_M4=>].HHM*G!YQ-M-4;47SC"
^XMB(3.9,23,2,7205,0)="""DATA"",396.18,204,3,126,0)"
^XMB(3.9,23,2,7206,0)="M/9@[9""U\/Y1\HV,Z)'?(UN_:M^+5'&_?LD'!-O7&@T+^!^9&/QE$<!1Y#2[J"
^XMB(3.9,23,2,7207,0)="""DATA"",396.18,204,3,127,0)"
^XMB(3.9,23,2,7208,0)="M44';--B[_8:1%A@9$<8/;GYI-MO'@VP;(?^=U/I&J>9L><]TPT'\-5=""NWA8"
^XMB(3.9,23,2,7209,0)="""DATA"",396.18,204,3,128,0)"
^XMB(3.9,23,2,7210,0)="M>ZC(7[&MJK%+FY1T7@A.3<M7""<C?9>F;/P_I%QP3FI3@[`1K:Z""""@#IV3:VT"
^XMB(3.9,23,2,7211,0)="""DATA"",396.18,204,3,129,0)"
^XMB(3.9,23,2,7212,0)="M""F`':]%%]2H_P3CX:-C;1CD'@?NYW=^0+EV@H=69MG7ZGAG>^;S(]`?:=@;T"
^XMB(3.9,23,2,7213,0)="""DATA"",396.18,204,3,130,0)"
^XMB(3.9,23,2,7214,0)="M#M-4.7Y?ZLAU9KQW-B""B9E)^-.97B1\*67/$9GZ-QI9\0/;$SNXMZX7\N-A4"
^XMB(3.9,23,2,7215,0)="""DATA"",396.18,204,3,131,0)"
^XMB(3.9,23,2,7216,0)="M""W-E3J`J.-+PV""4/8@JM611]II#NAB__6<@^.^E4*F3ABF]UCNBJR)^56E\B"
^XMB(3.9,23,2,7217,0)="""DATA"",396.18,204,3,132,0)"
^XMB(3.9,23,2,7218,0)="M$I]M$M,*>V-M?N2[D=(BUO^6`N];+@E8<SO:/4\I>>B!*4>A:[J.`B\#1M7;"
^XMB(3.9,23,2,7219,0)="""DATA"",396.18,204,3,133,0)"
^XMB(3.9,23,2,7220,0)="M:/<[%R@#5VK(U0)55;GS""O*U<),3',Q;%Z`_5C-<%[_[J/T+C?I""GY[?K/P)"
^XMB(3.9,23,2,7221,0)="""DATA"",396.18,204,3,134,0)"
^XMB(3.9,23,2,7222,0)="M4^J'8X'=-+14<4_MASP8BG=""?(*).(7[*H<[)3S!O;!F9:@9C([X@U$1*=N;"
^XMB(3.9,23,2,7223,0)="""DATA"",396.18,204,3,135,0)"
^XMB(3.9,23,2,7224,0)="M31BJS7;*PT@E\""0&&NF[^C;X&PN],VDQM=$6[P&Q""U;HL[WQ3=TT4=1,G?YE"
^XMB(3.9,23,2,7225,0)="""DATA"",396.18,204,3,136,0)"
^XMB(3.9,23,2,7226,0)="M4)WFL[EB/Q?<RH;A@6[W)I4Z;>R9]CG!7#<]%]1-Q50N?0,[>XY`2X/>HX#2"
^XMB(3.9,23,2,7227,0)="""DATA"",396.18,204,3,137,0)"
^XMB(3.9,23,2,7228,0)="MJ3,&\)0$3=,J2;3""&O_5OUB^L%0.543=[,?9W\5^G)&ZV6\S_TL*O*:Y)+SH"
^XMB(3.9,23,2,7229,0)="""DATA"",396.18,204,3,138,0)"
^XMB(3.9,23,2,7230,0)="MH%G?;)7$+FPK%_*>//K&@B'XE[%JV'#2PR^7T^J4:5>N`<=53L#YBIJ?EQJU"
^XMB(3.9,23,2,7231,0)="""DATA"",396.18,204,3,139,0)"
^XMB(3.9,23,2,7232,0)="MNGK%VH!7P<C;#3ZEL&<1M>]FVUUL-9]\C5A`OL).,H7TSBO;E]#+&?KF=,-1"
^XMB(3.9,23,2,7233,0)="""DATA"",396.18,204,3,140,0)"
^XMB(3.9,23,2,7234,0)="M^I9L.^(-#9HXUYI<G.$*_'W<7FE:<6^\EZ'+=\E3%1<?P-""_$@LT7)QIVJ[,"
^XMB(3.9,23,2,7235,0)="""DATA"",396.18,204,3,141,0)"
^XMB(3.9,23,2,7236,0)="MSDI-9TJ=`\6'6]/WS3?-\X<=M3N6-$1$@BGX=GYH5X>@B8(^7ZGXN[P.\?)^"
^XMB(3.9,23,2,7237,0)="""DATA"",396.18,204,3,142,0)"
^XMB(3.9,23,2,7238,0)="MJ$,<BMCNC]8AM)BO""/-<2!WB""*]#\)W_>NY]=#0HEO\ZYLO^RS\KW8;*`[WW"
^XMB(3.9,23,2,7239,0)="""DATA"",396.18,204,3,143,0)"
^XMB(3.9,23,2,7240,0)="MCY![_V][UQHC1W:5N[O&/3.V9VV/C7?C['K;-@\/F;&[JZI?7NUZO9YQ;,5>"
^XMB(3.9,23,2,7241,0)="""DATA"",396.18,204,3,144,0)"
^XMB(3.9,23,2,7242,0)="M.^/9.(OSJNFNF:FXIZM5U3UVH^41M)%6*$B[490'**!L'DA(""T1(00(!0@I$"
^XMB(3.9,23,2,7243,0)="""DATA"",396.18,204,3,145,0)"
^XMB(3.9,23,2,7244,0)="M""A(_0""""$`D*""Y9'\2*0$""2$0W'>=VW6KNVH\T%T&RY)K>MIU[OGNN?>>>^ZY"
^XMB(3.9,23,2,7245,0)="""DATA"",396.18,204,3,146,0)"
^XMB(3.9,23,2,7246,0)="MWWDM.TA3&WWU6XOIBPQX7HQQ88$*?#5!+MLNSQWX?O&UT1)#1QW9ASD&*,%8"
^XMB(3.9,23,2,7247,0)="""DATA"",396.18,204,3,147,0)"
^XMB(3.9,23,2,7248,0)="MQPG6J=\2(_0#R8X!WMJ;8P!>YN(@:97+6G56<=GD>>;T8BXG,NEARV+GR#@N"
^XMB(3.9,23,2,7249,0)="""DATA"",396.18,204,3,148,0)"
^XMB(3.9,23,2,7250,0)="MN%VP?-]M.(1J_+[3W:*!0L%].3E!55X1@JX-%]B^)K>NB`U?:M(H)RGI02.K"
^XMB(3.9,23,2,7251,0)="""DATA"",396.18,204,3,149,0)"
^XMB(3.9,23,2,7252,0)="M46$(!N0!:0[Z1T6\[SR[M4/)2<BP)1PL_-[4(+B*T)^<5ZK#+N07$TH*7NSE"
^XMB(3.9,23,2,7253,0)="""DATA"",396.18,204,3,150,0)"
^XMB(3.9,23,2,7254,0)="MR>L+ODY3V`XSV'Y9`=OILU>PD>GE8G5AX$;:>I\<L8R^6E5A8_^S=*4H,JPL"
^XMB(3.9,23,2,7255,0)="""DATA"",396.18,204,3,151,0)"
^XMB(3.9,23,2,7256,0)="M1<]C:IP5]!^!`4=-V""SA0?LU^M;GF!+?5<S7=S%!&DXP1V]O;+FN3X^<T-X&"
^XMB(3.9,23,2,7257,0)="""DATA"",396.18,204,3,152,0)"
^XMB(3.9,23,2,7258,0)="M]/MIN+T\C>L\(&/Q[!'CZ]SH0BXL_8:K?S'>9:[!EQC22[P1=[$B7F)*D'DA"
^XMB(3.9,23,2,7259,0)="""DATA"",396.18,204,3,153,0)"
^XMB(3.9,23,2,7260,0)="MDI\`LNO7VGCGU*5(<;?+W:""#)J#6Q1Q)C4:/EDQ@_$]-4F/#0KO7'32,[5@8"
^XMB(3.9,23,2,7261,0)="""DATA"",396.18,204,3,154,0)"
^XMB(3.9,23,2,7262,0)="ME:%ZVB<R0_0SH_6K0/V""MYP)OV6:+C+1KY)MEKMVLXJ[GE_$1NO1`A*=GM=!"
^XMB(3.9,23,2,7263,0)="""DATA"",396.18,204,3,155,0)"
^XMB(3.9,23,2,7264,0)="MYN4OHFFDXWKD,X@8,B)QAD,/.1&J'%W?[ECXEA`""#R';MAO(Q<`\2\B?X,>8"
^XMB(3.9,23,2,7265,0)="""DATA"",396.18,204,3,156,0)"
^XMB(3.9,23,2,7266,0)="M5IN2774\AY!=.;ZU[K2<+AJ*.U:K1PFA-CB_E!`5IP=JDL(?CG=?</`E=<G`"
^XMB(3.9,23,2,7267,0)="""DATA"",396.18,204,3,157,0)"
^XMB(3.9,23,2,7268,0)="MV$NT7U)-+#<[U&06N?N$6XW#//PV)QGY""I_;!#ZW]F6^B;XO3O9?SPYZSS`^"
^XMB(3.9,23,2,7269,0)="""DATA"",396.18,204,3,158,0)"
^XMB(3.9,23,2,7270,0)="MK%Z;ZC!9@%^:^P]%L\OBV`B,""7)^+;H5_>WY/306@H$Q.1-_!2BJO<7!>T+A"
^XMB(3.9,23,2,7271,0)="""DATA"",396.18,204,3,159,0)"
^XMB(3.9,23,2,7272,0)="M>3PW4&86LPG@U""%\O5;H/CCZQ9B'X7WE\EF#B)\<=E""W0H2I8!WG@BIKP^S^"
^XMB(3.9,23,2,7273,0)="""DATA"",396.18,204,3,160,0)"
^XMB(3.9,23,2,7274,0)="MS8RDSN\HUJ(7[N""%13(>LIZ(@>QL=RRJ[DAH1ZZ\NI0$PR_P[BAJ""J_:/HZ^"
^XMB(3.9,23,2,7275,0)="""DATA"",396.18,204,3,161,0)"
^XMB(3.9,23,2,7276,0)="ML&HVP1@$W1@9UBI!(4M,]]>$[N=`O+HV@;&LXR^ZY.XK-VYJ;W[^J.K#@SB/"
^XMB(3.9,23,2,7277,0)="""DATA"",396.18,204,3,162,0)"
^XMB(3.9,23,2,7278,0)="M<V6[TW+[=C,J/CP$JS+$ZEX(JPO@**,ZR0'`=USR\82`K[$[""!H2AVGVL'GF"
^XMB(3.9,23,2,7279,0)="""DATA"",396.18,204,3,163,0)"
^XMB(3.9,23,2,7280,0)="MCUYK8W(#O-9UR05]M(SE?RCXT%KW\2U^V_&W$X3^LD-`96[-%^CHJX<.""UL!"
^XMB(3.9,23,2,7281,0)="""DATA"",396.18,204,3,164,0)"
^XMB(3.9,23,2,7282,0)="MJM7:)*-Z`,</T8J/[YSF'U^V.61H<<$7*VF!FOSQ:VWH!*S;6]:.XWKY)W!,"
^XMB(3.9,23,2,7283,0)="""DATA"",396.18,204,3,165,0)"
^XMB(3.9,23,2,7284,0)="MLD""\U19->++H""4+^U#+J)*>!0.XC[Z#5<N_CD>Z`0X;\?""!MVZ534?X$^,QJ"
^XMB(3.9,23,2,7285,0)="""DATA"",396.18,204,3,166,0)"
^XMB(3.9,23,2,7286,0)="MX[FWB9.X<,&[/'>7?>H5MYP-46BQ87E>']?0/`K$>M@CP1\>N=VQ;>(1\=_E"
^XMB(3.9,23,2,7287,0)="""DATA"",396.18,204,3,167,0)"
^XMB(3.9,23,2,7288,0)="MYZ_:%F&W`)\=>9^#CPSA1X>N(\P)AT*7$&#DC]ZQK7MMFS)-;2!P-GMV_DS0"
^XMB(3.9,23,2,7289,0)="""DATA"",396.18,204,3,168,0)"
^XMB(3.9,23,2,7290,0)="M:*2>W=[L;ETH]#H=7-KS01>?1:)7*;^$8)&^=.PEU""CL@#EMU`&X3`'JA?S\"
^XMB(3.9,23,2,7291,0)="""DATA"",396.18,204,3,169,0)"
^XMB(3.9,23,2,7292,0)="M%;M!\`6?3=VRG'9^;MGQ-U`;/%+L*X%M1]`M%N%:_7M\K=X0CLXW,\""NTU8("
^XMB(3.9,23,2,7293,0)="""DATA"",396.18,204,3,170,0)"
^XMB(3.9,23,2,7294,0)="M5NW;L6W`*UG9N;L2R[G3(GP>AN,<F1VFV2M/*%R>B\LP(W&T@S>XT9G`I*QJ"
^XMB(3.9,23,2,7295,0)="""DATA"",396.18,204,3,171,0)"
^XMB(3.9,23,2,7296,0)="M$>[TGQHL!AGL8A8O>41MSX;>G5K/BQ.H**_927I9N\'#MW^K*N$BNODT&:*G"
^XMB(3.9,23,2,7297,0)="""DATA"",396.18,204,3,172,0)"
^XMB(3.9,23,2,7298,0)="MF<;1""L<^`.&$B'<EN-_+VV""!K!4S\OAC1G'\,7UYR_6@[S?6""ZCJPH[YF5L>"
^XMB(3.9,23,2,7299,0)="""DATA"",396.18,204,3,173,0)"
^XMB(3.9,23,2,7300,0)="MH33V,Y%K>%P<6<SD2YG10-83`3F+OMSI(&W2#64N/I0L<O3=T5""6BLF@7'E@"
^XMB(3.9,23,2,7301,0)="""DATA"",396.18,204,3,174,0)"
^XMB(3.9,23,2,7302,0)="M>PW'M],-I18?2A.&L'F95+55EI,-[]LX6I3RX3T5&TB>@7IW%)#(L:DF`O+`"
^XMB(3.9,23,2,7303,0)="""DATA"",396.18,204,3,175,0)"
^XMB(3.9,23,2,7304,0)="M*G'L2'0@U6#NBV^593A7#C?+DIX(S?UKGK6#^5I2/EOFXV<P%""7B[^%CO)8("
^XMB(3.9,23,2,7305,0)="""DATA"",396.18,204,3,176,0)"
^XMB(3.9,23,2,7306,0)="MS)DK-B&T23>4\9-!>%""5SI;_,A3)2C(D7[""Z6ZE'<B8^DC4X70Y',MET.;M,"
^XMB(3.9,23,2,7307,0)="""DATA"",396.18,204,3,177,0)"
^XMB(3.9,23,2,7308,0)="M$GG3#N5L?""BKTF0Y%,M2*>%DZ3HMNYMZ,/?'![,""7<L1AFDD,TPDP-U./98'"
^XMB(3.9,23,2,7309,0)="""DATA"",396.18,204,3,178,0)"
^XMB(3.9,23,2,7310,0)="M8E,52><AO!3#\QQ(4Q#?F$8L(""/3W$95,JF#M`;M`WP;70S7,42N61K8F0]F"
^XMB(3.9,23,2,7311,0)="""DATA"",396.18,204,3,179,0)"
^XMB(3.9,23,2,7312,0)="MHG.26-SX5HZ`_O(@Z?P[AN2?`T<M%@.VA+$!%\:K/,/_MP4!_7LYQK5J*C+\"
^XMB(3.9,23,2,7313,0)="""DATA"",396.18,204,3,180,0)"
^XMB(3.9,23,2,7314,0)="MIX:FGDN),C_-E/U@N,Y.3:_5D^2:*X`UH:A22-0S8CHJ5JHIH<""(SCUE(9*W"
^XMB(3.9,23,2,7315,0)="""DATA"",396.18,204,3,181,0)"
^XMB(3.9,23,2,7316,0)="MZ;[^0*B^I0-S3UG4--]H77>VQWJI_TA$_*X$F+9RCPUFAX%E]M;JS5LKJVO7"
^XMB(3.9,23,2,7317,0)="""DATA"",396.18,204,3,182,0)"
^XMB(3.9,23,2,7318,0)="M5FY/7`5L-K""?A,SVN6?""$<@#J*_QZ<:SI8<>WWMXZ[D""6_\\:WTSW/IY.LVM"
^XMB(3.9,23,2,7319,0)="""DATA"",396.18,204,3,183,0)"
^XMB(3.9,23,2,7320,0)="MV0^ZS[+,WF%VRCKV)GFMR<ST;BX@8G@$<J3G(](3&:0_(_%0KR@JQ""R*%&E0"
^XMB(3.9,23,2,7321,0)="""DATA"",396.18,204,3,184,0)"
^XMB(3.9,23,2,7322,0)="M76T""65LB\HFK\+JF=C)!/O%NZFNR0_3C!-4""0W5)6-3W07W-LID^JJ.C`P5<"
^XMB(3.9,23,2,7323,0)="""DATA"",396.18,204,3,185,0)"
^XMB(3.9,23,2,7324,0)="M=)TYVKEI*<WU+X3&7WD4QM!1-7,=UI\55]1^0-<ZC1>:4MPU>*<82#1+@U00"
^XMB(3.9,23,2,7325,0)="""DATA"",396.18,204,3,186,0)"
^XMB(3.9,23,2,7326,0)="M&/>X49Q>A96LED`G:X>YZ[VHR,YL4MH)*4&($9LP1HVFXS>0GIMVX2PYG\=E"
^XMB(3.9,23,2,7327,0)="""DATA"",396.18,204,3,187,0)"
^XMB(3.9,23,2,7328,0)="M,7V2P4M_W[+\+F5(<5@*$OHK4:><&Y9FI&B]#EO_-7YR^U^*\[?:9:OGB^K$"
^XMB(3.9,23,2,7329,0)="""DATA"",396.18,204,3,188,0)"
^XMB(3.9,23,2,7330,0)="MR!W!^0Y=FHE+LH^<-FU?25^B53\[""&2WJ<@I""[>C!H>*J/&I_9VB'<4UA6Q6"
^XMB(3.9,23,2,7331,0)="""DATA"",396.18,204,3,189,0)"
^XMB(3.9,23,2,7332,0)="M9T,E/PDBNB[R?G\U(U6%_+2B)4\O]SQ6#'9#7&NRA?V.5AR)D^<()BWW8<7R"
^XMB(3.9,23,2,7333,0)="""DATA"",396.18,204,3,190,0)"
^XMB(3.9,23,2,7334,0)="MO<8JF@8""8KV_*JFSP@3\A$(`)S(([#.6@#I4@%W5R-T.O__P2P-Y@,&R=&RP"
^XMB(3.9,23,2,7335,0)="""DATA"",396.18,204,3,191,0)"
^XMB(3.9,23,2,7336,0)="MT+2NUUEX?(7F%'PLM#9%UQ:;'7G?EFS=T1[G.)?+/\""2^9V7-9H-^S@S`%\D"
^XMB(3.9,23,2,7337,0)="""DATA"",396.18,204,3,192,0)"
^XMB(3.9,23,2,7338,0)="M,WPP&Q3`6;6[CD>KOO3:-DLP4Y0^#^/&JK0QOG:>S9];4W0,IPWRB+""X/<^'"
^XMB(3.9,23,2,7339,0)="""DATA"",396.18,204,3,193,0)"
^XMB(3.9,23,2,7340,0)="MU""S<5@7;9$CJ@P?V+@2PX,=^F:/[OJ*X%>/;V9V<N@E+D6@Y/L7^BF)(%E1#"
^XMB(3.9,23,2,7341,0)="""DATA"",396.18,204,3,194,0)"
^XMB(3.9,23,2,7342,0)="MDO=,;($UN-/_82[O\PIY)VG%8;^PZ>S8-(<[H32]""(\G<Z\P85]1""#M#/<J^"
^XMB(3.9,23,2,7343,0)="""DATA"",396.18,204,3,195,0)"
^XMB(3.9,23,2,7344,0)="MH!HYV]GJ^_AI0:1^QI+(+/SW,Y+(CRM$/LE%=OQ^8\NQ\`U@E:S!<-F3$:%'"
^XMB(3.9,23,2,7345,0)="""DATA"",396.18,204,3,196,0)"
^XMB(3.9,23,2,7346,0)="M/+*+P&QRAP;Y;,]P=L]BW:PDNFMZ])I?V+%Q_ER;65CS8I*KI`I""=HER5B_B"
^XMB(3.9,23,2,7347,0)="""DATA"",396.18,204,3,197,0)"
^XMB(3.9,23,2,7348,0)="M!5,:M4\SZ/XH=%<9-S](!962*<!M^\?#M^WQ#`3OX_(MG68+CZ(.9$0G1@Y-"
^XMB(3.9,23,2,7349,0)="""DATA"",396.18,204,3,198,0)"
^XMB(3.9,23,2,7350,0)="M63RSTG(V,9\;O@^$RSD@PVV""H8,7U?R)&X-VQKM^(?]4\+NP92SL^J)^+L9%"
^XMB(3.9,23,2,7351,0)="""DATA"",396.18,204,3,199,0)"
^XMB(3.9,23,2,7352,0)="M?;JWF)<*.6-OVX#3T9]F0K#I`+94Y=WM2S:^#%#=-9@MOYX9+&N-<""@G&V$_"
^XMB(3.9,23,2,7353,0)="""DATA"",396.18,204,3,200,0)"
^XMB(3.9,23,2,7354,0)="M""D98L-P)[MN'&W022\#Q4#@2#[ZZM!`(7_M+JM$WFFE^>K!1AZ_CI-3N%M*N"
^XMB(3.9,23,2,7355,0)="""DATA"",396.18,204,3,201,0)"
^XMB(3.9,23,2,7356,0)="M1.J9Y`^6\#475MPD?U#'/Y793W-E_%.IR'Y\##WA[_*?YV^X)#4/O8Q_EHFV"
^XMB(3.9,23,2,7357,0)="""DATA"",396.18,204,3,202,0)"
^XMB(3.9,23,2,7358,0)="M72E%Q<B&;/='@&+E--GND/%:ACKS6U_(4>4Z&X'.E6K*\F2C=*[`E3=0^C>5"
^XMB(3.9,23,2,7359,0)="""DATA"",396.18,204,3,203,0)"
^XMB(3.9,23,2,7360,0)="M2M?2I/34$.NNPLW=>6[=R\*ZE\',7$J3TM/1.L-MD?;'F6$Z5XMITGG4/(WW"
^XMB(3.9,23,2,7361,0)="""DATA"",396.18,204,3,204,0)"
^XMB(3.9,23,2,7362,0)="MT%#WSX=U!]-TI3YJFMXW.$UGB_),?=^V[^7S[-]IG?SKYZ<-_F#RAS)_J/""'"
^XMB(3.9,23,2,7363,0)="""DATA"",396.18,204,3,205,0)"
^XMB(3.9,23,2,7364,0)="M*G^H\8<Z>YA!TSE_*HDG73P9XLD43V7Q5!%/5?%4$T]""ABYDZ$*&+F3H0H8N"
^XMB(3.9,23,2,7365,0)="""DATA"",396.18,204,3,206,0)"
^XMB(3.9,23,2,7366,0)="M9.A""ABYDZ$*&+F3H0H8A9!A""AB%D&$*&(6080H8A9!A""AB%D&$*&*6280H8I"
^XMB(3.9,23,2,7367,0)="""DATA"",396.18,204,3,207,0)"
^XMB(3.9,23,2,7368,0)="M9)A""ABEDF$*&*6280H8I9)A""1EG(*`L9928C,]HD891.\![_HLIQJ)9&6:06"
^XMB(3.9,23,2,7369,0)="""DATA"",396.18,204,3,208,0)"
^XMB(3.9,23,2,7370,0)="MXE6ZTFNU<$@L/XM&4G>)/,XAMW=CB3M)^9G;9*=(N*R(;SRZS7(DJC_,VS%'"
^XMB(3.9,23,2,7371,0)="""DATA"",396.18,204,3,209,0)"
^XMB(3.9,23,2,7372,0)="M\B)-38ZWP[/UF&*W0XH=!XH9:9H;<\D\=1-XZKEE!L-G`V8Y`$,RVJ63P%%G"
^XMB(3.9,23,2,7373,0)="""DATA"",396.18,204,3,210,0)"
^XMB(3.9,23,2,7374,0)="M49!6O\!M$3CH,?SR;'0_2H/J;&B:/P$&59H.=`ZMH8_6[>:+;M=>=]U[8I<N"
^XMB(3.9,23,2,7375,0)="""DATA"",396.18,204,3,211,0)"
^XMB(3.9,23,2,7376,0)="M?\RTIVDH/!WD>^)TY]>SA]#WAVH])[Y`%)]%BG?)`>UC_!?\A.8@_T!QC""'>"
^XMB(3.9,23,2,7377,0)="""DATA"",396.18,204,3,212,0)"
^XMB(3.9,23,2,7378,0)="MPE`(%#J&GM$/M]`&/P,IKYX(,MC9&0MDXSD5H:[X`EO>Z>CEJ_L_""\4_F8R<"
^XMB(3.9,23,2,7379,0)="""DATA"",396.18,204,3,213,0)"
^XMB(3.9,23,2,7380,0)="MY_5L%#G/ODLM9[,]/6.U+K<<U(N0K$<Z&,NO^SC?:ZSLDB""L?&0PK""Q9""@?L"
^XMB(3.9,23,2,7381,0)="""DATA"",396.18,204,3,214,0)"
^XMB(3.9,23,2,7382,0)="M6V*<Z^-M^-!:2)!3762K_(%H^LF`W)Z5T&)%=?[WR>T35*`>TE4FZ""KMST-]"
^XMB(3.9,23,2,7383,0)="""DATA"",396.18,204,3,215,0)"
^XMB(3.9,23,2,7384,0)="MA79NX^RL7-R\1!9!/$*9R3*#%`+!RE*ME!.M+,?8A(&#A&W;[;0L?SO9>C(5"
^XMB(3.9,23,2,7385,0)="""DATA"",396.18,204,3,216,0)"
^XMB(3.9,23,2,7386,0)="M.[G2`$KDWL.ZXI,9E1+)XECS0(FN9_6VK60JY&*K4((JL%BW]C6E""F:R4!Q0"
^XMB(3.9,23,2,7387,0)="""DATA"",396.18,204,3,217,0)"
^XMB(3.9,23,2,7388,0)="M8<OU.[@6N/.3+'[K%?R>MVE[_61J92(319@G^K,9B3#_<CA/9'K57G([=GN<"
^XMB(3.9,23,2,7389,0)="""DATA"",396.18,204,3,218,0)"
^XMB(3.9,23,2,7390,0)="M@R2[.W(]0]+Q0Z-U?&@Z/Q-*1'Y?$I'['F*.J\'ER`Q-<6]F`BL3=`&76Q;:"
^XMB(3.9,23,2,7391,0)="""DATA"",396.18,204,3,219,0)"
^XMB(3.9,23,2,7392,0)="MU)""#SFL2F=C*`VL;.HMJ+C&IEMTS\;BT!EYAP%=\*![1T<`K3/`*[6.9$6Q<"
^XMB(3.9,23,2,7393,0)="""DATA"",396.18,204,3,220,0)"
^XMB(3.9,23,2,7394,0)="M4?G'D*L]5QZR),Z_T'-:S8DAP-YEN2M./D3U?=\0?8\LNXT>R=SA9C-.+R""W"
^XMB(3.9,23,2,7395,0)="""DATA"",396.18,204,3,221,0)"
^XMB(3.9,23,2,7396,0)="MNT%9A]K>'Z+M,58]E""N]%Y11/_B?K+L5U;^P^D_NR!""-)7[S2:9R!Y/??,@7"
^XMB(3.9,23,2,7397,0)="""DATA"",396.18,204,3,222,0)"
^XMB(3.9,23,2,7398,0)="M9\&'OY>W+SF1WO%&5L%-,<""85H*I#R)#]'L*XJAW!P0--!V),%,X[8;5L1H."
^XMB(3.9,23,2,7399,0)="""DATA"",396.18,204,3,223,0)"
^XMB(3.9,23,2,7400,0)="M-9I""LT>J;/@T!XZ>Q;IHEL6<!K1@UF1P-PRB4(<HO)OS*`L43('"";P"":BH[C"
^XMB(3.9,23,2,7401,0)="""DATA"",396.18,204,3,224,0)"
^XMB(3.9,23,2,7402,0)="M(]T(#-9Z$]\60FHV7-1SBX4VSA""Q,``[Z!?X4M8BX:8)OHCPP`4J,&IG`TZ<"
^XMB(3.9,23,2,7403,0)="""DATA"",396.18,204,3,225,0)"
^XMB(3.9,23,2,7404,0)="MK<`90LLD/L;>(4?:E`.-NGAHLT_+CF'2"",?M^86S#B;G$>\F2128O6]A(M$V"
^XMB(3.9,23,2,7405,0)="""DATA"",396.18,204,3,226,0)"
^XMB(3.9,23,2,7406,0)="MI72;/\F$X`Z,[N*U#8;V?<LO;%J$N)W[A(N$'Y.9I.MWESH>@AB3#_G][0XR"
^XMB(3.9,23,2,7407,0)="""DATA"",396.18,204,3,227,0)"
^XMB(3.9,23,2,7408,0)="M07\BU3<,R*OS'#]$^FN%^C<""MC]@;%LVL@%[VR;\EUYAVVZA`;:(AV*KAR_X"
^XMB(3.9,23,2,7409,0)="""DATA"",396.18,204,3,228,0)"
^XMB(3.9,23,2,7410,0)="M%GQ\.0QSN6&+VR""$LNU&?YQ5?$:CHDML0U,<E;]2H*)?M79XOZ_;=GLT.&.V"
^XMB(3.9,23,2,7411,0)="""DATA"",396.18,204,3,229,0)"
^XMB(3.9,23,2,7412,0)="M@YC7&4L2.1NG]/T(!Z`0%&<P8FZQ^)9I/%<7Q<8LDJ8N:B%G.YA?H""O;CZ5["
^XMB(3.9,23,2,7413,0)="""DATA"",396.18,204,3,230,0)"
^XMB(3.9,23,2,7414,0)="MEQ:W]Z6J:#\5JLX""NK^8K/NU\79_?NK%<Y?.1?/(1!F!""8U`^[G,9%N!MC=6"
^XMB(3.9,23,2,7415,0)="""DATA"",396.18,204,3,231,0)"
^XMB(3.9,23,2,7416,0)="M($^#;_*U\:NA0`LNT9*L9OBI:SZ;-#?;%G$VT/RXWO/:A#C8<MH7)WS""B,_O"
^XMB(3.9,23,2,7417,0)="""DATA"",396.18,204,3,232,0)"
^XMB(3.9,23,2,7418,0)="M8D!*4.UMCN*KJL%DEA^9P92/'$RF/)B^,^&#:7J/IE1XJ5U[BOL4GP@E$""(S"
^XMB(3.9,23,2,7419,0)="""DATA"",396.18,204,3,233,0)"
^XMB(3.9,23,2,7420,0)="MT*N/P)(ZH[RO)I,NBZJDW\\,YI.6T,IBINF4.KJD"":][R0S^JQ-N\/L>)@[`"
^XMB(3.9,23,2,7421,0)="""DATA"",396.18,204,3,234,0)"
^XMB(3.9,23,2,7422,0)="M""A%\.RO%`?XMHXH#3$5M2DSH>W8'B31""%8?'N,.*W%=!]UG[UW!Y-W`98(!;"
^XMB(3.9,23,2,7423,0)="""DATA"",396.18,204,3,235,0)"
^XMB(3.9,23,2,7424,0)="M'*]^7*7)WB;)8_D4OTS4551P'^1/3X-Z96B&VG6N7D=1K?9FB!6>Q4[&7)LZ"
^XMB(3.9,23,2,7425,0)="""DATA"",396.18,204,3,236,0)"
^XMB(3.9,23,2,7426,0)="MDB5:VO:_RLWS'X1YNL`GT2>0')HRT<R\8+<HD?+!RVX;+9+T""EQ^;L7R6OV"""
^XMB(3.9,23,2,7427,0)="""DATA"",396.18,204,3,237,0)"
^XMB(3.9,23,2,7428,0)="MCWZRN_W\#*=&SA^X0]Y'.:7WWQ3C+3\GS20QR^^IEK<J!/8N7]Z^+8!]%P""V"
^XMB(3.9,23,2,7429,0)="""DATA"",396.18,204,3,238,0)"
^XMB(3.9,23,2,7430,0)="MF(Y53:6FY,QHV9#]O#.X=5XIIC+W6-87UL0(<JW5^I92=I,@YJ$[S.'('1QD"
^XMB(3.9,23,2,7431,0)="""DATA"",396.18,204,3,239,0)"
^XMB(3.9,23,2,7432,0)="MQ!"";F))N[CYM@$:J]^I\G6V\[DDL*K'.@9.&42(@*T/(^%W1#05D%7W7Z2(\"
^XMB(3.9,23,2,7433,0)="""DATA"",396.18,204,3,240,0)"
^XMB(3.9,23,2,7434,0)="MI)\XUR+J(+8,43/V\L`^[DZI""&%C>:RYCX9@JYJ5VJYA:SJ6YVTEM;6I2-AT"
^XMB(3.9,23,2,7435,0)="""DATA"",396.18,204,3,241,0)"
^XMB(3.9,23,2,7436,0)="M"";:7]C3I(#,RX7#N%K]*B!,'$J4=EA1IASDQKV6BD@X?^>Q""MI`?DJH@?5.D"
^XMB(3.9,23,2,7437,0)="""DATA"",396.18,204,3,242,0)"
^XMB(3.9,23,2,7438,0)="M8[Z2'6_+(US6,FBU]O.9(45NJ,-S:;WM>MO(;JXX;7Q<$UUBKER#K_X&?_5R"
^XMB(3.9,23,2,7439,0)="""DATA"",396.18,204,3,243,0)"
^XMB(3.9,23,2,7440,0)="MY*YL@[]QC$Y^1(4BMDF=S4J'\[^KV)PMA#U[<6N7,(9L!+A%3:AL.GL7$387"
^XMB(3.9,23,2,7441,0)="""DATA"",396.18,204,3,244,0)"
^XMB(3.9,23,2,7442,0)="MBJ4_#9BP<+X9J;_CQS^6CSNK0@;:7(4UXY]$,TZ):;5LE!)-JR728%*+!,!T"
^XMB(3.9,23,2,7443,0)="""DATA"",396.18,204,3,245,0)"
^XMB(3.9,23,2,7444,0)="M/_""TR=F7U6KWT,R*_T?B3/FH0""(;HQVBTI5!BK%A<VYN;T`U('MA;I.UH*?`"
^XMB(3.9,23,2,7445,0)="""DATA"",396.18,204,3,246,0)"
^XMB(3.9,23,2,7446,0)="M5$\6'S\L,+7:]K:3<)G2HB&K0,@^F@2RJ1&01>XUZW#B^!S?:WY'6-ZBV!(9"
^XMB(3.9,23,2,7447,0)="""DATA"",396.18,204,3,247,0)"
^XMB(3.9,23,2,7448,0)="M13/1??MCET0&`_E/'MGD@4]I7H-/^$P4=^>ER^`*M]\LPJ;_9:CIVF<R0=M+"
^XMB(3.9,23,2,7449,0)="""DATA"",396.18,204,3,248,0)"
^XMB(3.9,23,2,7450,0)="M:;MOJ&(3JTLSXRE^XB/2>&YR<BW=T'4]'?NY&/[3OC7;Q[RU""?PF_?^RWQ21"
^XMB(3.9,23,2,7451,0)="""DATA"",396.18,204,3,249,0)"
^XMB(3.9,23,2,7452,0)="MN<0PV2<5_OM#17&AQJT6SK]B:2(VJS6,J^[1.:_5XD5""<7X1J:/5<MIDU>WB"
^XMB(3.9,23,2,7453,0)="""DATA"",396.18,204,3,250,0)"
^XMB(3.9,23,2,7454,0)="MGB(%B'H-7(?6:=,""10](&2R2PD3+C4YD;I<!$3K/$'I=Q8+U_J55JT]2J[:M"
^XMB(3.9,23,2,7455,0)="""DATA"",396.18,204,3,251,0)"
^XMB(3.9,23,2,7456,0)="M39)(T^TU^QRE""Y,3ZN8;1J*3]I]\*+RLH%Q::3==O^%V)E*-""N!<%6IH?Z.P"
^XMB(3.9,23,2,7457,0)="""DATA"",396.18,204,3,252,0)"
^XMB(3.9,23,2,7458,0)="MW@U<!YHE@'4=4=^V8#/UD,G:N$)MNV'#3*@M7,_.0Y/08J'7:A#N;%KHU7.;"
^XMB(3.9,23,2,7459,0)="""DATA"",396.18,204,3,253,0)"
^XMB(3.9,23,2,7460,0)="MN!0@KL&&?VZ[S5[+]A<FTH!EXC-NP6\I4/H(!LEJ;MEX^0U`>O^29_4%/GBT"
^XMB(3.9,23,2,7461,0)="""DATA"",396.18,204,3,254,0)"
^XMB(3.9,23,2,7462,0)="M=RPT:6,.LW61![M8:-HMJT_J[W5I*5""1=\@][G,3@8^\L:C""X<VKNC\;QF;N"
^XMB(3.9,23,2,7463,0)="""DATA"",396.18,204,3,255,0)"
^XMB(3.9,23,2,7464,0)="MDE]P6%'I9N26BW%RLY'U*6Z27U>`;:'_X2*+(M$-CA1#_*RS`5,Y05+:>9J1"
^XMB(3.9,23,2,7465,0)="""DATA"",396.18,204,3,256,0)"
^XMB(3.9,23,2,7466,0)="M1ID0)7_S&=0;77P0=75S_?S51G=A+"",UIA=>AC$,K<&CLV>R(0_3J!C)(FT7"
^XMB(3.9,23,2,7467,0)="""DATA"",396.18,204,3,257,0)"
^XMB(3.9,23,2,7468,0)="M[MB><GFBRQ!;OYJX6AI?A1CLDY[`HJD#W25HP;R._)<%&_M:X._64L(:KM(2"
^XMB(3.9,23,2,7469,0)="""DATA"",396.18,204,3,258,0)"
^XMB(3.9,23,2,7470,0)="M.BK:%S,A-5<#->MI.*7)JM6$WH9V,#NT-^OI(`(8[<O/+E//T4GFSQO_[\\/"
^XMB(3.9,23,2,7471,0)="""DATA"",396.18,204,3,259,0)"
^XMB(3.9,23,2,7472,0)="MU@IE8;)_IY@L,DS,\.HS>]G=QI=UQN//#0GBZC""(^W*(_K8TWEO'$<=64NXM"
^XMB(3.9,23,2,7473,0)="""DATA"",396.18,204,3,260,0)"
^XMB(3.9,23,2,7474,0)="MOQS^9T&ZH,+2TWHOG&T=CI$)Z@T^#_^6B+)G`2DLX()O<KTOC+,#IU15-R1Z"
^XMB(3.9,23,2,7475,0)="""DATA"",396.18,204,3,261,0)"
^XMB(3.9,23,2,7476,0)="MV'FFT!M""H;<A'7M:RFXHU""Q+4P.[>JI]0WA<-X"":E720R\4\TY7""Z*)<32B9"
^XMB(3.9,23,2,7477,0)="""DATA"",396.18,204,3,262,0)"
^XMB(3.9,23,2,7478,0)="M%W-$&XE<S<(=""[..<P;0FQVGC8,9J_C&C-]-RB^3&<'(C/Z4X.3XXWL^.3[4"
^XMB(3.9,23,2,7479,0)="""DATA"",396.18,204,3,263,0)"
^XMB(3.9,23,2,7480,0)="MI)*-9K$.6CYZAMP?\-XGF+#PG_\&4$L#!!0``@`(`#=4'S7Z=BPF%#(``/':"
^XMB(3.9,23,2,7481,0)="""DATA"",396.18,204,3,264,0)"
^XMB(3.9,23,2,7482,0)="M`0`<````4W1O;6%C:%]$=6]D96YU;5\Q,3,N<&YL+F9R;>Q=6V_<.+)^'V#^"
^XMB(3.9,23,2,7483,0)="""DATA"",396.18,204,3,265,0)"
^XMB(3.9,23,2,7484,0)="M@Y`7)^=D,B*I:[`'""U]R.TAB(_9,L#A8+&0U;6NCEGHEM1W/KS\D=25%BE2["
^XMB(3.9,23,2,7485,0)="""DATA"",396.18,204,3,266,0)"
^XMB(3.9,23,2,7486,0)="M<^M.7F*IU:UBD2S6Y:NJ_/+?.*ZLM]$E3B_N5_CTZF5>+)];%^S.K[]8UEM\"
^XMB(3.9,23,2,7487,0)="""DATA"",396.18,204,3,267,0)"
^XMB(3.9,23,2,7488,0)="M55G_8_T&;9M>7N0K<A70/S\FB^J&7*""07KW&R?4-?1(@>GD<K:HDS\CUP;L7"
^XMB(3.9,23,2,7489,0)="""DATA"",396.18,204,3,268,0)"
^XMB(3.9,23,2,7490,0)="M'UZ]./CU%YPM?OTE'[R0ONK-B?9ET!F^S473;SN_.'UW>/Q:>%]S]U]G4893"
^XMB(3.9,23,2,7491,0)="""DATA"",396.18,204,3,269,0)"
^XMB(3.9,23,2,7492,0)="MX)%WLK\&[P3`&XP/#E_I>`'_SH:&)*-7!V>G9W^<'=`[1_@6IV^R#!?D_N7M"
^XMB(3.9,23,2,7493,0)="""DATA"",396.18,204,3,270,0)"
^XMB(3.9,23,2,7494,0)="MAR@I\8)]D!<+7)Q7]RFFGY3G27:=8D9YGN;TZ3@]3]);7-![+_.L>G9\$Q4E"
^XMB(3.9,23,2,7495,0)="""DATA"",396.18,204,3,271,0)"
^XMB(3.9,23,2,7496,0)="MIB\X>?'R\(^W%_\Z?GWXX?S%1?]$]]6C-(H_=?<[.G\#H+OY/EIB-AGGUGF4"
^XMB(3.9,23,2,7497,0)="""DATA"",396.18,204,3,272,0)"
^XMB(3.9,23,2,7498,0)="ME=8Y+I*K@^[CEK3_^R>]=185.*OH!^36RR@M&:D7T>4I'0:YQV9'8""V;1`\,"
^XMB(3.9,23,2,7499,0)="""DATA"",396.18,204,3,273,0)"
^XMB(3.9,23,2,7500,0)="MI[-GK@?KZYJ]J+YH^0M@6-_H.>S5-X;S6N7+*+YY;ITD45'<X.B@?D3/+#6["
^XMB(3.9,23,2,7501,0)="""DATA"",396.18,204,3,274,0)"
^XMB(3.9,23,2,7502,0)="MQ@Q#@]MJEHE,NRJ/\G3QS_HC.?/88I3SS%?P#`Q95F^""`<]L3^09&O'L98'_"
^XMB(3.9,23,2,7503,0)="""DATA"",396.18,204,3,275,0)"
^XMB(3.9,23,2,7504,0)="ML\99?&_E5]:BX=OS`QT]T(`>SQ7H04!/S_OU\I*L'T),5%5D#DIK12[O<50\"
^XMB(3.9,23,2,7505,0)="""DATA"",396.18,204,3,276,0)"
^XMB(3.9,23,2,7506,0)="M;_CZ(HLN4[PPY1R24@J1.TEJ+5RF23U9%Q'[FQ""+5TF9+W`YF\BC=57E&0P("
^XMB(3.9,23,2,7507,0)="""DATA"",396.18,204,3,277,0)"
^XMB(3.9,23,2,7508,0)="ME?6?/$/#8$@F`)""GTW<%,J$[(O,XS4O<D#78G\UB.<V.TR3^1&Y\KM__""A/9"
^XMB(3.9,23,2,7509,0)="""DATA"",396.18,204,3,278,0)"
^XMB(3.9,23,2,7510,0)="ME,3LKIKLXWQYF1_EGYF<;""\FU@+R><(A<$3*V\71B$S@.Y[;D/VFPLO13(BR"
^XMB(3.9,23,2,7511,0)="""DATA"",396.18,204,3,279,0)"
^XMB(3.9,23,2,7512,0)="MIGZL)%NN(**S)+<?U[<MLC_S`EO53919GE4E2UQ:BRA)[P^Z!QRKRE6?`?J9"
^XMB(3.9,23,2,7513,0)="""DATA"",396.18,204,3,280,0)"
^XMB(3.9,23,2,7514,0)="M(__LG(CS(DJ;#^\P_I3>6Y?KRDIQ6=9O%+[QD3W37[_M'JR_??!$SW5HFW'="
^XMB(3.9,23,2,7515,0)="""DATA"",396.18,204,3,281,0)"
^XMB(3.9,23,2,7516,0)="M#S;ANF/(=6#.=0#[`0>4G<,;C/>^P&_47U_A._*^^G>,N`-4W!%V_6;L08;L"
^XMB(3.9,23,2,7517,0)="""DATA"",396.18,204,3,282,0)"
^XMB(3.9,23,2,7518,0)="M03KV`+(TB-@MV%KIAPOI[<$U$JX=X=H5KCWAVJ>O6-*I8/>G&'CV\=V':)'D"
^XMB(3.9,23,2,7519,0)="""DATA"",396.18,204,3,283,0)"
^XMB(3.9,23,2,7520,0)="MKXI\O0*,C=PMGIG0GSQ]'%$VH9!G)D00MLP\O\GO:@UH*#(MZW_7995<W3,F"
^XMB(3.9,23,2,7521,0)="""DATA"",396.18,204,3,284,0)"
^XMB(3.9,23,2,7522,0)="MDD\NBC7NV7H6+>2*P'&>E54D/=28.K5>9O37H&Z&SG!1)F5%SNJ>G2^8I$_B"
^XMB(3.9,23,2,7523,0)="""DATA"",396.18,204,3,285,0)"
^XMB(3.9,23,2,7524,0)="MFI'<C,..M6J]TI;HE=#V>[W2!4.]$OB""YER/=H_U2J`ZZ9E0E)ST]G""5N@]1"
^XMB(3.9,23,2,7525,0)="""DATA"",396.18,204,3,286,0)"
^XMB(3.9,23,2,7526,0)="M*__,ETE%V+<S:J6C4.,<[NB&HF[DSU0K;QN^3:F5G4(!E4<;1Y7CZ\3-2'8#"
^XMB(3.9,23,2,7527,0)="""DATA"",396.18,204,3,287,0)"
^XMB(3.9,23,2,7528,0)="MZ-K;4BCX<U\XXD^F=(2(G?-J?>!OILI`HSGZ<LW1X11'W]N:W@CFZ(U*.1C*"
^XMB(3.9,23,2,7529,0)="""DATA"",396.18,204,3,288,0)"
^XMB(3.9,23,2,7530,0)="MS.L0]&+0Y\5@Z`LF/=QS,0A5>QH$TCV-.#'HB6(0S1""#[Z-UN4.V-0CEYP8G"
^XMB(3.9,23,2,7531,0)="""DATA"",396.18,204,3,289,0)"
^XMB(3.9,23,2,7532,0)="M;MISHA>"":*80S!C7ID1@LZ$]^89VO2G5]6MM:*7<5MJ!/!\=9[;8#ET`?ERQ"
^XMB(3.9,23,2,7533,0)="""DATA"",396.18,204,3,290,0)"
^XMB(3.9,23,2,7534,0)="MK=8$I2*P9D>CJW`N5`?R7DUD.WLN`I%R1SOR+1T@WIDB6'\HF""$$S_*R^FU5"
^XMB(3.9,23,2,7535,0)="""DATA"",396.18,204,3,291,0)"
^XMB(3.9,23,2,7536,0)="M1!DQ+U+K_'ZY(I^47T0HNM]""*+IR;1KQJJ%PCK@&#KZ65<^_""*_`1KS:G$L*"
^XMB(3.9,23,2,7537,0)="""DATA"",396.18,204,3,292,0)"
^XMB(3.9,23,2,7538,0)="MOVS`:5^.X,PV\8.>9H0?N\$C:,*C0+`RW#GGZV[P""9GP""4#!A`T,/-6GU0V1"
^XMB(3.9,23,2,7539,0)="""DATA"",396.18,204,3,293,0)"
^XMB(3.9,23,2,7540,0)="MF.+.D_BH?U@6UBJ+XRK<Z!ZOS'G""8@O0-W*COTW*BBA,3&6O_YR0MB[0ZDY="
^XMB(3.9,23,2,7541,0)="""DATA"",396.18,204,3,294,0)"
^XMB(3.9,23,2,7542,0)="MV*)5GFS@M)[5%Y\K0@1>G..4DL#-NE2Q4JM1AUE>X,])U*L_1SB-;WK7""+V3"
^XMB(3.9,23,2,7543,0)="""DATA"",396.18,204,3,295,0)"
^XMB(3.9,23,2,7544,0)="MYE'%W3G.LZMU2=@Y4+GX0!V[\]=?2<8Y1%]&9#3<+W$6""/73D2>&5^DJJ5AH"
^XMB(3.9,23,2,7545,0)="""DATA"",396.18,204,3,296,0)"
^XMB(3.9,23,2,7546,0)="M9O`KYW=8H$=PYS""E+OK$O_MCS10R]X.;;#NU_K]WZ[1*.I[V#DI1+=6X/0*E"
^XMB(3.9,23,2,7547,0)="""DATA"",396.18,204,3,297,0)"
^XMB(3.9,23,2,7548,0)="MVX/?_ZX82+&A3H$F:R#8EDO_8U*1:2;*I[5,LG5%%>.KBGQ5Y.W@`>KMMV[R"
^XMB(3.9,23,2,7549,0)="""DATA"",396.18,204,3,298,0)"
^XMB(3.9,23,2,7550,0)="M=:%X]`A71&O.R$-$F;(@>[34/`O9LVCRV3[Z('W.()#`5'2320F]32;%,YP4"
^XMB(3.9,23,2,7551,0)="""DATA"",396.18,204,3,299,0)"
^XMB(3.9,23,2,7552,0)="MK9N:&2Z=ES\GH\PV-6/F1*/>X66.J,2E?TR>60[0\0>`D=EGN^[7.ZB@Y*`Z"
^XMB(3.9,23,2,7553,0)="""DATA"",396.18,204,3,300,0)"
^XMB(3.9,23,2,7554,0)="M)HLF(3/P'M]-'5-OJ;B2SDLK(N0'F66=QT6>ID=D"".1^6?Z)BRJ)HU0>2=)8"
^XMB(3.9,23,2,7555,0)="""DATA"",396.18,204,3,301,0)"
^XMB(3.9,23,2,7556,0)="MDX',FN0@,KPU*2!R4'.]O]:DHU3,D-R:)%MX`K`""D3_#FGR517>$?W0/'ZV+"
^XMB(3.9,23,2,7557,0)="""DATA"",396.18,204,3,302,0)"
^XMB(3.9,23,2,7558,0)="MC/XY.--VP)QT%,$9+AY+3`6>B8ZCUVW?YC$[ZG?""!G#D]B2$WB2?.ES()%P%"
^XMB(3.9,23,2,7559,0)="""DATA"",396.18,204,3,303,0)"
^XMB(3.9,23,2,7560,0)="MEW&17)(#@ED#J<""W7;(&&F9""@S4']][N=)`!FP+!W^P@<WS4;G#),=F9(IL`"
^XMB(3.9,23,2,7561,0)="""DATA"",396.18,204,3,304,0)"
^XMB(3.9,23,2,7562,0)="M0+,WYD)@VPYN3->$EU`X44,#&7=!E%P:;,GC>$VHBO%NK#W/1)`!(;3BAGI^"
^XMB(3.9,23,2,7563,0)="""DATA"",396.18,204,3,305,0)"
^XMB(3.9,23,2,7564,0)="M?<!I0A2\A76Y([+,-UI90/""A^;./SQWVH2&%#RW@>1@($5$OV-B'%FP'BHJ4"
^XMB(3.9,23,2,7565,0)="""DATA"",396.18,204,3,306,0)"
^XMB(3.9,23,2,7566,0)="M(4A>R_3$Z'=HZZUU:`H=<736^HM5<AV5Y(-X8*2O+\L*%UF42KU,FH$[9@,7"
^XMB(3.9,23,2,7567,0)="""DATA"",396.18,204,3,307,0)"
^XMB(3.9,23,2,7568,0)="M,;AFX]Y:['6+7HIW9#W?C-P6[""=KY\6R><""$>Z[ALK'A!NP#P;:</.]J=]H0"
^XMB(3.9,23,2,7569,0)="""DATA"",396.18,204,3,308,0)"
^XMB(3.9,23,2,7570,0)="M)OLZ7Q<:/]HFR\DW8P@<82*,UI,I?-;3,>1]7O$>Y\.LBN)D,?0<Y_EB!@>H"
^XMB(3.9,23,2,7571,0)="""DATA"",396.18,204,3,309,0)"
^XMB(3.9,23,2,7572,0)="M'XN!AT<.+?$`T0^],UT'8%?PTY_%IM;73`$TF`(#*2Z;`OOG%+`I<#53@$RF"
^XMB(3.9,23,2,7573,0)="""DATA"",396.18,204,3,310,0)"
^XMB(3.9,23,2,7574,0)="M0""\1)5,`PI]3('AU1U-P^J&)!M)IZ""ZFYD)_MDNF`J'MAP:/\!4]WL5@S&F&"
^XMB(3.9,23,2,7575,0)="""DATA"",396.18,204,3,311,0)"
^XMB(3.9,23,2,7576,0)="M:2""H;([YJ;C-865E]'6Z`%O-?YHXT`QI.`?2N_)`UT6RZA?3QR1;Y'<-I_/L"
^XMB(3.9,23,2,7577,0)="""DATA"",396.18,204,3,312,0)"
^XMB(3.9,23,2,7578,0)="MFK)^I#FKO?"".Q`L?#,#]GLTGC=J<$Q[N/:K555IV4.XS\-`$NA]YXB9HL>R]"
^XMB(3.9,23,2,7579,0)="""DATA"",396.18,204,3,313,0)"
^XMB(3.9,23,2,7580,0)="M3=)KH*TO_O!RD2\3HHI3'B;QTP;O2C77-F+,-*S^N1.:(W)@_7?W6UG51[E_"
^XMB(3.9,23,2,7581,0)="""DATA"",396.18,204,3,314,0)"
^XMB(3.9,23,2,7582,0)="M$(`LX1I92Q^+:#789%.F-E0X)=`4W'/_O*O0-V""3""'[:.^\J#`RX!(!PR#DF"
^XMB(3.9,23,2,7583,0)="""DATA"",396.18,204,3,315,0)"
^XMB(3.9,23,2,7584,0)="M<$-ZXB35CBPF!52]-4?DF\X/3!%BY6Y@,UOC-5#G@7*GAFC,(:2W8VWOA_&+"
^XMB(3.9,23,2,7585,0)="""DATA"",396.18,204,3,316,0)"
^XMB(3.9,23,2,7586,0)="MS/6(A&9L""YU-V.9N""XE$-<J6::*K(V.YKOV-B[M<2(J]N""DP-D^,;5TCMAEK"
^XMB(3.9,23,2,7587,0)="""DATA"",396.18,204,3,317,0)"
^XMB(3.9,23,2,7588,0)="MNDH'\WCC;\]7E""Z&JX)\+:JPL*KPU(@[HP-,6""#AU""X:8WS:)+0AQ,?>O@7R"
^XMB(3.9,23,2,7589,0)="""DATA"",396.18,204,3,318,0)"
^XMB(3.9,23,2,7590,0)="M/L\P!SHLJV0551SN\#!EWE:FR\6#)YABMQB!$L_6:4H?745)9M&G*O+V%?OV"
^XMB(3.9,23,2,7591,0)="""DATA"",396.18,204,3,319,0)"
^XMB(3.9,23,2,7592,0)="M75Y\4CP875\7T2UA/`VOD(5VBY=$A)5?U*Y!#[%K5!$!H""I.`28],KYX/+<Y"
^XMB(3.9,23,2,7593,0)="""DATA"",396.18,204,3,320,0)"
^XMB(3.9,23,2,7594,0)="M:%M&U:K-,21-L1D4\0%U&FEG,""#_9[;UV`LKUT7DZ`H^2B2F6WO>#%#4FRR."
^XMB(3.9,23,2,7595,0)="""DATA"",396.18,204,3,321,0)"
^XMB(3.9,23,2,7596,0)="M5E'<0'EW)]\0*H#^O(O9W7O+28ZX`#Z:XM,>F4ZU2&3H1)ETAM,9X&#C<""W<"
^XMB(3.9,23,2,7597,0)="""DATA"",396.18,204,3,322,0)"
^XMB(3.9,23,2,7598,0)="M2KC6-<SSMV<GC-H`>=_?S$JU&)4O9H[]<)K%F%@&_\!1,2PB0VOH6!>-V<!_"
^XMB(3.9,23,2,7599,0)="""DATA"",396.18,204,3,323,0)"
^XMB(3.9,23,2,7600,0)="MZ%#%E\'CN<\-%&!E:!#XX.&SYN[.K`%]\9^3H84""Z257].=$*/IS(A3].1&*"
^XMB(3.9,23,2,7601,0)="""DATA"",396.18,204,3,324,0)"
^XMB(3.9,23,2,7602,0)="M_IP(17_XZU""X!G:W!DYXXT>M3;DR;<H=0,P!Y]U&@<LI4TZ-NMEC9<I7G76!"
^XMB(3.9,23,2,7603,0)="""DATA"",396.18,204,3,325,0)"
^XMB(3.9,23,2,7604,0)="M'!WM\Z!?T;D])UWY/<Y7:50N'Y=/*#ZNNL%667]6FSQK8B-FZ^7.*%D*[[3C"
^XMB(3.9,23,2,7605,0)="""DATA"",396.18,204,3,326,0)"
^XMB(3.9,23,2,7606,0)="M3J7M=+F5D\I#$EUG>9F4C(_K)1G_8_PYBJLG^JJ)@0%1G:CL?0<F5!$SLREV"
^XMB(3.9,23,2,7607,0)="""DATA"",396.18,204,3,327,0)"
^XMB(3.9,23,2,7608,0)="MU5#W>+G\_9[\,R`K-""%+A+9"":(`OI/5BRWJ%1307C+*LP%%%#6'K<9+%Z7I!"
^XMB(3.9,23,2,7609,0)="""DATA"",396.18,204,3,328,0)"
^XMB(3.9,23,2,7610,0)="M[>5R75SCPH#6$!C0BNQPTQS9.%\R(UU/B`(U#4)>.Q4=0?:HQ)RGG$RR8:LA"
^XMB(3.9,23,2,7611,0)="""DATA"",396.18,204,3,329,0)"
^XMB(3.9,23,2,7612,0)="MO_@95430YX5Q%(!)GI_C48RL$<DH7M!-P>:]&TM$\SAK250E\7!HB\53:[E\"
^XMB(3.9,23,2,7613,0)="""DATA"",396.18,204,3,330,0)"
^XMB(3.9,23,2,7614,0)="M:FUQ?(WSPE:HQRY?;G:+!57\A^G'7,4];[H&'Y\@[(B.;%?,0>K4L-X%UQ79"
^XMB(3.9,23,2,7615,0)="""DATA"",396.18,204,3,331,0)"
^XMB(3.9,23,2,7616,0)="MW&X)OH]1R4Z96D(NHS2YSLCT_WU4A$_KS_O'$/3V/N___B/[E.5WF:00GSV-"
^XMB(3.9,23,2,7617,0)="""DATA"",396.18,204,3,332,0)"
^XMB(3.9,23,2,7618,0)="M;@%2=(L@[X""@PL)09&;GTQTP$QWL'8X%J)G]8I%45&#3_Z=X[6EY/:X*9'=U"
^XMB(3.9,23,2,7619,0)="""DATA"",396.18,204,3,333,0)"
^XMB(3.9,23,2,7620,0)="M2J45&.6P)EL_\=!V=,0X<$Q,</`3P,1//)1./%^((1`/%@@,)MZ;.A]$+[*:"
^XMB(3.9,23,2,7621,0)="""DATA"",396.18,204,3,334,0)"
^XMB(3.9,23,2,7622,0)="M0""0C4#S`-Z/0-Z10`\,#4+]>D9@G,UZOKCVF$.[?>O7T-JZTZK\S,'$=KM%`"
^XMB(3.9,23,2,7623,0)="""DATA"",396.18,204,3,335,0)"
^XMB(3.9,23,2,7624,0)="MHVCV2\'9]WA!H%(TY>JRRU4E%"".(P)YAX;Y.B$%;L%)[%T6T7D;$U-V9_&G'"
^XMB(3.9,23,2,7625,0)="""DATA"",396.18,204,3,336,0)"
^XMB(3.9,23,2,7626,0)="M(`$,B2T3?&1FH#WM<H$[2ZUU$S!&[H2;'*KL`*&'@NT_S`[X[IFTQ=J/[(@*"
^XMB(3.9,23,2,7627,0)="""DATA"",396.18,204,3,337,0)"
^XMB(3.9,23,2,7628,0)="MI$AQ=\HN@>XHK]\98P.\</^.*-O`#0LD9U3H*WOAV+P7%GG[7N@C5$8<Y5Y8"
^XMB(3.9,23,2,7629,0)="""DATA"",396.18,204,3,338,0)"
^XMB(3.9,23,2,7630,0)="M,%DZ%SISW+""O\Y*6IDJ3OYK.(85U7KN^=J?4A\)#QSFSW5&K&H,,W)9Y[)3B"
^XMB(3.9,23,2,7631,0)="""DATA"",396.18,204,3,339,0)"
^XMB(3.9,23,2,7632,0)="MRU=,QI$-Z`E%'=KSS7RNSREV[&F-KF-TT4XU5G)E,=<$G=]HM2KRS\F2^L'H"
^XMB(3.9,23,2,7633,0)="""DATA"",396.18,204,3,340,0)"
^XMB(3.9,23,2,7634,0)="MT:HGV#$@&(P*Z4+')-T[*NM55Y%SGY[PC>-52Y07&A`EUM)P0*AU$PYR]6@J"
^XMB(3.9,23,2,7635,0)="""DATA"",396.18,204,3,341,0)"
^XMB(3.9,23,2,7636,0)="M2'QC$3F454^MJR1-K21C3J2:F4EVE1=+-NM/"":TT=^11XP-Z9%T-\??DIP8/"
^XMB(3.9,23,2,7637,0)="""DATA"",396.18,204,3,342,0)"
^XMB(3.9,23,2,7638,0)="M6UE>-3]!9VBU+F_J`,CZ<IE4M%M+U<%+9H+@D0E7;-&[89*9?[Y>+J-:G8U2"
^XMB(3.9,23,2,7639,0)="""DATA"",396.18,204,3,343,0)"
^XMB(3.9,23,2,7640,0)="MFC##""8[:IUY/7H++9B@57NA7ER=/I$`\@A'!0%?U7^+R_2_KK*""(T_.:LU5N"
^XMB(3.9,23,2,7641,0)="""DATA"",396.18,204,3,344,0)"
^XMB(3.9,23,2,7642,0)="M18L%G2I&)+FD;&]&-I?AU%)WI""X%CMN^+=9:U2(OD1WX!W-]B'++G-^CMJ>C"
^XMB(3.9,23,2,7643,0)="""DATA"",396.18,204,3,345,0)"
^XMB(3.9,23,2,7644,0)="M!3DC6L(]M,PU;CO69$K';'>4'.#I_+4`N=[^,=O1F4I`40$"".O:DB#`QE6K)"
^XMB(3.9,23,2,7645,0)="""DATA"",396.18,204,3,346,0)"
^XMB(3.9,23,2,7646,0)="M<*#*]M[0$&E,/*@P\7S!3@:ZJM6^Q,3K$31;JUS1D*U@-PJX"")6W@6':1DBV"
^XMB(3.9,23,2,7647,0)="""DATA"",396.18,204,3,347,0)"
^XMB(3.9,23,2,7648,0)="M;/<U=#M&=`/1G_X@PM'##59?+TQ&M73&P@388Z>JNX?1'U>+3U2U-G3]!TN3"
^XMB(3.9,23,2,7649,0)="""DATA"",396.18,204,3,348,0)"
^XMB(3.9,23,2,7650,0)="M;01@E88VE!G:J+>S:UA&CZ<47,%@W^UL8*MU4""/P1*BUR28L[:9P\]N\K'7E"
^XMB(3.9,23,2,7651,0)="""DATA"",396.18,204,3,349,0)"
^XMB(3.9,23,2,7652,0)="M=U&:K<D^V""THN>=LT*4!>,&,<E=W?05LJX[D=WS4-[-Q%.!D9/-GA""]8CB'0"
^XMB(3.9,23,2,7653,0)="""DATA"",396.18,204,3,350,0)"
^XMB(3.9,23,2,7654,0)="M&QN*S6\_^(1@I?Y&)P3?.M(5S`QO!'`%=BCVCG1AN,_P`+6DM:7-M@>M<.J\"
^XMB(3.9,23,2,7655,0)="""DATA"",396.18,204,3,351,0)"
^XMB(3.9,23,2,7656,0)="MD5YA$QI\-]W!]EC6`K6(4+4H<2?[(H(9LO8PP\MDAQJ"">8J.);R.Z&M9-B%5"
^XMB(3.9,23,2,7657,0)="""DATA"",396.18,204,3,352,0)"
^XMB(3.9,23,2,7658,0)="MR^0Z8W#(B/'.0)(JU""AH\Z76Q33,!ZA16Y""D4J`5ST='=!J.,E/Z/N8#2>K]"
^XMB(3.9,23,2,7659,0)="""DATA"",396.18,204,3,353,0)"
^XMB(3.9,23,2,7660,0)="ME*2RX!""42M)!=""CDR\#7EX-=ON\5:(""RL6+H*=+V^#Y&8N*+/ROCL:R*=3SL"
^XMB(3.9,23,2,7661,0)="""DATA"",396.18,204,3,354,0)"
^XMB(3.9,23,2,7662,0)="M7/+CB]-0#C%&P51_1<>Q%=VC9:5[ZB3JVI%O/3I:)^G"".BORRQ0O'U&W<TR!"
^XMB(3.9,23,2,7663,0)="""DATA"",396.18,204,3,355,0)"
^XMB(3.9,23,2,7664,0)="MQC1)*J5IST3JKNH/2\*M*%D.0P=X0;7<9$'&F%PEF*9&T!W-/-?X<T0+_M#7"
^XMB(3.9,23,2,7665,0)="""DATA"",396.18,204,3,356,0)"
^XMB(3.9,23,2,7666,0)="M/RZ?/+,N;I*R_:GZI^^2X6^E*?U:9A%Y']U&24JQ8&U(X]%)'J\9]KDC]([E"
^XMB(3.9,23,2,7667,0)="""DATA"",396.18,204,3,357,0)"
^XMB(3.9,23,2,7668,0)="M:#^U(O*C44'H'/Y6G;/QJ'F8_""0E:H$K\K-X\?R153(>4,900IYM%,X(`X.9"
^XMB(3.9,23,2,7669,0)="""DATA"",396.18,204,3,358,0)"
^XMB(3.9,23,2,7670,0)="M\I'H&M'#3,29D@R>S%(=TEE$5605^#HJ6&9`-U,%^>KMD""-15K4A!3HQ+*2U"
^XMB(3.9,23,2,7671,0)="""DATA"",396.18,204,3,359,0)"
^XMB(3.9,23,2,7672,0)="MX;A#@W&+(4+D._/'_0'?)OC.:H?/EA(;.[M-[51:K>;JWHIH`>NH[AQ:KB^'"
^XMB(3.9,23,2,7673,0)="""DATA"",396.18,204,3,360,0)"
^XMB(3.9,23,2,7674,0)="MXZX#/8Q/SW31'C<P:/`L[CV#Z!30OSDT>+.XE@S>#+5O]FR#-X?SWXR>:94T"
^XMB(3.9,23,2,7675,0)="""DATA"",396.18,204,3,361,0)"
^XMB(3.9,23,2,7676,0)="M!%1*&IPL9/2UE#2EWB#M'E/[<:6I?4U=A`X0;>][:A]0-B/U#%J1BGD;SIQV"
^XMB(3.9,23,2,7677,0)="""DATA"",396.18,204,3,362,0)"
^XMB(3.9,23,2,7678,0)="MS'\R3,0Y-2AV1F=`R*`G,Q*<])X)WA$O5[08SKK0`S%4+1\F19A)5MS9FG!`"
^XMB(3.9,23,2,7679,0)="""DATA"",396.18,204,3,363,0)"
^XMB(3.9,23,2,7680,0)="M__K`X/6C-!7?-X&!E*N$,('""90L32(ICU"");A'\@`T1*[:;5'B8*D0Z$@M3B"
^XMB(3.9,23,2,7681,0)="""DATA"",396.18,204,3,364,0)"
^XMB(3.9,23,2,7682,0)="M$>T9S$6^SIJ2T5,$`!,&.&((PY@!%MFMV37>@;(=BFZO0OUL?U0?2\1_>:Y2"
^XMB(3.9,23,2,7683,0)="""DATA"",396.18,204,3,365,0)"
^XMB(3.9,23,2,7684,0)="MF1JZ]A^3W1Q319+H24-/=9POB0Y-U""2B6UU&1#DFUOD3ZW%$JZD-E:GKSL'="
^XMB(3.9,23,2,7685,0)="""DATA"",396.18,204,3,366,0)"
^XMB(3.9,23,2,7686,0)="MZ.60(;BH6H]CS#30G';BK7-K2TQ^ZLD/W?IAKFZLZDKK;7]""7]&B69()O:;W"
^XMB(3.9,23,2,7687,0)="""DATA"",396.18,204,3,367,0)"
^XMB(3.9,23,2,7688,0)="M?T[HMB;4-3E61FY$`^?F49KGBQH!1HY7K4A5N%,<;Q+68Y`+_[OVU28'>U?="
^XMB(3.9,23,2,7689,0)="""DATA"",396.18,204,3,368,0)"
^XMB(3.9,23,2,7690,0)="M;$[7[M?]<?:#BW%?,3ONEY\=D[,>A**R80`@?I/%-[C46G%`5>].R+<9U;O;"
^XMB(3.9,23,2,7691,0)="""DATA"",396.18,204,3,369,0)"
^XMB(3.9,23,2,7692,0)="MW(H##_.U4TRD+\UFG&X@/5)01MA('W1=6,VPD92$0$]*X,\FA3P""#F9G']MZ"
^XMB(3.9,23,2,7693,0)="""DATA"",396.18,204,3,370,0)"
^XMB(3.9,23,2,7694,0)="M6D8MU4V("";KVO68X1D:,-!=:Z$T.0HT2*YLC>#""1[:@I,>!/EQ@`-E]O;80F"
^XMB(3.9,23,2,7695,0)="""DATA"",396.18,204,3,371,0)"
^XMB(3.9,23,2,7696,0)="M\$<X2X%`#]I@BS4&Q,H!WUFU*).BI&^Y=N)4[]'%B,RZI[2EN=2=L/BF$:,R"
^XMB(3.9,23,2,7697,0)="""DATA"",396.18,204,3,372,0)"
^XMB(3.9,23,2,7698,0)="M7?HRM62Q.5/ZDJYV;:#CU-_(BAO6J1K4R+*'_<4'M;'LMI""O20DS9;,L(9""S"
^XMB(3.9,23,2,7699,0)="""DATA"",396.18,204,3,373,0)"
^XMB(3.9,23,2,7700,0)="M(7/00Y@3?BOF,.DDS8</A?""R6&[1UDM*Y!S,K1T`I$A_X&Z!&'0PMTX`@'JQ"
^XMB(3.9,23,2,7701,0)="""DATA"",396.18,204,3,374,0)"
^XMB(3.9,23,2,7702,0)="M/2J/I!7;/@(24ER]K]:UZ3\9.+')`6KBZH@+]+I\JY$V<WV//;:.VMM$_RG,"
^XMB(3.9,23,2,7703,0)="""DATA"",396.18,204,3,375,0)"
^XMB(3.9,23,2,7704,0)="M$T&C$FM>S\E8;X)!Q!#]@&/""W7)G<@`I!Q5Y=T#35,\V,""&.FR)=M!1W4;/N"
^XMB(3.9,23,2,7705,0)="""DATA"",396.18,204,3,376,0)"
^XMB(3.9,23,2,7706,0)="M^5>#@WP1FXM*%[;LI*(&""AH8G%N2!,(@M&?+/4:0]%!`MLT[7OU-*`('\]'D"
^XMB(3.9,23,2,7707,0)="""DATA"",396.18,204,3,377,0)"
^XMB(3.9,23,2,7708,0)="M]=YT5""U*>7^P%^AJW@;&!MH6:WK58X#3:K<WA36#HW[O_HB_7E=;?[N%O8ZM"
^XMB(3.9,23,2,7709,0)="""DATA"",396.18,204,3,378,0)"
^XMB(3.9,23,2,7710,0)="MEPE9Y[7P>GZ@TUCJY_!B6,*KLEBAZK*IC/_GX8?3@\$7A(\HKH.E<'88""DG%"
^XMB(3.9,23,2,7711,0)="""DATA"",396.18,204,3,379,0)"
^XMB(3.9,23,2,7712,0)="M+SB/^6B:^6*[QPW8'_C^%V'_.[R@X+#FR/C>I@%-XP%[U64,""G0UK7[&F'41"
^XMB(3.9,23,2,7713,0)="""DATA"",396.18,204,3,380,0)"
^XMB(3.9,23,2,7714,0)="M7TT4>/""S9(1$8_2EH,!PH""MRZ.I:5@_J]NX]NEK9E@XI:M0C?P(3"")TY6F*+"
^XMB(3.9,23,2,7715,0)="""DATA"",396.18,204,3,381,0)"
^XMB(3.9,23,2,7716,0)="M^#I?X3BY2N*VT-'NP*T54""'$XZ^06,'^FV>D-]YB57Z;SY,?.+JL4V2:=;J-"
^XMB(3.9,23,2,7717,0)="""DATA"",396.18,204,3,382,0)"
^XMB(3.9,23,2,7718,0)="M[$V@R,R!0EJ>[VTOR1=N(^M4Y9SWX8/I_G'K.#TL+;8Y:O+/5""?M+GB\TE1"""
^XMB(3.9,23,2,7719,0)="""DATA"",396.18,204,3,383,0)"
^XMB(3.9,23,2,7720,0)="MF3LJ:HRZ2MIY\5=WDCV[*`B':`AVJ.[0DZU_Y`/%0;!.J;;L8^DO'*ZKO'Y$"
^XMB(3.9,23,2,7721,0)="""DATA"",396.18,204,3,384,0)"
^XMB(3.9,23,2,7722,0)="MUT5!*L.%@-/`G&AO-%`?I[WN1%`;MY%L8QYE(H?M=NJ6R6J;6F_*%6>PYA2K"
^XMB(3.9,23,2,7723,0)="""DATA"",396.18,204,3,385,0)"
^XMB(3.9,23,2,7724,0)="M3KWNFD6DX*9OR,W.1I2`OB4R708<H'W<6@!P13$#J[PL$\+HIX3%3:(-_31."
^XMB(3.9,23,2,7725,0)="""DATA"",396.18,204,3,386,0)"
^XMB(3.9,23,2,7726,0)="MBGB]+*LHBYMJY$F65`G1HH?0;P8I3JZ(TMN46&GJY#<H`08+S_Z]+EBOOBM:"
^XMB(3.9,23,2,7727,0)="""DATA"",396.18,204,3,387,0)"
^XMB(3.9,23,2,7728,0)="MV8?HS\R#P^#'JR*_Y7\M65""T=X6+6]KQN#ZUG_V84RX]%74K(5""LA*[\FWIC"
^XMB(3.9,23,2,7729,0)="""DATA"",396.18,204,3,388,0)"
^XMB(3.9,23,2,7730,0)="MM:F^NGW55DIGD(XON9W@-]I.CFVXG2`:,3%$9DRDIDQ)4])H(YDOSLEO)9@<"
^XMB(3.9,23,2,7731,0)="""DATA"",396.18,204,3,389,0)"
^XMB(3.9,23,2,7732,0)="M9,A)MW5!COL'Z#@IZR&@VR6ABBP?""#,,Q^</1$8""\^!X75""6]17W2R;!*IK`"
^XMB(3.9,23,2,7733,0)="""DATA"",396.18,204,3,390,0)"
^XMB(3.9,23,2,7734,0)="M$N?9(AFVP]H#V>0`%==#038YR!.Y#OL%HI%.?;8G.0KPU16A@S""^R)=6+$Y("
^XMB(3.9,23,2,7735,0)="""DATA"",396.18,204,3,391,0)"
^XMB(3.9,23,2,7736,0)="M-WIIX'""C,9KJ-<@9+?BNYJ'Q$$<#*K<_(D\U(D\8T&C*0K/1@&<[*/@\SXQK"
^XMB(3.9,23,2,7737,0)="""DATA"",396.18,204,3,392,0)"
^XMB(3.9,23,2,7738,0)="M(=R0:W`GN:;47ARX);ZA7>0;4!H`7=VM""95%=J#)=99&W""P;=W@G=I[KQ,X."
^XMB(3.9,23,2,7739,0)="""DATA"",396.18,204,3,393,0)"
^XMB(3.9,23,2,7740,0)="ML=J8TS();VJZTF01JA0R9YDAEU5DTT!BR`44U49!$(S/78FVTXVT;R0([1[_"
^XMB(3.9,23,2,7741,0)="""DATA"",396.18,204,3,394,0)"
^XMB(3.9,23,2,7742,0)="M,O8^J6BC$0F^-)C:='7MD>F*QIO>""R6T`?^K6RGC4(5R'2K#%8.`Q90F-AFT"
^XMB(3.9,23,2,7743,0)="""DATA"",396.18,204,3,395,0)"
^XMB(3.9,23,2,7744,0)="MD'FLE`N\;CC.,`3#WN-J^\=%8R4&C.8D0+(Y<?OE/-&'7('?F@B[T<S?BH7*"
^XMB(3.9,23,2,7745,0)="""DATA"",396.18,204,3,396,0)"
^XMB(3.9,23,2,7746,0)="M!G?.BOR:^J236YS>T_[A)??QFR7U))`=Q=VD;@26^$N(OOO=*O`R(;_0EPFH"
^XMB(3.9,23,2,7747,0)="""DATA"",396.18,204,3,397,0)"
^XMB(3.9,23,2,7748,0)="M.X%2\Z.?)E6#<5FG[:E=`12[8J0JNZ.3$/KC+=O+HCYR9X?AUY?;/]!N:87U"
^XMB(3.9,23,2,7749,0)="""DATA"",396.18,204,3,398,0)"
^XMB(3.9,23,2,7750,0)="MU#0%9L++!>'8[S9VMWB>;*.@G\*K+[>DGH[:^2X&AB9DEXGHZD^889,]<I)V"
^XMB(3.9,23,2,7751,0)="""DATA"",396.18,204,3,399,0)"
^XMB(3.9,23,2,7752,0)="M(4(J*7]4&W[LJS<(9^AF`$'5%'3!Q2W,@:1JBZ2DS`,'U$*6P0B^K%Q6,@TJ"
^XMB(3.9,23,2,7753,0)="""DATA"",396.18,204,3,400,0)"
^XMB(3.9,23,2,7754,0)="M--&@/,?MQ7&_.#[>))7N*!Q'*:>/QW9?JH9]^F&@""7076E>93!D(392!T.YR"
^XMB(3.9,23,2,7755,0)="""DATA"",396.18,204,3,401,0)"
^XMB(3.9,23,2,7756,0)="M*;Z`,L!E`3""0#5DY24Q1-B<)KH8?-3B?X2W:*4*\=WKQ^]G%1CI`O14I.*D9"
^XMB(3.9,23,2,7757,0)="""DATA"",396.18,204,3,402,0)"
^XMB(3.9,23,2,7758,0)="M/""\+%?=%K%X[XHMD-5@HK)!--TEY=DWGS=""RJ6?85RI^8S-RK'8`:#39-A@<"
^XMB(3.9,23,2,7759,0)="""DATA"",396.18,204,3,403,0)"
^XMB(3.9,23,2,7760,0)="M:`JU8WH-?)=""=H.%>9A549PL.&V2W$LNDYR<@=SMU]`Z2O/X$RY*0:NEQ9?."
^XMB(3.9,23,2,7761,0)="""DATA"",396.18,204,3,404,0)"
^XMB(3.9,23,2,7762,0)="MULN5]2:[(=^L<OZ)B<4^<]%JS@_/4)).B-*Q!>T!DT4F$::A[4/=(M,+T\!D"
^XMB(3.9,23,2,7763,0)="""DATA"",396.18,204,3,405,0)"
^XMB(3.9,23,2,7764,0)="M%E_E^6+(UI=14G!SE.>%3N`RA1^8J9(2IL#>&]:KDLY8X0<@_*E*#FI5*Q<K"
^XMB(3.9,23,2,7765,0)="""DATA"",396.18,204,3,406,0)"
^XMB(3.9,23,2,7766,0)="M!U)%*M!PGZXC1B]&RGZ7K\<UA9(H^X,L(A6$=0+$*H.Q\B`A?4SD[Q(EI,<-"
^XMB(3.9,23,2,7767,0)="""DATA"",396.18,204,3,407,0)"
^XMB(3.9,23,2,7768,0)="M\LF`T&""+J69TV&&X[C$L3''[>I7$"";E)G`9C(@D8<Y""VPQ<5=_BBX@[<^ZP="
^XMB(3.9,23,2,7769,0)="""DATA"",396.18,204,3,408,0)"
^XMB(3.9,23,2,7770,0)="M3P4CA(I2V#;?BD[,Z0MG0#%/DN@ZR\MD=Q)U@.<I.AAYD^!%@(+O`GOI*<J+"
^XMB(3.9,23,2,7771,0)="""DATA"",396.18,204,3,409,0)"
^XMB(3.9,23,2,7772,0)="M\R5FD5@L8%Q?R[CC!]H""AM%50""]#GNI@>QT1MH&\9.$&&;-#^&""R58A1L!U<"
^XMB(3.9,23,2,7773,0)="""DATA"",396.18,204,3,410,0)"
^XMB(3.9,23,2,7774,0)="M(U#B&OD\#Q$S.BHJ@;IN?QOC&ML<I2^.:X3*^+\0P`1`HL9YLX""-M%\L.\/I"
^XMB(3.9,23,2,7775,0)="""DATA"",396.18,204,3,411,0)"
^XMB(3.9,23,2,7776,0)="MEFZR2BC""9&E%99G'242U_KNDNJDA)XM6D.XBT`BJPG*"";N;ZHRA2&)AQ_7#Q"
^XMB(3.9,23,2,7777,0)="""DATA"",396.18,204,3,412,0)"
^XMB(3.9,23,2,7778,0)="M_^U=:X_;MK;]*T:_.`&2'/&A5RX.BK1)T`#M;9#TG)[[46-K9H3*EJ]D)_7]"
^XMB(3.9,23,2,7779,0)="""DATA"",396.18,204,3,413,0)"
^XMB(3.9,23,2,7780,0)="M]9>D+(DB-R72KTEF5!1%(SLS6]R+F_O%M>N.G22?-7<A;7J-D!$12K2CU66Q"
^XMB(3.9,23,2,7781,0)="""DATA"",396.18,204,3,414,0)"
^XMB(3.9,23,2,7782,0)="M;3_((6JKI],)LR]F^C4DN2I&YL<W@V!+=.M%9FI9GW_[F%%*L""46D-9,TU[#"
^XMB(3.9,23,2,7783,0)="""DATA"",396.18,204,3,415,0)"
^XMB(3.9,23,2,7784,0)="M'UO`9^^Y!<""^%SY72)5O]J)I]M4)^@],VXQZ2IA*M3QH;-E>RF=2OF._43=8"
^XMB(3.9,23,2,7785,0)="""DATA"",396.18,204,3,416,0)"
^XMB(3.9,23,2,7786,0)="MP_O,,[674:PTW01ZR0Q(5(XU0?-AGIF8Z[FX+XJJ[GK.MO*&^T$N$OS`'B5L"
^XMB(3.9,23,2,7787,0)="""DATA"",396.18,204,3,417,0)"
^XMB(3.9,23,2,7788,0)="MEY:IL,_]MF6SM3Y%7<C#MOH*R*GM6R.2$%M)$**G]O:,B$)M@0*(TLX1M4?*"
^XMB(3.9,23,2,7789,0)="""DATA"",396.18,204,3,418,0)"
^XMB(3.9,23,2,7790,0)="MAS7/*F]K@#3!=W%;&^E6S_Q>?;%8[#;)X9""IQ\)G^;Z/E%FRV&9?V$F4G@@-"
^XMB(3.9,23,2,7791,0)="""DATA"",396.18,204,3,419,0)"
^XMB(3.9,23,2,7792,0)="MWUHAU#M2(=12(8&U0G11B&5?:.WM6@ID;>:T`A8.?*L""EIPQ9"":D9%KGQ.N["
^XMB(3.9,23,2,7793,0)="""DATA"",396.18,204,3,420,0)"
^XMB(3.9,23,2,7794,0)="M<L-,2?6""G=6;HA3/9)@P$]%V#M=W*AB4^OAH`%:EFX3SS.;[&0/7.EVPJ)#/"
^XMB(3.9,23,2,7795,0)="""DATA"",396.18,204,3,421,0)"
^XMB(3.9,23,2,7796,0)="MMF4A(.]UX(F@9%T/2MZ4F1B4G%7)3=;_:7FV9:?&ER3?U5-];YN!P:T8IX$P"
^XMB(3.9,23,2,7797,0)="""DATA"",396.18,204,3,422,0)"
^XMB(3.9,23,2,7798,0)="MLEWHV#^U47)$DM@6@[HD+2?.:*OZIM[;+YJXG*\F+R8WA/MC)YW(85$YF25+"
^XMB(3.9,23,2,7799,0)="""DATA"",396.18,204,3,423,0)"
^XMB(3.9,23,2,7800,0)="MJOH0FJ`DU`6EGC>6\--C6H-WJ*VA>I5-8]_NFU;</006$NZ!E@RJN';4;@_V"
^XMB(3.9,23,2,7801,0)="""DATA"",396.18,204,3,424,0)"
^XMB(3.9,23,2,7802,0)="M[Z[:,4/:654IX6CG5`Z[E0..I95K:70NA[+<+30,+F9@KP,4$D`+W;T+!RT4"
^XMB(3.9,23,2,7803,0)="""DATA"",396.18,204,3,425,0)"
^XMB(3.9,23,2,7804,0)="MXA(&'[#$KTOS*1&M7M1CK3V^7DL+84@@C[QL9/^NQ--?%1&'5WTGW@=""U>LG"
^XMB(3.9,23,2,7805,0)="""DATA"",396.18,204,3,426,0)"
^XMB(3.9,23,2,7806,0)="M`""OSSD8!MEKK*`#6&@?06G?/.$\Q=YI[FUQXQ_RH$H=3MMHDM5Y@F/7.,_;S"
^XMB(3.9,23,2,7807,0)="""DATA"",396.18,204,3,427,0)"
^XMB(3.9,23,2,7808,0)="M;&!G.,M&5PEC!P,([#V$(GM`?DHK7K)E'L+7HOQ+.T*.VU5U]1_IC0#F%^E:"
^XMB(3.9,23,2,7809,0)="""DATA"",396.18,204,3,428,0)"
^XMB(3.9,23,2,7810,0)="M""^6=!6F;R@^E!K=(%GFP]/_-;S!#47FP%"":J7V*61&,[:ULCU\=X)\K8%SBY"
^XMB(3.9,23,2,7811,0)="""DATA"",396.18,204,3,429,0)"
^XMB(3.9,23,2,7812,0)="MS+O5)B_VZ;(KI@UM>K@#;!0>O@L\6L:(<7SX$8`/YIF%-COV:0+G3<7/7#Z9"
^XMB(3.9,23,2,7813,0)="""DATA"",396.18,204,3,430,0)"
^XMB(3.9,23,2,7814,0)="M*&.0$)7<Y8X?KGUH?%CS:5P\?-B*$4]I9?Q""<E/QF5!I5JWZ7U'Z188Z1JPQ"
^XMB(3.9,23,2,7815,0)="""DATA"",396.18,204,3,431,0)"
^XMB(3.9,23,2,7816,0)="MAZPQ1P<PAP*DHLX'0""==9>@-.H11%T83ZDRHXVTJ+)3,""Q5&;],&1LP/YQ,%"
^XMB(3.9,23,2,7817,0)="""DATA"",396.18,204,3,432,0)"
^XMB(3.9,23,2,7818,0)="M2M7O%EB3H\Z;]#[YDA5E_SN\:V8FBAAY?9T_45H]ZU_'0)\M&`SW+##-\^(K"
^XMB(3.9,23,2,7819,0)="""DATA"",396.18,204,3,433,0)"
^XMB(3.9,23,2,7820,0)="M/PTSJ#-4D6Y5U-Z#\?-DS7V\):<X*+7O?6S&HXET79[=BE.8A^.+I""SW[`]&"
^XMB(3.9,23,2,7821,0)="""DATA"",396.18,204,3,434,0)"
^XMB(3.9,23,2,7822,0)="M,4L>/&M?^+Q)4Q'D-]_K?_Q+FHAQ>*;/_YWQ6PG&CW]E6!(CS;9BDE[_PS_3"
^XMB(3.9,23,2,7823,0)="""DATA"",396.18,204,3,435,0)"
^XMB(3.9,23,2,7824,0)="MY""]N#@2_`E/6W2XU+0I;UG1]M[U_/=MM-FS[LL7A5R+,J]C]!:8:\U_X%WLY"
^XMB(3.9,23,2,7825,0)="""DATA"",396.18,204,3,436,0)"
^XMB(3.9,23,2,7826,0)="MGIG(U@PT;""E3AIS^-]ZG""X$#T^<?.9FSLN35+7L7]NOD:[X7LV-XW(Z)'B]/"
^XMB(3.9,23,2,7827,0)="""DATA"",396.18,204,3,437,0)"
^XMB(3.9,23,2,7828,0)="MZ?$:.#8C($(F/N0?MH/.5`L6VUBPRU@H;+!04#O8@'T::`GK-84-*VJD,0QJ"
^XMB(3.9,23,2,7829,0)="""DATA"",396.18,204,3,438,0)"
^XMB(3.9,23,2,7830,0)="M-9`T.9B+\0VY&-)%T>9L#`Y.S,:0P4R`9X[9B`HWZ+B,CDG'*#EN0TI&Y+6E"
^XMB(3.9,23,2,7831,0)="""DATA"",396.18,204,3,439,0)"
^XMB(3.9,23,2,7832,0)="M5,!CB*""/#1K#`3UI?@T&K$((&042@WIZ4PH5E:F<GX%U\N-35@J.'#8/(5`>"
^XMB(3.9,23,2,7833,0)="""DATA"",396.18,204,3,440,0)"
^XMB(3.9,23,2,7834,0)="M#1^S?7X0I],/!^U8;!CS>_1;5@6%&]S%VO5*6,$M0L![Q2$8VGM44I^YH55K"
^XMB(3.9,23,2,7835,0)="""DATA"",396.18,204,3,441,0)"
^XMB(3.9,23,2,7836,0)="M:54^A;I:^QU8]T69VF5VO@./?""A/L%9<G]^R?*D\*99\V*+RO<\I.T)4MZED"
^XMB(3.9,23,2,7837,0)="""DATA"",396.18,204,3,442,0)"
^XMB(3.9,23,2,7838,0)="M#WD;R_-+!&X*_O`X_E#7M'XV`,;7`2#[T9L-4]D$P:M!$#M#D(Q#$,OGYGD@"
^XMB(3.9,23,2,7839,0)="""DATA"",396.18,204,3,443,0)"
^XMB(3.9,23,2,7840,0)="M*`T,N2@$W_V=EHNLF7$Z0?`*$""3.$*06I[`6""A)THA'TKV0$><O""=`I?#W_4"
^XMB(3.9,23,2,7841,0)="""DATA"",396.18,204,3,444,0)"
^XMB(3.9,23,2,7842,0)="M%7_BYH&S%W@B`)$7AM<!X"">1>E)KLA,(+PI""W]D(^D>Y@B>;082O@\(_RN0+"
^XMB(3.9,23,2,7843,0)="""DATA"",396.18,204,3,445,0)"
^XMB(3.9,23,2,7844,0)="M'Y4[.8/7`V'@""D*1'1MS!JEW_K,XN@X(WZ=B[O($P:M!,'2V@_$1SB""&<DU."
^XMB(3.9,23,2,7845,0)="""DATA"",396.18,204,3,446,0)"
^XMB(3.9,23,2,7846,0)="M``RN`\""?DNW]!,!K`C!R!F!T5$[P9`1>R1M\*PC?)@A>$8*Q,P3#X]*""IV(0"
^XMB(3.9,23,2,7847,0)="""DATA"",396.18,204,3,447,0)"
^XMB(3.9,23,2,7848,0)="MH2OY@D66I]L)A%?-37O.*`R.RPR>;`G)=5#(WJA832""\*@B=*R06A['6)1(`"
^XMB(3.9,23,2,7849,0)="""DATA"",396.18,204,3,448,0)"
^XMB(3.9,23,2,7850,0)="M=7O96G:ME5""+2$C))0$XK*G_2;7V57F9W1I3>4]-;.JM07J#.HV`YAH/6CAJ"
^XMB(3.9,23,2,7851,0)="""DATA"",396.18,204,3,449,0)"
^XMB(3.9,23,2,7852,0)="MZ*T)YE,+C:&%!F'K'IH#R04U,4;ZL7*Q/-*HE6*=,+*CE;0B[81R62>01G(,"
^XMB(3.9,23,2,7853,0)="""DATA"",396.18,204,3,450,0)"
^XMB(3.9,23,2,7854,0)="M$IC+2R4CB/09/+%^0RO2^<VB<&*%M:)2;JCF\`""#I\K,@;7+]X1:L<Y%..K*"
^XMB(3.9,23,2,7855,0)="""DATA"",396.18,204,3,451,0)"
^XMB(3.9,23,2,7856,0)="MS5?BZN0HHP;F..7%:&SS7CY`H.X%$X&Z?!19<8YA@',,8VD`;.TB=.PO88]V"
^XMB(3.9,23,2,7857,0)="""DATA"",396.18,204,3,452,0)"
^XMB(3.9,23,2,7858,0)="M[#""47:<=ZU;UUVR5?B<,8J&100R!7%AQ;_8A4IBPXFB<0.SCI]\_OOOTQX=W"
^XMB(3.9,23,2,7859,0)="""DATA"",396.18,204,3,453,0)"
^XMB(3.9,23,2,7860,0)="MGQ_-T%9,P+7""O;6B""NV6'X^//&6(YQWD_^RH6;_Y29P#RT0#BV4*5'(USQM?"
^XMB(3.9,23,2,7861,0)="""DATA"",396.18,204,3,454,0)"
^XMB(3.9,23,2,7862,0)="MI]H5^""/]>_O/`S_=?-P.(,`.A)(9J%WSU@&H+ZFH0SV?,OM@9"";2@P=!XQZE"
^XMB(3.9,23,2,7863,0)="""DATA"",396.18,204,3,455,0)"
^XMB(3.9,23,2,7864,0)="M6Y,.Z-JN?0?ZP0-5'N]E?LQ#H6MDAZ;QQ+3'V!8%9^/(.XUK3MRI\*')]KA/"
^XMB(3.9,23,2,7865,0)="""DATA"",396.18,204,3,456,0)"
^XMB(3.9,23,2,7866,0)="MCZ?:1%^;8MVR$TJDY'0:;`_Y-1[&(F&F&37#;/OP8,*ZD!H_=9,6&X]XMK@!"
^XMB(3.9,23,2,7867,0)="""DATA"",396.18,204,3,457,0)"
^XMB(3.9,23,2,7868,0)="M/)H=T]XN),I\>VTP^Y!5JZ\)\[M1WZ<1<R`M;9<UA#W-WEF!0\52$,TMT#E7"
^XMB(3.9,23,2,7869,0)="""DATA"",396.18,204,3,458,0)"
^XMB(3.9,23,2,7870,0)="MVTU83R+MT1`<)A`?YKPNLVK!UO8NG3T35P>7R3:M!$V;^%RB*IC/\J3:UD.."
^XMB(3.9,23,2,7871,0)="""DATA"",396.18,204,3,459,0)"
^XMB(3.9,23,2,7872,0)="MLP/I`?NW-_VX(;8!,[E'K`\>7Q\4*>N#?7_<;?HYV54I9ZOD%X)8S,(OCFYK"
^XMB(3.9,23,2,7873,0)="""DATA"",396.18,204,3,460,0)"
^XMB(3.9,23,2,7874,0)="MEC1!79""MZ[=%^.6**?I^MF'8*-I)W<#[C;Q*%%B\""E4\P';4Z]""K_`&(O]R)"
^XMB(3.9,23,2,7875,0)="""DATA"",396.18,204,3,461,0)"
^XMB(3.9,23,2,7876,0)="MVYG0*YQ311AK=&YM@4QQ>)3SN1V=-O1F;W?U75VNI(84/&W-Q)&Z8#)C&UVH"
^XMB(3.9,23,2,7877,0)="""DATA"",396.18,204,3,462,0)"
^XMB(3.9,23,2,7878,0)="M$L<6J!($?)Q&K17R>!E#FW5M1LNU0EJL:C,R4>,@.D+(V,)^*>L8D7$1_P61"
^XMB(3.9,23,2,7879,0)="""DATA"",396.18,204,3,463,0)"
^XMB(3.9,23,2,7880,0)="M)`UYB7R'Q08ZY=:Y;GB)_3%7,;!U%>.37$514.&)0"":\(%5N'O3%;SJ^F@*?"
^XMB(3.9,23,2,7881,0)="""DATA"",396.18,204,3,464,0)"
^XMB(3.9,23,2,7882,0)="M<AHT,V\D;N)8D_]3NLW*5)![[=9I0\BAO4\T0+/*9`Q,+(4H"",;(0KN\LMTD"
^XMB(3.9,23,2,7883,0)="""DATA"",396.18,204,3,465,0)"
^XMB(3.9,23,2,7884,0)="M]U)(/#X1>9@;E@D=!78TO-0FC0_/(.5GR7EE-G'0(?4*KSYT%B%+%KK#D/*S"
^XMB(3.9,23,2,7885,0)="""DATA"",396.18,204,3,466,0)"
^XMB(3.9,23,2,7886,0)="M""Q^;4"")=""F\F]D0Z;YTM*2]P-C30/L=+1':HP8`""?$M6V4]I4A7,[;S+OJ0U"
^XMB(3.9,23,2,7887,0)="""DATA"",396.18,204,3,467,0)"
^XMB(3.9,23,2,7888,0)="MC>'Y7@`;&45CM;2@#]\-+$F_ZZS#OAV^^VQSOZ_X_SUOJ9].?8O0.)_=&W\/"
^XMB(3.9,23,2,7889,0)="""DATA"",396.18,204,3,468,0)"
^XMB(3.9,23,2,7890,0)="M0MS>8U/M%_=9PJ<3G?@""2B\'/YV\L9$MVM[621V!@?-$FZ*)O9@&%QW9\J&:"
^XMB(3.9,23,2,7891,0)="""DATA"",396.18,204,3,469,0)"
^XMB(3.9,23,2,7892,0)="M?4DY`<KZ8#66O0DMEYW$8BQ]@%.&L<?#""'C4L'9J$7VV$\`0K5?9^(J'8[.="
^XMB(3.9,23,2,7893,0)="""DATA"",396.18,204,3,470,0)"
^XMB(3.9,23,2,7894,0)="M]`S3^*P[[A@,#;Q3]G)`=29:77[ID21_=-H`M""-FC;W+L[N,_29.`IZP^)/9"
^XMB(3.9,23,2,7895,0)="""DATA"",396.18,204,3,471,0)"
^XMB(3.9,23,2,7896,0)="MOZ5DU'D<`PS""ZXQ,LT6?P]_2]_+SAYF/AR\R'X^G%T7:RU#75ZT)]@(K<'@0"
^XMB(3.9,23,2,7897,0)="""DATA"",396.18,204,3,472,0)"
^XMB(3.9,23,2,7898,0)="M.*:AO$,56-_Y+""!C9P$9=Y2`R1R$`LKSKW86=)'%[&:WG:V+[<,>#Y;S_\01"
^XMB(3.9,23,2,7899,0)="""DATA"",396.18,204,3,473,0)"
^XMB(3.9,23,2,7900,0)="M$9N;,72W-=1]OH#:G1,^.7T&8&BS1+]R`JWM/5,+FNV[""4;B,\2YGK%XW%M'"
^XMB(3.9,23,2,7901,0)="""DATA"",396.18,204,3,474,0)"
^XMB(3.9,23,2,7902,0)="MS)_[^G.?/T>>_@%[QG\2\,EOA6!U8;^^_?2YI4&C5HU*I.-P'+)G!#KL?'^R"
^XMB(3.9,23,2,7903,0)="""DATA"",396.18,204,3,475,0)"
^XMB(3.9,23,2,7904,0)="M9P/V++)4E&^E*(`?'P7`P0/MEB""<%#6@*&*IJ,#@(F@Q%*`J8$HDK*IH4I5U"
^XMB(3.9,23,2,7905,0)="""DATA"",396.18,204,3,476,0)"
^XMB(3.9,23,2,7906,0)="M3Z""Y=""ST%4+EX_Y,.$]-`VJ5@B#J5X^Y'X>&<O]/J*0<6B@A'E4""BJ,CE!!Z"
^XMB(3.9,23,2,7907,0)="""DATA"",396.18,204,3,477,0)"
^XMB(3.9,23,2,7908,0)="MDQ(Z]PQ60N>:\0J3YIJ!RF@.?[,R&H=,MEKQD#)`5TQW_(UNV+RCV>GY8U_3"
^XMB(3.9,23,2,7909,0)="""DATA"",396.18,204,3,478,0)"
^XMB(3.9,23,2,7910,0)="MM`MMY^J?L?ASYTW-B?J`J@]\]4&@/@C5!Y'Z(%8?,.=.?8*T)YJP2),6:>(B"
^XMB(3.9,23,2,7911,0)="""DATA"",396.18,204,3,479,0)"
^XMB(3.9,23,2,7912,0)="M35ZD""8PTB9$F,M)DQIK,6),9:S)C36:LR8PUF;$F,]9DQIK,6).9:#(336:B"
^XMB(3.9,23,2,7913,0)="""DATA"",396.18,204,3,480,0)"
^XMB(3.9,23,2,7914,0)="M@T*3F6@R$TUFHLE,-)F))C/19*::S%23F6HR4QW)FLQ4DYEJ,E--9JK)3#69"
^XMB(3.9,23,2,7915,0)="""DATA"",396.18,204,3,481,0)"
^XMB(3.9,23,2,7916,0)="M?4UF7Y/9;V1^;FF<D)UQ:DQ/5R.P,$XA.L4XD3'C]'Z7Y[SUH7M[9M&W+_N/"
^XMB(3.9,23,2,7917,0)="""DATA"",396.18,204,3,482,0)"
^XMB(3.9,23,2,7918,0)="M/J?Y[4NE8""@>\])%DL_[C2;6RX9-RZ;V#6@+%U@L',6G+!P=6SAC:`T'UG!8"
^XMB(3.9,23,2,7919,0)="""DATA"",396.18,204,3,483,0)"
^XMB(3.9,23,2,7920,0)="M;0BJ32&U,:`>]F*(!WDQRB)'9'2-L;[&9')CNO2N`?)ZYL]$MM;/^QW2^9%J"
^XMB(3.9,23,2,7921,0)="""DATA"",396.18,204,3,484,0)"
^XMB(3.9,23,2,7922,0)="M-+0QQ+&NE\;G,""7[C*D^/=$'I_D.U=9\/VOL0I/>TY)[YCTD9_""D_)U:)!E!"
^XMB(3.9,23,2,7923,0)="""DATA"",396.18,204,3,485,0)"
^XMB(3.9,23,2,7924,0)="M-QKUT:DWZA4&NN&=NFR5%6=?O$F7_UULTYNB^(LO>_^)?)^H:[GMW2((:_1V"
^XMB(3.9,23,2,7925,0)="""DATA"",396.18,204,3,486,0)"
^XMB(3.9,23,2,7926,0)="M+;?U2"";V<\97N?U2M\Q;<>=!_E!MDFV>F[L\FV_T5UO>VYZ$/O[*'Y.[M`>V"
^XMB(3.9,23,2,7927,0)="""DATA"",396.18,204,3,487,0)"
^XMB(3.9,23,2,7928,0)="M?A<ZU?9-OY5U>%7;R>2>/J:\_85*RD9+V(24`@SN;:;$8EZY:6*YQ`-O,;-\"
^XMB(3.9,23,2,7929,0)="""DATA"",396.18,204,3,488,0)"
^XMB(3.9,23,2,7930,0)="M-GN39W=\#9+\YSQCV&R?&Z:9ZSW5_.;\=SEQ&;XK;FC_0EKGEUQ\4.^)>Q""M"
^XMB(3.9,23,2,7931,0)="""DATA"",396.18,204,3,489,0)"
^XMB(3.9,23,2,7932,0)="M-S0SSO<>!5<ZM)""&)D#?X_\0[>*V[/E$\D/YSJ.ZJ""CN/>Z.7$]^W""=Z9/""M"
^XMB(3.9,23,2,7933,0)="""DATA"",396.18,204,3,490,0)"
^XMB(3.9,23,2,7934,0)="M9I]$-W2/1\!V^<<4,'@AWU()`VH85H1)%587TQ6J!#-K0K,1J-.FP`C9;@LI"
^XMB(3.9,23,2,7935,0)="""DATA"",396.18,204,3,491,0)"
^XMB(3.9,23,2,7936,0)="MZ?U8]@4V[@O%`1U@\^AV2`CL$'DTFF$TH&'.@^Q7A8'?`^(0N<=@2=K,[P&="
^XMB(3.9,23,2,7937,0)="""DATA"",396.18,204,3,492,0)"
^XMB(3.9,23,2,7938,0)="MO;R99)T6FSRI5C_V!`""*T:,D(0!-B$84`A/B]F`_1@5YK*I""']04#1PU%3R4"
^XMB(3.9,23,2,7939,0)="""DATA"",396.18,204,3,493,0)"
^XMB(3.9,23,2,7940,0)="MIK9ELELE#Z`G?(R>T-%;""M93A!WU1!]*3_=%M<FV29[]WZ%CJYQ5N_(N+?</"
^XMB(3.9,23,2,7941,0)="""DATA"",396.18,204,3,494,0)"
^XMB(3.9,23,2,7942,0)="MH#O/3G>'NP*##@(&/`38_`4AJ""OL&QV$E\4F75_),T`/Y!F@TSP#@\Z(L\YB"
^XMB(3.9,23,2,7943,0)="""DATA"",396.18,204,3,495,0)"
^XMB(3.9,23,2,7944,0)="M>BF=063[9WU9ZORRR,=7>%O_TDY?Y.3TR>\\XO/)\Z!E/HYF:.+/>9*MZNLQ"
^XMB(3.9,23,2,7945,0)="""DATA"",396.18,204,3,496,0)"
^XMB(3.9,23,2,7946,0)="M'Y8,Y]EMQIO8]K-W?R?RR%$8YU#S>@"",76Y?)=`UZ,>0`F-0?X@8](=>S>UP"
^XMB(3.9,23,2,7947,0)="""DATA"",396.18,204,3,497,0)"
^XMB(3.9,23,2,7948,0)="M5HM(W$2$=Y2CB-A-1.HF(L+G6$9B*^.!*@R[1IP^.4O$^=,NRY<P?]ATMCB<"
^XMB(3.9,23,2,7949,0)="""DATA"",396.18,204,3,498,0)"
^XMB(3.9,23,2,7950,0)="M+8&K_J+@+/I[6RQVXK[[1_6NR>-,&N""+J""]VS_?$9TKXB&OOC1;UJ<*/3X.7"
^XMB(3.9,23,2,7951,0)="""DATA"",396.18,204,3,499,0)"
^XMB(3.9,23,2,7952,0)="M\7=$D=)-A>%9-/C!-);Y\9G.BR?L1)N6V7G#H4TB&YPE3#TT/.G*P,2$H@'G"
^XMB(3.9,23,2,7953,0)="""DATA"",396.18,204,3,500,0)"
^XMB(3.9,23,2,7954,0)="M`7D`JCP(5;V)&T#=4$65$K5VTTUK^@4Q@C9;+Y)-LLAJHS%;[E)>]*]J*I3Z"
^XMB(3.9,23,2,7955,0)="""DATA"",396.18,204,3,501,0)"
^XMB(3.9,23,2,7956,0)="M(E3!_%`^9%,BX#C\Q*SBHZQ_?(R`-0Q&M?`4F5%WU'8(IOTQ@6.F?H!EH>UT"
^XMB(3.9,23,2,7957,0)="""DATA"",396.18,204,3,502,0)"
^XMB(3.9,23,2,7958,0)="MDU5,AT+=R<V2<UTS=2X*ML5>S-;\TG7""%?V%?<""YV%^(6>V)KNWVKRZ9?\=#"
^XMB(3.9,23,2,7959,0)="""DATA"",396.18,204,3,503,0)"
^XMB(3.9,23,2,7960,0)="M$_9KGW63Y>^[C`P+W?CMN2_B)ETA+G=O2^`G[E;L6PO^I6S-)[IFQ:Z:/<O6"
^XMB(3.9,23,2,7961,0)="""DATA"",396.18,204,3,504,0)"
^XMB(3.9,23,2,7962,0)="M[,NMH.(""[R*MJN<3SOHXHZY6!7O$!6@FLS+_<'M`UM>DFMTEE;C9>$BY,?1T"
^XMB(3.9,23,2,7963,0)="""DATA"",396.18,204,3,505,0)"
^XMB(3.9,23,2,7964,0)="M9J:HMB\W)8-3QE!3[5<;9E:J28U]-9*AX!=*`?;=D%:+AA*(Y>'0SEB6K<5]"
^XMB(3.9,23,2,7965,0)="""DATA"",396.18,204,3,506,0)"
^XMB(3.9,23,2,7966,0)="MRC9HNDJKK.*;=)7F[""1XP<^,?,?G)\TJ3@N?;?>0N6!&Y+9,_W>7KA?[U[U5"
^XMB(3.9,23,2,7967,0)="""DATA"",396.18,204,3,507,0)"
^XMB(3.9,23,2,7968,0)="M-I+K3W#($?;<X(`#V%=`@=NF_B7YTNS;FS1=C^-@VL>&0HQO4XF!-C:<U3+4"
^XMB(3.9,23,2,7969,0)="""DATA"",396.18,204,3,508,0)"
^XMB(3.9,23,2,7970,0)="MRS!4AT$>(M>HP\""5E.\&`V<H^1P3[EC$G\/5!8H`U,131>BALG;*Q@]L-CZ8"
^XMB(3.9,23,2,7971,0)="""DATA"",396.18,204,3,509,0)"
^XMB(3.9,23,2,7972,0)="M*X9+L`2Y;7WOJEN?/*&MKSYY]>;5D>8`.YD#ZFP.$/$F>_!0242UR_Y(1Z!7"
^XMB(3.9,23,2,7973,0)="""DATA"",396.18,204,3,510,0)"
^XMB(3.9,23,2,7974,0)="M))0O0(<.+1G,'J#PJBT9'ZJ#_WBW3D1&@*G_9E>N^?]NDFQMU8TQ^1!G:]Q"""
^XMB(3.9,23,2,7975,0)="""DATA"",396.18,204,3,511,0)"
^XMB(3.9,23,2,7976,0)="M1\(/PZ5+1+#;<43]Z3CZUH^CP*D;Q/TXPL2?CB-;9827=4^C8^U!9.CDA*L1"
^XMB(3.9,23,2,7977,0)="""DATA"",396.18,204,3,512,0)"
^XMB(3.9,23,2,7978,0)="M_3!6L@<XG""+3;^E4B>Q0)"":V!=KXP.%,A@_7KPA<T?!`Q+!XACY\WM!<X(9'"
^XMB(3.9,23,2,7979,0)="""DATA"",396.18,204,3,513,0)"
^XMB(3.9,23,2,7980,0)="M#0ZJ=W#<H#)P<$R3HT,'X=G#5G%'Z!YWA.%DZ&UWWL7;%]'@32XJ7SPQE\""I"
^XMB(3.9,23,2,7981,0)="""DATA"",396.18,204,3,514,0)"
^XMB(3.9,23,2,7982,0)="M2PF<CE4YJ%M:&R&PLRE"";@UT-;/T(RX]6=27?,>""`C5DHQQ[%]N*4ET`YA%@"
^XMB(3.9,23,2,7983,0)="""DATA"",396.18,204,3,515,0)"
^XMB(3.9,23,2,7984,0)="MHXBI'&2OO<!1>Q$<O!G*0;;:FQ3GJCC?T>`1`B=]$#[*XF5W:SZ%+6'O=6C,"
^XMB(3.9,23,2,7985,0)="""DATA"",396.18,204,3,516,0)"
^XMB(3.9,23,2,7986,0)="M>#W5ZQH%U0S6HN[>)[,>.9-@%6$,5]Y1?RGDS`CN[Z-!/NOO+GXQ8'0LM-&&"
^XMB(3.9,23,2,7987,0)="""DATA"",396.18,204,3,517,0)"
^XMB(3.9,23,2,7988,0)="MT[-G/Z7YXIY]7WW^<[%FX>%&;W3E9-Y)F>]G%?LLW>[5#_],D[^8""U[ISX7,"
^XMB(3.9,23,2,7989,0)="""DATA"",396.18,204,3,518,0)"
^XMB(3.9,23,2,7990,0)="M>:%_]'M[?,&?'$QCWW4WDWA?(CTC0K30,40+X5X@""F)9B=PD*'OS*0X[?QPF"
^XMB(3.9,23,2,7991,0)="""DATA"",396.18,204,3,519,0)"
^XMB(3.9,23,2,7992,0)="M-!HY:13#%W=,U@F'H$9C+_""FH/M,R@X=E!V[;5]#*Y^SLM&D[#,I.SHF*4MM"
^XMB(3.9,23,2,7993,0)="""DATA"",396.18,204,3,520,0)"
^XMB(3.9,23,2,7994,0)="M<K(8:AD`G47/<RG1($P?[')]W7?\K5_01H-Y,`^Z37^-R[Z7[6/QC\0DA2-/"
^XMB(3.9,23,2,7995,0)="""DATA"",396.18,204,3,521,0)"
^XMB(3.9,23,2,7996,0)="M#[MA,L`/A<FF`_[;I7PXH-)WAJ6/OL,[Z$K]RCL2EQ%\Q]5S:JP,J40K?V5<"
^XMB(3.9,23,2,7997,0)="""DATA"",396.18,204,3,522,0)"
^XMB(3.9,23,2,7998,0)="M+K.D+.\?Q%I2)SH+=UQ&_G?$%@!2YA_%Q?>Q&1PEW>JW9.1#)S#R>1H?GW<"""
^XMB(3.9,23,2,7999,0)="""DATA"",396.18,204,3,523,0)"
^XMB(3.9,23,2,8000,0)="M&]]$MG<2V5XX5**127D.G`=ZA2:4G8W.@$5/B&[OD&L=*G'T^8V:3%[D0B,V"
^XMB(3.9,23,2,8001,0)="""DATA"",396.18,204,3,524,0)"
^XMB(3.9,23,2,8002,0)="MDFQ]<[,NRA7;S>^S-;\64[V>.V6*(U?I8[CG^RCA;P&9'W]J?UPK`SK!@6]]"
^XMB(3.9,23,2,8003,0)="""DATA"",396.18,204,3,525,0)"
^XMB(3.9,23,2,8004,0)="M$3P*3TW?MT,&Q;C[6T>('3S&P7OM_>1>LT.<6M*1X77^S8FY9I_9ZU3SR]P'"
^XMB(3.9,23,2,8005,0)="""DATA"",396.18,204,3,526,0)"
^XMB(3.9,23,2,8006,0)="M'_,:8QNO,08\9@KG1PT+`.='0Y^@JWJ-8J6YSR@CZ&N7W!;7MY)\O6/^(?\["
^XMB(3.9,23,2,8007,0)="""DATA"",396.18,204,3,527,0)"
^XMB(3.9,23,2,8008,0)="M#^!2(J>6P^%.%`2X^R'8`._'9W4I\45!2\B1H$5P6A""AT`VU.'P8U"";K=)4]"
^XMB(3.9,23,2,8009,0)="""DATA"",396.18,204,3,528,0)"
^XMB(3.9,23,2,8010,0)="M1)Q#G$`9.(-2B38OA$IZ9E0>JJ/Q8*$4]%!\PTUS'ZXN&5I&B7*C:;Q0>D+]"
^XMB(3.9,23,2,8011,0)="""DATA"",396.18,204,3,529,0)"
^XMB(3.9,23,2,8012,0)="M\4W+;R!^20F5""=\H'`@54']4QOF.5P/A2'6L8$`]<\$`4@E&U$4ER#<4KPF:"
^XMB(3.9,23,2,8013,0)="""DATA"",396.18,204,3,530,0)"
^XMB(3.9,23,2,8014,0)="MZD/G*ADXE'?10'T(]$<)N`,I(8:3P`=Y70G&>""KPGE[SNT`.Z8^TVE9NN2,\"
^XMB(3.9,23,2,8015,0)="""DATA"",396.18,204,3,531,0)"
^XMB(3.9,23,2,8016,0)="MY8Z^[]S1@6`(8/0\:%%+&Q&@LY?*E1KPM(1I0N8?<\[W=.#_$&P1LS*MV.%6"
^XMB(3.9,23,2,8017,0)="""DATA"",396.18,204,3,532,0)"
^XMB(3.9,23,2,8018,0)="M.V\Y/Q:3NW51<58?SB*TR+.UB%VW'*PSA21DOBC6R]UBRTZ/;""U^&@]QV?$J"
^XMB(3.9,23,2,8019,0)="""DATA"",396.18,204,3,533,0)"
^XMB(3.9,23,2,8020,0)="M?G>9;HIR.W\4N2Q#FYJYD?N@:&*O:+F?I[NB0ZT5/?_/RT_)7G`QK9([0>ZR"
^XMB(3.9,23,2,8021,0)="""DATA"",396.18,204,3,534,0)"
^XMB(3.9,23,2,8022,0)="MW2WWC8)?/P9%C*ZW;[_>6'9QV_9T^XTU?[=>%M6BV#RQ)0Z,2QQ'5FM,Y9LF"
^XMB(3.9,23,2,8023,0)="""DATA"",396.18,204,3,535,0)"
^XMB(3.9,23,2,8024,0)="M+M;KV7NV2C5=U3:K7AP,#)=8Z(&9K/1+MDS7BU2F.+IG/E=9LL/YA6J]9KM\"
^XMB(3.9,23,2,8025,0)="""DATA"",396.18,204,3,536,0)"
^XMB(3.9,23,2,8026,0)="MP7G.:K;FM""Q89,+9KQ*195D7RUV>5L^?M@$+C=I&06ACPB@^\JSBRDZ6]RD/"
^XMB(3.9,23,2,8027,0)="""DATA"",396.18,204,3,537,0)"
^XMB(3.9,23,2,8028,0)="MT3IE_^=ER8Q<HV=^:FT2YLZQ$ZJX:1DX7\R6::YJ.]DS[:Z*;99SOJN6UZ[)"
^XMB(3.9,23,2,8029,0)="""DATA"",396.18,204,3,538,0)"
^XMB(3.9,23,2,8030,0)="MQ[YZRGH.'<RFKN(`V1O--]6,+_B""[[K.7H[""D-H+B.1K3RT*9=)%%Q2R7UHP"
^XMB(3.9,23,2,8031,0)="""DATA"",396.18,204,3,539,0)"
^XMB(3.9,23,2,8032,0)="M$R$*^0UD#E!\EMW*G(D2Q]8_:H(M_C=4%%;]3-E_L??=\HLUO]S=_..7Q?;Y"
^XMB(3.9,23,2,8033,0)="""DATA"",396.18,204,3,540,0)"
^XMB(3.9,23,2,8034,0)="M(S]#E$:E(88#-:QI'6+?!^ZZQ1`&>]Y3DP`A`9$CXJ'4Z&!B%$Z+2E#_,RU!"
^XMB(3.9,23,2,8035,0)="""DATA"",396.18,204,3,541,0)"
^XMB(3.9,23,2,8036,0)="M%[MVI0\^.#MZ.L_Y@""PY?0HF3[]Q8`PFZK2\KI+5M:PHDW&LB:Y<I&5=3'8C"
^XMB(3.9,23,2,8037,0)="""DATA"",396.18,204,3,542,0)"
^XMB(3.9,23,2,8038,0)="M@""P;Z*I$$*P\$H47W[O8H""(XP6)4T&!R96ZKC=&T""A0/CZ@+6ZL+!<1:7QC4"
^XMB(3.9,23,2,8039,0)="""DATA"",396.18,204,3,543,0)"
^XMB(3.9,23,2,8040,0)="M5^Q-^C+I""UGJBUCK""P?1J?LKGO1ETA>^8)[R;9T2RAQSE63*53Z""7""5!1L\;"
^XMB(3.9,23,2,8041,0)="""DATA"",396.18,204,3,544,0)"
^XMB(3.9,23,2,8042,0)="M^YIO)CM<;8G4WO-F^VS%YU\\]DQ*TS6(W3H(HQB:4@5E"".7\\&,?3%K7Q@<K"
^XMB(3.9,23,2,8043,0)="""DATA"",396.18,204,3,545,0)"
^XMB(3.9,23,2,8044,0)="M^H'MI%Z,;.[?#-C&AZNQ?><S/_S!D1^>'N0#06``!H'8#T%;\WFW6B5M?WZM"
^XMB(3.9,23,2,8045,0)="""DATA"",396.18,204,3,546,0)"
^XMB(3.9,23,2,8046,0)="MQ=?SQ[9OZ&!1>H`5""FI.`GMN`]_0[(]CPYU%/YPJTBX5:<]Q3W&-^B;''#BU"
^XMB(3.9,23,2,8047,0)="""DATA"",396.18,204,3,547,0)"
^XMB(3.9,23,2,8048,0)="M_1A*F/G`7NJYZY)""@\DS-WGFQ#4I%H_GQ&*+I""R2;TV!!UG;(X)P2*Z3$4NJ"
^XMB(3.9,23,2,8049,0)="""DATA"",396.18,204,3,548,0)"
^XMB(3.9,23,2,8050,0)="M63+[+5V*DO+OFVS-/_C$9TQ4VW0YFO<Z*;'DEHUH732/_8/<_#2*OQT_#5_Y"
^XMB(3.9,23,2,8051,0)="""DATA"",396.18,204,3,549,0)"
^XMB(3.9,23,2,8052,0)="MO$%C5\R:]7P`9^W=:I,7>QY@S""_LYLC!M_C/_P-02P,$%``""``@`-E0?-1IX"
^XMB(3.9,23,2,8053,0)="""DATA"",396.18,204,3,550,0)"
^XMB(3.9,23,2,8054,0)="M$Y^`&0``ZM4``!P```!3=&]M86-H7T1U;V1E;G5M7S$Q,RYP;FPN8V1E[5U;"
^XMB(3.9,23,2,8055,0)="""DATA"",396.18,204,3,551,0)"
^XMB(3.9,23,2,8056,0)="M<^,VLGYVJO(?4'Z9W4UBBQ?=MN+=DF7:HUK;\I$TF<Q3BI;H,2L2J8A49OSO"
^XMB(3.9,23,2,8057,0)="""DATA"",396.18,204,3,552,0)"
^XMB(3.9,23,2,8058,0)="M#\`[P0;0H#23;-:JO7C(1N-#H]%H-(#F^3EYN!_/R7RY\[?QM]]\^\WDB5S["
^XMB(3.9,23,2,8059,0)="""DATA"",396.18,204,3,553,0)"
^XMB(3.9,23,2,8060,0)="MNRB>[8,+X]MOR)7WY`?>_7[C[?PEF<?AQET^_W+GK:8/OTR""Y7J_\E:4C)""Y"
^XMB(3.9,23,2,8061,0)="""DATA"",396.18,204,3,554,0)"
^XMB(3.9,23,2,8062,0)="M%PM>DPO2*3C-XYT??.0H9]YO>R^*A9R*]Y15_F;\\/YNYJ[\\&87[K?#L[FW"
^XMB(3.9,23,2,8063,0)="""DATA"",396.18,204,3,555,0)"
^XMB(3.9,23,2,8064,0)="M]I:49!)[&\JFRN3!#;SU\.R2U1R'3[LPB""FC:W<=>06NJ([KWMU'GLOQ21_2"
^XMB(3.9,23,2,8065,0)="""DATA"",396.18,204,3,556,0)"
^XMB(3.9,23,2,8066,0)="MHJ>G1/2J`>\C@V<7\/PFO,M]'(>!<?:3'_F/:Z\=DZ2-1D>KD3^%&S_F^""3/"
^XMB(3.9,23,2,8067,0)="""DATA"",396.18,204,3,557,0)"
^XMB(3.9,23,2,8068,0)="MP"";F;V!P740+N\HF=M5-[&DU\<IW=[OG1D_FC\&&5E[""**F8E8TUU8V5LTE:"
^XMB(3.9,23,2,8069,0)="""DATA"",396.18,204,3,558,0)"
^XMB(3.9,23,2,8070,0)="M:W9,T]1K\;O`VVS7X4LRF*H,RQ=%JT$&#ES<016>>;&_:Y3-GA9%3^IE%].["
^XMB(3.9,23,2,8071,0)="""DATA"",396.18,204,3,559,0)"
^XMB(3.9,23,2,8072,0)="MT?CM+P^[D(IK\WWQ8&94_C8K?UO5OZO_Z)5_WU8*WUHYH'I5]>XO:H4?F_!C"
^XMB(3.9,23,2,8073,0)="""DATA"",396.18,204,3,560,0)"
^XMB(3.9,23,2,8074,0)="M2_!8\+P'/KZ%Z[PMF'S[C51FO]SZ40RW,7FE8C->AXE&5<LGSU0%WX;1UH_="
^XMB(3.9,23,2,8075,0)="""DATA"",396.18,204,3,561,0)"
^XMB(3.9,23,2,8076,0)="M-5<V?XPM#@*HOT2SFN\W&W?W(F*6O5:QN_.BR/W(0\J>J@I/MW[@AP%7.'NJ"
^XMB(3.9,23,2,8077,0)="""DATA"",396.18,204,3,562,0)"
^XMB(3.9,23,2,8078,0)="M*GSUF2MW]5E59'1U6QD$-\/R'\[O_LH+EGP[:`%8/6^&X/.<C1*[[WX,PLB/"
^XMB(3.9,23,2,8079,0)="""DATA"",396.18,204,3,563,0)"
^XMB(3.9,23,2,8080,0)="M^"";DSPON(@XSOO4S9>N=IR=J1'G$R4-54>JBN%MWR97-GBH'3;CV^:+),U7!"
^XMB(3.9,23,2,8081,0)="""DATA"",396.18,204,3,564,0)"
^XMB(3.9,23,2,8082,0)="M&X<K=>.HBESN=[PZL4=*\_#`&X4'I2[1:<)W>7U)'JJ*OO?\C\]\1Z0/RZ(D"
^XMB(3.9,23,2,8083,0)="""DATA"",396.18,204,3,565,0)"
^XMB(3.9,23,2,8084,0)="M_<&SQVQ3'W;\\YS-""=C512?4IEG+Y*;9D^9(@$L.9`53;Z0V-5]D$W.3SD32"
^XMB(3.9,23,2,8085,0)="""DATA"",396.18,204,3,566,0)"
^XMB(3.9,23,2,8086,0)="M64BZ'I*NCZ0SL`VA/AQ$F'5JPW_I=M@/RWR`!0&)\_Q\$E!UVB]C:F,CL)@%"
^XMB(3.9,23,2,8087,0)="""DATA"",396.18,204,3,567,0)"
^XMB(3.9,23,2,8088,0)="M%@-);3PI&O40JRP=+""%""L(DW4U7O7>E_GD5B]<Z\V-R)O8!'B""$;(8G'!)>3"
^XMB(3.9,23,2,8089,0)="""DATA"",396.18,204,3,568,0)"
^XMB(3.9,23,2,8090,0)="M#LFT:EM1M91%XI4)S(&Z:DM1M91%XN'!Y7K2<I\KY:8SYK4]AI^EK>0$8IPY"
^XMB(3.9,23,2,8091,0)="""DATA"",396.18,204,3,569,0)"
^XMB(3.9,23,2,8092,0)="M@4M1KT!%X(A-'6)+A]C6(>[J$/=TB/LZQ`,=XJ$&L=71(.XU&EBUJPWG1#`D"
^XMB(3.9,23,2,8093,0)="""DATA"",396.18,204,3,570,0)"
^XMB(3.9,23,2,8094,0)="M&VOH)H],S:WJ$K4UL]SE$7#HH>'8:C@H9HE;).B[#AI-7XD&PRSQMP2J86""Q"
^XMB(3.9,23,2,8095,0)="""DATA"",396.18,204,3,571,0)"
^XMB(3.9,23,2,8096,0)="MV&K)8)@53IR`A87&TU/C03`K/$-!9P_1>-1]U6#F!*O)$_-'S\]_*'YDYGW<"
^XMB(3.9,23,2,8097,0)="""DATA"",396.18,204,3,572,0)"
^XMB(3.9,23,2,8098,0)="MK]T=&8<KCY3/4[JZ?S%YXC6F<S:F(^'7),ZQV.W9\%7Z+@7IR?_M62R.PO*?"
^XMB(3.9,23,2,8099,0)="""DATA"",396.18,204,3,573,0)"
^XMB(3.9,23,2,8100,0)="M(.9&.^:YT5%P-P'N^5KWU#@CM$3\[)$W>=SDT6-N^\J+79]:JW^^(6L69%B%"
^XMB(3.9,23,2,8101,0)="""DATA"",396.18,204,3,574,0)"
^XMB(3.9,23,2,8102,0)="M7D2"",""9+6KGK!\2E)%$2^4D]#2JY[[,_R1N']@3)&;+I[LWWK)(@[>6G<+T."
^XMB(3.9,23,2,8103,0)="""DATA"",396.18,204,3,575,0)"
^XMB(3.9,23,2,8104,0)="M/R6U^A6YLW_0I6CRO%J6?/*#5?CI[)1\1\;/[NYOAO5W^N>I>4;2?B<>=4K)"
^XMB(3.9,23,2,8105,0)="""DATA"",396.18,204,3,576,0)"
^XMB(3.9,23,2,8106,0)="M-BM""Q;/!M,@-5L0+8F^7$.^\W_9):U9N[#:JLLY((D02[1]9I#0.B;M<>EO*"
^XMB(3.9,23,2,8107,0)="""DATA"",396.18,204,3,577,0)"
^XMB(3.9,23,2,8108,0)="M9;U.N8B*VF=D$685N2LJ%]I4=YTW,*(5;STW)E'L;2-B_$""LLU.^3YF""_H/["
^XMB(3.9,23,2,8109,0)="""DATA"",396.18,204,3,578,0)"
^XMB(3.9,23,2,8110,0)="M475>AKM51/__=]_[1/CWR7*,*0,<BTU\][H#PM9?93#^\87\-)I-R>,^3KK="
^XMB(3.9,23,2,8111,0)="""DATA"",396.18,204,3,579,0)"
^XMB(3.9,23,2,8112,0)="M_9T*C\U?IXTX/NOL;LIOX7U.EH/C'YZHJ&G;$FR?W""B1KX(S:SC)FJP)_<=_"
^XMB(3.9,23,2,8113,0)="""DATA"",396.18,204,3,580,0)"
^XMB(3.9,23,2,8114,0)="M'0^[!@KKR`*T""A!WE.62JDG:RU]0D-:Q!6E!@DSM4BV(GE>?&:>+S#3AEID9"
^XMB(3.9,23,2,8115,0)="""DATA"",396.18,204,3,581,0)"
^XMB(3.9,23,2,8116,0)="M<</R`378LAKJP8=6:I>(XNL,M""K:YC-J:\;DF@V[S9Z:M\=\^+$ZO*=PYV7&"
^XMB(3.9,23,2,8117,0)="""DATA"",396.18,204,3,582,0)"
^XMB(3.9,23,2,8118,0)="M*V;&,#5YVW`75^T5JS'7F_;Z@Y&(]94D4A]'T5<53;/7_Y@N;6W,_F!Y`[C+"
^XMB(3.9,23,2,8119,0)="""DATA"",396.18,204,3,583,0)"
^XMB(3.9,23,2,8120,0)="MN@I%RUT9*,Z8<]""*71%N[@7GWV(3)-R1^7[WT6.;$A7?2Q9*8=C+$`YSQY`%"
^XMB(3.9,23,2,8121,0)="""DATA"",396.18,204,3,584,0)"
^XMB(3.9,23,2,8122,0)="M+TX_>!'S#M1!OLSQS!J!K>#'?^%K2*1%>-(LM-3T.0LHQPY$&>)U07-94,Y%"
^XMB(3.9,23,2,8123,0)="""DATA"",396.18,204,3,585,0)"
^XMB(3.9,23,2,8124,0)="M-02&U<0KW/*JBY/->W9URCL1EOP0[M/Q4'J=S_EKYHRNPZ7+O$,Z#`H'$N[#"
^XMB(3.9,23,2,8125,0)="""DATA"",396.18,204,3,586,0)"
^XMB(3.9,23,2,8126,0)="M.V\3FF>W+,BNJK7QZ+L&$.JV>K@ZZ1K]6)6FH]Z-PH`-H?AEZY'PB9J%9""BI"
^XMB(3.9,23,2,8127,0)="""DATA"",396.18,204,3,587,0)"
^XMB(3.9,23,2,8128,0)="MT12<,SMP4BQIFKN7TO*REE3W$]].YP^3Q>B6C.ZOR.UT/%I,IO?_),QD`:I0"
^XMB(3.9,23,2,8129,0)="""DATA"",396.18,204,3,588,0)"
^XMB(3.9,23,2,8130,0)="M7P)<C19.G;3:@77:F3.:3^_)=$86'QX<,KTF\W>S&V?VH<F@Z(TZAW_(?]SZ"
^XMB(3.9,23,2,8131,0)="""DATA"",396.18,204,3,589,0)"
^XMB(3.9,23,2,8132,0)="MI+2W=1DD%?2+[A:*1ML`B$<A5&B\]MS=AF*IBT[XQNCQ&TB-\5DS[P3""82G6"
^XMB(3.9,23,2,8133,0)="""DATA"",396.18,204,3,590,0)"
^XMB(3.9,23,2,8134,0)="MXW6>[X)?@_!3<*I<B9NV1OM(HS<J`UY4);3\']3\7W)^ODRWXT_DV_&&V,X5"
^XMB(3.9,23,2,8135,0)="""DATA"",396.18,204,3,591,0)"
^XMB(3.9,23,2,8136,0)="M0T[.P3PM.YV(K-<Q>!7CH`4SR"";DE""EA&2MQ@GCGTVI<ZK_0E3SMQCA,[%@^"
^XMB(3.9,23,2,8137,0)="""DATA"",396.18,204,3,592,0)"
^XMB(3.9,23,2,8138,0)="M%J;WMQ_()Q;FF*=A`C\BVQTM[JU.!3,@-+6*0CN02O&=N_-^""+=>@-D'A&)3"
^XMB(3.9,23,2,8139,0)="""DATA"",396.18,204,3,593,0)"
^XMB(3.9,23,2,8140,0)="M4*2A^""UV[G[C-I]+'!]+[/A8,K?$POH]O79NCX5V>P2[L>G`O6N8GX'4TSEL"
^XMB(3.9,23,2,8141,0)="""DATA"",396.18,204,3,594,0)"
^XMB(3.9,23,2,8142,0)="M\PF_[R51F`[&',A:KH@V:BAD[T!]+'_W7KA=N]%&]%ZBH:980TV9!IEHS[P+"
^XMB(3.9,23,2,8143,0)="""DATA"",396.18,204,3,595,0)"
^XMB(3.9,23,2,8144,0)="M-I/;5[R@Z]_(BT\QRFOB??:N0'O!?:J;YC[F1=.>LHD@#98)7AJREU;UI6`,"
^XMB(3.9,23,2,8145,0)="""DATA"",396.18,204,3,596,0)"
^XMB(3.9,23,2,8146,0)="MF9)WEOB=V9&.O</VG/';W=#8DXFXIG*]QH;S!8:'0%MP'7KK/GKK87,;N$ED"
^XMB(3.9,23,2,8147,0)="""DATA"",396.18,204,3,597,0)"
^XMB(3.9,23,2,8148,0)="M]^5$:0<K24P,E[8*9F+J+\LK!UL/,<YYX4!#O(Y-1&$=(!I1/VHW\3X\;=W]"
^XMB(3.9,23,2,8149,0)="""DATA"",396.18,204,3,598,0)"
^XMB(3.9,23,2,8150,0)="MFN*7""``2$=]$['3/M[#B/__W-5,\N=L=+M:-GQ'DL[JMS;?E9)[OV,VWWM)_"
^XMB(3.9,23,2,8151,0)="""DATA"",396.18,204,3,599,0)"
^XMB(3.9,23,2,8152,0)="M\I=$,(=GSD:/C^TK3\FE=*)V&F:#889HG9S!%I4;H(I]^\U#N-VOW=@;AYO'"
^XMB(3.9,23,2,8153,0)="""DATA"",396.18,204,3,600,0)"
^XMB(3.9,23,2,8154,0)="M\+T?/V=DR2YG>>:""OKP,/QLZ].PX$1S:&JHVE_FCY-Q`RK@;XA@7QP%\7`T`"
^XMB(3.9,23,2,8155,0)="""DATA"",396.18,204,3,601,0)"
^XMB(3.9,23,2,8156,0)="M14GGOB1+IWS3=KG?[;P@7K]PF[5GIY(81;&BNZR:<G[5.JPC;P.=`,$K%C5K"
^XMB(3.9,23,2,8157,0)="""DATA"",396.18,204,3,602,0)"
^XMB(3.9,23,2,8158,0)="MH(/AC9**(7S,;^ES,;5C`5SZN^5^$\5NL&2+UF!%_,""/?7=--F[@1T\>?97N"
^XMB(3.9,23,2,8159,0)="""DATA"",396.18,204,3,603,0)"
^XMB(3.9,23,2,8160,0)="MNX?I""8""5'WEN1!MU6)O`TVV'M>[]LYLLII-FA?L=A1#Y[,@Z1>_%_\;V`A%!"
^XMB(3.9,23,2,8161,0)="""DATA"",396.18,204,3,604,0)"
^XMB(3.9,23,2,8162,0)="M%AS).PST:)<<9:#_FRDWB7>>&V_H7]&7@US$0+#$]V'@I04DRV617`Z53'+>"
^XMB(3.9,23,2,8163,0)="""DATA"",396.18,204,3,605,0)"
^XMB(3.9,23,2,8164,0)="MPTO.>""=JB)&47%85:95_`0Y""#90PB%R_@J/D4^R957ZBJTE<?W)VMNQ&N#S_"
^XMB(3.9,23,2,8165,0)="""DATA"",396.18,204,3,606,0)"
^XMB(3.9,23,2,8166,0)="MA(KU83:]O'7NZG%BCFU=E`J+V0(#BW2SF/7T?NXLFM'Q(19%U2ZV@#&>S,;O"
^XMB(3.9,23,2,8167,0)="""DATA"",396.18,204,3,607,0)"
^XMB(3.9,23,2,8168,0)="M[N:+T?W8F2<1^\G]9#$9W9*[T?WDVJ%O6/A^SA!R0?5^(Z:N9^?:H)V^F\T="
^XMB(3.9,23,2,8169,0)="""DATA"",396.18,204,3,608,0)"
^XMB(3.9,23,2,8170,0)="M,I]0M)#DX(K4`-4F`@_QW6SFW""_(8N:,%G?TKWD=HJ@JM!3[1X-XYUQ-QK2G"
^XMB(3.9,23,2,8171,0)="""DATA"",396.18,204,3,609,0)"
^XMB(3.9,23,2,8172,0)="M15#A""G$J:1CM=?+*F8]GDP>F=VR$J""1:JTZ-;CR]NYQ>3G^F11;.SXLV`&?."
^XMB(3.9,23,2,8173,0)="""DATA"",396.18,204,3,610,0)"
^XMB(3.9,23,2,8174,0)="M_(%I'UE,2U3<"".&K00""33B0M8,XG5PYQKJ^=\6(.""I(S@-+ZD=U^M%ZO@@?Z"
^XMB(3.9,23,2,8175,0)="""DATA"",396.18,204,3,611,0)"
^XMB(3.9,23,2,8176,0)="M.ZL'""6O0'M;HZFK"",-%Q0KM4H'Z#YO9BW1UI[!=VTQ(70(U'V93,EC2-Y19V"
^XMB(3.9,23,2,8177,0)="""DATA"",396.18,204,3,612,0)"
^XMB(3.9,23,2,8178,0)="MPE6NH!NLZ[Y&;3)-E_;\RGXH>`?:1R%97T$FL+<I(;RG.!""^Z5<D0IH3R""5<"
^XMB(3.9,23,2,8179,0)="""DATA"",396.18,204,3,613,0)"
^XMB(3.9,23,2,8180,0)="M""Q`X:5[X$(5Q#<D[>7S:0F(Q$/%,P^H++F7DJN0LRA*3^8):/MHSSBT=OG26"
^XMB(3.9,23,2,8181,0)="""DATA"",396.18,204,3,614,0)"
^XMB(3.9,23,2,8182,0)="M63AWL,<'E7+N1]0[NV)[>Z/;N:-L)!Y7TI):!6`12(\+(4E+Y6?&RE+5!37@"
^XMB(3.9,23,2,8183,0)="""DATA"",396.18,204,3,615,0)"
^XMB(3.9,23,2,8184,0)="M$POTYL=_-;Q>W,)$IFEY_`PG3<A>8$0J*:>2J[AH>DA2O03-SM2=BKAP*'C5"
^XMB(3.9,23,2,8185,0)="""DATA"",396.18,204,3,616,0)"
^XMB(3.9,23,2,8186,0)="M5F#@2^<&""%<ZWY-OVSS6T8>W#]1=?`-;%8</2XI%I!UYP.E_8=VTS,G)B>C\"
^XMB(3.9,23,2,8187,0)="""DATA"",396.18,204,3,617,0)"
^XMB(3.9,23,2,8188,0)="MC%&^A$VSMFW&&6=$1U_(^JF=J=:TV)@Y&`X:J?M9WRA)Q-'.VJ-M?J'*Y2FJ"
^XMB(3.9,23,2,8189,0)="""DATA"",396.18,204,3,618,0)"
^XMB(3.9,23,2,8190,0)="MFC.5W=JO[&RJKNT+MR^!T%.Z!2>V#;;$_#9<UH*4-(^JHD$Q*Z:%BA>_'!9/"
^XMB(3.9,23,2,8191,0)="""DATA"",396.18,204,3,619,0)"
^XMB(3.9,23,2,8192,0)="M+1Z=A!R4/('WCZ$#)(9R+PA.3*#>!&IL_F3GJF2'.5)00_7^E'I[JL&UK\M5"
^XMB(3.9,23,2,8193,0)="""DATA"",396.18,204,3,620,0)"
^XMB(3.9,23,2,8194,0)="M<&KK_)QD%WO]-.)>JRN_\RL<+,U[NN+3W%WA8%%<$<Z'B2JQ0DE:/9V/`E,="
^XMB(3.9,23,2,8195,0)="""DATA"",396.18,204,3,621,0)"
^XMB(3.9,23,2,8196,0)="M)`HTA<(CX(""TN=WJGL65RT@@21^\^'70K6S):4Q@-P[?1M79*ZL5<WBK-E/<"
^XMB(3.9,23,2,8197,0)="""DATA"",396.18,204,3,622,0)"
^XMB(3.9,23,2,8198,0)="M+`].+5#-KH2+M;6'U]:>CK;:*&VU6VMK3TM;;9RVVEK:.E!K:VTS4S#/=\1L"
^XMB(3.9,23,2,8199,0)="""DATA"",396.18,204,3,623,0)"
^XMB(3.9,23,2,8200,0)="M""C?$`/U72/LU4P!`NB^J-;_#,[G&`""S])(T6\<1K%7?U(0L#,\J$':\8PG8K"
^XMB(3.9,23,2,8201,0)="""DATA"",396.18,204,3,624,0)"
^XMB(3.9,23,2,8202,0)="MYM!UR&P`)RD3'EP_X&JC3X5CN)G\0'P6L:,SAONH,3QH.X9Y,(HQW,>-X8'6"
^XMB(3.9,23,2,8203,0)="""DATA"",396.18,204,3,625,0)"
^XMB(3.9,23,2,8204,0)="M&#8LQ`BU$31=,4VAQH(K>R""_OIA?<GK2@MS3!I6)HC)45.EBQK:1=-!B';)5"
^XMB(3.9,23,2,8205,0)="""DATA"",396.18,204,3,626,0)"
^XMB(3.9,23,2,8206,0)="M>OE!P).:3?%/V5;U*9^]L=D`8+@V!""LZ?L17RS2WJ+>5Y,1]6EGX%XEX&:U"""
^XMB(3.9,23,2,8207,0)="""DATA"",396.18,204,3,627,0)"
^XMB(3.9,23,2,8208,0)="M(!9*(`9""(*:.0""RD0(SVZBL0B*D02!\ED#Y""((:.0/I(@?3;CU2!0`SIM(AR"
^XMB(3.9,23,2,8209,0)="""DATA"",396.18,204,3,628,0)"
^XMB(3.9,23,2,8210,0)="M/D6V5#@?]EMQA>=#.ANRG(G5PQL/DAB%@9X$+4-C$K1QCNRP[21H&3J3H(UT"
^XMB(3.9,23,2,8211,0)="""DATA"",396.18,204,3,629,0)"
^XMB(3.9,23,2,8212,0)="M9(=ZD^``,<%)7-E4A;NH*<GJ*E2X1MNH*9U(!VAW6""?I$S1:A!5*C$C74AN1"
^XMB(3.9,23,2,8213,0)="""DATA"",396.18,204,3,630,0)"
^XMB(3.9,23,2,8214,0)="MFAA$1@2NO&9*D-V`Z@5Q)TCL2!<SXH?MW&O;;L5<[%[GJ>0K*0JR;/',KN`R"
^XMB(3.9,23,2,8215,0)="""DATA"",396.18,204,3,631,0)"
^XMB(3.9,23,2,8216,0)="MO0O3,MARJR)-@%\S+,)<](!-P2!IF!14+GX%%I`L-Q8]<9""F79)^<5X:T?(."
^XMB(3.9,23,2,8217,0)="""DATA"",396.18,204,3,632,0)"
^XMB(3.9,23,2,8218,0)="M(6Y1(AJSUX9G,VZ:9.FG-+4JTM3]0G7KHM6MBU>WYK<()/K6;:%P70V%$W\8"
^XMB(3.9,23,2,8219,0)="""DATA"",396.18,204,3,633,0)"
^XMB(3.9,23,2,8220,0)="M085&JG*&J=0YO:\F2%2NB]`/D<R%2M=OQ937.G'`;""#2%V`/#S.!]3!>L!1"""
^XMB(3.9,23,2,8221,0)="""DATA"",396.18,204,3,634,0)"
^XMB(3.9,23,2,8222,0)="M14T4&(336`\_C?5J8Q-S337+W%9^MP+2_QO@\Q'5X5WYZ@6V^(5D\(""7<(GJ"
^XMB(3.9,23,2,8223,0)="""DATA"",396.18,204,3,635,0)"
^XMB(3.9,23,2,8224,0)="MHQ>(<0P!*>ZJ(I#D^6646.2CN%>>Q^(HZJK$N_!`@?R>34?(,J>H'!""K$22:"
^XMB(3.9,23,2,8225,0)="""DATA"",396.18,204,3,636,0)"
^XMB(3.9,23,2,8226,0)="MV#?//%@1:U060)7)FRYDFC*Q*I?+,7VA\6$4N+C8GIFBG!/(7E=F=C.[PFOF"
^XMB(3.9,23,2,8227,0)="""DATA"",396.18,204,3,637,0)"
^XMB(3.9,23,2,8228,0)="M:!4']SL2D;/[1[07O0@>H+""^D%-GZT?ARE^J.QVPQLT^%UEW.0YF`D5`0`7^"
^XMB(3.9,23,2,8229,0)="""DATA"",396.18,204,3,638,0)"
^XMB(3.9,23,2,8230,0)="MFOK+;RXEBPX2O6RVM&0$K50$V>64A-7M`F`JJ""Y6GL1Q1W`V:,X9`Q35$+=,"
^XMB(3.9,23,2,8231,0)="""DATA"",396.18,204,3,639,0)"
^XMB(3.9,23,2,8232,0)="MW20<)4O8H6`)BX@%*V4%!!?$'5'NQV""Z(^WKK>L'V2D)1;>4YS:D\B[(RH-H"
^XMB(3.9,23,2,8233,0)="""DATA"",396.18,204,3,640,0)"
^XMB(3.9,23,2,8234,0)="M*/""Z<""I','#]+^R_@2[<0GC90!$#[N'D-SR:_+00R40XU!+AL(:8W[%#2?2O"
^XMB(3.9,23,2,8235,0)="""DATA"",396.18,204,3,641,0)"
^XMB(3.9,23,2,8236,0)="M:AD$IVS2X.?S2Y0D9W0^NYLF!70<OG.VE.7%`[[L(7'>,YY&&Y[JA$CU>1&Z"
^XMB(3.9,23,2,8237,0)="""DATA"",396.18,204,3,642,0)"
^XMB(3.9,23,2,8238,0)="M3T3=!)+E)1\_NP'+$'F""95`]CPE%,RWQ]>B<Q%:3`$L4$2\%X9JI:=?$D4'5"
^XMB(3.9,23,2,8239,0)="""DATA"",396.18,204,3,643,0)"
^XMB(3.9,23,2,8240,0)="M*G,J-`5T&T;1L5H/I44XH/$0NZ.V_2:=25HK1ZN>%[>J1<>KDTRH9'`JN""Y3"
^XMB(3.9,23,2,8241,0)="""DATA"",396.18,204,3,644,0)"
^XMB(3.9,23,2,8242,0)="M;[Y:.;#RP>H&3CPHU:CN)8T>@W""W8:G<'7+MTQ?!1]""''6)]V*%X3P`*RT-N"
^XMB(3.9,23,2,8243,0)="""DATA"",396.18,204,3,645,0)"
^XMB(3.9,23,2,8244,0)="M$#^WV)TFD=C)&TKV!50(A--;#8)B?\;NX.;S(78^_[(04S7(OJE609E]C$,8"
^XMB(3.9,23,2,8245,0)="""DATA"",396.18,204,3,646,0)"
^XMB(3.9,23,2,8246,0)="MDVU^0$.\FV?AH[*F1E2V]ID/]-:BI1&6-77""LC4XBGUHVQ)LS97?0,%)'0I@"
^XMB(3.9,23,2,8247,0)="""DATA"",396.18,204,3,647,0)"
^XMB(3.9,23,2,8248,0)="M/*9P!HC8J;B!HN#%8][6-LR%>]J92\-FWYH69L^%6MC\!HLXRC#4T$)#0PO["
^XMB(3.9,23,2,8249,0)="""DATA"",396.18,204,3,648,0)"
^XMB(3.9,23,2,8250,0)="M+?8&C*&.%AHZ6MC7T$);H(7EEV]$Z""-8""X$XESW$J(JAJX=%:]LP%^FA,-[-"
^XMB(3.9,23,2,8251,0)="""DATA"",396.18,204,3,649,0)"
^XMB(3.9,23,2,8252,0)="MOL*8WD2(E+D94V0]Y<%[2RNK$Y!W%\[/5+7A%+7P;,C@:%^=%-I:X=;&B?PS"
^XMB(3.9,23,2,8253,0)="""DATA"",396.18,204,3,650,0)"
^XMB(3.9,23,2,8254,0)="M<9'\<FSC2W%Z])8FO:U)W]6D[VG2]S7I!YKT0SUZJZ-'W]-MK^(6M/*[@7H?"
^XMB(3.9,23,2,8255,0)="""DATA"",396.18,204,3,651,0)"
^XMB(3.9,23,2,8256,0)="M#M3[<J#>IP/UOAVH]_%`O:\'ZGT^4._[@5H?$!3=X1Q""N1F&JA5AXC"";@S;+"
^XMB(3.9,23,2,8257,0)="""DATA"",396.18,204,3,652,0)"
^XMB(3.9,23,2,8258,0)="M8=%.,%(UP;6^2#,1Q)8.L:U#W-4A[ND0]W6(!SK$0PWBBD:JB7OR!O)*)TQT"
^XMB(3.9,23,2,8259,0)="""DATA"",396.18,204,3,653,0)"
^XMB(3.9,23,2,8260,0)="M:0ZTHA#9G-Z7?[$C^ZXZ^&'!^@?+FU^YL&L)^<@)P!C*!YASY9,""`L-'=F4%"
^XMB(3.9,23,2,8261,0)="""DATA"",396.18,204,3,654,0)"
^XMB(3.9,23,2,8262,0)="MJ*[R#_A#&I4,:FF*O""#]SAQA_UDN]ULW^^J<NXS]W^DK#X-2-<@Q8*_89P/K"
^XMB(3.9,23,2,8263,0)="""DATA"",396.18,204,3,655,0)"
^XMB(3.9,23,2,8264,0)="MF%*P9!_M*:""5ZZ]?*K#^K89%&0OSM5U]%I8!`5<UX6HRNKF?SB=`)AP;R,/$"
^XMB(3.9,23,2,8265,0)="""DATA"",396.18,204,3,656,0)"
^XMB(3.9,23,2,8266,0)="MI3JX;NZB<EG4A#K8?%9F<R.C^7PZGHP6SA5Y/UF\)8NW#A$@Y2H6@P43^""@1"
^XMB(3.9,23,2,8267,0)="""DATA"",396.18,204,3,657,0)"
^XMB(3.9,23,2,8268,0)="MI6F+R/2>O)N_&]V2Z7C\[@'X#`JLW/6D/LVQ8&,20RDQ+MY.YE0\\]'EY':R"
^XMB(3.9,23,2,8269,0)="""DATA"",396.18,204,3,658,0)"
^XMB(3.9,23,2,8270,0)="M^/!F3B9W#Z,4=8F7?<5EO)C\-%E,'#@[F-TRC5GW**V8.?-WMXO)_0UY/YW]"
^XMB(3.9,23,2,8271,0)="""DATA"",396.18,204,3,659,0)"
^XMB(3.9,23,2,8272,0)="MAX"")_>`*0:!-3:W>&N](LT@IL4ZI0L[*?%Q(,==J%DA7""\9HYK""A,:NE!F-C"
^XMB(3.9,23,2,8273,0)="""DATA"",396.18,204,3,660,0)"
^XMB(3.9,23,2,8274,0)="M)1]'J<Y>C2:W'X2HI`9/J,`-OZ8HMFBO`F3\=CJ3XS,-725M.%5'03I_.WUX"
^XMB(3.9,23,2,8275,0)="""DATA"",396.18,204,3,661,0)"
^XMB(3.9,23,2,8276,0)="MH,HJQ6H>B-4Z#E;G9V<VGLP=*5;K0*S',65D_C""=+>0:8!^&M-<[#M*9,V;)"
^XMB(3.9,23,2,8277,0)="""DATA"",396.18,204,3,662,0)"
^XMB(3.9,23,2,8278,0)="M]QHS@;PV;;D>Q[B2Q6STDW.K4MCN86""MSG'`7CO.E0(J7Y6V7(?'@7HYHK.O"
^XMB(3.9,23,2,8279,0)="""DATA"",396.18,204,3,663,0)"
^XMB(3.9,23,2,8280,0)="M0JK#`Z$.C@/UBIK6N0KKX$""L_2.IZW1RZRQ48/L'@CV2);B93:=W*JS:=N#."
^XMB(3.9,23,2,8281,0)="""DATA"",396.18,204,3,664,0)"
^XMB(3.9,23,2,8282,0)="MN9L.S^B0=>;MNSQ)Q'GID,1AX=V12@4X.-9A<-3Y-RMU(/PCYD_U&A_KJU5Y"
^XMB(3.9,23,2,8283,0)="""DATA"",396.18,204,3,665,0)"
^XMB(3.9,23,2,8284,0)="MO/2;O>8!'O5Z71K3YQVO2)K\$A'SU@QY:T:\-0/>FO%NS7""W9K1;,]BM&>O6"
^XMB(3.9,23,2,8285,0)="""DATA"",396.18,204,3,666,0)"
^XMB(3.9,23,2,8286,0)="M#'5K1KJ!LZR&(E%J?4V<OE_""1^N$;X;""-_:K9KYJIM(\\6%[K1T8K0T8K?T7"
^XMB(3.9,23,2,8287,0)="""DATA"",396.18,204,3,667,0)"
^XMB(3.9,23,2,8288,0)="MK>T7K=T7K<T7K;T7K:T7K9T7K8T7S.8*:F]%G&#4EB08!<B[$G)!IL\.?\8J"
^XMB(3.9,23,2,8289,0)="""DATA"",396.18,204,3,668,0)"
^XMB(3.9,23,2,8290,0)="MO[Z1YNYM?!E\[G\,6%H^-XCS_?S&F8NLK-VTRB!=%Z*K9#>LG+=@<)NW3,I."
^XMB(3.9,23,2,8291,0)="""DATA"",396.18,204,3,669,0)"
^XMB(3.9,23,2,8292,0)="MAV^BY'#D5$GOF""A6702K\G`X3)0%OQHTP,D7L""\N1%TA$P]TYZ@A'='%I*IP"
^XMB(3.9,23,2,8293,0)="""DATA"",396.18,204,3,670,0)"
^XMB(3.9,23,2,8294,0)="MQ(RZ:D95T0`TO&3J1X)`Q[*K>U9$F*3QXN*"".)OM.GQA'YXA%\(?17'-7TCK"
^XMB(3.9,23,2,8295,0)="""DATA"",396.18,204,3,671,0)"
^XMB(3.9,23,2,8296,0)="MT%_S8#MTKLLTS9[\Q'R3N6D.NZA#8Q!SX.AJV<S&P:/T%:T&.C=VD^91HG"":"
^XMB(3.9,23,2,8297,0)="""DATA"",396.18,204,3,672,0)"
^XMB(3.9,23,2,8298,0)="M60RN\>2UQ&_H0H)#9YF""F@:=6SSX0&PUB0UE;'5$)V=YEAU3P3*EI#S[!K)R"
^XMB(3.9,23,2,8299,0)="""DATA"",396.18,204,3,673,0)"
^XMB(3.9,23,2,8300,0)="MLX^MW.PI*/,/Q3&VU>2^L8K6E-,6C1IH(5!)%2T!0!4ZPF.\O-1ZMHJTS$[/"
^XMB(3.9,23,2,8301,0)="""DATA"",396.18,204,3,674,0)"
^XMB(3.9,23,2,8302,0)="MR0)'+CYYS$,9#%2\""Y'H).I*Z!$RLU2U@V7PS1LJ)5VJ!^.M2=U,#G1L^58I"
^XMB(3.9,23,2,8303,0)="""DATA"",396.18,204,3,675,0)"
^XMB(3.9,23,2,8304,0)="MDR]VLHK[&I0%1$)0.JR4;6%\+[1L;^$X:)K3Y$.O&&LJ%:[5T5->JX.SMPHE"
^XMB(3.9,23,2,8305,0)="""DATA"",396.18,204,3,676,0)"
^XMB(3.9,23,2,8306,0)="MJ=L\%+5""I7@S+E>ION:0[6N:.?S<H&YZQ<A)K""=O\=5\.YHHA!W`<45TE(D>"
^XMB(3.9,23,2,8307,0)="""DATA"",396.18,204,3,677,0)"
^XMB(3.9,23,2,8308,0)="M^T/-CAI^N2YO.;Z%5UV_MM\F-<>O%N-+6XSJS.=IS^W_33[48=/Q_YA')C+U"
^XMB(3.9,23,2,8309,0)="""DATA"",396.18,204,3,678,0)"
^XMB(3.9,23,2,8310,0)="MAYGD5VW0\1_;^7L:\_D7FZ*_VI1Z?LY72WMJW3?0M1[N<8F]C.*HW.'3M71V"
^XMB(3.9,23,2,8311,0)="""DATA"",396.18,204,3,679,0)"
^XMB(3.9,23,2,8312,0)="MOGB=G%\GY]?)^75R?IV<7R?G/]'D_$=-N.5D>2TM5<V:(6?>^<.""!E`83M`4"
^XMB(3.9,23,2,8313,0)="""DATA"",396.18,204,3,680,0)"
^XMB(3.9,23,2,8314,0)="M+$AI''THS.T!W:'_DT58H(Z?>;&_4X8P^#R4<B>ITV;GJ:.W\Z3<)Q';X%@6"
^XMB(3.9,23,2,8315,0)="""DATA"",396.18,204,3,681,0)"
^XMB(3.9,23,2,8316,0)="MY>O9""KZ@[97JC*6_]_)7W4?(M>U""1]F0L?:.5JQ=/6M\M3TKM3_QU_?^H''1"
^XMB(3.9,23,2,8317,0)="""DATA"",396.18,204,3,682,0)"
^XMB(3.9,23,2,8318,0)="M3EF$@=O:XK""=V=/6P%?]>]VL_6MLUAYDN:'P3#N&KP/P=0#^SPQ`R>B1*AO@"
^XMB(3.9,23,2,8319,0)="""DATA"",396.18,204,3,683,0)"
^XMB(3.9,23,2,8320,0)="M<*N4D\LY*&V(KK,+N&]*^#IXCJ^XNHBI`._HGRS/[]^V><;?;9KNZN_""5I@="
^XMB(3.9,23,2,8321,0)="""DATA"",396.18,204,3,684,0)"
^XMB(3.9,23,2,8322,0)="M&RO5[G&D>C!(N:B[FJ+N'BKJZ&7Y[+OQSE]B&H)>L/6.+>WV..4""[VD*O`>F"
^XMB(3.9,23,2,8323,0)="""DATA"",396.18,204,3,685,0)"
^XMB(3.9,23,2,8324,0)="M^KP^?`K[TJ#_$-7\(TU/S=B_""SS<21-+SUVR]$(N0QM]-+4#1LH$;-%SBZK^"
^XMB(3.9,23,2,8325,0)="""DATA"",396.18,204,3,686,0)"
^XMB(3.9,23,2,8326,0)="MBIPNM,2$""S`@,['^>=R/(:BJD4JT&%6UCRU[*#;Y18[B$_&7D\J;\A/N`U#4"
^XMB(3.9,23,2,8327,0)="""DATA"",396.18,204,3,687,0)"
^XMB(3.9,23,2,8328,0)="ME$\?Z)+EM[T7T=?)%9_S<\(>;\FN>+Q,4MROTEM`V&JR84>`7WZ=*$^Y=/I`"
^XMB(3.9,23,2,8329,0)="""DATA"",396.18,204,3,688,0)"
^XMB(3.9,23,2,8330,0)="M>R3RR*-'HOW.(W%(_&""YWJ\\XI)\NIEN_<`/@[/3[_([Q>4?IXMGC[RY<P/&"
^XMB(3.9,23,2,8331,0)="""DATA"",396.18,204,3,689,0)"
^XMB(3.9,23,2,8332,0)="M;<%ZS(V]Z`W9Q_[:CU_(4[@/5H3^-TMR]6:Z9?FC*$6:1Y>X<?+\,:3_VN2Y"
^XMB(3.9,23,2,8333,0)="""DATA"",396.18,204,3,690,0)"
^XMB(3.9,23,2,8334,0)="MKZ+ESO,""LG0#AFP?44E09.YJU41%XJS2L].\>5Z9,8=UJ5#F%RAQ,D8)QT1\"
^XMB(3.9,23,2,8335,0)="""DATA"",396.18,204,3,691,0)"
^XMB(3.9,23,2,8336,0)="M[.;%#\6/Z1J9>1_W:W='QB&56OFNB!#=NE$\VP<71J[ASF<_GOZ'5F\T#1-#"
^XMB(3.9,23,2,8337,0)="""DATA"",396.18,204,3,692,0)"
^XMB(3.9,23,2,8338,0)="M.$E[@`'L)`JFHV/5SB\4ZI,;E4I5*-.=<T5KJW.SD=PVWH[J)6%?I*]<9Q,U"
^XMB(3.9,23,2,8339,0)="""DATA"",396.18,204,3,693,0)"
^XMB(3.9,23,2,8340,0)="MPVAT#*U>0@ZIKKKZ5*X78&F`V_17IE3>9W:#2`==1XGN?KIH(BR&'$O]5H[P"
^XMB(3.9,23,2,8341,0)="""DATA"",396.18,204,3,694,0)"
^XMB(3.9,23,2,8342,0)="MID(SG:9CH+SW'[N/9X++_4F2L70(TU&2CK`O-!B5`Y!1Q,\4;R8Y*EIW4X[*"
^XMB(3.9,23,2,8343,0)="""DATA"",396.18,204,3,695,0)"
^XMB(3.9,23,2,8344,0)="MX_91-B*U[6^ASK*QH0N4@THHQT\>"";S?J9S=B,TQ3^$NE=QT6Z!GV""NQY/\'"
^XMB(3.9,23,2,8345,0)="""DATA"",396.18,204,3,696,0)"
^XMB(3.9,23,2,8346,0)="M4$L#!!0``@`(`#94'S6A_E13(PD``&`T```<````4W1O;6%C:%]$=6]D96YU"
^XMB(3.9,23,2,8347,0)="""DATA"",396.18,204,3,697,0)"
^XMB(3.9,23,2,8348,0)="M;5\Q,3,N<&YL+G)E<+U;;6_<-A+^;L#_08!Q0'NPD=7+KG<+7PJNQ-TE(I&J"
^XMB(3.9,23,2,8349,0)="""DATA"",396.18,204,3,698,0)"
^XMB(3.9,23,2,8350,0)="M2-G9.Q1%BQ1%@+HN>CG@?O[-4.\KB2(WP/E+$IGDO,\\PV%BD>642Z*8X![A"
^XMB(3.9,23,2,8351,0)="""DATA"",396.18,204,3,699,0)"
^XMB(3.9,23,2,8352,0)="MB8?_PK_3CR1C7'^_O9%*9""0^W7M)*1+*RZQ>6C`E.""6I1Y(3Q6WR]N8?UC^W"
^XMB(3.9,23,2,8353,0)="""DATA"",396.18,204,3,700,0)"
^XMB(3.9,23,2,8354,0)="M-T]/HE1YJ<3A\/Z]]^Z=EXN\S+V#*#+O7S71G_*?__CU]^#'R]5/3XP#+_6_"
^XMB(3.9,23,2,8355,0)="""DATA"",396.18,204,3,701,0)"
^XMB(3.9,23,2,8356,0)="M[NZ:Y=FOKV_K%?[X=W>][W'^DA4_?_K\=OSK[3]_5BO""Q14!K+B]*>@SHR^>"
^XMB(3.9,23,2,8357,0)="""DATA"",396.18,204,3,702,0)"
^XMB(3.9,23,2,8358,0)="M.'@935@,`A<T%D5B$G>.WV#`+?WT^<NZ(33Q&3G\^]?]7,'(T]/X\_OWC@>%"
^XMB(3.9,23,2,8359,0)="""DATA"",396.18,204,3,703,0)"
^XMB(3.9,23,2,8360,0)="MTP>%S@?]7U3#@;8=7W-N$C\<6$J]%R*_\WJ""3RZWU<&<TUZXH?=""""[I(-;06"
^XMB(3.9,23,2,8361,0)="""DATA"",396.18,204,3,704,0)"
^XMB(3.9,23,2,8362,0)="M<1A#L<@R6()BX?9J0Z0W3VR8(`*!32%?=!%-.$W]<4C/)0""]?+2ZQR[-A+^^"
^XMB(3.9,23,2,8363,0)="""DATA"",396.18,204,3,705,0)"
^XMB(3.9,23,2,8364,0)="MN[,4KE[=9U]_TIQ?N,0PR]S>-(H_,=A;G$?Q/\^DM@A)F#@6HLQ]6VY'VSPF"
^XMB(3.9,23,2,8365,0)="""DATA"",396.18,204,3,706,0)"
^XMB(3.9,23,2,8366,0)="M/74"">WNDX0(3TTG(G""F2LG]6N5P4GBR+(RW.WX_\HCMNVECS1O!GTW`TUO$C"
^XMB(3.9,23,2,8367,0)="""DATA"",396.18,204,3,707,0)"
^XMB(3.9,23,2,8368,0)="M,""O++"",5AR1-+[F4NHY4?#(Z=+#-T,'T@=:^9?*6H0K""ZPP1SAI""%:3,B$'I"
^XMB(3.9,23,2,8369,0)="""DATA"",396.18,204,3,708,0)"
^XMB(3.9,23,2,8370,0)="MH:/2-RXZWP)?ZIS3>R\5<5?5$Z+H-_+;CK\E56_G5>W`Z)SV@NN4'LPJG5.1"
^XMB(3.9,23,2,8371,0)="""DATA"",396.18,204,3,709,0)"
^XMB(3.9,23,2,8372,0)="MIT1F!K4'KKZ^MM3[D,P&>(02@$QZJLP@##-P]R,G7!F8VQA2\V9L9?0^`&BQ"
^XMB(3.9,23,2,8373,0)="""DATA"",396.18,204,3,710,0)"
^XMB(3.9,23,2,8374,0)="M\A)&CEQ(T`J:%ND-++L=6S:T)@6I3F'""0>?!XUM:@TJC5SFQ'ZQJ)Y6M;U;L"
^XMB(3.9,23,2,8375,0)="""DATA"",396.18,204,3,711,0)"
^XMB(3.9,23,2,8376,0)="M%Y0HK#3>-XS':9DP?FR2V+<+8@4K)[&""3H&U<.`]""MA1K'8EQ>*.H9'`@1.U"
^XMB(3.9,23,2,8377,0)="""DATA"",396.18,204,3,712,0)"
^XMB(3.9,23,2,8378,0)="ML*=$36?^8)-U)L(=Y1`8#]-%>B*P`^L<NK8.9_O:.][G$8CE*J*QGQ"")=@6P"
^XMB(3.9,23,2,8379,0)="""DATA"",396.18,204,3,713,0)"
^XMB(3.9,23,2,8380,0)="M/\E)#*5""I[""DA#7""JT_!VE8U(E""($R8ID=14Y-:ND1_:1K[(]F(O/J(8AX+^"
^XMB(3.9,23,2,8381,0)="""DATA"",396.18,204,3,714,0)"
^XMB(3.9,23,2,8382,0)="M4%(>GX<PK%EA;=9F!Q;/I""RT_)-'VA?#T-Z0FRL-N1D8DN9,@GFT)<D^$=A("
^XMB(3.9,23,2,8383,0)="""DATA"",396.18,204,3,715,0)"
^XMB(3.9,23,2,8384,0)="MIN""A*8OO/4Y*L!C:\!E^`?%VO-=IH%L()E5`$`0W677C:M7(T:K;1:MNG:VZ"
^XMB(3.9,23,2,8385,0)="""DATA"",396.18,204,3,716,0)"
^XMB(3.9,23,2,8386,0)="M6[+JSOE('[.II,_8C$^SZ:^L#Q5%""LK'/6UBD><LA]^:$DNWR]HG(WNLL+H2"
^XMB(3.9,23,2,8387,0)="""DATA"",396.18,204,3,717,0)"
^XMB(3.9,23,2,8388,0)="M+*SZ:`$*\`N6$W""[?5EP_&M.F,G!)BN*T<&VC@[F1XL>YD?6A:8U`E8;Q3)="
^XMB(3.9,23,2,8389,0)="""DATA"",396.18,204,3,718,0)"
^XMB(3.9,23,2,8390,0)="M;40<ET4!QP^[PVZMN[NMEUS87[NA`5T=J8P+EE>=RZ'VO):*L?!?(0)2;.#Q"
^XMB(3.9,23,2,8391,0)="""DATA"",396.18,204,3,719,0)"
^XMB(3.9,23,2,8392,0)="MM`BAFPC!G`@M%:,(@;L(6!X*FC*(^\3;SSC/HYL4_IP4&56GNC!KF@>S./99"
^XMB(3.9,23,2,8393,0)="""DATA"",396.18,204,3,720,0)"
^XMB(3.9,23,2,8394,0)="M8&O?IEW9,(>Z8S[460""!^1$`6`'@K@:6]WT`(J1ZR`NH1@S*4)/X3*V<<P.]"
^XMB(3.9,23,2,8395,0)="""DATA"",396.18,204,3,721,0)"
^XMB(3.9,23,2,8396,0)="ML\P1=7QB#9KD""IHY0T)N=AOLOQW9/UR/[4_XN?8!*RYTI1EZ0^@.?703*[BD"
^XMB(3.9,23,2,8397,0)="""DATA"",396.18,204,3,722,0)"
^XMB(3.9,23,2,8398,0)="M:MJMW<NNOUO.M#MKK]W9XZGME7@*-7`BSXUC[BGE`U1UHAGT$QG5C1\&:`I@"
^XMB(3.9,23,2,8399,0)="""DATA"",396.18,204,3,723,0)"
^XMB(3.9,23,2,8400,0)="MV(26MDY]1;@9N\(B^87.(YP"";',*B*[36S1_0:!1IT%#D;-3;?H^U=&8]""X7"
^XMB(3.9,23,2,8401,0)="""DATA"",396.18,204,3,724,0)"
^XMB(3.9,23,2,8402,0)="MV:]LIM:SLC<XVR#]%4$:7(K?D)D.K\!!`_Z5D,]?S>H`LE91G(P>X`""36ZE&"
^XMB(3.9,23,2,8403,0)="""DATA"",396.18,204,3,725,0)"
^XMB(3.9,23,2,8404,0)="M/M#0F5;""QI[""D+7J&IY+18QT+C99E_^&08V9>9GM(>%C]E>*Q!\D-N;>""Z4?"
^XMB(3.9,23,2,8405,0)="""DATA"",396.18,204,3,726,0)"
^XMB(3.9,23,2,8406,0)="M)H5RN'EIM_@]#""G[R66:@F_TG0[VVOE,#R8/.IS+8A9-E50W8!ANYR`5-A\+"
^XMB(3.9,23,2,8407,0)="""DATA"",396.18,204,3,727,0)"
^XMB(3.9,23,2,8408,0)="M5UKAUHW6;H[69`<W06\WGDI=D'ATF;'@ZH8#=N3LP&+""51.4IF&2WFPSC<E/"
^XMB(3.9,23,2,8409,0)="""DATA"",396.18,204,3,728,0)"
^XMB(3.9,23,2,8410,0)="M9ZG',3BMOIC%N,""R^<XM&-^(#H?&^E,P_C0Q?&XC\W&\?#7ZM!U]>=2SZ&><"
^XMB(3.9,23,2,8411,0)="""DATA"",396.18,204,3,729,0)"
^XMB(3.9,23,2,8412,0)="MGVB-RMN;A^['+J\TYT#UAJ@FJKR8&^K?PXZ#_7$:HY:I'!^$/O;+GZ_V1VDU"
^XMB(3.9,23,2,8413,0)="""DATA"",396.18,204,3,730,0)"
^XMB(3.9,23,2,8414,0)="M%%3F#%C#S`U_C(]U2-2MP?:I$(F7P]ER2F3=\+V[_(AGO;Z>?G.@A9YPHNQX"
^XMB(3.9,23,2,8415,0)="""DATA"",396.18,204,3,731,0)"
^XMB(3.9,23,2,8416,0)="M&E_MZA+(>'RBTN%`]*.7F0,Q+^:BY(FTS+\C+ZQ.]N(3X4=JJ""6/UIU$D[3#"
^XMB(3.9,23,2,8417,0)="""DATA"",396.18,204,3,732,0)"
^XMB(3.9,23,2,8418,0)="M[O14R.G$CDK_&]Y<Y]""#)7C#NR<2&DQ.W6A%':UCE5?'M"")K6I.@W[Y3Q5[C"
^XMB(3.9,23,2,8419,0)="""DATA"",396.18,204,3,733,0)"
^XMB(3.9,23,2,8420,0)="M*O""R&]RAZ@#''-[/G3V%>M5DB9?0S""Y=E>Z<P'\4C0N)@?!W)M`?1:::<M%,"
^XMB(3.9,23,2,8421,0)="""DATA"",396.18,204,3,734,0)"
^XMB(3.9,23,2,8422,0)="M7SN*#:<5!V;+F'$0ZS9LB28NJBZ(F741VL""8G2.,V;5%ENPY5#:H#0=8#CA<"
^XMB(3.9,23,2,8423,0)="""DATA"",396.18,204,3,735,0)"
^XMB(3.9,23,2,8424,0)="M+J.9W?P[E#'`B%8MJ4D*8T01K980A7VP-*LG$,4`!72\F>!%'1(+\$)1J9HG"
^XMB(3.9,23,2,8425,0)="""DATA"",396.18,204,3,736,0)"
^XMB(3.9,23,2,8426,0)="M7@O(R'=""1IC4/SX4Y(S!Q#)RU)-.529GK'YE:GYKHT]8Q&J!$T=8MU*R%W7="
^XMB(3.9,23,2,8427,0)="""DATA"",396.18,204,3,737,0)"
^XMB(3.9,23,2,8428,0)="M!;8J/1<T%X5:XB98Y""9TXD;/MWDB9""QR:Y6$]JEF?>5MXKJJQMA<IJFGW:/A"
^XMB(3.9,23,2,8429,0)="""DATA"",396.18,204,3,738,0)"
^XMB(3.9,23,2,8430,0)="MSJM&UE!:(#/@\+_W@++6HJG_]A?]\?:FG;_WD*[Y5:3Q1640;'ZT?PX6K((@"
^XMB(3.9,23,2,8431,0)="""DATA"",396.18,204,3,739,0)"
^XMB(3.9,23,2,8432,0)="M-+VHQ`6[2$-4P):I..M)?OM.ZF'T8YEY^[1+64*8XU`C;R[O9S-NN\^MYQ[+"
^XMB(3.9,23,2,8433,0)="""DATA"",396.18,204,3,740,0)"
^XMB(3.9,23,2,8434,0)="MPZ3W3!6`9>Y5PQ25GKU*1)I\/__HKCK`OH=K&,8T6Q.:$W4[+:K#!<;;ZR]O"
^XMB(3.9,23,2,8435,0)="""DATA"",396.18,204,3,741,0)"
^XMB(3.9,23,2,8436,0)="M^[?_XC8-,?$YAF[$6],-4=1@O7W#W]\6])I^)-7(:$,RN([DJAF%`7!1WJ$0"
^XMB(3.9,23,2,8437,0)="""DATA"",396.18,204,3,742,0)"
^XMB(3.9,23,2,8438,0)="MF?<BB@_(!F9<_1;##QXRP=6I?GXPS\/*_C:]-DB`]2K&6\'F[=4$+XS/\3%_"
^XMB(3.9,23,2,8439,0)="""DATA"",396.18,204,3,743,0)"
^XMB(3.9,23,2,8440,0)="MK]Z>;P]@FBU=4][Y5O>>$>HJCRE.X*$E*(Y4/R/4GS2/F-,L8BYX_)J86PUC"
^XMB(3.9,23,2,8441,0)="""DATA"",396.18,204,3,744,0)"
^XMB(3.9,23,2,8442,0)="MKJ""*%<N!YO#^Y]/G+\%J5:FB>99341D_R6G7NLQA/__[2]_IM0>,B,Q%\\5^"
^XMB(3.9,23,2,8443,0)="""DATA"",396.18,204,3,745,0)"
^XMB(3.9,23,2,8444,0)="M=Z=;=^^#W[70*""_$/J47=T!S;K5V)XH7H;D\QR=&]'3-B=[&G5YW>[>DW3FB"
^XMB(3.9,23,2,8445,0)="""DATA"",396.18,204,3,746,0)"
^XMB(3.9,23,2,8446,0)="MX=?X:#CTT9(W]<#;E\KC0MFZ;7A%8EM5B64JES:,&++IRIPVIHM2$.F+&2+Q"
^XMB(3.9,23,2,8447,0)="""DATA"",396.18,204,3,747,0)"
^XMB(3.9,23,2,8448,0)="MOO;(GBE'2'%);JE`!9'-C&T6G`S9LGZJ5""^^?(I,#P<:`VY#!?8S8?4DD4&-"
^XMB(3.9,23,2,8449,0)="""DATA"",396.18,204,3,748,0)"
^XMB(3.9,23,2,8450,0)="M)[%BS]#C4D,O@6<O@5^GE^EKRP?WN'01\+:^YG8GT=^F9^:D_0\'(F>\0K0_"
^XMB(3.9,23,2,8451,0)="""DATA"",396.18,204,3,749,0)"
^XMB(3.9,23,2,8452,0)="ME`!_T<'G_%LWE_\#4$L!`A8+%``""``@`-E0?-;,X4JW`+0``5Q<!`!@`````"
^XMB(3.9,23,2,8453,0)="""DATA"",396.18,204,3,750,0)"
^XMB(3.9,23,2,8454,0)="M`````0`@`(""!`````%-T;VUA8VA?1'5O9&5N=6U?,3$S+G!N;%!+`0(6""Q0`"
^XMB(3.9,23,2,8455,0)="""DATA"",396.18,204,3,751,0)"
^XMB(3.9,23,2,8456,0)="M`@`(`#=4'S7Z=BPF%#(``/':`0`<``````````$`(`""`@?8M``!3=&]M86-H"
^XMB(3.9,23,2,8457,0)="""DATA"",396.18,204,3,752,0)"
^XMB(3.9,23,2,8458,0)="M7T1U;V1E;G5M7S$Q,RYP;FPN9G)M4$L!`A8+%``""``@`-E0?-1IX$Y^`&0``"
^XMB(3.9,23,2,8459,0)="""DATA"",396.18,204,3,753,0)"
^XMB(3.9,23,2,8460,0)="MZM4``!P``````````0`@`(""!1&```%-T;VUA8VA?1'5O9&5N=6U?,3$S+G!N"
^XMB(3.9,23,2,8461,0)="""DATA"",396.18,204,3,754,0)"
^XMB(3.9,23,2,8462,0)="M;""YC9&502P$""%@L4``(`""``V5!\UH?Y44R,)``!@-```'``````````!`""``"
^XMB(3.9,23,2,8463,0)="""DATA"",396.18,204,3,755,0)"
^XMB(3.9,23,2,8464,0)="M@('^>0``4W1O;6%C:%]$=6]D96YU;5\Q,3,N<&YL+G)E<%!+!08`````!``$"
^XMB(3.9,23,2,8465,0)="""DATA"",396.18,204,3,756,0)"
^XMB(3.9,23,2,8466,0)="+`""0!``!;@P``````"
^XMB(3.9,23,2,8467,0)="""DATA"",396.18,204,3,757,0)"
^XMB(3.9,23,2,8468,0)="end"
^XMB(3.9,23,2,8469,0)="""DATA"",396.18,204,4)"
^XMB(3.9,23,2,8470,0)="9^1149462636"
^XMB(3.9,23,2,8471,0)="""DATA"",396.18,204,6)"
^XMB(3.9,23,2,8472,0)="1^501"
^XMB(3.9,23,2,8473,0)="""DATA"",396.18,212,0)"
^XMB(3.9,23,2,8474,0)="INTESTINES (LARGE AND SMALL)~113F"
^XMB(3.9,23,2,8475,0)="""DATA"",396.18,212,1,0)"
^XMB(3.9,23,2,8476,0)="^^2^2^3060831"
^XMB(3.9,23,2,8477,0)="""DATA"",396.18,212,1,1,0)"
^XMB(3.9,23,2,8478,0)="Last updated on 07/05/2006"
^XMB(3.9,23,2,8479,0)="""DATA"",396.18,212,1,2,0)"
^XMB(3.9,23,2,8480,0)="Patch DVBA*2.7*113"
^XMB(3.9,23,2,8481,0)="""DATA"",396.18,212,2)"
^XMB(3.9,23,2,8482,0)="3060518^^3060705.172"
^XMB(3.9,23,2,8483,0)="""DATA"",396.18,212,3,0)"
^XMB(3.9,23,2,8484,0)="^396.184^777^777^3060831^^^^"
^XMB(3.9,23,2,8485,0)="""DATA"",396.18,212,3,1,0)"
^XMB(3.9,23,2,8486,0)="begin 664 Intestines_113.pnl.zip"
^XMB(3.9,23,2,8487,0)="""DATA"",396.18,212,3,2,0)"
^XMB(3.9,23,2,8488,0)="M4$L#!!0``@`(`&Y4'S6)=H40-B\``(`8`0`2````26YT97-T:6YE<U\Q,3,N"
^XMB(3.9,23,2,8489,0)="""DATA"",396.18,212,3,3,0)"
^XMB(3.9,23,2,8490,0)="M<&YLY#UI<""3763TS4H^.U1[>RT<<M]=K>]=9[\XAS4AKE\-*J]V5+:T4C=8*"
^XMB(3.9,23,2,8491,0)="""DATA"",396.18,212,3,4,0)"
^XMB(3.9,23,2,8492,0)="M4,'TS#Q)[>UCTH>T2@@Y2'!!41"".`(:$'%11)""ZN<!0!IZ`@`<R14`6$'%50"
^XMB(3.9,23,2,8493,0)="""DATA"",396.18,212,3,5,0)"
^XMB(3.9,23,2,8494,0)="MA*(@3@A%)2$4_`CO^+K[O>G7,R-9CB61E%?3QWSO?=_[[N][;Y86KA34I07="
^XMB(3.9,23,2,8495,0)="""DATA"",396.18,212,3,6,0)"
^XMB(3.9,23,2,8496,0)="M1N:16RWR9U+WT)1C^ZYC]LVB%3^KY):<5O9P_[+1]-=R7\^JUY""QNN;G/IH9"
^XMB(3.9,23,2,8497,0)="""DATA"",396.18,212,3,7,0)"
^XMB(3.9,23,2,8498,0)="MFD3KR)P/?.3FU?KZ=<=&Q_%7/=_5#=OWSL_IMZ)WC[4]""*&)7S#LE""\8=OB%"
^XMB(3.9,23,2,8499,0)="""DATA"",396.18,212,3,8,0)"
^XMB(3.9,23,2,8500,0)="MP06G%;3FD!WDC\WAIU<<USI_*[I9'%C2Z_-N$[E915&6*'JS>AV9A^B_2YLM"
^XMB(3.9,23,2,8501,0)="""DATA"",396.18,212,3,9,0)"
^XMB(3.9,23,2,8502,0)="M-+]""OD.1RXU_BV(WP+#+/@C(94?R4WK+-QQ;[9^;7KPZ+8`:IO\2(#.7!3""W"
^XMB(3.9,23,2,8503,0)="""DATA"",396.18,212,3,10,0)"
^XMB(3.9,23,2,8504,0)="M`QA-`F;F^M)T+01#""3Y"";SU%/Y=&&:`7&;6G@=K?4$)J/Z/T7<.D4/L7YA=N"
^XMB(3.9,23,2,8505,0)="""DATA"",396.18,212,3,11,0)"
^XMB(3.9,23,2,8506,0)="M+##*S]@VIOQ`?7U1-SS4')YT""-XU?]-$^*Y7,^Q5$_5/.::#WVJ8-<-<1^Z!"
^XMB(3.9,23,2,8507,0)="""DATA"",396.18,212,3,12,0)"
^XMB(3.9,23,2,8508,0)="M*WAQST^MZ:Z'_/RAR]-7+MV877IJZMJEQ=KTTA![2K^2;YB3IMZX.4SO`4;?"
^XMB(3.9,23,2,8509,0)="""DATA"",396.18,212,3,13,0)"
^XMB(3.9,23,2,8510,0)="M&*17UW4+J2-S-:VFVYY60ZZQPKY*1Q]6AA9T%]D^N37`KPA0\""!#G7XNEL88"
^XMB(3.9,23,2,8511,0)="""DATA"",396.18,212,3,14,0)"
^XMB(3.9,23,2,8512,0)="MHSU""41\$&KXUI.'AB(:WS=@^\GS#1MY%;=[S'6OS)6+SM9ZP45>\2<=L""D@I"
^XMB(3.9,23,2,8513,0)="""DATA"",396.18,212,3,15,0)"
^XMB(3.9,23,2,8514,0)="M2GYI,O!]QP9<V,58F>&R2'%Y/>#R1(C+'3$_3)F.AV+29/+S]I1I-&[FC]YB"
^XMB(3.9,23,2,8515,0)="""DATA"",396.18,212,3,16,0)"
^XMB(3.9,23,2,8516,0)="MH*XBO+I&@]Y4E$-+4PO+<XMZTW""NND[0.L%&%6^6&1=E'Z""CGP(F^F#(1-FS"
^XMB(3.9,23,2,8517,0)="""DATA"",396.18,212,3,17,0)"
^XMB(3.9,23,2,8518,0)="MP$/%ZNAX8:BVYFPPEADX\'B`Z;JR.>,CRQO,DS\+>I,C?;Z&3-3P+^8Q,0/+"
^XMB(3.9,23,2,8519,0)="""DATA"",396.18,212,3,18,0)"
^XMB(3.9,23,2,8520,0)="M]K+9$?HNII""+V<S+J(,S)G+HFJB#A.+THR)(8RKS%QGS_YK(_-E,R/Q?W`_,"
^XMB(3.9,23,2,8521,0)="""DATA"",396.18,212,3,19,0)"
^XMB(3.9,23,2,8522,0)="MGY$R?Q$8YA1%?0A0?UY)<O^=`O?[:\C5:IM6""Y/9>P6E0(H3L.'=%*?3(`16"
^XMB(3.9,23,2,8523,0)="""DATA"",396.18,212,3,20,0)"
^XMB(3.9,23,2,8524,0)="M4BF>8%RE.10;#[""YJ""A#2_.+LX;G3SJW#C/(T?4$#[L(]/JCB%YOXEB\?'#Z"
^XMB(3.9,23,2,8525,0)="""DATA"",396.18,212,3,21,0)"
^XMB(3.9,23,2,8526,0)="MEH_L)FJR<0:&"",^&LVAGX(%)T]$Q>5?5H2NF[@<FLAM('5A&^DU,<D_-7\%/"
^XMB(3.9,23,2,8527,0)="""DATA"",396.18,212,3,22,0)"
^XMB(3.9,23,2,8528,0)="M5P.DYN=TD_""<.G#)=EQTR]#5VV=LO6Z8AK^I^8ZVBLV2MD&'4>^_9&+S:%/`"
^XMB(3.9,23,2,8529,0)="""DATA"",396.18,212,3,23,0)"
^XMB(3.9,23,2,8530,0)="M6M/077<-Z9IN-[4&L6]&2Z>4.+R`R=W""5-!-#361I2O#<X'I&VSB@P<9S8G$"
^XMB(3.9,23,2,8531,0)="""DATA"",396.18,212,3,24,0)"
^XMB(3.9,23,2,8532,0)="M$O0&!N)/L8`=(`@M&:V(YY<-N^EL#,PZ]BHA7IK.&JUR.BOWV\K.*:U4@2\Q"
^XMB(3.9,23,2,8533,0)="""DATA"",396.18,212,3,25,0)"
^XMB(3.9,23,2,8534,0)="M@?][)O!3L(I_':WB6_>!O&=#V1CA9*,*MFZ0(JX""XA^3B/O=D;A?U&Z8#<P9"
^XMB(3.9,23,2,8535,0)="""DATA"",396.18,212,3,26,0)"
^XMB(3.9,23,2,8536,0)="MOK&.-#Q;PS=V@<0+6%5Y)78W8/4#2E+B[[H>6'4LZ\Z*IOL^GI:GM?#E)M+="
^XMB(3.9,23,2,8537,0)="""DATA"",396.18,212,3,27,0)"
^XMB(3.9,23,2,8538,0)="MBVGL""1+_&`5^?>>XLW]INFGXPVPL\G&4Q^)<`HOCP)2E,OY_;X:MP"""">%%;["
^XMB(3.9,23,2,8539,0)="""DATA"",396.18,212,3,28,0)"
^XMB(3.9,23,2,8540,0)="M>.1""_U!F'_!Y3FH#""HS1<Y]@(MX'R_9TDM$/\W9M`:O.76;-""A6VB(]21.X"""
^XMB(3.9,23,2,8541,0)="""DATA"",396.18,212,3,29,0)"
^XMB(3.9,23,2,8542,0)="M1.:3O'UDUFE0;4ZXNX41N9@""L,H#=`'@8TF`(R1:Z09LG`.6^WBHO%^?A';;"
^XMB(3.9,23,2,8543,0)="""DATA"",396.18,212,3,30,0)"
^XMB(3.9,23,2,8544,0)="M%1>],<!&;;,;2""9PN<\J(LRGDS!/WO`"";+&:@=L+XD4F#KGEC`AX5D++&I8%"
^XMB(3.9,23,2,8545,0)="""DATA"",396.18,212,3,31,0)"
^XMB(3.9,23,2,8546,0)="ME]C3+B""+//HOAA!?EX1XN!98ENYV`S@.R'\WFV,C`Q!OAA#OC"""">>TA;<+%G"
^XMB(3.9,23,2,8547,0)="""DATA"",396.18,212,3,32,0)"
^XMB(3.9,23,2,8548,0)="MH-6""NF7XQ/+KS::&N<DUD$<NL5NCP;`#RUB.EUV]-1B->X`?EXWZ;XK`9->2"
^XMB(3.9,23,2,8549,0)="""DATA"",396.18,212,3,33,0)"
^XMB(3.9,23,2,8550,0)="M:!RZC+R&:]01<YHNYJ>QYV&BYH`4;%4`ZVX+K%PI@WC_!N.1U9!,#X>@#_)J"
^XMB(3.9,23,2,8551,0)="""DATA"",396.18,212,3,34,0)"
^XMB(3.9,23,2,8552,0)="M&6OW6%\,=5'+\O&8FYS[L""(N2P]F8'!;XT$\/I3I.I[*EC\>,-]EP`[.K:`9"
^XMB(3.9,23,2,8553,0)="""DATA"",396.18,212,3,35,0)"
^XMB(3.9,23,2,8554,0)="M7@/VXJ<B""S3!.;>5+3FWAZ9;QJKNX<N&AA6>KAXE`VE!BUC?-P9ZT]4Q8';3"
^XMB(3.9,23,2,8555,0)="""DATA"",396.18,212,3,36,0)"
^XMB(3.9,23,2,8556,0)="M=#;XF\<6""<CV5^%NV[M#M:""%>3RH&PVUG\8HRDZYKAVH)JC`MRL=R3:Q-;(1"
^XMB(3.9,23,2,8557,0)="""DATA"",396.18,212,3,37,0)"
^XMB(3.9,23,2,8558,0)="M=ZMQ<_.<UG!UJ[6I#B_@I?1=%B?TU[""-:JE]EP/35/.3@6N3N_FKMKY!/@S4"
^XMB(3.9,23,2,8559,0)="""DATA"",396.18,212,3,38,0)"
^XMB(3.9,23,2,8560,0)="M?+U>IY^HG@A<%!)ER\Y]M@<*#2Y-.5;=B0D47A9Y""Y;[JR2!CG,$&A,($L^@"
^XMB(3.9,23,2,8561,0)="""DATA"",396.18,212,3,39,0)"
^XMB(3.9,23,2,8562,0)="MKYTV=]`$'5YUS7$U&XOXPPVXH1ZEVAL;!M^PL""9LZH:YJ?9?IG].B,\(4VT@"
^XMB(3.9,23,2,8563,0)="""DATA"",396.18,212,3,40,0)"
^XMB(3.9,23,2,8564,0)="M=%-5E_&_^/G)Y',+&^<U'':1/_B-([-$Z?IKNLV>X%O$!TM'ORK8LQ#_.""#E"
^XMB(3.9,23,2,8565,0)="""DATA"",396.18,212,3,41,0)"
^XMB(3.9,23,2,8566,0)="MT1]-0;^_'?W\G&$'V'%1#Q2)JB]I:T[@XJLRN:K`U4B57!7#AP>+]&EI%*Z'"
^XMB(3.9,23,2,8567,0)="""DATA"",396.18,212,3,42,0)"
^XMB(3.9,23,2,8568,0)="MZ5?+F$"";^.$H(:2%(TIVW1FG<<&41FOZ#NF:CJ<@I;8CU3=GF$UU8,YIDG@#"
^XMB(3.9,23,2,8569,0)="""DATA"",396.18,212,3,43,0)"
^XMB(3.9,23,2,8570,0)="M8=U&%@,IQ%F>0Y8#MH5\+$WP3/6_X03>%R9MLD]%$Q@;'WV)/MW7.9]N>`K3"
^XMB(3.9,23,2,8571,0)="""DATA"",396.18,212,3,44,0)"
^XMB(3.9,23,2,8572,0)="MSL!L<1UM"".[IR""SQ(6-D%,&Y&ZHU7,<T)_$,\D.>]R1R?:.AFS$Q!F1(B@8T"
^XMB(3.9,23,2,8573,0)="""DATA"",396.18,212,3,45,0)"
^XMB(3.9,23,2,8574,0)="MU,A?E:J6:F0T]P""V&1FVXSRVL2;]3QFZ$X6]A&XN/4@K`B.;=(F/`,Z?CY*/"
^XMB(3.9,23,2,8575,0)="""DATA"",396.18,212,3,46,0)"
^XMB(3.9,23,2,8576,0)="MQGX(TOID8?L$K/='&'?W@U[<3,9H1_D8[0HV-X&I[ZX4Q`2LXIT4%0U0.9?T"
^XMB(3.9,23,2,8577,0)="""DATA"",396.18,212,3,47,0)"
^XMB(3.9,23,2,8578,0)="M=`?#*""TM^H$@Y=\5`=+C,I_9\!H8_56D^3A02X-7Y""=F`7O]J""0W<G=;,+6Q"
^XMB(3.9,23,2,8579,0)="""DATA"",396.18,212,3,48,0)"
^XMB(3.9,23,2,8580,0)="MAFP-M0S/:1J--.@E#GKN)T/3]I`$[]<%V#3CB""H-4IF']'P(Z7P2T@""$-!>E"
^XMB(3.9,23,2,8581,0)="""DATA"",396.18,212,3,49,0)"
^XMB(3.9,23,2,8582,0)="M""P&6""?""]`F!<2>PHQ*/-D)8ITYN`""*G&#%[U98S+>&S&Q@5NV,D(""A#Z<:9L"
^XMB(3.9,23,2,8583,0)="""DATA"",396.18,212,3,50,0)"
^XMB(3.9,23,2,8584,0)="M'PD1&@U!#Z=&4-N*:,I@RMZMB`2<[QY!#6QK/`BDO]E]O$0$I?:4N3L09^[`"
^XMB(3.9,23,2,8585,0)="""DATA"",396.18,212,3,51,0)"
^XMB(3.9,23,2,8586,0)="MQ0.FNP!""]G&9,U05*\0=PHJ*L/07$DGJQV('9W1K847_%82MDWK;I&&BA['+"
^XMB(3.9,23,2,8587,0)="""DATA"",396.18,212,3,52,0)"
^XMB(3.9,23,2,8588,0)="MC/5J4ULQ`Z.I#BX$+BD]^-I6`JB^EQ0>C/+$>W-'XA52/,GLR^X>#X^R;S)?"
^XMB(3.9,23,2,8589,0)="""DATA"",396.18,212,3,53,0)"
^XMB(3.9,23,2,8590,0)="MN4K_A@YS1T]YC-=K'U(ZHI?F_>?:T5-K)BWOQ*YR?LII&4[@27UE"",!NIW/X"
^XMB(3.9,23,2,8591,0)="""DATA"",396.18,212,3,54,0)"
^XMB(3.9,23,2,8592,0)="MRW`.ST6^\ALX5AK?`^Y4O@/!RQ6>G6YTHG=E(H7>F5T<;$H7>(S7%;FW*0EE"
^XMB(3.9,23,2,8593,0)="""DATA"",396.18,212,3,55,0)"
^XMB(3.9,23,2,8594,0)="M48E7>&Q/><[]'3QG,(X_PC1D'9#^V\AU?G8_U.W[97[!.*#^(<%USCTC*>0="
^XMB(3.9,23,2,8595,0)="""DATA"",396.18,212,3,56,0)"
^XMB(3.9,23,2,8596,0)="MXWWGRU`!WEW.,R2]L\-""%Y,DWW^BS6=CR,@=P8DQ'NBE;18%D_EM80RPT5]6"
^XMB(3.9,23,2,8597,0)="""DATA"",396.18,212,3,57,0)"
^XMB(3.9,23,2,8598,0)="M^$&RS>08QR]S-0KF5./UZ.:D04--[D\8_%;O6>>^+BY,K#X/B>ISG*?:_4""U"
^XMB(3.9,23,2,8599,0)="""DATA"",396.18,212,3,58,0)"
^XMB(3.9,23,2,8600,0)="MSTBU9UJJ3FG7GB?G2%:)*K&*H""9O`Z,JW*-6=U2X=T;4DQM4>VKUP-?,2#VR"
^XMB(3.9,23,2,8601,0)="""DATA"",396.18,212,3,59,0)"
^XMB(3.9,23,2,8602,0)="M-T/->CC6F^SMCC:ZS""-]O2/2H[V:C`,QTL62FA]GKH:J4I2KJLJ<""_7`""B(I"
^XMB(3.9,23,2,8603,0)="""DATA"",396.18,212,3,60,0)"
^XMB(3.9,23,2,8604,0)="M;/9>QTF6!%[K/,MRKX[$2)%X,L2J$4JJ:HDY.""IX/7BV[.\8_(T=(#Y9J/38"
^XMB(3.9,23,2,8605,0)="""DATA"",396.18,212,3,61,0)"
^XMB(3.9,23,2,8606,0)="M(!:6;?Y9X24=QR`A#@_&->Y2>4L=8B?`0K>IAO2&L:$%Y'K8-<6:21V8AC!7"
^XMB(3.9,23,2,8607,0)="""DATA"",396.18,212,3,62,0)"
^XMB(3.9,23,2,8608,0)="MX?LGT@T/N/MOIE@L)+)R[CXP.ZI448-.O9_O6N4:_.+EN)VW.E-<J]$NLSS@"
^XMB(3.9,23,2,8609,0)="""DATA"",396.18,212,3,63,0)"
^XMB(3.9,23,2,8610,0)="M+(Y0A$Z""?AU+ZN^AR/*D]8F4(14R1T%=V[D^D5157>7G#FUNV+N7Z8-""KZIZ"
^XMB(3.9,23,2,8611,0)="""DATA"",396.18,212,3,64,0)"
^XMB(3.9,23,2,8612,0)="M('1T(TW:V15-%1&P7)]FDEZ&V?UF-#M_'\A(7MJ,!`FW(Q3Q?'H[\5&NP^I)"
^XMB(3.9,23,2,8613,0)="""DATA"",396.18,212,3,65,0)"
^XMB(3.9,23,2,8614,0)="MQS)(36^7]54!2Q\44I$WN_EEZX#,Q0Z\6^$A7TC8@8AWBZ6QGGFW4R1V3'RF"
^XMB(3.9,23,2,8615,0)="""DATA"",396.18,212,3,66,0)"
^XMB(3.9,23,2,8616,0)="MBW'8R*-MKH)<PJ&=JD`G/?OR]RF""7Y+[`R9$5X%,GXRZ\M^Y'P*<`1GKE4&*"
^XMB(3.9,23,2,8617,0)="""DATA"",396.18,212,3,67,0)"
^XMB(3.9,23,2,8618,0)="M7LVWKLE*`T<X*;JN!]YNBVVJ!2[W$O8F9E>3,G1,D""&;HI)F:Z!2EAW?Z9[$"
^XMB(3.9,23,2,8619,0)="""DATA"",396.18,212,3,68,0)"
^XMB(3.9,23,2,8620,0)="M5'D=X[$XERZO$V/%XBL@KZD=D!!9!G3>YV'>F:@#\F,]""Q`C<7;WB].@M'X!"
^XMB(3.9,23,2,8621,0)="""DATA"",396.18,212,3,69,0)"
^XMB(3.9,23,2,8622,0)="M7:RYYQ3!=7NVF^LV0S9!!0WR8+>U^8\5^-TF8:CZNU%2\\$(H_^`/O\ZY7CM"
^XMB(3.9,23,2,8623,0)="""DATA"",396.18,212,3,70,0)"
^XMB(3.9,23,2,8624,0)="MU&1@F$UMP75P[&V=(G%8PT6ZCS"";F3@BH""UZ[*&G-4P=<V""3A#M&$T_(6#'P"
^XMB(3.9,23,2,8625,0)="""DATA"",396.18,212,3,71,0)"
^XMB(3.9,23,2,8626,0)="M53,@/$P+.>B6;ADV]6W/>&?/:TMKAA=^G8';,$R3O&IK=3S$.N9O$O1KADV_"
^XMB(3.9,23,2,8627,0)="""DATA"",396.18,212,3,72,0)"
^XMB(3.9,23,2,8628,0)="M?^JRTP@LDG&/)K1!D^?G-!T#TETZ'_HFO(#!T&Y^Y&-0J'GQE.91_$AV@0QX"
^XMB(3.9,23,2,8629,0)="""DATA"",396.18,212,3,73,0)"
^XMB(3.9,23,2,8630,0)="M7E)4$BE7Y""EW(]$Z$2NE&T`YR20QU?`U#EV;NJ]K+EK5W2:95D0Y%W]UG:1,"
^XMB(3.9,23,2,8631,0)="""DATA"",396.18,212,3,74,0)"
^XMB(3.9,23,2,8632,0)="MH>)%""$4KE=WG5^+G9\/\UB7SFPWGMXC6#;2AA=.DRT'G2&^3_0ZDGW-E4],;"
^XMB(3.9,23,2,8633,0)="""DATA"",396.18,212,3,75,0)"
^XMB(3.9,23,2,8634,0)="MC<#5F9+U:-W')^N)<3B?,IDR[ZH`FV4'DW/)%M,@C/(0;G2`4$J#,,9#L#M`"
^XMB(3.9,23,2,8635,0)="""DATA"",396.18,212,3,76,0)"
^XMB(3.9,23,2,8636,0)="M*)]/,1D5""+T_HXBEVAZ,AK+=;19@I<[164^&1B-2OG^Q'[R7(5G?*Z1JOJ'P"
^XMB(3.9,23,2,8637,0)="""DATA"",396.18,212,3,77,0)"
^XMB(3.9,23,2,8638,0)="M6PISOR)1MG>(<;+5PB35=XFV%=P8<$5_3A'V6/R=1"";UJ!+=X/&A0KCBF*:S"
^XMB(3.9,23,2,8639,0)="""DATA"",396.18,212,3,78,0)"
^XMB(3.9,23,2,8640,0)="M0>KA!KE)=AO%ZI.H#M]I.*;'>@]LU,`1)^F9)B5TSV/A)[*Z)&6K$%N<$#PN"
^XMB(3.9,23,2,8641,0)="""DATA"",396.18,212,3,79,0)"
^XMB(3.9,23,2,8642,0)="M64X6E(<PS327JP+U\E.L`>#].R@_7`WX2%L-.,Q,,EP>:G>#K3C$'RMNJ00\"
^XMB(3.9,23,2,8643,0)="""DATA"",396.18,212,3,80,0)"
^XMB(3.9,23,2,8644,0)="M2#XU?-(3.CQ?CVR\.GC)]==<LL5''9G>)$MHLZ521V8-+&J:7O?(JJ@C;`M@"
^XMB(3.9,23,2,8645,0)="""DATA"",396.18,212,3,81,0)"
^XMB(3.9,23,2,8646,0)="M=/F$T;31IN9A[)""W[3[33`^%Y$3U*VQE>*_""4RGWN8R,3*6]5/SJD(.$UL#L"
^XMB(3.9,23,2,8647,0)="""DATA"",396.18,212,3,82,0)"
^XMB(3.9,23,2,8648,0)="MD\)&Q+=$M:\[]D/;V+#4&H:9MC5^S^K>:1L3<2ES6[1R/Z\D-N#&ZNK!2*_J"
^XMB(3.9,23,2,8649,0)="""DATA"",396.18,212,3,83,0)"
^XMB(3.9,23,2,8650,0)="MK1;27=UNT-TY*PPQS6DAFV5=9(E.?IQPQV/V>Y*C'(U&X5NBY)O-(:9XEKD4"
^XMB(3.9,23,2,8651,0)="""DATA"",396.18,212,3,84,0)"
^XMB(3.9,23,2,8652,0)="M7TZHQ'NV79[J;;LY^!?'A.WF<87OGKCF7:QLJ9AP-&ZM<^H><M=1\[7IE83<"
^XMB(3.9,23,2,8653,0)="""DATA"",396.18,212,3,85,0)"
^XMB(3.9,23,2,8654,0)="M=V*-E[WNB+O-$VHJW!W/EOHCX5+/1&IJC)MO=6\TM?:V3L`G[U.$A?ICZ4*-"
^XMB(3.9,23,2,8655,0)="""DATA"",396.18,212,3,86,0)"
^XMB(3.9,23,2,8656,0)="M;VFA3L]0E\#%T<4Z""<^81'@W<6Q5QR'=36PZ[*VMG*PQ61#2;""VQ<)>X^8_M"
^XMB(3.9,23,2,8657,0)="""DATA"",396.18,212,3,87,0)"
^XMB(3.9,23,2,8658,0)="M<;,B[#:\F$B8?'(_^.P'Y.>``)M^5!%RCMT.`KED(\O8=6:EP->&7M5N(F-U"
^XMB(3.9,23,2,8659,0)="""DATA"",396.18,212,3,88,0)"
^XMB(3.9,23,2,8660,0)="M?T>D[CUC%8])>B`H0JE*ORK$D1]0=G)#=+O<E7@L'@9F_&(D=S=CN2M5]H#<"
^XMB(3.9,23,2,8661,0)="""DATA"",396.18,212,3,89,0)"
^XMB(3.9,23,2,8662,0)="M=4I40GC^,XSY'@5<?SCRY]3]X,^-R`6ORA_`$_8R'<DD!>\,+WC+]*DVZW@L"
^XMB(3.9,23,2,8663,0)="""DATA"",396.18,212,3,90,0)"
^XMB(3.9,23,2,8664,0)="MMIS333OP76/W59F+LOZFW.<E/EY1$$=C!?./[<-9'II),""5M%QRBJ6(*_/1^"
^XMB(3.9,23,2,8665,0)="""DATA"",396.18,212,3,91,0)"
^XMB(3.9,23,2,8666,0)="M)J;_F!#3DSLHID4>O0<!/2MBW5]5.#F=V-MR""ETX4%`(B^Y'(OMX-K/O""@H'"
^XMB(3.9,23,2,8667,0)="""DATA"",396.18,212,3,92,0)"
^XMB(3.9,23,2,8668,0)="M92Q=@0;$7V3ZZ@`0XO<D*:Z[D@<'+9%T.\G3[BXYK8""<GN9WV\5[RKG-+*&8"
^XMB(3.9,23,2,8669,0)="""DATA"",396.18,212,3,93,0)"
^XMB(3.9,23,2,8670,0)="MIA;H0/R^QL2O/]Q]\$`(ZTCJ[HKL5L4/3K/)WD=G/0$K\:>1^/UA+'ZCA?+>"
^XMB(3.9,23,2,8671,0)="""DATA"",396.18,212,3,94,0)"
^XMB(3.9,23,2,8672,0)="M$#\Y4:';\I\843,A4:^_C!5X\*/.4]J^&FC[Z8BV7]D/[O`AJ2P`!_^8F,-^"
^XMB(3.9,23,2,8673,0)="""DATA"",396.18,212,3,95,0)"
^XMB(3.9,23,2,8674,0)="MOT3`3_(""/H>:NS.#7:D(%=""PE_;NI'2K\RE'6PC@J@*XL""Y4EZ29IQS""X8[G"
^XMB(3.9,23,2,8675,0)="""DATA"",396.18,212,3,96,0)"
^XMB(3.9,23,2,8676,0)="M(]<QFI[6Q*S9!7I1A#X#T%<DK3=\8[$?ZM4NX$=!9;Q&2""LO2PYM@12Y%:TJ"
^XMB(3.9,23,2,8677,0)="""DATA"",396.18,212,3,97,0)"
^XMB(3.9,23,2,8678,0)="M#[G#YB6(F,_0`2KM\<<FIY&VEK<^?,DR;,?3L=ANFCK9X'.HC;SJX1G+""FS'"
^XMB(3.9,23,2,8679,0)="""DATA"",396.18,212,3,98,0)"
^XMB(3.9,23,2,8680,0)="M<IH!?L,A&WDNV;Y1-QS\&GY,+AIKCHGYU5TE=PZ2.UY+]RS2`HHADNLF:I%-"
^XMB(3.9,23,2,8681,0)="""DATA"",396.18,212,3,99,0)"
^XMB(3.9,23,2,8682,0)="M?-C]\M2A&7O%-&X9EE[?=F9;V4YF.SR9$-C@K2""$_Q,)88$C9&F/;8B6ZWCH"
^XMB(3.9,23,2,8683,0)="""DATA"",396.18,212,3,100,0)"
^XMB(3.9,23,2,8684,0)="M&_QSIN/_+/1;R]T-9_^6=^V)&J&4H""[705F(-\VTY8K:@8X+0)?3@8X7JJ,2"
^XMB(3.9,23,2,8685,0)="""DATA"",396.18,212,3,101,0)"
^XMB(3.9,23,2,8686,0)="MH-DTR@C-8+G?W\%L*V_]#G#6#]RA[Z68W`.8G(E\W1?W@_$[+-./<'!:[@4A"
^XMB(3.9,23,2,8687,0)="""DATA"",396.18,212,3,102,0)"
^XMB(3.9,23,2,8688,0)="M%91[N]*EQE`+W%7D;NXRPU>2U4/OEVRLOHP5ZAGOK+R""4!%*D>%6EWN38,*S"
^XMB(3.9,23,2,8689,0)="""DATA"",396.18,212,3,103,0)"
^XMB(3.9,23,2,8690,0)="M6N500+Z_RBC[6#L3<P=F:5O<T0P[+7-?8@+RJ5!`SDI.0VY3'7W;V6$<GB+Y"
^XMB(3.9,23,2,8691,0)="""DATA"",396.18,212,3,104,0)"
^XMB(3.9,23,2,8692,0)="MKVR\3VPA$Y;;LH\OG@H0;OZX3U;B+%3V6(FS@QLAL.[UQ*Y&'NNQ+?D1VB(R"
^XMB(3.9,23,2,8693,0)="""DATA"",396.18,212,3,105,0)"
^XMB(3.9,23,2,8694,0)="M#;1""G""8#!%@W2;$GJH0?@H*AYF+ZK^NF>AJCY1OX+>P70+<5J358NFE&,%#*"
^XMB(3.9,23,2,8695,0)="""DATA"",396.18,212,3,106,0)"
^XMB(3.9,23,2,8696,0)="M6R:M)<5OG5ID0.EN,.QMN*32;N)W22++Q=\++/4L]PX9@VZX8=UI[8..U(Q5"
^XMB(3.9,23,2,8697,0)="""DATA"",396.18,212,3,107,0)"
^XMB(3.9,23,2,8698,0)="M""SL_^(OD`.27M_K>;O#&)""T*W!KQ1G0T-<?""FQVPH+^C"""">B/!H%73^['U*A"
^XMB(3.9,23,2,8699,0)="""DATA"",396.18,212,3,108,0)"
^XMB(3.9,23,2,8700,0)="M1V1]0U!\F1=""KO=T""[F>-'S,)362O]]=EB>LF[&NX?M`/[XVJ8\/+""&K1?:Q"
^XMB(3.9,23,2,8701,0)="""DATA"",396.18,212,3,109,0)"
^XMB(3.9,23,2,8702,0)="M!RZ2VPTX$`]`S70(WA8""TTL#,LX#<0#(HN3XQT7DM0R71`^;VB*VBBGP)OA]"
^XMB(3.9,23,2,8703,0)="""DATA"",396.18,212,3,110,0)"
^XMB(3.9,23,2,8704,0)="M]?\0&H!3DEFQ9+7\C`_(,7ABIO:T##<GL)N>'$J1G\M_*^GGQHQ`XAQSB;V*"
^XMB(3.9,23,2,8705,0)="""DATA"",396.18,212,3,111,0)"
^XMB(3.9,23,2,8706,0)="MOOTR()^^<)#,(4CMY-X9\?ZE:/X^G_@_@]FF0?I2L5;DT^2DIPL/V22M8W7="
^XMB(3.9,23,2,8707,0)="""DATA"",396.18,212,3,112,0)"
^XMB(3.9,23,2,8708,0)="M0R3:.ZN=T4E3.=;$\""JTX);H7E_2M8L:B#:Q.C:F!IP+@_#7S^Z42=V.SNAR"
^XMB(3.9,23,2,8709,0)="""DATA"",396.18,212,3,113,0)"
^XMB(3.9,23,2,8710,0)="M1`S$!;^D]$ZZJ^2$<`GIZ,GA_X](Q^]JB%OZKB9EYN""DZ3A-+3Q'40X-PLF?"
^XMB(3.9,23,2,8711,0)="""DATA"",396.18,212,3,114,0)"
^XMB(3.9,23,2,8712,0)="M8`OQOA!<?Q)<YH(<`J_D<*`'`.Z1:`)V9[<(;U4X2Z@;YG+O'?37)@7A;>&`"
^XMB(3.9,23,2,8713,0)="""DATA"",396.18,212,3,115,0)"
^XMB(3.9,23,2,8714,0)="MU>&MGK-=Y:U`V#GW@L1A*8Z-M;7TM$$2[,ER.B3L^Q2[I`V$;4+?WP'4^&A%"
^XMB(3.9,23,2,8715,0)="""DATA"",396.18,212,3,116,0)"
^XMB(3.9,23,2,8716,0)="M\)Z3H(""2WT$I^86$/>'Q*PEGJK1W\QR7=?,`]58I]*^$74R_WM[,TU<I%8J]"
^XMB(3.9,23,2,8717,0)="""DATA"",396.18,212,3,117,0)"
^XMB(3.9,23,2,8718,0)="M]?)`=T[NV\/-B3,GR>\&J7W$FJA]1#&F;E-+WQTEG%VV%&K@=TE9*L[YI.R3"
^XMB(3.9,23,2,8719,0)="""DATA"",396.18,212,3,118,0)"
^XMB(3.9,23,2,8720,0)="M&DS,\%&M6%""SY+\2_J]<4(=&""]*SA]JF!;'V+RN]S*O<;5Y#6YU7DC.!3G6A"
^XMB(3.9,23,2,8721,0)="""DATA"",396.18,212,3,119,0)"
^XMB(3.9,23,2,8722,0)="MV3%[1L+DY5$A5Y@$!;C]@M(#K#)_$*$$5HD7F.?3!*:O6BZ6A8-I>I(7T!%/"
^XMB(3.9,23,2,8723,0)="""DATA"",396.18,212,3,120,0)"
^XMB(3.9,23,2,8724,0)="M4^""_E3@@_9X8^$2JN`Q(Q""71S-9GV(TU-=NP%'X7?WII""](E/\W""K&%@CA^,"
^XMB(3.9,23,2,8725,0)="""DATA"",396.18,212,3,121,0)"
^XMB(3.9,23,2,8726,0)="MPJP/[+]2]FW2UEA0O4\(/X'S)4G4=8J/NJXCIV7JGD5<G?C^[@K`PFZ^""Q2U"
^XMB(3.9,23,2,8727,0)="""DATA"",396.18,212,3,122,0)"
^XMB(3.9,23,2,8728,0)="MQX'WWB(Y`N>RH:_:CF?0#C`_P!*LG4&W](:?D@VLCG.0XP.GGI'TM+R*I!7A"
^XMB(3.9,23,2,8729,0)="""DATA"",396.18,212,3,123,0)"
^XMB(3.9,23,2,8730,0)="M4`X8XXQE7=C$_TL#/L$#?RX$_B^RAAGR&P6L_Z=)RD%""%4P[@T7""#*A;ZK'4"
^XMB(3.9,23,2,8731,0)="""DATA"",396.18,212,3,124,0)"
^XMB(3.9,23,2,8732,0)="M;,J(<+PCC%A(5):YM.2""2;Q:K1EW`,C@@5/^!::>OAF*_5KRN,A[0_)@9O+Y"
^XMB(3.9,23,2,8733,0)="""DATA"",396.18,212,3,125,0)"
^XMB(3.9,23,2,8734,0)="MN4<TBHL$G=W9\(=T+@@A(+?',Q[TD6FRMI1DT=#D>$Z;,;5O-/B9-)OG-,LZ"
^XMB(3.9,23,2,8735,0)="""DATA"",396.18,212,3,126,0)"
^XMB(3.9,23,2,8736,0)="MIW68COR,2<A:OH=1X=86G+K\5C.DH1*_(%1'<@]DDB>@E2<*>[.[6FI?*GS/"
^XMB(3.9,23,2,8737,0)="""DATA"",396.18,212,3,127,0)"
^XMB(3.9,23,2,8738,0)="M""IS1D/M0M.:OX=`N;:FW^O9EG397@SJP=--8M3&3Q/W4N;1^:C5_P[YI.QMV"
^XMB(3.9,23,2,8739,0)="""DATA"",396.18,212,3,128,0)"
^XMB(3.9,23,2,8740,0)="MEY;XT""%@^NF[$FMV;SSY\>I>.=6Z+480^/+=2;X\SN$XWN;9MY-+T(NOS21@"
^XMB(3.9,23,2,8741,0)="""DATA"",396.18,212,3,129,0)"
^XMB(3.9,23,2,8742,0)="M7>`6N[@'Z*5*Z,6S1.Y8IKUU@""=715(^[9.`K`C*N#/,""0G,_O1<-:C<$O\K"
^XMB(3.9,23,2,8743,0)="""DATA"",396.18,212,3,130,0)"
^XMB(3.9,23,2,8744,0)="M0]P6UP_NAU3U46EN5SR:#LZYR?V7Q&TZ+?S""$NQAK[50@_2W:M<,CZ19=UD#"
^XMB(3.9,23,2,8745,0)="""DATA"",396.18,212,3,131,0)"
^XMB(3.9,23,2,8746,0)="M_004]][+MGNZ+\=YS_(\""%0_LFS@[\OTW@""1VTX5$W1*[EH;HI&-?G7Z.<F9"
^XMB(3.9,23,2,8747,0)="""DATA"",396.18,212,3,132,0)"
^XMB(3.9,23,2,8748,0)="M;95-BWP%N..`S""EX17]$K^O675!Q4>DRNB[)3N>R(\TPG3EQS7'?%&G(\TLN"
^XMB(3.9,23,2,8749,0)="""DATA"",396.18,212,3,133,0)"
^XMB(3.9,23,2,8750,0)="MGCF6_<&C1$_&]Q=)EC[W^NP)\7;T^M""EP'?8?=E/W0HR*Y3JPMJ[+3D;/>6D"
^XMB(3.9,23,2,8751,0)="""DATA"",396.18,212,3,134,0)"
^XMB(3.9,23,2,8752,0)="MB5V2;X2SQ`&/\'R(OY'L15]=""L^>(.?\:2W'\PR,V+G(?:=/&X;;""""QZ>B#$"
^XMB(3.9,23,2,8753,0)="""DATA"",396.18,212,3,135,0)"
^XMB(3.9,23,2,8754,0)="M$H9MT""*NI=O&""M9=L(4=#N*`S#8]$\1^.D@[BA[V)^8F,P*]IR3IY3`&H,GS"
^XMB(3.9,23,2,8755,0)="""DATA"",396.18,212,3,136,0)"
^XMB(3.9,23,2,8756,0)="MBSMHN5\*F<%]SQZG@OI""&,.\0;)IE/@''MFT0'?@[002.\4KHWS;2NZN+""""Q"
^XMB(3.9,23,2,8757,0)="""DATA"",396.18,212,3,137,0)"
^XMB(3.9,23,2,8758,0)="M(#E!G_6F-QR+1#U>RIJ""NGQ>$8B2^[`D-GU@*G#)Y.)0RM-6''+6I^'%&^MW"
^XMB(3.9,23,2,8759,0)="""DATA"",396.18,212,3,138,0)"
^XMB(3.9,23,2,8760,0)="M#:%`+W^*8?:Y3**2'V/V,+=-I8FE:V4%-0ARKF-IC7:D>X]?>?44N[?ODN84"
^XMB(3.9,23,2,8761,0)="""DATA"",396.18,212,3,139,0)"
^XMB(3.9,23,2,8762,0)="MHC,F$C3N>3S8OYQ5J7C>V?%DEUVR2)4""/^7%CD?)[)8I`U^5,EWG7'Y%YIP("
^XMB(3.9,23,2,8763,0)="""DATA"",396.18,212,3,140,0)"
^XMB(3.9,23,2,8764,0)="M%R8$M3T/;/BM9-:\4""H4)!';<!RQ""88JK.J<""YV`['0,::_L^!Y8@M:LT%T6"
^XMB(3.9,23,2,8765,0)="""DATA"",396.18,212,3,141,0)"
^XMB(3.9,23,2,8766,0)="M&K68J?ALJ!7?%M&LP6&ZM4XME?R,G8G4H]@G625^MH%CJ$UMP\%D4@=GK);K"
^XMB(3.9,23,2,8767,0)="""DATA"",396.18,212,3,142,0)"
^XMB(3.9,23,2,8768,0)="MK*.FQGZ?W*7G.9$M<Q=(WY:!W_Z_]JX]MH[TJM^'/;9C)WXDSL/[NINT2](Z"
^XMB(3.9,23,2,8769,0)="""DATA"",396.18,212,3,143,0)"
^XMB(3.9,23,2,8770,0)="MFWOGSGUEM:1.G#39W22NX]TL70H:^X[M:>ZK]V&OV>4MH%(?:OD#5H4%5*""5"
^XMB(3.9,23,2,8771,0)="""DATA"",396.18,212,3,144,0)"
^XMB(3.9,23,2,8772,0)="MD$!(0*$\ME6!PC\(@7BH*@5$`;4J""*KR'TCE>\_Y9KZ9.W/CW>L)6)$R]]J:"
^XMB(3.9,23,2,8773,0)="""DATA"",396.18,212,3,145,0)"
^XMB(3.9,23,2,8774,0)="M\YWSG>]\YSO?.;^#=B-E0I3KR.@^:N>@+;J5]$R=B*N@GSC4M$THM%.V^%_G"
^XMB(3.9,23,2,8775,0)="""DATA"",396.18,212,3,146,0)"
^XMB(3.9,23,2,8776,0)="M3+XJ'*FS@LELI1*GK,(I!;=E.*/GF"".0+J0\S""(5C4.9U&'G@'48'K`@GZEI"
^XMB(3.9,23,2,8777,0)="""DATA"",396.18,212,3,147,0)"
^XMB(3.9,23,2,8778,0)="M#RK&.YPL)VSLQ($<+^1A'K42@T)3PI4JK/6T-[Y6-`JA^WTD@EOSL(7S!PG9"
^XMB(3.9,23,2,8779,0)="""DATA"",396.18,212,3,148,0)"
^XMB(3.9,23,2,8780,0)="MW'W*:^Y*^4JTWCST.GJ,99)KAYQZ*NW$+5[UBTXFG5ZKA:8-.SS:[#4;]R^`"
^XMB(3.9,23,2,8781,0)="""DATA"",396.18,212,3,149,0)"
^XMB(3.9,23,2,8782,0)="M7XTLVU9WX$30T1"")H.IH`@N;_`*-)OQ-PA./=D+^,\*'8\PJ(F_:0""&-O#2("
^XMB(3.9,23,2,8783,0)="""DATA"",396.18,212,3,150,0)"
^XMB(3.9,23,2,8784,0)="M_PD:A`-WXPA:,8ZQ@<9A2.-X/!DPCI-RLKOCSBH&,QX1/$=Y;<!\WVEZ?\>'"
^XMB(3.9,23,2,8785,0)="""DATA"",396.18,212,3,151,0)"
^XMB(3.9,23,2,8786,0)="M]MUBV:R""5HN%<!?37*2BNA?G0+?P:=!QR3VM(=[=;%87,YV]>JO;I*""1MH7V"
^XMB(3.9,23,2,8787,0)="""DATA"",396.18,212,3,152,0)"
^XMB(3.9,23,2,8788,0)="M<VWYFFFWP2^J%L;H[%CX;(X.&@(J%ZD]:]6]2!I""H+'5:C@=K8.!_3,KS29Z"
^XMB(3.9,23,2,8789,0)="""DATA"",396.18,212,3,153,0)"
^XMB(3.9,23,2,8790,0)="M2Z.9L:FC0(:%WL#?FX!(?C[(;X;D#P99U""D(EPHJJ/<%[4B',_9E/F.?$<,X"
^XMB(3.9,23,2,8791,0)="""DATA"",396.18,212,3,154,0)"
^XMB(3.9,23,2,8792,0)="M[^Q?^6PT%)T[_4]QE]P1:2<1P7=R!;S.)+4YY`T2O)=_8+TH]?;AB,.E9/3B"
^XMB(3.9,23,2,8793,0)="""DATA"",396.18,212,3,155,0)"
^XMB(3.9,23,2,8794,0)="MH]AD)QQ3I81+K4EX2O@C""FR,=\(H.PNJXY#26MOLU4T<AMZW+(5OWG^P';+("
^XMB(3.9,23,2,8795,0)="""DATA"",396.18,212,3,156,0)"
^XMB(3.9,23,2,8796,0)="MLAYG)&3)3RI._:?Q9?\BO;7&4;H::Z5)+_TQFT,)IJC#W.RDWB7+]0M]BX.&"
^XMB(3.9,23,2,8797,0)="""DATA"",396.18,212,3,157,0)"
^XMB(3.9,23,2,8798,0)="MJ7B1$3]XD\T9""59[3BS.GT@`_R>&R#S0$+$%.""*!T_RUB..__B#<\,TK[\`X"
^XMB(3.9,23,2,8799,0)="""DATA"",396.18,212,3,158,0)"
^XMB(3.9,23,2,8800,0)="MQL?;DQ)F^,<55WSSKB9C-,]G^&9&OM-C?N&?4G_L`V_&G5[`A5`.ANXXE,3G"
^XMB(3.9,23,2,8801,0)="""DATA"",396.18,212,3,159,0)"
^XMB(3.9,23,2,8802,0)="MA2(M)Y47/[^_'Q<_NM0+;3.V%S\<*6J""3.#%E#^V[[$E!V*X3T1?A[)A(&.I"
^XMB(3.9,23,2,8803,0)="""DATA"",396.18,212,3,160,0)"
^XMB(3.9,23,2,8804,0)="MG*(%D-#K@R(.GL+Y*U2A?YQO,F=41;E$D?WPQ9FW]9KK1:H@K>'WCA)\1^I>"
^XMB(3.9,23,2,8805,0)="""DATA"",396.18,212,3,161,0)"
^XMB(3.9,23,2,8806,0)="M'Y!RY2O*D!_^""@`4Z2S0YVXTR'&-7N!QUQ574YH;VR#3$#L'&QL]VGL*Z0)-"
^XMB(3.9,23,2,8807,0)="""DATA"",396.18,212,3,162,0)"
^XMB(3.9,23,2,8808,0)="M%+1K&`B^:^\@%4&[1E\\^HHTKA?9N'Y&Y:+<;E%*B]QFH!.*A>,L'!??I\$T"
^XMB(3.9,23,2,8809,0)="""DATA"",396.18,212,3,163,0)"
^XMB(3.9,23,2,8810,0)="MB^QS\;TX`$H\C[2S89;9,/]#(;Z7L"">%ST%H=!O;3>1_$#G:R'^G_K_4;P""?"
^XMB(3.9,23,2,8811,0)="""DATA"",396.18,212,3,164,0)"
^XMB(3.9,23,2,8812,0)="M^$_CCAO=#-)(#,7=W+!-C)N_:W>WZ7V6$'E?:;)Z=,YI90!$?5:+SE_!`4Q,"
^XMB(3.9,23,2,8813,0)="""DATA"",396.18,212,3,165,0)"
^XMB(3.9,23,2,8814,0)="MQ<WD-<3AU:4KUYT!^DV`(;V3GZ\F%/TD?A&_%*.NX'8'O78+B:^SB(ZN+8Q$"
^XMB(3.9,23,2,8815,0)="""DATA"",396.18,212,3,166,0)"
^XMB(3.9,23,2,8816,0)="M@KZ#.HB$)*[ZZ-4RTE.NKQVK9>+NO4@=D0@EO'-\6L6G,K.!X7[;S58;2QQ?"
^XMB(3.9,23,2,8817,0)="""DATA"",396.18,212,3,167,0)"
^XMB(3.9,23,2,8818,0)="M/9OK=@T==S/6CEGK4?\7WRH2HH)4_UF0MH09QNW/J53Z+&*WGM$+V=(Y5QN,"
^XMB(3.9,23,2,8819,0)="""DATA"",396.18,212,3,168,0)"
^XMB(3.9,23,2,8820,0)="M]3V""W]Z?6!$2XVE2_ZH@=H$!SF!)T?8,E#'>4$,H)XD`=+HR98_SQHX6XQ)6"
^XMB(3.9,23,2,8821,0)="""DATA"",396.18,212,3,169,0)"
^XMB(3.9,23,2,8822,0)="M9;HJ'-6/).5#HMLI@[<[JOT(1E'$Z>RH(A'AHHCO7'5L%>:#KS$TB[>AH5H2"
^XMB(3.9,23,2,8823,0)="""DATA"",396.18,212,3,170,0)"
^XMB(3.9,23,2,8824,0)="MYNF@)%W`EEWIW^""R/*E@]CM=P2R(92A,M=LP""WX5V$7PM%B&>36/^@,CS5-!"
^XMB(3.9,23,2,8825,0)="""DATA"",396.18,212,3,171,0)"
^XMB(3.9,23,2,8826,0)="MRX2&N7-#)BH0G5$X@[^KL-27[V*S:T&E(=96F`&[WC+=;/K(L\]]N""ZE++V/"
^XMB(3.9,23,2,8827,0)="""DATA"",396.18,212,3,172,0)"
^XMB(3.9,23,2,8828,0)="MB7;'*]J3JU8'1Y21J=MMMN\Y6QN8.9][0N8$3TF(KA_T9BMG]5S9'3=_B^8N"
^XMB(3.9,23,2,8829,0)="""DATA"",396.18,212,3,173,0)"
^XMB(3.9,23,2,8830,0)="M*#I__%:3%-IS;6:+63NJ^G+J5A-]J+=JS3VKZG?KX2NI`I34/8^D+H*KN9*0"
^XMB(3.9,23,2,8831,0)="""DATA"",396.18,212,3,174,0)"
^XMB(3.9,23,2,8832,0)="M^P$4V:FE#E[_N,F.C01#HHK5'E9,C)W#@[I=TCT(=Y*8=[XTUW$0U[+L3EUY"
^XMB(3.9,23,2,8833,0)="""DATA"",396.18,212,3,175,0)"
^XMB(3.9,23,2,8834,0)="ME>$3S?`5J50S)I`2/RMD6G-D6BH?9)E.XB`,\A-PJ;MV8EF$QM'VCRNZ*2""<"
^XMB(3.9,23,2,8835,0)="""DATA"",396.18,212,3,176,0)"
^XMB(3.9,23,2,8836,0)="M=OQ&`[H.Z]:VN6,WV]I)'!3/$!^.@HBT31JQUAY?1E-D;R`1[[%6+7B-VR""H"
^XMB(3.9,23,2,8837,0)="""DATA"",396.18,212,3,177,0)"
^XMB(3.9,23,2,8838,0)="MK<TYU.I-:H*T!?""=V>BAMU9QPAT.RFO<B>Q07[%F;Q*[@??W#;/=WD,?,-R^"
^XMB(3.9,23,2,8839,0)="""DATA"",396.18,212,3,178,0)"
^XMB(3.9,23,2,8840,0)="M(-O&VSW^<O9.R[*('\5_I\U=MTS2=PM\-_N""C>_XX5?3SR&9$YB4+NDMHQV]"
^XMB(3.9,23,2,8841,0)="""DATA"",396.18,212,3,179,0)"
^XMB(3.9,23,2,8842,0)="M:YGWL')A]V43""6>K9VEGG$$C]JS&5G?[8J;7PIV_T>!Q\@!ZE?*/D%BD/SKV"
^XMB(3.9,23,2,8843,0)="""DATA"",396.18,212,3,180,0)"
^XMB(3.9,23,2,8844,0)="M/!H4=MOL!IH`'`1!LZ#-7;,VB'S!=R,KIMW0#B_;G4TTAC:YC8B@V<J:@""RP"
^XMB(3.9,23,2,8845,0)="""DATA"",396.18,212,3,181,0)"
^XMB(3.9,23,2,8846,0)="M$^BHQ)3Z&>'B?""X!M+H2,XPXE4_'#KWUI.S4E09PZM)*1T?""3N>)[2<""_1S7"
^XMB(3.9,23,2,8847,0)="""DATA"",396.18,212,3,182,0)"
^XMB(3.9,23,2,8848,0)="M(11_;#F.7:]#UH3KV'E@@BIET+`V_2P_^/Q](#SU::*TIQG3_DP&XU`RM+]4"
^XMB(3.9,23,2,8849,0)="""DATA"",396.18,212,3,183,0)"
^XMB(3.9,23,2,8850,0)="M2H(FN^4]<2TND5[JI-&#XT""J25X:+LY$J,L\E@2?6I$8?P]GW`099D:DR]>Q"
^XMB(3.9,23,2,8851,0)="""DATA"",396.18,212,3,184,0)"
^XMB(3.9,23,2,8852,0)="M*]O--O3YAEI4?].N5;7QF\TJQO:Q-(TT];2T\94V>FAT.PG?'3R<%'4)-#]0"
^XMB(3.9,23,2,8853,0)="""DATA"",396.18,212,3,185,0)"
^XMB(3.9,23,2,8854,0)="MC)5(8IQ`?]QJX6XZL19D*JP@63SE'_H+,I>-)LBK+UOM#1NF`,11D&%;W7""#"
^XMB(3.9,23,2,8855,0)="""DATA"",396.18,212,3,186,0)"
^XMB(3.9,23,2,8856,0)="M1@/4/YH(TLAH615C=W!T*>8+>R2D&'F\:*6?&)%+4XHDQLE5XM#)2,9Q%.5H"
^XMB(3.9,23,2,8857,0)="""DATA"",396.18,212,3,187,0)"
^XMB(3.9,23,2,8858,0)="M6(V4&HL$JV1.CR3+0VMM<P?#0\7<2FIA,W""RT$KV6=WE2*(<OV81]*QX""W(L"
^XMB(3.9,23,2,8859,0)="""DATA"",396.18,212,3,188,0)"
^XMB(3.9,23,2,8860,0)="MK$Y6H)7\>J`<B]'D>-GL;L=>CN-AY5B&9C)8CM',Y,0RR;2/NR!#N^,ER4@&"
^XMB(3.9,23,2,8861,0)="""DATA"",396.18,212,3,189,0)"
^XMB(3.9,23,2,8862,0)="M2C*7BV@DFW;-ZL9>E(?""BK(H&<E@I<Q'4TI$H%F/O20G%;4)%7@$?R\_@A\3"
^XMB(3.9,23,2,8863,0)="""DATA"",396.18,212,3,190,0)"
^XMB(3.9,23,2,8864,0)="M,8=W`(>G&+-""C'![:Q[<U(G^I._B_!M.-G(^E-*$Z]'IG0@XC/1U7B3RFB@2"
^XMB(3.9,23,2,8865,0)="""DATA"",396.18,212,3,191,0)"
^XMB(3.9,23,2,8866,0)="MN2O0^RM&'%H]C@043DB)+QW&ZG=Y""R?*>CE2X81'J`8D])2'T%FG/5@Y%^/^"
^XMB(3.9,23,2,8867,0)="""DATA"",396.18,212,3,192,0)"
^XMB(3.9,23,2,8868,0)="M1""66?_%,2JIT?,F;\NFMO`G?QL*GUH""978-&17=Y;MN%-PLV@NV8N\F^>)T#"
^XMB(3.9,23,2,8869,0)="""DATA"",396.18,212,3,193,0)"
^XMB(3.9,23,2,8870,0)="MPT9(54WL&',J&1D?-#5@]PL67/H7&1_OG%!;&R9^LABSME%[SJX/-9GWN#+0"
^XMB(3.9,23,2,8871,0)="""DATA"",396.18,212,3,194,0)"
^XMB(3.9,23,2,8872,0)="MF@/(BZDC[F9%P%U96;V]<G5U[<;5.P<,RHY9YH>EC)^GO#'J2;1@\8W0T[G["
^XMB(3.9,23,2,8873,0)="""DATA"",396.18,212,3,195,0)"
^XMB(3.9,23,2,8874,0)="MKN+;M]+Z(AS[N]C8MQ0Y""U0_UZR7NT\[&;7^*LIF=5?*]SH,,$8>N!J)$\H\"
^XMB(3.9,23,2,8875,0)="""DATA"",396.18,212,3,196,0)"
^XMB(3.9,23,2,8876,0)="M2""9?4TK#>591)'%![M9""TG?QA<T!1""526D%F=;]""G>N%Y)O8?)?W=3@EE65\"
^XMB(3.9,23,2,8877,0)="""DATA"",396.18,212,3,197,0)"
^XMB(3.9,23,2,8878,0)="M6=RR?0OF^!OQR_&?A:8^J^L<*W-,RE%S$OT_]2`D^I_DRV=6ZG:$F*_`AI6"""
^XMB(3.9,23,2,8879,0)="""DATA"",396.18,212,3,198,0)"
^XMB(3.9,23,2,8880,0)="M_3]3Y/H_(M;019;=0HKJ#@R.EYLUYI;1B4W/B%+^I#?9JDHA8*1$JFU62D6Q"
^XMB(3.9,23,2,8881,0)="""DATA"",396.18,212,3,199,0)"
^XMB(3.9,23,2,8882,0)="M;:IV9V.;-',Y2_(9"".@H28NDOR=(FC@G,F.S5""WT#_>0V;&M79HL&92.Y1F["
^XMB(3.9,23,2,8883,0)="""DATA"",396.18,212,3,200,0)"
^XMB(3.9,23,2,8884,0)="M#L?^F80'B\+9.\I7S%X'MV\B%]#(""<'9(5V:,$FRM.P&'5U./U]'`MO.M)!8"
^XMB(3.9,23,2,8885,0)="""DATA"",396.18,212,3,201,0)"
^XMB(3.9,23,2,8886,0)="MFU5%NIU[%&6X-!P,PW]4C""*[IJ!<[9&L#17U\-+0]5R6N62?IDKZ?C:.GU*,"
^XMB(3.9,23,2,8887,0)="""DATA"",396.18,212,3,202,0)"
^XMB(3.9,23,2,8888,0)="MXS'8%I$7,UI""6_LQC8C)]H#12GVOHD<BR:7&J>?B]2'>7I)8N<I>_U[%ZSF*"
^XMB(3.9,23,2,8889,0)="""DATA"",396.18,212,3,203,0)"
^XMB(3.9,23,2,8890,0)="MD*.5(5Y?@8/GT#9W%'""VSY,[=.?=SL8S)Y>SZ7J%^>!/41_\ASV[SX+O[C/1"
^XMB(3.9,23,2,8891,0)="""DATA"",396.18,212,3,204,0)"
^XMB(3.9,23,2,8892,0)="MM[B?1`'0H?08I<H_8KK\K+%&,[-/L&GOB*WH?4G'@UJU<#<EDG;?:U@L^0Z&"
^XMB(3.9,23,2,8893,0)="""DATA"",396.18,212,3,205,0)"
^XMB(3.9,23,2,8894,0)="M5GTDQM._:1L-GA""=6E-,""`?K:A-2X>:;+Z$)V'3`.1I""*""V\C""._GD6""#Y&9"
^XMB(3.9,23,2,8895,0)="""DATA"",396.18,212,3,206,0)"
^XMB(3.9,23,2,8896,0)="M^3P/NNUZWW^*H5P-0J4B-V<4.?(_KUB`&=4""Y#,2DEP97A.\C5-[74'MT57+"
^XMB(3.9,23,2,8897,0)="""DATA"",396.18,212,3,207,0)"
^XMB(3.9,23,2,8898,0)="M[&""$MBU[QZ+Y\)%HZ5EX<9MZU0/HX)`Z0WW$/=83M98YV]K>Z^""G<R(1-@0]"
^XMB(3.9,23,2,8899,0)="""DATA"",396.18,212,3,208,0)"
^XMB(3.9,23,2,8900,0)="MIM-O)""2""2JPK3K#5V=O8MDWD_FRH*+GC;`O*\""Q>QUF@++R>/65SRF>8GZ-G"
^XMB(3.9,23,2,8901,0)="""DATA"",396.18,212,3,209,0)"
^XMB(3.9,23,2,8902,0)="M*T8Q4AWYT1N=S(Z%\PD;3*^JEZ*4B2N:;<P`(-TLWA""E5<I[4OZQ!YL)#[ZD"
^XMB(3.9,23,2,8903,0)="""DATA"",396.18,212,3,210,0)"
^XMB(3.9,23,2,8904,0)="M;MD)<#WFW>WFL+71H2:PPUK:$MY""!5#P3Q(-3-\\<[5F;V$<0EQ`@7OJ('6M"
^XMB(3.9,23,2,8905,0)="""DATA"",396.18,212,3,211,0)"
^XMB(3.9,23,2,8906,0)="M@N6""-TUMX:9;O_BDG],><7[GU8ES`\-^I$+WJ)V!K0F1.N>A^>&=%X'0=""""T"
^XMB(3.9,23,2,8907,0)="""DATA"",396.18,212,3,212,0)"
^XMB(3.9,23,2,8908,0)="M6.4@CD995TP*:=DZ_I%0SM..%`K15M838&4YVQH!O&@TN_>YV#08(S[FBA'C"
^XMB(3.9,23,2,8909,0)="""DATA"",396.18,212,3,213,0)"
^XMB(3.9,23,2,8910,0)="M15>1S+[PH'])M>KZ]Q$9\_1T?@ZGYG:W$6\YTDY*F\KA$BC66TJ;TO&G`OMT"
^XMB(3.9,23,2,8911,0)="""DATA"",396.18,212,3,214,0)"
^XMB(3.9,23,2,8912,0)="MN(`_Y;+LXQ'TA/^6?YZ[V22I@NAE_+N$G]9*R3KYI$=KWP[8*L1):WW7:0%R"
^XMB(3.9,23,2,8913,0)="""DATA"",396.18,212,3,215,0)"
^XMB(3.9,23,2,8914,0)="M_&&^3C\M)C+O<%PLQ2Q76,UQ$>ZS#LN_KF2Y'"">61WSUN@2/:Q>X7B\+O5X&"
^XMB(3.9,23,2,8915,0)="""DATA"",396.18,212,3,216,0)"
^XMB(3.9,23,2,8916,0)="MUC@7)Y;'_#B&QYWT%Q-!')>R<>(XV#;C,S'D_'4OY\`T%RO]3/.HVS0GL[)U"
^XMB(3.9,23,2,8917,0)="""DATA"",396.18,212,3,217,0)"
^XMB(3.9,23,2,8918,0)="MWK6L>YK&_A_3R?\=;2S/'PS^4.`/1?Y0X@]E_E!A#^/(A/.GG'C2Q5->/!GB"
^XMB(3.9,23,2,8919,0)="""DATA"",396.18,212,3,218,0)"
^XMB(3.9,23,2,8920,0)="MJ2"">BN*I))[*XDG0T`4-7=#0!0U=T-`%#5W0T`4-7=#0!0U=T,@+&GE!(R]H"
^XMB(3.9,23,2,8921,0)="""DATA"",396.18,212,3,219,0)"
^XMB(3.9,23,2,8922,0)="MY`6-O*""1%S3R@D9>T,@+&GE!PQ`T#$'#$#0,0<,0-`Q!PQ`T#$'#$#0,0:,@"
^XMB(3.9,23,2,8923,0)="""DATA"",396.18,212,3,220,0)"
^XMB(3.9,23,2,8924,0)="M:!0$C0*CD>BGD##:EMIC^O@)E:M0RO731T^#D?%KO5H-![>T""=QG^3QY/(Q<"
^XMB(3.9,23,2,8925,0)="""DATA"",396.18,212,3,221,0)"
^XMB(3.9,23,2,8926,0)="MW,WSW""G2QN^0LZ!9XWYPOQ'+4:6](._&T/L->>2@>#<\6Y&Q=<?#UG'`5CYF"
^XMB(3.9,23,2,8927,0)="""DATA"",396.18,212,3,222,0)"
^XMB(3.9,23,2,8928,0)="M+</#^^0&\,E3RSR?0PCA.X`0HH&F/0I<<A;?J.UEN!9>\N_3IO#`DWYS*""VF"
^XMB(3.9,23,2,8929,0)="""DATA"",396.18,212,3,223,0)"
^XMB(3.9,23,2,8930,0)="MLQ[CO@`64PRO8.9@55<6_S!^7R7\OI/Q^P41Z""L\""'<PIWA,:$YJ`HU_6)#P"
^XMB(3.9,23,2,8931,0)="""DATA"",396.18,212,3,224,0)"
^XMB(3.9,23,2,8932,0)="M!PC[&F/_BXH[F(?!'<PJO5MH;J*G#<3\`8!=FG5QEH/8A0)_R%;`]EQA6#VX"
^XMB(3.9,23,2,8933,0)="""DATA"",396.18,212,3,225,0)"
^XMB(3.9,23,2,8934,0)="MO*M-V1E*.P1/](E,$&/C!'&VOI;PZR.DZ^5*5M&2R/TZ5G6S2./I7PU\7TZ*"
^XMB(3.9,23,2,8935,0)="""DATA"",396.18,212,3,226,0)"
^XMB(3.9,23,2,8936,0)="M2?`8_5$I18;H$(O1?I8>>*:2[J;&#_L&Z=,182H?4AE=.@@=8ET]Q!3YKX0B"
^XMB(3.9,23,2,8937,0)="""DATA"",396.18,212,3,227,0)"
^XMB(3.9,23,2,8938,0)="MOULP5BQ$L[I'KF2NV36+*?U%CW]`OT=>P/PM$A<A(""$4J>2%I=7;VIE5]U<B"
^XMB(3.9,23,2,8939,0)="""DATA"",396.18,212,3,228,0)"
^XMB(3.9,23,2,8940,0)="MB&+NF'8-;X)R'#(""UVP^_RG1E^UR0-F*BNWC/.!'E_A;Q;[8EV:=?4DRU'1!"
^XMB(3.9,23,2,8941,0)="""DATA"",396.18,212,3,229,0)"
^XMB(3.9,23,2,8942,0)="M]SAFHS#4'W**CHNQR.E+L9UI>@U]M6Y5D?BL]6;S'HL0RU_F8-4JSQ']3Y$I"
^XMB(3.9,23,2,8943,0)="""DATA"",396.18,212,3,230,0)"
^XMB(3.9,23,2,8944,0)="M\&O):?3W@3P?%G]`V)Y`;'=)VL\1_@N^TTSQ+Q3V2[R%R<!A9P$]HP\KYI:5"
^XMB(3.9,23,2,8945,0)="""DATA"",396.18,212,3,231,0)"
^XMB(3.9,23,2,8946,0)="M@/B%)YUZ,G9?#Q'K'E,R*W[-CII4N_E)\VN""[9^,UM'H8TD_8+O1)=QI<&S<"
^XMB(3.9,23,2,8947,0)="""DATA"",396.18,212,3,232,0)"
^XMB(3.9,23,2,8948,0)="MK""'#@V80`MU)V[NVWL&9V$-%+0=7E]/RU64.EI%S<7U5&(,GASOL@!V$A;'G"
^XMB(3.9,23,2,8949,0)="""DATA"",396.18,212,3,233,0)"
^XMB(3.9,23,2,8950,0)="MI&RJSXF!9QQCS!P.9H[>^GTZ/'H\F*89US1)\_2D>Y[2GTP,%9I5B:?%$PKI"
^XMB(3.9,23,2,8951,0)="""DATA"",396.18,212,3,234,0)"
^XMB(3.9,23,2,8952,0)="M_OKT``AJO%<L?8,Y`-J<409O2'\PT0?O3YE%S#&EJ*J]X%$UIQ7<[')SHT?R"
^XMB(3.9,23,2,8953,0)="""DATA"",396.18,212,3,235,0)"
^XMB(3.9,23,2,8954,0)="MC#B>R#""U+35(!G,%\OI*`*_'F4<ODA)IGN(P&1XH1YP!_3&.9P,XEG#3#W(3"
^XMB(3.9,23,2,8955,0)="""DATA"",396.18,212,3,236,0)"
^XMB(3.9,23,2,8956,0)="M""C6?DL$L!/`Y=[EGUZH'IN5&,KS1=.UM!K""9Z3_W;&[I7QZJT4R%:X$`+ZU3"
^XMB(3.9,23,2,8957,0)="""DATA"",396.18,212,3,237,0)"
^XMB(3.9,23,2,8958,0)="M4XR'CSG[',AOC>:M/P+@UVUV4$>^.X4HCQ892O@8$W;4^""$9L.&*-P]X;-4Z"
^XMB(3.9,23,2,8959,0)="""DATA"",396.18,212,3,238,0)"
^XMB(3.9,23,2,8960,0)="MWVQ9C?""S'DIV.I3=TYY.XU!V^4BR>TPM.]:8O!Y->BD?Z1F2]&Y&D5YZ/WHY"
^XMB(3.9,23,2,8961,0)="""DATA"",396.18,212,3,239,0)"
^XMB(3.9,23,2,8962,0)="MY*0,G(8;QEA(+Z='S,""9`])KX!2OB.HVXH=F7Y(DUHXBL=&!K0Q3\M]*2BZT"
^XMB(3.9,23,2,8963,0)="""DATA"",396.18,212,3,240,0)"
^XMB(3.9,23,2,8964,0)="MJ,!)=Y-PY""HG)2>Y.;R&9UZ!Z?J#`&&H97>:58L@.9GK55QR2E""DT7`7F51Q"
^XMB(3.9,23,2,8965,0)="""DATA"",396.18,212,3,241,0)"
^XMB(3.9,23,2,8966,0)="MQLX.^@6NZUTD8&;.'U;1%%@-7(*RB`'9.N1CE\*?M<PVZ2NZWMRU:IGFNMCU"
^XMB(3.9,23,2,8967,0)="""DATA"",396.18,212,3,242,0)"
^XMB(3.9,23,2,8968,0)="M+O6#4.4I-I23[V$3T/)Z6PNW/9B;+(7Y8ECMK,""8>=Z=J^BL;=Q0*50!;S2#"
^XMB(3.9,23,2,8969,0)="""DATA"",396.18,212,3,243,0)"
^XMB(3.9,23,2,8970,0)="MYRE%R$M=#^ML%H\+/4@DG2&5]7CTB??7>@:""_4WYG/U&0J7UZ9`SRLSU**S`"
^XMB(3.9,23,2,8971,0)="""DATA"",396.18,212,3,244,0)"
^XMB(3.9,23,2,8972,0)="M3'V_8D:+N4CVYB2P-UC7NS;-(A[83,O'`W8T:Y!AWWCKS70>BFV;T7^_2FSE"
^XMB(3.9,23,2,8973,0)="""DATA"",396.18,212,3,245,0)"
^XMB(3.9,23,2,8974,0)="M2&([!L16M<UV>WN_##6OHVY(6>O[8J?#B<P`(DM_)!%@/$J%:,FE0&:;Z+%7"
^XMB(3.9,23,2,8975,0)="""DATA"",396.18,212,3,246,0)"
^XMB(3.9,23,2,8976,0)="MBR@RS4]D!2`R4=T0)+-A^K9C^S)+!3A+O\EMS(\H_#>C$LTB/*3VWUJF'=$H"
^XMB(3.9,23,2,8977,0)="""DATA"",396.18,212,3,247,0)"
^XMB(3.9,23,2,8978,0)="M^#76,70X77]XP*=K8E^FJPBGZP1/Z/JH<KJ,2-.U`*:+@76SSFC19FO*;[:*"
^XMB(3.9,23,2,8979,0)="""DATA"",396.18,212,3,248,0)"
^XMB(3.9,23,2,8980,0)="M<+:>2![LV3J\+XW:<G""V;B0#3&`YVMJ:OHWFJK['N]M%FZ$C/C-4D-;3K0,^"
^XMB(3.9,23,2,8981,0)="""DATA"",396.18,212,3,249,0)"
^XMB(3.9,23,2,8982,0)="M0]/[LIY*<(;^.>%[]-?S>C[:%#T*UE.OMH&18>P=BQP>NG;$->77D)!'7NF,"
^XMB(3.9,23,2,8983,0)="""DATA"",396.18,212,3,250,0)"
^XMB(3.9,23,2,8984,0)="M?>N`6\#)?9DQN*92Q]RH_^#`7-0']L3X@6[@""(U\9*Y`3^SX?D9H""&A\\/7>"
^XMB(3.9,23,2,8985,0)="""DATA"",396.18,212,3,251,0)"
^XMB(3.9,23,2,8986,0)="MX15>-'+U9;,>X9(OI[CD2XF%D?""[XGO`[_)@1G7JV\Q>M,4!]./)X8Y;%3#("
^XMB(3.9,23,2,8987,0)="""DATA"",396.18,212,3,252,0)"
^XMB(3.9,23,2,8988,0)="M2[VR_HY/Y2N*=@X""U=D)8M3-CJH1ATQ!@O%;YF[)3ZOJ\Q0D2+U4&\.R0T)J"
^XMB(3.9,23,2,8989,0)="""DATA"",396.18,212,3,253,0)"
^XMB(3.9,23,2,8990,0)="MM!D6`+A#Y'^($?IM11_=R1?L+GHW;L?0""1_6#[>O%^!2>Y8-XAMB$(\[,$81"
^XMB(3.9,23,2,8991,0)="""DATA"",396.18,212,3,254,0)"
^XMB(3.9,23,2,8992,0)="M-XT<&2Y!K`=1FUWR6H+QC\--=;/6X/V?(Q^OPS%8A`SR&%]/P9\>+1X^(_@S"
^XMB(3.9,23,2,8993,0)="""DATA"",396.18,212,3,255,0)"
^XMB(3.9,23,2,8994,0)="M&U;=CG[4#3?\$AA^^K5$P/ASE4CC'[\VX'DSU+B-+!SW&YYQ/P;&'6USFUZ2"
^XMB(3.9,23,2,8995,0)="""DATA"",396.18,212,3,256,0)"
^XMB(3.9,23,2,8996,0)="MUG/D\Y<W$""?5#WV#.T[K(IZ:`V.-565)6*1((P<GB[?T=E+VX&1%.XG-+RDL"
^XMB(3.9,23,2,8997,0)="""DATA"",396.18,212,3,257,0)"
^XMB(3.9,23,2,8998,0)="M8V2'T3MEL/`\O9;T3%D1C#A6:>""38:=,AV;M""2:`GTVXZYVQ78MFMT_<WD$."
^XMB(3.9,23,2,8999,0)="""DATA"",396.18,212,3,258,0)"
^XMB(3.9,23,2,9000,0)="M?JV6V<*[""<8*L<Q:=]N9-$_]P@AN=ZZ-XM[F&6T$]V&1L^W4)S0VA9N$@>]S"
^XMB(3.9,23,2,9001,0)="""DATA"",396.18,212,3,259,0)"
^XMB(3.9,23,2,9002,0)="M0U_=3TQ/3<^`]%Z*0F^@/`'6]I'2$PT]PA$<&SCOAT5*TZ\D):=N$SAU?=-P"
^XMB(3.9,23,2,9003,0)="""DATA"",396.18,212,3,260,0)"
^XMB(3.9,23,2,9004,0)="M\K!4?#(`#>%MWDL94=6]:3<P]#/N2^A=O1`""0624OD>,L9X$RAN7""H#^IY?1"
^XMB(3.9,23,2,9005,0)="""DATA"",396.18,212,3,261,0)"
^XMB(3.9,23,2,9006,0)="M-:N#\5-#GUKT_\NG%J5J&O#*C.&-I/]""H9I/OGB^;>X1%Y,&`.VZN87A>I#+"
^XMB(3.9,23,2,9007,0)="""DATA"",396.18,212,3,262,0)"
^XMB(3.9,23,2,9008,0)="M4[5Q8TNSD[%9M]6J3_-,HP""3P;[""'8/G%4USGKE<0S8P@R/#KG<O8LRDCNPJ"
^XMB(3.9,23,2,9009,0)="""DATA"",396.18,212,3,263,0)"
^XMB(3.9,23,2,9010,0)="MDH:C+-ZUF&FN=TV[D;F^OG7A^D8W['UF@>W9WY:@K1[RXH_FB_EH#M;%NQ:]"
^XMB(3.9,23,2,9011,0)="""DATA"",396.18,212,3,264,0)"
^XMB(3.9,23,2,9012,0)="M-<ZT24<\.O!:C7*'>S_5>E4,1M.@'8(P+A1M$PHV]N%@&`OWP;<OG=<85:!."
^XMB(3.9,23,2,9013,0)="""DATA"",396.18,212,3,265,0)"
^XMB(3.9,23,2,9014,0)="M769R_%N1`/Q:`IR`""O&XAO4P:<""[YO2_)8*Y-&*2VM[7XDZ(YM81K&[^_ZVN"
^XMB(3.9,23,2,9015,0)="""DATA"",396.18,212,3,266,0)"
^XMB(3.9,23,2,9016,0)="MA$-99GE%_YV`KF;*\!K!B2M.3W+?H!/;U&;(R]8\H&NYX:;8*1.KBJITF[]4"
^XMB(3.9,23,2,9017,0)="""DATA"",396.18,212,3,267,0)"
^XMB(3.9,23,2,9018,0)="MI(X[^A:3K''7W!3`W*1_AUN)/Q%6XDL)YV`'<$:K0VPA#PO(/!#=19@$/\_8"
^XMB(3.9,23,2,9019,0)="""DATA"",396.18,212,3,268,0)"
^XMB(3.9,23,2,9020,0)="M^57!SN\!HU?.Q\3/#'<ZS`-P\O2'N!7K<)5]`F0[1<MDQ+6,K1IV;7!6,ZZQ"
^XMB(3.9,23,2,9021,0)="""DATA"",396.18,212,3,269,0)"
^XMB(3.9,23,2,9022,0)="MBEH6G/9+.&9[U`?(F#_!Q[SL+?'S'IBT_0B%<N^2FJ8T4Y=_]P(=Y?12M,R8"
^XMB(3.9,23,2,9023,0)="""DATA"",396.18,212,3,270,0)"
^XMB(3.9,23,2,9024,0)="MS%T3XV7R<K?;+;N!0;%$V=JEP9+)@*87)!NML[%_21RI?@RJNAX7B']?^$1W"
^XMB(3.9,23,2,9025,0)="""DATA"",396.18,212,3,271,0)"
^XMB(3.9,23,2,9026,0)="MK=Z9?=]'_NO^ZEM\X"":=<???3`XY,+01;#O^^5]02P,$%``""``@`<%0?-16$"
^XMB(3.9,23,2,9027,0)="""DATA"",396.18,212,3,272,0)"
^XMB(3.9,23,2,9028,0)="M2/>!,P``(=T!`!8```!);G1E<W1I;F5S7S$Q,RYP;FPN9G)M[%U9<]PXDG[O"
^XMB(3.9,23,2,9029,0)="""DATA"",396.18,212,3,273,0)"
^XMB(3.9,23,2,9030,0)="MB/X/C'Z1/=/M)@"">CMG8L&6[V[L^M)*Z'1L;$Q.L(B1QS*.&A^2:7[\`R6+A"
^XMB(3.9,23,2,9031,0)="""DATA"",396.18,212,3,274,0)"
^XMB(3.9,23,2,9032,0)="M)%!2R8?*[H<64:QB,A-(9'[(HUK\$R];YTVRP/GY>H7?7[RJZN*I<]Z/_/B#"
^XMB(3.9,23,2,9033,0)="""DATA"",396.18,212,3,275,0)"
^XMB(3.9,23,2,9034,0)="MX[S!%ZWS'\XOT'7IY7FU(E<1_?-#EK97Y`+%].IWG%U>T3L!HI?'R:K-JI)<"
^XMB(3.9,23,2,9035,0)="""DATA"",396.18,212,3,276,0)"
^XMB(3.9,23,2,9036,0)="M'[U]>?K;RZ,??\!E^N,/%?-`^JC7+XP/@Q[W-#C_M-?OSE^>""4_KQ_YQDI0X"
^XMB(3.9,23,2,9037,0)="""DATA"",396.18,212,3,277,0)"
^XMB(3.9,23,2,9038,0)="MAQYY7O\7\SR(O.WC@IA]'/1\X7G#=5;2JZ.3]R=_G!S1D>?X&N>ORQ+79'QQ"
^XMB(3.9,23,2,9039,0)="""DATA"",396.18,212,3,278,0)"
^XMB(3.9,23,2,9040,0)="M?9ID#4[[#ZHZQ?59N\XQ_:0YR\K+'/=45WE%[U[F9UE^C6LZ]JHJVR?'5TG="
^XMB(3.9,23,2,9041,0)="""DATA"",396.18,212,3,279,0)"
^XMB(3.9,23,2,9042,0)="M8/J`%R]?/?OCS?D_CG]_=GKV\GQ[Q_35YWFR_#B-3W3^`L`T^""XI<""^(,^<L"
^XMB(3.9,23,2,9043,0)="""DATA"",396.18,212,3,280,0)"
^XMB(3.9,23,2,9044,0)="M*1OG#-?9Q='T\8:T__L['3I):ERV]`,R]""K)FY[4\V3QGKX&&>LEPS&V%Q^`"
^XMB(3.9,23,2,9045,0)="""DATA"",396.18,212,3,281,0)"
^XMB(3.9,23,2,9046,0)="M/BO)B;=^/%P.S!TO-MP%,!P&MOP-A@%6HF6+FS8K<?/4>=^T5;$^&NXQ\TK/"
^XMB(3.9,23,2,9047,0)="""DATA"",396.18,212,3,282,0)"
^XMB(3.9,23,2,9048,0)="M+9E?B!G6<TSDV47SO,K3OP\?J7G7ST2!9<^[MJU*'Q&6#7]R/(L@R[,HXID6"
^XMB(3.9,23,2,9049,0)="""DATA"",396.18,212,3,283,0)"
^XMB(3.9,23,2,9050,0)="M^@+/H""_Q[#BO&CP2S,@.#""/OR^,\6WXD`Y^&I_^&R;S-EOVHCN3CDP]O3Y,T"
^XMB(3.9,23,2,9051,0)="""DATA"",396.18,212,3,284,0)"
^XMB(3.9,23,2,9052,0)="MJWZKJVZ%Z#KBA[A70!'[""L/Z8N0>`.$=O,W`N+!`Z$7N^`)G5]7-L(I8MCK."
^XMB(3.9,23,2,9053,0)="""DATA"",396.18,212,3,285,0)"
^XMB(3.9,23,2,9054,0)="M?W5D6ERL7[>X:,@GYW4W?D!'3I)4/9W.<$Y>ZNGXVV1J=$5)OPZWWVV(?&NR"
^XMB(3.9,23,2,9055,0)="""DATA"",396.18,212,3,286,0)"
^XMB(3.9,23,2,9056,0)="M3.GPHV'8(?,PQQ4[_<@0G5C#T&.)U^[$2)TJ`@I5!`;I*E61'W&J"",+@P%41"
^XMB(3.9,23,2,9057,0)="""DATA"",396.18,212,3,287,0)"
^XMB(3.9,23,2,9058,0)="MT*@B@)2J:#,+!^8""5YB3FW5FK8O:*T+%V;I8D1G0?/LZ:>2=I^0=Y-0X""@3>"
^XMB(3.9,23,2,9059,0)="""DATA"",396.18,212,3,288,0)"
^XMB(3.9,23,2,9060,0)="MN;'(.Z19>$[5LZT9V3:L0Q4Y[T_?9$W[O/H4$X*FBQFB/'%SB3V1*`AE+8-&"
^XMB(3.9,23,2,9061,0)="""DATA"",396.18,212,3,289,0)"
^XMB(3.9,23,2,9062,0)="M'K[\U!(R<#J2R6D:JA2D5]-KBN=YE9!)<KE5%*_RI.UR7""[Q=NP#3CZ2B=0P"
^XMB(3.9,23,2,9063,0)="""DATA"",396.18,212,3,290,0)"
^XMB(3.9,23,2,9064,0)="M=Y%O77;,+6^3G""[>[<""SLJKQIRS9CKPNDT669^W::2OG,LE*YZ8GE/E.WN*Z"
^XMB(3.9,23,2,9065,0)="""DATA"",396.18,212,3,291,0)"
^XMB(3.9,23,2,9066,0)="M[`ERTBRIZRN<.$F9.LNJ)'-YE5`!;6\_(?-J1424Y`Y.<9%L5-O;+F^SB3E;"
^XMB(3.9,23,2,9067,0)="""DATA"",396.18,212,3,292,0)"
^XMB(3.9,23,2,9068,0)="M93M,,*JC1ZXR?%./BDIR8.5YMMJNB0]9F58WH[""K\I)*WVY/]4*;/15$X,ML"
^XMB(3.9,23,2,9069,0)="""DATA"",396.18,212,3,293,0)"
^XMB(3.9,23,2,9070,0)="MJKJ]`*K,4L#N!2&W%[C\7C`:4@>\%T""U/@O55BFG.$1E%OD[;`1/G3_R)5DM"
^XMB(3.9,23,2,9071,0)="""DATA"",396.18,212,3,294,0)"
^XMB(3.9,23,2,9072,0)="M;7:-*>NR-GLH>T$86FRC4-2Z"")BW@G==L2!2JRZ<I&W)&S?.BERN<5+K]X-Q"
^XMB(3.9,23,2,9073,0)="""DATA"",396.18,212,3,295,0)"
^XMB(3.9,23,2,9074,0)="M><?JY1UPRSO\.DSFEVG6TNV4_G^&A9YG8B$4K&.(R']'MS`Y7:7WRV@95LGX"
^XMB(3.9,23,2,9075,0)="""DATA"",396.18,212,3,296,0)"
^XMB(3.9,23,2,9076,0)="M""'%*!L7HP)4,TAA-KEK+@#C@Y""P:3<%N!N<)V=T?BIGI!DJ.!2ZG6T)A&5M8"
^XMB(3.9,23,2,9077,0)="""DATA"",396.18,212,3,297,0)"
^XMB(3.9,23,2,9078,0)="MF6^J96_04.6R(@S3*Y21D-""""$&(5\Y1LU,T<)11/LZ8BLJ$B$G2M[+'(5+RJ"
^XMB(3.9,23,2,9079,0)="""DATA"",396.18,212,3,298,0)"
^XMB(3.9,23,2,9080,0)="M\;\Z8GBNK4F)U0X`""&9I4<QFF9@_FHZ8E6E7[R0BX&KV(31+41C8^""1$]U#C"
^XMB(3.9,23,2,9081,0)="""DATA"",396.18,212,3,299,0)"
^XMB(3.9,23,2,9082,0)="MV9848#-M1;@CLM@2S[JB2&IK0J)8PY.0\]-\7Y22""+A!6>?\Q3FIB5_BG'6+"
^XMB(3.9,23,2,9083,0)="""DATA"",396.18,212,3,300,0)"
^XMB(3.9,23,2,9084,0)="M(FNI7Y&D*:&%>#JXH9?$@W-&>D?-\($H^@]ULF(\`SWMZOF%X.S2MUAP+W""S"
^XMB(3.9,23,2,9085,0)="""DATA"",396.18,212,3,301,0)"
^XMB(3.9,23,2,9086,0)="MK+,%'ES,#<+SDCA(.4[M+!X;TB1E<.^TC::/KS9]0""C(7%@'GF3.>@KCA]A>"
^XMB(3.9,23,2,9087,0)="""DATA"",396.18,212,3,302,0)"
^XMB(3.9,23,2,9088,0)="M""N/'O8/U,U*MP3A!$,_.U#N8;/'=B?;41,,@N#/1PZJ2J0[O0/4$CX1:K(17"
^XMB(3.9,23,2,9089,0)="""DATA"",396.18,212,3,303,0)"
^XMB(3.9,23,2,9090,0)="M41O5.>D%3]Q*_%""&2H+]0R4O5]EETI`/E@ZQ(!A<HR>[6U&_X%]=DM9)V0H?"
^XMB(3.9,23,2,9091,0)="""DATA"",396.18,212,3,304,0)"
^XMB(3.9,23,2,9092,0)="MYM6-\L/3_N&ZKPZ?ZKY[UJV(%NL6V7([UN-\&Q3DJT$[)BE'EB('DJ=F)?-X"
^XMB(3.9,23,2,9093,0)="""DATA"",396.18,212,3,305,0)"
^XMB(3.9,23,2,9094,0)="M_S*G7O+RX_IG9UDGQ6K-0D\E;FL!.CLC5NYJ>_FBR_/MU?.N+KF[?RN3&_[K"
^XMB(3.9,23,2,9095,0)="""DATA"",396.18,212,3,306,0)"
^XMB(3.9,23,2,9096,0)="M;;)8<""/]YM;56""/A>\&YX!XE?UP5BXK(&E`3>G,Q9XZXODGP4''ZXA_-"")=Y"
^XMB(3.9,23,2,9097,0)="""DATA"",396.18,212,3,307,0)"
^XMB(3.9,23,2,9098,0)="M-<\L[K)IR2ISR#N79)OY93D.,$*B9ABQ#-NL(!9&FF0Y,RM>\)?\O721WV#\"
^XMB(3.9,23,2,9099,0)="""DATA"",396.18,212,3,308,0)"
^XMB(3.9,23,2,9100,0)="MD855\<?Y^POBI5PQ(""N]9+_QAAH_[552#G>R'PV39%8JH4XJ@@4MBT4""T55B"
^XMB(3.9,23,2,9101,0)="""DATA"",396.18,212,3,309,0)"
^XMB(3.9,23,2,9102,0)="M\2S%XIO$\C8K.^);;M\-4-,..E=55S.CB(X&XFA(1X%T,^COAIXT3H<1$>R:"
^XMB(3.9,23,2,9103,0)="""DATA"",396.18,212,3,310,0)"
^XMB(3.9,23,2,9104,0)="M&?3HA""BJ&@OC%CR.=#P6?`*9Q\BUX'%DR>/`S.,\92=:2H%""+,Q-K'_AM[BH"
^XMB(3.9,23,2,9105,0)="""DATA"",396.18,212,3,311,0)"
^XMB(3.9,23,2,9106,0)="M(+7TZ1]S2]P7X&QO0^U$?NR+[^E/<VF_:`)4H`G'9#YDA&?O\(T22QA1A#<4"
^XMB(3.9,23,2,9107,0)="""DATA"",396.18,212,3,312,0)"
^XMB(3.9,23,2,9108,0)="MZ%!RDM]_19R!:.!E7>7Y<_(*9+QI_L1UFRV37!)9-,OJ4,5JP?P732>(;+;1"
^XMB(3.9,23,2,9109,0)="""DATA"",396.18,212,3,313,0)"
^XMB(3.9,23,2,9110,0)="M4&_Q'Q3_P2S_(PO^2W8,](!9`+'[70!;""',.(P:Q*BQA.&\:)<`=17FAQZ/$"
^XMB(3.9,23,2,9111,0)="""DATA"",396.18,212,3,314,0)"
^XMB(3.9,23,2,9112,0)="M0VS'`:/$GAI<B-48'P@Y52YN6!#L!A*_(A9DER</!"">.-6`D[X9#8?/S[&%B"
^XMB(3.9,23,2,9113,0)="""DATA"",396.18,212,3,315,0)"
^XMB(3.9,23,2,9114,0)="M(QKJ:B""A<(Z""T(*""%UFS)(*YQ$Z[7F$C'<""""$9,%N;7TX<Z@[,T5+AV\RIHJ"
^XMB(3.9,23,2,9115,0)="""DATA"",396.18,212,3,316,0)"
^XMB(3.9,23,2,9116,0)="MS99&LJ`-69X`YME0]3\=\1""R=FVD`-E0(,;0>8$U(FM$8BV>'XJQ1L#;$;E/"
^XMB(3.9,23,2,9117,0)="""DATA"",396.18,212,3,317,0)"
^XMB(3.9,23,2,9118,0)="M-[/%1$ZLGB@(\7`;`%\?,.Q'-FOMB\&O0`-D;O#5#6<%#>Y+Y`%;^/7N0""8*"
^XMB(3.9,23,2,9119,0)="""DATA"",396.18,212,3,318,0)"
^XMB(3.9,23,2,9120,0)="M=41[L]-!.FFS1U^CNQ.M.>.'PN'&;8C6H:_!'8_Y>[=?.N?GM8""H!J<3JSEG"
^XMB(3.9,23,2,9121,0)="""DATA"",396.18,212,3,319,0)"
^XMB(3.9,23,2,9122,0)="M-`1SY_PZ4##0Q\SQJTFD:0PL8F@*I)@YW[L'4/`5)M8J`^QE.?ZE:1-BU*3."
^XMB(3.9,23,2,9123,0)="""DATA"",396.18,212,3,320,0)"
^XMB(3.9,23,2,9124,0)="M1=YEC!]]TM4TEJYU[@.C]>X#J?.TF!""_34%TFQGB6L(5\!N`A/I?Y@?#_GH#"
^XMB(3.9,23,2,9125,0)="""DATA"",396.18,212,3,321,0)"
^XMB(3.9,23,2,9126,0)="M%EF@0[XEMP-X&V[;`G#&&7^6\W&:,CQT7*VRJFL,^%""@=)KY(""W7$RTP<;N/"
^XMB(3.9,23,2,9127,0)="""DATA"",396.18,212,3,322,0)"
^XMB(3.9,23,2,9128,0)="MD;S,H\/#AT+3[$*!W>R*_%M,KB""VG%S@`$#W^5GOJZ$BWE2$D6EW\SUIVOO?"
^XMB(3.9,23,2,9129,0)="""DATA"",396.18,212,3,323,0)"
^XMB(3.9,23,2,9130,0)="MH2+F""&$6*HI44)''Y.[%7*:@%PA1R_ZA!Q3Z:D\HTD!%?)2K=+;A[P85O1B3"
^XMB(3.9,23,2,9131,0)="""DATA"",396.18,212,3,324,0)"
^XMB(3.9,23,2,9132,0)="M`1X(5J0)B=IX""6PRZ8YA:X(G/G#-X(C'O@4U@7\/P=.[A3S%@<;I]F<)=5T+"
^XMB(3.9,23,2,9133,0)="""DATA"",396.18,212,3,325,0)"
^XMB(3.9,23,2,9134,0)="MIYN)\QL`)=S<RO5&FG`<$$<\,@#W%D/DW253<K0.M*>4_""1`H@LF@4,J2\'V"
^XMB(3.9,23,2,9135,0)="""DATA"",396.18,212,3,326,0)"
^XMB(3.9,23,2,9136,0)="M>-XU&OWT!+;?>`.U*3`:Y<K/>BO>4W_&VP`WO87@++K6R:>M7OB&:$5L;8+A"
^XMB(3.9,23,2,9137,0)="""DATA"",396.18,212,3,327,0)"
^XMB(3.9,23,2,9138,0)="MVQ:V/[+CN9@@8,=S;U_6V9;G`&Y?-QH\*('SH>@S;:\O,(UB&G['@C=0:[GR"
^XMB(3.9,23,2,9139,0)="""DATA"",396.18,212,3,328,0)"
^XMB(3.9,23,2,9140,0)="MB_UVS$'[\HL`]?>HW9ISR7%0<`MEWY&_]H5KV:WDP@\>V^4]]T&8,WG/$(:S"
^XMB(3.9,23,2,9141,0)="""DATA"",396.18,212,3,329,0)"
^XMB(3.9,23,2,9142,0)="MVXT4C+G!99G4#HCN)?%Y=`E4N]A.>=`GN&ZRIL6L+_%R/""]0Y$%#HQ49JJQ("
^XMB(3.9,23,2,9143,0)="""DATA"",396.18,212,3,330,0)"
^XMB(3.9,23,2,9144,0)="M-BLE<KG<-R18D</T/&`K,M`81&H3A/>1(E-FOL&(/):32+]Y0U)M$@$^M$B`"
^XMB(3.9,23,2,9145,0)="""DATA"",396.18,212,3,331,0)"
^XMB(3.9,23,2,9146,0)="MZGRT@QUIRG)#4&WP\)'>(?PZ""D.,6XHV\(UGG)@[/F%3L[N+NR]SYUC""042K"
^XMB(3.9,23,2,9147,0)="""DATA"",396.18,212,3,332,0)"
^XMB(3.9,23,2,9148,0)="M8R=H0J?3E&5FAC.VT7D#K$X#H5!$!QQZ;8=0DZ$!-$$4W,*X2Y69I\Z?59$Q"
^XMB(3.9,23,2,9149,0)="""DATA"",396.18,212,3,333,0)"
^XMB(3.9,23,2,9150,0)="M,<C??!JO^HP>>',1#/)YL,DOOAZYIM=M&^6@15!YDJ3C,LEVDA0%@/[>%,7M"
^XMB(3.9,23,2,9151,0)="""DATA"",396.18,212,3,334,0)"
^XMB(3.9,23,2,9152,0)="MX='$`([^S<ZG&;<""5[T5>)SK&P9?53F#W@V33+H8;-5?R*N_.!2J;,$#5W^1"
^XMB(3.9,23,2,9153,0)="""DATA"",396.18,212,3,335,0)"
^XMB(3.9,23,2,9154,0)="M>BTC372'.U?/8*<0LJ?.NZ1K'@PH&&KBM^9K&+AH1^57]CPSF75]?*MB+?O!"
^XMB(3.9,23,2,9155,0)="""DATA"",396.18,212,3,336,0)"
^XMB(3.9,23,2,9156,0)="M5UB\8*.A]:>I\T4,S-HZ]@'X=K6UKL2"",GP6,):?QQ=9`'R1A;'ZR,ZJ;S*G"
^XMB(3.9,23,2,9157,0)="""DATA"",396.18,212,3,337,0)"
^XMB(3.9,23,2,9158,0)="M'Z(VC#7!;IX&\@_!G(LKNVKS+NYKXC'4W9)^]&#*?/F:G/IH#IGV/%>#7FTY"
^XMB(3.9,23,2,9159,0)="""DATA"",396.18,212,3,338,0)"
^XMB(3.9,23,2,9160,0)="MQZRR/B9HT2L<YZ?G79:GSDE=+7)<_$2!S&6-DQ:3]9?34!J:]SY\V!!F)5EQ"
^XMB(3.9,23,2,9161,0)="""DATA"",396.18,212,3,339,0)"
^XMB(3.9,23,2,9162,0)="MY/QU^BV<4K`N2\DK9A<9N4H[J@+Z>$/\*2FRLL<?'C6/GSCG5UFS^:GAIV\R"
^XMB(3.9,23,2,9163,0)="""DATA"",396.18,212,3,340,0)"
^XMB(3.9,23,2,9164,0)="M]K?RG'ZM=!;DT==$,=!S""""<K^]_ZZ46U[`H:6C01>M/'_?SL).1'DYK0R?[6"
^XMB(3.9,23,2,9165,0)="""DATA"",396.18,212,3,341,0)"
^XMB(3.9,23,2,9166,0)="MQ?""M\6;RDWV-+=R2G\7ITY^<IN<!90PEY,EMDN5]8""$H,=A`3O^1-S!14(IW"
^XMB(3.9,23,2,9167,0)="""DATA"",396.18,212,3,342,0)"
^XMB(3.9,23,2,9168,0)="M)T(BUV0%IDF;.#6^3.J4ON$DJ)I\]9IE""(TX&.-`J5SZT.;;O3:T>&T@UO!#"
^XMB(3.9,23,2,9169,0)="""DATA"",396.18,212,3,343,0)"
^XMB(3.9,23,2,9170,0)="M%H'7TGN?XNL,WSB;U^]G4O_N_3`ME$9K1%RLG62Y[.IDV/"";;L&^-W%]6CHM"
^XMB(3.9,23,2,9171,0)="""DATA"",396.18,212,3,344,0)"
^XMB(3.9,23,2,9172,0)="M""9^>&`)T?63CC@DKSZ+P""3`^V+-XL#B3+!X,C0_V+1XLR=+BR>B)P>`*-""43"
^XMB(3.9,23,2,9173,0)="""DATA"",396.18,212,3,345,0)"
^XMB(3.9,23,2,9174,0)="MH/!LT=6\@\GE[J,:G""JNPF-K%',F1.#SWA-T#SVL`FB*%&NR%?@(;M$9""-&N"
^XMB(3.9,23,2,9175,0)="""DATA"",396.18,212,3,346,0)"
^XMB(3.9,23,2,9176,0)="MB'BQ(E).'I*]$&J4EC_K1WE!;*^.IQ#])<N_7O]>5'E>W=!D@XP.TLJ4VTV?"
^XMB(3.9,23,2,9177,0)="""DATA"",396.18,212,3,347,0)"
^XMB(3.9,23,2,9178,0)="M[D9MM>3VY;P9TEA*O,1-0\OJT%R%IAF`7%S<JC:,)E`""SGN2KG5A5.Z]3:YD"
^XMB(3.9,23,2,9179,0)="""DATA"",396.18,212,3,348,0)"
^XMB(3.9,23,2,9180,0)="MH,E&@#%?]$$L!O.Y-)LN,+U'AC21Z7R:+32B&&XLG1/X8/^1Z71LV?(%(Q:3"
^XMB(3.9,23,2,9181,0)="""DATA"",396.18,212,3,349,0)"
^XMB(3.9,23,2,9182,0)="M1\#46:W;JYHI_TB/1==T.I?#M&4.%#*B29UDT2RY$^ZAH+`T_-]96N*UTQ!6"
^XMB(3.9,23,2,9183,0)="""DATA"",396.18,212,3,350,0)"
^XMB(3.9,23,2,9184,0)="MX^9S%JT`>PR%IZ&:?0:-%+,)>/1#E+LGJU^5W.'WF$V[TW:H.FV/`@:>X(J."
^XMB(3.9,23,2,9185,0)="""DATA"",396.18,212,3,351,0)"
^XMB(3.9,23,2,9186,0)="MHZ%VV59=1(>>W0MT5<>1YIS%G2\[?M@)O@!I\C?YVGY2'3N;TH>319&L5CBI"
^XMB(3.9,23,2,9187,0)="""DATA"",396.18,212,3,352,0)"
^XMB(3.9,23,2,9188,0)="MDW+9UV.\&!CH5""M<SIY7#<$`-O0%HKOF[4""=16KGV""Y""DQ<W`5J;R`1353($"
^XMB(3.9,23,2,9189,0)="""DATA"",396.18,212,3,353,0)"
^XMB(3.9,23,2,9190,0)="M/DL8)-\P(C($3KFS#2.DP%@D!0GX(+B7N*EMHG:U:'!]C=/_W#UHZG_9K?M="
^XMB(3.9,23,2,9191,0)="""DATA"",396.18,212,3,354,0)"
^XMB(3.9,23,2,9192,0)="M-=LO0K%U]A&PBG0';I&(6<8(BN:W+R?Y@/#H@&M@S$_9>'[*`C^<G;.Q;S%G"
^XMB(3.9,23,2,9193,0)="""DATA"",396.18,212,3,355,0)"
^XMB(3.9,23,2,9194,0)="MHWN9LZ][/Z?&#KZFJ.F@^)J/6>DL:IQ\).9;>2^3>+:\2Z_J#9,X0J8Y',B%"
^XMB(3.9,23,2,9195,0)="""DATA"",396.18,212,3,356,0)"
^XMB(3.9,23,2,9196,0)="MC(!_]-W0DPR]0&'H!4QNCA_-GD/%A]Y1`$!=IRO=J5,T>PJ_8ZNK9R4NLH=C"
^XMB(3.9,23,2,9197,0)="""DATA"",396.18,212,3,357,0)"
^XMB(3.9,23,2,9198,0)="MYKDV,961T3:>L:.:[)+03]-B>LX9K:G0#AL.W*_B.+Y7H%#I0',\],2CH$BJ"
^XMB(3.9,23,2,9199,0)="""DATA"",396.18,212,3,358,0)"
^XMB(3.9,23,2,9200,0)="M/^%*Y;%\&!R>!C5W2_!51_D^$\44N'PC1+X2%@P./8H)Z!HFP-""B6:`PD^&N"
^XMB(3.9,23,2,9201,0)="""DATA"",396.18,212,3,359,0)"
^XMB(3.9,23,2,9202,0)="M0/R'X;XW53/`R&^3O.S:.GM`H>K@-CF/$$0[JM7L@JP@0M+06LK)*4=I]@S#"
^XMB(3.9,23,2,9203,0)="""DATA"",396.18,212,3,360,0)"
^XMB(3.9,23,2,9204,0)="M4*.ZU54OYV4.Q;AZ6=VBSZ9NU7@EG[PGX.LHD))P0SG%',;?U:T<-`I-D5.("
^XMB(3.9,23,2,9205,0)="""DATA"",396.18,212,3,361,0)"
^XMB(3.9,23,2,9206,0)="MCYR""?,P\O*7%^J`CIX""F&&&@RS#G(06I0LJ.+6N&(XUS&NE3;!/&OG6M&VB:"
^XMB(3.9,23,2,9207,0)="""DATA"",396.18,212,3,362,0)"
^XMB(3.9,23,2,9208,0)="M;P1S=6+E-@QZI6L,)-7%-0CECP.A0I94JG:3-V&N10;OJ$RATG;E$T]],=[,"
^XMB(3.9,23,2,9209,0)="""DATA"",396.18,212,3,363,0)"
^XMB(3.9,23,2,9210,0)="MEW@6RQT<773(RE0]/P+-_(`^7S9:C'N)OFS:@*H]F<><32&7+R?""0Q80'7Q#"
^XMB(3.9,23,2,9211,0)="""DATA"",396.18,212,3,364,0)"
^XMB(3.9,23,2,9212,0)="M7$T]D4`7@87F`E_\>#=E_Q:G#RSL)0ALXHNENA/0(G;M_6U[%`6A#4U2`*&%"
^XMB(3.9,23,2,9213,0)="""DATA"",396.18,212,3,365,0)"
^XMB(3.9,23,2,9214,0)="MR7]<46U3-2VNJRQMG)0L]-M0""*PH#,5:=R[<K:1(N[$J;D.CISZLY1>$&(L0"
^XMB(3.9,23,2,9215,0)="""DATA"",396.18,212,3,366,0)"
^XMB(3.9,23,2,9216,0)="MA=;!/,6T%G:D;HJ-T0?*>'S!:,\(FBD2:MU["")1Y5F1EU21$TZ_SA*LC*,PL"
^XMB(3.9,23,2,9217,0)="""DATA"",396.18,212,3,367,0)"
^XMB(3.9,23,2,9218,0)="MIGMQ471E551I1[Y1L?4!GY5MML@J\C5A<'E5Y43?U)?2)\TJ:0I:A4`83_&*"
^XMB(3.9,23,2,9219,0)="""DATA"",396.18,212,3,368,0)"
^XMB(3.9,23,2,9220,0)="MEJTE#BS[Y/(BSSYE1;+XG""$U[IY#:J#:117TD]A,#?IB5-K4$8:9(=]#:@RG"
^XMB(3.9,23,2,9221,0)="""DATA"",396.18,212,3,369,0)"
^XMB(3.9,23,2,9222,0)="MA:.MI>L5YO*1@:Z`(_O@UK:X?]=BM8&J6*TP:WS7-&E4:F6V=I[-06%/7V1!"
^XMB(3.9,23,2,9223,0)="""DATA"",396.18,212,3,370,0)"
^XMB(3.9,23,2,9224,0)="M7Q3N3%_D3M4[3?1!@]!U7>UB?N5%X9<)Q=`8V*K<M)BUK[FL7'\H7<W8UX=>"
^XMB(3.9,23,2,9225,0)="""DATA"",396.18,212,3,371,0)"
^XMB(3.9,23,2,9226,0)="M:`5H*JU`39:I""V9/!'>TK\^Z^A)/E=6_>=L:WB*>&EE88""^([?&H>6R(ZPJ0"
^XMB(3.9,23,2,9227,0)="""DATA"",396.18,212,3,372,0)"
^XMB(3.9,23,2,9228,0)="MQ>/%LG<(V1J`IJ=[FJ@R_@C95.!%\7AG#Z7N@0Y>0D)WK4!,.[-P,M1;VET"""
^XMB(3.9,23,2,9229,0)="""DATA"",396.18,212,3,373,0)"
^XMB(3.9,23,2,9230,0)="MS4:5#'5$\RHYWE^I!'173,RU*&(K56.+;0+AW>""[]3:_D4^^%;3,2`B-Q825"
^XMB(3.9,23,2,9231,0)="""DATA"",396.18,212,3,374,0)"
^XMB(3.9,23,2,9232,0)="M@O#W[VB=XCS#%]0'SL;M(<EI<**<DS`&""SLUF637;'U]PM8V(]\BCM&8H4H#"
^XMB(3.9,23,2,9233,0)="""DATA"",396.18,212,3,375,0)"
^XMB(3.9,23,2,9234,0)="MQ(HDSZ??Q(:[\SXF4G'WZ?""PONPG<;]JF@.1D^_0,]B:?+\KE/?29_<E^89L"
^XMB(3.9,23,2,9235,0)="""DATA"",396.18,212,3,376,0)"
^XMB(3.9,23,2,9236,0)="M8""TQ9]EE0;Q(\D-5L?Y6\R%Z,]=7]HR838.1)YW*""O>.=C]^4]9R'H)'5&V_"
^XMB(3.9,23,2,9237,0)="""DATA"",396.18,212,3,377,0)"
^XMB(3.9,23,2,9238,0)="MT%BA:O(@!\(.V3C4E*Q28XAA/`>]>CN:AG]F+5E$9S0""ZH&8A[J\`#Y-6K#/"
^XMB(3.9,23,2,9239,0)="""DATA"",396.18,212,3,378,0)"
^XMB(3.9,23,2,9240,0)="M`@O[[!P7*]IGH:M-O90\SX($$<:TP7Y/NKPQ/CRR>#@06^!$%ACJ*6Y664WA"
^XMB(3.9,23,2,9241,0)="""DATA"",396.18,212,3,379,0)"
^XMB(3.9,23,2,9242,0)="MMK5S2FQE$R&Q304=*.@I9)$!,<3GS#]=4Z<""`'\V:@195/4^J;IRQ""+UCP<V"
^XMB(3.9,23,2,9243,0)="""DATA"",396.18,212,3,380,0)"
^XMB(3.9,23,2,9244,0)="M+^]%N[=_&X.3R`HM+_&]K%EPJS5[N]7JV_2!@Z'8=`Q!37""W(C^8C>9Z1%;P"
^XMB(3.9,23,2,9245,0)="""DATA"",396.18,212,3,381,0)"
^XMB(3.9,23,2,9246,0)="MDI:J('8""&Y-$4V@)X2E-]UTD#:9`\6/G44+K_;#YP<1N&;\V%OZ`??UT6C<$"
^XMB(3.9,23,2,9247,0)="""DATA"",396.18,212,3,382,0)"
^XMB(3.9,23,2,9248,0)="M+W%?XZ(JJ1""&SFN8_-3CSV=/WX/@=FS$ILGV#O8OSM\2(@&%.""_I^'=Q[D><"
^XMB(3.9,23,2,9249,0)="""DATA"",396.18,212,3,383,0)"
^XMB(3.9,23,2,9250,0)="MOLU6(F6*6SCSS_.J2H>F@)O\:#T5FK-4CV_*)(8D6$`>OQH>;+.-3\#MUKXU"
^XMB(3.9,23,2,9251,0)="""DATA"",396.18,212,3,384,0)"
^XMB(3.9,23,2,9252,0)="M/_AWS'1P^H:5M^:\EB^+L5_)C$""3KJ<B%`ZSP?YB\,$=#T_4C?[X6GABAVH7"
^XMB(3.9,23,2,9253,0)="""DATA"",396.18,212,3,385,0)"
^XMB(3.9,23,2,9254,0)="M&)TVX/L[-/JC!$1F0J0S$C,AQ'T$1SL>U[AF2@`,=B<E\H(C>T""G)P6H2`EX"
^XMB(3.9,23,2,9255,0)="""DATA"",396.18,212,3,386,0)"
^XMB(3.9,23,2,9256,0)="M<PW$!F-1)1UXM$.O,""YG,#1D$;I""]JYX3!`&AC3""`$ZG^?O((ISR`=%7I]CT"
^XMB(3.9,23,2,9257,0)="""DATA"",396.18,212,3,387,0)"
^XMB(3.9,23,2,9258,0)="MD-B[BH6(J)&XO:(VA@E.%$NOSK:`L^L`ASPQU5\Z/E!-M-D32E.=S-C$I[^1"
^XMB(3.9,23,2,9259,0)="""DATA"",396.18,212,3,388,0)"
^XMB(3.9,23,2,9260,0)="M^<8T%&'^ALS?B/G;<^U;+VK[7((@V@-KT%U8`]POPYM>+2&56A*Z%XDU#CS7"
^XMB(3.9,23,2,9261,0)="""DATA"",396.18,212,3,389,0)"
^XMB(3.9,23,2,9262,0)="MK""""1=V0?K]!3XBF/UOT]D((TISI:4J!95TN-NXVZ.D0`'<VTLIM5U9%)50M="
^XMB(3.9,23,2,9263,0)="""DATA"",396.18,212,3,390,0)"
^XMB(3.9,23,2,9264,0)="MQ859+!6E0#)Q\6Z:6IC@.E5M3-W.RB73?7%9*'*W`V-XKCH?CDDI!H#/AW-Y"
^XMB(3.9,23,2,9265,0)="""DATA"",396.18,212,3,391,0)"
^XMB(3.9,23,2,9266,0)="MB/B630T>=H*&IM)WI`:^0G^NF`Q$.Z;(O</5*D^:@GK&V_$'`B%#M<?)=Q$/"
^XMB(3.9,23,2,9267,0)="""DATA"",396.18,212,3,392,0)"
^XMB(3.9,23,2,9268,0)="MI?!)FSR-++DLJR;KTXW;CFP`SB/\*5FVIJB#,+(@26I;JNCLJ`Y[&#L[C;0]"
^XMB(3.9,23,2,9269,0)="""DATA"",396.18,212,3,393,0)"
^XMB(3.9,23,2,9270,0)="M*HI?U^2?D:C8ABC1!X,V2/?Y>H6'Y,N41H1R8;O.(Z*4\JZ'9YHAM,5$:0PL"
^XMB(3.9,23,2,9271,0)="""DATA"",396.18,212,3,394,0)"
^XMB(3.9,23,2,9272,0)="M*$5BL^/0(O;Y)*>HD),:$W`&.C2'$X#/990Z6,BM;@*M',FR;%EF\<+4&$&["
^XMB(3.9,23,2,9273,0)="""DATA"",396.18,212,3,395,0)"
^XMB(3.9,23,2,9274,0)="MP$)>:,%,""=N6JV<KWN$E70N]R*<W24JJ6GIMTV9+]L72]&>G*'YV]O9V@S_O"
^XMB(3.9,23,2,9275,0)="""DATA"",396.18,212,3,396,0)"
^XMB(3.9,23,2,9276,0)="M:1IG3&=K&VQA?_$@X1WC08`R1TI8AY)/+Q6;DGL:DYWX>Y4?C<T7S-M\?%*?"
^XMB(3.9,23,2,9277,0)="""DATA"",396.18,212,3,397,0)"
^XMB(3.9,23,2,9278,0)="MU""8G$""%O#\G,A_=2X^=#TA?Y&?>?(LFSRY*L,KFN#]JUKL_T]Q_EQ[*Z*7>M"
^XMB(3.9,23,2,9279,0)="""DATA"",396.18,212,3,398,0)"
^XMB(3.9,23,2,9280,0)="M5@60>1['KFD:(YF3T0$6JYJ%WI0NE*`PQ,X<,J=E7QM%T0[(6R_SV""QS)"")O"
^XMB(3.9,23,2,9281,0)="""DATA"",396.18,212,3,399,0)"
^XMB(3.9,23,2,9282,0)="M,BE>*""\?<'A""#^:$CLQ""AZ&Q""9!*Z(%E=/RL7Z],+A!-H]O1%UO29^Q<KRJ"""
^XMB(3.9,23,2,9283,0)="""DATA"",396.18,212,3,400,0)"
^XMB(3.9,23,2,9284,0)="MRCJRWEQ]=0\<?&DL34,6I&DQP""-=H@'C[5A48--NXVR%E[0R""9%$0Z-9'DQ-"
^XMB(3.9,23,2,9285,0)="""DATA"",396.18,212,3,401,0)"
^XMB(3.9,23,2,9286,0)="M%TUN(H""\X>J:6O8I+/._#*>USEFW*+*^5T>2IC1,D^B]9M.ZXZPKBF3BYTY6"
^XMB(3.9,23,2,9287,0)="""DATA"",396.18,212,3,402,0)"
^XMB(3.9,23,2,9288,0)="M-]""TN((\PHBB_65#H3N'C@--854$HUF.R]D\KIP.T#-ZO\5IQH!W70EX='>J"
^XMB(3.9,23,2,9289,0)="""DATA"",396.18,212,3,403,0)"
^XMB(3.9,23,2,9290,0)="M60?G&XB&V%.=BG%W'D+""IXL=>MD&4'0'T`0G5?6_I]W_R7E-&$2!#];:I];`"
^XMB(3.9,23,2,9291,0)="""DATA"",396.18,212,3,404,0)"
^XMB(3.9,23,2,9292,0)="M]I93&AC6UQAS51\K?^%9UU;#+:8,5(7N%J)$I(!D,2N%T3P;'%*!L?`HB[I1"
^XMB(3.9,23,2,9293,0)="""DATA"",396.18,212,3,405,0)"
^XMB(3.9,23,2,9294,0)="MTN1PV$RUN<FFG6X6$TXSY?23;IQ!2EZ&EKQD.+>M:A%:,7,S0JS.\TW')=J4"
^XMB(3.9,23,2,9295,0)="""DATA"",396.18,212,3,406,0)"
^XMB(3.9,23,2,9296,0)="MW5E539,1-O\\H5G]I\NL7G9%WP%^A.2R,NNC^ME66WT/I^R""[+5C_XUJZ'$U"
^XMB(3.9,23,2,9297,0)="""DATA"",396.18,212,3,407,0)"
^XMB(3.9,23,2,9298,0)="MADWU;;C*?W;U>B.T.2Y$&BX@\Y2R9,*$EO7Q7?<YD>`7F4B>JYM(@.?@%$[!"
^XMB(3.9,23,2,9299,0)="""DATA"",396.18,212,3,408,0)"
^XMB(3.9,23,2,9300,0)="ME'Q`=BRD3D]#Z[SU98+OFX]?9D%ZR')!^IN"";LRIGJ5R&VI=+:N""PIJ-S?J("
^XMB(3.9,23,2,9301,0)="""DATA"",396.18,212,3,409,0)"
^XMB(3.9,23,2,9302,0)="M-41-IYXST@5!;""G>KJ;LVB*NC7-!!-72-GE3;Y('*'&@D_CF$'?;9QJ)S)VR"
^XMB(3.9,23,2,9303,0)="""DATA"",396.18,212,3,410,0)"
^XMB(3.9,23,2,9304,0)="M;(SJ9ULE,24*^.*""4$'X6U>%LQ3YON6QTGU5&MKSKVB[8T^XBR+@POH-I?=I"
^XMB(3.9,23,2,9305,0)="""DATA"",396.18,212,3,411,0)"
^XMB(3.9,23,2,9306,0)="M]OY""OFY!""!*#@:3K[%X&/'EP\SQP[7@6P5OR##Y`GNET`W+WQ37TH+A&X;R8"
^XMB(3.9,23,2,9307,0)="""DATA"",396.18,212,3,412,0)"
^XMB(3.9,23,2,9308,0)="M@_7TMEPHZ1JX""2=2H'L,ON=""=QM:)7MT:LHHXAQRR+/>UI;5AN\'$F7,OKJE"
^XMB(3.9,23,2,9309,0)="""DATA"",396.18,212,3,413,0)"
^XMB(3.9,23,2,9310,0)="M;.J2\?E,2QF+U@I3BT<SB+1>Y`946H6U:-;6-I^:RZ;6&ZU`DL@4^\!()%9*"
^XMB(3.9,23,2,9311,0)="""DATA"",396.18,212,3,414,0)"
^XMB(3.9,23,2,9312,0)="MQ-_N/C.9U9JXP)G3L+[C&]W.CI@1XKA>4MPLN\;YVKFIZH;[^'6QJJMKL@%R"
^XMB(3.9,23,2,9313,0)="""DATA"",396.18,212,3,415,0)"
^XMB(3.9,23,2,9314,0)="M@[1U;M\8EE9._I7F8&?D%[;5\>2T97WBLJI8@GY%`&""W)-`F36]^27A($@#Y"
^XMB(3.9,23,2,9315,0)="""DATA"",396.18,212,3,416,0)"
^XMB(3.9,23,2,9316,0)="M%W]?$DS([8PP-+*0[-!(TIQ(X7MXKBP,-XY-MMA!RP@8]Y#(;L'XON0K^(%O"
^XMB(3.9,23,2,9317,0)="""DATA"",396.18,212,3,417,0)"
^XMB(3.9,23,2,9318,0)="M(R.BL=#W!5,S.E@MC`&M%4\1])NZ+WLV0)8'5)AHU)B9SI+HAO5M6FPJ=-<"""
^XMB(3.9,23,2,9319,0)="""DATA"",396.18,212,3,418,0)"
^XMB(3.9,23,2,9320,0)="M_];Q?Q.^#Z10?JT,%!9?""&PLOL#SMWI+LT_+1R;S>_=FKJK?;MN'5B[ZPL`O"
^XMB(3.9,23,2,9321,0)="""DATA"",396.18,212,3,419,0)"
^XMB(3.9,23,2,9322,0)="ML=E.""0(;.R5$K&;>MYW"");U0NX4K$-8/;6ORLJ/_W]ZU_KAM8_M_Q>B7:8!)"
^XMB(3.9,23,2,9323,0)="""DATA"",396.18,212,3,420,0)"
^XMB(3.9,23,2,9324,0)="MK_C0*\""B2)MD4Z#;!$FVO?M18RLS0FW+*]F3S/WK+RE9$A^'%.GG9.)%L9B1"
^XMB(3.9,23,2,9325,0)="""DATA"",396.18,212,3,421,0)"
^XMB(3.9,23,2,9326,0)="M-<XASX/GQ=_YHYO:D,TG]6:U8AJ0B^B8#7+,#=MTPX>OBGR]DQ-CPU\Q(;!`"
^XMB(3.9,23,2,9327,0)="""DATA"",396.18,212,3,422,0)"
^XMB(3.9,23,2,9328,0)="MT(<C*""PP#HO=Y""!LLCD4J?D'1'5YP+K$A[9\BLHLP[FM-H7LI=S;E1+WE89X"
^XMB(3.9,23,2,9329,0)="""DATA"",396.18,212,3,423,0)"
^XMB(3.9,23,2,9330,0)="M_Y4"",CB^V/A0BZ7NB]4=,/_%-JAK0Y+,8\7)_K9;:F,T32\4KFXHT4""BB36A"
^XMB(3.9,23,2,9331,0)="""DATA"",396.18,212,3,424,0)"
^XMB(3.9,23,2,9332,0)="M>C@VY$0$R*%T"",=,78ZVNRU0JZ/<2-[W""[,P;,6K%*/91YOE_&=9SJXG]<-B"
^XMB(3.9,23,2,9333,0)="""DATA"",396.18,212,3,425,0)"
^XMB(3.9,23,2,9334,0)="MM2X9+14'U&+QFV#3AI^X,<R*2GA]ED\K7@WC);3)YRK_[R9?3A]X;:QFW\(L"
^XMB(3.9,23,2,9335,0)="""DATA"",396.18,212,3,426,0)"
^XMB(3.9,23,2,9336,0)="MZ\/UY&:SGK#5SN<<A$`JL+'OJT7)X.%E6;+O7Y:3H@TDFX6R[^[^Q<&T`A?:"
^XMB(3.9,23,2,9337,0)="""DATA"",396.18,212,3,427,0)"
^XMB(3.9,23,2,9338,0)="M;-(?&:6?'-""3^FW90X_54`9G,)<'$NUF$)J7;--87UZBZS8-`<==N/'G+-OB"
^XMB(3.9,23,2,9339,0)="""DATA"",396.18,212,3,428,0)"
^XMB(3.9,23,2,9340,0)="MH3<BVA_'2P<_]P1`_6+@5;""=U$)L!)9&?'8G=_?/FVQ8Y^ANF6AKP8/&4R(J"
^XMB(3.9,23,2,9341,0)="""DATA"",396.18,212,3,429,0)"
^XMB(3.9,23,2,9342,0)="M]N!1&6\,'02,]DE?)FN'*`.51H<I86IK;A+Z=>5MF_!X,?Y3E6T6&>\F._*="
^XMB(3.9,23,2,9343,0)="""DATA"",396.18,212,3,430,0)"
^XMB(3.9,23,2,9344,0)="MLO#DS7F&!L?(!EJK7Q(PW)2Z;J_,\-Z,>3D5!AWP[7SQ+>.,;#O63%=RY/U#"
^XMB(3.9,23,2,9345,0)="""DATA"",396.18,212,3,431,0)"
^XMB(3.9,23,2,9346,0)="M*=WO2LZWU;&V[Y@ZE(`S`.1A5""KZ!@!1%NJ=]Y>IH/JY1:`91<)49?'0BEM!"
^XMB(3.9,23,2,9347,0)="""DATA"",396.18,212,3,432,0)"
^XMB(3.9,23,2,9348,0)="M%3K'R7?>.=YF@8""F9\-`.IS*X\%5G$S/0ZJ_N/M$CB-DN(E*0_G:6I0^JE[Q"
^XMB(3.9,23,2,9349,0)="""DATA"",396.18,212,3,433,0)"
^XMB(3.9,23,2,9350,0)="MOK<6&1MM9?K5%F;M(BWIX(;@)MKX1$VTV-22@Y329S_MZ-)%:VS3P*8N6B4]"
^XMB(3.9,23,2,9351,0)="""DATA"",396.18,212,3,434,0)"
^XMB(3.9,23,2,9352,0)="M&\9:$RT*'/?RY6S6)4)].O>P(YNI%G52QP:2WE(]/;XBDY)0K&3DD%Z?)J';"
^XMB(3.9,23,2,9353,0)="""DATA"",396.18,212,3,435,0)"
^XMB(3.9,23,2,9354,0)="M_K5&ZZ<K!VHB$SE!,DJ.(S>I$R&Q,R%!O&]?DI60Q)E!.B$H!;I](FO_^F_+"
^XMB(3.9,23,2,9355,0)="""DATA"",396.18,212,3,436,0)"
^XMB(3.9,23,2,9356,0)="M)D'<]JEWF1"".'I]-[P0\""QX-3:>;5;95V!96HI@_R/WKDVRZ+NZ95C-/\6K7"
^XMB(3.9,23,2,9357,0)="""DATA"",396.18,212,3,437,0)"
^XMB(3.9,23,2,9358,0)="M5D1D[$74]F!HUATP$AR%]-VJ7<IU=[@RI<UY67+5FG@76X2,'8"":V.B4^O8`"
^XMB(3.9,23,2,9359,0)="""DATA"",396.18,212,3,438,0)"
^XMB(3.9,23,2,9360,0)="M6NE`KCL6:N4T3%)?H>$!,\^1LBV;WI4L^&NDIUBS@[%)HO'??A#+NS^P1]EZ"
^XMB(3.9,23,2,9361,0)="""DATA"",396.18,212,3,439,0)"
^XMB(3.9,23,2,9362,0)="MPNS5)*OK4A:::<'D;S;Y4C!RFM;H7NSVD*$(NW(FC/?M:+7205SIH'J_H^-%"
^XMB(3.9,23,2,9363,0)="""DATA"",396.18,212,3,440,0)"
^XMB(3.9,23,2,9364,0)="MC#>,#Z]?_OIVV#@GV:7.)D\3&:#O8I`B4&0XC7Q^)/.:5IMJQ62FOIY4^8I/"
^XMB(3.9,23,2,9365,0)="""DATA"",396.18,212,3,441,0)"
^XMB(3.9,23,2,9366,0)="M)V3/1'/#9*%OCF\ORS""3)(M,9ZCJ?)6Q;^6-84QNEOF4SQJL'KA*\V0^S^YF"
^XMB(3.9,23,2,9367,0)="""DATA"",396.18,212,3,442,0)"
^XMB(3.9,23,2,9368,0)="M[#M6[)=5Q<6,7Z;);@KYV^;%^F&2WV?S39OWX3WZ#4$]&?L(HK-;JA>Z0\=6"
^XMB(3.9,23,2,9369,0)="""DATA"",396.18,212,3,443,0)"
^XMB(3.9,23,2,9370,0)="M^!_9[B[X%+;X67-+:,9G?WPNV$;>L(5]S1;[T!^Y^ENZ87%T!+?E:L[JNHUW"
^XMB(3.9,23,2,9371,0)="""DATA"",396.18,212,3,444,0)"
^XMB(3.9,23,2,9372,0)="MFMW?&N+!I#35'J%7Q&,M3=:`BND#826JN$>![OE$@,#WZ@FDMVT%`[W!%G3!"
^XMB(3.9,23,2,9373,0)="""DATA"",396.18,212,3,445,0)"
^XMB(3.9,23,2,9374,0)="MM5,0J+`H&60YSR2\!3``KJ&^'EP`ON6=$6=OO1//_Y?].2\4+=R<9+N;;'&4"
^XMB(3.9,23,2,9375,0)="""DATA"",396.18,212,3,446,0)"
^XMB(3.9,23,2,9376,0)="MG5QEH[-LZ^+I908,.""(S'ZC*!Q1#G!A:""3TXT5:SZ^)VR2_:9XSJWCU3G;&>"
^XMB(3.9,23,2,9377,0)="""DATA"",396.18,212,3,447,0)"
^XMB(3.9,23,2,9378,0)="M&2^$?3#4H*QK3<Q+)>I22:""O5`BMQU?:BIJ\FA=/7IQL6ITZ[7$2`7N,(VB/"
^XMB(3.9,23,2,9379,0)="""DATA"",396.18,212,3,448,0)"
^XMB(3.9,23,2,9380,0)="MI<KW7]P%RT7];GPM?AXV)V""Q6&4J/T3ITBKI#M)F,-(C>X2QAQRF!-@CE+C+"
^XMB(3.9,23,2,9381,0)="""DATA"",396.18,212,3,449,0)"
^XMB(3.9,23,2,9382,0)="MX8>\YDU3S`OY4E9_:_[_+KHT-+HI;6X""S+JZ#AH""ZR`0KZFP#K')-1$IMC:\"
^XMB(3.9,23,2,9383,0)="""DATA"",396.18,212,3,450,0)"
^XMB(3.9,23,2,9384,0)="M/7KE,G3D64OH3=6\&<34&<SM878EO3/ZPA\E^V""QFI</^6PHPML4'NX#'9&."
^XMB(3.9,23,2,9385,0)="""DATA"",396.18,212,3,451,0)"
^XMB(3.9,23,2,9386,0)="MT$LZA&A_3#S""!!`/%*2QB[I^GW+SLN;G+-N/6<$DHFD`F6T4[Z9)EG3-1^NL"
^XMB(3.9,23,2,9387,0)="""DATA"",396.18,212,3,452,0)"
^XMB(3.9,23,2,9388,0)="MFO&RAO&%[(8W&N5Y42_D5Y1^35O'IK/((4>1HS:1$\5&C8S%TP?T*@-8YN+D"
^XMB(3.9,23,2,9389,0)="""DATA"",396.18,212,3,453,0)"
^XMB(3.9,23,2,9390,0)="M(G,FF>-E8Q:JSDM5B%[U+6XL_N2S>2JUB;B1-#&JO<GOLONBK.1W>&O;I""ZG"
^XMB(3.9,23,2,9391,0)="""DATA"",396.18,212,3,454,0)"
^XMB(3.9,23,2,9392,0)="M'&B""#W.L,J5/;-M0_)E90R:$#RSPG<_++_PD+*""V,H6Z1=DZ#L;/L^6&_<LS"
^XMB(3.9,23,2,9393,0)="""DATA"",396.18,212,3,455,0)"
^XMB(3.9,23,2,9394,0)="MCHU1:>]M(XNZS?O,B\_-""<QCP&E650_L%R.9%0\/M1<^KO*\22)T[\D?O\VS"
^XMB(3.9,23,2,9395,0)="""DATA"",396.18,212,3,456,0)"
^XMB(3.9,23,2,9396,0)="MJJG9&#[_L^#WPXP?_\YDJ1F-N<X6Q3*3/_PKS_[FQH`'WY\9LVXWN6E3V+;F"
^XMB(3.9,23,2,9397,0)="""DATA"",396.18,212,3,457,0)"
^XMB(3.9,23,2,9398,0)="MR]OUW8O)9K5BRLLVAU].,^_B\`>,->8_^#=;',]\%$LF-+SBRB1'?N--/FWD"
^XMB(3.9,23,2,9399,0)="""DATA"",396.18,212,3,458,0)"
^XMB(3.9,23,2,9400,0)="MP/3Y>SZJ0=GR^C-;2Y4OY)[)(UDQ/&;%FHZ+0+DM9#LS4\""E(@0,QE($&[#4"
^XMB(3.9,23,2,9401,0)="""DATA"",396.18,212,3,459,0)"
^XMB(3.9,23,2,9402,0)="MQ8`=QT!A@X&"";A99S)/E=I%TO\C.IY$[1M!-58&1EJ1,:$C*D""@<3\L@=)RT"
^XMB(3.9,23,2,9403,0)="""DATA"",396.18,212,3,460,0)"
^XMB(3.9,23,2,9404,0)="M#+&D`P*/V""2&TC+I#LD`I3K#?UT-J9E-W1A:7H\Q)`.>9BR-+?F*6(NE""0*X"
^XMB(3.9,23,2,9405,0)="""DATA"",396.18,212,3,461,0)"
^XMB(3.9,23,2,9406,0)="M@?$.W/BA,7\_;#EBYL"">V1A,C<O3;!T&\DXQ%`23%%S;RZH1LBH7LTSPJGY^"
^XMB(3.9,23,2,9407,0)="""DATA"",396.18,212,3,462,0)"
^XMB(3.9,23,2,9408,0)="M""G+EG9B06]X;`$""X""WY(*P<N3$H0P*0T!B/\?KBTO1_>?ML#;HJ7&SKORBIW"
^XMB(3.9,23,2,9409,0)="""DATA"",396.18,212,3,463,0)"
^XMB(3.9,23,2,9410,0)="M2^]\`[ZY+5VP5)R@?Q7SF?*DG/&1Q<I['_EE$]6!JMA#?EOOV>$#.$7Z\+CT"
^XMB(3.9,23,2,9411,0)="""DATA"",396.18,212,3,464,0)"
^XMB(3.9,23,2,9412,0)="MH1`=7/S2TX@?^^K5BC'L(H`G$T#L*8!D7`#[P=""'$T!A+MA1!?#UU[R:%N(]"
^XMB(3.9,23,2,9413,0)="""DATA"",396.18,212,3,465,0)"
^XMB(3.9,23,2,9414,0)="MMXL`'ED`B:<`TG$!U*HI""/(`O0Q@>""(#R-LB+N?OZ:2/^DE?%.WB_>TI?BB("
^XMB(3.9,23,2,9415,0)="""DATA"",396.18,212,3,466,0)"
^XMB(3.9,23,2,9416,0)="MX].(WX<F^:268R\B>%01##T-8+B3""[BW""43X-#+XJ<KN^=#YBQ-X.A&,_$2P"
^XMB(3.9,23,2,9417,0)="""DATA"",396.18,212,3,467,0)"
^XMB(3.9,23,2,9418,0)="MR83Y.X'[G\+):43P39[/+@)X2@&,/6U@NH,3B`G94_RBTXC?+]GZ[B)^IQ2_"
^XMB(3.9,23,2,9419,0)="""DATA"",396.18,212,3,468,0)"
^XMB(3.9,23,2,9420,0)="MQ%/\DIUR@'O+WXF\P%<-Z.9%`$\H@*FG`,:[I0'WE4""$3N0#EL4\7U]$\*29"
^XMB(3.9,23,2,9421,0)="""DATA"",396.18,212,3,469,0)"
^XMB(3.9,23,2,9422,0)="MZ,!3!J/=,H%[6T%R&AED*RH7%Q$\J0@BET:0U-@'HE=^:035X<'66@QG7J)+"
^XMB(3.9,23,2,9423,0)="""DATA"",396.18,212,3,470,0)"
^XMB(3.9,23,2,9424,0)="M&XAW&PCR+""H0AZ*""UJ,8`2T6$86Z8B'.QI0<TX[8%>X_N=9X+++!VE)L1E,F"
^XMB(3.9,23,2,9425,0)="""DATA"",396.18,212,3,471,0)"
^XMB(3.9,23,2,9426,0)="M,)JR>NE1QQN,AFT;\`9C#9,M26EX`5,>A8+O\'NQ&<M7NP""HPP`2ZC2^(<')"
^XMB(3.9,23,2,9427,0)="""DATA"",396.18,212,3,472,0)"
^XMB(3.9,23,2,9428,0)="MB<%\N8116-+4986IRZH`V.XX3-!%T@3]MZ%-QLB$-ADFXX-5D!O2JAFV&TID"
^XMB(3.9,23,2,9429,0)="""DATA"",396.18,212,3,473,0)"
^XMB(3.9,23,2,9430,0)="MNP-.6L:#1H;QH($R:#.446IH?,Z9IK&!Z([*CFCDC[5VO)FFH6&D:8+V)EH$"
^XMB(3.9,23,2,9431,0)="""DATA"",396.18,212,3,474,0)"
^XMB(3.9,23,2,9432,0)="MB-MU7J@!$@P#D&""X[3/HK*J(""H93>9XT""D(8%6PP(K\7B_P;`?C"",%(51B!0"
^XMB(3.9,23,2,9433,0)="""DATA"",396.18,212,3,475,0)"
^XMB(3.9,23,2,9434,0)="ME3P9&BG`?]VG-GBO]Q_>O7_]X=-OKS\^D?G/&(;TDF<1=S%""/X4B'8>89,:="
^XMB(3.9,23,2,9435,0)="""DATA"",396.18,212,3,476,0)"
^XMB(3.9,23,2,9436,0)="M7R_X!^HG47R36)(M#F?DL$D155'/R/@NM>K_*?^Z_H>""7FHS`0A""LT6""""6@O"
^XMB(3.9,23,2,9437,0)="""DATA"",396.18,212,3,477,0)"
^XMB(3.9,23,2,9438,0)="M[_?L4H`!MV.""+VBVDBDA)JQ`V)3$%CC;OO':%2EPBVO'&]V?[KSYK=MF.'2Q"
^XMB(3.9,23,2,9439,0)="""DATA"",396.18,212,3,478,0)"
^XMB(3.9,23,2,9440,0)="M=.CB!!_LT-T;\C2$($]Q:$/AI3J]W1UF$?*47B!/=?\FP!A#>-VQ@-9MQ3UM"
^XMB(3.9,23,2,9441,0)="""DATA"",396.18,212,3,479,0)"
^XMB(3.9,23,2,9442,0)="MO8+O&?>4&@Y[MK51""I]E5((^5<XR'/A`G[[87B9O!@L\&?/5[V`,.Y?2@8!C"
^XMB(3.9,23,2,9443,0)="""DATA"",396.18,212,3,480,0)"
^XMB(3.9,23,2,9444,0)="MQ7Z1#B/2@H':ZUH[W%G""I+C;`IZW@[-G13UEFWB;3WYL+I-R).^Z04)J/A=P"
^XMB(3.9,23,2,9445,0)="""DATA"",396.18,212,3,481,0)"
^XMB(3.9,23,2,9446,0)="M*ZXF\ZQ>-Y!(DV*+@,'^RR95?E_D7R2L)##-ZPBR.NP.'M\=I%KW?FBGS5?Z"
^XMB(3.9,23,2,9447,0)="""DATA"",396.18,212,3,482,0)"
^XMB(3.9,23,2,9448,0)="M-=O4^8]\F6P=+$3A%XG7+592`V-1+-NU(OQ\P?AY-UDQ$2A[J%)@==:%))'#"
^XMB(3.9,23,2,9449,0)="""DATA"",396.18,212,3,483,0)"
^XMB(3.9,23,2,9450,0)="M0JBJ*)@ZH*\#Q,\VS5U=:`&'8P\[9`-LP)27UQ4H$-XH#,;7]6I3]3#RW52)"
^XMB(3.9,23,2,9451,0)="""DATA"",396.18,212,3,484,0)"
^XMB(3.9,23,2,9452,0)="MO+<$._&!48Q=^*#2FX9N(/@-\&-/XJX4QBY[JJ(BIPX[VHU3'TS!KB2F#C9+"
^XMB(3.9,23,2,9453,0)="""DATA"",396.18,212,3,485,0)"
^XMB(3.9,23,2,9454,0)="MV</$(7[Y=W-?3B'/ALF/<6I(NQ`DYXJ2<,P#C%P]P'0/#[""IRO""T-B.]27-U"
^XMB(3.9,23,2,9455,0)="""DATA"",396.18,212,3,486,0)"
^XMB(3.9,23,2,9456,0)="M#V3BNVQN5^Q5K'^L!@2D@^:5NI#7194WN)R;9=[AL6BK28P0QHQ""(\:A,$/."
^XMB(3.9,23,2,9457,0)="""DATA"",396.18,212,3,487,0)"
^XMB(3.9,23,2,9458,0)="MA+Z74$>T8`[`P!2G:N@='SQE0UUF)"">1&_(R31VRN""#!S<EQ2(I-D+5#+T%W"
^XMB(3.9,23,2,9459,0)="""DATA"",396.18,212,3,488,0)"
^XMB(3.9,23,2,9460,0)="M'Q\`WG8$VVR=@.F!24]-\H$#K$YC`Z!F7?&D@9.@$^G]EY""XR0L&-C]T!!C]"
^XMB(3.9,23,2,9461,0)="""DATA"",396.18,212,3,489,0)"
^XMB(3.9,23,2,9462,0)="MD&=UR;S(V^(^;^$Q#T4^#J@;^0A3ESF0,+YDDSQXF""R:87CSR8^KNX>:__2L"
^XMB(3.9,23,2,9463,0)="""DATA"",396.18,212,3,490,0)"
^XMB(3.9,23,2,9464,0)="M!_O:;PTF\&B4!N.K&#IAW%:QJA^F=T7&@M+I7N0K?3S\+`I&1WL%HX/+`@`:"
^XMB(3.9,23,2,9465,0)="""DATA"",396.18,212,3,491,0)"
^XMB(3.9,23,2,9466,0)="M5IOLA8.41D>=[/5;/;G/.>3-<FLK9M(@K^,.['(MW?%Z&@YXF,`VGO\R=DH1"
^XMB(3.9,23,2,9467,0)="""DATA"",396.18,212,3,492,0)"
^XMB(3.9,23,2,9468,0)="MI$-^QPX58K[?L<<\1.0TR+5Q`K!EFJNBPQ&`**]3'\80]<D8]0>?\/IZ7MP6"
^XMB(3.9,23,2,9469,0)="""DATA"",396.18,212,3,493,0)"
^XMB(3.9,23,2,9470,0)="M[%_B&+H9BRV9U9L)AIS'*?JT5\&X=,KY#'Y+U^)GYQGKBH\PUI7G!YO,E:$;"
^XMB(3.9,23,2,9471,0)="""DATA"",396.18,212,3,494,0)"
^XMB(3.9,23,2,9472,0)="M1;4CPD!VJV@$D&A<YJ_;>@=""SS.`C)T!9-PQ2@&T9`JP+CS9&3!$$,UTT&6Y"
^XMB(3.9,23,2,9473,0)="""DATA"",396.18,212,3,495,0)"
^XMB(3.9,23,2,9474,0)="M/N^Q$#GU#O&C(;4,`]><U!@8&4S=SH>0N`QUM3<6Q2X;]#L'2EO?,::@R</0"
^XMB(3.9,23,2,9475,0)="""DATA"",396.18,212,3,496,0)"
^XMB(3.9,23,2,9476,0)="M@=%\ACAR.VX>2[N(^?-0?Q[RYRC0/V#/^#<!G_RK;)!NV#_??_K,R909VIV4"
^XMB(3.9,23,2,9477,0)="""DATA"",396.18,212,3,497,0)"
^XMB(3.9,23,2,9478,0)="M,X[H4SD@2T:@0RX,+Y;,8LD2)S:%3FQ""5)];%`$'#J0I47QADX5-Q(E-D<$Q"
^XMB(3.9,23,2,9479,0)="""DATA"",396.18,212,3,498,0)"
^XMB(3.9,23,2,9480,0)="MT""(F@%%QY,BHY,(HY_Y54[VWX58,U7QC>4R<FN33<O]1(I=\N>^&;-G\[Z@."
^XMB(3.9,23,2,9481,0)="""DATA"",396.18,212,3,499,0)"
^XMB(3.9,23,2,9482,0)="M'(^R(!UE`4J3'5@0!Q<6#""X9Q(+!'>,5(\T=`UG1'?EF5G1.F&BO4ALK0/=+"
^XMB(3.9,23,2,9483,0)="""DATA"",396.18,212,3,500,0)"
^XMB(3.9,23,2,9484,0)="M=_2-KM?5`)XD^6!?\GP(9*_4WW'S^^!!71'U`54?A.J#2'T0JP\2]4&J/F`."
^XMB(3.9,23,2,9485,0)="""DATA"",396.18,212,3,501,0)"
^XMB(3.9,23,2,9486,0)="MG?H$:4\T8I%&+=+(11J]2"",8:10CC62DT8PUFK%&,]9HQAK-6*,9:S1CC6:L"
^XMB(3.9,23,2,9487,0)="""DATA"",396.18,212,3,502,0)"
^XMB(3.9,23,2,9488,0)="MT8PUFK%&,]%H)AK-1!<*C6:BT4PTFHE&,]%H)AK-1*.9:C13C6:JT4QU2=9H"
^XMB(3.9,23,2,9489,0)="""DATA"",396.18,212,3,503,0)"
^XMB(3.9,23,2,9490,0)="MIAK-5*.9:C13C6:JT1QJ-(<:S6%'\S,GTX3<3!-&:C';P33%:!_31,9,TYO-"
^XMB(3.9,23,2,9491,0)="""DATA"",396.18,212,3,504,0)"
^XMB(3.9,23,2,9492,0)="M?,Z;&(:U,VN^?BX_^IC//S]7""H'-8UZ<R.97<L.(XZ9ATZ:I/0#:MD4.VT;Q"
^XMB(3.9,23,2,9493,0)="""DATA"",396.18,212,3,505,0)"
^XMB(3.9,23,2,9494,0)="M/MM&Q[;-&$K#@30<1AN"":%,(;0R@;=X+"">`YZ=(6)V1TA[&^P^3BO@QI7%#<"
^XMB(3.9,23,2,9495,0)="""DATA"",396.18,212,3,506,0)"
^XMB(3.9,23,2,9496,0)="M]1R?""3Q/SO!MD_;JW._N(J6&*""QRI?,U3&D]8U)/3^G!"";UM'77^,.DL0I?("
^XMB(3.9,23,2,9497,0)="""DATA"",396.18,212,3,507,0)"
^XMB(3.9,23,2,9498,0)="MT])X9OT1<W5""IDXMA%@E&XWZY308]04CW>!>FF$!K/B`_P_L]V_W=+OA1&R("
^XMB(3.9,23,2,9499,0)="""DATA"",396.18,212,3,508,0)"
^XMB(3.9,23,2,9500,0)="MI6W58!#7(/W>&V)#N#6JW5ZXP0QA:2J\VA#G<EM(Z(C]T+9;EI_93U.VN_51"
^XMB(3.9,23,2,9501,0)="""DATA"",396.18,212,3,509,0)"
^XMB(3.9,23,2,9502,0)="MA#T\>4,LWT%DZ""D,Y18]K-Z/<>GYW(Y)Y]CL5;MQ+TYF)HYPG8B7O!NAPU+]"
^XMB(3.9,23,2,9503,0)="""DATA"",396.18,212,3,510,0)"
^XMB(3.9,23,2,9504,0)="MNRMO$+F)3-TQC,8<,)RDP17L5EG)(1`Y?<_REAX<[T(/NH(#=\N]S$8K*=PF"
^XMB(3.9,23,2,9505,0)="""DATA"",396.18,212,3,511,0)"
^XMB(3.9,23,2,9506,0)="MV(]CZIH6E=-:Z[3K;FF-MPGN<P]6=B[:%6""[TQ')#>-*(S%2G8Y8V]LH/([3"
^XMB(3.9,23,2,9507,0)="""DATA"",396.18,212,3,512,0)"
^XMB(3.9,23,2,9508,0)="M\>OD3<'DNS59G;J9?8KV/3%`^:,I-C:C:]N)O'^^_/#N2O@#Y:.^0IG=9\6<"
^XMB(3.9,23,2,9509,0)="""DATA"",396.18,212,3,513,0)"
^XMB(3.9,23,2,9510,0)="M>[6`8Q+X;#VQ;SW&>V]^TF/3'G;SNWZ)]IAX;$RP>H>#LZ('/O)9@)0-IT@["
^XMB(3.9,23,2,9511,0)="""DATA"",396.18,212,3,514,0)"
^XMB(3.9,23,2,9512,0)="M354?&Z&H!T?X+H,<W4-DK]WD,\;G_*8L_^;[+C\1+X@/OB*6[DZUL8TP:#/8"
^XMB(3.9,23,2,9513,0)="""DATA"",396.18,212,3,515,0)"
^XMB(3.9,23,2,9514,0)="MND[C>]R_-&SRNKG**GZH.G?=<_,9V[TA[[6X)9$@?7S)[[/;7)(V*BDWU71,"
^XMB(3.9,23,2,9515,0)="""DATA"",396.18,212,3,516,0)"
^XMB(3.9,23,2,9516,0)="MOI-DV],MF\JO/)SO?U%*>$H!3RO?Q90""Z!]]W>QM6?U?+PX_?:J8H/*K('+C"
^XMB(3.9,23,2,9517,0)="""DATA"",396.18,212,3,517,0)"
^XMB(3.9,23,2,9518,0)="M!Q>0X:4/V?(V;[XE@%\P?,O+>7'+=R"";L\.,R67_?+,NVS]6BVMJ),`QLXY7"
^XMB(3.9,23,2,9519,0)="""DATA"",396.18,212,3,518,0)"
^XMB(3.9,23,2,9520,0)="M2T1@+1&&_3)4$\UU0@A>""&SU1UJ7OVC)-&2W`!JR%$-06]&3&"",$[:/%CR,:"
^XMB(3.9,23,2,9521,0)="""DATA"",396.18,212,3,519,0)"
^XMB(3.9,23,2,9522,0)="M3(ODS8D/M<GN8KR%Q,?""77;QL0SISJ.%[0$JP4ZY[OW8[EN1RQPY8.&!G0LF"
^XMB(3.9,23,2,9523,0)="""DATA"",396.18,212,3,520,0)"
^XMB(3.9,23,2,9524,0)="M/CBAT""@092:TLEXA/#4""1)\#50)%^*GI!#+H1(LF0""-]PID:$4@=Q`C2AA34"
^XMB(3.9,23,2,9525,0)="""DATA"",396.18,212,3,521,0)"
^XMB(3.9,23,2,9526,0)="M!9$1DBZ@GZY`OL,4QGX4BG""5.U.(O2A,_""B4AD;O3"")Q([%5.1+Y6KTD\C)["
^XMB(3.9,23,2,9527,0)="""DATA"",396.18,212,3,522,0)"
^XMB(3.9,23,2,9528,0)="M@8'*5^5TT]R[?J]>E'B:E@_O9_E`YJ6^O$.8'(1YVR1A#P'2HH(\<0Z2(W`P"
^XMB(3.9,23,2,9529,0)="""DATA"",396.18,212,3,523,0)"
^XMB(3.9,23,2,9530,0)="MPMXLC`_""P=],4Z2/QS?T;?H<,-^\G<7P,)KWRZ:8SV""@OZ?)/71<CY'Z.8PX"
^XMB(3.9,23,2,9531,0)="""DATA"",396.18,212,3,524,0)"
^XMB(3.9,23,2,9532,0)="MB-T]QO""I>8S8H!,*6+`%*QBX9B2>3J""*4.H04(E@1;$DA#;D8.L5%C-X,)2C"
^XMB(3.9,23,2,9533,0)="""DATA"",396.18,212,3,525,0)"
^XMB(3.9,23,2,9534,0)="MX16S8EM&R^:3=95M%MG/$B7`+991*&(`C%B#(S99NU'?SVK#,&#$,!CR1C'("
^XMB(3.9,23,2,9535,0)="""DATA"",396.18,212,3,526,0)"
^XMB(3.9,23,2,9536,0)="M(!P:O8?GY2J7)]H?3N/M/1:[RB8<WB#9JCO()GD$LKG,R]4\JQ=GD$[L+IW4"
^XMB(3.9,23,2,9537,0)="""DATA"",396.18,212,3,527,0)"
^XMB(3.9,23,2,9538,0)="M6SKC^`3228XHG2C8V73*#X?2=>`CGPC3Z%SRN>3X$><PF-1=)''L+9,(T1,("
^XMB(3.9,23,2,9539,0)="""DATA"",396.18,212,3,528,0)"
^XMB(3.9,23,2,9540,0)="M97A<)XG8G""1*8I=$<PKY2""3&]J&?8%H%>29^$&B[<0SS@*0P#Q2)>MFT6N;L"
^XMB(3.9,23,2,9541,0)="""DATA"",396.18,212,3,529,0)"
^XMB(3.9,23,2,9542,0)="M__-549>SO.92G-W,^$P29F2G)=ONZZU8\QOJ]^P#/C'G>I(M9Y-,@#[;?F/_"
^XMB(3.9,23,2,9543,0)="""DATA"",396.18,212,3,530,0)"
^XMB(3.9,23,2,9544,0)="MIS.F%?F2@])>LZ]A/_!?UY,&0&V55>N""O7-3?LGG;'/Z*$[6'`!MRRUEI<+L"
^XMB(3.9,23,2,9545,0)="""DATA"",396.18,212,3,531,0)"
^XMB(3.9,23,2,9546,0)="MCB;50/%&LBLWGK-J,63JXG;)H40SMMHMCMR+JQW,:.IB1@D0H\$Y3.1UQM,P"
^XMB(3.9,23,2,9547,0)="""DATA"",396.18,212,3,532,0)"
^XMB(3.9,23,2,9548,0)="MW=V&:I\;C>BC\26;R1:!-O+%JI!!""FMD8K""*D6&K$WSVG!,\Z\4:^UKGO2@3"
^XMB(3.9,23,2,9549,0)="""DATA"",396.18,212,3,533,0)"
^XMB(3.9,23,2,9550,0)="M7\8BY=&I+R;7VL/\)S;SCRER,/_""Y5$'\T_<U-S)F0\!-8<+=_+A.Z[G$3J7"
^XMB(3.9,23,2,9551,0)="""DATA"",396.18,212,3,534,0)"
^XMB(3.9,23,2,9552,0)="MK\0/A771`MD];B>>(*O'!+FR,?G6O7BRHURB`#Y,@\A3,)-S"">:LR*KJ[K&["
^XMB(3.9,23,2,9553,0)="""DATA"",396.18,212,3,535,0)"
^XMB(3.9,23,2,9554,0)="M\81X""Z7""@\?IQMNEDNXJE?0@7E$<GDLH/[,?-_-SR&3D(9.AOTS2HX663Z^,"
^XMB(3.9,23,2,9555,0)="""DATA"",396.18,212,3,536,0)"
^XMB(3.9,23,2,9556,0)="M$!]3M<)=52N!LS8D\-.M%#V""K.(J*\[AC""0>&47LKV-I>-$Q5QU+CZECT8XZ"
^XMB(3.9,23,2,9557,0)="""DATA"",396.18,212,3,537,0)"
^XMB(3.9,23,2,9558,0)="MAF/8VZ?84\?HN72L;',C#XO5NES49U`QY).UC[QU#*>7<\R]''[,R*6)UG91"
^XMB(3.9,23,2,9559,0)="""DATA"",396.18,212,3,538,0)"
^XMB(3.9,23,2,9560,0)="M,@(7!GU]Q.2TY]@[IF*+A\FJRFNV^>=0+(^@)?0_O`BY*):[8ATU^(IW/;WD"
^XMB(3.9,23,2,9561,0)="""DATA"",396.18,212,3,539,0)"
^XMB(3.9,23,2,9562,0)="MFM)N/1&88'(V#W$SG_*YY,5]WI1$UL593C""/KHBF:=?S!*/DHFC.BG;,_@ZT"
^XMB(3.9,23,2,9563,0)="""DATA"",396.18,212,3,540,0)"
^XMB(3.9,23,2,9564,0)="MZPF&#?5S[%<_C_""Y]*PK+S[NEB.<^BL7?OP]1^KP=_GBZ4Y7_]YW6.6OOV8+"
^XMB(3.9,23,2,9565,0)="""DATA"",396.18,212,3,541,0)"
^XMB(3.9,23,2,9566,0)="MGPN`:(\+@(%V_2_8X_+?Y6[?'G?[8EO13>NX>([TFAN)H9H;#=#W<KFO[6@@"
^XMB(3.9,23,2,9567,0)="""DATA"",396.18,212,3,542,0)"
^XMB(3.9,23,2,9568,0)="MMFZ1%+(W\%&`B5]+PZN\GE;%32[TA""RRNGXAF2`#^.UXGP9)_59%,%Q;""M'>"
^XMB(3.9,23,2,9569,0)="""DATA"",396.18,212,3,543,0)"
^XMB(3.9,23,2,9570,0)="MJVJ&.U3+_`!KVPYI#VR'1$*@\@RXN(3X'1)_%FNVGH_,/-57)[E,H(3?3GED"
^XMB(3.9,23,2,9571,0)="""DATA"",396.18,212,3,544,0)"
^XMB(3.9,23,2,9572,0)="M""I1,P20E)H:""-H'#[_#$04*SS]QU$=M^OK14SLNZYDU3BVR^W#`WY3%7NA4F"
^XMB(3.9,23,2,9573,0)="""DATA"",396.18,212,3,545,0)"
^XMB(3.9,23,2,9574,0)="M1CLRT=`IB%#LQT4<GX>+V3)?%(^V\JLP*=Z522$^"")-0>E(FO7G<)5""9$S38"
^XMB(3.9,23,2,9575,0)="""DATA"",396.18,212,3,546,0)"
^XMB(3.9,23,2,9576,0)="ME3EIX,4<9&+.:8.XEY)_\%A+:$V;7VAN\X,\*0*>2R2$DU<T-?$#N?D5EP;`"
^XMB(3.9,23,2,9577,0)="""DATA"",396.18,212,3,547,0)"
^XMB(3.9,23,2,9578,0)="MT0;`=`=U1#NJ(TX,?7;(4QWIF=1Q<&P?;<JRT<K(2RL)#7RT4GDLL(5<M/)0"
^XMB(3.9,23,2,9579,0)="""DATA"",396.18,212,3,548,0)"
^XMB(3.9,23,2,9580,0)="M;;EH![7$.ZHE@2L*H:'),#2YF2>NU=WG53:?3VYYA,7'S.?9?'UGTDOBHY?_"
^XMB(3.9,23,2,9581,0)="""DATA"",396.18,212,3,549,0)"
^XMB(3.9,23,2,9582,0)="M+,N9JIAOLJ*:J`_?EV5EUE>/4IZ]1B[GG+NKL:#?&::/N/]PNUCJO=@4G6""M"
^XMB(3.9,23,2,9583,0)="""DATA"",396.18,212,3,550,0)"
^XMB(3.9,23,2,9584,0)="MQT!S""!-_QD;!""18;'_E^F/6""&!$[<""SIRC`92U>Z@Q<1O^P8,MSN3?>]Q=1/"
^XMB(3.9,23,2,9585,0)="""DATA"",396.18,212,3,551,0)"
^XMB(3.9,23,2,9586,0)="M'/U<+&?<_KC=9VJ.]<3/V08OOQ)BB'TBHUVGERLU/F=W<*J""T*>\7M<^A2!\"
^XMB(3.9,23,2,9587,0)="""DATA"",396.18,212,3,552,0)"
^XMB(3.9,23,2,9588,0)="M*01]RX6@K26CNB73+]9MT>Q2X-ZM>-4.M&""""B/WO\RI[:/*N;<]AL<AN.=OJ"
^XMB(3.9,23,2,9589,0)="""DATA"",396.18,212,3,553,0)"
^XMB(3.9,23,2,9590,0)="M]696Y/7U)*LGW(Y-LW4^&RR9Z7C8KB!T7P'&T,$@7D`868*HI%>_S)EG-^$-"
^XMB(3.9,23,2,9591,0)="""DATA"",396.18,212,3,554,0)"
^XMB(3.9,23,2,9592,0)="MR@KIUY.BS3H+B<L)XU37""G;-UK'.""N6*[M5R\O;F]G_>3M?C2U>@GFTA]'8O"
^XMB(3.9,23,2,9593,0)="""DATA"",396.18,212,3,555,0)"
^XMB(3.9,23,2,9594,0)="MGFO7Z""C`3;&B(9R1PL/.DI.(B&DLFW]N]<YAWUP0FK_R]B;TA.W=9KYNMW0^"
^XMB(3.9,23,2,9595,0)="""DATA"",396.18,212,3,556,0)"
^XMB(3.9,23,2,9596,0)="M;_>=[?ETOIFQN)""]S%_*OV8+]N:JK*2&.S""D?N3526M<H47[2JSO6]HT""5KC"
^XMB(3.9,23,2,9597,0)="""DATA"",396.18,212,3,557,0)"
^XMB(3.9,23,2,9598,0)="M*:2:IV!2L`@`O(QA^""(QTRT6B<*K8W,(&S@$^P5&_EA]@BM79HQZ`Y!3:N,6"
^XMB(3.9,23,2,9599,0)="""DATA"",396.18,212,3,558,0)"
^XMB(3.9,23,2,9600,0)="M#9RYA<G^[*(7=IG8A8_HK;TJLMME61=>'ANY>&S?O,>6F!TV'&IGO)B,ZV-_"
^XMB(3.9,23,2,9601,0)="""DATA"",396.18,212,3,559,0)"
^XMB(3.9,23,2,9602,0)="M[.ZQ=6-GQCV2+CS'5L`[S00ED!<B]I*`Y9NG#7>WA8""TY7K<46A0X`<7KAJ6"
^XMB(3.9,23,2,9603,0)="""DATA"",396.18,212,3,560,0)"
^XMB(3.9,23,2,9604,0)="M\X7IWS12>.BG!@C2@QA!@0D6R\UBHT0+DKN])M_R\,754].9T)+1LM2I$-#4"
^XMB(3.9,23,2,9605,0)="""DATA"",396.18,212,3,561,0)"
^XMB(3.9,23,2,9606,0)="MA4&%B1*XJPDEL2&CE9!+1NN`&2U[58J,1[I(.P41`3(72+R1,]C%!')S:4A."
^XMB(3.9,23,2,9607,0)="""DATA"",396.18,212,3,562,0)"
^XMB(3.9,23,2,9608,0)="M$NNRXW8UYSD$#IO,9Q`-LRV-4>Q>82)4L#!Q8GLL0<V3_<YK@+8H!`Q;!&7B"
^XMB(3.9,23,2,9609,0)="""DATA"",396.18,212,3,563,0)"
^XMB(3.9,23,2,9610,0)="MQ9M(ULH#W/WC9,(=A8PZ"")EFP@G@R!`0E([J(H81CI/3I%.R>I)-NN%:[U;%"
^XMB(3.9,23,2,9611,0)="""DATA"",396.18,212,3,564,0)"
^XMB(3.9,23,2,9612,0)="MDG_0#\$ZF;@Y91Y""4R@+N+HA``M%8P+ZN@2,926TKTLL""S=!COK_W>@SL_<3"
^XMB(3.9,23,2,9613,0)="""DATA"",396.18,212,3,565,0)"
^XMB(3.9,23,2,9614,0)="M:JH3/IX@`#^2*2G;^TS=;IXA$GC=3%?FX=_5D7UH,2W2//Q_4$L#!!0``@`("
^XMB(3.9,23,2,9615,0)="""DATA"",396.18,212,3,566,0)"
^XMB(3.9,23,2,9616,0)="M`&Y4'S4_[+'PO!H``-O=```6````26YT97-T:6YE<U\Q,3,N<&YL+F-D9>P]"
^XMB(3.9,23,2,9617,0)="""DATA"",396.18,212,3,567,0)"
^XMB(3.9,23,2,9618,0)="M;7/;-M*?TYG^!XR_Y/HTM47P3;JI>J/(=*(YV7(E.;E\ZM`2'7-.(E612NI_"
^XMB(3.9,23,2,9619,0)="""DATA"",396.18,212,3,568,0)"
^XMB(3.9,23,2,9620,0)="M_X`OHOB""!1:4DK0]:SH-30*[B\5BL5@L%A<7Y/9F."".SQ=;?Q-]_]_UWHP=R"
^XMB(3.9,23,2,9621,0)="""DATA"",396.18,212,3,569,0)"
^XMB(3.9,23,2,9622,0)="MY6^C>+H+^EKR@EQZ#W[@W>S6WM9?D-'-W)G]=NTM)[>_C8+%:K?TEJP0(3,O"
^XMB(3.9,23,2,9623,0)="""DATA"",396.18,212,3,570,0)"
^XMB(3.9,23,2,9624,0)="MYGXD?=(IH,SBK1]\K)2;>K_OO""@&H!1?&9CL_?#V_?747?KAFVVXVQC&^<Q;"
^XMB(3.9,23,2,9625,0)="""DATA"",396.18,212,3,571,0)"
^XMB(3.9,23,2,9626,0)="M>0M68A1[:P;C`.'6#;R5V4E^VOGK!'$</FS#(.Y?N:O(*XB*RD1-IVLOBMR/"
^XMB(3.9,23,2,9627,0)="""DATA"",396.18,212,3,572,0)"
^XMB(3.9,23,2,9628,0)="M7@54\9:1<79&FF@HK6!@Q00X[H85`'?#*M0@]J+L9:W%'Y,6:W;18K_>XM>["
^XMB(3.9,23,2,9629,0)="""DATA"",396.18,212,3,573,0)"
^XMB(3.9,23,2,9630,0)="M.`X#HWO^SH_\^Y77`D36F@ZEU%)HT=2+_6W:A26>9>^*MG&J.>O-*GRJU=N_"
^XMB(3.9,23,2,9631,0)="""DATA"",396.18,212,3,574,0)"
^XMB(3.9,23,2,9632,0)="M%%6\""SQ>U<-K4>6I]FK_1(LG_?!T>+3V3^.BRKCX>JN5'HW#HWUX[!X>>_O'"
^XMB(3.9,23,2,9633,0)="""DATA"",396.18,212,3,575,0)"
^XMB(3.9,23,2,9634,0)="MV=UU\99V2F_IX;5V>""R]/:""C!W34/#Q:A\<#$;1;[16-(\)3RGNI<U]RWUJ<"
^XMB(3.9,23,2,9635,0)="""DATA"",396.18,212,3,576,0)"
^XMB(3.9,23,2,9636,0)="MEV,>IC&O.N,D]ZW!?6MSWW:Y;WN<MXS5O+*TPR]+N84U[EM^66[C*+=QU.2^"
^XMB(3.9,23,2,9637,0)="""DATA"",396.18,212,3,577,0)"
^XMB(3.9,23,2,9638,0)="MM;AON8R@/$8\=_K_3*=S]-WM-F1SP7JO$0:7XU?5+[^-_2C>OQNNPLAK%""C4"
^XMB(3.9,23,2,9639,0)="""DATA"",396.18,212,3,578,0)"
^XMB(3.9,23,2,9640,0)="MG__)V]ZZJTV5@*P8AS2&C$=P""2_G<TJ""J!I/QO:$P?7^7.15.RJ=\]^&T<:/"
^XMB(3.9,23,2,9641,0)="""DATA"",396.18,212,3,579,0)"
^XMB(3.9,23,2,9642,0)="MW=6KVM]%GU3?SG;KM;M]VK^_SBR4_9^3C1_X85`Q*O95.?9&%9>H0(Z64^2:"
^XMB(3.9,23,2,9643,0)="""DATA"",396.18,212,3,580,0)"
^XMB(3.9,23,2,9644,0)="M9R.5B1&`_=8D-8T@P&:LFTJH4CJJE(4J9:-*:2:J6!=5JH=#V<$5P[%,P_%,"
^XMB(3.9,23,2,9645,0)="""DATA"",396.18,212,3,581,0)"
^XMB(3.9,23,2,9646,0)="M,W#%D%S#\4/#,83B&$*1DH9K*<5U/,4)&\7QC>+X1J5\2XT2WD*/2E<]^T5/"
^XMB(3.9,23,2,9647,0)="""DATA"",396.18,212,3,582,0)"
^XMB(3.9,23,2,9648,0)="M7[%Z:O+PZN@RE+H0I:!Z9CHYG]S5&0<LX[D(+AMF\.I-T_EM$57*L?;$6#41"
^XMB(3.9,23,2,9649,0)="""DATA"",396.18,212,3,583,0)"
^XMB(3.9,23,2,9650,0)="M5@/`JDE9J(FQ4A%6&\`JE15=W'.:+L+:!;#*Q<448S5$6'L`5D,Z+J@8JRG`"
^XMB(3.9,23,2,9651,0)="""DATA"",396.18,212,3,584,0)"
^XMB(3.9,23,2,9652,0)="M2CL`5E.*U1)CM418-0""KL!(D^#T9J::80;I(\""D@^+I4\$VQOM*%W6(""6*7="
^XMB(3.9,23,2,9653,0)="""DATA"",396.18,212,3,585,0)"
^XMB(3.9,23,2,9654,0)="M8HJ[11=RV`*P6E*L73%6D3N*`H-<E[K!K(X0JR$:Y!08Y(U*3K`</236X\7%"
^XMB(3.9,23,2,9655,0)="""DATA"",396.18,212,3,586,0)"
^XMB(3.9,23,2,9656,0)="M3\6/3+V/NY6[)<-PZ9'#^]R_6B&2GB]6_N*_J<=JOMW))\VB'$/M/S0!FBT`"
^XMB(3.9,23,2,9657,0)="""DATA"",396.18,212,3,587,0)"
^XMB(3.9,23,2,9658,0)="MYO-P#C%IS/_5?JQ)BW""[C-B_GWSO,ZE_3PWH@I2JNS%SP5:5<C+_'7R[]T_D"
^XMB(3.9,23,2,9659,0)="""DATA"",396.18,212,3,588,0)"
^XMB(3.9,23,2,9660,0)="MW6`Z(?>[F`1A3-Q/KK]R6<^=U9S""#JML9M#FWA_IXFSXTX._\L@VH^NS&[%'"
^XMB(3.9,23,2,9661,0)="""DATA"",396.18,212,3,589,0)"
^XMB(3.9,23,2,9662,0)="M*=SS!'#>7""6R?_[E5'2C*=!/RCB](."":`5RPA5?6LU^,@?II&:CS&-@8!7O4"
^XMB(3.9,23,2,9663,0)="""DATA"",396.18,212,3,590,0)"
^XMB(3.9,23,2,9664,0)="MPVPH]/D#@;LWD!?]=>?'T!C+ZADP].IV00L12YO_Y8=3F<[ZFQ_9T"")7R=!:"
^XMB(3.9,23,2,9665,0)="""DATA"",396.18,212,3,591,0)"
^XMB(3.9,23,2,9666,0)="M[Z*8W.^'6`+?>PBW'HEV]VL_CA/_1?R8?-Z$V_B,51P^NMM_:/H/"";:]C+25"
^XMB(3.9,23,2,9667,0)="""DATA"",396.18,212,3,592,0)"
^XMB(3.9,23,2,9668,0)="M%3DG]*_`B>I8B;XB2YK]_/4[L:6:^H8\;E!\P%0(U=XUU-SWV]=6V4JLZ`O>"
^XMB(3.9,23,2,9669,0)="""DATA"",396.18,212,3,593,0)"
^XMB(3.9,23,2,9670,0)="M#%K\YEMWMW:;[TMJ1K203!JP7[AR^X13IW_VP8O21HL]3KDB@_N;`_OG7Y#`"
^XMB(3.9,23,2,9671,0)="""DATA"",396.18,212,3,594,0)"
^XMB(3.9,23,2,9672,0)="M]YPBPY7G;J^]=5CL]*Y#K<OE^['K;.S2'II':*>BY,G%Q2+Q1:)==Z)91*^#"
^XMB(3.9,23,2,9673,0)="""DATA"",396.18,212,3,595,0)"
^XMB(3.9,23,2,9674,0)="MWGH_A1LOD`+GS5!""B3O\;KQPLW*C-?0=E$$*R2""%Y83B9+#NJ<R;5W&7]`MG"
^XMB(3.9,23,2,9675,0)="""DATA"",396.18,212,3,596,0)"
^XMB(3.9,23,2,9676,0)="MB40V*5(V(?=HV<U?`6S5&E,#FM@GF6W'_63!G_3R)^[0H.`7'?S2$PRG]IXR"
^XMB(3.9,23,2,9677,0)="""DATA"",396.18,212,3,597,0)"
^XMB(3.9,23,2,9678,0)="MK'.N.9Q$S""Q)DU5SD_7EM6%9D'39V+WW5CW]W`D2@V#)$X&TB&&+BF1=*""E@"
^XMB(3.9,23,2,9679,0)="""DATA"",396.18,212,3,598,0)"
^XMB(3.9,23,2,9680,0)="MR2&@1$<B_)9TP-4;U!QKU?;POUOR]G*;`W%<L5DWX=F7Z29A+\`LJ3<+-XO6"
^XMB(3.9,23,2,9681,0)="""DATA"",396.18,212,3,599,0)"
^XMB(3.9,23,2,9682,0)="M6W47_#<(/P=_I:9!LZ;1D2R\(.TKFBX-19@M9\G]7O%LXRW\!W]!N)-C/H-;"
^XMB(3.9,23,2,9683,0)="""DATA"",396.18,212,3,600,0)"
^XMB(3.9,23,2,9684,0)="M$IIL'DG\YG7KH')""5GX$LL32,96^_^XVW.Q6;NP-P_5]^-Z/'_-BZ?YV+IO)"
^XMB(3.9,23,2,9685,0)="""DATA"",396.18,212,3,601,0)"
^XMB(3.9,23,2,9686,0)="MI]?A'YI2:<KS:!4==7!`O=C;VF?:>3(>$KO]Y9[3]UYBRB^]F""W-O.4_7Y*$"
^XMB(3.9,23,2,9687,0)="""DATA"",396.18,212,3,602,0)"
^XMB(3.9,23,2,9688,0)="M>K(,O2A=LBT8YUP_(""XK$J4!95$Z;OPP>)4_DI>)'.\;3Q)""7[Y*D`0D_3V$"
^XMB(3.9,23,2,9689,0)="""DATA"",396.18,212,3,603,0)"
^XMB(3.9,23,2,9690,0)="MJU7X.<7J!U&\W:6UH^0/?^FE[\MUR6<_6(:?S\MKBF2!0L])-F2)YRX>R2:O"
^XMB(3.9,23,2,9691,0)="""DATA"",396.18,212,3,604,0)"
^XMB(3.9,23,2,9692,0)="MPOIVC6F1&RR)%\3>-E^V_+Y+6[-T8[>!2C\G*1/SQ0Z)0^(N%MZ&05FM,BA0"
^XMB(3.9,23,2,9693,0)="""DATA"",396.18,212,3,605,0)"
^XMB(3.9,23,2,9694,0)="M5>.<S,,<D;MD?&%-9:NJG+;$N;/QW)BPY?$F(MI/1$]<.2]JPZ36IUJO(F@7"
^XMB(3.9,23,2,9695,0)="""DATA"",396.18,212,3,606,0)"
^XMB(3.9,23,2,9696,0)="M%[.4K.^_$\1,5#3?7KHJSAM!Q,6'<)>M_Z)T&#ZE+-LS?+';;EG[5D\U1I_+"
^XMB(3.9,23,2,9697,0)="""DATA"",396.18,212,3,607,0)"
^XMB(3.9,23,2,9698,0)="M%H&)E/20)'!>,N:2@K!#3[)>\*2H$Z/,/A\G$1^GQ+WPMXO=.HK=8,$`)Q+F"
^XMB(3.9,23,2,9699,0)="""DATA"",396.18,212,3,608,0)"
^XMB(3.9,23,2,9700,0)="M!ZS'67^OW<""/'CSV*9/U,!MU2S_RW$A.;X(T&>#\1;TJY>\?F<3Y449RN-M&"
^XMB(3.9,23,2,9701,0)="""DATA"",396.18,212,3,609,0)"
^XMB(3.9,23,2,9702,0)="M;!7O,Y()H\R+_R4C9C)-(-TG\G,2<@;;=-""S_^>B1.(M&Q-K]A2U)J;IK!*5"
^XMB(3.9,23,2,9703,0)="""DATA"",396.18,212,3,610,0)"
^XMB(3.9,23,2,9704,0)="MO`F#W`<%+;(AQ\\1K4VUG??PP*""F`B%O_<%9!7NM*@@![TJYC!1&UM07+PZQ"
^XMB(3.9,23,2,9705,0)="""DATA"",396.18,212,3,611,0)"
^XMB(3.9,23,2,9706,0)="M.I7(JMOIY/78N?XG26C-OJ?ZY;[0+^4F0&#J;QBG+@=SATRNR.1FYLS+X$MZ"
^XMB(3.9,23,2,9707,0)="""DATA"",396.18,212,3,612,0)"
^XMB(3.9,23,2,9708,0)="MHR7HX6@ZO+N>S0<W0V=&!C>7K-VC^6@P)M>#F]&5P[[,1PQO@K5`6]89;?%."
^XMB(3.9,23,2,9709,0)="""DATA"",396.18,212,3,613,0)"
^XMB(3.9,23,2,9710,0)="M[J8SA\Q&#&^S7;EXUB2MBBKIHBQ>2BSW+U2HNIM.G9LYF4^=P?R:/<W*5$&("
^XMB(3.9,23,2,9711,0)="""DATA"",396.18,212,3,614,0)"
^XMB(3.9,23,2,9712,0)="MJG3E(E0B,.DE9@2FW=2""J-G=](TS_4`2*?C'[(=Z_^\ARZ@HJ*='LVG^X3:5"
^XMB(3.9,23,2,9713,0)="""DATA"",396.18,212,3,615,0)"
^XMB(3.9,23,2,9714,0)="MQYPR+H^H&H\2D:*=7*9:D'3IS(;3T6M&UORM,^515L&`YY9^-+>NG<O1\#""*"
^XMB(3.9,23,2,9715,0)="""DATA"",396.18,212,3,616,0)"
^XMB(3.9,23,2,9716,0)="M?I1@0$F3U5J:R'`RG8^&D]G<F4Y&ES-R.9D-WC@-J;)P4I66[;:GYO)NFK(F"
^XMB(3.9,23,2,9717,0)="""DATA"",396.18,212,3,617,0)"
^XMB(3.9,23,2,9718,0)="M$:=BU#6(Z0J(:8J1UEZ,2$V.@+ZKH$')MJ8=*]NW>S8UE%2=L@*7C+#J;HE^"
^XMB(3.9,23,2,9719,0)="""DATA"",396.18,212,3,618,0)"
^XMB(3.9,23,2,9720,0)="MO&*8C2X=XEQ=.</Y3$JJ&#N*J2?0%V62&XQ4Z>%N>V(&EY>CI'?9K#N<7#?F"
^XMB(3.9,23,2,9721,0)="""DATA"",396.18,212,3,619,0)"
^XMB(3.9,23,2,9722,0)="MG3+TTI**E&C)EI.50VJ,?#.KU*]'@3.4<H]\;?E6L;VJN/*E6,-1(''&-""N4"
^XMB(3.9,23,2,9723,0)="""DATA"",396.18,212,3,620,0)"
^XMB(3.9,23,2,9724,0)="M?=R5A1G7/=2#/^5S(O^;P.6=*YJF?Y""WZ&B4J@IT3ZWPWI%%.'XRP/!HP`0F"
^XMB(3.9,23,2,9725,0)="""DATA"",396.18,212,3,621,0)"
^XMB(3.9,23,2,9726,0)="M7[B<SBN7NNW75;=]%_I@0Q]H!_RB@5]H25JDRQ6^%]<PFQY'[D:$QJM,1>[*"
^XMB(3.9,23,2,9727,0)="""DATA"",396.18,212,3,622,0)"
^XMB(3.9,23,2,9728,0)="MQCI(I6R3\OW0%6Q'<-9:D.M<VU-S<&[5U4%1@H""A6F+TB6K#X.?PHTF`N'<$"
^XMB(3.9,23,2,9729,0)="""DATA"",396.18,212,3,623,0)"
^XMB(3.9,23,2,9730,0)="M.Y^:0&T(SB$TX<D6S&KK9>G0+G6,0&C!(E14!!3-?=EBGL#X+CAM^A):]6^L"
^XMB(3.9,23,2,9731,0)="""DATA"",396.18,212,3,624,0)"
^XMB(3.9,23,2,9732,0)="M+]MJ/X+29QBU!0]0;AFY;E-3;G!Q;C]S&9*I:/ZGQIG\LGKID[@Y1&2^.ES1"
^XMB(3.9,23,2,9733,0)="""DATA"",396.18,212,3,625,0)"
^XMB(3.9,23,2,9734,0)="M8FC4-2<H<[/=]J.W?>*=I]#JXQ0)].=?D%!555\_CW5*/+-<T'IK@M&`JS3+"
^XMB(3.9,23,2,9735,0)="""DATA"",396.18,212,3,626,0)"
^XMB(3.9,23,2,9736,0)="M*9XD+D0N3*,UL1B853H56(QK/P(UHN=1LY*\+&_`R/647$LIZ!]807Q#`[#1"
^XMB(3.9,23,2,9737,0)="""DATA"",396.18,212,3,627,0)"
^XMB(3.9,23,2,9738,0)="ML7CKE4E9&Z?\7\1P^`*S&&*&$DPB7WH>(,V-_%Q%-]>]5+(YW\-OSE-%6$!0"
^XMB(3.9,23,2,9739,0)="""DATA"",396.18,212,3,628,0)"
^XMB(3.9,23,2,9740,0)="M:)U""L[:KFC*V`EQH.H$6$6Q/EMAWD79LLG_*P'L13Z52:`ZHF02T(PLAL=""3"
^XMB(3.9,23,2,9741,0)="""DATA"",396.18,212,3,629,0)"
^XMB(3.9,23,2,9742,0)="M!`4G""1AI50%Q;428'NCLRV$F;7:<[&!!_22T4+94@>&$BQIXX=*QPJ4UA:N\"
^XMB(3.9,23,2,9743,0)="""DATA"",396.18,212,3,630,0)"
^XMB(3.9,23,2,9744,0)="M(('7(R7N>E*QTWD:O-:!FMU<[S70UTO(4/7/AN$V]A=A%'O;T%]RE^""6+'I."
^XMB(3.9,23,2,9745,0)="""DATA"",396.18,212,3,631,0)"
^XMB(3.9,23,2,9746,0)="ML[""RWFBH&GH@U$NS$""7J/2-G#6\<9A2)`LAR%WY;AF""0`FX0JB'U@X:Q+NNG"
^XMB(3.9,23,2,9747,0)="""DATA"",396.18,212,3,632,0)"
^XMB(3.9,23,2,9748,0)="M&\Z^/%%?O.N%8ZII.Y:WB!K&:6/$5=5J,5NG'7H(.&BJ5FF8'U50K98B,&!1"
^XMB(3.9,23,2,9749,0)="""DATA"",396.18,212,3,633,0)"
^XMB(3.9,23,2,9750,0)="ME$.#IFN)CQ4,.6R$&N9I3.""8_(R0GJQ5R@?:;#6(ZF=>&L=);]Q=Y+F@2[26"
^XMB(3.9,23,2,9751,0)="""DATA"",396.18,212,3,634,0)"
^XMB(3.9,23,2,9752,0)="MKN`0(7ZK""0Z]U&K!)PYT+H<$>1AP(;TU_(+3![S<)J1:L$$#;Z64Q[V8G!CQ"
^XMB(3.9,23,2,9753,0)="""DATA"",396.18,212,3,635,0)"
^XMB(3.9,23,2,9754,0)="M>J8M5%8(T)KH(L_!0%E;1-)';?1)&*#G:H*H)HKOPK6?G"":#A5$#A=$0""(.&"
^XMB(3.9,23,2,9755,0)="""DATA"",396.18,212,3,636,0)"
^XMB(3.9,23,2,9756,0)="M%$9#=ORED9\#*8T:5AH-N33N)0WP/S=(K(?VUS.\H;*%0-*H8T]E0<F!A-+8"
^XMB(3.9,23,2,9757,0)="""DATA"",396.18,212,3,637,0)"
^XMB(3.9,23,2,9758,0)="MPTNC<7II'(9!%/N;^L)#F.&D+)&V0""""P![+L-J<""-?31*QLO;K90L9TBA0Q!"
^XMB(3.9,23,2,9759,0)="""DATA"",396.18,212,3,638,0)"
^XMB(3.9,23,2,9760,0)="MYI`!99%B9=%N<410P\NB?;)#@KDD7OKN=OLHFJ1U4`J[`CE!'DVMI^)""2B'V"
^XMB(3.9,23,2,9761,0)="""DATA"",396.18,212,3,639,0)"
^XMB(3.9,23,2,9762,0)="M<""HWTQ<@A:B--<.4+!&*(%7@G&#Q78=-])YY[@E,]*R,Q2D##IZC,B$19""HD"
^XMB(3.9,23,2,9763,0)="""DATA"",396.18,212,3,640,0)"
^XMB(3.9,23,2,9764,0)="M</`8V,'3;3%X\`=L`5EK#![0=R$1!7+F;/PH7/H+69\V3-%FETI""""K@4)-YM"
^XMB(3.9,23,2,9765,0)="""DATA"",396.18,212,3,641,0)"
^XMB(3.9,23,2,9766,0)="M/@E<J?PZ0ME**UVQ]?AN)5!*!JB4>@*U82""54J^54C*P2JF'71<8&A`&=N*L"
^XMB(3.9,23,2,9767,0)="""DATA"",396.18,212,3,642,0)"
^XMB(3.9,23,2,9768,0)="M8P29=@P<X=#)H>JI'*T\T1=G!])C0-?)B9=9?@QH'&8N67[ZF1*D_;Y/):MO"
^XMB(3.9,23,2,9769,0)="""DATA"",396.18,212,3,643,0)"
^XMB(3.9,23,2,9770,0)="M_VP\R<),\[B_>JU:`%[3#60!9S[JB`Y)AY,@R-%L^'8P?>.0)**[C!J""R\\7"
^XMB(3.9,23,2,9771,0)="""DATA"",396.18,212,3,644,0)"
^XMB(3.9,23,2,9772,0)="M4CU-1,UJ)*2$""%*/N2VH*A-4`2RC8J\;]&J8M(20JZGSZYUS,_R01*YRB:C#"
^XMB(3.9,23,2,9773,0)="""DATA"",396.18,212,3,645,0)"
^XMB(3.9,23,2,9774,0)="MQ=+!A%*!CKO9W6!\""(Q^_]:Y(<[M:#:Y'`UYU.RAHZDQ5:CY]6YP,Q_-/W`Q"
^XMB(3.9,23,2,9775,0)="""DATA"",396.18,212,3,646,0)"
^XMB(3.9,23,2,9776,0)="MFT+,-0^C58E&S<&WCD&5ZQWI8>""&#;OWF_&F&4-B&YGB[[HH/LIN9%JH.^U,"
^XMB(3.9,23,2,9777,0)="""DATA"",396.18,212,3,647,0)"
^XMB(3.9,23,2,9778,0)="MCM?5[(I\JL`(KFYZU'6BC;5Z>BVL'A-O]?2.M'K`QG,"".^J\;!@ZN>IQ)'8."
^XMB(3.9,23,2,9779,0)="""DATA"",396.18,212,3,648,0)"
^XMB(3.9,23,2,9780,0)="MK(HQ6)O620.M*!(B$9!65LNMZPM6\R9DLJ1[E[A:H,E"".ZU,%A-ILG!S'/--"
^XMB(3.9,23,2,9781,0)="""DATA"",396.18,212,3,649,0)"
^XMB(3.9,23,2,9782,0)="M%A-KLAR7LI0@<Y:""""LN0FBR%$-J\*+NVY@L`E7!M&<HW9B`8@&&3""K4M,21H"
^XMB(3.9,23,2,9783,0)="""DATA"",396.18,212,3,650,0)"
^XMB(3.9,23,2,9784,0)="MOW0O0LF4*([*9`8%CYP*?-G,6=#>Q5E9=;I`ZZK;PKKJGH8I=9HJL-&FA,3`"
^XMB(3.9,23,2,9785,0)="""DATA"",396.18,212,3,651,0)"
^XMB(3.9,23,2,9786,0)="MJM-2F%A<:T+5JK+5D""O;5;8B/5TU>F;..V<*659=%<NJ5[>LZ&E-*U/9M#)5"
^XMB(3.9,23,2,9787,0)="""DATA"",396.18,212,3,652,0)"
^XMB(3.9,23,2,9788,0)="M3""M+8EK9DN]=J?D$GU+I`E:3C8P([^*M*T-'6E>TTR()#45;5\""\V\*ZLN76"
^XMB(3.9,23,2,9789,0)="""DATA"",396.18,212,3,653,0)"
^XMB(3.9,23,2,9790,0)="MU2K=OY<85S;>N+)AXPK&""AA7-M:XLH41&%U$/$I*D""UA0Q?/AB[&QJPA!;C0"
^XMB(3.9,23,2,9791,0)="""DATA"",396.18,212,3,654,0)"
^XMB(3.9,23,2,9792,0)="MQ7*AV]+$S""(KHJ?U)@[7$6QL6J""QJ0G,00MI;&JMC$T+:VQJ<F.SZ+S&""0@B"
^XMB(3.9,23,2,9793,0)="""DATA"",396.18,212,3,655,0)"
^XMB(3.9,23,2,9794,0)="M,CF/RE=/D`GK09V%71%2K87.LO`Z2SOU)M*MNTW3T=R'G[T5"">^+[$NP@/9`"
^XMB(3.9,23,2,9795,0)="""DATA"",396.18,212,3,656,0)"
^XMB(3.9,23,2,9796,0)="M`16%?O0``2V,\=M5DOB&;+V')``I)#,V3-S%XRMRN0N77K!;I^ES;KVMSWCF"
^XMB(3.9,23,2,9797,0)="""DATA"",396.18,212,3,657,0)"
^XMB(3.9,23,2,9798,0)="M,9('RT<O2G/GQ,FM@FF6'_Z.-@7C*WJ0`""1<)'>KA;=E""X)/'AF&*S_VHU0V"
^XMB(3.9,23,2,9799,0)="""DATA"",396.18,212,3,658,0)"
^XMB(3.9,23,2,9800,0)="MK@[W0A:-EUW@6%02%N2?;`0NL-P;(=%AJ-PUKI>L#W`<&?P3CI*+-,7W7`+Q"
^XMB(3.9,23,2,9801,0)="""DATA"",396.18,212,3,659,0)"
^XMB(3.9,23,2,9802,0)="M;@8WWWKM[DT4BP]C]ZI.Q5""6<)^J9/`W>BT`'K.E,HG84'B""CZ>""X2]4$/ZB"
^XMB(3.9,23,2,9803,0)="""DATA"",396.18,212,3,660,0)"
^XMB(3.9,23,2,9804,0)="M(\-?J-$J!3$VMH5B8ENJH`V5>>.XRT,(\O80,,T]VM9M$0AC*MBZQJGGC6MW"
^XMB(3.9,23,2,9805,0)="""DATA"",396.18,212,3,661,0)"
^XMB(3.9,23,2,9806,0)="M%>SBK2^<*G38<68*9`?K.#-Q@5FEFUP(4GK1SC5YEN(F#0<1Y]F7N@;,829!"
^XMB(3.9,23,2,9807,0)="""DATA"",396.18,212,3,662,0)"
^XMB(3.9,23,2,9808,0)="M7BH#""J.)%<86V3]-`R^,YNFCL@:!M_;A36<=-JHM@1A82)LEO,\R8#+[9!DN"
^XMB(3.9,23,2,9809,0)="""DATA"",396.18,212,3,663,0)"
^XMB(3.9,23,2,9810,0)="M=DG@-'')6]:;'U?A??Z%_>G&X8(-F7.N*%E(:;:4I1EAO3=A""\/?=0H(J460"
^XMB(3.9,23,2,9811,0)="""DATA"",396.18,212,3,664,0)"
^XMB(3.9,23,2,9812,0)="M=Q""!0HJVM""V%T'!3P<2V3JTJ91$1N@T*IR!84+>16K)5L&`-ND`#VLKS=Q>9"
^XMB(3.9,23,2,9813,0)="""DATA"",396.18,212,3,665,0)"
^XMB(3.9,23,2,9814,0)="MX2`KW</F&M!U\(LA,A"".NON*(""^_`L6]AQ7W%M&)9A<O]:>.3AS<+\.U'Z2)"
^XMB(3.9,23,2,9815,0)="""DATA"",396.18,212,3,666,0)"
^XMB(3.9,23,2,9816,0)="M3B/8VV$`)P*JSAG=A%U&V<D8W98<81*B/8@WB!<(FRHC%GF-=/-8-L9>L/2V"
^XMB(3.9,23,2,9817,0)="""DATA"",396.18,212,3,667,0)"
^XMB(3.9,23,2,9818,0)="M@2=BIH9BIB5E9D^-F1J.F9:<F3T<,ZV6FG@8KC>K_-""H@(U@V""P5A,T:R+!9"
^XMB(3.9,23,2,9819,0)="""DATA"",396.18,212,3,668,0)"
^XMB(3.9,23,2,9820,0)="MVBILUL""&S=*N@@=.0R=R,7CGW6Q==IR.FPX)TL3'W0=(\!<""<C6QI6$U<8M0"
^XMB(3.9,23,2,9821,0)="""DATA"",396.18,212,3,669,0)"
^XMB(3.9,23,2,9822,0)="M5ZN#U\3(4%=P-T+#',\M=5W%A5$DVN,DTH+SANC""U!X-A'P//%=6(%ELY^M\"
^XMB(3.9,23,2,9823,0)="""DATA"",396.18,212,3,670,0)"
^XMB(3.9,23,2,9824,0)="M?(K2&ZR</]QU\V1C1WHQ8U?H)FI""U-0A@JEJJF+-\=>=,:DB[SW_XV.<;&,&"
^XMB(3.9,23,2,9825,0)="""DATA"",396.18,212,3,671,0)"
^XMB(3.9,23,2,9826,0)="MZ4U9N.K\7%?[W(,ZE)%]7\""0%=#%2=$.<(3%LE@ABBFD""]0.FB7C,(I.T6(X"
^XMB(3.9,23,2,9827,0)="""DATA"",396.18,212,3,672,0)"
^XMB(3.9,23,2,9828,0)="MJZ-R@X'L#:=I[QNVAFTK`BUZ&&J+<@?+TFS*VOVW%GO9&6=F8EZ.B9/EG)?<"
^XMB(3.9,23,2,9829,0)="""DATA"",396.18,212,3,673,0)"
^XMB(3.9,23,2,9830,0)="M.);/99*SR#K^_+>MX>Y'J>M5&P@`>U&>P\KW>U93U!K5>QY>\*OQ;I+PW8]!"
^XMB(3.9,23,2,9831,0)="""DATA"",396.18,212,3,674,0)"
^XMB(3.9,23,2,9832,0)="M&/E1[7J&(A5N@4:46X>/K_KWCUS\I:L!LIL:@NSZ$)+\MUCLLE.);()S%['_"
^XMB(3.9,23,2,9833,0)="""DATA"",396.18,212,3,675,0)"
^XMB(3.9,23,2,9834,0)="MB7WRY)36T@_K1U!\F5P)4R4LHYCLHAVC:NGZJZ<2;?\2T);/]BGLS(1Y\:)Z"
^XMB(3.9,23,2,9835,0)="""DATA"",396.18,212,3,676,0)"
^XMB(3.9,23,2,9836,0)="M9<'U_CK(%_GE**4DP#-GGI=*I+N?A/@/WMQ,9J-9/=;+X(9ZE?;)\N@:V@QJ"
^XMB(3.9,23,2,9837,0)="""DATA"",396.18,212,3,677,0)"
^XMB(3.9,23,2,9838,0)="MJN$X//]8OP.A>B</+Z2)P+17X+YQ;ISI8$PFP^'=[2!/EIRE;2[C&H]F\]>3"
^XMB(3.9,23,2,9839,0)="""DATA"",396.18,212,3,678,0)"
^XMB(3.9,23,2,9840,0)="M_S#Q<\;LDW,YFCO7]1C#JVIAHUKXT%(A0?.WHUER2F#P>C0>S3^\G)'1]>U@"
^XMB(3.9,23,2,9841,0)="""DATA"",396.18,212,3,679,0)"
^XMB(3.9,23,2,9842,0)="M.""=)D%V92/9N]&XT'SDS#J&&B%#GYG)TQ:/8;$7QU)G=C>>CFS?D_63Z;\+I"
^XMB(3.9,23,2,9843,0)="""DATA"",396.18,212,3,680,0)"
^XMB(3.9,23,2,9844,0)="M*3YX&5'7SO6$V9#CT8TSP])2._)1S;_=A`J0(,8QF#HD@5[*2'Y#\B#`P6C\"
^XMB(3.9,23,2,9845,0)="""DATA"",396.18,212,3,681,0)"
^XMB(3.9,23,2,9846,0)="M`>B95""\,+D>3-]/)W6VB%Q""B5*U$M58=-'P[F8IHH9I:Q]1JTU9$S=Y.;F^9"
^XMB(3.9,23,2,9847,0)="""DATA"",396.18,212,3,682,0)"
^XMB(3.9,23,2,9848,0)="MT`C(HD>1I;<BR_F/,QV.9HZ`+/THLMIIA=GM9#H7=:%Q#%&6U7+@#Y/\^[4("
^XMB(3.9,23,2,9849,0)="""DATA"",396.18,212,3,683,0)"
^XMB(3.9,23,2,9850,0)="M:#%H16ZUTTCSZ>""=,Q8+EWD,77JG%5U7#BLOHJH.5Y%;O594O1ZP.4?(J]Y1"
^XMB(3.9,23,2,9851,0)="""DATA"",396.18,212,3,684,0)"
^XMB(3.9,23,2,9852,0)="M5'5;477)5-9,3%;W*++L=J(U&8V=N9@N^RBZVHU%5G=R+2;+4I]^>\?,OHUI"
^XMB(3.9,23,2,9853,0)="""DATA"",396.18,212,3,685,0)"
^XMB(3.9,23,2,9854,0)="MMR>>=2N8=37,V71?N^2B`0Q`7'6;58\3YO`Q[K#4^'X[F$+A[IHE2#""?F]6"""
^XMB(3.9,23,2,9855,0)="""DATA"",396.18,212,3,686,0)"
^XMB(3.9,23,2,9856,0)="M,&]-L$X<)P&99U,O\N*SVGW@.O""E=I^Q=AX)/(Z-PA[L>JR5I2J`J0)@706P"
^XMB(3.9,23,2,9857,0)="""DATA"",396.18,212,3,687,0)"
^XMB(3.9,23,2,9858,0)="MK@#84`%L*``V50"";""H`M%<""6`F!;!;""M`+BK`KBK`+BG`KB'!\QF9CQ@5A@-"
^XMB(3.9,23,2,9859,0)="""DATA"",396.18,212,3,688,0)"
^XMB(3.9,23,2,9860,0)="MV%+I/,L2)IZH42$>(?G=,^(LXM4U=O9UP=M!!-X;/'W&Q7S8%1QKG'LYFXGJ"
^XMB(3.9,23,2,9861,0)="""DATA"",396.18,212,3,689,0)"
^XMB(3.9,23,2,9862,0)="M_8]!DD/0#>*]MXU_N8XAN=PE*V6""&W?U]-[U[+I:_RSMB3/!K:*-W/URXAG8"
^XMB(3.9,23,2,9863,0)="""DATA"",396.18,212,3,690,0)"
^XMB(3.9,23,2,9864,0)="M1,WS@WBS#""/%!E"");YSFBTLED""A%@3(1H$J;TMQ""&0LE@+2^@'L\B4JFN6;D"
^XMB(3.9,23,2,9865,0)="""DATA"",396.18,212,3,691,0)"
^XMB(3.9,23,2,9866,0)="M^!N.`ZX^._9Q=:""H'G`7F2L[/<[M$KR$^0U'-/<PS?-<_CR7/\_E?Z^Y7!9%"
^XMB(3.9,23,2,9867,0)="""DATA"",396.18,212,3,692,0)"
^XMB(3.9,23,2,9868,0)="MJ,L""D@0X&JL&2!,@RE*%LKI""64.AK*E05H4/MD+9KD+9'K[L0>CXEWO5)P[H"
^XMB(3.9,23,2,9869,0)="""DATA"",396.18,212,3,693,0)"
^XMB(3.9,23,2,9870,0)="MC@[XZ""<8/ZFV&0DD1D[V1_O]/G'6FU7XE(9O]\%?XX`1[;""?/-2#=BBM!1<W"
^XMB(3.9,23,2,9871,0)="""DATA"",396.18,212,3,694,0)"
^XMB(3.9,23,2,9872,0)="M0FOJ@""GMF?+#1ES`S0-'I>9EC3[DY4H_,!2`49(28LB/M$&%#U?)X:O`=_RQ"
^XMB(3.9,23,2,9873,0)="""DATA"",396.18,212,3,695,0)"
^XMB(3.9,23,2,9874,0)="MUFH\J6_</T&IWI$''""3@.E0(+BO'X-D:""BWG)#>_%18J3""0!J96BHV)Q22HJ"
^XMB(3.9,23,2,9875,0)="""DATA"",396.18,212,3,696,0)"
^XMB(3.9,23,2,9876,0)="M632EJX""[([U4$=%J3I=W$$$-""9\L28A$%HG&:3^FL""0<I""""BVY5?[9BR@1OV"
^XMB(3.9,23,2,9877,0)="""DATA"",396.18,212,3,697,0)"
^XMB(3.9,23,2,9878,0)="MP;_Y)""DMY9(LC(17`]NHGH&+46$ZCL%5*@L$QYR(G]53I""E*&UVN((T0A(Q*"
^XMB(3.9,23,2,9879,0)="""DATA"",396.18,212,3,698,0)"
^XMB(3.9,23,2,9880,0)="M>%DHS[Z""[H3/XXH4XDV(TH<""9NH=%>'4.QA]*12%JN9""E!6*35T%B\3&5AJ&"
^XMB(3.9,23,2,9881,0)="""DATA"",396.18,212,3,699,0)"
^XMB(3.9,23,2,9882,0)="MMI*RPNIT67-+J@K4?W5=+8/94<(O""6'+(4H[A2+'<D^I4WI?HFM;C=?Z_69-"
^XMB(3.9,23,2,9883,0)="""DATA"",396.18,212,3,700,0)"
^XMB(3.9,23,2,9884,0)="M>_2+VU`""5?H\^D\K(N4YRE.<>_\*-LTQ4^;_@'4$J>CVZO2YUY5[J8/7?A9F"
^XMB(3.9,23,2,9885,0)="""DATA"",396.18,212,3,701,0)"
^XMB(3.9,23,2,9886,0)="MR)UX&OTJ4]_%114AZY65K2'Q'6?_P/,_)_M>FRE5,(/VGR?0YPGT>0)]GD""?"
^XMB(3.9,23,2,9887,0)="""DATA"",396.18,212,3,702,0)"
^XMB(3.9,23,2,9888,0)="M>_UY`OU3K1WETV(S""QFO3N$/?Q`#[GR#!7?3-04T`$><P%_<DQWBD_+GV[&G"
^XMB(3.9,23,2,9889,0)="""DATA"",396.18,212,3,703,0)"
^XMB(3.9,23,2,9890,0)="MU,%3+_:WDH5__1Y'D=G24=\[Z:CLG4@\_[`&C6&OER4^V<G5G`+)T%5W$OY>"
^XMB(3.9,23,2,9891,0)="""DATA"",396.18,212,3,704,0)"
^XMB(3.9,23,2,9892,0)="M/O*]1/7Q`H7R*'<4/,HR7?]5]EQDL_W?U0YKRGP;D0""=EN50M!;*2U'&GB7L"
^XMB(3.9,23,2,9893,0)="""DATA"",396.18,212,3,705,0)"
^XMB(3.9,23,2,9894,0)="M>2/QK[""1>(36Y81XM@#V/*R>A]7?9%B!XT(H4`U35R9^O#L&^`U0,S8;QI24"
^XMB(3.9,23,2,9895,0)="""DATA"",396.18,212,3,706,0)"
^XMB(3.9,23,2,9896,0)="M;#PEIQ5--4H9RZ[98Y(#Z1^;?3:D399SXP>`>MHQ<'PT3\''(\D3,==48JYY"
^XMB(3.9,23,2,9897,0)="""DATA"",396.18,212,3,707,0)"
^XMB(3.9,23,2,9898,0)="M''.CI\6C[\9;?R%O`')19)V6OVTI%+'84F*QQ5$4>%Y_`V*_LOA]&U524M9W"
^XMB(3.9,23,2,9899,0)="""DATA"",396.18,212,3,708,0)"
^XMB(3.9,23,2,9900,0)="M@8>):M!5#!E=Q571,Y!!BAVN-XD+$CDKB#&7.--78`QFD:YCKF+X,Q@(/:XH"
^XMB(3.9,23,2,9901,0)="""DATA"",396.18,212,3,709,0)"
^XMB(3.9,23,2,9902,0)="M1F)6RD71.""6GH4LA3AI:G>HM,'/G81=R5#DWR#3QY):M$W[?>1'[F*042C+X"
^XMB(3.9,23,2,9903,0)="""DATA"",396.18,212,3,710,0)"
^XMB(3.9,23,2,9904,0)="M):\W9%N\7J2I_)99SB$DCGQ0$<XO@]-,87[OD6BW]9*+5_Q@L=HM/>*2_60Q"
^XMB(3.9,23,2,9905,0)="""DATA"",396.18,212,3,711,0)"
^XMB(3.9,23,2,9906,0)="MV?A!>BOBC_L#Z8>'L_FC1UY>NT$"";9Y?Q!*])+O87_GQ$WD(=\&2[)+DM6EN"
^XMB(3.9,23,2,9907,0)="""DATA"",396.18,212,3,712,0)"
^XMB(3.9,23,2,9908,0)="MJ)>339I^]26Y3WN""N''Z_CYD?ZWWJ:VBQ=;S`K)P@X2R7<08P2ASE\LF5:7;"
^XMB(3.9,23,2,9909,0)="""DATA"",396.18,212,3,713,0)"
^XMB(3.9,23,2,9910,0)="M7_;-\XID2FF'`@SO8WB90$G!);`O+GXJ?HF$D:GW<;=RMV08,GX=ON5*=.Q&"
^XMB(3.9,23,2,9911,0)="""DATA"",396.18,212,3,714,0)"
^XMB(3.9,23,2,9912,0)="M\707](O<J<X??CSY-T.LU95.0MDHXWM""6""<5*06I*O=X(43_O_+$8D1""@B<@"
^XMB(3.9,23,2,9913,0)="""DATA"",396.18,212,3,715,0)"
^XMB(3.9,23,2,9914,0)="M7U<7H&5HQN$T#<6PW-0B8%)4`%V5""DE%>+Q@B!$50+MQ*L:65(FP&Q*@MMBU"
^XMB(3.9,23,2,9915,0)="""DATA"",396.18,212,3,716,0)"
^XMB(3.9,23,2,9916,0)="M8QCFGPU*1*D5X+M""B7:;`6&W^?F'8+H/Y9911'[&3+^@)`Q,\BZPP^442A*3"
^XMB(3.9,23,2,9917,0)="""DATA"",396.18,212,3,717,0)"
^XMB(3.9,23,2,9918,0)="M]'#<2P@^6PR28X&9`I*A:)3W"".8WD(J2#*![P0?!E8""/44NM2,Q%Y$.J1A(\"
^XMB(3.9,23,2,9919,0)="""DATA"",396.18,212,3,718,0)"
^XMB(3.9,23,2,9920,0)="M%Y)6V&)/R6C9@D1GHCE4`6A@>:I""7FH9,)P3BT$52EI^$23D_`O@;@>Y'*G."
^XMB(3.9,23,2,9921,0)="""DATA"",396.18,212,3,719,0)"
^XMB(3.9,23,2,9922,0)="M``!02P,$%``""``@`;E0?-<$*OG+2""```.S$``!8```!);G1E<W1I;F5S7S$Q"
^XMB(3.9,23,2,9923,0)="""DATA"",396.18,212,3,720,0)"
^XMB(3.9,23,2,9924,0)="M,RYP;FPN<F5PO5IMC]LV$OZ^P/X'`HL#DB*+6""]^*W(YT#)M$Y%(E9+L&$51"
^XMB(3.9,23,2,9925,0)="""DATA"",396.18,212,3,721,0)"
^XMB(3.9,23,2,9926,0)="MM&AQ""-#M!FT/N)_?&<J2)9F421UP_K)KFN0,'\X,GQDRD5G.1$%++@6A8DOP"
^XMB(3.9,23,2,9927,0)="""DATA"",396.18,212,3,722,0)"
^XMB(3.9,23,2,9928,0)="M&_[//M.,""]W^^,!%R8J2""U:0-RE5>Z:[%AE-T[>/#_]T^)#'AP\?9%7F52EW"
^XMB(3.9,23,2,9929,0)="""DATA"",396.18,212,3,723,0)"
^XMB(3.9,23,2,9930,0)="MNX\?R?OW))=YE9.=5!GY7DOX,?_I]U]_""W\8]OWP@8LM$Y=O3T]UY^S7E]?Y"
^XMB(3.9,23,2,9931,0)="""DATA"",396.18,212,3,724,0)"
^XMB(3.9,23,2,9932,0)="M##_!TU/;FN2G3/WTRY?7_1^O__E:_Q[=^3V$WQ\?%#MR=B)R1S*VY0E-B6*)"
^XMB(3.9,23,2,9933,0)="""DATA"",396.18,212,3,725,0)"
^XMB(3.9,23,2,9934,0)="M5-MB9(4V3<..GNR7+W_-&S$WC:C;-__;QUL)[-!O_/C1:Y+(-$GD.<G_`0X!"
^XMB(3.9,23,2,9935,0)="""DATA"",396.18,212,3,726,0)"
^XMB(3.9,23,2,9936,0)="M<EUTLAE%\KSC*2,G6GQ+V@4;.[NMW6:<`X,C)Z;8'8F1X]+Z7I+(+(,.N!P<"
^XMB(3.9,23,2,9937,0)="""DATA"",396.18,212,3,727,0)"
^XMB(3.9,23,2,9938,0)="M7'>/+T,'W0T""P&D9.'[CK52P-+AU5[-KZ\XW?5LU62:#^=.3;4FQH>]5:=V@"
^XMB(3.9,23,2,9939,0)="""DATA"",396.18,212,3,728,0)"
^XMB(3.9,23,2,9940,0)="M]1UL?C]R/#XT0!]X44IUOO%LFWIZ!^B6R[V251[9]0S'!A%>D/(`>TMHHP&&"
^XMB(3.9,23,2,9941,0)="""DATA"",396.18,212,3,729,0)"
^XMB(3.9,23,2,9942,0)="MFU+1*J.DE/@CN<;:?PTLX#J5>6LLH""]^<`9U!3J6YYR](UM:UD$^E4E].+2*"
^XMB(3.9,23,2,9943,0)="""DATA"",396.18,212,3,730,0)"
^XMB(3.9,23,2,9944,0)="M]FQGT;4=/<6M)YCQ""*>`&%I!;&""#S15,YBDM,BM^H1=^P=P)P+Z(!2@*84/O"
^XMB(3.9,23,2,9945,0)="""DATA"",396.18,212,3,731,0)"
^XMB(3.9,23,2,9946,0)="M:%EE4A$X+/E>4%%:U5J,N/3-5J$YP1F=E&3+Z5[(`F#!+4)9XSL4.8H!5RD1"
^XMB(3.9,23,2,9947,0)="""DATA"",396.18,212,3,732,0)"
^XMB(3.9,23,2,9948,0)="M;VT*,'4KIQ.9=!\?M<.+A17:N'#J6FW%:(F1B;SA(DFK+1=[4E3`--3Y[?AR"
^XMB(3.9,23,2,9949,0)="""DATA"",396.18,212,3,733,0)"
^XMB(3.9,23,2,9950,0)="M0H_E=$""[+`KLI`15T-^TT90\N2HS6*@/<(L.<%J&;=*Q35\,T5OCK*Q(%,^O"
^XMB(3.9,23,2,9951,0)="""DATA"",396.18,212,3,734,0)"
^XMB(3.9,23,2,9952,0)="M/GF9]TW1!VHU!&KMZIG!3/,A7]_4P\S.*6A5,&HU_&#FYY""1FT/*;"",W\C.>"
^XMB(3.9,23,2,9953,0)="""DATA"",396.18,212,3,735,0)"
^XMB(3.9,23,2,9954,0)="M%#O%OJN82#K:=,_7IJ=!#<M:@RG1""T=9$#K*C(,1[NT8!7X8Q5X8+888-?H8"
^XMB(3.9,23,2,9955,0)="""DATA"",396.18,212,3,736,0)"
^XMB(3.9,23,2,9956,0)="M4%JXHQ1.,R1[E$^D`!?-]8EDA\HSOB^]H%H.H>KJ9(!KZ>QVDVA%8.<5$+""5"
^XMB(3.9,23,2,9957,0)="""DATA"",396.18,212,3,737,0)"
^XMB(3.9,23,2,9958,0)="M.HSYG1^1""%9>0*V&0#7Z&$!:.4;!OO[Q7%-:@)^.B!@,L3/UE6$1&EY191NF"
^XMB(3.9,23,2,9959,0)="""DATA"",396.18,212,3,738,0)"
^XMB(3.9,23,2,9960,0)="M<'Y:EC3Y5$""6K,B94658RNCY:A2A#]E*M32+Y;R0$.9-DX?.UA1/LJ;8:DT["
^XMB(3.9,23,2,9961,0)="""DATA"",396.18,212,3,739,0)"
^XMB(3.9,23,2,9962,0)="M^+=*1XPI]C.FM3,M#1<#KA\NG%&83T)A[D(S<\I'8M#<""XUPYH[&>HB&^\&^"
^XMB(3.9,23,2,9963,0)="""DATA"",396.18,212,3,740,0)"
^XMB(3.9,23,2,9964,0)="MG(3&THI&E28,[?;(P`U3.##L.4NP]`,D=`($ZP:QJX?JSLY8+29AM;!B);&-"
^XMB(3.9,23,2,9965,0)="""DATA"",396.18,212,3,741,0)"
^XMB(3.9,23,2,9966,0)="M%.<L+V4V@M/""#Z?`""2>I4M`$`@@:ST4')(QF7GWM[8I6-(D/11<^1""'L`4[9"
^XMB(3.9,23,2,9967,0)="""DATA"",396.18,212,3,742,0)"
^XMB(3.9,23,2,9968,0)="MF>2*%6PD18K\6%`83TC=(C2HBSZ8JEC/DLC=F-:3C`DWBX(=U=;4'`O:RC=;"
^XMB(3.9,23,2,9969,0)="""DATA"",396.18,212,3,743,0)"
^XMB(3.9,23,2,9970,0)="MF>DHA'Z7O+MP6@)Y9L/<WND,Z]IQ""UM:UW;?Z3-3?RW)B9<'""&6JY-!G(T\L"
^XMB(3.9,23,2,9971,0)="""DATA"",396.18,212,3,744,0)"
^XMB(3.9,23,2,9972,0)="M)7)3E*I*QCG6>H0%8E2*9FY+;OHV_@$Y,M_Q!%*RQGGLM2H]M+<'-S6?QX?\"
^XMB(3.9,23,2,9973,0)="""DATA"",396.18,212,3,745,0)"
^XMB(3.9,23,2,9974,0)="M<""YTS:=7T78IYMKMRDZ$[+NY[)8[(?$+@F%#.&R(A@VS0<-J\'VI^?:1E[!<"
^XMB(3.9,23,2,9975,0)="""DATA"",396.18,212,3,746,0)"
^XMB(3.9,23,2,9976,0)="M1+)X?'B^?EQS5YRE9%F.H;WJ%2+UK]![YSH5*IA7:3&<!'G0SU]?7*?1""X?0"
^XMB(3.9,23,2,9977,0)="""DATA"",396.18,212,3,747,0)"
^XMB(3.9,23,2,9978,0)="MD'-0"">,I_!E.:4PBK1,BM)M4RJT..<7M,C6->]]OPEE>7@[_=I:"".WI@?'\8"
^XMB(3.9,23,2,9979,0)="""DATA"",396.18,212,3,748,0)"
^XMB(3.9,23,2,9980,0)="M9OTZ13%[ULIG&6A#)Z,`#)2YK`1>7_CRZF4[*TD.5.SM(7#IR76CZ\RI+$P,"
^XMB(3.9,23,2,9981,0)="""DATA"",396.18,212,3,749,0)"
^XMB(3.9,23,2,9982,0)="M%V'_!]:I(2:Q+19%-[1@*1?,1TY\E;,'FF:0$SO+L>0>D^J7.(K((WA6FI(]"
^XMB(3.9,23,2,9983,0)="""DATA"",396.18,212,3,750,0)"
^XMB(3.9,23,2,9984,0)="M$_@/6`A-(0CSPIZU.-/^:!+AQ5%UP,##I1N#.YM%ZB*FJ$K%A[GN8#:/BJ#F"
^XMB(3.9,23,2,9985,0)="""DATA"",396.18,212,3,751,0)"
^XMB(3.9,23,2,9986,0)="M`(.:EJL""]JH@\@1'P"";Q/!S5.9I;Z.!PR+@]1XH\R9U[Z3X*S3!VM!HMHT8&"
^XMB(3.9,23,2,9987,0)="""DATA"",396.18,212,3,752,0)"
^XMB(3.9,23,2,9988,0)="M""S/<]A@TL@`T*=6(!JG&O9PS\DPJEE/HX+JK$SMRZ)[HNF[QB0NR48Q^VLJ3"
^XMB(3.9,23,2,9989,0)="""DATA"",396.18,212,3,753,0)"
^XMB(3.9,23,2,9990,0)="MG2I%:T=W&`S3]9,:`""1O$(GQXAW(&5-'MK6+6WE4E*/HUFQN9(Z6E:.1:]\;"
^XMB(3.9,23,2,9991,0)="""DATA"",396.18,212,3,754,0)"
^XMB(3.9,23,2,9992,0)="M(XUOI=$\ARR-7B!M9,N<B;KZ.&*RSO0[GDV*U?UZMNAPZ8P6]@PNGGD@,C<@"
^XMB(3.9,23,2,9993,0)="""DATA"",396.18,212,3,755,0)"
^XMB(3.9,23,2,9994,0)="MTA,S#L'<&8))""5K<+UBWBD'FL&5*L#$4`@\4%F,H7(6-8S%2%-*_KSP2DI4Q"
^XMB(3.9,23,2,9995,0)="""DATA"",396.18,212,3,756,0)"
^XMB(3.9,23,2,9996,0)="M(6E3B1T,`_,LQE.3E<N--):3FA<FH^JO/=3'D/7Y6=&S/C/KA?"",[O6M6EEM"
^XMB(3.9,23,2,9997,0)="""DATA"",396.18,212,3,757,0)"
^XMB(3.9,23,2,9998,0)="M.6210'NKM+RSA/4XIK%'DJ?=J:;<>LU.""L0SY\N&^20+G]<,&JT[3?N*D?HF"
^XMB(3.9,23,2,9999,0)="""DATA"",396.18,212,3,758,0)"
^XMB(3.9,23,2,10000,0)="M$L@A6""3>XW822.B32V6O4\R#NWO_^-!>J';2T=X8P^.GD6=3X0A=&+X(""6=A"
^XMB(3.9,23,2,10001,0)="""DATA"",396.18,212,3,759,0)"
^XMB(3.9,23,2,10002,0)="M&-F?3>'/ZU@GDY`'IO*LKV;;1Q//-Q\G3^_*K8H*_$@F2=5>G%A<NQWE<XK>"
^XMB(3.9,23,2,10003,0)="""DATA"",396.18,212,3,760,0)"
^XMB(3.9,23,2,10004,0)="MK@2BV)&5P+<%22JE8%!Z)O7B;@_3P7#7`[51%2W](L2VQ)5IB:X9;/+Z\O/K"
^XMB(3.9,23,2,10005,0)="""DATA"",396.18,212,3,761,0)"
^XMB(3.9,23,2,10006,0)="MYO6_.$BG@%BFTC<'[69UR7FOM^M%2W?0\(*B6=M]<>$4<0A?R3.&I+\D.R4S"
^XMB(3.9,23,2,10007,0)="""DATA"",396.18,212,3,762,0)"
^XMB(3.9,23,2,10008,0)="M<I+J$ZJ``4Q?IP?A<R8%EJZ8XG)KDS]SS$^;+=#%]01K:6^*M_IZW:`'L#Z+"
^XMB(3.9,23,2,10009,0)="""DATA"",396.18,212,3,763,0)"
^XMB(3.9,23,2,10010,0)="M#M?]U9*'&QRZ,L%VP+(]AZYV='V^!(<3\J8..527)JT?QJN[?A4NI_O5K.]7"
^XMB(3.9,23,2,10011,0)="""DATA"",396.18,212,3,764,0)"
^XMB(3.9,23,2,10012,0)="MBI5<W7.FF:-%8+$^G,UJ"")J7%+6$X2N*MJ?CU%*E7_[\JVO<>L=O!)B]=3#:"
^XMB(3.9,23,2,10013,0)="""DATA"",396.18,212,3,765,0)"
^XMB(3.9,23,2,10014,0)="MU\#FU^=^[UL^D2NY25E6.)C0W%<@<JN\.""<'3B%O3GQD+7QE1:VYWD/4+#"":"
^XMB(3.9,23,2,10015,0)="""DATA"",396.18,212,3,766,0)"
^XMB(3.9,23,2,10016,0)="M;HM1WQ8KT<1VLJE*(F3I9IZ1=\"":U4'#%!\;):P1<C8>$DR'2QCK4B@M).3V"
^XMB(3.9,23,2,10017,0)="""DATA"",396.18,212,3,767,0)"
^XMB(3.9,23,2,10018,0)="M>WYD`JG`4-3X01/&]]]V6BE%5R''VLFE*RFJ+*/MVX3+HS6\I=A5(KF$-K;;"
^XMB(3.9,23,2,10019,0)="""DATA"",396.18,212,3,768,0)"
^XMB(3.9,23,2,10020,0)="ML018H?UYJO/E;SSI006.`J7.:#-@/5@A3'G]!G(DV_%[21&N_&[M@NZ#ZTZK"
^XMB(3.9,23,2,10021,0)="""DATA"",396.18,212,3,769,0)"
^XMB(3.9,23,2,10022,0)="M1Z8?&^ILO;5]:\_QX^#.9<_</0V8.[U""QHYWMKGUV]CGI4-OE'ZA2=O7US+G"
^XMB(3.9,23,2,10023,0)="""DATA"",396.18,212,3,770,0)"
^XMB(3.9,23,2,10024,0)="MHN;VWU60""&""H,$>*6%<>_@902P$""%@L4``(`""`!N5!\UB7:%$#8O``""`&`$`"
^XMB(3.9,23,2,10025,0)="""DATA"",396.18,212,3,771,0)"
^XMB(3.9,23,2,10026,0)="M$@`````````!`""``@($`````26YT97-T:6YE<U\Q,3,N<&YL4$L!`A8+%``"""
^XMB(3.9,23,2,10027,0)="""DATA"",396.18,212,3,772,0)"
^XMB(3.9,23,2,10028,0)="M``@`<%0?-16$2/>!,P``(=T!`!8``````````0`@`(""!9B\``$EN=&5S=&EN"
^XMB(3.9,23,2,10029,0)="""DATA"",396.18,212,3,773,0)"
^XMB(3.9,23,2,10030,0)="M97-?,3$S+G!N;""YF<FU02P$""%@L4``(`""`!N5!\U/^RQ\+P:``#;W0``%@``"
^XMB(3.9,23,2,10031,0)="""DATA"",396.18,212,3,774,0)"
^XMB(3.9,23,2,10032,0)="M```````!`""``@($;8P``26YT97-T:6YE<U\Q,3,N<&YL+F-D95!+`0(6""Q0`"
^XMB(3.9,23,2,10033,0)="""DATA"",396.18,212,3,775,0)"
^XMB(3.9,23,2,10034,0)="M`@`(`&Y4'S7!""KYRT@@``#LQ```6``````````$`(`""`@0M^``!);G1E<W1I"
^XMB(3.9,23,2,10035,0)="""DATA"",396.18,212,3,776,0)"
^XMB(3.9,23,2,10036,0)="E;F5S7S$Q,RYP;FPN<F5P4$L%!@`````$``0`#`$``!&'````````"
^XMB(3.9,23,2,10037,0)="""DATA"",396.18,212,3,777,0)"
^XMB(3.9,23,2,10038,0)="end"
^XMB(3.9,23,2,10039,0)="""DATA"",396.18,212,4)"
^XMB(3.9,23,2,10040,0)="9^2753075921"
^XMB(3.9,23,2,10041,0)="""DATA"",396.18,212,6)"
^XMB(3.9,23,2,10042,0)="1^534"
^XMB(3.9,23,2,10043,0)="""DATA"",396.18,213,0)"
^XMB(3.9,23,2,10044,0)="NOSE, SINUS, LARYNX, AND PHARYNX~113F"
^XMB(3.9,23,2,10045,0)="""DATA"",396.18,213,1,0)"
^XMB(3.9,23,2,10046,0)="^^2^2^3060831"
^XMB(3.9,23,2,10047,0)="""DATA"",396.18,213,1,1,0)"
^XMB(3.9,23,2,10048,0)="Last updated on 07/06/2006"
^XMB(3.9,23,2,10049,0)="""DATA"",396.18,213,1,2,0)"
^XMB(3.9,23,2,10050,0)="Patch DVBA*2.7*113"
^XMB(3.9,23,2,10051,0)="""DATA"",396.18,213,2)"
^XMB(3.9,23,2,10052,0)="3060522^^3060706.1834"
^XMB(3.9,23,2,10053,0)="""DATA"",396.18,213,3,0)"
^XMB(3.9,23,2,10054,0)="^396.184^801^801^3060831^^^^"
^XMB(3.9,23,2,10055,0)="""DATA"",396.18,213,3,1,0)"
^XMB(3.9,23,2,10056,0)="begin 664 Nose_Sinus_Larynx_Pharynx_113.pnl.zip"
^XMB(3.9,23,2,10057,0)="""DATA"",396.18,213,3,2,0)"
^XMB(3.9,23,2,10058,0)="M4$L#!!0``@`(`*54'S7SZ_(39S```$`?`0`A````3F]S95]3:6YU<U],87)Y"
^XMB(3.9,23,2,10059,0)="""DATA"",396.18,213,3,3,0)"
^XMB(3.9,23,2,10060,0)="M;GA?4&AA<GEN>%\Q,3,N<&YLY%U[;!S'>;\'N<>'*%F2Y=CR0VO:BJF8DN_)"
^XMB(3.9,23,2,10061,0)="""DATA"",396.18,213,3,4,0)"
^XMB(3.9,23,2,10062,0)="MX[&&%9$B)<5\E7>R["":-,[<[=[?1WNYY'R3/35P':!&G1=PZ11]I$SM&BB`!"
^XMB(3.9,23,2,10063,0)="""DATA"",396.18,213,3,5,0)"
^XMB(3.9,23,2,10064,0)="MVB1-@:8%DJ8%\E?[3]]`$2!I_PA:M`7:-&Z;IG^D\]R;Y<Z])-<F60$4><?;"
^XMB(3.9,23,2,10065,0)="""DATA"",396.18,213,3,6,0)"
^XMB(3.9,23,2,10066,0)="MF>_[YIO?]YQA97,EK50V@07-X[LM_&T1N'#)MCS'-D=68<U+Q)(5NY6X8_2&"
^XMB(3.9,23,2,10067,0)="""DATA"",396.18,213,3,7,0)"
^XMB(3.9,23,2,10068,0)="MH7N-Y!L)Y2HTZ@TO^97XQ""+<AN:&[T$GI52WUVT+GD*/NIX##,MS+ZR!W>""S"
^XMB(3.9,23,2,10069,0)="""DATA"",396.18,213,3,8,0)"
^XMB(3.9,23,2,10070,0)="M=^[Y!1\M_(!A=7G`L/@#XYMVRV^M0<M/W;F&?KMB.\T+N\&;F;$*J&XX.G02"
^XMB(3.9,23,2,10071,0)="""DATA"",396.18,213,3,9,0)"
^XMB(3.9,23,2,10072,0)="ML5BL0MA;!55H'B/_5]HMN%'#SQ#FDO,_(MR-4>X2CS#F$E.I)=#R#-M21M>6"
^XMB(3.9,23,2,10073,0)="""DATA"",396.18,213,3,10,0)"
^XMB(3.9,23,2,10074,0)="MMZXLAX::)/_C0:Y=#@US-QOF@>@P(^L;Y6`4(N\C^)UGR8_9/!WF5ZBL+S!9"
^XMB(3.9,23,2,10075,0)="""DATA"",396.18,213,3,11,0)"
^XMB(3.9,23,2,10076,0)="M?SO.9?VWL9&K2!#*Z.;&YO5-*O=KEH7D/E;=W@*&""_7)11MS7?;:)D3ONF7#"
^XMB(3.9,23,2,10077,0)="""DATA"",396.18,213,3,12,0)"
^XMB(3.9,23,2,10078,0)="MJIMP=,DV;?0IS2P;YC9TCJR@I;VPU`"".""[W4L<O+*Y>NKU:>7;IZ::N\7)F@"
^XMB(3.9,23,2,10079,0)="""DATA"",396.18,213,3,13,0)"
^XMB(3.9,23,2,10080,0)="MOR6/I#1ST03:S4GR'N/G/\;)JW70A,K46EDM`\M5R]`Q:O11,OMD;&(3.-#R"
^XMB(3.9,23,2,10081,0)="""DATA"",396.18,213,3,14,0)"
^XMB(3.9,23,2,10082,0)="M\%MCXGHP^4T1SLF/F<(\9?WUF+@0R4_$N`CO""$1XY[KMP@5UPVM`1UTQ+!UQ"
^XMB(3.9,23,2,10083,0)="""DATA"",396.18,213,3,15,0)"
^XMB(3.9,23,2,10084,0)="MZ-XF0]\?B""&EYB[:IA[B2\Y-B>Z9,X29!YDZV%%UN/LR=#7'J$+5)NS4&#L+"
^XMB(3.9,23,2,10085,0)="""DATA"",396.18,213,3,16,0)"
^XMB(3.9,23,2,10086,0)="M;_T""Q6*IRJ+O>;9%.:$_%PIT7;Y)UB7YNS'&RY.<EWLZ.V3)1`OS=FI6/+5A"
^XMB(3.9,23,2,10087,0)="""DATA"",396.18,213,3,17,0)"
^XMB(3.9,23,2,10088,0)="M+9F&=C-U<I>2?P6BS6%HY,U8;+2R!IOV)&$/_Y3/B<N493KW*M]NB5VVVS*9"
^XMB(3.9,23,2,10089,0)="""DATA"",396.18,213,3,18,0)"
^XMB(3.9,23,2,10090,0)="M3+YXFXR](3`VN63[CH&6>QWNA-B:6C4LZ*)7#E:""N!(+,3I1UA`:(V1VW-2$"
^XMB(3.9,23,2,10091,0)="""DATA"",396.18,213,3,19,0)"
^XMB(3.9,23,2,10092,0)="MZSX%'<_0@!E""NF[(0CE-?HYNKW<R5E\*D.5\_!`@2URZ%YD&?X2R/LD4&$:!"
^XMB(3.9,23,2,10093,0)="""DATA"",396.18,213,3,20,0)"
^XMB(3.9,23,2,10094,0)="M98H""RR:BO6WM[C-$F:.J>IILP\^P;9C\JU@44QZ[AC!$`QY4@=56@>O:FH%>"
^XMB(3.9,23,2,10095,0)="""DATA"",396.18,213,3,21,0)"
^XMB(3.9,23,2,10096,0)="MZ6K-MS3\""6""JIM$T/(!?N`NI90M43:AWF;A()WX'D=X&F_>'DGGG`RQ#4*8Z"
^XMB(3.9,23,2,10097,0)="""DATA"",396.18,213,3,22,0)"
^XMB(3.9,23,2,10098,0)="MT#5T'YCNK&I8FNEC6%/AKH>X5.V:ZAFNZT,5(4:(`""D$,:OX*0I!J?A^AJ#D"
^XMB(3.9,23,2,10099,0)="""DATA"",396.18,213,3,23,0)"
^XMB(3.9,23,2,10100,0)="ML!""4$<2;_!)?UV<""#'JR@T&%;""""I`P!&""(V.598V;ZQM`=VPKSBVWSI%V`Z_"
^XMB(3.9,23,2,10101,0)="""DATA"",396.18,213,3,24,0)"
^XMB(3.9,23,2,10102,0)="MQS'X&-&O<Q'^'Q'XSTV4&_8.A:&Q(^_Q7<^HM:]YL.F.I_""W3:`+V_G*)8>H"
^XMB(3.9,23,2,10103,0)="""DATA"",396.18,213,3,25,0)"
^XMB(3.9,23,2,10104,0)="MHB,H(U8]8""&-_*#OM%7/)JK:HAM>5%0+N#9[^V(*""=)O6FXB,47FZD@D^0QT"
^XMB(3.9,23,2,10105,0)="""DATA"",396.18,213,3,26,0)"
^XMB(3.9,23,2,10106,0)="ME<2Z'0M!<&2)L^(.>G^$PY+`8?X@K7""\N[EA+""^$_-C%(&98'-C:T*V>V/^V"
^XMB(3.9,23,2,10107,0)="""DATA"",396.18,213,3,27,0)"
^XMB(3.9,23,2,10108,0)="M)R$%3[J[D]^AMF>""(==[H[;G""+4]J_O1]+#%O)?PL,L6\^<E%N#^)=_!8ZF@"
^XMB(3.9,23,2,10109,0)="""DATA"",396.18,213,3,28,0)"
^XMB(3.9,23,2,10110,0)="MU8+``98&\88S""5,+8S?0&MYP0&M</@US4?XA)LZ3N!J=YEC8:>YGP/*A<<\R"
^XMB(3.9,23,2,10111,0)="""DATA"",396.18,213,3,29,0)"
^XMB(3.9,23,2,10112,0)="M^K\JH7\F&#@$&(3^.D1FT_6=.G3:?2T68^4'U&*=X!9K;3]:K)$^%FL@$&<J"
^XMB(3.9,23,2,10113,0)="""DATA"",396.18,213,3,30,0)"
^XMB(3.9,23,2,10114,0)="M<E<(Q+\0B/C1#L3E,D.!^`-7@<M`O`JAI0*^&IIG-]L=;$[NQ68$RTH*,>P9"
^XMB(3.9,23,2,10115,0)="""DATA"",396.18,213,3,31,0)"
^XMB(3.9,23,2,10116,0)="MP%1&*[8'S-XPG2N%]""3/F%@.<#HO,''0<'JLLFJXWJ*]>Y3N#/HBDQ-V=O(E"
^XMB(3.9,23,2,10117,0)="""DATA"",396.18,213,3,32,0)"
^XMB(3.9,23,2,10118,0)="M[GS\0;!N'Q)8SAY=QMZ;#O4R-)'XQR:PQ/D>VBM^9=UVFDCR)RL-I$70PD85"
^XMB(3.9,23,2,10119,0)="""DATA"",396.18,213,3,33,0)"
^XMB(3.9,23,2,10120,0)="M;:4EM.RN<L>ZK?LF=#OOW%7VJTU?LWU7O6;5#--S`(WU-QV(AC'J%D""P@J2,"
^XMB(3.9,23,2,10121,0)="""DATA"",396.18,213,3,34,0)"
^XMB(3.9,23,2,10122,0)="M5MY53J'/F*#9))_I#')F[]MK=$2TNE4$1E`YL1KLY#)BQ78-5QDE>838Y)IO"
^XMB(3.9,23,2,10123,0)="""DATA"",396.18,213,3,35,0)"
^XMB(3.9,23,2,10124,0)="M>@;E;#SDQ$3,>5K4DX[4.HHB2BUWD!0EV=V@,S=UCNR-TXQE)S#H/WT8PL>D"
^XMB(3.9,23,2,10125,0)="""DATA"",396.18,213,3,36,0)"
^XMB(3.9,23,2,10126,0)="MS'PP_S3YH[`)+T=-^`0UX>NWC^>W8\""E]HC""<_)8G*ALY4!'4.,58G(0?!TC"
^XMB(3.9,23,2,10127,0)="""DATA"",396.18,213,3,37,0)"
^XMB(3.9,23,2,10128,0)="M+/)7&1KG)QXAZW0O4]'[`A5]*=8G!9EG2;LQ,L`\DY$;=1/N.:OB#^(@`2&)"
^XMB(3.9,23,2,10129,0)="""DATA"",396.18,213,3,38,0)"
^XMB(3.9,23,2,10130,0)="M774]QR>!=3]/)""U.\)-L@N>C$YP^JV[AMX:>(4^S!$F/+'1BB@GAY0#0'PGF"
^XMB(3.9,23,2,10131,0)="""DATA"",396.18,213,3,39,0)"
^XMB(3.9,23,2,10132,0)="M6+[&[6H+(J2VL-O6:*.?/0=%/FT2H_M.U;""`AX""ZYMA-M0HT#RT$HLAI&):!"
^XMB(3.9,23,2,10133,0)="""DATA"",396.18,213,3,40,0)"
^XMB(3.9,23,2,10134,0)="M0OB+HD\WD*/`<""1!Z#O)Z/O%@#Y5@,ZYH1R%>P-^(D(;.H(;KRS9S:H=J!A_"
^XMB(3.9,23,2,10135,0)="""DATA"",396.18,213,3,41,0)"
^XMB(3.9,23,2,10136,0)="ME9D3%W`Y0OTI@?IBL%(A.RE8Y;VTQ--*(H.^LN@KA[[RZ*N`ON;05Q%]S:.O"
^XMB(3.9,23,2,10137,0)="""DATA"",396.18,213,3,42,0)"
^XMB(3.9,23,2,10138,0)="M4EI)9M+I7C0611H_V)/&^7XT)FZ/QD$T(D?I3?YV+*2RGY&J1&DHE;CG4J`-"
^XMB(3.9,23,2,10139,0)="""DATA"",396.18,213,3,43,0)"
^XMB(3.9,23,2,10140,0)="M+=MLMURUA?QZI.C#*41R0$8*(4:*O1C)#^<$GPYTVX4MY,BJ.MPVP/""J/3(@"
^XMB(3.9,23,2,10141,0)="""DATA"",396.18,213,3,44,0)"
^XMB(3.9,23,2,10142,0)="M)W,A3D!/3K)#[]*`>%7W(<G!.,!O`H&50""T'X&ET0)Y8?<F*]U^=7&$PGH:0"
^XMB(3.9,23,2,10143,0)="""DATA"",396.18,213,3,45,0)"
^XMB(3.9,23,2,10144,0)="MO#(@E:40E;TEGQYN,R#)8]BV7<V$"",W!K6V&5*R'!6;P.$.\C,]SQ_A^;H(3"
^XMB(3.9,23,2,10145,0)="""DATA"",396.18,213,3,46,0)"
^XMB(3.9,23,2,10146,0)="M/]XG59^GH7IB2G2U!.PZW<DU!SM""2""3/JJX&'(>$&@Y2LQH*00R/FK(&0@+D"
^XMB(3.9,23,2,10147,0)="""DATA"",396.18,213,3,47,0)"
^XMB(3.9,23,2,10148,0)="MV%SLDX3(AS<Q)^%2/&JDE\LMJ""&)JZ!I^Y&DM@HL735J*C1(78^A$'!=4(>J"
^XMB(3.9,23,2,10149,0)="""DATA"",396.18,213,3,48,0)"
^XMB(3.9,23,2,10150,0)="MX:IPMX7(T45[/I"""",`DE""7D/,1?B?3+UR+WI2BP+FL/H?0^35R,NB?SS!RZY"
^XMB(3.9,23,2,10151,0)="""DATA"",396.18,213,3,49,0)"
^XMB(3.9,23,2,10152,0)="MV571BZ*B_S""JZ)4^><$\&R!%I)9BSW]:XJ9=""Q0=H:8.64;M!JQCG_@15ZVC"
^XMB(3.9,23,2,10153,0)="""DATA"",396.18,213,3,50,0)"
^XMB(3.9,23,2,10154,0)="MP-8WT7;V<#2+]5YX!\6^AE6#U`GJI_GSH94\%J&IH_EJD"";;,[N.XCR`8J!@"
^XMB(3.9,23,2,10155,0)="""DATA"",396.18,213,3,51,0)"
^XMB(3.9,23,2,10156,0)="MG8=V#].B>I_OI=Z%MT2]PT)YH*=ZSQTT]>X6ZZ=#M>(3C.E7@EKQUF$(]D=D"
^XMB(3.9,23,2,10157,0)="""DATA"",396.18,213,3,52,0)"
^XMB(3.9,23,2,10158,0)="MFX![/B]2UL?WAF@=<WJ<!OME&\6!F\!$0=+^2MHSS4W<31BYGS%B23I0""`LM"
^XMB(3.9,23,2,10159,0)="""DATA"",396.18,213,3,53,0)"
^XMB(3.9,23,2,10160,0)="MPH(*JA9)VR&KN2`?MB0.N\6&!=%A[RKO`-.T=[`QUHU:S=!\TVOW""U_3XN@O"
^XMB(3.9,23,2,10161,0)="""DATA"",396.18,213,3,54,0)"
^XMB(3.9,23,2,10162,0)="M[*V63`DM0,2>.K#N.W56R):CCFR6C#!+I^3Z*0G2G0F0#I?2W1:$6D,UFBU@"
^XMB(3.9,23,2,10163,0)="""DATA"",396.18,213,3,55,0)"
^XMB(3.9,23,2,10164,0)="M.$TD?KF,6#(\^?68*'MIP>3,,OIFVG7BHX`J=L=4M[,>`[/$S3"";<FOPAB/("
^XMB(3.9,23,2,10165,0)="""DATA"",396.18,213,3,56,0)"
^XMB(3.9,23,2,10166,0)="M"")!/)4TFL9K6)VG^\U&>3'KZ(!8WND;1>5%'7N8Z\HHLC""Z4A@ZC1W""/I')L"
^XMB(3.9,23,2,10167,0)="""DATA"",396.18,213,3,57,0)"
^XMB(3.9,23,2,10168,0)="M%;K8N@,4""0'#;""NCE\FWDV6$J`[2;\]H0I?^KE?$7Q!W3;47J7/IH;,2E%2E"
^XMB(3.9,23,2,10169,0)="""DATA"",396.18,213,3,58,0)"
^XMB(3.9,23,2,10170,0)="M;)N&[BJI5>,Y'_\PLHCT1V8QYT3!?8,+#@06\VF!FLS!R(EW%7P(8]/=!5\J"
^XMB(3.9,23,2,10171,0)="""DATA"",396.18,213,3,59,0)"
^XMB(3.9,23,2,10172,0)="ME?)=Y!V3R_O$I0@8**=$I&X!I""!MY'3U4HQ<""!72D<JGJ,1]\U6CD1)/A<3M"
^XMB(3.9,23,2,10173,0)="""DATA"",396.18,213,3,60,0)"
^XMB(3.9,23,2,10174,0)="MRM12`S:QT-2J[UC*J2LA!Y3YA,K8.K1;)G"";O.(BT9U""B-YJA-Y%@=[Y@^1M"
^XMB(3.9,23,2,10175,0)="""DATA"",396.18,213,3,61,0)"
^XMB(3.9,23,2,10176,0)="M*5V=K0PSJ-LA7^MW`E_K[.'KE!B56C!F-'\AU*4G[?\]R5POPT+J=9FJUSYS"
^XMB(3.9,23,2,10177,0)="""DATA"",396.18,213,3,62,0)"
^XMB(3.9,23,2,10178,0)="MOL2Z:A""EOR!)]""\+09U+&.(QE'S@O%BP_6SLS>J1X#OO?V(ABI^.CGN2B'T&"
^XMB(3.9,23,2,10179,0)="""DATA"",396.18,213,3,63,0)"
^XMB(3.9,23,2,10180,0)="MNN=44,.A93B'(7486#SQ!>HP_&=L;PGM(#D,70KI:7'!>2/QZX'R6@)PI8>J"
^XMB(3.9,23,2,10181,0)="""DATA"",396.18,213,3,64,0)"
^XMB(3.9,23,2,10182,0)="MHS-SL.D[OHD-`E(/#0FFC@!UR<%!KU571E>POZ!,5/""H#L(I5[E75""P'Z`2>"
^XMB(3.9,23,2,10183,0)="""DATA"",396.18,213,3,65,0)"
^XMB(3.9,23,2,10184,0)="M6?>*<H_X2]OUH-UL0Q/7<_I4PV68'=+(KW![_Q%9UT0A<SBZ)C*AS1)=[16!"
^XMB(3.9,23,2,10185,0)="""DATA"",396.18,213,3,66,0)"
^XMB(3.9,23,2,10186,0)="MY4+`\E#+GEIQ$)'`5,;7P*YAXIX7);7L-9JVH2MCY58#6OBGY""73[-&Z,%!&"
^XMB(3.9,23,2,10187,0)="""DATA"",396.18,213,3,67,0)"
^XMB(3.9,23,2,10188,0)="MD3D);]#=^6(L@KP/""CF.X0HP(2T$FF=L0XYOMYCM[]ZAP)RQY&OA50DRM\GO"
^XMB(3.9,23,2,10189,0)="""DATA"",396.18,213,3,68,0)"
^XMB(3.9,23,2,10190,0)="M'H:S,XH,O;/,AWA_J$/AA:CE/$8MYU4(=*`UX#X[-),+1?_3C(UVU`:]8\6!"
^XMB(3.9,23,2,10191,0)="""DATA"",396.18,213,3,69,0)"
^XMB(3.9,23,2,10192,0)="MS_E(KTC8W.#<O""UG9F1\B/F%1/D6;/1^.?S#V_K<$+@G-CDK]^\CPYVXU4@_"
^XMB(3.9,23,2,10193,0)="""DATA"",396.18,213,3,70,0)"
^XMB(3.9,23,2,10194,0)="M*ZY6CL'&5%P2(V4+@P9Q4^L0.*J&3RX""_#""-ZT]DSL^QF+Z%[-4.A#>5LY<\"
^XMB(3.9,23,2,10195,0)="""DATA"",396.18,213,3,71,0)"
^XMB(3.9,23,2,10196,0)="MU42`Z*E-Q$_#;*,@""K_#$P/X0^C1V7!*`#_>QE.$/\R&Z!%AY62I@@ZSRP*S"
^XMB(3.9,23,2,10197,0)="""DATA"",396.18,213,3,72,0)"
^XMB(3.9,23,2,10198,0)="M<X>C%9W7:LX2EA=XD!ZT!8T?AF1V2FH6F-_][]0B*HSU+TI""JM/,,""`'QW8("
^XMB(3.9,23,2,10199,0)="""DATA"",396.18,213,3,73,0)"
^XMB(3.9,23,2,10200,0)="MJA(W'[N$^ZR5C5?('Z*M;'^WK\\C)FZUE2TKUL'9:>)D,7!EOM&OE8T=]TM,"
^XMB(3.9,23,2,10201,0)="""DATA"",396.18,213,3,74,0)"
^XMB(3.9,23,2,10202,0)="MAD!M.AXMI-^XNHN7V[`TT`(:2:7C<UHMP[5U!#0S30A([RZVN`8IK5>A[D""$"
^XMB(3.9,23,2,10203,0)="""DATA"",396.18,213,3,75,0)"
^XMB(3.9,23,2,10204,0)="M5[C`[3D0>#@3KE;;*E!;C;9K:`:PSEU\&\3>.T7.SE93D20_SMW<AR65_8OK"
^XMB(3.9,23,2,10205,0)="""DATA"",396.18,213,3,76,0)"
^XMB(3.9,23,2,10206,0)="M?K.*,""I`V0[S>=RO,D=0F9TE\HRJ82,TZLCB[;3CPQ9<><O&:*CH>S(>K;BF"
^XMB(3.9,23,2,10207,0)="""DATA"",396.18,213,3,77,0)"
^XMB(3.9,23,2,10208,0)="M""\/Y_@LW:..^VF""@T@0Z<G0L]>GS#D`08YGM6=6R/54S#8N$I_SL\]#M>@,Q"
^XMB(3.9,23,2,10209,0)="""DATA"",396.18,213,3,78,0)"
^XMB(3.9,23,2,10210,0)="M6A09Y0629R1\SJ7?],IR7'0_CH;<CY*HE:]RK9R1N!_IN<PMUAF2&_B_RHZM"
^XMB(3.9,23,2,10211,0)="""DATA"",396.18,213,3,79,0)"
^XMB(3.9,23,2,10212,0)="MC%8:#H3*R`JRPHKRA(J_QWHU.K#@<""4^`!))6WJR11&)6`HZ\5.R.F2[V?+L"
^XMB(3.9,23,2,10213,0)="""DATA"",396.18,213,3,80,0)"
^XMB(3.9,23,2,10214,0)="MIJOJOB-@T'[933+>YJ20\G.20M]]#%(09`38RN%E/W/(@NK?C(583.A1#D]="
^XMB(3.9,23,2,10215,0)="""DATA"",396.18,213,3,81,0)"
^XMB(3.9,23,2,10216,0)="M]IW@X`7G\2!!(0_;1D)0^%\Q&40,=Q`U&_3P@``-D9`LVSK?Q>X.#8%!IFI*"
^XMB(3.9,23,2,10217,0)="""DATA"",396.18,213,3,82,0)"
^XMB(3.9,23,2,10218,0)="MS%2)X)*XR#CZK8""CJP)'<[>6IQKCN02>A#P>9""HOXSM;0!TJ$S13OXE>]LDO"
^XMB(3.9,23,2,10219,0)="""DATA"",396.18,213,3,83,0)"
^XMB(3.9,23,2,10220,0)="MQGN$:6DI4+X<DP%E87B@1!""I2C!R9,781MA9-G:5T2=4_(V&=DLLM.M5?<N$"
^XMB(3.9,23,2,10221,0)="""DATA"",396.18,213,3,84,0)"
^XMB(3.9,23,2,10222,0)="M]DY`\L>E).?[D1PYX#:9P=U>6?4R:+O*9`Z_R+,7!?QBCKXX4L0N2X;]:OP)"
^XMB(3.9,23,2,10223,0)="""DATA"",396.18,213,3,85,0)"
^XMB(3.9,23,2,10224,0)="M_F.L>P,0*WXC32&*\S`C/!$8I0\?@I!I3(9WO!IW9^@2FK^01$P/1""(FVI)R"
^XMB(3.9,23,2,10225,0)="""DATA"",396.18,213,3,86,0)"
^XMB(3.9,23,2,10226,0)="MR32A4V_OMZB).;\_(5[B<##O<!G(V2N(9R#.L&7\1\EQU'2/.P7&)%!^![XX"
^XMB(3.9,23,2,10227,0)="""DATA"",396.18,213,3,87,0)"
^XMB(3.9,23,2,10228,0)="MBCC^=)T7NA]`'=]$B&]9^/CI6!D""%]^[H4QL:!IPR1T<L4'N;>$.V)?I5KS&"
^XMB(3.9,23,2,10229,0)="""DATA"",396.18,213,3,88,0)"
^XMB(3.9,23,2,10230,0)="M6,D%#MA?'X:L]CC?BT<Z>['(G*MTJ$5VL*VX(=:T]E>2FX?V)PE;][&=N""TI"
^XMB(3.9,23,2,10231,0)="""DATA"",396.18,213,3,89,0)"
^XMB(3.9,23,2,10232,0)="M#:_:6N!/A8IT""UWV.(OYGPNUM1V.BYIR(:D]RI1A+#!(SP>=-NGB_(&^J(GK"
^XMB(3.9,23,2,10233,0)="""DATA"",396.18,213,3,90,0)"
^XMB(3.9,23,2,10234,0)="MAQ^Z.2,>I""O_/';H^D$F)+N_Q!IQOQJZ#B[QH>CN/T%W_S4K..ZW#W:\R`D+"
^XMB(3.9,23,2,10235,0)="""DATA"",396.18,213,3,91,0)"
^XMB(3.9,23,2,10236,0)="M@-\9NGWB]^/15O]_I?XPSNFC#:%.+_J&J:N;CHW<PN8T]N(TG&+""482)L`[C"
^XMB(3.9,23,2,10237,0)="""DATA"",396.18,213,3,92,0)"
^XMB(3.9,23,2,10238,0)="M0HO^TE4U$QA-J&._#U=<D0TST""L62>,L#-P%37R6$TTTXYZ[H%90(,(?I\/M"
^XMB(3.9,23,2,10239,0)="""DATA"",396.18,213,3,93,0)"
^XMB(3.9,23,2,10240,0)="M&*:)/VJIN-UU&Q@F]D=5PR+/3U^V-9]D^@*""=@Q+MW=F5>#B;C2/'[.99A]`"
^XMB(3.9,23,2,10241,0)="""DATA"",396.18,213,3,94,0)"
^XMB(3.9,23,2,10242,0)="MPY#F7^BAH:""^,*VZA#\,:7C""""Y+84Y3;O""BWZ_PX@B1==YW)34(BDAEZC?:O"
^XMB(3.9,23,2,10243,0)="""DATA"",396.18,213,3,95,0)"
^XMB(3.9,23,2,10244,0)="M#CR`VX6!0Z[W"">3FH$>W\=4""[""H@+"";50S:^'W4ED3J+4;<MH6Z54[<%MPVX"
^XMB(3.9,23,2,10245,0)="""DATA"",396.18,213,3,96,0)"
^XMB(3.9,23,2,10246,0)="MHW(BR5(0""LG;.)NZC76LK0)-0Z$T+6ZZ?K5I>/CR+LS!!1DI[.;$Q%%1P1+C"
^XMB(3.9,23,2,10247,0)="""DATA"",396.18,213,3,97,0)"
^XMB(3.9,23,2,10248,0)="M44H2&?GS)?'YZSV>STJ?GTN+SUL]GL]=Z&*Y6*3T-S12^J6^IDL`TCZ&1$39"
^XMB(3.9,23,2,10249,0)="""DATA"",396.18,213,3,98,0)"
^XMB(3.9,23,2,10250,0)="MR0[*,I;G""<GO8JL'`Y!=/GQ-=Y.2E9MG(/MKX3LW.V6""#LK.4)1=@[23:*-E"
^XMB(3.9,23,2,10251,0)="""DATA"",396.18,213,3,99,0)"
^XMB(3.9,23,2,10252,0)="M6'@?H[<]<H1SF<`+=,[M*^PMLI3.%M&K?^(1^#]+ZB!?(H""(A@-J$\4`&`,1"
^XMB(3.9,23,2,10253,0)="""DATA"",396.18,213,3,100,0)"
^XMB(3.9,23,2,10254,0)="MKWCC(>YJAD?003,<M'EQX*_1RTOPFRXY!FAHI$H`$:XA;(6J"":RZC\_ZH4]-"
^XMB(3.9,23,2,10255,0)="""DATA"",396.18,213,3,101,0)"
^XMB(3.9,23,2,10256,0)="M:\!'*H-K)#8N)KB^B=%R.IBI:>L4L&OH]S:3+1O.5:L`/XS>`?6Z@X`9T]L'"
^XMB(3.9,23,2,10257,0)="""DATA"",396.18,213,3,102,0)"
^XMB(3.9,23,2,10258,0)="MGN:+`N,)D_']WY+$9!:<4Y^E_Q#_(4)!AU3^$?)/.N&\*.F@B6A6`HA/5,49"
^XMB(3.9,23,2,10259,0)="""DATA"",396.18,213,3,103,0)"
^XMB(3.9,23,2,10260,0)="MF\BU1>;@)C3;MS%[29S]:[&(?]B9O0#%V4G]H<NL_28MI<5)/\<G_1/)I%5="
^XMB(3.9,23,2,10261,0)="""DATA"",396.18,213,3,104,0)"
^XMB(3.9,23,2,10262,0)="MG)34ZQG+@-(PTZGA%]*/%=+$0(&J@0_BG+MU""K,BA1Q6DW\HH?`#FD@AX#T)"
^XMB(3.9,23,2,10263,0)="""DATA"",396.18,213,3,105,0)"
^XMB(3.9,23,2,10264,0)="M8""^AZLR;25]>I._/.'WOD]#W9""V@[QJ:S\*TH'EL!*M(;(AD>O)VQ_`:MD]_"
^XMB(3.9,23,2,10265,0)="""DATA"",396.18,213,3,106,0)"
^XMB(3.9,23,2,10266,0)="MY9"",*MJ]37)P'NU2WR1[1T9*5ES,1(51\C$))95-+!HTH(==L3:*#W""?AV;Z"
^XMB(3.9,23,2,10267,0)="""DATA"",396.18,213,3,107,0)"
^XMB(3.9,23,2,10268,0)="M.*IW5?0-'S^V((>'FLV/09G(_3""1*!VHV77+>!Z)K-5PT%CN@HRDC+BE>#M4"
^XMB(3.9,23,2,10269,0)="""DATA"",396.18,213,3,108,0)"
^XMB(3.9,23,2,10270,0)="M\NL2[/KU97K(&/LMG*)FRX2(/@XF:&&H]T5N/_20=T9N]""""B(]Z?4<.7MCEV"
^XMB(3.9,23,2,10271,0)="""DATA"",396.18,213,3,109,0)"
^XMB(3.9,23,2,10272,0)="MRS'HS:%Z9Q""""<IA=[+?,XK$(8+710$0O(-3Q\G.8HK=_4BSL=YB(%QC&:3G_"
^XMB(3.9,23,2,10273,0)="""DATA"",396.18,213,3,110,0)"
^XMB(3.9,23,2,10274,0)="M>/S_W/2S""7\O?,#[\2""A\LN'S_8?X=HU*7AM5+G>&SKGN-OUG.-3!KYVHFS4"
^XMB(3.9,23,2,10275,0)="""DATA"",396.18,213,3,111,0)"
^XMB(3.9,23,2,10276,0)="M]UET%6YHXCV#%Z/;]D@%-EO0`9[O0.EVRXLGOGBB+7%_=""1ETS?=+F.$#@19"
^XMB(3.9,23,2,10277,0)="""DATA"",396.18,213,3,112,0)"
^XMB(3.9,23,2,10278,0)="M>V_]ZXQQ?`NZ+0-1@Q-6#C[I)QU./&R9_#9WBZ<E--T@[TC=^[38P_<=/LC#"
^XMB(3.9,23,2,10279,0)="""DATA"",396.18,213,3,113,0)"
^XMB(3.9,23,2,10280,0)="M,L9LW])=Z2""A(Y,_X(.\)SK(%*6$7=7V-G9DBM1GQ;N3CS&,2?Y,X`Y=""LCW"
^XMB(3.9,23,2,10281,0)="""DATA"",396.18,213,3,114,0)"
^XMB(3.9,23,2,10282,0)="M&/FK^`J'&:0P&KNO>(>^3ZYVP,""(9B2N(48]$WF^Y]09@#OTD,?'/LH""YRRI"
^XMB(3.9,23,2,10283,0)="""DATA"",396.18,213,3,115,0)"
^XMB(3.9,23,2,10284,0)="M\9*K9S2H4^.`A(''9*W0Y_97_5<47.C6\,$D=P4@QB62J^/W__](3CR3F7R-"
^XMB(3.9,23,2,10285,0)="""DATA"",396.18,213,3,116,0)"
^XMB(3.9,23,2,10286,0)="M;Y@KT0US=-&T;9SF01X@PB;I8""Q.^P1=AD_ST4:CH\4?DPZ0EQW*3)R18`!]"
^XMB(3.9,23,2,10287,0)="""DATA"",396.18,213,3,117,0)"
^XMB(3.9,23,2,10288,0)="M9Y_L6W:J^96A^!:,7$&$OC_BCZL2MJ]9N(-<[J.P0BY-R2:M(5R4B;YI[F44"
^XMB(3.9,23,2,10289,0)="""DATA"",396.18,213,3,118,0)"
^XMB(3.9,23,2,10290,0)="M8TZ0N?!/15DK\A>C]>)BIE#8<RHG/%#(#MWH/E""FF,^$RN]TH,E@H$RH)__#"
^XMB(3.9,23,2,10291,0)="""DATA"",396.18,213,3,119,0)"
^XMB(3.9,23,2,10292,0)="M/4::S\_MN39SSTA,BN\F4OQ6Q`Z)S&5[7IQTIZ3BQR17)X/_""X\DOAS0>8:."
^XMB(3.9,23,2,10293,0)="""DATA"",396.18,213,3,120,0)"
^XMB(3.9,23,2,10294,0)="M/C*736>&:N]*OC5;0=ZX-8+-D#*""(;5KXV_7SK*<:/3XE8_)GY5J4]_N@\C9"
^XMB(3.9,23,2,10295,0)="""DATA"",396.18,213,3,121,0)"
^XMB(3.9,23,2,10296,0)="MG)''U4SX+KB)?)J&!AC$NE+%6@L^'QN$K%P_LL:')2NBE4Q*54+.;W""MG)'H"
^XMB(3.9,23,2,10297,0)="""DATA"",396.18,213,3,122,0)"
^XMB(3.9,23,2,10298,0)="M=RX?.H84&8EQ]FIL@*%RH3O9(D-EQ:WRM6Y;9:28R^1""%Z%UJRD50G]6B,<\"
^XMB(3.9,23,2,10299,0)="""DATA"",396.18,213,3,123,0)"
^XMB(3.9,23,2,10300,0)="MKP<QSVN'H0=^2I882HMU0][3]:(DP5EDE[>R0^HS[CGQVK!9>CAWEO^I`*Q1"
^XMB(3.9,23,2,10301,0)="""DATA"",396.18,213,3,124,0)"
^XMB(3.9,23,2,10302,0)="MYCZYJEW,8K""H[CQA]RG.KJP?\;(!ZA:],JJFJIZ/]H<Z`W>!YIV3QB+%>6'H"
^XMB(3.9,23,2,10303,0)="""DATA"",396.18,213,3,125,0)"
^XMB(3.9,23,2,10304,0)="MY$<YPGY4.C;.(!`OC<\QTVP^UD;_NHQ=$L<.SI!^5S)V!O=?T,O5='(Q*5ZD"
^XMB(3.9,23,2,10305,0)="""DATA"",396.18,213,3,126,0)"
^XMB(3.9,23,2,10306,0)="MH`E]IO,''-A95_F$I8PX87""#R:;DB!;]*U/(;\43R!,U)>8E_QO=^=_C^[41"
^XMB(3.9,23,2,10307,0)="""DATA"",396.18,213,3,127,0)"
^XMB(3.9,23,2,10308,0)="MS=0\R$5CXNR:0'@@GUXWOHBA85'D@$^9_*3DJKP?6\:K2L05S(S;UBVJZJ'6"
^XMB(3.9,23,2,10309,0)="""DATA"",396.18,213,3,128,0)"
^XMB(3.9,23,2,10310,0)="M=75&UV?59G-6[4&-]*18.M3LYD6<)+6KDY0:LN%'9OZ9WC]$]'XF<HWY3*<]"
^XMB(3.9,23,2,10311,0)="""DATA"",396.18,213,3,129,0)"
^XMB(3.9,23,2,10312,0)="M8'ZXULV[>1<[W2'!5>0]+I[G#9I*ZKIUT[)WK-Y7C'$+1/>LSFA_=[0#']&>"
^XMB(3.9,23,2,10313,0)="""DATA"",396.18,213,3,130,0)"
^XMB(3.9,23,2,10314,0)="M.1@GL?9ZHZ'=]JNQ""(NG!!:S/>]>YVE:.M0?1X>:%8::.QBWR^R5%C/^%T(A"
^XMB(3.9,23,2,10315,0)="""DATA"",396.18,213,3,131,0)"
^XMB(3.9,23,2,10316,0)="M=^<8K""BLCMLF\2<Z(X;QJ?>0!<F0HQ*MS8H+48I'%B(KC)D^V#>T,/5]/%0D"
^XMB(3.9,23,2,10317,0)="""DATA"",396.18,213,3,132,0)"
^XMB(3.9,23,2,10318,0)="M307%XM</7\+XJ*P<P1#^9>I$CC`Y_+VD(4]E#7FVV\)I8^-YUL?FJ&5JE6^3"
^XMB(3.9,23,2,10319,0)="""DATA"",396.18,213,3,133,0)"
^XMB(3.9,23,2,10320,0)="MM^^]J4X37]_'""%]S;'/4)%?:<8:(^V&R]CQY[28KCOD!)JM)23FIB#V""!62="
^XMB(3.9,23,2,10321,0)="""DATA"",396.18,213,3,134,0)"
^XMB(3.9,23,2,10322,0)="MV[/T^""X9G)PZ,VHJL1^DJH9K,[M&$QMQO5N^F%]:1F9-?BRVMVE*:""[<(@VI"
^XMB(3.9,23,2,10323,0)="""DATA"",396.18,213,3,135,0)"
^XMB(3.9,23,2,10324,0)="M>&2/-;3R/VTC;?$HB>S<Q=CYK*04Y:Z@(2'0&BK:!KA85,-=12RA1[DQ+'PO"
^XMB(3.9,23,2,10325,0)="""DATA"",396.18,213,3,136,0)"
^XMB(3.9,23,2,10326,0)="M+Y'=+.O.F6:6<IH4P(4/D)HC?0R+I>6[#5J-(FTQK%.JMZ?$[2L5RO>YR4A*"
^XMB(3.9,23,2,10327,0)="""DATA"",396.18,213,3,137,0)"
^XMB(3.9,23,2,10328,0)="MUF*^[#>;@+:0`D1V(ZS`U.VD<C*0ZQGTYLCOZIECV:L,+6U]DR_'S:C49M]%"
^XMB(3.9,23,2,10329,0)="""DATA"",396.18,213,3,138,0)"
^XMB(3.9,23,2,10330,0)="M\W]JF?+EV2K0=2P<,A'K36+4]2VIL9N4OD7A_D_YO/-\WA.B*X8438CR^[AB"
^XMB(3.9,23,2,10331,0)="""DATA"",396.18,213,3,139,0)"
^XMB(3.9,23,2,10332,0)="MTN8=5E#[2SI=*^+YG>GJ^2E#IL=$]4ZLL(4L1=V(7'J^*/&Y)CINQ/^V=S6P"
^XMB(3.9,23,2,10333,0)="""DATA"",396.18,213,3,140,0)"
^XMB(3.9,23,2,10334,0)="M<5S'^7ZH)2E1$JD_2[(MGRW'D`K)OMO;^U,2V!))Q4PED289R[""L-,>[);G5"
^XMB(3.9,23,2,10335,0)="""DATA"",396.18,213,3,141,0)"
^XMB(3.9,23,2,10336,0)="M\?9R>T>*@9$F30H430RX!EHD39VF21$#!E*T*%KD!PB:-OU!#01MD*!(411%"
^XMB(3.9,23,2,10337,0)="""DATA"",396.18,213,3,142,0)"
^XMB(3.9,23,2,10338,0)="MBQ1IT2(MT``IFK1]_SMO]^W=[DG1W0H5!&AY/.WLS+XW;]Z;;[Z!-]KJ=:.*"
^XMB(3.9,23,2,10339,0)="""DATA"",396.18,213,3,143,0)"
^XMB(3.9,23,2,10340,0)="M'H].>[[UN0A'_2?YJ/],TD_JDB_$(5`:""SB;S4NC[^L^Z-@I]XR73BX0U@PP"
^XMB(3.9,23,2,10341,0)="""DATA"",396.18,213,3,144,0)"
^XMB(3.9,23,2,10342,0)="MVGD?U0_2@LC9X+-@'OV'!STKY1F2O%M1Y$5M1<E+9.F822=]8^9]`&5=B<&8"
^XMB(3.9,23,2,10343,0)="""DATA"",396.18,213,3,145,0)"
^XMB(3.9,23,2,10344,0)="M&0\$`3!-=Z109G*`D&Z$@[B#JG0Y&TZORXB_[P1757`P[PI'N;$RB]&JJF`!"
^XMB(3.9,23,2,10345,0)="""DATA"",396.18,213,3,146,0)"
^XMB(3.9,23,2,10346,0)="M2OH:76NWD_=HK>6D4V]2]_,REVMPN3.!:VUZ`&_`RM/2/Z;B;O=(1?F\W4#>"
^XMB(3.9,23,2,10347,0)="""DATA"",396.18,213,3,147,0)"
^XMB(3.9,23,2,10348,0)="M1RYAO)V,,]G&WE7F+WBAIOA1A]0`G./]AX#N'$7^[0\(;_/D:AL].)KODX>Q"
^XMB(3.9,23,2,10349,0)="""DATA"",396.18,213,3,148,0)"
^XMB(3.9,23,2,10350,0)="MSW$_7\:0AW0V=4S^6'Q][\5NQZ:?3R@(/.`\99G+0^21WAW,WOU``-A^-!*X"
^XMB(3.9,23,2,10351,0)="""DATA"",396.18,213,3,149,0)"
^XMB(3.9,23,2,10352,0)="MC)::J=%EEOU]Q;[A5U8Y_IXTB&[9CF,AO<XAC4!/:1E_2SILX#94:$>V56U:"
^XMB(3.9,23,2,10353,0)="""DATA"",396.18,213,3,150,0)"
^XMB(3.9,23,2,10354,0)="MZZ;#6EKSHWL&$R!5$;3C+[I:9R!%`KLG>'^TM<(\=>@[:#.RC>[&BK0OC!JJ"
^XMB(3.9,23,2,10355,0)="""DATA"",396.18,213,3,151,0)"
^XMB(3.9,23,2,10356,0)="M@,?:_Y.0QL6L`E7`#YH)9.+""75RL[V`X<'IW,AS2W^.QVDT%RRB.""##(TB+D"
^XMB(3.9,23,2,10357,0)="""DATA"",396.18,213,3,152,0)"
^XMB(3.9,23,2,10358,0)="M@7=#A[LTI'F[:JK#-^\P=<#9C#Z3D""%>M_TSY`G>6U<<UCMD*!,(9\UNHOT1"
^XMB(3.9,23,2,10359,0)="""DATA"",396.18,213,3,153,0)"
^XMB(3.9,23,2,10360,0)="M/HT8M2'+R?:IO5[A0>5?*G([YP4=GH-GHTGH95GKN9I7^="")$NA)T_-<_B7%"
^XMB(3.9,23,2,10361,0)="""DATA"",396.18,213,3,154,0)"
^XMB(3.9,23,2,10362,0)="M]G].R/=)PYF_1A<_""R,>/(=KJ]@9!O9#**)HX6$:]K&*[+$T6&$?4+0S&@._"
^XMB(3.9,23,2,10363,0)="""DATA"",396.18,213,3,155,0)"
^XMB(3.9,23,2,10364,0)="M6(1/_%+/,J$1>>*RQ'_V4L_*I&$\LO=\HR)Y]Q?84/TK/S0BJV>SBNV_>\`!"
^XMB(3.9,23,2,10365,0)="""DATA"",396.18,213,3,156,0)"
^XMB(3.9,23,2,10366,0)="MU]WT:Z*OKY_G+ZOG2O%(DZ@93G2HZ'\+]F$_%2]2M!""M@?%*!T]D[3""*L#;P"
^XMB(3.9,23,2,10367,0)="""DATA"",396.18,213,3,157,0)"
^XMB(3.9,23,2,10368,0)="MAL':QG40.S:RDC:YL(6#!K.>T4XNX*B!'`0BC['S%'(%6Y9#B@'ZL)V,!2F5"
^XMB(3.9,23,2,10369,0)="""DATA"",396.18,213,3,158,0)"
^XMB(3.9,23,2,10370,0)="MEQ8%KI5+Z`K>GEX>@$UZ+RWC(D-_`A_)8V.CAUU]:FE5.S2'BQ,;^,2YP;\T"
^XMB(3.9,23,2,10371,0)="""DATA"",396.18,213,3,159,0)"
^XMB(3.9,23,2,10372,0)="ML]CMM-`E073>WMTPF]K8[-+%)6T*Q[:;INW@9MQ]U`W;J(\=7YZB6[G_XN_T"
^XMB(3.9,23,2,10373,0)="""DATA"",396.18,213,3,160,0)"
^XMB(3.9,23,2,10374,0)="MB^*=/N6JGX_6`^_QE?X+RX#$Q)KB/$5:^E:2OO*;@LNVF:O$B6USW.]Q)%T_"
^XMB(3.9,23,2,10375,0)="""DATA"",396.18,213,3,161,0)"
^XMB(3.9,23,2,10376,0)="MY=?UO$NY48F5KA-^7<M0U[_SZWH1.)U\#%0$AQM38/</U12=_3ZBZ%$W@Q<O"
^XMB(3.9,23,2,10377,0)="""DATA"",396.18,213,3,162,0)"
^XMB(3.9,23,2,10378,0)="M<5*$G=@PSP$2@R0QF--93O95=@HR#82'^@;A(>&\Z;7D%XU""98\PV?5-JV.&"
^XMB(3.9,23,2,10379,0)="""DATA"",396.18,213,3,163,0)"
^XMB(3.9,23,2,10380,0)="M[>""3\%(]@8-0ABS_.`TYSC'Y.7'VD;[_DMO3""J`XV]1=D$Y%OQ***)<VP3GC"
^XMB(3.9,23,2,10381,0)="""DATA"",396.18,213,3,164,0)"
^XMB(3.9,23,2,10382,0)="MG!U^4ALHQ%)E,T2A1YE""7U!LNMZ&`77G1#9;(.LX`))H=V%4"",DY_F>+N-[O"
^XMB(3.9,23,2,10383,0)="""DATA"",396.18,213,3,165,0)"
^XMB(3.9,23,2,10384,0)="MW%<<-[S>D[ZS'$]*B*GXZ02`U,20Y`9XG3QD6MS#-/TWD7YYXWY(O\RH\+DL"
^XMB(3.9,23,2,10385,0)="""DATA"",396.18,213,3,166,0)"
^XMB(3.9,23,2,10386,0)="M_?)X$B:>4IW`3@T""I3M\YR*E6]BR\8<T1O_@/4NW,+E'J=R/_J33+0S!T:+B"
^XMB(3.9,23,2,10387,0)="""DATA"",396.18,213,3,167,0)"
^XMB(3.9,23,2,10388,0)="M/O232+?`@(O!]`_V%^=%4@R>^\C!4YV3;""K^K9B*+R65.8XOW(4<A\Z.P*:("
^XMB(3.9,23,2,10389,0)="""DATA"",396.18,213,3,168,0)"
^XMB(3.9,23,2,10390,0)="MZ&T?\[&[1CW#0DN\)K&R=5%ACL]`MS)5Q[%KN'""]3B@`Z*&H@)^/R-$QIT*>"
^XMB(3.9,23,2,10391,0)="""DATA"",396.18,213,3,169,0)"
^XMB(3.9,23,2,10392,0)="M)*_W7:E@+MTC%^OT.!?MPWN>'W.BPWU2(ON?%.O\4RN\_+_.T5,$IL4IH+QV"
^XMB(3.9,23,2,10393,0)="""DATA"",396.18,213,3,170,0)"
^XMB(3.9,23,2,10394,0)="M51Q?@O!""AZ^.T;&E<GZI>^=&[!UP(CEJL&EFL$\K#/;8F<MX9.F%;.FLAU9K"
^XMB(3.9,23,2,10395,0)="""DATA"",396.18,213,3,171,0)"
^XMB(3.9,23,2,10396,0)="M;9?DC?IPL'#\UR>2<$%7]<H]C$%S\Q=GGP5#5NEWLRP?^V928O3]O@+U?X,0"
^XMB(3.9,23,2,10397,0)="""DATA"",396.18,213,3,172,0)"
^XMB(3.9,23,2,10398,0)="M55H$XE?;M)&W(&\74C\`JBZ\9WL,\X]T,`5.G^GT9!_2Z*PN*?Y,.$8JZ0YY"
^XMB(3.9,23,2,10399,0)="""DATA"",396.18,213,3,173,0)"
^XMB(3.9,23,2,10400,0)="MZ0[=/IQ2JCL8DJ5XZO&/%9:ZLM`DIV'40/QP"")-8X_GAUK!@N&2MUFU5V<2D"
^XMB(3.9,23,2,10401,0)="""DATA"",396.18,213,3,174,0)"
^XMB(3.9,23,2,10402,0)="MD;*%N5%P9RLT7\W^IBE`Q=*O)GIH9@1H5H2:N;<X[;_%.%V4`NXC#\\]WG@3"
^XMB(3.9,23,2,10403,0)="""DATA"",396.18,213,3,175,0)"
^XMB(3.9,23,2,10404,0)="M;'D_A\=GFS)4M[KM%AI,SCGD*%J,8P4:RJR[R2B:H47&Y$9U3-RVM(//43'Y"
^XMB(3.9,23,2,10405,0)="""DATA"",396.18,213,3,176,0)"
^XMB(3.9,23,2,10406,0)="MCEE#@0'&6Z(H@.=@JTV)AZ1N.8QF)F-N5QM=NDE9YR!3(:JOX<N2MN\+QW(F"
^XMB(3.9,23,2,10407,0)="""DATA"",396.18,213,3,177,0)"
^XMB(3.9,23,2,10408,0)="MW:$BC2B.Z?V4RG4LMN@8.<?#'?R\^(R$\\Z1Z>V-B@T0%:=_CY][[H@-P*M)"
^XMB(3.9,23,2,10409,0)="""DATA"",396.18,213,3,178,0)"
^XMB(3.9,23,2,10410,0)="M>:OMC79A1D""Q^E0@)RYC_$C_2/'X!9$'`Y.!I-_%BT5_NTX730)W1HR(?R\"""
^XMB(3.9,23,2,10411,0)="""DATA"",396.18,213,3,179,0)"
^XMB(3.9,23,2,10412,0)="M+=-O<B,>5_%0>3IA.]9&$R.<,!N@4-P[Y\5,5S34!.MC&=J:(TI^7F'K!^>)"
^XMB(3.9,23,2,10413,0)="""DATA"",396.18,213,3,180,0)"
^XMB(3.9,23,2,10414,0)="M))5!A[EB`E78L/]L0M+ERPI'>NDZ7C^D,4.6#3&#<>-TJFM?H_9>6AG$F=GW"
^XMB(3.9,23,2,10415,0)="""DATA"",396.18,213,3,181,0)"
^XMB(3.9,23,2,10416,0)="M9C"")[O%EPD6%G=2.W;[ESC_P]M0YF!R4<)YI_8M""ZR?!$:\O!7./7ERO1,^Q"
^XMB(3.9,23,2,10417,0)="""DATA"",396.18,213,3,182,0)"
^XMB(3.9,23,2,10418,0)="M:S9AZ^$#F@XS![=O]7\X=<U&/VRU&O:N60\Z50TRE$2U?<MGJ`O@W+\4V&-@"
^XMB(3.9,23,2,10419,0)="""DATA"",396.18,213,3,183,0)"
^XMB(3.9,23,2,10420,0)="M!""QVXJ*#/0!FVK2074A2J-[%HU([O-#$S*MX;>L0`E'<8?6H^V&5].HV3<MM"
^XMB(3.9,23,2,10421,0)="""DATA"",396.18,213,3,184,0)"
^XMB(3.9,23,2,10422,0)="M;BWEP`+.AX(LRD*7WZ0SKL),^I8P:<,U::D\RB;=AX^UT/*.27.T!^9,;B_,"
^XMB(3.9,23,2,10423,0)="""DATA"",396.18,213,3,185,0)"
^XMB(3.9,23,2,10424,0)="MEX8/`&AR\=A""$Z[X:^9F==NRV]KQ)1NSEN%`M$&A655ZZ*X].H?>D%5#%MX%"
^XMB(3.9,23,2,10425,0)="""DATA"",396.18,213,3,186,0)"
^XMB(3.9,23,2,10426,0)="M]&H6.)?'64PN;<NF[D<[""3ZK-K&SK6.X61O_CD?""#@UX&]8Z<1J$!JW:;N_B"
^XMB(3.9,23,2,10427,0)="""DATA"",396.18,213,3,187,0)"
^XMB(3.9,23,2,10428,0)="M-KN'@=@V#C_PAS,K+=,DX0__G7;H6;-*>'?!9S//6S@E##\Z>`79G%3>=`@U"
^XMB(3.9,23,2,10429,0)="""DATA"",396.18,213,3,188,0)"
^XMB(3.9,23,2,10430,0)="MKW;XNEF]A<<60:DAXVQT3>VT^]!(/;.YT=F\D.FV<.\8]/`XUXQNI?P2,HOT"
^XMB(3.9,23,2,10431,0)="""DATA"",396.18,213,3,189,0)"
^XMB(3.9,23,2,10432,0)="MI2/O00^%HRVKB5X`KO]%;T$[=-FL$?N""S\9(JX[]<Y:SCIZA36C?(@QL53E"""
^XMB(3.9,23,2,10433,0)="""DATA"",396.18,213,3,190,0)"
^XMB(3.9,23,2,10434,0)="M%B[+7^;+\KJ(;=Y*@$$=J_P@[DCKC^58G/]R4@[F+@\0S*5584X6-HCCY/@G"
^XMB(3.9,23,2,10435,0)="""DATA"",396.18,213,3,191,0)"
^XMB(3.9,23,2,10436,0)="M5;W,YB""`LG]`Y]W1C!J>K`3[P*0>9DO_-?^FY=S%MLFZ[H!H3JWDTZ.F):-%"
^XMB(3.9,23,2,10437,0)="""DATA"",396.18,213,3,192,0)"
^XMB(3.9,23,2,10438,0)="MI.\W?96GF+^MB""""SGC#6]`247EUAZ!,&C\$PX(PID!O\.?X@58!),B*UTAB?"
^XMB(3.9,23,2,10439,0)="""DATA"",396.18,213,3,193,0)"
^XMB(3.9,23,2,10440,0)="MW;3;][Y%5`#3SE6K4=<FKMIUS!%H:AKIMVIJ$TMM4LCH)`(7\5!&U""&0OK<5"
^XMB(3.9,23,2,10441,0)="""DATA"",396.18,213,3,194,0)"
^XMB(3.9,23,2,10442,0)="M*Y&L.(F^W&HA5>)MQY#-RGGYU??[VS&7C6;'^=MFNV8Y9KSMF`YI1P,>17\D"
^XMB(3.9,23,2,10443,0)="""DATA"",396.18,213,3,195,0)"
^XMB(3.9,23,2,10444,0)="MT6L\%J+-ZA5\*A3S63T6SHI%2*+:RXHHIBE%LN*^91+0D6.`6%LR).B/Y8)X"
^XMB(3.9,23,2,10445,0)="""DATA"",396.18,213,3,196,0)"
^XMB(3.9,23,2,10446,0)="MH5'/`9G3(YER[VJ[NHV))F/N(;60\,FL1/;1>VJ7(UERXK)):#CC;<?QD"".R"
^XMB(3.9,23,2,10447,0)="""DATA"",396.18,213,3,197,0)"
^XMB(3.9,23,2,10448,0)="M`CWD/_<T8S&:&2]5.YNQ-V/8Z+$,761O,T9SD9-S!)0==SN&;$[*<L?<0?8T"
^XMB(3.9,23,2,10449,0)="""DATA"",396.18,213,3,198,0)"
^XMB(3.9,23,2,10450,0)="M9""X7T4':5L/LQ-Z2>T-:L@A#R#Y#,EISP$DDP-Z*O2'WA>-<DW(<G`CA&6Y%"
^XMB(3.9,23,2,10451,0)="""DATA"",396.18,213,3,199,0)"
^XMB(3.9,23,2,10452,0)="M0]!X&OE05@S7Y]8+Q:X`($+Z);Y/SHJ#D)\""(5@Q3L=*4XD`3!(['5Y*$;N_"
^XMB(3.9,23,2,10453,0)="""DATA"",396.18,213,3,200,0)"
^XMB(3.9,23,2,10454,0)="MR.Q^PX\1\J.RPU-?>,V<AXOA""RE>3\1A0JGGN)G+I5@@WL>""`=D0VN+R7-[T"
^XMB(3.9,23,2,10455,0)="""DATA"",396.18,213,3,201,0)"
^XMB(3.9,23,2,10456,0)="MD\.4]7(E""@3;:U,#8FC>X9-3`&0;A9B@/0/@GNSPX[MTT[Z/J7I6J&I!N""<["
^XMB(3.9,23,2,10457,0)="""DATA"",396.18,213,3,202,0)"
^XMB(3.9,23,2,10458,0)="M""-5JC2O6UE`!O(=4!W,YP!><.L!FWYH?P+EW:7EQ:7YY=6%^9;0H8ME4?@BV"
^XMB(3.9,23,2,10459,0)="""DATA"",396.18,213,3,203,0)"
^XMB(3.9,23,2,10460,0)="M/DN]W7^NN`^]8IRR>&?NCF?TW2J]+L)'Y[""B%47E-75IJ^;MSCLQCC9P8+*7"
^XMB(3.9,23,2,10461,0)="""DATA"",396.18,213,3,204,0)"
^XMB(3.9,23,2,10462,0)="MN4AN:+!Q>>-^;@-W6`4B9!'1QV12F""<5+,EG*2P9\*2-(#^,""EI;@J6UZ5,1"
^XMB(3.9,23,2,10463,0)="""DATA"",396.18,213,3,205,0)"
^XMB(3.9,23,2,10464,0)="MH+618?RP\T,JPXSYA!A4/X`P_E+\8/PS(,F5Q7_8)'I9:LW[1R+15;@?P/Q'"
^XMB(3.9,23,2,10465,0)="""DATA"",396.18,213,3,206,0)"
^XMB(3.9,23,2,10466,0)="M^+29@8UU\!\V=SZ:D%!TOZLH'7J`SAW6!A1-G66SAO0>`6C_M*P4)Z\\2%1:"
^XMB(3.9,23,2,10467,0)="""DATA"",396.18,213,3,207,0)"
^XMB(3.9,23,2,10468,0)="M9U/%4L""49QDV.4/:%1)MAD(U0@OI#XI"">O)JF!8/R&0C/M);'85Q605]KN=N"
^XMB(3.9,23,2,10469,0)="""DATA"",396.18,213,3,208,0)"
^XMB(3.9,23,2,10470,0)="M+/%PCB9T_['G[7+2^2=W1X<@TI^,'1;*?XDZI:FDMTG,0P,[)>_^[:1B_T:?"
^XMB(3.9,23,2,10471,0)="""DATA"",396.18,213,3,209,0)"
^XMB(3.9,23,2,10472,0)="M08?X_P?9\/V6&+[O$FH5""]%JK0_,9BY;#9.-]PO>B'B""?F[6M:/72""\_@CJG"
^XMB(3.9,23,2,10473,0)="""DATA"",396.18,213,3,210,0)"
^XMB(3.9,23,2,10474,0)="MX.KG+RXO:J>7O1]AND]""""""J:$R=Z)I""""E68O\Q\2?;4N]SBX5VE]C'=(I9/["
^XMB(3.9,23,2,10475,0)="""DATA"",396.18,213,3,211,0)"
^XMB(3.9,23,2,10476,0)="M7FF?YNO0M%B').=\4$)!?U8XYX^YL(MB+-C%/8O1--AD9'6=]S\8E\HAOBW6"
^XMB(3.9,23,2,10477,0)="""DATA"",396.18,213,3,212,0)"
^XMB(3.9,23,2,10478,0)="MWL_?#VO1487;QLIS#KS_E`F:OZA8BH[3I8A""_@CO_\BP^GF4XAU\R1M-3R=]"
^XMB(3.9,23,2,10479,0)="""DATA"",396.18,213,3,213,0)"
^XMB(3.9,23,2,10480,0)="M?65=^&F=\BU)T%)&Y,5XI.J64T.J;9B9,P3E13I(D.(.^GO2&H$P@EGKO*NH"
^XMB(3.9,23,2,10481,0)="""DATA"",396.18,213,3,214,0)"
^XMB(3.9,23,2,10482,0)="M3!7V9""^`JO?1=?CH?\!/$OY7@>$HS^(.JKSD%FU[,62N0^LT""&[5:M*'R^GG"
^XMB(3.9,23,2,10483,0)="""DATA"",396.18,213,3,215,0)"
^XMB(3.9,23,2,10484,0)="M*4ET""QG5KBM`R)Z'*,,9(8H%TG^O`I*L*@2S#O(JX:%MH>NB).0-.C9_ECW&"
^XMB(3.9,23,2,10485,0)="""DATA"",396.18,213,3,216,0)"
^XMB(3.9,23,2,10486,0)="MKRH>XY$Y1JR$;<'9.4PQ4ONHC&3)3H"")2OV,7]*A549][=Z]_\U+DB+S[.XO"
^XMB(3.9,23,2,10487,0)="""DATA"",396.18,213,3,217,0)"
^XMB(3.9,23,2,10488,0)="M*N[.^;K<`=G_[A7XZ"">#=[C3[_&`Q=TP8T8JE];U""DNMSM/(Y<.^K<_)P""AC"
^XMB(3.9,23,2,10489,0)="""DATA"",396.18,213,3,218,0)"
^XMB(3.9,23,2,10490,0)="MLB^G`5E3+]FW#Q.A_""<LEM=.KM)RB0?8&W?$TG,S*>0>738[%NX*B&9BMVDR"
^XMB(3.9,23,2,10491,0)="""DATA"",396.18,213,3,219,0)"
^XMB(3.9,23,2,10492,0)="M(#+,-:G-531@>T)>S95:5;P,3H?7)I)""O6H^=2:E\JT;*K(Z/'NCWIT=G^^5"
^XMB(3.9,23,2,10493,0)="""DATA"",396.18,213,3,220,0)"
^XMB(3.9,23,2,10494,0)="M>]/M^&]_@O'(#2""$-5A._P6-,%/<??Z&8MYE5/..OXUPTLKPE/AQ+NQUA;!3"
^XMB(3.9,23,2,10495,0)="""DATA"",396.18,213,3,221,0)"
^XMB(3.9,23,2,10496,0)="ME'_>R6Q8VR:MYXDB2L]""_$KJ92;I\PI)I^G!Q&YFBP5F9UJ;NPZ^.BNJ`?J+"
^XMB(3.9,23,2,10497,0)="""DATA"",396.18,213,3,222,0)"
^XMB(3.9,23,2,10498,0)="M8X/YJPE)WB^HFA]Q>2UGM[9I55&<4U,)\@:K)U2I*CQ]LV""<\`Y6[F;L-(]4"
^XMB(3.9,23,2,10499,0)="""DATA"",396.18,213,3,223,0)"
^XMB(3.9,23,2,10500,0)="MLQ6C&""E2/;S@9+9-C*INLB%5'Y#Z*.'?,NE9O`!*L_,19K0_\7&;X&<O*=J."
^XMB(3.9,23,2,10501,0)="""DATA"",396.18,213,3,224,0)"
^XMB(3.9,23,2,10502,0)="M)''=\N(R0\73%)3XD?@8'8X""=B""8-D5L4`$""@H'R/2'LI^<;U@9F(L5A.&Y1"
^XMB(3.9,23,2,10503,0)="""DATA"",396.18,213,3,225,0)"
^XMB(3.9,23,2,10504,0)="MBD9J'4P4O$AJ)Z]ZQQ9_XV>UA]W?^0?$626J^@""-B_#+Q,\_,>%>N=N=*?R@"
^XMB(3.9,23,2,10505,0)="""DATA"",396.18,213,3,226,0)"
^XMB(3.9,23,2,10506,0)="MJU9+!*;7K6;=WIFX8C<W2*Z'[P@.@N8Y:""CGH=OY1L)G,QW8+%8X[#T1YA0S"
^XMB(3.9,23,2,10507,0)="""DATA"",396.18,213,3,227,0)"
^XMB(3.9,23,2,10508,0)="M0EKVBE\7(_,QUPB%:+/J""3""KW*5,[-WN;*)I,&MU6,Y:X0E7D;R]"")9_2S7C"
^XMB(3.9,23,2,10509,0)="""DATA"",396.18,213,3,228,0)"
^XMB(3.9,23,2,10510,0)="M^O=6'/<^T?057)O0V42JY4B'$FTJAPL<69]>;4K'/Q783_L+^*=<EOUX`%WA"
^XMB(3.9,23,2,10511,0)="""DATA"",396.18,213,3,229,0)"
^XMB(3.9,23,2,10512,0)="M[_*?#UVU""3X;W8Q_E@@8LA)6,9_T#=FW`:T*L:06\RA<@`I_G,_1-\1KS+L*"
^XMB(3.9,23,2,10513,0)="""DATA"",396.18,213,3,230,0)"
^XMB(3.9,23,2,10514,0)="M%TLQJY50*ER$RZNK\>\H-2['2>.QH$%=@ONRI_B@GA.#>@[XX5PLN0$]""L.M"
^XMB(3.9,23,2,10515,0)="""DATA"",396.18,213,3,231,0)"
^XMB(3.9,23,2,10516,0)="M3?I/$[T4+F7CI'!/KXSWOE#QU_V*`Z=<K/1SRGN\3CF9E?WRCFG>TC3V[[A."
^XMB(3.9,23,2,10517,0)="""DATA"",396.18,213,3,232,0)"
^XMB(3.9,23,2,10518,0)="M_G6T\3R_,/A%@5\4^46)7Y3Y185=3""#GS:]RXDH75WEQ98BK@K@JBJN2N""J+"
^XMB(3.9,23,2,10519,0)="""DATA"",396.18,213,3,233,0)"
^XMB(3.9,23,2,10520,0)="M*R%#%S)T(4,7,G0A0Q<R=""%#%S)T(4,7,G0A(R]DY(6,O)""1%S+R0D9>R,@+"
^XMB(3.9,23,2,10521,0)="""DATA"",396.18,213,3,234,0)"
^XMB(3.9,23,2,10522,0)="M&7DA(R]DY(4,0\@PA`Q#R#""$#$/(,(0,0\@PA`Q#R#""$C(*041`R""DQ&HL]X"
^XMB(3.9,23,2,10523,0)="""DATA"",396.18,213,3,235,0)"
^XMB(3.9,23,2,10524,0)="MA""=JJ5TV'']-%2.4<OV&HZ_YY<3E;J.!3[""T232'.N?)Y7X4V*Z?Y\&0-K%"""
^XMB(3.9,23,2,10525,0)="""DATA"",396.18,213,3,236,0)"
^XMB(3.9,23,2,10526,0)="M-G^$<I9$OWT>6#X[VNT5U1AZOR<>&Y&HAN.TF58K/JV.`:WR<?*'J0B!N`$"""
^XMB(3.9,23,2,10527,0)="""DATA"",396.18,213,3,237,0)"
^XMB(3.9,23,2,10528,0)="M\=0<L\$G7-9-8(-HV:=3(`YGAQF-W0P?@B#^#A%V)P/>H#21SOC\^DDPD8P8"
^XMB(3.9,23,2,10529,0)="""DATA"",396.18,213,3,238,0)"
^XMB(3.9,23,2,10530,0)="MI58.KJ*/ULSZ-;MCKMGV+;KQEC]CJE,,(H<#_KO(L_QV\B#Z?D^5]XLO$*TG"
^XMB(3.9,23,2,10531,0)="""DATA"",396.18,213,3,239,0)"
^XMB(3.9,23,2,10532,0)="MD=8=@M@YP'_!<R53_`-%6D'<A9G`U>88ND8_+*$]>P*R#1YW*Y58S@.2HYU2"
^XMB(3.9,23,2,10533,0)="""DATA"",396.18,213,3,240,0)"
^XMB(3.9,23,2,10534,0)="MZ2I^RU9R.F/Y0OX]H?5KT?K$O)H,XE#;<Q%W&1Z?J#9F&YAS&W*J2?DI;<W!"
^XMB(3.9,23,2,10535,0)="""DATA"",396.18,213,3,241,0)"
^XMB(3.9,23,2,10536,0)="M2-^ALNV""4^`#TBEP3F6MI'O0,-RG#L[*L\.!!R4PU)\+G_2XF^%F``Z6Y+WW"
^XMB(3.9,23,2,10537,0)="""DATA"",396.18,213,3,242,0)"
^XMB(3.9,23,2,10538,0)="MP(?PG,>!+\D`+RG]9[ZWE'XK,=263J&`Z#IT1KQ#7DNTGQ1NN)2/=I9S!+#\"
^XMB(3.9,23,2,10539,0)="""DATA"",396.18,213,3,243,0)"
^XMB(3.9,23,2,10540,0)="MLF;I6]%6CK%P2/H\5.#M[!W\.*'2H!!)`P-H0)E\<;2""6;K.X91GUSF7:53;"
^XMB(3.9,23,2,10541,0)="""DATA"",396.18,213,3,244,0)"
^XMB(3.9,23,2,10542,0)="MN\W;^%BSM4DNHVF8""J>AM%[L\V6F3P$-C6CG;4##37^_8=;4-II.B7""%)*P9"
^XMB(3.9,23,2,10543,0)="""DATA"",396.18,213,3,245,0)"
^XMB(3.9,23,2,10544,0)="M&U4J_>N^;KN/N*4'!3V24B?@P*LZF""*IT3#;&U""/X126""&L%UBBJP)<L@/^0"
^XMB(3.9,23,2,10545,0)="""DATA"",396.18,213,3,246,0)"
^XMB(3.9,23,2,10546,0)="M!+=QNU:!'I;+YGF[939'F;99I6!>4O!*?P6C\])""<88D[OU1Q`W2\Y1U<6/R"
^XMB(3.9,23,2,10547,0)="""DATA"",396.18,213,3,247,0)"
^XMB(3.9,23,2,10548,0)="MT!:EM\#%(;_`\4'7PC(,6'3?4OC)A.MU!%O0;*.*=K@D<[T@$83.WZYNP2V$"
^XMB(3.9,23,2,10549,0)="""DATA"",396.18,213,3,248,0)"
^XMB(3.9,23,2,10550,0)="M@A^4K5O3T.WW8\F$_S\/__][PS$:PO]O@/^?_G""B#\FFLAA)A[%2P1<KN<UW"
^XMB(3.9,23,2,10551,0)="""DATA"",396.18,213,3,249,0)"
^XMB(3.9,23,2,10552,0)="M#UWJ6HWZR/2(&*09)J<6I,H^WT/9F3F[UB6P*CY.AAD;I@;P,!6HZDX/58\P"
^XMB(3.9,23,2,10553,0)="""DATA"",396.18,213,3,250,0)"
^XMB(3.9,23,2,10554,0)="M.#/7^&Y00=Z1MH/P?',V):KN3`]UI>8?H]SD!#BY@_*NC)T[C2>E?=F_""&5O"
^XMB(3.9,23,2,10555,0)="""DATA"",396.18,213,3,251,0)"
^XMB(3.9,23,2,10556,0)="M#%.M=+@2WBQLV*I[NZ.>!H%7-/3N41!XD?C8ZEC.J`==*?6@YHT7:\1(7QOM"
^XMB(3.9,23,2,10557,0)="""DATA"",396.18,213,3,252,0)"
^XMB(3.9,23,2,10558,0)="M-7ML@%E;*$(%WS':""J8C`O:5&XXR'/:<P?>7$JIQ7QAXPV$['=/>VC4;<1C["
^XMB(3.9,23,2,10559,0)="""DATA"",396.18,213,3,253,0)"
^XMB(3.9,23,2,10560,0)="M`472O'TR'1K'1GMH)`=VY3G)E=_PNO)TR8583G,TZLKN5JMC;PUU\1I3\6OG"
^XMB(3.9,23,2,10561,0)="""DATA"",396.18,213,3,254,0)"
^XMB(3.9,23,2,10562,0)="MI'80[_<2^X'JSA7LF3,.4V0T.MY*FI2@)KQ&^'D%*G5YD_2O'FEERK`>7M0]"
^XMB(3.9,23,2,10563,0)="""DATA"",396.18,213,3,255,0)"
^XMB(3.9,23,2,10564,0)="M*:K!CBXR&FWI[=QC)HP@S=1,NT7XHGZ.S9_7A$-=<_LSZL8(\NM2FH_C2]UV"
^XMB(3.9,23,2,10565,0)="""DATA"",396.18,213,3,256,0)"
^XMB(3.9,23,2,10566,0)="MMX'G-CTK$E4.VN2S9K6.^W,ZVEXZ:5J8V'6:7A-MVH3+>,]ES`QR-[B+I:'_"
^XMB(3.9,23,2,10567,0)="""DATA"",396.18,213,3,257,0)"
^XMB(3.9,23,2,10568,0)="M$+/H-X1%EX%%*R-KT>EKQ)`UN[EA.A0L.W\;]RI@%M[JUNPNLNE""I[:Y2XY3"
^XMB(3.9,23,2,10569,0)="""DATA"",396.18,213,3,258,0)"
^XMB(3.9,23,2,10570,0)="MM7W7JQT3+:#F+C+VQ$K3-#^`[AC&E`E_""3'/+-(Y]Q\)7\_LIX$9RS$#@""EC"
^XMB(3.9,23,2,10571,0)="""DATA"",396.18,213,3,259,0)"
^XMB(3.9,23,2,10572,0)="MU3RDO';/(A0KMCNF%8CAU,!+*6L/\4-Y5_2O""3>W!Y&F*C^9A]G@R5[=(0""-"
^XMB(3.9,23,2,10573,0)="""DATA"",396.18,213,3,260,0)"
^XMB(3.9,23,2,10574,0)="M]!HF^<-D8)G.)GJ4C4TRFH;)_""_I)%72\`J(FXJ%C)%@8X)_JTW*=$9N(2M*"
^XMB(3.9,23,2,10575,0)="""DATA"",396.18,213,3,261,0)"
^XMB(3.9,23,2,10576,0)="M+^A%;YK(5>;DHJ\=!""LCNQ#,&E.`-^?%+G_C;^.))JP^!#\7X'H""VD,OUFI5"
^XMB(3.9,23,2,10577,0)="""DATA"",396.18,213,3,262,0)"
^XMB(3.9,23,2,10578,0)="MAQ30:1.7:<?[CC8Q:S>=#K)&(M@*96B%IWM9(9\=&2LD`ZSPK(T?C:R/#\U6"
^XMB(3.9,23,2,10579,0)="""DATA"",396.18,213,3,263,0)"
^XMB(3.9,23,2,10580,0)="MFQB^[;3,ZJU,=<W>-C/5S`X:%BVT;/+?XDY=W29M);2VB[^,YH3""O1LE18&:"
^XMB(3.9,23,2,10581,0)="""DATA"",396.18,213,3,264,0)"
^XMB(3.9,23,2,10582,0)="M:Z;THTF7(:*2C0?BA[2'Z(VWV+_$BR/PV7AXU$5N4-3%_0&O4)Z[2R3HD[YN"
^XMB(3.9,23,2,10583,0)="""DATA"",396.18,213,3,265,0)"
^XMB(3.9,23,2,10584,0)="MQ0\#%A^<$26M0)P[:Y%L&%!FH8?,/22^C-OQOB&UTJOVLNF*O=[)+%4;:*(/"
^XMB(3.9,23,2,10585,0)="""DATA"",396.18,213,3,266,0)"
^XMB(3.9,23,2,10586,0)="M%1TQB)9%H&7ZE40/-<>N#;F![B!'^489ZO>E7OII5PC>(6['GGSUH!I^MY>&"
^XMB(3.9,23,2,10587,0)="""DATA"",396.18,213,3,267,0)"
^XMB(3.9,23,2,10588,0)="MXTN;0U=QD(2S48$J'DGV\C4D6!NF@EJ_/4??A7'/*MIE.N$71%VQ(*:$;1+W"
^XMB(3.9,23,2,10589,0)="""DATA"",396.18,213,3,268,0)"
^XMB(3.9,23,2,10590,0)="M]W*HBNS9:GB$&.0$&RT+BF8H[Z;MP$C_DVJCP7L6HG""&=OII6$T2H'1P8UD4"
^XMB(3.9,23,2,10591,0)="""DATA"",396.18,213,3,269,0)"
^XMB(3.9,23,2,10592,0)="MVN'>LF8=LR\0-@C,`&$UA]Z<3=(]!W1/?Y5[@S6%\E<7UBG::\-$*CH=D[:U"
^XMB(3.9,23,2,10593,0)="""DATA"",396.18,213,3,270,0)"
^XMB(3.9,23,2,10594,0)="M1'];;1,WL.(M'3.7YY\_GZ/]+7EOD?6&O7-^&^<"",$6$W1H9_77X[KFG>""[E"
^XMB(3.9,23,2,10595,0)="""DATA"",396.18,213,3,271,0)"
^XMB(3.9,23,2,10596,0)="M5]_""$^E""!AEAO4I:2M5A>R/)#*P_;K?9-CMVM[9)6E8U""$3.[M@;:(NYR?NB"
^XMB(3.9,23,2,10597,0)="""DATA"",396.18,213,3,272,0)"
^XMB(3.9,23,2,10598,0)="MFG!0,/O=$].H2%3@#CA,0JD`V8'2[^76>\+/GILOYJ-!V""Y<-VG['603:<KA"
^XMB(3.9,23,2,10599,0)="""DATA"",396.18,213,3,273,0)"
^XMB(3.9,23,2,10600,0)="MJ>7@=E.-;AWC9IK""B,QZ,4BW^C9T!AR$G`+O*V*+\DH"";/^S\2@%\.E8@(Y&"
^XMB(3.9,23,2,10601,0)="""DATA"",396.18,213,3,274,0)"
^XMB(3.9,23,2,10602,0)="M%(X'*!D'*JEDF+5Y4C2P#K\^Y_]_?99ZE;$TY0\24K=PP^^B)SF?X%!6ER!8"
^XMB(3.9,23,2,10603,0)="""DATA"",396.18,213,3,275,0)"
^XMB(3.9,23,2,10604,0)="MH,2&^(*/0""DW7(""\""KU5A)Q^'&W]3?'$&<7HCF7Q0@$""&'^9NZ2O""9?T(Q>Q"
^XMB(3.9,23,2,10605,0)="""DATA"",396.18,213,3,276,0)"
^XMB(3.9,23,2,10606,0)="M>110UM:'V),>)L&]A.!P:YXZSK3YG-#F6X`XME2,24&95\>""Y`MXK<-?BXCC"
^XMB(3.9,23,2,10607,0)="""DATA"",396.18,213,3,277,0)"
^XMB(3.9,23,2,10608,0)="MIX&.1CP26L$L6%[^Q3-WW7G<T;Q+!G""&N8_=WX/L=3D$(TSH,""4C%6BYE*\["
^XMB(3.9,23,2,10609,0)="""DATA"",396.18,213,3,278,0)"
^XMB(3.9,23,2,10610,0)="M_5E>,I+32]%""T\SU*F;UX[P\BRVTZ4-AJ""#<C%PL@O_\'U!+`P04``(`""`""F"
^XMB(3.9,23,2,10611,0)="""DATA"",396.18,213,3,279,0)"
^XMB(3.9,23,2,10612,0)="M5!\U3#1!M@$V``""KYP$`)0```$YO<V5?4VEN=7-?3&%R>6YX7U!H87)Y;GA?"
^XMB(3.9,23,2,10613,0)="""DATA"",396.18,213,3,280,0)"
^XMB(3.9,23,2,10614,0)="M,3$S+G!N;""YF<FWL/6EOW#B6WQOH_R!DL;""]F^X619W![C02)^EDD,.(W9-="
^XMB(3.9,23,2,10615,0)="""DATA"",396.18,213,3,281,0)"
^XMB(3.9,23,2,10616,0)="M+`8-EHKEXK2.&AVQ:W[]DM11(D5*K+*=[MC.EUB42GI\CWP7WY$O_H'CRGJ'"
^XMB(3.9,23,2,10617,0)="""DATA"",396.18,213,3,282,0)"
^XMB(3.9,23,2,10618,0)="M%CBYV&[PQ]7KO$B?61=\Y/OO+.L=7E76?UL_.+;-+B_R#;T*V9^?R;):TPL8"
^XMB(3.9,23,2,10619,0)="""DATA"",396.18,213,3,283,0)"
^XMB(3.9,23,2,10620,0)="ML:LWF%RNV9,`LLM3M*E(GM'KH_>O/OWRZNC[[W""V_/Z[?/!!]JFW+V<_YKC"""
^XMB(3.9,23,2,10621,0)="""DATA"",396.18,213,3,284,0)"
^XMB(3.9,23,2,10622,0)="MU^SIKWWX>""Y_C`W]=H8RG#@N_1K_:_`UX`T^YOK#C[E!*'S-`0&_)AF[.CK["
^XMB(3.9,23,2,10623,0)="""DATA"",396.18,213,3,285,0)"
^XMB(3.9,23,2,10624,0)="M>/;KV1$;>8&_X.1MEN&""CB^^?$*DQ$M^(R^6N#BOM@EF=\ISDETFF,.<)SE["
^XMB(3.9,23,2,10625,0)="""DATA"",396.18,213,3,286,0)"
^XMB(3.9,23,2,10626,0)="M.D[.2?(%%VSL=9Y5/YZN45%B]H&7KUX___7=Q6^G;YY_.G]UL7NB_^F+!,6_"
^XMB(3.9,23,2,10627,0)="""DATA"",396.18,213,3,287,0)"
^XMB(3.9,23,2,10628,0)="M]^,]G#\`T`]^0""GF9#BWSE%66N>X(*NC_G8'VO_]G0V=H0)G%;M!AUZCI.2@"
^XMB(3.9,23,2,10629,0)="""DATA"",396.18,213,3,288,0)"
^XMB(3.9,23,2,10630,0)="M7J#%1S8-.L91-<0KIQWPPB$9=ZCU07,]6#8[[((&V4-JM@-#>N8E?F9]K-;T"
^XMB(3.9,23,2,10631,0)="""DATA"",396.18,213,3,289,0)"
^XMB(3.9,23,2,10632,0)="M\Z])MJ3X*X^:I^:QI<?7&&-P,*S'F8RU5?DB3Y9_;VZIL<>7HA)ID1)I4,`9"
^XMB(3.9,23,2,10633,0)="""DATA"",396.18,213,3,290,0)"
^XMB(3.9,23,2,10634,0)="MA!+2`)""1!D=(>XG+N""`+;.4<;ZL6;\_N!''@(,3MB[(7=57EF>=1E#5_B@LM"
^XMB(3.9,23,2,10635,0)="""DATA"",396.18,213,3,291,0)"
^XMB(3.9,23,2,10636,0)="M\H=(`T$D8BWP)*0YW@AIIPE=:M\*AH1-V;[_8W::D/AW.G#=H.@73!D2B?FH"
^XMB(3.9,23,2,10637,0)="""DATA"",396.18,213,3,292,0)"
^XMB(3.9,23,2,10638,0)="M!JWO<9J[D""*5_3&Q#!L>.>"",P)67H=,^TG%'NE+=X$[PZ2CP>9K7!:'8^(""O"
^XMB(3.9,23,2,10639,0)="""DATA"",396.18,213,3,293,0)"
^XMB(3.9,23,2,10640,0)="MIK#YCF2XI*,%VP]T_+@9MJRCHY-I?)_'19XD+^@4Z'A9_@T7%8E1,B*&W6-:"
^XMB(3.9,23,2,10641,0)="""DATA"",396.18,213,3,294,0)"
^XMB(3.9,23,2,10642,0)="M(X.@2@;Y_DX&04F\.H(,@C9XX#((:-BIIY9!3B2P!B#Q4QN8""J$SBI1M=GU?"
^XMB(3.9,23,2,10643,0)="""DATA"",396.18,213,3,295,0)"
^XMB(3.9,23,2,10644,0)="MI(^O1)<C,E)?VO=.M_FFQ,];*FYB5&$+95L+E64>$WJUM%9U%K-G4&(E)""45"
^XMB(3.9,23,2,10645,0)="""DATA"",396.18,213,3,296,0)"
^XMB(3.9,23,2,10646,0)="M8A>]5'J5H45""GS(""/E`##X?`RT+`Z9B8D>BDDM,J<$F6-87FJ46R.*F9%+7P"
^XMB(3.9,23,2,10647,0)="""DATA"",396.18,213,3,297,0)"
^XMB(3.9,23,2,10648,0)="M=47Q;.4KJR)E66.+RHT])]$*,U<CS#R!!HX/'Y(P@S<49D`ES,2%`3H,]CS6"
^XMB(3.9,23,2,10649,0)="""DATA"",396.18,213,3,298,0)"
^XMB(3.9,23,2,10650,0)="ME5':XW@GS#Q'3^,')>$<#?I/SSZ__X26)/^ER.L-URK$(6F5#TGB@CF*P&A,"
^XMB(3.9,23,2,10651,0)="""DATA"",396.18,213,3,299,0)"
^XMB(3.9,23,2,10652,0)="M$=@BXGR=7S523IS17^NR(JOMVPJG;$X71=W>8""-G:*GD]CV^GA><""Q0#/L!V"
^XMB(3.9,23,2,10653,0)="""DATA"",396.18,213,3,300,0)"
^XMB(3.9,23,2,10654,0)="M/<HH,_A'76RM*N=<8M/(A2&/R%""9;XZL_^S?U3SR<PLO70-UFI4=+AMXU$3["
^XMB(3.9,23,2,10655,0)="""DATA"",396.18,213,3,301,0)"
^XMB(3.9,23,2,10656,0)="M7]R9.Q:30QT-E0J'8C<X\[LA<N=0[P5CU+N/FV&GC$RI>XY""W?-""G<?!DSP."
^XMB(3.9,23,2,10657,0)="""DATA"",396.18,213,3,302,0)"
^XMB(3.9,23,2,10658,0)="MT'$.TO9ZF7<?%4!'HQ0`M5(@,7])HXF,];]W]TK]<]3(""@1<.1*R0,^%)U2H"
^XMB(3.9,23,2,10659,0)="""DATA"",396.18,213,3,303,0)"
^XMB(3.9,23,2,10660,0)="MT[I@H%AHL\&H0%F,&=M,./8Z/>DS79*?""[09<&4]J%""C[(%)6`-G7T?)09JH"
^XMB(3.9,23,2,10661,0)="""DATA"",396.18,213,3,304,0)"
^XMB(3.9,23,2,10662,0)="M:P(<#""0\AG`/X`3QP_%XB:D.7=;%)2ZV!ZF>4*UZ.FXHJ)Z!)!N""X#ZKGN[A"
^XMB(3.9,23,2,10663,0)="""DATA"",396.18,213,3,305,0)"
^XMB(3.9,23,2,10664,0)="MJJ>D^SC3NH_C3.D^P)<WF0M'`AB""N]!]CMZ@LM5Y%AAG%NJ66USEZ7:LOL`Y"
^XMB(3.9,23,2,10665,0)="""DATA"",396.18,213,3,306,0)"
^XMB(3.9,23,2,10666,0)="M]85J+/W?E`(50<ENX""*OZ.5^&@V,U!J-Z*UR))7&&:DTSABCCRJ-K-)(#(^4"
^XMB(3.9,23,2,10667,0)="""DATA"",396.18,213,3,307,0)"
^XMB(3.9,23,2,10668,0)="MU8O\&G!VW/P])3N@+_,\;^0R=,=4Z*TL9F8O\?(<)PP""829LO8TXY]0B+%)A"
^XMB(3.9,23,2,10669,0)="""DATA"",396.18,213,3,308,0)"
^XMB(3.9,23,2,10670,0)="MW:WI1L894]0I0SVEFT?0L9=U@DO%G?-ZD=9Q7I?6VVQ%DJK@_HO!^BXP_0RY"
^XMB(3.9,23,2,10671,0)="""DATA"",396.18,213,3,309,0)"
^XMB(3.9,23,2,10672,0)="MS!""=#5TJ=-L,?DU_DZ`TY;]1O%R^_;[Y$EWI""RI""\>[!=SW_/Z<(RDLR>`D_"
^XMB(3.9,23,2,10673,0)="""DATA"",396.18,213,3,310,0)"
^XMB(3.9,23,2,10674,0)="M)NF6P?LZJ4B/O=W^-[#DN.E@&VRT$9''.TU)9/BXU7;.CBGK`:BL!W=P.""I8"
^XMB(3.9,23,2,10675,0)="""DATA"",396.18,213,3,311,0)"
^XMB(3.9,23,2,10676,0)="M#WYSN;,>&C7C`?N*H5IK<S4JI>=-F0ICI4UG*GRX*Q7H:QH*K:KH:%3%0-1P"
^XMB(3.9,23,2,10677,0)="""DATA"",396.18,213,3,312,0)"
^XMB(3.9,23,2,10678,0)="M7?O12VFD*G)UD,E1=E[178A';Y&HA(N(]=RQ&]M7ZU#*I2^=.O=?#;OK5H?R"
^XMB(3.9,23,2,10679,0)="""DATA"",396.18,213,3,313,0)"
^XMB(3.9,23,2,10680,0)="MN^O=T;/7#8V$KT#6?V]>F:&22JE\459%S?W^SWI)I>3[+:Z45I9M!G0$1T!W"
^XMB(3.9,23,2,10681,0)="""DATA"",396.18,213,3,314,0)"
^XMB(3.9,23,2,10682,0)="MNO8\T)_X[5N$VO4U4,/`$>$&8[C=,=S=NE!Y*YD*T:GN&TSUG8R9X.LM_;LJ"
^XMB(3.9,23,2,10683,0)="""DATA"",396.18,213,3,315,0)"
^XMB(3.9,23,2,10684,0)="M\LUZRP\LZF)!,E11]695Y*FU0'%%ERN=;[$FV<!?2=]&*E+^W$]=8:]KIBY9"
^XMB(3.9,23,2,10685,0)="""DATA"",396.18,213,3,316,0)"
^XMB(3.9,23,2,10686,0)="M0D!C"">WXB(2):(P)=XR)'7(&6H7?@ZLSBB;,(I5A))YJ=>@=K9`=FD:.W0FU"
^XMB(3.9,23,2,10687,0)="""DATA"",396.18,213,3,317,0)"
^XMB(3.9,23,2,10688,0)="M5'+N""NY=U5968SM/%SEC)FRI=1?3>\0WPK`#5!@.IO>""1C-7!2M,(\8>H@4("
^XMB(3.9,23,2,10689,0)="""DATA"",396.18,213,3,318,0)"
^XMB(3.9,23,2,10690,0)="M5XYP!84K5[CRA""M?N`J$JU""XBJ2OVQU5IBD0&%,`V/[A)`AO3@+GOI%`X""\P"
^XMB(3.9,23,2,10691,0)="""DATA"",396.18,213,3,319,0)"
^XMB(3.9,23,2,10692,0)="MF&,Y((""S[+<[^)YE.M&=,IWG/;_9Y,EV4UJ;`I>4L]\QRX'FV/;VQK;G'8QM"
^XMB(3.9,23,2,10693,0)="""DATA"",396.18,213,3,320,0)"
^XMB(3.9,23,2,10694,0)="M%WP=%E_B345QOL1?""/H*'-XU1[>_-[JCX'!T.W>-[A[#UK+&_$""U0'6*)O$]"
^XMB(3.9,23,2,10695,0)="""DATA"",396.18,213,3,321,0)"
^XMB(3.9,23,2,10696,0)="MP?=N1@;/G`SA'!F@[]_:JH?>'9#A+M:Q;X[`:&\$WF0=VW>]CIG^G)=Q@JE:"
^XMB(3.9,23,2,10697,0)="""DATA"",396.18,213,3,322,0)"
^XMB(3.9,23,2,10698,0)="MC;X2DPX$;$]9FK[.TNQ,R2[:*Y1-3?EP-`2ZZ%.%^>-JS!\@BU_;2!V:Y-B#"
^XMB(3.9,23,2,10699,0)="""DATA"",396.18,213,3,323,0)"
^XMB(3.9,23,2,10700,0)="M6*RG5AFCHN#NW8)RF%5>I*1J#*`U%:=YB0\Q;-I)>;I)!;.S@@.-;LH6'9#^"
^XMB(3.9,23,2,10701,0)="""DATA"",396.18,213,3,324,0)"
^XMB(3.9,23,2,10702,0)="M?(-CNB@ME.;U*.C,0MG2(BL+$Q[FW>H)J""S1);9(:>'KC6C3T9DO#S%GI;WK"
^XMB(3.9,23,2,10703,0)="""DATA"",396.18,213,3,325,0)"
^XMB(3.9,23,2,10704,0)="MSNY=$1-PQ/HBQW#CPF^$\TW9:/S8*A""\Z?I5XXQP!15<SH4J9+ESIH&)CVW*"
^XMB(3.9,23,2,10705,0)="""DATA"",396.18,213,3,326,0)"
^XMB(3.9,23,2,10706,0)="MRZ;UKL_ZUS6>M@D?^\#+KO?(S7C:57S*@%T&9NS2D8/B%>S259^Y*#E+H.$L"
^XMB(3.9,23,2,10707,0)="""DATA"",396.18,213,3,327,0)"
^XMB(3.9,23,2,10708,0)="M@;A""QF+0""PYV%5'U:XG;""(W/^))Y+X_^C=HTI759H*Q.J#2KV!D3XZ2#D;JT"
^XMB(3.9,23,2,10709,0)="""DATA"",396.18,213,3,328,0)"
^XMB(3.9,23,2,10710,0)="MB,A:LA66?""%[<];0F+-Z)BA0>OGZF`II>DM28E3B9W,[Z&`_F+TGSW0/YYG>"
^XMB(3.9,23,2,10711,0)="""DATA"",396.18,213,3,329,0)"
^XMB(3.9,23,2,10712,0)="M?>&9H2'/A/;A/--_Y)G[\4S-0:4]E]4""A*P6M\UBZ5=RD_3R@$\J7?5))?0U"
^XMB(3.9,23,2,10713,0)="""DATA"",396.18,213,3,330,0)"
^XMB(3.9,23,2,10714,0)="M62U""H):4Z=`?>LR?5)[G]'UG*$$5OB>1C5""=B]J%(;2R6\88,,@-X;C:<%Q9"
^XMB(3.9,23,2,10715,0)="""DATA"",396.18,213,3,331,0)"
^XMB(3.9,23,2,10716,0)="M:)'QJ!)J6#1""0P]/9`!/*$4L18$!.%<H2?(K9N<LR6I%XCJIMH?$,+JV`83`"
^XMB(3.9,23,2,10717,0)="""DATA"",396.18,213,3,332,0)"
^XMB(3.9,23,2,10718,0)="M\><""9\<@?N`F28$OZ^*RS?=Y-A7ZL4]8J`M,H)93/?KD&J/(2Y;`5&XPCM<6"
^XMB(3.9,23,2,10719,0)="""DATA"",396.18,213,3,333,0)"
^XMB(3.9,23,2,10720,0)="M23>(%""E=B3/T=M61M2"",)A>@263M*_I'DE]R4Q8MF(O!*G=K\M8P""P.3&<A+"
^XMB(3.9,23,2,10721,0)="""DATA"",396.18,213,3,334,0)"
^XMB(3.9,23,2,10722,0)="M]I#,9-Q.Z!9`;Z,5@""ZG""HK8E]`?AH^!K>K`UNYXRQT=;ZDWG""LOBU$Z2><%"
^XMB(3.9,23,2,10723,0)="""DATA"",396.18,213,3,335,0)"
^XMB(3.9,23,2,10724,0)="M&::31%,+0'FB-3:II@(`A0@Z7#+S!V76$I%DN[OQ4KP\IZI'0=E715)<ML^>"
^XMB(3.9,23,2,10725,0)="""DATA"",396.18,213,3,336,0)"
^XMB(3.9,23,2,10726,0)="MS*'),T-3%!Z`I?[\[""`L@?VP=)XG9!B@^([\LQ8&7M`MK,4'U]]]902AN%PB"
^XMB(3.9,23,2,10727,0)="""DATA"",396.18,213,3,337,0)"
^XMB(3.9,23,2,10728,0)="M.?'+DX.L^JTY0`0X>L""A@IJ5%YJM/'?_E1=%4>=:FEMD]GZ+[/E(B`T7X$[;"
^XMB(3.9,23,2,10729,0)="""DATA"",396.18,213,3,338,0)"
^XMB(3.9,23,2,10730,0)="MVB""Z$;<LUG5V`T(=&B3Q-<+#*+I/Q:>""F^Q`;PXY%_SP:X>""TS5.V6*P%G4Q"
^XMB(3.9,23,2,10731,0)="""DATA"",396.18,213,3,339,0)"
^XMB(3.9,23,2,10732,0)="M""#3^17#$M*Z+000SSC<)*E-E7+!NKWJJO2JA+)I%67=F,T19^!CKNSL<FS""A"
^XMB(3.9,23,2,10733,0)="""DATA"",396.18,213,3,340,0)"
^XMB(3.9,23,2,10734,0)="M0:0RH4&H-:&;TC""[Y1K!QU1!V:KV-!JN1D=WX62M""/.""111O=&N^%+;F-V]8"
^XMB(3.9,23,2,10735,0)="""DATA"",396.18,213,3,341,0)"
^XMB(3.9,23,2,10736,0)="M0X.402C;6XZ!O?5JX(4N.>8$?ZP>(M<DB7%4/^&K)`9""3Q-B#J;0-;)#5'8_"
^XMB(3.9,23,2,10737,0)="""DATA"",396.18,213,3,342,0)"
^XMB(3.9,23,2,10738,0)="MP]`Q+D\LM&)>]]V9WEXI@+;&4O)%.]7U9X+@'RTE,3W*-DJ/DL^.^E)I.\J#"
^XMB(3.9,23,2,10739,0)="""DATA"",396.18,213,3,343,0)"
^XMB(3.9,23,2,10740,0)="M<4&E/I[N5K.CAAK965W4""=/)Z`Z,*=4N!_=.""W9JD%WN1EXS$VF06,5@*J@@"
^XMB(3.9,23,2,10741,0)="""DATA"",396.18,213,3,344,0)"
^XMB(3.9,23,2,10742,0)="M'9@)P[U=H""579]K,5?5#>5GA/-WBA$4@'Y[;-)E$Z""HM$Y%M!)*V`T.#)$(/"
^XMB(3.9,23,2,10743,0)="""DATA"",396.18,213,3,345,0)"
^XMB(3.9,23,2,10744,0)="M/&H[1DF$0+=+/+#?-@D4N\2;(L(M;IW7!<7/,+/P/;HF""4N9'2SM:IWF9#FP"
^XMB(3.9,23,2,10745,0)="""DATA"",396.18,213,3,346,0)"
^XMB(3.9,23,2,10746,0)="M:S9KG`DCSY/D%I+VI""""-F?(KCBMY=V>+,\)Q$K(;W4D2\I`;H+@B7W""G#V@+"
^XMB(3.9,23,2,10747,0)="""DATA"",396.18,213,3,347,0)"
^XMB(3.9,23,2,10748,0)="MJ&CML4.KJLQEYG%S>UQ*--IIZ\W2E6)_=E*S<0`_X`,O7ZTW.>KCDLB=RLQ3"
^XMB(3.9,23,2,10749,0)="""DATA"",396.18,213,3,348,0)"
^XMB(3.9,23,2,10750,0)="M:)DZS?P-1DL4K_%]J2(*30YOH""OCR\!7_[K`_ZSI/N3'#>L.;=]R$=$68R8'"
^XMB(3.9,23,2,10751,0)="""DATA"",396.18,213,3,349,0)"
^XMB(3.9,23,2,10752,0)="M1^%=&@W?<@E65Y,/""L2""7B/U*90/6+L3L'MA-SBW<,+BF#EP/<DKX8S*A2@<"
^XMB(3.9,23,2,10753,0)="""DATA"",396.18,213,3,350,0)"
^XMB(3.9,23,2,10754,0)="MEXYW:PY<C`HKSK.R0EFE/3L!/_CMN<F&OO8*X]\'ZDYE)5285U9*,;I.MM:B"
^XMB(3.9,23,2,10755,0)="""DATA"",396.18,213,3,351,0)"
^XMB(3.9,23,2,10756,0)="M9B/=H0Q[6'\,PUZW92""(/VI?M9?+$\X?3\@>SS&N_7%9.L=_M`&,:J/Q0$M9"
^XMB(3.9,23,2,10757,0)="""DATA"",396.18,213,3,352,0)"
^XMB(3.9,23,2,10758,0)="MAVI*);5+77!X^DV0WR`@W'O@*E2@4:%T*H%0=D@NSQ*XQBH4M=OR@JL%W!<U"
^XMB(3.9,23,2,10759,0)="""DATA"",396.18,213,3,353,0)"
^XMB(3.9,23,2,10760,0)="M,-2_]6H'/%A'5>T@$LQ2QW$?4K4#YQ:J'3BZH&H@1F;(U2C'4241,*]VX$!="
^XMB(3.9,23,2,10761,0)="""DATA"",396.18,213,3,354,0)"
^XMB(3.9,23,2,10762,0)="M4#&0TK.`'$/J1+91#LH@^/+--=L3)(O1!L4\WHG5""]Z0,E]2T76<8L2+#C&]"
^XMB(3.9,23,2,10763,0)="""DATA"",396.18,213,3,355,0)"
^XMB(3.9,23,2,10764,0)="MFO#\E`5>%IA*0I;(4158#*E&%8LVLA9;""UF;];8D,4'9R<]'=Q>9""I21J:J5"
^XMB(3.9,23,2,10765,0)="""DATA"",396.18,213,3,356,0)"
^XMB(3.9,23,2,10766,0)="MI(U-U4>=[AL/[KB&I`.N@G:&51\^U.F""KJ!>J]B1QF79B#[71MJRKQ59D)Q*"
^XMB(3.9,23,2,10767,0)="""DATA"",396.18,213,3,357,0)"
^XMB(3.9,23,2,10768,0)="M.D:IAC;/OG[P\)^$1*)G""<QFI7IS$?Q.X!F%M]O>W29<?VX*X%GK5L:E:$GM"
^XMB(3.9,23,2,10769,0)="""DATA"",396.18,213,3,358,0)"
^XMB(3.9,23,2,10770,0)="MN<SZGQ\*1""5>EFR?6EE>43*1C/NRN^8:?V01"")$8P9[$""!V9&&%D1@O?_D92"
^XMB(3.9,23,2,10771,0)="""DATA"",396.18,213,3,359,0)"
^XMB(3.9,23,2,10772,0)="M#8!!`8=(7[]AQ'&\<,QQ?*,""#K8/OE(!!^%<AUE$XN7%52Y<K@LLW']-K8CA"
^XMB(3.9,23,2,10773,0)="""DATA"",396.18,213,3,360,0)"
^XMB(3.9,23,2,10774,0)="M]5\L/G)BG$4%M>6-Q!X#ATE\;=:I$QB*#3<<UPJ""9E+C?)MNJIPNYV5=#$3\"
^XMB(3.9,23,2,10775,0)="""DATA"",396.18,213,3,361,0)"
^XMB(3.9,23,2,10776,0)="MPQ4'+>K]PR4V@.%>$IM*Y%ZQZJ3W@\>_-H/.=^<)8-N&*71UT5>I[$CPJ`BU"
^XMB(3.9,23,2,10777,0)="""DATA"",396.18,213,3,362,0)"
^XMB(3.9,23,2,10778,0)="MIVZSY:[<647(#0R%+_PZM5!0KPM1@F=Y]H/&OOD#%:#V(#F2SY2U#,@?%_P)"
^XMB(3.9,23,2,10779,0)="""DATA"",396.18,213,3,363,0)"
^XMB(3.9,23,2,10780,0)="MQA9#H$3[;,;@U`&S5KI/(:@[LA+$LQ!Y,0S<>%D@DJ%+X>DF'.V,WA`T@F%("
^XMB(3.9,23,2,10781,0)="""DATA"",396.18,213,3,364,0)"
^XMB(3.9,23,2,10782,0)="MA?[L>6]-BH?`'*Y*J4K?J54I[RNI4E1ULFZB.[TF7R1R7(NJE33`?>RGG8_="
^XMB(3.9,23,2,10783,0)="""DATA"",396.18,213,3,365,0)"
^XMB(3.9,23,2,10784,0)="MJ/H8F$#YB/NK<`X,<>[>'.=&BQZPE'/'>HFV`G>`;-@=#7MLV!\-!\R(!^/'"
^XMB(3.9,23,2,10785,0)="""DATA"",396.18,213,3,366,0)"
^XMB(3.9,23,2,10786,0)="M_](/GIAFN`)E[]""&1;2'K$(M7L<3.WD`YZ%[JT.UMQIH\B/MB=:ASCA=T\!9"
^XMB(3.9,23,2,10787,0)="""DATA"",396.18,213,3,367,0)"
^XMB(3.9,23,2,10788,0)="MW60C/D\27%QN[XO#6M-$++*G6J$]]L,T""J(""WG00E9""##>5S6>C,MG&P]VUA"
^XMB(3.9,23,2,10789,0)="""DATA"",396.18,213,3,368,0)"
^XMB(3.9,23,2,10790,0)="M)44W:4.H6#-G[K5L%ONS_3LWG%'=+\N$?@WG&)6L>]_@E#6.4<D[^DVV<=!P"
^XMB(3.9,23,2,10791,0)="""DATA"",396.18,213,3,369,0)"
^XMB(3.9,23,2,10792,0)="M5&4GS&!0,Z`I]+!K_2R=_X&'7MT\4G+40%TR0&SM$MP&0_VH""-7]UN.I@""8U"
^XMB(3.9,23,2,10793,0)="""DATA"",396.18,213,3,370,0)"
^XMB(3.9,23,2,10794,0)="M1(R*EZ,E@4'<_KL\[@UG(<A9F^70LGBHB[B9[FKXR.2GHC^4G?%$*KM0COX8"
^XMB(3.9,23,2,10795,0)="""DATA"",396.18,213,3,371,0)"
^XMB(3.9,23,2,10796,0)="M-SV60\`C.P@?FQZ/6+VCS&T+M&WP@)3;9D>/N6VC/LBVDH-%FHHQ(9Q0J'=="
^XMB(3.9,23,2,10797,0)="""DATA"",396.18,213,3,372,0)"
^XMB(3.9,23,2,10798,0)="M6F;Y_]NL+WQ^3WA^I*YW`<.I%F[NJ`T#C+2M1%NORH)S*.O)BYHD2^NLR*G]"
^XMB(3.9,23,2,10799,0)="""DATA"",396.18,213,3,373,0)"
^XMB(3.9,23,2,10800,0)="MG#YA-FK,CI29KRVATI4)B$USLZ2H0B0=MA*E%C?%(8N0IXHAH5?M(00[M<37"
^XMB(3.9,23,2,10801,0)="""DATA"",396.18,213,3,374,0)"
^XMB(3.9,23,2,10802,0)="M*&4%_NGGC\N3'ZV+-2F[5S6OOAK6;3M*$O:SS&*E3KX@DC""#WB(9?]>3EWE<"
^XMB(3.9,23,2,10803,0)="""DATA"",396.18,213,3,375,0)"
^XMB(3.9,23,2,10804,0)="M\PB$'M`KDBWSJZ<6*EE&-H5S^*ZFNN:3]F'Z2EZ8!E?TM7CY[(E5<APPQ#!`"
^XMB(3.9,23,2,10805,0)="""DATA"",396.18,213,3,376,0)"
^XMB(3.9,23,2,10806,0)="M?MR_$6`4&I`I].1&]?.=]F0R*69.242OZ;9;H@JQ@C:HX(U>>S(5]*=?ANA@"
^XMB(3.9,23,2,10807,0)="""DATA"",396.18,213,3,377,0)"
^XMB(3.9,23,2,10808,0)="M3:#:!K&,*E9%-?)#)AT93!K(\?!P',PU/^M/^`O!5U8W>;Z*^,SY,`M1^<)V"
^XMB(3.9,23,2,10809,0)="""DATA"",396.18,213,3,378,0)"
^XMB(3.9,23,2,10810,0)="MW]9""<5P7J(D++^O%<-8IJ5BG;X:E'R=S-[U0DX$[M><,2N2`F<]&!I^5UY#!"
^XMB(3.9,23,2,10811,0)="""DATA"",396.18,213,3,379,0)"
^XMB(3.9,23,2,10812,0)="M9YWIS_JVP6='5#3X+OQQ1G?4U,-QI$^[P<UTQ[&CWDPQ4ZL+JDQX;V`7-@[B"
^XMB(3.9,23,2,10813,0)="""DATA"",396.18,213,3,380,0)"
^XMB(3.9,23,2,10814,0)="M/BY44A;@@9ZV^ZTL`.7""##7*@N=,>=\B8V/Q/6XR/C]N2,9N''_(*U[G_167"
^XMB(3.9,23,2,10815,0)="""DATA"",396.18,213,3,381,0)"
^XMB(3.9,23,2,10816,0)="M5+@XN1\J1*#.*0D%-#IR&HX[JJ'FZ-N1<UE.@4)66E-!3D4VQ2UCMA2;*U)Q"
^XMB(3.9,23,2,10817,0)="""DATA"",396.18,213,3,382,0)"
^XMB(3.9,23,2,10818,0)="M21.3@C)O=FP0-RT,V6#):T@+<C_F@6Z8BF&J(F`K0=EES8I&TU\\B5%-MP4+"
^XMB(3.9,23,2,10819,0)="""DATA"",396.18,213,3,383,0)"
^XMB(3.9,23,2,10820,0)="M.\Q9/%Q9)TPA>=)_-<V7PKNX#K*BS^8MC=M7E]8""L1?1$71Y65#]@LWH`!$8"
^XMB(3.9,23,2,10821,0)="""DATA"",396.18,213,3,384,0)"
^XMB(3.9,23,2,10822,0)="M!@:X!;:\2%T#]HE.K-^:?Q2WPL31;NK=(_S?))L/0Q-(9><!M`UJ#RZ&D*8Y"
^XMB(3.9,23,2,10823,0)="""DATA"",396.18,213,3,385,0)"
^XMB(3.9,23,2,10824,0)="M)45""?L?)]C:@CDR@#L-98W@,-1Y""S</F--`:`QO9)L#Z4G""[ZX7F^M!R""#1/"
^XMB(3.9,23,2,10825,0)="""DATA"",396.18,213,3,386,0)"
^XMB(3.9,23,2,10826,0)="M,6E1C9HY'._23CS[)\_F2B!:$%8+\H3.<+@Y;CI;QV2V[L@T\<UG&P]GB[K4"
^XMB(3.9,23,2,10827,0)="""DATA"",396.18,213,3,387,0)"
^XMB(3.9,23,2,10828,0)="M'""1/VCI6SK4N)=/D!G-U35BHO,VANP=E5_U<WU+8,S8O""F=.I3@E)YU^4UK_"
^XMB(3.9,23,2,10829,0)="""DATA"",396.18,213,3,388,0)"
^XMB(3.9,23,2,10830,0)="MBE3KO&YN%3S$@7+8E(5""#.?*N&J=[%K`ZJ;EF""S84(Z!B_:P6LX8R2B;KY@%"
^XMB(3.9,23,2,10831,0)="""DATA"",396.18,213,3,389,0)"
^XMB(3.9,23,2,10832,0)="MN<UKGIX5)S5SS)<6_8\U0LAP)PY6>5<U-*%F3))LA[.BDX[SRXS\BY)RLR[H"
^XMB(3.9,23,2,10833,0)="""DATA"",396.18,213,3,390,0)"
^XMB(3.9,23,2,10834,0)="M>\N9&BPF+&\D]\8UQ_1R[U73W8#93]WLTDV""Z5P[@4,77&-<4B/%HB(Q;;K;"
^XMB(3.9,23,2,10835,0)="""DATA"",396.18,213,3,391,0)"
^XMB(3.9,23,2,10836,0)="M<9(F@JRB*YNL6&/Z(M\4A%O<U*SI7\BE)4,CLW^>LO<R84<M'L)W1(;%Q<Z6"
^XMB(3.9,23,2,10837,0)="""DATA"",396.18,213,3,392,0)"
^XMB(3.9,23,2,10838,0)="M>R?BV$\[F7JT?]U*'KJETM-]3^P%""?],>KHR!SX<'(D#,0<>B.UI7?M141\K"
^XMB(3.9,23,2,10839,0)="""DATA"",396.18,213,3,393,0)"
^XMB(3.9,23,2,10840,0)="MZH[:@E1GQ8/)*M#&:OK?""&MW=4XN[XM+3U>K:C(KWI]GND<7.-W@`E5U,5.<"
^XMB(3.9,23,2,10841,0)="""DATA"",396.18,213,3,394,0)"
^XMB(3.9,23,2,10842,0)="MRG4-()""WLV.@LY[5R5QA+->D!/;(W1`8U)S^A,L-H=-G!X!%7W-8""X=)Z6O'"
^XMB(3.9,23,2,10843,0)="""DATA"",396.18,213,3,395,0)"
^XMB(3.9,23,2,10844,0)="M<621/@_'9WYOVM6C\;F(>>J.(Y$`&M0K.\OKK""V%JOVZ29$!1RY""&1A/O6TP"
^XMB(3.9,23,2,10845,0)="""DATA"",396.18,213,3,396,0)"
^XMB(3.9,23,2,10846,0)="M_ZT78_#4""JZ4(1#(A?A&H16^I]4?6GR]8PV3CNG>C7'32.FJ&>>-E)@&0.'F"
^XMB(3.9,23,2,10847,0)="""DATA"",396.18,213,3,397,0)"
^XMB(3.9,23,2,10848,0)="MMC03Z0G)J.ERC%CF^5#F4Q.Y_5GK)'=XX#EORQCC9:-I,1K0][<E:TZ^Z3(0"
^XMB(3.9,23,2,10849,0)="""DATA"",396.18,213,3,398,0)"
^XMB(3.9,23,2,10850,0)="M>QGJGIKI]M;8+5+S%T0)H*#F)1M_I.:M4-,S$2*>'%EF4%CF19+G[/B+FM%4"
^XMB(3.9,23,2,10851,0)="""DATA"",396.18,213,3,399,0)"
^XMB(3.9,23,2,10852,0)="MC$ZS48U_TO5%*.0>Z?-`_#3]71/I/2Y>;3#Y-SO)]2WS;4V+`->[8[J8R'00"
^XMB(3.9,23,2,10853,0)="""DATA"",396.18,213,3,400,0)"
^XMB(3.9,23,2,10854,0)="MR1J%0?&>MUE?%$IKI0%==P$@UD""5W4\WL-*`?7B<RZLEJ1B=V/][%)095X(8"
^XMB(3.9,23,2,10855,0)="""DATA"",396.18,213,3,401,0)"
^XMB(3.9,23,2,10856,0)="M%90)=C7V#$HNLN^'\W""$P=YPT$?`D7'M0?9]GILP`PAPO/TA""?M64@:U^C@D"
^XMB(3.9,23,2,10857,0)="""DATA"",396.18,213,3,402,0)"
^XMB(3.9,23,2,10858,0)="M0`6)+RJ(()K13E6D<8XFBD]/Q;L&T^&NP!9+-<!1""9%1S4`).M^QP2V6#)2C"
^XMB(3.9,23,2,10859,0)="""DATA"",396.18,213,3,403,0)"
^XMB(3.9,23,2,10860,0)="M6?]$[-2X&44^+);*U)JYF""RY_LM$22EM+7Q1OX:N7$X/0H-EYMZD%GXXAZ;_"
^XMB(3.9,23,2,10861,0)="""DATA"",396.18,213,3,404,0)"
^XMB(3.9,23,2,10862,0)="ML@9-YX<-Z(?MYX?-YX]<N_'8495BKDN`MIE)WP+W1IB!-\%,](=@AG,DJ.)("
^XMB(3.9,23,2,10863,0)="""DATA"",396.18,213,3,405,0)"
^XMB(3.9,23,2,10864,0)="MD1AJXLD!-O8\:X3ND7$_""PZ(JP*D3UNZ""23P2%WS60>),\^D1T=CLTPZ@$`!"
^XMB(3.9,23,2,10865,0)="""DATA"",396.18,213,3,406,0)"
^XMB(3.9,23,2,10866,0)="MAS<71.DI2X[:.G>K""\1X>1<\]`RD9K>-#T!M@Y!OX,GEH(TC)KN&',?ER;`)"
^XMB(3.9,23,2,10867,0)="""DATA"",396.18,213,3,407,0)"
^XMB(3.9,23,2,10868,0)="M]=.FUOU3:T-QMLVNV1Y-^%_WPP?K:/(0!%T]E'4(QR""2_B5!EUG3EG9E655-"
^XMB(3.9,23,2,10869,0)="""DATA"",396.18,213,3,408,0)"
^XMB(3.9,23,2,10870,0)="M.9MUC*]17)U,.R2#T``D,.IA``WLEI?L-(D[""CK8CM/TIRW]-P=39`*37$[3"
^XMB(3.9,23,2,10871,0)="""DATA"",396.18,213,3,409,0)"
^XMB(3.9,23,2,10872,0)="M,7$5LRR@IDOXDD+7!(1TM8NL8\(."";F7HZW'/@-H!`P`'7=6,PANX(G(S&W#"
^XMB(3.9,23,2,10873,0)="""DATA"",396.18,213,3,410,0)"
^XMB(3.9,23,2,10874,0)="M`)LY<(QTGGVQ-[,K&S6V.WODV-,P84?@`TR)A+QYASTW,,'D:`JCUEB**;QB"
^XMB(3.9,23,2,10875,0)="""DATA"",396.18,213,3,411,0)"
^XMB(3.9,23,2,10876,0)="MNX""3NY\(JUR5-2Q(J%YE'2^73ZTT?6K=UN3:""K':SA)2<*<S8R5W9ON\E1S<"
^XMB(3.9,23,2,10877,0)="""DATA"",396.18,213,3,412,0)"
^XMB(3.9,23,2,10878,0)="M5L:?/VT!08%""(^5PU""'`M4?I(2&\DYKI7=VJAAFRQJ27&27\S_LG_LFUT?N_"
^XMB(3.9,23,2,10879,0)="""DATA"",396.18,213,3,413,0)"
^XMB(3.9,23,2,10880,0)="M?\U^S_*K;#+3;YQH`Y1E5B7N9LOQRZ.C2SA.M`D?8!>X2=>&2E65'7)@#M'C"
^XMB(3.9,23,2,10881,0)="""DATA"",396.18,213,3,414,0)"
^XMB(3.9,23,2,10882,0)="M[F]VZ)A[-ABE><C+',DC.`=)UZ%@""(G_V/AO2'*E=>+.'+>,:K^K2#YIW!L:"
^XMB(3.9,23,2,10883,0)="""DATA"",396.18,213,3,415,0)"
^XMB(3.9,23,2,10884,0)="M3U#M:K-O`3S/$#QOBC,Y\\L4@MEEZBEXO/WPENEL>SN@L%[]@?$:B@F`D62["
^XMB(3.9,23,2,10885,0)="""DATA"",396.18,213,3,416,0)"
^XMB(3.9,23,2,10886,0)="M!H^A0B-S5M,S7I=L(L3DN;(]X1DG@.?EAL4+D7^UZ<R%=2XT=+K=5>]]_11P"
^XMB(3.9,23,2,10887,0)="""DATA"",396.18,213,3,417,0)"
^XMB(3.9,23,2,10888,0)="MM78N]N^2.VK8!F=,'>:X29:TZ>`S\96.`3""1+\=F!V8&ZS-J*6R?-M7S.5""\"
^XMB(3.9,23,2,10889,0)="""DATA"",396.18,213,3,418,0)"
^XMB(3.9,23,2,10890,0)="M""""Y965S3XY&\+%;RFJ3,H%C.!OP`UP!:(*=U*9)/59%'K/@$`ZEJ:UNT5NLT"
^XMB(3.9,23,2,10891,0)="""DATA"",396.18,213,3,419,0)"
^XMB(3.9,23,2,10892,0)="M1'YD`)$<@>2""R#P^]34%"":-X;5%.Q*)&5R1)NH""""!HTD6^5%RHG]M$TC?-(J"
^XMB(3.9,23,2,10893,0)="""DATA"",396.18,213,3,420,0)"
^XMB(3.9,23,2,10894,0)="MTT^LU3`B@25V[A[F@=?-*QAM-G6Y;D)4ZT5*NFS2_?,I`#1!R2CYW3-P.)S7"
^XMB(3.9,23,2,10895,0)="""DATA"",396.18,213,3,421,0)"
^XMB(3.9,23,2,10896,0)="M:8J:VA""(8F$M<HK&%=&0C>""RG4??OU`+KZ_)S[4EC5)V)=G!O+W\'TT<`N5@"
^XMB(3.9,23,2,10897,0)="""DATA"",396.18,213,3,422,0)"
^XMB(3.9,23,2,10898,0)="M'*=5;J'EDA&)0]@F<+;3.B2NU]'EWXGU)&P)V]XH""BU4V,)TLQ[I3E8.L87;"
^XMB(3.9,23,2,10899,0)="""DATA"",396.18,213,3,423,0)"
^XMB(3.9,23,2,10900,0)="MG$%=+#(06U?ZX9S]#DSM=_]FA]S*XP)Q/0?_W]ZU];AM).N_(NS+Q(""=95]X"
^XMB(3.9,23,2,10901,0)="""DATA"",396.18,213,3,424,0)"
^XMB(3.9,23,2,10902,0)="M,[!8>'U!#""3Q8.Q-<!YIB3/#C20*I&1[\NM/=U,D^U+=;.HVMD9!'FQ*,RY6"
^XMB(3.9,23,2,10903,0)="""DATA"",396.18,213,3,425,0)"
^XMB(3.9,23,2,10904,0)="M55=755=_GUYAHL&#'!(D\=6H6A=.*-7@%Z0["")+BIY=0NBI,%'EH.B1Z5!^F"
^XMB(3.9,23,2,10905,0)="""DATA"",396.18,213,3,426,0)"
^XMB(3.9,23,2,10906,0)="MM""/A$ZPPJ7OHA7B%`R/\FN$@`/8+'G6O;$SIN\<P;!&:J!=3HAVN/;=ML$,B"
^XMB(3.9,23,2,10907,0)="""DATA"",396.18,213,3,427,0)"
^XMB(3.9,23,2,10908,0)="MTFR%IEY""=_O:0:0F^^'H""+3Y@96(]2%!<R6FD8FCDSZ]E1@/%-$Q""*,CD4Y2"
^XMB(3.9,23,2,10909,0)="""DATA"",396.18,213,3,428,0)"
^XMB(3.9,23,2,10910,0)="MI8C6.""=W+:+/J&*&^>`M/.+=^*(%@S+VK9A;3)2/S4WL:8NA=B:0:98:BQ#M"
^XMB(3.9,23,2,10911,0)="""DATA"",396.18,213,3,429,0)"
^XMB(3.9,23,2,10912,0)="MO(=^?_DYLN2Z*%:ZE""31TL?0J/9CW_R<[+M-(!M'54A4?>\PA6K;D/??VY#G"
^XMB(3.9,23,2,10913,0)="""DATA"",396.18,213,3,430,0)"
^XMB(3.9,23,2,10914,0)="MH6#TE$#L]B#6VFXIY3=>='1_472K=K)U#S8.Q$D+*O1+6?W=[5@_?ZJ8>OB4"
^XMB(3.9,23,2,10915,0)="""DATA"",396.18,213,3,431,0)"
^XMB(3.9,23,2,10916,0)="M@'P6R7>P_BLW_""J2J%H#Z&/P-[S:K,OF*U;MV%B]2&CC.4A4H.N8&CC7R)/E"
^XMB(3.9,23,2,10917,0)="""DATA"",396.18,213,3,432,0)"
^XMB(3.9,23,2,10918,0)="MP`)C]6.2;]DY(TCLJ<INQ%W*XD@\EB#M4PN(M>;S!ZNRK@NFY>=,OUOF7!/$"
^XMB(3.9,23,2,10919,0)="""DATA"",396.18,213,3,433,0)"
^XMB(3.9,23,2,10920,0)="MA+>,BF6Q+K+Y9*$1I""V+V[Q>;WM+V\FJ[44=@9&V_-^F$G@$MUM,`H%D)>""X"
^XMB(3.9,23,2,10921,0)="""DATA"",396.18,213,3,434,0)"
^XMB(3.9,23,2,10922,0)="M5E7Y1?UMQ8Q#GZWSZ@O[E[:4!R^?""-D:L3&'X)`.+:DH]N0-V<ZDB""M5QU0L"
^XMB(3.9,23,2,10923,0)="""DATA"",396.18,213,3,435,0)"
^XMB(3.9,23,2,10924,0)="M?HR%1`//A82)0;>5>M(.\3*%`ST4;&$<7XV/$H\H\50CC2*#M<PSM$/39L[%"
^XMB(3.9,23,2,10925,0)="""DATA"",396.18,213,3,436,0)"
^XMB(3.9,23,2,10926,0)="MD5II=0+-MAB;G%)^+))7KS<55U8_GE6+J""5`+*;E<E;T9T7G'X\H\G0#DAK;"
^XMB(3.9,23,2,10927,0)="""DATA"",396.18,213,3,437,0)"
^XMB(3.9,23,2,10928,0)="M4@<1,QB0VDVGYJ$_O[UE,M0-=,A4-\8@P='8%_1-80@V&(((]B.WE/:V[E6-"
^XMB(3.9,23,2,10929,0)="""DATA"",396.18,213,3,438,0)"
^XMB(3.9,23,2,10930,0)="M%^/CQ_,-?VT.7K*</CSG>*+;LRJ^][+J:U6J.^6RS@^MC\BFCTA3A['J4S]C"
^XMB(3.9,23,2,10931,0)="""DATA"",396.18,213,3,439,0)"
^XMB(3.9,23,2,10932,0)="MHY_/+51&D9_*4KRCRO#YJ<R:YO240WLJC9R3TOB96JJ<K=D3P\2DQ`Q2'TZA"
^XMB(3.9,23,2,10933,0)="""DATA"",396.18,213,3,440,0)"
^XMB(3.9,23,2,10934,0)="M``?]526S-@8%XPUGM?%L+URH$3(H0'84I8!@*#YYFFJVHJVFM+:CI8:T:T]V"
^XMB(3.9,23,2,10935,0)="""DATA"",396.18,213,3,441,0)"
^XMB(3.9,23,2,10936,0)="M-J6AEI6+>PW;N=?T!-BDVD;8])0X@`PB,7X=FF7MXYIO9`JE6E7>\>9C\84#"
^XMB(3.9,23,2,10937,0)="""DATA"",396.18,213,3,442,0)"
^XMB(3.9,23,2,10938,0)="MX7TMJUKY^/V""%Y%LZU,>\@I23#4PH;_^DVV?BZ*N):STG9G7Z+`1B-T(1JH*"
^XMB(3.9,23,2,10939,0)="""DATA"",396.18,213,3,443,0)"
^XMB(3.9,23,2,10940,0)="M62'R6Q8X.9X5=-;:!D""V0]EK;;6I[KBO*CK]],_K3U=*TK,4LU:KU1SX%1\V"
^XMB(3.9,23,2,10941,0)="""DATA"",396.18,213,3,444,0)"
^XMB(3.9,23,2,10942,0)="MZQ5[*.!#OCW<Y<J'KZ]?72L,;Q7GWROK=;EXV->.H3^;)!YBD\2)MMEWJ*?R"
^XMB(3.9,23,2,10943,0)="""DATA"",396.18,213,3,445,0)"
^XMB(3.9,23,2,10944,0)="MK01JF%7BF.S-2H*C$DI^',ZRG122#KJY_9@EHX&-1LP#>NPTA*3F3F,NJ9""8"
^XMB(3.9,23,2,10945,0)="""DATA"",396.18,213,3,446,0)"
^XMB(3.9,23,2,10946,0)="MM'H(I:=G4/V!-J!XR$1^%J((^5B(A@#Q87JQD,M""R8""%$D\+Q8F/A:(02@[("
^XMB(3.9,23,2,10947,0)="""DATA"",396.18,213,3,447,0)"
^XMB(3.9,23,2,10948,0)="M)5N3``1`4S3'2_JAIR-7,WFZS=RYCWOR1416,W0'WSPI^5%;5^:!E,>!G5/]"
^XMB(3.9,23,2,10949,0)="""DATA"",396.18,213,3,448,0)"
^XMB(3.9,23,2,10950,0)="M!-OT3\CA#`#P](#(0KN_34<^Z^"">30Y4)48T3.7L8.L6?]X7ZQ',L\@G:_#G"
^XMB(3.9,23,2,10951,0)="""DATA"",396.18,213,3,449,0)"
^XMB(3.9,23,2,10952,0)="MA(V@<1PJW6FA5""4P#%56J_#"":F6.Z$3PB`XX8J(B@NB<5HGW@([$:<A2_<TB"
^XMB(3.9,23,2,10953,0)="""DATA"",396.18,213,3,450,0)"
^XMB(3.9,23,2,10954,0)="M^ZE^=AZ762R332I>&=%QG(@?ML#S[A)+!S+08EP(+;[\@6'NMF,KMKOL@3J_"
^XMB(3.9,23,2,10955,0)="""DATA"",396.18,213,3,451,0)"
^XMB(3.9,23,2,10956,0)="MC^*G-+:R)_<B2D#N1<4G::I?:3+NIW6<#M+%RPOWHK%)02R[M-^B0GF'BJEV"
^XMB(3.9,23,2,10957,0)="""DATA"",396.18,213,3,452,0)"
^XMB(3.9,23,2,10958,0)="M[1(_=8K=QBM-;!L+/FCJNF.)C+%GZX;4(=R<R97*R((%I)(2=X/NW]6(:&09"
^XMB(3.9,23,2,10959,0)="""DATA"",396.18,213,3,453,0)"
^XMB(3.9,23,2,10960,0)="MMXS5351'`7O4$='8<I-`@[?3>4<>=40TM.D9[2VSY=K9(<8OD77\4H5AT.=:"
^XMB(3.9,23,2,10961,0)="""DATA"",396.18,213,3,454,0)"
^XMB(3.9,23,2,10962,0)="M#4S:CLD&GJV,6G""9X\Y68NM@`M8'`LU2+HU&#5?R7''+U-*1I_""AE\4DJ^MR"
^XMB(3.9,23,2,10963,0)="""DATA"",396.18,213,3,455,0)"
^XMB(3.9,23,2,10964,0)="MROE99H*-IYF""Z9""USF[J""=NF,%-5YV%""C'9`X#GU]&K6C!!E\Q&C3\CJ#4CK"
^XMB(3.9,23,2,10965,0)="""DATA"",396.18,213,3,456,0)"
^XMB(3.9,23,2,10966,0)="MVQF^0#SE^M@R]\S:>\WB,G5+6JO[Q]6.`R;8TZVIH6'J>?+_YFS=DV!/+T#&"
^XMB(3.9,23,2,10967,0)="""DATA"",396.18,213,3,457,0)"
^XMB(3.9,23,2,10968,0)="M47N7I`]I[Z=W?-WC,(B?:?3&GQ_$Q.[/NUH^LBTN&NC-9^/\)O6<;>48`&]?"
^XMB(3.9,23,2,10969,0)="""DATA"",396.18,213,3,458,0)"
^XMB(3.9,23,2,10970,0)="MO?[%C%&.M178AMPHUD[U(F(NKW3T[#6'32@$@L+TOF3[H5A6,EV6Q-[,&[;_"
^XMB(3.9,23,2,10971,0)="""DATA"",396.18,213,3,459,0)"
^XMB(3.9,23,2,10972,0)="MX!QW:TXY*>*Q.@-FC\X[&PH%V-=2$=UW#,PE!O$5`QB*'SLFY)*#^OH'(`=*"
^XMB(3.9,23,2,10973,0)="""DATA"",396.18,213,3,460,0)"
^XMB(3.9,23,2,10974,0)="MP[$.\GXICMH;OV@/:LO;)A[WL)8<A&,ZW:RR[6[2='X*A4>.,\EETW7QA6TY"
^XMB(3.9,23,2,10975,0)="""DATA"",396.18,213,3,461,0)"
^XMB(3.9,23,2,10976,0)="M^3X>$7J;@N[J$M3'%)&W*4PY2.BY$XKMST<:[XAFG![@*/0Z/9`,R6,;'PCE"
^XMB(3.9,23,2,10977,0)="""DATA"",396.18,213,3,462,0)"
^XMB(3.9,23,2,10978,0)="M;.>;:L4""1_V<[<:K+3>B[!WYK!]5;BYN,`]2W:+UJSI?99Q`:OXPX=2@^915"
^XMB(3.9,23,2,10979,0)="""DATA"",396.18,213,3,463,0)"
^XMB(3.9,23,2,10980,0)="M<!PYA)5K?*J&SPID2X6I;U;4V>=""_6V<AG*2?\GFFZ8+>=MBL71B[.%[B:^6"
^XMB(3.9,23,2,10981,0)="""DATA"",396.18,213,3,464,0)"
^XMB(3.9,23,2,10982,0)="MTVC?""4N7&*FOZZ7`[NOI>A]6S6)^WE;/7(_\`*_EMW=N9Z*[1.4VDRRFMCYB"
^XMB(3.9,23,2,10983,0)="""DATA"",396.18,213,3,465,0)"
^XMB(3.9,23,2,10984,0)="M8Y,EL2DE[=-:X,Q#/0/JVTEP>0=E@X92>^;*_HG""JJ=BX>#^(:!9>,Q<""JGB"
^XMB(3.9,23,2,10985,0)="""DATA"",396.18,213,3,466,0)"
^XMB(3.9,23,2,10986,0)="MFE.W4MC_FWK#0FD?5Z6Q%;\DTIU&.A))KU32FDRZ#DX[7X%2RLC?`*@?!91,"
^XMB(3.9,23,2,10987,0)="""DATA"",396.18,213,3,467,0)"
^XMB(3.9,23,2,10988,0)="MD`0[F*`45S_JXF[)KV%G3.;.*/JNUNU>+R4M6""8_7&^:^+\H`=X3D1'O^5:\"
^XMB(3.9,23,2,10989,0)="""DATA"",396.18,213,3,468,0)"
^XMB(3.9,23,2,10990,0)="M#.1/+\_=H>P+&D782]']*!V8,L&[(V<DXTFRLK9%-EQO69(GQ6*5-4:!'4S9"
^XMB(3.9,23,2,10991,0)="""DATA"",396.18,213,3,469,0)"
^XMB(3.9,23,2,10992,0)="MT3A'K8?#678SMXHP'A'T""*`AE/B[XHW@?^8)PM>R^LO81W983,U<*S)'7.UO"
^XMB(3.9,23,2,10993,0)="""DATA"",396.18,213,3,470,0)"
^XMB(3.9,23,2,10994,0)="MT0]RR0L*LC.5'THC18DLKW/6];M?5Y;I"".<LA!B:%+RP;;QL0HP\5LG'<8>^"
^XMB(3.9,23,2,10995,0)="""DATA"",396.18,213,3,471,0)"
^XMB(3.9,23,2,10996,0)="M\'O)/EBLYN5#/NN'G5QK'9Z[<?M&.,8WNJ.%8><($\`Y6&(6^RS4I^DUKVJ^"
^XMB(3.9,23,2,10997,0)="""DATA"",396.18,213,3,472,0)"
^XMB(3.9,23,2,10998,0)="MR3)]S`KF#V+*=[;ANZGJ%^^7TRH7%-KKK)KQHU+K%[+/-8=.S(MZH7Y%F\%V"
^XMB(3.9,23,2,10999,0)="""DATA"",396.18,213,3,473,0)"
^XMB(3.9,23,2,11000,0)="M36%[.QSR<SCJ<#@4(=WE0L#C.N0_-:@&L,O%R<7E;""['!PI8`3DO=1]ZD[<^"
^XMB(3.9,23,2,11001,0)="""DATA"",396.18,213,3,474,0)"
^XMB(3.9,23,2,11002,0)="MQ%)NSA=:Z2FV<#2YUOR<WV=?BK)2OW-=<J9Y?C`Q;Y`"",FVZKOGGF,<74^:#"
^XMB(3.9,23,2,11003,0)="""DATA"",396.18,213,3,475,0)"
^XMB(3.9,23,2,11004,0)="M#ZP<G<_+KWP3+*!A/$VZ1=ED#-;/LR5/ZF8</:$ROK?MW-5-2VY>W(K-5]#;"
^XMB(3.9,23,2,11005,0)="""DATA"",396.18,213,3,476,0)"
^XMB(3.9,23,2,11006,0)="M9U7UP/YB%;/B);/QA8^K/!>E??L]]>-?\JP2T!B6S_\H^*T7Z\>_,E\2(*[K"
^XMB(3.9,23,2,11007,0)="""DATA"",396.18,213,3,477,0)"
^XMB(3.9,23,2,11008,0)="M;%$L,_7#/_/L+QX+!'0#,];=)K<IA:DU7]ZM[U].-JL56[M,.?S*C5V+_0\P"
^XMB(3.9,23,2,11009,0)="""DATA"",396.18,213,3,478,0)"
^XMB(3.9,23,2,11010,0)="MT]A_X+_LY7@_HE@RI^'\&<QSU&^\RZ?""#VR?7W,N-TWE]2U[%_;/,2<\?A##"
^XMB(3.9,23,2,11011,0)="""DATA"",396.18,213,3,479,0)"
^XMB(3.9,23,2,11012,0)="M`T%,C.($VERV8\.4$^2^MP7EA&I0D\)7ZA.^CA.>L""4\02/<CN#D&.-6!KG="
^XMB(3.9,23,2,11013,0)="""DATA"",396.18,213,3,480,0)"
^XMB(3.9,23,2,11014,0)="M5AH8YH:&`20SVILPH:4)0Y)@N`T#7/\Z2!N&V+L`@;UJ([K_09MGLDL?1FMO"
^XMB(3.9,23,2,11015,0)="""DATA"",396.18,213,3,481,0)"
^XMB(3.9,23,2,11016,0)="M6WHQHJ4MM0'.H8#>J6R,'48R4AP,=,MB*$20%#32JTK8I\KEQ@QLD'\_68O@"
^XMB(3.9,23,2,11017,0)="""DATA"",396.18,213,3,482,0)"
^XMB(3.9,23,2,11018,0)="M9,2R(00HY3$B.W?/<JW)I-ME]Q)?O>HH$./@VX_]?(27`R8(>-DT!BO^@$KB"
^XMB(3.9,23,2,11019,0)="""DATA"",396.18,213,3,483,0)"
^XMB(3.9,23,2,11020,0)="MVZ]!&A<AM4^ANY#J1-)]6>5^K9X?(%UWM0^66E[T6S&?:4]*IF&6=FOY9\ZV"
^XMB(3.9,23,2,11021,0)="""DATA"",396.18,213,3,484,0)"
^XMB(3.9,23,2,11022,0)="M$SVGJ@3(?KU##P&-<SX\['RH/X4^F/>EI_$^]JM7*V:OB_^=S/_P./\CP_Z'"
^XMB(3.9,23,2,11023,0)="""DATA"",396.18,213,3,485,0)"
^XMB(3.9,23,2,11024,0)="MY3WT,/XGD0D?U?_>?LNK:2'#""%W\[\C^1\;Y'_78?(T*D:`]PU]XHO#'AQ<N"
^XMB(3.9,23,2,11025,0)="""DATA"",396.18,213,3,486,0)"
^XMB(3.9,23,2,11026,0)="MF^_IG(^.<KXHVB7SV]/[4!#'I_&^&]&+TD]E+QYX5`\,QX6_<*?T;^\`B/!I"
^XMB(3.9,23,2,11027,0)="""DATA"",396.18,213,3,487,0)"
^XMB(3.9,23,2,11028,0)="M7/!3E7W)YY<$\)0>&(WR0-$:&TH`:7#X+3@YC0>^R_/9Q?].Z7_QN`B8[I``"
^XMB(3.9,23,2,11029,0)="""DATA"",396.18,213,3,488,0)"
^XMB(3.9,23,2,11030,0)="M8JC7-,K[HM-XWW^R]?W%^T[I?<DX[TMVZOWM[7XGR@#?""%3!B_^=T/_2<?X7"
^XMB(3.9,23,2,11031,0)="""DATA"",396.18,213,3,489,0)"
^XMB(3.9,23,2,11032,0)="M[];^V]<!$3I1_E<6\WQ]\<""3-J""#<2X8[=8!W#L&DM.X('NC<G'QP)-ZX+@S"
^XMB(3.9,23,2,11033,0)="""DATA"",396.18,213,3,490,0)"
^XMB(3.9,23,2,11034,0)="M$(\]V!@2B8!3>CE.]C.5&/""^F))C>I_;3/^7&T.KLHY'C*/R>9K4-E>#S&ET"
^XMB(3.9,23,2,11035,0)="""DATA"",396.18,213,3,491,0)"
^XMB(3.9,23,2,11036,0)="MF@""#-0&D-8KASE5TF:L9/5>#L-]@S191@]HP^\)4QXX/C.M@)F1?#^SGA9D("
^XMB(3.9,23,2,11037,0)="""DATA"",396.18,213,3,492,0)"
^XMB(3.9,23,2,11038,0)="M=;)VA>WC;DE@.$X-;R`*C%>)@""O1B0G7E\07-,YAV.X6-!$[`!1UV`UB\H%0"
^XMB(3.9,23,2,11039,0)="""DATA"",396.18,213,3,493,0)"
^XMB(3.9,23,2,11040,0)="M+P3%!""?]Z?)QH!)-/Z,6V%>L.YK/2P'(R6D0AQ<_DS:E8=!*#.""!82QQR#9I"
^XMB(3.9,23,2,11041,0)="""DATA"",396.18,213,3,494,0)"
^XMB(3.9,23,2,11042,0)="M0@_J$BN08&@+8FE`@O4J_;58Y#\(NE<""HWLA$*TJ5<""3D(9#U'[J`O>ZOOEP"
^XMB(3.9,23,2,11043,0)="""DATA"",396.18,213,3,495,0)"
^XMB(3.9,23,2,11044,0)="M_?;FT_NW'\^#^A7#L)Q841350+U:-F@7NB1S=#X^_B_4;2,_(H9D@\`9>>@H"
^XMB(3.9,23,2,11045,0)="""DATA"",396.18,213,3,496,0)"
^XMB(3.9,23,2,11046,0)="MTIPI\4#@;#;]3_FW];]^;^&M'.L>`>L^EI9]DY%W^WPSPMW/:^+P@E5KA(_4"
^XMB(3.9,23,2,11047,0)="""DATA"",396.18,213,3,497,0)"
^XMB(3.9,23,2,11048,0)="M@G8'@ZZ2U(%62P+L""PZXQ;+CP\MGRRS=.'=L8SI62(,[%HP#0,+M""VT:0M""F"
^XMB(3.9,23,2,11049,0)="""DATA"",396.18,213,3,498,0)"
^XMB(3.9,23,2,11050,0)="M6.4XUN-A&.CBMA=796C3^`)M:EQW""/A_4&!#6((X;3""].CRO1MU]9`O2)XYQ"
^XMB(3.9,23,2,11051,0)="""DATA"",396.18,213,3,499,0)"
^XMB(3.9,23,2,11052,0)="MVE!4&F&LT:XMEBE`IZ$.(.V-O'W3</*R4':33YE>SP3PE.L.85AU""BTW""@S("
^XMB(3.9,23,2,11053,0)="""DATA"",396.18,213,3,500,0)"
^XMB(3.9,23,2,11054,0)="MTW!XZW^]1?#C4_A5H[>7)PL/A\^3>-]#>!M6R.:Z+K<2[/7PB=I:URA^VR6-"
^XMB(3.9,23,2,11055,0)="""DATA"",396.18,213,3,501,0)"
^XMB(3.9,23,2,11056,0)="M6>4;F*&>#DE#(&E(VQ-I*5_C7<1!ICBA&QQ5+$9J02-/0A5K5,LM8D.DY`3["
^XMB(3.9,23,2,11057,0)="""DATA"",396.18,213,3,502,0)"
^XMB(3.9,23,2,11058,0)="MH=H[;E[`-E8/0J9JFL5(SY!B0[-1V!K:UCRV$EB9/6-9.Y-W!?/M)EJU2\W:"
^XMB(3.9,23,2,11059,0)="""DATA"",396.18,213,3,503,0)"
^XMB(3.9,23,2,11060,0)="M&;EJOI?W37Z!@+""%L&PP#?]X=?/A2OH![:/)Y\UZLF0_E'W)BKE@IGL&X]=Z"
^XMB(3.9,23,2,11061,0)="""DATA"",396.18,213,3,504,0)"
^XMB(3.9,23,2,11062,0)="M:IZX-8_QWKI/N@'*P^J^H8"";;S>([\T&Q)$-]OF)B7:O[@(Z?P!%1C>AK1[Z"
^XMB(3.9,23,2,11063,0)="""DATA"",396.18,213,3,505,0)"
^XMB(3.9,23,2,11064,0)="MOG^4H$M.:+2W`HPQ1,P22PFA@GF/0PWS'C_U?!#!S1ZFV2B%FQF4NG#O6\CN"
^XMB(3.9,23,2,11065,0)="""DATA"",396.18,213,3,506,0)"
^XMB(3.9,23,2,11066,0)="MX72P`8GAN<W95+*=[F*XJQBK<1?K;8%@$`&_6V,-L[T"",W6_9;:IB^548""A."
^XMB(3.9,23,2,11067,0)="""DATA"",396.18,213,3,507,0)"
^XMB(3.9,23,2,11068,0)="MF0[O\LE/`B:"",[;4`G!7?""Y!45U-YEF]%LB[DV(+:L7^SU@`%0F[#,D+GCCZ"
^XMB(3.9,23,2,11069,0)="""DATA"",396.18,213,3,508,0)"
^XMB(3.9,23,2,11070,0)="M0>SWRL'#RD$Z/0`.?7+E;%-WM#0%LS5+=-8-Y*V`IBJ6S:LB_&+!K'D_63$'"
^XMB(3.9,23,2,11071,0)="""DATA"",396.18,213,3,509,0)"
^XMB(3.9,23,2,11072,0)="M*&<O[2_G>H\D\G@/JBT0C*D'X0X@^VPC,#@@^0]F'(P-8-YN`DI]K4!KPR""C"
^XMB(3.9,23,2,11073,0)="""DATA"",396.18,213,3,510,0)"
^XMB(3.9,23,2,11074,0)="ML0&\UILMVSPW3TL(FG=18!<K,(&QCQ5T<5,/9Q(@RAP3MY-P1P%C'XU&&@E."
^XMB(3.9,23,2,11075,0)="""DATA"",396.18,213,3,511,0)"
^XMB(3.9,23,2,11076,0)="MZJ'/UUL=&EB28R5,/:)5-+YK_5\(Z=+!OX1Q:B&&(#A4B2'""H2Y@Y%OUI+M7"
^XMB(3.9,23,2,11077,0)="""DATA"",396.18,213,3,512,0)"
^XMB(3.9,23,2,11078,0)="M/2*UYF>Z3')!P]$^4&6G:A6I,7`1HV+KSD.5BT3KHLH%6.MFF;?P:L;+)#9("
^XMB(3.9,23,2,11079,0)="""DATA"",396.18,213,3,513,0)"
^XMB(3.9,23,2,11080,0)="M?""9@9,.81E$TA.T.\`K#P/@<48FMF4J(JV#?@,')`>+/)$XB/ZX$`,P=^<DK"
^XMB(3.9,23,2,11081,0)="""DATA"",396.18,213,3,514,0)"
^XMB(3.9,23,2,11082,0)="M-HP#""FS#$48Z)DL_2-)#+GHB""3<[__2PDJ<VY\`!UFDJ$Q-[V)<W`=@`6G?>"
^XMB(3.9,23,2,11083,0)="""DATA"",396.18,213,3,515,0)"
^XMB(3.9,23,2,11084,0)="M^PT2/V?!@.I#3^S_FSRK2Y8WWA5?\@:!^D#28RL`O""8]P@;FN+1\!T#'Q<'1"
^XMB(3.9,23,2,11085,0)="""DATA"",396.18,213,3,516,0)"
^XMB(3.9,23,2,11086,0)="MPV2Q+;)_6MT_U/Q/SSK,SKU>P095CM)@^""7Z65:_EUC5#]/[(F/5YW0?Z;5!"
^XMB(3.9,23,2,11087,0)="""DATA"",396.18,213,3,517,0)"
^XMB(3.9,23,2,11088,0)="M7+X%!4-,[,9B-HE;`P!ZW>`QQD%*HZ/RL+^O)U]R#EZWW(:)V>/0K@<.""_""N"
^XMB(3.9,23,2,11089,0)="""DATA"",396.18,213,3,518,0)"
^XMB(3.9,23,2,11090,0)="M*PYX6:""T8.V[$T$F`4+L,17%U1T/$7N;[5!0Z`\W6RQ(L?7SE+E[,C!F!U`&"
^XMB(3.9,23,2,11091,0)="""DATA"",396.18,213,3,519,0)"
^XMB(3.9,23,2,11092,0)="MF,)+CR3ADR'AW6""0ECDPEW7?SHN[@OU+O$N6L4J2!;R9%,)Y72);_S<]L+0K"
^XMB(3.9,23,2,11093,0)="""DATA"",396.18,213,3,520,0)"
^XMB(3.9,23,2,11094,0)="M\QG\+7,)*U_4@/+L,'E-?<X7T%9=ZER5Y3D$V,&5\:E82:3#Q7)6?NUL6B[O"
^XMB(3.9,23,2,11095,0)="""DATA"",396.18,213,3,521,0)"
^XMB(3.9,23,2,11096,0)="MN)D]`@OO`HK^E&7\4@\B.(B\/"".`/./""5^\:EPO'Q7\R%/_)<$($L*,1""E@N"
^XMB(3.9,23,2,11097,0)="""DATA"",396.18,213,3,522,0)"
^XMB(3.9,23,2,11098,0)="M/%G\[ZN&KM7]J%M""Y#,KR[>%U#XP:^:FL9G;1=1O;PC)E<=+NP=I8Q_]_,K1"
^XMB(3.9,23,2,11099,0)="""DATA"",396.18,213,3,523,0)"
^XMB(3.9,23,2,11100,0)="M3M?WS""9H\M!S0HK/$""?EP.*QHD3,GX?F\Y`_1X'Y`7O&?Q/PR6^EP-UC_WSW"
^XMB(3.9,23,2,11101,0)="""DATA"",396.18,213,3,524,0)"
^XMB(3.9,23,2,11102,0)="MZ3.?.$:]QLA)$/N$,0)M<&%X""6..,);X6""GTLA*B@;E.@,T&6B=1?+&2PTK$"
^XMB(3.9,23,2,11103,0)="""DATA"",396.18,213,3,525,0)"
^XMB(3.9,23,2,11104,0)="MQTJ1)2<P""B7`3G'D::?D8B?ONQJ60UUAK!@ZTU7Y@`.]IV<T^2.-P)QG;<C5"
^XMB(3.9,23,2,11105,0)="""DATA"",396.18,213,3,526,0)"
^XMB(3.9,23,2,11106,0)="MMG]""Q[SQD`7200N@--G!`G%PL4""?C$'#)5TBQD^&C$0,M$08#UG""&))BP2IU"
^XMB(3.9,23,2,11107,0)="""DATA"",396.18,213,3,527,0)"
^XMB(3.9,23,2,11108,0)="M60),O,P$WSX?TD,=*MG7USSOZ]<K_>]8_+W/G:Z(_H#J#T+]0:0_B/4'B?X@"
^XMB(3.9,23,2,11109,0)="""DATA"",396.18,213,3,528,0)"
^XMB(3.9,23,2,11110,0)="MU1^P5$Y_@HPGAK#(D!89XB)#7F0(C`R)D2$R,F3&ALS8D!D;,F-#9FS(C`V9"
^XMB(3.9,23,2,11111,0)="""DATA"",396.18,213,3,529,0)"
^XMB(3.9,23,2,11112,0)="ML2$S-F3&ALS8D)D8,A-#9F(ZA2$S,60FALS$D)D8,A-#9F+(3`V9J2$S-62F"
^XMB(3.9,23,2,11113,0)="""DATA"",396.18,213,3,530,0)"
^XMB(3.9,23,2,11114,0)="MIB<;,E-#9FK(3`V9J2$S-60.#9E#0^:PE?F93V1""?I&IC3M]V]\C,L5HG\A$"
^XMB(3.9,23,2,11115,0)="""DATA"",396.18,213,3,531,0)"
^XMB(3.9,23,2,11116,0)="MAB+3N\U\SB<5^E=GL7S]0GWT,9_?OM`._<1C?AJ1S:_4H1`_G6&;SO23?D-K"
^XMB(3.9,23,2,11117,0)="""DATA"",396.18,213,3,532,0)"
^XMB(3.9,23,2,11118,0)="MD8?6*-Y':W1(:]82&BZ@X?+94CS;2F=KX>S(7$@`S@.J&D[(H(*QJ6!R25U&"
^XMB(3.9,23,2,11119,0)="""DATA"",396.18,213,3,533,0)"
^XMB(3.9,23,2,11120,0)="MS,6*QAYUC\4JH^?Z6#4*]:%8?4:3&^4X`\E2%V][:#I_F+3AH.W>&;T[^^J1"
^XMB(3.9,23,2,11121,0)="""DATA"",396.18,213,3,534,0)"
^XMB(3.9,23,2,11122,0)="M&W12>TX_^G#Y-1K,R-O*U9$&1F:PI9<A5TG=[%N?\]GOY3K_7)9_<9VK3^1;"
^XMB(3.9,23,2,11123,0)="""DATA"",396.18,213,3,535,0)"
^XMB(3.9,23,2,11124,0)="MW?W$JW*W,V[\MI]X;?@PV>\95G'WI5[':W$'5?Y0GU%MG]M'+=MOJ*J6ES26"
^XMB(3.9,23,2,11125,0)="""DATA"",396.18,213,3,536,0)"
^XMB(3.9,23,2,11126,0)="M_(Z_\G5VERN>IEX)I,:*4>=)'2K=&JG\Q@-U]Q>M+:,U98R63$PIP*;3]4)^"
^XMB(3.9,23,2,11127,0)="""DATA"",396.18,213,3,537,0)"
^XMB(3.9,23,2,11128,0)="M*:N_.V?X^5/%W)0/\JF-?.X>_9=NLN5=KG+RJ%^P_)97\^*.*R"";OYX7S""N["
^XMB(3.9,23,2,11129,0)="""DATA"",396.18,213,3,538,0)"
^XMB(3.9,23,2,11130,0)="MYYMUV?RPWC#1YYDY@-'Q^D,([`_!&$R6#I&]]P.A]D#36L@8U()L;5A;'D6-"
^XMB(3.9,23,2,11131,0)="""DATA"",396.18,213,3,539,0)"
^XMB(3.9,23,2,11132,0)="M(92CX""PX:B`MVB\I$0,I1SZ>B>6'RDUH3:%!(#_NM]A(?JS"":O-[<-O[(0J4"
^XMB(3.9,23,2,11133,0)="""DATA"",396.18,213,3,540,0)"
^XMB(3.9,23,2,11134,0)="MDZ_JAY3O1#_R-(##!&XCV,S@!02DH559@*O:%4!'K0:4IK[K02&&.X\%@>$%"
^XMB(3.9,23,2,11135,0)="""DATA"",396.18,213,3,541,0)"
^XMB(3.9,23,2,11136,0)="MH:6:#B@U=;O65!O$T-I`JM_U:P,IC[L<*B:1XH$N8#7GT;(=6PW::ODXR#(O"
^XMB(3.9,23,2,11137,0)="""DATA"",396.18,213,3,542,0)"
^XMB(3.9,23,2,11138,0)="M5_.L7OQ;$0`X5!X$:`,@V@R0-IAT0/%W)^CVCF8*4S""""A62DE<+'LM*ZRC:+"
^XMB(3.9,23,2,11139,0)="""DATA"",396.18,213,3,543,0)"
^XMB(3.9,23,2,11140,0)="MC)>XR[+.G_/;()OZ^62>50_+;WS""9W4O_O@(5L2CK8AV76P(7&L)A:T8V*Q("
^XMB(3.9,23,2,11141,0)="""DATA"",396.18,213,3,544,0)"
^XMB(3.9,23,2,11142,0)="M'\N*]V6]*M;9O/A[.XU53>I-=9=7#X]@MV""\W=)=#1=&H.4P';'^$`I""_&A1"
^XMB(3.9,23,2,11143,0)="""DATA"",396.18,213,3,545,0)"
^XMB(3.9,23,2,11144,0)="M,JNS.<O0YWEUYV>LXZ4TZ+`IS0&\RCLKBCQ\;GNOQ)6C(IR83H;!G3B*01?K"
^XMB(3.9,23,2,11145,0)="""DATA"",396.18,213,3,546,0)"
^XMB(3.9,23,2,11146,0)="MT1V-)/5%N<J75S^D*;WM@/;+3B&#D=$&BZ-C&0QBU3K<F]+1;XH0.<&KAD<P"
^XMB(3.9,23,2,11147,0)="""DATA"",396.18,213,3,547,0)"
^XMB(3.9,23,2,11148,0)="M:CS^72-ZH'?]</[K,#YJE9B,JA)#[Z8)""F$>VH[A_O4\*Q;-O;?W,Z:)XK9H"
^XMB(3.9,23,2,11149,0)="""DATA"",396.18,213,3,548,0)"
^XMB(3.9,23,2,11150,0)="M0!O>?LL65V[V3^"">2H1-.EWI7,8WW4]!#U27IO0VZ.<KCW72""$A&""IC2`PB("
^XMB(3.9,23,2,11151,0)="""DATA"",396.18,213,3,549,0)"
^XMB(3.9,23,2,11152,0)="M1PA(1PJ(\""%42+PDW.(WX[%=J9"",:DL%%B'_LRGF,QC4^;+Y^^X3T>B68G00"
^XMB(3.9,23,2,11153,0)="""DATA"",396.18,213,3,550,0)"
^XMB(3.9,23,2,11154,0)="MX[TIIQL!1G&MWR8[S[8B/KSMTK&FD^Z\[F6[+;)<:T+Y*ORYFN\(V:B85AAG"
^XMB(3.9,23,2,11155,0)="""DATA"",396.18,213,3,551,0)"
^XMB(3.9,23,2,11156,0)="MO_@@YGN_K-?59LK_6I]YQ#QN,U_,:%KS-!P1G],M`K%1I.C<FOG$JYD?^/2I"
^XMB(3.9,23,2,11157,0)="""DATA"",396.18,213,3,552,0)"
^XMB(3.9,23,2,11158,0)="M0B""C"".!FOF5EA+8V5?Q8;2K1%B[617UI4>W:HL+^?0#DBKQI:OK7BXA<:F-?"
^XMB(3.9,23,2,11159,0)="""DATA"",396.18,213,3,553,0)"
^XMB(3.9,23,2,11160,0)="M0]##[Y5A--9B47`QV*,D-]K)0[)C1`<S5422D0']T<[]RGJ=EXN'?'X)ZOL$"
^XMB(3.9,23,2,11161,0)="""DATA"",396.18,213,3,554,0)"
^XMB(3.9,23,2,11162,0)="M]<`_G0['A@B,+R'B1*V'H40:C4RD4^2;21-990""8V\>'Q6I=*NV'\TBXJ:.K"
^XMB(3.9,23,2,11163,0)="""DATA"",396.18,213,3,555,0)"
^XMB(3.9,23,2,11164,0)="MB`29@K6MB+T/0N)D7%_Q(T]S)_56YR_/<=$``)`^C5Z$XK$F`5O1:GMNV""(W"
^XMB(3.9,23,2,11165,0)="""DATA"",396.18,213,3,556,0)"
^XMB(3.9,23,2,11166,0)="M]\62;U$7HX!&248:!<.'V1)""E9]9&M2YVK%<K&243]EH#2:4P#%4X:&&UI+%"
^XMB(3.9,23,2,11167,0)="""DATA"",396.18,213,3,557,0)"
^XMB(3.9,23,2,11168,0)="M;!1>36D""YYL(JQ-*;H2H'R[IL[CM4#YHL/3R:W>;:C/G^V\SG].A)^O?^R7/"
^XMB(3.9,23,2,11169,0)="""DATA"",396.18,213,3,558,0)"
^XMB(3.9,23,2,11170,0)="M9MGTWLPHFYUDE15+^!.A^&J9U\9/ON/4O_I##?R*_V<'P-HU<QKRVWBTWV++"
^XMB(3.9,23,2,11171,0)="""DATA"",396.18,213,3,559,0)"
^XMB(3.9,23,2,11172,0)="M@#?LM@FVN6UZ<5LOM_U=>.NT7-[EM7'JP1'<ODWY7<G&J1>;:;DQW._]>GK_"
^XMB(3.9,23,2,11173,0)="""DATA"",396.18,213,3,560,0)"
^XMB(3.9,23,2,11174,0)="M((9!]4_^S-8Y*Q[S!\#;EWG^-Y/S*![J4V,)9EMD,""^[G9,BV#OAI%%ML<G>"
^XMB(3.9,23,2,11175,0)="""DATA"",396.18,213,3,561,0)"
^XMB(3.9,23,2,11176,0)="MF3S^QF<_=X+9F)U.Z61DUCB9A^PXR,MLZ_0,]4C=8V$1\AX]&%M0PR'?8?7#"
^XMB(3.9,23,2,11177,0)="""DATA"",396.18,213,3,562,0)"
^XMB(3.9,23,2,11178,0)="MG;(.E:G.N9Q0YA5WG/=$$/MX@,$B+G0FIZ[AE=BWI1:.S$S?%+>WQ91%GH?)"
^XMB(3.9,23,2,11179,0)="""DATA"",396.18,213,3,563,0)"
^XMB(3.9,23,2,11180,0)="MYRK/UO?\7MSZGFGE[EZ$M3,L((:JA&B<(2@\HD-&UM*K/)_>3XH%2X(J&='_"
^XMB(3.9,23,2,11181,0)="""DATA"",396.18,213,3,564,0)"
^XMB(3.9,23,2,11182,0)="M4KEQHM""QBR,8<QUHL&Z[6W+.T(R]TY8FY*7/0%6+$!$""((QN\3$\4H7@K18C"
^XMB(3.9,23,2,11183,0)="""DATA"",396.18,213,3,565,0)"
^XMB(3.9,23,2,11184,0)="MVU:+K\XMS=MM5F""7Y/##=)K5A0(1TI8<@AMKN=:?ORZ7]9HYB;SA#SI',MHY"
^XMB(3.9,23,2,11185,0)="""DATA"",396.18,213,3,566,0)"
^XMB(3.9,23,2,11186,0)="MHL,X!PF>KG.@?9WCEY(K""JI'7V=+#@];K_+LKTGVN?R23[+)5Q8V5F:9NOWN"
^XMB(3.9,23,2,11187,0)="""DATA"",396.18,213,3,567,0)"
^XMB(3.9,23,2,11188,0)="MM%PL-DL67]8""*[H6.X&7$_'TG<;V/!Z:.@JB4>Z3I*#_I$$:7%V2]1').G;G"
^XMB(3.9,23,2,11189,0)="""DATA"",396.18,213,3,568,0)"
^XMB(3.9,23,2,11190,0)="MJ""""6XD[X#=<M?K@TY>V#XH#V0'$(#`R'8`\$APM`PWB`ANWT-C2%V%9YR#AW"
^XMB(3.9,23,2,11191,0)="""DATA"",396.18,213,3,569,0)"
^XMB(3.9,23,2,11192,0)="M,PL:)%_ZZZ-`""IZZ_<$O44X^,JO45T,@""%[EFZ5BV]:P=,R[R5/I.[V<:#R>"
^XMB(3.9,23,2,11193,0)="""DATA"",396.18,213,3,570,0)"
^XMB(3.9,23,2,11194,0)="MW3DB.JA%PE'>%N]KD9+]YNMLSO;)JS-&1SB`7:(Q=D$4[6F8W]7VY]F-N![`"
^XMB(3.9,23,2,11195,0)="""DATA"",396.18,213,3,571,0)"
^XMB(3.9,23,2,11196,0)="M(LDHBR3AGA;Y5:`0G/,4Q`%L$H^Q""<;[[I;7]^=IE/""@1DE'&46^N[R349J3"
^XMB(3.9,23,2,11197,0)="""DATA"",396.18,213,3,572,0)"
^XMB(3.9,23,2,11198,0)="MPG,S2;2K20Y7A7S*ZW4]HOK`E^KC!ZX^MEW:P.S2=FPSQMH%]C@BKU*PR6.2"
^XMB(3.9,23,2,11199,0)="""DATA"",396.18,213,3,573,0)"
^XMB(3.9,23,2,11200,0)="M.8NR_2:O-_-US4=ULSD?0,CNEF7-RO%)MIPQS15+41&OF5-RVM_;LN+WHHME"
^XMB(3.9,23,2,11201,0)="""DATA"",396.18,213,3,574,0)"
^XMB(3.9,23,2,11202,0)="MP]><?Y,(G<7ORQ;%4ER$>WD.L<$2<;=&0R.,AE+@$(R$=#>KO;]MD)/N<F:;"
^XMB(3.9,23,2,11203,0)="""DATA"",396.18,213,3,575,0)"
^XMB(3.9,23,2,11204,0)="M>ITSDS7LV:LJK]F[/)]4^:JLUI-W;_]X@80I9WD]K8K/^>1V7G[5K?;B""Y_%"
^XMB(3.9,23,2,11205,0)="""DATA"",396.18,213,3,576,0)"
^XMB(3.9,23,2,11206,0)="MYN3/Y>H)&`Z/,9QIME`^HAIC-AZ\7TZ8\6ZS:=&,^]P6=YN&1U4Q7[WYO""@X"
^XMB(3.9,23,2,11207,0)="""DATA"",396.18,213,3,577,0)"
^XMB(3.9,23,2,11208,0)="M2VF5K\O-])ZMN6DYU\TF8+/*=7E79:O[B>!;9[NR8$[?KL*M'WSG)E5H[X=V"
^XMB(3.9,23,2,11209,0)="""DATA"",396.18,213,3,578,0)"
^XMB(3.9,23,2,11210,0)="M:\M)F,7BZIV+T(7<U29+H>X""!$262*&U2Z5RM&OYDHC(YTFNVQ?.NQ?PS0LI"
^XMB(3.9,23,2,11211,0)="""DATA"",396.18,213,3,579,0)"
^XMB(3.9,23,2,11212,0)="M=?@S%UCA.;.Z$M5Y]&;A83F=;V8<U6+9N<G6/^2+&>""UC.\\$#A/(HR+&-HU"
^XMB(3.9,23,2,11213,0)="""DATA"",396.18,213,3,580,0)"
^XMB(3.9,23,2,11214,0)="MC+&-!HNGB2,%:API6`,+!?IL40INXW*?03ZE#(Z^KK'%0O`!@M4^SL.#*U]C"
^XMB(3.9,23,2,11215,0)="""DATA"",396.18,213,3,581,0)"
^XMB(3.9,23,2,11216,0)="M#!X;0,F6RUJAO[646<(=S84NYK*9""QVQH'K3Y+3%F***7(JJ'[VH(H[TG(8^"
^XMB(3.9,23,2,11217,0)="""DATA"",396.18,213,3,582,0)"
^XMB(3.9,23,2,11218,0)="MT3C$WFD>6V$+GL35YYP]MR-_V#7^9Z9/20)D3QC,GM(G@MW<-)2<E[DC7_A8"
^XMB(3.9,23,2,11219,0)="""DATA"",396.18,213,3,583,0)"
^XMB(3.9,23,2,11220,0)="M;$-WP-;)134>/MX8PH\,>A(Z%T%DGA4!79M8O@XE301C^!1OLUADS:WJ66O"""
^XMB(3.9,23,2,11221,0)="""DATA"",396.18,213,3,584,0)"
^XMB(3.9,23,2,11222,0)="MET_EOB9/TR+'W#V""YN[A,>S0,NZ%+?,Z<729UQDSKQ.,64[<GO8TW-RG0^`P"
^XMB(3.9,23,2,11223,0)="""DATA"",396.18,213,3,585,0)"
^XMB(3.9,23,2,11224,0)="MB<;0N85L9]F:])*%V[)PXIL`<!(.-""X+H,'WDP7@QYL=`8""B6V4^0BKP5M!Y"
^XMB(3.9,23,2,11225,0)="""DATA"",396.18,213,3,586,0)"
^XMB(3.9,23,2,11226,0)="M+?21W*-OHFH++MVE*8<!=XJ@[12JQEFPCT_4DLOJ23;Y+9^)8Y0/JV+)/[CA"
^XMB(3.9,23,2,11227,0)="""DATA"",396.18,213,3,587,0)"
^XMB(3.9,23,2,11228,0)="M<]#UNN=1LS;>]NIL.?LA<H$M_OS_4$L#!!0``@`(`*54'S4=!T)(U1@``,[&"
^XMB(3.9,23,2,11229,0)="""DATA"",396.18,213,3,588,0)"
^XMB(3.9,23,2,11230,0)="M```E````3F]S95]3:6YU<U],87)Y;GA?4&AA<GEN>%\Q,3,N<&YL+F-D9>T]"
^XMB(3.9,23,2,11231,0)="""DATA"",396.18,213,3,589,0)"
^XMB(3.9,23,2,11232,0)="M77/C-I+/3E7^`THOL[M);/%#E+05YTHCRS.JM2V?)&=NGE*T1(]9D4A%I&;L"
^XMB(3.9,23,2,11233,0)="""DATA"",396.18,213,3,590,0)"
^XMB(3.9,23,2,11234,0)="M?[\`OT0""#:`A>2:[.7OW;C5DH[O1Z&XT&D#S[(S<W@QG9+;8AIOT^^^^_V[\"
^XMB(3.9,23,2,11235,0)="""DATA"",396.18,213,3,591,0)"
^XMB(3.9,23,2,11236,0)="M0""[#;9).=]&Y1;[_CEP$#V$4W.S6P39<D)O);/3;=;""<W/XVCA:KW3)84AA"""
^XMB(3.9,23,2,11237,0)="""DATA"",396.18,213,3,592,0)"
^XMB(3.9,23,2,11238,0)="M9D$*O2/GI%WAF*7;,/I4!YL&?^R"")(5Q5""\IDNSQ\/;#]=1?AO&[;;S;]$]G"
^XMB(3.9,23,2,11239,0)="""DATA"",396.18,213,3,593,0)"
^XMB(3.9,23,2,11240,0)="MP2I8T/?C-%A3!%7S6S\*5G;;MFWO]""TCF<8/VSA**9Y+?Y4$%4-)C:'1>K.*"
^XMB(3.9,23,2,11241,0)="""DATA"",396.18,213,3,594,0)"
^XMB(3.9,23,2,11242,0)="MGS-.Q)=W4:!Z/0W2<)N]:_+0:;,_J\'$.<Q""G`2_3:?K($G\3S""#M]OX?A6L"
^XMB(3.9,23,2,11243,0)="""DATA"",396.18,213,3,595,0)"
^XMB(3.9,23,2,11244,0)="M?RQ(6N4/N_SA5#_*7U<ET)73X""W'1,71:I'ZBZD%/+.!9P[T#'AX!2""\VL-)"
^XMB(3.9,23,2,11245,0)="""DATA"",396.18,213,3,596,0)"
^XMB(3.9,23,2,11246,0)="M._G;59BD97>\XL=P1854_'X?)YLP]5?%/R^>@/YE2`!&/?%9AEI\7%(1WUP\"
^XMB(3.9,23,2,11247,0)="""DATA"",396.18,213,3,597,0)"
^XMB(3.9,23,2,11248,0)="M*3I1-@,Y_FVV6Z_][?./I:IG(U[\:[()HS"".(!YT/)9X18B""A/BBH*;HR>#B"
^XMB(3.9,23,2,11249,0)="""DATA"",396.18,213,3,598,0)"
^XMB(3.9,23,2,11250,0)="MJAR%=_WBU^ASN`RB1<GR1>A_BN(D3$K`QE!0!,`(O.N+#TNT@*Q+""@`FU3"","
^XMB(3.9,23,2,11251,0)="""DATA"",396.18,213,3,599,0)"
^XMB(3.9,23,2,11252,0)="M'AZH>R@E2QU)7/P>K%;!]E,Y`K,PVB4-3K)V@+@8""O%Q@4U\D2'F^(OJ;G0V"
^XMB(3.9,23,2,11253,0)="""DATA"",396.18,213,3,600,0)"
^XMB(3.9,23,2,11254,0)="M:X#/F+.DH""<B)X#[<^S*_X69_SOAA3[Z[*]:]>=3[UQ\F#DJV$5Q0#8&R,$`"
^XMB(3.9,23,2,11255,0)="""DATA"",396.18,213,3,601,0)"
^XMB(3.9,23,2,11256,0)="M>1B@+@;(0G%N=3!0/0Q0'P`Z.PN>_#4=W6U""HC@%Z-M@JW%$U76W2*D-)F(;"
^XMB(3.9,23,2,11257,0)="""DATA"",396.18,213,3,602,0)"
^XMB(3.9,23,2,11258,0)="M!VR3*:$([(+`A6J*X%T0O+`$'K@G!R:S)Q&^KX""_'8EJU8;AXX>4;/R5#\C3"
^XMB(3.9,23,2,11259,0)="""DATA"",396.18,213,3,603,0)"
^XMB(3.9,23,2,11260,0)="MML`F;!(586'97U%7&8G,V[#4;Q\EX+#<)^ECL&U8G@4;L76:2&SX[2Y-X\@^"
^XMB(3.9,23,2,11261,0)="""DATA"",396.18,213,3,604,0)"
^XMB(3.9,23,2,11262,0)="M_35,0CJ9G8.-90X@F[.!%G*7D9-S5>3DC;-P`')1&G*.BIR\<>;T\U""""3O!O"
^XMB(3.9,23,2,11263,0)="""DATA"",396.18,213,3,605,0)"
^XMB(3.9,23,2,11264,0)="MXR<Y*-<#ZW04^93>4C1N#M)&0SIH2!<-V4%#>FC(+AJRAX;L8R&=-A;24_2H"
^XMB(3.9,23,2,11265,0)="""DATA"",396.18,213,3,606,0)"
^XMB(3.9,23,2,11266,0)="MT)J.TBAZ4F4HYV^S5@71KI)H7SX75]&!6;N<;,=36F1;VKR,/3""M""*%KOKH]"
^XMB(3.9,23,2,11267,0)="""DATA"",396.18,213,3,607,0)"
^XMB(3.9,23,2,11268,0)="M>0T`%DJ\#_REOW@,DE:V4,N#%K9DR8(6J_:PYDPJRZ`@\^TND$$5/:Q!C:)E"
^XMB(3.9,23,2,11269,0)="""DATA"",396.18,213,3,608,0)"
^XMB(3.9,23,2,11270,0)="M^*!G[.=?))Q)F""A77AHN*K""""#?H_XP>V-#X[^ZGZ(]/@TV[E;\DP7@9D_SR'"
^XMB(3.9,23,2,11271,0)="""DATA"",396.18,213,3,609,0)"
^XMB(3.9,23,2,11272,0)="M:\[L92\*56J?#E?AXO>Z7-3Q0@5W\K^[,,T88GQQ:*T#T)8FIL)K`WC+)47+"
^XMB(3.9,23,2,11273,0)="""DATA"",396.18,213,3,610,0)"
^XMB(3.9,23,2,11274,0)="M.F5C1*<[\J9<5=X'+`)?!JD?4K'_\PU9L678,@ZRX(@L*&4_C(A/01*V:B;Y"
^XMB(3.9,23,2,11275,0)="""DATA"",396.18,213,3,611,0)"
^XMB(3.9,23,2,11276,0)="M%$A%]6/QD[P9T0$F)4(V^&]^9$0BDOT]Q*M5_""6C&M8$S?Y!UQ#9\WI;\B6,"
^XMB(3.9,23,2,11277,0)="""DATA"",396.18,213,3,612,0)"
^XMB(3.9,23,2,11278,0)="MEO&7TQ;Y@0SI1/XWR_D[_=FR3TFN3B2@&D0V11,JFS6F1WZT)$&4!ML,>!O\"
^XMB(3.9,23,2,11279,0)="""DATA"",396.18,213,3,613,0)"
^XMB(3.9,23,2,11280,0)="ML<MZL_137R#EG)),B""39W:]IU]*8^(M%L*%85JL<BZRI>TKF<4'(7U*YT*[2"
^XMB(3.9,23,2,11281,0)="""DATA"",396.18,213,3,614,0)"
^XMB(3.9,23,2,11282,0)="M%6G!6T();P(_)=2W;1)B_42<TQ8_H$PC_\']4?U=Q-ME0O_W<QA\(?Q[UJHR"
^XMB(3.9,23,2,11283,0)="""DATA"",396.18,213,3,615,0)"
^XMB(3.9,23,2,11284,0)="MO\J!?&(.),]JV(*3V.=K[I_)KX/IA-SOTFS,_<]4<LP*6\T\#QOF3HYL'CQE"
^XMB(3.9,23,2,11285,0)="""DATA"",396.18,213,3,616,0)"
^XMB(3.9,23,2,11286,0)="M2Z[A3P]4R+17&5=?_""23K`8MZW+E-`R89@[D1;C&TG=>4FA.1?Z:XEM0I<C'"
^XMB(3.9,23,2,11287,0)="""DATA"",396.18,213,3,617,0)"
^XMB(3.9,23,2,11288,0)="M]&L)SWE1X3F0\'CG4Q(N/-!YX7\06;8""4N'8\F:N%'>5C2MY-%2L5GT""^UH6"
^XMB(3.9,23,2,11289,0)="""DATA"",396.18,213,3,618,0)"
^XMB(3.9,23,2,11290,0)="M5&>2>T!]QY!<,F-:[ZB[NB^-BF$/'N)M4#BCE#FWW(5MXFU:]S_UN?A`#=%*"
^XMB(3.9,23,2,11291,0)="""DATA"",396.18,213,3,619,0)"
^XMB(3.9,23,2,11292,0)="MP?GJ4FA:1_+MQ""$.\+<>O<-\TI\F79[=/:%*E<K(H_F^UM8@`\]-DN!$6:6`"
^XMB(3.9,23,2,11293,0)="""DATA"",396.18,213,3,620,0)"
^XMB(3.9,23,2,11294,0)="MXRV9[;:?@NWSWI&HUN.,Y6+MSR(F3)/SUL<LCCW1)+F*8+!@'(7ZYU^0N#/9"
^XMB(3.9,23,2,11295,0)="""DATA"",396.18,213,3,621,0)"
^XMB(3.9,23,2,11296,0)="MD`9<D8H0X\""*@Q?*6DB3),T6DKG""<D0&X4Q^369L.G+K,]$)W.9CO,LU>Q_Q"
^XMB(3.9,23,2,11297,0)="""DATA"",396.18,213,3,622,0)"
^XMB(3.9,23,2,11298,0)="M/9:O62""XBA<^B\RH0E?!&S!$U\$ZMD^O6*):2:_Y[Q\$^C12#!""D+.\%:.76"
^XMB(3.9,23,2,11299,0)="""DATA"",396.18,213,3,623,0)"
^XMB(3.9,23,2,11300,0)="MZB=QQ&P@?=X$)'Z@YIS9@H:)""FUAOR<G#?LM7ZM:2EFO;WB\G\QNQ_/!%1G<"
^XMB(3.9,23,2,11301,0)="""DATA"",396.18,213,3,624,0)"
^XMB(3.9,23,2,11302,0)="M7)""KR7`P'T]N_DF8>^&'N1E=7PSFHQI<?7R:@-/18#:Y(9,IF7^\'9'))9G="
^XMB(3.9,23,2,11303,0)="""DATA"",396.18,213,3,625,0)"
^XMB(3.9,23,2,11304,0)="M3=^-IA^YUI7(F\W_H?[C@OZ]2ZSU.\/>K084EH69X4HL""6HQ7`7^=DU9J`D*"
^XMB(3.9,23,2,11305,0)="""DATA"",396.18,213,3,626,0)"
^XMB(3.9,23,2,11306,0)="M?FQYC2T,P<`:7I<(M!W5,K:)[2[Z/8J_1""WU`M9VL;TA36'7#%5&25@L]QKA"
^XMB(3.9,23,2,11307,0)="""DATA"",396.18,213,3,627,0)"
^XMB(3.9,23,2,11308,0)="M)#D[6ZRXI+2XGV=)'%)E,XJV=FL_F@1T,\=AJ=39%(U@R""58#K7/((RB=!M2"
^XMB(3.9,23,2,11309,0)="""DATA"",396.18,213,3,628,0)"
^XMB(3.9,23,2,11310,0)="M`CZ-$>CZEHX271PSGU.J].3FZB/YPA;_LWSQ'""9TK4Z;!\L6-`=!TYHLU2'H"
^XMB(3.9,23,2,11311,0)="""DATA"",396.18,213,3,629,0)"
^XMB(3.9,23,2,11312,0)="M""C]\V^""G>!-$VGTG*#\#+;NKO_G6WZU]\;DLN'`DP84C#0`<5&SA'1!:.+C0"
^XMB(3.9,23,2,11313,0)="""DATA"",396.18,213,3,630,0)"
^XMB(3.9,23,2,11314,0)="M0K++EQO?==-G].31Q*&[!,A-""9DFM+66K.JD*J&&U3'O2!7;_]T$\6;E)VO9"
^XMB(3.9,23,2,11315,0)="""DATA"",396.18,213,3,631,0)"
^XMB(3.9,23,2,11316,0)="M>YG2V1*ELZ6J8>,""V@[8-7BG6JV+-C+,E>P`2[<AN'XT43(GG2=_H#>6](U3"
^XMB(3.9,23,2,11317,0)="""DATA"",396.18,213,3,632,0)"
^XMB(3.9,23,2,11318,0)="M?P.9@2U[X4A>V&VYX1RZFX?</!0,1R7!O>YXW(D$;5/IT*O'Z,J_#U9]<7>."
^XMB(3.9,23,2,11319,0)="""DATA"",396.18,213,3,633,0)"
^XMB(3.9,23,2,11320,0)="M@W""[""HA\S-3O;6U[F3;4-4BMY)[.JOBN""`;5Y!1\[1S4$9F8S3IT$[<.&!I;"
^XMB(3.9,23,2,11321,0)="""DATA"",396.18,213,3,634,0)"
^XMB(3.9,23,2,11322,0)="M^UYNB%)1\!U""S8A\?VKQXG]!IR13H-OF<J-(GZJ8^UPSC`=.>>6^S6P3+,*'"
^XMB(3.9,23,2,11323,0)="""DATA"",396.18,213,3,635,0)"
^XMB(3.9,23,2,11324,0)="M<$&@F:Z8C#T^_ZL^A90#@7VS;`%5P0C;+I(TZJ':?/_=;;S9L:,PPWA]'W\("
^XMB(3.9,23,2,11325,0)="""DATA"",396.18,213,3,636,0)"
^XMB(3.9,23,2,11326,0)="MT\<""+-O?RA62O7D;/UDFP#:01NDK]Q'YHY5UDR@YD.13^+95GB')QNDYB_K+"
^XMB(3.9,23,2,11327,0)="""DATA"",396.18,213,3,637,0)"
^XMB(3.9,23,2,11328,0)="M7;C%;KL-HG3US.V^G393AH)=,D/HXQ@0G]&%.@&R'RS;HJ/+)N.N+-MR*.%%"
^XMB(3.9,23,2,11329,0)="""DATA"",396.18,213,3,638,0)"
^XMB(3.9,23,2,11330,0)="MN%WLUDGJ1PNV0HJ6)(S""-/179.U'8?(0T%?YUF><;\(NPR3P$RVSQ78ZF)\V"
^XMB(3.9,23,2,11331,0)="""DATA"",396.18,213,3,639,0)"
^XMB(3.9,23,2,11332,0)="M9?O#HY\MR3)^X]V6KO&2D)WCI&P%Z?_@.'%>@I/!-MO[I?^_4!Z2;@,_7=-?"
^XMB(3.9,23,2,11333,0)="""DATA"",396.18,213,3,640,0)"
^XMB(3.9,23,2,11334,0)="MR6%\5(M>/=A-'`49J&S-)!'VX9W,]KJ#[(1H-O[Z3I]4W:Y^\')HT(.3=G40"
^XMB(3.9,23,2,11335,0)="""DATA"",396.18,213,3,641,0)"
^XMB(3.9,23,2,11336,0)="M]C+WSFI,L@%E+VZGD[=7H^M:'HUS)))\V!Y%XY]%4H]EZ""8WL]&<RP+V#\0Y"
^XMB(3.9,23,2,11337,0)="""DATA"",396.18,213,3,642,0)"
^XMB(3.9,23,2,11338,0)="M'$^'=]>S^>!F.)IE:<;QS7@^'ER1Z\'-^')$W[""<XXR1J^<#NT(Z$$MP<C>="
^XMB(3.9,23,2,11339,0)="""DATA"",396.18,213,3,643,0)"
^XMB(3.9,23,2,11340,0)="MC<AL3`D*/8$-V)S&W70ZNIF3^70TF%_37S.1AJ.BT4@567RJ""#56H]EP.KYE"
^XMB(3.9,23,2,11341,0)="""DATA"",396.18,213,3,644,0)"
^XMB(3.9,23,2,11342,0)="MLF-#)G#$IU<M4)Z57N.,SXC#V?AB1$:7EZ/A?*9C44U6PW/6O\-E^)8IRYY5"
^XMB(3.9,23,2,11343,0)="""DATA"",396.18,213,3,645,0)"
^XMB(3.9,23,2,11344,0)="M7G`%8@P3O4.8&%Q<C-DH4HL83JYY9:JCK:6Z28.'9JJ[DX.?\X3PF70@&6[Q"
^XMB(3.9,23,2,11345,0)="""DATA"",396.18,213,3,646,0)"
^XMB(3.9,23,2,11346,0)="M`9<F!A;A]PF#AI?*`_)&/-Z'7H""6""\,X``R0N.[!C[NU/A'U!`:NZ5SA$""II"
^XMB(3.9,23,2,11347,0)="""DATA"",396.18,213,3,647,0)"
^XMB(3.9,23,2,11348,0)="M_#4'2SQ9""Z8Q+-D+12K&L1',6HI5DX!.MU8%A?3S+^:A@%2B^^.0PI],KN6:"
^XMB(3.9,23,2,11349,0)="""DATA"",396.18,213,3,648,0)"
^XMB(3.9,23,2,11350,0)="M#M&O$E0P;FFTA6`95`*L+A@,Q@FXIV3MWP"":8Z8Z""-W1V.(^>M/#5:+E0JYL"
^XMB(3.9,23,2,11351,0)="""DATA"",396.18,213,3,649,0)"
^XMB(3.9,23,2,11352,0)="M[PLX&@,S_E$\X,HQ#Q^RS5U_""4)@(*-K1L#I7&6+*B6K81XZG""MR7X.""E>$%"
^XMB(3.9,23,2,11353,0)="""DATA"",396.18,213,3,650,0)"
^XMB(3.9,23,2,11354,0)="M.B9L!5CR.:#<^GK;:ASR:`:PXMY9U6X`[KS5`E7CMO6@LVS,A()&`,>62CZ("
^XMB(3.9,23,2,11355,0)="""DATA"",396.18,213,3,651,0)"
^XMB(3.9,23,2,11356,0)="M`H]C@`?*LS7>[K<-V6KYT?\<D(V_S5;$8?00;]=^?HYXLV++8/)`E\O)(SNV"
^XMB(3.9,23,2,11357,0)="""DATA"",396.18,213,3,652,0)"
^XMB(3.9,23,2,11358,0)="ML&#*0A=.85('+,\FY7#ET:3\,E=^G$.ZP=A%Y+X4J2HA157L=DHW9G)5[&OR"
^XMB(3.9,23,2,11359,0)="""DATA"",396.18,213,3,653,0)"
^XMB(3.9,23,2,11360,0)="M9_KT61-?UPB?M).DN)56(L]O6I0I?\U5""XD;X>""RA%'A1Y07Y6HN3GIQ9`\C"
^XMB(3.9,23,2,11361,0)="""DATA"",396.18,213,3,654,0)"
^XMB(3.9,23,2,11362,0)="M/2`'\L""4%\M$Y:E47%1`P)SGV-""I-I-+++)#""IU:AB^%3M3*1`KO9SKFZ(I^"
^XMB(3.9,23,2,11363,0)="""DATA"",396.18,213,3,655,0)"
^XMB(3.9,23,2,11364,0)="MUU2HNJI8(B\OSDBTJ(_4HCY6BURL%G6-M:B/UB(7K45=2(LD81!=2D%'/`7="
^XMB(3.9,23,2,11365,0)="""DATA"",396.18,213,3,656,0)"
^XMB(3.9,23,2,11366,0)="M,KNK)-.NKE8=9*)6;9J[YE@EQSRK>ZXEA?RN%*QGXF4IR39T&ZMG7:2>[:]^"
^XMB(3.9,23,2,11367,0)="""DATA"",396.18,213,3,657,0)"
^XMB(3.9,23,2,11368,0)="M8?6,YT&A9UVLGC6XT.J9!Q\EEH%W->!9D&CM[TW""+!2Q5B/I#[Y78FG&AA:."
^XMB(3.9,23,2,11369,0)="""DATA"",396.18,213,3,658,0)"
^XMB(3.9,23,2,11370,0)="MLZX29Q$`]7%`*((>2A166R,+JZWF*2?6PQ&S=,2$*)]`SL?DQJ+FZ`&@6(4="
^XMB(3.9,23,2,11371,0)="""DATA"",396.18,213,3,659,0)"
^XMB(3.9,23,2,11372,0)="MJ%2+O_\!*0XX#:J)UZP0H]BF>@MIOT8\@'9+&/00XFGH$@\$:)(4#[2251F<"
^XMB(3.9,23,2,11373,0)="""DATA"",396.18,213,3,660,0)"
^XMB(3.9,23,2,11374,0)="M""""/:&V*\'`OA-5_M_1A[E\8*'4\[JW</B!7ZYEBEL<+T,=MR34KFV:5G-H;W"
^XMB(3.9,23,2,11375,0)="""DATA"",396.18,213,3,661,0)"
^XMB(3.9,23,2,11376,0)="M\5,7ONTTOE1![3-""M5O44E`D6(F1SV73E1D7Z\@O4K=0%\$KW@6-]G37B$QP"
^XMB(3.9,23,2,11377,0)="""DATA"",396.18,213,3,662,0)"
^XMB(3.9,23,2,11378,0)="M5KK4O&*)O1@NWEBO8KU949&,""#%13Q:8O>3-=E*O]U/>G*]ZA>]>5F&$%W!F"
^XMB(3.9,23,2,11379,0)="""DATA"",396.18,213,3,663,0)"
^XMB(3.9,23,2,11380,0)="MQE8/8JZ14G,@5\O'EG)-V=-6D18]B$""ZN?IMIO(<""XAWL64`&J-MX4:;O_7/"
^XMB(3.9,23,2,11381,0)="""DATA"",396.18,213,3,664,0)"
^XMB(3.9,23,2,11382,0)="MC16@-B]084""O\DV3UNJ%Q""7;$I^MZ@(>R]<9?3&*$?FH5)'C!=+P)B>.-DK@"
^XMB(3.9,23,2,11383,0)="""DATA"",396.18,213,3,665,0)"
^XMB(3.9,23,2,11384,0)="MJ#4T7T5.B.0$>B4$E/1QY,?Q@$(,6*56'<ESS-%""<S""?[,QFG]O'YR2['3IZ"
^XMB(3.9,23,2,11385,0)="""DATA"",396.18,213,3,666,0)"
^XMB(3.9,23,2,11386,0)="M\M<BA+#;VCY=2*_P`36ZU(DI&HB88M-<$FE&CM#\3VBG/P3AI\>4[4)'[&;J"
^XMB(3.9,23,2,11387,0)="""DATA"",396.18,213,3,667,0)"
^XMB(3.9,23,2,11388,0)="M"":IU?:=(L#Q'<J""M?.]JW@/*!V)1066:WK$1,!`U]?%94197<9(<WU?A'.RA"
^XMB(3.9,23,2,11389,0)="""DATA"",396.18,213,3,668,0)"
^XMB(3.9,23,2,11390,0)="M784/U+Y(3]_Y8738J)N/JJ0;IH.J.3FAZW$+.D71[*QFU%&B0`TZ0A+Z,5?$"
^XMB(3.9,23,2,11391,0)="""DATA"",396.18,213,3,669,0)"
^XMB(3.9,23,2,11392,0)="MVX6/=;4^MF_@V#IM<W22!0ZW6+':X,*`""SL@J#*(S_E@&/.9L2.9B.M$+05,"
^XMB(3.9,23,2,11393,0)="""DATA"",396.18,213,3,670,0)"
^XMB(3.9,23,2,11394,0)="MLV(!,&T3#7/GBH#5<57YA&P^!B`D42DD%1QE2;#D2H,E+F9PA3@1(93F*O0K"
^XMB(3.9,23,2,11395,0)="""DATA"",396.18,213,3,671,0)"
^XMB(3.9,23,2,11396,0)="M<J94B2:!IE*H%\.""8J#6SI:E)*[0-FDJ!Y!M""PD'K]L1@_<Z<.8#)PNK.SIG"
^XMB(3.9,23,2,11397,0)="""DATA"",396.18,213,3,672,0)"
^XMB(3.9,23,2,11398,0)="MRA4HU?AFRQR=S#?S*Y%>-0DVO6VE`JZM6H<4H]C7P[AM!)ZN=LW3P>2W+1<)"
^XMB(3.9,23,2,11399,0)="""DATA"",396.18,213,3,673,0)"
^XMB(3.9,23,2,11400,0)="M55][BN]QM#H:+`X*2[-T%60^'?ERLK=?3I:CJ!CHP7W""SO0G^V*X>L;A)+QK"
^XMB(3.9,23,2,11401,0)="""DATA"",396.18,213,3,674,0)"
^XMB(3.9,23,2,11402,0)="MZV<RB$F8@Z\K.Q,],M#\KMPKJ,:@5HF8G3;R5W1-F[2TNBP9AC9F+Z2CQ>/T"
^XMB(3.9,23,2,11403,0)="""DATA"",396.18,213,3,675,0)"
^XMB(3.9,23,2,11404,0)="M#QO.`SMSD*/`&2?&+1FX`7GR3#W*?U49_-4L%7""ICCX?V-7E`SOH?*""#R`<>"
^XMB(3.9,23,2,11405,0)="""DATA"",396.18,213,3,676,0)"
^XMB(3.9,23,2,11406,0)="M-C>J9Y)L>9F7..<B&$\;<EAP!!.`$8QMCJX9P03\ZI*+SCK*_6>@@2<='!0!"
^XMB(3.9,23,2,11407,0)="""DATA"",396.18,213,3,677,0)"
^XMB(3.9,23,2,11408,0)="M?@M>0Z$Q8""`L$+%JLB`N=L_=[6M=?P<UA:#V[KMF>^6NA3W;X""*BS`[.<=8Z"
^XMB(3.9,23,2,11409,0)="""DATA"",396.18,213,3,678,0)"
^XMB(3.9,23,2,11410,0)="M(@?J(E&I/6?7Y!2%BQW1CL[W&(X""3UDQ""AVM'^HB_5!7K^)MK$!Z.H'T#-6R"
^XMB(3.9,23,2,11411,0)="""DATA"",396.18,213,3,679,0)"
^XMB(3.9,23,2,11412,0)="MC19(3RN0'E(@O:9C+K\GP;GFGM:7""C6Y4\7BTC%'I]P""XN0HJ6*+A\[J>`B9"
^XMB(3.9,23,2,11413,0)="""DATA"",396.18,213,3,680,0)"
^XMB(3.9,23,2,11414,0)="MB8X^S8:)9I74SU'$)6F1/C8MTI<G:[3L?4OFQ)0M>$]MN\Y*+!$-L""J%VG%T"
^XMB(3.9,23,2,11415,0)="""DATA"",396.18,213,3,681,0)"
^XMB(3.9,23,2,11416,0)="M8PNM>&29+L<@A=IQM+(#0W-(=FY;M5J0BV4OPJ_.G9A/=)!Y1Q7;=1=6?>2&"
^XMB(3.9,23,2,11417,0)="""DATA"",396.18,213,3,682,0)"
^XMB(3.9,23,2,11418,0)="M\V%=K=-Q3'R8:XY.ER!KFIZ#G(<ZGC[4TJT;7-U!@\9R)T7,90YV+NMXB!!+"
^XMB(3.9,23,2,11419,0)="""DATA"",396.18,213,3,683,0)"
^XMB(3.9,23,2,11420,0)="MNQ!QM4<7P`4;I*66Y+G-W17*/X[$*5E?JQ4NK&3*$N\=<ZS2DX#2*^?L<VOY"
^XMB(3.9,23,2,11421,0)="""DATA"",396.18,213,3,684,0)"
^XMB(3.9,23,2,11422,0)="M3<-$75PO9\I3W[ER\`6'@,*F</6@ZDX-Y12^Y]#3?$P.TP16:.D5JA/%9YH2"
^XMB(3.9,23,2,11423,0)="""DATA"",396.18,213,3,685,0)"
^XMB(3.9,23,2,11424,0)="MQ85OX4M-!L""."";!K`MPQ`?9,@+LFP#T3X+X!L-,V`/:,.HB_NV_;>%`'#^KB"
^XMB(3.9,23,2,11425,0)="""DATA"",396.18,213,3,686,0)"
^XMB(3.9,23,2,11426,0)="M03MX4`\/VL6#]O""@?7Q-A#8:%/@^%W1AOR_4\^CK#YE`)]`UYVEDET0QVB:>"
^XMB(3.9,23,2,11427,0)="""DATA"",396.18,213,3,687,0)"
^XMB(3.9,23,2,11428,0)="M#I(IFP[204.Z:,@.&M)#0W;1D#TT9!\+65,R#:2GZ!&O2O""1)N#&B:[02U?Q"
^XMB(3.9,23,2,11429,0)="""DATA"",396.18,213,3,688,0)"
^XMB(3.9,23,2,11430,0)="M]8#B:[]<N3>W4>Z-G/#P4""6Y\E.VR`IMEJ8NVD7U*43Z""R[=7ZL0EI=HB_)O"
^XMB(3.9,23,2,11431,0)="""DATA"",396.18,213,3,689,0)"
^XMB(3.9,23,2,11432,0)="M2!'VW\5BM_&++TKYBS3\3%\%6N9T)JCF\8)]"":S)2LXCV24[RL?2#U?/-6YT"
^XMB(3.9,23,2,11433,0)="""DATA"",396.18,213,3,690,0)"
^XMB(3.9,23,2,11434,0)="MI=LH5KA0&?LH-`0M<EC_P/#%>/""./AWSU8M<J/`4OSE@RXHVU$EP#WZH2J""1"
^XMB(3.9,23,2,11435,0)="""DATA"",396.18,213,3,691,0)"
^XMB(3.9,23,2,11436,0)="MP6PV&8X'\]$%^3"">OR?S]R,""\<.1:WZA)OL3:RJI.<B+1I')#;F;W0VNR&0X"
^XMB(3.9,23,2,11437,0)="""DATA"",396.18,213,3,692,0)"
^XMB(3.9,23,2,11438,0)="MO+OEOZ(`*R5<$:R`=;6%M]1\S=^/9U0$L\';\=5X_O'-C(RO;P<YIWL>V8<?"
^XMB(3.9,23,2,11439,0)="""DATA"",396.18,213,3,693,0)"
^XMB(3.9,23,2,11440,0)="MAO/QK^/Y>`24,'.-RG`5C3I'<CX=S>ZNYN.;=^3#9/HO(E:Y@^E@:H2UY?6Y"
^XMB(3.9,23,2,11441,0)="""DATA"",396.18,213,3,694,0)"
^XMB(3.9,23,2,11442,0)="MU#Q-J$)-][7,,"")L$)0PAZ0^F(Z81D]'=0Z8BI?J7VG?Q6!\]1'F1^E[8%44"
^XMB(3.9,23,2,11443,0)="""DATA"",396.18,213,3,695,0)"
^XMB(3.9,23,2,11444,0)="M`H""JS?R0@27#]Y.I@B?;,AI1(>@XDKO9^\GM+54[.7_V,?PYQ_(W^K_1=#B>"
^XMB(3.9,23,2,11445,0)="""DATA"",396.18,213,3,696,0)"
^XMB(3.9,23,2,11446,0)="MC>3\.<?P=ZS#(;/;R72N&%WW"".X\[UCNIJ,A*SO8],MJ(F;R.];MD?ET\.OH"
^XMB(3.9,23,2,11447,0)="""DATA"",396.18,213,3,697,0)"
^XMB(3.9,23,2,11448,0)="M2JF`G2,8=-K',G@Y&EVHV.,IF,FO?RQ[;P=TSE-)KW\,>[UCV;N@KF^FY*]W"
^XMB(3.9,23,2,11449,0)="""DATA"",396.18,213,3,698,0)"
^XMB(3.9,23,2,11450,0)="M#'_=H]5O,KX:S94,=H]A\&@+?C>=3*Z5_'G&$4'_E!K<:';(<):E0[/0@)_X"
^XMB(3.9,23,2,11451,0)="""DATA"",396.18,213,3,699,0)"
^XMB(3.9,23,2,11452,0)="M2[P(%IQ#6=#7#7747#26AE[S^U@-2L=^@*M8*'K""K3)),<3&LJ*E7X'*$\-\"
^XMB(3.9,23,2,11453,0)="""DATA"",396.18,213,3,700,0)"
^XMB(3.9,23,2,11454,0)="MT)/(:X<B4JDFF5231*I)'M4DC6J2135)HIKD4$U2J""895),$JK""QIZHAVUPB"
^XMB(3.9,23,2,11455,0)="""DATA"",396.18,213,3,701,0)"
^XMB(3.9,23,2,11456,0)="MYB\7P*8Q_+@//W9?->W_EZ9I,_7X1#T^3X]/T^.S]/@D/3Y'CT_1XS/T^`0]"
^XMB(3.9,23,2,11457,0)="""DATA"",396.18,213,3,702,0)"
^XMB(3.9,23,2,11458,0)="M/C^O3</KL_#\U`8G5JJ:'Q!L1P$+5?QMJTYB\!5F9^&GB)71]*.TW(H%ST*X"
^XMB(3.9,23,2,11459,0)="""DATA"",396.18,213,3,703,0)"
^XMB(3.9,23,2,11460,0)="MHLO4<5H`0=5FV^*YC[Y8+UGDH021E>*I68_\VEE'BV9_J%5V`F5?%TA^(4(R"
^XMB(3.9,23,2,11461,0)="""DATA"",396.18,213,3,704,0)"
^XMB(3.9,23,2,11462,0)="MV>@EWA2'K%J3JX#@9""%#T=&@<#PY`"">%YO&D_#_<D0*CW7MIQ=3S\W,R6F]6"
^XMB(3.9,23,2,11463,0)="""DATA"",396.18,213,3,705,0)"
^XMB(3.9,23,2,11464,0)="M\3/[4@<YE_[E9YSKWR7,OF>]T-TQLVW;4U];X]#:=A]Q$PY""""]R""WG>M*</\"
^XMB(3.9,23,2,11465,0)="""DATA"",396.18,213,3,706,0)"
^XMB(3.9,23,2,11466,0)="M.24@J[9(N7""%BHN72-A&""29<BW-9L2_:45;O*U""?;6,HG;:V<!E#UK95R'(P"
^XMB(3.9,23,2,11467,0)="""DATA"",396.18,213,3,707,0)"
^XMB(3.9,23,2,11468,0)="MBJUK86AJ""J%5'?!48%6(2!'6KU>F2D!;`5CUHH<GW-:=']3W%QAF1,$S)B!/"
^XMB(3.9,23,2,11469,0)="""DATA"",396.18,213,3,708,0)"
^XMB(3.9,23,2,11470,0)="M??YR,BV+87,]1\`BCG\R#GKZJCF9`!SD6<$<6""<>QZ`89M$`V9\^KEHG=6.V"
^XMB(3.9,23,2,11471,0)="""DATA"",396.18,213,3,709,0)"
^XMB(3.9,23,2,11472,0)="MW3<!590>.EJ.S0_L,7I=+%C%%B%ZG53+L'*.YWC?6,W6)AX//""@M.#RY$)VV"
^XMB(3.9,23,2,11473,0)="""DATA"",396.18,213,3,710,0)"
^XMB(3.9,23,2,11474,0)="M@3(Z;80_5(U^TSGI056*PCM8A:)T30RN:^*/D/Y:TU%;O!:C<\0:C&T3XNHK"
^XMB(3.9,23,2,11475,0)="""DATA"",396.18,213,3,711,0)"
^XMB(3.9,23,2,11476,0)="MA@4^W5#8.)OMFPQ%_\6'\Q""[K`Q3EO/[RI&0W%&^VOB+*$5]X@G,YM+_]-CD"
^XMB(3.9,23,2,11477,0)="""DATA"",396.18,213,3,712,0)"
^XMB(3.9,23,2,11478,0)="MB$GP+QWCR-SOH<[R=:1-;`;KWCR$=;WHQ/@-IK.SLP8U.A:KKH4C=DP8(Y_,"
^XMB(3.9,23,2,11479,0)="""DATA"",396.18,213,3,713,0)"
^XMB(3.9,23,2,11480,0)="MJQJIQTR2\CGQ_'5*?)T27QWEZY3X.B6^3HG?8(6GG^D:!3-E383[\C#:]K=>"
^XMB(3.9,23,2,11481,0)="""DATA"",396.18,213,3,714,0)"
^XMB(3.9,23,2,11482,0)="M#@M)(@GO*,;D.5KY'7Y98:H_.4T@#.HT2,.M>DW.?XI&$7^TC3<GV@:;$^H4"
^XMB(3.9,23,2,11483,0)="""DATA"",396.18,213,3,715,0)"
^XMB(3.9,23,2,11484,0)="MN]Q!IM+LDZ<LTP`Z1KDR.(8)^[],1KK4H7.T""F&2N&U\$E?CQK_!GH9F\OX+"
^XMB(3.9,23,2,11485,0)="""DATA"",396.18,213,3,716,0)"
^XMB(3.9,23,2,11486,0)="M!E.""AA^@!=*4X7Z!=(!_,E.J5Y5ZW9;[#]R6.]RG""CF&`U""]6M""K!?UW6I#,"
^XMB(3.9,23,2,11487,0)="""DATA"",396.18,213,3,717,0)"
^XMB(3.9,23,2,11488,0)="M"")0JQ,>I.GV3%6@2F#<*%OF82,LRFHV7U$4C+JFLKNE/]CF<OVW*#^-L\H(M"
^XMB(3.9,23,2,11489,0)="""DATA"",396.18,213,3,718,0)"
^XMB(3.9,23,2,11490,0)="M?X<YM]LN2H""=%Q#@<;PII-HQD6KG**DFSXO'T$^WX4++/&X9X[VH8`]D3R%;"
^XMB(3.9,23,2,11491,0)="""DATA"",396.18,213,3,719,0)"
^XMB(3.9,23,2,11492,0)="MST2V'ECD[/*8:>7K,?HM%>Y/<!E[9WP7!8BS`(Y!5.(8I!'Z+NZD7AO,[T`("
^XMB(3.9,23,2,11493,0)="""DATA"",396.18,213,3,720,0)"
^XMB(3.9,23,2,11494,0)="M<2Y?2;8FDG.\1!#+:`?[K=<_<\;O@ZJ7*$6H53WWY00LI,U>_@@QD935W-]]"
^XMB(3.9,23,2,11495,0)="""DATA"",396.18,213,3,721,0)"
^XMB(3.9,23,2,11496,0)="M'1?C5_1R.;FEH?T?NR""A[[([!6=GA#W>D&WU>)%]D6V97SM`$2A,AP!_Y>6%"
^XMB(3.9,23,2,11497,0)="""DATA"",396.18,213,3,722,0)"
^XMB(3.9,23,2,11498,0)="MLN1(ZY9*/@G(?4""2W38@:4S"":+':+0/BDW(*F&S""*(RCT]8/Y0W#_8_6_#$@"
^XMB(3.9,23,2,11499,0)="""DATA"",396.18,213,3,723,0)"
^XMB(3.9,23,2,11500,0)="M;Z[]B&&;L_'QTR!Y0W9IN`K39_(0[Z(EH?]7%'9Y,]FPXBD4XCZ3/_'3[/E]"
^XMB(3.9,23,2,11501,0)="""DATA"",396.18,213,3,724,0)"
^XMB(3.9,23,2,11502,0)="M3/^U+NN])(MM$$1DX4>,LUU""Q4`Y\Y=+D2N2%D1/6V7W@N:W,&%IG^L%R5!D"
^XMB(3.9,23,2,11503,0)="""DATA"",396.18,213,3,725,0)"
^XMB(3.9,23,2,11504,0)="MN!AB=D+\I^J/:169!I]V*W]+AC$5U_Y=E?VX\I-TNHO.K5*+1T]A.OE7^77/"
^XMB(3.9,23,2,11505,0)="""DATA"",396.18,213,3,726,0)"
^XMB(3.9,23,2,11506,0)="MFGMAK(USN2_S;W92`+1""<>-=Z=`7/]GK4:4_UZ,+2HVKWRA'V,""V#K94%:F*"
^XMB(3.9,23,2,11507,0)="""DATA"",396.18,213,3,727,0)"
^XMB(3.9,23,2,11508,0)="ME'HD[X,EC`6E+8,E\)^>=B[1<QD""'MOD=Z9'P1.[UX#FKHWA[F8R%SFLK(Q5"
^XMB(3.9,23,2,11509,0)="""DATA"",396.18,213,3,728,0)"
^XMB(3.9,23,2,11510,0)="M.-I;M*C#3(VIVN_OWJ;^_:GD=F]6>B>W6FH8N5%])?O3VAR#2!\IOZSB/)6K"
^XMB(3.9,23,2,11511,0)="""DATA"",396.18,213,3,729,0)"
^XMB(3.9,23,2,11512,0)="MO]Y;X<L.4,T.\6ZV9A8JHS#EL\DHH0B_!""0*/E,1^PF;11[B;2ZTR:;BG7%>"
^XMB(3.9,23,2,11513,0)="""DATA"",396.18,213,3,730,0)"
^XMB(3.9,23,2,11514,0)="M2XZ2\J+.]]_]&U!+`P04``(`""`""E5!\U>4J));X*``""'.```)0```$YO<V5?"
^XMB(3.9,23,2,11515,0)="""DATA"",396.18,213,3,731,0)"
^XMB(3.9,23,2,11516,0)="M4VEN=7-?3&%R>6YX7U!H87)Y;GA?,3$S+G!N;""YR97""U6WN/X[81_W^!_0X$"
^XMB(3.9,23,2,11517,0)="""DATA"",396.18,213,3,732,0)"
^XMB(3.9,23,2,11518,0)="M%D4OQ1IG2_+KL+V`EFB;C40JI+2[;G$H$B0H#NAV@S8%\O$S0[UE4:94U,#A"
^XMB(3.9,23,2,11519,0)="""DATA"",396.18,213,3,733,0)"
^XMB(3.9,23,2,11520,0)="MUA(Y,QS.XS=#.I1)RH2F&9>""4!$1_(9_LU>:<&&>W]\)J=DCT5SD^I'$5%W$"
^XMB(3.9,23,2,11521,0)="""DATA"",396.18,213,3,734,0)"
^XMB(3.9,23,2,11522,0)="MZV,Q^FR^W-_]V>%S?_?T)/,LS3-Y/'[^3#Y^)*E,\Y0<I4K(WY#)W],?_O7S"
^XMB(3.9,23,2,11523,0)="""DATA"",396.18,213,3,735,0)"
^XMB(3.9,23,2,11524,0)="M/[TO_:%/3UQ$3)3?'A[,V.3GM_?U$C^KAX?J89B^).J'G[Z^G_[]_M]?BM?^"
^XMB(3.9,23,2,11525,0)="""DATA"",396.18,213,3,736,0)"
^XMB(3.9,23,2,11526,0)="M^&L/7M_?*?;,V0N11Y*PB(<T)HJ%4D5Z9'$V,;U&2/;3UU_7%9?^,Q3L3__;"
^XMB(3.9,23,2,11527,0)="""DATA"",396.18,213,3,737,0)"
^XMB(3.9,23,2,11528,0)="M9ZH(3T^]9Y\_3R'A#Y#PIY'X_RM""`%<'B6RV$""Z./&;DA>I/I%KLX%BG==L,"
^XMB(3.9,23,2,11529,0)="""DATA"",396.18,213,3,738,0)"
^XMB(3.9,23,2,11530,0)="MLF=EY(4I-L[/=UM6URU""F23P'I>""<XO1@9G9'SU`'ER4@9N7ODD%BU?7SCGH"
^XMB(3.9,23,2,11531,0)="""DATA"",396.18,213,3,739,0)"
^XMB(3.9,23,2,11532,0)="MQV;LU=!*1);(U?KAP64UY=!:7O/=B-K;\6Z,N+^K%'SF.I/J<N7&%MF,YFG$"
^XMB(3.9,23,2,11533,0)="""DATA"",396.18,213,3,740,0)"
^XMB(3.9,23,2,11534,0)="MY4G)/%TY""7DUAW!-LC/L**$5?XPL9ZE3GM&8_[4(N%(1G:L34Y=ONSO?T!K>"
^XMB(3.9,23,2,11535,0)="""DATA"",396.18,213,3,741,0)"
^XMB(3.9,23,2,11536,0)="M%(N^5];`&?0TN@49=9XDM!"",QG%?.&T""?""$>9UW[V;3LQU!S,QVK/737[,_0"
^XMB(3.9,23,2,11537,0)="""DATA"",396.18,213,3,742,0)"
^XMB(3.9,23,2,11538,0)="MN6_5>:9HGE"";?OTI^MTXJW<'XF27%))F+,,FN48T8Q_T-XU8HUK=.6EUXZ94"
^XMB(3.9,23,2,11539,0)="""DATA"",396.18,213,3,743,0)"
^XMB(3.9,23,2,11540,0)="M;X92/:M2!9-I3'5B4ZLWR6S7+GKM,MB`:!""@43:2Y0DX4@*6>Q)49)\L,FU&"
^XMB(3.9,23,2,11541,0)="""DATA"",396.18,213,3,744,0)"
^XMB(3.9,23,2,11542,0)="MPF=__]""<``&%&8DX/<%S4`-N&G(:W3/?C0F$I@S#!!H$$JZY-,*;(>XB>\O2"
^XMB(3.9,23,2,11543,0)="""DATA"",396.18,213,3,745,0)"
^XMB(3.9,23,2,11544,0)="MY'1M:87(BM$,,P#YP$48YQ$7IRKH?#.V%&_IOA2O45>Y(#"".#`3)>&DI&0\;"
^XMB(3.9,23,2,11545,0)="""DATA"",396.18,213,3,746,0)"
^XMB(3.9,23,2,11546,0)="M4;J+]-SY^""V5&0X6DF.[L.EM-<HNT<2'4^6NM\&>6ZA;NWGE:C\GO^SM?DDU"
^XMB(3.9,23,2,11547,0)="""DATA"",396.18,213,3,747,0)"
^XMB(3.9,23,2,11548,0)="M9#R(YDR=[#EE/\D[@^G>:1(V&F.96U`:FUN6R?RF1@-'C>[F:'1GU:C4&9/)"
^XMB(3.9,23,2,11549,0)="""DATA"",396.18,213,3,748,0)"
^XMB(3.9,23,2,11550,0)="MA<4\X]JJT=TDC?JN><1'XZPS2%^:,>_U'>W4=\P>RSGI8VG5JBDEQS0Z&'WL"
^XMB(3.9,23,2,11551,0)="""DATA"",396.18,213,3,749,0)"
^XMB(3.9,23,2,11552,0)="M&MW.L-%V""FFB?$(C1@X7\KI0%$05\>61"")F1,.;""P,DCT(48:K<%QSS3F[6U"
^XMB(3.9,23,2,11553,0)="""DATA"",396.18,213,3,750,0)"
^XMB(3.9,23,2,11554,0)="MZ@K""-DUI""-`LP]C-4JYEQ.S\MV[!#Z+=01[D*P83D2<'""(`I_+LPJJ`F^3[G"
^XMB(3.9,23,2,11555,0)="""DATA"",396.18,213,3,751,0)"
^XMB(3.9,23,2,11556,0)="M""KD%BPU4)NP[DTLPGA^XM,3RFN""<]?MVT""RD6$S4@;]RTT$,7$H5Z$N29C)!"
^XMB(3.9,23,2,11557,0)="""DATA"",396.18,213,3,752,0)"
^XMB(3.9,23,2,11558,0)="M=!;EJL7$E@VJN=.TO5HVZH:U50NI57^MSM5R(@>#*W)5QXR*QP!IQY)O:PL2"
^XMB(3.9,23,2,11559,0)="""DATA"",396.18,213,3,753,0)"
^XMB(3.9,23,2,11560,0)="MI0ZV3L&A&4S""7""F$).H,3@51H-*^_C18HU8SK^OM+NG-%#DV+3E,.'(38C,I"
^XMB(3.9,23,2,11561,0)="""DATA"",396.18,213,3,754,0)"
^XMB(3.9,23,2,11562,0)="M+NV^3-DYC/9']#TFPJ)>9#2BX7EP[\9@TZZ71@QN8CI4/*TSB8$\-;>.E1N3"
^XMB(3.9,23,2,11563,0)="""DATA"",396.18,213,3,755,0)"
^XMB(3.9,23,2,11564,0)="M:R<3W\U.G%9K""*YL`O5V8@2)H8_;<E>I([<.0VMT$X$.&-_.&`8B?CSR,(^S"
^XMB(3.9,23,2,11565,0)="""DATA"",396.18,213,3,756,0)"
^XMB(3.9,23,2,11566,0)="M-IZJI@SHI4=U-TF&'@[1*6/AF?`DI5QAM+T686<7`;44;)V[+#BTWH63X+!J"
^XMB(3.9,23,2,11567,0)="""DATA"",396.18,213,3,757,0)"
^XMB(3.9,23,2,11568,0)="M""/A5)+;VC\Q,EWY,>KYHDT&QM=SKQCA[E-W$O%YUU6KZFN]>[WN_9UPGCVUO"
^XMB(3.9,23,2,11569,0)="""DATA"",396.18,213,3,758,0)"
^XMB(3.9,23,2,11570,0)="MX++[?=?]NC7-XV=LG!BUZ?N[1?-QK&N02,822`(TR]MM0/,2QAX="":%P:1[K"
^XMB(3.9,23,2,11571,0)="""DATA"",396.18,213,3,759,0)"
^XMB(3.9,23,2,11572,0)="M'@DTDA]_>7,M3''%BNF4@SB8A.&_'L'5A.+0[,0AEC(B*5#55PLT1?/'SA,D"
^XMB(3.9,23,2,11573,0)="""DATA"",396.18,213,3,760,0)"
^XMB(3.9,23,2,11574,0)="M\?9V_H<K""]S<,^.G<Z\0-%$2P`.$4%=2:!<O0Z0P6:8R%Y%VB>E7)E70).&9"
^XMB(3.9,23,2,11575,0)="""DATA"",396.18,213,3,761,0)"
^XMB(3.9,23,2,11576,0)="MBA.S%4-;MZ!>.;_?T(VE'L@2J-D_8&&;4L4BDDERH!JJ!\$F<`D:+B?*Q367"
^XMB(3.9,23,2,11577,0)="""DATA"",396.18,213,3,762,0)"
^XMB(3.9,23,2,11578,0)="MP)G+==+8W3CKL>?6O6,WL14(RAS>]OWJT=+XL2MX,,/9,X>W(:L+&L@5FE'-"
^XMB(3.9,23,2,11579,0)="""DATA"",396.18,213,3,763,0)"
^XMB(3.9,23,2,11580,0)="M;+&RGNS>GO`#6Z:LN(_FR,#-3=MZ,2OYP``'T^.1A1F+;'5F/6L6X/=[&J1A"
^XMB(3.9,23,2,11581,0)="""DATA"",396.18,213,3,764,0)"
^XMB(3.9,23,2,11582,0)="MQI]92X7#R-X1BNSGFI6W'#NT\#>MK%$AL9V;Z73&:WG,2$IC;&;1@P`A*-3T"
^XMB(3.9,23,2,11583,0)="""DATA"",396.18,213,3,765,0)"
^XMB(3.9,23,2,11584,0)="MEP&<MW/4;C6^W7K1+S2.Y4L7Q@SP<,`QJZ`/3HM>DV*G7)U,828'0L,JF""B^"
^XMB(3.9,23,2,11585,0)="""DATA"",396.18,213,3,766,0)"
^XMB(3.9,23,2,11586,0)="M,0N@%<M3<3)QT`:A-_H:8#*AW^>OK0Y5<AUUJ+5[1];82H_3%:`;[>%LG&Q]"
^XMB(3.9,23,2,11587,0)="""DATA"",396.18,213,3,767,0)"
^XMB(3.9,23,2,11588,0)="MP&)=;=WU0&9OPTK^SOIF:WVSL;Y96]\$MC?!RM'[KF=!LBJ1M@%NC4W+@\Y4"
^XMB(3.9,23,2,11589,0)="""DATA"",396.18,213,3,768,0)"
^XMB(3.9,23,2,11590,0)="M'N*FV3H,P6JB76^:(\SFF<F;,0/3OF(\A?9V@/;6T%8F:\\B?KV;J*^""5""KC"
^XMB(3.9,23,2,11591,0)="""DATA"",396.18,213,3,769,0)"
^XMB(3.9,23,2,11592,0)="M2ZH-G.L6);U)LQ)#IP[3+$5D'4&FH&/[,>J85EQF3!%XU>1)E#/$+S<.#6>U"
^XMB(3.9,23,2,11593,0)="""DATA"",396.18,213,3,770,0)"
^XMB(3.9,23,2,11594,0)="M^/Q.<0=8/P$?Q`(+@K7*E(3ZJ#AC4@>\>,,TA%N9`)2""'*PXAMJR6V(5:S=+"
^XMB(3.9,23,2,11595,0)="""DATA"",396.18,213,3,771,0)"
^XMB(3.9,23,2,11596,0)="MK/(T`:E+'<8,F-*;6SNOR1>T-0`KT:!M!*Z/1(=4F:Z;5+`;&*@@&QIUG,'H"
^XMB(3.9,23,2,11597,0)="""DATA"",396.18,213,3,772,0)"
^XMB(3.9,23,2,11598,0)="M@)15DF!""[#>GWBD+^?%"":`)8/C,L&D',V1D_$L9-2BBMG6I-3PPE9Z\I$(M&"
^XMB(3.9,23,2,11599,0)="""DATA"",396.18,213,3,773,0)"
^XMB(3.9,23,2,11600,0)="M4\0LJP\ZO?(V+GIA)R:8^J,F)T5%'L/N9,5YI&H_`?3)!>*UL:`U!7CNKK-7"
^XMB(3.9,23,2,11601,0)="""DATA"",396.18,213,3,774,0)"
^XMB(3.9,23,2,11602,0)="M3X`AM-M7AML9MK>:G<*\&[W)E6_-'-Y(YK!OE""DU:=TG8DP06MR).X'V96(]"
^XMB(3.9,23,2,11603,0)="""DATA"",396.18,213,3,775,0)"
^XMB(3.9,23,2,11604,0)="M=@N\""=K?][0/[LBCG,:Z./HTW+#C4!SDCF[!?EH-X+?ZHC1-&85-#UG-]O56"
^XMB(3.9,23,2,11605,0)="""DATA"",396.18,213,3,776,0)"
^XMB(3.9,23,2,11606,0)="M->""[]R6-T0]BL9N,^RW*8.EF:-YL0W,\*0OFW%[!22TXTMEL*L""Q_Y*KB\E+"
^XMB(3.9,23,2,11607,0)="""DATA"",396.18,213,3,777,0)"
^XMB(3.9,23,2,11608,0)="M$`W+.Y>/I#G/AS@ER\=6Z_/=D:NQ\=Z^(.=:KC9O]IJQJS@Z!FL#;X(DYEA("
^XMB(3.9,23,2,11609,0)="""DATA"",396.18,213,3,778,0)"
^XMB(3.9,23,2,11610,0)="MX$4N+)0$A&VM90C)FD7DF`L3[L`/8IZ4)<@X:[<#CX&]MMM%,%8O.EI#-738"
^XMB(3.9,23,2,11611,0)="""DATA"",396.18,213,3,779,0)"
^XMB(3.9,23,2,11612,0)="M&8HL5)T[?K*W8=UJ8R/QC5XMH(^LNO@ZMKS`?7E!T52$""E17-\[*4U<\3\2\"
^XMB(3.9,23,2,11613,0)="""DATA"",396.18,213,3,780,0)"
^XMB(3.9,23,2,11614,0)="M6Q^Q&NZC#>?`VOLWK]VO%N)0<F3/BY41X0C5\N)9QGF""=BQ3\DSC')!8(3B:"
^XMB(3.9,23,2,11615,0)="""DATA"",396.18,213,3,781,0)"
^XMB(3.9,23,2,11616,0)="MN\%DK0`,QE_>V[%+N[:?5'1\=#WGMN&Z:%CB>4%<JJ[6<^&EX""I@3NC`K4O="
^XMB(3.9,23,2,11617,0)="""DATA"",396.18,213,3,782,0)"
^XMB(3.9,23,2,11618,0)="M,"":5R@KPUJNRI7_#4.J#\U9#OS/)-<::>]^>M_GB>,/56WJ>;[WWC6_W@<GO"
^XMB(3.9,23,2,11619,0)="""DATA"",396.18,213,3,783,0)"
^XMB(3.9,23,2,11620,0)="M+$EC>3$WH.J;H(NKCTL\:G/-=8XE51CF:=7Y&(XZ]:0)J/!Z&8""VGAF4`9`,"
^XMB(3.9,23,2,11621,0)="""DATA"",396.18,213,3,784,0)"
^XMB(3.9,23,2,11622,0)="MRMP<7TBQ,A9]:[DU7,QV!!V5G,M6^K<L;S>P/,?S@/#][<?WP_MO.,=T&ZM."
^XMB(3.9,23,2,11623,0)="""DATA"",396.18,213,3,785,0)"
^XMB(3.9,23,2,11624,0)="M5;-+K?9.9[!C?=>>X_5.PJMUW63FS6!F[M]Q$S=T5H2)%ZF^JVX3F.MJ*V^1"
^XMB(3.9,23,2,11625,0)="""DATA"",396.18,213,3,786,0)"
^XMB(3.9,23,2,11626,0)="M2)&=L?KC,K)P7SHBJ%+W'F+%D.:ZOEHZ(`47-@DLF*HF[IBLJ_'-(6)C/<TE"
^XMB(3.9,23,2,11627,0)="""DATA"",396.18,213,3,787,0)"
^XMB(3.9,23,2,11628,0)="M;.PNAZ;)&P)<@9I*JO*1D0[CTRU/\K:S/6G9]23%,JYNN(]CQ80_9/""6RV+Y"
^XMB(3.9,23,2,11629,0)="""DATA"",396.18,213,3,788,0)"
^XMB(3.9,23,2,11630,0)="MU0W%@G[O=F(]T(VP5/'7__S:-FBSTU?D![VS-WFB6:V;'RE\K,]N4R4/,>N="
^XMB(3.9,23,2,11631,0)="""DATA"",396.18,213,3,789,0)"
^XMB(3.9,23,2,11632,0)="MS`\:SGHB.VS%I/H2G@'<*4`$[IPV$SGYS8W/&[H<9.?/MC^_:W^YJ""(X.>29"
^XMB(3.9,23,2,11633,0)="""DATA"",396.18,213,3,790,0)"
^XMB(3.9,23,2,11634,0)="MN67F8I+^U.""T+$+$4""2L1+#%PN5X`!A((%Z!\Z`@$9J<^#.4QY#F^XQ&DXD7"
^XMB(3.9,23,2,11635,0)="""DATA"",396.18,213,3,791,0)"
^XMB(3.9,23,2,11636,0)="MW,2Q5K30DL;M-E`YLOUCB.8RH(&$397!S($8(O#%A(_U9S>;41#KCF'7+C_S"
^XMB(3.9,23,2,11637,0)="""DATA"",396.18,213,3,792,0)"
^XMB(3.9,23,2,11638,0)="MP7'C,+2VL@EWDMMSS&5*6O^N2::`Y@W._!X0=(9&/6C3>Y3J=U!+`0(6""Q0`"
^XMB(3.9,23,2,11639,0)="""DATA"",396.18,213,3,793,0)"
^XMB(3.9,23,2,11640,0)="M`@`(`*54'S7SZ_(39S```$`?`0`A``````````$`(`""`@0````!.;W-E7U-I"
^XMB(3.9,23,2,11641,0)="""DATA"",396.18,213,3,794,0)"
^XMB(3.9,23,2,11642,0)="M;G5S7TQA<GEN>%]0:&%R>6YX7S$Q,RYP;FQ02P$""%@L4``(`""`""F5!\U3#1!"
^XMB(3.9,23,2,11643,0)="""DATA"",396.18,213,3,795,0)"
^XMB(3.9,23,2,11644,0)="MM@$V``""KYP$`)0`````````!`""``@(&F,```3F]S95]3:6YU<U],87)Y;GA?"
^XMB(3.9,23,2,11645,0)="""DATA"",396.18,213,3,796,0)"
^XMB(3.9,23,2,11646,0)="M4&AA<GEN>%\Q,3,N<&YL+F9R;5!+`0(6""Q0``@`(`*54'S4=!T)(U1@``,[&"
^XMB(3.9,23,2,11647,0)="""DATA"",396.18,213,3,797,0)"
^XMB(3.9,23,2,11648,0)="M```E``````````$`(`""`@>IF``!.;W-E7U-I;G5S7TQA<GEN>%]0:&%R>6YX"
^XMB(3.9,23,2,11649,0)="""DATA"",396.18,213,3,798,0)"
^XMB(3.9,23,2,11650,0)="M7S$Q,RYP;FPN8V1E4$L!`A8+%``""``@`I50?-7E*B26^""@``AS@``""4`````"
^XMB(3.9,23,2,11651,0)="""DATA"",396.18,213,3,799,0)"
^XMB(3.9,23,2,11652,0)="M`````0`@`(""!`H```$YO<V5?4VEN=7-?3&%R>6YX7U!H87)Y;GA?,3$S+G!N"
^XMB(3.9,23,2,11653,0)="""DATA"",396.18,213,3,800,0)"
^XMB(3.9,23,2,11654,0)=";;""YR97!02P4&``````0`!`!(`0```XL`````"
^XMB(3.9,23,2,11655,0)="""DATA"",396.18,213,3,801,0)"
^XMB(3.9,23,2,11656,0)="end"
^XMB(3.9,23,2,11657,0)="""DATA"",396.18,213,4)"
^XMB(3.9,23,2,11658,0)="9^2954046857"
^XMB(3.9,23,2,11659,0)="""DATA"",396.18,213,6)"
^XMB(3.9,23,2,11660,0)="1^519"
^XMB(3.9,23,2,11661,0)="""DATA"",396.18,216,0)"
^XMB(3.9,23,2,11662,0)="LIVER, GALL BLADDER, AND PANCREAS~113F"
^XMB(3.9,23,2,11663,0)="""DATA"",396.18,216,1,0)"
^XMB(3.9,23,2,11664,0)="^^2^2^3060831"
^XMB(3.9,23,2,11665,0)="""DATA"",396.18,216,1,1,0)"
^XMB(3.9,23,2,11666,0)="Last updated on 07/06/2006"
^XMB(3.9,23,2,11667,0)="""DATA"",396.18,216,1,2,0)"
^XMB(3.9,23,2,11668,0)="Patch DVBA*2.7*113"
^XMB(3.9,23,2,11669,0)="""DATA"",396.18,216,2)"
^XMB(3.9,23,2,11670,0)="3060523^^3060706.1817"
^XMB(3.9,23,2,11671,0)="""DATA"",396.18,216,3,0)"
^XMB(3.9,23,2,11672,0)="^396.184^1257^1257^3060831^^^^"
^XMB(3.9,23,2,11673,0)="""DATA"",396.18,216,3,1,0)"
^XMB(3.9,23,2,11674,0)="begin 664 Liver_113.pnl.zip"
^XMB(3.9,23,2,11675,0)="""DATA"",396.18,216,3,2,0)"
^XMB(3.9,23,2,11676,0)="M4$L#!!0``@`(`/=4'S4LDSF.TT@``,:=`0`-````3&EV97)?,3$S+G!N;-Q="
^XMB(3.9,23,2,11677,0)="""DATA"",396.18,216,3,3,0)"
^XMB(3.9,23,2,11678,0)="M:8PDR56NK.K.ZNIC>JZ>VSMI[S5M]\S6?0R851]SM#T]W=M5L^,5BU;9F=%="
^XMB(3.9,23,2,11679,0)="""DATA"",396.18,216,3,4,0)"
^XMB(3.9,23,2,11680,0)="MN9.569M'3]?N2A9@L]8B\<\@!#^\8""$!8BW0(F0A^`'2(D`""&0Q8B!_8'(LL"
^XMB(3.9,23,2,11681,0)="""DATA"",396.18,216,3,5,0)"
^XMB(3.9,23,2,11682,0)="M""X0PB#\<$1F161%545F9-=7NG5W)GKHZ7GSOO7CO1;P7+QM;-[-B8TLV@'[B"
^XMB(3.9,23,2,11683,0)="""DATA"",396.18,216,3,6,0)"
^XMB(3.9,23,2,11684,0)="MH(W^69%ML&H:CF7J$W?`KI-,I!IF.WE\\KZF.LW4]Y/B;:#M-9W4;PG3*V`?"
^XMB(3.9,23,2,11685,0)="""DATA"",396.18,216,3,7,0)"
^XMB(3.9,23,2,11686,0)="MZ)NN`ZRTN+-_US3``OQ3V[%DS7#L:QOR0?#;TSU?^*.Q?Z`9`_Y`,_P_R&R9"
^XMB(3.9,23,2,11687,0)="""DATA"",396.18,216,3,8,0)"
^XMB(3.9,23,2,11688,0)="M;;>]`0PW?7H#?GO3M%K7#H(/<U,->6?34H&53""02#0_>'7D'Z//>_S<Z;;""Y"
^XMB(3.9,23,2,11689,0)="""DATA"",396.18,216,3,9,0)"
^XMB(3.9,23,2,11690,0)="MB_[&`Y>J_I^';@JC2SY+P""7GTJMRV]%,0YS<N+%]ZP8SU(SW_VB0]35FF'-D"
^XMB(3.9,23,2,11691,0)="""DATA"",396.18,216,3,10,0)"
^XMB(3.9,23,2,11692,0)="MF,N<8>ZLOWACVQ_&8_BL]]$KWNL*YO64-TR:\/J?`UZ_(TS<AHP0)[<VM^YM"
^XMB(3.9,23,2,11693,0)="""DATA"",396.18,216,3,11,0)"
^XMB(3.9,23,2,11694,0)="M8;ZO&P;D^]3._K:LV4""=63$1ZKK3T0'\U*YKQIX.)E=-W82_4O2ZIN\#:_8F"
^XMB(3.9,23,2,11695,0)="""DATA"",396.18,216,3,12,0)"
^XMB(3.9,23,2,11696,0)="M%.VUU:9LV<!)SZ_=N+E\[T[CE=7;R]OU&XUI_*WW)VE%7]%EY<&,]QG!\Y\9"
^XMB(3.9,23,2,11697,0)="""DATA"",396.18,216,3,13,0)"
^XMB(3.9,23,2,11698,0)="M[]U=N07$N8VZ5)<-6ZH#2]O%?^I1GTE,;\D6,!STT10M#\*_.0S<>UTH8@XF"
^XMB(3.9,23,2,11699,0)="""DATA"",396.18,216,3,14,0)"
^XMB(3.9,23,2,11700,0)="M!0_Z!('^UPF?A<<#%EZ^HT$$UZ4MR]S104NJMX&B[6J*=%NS'=/J/""*V_XB$"
^XMB(3.9,23,2,11701,0)="""DATA"",396.18,216,3,15,0)"
^XMB(3.9,23,2,11702,0)="M3=RU5TQ=92`&P(Y1P'+5*D;V#0]9Z@V!*,<#']F%`-G2)R$H8$-R[DY+<R3'"
^XMB(3.9,23,2,11703,0)="""DATA"",396.18,216,3,16,0)"
^XMB(3.9,23,2,11704,0)="ME&15E>#XE@9L]-9I`OAEJR5;G:G[4-#W+;F=2232C177<4R#$,9O<H1P#A-^"
^XMB(3.9,23,2,11705,0)="""DATA"",396.18,216,3,17,0)"
^XMB(3.9,23,2,11706,0)="M4^A5[C-=K5S5@6QU122D-XU575,>I$\=X,%N`:AEFN)].(A>#=-S,+T#G]YG"
^XMB(3.9,23,2,11707,0)="""DATA"",396.18,216,3,18,0)"
^XMB(3.9,23,2,11708,0)="M?7J7`WHB!M@EF!R%8#Z'""5X<3A`""-&UPE%J?&H)PNE%7H*W55\R#XQAD\#Z/"
^XMB(3.9,23,2,11709,0)="""DATA"",396.18,216,3,19,0)"
^XMB(3.9,23,2,11710,0)="MC<*DMS(ND)7QS<`H;`MG;IO6Z^3GLG6M8<&9PV6?.?4BL)SNY]NRL0=2WYDX"
^XMB(3.9,23,2,11711,0)="""DATA"",396.18,216,3,20,0)"
^XMB(3.9,23,2,11712,0)="MPWX<_'QZV75,_/G0Y5K""<SKIS>DSA/%&O[T[ZZ_2'0!)2""IP9$T'ZO4?O""CX"
^XMB(3.9,23,2,11713,0)="""DATA"",396.18,216,3,21,0)"
^XMB(3.9,23,2,11714,0)="M.""HTC@/""VW>2_4""^W,""K#QPX<$2I;=JV!H$M04BV8FD[P/M6T2S%;=F.;""AP"
^XMB(3.9,23,2,11715,0)="""DATA"",396.18,216,3,22,0)"
^XMB(3.9,23,2,11716,0)="MP<J&*FF&YFBR+K5D0]L%\!LTFBV9N][O56BRH:.53`O^\%77ZJ!7N_!_LF2!"
^XMB(3.9,23,2,11717,0)="""DATA"",396.18,216,3,23,0)"
^XMB(3.9,23,2,11718,0)="M?0T\A/3DEM2VS'U-!?`WT,?NP]&:V-0=`1MIL\-C*#$Z=8'1C-5^AAY;DQV`"
^XMB(3.9,23,2,11719,0)="""DATA"",396.18,216,3,24,0)"
^XMB(3.9,23,2,11720,0)="M^`#9`9Q'1?+],2E$,4LI1.J[""3+_'^N?_ZE5TX5SE6P-RGH\(,:EU<4""!C&'"
^XMB(3.9,23,2,11721,0)="""DATA"",396.18,216,3,25,0)"
^XMB(3.9,23,2,11722,0)="M[2)QILFM?A#SFU`++4DQ6RTXHGV=+U-BV'_9""P%3?^\SY:#?@SVSZEIH;I)C"
^XMB(3.9,23,2,11723,0)="""DATA"",396.18,216,3,26,0)"
^XMB(3.9,23,2,11724,0)="M`=GQQO34V8$*""ZD8JH9^]N%3VR*Q9_,>PF\EB2'X8J*?99?6_`6O]&&]GKYA"
^XMB(3.9,23,2,11725,0)="""DATA"",396.18,216,3,27,0)"
^XMB(3.9,23,2,11726,0)="MR-`JJ,/HE0D]T5LE3Q&&9OJI)7/7/B1*52[34WXY9,KY#\V4B3&Z)0R=<^'#"
^XMB(3.9,23,2,11727,0)="""DATA"",396.18,216,3,28,0)"
^XMB(3.9,23,2,11728,0)="M,N<B""6I^$P<U?YL<[%O/;`.[C0R/%QGZ2MC5P41BLG$#KK@9/#QZ66.L\^>("
^XMB(3.9,23,2,11729,0)="""DATA"",396.18,216,3,29,0)"
^XMB(3.9,23,2,11730,0)="MFG\C4/,%LK_(9?/9+!6>H:$V0,LD0Z&7M.=,O45L0NHK@>N\T1TJ5QFC=9]!"
^XMB(3.9,23,2,11731,0)="""DATA"",396.18,216,3,30,0)"
^XMB(3.9,23,2,11732,0)="M=E>#1NLN>,BP=NZ.9@`;OK-@I&$+8H)A]G00\-CI:=M&(9""FR#H5H""424XT["
^XMB(3.9,23,2,11733,0)="""DATA"",396.18,216,3,31,0)"
^XMB(3.9,23,2,11734,0)="MT*_""B,L/X/&[/(WT?WRD/QXP;9-""6CIV`P4(*E#K0`<*I+ON@)8ONCGTAIJB"
^XMB(3.9,23,2,11735,0)="""DATA"",396.18,216,3,32,0)"
^XMB(3.9,23,2,11736,0)="M6'>0J,13,$K:0Y$_W-GH'>FA""=DD9M9;R.\#51(OK""/'#R-F+_9X^!P,#EH:"
^XMB(3.9,23,2,11737,0)="""DATA"",396.18,216,3,33,0)"
^XMB(3.9,23,2,11738,0)="M_#44OCCIF?#$S(:K.QHFFNFBFAB(JL`8]0#63_%@Y:NQ8$V@(P!Q>@.HD,6>"
^XMB(3.9,23,2,11739,0)="""DATA"",396.18,216,3,34,0)"
^XMB(3.9,23,2,11740,0)="MJD[576L/\1M.M_'<5D,\N0:1P$!&;K=U_T<G-EVG#5\BC.9!9P\8XL3JUO*6"
^XMB(3.9,23,2,11741,0)="""DATA"",396.18,216,3,35,0)"
^XMB(3.9,23,2,11742,0)="M.(M""U""8P8<S3Z@P!/.FKZFQ757,YVKK_DV_=?U[PH59]J/""_VF.@JU.<]5BE"
^XMB(3.9,23,2,11743,0)="""DATA"",396.18,216,3,36,0)"
^XMB(3.9,23,2,11744,0)="M??Y;_@;ZW6`]+E-:6G@,,,YV=WUS]*ZO2D?LYPG,GPRT]MG`/)Y`!B\X)4!:"
^XMB(3.9,23,2,11745,0)="""DATA"",396.18,216,3,37,0)"
^XMB(3.9,23,2,11746,0)="M?Z2G'J/L<`O8],`MWE""TL^OHF,Q5O.U%E^S<$+*9QJK9VC&A/9C'A/VW.9K-"
^XMB(3.9,23,2,11747,0)="""DATA"",396.18,216,3,38,0)"
^XMB(3.9,23,2,11748,0)="M(8ZB7""S5)@.FW6]J#F!L`W6HT&LF$@E$_Y9ENNWNKM=_RZ[9NM""KSZG/""P'V"
^XMB(3.9,23,2,11749,0)="""DATA"",396.18,216,3,39,0)"
^XMB(3.9,23,2,11750,0)="MF:ZEH:""GN<<Q.1(;3WO`7B##_@PGT'MBS;6\,;W-FN]>I2LM*-BFO4BY62X="
^XMB(3.9,23,2,11751,0)="""DATA"",396.18,216,3,40,0)"
^XMB(3.9,23,2,11752,0)="M<J#UNXGQ$Z+CA1SVPZD=X;`!X9`U-9,\;$)E2D*0?X='J$*+Z%`I56DA'2JE"
^XMB(3.9,23,2,11753,0)="""DATA"",396.18,216,3,41,0)"
^XMB(3.9,23,2,11754,0)="M&BVEPZ24S])B>E8X/$(Y1DR'22G/B.DP*148,1TFI2)#Z:[0%[Y26UOD)""73"
^XMB(3.9,23,2,11755,0)="""DATA"",396.18,216,3,42,0)"
^XMB(3.9,23,2,11756,0)="M.Q)H>295[Q*DZ,PW5K?N;VS+JF9ZYOH,<1W,A_XR3GGFX@39QORH3U7R'4BM"
^XMB(3.9,23,2,11757,0)="""DATA"",396.18,216,3,43,0)"
^XMB(3.9,23,2,11758,0)="M7,E.UYOF0YRXF)K]C&L[VF['<Q:9-/IG2U:I\_\9+QC>!99I/)^&GL=M&78R"
^XMB(3.9,23,2,11759,0)="""DATA"",396.18,216,3,44,0)"
^XMB(3.9,23,2,11760,0)="M&4ROU\ND7@*VF+QK)IB,4#0(%1I""+@Q""+A:$>7),`F-]UP;J]=%@"")P-7H[V"
^XMB(3.9,23,2,11761,0)="""DATA"",396.18,216,3,45,0)"
^XMB(3.9,23,2,11762,0)="M;J_T:=4""->5\][""""WNA%XPPQ:.\EADJW6H[%FNEM;4?>UR#J$86;B@JAQD`("
^XMB(3.9,23,2,11763,0)="""DATA"",396.18,216,3,46,0)"
^XMB(3.9,23,2,11764,0)="MDVZU<@32G>!(M\3$%*'BK58YXIV,R!MBVU,O""8QX70YORO%X<VJ]U7(-TW;;"
^XMB(3.9,23,2,11765,0)="""DATA"",396.18,216,3,47,0)"
^XMB(3.9,23,2,11766,0)="M;;+?M4>4LQ@12X&XCV22QI)Z*\%;QH588,YO6M!""JAHTM'#S0DRF=\`Y&J1,"
^XMB(3.9,23,2,11767,0)="""DATA"",396.18,216,3,48,0)"
^XMB(3.9,23,2,11768,0)="M5$@%1CQAJENN'H'JIJ/B*#*B""36PQ2/`,>TOP5G*P):8>#MT#99KG#4XQ1NT"
^XMB(3.9,23,2,11769,0)="""DATA"",396.18,216,3,49,0)"
^XMB(3.9,23,2,11770,0)="MS,36X7:[Q!ET)BK'2[1'>S-D75?C+86%+;#7T64'J#A)]2CN>38J&#K""2/UB"
^XMB(3.9,23,2,11771,0)="""DATA"",396.18,216,3,50,0)"
^XMB(3.9,23,2,11772,0)="M(LR""'X7ZS/$D7:&CYC]-A)IPGJ2/\0:M,A%R^*CE`F?4$U%97F&<YIMAEB=>"
^XMB(3.9,23,2,11773,0)="""DATA"",396.18,216,3,51,0)"
^XMB(3.9,23,2,11774,0)="M2#2YI@%G1(69CSI[)FH)UYAR_@@TYCA/N#5F4S)$97A!W>FH[*G1;J7+'JYY"
^XMB(3.9,23,2,11775,0)="""DATA"",396.18,216,3,52,0)"
^XMB(3.9,23,2,11776,0)="MR#X*>T:4\ZF(0(IL^!)JYN)IZ:DMV5#0C@BZ>V""\WFD!>T11G^2(V@^[R%XM"
^XMB(3.9,23,2,11777,0)="""DATA"",396.18,216,3,53,0)"
^XMB(3.9,23,2,11778,0)="M7-2E(D?49Z-RB`F*PD5=*AS!2C@3%4B>""2'""1%V*MZ)GEPU'V]%,*.I10]2%"
^XMB(3.9,23,2,11779,0)="""DATA"",396.18,216,3,54,0)"
^XMB(3.9,23,2,11780,0)="MJ""`*M""/[(%08\>*Y4PC$U6:G#2P'&(\2;I^+BJ5(8Q&%$!-;JAV!8IWGK3MZ"
^XMB(3.9,23,2,11781,0)="""DATA"",396.18,216,3,55,0)"
^XMB(3.9,23,2,11782,0)="MUYPJ""Z'N,\M9=A=X@^89IQP^:JG""&?5C45E>8MQ:.,_+1\#S2U&!E!D@X0NA"
^XMB(3.9,23,2,11783,0)="""DATA"",396.18,216,3,56,0)"
^XMB(3.9,23,2,11784,0)="M%`O(""6\AJ,#;=<J&,^HRN,B3=('QT$/TI\R1M!25017&0X=*NEPZ`DE?C@JD"
^XMB(3.9,23,2,11785,0)="""DATA"",396.18,216,3,57,0)"
^XMB(3.9,23,2,11786,0)="MR@`)E70Y7NP^O::Y%G@$J_T$3\3L*6JXB""N\;=^343E38SQSJ(@K1W$N]8F("
^XMB(3.9,23,2,11787,0)="""DATA"",396.18,216,3,58,0)"
^XMB(3.9,23,2,11788,0)="M0$I9!H@O8BIY22.)9Y;.;?+/J$>4^,<Y-0,%)MV5>KE?XA>HZ7</VQZ#S/I3"
^XMB(3.9,23,2,11789,0)="""DATA"",396.18,216,3,59,0)"
^XMB(3.9,23,2,11790,0)="MH7E7XK:NX97Y=[[8OA`42[Q&G\%Q,I(58L7?33""W&-[F)!P^AFOW.Y)*:D&!"
^XMB(3.9,23,2,11791,0)="""DATA"",396.18,216,3,60,0)"
^XMB(3.9,23,2,11792,0)="MK#0EV[7V@-6Y/BS5E6?H?)HLE%U.H91/!J<V!H]/PZ@6Z:/T&3*ZW#_Z:;^V"
^XMB(3.9,23,2,11793,0)="""DATA"",396.18,216,3,61,0)"
^XMB(3.9,23,2,11794,0)="M!97I*D""%UL>FQYYN;&Z3FAO""Z^`]B3LR'HF+?EE*?P5.K5+,!2/&*L697VV:"
^XMB(3.9,23,2,11795,0)="""DATA"",396.18,216,3,62,0)"
^XMB(3.9,23,2,11796,0)="M\%<=VX$_1=4SQ[W;$W#)R(;=UJ$G%,_X>QK\""^F*8SJROBB>Z_V\+5NHE'F1"
^XMB(3.9,23,2,11797,0)="""DATA"",396.18,216,3,63,0)"
^XMB(3.9,23,2,11798,0)="M6X%S#&L@6L5HTE-3W5?=O,LLFEU#:P>W4>YKAFH^G+IC&GN()5.\A5A@Q'R&"
^XMB(3.9,23,2,11799,0)="""DATA"",396.18,216,3,64,0)"
^XMB(3.9,23,2,11800,0)="M<.G/`RY=H;B4?YS6H<!#6V30?K8/K42A+3Q.:).)D&J3$E/T^(%?H941^MUK"
^XMB(3.9,23,2,11801,0)="""DATA"",396.18,216,3,65,0)"
^XMB(3.9,23,2,11802,0)="MI=C=^`ZH-,GT%:3=,DU53-_16IH#5'%Z&^Q:LH(JZ,4R^FK)*]6WH=>1(4;X"
^XMB(3.9,23,2,11803,0)="""DATA"",396.18,216,3,66,0)"
^XMB(3.9,23,2,11804,0)="M=L=UI(>:`VV1MF>@RT5PH<#7*I#`[BY4=SO4A!;HTI5G4@3,UX+2E=5NZ<J%"
^XMB(3.9,23,2,11805,0)="""DATA"",396.18,216,3,67,0)"
^XMB(3.9,23,2,11806,0)="M.C4HD^""UZ=-=;F:7,.U?<;1\S/=07^`9VJ!HF9C`+M4K]F+O[;""`OS-8P-[7"
^XMB(3.9,23,2,11807,0)="""DATA"",396.18,216,3,68,0)"
^XMB(3.9,23,2,11808,0)="M4?.^)5(N.<'<%_QV,*G+74GFX\4OXDV`+GX%/GYBH(_'!8@3&YJNBE,;)AP="
^XMB(3.9,23,2,11809,0)="""DATA"",396.18,216,3,69,0)"
^XMB(3.9,23,2,11810,0)="M6C%1K*._!R,D@DO$!GV0B``JWC%#>K6IZ;H]3E1""5%1$@?Y$B(`J7H`V=5-V"
^XMB(3.9,23,2,11811,0)="""DATA"",396.18,216,3,70,0)"
^XMB(3.9,23,2,11812,0)="MM#T7C!-6U-QTJ4@K8#$,52&>K*8V9!U=LAPGJJCIZE*94<%06+EX!RN99<.T"
^XMB(3.9,23,2,11813,0)="""DATA"",396.18,216,3,71,0)"
^XMB(3.9,23,2,11814,0)="MP($FCQ/71%1<%48)0W'E8^*Z#605%0Z/$U?4%'JI2FOAYT*U,-X&-WU7AMNW"
^XMB(3.9,23,2,11815,0)="""DATA"",396.18,216,3,72,0)"
^XMB(3.9,23,2,11816,0)="ML0HK:BZ]5&.4,!15,5Z&(/.B""9TSG/8X<45-1)>SM+#>#!56O-/PV0W75G0@"
^XMB(3.9,23,2,11817,0)="""DATA"",396.18,216,3,73,0)"
^XMB(3.9,23,2,11818,0)="M;<'`8IS(HI8*E'/,\@J56#Z>'F;6--FRFN/5Q*A11CG/:&*XR.*9C=.-9L<R"
^XMB(3.9,23,2,11819,0)="""DATA"",396.18,216,3,74,0)"
^XMB(3.9,23,2,11820,0)="M-562=Z!=;,FZYG3&""7$Z*L0""([IPB/$6V]GU5EO6+*""B.WD*NE_>4[;RZ""BC"
^XMB(3.9,23,2,11821,0)="""DATA"",396.18,216,3,75,0)"
^XMB(3.9,23,2,11822,0)="M5B24:6^=^DHB5$'CK3UI#1_W>J63EE_7"",-]26FBJ]#CA!NU9H%<_""-Z.P1O"
^XMB(3.9,23,2,11823,0)="""DATA"",396.18,216,3,76,0)"
^XMB(3.9,23,2,11824,0)="M+EZR)[UL@-9XO?A<5%B,%Q\FQGBP3FS)CM+L2$VHL9)NVF.-E8]%!4B[\]3["
^XMB(3.9,23,2,11825,0)="""DATA"",396.18,216,3,77,0)"
^XMB(3.9,23,2,11826,0)="MH?@*\7+*F77#-EO&>`47M22BS'CT8<#B""6ZZ_D`SI&W9;HX3V?&(R""I91B7#"
^XMB(3.9,23,2,11827,0)="""DATA"",396.18,216,3,78,0)"
^XMB(3.9,23,2,11828,0)="MD>7C)4OF;G0`.NU#-XO&JHY1ZW`J.5H=OQ<NM7B[[$P=:*_C,\SQX3H9%1?C"
^XMB(3.9,23,2,11829,0)="""DATA"",396.18,216,3,79,0)"
^XMB(3.9,23,2,11830,0)="MUH<`RV=CI@!=54-G/L3\CQ5@U-*4""N/4AP&,9TA.H_X=6JL%A8<:2WA_-4Z,"
^XMB(3.9,23,2,11831,0)="""DATA"",396.18,216,3,80,0)"
^XMB(3.9,23,2,11832,0)="M4>N(*HQ+/R6$*F>\A2=Z)\_C!+7`.X0E>^U_PUIXR4?P]>`X\@D*0?EQ.H4]"
^XMB(3.9,23,2,11833,0)="""DATA"",396.18,216,3,81,0)"
^XMB(3.9,23,2,11834,0)="M$_7(R[]Z^""Y65,$_Q?RS0(I/=2^4Q@P_GV(./7<ML]7?2^'YOD/)&*D]YMR2"
^XMB(3.9,23,2,11835,0)="""DATA"",396.18,216,3,82,0)"
^XMB(3.9,23,2,11836,0)="MB;R9SELGJ<Y;I2SZCYC5-[V(^U,$\A_X8D^5/@K]MP3_-/DD=9J,X1.]_Q+>"
^XMB(3.9,23,2,11837,0)="""DATA"",396.18,216,3,83,0)"
^XMB(3.9,23,2,11838,0)="M5$WZ=RXY3;C.D29<V[A+C;D+7RD0N?V(R/[]T;MOG>B!1?*$^#@^N4L2>1HG"
^XMB(3.9,23,2,11839,0)="""DATA"",396.18,216,3,84,0)"
^XMB(3.9,23,2,11840,0)="MD;=*VJ!(<,-@83A'TI<&EQ\<I^Y](.$0&&>]]?@O?L5$IS=#DL]7:UG.-9+>"
^XMB(3.9,23,2,11841,0)="""DATA"",396.18,216,3,85,0)"
^XMB(3.9,23,2,11842,0)="MX8@C6L+K^Q]""Q\LQYU_^5>53]%5EK$`D>_5U;#AG_>*%6_Z@EWHZ<D7OC]5K"
^XMB(3.9,23,2,11843,0)="""DATA"",396.18,216,3,86,0)"
^XMB(3.9,23,2,11844,0)="MM""[R:PXH1HE,5O6;@1+?""H""52_'LUK%5Z::F`Z+TUWO-SQ3^'*CBPEW3@1KT"
^XMB(3.9,23,2,11845,0)="""DATA"",396.18,216,3,87,0)"
^XMB(3.9,23,2,11846,0)="MF@ML5!&_TY%>7-[>%)_<[OW(2S09\,?ROJSIR*J%9R=""4!-Y?B<Q%'8U9MW("
^XMB(3.9,23,2,11847,0)="""DATA"",396.18,216,3,88,0)"
^XMB(3.9,23,2,11848,0)="MF0U29X&7^`\*?I`>/='US(R5Q@O:)4A_*;#2/YT(VCF4J[G')#5*N:4YRBTQ"
^XMB(3.9,23,2,11849,0)="""DATA"",396.18,216,3,89,0)"
^XMB(3.9,23,2,11850,0)="M]P4X'2%_Y:/@D9+<_*9?0#0O,-C_D..-+A%OM-JT3$-3)%SCL(:;JQUA/TAN"
^XMB(3.9,23,2,11851,0)="""DATA"",396.18,216,3,90,0)"
^XMB(3.9,23,2,11852,0)="M4P>_]GH=6]XO]K4M/#_02`JC-Q$L\$I-NDT$0;PF@F\G1VPBR$HX1_4L""295"
^XMB(3.9,23,2,11853,0)="""DATA"",396.18,216,3,91,0)"
^XMB(3.9,23,2,11854,0)="M""J+L8L""(_[KIF1-#Z:!00S,4N2TK&FJF9^Q)H`TW.RJPI2MMR`M3]?+HLN(Z"
^XMB(3.9,23,2,11855,0)="""DATA"",396.18,216,3,92,0)"
^XMB(3.9,23,2,11856,0)="MP$O?XSY\=J?5=LR6+=FNTI1D6VKA7-Z2M(M3E4N2X>55EJ1]DHE`50$X,09?"
^XMB(3.9,23,2,11857,0)="""DATA"",396.18,216,3,93,0)"
^XMB(3.9,23,2,11858,0)="M64[3DO4][S4<SD(3E-PVI""B]YLJJA0H$VK)F>'8/75_=DW:`""K?1CO?[[KUM"
^XMB(3.9,23,2,11859,0)="""DATA"",396.18,216,3,94,0)"
^XMB(3.9,23,2,11860,0)="M:/IDJ=WLV)JBR<:BI+K>CW49_C*7O^K=ZI8PD.N<+F(L`\FQVTV!X>""O)OH["
^XMB(3.9,23,2,11861,0)="""DATA"",396.18,216,3,95,0)"
^XMB(3.9,23,2,11862,0)="MLV579%L+^@Z2_H$AS!Q.FZV\O]A7?=""E75R&RU'>`P@KOLD.^:3*'?M1Z/M5"
^XMB(3.9,23,2,11863,0)="""DATA"",396.18,216,3,96,0)"
^XMB(3.9,23,2,11864,0)="MSZ2YESHXKCO;4_S@-T_DCIO/5^A&.@_]U6GWCWLN&)=M[D@7?W4K7HZS%2]Y"
^XMB(3.9,23,2,11865,0)="""DATA"",396.18,216,3,97,0)"
^XMB(3.9,23,2,11866,0)="MNE]/\A[AWA*GX*5:+@^H<TGP-[U""3A3RHE`0A:(HE$2A+`H54:B*0DU,YK)B"
^XMB(3.9,23,2,11867,0)="""DATA"",396.18,216,3,98,0)"
^XMB(3.9,23,2,11868,0)="MZD=R64YH<99[23I'C/!?X;#""Z.7R)_RH(EN.F3Y:N-W5P29`?9\<S0[9]<7="
^XMB(3.9,23,2,11869,0)="""DATA"",396.18,216,3,99,0)"
^XMB(3.9,23,2,11870,0)="M[$5-K->8>A4"",/4WB5Z$4!`QSS^O40@5XIETSS/Y;3\MS7X`[0^J1**KE:/="
^XMB(3.9,23,2,11871,0)="""DATA"",396.18,216,3,100,0)"
^XMB(3.9,23,2,11872,0)="M_><[%W+!$S#783BN);T-KIIM8$3OP3NXWHG0G/%6S)?](ZU?#YS+[R6&=>4A"
^XMB(3.9,23,2,11873,0)="""DATA"",396.18,216,3,101,0)"
^XMB(3.9,23,2,11874,0)="MB>5DFFG#_4+_FCN).G<S*C.L3)3D=E.K`C/V;4XS3-9.#!TX1\_Y.8+ZJYSJ"
^XMB(3.9,23,2,11875,0)="""DATA"",396.18,216,3,102,0)"
^XMB(3.9,23,2,11876,0)="MJZ>W@8Y-0U-K,Y-'G?ML8.UK""AA""+N_70;Z!<50(O;_DT(O51WI(>R%&,""W"""
^XMB(3.9,23,2,11877,0)="""DATA"",396.18,216,3,103,0)"
^XMB(3.9,23,2,11878,0)="M/+6?Y@(9;J!L!EK""(L/'LP37,SQ+6,P.*_WK,XFSGL(L2_L:=-_DW0IYM^""]"
^XMB(3.9,23,2,11879,0)="""DATA"",396.18,216,3,104,0)"
^XMB(3.9,23,2,11880,0)="M6Y6N&*9Q=1D&`/""?E44Q?<]X8)@/#;_.-;2$MTA/_M-]D_]4]Z""P6ABMA/?8"
^XMB(3.9,23,2,11881,0)="""DATA"",396.18,216,3,105,0)"
^XMB(3.9,23,2,11882,0)="M""MB%88BO)^*Q-1PQ^._GEG<=5-*'W\:ORDU&J,KEVQJBD7^!-7*#*$?6QWZB"
^XMB(3.9,23,2,11883,0)="""DATA"",396.18,216,3,106,0)"
^XMB(3.9,23,2,11884,0)="MI[\XKR'%*%W1_#M_OX/IKA.Z]_J-'.DSSB$\[+BA_TRXQI@17TU?#B1]B9)T"
^XMB(3.9,23,2,11885,0)="""DATA"",396.18,216,3,107,0)"
^XMB(3.9,23,2,11886,0)="MJ:<CVF-?E5RAM=RO1/B%H+?@#U$^LO8X@9V('`CEZ5.E5,-/""?QW(/^G@TBH"
^XMB(3.9,23,2,11887,0)="""DATA"",396.18,216,3,108,0)"
^XMB(3.9,23,2,11888,0)="M6(Q75F@N6U[W<,OK+F[)5[']5#@]P_<!7.JR\:S=$TA<`=?VKDG[LJVX.C*\"
^XMB(3.9,23,2,11889,0)="""DATA"",396.18,216,3,109,0)"
^XMB(3.9,23,2,11890,0)="M2](#335`Q_\!V<""@KQ;C!1I388Z?&+_C'D^^[?/DCX.3F'<2G"")FYJY(GC[>"
^XMB(3.9,23,2,11891,0)="""DATA"",396.18,216,3,110,0)"
^XMB(3.9,23,2,11892,0)="M.$96\K5^]S)5Q_NW(9<V_-33+MTO,5GJ'V\ZV%`.&Y%L,[Z7&-,4J\1J;@K,"
^XMB(3.9,23,2,11893,0)="""DATA"",396.18,216,3,111,0)"
^XMB(3.9,23,2,11894,0)="M@)'G&""FHK=;H/A^7""8V7^A-PU9A]#OS""WD/NO$4>FD'F_T9O%_;+U*ZC,EJ9"
^XMB(3.9,23,2,11895,0)="""DATA"",396.18,216,3,112,0)"
^XMB(3.9,23,2,11896,0)="MX2%W':KF&+6Y/`@!E$#,FZQ!M>Z(""**J4""W+(/CA$!V*V0PBLWWO!>^LY/F1"
^XMB(3.9,23,2,11897,0)="""DATA"",396.18,216,3,113,0)"
^XMB(3.9,23,2,11898,0)="MV_(,WE87:`/P23+I%F]771@62_8U+)V[""Z.8JPIZ(!&Z.#6Y)FMZ!W5>[39G"
^XMB(3.9,23,2,11899,0)="""DATA"",396.18,216,3,114,0)"
^XMB(3.9,23,2,11900,0)="M3H0%NEEZ;C=#YE;)#9M;:LQSR]?HN:EA<QO*M\DQSXVDHO'<4C^1"")D<U?]D"
^XMB(3.9,23,2,11901,0)="""DATA"",396.18,216,3,115,0)"
^XMB(3.9,23,2,11902,0)="MP.32XYY<B3'G3X=,KE2.?7'I42=79B:W'"";6VK#)S8PVN6CFDNFT^/(@6X/L"
^XMB(3.9,23,2,11903,0)="""DATA"",396.18,216,3,116,0)"
^XMB(3.9,23,2,11904,0)="M?7648OG#J"":(>L.AEJ.QA=G1F(TP_>LHAP&.<]EF@7M=G7$2@P57R,?,M<[>"
^XMB(3.9,23,2,11905,0)="""DATA"",396.18,216,3,117,0)"
^XMB(3.9,23,2,11906,0)="M]T;P""CY'[R,6MG,O,.?'_GG*KP7G*4O4RJW%VK%+:Z;BHL/^X+#;OZE.J@K$"
^XMB(3.9,23,2,11907,0)="""DATA"",396.18,216,3,118,0)"
^XMB(3.9,23,2,11908,0)="MB_[1('FRCY<1)<']R-=K)R)LY`<[@#)SG%\F[/B-!,]UY@:8""+&7$]&.HOMZ"
^XMB(3.9,23,2,11909,0)="""DATA"",396.18,216,3,119,0)"
^XMB(3.9,23,2,11910,0)="MV><8T;Q&YM(4^B_!5LO9QV"";.1EUEYFM4AOMU.\+O<?M5.5<+6;UH_]D'C\1"
^XMB(3.9,23,2,11911,0)="""DATA"",396.18,216,3,120,0)"
^XMB(3.9,23,2,11912,0)="M%F\;.,TY%2@QCQGR\YBIKP;'`@5J2UQ\G(X%,HF0C'R5?D;CDP3T=X/#[K<_"
^XMB(3.9,23,2,11913,0)="""DATA"",396.18,216,3,121,0)"
^XMB(3.9,23,2,11914,0)="M""AGY%/^4GEC[?TPP#VE\0NC/R""^&9>2E;93WN(GS'A^Z]'R9/NA+/?#7X'4?"
^XMB(3.9,23,2,11915,0)="""DATA"",396.18,216,3,122,0)"
^XMB(3.9,23,2,11916,0)="MY*F!CTT</8/""/%O);U'[+>H1?T-3Z20,7<""S/B_T/4""S>Z[P7)#G<$@R!>=%"
^XMB(3.9,23,2,11917,0)="""DATA"",396.18,216,3,123,0)"
^XMB(3.9,23,2,11918,0)="MJ6S4%7O12UNCOASVD#R(?S/UX[A3RF\G!C?B./L2Y!<:V[OH#B6UZ]K>O:,A"
^XMB(3.9,23,2,11919,0)="""DATA"",396.18,216,3,124,0)"
^XMB(3.9,23,2,11920,0)="M%*HTA>0SA,#G.1W,*0*FM2<;5*.+80D6]H0O:+Z7Y)0CO+^BHVM$X*!MVJC:"
^XMB(3.9,23,2,11921,0)="""DATA"",396.18,216,3,125,0)"
^XMB(3.9,23,2,11922,0)="M&E\P<J""NNWM-R4;7'N#[EJN8K@U]?VL'3@(LH52W[JKH[%Y6%.CUO2?@&`""H"
^XMB(3.9,23,2,11923,0)="""DATA"",396.18,216,3,126,0)"
^XMB(3.9,23,2,11924,0)="M.H#&6WD@74'/2D-/_&NC)PO*Z)%IK1W9P>'#$GQGM>V6;""Q1UYE(8/'0M!X`"
^XMB(3.9,23,2,11925,0)="""DATA"",396.18,216,3,127,0)"
^XMB(3.9,23,2,11926,0)="MR_N""_`V))A:7O`*K5Z%[D':865^3Z!1[Q'0PX1$6]?\F!A]K5&HQ^T^Q+(WG"
^XMB(3.9,23,2,11927,0)="""DATA"",396.18,216,3,128,0)"
^XMB(3.9,23,2,11928,0)="MG8Y'GC^)+,YC`#_K""_EKO-KT6KP[[T]B!%`""F,\PM%-=Q6$5/0ZJ)2]<:P+E"
^XMB(3.9,23,2,11929,0)="""DATA"",396.18,216,3,129,0)"
^XMB(3.9,23,2,11930,0)="M`=4P@[QE.M9=%GKC[A,4BD*W?I%DDNHX5<3O`SN0)!&]$H%DD7K*(TY6#29Y"
^XMB(3.9,23,2,11931,0)="""DATA"",396.18,216,3,130,0)"
^XMB(3.9,23,2,11932,0)="M,H1D@6FA%]""L\VCFN[=S<$)L,,FHES5JA/ZTP&S=]CA;MUPV9AMTXU48UGN/"
^XMB(3.9,23,2,11933,0)="""DATA"",396.18,216,3,131,0)"
^XMB(3.9,23,2,11934,0)="M1+7</=2/*Y[&1VW'6""M2""S:9(>H^*?`@Q%NPN7NVYSNZ7<^AP;)-1?.:0'O-"
^XMB(3.9,23,2,11935,0)="""DATA"",396.18,216,3,132,0)"
^XMB(3.9,23,2,11936,0)="M4W"".PC$/-(6Y0YL<XTEQK40##-M=9^.==,_=AB&NJLEZQ]9B!LN13P;*C'YI"
^XMB(3.9,23,2,11937,0)="""DATA"",396.18,216,3,133,0)"
^XMB(3.9,23,2,11938,0)="M?2W&Z-G',T9P@PD]D>?1;7#@>LVIH&>'ZR$FEJB]&VL56@Y:B!QB7H],-V08"
^XMB(3.9,23,2,11939,0)="""DATA"",396.18,216,3,134,0)"
^XMB(3.9,23,2,11940,0)="M29FQLU;19EVE)9#Z.=\??(GK#^(=/9W=!FW@+88=4X4[?;A/4=C$0P0@43M#"
^XMB(3.9,23,2,11941,0)="""DATA"",396.18,216,3,135,0)"
^XMB(3.9,23,2,11942,0)="MUFJT8P[%48V9,EFHP]@<62HH!:>Y8[EV,ZX2S4;>_V89>;P?CB/>=?""S/@Z["
^XMB(3.9,23,2,11943,0)="""DATA"",396.18,216,3,136,0)"
^XMB(3.9,23,2,11944,0)="M*>^C?RWY]=AU5T]%1I)CUG:F[[$[M.4MQKR]CR[L&[(-5[5B*JAE57P'<CK$"
^XMB(3.9,23,2,11945,0)="""DATA"",396.18,216,3,137,0)"
^XMB(3.9,23,2,11946,0)="M[9)MWDD\]<7!GKY:*,<(+A9""2)+M2RL""R4J,X.),""$EB?/^()?D""CV0I>FQQ"
^XMB(3.9,23,2,11947,0)="""DATA"",396.18,216,3,138,0)"
^XMB(3.9,23,2,11948,0)="M-H0B4\L?AC%7B<%6(81BE8K9PBE68W`U&4*QQCRB9G%PQ%;-E:-S-453/-X3"
^XMB(3.9,23,2,11949,0)="""DATA"",396.18,216,3,139,0)"
^XMB(3.9,23,2,11950,0)="M""M,/(O,[G'!!9HLQV#H91C)'\S649""D&7\4PDDP[Z8#F%H]F(3ICTV$D""W3$"
^XMB(3.9,23,2,11951,0)="""DATA"",396.18,216,3,140,0)"
^XMB(3.9,23,2,11952,0)="M_\5$V**,$_%/A]&DNVX.H1EG8Y,)H\D\5JE+E,?;0HQMQDP8S3)#\[TPFOEJ"
^XMB(3.9,23,2,11953,0)="""DATA"",396.18,216,3,141,0)"
^XMB(3.9,23,2,11954,0)="M=)KS83299X^\%\;;?""T&;^?"":-(6Z/^YN]88.8[CO`]R[HX/\:V(I""4-2<NZ"
^XMB(3.9,23,2,11955,0)="""DATA"",396.18,216,3,142,0)"
^XMB(3.9,23,2,11956,0)="MD_=.N[-O)A9Y3Y$*23'DZ6'9BC2W.W<[XNS.>F;VJ!.41+(0""`'RPPZ""0'""@"
^XMB(3.9,23,2,11957,0)="""DATA"",396.18,216,3,143,0)"
^XMB(3.9,23,2,11958,0)="M*$[L.(X?"">`D!@+',)`$$!Q$"")`8R(\$490XD!$8]H_\R<-(NGJZ>[IW>F9G"
^XMB(3.9,23,2,11959,0)="""DATA"",396.18,216,3,144,0)"
^XMB(3.9,23,2,11960,0)="M3J];`H*X]^KJJJZNKNZJ^BJ@^;A,M,44.G1;XG-8XV_\[!R6.A0I<=,./3ST"
^XMB(3.9,23,2,11961,0)="""DATA"",396.18,216,3,145,0)"
^XMB(3.9,23,2,11962,0)="MPI3N!+XO,0OD&KK?=XK^APKQFLPG*FVCGC[=O*=E""8(-X?F1]3/\B=1O&RN4"
^XMB(3.9,23,2,11963,0)="""DATA"",396.18,216,3,146,0)"
^XMB(3.9,23,2,11964,0)="MUAD)N[3!""'F0I*!U7V'</LUQ6QPG;C\JX[8D//#^16:8W?Q+&>Z65!\G?F?C"
^XMB(3.9,23,2,11965,0)="""DATA"",396.18,216,3,147,0)"
^XMB(3.9,23,2,11966,0)="M;%=3\!`?C_$02Z7D)OID#$G:`::;'>E9E,HIS.6).)HEP=V/I:FE.!:.Q]'4"
^XMB(3.9,23,2,11967,0)="""DATA"",396.18,216,3,148,0)"
^XMB(3.9,23,2,11968,0)="M>-$&1ZY,ML5Z<MG>'4>SS,LVWK<H-E,(]ZXXHL)=:@311@KIWAE'M""I(]X]C"
^XMB(3.9,23,2,11969,0)="""DATA"",396.18,216,3,149,0)"
^XMB(3.9,23,2,11970,0)="MI%MO-I-+]TP<S9H@W5COHEA*(=W3<43K@G3CB1932/=4'-&&(-VWXG17JR27"
^XMB(3.9,23,2,11971,0)="""DATA"",396.18,216,3,150,0)"
^XMB(3.9,23,2,11972,0)="M[KUQ-)N""=-^*]=UJ*:3[D1BBY:(@W7BBU132O2<3%7LENV7!IVB&2J/OV'9I"
^XMB(3.9,23,2,11973,0)="""DATA"",396.18,216,3,151,0)"
^XMB(3.9,23,2,11974,0)="M=%0XGUJB'_CWJM/D;""NQ'/9#MT(\?Y<TKDK?SHN"":_PW,07V\VMMNVOV=$M="
^XMB(3.9,23,2,11975,0)="""DATA"",396.18,216,3,152,0)"
^XMB(3.9,23,2,11976,0)="M?E:'#_#3#S""""+^6*!--OQUP5B`K='PX6[_63$ESS.>-LQ%#$OGPA(XSUB*0N"
^XMB(3.9,23,2,11977,0)="""DATA"",396.18,216,3,153,0)"
^XMB(3.9,23,2,11978,0)="MT1\+DB%-U\,Y^Q%#-OC9724C/BU!HUF&Q+!>""P=9=+=E>H8;-6:3&S/_*MVG"
^XMB(3.9,23,2,11979,0)="""DATA"",396.18,216,3,154,0)"
^XMB(3.9,23,2,11980,0)="MMB0`?\EN!;W$(:'-0=Z34*<GW9BDT#SG80K?SPSORU.1^W+WR)R(B(0T""G'G"
^XMB(3.9,23,2,11981,0)="""DATA"",396.18,216,3,155,0)"
^XMB(3.9,23,2,11982,0)="M""^HLH?BL+.FWGK084+F""`5V5R>6>I3L;1ELY<AU];4&4JH.N<C[>:WS:8%-0"
^XMB(3.9,23,2,11983,0)="""DATA"",396.18,216,3,156,0)"
^XMB(3.9,23,2,11984,0)="MB=""\SG+SJJ7*&J23.[QB.EUQ1LK41<<Q-@9HTN]-?5_T*FC\*OQ\W""I4DZ;1"
^XMB(3.9,23,2,11985,0)="""DATA"",396.18,216,3,157,0)"
^XMB(3.9,23,2,11986,0)="M^U7J$U""BZJ<(AV\<@D)_E5XX]K&P98FCVQBS@K.$]6;D5?,07P&#_$>VXY@$"
^XMB(3.9,23,2,11987,0)="""DATA"",396.18,216,3,158,0)"
^XMB(3.9,23,2,11988,0)="MFBG3AH\%1CRP`.F>`/(QYVE)Z!!+K\:;[#R=O17.T]U2.TQJQ7*_B%DGB'FY"
^XMB(3.9,23,2,11989,0)="""DATA"",396.18,216,3,159,0)"
^XMB(3.9,23,2,11990,0)="MY\+'Z1%RG%[6K=[`@[*\'7>*DBY.N9.8ESO(,KXB22<[S=+)UI%=`9W!:0$<"
^XMB(3.9,23,2,11991,0)="""DATA"",396.18,216,3,160,0)"
^XMB(3.9,23,2,11992,0)="M:V>C3A5R3_DU_Q'T)Z%C1=VVNQ<V*>0$.X'YF2;\G&-J^=W@""4,K-\?`DL2D"
^XMB(3.9,23,2,11993,0)="""DATA"",396.18,216,3,161,0)"
^XMB(3.9,23,2,11994,0)="MJ))+9\[!O""X27O]I&S""&_GKD=OZ&5*0I?22""D7\MPV,_<%K,646R)7V_UG!<"
^XMB(3.9,23,2,11995,0)="""DATA"",396.18,216,3,162,0)"
^XMB(3.9,23,2,11996,0)="M]8KM&3MK4VHT.E+'[)P*9?,$F_)G8/8J3B=T/70ZFF[':`MX(_B'`1#%HFKV"
^XMB(3.9,23,2,11997,0)="""DATA"",396.18,216,3,163,0)"
^XMB(3.9,23,2,11998,0)="M`(_3WZY2XL2ZG<?$&Z%N90%QM32G^LEP7.Z;NN9?""]&!I440J/$$+E'050F!"
^XMB(3.9,23,2,11999,0)="""DATA"",396.18,216,3,164,0)"
^XMB(3.9,23,2,12000,0)="M>[4Y]2H`)B$6^KX;`6WG'7W3Z$'*)<VIBJ!3Y^D\3>@<S8:!BZZ7*2-!JN=Z"
^XMB(3.9,23,2,12001,0)="""DATA"",396.18,216,3,165,0)"
^XMB(3.9,23,2,12002,0)="M5'ZG&Y??J?8'O98'L,HC<(TT&C'!L\N_0'V?)R1IJ#^NS""%MPMD]6-!=TP>["
^XMB(3.9,23,2,12003,0)="""DATA"",396.18,216,3,166,0)"
^XMB(3.9,23,2,12004,0)="MG_8Z.!&U:R,1N1Z:$II<!PD'K;V)'""5``,'3@YYXKF0`C!*%E$+?0+\T(R>B"
^XMB(3.9,23,2,12005,0)="""DATA"",396.18,216,3,167,0)"
^XMB(3.9,23,2,12006,0)="M]_L&VA8P%C+]Z.*S#JVS,*#)`#?Q6]L`1\:%--8^VD]0P8ZSPKK@O_8M@R4F"
^XMB(3.9,23,2,12007,0)="""DATA"",396.18,216,3,168,0)"
^XMB(3.9,23,2,12008,0)="MZ8Z'-QR&Z<+?L[8H+0_R9T@1NSLW4G9-7G;?HN?)9EB#3E3G5`&`*,CUBL@."
^XMB(3.9,23,2,12009,0)="""DATA"",396.18,216,3,169,0)"
^XMB(3.9,23,2,12010,0)="M+O)#_RU=EM^3:.>9VISJ)RV!ECC2+*`((B6>""+UFY;\H(?+ANL""`*4T)B3AW"
^XMB(3.9,23,2,12011,0)="""DATA"",396.18,216,3,170,0)"
^XMB(3.9,23,2,12012,0)="M:1."";_GG[F[ZS++*X(TCS]U,BF>60_R15-0T\D1(4""1H]<#W;BTLPPD9#""UP"
^XMB(3.9,23,2,12013,0)="""DATA"",396.18,216,3,171,0)"
^XMB(3.9,23,2,12014,0)="M3Y'V_U,LGO@3R5ETG)Y%W;YE;V'4.++4'_QY-,Q6G4?OR1_,AH#,`FO:]KNV"
^XMB(3.9,23,2,12015,0)="""DATA"",396.18,216,3,172,0)"
^XMB(3.9,23,2,12016,0)="MVJW6H(\?(9""R4B`ZUX27#K316QVXF*O3V%3@\H,9V$7^SS%('N3'JR:Q4&""D"
^XMB(3.9,23,2,12017,0)="""DATA"",396.18,216,3,173,0)"
^XMB(3.9,23,2,12018,0)="MT!;#(,3P@[G@N3%L*T)SU_BY_RG=;O\GV6Z-1:@CI:4+9M>`PD3/QZZ&W'LH"
^XMB(3.9,23,2,12019,0)="""DATA"",396.18,216,3,174,0)"
^XMB(3.9,23,2,12020,0)="M\I-""^(6+#H9GT>""W1?XS=!9O2F917)50C@$03""X-9'IHI/Q+OH(^0^;Q&Y)Y"
^XMB(3.9,23,2,12021,0)="""DATA"",396.18,216,3,175,0)"
^XMB(3.9,23,2,12022,0)="MW+U$@?P`VHP4EAE,6T<QC8B)MH#0RCT5`_@5#)]@]+K`RC(9_@G)\+0L+M#*"
^XMB(3.9,23,2,12023,0)="""DATA"",396.18,216,3,176,0)"
^XMB(3.9,23,2,12024,0)="M!,,+H%@GAG.<@M$//N+""""1>,'1CDP[Q!!C4@C['Y9?_M^\70V_>)2*,\E;CN"
^XMB(3.9,23,2,12025,0)="""DATA"",396.18,216,3,177,0)"
^XMB(3.9,23,2,12026,0)="MZ*A8=P1TB3>47Q6!C5QV6W@RZ%9Y[)KAX;9!:$<.>OZ*($%Q:;<1$B-=?M!Q"
^XMB(3.9,23,2,12027,0)="""DATA"",396.18,216,3,178,0)"
^XMB(3.9,23,2,12028,0)="MR;<:#`X<;D&62""M@!Y-*MMYT""_GHIJ7AEMG!Z$?P-DX]?(-/G/D.=2MNAL<_"
^XMB(3.9,23,2,12029,0)="""DATA"",396.18,216,3,179,0)"
^XMB(3.9,23,2,12030,0)="M[INXUG:HD%1]=!/%9'+4E+XF\[!E&Y""N2$)R#4YF^0]3:J]*J-UU#;E?X+]M"
^XMB(3.9,23,2,12031,0)="""DATA"",396.18,216,3,180,0)"
^XMB(3.9,23,2,12032,0)="MH'.IAR\.J6AI!!><K,_S<;X3;=5,""YNF?:A4W9IA#5<2T"",Z_6VQ.]@O2PA^"
^XMB(3.9,23,2,12033,0)="""DATA"",396.18,216,3,181,0)"
^XMB(3.9,23,2,12034,0)="MB!+LNUNMCJFCVWA+1FGXU>Z$[-4.[V,A'?'`<`7O&583VZS44M:,N+2HB^A5"
^XMB(3.9,23,2,12035,0)="""DATA"",396.18,216,3,182,0)"
^XMB(3.9,23,2,12036,0)="M>_LH/""%,>*U8I-""G=)<2T)K\7X5JP&'R=7DJ*O=R?FSHY1Q;&XW7A/.$@L&\"
^XMB(3.9,23,2,12037,0)="""DATA"",396.18,216,3,183,0)"
^XMB(3.9,23,2,12038,0)="MA29'H;$]O+PSRY:Y8:*_PU""[R)=`ZMKFM@L<FLJ)R\/Z11=]1KDS^%E8)[;?"
^XMB(3.9,23,2,12039,0)="""DATA"",396.18,216,3,184,0)"
^XMB(3.9,23,2,12040,0)="M_3J7N/OUP>#9""OO-9=[\O)$)""4WCA#96\&N[T^RK,@>C$5C'O\R$H6B;U70["
^XMB(3.9,23,2,12041,0)="""DATA"",396.18,216,3,185,0)"
^XMB(3.9,23,2,12042,0)="MZR/<S@J.-09._\XVF\)'5XX.@2[`IFL*9I]YT%^0[;IJ.36^S<%+@`2*@TDE"
^XMB(3.9,23,2,12043,0)="""DATA"",396.18,216,3,186,0)"
^XMB(3.9,23,2,12044,0)="M=0M=V95]);BE:_@+5]FGP5=5\M7^*GQ5*I(O;T.?X'?IUX<OVQBK#@U&OY>)"
^XMB(3.9,23,2,12045,0)="""DATA"",396.18,216,3,187,0)"
^XMB(3.9,23,2,12046,0)="MTEK>YN?+V9#6WL.Q51TGK8W<IU6>XU^E^_1+F3`>0K,V5EER^2B.:_PY&[#\"
^XMB(3.9,23,2,12047,0)="""DATA"",396.18,216,3,188,0)"
^XMB(3.9,23,2,12048,0)="M1U*6QRU0%\$SCX69OY_J]1+3ZR7.&I?&B>6)*([YZTY0DR7EN#Y6V:[QMAGN"
^XMB(3.9,23,2,12049,0)="""DATA"",396.18,216,3,189,0)"
^XMB(3.9,23,2,12050,0)="MQ#SGKX8YYTQSK9D:%RU;%*WS3<.XH2CDWPD-_^LJ$V7ZH4(_5.F'&OU0IQ\:"
^XMB(3.9,23,2,12051,0)="""DATA"",396.18,216,3,190,0)"
^XMB(3.9,23,2,12052,0)="M]$.3?)A$)IQ^*K%/&OM49I\J[%.5?:JQ3W7VJ<$^,1H:HZ$Q&AJCH3$:&J.A"
^XMB(3.9,23,2,12053,0)="""DATA"",396.18,216,3,191,0)"
^XMB(3.9,23,2,12054,0)="M,1H:HZ$Q&AJCH3$:94:CS&B4&8TRHU%F-,J,1IG1*#,:94:CS&A4&(T*HU%A"
^XMB(3.9,23,2,12055,0)="""DATA"",396.18,216,3,192,0)"
^XMB(3.9,23,2,12056,0)="M-""J,1H71J#`:%4:CPFA4&(T*HU%E-*J,1I70R(Q22`$K>XOHX^=DKL(V,`0G"
^XMB(3.9,23,2,12057,0)="""DATA"",396.18,216,3,193,0)"
^XMB(3.9,23,2,12058,0)="M5P:6!8];RA3:1=XL_K@?N;CKL]0I4B:OX[N@;@7HV/$S%E^5MN*\F\I(]+Y="
^XMB(3.9,23,2,12059,0)="""DATA"",396.18,216,3,194,0)"
^XMB(3.9,23,2,12060,0)="M.\6[H;F1A*WK(;9NY]@JCY--S*7QR2L\M-U2*+QZ+R>$=$DJ=W$N.7G?L+94"
^XMB(3.9,23,2,12061,0)="""DATA"",396.18,216,3,195,0)"
^XMB(3.9,23,2,12062,0)="MJH6I>R7(UU#83-,AXWZ""VTR5\<L(V,>%7\I\CPO:U^^'+/+RY5LA\C(I0UNF"
^XMB(3.9,23,2,12063,0)="""DATA"",396.18,216,3,196,0)"
^XMB(3.9,23,2,12064,0)="M^?=GLSSKN4^%@RX'2=!ER=0W>K9K[H!.AF+_!Y)8]:_^^_`OT/?A&^'WX53]"
^XMB(3.9,23,2,12065,0)="""DATA"",396.18,216,3,197,0)"
^XMB(3.9,23,2,12066,0)="M'_C(@#1:2$L5[QGJ5S5+""1^-!,3*;@?>GSY(OS#$J""39E.#[)T?@H@3W""VE("
^XMB(3.9,23,2,12067,0)="""DATA"",396.18,216,3,198,0)"
^XMB(3.9,23,2,12068,0)="M/KW3H^FE;5H8TX^KQ""-^D1!""_A_9COQDNGY<7]MN/RYAKY#[ZSXLAY>HMSLM"
^XMB(3.9,23,2,12069,0)="""DATA"",396.18,216,3,199,0)"
^XMB(3.9,23,2,12070,0)="M22\Y?]5_#8.`&(Y$@4*1CG_P/MP-8<'@:%V;[JVS[[^AD+-<YZ_L#^:B^YL<"
^XMB(3.9,23,2,12071,0)="""DATA"",396.18,216,3,200,0)"
^XMB(3.9,23,2,12072,0)="MG6^W31*T;)$^H6?E+5/X=C@LSOOO,B`V__703WSPMZJAMSKTJ3$D64D0;Q_/"
^XMB(3.9,23,2,12073,0)="""DATA"",396.18,216,3,201,0)"
^XMB(3.9,23,2,12074,0)="M#+=\N9\FK)0DN/)+.VT9*,+S7CXZE/\M6;+A]`IHEU8MUG%<F*2QF#Z""*HX`"
^XMB(3.9,23,2,12075,0)="""DATA"",396.18,216,3,202,0)"
^XMB(3.9,23,2,12076,0)="M2Z3$TZH1\_)*EL]CRNF28!$BI2[/+U[@]%:>+$G!/O[`'_,""8>!'DEYHG\#Q"
^XMB(3.9,23,2,12077,0)="""DATA"",396.18,216,3,203,0)"
^XMB(3.9,23,2,12078,0)="M3#^!J-6QD3G!*VQZ_'J?)MM+A6?AT^""1(B5!KFG\IAJ5'L,BO*^(C5.FPJSG"
^XMB(3.9,23,2,12079,0)="""DATA"",396.18,216,3,204,0)"
^XMB(3.9,23,2,12080,0)="M2G,10Y3Y(0(P;MD8Y:@Q*KRTV!A<9\=`7)<N]C""\E""\EVC(:PL&P41CK&(&/"
^XMB(3.9,23,2,12081,0)="""DATA"",396.18,216,3,205,0)"
^XMB(3.9,23,2,12082,0)="MSROPP0M-Y#,""ZM$FVKE&`OE4!>9>BV.N$L5<36"".C7$F/,:$?WI%#23J*77:"
^XMB(3.9,23,2,12083,0)="""DATA"",396.18,216,3,206,0)"
^XMB(3.9,23,2,12084,0)="MII@UOI<-]+N@J([?/Z\_</I(J=P"")![9CM]3CY,54IV6W?--&9:2B>1)Y>H:"
^XMB(3.9,23,2,12085,0)="""DATA"",396.18,216,3,207,0)"
^XMB(3.9,23,2,12086,0)="M?1WZI"".Q(9GVC!9R(J""G$_(8""%`Q^A/(_'+LO@-Z""!D;^IIIF1[:?)NZ-?""C"
^XMB(3.9,23,2,12087,0)="""DATA"",396.18,216,3,208,0)"
^XMB(3.9,23,2,12088,0)="M+#CO$(@R4J-EWQ#8O1$C>BU*8DUA%]Z@;6ID9N3AOJ\H!>H<P8S15%GH+RH)"
^XMB(3.9,23,2,12089,0)="""DATA"",396.18,216,3,209,0)"
^XMB(3.9,23,2,12090,0)="MDD\#HT8VGY5E8&(P1]QH*DBSA"":375^771QW-%L^"".?T?$%=**B+!=7P6G,S"
^XMB(3.9,23,2,12091,0)="""DATA"",396.18,216,3,210,0)"
^XMB(3.9,23,2,12092,0)="M0#SDQ%<X)S[_#;IK;K)`_6>R8M;NL',N:;@JG(5-'MB65H/]KT1Z59;QS6U("
^XMB(3.9,23,2,12093,0)="""DATA"",396.18,216,3,211,0)"
^XMB(3.9,23,2,12094,0)="MX""G0+/3?8""CW8:><-36.S?S7J1COD""SA`T.-(Z&;*""P9]/IDG`\;'F9N)%DP"
^XMB(3.9,23,2,12095,0)="""DATA"",396.18,216,3,212,0)"
^XMB(3.9,23,2,12096,0)="M_&DMP`C?16;Q:8FT3RYC4C*1?I#G-\\+V7B_DQ&8^3.)/5]X#,XR06WP$<:L"
^XMB(3.9,23,2,12097,0)="""DATA"",396.18,216,3,213,0)"
^XMB(3.9,23,2,12098,0)="MB-GMZSZS(\4ZXJ""G>*Z^A)^,S@6]XYKA0BP764J<4,5,`+>`DZLDB$VM@?]5"
^XMB(3.9,23,2,12099,0)="""DATA"",396.18,216,3,214,0)"
^XMB(3.9,23,2,12100,0)="MB2<Q&\(6F:,U!46MU!@.8K]/:Q<7*K_]BJU>YY3:US17.2+[YC[HZKU,7F`B"
^XMB(3.9,23,2,12101,0)="""DATA"",396.18,216,3,215,0)"
^XMB(3.9,23,2,12102,0)="M[N""92$E5>4G=""$F*E<TA*UZ/C/OO`)$=GW?!#.""L9""08G'C3'H!B`JAGRX%$"
^XMB(3.9,23,2,12103,0)="""DATA"",396.18,216,3,216,0)"
^XMB(3.9,23,2,12104,0)="MY;;JZ4X;WG)<Y5CP37T-$M4-PW2[TB0""N4BSD2(E;M3G_5W7)#+]:R93*Y!I"
^XMB(3.9,23,2,12105,0)="""DATA"",396.18,216,3,217,0)"
^XMB(3.9,23,2,12106,0)="MO;&39;H77N20FP&]'J!;+Q48.DY:\&BA^VWH+_9XSV/-`!@_VU'NN&I#@B@X"
^XMB(3.9,23,2,12107,0)="""DATA"",396.18,216,3,218,0)"
^XMB(3.9,23,2,12108,0)="MQA;D01L8Z-+NN<JI);1$9@N)>`NY))9EWX0];O9<SQF07SD<4.O:O@E23G#?"
^XMB(3.9,23,2,12109,0)="""DATA"",396.18,216,3,219,0)"
^XMB(3.9,23,2,12110,0)="MTWM@<=L&DID#/Z.>N4L13M>QW0!'JJ4[SA;Z0CG""D77`#8)O'KK>-PSLAM&?"
^XMB(3.9,23,2,12111,0)="""DATA"",396.18,216,3,220,0)"
^XMB(3.9,23,2,12112,0)="M*8<O&#X@(?>]0X^:.+N>^]:!2TCFN.[`PR77RI''#/T&*!<X+:1[M7(FF#1B"
^XMB(3.9,23,2,12113,0)="""DATA"",396.18,216,3,221,0)"
^XMB(3.9,23,2,12114,0)="MS^AM>)VSI#\U-)4SNC![Z2\AL0B_=/01-""GP^LP>6@#$'A0A*X=7C!:6+_>]"
^XMB(3.9,23,2,12115,0)="""DATA"",396.18,216,3,222,0)"
^XMB(3.9,23,2,12116,0)="M75=ULZ?L7S+==30'/\\MA6;G)&5:U+^:%#+X\^O,R7D]PVEU<\R""Z#*OCMPY"
^XMB(3.9,23,2,12117,0)="""DATA"",396.18,216,3,223,0)"
^XMB(3.9,23,2,12118,0)="MGL^*;MW*-MRZO-3?*?*-IB?(\""<D[LZY`!>^D\2U&[Y??0""/O_$>0+W(/RO<"
^XMB(3.9,23,2,12119,0)="""DATA"",396.18,216,3,224,0)"
^XMB(3.9,23,2,12120,0)="M23R`*^$+5('KP!CX=7(NS^TX-H56XOG+-""/A>[($\B&/UAAR+8>93=UXD%:P"
^XMB(3.9,23,2,12121,0)="""DATA"",396.18,216,3,225,0)"
^XMB(3.9,23,2,12122,0)="M?$(0.8-&T0.'J!@->CHI@P%>[-@./Z'W9QGDM>N[+IM66YF\;*.IH[-(4:X;"
^XMB(3.9,23,2,12123,0)="""DATA"",396.18,216,3,226,0)"
^XMB(3.9,23,2,12124,0)="M:"",:RN15!WWH>6XF\BQ/)D5-`!F(%6,SE1BGT""_W^XB7\19D+JD@R7/5CT8+"
^XMB(3.9,23,2,12125,0)="""DATA"",396.18,216,3,227,0)"
^XMB(3.9,23,2,12126,0)="M,@;!72K(Y6>ADLLUQEN0^:2""%++Y7LK$:60UW<:^#L]48[ZQDR*^UVJ<>8P3"
^XMB(3.9,23,2,12127,0)="""DATA"",396.18,216,3,228,0)"
^XMB(3.9,23,2,12128,0)="M(W)NZJG$N/<:=NT\H9W*.(IR=U*-K/(V,EXE2UHJ6>Y9A4IB:^RM9-)FM329"
^XMB(3.9,23,2,12129,0)="""DATA"",396.18,216,3,229,0)"
^XMB(3.9,23,2,12130,0)="MY<<)1%ELI!+EY(IAM,=>D!-)=;+)6\D?Q,JQEDZ.""[K7&7LY)O8B&[R9C)=C"
^XMB(3.9,23,2,12131,0)="""DATA"",396.18,216,3,230,0)"
^XMB(3.9,23,2,12132,0)="M.C,YM02)$6,OR*FD@A0`S.(E62JE-)*V:1G>V(MR3U)1UGA7<H12EM,I)2(`"
^XMB(3.9,23,2,12133,0)="""DATA"",396.18,216,3,231,0)"
^XMB(3.9,23,2,12134,0)="MB$QC+LF]""7O&""I$/@DZ3.\_@+:@8ZY5R(C$F+7@;ZC':Y)-=/DDOS47V+G(?"
^XMB(3.9,23,2,12135,0)="""DATA"",396.18,216,3,232,0)"
^XMB(3.9,23,2,12136,0)="MYXK5QNF=:5\4NB9!C\E?]5&KC>$RV>,!LCE4!*I\$D)R0+^0H""M\6@K).4`"""
^XMB(3.9,23,2,12137,0)="""DATA"",396.18,216,3,233,0)"
^XMB(3.9,23,2,12138,0)="MIU1KP7I7:N.191EBL<P?^X_G*'(-:X3Z<Y3'1KU4'H_BER""I^\!04C>_;WZ="
^XMB(3.9,23,2,12139,0)="""DATA"",396.18,216,3,234,0)"
^XMB(3.9,23,2,12140,0)="M/E<^&2J)*#6T1C,I)&`F$P=G1<1K"";ER_\(>2#][Z\%934F3#VB:T3?]UPR%"
^XMB(3.9,23,2,12141,0)="""DATA"",396.18,216,3,235,0)"
^XMB(3.9,23,2,12142,0)="M;&`CG,QZ&TMFQ<@Y.PS&BN0AY:;Y'C'YK@0RY!E]CK2.70?\)'A^]@S7<]5I"
^XMB(3.9,23,2,12143,0)="""DATA"",396.18,216,3,236,0)"
^XMB(3.9,23,2,12144,0)="MW5H;H"".S`-%::+S973-[&)BCH$(8QQFLP0_GKZ^B_UU""_].M&[H%L#C]CNWV"
^XMB(3.9,23,2,12145,0)="""DATA"",396.18,216,3,237,0)"
^XMB(3.9,23,2,12146,0)="M.[J'Q%)0'UQ=)1D7([&%2.83F31-\7I!,NG--4!,0CO,WC!;-._&@TP//'7="
^XMB(3.9,23,2,12147,0)="""DATA"",396.18,216,3,238,0)"
^XMB(3.9,23,2,12148,0)="M%3)HIHVYC3DTOYYG/G5A_E'Z:9%]6F@5U`L+[OQ&05TW'$#4ZP$[B(?9=<.S"
^XMB(3.9,23,2,12149,0)="""DATA"",396.18,216,3,239,0)"
^XMB(3.9,23,2,12150,0)="M@7_#[""5@@!CBAS`#ZX2!1R6X4O]V@8,%FU57.P:7:06YB""9RHM7V<)-S/U,1"
^XMB(3.9,23,2,12151,0)="""DATA"",396.18,216,3,240,0)"
^XMB(3.9,23,2,12152,0)="M-SB'J,$:6A=55_OHKSRTA.KRQ7G$;.^YK:ZAFMWNH&?KKJMO8:GXW69U'T;*"
^XMB(3.9,23,2,12153,0)="""DATA"",396.18,216,3,241,0)"
^XMB(3.9,23,2,12154,0)="MZ>H8$^;:Q07T%S`B+""Z$HOT_6[-L3\5_BU,``1XWH(($IUZ[,J]^:H""6&^:V"
^XMB(3.9,23,2,12155,0)="""DATA"",396.18,216,3,242,0)"
^XMB(3.9,23,2,12156,0)="MB0O`T9=(F.1KH#A:7""1B?0D;NL]30W>W)'#RL4!>""]'R<@.5X""4W%T&^QJE;"
^XMB(3.9,23,2,12157,0)="""DATA"",396.18,216,3,243,0)"
^XMB(3.9,23,2,12158,0)="M_MN4_#4)^8LMNDG,KKZ!PY&""BA6HC@TLS]%=>]##Z4XZ@P%=7%7=EHY4*&(J"
^XMB(3.9,23,2,12159,0)="""DATA"",396.18,216,3,244,0)"
^XMB(3.9,23,2,12160,0)="M=7XJ?Y>)07X[U9Y3%TR[[VZ1]#-U^F;'Z*GZIFY:X$'-1)`@/N%]F,3;E,3+"
^XMB(3.9,23,2,12161,0)="""DATA"",396.18,216,3,245,0)"
^XMB(3.9,23,2,12162,0)="MC-L.);'O970""7WEX=7D8O^ZLRFOM!O@D&$BL;2/90QFWWX_54%O(#,!Q!_4D"
^XMB(3.9,23,2,12163,0)="""DATA"",396.18,216,3,246,0)"
^XMB(3.9,23,2,12164,0)="M&&+9XX;1/:S&&.$'PVH13+PY=3[0,5""E65`T7X&)TKH!2)QG""\AZ4$C.IL'2"
^XMB(3.9,23,2,12165,0)="""DATA"",396.18,216,3,247,0)"
^XMB(3.9,23,2,12166,0)="M!D@4V[MI(`&U_#[9:&.W!K!B&#C,M=$YU.8GL:);KL%/I*VNXV_UC`U?MQV<"
^XMB(3.9,23,2,12167,0)="""DATA"",396.18,216,3,248,0)"
^XMB(3.9,23,2,12168,0)="MR^+B[!FG@$D[R!Y;6P('<;N#[B""?.9/D7[H,9D2*&0BCLSGPHT>-AG-:<>8K"
^XMB(3.9,23,2,12169,0)="""DATA"",396.18,216,3,249,0)"
^XMB(3.9,23,2,12170,0)="M^A9:!AQ]HC+""6'4X""H5$043#TQ5XP68B0#ET\:A<9NBZV@=HI&DJSYE@UCZ,"
^XMB(3.9,23,2,12171,0)="""DATA"",396.18,216,3,250,0)"
^XMB(3.9,23,2,12172,0)="M%+>@Z/?9N""`Z^.$0!R[C<VYDZ41-$VK[UT*E!>\.T)K@+!5Y9ZE&-M(15EAP"
^XMB(3.9,23,2,12173,0)="""DATA"",396.18,216,3,251,0)"
^XMB(3.9,23,2,12174,0)="MYZU0ZK-'FO])LLCS;P@(:[E!V#TZ1-RC5=:Z::>A[Q)GXYB`OONFQ-GX[@I."
^XMB(3.9,23,2,12175,0)="""DATA"",396.18,216,3,252,0)"
^XMB(3.9,23,2,12176,0)="M;($<5EJ>8`30_-@[LENVA=T.@*+T(1K1;^,""(72T]BW2OM<MJ""YD^/*!?X@H"
^XMB(3.9,23,2,12177,0)="""DATA"",396.18,216,3,253,0)"
^XMB(3.9,23,2,12178,0)="MP$E5P*9F`&C1%N2X<.D`>"",C,MT^I*5CX\FD6B`;##;^)FP^$G;&)9861<SW"
^XMB(3.9,23,2,12179,0)="""DATA"",396.18,216,3,254,0)"
^XMB(3.9,23,2,12180,0)="M!QJ=GEVO\$*AB?N5\""DTM1@4:,B!ATE8\""U_7_XP!9Y]>N#A&C_K%;*4WV>W"
^XMB(3.9,23,2,12181,0)="""DATA"",396.18,216,3,255,0)"
^XMB(3.9,23,2,12182,0)="ME\]E.""SS\G@##U/\S;R0LOX?S/C\_JU@?/9*E;-&5.I\5C`^G>A""PT73<3KO"
^XMB(3.9,23,2,12183,0)="""DATA"",396.18,216,3,256,0)"
^XMB(3.9,23,2,12184,0)="M0J'A.[$]`3+<01$9CJ#0YA_QV3E,6U,SM7TC$X0>`QS2LWRN@U1,5;[FMAA3"
^XMB(3.9,23,2,12185,0)="""DATA"",396.18,216,3,257,0)"
^XMB(3.9,23,2,12186,0)="M?'-ET%TSL'=O]$W7;DL3JL6QZWR?O-Q^,G@O//CMUPRWCTP.]M28D1LYO@#["
^XMB(3.9,23,2,12187,0)="""DATA"",396.18,216,3,258,0)"
^XMB(3.9,23,2,12188,0)="MYY+AY\+#3Y+2RHAJH5J#'X=.\UQXG/V+G'F.*$B@AY[B,_W4>U`5&MD<HEKA"
^XMB(3.9,23,2,12189,0)="""DATA"",396.18,216,3,259,0)"
^XMB(3.9,23,2,12190,0)="M&3E'2*^%FT/4JXU1E?VA)Z%L2<EJ2K:L9""M*_@&UDDG:.8'""2-_`L]*(YOYV"
^XMB(3.9,23,2,12191,0)="""DATA"",396.18,216,3,260,0)"
^XMB(3.9,23,2,12192,0)="M9AAW""$VKEJXH_>0U@Z(?4[^=ZN8VP:'R<=*M""NI,828=B7AK([$>0G7RNQZT"
^XMB(3.9,23,2,12193,0)="""DATA"",396.18,216,3,261,0)"
^XMB(3.9,23,2,12194,0)="M[;:R:T4W'67/-6/=P:C@6YFX""=4EL)?Y_\K()E1+VI)E8MYO;:/,7H`D8*<#"
^XMB(3.9,23,2,12195,0)="""DATA"",396.18,216,3,262,0)"
^XMB(3.9,23,2,12196,0)="MB&VX$&Y3=Z!=/<;X1C=)Y-AL(#\>76IUK[.EW.[?]EHJ9*+V.[KE?S^RLQ0I"
^XMB(3.9,23,2,12197,0)="""DATA"",396.18,216,3,263,0)"
^XMB(3.9,23,2,12198,0)="M4?CS#/_ZD3O%6EE%UC#OVDX-<Y5$U+^8$?JF,/_B0]$ES+M3.QAE'J3F17IW"
^XMB(3.9,23,2,12199,0)="""DATA"",396.18,216,3,264,0)"
^XMB(3.9,23,2,12200,0)="M?I$YBRN!@U&MC`<J3\0BDD.IX>?*?C8[W(_IT+8KM:,/0J+TNX5S\)+L')R\"
^XMB(3.9,23,2,12201,0)="""DATA"",396.18,216,3,265,0)"
^XMB(3.9,23,2,12202,0)="MOH6<8+OK2NJLQ0.`V,WG\9B/$BZ>E\"")#A<@^02FW9F8O,R()K(""5,?!8<D%"
^XMB(3.9,23,2,12203,0)="""DATA"",396.18,216,3,266,0)"
^XMB(3.9,23,2,12204,0)="M[5GK]71=<*=H-GHZ4([$YIP65+XM0L<^*9EYM9)NYO,]VS&>-?5T,\\EGGF="
^XMB(3.9,23,2,12205,0)="""DATA"",396.18,216,3,267,0)"
^XMB(3.9,23,2,12206,0)="M%WEEN`"")FWBEL=T./FW<;0R.I-0=?!(R09R>@<""$(9-^NL/T0,!$7S=33C]Q"
^XMB(3.9,23,2,12207,0)="""DATA"",396.18,216,3,268,0)"
^XMB(3.9,23,2,12208,0)="M&R7:`>1MH1U1T'^:FW^MGDY['M('\)IEI)OY[L0S%S8L[<JZ(=NPQ91MJX=L"
^XMB(3.9,23,2,12209,0)="""DATA"",396.18,216,3,269,0)"
^XMB(3.9,23,2,12210,0)="M23H&%-D1I/$&S0CAQI[G)CMND'CRASWB8][$!]$?AMX/@E#ZGGG+4OW.;EP>"
^XMB(3.9,23,2,12211,0)="""DATA"",396.18,216,3,270,0)"
^XMB(3.9,23,2,12212,0)="MU(C3*.'6K/);,](P:L6:ELZD3U[6+;B,GQN^=B=0E+V^>/$?BIGO,6=LDZ]L"
^XMB(3.9,23,2,12213,0)="""DATA"",396.18,216,3,271,0)"
^XMB(3.9,23,2,12214,0)="M?I-Z,/_,W@V^GI'4+HMO0\3A>L)WEO<.)^=(`.79>_*H>Q]I<9#?GQ/&=D:?"
^XMB(3.9,23,2,12215,0)="""DATA"",396.18,216,3,272,0)"
^XMB(3.9,23,2,12216,0)="MU\E):,+T*1Y^7]*XY.%0*3+IH1!Q0130@W/W$]E^5/*4:'-5,,]ZCC[;(2YV"
^XMB(3.9,23,2,12217,0)="""DATA"",396.18,216,3,273,0)"
^XMB(3.9,23,2,12218,0)="M5T>TX(4=O].![`@TU[TN><4C'5K\0!/RW-W6P/+KW6^8[9ZQ17^AH.J.UX$8"
^XMB(3.9,23,2,12219,0)="""DATA"",396.18,216,3,274,0)"
^XMB(3.9,23,2,12220,0)="M)C([HR)P%(]FCR`35U+`R\0NSO1L:B^)8K?D^:LY%^DZQ1FR<JH]=3?7K(5<"
^XMB(3.9,23,2,12221,0)="""DATA"",396.18,216,3,275,0)"
^XMB(3.9,23,2,12222,0)="M9SI($9UMG=[Q'2JK@BZ=)$Q\.1.^#]1KE>UA;""MX$\V3?Q>48_C?176Z9_=F"
^XMB(3.9,23,2,12223,0)="""DATA"",396.18,216,3,276,0)"
^XMB(3.9,23,2,12224,0)="MYPLJ_+,PHTP\TKO1LV_VWE/,[(0K2QZ'_CXC;.)UR7G:T-)Y8T(?(;+AWUW3"
^XMB(3.9,23,2,12225,0)="""DATA"",396.18,216,3,277,0)"
^XMB(3.9,23,2,12226,0)="M&3YP*X))HFO\>FB-P?A7=[-3]+$.NFN/6=%DPGZ9)?Z>=G$8=O\4DT>E4DJV"
^XMB(3.9,23,2,12227,0)="""DATA"",396.18,216,3,278,0)"
^XMB(3.9,23,2,12228,0)="MO.F<NM`2T<>Q/0+N9979W?NY&97'##0WK(^BS:'</A_B%@RG-J2/8X(&'1GT"
^XMB(3.9,23,2,12229,0)="""DATA"",396.18,216,3,279,0)"
^XMB(3.9,23,2,12230,0)="M(`MM""+&Z!]@+P?E;(>BQ3^JV4+]_48"",^49,2RLD,;],J;4S<]-*]#7MN`!E"
^XMB(3.9,23,2,12231,0)="""DATA"",396.18,216,3,280,0)"
^XMB(3.9,23,2,12232,0)="MDI6X2T^O8%BV7@M;?MWST-2P<^3B=&DNOP;NMVI[@*,-_4``U&E""/^S+6D>-"
^XMB(3.9,23,2,12233,0)="""DATA"",396.18,216,3,281,0)"
^XMB(3.9,23,2,12234,0)="MBH>20R""WB:?Z1'37FZ,X@1O058*)CO)(R5L;&?R7B!R^(H%TJ?*-RCGVS)X["
^XMB(3.9,23,2,12235,0)="""DATA"",396.18,216,3,282,0)"
^XMB(3.9,23,2,12236,0)="M`!`#$XN(/IA3\B-S)\KD4O`<OA0<I6]]""W0"")R/?^B:WVW*<GB'^VG^,\#P9"
^XMB(3.9,23,2,12237,0)="""DATA"",396.18,216,3,283,0)"
^XMB(3.9,23,2,12238,0)="M3FUMUB)36R-RZOEH1K:J9&M*M@YAC7K<@SM%L/'7H$/F\U79@WNQE#K`$I'F"
^XMB(3.9,23,2,12239,0)="""DATA"",396.18,216,3,284,0)"
^XMB(3.9,23,2,12240,0)="MGTE8#]$@B28'!>U[,NPIUYHI'X:$]PGW'3_.R6=/1'M83`!@[J#*3;^4[EUH"
^XMB(3.9,23,2,12241,0)="""DATA"",396.18,216,3,285,0)"
^XMB(3.9,23,2,12242,0)="MR=0=IV/HV^\7DHR#,M\@_/EA^?,,I'L6559`#[8?T(JYF?#ZG/]->L__&E/H"
^XMB(3.9,23,2,12243,0)="""DATA"",396.18,216,3,286,0)"
^XMB(3.9,23,2,12244,0)="M'C?I>JH+R3'8905U`WJU.C1*YRKHO+$@(WA@W=A2D9<.B3#3KF=`@BFLT8PR"
^XMB(3.9,23,2,12245,0)="""DATA"",396.18,216,3,287,0)"
^XMB(3.9,23,2,12246,0)="MN6#9&#E/R3^HN\I1X6FU97?7T5U-4:Y`0R]=F7P4_0S_\O[+`[=E&6K+T;M]"
^XMB(3.9,23,2,12247,0)="""DATA"",396.18,216,3,288,0)"
^XMB(3.9,23,2,12248,0)="M5]F_K+O(QCD#$VK+E*D%&S*-`1WEP!68L+IFH7L+!@3:^QAF`8/=I+\036SC"
^XMB(3.9,23,2,12249,0)="""DATA"",396.18,216,3,289,0)"
^XMB(3.9,23,2,12250,0)="M0B17GPJG/BR]5;Y_TW73F?""%%7,#&JU0$5>AI&76C2J_NU^/92[=T_L4U8#W"
^XMB(3.9,23,2,12251,0)="""DATA"",396.18,216,3,290,0)"
^XMB(3.9,23,2,12252,0)="M@KW=,4YFF:^BN8_LG']@+V256\')W""]#-R$^9GXB*P#8?$?B9)XD3N:#NF6I"
^XMB(3.9,23,2,12253,0)="""DATA"",396.18,216,3,291,0)"
^XMB(3.9,23,2,12254,0)="M:&YM-.@.=3-I->%_9X1GN0D)NN?+@I])$PYPXS\;.30X!1Z?F*+#62""Q(1@#"
^XMB(3.9,23,2,12255,0)="""DATA"",396.18,216,3,292,0)"
^XMB(3.9,23,2,12256,0)="M8""=A3Q;43:*^!1^_""OTM_&L///49$L[8MCM*:TU_UG^3>""CFO6X>+1/$^5E;"
^XMB(3.9,23,2,12257,0)="""DATA"",396.18,216,3,293,0)"
^XMB(3.9,23,2,12258,0)="MMNFVON7.C/1)B7]V6>A4>3(7IN#>IZ[X*=0XLQA+:P.T8HUHA=E[9N!L%0@L"
^XMB(3.9,23,2,12259,0)="""DATA"",396.18,216,3,294,0)"
^XMB(3.9,23,2,12260,0)="MF#1E$B>87T<NB-[J%-2E`9)Z;]#U,R&O@CN-;#R2]7R[8^##)LJ/K0M]/2>H"
^XMB(3.9,23,2,12261,0)="""DATA"",396.18,216,3,295,0)"
^XMB(3.9,23,2,12262,0)="M(_O0:$=V=V)'=JA&JRXHU\=#'<XY1[;23)PQDL*1'9I/0]"",CP]'0OGI-%)W"
^XMB(3.9,23,2,12263,0)="""DATA"",396.18,216,3,296,0)"
^XMB(3.9,23,2,12264,0)="M+9'-*""[:0#.D#^#);!+A?).9TE\)(OH_==5VO5F[#PXRI(3_?WO7&B-7<I7["
^XMB(3.9,23,2,12265,0)="""DATA"",396.18,216,3,297,0)"
^XMB(3.9,23,2,12266,0)="M88_'X_=CS3[MN[->,\.VQ_V<[K:]`J_M9""WV,8QG=X4(2>[TW)EN^?9#?;MM"
^XMB(3.9,23,2,12267,0)="""DATA"",396.18,216,3,298,0)"
^XMB(3.9,23,2,12268,0)="M]TI!0+*15HI""6`1*0LCN$A$%)!X""!8($!%#(CR@@0`@A!8*$$L([A/`#*2A+"
^XMB(3.9,23,2,12269,0)="""DATA"",396.18,216,3,299,0)"
^XMB(3.9,23,2,12270,0)="MG:I3=4_UK=O==[JA9QQ&6JW=[JFJ4X]S3IUSZON\0()_C[D2.4U9#@LH;\$`"
^XMB(3.9,23,2,12271,0)="""DATA"",396.18,216,3,300,0)"
^XMB(3.9,23,2,12272,0)="MQ:W.]K""]G\.(WQNQ"";:)49MS\0FV6=1`>""?3)A;OG$],KLU\6FM3PH,N&JJ)"
^XMB(3.9,23,2,12273,0)="""DATA"",396.18,216,3,301,0)"
^XMB(3.9,23,2,12274,0)="MY>UYZ#!+FN@3:7)96Z&)-)G3-M)$FLS0[1ZUQ9$\NB)Z=&*UC@7(:L^2JW""T"
^XMB(3.9,23,2,12275,0)="""DATA"",396.18,216,3,302,0)"
^XMB(3.9,23,2,12276,0)="MQ,SIJX.LJ'\-VA.1874TL7!]/QRC<OF.*A4KFA=^X)JI,B3B56XT&7#;OQD?"
^XMB(3.9,23,2,12277,0)="""DATA"",396.18,216,3,303,0)"
^XMB(3.9,23,2,12278,0)="M*D.FL$UG>WL2C(J2443]\EAB^""J4QRX2B2+!P0'1H8QVZJ[U5Y'1X%`^<G!H"
^XMB(3.9,23,2,12279,0)="""DATA"",396.18,216,3,304,0)"
^XMB(3.9,23,2,12280,0)="M[S5``IR9><EQ;K'_W_<L>()N#XZ)RY%'-]GF&A2[RNAJ9N#PBI%IO\8?GF[Z"
^XMB(3.9,23,2,12281,0)="""DATA"",396.18,216,3,305,0)"
^XMB(3.9,23,2,12282,0)="M!@TO$YUS=?SAZ59TX/""6APUO;O+#TPWRP.&EAPWOT,2'E]5MNSMH>$/CIH='"
^XMB(3.9,23,2,12283,0)="""DATA"",396.18,216,3,306,0)"
^XMB(3.9,23,2,12284,0)="MCYN&SY?NO-T:=!A*D6DDMS,@C89[X'@*T4O+QPLL%W'O/S*""/<GNE,C4S*#)"
^XMB(3.9,23,2,12285,0)="""DATA"",396.18,216,3,307,0)"
^XMB(3.9,23,2,12286,0)="MUIVX0;.=R8?EZD,F?W82FZ%DXLT(CB^;SI>CCN_`Z.,;#3R(1O84=,1O!PIT"
^XMB(3.9,23,2,12287,0)="""DATA"",396.18,216,3,308,0)"
^XMB(3.9,23,2,12288,0)="MLKE<Q,WQZ-.VA]5/ZSQ1!?0\KE/I,3>JPBY]O;'KFXWRE*D\SPV4)YI?.^]7"
^XMB(3.9,23,2,12289,0)="""DATA"",396.18,216,3,309,0)"
^XMB(3.9,23,2,12290,0)="M<[7,M]AM^B3Q`5'*+*U(7)+)4W6U_K/8/8?4<M@4LRSCB?]#H>]G\43U@B'+"
^XMB(3.9,23,2,12291,0)="""DATA"",396.18,216,3,310,0)"
^XMB(3.9,23,2,12292,0)="M$QBRO$%`Z:<?JM1DP2KV<UR4QW%-/V,(5'X=Z<S6>:C*FG^JRXZZ1)&:A^0W"
^XMB(3.9,23,2,12293,0)="""DATA"",396.18,216,3,311,0)"
^XMB(3.9,23,2,12294,0)="M3PT[[&BY['+""T\423;_BVK6ZL]%'Z;71Y?CX'([<C]`M>(M+UAKPADBB--[<"
^XMB(3.9,23,2,12295,0)="""DATA"",396.18,216,3,312,0)"
^XMB(3.9,23,2,12296,0)="MG9KKPE?A<98/.""&!2>:O(>B&/Z`[/'.2@I?1+;O=D4CGBGQKW>'@_$Z'->5L"
^XMB(3.9,23,2,12297,0)="""DATA"",396.18,216,3,313,0)"
^XMB(3.9,23,2,12298,0)="M7)RW/""X?Q`BAPV%$8^42G;@7Y)75`.#Q`DZ<88QLTH`SHFUMV!W;:CM;G%AB"
^XMB(3.9,23,2,12299,0)="""DATA"",396.18,216,3,314,0)"
^XMB(3.9,23,2,12300,0)="MRY^X-OO5VU`%BN_W8)XXI=#0X97I\!HXO-N&X3TCA[?JW*XY=ZQK%+Z$#Y%_"
^XMB(3.9,23,2,12301,0)="""DATA"",396.18,216,3,315,0)"
^XMB(3.9,23,2,12302,0)="M#'%1N-UO`H!XI=NV1<!:$-O!VW`08<DXE@).U6&ZQX;QDFD-E&D#+XQ&'J6Q"
^XMB(3.9,23,2,12303,0)="""DATA"",396.18,216,3,316,0)"
^XMB(3.9,23,2,12304,0)="MPJ5I`XTAK&;F0""^6""?^E>%3^4X&B<&LB8`^4.P""E+FE)(4>IV^OW'C#6$=/B"
^XMB(3.9,23,2,12305,0)="""DATA"",396.18,216,3,317,0)"
^XMB(3.9,23,2,12306,0)="ME5#=?D)3MP2JQ]>WBZAOGW4`B,2UGF_5&CP!\5RSP^MSKG,]X[07=Y86QAKT"
^XMB(3.9,23,2,12307,0)="""DATA"",396.18,216,3,318,0)"
^XMB(3.9,23,2,12308,0)="MQ""K?6_\D4^?_;*A+^E6N&EE[ME5G/@)H0V`V$\`/FS4!:E*IM=DA]CIVH^(H"
^XMB(3.9,23,2,12309,0)="""DATA"",396.18,216,3,319,0)"
^XMB(3.9,23,2,12310,0)="MC@=%289\DTL<RLBU&UM=R-:P;\U7P(/F7(LBO=)U06_.JY[JS0VANB%YTL3)"
^XMB(3.9,23,2,12311,0)="""DATA"",396.18,216,3,320,0)"
^XMB(3.9,23,2,12312,0)="MQ>8\:YU3CP#QW-96FZGH,&8X;7&+1')YER.O3OVCF;47K7>)'S8!VDAM?ZSR"
^XMB(3.9,23,2,12313,0)="""DATA"",396.18,216,3,321,0)"
^XMB(3.9,23,2,12314,0)="M*_S'W&.)SO6/RKE.F1C""UFF7=>9G,=-P""_CSQNB^3+M7%""BSANX+#NT>D'/"""
^XMB(3.9,23,2,12315,0)="""DATA"",396.18,216,3,322,0)"
^XMB(3.9,23,2,12316,0)="MNAW::SE->_VD[/4+AE[7-VBO_$J.0MMB$`NN(F4OI""\4TMQ:(<'7XAA#S-(A"
^XMB(3.9,23,2,12317,0)="""DATA"",396.18,216,3,323,0)"
^XMB(3.9,23,2,12318,0)="M2OV:_#W#$-]=H4.TV:HXD-*T^T=J+4QT@'DZP#^-!;`N_0%^_Z8:X`W680,&"
^XMB(3.9,23,2,12319,0)="""DATA"",396.18,216,3,324,0)"
^XMB(3.9,23,2,12320,0)="M@P!%@A*MYGE=1R5GX9\$ER,[PW7PZ>&L=EU^@LRD('0]$VLXE%<-0UE;<7D9"
^XMB(3.9,23,2,12321,0)="""DATA"",396.18,216,3,325,0)"
^XMB(3.9,23,2,12322,0)="M(KR:<*Q>L\M!62INEV<UK2Y4M%A0SX):PF=2<ITM#J,%$&U;C=K+;-):U39K"
^XMB(3.9,23,2,12323,0)="""DATA"",396.18,216,3,326,0)"
^XMB(3.9,23,2,12324,0)="M*XP9EQZLQ#R.Z7<-.NRCUVL""*`:>%>""0ZBW780.42@4XGR1]KD:?""GL2_,':"
^XMB(3.9,23,2,12325,0)="""DATA"",396.18,216,3,327,0)"
^XMB(3.9,23,2,12326,0)="MIH:SQRF:9""-<VX&\`MR&M<455X\U1(!RE+HB'+S#09\0O#JY5R1\CP5`GQZ?"
^XMB(3.9,23,2,12327,0)="""DATA"",396.18,216,3,328,0)"
^XMB(3.9,23,2,12328,0)="MN!^`/?ZFL']S.+&750GR3]][CL!1$P\AOLJS:3FR""?_I.'H!+];@'0Z0W>VP"
^XMB(3.9,23,2,12329,0)="""DATA"",396.18,216,3,329,0)"
^XMB(3.9,23,2,12330,0)="M2Q<FZ1+WTY.2N!P\O`?6G#J_V'<AAF(JG\G3EN2[B`>#+>U=Z;I>2!LEVH9T"
^XMB(3.9,23,2,12331,0)="""DATA"",396.18,216,3,330,0)"
^XMB(3.9,23,2,12332,0)="MCI\/MG$4<%5J;81O9,?+W%R9-)?\LO23YX/MS8A:.;/+CPK.XZW\K6SEK*&5"
^XMB(3.9,23,2,12333,0)="""DATA"",396.18,216,3,331,0)"
^XMB(3.9,23,2,12334,0)="M%8`\],RM9.A8_BO67YQ!P%BP;H]MD<:6LT/(3`MH$A_DPS\B4:S?I[RC*VK\"
^XMB(3.9,23,2,12335,0)="""DATA"",396.18,216,3,332,0)"
^XMB(3.9,23,2,12336,0)="M'1S_,TUFFQ?8G@%J/=#I=_QZ1*X@69?<503M!XBIB]:""C?4Z^%6\4F>MGL/D"
^XMB(3.9,23,2,12337,0)="""DATA"",396.18,216,3,333,0)"
^XMB(3.9,23,2,12338,0)="M9\;3J7""2!PL@=7B;6-J^^'^,9QZ!-$M""@'TR-OK4O1WJ^`U3MP6??P=-78&>"
^XMB(3.9,23,2,12339,0)="""DATA"",396.18,216,3,334,0)"
^XMB(3.9,23,2,12340,0)="M&<5P_?;@F3G\E`L%N1QV*$Q!%?#R]II8B)^3S>T--A>_8&Z!JKCD9V4#9PR:"
^XMB(3.9,23,2,12341,0)="""DATA"",396.18,216,3,335,0)"
^XMB(3.9,23,2,12342,0)="M0'RR4PXO)CI^,I+DU-X5J`K\??G[ED'P&XU*U0DK4<-,<O+'Q$`:\='A\.:&"
^XMB(3.9,23,2,12343,0)="""DATA"",396.18,216,3,336,0)"
^XMB(3.9,23,2,12344,0)="MHM4`E#Q""I<,?B]24Y/#0_4KP24,Q4RCT@:[WM:09I9?""6\H4\YF^UY3PZP?]"
^XMB(3.9,23,2,12345,0)="""DATA"",396.18,216,3,337,0)"
^XMB(3.9,23,2,12346,0)="MEB3II&CJ/0.:*N67^_@K^YO*$'[PY)<""5HG*EQU8]&_,%N#L;?'6_T5>,'XM"
^XMB(3.9,23,2,12347,0)="""DATA"",396.18,216,3,338,0)"
^XMB(3.9,23,2,12348,0)="MUO>*=<]R-AWME6-RJH038)-F]H!Z#2?@""2TNS%$3N"";U^""O&+96/GD^[;&72"
^XMB(3.9,23,2,12349,0)="""DATA"",396.18,216,3,339,0)"
^XMB(3.9,23,2,12350,0)="M,PGX+\O^RZ5GYO)I<6'HRZKU#0M3OI^*C3*NH24&^Z..*[@S<9[6M<<7B07#"
^XMB(3.9,23,2,12351,0)="""DATA"",396.18,216,3,340,0)"
^XMB(3.9,23,2,12352,0)="M)L_EM2J@8%,HV\=C([25T\KW@VUEZ8'YG;`#LZ>8R^1&JY3'RHZ?T2]#""@XK"
^XMB(3.9,23,2,12353,0)="""DATA"",396.18,216,3,341,0)"
^XMB(3.9,23,2,12354,0)="M^?J]4""I_S!@Y0CWV(GWBGOP+0Z7\&;P`/><T6Z[M`0J,O-[S?]E9MR$LED^<"
^XMB(3.9,23,2,12355,0)="""DATA"",396.18,216,3,342,0)"
^XMB(3.9,23,2,12356,0)="MYW*MX!9Y3]#,/72-PCYWNNPL6`O.7;O2631')+!V3;3,#+'$'3=$%Q^^!E$$"
^XMB(3.9,23,2,12357,0)="""DATA"",396.18,216,3,343,0)"
^XMB(3.9,23,2,12358,0)="M[J#)/A;J]0L]]A/6>)DVK@)Y7S4TG@'\!(_'*#8X/#8%W[46:A"".X6XB<Z.V"
^XMB(3.9,23,2,12359,0)="""DATA"",396.18,216,3,344,0)"
^XMB(3.9,23,2,12360,0)="MG'98C^4,[;$@[?A*L$-\9%?Q@7)-S:&/_""5QSK\5ZP<U]0,VC\K9<2'.1H:N"
^XMB(3.9,23,2,12361,0)="""DATA"",396.18,216,3,345,0)"
^XMB(3.9,23,2,12362,0)="MIDAIN""'>9;Y(9?A6$&W>[_32=5A:/F.J:YNS4_-=S2D7_)%L;*2L>CUE#1B."
^XMB(3.9,23,2,12363,0)="""DATA"",396.18,216,3,346,0)"
^XMB(3.9,23,2,12364,0)="M&74.JXD^)F;AY8!W%%[`OR^J=X03_C>BJP?B_8ECGUREF,WZ(@Q""ES+Z$7B@"
^XMB(3.9,23,2,12365,0)="""DATA"",396.18,216,3,347,0)"
^XMB(3.9,23,2,12366,0)="MSO(#=0ZG^$TUQ4\HTQ05#>[^ET05!1Z^NNW6MH""ZP:\U2(:5&""BT$!-Q$Z4("
^XMB(3.9,23,2,12367,0)="""DATA"",396.18,216,3,348,0)"
^XMB(3.9,23,2,12368,0)="MSU%M@(""GR44514SY@R^7=@&V0-RP#[+T#""CNB<7@`XYB*5,<S*@N`\&BK2\&"
^XMB(3.9,23,2,12369,0)="""DATA"",396.18,216,3,349,0)"
^XMB(3.9,23,2,12370,0)="MVSKKMY5;WAV0(('YH@9BT+$IELHYP['98]IFVAI<C0?F+>TW6BCL$EC-,)\)"
^XMB(3.9,23,2,12371,0)="""DATA"",396.18,216,3,350,0)"
^XMB(3.9,23,2,12372,0)="M[<9E+7^Z3R62W[P77*;CQI0$*O</Q33(\B\;?*9'T6=ZNNFU(&Y<>UF\%X-7"
^XMB(3.9,23,2,12373,0)="""DATA"",396.18,216,3,351,0)"
^XMB(3.9,23,2,12374,0)="M8L(JCRG=-R;K-<E%O4""9(/P7[@0-6TK$_0^WV8\WK36:I8V^&Z?K@""&M5`2/"
^XMB(3.9,23,2,12375,0)="""DATA"",396.18,216,3,352,0)"
^XMB(3.9,23,2,12376,0)="MX""(SSCUF=OD[0F@=PEZ0F>&*GN?7($5SMU8'&PZ&/*3;/.DV^6HL'#+UP57'"
^XMB(3.9,23,2,12377,0)="""DATA"",396.18,216,3,353,0)"
^XMB(3.9,23,2,12378,0)="M]L2J=!#H#7TF<\L2U%L(=`H%^H0A)^7!BT+'KE0MSH*8LC:AX`@#>D*>6F,3"
^XMB(3.9,23,2,12379,0)="""DATA"",396.18,216,3,354,0)"
^XMB(3.9,23,2,12380,0)="MD/[$DTM1MS./1FV>9\3)%WC^4?P:3$RKZU5%6DJ@<XLBJB&^DC2%8EJ^*75["
^XMB(3.9,23,2,12381,0)="""DATA"",396.18,216,3,355,0)"
^XMB(3.9,23,2,12382,0)="MTK`<)03VYA`@;-Q5?1<+WU/,%*""!JZJ=,-AQ/#>IN/[$>I*XX^;L&CX'_NN8"
^XMB(3.9,23,2,12383,0)="""DATA"",396.18,216,3,356,0)"
^XMB(3.9,23,2,12384,0)="M9L\2YV7']X<B.<]N!\E9/NKZHNBO%?#^SH5Z?S-1O3^ZR1531#EH]'/I4G$P"
^XMB(3.9,23,2,12385,0)="""DATA"",396.18,216,3,357,0)"
^XMB(3.9,23,2,12386,0)="M(:%V2NN#6BIG=X'I,ODU$N9=[/V/R+W_1CSPR#^3*RSO#HPI<W0VI^W`S\7"""
^XMB(3.9,23,2,12387,0)="""DATA"",396.18,216,3,358,0)"
^XMB(3.9,23,2,12388,0)="M=^#X8.(2[EK,:C(>F-5UW[O.9W8Q@BO""8B9_)*[1T!H07.6U9'0.&'.'>:W#"
^XMB(3.9,23,2,12389,0)="""DATA"",396.18,216,3,359,0)"
^XMB(3.9,23,2,12390,0)="M6U$Z3&ZS+@!3*Q\0SDT*%S.C0F''[@6_[H0I,X*&\4D-F.PS`S`C""(CC6MON"
^XMB(3.9,23,2,12391,0)="""DATA"",396.18,216,3,360,0)"
^XMB(3.9,23,2,12392,0)="MUNT%;W'Z_AP5B0*V)!X.8.?XIOYQ"""":EE"".GHDHRR,?%NSB-))CY8.`%M<55"
^XMB(3.9,23,2,12393,0)="""DATA"",396.18,216,3,361,0)"
^XMB(3.9,23,2,12394,0)="MSE<""ZFV^S\!.<Z]%9G^2)4]BU9[`59M3)_""78[X^74[O/O8GJFW0,_NJAK!*"
^XMB(3.9,23,2,12395,0)="""DATA"",396.18,216,3,362,0)"
^XMB(3.9,23,2,12396,0)="M+LPUJFQ0@\Q4W&=J]:FNZ4ECR#E#LB6)P_W4-K[^F%M9?7[E^NK:C>LW=UC0"
^XMB(3.9,23,2,12397,0)="""DATA"",396.18,216,3,363,0)"
^XMB(3.9,23,2,12398,0)="M'%7@P[0X/'')4$+$%AE*_9[,C,U-/:G,N.1,$V/_OG`P[Z/B$*XY=SM/<D4>"
^XMB(3.9,23,2,12399,0)="""DATA"",396.18,216,3,364,0)"
^XMB(3.9,23,2,12400,0)="MOCMQ09^G/`#)=VZC5GX'F\+[C)=$]`(^J(<XGC!4QW\/&D-R5Y2/86[*VG`T"
^XMB(3.9,23,2,12401,0)="""DATA"",396.18,216,3,365,0)"
^XMB(3.9,23,2,12402,0)="ME%/<[-**'*)6!&LIXG$=+G*$:UITG8YE%Z?Y?#Z""\_F(VDI?)SH]F]WEC'YI"
^XMB(3.9,23,2,12403,0)="""DATA"",396.18,216,3,366,0)"
^XMB(3.9,23,2,12404,0)="MPH*LGIC<8W2BITSN%M;$_+I&)DI*+4C.`T_-%;?2K#9=ZP7/N7!EO;L3,,>H"
^XMB(3.9,23,2,12405,0)="""DATA"",396.18,216,3,367,0)"
^XMB(3.9,23,2,12406,0)="M0$4*>W0&Y7G-X#^>5G#Z-DK$9!&,T>P/89R:,N_^%7%-_;?_34Y-)+U#6<ZC"
^XMB(3.9,23,2,12407,0)="""DATA"",396.18,216,3,368,0)"
^XMB(3.9,23,2,12408,0)="M+/^AO*K?\CDUE[/+N^@$'EEC'ZT[&_`::;W9O(7)._W##(7""2:#P_^Z39<2/"
^XMB(3.9,23,2,12409,0)="""DATA"",396.18,216,3,369,0)"
^XMB(3.9,23,2,12410,0)="ML.\/E/F0^@(7>S\3N\.-Z&'Y#_)8'90?&':A:@7GP!?GN]B?V5]6[""TG1J@]"
^XMB(3.9,23,2,12411,0)="""DATA"",396.18,216,3,370,0)"
^XMB(3.9,23,2,12412,0)="M2&QN'YJ1V-P:SDWS[AFCL.J?41.)\RC#/?^@Q'XM?NKI9OME-=-+[!I7N<56"
^XMB(3.9,23,2,12413,0)="""DATA"",396.18,216,3,371,0)"
^XMB(3.9,23,2,12414,0)="M8_\)F&__\U6HWTU^*'Y*_UA]?>\5R%GNF[5=MOW8""LY=Z7::XGNSFBZ;6?>@"
^XMB(3.9,23,2,12415,0)="""DATA"",396.18,216,3,372,0)"
^XMB(3.9,23,2,12416,0)="M?&F:FHO""G!W18<[R9+J2?R[GZU_E>4]^-C;-@2>,]2L:HHUD;OP30^:_3*[K"
^XMB(3.9,23,2,12417,0)="""DATA"",396.18,216,3,373,0)"
^XMB(3.9,23,2,12418,0)="MXCXKX\B<CR2E@_T!@Z#`I?8TTI&14N59R@@B:]\[<DB/*5._G(N&)'J2B(`%"
^XMB(3.9,23,2,12419,0)="""DATA"",396.18,216,3,374,0)"
^XMB(3.9,23,2,12420,0)="M""_6Q2;"",$N2H!,_TPX2?]B7(E""?.C)`8<8P9.D:)\?GI6`#-N%A8C@;K<(ZR"
^XMB(3.9,23,2,12421,0)="""DATA"",396.18,216,3,375,0)"
^XMB(3.9,23,2,12422,0)="M<P0S=Y@;BHSM8/1!LZ0<5\)3)JX8`GRK#L`Q-'9R),,H8(X*^`/#!1P]@FGL"
^XMB(3.9,23,2,12423,0)="""DATA"",396.18,216,3,376,0)"
^XMB(3.9,23,2,12424,0)="M+D^[ZT3I;F]$@BTC$(U&!N07A_V=VI7SQ,N(AFRV1'8E<;(N<`\K)?!706NU"
^XMB(3.9,23,2,12425,0)="""DATA"",396.18,216,3,377,0)"
^XMB(3.9,23,2,12426,0)="M'<^AQ3,C$K099S-#B\7?B$69SF%U3.%6J$2-=BY@A%[WL3;/K4A(@ZL^%L0-"
^XMB(3.9,23,2,12427,0)="""DATA"",396.18,216,3,378,0)"
^XMB(3.9,23,2,12428,0)="M'PMBO<??9AL(IK5T+I[!&=[AI>A(`LCCC0V\<QM(`GG2@*)CC08ED*'H]!+O"
^XMB(3.9,23,2,12429,0)="""DATA"",396.18,216,3,379,0)"
^XMB(3.9,23,2,12430,0)="MDK#[G/9?LFD@&Q8@@.\&K:*G6)>IM""\.D/98/T""&-T'?/KH/LQV=IN']W!D@"
^XMB(3.9,23,2,12431,0)="""DATA"",396.18,216,3,380,0)"
^XMB(3.9,23,2,12432,0)="MZTD3VL8TQ4UN:VW35-YC`^0].$$(G/%\ZM&573^/(19%?%.HN[=0VF_'_#L*"
^XMB(3.9,23,2,12433,0)="""DATA"",396.18,216,3,381,0)"
^XMB(3.9,23,2,12434,0)="M+6,SPM+B_CB@5W3\O>%5VA\O7*VVFXU:I8^#3Q0+.YY/1F8]E2)_N9JR*OB+"
^XMB(3.9,23,2,12435,0)="""DATA"",396.18,216,3,382,0)"
^XMB(3.9,23,2,12436,0)="M=H4#0JE_2UDVN^M8M7J]V]`^KK)+-_Q2W>Y`Y7/*VFAWM\[7&AO=""E/-Y(MB"
^XMB(3.9,23,2,12437,0)="""DATA"",396.18,216,3,383,0)"
^XMB(3.9,23,2,12438,0)="M*++LL])+64ZGL@0,#!W+N8L#6Z^Y@/T-I;LUCUM,;W$8NKA4[&)BUF5B^J]B"
^XMB(3.9,23,2,12439,0)="""DATA"",396.18,216,3,384,0)"
^XMB(3.9,23,2,12440,0)="M01RB]R]<K;7;55ZBK2:CHC["".G=Q46BU:SS2""6__X?_J:RG\(Q01MZHPKU!)"
^XMB(3.9,23,2,12441,0)="""DATA"",396.18,216,3,385,0)"
^XMB(3.9,23,2,12442,0)="M5'&==I,_B`=P,':1Q%F#NJD^R1>',]SDZ'4'^0V37XL%$U\73(CVM""Q<1_A:"
^XMB(3.9,23,2,12443,0)="""DATA"",396.18,216,3,386,0)"
^XMB(3.9,23,2,12444,0)="MC*ZC]('ER<#\T@K3R(X'""9W&U1@%VOD7!G5^GSP`/``7['];U.VR_EST?RD^"
^XMB(3.9,23,2,12445,0)="""DATA"",396.18,216,3,387,0)"
^XMB(3.9,23,2,12446,0)="MH/_[_7T&.^!9M?:C.Z)F]GCM'GQPP`B.""LE-/<>VU;.&""WEI>,]K;:9:V=VU"
^XMB(3.9,23,2,12447,0)="""DATA"",396.18,216,3,388,0)"
^XMB(3.9,23,2,12448,0)="MT1G=""0CW%K$FXS]%B<2WL?MO&/7G'J/SE:'AIH/;I%$-1OPI0:W*O2NEG&S$"
^XMB(3.9,23,2,12449,0)="""DATA"",396.18,216,3,389,0)"
^XMB(3.9,23,2,12450,0)="M%4Q?-E?8)?'&T%7(4)_]K7Z?/9&=;L!+[ML3VKY-PT^.^AIS`5_CK/\N>=6I"
^XMB(3.9,23,2,12451,0)="""DATA"",396.18,216,3,390,0)"
^XMB(3.9,23,2,12452,0)="M,.7L6<+'FJ97-=3;B`V-I1Y:J?8\CF8%%Z0($=6,(:*:4-,5""XNGWN.!4RU/"
^XMB(3.9,23,2,12453,0)="""DATA"",396.18,216,3,391,0)"
^XMB(3.9,23,2,12454,0)="M(DN'/J?BS*_$ISMNDW.$R$A,#_%!/X:#_EE#<L?2V/H,1,0A/>2)^R5C,>SZ"
^XMB(3.9,23,2,12455,0)="""DATA"",396.18,216,3,392,0)"
^XMB(3.9,23,2,12456,0)="M'NS@;%""SMN3^W&0>(^BKH5PR\N79F80FT/L,_3WB]\=].\T9_MZP""W::DK/*"
^XMB(3.9,23,2,12457,0)="""DATA"",396.18,216,3,393,0)"
^XMB(3.9,23,2,12458,0)="M4I6/QX)0?0<(1LSHIW9$3N(2C7K*>/?[#?&E4BG:,ZP'Z""HSG[31[0#I=E2>"
^XMB(3.9,23,2,12459,0)="""DATA"",396.18,216,3,394,0)"
^XMB(3.9,23,2,12460,0)="MZ7B8FX""[X1U\X%=0<SPW2B@I,9F90P#R3\>TJ7O5.'71Z.\>N.$1#@@.I]F`"
^XMB(3.9,23,2,12461,0)="""DATA"",396.18,216,3,395,0)"
^XMB(3.9,23,2,12462,0)="MFGTWVM0EPZ8.JS$.QZ//W3!_=@#S7E%3$'*^/J;FZ[(_7^5L).8]\83_H9M="
^XMB(3.9,23,2,12463,0)="""DATA"",396.18,216,3,396,0)"
^XMB(3.9,23,2,12464,0)="MID.`[1.>D:CIN^W4&M[,P9LMUVDTZP`7UHO.>;=W!,Z[`:*7-%62#;S#IZ*G"
^XMB(3.9,23,2,12465,0)="""DATA"",396.18,216,3,397,0)"
^XMB(3.9,23,2,12466,0)="MMR'ZT17;97=(RVGW.M6V4[=G9B7KP\S1FZT:7-G@I@B79SNZ]#,C2!_D8R[1"
^XMB(3.9,23,2,12467,0)="""DATA"",396.18,216,3,398,0)"
^XMB(3.9,23,2,12468,0)="MV_)[Y27J=67%_CM&I-XE==PCN$)[UP!G,H(+E/U.=H%,#WO2&A#N_O`;U*EG"
^XMB(3.9,23,2,12469,0)="""DATA"",396.18,216,3,399,0)"
^XMB(3.9,23,2,12470,0)="MV9U7('W!I#-7&F`2O9!6-7S>IW`[_KSAG=(/WQ`1&\3<XVW*-TOX\AYB#1S-"
^XMB(3.9,23,2,12471,0)="""DATA"",396.18,216,3,400,0)"
^XMB(3.9,23,2,12472,0)="MSZTUN%O1X>""BE2:$HP#G%-]D45*WM@.^SL41,S_R`KZ/'Y\?E#&`AWS0:_6`"
^XMB(3.9,23,2,12473,0)="""DATA"",396.18,216,3,401,0)"
^XMB(3.9,23,2,12474,0)="M9CD7+1]Y\26G;11.""('Q*H4ZR.V/&#RQ/],!:U%6SKR?]H99/`W<^4&<R_?&"
^XMB(3.9,23,2,12475,0)="""DATA"",396.18,216,3,402,0)"
^XMB(3.9,23,2,12476,0)="M@G5!QZ][S5:5G6ZVIB_:S*XYWKCQ#/03/AH;VOE)4XQMS,P&HDI+YH=!W1\*"
^XMB(3.9,23,2,12477,0)="""DATA"",396.18,216,3,403,0)"
^XMB(3.9,23,2,12478,0)="MB6%M*X""'89#D;PSO=ZP`7L#N%#3M@1GBY!\HL_,6-3NYW?$H:[C5V:]@1R)8"
^XMB(3.9,23,2,12479,0)="""DATA"",396.18,216,3,404,0)"
^XMB(3.9,23,2,12480,0)="MGMS_6QX=\A+W[+O$GOUNG)&\@47NJD0MF6*YNF;>Y%-KP87^#MSVOY@(Y""8."
^XMB(3.9,23,2,12481,0)="""DATA"",396.18,216,3,405,0)"
^XMB(3.9,23,2,12482,0)="M_CB[4F66.#DI2<]P<W8U!3#$<&\#1%L)<VOS%[)WJK5*U6K7O%O6IEWIP$MB"
^XMB(3.9,23,2,12483,0)="""DATA"",396.18,216,3,406,0)"
^XMB(3.9,23,2,12484,0)="M`;,1@)P6R8@[54?@YP(:+OVU#MN#5HO-A""/)%3RG?9MIVB6+>?!@9@3<KNQ^"
^XMB(3.9,23,2,12485,0)="""DATA"",396.18,216,3,407,0)"
^XMB(3.9,23,2,12486,0)="MO<=YL+L>3WJ`AB2M>=+2PK7^-F=:%8^\H07![&J[K.4;FU:78RZ`*!M.QVD#"
^XMB(3.9,23,2,12487,0)="""DATA"",396.18,216,3,408,0)"
^XMB(3.9,23,2,12488,0)="MQ'JX4+H\`I>X4[4[[""+6_W5`NY+?YX#3=D/0^`$*H[""S9%J<NTSTFA%R7%_/"
^XMB(3.9,23,2,12489,0)="""DATA"",396.18,216,3,409,0)"
^XMB(3.9,23,2,12490,0)="M+%G/Y""_%`@OJ5Z)]+2M6DR:.,""LQ,""VF^`8KIB2>+[6^Q`[KTVUN]80XS%2U"
^XMB(3.9,23,2,12491,0)="""DATA"",396.18,216,3,410,0)"
^XMB(3.9,23,2,12492,0)="M!=(V>!,""#-JKUEHRQ24S@O#B6F3Z<+%3EI\ZLAL]LA7Y-#>!OJ$M'""FY/>B4"
^XMB(3.9,23,2,12493,0)="""DATA"",396.18,216,3,411,0)"
^XMB(3.9,23,2,12494,0)="MA8;.LAH.L<25^06EU7+3+3DT)N27:21(!HT_:,AX^%I^1\>+0Q='RZO]H]S3"
^XMB(3.9,23,2,12495,0)="""DATA"",396.18,216,3,412,0)"
^XMB(3.9,23,2,12496,0)="MGU>V^5-^+<Y]Y`&(@KNZ.,W%FPV^<<>%F^4+=UR6#""IQ?L)_A;%<7NZCK=HE"
^XMB(3.9,23,2,12497,0)="""DATA"",396.18,216,3,413,0)"
^XMB(3.9,23,2,12498,0)="M*9J`S`7-1LK""H!^*&\I1B\7=)W-8T`QKJI)OXS&<Y""O27;H;/*4GL&QF%>S$"
^XMB(3.9,23,2,12499,0)="""DATA"",396.18,216,3,414,0)"
^XMB(3.9,23,2,12500,0)="MVX29&N,]?(%:]N3GY:G))`(H`^5B?I>@``6%U,S=*T$A'R-""[F8H!2SND_OH"
^XMB(3.9,23,2,12501,0)="""DATA"",396.18,216,3,415,0)"
^XMB(3.9,23,2,12502,0)="MCP+[R(_['Y9$,)X%OOLT5?Z^H33P4L6?[&<Z9S\9FLZ:O$D>2[*X6J;C^HMP"
^XMB(3.9,23,2,12503,0)="""DATA"",396.18,216,3,416,0)"
^XMB(3.9,23,2,12504,0)="M?]S#[?+<]7K+;?;@1A#!3(Y6`9RF?GU27F?5(!Z7:?],-B).G@4X>7:`AFA5"
^XMB(3.9,23,2,12505,0)="""DATA"",396.18,216,3,417,0)"
^XMB(3.9,23,2,12506,0)="MD$PX&Y$+TN'G?P!02P,$%``""``@`^50?-969D4<,5```W=P""`!$```!,:79E"
^XMB(3.9,23,2,12507,0)="""DATA"",396.18,216,3,418,0)"
^XMB(3.9,23,2,12508,0)="M<E\Q,3,N<&YL+F9R;>P]:V_;.+;?!YC_(.!^<+N;=D52SP'N721I.^VBG>0F"
^XMB(3.9,23,2,12509,0)="""DATA"",396.18,216,3,419,0)"
^XMB(3.9,23,2,12510,0)="MF2D6%XN%(C&QIK+DE>2TGE]_23VL!RF)E!S%GG2`W4:2;9T'SY/G'$:WOV,W"
^XMB(3.9,23,2,12511,0)="""DATA"",396.18,216,3,420,0)"
^XMB(3.9,23,2,12512,0)="M53XZMSBXV:[QQ=V[*%[]I-QD=W[\05$^XKM4^6_E%515>GD3K<F51?_\['OI"
^XMB(3.9,23,2,12513,0)="""DATA"",396.18,216,3,421,0)"
^XMB(3.9,23,2,12514,0)="MDEP@FUZ]Q_[]DGX2('IY[JQ3/PK)]>+3VZN?WRY^_`&'WH\_1+47TE=]>#/X"
^XMB(3.9,23,2,12515,0)="""DATA"",396.18,216,3,422,0)"
^XMB(3.9,23,2,12516,0)="M,J@UW@;ZW_;QPV]OK]IOH_?^?>F$.##)Z[(_:J^SJG>9]5>9&FR\2P/9X_=^"
^XMB(3.9,23,2,12517,0)="""DATA"",396.18,216,3,423,0)"
^XMB(3.9,23,2,12518,0)="M2*\6EQ>7OUXNZ)TS_(""##V&(8W+_]N'*\1/L90^BV,/Q=;H-,'V27/OA?8`S"
^XMB(3.9,23,2,12519,0)="""DATA"",396.18,216,3,424,0)"
^XMB(3.9,23,2,12520,0)="MB*,@HI]V@VL_>,`QO?<N""M/7YTLG3C!]P9NW[TY__7CS[_/WIU?7;V^J3^R^"
^XMB(3.9,23,2,12521,0)="""DATA"",396.18,216,3,425,0)"
^XMB(3.9,23,2,12522,0)="M>A8X[I?=_1V<KP#8W?S%6>&,""=?*M1,FRC6._;O%[G$)VO_]B]ZZ=&(<IO0!"
^XMB(3.9,23,2,12523,0)="""DATA"",396.18,216,3,426,0)"
^XMB(3.9,23,2,12524,0)="MN?7.""9(,U!OG]H*B0>YE7&D0-6,=TNI,W-$5ZE9^G=-6RR]*ZD)0W*AX:>0W"
^XMB(3.9,23,2,12525,0)="""DATA"",396.18,216,3,427,0)"
^XMB(3.9,23,2,12526,0)="MZMST""6U^4B[CZ#;`*^5ZC5W_SG<)#Y(TBK>+_`O#A.LF'4L\5+O=3;XV`>^2"
^XMB(3.9,23,2,12527,0)="""DATA"",396.18,216,3,428,0)"
^XMB(3.9,23,2,12528,0)="MLRCP_I4_XA,R6Y(\^@'+XA)0,_0Z`9%I-TD(5+-%0LB2\""^$>C@AH&]N5WZJ"
^XMB(3.9,23,2,12529,0)="""DATA"",396.18,216,3,429,0)"
^XMB(3.9,23,2,12530,0)="MI)'B>!Z!)8U]G-#+=(G)P]7*V='S,UFVGV.'OO,FWG3""?K9)TR@$%/;\SP;P"
^XMB(3.9,23,2,12531,0)="""DATA"",396.18,216,3,430,0)"
^XMB(3.9,23,2,12532,0)="M2&T"";ZE-X)'=AATRL)\'V(D+H&K+$.1W+L+SP'>_D!O?\O?_C(D(^FYV=P!H"
^XMB(3.9,23,2,12533,0)="""DATA"",396.18,216,3,431,0)"
^XMB(3.9,23,2,12534,0)="MNP-H$S8I;C2!-O46T`@P0.>$9J&&DZ&&@`\UM-!DJ,^#*,&/(D]@E#SU2E*#"
^XMB(3.9,23,2,12535,0)="""DATA"",396.18,216,3,432,0)"
^XMB(3.9,23,2,12536,0)="MKF@""7:_=.`J""L^@;))3=732(VUC%L$U9V%9B""!5*[WT4_U'\HA._OHD)?8CV"
^XMB(3.9,23,2,12537,0)="""DATA"",396.18,216,3,433,0)"
^XMB(3.9,23,2,12538,0)="MKXF4HOR&X[3ZR)43WE/4`=15WG/N3YQNTBC_2""=]BA_CJ&V]J75V*`.KO%%8"
^XMB(3.9,23,2,12539,0)="""DATA"",396.18,216,3,434,0)"
^XMB(3.9,23,2,12540,0)="M1:V\WFD>H):W6J:XM:Q*S7V+*>0>3AT_P-Y/B_*C(DNM;[%U+C>!!=>QY+H7"
^XMB(3.9,23,2,12541,0)="""DATA"",396.18,216,3,435,0)"
^XMB(3.9,23,2,12542,0)="M7;&""N+0T!6D)H-HFIF$B(6*6=Q1E<9.K;?PM)8`JZRA)?$+F$T+@Q(W]6YP]"
^XMB(3.9,23,2,12543,0)="""DATA"",396.18,216,3,436,0)"
^XMB(3.9,23,2,12544,0)="M=?W8W:R2U`E=HNF=T%/\T$]])U!6""^6OM5]S0O\.D\_1]R1*=)=]VR-.C)-@"
^XMB(3.9,23,2,12545,0)="""DATA"",396.18,216,3,437,0)"
^XMB(3.9,23,2,12546,0)="MA=#<#W_?Q%OZUQWYGZ/$^,''7\G;G96RCJ.'YJ_Y'B;?2''\0-ZTS`WUD3*<"
^XMB(3.9,23,2,12547,0)="""DATA"",396.18,216,3,438,0)"
^XMB(3.9,23,2,12548,0)="M:PK[UX'5L0Y0:>^ZA<HPQ63JC9-BRB7""+)P^)F7ADXB2I@J*$D0,""6TQ25J<"
^XMB(3.9,23,2,12549,0)="""DATA"",396.18,216,3,439,0)"
^XMB(3.9,23,2,12550,0)="M1QM"")B7QB6@\/AV?1B5IJ(N.J*62@,80TA+4[Q=$5<2*&ZU6!+RD)&*?@-A="
^XMB(3.9,23,2,12551,0)="""DATA"",396.18,216,3,440,0)"
^XMB(3.9,23,2,12552,0)="M4!DML""!DS0YDP2I-<I._FYC22TEC[*09:)GJ2HDZ(L""&GD\_^&R4DM9IZ/66"
^XMB(3.9,23,2,12553,0)="""DATA"",396.18,216,3,441,0)"
^XMB(3.9,23,2,12554,0)="M3H(60W(D*%)O2M/C,K2O""/TV=(B=\J8B9'0A9#3Q00:C(,20`:__=.K`,,1H"
^XMB(3.9,23,2,12555,0)="""DATA"",396.18,216,3,442,0)"
^XMB(3.9,23,2,12556,0)="M9L.1-(-_0IIU6G-H[HEJZ,]'-0UT4$U#+15O(G5T9'&%DS6UW%D*HU0U`YJ&"
^XMB(3.9,23,2,12557,0)="""DATA"",396.18,216,3,443,0)"
^XMB(3.9,23,2,12558,0)="M#_1;8@ZH5:+_#GEM%J,@H<IR&NX(7R8+@0I5=0<<FQ7@0_8)KR(:6-!_A^(*"
^XMB(3.9,23,2,12559,0)="""DATA"",396.18,216,3,444,0)"
^XMB(3.9,23,2,12560,0)="MI+/^)&0@,VP.9,""<W8FD#IA/""/`+_CJT`C_Z(4[(_9A$D`EY\J(6:RQ>#EO+"
^XMB(3.9,23,2,12561,0)="""DATA"",396.18,216,3,445,0)"
^XMB(3.9,23,2,12562,0)="M701-OYPD-*CV72?@\`+U+FT2R12)@N+/(?=41ZS_PJX5D\L1O5K(-,;SL'>-"
^XMB(3.9,23,2,12563,0)="""DATA"",396.18,216,3,446,0)"
^XMB(3.9,23,2,12564,0)="M`PI,""[D/*5YQY(3>[J+9=4HE8U&[0X+T>YHC]!]PL%6^1G'2>/QA18,\(DN-"
^XMB(3.9,23,2,12565,0)="""DATA"",396.18,216,3,447,0)"
^XMB(3.9,23,2,12566,0)="MFS3""6_EI%H!^_1N)""5<^^04BD?5/9>YAQ:1/FR#U=XA4IK[!!4V`""ZB;""XP;"
^XMB(3.9,23,2,12567,0)="""DATA"",396.18,216,3,448,0)"
^XMB(3.9,23,2,12568,0)="MR6%#%3CTLP%:C\>&7Z*P0>5/V""/+DFJW^MWK37Q/5VN#J#=_N[RIWWA#>$!B"
^XMB(3.9,23,2,12569,0)="""DATA"",396.18,216,3,449,0)"
^XMB(3.9,23,2,12570,0)="M;6>]#C@_<;%)U^0FY5/T;7N/&P_/+T\OZ]<TR;3$$0G:5]NIC-2'5!L`';JM"
^XMB(3.9,23,2,12571,0)="""DATA"",396.18,216,3,450,0)"
^XMB(3.9,23,2,12572,0)="M[99JH,U""C:-U=8-A(?G/_J[;XG*3JX\95@<OF&!1MQE#8QFLH=%Y:@U]9T:V"
^XMB(3.9,23,2,12573,0)="""DATA"",396.18,216,3,451,0)"
^XMB(3.9,23,2,12574,0)="M@=%K]?/T=7M;I<?.L/H-,/RH')F:#T4]GMWF&M6GQQH1L^EN@0V!?OHCV,6`"
^XMB(3.9,23,2,12575,0)="""DATA"",396.18,216,3,452,0)"
^XMB(3.9,23,2,12576,0)="M78I_#QSX$""9IO''3AN&LKQ0T&9WS:'4;$4-)E6WY]\""2&NWE&II>Z=MJ87Q>"
^XMB(3.9,23,2,12577,0)="""DATA"",396.18,216,3,453,0)"
^XMB(3.9,23,2,12578,0)="M^NF0K63W]_KM9RF1?*1_CJ/-FB)-L2XO!LQ,S=GOTVS(XH4CE?GF\G$7+G)V"
^XMB(3.9,23,2,12579,0)="""DATA"",396.18,216,3,454,0)"
^XMB(3.9,23,2,12580,0)="M?P&3J*M`5*M;!6M`=6>WVC18W>20MIFGV<09F%F>OXR;E!<K(E7+Y&7-YG?D"
^XMB(3.9,23,2,12581,0)="""DATA"",396.18,216,3,455,0)"
^XMB(3.9,23,2,12582,0)="M:G;TYN.B=>-BF4>&C-F)""]*U8V.,WHF,#M&Q(6-(2$QCW1TB,J:,R!P\-I:,"
^XMB(3.9,23,2,12583,0)="""DATA"",396.18,216,3,456,0)"
^XMB(3.9,23,2,12584,0)="MT!P\-K:,U!PZ-E""5$!MHZX>-#)`1FX/'!LJ(S<%C@V3$YN""QT62P04CC8%,E"
^XMB(3.9,23,2,12585,0)="""DATA"",396.18,216,3,457,0)"
^XMB(3.9,23,2,12586,0)="M_H:QH8&8$F4;JZO,JPPJI,;C<G[Y^=.5X_E1Y@UG%K1YBUUXC'[CJ#<;<!!#"
^XMB(3.9,23,2,12587,0)="""DATA"",396.18,216,3,458,0)"
^XMB(3.9,23,2,12588,0)="M==Z5L8%MF&H-_.ME]#6OCVUCH""C_V""2I?[?-W/]6?BD/""BX=KU8PRL14*8[O"
^XMB(3.9,23,2,12589,0)="""DATA"",396.18,216,3,459,0)"
^XMB(3.9,23,2,12590,0)="M<!R%?Z^]CT0CFU685""GW'AKV1AXD]O@GKF<YLV1>E2#@1Z."";#%'L$6S)[(%"
^XMB(3.9,23,2,12591,0)="""DATA"",396.18,216,3,460,0)"
^XMB(3.9,23,2,12592,0)="MS,*68D\^V""J;I%X""]E2L`4.LH=D1T-H7ZC&8XEH,`CX?X$(`?7;O2'AQ6<.+"
^XMB(3.9,23,2,12593,0)="""DATA"",396.18,216,3,461,0)"
^XMB(3.9,23,2,12594,0)="M""UCJOJ7>,F997E?^K?/@DT7Q]$*/)/EBC^++5+&WS&<I]IJ(V.N=8L^ZEI/E"
^XMB(3.9,23,2,12595,0)="""DATA"",396.18,216,3,462,0)"
^XMB(3.9,23,2,12596,0)="MWK(DY5Z76U^9VS]D5#1=1.Y!_>;0`C/F66`?5JM-&""6;];K8PTR>7@,8<AQ"""
^XMB(3.9,23,2,12597,0)="""DATA"",396.18,216,3,463,0)"
^XMB(3.9,23,2,12598,0)="M8)A#.M""$.(1T""<N/9N'014Q<6,\G'G3JNX5/VRS`>RH^V9)\0J,D::JF-JQG"
^XMB(3.9,23,2,12599,0)="""DATA"",396.18,216,3,464,0)"
^XMB(3.9,23,2,12600,0)="MJ:E-2>9HHX1HLO>L/4_O615RGSL-*2>K,=F0&K:D(;6$<#""Z<.!$_].#`%T2"
^XMB(3.9,23,2,12601,0)="""DATA"",396.18,216,3,465,0)"
^XMB(3.9,23,2,12602,0)="M!P`DQ40?$_E#;:(S8,UC:B[Q_39P4NSE+2@'D@4`DI$:&I6=T8V)`<$SU61("
^XMB(3.9,23,2,12603,0)="""DATA"",396.18,216,3,466,0)"
^XMB(3.9,23,2,12604,0)="M2`N8XID`J**I(8&T%A`*:[(,@&A<,QT+`\EB(6ORS7$9#9XVDW+(YLF8O?%Q"
^XMB(3.9,23,2,12605,0)="""DATA"",396.18,216,3,467,0)"
^XMB(3.9,23,2,12606,0)="M>@#*2S+<1""/33%/5EP&?I_HRA""3?EG#$]J""_I%.9DHER9(_+:?`6F9P?HS[!"
^XMB(3.9,23,2,12607,0)="""DATA"",396.18,216,3,468,0)"
^XMB(3.9,23,2,12608,0)="M*CL`)2`9*6LC<T[3_<QY5/.E$[IT3\YW""4'^V*YP<@"":0""B<R;*!HN',=$V@"
^XMB(3.9,23,2,12609,0)="""DATA"",396.18,216,3,469,0)"
^XMB(3.9,23,2,12610,0)="M:[*:0#)[KHW,G4W6!#IZEO8&2L8R&AS'G\F:0)_''S@-4__6CX@F.(""\,Y1,"
^XMB(3.9,23,2,12611,0)="""DATA"",396.18,216,3,470,0)"
^XMB(3.9,23,2,12612,0)="M!FAH1*`)$9C*&FLVUKQ:;M<X3G%X(#L#4)/DD#:&0P:<YDOK]O/4;;J0!94H"
^XMB(3.9,23,2,12613,0)="""DATA"",396.18,216,3,471,0)"
^XMB(3.9,23,2,12614,0)="M""D#U6^."":%76@`H%!%G!F6@J8#H6NBF+A:S#J8^*.J=+BO$\)<629(\QCCW3"
^XMB(3.9,23,2,12615,0)="""DATA"",396.18,216,3,472,0)"
^XMB(3.9,23,2,12616,0)="M38T^GZGQ<+8%[83I(1@:4T@-((F\P!Z4F2&I!I""LMVF.BCLGJP%#?Y9J`,GZ"
^XMB(3.9,23,2,12617,0)="""DATA"",396.18,216,3,473,0)"
^XMB(3.9,23,2,12618,0)="MF]8X]DQ6`X8V4\9V$^/#""`60T`9M5MLLF@V8+O^F[`XMDDP^:_:H:'.R_)O/"
^XMB(3.9,23,2,12619,0)="""DATA"",396.18,216,3,474,0)"
^XMB(3.9,23,2,12620,0)="MLY@.248SNCJ./5SY1S+\F<=-N^!7[1^`-AC,JM'>_ZPVH#X$H%<;:):P-C#X"
^XMB(3.9,23,2,12621,0)="""DATA"",396.18,216,3,475,0)"
^XMB(3.9,23,2,12622,0)="M3!$J?!1K1>]O1N^9%B`P+Z""S(;UW9D!C:D!?\_K@Y(`F)]GP;J`%&G:W0"",5"
^XMB(3.9,23,2,12623,0)="""DATA"",396.18,216,3,476,0)"
^XMB(3.9,23,2,12624,0)="MMH?N,1.94-4-7G6N</NVC>XF&K.G8]-DY)U;UVB)=]#D<\*WBE=,RL2.NU22"
^XMB(3.9,23,2,12625,0)="""DATA"",396.18,216,3,477,0)"
^XMB(3.9,23,2,12626,0)="M37R/ZZ-(Q_8$0AE4#)[F4J$\+GE#T)Z0L#29!EH.""K8I@4$QPX;.BG6Q1SRD"
^XMB(3.9,23,2,12627,0)="""DATA"",396.18,216,3,478,0)"
^XMB(3.9,23,2,12628,0)="M9`+\%U?%X!^:A=E=,&C8C`WA+2H=<=`P;9ZV,C4@HJWZYP1U3C\8TO3GRXC\"
^XMB(3.9,23,2,12629,0)="""DATA"",396.18,216,3,479,0)"
^XMB(3.9,23,2,12630,0)="MWC9)R8\V1_,HQ91\8FV<,%D'3J-)3*FVJO)O*B_2*'6""E_V?63LQ'13<^E1K"
^XMB(3.9,23,2,12631,0)="""DATA"",396.18,216,3,480,0)"
^XMB(3.9,23,2,12632,0)="M""%#?&*!2WU%36]""PK?,ZG_#:IW+ZW/CKVE`)/_2BKS7&1^%]UCHGN)`R@X>Z"
^XMB(3.9,23,2,12633,0)="""DATA"",396.18,216,3,481,0)"
^XMB(3.9,23,2,12634,0)="M#!Y'E""''1X0J3Q`TE;^""X'=[)VWO@!`?-0D^FKHH'_G.I*FA[WR4YB,4=%O*"
^XMB(3.9,23,2,12635,0)="""DATA"",396.18,216,3,482,0)"
^XMB(3.9,23,2,12636,0)="M$35Z][@:=HZDQLQX@[4!5#T#:P@SM:'IM,,#:VR1@34_1Y%7'ZGVT5_Y*6[<"
^XMB(3.9,23,2,12637,0)="""DATA"",396.18,216,3,483,0)"
^XMB(3.9,23,2,12638,0)="MNL)WL>/63C;9??$DF]^>D.#$(9PCE[>;5/GJ$U03_SZD9Z(0O4_^]K""""[^X("
^XMB(3.9,23,2,12639,0)="""DATA"",396.18,216,3,484,0)"
^XMB(3.9,23,2,12640,0)="M-1/!^3A(?#Z.I1KL?!QV9CF""O/DXUS70&FW:_+%'H*\?NWN4"":Q[B:7=YR4M"
^XMB(3.9,23,2,12641,0)="""DATA"",396.18,216,3,485,0)"
^XMB(3.9,23,2,12642,0)="MD$QW>3G9N'#!*DQ>-)K+>6?Z#.B(7+C*+X[HX]8%=M?9O75.Z0.$W+XA;AK'"
^XMB(3.9,23,2,12643,0)="""DATA"",396.18,216,3,486,0)"
^XMB(3.9,23,2,12644,0)="MA/-D.]YA>OH/-W;6)L?.K?F+=`*C'WBM.Q'!BGA%S;O7%""R\GX9O76`#OI']"
^XMB(3.9,23,2,12645,0)="""DATA"",396.18,216,3,487,0)"
^XMB(3.9,23,2,12646,0)="MV!<'9RJ67/I!D!P9""R5SVKK`SJ.F6_MGX3PIK7=.ZM]O\)'Q4'+;2-=&J%$="
^XMB(3.9,23,2,12647,0)="""DATA"",396.18,216,3,488,0)"
^XMB(3.9,23,2,12648,0)="M3N0@FD<(/SD!/9'NR#@H60:H&Z,4Z60>`GNF_>4HQM]\Y\B8*+L]8(Y2I9.9"
^XMB(3.9,23,2,12649,0)="""DATA"",396.18,216,3,489,0)"
^XMB(3.9,23,2,12650,0)="M"".=AXGOL>'2\\I$Q47(+3K=&Z%++FJI+Y]G@_<79)/C8I%!R&H%NCU*EDUFH"
^XMB(3.9,23,2,12651,0)="""DATA"",396.18,216,3,490,0)"
^XMB(3.9,23,2,12652,0)="MS=-:\5M$XFY""_B-CHF1KG*&.""0QY1==R8CA/4?RG3>(&F(3/?GAD;)0L:S3`"
^XMB(3.9,23,2,12653,0)="""DATA"",396.18,216,3,491,0)"
^XMB(3.9,23,2,12654,0)="M*(LX61;A7/4R3APOCTZA2A8_&G!<D#]=&N?Q:VZ6VSCR/<6Y)5[JR@G\='ML"
^XMB(3.9,23,2,12655,0)="""DATA"",396.18,216,3,492,0)"
^XMB(3.9,23,2,12656,0)="M(;]DVL9`XV+^Z1R=:83B:NWX,6&/&X4N/2NZ9U[/X3)5,I%C:*-RJ>I453N/"
^XMB(3.9,23,2,12657,0)="""DATA"",396.18,216,3,493,0)"
^XMB(3.9,23,2,12658,0)="MR7R3%R=G4U+C<KQH%!$6+^G!P\?&6\D$CZ&/S+-.Y2Z8J]4)KXXN.P`D<SR&"
^XMB(3.9,23,2,12659,0)="""DATA"",396.18,216,3,494,0)"
^XMB(3.9,23,2,12660,0)="M.3+3.EE$K9F:BE-WN5661/4J090<7=Y<,MMCC$D4`'MRI@#,-(4XB5;A\<FD"
^XMB(3.9,23,2,12661,0)="""DATA"",396.18,216,3,495,0)"
^XMB(3.9,23,2,12662,0)="M9+;'&)<LV`,;YY')ZR]^J%PYR?+8^""B9]#'5<;IU,A_A/)TS;[>8UA_2DZZ."
^XMB(3.9,23,2,12663,0)="""DATA"",396.18,216,3,496,0)"
^XMB(3.9,23,2,12664,0)="M3J]*IGY,,$*O0C1U/Q+-4Q1PC?T_VB6DQ\!$R9R!.2YG,)V-<)X(\W3C^;30"
^XMB(3.9,23,2,12665,0)="""DATA"",396.18,216,3,497,0)"
^XMB(3.9,23,2,12666,0)="MJ0@_CHZ=DGD\<US""8`_L!#.Q,XW\U8H(IN+Y2?:*8ZL8D$P!F6.R!9!;>RJE"
^XMB(3.9,23,2,12667,0)="""DATA"",396.18,216,3,498,0)"
^XMB(3.9,23,2,12668,0)="M9?7Y&IF.C8-BI<)&5ZDP1&S3@,5)V&D:M_&,7_.-C.^UPO*UPL+%PLVA<-TV"
^XMB(3.9,23,2,12669,0)="""DATA"",396.18,216,3,499,0)"
^XMB(3.9,23,2,12670,0)="M<U<YK+8JAPV;/>J2<^:CP3G-MI:+[1;$'C'D""6%7Q>Q='*T4-^_^Y/45=M6>"
^XMB(3.9,23,2,12671,0)="""DATA"",396.18,216,3,500,0)"
^XMB(3.9,23,2,12672,0)="M<KH->ZJ<NTJ7FWV&C2[#G@I63GZ]X&+V3_9_#6Y>.B$.=)7^1UW8[))^O*Q'"
^XMB(3.9,23,2,12673,0)="""DATA"",396.18,216,3,501,0)"
^XMB(3.9,23,2,12674,0)="MSK/GQ=CN+'>T$TD]>T%-&#.VELRZO+C\-3_F^HPHD.!#&&90W3Y<T<*H#*2<"
^XMB(3.9,23,2,12675,0)="""DATA"",396.18,216,3,502,0)"
^XMB(3.9,23,2,12676,0)="M>^7ROTVN""1F""#!4>:8?EM4M2N<?B#AR)RY%,OJ2UBQC9XNF<NJUFO-U1S\4R"
^XMB(3.9,23,2,12677,0)="""DATA"",396.18,216,3,503,0)"
^XMB(3.9,23,2,12678,0)="M+*IJ\HM=R7392%&52Q<?;QQ=12MVE2O\X..OM,S[""KN$L.7J$5%SW2JN33J]"
^XMB(3.9,23,2,12679,0)="""DATA"",396.18,216,3,504,0)"
^XMB(3.9,23,2,12680,0)="M=KOO/.$F^>Z2LRCP""O7&)V.Q2OG4:[?_M8KEB[""X[/""K6O[T-O400[WS:)55"
^XMB(3.9,23,2,12681,0)="""DATA"",396.18,216,3,505,0)"
^XMB(3.9,23,2,12682,0)="MQ""OD,LX)]].C4`Z.HIPTS;*35.AZ:\X:VIG;.L4@:E.L-.=,^T8IU1!:=JF"""
^XMB(3.9,23,2,12683,0)="""DATA"",396.18,216,3,506,0)"
^XMB(3.9,23,2,12684,0)="MVS5GO>`@'CA(51OPE/V""<O``%AZ]""Y[\&.=<(K768=.[D3B-904-JPF4R<!D"
^XMB(3.9,23,2,12685,0)="""DATA"",396.18,216,3,507,0)"
^XMB(3.9,23,2,12686,0)="ML:LJB!+,@E50?_!8:1[D[:;^DL<\VUM@TE`M;=K""<D56/9@,;0V]Y'67L>TT"
^XMB(3.9,23,2,12687,0)="""DATA"",396.18,216,3,508,0)"
^XMB(3.9,23,2,12688,0)="MM:RAK9-'>>>3]9VKK%+<.HWA(O]<K6V'6,.42.M_-CBA8^=OM\IOIU<7B]H7"
^XMB(3.9,23,2,12689,0)="""DATA"",396.18,216,3,509,0)"
^XMB(3.9,23,2,12690,0)="M6H^RUIV0?,EY</R`VN+2FK;;""$1)C_I)#^%DXEN[^1;[)?ZG8E)"";B8.C0F@"
^XMB(3.9,23,2,12691,0)="""DATA"",396.18,216,3,510,0)"
^XMB(3.9,23,2,12692,0)="MBPDT?*C\E""J8X-L""T""*X5N:"":K;`;E(<@&J0[>.K?C8>X""K^SCA@%P-T^?^]"
^XMB(3.9,23,2,12693,0)="""DATA"",396.18,216,3,511,0)"
^XMB(3.9,23,2,12694,0)="MOG^[:K_/.<RF\#-^H5JYA6;=*S3S81156VX>5SQCKQ#R_1J@JURG!I::H#&6"
^XMB(3.9,23,2,12695,0)="""DATA"",396.18,216,3,512,0)"
^XMB(3.9,23,2,12696,0)="M86<1;5W8(SQ?QE'HNTK>JOZ&T-?9&:7]+G`TIU>8F\QL!#''>J-RB&$Q,,6R"
^XMB(3.9,23,2,12697,0)="""DATA"",396.18,216,3,513,0)"
^XMB(3.9,23,2,12698,0)="M6]:[3;\R$31LO<$$ZUU(8_2-VHW=10-RN\]@F+`=""2""]^,C[*/YC)^RO;V+"""
^XMB(3.9,23,2,12699,0)="""DATA"",396.18,216,3,514,0)"
^XMB(3.9,23,2,12700,0)="M)2(Q#7M`A;_ZR!5-_E+W0%=YC[F_0'.-^4>:6H;MPN.M=.;8Z%WTTYJ$8C*#"
^XMB(3.9,23,2,12701,0)="""DATA"",396.18,216,3,515,0)"
^XMB(3.9,23,2,12702,0)="M4%2;20Q4K0<5SVJ1\KO,)H7NEL9""?N@Z:\?U4X>6'RMX[2>1AQ/EQ9JP+/*R"
^XMB(3.9,23,2,12703,0)="""DATA"",396.18,216,3,516,0)"
^XMB(3.9,23,2,12704,0)="MMEC'W:0XZ^E-:,?O0OEK[=>49+M:IQ$QL,G&72I.HJSRUIX3Y2[OTCI1PJQ`"
^XMB(3.9,23,2,12705,0)="""DATA"",396.18,216,3,517,0)"
^XMB(3.9,23,2,12706,0)="M_41Y**J<:>-PWCIRHC1_S8G39>P$]_0);2Z.,Y0V:P*-\I^-X\6THWCM^&%F"
^XMB(3.9,23,2,12707,0)="""DATA"",396.18,216,3,518,0)"
^XMB(3.9,23,2,12708,0)="M6.G)FO?*+?9B8D>SSS=_K3IVF5A81UDOMXGO^D[X4O$VV5<#AWP/P%?9H<Q*"
^XMB(3.9,23,2,12709,0)="""DATA"",396.18,216,3,519,0)"
^XMB(3.9,23,2,12710,0)="MCG*58/Q,%.WGV%DW&,W/^11\-#OXB*IA0UV,!`;+2,A+P9PYB9]W*R^QLO23"
^XMB(3.9,23,2,12711,0)="""DATA"",396.18,216,3,520,0)"
^XMB(3.9,23,2,12712,0)="M;,.BFY-3T($=Z-2F876B4S4S]Z-S2G2O0\3-*X_+)KSUG&WR.""AI>B>'S""9*"
^XMB(3.9,23,2,12713,0)="""DATA"",396.18,216,3,521,0)"
^XMB(3.9,23,2,12714,0)="M0&6&#NWB96Y[=G=S=L&D$NP>^$B`)Z@)4)6TKV8/RH*W<D+_CHA.1O@:6;G9"
^XMB(3.9,23,2,12715,0)="""DATA"",396.18,216,3,522,0)"
^XMB(3.9,23,2,12716,0)="MN/[)""-#J'HW0AMW262VF""@U&L&JS.H<G(*@B:<16WG]1WYI:U'LA%_62R$6]"
^XMB(3.9,23,2,12717,0)="""DATA"",396.18,216,3,523,0)"
^XMB(3.9,23,2,12718,0)="M%'U1W_Y8U'/KB_KV\Z)>'+*P&R^M[V\N_H=<OA3/,`.@#J6889L%``BM[FJ4"
^XMB(3.9,23,2,12719,0)="""DATA"",396.18,216,3,524,0)"
^XMB(3.9,23,2,12720,0)="MWB[L4HU:&?YCI)C?5RIMB==D::9^,BJG_*C)8R3.'WMX!V""0.1""(,(<(2*T"""
^XMB(3.9,23,2,12721,0)="""DATA"",396.18,216,3,525,0)"
^XMB(3.9,23,2,12722,0)="MZ9&9XQ;><Y!YSU[N/1.#G7PAAI_.""VER;4_<8=U-/@L*)UAO.<&U^`RTB%Z5"
^XMB(3.9,23,2,12723,0)="""DATA"",396.18,216,3,526,0)"
^XMB(3.9,23,2,12724,0)="MP;==88XSW#SE&[^*UCCDS0S9H3OH%`\.1=%[AJ*T<=%L=B@*8HV#97-`-GNF"
^XMB(3.9,23,2,12725,0)="""DATA"",396.18,216,3,527,0)"
^XMB(3.9,23,2,12726,0)="MG&1=>/PI)\Q\=DX-E@7$!YS<;->XH0,FS\@SU$[@$3M)D@.^.7H^RW38@3CA"
^XMB(3.9,23,2,12727,0)="""DATA"",396.18,216,3,528,0)"
^XMB(3.9,23,2,12728,0)="M-=Y0.4,3A_T*![E'L/37#18H::0D.'[P73P5(YA-.>O@ALGL>>N\$@4@L9S^"
^XMB(3.9,23,2,12729,0)="""DATA"",396.18,216,3,529,0)"
^XMB(3.9,23,2,12730,0)="MHES23@/E>G-+8A""*B.-Y""NTB\7&&%_6FKS>KE=.8<S2*61)""`E2;-XI1E1ED"
^XMB(3.9,23,2,12731,0)="""DATA"",396.18,216,3,530,0)"
^XMB(3.9,23,2,12732,0)="MF,&\+U$I7;C\!*.6/]>-!^0<R01M37@(LZ4)G2C1.:BP>SQ?=Y%`IF%.E0>?"
^XMB(3.9,23,2,12733,0)="""DATA"",396.18,216,3,531,0)"
^XMB(3.9,23,2,12734,0)="M!)P+]LE9YY-SY448A:].26!+_CEK#23\-?P21E_#WBF%@W,DM=XYDJ;(0$\^"
^XMB(3.9,23,2,12735,0)="""DATA"",396.18,216,3,532,0)"
^XMB(3.9,23,2,12736,0)="M^37$K0BQT!/.D3S#=U&,2\W2)-R;/%#G/CN]2^GHJ^+1G"",@X2..@""P\%\1X"
^XMB(3.9,23,2,12737,0)="""DATA"",396.18,216,3,533,0)"
^XMB(3.9,23,2,12738,0)="M+I6[:!C,^$"".SM>XPVE-_DRD`#NQY!CTFDH6\&X&$88]""+-%4""9'X5B\DK5Z"
^XMB(3.9,23,2,12739,0)="""DATA"",396.18,216,3,534,0)"
^XMB(3.9,23,2,12740,0)="M'5M#;5([(#OX?4\89R5?=E?)%\<9X:E7Q.4OM/CRK7-GPGU>^BG^7@HF6PHF"
^XMB(3.9,23,2,12741,0)="""DATA"",396.18,216,3,535,0)"
^XMB(3.9,23,2,12742,0)="M5M-G=C'8%&K!-0S>]$^=.P?80O;WBCYI-FJC""OH`'(SG6\E>I#'QO*YJ;#QO"
^XMB(3.9,23,2,12743,0)="""DATA"",396.18,216,3,536,0)"
^XMB(3.9,23,2,12744,0)="MLLD6K3:>]Q'B^5J0?4HL,'52L(*_I;'S*G<FW5:.D+J9#YB872=<_!=9=$DC"
^XMB(3.9,23,2,12745,0)="""DATA"",396.18,216,3,537,0)"
^XMB(3.9,23,2,12746,0)="M_&]FW['R`K^^?ZT\.(F["":A?>J)\\;T0;\MLP8F2Y?OIHY>/G""RPA&)LK2?&"
^XMB(3.9,23,2,12747,0)="""DATA"",396.18,216,3,538,0)"
^XMB(3.9,23,2,12748,0)="M;C%5JX+9JN""/'3P**M=,<)2H""67&H/-*@0V)Z""'?O)D:S9E]H]LA8\TXP1QW"
^XMB(3.9,23,2,12749,0)="""DATA"",396.18,216,3,539,0)"
^XMB(3.9,23,2,12750,0)="MZ'D'T+L-K,E@]PUM-0Z4UE9/X(QT$:#GIG535UKVB,,C>6>M6+9PAX(UTSGL"
^XMB(3.9,23,2,12751,0)="""DATA"",396.18,216,3,540,0)"
^XMB(3.9,23,2,12752,0)="MQ5S*IS]:1;)OQ+)&\`3PO%(;""3*%;B28L\[6>GJN2+:_6D""DW<X0D15AMA!9"
^XMB(3.9,23,2,12753,0)="""DATA"",396.18,216,3,541,0)"
^XMB(3.9,23,2,12754,0)="MF>UTPKP$X.G9(MD%::NCV,(;^""""CPJQY>B""O?OW?K,#BZ=DB,/^HW'Q&?<E*"
^XMB(3.9,23,2,12755,0)="""DATA"",396.18,216,3,542,0)"
^XMB(3.9,23,2,12756,0)="MC@>B05[6U19/5QIH7^E*(-R@AIWXE4M\\)0Y3>6-XP>MXU<^A,1))WHO)9'2"
^XMB(3.9,23,2,12757,0)="""DATA"",396.18,216,3,543,0)"
^XMB(3.9,23,2,12758,0)="M<-YQE_55)0G)G6,O0T@3[(N0Z)`(""6U)0C9R_N,HN;<EJ1\2)?/^.1E*HJF4"
^XMB(3.9,23,2,12759,0)="""DATA"",396.18,216,3,544,0)"
^XMB(3.9,23,2,12760,0)="MM.""^*&D>%""7U/DIR8@=D3B2D;NR+D/9!$=*0)*2A3Y5M>V_FYC#L3=//-4=$"
^XMB(3.9,23,2,12761,0)="""DATA"",396.18,216,3,545,0)"
^XMB(3.9,23,2,12762,0)="M'S:<X$[1X,.:<3;SWX5.9)G1S>HI<IHR*]T&(S@YU3$VU3E/+#A:5LH>6CXJ"
^XMB(3.9,23,2,12763,0)="""DATA"",396.18,216,3,546,0)"
^XMB(3.9,23,2,12764,0)="MR)DFE0CJ\_#R<PX&G6=W`'&.Z&""!74$`XE4'=!4RZVRAL,E6VVJ\8D*],CO]"
^XMB(3.9,23,2,12765,0)="""DATA"",396.18,216,3,547,0)"
^XMB(3.9,23,2,12766,0)="M6_\=EJ<O;?\F<C>T-']7]%T>4!PWNK.SSY95A^LX>O""]O&&NW(6H?:Q59-%="
^XMB(3.9,23,2,12767,0)="""DATA"",396.18,216,3,548,0)"
^XMB(3.9,23,2,12768,0)="M!=!?`]!UGZ<6!W;_^7O_`Y741G<E-5-XKVLL<Y%@*360**4V1%AZ#*73=$,6"
^XMB(3.9,23,2,12769,0)="""DATA"",396.18,216,3,549,0)"
^XMB(3.9,23,2,12770,0)="MM#9F.UL``'.""'S)4SMER/.I68(GMNO;MN7;NN`[NMW;LMO;LM2[:E=""\?=:!"
^XMB(3.9,23,2,12771,0)="""DATA"",396.18,216,3,550,0)"
^XMB(3.9,23,2,12772,0)="M758VEA3:6%6MH8W5%H,TS1""J8N<=L6@_[J""4\V(L2MD=]=BUT.K0HM<1?]4S"
^XMB(3.9,23,2,12773,0)="""DATA"",396.18,216,3,551,0)"
^XMB(3.9,23,2,12774,0)="MC2466SMLLL-G=,#;K!X\MO)9RX(M/&\&6)R68JOJ*,Y#S*JEV&@.FLDK_YYQ"
^XMB(3.9,23,2,12775,0)="""DATA"",396.18,216,3,552,0)"
^XMB(3.9,23,2,12776,0)="M2S'J:BG6^""W%9=54H59:LP@L8UI+L7)%FR+>Y4T1?YK^8J.KO[@Q0@49J$E-"
^XMB(3.9,23,2,12777,0)="""DATA"",396.18,216,3,553,0)"
^XMB(3.9,23,2,12778,0)="MG9DS8'/ZBZMJ1#:""&=5?O""OQ,)@2#]XP$,""T%[?!1N6IKF(=OEU]A]!LV33("
^XMB(3.9,23,2,12779,0)="""DATA"",396.18,216,3,554,0)"
^XMB(3.9,23,2,12780,0)="MUI5`H$DV]J5%\T3>?UCKR7F1O,SZ9#TGK=D5B7Z_`AVCJS-4:YW/""UAT:CG;"
^XMB(3.9,23,2,12781,0)="""DATA"",396.18,216,3,555,0)"
^XMB(3.9,23,2,12782,0)="M?G3^258!!3@[F9<LY;M-TCCP01YL2Q3LZLC>:M2.*0UU%-\[80[[.G#""=#SH"
^XMB(3.9,23,2,12783,0)="""DATA"",396.18,216,3,556,0)"
^XMB(3.9,23,2,12784,0)="M$';UXK8;BU7VU.EJA*=HB_A90`]AP-_644*G9^;',Z1$MVWNETI""IT^3Z]7&"
^XMB(3.9,23,2,12785,0)="""DATA"",396.18,216,3,557,0)"
^XMB(3.9,23,2,12786,0)="MC38)B=M6MP1#?$+;=8.-1\NU6TW=KDNB-A+J!4J(L1=@XE01^7UQ1WX$?W-6"
^XMB(3.9,23,2,12787,0)="""DATA"",396.18,216,3,558,0)"
^XMB(3.9,23,2,12788,0)="MZX!6@B6*2X(>)\T#P1-R%:^3E1.V6\2K@R**@/%K%'_!\0D%J?B%(C9\>9)-"
^XMB(3.9,23,2,12789,0)="""DATA"",396.18,216,3,559,0)"
^XMB(3.9,23,2,12790,0)="M4_F=.''*[0ZCYJ]1_%XK8QJ*VTV8@U6!L,4I-G:SD:#OJC^J[]KD_F-[KH8,"
^XMB(3.9,23,2,12791,0)="""DATA"",396.18,216,3,560,0)"
^XMB(3.9,23,2,12792,0)="MD<$0D774#N)TMM/5%(T1C!GH3)9MOCC7<>1MW)2OZQZ%]F72IX/V2^Q^H2:3"
^XMB(3.9,23,2,12793,0)="""DATA"",396.18,216,3,561,0)"
^XMB(3.9,23,2,12794,0)="MTKSXF^FB;!LO9A""`Q8XU`"":/UE6.H$ZBO#7DNM7^T1%=<.:3]Z,&NU&S[?VA"
^XMB(3.9,23,2,12795,0)="""DATA"",396.18,216,3,562,0)"
^XMB(3.9,23,2,12796,0)="MIO%0*SI;1J!FB:""&>KAFF<.X(4'<(`^WO#-G!&JV1%LU&E2X1LLX&IRF=S&5"
^XMB(3.9,23,2,12797,0)="""DATA"",396.18,216,3,563,0)"
^XMB(3.9,23,2,12798,0)="M:X''31=\""/^_O6]]<MO(]?U76+D?Y#DU]K*[^73=<[9LQTE\*@^7[4WJ?CK%"
^XMB(3.9,23,2,12799,0)="""DATA"",396.18,216,3,564,0)"
^XMB(3.9,23,2,12800,0)="MD3@CGE""BEJ1L3_[ZVVB^^DDV];+CF=36>D;24&@`C0;0P`^P3M""'5;F_<_;5"
^XMB(3.9,23,2,12801,0)="""DATA"",396.18,216,3,565,0)"
^XMB(3.9,23,2,12802,0)="MN<TN]F9PVIMYM*GPM4,5]`2;SWNR_:MB;G'C.;`7DZHJEED""*&R?,DIK4\Y>"
^XMB(3.9,23,2,12803,0)="""DATA"",396.18,216,3,566,0)"
^XMB(3.9,23,2,12804,0)="M%Y^SI3`Q[BQ""<&?(P)\I`U77->9**P,7GQ=""(-T4JRS)[ZOLW%FQ.3H>S+8F"
^XMB(3.9,23,2,12805,0)="""DATA"",396.18,216,3,567,0)"
^XMB(3.9,23,2,12806,0)="M7*JQ-R<>MN1Q<&:8!NJGL[""O2C_OJ8^\*VGX1VWQN3F.HQDL#V>JM(;AMCK-"
^XMB(3.9,23,2,12807,0)="""DATA"",396.18,216,3,568,0)"
^XMB(3.9,23,2,12808,0)="MS5<Z![\_)'5=%%^RA45B;31?FWTU4"">!I9]\7M""1=^DN91;ZIEC=.[LL+9="""
^XMB(3.9,23,2,12809,0)="""DATA"",396.18,216,3,569,0)"
^XMB(3.9,23,2,12810,0)="M.?=9N-W=ZEBQ.YZKR8<S.^*JYL^""\+Y.F%]*];E>WY3[:GUVHX'PG$LB=[YJ"
^XMB(3.9,23,2,12811,0)="""DATA"",396.18,216,3,570,0)"
^XMB(3.9,23,2,12812,0)="MQ]'AW""87X7:U3C[""OV7RU_F!<\B<D-M%L_D=J[DS2S.-O#-[V1!;)Q4]$)?%"
^XMB(3.9,23,2,12813,0)="""DATA"",396.18,216,3,571,0)"
^XMB(3.9,23,2,12814,0)="M,LFVZ24\;=<F7//,X1H.I4M_#QT8B4;<X(]3!-D8V2S--R^-!/[)EA:>-,C&"
^XMB(3.9,23,2,12815,0)="""DATA"",396.18,216,3,572,0)"
^XMB(3.9,23,2,12816,0)="MV&9I@7EIGC^]-&2Y-/^4,38F-BL+[9,^A\L,A:?-^=@L++)/^1RQL.BTRFBS"
^XMB(3.9,23,2,12817,0)="""DATA"",396.18,216,3,573,0)"
^XMB(3.9,23,2,12818,0)="ML'A&PD>S,F*YLN""4NFBEB@V\H9TN1M&A(G.]D^JB;[4R9*^,1ZS,/ZDR!E8K"
^XMB(3.9,23,2,12819,0)="""DATA"",396.18,216,3,574,0)"
^XMB(3.9,23,2,12820,0)="MPS.T4;,TUW)IY)3::)4R1L1>9HB0@X^S$^>,K9P0Y-GOM&/6=MI4?VRU-'^&"
^XMB(3.9,23,2,12821,0)="""DATA"",396.18,216,3,575,0)"
^XMB(3.9,23,2,12822,0)="M0NK69JF1Y+3Y<*LC#05SUA:YAZX-1R==FYV)G.&(Z)9FJ9(X/JTG8G>PS?!%"
^XMB(3.9,23,2,12823,0)="""DATA"",396.18,216,3,576,0)"
^XMB(3.9,23,2,12824,0)="M=&N++%72/:TI\>9$CWCVA6U\<*R.XK-&C[])U1SG3E[/RHI87(;)%YIJ#BJR"
^XMB(3.9,23,2,12825,0)="""DATA"",396.18,216,3,577,0)"
^XMB(3.9,23,2,12826,0)="MS%[C\V9361W_N;D[63!+(GW!K%JQ%?MJR8WEM2+&CQ6S(Q6S'IJ2$NM8UTA)"
^XMB(3.9,23,2,12827,0)="""DATA"",396.18,216,3,578,0)"
^XMB(3.9,23,2,12828,0)="MJ>@:*IZ&,A`U_HX#G9#<1R&-""8E,""@E9""@G%OHV4D/X6(GP4TYB8[/RM>$9*"
^XMB(3.9,23,2,12829,0)="""DATA"",396.18,216,3,579,0)"
^XMB(3.9,23,2,12830,0)="M2Q.X6::T$#II2LNNV,>=D8@\/-Q&Y+2Y'ZMX&Z,9^>,CUH9/FS^V4DF,9ZBD"
^XMB(3.9,23,2,12831,0)="""DATA"",396.18,216,3,580,0)"
^XMB(3.9,23,2,12832,0)="M+G2SU$DW/&EJRRITPV2&3AX1<KOQ29626*43\)Q+C6,6%YU6*ZT2""MB?HY6:"
^XMB(3.9,23,2,12833,0)="""DATA"",396.18,216,3,581,0)"
^XMB(3.9,23,2,12834,0)="MZ`U9%MC%)]5*NQT7S-'*PZ-N%YU6*ZW*67$X1RN/6)Q[4JTD5BD%',W02HR#"
^XMB(3.9,23,2,12835,0)="""DATA"",396.18,216,3,582,0)"
^XMB(3.9,23,2,12836,0)="M0VTE]DZJE78[+IZAE;JUV>:""@M-JI5VYKCM#*X]9G']:K0S5GD9]NYAG:A?#"
^XMB(3.9,23,2,12837,0)="""DATA"",396.18,216,3,583,0)"
^XMB(3.9,23,2,12838,0)="M8KL8FAI'Z9UE'*6A$9/Y'G(C)F[V8@?NS+=BDJ9$;:""VZ<9_P*V8GJ$5,_:U"
^XMB(3.9,23,2,12839,0)="""DATA"",396.18,216,3,584,0)"
^XMB(3.9,23,2,12840,0)="MK9B>T(DIS2;%KOUPUQ<WJV*3;9/<>?TY@1_@_;]_\V7+O,#0QRJTL4I]K-U<"
^XMB(3.9,23,2,12841,0)="""DATA"",396.18,216,3,585,0)"
^XMB(3.9,23,2,12842,0)="M(*5]36:>4V5_M0-^1D@(M23T@X;T-$2^+0V`/)55]0`]/$)*9,&-[B#O>ZV"""
^XMB(3.9,23,2,12843,0)="""DATA"",396.18,216,3,586,0)"
^XMB(3.9,23,2,12844,0)="M:4I>`]K(=LEJQI-JF=7=[,D16F(+6I`O3RWN+GI&^5*T->O0#PE@+.4VK?I9"
^XMB(3.9,23,2,12845,0)="""DATA"",396.18,216,3,587,0)"
^XMB(3.9,23,2,12846,0)="M/QI;;;;&;%""IQAHC)$YEQU/#@0FQM<;^$<V['1I*J`XETO*W:W@<ZL]<^121"
^XMB(3.9,23,2,12847,0)="""DATA"",396.18,216,3,588,0)"
^XMB(3.9,23,2,12848,0)="MILD#ZE_(C7A7Y*!6[9LGP?]:E!MN<-#B]39/RCM^,OQ[^GX.?0;K9.MLFX]?"
^XMB(3.9,23,2,12849,0)="""DATA"",396.18,216,3,589,0)"
^XMB(3.9,23,2,12850,0)="MF5;?(_W$*NR/?M=-K[_OPN;6W[D]8U`_6M[8<^*'K-Q(R^[?>U.6Z=V><JI+"
^XMB(3.9,23,2,12851,0)="""DATA"",396.18,216,3,590,0)"
^XMB(3.9,23,2,12852,0)="M>YGP>\;0>_2OJJ4TH[@].M2>4;7$=FH9>X>HI6^IEFA:&-RDTP6,0^NQ^G2K"
^XMB(3.9,23,2,12853,0)="""DATA"",396.18,216,3,591,0)"
^XMB(3.9,23,2,12854,0)="M8XE;<4B-WIAU8_&&9A^Y5[X;1\@O*S+;K5,?T%AS0*LI6FV""UIB>[9.SIM3L"
^XMB(3.9,23,2,12855,0)="""DATA"",396.18,216,3,592,0)"
^XMB(3.9,23,2,12856,0)="M:&)6]H^TVB5-'3'5/7<F(!2$@B78A3Z]HICN02AQCZ1GNM4SWNFI-WI\6-B["
^XMB(3.9,23,2,12857,0)="""DATA"",396.18,216,3,593,0)"
^XMB(3.9,23,2,12858,0)="M8L.QU5WO*9=[9OWE+_:X:SVYG&S4G4<:=[Z-\?EKHMZ=;R*O@6?-U-`'[,[["
^XMB(3.9,23,2,12859,0)="""DATA"",396.18,216,3,594,0)"
^XMB(3.9,23,2,12860,0)="M!K\GU+OS""`L.A:R4G26Q\.=_2?+MOH99,=^.&Q\:W'AA*V/YU/#QM*_8(X'<"
^XMB(3.9,23,2,12861,0)="""DATA"",396.18,216,3,595,0)"
^XMB(3.9,23,2,12862,0)="MTG.-[21H>^18:/9C6P_1-WB(GN@A^F3*0\1GB==UAU6H/:P$>CTI""B!=Q_%P"
^XMB(3.9,23,2,12863,0)="""DATA"",396.18,216,3,596,0)"
^XMB(3.9,23,2,12864,0)="M!'?H)(-=Q/UTK0=T+KF3MM33V=*F.JAM00UY6^HU=1.<+8T/LJ6]F_$MFM=`"
^XMB(3.9,23,2,12865,0)="""DATA"",396.18,216,3,597,0)"
^XMB(3.9,23,2,12866,0)="M;RDP(GKSVHV#$V86CU@*HWEMDB0IU8I?BSK]1@PL1GJ\KRX1WAY*1/9?+8)Q"
^XMB(3.9,23,2,12867,0)="""DATA"",396.18,216,3,598,0)"
^XMB(3.9,23,2,12868,0)="MX)+#`&RJFCJP6;6F/BP__)R].4Q.?N5DVUMH\1\SO2W1^J-4""O$""6=9DFFCT"
^XMB(3.9,23,2,12869,0)="""DATA"",396.18,216,3,599,0)"
^XMB(3.9,23,2,12870,0)="MS&DP1SB($>>FR?U2]P]/$198$!;*A-FD?/`S*EH:<%&6[9JXA+*+$ODQW0+$"
^XMB(3.9,23,2,12871,0)="""DATA"",396.18,216,3,600,0)"
^XMB(3.9,23,2,12872,0)="M4(>),$5?:$%?+-&'0SD1A)5-TAM7TC%P@$:Z->$A51P>4H>`Q&$/+7HT)&>W"
^XMB(3.9,23,2,12873,0)="""DATA"",396.18,216,3,601,0)"
^XMB(3.9,23,2,12874,0)="MWRYK^K#.O=6`$(TL.K)8-,*2:2"">O&H?&U?M/:/[D[61,[W99!53G""?UFN%!"
^XMB(3.9,23,2,12875,0)="""DATA"",396.18,216,3,602,0)"
^XMB(3.9,23,2,12876,0)="M;0HJN:JF*Z5K7E.9T2V004A7%XZR:AH]=#WIPL,@I[6F^R2YHW]PI?_""9+=+"
^XMB(3.9,23,2,12877,0)="""DATA"",396.18,216,3,603,0)"
^XMB(3.9,23,2,12878,0)="M!0Z6;'(W]7*6Q98Z.LU75OOEFO[?S1V$2!7@2NVH68/9A0S@80-9A5T.XX;Y"
^XMB(3.9,23,2,12879,0)="""DATA"",396.18,216,3,604,0)"
^XMB(3.9,23,2,12880,0)="M9S5=\DE9,QL($&D-E?E]1T,-'<CMX,+JV4&BBFU$%<E6'$73&\A_YG0@R6P0"
^XMB(3.9,23,2,12881,0)="""DATA"",396.18,216,3,605,0)"
^XMB(3.9,23,2,12882,0)="M^`""Q,+%G6%@Y11-V99H""B^QI\,QI^N)A<Y3:'NXIXI`-<7*2$@46%B<4&)9I"
^XMB(3.9,23,2,12883,0)="""DATA"",396.18,216,3,606,0)"
^XMB(3.9,23,2,12884,0)="M&T,G7.3`Y"")'PAT&EJ^T(D]VD5U;%]D]Q966BS&[X)=]MW#PW(0[K1""+=UI>"
^XMB(3.9,23,2,12885,0)="""DATA"",396.18,216,3,607,0)"
^XMB(3.9,23,2,12886,0)="M$[4]X""`X-.@KY6Q@R/][W@C"":`^2:..H;79Y<0_(Z9T""?RO.&N5>J-_P8CPL"
^XMB(3.9,23,2,12887,0)="""DATA"",396.18,216,3,608,0)"
^XMB(3.9,23,2,12888,0)="MYQN)Z]J?X*RVW""F6R_V.7:;0';]N[4""5P54/M?#+-:3KG2?LO&!(F5=@PMC["
^XMB(3.9,23,2,12889,0)="""DATA"",396.18,216,3,609,0)"
^XMB(3.9,23,2,12890,0)="M_)GAY.""S`(*AD[7'%YQ@U-9]S-)/[(UG8UG.68<'<`=/<P=%<C;6M[""&KV!*"
^XMB(3.9,23,2,12891,0)="""DATA"",396.18,216,3,610,0)"
^XMB(3.9,23,2,12892,0)="M20>UF5%IYW""FWY;%AJ$K`CP_6RO""3S=4GFLX4K-B-?/NJ5](%%@L1+XZQ-B;"
^XMB(3.9,23,2,12893,0)="""DATA"",396.18,216,3,611,0)"
^XMB(3.9,23,2,12894,0)="M7L@'#?&KIG)#MX#3B8>>52XVW(B*ZW(5S]VUR.?LR_[N;]E""BZ>])3A(#I1B"
^XMB(3.9,23,2,12895,0)="""DATA"",396.18,216,3,612,0)"
^XMB(3.9,23,2,12896,0)="M;"",'F=[80I\^M/BS`XF'4AC:\#20/(#8@J,=0/M@""@XE,;:P61(/(XM@[5\5"
^XMB(3.9,23,2,12897,0)="""DATA"",396.18,216,3,613,0)"
^XMB(3.9,23,2,12898,0)="MN*02>69O!/95[)N*;,2`MPO)S$4V@:U'$I\`DQE(9[&;%I>YGY[>LE**UDDH"
^XMB(3.9,23,2,12899,0)="""DATA"",396.18,216,3,614,0)"
^XMB(3.9,23,2,12900,0)="MGYW$4Q&EWZ5U5J8,;'._;;2ROX]5(9;T@@X\`P0O4@!GU/(L6P1G>MK`QBD9"
^XMB(3.9,23,2,12901,0)="""DATA"",396.18,216,3,615,0)"
^XMB(3.9,23,2,12902,0)="MO=S&.0@R&$4FG&89Z4!INHN1'<'LY#@EQ2:(9J79,U8;>E!L1W3C!""Q/3'IL"
^XMB(3.9,23,2,12903,0)="""DATA"",396.18,216,3,616,0)"
^XMB(3.9,23,2,12904,0)="MT@_L*M""_*B""1;TF[[B3H5/KX)41V^H(US/<M\;'?T0`:HO$[ZL]N69;L5.1C"
^XMB(3.9,23,2,12905,0)="""DATA"",396.18,216,3,617,0)"
^XMB(3.9,23,2,12906,0)="MU[,C'V%U;$X0V)'_?I<N(8G1H4\_V:UIF$U_N@(`7TKRICIN#:%I`\3N]""H("
^XMB(3.9,23,2,12907,0)="""DATA"",396.18,216,3,618,0)"
^XMB(3.9,23,2,12908,0)="MF;>*776_7&=)34WU4>2+%]/L+)K$Z5)VM&\US,57!X_$WGGA%-]4':1X:RM6"
^XMB(3.9,23,2,12909,0)="""DATA"",396.18,216,3,619,0)"
^XMB(3.9,23,2,12910,0)="MH]VIAK+9,^.%OEYE-78A3*"",AU^F3BFB8M#%H<7L*.!W>""I8GKZ>B3D!>&2P"
^XMB(3.9,23,2,12911,0)="""DATA"",396.18,216,3,620,0)"
^XMB(3.9,23,2,12912,0)="MF;2'`T7YB<8""^:&.^FB*^I-/.WN=9W<9_2:87);0V)):O15GR""%.X>7_BVQ<"
^XMB(3.9,23,2,12913,0)="""DATA"",396.18,216,3,621,0)"
^XMB(3.9,23,2,12914,0)="MNLUYI?^4NHNOOLQ@-'R&P6API<N25J8)1C((N1M8J8:K4XWXL8?T--.\V!DP"
^XMB(3.9,23,2,12915,0)="""DATA"",396.18,216,3,622,0)"
^XMB(3.9,23,2,12916,0)="MB4I`IAVC6(/^X&E$YU_L#!@B"".=F7[,9$U_T6`BLQ@K""T1"";1PNJ3FJH^GB!"
^XMB(3.9,23,2,12917,0)="""DATA"",396.18,216,3,623,0)"
^XMB(3.9,23,2,12918,0)="M9W<^^&1AL>KQD8.A#8-^3JNJ*2=%SOTP-*B9#`BW09B]+'`1P^N^^KH/KR-7"
^XMB(3.9,23,2,12919,0)="""DATA"",396.18,216,3,624,0)"
^XMB(3.9,23,2,12920,0)="M?8.^!D_2O/,+W)RRK^_?O;(R99[>E$EG''%#&TM&=(><[S]:LA%+%EF)R;<2"
^XMB(3.9,23,2,12921,0)="""DATA"",396.18,216,3,625,0)"
^XMB(3.9,23,2,12922,0)="M$_+4N0)!:#4R+PX>00O&Q$2LQ!08'`,E8M((RG*V81Q$CX(:0Y>8[`/LI:4M"
^XMB(3.9,23,2,12923,0)="""DATA"",396.18,216,3,626,0)"
^XMB(3.9,23,2,12924,0)="MTQ/2I<25DWQ*[C^0&AC`=T./)>7#R3DJ@GA2!#UF]BP1]`7D#UT$P53/""`MW"
^XMB(3.9,23,2,12925,0)="""DATA"",396.18,216,3,627,0)"
^XMB(3.9,23,2,12926,0)="M75/?2#C:+::*0NX;`7L5CXEBJIG$GRK&'YK;!1_L4YH.@>Q""_AVSW[DJ?B*_"
^XMB(3.9,23,2,12927,0)="""DATA"",396.18,216,3,628,0)"
^XMB(3.9,23,2,12928,0)="MX,DO^/(+@?Q""*+\0R2_$\@O4H9-?0<HK""K%(H18IY""*%7J00C!2*D4(R4FC&"
^XMB(3.9,23,2,12929,0)="""DATA"",396.18,216,3,629,0)"
^XMB(3.9,23,2,12930,0)="M""LU8H1DK-&.%9JS0C!6:L4(S5FC&""LU8H9DH-!.%9J(JA4(S46@F""LU$H9DH"
^XMB(3.9,23,2,12931,0)="""DATA"",396.18,216,3,630,0)"
^XMB(3.9,23,2,12932,0)="M-!.%9J+0[""DT>PK-GD*SIVJR0K.GT.PI-'L*S9Y""LZ?0[""LT^PK-?D?SE95I"
^XMB(3.9,23,2,12933,0)="""DATA"",396.18,216,3,631,0)"
^XMB(3.9,23,2,12934,0)="M0G:F""2/Y,MO""-(7H&-,TV73XPS[/H8B!ZW5+ROJI^-+[-+]]*ET$LI?A<H)O"
^XMB(3.9,23,2,12935,0)="""DATA"",396.18,216,3,632,0)"
^XMB(3.9,23,2,12936,0)="M2^1R9Y-,,_8!RC4`""ML""""[9Y^!BV>5-L,X;2^D!:'T8;@FA3""&T,H,>\%^+J"
^XMB(3.9,23,2,12937,0)="""DATA"",396.18,216,3,633,0)"
^XMB(3.9,23,2,12938,0)="MO!>)Q1&9Y#!6.4P>W9<AC3O=E,AR?-YX7Z(P#3J8[%`@L2J5\W0E<@F]]AXU"
^XMB(3.9,23,2,12939,0)="""DATA"",396.18,216,3,634,0)"
^XMB(3.9,23,2,12940,0)="MOW<ZBW""6]D0TJ=EHTB]7&IA47S!0#:[WV+^DU,$230DLU[SD""R6P38$$5P+K"
^XMB(3.9,23,2,12941,0)="""DATA"",396.18,216,3,635,0)"
^XMB(3.9,23,2,12942,0)="M/_`2V,A0$*5ON""%(;%Z1*]R)=?GK]UERMRVZNO93:[1_^:I7@@PX.$0LV9(]"
^XMB(3.9,23,2,12943,0)="""DATA"",396.18,216,3,636,0)"
^XMB(3.9,23,2,12944,0)="M!C><KMGZ#P>Z_""GI^YM-5L,)G*Q6E!:Z[5+6.D%]&_KF9I/T5<2618]-D1=K"
^XMB(3.9,23,2,12945,0)="""DATA"",396.18,216,3,637,0)"
^XMB(3.9,23,2,12946,0)="M""-+4F^%8(EZJS_.4>C-=!?S@@YRH2;0EVH!]0B)OE.,VV""<-HQ<FU(DCJ/9-"
^XMB(3.9,23,2,12947,0)="""DATA"",396.18,216,3,638,0)"
^XMB(3.9,23,2,12948,0)="MG':/)MI0V4>.H+DUTLWLZ/X7L8ECK#XR)(I?T`%#_524?_5GP+,/)=W+4-W+"
^XMB(3.9,23,2,12949,0)="""DATA"",396.18,216,3,639,0)"
^XMB(3.9,23,2,12950,0)="M'_MP)@P?>9=L[U+F>_BZM[5/>+&OB^8C1B`1UUC$XYL*>.0A@&H!!HXMJY#>"
^XMB(3.9,23,2,12951,0)="""DATA"",396.18,216,3,640,0)"
^XMB(3.9,23,2,12952,0)="M-K?\4++-""IUA(Y?IO_<I5#X7Y4:9:\NJTU>=\7R^.%_2&FF3UCHK:DQ;F\[^"
^XMB(3.9,23,2,12953,0)="""DATA"",396.18,216,3,641,0)"
^XMB(3.9,23,2,12954,0)="ML=*IT*[TRX^(6F7DVC']Q6J5M3T#RV(#U6H](T<H0T9]0%(1IJ(-Q)*PMI:#"
^XMB(3.9,23,2,12955,0)="""DATA"",396.18,216,3,642,0)"
^XMB(3.9,23,2,12956,0)="M=:TUICY-ENNN%$31D)[]&F,_SF1+S?:5<E+/MKKQV]50@BWU0*T>1GYDQ[XG"
^XMB(3.9,23,2,12957,0)="""DATA"",396.18,216,3,643,0)"
^XMB(3.9,23,2,12958,0)="M/\#>Q[X;LHX5UGV9W690J'`O]*/,EWU@VF"">&TG25^B/+4M#*?7.ZQ>O?E(-"
^XMB(3.9,23,2,12959,0)="""DATA"",396.18,216,3,644,0)"
^XMB(3.9,23,2,12960,0)="MU=C^<I&),BQ5O*D5#9BHBHDUY1_<O1GK;6@Z?I?K@AZ=;&ME-;_1OFOMLP,U"
^XMB(3.9,23,2,12961,0)="""DATA"",396.18,216,3,645,0)"
^XMB(3.9,23,2,12962,0)="M3M]!@H/NSC)E5IGK(*)/,]OHPT6E=**8914JUM!RHZ)G-I(AMG0@XAY(""+$B"
^XMB(3.9,23,2,12963,0)="""DATA"",396.18,216,3,646,0)"
^XMB(3.9,23,2,12964,0)="MQ+-5$0TAW%`""6QUYLV4#YAO52&^A\9\AL#""SW$O8@>(_OA,-#/@JR?)[44<<"
^XMB(3.9,23,2,12965,0)="""DATA"",396.18,216,3,647,0)"
^XMB(3.9,23,2,12966,0)="MF-W]D1X]Z5%*X5L+0[7?EL+PK(016`M#)83XED<B.P>MR+$W;(KU""#3UR?&H"
^XMB(3.9,23,2,12967,0)="""DATA"",396.18,216,3,648,0)"
^XMB(3.9,23,2,12968,0)="M9H"")@[I/ZG#N]N6.FH_J&IJCBY*]QBL(-0O+8MNX'$PU,JI$HF9TJE6ENX0^"
^XMB(3.9,23,2,12969,0)="""DATA"",396.18,216,3,649,0)"
^XMB(3.9,23,2,12970,0)="M-<WOH0-QFRYIU$=C.@CQJ!,`*);T`=`_7Q:[$BP.M#DF-YGXM#RKZ2GQ,<GW"
^XMB(3.9,23,2,12971,0)="""DATA"",396.18,216,3,650,0)"
^XMB(3.9,23,2,12972,0)="M36$J@[<`@GHRCE&_R%K]U*HG2_7#5O*.K=5/)03YEOKWVZ[9T]==U`V\I$SL"
^XMB(3.9,23,2,12973,0)="""DATA"",396.18,216,3,651,0)"
^XMB(3.9,23,2,12974,0)="MJ^PM3K;F@EA':N!-.5S8MAWC""4CY8U9""(VR'5G+M;,$I`N-5L4:!;.G4<.P]"
^XMB(3.9,23,2,12975,0)="""DATA"",396.18,216,3,652,0)"
^XMB(3.9,23,2,12976,0)="M>7'MO+QV7ET[:;U\=C6Z!)9;$S"""">%Y+G`[5C1ZJG/8&3UV#!=3F:Y5DFJE$"
^XMB(3.9,23,2,12977,0)="""DATA"",396.18,216,3,653,0)"
^XMB(3.9,23,2,12978,0)="M6<-P135Z@J/A%6E,&<]S/+RHX;H>H8L['H#APY:G_]OK>@#GN,7CCO&(:VSE"
^XMB(3.9,23,2,12979,0)="""DATA"",396.18,216,3,654,0)"
^XMB(3.9,23,2,12980,0)="M'!O=X[&:HEY;M$YR8""\!-,""B<S(8`/MGR*!@#6%5=K<%74^@N;:3BGQ$]T?Q"
^XMB(3.9,23,2,12981,0)="""DATA"",396.18,216,3,655,0)"
^XMB(3.9,23,2,12982,0)="M<XX-AHJPT:5&]BLEKKI01&8L]#5;C4ZCGG_S*F7>TRC`5IR.`@VG<:#C]/`:"
^XMB(3.9,23,2,12983,0)="""DATA"",396.18,216,3,656,0)"
^XMB(3.9,23,2,12984,0)="M/4__`+=?V-[,OX>#EQVUV6:7-%+1JYAP.M/GV:B<X62>X!'&,PP?T;`(1?;*"
^XMB(3.9,23,2,12985,0)="""DATA"",396.18,216,3,657,0)"
^XMB(3.9,23,2,12986,0)="M^""ZMH`&%>CNL/5\^$`_93TW#$(L#Q=XA\S*&T6/:29/\J<._V($""NIB;\3W5"
^XMB(3.9,23,2,12987,0)="""DATA"",396.18,216,3,658,0)"
^XMB(3.9,23,2,12988,0)="M,/35;RU#-?YH[3V[Y73><S:SL3)\@3Q45$Q]X->B;D%-TM50DSJVW75YV$GE"
^XMB(3.9,23,2,12989,0)="""DATA"",396.18,216,3,659,0)"
^XMB(3.9,23,2,12990,0)="M\.<H!^?Y36F''VFT@SJ9H<U>?9AJ\Z*""DY:A:5&%8!W,JST<J:)BO-DN2P#;"
^XMB(3.9,23,2,12991,0)="""DATA"",396.18,216,3,660,0)"
^XMB(3.9,23,2,12992,0)="M6CEU4J[@PMCX@>0&,./2-*LVXD>DSK>QWC=KC4.6&N>-:!P*D*QSOD;EL$MT"
^XMB(3.9,23,2,12993,0)="""DATA"",396.18,216,3,661,0)"
^XMB(3.9,23,2,12994,0)="M=M75ZUP8/>J<2>>@JH(&Q'DA*]'W::=$U/->PMVH[&DS3>-CYYMTG7S,BE+\"
^XMB(3.9,23,2,12995,0)="""DATA"",396.18,216,3,662,0)"
^XMB(3.9,23,2,12996,0)="MS-L"",(+@TB4'/+&T3!C:H_QU5.6S)57"">QI>YWGQ""<[!;%O5Y5[[\9ZZ3=%X"
^XMB(3.9,23,2,12997,0)="""DATA"",396.18,216,3,663,0)"
^XMB(3.9,23,2,12998,0)="M#<;WDRUX=JN4BK=4/M?F(UL,O#R[9><O)!6625G>=U!L.C)+2`$H'WB_2U.6"
^XMB(3.9,23,2,12999,0)="""DATA"",396.18,216,3,664,0)"
^XMB(3.9,23,2,13000,0)="MJN@^)[[]4YHPT!W3^[]G#-'/]/;/5)<8M&+-1K>(;_Z1)G^"",8""0^I8*ZVZ?"
^XMB(3.9,23,2,13001,0)="""DATA"",396.18,216,3,665,0)"
^XMB(3.9,23,2,13002,0)="MFIA""V9IN[^KU<V>_V]'-2YE3IIL1+@Y_0$5C_H-_T<5!?B7;4J6AK(0A(>(G"
^XMB(3.9,23,2,13003,0)="""DATA"",396.18,216,3,666,0)"
^XMB(3.9,23,2,13004,0)="M?DB73`],[[]-LJW,\NJ6KD4""HCB;%<-35@QV#)*GZXX<F5&DVB_BZ_Q""[+IZ"
^XMB(3.9,23,2,13005,0)="""DATA"",396.18,216,3,667,0)"
^XMB(3.9,23,2,13006,0)="M^Q7;V*_SV""=LL$^Z9IL1ZS32<"".TW(R+::+M1G=-S\EQ)!WC&](Q)'*G$S(X"
^XMB(3.9,23,2,13007,0)="""DATA"",396.18,216,3,668,0)"
^XMB(3.9,23,2,13008,0)="M.$]""AHRD`UQS\$9D#=2=G]$A&1DI:6_(RK!$/9</^!8""Z<.BQW!$2HJ;@S6)"
^XMB(3.9,23,2,13009,0)="""DATA"",396.18,216,3,669,0)"
^XMB(3.9,23,2,13010,0)="MLU!G)4BLE=(+5C!,O48^1:.7R#\?KDAP-&/C$*()Z3$B!R?24BG=)`OFB%!?"
^XMB(3.9,23,2,13011,0)="""DATA"",396.18,216,3,670,0)"
^XMB(3.9,23,2,13012,0)="M*D!&1H""!H0#$2@4CI%EM'&HC?]?CZ#=C#2B%R=*[.L`!L3!K792I7=+G;^""T"
^XMB(3.9,23,2,13013,0)="""DATA"",396.18,216,3,671,0)"
^XMB(3.9,23,2,13014,0)="MCZ41MI)W]$N6KZ17""LKAI)8^]SZE1XKL697TQ6U='9!+0#.U#T]K'P>9<#+U"
^XMB(3.9,23,2,13015,0)="""DATA"",396.18,216,3,672,0)"
^XMB(3.9,23,2,13016,0)="MBR^C?O31NQT5V*,""7DP!\4P%)-,*B/ES]#0*B-S+*.#KSX`27J6/""G@Q!20S"
^XMB(3.9,23,2,13017,0)="""DATA"",396.18,216,3,673,0)"
^XMB(3.9,23,2,13018,0)="M%=""S.'^52)&@(PV@?R$#""%49C^?OY;3/FZ=]07""(]W>D^B$W#""^C?N]85DJ^"
^XMB(3.9,23,2,13019,0)="""DATA"",396.18,216,3,674,0)"
^XMB(3.9,23,2,13020,0)="MI'U4P;.JH#_3`/H'N8!'FT""$+Z.#'V`&3_[H!%Y2!8-Y*DA<""R?0<T]_""D>7"
^XMB(3.9,23,2,13021,0)="""DATA"",396.18,216,3,675,0)"
^XMB(3.9,23,2,13022,0)="M4<$?TG3UJ(""75,!PI@V,#W`""L2[G-$O]@LNHW\ND7C^JWR75+YJI?M%!.<""C"
^XMB(3.9,23,2,13023,0)="""DATA"",396.18,216,3,676,0)"
^XMB(3.9,23,2,13024,0)="M]>]""7N#WT,'[J(""75,!XI@*&AZ4!C]5`A""[D`Q99GM:/*GC13+0[4P>#PS*!"
^XMB(3.9,23,2,13025,0)="""DATA"",396.18,216,3,677,0)"
^XMB(3.9,23,2,13026,0)="M1UM!<AD=I""N""$?*/*GA!%9QY&V)Q#""M%(X'FSIZWE,IT4D']0H^<4_W&Y?3_"
^XMB(3.9,23,2,13027,0)="""DATA"",396.18,216,3,678,0)"
^XMB(3.9,23,2,13028,0)="M4J6.E6?RG`I5*+"")384V2*U1]W25-JZ.;1[69[""""QT*;V84V""%M6VK0P(YZ$"
^XMB(3.9,23,2,13029,0)="""DATA"",396.18,216,3,679,0)"
^XMB(3.9,23,2,13030,0)="MV#%,GXYE(`@768Q?PKZF>POF?#A\L_'""C-IO@>4QAK1L@""R7>__5CF).7X?]"
^XMB(3.9,23,2,13031,0)="""DATA"",396.18,216,3,680,0)"
^XMB(3.9,23,2,13032,0)="MK""#XT]W,37%YT%C*[I0HB!4L>>`JK<R!IA,_4M""N410B\B@*%=;:A/UHGJJ@"
^XMB(3.9,23,2,13033,0)="""DATA"",396.18,216,3,681,0)"
^XMB(3.9,23,2,13034,0)="M8+YXD;H]8HNA""BC""T7#O/ST]`=E,3Y""&%8Q.#=;!I;6%Z#R&3P_XT:@55RF("
^XMB(3.9,23,2,13035,0)="""DATA"",396.18,216,3,682,0)"
^XMB(3.9,23,2,13036,0)="M#D),$PH*OS40M=@T(E6/""89$3#!YCJB+9J""HL3'FW\[D8#V&FH""-Y4G06""28"
^XMB(3.9,23,2,13037,0)="""DATA"",396.18,216,3,683,0)"
^XMB(3.9,23,2,13038,0)="MGGHYC)I_YC#6.;?[+:O3=^JTJBOG29+?[&E@<@UM;/6ZI%8@V[(1NM<.U.N7"
^XMB(3.9,23,2,13039,0)="""DATA"",396.18,216,3,684,0)"
^XMB(3.9,23,2,13040,0)="M^QMX\P4_-OC]!_K""S_3_DOS/)(=9X[MU4>W624U%<NW\^.%#VUY]T)!Y&7-#"
^XMB(3.9,23,2,13041,0)="""DATA"",396.18,216,3,685,0)"
^XMB(3.9,23,2,13042,0)="MRPMEA'+DV?/BYAG(D:K""7;;LL`IJZ!!G'$DJ`6?@2?KL[AE=ZK;._N>G%[_#"
^XMB(3.9,23,2,13043,0)="""DATA"",396.18,216,3,686,0)"
^XMB(3.9,23,2,13044,0)="M3SPOX-57OW?OOUQ>.S^]K%[<73NW:5EF-?`NR2EKGMZF=0$L3K/M@7S1(Q.&"
^XMB(3.9,23,2,13045,0)="""DATA"",396.18,216,3,687,0)"
^XMB(3.9,23,2,13046,0)="MGCCL5F:,)P.1=9&(AC$_=?WSSBOGJ?-AG7)0'P""]E)5IY:R*Y1XJ_!N(!5`6"
^XMB(3.9,23,2,13047,0)="""DATA"",396.18,216,3,688,0)"
^XMB(3.9,23,2,13048,0)="M!LRTI&OA&<,JCV^H2CF)LZ-/J*GV.:_?O*`,W?YU3W=5MMGLMT525<D]X_P5"
^XMB(3.9,23,2,13049,0)="""DATA"",396.18,216,3,689,0)"
^XMB(3.9,23,2,13050,0)="MZ^9(H%+Y-BLW_+,2-M[ZW9N7]*_AFT!'H1VO><1-7M0.>P[##*)?RWTC%8[S"
^XMB(3.9,23,2,13051,0)="""DATA"",396.18,216,3,690,0)"
^XMB(3.9,23,2,13052,0)="MCG_6KR^<?^^IU@+]']D<,_HK%5[[.U!RF'A\O7@$F+B^:VJH[PZG!^D.8GEI"
^XMB(3.9,23,2,13053,0)="""DATA"",396.18,216,3,691,0)"
^XMB(3.9,23,2,13054,0)="M%DLU:#0OH&>+"";(#B]W6SR'IM8I$DV3W'%]VIB?;)'>L:T?88=?=%MOG=9E4"
^XMB(3.9,23,2,13055,0)="""DATA"",396.18,216,3,692,0)"
^XMB(3.9,23,2,13056,0)="MQ7[+L"":2FQ4D3)*<1PQ9O/K@5,NDVT$CRPHMEH61`OYM,=9X]<QYF16[ZKY%"
^XMB(3.9,23,2,13057,0)="""DATA"",396.18,216,3,693,0)"
^XMB(3.9,23,2,13058,0)="M/7&>?%JG6R?YF&0Y!*)74Z1%>M*P.""18WL>Q<CAV`;.&Y;_^]N$U0S]9#SOZ"
^XMB(3.9,23,2,13059,0)="""DATA"",396.18,216,3,694,0)"
^XMB(3.9,23,2,13060,0)="MN<-O[SL(G)(\OZ?J0K4'1H!1B:SVRY0>CCRLRF(+GB4@""W]D:%S<(Y.:[7TV"
^XMB(3.9,23,2,13061,0)="""DATA"",396.18,216,3,695,0)"
^XMB(3.9,23,2,13062,0)="M;YWNNFP+1=.@<\Z+80,FPK/J[""GLR&;7MSN]<M+/].-[J(LO>(K9<+*>/&BU"
^XMB(3.9,23,2,13063,0)="""DATA"",396.18,216,3,696,0)"
^XMB(3.9,23,2,13064,0)="MXI_%^B[;=K;Z4TI%L*3'%Z666MSE'O0*D&K2JJ#NU(HGCIW'SHY_5D\LU;U;"
^XMB(3.9,23,2,13065,0)="""DATA"",396.18,216,3,697,0)"
^XMB(3.9,23,2,13066,0)="M]O8VO6L,0LF:O2O6X5Y>,Y)*>KKG]_PJ^6>-FA=FCJ@):AB0M2A+53\(EZY>"
^XMB(3.9,23,2,13067,0)="""DATA"",396.18,216,3,698,0)"
^XMB(3.9,23,2,13068,0)="M-'PM)P3>]K3QWZ1]LL""OJH'Q8F!?]&TJ3E;:WO%WG0`#H,2=LJYE)2\-_EF"""
^XMB(3.9,23,2,13069,0)="""DATA"",396.18,216,3,699,0)"
^XMB(3.9,23,2,13070,0)="MA)E=IF:3*G]6K=G7\!:*:L8.)M<_Z61QY8CZU:[,R9I.E:13$OJW_7<`V^%-"
^XMB(3.9,23,2,13071,0)="""DATA"",396.18,216,3,700,0)"
^XMB(3.9,23,2,13072,0)="M:94`%<0_J^'+LT.@8`-L`""AUA8U)NL#?#%#JV@*4NG,`2DUAC3L5UC0$=^3Z"
^XMB(3.9,23,2,13073,0)="""DATA"",396.18,216,3,701,0)"
^XMB(3.9,23,2,13074,0)="M1`QK</30@:"";FPH-SA+1.^7]=$X!]'(`D@BM@Y@/):5^ER=]M^3?/8Y!H=YW"
^XMB(3.9,23,2,13075,0)="""DATA"",396.18,216,3,702,0)"
^XMB(3.9,23,2,13076,0)="M[[(![=DFL<SK>O=L?/<?6,\Q`%)U2*:`""DG]!/9!<+""+99$S+WZ;IBOHO6?P"
^XMB(3.9,23,2,13077,0)="""DATA"",396.18,216,3,703,0)"
^XMB(3.9,23,2,13078,0)="M50Q&FGJ.O+78Y6`CH6?YVJD`8HSOF8/*1?""BKMFA0)V2M,RAS9CKI!/B`#""M"
^XMB(3.9,23,2,13079,0)="""DATA"",396.18,216,3,704,0)"
^XMB(3.9,23,2,13080,0)="M].LW.T!#9,=B+]WKUK2!6?X()K#M,F)C(W+F&BV%TZC]@NH01Q2%GH4,?""GV"
^XMB(3.9,23,2,13081,0)="""DATA"",396.18,216,3,705,0)"
^XMB(3.9,23,2,13082,0)="M5L88:!R?5P)D[`C2,S%84BQ"")I/P9%#/QX!JL]1PH)M;(+(L=&6UE>D=9L=T"
^XMB(3.9,23,2,13083,0)="""DATA"",396.18,216,3,706,0)"
^XMB(3.9,23,2,13084,0)="M.:\XBLCCY`+ET$*QYM`BQM$%H32ZP'OH)Q8R;/U`;WX)=L=.+->S/K%>966Y"
^XMB(3.9,23,2,13085,0)="""DATA"",396.18,216,3,707,0)"
^XMB(3.9,23,2,13086,0)="M/MOP@HL>6.R""%S""7(!SK?A'9Y@G['\GS!.-(&0*@,NZGK&+)B^+VN=%LZ21I"
^XMB(3.9,23,2,13087,0)="""DATA"",396.18,216,3,708,0)"
^XMB(3.9,23,2,13088,0)="MPCH-)<CMZ%""HXE_WFYN494O27585*[Y/4WNC.@9):<16QH$\:E9%+T>6(.'O"
^XMB(3.9,23,2,13089,0)="""DATA"",396.18,216,3,709,0)"
^XMB(3.9,23,2,13090,0)="MTFI'#T46)?;'\S%$QW8\1DC!3?4""6Q!7-IK""!@0ZB""RI41@8$#MBZ/G=>SPV"
^XMB(3.9,23,2,13091,0)="""DATA"",396.18,216,3,710,0)"
^XMB(3.9,23,2,13092,0)="MX)U&O&\<2)=""L:]""TH=6D,.'3/B8A=W:76OYGOF.2^)PH$)*1S877''H1\=/"
^XMB(3.9,23,2,13093,0)="""DATA"",396.18,216,3,711,0)"
^XMB(3.9,23,2,13094,0)="M#;>Z]T+"".'#^%[Z>9,&W>2_^R_'&9WN+M2\(F2NR^C!3XIRO&2/M6DS[IJP+"
^XMB(3.9,23,2,13095,0)="""DATA"",396.18,216,3,712,0)"
^XMB(3.9,23,2,13096,0)="MAI9,<QF,<4Z6O@)&L!V;K&*(/5VRJ+-Z7V;B/;'267]DVKUL6+$*NH\\.[4-"
^XMB(3.9,23,2,13097,0)="""DATA"",396.18,216,3,713,0)"
^XMB(3.9,23,2,13098,0)="MT/%JBVUX\V-1\(5@BQ^23!AX_RZ]!=`I>EY.:&K'H-!Z4ZOLP7;7UI0]P8QK"
^XMB(3.9,23,2,13099,0)="""DATA"",396.18,216,3,714,0)"
^XMB(3.9,23,2,13100,0)="M:]>&#R^J95:+>O(3P'N5Z^0N;4#X/R8T;DD91!0DF6F<>Y=4=5GLDGI]+_XA"
^XMB(3.9,23,2,13101,0)="""DATA"",396.18,216,3,715,0)"
^XMB(3.9,23,2,13102,0)="M9.B6#B`T[=9)WG[B:KK`QXM-!3XHDD]M5QD\0#2G3J@[=7)^%*.N5_+@HIXV"
^XMB(3.9,23,2,13103,0)="""DATA"",396.18,216,3,716,0)"
^XMB(3.9,23,2,13104,0)="MW'2-RQC0S=MS2IE0HL%HQI$1C?V,M4F&BACY\,<JJE&D+B%T536.?.^Q(H;K"
^XMB(3.9,23,2,13105,0)="""DATA"",396.18,216,3,717,0)"
^XMB(3.9,23,2,13106,0)="M3AL9]-YNC\@P9@MA<9ZA=(FDI@7""2TRLZN.9T!3/^*/1C#*P2A?-O+_?[.IB"
^XMB(3.9,23,2,13107,0)="""DATA"",396.18,216,3,718,0)"
^XMB(3.9,23,2,13108,0)="M4RWLITFAP#,.W9%`U""/U"",.>Y=@=""0B[H?-)=75(>""`Y0JXWY0B1J?DWFCU*"
^XMB(3.9,23,2,13109,0)="""DATA"",396.18,216,3,719,0)"
^XMB(3.9,23,2,13110,0)="M=$<-!R!W#B^H`QX<]7F.=V[<.<R=]#+[JU`S>V-BQU[.!)Z#O2^V19E^SI(S"
^XMB(3.9,23,2,13111,0)="""DATA"",396.18,216,3,720,0)"
^XMB(3.9,23,2,13112,0)="MLQ?/86\X4W=]K+J1D1UWO>B\W.T+`E995:=;\.;/S&DRA]/Q9+B$PDE>N\A2"
^XMB(3.9,23,2,13113,0)="""DATA"",396.18,216,3,721,0)"
^XMB(3.9,23,2,13114,0)="MD]T+\7J79.?FLC<G*""6SS87*Y<A2H8/PK$S^[V0/M_3IF=GKSV'OW*,NBE05"
^XMB(3.9,23,2,13115,0)="""DATA"",396.18,216,3,722,0)"
^XMB(3.9,23,2,13116,0)="MMC3&X7E5^#?)$3@SEX-)#Q^;V@^\R68*I$GJ!IZ.IY.1_(-V_</I:#((C-$D"
^XMB(3.9,23,2,13117,0)="""DATA"",396.18,216,3,723,0)"
^XMB(3.9,23,2,13118,0)="MDH/BT+<))W5=+R_RW/FU*#=)K@LIHZ-#2OEL\F>?30<Z631HP.?U87])<KC8"
^XMB(3.9,23,2,13119,0)="""DATA"",396.18,216,3,724,0)"
^XMB(3.9,23,2,13120,0)="M$[:S%J#W=-N\4;WN>X1UJ(G;D;BR#]%B4X@FU/)BN5`B)&IHZ9E&->LJ`TS3"
^XMB(3.9,23,2,13121,0)="""DATA"",396.18,216,3,725,0)"
^XMB(3.9,23,2,13122,0)="MN(@G#PY33%""$[`(Q-ERRN!T*QXZXH`E-<S%][$_1JTM^VD2.)Z$;6_/9U61M"
^XMB(3.9,23,2,13123,0)="""DATA"",396.18,216,3,726,0)"
^XMB(3.9,23,2,13124,0)="ML>6`-F7DT[JY:[2YV\&FP99(PM'V0G7$\^R)HQSD\>>Z3)ZNVYSE)J&T0^4@"
^XMB(3.9,23,2,13125,0)="""DATA"",396.18,216,3,727,0)"
^XMB(3.9,23,2,13126,0)="MJW8!M?F8PMR![>+_D'A1M;4Q*];K(<T-;(J&G8])M=SGS<BW/[/5-KUO/YY>"
^XMB(3.9,23,2,13127,0)="""DATA"",396.18,216,3,728,0)"
^XMB(3.9,23,2,13128,0)="M.TE9KZ$$GS_[9P\,-@_#=BU$Z<_409$AST^0O$#^W.2%>D'K:RP_T7D?Y*R6"
^XMB(3.9,23,2,13129,0)="""DATA"",396.18,216,3,729,0)"
^XMB(3.9,23,2,13130,0)="M?[A*[U+B:VILRLN$@J,YC=_><3-Z^E^F-C]6AS,&L54N-PR\*3]O?$B*X1YC"
^XMB(3.9,23,2,13131,0)="""DATA"",396.18,216,3,730,0)"
^XMB(3.9,23,2,13132,0)="MC$W,L+]8R*^\5%YYY3S9%MNG+ZX=^.?E%?^!?VW_W!:?^+D1\F@(\V""(YA0&"
^XMB(3.9,23,2,13133,0)="""DATA"",396.18,216,3,731,0)"
^XMB(3.9,23,2,13134,0)="MQ6H9(3J!AM=-5U0?LMW@./R1;5?%IUY>Q?8.1'C(;IM,MV""EH5(]NEQL%T%%"
^XMB(3.9,23,2,13135,0)="""DATA"",396.18,216,3,732,0)"
^XMB(3.9,23,2,13136,0)="M^%+[K3\5OW:W2Q=X&?J^%2=""W8_<G(^1_0@^KZ_ARQ_KK$X?PS%S.#8GO38"""
^XMB(3.9,23,2,13137,0)="""DATA"",396.18,216,3,733,0)"
^XMB(3.9,23,2,13138,0)="ME""]>;YC;^&D89'&.8=?ST!GVU<53.Z#RO@GS0'9>L&*%B*N>15ZHXQ9YS#E8"
^XMB(3.9,23,2,13139,0)="""DATA"",396.18,216,3,734,0)"
^XMB(3.9,23,2,13140,0)="M7S?J[).OEY$:+&B$%+D60@+7#$\9J$>4!""L8`>1I^VT0!R,@]-N0YO9D,#A-"
^XMB(3.9,23,2,13141,0)="""DATA"",396.18,216,3,735,0)"
^XMB(3.9,23,2,13142,0)="M+>Y#KE[&ANIE3]]OTT$L""5.K>YO>C7FR*%ZF4FOPJ)??&'P`\@QM-\*-/Y'Z"
^XMB(3.9,23,2,13143,0)="""DATA"",396.18,216,3,736,0)"
^XMB(3.9,23,2,13144,0)="M%_H!ZU9M-]!GG&Z7S!M,ZIJNGL7K%8/LXIIUX;[(6>U9D>YN8#C?WM(&Z-`Z"
^XMB(3.9,23,2,13145,0)="""DATA"",396.18,216,3,737,0)"
^XMB(3.9,23,2,13146,0)="MSAH#$7ZZH4M=.S28RXK5\T.:7CQ]TTM_=]DJC\0""M:=6[3AAH&0P['A8>$>A"
^XMB(3.9,23,2,13147,0)="""DATA"",396.18,216,3,738,0)"
^XMB(3.9,23,2,13148,0)="MYK@;H3""RH1#A4%9P-""FEQ6O6FKM,FU[+GNG9MMK#>,*,"":XK?)06,:M)DL3Z"
^XMB(3.9,23,2,13149,0)="""DATA"",396.18,216,3,739,0)"
^XMB(3.9,23,2,13150,0)="MFAB$Q>[E4&HO""@)Y$=8U,=$1-3$]O@U2Z@2U6T3IS@\45`DD=_@$/:J--JA6"
^XMB(3.9,23,2,13151,0)="""DATA"",396.18,216,3,740,0)"
^XMB(3.9,23,2,13152,0)="M4PA&MT]$SN-J?+D*7ZZ^EZON70SAQV(H5EP,UY>+_W+""YL0<91,VL4G64E?N"
^XMB(3.9,23,2,13153,0)="""DATA"",396.18,216,3,741,0)"
^XMB(3.9,23,2,13154,0)="M(0GQ)*-""%YGWS33WT!3W!)1!%6&P0Q<T<T$$`S2!DO>UA:.&A1A:V3B]B;O["
^XMB(3.9,23,2,13155,0)="""DATA"",396.18,216,3,742,0)"
^XMB(3.9,23,2,13156,0)="M3U.,88PPU/C""=._9Q^M*^&'F(Q]Z<(&'G$BQ8""&>8&$TV@[8IT$XWTEE(CH+"
^XMB(3.9,23,2,13157,0)="""DATA"",396.18,216,3,743,0)"
^XMB(3.9,23,2,13158,0)="M$[_/DK)<IXF1?485/I2G@25/R01/0_$T\:;T4L-2[RPL_0&VW^7X24S\[-.S"
^XMB(3.9,23,2,13159,0)="""DATA"",396.18,216,3,744,0)"
^XMB(3.9,23,2,13160,0)="M6,W5&JR=[\O63H$)Z0)JGH^=^1U+Q6JMWO@)<>W<%<7**;N.!HX3;Y,<8)OV"
^XMB(3.9,23,2,13161,0)="""DATA"",396.18,216,3,745,0)"
^XMB(3.9,23,2,13162,0)="M^9_W3E47T`?]I*I3@,\!;1Y2L8N7>9'4_$SDQ8\)]R""AUFI9;&Z+LN88GNRI"
^XMB(3.9,23,2,13163,0)="""DATA"",396.18,216,3,746,0)"
^XMB(3.9,23,2,13164,0)="M!S?\_CO]K/BP7_;5DOJURS+9[+C'ODXJZH>4^ZP2/OVR``@I?I[PXE?&DIL\"
^XMB(3.9,23,2,13165,0)="""DATA"",396.18,216,3,747,0)"
^XMB(3.9,23,2,13166,0)="MVZZ$L>F+/QIFL3'8K=1-*>.QA+'^5;548#15K$L46VQA;]86EGT2JZ,E.,L6"
^XMB(3.9,23,2,13167,0)="""DATA"",396.18,216,3,748,0)"
^XMB(3.9,23,2,13168,0)="M;N3.[6%-`OA,.]N8""Y:#>`O^^[..)?>0HSTZ""_^[??;52L""?S)YH01CQD#QI"
^XMB(3.9,23,2,13169,0)="""DATA"",396.18,216,3,749,0)"
^XMB(3.9,23,2,13170,0)="M4)#Z@@<L)4\:7).'G#PA^O#2D#O!@0""X*'M8,;9.GOR8Y+E#E[L"".KZQ]`D."
^XMB(3.9,23,2,13171,0)="""DATA"",396.18,216,3,750,0)"
^XMB(3.9,23,2,13172,0)="M#.D3L6T^E(-#Q1+$=OF3KO40?EX6-(!EL'7,;Q<3*==MJ7.=B?`@U\Z6F>)K"
^XMB(3.9,23,2,13173,0)="""DATA"",396.18,216,3,751,0)"
^XMB(3.9,23,2,13174,0)="MYV-K$JZ=3QFEBCX'_BWVM?._;76IFF81(%`.3[E@/<2:'PGG5ZC@X_C3.9<7"
^XMB(3.9,23,2,13175,0)="""DATA"",396.18,216,3,752,0)"
^XMB(3.9,23,2,13176,0)="M5.6@$VZU+QM<ER>KY+ZZ.BSOHH<B#4,Q^)#@4$ALCV_W'U07&=(8`]1B4KV#"
^XMB(3.9,23,2,13177,0)="""DATA"",396.18,216,3,753,0)"
^XMB(3.9,23,2,13178,0)="MW7+3[I9L^[_[\O[:N6V@:Q2\&EX>5!T8;MM[&KPER_6U\_V>:LIVOVE@:-Y"""
^XMB(3.9,23,2,13179,0)="""DATA"",396.18,216,3,754,0)"
^XMB(3.9,23,2,13180,0)="M*HIZ2U0_7JS6Z>#^C:1L0D,;DYCZZ+5Y@-TX.&7CGR!E$YHS-L*NC*2$<)]Z"
^XMB(3.9,23,2,13181,0)="""DATA"",396.18,216,3,755,0)"
^XMB(3.9,23,2,13182,0)="M&DO9>+8I&_RUIVPB$YND;2BSJ0]Q1MD4'9.PF0QF3L&MJZE:2X:/IJVU1&(_"
^XMB(3.9,23,2,13183,0)="""DATA"",396.18,216,3,756,0)"
^XMB(3.9,23,2,13184,0)="MG-P0%\2JH5)WP-NBJI\6.T@U`4Q=9>R/\XS5@L14E2F5&_O*A;9O""?S0'SY'"
^XMB(3.9,23,2,13185,0)="""DATA"",396.18,216,3,757,0)"
^XMB(3.9,23,2,13186,0)="MU#028Q=?X'Y5=)KJ]7#L?55TFA!3/!Q\572:0%)\/_R:Z/1<6SICA4[/LK:Y"
^XMB(3.9,23,2,13187,0)="""DATA"",396.18,216,3,758,0)"
^XMB(3.9,23,2,13188,0)="MNPHZAIV1K=B_+)F![2[ZLF026Z/T9<E$=A;^""Q$IYD+""R8)AN8!1+6/UU78E"
^XMB(3.9,23,2,13189,0)="""DATA"",396.18,216,3,759,0)"
^XMB(3.9,23,2,13190,0)="M$FBJ4MSS%@R_&HNM=/7""WMEQ7V:T1H?3^#O^I""AT33M:201GE<3W=AV[7PAN"
^XMB(3.9,23,2,13191,0)="""DATA"",396.18,216,3,760,0)"
^XMB(3.9,23,2,13192,0)="M1V1[-,5V3^F5.ICMR#\KV^6$X669'L]@^F3SM.^=C.EN_.7;>L_&=(1M@),0"
^XMB(3.9,23,2,13193,0)="""DATA"",396.18,216,3,761,0)"
^XMB(3.9,23,2,13194,0)="M,@,GR4.8(AM0#BUPDNM=""`[M^R3+!5""D/]+T3_&57R#UE=_#:9`#WEQQ2PV2"
^XMB(3.9,23,2,13195,0)="""DATA"",396.18,216,3,762,0)"
^XMB(3.9,23,2,13196,0)="M'<I4TW-N&(\D.QK'L""L\GEW>5\""N,=0RV7T\@EV(',^N\""M@UPB&F1(4',.N"
^XMB(3.9,23,2,13197,0)="""DATA"",396.18,216,3,763,0)"
^XMB(3.9,23,2,13198,0)="MX`2;T?T*^!6;^:7$>L?PRST!O\B7YQ=+@-GRJQT<<!C#3H`BB*SLES1/5C=-"
^XMB(3.9,23,2,13199,0)="""DATA"",396.18,216,3,764,0)"
^XMB(3.9,23,2,13200,0)="M5JCVFE0I;X:!YT`OYUOX$^""#^E^$0]C:7SB*/_Z%@""A/QA_1BYWN_HO\DX4."
^XMB(3.9,23,2,13201,0)="""DATA"",396.18,216,3,765,0)"
^XMB(3.9,23,2,13202,0)="MYVW^$VL]9K7[G=:WM>L""#*RT.)CAF1RCQ\@[L!UP6KVC+[+]HQD^RL&,PZX7"
^XMB(3.9,23,2,13203,0)="""DATA"",396.18,216,3,766,0)"
^XMB(3.9,23,2,13204,0)="MGX]Q"")V5<]-U1[/*CN19CRCR)\J.,""&]23AMV=%/2=6B-]RP_@%GN2[R='E?"
^XMB(3.9,23,2,13205,0)="""DATA"",396.18,216,3,767,0)"
^XMB(3.9,23,2,13206,0)="MU72IQ>;^+#7&KAU3XSE,#:-#F$K.PM0!$F.GOT*\7*DLFJS:PKJJK>;H:M55"
^XMB(3.9,23,2,13207,0)="""DATA"",396.18,216,3,768,0)"
^XMB(3.9,23,2,13208,0)="M&)WK-QN00Q*-'T?G*I5<GKY@)=87(Z%8P`:2-1G;C\Y]LZWJ<L]&KE7?2`57"
^XMB(3.9,23,2,13209,0)="""DATA"",396.18,216,3,769,0)"
^XMB(3.9,23,2,13210,0)="MK""]%(L+NE_L+/,^UK]]JRXMO6!V+\]W+/3TGNK'UWT&O&^NY2JEQS*$@&/JP"
^XMB(3.9,23,2,13211,0)="""DATA"",396.18,216,3,770,0)"
^XMB(3.9,23,2,13212,0)="MFC<KRJLD$\9.I6R^)1NFF-UF]+?5'K8MFW3`%0<]J:Z>.1_6,`6O>53SZ$]"""
^XMB(3.9,23,2,13213,0)="""DATA"",396.18,216,3,771,0)"
^XMB(3.9,23,2,13214,0)="M+5B>PY\!JOTP@+*;R?K=]^T@T('03ZQZ^1JF8^V2DM+)/ZL9O_==^V'Z2""!J"
^XMB(3.9,23,2,13215,0)="""DATA"",396.18,216,3,772,0)"
^XMB(3.9,23,2,13216,0)="ME=;TL>GJ^7=.Q7@`C`%""#IE-%4<6<HJD:GL/$?M:K%9.FJ53&='?`4XHJ1.G"
^XMB(3.9,23,2,13217,0)="""DATA"",396.18,216,3,773,0)"
^XMB(3.9,23,2,13218,0)="M3.^2<@4+[.54TC_]*`Q?W-;=``H0BU/?[]*#5AU;K+KO(.@;AY4""+(MEOTL_"
^XMB(3.9,23,2,13219,0)="""DATA"",396.18,216,3,774,0)"
^XMB(3.9,23,2,13220,0)="M9NDGYWM^`BQ;.GL9*LC@GO#VWDE@FF72E""-6^QM^V9NLAA%FP*:)*:N^H:71"
^XMB(3.9,23,2,13221,0)="""DATA"",396.18,216,3,775,0)"
^XMB(3.9,23,2,13222,0)="M&]MVTX5U""S3UO;'%]\IJ9/&]>.)[`]?B>Q5!6GPQ>395Q(<,(]6D[_8F1ZKA"
^XMB(3.9,23,2,13223,0)="""DATA"",396.18,216,3,776,0)"
^XMB(3.9,23,2,13224,0)="M2PZGU(WY:B;/Z:J]`\EM:""L4']T&P6WP];H9&=P&L0`\FIP^;70;?DEAHFSN"
^XMB(3.9,23,2,13225,0)="""DATA"",396.18,216,3,777,0)"
^XMB(3.9,23,2,13226,0)="M_+;+MJPD]]>B9EW>K]F1E997WX@S$>H+AB-I/K,\Q#)&]MWT[%2G5""7.A@8/"
^XMB(3.9,23,2,13227,0)="""DATA"",396.18,216,3,778,0)"
^XMB(3.9,23,2,13228,0)="M<'A3YM;-K,K;K)ETN\Q*:L2K.MDNFTIQ>+':I4OJ,P@5PVP$.$PM9Y/!\V1["
^XMB(3.9,23,2,13229,0)="""DATA"",396.18,216,3,779,0)"
^XMB(3.9,23,2,13230,0)="MMX?::?H7WRTAB;-R;N[;4<C['%R3[_IOW10KX5G,&X'RXZ(5<OOHRKE)X$'T"
^XMB(3.9,23,2,13231,0)="""DATA"",396.18,216,3,780,0)"
^XMB(3.9,23,2,13232,0)="ME>3NKJ2>QC!:?-Y9&(46S.VST,JHEC$CFEPY_]/\1YDKK#P9UMY]A/TW;NVC"
^XMB(3.9,23,2,13233,0)="""DATA"",396.18,216,3,781,0)"
^XMB(3.9,23,2,13234,0)="MR(94+,]1<-UI4F]X4C<T_J,>U9]I?G\2LF,;LJ-HJM-=0W;*DPTCHTWDVE,;"
^XMB(3.9,23,2,13235,0)="""DATA"",396.18,216,3,782,0)"
^XMB(3.9,23,2,13236,0)="MNS;4!A*<@.?/&#^_XJEFMR<MLY-F$4_8:VP6J^_^PW>91YC<9'E6WU_1)?(;"
^XMB(3.9,23,2,13237,0)="""DATA"",396.18,216,3,783,0)"
^XMB(3.9,23,2,13238,0)="MY.CE8IOE>DJD$M@O=\DO-Z&:E4+S1R*OVGFB7>R^DB*58Q;KV1A2>:\3;X9L"
^XMB(3.9,23,2,13239,0)="""DATA"",396.18,216,3,784,0)"
^XMB(3.9,23,2,13240,0)="M;_O%OJ'$;V%A[91Q*E""Z_JRJ]FG?$@-OE34+M0IG`[D7?K%@6_<YLVSCZ\(V"
^XMB(3.9,23,2,13241,0)="""DATA"",396.18,216,3,785,0)"
^XMB(3.9,23,2,13242,0)="M.AMY\K3(&5',VYP!I``.:.K<%_L2A@XO\SWK]W#VT#WK0,]L>RHTC27P8IY"""
^XMB(3.9,23,2,13243,0)="""DATA"",396.18,216,3,786,0)"
^XMB(3.9,23,2,13244,0)="MY\F],(Z^3)?%W3;[BPISMR[I<T<&^#;UBC:&3SG_/-_^_'N=-?./`2ZR7=YF"
^XMB(3.9,23,2,13245,0)="""DATA"",396.18,216,3,787,0)"
^XMB(3.9,23,2,13246,0)="MEZ=TL=W!0W6N""3=IT.+0HW'33,5B0LV%,XLJ=W;K)#NJR+LR8S$X#7/Z![)3"
^XMB(3.9,23,2,13247,0)="""DATA"",396.18,216,3,788,0)"
^XMB(3.9,23,2,13248,0)="M$_C8S'*FSX5#CT9`6=W,B!;U'32^.^K@3[NS]1""P%&P8((0#<1QV2*:<]O""2"
^XMB(3.9,23,2,13249,0)="""DATA"",396.18,216,3,789,0)"
^XMB(3.9,23,2,13250,0)="M3GND2_9%7(]F$^`,`%>!.)[7??3:5:\],$24VIT6CR)>S1@P_WL&*+GOL[MO"
^XMB(3.9,23,2,13251,0)="""DATA"",396.18,216,3,790,0)"
^XMB(3.9,23,2,13252,0)="M)M-'#$A7WIAM""BQ<L@_IAJ7@]V4Z;AT-2%,B!?*6QM,'^.+M/J^FOCNR^&XE"
^XMB(3.9,23,2,13253,0)="""DATA"",396.18,216,3,791,0)"
^XMB(3.9,23,2,13254,0)="M`1%:.,\P6S<K$X;W^JZ[[S+3$5O0@3M,J.%DGZ:C@7>82/\8TC!B0Q>6>SJ)"
^XMB(3.9,23,2,13255,0)="""DATA"",396.18,216,3,792,0)"
^XMB(3.9,23,2,13256,0)="MC0R*_79537P]LEF\%TVT4QH7[]#MN;T[3W,U.FC#'K95?5-+NGCXR1>=RARZ"
^XMB(3.9,23,2,13257,0)="""DATA"",396.18,216,3,793,0)"
^XMB(3.9,23,2,13258,0)="M;HBCQH]H&?9S01WX)W3[+B'C2YVB3P-(""/,$*.$LMH:C/<^V-(YYDD""+,7_V"
^XMB(3.9,23,2,13259,0)="""DATA"",396.18,216,3,794,0)"
^XMB(3.9,23,2,13260,0)="MTY""Y_;,V?8Z=^Q2@(W?4@4I7C<L%0J#/;Q'LKL;:([]ZP<T+W'UBR""^=7IP_"
^XMB(3.9,23,2,13261,0)="""DATA"",396.18,216,3,795,0)"
^XMB(3.9,23,2,13262,0)="M`H2@1IQW\/JC.$\C3M_F)/$EWR.TP$M\F0,Z$1OJ/7F6^H:DI1>(9$CQL`6"""
^XMB(3.9,23,2,13263,0)="""DATA"",396.18,216,3,796,0)"
^XMB(3.9,23,2,13264,0)="MP#\FOMCF$$>QI,S$8OD_#0?8W]IXAP;)^.>6C,W9W@.7])+!TU_\9KM<IU-H"
^XMB(3.9,23,2,13265,0)="""DATA"",396.18,216,3,797,0)"
^XMB(3.9,23,2,13266,0)="M""0B9`""YCP<.4,U*AJ9)D.F9#[A%P"":]760VB@G]'5-F7S7(X""6P9(M]?V)?E"
^XMB(3.9,23,2,13267,0)="""DATA"",396.18,216,3,798,0)"
^XMB(3.9,23,2,13268,0)="M``'1-""%1.)L0^A&T&""E:T1""""W&E*$/;GDQ)YP<(>#I&1@G2D!**SB.()5U4G"
^XMB(3.9,23,2,13269,0)="""DATA"",396.18,216,3,799,0)"
^XMB(3.9,23,2,13270,0)="M';PX%$0PG""B:<HEXU1'(C)+)(Q)Y`79/B<O85T""1K\ZLVB*#@(O*8^UE6Q%7"
^XMB(3.9,23,2,13271,0)="""DATA"",396.18,216,3,800,0)"
^XMB(3.9,23,2,13272,0)="M2SW-Y2Z5,1008@1+""<2XV)6],V*A:-XQ*""#1%)_^K\-U6BSXGS'W,^%^]MPF"
^XMB(3.9,23,2,13273,0)="""DATA"",396.18,216,3,801,0)"
^XMB(3.9,23,2,13274,0)="MC3<*YMIRPS,BV@;1""5A#CF%-_&58PZP2T5FE>!SV4JF7TMA'XBWLH3@9)9Z."
^XMB(3.9,23,2,13275,0)="""DATA"",396.18,216,3,802,0)"
^XMB(3.9,23,2,13276,0)="M$N2?@!2RL(<(9*3@:5.M7)Q-FNIPJ""""=A93GZ]*P#?:1-@W;U+L,:5CD/W2H"
^XMB(3.9,23,2,13277,0)="""DATA"",396.18,216,3,803,0)"
^XMB(3.9,23,2,13278,0)="MO-!P06JXOA%C#AD)'-E#Y?V:%KL\J6#H;'=#P][Y1E*P!K0\,3*(9'.*+4*#"
^XMB(3.9,23,2,13279,0)="""DATA"",396.18,216,3,804,0)"
^XMB(3.9,23,2,13280,0)="M[[/D;EM465/NL*=FS'F2?DZ6]=7$C54869#4QRZ#B;>A""6Z46(Z@H^W)9O./"
^XMB(3.9,23,2,13281,0)="""DATA"",396.18,216,3,805,0)"
^XMB(3.9,23,2,13282,0)="M>_K?)%&Q#5'*13RVR-;""G+6*W7.M*'D-NZ#^E%4\/LG@JI!E.&@$?I>6DY3&"
^XMB(3.9,23,2,13283,0)="""DATA"",396.18,216,3,806,0)"
^XMB(3.9,23,2,13284,0)="MR(+2?AY0/Q'4(JO>@)$OBPU0-G7O&!MR^T@(O;`2R[C>](2$3HPY7(9SO!)E"
^XMB(3.9,23,2,13285,0)="""DATA"",396.18,216,3,807,0)"
^XMB(3.9,23,2,13286,0)="M:3C(YR16O-""""E^H:?&(QY0&V`I-XOY)D6V?;QMS`P`=N8:O5M;/97#LG6UT3"
^XMB(3.9,23,2,13287,0)="""DATA"",396.18,216,3,808,0)"
^XMB(3.9,23,2,13288,0)="MDS*8)5U\[(N>IMQJH<3']FB""X9'AL=;5P5B\@XW05$&]XF%$(<9C?-6>]J-Q"
^XMB(3.9,23,2,13289,0)="""DATA"",396.18,216,3,809,0)"
^XMB(3.9,23,2,13290,0)="M63`>EQ&1Q7(+0""!3[,G`Q&$8QF=I9OFCZ1!J;?8FR;.[+55-M86%S.U6Z7_N"
^XMB(3.9,23,2,13291,0)="""DATA"",396.18,216,3,810,0)"
^XMB(3.9,23,2,13292,0)="M)D?.Z!2""F5K,T1V&:VEW8RR=""SB6;U@]3^%D#_%\VN,<:XYS=6*6-A0U3LM:"
^XMB(3.9,23,2,13293,0)="""DATA"",396.18,216,3,811,0)"
^XMB(3.9,23,2,13294,0)="M3(6:HW.R;',N6N=9.NR4^2H*I]4@*T+AC)0+B)K5YTS(',L33%12>L]^((4$"
^XMB(3.9,23,2,13295,0)="""DATA"",396.18,216,3,812,0)"
^XMB(3.9,23,2,13296,0)="M#T_HH]%;,""WT0TQK&,7$TK1ZH[L?3VL""D>^)-=L_4NCK<Z,/2!.""R9@5:6+6"
^XMB(3.9,23,2,13297,0)="""DATA"",396.18,216,3,813,0)"
^XMB(3.9,23,2,13298,0)="M@`M9([%+,)8BUO""A1ZR1H2#/U'<BYOCE0,(^8OVIJ'90*I3]U<!2`P!U$SJ<"
^XMB(3.9,23,2,13299,0)="""DATA"",396.18,216,3,814,0)"
^XMB(3.9,23,2,13300,0)="M1<O]RT.\&R(<H=#*]Z8&$.GN^UK6L6@L+Y:,@5,%EMB""FCB02XA""NVCU.0T1"
^XMB(3.9,23,2,13301,0)="""DATA"",396.18,216,3,815,0)"
^XMB(3.9,23,2,13302,0)="M[JGSS[#>@2JX]X8:2>9`L6I>*);\G&T@DH!P8HI<SX)<I(QOPIY-V5%2-?K&"
^XMB(3.9,23,2,13303,0)="""DATA"",396.18,216,3,816,0)"
^XMB(3.9,23,2,13304,0)="M:D%9,QK3NPF2@MB"")+G^R$/QC(&'E*8T6:X=:GR@</0VR_.NE*!A9+:]+<H-"
^XMB(3.9,23,2,13305,0)="""DATA"",396.18,216,3,817,0)"
^XMB(3.9,23,2,13306,0)="MD_=UVUKX7>NE?N?<""H#])?]A5G[=/`*DL]M7ZZ9*=7^SR;H6TT,`^8D-3SSY"
^XMB(3.9,23,2,13307,0)="""DATA"",396.18,216,3,818,0)"
^XMB(3.9,23,2,13308,0)="MM/,M\@WO]YM-TDP""!V#[M6@NFDQ$([@LK=J%U.EJ0HB8Z.U:WT)AF,#2`TR,"
^XMB(3.9,23,2,13309,0)="""DATA"",396.18,216,3,819,0)"
^XMB(3.9,23,2,13310,0)="M!<O_T90@4#O&N%H73K):@9@8B6U;9[NN@XI[L:&X%[NC?J9:)NUI`F&Z8T\["
^XMB(3.9,23,2,13311,0)="""DATA"",396.18,216,3,820,0)"
^XMB(3.9,23,2,13312,0)="M"";%M(S15)+MB_60P%;UWP>=T]!X<&;UKKP=$G0[ESEDT>75#W""A<S(LD]:ZD"
^XMB(3.9,23,2,13313,0)="""DATA"",396.18,216,3,821,0)"
^XMB(3.9,23,2,13314,0)="M:`/E%)D5)3%^>*[D:/S&8'JF6.T3V;@'4W.9$/$?8/SF312\$""N3@.)@ODEH"
^XMB(3.9,23,2,13315,0)="""DATA"",396.18,216,3,822,0)"
^XMB(3.9,23,2,13316,0)="M;.]IYX,P!0FG%03+M6NJ@L1*6#=4FCP@!0DG#CJ#@A""Q'RB8ZCS'2MUGG],S"
^XMB(3.9,23,2,13317,0)="""DATA"",396.18,216,3,823,0)"
^XMB(3.9,23,2,13318,0)="MS7H]XJ3#GA75O2MQ$K+)"";IO`MVUK\?%T)XX7MX5KWW;9J*''$3'ALX1_7!Y"
^XMB(3.9,23,2,13319,0)="""DATA"",396.18,216,3,824,0)"
^XMB(3.9,23,2,13320,0)="M--9J$WGV(716L>8)ZB)_*)/])GE277TCP;-AM+IH;J/)$:GZ:\SK/FCN[S.["
^XMB(3.9,23,2,13321,0)="""DATA"",396.18,216,3,825,0)"
^XMB(3.9,23,2,13322,0)="M>W/&QN=_YU+:UA:9[LR0V`F+)[UN;]3K_AN4J)_(QC,G(-(Y`:)6*L&N,H=^"
^XMB(3.9,23,2,13323,0)="""DATA"",396.18,216,3,826,0)"
^XMB(3.9,23,2,13324,0)="MT-/!""0C<A^<$N%/GD@X""KJU5X""MFI""3ZP&=35^C`NI^S3?KW.&*:$%^3T-!G"
^XMB(3.9,23,2,13325,0)="""DATA"",396.18,216,3,827,0)"
^XMB(3.9,23,2,13326,0)="M&:6R.GDD=S1]QKQ]]]O;U^\^O'G]_ENI(3*4>H@8F%+^SB93114<FN3_$_5%"
^XMB(3.9,23,2,13327,0)="""DATA"",396.18,216,3,828,0)"
^XMB(3.9,23,2,13328,0)="M=W_?'@POL&!2(*E39-.BPPSMA_1S_9]#8=KHQ8YF\X?<WO=%'""<W.`F.T[?C"
^XMB(3.9,23,2,13329,0)="""DATA"",396.18,216,3,829,0)"
^XMB(3.9,23,2,13330,0)="MDS99'TW*UM3_A,<N=N+8VBOE$K<=K-_[!D)HV7FL?W^+TJBS8<PI]D4_-0Q."
^XMB(3.9,23,2,13331,0)="""DATA"",396.18,216,3,830,0)"
^XMB(3.9,23,2,13332,0)="MEMH\VH/Q=1X,$?/'4DCB>\KE>3^J=O!@,'[T8%0CYNJLF!&-SF^:6@8^1P_>"
^XMB(3.9,23,2,13333,0)="""DATA"",396.18,216,3,831,0)"
^XMB(3.9,23,2,13334,0)="MBF&#%3/$A^)A/M5#9#9B+_)EL2YRYU]5^H\7-_MO9NZXH<52K$Z1BV<LH*`6"
^XMB(3.9,23,2,13335,0)="""DATA"",396.18,216,3,832,0)"
^XMB(3.9,23,2,13336,0)="MWZ?5LLP`$K;E'.49N_<%YCV?ZH#T31=;D=@5%IVN`_)(0TJT=S,B(^7B;T_U"
^XMB(3.9,23,2,13337,0)="""DATA"",396.18,216,3,833,0)"
^XMB(3.9,23,2,13338,0)="MNR.B3$#&P:,AY;E-/W:3K@#Y\:8H_H2-+[[""!X>#817L:M@XBUR5JMO:F6D>"
^XMB(3.9,23,2,13339,0)="""DATA"",396.18,216,3,834,0)"
^XMB(3.9,23,2,13340,0)="M]Q\:F%PS/Y9_4[:$W>OF3=U]0N0U;_D(IW>PY+?)72I>/HB7[&J9B.!LC?&T"
^XMB(3.9,23,2,13341,0)="""DATA"",396.18,216,3,835,0)"
^XMB(3.9,23,2,13342,0)="M%5/Q&8ZK_A=IZ((TD\:5!RZ$GCIPP7/[""1T_%>5?O3H\^U!2185V`7%`""""C("
^XMB(3.9,23,2,13343,0)="""DATA"",396.18,216,3,836,0)"
^XMB(3.9,23,2,13344,0)="M\*%W@$G""GN+J/V!XR@NH!::O)3G=QE0O^]?W=='\L3S*03XVH9&R>\]F&XYM"
^XMB(3.9,23,2,13345,0)="""DATA"",396.18,216,3,837,0)"
^XMB(3.9,23,2,13346,0)="M1&-`9V'X#1O2O.%TR%R&*>6>,J1<)^RA7YA[J0\+2#B\.!BU&`VOVG%OG'\C"
^XMB(3.9,23,2,13347,0)="""DATA"",396.18,216,3,838,0)"
^XMB(3.9,23,2,13348,0)="M'+3BH9&+8WS4#_C1-G<IHW9UDXJXV,KE7^MYZ0;\RTJ=B3(MA\O^-VGKKL(D"
^XMB(3.9,23,2,13349,0)="""DATA"",396.18,216,3,839,0)"
^XMB(3.9,23,2,13350,0)="M!Q?FV@%4/N<F3U:P!,K67;(%P/CJGPOAZ]4""E.:_?CK+Q``B;)P_Q`<8*A<0"
^XMB(3.9,23,2,13351,0)="""DATA"",396.18,216,3,840,0)"
^XMB(3.9,23,2,13352,0)="MTK(!(3T;B""^\W,<=`8F$]9CG$DW,)C+-)S)SO6V""V8@,U0PGFA@`HYE&I$PD"
^XMB(3.9,23,2,13353,0)="""DATA"",396.18,216,3,841,0)"
^XMB(3.9,23,2,13354,0)="M,HU<M)<3.5!.8:`3$[_%>2FY!BFA^`)2N@3G\7S.HT,YK]T?D8'S6,]Y/\!?"
^XMB(3.9,23,2,13355,0)="""DATA"",396.18,216,3,842,0)"
^XMB(3.9,23,2,13356,0)="M:G^LU0K?MM+R""^P8UT9N[=V9%(R(L_F0KTH*$YVH`E]OT'T#Z]ZE,))G*RS*"
^XMB(3.9,23,2,13357,0)="""DATA"",396.18,216,3,843,0)"
^XMB(3.9,23,2,13358,0)="M]OB<.D!'CU#+0W3D&!T_2/7#=:W""+SN)D=D2$W?1*26FUF:<=*G>[*5*)^J9"
^XMB(3.9,23,2,13359,0)="""DATA"",396.18,216,3,844,0)"
^XMB(3.9,23,2,13360,0)="MUNJ?=*V2`?4/]3$\7^MJ88./X6EM*`W)_2]E0[ELRC]8*N6:^G$P[*<$4+DJ"
^XMB(3.9,23,2,13361,0)="""DATA"",396.18,216,3,845,0)"
^XMB(3.9,23,2,13362,0)="M'1H>+VA+`WMU1?/5-7`OH*[A<>K*_:B-K:)9L96/K$,KGXLG^,O:;J#0*QC\"
^XMB(3.9,23,2,13363,0)="""DATA"",396.18,216,3,846,0)"
^XMB(3.9,23,2,13364,0)="MU`Q[>C,,>[JY9Q,S%MK8!HW%-@$>B6T""36P3:[U%K>P0,<@./5O8:%A#()E'"
^XMB(3.9,23,2,13365,0)="""DATA"",396.18,216,3,847,0)"
^XMB(3.9,23,2,13366,0)="M8.R=@$`\AT!O'H$]ZMM1%!([""MM-.N[Q1!HQ$WT(ZUI$!<*E,#?2S/F9FKU'"
^XMB(3.9,23,2,13367,0)="""DATA"",396.18,216,3,848,0)"
^XMB(3.9,23,2,13368,0)="MYV>^\Q/,E5X4G$1Z\KRSZD+""PU](>/@,PHOGR@ZA^""3""TTUM^\;E=PYWG+BS"
^XMB(3.9,23,2,13369,0)="""DATA"",396.18,216,3,849,0)"
^XMB(3.9,23,2,13370,0)="M!1B>1'Z:B9K?JM%TS^NKL3MZH[/6-R\.$GRJ<]=\3^.N<=<?)DW4M;[&(QZ#"
^XMB(3.9,23,2,13371,0)="""DATA"",396.18,216,3,850,0)"
^XMB(3.9,23,2,13372,0)="M*`6IP5)V(?4Z%1A\9BD`>/)J71;;;-GDDSO`:J=!>DHK9YWNJ-6HL\IY><W]"
^XMB(3.9,23,2,13373,0)="""DATA"",396.18,216,3,851,0)"
^XMB(3.9,23,2,13374,0)="M\NK:6;(_Y+I1^[%AR9+-&^X_?>TD^[IPLLUFOQ5>7J>;`AZS26H`P+IV5N7^"
^XMB(3.9,23,2,13375,0)="""DATA"",396.18,216,3,852,0)"
^XMB(3.9,23,2,13376,0)="M3GWBTVR[VB^IA\O]:4-N!PBSO+]VTGKY[!J:7)WT<TO\348U<K77T%C#2EEP"
^XMB(3.9,23,2,13377,0)="""DATA"",396.18,216,3,853,0)"
^XMB(3.9,23,2,13378,0)="MUQ?3'YPI;PNN\$QY$E_KI&)3:CRVE&=6EFL&)];+<-F_U(+&-7<'NS)C)5PP"
^XMB(3.9,23,2,13379,0)="""DATA"",396.18,216,3,854,0)"
^XMB(3.9,23,2,13380,0)="MHPG^91]3>=5(IGD&0$'MUJ`@T%""]S-.R8"".#8&YWLKUKA0W]ZH-XU""<R@1W-"
^XMB(3.9,23,2,13381,0)="""DATA"",396.18,216,3,855,0)"
^XMB(3.9,23,2,13382,0)="M]M8TCV:%-/<RR-7[10199`LXT_PC7+R\;""]>OF^W#8>0)@[?OEI<T-T@WER>"
^XMB(3.9,23,2,13383,0)="""DATA"",396.18,216,3,856,0)"
^XMB(3.9,23,2,13384,0)="M&#S]N3QYVUP^@9:T'+EDTHSX,Y>-77R297<FE%453:W<.T>Z,)RY<H+\TZR\"
^XMB(3.9,23,2,13385,0)="""DATA"",396.18,216,3,857,0)"
^XMB(3.9,23,2,13386,0)="MMRRPZ7_IK?%E\H?-7_EHKK:?1NJ-M*?7[)YCS7CFFO49FP/7_*&D;N"".&OQZ"
^XMB(3.9,23,2,13387,0)="""DATA"",396.18,216,3,858,0)"
^XMB(3.9,23,2,13388,0)="M<9X(>,J9(V.^G.\JJ;>G6./+>6B&+^>-)G_&2@,\6P5$XLO3V9\&`K.BZ@=5"
^XMB(3.9,23,2,13389,0)="""DATA"",396.18,216,3,859,0)"
^XMB(3.9,23,2,13390,0)="MUS!3?-VDE)];9858H7`LU+=-$8ZC.1YH/\I`S+1C@HG_Q8-0M2AN,I0Q%LA)"
^XMB(3.9,23,2,13391,0)="""DATA"",396.18,216,3,860,0)"
^XMB(3.9,23,2,13392,0)="M97(V@<]HR9SEM>9DR#,K/?W4.CW-5[9\&X4_[KBQ=>$_,CL%X,Y*`03&%,Z2"
^XMB(3.9,23,2,13393,0)="""DATA"",396.18,216,3,861,0)"
^XMB(3.9,23,2,13394,0)="M^L:5TZ1ROO'DS:F2`.T/8EGO0>65;]?W%9M.SEVM6!59HB.*+%VEQ-(]HL#R"
^XMB(3.9,23,2,13395,0)="""DATA"",396.18,216,3,862,0)"
^XMB(3.9,23,2,13396,0)="ML7[RB/K)<,R(\EZTT.<O5,RZD<:(DBA^*%:TR8_$8_D1R57H$B1:-\GWY[E)"
^XMB(3.9,23,2,13397,0)="""DATA"",396.18,216,3,863,0)"
^XMB(3.9,23,2,13398,0)="MKS]FJW2[9""F+75$""HM[ZGL;E=;J%ALY_VE_RH=B;F>,Q5&4@/S[6U=MU=NDV"
^XMB(3.9,23,2,13399,0)="""DATA"",396.18,216,3,864,0)"
^XMB(3.9,23,2,13400,0)="MVT*^H7I^FC16/';3ZGO$6DSD8&^6I:F$=.0_YUQSCN?J79V0]#**+$KP^`9A"
^XMB(3.9,23,2,13401,0)="""DATA"",396.18,216,3,865,0)"
^XMB(3.9,23,2,13402,0)="M923NF4-!J7R&P18<4C^CKU1&4IW,5/E,%,47+9_AM_4FR;=[ZI?7TGZ^4*4,"
^XMB(3.9,23,2,13403,0)="""DATA"",396.18,216,3,866,0)"
^XMB(3.9,23,2,13404,0)="MFA&XCZ?FL""J=0+N]PNBDA3+XK(H9VRBF5/(ZKIKA3-7T+JJ:;RHGN5D5FVQ+"
^XMB(3.9,23,2,13405,0)="""DATA"",396.18,216,3,867,0)"
^XMB(3.9,23,2,13406,0)="M#4)*_49G""Q""=^1=033)#-4<K#'#H?B'=/&W""]+=W4(#2.G;]+[8NB4$???V5"
^XMB(3.9,23,2,13407,0)="""DATA"",396.18,216,3,868,0)"
^XMB(3.9,23,2,13408,0)="M3>`:]#$6J[5??Z:^R""I=O4]S(%2CD]J!7W;Z(DR+:U][OZ?^#W4D,D`7[C7U"
^XMB(3.9,23,2,13409,0)="""DATA"",396.18,216,3,869,0)"
^XMB(3.9,23,2,13410,0)="M8YIM%=UZO\O3;;%)[Y+\7M2R7_9YG?4DR]ND\1EAI[7K5E,@(^^94L:PV`_9"
^XMB(3.9,23,2,13411,0)="""DATA"",396.18,216,3,870,0)"
^XMB(3.9,23,2,13412,0)="M;G""!_Z#>3_%)$%^QO0.IJH^U4(IH0BFT#I#)2)&92N%^6:5XF^2;I'32\KY>"
^XMB(3.9,23,2,13413,0)="""DATA"",396.18,216,3,871,0)"
^XMB(3.9,23,2,13414,0)="ME^DFD=__[V1//<VEJDR[#""0%UW]PD9M\$2T)+J`ED""?U(G/""5!L`$'T)>H@,"
^XMB(3.9,23,2,13415,0)="""DATA"",396.18,216,3,872,0)"
^XMB(3.9,23,2,13416,0)="M-A*;M`,]IDSGI$S#2R6(/J157<U)#.''Q-#?.3'4H$RYKAHF]Q@[%DDAX;)'"
^XMB(3.9,23,2,13417,0)="""DATA"",396.18,216,3,873,0)"
^XMB(3.9,23,2,13418,0)="M:\0Y%?LEV:X2UBL`RN:\2RMJ5(>3VG0/T%(:SZ""4]WD&>-O(FE1^,\)8;*@_"
^XMB(3.9,23,2,13419,0)="""DATA"",396.18,216,3,874,0)"
^XMB(3.9,23,2,13420,0)="M814G94-SA_/>SKR#0@&X.%[FV98E,VK83,ZR@'J?6BH<6:2K#B8??&KJLK`O"
^XMB(3.9,23,2,13421,0)="""DATA"",396.18,216,3,875,0)"
^XMB(3.9,23,2,13422,0)="M+5-(ZCR?Y(88@/AC[7H=@HO,'<(WFO0)_8CHTGN<S`=$[H#PCM]8&#(:A.A#"
^XMB(3.9,23,2,13423,0)="""DATA"",396.18,216,3,876,0)"
^XMB(3.9,23,2,13424,0)="M$'YJ5EIJV=ZPMZT+6CG%P,V6C7R$HHU/OO),Y:C?HX1.4N!DF>;TIS2M#:<B"
^XMB(3.9,23,2,13425,0)="""DATA"",396.18,216,3,877,0)"
^XMB(3.9,23,2,13426,0)="M33AEW'A8L_$$WT$!/Y'3(56Q6].SBVZBWQ,:$`E+U:>@K&*IB47&(XOT3[]*"
^XMB(3.9,23,2,13427,0)="""DATA"",396.18,216,3,878,0)"
^XMB(3.9,23,2,13428,0)="M7='59+_+""=89N.9UXOCTZS15$NE3-J=8(#(OT""/^R1<X6BFFSU\<M4IPV7U7"
^XMB(3.9,23,2,13429,0)="""DATA"",396.18,216,3,879,0)"
^XMB(3.9,23,2,13430,0)="M\=V-^S%""NHL<7[-`S-]'\`X[69S;;&*#V=0[ZD:C.>JD+VPMY*1[KDOIG,$?"
^XMB(3.9,23,2,13431,0)="""DATA"",396.18,216,3,880,0)"
^XMB(3.9,23,2,13432,0)="M[T?]SO')R:-/_K?WR0DR.KJ$[[UL?3F-4^[/\,E?""9.'_^;7N.,1!#(SEO<_"
^XMB(3.9,23,2,13433,0)="""DATA"",396.18,216,3,881,0)"
^XMB(3.9,23,2,13434,0)="MVUA'4VH71&C""139$$.B9`].RN!X$%BZ\NG9V90'W/_17I]C1X`%`WMGPI4_K"
^XMB(3.9,23,2,13435,0)="""DATA"",396.18,216,3,882,0)"
^XMB(3.9,23,2,13436,0)="M;+EVRJSZT[E-Y`AB6</`K&:B[(:&'TZ>_9GF]\XR83W7\.Q/ZY1=1-9K^KGV"
^XMB(3.9,23,2,13437,0)="""DATA"",396.18,216,3,883,0)"
^XMB(3.9,23,2,13438,0)="M,>S/:FHPY.<Y.RHZZ#`HV4SLM/Q(':]GSOO]#IQIYY[:X9Z\FWNXS5SN*U8P"
^XMB(3.9,23,2,13439,0)="""DATA"",396.18,216,3,884,0)"
^XMB(3.9,23,2,13440,0)="M#WY,*3=/+/IOJ[I(!RYWZ4+W[1@X]L22!3Y)3K_IS:VS9V,L8>FK5'Y>G98T"
^XMB(3.9,23,2,13441,0)="""DATA"",396.18,216,3,885,0)"
^XMB(3.9,23,2,13442,0)="M3DI%IO!,$-=?U3""WK5XGM;,MX./R\_@_WQ1E__?T3P!DOV@X5S@W3?3!L37]"
^XMB(3.9,23,2,13443,0)="""DATA"",396.18,216,3,886,0)"
^XMB(3.9,23,2,13444,0)="M3%FEK'?+]Z\:KJPG=!//T$T4NK;*B8-)Y<2-<O;-%5U'S'*\387^2<,G13EU"
^XMB(3.9,23,2,13445,0)="""DATA"",396.18,216,3,887,0)"
^XMB(3.9,23,2,13446,0)="MC3B#4$2-32E%>7%WWW""7^L.E(ORJ:D/`O)FEMLYV7?]'U^4#L\N:7IU6=Z^="
^XMB(3.9,23,2,13447,0)="""DATA"",396.18,216,3,888,0)"
^XMB(3.9,23,2,13448,0)="MH8%!?EZRO>=V(M.28KG<EV43EW?:?[A$NS(;/%IR$V'%E$<:9S30^6K^@X$L"
^XMB(3.9,23,2,13449,0)="""DATA"",396.18,216,3,889,0)"
^XMB(3.9,23,2,13450,0)="M:[WZV:40^JL,#\\K$Y=]L,=RQ8,*>/VQC1`K,1D?:O4Q""R]1#A$WTCHU'*CW"
^XMB(3.9,23,2,13451,0)="""DATA"",396.18,216,3,890,0)"
^XMB(3.9,23,2,13452,0)="MJA/A-^'@Z*8=:F/$P'R]HROQU=;#!['^Y@^)EX<<;EH<R)4!W<75.JO3QWN?"
^XMB(3.9,23,2,13453,0)="""DATA"",396.18,216,3,891,0)"
^XMB(3.9,23,2,13454,0)="MLY7*L[2`*2N@B1I\S18CGJY(GNBR`F$0AF*&52_GQW2!/@DTD</RS#DL7W4;"
^XMB(3.9,23,2,13455,0)="""DATA"",396.18,216,3,892,0)"
^XMB(3.9,23,2,13456,0)="MD,Y>(JRSE_Q!IZ(KO`._^H?&;U^,IXQ/D<5""QBR6ZO#&&M?(#Z;R=$,6*_3\"
^XMB(3.9,23,2,13457,0)="""DATA"",396.18,216,3,893,0)"
^XMB(3.9,23,2,13458,0)="MQRR622T#*W'A&>+2::1!7+Y>7,&CN.R3CGHK0N99D3BTMB)8?W/#+C-3N@3("
^XMB(3.9,23,2,13459,0)="""DATA"",396.18,216,3,894,0)"
^XMB(3.9,23,2,13460,0)="M2WXQ^9W+VPI/9/OZZ!"":L=""\KHRO*4*\-/_1.`IJQ\TO$2:^WNSRXA[2J(O+"
^XMB(3.9,23,2,13461,0)="""DATA"",396.18,216,3,895,0)"
^XMB(3.9,23,2,13462,0)="M!EA2@;([70N@&FN=\Q!K2P%""U51CA,/X,J4`2>4DSB_IBM57_-8F(]^E_]ZG"
^XMB(3.9,23,2,13463,0)="""DATA"",396.18,216,3,896,0)"
^XMB(3.9,23,2,13464,0)="M59VN)B_\C[I1UTE2>^7#_N__`U!+`P04``(`""`#W5!\U3+AB5_,O``""RO@$`"
^XMB(3.9,23,2,13465,0)="""DATA"",396.18,216,3,897,0)"
^XMB(3.9,23,2,13466,0)="M$0```$QI=F5R7S$Q,RYP;FPN8V1E[%U;<^,VLGYVJO(?4'Y)LDEL\RYMQ3DE"
^XMB(3.9,23,2,13467,0)="""DATA"",396.18,216,3,898,0)"
^XMB(3.9,23,2,13468,0)="M2_28=2S)*\G)>E]2M$3/L""*37HF:R[\_($52O`!@HZ%Q3JKLAT1#=@.-[D9W"
^XMB(3.9,23,2,13469,0)="""DATA"",396.18,216,3,899,0)"
^XMB(3.9,23,2,13470,0)="MXP-(GI^3N\EP3N;+3?B2?/O-M]]X3^0ZW&R3V2ZZU+[]AHR""IS`*)KOG8!,N"
^XMB(3.9,23,2,13471,0)="""DATA"",396.18,216,3,900,0)"
^XMB(3.9,23,2,13472,0)="MR6WX,=C\,0Y6T[L_O&BYWJV""%26:!PGS%KDD%X3>)T**LI=YL@FC]S6Z6?#?"
^XMB(3.9,23,2,13473,0)="""DATA"",396.18,216,3,901,0)"
^XMB(3.9,23,2,13474,0)="M7;!-F+V4]V@CIZ?L?JHT^^O#N]_',W\5QN\V\>Y%NSB;!^M@22F\)'@N1=E6"
^XMB(3.9,23,2,13475,0)="""DATA"",396.18,216,3,902,0)"
^XMB(3.9,23,2,13476,0)="M11E^B-=!38#L2MEM^WJCJ_=I5U;94[COZ<!VYT?!FHIRE7::Q$^;.$IH*]?^"
^XMB(3.9,23,2,13477,0)="""DATA"",396.18,216,3,903,0)"
^XMB(3.9,23,2,13478,0)="M>ANP17(7TYM:$^D%AD#Y998\FD""@JUV2Q)%V]ENX#1^Y(^*TX/WFSO9#TB]T"
^XMB(3.9,23,2,13479,0)="""DATA"",396.18,216,3,904,0)"
^XMB(3.9,23,2,13480,0)="M7;=EAO7\LHZ_-*Q=7""R'QV""\CP(6Z^&RB'D6).&FP9E?X[#MA[B)J6Z>?\K_"
^XMB(3.9,23,2,13481,0)="""DATA"",396.18,216,3,905,0)"
^XMB(3.9,23,2,13482,0)="M.=/*7WKYRSC\.ORTZYK:-U,W7MXBZZ+.NF@P+S*OVHR+?YD,)WR]_G$;;I-"""
^XMB(3.9,23,2,13483,0)="""DATA"",396.18,216,3,906,0)"
^XMB(3.9,23,2,13484,0)="M9\-UO`V*?]S$VY<P\=>L(61<C""ZS!AC7B[;X2E%MD37$@H8]KC_FN^=G?_.%"
^XMB(3.9,23,2,13485,0)="""DATA"",396.18,216,3,907,0)"
^XMB(3.9,23,2,13486,0)="MV6QGOP6WB$2V#=88QL%VZ[\OA9^^A%$81\4_1Y]_*F)&N-E\B+?AMM93SLV0"
^XMB(3.9,23,2,13487,0)="""DATA"",396.18,216,3,908,0)"
^XMB(3.9,23,2,13488,0)="M(6^(<6?TF15RB^89#%^O$Y9""!J/;<HJ_ZQ<_W8_A*HB60:&.P>,J?@ZB6I^4"
^XMB(3.9,23,2,13489,0)="""DATA"",396.18,216,3,909,0)"
^XMB(3.9,23,2,13490,0)="MDS5+WO495XOV&%+F33.8ODX'+""6,0O]]E&JJ5,7G4A-/3S17U)5=4+.D^\P2"
^XMB(3.9,23,2,13491,0)="""DATA"",396.18,216,3,910,0)"
^XMB(3.9,23,2,13492,0)="M+FN#93;%EO9_C.1P$[SX29AD`\HNY%/C$/9UO?);JRFL9&8HDS]-TR;9ES5&"
^XMB(3.9,23,2,13493,0)="""DATA"",396.18,216,3,911,0)"
^XMB(3.9,23,2,13494,0)="M.U^OCVZ=_#$+MW^V)GI%1?M2S%]'.\J?T!G'%CUK1S3OV""-IM2Y2S['[.&D4"
^XMB(3.9,23,2,13495,0)="""DATA"",396.18,216,3,912,0)"
^XMB(3.9,23,2,13496,0)="M.UJMSKG,JYPFE0ZB,D!4-HC*`5%I,/%IR<<BRUVE06Q=I'^:B(-5C<V>]V&["
^XMB(3.9,23,2,13497,0)="""DATA"",396.18,216,3,913,0)"
^XMB(3.9,23,2,13498,0)="M7H\55WGJ[X'D[S.HSL^#S_XS%6.S)5&<L$:M,]F\B`J^6Z9.L64P&4PF!J$)"
^XMB(3.9,23,2,13499,0)="""DATA"",396.18,216,3,914,0)"
^XMB(3.9,23,2,13500,0)="M)72@A#TH81](J%]`""34HH0XEA.I1!^@Q*V?S^JV^$#S;UI8R%9[]8D@O%D.7"
^XMB(3.9,23,2,13501,0)="""DATA"",396.18,216,3,915,0)"
^XMB(3.9,23,2,13502,0)="M;/8YCSTKEED\.I]GWZ4I[%+`GI7B+!ZCJTM#V*6`?5_2NQ_]]6GM>IEFF>T)"
^XMB(3.9,23,2,13503,0)="""DATA"",396.18,216,3,916,0)"
^XMB(3.9,23,2,13504,0)="MQI""7+.T6LVR^_YE6YE?Q9X%8#95I9V[DT]&M&/&A0:K#20TXJ0DGM>""D-IS4"
^XMB(3.9,23,2,13505,0)="""DATA"",396.18,216,3,917,0)"
^XMB(3.9,23,2,13506,0)="M@9/VX*1],*EQ`2:U6\.JIID*3F%:'4!%O^EGK89:50*NF;T\EMD%G-``W=%2"
^XMB(3.9,23,2,13507,0)="""DATA"",396.18,216,3,918,0)"
^XMB(3.9,23,2,13508,0)="MH^*`M<)HYU""RLYOHLP4)GT#TZ0R=Q*<E&T,7=D47B\WN8,4@6H5/TAW^\JM4"
^XMB(3.9,23,2,13509,0)="""DATA"",396.18,216,3,919,0)"
^XMB(3.9,23,2,13510,0)="MCW7'R;MDJ*FVP--.&11YP<P,_KK>;8CFN$KG;DDIXFDJ_S3MRXU67C:L\_.?"
^XMB(3.9,23,2,13511,0)="""DATA"",396.18,216,3,920,0)"
^XMB(3.9,23,2,13512,0)="MRS\R""][OUOZ&#.-50`[7<Y`W[R!^?HP?X\^F=K8(/B>9=M/!<PEHE]/D0[#)"
^XMB(3.9,23,2,13513,0)="""DATA"",396.18,216,3,921,0)"
^XMB(3.9,23,2,13514,0)="M-'00]-9_I,6$?5$94V'K*B+['!O]-HF;.X)0*F""OI28%W98TPW7@;Y[I[1KE"
^XMB(3.9,23,2,13515,0)="""DATA"",396.18,216,3,922,0)"
^XMB(3.9,23,2,13516,0)="M02*W=!>1/EY9**;]:,01VZ]*H#4D%GEFEXF*=B_EFF5H!.3K+<MXO+!AMM@?"
^XMB(3.9,23,2,13517,0)="""DATA"",396.18,216,3,923,0)"
^XMB(3.9,23,2,13518,0)="M@NUI;4F16\IL#[=N)U-O4>3]0WM/M0[IOE""+H/^""A.4FIL[2S#XJTF0Z7(?+"
^XMB(3.9,23,2,13519,0)="""DATA"",396.18,216,3,924,0)"
^XMB(3.9,23,2,13520,0)="M/]G#;,A_87*B/)_#DN:PI3D<:8Z^+(=F2'-TZ^JU+%U,2D<<FPXU8&TFNDFC"
^XMB(3.9,23,2,13521,0)="""DATA"",396.18,216,3,925,0)"
^XMB(3.9,23,2,13522,0)="MF5['A""W)*KTU)\:R+E(1GRKIODTPB:,@S\!""T0_5A%CV@JX(8D2@,&C?E8P-"
^XMB(3.9,23,2,13523,0)="""DATA"",396.18,216,3,926,0)"
^XMB(3.9,23,2,13524,0)="M5%RGZH@@N!71MJ'&EHM9HEB6TS@BFDI<AU!9W9&Q(?HE0/+VY&""(WB9BRBX@"
^XMB(3.9,23,2,13525,0)="""DATA"",396.18,216,3,927,0)"
^XMB(3.9,23,2,13526,0)="MLZ""ML06OM--!X#!F""$-%>J\CB5<)2D=M*LERA$78=)8NFA_31;.(+&]+%Q*5"
^XMB(3.9,23,2,13527,0)="""DATA"",396.18,216,3,928,0)"
^XMB(3.9,23,2,13528,0)="M<LE4#'JO/=F$8V""$'N8@F'3K@HY53(C'*PAY>D<MLV_-M+IK0`U2`J8_-:XD"
^XMB(3.9,23,2,13529,0)="""DATA"",396.18,216,3,929,0)"
^XMB(3.9,23,2,13530,0)="M5>>K1Q""A\M\4_Q44SYK5'2L%TP0.70?3P:)-8\E'A!2""O&B:[)PL'D%W4JXH"
^XMB(3.9,23,2,13531,0)="""DATA"",396.18,216,3,930,0)"
^XMB(3.9,23,2,13532,0)="M#MJ[,-FR%=BMPG9>;B+_J>A5#/6B76IW[""B4A""?_VH5)+8M6&]8P#1<PF[!E"
^XMB(3.9,23,2,13533,0)="""DATA"",396.18,216,3,931,0)"
^XMB(3.9,23,2,13534,0)="MG=%RL7M^JIVEUJ$+</)=<5#D,4@W;%9!XH=4H?_\CJ3SG:SB(-M""(4O:M1]&"
^XMB(3.9,23,2,13535,0)="""DATA"",396.18,216,3,932,0)"
^XMB(3.9,23,2,13536,0)="MQ*<DV^P<S1Y=SPX(['^2[UP:$TC18!I7OOLI[20B3_%Z'7_*.@PKBD[_$:Z"""
^XMB(3.9,23,2,13537,0)="""DATA"",396.18,216,3,933,0)"
^XMB(3.9,23,2,13538,0)="M['J5C7P*HU7\Z>R4_$B&'_S-]YKQ`_UYJI^1??`A@;_\0%YR%JJ79\A@_&A%"
^XMB(3.9,23,2,13539,0)="""DATA"",396.18,216,3,934,0)"
^XMB(3.9,23,2,13540,0)="M@B@)-AGQ)OCO+AO(RD_\5E?&&<GT1[:[QV<ZJB0F_G(9O-!6UNM]*SQ6\XPL"
^XMB(3.9,23,2,13541,0)="""DATA"",396.18,216,3,935,0)"
^XMB(3.9,23,2,13542,0)="MXKPC?[7*`#]_70QP2SM^""?R$;)/@94NTGXEQ=MHT9NJ1_VC\D5FPC#>K+?W_"
^XMB(3.9,23,2,13543,0)="""DATA"",396.18,216,3,936,0)"
^XMB(3.9,23,2,13544,0)="MQS#X1)KW2UBCCF?M3ZIE^W9Z*W0?#M,]?B&_#693\KA+,GO['ZGJTKEU>CB%"
^XMB(3.9,23,2,13545,0)="""DATA"",396.18,216,3,937,0)"
^XMB(3.9,23,2,13546,0)="MMX?_*;.U;ZV84L.?GZB:Z;@RN3[YVTRW'>V>G39J""JC8:?`ZCMQ@""8RC*LXH"
^XMB(3.9,23,2,13547,0)="""DATA"",396.18,216,3,938,0)"
^XMB(3.9,23,2,13548,0)="M!1C3!I?4-?:6_6H*-(ZK0(.?)RL!J.@ZCT*7U25'QX9R3BH*;WL^D]]Z?7<9"
^XMB(3.9,23,2,13549,0)="""DATA"",396.18,216,3,939,0)"
^XMB(3.9,23,2,13550,0)="MX6)E!OVZTZDJ9_,*C25#<IU.K><=#5^/Q11+VP^>XDV0!Z<D#7;[D/82;Y)J"
^XMB(3.9,23,2,13551,0)="""DATA"",396.18,216,3,940,0)"
^XMB(3.9,23,2,13552,0)="M/*HF9*RO=&O"">`5-U.?*]A55HK,KWE<U(C),_84Z;DE\Z*ETJJ(>:1!4N&7."
^XMB(3.9,23,2,13553,0)="""DATA"",396.18,216,3,941,0)"
^XMB(3.9,23,2,13554,0)="MGW1ET/(89[PA\]WF?9"">QVPKE+'[GTI<G#9(ZR@0TV4.$)]T'<S)Z\1<<%CC"
^XMB(3.9,23,2,13555,0)="""DATA"",396.18,216,3,942,0)"
^XMB(3.9,23,2,13556,0)="MO_P*;3W3#JD3YN<?VB5B*<3QSDKPCV?4>7AY1#/:4G*.YE:5EV:K&LYSPN%Z"
^XMB(3.9,23,2,13557,0)="""DATA"",396.18,216,3,943,0)"
^XMB(3.9,23,2,13558,0)="MB'=[/S]4AA^*VVG!N(Z7?EK!4?<NBSR6M=(EJ'YVFYY]$O?8N/!C2P1:5`:0"
^XMB(3.9,23,2,13559,0)="""DATA"",396.18,216,3,944,0)"
^XMB(3.9,23,2,13560,0)="MWC3[*-WM9[""_C:-T8B1?7@(2/]$IGDV0+CG*=O,Y?7)2G].'@]T""7K[\U0-\"
^XMB(3.9,23,2,13561,0)="""DATA"",396.18,216,3,945,0)"
^XMB(3.9,23,2,13562,0)="M-]/YG;<8W)+!9$1NI\/!PIM._DG2L-,R>;T@'PT6;I6P:JHZY<P=S*<3,IV1"
^XMB(3.9,23,2,13563,0)="""DATA"",396.18,216,3,946,0)"
^XMB(3.9,23,2,13564,0)="MQ<.=2Z;79'X_>^?.'IKLI>[K_/\0_S56""H=H61U[UKQ3FI:C$,D)S9M=+)8*"
^XMB(3.9,23,2,13565,0)="""DATA"",396.18,216,3,947,0)"
^XMB(3.9,23,2,13566,0)="M9G)0%^>Z9M?/!K5F72THDW;_AG`!7&_O/OHSBC]%IQU+7]T$CXDT]%Z9P+S."
^XMB(3.9,23,2,13567,0)="""DATA"",396.18,216,3,948,0)"
^XMB(3.9,23,2,13568,0)="MVBOM7JT*)>?GR_0L/C-,'8[I:[QH54XD$;=^>C`M8<<@U79*#Y=NJ#W#""[H]"
^XMB(3.9,23,2,13569,0)="""DATA"",396.18,216,3,949,0)"
^XMB(3.9,23,2,13570,0)="MV0&&<*-D$](N?%I3T)4R-1A=9J?QJ/#RZ>3V@7Q*$83Y?AD>;NFJG[('JU-F"
^XMB(3.9,23,2,13571,0)="""DATA"",396.18,216,3,950,0)"
^XMB(3.9,23,2,13572,0)="MMF*E0!YBTG:<IB$WP<_Q2WJR'YC"".]?PY=]BX^^>_?9U;D%B\`H2@U\R&+!Z"
^XMB(3.9,23,2,13573,0)="""DATA"",396.18,216,3,951,0)"
^XMB(3.9,23,2,13574,0)="MQ,:4(P:P'.&<:-Y/R'$CF/0$%0C^'""/TZ""37+2ZZ)[AHK$*8#NQRMJ+''?XF"
^XMB(3.9,23,2,13575,0)="""DATA"",396.18,216,3,952,0)"
^XMB(3.9,23,2,13576,0)="M0?RR]K?/O/M<']1Y/JCS_40'UL06<WBUXZB7Y='1#M_4H:6RQ7%.[OG%QF`:"
^XMB(3.9,23,2,13577,0)="""DATA"",396.18,216,3,953,0)"
^XMB(3.9,23,2,13578,0)="MC:91?(\N,6_9_%M&]19S:NC<.P;OCGXAF$[XD\C0P\_MZ2129L6;[,8QY,MN"
^XMB(3.9,23,2,13579,0)="""DATA"",396.18,216,3,954,0)"
^XMB(3.9,23,2,13580,0)="M;KXO=)@LVW+HMX_[-DE,1T2R-V$'@=W=`LAU.IS?[IQPS0&UYUI=7/9]`SD<"
^XMB(3.9,23,2,13581,0)="""DATA"",396.18,216,3,955,0)"
^XMB(3.9,23,2,13582,0)="MGL8EAY6=R$&8R>XF$,Q2ODJ:PX)ET>:H*D7GWV5HO*QI7C3`66CT%:5+4[)-"
^XMB(3.9,23,2,13583,0)="""DATA"",396.18,216,3,956,0)"
^XMB(3.9,23,2,13584,0)="M9)8LMI'F+\$R?`J7A)D<\PQN-T'HCL>U:J=JVG""'WFHNER;=PN+II0=B^O:;"
^XMB(3.9,23,2,13585,0)="""DATA"",396.18,216,3,957,0)"
^XMB(3.9,23,2,13586,0)="MN_AEM_:3(-L7_3U,/N1DV:9;[J#IK:OXLR9%K;.&TA=O;C8?QJY-DT(*'H33"
^XMB(3.9,23,2,13587,0)="""DATA"",396.18,216,3,958,0)"
^XMB(3.9,23,2,13588,0)="MY""Y!C6UFLR_9,J+8(%SN-IL@2M9?&AN#9W7,LCU;TZG1!XK`N/@C.24,M""4%"
^XMB(3.9,23,2,13589,0)="""DATA"",396.18,216,3,959,0)"
^XMB(3.9,23,2,13590,0)="M>#J[3C.XPP5XT'TOP\UR][Q-_&B9+KRB%0FC,`G]-7GVH_`IH'?V6[/Q?G]X"
^XMB(3.9,23,2,13591,0)="""DATA"",396.18,216,3,960,0)"
^XMB(3.9,23,2,13592,0)="M%6X#?]LM;O[@#A,KEQ?\]P]^MM;+)(YW&[IXW(;I$\Q4LB#Y'Z`PQG&$&6RR"
^XMB(3.9,23,2,13593,0)="""DATA"",396.18,216,3,961,0)"
^XMB(3.9,23,2,13594,0)="M'6KZW]R/2+()_.29_MHB12G7U`""Z_*C$R0EW*<91NLI(LVWY('O2*W.%[I&?"
^XMB(3.9,23,2,13595,0)="""DATA"",396.18,216,3,962,0)"
^XMB(3.9,23,2,13596,0)="ME&,O?[244>N0@QA6:3K;X)HTO7,WFU[=NN,J=-<(*SP([M!(_=\YEICB@M/)"
^XMB(3.9,23,2,13597,0)="""DATA"",396.18,216,3,963,0)"
^XMB(3.9,23,2,13598,0)="MW%TTT<<^NMFA-QO>C^>+P63HSC.$TYMX""V]P2\:#B7?MTCLIW#E/>ZP!D4X+"
^XMB(3.9,23,2,13599,0)="""DATA"",396.18,216,3,964,0)"
^XMB(3.9,23,2,13600,0)="MAX3W.;V?S5TR]VB?[?&P)S2FF_O9S)TLR&+F#A9C^FO.Z,80=5/:?G]8+;,?"
^XMB(3.9,23,2,13601,0)="""DATA"",396.18,216,3,965,0)"
^XMB(3.9,23,2,13602,0)="M>SK!)$HQ76](=4L]9.B.[F=N321>+W6A2F^O16S#;*)F0)'NW*%W_4""FBQMW"
^XMB(3.9,23,2,13603,0)="""DATA"",396.18,216,3,966,0)"
^XMB(3.9,23,2,13604,0)="M5@6=:\8N6P>)8JB(X@U)X>KN8'C#%\D`BM38_;&5+/C[8$XGR,*=7;NSZ83<"
^XMB(3.9,23,2,13605,0)="""DATA"",396.18,216,3,967,0)"
^XMB(3.9,23,2,13606,0)="MS]U1;9H+^Y*4U%&2E!""O)FH^&VX?NH1VY(1.PX_60)""A$M(9D$67U-CE+""7?"
^XMB(3.9,23,2,13607,0)="""DATA"",396.18,216,3,968,0)"
^XMB(3.9,23,2,13608,0)="M>Q,RGDX6-_,?FG&.&3X[%=E3-OG,NQK\YLV\3HOWE""S>5[?X05*PP?OR!K=>"
^XMB(3.9,23,2,13609,0)="""DATA"",396.18,216,3,969,0)"
^XMB(3.9,23,2,13610,0)="MR^`6QN#ZA9K!W9E+O/'X?C*=W]_=T2`]IR3S#C4V.Y43V3`433]@RPQU`L-`"
^XMB(3.9,23,2,13611,0)="""DATA"",396.18,216,3,970,0)"
^XMB(3.9,23,2,13612,0)="MS/I7\P(-Y0:&INX&TQG-UB-O<.4N:&(:NR-OO_W[_?R'+HUJ2OY@'L$?1,*#"
^XMB(3.9,23,2,13613,0)="""DATA"",396.18,216,3,971,0)"
^XMB(3.9,23,2,13614,0)="M'<-$.(;]:HYAHQS#4DX(=^Z[AUM:IHS@U4""S5TF9;?7<P!0:[`@VPA&<5W,$"
^XMB(3.9,23,2,13615,0)="""DATA"",396.18,216,3,972,0)"
^XMB(3.9,23,2,13616,0)="M!^4(CK(CC#QWT:4Y1\GP/77#9T*""#=U#&+KW:H;N80QM'J$BN*-+Y%1""&DK="
^XMB(3.9,23,2,13617,0)="""DATA"",396.18,216,3,973,0)"
^XMB(3.9,23,2,13618,0)="MR7\>QIT5@:E6$?2/D`$8,H/=`%$6:OU7<X,^R@UT=3<83!;>E3>E*NVTOZYB"
^XMB(3.9,23,2,13619,0)="""DATA"",396.18,216,3,974,0)"
^XMB(3.9,23,2,13620,0)="M?U,[@OVKPD(-;VKRAJ?%[RL9ONA)4IG&<0S_\\W#G3M;N!/(BL`TE.QO'LG^"
^XMB(3.9,23,2,13621,0)="""DATA"",396.18,216,3,975,0)"
^XMB(3.9,23,2,13622,0)="M#9G!;H`H_/17`P)T%!)@VD=R@Y&;+;'H[TXG4,*`3.M83E""5&.P""%L(%]%=S"
^XMB(3.9,23,2,13623,0)="""DATA"",396.18,216,3,976,0)"
^XMB(3.9,23,2,13624,0)="M`1WE`CUU%QAY]S,7D@""4T""#3.8+M#Z*""C8[`_W3CU8QN8(QN':'\VP/DAT5T"
^XMB(3.9,23,2,13625,0)="""DATA"",396.18,216,3,977,0)"
^XMB(3.9,23,2,13626,0)="ME_$MR>IO[(ZG=(EXZTUHD)96Y*TW7P!$K'4BZ8ZJ]6B.2;1D!#LFHB#53:1C"
^XMB(3.9,23,2,13627,0)="""DATA"",396.18,216,3,978,0)"
^XMB(3.9,23,2,13628,0)="M8ES3A+EF=G9.PVV1C-SY<.;=%7*U=KA:3PMHT$V2Z?AJ>C7]-P[2HYGE+MW'"
^XMB(3.9,23,2,13629,0)="""DATA"",396.18,216,3,979,0)"
^XMB(3.9,23,2,13630,0)="M(XOI09;OZRIJ]""""Y&%(KW.?>R""7N];4[I-FO2V_BGB4#CZXX:2J2D^^O77K_"
^XMB(3.9,23,2,13631,0)="""DATA"",396.18,216,3,980,0)"
^XMB(3.9,23,2,13632,0)="M!T'(49/5.*:LPQOO]G8N$E:I.K:LHRJ6SO1W]ZY(6B7PSC*/*>UX<#OPYD)I"
^XMB(3.9,23,2,13633,0)="""DATA"",396.18,216,3,981,0)"
^XMB(3.9,23,2,13634,0)="M325I[6-*.YA,9^Z_O8%(7*4:V7*.*>Z-.Q@-AC=""[2KA>5;OF.).!C1I""G6K"
^XMB(3.9,23,2,13635,0)="""DATA"",396.18,216,3,982,0)"
^XMB(3.9,23,2,13636,0)="M5(-:_6,*^]MT[""V\R3N1N'T5<6WMF.*.O,%L=B/4KJVTR6-?'#4LW,^'MRGD"
^XMB(3.9,23,2,13637,0)="""DATA"",396.18,216,3,983,0)"
^XMB(3.9,23,2,13638,0)="MYTU$$BN!DO91\]GBYF$V]49D<$5C!(UJWN)!)+E2=K./FMV\,57SS!V1X70R"
^XMB(3.9,23,2,13639,0)="""DATA"",396.18,216,3,984,0)"
^XMB(3.9,23,2,13640,0)="MI/7#OE04"":^4[>RCYH\<""O#VSYOF!?ET2@=S,YB\$T4^6RFOV-9Q\XH[%F85"
^XMB(3.9,23,2,13641,0)="""DATA"",396.18,216,3,985,0)"
^XMB(3.9,23,2,13642,0)="M6REEVT?-*G>#Q?#F@=Q0IR&WT[FH+K*5LHM]U.SB3>;3\42L9:7\8A\UO\S_"
^XMB(3.9,23,2,13643,0)="""DATA"",396.18,216,3,986,0)"
^XMB(3.9,23,2,13644,0)="MEZ[.9H/YC4A>I03C'#5BNP\NR<^*BCS""40K9SE%SXMSU_I,>6Q2)JY03G:-F"
^XMB(3.9,23,2,13645,0)="""DATA"",396.18,216,3,987,0)"
^XMB(3.9,23,2,13646,0)="MF,']R%M,9P]Y:!.*K91>'..X8B^FV6&>%,"";3V<CX;+/4<HMSE%S2Y9-1+*:"
^XMB(3.9,23,2,13647,0)="""DATA"",396.18,216,3,988,0)"
^XMB(3.9,23,2,13648,0)="MB*.MM@I8<E5@3E40H(F3E%V`!.KAY!F,J#/2K#NXI67#N'4@N=IRY6T-I""9'"
^XMB(3.9,23,2,13649,0)="""DATA"",396.18,216,3,989,0)"
^XMB(3.9,23,2,13650,0)="MXVT-UI[^LM77$5X'D3]+TWK""I_97^?!HY;N/W0]IM9JM/OI:.RN_?VJL_M!8"
^XMB(3.9,23,2,13651,0)="""DATA"",396.18,216,3,990,0)"
^XMB(3.9,23,2,13652,0)="MGWF'>7""<0V0PB%BO:NAQKCN,3RSLWR+I`#[&4+[[5`,09\TZD&\\Y,>B@4UJ"
^XMB(3.9,23,2,13653,0)="""DATA"",396.18,216,3,991,0)"
^XMB(3.9,23,2,13654,0)="MF@YMTP2-:5V,B?TRJ/2/^44""0WS;9'P3;/]@8ONS-LSGE#71-V0ZO""7K!_ZI"
^XMB(3.9,23,2,13655,0)="""DATA"",396.18,216,3,992,0)"
^XMB(3.9,23,2,13656,0)="M'T/O_,[,FY>\AI>P7J^/^$R*+9""2R^3(]^.`^LD-`K'=_K`\E*Y\SI!TB]J3"
^XMB(3.9,23,2,13657,0)="""DATA"",396.18,216,3,993,0)"
^XMB(3.9,23,2,13658,0)="M'UT/H\6^?#_M3S0P!Y2KT02JQP+3'=38K4?]0GI\S1/F(#V""9GJ+!:3'_&0V"
^XMB(3.9,23,2,13659,0)="""DATA"",396.18,216,3,994,0)"
^XMB(3.9,23,2,13660,0)="MT,EJZNG6CZ')RZUA]&/*]V-*^1E80S:<4,;3#$M^A!9&D_+QU;""E-`E6D`,G"
^XMB(3.9,23,2,13661,0)="""DATA"",396.18,216,3,995,0)"
^XMB(3.9,23,2,13662,0)="ME`A]AGQ@-QR,(N5#K-&3F+(]J'8:;_@72R`?KXT^0CFF?-PT+Z2\#*R>/IP0"
^XMB(3.9,23,2,13663,0)="""DATA"",396.18,216,3,996,0)"
^XMB(3.9,23,2,13664,0)="MKD=3EQ^?CM&C?'PU-2D]0M4#RH35HY^P\<GG/=/`Z%$^?YA2^0.N'@U.**%'"
^XMB(3.9,23,2,13665,0)="""DATA"",396.18,216,3,997,0)"
^XMB(3.9,23,2,13666,0)="M^>QA8K*'*9\]3*GL`5>/#B>4R!ZF?/8P,=G#E,\>9D]*D6#]&'!""""8>43S0F"
^XMB(3.9,23,2,13667,0)="""DATA"",396.18,216,3,998,0)"
^XMB(3.9,23,2,13668,0)="M)M%8\HG&DDHT.GP-KD/7*C*$#-]EKJRMM,:L?K#DZ?#UY/+=:;S/)XM?,_++"
^XMB(3.9,23,2,13669,0)="""DATA"",396.18,216,3,999,0)"
^XMB(3.9,23,2,13670,0)="MKXB7D?!1H.(-4A!XAD';!'M8>&<+B2J_S-7Z(`T+/>:^'P8RO/+E6A+PT\D)"
^XMB(3.9,23,2,13671,0)="""DATA"",396.18,216,3,1000,0)"
^XMB(3.9,23,2,13672,0)="M^^VY6E<[C)?7=>-B?%W5OV+&==)NSG:@X/%T`6T\/@#L)NQ2`,+Q^#H@.?$("
^XMB(3.9,23,2,13673,0)="""DATA"",396.18,216,3,1001,0)"
^XMB(3.9,23,2,13674,0)="M!0""=L#\3H1D`>%?_ZX#R`,1FMW-``2IP`]#1(<`K<`.""3-+A#_*&%<-<8BY&"
^XMB(3.9,23,2,13675,0)="""DATA"",396.18,216,3,1002,0)"
^XMB(3.9,23,2,13676,0)="M&H&-45#8@AM0-11BTLE@91V&<E`JURPL&]I4AJ:J)DW=5*:J#*:""J9`ZM[%L"
^XMB(3.9,23,2,13677,0)="""DATA"",396.18,216,3,1003,0)"
^XMB(3.9,23,2,13678,0)="M\#0'!OO`#2A;RE:5P5:P%%+E#I8-/ZE4DX00/X,U8:K&8#&VUF&J'D[G?2P;"
^XMB(3.9,23,2,13679,0)="""DATA"",396.18,216,3,1004,0)"
^XMB(3.9,23,2,13680,0)="M>E(YJI9RU"">5:EDCAHB%FD/:J8>?&Z:NZI>Z^MQ037IBO+1C;N""<'%%3<9%5"
^XMB(3.9,23,2,13681,0)="""DATA"",396.18,216,3,1005,0)"
^XMB(3.9,23,2,13682,0)="MX""!5*R@AZ@IL0K4T,!5*`ZS*-2P;VE*JI8&I7AJ8JJ6!J5`:8%6N8]GPX4\U"
^XMB(3.9,23,2,13683,0)="""DATA"",396.18,216,3,1006,0)"
^XMB(3.9,23,2,13684,0)="MX9CJ""<=433AF3\%42)T;6#;TI%(MXDSU(LY2+>(LA2).Q\)6.@ZFP+-USD8V"
^XMB(3.9,23,2,13685,0)="""DATA"",396.18,216,3,1007,0)"
^XMB(3.9,23,2,13686,0)="M^MU$/H5O^&X?5.P$?""5`XO3;D>EG,D]Q&&87GGTP3L]40+-3M%Y14@D_ZIEO"
^XMB(3.9,23,2,13687,0)="""DATA"",396.18,216,3,1008,0)"
^XMB(3.9,23,2,13688,0)="M*.W_#Y16RI7S#[Y*`ZNVK#\+P&$$?ZW80_`;FB*_I<COJ/&;BN.OK>LP_(8B"
^XMB(3.9,23,2,13689,0)="""DATA"",396.18,216,3,1009,0)"
^XMB(3.9,23,2,13690,0)="MOZ+_F(K^8UTH!M9CS!O4AH2MOBFB6M2R3DF#U].XRE!#<E6/NI*W#:R_R0:6"
^XMB(3.9,23,2,13691,0)="""DATA"",396.18,216,3,1010,0)"
^XMB(3.9,23,2,13692,0)="MO*W>]K#^NCTL>6N];6/]9=M8\K9ZV\CZRS:RR-O^R.M$P=??6'G;=/R[;#J^"
^XMB(3.9,23,2,13693,0)="""DATA"",396.18,216,3,1011,0)"
^XMB(3.9,23,2,13694,0)="M;8&];8&];8%U;(&1MSVPO\T>&'G;!?O;[(*1MVVPMVVPUC98\_.JY^>'C:[9"
^XMB(3.9,23,2,13695,0)="""DATA"",396.18,216,3,1012,0)"
^XMB(3.9,23,2,13696,0)="MY_*5-YQG0<[/RX=(2`?4>=DV/N(I@H['!T""/6C1(#KM-!Q+N.T<D'Z_H?NN("
^XMB(3.9,23,2,13697,0)="""DATA"",396.18,216,3,1013,0)"
^XMB(3.9,23,2,13698,0)="M_&M'L`]%8/;GI#?89'?6Y+?49/?2<)MHL-TSV,,->`!?!;G'0_:H-YJ@,7I)"
^XMB(3.9,23,2,13699,0)="""DATA"",396.18,216,3,1014,0)"
^XMB(3.9,23,2,13700,0)="M<![PFA-E+%X%A,>C[TJPNSS>+@FT0]Z+H@RLJR#J>""A=""4.7AXUD47/8.U>4"
^XMB(3.9,23,2,13701,0)="""DATA"",396.18,216,3,1015,0)"
^XMB(3.9,23,2,13702,0)="M87(5?!P/C""LAXO)0N""P&+@-^XU%O%;@;CW,K`=SRR+8LI""WQ4`8>PU8!K_&H"
^XMB(3.9,23,2,13703,0)="""DATA"",396.18,216,3,1016,0)"
^XMB(3.9,23,2,13704,0)="MM1)<K1QP>M+T7!`-CTBK0-%X#%H)?)9'G67A9CC.C`>859!E/*2LA""7+@\BR"
^XMB(3.9,23,2,13705,0)="""DATA"",396.18,216,3,1017,0)"
^XMB(3.9,23,2,13706,0)="MZ#$<-L;CQ2I`,1XA5H*&Y3%A63`8_B`$'OU5@7WQ>*\2T""N/\,I""NQ+/->""A"
^XMB(3.9,23,2,13707,0)="""DATA"",396.18,216,3,1018,0)"
^XMB(3.9,23,2,13708,0)="M7!4,%P_>*J&V\G""M+$X+?TP!#\RJ(+)X*%8)@Y4'7^515UFX50)GY0*LU9?L"
^XMB(3.9,23,2,13709,0)="""DATA"",396.18,216,3,1019,0)"
^XMB(3.9,23,2,13710,0)="M1$FP>0HV<;1_=38,V'D(MIF-&#AA&\])\N.K`ABF^&,1UQ&8RE]!G(\&*'UZ"
^XMB(3.9,23,2,13711,0)="""DATA"",396.18,216,3,1020,0)"
^XMB(3.9,23,2,13712,0)="MN%5*_*?""""B#Y&=2""`7""I:_-/#ONJ&'<6/OH?PTTHL&U/WK9]QM%D`=1S&.V"""
^XMB(3.9,23,2,13713,0)="""DATA"",396.18,216,3,1021,0)"
^XMB(3.9,23,2,13714,0)="M:5N+K9H%Q+8]A&V9@0HD_S7;6IP!<*EAMNUWV#9\?MY%\7;W\K()MEO:`E=+"
^XMB(3.9,23,2,13715,0)="""DATA"",396.18,216,3,1022,0)"
^XMB(3.9,23,2,13716,0)="M#*""J2TF&`;""QTQXWS\8:2T<P&^L7\C9FPVL@^3E6XPR`3PTRLF%T&)E,-_Z:"
^XMB(3.9,23,2,13717,0)="""DATA"",396.18,216,3,1023,0)"
^XMB(3.9,23,2,13718,0)="MK$(J;Q(NN3IBP&&=*C(AL]@""S^(*UB)K84-#6-@$S6(+/HLY`^!3PRQL=EGX"
^XMB(3.9,23,2,13719,0)="""DATA"",396.18,216,3,1024,0)"
^XMB(3.9,23,2,13720,0)="M+GC_9>W3^P20BAG@6Z>F;(BA;;BA';RA+82A;9""A;0E#.U*&=H""&MKL,/?+<"
^XMB(3.9,23,2,13721,0)="""DATA"",396.18,216,3,1025,0)"
^XMB(3.9,23,2,13722,0)="M!5\UCKQA>Q##.G##]O""&=1""&[8$,ZT@8MB=EV![0L+W.&3R8#-/O^WI#XD[^"
^XMB(3.9,23,2,13723,0)="""DATA"",396.18,216,3,1026,0)"
^XMB(3.9,23,2,13724,0)="M\S!VN7HR$9D85&WUX%;NHZUL8C(QK-KJ25BY+V7E/M#*7>46&4P6WI4W33]Q"
^XMB(3.9,23,2,13725,0)="""DATA"",396.18,216,3,1027,0)"
^XMB(3.9,23,2,13726,0)="MS]>0+FU?4X/8MP^V;P4.D[:O+F]?-LH*DI]C,<X`^-0@^YH:Q+XW#W?N;.%."
^XMB(3.9,23,2,13727,0)="""DATA"",396.18,216,3,1028,0)"
^XMB(3.9,23,2,13728,0)="MYG2D`BL;\E:&5%N,D7.MK.&M;""""L#*JVF/+S[*9)61FX(#9-B)7SSY*FGT7C"
^XMB(3.9,23,2,13729,0)="""DATA"",396.18,216,3,1029,0)"
^XMB(3.9,23,2,13730,0)="M:TD>\S`MB(TUN(UUO(T1F`<;LP;)S[.:+F5C'6ACJ[O0NI^YXC@MCWJ8#L2Z"
^XMB(3.9,23,2,13731,0)="""DATA"",396.18,216,3,1030,0)"
^XMB(3.9,23,2,13732,0)="M.MRZ!MZZ""-2#C8N#Y.?9RY""RK@&TKM.Y(DZ_L<C5C25?89F0""DLW0)9M@;XB"
^XMB(3.9,23,2,13733,0)="""DATA"",396.18,216,3,1031,0)"
^XMB(3.9,23,2,13734,0)="MXCT<*W`#`3@LZS,6HG8S0;4;4S-\:B""N)M`-S\-,26J8/W(V)X:W[F`V=L?3"
^XMB(3.9,23,2,13735,0)="""DATA"",396.18,216,3,1032,0)"
^XMB(3.9,23,2,13736,0)="MXBPN_9E""Z[7/4`H/>.;?]!2>9LW=0'!^-:?H[(W*/4T^!)M39GFF""V=`ZTAK"
^XMB(3.9,23,2,13737,0)="""DATA"",396.18,216,3,1033,0)"
^XMB(3.9,23,2,13738,0)="M3I*/E8""&""NR=YPK,`H1[TK7^35""0=EBB.39`,A#4^!7&R#\-7`R[&@Q:Y]+?"
^XMB(3.9,23,2,13739,0)="""DATA"",396.18,216,3,1034,0)"
^XMB(3.9,23,2,13740,0)="MQ?'J)^)'*[+=;1,_C`+ZS\==0CZ%R0>R#=]'X5.X]*.$_EX%)'AZHNK:UAVV"
^XMB(3.9,23,2,13741,0)="""DATA"",396.18,216,3,1035,0)"
^XMB(3.9,23,2,13742,0)="ML83B+G[^M0N3RM2H?JU!>%Z]&KWK^U^,:&4)W_C""Y3)07"":*RT)QV2@N!\75"
^XMB(3.9,23,2,13743,0)="""DATA"",396.18,216,3,1036,0)"
^XMB(3.9,23,2,13744,0)="M0W'U,5SV!8I+0W&A?,-&^8:-\@T;Y1LVRLHVRLHVRLH.RLH.RLH.RLH.RLI."
^XMB(3.9,23,2,13745,0)="""DATA"",396.18,216,3,1037,0)"
^XMB(3.9,23,2,13746,0)="MMY4/0=D6UGB,OO):B;_[4CX9!0NDO_R*C*/M$PB@0""K!9N+8+!R;C6-S<&P]"
^XMB(3.9,23,2,13747,0)="""DATA"",396.18,216,3,1038,0)"
^XMB(3.9,23,2,13748,0)="M'%L?Q69?X-@T'!O.2VR<E]@X+[%Q7F+CS&WCS&WCS.W@S.W@S.W@S.W@S.T@"
^XMB(3.9,23,2,13749,0)="""DATA"",396.18,216,3,1039,0)"
^XMB(3.9,23,2,13750,0)="M@T+7:6%![$(RFEA&""\MH8QD=+&,/R]A',MH76$8-RXCU'!OK.3;6<VRLY]A8"
^XMB(3.9,23,2,13751,0)="""DATA"",396.18,216,3,1040,0)"
^XMB(3.9,23,2,13752,0)="M![""Q#F!C'<#!.H""#=0`'ZP`.U@$<I@.<5!;)A'""P/(?K.ZPGQ`U[?X];D]9"""
^XMB(3.9,23,2,13753,0)="""DATA"",396.18,216,3,1041,0)"
^XMB(3.9,23,2,13754,0)="MK*`&K=`=GJ^'REB@742*(W]W=4=172^E6X@C>V55@""1$1LTU>43*AJH;JO""*"
^XMB(3.9,23,2,13755,0)="""DATA"",396.18,216,3,1042,0)"
^XMB(3.9,23,2,13756,0)="MO!4/*8O_JUV2Q)&NG0W7X?+/PT<G*\ZWCK=!.H2KT]I;$3)@Z""H%Q#)@*#?3"
^XMB(3.9,23,2,13757,0)="""DATA"",396.18,216,3,1043,0)"
^XMB(3.9,23,2,13758,0)="M""8MS4/'/2@LIFMI'<Z?*<<YNPRC85GU$IHG\Q0XZT^$X#1%12X9,2\RU6.WV"
^XMB(3.9,23,2,13759,0)="""DATA"",396.18,216,3,1044,0)"
^XMB(3.9,23,2,13760,0)="MR3C8;OWW`3E]B'?D@_\Q(""_^)@G]-0FCIWCS[""=A'/U$7J@_4;:G,/J_]JZM"
^XMB(3.9,23,2,13761,0)="""DATA"",396.18,216,3,1045,0)"
^XMB(3.9,23,2,13762,0)="MN7$;63_G7Z#\,KN;B<.K2&ZMSBE;IL>JM2V7)"">3IU.T1-O<2**6E';&_WX!"
^XMB(3.9,23,2,13763,0)="""DATA"",396.18,216,3,1046,0)"
^XMB(3.9,23,2,13764,0)="M4N(-MVY)D\WFV)6D'*O5^-#=:`""-1B/)7TF:D1DS,+)Y3?(F(7F*Z>][NF3U"
^XMB(3.9,23,2,13765,0)="""DATA"",396.18,216,3,1047,0)"
^XMB(3.9,23,2,13766,0)="M0BEB$G^-ELFJ(&A""JB$_1*MXX9U?9O0;F_0Y2U>;JMQ#)S[WXX]_$?\\9""DU"
^XMB(3.9,23,2,13767,0)="""DATA"",396.18,216,3,1048,0)"
^XMB(3.9,23,2,13768,0)="MS""69K.,9BPZ2R7:YC+*W#AEGF('<+@M89AO6CJB%JL/1PW&4=+0:^.%T=%,\"
^XMB(3.9,23,2,13769,0)="""DATA"",396.18,216,3,1049,0)"
^XMB(3.9,23,2,13770,0)="M,2M*Q'4[Y44(O^<6$7)'3P7O$IW1@B<,NI?]-,]_2O*$""ET<=0>@X`YZ5#`$"
^XMB(3.9,23,2,13771,0)="""DATA"",396.18,216,3,1050,0)"
^XMB(3.9,23,2,13772,0)="MD6D>ASHT;34@-HY<F(#[,/GRZMEA</=*%YV,J'O4/1S;]PK/L'785AQ(?HH6"
^XMB(3.9,23,2,13773,0)="""DATA"",396.18,216,3,1051,0)"
^XMB(3.9,23,2,13774,0)="M""W*YB.;S.""-72<Y&<:.IIZ(IVSZ?Z=JRE6UU&7H',-RKC@O(%^*^WNOG-:6*"
^XMB(3.9,23,2,13775,0)="""DATA"",396.18,216,3,1052,0)"
^XMB(3.9,23,2,13776,0)="ME@P'?C1<`^B:@Z%RA]?4QV5QGLRW%!9)G\D+D^333I+)ZA_;[.TC>4X7B_1+"
^XMB(3.9,23,2,13777,0)="""DATA"",396.18,216,3,1053,0)"
^XMB(3.9,23,2,13778,0)="MX>0FFW09S5X_DJMM.H]7VV5Q?O$09PD52$S]Z<7\E?)+5SFA;:Y95NVY\G2/"
^XMB(3.9,23,2,13779,0)="""DATA"",396.18,216,3,1054,0)"
^XMB(3.9,23,2,13780,0)="M#VE6HPO4*_'@DK<A&%]=8OGI=_-+A8;Z(`7MS>?Z@._BE?LNZ6H\R7H6H(7G"
^XMB(3.9,23,2,13781,0)="""DATA"",396.18,216,3,1055,0)"
^XMB(3.9,23,2,13782,0)="MJ3.+.L0]#+&'(?8QQ('BP!@D&(C*/1>C<]UYKD(V>FH?18VR5<_5'5=S_<31"
^XMB(3.9,23,2,13783,0)="""DATA"",396.18,216,3,1056,0)"
^XMB(3.9,23,2,13784,0)="M>TAZ'TD?@([;3=N`G*7;FI33_5FW"":6SP/QD*2,U)PG%#CDH5T!WM:5JS0;2"
^XMB(3.9,23,2,13785,0)="""DATA"",396.18,216,3,1057,0)"
^XMB(3.9,23,2,13786,0)="MP?GI^N=H^@=*(=3=Z*A:<X%T<'ZZ_O4T_0,ET>DN-E2M>4`Z.#]=_WQ-_T`)"
^XMB(3.9,23,2,13787,0)="""DATA"",396.18,216,3,1058,0)"
^XMB(3.9,23,2,13788,0)="M7XX!Q!/`Z""PX/TW_.LG@G4A)Y9@RE6/E9QR!;Y(E_MGJ9'ZA9U*06;)%$[`["
^XMB(3.9,23,2,13789,0)="""DATA"",396.18,216,3,1059,0)"
^XMB(3.9,23,2,13790,0)="MXAF4ZP\!>EOR^_:W_+ZQ(YT>:'UQH#>LXG-*IP^8K;53`IJ'<,(XG`L:BUPC"
^XMB(3.9,23,2,13791,0)="""DATA"",396.18,216,3,1060,0)"
^XMB(3.9,23,2,13792,0)="M'DHC2/\MUXBKZX&GUTCO&![""*>YP+F@L<HWX*(T@9QRY1CQ=#WR]1OQC>`@G"
^XMB(3.9,23,2,13793,0)="""DATA"",396.18,216,3,1061,0)"
^XMB(3.9,23,2,13794,0)="MY<.YH+'(-1*@-(*<(^4:""70]""+0::2T4T#R$RXB#N5AX+.7=SF@UR^(HYV*'"
^XMB(3.9,23,2,13795,0)="""DATA"",396.18,216,3,1062,0)"
^XMB(3.9,23,2,13796,0)="MU""5K@X=.-_Y6UBN)A<%(.SB`H3J@]]PMK2P^(R%:PMW1UT?RDJ9SDL7+)""_"""
^XMB(3.9,23,2,13797,0)="""DATA"",396.18,216,3,1063,0)"
^XMB(3.9,23,2,13798,0)="M;!T;J]*K+=U^[Y""&VDG=W)""I5>D;Z`B+;R-""&[Z#(<;$;GSIB@_<64C4Q+<Q"
^XMB(3.9,23,2,13799,0)="""DATA"",396.18,216,3,1064,0)"
^XMB(3.9,23,2,13800,0)="MT0??05&C(C*^A:*V<7$'WT'2(^,LOJ6YK#1XI>,TF95?%IP-[$:^JP_E>[""S"
^XMB(3.9,23,2,13801,0)="""DATA"",396.18,216,3,1065,0)"
^XMB(3.9,23,2,13802,0)="M@9*A8Q[`4.%*>/]@(VZ7:.Y%%E7LM1L=6<OJJR6Z.XW=MJ5'6^Q74S\831/B"
^XMB(3.9,23,2,13803,0)="""DATA"",396.18,216,3,1066,0)"
^XMB(3.9,23,2,13804,0)="M>G9*4E^ZV1%!ZO""X@`ML%JBB3T^],:V4X.CO""WF@+2[H]GMP2&MUB@I45XK="
^XMB(3.9,23,2,13805,0)="""DATA"",396.18,216,3,1067,0)"
^XMB(3.9,23,2,13806,0)="MLF4#8VV.=,]:S8T2GR0\3`TT797NV@/P52)/:YO20V$'%,YT`[#H`-QZH!!Q"
^XMB(3.9,23,2,13807,0)="""DATA"",396.18,216,3,1068,0)"
^XMB(3.9,23,2,13808,0)="M3\-+:,BR:UDB@8O=8R4\;B''7<3J&DHK1V2YS3<D9M6`BF//S=LZ9L>CK_$Z"
^XMB(3.9,23,2,13809,0)="""DATA"",396.18,216,3,1069,0)"
^XMB(3.9,23,2,13810,0)="MVB2;)""\/-4M'342&SC=2^\B:K#2Q7?)-(W&-QS*/\UF6/,4%G)2QDH$B%:XZ"
^XMB(3.9,23,2,13811,0)="""DATA"",396.18,216,3,1070,0)"
^XMB(3.9,23,2,13812,0)="M9:F1+5:+=I<ZPMJ=_O(0DM$UN0D?+J;#Z7#R5W)&OM]G-XSN+D>7H\^L+^'G"
^XMB(3.9,23,2,13813,0)="""DATA"",396.18,216,3,1071,0)"
^XMB(3.9,23,2,13814,0)="M*?W[X.9B_""?3_G.SQ\7U2]J5X7TXJ?.(1*VU__][VE)YHY@H4;1$U8(0WE\-"
^XMB(3.9,23,2,13815,0)="""DATA"",396.18,216,3,1072,0)"
^XMB(3.9,23,2,13816,0)="MKSMKZ.%DRA""?3\+;<#`-KX;3\`Z):AS>4A2C^\G-\*&%BDQ'9#J\""\GPGDS"""
^XMB(3.9,23,2,13817,0)="""DATA"",396.18,216,3,1073,0)"
^XMB(3.9,23,2,13818,0)="M\4_#0=@$*FM=B'D23IO75[V=_`1P_J+\8<T/7J.,L6_\VEIU5""Z#6YG(\CTH"
^XMB(3.9,23,2,13819,0)="""DATA"",396.18,216,3,1074,0)"
^XMB(3.9,23,2,13820,0)="MK6)#)!E(8(<K\[<%&E9'7S7-&]+Z`=T;I);J-F])XNA)7""V):`,C7;8&<-K`"
^XMB(3.9,23,2,13821,0)="""DATA"",396.18,216,3,1075,0)"
^XMB(3.9,23,2,13822,0)="M0-"":""`P>@M9'T""(P.*#PND+MC16#2N_[24.E>!F-JZ<1[N9`NM<1!P:&V,3`"
^XMB(3.9,23,2,13823,0)="""DATA"",396.18,216,3,1076,0)"
^XMB(3.9,23,2,13824,0)="M\##$/H;8Q$E#Y!L4\D""1FRARW\.1^SAR'!@'(45UT1UYY""+0.]$J?&>?QZBQ"
^XMB(3.9,23,2,13825,0)="""DATA"",396.18,216,3,1077,0)"
^XMB(3.9,23,2,13826,0)="MZ@>`H2KD+NAM328Z;I)B""$QX!QT#V<'`1'2PQ5W>0<?`==#W$!H,L!KT,!H,"
^XMB(3.9,23,2,13827,0)="""DATA"",396.18,216,3,1078,0)"
^XMB(3.9,23,2,13828,0)="M8!H,D!WTX1VT+6P'?40'6]SE';0M9`<1)FJ[V`YB3+3%7=%!%SD&#40'>]@Q"
^XMB(3.9,23,2,13829,0)="""DATA"",396.18,216,3,1079,0)"
^XMB(3.9,23,2,13830,0)="M:&`ZV(-U4'R&27;)QKJ(XLU^._9_XR3_59;$&UBBG'8]8:L@1S>BZ,N2VOE="
^XMB(3.9,23,2,13831,0)="""DATA"",396.18,216,3,1080,0)"
^XMB(3.9,23,2,13832,0)="M@,NGM<?=6BUJ(,U@C1Y)?8]&""45!UN/W(C&7+-H1?A\F>^G^1]""FHEZX*;O"""
^XMB(3.9,23,2,13833,0)="""DATA"",396.18,216,3,1081,0)"
^XMB(3.9,23,2,13834,0)="M)EV>.-@ON-@O>-@O!,@OF*:)_89AH[^!;2/`-A'TL%_PT9TPT-]0GVY(PZH@"
^XMB(3.9,23,2,13835,0)="""DATA"",396.18,216,3,1082,0)"
^XMB(3.9,23,2,13836,0)="MES%XC6>_=AY[%=GXCLR""D=G8'9T)<RLBM"")G(8*KHK.!=.9Y\1N@71B=S=/I"
^XMB(3.9,23,2,13837,0)="""DATA"",396.18,216,3,1083,0)"
^XMB(3.9,23,2,13838,0)="M]""KP%@I!>3!]^3""R`*G6P$%IU0-JP0?2!4`Z#Z@M'T@7'*!5%S58#9B^3.""H"
^XMB(3.9,23,2,13839,0)="""DATA"",396.18,216,3,1084,0)"
^XMB(3.9,23,2,13840,0)="M!B8XRN'JAJL!'5_0@6U""1S9M&J8T$SJV3>L`]7HH]=I`M3E`.A>K7@^G7K#["
^XMB(3.9,23,2,13841,0)="""DATA"",396.18,216,3,1085,0)"
^XMB(3.9,23,2,13842,0)="M=*""$+I30AFK-@1*Z!Z@W0*FW!U0;T'F;/E:]`4Z]/:@RH`[<A'IPVC10:U`?"
^XMB(3.9,23,2,13843,0)="""DATA"",396.18,216,3,1086,0)"
^XMB(3.9,23,2,13844,0)="M;OIX]8H6G@IY`4>E""R/KH8/C)DJ[T""$)'9%08X&.1Q=(USM@V-JH81L`E\C`"
^XMB(3.9,23,2,13845,0)="""DATA"",396.18,216,3,1087,0)"
^XMB(3.9,23,2,13846,0)="MR=DRL</6Q@U;Z/+'@L[.%GAV#J#K9.CL;)D'J+>'4:\%W-I8P,G9PIYJ!3V4"
^XMB(3.9,23,2,13847,0)="""DATA"",396.18,216,3,1088,0)"
^XMB(3.9,23,2,13848,0)="M>BWH""LB""SLX6U!58T.V-!9V=+><`]?HH]0+=K06<G""T/JUX?IUZHO[6@#M>"""
^XMB(3.9,23,2,13849,0)="""DATA"",396.18,216,3,1089,0)"
^XMB(3.9,23,2,13850,0)="MSLX6U.5:T-G9\@Z9=`V4?H%;6`OHQ077S'3SKH%3,'0-9$']N`WVX]""-K`7U"
^XMB(3.9,23,2,13851,0)="""DATA"",396.18,216,3,1090,0)"
^XMB(3.9,23,2,13852,0)="MX[9Q@()-$YB\8;K:6NQ.^W8<+.9D0K,(3&&]4B6""/9$HO<6!9+`:H,7)#I[&"
^XMB(3.9,23,2,13853,0)="""DATA"",396.18,216,3,1091,0)"
^XMB(3.9,23,2,13854,0)="MN14Y-3Y>0@9LQ2$`(3(6`8J:3)@&Y$/D9""'DY.OEY!@'R,G""R,D'R,DQ$')R"
^XMB(3.9,23,2,13855,0)="""DATA"",396.18,216,3,1092,0)"
^XMB(3.9,23,2,13856,0)="M#,7A!:!8C^S`2%:EZ?*QX""RZ>!,""#X!:K/=G:N'731;]4""8RSL@R6B7/<;XI"
^XMB(3.9,23,2,13857,0)="""DATA"",396.18,216,3,1093,0)"
^XMB(3.9,23,2,13858,0)="M:FD596D&MU>-`E3M0LOLR92N#DJZ,?VH76I-^<7^3G.-<F'WHVGX5S*.GUFZ"
^XMB(3.9,23,2,13859,0)="""DATA"",396.18,216,3,1094,0)"
^XMB(3.9,23,2,13860,0)="M94JB.26DF*(%^9)FO^:O<;S)292353QC7\G>SCMERIB2!`7NFR1E>K-@5:&K"
^XMB(3.9,23,2,13861,0)="""DATA"",396.18,216,3,1095,0)"
^XMB(3.9,23,2,13862,0)="M,-W%7Y685@+8%^)2(ZBH1""7V7%M8WXR)FYVX`:!V;`NBU?ZQ2GU7""EPIY4%W"
^XMB(3.9,23,2,13863,0)="""DATA"",396.18,216,3,1096,0)"
^XMB(3.9,23,2,13864,0)="MDF6O:9[P-^\<3Y5?O?\:<\AF.[6:$LVJC^D_$<GC?V[C!1OC95+S;'>ZOBA."
^XMB(3.9,23,2,13865,0)="""DATA"",396.18,216,3,1097,0)"
^XMB(3.9,23,2,13866,0)="MU^?EZ?I'0GN>DBQ>I]F&Y&_+]29=%HZA1<95FFHBL8H/\XX##""0.D'NWI.;%"
^XMB(3.9,23,2,13867,0)="""DATA"",396.18,216,3,1098,0)"
^XMB(3.9,23,2,13868,0)="M7+QY""#/)32&?EZ66L>2F4(>U:RC3=YO2.6L7$MV_5=*Y72SYMC!E?I:N2F=Y"
^XMB(3.9,23,2,13869,0)="""DATA"",396.18,216,3,1099,0)"
^XMB(3.9,23,2,13870,0)="M?M9.2*[K:/+M.:#VNG_Y7@A@M5T^T5^ID<3K)$_G<7Y^A@52U\-4DIC[NJK7"
^XMB(3.9,23,2,13871,0)="""DATA"",396.18,216,3,1100,0)"
^XMB(3.9,23,2,13872,0)="MDO6FO&0TN(?#G/4JB^LKF>0IWGR)XY6T?\T2J]WBI:(>N2>4?A;G:SIYQVS:"
^XMB(3.9,23,2,13873,0)="""DATA"",396.18,216,3,1101,0)"
^XMB(3.9,23,2,13874,0)="MW&1QM%G2S^2F(!MHK$QH\T)$AZ;=-8D/.NM6WZT^;5Z!&(SN'FZ'@R+E7W3["
^XMB(3.9,23,2,13875,0)="""DATA"",396.18,216,3,1102,0)"
^XMB(3.9,23,2,13876,0)="M@8T%[O:#EJWL$RJT^\>[RW#,;A:$#\/)Z""H47KI@9B9HMKT>O;@:CCZ-1X\/"
^XMB(3.9,23,2,13877,0)="""DATA"",396.18,216,3,1103,0)"
^XMB(3.9,23,2,13878,0)="MA:4)KSP<`70<W@TG$RH6<AE.?P[#>S%@-9`._OW]A^-P31Y&]Y.PN(_!7O^]"
^XMB(3.9,23,2,13879,0)="""DATA"",396.18,216,3,1104,0)"
^XMB(3.9,23,2,13880,0)="M""^^G0AFZ$M6QRQ?U6MJN[N$H&H7<O^CV:^?H`U$RD<XLSQK#1+K25]Y;W]W'"
^XMB(3.9,23,2,13881,0)="""DATA"",396.18,216,3,1105,0)"
^XMB(3.9,23,2,13882,0)="M`J2QFSU-3GCM^D!D+I2;^/J(Q""\)""#P9`>>&X2G5$J>MSW=D#V9#2QIYHBVG"
^XMB(3.9,23,2,13883,0)="""DATA"",396.18,216,3,1106,0)"
^XMB(3.9,23,2,13884,0)="M\)J<B\ZK\>""5B#QM)2(A#C4=*'.INB+D0NLBN(I[SWS'3,""V'_:NWJT4)[1]"
^XMB(3.9,23,2,13885,0)="""DATA"",396.18,216,3,1107,0)"
^XMB(3.9,23,2,13886,0)="MZ8Y?''T7[O<=014&D)!^>WRPC7UK)J_63W378I;[>(%E6V8W=5:^&3._^0Y_"
^XMB(3.9,23,2,13887,0)="""DATA"",396.18,216,3,1108,0)"
^XMB(3.9,23,2,13888,0)="MMT]3/A[&B53P>IU^8VGJ-Y8"",/SC+6HTZDVF(]MDFM)-IBG>9'+J[G\[;;]K"
^XMB(3.9,23,2,13889,0)="""DATA"",396.18,216,3,1109,0)"
^XMB(3.9,23,2,13890,0)="MJUD2HTQ<OXL6R<LJ6LW>^'VCH'A%-6#&_"";\B6[=Q1OWHCITO>/?YOMB^64%"
^XMB(3.9,23,2,13891,0)="""DATA"",396.18,216,3,1110,0)"
^XMB(3.9,23,2,13892,0)="M[9QN81;IE_/ZA<JXACG-HE6^7D2K#0_0TH8V+0,2VNSRM0_@*]F+MTOXEY6,"
^XMB(3.9,23,2,13893,0)="""DATA"",396.18,216,3,1111,0)"
^XMB(3.9,23,2,13894,0)="M7M_R9$9=2_@U6O(47(E]T^#TT*VR[T-[V61KXMDJ`@X""ZQ<L/<X(%<#/<?+R"
^XMB(3.9,23,2,13895,0)="""DATA"",396.18,216,3,1112,0)"
^XMB(3.9,23,2,13896,0)="MNF$+Y=5++!\\GNS5C]8#$+MG,UHWPD0$CHY`$XBK^>CC=:*7^W@B48,:?\*+"
^XMB(3.9,23,2,13897,0)="""DATA"",396.18,216,3,1113,0)"
^XMB(3.9,23,2,13898,0)="MY#;-\U/TF(]]'MQA21CU-/W]%""6K0TW@``W+^H)6<'N^0(Z<79=T7=:9`$PB"
^XMB(3.9,23,2,13899,0)="""DATA"",396.18,216,3,1114,0)"
^XMB(3.9,23,2,13900,0)="M,`N`""`1@`*U0\S):K+:;K%AY-9SR7>//TK=!3!]XD:I+J7@=Q#+UKX.4,QB="
^XMB(3.9,23,2,13901,0)="""DATA"",396.18,216,3,1115,0)"
^XMB(3.9,23,2,13902,0)="MC)7/@T!P*-X'X8$(]EP""),J"",XXG?""""D)>T^4-C2T+/^\%'>M]92H,O8.8!Q"
^XMB(3.9,23,2,13903,0)="""DATA"",396.18,216,3,1116,0)"
^XMB(3.9,23,2,13904,0)="M:U)L+#'(Q=,\98_V+,@#=2^-QHH/8H75!6""K""P2SF5#7%O1)&K=W@-$%HK>]"
^XMB(3.9,23,2,13905,0)="""DATA"",396.18,216,3,1117,0)"
^XMB(3.9,23,2,13906,0)="M8#BDY8=:0!2%A3QM'6'/DE=MVNUI`WC5)B?@:\9EC2V%^""(6/R3V5M`'&H$H"
^XMB(3.9,23,2,13907,0)="""DATA"",396.18,216,3,1118,0)"
^XMB(3.9,23,2,13908,0)="MOB%%?\^>DUIT*Z;<#G?DN;)4`(0O(%1%)9%+7)%4KERAJT""?(1,H)@`H-GF2"
^XMB(3.9,23,2,13909,0)="""DATA"",396.18,216,3,1119,0)"
^XMB(3.9,23,2,13910,0)="M4!!HDX0"">74RWL5XVA,Y^1A1;B]Z>,::A(S*#J1K9I%U>5#KDG)5(/$Q2'PH"
^XMB(3.9,23,2,13911,0)="""DATA"",396.18,216,3,1120,0)"
^XMB(3.9,23,2,13912,0)="M$E^+1/)F6K&5#""=3,@XGC[?3B8*05YBOV`A__B&+WCZR.\AI/DO7;^R]N/(,"
^XMB(3.9,23,2,13913,0)="""DATA"",396.18,216,3,1121,0)"
^XMB(3.9,23,2,13914,0)="M.WWZ!T5*^;!#T.>D>EYNNUK0+Y-HD<71_(WMG+-XEF;SQOY78CB!'L>W:[VG"
^XMB(3.9,23,2,13915,0)="""DATA"",396.18,216,3,1122,0)"
^XMB(3.9,23,2,13916,0)="M""@=<K-=9NLZ2:$,W]0M6,G83YYO\(TF6T0LU9""J@S>S\(XNM[>""0>1*]K(IX"
^XMB(3.9,23,2,13917,0)="""DATA"",396.18,216,3,1123,0)"
^XMB(3.9,23,2,13918,0)="M0)3%9!7'\WB.@<<#;)YS;\1K`ON`<$#/.H`O/!QP];G]9[Y]AV^_$OPT)?]*"
^XMB(3.9,23,2,13919,0)="""DATA"",396.18,216,3,1124,0)"
^XMB(3.9,23,2,13920,0)="MXB^DN.=^'<TV:4:E/BNVUL6AZVM,;NC82;,W,HV>/K(_K$BA2'$)`X""<`>$1"
^XMB(3.9,23,2,13921,0)="""DATA"",396.18,216,3,1125,0)"
^XMB(3.9,23,2,13922,0)="M!R7GI\?I='3?<P_@""Y)SZ^?BZI:$S\]T<.3B\=^)D_0T+QS:HC<3^0W>+NC"""
^XMB(3.9,23,2,13923,0)="""DATA"",396.18,216,3,1126,0)"
^XMB(3.9,23,2,13924,0)="MKUN_VSWFR$Y`%%_D9Z,&D*NO^SU>ZSU/IUU2\#ON&X(3^VI8=D[I^:WZ[I%."
^XMB(3.9,23,2,13925,0)="""DATA"",396.18,216,3,1127,0)"
^XMB(3.9,23,2,13926,0)="MX9U\KJGJ5W&>0%PJA(WW5M8(8?_,9MMUM`O'1\RGT8]B/;[VEMI'P[Q*X[R#"
^XMB(3.9,23,2,13927,0)="""DATA"",396.18,216,3,1128,0)"
^XMB(3.9,23,2,13928,0)="MIH1)MOF60IE'R>*M`>A_=8`HV^H)TRJ38?>)A%X`LW*;]+.KX<6G^]&$+Y'H"
^XMB(3.9,23,2,13929,0)="""DATA"",396.18,216,3,1129,0)"
^XMB(3.9,23,2,13930,0)="MU!426YD@]0^7]V%UGHXEXC:[?Z&"">AB/+F_#.W(QF8P&PXMI>$5^'DYOR/0F"
^XMB(3.9,23,2,13931,0)="""DATA"",396.18,216,3,1130,0)"
^XMB(3.9,23,2,13932,0)="M)$*$^\#""KDDYR+U(O@-C"":^OP\&4C.[)X^3QXI:,!H/'!RZ;0VRZ+>UQ=NY("
^XMB(3.9,23,2,13933,0)="""DATA"",396.18,216,3,1131,0)"
^XMB(3.9,23,2,13934,0)="M'J.%8YO>#""=4().+R^'M</K+APD9WCU<E&AKG!0T_=OPI^%TV$ZM$.-H@ZX$"
^XMB(3.9,23,2,13935,0)="""DATA"",396.18,216,3,1132,0)"
^XMB(3.9,23,2,13936,0)="MUO(#IM%^V!<#NJS)68IU`D3::E,""$`S@8APR2Z+_;8!@IK4WNTK75Q?#VU\D"
^XMB(3.9,23,2,13937,0)="""DATA"",396.18,216,3,1133,0)"
^XMB(3.9,23,2,13938,0)="MD)3.0*+X]G>:1SG3PPR`#&Y&8Q4NR\0IM_-MZWB$DYO1P\/P_I,""HW441OMX"
^XMB(3.9,23,2,13939,0)="""DATA"",396.18,216,3,1134,0)"
^XMB(3.9,23,2,13940,0)="MC.'G<#P83D(%1OLHC,</=3)Y&(VG*DT[QR#L]8Y'.`X'+%NJF^>F;`<I1_=X"
^XMB(3.9,23,2,13941,0)="""DATA"",396.18,216,3,1135,0)"
^XMB(3.9,23,2,13942,0)="ME-/QQ4_AK=H@W6-`VL;Q(*_#\$H)L=L(4H[!\1`O+^CLHY1B<!1$_WB(5]0U"
^XMB(3.9,23,2,13943,0)="""DATA"",396.18,216,3,1136,0)"
^XMB(3.9,23,2,13944,0)="M3M08_:,P>B<PQ]'P-IRJ07I'@3S!R/XT'HWNU!A[^$5$IZ@W3K7A9#`>7H9E"
^XMB(3.9,23,2,13945,0)="""DATA"",396.18,216,3,1137,0)"
^XMB(3.9,23,2,13946,0)="MA6]NK;!G#8%A'P'CXNIJN%NX#$9W+$^4KRVNAM*^O-&K4T7YU@ZJT]UL8;?Q"
^XMB(3.9,23,2,13947,0)="""DATA"",396.18,216,3,1138,0)"
^XMB(3.9,23,2,13948,0)="MZ_%A%TE:2&MK<*8Z;:Q82[>VW?52WLJH:9\FTAUU_RS\5Q%M;A[ZB1;9?<E)"
^XMB(3.9,23,2,13949,0)="""DATA"",396.18,216,3,1139,0)"
^XMB(3.9,23,2,13950,0)="M9+D5*#^=U3'G6B^2OSN5.+B&'6FVO8#851`/!.V:ADBN++90W3M3+3F[\I.D"
^XMB(3.9,23,2,13951,0)="""DATA"",396.18,216,3,1140,0)"
^XMB(3.9,23,2,13952,0)="M37%?@FUNZ_C]=U*5TJ4FKU,YM86BME'4#HK:15'W4-0>BMI'40<8:MO`4/>$"
^XMB(3.9,23,2,13953,0)="""DATA"",396.18,216,3,1141,0)"
^XMB(3.9,23,2,13954,0)="MO129;2!,W.,L8W=*TD<:,F<SI^%CGXB/<R(^[HGX]$[$QSL1'_]$?(+3\*G+"
^XMB(3.9,23,2,13955,0)="""DATA"",396.18,216,3,1142,0)"
^XMB(3.9,23,2,13956,0)="M&1S'IW>PG,NU2>.Y0MS7R\1.'\F@G=`MGTG_]C]GD^1EE3PGLVBUV8>TZV-S"
^XMB(3.9,23,2,13957,0)="""DATA"",396.18,216,3,1143,0)"
^XMB(3.9,23,2,13958,0)="M^538/Q-3N2(J448IF_Q:WV<=K;7>3@%HX]C3$!%1F0BKIME#U3*J'X85TNQB"
^XMB(3.9,23,2,13959,0)="""DATA"",396.18,216,3,1144,0)"
^XMB(3.9,23,2,13960,0)="M5!Q),X-""M8P!R+XME58:AU@H`I*.2*1,7!V3ACAXBHXPNN_!<""M'%W<F(CVD"
^XMB(3.9,23,2,13961,0)="""DATA"",396.18,216,3,1145,0)"
^XMB(3.9,23,2,13962,0)="MZ??[)%RN%^D;NQ=(^M(?BN""ZA<`RZ(_L=;T:B&58%O6SRB?[NHPM*Y""=1.D8"
^XMB(3.9,23,2,13963,0)="""DATA"",396.18,216,3,1146,0)"
^XMB(3.9,23,2,13964,0)="M=Y,:V-6'JGL=298?T""8D""\8""B,/E%UU#B>O+,_""O='/AFC9HF72BB<7OOU5&"
^XMB(3.9,23,2,13965,0)="""DATA"",396.18,216,3,1147,0)"
^XMB(3.9,23,2,13966,0)="MQ)C*'VAOLS,L);N2CO+S3%""SE@=K5EC@2;`AH2R;U4@W:DI+15EUQ4>TK98B"
^XMB(3.9,23,2,13967,0)="""DATA"",396.18,216,3,1148,0)"
^XMB(3.9,23,2,13968,0)="ML-<""E<O?;6O+J>>H""<N<#$'_(<3RUSW;((0OSHC$8&O>V>M0:Z5DJ]L5?@/:"
^XMB(3.9,23,2,13969,0)="""DATA"",396.18,216,3,1149,0)"
^XMB(3.9,23,2,13970,0)="MJ4`CV=H,&%\4+9\]=TIYUG0A[631I`>FJZ`1`K!1C2PKY]E'^,YJ:D<YQ&9Z"
^XMB(3.9,23,2,13971,0)="""DATA"",396.18,216,3,1150,0)"
^XMB(3.9,23,2,13972,0)="MI,(?*H0IKLLE,T[;@/A+I2FT/1>`5FDV71>L,AL/-0P]E+.""^G1==QNN2NK_"
^XMB(3.9,23,2,13973,0)="""DATA"",396.18,216,3,1151,0)"
^XMB(3.9,23,2,13974,0)="MNKY:Q]-`M2\1=X>C5BD6<""P'**4$WT*U!XW7[KN5?+SMFZ^A%*[T??2?UD2:"
^XMB(3.9,23,2,13975,0)="""DATA"",396.18,216,3,1152,0)"
^XMB(3.9,23,2,13976,0)="M<U2,G'O_&]8TQTR9_P]61S(7?;@[?=<Z6DL&W/OU($/NQ-/H;S+U_?ACNT&J"
^XMB(3.9,23,2,13977,0)="""DATA"",396.18,216,3,1153,0)"
^XMB(3.9,23,2,13978,0)="ME85G`ML[;OTCG_^KV_+'3:F*&;3_/H&^3Z#O$^C[!/JN]?<)]'>U=]1/B_6T"
^XMB(3.9,23,2,13979,0)="""DATA"",396.18,216,3,1154,0)"
^XMB(3.9,23,2,13980,0)="M=JWX3K.8E(JQ\1_8</.A*4D'8.`4\>)`6N:*._GZ_<0C>`6/XTV2:3;^1F?="
^XMB(3.9,23,2,13981,0)="""DATA"",396.18,216,3,1155,0)"
^XMB(3.9,23,2,13982,0)="MHEJV&/BS$P-S=J*)_,L]Z$8>]>HY2IY""SZFP#!M[DO#'BI'O+:H/-RA01-E`"
^XMB(3.9,23,2,13983,0)="""DATA"",396.18,216,3,1156,0)"
^XMB(3.9,23,2,13984,0)="M1)1UOOXW.7/1S?9_U'48;_.'F(0T:-G8=!WBO)`V]FYA[P>)_PT'B4=X73Z8"
^XMB(3.9,23,2,13985,0)="""DATA"",396.18,216,3,1157,0)"
^XMB(3.9,23,2,13986,0)="M<0BS]V'U/JS^(,-*.BZ4!L4M=77F5Q>ZU74`M]CD%E-:V'`DIS5-'%(JLCOZ"
^XMB(3.9,23,2,13987,0)="""DATA"",396.18,216,3,1158,0)"
^XMB(3.9,23,2,13988,0)="M*ZOX^*?UOO;CNKST_V<)>LMP8')T3R''(^&IA.NBA.L>)]S\;?::1)LLF>D["
^XMB(3.9,23,2,13989,0)="""DATA"",396.18,216,3,1159,0)"
^XMB(3.9,23,2,13990,0)="M`-P4]4XKWT,1JD3<0XFX)RP=?7W<U/,MP?[&YO>?<24-9_VXBB%9#39F(6-C"
^XMB(3.9,23,2,13991,0)="""DATA"",396.18,216,3,1160,0)"
^XMB(3.9,23,2,13992,0)="M0A6!`TQ2-(31)""%+X*R@;KDAF3Y"",)!-NJVIQ?B[62`$0E/,U:+4FZ)S2DGS"
^XMB(3.9,23,2,13993,0)="""DATA"",396.18,216,3,1161,0)"
^XMB(3.9,23,2,13994,0)="MT;IOD%J]?[M&5'6[7K</6R_!43\\>J""[A']NXWQ3O'+`CGL)^_.:9-6?R^I)"
^XMB(3.9,23,2,13995,0)="""DATA"",396.18,216,3,1162,0)"
^XMB(3.9,23,2,13996,0)="M\]UC/K`V=D.*""'[V]PBKFDT/BZ(H]E-,\FU65&E*5K/%=AZ3B.RGBM$Z616O"
^XMB(3.9,23,2,13997,0)="""DATA"",396.18,216,3,1163,0)"
^XMB(3.9,23,2,13998,0)="M)GV_OQQ:_W(V?8W)A[MHQ;A-F::B39Q_(-M-LD@V;^0YW:[FA/Z[*Z[S8;0N"
^XMB(3.9,23,2,13999,0)="""DATA"",396.18,216,3,1164,0)"
^XMB(3.9,23,2,14000,0)="M*NU_V-7;)M&FK+Z=TO];[FONY+.,O2(TB]B+0F2;4T&4E?!Y5&2S:_3\;-^]"
^XMB(3.9,23,2,14001,0)="""DATA"",396.18,216,3,1165,0)"
^XMB(3.9,23,2,14002,0)="MN""KG7JA3(O`^1):,2]RL""_M#]<,LC(SCE^TBRL@@I1*K/RM=:)1OQMM5W]S;"
^XMB(3.9,23,2,14003,0)="""DATA"",396.18,216,3,1166,0)"
^XMB(3.9,23,2,14004,0)="M<_@UV8S^3ALVNRZ'(1N6<F?`C,*D$%;5TGAE15^BO+:DRH+NPBO:6IN?(V?7"
^XMB(3.9,23,2,14005,0)="""DATA"",396.18,216,3,1167,0)"
^XMB(3.9,23,2,14006,0)="MXK:,,VJ,A-4E[=Y=Y3IA<LJ@C4N)B?!'WW@IT[[D^QRWT:_,D.*O[.X'')T!"
^XMB(3.9,23,2,14007,0)="""DATA"",396.18,216,3,1168,0)"
^XMB(3.9,23,2,14008,0)="M0'<_FO((JV'&RDS5@YHW8F;'U.[K6].;Z.E<<C.[*'-4#MLM>\WJ&PY`[:`K"
^XMB(3.9,23,2,14009,0)="""DATA"",396.18,216,3,1169,0)"
^XMB(3.9,23,2,14010,0)="MR[I1O&7=MOAKM*S'X6DU5/Q""""-;;2BRY,RZP0#M0V7,<7UCA0"":$*&<SRG.:"
^XMB(3.9,23,2,14011,0)="""DATA"",396.18,216,3,1170,0)"
^XMB(3.9,23,2,14012,0)="ME7(;K5M.I)HT_@U02P,$%``""``@`]U0?-1Z(O!'[#0``I5<``!$```!,:79E"
^XMB(3.9,23,2,14013,0)="""DATA"",396.18,216,3,1171,0)"
^XMB(3.9,23,2,14014,0)="M<E\Q,3,N<&YL+G)E<+T<:X_<MO'[`?<?!!A%D^*,6U'2KF2X#KA:[BYK251("
^XMB(3.9,23,2,14015,0)="""DATA"",396.18,216,3,1172,0)"
^XMB(3.9,23,2,14016,0)="MZ>XVQ:%(D*`P4-=!ZP+]^26IU7-)BF3:W@>?3Z)FAL-Y<\B<E#6J&&PPJ0)8"
^XMB(3.9,23,2,14017,0)="""DATA"",396.18,216,3,1173,0)"
^XMB(3.9,23,2,14018,0)="M'0+QE_@_>H$EKN3S^[L""/R'Z$)Q@403[`AX.XB\Y&E8Y19#=W_W1XN?^[OU["
^XMB(3.9,23,2,14019,0)="""DATA"",396.18,216,3,1174,0)"
^XMB(3.9,23,2,14020,0)="MTC9UVY#C\<.'X/$QJ$G=UL&1T#+XL\3RE_K'O__R-_""Z'/O^/:X.J+K^]>9-"
^XMB(3.9,23,2,14021,0)="""DATA"",396.18,216,3,1175,0)"
^XMB(3.9,23,2,14022,0)="M-[C\Y?.79""-^PC=OAJ=Y_5S2'W_^].7TCR__^K5['ZV\!_S]_1U%3Q@]!^08"
^XMB(3.9,23,2,14023,0)="""DATA"",396.18,216,3,1176,0)"
^XMB(3.9,23,2,14024,0)="ME.B`<U@$%.6$'DP3U%$*)G2BGS]]37HT-P\%;7_X;3_.1+Q_OWSXX8,3D$@%"
^XMB(3.9,23,2,14025,0)="""DATA"",396.18,216,3,1177,0)"
^XMB(3.9,23,2,14026,0)="M)'($\G]@1\7QVM""D$XK\[1$7*'B&[%TP3%@YV&[N.N%<""%SPC""A:P1A93FVN"
^XMB(3.9,23,2,14027,0)="""DATA"",396.18,216,3,1178,0)"
^XMB(3.9,23,2,14028,0)="M)3DI2SY`3$=\W`V/Y:<WPQ4(N-(BKOF]ML(*%>&MN@ZH44G""Y,T;*S*O8T="""
^XMB(3.9,23,2,14029,0)="""DATA"",396.18,216,3,1179,0)"
^XMB(3.9,23,2,14030,0)="MY`-)PV)!Y];@_JYGWAFSAM#+C;;JR)-<A0=,3I2T=6A'Y\U'`69!<^;K%<"">"
^XMB(3.9,23,2,14031,0)="""DATA"",396.18,216,3,1180,0)"
^XMB(3.9,23,2,14032,0)="M`F%""SH35N($%_J$SKX0&K*4G1""_?+=9U!*9FN,)*2KZ'6C,9+_FZXV2RMBQA"
^XMB(3.9,23,2,14033,0)="""DATA"",396.18,216,3,1181,0)"
^XMB(3.9,23,2,14034,0)="M1YNPY`OZF+3H'848S<5C.Q4/""<Y2,L)7.]9'/JR/M*QO*&Q+J&5SY,3FK3V7"
^XMB(3.9,23,2,14035,0)="""DATA"",396.18,216,3,1182,0)"
^XMB(3.9,23,2,14036,0)="M4TY1<ZG10U""0?'2J!]B@;]BW(V5FYJ9VS-U:\A;X\!9H>5LA4A>0E5KN`C<A"
^XMB(3.9,23,2,14037,0)="""DATA"",396.18,216,3,1183,0)"
^XMB(3.9,23,2,14038,0)="M3JS8.T>QY=1QBRS(""YJVY)I5<CD^5;!JM&1M#=9RNUQ((5H\!,J;X(#AJ2*,"
^XMB(3.9,23,2,14039,0)="""DATA"",396.18,216,3,1184,0)"
^XMB(3.9,23,2,14040,0)="M\T*LGL`U6[QTN7B1)1INL1K!9""$;`O2`9V+TY1@'LL'F*G]L$+N.;!ZC-<+H"
^XMB(3.9,23,2,14041,0)="""DATA"",396.18,216,3,1185,0)"
^XMB(3.9,23,2,14042,0)="M!]_@*B_:`ZY.O2WZUC@=L'&83C29#I>09L2[F),+C[;C2DQ!\Y7&5TEL<*[%"
^XMB(3.9,23,2,14043,0)="""DATA"",396.18,216,3,1186,0)"
^XMB(3.9,23,2,14044,0)="MY+3H8CF(D'BUC[Q9:F!I!!-+1;5UE+=?:505%CDYDR)H&7J$>_[O`X_8.?.X"
^XMB(3.9,23,2,14045,0)="""DATA"",396.18,216,3,1187,0)"
^XMB(3.9,23,2,14046,0)="MOM04,630EJO?M;-[D11DQ'**Z\[5S7`+?!*]T>Q%B@!JBB3>WG)';U;`YM4V"
^XMB(3.9,23,2,14047,0)="""DATA"",396.18,216,3,1188,0)"
^XMB(3.9,23,2,14048,0)="MYA""`AQ7GA/)O`OE6&.N*<1&38J4)EB0`.T$PT+1J)2-+&?(2(2%!9]B+T!XA"
^XMB(3.9,23,2,14049,0)="""DATA"",396.18,216,3,1189,0)"
^XMB(3.9,23,2,14050,0)="M[K:""G*\>RB^L07E#2GW,8BLH\Z\RCA)R9!W*FK#F+:D1Y3[S""07L4M8<)]/B"
^XMB(3.9,23,2,14051,0)="""DATA"",396.18,216,3,1190,0)"
^XMB(3.9,23,2,14052,0)="MS""S5>O[5+I$+77![P26RTW2X/Q""1Z!9<,W""E1;@SS3*=8B3EGNS)2RCBPB-%"
^XMB(3.9,23,2,14053,0)="""DATA"",396.18,216,3,1191,0)"
^XMB(3.9,23,2,14054,0)="MW[>HRB_30'X8X`I1*!E#_!%NE`""!'U.$]!^XS>@2?ST'MJ[T1FL<B%PAQBL<"
^XMB(3.9,23,2,14055,0)="""DATA"",396.18,216,3,1192,0)"
^XMB(3.9,23,2,14056,0)="MB/TX(&+C""G+[I(\8=SM76I.UV3M+U'9E]EN_V8N8]8GK`/>G)_W\4U=J=VOS"
^XMB(3.9,23,2,14057,0)="""DATA"",396.18,216,3,1193,0)"
^XMB(3.9,23,2,14058,0)="M=^9HNC+_U&_^PA+]"";85SR""1?OZ9*[79VOQ=(<K@SC!_9:BV!++3NX=8/3RH"
^XMB(3.9,23,2,14059,0)="""DATA"",396.18,216,3,1194,0)"
^XMB(3.9,23,2,14060,0)="MVG+/#25WZ:C&C!RZD-)H1A^N!D7$`@]7U7H0@WLY""W#512(A>%N2JCD'W/9C"
^XMB(3.9,23,2,14061,0)="""DATA"",396.18,216,3,1195,0)"
^XMB(3.9,23,2,14062,0)="M<E!,:V>[JM?Q0DH.+97)EP*<X.P!7G@V9A.Y1?X..[:*/X;%NZE?#J*7;B:O"
^XMB(3.9,23,2,14063,0)="""DATA"",396.18,216,3,1196,0)"
^XMB(3.9,23,2,14064,0)="M""""TX9\4'LEYYK;^*"")AS'$&&[N_>WORXK+@D9%QRV#0P_RA77(H>6JRTPT*"""
^XMB(3.9,23,2,14065,0)="""DATA"",396.18,216,3,1197,0)"
^XMB(3.9,23,2,14066,0)="MT'$EP=3A38A1P384WZ:SG+$//6'^/I<YQ821N&+M\8AS+!27!T/-LXR'!MSJ"
^XMB(3.9,23,2,14067,0)="""DATA"",396.18,216,3,1198,0)"
^XMB(3.9,23,2,14068,0)="M""':$[!4.R47N5*D/?M[I;%&Z\3)TJ?3'@IUZR)$?Y'APH'K0?KXY32;>20\\"
^XMB(3.9,23,2,14069,0)="""DATA"",396.18,216,3,1199,0)"
^XMB(3.9,23,2,14070,0)="M\0,NTQ8,*3V;*#>MJ-YTQ/ZF8V>=ND0[K=D(`=""_VZ3Z=^'4W@P*IO\@ZTQ1"
^XMB(3.9,23,2,14071,0)="""DATA"",396.18,216,3,1200,0)"
^XMB(3.9,23,2,14072,0)="M?J:DXNK394X&:^1JD-*I(Q6ZBJL<UC#'#92N9/!*W.J+OPM+<V0;+@R:+?1G"
^XMB(3.9,23,2,14073,0)="""DATA"",396.18,216,3,1201,0)"
^XMB(3.9,23,2,14074,0)="M#_M*T!E-,VT-3=KZP0C40$6X4?%C.W%PPOQR;\;,)-Q,?6N(%&1E8TCG]ZBS"
^XMB(3.9,23,2,14075,0)="""DATA"",396.18,216,3,1202,0)"
^XMB(3.9,23,2,14076,0)="M2K.)2+IFE1!3Y'$C+![)HKX:J12[@&+V,3A""GKA20Q+I6*A,7]U-3""9,HRR!"
^XMB(3.9,23,2,14077,0)="""DATA"",396.18,216,3,1203,0)"
^XMB(3.9,23,2,14078,0)="M]%N*75&8,9)CV*!#\(RYE%[+#>2%NYUY<+>`9ALSGE'^\1J_#:#Z9XXP4@6,"
^XMB(3.9,23,2,14079,0)="""DATA"",396.18,216,3,1204,0)"
^XMB(3.9,23,2,14080,0)="MU!%&IH#AE\-GLE;!98[;[>+""E5&_O(DCD=+P+:D,-ZY00A64T!4*4$'QR_`S"
^XMB(3.9,23,2,14081,0)="""DATA"",396.18,216,3,1205,0)"
^XMB(3.9,23,2,14082,0)="M(07<*C2$Z)GE*A4R%[\AT%4^PT@%)7*%DJB@^,4$F1!5=H;2E7"".-><];=D9"
^XMB(3.9,23,2,14083,0)="""DATA"",396.18,216,3,1206,0)"
^XMB(3.9,23,2,14084,0)="M&>0L<R57I96A\P*H]#)T54Q95+B!XE=)""*70[@M""#@%ZJ0EKJ3ZA#HW""K""15"
^XMB(3.9,23,2,14085,0)="""DATA"",396.18,216,3,1207,0)"
^XMB(3.9,23,2,14086,0)="M1:DC#)56N=*A$EF_N#F4^_&X$F5FR'A&E9.<YU1(.`P]XS:NDU9IJJNBJC3,"
^XMB(3.9,23,2,14087,0)="""DATA"",396.18,216,3,1208,0)"
^XMB(3.9,23,2,14088,0)="MU;ZJ1,U/TK*HY]L3JDC+0S_:GHQ<RUQM""E"")&W""6-Y5+`<XN1>4^0T__*5;A"
^XMB(3.9,23,2,14089,0)="""DATA"",396.18,216,3,1209,0)"
^XMB(3.9,23,2,14090,0)="MC$_G+D9BZ*45J3SEL1+.359NZSIUE=@!5[D#*FT#SHNIU'M/;RKL+D4UDM';"
^XMB(3.9,23,2,14091,0)="""DATA"",396.18,216,3,1210,0)"
^XMB(3.9,23,2,14092,0)="MGAPN08T1S4W5T\S5+`.5BP""N+@*H-`XX+Z1*]T'B:?$V$_?*?S^)WQ3^8(K3"
^XMB(3.9,23,2,14093,0)="""DATA"",396.18,216,3,1211,0)"
^XMB(3.9,23,2,14094,0)="M^4>N)EJE=I$K%*!2.^#J[8'*3X/4DWU17R8R<,M6.V0!(;W=N>W*4),42K2N"
^XMB(3.9,23,2,14095,0)="""DATA"",396.18,216,3,1212,0)"
^XMB(3.9,23,2,14096,0)="M#/T$YDPP2O6;N$LZO5)!^9DF%R3T!*O)IJV!1RY=%;&0I@N""]-K""LT1C;!*("
^XMB(3.9,23,2,14097,0)="""DATA"",396.18,216,3,1213,0)"
^XMB(3.9,23,2,14098,0)="M-]8,""4,OAH3Z#K0N%B/T^I^:DD.;-QWIQ]:XW1>&H0N+PCF+)AC,W`EON:,J"
^XMB(3.9,23,2,14099,0)="""DATA"",396.18,216,3,1214,0)"
^XMB(3.9,23,2,14100,0)="MIJ6V'10BA_/AX4;?Q8=JGK,WAD0S5.:(AM:$W:LM7Z/=HATRLFR\4^`PE`D]"
^XMB(3.9,23,2,14101,0)="""DATA"",396.18,216,3,1215,0)"
^XMB(3.9,23,2,14102,0)="M.""9=ZKB!CU[XDK_M>)4'):SP$;'FVE?(N?B$&L1EXO=L7JC1\Q2X%6?`UIJG"
^XMB(3.9,23,2,14103,0)="""DATA"",396.18,216,3,1216,0)"
^XMB(3.9,23,2,14104,0)="M271K\N8$&T4VB2Q7P+8]3Q9C?0QA.EN!O*54='BM]D[P#_VJY7)'DW/HU.K7"
^XMB(3.9,23,2,14105,0)="""DATA"",396.18,216,3,1217,0)"
^XMB(3.9,23,2,14106,0)="M+77>U5SK$@!^N54F+%()""XA-68%K#X9T!29J8\^]&8L6A-1UPQRL;4$#OQ0B"
^XMB(3.9,23,2,14107,0)="""DATA"",396.18,216,3,1218,0)"
^XMB(3.9,23,2,14108,0)="MM>H82%T[!F03F8G<R""]@3X4DP(I0]((-W'45A6BMP2/R+$`)$:/M]^9^I&SC"
^XMB(3.9,23,2,14109,0)="""DATA"",396.18,216,3,1219,0)"
^XMB(3.9,23,2,14110,0)="M2NYVC5R_5%QD><^(YY--4!""FMSJQ9:_DSG_;+'OU:)XT;+R'LJZH>Q<;WD6&"
^XMB(3.9,23,2,14111,0)="""DATA"",396.18,216,3,1220,0)"
^XMB(3.9,23,2,14112,0)="MG;>=W""W3O=T:OC1@W)@HG>X1RJ`K63XPT9MUNWN8TK/L@A:)0-]LG5\T&WRV"
^XMB(3.9,23,2,14113,0)="""DATA"",396.18,216,3,1221,0)"
^XMB(3.9,23,2,14114,0)="M>WS_G1D:N;9;F9O'&L[67C)0=BKT^_8^>5VG1O!CA9A^XY\/\TP;D]$9&J#["
^XMB(3.9,23,2,14115,0)="""DATA"",396.18,216,3,1222,0)"
^XMB(3.9,23,2,14116,0)="MYO3;B8$U@/>L*LL5'+M.QE9%`ZJ=)ZILADI88`.2S+-*'DT:SO3@0\^:LA3."
^XMB(3.9,23,2,14117,0)="""DATA"",396.18,216,3,1223,0)"
^XMB(3.9,23,2,14118,0)="M62<)S\D,:&*':D&LZO.N+BITAAI!#*Q38N""7$DNC_K],3MS.:0']$9<EAY/8"
^XMB(3.9,23,2,14119,0)="""DATA"",396.18,216,3,1224,0)"
^XMB(3.9,23,2,14120,0)="M*3FYX6UBZ6=!8CRR%T=V?!^\Q^1HV>@J>&A1%]<M;V;H_(\C^QI)XI??Z\]("
^XMB(3.9,23,2,14121,0)="""DATA"",396.18,216,3,1225,0)"
^XMB(3.9,23,2,14122,0)="MU(0VXN3@I49TK0<Z5&XJ&ORN#ZF[WU2*V+EVM237(T,S!.M]*XF+V8AU148U"
^XMB(3.9,23,2,14123,0)="""DATA"",396.18,216,3,1226,0)"
^XMB(3.9,23,2,14124,0)="MPEN+$:\<#4D<Q#49[2,/8O""1""RA/FV<!SN/D0%E^Z9?`7,E*+`/<S'Q6-G,X"
^XMB(3.9,23,2,14125,0)="""DATA"",396.18,216,3,1227,0)"
^XMB(3.9,23,2,14126,0)="M*YLI9Z*B=GEBY;IYM'*JMCY?F#Q6*RX#6)RIM;=^J558+@YKS6(N^0`L'X3+"
^XMB(3.9,23,2,14127,0)="""DATA"",396.18,216,3,1228,0)"
^XMB(3.9,23,2,14128,0)="M!YO%@W3QMS[\ZP+Q)W$""5O*/S6)9&W'JX3>HE$=7VMF);?F6CS[:@A*DUVW!"
^XMB(3.9,23,2,14129,0)="""DATA"",396.18,216,3,1229,0)"
^XMB(3.9,23,2,14130,0)="MED""$J/WTZV=;,)(E%+$:<Y*$Y>""_EB""-72VQ:EGZ""C*/3V^G*6.5Q_DC`>7S"
^XMB(3.9,23,2,14131,0)="""DATA"",396.18,216,3,1230,0)"
^XMB(3.9,23,2,14132,0)="MY_-?K;$`V=@C,LDE=""$GN,K/B%D#""X>T=`E,N.Z:\.B+>9P5&)/=_`RKDSY\"
^XMB(3.9,23,2,14133,0)="""DATA"",396.18,216,3,1231,0)"
^XMB(3.9,23,2,14134,0)="M<ZW51/,T6I6?\Z]^)UTJ#VP.04-$+R(J<(6<""E@CGM,BNNU'6.-16#?[.GWJ"
^XMB(3.9,23,2,14135,0)="""DATA"",396.18,216,3,1232,0)"
^XMB(3.9,23,2,14136,0)="M==11-KT,SG':P,W-==4V%#=F_YVZ!6[V!^SCW:V/._*AN#JQ)7W&8Y#QSB'$"
^XMB(3.9,23,2,14137,0)="""DATA"",396.18,216,3,1233,0)"
^XMB(3.9,23,2,14138,0)="MR/RXF'5<'#,=8>`#GL%Q*@W,R]R8!UZ=CIH(E>WB;X9_0*J3(*%M:WW_P;++"
^XMB(3.9,23,2,14139,0)="""DATA"",396.18,216,3,1234,0)"
^XMB(3.9,23,2,14140,0)="M'[(<-\J6V)UMV_X0`&4#N3F/;F52FE_6CP=D7L<#0C#?H!H6CF,](""JJ!H9L"
^XMB(3.9,23,2,14141,0)="""DATA"",396.18,216,3,1235,0)"
^XMB(3.9,23,2,14142,0)="M9>.RDR?GU5]>(+;R!@SF^"">S3#ST=X4,/-K92?5T_/PPQVU(_TX=""XT@]`'F"
^XMB(3.9,23,2,14143,0)="""DATA"",396.18,216,3,1236,0)"
^XMB(3.9,23,2,14144,0)="M,""9U)""N=A6?2""LSRRS6:TI6@-[4/%>-4&2H.`5YOJ<S'G%.;H)'K5]-?EV0B"
^XMB(3.9,23,2,14145,0)="""DATA"",396.18,216,3,1237,0)"
^XMB(3.9,23,2,14146,0)="M/]G8DY]<0YJV:%A_>\GUO@21T8N29,X]E)R*Q&^<1V*])9]XW0B3=,&'T-/B"
^XMB(3.9,23,2,14147,0)="""DATA"",396.18,216,3,1238,0)"
^XMB(3.9,23,2,14148,0)="M2L]`?'?]`O>K7+G$$0)I>""D2$JL_8!W:\'VX/V(2J,\^LBZFRPNX@&%'=7FW"
^XMB(3.9,23,2,14149,0)="""DATA"",396.18,216,3,1239,0)"
^XMB(3.9,23,2,14150,0)="M$-@`$.DOX!*O91_\_1T/E`MRD3=1#%?U^)6.9WA;)IK82)ZW-30[V.$K%S-\"
^XMB(3.9,23,2,14151,0)="""DATA"",396.18,216,3,1240,0)"
^XMB(3.9,23,2,14152,0)="M.Q-NB:]%HW[?M;@$W>30X3O=K4W=Y[;&N""=5R'Z_N:N98JJ:HFV(GW_Y_-.7"
^XMB(3.9,23,2,14153,0)="""DATA"",396.18,216,3,1241,0)"
^XMB(3.9,23,2,14154,0)="M_9=_BX]DW-Q7`\;%FCK,V6C;$N7T(S`]OR+J1=>YK:,#/NCDE2BX1""*N;H(C"
^XMB(3.9,23,2,14155,0)="""DATA"",396.18,216,3,1242,0)"
^XMB(3.9,23,2,14156,0)="M)67P3.A'V]-"",U""V-8_K$L@-V%SLZO9M,0HZ<*6C05<0&:#;WM#1?[`;G,`H"
^XMB(3.9,23,2,14157,0)="""DATA"",396.18,216,3,1243,0)"
^XMB(3.9,23,2,14158,0)="M1^.E6=PS""/_)G1//;>A)WMK1/9+T""4NUJE?&%L45O=K,]8JB!M,U9;*^G>;G"
^XMB(3.9,23,2,14159,0)="""DATA"",396.18,216,3,1244,0)"
^XMB(3.9,23,2,14160,0)="M3U_!9M.QH+]'IL.PO#1F&&E?2/OTSZ]3X98K?H-`6T^;?NTJ8,EX<=SCX,QK"
^XMB(3.9,23,2,14161,0)="""DATA"",396.18,216,3,1245,0)"
^XMB(3.9,23,2,14162,0)="M2O8%*IF%""""6N"",563\TN^1E#GLSD+KBVKKBB\3J>%8ZJ$4;^LAC-9;&M>ML>"
^XMB(3.9,23,2,14163,0)="""DATA"",396.18,216,3,1246,0)"
^XMB(3.9,23,2,14164,0)="M[-N&)TJ-G7A&S@9KTQD-E7WLB=!:R`VP;N@8>!3+P`HR4:`_\5>5""`66J,R."
^XMB(3.9,23,2,14165,0)="""DATA"",396.18,216,3,1247,0)"
^XMB(3.9,23,2,14166,0)="M!EAL.6A#BBE!6\N`L!LZW7(8[^@2H>""QK?*K:4/'(\H;]DY_T>'6'&0[7%V8"
^XMB(3.9,23,2,14167,0)="""DATA"",396.18,216,3,1248,0)"
^XMB(3.9,23,2,14168,0)="M6-VM*`:NH`0..&7/#)D4TH/]8_X0D)I'PYWX/)]Q?IYV\U[3R*`4?JC`'Q$/"
^XMB(3.9,23,2,14169,0)="""DATA"",396.18,216,3,1249,0)"
^XMB(3.9,23,2,14170,0)="M7:2""F8E>N9W)-E3NQ]Z0P/6)%.1TD=,9JO$/PP'/888/URQJ+-`_C/=0*(^#"
^XMB(3.9,23,2,14171,0)="""DATA"",396.18,216,3,1250,0)"
^XMB(3.9,23,2,14172,0)="MFB>V>GAUT.EPXY`.S+Z2E]7!X8[/?GED.PYKA!E16Y%0IBK_`5!+`0(6""Q0`"
^XMB(3.9,23,2,14173,0)="""DATA"",396.18,216,3,1251,0)"
^XMB(3.9,23,2,14174,0)="M`@`(`/=4'S4LDSF.TT@``,:=`0`-``````````$`(`""`@0````!,:79E<E\Q"
^XMB(3.9,23,2,14175,0)="""DATA"",396.18,216,3,1252,0)"
^XMB(3.9,23,2,14176,0)="M,3,N<&YL4$L!`A8+%``""``@`^50?-969D4<,5```W=P""`!$``````````0`@"
^XMB(3.9,23,2,14177,0)="""DATA"",396.18,216,3,1253,0)"
^XMB(3.9,23,2,14178,0)="M`(""!_D@``$QI=F5R7S$Q,RYP;FPN9G)M4$L!`A8+%``""``@`]U0?-4RX8E?S"
^XMB(3.9,23,2,14179,0)="""DATA"",396.18,216,3,1254,0)"
^XMB(3.9,23,2,14180,0)="M+P``LKX!`!$``````````0`@`(""!.9T``$QI=F5R7S$Q,RYP;FPN8V1E4$L!"
^XMB(3.9,23,2,14181,0)="""DATA"",396.18,216,3,1255,0)"
^XMB(3.9,23,2,14182,0)="M`A8+%``""``@`]U0?-1Z(O!'[#0``I5<``!$``````````0`@`(""!6\T``$QI"
^XMB(3.9,23,2,14183,0)="""DATA"",396.18,216,3,1256,0)"
^XMB(3.9,23,2,14184,0)="E=F5R7S$Q,RYP;FPN<F5P4$L%!@`````$``0`^````(7;````````"
^XMB(3.9,23,2,14185,0)="""DATA"",396.18,216,3,1257,0)"
^XMB(3.9,23,2,14186,0)="end"
^XMB(3.9,23,2,14187,0)="""DATA"",396.18,216,4)"
^XMB(3.9,23,2,14188,0)="9^2416491043"
^XMB(3.9,23,2,14189,0)="""DATA"",396.18,216,6)"
^XMB(3.9,23,2,14190,0)="1^745"
^XMB(3.9,23,2,14191,0)="""DATA"",396.18,220,0)"
^XMB(3.9,23,2,14192,0)="ARRHYTHMIAS~113F"
^XMB(3.9,23,2,14193,0)="""DATA"",396.18,220,1,0)"
^XMB(3.9,23,2,14194,0)="^^2^2^3060830"
^XMB(3.9,23,2,14195,0)="""DATA"",396.18,220,1,1,0)"
^XMB(3.9,23,2,14196,0)="Last updated on 06/21/2006 ~113"
^XMB(3.9,23,2,14197,0)="""DATA"",396.18,220,1,2,0)"
^XMB(3.9,23,2,14198,0)="Patch DVBA*2.7*113"
^XMB(3.9,23,2,14199,0)="""DATA"",396.18,220,2)"
^XMB(3.9,23,2,14200,0)="3060524^^3060629.1553"
^XMB(3.9,23,2,14201,0)="""DATA"",396.18,220,3,0)"
^XMB(3.9,23,2,14202,0)="^396.184^830^830^3060830^^^^"
^XMB(3.9,23,2,14203,0)="""DATA"",396.18,220,3,1,0)"
^XMB(3.9,23,2,14204,0)="begin 664 Arrhythmia_113.pnl.zip"
^XMB(3.9,23,2,14205,0)="""DATA"",396.18,220,3,2,0)"
^XMB(3.9,23,2,14206,0)="M4$L#!!0``@`(`"".`'C52,&]DAC,``(T6`0`2````07)R:'ET:&UI85\Q,3,N"
^XMB(3.9,23,2,14207,0)="""DATA"",396.18,220,3,3,0)"
^XMB(3.9,23,2,14208,0)="M<&YLW%U[;!S'>=^[(_=XI""1*UL/Q4QO)#\FAY'O?48EK4T=*I$-*+'F2$K>N"
^XMB(3.9,23,2,14209,0)="""DATA"",396.18,220,3,4,0)"
^XMB(3.9,23,2,14210,0)="MO7<WQUMK;_>\#Y*GN`F*-BT""HT50('7KMNC;25$$10LT38&BB!.T?P0HT,8V"
^XMB(3.9,23,2,14211,0)="""DATA"",396.18,220,3,5,0)"
^XMB(3.9,23,2,14212,0)="MBK8(T+HMD+1P`#=)\T<?Z3QW9VYW[R'1IBC#L(][=S/?[YOO^^9[S5QU]4):"
^XMB(3.9,23,2,14213,0)="""DATA"",396.18,220,3,6,0)"
^XMB(3.9,23,2,14214,0)="MKJZJ!M`/;7?0_\ZK-JB8AF.9^M@R:#IQ*5$U._&#X]>TAM-*?""\N+P)MH^4D"
^XMB(3.9,23,2,14215,0)="""DATA"",396.18,220,3,7,0)"
^XMB(3.9,23,2,14216,0)="M_C@V>1YL`OVRZP`K*=<V+YD&.`J_:CN6JAF.?79%W?8^>Z3G#3::^`7-B/B"""
^XMB(3.9,23,2,14217,0)="""DATA"",396.18,220,3,8,0)"
^XMB(3.9,23,2,14218,0)="M9K`OI%;-CMM9`8:;/+(""W[U@6NVSV][#S$15K5VV&L""*2Y)4Q?""6U1K0I_%_"
^XMB(3.9,23,2,14219,0)="""DATA"",396.18,220,3,9,0)"
^XMB(3.9,23,2,14220,0)="MJ]T.N-Q$W\'@$N4?8G03!%W\40HNOC]943N.9AKR^,K""VL4%8:@I_%\TR-*\"
^XMB(3.9,23,2,14221,0)="""DATA"",396.18,220,3,10,0)"
^XMB(3.9,23,2,14222,0)="M,,P'Z#""%X##)N;6UQ8]7%X6!#M*'S^&_,NDBX?A!-%BB&:,L_T4I.-S=BT""U"
^XMB(3.9,23,2,14223,0)="""DATA"",396.18,220,3,11,0)"
^XMB(3.9,23,2,14224,0)="M'.6JJF\""90UT=+4.VL!P]EV`2W>VTE(M&SC)Z?F%""W-7EJO/51;GUM87JI/D"
^XMB(3.9,23,2,14225,0)="""DATA"",396.18,220,3,12,0)"
^XMB(3.9,23,2,14226,0)="M75,WK62RKI^'W[H^A9_1"";Z?PG]=4MM`WK^RKJRKAJVL`TMKDJ^N.UT=3,E-"
^XMB(3.9,23,2,14227,0)="""DATA"",396.18,220,3,13,0)"
^XMB(3.9,23,2,14228,0)="M^[RI-Z3)5=6""<Z)W)OKARN8)E_X/BU+B3R4*[,L>L$<]8)WBV=/*DJTX+<U6"
^XMB(3.9,23,2,14229,0)="""DATA"",396.18,220,3,14,0)"
^XMB(3.9,23,2,14230,0)="MP+;:5FK`V%#JIM%PZPYH*%L:?,N`[UL`*&TX=<M6FJ:NFUL:^ARP;14-I)A-"
^XMB(3.9,23,2,14231,0)="""DATA"",396.18,220,3,15,0)"
^XMB(3.9,23,2,14232,0)="M^!E@J5WXKJ6H=4>#G-J$_')UU5(THPGJZ'-/3EPSK<8U2^VD^D'(90B$HW$,"
^XMB(3.9,23,2,14233,0)="""DATA"",396.18,220,3,16,0)"
^XMB(3.9,23,2,14234,0)="M(</6Y@\\""/=Z$.8R>8CAFFHKJ@$A`*NNV4!Q@.TH#:@B\&E#L4`=3LO#`4I'"
^XMB(3.9,23,2,14235,0)="""DATA"",396.18,220,3,17,0)"
^XMB(3.9,23,2,14236,0)="MA9_HPG4-H0EKZ!%&$_ZKD$;_$+KB+V'Y^Q""EZJLQIJ2%V-@BU""!Y?/7RZI55"
^XMB(3.9,23,2,14237,0)="""DATA"",396.18,220,3,18,0)"
^XMB(3.9,23,2,14238,0)="MHK!+A@$5=J*VN:9""PAI3YQ$E%EY:^-1>AWS4P3B1DHFZOJY!&;/>%\$2)(I7"
^XMB(3.9,23,2,14239,0)="""DATA"",396.18,220,3,19,0)"
^XMB(3.9,23,2,14240,0)="M9+HH1X1%(0R@.F-B!HQ3!GS36Y:#WK(\.&=9K:[3:FNJ?0[JS*8&MI""4K.&E"
^XMB(3.9,23,2,14241,0)="""DATA"",396.18,220,3,20,0)"
^XMB(3.9,23,2,14242,0)="ML&\1X+NWH#D4W>$`NDR6@)O&X)K4NFA!<P""-91NIOZU`R2>R99^[143?&WW)"
^XMB(3.9,23,2,14243,0)="""DATA"",396.18,220,3,21,0)"
^XMB(3.9,23,2,14244,0)="M)&F\NM#0G+L8$O0'7B8*Y&ZL/=^B!B#>94B.4BG-9LNS:7_AQZ('S!%]G(GA"
^XMB(3.9,23,2,14245,0)="""DATA"",396.18,220,3,22,0)"
^XMB(3.9,23,2,14246,0)="M$?^E[XC<GC`N2<GJ>==Q3.,H&Y/\2:2)6JH_(Y9J'U7S^$4V[/W^OE#131OX"
^XMB(3.9,23,2,14247,0)="""DATA"",396.18,220,3,23,0)"
^XMB(3.9,23,2,14248,0)="M(\>2EXV*KM6O)P]ODQ$O`JAG6AT_E*3I:F7UVLJ:VM#,BY;I=AY@TXN/""1F4"
^XMB(3.9,23,2,14249,0)="""DATA"",396.18,220,3,24,0)"
^XMB(3.9,23,2,14250,0)="M73)>]_NH4+_I""?5%#URQD)Y<;YE;1(<G]CWMVH[6[""XYH&VGDNA_JVJ#4X(#"
^XMB(3.9,23,2,14251,0)="""DATA"",396.18,220,3,25,0)"
^XMB(3.9,23,2,14252,0)="M%>6""I@,J_N?VXP_""I;2@TMLQ>8(\!PWYZ""73@9+TH@O-%C13M:YR=6[MLGQR"
^XMB(3.9,23,2,14253,0)="""DATA"",396.18,220,3,26,0)"
^XMB(3.9,23,2,14254,0)="MK?>14G,=Q8`?5C=535=K.I!\IL1'Q$U7]6UI(/!RJ302\&,KH*'559VJ^_O%"
^XMB(3.9,23,2,14255,0)="""DATA"",396.18,220,3,27,0)"
^XMB(3.9,23,2,14256,0)="M@`22X!70-CWE1G\(IILHMTNQ_K9GNE^6*-A,IEC.[*`R3U5,U]*`I5P""6X(J"
^XMB(3.9,23,2,14257,0)="""DATA"",396.18,220,3,28,0)"
^XMB(3.9,23,2,14258,0)="M[U_6#,`Q0Q*4>W*]#GU""Z!]:=G+2MJ\""RT$,%?PM?K>:%G:K3(F@G12\R3<]"
^XMB(3.9,23,2,14259,0)="""DATA"",396.18,220,3,29,0)"
^XMB(3.9,23,2,14260,0)="M;_+5H3<JHI'QVW_;BDGAOD0F35C1$K:L=V/!+6M1V+(6MNL`/X>.A87<B""YU"
^XMB(3.9,23,2,14261,0)="""DATA"",396.18,220,3,30,0)"
^XMB(3.9,23,2,14262,0)="M<CC_9PNZ/``_@Y1NP36&7E07W.KF]MU;V-R8N3THFEOF4%T@!KS#+.U'&1?N"
^XMB(3.9,23,2,14263,0)="""DATA"",396.18,220,3,31,0)"
^XMB(3.9,23,2,14264,0)="MN6E+.UFEDFIN>_N&]Z1`>'\8\_X>ROLO>F+X=.S8HFG=\$3];-6""S(""<31U&"
^XMB(3.9,23,2,14265,0)="""DATA"",396.18,220,3,32,0)"
^XMB(3.9,23,2,14266,0)="M`N\_7U.-#9#XW=@Q\;'W\<DYUS')\S!/IE<DJ,$_ALDZ1<E:C`5W^OE5R]S4"
^XMB(3.9,23,2,14267,0)="""DATA"",396.18,220,3,33,0)"
^XMB(3.9,23,2,14268,0)="M&F2-V]2F64""US1Y?$TF#W3)=O8&-4PWX/O2YY(*![%1C(I*>'$_/3U!Z/A(+"
^XMB(3.9,23,2,14269,0)="""DATA"",396.18,220,3,34,0)"
^XMB(3.9,23,2,14270,0)="M^NM?9O0@7Q?.VE8=P,121TJ,_L#>M^9TE5-@NV-!%QU:3^CTKBQ4;>P-VVZG"
^XMB(3.9,23,2,14271,0)="""DATA"",396.18,220,3,35,0)"
^XMB(3.9,23,2,14272,0)="M8UK4IMH=4->:6AU[_QT=V#/P_7I+@?ZT#:5<L1U5LY2ZKK5K$.-I.).*#+7M"
^XMB(3.9,23,2,14273,0)="""DATA"",396.18,220,3,36,0)"
^XMB(3.9,23,2,14274,0)="MZM#]@:,VNG;'`.H,''E#,^#_&]J-&\BPP8%@)&!WC;K9`3X/>&<[@AMYCAN)"
^XMB(3.9,23,2,14275,0)="""DATA"",396.18,220,3,37,0)"
^XMB(3.9,23,2,14276,0)="MWV.^QO/!U3G,<X.0/P2SJ4P>P,._S:*CQV/!T&(E""R.+>1/8F+_$T4.KO*4L"
^XMB(3.9,23,2,14277,0)="""DATA"",396.18,220,3,38,0)"
^XMB(3.9,23,2,14278,0)="M7T7`FZZ!HQH%<1GJ(.(G?`>\0((=I6FIY`62D"">'0$ZL=N+KQ!]ZE&GI5A#Z"
^XMB(3.9,23,2,14279,0)="""DATA"",396.18,220,3,39,0)"
^XMB(3.9,23,2,14280,0)="MT<>4A6H5V1N#;IR:!1J[&(]&Q*(9GMDOLCCN6HBJ+:`P;E'%O(9&M0:``0-."
^XMB(3.9,23,2,14281,0)="""DATA"",396.18,220,3,40,0)"
^XMB(3.9,23,2,14282,0)="M;%[A\F84T-%LLX&E?:YRI;J@5!8O*'UCN0B2J-?S""6P*XV.4I&F/I+Q'TML%"
^XMB(3.9,23,2,14283,0)="""DATA"",396.18,220,3,41,0)"
^XMB(3.9,23,2,14284,0)="M2-(%),4N4@,#:LPF1`QM'XYJ56^[F$$+@6-H&F#:VC:+EB&]#:JE#<VNP[79"
^XMB(3.9,23,2,14285,0)="""DATA"",396.18,220,3,42,0)"
^XMB(3.9,23,2,14286,0)="M@%N(9;:5EFEW-$?5M1LDAD:1LV9HC@9M#(""QLTL>(Y5EI@?'V!T:9`\D""RD@"
^XMB(3.9,23,2,14287,0)="""DATA"",396.18,220,3,43,0)"
^XMB(3.9,23,2,14288,0)="M^J3PK@%<JVNWH8B:[>XP_""H(_'J>\NLK(:'XCWK9!(!W3$6%5AF:*&A=-*B<"
^XMB(3.9,23,2,14289,0)="""DATA"",396.18,220,3,44,0)"
^XMB(3.9,23,2,14290,0)="MJN$@U50JJ@7]4.@N.,`Z,P^:6LW2=%UU(*6GYI8J\Z?1LN(<RS#D%7GR$K\F"
^XMB(3.9,23,2,14291,0)="""DATA"",396.18,220,3,45,0)"
^XMB(3.9,23,2,14292,0)="M!=;3MYZ_4.K)=D""#A5G,T@);9C#'P59)41MMS;:]A:*`2/;#@BHH/FDB_#SJ"
^XMB(3.9,23,2,14293,0)="""DATA"",396.18,220,3,46,0)"
^XMB(3.9,23,2,14294,0)="M.D*MUJ&LUD%;O0Z&D=5<5@#W[PQ</,18/57>P31(!#EI@9PSL0""O?7(N>7)@"
^XMB(3.9,23,2,14295,0)="""DATA"",396.18,220,3,47,0)"
^XMB(3.9,23,2,14296,0)="MF'`]D?AZC%&@%L#]G&DOXPP49L>UV7:V"":!XJ$B5#""@((^P?.:K@_TRH?(91"
^XMB(3.9,23,2,14297,0)="""DATA"",396.18,220,3,48,0)"
^XMB(3.9,23,2,14298,0)="M^860Q-YQ:$8%7MT^!K4WDOM`>""27*?*>ODRQ_I>'];@7UI0*H\5PV0S1EH""?"
^XMB(3.9,23,2,14299,0)="""DATA"",396.18,220,3,49,0)"
^XMB(3.9,23,2,14300,0)="M0XV1WD4^#LX9X]4%C2>3D!=NV[#C\=Y(+_%Q8,OQ2Z8D!#`D6#O`!VM4QJ@O"
^XMB(3.9,23,2,14301,0)="""DATA"",396.18,220,3,50,0)"
^XMB(3.9,23,2,14302,0)="M5`SX9B=]/,6T)Q5[(%Z+25*J6C';-9/WE-D#P05,?$8*X#[*K6/9PSV)V,RD"
^XMB(3.9,23,2,14303,0)="""DATA"",396.18,220,3,51,0)"
^XMB(3.9,23,2,14304,0)="MFDL$]+(_E4,V:AEZ9?+A%6]3S2EN1W%,I<`_+-""')?F(_[!$'V;2\O1%Z/]"""
^XMB(3.9,23,2,14305,0)="""DATA"",396.18,220,3,52,0)"
^XMB(3.9,23,2,14306,0)="MU:3[<CIB&3,\GC^1^JUC878OK6-B>-6D0?@4YL'_,AYHL3#=S`^GFR/HU]CP"
^XMB(3.9,23,2,14307,0)="""DATA"",396.18,220,3,53,0)"
^XMB(3.9,23,2,14308,0)="MA)8Y&Y(X'@L4#'A""""R,9D4>R9]6SV(H$G.)""^F$DE##DL#G#X8G""$`C'AT<X"
^XMB(3.9,23,2,14309,0)="""DATA"",396.18,220,3,54,0)"
^XMB(3.9,23,2,14310,0)="MRR-\FB%\UT/X00YA=B2$Z1PQD_6691K0TX$V<0,9RDV@M'#5J*EJN@L5B08)"
^XMB(3.9,23,2,14311,0)="""DATA"",396.18,220,3,55,0)"
^XMB(3.9,23,2,14312,0)="MHQE)>6B(V30O;3_)('XZ%&)ZQZ4M&23T[G!""R5(D+.)/SM(8YV,A9);*.T[F"
^XMB(3.9,23,2,14313,0)="""DATA"",396.18,220,3,56,0)"
^XMB(3.9,23,2,14314,0)="M""!MK6J#S$_WX62KN.*&IX0G-\(0FOB;UI;2TXY1.#DUI/BM0.M971HO9':=T"
^XMB(3.9,23,2,14315,0)="""DATA"",396.18,220,3,57,0)"
^XMB(3.9,23,2,14316,0)="M:GA*<P*E2RP2KX6Y(;G1""!W%PNWKR?(>$+*\1;X:^1'*S(R7TGY+NN.2O''F"
^XMB(3.9,23,2,14317,0)="""DATA"",396.18,220,3,58,0)"
^XMB(3.9,23,2,14318,0)="M\Q\0?'[J/)W%C$A11KPUL""JYJ-DPZ,1YW:JENFUU]ZN2(BZ:""3N*<3W(:A8A"
^XMB(3.9,23,2,14319,0)="""DATA"",396.18,220,3,59,0)"
^XMB(3.9,23,2,14320,0)="M<<P)U&DQH^AFW<\9L*R#@Z&=>_^7+3(;S;8J7$5.?%X:E(S>U;+""@/1WB._+"
^XMB(3.9,23,2,14321,0)="""DATA"",396.18,220,3,60,0)"
^XMB(3.9,23,2,14322,0)="MW""FR;&?ILB4\M\]BMB.7*^3W7J5)M$'4S[<QUCS%NM_+\-]S)W1$))AV3HN9"
^XMB(3.9,23,2,14323,0)="""DATA"",396.18,220,3,61,0)"
^XMB(3.9,23,2,14324,0)="M!FI_ES'V*8K]F9#*4EHP.^MNNZT2L[-JF7`K:""OK+`M/3=)M4$&:%G66IJ;_"
^XMB(3.9,23,2,14325,0)="""DATA"",396.18,220,3,62,0)"
^XMB(3.9,23,2,14326,0)="M@:2FOR/M7`$I3(-HCOX!S-D3E+-_Z^ULKWO%VE*N6-SK*E3B""Y2TJ2U1\53H"
^XMB(3.9,23,2,14327,0)="""DATA"",396.18,220,3,63,0)"
^XMB(3.9,23,2,14328,0)="ME3M!A<;""52A'.T!^F;0@)""GX\1`=>EC0H=M0<<*SD24:1C2))^DP3_)Z,&4Z"
^XMB(3.9,23,2,14329,0)="""DATA"",396.18,220,3,64,0)"
^XMB(3.9,23,2,14330,0)="M\QB$!:-A:""!J;<U!^1:UT5!P\A[5H$R<%Z76@\^#]BW!TEIG""C/X.&7P24^Z"
^XMB(3.9,23,2,14331,0)="""DATA"",396.18,220,3,65,0)"
^XMB(3.9,23,2,14332,0)="M%D8KP=X?O\D2;,^ZE[C>2Z\;XXV0LM!&E<`&VPZJL'5,V];@RL\H#6#7+:U&"
^XMB(3.9,23,2,14333,0)="""DATA"",396.18,220,3,66,0)"
^XMB(3.9,23,2,14334,0)="M2K-US:J[;=M1C3H@14Y62&FKAM8$-DG+>\GE!M0:U08*KKB\X%K=<R%YY1Z2"
^XMB(3.9,23,2,14335,0)="""DATA"",396.18,220,3,67,0)"
^XMB(3.9,23,2,14336,0)="MR:Z>.$'BP06ZCI4@R0?FJ><%)P3.KC2&A2+(I_F&UW]D)OS9D,(J,H.0/3CW"
^XMB(3.9,23,2,14337,0)="""DATA"",396.18,220,3,68,0)"
^XMB(3.9,23,2,14338,0)="MOC,POK]S,'(\C+]B""K4:A#%]&54@E#KMUCL7M;(T(_&J)#`F\?LACO8C%=="""
^XMB(3.9,23,2,14339,0)="""DATA"",396.18,220,3,69,0)"
^XMB(3.9,23,2,14340,0)="M!$*O&J@.:0)$Y2!<4D(E?PU];!>8-5!^\QF>;3=8[/TW(2#/S#/=LE%U'311"
^XMB(3.9,23,2,14341,0)="""DATA"",396.18,220,3,70,0)"
^XMB(3.9,23,2,14342,0)="M]ZY-BI;U7OQ]2_L])!1X$O+!\-\GX7Z/A,""$]F!=+65Y\\)4U0AI[&;[2`V@"
^XMB(3.9,23,2,14343,0)="""DATA"",396.18,220,3,71,0)"
^XMB(3.9,23,2,14344,0)="MRD8#.*H&H=P^PEZ<Y7L3'Z%(4D$D\<S9VX9HNN=1HI_I0W3V-B*:]9S'!E*="
^XMB(3.9,23,2,14345,0)="""DATA"",396.18,220,3,72,0)"
^XMB(3.9,23,2,14346,0)="MVTVJQ0P!S:A=C@DJ%?]DD.K[%K`::YL`->>0Q`!38=;XNY]O_)T5]KNK5%G_"
^XMB(3.9,23,2,14347,0)="""DATA"",396.18,220,3,73,0)"
^XMB(3.9,23,2,14348,0)="M7@I4I-+9=%IH0B4>_7[>H^?W>ZCP=+#O>!O^FC]8IK0WJD`3U67H<T(/R_?X"
^XMB(3.9,23,2,14349,0)="""DATA"",396.18,220,3,74,0)"
^XMB(3.9,23,2,14350,0)="MR-^\\4E\FVVSGV)0+W!0""P<6D%_3`(UUH,/5$0MZO0E"">1VW$N""^IPWD*<+%"
^XMB(3.9,23,2,14351,0)="""DATA"",396.18,220,3,75,0)"
^XMB(3.9,23,2,14352,0)="MU+O*E@GY)*>6VAW+W`0-1;YWR7""`!5U([#)M/:Y8@+8NV/(XWA.EJ157=S0R"
^XMB(3.9,23,2,14353,0)="""DATA"",396.18,220,3,76,0)"
^XMB(3.9,23,2,14354,0)="M:4JH&47""HBG17Y$$7(DO2B'`LN61@(VAPTSR)&D:QM(ZL>Y:&XCED.#JXZM5"
^XMB(3.9,23,2,14355,0)="""DATA"",396.18,220,3,77,0)"
^XMB(3.9,23,2,14356,0)="M^:YYB`5U870Z.OO0H<NNTX$O$4ISN[L!#'FLLCJW*N]#7FD+F#;J<1D`>?@B"
^XMB(3.9,23,2,14357,0)="""DATA"",396.18,220,3,78,0)"
^XMB(3.9,23,2,14358,0)="M$NO&>)HHV_\P#OR1?[#&YT!NM$[QA]8'[[1/CEJ0""8NL!2_@/-N""BW[WDY?8"
^XMB(3.9,23,2,14359,0)="""DATA"",396.18,220,3,79,0)"
^XMB(3.9,23,2,14360,0)="MSF1F]X`B3H2:&P'E9V(!<U/V4*9G]U3U>3(4;IF'^XT@W#G.Y.3V`,HIOE?B"
^XMB(3.9,23,2,14361,0)="""DATA"",396.18,220,3,80,0)"
^XMB(3.9,23,2,14362,0)="M4&^O!']NK]^^5,P79B,:)&*]""H02-!'9ZHS@3-[=VY/IMY<=0KNFEYE`5G-7"
^XMB(3.9,23,2,14363,0)="""DATA"",396.18,220,3,81,0)"
^XMB(3.9,23,2,14364,0)="MCW$-2+M%Y>9I/]U:;!#<?4OHQ*B+B_DV5[(:\61.E+'-""\;VF\'MQF]**.='"
^XMB(3.9,23,2,14365,0)="""DATA"",396.18,220,3,82,0)"
^XMB(3.9,23,2,14366,0)="M:THXL81C-4<S7-.U:3\3KINPOJ^1B_1]Q'56<-$\D_N'08$M9V=+$0*;""FR9"
^XMB(3.9,23,2,14367,0)="""DATA"",396.18,220,3,83,0)"
^XMB(3.9,23,2,14368,0)="M%TVS(8]=4#5+'ELU3:N?!-/4Q3?(UKW-O,1'&`5W\<E;H%J<GW-S4D3[+:@S"
^XMB(3.9,23,2,14369,0)="""DATA"",396.18,220,3,84,0)"
^XMB(3.9,23,2,14370,0)="M[6>]0M+%,LEV#9\OCA)<ZK^_+@V<<O>K2O$!&*.3Q;-\S8&U^_VWEQG_K3OO"
^XMB(3.9,23,2,14371,0)="""DATA"",396.18,220,3,85,0)"
^XMB(3.9,23,2,14372,0)="M8,]X1/6%!IF&T,:]/R1S_*A8].WINC8M!?F:X)9SQSM0_>U!2+V8QS'""+)7G"
^XMB(3.9,23,2,14373,0)="""DATA"",396.18,220,3,86,0)"
^XMB(3.9,23,2,14374,0)="M9C""T.[;H]2@;#:\(')7N8OL9&?9CE'%3(;G7$DIDGE,::G>&]$7C\5&SL*(U"
^XMB(3.9,23,2,14375,0)="""DATA"",396.18,220,3,87,0)"
^XMB(3.9,23,2,14376,0)="ME>N&N879!UURR]PF9U%0T3ER8AI!?$T2H\!70O(_RAHY9`.'-W$2S^EV<$[5"
^XMB(3.9,23,2,14377,0)="""DATA"",396.18,220,3,88,0)"
^XMB(3.9,23,2,14378,0)="M)FL5.4>>!W>,SO`[(0W*-FKL!S!,4`#JCY]1FIJNLY9D@DTSFJ;5QLR<06EX"
^XMB(3.9,23,2,14379,0)="""DATA"",396.18,220,3,89,0)"
^XMB(3.9,23,2,14380,0)="M2,:)*P9^[P3MUO<^@-N&R=<0DSJNW<(CV2277\-*/C!QQ0I?F/S$#Z1`[=CG"
^XMB(3.9,23,2,14381,0)="""DATA"",396.18,220,3,90,0)"
^XMB(3.9,23,2,14382,0)="M4)DK(ZJ0\I[3!.RH#^(6JAX0.M!QI*@LJ#""UMS@_&Y:<J["".;59]@0)0!PT7"
^XMB(3.9,23,2,14383,0)="""DATA"",396.18,220,3,91,0)"
^XMB(3.9,23,2,14384,0)="MQJ3G(@LAU#Y_B&P);TCO02$D:FN@N]%_$,'[.S;UPVSJ0Y'[7^HF]S]Z:.)-"
^XMB(3.9,23,2,14385,0)="""DATA"",396.18,220,3,92,0)"
^XMB(3.9,23,2,14386,0)="M,F,WL!D]$%DN30XLEP8R-?S*Q>?HPLT&6X=SZ7(II/]:""""4$XP`""8QWWQYK-"
^XMB(3.9,23,2,14387,0)="""DATA"",396.18,220,3,93,0)"
^XMB(3.9,23,2,14388,0)="M[H%((AX>!8N6Z'-,V""<\G`7/N<P5]D*!>3Q:^,N""*+XA18MBP!63;T[ZV0F,"
^XMB(3.9,23,2,14389,0)="""DATA"",396.18,220,3,94,0)"
^XMB(3.9,23,2,14390,0)="M3Y(8HA+MB26I.;UE[X^%""W3*ZZ-,F1AXPO7R&LV!>>55[PFO+[X@^5;3%Z12"
^XMB(3.9,23,2,14391,0)="""DATA"",396.18,220,3,95,0)"
^XMB(3.9,23,2,14392,0)="MNC1:4JPR=_ZBO/\JOD3%[.BJ[73E0^0.&LN_@T:^BUECQX(>!SYP)$_-&1L:"
^XMB(3.9,23,2,14393,0)="""DATA"",396.18,220,3,96,0)"
^XMB(3.9,23,2,14394,0)="M^\Z!BFF9!MHJ;)00%!-A!XB4H?`)$3HQX;_RLX+[$&E5K>-YA=<THV%N32R;"
^XMB(3.9,23,2,14395,0)="""DATA"",396.18,220,3,97,0)"
^XMB(3.9,23,2,14396,0)="MQ@;BPT2HEF7YO3B19('/;WI*UO(""GTRYM#=R37V.W-,DS'GAR/V25VC_W)W0"
^XMB(3.9,23,2,14397,0)="""DATA"",396.18,220,3,98,0)"
^XMB(3.9,23,2,14398,0)="MQB&'^PYENMW]A<3?[Y3XZY`.S/O$-@Y7;Q/17-A6V[O8O-&WA4(XGOU!""NX!"
^XMB(3.9,23,2,14399,0)="""DATA"",396.18,220,3,99,0)"
^XMB(3.9,23,2,14400,0)="M;V578H?%%@K2*O'9T3HKOAK;D<Z*<IF[Y\(_Z?#3?6NL^'(#[&8WT6$NJ!N["
^XMB(3.9,23,2,14401,0)="""DATA"",396.18,220,3,100,0)"
^XMB(3.9,23,2,14402,0)="M4@$=MCF[P%_E<8`B_+9G5C)$T<:*A2*?A$]%Y(7.^'%4I87.`*ZWU`YX7)D'"
^XMB(3.9,23,2,14403,0)="""DATA"",396.18,220,3,101,0)"
^XMB(3.9,23,2,14404,0)="MR+G7G*Z7""QH/%&0N(?=?EV6X7A;0Y8F/=CO0#]=L.;5>-W4-OSRX""NVL:Z,+"
^XMB(3.9,23,2,14405,0)="""DATA"",396.18,220,3,102,0)"
^XMB(3.9,23,2,14406,0)="M)=1-U7';`\_`984U]`XP^@AK/L*]<%5)<OBEI=G'*1(D_!S;3]_QQ/?'/>B%"
^XMB(3.9,23,2,14407,0)="""DATA"",396.18,220,3,103,0)"
^XMB(3.9,23,2,14408,0)="M3.3B3H0D_8Z?1W64EK)NND;#/J.LH>&4*YT.Q+MLUD!TQH_$!'+R6@N`&\""6"
^XMB(3.9,23,2,14409,0)="""DATA"",396.18,220,3,104,0)"
^XMB(3.9,23,2,14410,0)="M)RI(,W7X*KG6,HUZ2Y-3\Z"".KH4`C9LZ@)4O"";""_U1=V;@=@+YM;[QGLX8\L"
^XMB(3.9,23,2,14411,0)="""DATA"",396.18,220,3,105,0)"
^XMB(3.9,23,2,14412,0)="MY04Y[X.Z4!1.@PQ&_6`/:C3->PIZ^""IB?I8'W5_""""[<.^KT4\.&/0A;2O(#'"
^XMB(3.9,23,2,14413,0)="""DATA"",396.18,220,3,106,0)"
^XMB(3.9,23,2,14414,0)="MEP.@?9LMG%).#<SE'UH%5MW%Q6TJW![.1)2YGIAW=1UU0<@'%KN0/1:PH1-B"
^XMB(3.9,23,2,14415,0)="""DATA"",396.18,220,3,107,0)"
^XMB(3.9,23,2,14416,0)="MU`?<I16%3;A9JB^T\DC0#O+0T!0[@RP672A@%>Z'B!VR=O"":H*@99X4K3_K-"
^XMB(3.9,23,2,14417,0)="""DATA"",396.18,220,3,108,0)"
^XMB(3.9,23,2,14418,0)="M.#FGZPK!N1.)=!H6OR7QV=5$T\ND_Z=T!_CKR7`GL5#@FX)9%6%YX,D%[L!4"
^XMB(3.9,23,2,14419,0)="""DATA"",396.18,220,3,109,0)"
^XMB(3.9,23,2,14420,0)="MQ3_F2BY'O4"".N>Y^`W8/U"")_E$`9NFLW:K@R-USBY_M=3E2A!X))$^U6""Q@A"
^XMB(3.9,23,2,14421,0)="""DATA"",396.18,220,3,110,0)"
^XMB(3.9,23,2,14422,0)="MEQ/UC$ZUX4N2<!/4STAA[5SD/AQ\""1.^Q"".3/4,N+^&GB4H*T0S-RT3MOBX-"
^XMB(3.9,23,2,14423,0)="""DATA"",396.18,220,3,111,0)"
^XMB(3.9,23,2,14424,0)="MGY\<&Z!Q?2JA)0%=FZ)[60JYXR`S^AT'L;0<R\BQK)SX$24K#7]\5HCN&I01"
^XMB(3.9,23,2,14425,0)="""DATA"",396.18,220,3,112,0)"
^XMB(3.9,23,2,14426,0)="M&R$'/3/%D:K,TTLVOJ.('@SO4U*.7S)Q65DTTF%YRQ(OS.QDV<.>WC[$$5O8"
^XMB(3.9,23,2,14427,0)="""DATA"",396.18,220,3,113,0)"
^XMB(3.9,23,2,14428,0)="M&\=BPL*?-*]CORKUA5G:8W=']$D@T0+)OTG"">;+3'NQG^0V)[C)R75_6VKM:"
^XMB(3.9,23,2,14429,0)="""DATA"",396.18,220,3,114,0)"
^XMB(3.9,23,2,14430,0)="MRYZ(L&5T%6M\E.X?H/;U9')U[?+JPEIU:6']=ML\RA3#_1C#8Q3#AX/6>`JN"
^XMB(3.9,23,2,14431,0)="""DATA"",396.18,220,3,115,0)"
^XMB(3.9,23,2,14432,0)="M-?+3GLC<<G_5SG4TEW,\]4]1ZCLA]6-BQZM@VWF""V^_[""BN-8I[`8S\0R(E]"
^XMB(3.9,23,2,14433,0)="""DATA"",396.18,220,3,116,0)"
^XMB(3.9,23,2,14434,0)="M^D[(=J8B2IDL2_&*)!PX?R<DW:D(_A.]^4RUR5ULMW/.D^;N[Q6.C;WC><>S"
^XMB(3.9,23,2,14435,0)="""DATA"",396.18,220,3,117,0)"
^XMB(3.9,23,2,14436,0)="MHR4W7]VAFSMIHB3^HG""M4'PM*-,'O>1FV[7@OX,OAF39B/UX[*=8UNTWPH[;"
^XMB(3.9,23,2,14437,0)="""DATA"",396.18,220,3,118,0)"
^XMB(3.9,23,2,14438,0)="MSWD)T[JXI+N:/TU5L4?#KR=[P)H^I@3'\G5O;WG$;^LC[CQ)(O#Q,'3L6J!^"
^XMB(3.9,23,2,14439,0)="""DATA"",396.18,220,3,119,0)"
^XMB(3.9,23,2,14440,0)="M77#LZ`.Z<[U$HOOIWM]E.$0CX'QVMN""?HEC/""QMCG^&SW""62?4=/<Z.+/TW1"
^XMB(3.9,23,2,14441,0)="""DATA"",396.18,220,3,120,0)"
^XMB(3.9,23,2,14442,0)="M9_0<?XL&&WTA9/0,-WJV]V*OJ-%I77*?R)I,R/`Y;OB<D(@(O6`KQVN""=^F+"
^XMB(3.9,23,2,14443,0)="""DATA"",396.18,220,3,121,0)"
^XMB(3.9,23,2,14444,0)="M?_J\0D?.IM.%O>0C#9])*^1XA3T4""]Q?/N-E7O*ED3)I,HYESD5[[/)<#=WE"
^XMB(3.9,23,2,14445,0)="""DATA"",396.18,220,3,122,0)"
^XMB(3.9,23,2,14446,0)="M)""=7R:5.-Y7^+%#9^($T!(#R2`!0ZD@C]RKJBN76;@Y*^!$""6FJG;+_$J/[S"
^XMB(3.9,23,2,14447,0)="""DATA"",396.18,220,3,123,0)"
^XMB(3.9,23,2,14448,0)="M7LE+Y(M[I*@[;$LRS9KL$SH.?1MZVLM6%T9;K;&GK\Z?ZY/<ZUDA^>`5K,ZX"
^XMB(3.9,23,2,14449,0)="""DATA"",396.18,220,3,124,0)"
^XMB(3.9,23,2,14450,0)="M+\JV@6V+%:5AX13Y=?3VTBL]1[)0\KTX$ISD""MEQ1Y""TX4LE[.0X681,GT4H"
^XMB(3.9,23,2,14451,0)="""DATA"",396.18,220,3,125,0)"
^XMB(3.9,23,2,14452,0)="MC58R&%M=6>JS"",F\TU*6*NMRLL!>%,D+,6H?%D:9@^'?]\AMR#Z.]&C<7\/^"
^XMB(3.9,23,2,14453,0)="""DATA"",396.18,220,3,126,0)"
^XMB(3.9,23,2,14454,0)="M9C\H:V`#.2OR8?I""[RJ:9=&'1Y?82_ZQF/6/S.86A+;OY]^'_#%-XWY!&CCC"
^XMB(3.9,23,2,14455,0)="""DATA"",396.18,220,3,127,0)"
^XMB(3.9,23,2,14456,0)="M+>>/#PL14#:=S=+#$O&D8!'>\J*@U^Z$*&@R_!=S$'YZ.CGQ74E@P+^&!$+'"
^XMB(3.9,23,2,14457,0)="""DATA"",396.18,220,3,128,0)"
^XMB(3.9,23,2,14458,0)="MQ1]7:'=TLXO:EVZ?BSN""\&C+*EG>Q$&VT\V$=!,WR%4#9KWN=G#_+=QW6S1;"
^XMB(3.9,23,2,14459,0)="""DATA"",396.18,220,3,129,0)"
^XMB(3.9,23,2,14460,0)="M3A+`_N7?I]#UR[A3VCZ-[\C'[Z->+?(37%J37""<`_U45B_QR$GKC;+^3]B'4"
^XMB(3.9,23,2,14461,0)="""DATA"",396.18,220,3,130,0)"
^XMB(3.9,23,2,14462,0)="M9WGJO\1,S`]#XIER175M<`J1`^?6VI`:$U*#CR%NF=9UE&/6^1RSTH&L-<-^"
^XMB(3.9,23,2,14463,0)="""DATA"",396.18,220,3,131,0)"
^XMB(3.9,23,2,14464,0)="MVB!(1YE7DL1G&1W_%$)'NAHR=\-%=BMT_E$XDLUFZ`_])#Y/Q/4%2LDOA5T,"
^XMB(3.9,23,2,14465,0)="""DATA"",396.18,220,3,132,0)"
^XMB(3.9,23,2,14466,0)="M/>]:WH75[""0F\*1V,'`XG6@=Z&SQYX*3W56ES>W^!$.-7Q+@L&L.G@F9@-U:"
^XMB(3.9,23,2,14467,0)="""DATA"",396.18,220,3,133,0)"
^XMB(3.9,23,2,14468,0)="MX<OG4!/,\@#NI>.OAP3;5VP7""KP_NF^OC_1>_9:%02""A^\-DE_BI@,V^-W*7"
^XMB(3.9,23,2,14469,0)="""DATA"",396.18,220,3,134,0)"
^XMB(3.9,23,2,14470,0)="M2`TL/K""`]UAO!(QF9C^P4!4.MR5L+ZWQ;,S_A84UX*""C8$A#78.L#&17,.T9"
^XMB(3.9,23,2,14471,0)="""DATA"",396.18,220,3,135,0)"
^XMB(3.9,23,2,14472,0)="MY%N1.O:O""3_F&*^&+`PK.EEXLF%7GJE4BG>""XC\65H1""BGT3$P@W`G]%BOXA"
^XMB(3.9,23,2,14473,0)="""DATA"",396.18,220,3,136,0)"
^XMB(3.9,23,2,14474,0)="MBGOH'2LW-\]L7BC_QOLE790PE60K,_2$98YSB8?8?+\>,M^#Y`B*K6R@.Q/P"
^XMB(3.9,23,2,14475,0)="""DATA"",396.18,220,3,137,0)"
^XMB(3.9,23,2,14476,0)="M>8\19\O2'SBCZ_02G>RUD,E.DHNLNMXO/9SJM+HV>G4:':Y`)TKMH68L""9V8"
^XMB(3.9,23,2,14477,0)="""DATA"",396.18,220,3,138,0)"
^XMB(3.9,23,2,14478,0)="M+_6[8H5-V;&[]9:FHI^("")NKUZ.]/^K^8:C9:?XR^NG>7]!CM;1L>C8_6BWM"
^XMB(3.9,23,2,14479,0)="""DATA"",396.18,220,3,139,0)"
^XMB(3.9,23,2,14480,0)="M\)+M_2``D;#&3=X9+87^R%TVC39,06M9SO,O`^5)1+Y?=A*\?ZY5_.Y@JSBR"
^XMB(3.9,23,2,14481,0)="""DATA"",396.18,220,3,140,0)"
^XMB(3.9,23,2,14482,0)="M0,)U7#0GGP"">1S'+S>&70$?J&S^YH&L;Z(XL]',TZL;_MW>ML7%<UWD?Y(K4"
^XMB(3.9,23,2,14483,0)="""DATA"",396.18,220,3,141,0)"
^XMB(3.9,23,2,14484,0)="MTY(L6?*C&M./D!4E<6=F=[F,D806*5NU+#.2++EM$GNX.R3'FMW9[.Q*H@,#"
^XMB(3.9,23,2,14485,0)="""DATA"",396.18,220,3,142,0)"
^XMB(3.9,23,2,14486,0)="M38*FK[1HD[9(DSH.XJ`MBL)VT`)UB[X""M$G;'T72-""A:MVF+)'T#3HL::'^E"
^XMB(3.9,23,2,14487,0)="""DATA"",396.18,220,3,143,0)"
^XMB(3.9,23,2,14488,0)="M]]S7GMFY,SM#*^:N6P&FE\O=>^\Y<^^YYY[[G>]0DJLZ6CJPJ19N?[1_GHE'"
^XMB(3.9,23,2,14489,0)="""DATA"",396.18,220,3,144,0)"
^XMB(3.9,23,2,14490,0)="M/U.XJ_>W\,R84=(I)$&1YQ*CR`\$;P/)M#:P.?JS3$AM.E);=<2C77'KB^LA"
^XMB(3.9,23,2,14491,0)="""DATA"",396.18,220,3,145,0)"
^XMB(3.9,23,2,14492,0)="M'[26?RBGZ%1/#Z5T*^Q^M,)ZVYVLMO?&%ET@0?IP/RR`+KX@#DCZVI]3K;Z2"
^XMB(3.9,23,2,14493,0)="""DATA"",396.18,220,3,146,0)"
^XMB(3.9,23,2,14494,0)="M,0@<L*-_4+=`[0-12@@R&`N[BQ`_T>DO?F&W3@LA\-_VE%BQ`_[K7O(*/BM^"
^XMB(3.9,23,2,14495,0)="""DATA"",396.18,220,3,147,0)"
^XMB(3.9,23,2,14496,0)="M/]`KC""#>RT3/7;P'Y(UL:.[>AP0;J4AMS'K%^*+\1\5Z_67Y,(V>S.51N\&/"
^XMB(3.9,23,2,14497,0)="""DATA"",396.18,220,3,148,0)"
^XMB(3.9,23,2,14498,0)="MDKF,=]Z>T""\KA9X?):''8F9W!1_N3HG9O21G]Q*RS,51$GI'M,SX6)3_8B9."
^XMB(3.9,23,2,14499,0)="""DATA"",396.18,220,3,149,0)"
^XMB(3.9,23,2,14500,0)="MYLI(U:@99*?A#(UE?RXL.S+3Y>H@,SVNP'`%+/5UV[Y:*/#_[]#I__W""#D.\"
^XMB(3.9,23,2,14501,0)="""DATA"",396.18,220,3,150,0)"
^XMB(3.9,23,2,14502,0)="M,,6+DGA1%B\JXL6\>%'E+R:(.1>OBO*5+E\9\I4I7Y7DJ[)\59&OYN4KV8<N"
^XMB(3.9,23,2,14503,0)="""DATA"",396.18,220,3,151,0)"
^XMB(3.9,23,2,14504,0)="M^]!E'[KL0Y=]Z+(/7?:ARSYTV8<N^]!E'X;LPY!]&+(/0_9AR#X,V8<A^S!D"
^XMB(3.9,23,2,14505,0)="""DATA"",396.18,220,3,152,0)"
^XMB(3.9,23,2,14506,0)="M'X;LPY!]F+(/4_9ARCY,V8<I^S!E'Z;LPY1]F+(/4_91DGV49!\EWD=F\)3$"
^XMB(3.9,23,2,14507,0)="""DATA"",396.18,220,3,153,0)"
^XMB(3.9,23,2,14508,0)="M4;K<)I^1GU0Y#I7BH!D9""I9/G.FZ+H3$""I-D)75.T)=[B-N[=D(X286)B_2D"
^XMB(3.9,23,2,14509,0)="""DATA"",396.18,220,3,154,0)"
^XMB(3.9,23,2,14510,0)="M2,G*J&\\>,S!2-1FG+=CZH,&/38\WHXH$<<%NQ@2[#`2S!@EVYA+YZF;R%//"
^XMB(3.9,23,2,14511,0)="""DATA"",396.18,220,3,155,0)"
^XMB(3.9,23,2,14512,0)="M+7$U?""+$%`=J2,<4]SW(4>=1$'=3$W,Q'7%1-OHY!A;5=,C,WXX6E3GRU;+Y"
^XMB(3.9,23,2,14513,0)="""DATA"",396.18,220,3,156,0)"
^XMB(3.9,23,2,14514,0)="MI/T0F[0[N;0?S*:G8!\95IU=:LR@B%F?#2#;7E=<Z$P%+G3.VS3;O""$(MBF("
^XMB(3.9,23,2,14515,0)="""DATA"",396.18,220,3,157,0)"
^XMB(3.9,23,2,14516,0)="M:.AR`8JX,,<9'IYZ5@&N7W*L]29D;U)YN@TH36K?L&J=F:C$@(J!VQ;5HGY$"
^XMB(3.9,23,2,14517,0)="""DATA"",396.18,220,3,158,0)"
^XMB(3.9,23,2,14518,0)="MF78KR\&*3J8;C5.;Y%]TZ[@23/ZSPNWZEJ+Y(EPF^+(""3)#I59MVFC6W6Z?E"
^XMB(3.9,23,2,14519,0)="""DATA"",396.18,220,3,159,0)"
^XMB(3.9,23,2,14520,0)="MJAF3#NHS2""U;QEW*TJ._H*C[^O9E4(TL.$-O:BR@5V.3`NJ_HA'4Z[-:HS&K"
^XMB(3.9,23,2,14521,0)="""DATA"",396.18,220,3,160,0)"
^XMB(3.9,23,2,14522,0)="M,8&3LT=7^%7OES.!$>4VP@.Z>PD/!?4M]9RBVX`>IL0)YX.Q""=6T'G>@[X7D"
^XMB(3.9,23,2,14523,0)="""DATA"",396.18,220,3,161,0)"
^XMB(3.9,23,2,14524,0)="ML*``PD%4_7DATQ\O*):-<KJMX\@55EZ9S^B&Y3KK30L3B^:C-@U)FS$P>5E$"
^XMB(3.9,23,2,14525,0)="""DATA"",396.18,220,3,162,0)"
^XMB(3.9,23,2,14526,0)="M.-E"">)P/_W*V/T1%AE^:'XVZG0K*'2QD_L<S(2D/(2FK`^EHJKBU7P^W9J)'"
^XMB(3.9,23,2,14527,0)="""DATA"",396.18,220,3,163,0)"
^XMB(3.9,23,2,14528,0)="M;HQ*E""2D,VXACU`I)\2MWZ9""9>6B(KP^IFR4&X6O9@(D(^I6=46KX^H4%+Q3"
^XMB(3.9,23,2,14529,0)="""DATA"",396.18,220,3,164,0)"
^XMB(3.9,23,2,14530,0)="MY/5LW!,I54;C9!^5""J;C$BQY+P5F9\>6DR_Y5!BC-F)<\!M(W,QS;P7<S.X("
^XMB(3.9,23,2,14531,0)="""DATA"",396.18,220,3,165,0)"
^XMB(3.9,23,2,14532,0)="M#\L,\,P+X3^C<+$.!UPLZ9,,78V;,E^$7V(7^F[VS:-VXS6X\G>RKGW1]?&P"
^XMB(3.9,23,2,14533,0)="""DATA"",396.18,220,3,166,0)"
^XMB(3.9,23,2,14534,0)="M-F\6M2F_)O2S`]<+Y],:YO)U$=6^.$+C<#:U3<@-)-.*23HIXKH11_G*>!41"
^XMB(3.9,23,2,14535,0)="""DATA"",396.18,220,3,167,0)"
^XMB(3.9,23,2,14536,0)="M[:1*.OEBHEI%V\K1'&$B2CA9XYD1+E\BK@?81=#Y'!>E'A;EUL4ZJYUCN8,+"
^XMB(3.9,23,2,14537,0)="""DATA"",396.18,220,3,168,0)"
^XMB(3.9,23,2,14538,0)="M]@226>;[<RIZC>Z4-G,[JS#U6<LY7!9<H*KRGU:E&4V?\=H-32_-52A0T*F3"
^XMB(3.9,23,2,14539,0)="""DATA"",396.18,220,3,169,0)"
^XMB(3.9,23,2,14540,0)="MMITU!^YE-QDD4'%\Z>]N'G<G()K_J.CN%+O,Y\2AU#Q3?E1^\\\@>6"">@27;"
^XMB(3.9,23,2,14541,0)="""DATA"",396.18,220,3,170,0)"
^XMB(3.9,23,2,14542,0)="M]CL)^N:WNI]@>QU__/G);)A-_`6@8P60`IG'K6Z[18R*/PL\=UZ;OD='PD_,"
^XMB(3.9,23,2,14543,0)="""DATA"",396.18,220,3,171,0)"
^XMB(3.9,23,2,14544,0)="M1'Y9:HD5^^KXLG:"";[<LT@X4QB`GZZ9=([L-$(R1K07J8T""9!:O).&M;;8=R"
^XMB(3.9,23,2,14545,0)="""DATA"",396.18,220,3,172,0)"
^XMB(3.9,23,2,14546,0)="MUCJ^M>JX3H?H])KE=AE28DW0P\JN$BA;,&US@8_SJ6DID%D@[_+BZ8=[88!("
^XMB(3.9,23,2,14547,0)="""DATA"",396.18,220,3,173,0)"
^XMB(3.9,23,2,14548,0)="MZE3!IOVK63SA\Z\ICN(_2*&$#B7.K6UX1%?TB3D=_/RF,$?]%(1VR4-OVY!,"
^XMB(3.9,23,2,14549,0)="""DATA"",396.18,220,3,174,0)"
^XMB(3.9,23,2,14550,0)="MX-5`)76-0E0I""E4.+X'XPI?D`Q7<PI]2S>W'6FRUSPH?`/0-!/H""@A2I#@'4"
^XMB(3.9,23,2,14551,0)="""DATA"",396.18,220,3,175,0)"
^XMB(3.9,23,2,14552,0)="MX;TT0R2Y/76<.]NDW.Y,""V**`-(232>(\C2#T%T6/7'('()B]=?(X[<3R3^/"
^XMB(3.9,23,2,14553,0)="""DATA"",396.18,220,3,176,0)"
^XMB(3.9,23,2,14554,0)="M1R9A_;E[PO+O8+[!R<BF`DNGUY2J'I$9V0HO^B7F8S.VJ%%D(WJ@D2=BZSE%"
^XMB(3.9,23,2,14555,0)="""DATA"",396.18,220,3,177,0)"
^XMB(3.9,23,2,14556,0)="M-F($&JG&5K*""1A2G!AX$FZ`:^25Q3+XNP[2?S?;[_XK*T7T;%&9CDO'.@PJ^"
^XMB(3.9,23,2,14557,0)="""DATA"",396.18,220,3,178,0)"
^XMB(3.9,23,2,14558,0)="MY049W%GN32.856(QD3GT&)Y#BW+F#$VU*)SA*B)+*D+Q0TS$X+)8&!HQ^-)X"
^XMB(3.9,23,2,14559,0)="""DATA"",396.18,220,3,179,0)"
^XMB(3.9,23,2,14560,0)="M/A.(D/VVPAP^>`5LFXT?&#5ITN`[C9;5+RBL?_GL4D0*N?7CZGTO5^^UL'J/"
^XMB(3.9,23,2,14561,0)="""DATA"",396.18,220,3,180,0)"
^XMB(3.9,23,2,14562,0)="M7+!]`,^1;8TBW*7%&\0/$TS9>DFL@"".*Z?H..5U9GK+OK#>!JMMJ(GTDD#JF"
^XMB(3.9,23,2,14563,0)="""DATA"",396.18,220,3,181,0)"
^XMB(3.9,23,2,14564,0)="M(%01QRE/\+'\J'P*QU'1F5`YJ#=I+L7A)`^?][2+2""M\61<.JM[<?=[K\*P5"
^XMB(3.9,23,2,14565,0)="""DATA"",396.18,220,3,182,0)"
^XMB(3.9,23,2,14566,0)="MNQ[IS4?K*I`Z>#6DJP54CZ@2""?L<`J4=7?1A)A$/H>X0U5`,=KT+4Z9P\&R3"
^XMB(3.9,23,2,14567,0)="""DATA"",396.18,220,3,183,0)"
^XMB(3.9,23,2,14568,0)="M4\1I'<@\I31DAWIO6C3[S[8=OZ'$D$8<8&.4RB,IG\[@+06QSKH]K5;FAUFK"
^XMB(3.9,23,2,14569,0)="""DATA"",396.18,220,3,184,0)"
^XMB(3.9,23,2,14570,0)="MNR#F2'Q4<I3V""[=)JCUP/6L0&F'ES@Z?;6*W==7>L*XY7KMP!,J_:-1U@P(&"
^XMB(3.9,23,2,14571,0)="""DATA"",396.18,220,3,185,0)"
^XMB(3.9,23,2,14572,0)="M<#7,BO(4[EXB#\FI$25O$G_6=;WK8',<5+<'ZJJ)WAH>,XJ%V]%[5A,R.^I0"
^XMB(3.9,23,2,14573,0)="""DATA"",396.18,220,3,186,0)"
^XMB(3.9,23,2,14574,0)="M?K<-?Q.^H\]<1-=9HW8,'*::U6YODE\*!U&W;?""TX,W]%UNV39TN\;?""`;@E"
^XMB(3.9,23,2,14575,0)="""DATA"",396.18,220,3,187,0)"
^XMB(3.9,23,2,14576,0)="MI`?7WGO[+SM`I(+?VG>.Z)S6?NA8#:=I%0Y>L:VKK(IA6ULCREGOVH5[>H,F"
^XMB(3.9,23,2,14577,0)="""DATA"",396.18,220,3,188,0)"
^XMB(3.9,23,2,14578,0)="MXMG-]<[&@M:E[(=D\%`!CS2E_)!+>2%['[KU<3(H.#(X358ER""9/H7#@C%VC"
^XMB(3.9,23,2,14579,0)="""DATA"",396.18,220,3,189,0)"
^XMB(3.9,23,2,14580,0)="M^D7OC:U83K.P9\GQU\@86-I#BKFM+I58Q3;^]X6-?TIZ.:]FT+0NCQK]D=*Q"
^XMB(3.9,23,2,14581,0)="""DATA"",396.18,220,3,190,0)"
^XMB(3.9,23,2,14582,0)="MX^&FCV2#GETED6>7C]@KY_!N+""J+WQ:[5?8=$N#75L^[Z](DI_YCP7:Z1?T^"
^XMB(3.9,23,2,14583,0)="""DATA"",396.18,220,3,191,0)"
^XMB(3.9,23,2,14584,0)="MMHG#ZG=R!^3=X</V["")%]!#SC7T!M7SO',):QH(@^0""=+ROB>N9KJI3""/C_("
^XMB(3.9,23,2,14585,0)="""DATA"",396.18,220,3,192,0)"
^XMB(3.9,23,2,14586,0)="MEIYMQ..\60OJN\F`+:ZG+F#VI=PY(;V%*K.:D3?$RN3QTQM>^\U7@KH>Z-BC"
^XMB(3.9,23,2,14587,0)="""DATA"",396.18,220,3,193,0)"
^XMB(3.9,23,2,14588,0)="MCELO3#SJD:&3#:]0N&B3A6\7)E;:M&2/GXET&9+JD9]L/Y49K,AJ*D5.D@^W"
^XMB(3.9,23,2,14589,0)="""DATA"",396.18,220,3,194,0)"
^XMB(3.9,23,2,14590,0)="M6D2:A<@\B:1"";H635O`[?G.P8,6Y=((MW[#;-<>W;Z9@R8F$]4`,X,.9N""=6"
^XMB(3.9,23,2,14591,0)="""DATA"",396.18,220,3,195,0)"
^XMB(3.9,23,2,14592,0)="M2C?U+T*HT;^98B5GM2B7T8*.$XML^9548NVZ0#T>>H`?Z56=G!>(7Y_P51T_"
^XMB(3.9,23,2,14593,0)="""DATA"",396.18,220,3,196,0)"
^XMB(3.9,23,2,14594,0)="M28IZ*FWNO-2VKMEN8%V/HC*3DQ0)0.\W$RAS;CZ5,B?.V';])IO(Y*4&1.2/"
^XMB(3.9,23,2,14595,0)="""DATA"",396.18,220,3,197,0)"
^XMB(3.9,23,2,14596,0)="M74W]4ZQ<Y71R/6AU-D9^BJ3P1N:Q\?J76$VF,UZ32[3*^:BK<C*Y*BL!TQ6K"
^XMB(3.9,23,2,14597,0)="""DATA"",396.18,220,3,198,0)"
^XMB(3.9,23,2,14598,0)="MRV(QI>GR'-?NC+PR=R979CE@NN(GII%N8I(.O,;(ZW*7&HXXAT]7[Q.GJ[OD"
^XMB(3.9,23,2,14599,0)="""DATA"",396.18,220,3,199,0)"
^XMB(3.9,23,2,14600,0)="MT?GMR!L9J6SKW<FW/0-#440%NW>%X'\5TT@T<Y(Q$ZC""009V>-\CKM`_+T`Q"
^XMB(3.9,23,2,14601,0)="""DATA"",396.18,220,3,200,0)"
^XMB(3.9,23,2,14602,0)="MN2NRB%K5+(U&,JE""2A.#%![F0KY?SKCOE64G1X-4,(8BC5OXE1P5]4(_=\O1"
^XMB(3.9,23,2,14603,0)="""DATA"",396.18,220,3,201,0)"
^XMB(3.9,23,2,14604,0)="MF'+RR!G>.@D_AH/TD,OO5R""7S?)<1,)9MG\Z9S*9.+BG'B#^%_DU#V33U\8;"
^XMB(3.9,23,2,14605,0)="""DATA"",396.18,220,3,202,0)"
^XMB(3.9,23,2,14606,0)="MF?R:/>JK2X[]>21PW?PY!?;S2`#[>9E6=X:+*7_8DFIT#.O.3?'Y_(""""(_V2"
^XMB(3.9,23,2,14607,0)="""DATA"",396.18,220,3,203,0)"
^XMB(3.9,23,2,14608,0)="MW6C!_M1MVQ%MB0`F:^LL;^OV<%OC*UW7CVRE@EL1F(?'%+15%VR_Y9`1P=W+"
^XMB(3.9,23,2,14609,0)="""DATA"",396.18,220,3,204,0)"
^XMB(3.9,23,2,14610,0)="M!;)Q1C4XCY'K7Q=^Q%2XQ<(5^DY$.V4>MO-I.W\GVKE7T<X*I5^.:D?'X_EO"
^XMB(3.9,23,2,14611,0)="""DATA"",396.18,220,3,205,0)"
^XMB(3.9,23,2,14612,0)="MT<[WA=O9P\:CD>G27+>'!A98-A""[>'Y?-E3G9%%*T.$2G/-\7YLF\Z=&><S6"
^XMB(3.9,23,2,14613,0)="""DATA"",396.18,220,3,206,0)"
^XMB(3.9,23,2,14614,0)="MM.OL?;@R`\!@RP*NKHZGK5H^'-#M&6V:'-7;0(##/\IK>_,D6*W5MFOT_,DJ"
^XMB(3.9,23,2,14615,0)="""DATA"",396.18,220,3,207,0)"
^XMB(3.9,23,2,14616,0)="MOK"",+!\NAV:V,08\,/8=)!=+IKR'+""*[0GGK\/[_*>65\,IY7JR<AQ3E@!YT"
^XMB(3.9,23,2,14617,0)="""DATA"",396.18,220,3,208,0)"
^XMB(3.9,23,2,14618,0)="M/:_.P.K1!HO'[?(?RP3X$'+CX0:SIZ+:P.9*7OCECBFL`GMG>)8QA[O]3#+I"
^XMB(3.9,23,2,14619,0)="""DATA"",396.18,220,3,209,0)"
^XMB(3.9,23,2,14620,0)="MHP#U_+C1H(TT4V#-=Z4OE1[88`R^=%X,5R""J%$LE!6G87MR6(!Y@C5V);HR<"
^XMB(3.9,23,2,14621,0)="""DATA"",396.18,220,3,210,0)"
^XMB(3.9,23,2,14622,0)="M$HJ*A+)@8]BFYYZ-:6S>+/==(8<;X]/\752EKX8V&BRFOJ4ZG?R9K=,._CW,"
^XMB(3.9,23,2,14623,0)="""DATA"",396.18,220,3,211,0)"
^XMB(3.9,23,2,14624,0)="M=7-,,)?K<\5D.8HB`W%;S]&PRQ3&P%Q&1\5B?&M<-""-_*1LBW\-Z-P>Q.DR&"
^XMB(3.9,23,2,14625,0)="""DATA"",396.18,220,3,212,0)"
^XMB(3.9,23,2,14626,0)="MQOB`5IPKY.`_G?QGS!5VFG,`@6AX8*#B!E8*L""0/&-E`=JV=:4>FFJ)E5!Y("
^XMB(3.9,23,2,14627,0)="""DATA"",396.18,220,3,213,0)"
^XMB(3.9,23,2,14628,0)="M%GG*32OFNV$J,@N#C54P$FA`:X8BI3#86A6OGM^)6CUC%:-H;*D""*+<;3]/V"
^XMB(3.9,23,2,14629,0)="""DATA"",396.18,220,3,214,0)"
^XMB(3.9,23,2,14630,0)="M?T.T_T3_VB'M)[QTC*)\&'.:M8U""KM8(<K'%,""%P*]0-%!C+R@R<KV3><@>U"
^XMB(3.9,23,2,14631,0)="""DATA"",396.18,220,3,215,0)"
^XMB(3.9,23,2,14632,0)="MO>J]K<J1TR\$2YK_BN*H=C1P5#N+T%7#=E83_('W4YGNXS*]HDC'>(WG@JS2"
^XMB(3.9,23,2,14633,0)="""DATA"",396.18,220,3,216,0)"
^XMB(3.9,23,2,14634,0)="M;56;>K#KN'41C)@""5Y'>*MJ:I;F.3_T_@6+5:J[E-!AQ+LI8X33.%&)S@^*X"
^XMB(3.9,23,2,14635,0)="""DATA"",396.18,220,3,217,0)"
^XMB(3.9,23,2,14636,0)="MH*-I?^:D=@E`N0)H0YN[[K@N?+2I077R:Y;CTH('W`F=6O)J79K0+P=TG5))"
^XMB(3.9,23,2,14637,0)="""DATA"",396.18,220,3,218,0)"
^XMB(3.9,23,2,14638,0)="MSFH6:0C*UW#TSE1$@M24YE/Y`&D&'2;)HREBW8F\]N<4>*+'N>X4PR1Z`PQD"
^XMB(3.9,23,2,14639,0)="""DATA"",396.18,220,3,219,0)"
^XMB(3.9,23,2,14640,0)="M&[@2@-M[G0(EUWNZ:Y.O7@/@*<^$I(3@G<V6G62$.AZA2(NXIACA.3'""""XQ="
^XMB(3.9,23,2,14641,0)="""DATA"",396.18,220,3,220,0)"
^XMB(3.9,23,2,14642,0)="M7`R4/A(Z2OHV@/JNP70#@$RMV[9JM/0GRPV""+!&0(A+Q/V?@LCWW#03\*]LP"
^XMB(3.9,23,2,14643,0)="""DATA"",396.18,220,3,221,0)"
^XMB(3.9,23,2,14644,0)="M<1N/;RGS8*Z$VQB4`A&5)<UWF+]F.\S',\F]U$R*+.D^:\PU.(_+S^5M:8V7"
^XMB(3.9,23,2,14645,0)="""DATA"",396.18,220,3,222,0)"
^XMB(3.9,23,2,14646,0)="MWWIALWT1#Y&38I!3;L`<GU>4K#T5,,>""R_:QEM.$U3Y]WNO0RBG+U`C9[9FA"
^XMB(3.9,23,2,14647,0)="""DATA"",396.18,220,3,223,0)"
^XMB(3.9,23,2,14648,0)="M2Z<N!>Y3)?/*ORGRFUZBII,T:6D-XAR`M80<*G:87X/\:F)#:DZ;+&^_`W6@"
^XMB(3.9,23,2,14649,0)="""DATA"",396.18,220,3,224,0)"
^XMB(3.9,23,2,14650,0)="M):[1I^3/3DTD\X$5!LZ2YGJ7<@:O:5.4TYNF&D)J'DU9(.]/R9X:7IV9=DB5"
^XMB(3.9,23,2,14651,0)="""DATA"",396.18,220,3,225,0)"
^XMB(3.9,23,2,14652,0)="M\[A^>7,^#274`6=GK:^WB0E/F$''2^!R:)O+9?\?!;)/MV:T)]D_HH/`8*W>"
^XMB(3.9,23,2,14653,0)="""DATA"",396.18,220,3,226,0)"
^XMB(3.9,23,2,14654,0)="M<,5'Z+_(!/8YK/$?RH0*/2""PZ""KNM0&E""ESG*F0;OK$18$2?]#GS$XH1E&P\"
^XMB(3.9,23,2,14655,0)="""DATA"",396.18,220,3,227,0)"
^XMB(3.9,23,2,14656,0)="M`B#GC>HY4<<Z[EA"";_]4T?%J'7?L`OZ:BVZQ<4R[DG:N-'>J-$>W-9YI,_/&"
^XMB(3.9,23,2,14657,0)="""DATA"",396.18,220,3,228,0)"
^XMB(3.9,23,2,14658,0)="M1FG@40KKF_\]Q2B?JN%16N3QV)2/J'^PVO3-'J.)Q_AE,<;W*,;XR)H<XUG2"
^XMB(3.9,23,2,14659,0)="""DATA"",396.18,220,3,229,0)"
^XMB(3.9,23,2,14660,0)="M9Y,Q+/L>L;ZB](??M2G""WNNR/[$L6+*J&X#:A=7;=7FIA8CAE/!""NL1'\V.*"
^XMB(3.9,23,2,14661,0)="""DATA"",396.18,220,3,230,0)"
^XMB(3.9,23,2,14662,0)="MT5Q:`179`*\GIG'3Z[9IXH';!2""^KW5]%N:SA>GH91*XQ(%Q70#YU[SUIO,,"
^XMB(3.9,23,2,14663,0)="""DATA"",396.18,220,3,231,0)"
^XMB(3.9,23,2,14664,0)="M45UKHTW:BD[>#""#=Q'5!_G<5MNV3RPY%[(+W(T;5:+DV,#MQ8P-I#R)G.9#C"
^XMB(3.9,23,2,14665,0)="""DATA"",396.18,220,3,232,0)"
^XMB(3.9,23,2,14666,0)="M""O,3_$AG+9#I2[,41""/4""H+(X/G,LM-J'7P=A\Z6IFW782H(,X82GT\F(*80"
^XMB(3.9,23,2,14667,0)="""DATA"",396.18,220,3,233,0)"
^XMB(3.9,23,2,14668,0)="M29/CV4!QMYOF,.R[1#Z_:M=A.UOUO*N2;C[X-C<KN4#^];>E!_%B=A_Y?.P&"
^XMB(3.9,23,2,14669,0)="""DATA"",396.18,220,3,234,0)"
^XMB(3.9,23,2,14670,0)="MN$=^@.Z!DV0/[-!2L7O%'\2^OUN\H=@+92M\]^])>PMY37Y9(;M.!L/7C_20"
^XMB(3.9,23,2,14671,0)="""DATA"",396.18,220,3,235,0)"
^XMB(3.9,23,2,14672,0)="MF;Q$$.:.N#M""7/D!;M&9NR#6XC]+P3^6CDKBIR/KEXXO`HG6C@G+)4^'3""1,"
^XMB(3.9,23,2,14673,0)="""DATA"",396.18,220,3,236,0)"
^XMB(3.9,23,2,14674,0)="M+1%PMPJK/L28MI=NHE<?97]_?11NO<;I='U%:.RK8N/-_U6F=^#E#R1D$-ZY"
^XMB(3.9,23,2,14675,0)="""DATA"",396.18,220,3,237,0)"
^XMB(3.9,23,2,14676,0)="MG=+E0O&7VR)P03C!YH=#M4V.26K+2DIJSOVTOJ]5TSCQ70.Q<6Y/6%/""3!+#"
^XMB(3.9,23,2,14677,0)="""DATA"",396.18,220,3,238,0)"
^XMB(3.9,23,2,14678,0)="M0""-TADMMYBI<91]0J4Q/I;(#>""JUK6[#&G:=Y1+KK(AUQHL`Y3^442FMF$II"
^XMB(3.9,23,2,14679,0)="""DATA"",396.18,220,3,239,0)"
^XMB(3.9,23,2,14680,0)="M=R""E;7A^""\`!SC/4&QAV[64B*8?XJJP%<I=.AW?+'1?L$U[+;HX@JY*!15P:"
^XMB(3.9,23,2,14681,0)="""DATA"",396.18,220,3,240,0)"
^XMB(3.9,23,2,14682,0)="M;A'S6Q/11""+F?RXSW#(.XJ]+N,X#=<-?%#)?""5V%E8UJJF6^^\(9S5IU1V)="
^XMB(3.9,23,2,14683,0)="""DATA"",396.18,220,3,241,0)"
^XMB(3.9,23,2,14684,0)="M3R365@5;Q?>%>'*/24RNJ:>K8'/TM$=<-?(9<HC:H#7,URS'[;;M8=?=6/35"
^XMB(3.9,23,2,14685,0)="""DATA"",396.18,220,3,242,0)"
^XMB(3.9,23,2,14686,0)="M>!%;#'>X5],@3&*<\UD,1%<_(KS/2>FO[\KBFS8U46\)%XF2]2Y_7DD^%.+$"
^XMB(3.9,23,2,14687,0)="""DATA"",396.18,220,3,243,0)"
^XMB(3.9,23,2,14688,0)="MJ''7C1?MC""1BKN(*9QS`E[L<[F*_*+GH;S9:':\1268V;V(&4]ED1\'VUD_I"
^XMB(3.9,23,2,14689,0)="""DATA"",396.18,220,3,244,0)"
^XMB(3.9,23,2,14690,0)="MP5I>4#.8!DIF_9'0QNO9,.5$19\?#?Y]5%WM0*BZ6A$_&,$=^)OR^/*S,FM^"
^XMB(3.9,23,2,14691,0)="""DATA"",396.18,220,3,245,0)"
^XMB(3.9,23,2,14692,0)="M7J^64A548]B`G:<WB''16I#QO^,,)QW8O6*YX'XQ+H6)AVVK;M4V[,*^,^1C"
^XMB(3.9,23,2,14693,0)="""DATA"",396.18,220,3,246,0)"
^XMB(3.9,23,2,14694,0)="M-&+CMVS7]0N32\XSSS!*C(/$J+4[C+Y@35N%:[2-PL3%ZS8E/ROL6&S><.S."
^XMB(3.9,23,2,14695,0)="""DATA"",396.18,220,3,247,0)"
^XMB(3.9,23,2,14696,0)="MYI;KK&42UUD+3A@],`^%!J>S2@V61X.Y.<[FE-""!-_>=_O-N[CAV6H5]/M1'"
^XMB(3.9,23,2,14697,0)="""DATA"",396.18,220,3,248,0)"
^XMB(3.9,23,2,14698,0)="MDSD'__A*VQ^XF>@A=^[J8<HNV#6RF?D:NW9[\RD)4\288A17QL9:T.CW;'7N"
^XMB(3.9,23,2,14699,0)="""DATA"",396.18,220,3,249,0)"
^XMB(3.9,23,2,14700,0)="M`;RU*6V>(+0+%EQ0T>0=$DSN3H.<J/D-Y4"">)),/\4;V#;>?E+2=AS59A[MX"
^XMB(3.9,23,2,14701,0)="""DATA"",396.18,220,3,250,0)"
^XMB(3.9,23,2,14702,0)="MA^T0Z7FQ4C%2>36'SOJ<J<$BMJ=F-ZRK=CM=E8\(`(X1>`9'^\_T""+U6,=75"
^XMB(3.9,23,2,14703,0)="""DATA"",396.18,220,3,251,0)"
^XMB(3.9,23,2,14704,0)="M+A-Z?/QA[`OJQ@IY?*2CE/&6GFZ:VN+9TTOI]!*!G3,#<R=6+RJ:\GS\X@G<"
^XMB(3.9,23,2,14705,0)="""DATA"",396.18,220,3,252,0)"
^XMB(3.9,23,2,14706,0)="M(TNSTUL\2P.)3038Z=>""V13O5H30?P)()OUN""Y*6@6$9[@S:FB7O1V<UHFW@"
^XMB(3.9,23,2,14707,0)="""DATA"",396.18,220,3,253,0)"
^XMB(3.9,23,2,14708,0)="M^-G4[);C>W7;UZ[;DAN$PRU:<'\""L%_&%$D_4.>(`4Y%""IM3VZ,^E+?>MAH0"
^XMB(3.9,23,2,14709,0)="""DATA"",396.18,220,3,254,0)"
^XMB(3.9,23,2,14710,0)="M37_8<P'I\*C7=(A'M8!CYDD750D7T=D=RI:XMW>R*J6+.L%=9T\-FN,O1,^<"
^XMB(3.9,23,2,14711,0)="""DATA"",396.18,220,3,255,0)"
^XMB(3.9,23,2,14712,0)="MG:<IX4_7Z_J%W6<!O4'1#\U.<(G%H._TP`-[6^B!H2E5KB9-N<G.%;+%0E8O"
^XMB(3.9,23,2,14713,0)="""DATA"",396.18,220,3,256,0)"
^XMB(3.9,23,2,14714,0)="M9(U""UBQ,E@3>CO@K)Q=/9N*GX3S>_`2RX,^EM_13O6#O_2OQN![.1(L-@]K/"
^XMB(3.9,23,2,14715,0)="""DATA"",396.18,220,3,257,0)"
^XMB(3.9,23,2,14716,0)="M+>/HOID,#M+71`4WD1`-TM=$%3=Q8XM@$!/O^/M""._X=O2/\342#O?[=W.^C"
^XMB(3.9,23,2,14717,0)="""DATA"",396.18,220,3,258,0)"
^XMB(3.9,23,2,14718,0)="M)""UA24_&2'H@@!""CZ6JC$*'KS\XKH]37W*,Q\N[O!W?YV^G.Y;86K:OBI^O&"
^XMB(3.9,23,2,14719,0)="""DATA"",396.18,220,3,259,0)"
^XMB(3.9,23,2,14720,0)="M2'N8`\7$X^4$_=LI\J``)65CC+]8W+,B:E\#&""C5]6)1<;V8DXK+1%TNOC5N"
^XMB(3.9,23,2,14721,0)="""DATA"",396.18,220,3,260,0)"
^XMB(3.9,23,2,14722,0)="M$=61D0KV@)\62>.YL&GMT@<%?*.M%O$J`):D33/P`7'$FUVRPTEF[SI@VKP6"
^XMB(3.9,23,2,14723,0)="""DATA"",396.18,220,3,261,0)"
^XMB(3.9,23,2,14724,0)="MNZ)?]>J;VBK8F5FMY?F02#A+/K'FP8[L`%^X#?S>T![+1^I`]@YYMU.+K')5"
^XMB(3.9,23,2,14725,0)="""DATA"",396.18,220,3,262,0)"
^XMB(3.9,23,2,14726,0)="M1*/.?UN$29Y7!(WN#0>-9.WT-7+""AFTY(A834`WG\\]_7:K&Z^W_1G4T#M8Q"
^XMB(3.9,23,2,14727,0)="""DATA"",396.18,220,3,263,0)"
^XMB(3.9,23,2,14728,0)="MKH6.(0?""P?U;*2P&.B1U!`4L?0Q?/^9_*UP2JS@?PS""B\@3O6T8SIC8X@)S@"
^XMB(3.9,23,2,14729,0)="""DATA"",396.18,220,3,264,0)"
^XMB(3.9,23,2,14730,0)="M6)&/-+?S.$2UETOQ82G%G;U4693OFWP/3ZI,G@SRQYF`-K\DQW$/REM*>2!;"
^XMB(3.9,23,2,14731,0)="""DATA"",396.18,220,3,265,0)"
^XMB(3.9,23,2,14732,0)="M(<-I;=#%O5RW\67NF#JJEBL>)]X:^<\XGDD4$>>GUL]D!BKQH+B-7^[!S=^P"
^XMB(3.9,23,2,14733,0)="""DATA"",396.18,220,3,266,0)"
^XMB(3.9,23,2,14734,0)="M@R!.A]7LP/X/K73=AD>)1)4C&+1G*ZDY3&RNOI/I-R7YGQ1!.MW0C1$)ZP[>"
^XMB(3.9,23,2,14735,0)="""DATA"",396.18,220,3,267,0)"
^XMB(3.9,23,2,14736,0)="MJ,<O`:0TU0:M;VV#?DNC?]0Y(;BBM]24@K7\Z$6ZG6H=""(,S9""3@JY<O78QJ"
^XMB(3.9,23,2,14737,0)="""DATA"",396.18,220,3,268,0)"
^XMB(3.9,23,2,14738,0)="M6<<MBQJX+^?""<8JOL*V5(D>M;F?#:U,LH7VC9M,/,#2?3;9]B$>0+@%^2AP#"
^XMB(3.9,23,2,14739,0)="""DATA"",396.18,220,3,269,0)"
^XMB(3.9,23,2,14740,0)="MV/WI>;PI#J*,FY"".D3R?6<!_7M]P:AOR&H9Z!IM^JVE;LX([F'RLN4[6)VE."
^XMB(3.9,23,2,14741,0)="""DATA"",396.18,220,3,270,0)"
^XMB(3.9,23,2,14742,0)="M1.DI'M#?;-:\ELV%G85Z(H``=""!9NB_1!*6T`!QZ86`FLB@0?""]5SI,QEU7$"
^XMB(3.9,23,2,14743,0)="""DATA"",396.18,220,3,271,0)"
^XMB(3.9,23,2,14744,0)="MV2;.$151'<49FGS@:@G+)#(M:F&1#B\2,3PLS:KKU:X.CR`\9,D]MB=#M4_W"
^XMB(3.9,23,2,14745,0)="""DATA"",396.18,220,3,272,0)"
^XMB(3.9,23,2,14746,0)="MH'+,/'`,^4GB$E$&:OWA$:D2$$ED!WU!(=*):<#-`JA?/=]@:2Q>9H],FQD>"
^XMB(3.9,23,2,14747,0)="""DATA"",396.18,220,3,273,0)"
^XMB(3.9,23,2,14748,0)="M^F/#1/9&,A7F7\F%TMMV/TE<V&4B'3$.Y`?-A2`N""UK$K(!NAV8R3-LGUT_."
^XMB(3.9,23,2,14749,0)="""DATA"",396.18,220,3,274,0)"
^XMB(3.9,23,2,14750,0)="MAHP+J.'<9<U^FN>1K7':=?KW&5I0A^&ZN<7H-NO4QMFTZ(._8=L=;;U+O$\@"
^XMB(3.9,23,2,14751,0)="""DATA"",396.18,220,3,275,0)"
^XMB(3.9,23,2,14752,0)="M7/""I:=O4&M8FI%9PH#$+MD$!HFX-?K%80@<YV=3:-NTK8'[L]BP3""+]%FB-;"
^XMB(3.9,23,2,14753,0)="""DATA"",396.18,220,3,276,0)"
^XMB(3.9,23,2,14754,0)="MTS7;9]%;^!-.J(/#$S-;=<]FR/BU+L-TKU%D-85)`YT8E,O@W?'ZXV_SV8SW"
^XMB(3.9,23,2,14755,0)="""DATA"",396.18,220,3,277,0)"
^XMB(3.9,23,2,14756,0)="MKED^FR2]RAHG!UO`>51ZI0>0?EIE+HAYIG'E4]JE#<MUG6YC0=.BVN672Q_H"
^XMB(3.9,23,2,14757,0)="""DATA"",396.18,220,3,278,0)"
^XMB(3.9,23,2,14758,0)="M0UXKZIP<7#[]D':*!:I/:<NG'WYL08M,(YO#P[TH6GVOHI09W\WHY*$^@%V/"
^XMB(3.9,23,2,14759,0)="""DATA"",396.18,220,3,279,0)"
^XMB(3.9,23,2,14760,0)="MQ,,'2WK\A9BT'U>LRV.TF,EU7L,W-.\4MV+]?7$;\!J#6;PL-GM7@36@?3FL"
^XMB(3.9,23,2,14761,0)="""DATA"",396.18,220,3,280,0)"
^XMB(3.9,23,2,14762,0)="M*W88\LF>_,[(ICD5Q.>S@:91499>V],K;0>B1UK#)EM]G>[(?!NWQ*2&SA(("
^XMB(3.9,23,2,14763,0)="""DATA"",396.18,220,3,281,0)"
^XMB(3.9,23,2,14764,0)="M5`WT^C>9Z%)YA_O`$ZQOW$542)`3H'Z+&<[OYX)]0PIVO^SCGM,;-C&)8#F7"
^XMB(3.9,23,2,14765,0)="""DATA"",396.18,220,3,282,0)"
^XMB(3.9,23,2,14766,0)="M>ZY+Q].XYP1>[#`'114'#J.$9[TFB`/.RKN+&7$',S\2*)(=:BG+`9,1+>9X"
^XMB(3.9,23,2,14767,0)="""DATA"",396.18,220,3,283,0)"
^XMB(3.9,23,2,14768,0)="ML3HW$G*J,1[<`/""G^52\F*,0B4I^EV@&G`-IG[Z645Q#F_.IHAXSM*PZ=PK6"
^XMB(3.9,23,2,14769,0)="""DATA"",396.18,220,3,284,0)"
^XMB(3.9,23,2,14770,0)="MF%=`CAAKW28ST""V[#;NL74]]/=V[4SS0?Z<H(@%LW_B&D.=/E.PSU4&,'J&Z"
^XMB(3.9,23,2,14771,0)="""DATA"",396.18,220,3,285,0)"
^XMB(3.9,23,2,14772,0)="M[^,/:,;<?86\480?.OPPX(<)/TKPHPP_*O!C'GY4R0\3OF'""-TSXA@G?,.$;"
^XMB(3.9,23,2,14773,0)="""DATA"",396.18,220,3,286,0)"
^XMB(3.9,23,2,14774,0)="M)GS#A&^8\`T3OF'""-TKD&V/O(#\S\<*6`AN7+(KRDE):,T+(4`BJ<!Z<'[=P"
^XMB(3.9,23,2,14775,0)="""DATA"",396.18,220,3,287,0)"
^XMB(3.9,23,2,14776,0)="M\""+YZ8H#:).]>>""<U5X/OC=@D.7`9B0'N5]USVN6!SV2\=`C>>)$V]HL[%VN"
^XMB(3.9,23,2,14777,0)="""DATA"",396.18,220,3,288,0)"
^XMB(3.9,23,2,14778,0)="M;:"";]L+^Y?[+=X$<4YL`/3#*?PV/$F%5S,HHL;NF(#7G?L.S3`D_(`SA,:D$"
^XMB(3.9,23,2,14779,0)="""DATA"",396.18,220,3,289,0)"
^XMB(3.9,23,2,14780,0)="M71*.EHUT&2T+5SB`0L1(P)VQ@,Z""^H,.)%;6>RF%E.""!E3D==ISR3O7E1A5'"
^XMB(3.9,23,2,14781,0)="""DATA"",396.18,220,3,290,0)"
^XMB(3.9,23,2,14782,0)="M>41`]`ORT'4*;2F5<3GH*QM.QQX-)M?!\<E)66<X58S2^/]+Q/ZB31P(_E^9"
^XMB(3.9,23,2,14783,0)="""DATA"",396.18,220,3,291,0)"
^XMB(3.9,23,2,14784,0)="M`)NH&?;G)T^+(M';6-FY;_`&YLW^J'B@C@)UR._/V37E]I6HW@(F2SRA_\P$"
^XMB(3.9,23,2,14785,0)="""DATA"",396.18,220,3,292,0)"
^XMB(3.9,23,2,14786,0)="M0F-W9%5W<68JRUFZPH^VO;J\-:^YYH#K!-'=Y4<>""N/*TOE4:O+I4F#2S7&1"
^XMB(3.9,23,2,14787,0)="""DATA"",396.18,220,3,293,0)"
^XMB(3.9,23,2,14788,0)="M_C(;,F&&6:Z.1ITUA908VI+_1;'O_X&\.OJ/#!)S%,XXX['7T('""OBM<VK^7"
^XMB(3.9,23,2,14789,0)="""DATA"",396.18,220,3,294,0)"
^XMB(3.9,23,2,14790,0)="MUK6('>V(^]HRYH#?U0^2RVD*^S\BF.[#H4M[`+(7L<JFPBK;3N&R\B'=V@=1"
^XMB(3.9,23,2,14791,0)="""DATA"",396.18,220,3,295,0)"
^XMB(3.9,23,2,14792,0)="M0R,?_*1VLAJNL'.D4%Q""H#,_DMT2(%OX!SF*N\75;-&82Y<)J(%EM$)<1A=$"
^XMB(3.9,23,2,14793,0)="""DATA"",396.18,220,3,296,0)"
^XMB(3.9,23,2,14794,0)="ME#@U'AS^_2]02P,$%``""``@`)(`>-9L`6M7A.```'=L!`!8```!!<G)H>71H"
^XMB(3.9,23,2,14795,0)="""DATA"",396.18,220,3,297,0)"
^XMB(3.9,23,2,14796,0)="M;6EA7S$Q,RYP;FPN9G)M[%U[;QPWDO\_0+Y#8X'#V+N.TR3[:2!WD&79UIX="
^XMB(3.9,23,2,14797,0)="""DATA"",396.18,220,3,298,0)"
^XMB(3.9,23,2,14798,0)="M""Y(<8W%8+%HSE*;7/=US_9`T^?1+LM]\=+-G-$KT""()$PYY'L:I8521_595<"
^XMB(3.9,23,2,14799,0)="""DATA"",396.18,220,3,299,0)"
^XMB(3.9,23,2,14800,0)="M_!O/<^-3<(&C\\T:?[E\GZ2K-\8Y&_GQ!\/XA""]SXQ?C)VB:].5YLB:O//KG"
^XMB(3.9,23,2,14801,0)="""DATA"",396.18,220,3,300,0)"
^XMB(3.9,23,2,14802,0)="MMW""1+\D+Y--7'W%XM:3O!(B^/`S6>9C$Y/7L\]'IAZ/9CS_@>/'C#TGG!^E/"
^XMB(3.9,23,2,14803,0)="""DATA"",396.18,220,3,301,0)"
^XMB(3.9,23,2,14804,0)="M';\;_3%H=7_-1L._=G!Z^O$?YQ^YWZM&_W42Q#BR3?H/(#_,7G9^&)2_5?ZN"
^XMB(3.9,23,2,14805,0)="""DATA"",396.18,220,3,302,0)"
^XMB(3.9,23,2,14806,0)="MA;J_:]EF[X>164X[C.FKV<F7DZ\G,SKR%E_CZ#B.<4K&+ZY/@S##""_8@21<X"
^XMB(3.9,23,2,14807,0)="""DATA"",396.18,220,3,303,0)"
^XMB(3.9,23,2,14808,0)="M/<LW$:9/LK,POHHP(S^)$OKN>7061M<XI6/ODSA_?;@,T@S3'WAW]/[@ZZ?S"
^XMB(3.9,23,2,14809,0)="""DATA"",396.18,220,3,304,0)"
^XMB(3.9,23,2,14810,0)="M?QU^/#@].SIOW]%\]&T4S+\WXPV=/P'0#/X:K#""3R)EQ%L29<8;3\'+6/*Y)"
^XMB(3.9,23,2,14811,0)="""DATA"",396.18,220,3,305,0)"
^XMB(3.9,23,2,14812,0)="M^[]_TJ&3(,5Q3A^0H?=!E#%2SX.++W0:9(SQ@^,ODV3)7Z<KV);#)3DUC^WR"
^XMB(3.9,23,2,14813,0)="""DATA"",396.18,220,3,306,0)"
^XMB(3.9,23,2,14814,0)="M1<UD""*NGK7R=<J`KX31=;O+E*@RR-\8IO@[QC9%<DK_FA,'9K'S_./O4#!19"
^XMB(3.9,23,2,14815,0)="""DATA"",396.18,220,3,307,0)"
^XMB(3.9,23,2,14816,0)="M:'>&U4SDV7B9O4VBQ3_+1W)V,AU5<Q%`.1/M+@^!""?M<!*;-<Q$)7#Q,5BM"""
^XMB(3.9,23,2,14817,0)="""DATA"",396.18,220,3,308,0)"
^XMB(3.9,23,2,14818,0)="M4&:0EVG)NC=[X1W<BG=;<.UH$>9,]2C3Z(L>SR#J\@PBGF>""YC4#U0J'T//-"
^XMB(3.9,23,2,14819,0)="""DATA"",396.18,220,3,309,0)"
^XMB(3.9,23,2,14820,0)="MBM;.*K`T""$(R@E!IXQJ*H+L-14""DR%93]+;(\R0NUZ=%B""I?]W7+ZRD7=+P^"
^XMB(3.9,23,2,14821,0)="""DATA"",396.18,220,3,310,0)"
^XMB(3.9,23,2,14822,0)="M6:Y`E2?J5I1D6""2L^N27^#`*Y]_)P&WY^Q\P,9;AG(VJ:3\\^?;Y-%B$R8<T"
^XMB(3.9,23,2,14823,0)="""DATA"",396.18,220,3,311,0)"
^XMB(3.9,23,2,14824,0)="M*=;E'*BD^^.]N3B]F7#\A;5F-C-Q!?XZ=BWQLV5R4QKPKB(:QM^++`\O-\<Y"
^XMB(3.9,23,2,14825,0)="""DATA"",396.18,220,3,312,0)"
^XMB(3.9,23,2,14826,0)="M7F7DR7E:5`_HR$FPD)NP0^-]2/2\-%[ULF/?059`2OP""_:X7Y;!AS,KWX<6L"
^XMB(3.9,23,2,14827,0)="""DATA"",396.18,220,3,313,0)"
^XMB(3.9,23,2,14828,0)="M&?DUR<FJ_?\""9SE>&!<;X[>#TR^SS@>X1\9%D1LQ^5!P'811<!'AV4M!/G`:"
^XMB(3.9,23,2,14829,0)="""DATA"",396.18,220,3,314,0)"
^XMB(3.9,23,2,14830,0)="M\]$P\PGW=F6_Y[I[8?]GO`CG052YC#^;&)!:#)_Q*FFC%_IJR""\`CN46\`2_"
^XMB(3.9,23,2,14831,0)="""DATA"",396.18,220,3,315,0)"
^XMB(3.9,23,2,14832,0)="MX/=Y#H#C@7MS`X=)D89DSK_BFR$G\""F,L5PB-??D;H*HS3Q-HN@MF0(9S[+?"
^XMB(3.9,23,2,14833,0)="""DATA"",396.18,220,3,316,0)"
^XMB(3.9,23,2,14834,0)="M<)I3P0LL-QN6*X-&X,KBQ4Z86NI98R;+2+)A@%6^=7*XV""R7QQA!`E7L`X`I"
^XMB(3.9,23,2,14835,0)="""DATA"",396.18,220,3,317,0)"
^XMB(3.9,23,2,14836,0)="M#WQ,:R!ZM'QW-'IL5*<711[=SC%[1V80FHT@WM""(,E]BXY+H3W)#^&S<+#%Y"
^XMB(3.9,23,2,14837,0)="""DATA"",396.18,220,3,318,0)"
^XMB(3.9,23,2,14838,0)="M1,?(Q&_PS/A;\UVI$6;&!N\G]D3W&WN6+AD!>72`^D8=""=$!'WE""^WZB@VJE"
^XMB(3.9,23,2,14839,0)="""DATA"",396.18,220,3,319,0)"
^XMB(3.9,23,2,14840,0)="M)[<V(;QYT5<>O^>/..5Q/)YTA*H`[6.2_MY8DM?G*1$558BNNZ&6I7W+:1!?"
^XMB(3.9,23,2,14841,0)="""DATA"",396.18,220,3,320,0)"
^XMB(3.9,23,2,14842,0)="M42E8T)0]EG[#09$GY5OZ)HRW4JH%P^T4.FZX'JAVM6;]NMF_UQ&<9,,@6SI$"
^XMB(3.9,23,2,14843,0)="""DATA"",396.18,220,3,321,0)"
^XMB(3.9,23,2,14844,0)="MX4_2Y#I<E*MA53G3%`<9>1^^Q>F<V#`C)YZ/3C);)D6T8%[O`AOS)%X4\\[B"
^XMB(3.9,23,2,14845,0)="""DATA"",396.18,220,3,322,0)"
^XMB(3.9,23,2,14846,0)="M(=]&'.2;QFD>Q=0M+OI,J&2NFCO2G+MO""7.O+417[K[6W`,R5S+#59#CVEA$"
^XMB(3.9,23,2,14847,0)="""DATA"",396.18,220,3,323,0)"
^XMB(3.9,23,2,14848,0)="MU);3%\$\#Z_#?&.\P+?K%&?$I!MA;'P^.L^,_MR#>&%DQ7J=I%68D*WQ/+P,"
^XMB(3.9,23,2,14849,0)="""DATA"",396.18,220,3,324,0)"
^XMB(3.9,23,2,14850,0)="MYX21P6H=X>P5>3Y?&D%F9,02&5D>A""FQ&.'J@G#W9?_;""!4!C4BR(B([._*+"
^XMB(3.9,23,2,14851,0)="""DATA"",396.18,220,3,325,0)"
^XMB(3.9,23,2,14852,0)="MBTVVCG'PBE![%<;D_XOP]]^I.R5?2TQ/MHGGR1J/<)^PBSB>;VFP[FGLB%`L"
^XMB(3.9,23,2,14853,0)="""DATA"",396.18,220,3,326,0)"
^XMB(3.9,23,2,14854,0)="M3:$`Q^:EXCM:""MD31<FMW?3(5I`,K#[)36C;4203""32W[Y(J$GS]TGB7X(RI"
^XMB(3.9,23,2,14855,0)="""DATA"",396.18,220,3,327,0)"
^XMB(3.9,23,2,14856,0)="M3KD%IXOEQOCT&Y7;91'/V8>H`A'S396#/,&4<#I\V1=]&I3#=-G]SVP7P;DJ"
^XMB(3.9,23,2,14857,0)="""DATA"",396.18,220,3,328,0)"
^XMB(3.9,23,2,14858,0)="MP9F<Y*`O2`X`7T]T?S6.SL^IVXRK$#I,.X&UC@<=\J&*$$;+CPYZ4G6H.<Q4"
^XMB(3.9,23,2,14859,0)="""DATA"",396.18,220,3,329,0)"
^XMB(3.9,23,2,14860,0)="M""#15""SF^H%H6FFJ?+:):'P.F621FN<`X-E8)BU[(4@$&7H=9LF!FZ^#PZ_F1"
^XMB(3.9,23,2,14861,0)="""DATA"",396.18,220,3,330,0)"
^XMB(3.9,23,2,14862,0)="M<?CQ/;465!'7099S-FJ#@W0GE8(J`XU<G_-._.2A""X3)VW!P\C:9_'MJW`IJ"
^XMB(3.9,23,2,14863,0)="""DATA"",396.18,220,3,331,0)"
^XMB(3.9,23,2,14864,0)="M*V-B`ZZ)Q$@(441!2N*[.NY[1=4O7Y+_W(3D?[&1A;>$33'GG)89Y=.B,O.+"
^XMB(3.9,23,2,14865,0)="""DATA"",396.18,220,3,332,0)"
^XMB(3.9,23,2,14866,0)="M,)L3O23N_3)-5L8RR=9A'D3A[T&Y*,GOAG&8A\0AXNL@*@+NV^B;J,VOO2:5"
^XMB(3.9,23,2,14867,0)="""DATA"",396.18,220,3,333,0)"
^XMB(3.9,23,2,14868,0)="M4+#>L`\&HR1S@B&?H9_KO3?&1;K)5D0(R6JSF]1L7:GY@CD$/IQJ#ATBMN-:"
^XMB(3.9,23,2,14869,0)="""DATA"",396.18,220,3,334,0)"
^XMB(3.9,23,2,14870,0)="M98F:!B0@(LZ5>,*06/8@SJD])Q]-%V%""=C@Y3G]ZAR_#BS2,HB!/4LX3OC@X"
^XMB(3.9,23,2,14871,0)="""DATA"",396.18,220,3,335,0)"
^XMB(3.9,23,2,14872,0)="M/GSWDFHU^?`<[\8)1Y<3P'9T-'@DQ'!K5A#=I(Z->&[VIDI/\YN$ZBG5S'9["
^XMB(3.9,23,2,14873,0)="""DATA"",396.18,220,3,336,0)"
^XMB(3.9,23,2,14874,0)="M4FNB$2Q6?5:$6=:H9L5)]FWD=8K[(Y>4\5UVSPF[N6\+YL1&S/$J^(YWLPH("
^XMB(3.9,23,2,14875,0)="""DATA"",396.18,220,3,337,0)"
^XMB(3.9,23,2,14876,0)="MZG(5(M$NV)Z6@LT\PLMOQ!0&7&AJ+)(8LZ58NEZRYFKVUE9P9[N'3-T9(A/H"
^XMB(3.9,23,2,14877,0)="""DATA"",396.18,220,3,338,0)"
^XMB(3.9,23,2,14878,0)="MZ,W($FJ63YP0Q:<&IA&K0:P6W914\Z-RI9(DYB8OLCI^[4OZ&I,U%E""S&'?7"
^XMB(3.9,23,2,14879,0)="""DATA"",396.18,220,3,339,0)"
^XMB(3.9,23,2,14880,0)="MS]V%B$CE%BP/<.RQ1`OC>-J11D_N3R#FZ)_*`D=Q4,L=8[7L%FV8)=DFM>K9"
^XMB(3.9,23,2,14881,0)="""DATA"",396.18,220,3,340,0)"
^XMB(3.9,23,2,14882,0)="M'!ZZMMO,2'5D.W!H*SNV[<D2E(91V&-6WC3:T/UEG@:5\N-%J[9$9L4JSNJC"
^XMB(3.9,23,2,14883,0)="""DATA"",396.18,220,3,341,0)"
^XMB(3.9,23,2,14884,0)="MM,&37J+\_VA.<ZJ#WOJH4;8C5\F!'M`R&]"">U""JW0;:ELR]'MH3ICCFV..]>"
^XMB(3.9,23,2,14885,0)="""DATA"",396.18,220,3,342,0)"
^XMB(3.9,23,2,14886,0)="MMZ%4M\4#7<61[L""A;N=85ZWY(T>[LH,EY6))5A?)V^26G2+4+\;VK,C5D1:4"
^XMB(3.9,23,2,14887,0)="""DATA"",396.18,220,3,343,0)"
^XMB(3.9,23,2,14888,0)="M+A%O3%I4+R4VC;^I&5-A1#W\)[+5[RKRYV8;@(QB;>2)8<L?V]5C5_[8K1X#"
^XMB(3.9,23,2,14889,0)="""DATA"",396.18,220,3,344,0)"
^XMB(3.9,23,2,14890,0)="ML_O\0XK)JDNK?899RW%P?0""]]0$\L/4""L?WG!3*P0-`D;^*.>A/.>4,;""9)S"
^XMB(3.9,23,2,14891,0)="""DATA"",396.18,220,3,345,0)"
^XMB(3.9,23,2,14892,0)="M@*8_L?;@3_;A"":Q)//2F>F3H""08'>)8F#^V]^F3X.GC-G')S,%4?1=GF?U$3"
^XMB(3.9,23,2,14893,0)="""DATA"",396.18,220,3,346,0)"
^XMB(3.9,23,2,14894,0)="M%!$3-.B'!\S@;D*Q)PG%GRJ4YH*@&RA)%!O)A`+W*A14!DKS99K$9`=-HJ(K"
^XMB(3.9,23,2,14895,0)="""DATA"",396.18,220,3,347,0)"
^XMB(3.9,23,2,14896,0)="M&BI=8V-)-C6Y<1F$44%L>76VN.<PR9DB!VA.-3!(=`T`(4TYF`_$P+A3>#BJ"
^XMB(3.9,23,2,14897,0)="""DATA"",396.18,220,3,348,0)"
^XMB(3.9,23,2,14898,0)="MRLCE=-D6[(OGZ7'0]1X(![U)UL""<S$(`T=9JZ#H/A(G^)"":""Z4R4W""EH,]%]"
^XMB(3.9,23,2,14899,0)="""DATA"",396.18,220,3,349,0)"
^XMB(3.9,23,2,14900,0)="M($P$YA0N6G`R%Z%C;LU%!SX4+H))7$23N8B@<!?CZV[)T;TP<6^14[U]J7@["
^XMB(3.9,23,2,14901,0)="""DATA"",396.18,220,3,350,0)"
^XMB(3.9,23,2,14902,0)="M#(URQI#TI3:V5Z5V#QH%RRWN,S1*V.'+3DV1%!AE]6`Y/@^U1!-1]1_#+$]2"
^XMB(3.9,23,2,14903,0)="""DATA"",396.18,220,3,351,0)"
^XMB(3.9,23,2,14904,0)="M!H(Z3X-B%3P:5+TE91_L)27487U[U`S'\?0T>^:5$275F3N]6*CO#'/&POV@"
^XMB(3.9,23,2,14905,0)="""DATA"",396.18,220,3,352,0)"
^XMB(3.9,23,2,14906,0)="MZ\%]H>M+,!8+SF6H\7Y:!W#<W7!A?WHFW2%TC1Y^L1,!`<_;5\MZC;=78#ZO"
^XMB(3.9,23,2,14907,0)="""DATA"",396.18,220,3,353,0)"
^XMB(3.9,23,2,14908,0)="MEC6:H/%$""#4G*,]PWAZ<5^:S2HM4;8A@+^L,<CZKW'(^X>POI,3NRA._7*>/"
^XMB(3.9,23,2,14909,0)="""DATA"",396.18,220,3,354,0)"
^XMB(3.9,23,2,14910,0)="M3>_K<G/!I^VBSHK5*BA=U$F:D""AH99S5T+G*?3T>.*XKM[JP!O37U^1_%C0N"
^XMB(3.9,23,2,14911,0)="""DATA"",396.18,220,3,355,0)"
^XMB(3.9,23,2,14912,0)="M,VFVU*3U0+CUO7Z#X':$S#4?<2;-18[S;-(D)DV>H&`I$VG=?MZN9;I/W*19"
^XMB(3.9,23,2,14913,0)="""DATA"",396.18,220,3,356,0)"
^XMB(3.9,23,2,14914,0)="MRIC;4J1APJXR\PE.SM1<UL=LQTK7X,K3.I#=LV/(%1):^<0.*++RKX1_.""/$"
^XMB(3.9,23,2,14915,0)="""DATA"",396.18,220,3,357,0)"
^XMB(3.9,23,2,14916,0)="M%Q>K,*=WD\%B83!H',78)@SA4GF-:FX2S,I(=@%49A?T[1KGWFR+GP""J3?'6"
^XMB(3.9,23,2,14917,0)="""DATA"",396.18,220,3,358,0)"
^XMB(3.9,23,2,14918,0)="MR06V=5_)!4B%""&[/)KB,LZY%=Z>""5\]+4>';G**>UTF6A619O#(6.)NGX469"
^XMB(3.9,23,2,14919,0)="""DATA"",396.18,220,3,359,0)"
^XMB(3.9,23,2,14920,0)="M=3`/TWFQRO(@GN.,[;9JV.6*!]B'ES@K`6X-T&E!3%B088.A-?]=I)LW.\""\"
^XMB(3.9,23,2,14921,0)="""DATA"",396.18,220,3,360,0)"
^XMB(3.9,23,2,14922,0)="MD*<""3/L\KD8X3]+DSNQ=M94D<\#YF]E]7UOK8)9V0TA;IJ:.02`>RNGAHYDS"
^XMB(3.9,23,2,14923,0)="""DATA"",396.18,220,3,361,0)"
^XMB(3.9,23,2,14924,0)="M)T)G>+;]<Q+\49Q$FIRT1,B19^IQ\@N%&1KSJH1`S<7A5>*KR+*M40D#1S.M"
^XMB(3.9,23,2,14925,0)="""DATA"",396.18,220,3,362,0)"
^XMB(3.9,23,2,14926,0)="MX+!(*<N,G`)1ROH&%/?*D+0T]2BD;WR@4M_&-EE`4QF0ZPEWV:8FPO)=;9@S"
^XMB(3.9,23,2,14927,0)="""DATA"",396.18,220,3,363,0)"
^XMB(3.9,23,2,14928,0)="MFHR#+R\)&5F)CY_S\MA#JI%EZ\[1]'1N18;G*,PHV\5WN%""3=M%U`&!J9TFQ"
^XMB(3.9,23,2,14929,0)="""DATA"",396.18,220,3,364,0)"
^XMB(3.9,23,2,14930,0)="ML/(""T[!@@?,@C+H9=X_']#DJ&\,K@J`'FN8%O'Z$7'--/:[YYI9<@X^2:RK+"
^XMB(3.9,23,2,14931,0)="""DATA"",396.18,220,3,365,0)"
^XMB(3.9,23,2,14932,0)="M""EWWCOB&'B/?E$D?[3VJVEI#S<30(^:#PFM,,UW+*QC._ZAHI&5Z_%ZY'G4X"
^XMB(3.9,23,2,14933,0)="""DATA"",396.18,220,3,366,0)"
^XMB(3.9,23,2,14934,0)="M[XDX>>#J@(!-:+:P(Q'6.P27=>5H66$GA@0LBN6+>$$/2F@#[NP9%CL.B_T4"
^XMB(3.9,23,2,14935,0)="""DATA"",396.18,220,3,367,0)"
^XMB(3.9,23,2,14936,0)="M9GEU(E#].;9S$64""H*@O+0JA*Y,6PWE$]\4+O#C#$25'#SL^A`@X8ZE>LWZ*"
^XMB(3.9,23,2,14937,0)="""DATA"",396.18,220,3,368,0)"
^XMB(3.9,23,2,14938,0)="M^Q4]2R$+*-H8-TF:]1X?K]9I<DU""M]Y@G.-T%>9LTW[SLY'B59EXUH,;L(U#"
^XMB(3.9,23,2,14939,0)="""DATA"",396.18,220,3,369,0)"
^XMB(3.9,23,2,14940,0)="M*Z;/192'S42Z``A]:&W%?*260XL_5@O""17J""@-[^!/%K$O?X7)8IHC:M.WI6"
^XMB(3.9,23,2,14941,0)="""DATA"",396.18,220,3,370,0)"
^XMB(3.9,23,2,14942,0)="MI%=48WML/?_YY+P[\(Y(@>8""KM>1Y""N^%/F:#%)));>;*]Q[>'AR<-)]30^4"
^XMB(3.9,23,2,14943,0)="""DATA"",396.18,220,3,371,0)"
^XMB(3.9,23,2,14944,0)="MECC):#[IKJ*<!,A%X[@GQ..>VM3@5K+N0/IE1[+(W""LB]VQ\;[1G%*X[[ET`"
^XMB(3.9,23,2,14945,0)="""DATA"",396.18,220,3,372,0)"
^XMB(3.9,23,2,14946,0)="MT',O""$*QDH8YD*C=0J,`\)_=BP8<E8E#4QJ^EK-O4Y-;:9C^<VK,8.Z81H:?"
^XMB(3.9,23,2,14947,0)="""DATA"",396.18,220,3,373,0)"
^XMB(3.9,23,2,14948,0)="MIR<ERW%TI.38,O>/GM>,%N2S2M]SU*E\O%BV#N(=JY-6-IZR!W0,^5C""7'D'"
^XMB(3.9,23,2,14949,0)="""DATA"",396.18,220,3,374,0)"
^XMB(3.9,23,2,14950,0)="MSVH]=>$``R&G3H$6636""&=T`-3>2-+!ZJ(>FXAV7!JQA3`2L(H14!*@]7-I9"
^XMB(3.9,23,2,14951,0)="""DATA"",396.18,220,3,375,0)"
^XMB(3.9,23,2,14952,0)="M!L=QEJ<%2Z;*9@,HW9TFQ`5=UO2@""P*=<%J6F^99^\U-.V:G_GD8%TF155GB"
^XMB(3.9,23,2,14953,0)="""DATA"",396.18,220,3,376,0)"
^XMB(3.9,23,2,14954,0)="M[%F=_?\')SY5)LI7FROQ6`1*0EQ;QV!YT'<G&""Q?APT?DF31Y</[($Q[.\DD"
^XMB(3.9,23,2,14955,0)="""DATA"",396.18,220,3,377,0)"
^XMB(3.9,23,2,14956,0)="M23FC-H1S8C!(*=#)[`,$.""@D$@J;RHH2XR""=R:NM;@UTJLCV%637>P\%KD$'"
^XMB(3.9,23,2,14957,0)="""DATA"",396.18,220,3,378,0)"
^XMB(3.9,23,2,14958,0)="MGU7""&>X:H%59,465QP9TM0/=#Q?-""Z=P5HG&\B5HK%)M.S4V&GQ(A;UJJ\6Z"
^XMB(3.9,23,2,14959,0)="""DATA"",396.18,220,3,379,0)"
^XMB(3.9,23,2,14960,0)="MSRD1/#S+5L**%,5B^T;#XN%9_M2D""*[6%^$#/8O!>P)H_1'9$0#(LTMZ9LSF"
^XMB(3.9,23,2,14961,0)="""DATA"",396.18,220,3,380,0)"
^XMB(3.9,23,2,14962,0)="MTR-,C?2(CTUYJGC19$F4A_%#]$`->CR/EZP[3@\%U+PQ%L'F55E*B]%%""SX9"
^XMB(3.9,23,2,14963,0)="""DATA"",396.18,220,3,381,0)"
^XMB(3.9,23,2,14964,0)="MX:7Q/4YNF'R#]3I-;LL:GS2;8YQ@>7I.D]7(G<XW++3!.,FG98%50E;""X!?Y"
^XMB(3.9,23,2,14965,0)="""DATA"",396.18,220,3,382,0)"
^XMB(3.9,23,2,14966,0)="M9LTP05FIA..T61K,A)""O&>Z/0N\:L""NMNH>#^=+`M""3=*^,RC**ZXE3)TS""^"
^XMB(3.9,23,2,14967,0)="""DATA"",396.18,220,3,383,0)"
^XMB(3.9,23,2,14968,0)="M3-(5$_XKBLTCT_C+UY@]^TNOHN6,0;.:-[.23>574$&MBVS)OC4KP7X7S$!/"
^XMB(3.9,23,2,14969,0)="""DATA"",396.18,220,3,384,0)"
^XMB(3.9,23,2,14970,0)="M1?657+%UN&*YH[D72.*Z&XAZ0!C!U0HL46NE\""A""L9Q*4PMW@&2D0[*H8S78"
^XMB(3.9,23,2,14971,0)="""DATA"",396.18,220,3,385,0)"
^XMB(3.9,23,2,14972,0)="M>K`K2%T7K(:@$OV?XT61XFQ<OURY]8!^O_`RC_W_P]&=53""D""N)0OR$&X`I'"
^XMB(3.9,23,2,14973,0)="""DATA"",396.18,220,3,386,0)"
^XMB(3.9,23,2,14974,0)="M(\':N+JQIW\7L:>M""IEA/X8;S<CR=7,#W)W(9EU19`U1^OKK\&P6DACY=B@`"
^XMB(3.9,23,2,14975,0)="""DATA"",396.18,220,3,387,0)"
^XMB(3.9,23,2,14976,0)="MF9X[&T#.2T_OH""Q+@5M*)ABC!8FT^/#I92G`D900).U:P3E'BT]?=7C#9?,Y"
^XMB(3.9,23,2,14977,0)="""DATA"",396.18,220,3,388,0)"
^XMB(3.9,23,2,14978,0)="M(0#93S`G9+31#_2T;(-@D75L@VI?ZMR!36.%(67=![P>W=LDF5;!QG[VT\C2"
^XMB(3.9,23,2,14979,0)="""DATA"",396.18,220,3,389,0)"
^XMB(3.9,23,2,14980,0)="MHKMQ>'=""^&X'&%]..SB&YL60,>27IQA7B,O3-6O#/'1I+CV34K?C.3QX^Z'M"
^XMB(3.9,23,2,14981,0)="""DATA"",396.18,220,3,390,0)"
^XMB(3.9,23,2,14982,0)="MM?-;$%T74;*.@BS?](=I=756!)A>LK:/ZE@G3\F6BI6\;9\=Q%>A\%V'29K$"
^XMB(3.9,23,2,14983,0)="""DATA"",396.18,220,3,391,0)"
^XMB(3.9,23,2,14984,0)="M-*#+*,BA7L6JB^]R==-3S8H/W14N'14Q#W3RY^&Z-57?PGB1W%3B2>(K*J_Q"
^XMB(3.9,23,2,14985,0)="""DATA"",396.18,220,3,392,0)"
^XMB(3.9,23,2,14986,0)="MO1WS<]:XHX,.XJ-_(2W3Y%.,/=!XW2=D>SV-%&-/<@3D.*J.0;9G<_EX]A//"
^XMB(3.9,23,2,14987,0)="""DATA"",396.18,220,3,393,0)"
^XMB(3.9,23,2,14988,0)="MQW-4.PW/5NRR>P<^_+&`V!5Q+!^OB%;E@C^Z#5:/(0NO25U#RCPVV-\V(#Z1"
^XMB(3.9,23,2,14989,0)="""DATA"",396.18,220,3,394,0)"
^XMB(3.9,23,2,14990,0)="M#0A=<I`LD:UI@6/NW$3'OJ\\-\]3IJB,%OX#""$Q,)&!-IMA!SB4M5TP,U2.#"
^XMB(3.9,23,2,14991,0)="""DATA"",396.18,220,3,395,0)"
^XMB(3.9,23,2,14992,0)="MY'/UE^S1LGX<EX&0GF1YXL6I)6""Y'-M10+FZ-X=:EXJ6+<LQ6M(RXF?+8(U_"
^XMB(3.9,23,2,14993,0)="""DATA"",396.18,220,3,396,0)"
^XMB(3.9,23,2,14994,0)="M-MYA>D85=L*$]B+1U@/]I:L^F(]H=XI[(_^[62^3+.S=.)[-DRCD!T\(_XN,"
^XMB(3.9,23,2,14995,0)="""DATA"",396.18,220,3,397,0)"
^XMB(3.9,23,2,14996,0)="MMC,+KH.\6&U;M!JJ,""WV:%UVF8PZ5;-:&8%G2,ODNH[6:""EWZ+@\$EPHJ`>1"
^XMB(3.9,23,2,14997,0)="""DATA"",396.18,220,3,398,0)"
^XMB(3.9,23,2,14998,0)="M""'#QH2@B&TQ>1@($=N!R_BW%/2Z-LZ2(%]E/QBFCY.MZ37[C4W*!M[V9[YZU"
^XMB(3.9,23,2,14999,0)="""DATA"",396.18,220,3,399,0)"
^XMB(3.9,23,2,15000,0)="ML8%O2XQ_[U_7'U+G$?7'3I=)/%^&?13MG'8UPXO=2_Y:[F3)-3V*MY`<NG_)"
^XMB(3.9,23,2,15001,0)="""DATA"",396.18,220,3,400,0)"
^XMB(3.9,23,2,15002,0)="M?4IN'HKD)M6CM;RICFMKP=F.JOCB?@3'Z']`<IL$'[?\R0''#J;2OG>Y/2!+"
^XMB(3.9,23,2,15003,0)="""DATA"",396.18,220,3,401,0)"
^XMB(3.9,23,2,15004,0)="M.:G`O&U.MI2NHR,W6:2HZE<R.5*4BNT$I_."")<%41E(B*;1=D/BNB**8Z^WP"
^XMB(3.9,23,2,15005,0)="""DATA"",396.18,220,3,402,0)"
^XMB(3.9,23,2,15006,0)="M<4,T(L49V;/&<RR5!)PD""3!U!>T@"".^^!$%)_\/E`+0A<0@JSO!][G[/_)/4"
^XMB(3.9,23,2,15007,0)="""DATA"",396.18,220,3,403,0)"
^XMB(3.9,23,2,15008,0)="M_JK(5MVFFKN3?4""V]SU)W#EX2W9R5U51[6)@FOO`LGY12[,%G_C1G:LZNK/E"
^XMB(3.9,23,2,15009,0)="""DATA"",396.18,220,3,404,0)"
^XMB(3.9,23,2,15010,0)="M1W<]A``/[D1P^_*UAVWG@X^L\\'[LO/!HZFI93L*T$5OF7&H'EV$%%=R:(@,"
^XMB(3.9,23,2,15011,0)="""DATA"",396.18,220,3,405,0)"
^XMB(3.9,23,2,15012,0)="M3X,,8'$7C;ZC`4FI>EB497MNEKBIWR))6!JBT)<?&O?OYGR+O]W2`+<=E?U4"
^XMB(3.9,23,2,15013,0)="""DATA"",396.18,220,3,406,0)"
^XMB(3.9,23,2,15014,0)="M6<=EUCD0P)_*!HV32:TN;A47H`#UH30FO#-0A[63T:_1ZZZ`9)>S&9C""+:(_"
^XMB(3.9,23,2,15015,0)="""DATA"",396.18,220,3,407,0)"
^XMB(3.9,23,2,15016,0)="M!N\`+O#4[%1<'XJN07VAV)X:SMJ3CUF[(YO]MP%+;ZY@0K_Y@:K@O/2@'9@"""
^XMB(3.9,23,2,15017,0)="""DATA"",396.18,220,3,408,0)"
^XMB(3.9,23,2,15018,0)="MJE+`F-@B0VK4@RIY0ADRB0%3/VV""=@2NNL?4.1+""[D+-R5^3EFDT4^*E/,88"
^XMB(3.9,23,2,15019,0)="""DATA"",396.18,220,3,409,0)"
^XMB(3.9,23,2,15020,0)="M0(JXX\5#A7K(OL`Q1^28_91KA\H/>\UQ7@/;WH;9[M!Z?4(20!JWQ;**U+""4"
^XMB(3.9,23,2,15021,0)="""DATA"",396.18,220,3,410,0)"
^XMB(3.9,23,2,15022,0)="M0K=F<BN`?LJ`KVBBT#+O4[C""#R-Z])0^7([T][U^E,$%&=YX^'AR^N7DZ/3\"
^XMB(3.9,23,2,15023,0)="""DATA"",396.18,220,3,411,0)"
^XMB(3.9,23,2,15024,0)="M^.CLT02&GIQ7L,<KBPL@=&#-1,OI3OH7T&0E/]""6!B6;D`:;'#XJ!!I181D_"
^XMB(3.9,23,2,15025,0)="""DATA"",396.18,220,3,412,0)"
^XMB(3.9,23,2,15026,0)="MG>/;_)?.[F2F80IDN4-E->$J[O-[P)$RJFX-<7D#]X1WG[XZ!<)15'(&0_U3"
^XMB(3.9,23,2,15027,0)="""DATA"",396.18,220,3,413,0)"
^XMB(3.9,23,2,15028,0)="M1(CWR`:TZE(?9/,B""M+'!Q^QU/`19Z@.LB5&#0#MB@\!]X4/`9:R$#)`H]UJ"
^XMB(3.9,23,2,15029,0)="""DATA"",396.18,220,3,414,0)"
^XMB(3.9,23,2,15030,0)="M.[6V]``BJR(E_XX4S!SNL&XI$2V(SRH6$2VV9IFZ@P;(,N^K_2/%M;""M'&T8"
^XMB(3.9,23,2,15031,0)="""DATA"",396.18,220,3,415,0)"
^XMB(3.9,23,2,15032,0)="M34]FZQ<C+2I]$<MB28H`>!+VEL=6Y=7/;*@7-+\;7>+Y=THFW896?[>'U`TR"
^XMB(3.9,23,2,15033,0)="""DATA"",396.18,220,3,416,0)"
^XMB(3.9,23,2,15034,0)="MV6S'ZE""_'6E<#&K'A#R7;M!O0;_;3[J+%[<ZX^+=4(?=RIG`H9FT:*&[FHBI"
^XMB(3.9,23,2,15035,0)="""DATA"",396.18,220,3,417,0)"
^XMB(3.9,23,2,15036,0)="MF`B03\34GP@:G`C4FDE;$'9\)D`Q$RB?""=""?B34T$^AX.C.Q)LP$*6:""Y#.!"
^XMB(3.9,23,2,15037,0)="""DATA"",396.18,220,3,418,0)"
^XMB(3.9,23,2,15038,0)="MPDP&6Y$C!>I)L.YBD\H.$JHMY>/R]US0-.WG>DL#:*A)-_SV:$M'7G#016*U"
^XMB(3.9,23,2,15039,0)="""DATA"",396.18,220,3,419,0)"
^XMB(3.9,23,2,15040,0)="M']$O6Y9X06FY>[WA9^>K;[:]R3^XR+JI#:R$(VOLO#O\Q1XM""-,DQ]X%E[V]"
^XMB(3.9,23,2,15041,0)="""DATA"",396.18,220,3,420,0)"
^XMB(3.9,23,2,15042,0)="M<OF$'F6SM(_(2(N+>^*W1N$]9""E,#Q^G(4D@86E8'LMYKNHZO0LT&@<M0Z[*"
^XMB(3.9,23,2,15043,0)="""DATA"",396.18,220,3,421,0)"
^XMB(3.9,23,2,15044,0)="MFTZ<9P$1^67O5_/__MN[-]NB'M3:WAGZRKP92\S.,@J(V`)ZS#'?F6K>9;LN"
^XMB(3.9,23,2,15045,0)="""DATA"",396.18,220,3,422,0)"
^XMB(3.9,23,2,15046,0)="M6Z/HL>TXSEZY_YG;RMV=;9D$0D7N9'7VM]5G=[](QI//QUOKLT4F<GQXUF6Q"
^XMB(3.9,23,2,15047,0)="""DATA"",396.18,220,3,423,0)"
^XMB(3.9,23,2,15048,0)="M+0XYU=`X?&>,Z]Y4K@/D3MLN=MAN[I7MI^R,:VO.G^(K>C(P$X>BC1&FJ?CX"
^XMB(3.9,23,2,15049,0)="""DATA"",396.18,220,3,424,0)"
^XMB(3.9,23,2,15050,0)="MN![LO6$<9#B(3;+URG79\,\%J5)D<P/'VYGL_4.JH`DAE'4*=]MS[5Y_0I=K"
^XMB(3.9,23,2,15051,0)="""DATA"",396.18,220,3,425,0)"
^XMB(3.9,23,2,15052,0)="MN6K!IPZJ*@\ZI4T5""',=.;X%6FBH""A;T)AYM'ZW64;*AF=2/KCTAY:*BADT_"
^XMB(3.9,23,2,15053,0)="""DATA"",396.18,220,3,426,0)"
^XMB(3.9,23,2,15054,0)="M39JOAX>:)$>-(DEE[ZQD/B_6K`X0V8HL*[Q:""7%:A-F<L/$*&R]N0O+]M/!4"
^XMB(3.9,23,2,15055,0)="""DATA"",396.18,220,3,427,0)"
^XMB(3.9,23,2,15056,0)="M]I+6?6+/NT62#)JA;N#;8$7+5K$N5^3?P$CQ=8AOV(/70U?PTTHE,?[`<?XT"
^XMB(3.9,23,2,15057,0)="""DATA"",396.18,220,3,428,0)"
^XMB(3.9,23,2,15058,0)="M6)^V6I*M4WJHR/`+.E$RDY!(G%C2O*R4?I.DWRFV*NIBJXPU48-DL1T8C$[%"
^XMB(3.9,23,2,15059,0)="""DATA"",396.18,220,3,429,0)"
^XMB(3.9,23,2,15060,0)="M<S2F8@D+1J.*TKF$_$5!':)T""G<I(@B!*1=1TY.]!APY?`TR4P,46*15\;O+"
^XMB(3.9,23,2,15061,0)="""DATA"",396.18,220,3,430,0)"
^XMB(3.9,23,2,15062,0)="MIGX];BS""EK(@-$,=6?`4^QI:=5X526N)W)Y&5X>O#G=YZ&MPM>Y:UQJ%[8GT"
^XMB(3.9,23,2,15063,0)="""DATA"",396.18,220,3,431,0)"
^XMB(3.9,23,2,15064,0)="M->P7QT</C9/X-2N(H>(('(0PDA7F*P(M!'H5?Y!GCT4LCFZ@M5M)K?HVAQ+/"
^XMB(3.9,23,2,15065,0)="""DATA"",396.18,220,3,432,0)"
^XMB(3.9,23,2,15066,0)="M(&C]ZYV:?,OLM]WF""X().?*6+ZGFE],""Q-2L%W&IG7@QD]>94(O;L93]X_B."
^XMB(3.9,23,2,15067,0)="""DATA"",396.18,220,3,433,0)"
^XMB(3.9,23,2,15068,0)="M0$)JAF=-ZSV:,HI[-52F7TE2HGG#RZ/`U9M/7S/)GOF2NZ59>9-J\G<#4*?>"
^XMB(3.9,23,2,15069,0)="""DATA"",396.18,220,3,434,0)"
^XMB(3.9,23,2,15070,0)="M]U!;S3LGWE=I20,@;ANH>%O?`\M\0ZW:=S$)3T]KH$0`MF:;W;+$9F9<T=9A"
^XMB(3.9,23,2,15071,0)="""DATA"",396.18,220,3,435,0)"
^XMB(3.9,23,2,15072,0)="MK'/HW4T`FI;>!#H7@&W_4\W&9V7K\$U5ZCPR7JR7FXS^]9)6<J2U_+-=9Z'$"
^XMB(3.9,23,2,15073,0)="""DATA"",396.18,220,3,436,0)"
^XMB(3.9,23,2,15074,0)="M0/#MT63ST&VW6<]CG6WFRS#(T[(4Y0X3Z!_`,.\TFF@HK&WAV@^8XODBLL5K"
^XMB(3.9,23,2,15075,0)="""DATA"",396.18,220,3,437,0)"
^XMB(3.9,23,2,15076,0)="M/]]R]EWH_AKG.`WBRFH,5[977#WN7O#>'.^N!TVZC9""WV!.\%A);""_@ZW3DH"
^XMB(3.9,23,2,15077,0)="""DATA"",396.18,220,3,438,0)"
^XMB(3.9,23,2,15078,0)="MQ]VQFU;]`[VV2AH-#""2ETE1KV1&6`)+8(MN5T>^-T7_G#<B.HO""*]EHW+C9&"
^XMB(3.9,23,2,15079,0)="""DATA"",396.18,220,3,439,0)"
^XMB(3.9,23,2,15080,0)="M<,7:HR\Z1IWN8\3^9!TC4R_1E_)WB6OYY58-Q88JJZEJJ\EA`8/UU>05UD8*"
^XMB(3.9,23,2,15081,0)="""DATA"",396.18,220,3,440,0)"
^XMB(3.9,23,2,15082,0)="MI]!3+A6,@.^;8?ZGO6MK;AM9SG\%Y52*4H[6B[G@YCJ54SZV=M>5O;AL9S=Y"
^XMB(3.9,23,2,15083,0)="""DATA"",396.18,220,3,441,0)"
^XMB(3.9,23,2,15084,0)="M2D'D2$1,`@Q`RM;^^DP/""'`P%V!`4O1:IA]<$DB1/=,]?9ONKT,GX?!-PG$>"
^XMB(3.9,23,2,15085,0)="""DATA"",396.18,220,3,442,0)"
^XMB(3.9,23,2,15086,0)="MVW2T,@)A""P9+""<BPHY3H1II0`_.""D]F""760!$-D""1/N+F@?'>2C""1/0,1='="
^XMB(3.9,23,2,15087,0)="""DATA"",396.18,220,3,443,0)"
^XMB(3.9,23,2,15088,0)="MUDCW^4+J9B<DK)2>=??/2HE<MNAGP*]>SSE;D$"":E_<+P<4I%H\[^XCA>:`_"
^XMB(3.9,23,2,15089,0)="""DATA"",396.18,220,3,444,0)"
^XMB(3.9,23,2,15090,0)="M#^`Y\O47^#/X),,KOQ0EJ[^^??724:%9BA,2=6!OY*+/B,G8!>>RJ`-G!0I&"
^XMB(3.9,23,2,15091,0)="""DATA"",396.18,220,3,445,0)"
^XMB(3.9,23,2,15092,0)="M!4Z,0E0O]@T-AL=T6L+HS*C]9P:WC`HM+H(60QE8%86.K(K/K.IA%76X+V[Y"
^XMB(3.9,23,2,15093,0)="""DATA"",396.18,220,3,446,0)"
^XMB(3.9,23,2,15094,0)="M96Q'[=X6^VH:4+LI:.YI93\.G3LD=Q9T@`G)(!-0$N_!A+9FXEMG0CC<X""\"""
^XMB(3.9,23,2,15095,0)="""DATA"",396.18,220,3,447,0)"
^XMB(3.9,23,2,15096,0)="M8-_6Y=]E1A`-,4/M\0>ME1S2XQ^,Z/&7_;%/C'V4NO^5W['X?>=-38CZ@*H/"
^XMB(3.9,23,2,15097,0)="""DATA"",396.18,220,3,448,0)"
^XMB(3.9,23,2,15098,0)="M`O5!J#Z(U`>Q^B!1'W#G3GV""M""<:L4BC%FGD(HU>I!&,-(J11C+2:,8:S5BC"
^XMB(3.9,23,2,15099,0)="""DATA"",396.18,220,3,449,0)"
^XMB(3.9,23,2,15100,0)="M&6LT8XUFK-&,-9JQ1C/6:,8:S5BCF6@T$XUFH@N%1C/1:""8:S42CF6@T$XUF"
^XMB(3.9,23,2,15101,0)="""DATA"",396.18,220,3,450,0)"
^XMB(3.9,23,2,15102,0)="MHM%,-9JI1C/5:*:Z)&LT4XUFJM%,-9JI1C/5:`XTF@.-YJ""A^=)1.2$WY835"
^XMB(3.9,23,2,15103,0)="""DATA"",396.18,220,3,451,0)"
^XMB(3.9,23,2,15104,0)="M*42!@W**T""'*:7""BP0^;Q0)*'W:KYQI]_5WWT7NVN/U.N3`4C^'J0@(GD_-I"
^XMB(3.9,23,2,15105,0)="""DATA"",396.18,220,3,452,0)"
^XMB(3.9,23,2,15106,0)="M#MN&K<@MX<#&A0X;1_$A&T>'-LX:6IL#:W-8;0FJ;2&U-:#N]V*($6U#V>28"
^XMB(3.9,23,2,15107,0)="""DATA"",396.18,220,3,453,0)"
^XMB(3.9,23,2,15108,0)="M#.XQUO>8G-V8H2E$ALP?[8?IZ53/A;&J-%0<@!;&2.*+_U@@/4V:;WO;NGCP"
^XMB(3.9,23,2,15109,0)="""DATA"",396.18,220,3,454,0)"
^XMB(3.9,23,2,15110,0)="M&KVP!V:/G,&3\G?NF#U""NM&@CT[]0:\PU!4O_99A>^Q($;ZAH!;5TPF:HJD."
^XMB(3.9,23,2,15111,0)="""DATA"",396.18,220,3,455,0)"
^XMB(3.9,23,2,15112,0)="M4*$V8^0\9U8OLT76`BM+E1KI`X^@8\>._,K$Y*&E*(2<;W$+GPY>H65(9`>`"
^XMB(3.9,23,2,15113,0)="""DATA"",396.18,220,3,456,0)"
^XMB(3.9,23,2,15114,0)="M0T4%1=BAU.]UEM[E,!%!;-QFR==_P3ZGT_7E('IA1!R(0EB;J!FXPRC.6NHN"
^XMB(3.9,23,2,15115,0)="""DATA"",396.18,220,3,457,0)"
^XMB(3.9,23,2,15116,0)="MELOO'_@_![*H""UFA6FV+$[>ZR'H""J2@O%EL&(-.BL/LBRZ>+#6`W-,-EAVD-"
^XMB(3.9,23,2,15117,0)="""DATA"",396.18,220,3,458,0)"
^XMB(3.9,23,2,15118,0)="M'4C%1,71""<API=\U\%""0""52*`MHT7W/U6P_HRJ8RY;/9E;=<7GG2!A^EL#:R"
^XMB(3.9,23,2,15119,0)="""DATA"",396.18,220,3,459,0)"
^XMB(3.9,23,2,15120,0)="MX%OZ<?\""?3J\P-?RTJ2U=.7D.,MP8E.B'3\'B6IQ2T!G=9?2)SQ*MW'4[XTI"
^XMB(3.9,23,2,15121,0)="""DATA"",396.18,220,3,460,0)"
^XMB(3.9,23,2,15122,0)="M0TU5.D,-7B920.E""$CZ.._9'6HF5UXIGF2ZRNYR+J>Z(D;&.6/MS,P+P<BS"""
^XMB(3.9,23,2,15123,0)="""DATA"",396.18,220,3,461,0)"
^XMB(3.9,23,2,15124,0)="M'S(..>TR7:W!)51S;:FVEVW3ZC?DEJ'^T;;8--I6T=@D'MIK#?R4[W4R&3UO"
^XMB(3.9,23,2,15125,0)="""DATA"",396.18,220,3,462,0)"
^XMB(3.9,23,2,15126,0)="M-1GF.XJ2(6(""K!\B,OF&01R-C""=&QM-NX;UJ'C`:9GS8FW12TR1V`F.S9*+>"
^XMB(3.9,23,2,15127,0)="""DATA"",396.18,220,3,463,0)"
^XMB(3.9,23,2,15128,0)="M""9!N%&)'""H.!""!(-RRM1NT""<Y#7X!D=4AH,M&I;1`FU68[OC^\S9/<;H<&O8"
^XMB(3.9,23,2,15129,0)="""DATA"",396.18,220,3,464,0)"
^XMB(3.9,23,2,15130,0)="M2PQ1+Y7`^3MMI%0)>1'YUMM(L36^M<0;W;[H0'6Z_)$!;ANH/9F@%H7F\(`&"
^XMB(3.9,23,2,15131,0)="""DATA"",396.18,220,3,465,0)"
^XMB(3.9,23,2,15132,0)="MW48G3?_[T7!X\&\>`$!PXL7$;8&P,9MQ:KCJX($;_Q7<SO>;Y3)M>W&=@X+Z"
^XMB(3.9,23,2,15133,0)="""DATA"",396.18,220,3,466,0)"
^XMB(3.9,23,2,15134,0)="M]*'0TA`?T^ZP#A7.D0QS7AXR=+2IU5NR(TM[680.UE^=\>9_>7S;HV,-6!$2"
^XMB(3.9,23,2,15135,0)="""DATA"",396.18,220,3,467,0)"
^XMB(3.9,23,2,15136,0)="MXL>R#/@@JELP4F1%)NT`DV*UXY`XSK4=`4P:'0&8].N2O![L5!Q8H5/5KB%#"
^XMB(3.9,23,2,15137,0)="""DATA"",396.18,220,3,468,0)"
^XMB(3.9,23,2,15138,0)="M_YSOUC7TMNXJ\&X8[.^,K=.,>Z-/#'ZTWL[(K9<L2/3Z0=]Q-U_.>+!0`Q1,"
^XMB(3.9,23,2,15139,0)="""DATA"",396.18,220,3,469,0)"
^XMB(3.9,23,2,15140,0)="MBR7D<5HDUU[:""'9D=:`/CW5M-6P\B!<G!S5[?-XB>XN=LH$XU#L=8[<=O/BA"
^XMB(3.9,23,2,15141,0)="""DATA"",396.18,220,3,470,0)"
^XMB(3.9,23,2,15142,0)="M*)=<#?J10);(9IS.[#:#1H&'#FZ$T9D87$'LN`*JSXMSE,YM9Q!DL*O:,6+I"
^XMB(3.9,23,2,15143,0)="""DATA"",396.18,220,3,471,0)"
^XMB(3.9,23,2,15144,0)="M=-XT%M7`""^`8E>S_-JQ:'[2:Q+(:ZL<*0[3EA(;^P$1?CE3ERAGC0<\5UV""K"
^XMB(3.9,23,2,15145,0)="""DATA"",396.18,220,3,472,0)"
^XMB(3.9,23,2,15146,0)="M3;GBQK*ZXJM8%:5X)E:YO4S@W)H6>7U*Q4YDZ\J3\$'XI[';6[Z@RJO8*N6?"
^XMB(3.9,23,2,15147,0)="""DATA"",396.18,220,3,473,0)"
^XMB(3.9,23,2,15148,0)="MR@!&J?)R-N4>)4RVY^XCW[)[SG_^`5ZZXK^LR@P2TK.L2F^R[J<MLC67COMT"
^XMB(3.9,23,2,15149,0)="""DATA"",396.18,220,3,474,0)"
^XMB(3.9,23,2,15150,0)="ML:F;PJ!#5A#4DG&0V*#8=:.IAC""9.+;XPO9>OWSUT^Y""QDFI(605`AP.J35,"
^XMB(3.9,23,2,15151,0)="""DATA"",396.18,220,3,475,0)"
^XMB(3.9,23,2,15152,0)="M=+V&PUXI$+@560YG<SHO.*N%,&=K6;2?-?8.>M2>02D*/P\E`P""^HLNW*7!T"
^XMB(3.9,23,2,15153,0)="""DATA"",396.18,220,3,476,0)"
^XMB(3.9,23,2,15154,0)="MY@DX&8$2TR[^('YA[+HGL:&M/'!LBE_51NBJB7Q`YKBPM?W`;ORS6DR-5LG="
^XMB(3.9,23,2,15155,0)="""DATA"",396.18,220,3,477,0)"
^XMB(3.9,23,2,15156,0)="MV`'8C&;@FQS:'M<UWYI3""$`DTOF%J\J\""P54W\AEBX<N`[UTNL[N^0EC!W(L"
^XMB(3.9,23,2,15157,0)="""DATA"",396.18,220,3,478,0)"
^XMB(3.9,23,2,15158,0)="M=MX%8NCF<53-0A\_=V.+LVXU$.3H+5`W4BAR)D67$$=2B"",IV)44_6`Y4H(="
^XMB(3.9,23,2,15159,0)="""DATA"",396.18,220,3,479,0)"
^XMB(3.9,23,2,15160,0)="M*2&NE`3[L@<-42)2?53.^4ETJ*P)]:;:*#`@5L92_Z.6Q'.$V*]=<4V""#>-Q"
^XMB(3.9,23,2,15161,0)="""DATA"",396.18,220,3,480,0)"
^XMB(3.9,23,2,15162,0)="ME>*0CFZ)`A/^.3$""G;>7K-<[C0(*IK$$_%V_R>KD9:LVI%9`-U>YWUGN""86<"
^XMB(3.9,23,2,15163,0)="""DATA"",396.18,220,3,481,0)"
^XMB(3.9,23,2,15164,0)="M'&:KR]S7W&/'HZ]'^=@9051&$%_G!-JUE0YSHF9`5W^_^`8VN4_:$Z==CD/#"
^XMB(3.9,23,2,15165,0)="""DATA"",396.18,220,3,482,0)"
^XMB(3.9,23,2,15166,0)="M+N/0M,N[9V(Z.?=OF""SWPI$!+U7XI=ERE:H<`8O:'(&.1>6?5\GLLG3(68SL"
^XMB(3.9,23,2,15167,0)="""DATA"",396.18,220,3,483,0)"
^XMB(3.9,23,2,15168,0)="MX""[IGE&/+"";$L$LH=I?%=ZP""L`0>'0BH.=4QZEG?P#)(.&(9*#(,=\#R@!%G"
^XMB(3.9,23,2,15169,0)="""DATA"",396.18,220,3,484,0)"
^XMB(3.9,23,2,15170,0)="M[5:/DZFRNYS'I-,TE_ANX^Z!JZW!/(0'T,7U,(#TMD&(8;V(F*2;$GV:!=<V"
^XMB(3.9,23,2,15171,0)="""DATA"",396.18,220,3,485,0)"
^XMB(3.9,23,2,15172,0)="M*)9I[D7S^,LK%$N3?&]+O*AO\=Y+;-Z:M4GG/8-O^+58;W%)V6S7)-JGY,9."
^XMB(3.9,23,2,15173,0)="""DATA"",396.18,220,3,486,0)"
^XMB(3.9,23,2,15174,0)="M;MD*13!*/I`?N0I($!L$!/E)Y**BODW)>5F!?N#[,<NX3`BTL=E&\71$'#8M"
^XMB(3.9,23,2,15175,0)="""DATA"",396.18,220,3,487,0)"
^XMB(3.9,23,2,15176,0)="M60JIDC4,?L@!FM[RAE0@KS.65<ON6Q1DFCYL&F>A0\Y""1_N$+M!&[`0&H<.^"
^XMB(3.9,23,2,15177,0)="""DATA"",396.18,220,3,488,0)"
^XMB(3.9,23,2,15178,0)="MT<?TS5(7Q6>ILTD=5*>4#P#NJHC1:]:(T;3(IW`[*P-YMK(F9]ANV#R]SXJR"
^XMB(3.9,23,2,15179,0)="""DATA"",396.18,220,3,489,0)"
^XMB(3.9,23,2,15180,0)="M^YZW!2#]%E.84<)YPDHP<46N?AT7^FS*Q?#!NRT6B^(36/\LK];EQOCVEKIE"
^XMB(3.9,23,2,15181,0)="""DATA"",396.18,220,3,490,0)"
^XMB(3.9,23,2,15182,0)="M4;M+UM?3')`^9XRSM]3>MXTSJCJ5M,ANA=<!28MI6I8/_!<KF25D/K0WO%\Q"
^XMB(3.9,23,2,15183,0)="""DATA"",396.18,220,3,491,0)"
^XMB(3.9,23,2,15184,0)="M)A(BS?NZ+T/MN[C+L;S^>P:C2*TO_\QE""5S%:ITNLSSMOO@'2S^"".H""$TBUG"
^XMB(3.9,23,2,15185,0)="""DATA"",396.18,220,3,492,0)"
^XMB(3.9,23,2,15186,0)="MUMV&V3:%;RO+[];S%]YFM>+'EV].R98]N[C[`\X:^Q_\)U\<9&&SG`L-E#0#"
^XMB(3.9,23,2,15187,0)="""DATA"",396.18,220,3,493,0)"
^XMB(3.9,23,2,15188,0)="MOG/G'3^PJ9`#V^MOTRQ7M[RZY6M1@"",?38_A83T&9R91`""_Z_,@$Z1JL1;57"
^XMB(3.9,23,2,15189,0)="""DATA"",396.18,220,3,494,0)"
^XMB(3.9,23,2,15190,0)="M:M$2LP8+7338XV@H;-%0)A"",'OW4`X31@<+H9]0`',;`)+[>A$Q@2<@0#</$"
^XMB(3.9,23,2,15191,0)="""DATA"",396.18,220,3,495,0)"
^XMB(3.9,23,2,15192,0)="MD))!Z,""4#.D-6_P188O)7$;)'D&+DNB%7U>[M,Q&`""B+U*XE:'FJ&0-$J94="
^XMB(3.9,23,2,15193,0)="""DATA"",396.18,220,3,496,0)"
^XMB(3.9,23,2,15194,0)="MVJA#'.OLB)&!&R0Q<N.EZ,GE[J`<,9KW_A]/8>_W3E#T),LTEY+(,<MNI!O9"
^XMB(3.9,23,2,15195,0)="""DATA"",396.18,220,3,497,0)"
^XMB(3.9,23,2,15196,0)="M.[)G;?)L^%B<6'U_T?.BM""<C*RCA+OVM19W8D&..3#%G$AF3$KX\J-6.3]@_"
^XMB(3.9,23,2,15197,0)="""DATA"",396.18,220,3,498,0)"
^XMB(3.9,23,2,15198,0)="M1L@,4MBM`YL7Y=/@]%""&(U=\ME^RQ4QY4O`=YB&!XALS;OM4?Z_D#_-UM4>:"
^XMB(3.9,23,2,15199,0)="""DATA"",396.18,220,3,499,0)"
^XMB(3.9,23,2,15200,0)="M`XV6/SPL?](U[M$$,#F-`/*/7JTXRYQ$\$OS>)S'K?""1#/,1X_C8?$3^:?AX"
^XMB(3.9,23,2,15201,0)="""DATA"",396.18,220,3,500,0)"
^XMB(3.9,23,2,15202,0)="M_9F5TZQB7QL?R6@^4@=[H$53!!UX'(,3'4>H<*J^-B;2L4P,PWV,^H%<Y!%Q"
^XMB(3.9,23,2,15203,0)="""DATA"",396.18,220,3,501,0)"
^XMB(3.9,23,2,15204,0)="M=!HNOA,I$/4R]&S9']6R!Z,U2;""793]8ER!\&BG\4*;W;.%JV\]"">`PA#,<*"
^XMB(3.9,23,2,15205,0)="""DATA"",396.18,220,3,502,0)"
^XMB(3.9,23,2,15206,0)="M(?'W<DL.-VCQ:83P!\9F7Z%[&8U6)LDP'[7*$'PP%\/3</&?Z7I^5B2G5""3Q"
^XMB(3.9,23,2,15207,0)="""DATA"",396.18,220,3,503,0)"
^XMB(3.9,23,2,15208,0)="M:`&,]\J3$'*@!)[(I7H-W9]G$3RE"""":C13#:+U5RJ`PB=""*'JL@6;'T6PI/F"
^XMB(3.9,23,2,15209,0)="""DATA"",396.18,220,3,504,0)"
^XMB(3.9,23,2,15210,0)="MZ_S14ACNE^@Y6!.2TT@A7U&Q/`OA2840N=WO(]]ZP:]?)P6^J5#45*(46.[W"
^XMB(3.9,23,2,15211,0)="""DATA"",396.18,220,3,505,0)"
^XMB(3.9,23,2,15212,0)="MD_/]_NC[?30Z<4P<$L>ARMW0<*$>4A-OL8&W$26/J4SZ3]U_,ZVPU!(D^<ZU"
^XMB(3.9,23,2,15213,0)="""DATA"",396.18,220,3,506,0)"
^XMB(3.9,23,2,15214,0)="M$G`F+`/AE-:5T->Z8<-8[Z&)M?E)*$YH</)&Z*]@J(N1&99A5FIGLCY1C(0Z"
^XMB(3.9,23,2,15215,0)="""DATA"",396.18,220,3,507,0)"
^XMB(3.9,23,2,15216,0)="M,RC6F$&H-""/IFV;&P##0&M^#J""`N+4>""1)GR%F.'>=`X,+28`>R9)W?+3NQ#"
^XMB(3.9,23,2,15217,0)="""DATA"",396.18,220,3,508,0)"
^XMB(3.9,23,2,15218,0)="M`QTP2(8GV,7VX74:X`6)721-GUV'0AKNKMB&A]0AER%URDRX?APN;$*?KKED"
^XMB(3.9,23,2,15219,0)="""DATA"",396.18,220,3,509,0)"
^XMB(3.9,23,2,15220,0)="M1)^N-;&$/AV<T:<U=""YBQ6XU@T\'/>#3^MR`(6RNW[-UNA`M&4\'G0M;T)V["
^XMB(3.9,23,2,15221,0)="""DATA"",396.18,220,3,510,0)"
^XMB(3.9,23,2,15222,0)="MX%8*-)>.:F8`46;+%;C@FZW#W4,#I0XT1`KX8@N$WT/#V\VB&O[VR.';VZ[F"
^XMB(3.9,23,2,15223,0)="""DATA"",396.18,220,3,511,0)"
^XMB(3.9,23,2,15224,0)="M-@1T0/U]QZI5QK<`BN+?-<%('R6Q`R488Q7C<9B2/\1K@S#59OAQA((N`>HP"
^XMB(3.9,23,2,15225,0)="""DATA"",396.18,220,3,512,0)"
^XMB(3.9,23,2,15226,0)="M-Q=.%)M\5@T2@%TV@""H(L9'S!GC\J.9W[&M!+NO;*<NQ[0)YJ9ATB*APH*&&"
^XMB(3.9,23,2,15227,0)="""DATA"",396.18,220,3,513,0)"
^XMB(3.9,23,2,15228,0)="M0=9"";6ZW[.>BJKP+?I2A;T-,NJZ?0Y<'8!^M..DS@)^X22NX5F27WD7*+4HJ"
^XMB(3.9,23,2,15229,0)="""DATA"",396.18,220,3,514,0)"
^XMB(3.9,23,2,15230,0)="MM91.[ECS9UDNBG^W4V>\5<FFXB;(*W)@@P""#KZ!/X/)T`UL>!?IK'/9X:%:!"
^XMB(3.9,23,2,15231,0)="""DATA"",396.18,220,3,515,0)"
^XMB(3.9,23,2,15232,0)="M;7GX$1GZ8\IY8&#H'3P_,_18#`U<K$J@^""01&E9E_UP4Q:R&O72PK:$9U![1"
^XMB(3.9,23,2,15233,0)="""DATA"",396.18,220,3,516,0)"
^XMB(3.9,23,2,15234,0)="ML'<<H</PAN\'O]K)L"":*2!.'+?AI9\Z^<C4>6[@3/""9WM@BAO@7AV$^Z.);A"
^XMB(3.9,23,2,15235,0)="""DATA"",396.18,220,3,517,0)"
^XMB(3.9,23,2,15236,0)="MT7`LT6'PFQ""ITF$D\4!5DM'0$#84H7;(MMOD`""!!3-,;H""6.1M/""WX(F8Y'U"
^XMB(3.9,23,2,15237,0)="""DATA"",396.18,220,3,518,0)"
^XMB(3.9,23,2,15238,0)="M$1ZF!:G`GB[$Q#0<!:TOB`E,Q(1=+PXE`UZDB4EX,F8X;C<[2_V!\1D^Z8XK"
^XMB(3.9,23,2,15239,0)="""DATA"",396.18,220,3,519,0)"
^XMB(3.9,23,2,15240,0)="M""=7=4BDD""H4A]M$1YV>H4S'^0HK./J""C<SDS^5EN!9Z`YS$$X*[6.O1/9Z2V"
^XMB(3.9,23,2,15241,0)="""DATA"",396.18,220,3,520,0)"
^XMB(3.9,23,2,15242,0)="MP8Q=1YBH<]40(0[21@^9RY@,[=3?/:D(?""+_C'UYW&IGC""F,3RFXU7>87!G8"
^XMB(3.9,23,2,15243,0)="""DATA"",396.18,220,3,521,0)"
^XMB(3.9,23,2,15244,0)="MAU;&1]@<<LCF--'TZ7='Z*?0I)^2N&MS%65)_6%=2>AD[&0,@=.MT=)""%QQ"""
^XMB(3.9,23,2,15245,0)="""DATA"",396.18,220,3,522,0)"
^XMB(3.9,23,2,15246,0)="M#)F,G8(A<!P'%#>*XY&*.R+(0$K@K+?1D-[NNK*Q(LX-O5:US>E+QJEM1=)M"
^XMB(3.9,23,2,15247,0)="""DATA"",396.18,220,3,523,0)"
^XMB(3.9,23,2,15248,0)="M>GMPK&263^<[`9XN#=.+0H=!A\94,XIVJ>;:V6^]Q^V4AY9?M<-W3C5W-!2U"
^XMB(3.9,23,2,15249,0)="""DATA"",396.18,220,3,524,0)"
^XMB(3.9,23,2,15250,0)="M^>R))4L6=MP'=1AJ&(],-K_1\2J^_FQS8DY;D:Y!4GQFJFF[IK_9D.38`C;<"
^XMB(3.9,23,2,15251,0)="""DATA"",396.18,220,3,525,0)"
^XMB(3.9,23,2,15252,0)="MB+#"">_;/3;:8-;=;SR""K(5HPF)=ZBZP2Z8D&$8SO5IHMY20'FRGPS[.-`-P0"
^XMB(3.9,23,2,15253,0)="""DATA"",396.18,220,3,526,0)"
^XMB(3.9,23,2,15254,0)="MS>R?!6H&?/U%=?G<^P""`:TU+N_CH3S(^\&2Q@#_+O1O^U?=IM@""CV>1.GKTN"
^XMB(3.9,23,2,15255,0)="""DATA"",396.18,220,3,527,0)"
^XMB(3.9,23,2,15256,0)="MIALQUJXE]%.6SXI/5U[*/S0M.9WR9]UV$6X51/=G7B7V`#8&""'D^V2=_@7SD"
^XMB(3.9,23,2,15257,0)="""DATA"",396.18,220,3,528,0)"
^XMB(3.9,23,2,15258,0)="MP""IU,!I%9#`T55EE6#UG$X`-E3#8,/5*=B?0B>YVK""KYG][+6P+P5]MI'\`9"
^XMB(3.9,23,2,15259,0)="""DATA"",396.18,220,3,529,0)"
^XMB(3.9,23,2,15260,0)="M;_VP8OLN'#LL7+L/(`Y9:&WE[]A]QCYYS08(:1*K%X\!.>8>#B)T?T\W93I]"
^XMB(3.9,23,2,15261,0)="""DATA"",396.18,220,3,530,0)"
^XMB(3.9,23,2,15262,0)="M$'@MFQMYY<ML#?#%L%//)X-K(Y9\0]_Y<[CI0`Y?31V^6I4GAZ_&#E\=.'RU"
^XMB(3.9,23,2,15263,0)="""DATA"",396.18,220,3,531,0)"
^XMB(3.9,23,2,15264,0)="MQE&'[R;/![,LV#*'!:.N/-'C30OQCS)'""ID&2=7PW5NG`LM.1:@X%02?[Z]U"
^XMB(3.9,23,2,15265,0)="""DATA"",396.18,220,3,532,0)"
^XMB(3.9,23,2,15266,0)="MIR*PRFA@3I:V""7ZC5T'(V""OL7Q@@;R^\WU99#J]?_%H`#'?A70M[QLK+IS-W"
^XMB(3.9,23,2,15267,0)="""DATA"",396.18,220,3,533,0)"
^XMB(3.9,23,2,15268,0)="M*C`G5V/<.Y66)FAP[%2K?(75YX2EWI)'""&#<`7V]OCZYA7E4W!Y-LY*K]VJ="
^XMB(3.9,23,2,15269,0)="""DATA"",396.18,220,3,534,0)"
^XMB(3.9,23,2,15270,0)="MYE/6@M]4*S;E/H6LR*?-.`9P)F!*;'ZW2>_$\-MGTW13U>,G8`""""0#3ESY^U"
^XMB(3.9,23,2,15271,0)="""DATA"",396.18,220,3,535,0)"
^XMB(3.9,23,2,15272,0)="MW[HL9IW/$MX*#""`HMGS>?G0E+G5F`""Z2WMV5W!.1YQ*,-)1!XK""_+8[>;N:W"
^XMB(3.9,23,2,15273,0)="""DATA"",396.18,220,3,536,0)"
^XMB(3.9,23,2,15274,0)="M@V)-+[W_J?_Q_>TL/MTMOWF+^#=H!$+?A5JLGC#?H=3A1J9V67""6++*/,$WB"
^XMB(3.9,23,2,15275,0)="""DATA"",396.18,220,3,537,0)"
^XMB(3.9,23,2,15276,0)="M2)0C%\K5L!R'#M?B3*8\+]96BL<1C%T(5N\5:!""[>U`SF?`%`-5MMSRMUW$A"
^XMB(3.9,23,2,15277,0)="""DATA"",396.18,220,3,538,0)"
^XMB(3.9,23,2,15278,0)="MGJWG:>X%_O>!+US'+1CR)5^E?%B.L6+BLF*J!3:A^XJG\HI3+F),#/M6%^Y="
^XMB(3.9,23,2,15279,0)="""DATA"",396.18,220,3,539,0)"
^XMB(3.9,23,2,15280,0)="M&->[J93`YL#U4A?5ZFNC?$=P^+9=[QM.?PYKX[06W-C7X-9956V8@%HL-O5+"
^XMB(3.9,23,2,15281,0)="""DATA"",396.18,220,3,540,0)"
^XMB(3.9,23,2,15282,0)="M]0P8KGF7`'$EKQ>T[6:QPYSL75K@L+18,1HD&1'WO`76,<!=Y*;WH=B4`A5S"
^XMB(3.9,23,2,15283,0)="""DATA"",396.18,220,3,541,0)"
^XMB(3.9,23,2,15284,0)="ML0&TQLK;5/7E.6M,Q0[""<L$#H45G^L6$+WQ:W.79GYREJWG)/[=Z,;S$T&&)"
^XMB(3.9,23,2,15285,0)="""DATA"",396.18,220,3,542,0)"
^XMB(3.9,23,2,15286,0)="MFEVD@;M=O,X$E!5$8<T*EZL%@U'N6X,$.)[-E*+.Z!8XSQU;QJ4\N^U,WQ&0"
^XMB(3.9,23,2,15287,0)="""DATA"",396.18,220,3,543,0)"
^XMB(3.9,23,2,15288,0)="MFLT'""FL*6PD1U%6=`IY!S)2)TY&SKN""#Z#<F4!J!]'R_X9#4,B46A]W)P6KQ"
^XMB(3.9,23,2,15289,0)="""DATA"",396.18,220,3,544,0)"
^XMB(3.9,23,2,15290,0)="MVI?T[OEGW;`9^'TW1?$1;$OWB>3N2]6J'6<_JML3)`AO?^OI#KN-[9MV?N,Z"
^XMB(3.9,23,2,15291,0)="""DATA"",396.18,220,3,545,0)"
^XMB(3.9,23,2,15292,0)="M_\`^K^4755^\>6[W'9MW=#URV?<.)2[""DM]RYZH[D+1;9:97'605E/)-C,7-"
^XMB(3.9,23,2,15293,0)="""DATA"",396.18,220,3,546,0)"
^XMB(3.9,23,2,15294,0)="MRJZV8Q9]?>9B^X4*%J0V-R6B5""^JW\UA<!B^:!N_2'=S[AP&,'K>RT5V!WN0"
^XMB(3.9,23,2,15295,0)="""DATA"",396.18,220,3,547,0)"
^XMB(3.9,23,2,15296,0)="M+KA\\7/6/K>,9M1#-[@7_""I'#9I;6Q3NBUN)[7UD\[/6#:1#AL34!!V(C&""N"
^XMB(3.9,23,2,15297,0)="""DATA"",396.18,220,3,548,0)"
^XMB(3.9,23,2,15298,0)="MD;'K;RN3FJUX(OB-)F2OH3[/GK8L(]+IKM>@\W`W;""*1'VNW2-V^`^Q'U._T"
^XMB(3.9,23,2,15299,0)="""DATA"",396.18,220,3,549,0)"
^XMB(3.9,23,2,15300,0)="M2?5U:?74`_0U:G7-!.1&TRDW=,5JD5;+?W2^7;N,&B<20T+1*Q:.@M$C&@,]"
^XMB(3.9,23,2,15301,0)="""DATA"",396.18,220,3,550,0)"
^XMB(3.9,23,2,15302,0)="M:8:N-*TOK5^^S""`MG2;`H3;`?<5-;GB7I`V3D=*&3RIMLKXIT\TR/8O;ON*&"
^XMB(3.9,23,2,15303,0)="""DATA"",396.18,220,3,551,0)"
^XMB(3.9,23,2,15304,0)="M]Q$WM+=V""XWB)@\A<A(W]*7$;5Y4*^B_R?X4<=Q9[O:5.]]-[K;7%UH#HEPQ"
^XMB(3.9,23,2,15305,0)="""DATA"",396.18,220,3,552,0)"
^XMB(3.9,23,2,15306,0)="MD^AR)B,H2+<#D5',<&#A^SOV7;%B^>2K9*8S)SK?Z]!8Z<8R,I9EX9EESBPC"
^XMB(3.9,23,2,15307,0)="""DATA"",396.18,220,3,553,0)"
^XMB(3.9,23,2,15308,0)="MC\(R.I9EB""9GGKGR+#HRS[KV-][;(D?4Q,,X&F&1PY`D)S7([W[PTIO%V0(?"
^XMB(3.9,23,2,15309,0)="""DATA"",396.18,220,3,554,0)"
^XMB(3.9,23,2,15310,0)="M9('C?>0LVE?.$FKV_((1<H9\BL/3AK5%?L?XA]PS;\Z@`NHVS1:;DIVE;E^I"
^XMB(3.9,23,2,15311,0)="""DATA"",396.18,220,3,555,0)"
^XMB(3.9,23,2,15312,0)="MHV,LDNAM&6>2_+,;X<R+X#""39,<H:I*/J""\1B9$!.-:0B@RP,14IL]2\)B-"""
^XMB(3.9,23,2,15313,0)="""DATA"",396.18,220,3,556,0)"
^XMB(3.9,23,2,15314,0)="M0Z`/59%JN`T""%6.CX@K,(6M7]4D2]9LV+W6Z39G-Z^A21DSK.QGU,I*1RS`Z"
^XMB(3.9,23,2,15315,0)="""DATA"",396.18,220,3,557,0)"
^XMB(3.9,23,2,15316,0)="M:G$X;@VO-J48XE@]+%?KHCN]=I#DF/:0C+MGH(=FA$82K4ZLK6EW)1U@B##1"
^XMB(3.9,23,2,15317,0)="""DATA"",396.18,220,3,558,0)"
^XMB(3.9,23,2,15318,0)="M@-/Z12:)3)0'/C)2'L1&6X<B')](_V""K_C$CIO5JGU[4-`4W;4A7#6*G[9/*"
^XMB(3.9,23,2,15319,0)="""DATA"",396.18,220,3,559,0)"
^XMB(3.9,23,2,15320,0)="M^NV=-$JX_<61M]B<+XW-^5)$S;R-<1)T]G-H4F?/,,QA\ZTA%7HPVH>[-=Y*"
^XMB(3.9,23,2,15321,0)="""DATA"",396.18,220,3,560,0)"
^XMB(3.9,23,2,15322,0)="M'4T(XPP-<Q;%%,,%)+[TP97U"",A9.ITS_:.R7%1#5""NV6&A_]CK[\T]]VJLG"
^XMB(3.9,23,2,15323,0)="""DATA"",396.18,220,3,561,0)"
^XMB(3.9,23,2,15324,0)="MQKZ4ZWKNXZUW`Y7R<^TMGV""$@3*J$D;.YI\SILQP-(U5[!^LV,@EN)=;INFR"
^XMB(3.9,23,2,15325,0)="""DATA"",396.18,220,3,562,0)"
^XMB(3.9,23,2,15326,0)="MV?.:.<]5<^I#MMH=S3]$@7U']KC'""2*I?^R@FL)V-674KV99QDDX5I;#LYX:"
^XMB(3.9,23,2,15327,0)="""DATA"",396.18,220,3,563,0)"
^XMB(3.9,23,2,15328,0)="MHZ?0GMY4,.I:]SOD>JLKCSXW2Z[1.0]\^->;YT.1+G5&_US)0NR\O,3JH$]Y"
^XMB(3.9,23,2,15329,0)="""DATA"",396.18,220,3,564,0)"
^XMB(3.9,23,2,15330,0)="MV%=Y=>_""%Y>_Q_73_<?VT\.1?GKDN[KIH=\_D\=2&];KWA*3S^6;Q""J)1OJ*"
^XMB(3.9,23,2,15331,0)="""DATA"",396.18,220,3,565,0)"
^XMB(3.9,23,2,15332,0)="M4-?%;4ZV7""W2;2?,BZZAMB'9#OJ_-.Q9$XG""KVQ-W210$#KEA0QK1&8GWZP."
^XMB(3.9,23,2,15333,0)="""DATA"",396.18,220,3,566,0)"
^XMB(3.9,23,2,15334,0)="M""+6XRA$Y:5KH3;6=8)IR%VK*ENE'5CJEA(Z0:1E_AR9ZJDFGIWKX0.%1A0$8"
^XMB(3.9,23,2,15335,0)="""DATA"",396.18,220,3,567,0)"
^XMB(3.9,23,2,15336,0)="MV1A#W43-P4`.3>URD<`6NFI8!I,Q&7!8J?^%1##W7KYY]?H+B!\>(7[4+GY&"
^XMB(3.9,23,2,15337,0)="""DATA"",396.18,220,3,568,0)"
^XMB(3.9,23,2,15338,0)="MW7<L\4-[B!_9TXI&(ZVHR4.S6-&X?SRAQ8I&?58TPJX6AQ!+]M0BFVH4""$76"
^XMB(3.9,23,2,15339,0)="""DATA"",396.18,220,3,569,0)"
^XMB(3.9,23,2,15340,0)="MFQ7,^\JYY$$)?.FE;3O8E<=/BK=,\P>/K;*JF+'*^\3:&=$\0-U53C?EYF)P"
^XMB(3.9,23,2,15341,0)="""DATA"",396.18,220,3,570,0)"
^XMB(3.9,23,2,15342,0)="M-S0>`-H;]%>LZS^9;5M8Z\X""$=N5A<BS%7=ENH2R[)^*Q5K_1+Z=OQ1YMB[*"
^XMB(3.9,23,2,15343,0)="""DATA"",396.18,220,3,571,0)"
^XMB(3.9,23,2,15344,0)="MKFFT3&X>91H#%\5DNIDS)QY#BVD,+3=SP4G5$O2,[7CK9=6+8^BE5P7D$3;%"
^XMB(3.9,23,2,15345,0)="""DATA"",396.18,220,3,572,0)"
^XMB(3.9,23,2,15346,0)="M1E-/;Z!!6S0?Y^M#[60#4X,-R-!#)X<DHTZ.35^%W7O4GJ2/K8!C:""M]=0>1"
^XMB(3.9,23,2,15347,0)="""DATA"",396.18,220,3,573,0)"
^XMB(3.9,23,2,15348,0)="M^@""K#XCZ@*H/@A;S1K4>SU\^E]DR2I_&H^)=BDWQKF\:@""Z_54:'[4`P:+`+"
^XMB(3.9,23,2,15349,0)="""DATA"",396.18,220,3,574,0)"
^XMB(3.9,23,2,15350,0)="MH%$^I\M)_^1F2_*[S_FGAK),X]E/QGG^Z/FH_'PTCL0X.`*)>!R)R3@2$?:/"
^XMB(3.9,23,2,15351,0)="""DATA"",396.18,220,3,575,0)"
^XMB(3.9,23,2,15352,0)="M0""-QI7%;JT;'9D10,""HE$MD\0AVJY:E>7/J/4O\D1JZ.XAP-C\*Y#CQ,=_C!"
^XMB(3.9,23,2,15353,0)="""DATA"",396.18,220,3,576,0)"
^XMB(3.9,23,2,15354,0)="MN>1P1,EAV,N_6.=?%!V%?RIT3/7$\Y'X4=B7C-:;?GP4]FWQ;YKS]WZS7*;E"
^XMB(3.9,23,2,15355,0)="""DATA"",396.18,220,3,577,0)"
^XMB(3.9,23,2,15356,0)="MPQ/G(3E23EF>0G)88^/;^4,E4$&N=UZ68WLC.J""]T=>:&_T#6AO/G8M[=2[6"
^XMB(3.9,23,2,15357,0)="""DATA"",396.18,220,3,578,0)"
^XMB(3.9,23,2,15358,0)="M12T&#U3/'#=G/S0D3Z@I>2([=N8DQ42(.Y>\=+5B:0D0*=Y%W1A?W'KYA@=3"
^XMB(3.9,23,2,15359,0)="""DATA"",396.18,220,3,579,0)"
^XMB(3.9,23,2,15360,0)="MXJ^@XWL&P$'%JF[SOBEF#][-)E,2""I/%[,I;%15,';GB?W%;0(B:L>K*XZJ&"
^XMB(3.9,23,2,15361,0)="""DATA"",396.18,220,3,580,0)"
^XMB(3.9,23,2,15362,0)="M1Q13MD6D7P-^.G^ZGE[N`F5[9%2G==QW""5/#10WJ3.SKWR5#V=*J.::W60YP"
^XMB(3.9,23,2,15363,0)="""DATA"",396.18,220,3,581,0)"
^XMB(3.9,23,2,15364,0)="M:)4+X>)^.K+.']2XBPW!7$1,(^I0YTIS%TEW*I+/8P;-[M=P#(Y[<YHN&<U("
^XMB(3.9,23,2,15365,0)="""DATA"",396.18,220,3,582,0)"
^XMB(3.9,23,2,15366,0)="M;FC=L4TNAG*Z=%8ZT)P:;*ESPV-LJ4..S(F:N#-9^O'3:M>2VI@>4I-\W!L`"
^XMB(3.9,23,2,15367,0)="""DATA"",396.18,220,3,583,0)"
^XMB(3.9,23,2,15368,0)="M,L:_BWO].].=KJ5DW%Q&UVWYDO9.GY?UZ/&D(JM.&6#L^\[2FEB:P0-+6O'$"
^XMB(3.9,23,2,15369,0)="""DATA"",396.18,220,3,584,0)"
^XMB(3.9,23,2,15370,0)="MS>!O^7:MYL*B7L^8O3N7'EK%AOZF)2^U)^1O5O$=5XO>7^D2/IX`-[WUUSNP"
^XMB(3.9,23,2,15371,0)="""DATA"",396.18,220,3,585,0)"
^XMB(3.9,23,2,15372,0)="MU\E)`VO4F](BQK:BXRS][6:Q+'(>C;DL'C]6F8R8GDR=O1<LG]H![X4:O!=,"
^XMB(3.9,23,2,15373,0)="""DATA"",396.18,220,3,586,0)"
^XMB(3.9,23,2,15374,0)="M,(G/WHO->\&/&(-^`'3""<;$G_LO$GF=8G4<,3A/?&G9%J@(P!5UR^G$HZ'HO"
^XMB(3.9,23,2,15375,0)="""DATA"",396.18,220,3,587,0)"
^XMB(3.9,23,2,15376,0)="MPD)O#27:-3(>8*9>?WCO&B(FV)U8N;9@-]0Z-K;<#`;2=;@H``_3S7I>E`(2"
^XMB(3.9,23,2,15377,0)="""DATA"",396.18,220,3,588,0)"
^XMB(3.9,23,2,15378,0)="MCGV>,O'V2D""!,QX=PPT^7Q&@)O)X&H)D<8^K!M)Y<^_&RFE6,;$E7(""O`'KP"
^XMB(3.9,23,2,15379,0)="""DATA"",396.18,220,3,589,0)"
^XMB(3.9,23,2,15380,0)="MTSR;SMM>%!%0/U2KG*57W"",6->Q7GOIY_(1P(\*_KBD]%U!MU4,^+59LN]=7"
^XMB(3.9,23,2,15381,0)="""DATA"",396.18,220,3,590,0)"
^XMB(3.9,23,2,15382,0)="M7E8)0+8,)M""UT.<""VDC]/!F`'9!.Y=MN2^W`$.NHE75$&^2>!*;PWA\A:=S7"
^XMB(3.9,23,2,15383,0)="""DATA"",396.18,220,3,591,0)"
^XMB(3.9,23,2,15384,0)="M2S/897-QQE/`;QK:\&#$AB-D.-O)B'S*2[[)A;S7-XMB^O%;V.;0NLTXB-T$"
^XMB(3.9,23,2,15385,0)="""DATA"",396.18,220,3,592,0)"
^XMB(3.9,23,2,15386,0)="MF[CO\YMMM2O,-V@:[=I2S>I;V.]HS'X;Y1HE(S;\`N`Q`>O9K$A`S;[\O99V"
^XMB(3.9,23,2,15387,0)="""DATA"",396.18,220,3,593,0)"
^XMB(3.9,23,2,15388,0)="M[_(;V']$J+L-[L1%K1&6&W&TH2,]1OB:LX!;1_Z?P/?F4;ADI2J1Q5X+%.X+"
^XMB(3.9,23,2,15389,0)="""DATA"",396.18,220,3,594,0)"
^XMB(3.9,23,2,15390,0)="M]OSN^95F734CQ_?\Y]\]]K_;<1ZWW(T4/\#[+P%XW*MQ<;<F<Y//A!/`O$]%"
^XMB(3.9,23,2,15391,0)="""DATA"",396.18,220,3,595,0)"
^XMB(3.9,23,2,15392,0)="M^;&:JY_'.*?O-ME,C'6MA""_PX""W3!X`0WP*AUL4WTR*?;:;P2UJ#F,^R:EIJ"
^XMB(3.9,23,2,15393,0)="""DATA"",396.18,220,3,596,0)"
^XMB(3.9,23,2,15394,0)="M1EC0LH4>9%L`^:MZ`^1'_..Y>WO/JKI@$%ZJ9Z""HGU?/1(&D?6W79P6K48UO"
^XMB(3.9,23,2,15395,0)="""DATA"",396.18,220,3,597,0)"
^XMB(3.9,23,2,15396,0)="M-XO%`R?Q5C2-""<A7!J,QUBWRX3VX,;K3,?D7DDRJ6A$5]VE5GPZ^FBTV\O/#"
^XMB(3.9,23,2,15397,0)="""DATA"",396.18,220,3,598,0)"
^XMB(3.9,23,2,15398,0)="MW8;8?BN@E4JU0+""=T^Z'(\P8]Z-$2>7WWH=YNEADF^4+OE)78A.[R8T21VJQ"
^XMB(3.9,23,2,15399,0)="""DATA"",396.18,220,3,599,0)"
^XMB(3.9,23,2,15400,0)="M.[77KW[TOH?""3U9^[UV_^NFW%\ZD(M\?L;%$/IVM>T#&7K?4IU/$6&SF?B]$"
^XMB(3.9,23,2,15401,0)="""DATA"",396.18,220,3,600,0)"
^XMB(3.9,23,2,15402,0)="M[""96_KIF\J7ABJ7%!G>A]0]1=IM6]2%3E8/L""5O*K@?7TV/""B""8F*`I-8A*/"
^XMB(3.9,23,2,15403,0)="""DATA"",396.18,220,3,601,0)"
^XMB(3.9,23,2,15404,0)="M7%!6KZ?.K%<\?/F'^_[;SR`EQ(W>>,0A?%MF4*C@+1F/M&8B`*JCJ&T\`E-Z"
^XMB(3.9,23,2,15405,0)="""DATA"",396.18,220,3,602,0)"
^XMB(3.9,23,2,15406,0)="M^`*.P8EDS,HP-@;`(\(2I6>_7N!!Z]A6""/F&1&:SD%@[SK'A-&-L.B(D-J[C"
^XMB(3.9,23,2,15407,0)="""DATA"",396.18,220,3,603,0)"
^XMB(3.9,23,2,15408,0)="MU9QQ=P>\HNM=""+PNO&V`#]FF)X>0*WV?4PZV/^U*`FO:53=KL2&50;`I.C.E"
^XMB(3.9,23,2,15409,0)="""DATA"",396.18,220,3,604,0)"
^XMB(3.9,23,2,15410,0)="M7<,8G[.NUJQKY,BOT,8ODV4_C&$H\<\<LW,L=N18Y'[""2(`/9=BY+,/*L&28"
^XMB(3.9,23,2,15411,0)="""DATA"",396.18,220,3,605,0)"
^XMB(3.9,23,2,15412,0)="M8<I,6MISL6R--4U^!T8F)Y682VNH?.CZ[I)[;Y+-]\BR.Y96340J3""@/06</"
^XMB(3.9,23,2,15413,0)="""DATA"",396.18,220,3,606,0)"
^XMB(3.9,23,2,15414,0)="MU>TFKQW-%2LA1&,S^7;96/70>[.L53PH]0Z]%T_6%B)$C3U$=F]<]BI:IOAF"
^XMB(3.9,23,2,15415,0)="""DATA"",396.18,220,3,607,0)"
^XMB(3.9,23,2,15416,0)="M#'XS4Y)A]ZBGH<A<U-&_<W_WB/^OW;TC2'V`U0=$?4#5!X'Z(%0?1.J#6'V0"
^XMB(3.9,23,2,15417,0)="""DATA"",396.18,220,3,608,0)"
^XMB(3.9,23,2,15418,0)="M*`^H2BE5*:4JI52EE*J44I52JE)*54JI2BE5*0U42O\=GER.D+V@3_9,D5-B"
^XMB(3.9,23,2,15419,0)="""DATA"",396.18,220,3,609,0)"
^XMB(3.9,23,2,15420,0)="MR#ZA*!@A?')'F(N,45<9^Q6R,(ONAKSG3Q;--5-N>,//:7FGO#YF_\*^_3-%"
^XMB(3.9,23,2,15421,0)="""DATA"",396.18,220,3,610,0)"
^XMB(3.9,23,2,15422,0)="M<J;]ZV0M!O<O/-;A#5PW]K^^*]-NC?OD>CJ7FF65U]1>VHE^[^>RR<+CP#:/"
^XMB(3.9,23,2,15423,0)="""DATA"",396.18,220,3,611,0)"
^XMB(3.9,23,2,15424,0)="MPQ1,FB`!S9O;J;""0-C=RV=RS+V*>0N'JBX@4P8`O0F*M5H90DS<2FV+LSKUF"
^XMB(3.9,23,2,15425,0)="""DATA"",396.18,220,3,612,0)"
^XMB(3.9,23,2,15426,0)="MPUX2$GP:;V3;DMY<R$-V)85QVB)7E\'DM-ENGI>8_ERR55&N!]V3OWC8?Y#W"
^XMB(3.9,23,2,15427,0)="""DATA"",396.18,220,3,613,0)"
^XMB(3.9,23,2,15428,0)="MY)HS\!U+R!.;YM#=7(/:B'R33>OD/*5()>HRKD%LFV?KL]JPJ0W_$6NS7F?I"
^XMB(3.9,23,2,15429,0)="""DATA"",396.18,220,3,614,0)"
^XMB(3.9,23,2,15430,0)="M75Y4V<CZ+'+N#7H""Y5?$WO6""*=6MB@E9Q3W_S+T_:/#I@%><]J2?[J*:$/NM"
^XMB(3.9,23,2,15431,0)="""DATA"",396.18,220,3,615,0)"
^XMB(3.9,23,2,15432,0)="MD5XG8&PH,JI5:\61Z*ZL^Y^V!_I);/,>-[>*!X6&/2A,L4NI#(Z-_K')T*'8"
^XMB(3.9,23,2,15433,0)="""DATA"",396.18,220,3,616,0)"
^XMB(3.9,23,2,15434,0)="MIZ=+YX@[_""W7X7K_-H,,#I3X7?_'CPT\SPZ,YV2I'>KF?U@O(PPZB!IRVS1"""
^XMB(3.9,23,2,15435,0)="""DATA"",396.18,220,3,617,0)"
^XMB(3.9,23,2,15436,0)="MK@X(=XS/J5*KGT'<^&6]C#!HMB`T.8RFHGULS&USAITO(ZP,""]Q;#I.^ED/]"
^XMB(3.9,23,2,15437,0)="""DATA"",396.18,220,3,618,0)"
^XMB(3.9,23,2,15438,0)="M3B+V39>T)K[)TXJ<1GK6EY:]J!*A*YP@1I89=]@&*J&XNT\5B.#1P6TQP!2C"
^XMB(3.9,23,2,15439,0)="""DATA"",396.18,220,3,619,0)"
^XMB(3.9,23,2,15440,0)="M<4)E3#H-""M57[+LX05EM87*:_?P""A^)ZN5H4#^"";3TXM3LK5V[""OAK3J<1-"""
^XMB(3.9,23,2,15441,0)="""DATA"",396.18,220,3,620,0)"
^XMB(3.9,23,2,15442,0)="M&3;YSIV6Z:8K#!$_.9FGEGJ_L)EH\_]ME>7PPKNF,O-D3EE_,D'\_/]02P,$"
^XMB(3.9,23,2,15443,0)="""DATA"",396.18,220,3,621,0)"
^XMB(3.9,23,2,15444,0)="M%``""``@`(X`>-4K`4+,H%P``-+@``!8```!!<G)H>71H;6EA7S$Q,RYP;FPN"
^XMB(3.9,23,2,15445,0)="""DATA"",396.18,220,3,622,0)"
^XMB(3.9,23,2,15446,0)="M8V1E[1UK<^.V\7MF\A\P^G)-?6>+#[TZ43HZB3YS:ELJ*2>]3QE:HL^<2*1*"
^XMB(3.9,23,2,15447,0)="""DATA"",396.18,220,3,623,0)"
^XMB(3.9,23,2,15448,0)="M4N?SOR_`ETCBM9!U=VUJ)YE(XF)WL5@L%KO`\N(""+6ZG+G)7<;!+?_S!?D""7"
^XMB(3.9,23,2,15449,0)="""DATA"",396.18,220,3,624,0)"
^XMB(3.9,23,2,15450,0)="M09RDSCX<:S_^@&;^0Q#ZM_NM'P<K-'&<JX_+J]]O_/5\\;L=KC;[M;_&8`BY"
^XMB(3.9,23,2,15451,0)="""DATA"",396.18,220,3,625,0)"
^XMB(3.9,23,2,15452,0)="M?LIYC,:H6V%RTS@(/[4@'?_?>S])N9BJYQA5^62Z^.W&\=9!]""&.]COSW/4W"
^XMB(3.9,23,2,15453,0)="""DATA"",396.18,220,3,626,0)"
^XMB(3.9,23,2,15454,0)="M_@J#V*F_Q6CJ2!9>Z&_TKJ[K_?/WA'P:/<11F&)LE]XF\2OFDB9S=Z&_W6VB"
^XMB(3.9,23,2,15455,0)="""DATA"",396.18,220,3,627,0)"
^XMB(3.9,23,2,15456,0)="MYXPO)H0E>>[X:1#7'K=ZOXBC^XV_?5O]X.J3V?7AJZ/5/NNUS\;;JD7JQ4F["
^XMB(3.9,23,2,15457,0)="""DATA"",396.18,220,3,628,0)"
^XMB(3.9,23,2,15458,0)="MOSE:W+U.![6>91283QR-_;/._ME@HR?L5$^8,KF*DEV0>INWU""^_N_OMUHN?"
^XMB(3.9,23,2,15459,0)="""DATA"",396.18,220,3,629,0)"
^XMB(3.9,23,2,15460,0)="M:QT=U(5A5KV>;/PX;9$NL3#Y:I-@]VG`$8S)_#UC`M;7WZ>;*/%K?>G51[/7"
^XMB(3.9,23,2,15461,0)="""DATA"",396.18,220,3,630,0)"
^XMB(3.9,23,2,15462,0)="M.WQI`<YW01A$(:\W&32;Z1YGW'H]YN]\3`4+XH[.`N]3&""5!<F!]]N7PN:'5"
^XMB(3.9,23,2,15463,0)="""DATA"",396.18,220,3,631,0)"
^XMB(3.9,23,2,15464,0)="M-WZ2>)]JG;0^!VL_7/DMPA5.)ENS+^Q!X6AW093YK*3/U^AQYZ_BOPXZ0]-'"
^XMB(3.9,23,2,15465,0)="""DATA"",396.18,220,3,632,0)"
^XMB(3.9,23,2,15466,0)="M+_Z+9OQ4^\C2F''G8[1'C]YG'X51BG8QY@Q;-G=_OPW2SIFP:>-;#CKZZ:QC"
^XMB(3.9,23,2,15467,0)="""DATA"",396.18,220,3,633,0)"
^XMB(3.9,23,2,15468,0)="MA7@T_`1YL8^\-3&Y:8321Q\Y_B["".CJ_O?Z(GA[]D/SXC+S=SO=B%&1?43$C"
^XMB(3.9,23,2,15469,0)="""DATA"",396.18,220,3,634,0)"
^XMB(3.9,23,2,15470,0)="MCJ.\C`A!C`>/TMI+O9)P-9.S[AW3N<YDD_IQZ*7!9W]3(9IN"".>82.QO(RQ!"
^XMB(3.9,23,2,15471,0)="""DATA"",396.18,220,3,635,0)"
^XMB(3.9,23,2,15472,0)="M0LO/>]^AINV8O59HU5H1T&O%^WV:1J%^_FN0!-B(<A><)A+::')HZR+:CL%I"
^XMB(3.9,23,2,15473,0)="""DATA"",396.18,220,3,636,0)"
^XMB(3.9,23,2,15474,0)="M90A;#3BM!L)6O=ZX8WWV-AW68JGQUDEZ605#&F#(/AAR`(8<@B%'8$BM""P>%"
^XMB(3.9,23,2,15475,0)="""DATA"",396.18,220,3,637,0)"
^XMB(3.9,23,2,15476,0)="M2[37)7]-^#$?,5P$&EP&FH(0X!J@&4KNE^-L<Z/]XP]6N+8??OSAQQ\N+MY5"
^XMB(3.9,23,2,15477,0)="""DATA"",396.18,220,3,638,0)"
^XMB(3.9,23,2,15478,0)="M?]BZ?=IOL#F81FL?'7XG<)DCRYX6O7YC7OS\2^<C;3PL_`RSN_2_8'O=?GCM"
^XMB(3.9,23,2,15479,0)="""DATA"",396.18,220,3,639,0)"
^XMB(3.9,23,2,15480,0)="MW6<BLD(/FX@UI\L%B@*H@L%=""1[@[)$UB<$?S<(RWLLXR$$*!H0R`HO(%(G("
^XMB(3.9,23,2,15481,0)="""DATA"",396.18,220,3,640,0)"
^XMB(3.9,23,2,15482,0)="M[%.]9V%0E1!<0'4&>/(QN?*I,8""MY<^_<,:K)S6S!""_ACS_F31RY.)ON6;2]"
^XMB(3.9,23,2,15483,0)="""DATA"",396.18,220,3,641,0)"
^XMB(3.9,23,2,15484,0)="MC]Y'7_2:O&E""F0""I1[FN#*I^UIKPR0""`""4FH3`JA*HC`#O'RCYV&%""_O[-Z6"
^XMB(3.9,23,2,15485,0)="""DATA"",396.18,220,3,642,0)"
^XMB(3.9,23,2,15486,0)="M8OV?[RR>7_+>PL:VT'))/UE01W2PFBD7%VU_&-OF512O$_S_SX'_A-K/22NF"
^XMB(3.9,23,2,15487,0)="""DATA"",396.18,220,3,643,0)"
^XMB(3.9,23,2,15488,0)="M?#YE%+,E4*?F^2$.</^,?ITX<W2_3S,OVOOL!1O2N0X50B""SO)?C(W.'X)F^"
^XMB(3.9,23,2,15489,0)="""DATA"",396.18,220,3,644,0)"
^XMB(3.9,23,2,15490,0)="M>PBP;Q?GO#UY""?XHQ7S>D0PMG_6??SD=[PI<&""<6H%$Q<8-1KO!6.Q_EKRA("
^XMB(3.9,23,2,15491,0)="""DATA"",396.18,220,3,645,0)"
^XMB(3.9,23,2,15492,0)="MX]2""-%B"";-CZ?`=0DI]N@M4?ARD#\]8*X'_N@Y2UG-4IF""(*E0=4\JNN=IDH"
^XMB(3.9,23,2,15493,0)="""DATA"",396.18,220,3,646,0)"
^XMB(3.9,23,2,15494,0)="MOLU$JW-+_W:&IQVZ)--NNT]2=%]./T+#?XCPSC7)-HDI<0')MB[.]JZ=YFZZ"
^XMB(3.9,23,2,15495,0)="""DATA"",396.18,220,3,647,0)"
^XMB(3.9,23,2,15496,0)="MTIOC]0<B$>,;2:0YCY)O*AIZU+_/D!YMS+ZSO!E\'VA5BE;&G1B;F@J#VA:P"
^XMB(3.9,23,2,15497,0)="""DATA"",396.18,220,3,648,0)"
^XMB(3.9,23,2,15498,0)="M857*?Q@K<!D%=G?^*G@(5H@7NV+8)J,O-7P#ELGCVU/=E&)L[22;*&F$`V6$"
^XMB(3.9,23,2,15499,0)="""DATA"",396.18,220,3,649,0)"
^XMB(3.9,23,2,15500,0)="MS?T%`R=NT,)9""'$3)`)+KO<@S5AB'L`:+J(=WNBF?N;)_1:DCP78-0:CW+R^"
^XMB(3.9,23,2,15501,0)="""DATA"",396.18,220,3,650,0)"
^XMB(3.9,23,2,15502,0)="M(OR0/5Z5!ASVEJ4N=[1SHO5D9KPIM>S>)Y-E[:?8&/KKO[U!I`MH'?E)9B17"
^XMB(3.9,23,2,15503,0)="""DATA"",396.18,220,3,651,0)"
^XMB(3.9,23,2,15504,0)="M6/Y>$""(/@R0D)8*2;#8'4?BV^(C>D$6Z4EO""ZYNWA$B('J+-)GK*""`9ADL;["
^XMB(3.9,23,2,15505,0)="""DATA"",396.18,220,3,652,0)"
^XMB(3.9,23,2,15506,0)="MK&%""O@3K/`A8;X:>@G`=/9VW@K(=_1SE-@3YWNH1[8HF6#FVD,YXX9K$&OVX"
^XMB(3.9,23,2,15507,0)="""DATA"",396.18,220,3,653,0)"
^XMB(3.9,23,2,15508,0)="ML`G_WF<=(6%/BI1QCC+Q%9:$1""R]U<K?82R;38Z%U]0\1\NH(.2ML4AP5[')"
^XMB(3.9,23,2,15509,0)="""DATA"",396.18,220,3,654,0)"
^XMB(3.9,23,2,15510,0)="M*G@C'M;.]U*$UZ)=@K1WR""#^E$""G1PT=N[C(8[%M][]`/Z;<C%*K>!O/JF$I"
^XMB(3.9,23,2,15511,0)="""DATA"",396.18,220,3,655,0)"
^XMB(3.9,23,2,15512,0)="MO/>9\&:%\%""05*(ZEUM0H@(C&:G6][/.#.LZFC^@>9A@<#6*1&&RS9%D!\XE"
^XMB(3.9,23,2,15513,0)="""DATA"",396.18,220,3,656,0)"
^XMB(3.9,23,2,15514,0)="M/HWV<>(C-R`9A!=P8!S/P3Z.L;[@:8H58XL_Y9F`E[-0+)=BC\DP`2LSEW<["
^XMB(3.9,23,2,15515,0)="""DATA"",396.18,220,3,657,0)"
^XMB(3.9,23,2,15516,0)="MR6Q#$.ZC/5Z/,X)$XRON_Z[@YC""[47/Z+AN0]TS(VR@L/+GV+,#PH\;N`=I'"
^XMB(3.9,23,2,15517,0)="""DATA"",396.18,220,3,658,0)"
^XMB(3.9,23,2,15518,0)="MZ^&!F+K/?DA2&!&VG.5`49VK>B7J9H'XYU_8+D;Q6-A6.)&=^?MKZ^9OB##'"
^XMB(3.9,23,2,15519,0)="""DATA"",396.18,220,3,659,0)"
^XMB(3.9,23,2,15520,0)="MM@.HQ39`#,2TS29+""\TOT?S6M99-_(>)WT)=X_W&WT:#\VL2*2[[#J4\M9WI"
^XMB(3.9,23,2,15521,0)="""DATA"",396.18,220,3,660,0)"
^XMB(3.9,23,2,15522,0)="MW8V[G-Q.+1=-;F?(OK67]N0:W4QN[4L+/UG:F""W""5(VK&D6.%H(9F-\YKH5<"
^XMB(3.9,23,2,15523,0)="""DATA"",396.18,220,3,661,0)"
^XMB(3.9,23,2,15524,0)="M&S/`ZC_3#!TIYNF=XUBW2[1TK,GR!G]RF;1:RL\5NWBZ5[,+RIWMHNG\=FG?"
^XMB(3.9,23,2,15525,0)="""DATA"",396.18,220,3,662,0)"
^XMB(3.9,23,2,15526,0)="MWLWO7'1CS>QI)GOD6/^\LQUKUE(\(77.H+241M..TYJ9Y4X=>Y%QA]66DFN3"
^XMB(3.9,23,2,15527,0)="""DATA"",396.18,220,3,663,0)"
^XMB(3.9,23,2,15528,0)="MTSHE`&,MFZ+*FW5Y:4V7]J_6K>6ZA+L&5^V9>Z`#8*R9>]3;L4HE-EU[9J&<"
^XMB(3.9,23,2,15529,0)="""DATA"",396.18,220,3,664,0)"
^XMB(3.9,23,2,15530,0)="M5Q<@0R%MZ&B_9+#?DSEZ8)EA#^`C3*""'QS$SF<ULHG;80$WG-]4<;K$RA)NF"
^XMB(3.9,23,2,15531,0)="""DATA"",396.18,220,3,665,0)"
^XMB(3.9,23,2,15532,0)="MC/->#C]&-,7V>2)&4EP;MG<KW%-'C!@Q[9@.6X[IBN3V<<O$6@)G?TF+%>WN"
^XMB(3.9,23,2,15533,0)="""DATA"",396.18,220,3,666,0)"
^XMB(3.9,23,2,15534,0)="M<S)3;0^S$4WG^X(-$B(EY6)E^7?9<08R-,UAY3X9<)]H_""<:*S6F2[*7;(^'"
^XMB(3.9,23,2,15535,0)="""DATA"",396.18,220,3,667,0)"
^XMB(3.9,23,2,15536,0)="M#4%A8@VZV#=K`=*NV2'H3.?&VCI"")44YKB+;`3R""3""E`,3S+2P8[L>.:9_K5"
^XMB(3.9,23,2,15537,0)="""DATA"",396.18,220,3,668,0)"
^XMB(3.9,23,2,15538,0)="MN8)K.ZP%@Z=,5[=,7:7MEB;K59[M[2D08M*!D8&!Z=*18.\I@%,,R4T,$Z54"
^XMB(3.9,23,2,15539,0)="""DATA"",396.18,220,3,669,0)"
^XMB(3.9,23,2,15540,0)="MNY2V56*5I(>?M6Y0(\P""H@>8BPJ$21.?G*!&D`'#&IRFO0&;0<$2PY_6RK-:"
^XMB(3.9,23,2,15541,0)="""DATA"",396.18,220,3,670,0)"
^XMB(3.9,23,2,15542,0)="M(,\JN`Q<0GA#/!8R!UPNO\OR)&&2>\)$:R?5N?HH"")'+/&X`=9:0FN0E0RP,"
^XMB(3.9,23,2,15543,0)="""DATA"",396.18,220,3,671,0)"
^XMB(3.9,23,2,15544,0)="MWFMMS^]#E.SO6PF!WX,DCRWF!_EE&0-./@.2R2@/<2MD-$;R;(%*]F&@BJZM"
^XMB(3.9,23,2,15545,0)="""DATA"",396.18,220,3,672,0)"
^XMB(3.9,23,2,15546,0)="M>E0WJ^/K48S[%W_RXV>AEFB4-3X<?!6=/='8FBT[!\ET^>G#LGR'2\3%0<6E"
^XMB(3.9,23,2,15547,0)="""DATA"",396.18,220,3,673,0)"
^XMB(3.9,23,2,15548,0)="M;&1R1&W(++W/""QO/'79PI5P>V1Z""+G`>#+D@2NUFY?C`)Y,/,_*R36I(IV=$"
^XMB(3.9,23,2,15549,0)="""DATA"",396.18,220,3,674,0)"
^XMB(3.9,23,2,15550,0)="M]QT8!K)Q7X*.PO?X;DF])3G+GF51#YF1Q_(Q29ALHCR>V\ARL#4DDWJQHY60"
^XMB(3.9,23,2,15551,0)="""DATA"",396.18,220,3,675,0)"
^XMB(3.9,23,2,15552,0)="MI7XZHSA9>ZD/)*H9)Z.:9X:\)`K)/$Z?=SZ)]R;Y?*[8&7'""\!5B;OJXA)""T"
^XMB(3.9,23,2,15553,0)="""DATA"",396.18,220,3,676,0)"
^XMB(3.9,23,2,15554,0)="M%W6D?@7F:NXN[.7D.HN(7L_S0!P=F.VU0T=E,)<.@.E42(($)""?.S)Y,D;NP"
^XMB(3.9,23,2,15555,0)="""DATA"",396.18,220,3,677,0)"
^XMB(3.9,23,2,15556,0)="MIO:E/44+9SZU9G>.U8I,UJ>J=6U-E];,7EHW&&)U-7%*RHXU<4E$SD'SY97E"
^XMB(3.9,23,2,15557,0)="""DATA"",396.18,220,3,678,0)"
^XMB(3.9,23,2,15558,0)="MH.7'1196=N^<#Y;SD1&5,RBN9""&/K""]FI1=<(7(LP8B>GM*`""*O1L<:I'D/A"
^XMB(3.9,23,2,15559,0)="""DATA"",396.18,220,3,679,0)"
^XMB(3.9,23,2,15560,0)="M""96E)-3,+[6,E;TVQ#:HB>LN_"".,GL*.]%R48=)H^5*@QNPPE7D46;&H7HLF"
^XMB(3.9,23,2,15561,0)="""DATA"",396.18,220,3,680,0)"
^XMB(3.9,23,2,15562,0)="M(N&H*.&X.B.9J\,]/B_N>O/X`>8A]M]%.S^4DV`>.6,Z4\O8VV\]F.OD&+Q3"
^XMB(3.9,23,2,15563,0)="""DATA"",396.18,220,3,681,0)"
^XMB(3.9,23,2,15564,0)="MS]2-%+XW""_4W^LP.23T)`^Q)]-G^)\\A'O)6;^@MG6H4:/M@E)X""$!4]2:3^"
^XMB(3.9,23,2,15565,0)="""DATA"",396.18,220,3,682,0)"
^XMB(3.9,23,2,15566,0)="M9_^((XEZ5Q4M0Z\11_&F5Y=`K1OPM&X`UKH!5.N&QVG=`*QU0S6M&XBC*1HK"
^XMB(3.9,23,2,15567,0)="""DATA"",396.18,220,3,683,0)"
^XMB(3.9,23,2,15568,0)="M<,#44NBM,(&6:II$30=\-96P?1LQ-[2]D6@[78;V!^PM-90Z'BTY>6[0H4%?"
^XMB(3.9,23,2,15569,0)="""DATA"",396.18,220,3,684,0)"
^XMB(3.9,23,2,15570,0)="M#%7M1PH&:7I#ZNJ!D/,FBFRYZZIB4)!2H=-L3=6[P@55DUJ2X3$&RE!%JV""@"
^XMB(3.9,23,2,15571,0)="""DATA"",396.18,220,3,685,0)"
^XMB(3.9,23,2,15572,0)="M;OUHM_&2+=!*Z3PKI8.ME`ZU4JV;AF`SI8/-5)N"".'F0WPL9R$XL$0^0>V-)"
^XMB(3.9,23,2,15573,0)="""DATA"",396.18,220,3,686,0)"
^XMB(3.9,23,2,15574,0)="M^M``/^38TA'_F:X)VND\FPJ]U<N8[[G^FA*#VD8DNB<X@,11^T)3E8$,AD*8"
^XMB(3.9,23,2,15575,0)="""DATA"",396.18,220,3,687,0)"
^XMB(3.9,23,2,15576,0)="M7-@RB""$`@I^/-2A3"">\V+S;:%ZTDS4YQ`([O$T>NBGT[3%>%%NP;8K0:`,98"
^XMB(3.9,23,2,15577,0)="""DATA"",396.18,220,3,688,0)"
^XMB(3.9,23,2,15578,0)="M;4(.A;?+VA*![HD!I\:[QZPCNC)>3KBZAKK:9VOR2R<\V'J:EQ/%U#C'+:'0"
^XMB(3.9,23,2,15579,0)="""DATA"",396.18,220,3,689,0)"
^XMB(3.9,23,2,15580,0)="M%?ZB#[Y""5W#S>?KHQTR%'YKBA%EF=^FD&CU&(D$""R?/2(3HKL<2)+NB-C?0)"
^XMB(3.9,23,2,15581,0)="""DATA"",396.18,220,3,690,0)"
^XMB(3.9,23,2,15582,0)="M_M#BZJ-K3R?7R/K7Y(:I[\/SE2BDPBZY($Y58$4^`B<X569V&=J.<&=_\X-/"
^XMB(3.9,23,2,15583,0)="""DATA"",396.18,220,3,691,0)"
^XMB(3.9,23,2,15584,0)="MCRD)N(79;1<P!NY1A\*Q-B4)<PS2DX.8H/Q\A@N2[N\;,#`66:D;QY#0=90D"
^XMB(3.9,23,2,15585,0)="""DATA"",396.18,220,3,692,0)"
^XMB(3.9,23,2,15586,0)="MI^J^Z-+P$;WGVO^3=?Z#%X0O48^CQI[?K2.&7K[^287`._AFBE/BE'I`!035"
^XMB(3.9,23,2,15587,0)="""DATA"",396.18,220,3,693,0)"
^XMB(3.9,23,2,15588,0)="M#IA\0,HABF-.O7@=>""NTL`3[-98YE&\AM9':W3:#D8Q+^*<S>M103NZ3XMZ_"
^XMB(3.9,23,2,15589,0)="""DATA"",396.18,220,3,694,0)"
^XMB(3.9,23,2,15590,0)="MH-G@N&;]HYKUS..:&<<Q.63<M\UJNU`*^NBO_K@GJ8SL$_=L3@%F4&""`XQ?]"
^XMB(3.9,23,2,15591,0)="""DATA"",396.18,220,3,695,0)"
^XMB(3.9,23,2,15592,0)="MU@YC$?ME%^C2""^9`=@#$,!3#5095?07*`<_K,0S@*1##$.IY3WGJ*(1?%OO-"
^XMB(3.9,23,2,15593,0)="""DATA"",396.18,220,3,696,0)"
^XMB(3.9,23,2,15594,0)="M-@I)3DTRI5F3&K!/&*J<[S!T981UFX6827MC)$Z8-2>%V6.X1?&6KMC5OBU]"
^XMB(3.9,23,2,15595,0)="""DATA"",396.18,220,3,697,0)"
^XMB(3.9,23,2,15596,0)="M7#/MJ&8F;5XRS9*T&AS5:GA4JQ&W5>T.-4,?T=)/4F1](;<VL]NF*O>GJ41*"
^XMB(3.9,23,2,15597,0)="""DATA"",396.18,220,3,698,0)"
^XMB(3.9,23,2,15598,0)="M=7?63;-""=BE![A^09Z7[PN?L=MBC7]QX)1<IL[(#&<@3WOGDEUV],'GR8W+-"
^XMB(3.9,23,2,15599,0)="""DATA"",396.18,220,3,699,0)"
^XMB(3.9,23,2,15600,0)="M\-E/SCN`NF!C>.TGC5M?B6%\M,-^""HE\).U0ATH&:$H!,TO5K8$)`34`8.G/"
^XMB(3.9,23,2,15601,0)="""DATA"",396.18,220,3,700,0)"
^XMB(3.9,23,2,15602,0)="M:`9@>RH4%R?&RI06WU=LBTL$:<HAF0+C0VH02*;()-DMHRMXI@DHM,.#8@4&"
^XMB(3.9,23,2,15603,0)="""DATA"",396.18,220,3,701,0)"
^XMB(3.9,23,2,15604,0)="MA`A;+8:J&:4!X(@FEX;\D*PVI(.[S$1=H0,#25RYA4\B0%-7%:`I#*;F3!X4"
^XMB(3.9,23,2,15605,0)="""DATA"",396.18,220,3,702,0)"
^XMB(3.9,23,2,15606,0)="M$""AD4U<6LFG(X]UU1N0C81K<D6!@EN7U34,4X""_6#GGJ3(,>I3U%T&IIN4M7"
^XMB(3.9,23,2,15607,0)="""DATA"",396.18,220,3,703,0)"
^XMB(3.9,23,2,15608,0)="MIC$F9*C*^2PL&J@9DJJ!-32JE0--$UY;T1#7#F1Q(5QC2_B>N/-#4&Y9ZT/!"
^XMB(3.9,23,2,15609,0)="""DATA"",396.18,220,3,704,0)"
^XMB(3.9,23,2,15610,0)="M1(F5)DM%\D#(DT@0?<A!]S9C_'""N9HRD.RM=;E&:!'$?812Y.RD=NI/2Q>&+"
^XMB(3.9,23,2,15611,0)="""DATA"",396.18,220,3,705,0)"
^XMB(3.9,23,2,15612,0)="M^6JUWWE%;8^\0$""""0`$,>6D>0RU\H0W$VY*BTC9];M84')O-&S%.QZ[+JM[P"
^XMB(3.9,23,2,15613,0)="""DATA"",396.18,220,3,706,0)"
^XMB(3.9,23,2,15614,0)="MLA2:_%I31J[VA7TRUR_D7#C9JRC,RZL@\F]]0#Q2K@$_\B%<MG;OQE'<SDBE"
^XMB(3.9,23,2,15615,0)="""DATA"",396.18,220,3,707,0)"
^XMB(3.9,23,2,15616,0)="MG""93.;=HG^PQ1VLOV#S7^/J[G""^,F'N.>/:%VX99OZ-1BWUF3S[<SEW;I4_:"
^XMB(3.9,23,2,15617,0)="""DATA"",396.18,220,3,708,0)"
^XMB(3.9,23,2,15618,0)="MFLP;R?7*&^6]G&%Y[9V9OZK3HW_#\BJ*5*"")Z\ZG]F1IS=!O]O(*<7BKBAVQ"
^XMB(3.9,23,2,15619,0)="""DATA"",396.18,220,3,709,0)"
^XMB(3.9,23,2,15620,0)="M+L$?;DRK\?#!NK6<R36:3Z=WBTEQ73N_.,XLN*`)""RY<ML%!A1:D3""ZO;!=+"
^XMB(3.9,23,2,15621,0)="""DATA"",396.18,220,3,710,0)"
^XMB(3.9,23,2,15622,0)="MQ9V\MZ_MY<<W+K)O%I/I$I$3U'7&)Z2:@+VT+7:U""&#A!:H7O9/TPK'<N^NE"
^XMB(3.9,23,2,15623,0)="""DATA"",396.18,220,3,711,0)"
^XMB(3.9,23,2,15624,0)="M??L!_39W_H&8)4K8!.6,$KT=%7I[)'OY.?2JS`%0LG7""'#;5V)@X%B*<-""HN"
^XMB(3.9,23,2,15625,0)="""DATA"",396.18,220,3,712,0)"
^XMB(3.9,23,2,15626,0)="MX!]*>1'.[MP[S-)L8E]_Y#(FMFA<O6V=9:FI^_+XD4?3J[DC9E#75(>\U5X_"
^XMB(3.9,23,2,15627,0)="""DATA"",396.18,220,3,713,0)"
^XMB(3.9,23,2,15628,0)="M#:?NU7RQP#HJY%5_(:_&:7BU_F4Y4]NUA+P:+^3U-!8,N8NYLQ1K@/DR3OO]"
^XMB(3.9,23,2,15629,0)="""DATA"",396.18,220,3,714,0)"
^XMB(3.9,23,2,15630,0)="MTW#J6%-2UX2Z1"".FIBS7T]A4M'0FOUK7,H7MO8Q9HWL:9B\M:R9AM4U*6:ZC"
^XMB(3.9,23,2,15631,0)="""DATA"",396.18,220,3,715,0)"
^XMB(3.9,23,2,15632,0)="MT[#Z?H(778E41R]D=7@:5F?8M+HR7H<OY'5P(G6=V]?64L;LX(7,GL@2?'#F"
^XMB(3.9,23,2,15633,0)="""DATA"",396.18,220,3,716,0)"
^XMB(3.9,23,2,15634,0)="M\QL9K_UC7!6M>X[GK.4>/^9EH:/,:V'X)!4%&$/&""_GAU#HZ8Q(!ECKJ4S?W"
^XMB(3.9,23,2,15635,0)="""DATA"",396.18,220,3,717,0)"
^XMB(3.9,23,2,15636,0)="MZC0AQ8[Z]*DIP=NI0`6/^IR""1X)B""0:LMI`&`S-A8#U9<8K&9DI4R<C@/C%!"
^XMB(3.9,23,2,15637,0)="""DATA"",396.18,220,3,718,0)"
^XMB(3.9,23,2,15638,0)="MJ7B#&:^[N$`1B>((1:=KXOA=VRM3`#94@$T5X)X*<%\%>*`""/%0!'BD`UT+O"
^XMB(3.9,23,2,15639,0)="""DATA"",396.18,220,3,719,0)"
^XMB(3.9,23,2,15640,0)="M<N""^N(-YG9""A_,RIUE5.ZAF,6C?2Y(.N*=4-T]7*C.F&&KBI!MY3`^^K@0_4"
^XMB(3.9,23,2,15641,0)="""DATA"",396.18,220,3,720,0)"
^XMB(3.9,23,2,15642,0)="MP(=JX"".U>FU=)?""^8E<U2?:"":W<`T(82M*D$W5.""[BM!#Y2@ATK0(Q7HNOV1"
^XMB(3.9,23,2,15643,0)="""DATA"",396.18,220,3,721,0)"
^XMB(3.9,23,2,15644,0)="M0_<EO:0M$+<*3Q=\[%SK""@M'4853W.!32(KB>&%:YA&8V0UQ;D/-03#E659="
^XMB(3.9,23,2,15645,0)="""DATA"",396.18,220,3,722,0)"
^XMB(3.9,23,2,15646,0)="MA]#K01T265YF).?(Z`-3-R/6^L!QM-2ESUK)VE+EKG8Z`$T/D(?C1YCS]!@Y"
^XMB(3.9,23,2,15647,0)="""DATA"",396.18,220,3,723,0)"
^XMB(3.9,23,2,15648,0)="MOS]GN%@M00HT?@16>)&X387K)PVV.*[`B.<)L-[/`ZAY9<@*01C`=WA\F""_G"
^XMB(3.9,23,2,15649,0)="""DATA"",396.18,220,3,724,0)"
^XMB(3.9,23,2,15650,0)="MM>YD[]_.,X>MI""!R[]X[\[MEMAFBLX77D_?6-;PN5_;6WS%=&O5,6!'U#%2W"
^XMB(3.9,23,2,15651,0)="""DATA"",396.18,220,3,725,0)"
^XMB(3.9,23,2,15652,0)="M3$@J^W;&KMEZ)JR5=\8H@*M`JE;1^XQ1U?>,5<RYE>XC^'BUU\L74Y<;4\=/"
^XMB(3.9,23,2,15653,0)="""DATA"",396.18,220,3,726,0)"
^XMB(3.9,23,2,15654,0)="M]W'(&9D1>&3J16S.Z/HJ9XP**%^+:0/,--/&G[$WD6>MO3XU%J;R2`L]^C.A"
^XMB(3.9,23,2,15655,0)="""DATA"",396.18,220,3,727,0)"
^XMB(3.9,23,2,15656,0)="M73\3FJ&32/;B8CP>H_S]\>1-`&C,_6.5_\K?#P2XU\5\ZWUS$T0CU_513WPF"
^XMB(3.9,23,2,15657,0)="""DATA"",396.18,220,3,728,0)"
^XMB(3.9,23,2,15658,0)="M0(""<OKM1ZR9U+B9_A,G4""MBU/#S""#CT""EW#P0Y5AE4:B<Z^XWQKV:GUI-5*"""
^XMB(3.9,23,2,15659,0)="""DATA"",396.18,220,3,729,0)"
^XMB(3.9,23,2,15660,0)="MV.A"";A$1E%U=@C*'Q#@'&I#XP?>6$=?[P""MA!&V]8&LJ@]7%L%6GADH<=`'%"
^XMB(3.9,23,2,15661,0)="""DATA"",396.18,220,3,730,0)"
^XMB(3.9,23,2,15662,0)="M8$$28*A""%U;B%W/1E]XE.Y3?:LD""!BZOZ%NR,AS*<%<B,>""5DG-X@,P,<.GI"
^XMB(3.9,23,2,15663,0)="""DATA"",396.18,220,3,731,0)"
^XMB(3.9,23,2,15664,0)="M>AMX]T;@6WO8.NKZ2!&:>VGP9/*EBE\0P@,%R(I%A$`Z+)5M97S'2K:W.C>D"
^XMB(3.9,23,2,15665,0)="""DATA"",396.18,220,3,732,0)"
^XMB(3.9,23,2,15666,0)="M:$[SJCL`:RH4KM%54][\T+G<WDJ4I&GS0-`2E6J;<;%*#12G[$#1S,'7!GG7"
^XMB(3.9,23,2,15667,0)="""DATA"",396.18,220,3,733,0)"
^XMB(3.9,23,2,15668,0)="M:T9.8#W;%E^.MZO(A?0B<($5,%`Z>.Z/%`=J]/6&_,CYW7[W%&N/_$W\-J$Y"
^XMB(3.9,23,2,15669,0)="""DATA"",396.18,220,3,734,0)"
^XMB(3.9,23,2,15670,0)="M?K487]MBU%<^7WEM_U_RH5ZV'/^?>60\4_\RD_RJ#2K^XW'^GL)Z_M66Z&^V"
^XMB(3.9,23,2,15671,0)="""DATA"",396.18,220,3,735,0)"
^XMB(3.9,23,2,15672,0)="MI%Y<M,GBD=H,-##5EWM<?""^#>7#EN.5:N#J/7Q?GU\7Y=7%^79Q?%^?7Q?F_"
^XMB(3.9,23,2,15673,0)="""DATA"",396.18,220,3,736,0)"
^XMB(3.9,23,2,15674,0)="M:''^7@LNZXTJK%:,]Q)RD'>_6]""`%8;C=`7*I#"".+GW1&4!:WUM8C8%W_)2\"
^XMB(3.9,23,2,15675,0)="""DATA"",396.18,220,3,737,0)"
^XMB(3.9,23,2,15676,0)="M85P2PNBV""VA?*DQT6.:IJY9YDN9)^#8X%47Y^K*B@$S;*]090SWW\F?-(Y3:"
^XMB(3.9,23,2,15677,0)="""DATA"",396.18,220,3,738,0)"
^XMB(3.9,23,2,15678,0)="M-E91-F""LO:L4:Y>O&M\L9R7W)_[\WA]K7ARG+-S`;;-R_5%F3UD#7_7O-5G["
^XMB(3.9,23,2,15679,0)="""DATA"",396.18,220,3,739,0)"
^XMB(3.9,23,2,15680,0)="MYTC6OLARL\(SQR%\G8""O$_#_9@(*9H]0V1@.MTPYJR/%@(ZH.KL,]TW*O@H_"
^XMB(3.9,23,2,15681,0)="""DATA"",396.18,220,3,740,0)"
^XMB(3.9,23,2,15682,0)="MIU=<58ZQ`&_PQY6W07_9/3XGV:==_L;>G[B]T+LF5*J]TTCUQ4R*1=U3%'7O"
^XMB(3.9,23,2,15683,0)="""DATA"",396.18,220,3,741,0)"
^XMB(3.9,23,2,15684,0)="MI:).GE>/@9?&P0K2$?""&K7]J:1_/IUC@?46!]QE&147RWXWI[Z*:W]/T-(S]"
^XMB(3.9,23,2,15685,0)="""DATA"",396.18,220,3,742,0)"
^XMB(3.9,23,2,15686,0)="M7>C#3IH8:NZ2H19R&9G@HZE=9J2,@Q:\MLCHU^0T5A(3+,#`OP_[7^I^C)BJ"
^XMB(3.9,23,2,15687,0)="""DATA"",396.18,220,3,743,0)"
^XMB(3.9,23,2,15688,0)="MFLA$""U%5\]2R%[SF^[1'\5LO(6H5QZRXLULOE,?&?+[`FY:L%'51%?CB`I&?"
^XMB(3.9,23,2,15689,0)="""DATA"",396.18,220,3,744,0)"
^XMB(3.9,23,2,15690,0)="M=RBN?EYE;WI9Y\7<H&2*B8<8?SFBPZ6*S@*/2>*C>Y^\4-M':82""<+79KWWD"
^XMB(3.9,23,2,15691,0)="""DATA"",396.18,220,3,745,0)"
^XMB(3.9,23,2,15692,0)="MH7+!F>^"",(C""\\Y9]?[IZD-G^>BC-S=>2+`MR9AYJ9^\0?LTV`3I,WJ(]N$:"
^XMB(3.9,23,2,15693,0)="""DATA"",396.18,220,3,746,0)"
^XMB(3.9,23,2,15694,0)="MX?^*<H%OYGEQ[C?H/AL-Y*79[_<1_K8MJP@FJ]CW0[3R0L+9/L&2P)QYZS7-"
^XMB(3.9,23,2,15695,0)="""DATA"",396.18,220,3,747,0)"
^XMB(3.9,23,2,15696,0)="M%4H+HN>=LGM^5>DK&U2NS,<@<1)$&4945-E_5_T194/%6Q70-,)"".SRCK_I4"
^XMB(3.9,23,2,15697,0)="""DATA"",396.18,220,3,748,0)"
^XMB(3.9,23,2,15698,0)="M5]#P.!:?QUJN0(1-ZTN0SO^!F=)H@T7XMO-Q(6QWLU8JFE=7B4K-GKSDH&J5"
^XMB(3.9,23,2,15699,0)="""DATA"",396.18,220,3,749,0)"
^XMB(3.9,23,2,15700,0)="MBMU8,TSM.&Q;/\;:BE6HU#-A-S1JN#!Y`3A+H>7D<[F.F:T9V.9_$%7SOY#+"
^XMB(3.9,23,2,15701,0)="""DATA"",396.18,220,3,750,0)"
^XMB(3.9,23,2,15702,0)="MA""K<=:7<W<Z7-(?51""2E-0_SGE9SHNEX9AQ*I*3>?:.09NM5\L7$QG,GGW=?"
^XMB(3.9,23,2,15703,0)="""DATA"",396.18,220,3,751,0)"
^XMB(3.9,23,2,15704,0)="M:8I*IR6!2!\QOY,X?GQ.'[>!AZ7K;0_3];3#5)NJ2H:YTFC1]%!EM,4JPAB?"
^XMB(3.9,23,2,15705,0)="""DATA"",396.18,220,3,752,0)"
^XMB(3.9,23,2,15706,0)="M?!3ZG[&HO80L/P]1G`MOOJNXSY>58DDJR'69M_2RQ9IQA[9]/Y5WMXY:\P:B"
^XMB(3.9,23,2,15707,0)="""DATA"",396.18,220,3,753,0)"
^XMB(3.9,23,2,15708,0)="M=Z(R$!4O+@2\SYW+`_0U[.U`O!(WQO'<&""_DIJ$TS#P""^><_4$L#!!0``@`("
^XMB(3.9,23,2,15709,0)="""DATA"",396.18,220,3,754,0)"
^XMB(3.9,23,2,15710,0)="M`"".`'C5/1Z.@[PL``%M!```6````07)R:'ET:&UI85\Q,3,N<&YL+G)E<+U;"
^XMB(3.9,23,2,15711,0)="""DATA"",396.18,220,3,755,0)"
^XMB(3.9,23,2,15712,0)="M>V_<N!'_WX""_`P'CT*2(X=5C7X&;`U?BKGB11)64[&R*H+CK'=J@37UHKT`_"
^XMB(3.9,23,2,15713,0)="""DATA"",396.18,220,3,756,0)"
^XMB(3.9,23,2,15714,0)="M?F<H:?7FBC)0(T!LB>0,AS._>7`4B""1CJ:(Y%RFA:4CP+_R=?:()3_7SVQLJ"
^XMB(3.9,23,2,15715,0)="""DATA"",396.18,220,3,757,0)"
^XMB(3.9,23,2,15716,0)="M973.HX33VYL_S/BYO7E\%$6>%;DX'C]\(`\/)!-9D9&CD`GY4[7<G[,?__G+"
^XMB(3.9,23,2,15717,0)="""DATA"",396.18,220,3,758,0)"
^XMB(3.9,23,2,15718,0)="M/]PO_=&/CSP-65K]=7=7#T]^^?:R7N&/<W?7>AYDSXG\\>>O+Z=_O?SGUW*$"
^XMB(3.9,23,2,15719,0)="""DATA"",396.18,220,3,759,0)"
^XMB(3.9,23,2,15720,0)="M=W6$""R-N;R1[XNR9B""-)6,@#&A/)`B%#9=CH%+]NAUOV\]??UC6AD<?(X>]?"
^XMB(3.9,23,2,15721,0)="""DATA"",396.18,220,3,760,0)"
^XMB(3.9,23,2,15722,0)="M][.`D<?'X>,/'RP7\L87\JP7^K^()@7:\_B:4I/@_LAC1IZI>D]:&Q\=/E<&"
^XMB(3.9,23,2,15723,0)="""DATA"",396.18,220,3,761,0)"
^XMB(3.9,23,2,15724,0)="M4TK;4T/RS""2[2M6;O<6N#04B26`(;@NGEQ-\/7EDP@@1,&P&H-%8-$U9[`Q-"
^XMB(3.9,23,2,15725,0)="""DATA"",396.18,220,3,762,0)"
^XMB(3.9,23,2,15726,0)="MNL4`2X2SOKN;R6XUNLV0?J1YZ1UR%S=N;VI11ESE0IX'%KWDH%!J7)$\@F,A"
^XMB(3.9,23,2,15727,0)="""DATA"",396.18,220,3,763,0)"
^XMB(3.9,23,2,15728,0)="MM%X:\2,2*N,YC?GG$DR%)*J0)R;/WT\?WX1,)\%R/PF6_N""871]X5462T))!"
^XMB(3.9,23,2,15729,0)="""DATA"",396.18,220,3,764,0)"
^XMB(3.9,23,2,15730,0)="M&L=])E7#)6==+=@,M,#U*V:[4K:7H3<IPX#*D-.`Y)(6""37(S;.4V\9"";LX."
^XMB(3.9,23,2,15731,0)="""DATA"",396.18,220,3,765,0)"
^XMB(3.9,23,2,15732,0)="M^,O/&7M'8A$TGC&D.1LR>45HSFX(""%-RV<ZUBL&T*7&*],14SI\8B1B5.3E2"
^XMB(3.9,23,2,15733,0)="""DATA"",396.18,220,3,766,0)"
^XMB(3.9,23,2,15734,0)="M'A>2&02[M13LSD:PR&DM15`^EIN8).J<9+E(KJFELS6HH6\RY48/IYD((BE2"
^XMB(3.9,23,2,15735,0)="""DATA"",396.18,220,3,767,0)"
^XMB(3.9,23,2,15736,0)="M'IA,V`2^FR[]EV\_O1Q>_HMR2(ODP""0*@&5<B9`IPE.24943QR6)2/.HYVWJ"
^XMB(3.9,23,2,15737,0)="""DATA"",396.18,220,3,768,0)"
^XMB(3.9,23,2,15738,0)="MR2/D>H:_0CES>DJ%@OVAC,M=&&3-TP`<7,32CK1W0Q!8S==G=YD^NU?A(64B"
^XMB(3.9,23,2,15739,0)="""DATA"",396.18,220,3,769,0)"
^XMB(3.9,23,2,15740,0)="MBZE*#*?B6NJQL_JR1(?6>)00%Y1*5`-#D0""L)H""RIY2FN8'+]7:V[FA51]%`"
^XMB(3.9,23,2,15741,0)="""DATA"",396.18,220,3,770,0)"
^XMB(3.9,23,2,15742,0)="M8![DO>-M$[YR@(X[FR3&8V[+9&LR%]H=_=2C[;:SKX!67?""UNQW):([Q""7D#"
^XMB(3.9,23,2,15743,0)="""DATA"",396.18,220,3,771,0)"
^XMB(3.9,23,2,15744,0)="MZAD7(4]/M4]]>VV;>ZMM>HU@J\W&:(EP>KQ2MIRW&!ILW+.BMFL)=7K-G6'-"
^XMB(3.9,23,2,15745,0)="""DATA"",396.18,220,3,772,0)"
^XMB(3.9,23,2,15746,0)="MW=#H,3(!%`DDS\KXXZB54N^C3:21FK,:FK<SW[QWR\P;-R\A&CG$VK4:8MN="
^XMB(3.9,23,2,15747,0)="""DATA"",396.18,220,3,773,0)"
^XMB(3.9,23,2,15748,0)="M$>EZEK1>Q@W.TW)J4ES""C6'^>KZ[J1#;[<""]*C))GV""PY$$14]FFW'8%R)1V"
^XMB(3.9,23,2,15749,0)="""DATA"",396.18,220,3,774,0)"
^XMB(3.9,23,2,15750,0)="M!V=`:OB+YCH7(*$(""CQ*%I+#F;""8!;D4VF3$2=($([I(Q#D0`R?""<PT(0R_B"
^XMB(3.9,23,2,15751,0)="""DATA"",396.18,220,3,775,0)"
^XMB(3.9,23,2,15752,0)="MVLAVLU""V&U1)P52UEYRC+4>P>8#UC`8LH1^9-,'C9K:LT6""T0^^#U84.X0G8"
^XMB(3.9,23,2,15753,0)="""DATA"",396.18,220,3,776,0)"
^XMB(3.9,23,2,15754,0)="M<9H/M:Z<:R&0A?+8=!P;!)4\""`V[M]R\/[)YI'!EW[YQWT+&7__]&^B+,W?+"
^XMB(3.9,23,2,15755,0)="""DATA"",396.18,220,3,777,0)"
^XMB(3.9,23,2,15756,0)="M[1DD**3$,Z_Y&0WINOEF,W\ZDQZZ$M<=HA]-(6A`8==DWZAK7L-U3?""G1WBS"
^XMB(3.9,23,2,15757,0)="""DATA"",396.18,220,3,778,0)"
^XMB(3.9,23,2,15758,0)="M4]=J=,T#!`/\""/EH2QQ5:',E^W9[JCF6ZF;16>E<MU.VLRE>O:90YX[""WKI;"
^XMB(3.9,23,2,15759,0)="""DATA"",396.18,220,3,779,0)"
^XMB(3.9,23,2,15760,0)="M@JN>^H;""G+\:U(.<]?#1?OAH,WPTK""TYSN""1KXN`3Y@2ZQ-2MS?WS<]\Z\-U"
^XMB(3.9,23,2,15761,0)="""DATA"",396.18,220,3,780,0)"
^XMB(3.9,23,2,15762,0)="M<I9D3-*\Z!5L]'N8<;0P9N0T*V(U7,G!DL%/OWZS6`PE(1DD_L`<1M+PW\BZ"
^XMB(3.9,23,2,15763,0)="""DATA"",396.18,220,3,781,0)"
^XMB(3.9,23,2,15764,0)="MALK5R)HH\$,L1$@R6%J-[=E!,WWH/\2(]]NWZ*\6M/""\(\9/T3!&TF'>%(#Z"
^XMB(3.9,23,2,15765,0)="""DATA"",396.18,220,3,782,0)"
^XMB(3.9,23,2,15766,0)="MCM664-.>)\B@T\]$D6)=V#Y+T'HM68!06%*`C(Q""*F:(,_S5-/.[47OS+_R3"
^XMB(3.9,23,2,15767,0)="""DATA"",396.18,220,3,783,0)"
^XMB(3.9,23,2,15768,0)="M6*CQY!&Y_`[+?AF5$$#D@ARH8C$$N78A32,K<J(\':6UMJ;5PY&__?*7OU>."
^XMB(3.9,23,2,15769,0)="""DATA"",396.18,220,3,784,0)"
^XMB(3.9,23,2,15770,0)="M9/C4'7WJC3XU88ZW-KW<F%YN32]WI@L(X^U$EUOT`)Z/3J?V&@CQY`@2@W2H"
^XMB(3.9,23,2,15771,0)="""DATA"",396.18,220,3,785,0)"
^XMB(3.9,23,2,15772,0)="MBU?3R&5,??>+4E\MN!^>0H,.>^NY!C@BV2SAIJ6WLY=^O<*T%+$LFR@-!1KZ"
^XMB(3.9,23,2,15773,0)="""DATA"",396.18,220,3,786,0)"
^XMB(3.9,23,2,15774,0)="M=%(U3JW%>_UTE#-O=*PW.M8?'>M/&LYPK+/P3'3>IA,5T['L%JZ.AI84$OZ9"
^XMB(3.9,23,2,15775,0)="""DATA"",396.18,220,3,787,0)"
^XMB(3.9,23,2,15776,0)="M5M_8Q(2>-YX1EV1TR:$)R@+`8E-DZ'G+-J9-/8AY\-&44RY='+4!8@Y>0D-,"
^XMB(3.9,23,2,15777,0)="""DATA"",396.18,220,3,788,0)"
^XMB(3.9,23,2,15778,0)="M9'$PD?'GDJE!IQ5#EQGF$U5ETEKCSWMC;=8;H3BX,KJ""0::,RC>!MV\"";]\$"
^XMB(3.9,23,2,15779,0)="""DATA"",396.18,220,3,789,0)"
^XMB(3.9,23,2,15780,0)="MWKX)O/V]\6K9]-(9(+NKBR@0Z4&NCM<TB.U]2+?""\MTB+-=RQ+,.(J8`WB*:"
^XMB(3.9,23,2,15781,0)="""DATA"",396.18,220,3,790,0)"
^XMB(3.9,23,2,15782,0)="ML8>0(0&>GTU1RD*$UZ(`S0T*I;L-[DG,CKE)=Q?""ECZM`Y:_HAJU2UJDR(`^"
^XMB(3.9,23,2,15783,0)="""DATA"",396.18,220,3,791,0)"
^XMB(3.9,23,2,15784,0)="M1$H'8Q2V7TAV-T4V%L\SR""Z$4:U^';'*03S;G[%P@YN1#6IB,P6[64AW.TEW"
^XMB(3.9,23,2,15785,0)="""DATA"",396.18,220,3,792,0)"
^XMB(3.9,23,2,15786,0)="MGF2W-ACH[DQEA<9LYZ&A:W$7Z""R\/'$ZMR?LB<.$@""V\#'1LJH3.P@JLSKM&"
^XMB(3.9,23,2,15787,0)="""DATA"",396.18,220,3,793,0)"
^XMB(3.9,23,2,15788,0)="M.4;/EL%3+&N$S'@?[*S-MV(L$>[6ING`W0Y/_L12S0P%!:>RC!FF*S=Z$6,Y"
^XMB(3.9,23,2,15789,0)="""DATA"",396.18,220,3,794,0)"
^XMB(3.9,23,2,15790,0)="M""1L9?*M.""'^TG'0I_C1J:&2K7_,;*RCEH""IU#Y25`]HN<N2.R5<[)E_MF-RQ"
^XMB(3.9,23,2,15791,0)="""DATA"",396.18,220,3,795,0)"
^XMB(3.9,23,2,15792,0)="MZ9UC<M6.J</,=PTO]>7K[0W[%+""L;+&`Q%?E6""0A*-2)A&U^N6E$<&`][!.@"
^XMB(3.9,23,2,15793,0)="""DATA"",396.18,220,3,796,0)"
^XMB(3.9,23,2,15794,0)="M/E=,T\![LJKY)3ZCX>>2HFH$-&>FBK-C%U^O.NU*5.FNP1X;*A)%'))4Y.2@"
^XMB(3.9,23,2,15795,0)="""DATA"",396.18,220,3,797,0)"
^XMB(3.9,23,2,15796,0)="MK]G#(@`FK@3;J[E\U+4&7?I'DDE]K8977^R)Q1JR`X`]""&2P""E;$FB^>DO""L"
^XMB(3.9,23,2,15797,0)="""DATA"",396.18,220,3,798,0)"
^XMB(3.9,23,2,15798,0)="MLI31=X#H)Y[""_R'__)FG<%#O=%O,.0U$9D@+&MI64M.1CQ2(<W@)@!%?%E_+"
^XMB(3.9,23,2,15799,0)="""DATA"",396.18,220,3,799,0)"
^XMB(3.9,23,2,15800,0)="M/BRNY1P#SOE7YI'X""<5R+-)`@UZ5X.)%$[QA/[#R\5'2\A<\99,^;6>?8W?>"
^XMB(3.9,23,2,15801,0)="""DATA"",396.18,220,3,800,0)"
^XMB(3.9,23,2,15802,0)="MKE+J`<'UZCL\FQ@.R437QM'N%XIK7_)XM;6BDJ&)W?TR,6FHB6CM.@^,I201"
^XMB(3.9,23,2,15803,0)="""DATA"",396.18,220,3,801,0)"
^XMB(3.9,23,2,15804,0)="M\%L>@6(Y]6UB:0%%CLTLQ\'-HJF'PJ+78Z$4][7OUQ!&$_+,X?>4;*H.&.2]"
^XMB(3.9,23,2,15805,0)="""DATA"",396.18,220,3,802,0)"
^XMB(3.9,23,2,15806,0)="MOM0*N0HB*D\,U$$D@WX[<$:P.9YC'LR>:%PTG5LU2*&<:';60RE1A<H!%EE("
^XMB(3.9,23,2,15807,0)="""DATA"",396.18,220,3,803,0)"
^XMB(3.9,23,2,15808,0)="M)FYC812.[+Q-62'/*@&]%(FIL6]OH8&KA1JX*H6'-XDP#Y`/U+""^[#O$K$[9"
^XMB(3.9,23,2,15809,0)="""DATA"",396.18,220,3,804,0)"
^XMB(3.9,23,2,15810,0)="MF<R9O(=LCA\DCV.\`R!O\&;PK>XXBFE@C`$ME,!Q%N[$F5`#MZ4&]7D3&B:\"
^XMB(3.9,23,2,15811,0)="""DATA"",396.18,220,3,805,0)"
^XMB(3.9,23,2,15812,0)="M3&_TD;=N-_'$).L^P8!]*)7VQ;`A6W`L<-=WEVU>1Q/80D1[[I.$(F5:?\M>"
^XMB(3.9,23,2,15813,0)="""DATA"",396.18,220,3,806,0)"
^XMB(3.9,23,2,15814,0)="M8%#4OO&:$AUW&:CXZ$E30:IXH9)A>5V!])\8:!--?Z>:2UT0=:'*%C(30][5"
^XMB(3.9,23,2,15815,0)="""DATA"",396.18,220,3,807,0)"
^XMB(3.9,23,2,15816,0)="MN]6]U=TJ8D<KL*J<N[H'<\\[F=C(E:J%>?K^LKS&]^O6L""H40FWM^5<\88/M"
^XMB(3.9,23,2,15817,0)="""DATA"",396.18,220,3,808,0)"
^XMB(3.9,23,2,15818,0)="M^;,+=I=81!/5O2)54]K`AWX_=E?C^$:!U*/FIWBM&24_5:-E53_GG]DX'VOK"
^XMB(3.9,23,2,15819,0)="""DATA"",396.18,220,3,809,0)"
^XMB(3.9,23,2,15820,0)="M'6]T/,5UES.<?""1""[2Q031/P!R#XAN;H/95EU-OO-&CJ`27U*Y'<U0X#;VUC"
^XMB(3.9,23,2,15821,0)="""DATA"",396.18,220,3,810,0)"
^XMB(3.9,23,2,15822,0)="M!5Y9N3N5S3\/X/GCF!=);0QF,QB[G^DMO[%B!L^""!:>'L@'I@061F,G)YBHG"
^XMB(3.9,23,2,15823,0)="""DATA"",396.18,220,3,811,0)"
^XMB(3.9,23,2,15824,0)="M6RM.MN6=-U+N%FUT8DL03F4W#1EA:CL?);S],I3`>65?%[;GE\S5?)=-CP#["
^XMB(3.9,23,2,15825,0)="""DATA"",396.18,220,3,812,0)"
^XMB(3.9,23,2,15826,0)="MHH3]5F\'C,F$-`65WO[J)Q*W-Y=.SE:OR""L:1%QW\\4""P%>NZSG&5-IU]V6'"
^XMB(3.9,23,2,15827,0)="""DATA"",396.18,220,3,813,0)"
^XMB(3.9,23,2,15828,0)="M!@,'+LZZ%_3R-<?2!+I#NU`%A!0B""(JL;I`REO#TO(4-YY?]`!96;K3ND((T"
^XMB(3.9,23,2,15829,0)="""DATA"",396.18,220,3,814,0)"
^XMB(3.9,23,2,15830,0)="MO=RB,3\O%[#JL=4,KUJM6!-;W8UO=67?[`C3=#R'C;VZO?UR=..-B'J\=0N]"
^XMB(3.9,23,2,15831,0)="""DATA"",396.18,220,3,815,0)"
^XMB(3.9,23,2,15832,0)="MGJ:AN)!-E%+M<0Y)=QE)%&7.$X8M%GF9B#P+^1'90%<3E_W[]SILU05,$4[S"
^XMB(3.9,23,2,15833,0)="""DATA"",396.18,220,3,816,0)"
^XMB(3.9,23,2,15834,0)="ML++K\(4I.N@):*'8&_56USE&>($H;8(/<^^O7G_V@5^F;""]%R4:WFJ^NJD\+"
^XMB(3.9,23,2,15835,0)="""DATA"",396.18,220,3,817,0)"
^XMB(3.9,23,2,15836,0)="MFN0-2ROZD>81,6V&S;G;U]C<JFMSDN5<7C>TE5VC_&I5BJ).5TLJHYW=Y=C9"
^XMB(3.9,23,2,15837,0)="""DATA"",396.18,220,3,818,0)"
^XMB(3.9,23,2,15838,0)="MRU]:(B]*KS5@0&3*FGOS[95NW13Z'B[%YDP*2*=ZO9Q3:K6V)ZKC.G4.(DXQ"
^XMB(3.9,23,2,15839,0)="""DATA"",396.18,220,3,819,0)"
^XMB(3.9,23,2,15840,0)="M_;:CM[&GU[1J7I/N%%'O-3KJ=76T2&M_0`Y%KNNG,]766P!LJQ)8QK""T9L2`"
^XMB(3.9,23,2,15841,0)="""DATA"",396.18,220,3,820,0)"
^XMB(3.9,23,2,15842,0)="MIBLS;(P[)?UU8EDU5N3$GUB9SO?(77-0KC_GH]3)X*3+EE6LN^E^7-E\CX,)"
^XMB(3.9,23,2,15843,0)="""DATA"",396.18,220,3,821,0)"
^XMB(3.9,23,2,15844,0)="M>YW@82GJ>(0$3+TW!9J;:]=$5M_+KF=^V(M#+0)<9V&`Z[2^D&JD%(CTR&52"
^XMB(3.9,23,2,15845,0)="""DATA"",396.18,220,3,822,0)"
^XMB(3.9,23,2,15846,0)="M?<3P\33\;,$4V]J4919F[W51YE(\%!EDDSKR_F,!8;K1$'4V_3]02P$""%@L4"
^XMB(3.9,23,2,15847,0)="""DATA"",396.18,220,3,823,0)"
^XMB(3.9,23,2,15848,0)="M``(`""``C@!XU4C!O9(8S``""-%@$`$@`````````!`""``@($`````07)R:'ET"
^XMB(3.9,23,2,15849,0)="""DATA"",396.18,220,3,824,0)"
^XMB(3.9,23,2,15850,0)="M:&UI85\Q,3,N<&YL4$L!`A8+%``""``@`)(`>-9L`6M7A.```'=L!`!8`````"
^XMB(3.9,23,2,15851,0)="""DATA"",396.18,220,3,825,0)"
^XMB(3.9,23,2,15852,0)="M`````0`@`(""!MC,``$%R<FAY=&AM:6%?,3$S+G!N;""YF<FU02P$""%@L4``(`"
^XMB(3.9,23,2,15853,0)="""DATA"",396.18,220,3,826,0)"
^XMB(3.9,23,2,15854,0)="M""``C@!XU2L!0LR@7```TN```%@`````````!`""``@('+;```07)R:'ET:&UI"
^XMB(3.9,23,2,15855,0)="""DATA"",396.18,220,3,827,0)"
^XMB(3.9,23,2,15856,0)="M85\Q,3,N<&YL+F-D95!+`0(6""Q0``@`(`"".`'C5/1Z.@[PL``%M!```6````"
^XMB(3.9,23,2,15857,0)="""DATA"",396.18,220,3,828,0)"
^XMB(3.9,23,2,15858,0)="M``````$`(`""`@2>$``!!<G)H>71H;6EA7S$Q,RYP;FPN<F5P4$L%!@`````$"
^XMB(3.9,23,2,15859,0)="""DATA"",396.18,220,3,829,0)"
^XMB(3.9,23,2,15860,0)="-``0`#`$``$J0````````"
^XMB(3.9,23,2,15861,0)="""DATA"",396.18,220,3,830,0)"
^XMB(3.9,23,2,15862,0)="end"
^XMB(3.9,23,2,15863,0)="""DATA"",396.18,220,4)"
^XMB(3.9,23,2,15864,0)="9^843268300"
^XMB(3.9,23,2,15865,0)="""DATA"",396.18,220,6)"
^XMB(3.9,23,2,15866,0)="1^515"
^XMB(3.9,23,2,15867,0)="""DATA"",396.18,224,0)"
^XMB(3.9,23,2,15868,0)="AID AND ATTENDANCE OR HOUSEBOUND EXAMINATION~113F"
^XMB(3.9,23,2,15869,0)="""DATA"",396.18,224,1,0)"
^XMB(3.9,23,2,15870,0)="^^2^2^3060918"
^XMB(3.9,23,2,15871,0)="""DATA"",396.18,224,1,1,0)"
^XMB(3.9,23,2,15872,0)="Last updated on 07/17/2006 ~113"
^XMB(3.9,23,2,15873,0)="""DATA"",396.18,224,1,2,0)"
^XMB(3.9,23,2,15874,0)="Patch DVBA*2.7*113"
^XMB(3.9,23,2,15875,0)="""DATA"",396.18,224,2)"
^XMB(3.9,23,2,15876,0)="3060525^^3060918.135"
^XMB(3.9,23,2,15877,0)="""DATA"",396.18,224,3,0)"
^XMB(3.9,23,2,15878,0)="^396.184^564^564^3060918^^^^"
^XMB(3.9,23,2,15879,0)="""DATA"",396.18,224,3,1,0)"
^XMB(3.9,23,2,15880,0)="begin 664 Aid_and_attendance_113.pnl.zip"
^XMB(3.9,23,2,15881,0)="""DATA"",396.18,224,3,2,0)"
^XMB(3.9,23,2,15882,0)="M4$L#!!0``@`(`""UF,C4O:^+0!2,``+'!```:````06ED7V%N9%]A='1E;F1A"
^XMB(3.9,23,2,15883,0)="""DATA"",396.18,224,3,3,0)"
^XMB(3.9,23,2,15884,0)="M;F-E7S$Q,RYP;FSD70ML9-=9GH<]ML=>[RN[Y)W;33;93;W>>?K5;(O7Z]UU"
^XMB(3.9,23,2,15885,0)="""DATA"",396.18,224,3,4,0)"
^XMB(3.9,23,2,15886,0)="M8J\MSVPVCX;TS,P9S\W>N7=R'[8G$%5""`926%E$4\1!(-)40""*I""!2I!$%!X"
^XMB(3.9,23,2,15887,0)="""DATA"",396.18,224,3,5,0)"
^XMB(3.9,23,2,15888,0)="M2""""0$""H@-1&B/*J&(*J*5A4@!/]YW3EW[IGQS&X4/[K2[HZO9\[YO__\K_/_"
^XMB(3.9,23,2,15889,0)="""DATA"",396.18,224,3,6,0)"
^XMB(3.9,23,2,15890,0)="M_SE37+N<2A37D(F-H]L-\M]%Y.`%RW1MRQA8QE4W%HD7K4;LR.`-O>+6XM^)"
^XMB(3.9,23,2,15891,0)="""DATA"",396.18,224,3,7,0)"
^XMB(3.9,23,2,15892,0)="M):YB?:/FQK\<35[$F]A8]5QL#R5*F]<L$Y^`CSJNC733=297T+;_WCO:?B%&"
^XMB(3.9,23,2,15893,0)="""DATA"",396.18,224,3,8,0)"
^XMB(3.9,23,2,15894,0)="M""WY`-SM\0#?%!T;6K(;76,&F-W3'""OSVLF77)[?]A^GA(BJMVA5LQR*12)'"""
^XMB(3.9,23,2,15895,0)="""DATA"",396.18,224,3,9,0)"
^XMB(3.9,23,2,15896,0)="M6T8E;!RF_Q:;#;Q:)9^AX.*/_1]%EV+H8H]P<+%#0PNHX>J6F1A<65R_LA@8"
^XMB(3.9,23,2,15897,0)="""DATA"",396.18,224,3,10,0)"
^XMB(3.9,23,2,15898,0)="M:I3^2P99NA08Y@?Y,,?""P\3GERZ)02B[D_#@>?HJQ\;X&<;H9SBC_S`J&/V-"
^XMB(3.9,23,2,15899,0)="""DATA"",396.18,224,3,11,0)"
^XMB(3.9,23,2,15900,0)="MR,!5X$)B<&UU[?H:8_J2:0+3ATN;ZTAW<&7THD4@%]RF@>&I4]#-#0,/+EB&"
^XMB(3.9,23,2,15901,0)="""DATA"",396.18,224,3,12,0)"
^XMB(3.9,23,2,15902,0)="M!>\J&P7=V,3VV&58U\F%&K(=[`X=OK1X>?[Z<O'YA:OSZX7%8I+]EGYDJ&Q<"
^XMB(3.9,23,2,15903,0)="""DATA"",396.18,224,3,13,0)"
^XMB(3.9,23,2,15904,0)="M-%#YYBA]QL%\=X3^=`W5<>+02D$K(-/1""MC6J^RC=/;12'(-V=ATR:-A>3$$"
^XMB(3.9,23,2,15905,0)="""DATA"",396.18,224,3,14,0)"
^XMB(3.9,23,2,15906,0)="M\PAN^BH]S03L+,6=X+@;`G?LB,^\[+Q>T9!9T>9=%YL59);QG+9JNS6K@2MZ"
^XMB(3.9,23,2,15907,0)="""DATA"",396.18,224,3,15,0)"
^XMB(3.9,23,2,15908,0)="M^?R:;3EN#;MZ69MO-`R=O.$VP?YG3V`35>>B950""F%5(9QG2.RC2^SG2GXZ&"
^XMB(3.9,23,2,15909,0)="""DATA"",396.18,224,3,16,0)"
^XMB(3.9,23,2,15910,0)="MQ>2I2]@IVWH):ULUY$YH>A5P-R<TY#BZXQ)<FNYH-G[1TVU<T5Q+0Y47/,?5"
^XMB(3.9,23,2,15911,0)="""DATA"",396.18,224,3,17,0)"
^XMB(3.9,23,2,15912,0)="M=)<RJ&9M:57R:Z!&`Y9H)H:WZ<[<\`V0D!LV:HQ$(D/%BY[K6N88(9""]S&29"
^XMB(3.9,23,2,15913,0)="""DATA"",396.18,224,3,18,0)"
^XMB(3.9,23,2,15914,0)="M$/X6%<+X'T6X)#\A2+RKI1`+AN7@ULI&AU;-!4,OWQPZOLT&NX)!./4R?1B)"
^XMB(3.9,23,2,15915,0)="""DATA"",396.18,224,3,19,0)"
^XMB(3.9,23,2,15916,0)="M#!97<-T:(7.1%VF9%1.<%9_SA?U30M@SV4PN>YN+^!UI$4<7+,_6L:U=PUL!"
^XMB(3.9,23,2,15917,0)="""DATA"",396.18,224,3,20,0)"
^XMB(3.9,23,2,15918,0)="M>3VTK)O8@9]L4!HGFH@$5C-9*(,E!*MH.T-)QWD2VR!ER`A8&5FMC_AJG4^1"
^XMB(3.9,23,2,15919,0)="""DATA"",396.18,224,3,21,0)"
^XMB(3.9,23,2,15920,0)="M/QSNCU""X'^9PW_+AYJ,'0+>C0N*/^!+/P$\Q\$]1\(,<_'&%@I]6*?@ZWM3Q"
^XMB(3.9,23,2,15921,0)="""DATA"",396.18,224,3,22,0)"
^XMB(3.9,23,2,15922,0)="MEF95X549>.#<)L9OW[Y*'PX`3&<8OL,47Y6KC![6:O!E]3H,YFB6""<I+P<R]"
^XMB(3.9,23,2,15923,0)="""DATA"",396.18,224,3,23,0)"
^XMB(3.9,23,2,15924,0)="MC[+=XXH175RLZ.XX04%>T%7B('Z`*OXWA>(W!8H30A\S,[.IUIH/J`?C9F0B"
^XMB(3.9,23,2,15925,0)="""DATA"",396.18,224,3,24,0)"
^XMB(3.9,23,2,15926,0)="M2D?[YZZC2:YZL&64CK:,$A,B[A[?8)9I+,J'O""*&O+>C98KO8)D.%Q?6;JRL"
^XMB(3.9,23,2,15927,0)="""DATA"",396.18,224,3,25,0)"
^XMB(3.9,23,2,15928,0)="MHXIN7;$MKW$7F3KXB)'`692@ZWP/E^.O1@0%5WQ04_E4L@`VF*GL\-CC8)KU"
^XMB(3.9,23,2,15929,0)="""DATA"",396.18,224,3,26,0)"
^XMB(3.9,23,2,15930,0)="M:G/)Q75G9(C\MX8JDMR/+VB7=0-S49\[1-_8,D7#[#FN)$Y<LUQJ]K'C@D$O"
^XMB(3.9,23,2,15931,0)="""DATA"",396.18,224,3,27,0)"
^XMB(3.9,23,2,15932,0)="M-;4GY]=7$P^NMS_22IZKF?!FM(ET`Y4,'`G8JIXQ\Y7\I\B.H&>FI_L""?7*%"
^XMB(3.9,23,2,15933,0)="""DATA"",396.18,224,3,28,0)"
^XMB(3.9,23,2,15934,0)="M.&UD<+7^H,!'A2LZ+%Q1P$(S)?8XSM=]""_UIX9#2Z:F9]#YP2+%(ASB3!2'Q"
^XMB(3.9,23,2,15935,0)="""DATA"",396.18,224,3,29,0)"
^XMB(3.9,23,2,15936,0)="MM]F*/LN15GVD7S\(<68L''W-\N@K$X@SOQL)NZ%3*C>T@.U-*JZ%!JS+7@HK"
^XMB(3.9,23,2,15937,0)="""DATA"",396.18,224,3,30,0)"
^XMB(3.9,23,2,15938,0)="ML\PTQH[)867L7-C_C(BH<FX7ED8*/)G^)?U0,$""_""(XN^`+YBJ]ZJ>GI?1(+"
^XMB(3.9,23,2,15939,0)="""DATA"",396.18,224,3,31,0)"
^XMB(3.9,23,2,15940,0)="M""C<VVG)C7.]^@CFP-W8,K7<UE-O!9:HM""S.A\;]EEF6=+^2'_(5,'H0H-RX4"
^XMB(3.9,23,2,15941,0)="""DATA"",396.18,224,3,32,0)"
^XMB(3.9,23,2,15942,0)="M,-E20"":_)P+Q[?<4AN5!E6&Y:CD-W46&_A(B;]I]R](""EI,W:0]P@5T,&Y;Q"
^XMB(3.9,23,2,15943,0)="""DATA"",396.18,224,3,33,0)"
^XMB(3.9,23,2,15944,0)="M2\C%L`6MZX""KLBLA;8CVO$S[$YSV]3#M1\D\9'=1X^NP""\9103[?,[U,R4]S"
^XMB(3.9,23,2,15945,0)="""DATA"",396.18,224,3,34,0)"
^XMB(3.9,23,2,15946,0)="M\L^&R1^JU\\WX8]BB&F)`_%7A;W)A,<87=#=YOF""""XNX*^`5QI)'8SJE_1_W"
^XMB(3.9,23,2,15947,0)="""DATA"",396.18,224,3,35,0)"
^XMB(3.9,23,2,15948,0)="MM*V,[YCX(-NB$;$_""B0^)CFP<MO&:&`V/ST5<""AMZ9,9>6U_EO,G_A^^S;D@"
^XMB(3.9,23,2,15949,0)="""DATA"",396.18,224,3,36,0)"
^XMB(3.9,23,2,15950,0)="MI4]R^R-:;4,8R)4]$P)X5@*8WP<`HYV<YK0R[?MW!RL<'PA'K1ENGEX,A./_"
^XMB(3.9,23,2,15951,0)="""DATA"",396.18,224,3,37,0)"
^XMB(3.9,23,2,15952,0)="MH/"":FLIK+I&J@%<F;W#V5#"">8K!&`SG>+_K)KKM]6)]9)6E<DIS%VSIL7\E/"
^XMB(3.9,23,2,15953,0)="""DATA"",396.18,224,3,38,0)"
^XMB(3.9,23,2,15954,0)="MX(:0JQD8.:YFF5BKZ`XJZ0:89\U&9(<+OTVG4J>U&G*T$L:F!AM?V.#J3@U7"
^XMB(3.9,23,2,15955,0)="""DATA"",396.18,224,3,39,0)"
^XMB(3.9,23,2,15956,0)="M)L`#@X&!L6&74@(;5-5=1ZNC)OR@-5""3;(1))IE,N8E=;""-3I)""#B>$P*&ZT"
^XMB(3.9,23,2,15957,0)="""DATA"",396.18,224,3,40,0)"
^XMB(3.9,23,2,15958,0)="M[J.@/LI!_;(""5""4]J15A?!MO>`:RY80UP0:;\AKH5@/;CF5JN@EXR)*""O)(<"
^XMB(3.9,23,2,15959,0)="""DATA"",396.18,224,3,41,0)"
^XMB(3.9,23,2,15960,0)="M-B$,J-!-9#<U!&N[""6BP0SY9@8U\4S/@B;DQT976J;Q,:XG3^GD%K3^<F=3F"
^XMB(3.9,23,2,15961,0)="""DATA"",396.18,224,3,42,0)"
^XMB(3.9,23,2,15962,0)="ME?0!80W;<C&0`)35]+J#C2J0IL$OZ<NJ;=6#Y-;02\BN4%IKNL/?R\G&YJ9N"
^XMB(3.9,23,2,15963,0)="""DATA"",396.18,224,3,43,0)"
^XMB(3.9,23,2,15964,0)="M6R9)_4T003YOV=TA3$D0XC\9Z8+AM>RDMA1<4EH8`.70RRXK#4CTU""P2Z]CT"
^XMB(3.9,23,2,15965,0)="""DATA"",396.18,224,3,44,0)"
^XMB(3.9,23,2,15966,0)="M_7J]CBLZ""=Q@7ZN;1,8(>&Q5)X`!9<-CRP+OW`)DY%.M3Y0-^`#9#(,N(%J>"
^XMB(3.9,23,2,15967,0)="""DATA"",396.18,224,3,45,0)"
^XMB(3.9,23,2,15968,0)="MJ/E1+*Y,[E1E8$L4?Y-MA7XGY-[O[IC+B_2Q,1EM;4RX_!X*)K'\&N;C!V%C"
^XMB(3.9,23,2,15969,0)="""DATA"",396.18,224,3,46,0)"
^XMB(3.9,23,2,15970,0)="M,JC06^Y<?HDYER$._*<4J?=9E9&]W@!-U1:W71O7B7Q<]LPRMR_+.CQY/S8L"
^XMB(3.9,23,2,15971,0)="""DATA"",396.18,224,3,47,0)"
^XMB(3.9,23,2,15972,0)="MWWX_K6^.I6CC_\H`:QSP[RM*;(C&NV![P=""`Q845IQ:@WO`8+.T,2+R!S0VW"
^XMB(3.9,23,2,15973,0)="""DATA"",396.18,224,3,48,0)"
^XMB(3.9,23,2,15974,0)="M1G[AN%Z]<99R:*N&J97P'&8TB*T@=4>P)$3YJF""]=3""U<T.+)C&YE4#NHSWQ"
^XMB(3.9,23,2,15975,0)="""DATA"",396.18,224,3,49,0)"
^XMB(3.9,23,2,15976,0)="M>D<X\<K5(S9`,9SB&/[<]XP/B1AQ=F:VKXSK(TL.4W&`H7ET;;&_MBWD'QN"""
^XMB(3.9,23,2,15977,0)="""DATA"",396.18,224,3,50,0)"
^XMB(3.9,23,2,15978,0)="MY?+JIA.+?3#RW)[RC3^-G43LFM6QAMP>*^8""J\Z#ZOC;_JJ?\SDVF_)797\$"
^XMB(3.9,23,2,15979,0)="""DATA"",396.18,224,3,51,0)"
^XMB(3.9,23,2,15980,0)="MC2KSR;5ZFE573HI2R+.^@'0TGR-]ED(4TBD""'"":=-SFO5Z/M@7F:%$SZ$L_S"
^XMB(3.9,23,2,15981,0)="""DATA"",396.18,224,3,52,0)"
^XMB(3.9,23,2,15982,0)="M9-R07((G8TI(5*]L,8=+WC_GBVE\=\0T<<VRZ\A(W+.B&]0_UBW`28R*7F\@"
^XMB(3.9,23,2,15983,0)="""DATA"",396.18,224,3,53,0)"
^XMB(3.9,23,2,15984,0)="MW2;^/G&T`*;%EA]US%CW9!MX%K$:#;""_JF1_OB_VI];)`-^W_(_W)OUI2?KC"
^XMB(3.9,23,2,15985,0)="""DATA"",396.18,224,3,54,0)"
^XMB(3.9,23,2,15986,0)="M/Q_IRO^IOOA_USR/]*L`A469&),8K,7H@=UE].$""""1\K>K6JESW#;2:.KB#["
^XMB(3.9,23,2,15987,0)="""DATA"",396.18,224,3,55,0)"
^XMB(3.9,23,2,15988,0)="M)@29TJ/Q!622TAL($>""H=]P/]L3LC""SL.W&[OY+K?8+;$""!7(%YVJ'Q[)GU]"
^XMB(3.9,23,2,15989,0)="""DATA"",396.18,224,3,56,0)"
^XMB(3.9,23,2,15990,0)="M`#D^V!O'L[)XO]61X<23]A=[G)#X386[A-S:`>1SHC<^YP*2_59WR4[W5U=O"
^XMB(3.9,23,2,15991,0)="""DATA"",396.18,224,3,57,0)"
^XMB(3.9,23,2,15992,0)="MY_2&;5GU`\CJH=Y8+4?3\7\7G*XH.=U?!\.QHJ4;F.8(>);F`')YN..FF@6"""
^XMB(3.9,23,2,15993,0)="""DATA"",396.18,224,3,58,0)"
^XMB(3.9,23,2,15994,0)="M\:^QJ/L:9^RZG[G\UD'(7"";$)G.LU<;)FV)XP7J8`S^MV%4_HMI5%VN6C<I$"
^XMB(3.9,23,2,15995,0)="""DATA"",396.18,224,3,59,0)"
^XMB(3.9,23,2,15996,0)="M3DK(WH/M!#S[-""YOH;NW$X1+^GEYC/.<0QF?0T]+%?W\_JCH]Q*<<[D8HJ;F"
^XMB(3.9,23,2,15997,0)="""DATA"",396.18,224,3,60,0)"
^XMB(3.9,23,2,15998,0)="M<\+4?"",2]IXS_5F:R4L6IGMW,#0FU7!BX&$L4%T2W6[I$*""7;`P^%?#M]0V\"
^XMB(3.9,23,2,15999,0)="""DATA"",396.18,224,3,61,0)"
^XMB(3.9,23,2,16000,0)="M>EO+[4GLDY1[?Q9*""M[3<5<;NZ5N!2ZB*2JB<WRML)\37#H(.<&AL'KG>1=C"
^XMB(3.9,23,2,16001,0)="""DATA"",396.18,224,3,62,0)"
^XMB(3.9,23,2,16002,0)="MA>(>X[A?41BO*97Q$DU[JV""V:);LF@4;+@@U%K=1'73,/KN7;%F>:^0S0>?_"
^XMB(3.9,23,2,16003,0)="""DATA"",396.18,224,3,63,0)"
^XMB(3.9,23,2,16004,0)="MGB*3_L4BR9.3?+96)YWT):P!5)Y""K^JLC;ZLVV6OS@H&--=/'CH-7-;!J8K>"
^XMB(3.9,23,2,16005,0)="""DATA"",396.18,224,3,64,0)"
^XMB(3.9,23,2,16006,0)="M1%8!,9""YX:$-FB(\54:>P_H386\'.PSPO_#\E#\3[%QA!'@'V?M9#=TRQ6`."
^XMB(3.9,23,2,16007,0)="""DATA"",396.18,224,3,65,0)"
^XMB(3.9,23,2,16008,0)="M!,KDH_`$;6S8:)/NO2>[U@^FTQ+JF,E!_U<D;,(SZ*SV//L#X`-4HA:=XBWT"
^XMB(3.9,23,2,16009,0)="""DATA"",396.18,224,3,66,0)"
^XMB(3.9,23,2,16010,0)="MCVJ^C,SE'Q5<GE!D73]:DB>L6P#?T&]BHWGKDP>6^$TQ^;!B\CR6)R>A3Z=)"
^XMB(3.9,23,2,16011,0)="""DATA"",396.18,224,3,67,0)"
^XMB(3.9,23,2,16012,0)="M=YHS)\_YJV+.OU#,6:K(<QIDH\D!(T;""&?K,K2'0I7SJ?#Y%TLDE4?6[50+S"
^XMB(3.9,23,2,16013,0)="""DATA"",396.18,224,3,68,0)"
^XMB(3.9,23,2,16014,0)="M,H&O""0*_J2!0+\L$^M5'],'0.273^3>""SH\KZ'RBZM.Y!-/1R!6FL<#$`E4T"
^XMB(3.9,23,2,16015,0)="""DATA"",396.18,224,3,69,0)"
^XMB(3.9,23,2,16016,0)="M]>YXS!-:'ON5[?+""8IWX2**FGD'51T')K""Q&?M+]#Q2&XA<6=9K^=YL-K#4A"
^XMB(3.9,23,2,16017,0)="""DATA"",396.18,224,3,70,0)"
^XMB(3.9,23,2,16018,0)="MWM#*5KT!^P!,-)<:19;`P65R&$<#&U(7!4,B`CHYIE/54`/XU[!I.8VEUO@@"
^XMB(3.9,23,2,16019,0)="""DATA"",396.18,224,3,71,0)"
^XMB(3.9,23,2,16020,0)="MU*20V@2K%[*\%@0']&R/0T_R$$X+J^#2:BLS/%VMPJPLM+$B1_BJ@M7%-2(#"
^XMB(3.9,23,2,16021,0)="""DATA"",396.18,224,3,72,0)"
^XMB(3.9,23,2,16022,0)="MG`H!D50$'5)MU^`_8""LI3W,#6(78R=HB#PV\@0R0&7*X8<,DM4""M4;-A+&=."
^XMB(3.9,23,2,16023,0)="""DATA"",396.18,224,3,73,0)"
^XMB(3.9,23,2,16024,0)="MG<IF?2SQ0VP??#3:^WFC6ZP$S@9*!:.<""V=]+NBRU^>N/%$VEO7ZKC89#2NJ"
^XMB(3.9,23,2,16025,0)="""DATA"",396.18,224,3,74,0)"
^XMB(3.9,23,2,16026,0)="MQ#Q>*E$DXYQSI;`?3ZZMKZXMKA>7%@M[R3?/\@:0>RG]CW+Z/Z)H3X-XG$C>"
^XMB(3.9,23,2,16027,0)="""DATA"",396.18,224,3,75,0)"
^XMB(3.9,23,2,16028,0)="MA70ZNXN]>1+E,S+E_+1G_.<4_O4^)IE%O.U>""$=3G80TDY;V$7YKS-?]T/17"
^XMB(3.9,23,2,16029,0)="""DATA"",396.18,224,3,76,0)"
^XMB(3.9,23,2,16030,0)="M#D)H.A+FZTSPL(G86-_9ZTFQ%9@%0M,%L*28]-,T=U_<I:Q!FONZXQ3<O1S<"
^XMB(3.9,23,2,16031,0)="""DATA"",396.18,224,3,77,0)"
^XMB(3.9,23,2,16032,0)="ME\6JQG(""W-C;L$&ZMEI<G-/J#%'91S1!(\0GYUO]/0W/;H!A="";`Z,)>D)PM"
^XMB(3.9,23,2,16033,0)="""DATA"",396.18,224,3,78,0)"
^XMB(3.9,23,2,16034,0)="M,YJBFT:X9RO8(D)<(C))<-H:B70(L<-INBFWC%A;)KR%^""RRVX07M(6%A@3D"
^XMB(3.9,23,2,16035,0)="""DATA"",396.18,224,3,79,0)"
^XMB(3.9,23,2,16036,0)="MV*D)@U-WZ'BE%\#C38I5T,W>J*YCPE6(*UR9Q`EX*XTI"".FZ^8)GT\BB`K(-"
^XMB(3.9,23,2,16037,0)="""DATA"",396.18,224,3,80,0)"
^XMB(3.9,23,2,16038,0)="MWF1""\^.W!NUJ@C=10,0'[8`G@&526R+>ND+<N<6;E6BGE4T_5D<W:7*/^36M"
^XMB(3.9,23,2,16039,0)="""DATA"",396.18,224,3,81,0)"
^XMB(3.9,23,2,16040,0)="M0FBK\_(7\<7P&1ED@[E-5&$%A:!KI!Z:^$]5JY4L)MPLNM0COB-""HO]66)<<"
^XMB(3.9,23,2,16041,0)="""DATA"",396.18,224,3,82,0)"
^XMB(3.9,23,2,16042,0)="M]],02&SJ%=K+0&*(,\Y9FOOU&@T(@=K]MW+.&7G.1>&%GPM/>9Q/B;<;!@(."
^XMB(3.9,23,2,16043,0)="""DATA"",396.18,224,3,83,0)"
^XMB(3.9,23,2,16044,0)="M;=6::L^>XX<!<LRSOQSR[%I'SSY\^T7J&6Y!-:IK3W,>7O(-R<-^(B;77R+F"
^XMB(3.9,23,2,16045,0)="""DATA"",396.18,224,3,84,0)"
^XMB(3.9,23,2,16046,0)="M,3\1(W3IIFEM,5VK6Y[I\@:P\TS4`I(HI64Z)DSZ33G-\!)9([HCTGQ_980/"
^XMB(3.9,23,2,16047,0)="""DATA"",396.18,224,3,85,0)"
^XMB(3.9,23,2,16048,0)="MAY`V;*\"",`S2[&96#.QK6'_`>BMT<U_`5K""UIU0NX4Q?P#ZRTQ(Z\AK6P9S7"
^XMB(3.9,23,2,16049,0)="""DATA"",396.18,224,3,86,0)"
^XMB(3.9,23,2,16050,0)="M`#(84J-/H-'>@.;D%=P!:7\UM^GP$M+&2QJB\S4$?+A)+7H#W1+*WNKF,WQ#"
^XMB(3.9,23,2,16051,0)="""DATA"",396.18,224,3,87,0)"
^XMB(3.9,23,2,16052,0)="M:E""0ORU`_KBBL)CKKVR^<LDB)@Z4S=#Q)FYOA51Y"",$%K0JVW""SKI(^Q6D6Z"
^XMB(3.9,23,2,16053,0)="""DATA"",396.18,224,3,88,0)"
^XMB(3.9,23,2,16054,0)="MW2?T@5#>.Y>2#>F_1=J[N44G$DE\YU+[(/$]&(:8EB$6HB&(#[<@9F?V`<3>"
^XMB(3.9,23,2,16055,0)="""DATA"",396.18,224,3,89,0)"
^XMB(3.9,23,2,16056,0)="MRH@S4[(`WQ4-""?!DR]#VU_;T>)L`(ZU@49F$,.$FB4D@EB!FEL8\N`P_D7YC"
^XMB(3.9,23,2,16057,0)="""DATA"",396.18,224,3,90,0)"
^XMB(3.9,23,2,16058,0)="M</``D00N(.<\[]""?]""8Z)<:S<NWFF&@_]'<?6P=A]Y$,'Y?BGO3OV>9CA./^"
^XMB(3.9,23,2,16059,0)="""DATA"",396.18,224,3,91,0)"
^XMB(3.9,23,2,16060,0)="MFN)`P@.JS<>3I/M9*^@;>^$\0@L5C^SNI*!.\R#L8^'`;JR((9""%T->S23TO"
^XMB(3.9,23,2,16061,0)="""DATA"",396.18,224,3,92,0)"
^XMB(3.9,23,2,16062,0)="M?'<-=U._&PF,=%]XI,2:9SC*,3)\C*>B@3%6%(?RUK'3T($:RV8G'Y3#Y0,D"
^XMB(3.9,23,2,16063,0)="""DATA"",396.18,224,3,93,0)"
^XMB(3.9,23,2,16064,0)="MK?+A3BL.R=V@3Y2#\(30NVP0Q`=Y2(4+@H.*HZHR\(;,&\R%ORW,_BN^[,S["
^XMB(3.9,23,2,16065,0)="""DATA"",396.18,224,3,94,0)"
^XMB(3.9,23,2,16066,0)="MH[B,%&W9@AW""&>!X&;.@<8L]-\ASLJE`_&(?DN@SP,""=U<X@4!JR:>-OU5GR"
^XMB(3.9,23,2,16067,0)="""DATA"",396.18,224,3,95,0)"
^XMB(3.9,23,2,16068,0)="M+Z,U,4@:A&=@'""HL-0=R1T]-L.W2V?>KY_4VSWV'&<?3?^_VP;@K9-NA8-P&"
^XMB(3.9,23,2,16069,0)="""DATA"",396.18,224,3,96,0)"
^XMB(3.9,23,2,16070,0)="M>?Y]PS@NM=\+:M)26&H/7S0LJT(P.DX'U9Y*RS9""J-$IA1JQ)W-[(@DWQ97N"
^XMB(3.9,23,2,16071,0)="""DATA"",396.18,224,3,97,0)"
^XMB(3.9,23,2,16072,0)="M3(R2/<7)'@R3'3VO^GC`,+[,/WVW0NTO>KI1V2.89P,6[^7.U]4-KUD.->5["
^XMB(3.9,23,2,16073,0)="""DATA"",396.18,224,3,98,0)"
^XMB(3.9,23,2,16074,0)="M@N[I5,#P""Q$[J;AF#]1[CPC8;%Z2D/CG(YU%9'""59,!\6Z$::TI>N-L<C'>T"
^XMB(3.9,23,2,16075,0)="""DATA"",396.18,224,3,99,0)"
^XMB(3.9,23,2,16076,0)="M"">47W/RXXL(I_QHYEJ/;(,R5AE8<O.8IV`O18""K(3]O<WS%M<ZR_<]`Y6?^R"
^XMB(3.9,23,2,16077,0)="""DATA"",396.18,224,3,100,0)"
^XMB(3.9,23,2,16078,0)="MXBZ\2/L-4>GI=#[?=O8C,$XP"".@R4'HZEVZ[!HA\/ND?S,X&A+3;2#.YJ;:C"
^XMB(3.9,23,2,16079,0)="""DATA"",396.18,224,3,101,0)"
^XMB(3.9,23,2,16080,0)="MR\&1`JL=>ZX]II""Q9;IN1(XKKF62>L_\@EG\-WTJ'^#[D*E,GWVCX]S!EFO("
^XMB(3.9,23,2,16081,0)="""DATA"",396.18,224,3,102,0)"
^XMB(3.9,23,2,16082,0)="MW,""[WMT_0.X130R0.""DQ0)Q^ATC^<""0R4ERPZB7KHK5]B/*+_Y`.1&6:8-6/"
^XMB(3.9,23,2,16083,0)="""DATA"",396.18,224,3,103,0)"
^XMB(3.9,23,2,16084,0)="M*64LYZM%DA`B5*DUSY$0@8]IZ50B1OYFX&\VE4CF4JQ<:Y/23@>J^#;CO9ZH"
^XMB(3.9,23,2,16085,0)="""DATA"",396.18,224,3,104,0)"
^XMB(3.9,23,2,16086,0)="MRNY$U=%^J6H7U>F`+>%""'SNCD/EL+I#T:1^(AW+YV,X#917WQ[4&FI4-0R?="
^XMB(3.9,23,2,16087,0)="""DATA"",396.18,224,3,105,0)"
^XMB(3.9,23,2,16088,0)="M&9C.IK-=N]L5JL.W\(MTY.M\Y*?:%0=&[IQF&Y85I]-F>T`WR[5$K%R/]-L7"
^XMB(3.9,23,2,16089,0)="""DATA"",396.18,224,3,106,0)"
^XMB(3.9,23,2,16090,0)="MSNOAL2/!>'C(SS*D1)9A)I_OC4BNW?<L>#;1'LWT@$Q^B),4^#UG]U7]""H2H"
^XMB(3.9,23,2,16091,0)="""DATA"",396.18,224,3,107,0)"
^XMB(3.9,23,2,16092,0)="MB>0J1.DL0@<G6,(.3HQ>)QD._FQL!1DF20&1L^Z)D054KI$#VN4.=F$\`MQ?"
^XMB(3.9,23,2,16093,0)="""DATA"",396.18,224,3,108,0)"
^XMB(3.9,23,2,16094,0)="MUAU7*""!_W6;F/Q$R\Q6?Q;F9\<5MLL/'E0)MYPAJ8:?>Z\2\B[;U<F)XGA3"""
^XMB(3.9,23,2,16095,0)="""DATA"",396.18,224,3,109,0)"
^XMB(3.9,23,2,16096,0)="M-N!5LN""""0\3D?8GD55S7&P8FS\>O4^TFNY4M9-SDOC\RNN(9KLZF'&DA&NMH"
^XMB(3.9,23,2,16097,0)="""DATA"",396.18,224,3,110,0)"
^XMB(3.9,23,2,16098,0)="M4P*1RJ<B79QI/I?J8$F&V^$,S;-=4V)XQ7-(YXR=&+QL(]U(#""XC\V8S,5AX"
^XMB(3.9,23,2,16099,0)="""DATA"",396.18,224,3,111,0)"
^XMB(3.9,23,2,16100,0)="MT4.N(+HC<<'09P?J,AVH2W9B]E#!M<CUOXF1PA9JGBN!2""9&+AO(92^'GV@V"
^XMB(3.9,23,2,16101,0)="""DATA"",396.18,224,3,112,0)"
^XMB(3.9,23,2,16102,0)="M:I9+5F,9-(6]*AB65R9""=&B%E$>1W3Q'FGE:2-I2GOQ4C(#PI3""$!R4(V?UT"
^XMB(3.9,23,2,16103,0)="""DATA"",396.18,224,3,113,0)"
^XMB(3.9,23,2,16104,0)="MPG0T#%;>&.V$-;V?L(9OGA/7'7/OQYU-_`OMMH#DLO.S^PGKH4[)7:Z-?\E"""
^XMB(3.9,23,2,16105,0)="""DATA"",396.18,224,3,114,0)"
^XMB(3.9,23,2,16106,0)="MTT^VGUV(?^4@'-H851W:X*69AP*])>\HTKOWJ]*[K8M""]E(/E8@7S@=NF_EC"
^XMB(3.9,23,2,16107,0)="""DATA"",396.18,224,3,115,0)"
^XMB(3.9,23,2,16108,0)="M1:_`H[QP7ZY9L&NC^2]B\TBO`+G#`!""+V\1W9??MN^HQR57G9'#G0N""NMV*A"
^XMB(3.9,23,2,16109,0)="""DATA"",396.18,224,3,116,0)"
^XMB(3.9,23,2,16110,0)="M;%^.>O""BC<K@UU9-K""V`4B1&BEL6?>4D$C?`$6,;HA'R2]MS(9(;H[^FK['3"
^XMB(3.9,23,2,16111,0)="""DATA"",396.18,224,3,117,0)"
^XMB(3.9,23,2,16112,0)="MR3NK+WWD(6>-&M//'I@['Z6&2EXMNH<NTIU\D;[B5XL^<Q""J16.*FT:X(?UT"
^XMB(3.9,23,2,16113,0)="""DATA"",396.18,224,3,118,0)"
^XMB(3.9,23,2,16114,0)="ML%STFJ)7;4YE3Y:MK9VO5MG-J\X5/3TB\?0HV[N^())#3]]^MVZRR#V:M4UO"
^XMB(3.9,23,2,16115,0)="""DATA"",396.18,224,3,119,0)"
^XMB(3.9,23,2,16116,0)="M$O=_XKGID8""!>UTZI7/RJF6_Y+O#R2*H-FG:&CE.G&+K^3I):L0OQ4X&'_MO"
^XMB(3.9,23,2,16117,0)="""DATA"",396.18,224,3,120,0)"
^XMB(3.9,23,2,16118,0)="M3\Y[KL6>JZZTEQ:>QPQ_$@ET9^ZA*V;"")*=D)O)\8?Q-A9>8H%=P&%0V6U=`"
^XMB(3.9,23,2,16119,0)="""DATA"",396.18,224,3,121,0)"
^XMB(3.9,23,2,16120,0)="M5%NR:;1D4U5*$%U?GPBD)N-_JICJW#JO=]WJ7/F<A""K^UR)0'5>T[!?\/*@T"
^XMB(3.9,23,2,16121,0)="""DATA"",396.18,224,3,122,0)"
^XMB(3.9,23,2,16122,0)="MO+@DBXPOWWC%BT0EC(B[F-!*R*#W@]$>&=MJ>(9#;[_HB?4\FN8,V:M4YGAA"
^XMB(3.9,23,2,16123,0)="""DATA"",396.18,224,3,123,0)"
^XMB(3.9,23,2,16124,0)="M]@ML@W,Z&@J$6^OV(9]*<12QC9:Y;KGK7#XP4UG,]%E5\W1X)A4RU2S3@5E>"
^XMB(3.9,23,2,16125,0)="""DATA"",396.18,224,3,124,0)"
^XMB(3.9,23,2,16126,0)="MCX;JBJU9[@[/PGG9?0J^L&?8PKXGIO@UQ10/MZ7A.\BX-%TOY]JGY7MXA!EZ"
^XMB(3.9,23,2,16127,0)="""DATA"",396.18,224,3,125,0)"
^XMB(3.9,23,2,16128,0)="MPY_^=*L?I;^NL8=;MT2%M',_7Q*5#]CMDR&[G9%N%)W=9[=$)8NKZSQHIN[3"
^XMB(3.9,23,2,16129,0)="""DATA"",396.18,224,3,126,0)"
^XMB(3.9,23,2,16130,0)="M_RDK6_X?XICO]S'7)<S3?<70+#U_=RM6(7[J!0M&T^H6JSR3M)%!BN[H)L!S"
^XMB(3.9,23,2,16131,0)="""DATA"",396.18,224,3,127,0)"
^XMB(3.9,23,2,16132,0)="M$B,`""AE-\&&)H7D7-+G63(S1[Q@#_^B!H4O<L0S\(P/)]PPILV+CC$%$K@F"""
^XMB(3.9,23,2,16133,0)="""DATA"",396.18,224,3,128,0)"
^XMB(3.9,23,2,16134,0)="MX>'6JU9A9HS07-0;?B1Y0S<KUM;PLF5N$/X,=V%<)N#(GNO*N9F#QKEX#YQK"
^XMB(3.9,23,2,16135,0)="""DATA"",396.18,224,3,129,0)"
^XMB(3.9,23,2,16136,0)="M/_$_+7MC_Z1MBV'Y5BIE=E^EC<)=GJ+6@:*]@-U7^<#>K@D2QZKI-^'$SPO?"
^XMB(3.9,23,2,16137,0)="""DATA"",396.18,224,3,130,0)"
^XMB(3.9,23,2,16138,0)="M]ZKO?,ZT+CK(]G<)%CB?8#BA,:>\U_U-;_4=$;,RQM7%!JJAX%M_3:0GEAPI"
^XMB(3.9,23,2,16139,0)="""DATA"",396.18,224,3,131,0)"
^XMB(3.9,23,2,16140,0)="M.-HG/.NM\S:?EWGVZUUX-M7?08!C2XX?-N\/AO46&>:G9(:]*[3SP6B88]/]"
^XMB(3.9,23,2,16141,0)="""DATA"",396.18,224,3,132,0)"
^XMB(3.9,23,2,16142,0)="M<>RC\S;FL6&W2%8<-VN+'O<Z=Q7U@51@'Y$5K'S'9^4CDJ'?5T%C,@PV'0#K"
^XMB(3.9,23,2,16143,0)="""DATA"",396.18,224,3,133,0)"
^XMB(3.9,23,2,16144,0)="M=`,[DTKO[RI7)A,`^Z7N*SN]G\"".A>.5J<!>]7\$V*=4QU)F]EV=2UWHXC':"
^XMB(3.9,23,2,16145,0)="""DATA"",396.18,224,3,134,0)"
^XMB(3.9,23,2,16146,0)="M[['MGLTAI_U""UU</0J'KD""+CE)&_.""/)<8\J\M(/*[].E]KU=2GKM*?N)LO*"
^XMB(3.9,23,2,16147,0)="""DATA"",396.18,224,3,135,0)"
^XMB(3.9,23,2,16148,0)="MS4'B;K*7PRF7>]M2+G(:;5>^GTA1&^*U.YLJY6^\[U^UVU+_K/35GOYE;/_K"
^XMB(3.9,23,2,16149,0)="""DATA"",396.18,224,3,136,0)"
^XMB(3.9,23,2,16150,0)="M!^M.2_FGTOOOJW:E>Q.XN_Y%IO--CO1%7^?_JF>=9VL1V_L68%Q5ZN81\^.!"
^XMB(3.9,23,2,16151,0)="""DATA"",396.18,224,3,137,0)"
^XMB(3.9,23,2,16152,0)="M6__WZ5>KR+AXCF%)_M+H&%*<4K]LV=KB_,)5K:*C#=-R=*F""(`\X(P]X@0\X"
^XMB(3.9,23,2,16153,0)="""DATA"",396.18,224,3,138,0)"
^XMB(3.9,23,2,16154,0)="M$AXPEIY4?I[W*CY+/_\89_2W(N'<_K/D&^?)P1,@3""K!RW<#8>W4FFV!XZUK"
^XMB(3.9,23,2,16155,0)="""DATA"",396.18,224,3,139,0)"
^XMB(3.9,23,2,16156,0)="M),5RBMV)@$@>UG'(B4!R%QF]Z(_>(^0CF]SA/H&4C/&9+A@S2HSBNS.>#7P_"
^XMB(3.9,23,2,16157,0)="""DATA"",396.18,224,3,140,0)"
^XMB(3.9,23,2,16158,0)="MT;\H,%Y>;;""]P`3[0G)Z)S>Y0XW>%`6XG`EQ+1)!2YH]-1DQ^=I6L&4[P,G("
^XMB(3.9,23,2,16159,0)="""DATA"",396.18,224,3,141,0)"
^XMB(3.9,23,2,16160,0)="M<#:[P,FJX61E.)NAIH(6G.4E\_^[NYK?-HXKON1&:^O;=A([3NMB[2:H%=NQ"
^XMB(3.9,23,2,16161,0)="""DATA"",396.18,224,3,142,0)"
^XMB(3.9,23,2,16162,0)="M=D7*HNN*526X51O'L>)$EUR6Y$9<F"")I+BF'28&FEZ)H@<)(3P7Z'Q0(6O32"
^XMB(3.9,23,2,16163,0)="""DATA"",396.18,224,3,143,0)"
^XMB(3.9,23,2,16164,0)="MWI)#D%NO;=#T5""!(#RW:`#VW\^9[=H?4CNR8HG41M:0X^V;>SKS/WP^@[B@B"
^XMB(3.9,23,2,16165,0)="""DATA"",396.18,224,3,144,0)"
^XMB(3.9,23,2,16166,0)="M4_CFF^C&L6L3!M6ZF'[`8&I5J[UV0!TA>)P([XN@L-EOC0J24/8OK2%2%?12"
^XMB(3.9,23,2,16167,0)="""DATA"",396.18,224,3,145,0)"
^XMB(3.9,23,2,16168,0)="M%26IQ!=\7=/#\VJO@IRQ%_4)7MI?<M]2@,T>-AR3,-)\+?G5C_F&_=GC8*3-"
^XMB(3.9,23,2,16169,0)="""DATA"",396.18,224,3,146,0)"
^XMB(3.9,23,2,16170,0)="M:[HIZ<9S4:&,=+,::6M5W.C6!,3`VYT`3<IA,M(\A7J1`=W\5),8^QK>%3'I"
^XMB(3.9,23,2,16171,0)="""DATA"",396.18,224,3,147,0)"
^XMB(3.9,23,2,16172,0)="M%1$.(Z/Q0B3-0R,:6ZFJ_LZ21]&QKI]<1\_P#C22R@-='6%KGZZ0B\9L3F)I"
^XMB(3.9,23,2,16173,0)="""DATA"",396.18,224,3,148,0)"
^XMB(3.9,23,2,16174,0)="MWJ'2Q&EIGN&&+;`=X$@+5H!]VGKH@_8K\F!_8/!@VX;&YJ*R+A=2><GK$@+"""
^XMB(3.9,23,2,16175,0)="""DATA"",396.18,224,3,149,0)"
^XMB(3.9,23,2,16176,0)="ME3%+LVFKU#QYY9B\]Y/R/E$JKA23>:)'Y(@,RT;-7@]VX:Q"":U<).XYS'4U="
^XMB(3.9,23,2,16177,0)="""DATA"",396.18,224,3,150,0)"
^XMB(3.9,23,2,16178,0)="ML^9,O-Q#]^3,X%_?B,%.#+7II'VRKT(OY&E""FT$2+9SA)V""]*(Z37C""B]?G;"
^XMB(3.9,23,2,16179,0)="""DATA"",396.18,224,3,151,0)"
^XMB(3.9,23,2,16180,0)="MZ%(EK`$@;J75NH,;4-1+=`Y(BTR>3L&_>3'3^[EY]/FA$L_R#V""A)Y'070PO"
^XMB(3.9,23,2,16181,0)="""DATA"",396.18,224,3,152,0)"
^XMB(3.9,23,2,16182,0)="M-\?>8-O2#+N@40_^+70&I""XG]!K]\4JP$UIR?<$S4A,P4GNTF\HE6V<THO(W"
^XMB(3.9,23,2,16183,0)="""DATA"",396.18,224,3,153,0)"
^XMB(3.9,23,2,16184,0)="MJ?U)]@..1,J%?B_WI%K!12JU/K*,""KO^D!M4V#6QUHAVFD>.!@VT8:%%E0N]"
^XMB(3.9,23,2,16185,0)="""DATA"",396.18,224,3,154,0)"
^XMB(3.9,23,2,16186,0)="M%-O!J<20F1VEI0`]%#B$SWHHV!]4<4@R^O5DNM%^(S?2PE&-"">!++)CVW]FJ"
^XMB(3.9,23,2,16187,0)="""DATA"",396.18,224,3,155,0)"
^XMB(3.9,23,2,16188,0)="MOZ>Q`<[Q`ZW;;V-HZ93Q/$(^:4FD95FD,RR&^H7&<UCEN$L1<B'VHEH/206E"
^XMB(3.9,23,2,16189,0)="""DATA"",396.18,224,3,156,0)"
^XMB(3.9,23,2,16190,0)="M?`#5TNG6H5\EJH)W1,OZT(X"">+""-"",R[\C""Z.$U7&W5H;*P;""_2V?FXEXMC`"
^XMB(3.9,23,2,16191,0)="""DATA"",396.18,224,3,157,0)"
^XMB(3.9,23,2,16192,0)="M*&S&!_75314[2F9X'`.$^0PSY\LSQ\(D'R8;76#FS)+8SV^F4+=VD;>#H=/0"
^XMB(3.9,23,2,16193,0)="""DATA"",396.18,224,3,158,0)"
^XMB(3.9,23,2,16194,0)="M%MF):K5P'`JH,N0:V;%.YO`6G</_I+D*BX:,!Y?7@Z:*68G-7#1__1:@)=-N"
^XMB(3.9,23,2,16195,0)="""DATA"",396.18,224,3,159,0)"
^XMB(3.9,23,2,16196,0)="MQEIK-ZI&C?""PSZ:=*D=3=L@OV`[YOW0)17%E'%""T'#VGP[(2D;TRV.TXLA5>"
^XMB(3.9,23,2,16197,0)="""DATA"",396.18,224,3,160,0)"
^XMB(3.9,23,2,16198,0)="M0OMB,SNK0Q;M+,C</R56.O`Z&_XL;V7S_8SU%@8`6]GZ^0OR`W27JL$$-XN["
^XMB(3.9,23,2,16199,0)="""DATA"",396.18,224,3,161,0)"
^XMB(3.9,23,2,16200,0)="M0@T*9MOW#<4_)(BP48Q!0LNC>4:0*0:E;V?E\$6[5T'+""3?9C`&NE!2N?47Y"
^XMB(3.9,23,2,16201,0)="""DATA"",396.18,224,3,162,0)"
^XMB(3.9,23,2,16202,0)="M2""?:PS3%83VJ-D+GG/PF)E_`@(80-6BCD]7=""X!N3/I,L%OIX3(/YL$,)*73"
^XMB(3.9,23,2,16203,0)="""DATA"",396.18,224,3,163,0)"
^XMB(3.9,23,2,16204,0)="MJ?`5187OFJCPQ#XJK$-$+\C#V=_,F8RW'W+J(/.2CGF!V)=VDK_!_FV.#_JM"
^XMB(3.9,23,2,16205,0)="""DATA"",396.18,224,3,164,0)"
^XMB(3.9,23,2,16206,0)="M-0$I+,$)4[IL5[!C$RN.TF)?KH&5WHE'::;F-3:=W!AAKS&;+J?IY5C91LI7"
^XMB(3.9,23,2,16207,0)="""DATA"",396.18,224,3,165,0)"
^XMB(3.9,23,2,16208,0)="MQ_)=JD)0/KX#6)G0C2&?4CW>T$U9M<J/WG@=6NK/XM]'58ZBTZ+N@8O\HV2U"
^XMB(3.9,23,2,16209,0)="""DATA"",396.18,224,3,166,0)"
^XMB(3.9,23,2,16210,0)="M3Z55Z[OMH-/%8,IQ/X;LA2#6I""C.`8Z4)^&GA^H*?#9%E5X^9)A;-+M(9BY_"
^XMB(3.9,23,2,16211,0)="""DATA"",396.18,224,3,167,0)"
^XMB(3.9,23,2,16212,0)="MG#Z7?EI5IC:BM]^&PS0NZ[[&D[]FE7[-MS6(?&`E=/H8$4[[1;[\176ZD)]H"
^XMB(3.9,23,2,16213,0)="""DATA"",396.18,224,3,168,0)"
^XMB(3.9,23,2,16214,0)="M7""S""'A7M\AZ1]`I!P@;ODMU0.Y:B-9]82;(!'>204`S#S@9/(:'\HY5$HSXK"
^XMB(3.9,23,2,16215,0)="""DATA"",396.18,224,3,169,0)"
^XMB(3.9,23,2,16216,0)="MCD3/""`,CYQY^*W$`B((\_YS67#RT3TO5Z(,`'M+'\<M`C>L<>XD3N]P+PSN-"
^XMB(3.9,23,2,16217,0)="""DATA"",396.18,224,3,170,0)"
^XMB(3.9,23,2,16218,0)="MOO/L-OX-^3A7L+[@!]1YZB9H$,63@4T.7>\[4^NM)G1'(P]G,!#$%5F&&T-E"
^XMB(3.9,23,2,16219,0)="""DATA"",396.18,224,3,171,0)"
^XMB(3.9,23,2,16220,0)="M\`;(D-,7TQ_'#,#G6]5J$.,DW(+SY`U&!AS7D5EQ""9#;G1/\(C)$=LBU.7ZM"
^XMB(3.9,23,2,16221,0)="""DATA"",396.18,224,3,172,0)"
^XMB(3.9,23,2,16222,0)="M@G8YEQ,&2_]VC%X2_S1-K\""_#!9X11;XK6$""+Y4&"")P?L&BG;G)9T4*=OT:7"
^XMB(3.9,23,2,16223,0)="""DATA"",396.18,224,3,173,0)"
^XMB(3.9,23,2,16224,0)="M;L$Y0=?NO,<6:<$Y*58'MQPVPZ""#/FL-:7^0VR[M6[G4O6])B^4;M3^<7B<>"
^XMB(3.9,23,2,16225,0)="""DATA"",396.18,224,3,174,0)"
^XMB(3.9,23,2,16226,0)="M,1R.+KI[7D,:.S.OPNE*68^=4QN`68CQ]P4S+[QQY#N$YLXY^EU@-H57DYR)"
^XMB(3.9,23,2,16227,0)="""DATA"",396.18,224,3,175,0)"
^XMB(3.9,23,2,16228,0)="MT[S982)SLP/WW93=\!_I,_2FB!R4QJS503(1YY0(9%$.0;Z0ZGBX,-JX*;.D"
^XMB(3.9,23,2,16229,0)="""DATA"",396.18,224,3,176,0)"
^XMB(3.9,23,2,16230,0)="MCPM+N@B<T(M*[1/KTOX7/R3/""/BSK;""*SI'8W0KWHO#>"",RV[+GT`6:\+R]1"
^XMB(3.9,23,2,16231,0)="""DATA"",396.18,224,3,177,0)"
^XMB(3.9,23,2,16232,0)="MNBGE@GS0Z%P/7YZKJ2%S-2.7""!G<M[5O=F'VE7H_QE%@X!/,G&/P-#F&/+]Q"
^XMB(3.9,23,2,16233,0)="""DATA"",396.18,224,3,178,0)"
^XMB(3.9,23,2,16234,0)="M2YMA^-PLPW#_\<XPT,=[0O$`!67@XN%XO*6,-K4FYA5E_8N5IA>9EI""Y'_P9"
^XMB(3.9,23,2,16235,0)="""DATA"",396.18,224,3,179,0)"
^XMB(3.9,23,2,16236,0)="M6Y;GB;&&?LJS6;>$ISS]\'`<'DYZ1M1.T$K_GY%Z\#]9J0I!B6-&:DKO8""^P"
^XMB(3.9,23,2,16237,0)="""DATA"",396.18,224,3,180,0)"
^XMB(3.9,23,2,16238,0)="M%G:1)8@KH:3VCUH4$U\BPEQO6<S\HFP>,9SYY5RJ@7G%D+ED-1DZ!FPU3@R("
^XMB(3.9,23,2,16239,0)="""DATA"",396.18,224,3,181,0)"
^XMB(3.9,23,2,16240,0)="MO1X.YH-K0IK$O26T$%\&2PO+'1%15U*4/M_GN>\ESTS69S>8($S8*A58H/KE"
^XMB(3.9,23,2,16241,0)="""DATA"",396.18,224,3,182,0)"
^XMB(3.9,23,2,16242,0)="MN0F2%`@9\\@DA)FAD-CU%M*P4Z^U,>=I>,^M8[.KYO8AB./,D3>\R[Z[B\PM"
^XMB(3.9,23,2,16243,0)="""DATA"",396.18,224,3,183,0)"
^XMB(3.9,23,2,16244,0)="MY\0J?@UNPC77(]<<^OOH*KUB3(CBR7Z""_1.FG'^V-!B(9DUR""RD^%""!3Q.!'"
^XMB(3.9,23,2,16245,0)="""DATA"",396.18,224,3,184,0)"
^XMB(3.9,23,2,16246,0)="MP$]%'6!C(H5L#""@,UY*(]?N!T(Z8ASY+6Y8(!%Y:5VAI90%!&QIA0'E18'F%"
^XMB(3.9,23,2,16247,0)="""DATA"",396.18,224,3,185,0)"
^XMB(3.9,23,2,16248,0)="M;'92MIG7FJQ./JPAIXI2_>)P%[""*L?""I:;NH$CD1V>#--*IER3#(O;8&X2@2"
^XMB(3.9,23,2,16249,0)="""DATA"",396.18,224,3,186,0)"
^XMB(3.9,23,2,16250,0)="M1!+8!/%%7#:+^;?$#B4'JGA&KOR@$7V=N'1[?3<G,S/:/]""(6S1+R9:Y`E?#"
^XMB(3.9,23,2,16251,0)="""DATA"",396.18,224,3,187,0)"
^XMB(3.9,23,2,16252,0)="MSAY>G!CHX]TZK'!#Z2@GO>28-""T$7TMMP,L@[&0V87U%V&M#A%TQ$W:#""XLV"
^XMB(3.9,23,2,16253,0)="""DATA"",396.18,224,3,188,0)"
^XMB(3.9,23,2,16254,0)="M;F1KP:U7@LZ7*/%T-HD+BL0-*O%?+8W$9NV5%S=CKK""LA[+7;DL]E.AP3;>J"
^XMB(3.9,23,2,16255,0)="""DATA"",396.18,224,3,189,0)"
^XMB(3.9,23,2,16256,0)="M9I!L-ANDR+(LF?UK*R6:1'+SX**I[:$'%6T^V^Y+V\&H<T2/X/Q=)EA);+[>"
^XMB(3.9,23,2,16257,0)="""DATA"",396.18,224,3,190,0)"
^XMB(3.9,23,2,16258,0)="MHE%0\:GM>A@VJG6TM_#*U?(C+BXU##/J#6J:B&PJE-'9\DY/9,QS2:-1-)83"
^XMB(3.9,23,2,16259,0)="""DATA"",396.18,224,3,191,0)"
^XMB(3.9,23,2,16260,0)="M1-4^-!K.,4^KL?7_E*S_&9/AI@XP7$D9[B63X68.D#1<5(;[H<EP<P<8SI.'"
^XMB(3.9,23,2,16261,0)="""DATA"",396.18,224,3,192,0)"
^XMB(3.9,23,2,16262,0)="MLW]CM'C'#.N)?<57^1O;D\K\@`E%$M\;ATJ)XYG*`N38L3W+`K#GTCW\Q=*B"
^XMB(3.9,23,2,16263,0)="""DATA"",396.18,224,3,193,0)"
^XMB(3.9,23,2,16264,0)="MT4Y<HL5)F`>UVNIT0K#VW+T(`T<4+_N+&""[^7@O-(#0LX:AXV`_C,0!'R!!@"
^XMB(3.9,23,2,16265,0)="""DATA"",396.18,224,3,194,0)"
^XMB(3.9,23,2,16266,0)="MFKB-Y(XS!Y;\`P26_FL66-I]3`)+:;8:&GN=4F)*'VB2Z[6U&.H?.ZUV!]K<"
^XMB(3.9,23,2,16267,0)="""DATA"",396.18,224,3,195,0)"
^XMB(3.9,23,2,16268,0)="M.),N@;L+<9J`-EQU2>%DM1$UL?W;!35&7DNOT07>K&:MA]49^[.TV@6]#94E"
^XMB(3.9,23,2,16269,0)="""DATA"",396.18,224,3,196,0)"
^XMB(3.9,23,2,16270,0)="MARR=O""P7@.5/,V1+30CF^0TA.J1""M+*/!+4WD1:1*V1Y)>K'/#:VDA/68V$\"
^XMB(3.9,23,2,16271,0)="""DATA"",396.18,224,3,197,0)"
^XMB(3.9,23,2,16272,0)="M^HRS&,V*7[^32Y&6/\?.IZ7E);-XQ=7MD+JQ3,$A6M4@""Q^SIZ,&'8BX15'H"
^XMB(3.9,23,2,16273,0)="""DATA"",396.18,224,3,198,0)"
^XMB(3.9,23,2,16274,0)="M^AC4Y^Z_54]NL![+S-OUT@&VZU\8;==Y[W'=K:E;:^64[NI"">C^:7&_MXC#*"
^XMB(3.9,23,2,16275,0)="""DATA"",396.18,224,3,199,0)"
^XMB(3.9,23,2,16276,0)="MX>#I*M+HTA'EOCUM70YK!A_=9BEX%M3YOIKDT;7?M;AA6R@4QV""_M`<FCVG("
^XMB(3.9,23,2,16277,0)="""DATA"",396.18,224,3,200,0)"
^XMB(3.9,23,2,16278,0)="MA""R1"".F*1GE_M(6!.O[Z1=EXF4Y55PD>M.?0BZ!*BZB^1UBUKW-BZ35""+'VH"
^XMB(3.9,23,2,16279,0)="""DATA"",396.18,224,3,201,0)"
^XMB(3.9,23,2,16280,0)="MT\E)S2S)#]355$W_IJ27R^/1N)G!X5+*\M@I_D\KP4\^X7N^8>C+W0Z0=>NR"
^XMB(3.9,23,2,16281,0)="""DATA"",396.18,224,3,202,0)"
^XMB(3.9,23,2,16282,0)="M:/I-PM7L;H5W>^@85WIILB6<X.?_4$L#!!0``@`(`""UF,C77+3E?^R4``*M"""
^XMB(3.9,23,2,16283,0)="""DATA"",396.18,224,3,203,0)"
^XMB(3.9,23,2,16284,0)="M`0`>````06ED7V%N9%]A='1E;F1A;F-E7S$Q,RYP;FPN9G)M[%WK;]NXEO\^"
^XMB(3.9,23,2,16285,0)="""DATA"",396.18,224,3,204,0)"
^XMB(3.9,23,2,16286,0)="MP/P/P@""+M-A,*Y)Z%CM8I)GT<3=M@B0SQ6)Q,:!M.M94EGPE.:GGK]]#2I9%"
^XMB(3.9,23,2,16287,0)="""DATA"",396.18,224,3,205,0)"
^XMB(3.9,23,2,16288,0)="MBI)H)^[<//JE$2U;AS\>G1?/.4Q'?[)Q89W2$8NO5@MV-GV79O,WUI48^?$'"
^XMB(3.9,23,2,16289,0)="""DATA"",396.18,224,3,206,0)"
^XMB(3.9,23,2,16290,0)="MRSIET\+ZQ?H9A1Z_O$H7<.4$_.\OT:28P14)^=4'%EW/^*V(\,MCNBBB-('K"
^XMB(3.9,23,2,16291,0)="""DATA"",396.18,224,3,207,0)"
^XMB(3.9,23,2,16292,0)="M@T\G%^]/#G[\@263'W](&T_DS_KXZ^#3/*?Y-!3T/^WHXZ_*LV#DCW.:L-B!"
^XMB(3.9,23,2,16293,0)="""DATA"",396.18,224,3,208,0)"
^XMB(3.9,23,2,16294,0)="M1XD_&H]""CK]Y4F@WG^24']6/PD1\_""%*^-7!^=GY;^<'?.0MNV'QQR1A&8R/"
^XMB(3.9,23,2,16295,0)="""DATA"",396.18,224,3,209,0)"
^XMB(3.9,23,2,16296,0)="M;BYHE+.)^""#-)BR[+%8QXY_DEU%R'3-!<!JG_.YQ?!G%-RSC8^_2I'AU/*-9"
^XMB(3.9,23,2,16297,0)="""DATA"",396.18,224,3,210,0)"
^XMB(3.9,23,2,16298,0)="MSO@#?CUY=_3;Z=4?QQ^.+BY/KC9WU%]]&]/QUWJ\IO-GA.K!SW3.Q!I<6I<T"
^XMB(3.9,23,2,16299,0)="""DATA"",396.18,224,3,211,0)"
^XMB(3.9,23,2,16300,0)="MR:U+ED73@_KC-6G_]T\^=$XSEA3\`QAZ1^-<D'I%1V=\&C`FYM]`5:P;\ILK"
^XMB(3.9,23,2,16301,0)="""DATA"",396.18,224,3,212,0)"
^XMB(3.9,23,2,16302,0)="M6`/KH/*R6L/RHF89+R@'-NM8W=%<R6ABT61B'14%+""=-QNR-=985LW3!)M'X"
^XMB(3.9,23,2,16303,0)="""DATA"",396.18,224,3,213,0)"
^XMB(3.9,23,2,16304,0)="M]7F6YL6,%='8.EHLXHC?<%#^R#""2W5BVT22-X6X\542G^=LTGORS_$B/K&!2"
^XMB(3.9,23,2,16305,0)="""DATA"",396.18,224,3,214,0)"
^XMB(3.9,23,2,16306,0)="M#:""A%E!L-P$EMHRH8R,54:(B6EY;UL&O+!]GT8A9MS-:'%K1%'!>'5HTSZ.\"
^XMB(3.9,23,2,16307,0)="""DATA"",396.18,224,3,215,0)"
^XMB(3.9,23,2,16308,0)="MX#A:46YE[%_+*&,3JT@M.OESF1=65(@%F1U8_UG_5GIK3?FM,#\+EL-*&'PE"
^XMB(3.9,23,2,16309,0)="""DATA"",396.18,224,3,216,0)"
^XMB(3.9,23,2,16310,0)="MRM]4H'R!5^!+1CG)5]FR8]IOET61)IC`O,L_I8DCWV_.'(58GKKO*C/';HN7"
^XMB(3.9,23,2,16311,0)="""DATA"",396.18,224,3,217,0)"
^XMB(3.9,23,2,16312,0)="MCN,T7W-'@Z$KS,Z2XS@:?X6!;^7SWS-XF:.Q&-63_(G-4P3T\O][ELEQU&7"""
^XMB(3.9,23,2,16313,0)="""DATA"",396.18,224,3,218,0)"
^XMB(3.9,23,2,16314,0)="MK65:OPJ57,$$.V0OC(PUC'R<+K,(L/C,;K5L7#'P:92P'$8SD&`YC+^HU__@"
^XMB(3.9,23,2,16315,0)="""DATA"",396.18,224,3,219,0)"
^XMB(3.9,23,2,16316,0)="M91^+6];E.$OC^""U,`<;S_'>6P1M+X]92V#7.6MGMVOP?TDEP[#0T$Y$DN&M+"
^XMB(3.9,23,2,16317,0)="""DATA"",396.18,224,3,220,0)"
^XMB(3.9,23,2,16318,0)="M$IS8X1.7X$@G<$IL/:W4""8(F.[LR-^/6JV<HQB_83<1NK70*?XT!XGPO_.Y^"
^XMB(3.9,23,2,16319,0)="""DATA"",396.18,224,3,221,0)"
^XMB(3.9,23,2,16320,0)="M9\'-<418""^.:EDJ$V8H(0[8[*+WA59W/@9C<@LNLA.W-=Y,3P[AMB=C))""H$"
^XMB(3.9,23,2,16321,0)="""DATA"",396.18,224,3,222,0)"
^XMB(3.9,23,2,16322,0)="MXW'`^(4L14D3+Q"")""EY8U7;UP%J*XB""TVP+?&2""&Z(@AMB33,?9WH0:UJ7'["
^XMB(3.9,23,2,16323,0)="""DATA"",396.18,224,3,223,0)"
^XMB(3.9,23,2,16324,0)="MU&'Y5CH=.C&0&`JO[:E:)[8H""DQU(ME9)QZ??_ET02=1^CY+EXN2?KZZ\K@T"
^XMB(3.9,23,2,16325,0)="""DATA"",396.18,224,3,224,0)"
^XMB(3.9,23,2,16326,0)="M#T^:A8(K1JJR]%NX>NYZE2]GZ6TIKF4%]`^P7*+IZF/!YGG#""K$L/G).)WJI"
^XMB(3.9,23,2,16327,0)="""DATA"",396.18,224,3,225,0)"
^XMB(3.9,23,2,16328,0)="M=6R]BX""O2T&U?LW$;VBU8'D?FQS4(Y_30IA0+""_`(!JMK-^/+LX.&E]0/K)&"
^XMB(3.9,23,2,16329,0)="""DATA"",396.18,224,3,226,0)"
^XMB(3.9,23,2,16330,0)="MR\)*X$OTAD8Q'<5LK5FU2G(0>-(//""!W5^@#W]\+])^X>4_C2C7\NRT!ZK8'"
^XMB(3.9,23,2,16331,0)="""DATA"",396.18,224,3,227,0)"
^XMB(3.9,23,2,16332,0)="M-S9*RRI4Y#]2X'90RQ\JO>H-W@AY`7IZ9B'N-PM#C4&(4=APZ9$4JG#EZ`$N"
^XMB(3.9,23,2,16333,0)="""DATA"",396.18,224,3,228,0)"
^XMB(3.9,23,2,16334,0)="M784G;!!BG2$3ZCU0U^YQZ;&SHRUXS+(;\;Y?+H"";'H4'3QR]$1CT>O`&)N#:"
^XMB(3.9,23,2,16335,0)="""DATA"",396.18,224,3,229,0)"
^XMB(3.9,23,2,16336,0)="M<=^/W8?NW^XS#``(;]K1""DX),X<H<:2U(&V`AA6Y:?O^DW:G-:9EV&%4$EE+"
^XMB(3.9,23,2,16337,0)="""DATA"",396.18,224,3,230,0)"
^XMB(3.9,23,2,16338,0)="M!>[=`BT/@#MWC05IE1'2*B.R448!;BHC\`ED9>1Y3UP9$:TPU4=#45]<PO%W"
^XMB(3.9,23,2,16339,0)="""DATA"",396.18,224,3,231,0)"
^XMB(3.9,23,2,16340,0)="MTT4?TGP1%32._J+\MD>AC!R3:#*2`?1""`UU$""V;1R3P""_""8/.!!1AFX,0/(5"
^XMB(3.9,23,2,16341,0)="""DATA"",396.18,224,3,232,0)"
^XMB(3.9,23,2,16342,0)="M+@OP,$B""ZG1JS2K&>C""*NP,G?9`084EQ.*'JW0P#-9^_7L&_@YYG^P9KA(CB"
^XMB(3.9,23,2,16343,0)="""DATA"",396.18,224,3,233,0)"
^XMB(3.9,23,2,16344,0)="M6:UMUM[`6E2L7E\6P,\/>'E*984Z-+LMAXNP\Y0T^^X1+1X*1-KXI+S+H_A"""
^XMB(3.9,23,2,16345,0)="""DATA"",396.18,224,3,234,0)"
^XMB(3.9,23,2,16346,0)="M83@0#PQ=WSLPM=FX31P,;S4A5Q'BF*A!!0^UMYJ<IQQ3:.$<#N,<VD,P.QJ8"
^XMB(3.9,23,2,16347,0)="""DATA"",396.18,224,3,235,0)"
^XMB(3.9,23,2,16348,0)="MW:<',^JWEOTMLS%\^SETT][+4)4DUFM)A$A?[`;CW>SECTE>9,LQOR5_')$;"
^XMB(3.9,23,2,16349,0)="""DATA"",396.18,224,3,236,0)"
^XMB(3.9,23,2,16350,0)="MNP.^WL@-;LE[KS/WXHRG5_!$""?8MR@')L;`/:6'%C.:%E2;,FD0Y'44Q6""56"
^XMB(3.9,23,2,16351,0)="""DATA"",396.18,224,3,237,0)"
^XMB(3.9,23,2,16352,0)="M1GE\&CY%MOT?UHSF5C/W8L188K&\H*,XRF=L<@CV.&@J>""*-K1%HMVE4Y-:<"
^XMB(3.9,23,2,16353,0)="""DATA"",396.18,224,3,238,0)"
^XMB(3.9,23,2,16354,0)="MKN#""6M`5#VGS;`_^^!M6L.9O9319IWQLE[Q1XH;TQEDH<1U6[4+/'#?TRKH"""
^XMB(3.9,23,2,16355,0)="""DATA"",396.18,224,3,239,0)"
^XMB(3.9,23,2,16356,0)="MLC-VO8QIULQ5X?`E*<PILQ8LR^%K40*0<2Z%-YRGK_#Y2CDK&7Q""LY5%@75O"
^XMB(3.9,23,2,16357,0)="""DATA"",396.18,224,3,240,0)"
^XMB(3.9,23,2,16358,0)="M`#""6\U^9T""A>63&,)->'6T/@N080A($*@6\.`7YE'6FG#?-=9&D!Y/`)SZ)Y"
^XMB(3.9,23,2,16359,0)="""DATA"",396.18,224,3,241,0)"
^XMB(3.9,23,2,16360,0)="MSN*I!6\7?""C^G&;IW""J:$``B-0HS^A?-)@*""6917WZO08,E-E*4)WW@^Y*__"
^XMB(3.9,23,2,16361,0)="""DATA"",396.18,224,3,242,0)"
^XMB(3.9,23,2,16362,0)="MZS3;'AG/`!GDV'>`AKRR/F[XFO.RR&`""Z12-BS*'J3&U6<J]LDS<'\WG;!(U"
^XMB(3.9,23,2,16363,0)="""DATA"",396.18,224,3,243,0)"
^XMB(3.9,23,2,16364,0)="MH>%^[4TTCA+^`G)\63H]!(S'\;)D*/C6+0#&?Z'\-O_&.(8O\#`VE=XJ1D5^"
^XMB(3.9,23,2,16365,0)="""DATA"",396.18,224,3,244,0)"
^XMB(3.9,23,2,16366,0)="MU:P.++#)JQU2H]P.NSZ43<``#=GUGNDVL'WW<)@V6Z<1#BLW'6M:2Z=DDZSS"
^XMB(3.9,23,2,16367,0)="""DATA"",396.18,224,3,245,0)"
^XMB(3.9,23,2,16368,0)="MY-,M7:VD[5#PKI0DIWC!I.61&""KXWQ8@4JV3;T7&YOQU>+=,QI5^.8U@9']A"
^XMB(3.9,23,2,16369,0)="""DATA"",396.18,224,3,246,0)"
^XMB(3.9,23,2,16370,0)="MLN^=O./H$W>P+*741!1GG>!GDG8I0@R@]T'K@+8')A8R?+Y8EC!:+P""5F""77"
^XMB(3.9,23,2,16371,0)="""DATA"",396.18,224,3,247,0)"
^XMB(3.9,23,2,16372,0)="M\,OP05XLYXN78D5N9XS+H:9@L99YJ0*XY.=YL*`7N,R;@A41@9I?J_""3A""O]"
^XMB(3.9,23,2,16373,0)="""DATA"",396.18,224,3,248,0)"
^XMB(3.9,23,2,16374,0)="MR0Y[,G+R@)!`/?D$CH22$E[`K>14XBD.<1B$>TDF^)B7(AQPM):""F5G-S!OH"
^XMB(3.9,23,2,16375,0)="""DATA"",396.18,224,3,249,0)"
^XMB(3.9,23,2,16376,0)="M_[MZ-G#F<I[D:Q_QWRK0T9WY\+\L;R8]#/EO9A$'[6Z<\C:H<0^GI6_J3<UZ"
^XMB(3.9,23,2,16377,0)="""DATA"",396.18,224,3,250,0)"
^XMB(3.9,23,2,16378,0)="MG>NL+""UG/DGW6*?P?;W"")[(G@GW%G@R[7K1AA1_>4]Z7<*%,)06R54U%W(%H"
^XMB(3.9,23,2,16379,0)="""DATA"",396.18,224,3,251,0)"
^XMB(3.9,23,2,16380,0)="M""N)997N1%8)`54B`""5F*9""Z(QVEI-/-OO&G)#/*`9,;G-)O3>"",V/D6Q,&CG"
^XMB(3.9,23,2,16381,0)="""DATA"",396.18,224,3,252,0)"
^XMB(3.9,23,2,16382,0)="M*8#)U50T7]`HXW;_YJ9+4%J9])&YJ,%&6B;LYYTJ?Z>;>]S`@'O<O7#/A7CB"
^XMB(3.9,23,2,16383,0)="""DATA"",396.18,224,3,253,0)"
^XMB(3.9,23,2,16384,0)="M,_OLAWV(D>A!VX@>E^S""/-Y>F.>HBO=,`</28V>,.YMM+G$>,)=<<K][$DVG"
^XMB(3.9,23,2,16385,0)="""DATA"",396.18,224,3,254,0)"
^XMB(3.9,23,2,16386,0)="MT7@9%ZL&^]#L*Y@""NH^.:<)3,N&M`FSF6W"",8\0Q>#N!LQO/V'OEF2*U)AG+"
^XMB(3.9,23,2,16387,0)="""DATA"",396.18,224,3,255,0)"
^XMB(3.9,23,2,16388,0)="M<R%BEHGX^YEO=N8;UXAOR#:2)G2VY1JPD\-],XV0,R-:S)Z996=F\8R8Q=E."
^XMB(3.9,23,2,16389,0)="""DATA"",396.18,224,3,256,0)"
^XMB(3.9,23,2,16390,0)="MR&S/+ES(H._""+]=9FLZ?&69GAO&-&&:;8`LF:G&UZQFPRWYJ-Z[2*&9B%Z+:"
^XMB(3.9,23,2,16391,0)="""DATA"",396.18,224,3,257,0)"
^XMB(3.9,23,2,16392,0)="MP7IFE9U9)1@(K]O:=--@$U_WY38-1*E]($^]&-;35M_;Q""!Y7PF[X)#L%E^_"
^XMB(3.9,23,2,16393,0)="""DATA"",396.18,224,3,258,0)"
^XMB(3.9,23,2,16394,0)="MFJ49'?-W8T2SQU0!T9$HZ/0&T[>N@.BH)'""UE032LQTU<F""K0C,(VX4$[G,A"
^XMB(3.9,23,2,16395,0)="""DATA"",396.18,224,3,259,0)"
^XMB(3.9,23,2,16396,0)="M@3YN,V`.RPT<U+`Q)O:@.1SL1U_]FC*Q00#J*A&RGMLZ\%`0UCQ4<1L!@:.,"
^XMB(3.9,23,2,16397,0)="""DATA"",396.18,224,3,260,0)"
^XMB(3.9,23,2,16398,0)="M@9$,`#_578+>2+500[JM::QT[0B&MJ9]TT@UOO/6M*M1G4Y#<[J2YO1*.;2)"
^XMB(3.9,23,2,16399,0)="""DATA"",396.18,224,3,261,0)"
^XMB(3.9,23,2,16400,0)="MJ>.GKCE];0Y]1^L#N7H>*4*?!#NV`EJ7""9^!TA2[IY_3@G$_Y>0;G8-8S%X^"
^XMB(3.9,23,2,16401,0)="""DATA"",396.18,224,3,262,0)"
^XMB(3.9,23,2,16402,0)="M""DWJZLT1.?&CY0,XK8V@GN29*YX:`S11:\Z[_(R8!=!663/3J&SK,XZR\7)>"
^XMB(3.9,23,2,16403,0)="""DATA"",396.18,224,3,263,0)"
^XMB(3.9,23,2,16404,0)="MIAZ)3""$^F""_8.)I*R3/C=<5UF:X5T^1Z2:_%5O5/8[K,RVIK@#EC.=C),/Y3"
^XMB(3.9,23,2,16405,0)="""DATA"",396.18,224,3,264,0)"
^XMB(3.9,23,2,16406,0)="M_=1Y*B?B3"".XFT=$TT64)NL?SJT1Y3\#(_3Z.J,W(IS^:NNL)!\9`(N0FNWK"
^XMB(3.9,23,2,16407,0)="""DATA"",396.18,224,3,265,0)"
^XMB(3.9,23,2,16408,0)="M&)3&T)?6'^4_`%::-=W,>WV+^-=;]X!-""%63$NNF%7V$CIJ$SE-8ACCZRN+5"
^XMB(3.9,23,2,16409,0)="""DATA"",396.18,224,3,266,0)"
^XMB(3.9,23,2,16410,0)="M/1!MPK:HE4OM#:=3'+`FT=RUZB+6F%;'A%:UQ8;C!N:I'Y,FS3$/UE9`TW(*"
^XMB(3.9,23,2,16411,0)="""DATA"",396.18,224,3,267,0)"
^XMB(3.9,23,2,16412,0)="M+\18,:,@QUS[M6OSM([1.@MT+.64W7&RKLED6R4\P1:3'3<G6V>V4N,Y-R=;"
^XMB(3.9,23,2,16413,0)="""DATA"",396.18,224,3,268,0)"
^XMB(3.9,23,2,16414,0)="MS?^.<_9,9*CZJA-GBSE/ZSE_!'*%QP]DIJ#2888B-2=?EO9DNBP_RHHJ.W7."
^XMB(3.9,23,2,16415,0)="""DATA"",396.18,224,3,269,0)"
^XMB(3.9,23,2,16416,0)="M+<WFG+E87<:;U*J.684FKYB:BN,XKKEB.(E$>FFQ6C!K!0Z)-4[GBYB!FDTK"
^XMB(3.9,23,2,16417,0)="""DATA"",396.18,224,3,270,0)"
^XMB(3.9,23,2,16418,0)="MI5MN5W&R>,HEV)Y5JBF?<BPM)&\?-[7H`M9XD8F,R7)'M/I!H4YX?E29:5IN"
^XMB(3.9,23,2,16419,0)="""DATA"",396.18,224,3,271,0)"
^XMB(3.9,23,2,16420,0)="M)8(]+WK.`;](N<ILPKEAK04*D19<*IVMM4!H\NX':D""V[>YW<\8Y9_]J<FL4"
^XMB(3.9,23,2,16421,0)="""DATA"",396.18,224,3,272,0)"
^XMB(3.9,23,2,16422,0)="M>2YISI/F+?@/N(!G?5<Z=0I>67K+!V-V3>-X)65]\;Y/UPG/(K46LPQ^-^]R"
^XMB(3.9,23,2,16423,0)="""DATA"",396.18,224,3,273,0)"
^XMB(3.9,23,2,16424,0)="MA*L\DD!OG6,OE/-(R+WUU+N'Q%%M5P_<Z.J!I*X>.)0;=5;5;FW[?&/@G49S"
^XMB(3.9,23,2,16425,0)="""DATA"",396.18,224,3,274,0)"
^XMB(3.9,23,2,16426,0)="M]C!,[4"";4:TO4PCE?02%:T,#0_O\XNS\Y.+JX\GEHS"">PXZ:4;FIA.*1N`86"
^XMB(3.9,23,2,16427,0)="""DATA"",396.18,224,3,275,0)"
^XMB(3.9,23,2,16428,0)="MWN\LX^_O+PB1!U[1&P8&$'D**R'7H/:Y?.VOV+?BE[;_=M`O`K`N=[Q1&^9)"
^XMB(3.9,23,2,16429,0)="""DATA"",396.18,224,3,276,0)"
^XMB(3.9,23,2,16430,0)="MF>-$?O^=LISI""?OGH6ZE@XY.""G(G,#6R'=B[NN=)`=[Y,2AXQLN<5H^C-R_J"
^XMB(3.9,23,2,16431,0)="""DATA"",396.18,224,3,277,0)"
^XMB(3.9,23,2,16432,0)="M""&S+ZC10VRFH(*[?'XV]\/GLZN2--2_A&]?P'0I/^/>C35W78IDM0`/GAV`5"
^XMB(3.9,23,2,16433,0)="""DATA"",396.18,224,3,278,0)"
^XMB(3.9,23,2,16434,0)="M3$$>@14!QK54Y9-6L<W2C4CE""AEN>M*$.^>;7^558F63R2BQ9K(!MZZ>26\3"
^XMB(3.9,23,2,16435,0)="""DATA"",396.18,224,3,279,0)"
^XMB(3.9,23,2,16436,0)="MN)W;<SQ.""G^(PB!ATO-6P0D\2)B-^5*`]ZIB!<F.B1*SF<T97TGP$8HFZ8?2"
^XMB(3.9,23,2,16437,0)="""DATA"",396.18,224,3,280,0)"
^XMB(3.9,23,2,16438,0)="M;XV8\`_X]*+DSV4FO(0)O-I@'AU:M8^X$-5O<).8-#>PRN<U?TN=?SUG:;ZO"
^XMB(3.9,23,2,16439,0)="""DATA"",396.18,224,3,281,0)"
^XMB(3.9,23,2,16440,0)="MK(_<\N6O&I^P*,D2E7J9C!?\Q)Q^%9NAI3%G33C]\RH#D-NU\/TF$(O25J23"
^XMB(3.9,23,2,16441,0)="""DATA"",396.18,224,3,282,0)"
^XMB(3.9,23,2,16442,0)="M2289O'FNV(;""VN4&Y/:E>@AUE8C*'0&QZIN;M%*HC%TP\F^BB:AUX/;]B_RE"
^XMB(3.9,23,2,16443,0)="""DATA"",396.18,224,3,283,0)"
^XMB(3.9,23,2,16444,0)="M2""!8+A;@]JA&\$$OL8$)L00KO3D,#/0UK>S;(J:P5+>S5;\M[70T5R""VW-=K"
^XMB(3.9,23,2,16445,0)="""DATA"",396.18,224,3,284,0)"
^XMB(3.9,23,2,16446,0)="ML`B+8%-;.KBGG.Q@(#%R35&E`A3GGV`U*J/VK`Y#9\_[,VNA]35);TNA-D^7"
^XMB(3.9,23,2,16447,0)="""DATA"",396.18,224,3,285,0)"
^XMB(3.9,23,2,16448,0)="M25'5++XNWU%)A'7NUFR]1;+M;E@PE%3H!7>%VT7?!^Y%MIP`EC$O$DTF,:OE"
^XMB(3.9,23,2,16449,0)="""DATA"",396.18,224,3,286,0)"
^XMB(3.9,23,2,16450,0)="MXU[0-<H1#\@VO-R.BYHP<_""W,'/>Y.8Y&""0SP!UT=[P?M)$1VLY6O+P;W.%W"
^XMB(3.9,23,2,16451,0)="""DATA"",396.18,224,3,287,0)"
^XMB(3.9,23,2,16452,0)="M8F91'<YC*FMN!I#92E@O""[I/J(VRUX.!K""\DZQD4J%""'P]OHSE[2US<'2Z1<"
^XMB(3.9,23,2,16453,0)="""DATA"",396.18,224,3,288,0)"
^XMB(3.9,23,2,16454,0)="MN8,DCB-VP]1Z;)T-MEX3:PI642+M)$6\F'HZI5&VGT5Q>HK?;&T&B6(AM6*K"
^XMB(3.9,23,2,16455,0)="""DATA"",396.18,224,3,289,0)"
^XMB(3.9,23,2,16456,0)="MOCU0_H9LW[&?7@Z)VX,T,D"":D'`(:56J`-(D>'I(&Z67!MY6@@:K!JU&T+3*"
^XMB(3.9,23,2,16457,0)="""DATA"",396.18,224,3,290,0)"
^XMB(3.9,23,2,16458,0)="M>5W\/04-M2Y3(2_`#?K*/3*6Y]Q,$=X?&\,5[W,!+@B@RRF1]M.2]6[&7J2,"
^XMB(3.9,23,2,16459,0)="""DATA"",396.18,224,3,291,0)"
^XMB(3.9,23,2,16460,0)="MUQ_H(MHN2(U(MY2)XJN9*/Y3;X*$M&=2==3RRUW80[7E_8Z)*+_SQA[6973]"
^XMB(3.9,23,2,16461,0)="""DATA"",396.18,224,3,292,0)"
^XMB(3.9,23,2,16462,0)="M2'H@=02$Y=1-)7W2,_""WK]A\P8L#EUEG]F;I\W=US^ZE`!M$[<^7,//>9V/]"
^XMB(3.9,23,2,16463,0)="""DATA"",396.18,224,3,293,0)"
^XMB(3.9,23,2,16464,0)="MLXG3^VS?'W[V!<L7$<P^S<JN3OUDN""80^*KC:$#&%_%9_\,[SA\C4@NQ4$V@"
^XMB(3.9,23,2,16465,0)="""DATA"",396.18,224,3,294,0)"
^XMB(3.9,23,2,16466,0)="M]0SP!R^G.NNG*]O)[\!?/@\&*3/?=/VN6QVZG;JCA,`Z3?/<>@$<.69E'.&V"
^XMB(3.9,23,2,16467,0)="""DATA"",396.18,224,3,295,0)"
^XMB(3.9,23,2,16468,0)="M'(_Y.`_*T>KP,[[1'(/F?FF]H""`7)=UQS=9?B\J-:&RM&-?2BPS4SJ3<V^52"
^XMB(3.9,23,2,16469,0)="""DATA"",396.18,224,3,296,0)"
^XMB(3.9,23,2,16470,0)="M@+>7*D.2+[]?_X._KZ%[N9AZ2>($X;TOYGL>P=,LYC4??U[,^UC,KC,A2*]D"
^XMB(3.9,23,2,16471,0)="""DATA"",396.18,224,3,297,0)"
^XMB(3.9,23,2,16472,0)="M--`+;^,TG7"",\WQ(-7C(0#>UQ*)!3MF'AEA\P-V9]=+3=:60F*NXK095%Z]["
^XMB(3.9,23,2,16473,0)="""DATA"",396.18,224,3,298,0)"
^XMB(3.9,23,2,16474,0)="M%\7$8$!JA!Y[)CO(43QY\(L2FNCR%C[$Q)Y)\XTU]7`1\FT3HTM]K;%!""@*H"
^XMB(3.9,23,2,16475,0)="""DATA"",396.18,224,3,299,0)"
^XMB(3.9,23,2,16476,0)="MA0?_4H>NR>OEH>U?KS/15*Q3@771XQGQ\_<CB+@FFDEEGQ"";%YM5&]K7#6XR"
^XMB(3.9,23,2,16477,0)="""DATA"",396.18,224,3,300,0)"
^XMB(3.9,23,2,16478,0)="M(J_<K""-=K9S\WBW,]K:A;7RL;7""GCN>.MN.YM+QJKW'43BM5:XY]Y+K&/<_%"
^XMB(3.9,23,2,16479,0)="""DATA"",396.18,224,3,301,0)"
^XMB(3.9,23,2,16480,0)="M@8PZ,A0VVX$.Y#OHP'0S1#2`UQ\*Z=R9D,#Q#DSWP`0AG@$B(1GPRW0+@P]V"
^XMB(3.9,23,2,16481,0)="""DATA"",396.18,224,3,302,0)"
^XMB(3.9,23,2,16482,0)="MBR0.[5@$O4FFR%=I(PIM'MY36X/*;1C/:'+-'GHKIKIF&*ZX5[NYXF[1-H5^"
^XMB(3.9,23,2,16483,0)="""DATA"",396.18,224,3,303,0)"
^XMB(3.9,23,2,16484,0)="M7;U/TODH?9M^$UD$U=^]_GD0J""X=,>!""I\^9X@""T9'63=F\(J/^RD+V!IODW"
^XMB(3.9,23,2,16485,0)="""DATA"",396.18,224,3,304,0)"
^XMB(3.9,23,2,16486,0)="M;OQ-&G\[=IF(GE4'078C@[N0J0NQ[H0,N1,R_M^!C!!8ODY@*8I9E9R./2PX"
^XMB(3.9,23,2,16487,0)="""DATA"",396.18,224,3,305,0)"
^XMB(3.9,23,2,16488,0)="MB7-@NL<JZ`BT='CNG>D@6QTQ+!+;!S3KUO+;)X@<[-;%:&`?2*X14$^#:U4$"
^XMB(3.9,23,2,16489,0)="""DATA"",396.18,224,3,306,0)"
^XMB(3.9,23,2,16490,0)="MD39A6V[L*TRM2&_S79DH&<\VO#J>]V[+])6U!P/ZS>L-9.%65-Q1<Q\""U[U/"
^XMB(3.9,23,2,16491,0)="""DATA"",396.18,224,3,307,0)"
^XMB(3.9,23,2,16492,0)="MB!J6X3+CXMY*EH!/U;&9EZ`L\X>M[=ZG:>.$W[,;EI4AN\;8B.4-A?@;W_!3"
^XMB(3.9,23,2,16493,0)="""DATA"",396.18,224,3,308,0)"
^XMB(3.9,23,2,16494,0)="M[_E$XX1OV?)#$YJ=6L8SWD-_O(W*['C=3Z.\X!I3Y%R7?_>9CZ$W9#[69=0;"
^XMB(3.9,23,2,16495,0)="""DATA"",396.18,224,3,309,0)"
^XMB(3.9,23,2,16496,0)="MWJG3E$Z^\=TH-KDL2[&&M8-YQYNC@GX#0#;7/)7WNCER68!KP?@O;<8^L'FT"
^XMB(3.9,23,2,16497,0)="""DATA"",396.18,224,3,310,0)"
^XMB(3.9,23,2,16498,0)="MB)ETWV]""=_$8[""V-OS;62SA]%>*?EG$1U=/8&'--Q'&_*G:[5+'B,9-@>Q?&"
^XMB(3.9,23,2,16499,0)="""DATA"",396.18,224,3,311,0)"
^XMB(3.9,23,2,16500,0)="MK;,WAI1N,`3T$8\^7S<8]=,RYU5_V6;D74:CQE*<TN1KHZ_0Y;^6M-#""V(V-"
^XMB(3.9,23,2,16501,0)="""DATA"",396.18,224,3,312,0)"
^XMB(3.9,23,2,16502,0)="MUX6-ZKWO!@XV!&==:;E%XZ4B31?-=_7REJY^'H'T:<`5TT(9^I_58I8632X\"
^XMB(3.9,23,2,16503,0)="""DATA"",396.18,224,3,313,0)"
^XMB(3.9,23,2,16504,0)="M!1$KCUS&Z7(LR8%//%V>9JN?>>&C(<(\A44T!=2<8""M#JQXCV(:6N&UHR7/7"
^XMB(3.9,23,2,16505,0)="""DATA"",396.18,224,3,314,0)"
^XMB(3.9,23,2,16506,0)="M[))U>LY?)_I3TNX#?O0,_Z:P2(\^UG*_8NRKUBUJ)PZH>@[9OAL^PU]R/^G/"
^XMB(3.9,23,2,16507,0)="""DATA"",396.18,224,3,315,0)"
^XMB(3.9,23,2,16508,0)="M)O)TA;-V,YU(/G.EZENV`3\@3SV?"".F;PG5L4?26SN$=2^<VASP]BGPBW)$&"
^XMB(3.9,23,2,16509,0)="""DATA"",396.18,224,3,316,0)"
^XMB(3.9,23,2,16510,0)="MX/>=J89""U[B""9SQ+T[S,-N8:FU<;\9-1`-GJ0+,'O8=8.@].AQ\AH^BX0R@&"
^XMB(3.9,23,2,16511,0)="""DATA"",396.18,224,3,317,0)"
^XMB(3.9,23,2,16512,0)="M;LL#)??O1;S-Z+AI.24,EJT9IKRZ3<5((U;Y!;P""EBE?RI9%TY477Q-C\$US"
^XMB(3.9,23,2,16513,0)="""DATA"",396.18,224,3,318,0)"
^XMB(3.9,23,2,16514,0)="ME\'NVY[QNH[,E>T&M4K\<1^9B^[>Q$&7V8H;)=RE7;8ID77ES-:JI\,3UD18"
^XMB(3.9,23,2,16515,0)="""DATA"",396.18,224,3,319,0)"
^XMB(3.9,23,2,16516,0)="M>TQ5Q^XK""7M26QW;W4T3G::WP\=_Y0_]_*]JF[;CC#TL=]4@ZBF60?A]6J5("
^XMB(3.9,23,2,16517,0)="""DATA"",396.18,224,3,320,0)"
^XMB(3.9,23,2,16518,0)="M)%<&8[DE4U_(S4#ZU*OGM\JRZ@3:-/NKMD=?78$D%R7,3='*[=/-+1=\#TTT"
^XMB(3.9,23,2,16519,0)="""DATA"",396.18,224,3,321,0)"
^XMB(3.9,23,2,16520,0)="M3;1U'VM_X6A9I.4M0R*H]0(H70P:)?C>>D0ZY%9S6)O&JM`E%][OD6U;'-K6"
^XMB(3.9,23,2,16521,0)="""DATA"",396.18,224,3,322,0)"
^XMB(3.9,23,2,16522,0)="MX>AHT_5J[M!`97=`%<I`^:&*5-V8;0""I\LBD6$B)S9DWTXV4B#=28CVY;G)1"
^XMB(3.9,23,2,16523,0)="""DATA"",396.18,224,3,323,0)"
^XMB(3.9,23,2,16524,0)="M![EDG;_61[!O1O!%E>-[+Q2[CAG`>%U0TW`._#;""V.OEQ3H;I4'M^HA33F[S"
^XMB(3.9,23,2,16525,0)="""DATA"",396.18,224,3,324,0)"
^XMB(3.9,23,2,16526,0)="MC-(JCW7$*#?.#JT1C:G,B_P(65'XF*6+99PW3B2Z)^XC@>ER/DEXG""[>J4,B"
^XMB(3.9,23,2,16527,0)="""DATA"",396.18,224,3,325,0)"
^XMB(3.9,23,2,16528,0)="M-3PA:;'[YIY^=J]!6?<W5J8^,*ENZEU3ZHGKMJAW\*[4&R]'-^6^*>4.:K%E"
^XMB(3.9,23,2,16529,0)="""DATA"",396.18,224,3,326,0)"
^XMB(3.9,23,2,16530,0)="MG9J^/>6<Q;A-M2O976\35M5>G7'09)=P2[++A+=^L;C%%)3C+?R.;57U@(M."
^XMB(3.9,23,2,16531,0)="""DATA"",396.18,224,3,327,0)"
^XMB(3.9,23,2,16532,0)="M38X""MS4ALM$`FRK$L*:U:W^U)X-(M\7:<;AH2Z.TSQ;5[&"";V<Q]5G.G9VA@"
^XMB(3.9,23,2,16533,0)="""DATA"",396.18,224,3,328,0)"
^XMB(3.9,23,2,16534,0)="M.7=XASU^O5+P*)4\=KN5.I-7QR0\=BQW[N^V[3`V,>Y<6V4)3+`3#@GR^U\4"
^XMB(3.9,23,2,16535,0)="""DATA"",396.18,224,3,329,0)"
^XMB(3.9,23,2,16536,0)="MK%V4=EBY<TDZ0\N-X'+?""O0&F'5FMVZ!SBZJ""!0WP>N+?M,G=%JJ/?#:PL@."
^XMB(3.9,23,2,16537,0)="""DATA"",396.18,224,3,330,0)"
^XMB(3.9,23,2,16538,0)="M=2OE;U:J)S;5$9WJYV,I:X[O""];RC1OH?Z:<BGG:.-VZWJ.->940_0KK(;T)"
^XMB(3.9,23,2,16539,0)="""DATA"",396.18,224,3,331,0)"
^XMB(3.9,23,2,16540,0)="M@#V-5V#0-P>/""M!7LU5SZ!A6!SPBGK<OW7H*[,,?W3PCLOFYM$W>'?5:,P$7"
^XMB(3.9,23,2,16541,0)="""DATA"",396.18,224,3,332,0)"
^XMB(3.9,23,2,16542,0)="M=Q64,B-TC+?;ZY?X746+#8]_B9))>ELO>)I<<QX8%O\UK^`>QFF9A6VS9PO6"
^XMB(3.9,23,2,16543,0)="""DATA"",396.18,224,3,333,0)"
^XMB(3.9,23,2,16544,0)="M""9Y9YV]@'7+OK""/.<_'U6D'ULHAGPC`N4?D%V7Z(GI5""CU)P!A8HT""\0<<D]"
^XMB(3.9,23,2,16545,0)="""DATA"",396.18,224,3,334,0)"
^XMB(3.9,23,2,16546,0)="M+A%Y7J*>)7)-K6^7#%G?BJU%[+;_2=KA%L=NV]\!V;?]+;NS5NEL/9O<K517"
^XMB(3.9,23,2,16547,0)="""DATA"",396.18,224,3,335,0)"
^XMB(3.9,23,2,16548,0)="M(\YPMN4,K^W;(VS&&7C?G+$)%3QSA88K?&.N<+?D""@?[NW*%%^R;*ZHPS#-+"
^XMB(3.9,23,2,16549,0)="""DATA"",396.18,224,3,336,0)"
^XMB(3.9,23,2,16550,0)="M:%@B,&8);UN6""%H1>[P)4_6RA+]?ECC*6!7#Z0MYK5LG*U&>9_9IY09V&XG8"
^XMB(3.9,23,2,16551,0)="""DATA"",396.18,224,3,337,0)"
^XMB(3.9,23,2,16552,0)="M[HCMM""+&=DM^.'[;2""2ASDA\#N[T!G<&PF\8F:Z1CW9=H\!^]K5ZUP@-K!$V"
^XMB(3.9,23,2,16553,0)="""DATA"",396.18,224,3,338,0)"
^XMB(3.9,23,2,16554,0)="M7"".'H-W?(_]YC?K6""`\XQ)Y^C5J;-6Y;UA%-(-MQ-6L4/,NZWC4BTAIU9ZH%"
^XMB(3.9,23,2,16555,0)="""DATA"",396.18,224,3,339,0)"
^XMB(3.9,23,2,16556,0)="MNA:,951B?=J0E*I&;#E5#:.G?MQ(""74K`:""C""Z-\TESK!$!_MU0U$>2T+AH;"
^XMB(3.9,23,2,16557,0)="""DATA"",396.18,224,3,340,0)"
^XMB(3.9,23,2,16558,0)="M_H_C(&UBTHU124FKFPEMT=RDF2KQYKLUSKWW=.DR@:[CU#.$E%J@.^;T[IHP"
^XMB(3.9,23,2,16559,0)="""DATA"",396.18,224,3,341,0)"
^XMB(3.9,23,2,16560,0)="MV]87VMH93/I.+,=NJW0&M=M->^@I'UFN/UO*U@E\MRGPL72^'""G3)S9<8>_6"
^XMB(3.9,23,2,16561,0)="""DATA"",396.18,224,3,342,0)"
^XMB(3.9,23,2,16562,0)="M=;=>N4>I`QQ]X8R^.9,OM_92""V?P;CK@8P(R;/F(I#^\P'KX9,F@'O1GT`?V"
^XMB(3.9,23,2,16563,0)="""DATA"",396.18,224,3,343,0)"
^XMB(3.9,23,2,16564,0)="M'4SVY.CX@S6)Z'62YE'>WY/7#@P(47M^&;2P0Z_Z'ZMOGB<W5?%4&Z+5.Z_O"
^XMB(3.9,23,2,16565,0)="""DATA"",396.18,224,3,344,0)"
^XMB(3.9,23,2,16566,0)="M\&M^N&DD3C)MU!$UCS)EUD_G60KV]=SB>Y8_E<=149[VD^>I<F0!/S:;G_):"
^XMB(3.9,23,2,16567,0)="""DATA"",396.18,224,3,345,0)"
^XMB(3.9,23,2,16568,0)="M'H%:@_MJAV.:;`/$U0.4#1#'_8@C9(!XZ]QF')@C?K8H`VR'XO2LR81#SP\<"
^XMB(3.9,23,2,16569,0)="""DATA"",396.18,224,3,346,0)"
^XMB(3.9,23,2,16570,0)="M%\?_`LKYX?I,68X];Y=B-?&7CLH=""26[`[C_W]ZU-3F-8^&_XJI]:+IJ6""S)"
^XMB(3.9,23,2,16571,0)="""DATA"",396.18,224,3,347,0)"
^XMB(3.9,23,2,16572,0)="M5VIJ*;;9J=V'&::`69Z=6$U<.';63AJ:7[^2;"">R?21+[G0""37AJ'.?B<].Y"
^XMB(3.9,23,2,16573,0)="""DATA"",396.18,224,3,348,0)"
^XMB(3.9,23,2,16574,0)="M?.<<;$!<A"")KZI()ZA(#ZHZ^=]S&I2'O?XJ4G8KM2EUZ>\M^@,A?TF2Y.@@D"
^XMB(3.9,23,2,16575,0)="""DATA"",396.18,224,3,349,0)"
^XMB(3.9,23,2,16576,0)="M7YQ;+I>[3=)F.[DM39-LL&\V8<;T+MMF=)8$>R9$'OHU!D3V)HCLFQ!Y^+W$"
^XMB(3.9,23,2,16577,0)="""DATA"",396.18,224,3,350,0)"
^XMB(3.9,23,2,16578,0)="MP&=^OUNLL^W?M6O""2*QP/CU/NT_\K""MW,;B&0.K6:C1^3ZMH$`(W_24_<PCL"
^XMB(3.9,23,2,16579,0)="""DATA"",396.18,224,3,351,0)"
^XMB(3.9,23,2,16580,0)="M@Z*H:'WMCPX<;MR<N8?@]5(,NBXR=@1]J!)&^*?A`_D&:00\&JMF,&Y4'/V\"
^XMB(3.9,23,2,16581,0)="""DATA"",396.18,224,3,352,0)"
^XMB(3.9,23,2,16582,0)="M':<EHMA0/FP9ME@E#G?FA:'VA[H&9N>&F?-/?'&`_&-?_M""CQU6]XH%B1VU_"
^XMB(3.9,23,2,16583,0)="""DATA"",396.18,224,3,353,0)"
^XMB(3.9,23,2,16584,0)="M5O)PB@2RR7>LR[39MBYT9,9`5ZPP\'[_8(N/EUT@#\LNP-NL^H+I#6D:#7]N"
^XMB(3.9,23,2,16585,0)="""DATA"",396.18,224,3,354,0)"
^XMB(3.9,23,2,16586,0)="M.![,L4?H_O2#.?13P!3-^WVQ'G'`\R8X$/N1;]""\_QVE\2SG""/R6K)E'ZC#9"
^XMB(3.9,23,2,16587,0)="""DATA"",396.18,224,3,355,0)"
^XMB(3.9,23,2,16588,0)="M7=#>8*R,/:RT>&E7R2/?FO_^C<17M<,.2FHY:\R@/=[5*!NXT&Q@P,A@W!LA"
^XMB(3.9,23,2,16589,0)="""DATA"",396.18,224,3,356,0)"
^XMB(3.9,23,2,16590,0)="MT<1&+:YL_D79!B.2A[XLNVE!TS_*+5V4Y6?.B?X5>12!-(F@MV*K@:$?&-&X"
^XMB(3.9,23,2,16591,0)="""DATA"",396.18,224,3,357,0)"
^XMB(3.9,23,2,16592,0)="MMNQSIBF\O^E`XFWQ@7[=RB\.S]7NNEJ7NCOZE![-OFWIP!_YS^03[7N</1_$"
^XMB(3.9,23,2,16593,0)="""DATA"",396.18,224,3,358,0)"
^XMB(3.9,23,2,16594,0)="M&^^_8-:).1A7HVKF@*+[5G-WW'>^_S*W7^-TAQ7.$*IPN@>$6*\!O>LNESM\"
^XMB(3.9,23,2,16595,0)="""DATA"",396.18,224,3,359,0)"
^XMB(3.9,23,2,16596,0)="MISO453WJW@%B9-""E[CBO\^P3)U""2LS.6"">W^NJ)_?1S8\&Z![QH29-.VU1,-"
^XMB(3.9,23,2,16597,0)="""DATA"",396.18,224,3,360,0)"
^XMB(3.9,23,2,16598,0)="M@?MJ3[?N[T,UM_,R#E?:(4G!X0J``9>!""5YTN&I&.CWQ-.0S(J""2A#HB0E4B"
^XMB(3.9,23,2,16599,0)="""DATA"",396.18,224,3,361,0)"
^XMB(3.9,23,2,16600,0)="MJ,%SF)'J4Q')%[L6N%""^>/`:`ODRT-NB\HNW]QMN;ILL$)#YL6/$%""LTV`)C"
^XMB(3.9,23,2,16601,0)="""DATA"",396.18,224,3,362,0)"
^XMB(3.9,23,2,16602,0)="M=F@8HF?)'K<!<B*PY<2A&[4GU1X&.8$#%2>ZA<59D3+:ISO&##XQ(N'9Z>V*"
^XMB(3.9,23,2,16603,0)="""DATA"",396.18,224,3,363,0)"
^XMB(3.9,23,2,16604,0)="M#\#,ECQ;VDZ/8*>CDVPV><;C_U<]NH""]Z+HG'W3H*O&=<G?'F!(>`D7R`#%2"
^XMB(3.9,23,2,16605,0)="""DATA"",396.18,224,3,364,0)"
^XMB(3.9,23,2,16606,0)="M((_Z3FWH]YY%#?N<@'ZJX)]@%^]^4?&JK#=\HV/VC:9]H@(@S\?5""'1<C=""`"
^XMB(3.9,23,2,16607,0)="""DATA"",396.18,224,3,365,0)"
^XMB(3.9,23,2,16608,0)="M/P$`Z`@$.J54*DMG)G)XILC!1C`FL,3Y""HDCYY2X#:W62<'HRM>]T[3*TI06"
^XMB(3.9,23,2,16609,0)="""DATA"",396.18,224,3,366,0)"
^XMB(3.9,23,2,16610,0)="M%]&;*WJNK>B)D&V.[$4(MOL(%KX`%KXH/*GPW21%3_J:-!@3O/NR2)UE.S<^"
^XMB(3.9,23,2,16611,0)="""DATA"",396.18,224,3,367,0)"
^XMB(3.9,23,2,16612,0)="M+=?9,LOI10SGBB&9%D,!YQT@1:=\C;Y3<0`#^:#,>:Y""YJ*S.W40:'2""?1KP"
^XMB(3.9,23,2,16613,0)="""DATA"",396.18,224,3,368,0)"
^XMB(3.9,23,2,16614,0)="MZ`!`.LVI""2`IW$.G8V:3D47#<9)]COK!F*4^Z#V&,$.QKU#K=_0Y<Q""+*\4#"
^XMB(3.9,23,2,16615,0)="""DATA"",396.18,224,3,369,0)"
^XMB(3.9,23,2,16616,0)="M]/@PF4>VLIZ>B?7TQL]-^B')?IX>'+\0`DDR""C'&)S""?L-T[@CD9=^294]Z;"
^XMB(3.9,23,2,16617,0)="""DATA"",396.18,224,3,370,0)"
^XMB(3.9,23,2,16618,0)="M>6PAF/`X@,\MA%0'EW?2@^OW7MV&@T<$QH9^3=:OKI[D<?0Z[X^::""Y*9=[-"
^XMB(3.9,23,2,16619,0)="""DATA"",396.18,224,3,371,0)"
^XMB(3.9,23,2,16620,0)="M;L%4EE.DJ#<L1AR.?AB_H<KN.#;DCJZR9:[]['I#EUF2,Y^45T0W+/AT[A+M"
^XMB(3.9,23,2,16621,0)="""DATA"",396.18,224,3,372,0)"
^XMB(3.9,23,2,16622,0)="MAR?KQ2Z7QE:K!E!8':.>L>4-K2VO0A&.;'K](YK>M@#I63\J0:<X9:*'/:KT"
^XMB(3.9,23,2,16623,0)="""DATA"",396.18,224,3,373,0)"
^XMB(3.9,23,2,16624,0)="M)Y!G]'1Y1AS'PTPC&2<:B>L""B4:/2%9=!EDL^""(0477?.\LE3[YL^4^K:7[;"
^XMB(3.9,23,2,16625,0)="""DATA"",396.18,224,3,374,0)"
^XMB(3.9,23,2,16626,0)="M0`2;A-DJ^994:?TBY:GFJKYZ:KE+K,F8N9J,60P((X8#)S^T2UU^9$9L)1CQ"
^XMB(3.9,23,2,16627,0)="""DATA"",396.18,224,3,375,0)"
^XMB(3.9,23,2,16628,0)="M?,GQF/7G+,_%1%4YP-GM%P^Q0/NVK$YV6IPPH3DCX]=PCF@X%P$6LY]=/B3P"
^XMB(3.9,23,2,16629,0)="""DATA"",396.18,224,3,376,0)"
^XMB(3.9,23,2,16630,0)="MD4&&#QK;V1PB@R;L19G>.YNDXL#%RJGO:X[&S=@QDU5K1H*Z1>`*;""-_8V]T"
^XMB(3.9,23,2,16631,0)="""DATA"",396.18,224,3,377,0)"
^XMB(3.9,23,2,16632,0)="M9PM<--1=+BB-_M+B+JO*@G_!#^I./(:`8-=20,!\G.]:UB2R;]]XK%?+G-#_"
^XMB(3.9,23,2,16633,0)="""DATA"",396.18,224,3,378,0)"
^XMB(3.9,23,2,16634,0)="M3F3W.P,PC`X\N]_)`_?JWLE+FU^*+2GJ>J#*(4MC*:H+V;H;@''0GKVN<#BV"
^XMB(3.9,23,2,16635,0)="""DATA"",396.18,224,3,379,0)"
^XMB(3.9,23,2,16636,0)="M<.&VU/QI+`T(A@4DCF86K0Y6X65/310=L<9!+9D9U""*X%J3*1Q-%9(7F1U:C"
^XMB(3.9,23,2,16637,0)="""DATA"",396.18,224,3,380,0)"
^XMB(3.9,23,2,16638,0)="MUPU""*^>2Y7N\+%^W<(^,EN]-*0O!-H=MWZF2AR&Z5T/R*#0,SJ)/4_0/>B?A"
^XMB(3.9,23,2,16639,0)="""DATA"",396.18,224,3,381,0)"
^XMB(3.9,23,2,16640,0)="ML[JQA,Q^\Y.Z<+Y0^CF_'[[^45QU%CL^6K^[M6E!&,:/W&""U^X:Y$\?N&MUS"
^XMB(3.9,23,2,16641,0)="""DATA"",396.18,224,3,382,0)"
^XMB(3.9,23,2,16642,0)="M4Q9\9]*6O?O:G"">A-4_""\#@\03-X@JQX`N0.?L_RU'E6+I=)+;H^KD<WE.R;"
^XMB(3.9,23,2,16643,0)="""DATA"",396.18,224,3,383,0)"
^XMB(3.9,23,2,16644,0)="M>(*@7I75]CESG-;*6_*R^*2_8\'<.6?XZGLN*[HO:&]0?GS[.O]P&U9'UJQ&"
^XMB(3.9,23,2,16645,0)="""DATA"",396.18,224,3,384,0)"
^XMB(3.9,23,2,16646,0)="MV#T*KTD\@]?XP?KW=L]FIF7/?FVU\%JAAL]0IV'7:M42^RX*FE3\<PQHOY_U"
^XMB(3.9,23,2,16647,0)="""DATA"",396.18,224,3,385,0)"
^XMB(3.9,23,2,16648,0)="MBJ#!KQ-!(K'2M`BK-*V?']:/@YW@SQ0?;IIJ+@\R'4;V_32I>BS#+&:]I325"
^XMB(3.9,23,2,16649,0)="""DATA"",396.18,224,3,386,0)"
^XMB(3.9,23,2,16650,0)="MU^:VK[VIF#7D4#3>X+$KTO:_P]O^F6Q7P&7FJY1KX/J',LOIEK_0.^C4PV""G"
^XMB(3.9,23,2,16651,0)="""DATA"",396.18,224,3,387,0)"
^XMB(3.9,23,2,16652,0)="M!\+JAL+J<F`3PV'5`V*G:FE$74N#7%%"";`0L5*%58C/'\U)EFZRR>3.R@J(]"
^XMB(3.9,23,2,16653,0)="""DATA"",396.18,224,3,388,0)"
^XMB(3.9,23,2,16654,0)="MR!Q^*)=/]?!#CSRU#)ZK22G[+O]'='EE#)228E""#""!S-X5B955ZRZ*9VWM&["
^XMB(3.9,23,2,16655,0)="""DATA"",396.18,224,3,389,0)"
^XMB(3.9,23,2,16656,0)="M#)+3'S\[IW*LCYTCQU;*X,[1!3CX&=<HL*TL(?<HP@0,@7@T'LBSI1X&P/]S"
^XMB(3.9,23,2,16657,0)="""DATA"",396.18,224,3,390,0)"
^XMB(3.9,23,2,16658,0)="M=5\+].V_OB9K<Q@^>@`,?[QAR=5#\#'!QX#@NQ<(_K$A^-HST#<HC&$OAM0^"
^XMB(3.9,23,2,16659,0)="""DATA"",396.18,224,3,391,0)"
^XMB(3.9,23,2,16660,0)="M^IF.P(GZL;'!0@H`""U88K/]RM+'SGDGYH]LK4'@""*^'QH['TA/*S2<G-$""RK"
^XMB(3.9,23,2,16661,0)="""DATA"",396.18,224,3,392,0)"
^XMB(3.9,23,2,16662,0)="MCC>'_AP-'II$.8F!5#)VX5H;QC-SY;>[2I374KI-LEP,!9'&':=9W10"",EJ_"
^XMB(3.9,23,2,16663,0)="""DATA"",396.18,224,3,393,0)"
^XMB(3.9,23,2,16664,0)="MO+).F/LF""7,HR1)!#TD07#'JYP2D)=;HK!C:+TG^68S]*7=M266_PEWT[!=-"
^XMB(3.9,23,2,16665,0)="""DATA"",396.18,224,3,394,0)"
^XMB(3.9,23,2,16666,0)="M77-#J[HT0W8?%UIF#XD.9K+3AV5640`,/1#4YQ)T6GZ^Z9C5,739,O6E"":\T"
^XMB(3.9,23,2,16667,0)="""DATA"",396.18,224,3,395,0)"
^XMB(3.9,23,2,16668,0)="M(?\4&]\6^;T0G*P1J%6Y'B5M_]KPRMPM_>*L1#8H=>XYT`2^#;W`SCH;([O^"
^XMB(3.9,23,2,16669,0)="""DATA"",396.18,224,3,396,0)"
^XMB(3.9,23,2,16670,0)="M(5[AN?9?'03>@53O:ZY?'ZO1`X5S+051%$(5T.=(82KP:46K:^KJ1*N@'""J7"
^XMB(3.9,23,2,16671,0)="""DATA"",396.18,224,3,397,0)"
^XMB(3.9,23,2,16672,0)="MI<XM.\+:>FMV%JM`K%D7SV5=""""<*`F+!.N2Z;O08O%.BW6ZR:KE;-Z:AST1N"
^XMB(3.9,23,2,16673,0)="""DATA"",396.18,224,3,398,0)"
^XMB(3.9,23,2,16674,0)="M'W*:W-&]UJKX9Y4__JOHQK#2=%15X=U_[)P62*>R`*ID8Y0EG($U;,AR9S);"
^XMB(3.9,23,2,16675,0)="""DATA"",396.18,224,3,399,0)"
^XMB(3.9,23,2,16676,0)="MT9A*<&RCI_%IT<5#1!)''S4(H<,FS_H7,?6/<USRFV1<TKZ3:XQ(.H-^6P/*"
^XMB(3.9,23,2,16677,0)="""DATA"",396.18,224,3,400,0)"
^XMB(3.9,23,2,16678,0)="ML5DC5`3A'D#;3`BRXKGOG\<V+VEU)Y2KWF0%TV>NV'EOK5^ST(^7R%+*RSN]"
^XMB(3.9,23,2,16679,0)="""DATA"",396.18,224,3,401,0)"
^XMB(3.9,23,2,16680,0)="M[1\GXVALS5$\FZ.!>PR.1OX9M7C/7^:85\F2<VB15.9,'FOQ>=B.[+MIO?F:"
^XMB(3.9,23,2,16681,0)="""DATA"",396.18,224,3,402,0)"
^XMB(3.9,23,2,16682,0)="M[$:PFV5IOJ-3M]1V-KE;UK/;;*1E/2RJ'2U].AT#K5TM$LQGH""(&4S$P4-CB"
^XMB(3.9,23,2,16683,0)="""DATA"",396.18,224,3,403,0)"
^XMB(3.9,23,2,16684,0)="MLS.POVWIO`RT=I_$Z,=)!F+?.(8>-*L<EF6&""F<9N:<%$7Y<49HO5\P9V@]1"
^XMB(3.9,23,2,16685,0)="""DATA"",396.18,224,3,404,0)"
^XMB(3.9,23,2,16686,0)="M?'7^TO@/C""W$IOU`^G:@?BJM<]?B$[0#>4?O?/*U1<40LH;Q*7J\@J,_*8IT"
^XMB(3.9,23,2,16687,0)="""DATA"",396.18,224,3,405,0)"
^XMB(3.9,23,2,16688,0)="MCRHM<I(""KU/P%+G'?]38^E'#X!2/BH_?N>=:/RK""WBF>]?BZ*J))RV<-T2F>"
^XMB(3.9,23,2,16689,0)="""DATA"",396.18,224,3,406,0)"
^XMB(3.9,23,2,16690,0)="M]9C:*F8^:H8XP*4=N`&.*%PTY"")%\SNZS'&P0I@AZYQ(-#<+%L`IS]BU&M01"
^XMB(3.9,23,2,16691,0)="""DATA"",396.18,224,3,407,0)"
^XMB(3.9,23,2,16692,0)="MN^>83+2@]=99EE5%>2;2N<O$&F7_!79='AU_*9F`\:49`N!-[VE]&1,SU\F+"
^XMB(3.9,23,2,16693,0)="""DATA"",396.18,224,3,408,0)"
^XMB(3.9,23,2,16694,0)="M3H4P^L!X6ILCB_!)D472@L/YR"")I'?D%6?1`9)%`*@1`<U\75;@&J"")/3@Z!"
^XMB(3.9,23,2,16695,0)="""DATA"",396.18,224,3,409,0)"
^XMB(3.9,23,2,16696,0)="M0`4X=7?UNN:##:MR4_&-.K\XFYPFPN(L\UU*!;2^W62R;28B+O.L$`G<+;=<"
^XMB(3.9,23,2,16697,0)="""DATA"",396.18,224,3,410,0)"
^XMB(3.9,23,2,16698,0)="MU2!Q=T7K7;ZMF44KTIVP:*+<V@X/8=$JGYWQ-+`HBBY?&`'4,!FKF3Q""C,HN"
^XMB(3.9,23,2,16699,0)="""DATA"",396.18,224,3,411,0)"
^XMB(3.9,23,2,16700,0)="MUSXQ$6!C+E^].;""-MS<,^-;PZ>538`5,<>XD!B-G44EN>9+<WAF6;SL`8V0/"
^XMB(3.9,23,2,16701,0)="""DATA"",396.18,224,3,412,0)"
^XMB(3.9,23,2,16702,0)="M34KB>8].2ZR@)>P7*BFI]0E['J%._"">]0<CLP:P:Y&-UI>^Q%]B:1#^&$-;0"
^XMB(3.9,23,2,16703,0)="""DATA"",396.18,224,3,413,0)"
^XMB(3.9,23,2,16704,0)="M#!)Y..#>OR<!D<$*.N=/Z_K!CI^<NJ-M7;/50`%:RANMK#NSF_*=46*IU,%H"
^XMB(3.9,23,2,16705,0)="""DATA"",396.18,224,3,414,0)"
^XMB(3.9,23,2,16706,0)="MRGX?Z/5]Y_JK]?1&?M[`R[/%!#Z""4_>FV^=E[MB14SIVR#L*9#R^^'5']>L\"
^XMB(3.9,23,2,16707,0)="""DATA"",396.18,224,3,415,0)"
^XMB(3.9,23,2,16708,0)="MY9&/Y>)#?[VD+`B^Q9%_4ZX%.N()'^N""EKZKI&IH0E,0@J]WH[*G[BL13^4L"
^XMB(3.9,23,2,16709,0)="""DATA"",396.18,224,3,416,0)"
^XMB(3.9,23,2,16710,0)="M`8(*0=.]$#IM$8Z`XS;T//_B+JG<)6+8@:8=TS92A!ZH<[3`M5_H='^.D6IM"
^XMB(3.9,23,2,16711,0)="""DATA"",396.18,224,3,417,0)"
^XMB(3.9,23,2,16712,0)="M34];*0!K>LAF3A!QE=CV3;)LQP']F\5H[.%^RXJDX,,@G=>WMTE6U9<63?MV"
^XMB(3.9,23,2,16713,0)="""DATA"",396.18,224,3,418,0)"
^XMB(3.9,23,2,16714,0)="M&V'.8I4Y""TV,66^R^`%$3V!;%EQLF<J6(9O0#\V(_!!DU$*HQ0Z-F8<1[H%O"
^XMB(3.9,23,2,16715,0)="""DATA"",396.18,224,3,419,0)"
^XMB(3.9,23,2,16716,0)="M'C'N2VHG<3ID\=M-5O`7WM'_[5C@UX=O@-'=@\(G;2@NATCBXO\!4$L#!!0`"
^XMB(3.9,23,2,16717,0)="""DATA"",396.18,224,3,420,0)"
^XMB(3.9,23,2,16718,0)="M`@`(`""UF,C5KWP\V^PP``$=0```>````06ED7V%N9%]A='1E;F1A;F-E7S$Q"
^XMB(3.9,23,2,16719,0)="""DATA"",396.18,224,3,421,0)"
^XMB(3.9,23,2,16720,0)="M,RYP;FPN8V1EU5Q9<]O($7YWE?_#%!^BQ.NEB(M'U6JKM!2U5D42%4KQQD\N"
^XMB(3.9,23,2,16721,0)="""DATA"",396.18,224,3,422,0)"
^XMB(3.9,23,2,16722,0)="MD!Q*B'$P.""0YOSX]N(BY!UII4TN7""Q30T]=\T],ST^#Q,;JYGM^BVTT:[//W"
^XMB(3.9,23,2,16723,0)="""DATA"",396.18,224,3,423,0)"
^XMB(3.9,23,2,16724,0)="M[]Z_N]BA\R#-\E41GUCOWYWA71#CZR+"":;!!IQ=G7Z_P=GGS]2+>A,46;]^_"
^XMB(3.9,23,2,16725,0)="""DATA"",396.18,224,3,424,0)"
^XMB(3.9,23,2,16726,0)="M0PC=XESP"")V@$3RN.-SF:1#?=ZA6^#\%SG(AA_89L""!WYS>_7:W\;9#\FB;%"
^XMB(3.9,23,2,16727,0)="""DATA"",396.18,224,3,425,0)"
^XMB(3.9,23,2,16728,0)="MWAK>XA!OX/%%CB-H7C8.ME]O_!B'D^$O1%*>[-(DSH'!N1]FN*$""9B65*Z.J"
^XMB(3.9,23,2,16729,0)="""DATA"",396.18,224,3,426,0)"
^XMB(3.9,23,2,16730,0)="MM,UJ;8'I:;3OB(""_B$[PK=7IOM3);94*:*5^*?(\B6UW^#G(@G6(^S1OM/5&"
^XMB(3.9,23,2,16731,0)="""DATA"",396.18,224,3,427,0)"
^XMB(3.9,23,2,16732,0)="MY&-1.I^(-88FJU6$L\R_QR+GWUH?JZM=7YWZZM97K[Z.Z^NDOD[KZZRCW*T%"
^XMB(3.9,23,2,16733,0)="""DATA"",396.18,224,3,428,0)"
^XMB(3.9,23,2,16734,0)="MU@P&J'O+YF\Y_""V7O^7QM\;\K0E_:\K?FK6W:`>`XR\;@ZW1Q_+&5>6LZN[*"
^XMB(3.9,23,2,16735,0)="""DATA"",396.18,224,3,429,0)"
^XMB(3.9,23,2,16736,0)="MK6XN]T$<)'%U\_3LLM.AEP)SK!%][\""6HUVY'&DMC"",%N8P=6;<CFYZT6HN:"
^XMB(3.9,23,2,16737,0)="""DATA"",396.18,224,3,430,0)"
^XMB(3.9,23,2,16738,0)="M/K3J3EP\!EL<;VK;SIXIE05]9XE,$W25Q?=5(XI[</;,V5MBVAJN.30?'S\D"
^XMB(3.9,23,2,16739,0)="""DATA"",396.18,224,3,431,0)"
^XMB(3.9,23,2,16740,0)="MV3[(_3#X;QD8J!:VL,7I9I-$>S\.(%K<I?XC#MEV8V$[/UJSA%,AX3Q(-T64"
^XMB(3.9,23,2,16741,0)="""DATA"",396.18,224,3,432,0)"
^XMB(3.9,23,2,16742,0)="MY3Y8EZ$0@PCTD!2'F-(TGXF;X_0QV/@A`L-BC,(@`OMRZ&[.(2-A^[N')/4W"
^XMB(3.9,23,2,16743,0)="""DATA"",396.18,224,3,433,0)"
^XMB(3.9,23,2,16744,0)="M25A$:S_EF/!N%?L5XE8A$>L(&UPF3SA%BV>@E#85M_Q,^@_=!O=QQC;PA`U6"
^XMB(3.9,23,2,16745,0)="""DATA"",396.18,224,3,434,0)"
^XMB(3.9,23,2,16746,0)="M>).DVPRM\&.`GSC]1&[EH#$R(;*$1._?'1\3NIMD7^S1HY\&/H3I#.4).DKV"
^XMB(3.9,23,2,16747,0)="""DATA"",396.18,224,3,435,0)"
^XMB(3.9,23,2,16748,0)="M.#Y""P0[M4U`..CW\COPX`]>4\(2YDH_ESC#KA/*3P1><#<@<=Q@])X/ES>*:"
^XMB(3.9,23,2,16749,0)="""DATA"",396.18,224,3,436,0)"
^XMB(3.9,23,2,16750,0)="MW%S$VV#'!@>>I4NQ/$R8[?1B39KII35=J!O-Z*>?!Z=A$N-2/3/Z025\<5<'"
^XMB(3.9,23,2,16751,0)="""DATA"",396.18,224,3,437,0)"
^XMB(3.9,23,2,16752,0)="M^X,I""I7NTH)HU%K;7(4BH9W&?V/>?V).,X;3,G_`*<UK:L@+L*/1:F;*R=;B"
^XMB(3.9,23,2,16753,0)="""DATA"",396.18,224,3,438,0)"
^XMB(3.9,23,2,16754,0)="M8V3*RF5872<,)\N0DS/6<7+DH(5IZF2P>/1#>`C/0$`UJ'YL/S""T[XL0PM<\"
^XMB(3.9,23,2,16755,0)="""DATA"",396.18,224,3,439,0)"
^XMB(3.9,23,2,16756,0)="MV6)TN%_1H8L8YK5B0T),5J>@G<S)'L[#8/.M3`9K)*D3OHJHUO+BO,O+Z\NK"
^XMB(3.9,23,2,16757,0)="""DATA"",396.18,224,3,440,0)"
^XMB(3.9,23,2,16758,0)="M'DTU,Z+M!^:#Z/""%V.>D5>GT;AY;.KW*ZFPJ\R-SY2'[77]'GT]72[0N<A0G"
^XMB(3.9,23,2,16759,0)="""DATA"",396.18,224,3,441,0)"
^XMB(3.9,23,2,16760,0)="M.?(?_2`DT6E`)<T+:.I5O.[P,U%[,/]Q%T""NF58Z/?D9?-5R';(X,5/YIY]?"
^XMB(3.9,23,2,16761,0)="""DATA"",396.18,224,3,442,0)"
^XMB(3.9,23,2,16762,0)="M1V=#Z<XK.LQIA</""HYREJ]Y\(\<YK^DX1^2X:O``607X1FR-^I,NYI6+BYKP"
^XMB(3.9,23,2,16763,0)="""DATA"",396.18,224,3,443,0)"
^XMB(3.9,23,2,16764,0)="M'T60'X82S]F5<6[7((U^_>#4SDAO-VBZ&M)__P##!];`,'RB(LO1NAE&A#?>"
^XMB(3.9,23,2,16765,0)="""DATA"",396.18,224,3,444,0)"
^XMB(3.9,23,2,16766,0)="M)2E&6;&&!""PGJ3A,*?!XGZ3Y`!K.'_STKY;S-]EL9XX+G0><-_8`/1ZR/\P5"
^XMB(3.9,23,2,16767,0)="""DATA"",396.18,224,3,445,0)"
^XMB(3.9,23,2,16768,0)="M?,_^L=WVH@#T?_(KH^M!3@N@9A'*;@NP4[A^EX&*!,T_F+L_\)]/U!JN3X[,"
^XMB(3.9,23,2,16769,0)="""DATA"",396.18,224,3,446,0)"
^XMB(3.9,23,2,16770,0)="M9)!C-H.L#249M#2E5JXR:SZU&9VXIM$0,M^NBAT=I""H+ER""6>IE""8KM5AO6*"
^XMB(3.9,23,2,16771,0)="""DATA"",396.18,224,3,447,0)"
^XMB(3.9,23,2,16772,0)="M^1Q6FVF$HZ3>48B2J?#NC+6EU484GI6^D7#JPT@""&3YU(I]JR8ZN2&+X%W2:"
^XMB(3.9,23,2,16773,0)="""DATA"",396.18,224,3,448,0)"
^XMB(3.9,23,2,16774,0)="MYSC>^G'>SC:P(@(T&RR)>BZA>BZ/>JR.M,L@S?))M-=Q:$H3,:P-<,TN&2A,"
^XMB(3.9,23,2,16775,0)="""DATA"",396.18,224,3,449,0)"
^XMB(3.9,23,2,16776,0)="MVT),3]28MDV6WE(6ET&6KY-G2Z!6B?.K$N?ESG""46%8_X]KN^S-:>,CHSFE="
^XMB(3.9,23,2,16777,0)="""DATA"",396.18,224,3,450,0)"
^XMB(3.9,23,2,16778,0)="M54.1@P3SU""C).ZR7#&6QJR3AY.G*5N.MH_PU,!T/%S')501+M*AT$/><3D\U"
^XMB(3.9,23,2,16779,0)="""DATA"",396.18,224,3,451,0)"
^XMB(3.9,23,2,16780,0)="M0]1`*MN!G-B&P`2@;>^S.8-8D9G<^I+_2&6]5!S)!_3R6+LY@93=[014NF>D"
^XMB(3.9,23,2,16781,0)="""DATA"",396.18,224,3,452,0)"
^XMB(3.9,23,2,16782,0)="M""?2E='01[?T`6C;QG=^RT20&56<Y0]SHQ""P[KA972T?F(C.9S%0O$LH=*;%B"
^XMB(3.9,23,2,16783,0)="""DATA"",396.18,224,3,453,0)"
^XMB(3.9,23,2,16784,0)="MY0!QM!-BO6D`J15TX0[=?@O"",-,0UW8M5_+N[TQB,C*R;>#':(]3R$`CY(<A"
^XMB(3.9,23,2,16785,0)="""DATA"",396.18,224,3,454,0)"
^XMB(3.9,23,2,16786,0)="MVA5QM2U#S6P*!J9T2D%L``1?W*1)!A#*@NX&$3F,$R8'_'&:N.==3J]F,ZY)"
^XMB(3.9,23,2,16787,0)="""DATA"",396.18,224,3,455,0)"
^XMB(3.9,23,2,16788,0)="MG`=W#T&&M@G.RI544!UMEBFYO_TWY.X$S""C9(7^_#X/JB.#I(=@\`'D:09X/"
^XMB(3.9,23,2,16789,0)="""DATA"",396.18,224,3,456,0)"
^XMB(3.9,23,2,16790,0)="M1F9@%GI*BI`D]Z@H44)VERL&Z""G('Q)8J?G!]B.D_=#4S^""Z)PE_]A&:A.02"
^XMB(3.9,23,2,16791,0)="""DATA"",396.18,224,3,457,0)"
^XMB(3.9,23,2,16792,0)="M^ANR%O#S4O;:WWQ#.-\,^8S7%6^'(=6!))T^H'K""43N+@(K:NI0JT(P&E08M"
^XMB(3.9,23,2,16793,0)="""DATA"",396.18,224,3,458,0)"
^XMB(3.9,23,2,16794,0)="M#9_<6NQZI<\Q+#OT6]'J?4!7O:=(\7+Z\N+W%&\^?;F]F)]>HL6_3J_0W>DO"
^XMB(3.9,23,2,16795,0)="""DATA"",396.18,224,3,459,0)"
^XMB(3.9,23,2,16796,0)="M->JIHQ1*ZD0CU%$:H`PG'W[U@QR5`9N;5AQE8)%0P;""Z+@<#A14YL2'9@2>S"
^XMB(3.9,23,2,16797,0)="""DATA"",396.18,224,3,460,0)"
^XMB(3.9,23,2,16798,0)="MM2UNPFW_-Y'=\9K(?<(.%0(_FY]/S`1VDPVI1'ILU).$+9I+!).)[0B""I<8+"
^XMB(3.9,23,2,16799,0)="""DATA"",396.18,224,3,461,0)"
^XMB(3.9,23,2,16800,0)="MK'O?2A\""L7410,SSXRW:0_0N4MSB:9-$ZP2T\]H]3$EZXJGS(6>JR8<808I$"
^XMB(3.9,23,2,16801,0)="""DATA"",396.18,224,3,462,0)"
^XMB(3.9,23,2,16802,0)="MR--D0I0H<294D<E4&.ML'6ML=0QM'6MM'>ML=<QL=70YOR>(%P@""VV\XN'_("
^XMB(3.9,23,2,16803,0)="""DATA"",396.18,224,3,463,0)"
^XMB(3.9,23,2,16804,0)="MR5Y6?(^ENVV""(5\?5C;HG-<F6]1>./?85C\6Y?8""'@JBD+C5F^A)1""!2;SER"
^XMB(3.9,23,2,16805,0)="""DATA"",396.18,224,3,464,0)"
^XMB(3.9,23,2,16806,0)="M3KA,LNSW6DD%NI<;R;)Y-1MA""HI?TM&]>U)L0<^.%.Z^F(T(N2%_7D""+<RXV"
^XMB(3.9,23,2,16807,0)="""DATA"",396.18,224,3,465,0)"
^XMB(3.9,23,2,16808,0)="M33H^GH=)ID]<]"">PG<]IM""[""NE9%Z'[+D^U_\;GDE)L5)81C<T)1YTO%""XA5"
^XMB(3.9,23,2,16809,0)="""DATA"",396.18,224,3,466,0)"
^XMB(3.9,23,2,16810,0)="MNU^<;<PZEN/_EIX035`:=:N:`ZT*S-3X\K[@S#?#&(TSPEIFX$31'^U!JBL["
^XMB(3.9,23,2,16811,0)="""DATA"",396.18,224,3,467,0)"
^XMB(3.9,23,2,16812,0)="MY!BSAQQCV2''6+Q9S-!H]XH[*FT4VWYB:4IA2AA,=""<M8WJ7FG4;NQE3)[ZN"
^XMB(3.9,23,2,16813,0)="""DATA"",396.18,224,3,468,0)"
^XMB(3.9,23,2,16814,0)="M`M[2LD""Y(708HB*;^I3E]XA1(Y$N3,P3=%G6)GY*(BSS]4RY!WLXW)=A<LIB"
^XMB(3.9,23,2,16815,0)="""DATA"",396.18,224,3,469,0)"
^XMB(3.9,23,2,16816,0)="M<BK#Y)0[]E""56NHQZ2F=/%5N>PN%*3$Y4V\;=UPA<YQBC]B1:R]$QU2((!$2"
^XMB(3.9,23,2,16817,0)="""DATA"",396.18,224,3,470,0)"
^XMB(3.9,23,2,16818,0)="MIQHGZ9$X[8O$MKSUMJQ,O3Q4IB8[=%[OZDG<+""NJHWUJ365HG+%HG,G0.%-$"
^XMB(3.9,23,2,16819,0)="""DATA"",396.18,224,3,471,0)"
^XMB(3.9,23,2,16820,0)="MR.;X>S9\-(Z0H),J1,[D(5(F305'QD^""$#D3@=&:FJ#1-2ECYFD,XN),B<99"
^XMB(3.9,23,2,16821,0)="""DATA"",396.18,224,3,472,0)"
^XMB(3.9,23,2,16822,0)="M3Z1UZJ!Q^B*TV49HFTF+#D9<U<%(6G8P,IB2@<A\3@:]5(B3""%3+4V+.UA9`"
^XMB(3.9,23,2,16823,0)="""DATA"",396.18,224,3,473,0)"
^XMB(3.9,23,2,16824,0)="MC(2@FTDG9D:`8W8@ZAG5R2ML5:Y*@&ZN=NM+9N;R\\_]OJJ@3S&@]+O,SZX\"
^XMB(3.9,23,2,16825,0)="""DATA"",396.18,224,3,474,0)"
^XMB(3.9,23,2,16826,0)="M""VZ=:H^DH.1+8>2U,)8)*""VCHH)UHU<#RESD/<L`E%8?4'+'N;2W6G=(W2<&"
^XMB(3.9,23,2,16827,0)="""DATA"",396.18,224,3,475,0)"
^XMB(3.9,23,2,16828,0)="MBZ5]KD0<HZ1G!&Q7SF!FO#)S1N:DECFI;4[JF).ZYJ2>8G$F1H9G<'#LVK)%"
^XMB(3.9,23,2,16829,0)="""DATA"",396.18,224,3,476,0)"
^XMB(3.9,23,2,16830,0)="M9-DA/=:NC#C)F7%'GF(7U97JP>U]L$=/ZEJ0%\+:*,(=7@]J9MURG[_[KE""?"
^XMB(3.9,23,2,16831,0)="""DATA"",396.18,224,3,477,0)"
^XMB(3.9,23,2,16832,0)="M%PV8\6I)PYW#A3M'&NX<DW#GJ,,=5U$-NBGG8<<@Y#GBD""<%-^,T+NRUY^RV"
^XMB(3.9,23,2,16833,0)="""DATA"",396.18,224,3,478,0)"
^XMB(3.9,23,2,16834,0)="M<G^I)7/D9%TG2SM%C"";'9%IV]-E!^8ZO,V$.[R39P41\>RIE[#E&C.V1G(-K"
^XMB(3.9,23,2,16835,0)="""DATA"",396.18,224,3,479,0)"
^XMB(3.9,23,2,16836,0)="MQL&2<_#,.-AR#F,S]XQU<9/SLS""..:JXZ?6(FXPX6=QT^+@IEJ@(JYYH7""U7"
^XMB(3.9,23,2,16837,0)="""DATA"",396.18,224,3,480,0)"
^XMB(3.9,23,2,16838,0)="MH7`(M`?9Y\V`NI"",%/H(JM'8<Z4[Y4T5PT1ZADI74DV$%32.8:6-7.%N<8?"""
^XMB(3.9,23,2,16839,0)="""DATA"",396.18,224,3,481,0)"
^XMB(3.9,23,2,16840,0)="M1.()`QM%)^761'\F8N#A-_<N.R):4-AFH+`-02$\,:;5GAJJ/15VMFT(""KLW"
^XMB(3.9,23,2,16841,0)="""DATA"",396.18,224,3,482,0)"
^XMB(3.9,23,2,16842,0)="M*&Q34`@.X!4FFH+""-@#%*WN7>;-!&+VXN8.>AJO8U4G?!,'2UA5P*B76':$4"
^XMB(3.9,23,2,16843,0)="""DATA"",396.18,224,3,483,0)"
^XMB(3.9,23,2,16844,0)="M*@J8]LCH/-\>Z:8+;NX3*>.I/6#U\X!KY@%/XP'+S`.6U@.>@0<F:@_8_3S@"
^XMB(3.9,23,2,16845,0)="""DATA"",396.18,224,3,484,0)"
^XMB(3.9,23,2,16846,0)="MF7E@HO&`;>8!6^N!L:QJDM9GJG2""->[GA+&T^E`J55C//#;R@BAQJH^Q=:\0"
^XMB(3.9,23,2,16847,0)="""DATA"",396.18,224,3,485,0)"
^XMB(3.9,23,2,16848,0)="M6]H3;/JL;23AUVP4VY:V%O'`S.K-C%/N7+!7-_7$,R/E>DLT_W?+R%QY[#,1"
^XMB(3.9,23,2,16849,0)="""DATA"",396.18,224,3,486,0)"
^XMB(3.9,23,2,16850,0)="M>J*5*>C/5K1*%S,?C(U\,-7XP.KG@[&)#Z9F/K!4NM`^X%\]%?SR4EE[+?C-"
^XMB(3.9,23,2,16851,0)="""DATA"",396.18,224,3,487,0)"
^XMB(3.9,23,2,16852,0)="M)O(Y/D;D]K[S]O2F+/:J?N[)B'T=6)#@4S'IE&G?@+D9)O7569&6U=5-J;:/"
^XMB(3.9,23,2,16853,0)="""DATA"",396.18,224,3,488,0)"
^XMB(3.9,23,2,16854,0)="MFE<NZY_9&0Y^:-ZA/'P9W#U@='3EQX3;'8[VH9_C[`@5>1`&^7>T2XIXB^`_"
^XMB(3.9,23,2,16855,0)="""DATA"",396.18,224,3,489,0)"
^XMB(3.9,23,2,16856,0)="M3LL""[*/EOBQ7/T+53FA;F)W`7Q$YC2!_99L4XQAM_+BL_,[`""V7=]Y;7""N6U"
^XMB(3.9,23,2,16857,0)="""DATA"",396.18,224,3,490,0)"
^XMB(3.9,23,2,16858,0)="MT.&@,0\W?5&E-2__?:R*$^)_E@%Z6_73#-!)EW[[2V""5%HOG(%_^'>1:=)4H"
^XMB(3.9,23,2,16859,0)="""DATA"",396.18,224,3,491,0)"
^XMB(3.9,23,2,16860,0)="M_\-?\-P42&Q/M^BAWK]OD7.U.`-I-$=7SI'B%N$40`CH:""`D-<'B>@%$2TB1"
^XMB(3.9,23,2,16861,0)="""DATA"",396.18,224,3,492,0)"
^XMB(3.9,23,2,16862,0)="MY*,77?GS1,J!X;;\1A""$G\D;6Z;:C8RTNU[>\1JVX^M+4G2&,H]>`F``_%G@"
^XMB(3.9,23,2,16863,0)="""DATA"",396.18,224,3,493,0)"
^XMB(3.9,23,2,16864,0)="MW\=)%F0H]]?#[NO*]-=FO,*0J(;3&XT\[6@C%#EYQ0/F[VH'LWX#=8/!RWYT"
^XMB(3.9,23,2,16865,0)="""DATA"",396.18,224,3,494,0)"
^XMB(3.9,23,2,16866,0)="M&(VOVUV=$6D<:ZDQHAHB?15E5""7OGSQA%.-'<+F?D6QBEZ25$Y?[5OOV76&P"
^XMB(3.9,23,2,16867,0)="""DATA"",396.18,224,3,495,0)"
^XMB(3.9,23,2,16868,0)="MXG]02P,$%``""``@`+68R-6["".QV4""@``K38``!X```!!:61?86YD7V%T=&5N"
^XMB(3.9,23,2,16869,0)="""DATA"",396.18,224,3,496,0)"
^XMB(3.9,23,2,16870,0)="M9&%N8V5?,3$S+G!N;""YR97""U6VNOV[@1_1X@_X%`4*`M&ESKY4=PFX*6:)N-"
^XMB(3.9,23,2,16871,0)="""DATA"",396.18,224,3,497,0)"
^XMB(3.9,23,2,16872,0)="M1*H4=1VGN""BVV$6Q0-,LBO;_=X:2K""=E2IO>#T%L2L/AX3S.#.E89CD3!=5<"
^XMB(3.9,23,2,16873,0)="""DATA"",396.18,224,3,498,0)"
^XMB(3.9,23,2,16874,0)="M""D)%0O`3_I]]IAD7YONW;RA/S""#5FHF$BI@1J<A%E@4[RA(&>D__<<'?VS=O"
^XMB(3.9,23,2,16875,0)="""DATA"",396.18,224,3,499,0)"
^XMB(3.9,23,2,16876,0)="MWSP_RU+GI9:GT\>/Y.F)Y#(O<W*2*B-_A:G_EO_PKY_^Z;\.GWQ^YB)AHO[T"
^XMB(3.9,23,2,16877,0)="""DATA"",396.18,224,3,500,0)"
^XMB(3.9,23,2,16878,0)="M[AT^FOWT]5NTP3_OW;OZNSB_9NJ''W_^=O[WM__^4HT&LZ,^C+Y]H]@+9U<B"
^XMB(3.9,23,2,16879,0)="""DATA"",396.18,224,3,501,0)"
^XMB(3.9,23,2,16880,0)="M3R1C""8]I2A2+I4J*F27:=/3O&K(??_Y/U$PR^`JU^OVO^UNHP/-S_ZN/'Q<("
^XMB(3.9,23,2,16881,0)="""DATA"",396.18,224,3,502,0)"
^XMB(3.9,23,2,16882,0)="M"",8""@D4""_N\0"")CSL3XV$XC?GWC*R)46'TB]T,E'7=9L,\*!:9$K4VQVML!I"
^XMB(3.9,23,2,16883,0)="""DATA"",396.18,224,3,503,0)"
^XMB(3.9,23,2,16884,0)="M27T_B&66P3`N`U^M'@[-BX.')X2#0X+3UYY(!4N]RA6[SC<`O%G4A1=:JMO("
^XMB(3.9,23,2,16885,0)="""DATA"",396.18,224,3,504,0)"
^XMB(3.9,23,2,16886,0)="M7X93=""""B""9=G)<L<-L`1U>XKA!?DA6FFJ(!0IC+05^CT1HXL43R!E__4P[9]"
^XMB(3.9,23,2,16887,0)="""DATA"",396.18,224,3,505,0)"
^XMB(3.9,23,2,16888,0)="M=;R'4S,$RY4*^DK%I5*52A=9Y%S3E']AB46K""6^:""H]F4ZSA,6S]+N$:S2&A"
^XMB(3.9,23,2,16889,0)="""DATA"",396.18,224,3,506,0)"
^XMB(3.9,23,2,16890,0)="MFA&:9!S"">7(W-C-J-^563,8R>0`QS0*(H%EKLV;45<P>C9/KVU.A0:>>C'TE"
^XMB(3.9,23,2,16891,0)="""DATA"",396.18,224,3,507,0)"
^XMB(3.9,23,2,16892,0)="M8QSB^Q!YWO(M\8Q/P&8TFZ(5?6$I&,E-@J776T02F?$8`H!E<SS/S6;""Y0J&"
^XMB(3.9,23,2,16893,0)="""DATA"",396.18,224,3,508,0)"
^XMB(3.9,23,2,16894,0)="M&!ADPC#WU+II232XD\FT'Z85""EU03\$EC_(S(D!CB`M@/#<NSO?4KGLQ8GN/"
^XMB(3.9,23,2,16895,0)="""DATA"",396.18,224,3,509,0)"
^XMB(3.9,23,2,16896,0)="M$<U[]CGVO9WU-CA#(Y0DK(@5SY$@]"";P-FT4,F\YR\<52'UA:H#4K'CKEN&H"
^XMB(3.9,23,2,16897,0)="""DATA"",396.18,224,3,510,0)"
^XMB(3.9,23,2,16898,0)="M4\2I'^PNR,Q]RTW$2R@'UZ:QYB]<<U9\F(RW*,/->+P5UH/O@/&R`BR&$7@6"
^XMB(3.9,23,2,16899,0)="""DATA"",396.18,224,3,511,0)"
^XMB(3.9,23,2,16900,0)="M=$E*4`[H&M`XH&[Z(G,,T<CB<B4+>$[#)YKG*4=V9[/XT-6OO3%""8&>$%@68"
^XMB(3.9,23,2,16901,0)="""DATA"",396.18,224,3,512,0)"
^XMB(3.9,23,2,16902,0)="MD>&/_`0I[R\E5RP!%2$:_;DLM#'$1@G#.$_X$!/QS8@P#V$F^S!EHF9BIUPL"
^XMB(3.9,23,2,16903,0)="""DATA"",396.18,224,3,513,0)"
^XMB(3.9,23,2,16904,0)="MLZ,$8^Z0P/J;W>B;?9\HMEBT+^.\[2>I6A<#YGSD*<0WU/X>;""1BKEFL2<'2"
^XMB(3.9,23,2,16905,0)="""DATA"",396.18,224,3,514,0)"
^XMB(3.9,23,2,16906,0)="M$RQ19K7=7.@7""B3@""5SFS!3PS/>_YN_Q5G6!2/B7+URPHL-UFE&77>\BB(""H"
^XMB(3.9,23,2,16907,0)="""DATA"",396.18,224,3,515,0)"
^XMB(3.9,23,2,16908,0)="M&TGEA+#=$F'[QI!Y=J1I912G$R*'EMU@""X#2[%BFW0QRE^#H9C.)/9QYAU#%"
^XMB(3.9,23,2,16909,0)="""DATA"",396.18,224,3,516,0)"
^XMB(3.9,23,2,16910,0)="M4!?XMXI%1YG<2$Z5+M""WBENA60;:YY0KP\#@8:JG%O'(0/#9RDB8>.%*""A1G"
^XMB(3.9,23,2,16911,0)="""DATA"",396.18,224,3,517,0)"
^XMB(3.9,23,2,16912,0)="M\].9'=OV_#08^VE'V5XHW??\++#AVC?_1XAVGS:+?1\CHL4GGJ8M9X*T5PIZ"
^XMB(3.9,23,2,16913,0)="""DATA"",396.18,224,3,518,0)"
^XMB(3.9,23,2,16914,0)="M!""J.T#""%U,>2IEJ!J.`#FII?;H6)VIA4!R35E7<%KP[U#C""KL""UUX%/4^]2)"
^XMB(3.9,23,2,16915,0)="""DATA"",396.18,224,3,519,0)"
^XMB(3.9,23,2,16916,0)="M)>;CKO_QT/^X-<7IBV%>!3^+?IAP8X&H#5@F8$EUV2DXS!@\>7(3@\O(R[3H"
^XMB(3.9,23,2,16917,0)="""DATA"",396.18,224,3,520,0)"
^XMB(3.9,23,2,16918,0)="M""XC@F;__\M61C^+:%0,F"":I@U%!=-ZZ>F*EX!L(0N6,J90(>!*%LN#1OASO9"
^XMB(3.9,23,2,16919,0)="""DATA"",396.18,224,3,521,0)"
^XMB(3.9,23,2,16920,0)="M_0*M^NO7RS\<Y1O:R_CYHOMR@?!.N^+6)=S=M_4Z(1IM.\<F2[$T0$5WB22^"
^XMB(3.9,23,2,16921,0)="""DATA"",396.18,224,3,522,0)"
^XMB(3.9,23,2,16922,0)="M8$:Q\,9H!M_]*""9[K=3)`(\EY&^(89:8V\%CCQ0\&U++XY#4R/#;.<Z4B]$<"
^XMB(3.9,23,2,16923,0)="""DATA"",396.18,224,3,523,0)"
^XMB(3.9,23,2,16924,0)="M_N(YQLD_&J7ZK275^RT':()+8'SPS`0X4(J4A5&%Z6DJ8[NG.U3I6/(T&2UX"
^XMB(3.9,23,2,16925,0)="""DATA"",396.18,224,3,524,0)"
^XMB(3.9,23,2,16926,0)="M;HL&$7T_#NEU:JHD6R/Z?DEF1JQR((Y=#[N/N2L;V)2]R[:JZ\9*QAO95'>B"
^XMB(3.9,23,2,16927,0)="""DATA"",396.18,224,3,525,0)"
^XMB(3.9,23,2,16928,0)="MU(KCI!A&H?HL""XM[^'NG^-,U#3#:1W54X.1TIE*P@F2FL18[OF.G""%FS;S']"
^XMB(3.9,23,2,16929,0)="""DATA"",396.18,224,3,526,0)"
^XMB(3.9,23,2,16930,0)="MP.H3H6W`LPW8YO`W-HI]L`WL;`.1\<N49Y`=$:NEN7%""'/8)D'PU9.1*TT_D"
^XMB(3.9,23,2,16931,0)="""DATA"",396.18,224,3,527,0)"
^XMB(3.9,23,2,16932,0)="MRJ&$*FL&UQ8UILRI#1CXN[1UF[S(A:`-WMD:DE[-9#%5;[M""[KY;+3:KK&LS"
^XMB(3.9,23,2,16933,0)="""DATA"",396.18,224,3,528,0)"
^XMB(3.9,23,2,16934,0)="M0LGUPE@*^8,KVV)<.?9N!<?>32DG&`1]/),`+M90?VX'>^?>1=N^/H:O]F!#"
^XMB(3.9,23,2,16935,0)="""DATA"",396.18,224,3,529,0)"
^XMB(3.9,23,2,16936,0)="MH6XY^VWQ.[/OH$Y3T%IX<_.B(UR'%7`=3#]-Q656V4D?-S3EE-$74[*0B\RL"
^XMB(3.9,23,2,16937,0)="""DATA"",396.18,224,3,530,0)"
^XMB(3.9,23,2,16938,0)="M=G1PAVS_ZA;K36""L?`.H&<3>V#CH3(WA!6Y(80!9G`I,>PH+M:J\HAF\6H6,"
^XMB(3.9,23,2,16939,0)="""DATA"",396.18,224,3,531,0)"
^XMB(3.9,23,2,16940,0)="M/S1%'3F5(JXS1+>$N_>5;;WDC9O>^^5J[ZMF,BIW!!""!`D$RBS6XPPLWQW;1"
^XMB(3.9,23,2,16941,0)="""DATA"",396.18,224,3,532,0)"
^XMB(3.9,23,2,16942,0)="MD[_98.EYE:K`Y@]4I/I""V(T5%FT=O=?W5H#L=;TW9NK%5%O`]068']IA&ZG-"
^XMB(3.9,23,2,16943,0)="""DATA"",396.18,224,3,533,0)"
^XMB(3.9,23,2,16944,0)="M,9NL_J<@W:&505UL@]AS-]""#JX&&XSS;ZO=T5VG.8AU]V_=7@.EWP83THV@L"
^XMB(3.9,23,2,16945,0)="""DATA"",396.18,224,3,534,0)"
^XMB(3.9,23,2,16946,0)="MTS([4O5=$/47G#5L7""&-'""&U`KHB459\""8&B1P'RJ>FO<`$Q\,0@])CD38Z*"
^XMB(3.9,23,2,16947,0)="""DATA"",396.18,224,3,535,0)"
^XMB(3.9,23,2,16948,0)="M47WAXFS#PS7XA""NV,JS<N(DOIH$,FUI""':$(^ZP5RTSWF%3ZVU0,%VR9][H8"
^XMB(3.9,23,2,16949,0)="""DATA"",396.18,224,3,536,0)"
^XMB(3.9,23,2,16950,0)="MQ^@>;)3I&_?5NW5BIDW!R+6;CX""PSS2&FI+A:0<FU+MTTPC&'E!1,:RF95T@"
^XMB(3.9,23,2,16951,0)="""DATA"",396.18,224,3,537,0)"
^XMB(3.9,23,2,16952,0)="MA(P6_)BRN:Z_HU,&&T,>'?'T7Q?ONHW.FHF'X$*&9.(,AHJ+CZ5427V_@IRP"
^XMB(3.9,23,2,16953,0)="""DATA"",396.18,224,3,538,0)"
^XMB(3.9,23,2,16954,0)="MHR_.U='""D@TU\Z3LI""U9/]BL<#9<E.IU+88/.**_(K\$YA2K;J`B%ZS:I<`."
^XMB(3.9,23,2,16955,0)="""DATA"",396.18,224,3,539,0)"
^XMB(3.9,23,2,16956,0)="M`1_;(AU/[8(5(1K?Z7:E$^Q!F0TLA?F_32?7T^<576I38G=T,A`=(?39='&,"
^XMB(3.9,23,2,16957,0)="""DATA"",396.18,224,3,540,0)"
^XMB(3.9,23,2,16958,0)="M>\&*N(?OC'2!$6D[T0Q<73=:H0R&-RUYRJICITHMFR*1HR+;%1<$MM/9()77"
^XMB(3.9,23,2,16959,0)="""DATA"",396.18,224,3,541,0)"
^XMB(3.9,23,2,16960,0)="M)=D@V""[(!L'BZ!7L>ME@H)U#,@AVKH<2T7=-!GU""$3T\MP@6G5L$=4@=X=&I"
^XMB(3.9,23,2,16961,0)="""DATA"",396.18,224,3,542,0)"
^XMB(3.9,23,2,16962,0)="M'3KMB'[PMAY>!,ZGX+LQP9J<&=UM2L_9T_+=0[#\16#Y3:[XOFCYSFCM%Z`U"
^XMB(3.9,23,2,16963,0)="""DATA"",396.18,224,3,543,0)"
^XMB(3.9,23,2,16964,0)="MJ>@L7(Z55+0BBD?U+:*Z*7YD5&'0F@T(D?,IH""F&A\?U-7<>3#GC6JYE;[0B"
^XMB(3.9,23,2,16965,0)="""DATA"",396.18,224,3,544,0)"
^XMB(3.9,23,2,16966,0)="M<T0U8P9GQ_,FU'%^[:'SVKV9M;?3S:W;D5%$*Y)45'/PYO1[?M&1\Z+]F477"
^XMB(3.9,23,2,16967,0)="""DATA"",396.18,224,3,545,0)"
^XMB(3.9,23,2,16968,0)="M<\VMV)&O1-L5*]Y.G*I;PL-DHK05N-'6%9VJTSK5<)_68ZXAL)V[<.0YA<]["
^XMB(3.9,23,2,16969,0)="""DATA"",396.18,224,3,546,0)"
^XMB(3.9,23,2,16970,0)="M@_Y4*J-%PC3E:3&(7@DO*@Z#MXZFSQXJ2?U3`3&Z2/WVC6:%;BXYV[7?NEZ7"
^XMB(3.9,23,2,16971,0)="""DATA"",396.18,224,3,547,0)"
^XMB(3.9,23,2,16972,0)="MJAK7]""P@4>,M(RQH4BY,+PBGPGY@F6K[7:FM(_DZK""!?!W/4B)0FK;0I&G4("
^XMB(3.9,23,2,16973,0)="""DATA"",396.18,224,3,548,0)"
^XMB(3.9,23,2,16974,0)="M%W%:)BPALCH!Z%QRAV=RJ6P-P.#P&.,:$-Z]3.X&IU'Y_KH5M.`P9WI!Z+I["
^XMB(3.9,23,2,16975,0)="""DATA"",396.18,224,3,549,0)"
^XMB(3.9,23,2,16976,0)="MAK3?+Q!;9PN77X+>;RV7\/>1;2""T#=CN\^]]VX!GJGU<%9@A'B4SC??,)DYP"
^XMB(3.9,23,2,16977,0)="""DATA"",396.18,224,3,550,0)"
^XMB(3.9,23,2,16978,0)="M9VRO)\XQU/55:'KSGX2\0JV8R5)H].P++Y[,J2T3[,0UR>G-7'R;OAJ^G\]!"
^XMB(3.9,23,2,16979,0)="""DATA"",396.18,224,3,551,0)"
^XMB(3.9,23,2,16980,0)="M/3@6J^EWU,Q5F=37E\&/4RA*:L5L5^3W_L0II&T+%ZL66!`LNA!F4N@+W@''"
^XMB(3.9,23,2,16981,0)="""DATA"",396.18,224,3,552,0)"
^XMB(3.9,23,2,16982,0)="M2T4V-0-7-<,5:H9=!,W!($2;%D)0D-VJ7]_0!VJ&KFI&*]0TW5I);K($LTLY"
^XMB(3.9,23,2,16983,0)="""DATA"",396.18,224,3,553,0)"
^XMB(3.9,23,2,16984,0)="MJP^*.M>P8IJ;>UC86J:""GI&$-@M""M@[$@>.%B-.)<C4X<>C,XWQ!(-Q4M6""6"
^XMB(3.9,23,2,16985,0)="""DATA"",396.18,224,3,554,0)"
^XMB(3.9,23,2,16986,0)="MI^:@#9L&98ZAM[H-'4N,T0\(6KAQ=([M""LP,72&%-.N^2O4)SX-94:!/(&*"""
^XMB(3.9,23,2,16987,0)="""DATA"",396.18,224,3,555,0)"
^XMB(3.9,23,2,16988,0)="MQ?"")*M/P4`R$*7,'-X<$.*R5.U+=$?(,0CEP-JH?X.#TZPY_W""F>6KC[M?ON"
^XMB(3.9,23,2,16989,0)="""DATA"",396.18,224,3,556,0)"
^XMB(3.9,23,2,16990,0)="M*_A;&H""K^7U(C8(Y.(74._P=1/MF=9GO?U!+`0(6""Q0``@`(`""UF,C4O:^+0"
^XMB(3.9,23,2,16991,0)="""DATA"",396.18,224,3,557,0)"
^XMB(3.9,23,2,16992,0)="M!2,``+'!```:``````````$`(`""`@0````!!:61?86YD7V%T=&5N9&%N8V5?"
^XMB(3.9,23,2,16993,0)="""DATA"",396.18,224,3,558,0)"
^XMB(3.9,23,2,16994,0)="M,3$S+G!N;%!+`0(6""Q0``@`(`""UF,C77+3E?^R4``*M""`0`>``````````$`"
^XMB(3.9,23,2,16995,0)="""DATA"",396.18,224,3,559,0)"
^XMB(3.9,23,2,16996,0)="M(`""`@3TC``!!:61?86YD7V%T=&5N9&%N8V5?,3$S+G!N;""YF<FU02P$""%@L4"
^XMB(3.9,23,2,16997,0)="""DATA"",396.18,224,3,560,0)"
^XMB(3.9,23,2,16998,0)="M``(`""``M9C(U:]\/-OL,``!'4```'@`````````!`""``@(%T20``06ED7V%N"
^XMB(3.9,23,2,16999,0)="""DATA"",396.18,224,3,561,0)"
^XMB(3.9,23,2,17000,0)="M9%]A='1E;F1A;F-E7S$Q,RYP;FPN8V1E4$L!`A8+%``""``@`+68R-6["".QV4"
^XMB(3.9,23,2,17001,0)="""DATA"",396.18,224,3,562,0)"
^XMB(3.9,23,2,17002,0)="M""@``K38``!X``````````0`@`(""!JU8``$%I9%]A;F1?871T96YD86YC95\Q"
^XMB(3.9,23,2,17003,0)="""DATA"",396.18,224,3,563,0)"
^XMB(3.9,23,2,17004,0)="@,3,N<&YL+G)E<%!+!08`````!``$`""P!``![80``````"
^XMB(3.9,23,2,17005,0)="""DATA"",396.18,224,3,564,0)"
^XMB(3.9,23,2,17006,0)="end"
^XMB(3.9,23,2,17007,0)="""DATA"",396.18,224,4)"
^XMB(3.9,23,2,17008,0)="9^283979342"
^XMB(3.9,23,2,17009,0)="""DATA"",396.18,224,6)"
^XMB(3.9,23,2,17010,0)="1^374"
^XMB(3.9,23,2,17011,0)="""DATA"",396.18,225,0)"
^XMB(3.9,23,2,17012,0)="CHRONIC FATIGUE SYNDROME~113F"
^XMB(3.9,23,2,17013,0)="""DATA"",396.18,225,1,0)"
^XMB(3.9,23,2,17014,0)="^^2^2^3060901"
^XMB(3.9,23,2,17015,0)="""DATA"",396.18,225,1,1,0)"
^XMB(3.9,23,2,17016,0)="Last updated on 08/09/2006 ~113"
^XMB(3.9,23,2,17017,0)="""DATA"",396.18,225,1,2,0)"
^XMB(3.9,23,2,17018,0)="Patch DVBA*2.7*113"
^XMB(3.9,23,2,17019,0)="""DATA"",396.18,225,2)"
^XMB(3.9,23,2,17020,0)="3060530^^3060809.1832"
^XMB(3.9,23,2,17021,0)="""DATA"",396.18,225,3,0)"
^XMB(3.9,23,2,17022,0)="^396.184^682^682^3060901^^^^"
^XMB(3.9,23,2,17023,0)="""DATA"",396.18,225,3,1,0)"
^XMB(3.9,23,2,17024,0)="begin 664 Fatigue_113.pnl.zip"
^XMB(3.9,23,2,17025,0)="""DATA"",396.18,225,3,2,0)"
^XMB(3.9,23,2,17026,0)="M4$L#!!0``@`(`,Y3(349PFJ4:RD``/G6```/````1F%T:6=U95\Q,3,N<&YL"
^XMB(3.9,23,2,17027,0)="""DATA"",396.18,225,3,3,0)"
^XMB(3.9,23,2,17028,0)="MY#UIC""3767W,U)Q['[;7=EP>7[/.>-WW,;)CS[D[\<[.,-/K!3F.4UWU>OIE"
^XMB(3.9,23,2,17029,0)="""DATA"",396.18,225,3,4,0)"
^XMB(3.9,23,2,17030,0)="MJZN:.F:F;2N*$D((_I/$1!A',4<00DA`((1+@""((0D!^)""(@A)0?$`%)$')0"
^XMB(3.9,23,2,17031,0)="""DATA"",396.18,225,3,5,0)"
^XMB(3.9,23,2,17032,0)="M`@B$!.^L?M7U^EJO=F>6E;T[\[KJ>]_WO>]ZW_>]UY7-U912V=0L8)[8;^)_"
^XMB(3.9,23,2,17033,0)="""DATA"",396.18,225,3,6,0)"
^XMB(3.9,23,2,17034,0)="M%C47+-F6Y]CFR&50\Q*Q9,5N)HZ/7H.&5T_^(*%<`G""G[B5_,SZY""':!N>%["
^XMB(3.9,23,2,17035,0)="""DATA"",396.18,225,3,7,0)"
^XMB(3.9,23,2,17036,0)="MP!E3JKM7;`N<0:^ZGJ-!RW,OK&O[P;.G.S[@T,(O0*O+""]#B+TQLVDV_N0XL"
^XMB(3.9,23,2,17037,0)="""DATA"",396.18,225,3,8,0)"
^XMB(3.9,23,2,17038,0)="M?^ST.OITU78:%_:#P?1X1:MN.`9P$K%8K$+(NZQ5@7F,_%UI-<%&#;]#B$N6"
^XMB(3.9,23,2,17039,0)="""DATA"",396.18,225,3,9,0)"
^XMB(3.9,23,2,17040,0)="M_I=0-TZI2SS&B$L<&5O2FAZT+65T?67KXLKT*F+)A:6ZYKC`&SNVO+*Z</5R"
^XMB(3.9,23,2,17041,0)="""DATA"",396.18,225,3,10,0)"
^XMB(3.9,23,2,17042,0)="MY:6E2PM;VRN52?JI;=K.V)AN+IJ:?GV*C#%P_SY!?KNB-8!R9'U;W=8L5]T&"
^XMB(3.9,23,2,17043,0)="""DATA"",396.18,225,3,11,0)"
^XMB(3.9,23,2,17044,0)="M#JS15[>]E@FF8I.;F@,L#P^-AY""?(G]CM->60XC?S1`_'44\N;I0N7UH$Y&:"
^XMB(3.9,23,2,17045,0)="""DATA"",396.18,225,3,12,0)"
^XMB(3.9,23,2,17046,0)="M0BB\1'Y*9Z@P^03K""TR8XH$P?3TV<@FMM#*ZN;%Y=9,*UIIE(<$:K^YN:=`%"
^XMB(3.9,23,2,17047,0)="""DATA"",396.18,225,3,13,0)"
^XMB(3.9,23,2,17048,0)="MQM2BC9>5S(E&W6UH[9A@E*(_KIO;T-P%SJVG6!0XOER8;O)3N4""7Z_=BHIPE"
^XMB(3.9,23,2,17049,0)="""DATA"",396.18,225,3,14,0)"
^XMB(3.9,23,2,17050,0)="M7XOQ]3H>K->95<V#.SZ85]>PX/LZ'G7?(3W?'X@>I>8NVJ;1L9!18HIT$1\E"
^XMB(3.9,23,2,17051,0)="""DATA"",396.18,225,3,15,0)"
^XMB(3.9,23,2,17052,0)="MM#S"":/G=.*?EL8""6M[>!""71/K?J>9UOJS*(/34/==.RJ""1HSJF>KN@,T#ZB:"
^XMB(3.9,23,2,17053,0)="""DATA"",396.18,225,3,16,0)"
^XMB(3.9,23,2,17054,0)="M:D+74^V:VJ0?NJIN:K`!#-5V5&@@;&`-HM\,WT'KK7IUH()]K0$M#4\TZYZ_"
^XMB(3.9,23,2,17055,0)="""DATA"",396.18,225,3,17,0)"
^XMB(3.9,23,2,17056,0)="MH%;JT.6O4W![T#3QHY9:15/L:M#4T(<JM,C[,\NV[C<0Y#9"">]`R[+TY54.`"
^XMB(3.9,23,2,17057,0)="""DATA"",396.18,225,3,18,0)"
^XMB(3.9,23,2,17058,0)="M-(?@0YYD#R`P>'(#>`@4,.9G5)?0AS`@$UX8OX9D\YJC-2=D;""N);+O*V/:Y"
^XMB(3.9,23,2,17059,0)="""DATA"",396.18,225,3,19,0)"
^XMB(3.9,23,2,17060,0)="M>%1EKS*V23!$+$._`T<U-$]3';""C.0;&*6"";@U[=U=`KZ$G.)=5#YJX/<F41"
^XMB(3.9,23,2,17061,0)="""DATA"",396.18,225,3,20,0)"
^XMB(3.9,23,2,17062,0)="M.8LAMRM![C)';@OL0K""G<AS)0A`$R;!F&>HN%K""6JNFZ[VAZ""[/3]:L-Z'EX"
^XMB(3.9,23,2,17063,0)="""DATA"",396.18,225,3,21,0)"
^XMB(3.9,23,2,17064,0)="M)1$!%R28Y!F;CHK2E9B((I)(2U\OBZ]?[?%Z1O9Z(26^;O5X/8M>'ZLL$LF>"
^XMB(3.9,23,2,17065,0)="""DATA"",396.18,225,3,22,0)"
^XMB(3.9,23,2,17066,0)="MQN_3'[-IJNE_0S0]^7J,@7B.@U#;+F7)M%T@V(VQ#6O)A/KUL5/[%-A%@$P?"
^XMB(3.9,23,2,17067,0)="""DATA"",396.18,225,3,23,0)"
^XMB(3.9,23,2,17068,0)="MU,E@+&12)P.3RN@M$80?9PL'`HNZ$K\#+&H\NE`E9E%_.FQ1T_&H17UW8%'7"
^XMB(3.9,23,2,17069,0)="""DATA"",396.18,225,3,24,0)"
^XMB(3.9,23,2,17070,0)="M@0%US50WFM#""2CM[Q4;&!XGL""K$EP#E_D.QLD8I28HM(TG>9)""7_)2#Q7$#B"
^XMB(3.9,23,2,17071,0)="""DATA"",396.18,225,3,25,0)"
^XMB(3.9,23,2,17072,0)="MKQ/CAZ!I:L-'E@_9.T0J5C-$7`UZQ!3HT$&JZGJ:I0.7VS:W""71D6G5D.'[4"
^XMB(3.9,23,2,17073,0)="""DATA"",396.18,225,3,26,0)"
^XMB(3.9,23,2,17074,0)="M!\B&(3L*5%.S=GQM!^""G9G3-1U*B5EO8%CO`]4UL&6>""F1JV08US#7UN,]8R"
^XMB(3.9,23,2,17075,0)="""DATA"",396.18,225,3,27,0)"
^XMB(3.9,23,2,17076,0)="M<*Y:U?#+:$3;V7&0$<;X]K9%I:)`=\)D9/]7+*J$&>V\^A+]@\@/X:FU,>6/"
^XMB(3.9,23,2,17077,0)="""DATA"",396.18,225,3,28,0)"
^XMB(3.9,23,2,17078,0)="MD#^R^4HBGS_,^3PG,7[OJ8H3-FS$`!->!V;KQB<OBY/_`9]\7#)Y'HB36[;7"
^XMB(3.9,23,2,17079,0)="""DATA"",396.18,225,3,29,0)"
^XMB(3.9,23,2,17080,0)="M==(^<Y93XIR_Q.?\""\F<54.<TP2NRPG6*`JS9,RK:Y::3SV93Q%/I%6A"";W6"
^XMB(3.9,23,2,17081,0)="""DATA"",396.18,225,3,30,0)"
^XMB(3.9,23,2,17082,0)="M^1M&,"",BR&UH\H\D""'Y`%Q'4T'H`#:V*UHFG.GL3T<N)Z'V-H_<^""7K/U0+T"
^XMB(3.9,23,2,17083,0)="""DATA"",396.18,225,3,31,0)"
^XMB(3.9,23,2,17084,0)="MUM!T%D8%36,CBXJ8AC""&KNL#%'AX==NG'SD>B7!LM0$<JI^^2;1&@DE&7,E$"
^XMB(3.9,23,2,17085,0)="""DATA"",396.18,225,3,32,0)"
^XMB(3.9,23,2,17086,0)="MA2'R""0DBE4W,&`3/P_%6R_8=5;<MW?1='%ZJZ!\T*=JY<;M0LTW3WL.#)@HR"
^XMB(3.9,23,2,17087,0)="""DATA"",396.18,225,3,33,0)"
^XMB(3.9,23,2,17088,0)="M3,1(!^CVC@5?1@QKUAT$RYV78)06E2DQPS#Z0XG->G,%$8TB&1R<<(0:31,@"
^XMB(3.9,23,2,17089,0)="""DATA"",396.18,225,3,34,0)"
^XMB(3.9,23,2,17090,0)="M]+@10:M""(RP43JC(G#74FF,W*.-(A`=KJM9$2]IT(`DC4=`1`""'6#5.+HY,Y"
^XMB(3.9,23,2,17091,0)="""DATA"",396.18,225,3,35,0)"
^XMB(3.9,23,2,17092,0)="M#(L8JA8""1(0""``.O/3=/^'%N`T7S)/'Q&4IC<C1.!.!$O-/'/W*3?3R;[[>I"
^XMB(3.9,23,2,17093,0)="""DATA"",396.18,225,3,36,0)"
^XMB(3.9,23,2,17094,0)="MK[N7,?4ISM3DZW>""DT]P89IL1V.B+(TPLC\NV32=#ES\\]!##GX;[ARL/5,V"
^XMB(3.9,23,2,17095,0)="""DATA"",396.18,225,3,37,0)"
^XMB(3.9,23,2,17096,0)="M2TFYFY!R%Q.89Z)Z.ET!C29P-,]W@$R_<CD1T'L8H/NC@)1-WW3E($HB"")V!"
^XMB(3.9,23,2,17097,0)="""DATA"",396.18,225,3,38,0)"
^XMB(3.9,23,2,17098,0)="M6(^"".+$%W""9$N-@.4G^D25)H90%:\J]XO/M(%-S8-3(B`Y)G=LPE0+[!@3PL"
^XMB(3.9,23,2,17099,0)="""DATA"",396.18,225,3,39,0)"
^XMB(3.9,23,2,17100,0)="M(\OV+<.5P4B+B/PKA_'>*(PC%!$5B8:U`VY'<B2*//-XYPCR(\RB)'\LD/6%"
^XMB(3.9,23,2,17101,0)="""DATA"",396.18,225,3,40,0)"
^XMB(3.9,23,2,17102,0)="M`'N/87_91HYW%LF*CG>(R&SOT7$3CV,KB""8D\1\V<2:*;L^KLQK2<1S6L4?9"
^XMB(3.9,23,2,17103,0)="""DATA"",396.18,225,3,41,0)"
^XMB(3.9,23,2,17104,0)="M3CBCM@""B'OE&H`.#.@+$""PS30+8#O7Y^;,7"">V=C_#98B%ZQ8I[J%0IB!F?<"
^XMB(3.9,23,2,17105,0)="""DATA"",396.18,225,3,42,0)"
^XMB(3.9,23,2,17106,0)="M10W1+6'<#A[_?\.XO*@M/]5#6XXMFK:-LS8HT.MBE/)L,_9IN@J?X]!&H]#B"
^XMB(3.9,23,2,17107,0)="""DATA"",396.18,225,3,43,0)"
^XMB(3.9,23,2,17108,0)="M3\K>%XU:\K?XZS,2&T)'Y@^&TM*-2O)3E.Q/#T9VV[WE1:/W)?ZV*C%Z:Y9>"
^XMB(3.9,23,2,17109,0)="""DATA"",396.18,225,3,44,0)"
^XMB(3.9,23,2,17110,0)="M!ZXT&$FSA,.'*1([D6#DP:[!R&2?8&2TLH(VD1-X+OQ#470;LTS1?BU0M#,L"
^XMB(3.9,23,2,17111,0)="""DATA"",396.18,225,3,45,0)"
^XMB(3.9,23,2,17112,0)="M!DD7T_E\*/W>`2?D?BYWAY,NYM)B#H#!F>1PTBD1D-,#4""E7$..,""""#F.9X-"
^XMB(3.9,23,2,17113,0)="""DATA"",396.18,225,3,46,0)"
^XMB(3.9,23,2,17114,0)="MQ?-M[R-2EFD#4F*Q8Y6ES6OK6YH![8N.[3=/89#A(<:U'0+[[_E>X0L!E@]0"
^XMB(3.9,23,2,17115,0)="""DATA"",396.18,225,3,47,0)"
^XMB(3.9,23,2,17116,0)="MX"".%3""H]N5VW]VB@-C[]7K2]1N'J&@I@W8DQ_,^F9N""8QS;]AN4FDK=&!XX0"
^XMB(3.9,23,2,17117,0)="""DATA"",396.18,225,3,48,0)"
^XMB(3.9,23,2,17118,0)="M!-!O./'JQI417-]11K#W44:P*>T2SHW%8A.5);M1M1?M_2.$+^R7K.CJUKC%"
^XMB(3.9,23,2,17119,0)="""DATA"",396.18,225,3,49,0)"
^XMB(3.9,23,2,17120,0)="M_IA4D'*!_9S$>'#-:$\S'L'O*36=4A+X_PSZ/YM2)G,I&OT[(-85*6J!DK\<"
^XMB(3.9,23,2,17121,0)="""DATA"",396.18,225,3,50,0)"
^XMB(3.9,23,2,17122,0)="M&P2K;#^L)H;%JE,B&8^J!)M/<HF<E8AV-M>>-AD%Q.AZ*S8`I&P;TD@44D94"
^XMB(3.9,23,2,17123,0)="""DATA"",396.18,225,3,51,0)"
^XMB(3.9,23,2,17124,0)="MDM_HIB0CQ6Q:@#,:WM(<#[8T^13^PQ3O5:+![V8\_^-@7Y._$_8U26[XCPOA"
^XMB(3.9,23,2,17125,0)="""DATA"",396.18,225,3,52,0)"
^XMB(3.9,23,2,17126,0)="M+O[#=C>O$.*3C/@O2W8WYX+=#<NYH_AB""^W&'>.=[G'^[9WO<8Z%J.)2<HP0"
^XMB(3.9,23,2,17127,0)="""DATA"",396.18,225,3,53,0)"
^XMB(3.9,23,2,17128,0)="M56-""`J,N[312/+PQ=U62+""3$O%.O_H,;\>I4S(]R,2=+PXBXBXCZM[FHMSIU"
^XMB(3.9,23,2,17129,0)="""DATA"",396.18,225,3,54,0)"
^XMB(3.9,23,2,17130,0)="M)I,IE5,2G0D#8Q'J'$T6?*LGM'1(<[BW/]'V]E1R<F(U,3G-7?Y%#O*^KBX_"
^XMB(3.9,23,2,17131,0)="""DATA"",396.18,225,3,55,0)"
^XMB(3.9,23,2,17132,0)="MWL?E=SJT>Z(.C:+`6*2$,A+?""(3W8D!4(9\:S*TQC(\NJ:O0!$S4YSL-Z3@="
^XMB(3.9,23,2,17133,0)="""DATA"",396.18,225,3,56,0)"
^XMB(3.9,23,2,17134,0)="M!X9RY@K)I9&,#4WB/;^PM:$\M-4YA,N/)`<8E`!CH6A@8)K92OY#K""_1I6)Q"
^XMB(3.9,23,2,17135,0)="""DATA"",396.18,225,3,57,0)"
^XMB(3.9,23,2,17136,0)="M**+/\LH$5>M;13SQ%^N@81,EQC^$S#)58I_1^0N!67XM%CB-0BE]$Y5V:LGV"
^XMB(3.9,23,2,17137,0)="""DATA"",396.18,225,3,58,0)"
^XMB(3.9,23,2,17138,0)="M'0@<]0K8""P<AE]$V3&!$+*3$D]NZ8YOF(L)@;-)UGP>.AYD9BD&[]"",P2I\*"
^XMB(3.9,23,2,17139,0)="""DATA"",396.18,225,3,59,0)"
^XMB(3.9,23,2,17140,0)="M%9'&@NK9S]\)#FA$DJ6EH7/R)V.AU-KW),[GH<#Y7++=)LZNP9=).AI'+]N^"
^XMB(3.9,23,2,17141,0)="""DATA"",396.18,225,3,60,0)"
^XMB(3.9,23,2,17142,0)="MLP.<UNWW0@)I;$F?))05F&FL13W064X/21N;MDZHDN:T,R+(#S!F34FR[,5E"
^XMB(3.9,23,2,17143,0)="""DATA"",396.18,225,3,61,0)"
^XMB(3.9,23,2,17144,0)="MG""53#:TUAR([RZL3V#A)@%/5URU[C[""-Y*SW80/GK(TN>346N=%)DY_@;N/5"
^XMB(3.9,23,2,17145,0)="""DATA"",396.18,225,3,62,0)"
^XMB(3.9,23,2,17146,0)="MZ*3GMH#FTO4@N7129B?K(H-;*(O$G&7$?%Z2H'=7$42@Z745B3U.H==P/P5+"
^XMB(3.9,23,2,17147,0)="""DATA"",396.18,225,3,63,0)"
^XMB(3.9,23,2,17148,0)="M?5!:H%6SG09AW!QK3)BY:I'/9D@Y4'B`6""'Z&F9*TW?K-$=/6@)8CTC/G`6/"
^XMB(3.9,23,2,17149,0)="""DATA"",396.18,225,3,64,0)"
^XMB(3.9,23,2,17150,0)="MBBE+OL_W4DG)0I2V_49#<TC/@8:PKH=EUR4H4""Y!X+;;$MH<FQ96@AG^5>K"""
^XMB(3.9,23,2,17151,0)="""DATA"",396.18,225,3,65,0)"
^XMB(3.9,23,2,17152,0)="M_XROQ?4HS^8>IXD2I!F$*L]6-</`K""'SL*8,AER_,@,5.[1I)--^E4^;XM/>"
^XMB(3.9,23,2,17153,0)="""DATA"",396.18,225,3,66,0)"
^XMB(3.9,23,2,17154,0)="M*[IY)&-""\-#'S<L:%UB1X:MT-C.21WBT:U`Q-EP>013LQ""I;Q'(\LB/)IDK%"
^XMB(3.9,23,2,17155,0)="""DATA"",396.18,225,3,67,0)"
^XMB(3.9,23,2,17156,0)="MCCP""=E$3W%>%M++1""TXY<PB<5((3.,D)3!=$>?\9+N\_%Y#X8.""'L_G""(2!Q"
^XMB(3.9,23,2,17157,0)="""DATA"",396.18,225,3,68,0)"
^XMB(3.9,23,2,17158,0)="M1)[!RH8D[RNQ[I*G4+42<C!]12_,T:+(T60\PM%JL,LOY@^#T(S++0?CZ(>("
^XMB(3.9,23,2,17159,0)="""DATA"",396.18,225,3,69,0)"
^XMB(3.9,23,2,17160,0)="MP4HL=3+TGG8^E5GKP7<(LNERH>FN#S-=\H8*HFP9]T+1R]R=%;:-2JJ(N5#3"
^XMB(3.9,23,2,17161,0)="""DATA"",396.18,225,3,70,0)"
^XMB(3.9,23,2,17162,0)="MD\((_[8D;'LP""-MX\^(V[_2Y!%U<T;O]Y5'!Q7*)_2!UL4[\UKA8UJV0_#(U"
^XMB(3.9,23,2,17163,0)="""DATA"",396.18,225,3,71,0)"
^XMB(3.9,23,2,17164,0)="M/:_&.QO`3W=UL3>@)VD:>B5/4B*]B(M]5W=#E[P!M4R'T@2]IJ,>_;96__O0"
^XMB(3.9,23,2,17165,0)="""DATA"",396.18,225,3,72,0)"
^XMB(3.9,23,2,17166,0)="M-UEAIM#>)^F5X#<6!4R&]N0G`U.P%4=QOO-R8$<O5!R$-U+VB5/8FK;'MW`M"
^XMB(3.9,23,2,17167,0)="""DATA"",396.18,225,3,73,0)"
^XMB(3.9,23,2,17168,0)="M./EHXFQX.'A\<L'W;#K>N]<[R\HZ)PE&&<9T*QJCWM6EK?A`U+:R18&*H#XH"
^XMB(3.9,23,2,17169,0)="""DATA"",396.18,225,3,74,0)"
^XMB(3.9,23,2,17170,0)="M='FW%?(S%=YJ[.&"":M-V78CHFD,4N;H#JT#2?8C#;VA!#Z+M5T.S8`VX'HO,"
^XMB(3.9,23,2,17171,0)="""DATA"",396.18,225,3,75,0)"
^XMB(3.9,23,2,17172,0)="M60,2*Z""2_F_K@[Y#>K1JK$^+9$%):S/:2.U""`S=UH\W'+H)6I]9M_H#56WEX"
^XMB(3.9,23,2,17173,0)="""DATA"",396.18,225,3,76,0)"
^XMB(3.9,23,2,17174,0)="M?2X>$HNEJ%@<Q7M(S`522[XM.=%HDT=*E(9_YA':BU'L3^%`!_>90;3.-X>$"
^XMB(3.9,23,2,17175,0)="""DATA"",396.18,225,3,77,0)"
^XMB(3.9,23,2,17176,0)="MFR/0;!/'2/@=;@PW)07O#=*7IK,$M6P3G666_`UJ6K_)&;(?U8Y'EWP'XZ5Z"
^XMB(3.9,23,2,17177,0)="""DATA"",396.18,225,3,78,0)"
^XMB(3.9,23,2,17178,0)="M^*@#37EC,29-;+IMH0T13CL<,''-,=_Q`'55,SQ2_IJD""_>)9:[G+M9$4*L!"
^XMB(3.9,23,2,17179,0)="""DATA"",396.18,225,3,79,0)"
^XMB(3.9,23,2,17180,0)="M'1.)6_7T3N+G@])9[_E%(QIL1H5R7'OZ^X+I(Y.Y`\Y6R(O9[%,]SQP<""&$N"
^XMB(3.9,23,2,17181,0)="""DATA"",396.18,225,3,80,0)"
^XMB(3.9,23,2,17182,0)="M%$2$EWN><C@8""#/S=S3>%^/L[<2XW9S!0NT?IZ'V^QG""]2C""9P+YTW3?XS8O"
^XMB(3.9,23,2,17183,0)="""DATA"",396.18,225,3,81,0)"
^XMB(3.9,23,2,17184,0)="M$+Q(^J,<<@0+3+*_'BTTIS*IE""0]$.0_0A[Z""]Q#_UW['%8;4+IX""/:RH['8"
^XMB(3.9,23,2,17185,0)="""DATA"",396.18,225,3,82,0)"
^XMB(3.9,23,2,17186,0)="M>.4R<M\HJJ-;`_IS1J3SOSF='PD8MBK0F3^Z@J,0`QCTF%*X0-]93U&V/;Q("
^XMB(3.9,23,2,17187,0)="""DATA"",396.18,225,3,83,0)"
^XMB(3.9,23,2,17188,0)="MRBD4B>W@/07<Q2WC>S9BDC*QUL#!!3!4Y=P:CBY(AA""9E[TG4032@""[IG%9&"
^XMB(3.9,23,2,17189,0)="""DATA"",396.18,225,3,84,0)"
^XMB(3.9,23,2,17190,0)="MB;>(3:W[I@?II!.A'A$I3=F0_^!$)3[$:5IITY0I#443[<^8I`4E(J#C.$N/"
^XMB(3.9,23,2,17191,0)="""DATA"",396.18,225,3,85,0)"
^XMB(3.9,23,2,17192,0)="M68UPK3RY65%.+N/S6B9.0YO\H1,;OM=$/Y*6N/W6#K""4D:7-A4UE&D?`=6""C"
^XMB(3.9,23,2,17193,0)="""DATA"",396.18,225,3,86,0)"
^XMB(3.9,23,2,17194,0)="MJ*K1ZD/M6+28=CI:3,NRO.99ZEO^@Z_H%X,5G6M3GQVN>OCP=G\7]$S00I,("
^XMB(3.9,23,2,17195,0)="""DATA"",396.18,225,3,87,0)"
^XMB(3.9,23,2,17196,0)="MM+23B\D?`:Z2N&+'0JF6SFQ26I3,5[B3&@DT,!_DY]+I\B'0P(F(C0F'`;EX"
^XMB(3.9,23,2,17197,0)="""DATA"",396.18,225,3,88,0)"
^XMB(3.9,23,2,17198,0)="MQ%J]$I""8*I=O5K/CK:!U*D)K25S-/^6D?C-8S><%.Y,]!!1.M[,""4^VL@$AE"
^XMB(3.9,23,2,17199,0)="""DATA"",396.18,225,3,89,0)"
^XMB(3.9,23,2,17200,0)="M4/'\:+"">,^WN;^RL@NP1MENW]5#U#50T,B%/VXO6:?&L=7O2(WTF[=)+)IJ%"
^XMB(3.9,23,2,17201,0)="""DATA"",396.18,225,3,90,0)"
^XMB(3.9,23,2,17202,0)="M7@Z^D,N71P.&7:M##W3I)XMWVB=<T1Z@^9""YSFF""B<:<C,$1F>7]""JEL,3N4"
^XMB(3.9,23,2,17203,0)="""DATA"",396.18,225,3,91,0)"
^XMB(3.9,23,2,17204,0)="MF3U^37-9KS,)>@23.H`E348M*5NJC\5""Q9R=0/<>%E#-'28S,S+0.F6%)%;R"
^XMB(3.9,23,2,17205,0)="""DATA"",396.18,225,3,92,0)"
^XMB(3.9,23,2,17206,0)="M(C<]1R*%'DQ^9JB5RJV17:8'+=_V7;41A`7\`!0^A$_O^5#=5J.)O#S:-=V0"
^XMB(3.9,23,2,17207,0)="""DATA"",396.18,225,3,93,0)"
^XMB(3.9,23,2,17208,0)="M@YR,=4O7,_)&R.*>8=1])\C1O7$GI.L5R>D\MH=X)!ZJ4WQ4DJX_&:3KEZ&V"
^XMB(3.9,23,2,17209,0)="""DATA"",396.18,225,3,94,0)"
^XMB(3.9,23,2,17210,0)="M8]DN/`""M?6()G)'R71H(V+<J/\\.%CQ!I]WETS[%ISUU4_/SK)__M0XB):WT"
^XMB(3.9,23,2,17211,0)="""DATA"",396.18,225,3,95,0)"
^XMB(3.9,23,2,17212,0)="M-YR?%SPQ33HD'^\_6V?!_8:3Y<PSC8>2Y7\;*.)SPR7+WWKGR?),7O!0R/PS"
^XMB(3.9,23,2,17213,0)="""DATA"",396.18,225,3,96,0)"
^XMB(3.9,23,2,17214,0)="ME&8E+1W/LE!DUCW/CX$&)S9Q1JVA:JYKZ_@@J$$.U-(4F\'UZ6""D(3-%(7.3"
^XMB(3.9,23,2,17215,0)="""DATA"",396.18,225,3,97,0)"
^XMB(3.9,23,2,17216,0)="MO)CH],E""A^R""07.#:*?6*Q>99BR<""AF9?Y)DRI[<YH=I#=YU0]I[^*4IG5R5"
^XMB(3.9,23,2,17217,0)="""DATA"",396.18,225,3,98,0)"
^XMB(3.9,23,2,17218,0)="MY,S:^9%0:*$R,M+122>7#]8""L*B0L8O?9_66A%TSL_BF)3633Q7/=UQ#4VV1"
^XMB(3.9,23,2,17219,0)="""DATA"",396.18,225,3,99,0)"
^XMB(3.9,23,2,17220,0)="MZD/O>PP*S)R\0<U_B?%(DR3-<:?5RL+2)4%:95:8-68F?X5""O,20?SL6M<(O"
^XMB(3.9,23,2,17221,0)="""DATA"",396.18,225,3,100,0)"
^XMB(3.9,23,2,17222,0)="MX""NN<+,6@JS7;60^R,J*AZB%BVUP=#^#3_%[^!*)/HHDHUI$,A,B>VVP&UQ$"
^XMB(3.9,23,2,17223,0)="""DATA"",396.18,225,3,101,0)"
^XMB(3.9,23,2,17224,0)="M`%D10/(CL3ZWL$@@Y$0^!1""2?R)AU.4UBX1$E#\\<V#7J&H$1.,V=5O7_:;&"
^XMB(3.9,23,2,17225,0)="""DATA"",396.18,225,3,102,0)"
^XMB(3.9,23,2,17226,0)="M5!(KD:%!?,,`VC;L(DT%?3F3#Q'VL[T(R\D)*X0(""R`\)#DI1SV4'$Q8,D<9"
^XMB(3.9,23,2,17227,0)="""DATA"",396.18,225,3,103,0)"
^XMB(3.9,23,2,17228,0)="M>R8D5SA]'HNFHY$[""9J^TT2""Y,XA`]%D]Q2(7`)&NZ!!*WR(DYRC+FAJ^`PQ"
^XMB(3.9,23,2,17229,0)="""DATA"",396.18,225,3,104,0)"
^XMB(3.9,23,2,17230,0)="M8AB^O0+H*$3`#7HH'N`U/,T*G>8WH,MN:E#!KF;Z-&RM\:;$8*I^7""^%B+T^"
^XMB(3.9,23,2,17231,0)="""DATA"",396.18,225,3,105,0)"
^XMB(3.9,23,2,17232,0)="MV)5`(H!R2.L8@.1G929CHTG%8XZ'/1A;O(_F%S1)]9H5!YDQY;N?-R43J,N4"
^XMB(3.9,23,2,17233,0)="""DATA"",396.18,225,3,106,0)"
^XMB(3.9,23,2,17234,0)="M,UPJ]]`^#)=.JR9TZ\""85S'XCN@[)T3?R2]R7;""#=NY/QCOC:,GA%<&#E<4@"
^XMB(3.9,23,2,17235,0)="""DATA"",396.18,225,3,107,0)"
^XMB(3.9,23,2,17236,0)="M8H*!^Q\)LOD@,RZH%:D%!U*""_O-='ZE36[<.AI<H""$0F?Y4S[6[9G3`!E3:I"
^XMB(3.9,23,2,17237,0)="""DATA"",396.18,225,3,108,0)"
^XMB(3.9,23,2,17238,0)="M&[IPQ\)]-O@2KH#N3N,1F(QYB6LMB0Q^5R3?W9[ZWA4""7\;%^0-11&&:\]E8"
^XMB(3.9,23,2,17239,0)="""DATA"",396.18,225,3,109,0)"
^XMB(3.9,23,2,17240,0)="MB)3?EYCAQ6O8^83DA/B<P`3`1E.CI';CY&""U/M95R[C[(K,&NU'FWKU%KH/!"
^XMB(3.9,23,2,17241,0)="""DATA"",396.18,225,3,110,0)"
^XMB(3.9,23,2,17242,0)="M1F[/=JZW-5@H[4AS^Z$@^PE&\T\$-%\0THB1U/XM6K5>!82S5VQR?P:782IC"
^XMB(3.9,23,2,17243,0)="""DATA"",396.18,225,3,111,0)"
^XMB(3.9,23,2,17244,0)="MKG)*-CB-SZ&L-)JFW0)&U_L0Y7S*BWRZ'N'3O)!9+@8\/X`,NV?!Q3J/[[2#"
^XMB(3.9,23,2,17245,0)="""DATA"",396.18,225,3,112,0)"
^XMB(3.9,23,2,17246,0)="MB""VDV&#X6""254VL6ON$0>T:/W-2'G)YRICVH55W<-0^@VY""65KI=AR9G*(MZ"
^XMB(3.9,23,2,17247,0)="""DATA"",396.18,225,3,113,0)"
^XMB(3.9,23,2,17248,0)="MWJ3:5F8<_<N`HV:;H\720>;H%,X)HM@`7V6AW+4,.+OPC44XCT!+5F?7+#%<"
^XMB(3.9,23,2,17249,0)="""DATA"",396.18,225,3,114,0)"
^XMB(3.9,23,2,17250,0)="MJ(*ZM@MM1[E[T\87!^$(UJ1]01I-[""H/+J,%@CIB<$NXX`@*N5]<&^.S-6QJ"
^XMB(3.9,23,2,17251,0)="""DATA"",396.18,225,3,115,0)"
^XMB(3.9,23,2,17252,0)="M>I1SPIAF83MKX%XG!W_&0VB71LHFK!&+06XBTARGA7Y13@G3.CAVP8,GMIL`"
^XMB(3.9,23,2,17253,0)="""DATA"",396.18,225,3,116,0)"
^XMB(3.9,23,2,17254,0)="MD-B)?Z:<O`0T<KVE,';B>8CKC.+0L<N(Y^24AT=NP%1.70/:=2Q:I$6*)I*4"
^XMB(3.9,23,2,17255,0)="""DATA"",396.18,225,3,117,0)"
^XMB(3.9,23,2,17256,0)="MA]I((_*`M>/5YU6_V40>""B&/""Y@(E/0AQ);00Z>O(J1PJ`8MFDD$:!64DZM`"
^XMB(3.9,23,2,17257,0)="""DATA"",396.18,225,3,118,0)"
^XMB(3.9,23,2,17258,0)="M)_P5QD8V-6@I1Y:A6T,X..3FI2'D6M(!GQ+=<'`[VON#V.7/8X),'X826S(F"
^XMB(3.9,23,2,17259,0)="""DATA"",396.18,225,3,119,0)"
^XMB(3.9,23,2,17260,0)="MB=#8OF`W'@[1U@8*T23'N[*,;4>((1ACX,Y)@I=GEL4>O?YA6N>.YX""U+153"
^XMB(3.9,23,2,17261,0)="""DATA"",396.18,225,3,120,0)"
^XMB(3.9,23,2,17262,0)="MXN;^?N;<KT2W-7,+#B'9`6*,)J?QF0-&)+M^C*YN<IU7""_Y:$B""F.F)3T!$O"
^XMB(3.9,23,2,17263,0)="""DATA"",396.18,225,3,121,0)"
^XMB(3.9,23,2,17264,0)="M=I(JQC8#5/)9AW'BA1""[?XCCH0F=++FN58MQ2=5B;*EN.R(ZM_6NBW5H&LKX"
^XMB(3.9,23,2,17265,0)="""DATA"",396.18,225,3,122,0)"
^XMB(3.9,23,2,17266,0)="MNFW@>[F`HFP#I(!`&=]TR,$XM^NMI0/QD*5+?C'6GXGEH9@X@1YN-A$EAYN-"
^XMB(3.9,23,2,17267,0)="""DATA"",396.18,225,3,123,0)"
^XMB(3.9,23,2,17268,0)="MB<'8R))&;_=G8SHU'!M7]H&C0Q<<;C8F!V,C2Q9,$-ORT5@O:<P/I]+;.&5T"
^XMB(3.9,23,2,17269,0)="""DATA"",396.18,225,3,124,0)"
^XMB(3.9,23,2,17270,0)="MR%5Z9""`F\N[,%_HQ$<4LQ:&8.+5%XC6RP3_4C!P=3!KSHFWL+8[IS%""<G*PX"
^XMB(3.9,23,2,17271,0)="""DATA"",396.18,225,3,125,0)"
^XMB(3.9,23,2,17272,0)="MVBZ^W>V06T=EL)8[=M[_>P,P,E4:BI'CJX!<?7>XV3A8YR)/?5+K^)V>7""P,"
^XMB(3.9,23,2,17273,0)="""DATA"",396.18,225,3,126,0)"
^XMB(3.9,23,2,17274,0)="MQ\5%S:L?>BX.&#661//8FXO#F<>)9=+$>]C9.#$8&XLAX]B3C^GTD,;1AB;P"
^XMB(3.9,23,2,17275,0)="""DATA"",396.18,225,3,127,0)"
^XMB(3.9,23,2,17276,0)="M#CTC)P=C9$$,'?L(9'8X@403V(U#S\>I@9K80F4+?N;\6<[$7'""R/I<=B(D#"
^XMB(3.9,23,2,17277,0)="""DATA"",396.18,225,3,128,0)"
^XMB(3.9,23,2,17278,0)="M=)Q%[X0HB^TD[^-;XU20^7A<""+T*AZF/<#HF;UEB.=_-!.$Z8%Q_(7KT/MK."
^XMB(3.9,23,2,17279,0)="""DATA"",396.18,225,3,129,0)"
^XMB(3.9,23,2,17280,0)="M.^PM""@&3<V*U,LUX_&(\4N`HYG*%PW$[5`>!6;%'YRKKT4E^B?=))9[E%):*"
^XMB(3.9,23,2,17281,0)="""DATA"",396.18,225,3,130,0)"
^XMB(3.9,23,2,17282,0)="MAZ(3?+1KJ[+8Q9/\3""RRED&O<BE3*G=I3D[(FI,[#CVEQ6N:^7=Z2.[`2V4+"
^XMB(3.9,23,2,17283,0)="""DATA"",396.18,225,3,131,0)"
^XMB(3.9,23,2,17284,0)="MV5`&I4M'*4N:_"".%-\7P/A_@#<6.4I8[573S,FS<UE/N8Y)L7EJXZC-QE'&F"
^XMB(3.9,23,2,17285,0)="""DATA"",396.18,225,3,132,0)"
^XMB(3.9,23,2,17286,0)="M&FT1G=S<VMA<V:JLK6P?I)OM6>(E<9_X!42)O*01#,DE+F4\72X<C`/!!1'Q"
^XMB(3.9,23,2,17287,0)="""DATA"",396.18,225,3,133,0)"
^XMB(3.9,23,2,17288,0)="M9[L?:3Y)36(%['M/LS;=;F+)UG*#@,PQJ7SASOHRIG%)""R*+H#X>5L>G)5_&"
^XMB(3.9,23,2,17289,0)="""DATA"",396.18,225,3,134,0)"
^XMB(3.9,23,2,17290,0)="M-!<T.@LW=!W`*THD_;HLWAZA59KC0UR0%1OREB)6&5=#7[!W3R!&WXJU;RG*"
^XMB(3.9,23,2,17291,0)="""DATA"",396.18,225,3,135,0)"
^XMB(3.9,23,2,17292,0)="M'@;_$^^F+TP%?Y@0^A@C]/Z@[!6[$_1E(MH6P\S$;*@\]Q7)L8#[V\<""`""E&"
^XMB(3.9,23,2,17293,0)="""DATA"",396.18,225,3,136,0)"
^XMB(3.9,23,2,17294,0)="MTT8\-GJ@3@CPJ[7HI:';C*C_E+3Z5-JU-VCI6E/3.5V@""5VT-W'56=R!#$DM"
^XMB(3.9,23,2,17295,0)="""DATA"",396.18,225,3,137,0)"
^XMB(3.9,23,2,17296,0)="MO`H,_+5(M&LY.,.).W`UM5EON5""'FG7^F5[-/R*6;)-R@NCPIV(].F@O56Q\"
^XMB(3.9,23,2,17297,0)="""DATA"",396.18,225,3,138,0)"
^XMB(3.9,23,2,17298,0)="M2-;R&U6D$?@K';06*8UV0QI::A-_]U0ZP^Y^;"")>VH:\+TEB7Y@CK8=OH0\N"
^XMB(3.9,23,2,17299,0)="""DATA"",396.18,225,3,139,0)"
^XMB(3.9,23,2,17300,0)="M]7W@ALW+`'M@;G+&0I?[M[^?]+P0H.6&.H!TWYJ+OW%)QU_CBSN';$>U@.:8"
^XMB(3.9,23,2,17301,0)="""DATA"",396.18,225,3,140,0)"
^XMB(3.9,23,2,17302,0)="M+=6UASLV-E@]C1_B>#TFDI)X149)>2A*SBS;@-""R]W_E76ML'%<5WD<\ME/;"
^XMB(3.9,23,2,17303,0)="""DATA"",396.18,225,3,141,0)"
^XMB(3.9,23,2,17304,0)="M:=)7DC;)0&@:BR1XY[&/M%(;G%AME28E-@D4(1COCM?3CG>M?21QA83*'X1$"
^XMB(3.9,23,2,17305,0)="""DATA"",396.18,225,3,142,0)"
^XMB(3.9,23,2,17306,0)="M$0*)QX\*@:""5J%2U_8$H4$2%>):'5*G\X!<@J`""IHH""0X!?<<^?>.^?NW)F="
^XMB(3.9,23,2,17307,0)="""DATA"",396.18,225,3,143,0)"
^XMB(3.9,23,2,17308,0)="M<=(Z6R*M,FN/[SGG/L\Y]YSO.)?I;+Q$MK!L(J2[R^*X?Y.2LMP4:8M(@FJF"
^XMB(3.9,23,2,17309,0)="""DATA"",396.18,225,3,144,0)"
^XMB(3.9,23,2,17310,0)="MD@&9TKF*V&B8D?(;*W@1/9.+5.C#ZGQY&%;^MD%>\B4M;VAY4\M;6M[6\F4M"
^XMB(3.9,23,2,17311,0)="""DATA"",396.18,225,3,145,0)"
^XMB(3.9,23,2,17312,0)="M7]'R52U?""P#T2R7R,<C')!^+?&SR*9-/A7RJY%,+0/8-\IY!WC/(>P9YSR#O"
^XMB(3.9,23,2,17313,0)="""DATA"",396.18,225,3,146,0)"
^XMB(3.9,23,2,17314,0)="M&>0]@[QGD/>,&@7B+YCD/9.\9Y+W3/*>2=XSR7LF><\D[YGD/8N\9Y'W+$.;"
^XMB(3.9,23,2,17315,0)="""DATA"",396.18,225,3,147,0)"
^XMB(3.9,23,2,17316,0)="M>J!-]R^GI5O&@(&R(S10Y@R#.9;8HN*9&:^*<_S)M\/QMCT*!`^R,YA9,BDD"
^XMB(3.9,23,2,17317,0)="""DATA"",396.18,225,3,148,0)"
^XMB(3.9,23,2,17318,0)="MX7^B..1N%8=<$$A(]_=K!J1.%HO7Y!R7=$!4*S(\/QH!C)`4K<K`J1@Z4L/K"
^XMB(3.9,23,2,17319,0)="""DATA"",396.18,225,3,149,0)"
^XMB(3.9,23,2,17320,0)="MUHED35<_3(/'``JX2U--@M_[<)I0E""MOA5<+E.&OCB4=>P.<&YCS;_%%^U]%"
^XMB(3.9,23,2,17321,0)="""DATA"",396.18,225,3,150,0)"
^XMB(3.9,23,2,17322,0)="MU$AU'NHB0IX5!`(1DQD""\7I!V@@-A24GG1^<=$?5)UT,#U6\($0QBN+O5)$K"
^XMB(3.9,23,2,17323,0)="""DATA"",396.18,225,3,151,0)"
^XMB(3.9,23,2,17324,0)="M2PJZK/JSBG;:GC`,D:#R5#`U'V9<?$'!Q8&3_0X#NUX10!*NF*7)`A-2\@[`"
^XMB(3.9,23,2,17325,0)="""DATA"",396.18,225,3,152,0)"
^XMB(3.9,23,2,17326,0)="M*!4^HK`QEQAR<]CXT+8KDABG6.,/*1KG$%3A7!S:>`TSOI>UO1AM^_KW#P2>"
^XMB(3.9,23,2,17327,0)="""DATA"",396.18,225,3,153,0)"
^XMB(3.9,23,2,17328,0)="MAZK-]0B*D`Q^C5WFWAG83X]%[*>]L0K.Y-`\?'INDJ-I%]#D7X`J5P>6\KCR"
^XMB(3.9,23,2,17329,0)="""DATA"",396.18,225,3,154,0)"
^XMB(3.9,23,2,17330,0)="M7K$K;(P/Y\,#_IS;\SI!S?%^RV51S0K+5^ZKLB4YMUA*66%),1`<VJU#"":49"
^XMB(3.9,23,2,17331,0)="""DATA"",396.18,225,3,155,0)"
^XMB(3.9,23,2,17332,0)="MY:JD""Y0&_;L8>`T6;<;&JSCO_`=<Y;P4;7T/PT3+3H,52RW^/+A=*?`M\RO*"
^XMB(3.9,23,2,17333,0)="""DATA"",396.18,225,3,156,0)"
^XMB(3.9,23,2,17334,0)="M[!;%<N,CD8I8%5_0OHO3>D)!:W^`FM[5F]Y%-T@KRD#)F,.!,H6/,4)/*@@="
^XMB(3.9,23,2,17335,0)="""DATA"",396.18,225,3,157,0)"
^XMB(3.9,23,2,17336,0)="M#+P:&RSWWM</!V:+X\^*G(*AU-@L_GY.(J>$0^/DUKL;]57/(5I5745G4`_="
^XMB(3.9,23,2,17337,0)="""DATA"",396.18,225,3,158,0)"
^XMB(3.9,23,2,17338,0)="MK;@8@U4[A_$U=PP6=#DH-+V:5<ZD3=]`[(*++@1GM]AL:FP2F""<7J;MBS,&!"
^XMB(3.9,23,2,17339,0)="""DATA"",396.18,225,3,159,0)"
^XMB(3.9,23,2,17340,0)="M)ZW*`ZS+?J104FM6F%\@F1O;E\Z>8['U]+Y+?*,[BX%GP#V\\KK0!&JH_?AH"
^XMB(3.9,23,2,17341,0)="""DATA"",396.18,225,3,160,0)"
^XMB(3.9,23,2,17342,0)="M^\0X^(.G?*\)6)K4W&U2,,P&6B)P*&I['QB<5WRX9[5]X>^BLV%6&9H]$RA!"
^XMB(3.9,23,2,17343,0)="""DATA"",396.18,225,3,161,0)"
^XMB(3.9,23,2,17344,0)="M,)3`_\1$^!2:,5/`Z)*W+O30""UZKT;XT<;K=:M*K)>[3FA%@[:`/2S`7O\I%"
^XMB(3.9,23,2,17345,0)="""DATA"",396.18,225,3,162,0)"
^XMB(3.9,23,2,17346,0)="MNLQ`73928$)CZ=<3ZX.BO!N&SI_0NJO9V5;4(;2BPN-+%(""YLD6F86MPEW2%"
^XMB(3.9,23,2,17347,0)="""DATA"",396.18,225,3,163,0)"
^XMB(3.9,23,2,17348,0)="M!(NM)FWR0B_^NFJU#2^?-C[(T/6G197Q$BVGH4V5(,.2%>#4I@SX9K-OTS9\"
^XMB(3.9,23,2,17349,0)="""DATA"",396.18,225,3,164,0)"
^XMB(3.9,23,2,17350,0)="M*\VQKS/D""=[EWW>%!AS_64X]7Z5@2#,?F:^W(Z'L49JO,>O3QO)^FJ_/I\0@"
^XMB(3.9,23,2,17351,0)="""DATA"",396.18,225,3,165,0)"
^XMB(3.9,23,2,17352,0)="MFJ&\Y<HHR5M4RUO&IVHH\+-*@:LC!CNDE+B""#;#W\!E]4LSHDV@'+HV2P.-J"
^XMB(3.9,23,2,17353,0)="""DATA"",396.18,225,3,166,0)"
^XMB(3.9,23,2,17354,0)="M>;$94_QQ+DG>RMPHR9NT'X.-B^5^(BHWVH[+M6';\5C$0S<G[\B77/<136/_"
^XMB(3.9,23,2,17355,0)="""DATA"",396.18,225,3,167,0)"
^XMB(3.9,23,2,17356,0)="MCQOT_ZXV;O('BS_8_*','RK\H<H?:NQA@FS;_*DDG@SQ9(HG2SS9XJDLGBKB"
^XMB(3.9,23,2,17357,0)="""DATA"",396.18,225,3,168,0)"
^XMB(3.9,23,2,17358,0)="MJ2J>!`U#T#`$#4/0,`0-0]`P!`U#T#`$#4/0,`0-4]`P!0U3T#`%#5/0,`4-"
^XMB(3.9,23,2,17359,0)="""DATA"",396.18,225,3,169,0)"
^XMB(3.9,23,2,17360,0)="M4]`P!0U3T#`%#4O0L`0-2]""P!`U+T+`$#4O0L`0-2]""P!`U;T+`%#9O1R""5/"
^XMB(3.9,23,2,17361,0)="""DATA"",396.18,225,3,170,0)"
^XMB(3.9,23,2,17362,0)="M1^PU*VQ$\`W0;*R4ALW&8J0JWD+?]\%-I4V2%=0[2A^GB3J[<I0K0=K$(K7V"
^XMB(3.9,23,2,17363,0)="""DATA"",396.18,225,3,171,0)"
^XMB(3.9,23,2,17364,0)="M*`8JU7F3^94]1!M)VHQE9'9P;XTVPV/`F5""+$:%N1D*9H[07%M)KWQ;2OCD*"
^XMB(3.9,23,2,17365,0)="""DATA"",396.18,225,3,172,0)"
^XMB(3.9,23,2,17366,0)="M=?%+N4'(9.B"";,""S^Y'RS3P7_H;.YU_FBR[5^)545W3AEKX7+2)KA(HR[E@B"
^XMB(3.9,23,2,17367,0)="""DATA"",396.18,225,3,173,0)"
^XMB(3.9,23,2,17368,0)="M/UIV&V?:/7>YW7Z$6MKRCYCD08PC#\=[0]RC/)/?0=Y/E'A:O$""%GB1""]VA$"
^XMB(3.9,23,2,17369,0)="""DATA"",396.18,225,3,174,0)"
^XMB(3.9,23,2,17370,0)="MSPS_!;\+F>(_4%P:B%98#^`(V0D0XT%BI.<PV.%N5+D^\/UC<+9]""E'%+]D1"
^XMB(3.9,23,2,17371,0)="""DATA"",396.18,225,3,175,0)"
^XMB(3.9,23,2,17372,0)="M'JQ6?H+_60C]N6Q8;6=BL=K&3OA>LS4^X?CS/L`_8^PVZ?I)6^Y""%/&6HL`J"
^XMB(3.9,23,2,17373,0)="""DATA"",396.18,225,3,176,0)"
^XMB(3.9,23,2,17374,0)="M8H\JN+^Y1OMR(>)5GKJ!K*LS3@?<)Q?=X_K\:J?=\NH\85[O;K0:G?::JQ^>"
^XMB(3.9,23,2,17375,0)="""DATA"",396.18,225,3,177,0)"
^XMB(3.9,23,2,17376,0)="M7UB<I5<M+=WS?9I8#_<T3AUR_A\-X+\:.!Z#-T&!U2""DVO'U%;]_U/<><06J"
^XMB(3.9,23,2,17377,0)="""DATA"",396.18,225,3,178,0)"
^XMB(3.9,23,2,17378,0)="MYC%=OZ^GKSD;^JIST=67VW!WP3TVM""(B<M$,U$2A<`+@$_<!0:#KKI&M&4""4"
^XMB(3.9,23,2,17379,0)="""DATA"",396.18,225,3,179,0)"
^XMB(3.9,23,2,17380,0)="M^AVG2XZSEN<<H=_:M,J*[]!+IO!7*]YRI]WU>E[W""(4(@*]K&X[?])QC.KXO"
^XMB(3.9,23,2,17381,0)="""DATA"",396.18,225,3,180,0)"
^XMB(3.9,23,2,17382,0)="M""1WIT]B1SM9?X$*_C77Q1.BVV=HI$5LF&1>:%T!%OU7`_\ZP:MJL[NY;7W(E"
^XMB(3.9,23,2,17383,0)="""DATA"",396.18,225,3,181,0)"
^XMB(3.9,23,2,17384,0)="M?2Q'W!!9:(B*?\L-CE'Q?'Y+JSNI0G$DV^QQSO(_8L&!O""Y%)5AW.P`""0MVA"
^XMB(3.9,23,2,17385,0)="""DATA"",396.18,225,3,182,0)"
^XMB(3.9,23,2,17386,0)="M*S0TB/0.]XB2W@`PBF@.?W)8D""GQ\L.DBTD3\X*=L?2""EM5`DAF[6UGQ3#+1"
^XMB(3.9,23,2,17387,0)="""DATA"",396.18,225,3,183,0)"
^XMB(3.9,23,2,17388,0)="M_LY)_D$A?H@PU>4!DG#YNPY[`-0W%5*&""'Z<.D""""8=%3I'%(ARV+1RX^)]C2"
^XMB(3.9,23,2,17389,0)="""DATA"",396.18,225,3,184,0)"
^XMB(3.9,23,2,17390,0)="M1>RAG1$T^A`[`8'GU6@M85:S-INJE%-&4C'/O(,]_\IRA.?<H^UUM[652R-K"
^XMB(3.9,23,2,17391,0)="""DATA"",396.18,225,3,185,0)"
^XMB(3.9,23,2,17392,0)="M17;%B)7QB-W%1NR+.15V=G:E-@C44QUWF4.?%""-EX9$Z/7RDT@/NILF*K>*."
^XMB(3.9,23,2,17393,0)="""DATA"",396.18,225,3,186,0)"
^XMB(3.9,23,2,17394,0)="M\UC'_5MTW""'1<;:1K9Z[14/%N%I`XQ4,BTSZ?H=B]/AMHI)U=&>E1X%V`GB!"
^XMB(3.9,23,2,17395,0)="""DATA"",396.18,225,3,187,0)"
^XMB(3.9,23,2,17396,0)="M;-VY+3XZJXHWEF_RC>6?RNBL2@:7#PV^@L`J"")J""@""B;?,KD4R&?ZIRVYX2_"
^XMB(3.9,23,2,17397,0)="""DATA"",396.18,225,3,188,0)"
^XMB(3.9,23,2,17398,0)="M!O$:/8B;#!05M@?EXIF5-MY7DIBU#3N&66V0V?%2$(&I3;!03/""5B""=+/-GB"
^XMB(3.9,23,2,17399,0)="""DATA"",396.18,225,3,189,0)"
^XMB(3.9,23,2,17400,0)="MJ2R>*N*I*IYJ_&F2&-_BL10^""C(WA-:X^&$N$N`M[_W37&E]74A]%QHB>S2\"
^XMB(3.9,23,2,17401,0)="""DATA"",396.18,225,3,190,0)"
^XMB(3.9,23,2,17402,0)="MKW&*217KCF<C>LG7<N'Y(*""TYGW'6POB,.Z30'=/D6,/V\E1S%T#%\:Z,QWV"
^XMB(3.9,23,2,17403,0)="""DATA"",396.18,225,3,191,0)"
^XMB(3.9,23,2,17404,0)="M+/ISG/DEBCX-@0I%?V[AQ+''A@'7JO+Y#*RSVA&==3_.2O'\QC53GV,3<.L<"
^XMB(3.9,23,2,17405,0)="""DATA"",396.18,225,3,192,0)"
^XMB(3.9,23,2,17406,0)="M8S.0]7R""K#M/MNM]&A;(I\A6JNB%[%#O-2SII01);PPL$)T+?#404:](V$W4"
^XMB(3.9,23,2,17407,0)="""DATA"",396.18,225,3,193,0)"
^XMB(3.9,23,2,17408,0)="MG>7H8X&T.Q.DE<JN7,O59=#F-B,9QLRG.B6;QK\0V]ML08&EBXT@""X=$S/&3"
^XMB(3.9,23,2,17409,0)="""DATA"",396.18,225,3,194,0)"
^XMB(3.9,23,2,17410,0)="MX-<*PV-V`,N+VOO49T`ZI4EL`E&^0P'$RH)AOB<!L1;V1ZEH""^""_4.',5R1("
^XMB(3.9,23,2,17411,0)="""DATA"",396.18,225,3,195,0)"
^XMB(3.9,23,2,17412,0)="MW/_PS>VX(M/O7M=I0-$P)5X]OW4]D9=X4;0SO1@<IIVVTPN0C0=9JDIBW<^:"
^XMB(3.9,23,2,17413,0)="""DATA"",396.18,225,3,196,0)"
^XMB(3.9,23,2,17414,0)="M^K@B?HV.)]@;`.+8[]9]*-<7PV&E)G%X?WP)WYMPLY<8""J.JR>J<Q&F?-?G1"
^XMB(3.9,23,2,17415,0)="""DATA"",396.18,225,3,197,0)"
^XMB(3.9,23,2,17416,0)="M:),W/^`U.X$#Y^&V!_5T':^E;+-6DMCD;7Y`$7>XZ+ON.L0;]_J=9:C`JVS/"
^XMB(3.9,23,2,17417,0)="""DATA"",396.18,225,3,198,0)"
^XMB(3.9,23,2,17418,0)="MQ#P6OYJ+EWO/?2V.RQO4CV&PG*X2WII?IP2,A@V_5U'\=J%-K,#>2M^7>Q*W"
^XMB(3.9,23,2,17419,0)="""DATA"",396.18,225,3,199,0)"
^XMB(3.9,23,2,17420,0)="M)K/Y,F_-4$S$^79KI0])I^J6RM*@3+&&^HI2S0NT)$*K3HU7MM`.=V>W,)$5"
^XMB(3.9,23,2,17421,0)="""DATA"",396.18,225,3,200,0)"
^XMB(3.9,23,2,17422,0)="M%V<I23WR+ZY%CRFBTA]FR5?Z*E^CU(6@]S;6W2.!\Y*,*G43KCL]8I^T`J<"""
^XMB(3.9,23,2,17423,0)="""DATA"",396.18,225,3,201,0)"
^XMB(3.9,23,2,17424,0)="M!6/FZ+8T(CMLP&L%CID.H+8N>X`E2J;""W8GE(W`HF.AY,]KSDXN170WY?FMX"
^XMB(3.9,23,2,17425,0)="""DATA"",396.18,225,3,202,0)"
^XMB(3.9,23,2,17426,0)="M]WR5[YZ_3X&$B%&Z>50^==]&R.$)8V-ZG\@/IK$C\.A!<F&S@\F>4@SNB7RD"
^XMB(3.9,23,2,17427,0)="""DATA"",396.18,225,3,203,0)"
^XMB(3.9,23,2,17428,0)="MT/8]H2U0FQL-I(H8L`%;6F['!G=K9)=62VD+H6T_6Z\[79I=H4VP5=K3)N99"
^XMB(3.9,23,2,17429,0)="""DATA"",396.18,225,3,204,0)"
^XMB(3.9,23,2,17430,0)="MNEDNEAF,8D_LD4BL$^;&C.%F^U7CIB)MY8E=4TT+PY""%&=DHEP^KAY*XL=/>"
^XMB(3.9,23,2,17431,0)="""DATA"",396.18,225,3,205,0)"
^XMB(3.9,23,2,17432,0)="MTF^>&_F82^2FEO8*?O/<&-)>*Y#4E.Q8:;TKFV?'E([69'8J:?TGFV?'DGKG"
^XMB(3.9,23,2,17433,0)="""DATA"",396.18,225,3,206,0)"
^XMB(3.9,23,2,17434,0)="MV21V*N6TT9^;9\>6>B>1G:H1P\[$U6-'TC>(1<0V'2VOZIZXT9K,SD\:7RC;"
^XMB(3.9,23,2,17435,0)="""DATA"",396.18,225,3,207,0)"
^XMB(3.9,23,2,17436,0)="M@5X(>)OA9]N:L-J0(ZZ<+>LTA3OS.BG8?D8*MI?J*3!@U^+3?*,NOII#G69O"
^XMB(3.9,23,2,17437,0)="""DATA"",396.18,225,3,208,0)"
^XMB(3.9,23,2,17438,0)="MHE;R&#5YM.N0M:'MCK,7M!M5*K]VDU)KUW9&%&]M=YSJK$U+NJ\V*917;5(8"
^XMB(3.9,23,2,17439,0)="""DATA"",396.18,225,3,209,0)"
^XMB(3.9,23,2,17440,0)="M5-J!L\G&G[;O5,N'G,*&7G<[%^GELD]^MZJW($D=_=JY[/D^`'#@7\^<E=25"
^XMB(3.9,23,2,17441,0)="""DATA"",396.18,225,3,210,0)"
^XMB(3.9,23,2,17442,0)="M[*D!N=2I`:$&)&EQ?XIJ0'>BJ5<=`0UH)BJBE/GPV60EKS0""(DY#],[0F)?I"
^XMB(3.9,23,2,17443,0)="""DATA"",396.18,225,3,211,0)"
^XMB(3.9,23,2,17444,0)="M!WE\`SAN4T>^E!21+P6AF.7BXE[>'@$N,6[T""D;TY_/G9R(:Z/'\-1&6@^^W"
^XMB(3.9,23,2,17445,0)="""DATA"",396.18,225,3,212,0)"
^XMB(3.9,23,2,17446,0)="MV2CNH1Q_B''\2X5I=O1LQ"")SEEOMSAID,O$)M$)V$9BIQ]5N<^9RO)$2VQ4I"
^XMB(3.9,23,2,17447,0)="""DATA"",396.18,225,3,213,0)"
^XMB(3.9,23,2,17448,0)="MM!J6TKSN/%P[TP(WW:N+H,%\4=^0LD!11B"""";:AENTT\**YA7:B3!JGAQ&9?"
^XMB(3.9,23,2,17449,0)="""DATA"",396.18,225,3,214,0)"
^XMB(3.9,23,2,17450,0)="M)T.]T6I""5,_=NOYF(&DP-]C[\I)$+R@ELC-)]$XAD7Q(.42Z]KK36]UX,W`U"
^XMB(3.9,23,2,17451,0)="""DATA"",396.18,225,3,215,0)"
^XMB(3.9,23,2,17452,0)="MV+4;%\B,Q""%C@;*AG-RZ!$I')Q1'*4E&^(TT:ALSCB8+DDB?5XID;$HDH2=<"
^XMB(3.9,23,2,17453,0)="""DATA"",396.18,225,3,216,0)"
^XMB(3.9,23,2,17454,0)="ML4CI0+]-4Q(I>=J9FYQVLO*SV6FW+7+0F]*NQXM:?5[LT[ORB/GR:.29I#CH"
^XMB(3.9,23,2,17455,0)="""DATA"",396.18,225,3,217,0)"
^XMB(3.9,23,2,17456,0)="MQY;<+J#'ICS@C?_G`UYQ5!HX#H4?[F^H@L^@GR&P@FCE7=WIHB+N[N6ZWV]P"
^XMB(3.9,23,2,17457,0)="""DATA"",396.18,225,3,218,0)"
^XMB(3.9,23,2,17458,0)="M?Z,HW0,'9HI%9^,0S^(%SL,M0D$]S,.^S+*9;1\Y?L%E+F?.-SB<?5_OP9P!"
^XMB(3.9,23,2,17459,0)="""DATA"",396.18,225,3,219,0)"
^XMB(3.9,23,2,17460,0)="M-""W@NP%%:6@-(L`["">J+HL6X-:C)8LG'%G@97/[22/*KSY?$\K\'+__JB`3I"
^XMB(3.9,23,2,17461,0)="""DATA"",396.18,225,3,220,0)"
^XMB(3.9,23,2,17462,0)="M#UW]DZ+$<^H=P-S<#J`,;?]K_FT:VLX/]]=R&!^Q8""EN2>9Y@?!KXT:*9TX?"
^XMB(3.9,23,2,17463,0)="""DATA"",396.18,225,3,221,0)"
^XMB(3.9,23,2,17464,0)="MH-M)A6\GSRDNI%XLS1[38=J2#8""P3('V5+'U_!:*7E&1;:+5[C=78>/KN(U^"
^XMB(3.9,23,2,17465,0)="""DATA"",396.18,225,3,222,0)"
^XMB(3.9,23,2,17466,0)="MG4(C0(E0CR@L$(#?'(@!WM`)7^U+NCW'`XAYE3.`K2%?[^C""!=91'O`O_LP'"
^XMB(3.9,23,2,17467,0)="""DATA"",396.18,225,3,223,0)"
^XMB(3.9,23,2,17468,0)="M5""X*#^(PJ""'X0QXOEAQ6S!.J9V@WW""&@3Q2%V.YW2""]`K>7S)U""=90<7H%[1"
^XMB(3.9,23,2,17469,0)="""DATA"",396.18,225,3,224,0)"
^XMB(3.9,23,2,17470,0)="MYQ<6P1G5T]=<TE/`?%C%L-[Q(#W!.:Z_)5,@+2PD1T`Z(!\LWU7,A.<-F`D,"
^XMB(3.9,23,2,17471,0)="""DATA"",396.18,225,3,225,0)"
^XMB(3.9,23,2,17472,0)="M:,;W6E2/#@^R8`9`_L1ZITV'O.NM>42)$]ZJH&^@W/!E=J8L;Y""_:G?H5`EK"
^XMB(3.9,23,2,17473,0)="""DATA"",396.18,225,3,226,0)"
^XMB(3.9,23,2,17474,0)="M2!_1EVG)0W+BL*N_(Z&A"">>/UV+OP8T@KC'I.\MMYN:CI]>0X:_@X=_@LNN*"
^XMB(3.9,23,2,17475,0)="""DATA"",396.18,225,3,227,0)"
^XMB(3.9,23,2,17476,0)="MX;>767H(2.#XW78PQ&68UFO@EPPF:]>%1$`QU-?62%?Q2'\R'RGH&DJ[[T2]"
^XMB(3.9,23,2,17477,0)="""DATA"",396.18,225,3,228,0)"
^XMB(3.9,23,2,17478,0)="M#T!(?,%+Q0:5-;@YP,1W<E+K*D2JG:?),F]VB$ZOK\!><4Q71OPS6_""VO-S@"
^XMB(3.9,23,2,17479,0)="""DATA"",396.18,225,3,229,0)"
^XMB(3.9,23,2,17480,0)="MHXI@!S@:+O<;-&\(F]U*3KD%$'3#EY.T.?M!QU\'ZPE&N3=@0+8[2@]MC#3L"
^XMB(3.9,23,2,17481,0)="""DATA"",396.18,225,3,230,0)"
^XMB(3.9,23,2,17482,0)="M5FIG7J;ZDH+JH3C7-I#D#NT8,LPT>U[NM.(?5:KJ`HI^A@UJ:`!T#$WI*'F:"
^XMB(3.9,23,2,17483,0)="""DATA"",396.18,225,3,231,0)"
^XMB(3.9,23,2,17484,0)="MD_RI8A$UA)M</_PF!37,JL><W3.5""U+W%^J*2!+E14&,Z.R^:$=!EOU3BN[>"
^XMB(3.9,23,2,17485,0)="""DATA"",396.18,225,3,232,0)"
^XMB(3.9,23,2,17486,0)="M>R;N1D#-,;ON^8T\8=(%#QV+]5(:.+WV@Y$LFM+6YB`I`C/+.-Z7XY:_$B:["
^XMB(3.9,23,2,17487,0)="""DATA"",396.18,225,3,233,0)"
^XMB(3.9,23,2,17488,0)="M*'3<4<P.LS'HD,!=%$F2Q<^$4=@W(5QVH7P<W\J!VS98G@,'(@IG[[=%QF<W"
^XMB(3.9,23,2,17489,0)="""DATA"",396.18,225,3,234,0)"
^XMB(3.9,23,2,17490,0)="M1$>?JXP)KBZLDE-S1$RN`8%MR0[@4>%_$5O@.2%QN5H=/8E3NCI9;,%K>=FH"
^XMB(3.9,23,2,17491,0)="""DATA"",396.18,225,3,235,0)"
^XMB(3.9,23,2,17492,0)="M""-VW[T!9$QD3G>YUND$""'].MB&JX[+HMHH7ULCK74WHY;4F:""\G2E+9,FI3U"
^XMB(3.9,23,2,17493,0)="""DATA"",396.18,225,3,236,0)"
^XMB(3.9,23,2,17494,0)="M!=F2O(4*\V(T$.]V)$PV]]&[[X5L:7)8^RZD495#39BKP:%LF20;3\`-)?]*"
^XMB(3.9,23,2,17495,0)="""DATA"",396.18,225,3,237,0)"
^XMB(3.9,23,2,17496,0)="M^""B[_:H?95=T#.35&*LAU\//L^TAUG*&XR5%,B).1!:U#5Z/I(\:)2@HE&4B"
^XMB(3.9,23,2,17497,0)="""DATA"",396.18,225,3,238,0)"
^XMB(3.9,23,2,17498,0)="MZ!<<0#_FB(9GUXF%2"";V.8AWZ?:R8FSD@G__`U!+`P04``(`""`#/4R$U""`/0"
^XMB(3.9,23,2,17499,0)="""DATA"",396.18,225,3,239,0)"
^XMB(3.9,23,2,17500,0)="M*5@N``!.>@$`$P```$9A=&EG=65?,3$S+G!N;""YF<FWL76UOW#B2_K[`_`<A"
^XMB(3.9,23,2,17501,0)="""DATA"",396.18,225,3,240,0)"
^XMB(3.9,23,2,17502,0)="M7YS<93,BJ=?@!HN\.),<DHEA>R98'!8#66*[N:.6>O5BI^?7'TFU)(HB)7;;"
^XMB(3.9,23,2,17503,0)="""DATA"",396.18,225,3,241,0)"
^XMB(3.9,23,2,17504,0)="M[DEL!P.,6ZV6BE7%JJ>*Q6)^\6\<5];'Z`*GYYLU_KQXEQ>KE]8YO_+#WRSK"
^XMB(3.9,23,2,17505,0)="""DATA"",396.18,225,3,242,0)"
^XMB(3.9,23,2,17506,0)="M(UY4UD_6WZ%MLX_G^9I^""MB?7TA2+>D'%+)/[S&Y7+([`6(?WT3KBN09_7ST"
^XMB(3.9,23,2,17507,0)="""DATA"",396.18,225,3,243,0)"
^XMB(3.9,23,2,17508,0)="MZ?CTY^,C=O%=GE4OWBRCHL3LSK?'[U[]^O'\]S?O7YV>'9_W=^1I7M#OX_1U"
^XMB(3.9,23,2,17509,0)="""DATA"",396.18,225,3,244,0)"
^XMB(3.9,23,2,17510,0)="M&L5_=->[5_P=@.[B+]$*\[><66=15EIGN""""+_FUGU29EW__?O]BEDZC`6<6^"
^XMB(3.9,23,2,17511,0)="""DATA"",396.18,225,3,245,0)"
^XMB(3.9,23,2,17512,0)="MH)?>16F)?_@;SI(?_I8+?&`<^/!VE@?0$9D`[6DFO'MU_GVP@!+Z^TF4X11`"
^XMB(3.9,23,2,17513,0)="""DATA"",396.18,225,3,246,0)"
^XMB(3.9,23,2,17514,0)="MR@+^E\`""`/R>`XXG<L!MQMQ1"".U&+PA_T]')YY-?3SA1K_$53C]D&68#O+@Z"
^XMB(3.9,23,2,17515,0)="""DATA"",396.18,225,3,247,0)"
^XMB(3.9,23,2,17516,0)="MC4B)$_Y%7B2X:,F]*,](=IEBSLB.'6<DO<+%-\M)RIKHXC,;!KW&54)@*]>G"
^XMB(3.9,23,2,17517,0)="""DATA"",396.18,225,3,248,0)"
^XMB(3.9,23,2,17518,0)="MT!,UJV=LX#:?A0G6\Q8T<TQ4,*^Y(*I85)'+&K^T/F1E5=0QNUX>-;?-,TO/"
^XMB(3.9,23,2,17519,0)="""DATA"",396.18,225,3,249,0)"
^XMB(3.9,23,2,17520,0)="MKC'#D'!9SS*9:8OR=9XF_VJ^4C./*Z*""9[Z29R@068;\(<\<QY9XUC*QYUGS"
^XMB(3.9,23,2,17521,0)="""DATA"",396.18,225,3,250,0)"
^XMB(3.9,23,2,17522,0)="MV;*.SG#*WGA15Q7]XLGKFJ2)=5+D%RE>/;&JW(H+'%78BJR4E)65+ZQU\V5)"
^XMB(3.9,23,2,17523,0)="""DATA"",396.18,225,3,251,0)"
^XMB(3.9,23,2,17524,0)="M.161U9'UW]VS<&)1%I*$CH\L""/V4U`759*M:8@M_C58DB]CKGY;/7ECG2U*V"
^XMB(3.9,23,2,17525,0)="""DATA"",396.18,225,3,252,0)"
^XMB(3.9,23,2,17526,0)="MCVH>?4W$9Z4I^UEF7=!77T4DC>B-%LGXLYZ\S>-Z1=_2$WI-LB2_?FY%]*%1"
^XMB(3.9,23,2,17527,0)="""DATA"",396.18,225,3,253,0)"
^XMB(3.9,23,2,17528,0)="M0>D4G[5H?K6]F3Z2$97@BCX6)R^?6""7G`6,,(^3%5H9?Z*3\4D2,P^=%/2FE"
^XMB(3.9,23,2,17529,0)="""DATA"",396.18,225,3,254,0)"
^XMB(3.9,23,2,17530,0)="MP$!*K9IW4FJ523*=4U)2#)Q*B'ZFLRZ)JL@J\&54)&QXG90*^M,KD1L1_3G]"
^XMB(3.9,23,2,17531,0)="""DATA"",396.18,225,3,255,0)"
^XMB(3.9,23,2,17532,0)="M52L4JZ+>;X\QAP9C!L`>#AKYSNZ#/L57!%];[=BY#O&!\\M1EEA7;.IMK""B."
^XMB(3.9,23,2,17533,0)="""DATA"",396.18,225,3,256,0)"
^XMB(3.9,23,2,17534,0)="MZR**-TQ+R_I""'/2*5!532,JD9JR:8;EJ40)G:L*%LV,Z`M-O#0W>*BN0P5OA"
^XMB(3.9,23,2,17535,0)="""DATA"",396.18,225,3,257,0)"
^XMB(3.9,23,2,17536,0)="MY%L]V^""M(Q$:O!;I7ON:6QD$Z'N;/P<OAM*;'8G-OBN;-3AZ]9LT+_%6F66'"
^XMB(3.9,23,2,17537,0)="""DATA"",396.18,225,3,258,0)"
^XMB(3.9,23,2,17538,0)="M9%F?LS<IB?^@%[XV[_\94V=,8GZU(UD)""D(%)G`]`1)`$1)X$B1`T'W@D`""H"
^XMB(3.9,23,2,17539,0)="""DATA"",396.18,225,3,259,0)"
^XMB(3.9,23,2,17540,0)="M-##00`(73$`""9+L[0()/.""%QE%J?UR1CWSW]):?>C!J/8^Z0</'L7@`%'R@Y"
^XMB(3.9,23,2,17541,0)="""DATA"",396.18,225,3,260,0)"
^XMB(3.9,23,2,17542,0)="M&4""1D1`YD@\*@<1*Z&G-,??8E*;(6M7475/'3%G+C""IEYH)4W*'$I*!&NJRB"
^XMB(3.9,23,2,17543,0)="""DATA"",396.18,225,3,261,0)"
^XMB(3.9,23,2,17544,0)="M+,8E,\/L8KG&,<4#HCF.J5OZ3XVILZ5``%MIE%W6T25FOW@21S6=`];%AH&)"
^XMB(3.9,23,2,17545,0)="""DATA"",396.18,225,3,262,0)"
^XMB(3.9,23,2,17546,0)="M`I=URF#'D^ZMJSP9/(LCC06]-]^*>/OHTKJ(V(/HE>CRLJ`H@HUH=T\7^`:L"
^XMB(3.9,23,2,17547,0)="""DATA"",396.18,225,3,263,0)"
^XMB(3.9,23,2,17548,0)="M!;:DI=`Q,)31,^OWYA]E[6#<43_R]A;^;\J>!X$)H7`TG>QY0B]$0E<Y%41*"
^XMB(3.9,23,2,17549,0)="""DATA"",396.18,225,3,264,0)"
^XMB(3.9,23,2,17550,0)="M_L#IYA:(#DV(#F3N>O,XX@B+1&=YI276E-;0-J'5\Z1)Y@;FF""<1:4YQ6;:,"
^XMB(3.9,23,2,17551,0)="""DATA"",396.18,225,3,265,0)"
^XMB(3.9,23,2,17552,0)="MCIHA/.77JF646:[]HVMSG!==D)14FV=T@.+$N.%@H<E@G5'LX9D/-A8'&U&="
^XMB(3.9,23,2,17553,0)="""DATA"",396.18,225,3,266,0)"
^XMB(3.9,23,2,17554,0)="MPA'5K$@>L_54.=2ZE&*/_8?JF!A/>88C9P>Y+KJA?J""D9VQ8E,R<^F\J3#IZ"
^XMB(3.9,23,2,17555,0)="""DATA"",396.18,225,3,267,0)"
^XMB(3.9,23,2,17556,0)="M4I8UIE%,M<SKYJNBXJ%3;JUP@2UQJ,R>UBFW9E.C@B;:&D@>`84[1""4G3&#4"
^XMB(3.9,23,2,17557,0)="""DATA"",396.18,225,3,268,0)"
^XMB(3.9,23,2,17558,0)="MOE<L0-SD=6'%>1:G=<GB;XO^CPX@SW#K!Q9YFN;7[&)*PY0TW8B#HF..\\N,"
^XMB(3.9,23,2,17559,0)="""DATA"",396.18,225,3,269,0)"
^XMB(3.9,23,2,17560,0)="M_$D%N5X6]+GERZG1`1-C-_)WCFON[XZI,""AT8>%1.[C5.L5TJ*VCH=K6A(XT"
^XMB(3.9,23,2,17561,0)="""DATA"",396.18,225,3,270,0)"
^XMB(3.9,23,2,17562,0)="M""+&H*UQ9BR)?-0)-!SZ*JC596-&:JO""Z(#R>IF%+]T#N)1D767SSG#V7.3D:"
^XMB(3.9,23,2,17563,0)="""DATA"",396.18,225,3,271,0)"
^XMB(3.9,23,2,17564,0)="MT1`^'3(\U'2FZZUK8S]M?>DNKJW!OS#00'%O@,""@C^:@N'\X*!ZHTG.-X%MR"
^XMB(3.9,23,2,17565,0)="""DATA"",396.18,225,3,272,0)"
^XMB(3.9,23,2,17566,0)="M!UG:!AYVI#HV>N!8'""JC08/YY,C)N5V0^&^DHCC\C%S>D]P<0DJ.06<(N8<L"
^XMB(3.9,23,2,17567,0)="""DATA"",396.18,225,3,273,0)"
^XMB(3.9,23,2,17568,0)="M\^;-Z]$Y7JUQ$55U@2=-H.,8$.!!""3D9P-*3FHY\^M6!P:O#4#(:_ORK3W&Y"
^XMB(3.9,23,2,17569,0)="""DATA"",396.18,225,3,274,0)"
^XMB(3.9,23,2,17570,0)="M)G3L>;&QZ/]FJ`A-)`""`G(.:)^,+_V[RY:XF>P+<X=LE_B//@/]YG27EY,N!"
^XMB(3.9,23,2,17571,0)="""DATA"",396.18,225,3,275,0)"
^XMB(3.9,23,2,17572,0)="MD>[)""13'=.06G979);Z3>0KVFJ?[S%!7#6%;G[_EDF?+5@U*;/)<+4C8LNMC"
^XMB(3.9,23,2,17573,0)="""DATA"",396.18,225,3,276,0)"
^XMB(3.9,23,2,17574,0)="M3E'Y4SIK8Y:<I7CGNKF>LNO,S5.R>:#,_'9*,AJ:/(VHOQC@=1K_;G^VS7-#"
^XMB(3.9,23,2,17575,0)="""DATA"",396.18,225,3,277,0)"
^XMB(3.9,23,2,17576,0)="M:X,ITRGPQ3%.&C3%1$""?GU#?1!_5)B^.,Y8?3T2>?`=BVR4*=]76MHNV;E&8"
^XMB(3.9,23,2,17577,0)="""DATA"",396.18,225,3,278,0)"
^XMB(3.9,23,2,17578,0)="M/T>4_PIA7K+KC\*\#6&Z!N8+.,'NYNMUFN=L_8I&R7/NT]4D'YV!1@%7,J+N"
^XMB(3.9,23,2,17579,0)="""DATA"",396.18,225,3,279,0)"
^XMB(3.9,23,2,17580,0)="M/!$_3K[6Q&N#0%XX,1C[>\%I?<=&V]>(Q1TJAW?+8C'QYB""0L02<?^V'+%[B"
^XMB(3.9,23,2,17581,0)="""DATA"",396.18,225,3,280,0)"
^XMB(3.9,23,2,17582,0)="M<G)%!&A61+IDW3:<=<.Y,`R9AF%@ISAL0/-Q0BHF)/;_""1UV9%,\FK^PS3YO"
^XMB(3.9,23,2,17583,0)="""DATA"",396.18,225,3,281,0)"
^XMB(3.9,23,2,17584,0)="M0S'@`]?51(QJ,H)Y,GQO9S+H+4#!,3T9P)ZG`P!G=T(""QQL3`B<(`2I""/&<Z"
^XMB(3.9,23,2,17585,0)="""DATA"",396.18,225,3,282,0)"
^XMB(3.9,23,2,17586,0)="MD>49R`6.Z?#4=+PY^?+I-$I(_G.1UVNF*,,K0PVWT8`VZ,I,DHE#$G$>M%MA"
^XMB(3.9,23,2,17587,0)="""DATA"",396.18,225,3,283,0)"
^XMB(3.9,23,2,17588,0)="MG2WSZR96'SJF_ZW+BBPV'RJV'MX[)\MB5TZB1`Q<\[1>9>PN],V944X_O<IJ"
^XMB(3.9,23,2,17589,0)="""DATA"",396.18,225,3,284,0)"
^XMB(3.9,23,2,17590,0)="M*AB%3SNP\4N>M5.<?F)@M/_$T,S1LVG/+0C5UP@U7UWDK_.O#(6U?T^`:@1#"
^XMB(3.9,23,2,17591,0)="""DATA"",396.18,225,3,285,0)"
^XMB(3.9,23,2,17592,0)="M&8<A`R5SIA`0&_[(S@J4!W-<^A^J;3U?Q+^A\#<2_G;L)A=7X(:#>KXX.KX`"
^XMB(3.9,23,2,17593,0)="""DATA"",396.18,225,3,286,0)"
^XMB(3.9,23,2,17594,0)="M+[@%QJ"";,"";\*QC#K1%26:-P6""+BR#E:>]XJ(F=LC=`$'8Z*#N#>`B%H3(@S"
^XMB(3.9,23,2,17595,0)="""DATA"",396.18,225,3,287,0)"
^XMB(3.9,23,2,17596,0)="M00B<-\_`]W<TSSX""""C+<Z22J:[-_0)5*;?S6UHDC,97JN,-B3_3@*QV1.C7$"
^XMB(3.9,23,2,17597,0)="""DATA"",396.18,225,3,288,0)"
^XMB(3.9,23,2,17598,0)="M_FG""""SAP>%)Z$(1PAXSJMC""*1I""G.*:,O9N\JGO@O""KC'H"":PI#AFKN46P.V"
^XMB(3.9,23,2,17599,0)="""DATA"",396.18,225,3,289,0)"
^XMB(3.9,23,2,17600,0)="M011`K31;92DM7BG`V78W(1,\1,C$C`E7-Z5E&>H:1#*_()@Q+1`&H;V3B>/$"
^XMB(3.9,23,2,17601,0)="""DATA"",396.18,225,3,290,0)"
^XMB(3.9,23,2,17602,0)="M*.U^5VC00CU_'VK`E*53A%;-7'0T\=6P]AAZ<L9A1%%@'%_M'5X-T7)#/YQ&"
^XMB(3.9,23,2,17603,0)="""DATA"",396.18,225,3,291,0)"
^XMB(3.9,23,2,17604,0)="MT<,<F,37+@7=C<(?\=5S[5O$T`)SK'>$ZG5CJ-III@<BS7TX.1*0;=4N;S8K"
^XMB(3.9,23,2,17605,0)="""DATA"",396.18,225,3,292,0)"
^XMB(3.9,23,2,17606,0)="M_+^].OU\)/Q`^HH5,O.B@:YHN,6^\P&4BO%HFO$0WICU@>_?"">O;PK?&-7QK"
^XMB(3.9,23,2,17607,0)="""DATA"",396.18,225,3,293,0)"
^XMB(3.9,23,2,17608,0)="M(M""@M4]XE??(A'V:LO]`+CX!XXJ,4,9L7@`.9N[?Y'5!Z'A_P==3QOXCR;!:"
^XMB(3.9,23,2,17609,0)="""DATA"",396.18,225,3,294,0)"
^XMB(3.9,23,2,17610,0)="M&G.!VUE<Y&GZFN65?[+*\C=<5$SH$RD4]8X7%0[T=-N>7##<]^0T<GC`*-!1"
^XMB(3.9,23,2,17611,0)="""DATA"",396.18,225,3,295,0)"
^XMB(3.9,23,2,17612,0)="M5JAH%@B')?*.7#9H[P``W^?EFJVJDS]Y-1""+R<[JXA(7FWN!!(%ZE;.M.6L8"
^XMB(3.9,23,2,17613,0)="""DATA"",396.18,225,3,296,0)"
^XMB(3.9,23,2,17614,0)="MZ,II-=L@)]LRCI?AI'G,V3==;P0-:`D]N4S18*WY+5OFMI)H\YP&U!G]':.)"
^XMB(3.9,23,2,17615,0)="""DATA"",396.18,225,3,297,0)"
^XMB(3.9,23,2,17616,0)="MK16QDJ$_LOR:RY77#GTE*U8[E,PMC`/'@%B`1@#,,5F@C\I&TWAA%-]IP35N"
^XMB(3.9,23,2,17617,0)="""DATA"",396.18,225,3,298,0)"
^XMB(3.9,23,2,17618,0)="MDB`O-""`(0MF<A^;56N\H13B*EQ:U.:R&:D'2M%UZ:YA(LD5>K+BDGV_WS#SY"
^XMB(3.9,23,2,17619,0)="""DATA"",396.18,225,3,299,0)"
^XMB(3.9,23,2,17620,0)="M->/?/;$6XMH=V\34W\Q]6?,()IEU72Z;@JWZ8D7:G5,[5Q4#9,(11XH/H6M0"
^XMB(3.9,23,2,17621,0)="""DATA"",396.18,225,3,300,0)"
^XMB(3.9,23,2,17622,0)="MOG%6KU91P7?!1)0)RZ&1*/DH&J$17&Z'0?WWC$:IZ45#``3DF@]@^[,R//JO"
^XMB(3.9,23,2,17623,0)="""DATA"",396.18,225,3,301,0)"
^XMB(3.9,23,2,17624,0)="M9L&.VB[.T2JWHB1A(N($;O<J;4>U1XT;U-2XP2'XM^7\CPPFH*K&C<Y3342R"
^XMB(3.9,23,2,17625,0)="""DATA"",396.18,225,3,302,0)"
^XMB(3.9,23,2,17626,0)="M%_C?[I#1E>79PWU(GC.W'F0<K_@W6@Y2)MB&NNS+*YI@-O&)[,`W7@YB8!&J"
^XMB(3.9,23,2,17627,0)="""DATA"",396.18,225,3,303,0)"
^XMB(3.9,23,2,17628,0)="M0*-D]>QP#SI""^/`P(]3S&7@&C':1;,X]S6IE#\Z1ZST\1CN32\/(R!0`&7J8"
^XMB(3.9,23,2,17629,0)="""DATA"",396.18,225,3,304,0)"
^XMB(3.9,23,2,17630,0)="MF(+&WFH6]O:R!5PY_'GE@/)*]E@YVF6""?AG$=Q_@+`PF79M&.=""P;->;VT@)"
^XMB(3.9,23,2,17631,0)="""DATA"",396.18,225,3,305,0)"
^XMB(3.9,23,2,17632,0)="M1S511UMD=)N)K2W-CA'-'7""X%:+1C8O.?65/B%!8*1F$R*[W&""*/(=&HA-HQ"
^XMB(3.9,23,2,17633,0)="""DATA"",396.18,225,3,306,0)"
^XMB(3.9,23,2,17634,0)="MV?\I!U5HES62=M/_6;,),:8R*%EU\;TH00=0@\J]X388&7M]`Z@<:""!NMP*V"
^XMB(3.9,23,2,17635,0)="""DATA"",396.18,225,3,307,0)"
^XMB(3.9,23,2,17636,0)="M)7U4""#>*""6U35'Y3RP5""C2OVI>X`<,X5V\:N&-W4V@*CE8^]:!8CB>^@/%6&"
^XMB(3.9,23,2,17637,0)="""DATA"",396.18,225,3,308,0)"
^XMB(3.9,23,2,17638,0)="MMGMQ=>NV\Z\LU.@^2""5-4TL""+AHU9VF1V?N\^+.#!2_.""\H>5B8L9OP93.AO"
^XMB(3.9,23,2,17639,0)="""DATA"",396.18,225,3,309,0)"
^XMB(3.9,23,2,17640,0)="M.64U^MS;V*JOE4]X55=Y<XN6.]N'C8RU5""(IZ%)[89N1L]O/G;T!W:51XF*X"
^XMB(3.9,23,2,17641,0)="""DATA"",396.18,225,3,310,0)"
^XMB(3.9,23,2,17642,0)="M\T'=HJ5;;3!1LRE%TZJ:@;)IU$VO<%OM47#2-^1D5P*M:.ZC,-ZJQ!C;N-\V"
^XMB(3.9,23,2,17643,0)="""DATA"",396.18,225,3,311,0)"
^XMB(3.9,23,2,17644,0)="M>ZE8/?LZ+TM""F?R<LK>,""W*!%3OW68J(9*0B46J)+7YX^QBRP&6US25MMW9N"
^XMB(3.9,23,2,17645,0)="""DATA"",396.18,225,3,312,0)"
^XMB(3.9,23,2,17646,0)="M*]AY^Y_LWW7!=^(NMKMQ>9$"";S6S+O*KX=-(PKKZ5+BXHF]:-J[Y.Q6WTOU-"
^XMB(3.9,23,2,17647,0)="""DATA"",396.18,225,3,313,0)"
^XMB(3.9,23,2,17648,0)="M:4&@T0+8(F']A&H1_=Q\8KEE)B.^U>`N^0K_@FGDV(;3""""(@,S!$9@QD<2#;"
^XMB(3.9,23,2,17649,0)="""DATA"",396.18,225,3,314,0)"
^XMB(3.9,23,2,17650,0)="MXDSHM+A[+OX5QDA.[&JYZ+30J^=B8&C6/_.=U/&V\J;EH'YFA#J27&EF0#B2"
^XMB(3.9,23,2,17651,0)="""DATA"",396.18,225,3,315,0)"
^XMB(3.9,23,2,17652,0)="M+(!F!O+H35TP5ED5:W#6E`0QB\5W;\=YEI!^3>C>VR(':&V1+W$\'!FCKJ!\"
^XMB(3.9,23,2,17653,0)="""DATA"",396.18,225,3,316,0)"
^XMB(3.9,23,2,17654,0)="MUAJU#J=D9A\O%I2&LMDS'\O""Z!FOK'G=>8""FX*7+J2M*=(W'-QI-><O#\73#"
^XMB(3.9,23,2,17655,0)="""DATA"",396.18,225,3,317,0)"
^XMB(3.9,23,2,17656,0)="M\20`,9JRH=E0P(M[9N8\SXQC7K`GQ^""]XY@6G_CV+?$,W3>>.3HK@YPAR\*Q"
^XMB(3.9,23,2,17657,0)="""DATA"",396.18,225,3,318,0)"
^XMB(3.9,23,2,17658,0)="ME;&=':U,%-?5"")0HS8N*7K9<%PZ6[?0`M-TS*]K\L8A[7]SE[&UH][L&Q@&X"
^XMB(3.9,23,2,17659,0)="""DATA"",396.18,225,3,319,0)"
^XMB(3.9,23,2,17660,0)="MBBZV<C!<0=""'1[XW""H_\,1=[W""+0!?R#H^'QFH)6\;3K""L+*PI3WGUQ=4""U5"
^XMB(3.9,23,2,17661,0)="""DATA"",396.18,225,3,320,0)"
^XMB(3.9,23,2,17662,0)="M*S6:AF/;3,?VSSF<K8C\T1B-]>9#E(?;JS`+5!.<;/M_2D-3[G:9J&ADC40K"
^XMB(3.9,23,2,17663,0)="""DATA"",396.18,225,3,321,0)"
^XMB(3.9,23,2,17664,0)="M7H4H7#DI\DN6W""17K,_4=5Z4@Z\_K%BD2F?1X""(+4WFI!""7Z^D<:V*Y(60JM"
^XMB(3.9,23,2,17665,0)="""DATA"",396.18,225,3,322,0)"
^XMB(3.9,23,2,17666,0)="MAOE='.KV(OI4IQ7I!M)[=M5ZVX0,D%X&(TBL$$*/?_MM\*I)`8.[$\)@CYK5"
^XMB(3.9,23,2,17667,0)="""DATA"",396.18,225,3,323,0)"
^XMB(3.9,23,2,17668,0)="MUJ=V3:Q:4=7%)=/4`4O/?SPY%R^\95U@4U82E2H>\;FNUO0BW[O_=7.)!U^^"
^XMB(3.9,23,2,17669,0)="""DATA"",396.18,225,3,324,0)"
^XMB(3.9,23,2,17670,0)="M.7EU(GYF.;(ESLLJ7VUN*D9?+\9A""3'2E7,++E:>6L[(U`%_;((=1R%58>.6"
^XMB(3.9,23,2,17671,0)="""DATA"",396.18,225,3,325,0)"
^XMB(3.9,23,2,17672,0)="MKL1XHLA8568\3%W/@_E_=`3T^ROA#"""">TJ5_XL&<^R7O)37>$*AS,@""8>1GD"
^XMB(3.9,23,2,17673,0)="""DATA"",396.18,225,3,326,0)"
^XMB(3.9,23,2,17674,0)="MCT!TUV9""8+V+1JRG_\)'+R-L0=2*0BV)4?"")[,`$B'1[K$19V&$X%X,]:!&U"
^XMB(3.9,23,2,17675,0)="""DATA"",396.18,225,3,327,0)"
^XMB(3.9,23,2,17676,0)="M>%DGH\!LMCC]/.@QV3A;&7@J#(`>9PL7Q00\;A:JY,53K3B"",2`#8X#L*,PZ"
^XMB(3.9,23,2,17677,0)="""DATA"",396.18,225,3,328,0)"
^XMB(3.9,23,2,17678,0)="MBPNZU7.&/;[73-AX9<M@Y6^*^0CJN#\*G/9GO^(HBZ&.H!N.I=VM#D8[U[7*"
^XMB(3.9,23,2,17679,0)="""DATA"",396.18,225,3,329,0)"
^XMB(3.9,23,2,17680,0)="MM'<8Z#EN*$*`K4Y\69)J#E*.U^^GH4$[$^=1V""P(`Y(P0W\<LX]Q@#.*;J""-"
^XMB(3.9,23,2,17681,0)="""DATA"",396.18,225,3,330,0)"
^XMB(3.9,23,2,17682,0)="M?'2G$.Q+5&Z[2?&<P""3<NCFN0C/.'&H\19]&E4IQA>H.=ZQ/R%,QU'ETYA,>"
^XMB(3.9,23,2,17683,0)="""DATA"",396.18,225,3,331,0)"
^XMB(3.9,23,2,17684,0)="MQ#$.168G@93K0]`?HV&%T)!*:/!.9\$'OFY3D:S.Z]):=?&EE6'>,Y<=9D._"
^XMB(3.9,23,2,17685,0)="""DATA"",396.18,225,3,332,0)"
^XMB(3.9,23,2,17686,0)="MISRTRLUJ34,^(2U_R,""DY>E6//JB0Z0H.A2:,S26MF^/YDI];H,'7G/H*=MB"
^XMB(3.9,23,2,17687,0)="""DATA"",396.18,225,3,333,0)"
^XMB(3.9,23,2,17688,0)="M:_JOA6BRTRW8H>;P+8DNL[PD]Z,?`]#TF75"">[@9Q?_VB@P]3:VQ#8;5;Y*X"
^XMB(3.9,23,2,17689,0)="""DATA"",396.18,225,3,334,0)"
^XMB(3.9,23,2,17690,0)="MO=$FS/!@18:^AN30G>2V22NXNRHR=#5UD<-./WN1K-FM=`L%?$!;P!=,U>_Y"
^XMB(3.9,23,2,17691,0)="""DATA"",396.18,225,3,335,0)"
^XMB(3.9,23,2,17692,0)="M,!A1#6Y8O^?YAZC?@]HE<`GG""D""M[QKM[53`][1\UO;""[]K3L^J*E16591ZS"
^XMB(3.9,23,2,17693,0)="""DATA"",396.18,225,3,336,0)"
^XMB(3.9,23,2,17694,0)="M#O@)/^V@*;=(6H-YWXIKH&^VZNP&R""2V4++\5=*4JD2I>84-T.H""D-(Y(TU`"
^XMB(3.9,23,2,17695,0)="""DATA"",396.18,225,3,337,0)"
^XMB(3.9,23,2,17696,0)="MAF2=M2<C).U.6;X]MSWR3]:.H_T*(:""A3B,XRDH9KE&_O:^ZB:""A#H#QTH-K"
^XMB(3.9,23,2,17697,0)="""DATA"",396.18,225,3,338,0)"
^XMB(3.9,23,2,17698,0)="M6/'SE!TIRY:D_&?2T9`7&UX2^F)/N7NZB>78<C7RB/K0L'B2;2D_?O7F_=@\"
^XMB(3.9,23,2,17699,0)="""DATA"",396.18,225,3,339,0)"
^XMB(3.9,23,2,17700,0)="MZ>>5K2ND<J`TY7TXGEKASJ6];`\^X=OQXV5.726?4N)1),*YERR)]X2='52Q"
^XMB(3.9,23,2,17701,0)="""DATA"",396.18,225,3,340,0)"
^XMB(3.9,23,2,17702,0)="M8[RX)1X6X^KM\KYB`C8TE9./;EJJ-$$%,J5""6*_>MY9E@@S'5#D49(#0W54["
^XMB(3.9,23,2,17703,0)="""DATA"",396.18,225,3,341,0)"
^XMB(3.9,23,2,17704,0)="M/F0\!&Z4HEVARQ>-(>YDRQJAY7%<KZ.M%V$F.XG(X'P>=D)/%%?DBKH:?`-U"
^XMB(3.9,23,2,17705,0)="""DATA"",396.18,225,3,342,0)"
^XMB(3.9,23,2,17706,0)="M<(T%X>Y;NN88"",(S%H2KR%$9.D#N]0R(,3=EX\R+.U'MHM0)9M2*B)\MM:Z+"
^XMB(3.9,23,2,17707,0)="""DATA"",396.18,225,3,343,0)"
^XMB(3.9,23,2,17708,0)="M-349Y7/J@]?;\Z9$U<!)7P?;[`B@ZC/4B5:I2KR.V'$=Z<9B9ZWAF,9TK`4%"
^XMB(3.9,23,2,17709,0)="""DATA"",396.18,225,3,344,0)"
^XMB(3.9,23,2,17710,0)="M#>!8)05;(8ZRP?E'""2FC""S)\&CO9R\)745HW>9M%V].C(V-_Q0N,%<_V;UH!"
^XMB(3.9,23,2,17711,0)="""DATA"",396.18,225,3,345,0)"
^XMB(3.9,23,2,17712,0)="M.$%&:*QX8S*`:ZAYG]?-3'[>QM.,CVPYIST4>-Z/:3<GC(*%<1(7N,X.NQ-Z"
^XMB(3.9,23,2,17713,0)="""DATA"",396.18,225,3,346,0)"
^XMB(3.9,23,2,17714,0)="M.W0=E1;;67*1DG*)DY?6!)4\*^:(Z3&1F7*9V'@.*S90.#W@5J6[U#&S`I&."
^XMB(3.9,23,2,17715,0)="""DATA"",396.18,225,3,347,0)"
^XMB(3.9,23,2,17716,0)="M1""P'EL**0G^A[_`""^XL*]JE+`07CSC?S=-.6_E>7-37JO847$I1F0'8:RDZ`"
^XMB(3.9,23,2,17717,0)="""DATA"",396.18,225,3,348,0)"
^XMB(3.9,23,2,17718,0)="M62,XJP6T4YGP3B44L-8SYS_PD4(""_:Z&'220\RT.);G,V""YC=L9V)Q/9O79N"
^XMB(3.9,23,2,17719,0)="""DATA"",396.18,225,3,349,0)"
^XMB(3.9,23,2,17720,0)="MM(\H)L83F`\'V>/1`+3#:(XYR2JE>7G/M48_:06K.\GGOJ)!""=#4[I@=.L/P"
^XMB(3.9,23,2,17721,0)="""DATA"",396.18,225,3,350,0)"
^XMB(3.9,23,2,17722,0)="M^&#^<N!=;D^ZM,AJ'34R46O1P(6RHP9%46F6,#3N<Y)#$.Y@UQ33""H#`7!%/"
^XMB(3.9,23,2,17723,0)="""DATA"",396.18,225,3,351,0)"
^XMB(3.9,23,2,17724,0)="M^1&>#)!<Y\4?([\U,33-"")K:23`NH]0/PG%5LTDE94>\*)2S!""*YD_64W_RD"
^XMB(3.9,23,2,17725,0)="""DATA"",396.18,225,3,352,0)"
^XMB(3.9,23,2,17726,0)="MTJS.3ZZ&\04P?N!?:Q(;^R(ND;&2S[D;6`/2X]4ZS3<XZ=?3IB:ZNNAC4C7<"
^XMB(3.9,23,2,17727,0)="""DATA"",396.18,225,3,353,0)"
^XMB(3.9,23,2,17728,0)="M751#`&=SNN$&""MV@H,DWF:4/4VE>E<R-4GXDA*H#KR1-:N8OAVKQ(8L+S(]!"
^XMB(3.9,23,2,17729,0)="""DATA"",396.18,225,3,354,0)"
^XMB(3.9,23,2,17730,0)="MK:(B84OKVANBBY(U_,.D7`UOD<I\IPI]C?4-&.F;,Z%O`H#N0C^%PD$;J2RJ"
^XMB(3.9,23,2,17731,0)="""DATA"",396.18,225,3,355,0)"
^XMB(3.9,23,2,17732,0)="MK=8X/WC4.)W&L6H5&JVFN:Q"";W&K0NQD8[8L*4-HKF=B8'N!E]$5R8OA/2<Y"
^XMB(3.9,23,2,17733,0)="""DATA"",396.18,225,3,356,0)"
^XMB(3.9,23,2,17734,0)="M.RR8K7RDS7[W2""KM:EY'%9[$5`4WPF')1%4))E&WRANTH/T^RAB>2U@/@&)T"
^XMB(3.9,23,2,17735,0)="""DATA"",396.18,225,3,357,0)"
^XMB(3.9,23,2,17736,0)="MWS9!6#:9OY0LN.?E)Q1'1;&A'[1D%BP^']UPML:8YQ':^X9?O\=1P?L[:+[_"
^XMB(3.9,23,2,17737,0)="""DATA"",396.18,225,3,358,0)"
^XMB(3.9,23,2,17738,0)="MC;!M%=JO/U)=XHU'JVA%LFCXY1<<_<%,`6]`T""S(ZYA""V8JSRVKYTJK7:SIU"
^XMB(3.9,23,2,17739,0)="""DATA"",396.18,225,3,359,0)"
^XMB(3.9,23,2,17740,0)="M*7/8G@X]%_L?4-'H?_`K'1Q+?I""L*4?!5'.&=[S#,=<#W?<G[,P>B>7E@HZE"
^XMB(3.9,23,2,17741,0)="""DATA"",396.18,225,3,360,0)"
^XMB(3.9,23,2,17742,0)="MX""=$W[T-@],VC)=YV5*9UX2[#(*Q]4*N*C""!-E!;K_#.`Q""H,4*J`J\)$S11"
^XMB(3.9,23,2,17743,0)="""DATA"",396.18,225,3,361,0)"
^XMB(3.9,23,2,17744,0)="MY#4H\YJ6Q4RIESH5T0E+FS%Q-1D3Y!OD3&!XPYR)HXW9;7WXA61M4GG""8)^D"
^XMB(3.9,23,2,17745,0)="""DATA"",396.18,225,3,362,0)"
^XMB(3.9,23,2,17746,0)="MB905UR1.>""9<""-KO0R""\3_SG3\@(R#*""BLR6KXK_4*B4T:N""BZ?`8A9%+8]_"
^XMB(3.9,23,2,17747,0)="""DATA"",396.18,225,3,363,0)"
^XMB(3.9,23,2,17748,0)="M/%2!P&""'28.0*M,%T-Z9+BREBF2Q[!VJ2T7:0%N@VA\H9J1^`5"",-?25D;OM"
^XMB(3.9,23,2,17749,0)="""DATA"",396.18,225,3,364,0)"
^XMB(3.9,23,2,17750,0)="M""-3K2U5'Q:K2MZIZU6%UTS(OL%G""YCL`WE-I@$Q"".)](FDA7\H0=>B_==X:I"
^XMB(3.9,23,2,17751,0)="""DATA"",396.18,225,3,365,0)"
^XMB(3.9,23,2,17752,0)="M*Y'14<%[O)=[Y`+`3KH'YW4/>,ZM*U]X&.6CCUZOJ;@>U>]@Z@=W4C\TKWY0"
^XMB(3.9,23,2,17753,0)="""DATA"",396.18,225,3,366,0)"
^XMB(3.9,23,2,17754,0)="M])^WHW[""\8]WJG['7W$1DQ(_JM_!U`_MI'Z.@><=17H(W-#XN0<R?JS@X='S"
^XMB(3.9,23,2,17755,0)="""DATA"",396.18,225,3,367,0)"
^XMB(3.9,23,2,17756,0)="M'D[WG%UTCS=KVAGUW5#Y@.W[AU&^4YY1DI=5'Q7P3A70W<GXN7M!OQN;/P`/"
^XMB(3.9,23,2,17757,0)="""DATA"",396.18,225,3,368,0)"
^XMB(3.9,23,2,17758,0)="MHX'G172%TT?P=T@%]'910)X1FP-_CGW[_C<XC`*^PSAY5+]#JI^_D_T+]P!_"
^XMB(3.9,23,2,17759,0)="""DATA"",396.18,225,3,369,0)"
^XMB(3.9,23,2,17760,0)="M4)5CVDGYO,,HW^NH6CXJWR&5+]A)^8*]<GXWUKX#H;^WO/'<H_H=4/W""G=3/"
^XMB(3.9,23,2,17761,0)="""DATA"",396.18,225,3,370,0)"
^XMB(3.9,23,2,17762,0)="MWR_M=U/]`^!`V""\G*:X>%?""@>6=[)PWT]LO\W=@""HL-H(!U1OGI4P(,JX$XK"
^XMB(3.9,23,2,17763,0)="""DATA"",396.18,225,3,371,0)"
^XMB(3.9,23,2,17764,0)="M'P8.>%3DX2G6Y44KV5=$0H7R^0ZZ2^6;EM(_\:CB5&2Q>2TI*X<)=64Q8H')"
^XMB(3.9,23,2,17765,0)="""DATA"",396.18,225,3,372,0)"
^XMB(3.9,23,2,17766,0)="M=E'64=7%V""JF.5""=L?+^NBGTW=;+`&A4,+/MQ^'HFKVYX6@KU/B8D7&W-^CN"
^XMB(3.9,23,2,17767,0)="""DATA"",396.18,225,3,373,0)"
^XMB(3.9,23,2,17768,0)="MU&Q/E4#8L^,;TTI'TYM+&HHSKOY1[)=WQDT<?<?Q'ILX""J9"")PBD%H3<%V+<"
^XMB(3.9,23,2,17769,0)="""DATA"",396.18,225,3,374,0)"
^XMB(3.9,23,2,17770,0)="M<\Y3'%WCC=O^!OYC-\W9#N=MWT,XT0-1GN1F4T/1!#&`0;^R/]_M$-ZTVR&S"
^XMB(3.9,23,2,17771,0)="""DATA"",396.18,225,3,375,0)"
^XMB(3.9,23,2,17772,0)="M*4#=X!]XH]VFXTZ5$!B,BF)&#QWIFS7.MCB#BA9G$`KGJH)!DS/83`BAVMU5"
^XMB(3.9,23,2,17773,0)="""DATA"",396.18,225,3,376,0)"
^XMB(3.9,23,2,17774,0)="M-SGK]?@C6>'OHU^9K^Q7!I3=MX:]E8#4P""H,YMN5G9Q^/CD^/?]P?'8OSD+5"
^XMB(3.9,23,2,17775,0)="""DATA"",396.18,225,3,377,0)"
^XMB(3.9,23,2,17776,0)="M'(4*!WQRH'P:H\RG<0LJ:EI8.?I/H?>]G'6IX9#C&7#(DS7)@$,-""#G'7ZN?"
^XMB(3.9,23,2,17777,0)="""DATA"",396.18,225,3,378,0)"
^XMB(3.9,23,2,17778,0)="MW@DE]_I)#Q23WA?F?!,B]-W8T&#.(^@^\,:&@;)/GUJ\``T:Q[7ZUCDOX._0"
^XMB(3.9,23,2,17779,0)="""DATA"",396.18,225,3,379,0)"
^XMB(3.9,23,2,17780,0)="MV7#;B8^52]_7@Y4;9=9TX>L:_[?-X6:/S0U,6]K9>[>TX[LQW`&>;,OZI6.@"
^XMB(3.9,23,2,17781,0)="""DATA"",396.18,225,3,380,0)"
^XMB(3.9,23,2,17782,0)="M9>,W:M#8=KOK\;S?Q>6W*U&HD.@8/BJ-GA8Z=G!(!QLG0:,,7O3FRU.8KV:+"
^XMB(3.9,23,2,17783,0)="""DATA"",396.18,225,3,381,0)"
^XMB(3.9,23,2,17784,0)="MRY;1X0""R!,.^K'![-OS#-5^ATGRIFXP.YIO<8;3M2FC6E17S/7)-[YMW@ZUA"
^XMB(3.9,23,2,17785,0)="""DATA"",396.18,225,3,382,0)"
^XMB(3.9,23,2,17786,0)="MWWF#5N""K+?_`\+<=!CNU=.;;LW83J]^/0;(X6D=QRT>\)F6>X-)ZROKX$;ZM"
^XMB(3.9,23,2,17787,0)="""DATA"",396.18,225,3,383,0)"
^XMB(3.9,23,2,17788,0)="M[P(G5L$:/K(=A,T9,$*3@B.VG_=B8T76>KDI24RB[-G_MW>U/6[;2/BO""+@/"
^XMB(3.9,23,2,17789,0)="""DATA"",396.18,225,3,384,0)"
^XMB(3.9,23,2,17790,0)="MS@))(+[HK5\.O6V#%KA>BB37[UI;Z]55E@Q)WF3[ZX^D+)DBAQ*I];YTLT51"
^XMB(3.9,23,2,17791,0)="""DATA"",396.18,225,3,385,0)"
^XMB(3.9,23,2,17792,0)="M-+1CC6:&Y'#FX3/]'0XP@V7%]WI41`PK(AK'RH&B"";VGO%D37RK>>J@\[*Z8"
^XMB(3.9,23,2,17793,0)="""DATA"",396.18,225,3,386,0)"
^XMB(3.9,23,2,17794,0)="M*[-M<)/>B=M#)KWDI;=/F2X0]G;,G#>R)KP]\X9J:&^]_.V/?0D,K=[]47OZ"
^XMB(3.9,23,2,17795,0)="""DATA"",396.18,225,3,387,0)"
^XMB(3.9,23,2,17796,0)="MH5OGL&>IU,8]AN0A]ZQQ=AF9X%9];#B*X7V5FUDU'T7C78P?4OL;':;,LI%V"
^XMB(3.9,23,2,17797,0)="""DATA"",396.18,225,3,388,0)"
^XMB(3.9,23,2,17798,0)="M7$\HCRG'\Y;?&N.-LUM^Y[3,TKJX\YJJ]VF-6-QXGA_EH:4<-+@Q36DSFM8F"
^XMB(3.9,23,2,17799,0)="""DATA"",396.18,225,3,389,0)"
^XMB(3.9,23,2,17800,0)="MHM/ZQ,1""G\F#Z/.G*A,:_9I^$ZO'5[;+/H@BL94BPVE%)J-E19U7R%?UV#?Z"
^XMB(3.9,23,2,17801,0)="""DATA"",396.18,225,3,390,0)"
^XMB(3.9,23,2,17802,0)="MD/48GU&/JH+`!>4^6B,&K?6M1""(MCP:OP""K?-J;:""@RX7+B:>2WMC*KCC\UO"
^XMB(3.9,23,2,17803,0)="""DATA"",396.18,225,3,391,0)"
^XMB(3.9,23,2,17804,0)="M?ZJ^KTX@S-4IM[4ZW0E;G4#JJU.V>W7""CZQ.*+K5*>>WDJY6K*1J_TI""?:ZD"
^XMB(3.9,23,2,17805,0)="""DATA"",396.18,225,3,392,0)"
^XMB(3.9,23,2,17806,0)="MK.T*28^4^B.ND/10J8_E2B*<64F=QYCRI/^7WU-Z+I:>BZ7G8NFY6'HNEIXK"
^XMB(3.9,23,2,17807,0)="""DATA"",396.18,225,3,393,0)"
^XMB(3.9,23,2,17808,0)="MM0U<8>FY4N.Y%9&>2V0%2\\ETG.)]%PB/9=(SR72<XGT7""H]ETK/I=)S?ZM$"
^XMB(3.9,23,2,17809,0)="""DATA"",396.18,225,3,394,0)"
^XMB(3.9,23,2,17810,0)="M2).6'AN]F,E1^AAC*.B/3C$_';5BP$HK!HR_\Y""_`T!H.3NFV#""!LU(TF>K'"
^XMB(3.9,23,2,17811,0)="""DATA"",396.18,225,3,395,0)"
^XMB(3.9,23,2,17812,0)="MD""0.D7]''L29$UY*DF+07@0?FZ+)+`7Q??N`5]!+C+G';CHE>@T+>@63YYJI"
^XMB(3.9,23,2,17813,0)="""DATA"",396.18,225,3,396,0)"
^XMB(3.9,23,2,17814,0)="M<)MY;P1_R""9MLT;0/8O/1P%OP4-ASOOLY4>F,_9ORDX+MWGV=40(?<^C@-`-"
^XMB(3.9,23,2,17815,0)="""DATA"",396.18,225,3,397,0)"
^XMB(3.9,23,2,17816,0)="MGM<-BA7=X""""83WA>IH<FXQSWG#8@9Y9FX7';,2X+OC(6]!==T/].!/WS@?[$"
^XMB(3.9,23,2,17817,0)="""DATA"",396.18,225,3,398,0)"
^XMB(3.9,23,2,17818,0)="M:\2AQ6M0=4?%=/XUO@""B;P[B#`>)?R[38*S10@]UJ?%;^:$R[0-__JU^.G0D"
^XMB(3.9,23,2,17819,0)="""DATA"",396.18,225,3,399,0)"
^XMB(3.9,23,2,17820,0)="M/=PX?2?2;%@!%MB`R8MM;*!*FUAXDB#PYI3,@X#+Y(ML]-GW:1H$M-#FY5&#"
^XMB(3.9,23,2,17821,0)="""DATA"",396.18,225,3,400,0)"
^XMB(3.9,23,2,17822,0)="M&G^HHX"")Q3JEZ""^V*#W\%R(W-1V0^6Q*#,U*R#A;0N)@)K,+-+,QG)*3Q:=D"
^XMB(3.9,23,2,17823,0)="""DATA"",396.18,225,3,401,0)"
^XMB(3.9,23,2,17824,0)="M<>3@]6DFN`BN^X&QZ.,D&582/40_X%.]G<VGK,WK3%`%'\JL9]O3WB4VM&%@"
^XMB(3.9,23,2,17825,0)="""DATA"",396.18,225,3,402,0)"
^XMB(3.9,23,2,17826,0)="M\H4F=G.]VJQ1\L<NC,%LNM1""VA$7DG7C^T'@V,0""GLR!80!8#RBNV""?.)Z^1"
^XMB(3.9,23,2,17827,0)="""DATA"",396.18,225,3,403,0)"
^XMB(3.9,23,2,17828,0)="MDUGIT882K;<`0I8DUMUVOSZKX(G),YA?J\W+=1Q""8-NH`UCW>U>^[PO$=IZ"""
^XMB(3.9,23,2,17829,0)="""DATA"",396.18,225,3,404,0)"
^XMB(3.9,23,2,17830,0)="M`<4'EMTF/F5I4[%(<9O?9AWU^7F$Q\:N`XKP""&O-7J29.\-U+XJ`=\>F>X7W"
^XMB(3.9,23,2,17831,0)="""DATA"",396.18,225,3,405,0)"
^XMB(3.9,23,2,17832,0)="MILOMIL7%P-UZGS<P,>2CQ)]_!T+<WF'?W*UO\K1E2_,]A%<0W7SG\5U[+:)`"
^XMB(3.9,23,2,17833,0)="""DATA"",396.18,225,3,406,0)"
^XMB(3.9,23,2,17834,0)="M;PH$$/X'.B@GD5!X#]1J\3;C+(;E<878/$V+=W\:_H1]?@RPQ$`1I+?<B*P@"
^XMB(3.9,23,2,17835,0)="""DATA"",396.18,225,3,407,0)"
^XMB(3.9,23,2,17836,0)="M4`F-YKJ1&I%1(YD_?CI2@HH-G\?(P\CTW`VIWJ5""EUT:DF2/YV2?Y@0U(-FF"
^XMB(3.9,23,2,17837,0)="""DATA"",396.18,225,3,408,0)"
^XMB(3.9,23,2,17838,0)="M;/MSD6]S]B11!F+G1K;6;:3%FY]#9-O_IBXJ_;2\@+^ES]_1%Q6^1#-;8G<8"
^XMB(3.9,23,2,17839,0)="""DATA"",396.18,225,3,409,0)"
^XMB(3.9,23,2,17840,0)="MY]/GJ*XQ`-$P;H+P?<GW4N?CO-Q47P>;5N66FWE^5>$5?I&-,L!'U14$^Z&5"
^XMB(3.9,23,2,17841,0)="""DATA"",396.18,225,3,410,0)"
^XMB(3.9,23,2,17842,0)="M8_B08R2O+787PDKUM7^VSRZ9#X2`'GR$`H8+'FWM/YT4O*M#ZY55^[3;06@!"
^XMB(3.9,23,2,17843,0)="""DATA"",396.18,225,3,411,0)"
^XMB(3.9,23,2,17844,0)="M]>5;0F+&^^HAJ=ZH2[K]-[TO!&1E\<[3..#(1CW_YHRW(IN-O+M37]*N$L""["
^XMB(3.9,23,2,17845,0)="""DATA"",396.18,225,3,412,0)"
^XMB(3.9,23,2,17846,0)="MP&`Q/-(AYN.!/A[P<>3K'[`Q_DO`)Z=D^O#IA<4B9KB,H.QM1.^$`ZUA!-K<"
^XMB(3.9,23,2,17847,0)="""DATA"",396.18,225,3,413,0)"
^XMB(3.9,23,2,17848,0)="M@N!U#9M8PV(+(P561D)4;U@&]-@)H%D21J]&FC`2L3!2:`@'M/,18*8HM#13"
^XMB(3.9,23,2,17849,0)="""DATA"",396.18,225,3,414,0)"
^XMB(3.9,23,2,17850,0)="M_&JF""3-1_<(#;*L(0FJ.$J'$5U-X6C8_C-7Z>#)4.D'K?$?HS6C&`,FL`5`2"
^XMB(3.9,23,2,17851,0)="""DATA"",396.18,225,3,415,0)"
^XMB(3.9,23,2,17852,0)="M+S!`Y+\:X!2&F6$BXG#KFZ`B8T,$T9PA=*1(,H""3%B%%@CFDB(0ND..NKUGV"
^XMB(3.9,23,2,17853,0)="""DATA"",396.18,225,3,416,0)"
^XMB(3.9,23,2,17854,0)="MIX2_4/Z,Q9\E@`U1!Z@Z$*@#H3H0J0.Q.I""H`RR(4T>0-J()BS1ID28NTN1%"
^XMB(3.9,23,2,17855,0)="""DATA"",396.18,225,3,417,0)"
^XMB(3.9,23,2,17856,0)="MFL!(DQAI(B--9JS)C#69L28SUF3&FLQ8DQEK,F--9JS)C#69B28ST60FNE-H"
^XMB(3.9,23,2,17857,0)="""DATA"",396.18,225,3,418,0)"
^XMB(3.9,23,2,17858,0)="M,A--9J+)3#29B28ST60FFLQ4DYEJ,E--9JI[LB8SU62FFLQ4DYEJ,E--YD""3"
^XMB(3.9,23,2,17859,0)="""DATA"",396.18,225,3,419,0)"
^XMB(3.9,23,2,17860,0)="M.=!D#GJ9+RP6)F2W,&&DEJ8M%J8(W6=A(G,+TX=#47`XPNG-V4K>OAL/?<Z*"
^XMB(3.9,23,2,17861,0)="""DATA"",396.18,225,3,420,0)"
^XMB(3.9,23,2,17862,0)="MZW=*@4\,\_)#6JS&P`\KE6$C[""^<45IHH;0!M?4PN#_CT1D^.,/'9L.AV71D"
^XMB(3.9,23,2,17863,0)="""DATA"",396.18,225,3,421,0)"
^XMB(3.9,23,2,17864,0)="M-AZ8S5$+\:&H15&PBO$'](MU_9+7L,4>$RRR>70:%TQ&H`L5%MSSGV@],&2;"
^XMB(3.9,23,2,17865,0)="""DATA"",396.18,225,3,422,0)"
^XMB(3.9,23,2,17866,0)="M^`\%5^]3=\<*:7'G]6O!8P+6!Z]&L[&X""D\'(L!07VCI]W=IS3>""6-F7KK+-"
^XMB(3.9,23,2,17867,0)="""DATA"",396.18,225,3,423,0)"
^XMB(3.9,23,2,17868,0)="M?ZHVNZJJ/[G*QR/RU?L3HG5T!S?JO/:$:.UZH++?F=?P\*63BEMQ6UC^4,6@"
^XMB(3.9,23,2,17869,0)="""DATA"",396.18,225,3,424,0)"
^XMB(3.9,23,2,17870,0)="M]N-F(&7_C;&F-<ZCHQ[X*_^>;K/Q[;(1;H9J\V6,%C5K]&BBZAM?I(<_*,D8"
^XMB(3.9,23,2,17871,0)="""DATA"",396.18,225,3,425,0)"
^XMB(3.9,23,2,17872,0)="M)16C)6(B2H'^2D,&Y)>J_FMPA?=?:N:D'*@W3MUSYSA]Z5-:;C/!(N+#7S#\"
^XMB(3.9,23,2,17873,0)="""DATA"",396.18,225,3,426,0)"
^XMB(3.9,23,2,17874,0)="MRH]%ON7OGQ:71<Y\<A@_M%7WE]4TB0I7YKQ7#Y<50F!6""*;N,N2%S!D?B.U)"
^XMB(3.9,23,2,17875,0)="""DATA"",396.18,225,3,427,0)"
^XMB(3.9,23,2,17876,0)="MNV@6&5OOZ)S00""<D%""SK%?R?M.9ETMOL!^_RIJ[*?-WWN/.:NW)35TP3;RX_"
^XMB(3.9,23,2,17877,0)="""DATA"",396.18,225,3,428,0)"
^XMB(3.9,23,2,17878,0)="M?+X0L-K2RXM""],+C^-QTW6J]@NO\+UZZN?,V\MW(_B?Y!9R&TY""EA7=='-X5"
^XMB(3.9,23,2,17879,0)="""DATA"",396.18,225,3,429,0)"
^XMB(3.9,23,2,17880,0)="M^9_\.;M]6[']@.\+ZN]YN_3.NTEO,^^JXK#1OE[+?TDNR^[2,K_FK=Y%4\.N"
^XMB(3.9,23,2,17881,0)="""DATA"",396.18,225,3,430,0)"
^XMB(3.9,23,2,17882,0)="MTZ#`SBF_5_`&@TVV8V%)XY79H4X;%I26>?I6_*E:Y_7Z4*0""C'SZZ#J_JJLF"
^XMB(3.9,23,2,17883,0)="""DATA"",396.18,225,3,431,0)"
^XMB(3.9,23,2,17884,0)="M;_-&_;VWHBL@_WAWEQ;;/'WOK1:V8.J1>$A#Y<GAF4;1!Q!^89@ES7\1;:V@"
^XMB(3.9,23,2,17885,0)="""DATA"",396.18,225,3,432,0)"
^XMB(3.9,23,2,17886,0)="MV00@,P.?_T,TJJW1U7MY\-AG6AXZ=;6*Y6&@5JK3\3/+-]XG@4(?,<'9:GY."
^XMB(3.9,23,2,17887,0)="""DATA"",396.18,225,3,433,0)"
^XMB(3.9,23,2,17888,0)="M]Y/L:9;ZG[#`M`U,5K`B$E-FP/1DH&Z3@22VLX%0_-*F`P:GP_$>,]"".7HV."
^XMB(3.9,23,2,17889,0)="""DATA"",396.18,225,3,434,0)"
^XMB(3.9,23,2,17890,0)="MQV4=!,X$BL&9,)Y*\%[3=Z;/&]$8<9_5O/VM0.M<B]O=S$UZP`ZS.&]CJO:`"
^XMB(3.9,23,2,17891,0)="""DATA"",396.18,225,3,435,0)"
^XMB(3.9,23,2,17892,0)="M4U9?WIO^GR-_-BRX(R\#M$-<M9,$H'8P!;4C][\;K1.R/F2\DKC'PCOK<IC\"
^XMB(3.9,23,2,17893,0)="""DATA"",396.18,225,3,436,0)"
^XMB(3.9,23,2,17894,0)="M2#GRZTZ_$_;=W@D;+#XV[:S%3UW]FI[&A5_""V?/]EKW*J9T?3U:T'O/LX?6R"
^XMB(3.9,23,2,17895,0)="""DATA"",396.18,225,3,437,0)"
^XMB(3.9,23,2,17896,0)="MS0_>_:RI7+:=X!P='T]4WX<4@:((W@3&,V*@.0DB,GJ9*0+22?"",F8,4.EEP"
^XMB(3.9,23,2,17897,0)="""DATA"",396.18,225,3,438,0)"
^XMB(3.9,23,2,17898,0)="M)=]4S9Z%7D7^U]&C:J\YU-NLOAO/%@!(,TMM""I"";:O2FINW!9+;C78JIO3H!"
^XMB(3.9,23,2,17899,0)="""DATA"",396.18,225,3,439,0)"
^XMB(3.9,23,2,17900,0)="M/):`#AL%L+\&QKWZ7;7/RD?:I-$3;=+H?IOT5&>EA;,L],%9%B!XEH70+,,^"
^XMB(3.9,23,2,17901,0)="""DATA"",396.18,225,3,440,0)"
^XMB(3.9,23,2,17902,0)="MB?Q'G66_-D?6$NA\\P2S""]O.+NHZNZ+PH687U#_N[&Y)XJ6KOP_O[=1P!HAA"
^XMB(3.9,23,2,17903,0)="""DATA"",396.18,225,3,441,0)"
^XMB(3.9,23,2,17904,0)="MQPQP]*B.*7@N^G.VN&N)*=L(#K7H6U]4)5O^O?2Z%4WFNSZ)3^""NU,*,/?5#"
^XMB(3.9,23,2,17905,0)="""DATA"",396.18,225,3,442,0)"
^XMB(3.9,23,2,17906,0)="M#$`J9\*RR(=-1V""G188U)1R;SH""HA(O\=EKS59TA;01K(T0;H=I(H(V$VDBD"
^XMB(3.9,23,2,17907,0)="""DATA"",396.18,225,3,443,0)"
^XMB(3.9,23,2,17908,0)="MC<3:R(_%CM_B;3DW49<S.89HLFEG39@XFQ""CLY@PP,$""$X8N)D1']B75;-VP"
^XMB(3.9,23,2,17909,0)="""DATA"",396.18,225,3,444,0)"
^XMB(3.9,23,2,17910,0)="M-BF(89P:Q@/#>&@8CPSCL6$\,8PCW_0!,GU@>N532?+T%0OOZ2HY&N?]I->$"
^XMB(3.9,23,2,17911,0)="""DATA"",396.18,225,3,445,0)"
^XMB(3.9,23,2,17912,0)="M<-Z&P""'[./20)W[PY+D:F.M^,@B<Y+M7&._G0L99UGL82>Z0T8F=,CJ1=4('"
^XMB(3.9,23,2,17913,0)="""DATA"",396.18,225,3,446,0)"
^XMB(3.9,23,2,17914,0)="MA1AL#7)D%6V\RR+-=]U]Y%\W3`7L;-JEJG]FY]/5='-O_7P=XHGC-9!8#$`/"
^XMB(3.9,23,2,17915,0)="""DATA"",396.18,225,3,447,0)"
^XMB(3.9,23,2,17916,0)="M3=SR!>B][?$_)&[B)?0,XF%[\:B;>`B?0WW$1KYCDP;LFCD.B%/JV#?(^*]#"
^XMB(3.9,23,2,17917,0)="""DATA"",396.18,225,3,448,0)"
^XMB(3.9,23,2,17918,0)="M7FS@Q@VO)U,[VY'0U79Q>!;;_52M#X(3Z'?UDN_+S/SCLYLN<;6<Q$)P+]-U"
^XMB(3.9,23,2,17919,0)="""DATA"",396.18,225,3,449,0)"
^XMB(3.9,23,2,17920,0)="ME1JOMZ!,2_)2K4?./_%\9_-%9['>KR4[GAQ$@KQYX<OE@U;;!(;>&)SA,+:I"
^XMB(3.9,23,2,17921,0)="""DATA"",396.18,225,3,450,0)"
^XMB(3.9,23,2,17922,0)="M/E,YO#Y5G^7]$?9""O6@U%26,#XK]-1<PC,%^Y!8H##6,2G""7""&2`0!LP_]CF"
^XMB(3.9,23,2,17923,0)="""DATA"",396.18,225,3,451,0)"
^XMB(3.9,23,2,17924,0)="MZP&R\(-MO!--O4@<0V\""O<AX=/X]/G""LA;V0X824,50Q`M?>('83\I<LW:3K"
^XMB(3.9,23,2,17925,0)="""DATA"",396.18,225,3,452,0)"
^XMB(3.9,23,2,17926,0)="MF\Q>FWA*4#+.""4RITU72S]V!MJ[2=E2IFM9J[&K[""*X_84<G%FL!+P*Q4\[N"
^XMB(3.9,23,2,17927,0)="""DATA"",396.18,225,3,453,0)"
^XMB(3.9,23,2,17928,0)="MT*S9JN.FYBAQ5;-!<N0OE_QKEO[)$4?64L>^J[X1O`LEH9O4O^7;N@,._:_B"
^XMB(3.9,23,2,17929,0)="""DATA"",396.18,225,3,454,0)"
^XMB(3.9,23,2,17930,0)="M*85]FI?V8B?(5=D&L6-7IRZR;,\I%]M#?966Z\Q>9.*LZ1""=Q4%^+5-1?;GC"
^XMB(3.9,23,2,17931,0)="""DATA"",396.18,225,3,455,0)"
^XMB(3.9,23,2,17932,0)="M6/AU57(@`6]X:2TZ0MA9W;#LH:.7?*CJ;=9>'PHGIT;(6=?8!P^D@:.J+ZOR"
^XMB(3.9,23,2,17933,0)="""DATA"",396.18,225,3,456,0)"
^XMB(3.9,23,2,17934,0)="M^L""[%3G(&CK[!8;=PG'%^\`[!F3E6A3!CWOTF^;BY46$T_JGR-E7*%SS""M%]"
^XMB(3.9,23,2,17935,0)="""DATA"",396.18,225,3,457,0)"
^XMB(3.9,23,2,17936,0)="MT#['%@_>3;_!""P""(U][ML[<=#)3-8`&@W*=MF]5E!PG)&[8:75]GM8[VX6=K"
^XMB(3.9,23,2,17937,0)="""DATA"",396.18,225,3,458,0)"
^XMB(3.9,23,2,17938,0)="M02QZ^LF\[-!$=;:KZJM\XW$,:'8.5!!Q##YA)S;4L\W+L6MH.8GL@N2DAF0Y"
^XMB(3.9,23,2,17939,0)="""DATA"",396.18,225,3,459,0)"
^XMB(3.9,23,2,17940,0)="M#NX5)#?YMN1P']ZUH*?S%7A?YQ<2O1N<PGXX?X,PNM\;.4@N.B;%YJ(%*#8&"
^XMB(3.9,23,2,17941,0)="""DATA"",396.18,225,3,460,0)"
^XMB(3.9,23,2,17942,0)="M=Q1*X24ZI(:J1>*_5BU<JA8(VY<P@^D*)KB:TM`E?C=6H6.TH(2)7$J8']?K"
^XMB(3.9,23,2,17943,0)="""DATA"",396.18,225,3,461,0)"
^XMB(3.9,23,2,17944,0)="MM,E'=S3[>Y_=3MJJXY?'OB0N5>""9(C""T'87P.2)TU2!9HD'_^:DPFE8A&*^>"
^XMB(3.9,23,2,17945,0)="""DATA"",396.18,225,3,462,0)"
^XMB(3.9,23,2,17946,0)="MRPOC!3K$ST^%`#W$_$Q._//H<`D8@3Q#':(%?G@N'28+=$B?H0[Q`C]$,-35"
^XMB(3.9,23,2,17947,0)="""DATA"",396.18,225,3,463,0)"
^XMB(3.9,23,2,17948,0)="M78GTH8%-CZ1$LL`1SZ;$Z*&A18^D1+K$$Z/S;""M1N$"")T3-48K#$$\^DQ!@O"
^XMB(3.9,23,2,17949,0)="""DATA"",396.18,225,3,464,0)"
^XMB(3.9,23,2,17950,0)="M4&+\#)48+O!$I4AXREE@1T]<,IV39Z3$,>PYLH$]HS@`%`JC9Y&?6!1C9>AE"
^XMB(3.9,23,2,17951,0)="""DATA"",396.18,225,3,465,0)"
^XMB(3.9,23,2,17952,0)="M^`C`Y\<`*\L9/9/V!S9M!%%KSQQS$OB>D2'I-G9&V8/'X>4TN?:,C\]ID%_#"
^XMB(3.9,23,2,17953,0)="""DATA"",396.18,225,3,466,0)"
^XMB(3.9,23,2,17954,0)="MU[R8I_+40:E6IGYD*DQ-?:\O`VD84ZCHHLFBECC4+YCJ""=J;RLE[8-)VF7+U"
^XMB(3.9,23,2,17955,0)="""DATA"",396.18,225,3,467,0)"
^XMB(3.9,23,2,17956,0)="M@Z'`J7[P<;JZK'[]Y[+@3;$VWCJK;\4M^()]\\8K>5M8XY?3;WE1\`[K$U_^"
^XMB(3.9,23,2,17957,0)="""DATA"",396.18,225,3,468,0)"
^XMB(3.9,23,2,17958,0)="M.,IWC2>$F<W\E)<Q,9?W\]_TF0G7,,-N+J85R'`^FZ)+W%)T-`Y<4G1CD*>\"
^XMB(3.9,23,2,17959,0)="""DATA"",396.18,225,3,469,0)"
^XMB(3.9,23,2,17960,0)="M)L:O*3JG%!VUM""=QM*?OGR?EBE[MZ61/,HU&`CEN%Q'L_-XSA$BH;@N:'70/"
^XMB(3.9,23,2,17961,0)="""DATA"",396.18,225,3,470,0)"
^XMB(3.9,23,2,17962,0)="MFAU?(]GQ[T&Q\\J@X\R@TR/6HLFK!<2*1X=`7!'R_<B73)UR9`Z8JA]CX.20"
^XMB(3.9,23,2,17963,0)="""DATA"",396.18,225,3,471,0)"
^XMB(3.9,23,2,17964,0)="MP,P!OF-!\:-61TRORJK>\?8L_:R^9H$`7[U^L$?R3X-2H4(N>+!4TD<GYS""]"
^XMB(3.9,23,2,17965,0)="""DATA"",396.18,225,3,472,0)"
^XMB(3.9,23,2,17966,0)="MSA_\""K[WF;U.LWH8,.<4]X'5]5<4!A#0!2Z^A!8<./(6&3W-Q>SL-M]DO(ML"
^XMB(3.9,23,2,17967,0)="""DATA"",396.18,225,3,473,0)"
^XMB(3.9,23,2,17968,0)="M=<W<A@6^Y983-_W3\Q[_NBMR-EMB8S9""(FNSQ8&CV8*G,=OX3),R$U;[M+VY"
^XMB(3.9,23,2,17969,0)="""DATA"",396.18,225,3,474,0)"
^XMB(3.9,23,2,17970,0)="M>YYWZE4&S\56""^""<=$`=K48?U6I?>(*A/MG,T5R&9@_GMR1Q3I]9<<8$4%+7"
^XMB(3.9,23,2,17971,0)="""DATA"",396.18,225,3,475,0)"
^XMB(3.9,23,2,17972,0)="M8$D:.5H2/X4EAR3!<[5DX&Q)LMB2YUI)R=.LI..$SY.NI):G>(6S=S;>1#Z("
^XMB(3.9,23,2,17973,0)="""DATA"",396.18,225,3,476,0)"
^XMB(3.9,23,2,17974,0)="M?`X#.%.-(Z.)PM=CO,LQ/GRL4_R7K&D;^],[?CV]_]WY;S$V$N!BBX,[IM""E"
^XMB(3.9,23,2,17975,0)="""DATA"",396.18,225,3,477,0)"
^XMB(3.9,23,2,17976,0)="M,_FHJ7@7IS0Y%&WCI9P'-MNP3:RMO.S;NCAL>@#HNF*'37&I\'3<A""_0C3>:"
^XMB(3.9,23,2,17977,0)="""DATA"",396.18,225,3,478,0)"
^XMB(3.9,23,2,17978,0)="M8""J*,#$=$)GB9'@MF?]`XG""6!GO"".1(2.728VFXF-QMXJY%)""[,CKKO7($=U"
^XMB(3.9,23,2,17979,0)="""DATA"",396.18,225,3,479,0)"
^XMB(3.9,23,2,17980,0)="M,P=N^9SU\E)H<.-5'3"";D_^Q;^ZKNI4W('#[>>:IE<F]4=L9E7W1,B^#IOU,"
^XMB(3.9,23,2,17981,0)="""DATA"",396.18,225,3,480,0)"
^XMB(3.9,23,2,17982,0)="M[)98VRV-$R4""4EP^1!5-,.!3?(>,5P]M'VRP#[PS&JTSN2NN;$TQNQ]""B]D#"
^XMB(3.9,23,2,17983,0)="""DATA"",396.18,225,3,481,0)"
^XMB(3.9,23,2,17984,0)="M;(`_Y>FVK)K<81,DSV83[%GBZ2M+_'EW28+,FZ2,QSCN*`!W3H#MM\G+:L>Y"
^XMB(3.9,23,2,17985,0)="""DATA"",396.18,225,3,482,0)"
^XMB(3.9,23,2,17986,0)="M$$:YUK]M]AM>3X^Q!S6JE>C[-`+""#TK(,OY]=/'>XRL<VRZY1ME6""A+G]Q>C"
^XMB(3.9,23,2,17987,0)="""DATA"",396.18,225,3,483,0)"
^XMB(3.9,23,2,17988,0)="MQ*TIMJF6U6%[PP,6C7\_VQS6HO]YOMNG.3O9<[;]K<*D?.>Q=ZV^>H'?TS!W"
^XMB(3.9,23,2,17989,0)="""DATA"",396.18,225,3,484,0)"
^XMB(3.9,23,2,17990,0)="MK,.9]GOLY,AGXNH?)%DU_);5N[X#P/!3!9.I\*[9(U/^:WFUX3\&\)0YL>$?"
^XMB(3.9,23,2,17991,0)="""DATA"",396.18,225,3,485,0)"
^XMB(3.9,23,2,17992,0)="M+1,8+8.TO@A89F4>+`-V1H`]?O3FZ7ON9[7WQX_>_E#OJR9KWK(WW/0+,W_)"
^XMB(3.9,23,2,17993,0)="""DATA"",396.18,225,3,486,0)"
^XMB(3.9,23,2,17994,0)="MRP^?.8*E]789,Q[7WS5;I*JOW'2J)M=UWC+MI*.;X\]Q.ETW_ZJ*S?TG5>@R"
^XMB(3.9,23,2,17995,0)="""DATA"",396.18,225,3,487,0)"
^XMB(3.9,23,2,17996,0)="MJ:#@E]*%DPKS2=55D]9%7HH4Y2F6[R83[RNQKRLQ6YI\EQ>I!(#1FE!P&U]E"
^XMB(3.9,23,2,17997,0)="""DATA"",396.18,225,3,488,0)"
^XMB(3.9,23,2,17998,0)="M_?%`L(:U-U4M9F%VFQ8'01CSUKM*FR[T/=Z`>RLJ5^KO""8%X8)R7Q[_'+\JE"
^XMB(3.9,23,2,17999,0)="""DATA"",396.18,225,3,489,0)"
^XMB(3.9,23,2,18000,0)="M>R;/GGE(RPD\KZHCKJF5CL)+9U'D,(M(!`2-6$9@SNT;5Z*31Z<TYBU5-SM"""
^XMB(3.9,23,2,18001,0)="""DATA"",396.18,225,3,490,0)"
^XMB(3.9,23,2,18002,0)="MOBCM.""JL6VJ:C'<W&V;%=S(I8I=)D0`[#9*9D.<L\>/ZP)QIV%KX`C7,@_<K"
^XMB(3.9,23,2,18003,0)="""DATA"",396.18,225,3,491,0)"
^XMB(3.9,23,2,18004,0)="M*X$3L^O(MRXG)(Z)O<#_9IO2MD[9""?R:[W12,Y4I(8EO#HMB:J=6[!`8\2CS"
^XMB(3.9,23,2,18005,0)="""DATA"",396.18,225,3,492,0)"
^XMB(3.9,23,2,18006,0)="MVV$C^N;(-48[E4X$<;H/4#^Y9[+C][38\R0]GWZM4K>I:A`>:*OVB91-1*S>"
^XMB(3.9,23,2,18007,0)="""DATA"",396.18,225,3,493,0)"
^XMB(3.9,23,2,18008,0)="M!""4.SF'""C?+7Z/&AMJ(3<[LE8N<Q&#LLB1\D8F8>',QR,]N^ATOD2C&PLM,@"
^XMB(3.9,23,2,18009,0)="""DATA"",396.18,225,3,494,0)"
^XMB(3.9,23,2,18010,0)="M7!8?#:A6[XW;M?[C)7YU4YR_U']A.;_,,6,0AE9NF23VI@41R+;F,\=(@6RL"
^XMB(3.9,23,2,18011,0)="""DATA"",396.18,225,3,495,0)"
^XMB(3.9,23,2,18012,0)="M""?LAN:H\NW""9H,:6FIUH4A;Y5IIUB2,TV/:<E#WV""T_AP+2%*8966`Q1S,I\"
^XMB(3.9,23,2,18013,0)="""DATA"",396.18,225,3,496,0)"
^XMB(3.9,23,2,18014,0)="M5R^Y95`'/YIDT02I&&$N/]^B;<I$YNOI2G-_8R*_P&D&($IM6PHB""K,L?S[L"
^XMB(3.9,23,2,18015,0)="""DATA"",396.18,225,3,497,0)"
^XMB(3.9,23,2,18016,0)="M=FG7?68X(;^(O)&IGJTDY4-S!3NV11B&)L8Q%,`MAB(_4FOZ_7V)&W:L>BUM"
^XMB(3.9,23,2,18017,0)="""DATA"",396.18,225,3,498,0)"
^XMB(3.9,23,2,18018,0)="M.Y2V?8=9Q@T=&(LP>B(V@)(;,11CQ!BH[$7AB(3!:.77\@P,_K(IV1(Z7[*E"
^XMB(3.9,23,2,18019,0)="""DATA"",396.18,225,3,499,0)"
^XMB(3.9,23,2,18020,0)="MP($72@:/T'L@3EAN.>`_2M'VE[3INLH=$RYL]""K+2F^7M6-D+%B8O5?E$T)Q"
^XMB(3.9,23,2,18021,0)="""DATA"",396.18,225,3,500,0)"
^XMB(3.9,23,2,18022,0)="M69DD6&82*)7H9A+T'9DD=#)).&\2K)_\:0!%V&`9.H(M@A_)(K>9QXZJ1<;["
^XMB(3.9,23,2,18023,0)="""DATA"",396.18,225,3,501,0)"
^XMB(3.9,23,2,18024,0)="M)X6G1&6?I3P9Z+',$UF>>'BS6^04])'H^1Q[\""/'<6BJ#6&ORB<X^_R\VQ?5"
^XMB(3.9,23,2,18025,0)="""DATA"",396.18,225,3,502,0)"
^XMB(3.9,23,2,18026,0)="MW4YE!'CH4\-X1M,%X""7(E\#$!`$""'(SPB-WG`:%+;,E-O=^RC<A^?MSG)?_@"
^XMB(3.9,23,2,18027,0)="""DATA"",396.18,225,3,503,0)"
^XMB(3.9,23,2,18028,0)="M$R=A:-IL\VBS>AHY(O[S?U!+`P04``(`""`#.4R$U\YXBQO84``#_EP``$P``"
^XMB(3.9,23,2,18029,0)="""DATA"",396.18,225,3,504,0)"
^XMB(3.9,23,2,18030,0)="M`$9A=&EG=65?,3$S+G!N;""YC9&7M75MSVSJ2?G:J\A]0>O',G(DMDK(N4Z/9"
^XMB(3.9,23,2,18031,0)="""DATA"",396.18,225,3,505,0)"
^XMB(3.9,23,2,18032,0)="MDB4Z88TE:D3Y9/.4HB7(YAZ)U))48N^O7X!W7`E*2L[L67LNL<5&]X?N1C>`"
^XMB(3.9,23,2,18033,0)="""DATA"",396.18,225,3,506,0)"
^XMB(3.9,23,2,18034,0)="MAL#K:S""?C1W@K$)O'[]_]_Z=M0%W7AC%BX,_U-Z_`Q.X\7PX.^Q@Z*W`W6CY"
^XMB(3.9,23,2,18035,0)="""DATA"",396.18,225,3,507,0)"
^XMB(3.9,23,2,18036,0)="M=0K7]ORKY:^VAS5<(Q(`'!AS'H$A:!<<G#CT_*<*U0+^]P%&,9=#\0RQP)^."
^XMB(3.9,23,2,18037,0)="""DATA"",396.18,225,3,508,0)"
^XMB(3.9,23,2,18038,0)="MYY^G""W?M!1_#X+#O7#EP""U?HL17#72$A*B4L%CL81>X31`]SSG/7AUN]K>MZ"
^XMB(3.9,23,2,18039,0)="""DATA"",396.18,225,3,509,0)"
^XMB(3.9,23,2,18040,0)="M]^H64\;!)@S\&(MPMQ'D\3%W^VWPFD!DGCWX4/)T`6,O3!XE\MTXE:\N>@(?"
^XMB(3.9,23,2,18041,0)="""DATA"",396.18,225,3,510,0)"
^XMB(3.9,23,2,18042,0)="M*XW17PEQ7*KB"":NB6ZC""2U61-[@]Q''@=ZY^]2+O<0O5&C,@YF&`&N_^FG9)"
^XMB(3.9,23,2,18043,0)="""DATA"",396.18,225,3,511,0)"
^XMB(3.9,23,2,18044,0)="MR_XUC/27T>0^^^3C(/UE\I+^:W[SUM!?$>I/62$@K1:H?+[0V(\,@_D,R6+I"
^XMB(3.9,23,2,18045,0)="""DATA"",396.18,225,3,512,0)"
^XMB(3.9,23,2,18046,0)="M/@Z8SR8OS$<YF.*!J)M?[[TH3CLPW@81S#J7]>E3$.V]V-V2?WUU#KN=&[ZR"
^XMB(3.9,23,2,18047,0)="""DATA"",396.18,225,3,513,0)"
^XMB(3.9,23,2,18048,0)="M/4VX,6`2QFQ/6-2Y`.&#7+*X6P5EI3?3=%RD?]A[S_<""/[.=YS[Y0>1%F0DW"
^XMB(3.9,23,2,18049,0)="""DATA"",396.18,225,3,514,0)"
^XMB(3.9,23,2,18050,0)="M&^0:/+G\+F2,F<\S&:RA<G&LO1+)XH_9@&#HW&&0#WJ-&'3#?,B1@4&!QE""@"
^XMB(3.9,23,2,18051,0)="""DATA"",396.18,225,3,515,0)"
^XMB(3.9,23,2,18052,0)="MZ2G0:""J`;MKX1X6RKT`SX-!<7\,7=X=<)HR`'\0L3)W;R/*1BQU6,3)J1(]C"
^XMB(3.9,23,2,18053,0)="""DATA"",396.18,225,3,516,0)"
^XMB(3.9,23,2,18054,0)="MUC3:5<2W3!J@]#Q`#7E-!49-1@O^!8^PV^#%$!%F0</\YFY;[]^9_MK:X!1W"
^XMB(3.9,23,2,18055,0)="""DATA"",396.18,225,3,517,0)"
^XMB(3.9,23,2,18056,0)="M??VA^`$+^'38NB$8!VL(RL]3.K*O.#46R(WVU7CKK7Y+<M0R/&#U7<CT5R'["
^XMB(3.9,23,2,18057,0)="""DATA"",396.18,225,3,518,0)"
^XMB(3.9,23,2,18058,0)="MU\&+$SS>AN:J->>:&US&5N>PS4=L2[L""EX@\?H8@C]*/$`>1-8Q=;PO7?[L$"
^XMB(3.9,23,2,18059,0)="""DATA"",396.18,225,3,519,0)"
^XMB(3.9,23,2,18060,0)="M6QS,U@%,7`6LD&37\X&+2""*<YT!JY228I+^""2Q.9HV""(377Y5RS#!YM@NPV^"
^XMB(3.9,23,2,18061,0)="""DATA"",396.18,225,3,520,0)"
^XMB(3.9,23,2,18062,0)="M)_*\BH+Q'RA2$SB2&/K=\]?!]ZL6^`6,G]WP3YKQ9_1K2[\""J=T!=%?/8)\U"
^XMB(3.9,23,2,18063,0)="""DATA"",396.18,225,3,521,0)"
^XMB(3.9,23,2,18064,0)="M06K9)3PNY9UQ_36`?@S#A#A$,XZD(VLW=AE1QA5(]`>BP^,.]2H.@+M:P3WB"
^XMB(3.9,23,2,18065,0)="""DATA"",396.18,225,3,522,0)"
^XMB(3.9,23,2,18066,0)="MLMVF7$1-.U=@&62""W#52"">HJBNH9M@@)WD,W!FBRLX^`]@$85RW&EM@5_T+]"
^XMB(3.9,23,2,18067,0)="""DATA"",396.18,225,3,523,0)"
^XMB(3.9,23,2,18068,0)="M`.=UMX^#7>F7]@)KZS%X(0?.W__1PARMNV0&(""`""?_\':,T""'R:D4G[#UAW\"
^XMB(3.9,23,2,18069,0)="""DATA"",396.18,225,3,524,0)"
^XMB(3.9,23,2,18070,0)="M!D-,6`RT>_<1AS[3=U&GUL/,P\JD%^P>`\3HAJ;(^E<KT0E""[!=AX,:L7#2?"
^XMB(3.9,23,2,18071,0)="""DATA"",396.18,225,3,525,0)"
^XMB(3.9,23,2,18072,0)="MJQ/<.U;P)^BND7/!B--=L=CDN=;1:G$-Q!3$3,TXN@,?(8KO[M;['^2?NT.T"
^XMB(3.9,23,2,18073,0)="""DATA"",396.18,225,3,526,0)"
^XMB(3.9,23,2,18074,0)="M0E-!47_ZM7""U]CE@?(?N;VB>PH,PJ(>@'0MAZCV%;AR@""=-_!1X*G'L4P#@8"
^XMB(3.9,23,2,18075,0)="""DATA"",396.18,225,3,527,0)"
^XMB(3.9,23,2,18076,0)="M^NUZ#/K1?KR%<`_6Z.$A?'31G)25/ZCW&LTX5KZ%FGE;+W[%$0P%\16*2T@I"
^XMB(3.9,23,2,18077,0)="""DATA"",396.18,225,3,528,0)"
^XMB(3.9,23,2,18078,0)="M/!A&/8S.L3#N@O`)QIO#EN\&&JM@5OC1L60<^)M#A*(P3[!""K[O'""K91G@F!"
^XMB(3.9,23,2,18079,0)="""DATA"",396.18,225,3,529,0)"
^XMB(3.9,23,2,18080,0)="M#P]AL(]>5\_!-GA""2^HHB^,\.!TAG""G<!5K_-""@RR3=RR4(/+!#(T\VPS#;%"
^XMB(3.9,23,2,18081,0)="""DATA"",396.18,225,3,530,0)"
^XMB(3.9,23,2,18082,0)="MDE5""2]%MZWAF*(KT69LABY0FR&CTI)K-:&**)7R)AZT6/3,3@Z&RG2C9B23V"
^XMB(3.9,23,2,18083,0)="""DATA"",396.18,225,3,531,0)"
^XMB(3.9,23,2,18084,0)="M%""@:8R(2H2@/TO*8/""@""-%""@*""#7YTB&""4U(CH8&:I""E4U$V%76IDDTE)(TM"
^XMB(3.9,23,2,18085,0)="""DATA"",396.18,225,3,532,0)"
^XMB(3.9,23,2,18086,0)="M)4JUHDPKE*VID#2&)TS#HBPL%*ZKD#0??+P4+<K00L&&""DEC;++T+<K>0OD="
^XMB(3.9,23,2,18087,0)="""DATA"",396.18,225,3,533,0)"
^XMB(3.9,23,2,18088,0)="M%9+&$)G4+LSL0JDW*B2-@1%I7YCUA1*[*B2-02E,""80S`AH'-2/('X^WT`UW"
^XMB(3.9,23,2,18089,0)="""DATA"",396.18,225,3,534,0)"
^XMB(3.9,23,2,18090,0)="MZ%F%J""E`""9X;.1Y#!8_!+G0A;I6LVKTH_0V!O2NVPM%J56$[.^N=C`I/&KY4"
^XMB(3.9,23,2,18091,0)="""DATA"",396.18,225,3,535,0)"
^XMB(3.9,23,2,18092,0)="M5T/""C7KY`JVBASK*GH""2NVG/G]?)>H2,IM:AW""!BG$R6E/1>1""LH1:2B\VXU"
^XMB(3.9,23,2,18093,0)="""DATA"",396.18,225,3,536,0)"
^XMB(3.9,23,2,18094,0)="MK7+0\SHI<KRS\87,T!1]EX->2%H8CS_9*<U;]I,<;%*P%7^L1Y`YAP1`2E&H"
^XMB(3.9,23,2,18095,0)="""DATA"",396.18,225,3,537,0)"
^XMB(3.9,23,2,18096,0)="M2X1!Y$%,B.OQ9F'EPV*LUXE@4?>;-)8JM%NK4!:P0)5]FH!PO,*U#79S56GH"
^XMB(3.9,23,2,18097,0)="""DATA"",396.18,225,3,538,0)"
^XMB(3.9,23,2,18098,0)="M5;I1&28->5'`.!N%""[@*PG6$_OWFP>^`?HY;\0-+6H+0&7V6U=G'5_#K:&&#"
^XMB(3.9,23,2,18099,0)="""DATA"",396.18,225,3,539,0)"
^XMB(3.9,23,2,18100,0)="MQT.<[`N[WUQOBS76(HJZ>""?X)N6%_0?S&'_8>%N\[9I@^NY&R0YL#=>K5ETL"
^XMB(3.9,23,2,18101,0)="""DATA"",396.18,225,3,540,0)"
^XMB(3.9,23,2,18102,0)="MY$+&$>`<F!6E&V=4F%$(GR)V*W>;6?,'*<XXI^(,GN*HPD0N-G/Z(34.Q96P"
^XMB(3.9,23,2,18103,0)="""DATA"",396.18,225,3,541,0)"
^XMB(3.9,23,2,18104,0)="MC%!<\DA;=42<BQ,"".;YF[I1T^<<.FBI""\N]?T/`!=WCXH""5H#![S881YPPW>"
^XMB(3.9,23,2,18105,0)="""DATA"",396.18,225,3,542,0)"
^XMB(3.9,23,2,18106,0)="M/$C+%#&>0*7%C7T0QM7*!);$;-DT\HLZ#1@_6`/D>(A^FBIT_N;43S/;40'H"
^XMB(3.9,23,2,18107,0)="""DATA"",396.18,225,3,543,0)"
^XMB(3.9,23,2,18108,0)="M=](KA;644SA07H.D#^T0,T.EDCA5,$O_PV3#XE1%$`+G@):J^.0&K4I.]3E9"
^XMB(3.9,23,2,18109,0)="""DATA"",396.18,225,3,544,0)"
^XMB(3.9,23,2,18110,0)="M<215;ER<4V@PS&8=%Q?2TG\:E2XRV""J,B]E9#>=$+Z!*EE7<V5)P(?[XVOQ%"
^XMB(3.9,23,2,18111,0)="""DATA"",396.18,225,3,545,0)"
^XMB(3.9,23,2,18112,0)="M[3$`^0P^E:BQ,ZD+[GF84E4XVW2JB>:""V^)+<$@]N:SX/N>/<2%X&ZQ<7)G%"
^XMB(3.9,23,2,18113,0)="""DATA"",396.18,225,3,546,0)"
^XMB(3.9,23,2,18114,0)="MY=NB>LL:!B]7]:M[?,Q&)H[X\Q=&^MJ-H8(@-),]55(Z,MTH\+'#QZ][""((-"
^XMB(3.9,23,2,18115,0)="""DATA"",396.18,225,3,547,0)"
^XMB(3.9,23,2,18116,0)="M&KJ)X]=`*-AF@_7BHCI8\Z>2=B+8U8-+GVQG;BU']V`TFX![>SQ:6O;L;P#'"
^XMB(3.9,23,2,18117,0)="""DATA"",396.18,225,3,548,0)"
^XMB(3.9,23,2,18118,0)="M$<JZ9%5],EJ:)5G5+""3=PAPY]@S8""[#\,C>!?0><A\5'<_&%;%RHFFS]%_D/"
^XMB(3.9,23,2,18119,0)="""DATA"",396.18,225,3,549,0)"
^XMB(3.9,23,2,18120,0)="M5>HO`U_9YX1YK[`C5PV-QBA_X/`:L!LM.O=3K5L99<QPR@,Q+=""0G%,AF3SX"
^XMB(3.9,23,2,18121,0)="""DATA"",396.18,225,3,550,0)"
^XMB(3.9,23,2,18122,0)="MO_G!=[\E/Z&B=Q1[``C=5@:C4`Y]%J9/S`G!]?4*'VCCA)KRI)O&CSC%R!""W"
^XMB(3.9,23,2,18123,0)="""DATA"",396.18,225,3,551,0)"
^XMB(3.9,23,2,18124,0)="MU%NE[0`OC)S""HW#;ADSHH9I3I43EP2#3CT,/L7=1OG?7^$1O'""0Q)7==>W;_"
^XMB(3.9,23,2,18125,0)="""DATA"",396.18,225,3,552,0)"
^XMB(3.9,23,2,18126,0)="M!7S'9WJ<]&"",%X%]B)K#=8N35WB)BED.TXY!6RN$'X(]]&O8YIFU]AP-]9.?"
^XMB(3.9,23,2,18127,0)="""DATA"",396.18,225,3,553,0)"
^XMB(3.9,23,2,18128,0)="M&7+V<.5MO!6H+I1)/^K2:XL+V4G`VJV8)$]REAK9[@5GX.KTCD5'O#N5-F"">"
^XMB(3.9,23,2,18129,0)="""DATA"",396.18,225,3,554,0)"
^XMB(3.9,23,2,18130,0)="M""W92>%C8C11:)K7$HD5RME#*S*\SRLPL@6N]_)#15VKR_MT\V!^V*.4F^SZ?"
^XMB(3.9,23,2,18131,0)="""DATA"",396.18,225,3,555,0)"
^XMB(3.9,23,2,18132,0)="MO?@Y(TO.EA4;0K?!B]:`5F>[,)`=W://!%<F>[ET_BR&;EED^""CQT-=D/.9G"
^XMB(3.9,23,2,18133,0)="""DATA"",396.18,225,3,556,0)"
^XMB(3.9,23,2,18134,0)="MWU:',$29?_M*G7F[(B?F=!S`(6V@))[Y""&5)P)ETY%,<B5#L'CW!#.=(J2LO"
^XMB(3.9,23,2,18135,0)="""DATA"",396.18,225,3,557,0)"
^XMB(3.9,23,2,18136,0)="M7!UV48S+=E$RK_-\+_;07&3G^MX&+3[=]*1AD)YV7'L1FAS5`<U.F7(7?LT@"
^XMB(3.9,23,2,18137,0)="""DATA"",396.18,225,3,558,0)"
^XMB(3.9,23,2,18138,0)="M?WYVDQ""98`T.(8JYD8=/IB-,,/X/)1C&Z3!&R?$""B/X_\Q<0HTEBO$._14>!"
^XMB(3.9,23,2,18139,0)="""DATA"",396.18,225,3,559,0)"
^XMB(3.9,23,2,18140,0)="M*-)/+55V0./B@K_4,01*/K9_R7E2F!P<3XQ>W]^+HL?%+Y0*""''<N7&5HJ9]"
^XMB(3.9,23,2,18141,0)="""DATA"",396.18,225,3,560,0)"
^XMB(3.9,23,2,18142,0)="ML3:O_/""^,<$Q,=E[W/'YPKZ]-Z?EU)8*+?PIJI`=GF/C&;,]<\PE.2<?\!BJ"
^XMB(3.9,23,2,18143,0)="""DATA"",396.18,225,3,561,0)"
^XMB(3.9,23,2,18144,0)="M)K34HK7B/X^<5#08C1^JLWVI`!)28<OJI(F9>=5C21!D:"":F,UY8\WRA4EU%"
^XMB(3.9,23,2,18145,0)="""DATA"",396.18,225,3,562,0)"
^XMB(3.9,23,2,18146,0)="ML&L0`D2MF+&U&#],G>5H-C:=9$EDS:REA99'T]',NC/1$RS6H>3VN&+KI=D/"
^XMB(3.9,23,2,18147,0)="""DATA"",396.18,225,3,563,0)"
^XMB(3.9,23,2,18148,0)="M""\<$CH6DT4;FQ[RF`AX6""W.V!$NT""EM.T6\.(\""0"">""'B*,=RG+`V)XMK=F#"
^XMB(3.9,23,2,18149,0)="""DATA"",396.18,225,3,564,0)"
^XMB(3.9,23,2,18150,0)="M_>""`J3FQTN4F6)C_>K`6Y@0L[81B8=\#Y\MTOK2GCLCMC,9NIS5WNXJKX8$H"
^XMB(3.9,23,2,18151,0)="""DATA"",396.18,225,3,565,0)"
^XMB(3.9,23,2,18152,0)="MTR<A0HY&'G(;P'.LB0G,NSMSO'2X^(3*:SYHCU7>+7;P$B:EL(PK'P`%H7]$"
^XMB(3.9,23,2,18153,0)="""DATA"",396.18,225,3,566,0)"
^XMB(3.9,23,2,18154,0)="MV)A,+&P\-(#']I1CL3Z[[0""X(2-!>Y-2#RDI)V]29/-7>CXMWW)@R8GZ:I%U"
^XMB(3.9,23,2,18155,0)="""DATA"",396.18,225,3,567,0)"
^XMB(3.9,23,2,18156,0)="MDF(QL34PX'S.C3=<$H-#PJZ-^MQ/>_P-$+T*7I)<2#RR>#""L9'7!:JDX?D$0"
^XMB(3.9,23,2,18157,0)="""DATA"",396.18,225,3,568,0)"
^XMB(3.9,23,2,18158,0)="M46LFDH@/O;*DE,Z_TN^!-)JCD=#I(\$5`F9XTY3Y[@7QDQWHR<X>L1/;K!3!"
^XMB(3.9,23,2,18159,0)="""DATA"",396.18,225,3,569,0)"
^XMB(3.9,23,2,18160,0)="M3)""*BCAUKI,Y^$""V:HX!:^,$$*3UZMKQ:S8L_HO:!4&]`3-D*A8L23GNIY4/"
^XMB(3.9,23,2,18161,0)="""DATA"",396.18,225,3,570,0)"
^XMB(3.9,23,2,18162,0)="MIL0#.6]V4-%0-<$0.(\)FMJA""D^Z""JLG*VQ#K2XJ.WN20%=O4(XM-,'G57XJ"
^XMB(3.9,23,2,18163,0)="""DATA"",396.18,225,3,571,0)"
^XMB(3.9,23,2,18164,0)="M)JJQD+HOG<&&38Q7:K@:(Z4]KA39N(KC+]AHQ?""]CPCU#*V\%&@(]^34`/'"""
^XMB(3.9,23,2,18165,0)="""DATA"",396.18,225,3,572,0)"
^XMB(3.9,23,2,18166,0)="MH@`/.0>@-V4U8?+/]YMO6]5**;D09;:KBU8CWE9W9<79L&5U=90WQ7U6;,Y?"
^XMB(3.9,23,2,18167,0)="""DATA"",396.18,225,3,573,0)"
^XMB(3.9,23,2,18168,0)="M!<DP`#$70YT+QPV(A^4./=X$>W:_0;!WPV2CR_,W0;ASTV_B[K=X>PML/-^+"
^XMB(3.9,23,2,18169,0)="""DATA"",396.18,225,3,574,0)"
^XMB(3.9,23,2,18170,0)="MGG$%<(6=&<3/7E0ES$OZ*5U>T4^_')X0""/?R^=]VK]]M9W;9LX(""<S2-\+J!"
^XMB(3.9,23,2,18171,0)="""DATA"",396.18,225,3,575,0)"
^XMB(3.9,23,2,18172,0)="MR.EXW_+G[?\3W'I-N.6CDU]8HFK=@[KCE.0<LZUR_#0G;;*!3P&1G2UEV/,W"
^XMB(3.9,23,2,18173,0)="""DATA"",396.18,225,3,576,0)"
^XMB(3.9,23,2,18174,0)="MZZEH9#3JJ*$I=]30&G74,)IUU-""$'147B,#\^35*CL:8:&2PZZ'VU4IT=H%S"
^XMB(3.9,23,2,18175,0)="""DATA"",396.18,225,3,577,0)"
^XMB(3.9,23,2,18176,0)="M30-]<I/DI37EU<0_>YQ`!*ZOP6?H/3W'>(7HXS,X%RJ-JS,:>OUG\""L*^>.."
^XMB(3.9,23,2,18177,0)="""DATA"",396.18,225,3,578,0)"
^XMB(3.9,23,2,18178,0)="M_#%G!L#C(2%*LM^-7D_""$R5-PZP2[H,H.K67^5KIQ$[2;,[6QX^NYQ]CZ,:6"
^XMB(3.9,23,2,18179,0)="""DATA"",396.18,225,3,579,0)"
^XMB(3.9,23,2,18180,0)="MY/>@H2'E>QAU?6UQ]C/(;LH-K:(#%3O7JZ#6S""JU;WQ12GJ_3L1[3(6GKC1S"
^XMB(3.9,23,2,18181,0)="""DATA"",396.18,225,3,580,0)"
^XMB(3.9,23,2,18182,0)="M&M*Z-QGG.(<^^#5<LEE/?$PLN_^)+#-VB#(CN*""H>?7+_'8BM=J@)B_*3?(+"
^XMB(3.9,23,2,18183,0)="""DATA"",396.18,225,3,581,0)"
^XMB(3.9,23,2,18184,0)="M:]`O_$-:E1I56ASTTYM""`/[O:G78N]F](>XJ]KZA1[`.&>GA_48`)_B>%Q)'"
^XMB(3.9,23,2,18185,0)="""DATA"",396.18,225,3,582,0)"
^XMB(3.9,23,2,18186,0)="M""A`<H@,""L7:][6L%2DW1$#'EULDF+UQ:!ESUIJB)-?HXLQV+VDCM<'>^*^L'"
^XMB(3.9,23,2,18187,0)="""DATA"",396.18,225,3,583,0)"
^XMB(3.9,23,2,18188,0)="M>N7!Y4[^G9?`""I$`EZ1P$>;VWG(^F1.R)L8MLO'WG#;$]U!T""AI0@I85^\#("
^XMB(3.9,23,2,18189,0)="""DATA"",396.18,225,3,584,0)"
^XMB(3.9,23,2,18190,0)="M<>RQA7!.P&=K^0DL/U40LZ5`G44IV&520I%NJP-[!AZ<A]$]L,?CASEUB(\_"
^XMB(3.9,23,2,18191,0)="""DATA"",396.18,225,3,585,0)"
^XMB(3.9,23,2,18192,0)="M1KB6RD@[=24)*:;E)V2JB>6,;JU[:_GET@'6=#Y*49;X\)G#\=+ZU5I:)EN7"
^XMB(3.9,23,2,18193,0)="""DATA"",396.18,225,3,586,0)"
^XMB(3.9,23,2,18194,0)="MZC0I4&1M;DY""O3""=A_NE-?L(/MN+?P*FELL7HE`Y:0OK%E(\-G*D15G=45`="
^XMB(3.9,23,2,18195,0)="""DATA"",396.18,225,3,587,0)"
^XMB(3.9,23,2,18196,0)="M(:VF!""H5/5J8V(T71'$)^W7N\X6[34;6_1<N&&GX4ZE;5]QUV=R:8/S)7HCQ"
^XMB(3.9,23,2,18197,0)="""DATA"",396.18,225,3,588,0)"
^XMB(3.9,23,2,18198,0)="MZ%H3,U)M]=.0.9_L^1SYF1"";?@(VXS1LYG^:B['EB(O]Q@G83HLJP)G;BZ78"
^XMB(3.9,23,2,18199,0)="""DATA"",396.18,225,3,589,0)"
^XMB(3.9,23,2,18200,0)="MHIWCD76[IR%;F&-<<26""KEQ""([V=%M?`<C'ZU;R7.=S-\>"",]FG@[DQS(H%&"
^XMB(3.9,23,2,18201,0)="""DATA"",396.18,225,3,590,0)"
^XMB(3.9,23,2,18202,0)="MLV^DM\%IT&Y'*)%)M#8X`5K_-&@3%-H<&;;^""=AZ)[J;;=V;2QFXW@G@3ARI"
^XMB(3.9,23,2,18203,0)="""DATA"",396.18,225,3,591,0)"
^XMB(3.9,23,2,18204,0)="M'Q>V/95AZS9-[X,K-+1,I[D)\],129ZGLGC.M%Z\<9SXVH,1AAQ!M6;1);Y="
^XMB(3.9,23,2,18205,0)="""DATA"",396.18,225,3,592,0)"
^XMB(3.9,23,2,18206,0)="M08A1/1?!.0S197;@^%43\AK;VD,3PJ4S/5^)A.<.T%I]F%]I2M<;-=EY!6(%"
^XMB(3.9,23,2,18207,0)="""DATA"",396.18,225,3,593,0)"
^XMB(3.9,23,2,18208,0)="MP![+J![76#&E7H/[:8<]Y<""=/Q/E;(KT1D+**3FW6=WBW8OL^WFR:1^I0^[7"
^XMB(3.9,23,2,18209,0)="""DATA"",396.18,225,3,594,0)"
^XMB(3.9,23,2,18210,0)="MU)@&*HOI\I""^J`2J:QQ[BFCU!K1&`]I.`]J;!K3=!K2]!K3]!K0#=5J4TI5I"
^XMB(3.9,23,2,18211,0)="""DATA"",396.18,225,3,595,0)"
^XMB(3.9,23,2,18212,0)="MN]R^L4XYX%6GBQO;^BJU[""+RRFFYLIG:'.-]W+LUY$.$\<K3>1AGX-$Y`X^;"
^XMB(3.9,23,2,18213,0)="""DATA"",396.18,225,3,596,0)"
^XMB(3.9,23,2,18214,0)="M,_#HGH%'[PP\^F?@,3B=A]$^G4?W*)TRHT:]*6=XUC:N&[/,5_+[-=]\YF9N"
^XMB(3.9,23,2,18215,0)="""DATA"",396.18,225,3,597,0)"
^XMB(3.9,23,2,18216,0)="M?`^=]^3CTKCKQ_G6/'O-F_CF15X:)BNN!8GT]D9=KY-Q4R^#.:=$%CT%DY=F"
^XMB(3.9,23,2,18217,0)="""DATA"",396.18,225,3,598,0)"
^XMB(3.9,23,2,18218,0)="M&J!O\*%[Q[OA1]=KFM-''HGK!<CK1J17F!CR<Q)23A<*G-BO.0Z'0Y""^O01_"
^XMB(3.9,23,2,18219,0)="""DATA"",396.18,225,3,599,0)"
^XMB(3.9,23,2,18220,0)="MS04,A3_IO6KER9[TBH45]Q(B^5M4R'HVR537!S>""FXV47LU2Z5FE6X0=\G>U"
^XMB(3.9,23,2,18221,0)="""DATA"",396.18,225,3,600,0)"
^XMB(3.9,23,2,18222,0)="M\*>""""80.<T/<G1II<6&%<@/Z7KG2Y70-!7[(G%0EOM6,&)81E4-4L&KK$E8I"
^XMB(3.9,23,2,18223,0)="""DATA"",396.18,225,3,601,0)"
^XMB(3.9,23,2,18224,0)="M%>+5TQ0$ZCT5@67BX]V)ER\Q$+OR^E`PC&5TNIBNZ$!?6:I,:TH]Y9BVS9N4"
^XMB(3.9,23,2,18225,0)="""DATA"",396.18,225,3,602,0)"
^XMB(3.9,23,2,18226,0)="M,9KI=F1DZ16+G#[7DXHO0ZZ*[_=E/(NN<P]6<KYHG]#6Z,602>32JW5E(-5D"
^XMB(3.9,23,2,18227,0)="""DATA"",396.18,225,3,603,0)"
^XMB(3.9,23,2,18228,0)="M:6[,LP%E]3:J\^JONHQ.A/44J0I(^&L?-3XHU5T1_(;*L:]Z4[=J2)L%""A%-"
^XMB(3.9,23,2,18229,0)="""DATA"",396.18,225,3,604,0)"
^XMB(3.9,23,2,18230,0)="MJ#RCK>Y\1KL^WDD,3L:?6DJ):]#A4^P:O09#J]<@Y*C%8GD7*P%'$,'H*""OG"
^XMB(3.9,23,2,18231,0)="""DATA"",396.18,225,3,605,0)"
^XMB(3.9,23,2,18232,0)="MUVX@F:M<BEN-`72EL3EH8(#!>4UXQ/BC+QVC9X,_=#XC#(-O(_D4-ZAF$]@H"
^XMB(3.9,23,2,18233,0)="""DATA"",396.18,225,3,606,0)"
^XMB(3.9,23,2,18234,0)="M-_X[SS&.3VM_T)F**+0>%PK?K*LT/A3C5[=^()TQU?WP%'5]716%++#M:4J2"
^XMB(3.9,23,2,18235,0)="""DATA"",396.18,225,3,607,0)"
^XMB(3.9,23,2,18236,0)="MCI^-B#-S<9KM^+0GS'+#MR3WEN3>PN!;DGM+<O_ODMS/3%YE`KH3MBAV>S<R"
^XMB(3.9,23,2,18237,0)="""DATA"",396.18,225,3,608,0)"
^XMB(3.9,23,2,18238,0)="MINV?NEBEMVL$L%5`""?=%!RP1J;4:C?P>""BD,F;UQ7;)<;E,S""?%$HMUT][^M"
^XMB(3.9,23,2,18239,0)="""DATA"",396.18,225,3,609,0)"
^XMB(3.9,23,2,18240,0)="MOOLOW<L6Q[]8M`O4[4CX<>.>T/Y&LWWQ/\+^;^XU0U6G4=@W;2OOF\HC]`^O"
^XMB(3.9,23,2,18241,0)="""DATA"",396.18,225,3,610,0)"
^XMB(3.9,23,2,18242,0)="M&<AS\1]K1D3[<W/#""S?LBL5,\Q#4R(O>?.BMR/7[%[F.CICTTK\YH[?!\C98"
^XMB(3.9,23,2,18243,0)="""DATA"",396.18,225,3,611,0)"
^XMB(3.9,23,2,18244,0)="M_D\,%NG[AP5.0TTRZQPL>3.C`O`FDSUJ:E,+5Q7#^9RO""<+*2[/^M,_O[LAN"
^XMB(3.9,23,2,18245,0)="""DATA"",396.18,225,3,612,0)"
^XMB(3.9,23,2,18246,0)="MROXS%[7>[JAH[N9TS9T$3*S.FP;JO#E%G?AEI9X;A]ZJ#KC2PJ-[3HT>ATVL"
^XMB(3.9,23,2,18247,0)="""DATA"",396.18,225,3,613,0)"
^XMB(3.9,23,2,18248,0)="MU&X#I78Y@U]5NS\5Y$]SL9\=&HI@^^##^@JZH3[%,-27^(..TG&U-G?'A<-."
^XMB(3.9,23,2,18249,0)="""DATA"",396.18,225,3,614,0)"
^XMB(3.9,23,2,18250,0)="M*9[+9%9T,5161?U""UQ""^K>+?)(4/N*X6R517YVJ=<^F5WK\Z^U%9]O5\"":BR"
^XMB(3.9,23,2,18251,0)="""DATA"",396.18,225,3,615,0)"
^XMB(3.9,23,2,18252,0)="M2&957FR&PJ<]_UJ^H@__7%\#_/&^\H;)57(YU#H]!Z_""/ALFO`LX\\/TQ65V"
^XMB(3.9,23,2,18253,0)="""DATA"",396.18,225,3,616,0)"
^XMB(3.9,23,2,18254,0)="M\_2ZND?\<CE\A7\`/'^U/:PA<$$>WNV]YR?OZ2I>757^TEH^0W`Y=7W,;8DM"
^XMB(3.9,23,2,18255,0)="""DATA"",396.18,225,3,617,0)"
^XMB(3.9,23,2,18256,0)="MX\8PN@2'.'UI^B8X^&N`_I==NG)I[Y/705SB%Q$BW0,W3CY_#-!?N_PNEF@5"
^XMB(3.9,23,2,18257,0)="""DATA"",396.18,225,3,618,0)"
^XMB(3.9,23,2,18258,0)="M0NB#E8OOR0.'*'T+CKM>LZA`G`F]:N7=@^4%(-B$7%T/:]6(&22<0'H&^D/Q"
^XMB(3.9,23,2,18259,0)="""DATA"",396.18,225,3,619,0)"
^XMB(3.9,23,2,18260,0)="M@[T)+.#38>N&8!P@797/DE!X[T;QXN`/M=QOS1<OMO^)A&ID&,&8K%3?&%(["
^XMB(3.9,23,2,18261,0)="""DATA"",396.18,225,3,620,0)"
^XMB(3.9,23,2,18262,0)="MNS'S.#,7KD.\H+1PFZDY0=*4.1+<=C!$'HA<(_<?81<TQ@1(M(`4""'[J1:?Z"
^XMB(3.9,23,2,18263,0)="""DATA"",396.18,225,3,621,0)"
^XMB(3.9,23,2,18264,0)="M'`HY4-SLW[#[P!=\7E\575L)W<Q>L@B)FR++<<RZ+O9>Y.WE]UEC]_%*<'EX"
^XMB(3.9,23,2,18265,0)="""DATA"",396.18,225,3,622,0)"
^XMB(3.9,23,2,18266,0)="M<O],.EC1>$C'T@\:=K5#+7TE%<)[Y\;>TR&]M[(<?^>U43H&0:/H2@P,V;AH"
^XMB(3.9,23,2,18267,0)="""DATA"",396.18,225,3,623,0)"
^XMB(3.9,23,2,18268,0)="M""I2""""A#'[Q#X\!O2LQOA[+$)PE1S]KY`C[$7*>)_`5!+`P04``(`""`#.4R$U"
^XMB(3.9,23,2,18269,0)="""DATA"",396.18,225,3,624,0)"
^XMB(3.9,23,2,18270,0)="M:PI9J^8(```E*```$P```$9A=&EG=65?,3$S+G!N;""YR97""U6FV/X[81_K[`"
^XMB(3.9,23,2,18271,0)="""DATA"",396.18,225,3,625,0)"
^XMB(3.9,23,2,18272,0)="M_@<""BZ)-L(NS);\&VSO0$F6QD4B%I.QUBT.1($%Q0+<;-`F0G]\92K(L2]12"
^XMB(3.9,23,2,18273,0)="""DATA"",396.18,225,3,626,0)"
^XMB(3.9,23,2,18274,0)="M#NH/BQ5%S@R',\^\4)',""R8T-5P*0D5,\`G_9R\TY\*.W]]%J9*""1R2!YWW)"
^XMB(3.9,23,2,18275,0)="""DATA"",396.18,225,3,627,0)"
^XMB(3.9,23,2,18276,0)="MB#Z)6,F<W=_]U>-W?_?\+$M3E$8FR<>/Y,,'4LBB+$@B54[^`43_67S_GY_^"
^XMB(3.9,23,2,18277,0)="""DATA"",396.18,225,3,628,0)"
^XMB(3.9,23,2,18278,0)="M'7R^GOG\S$7,1/WT\(!3\Y]>WY8S_,T?'NJQJ#CFZOL?O[SM__OVV\_5VW#T"
^XMB(3.9,23,2,18279,0)="""DATA"",396.18,225,3,629,0)"
^XMB(3.9,23,2,18280,0)="M;0!O[^\4.W!V)#(A.8MY1#.B6""15K$<VYI(Q.$O(?OSRZ[)A<C6$4GW]QWX3"
^XMB(3.9,23,2,18281,0)="""DATA"",396.18,225,3,630,0)"
^XMB(3.9,23,2,18282,0)="M!7A^[@Y]_#B!0-@G$$XB\']7@0"">[\OC,H'H*>$9(T>JOR'U1@>G^NS99817"
^XMB(3.9,23,2,18283,0)="""DATA"",396.18,225,3,631,0)"
^XMB(3.9,23,2,18284,0)="MID6.3+%1;J'7EKI^$,D\A]>X#5Q:35[8A5>3!XB#0S)P_<H3J6#9O.^*-5.6"
^XMB(3.9,23,2,18285,0)="""DATA"",396.18,225,3,632,0)"
^XMB(3.9,23,2,18286,0)="MR_GRX<%#O'IF(X!][/(6UQY^?]?H*N7:2'7JN>&P5%:)-.9RKV19S'W$ZRUI"
^XMB(3.9,23,2,18287,0)="""DATA"",396.18,225,3,633,0)"
^XMB(3.9,23,2,18288,0)="M6""(8I%(7W-"",_[W""1:F(+M6>J=.GSKFUZX>5VD,YJ]NY$^867>VM02I=YCFM"
^XMB(3.9,23,2,18289,0)="""DATA"",396.18,225,3,634,0)"
^XMB(3.9,23,2,18290,0)="MI*)9=BV9MI!=R<99]_!7[>%;8E[G/O_LH^'5=`W#$L(U,2D8/XG9CF>P#</%"
^XMB(3.9,23,2,18291,0)="""DATA"",396.18,225,3,635,0)"
^XMB(3.9,23,2,18292,0)="MOHDI#LVN1GQAX3K-9<6,&W`+H0T5!H]0,*JR$]'2=8C+6WCA(<6266Y'^F(/"
^XMB(3.9,23,2,18293,0)="""DATA"",396.18,225,3,636,0)"
^XMB(3.9,23,2,18294,0)="MY`BZ=#%9CS!9N9B@]B@HKE(?%Q$M:-0HD!5<RYAI%\<Q%6Y:CC+?R9U\J39$"
^XMB(3.9,23,2,18295,0)="""DATA"",396.18,225,3,637,0)"
^XMB(3.9,23,2,18296,0)="M3QI-SL$)QE$44E!MR#P@N10F;2'M3&F`\=#VPLUT>\(UE=Z;G""1#88(%N$BI"
^XMB(3.9,23,2,18297,0)="""DATA"",396.18,225,3,638,0)"
^XMB(3.9,23,2,18298,0)="M-)YW)@6X!:&)@;_LA:F(:]>QA!NWK,UV_*2\F$V.*36UU4->I2*82?<,%:N8"
^XMB(3.9,23,2,18299,0)="""DATA"",396.18,225,3,639,0)"
^XMB(3.9,23,2,18300,0)="M-HI'%;K`(Q#E`AR#<K!0""N,';L""A/PUA><NB'Y6NA-A.$GE[)7)<*MI(:``>"
^XMB(3.9,23,2,18301,0)="""DATA"",396.18,225,3,640,0)"
^XMB(3.9,23,2,18302,0)="M08F&H2]UY/_4._>M4Y>(1,',-WS@3,`*'2E>-'+H@D4\@504\],B8]9,6X6!"
^XMB(3.9,23,2,18303,0)="""DATA"",396.18,225,3,641,0)"
^XMB(3.9,23,2,18304,0)="MG""`_NDHC(8M=(=%R<(HJ508!`;?C(^[E;,B.\\+(_""_Z*P?K=K8?&-2*7;89"
^XMB(3.9,23,2,18305,0)="""DATA"",396.18,225,3,642,0)"
^XMB(3.9,23,2,18306,0)="M;3VR[HU8J+@:FO6'YOVAH#\4]H<6_:&^6&A(B6+?E4Q$&+KN[YXN?OY8A)03"
^XMB(3.9,23,2,18307,0)="""DATA"",396.18,225,3,643,0)"
^XMB(3.9,23,2,18308,0)="M=F""JARW+29AF`ZFT^*DD-3UJZVD(B?K<,\$4QF$6D[S4$221-$J9[J/@;!KQ"
^XMB(3.9,23,2,18309,0)="""DATA"",396.18,225,3,644,0)"
^XMB(3.9,23,2,18310,0)="M^17Q(Z/?""J8'"",^G$<;SS?D>7!JSG+])#IY<4""X&*`?3**.9Z(RQ@L1@UJ7:"
^XMB(3.9,23,2,18311,0)="""DATA"",396.18,225,3,645,0)"
^XMB(3.9,23,2,18312,0)="M41&Q/M5P&E6T-""A`;:9P(D9B+$<$A0T,$%],(VXM2T+:9)(R&U;OTIWS#Q!<"
^XMB(3.9,23,2,18313,0)="""DATA"",396.18,225,3,646,0)"
^XMB(3.9,23,2,18314,0)="MV1Q<)""46SWUBTV(P^D_*:#QL4=L16M;:!N/ENDTA6MH6/(DY%>R1:'0T4/4C"
^XMB(3.9,23,2,18315,0)="""DATA"",396.18,225,3,647,0)"
^XMB(3.9,23,2,18316,0)="MQLZ""&HB:HH)30/Z8)PFD'F`R""=3]%P2:3$`!FJH=AV34=,[G2@@OO+/YZJ:/"
^XMB(3.9,23,2,18317,0)="""DATA"",396.18,225,3,648,0)"
^XMB(3.9,23,2,18318,0)="M_1+3'TCC2B4+?8I2F<D]1((:;KO9[Z:;_6[<AWG%-W3Q=:#Z%:/0%9/MVZUW"
^XMB(3.9,23,2,18319,0)="""DATA"",396.18,225,3,649,0)"
^XMB(3.9,23,2,18320,0)="MY;1UBL'W`@,@)K5-R6*+@""$M=*-='9C'*C!X7:0G;6LPC+!7!9AOC;/Y[-$B"
^XMB(3.9,23,2,18321,0)="""DATA"",396.18,225,3,650,0)"
^XMB(3.9,23,2,18322,0)="MB+FYB##V,>@^SKN/L\[CIO.T[G9[SB:WMGV>`]9,5G6Z$XO>S_8;VH;ED,%1"
^XMB(3.9,23,2,18323,0)="""DATA"",396.18,225,3,651,0)"
^XMB(3.9,23,2,18324,0)="M0+?6N.T[F)GXD4&!BS+370)H/S_\_.I'PJH`,IN""US#>`<-JAE<1<U;^+I,R"
^XMB(3.9,23,2,18325,0)="""DATA"",396.18,225,3,652,0)"
^XMB(3.9,23,2,18326,0)="M1O?5^GIK%K`_7`[@^M?7]%^>]`,+8WR?FBY=M`&H+``^/`FA'1P'""&$$+&0I"
^XMB(3.9,23,2,18327,0)="""DATA"",396.18,225,3,653,0)"
^XMB(3.9,23,2,18328,0)="M8CVU;%N?*9(HI5`G.!!K/2E!""UNJF1R(*:C0/V&KI@`DCC&F[:AF&63^_CP6"
^XMB(3.9,23,2,18329,0)="""DATA"",396.18,225,3,654,0)"
^XMB(3.9,23,2,18330,0)="M+8\]1.\>CX4WCU[UO_$J_N<W5&L6S<_E/SMPF!S90JA(J3J)/23OSOK57>9T"
^XMB(3.9,23,2,18331,0)="""DATA"",396.18,225,3,655,0)"
^XMB(3.9,23,2,18332,0)="MYVUOD&M[*5?$U,$B7P98FE)8*""$.ILZFS_:&?H&M::""*B@'*S_PN6#EX8:'B"
^XMB(3.9,23,2,18333,0)="""DATA"",396.18,225,3,656,0)"
^XMB(3.9,23,2,18334,0)="M54J'-Y32X:42Z`O/,NPX^2DA'&D'NW00SEL=G-F]SVD^%EK#N6]HM=S[L93N"
^XMB(3.9,23,2,18335,0)="""DATA"",396.18,225,3,657,0)"
^XMB(3.9,23,2,18336,0)="M!,0P.(QS_$M@-1?[L8@:SGTBJH%2M+E1&-E!X+V#P.I/&PP%968T>CE[B;(R"
^XMB(3.9,23,2,18337,0)="""DATA"",396.18,225,3,658,0)"
^XMB(3.9,23,2,18338,0)="M9O7.(!4%@,0.X9CT@9]1+6_HJ""XKS*X3SD;.NHMI%8(A`""6.B:QR2,PW8&8A"
^XMB(3.9,23,2,18339,0)="""DATA"",396.18,225,3,659,0)"
^XMB(3.9,23,2,18340,0)="ME7&8P-)+W3&G>R$UO[S$&;]8<EY(!<'JLU\G/I@%0>BZD,*7VX7-1""""-R.0)"
^XMB(3.9,23,2,18341,0)="""DATA"",396.18,225,3,660,0)"
^XMB(3.9,23,2,18342,0)="M6_5MC_NI]_-H$%_R+'4)]BJCJ""QLP\;5!SZO\0>N_AX`*0X,B@,J2%0JK`FR"
^XMB(3.9,23,2,18343,0)="""DATA"",396.18,225,3,661,0)"
^XMB(3.9,23,2,18344,0)="M$ZFVQ>)/P_<:U6*_Y+\1$H&R9N#:VJ:_-;_T)WI[_>%M]_8[+K'9!99`:)WM"
^XMB(3.9,23,2,18345,0)="""DATA"",396.18,225,3,662,0)"
^XMB(3.9,23,2,18346,0)="M\;2!M3/7+Q^X7(+.>ME):_;T'JM@.BL;6WC.,/NH*[6C5-\B>VS?9E6[]LFV"
^XMB(3.9,23,2,18347,0)="""DATA"",396.18,225,3,663,0)"
^XMB(3.9,23,2,18348,0)="M:[$AR64\S-NO9]$H/<`H&M%2,RB.;+-P0`8H%!W\V_.T?+L'&O@%V?/T]1G<"
^XMB(3.9,23,2,18349,0)="""DATA"",396.18,225,3,664,0)"
^XMB(3.9,23,2,18350,0)="M6YMI[Y,`\3'OB+F&K$]A*U;50U8V1*!W?""=8W^H[LZ[O*&:X&G>8F9<%X+UJ"
^XMB(3.9,23,2,18351,0)="""DATA"",396.18,225,3,665,0)"
^XMB(3.9,23,2,18352,0)="M,)M56X^A'JCZLTB]8USM/""^R4F5??OGUTHCM""?>(#WGCU=IIQK1LKTP_G&-Q"
^XMB(3.9,23,2,18353,0)="""DATA"",396.18,225,3,666,0)"
^XMB(3.9,23,2,18354,0)="MH>0N8U?5[9""Y+*<QP[:-[25PBMUB?SZK:7S""LUF^I\4A9N&M-A=V;:X4#4Z3"
^XMB(3.9,23,2,18355,0)="""DATA"",396.18,225,3,667,0)"
^XMB(3.9,23,2,18356,0)="M76F(D,;'#,.)0#2K`&$(\QH!'*@W&W?W?I`(%K8>IAJO0O?\P`2&\&LV8P$C"
^XMB(3.9,23,2,18357,0)="""DATA"",396.18,225,3,668,0)"
^XMB(3.9,23,2,18358,0)="M6+QW+^I,!%I1O.Y#ZXF7-[J-M3V2<\YB>SE)*:(:N%B2L,CH;UR7^BO/NF!Q"
^XMB(3.9,23,2,18359,0)="""DATA"",396.18,225,3,669,0)"
^XMB(3.9,23,2,18360,0)="M0UV`RDUI=1<4*6X0L.UQ""OQF1FAFKX*&+G//?4/;5(343LARGV*:""K961A9W"
^XMB(3.9,23,2,18361,0)="""DATA"",396.18,225,3,670,0)"
^XMB(3.9,23,2,18362,0)="M.52H'`H`F(""78IVKKQ/9L4P>R7+6W)M5=U!XY6@X//Y98\_B""6H';-ZVRS+@"
^XMB(3.9,23,2,18363,0)="""DATA"",396.18,225,3,671,0)"
^XMB(3.9,23,2,18364,0)="MEUD;H'6`P86KZH92`U6PD)RY\LMPX7MCN;Q!G<M!=5I-U=``5;I%NS9[KU[G"
^XMB(3.9,23,2,18365,0)="""DATA"",396.18,225,3,672,0)"
^XMB(3.9,23,2,18366,0)="M](2V8C6G><ZA8#KW^X#D@54;JTL`<.X3K)/*ZIP=:%9:1WRTG0"";;M?A\)%T"
^XMB(3.9,23,2,18367,0)="""DATA"",396.18,225,3,673,0)"
^XMB(3.9,23,2,18368,0)="MFGWUYUZ/U@9I`1P+Q3&@9'0GZX93E;J_I\>EKQYO^)(`UU2;!LUD#./VJK&."
^XMB(3.9,23,2,18369,0)="""DATA"",396.18,225,3,674,0)"
^XMB(3.9,23,2,18370,0)="M^8RX/E5K7,S`NUK[]-U]K$9O,KV_@UEZ?*""#TT9]^0S*_JY\N02_<0*G:#ZP"
^XMB(3.9,23,2,18371,0)="""DATA"",396.18,225,3,675,0)"
^XMB(3.9,23,2,18372,0)="MD078FL0TY+L2CM09`18HT_\`4$L!`A8+%``""``@`SE,A-1G"":I1K*0``^=8`"
^XMB(3.9,23,2,18373,0)="""DATA"",396.18,225,3,676,0)"
^XMB(3.9,23,2,18374,0)="M``\``````````0`@`(""!`````$9A=&EG=65?,3$S+G!N;%!+`0(6""Q0``@`("
^XMB(3.9,23,2,18375,0)="""DATA"",396.18,225,3,677,0)"
^XMB(3.9,23,2,18376,0)="M`,]3(34(`]`I6""X``$YZ`0`3``````````$`(`""`@9@I``!&871I9W5E7S$Q"
^XMB(3.9,23,2,18377,0)="""DATA"",396.18,225,3,678,0)"
^XMB(3.9,23,2,18378,0)="M,RYP;FPN9G)M4$L!`A8+%``""``@`SE,A-?.>(L;V%```_Y<``!,`````````"
^XMB(3.9,23,2,18379,0)="""DATA"",396.18,225,3,679,0)"
^XMB(3.9,23,2,18380,0)="M`0`@`(""!(5@``$9A=&EG=65?,3$S+G!N;""YC9&502P$""%@L4``(`""`#.4R$U"
^XMB(3.9,23,2,18381,0)="""DATA"",396.18,225,3,680,0)"
^XMB(3.9,23,2,18382,0)="M:PI9J^8(```E*```$P`````````!`""``@(%(;0``1F%T:6=U95\Q,3,N<&YL"
^XMB(3.9,23,2,18383,0)="""DATA"",396.18,225,3,681,0)"
^XMB(3.9,23,2,18384,0)=":+G)E<%!+!08`````!``$```!``!?=@``````"
^XMB(3.9,23,2,18385,0)="""DATA"",396.18,225,3,682,0)"
^XMB(3.9,23,2,18386,0)="end"
^XMB(3.9,23,2,18387,0)="""DATA"",396.18,225,4)"
^XMB(3.9,23,2,18388,0)="9^3031384442"
^XMB(3.9,23,2,18389,0)="""DATA"",396.18,225,6)"
^XMB(3.9,23,2,18390,0)="1^438"
^XMB(3.9,23,2,18391,0)="""DATA"",396.18,226,0)"
^XMB(3.9,23,2,18392,0)="FIBROMYALGIA~113F"
^XMB(3.9,23,2,18393,0)="""DATA"",396.18,226,1,0)"
^XMB(3.9,23,2,18394,0)="^^2^2^3060901"
^XMB(3.9,23,2,18395,0)="""DATA"",396.18,226,1,1,0)"
^XMB(3.9,23,2,18396,0)="Last updated on 08/09/2006 ~113"
^XMB(3.9,23,2,18397,0)="""DATA"",396.18,226,1,2,0)"
^XMB(3.9,23,2,18398,0)="Patch DVBA*2.7*113"
^XMB(3.9,23,2,18399,0)="""DATA"",396.18,226,2)"
^XMB(3.9,23,2,18400,0)="3060531^^3060809.1858"
^XMB(3.9,23,2,18401,0)="""DATA"",396.18,226,3,0)"
^XMB(3.9,23,2,18402,0)="^396.184^667^667^3060901^^^^"
^XMB(3.9,23,2,18403,0)="""DATA"",396.18,226,3,1,0)"
^XMB(3.9,23,2,18404,0)="begin 664 Fibromyalgia_113.pnl.zip"
^XMB(3.9,23,2,18405,0)="""DATA"",396.18,226,3,2,0)"
^XMB(3.9,23,2,18406,0)="M4$L#!!0``@`(`!%4(37`,VQ@K""@``+32```4````1FEB<F]M>6%L9VEA7S$Q"
^XMB(3.9,23,2,18407,0)="""DATA"",396.18,226,3,3,0)"
^XMB(3.9,23,2,18408,0)="M,RYP;FSD77UL),E5GP^[QQY[O[\W=[=]N_?A#=[=F9XO>XFRY\];W]F[CCU["
^XMB(3.9,23,2,18409,0)="""DATA"",396.18,226,3,4,0)"
^XMB(3.9,23,2,18410,0)="MJ[O+Z>B9+MO-]G0/W3VV)PI2+I``$G^$`%$@RH60*$$1BH`_(A%%$(6/2!`"""
^XMB(3.9,23,2,18411,0)="""DATA"",396.18,226,3,5,0)"
^XMB(3.9,23,2,18412,0)="M_!$A`0+R3T0@*$0)$DB(\*JZJKIZNF8\LTON=@YI/WIZNM^K]ZOW7KUZ]:JF"
^XMB(3.9,23,2,18413,0)="""DATA"",396.18,226,3,6,0)"
^XMB(3.9,23,2,18414,0)="MNKZ<4ZKKNHVL8_M-_-^\[J$%Q_9=QQI915M^*I&N.LW4T=&[IN'OI'^04FXB"
^XMB(3.9,23,2,18415,0)="""DATA"",396.18,226,3,7,0)"
^XMB(3.9,23,2,18416,0)="M<WO'3_]>,CN/=I%UN^4C-Z/4=F\Y-CH%KWJ^JYNV[UU=T_?YLR<[OF#4HB^8"
^XMB(3.9,23,2,18417,0)="""DATA"",396.18,226,3,8,0)"
^XMB(3.9,23,2,18418,0)="M=I<73)N],+[N-%O--62W,B?7X-MEQVU<W><W\V-5O7;;-9"";2B0252+>JEY#"
^XMB(3.9,23,2,18419,0)="""DATA"",396.18,226,3,9,0)"
^XMB(3.9,23,2,18420,0)="MUA'R;[7=1+>W\#M$N/3,#XET8X%TJ:>I<*E#F06]Z9N.K8RN+6T\NQ0A-4'^"
^XMB(3.9,23,2,18421,0)="""DATA"",396.18,226,3,10,0)"
^XMB(3.9,23,2,18422,0)="MQ416%B-DSE(R1^-DTLLK\XP(@3L+-UXE5X4`YQ%""8I3B_&\<Y\\E1VX"""",KH"
^XMB(3.9,23,2,18423,0)="""DATA"",396.18,226,3,11,0)"
^XMB(3.9,23,2,18424,0)="M^NWU.^L!YBNV#9B/U78W=--#QL2\@R7>]-L6@KO>IFEO6VATP;$<>*IN;9K6"
^XMB(3.9,23,2,18425,0)="""DATA"",396.18,226,3,12,0)"
^XMB(3.9,23,2,18426,0)="M+G(GEZ%;KR[LZ*Z'_,R1Q:7EN3NKU5<7;LYM;""Y5L\&WY)5,W9JW]/J]""7*/"
^XMB(3.9,23,2,18427,0)="""DATA"",396.18,226,3,13,0)"
^XMB(3.9,23,2,18428,0)="MRO(?X^33+;V!E$-KF^JF;GOJ)G+-K>!5PGTBD5W7763[^-:8V!<,.RPVN=**"
^XMB(3.9,23,2,18429,0)="""DATA"",396.18,226,3,14,0)"
^XMB(3.9,23,2,18430,0)="M`7:'DT1PA0K^N00#[R@'[\RR67.=1ENWMDW]NKIHZMNVXYG>`TKTO;XD4K:\"
^XMB(3.9,23,2,18431,0)="""DATA"",396.18,226,3,15,0)"
^XMB(3.9,23,2,18432,0)="M><<R(H)Q<2:Y.'DMZ,?T5XD\Z=>25!GN,7G.<WFFWZZNN\@#9JU:P_15WU%U"
^XMB(3.9,23,2,18433,0)="""DATA"",396.18,226,3,16,0)"
^XMB(3.9,23,2,18434,0)="MPU""!NFLB#W_T=Q!\V6CH;GOL+G3N75=OCB<2F>I\R_<=F[`-+O/E@.V%@.T'"
^XMB(3.9,23,2,18435,0)="""DATA"",396.18,226,3,17,0)"
^XMB(3.9,23,2,18436,0)="M&=L\8WLV5.4%""^ENV""G)S&U[P3+K]S(G]@-BSR+0*[-.;LJY50)N3L#M?8S;"
^XMB(3.9,23,2,18437,0)="""DATA"",396.18,226,3,18,0)"
^XMB(3.9,23,2,18438,0)="M\XS;XYR;$@@7LDOUR6XB9%<*N!T]F!O(YG@H9)8^@%FVNED'%V?-._N',3_^"
^XMB(3.9,23,2,18439,0)="""DATA"",396.18,226,3,19,0)"
^XMB(3.9,23,2,18440,0)="M*1]8HT*4\CQ5RK_GUOCNY.F;COL>^KCN7JVZH%9@;^,G7D""N'][?T.UME/ZK"
^XMB(3.9,23,2,18441,0)="""DATA"",396.18,226,3,20,0)"
^XMB(3.9,23,2,18442,0)="MU.GH;?YX=J[E.\']`^PD`""$U25JT2ULTE8S[F&?67:=FH<:4=UG=`GLA6N2B"
^XMB(3.9,23,2,18443,0)="""DATA"",396.18,226,3,21,0)"
^XMB(3.9,23,2,18444,0)="MGVHASU>WP%VINN<Y=5/WD:'NF?X./&!ZJL',Z?H;[R%D\E:$'DCK*=KG1ES>"
^XMB(3.9,23,2,18445,0)="""DATA"",396.18,226,3,22,0)"
^XMB(3.9,23,2,18446,0)="MDW.&8>(KW5+K3J,!1+WK$HIYBF""*(#A""$?Q6(D[QVB:R4-U7==M0O<`VD5[?"
^XMB(3.9,23,2,18447,0)="""DATA"",396.18,226,3,23,0)"
^XMB(3.9,23,2,18448,0)="M49L!L#%41=ND;+.A(&*_G>XTRY!I=O'AZH!""T/#TOR8B>+TNP>OB%!X%5:V4"
^XMB(3.9,23,2,18449,0)="""DATA"",396.18,226,3,24,0)"
^XMB(3.9,23,2,18450,0)="MJUQ6'5<U#:!K;IF@7[6VBO;UQE4)1""&K,G4G'PW&@-L4)#W.Z00P4I?F%FX*"
^XMB(3.9,23,2,18451,0)="""DATA"",396.18,226,3,25,0)"
^XMB(3.9,23,2,18452,0)="MZBKSPKG`?F'4)!1?I8W_;B+NA5_&P8!JVKCA]1T'W`?I6M,7._HBM2EUU?3\"
^XMB(3.9,23,2,18453,0)="""DATA"",396.18,226,3,26,0)"
^XMB(3.9,23,2,18454,0)="MBW!+!^UPT0&6))-:;*06$?LGJ-CC<;%3^:M2`@610/K7$CTH%.04BB).G$+Z"
^XMB(3.9,23,2,18455,0)="""DATA"",396.18,226,3,27,0)"
^XMB(3.9,23,2,18456,0)="MCR1`K:[8AED'60DB:&L+3,13G:W`-KC0J@-0UNNMIDYM$EN1H9M66]7KOKD+"
^XMB(3.9,23,2,18457,0)="""DATA"",396.18,226,3,28,0)"
^XMB(3.9,23,2,18458,0)="MIHH.1*84$>P+O00KR@4K1P3C%""[%*62""$4I.)JJ9CU!XQKG;?9J3^11631>$"
^XMB(3.9,23,2,18459,0)="""DATA"",396.18,226,3,29,0)"
^XMB(3.9,23,2,18460,0)="MMK?59LMM@B)YT^`AFHY+[HDH@;K4'3OP6@0?$Y!DB'JHJ0,=!(`!FC:J0X@`"
^XMB(3.9,23,2,18461,0)="""DATA"",396.18,226,3,30,0)"
^XMB(3.9,23,2,18462,0)="M`0"".!\`![8)QP2NJWH0/31?K'E#U])IIF3X8VZYNM0CRV-4'3#FK@U""?B:#^"
^XMB(3.9,23,2,18463,0)="""DATA"",396.18,226,3,31,0)"
^XMB(3.9,23,2,18464,0)="M_EZH:W*X9B.H,PKIC\F<QNUFH""#3+/#![86&,C<K=>(5VJ]?""KS2*FWBG3C]"
^XMB(3.9,23,2,18465,0)="""DATA"",396.18,226,3,32,0)"
^XMB(3.9,23,2,18466,0)="MXXL8&E#/WIY""$_US^C=8BU^4#*S/S36<ENUCFK[90""J$&G[@(O8<]YYJM!""6"
^XMB(3.9,23,2,18467,0)="""DATA"",396.18,226,3,33,0)"
^XMB(3.9,23,2,18468,0)="M9$L(4K%;:>KP5%Y3&^!G80@!-^P8I""4=\7]1B/_37V/MV&/M2'\HV1G)A_'"""
^XMB(3.9,23,2,18469,0)="""DATA"",396.18,226,3,34,0)"
^XMB(3.9,23,2,18470,0)="MJ&3\#+HB-49P&J?D_EO2$:5%Y-5=LQ:Q:6SBH8K""GY;7`EL.#?OA&*/*@I`P"
^XMB(3.9,23,2,18471,0)="""DATA"",396.18,226,3,35,0)"
^XMB(3.9,23,2,18472,0)="M9Z!2GI5TWCNYE`[(YJJ>N6W#$%77H4.YW)V>B_NKZYDE6P>E-,8D(_R,B/1C"
^XMB(3.9,23,2,18473,0)="""DATA"",396.18,226,3,36,0)"
^XMB(3.9,23,2,18474,0)="MM`WOER#]MB7""2`;GFSGFAY)0\_W-1$24+TH&@_F[>`B,*`P9^;@C,AM-/1#U"
^XMB(3.9,23,2,18475,0)="""DATA"",396.18,226,3,37,0)"
^XMB(3.9,23,2,18476,0)="M0$A[Q@;,/@-T7Z'VOAL']^P&\EH6<;7$'+D7$;INK(K';PCO`P<07.=%!E>H"
^XMB(3.9,23,2,18477,0)="""DATA"",396.18,226,3,38,0)"
^XMB(3.9,23,2,18478,0)="MS#_/9;Y*Y]TP7.=G#B_M^\@VD!%$B&-O4*^M0##""!#Z$/WCPE0NB>DGE]""U'"
^XMB(3.9,23,2,18479,0)="""DATA"",396.18,226,3,39,0)"
^XMB(3.9,23,2,18480,0)="MW124.=`Q3SDANSEYRX$/C:;EM)'1=9(NQZDDXG0OAM-UAA.,`A6.^4,(V+DY"
^XMB(3.9,23,2,18481,0)="""DATA"",396.18,226,3,40,0)"
^XMB(3.9,23,2,18482,0)="M#QL_C,&&"";!@!,!W8Y543JS8=1?I>'SV==<P;1AZE5/A3;WFP=,(F5Y#&;V-"
^XMB(3.9,23,2,18483,0)="""DATA"",396.18,226,3,41,0)"
^XMB(3.9,23,2,18484,0)="M_4AB8@TK72#=N!S09!=`:>SUR<#:9BFB?\X1M4)$*S,/,Z(3:ZCA0(0""`Z*G"
^XMB(3.9,23,2,18485,0)="""DATA"",396.18,226,3,42,0)"
^XMB(3.9,23,2,18486,0)="MG%E$#""X80.HXFT&,7SF]8HM!2PWMZ+NFXRIGUQT8^4D<;<&`Z2,7.PG']I3'"
^XMB(3.9,23,2,18487,0)="""DATA"",396.18,226,3,43,0)"
^XMB(3.9,23,2,18488,0)="M%Z&#S#H`W(9HQK*</6S=)DX(MN@CQT-N#2=P/<IYX9YN8S]K(,#,Q=^Q0-X+"
^XMB(3.9,23,2,18489,0)="""DATA"",396.18,226,3,44,0)"
^XMB(3.9,23,2,18490,0)="MXG7+W""(>`\=@==UUV_!!.2&P=7$$A6\>VVPB1""(X]IUR_"";2,0+BO6,OF!X>"
^XMB(3.9,23,2,18491,0)="""DATA"",396.18,226,3,45,0)"
^XMB(3.9,23,2,18492,0)="M,85;1U8!<^PB/5]OF+:NG+B+]'M8M7#$LP7@;+>0<BEL-(B'[&U_Y[K::D*\"
^XMB(3.9,23,2,18493,0)="""DATA"",396.18,226,3,46,0)"
^XMB(3.9,23,2,18494,0)="M`!,HN-'`K9<^!+!$'CIY!QJ%`T;3A@X`\1#T@G)\&=4)OL*]D77=M)5#BZ:W"
^XMB(3.9,23,2,18495,0)="""DATA"",396.18,226,3,47,0)"
^XMB(3.9,23,2,18496,0)="M!6V`UQ%6M[[U&CS%:!5W/1E`\$4^)X['7V3C\18/8KZ6$'1ZENOT`^KP#P0="
^XMB(3.9,23,2,18497,0)="""DATA"",396.18,226,3,48,0)"
^XMB(3.9,23,2,18498,0)="MGEAP6JX)@-Q"">Q$-/K2*S3E4VD3$_65Y;L;+9#T/9VO`<UI"")BDAB=GH-.6]"
^XMB(3.9,23,2,18499,0)="""DATA"",396.18,226,3,49,0)"
^XMB(3.9,23,2,18500,0)="MR6C0MMQ7T*9(XAF*WR'B$3*4W'E).'.#AS,=D[$N@5OG!.Q-R`+W&N4K5/`)"
^XMB(3.9,23,2,18501,0)="""DATA"",396.18,226,3,50,0)"
^XMB(3.9,23,2,18502,0)="M(OBC=)2_%9]E3<^Y1&07B5&;7,8;#YF0VHS0N^DUFL9,?T,2*>8ZHE74$3AV"
^XMB(3.9,23,2,18503,0)="""DATA"",396.18,226,3,51,0)"
^XMB(3.9,23,2,18504,0)="MBBH&.4>J""^MWUS9TPW2>=9U6\R1N0/261F.>ER-POXNU0P]#GEPQN[GC[`4K"
^XMB(3.9,23,2,18505,0)="""DATA"",396.18,226,3,52,0)"
^XMB(3.9,23,2,18506,0)="M""V.3S[4\W]QJ$_\_EL'_K>N&D*+/+.PXKMB<-Z8+.@>D$;P(I8RLF9:AC*TY"
^XMB(3.9,23,2,18507,0)="""DATA"",396.18,226,3,53,0)"
^XMB(3.9,23,2,18508,0)="MT'08<11E$X$!(F5LW84+V_<27<?K?C""DV9M/)PX&<78@$,?AX683)!EN&%/]"
^XMB(3.9,23,2,18509,0)="""DATA"",396.18,226,3,54,0)"
^XMB(3.9,23,2,18510,0)="MP4AS6-\]&,9\;C`8E_:16S<]--PPION#D:8/QHEO^9E$+VTL#6;2FSB#->0F"
^XMB(3.9,23,2,18511,0)="""DATA"",396.18,226,3,55,0)"
^XMB(3.9,23,2,18512,0)="M/=(7B.6RX!9[@0C!2V4@$""<V2.!&9OI##>1H?]I8$GUC;W7,:P,AF:VZ^BZR"
^XMB(3.9,23,2,18513,0)="""DATA"",396.18,226,3,56,0)"
^XMB(3.9,23,2,18514,0)="MAMX[*GT!20/""]+_W`61N9B`@QY81,H8>QDQ_^C@K>L=O]T2Q/!B*\[J_,_0H"
^XMB(3.9,23,2,18515,0)="""DATA"",396.18,226,3,57,0)"
^XMB(3.9,23,2,18516,0)="M]ADUSHCNL3>*@[G'\45<!S'T,([W!V,EXAQ[XIC/#^@<'=-""_M`#F>T/R+(8"
^XMB(3.9,23,2,18517,0)="""DATA"",396.18,226,3,58,0)"
^XMB(3.9,23,2,18518,0)="M.AZ@D(7!%!(8.(VAQW$BCN.).(Z1]8L%""N(S#,0B`[%2+/0%8J<(Z1>1IZ1N"
^XMB(3.9,23,2,18519,0)="""DATA"",396.18,226,3,59,0)"
^XMB(3.9,23,2,18520,0)="M.8E(BCG('(VSS-&LN`KW;C8USO',Q]N%T*L\3'FCR82\@HHF?]>#:I3W4M1?"
^XMB(3.9,23,2,18521,0)="""DATA"",396.18,226,3,60,0)"
^XMB(3.9,23,2,18522,0)="M9O*>XZIX;`FOB8KU!X+?/J""\J0/DHEB*\@3%^!6.\<6PIXOE(8`VKD4%L6:H"
^XMB(3.9,23,2,18523,0)="""DATA"",396.18,226,3,61,0)"
^XMB(3.9,23,2,18524,0)="M26N&TK_/RK92[V(2SE3RA2&0$**;\>J""TZ@Y\\[^(6*Y]$-DU?H#B5A?GN*2"
^XMB(3.9,23,2,18525,0)="""DATA"",396.18,226,3,62,0)"
^XMB(3.9,23,2,18526,0)="M:C.SD>2],+/LM-0$013K&T$47^0CR^TO43Z_G>CDH^'I^:!S?U:1%=2\/D^)"
^XMB(3.9,23,2,18527,0)="""DATA"",396.18,226,3,63,0)"
^XMB(3.9,23,2,18528,0)="M_RXG_J1`O/M`.""[QWU,K6Y&%^&E<2@%F5&^Y&'V6.T,W,M##K8;MI5)]N*UD"
^XMB(3.9,23,2,18529,0)="""DATA"",396.18,226,3,64,0)"
^XMB(3.9,23,2,18530,0)="M+.'-%J""#?OA\O!_."""")H0Z!Q(XE$I#[Y"",]U@P0:'7%3F4A)V#=X6>1GW@I%"
^XMB(3.9,23,2,18531,0)="""DATA"",396.18,226,3,65,0)"
^XMB(3.9,23,2,18532,0)="MRDF6N3T29FY!]C)='/^O:#W<5R6%RF];#A9UKM.E5KRNHMX$S^VX[0>4[/L/"
^XMB(3.9,23,2,18533,0)="""DATA"",396.18,226,3,66,0)"
^XMB(3.9,23,2,18534,0)="M7JP<%:N2%[HT?92-O-/)^)J_05:&HNOY.X%4*@3O=5*(5`?)MI$Z19;7#`A6"
^XMB(3.9,23,2,18535,0)="""DATA"",396.18,226,3,67,0)"
^XMB(3.9,23,2,18536,0)="M/%(2&'QOX5H87`^HFK1B`/[H*@0Q)MH+""@5[505TM%P36\XJO-(_E*339Q;T"
^XMB(3.9,23,2,18537,0)="""DATA"",396.18,226,3,68,0)"
^XMB(3.9,23,2,18538,0)="MEH=P06R7VAW3#MJ6UZY$ZG3B91_1-LR(!I'^$&O#/\E2^E5IS1!90)3Q[A<)"
^XMB(3.9,23,2,18539,0)="""DATA"",396.18,226,3,69,0)"
^XMB(3.9,23,2,18540,0)="M3>.%A)\-5/,G:2L^(FG%A<56L!R+D:#>4$5<2WL+#*RB'H!R2KTJ*;\B996X"
^XMB(3.9,23,2,18541,0)="""DATA"",396.18,226,3,70,0)"
^XMB(3.9,23,2,18542,0)="M.I`3/Y!V)2+&$B7^DH3X`FUYJ(L'$I\5&TXKNE.;<=I'[W24YH3QV]$P?L.="
^XMB(3.9,23,2,18543,0)="""DATA"",396.18,226,3,71,0)"
^XMB(3.9,23,2,18544,0)="M/TNS7#_>4>K_?-QT.NO2QP\(W,:K9(""$@?XXYLD^8*ZL]KX:E""2>H9WM\37'"
^XMB(3.9,23,2,18545,0)="""DATA"",396.18,226,3,72,0)"
^XMB(3.9,23,2,18546,0)="M5Y*<[:D-F`RZB)36M6Q$ZS[$>;\4JS(-3C\3V?23JO8HLG,)HWYZF9D,R<6D"
^XMB(3.9,23,2,18547,0)="""DATA"",396.18,226,3,73,0)"
^XMB(3.9,23,2,18548,0)="M\IV!KU#K2XQV0.)T+I,E/?)E-B/<BU,_%SBS^N`\9BDZ?Q9,.U/,97Y""8FZJ"
^XMB(3.9,23,2,18549,0)="""DATA"",396.18,226,3,74,0)"
^XMB(3.9,23,2,18550,0)="MS-Q83_3%;$;,7#W!>'U<PNNQ#:1[#@P'VQ#8!.6?`W#2<N(*`IN0@`K$&5W:"
^XMB(3.9,23,2,18551,0)="""DATA"",396.18,226,3,75,0)"
^XMB(3.9,23,2,18552,0)="M;*(Z1%]J`^&""8$N=:NZT/7QUF5=='<B-:O$?)""+L/B!A]PACU_3:]1U3A\BF"
^XMB(3.9,23,2,18553,0)="""DATA"",396.18,226,3,76,0)"
^XMB(3.9,23,2,18554,0)="M+N/3&7"">E60,L-7F!!5)':$:8C*^EWC`-ELL#Q1SGECQU%V$RU=LJDV&$%[R"
^XMB(3.9,23,2,18555,0)="""DATA"",396.18,226,3,77,0)"
^XMB(3.9,23,2,18556,0)="MAO8[/<;1]V$6AFLY/.!%K/(""A>Q/)+'X;#&LP(J$K]GJ[0U:?402`?P3\2R:"
^XMB(3.9,23,2,18557,0)="""DATA"",396.18,226,3,78,0)"
^XMB(3.9,23,2,18558,0)="MJ`'/4/J(1P*S`OWN]4@]*X4N+5GFM@GOX8T!.L0)H*2&8"")X4%3.KW7J%>ON"
^XMB(3.9,23,2,18559,0)="""DATA"",396.18,226,3,79,0)"
^XMB(3.9,23,2,18560,0)="MR\JCX7=Q;;@L+5XY'`1!N""MQ^\?&PJMPOC*)&UHUFSP.O6O:AK,WMNK8VV3."
^XMB(3.9,23,2,18561,0)="""DATA"",396.18,226,3,80,0)"
^XMB(3.9,23,2,18562,0)="MS4+_PRST)_%P070W7T_$(-,$R(:JW&6T?WNB&*2CWO""/$YUI!<""@-)A%/258"
^XMB(3.9,23,2,18563,0)="""DATA"",396.18,226,3,81,0)"
^XMB(3.9,23,2,18564,0)="M5#A\J;66K]J._X!&IHASZ^.1N34VMMF(D^=Q\:=EUE8J<,9=IMJ9S@8=7<7U"
^XMB(3.9,23,2,18565,0)="""DATA"",396.18,226,3,82,0)"
^XMB(3.9,23,2,18566,0)="M7_X.2)97VTAWE<D\KA[7R`=/F=3PIQ+]=*B$/^5S].-AN,+/LL_'UQQ2%0/$"
^XMB(3.9,23,2,18567,0)="""DATA"",396.18,226,3,83,0)"
^XMB(3.9,23,2,18568,0)="MV+V$7%\CJ\2%9$Q?GQ2$*@V3OG:QSY(H[R\R^_PL[\1""*&^Y,F3E:#)YR^*H"
^XMB(3.9,23,2,18569,0)="""DATA"",396.18,226,3,84,0)"
^XMB(3.9,23,2,18570,0)="M&@K\.U*!9X9)X)$N&ET1)V#7F$8O<HU>%#QP?I@$SLCE%:<QZ3]-])*WDALF"
^XMB(3.9,23,2,18571,0)="""DATA"",396.18,226,3,85,0)"
^XMB(3.9,23,2,18572,0)="M>7OY8SS'%>7^>%QNP1V79P]RQZ.=[CB9BWKD/83N*0K]/Z.1_STE4V`71791"
^XMB(3.9,23,2,18573,0)="""DATA"",396.18,226,3,86,0)"
^XMB(3.9,23,2,18574,0)="M8A=E=E%A%S/L8I9>C(';9E=Y?J7QJP*_*O*K$K\J\ZL*OYKA5YR'QGEHG(?&"
^XMB(3.9,23,2,18575,0)="""DATA"",396.18,226,3,87,0)"
^XMB(3.9,23,2,18576,0)="M>6B<A\9Y:)R'QGEHG(?&>6B<1X'S*'`>!<ZCP'D4.(\""YU'@/`J<1X'S*'`>"
^XMB(3.9,23,2,18577,0)="""DATA"",396.18,226,3,88,0)"
^XMB(3.9,23,2,18578,0)="M1<ZCR'D4.8\BYU'D/(J<1Y'S*'(>1<ZCR'F4.(\2YU&B/!*]U5',FJ7:5!M_"
^XMB(3.9,23,2,18579,0)="""DATA"",396.18,226,3,89,0)"
^XMB(3.9,23,2,18580,0)="M718<5/(':6,L#S^VW+(LG*92QL&""_""OD\A""$LUM76!""DC&V2V9YNL9BW=WNC"
^XMB(3.9,23,2,18581,0)="""DATA"",396.18,226,3,90,0)"
^XMB(3.9,23,2,18582,0)="M&:)VKVBFJ!W4X)&'(YIAQ3%4J,V84*<%H0K#Y`M3_4??12'Z3BU2""#[*(7A:"
^XMB(3.9,23,2,18583,0)="""DATA"",396.18,226,3,91,0)"
^XMB(3.9,23,2,18584,0)="M@""`W4/#]F!!\A\LF3/_N<^$DVG\1(YJ*N?3S@A$5AV,]4GZT2UE<YCH7.]KE"
^XMB(3.9,23,2,18585,0)="""DATA"",396.18,226,3,92,0)"
^XMB(3.9,23,2,18586,0)="M5]\*JR8IR8$+=`Z5#C*5Z=CB8:ALIZ-'NVRV&TW?:7AOXF*)Y!@26JG\SB#="
^XMB(3.9,23,2,18587,0)="""DATA"",396.18,226,3,93,0)"
^XMB(3.9,23,2,18588,0)="MZ\;2O8]T3?<F[O<8$C&_P,X52O\-UYP[@QU#\I7D8,>0).-]6JR(+:)=FGHA"
^XMB(3.9,23,2,18589,0)="""DATA"",396.18,226,3,94,0)"
^XMB(3.9,23,2,18590,0)="MGK4[QE+T'NU+Z>YKEG(*$BBG&*1MR?;.SOV[,;+"";A*ZD?V?HXKW/DER\=Q:"
^XMB(3.9,23,2,18591,0)="""DATA"",396.18,226,3,95,0)"
^XMB(3.9,23,2,18592,0)="MRZNWH+?N(0OYNA72C6<P!0:S$09[W0^L.#F']VNI#;SLHY--',CH27HF)Y(."
^XMB(3.9,23,2,18593,0)="""DATA"",396.18,226,3,96,0)"
^XMB(3.9,23,2,18594,0)="M4]BV!!*6&`T0L9PZR:/)FBY""7HB<Z[$?L\J0P5/K+C!HFGYPJ@'>G[^OUY%;"
^XMB(3.9,23,2,18595,0)="""DATA"",396.18,226,3,97,0)"
^XMB(3.9,23,2,18596,0)="M""SYOZ77?<;MT;%'DDOX7%K!_6\)&Z^C:ILCUFI1E;PG+$=XO)7MLR7Z4\]8M"
^XMB(3.9,23,2,18597,0)="""DATA"",396.18,226,3,98,0)"
^XMB(3.9,23,2,18598,0)="M""^V:![$1=*`0Z:A1QN4KDMW2LRL>V9C5U$VR)ZOFD+-""D&H!!;+YT,5OJ)YI"
^XMB(3.9,23,2,18599,0)="""DATA"",396.18,226,3,99,0)"
^XMB(3.9,23,2,18600,0)="M(+Z+J^88[1O];9*N%""-MN<':\M<2B7],;`MIB%YS=A%I!9!R]LBW>S#L^/UR"
^XMB(3.9,23,2,18601,0)="""DATA"",396.18,226,3,100,0)"
^XMB(3.9,23,2,18602,0)="M+T6X.XS[7R3B^[=>6W20P#\PB1`/?1]O`@V,$7"":,J^BJ],J]/\N2?IZ31B@"
^XMB(3.9,23,2,18603,0)="""DATA"",396.18,226,3,101,0)"
^XMB(3.9,23,2,18604,0)="MIZ&I>#<G.:\%>?XTO.F`(S/K['L'&\.>6@/G=IG(Q39'XDUA4IF$O/CA:%Y<"
^XMB(3.9,23,2,18605,0)="""DATA"",396.18,226,3,102,0)"
^XMB(3.9,23,2,18606,0)="M='<GJ&!?9X*E_X?M9]0*6JDX4""K\<!7Z?!NKNX,/MU-.W+'1?M,""5)#!=X4>"
^XMB(3.9,23,2,18607,0)="""DATA"",396.18,226,3,103,0)"
^XMB(3.9,23,2,18608,0)="MV[00:N)U=;\%-H`W;4[B8<H#L#Q3A_G*3:0;.N""@C""V:NNON(%V9)&?FF<'J"
^XMB(3.9,23,2,18609,0)="""DATA"",396.18,226,3,104,0)"
^XMB(3.9,23,2,18610,0)="MI?+DG`5HV8%B&_298,.K^-C1N9J!*Q[Q(4JNWFA""'![>J5D.>5_)+J(F*=7%"
^XMB(3.9,23,2,18611,0)="""DATA"",396.18,226,3,105,0)"
^XMB(3.9,23,2,18612,0)="M&T/F['T3^6WES(;>MO66\6'OBF7>0]R%*IG%M@>1EJZ,+Y.3DNQZ6\G<<;?)"
^XMB(3.9,23,2,18613,0)="""DATA"",396.18,226,3,106,0)"
^XMB(3.9,23,2,18614,0)="MQ5EAEZVP41B8G.WFD^\[O9_H.[V?#0-4<63B""V]AU_]*(BSMT6:&(#Q-]E#S"
^XMB(3.9,23,2,18615,0)="""DATA"",396.18,226,3,107,0)"
^XMB(3.9,23,2,18616,0)="MB""]+'8\9L""[(6KB_I9\+=[%S`^W1#;71T<'8%RCCFS`?V2);[H]@#;#`""]&-"
^XMB(3.9,23,2,18617,0)="""DATA"",396.18,226,3,108,0)"
^XMB(3.9,23,2,18618,0)="MTLK8'-Z%C:\R:T&0J&3G7'_'#:X?""?=%([KI""Z:4%IZ[U-'@ZC+6A[ITA3+J"
^XMB(3.9,23,2,18619,0)="""DATA"",396.18,226,3,109,0)"
^XMB(3.9,23,2,18620,0)="MBGEI7HCEK(!E^?ZP'+F%ZO<P`@UU""G.[K$R0ZPW\^&4ENXJV^1?DFGXQ,@^*"
^XMB(3.9,23,2,18621,0)="""DATA"",396.18,226,3,110,0)"
^XMB(3.9,23,2,18622,0)="M!]$I=IOW;4SC@QM3/CI6_F4<E&L""*$.5B,_V4(52)`[Y.2;U=Z1FE1M0`W!="
^XMB(3.9,23,2,18623,0)="""DATA"",396.18,226,3,111,0)"
^XMB(3.9,23,2,18624,0)="M^-&EAD,+L?!Y`&`>%TF5$8T@#+VM3NU!($/.-VLXK@TO7U9.`F2D),0`/X]M"
^XMB(3.9,23,2,18625,0)="""DATA"",396.18,226,3,112,0)"
^XMB(3.9,23,2,18626,0)="M#.N!<GS%]EK8(YLD:L?CCC)Y&Y>9[V.A\:SF/A5F='""%H:D!!MU_QJ$K""(65"
^XMB(3.9,23,2,18627,0)="""DATA"",396.18,226,3,113,0)"
^XMB(3.9,23,2,18628,0)="MLT.6Y^X4-G+27MI,QH1=$X2M#-DB1A\;$*C+_&:TLO++7/S'PR""K/%@=\!/X"
^XMB(3.9,23,2,18629,0)="""DATA"",396.18,226,3,114,0)"
^XMB(3.9,23,2,18630,0)="MN``6/@0!#P2/)$*TD>Y:;=5S!DMEI?J2:#8BT24JT6M<H@N""1-I`$IV.2(2:"
^XMB(3.9,23,2,18631,0)="""DATA"",396.18,226,3,115,0)"
^XMB(3.9,23,2,18632,0)="MIN<89GTP&?K;4DR77)@0++?XMUR(DB!$82`AWG83PG-G""]P=.441W$H;S_KP"
^XMB(3.9,23,2,18633,0)="""DATA"",396.18,226,3,116,0)"
^XMB(3.9,23,2,18634,0)="MX3HW.MO_Z&T;7?%W3-=@;HT4<.(8'SN\""V&VV)$]F!AT$S!-[:>_&8Q5%UA."
^XMB(3.9,23,2,18635,0)="""DATA"",396.18,226,3,117,0)"
^XMB(3.9,23,2,18636,0)="M`LGZKM*?V/=3GS#17VNU2&MO]6SMS(^NM9/]M;80:>U'>K:V_*-K[:'^6DOS"
^XMB(3.9,23,2,18637,0)="""DATA"",396.18,226,3,118,0)"
^XMB(3.9,23,2,18638,0)="M""-\*_++&_/(O<PMXBC>W6!S,,3T6GF,B23P,9LZ'NR:>:1[L""X$%9VG[YWBI"
^XMB(3.9,23,2,18639,0)="""DATA"",396.18,226,3,119,0)"
^XMB(3.9,23,2,18640,0)="MZ.MOA<QS.GZ.'4VX/Q,Y4OSSDKSSN6C>^043ST;PP6G>FU^G+QP+1-/`9XD\"
^XMB(3.9,23,2,18641,0)="""DATA"",396.18,226,3,120,0)"
^XMB(3.9,23,2,18642,0)="M%ZG1W(CG=B:KJ-'$6P1;+I(E1HM%D=`*)?1HG)""RWK(\.8D9D81-2:Q)$L`;"
^XMB(3.9,23,2,18643,0)="""DATA"",396.18,226,3,121,0)"
^XMB(3.9,23,2,18644,0)="M,-LSH2UX>P#>M2BE-BM02_\#2W8^*3FE]2ZY(R-2HE-UCQ#Y1T;D""9E83LLV"
^XMB(3.9,23,2,18645,0)="""DATA"",396.18,226,3,122,0)"
^XMB(3.9,23,2,18646,0)="M/!F-O-@0%F^FGHO3.!0T1`75L+?10W$,9HEFJ<Z3QA]A?NIGN<+/\=;[M/6K"
^XMB(3.9,23,2,18647,0)="""DATA"",396.18,226,3,123,0)"
^XMB(3.9,23,2,18648,0)="MCN>I4Z`K=12<:+H7W,='N.%3M)LZ+AOW';4&LVH+8L#+ZI0.AHYK-NFC,*7`"
^XMB(3.9,23,2,18649,0)="""DATA"",396.18,226,3,124,0)"
^XMB(3.9,23,2,18650,0)="M@RQ=XR596W*@`(S#@$5P\JJ')^67W^`]M'T?R%0JB!6U_0'W+$Y;2H#;QO?_"
^XMB(3.9,23,2,18651,0)="""DATA"",396.18,226,3,125,0)"
^XMB(3.9,23,2,18652,0)="MWP!7$JWE$SVLY<B\Y3A&\#L'79Q2B0ZS'TY$:GM2HW%JR6NR]T6GEOY#]OI%"
^XMB(3.9,23,2,18653,0)="""DATA"",396.18,226,3,126,0)"
^XMB(3.9,23,2,18654,0)="MB0\)[CP<YZN7:#GW+PTD=CC&E42GQY>)5(G36[%QGER^#9D&NZ\%C?`'^&F%"
^XMB(3.9,23,2,18655,0)="""DATA"",396.18,226,3,127,0)"
^XMB(3.9,23,2,18656,0)="M[(%[CR,;22OBL%&(#<E\OVHE7RI)*N$YG<CP<[<[G7REF.\H0,""O9_G&UIQ("
^XMB(3.9,23,2,18657,0)="""DATA"",396.18,226,3,128,0)"
^XMB(3.9,23,2,18658,0)="MZ*=[$)HIECO./(P2R@O!1OKO8J./*)G6\_P7R3R2HK9-:'\G7LY)X^61LI;+"
^XMB(3.9,23,2,18659,0)="""DATA"",396.18,226,3,129,0)"
^XMB(3.9,23,2,18660,0)="M#Q0NI]_4XPSPZ*.,8%?:_5B7+AN?""^)05TW&]HV(<!</*F2*S15&WJ'F<TH*"
^XMB(3.9,23,2,18661,0)="""DATA"",396.18,226,3,130,0)"
^XMB(3.9,23,2,18662,0)="M_]7@;R&G9(LY/-=LP""PST;51-('Q6XE^6G5@L?CXH*WJU$B*48VTYF-,(Z<D"
^XMB(3.9,23,2,18663,0)="""DATA"",396.18,226,3,131,0)"
^XMB(3.9,23,2,18664,0)="MJETH=I041PE1N5Y/]$&I$)EH=U+21""/Y4C<C&:D4\H7()@1Q7C/!YS7,YMXA"
^XMB(3.9,23,2,18665,0)="""DATA"",396.18,226,3,132,0)"
^XMB(3.9,23,2,18666,0)="M_FQ3.L/K(C[Y5IC7C$@J:JC3:D4296>2\8G-5'1B<]/Q\(*Z9;Z';K5QU<V6"
^XMB(3.9,23,2,18667,0)="""DATA"",396.18,226,3,133,0)"
^XMB(3.9,23,2,18668,0)="MNXT>>#_R]_XOYSFL6Z\1\<I42;;C0]HI)@]9QUREA0\RBII(D?[""1OJ8Y$#5"
^XMB(3.9,23,2,18669,0)="""DATA"",396.18,226,3,134,0)"
^XMB(3.9,23,2,18670,0)="M,M[)>%U=U-O3ZAK9AHM)OP@1&MZK_+SM[!'4YO`)QOMF`V][Q&_(>!8%GNE?"
^XMB(3.9,23,2,18671,0)="""DATA"",396.18,226,3,135,0)"
^XMB(3.9,23,2,18672,0)="M2'2O:3D7[-C#='VZ6]8+>D7V(RFSHBCTAV32GY+LT_:6V2\_D,-AIM4MT[)8"
^XMB(3.9,23,2,18673,0)="""DATA"",396.18,226,3,136,0)"
^XMB(3.9,23,2,18674,0)="MU'F/2&+:^(>`""&K3^`>GD*M>O&.3[RZ2G8/""`V2O3?`:AJ39\H*U>OK+.#4R"
^XMB(3.9,23,2,18675,0)="""DATA"",396.18,226,3,137,0)"
^XMB(3.9,23,2,18676,0)="M]O<,%YE#""A#Y/AO&TI)NF*$_=X6QT/^WO6N+C>LHPWMI-G;B)G7O3=/V*&U#"
^XMB(3.9,23,2,18677,0)="""DATA"",396.18,226,3,138,0)"
^XMB(3.9,23,2,18678,0)="M7+:.U^O=]=JT(J1),(UB8V_:(J#E>/>L?=+=/=MSSMIU57$1%PEX*;>7/J$B"
^XMB(3.9,23,2,18679,0)="""DATA"",396.18,226,3,139,0)"
^XMB(3.9,23,2,18680,0)="M\0@2""$$?N*B4EPJ)%I4^(D2+J(14$!)5BRAE_IE_YLSLF;T<Q\UZ0_V4[.Z9"
^XMB(3.9,23,2,18681,0)="""DATA"",396.18,226,3,140,0)"
^XMB(3.9,23,2,18682,0)="M,_]<_OGGOWP?Z?6ZNG`]Y.2!00*.+-8'WZI,:BPDU%ZGF;/IA=BE8>+*HM/E"
^XMB(3.9,23,2,18683,0)="""DATA"",396.18,226,3,141,0)"
^XMB(3.9,23,2,18684,0)="MMTQI-D,FU=&.)M7>:"":5O,X2IW%0BV$(D.S4;*$;:HJR1^K=VBE.#T?R;'OX"
^XMB(3.9,23,2,18685,0)="""DATA"",396.18,226,3,142,0)"
^XMB(3.9,23,2,18686,0)="M,2^O/T%R\]UX>X`AD\GF\L-1#*,SYO$Z^R>V\IZ/=5YY(5:V/7TA""04C6I!'"
^XMB(3.9,23,2,18687,0)="""DATA"",396.18,226,3,143,0)"
^XMB(3.9,23,2,18688,0)="M-!D/C>BJ,'@*,\7AJ!_3C""@GGWB\YX""VD^JEHI/J<23<S\85(*[[PY!0>U%5"
^XMB(3.9,23,2,18689,0)="""DATA"",396.18,226,3,144,0)"
^XMB(3.9,23,2,18690,0)="M7Q2''R=>Q-<]&N5UO6CU9*OMJ@`M?0K^\(Q_DK[U@SQI3KBD<Y>#Z2;X>*Z2"
^XMB(3.9,23,2,18691,0)="""DATA"",396.18,226,3,145,0)"
^XMB(3.9,23,2,18692,0)="MG)3PAXK(5?)2_ZIQ3-^FVF_+#""&%'(K+5IE(OPLX+P\JHG%#ZR""5K-I>52\E"
^XMB(3.9,23,2,18693,0)="""DATA"",396.18,226,3,146,0)"
^XMB(3.9,23,2,18694,0)="MQ)Y$BC[(@W29,',[J""#Z=LBT5=C3^4$A;J#;_?60Y2:*9*9GBU.:ZX[:&&[G"
^XMB(3.9,23,2,18695,0)="""DATA"",396.18,226,3,147,0)"
^XMB(3.9,23,2,18696,0)="M-#,_7NW:6D:Y]/#=.BY18-+E@UOV6:;@Q[AI<:9W!GJO'=ONB[@I[(M@79B6"
^XMB(3.9,23,2,18697,0)="""DATA"",396.18,226,3,148,0)"
^XMB(3.9,23,2,18698,0)="MB3%OQA7\LEC!9X10^5RT>I,#)XW3=LW""I3X7JHEBGUN5U'7G:.TW95YD#(,/"
^XMB(3.9,23,2,18699,0)="""DATA"",396.18,226,3,149,0)"
^XMB(3.9,23,2,18700,0)="MG%A>3-V^W/Z1*!0W-TR[!E=N%6.A;YEQ)O\<ZRGT;*$0+9K/X0S8MKY4PHMZ"
^XMB(3.9,23,2,18701,0)="""DATA"",396.18,226,3,150,0)"
^XMB(3.9,23,2,18702,0)="MG(/\0%=T,]O$+93S&:&;OQZP=^1G,\-A""NH#HQ@U_PN;T?THZ80P7VSY$,*3"
^XMB(3.9,23,2,18703,0)="""DATA"",396.18,226,3,151,0)"
^XMB(3.9,23,2,18704,0)="M)56NG;7KUB#/%0UE""*=RH,Z>Q`'4""*OA$V7?TO+BTJGETL*IE=T4V^00&H=I"
^XMB(3.9,23,2,18705,0)="""DATA"",396.18,226,3,152,0)"
^XMB(3.9,23,2,18706,0)="M_^_""_L^'#X[]9'HA[_B>S$5#-^Z,`W\F+_<<X5(2?KCG-S""%6[(>]^^1C_6."
^XMB(3.9,23,2,18707,0)="""DATA"",396.18,226,3,153,0)"
^XMB(3.9,23,2,18708,0)="MWBWT\GQ4J1=[0VS#;UX.)M+>\'T=8Q%?5M/`?J,%V%.LHQ*D3;K&$DVD'_SB"
^XMB(3.9,23,2,18709,0)="""DATA"",396.18,226,3,154,0)"
^XMB(3.9,23,2,18710,0)="MEDM19F7(59S*Q),::D""4@14#8,(NK0>9T,7,\AD9=_(Y;ENTP@T?:FL8'A/M"
^XMB(3.9,23,2,18711,0)="""DATA"",396.18,226,3,155,0)"
^XMB(3.9,23,2,18712,0)="M:HK<<!)>9"";&HR'OQ6T74>36(4U6QM`49:`OQ<.)]EEB5&PC2W9RL5RVFRT_"
^XMB(3.9,23,2,18713,0)="""DATA"",396.18,226,3,156,0)"
^XMB(3.9,23,2,18714,0)="M;9@^]UPY959B5*.YZ#5(D/58FNM\ZNQ99U/4G(B'1-&)Z34I%P_+,:.$9;Y+"
^XMB(3.9,23,2,18715,0)="""DATA"",396.18,226,3,157,0)"
^XMB(3.9,23,2,18716,0)="M5@G94!YINVF6+0\>.IF[^V1A/G6\Y)I-ZPF[Y8FFZG:%3@=O@]%\K=(M.Y]:"
^XMB(3.9,23,2,18717,0)="""DATA"",396.18,226,3,158,0)"
^XMB(3.9,23,2,18718,0)="M6&DU71-*64P?'W)<>\UNI+%2AXI0-INMFLDJ7F@N(VN9F!-0KX%-F2L6<$$9"
^XMB(3.9,23,2,18719,0)="""DATA"",396.18,226,3,159,0)"
^XMB(3.9,23,2,18720,0)="MR_9J(#S[J.QXOE->)_]TR0,76HTR<P9>(!:+43.A[K?&'5_\6\H_1/OJM=PJ"
^XMB(3.9,23,2,18721,0)="""DATA"",396.18,226,3,160,0)"
^XMB(3.9,23,2,18722,0)="MR#F?RI[%WUI-&QHFNR-M3!OE.BU:""=H(OIXW4F?.U%J^!8-K\Q:=%C@A'VN9"
^XMB(3.9,23,2,18723,0)="""DATA"",396.18,226,3,161,0)"
^XMB(3.9,23,2,18724,0)="MI#]L9*ACL4RQ&<785VGF<A4G;3YUSQE@U2`/^BX1AOXL39:ZAS_'=P=?,JRH"
^XMB(3.9,23,2,18725,0)="""DATA"",396.18,226,3,162,0)"
^XMB(3.9,23,2,18726,0)="M.N,_FT\5[F]85C`M;/""JY+]-LV*@HS<8!3IE$-*?WW8J=/QB*@L*\IY_,=9]"
^XMB(3.9,23,2,18727,0)="""DATA"",396.18,226,3,163,0)"
^XMB(3.9,23,2,18728,0)="MH\R\OU'>WRC#NU'Z`63K8#U-RS&R2=PE<1$;?""G6K_7$3K[$[K>E1L(&0C&O"
^XMB(3.9,23,2,18729,0)="""DATA"",396.18,226,3,164,0)"
^XMB(3.9,23,2,18730,0)="M@`7R$.F/-,;4(=686I#H-7?31:&(ZN\H%>A.%.AG&B;VO[-UAI$IX\A'6G:M"
^XMB(3.9,23,2,18731,0)="""DATA"",396.18,226,3,165,0)"
^XMB(3.9,23,2,18732,0)="MPA'TC\`JI5Q,1%.11>K1+<3A)(URS21W/%H=0VRD!KF\VT`4RV!ZZ?9\G))X"
^XMB(3.9,23,2,18733,0)="""DATA"",396.18,226,3,166,0)"
^XMB(3.9,23,2,18734,0)="MPHN.>1.31@E0C/%QUMPF1-O(3QL&5!7SVS>/OQVYSRFW*""""TZ-`F7=ED=Y&&"
^XMB(3.9,23,2,18735,0)="""DATA"",396.18,226,3,167,0)"
^XMB(3.9,23,2,18736,0)="M3%<H.TY52IJAI9N63YJR*G-'B&8""^4#/P`LGN\;>.(`H&[;S'#]4$WH[C\.F"
^XMB(3.9,23,2,18737,0)="""DATA"",396.18,226,3,168,0)"
^XMB(3.9,23,2,18738,0)="MZ2$9,A8DK)@^P#6O47+<M6#87/+H!J@CKL0`XQEBFCTZ5Y0[A\FDR0U-Y\[R"
^XMB(3.9,23,2,18739,0)="""DATA"",396.18,226,3,169,0)"
^XMB(3.9,23,2,18740,0)="MSJ$GE/>13@3M(/T8HH,;L,``X+W<<LWR%HNJ8IB0""C""IR\;""83H@KRXM\WU&"
^XMB(3.9,23,2,18741,0)="""DATA"",396.18,226,3,170,0)"
^XMB(3.9,23,2,18742,0)="M^WA1?OQ\E\>G=8_GI^3'&UT>ST[J@XYHMK_""S/9OA2(5QK;-=KT#!>\?B[3#"
^XMB(3.9,23,2,18743,0)="""DATA"",396.18,226,3,171,0)"
^XMB(3.9,23,2,18744,0)="M,SAQGQ1*]M3E<$4=U42R\:ZRI6C5BB8!(].&:!*$M?FV9N@-Y*`=/#*\YAZ("
^XMB(3.9,23,2,18745,0)="""DATA"",396.18,226,3,172,0)"
^XMB(3.9,23,2,18746,0)="MV8EQYKT^%.$>&(\82L1$1H,.Z6$<TL-B*;T9""T*)V:EAA@%""'3$K>[J2UC;V"
^XMB(3.9,23,2,18747,0)="""DATA"",396.18,226,3,173,0)"
^XMB(3.9,23,2,18748,0)="MS-`8)OLT^""9HF'Q)-4P>TFRA*74+<5?Y(K'DX>P[=L[QH<S;.$6/9,N=V$WF"
^XMB(3.9,23,2,18749,0)="""DATA"",396.18,226,3,174,0)"
^XMB(3.9,23,2,18750,0)="M""N=56%;Q3_ZFR=?Y(;4A2&LFF.L^F`U$5)^ED5=M9G.7;9><>%""^6`X@0CRN"
^XMB(3.9,23,2,18751,0)="""DATA"",396.18,226,3,175,0)"
^XMB(3.9,23,2,18752,0)="M0C`B`.8(L""PTUEH47+EJ'*$`YS0J0$P:U_*('4X^/R+>5'<JS,:!K!\'AQ:;"
^XMB(3.9,23,2,18753,0)="""DATA"",396.18,226,3,176,0)"
^XMB(3.9,23,2,18754,0)="M\V@2>P5N,^;:FDML&>AO]R-]MB#)G:BAV&_K8%_,"">,1]D?$5_II!CWE/Z%_"
^XMB(3.9,23,2,18755,0)="""DATA"",396.18,226,3,177,0)"
^XMB(3.9,23,2,18756,0)="MNO?-RN/\^5B(OR)XX;VK\@LI)`_@5=2VMO_RHOQRGM:8'-&\/&?)+X?`3*>7"
^XMB(3.9,23,2,18757,0)="""DATA"",396.18,226,3,178,0)"
^XMB(3.9,23,2,18758,0)="M]G@GQR]G[_P^?^<+FG>N5N1W0KDD%]AD73A6$[A]N:GCN2EJT)FK=LWVMR:V"
^XMB(3.9,23,2,18759,0)="""DATA"",396.18,226,3,179,0)"
^XMB(3.9,23,2,18760,0)="MW<%IN8/<%$G^0M/!SY3E#I+K9,T"")@RSO9_&L1WLWHS</>%&^92F>_=71?<6"
^XMB(3.9,23,2,18761,0)="""DATA"",396.18,226,3,180,0)"
^XMB(3.9,23,2,18762,0)="MR.L:#'3:<VK4MT#92[R690#5"";F5TZ]<6L9']FT=2OM@?[9JG9(3I^693)2P"
^XMB(3.9,23,2,18763,0)="""DATA"",396.18,226,3,181,0)"
^XMB(3.9,23,2,18764,0)="M(U_5=*2T!`-#VO/AVK)%SBT*F5)K>30GKN6QZA%1^$]N_S5GDS*+$%N]1@82"
^XMB(3.9,23,2,18765,0)="""DATA"",396.18,226,3,182,0)"
^XMB(3.9,23,2,18766,0)="M(NUK#?L),F#-=9>TI07.RLB;B1>:)7^NT5E/G[(I5A/-6\0.U9LU""]@@4(D`"
^XMB(3.9,23,2,18767,0)="""DATA"",396.18,226,3,183,0)"
^XMB(3.9,23,2,18768,0)="MZPLSVLGR(NJLSGA/Z,#1BY)=-4Q(IVRZ-KV-46<+-D*U&TA;M[!>FRJJ+2!Q"
^XMB(3.9,23,2,18769,0)="""DATA"",396.18,226,3,184,0)"
^XMB(3.9,23,2,18770,0)="M@D5A6168>ZZ>X.=<!_;(ST,6R^0>9MF,ARR;.W?85$:%N*E$-0Y<7KG*^S5%"
^XMB(3.9,23,2,18771,0)="""DATA"",396.18,226,3,185,0)"
^XMB(3.9,23,2,18772,0)="MBS-RHL\HRGU0<\X?5<_Y76@?AT)5F!%PGJVA5OS2I)9FE'K>Y)/Q]G+):SOF"
^XMB(3.9,23,2,18773,0)="""DATA"",396.18,226,3,186,0)"
^XMB(3.9,23,2,18774,0)="MHVTC08S#-[[#WN:%-LJMG=,)$]O(1\LHM*C=7L?VY4!KCK<+Z*A0;-R*F^(M"
^XMB(3.9,23,2,18775,0)="""DATA"",396.18,226,3,187,0)"
^XMB(3.9,23,2,18776,0)="MX<(_%PW0\6N):("".NMIBO'Y=37OTH<YH@S=T<$?MBEA\MB!+L8[C^A/-P?6="
^XMB(3.9,23,2,18777,0)="""DATA"",396.18,226,3,188,0)"
^XMB(3.9,23,2,18778,0)="M$O=0^>#B:CJ>!WPD:2(0`@&&K6TXF<B9YH/3NVXV[*KE^9B.SI%V6,$F=1LV"
^XMB(3.9,23,2,18779,0)="""DATA"",396.18,226,3,189,0)"
^XMB(3.9,23,2,18780,0)="M+K1<:I-4T2X1Y&9@OVS8%8R%;`3T:7.[K+Z3Y[`GXLJJ.!E>%0<X`12M71U("
^XMB(3.9,23,2,18781,0)="""DATA"",396.18,226,3,190,0)"
^XMB(3.9,23,2,18782,0)="M(E\X,6-*6@S)-[@O[-,ZBBEBN8!=1=GI=D2$'<HMR<HB'$4FT\22IL`6>:PP"
^XMB(3.9,23,2,18783,0)="""DATA"",396.18,226,3,191,0)"
^XMB(3.9,23,2,18784,0)="MJU)GU651D3\=4P?D$[H!0=16'SSDK,7=,2""J@_,/88S)0(BTP/2$/`?#HAB3"
^XMB(3.9,23,2,18785,0)="""DATA"",396.18,226,3,192,0)"
^XMB(3.9,23,2,18786,0)="M'K,^R^WR]0=Q.8-:\AKZ]F]W0Q2]6;P]]""ZOOY?E<W*.Y?5=?=&[8G+R>;G#"
^XMB(3.9,23,2,18787,0)="""DATA"",396.18,226,3,193,0)"
^XMB(3.9,23,2,18788,0)="MY[IZOW='AU&_O1GKV>/L[N@Q9W8Y'%?W<%E3'""=SSH77N6YU3\O:YB%N>14T"
^XMB(3.9,23,2,18789,0)="""DATA"",396.18,226,3,194,0)"
^XMB(3.9,23,2,18790,0)="M27C,""0?_EL%QVPJ3BLKI\;$0&.UU$B_[E*9P1U0FR:=Z`*7X*W&L/Q(TE""D,"
^XMB(3.9,23,2,18791,0)="""DATA"",396.18,226,3,195,0)"
^XMB(3.9,23,2,18792,0)="M!VO/2`FS.5B6F((RR^1\A\_MY[B8*Y*8T1*@4BL^S%'J&F*\K5'@U@UPJU!,"
^XMB(3.9,23,2,18793,0)="""DATA"",396.18,226,3,196,0)"
^XMB(3.9,23,2,18794,0)="MP-3H0AT,$G*#3AU:`(N$QLB(PMH\;@!<+H5YU8.N1@75RBH2OL+UYX]#$&]$"
^XMB(3.9,23,2,18795,0)="""DATA"",396.18,226,3,197,0)"
^XMB(3.9,23,2,18796,0)="MQ&RTO/$[5GHK>1U%V&`*X`5\4Z=[=""@\DI%'[GM\Y'XM]L!=(B<[DRD.!V!F"
^XMB(3.9,23,2,18797,0)="""DATA"",396.18,226,3,198,0)"
^XMB(3.9,23,2,18798,0)="MVRY7C_;7N(AQ(>+=0L2IXE!A/8Z%9)V59S.7"",WFAZ6M/@P,]5=J@X>RE""*["
^XMB(3.9,23,2,18799,0)="""DATA"",396.18,226,3,199,0)"
^XMB(3.9,23,2,18800,0)="M_HL:./!Q.""Z$QP>TX2!O];'H7@N.W8EG73=9Q^3,&@F]K2<5L!9R0E8+W8[8"
^XMB(3.9,23,2,18801,0)="""DATA"",396.18,226,3,200,0)"
^XMB(3.9,23,2,18802,0)="M_$RNN$<,V(/KMF]U@)V(M^LJ""&1V3$;,*'>*=T),NRL29.EVDG;W8K@O-0)`"
^XMB(3.9,23,2,18803,0)="""DATA"",396.18,226,3,201,0)"
^XMB(3.9,23,2,18804,0)="M!?1?>Q9+QY=*J1L5X'2X;[-D&.\]!:CM`ZP%E\)_V)!87(_],8QC""IL[TB$W"
^XMB(3.9,23,2,18805,0)="""DATA"",396.18,226,3,202,0)"
^XMB(3.9,23,2,18806,0)="MN4#12WV[T7):'A+O^CQ41RF>P=L`/R'[=9N,F*,A0VY:,3KY)""=_JJ&-FL[,"
^XMB(3.9,23,2,18807,0)="""DATA"",396.18,226,3,203,0)"
^XMB(3.9,23,2,18808,0)="M:""AGPV""W&<42J/)!>ETT.2%A(A>'C(*RCT6""=ORU;$BOCX>J'`(""XJB6T'6`"
^XMB(3.9,23,2,18809,0)="""DATA"",396.18,226,3,204,0)"
^XMB(3.9,23,2,18810,0)="MN`=.#.I5%H:_@/SIN!:N..,XE=05ITW;38TO.60A'7.MJDNQ*+<F8@HL#PMR"
^XMB(3.9,23,2,18811,0)="""DATA"",396.18,226,3,205,0)"
^XMB(3.9,23,2,18812,0)="M'""R1SU:M""H3@5QWG42JH^A$JJ`154/R@^X<(>_P@?I#\ONNL7BE^0""=VE$RL"
^XMB(3.9,23,2,18813,0)="""DATA"",396.18,226,3,206,0)"
^XMB(3.9,23,2,18814,0)="M3ZMH#O`ON-(?XQ]H]+YH!6=9/IU'0(PE<\V*R0Q--TJ`8<P_)_MS;]&(*KY$"
^XMB(3.9,23,2,18815,0)="""DATA"",396.18,226,3,207,0)"
^XMB(3.9,23,2,18816,0)="MSQ.[5O+M\GHBJ-R)Y-Y]JB-?SYX3-7NML7?$K)%3@DRR[.Y5HD6I50_4Z4!/"
^XMB(3.9,23,2,18817,0)="""DATA"",396.18,226,3,208,0)"
^XMB(3.9,23,2,18818,0)="M54V<$2]V^Y7%\1P?I\0Y/@-C;Y''SYDN7&@WK#G#`&B3!T[0.*'5\)@*;+;<"
^XMB(3.9,23,2,18819,0)="""DATA"",396.18,226,3,209,0)"
^XMB(3.9,23,2,18820,0)="MIN-97AI=L>9:P_%LZINM2I$EXYCGU""W`!(9L@UH-=""9\[=F^39YMNC;-T%(>"
^XMB(3.9,23,2,18821,0)="""DATA"",396.18,226,3,210,0)"
^XMB(3.9,23,2,18822,0)="M\;8:%?(_QBE2WW*JIE>VD;!`?#G!E3`2FU`@XS+UBFYVYSR@GF5?+M""9-$Y4"
^XMB(3.9,23,2,18823,0)="""DATA"",396.18,226,3,211,0)"
^XMB(3.9,23,2,18824,0)="MB.)EF.Y5<@K!#C7JYI9AUCP'$C80)WF.<X2D&5:[S!%""/N)4""FE(*15T(6EC"
^XMB(3.9,23,2,18825,0)="""DATA"",396.18,226,3,212,0)"
^XMB(3.9,23,2,18826,0)="M'>E""TH;MNC:]'!JKSJ85D&R`)YQS?`#5""N7XH/(CS<<'VF@^)@V)V8%*1<:^"
^XMB(3.9,23,2,18827,0)="""DATA"",396.18,226,3,213,0)"
^XMB(3.9,23,2,18828,0)="M8E4ID0G-:86/(I#>P#R:/K32G9XFS88/?FOB]>^])I+!R`$GDYDTEEMD`""'X"
^XMB(3.9,23,2,18829,0)="""DATA"",396.18,226,3,214,0)"
^XMB(3.9,23,2,18830,0)="MSZB+</&1DP$B?/0WK(,P@ZL0HZ8:FC*@PX%-P]QL'$V?[+\U@8-M591`]FB)"
^XMB(3.9,23,2,18831,0)="""DATA"",396.18,226,3,215,0)"
^XMB(3.9,23,2,18832,0)="MGA[<""N3_493LQWFEH#A+I@>[[SO6L6>E.GL1&OYEP!@>A!<0[@`+HR]]>""%"""
^XMB(3.9,23,2,18833,0)="""DATA"",396.18,226,3,216,0)"
^XMB(3.9,23,2,18834,0)="M\+_#%,U(4Y2\,QZ:HPN#9>WKPV3)R-[=?:%*@CM$?F:N$,U@.8K'*VS^]3!"""
^XMB(3.9,23,2,18835,0)="""DATA"",396.18,226,3,217,0)"
^XMB(3.9,23,2,18836,0)="M&6)A10/#CFDOI&ATEN4""?BW4R;)UMT-.ED'.23PB5(-FQK+RC!5QQIX-S1B0"
^XMB(3.9,23,2,18837,0)="""DATA"",396.18,226,3,218,0)"
^XMB(3.9,23,2,18838,0)="M5N4BS=A-G)FQ_7""-3**@F:09>9(6>D]2!#R:#GMS5MZ;7XFU[\WD,S&9""P]K"
^XMB(3.9,23,2,18839,0)="""DATA"",396.18,226,3,219,0)"
^XMB(3.9,23,2,18840,0)="M'4X&)2(+08G(ZA;-0^U*GIA7P#/FHQ89Y)5I?3ARD<&,]'CR""['H5089&1\E"
^XMB(3.9,23,2,18841,0)="""DATA"",396.18,226,3,220,0)"
^XMB(3.9,23,2,18842,0)="MD0OI[2!#XVJEYF;@CIUM9+]D\[*L#W21=;R]7L8;Y#'5;^:-M.^*LJ2;722]"
^XMB(3.9,23,2,18843,0)="""DATA"",396.18,226,3,221,0)"
^XMB(3.9,23,2,18844,0)="M5E=\,TAAD]N8URE9VO$NTH[M8""7<ORZ1Y7%`,0[11_?OF&(>OBRRC>Z-:U@4"
^XMB(3.9,23,2,18845,0)="""DATA"",396.18,226,3,222,0)"
^XMB(3.9,23,2,18846,0)="M9/0""A>QU#!5&4P,RP)(0/'(GA8P]*`3CF2UAMB.%T_9P>XYI\J:XY`#*#$F]"
^XMB(3.9,23,2,18847,0)="""DATA"",396.18,226,3,223,0)"
^XMB(3.9,23,2,18848,0)="M1ZRG*^'*I?4MC]X]X)CHVZ&0T3@4$F*QQCJY$RX/OT&'4[L@4YZ_R[VLPLGR"
^XMB(3.9,23,2,18849,0)="""DATA"",396.18,226,3,224,0)"
^XMB(3.9,23,2,18850,0)="M5'Q7>#ND?<0Q>IB[P\19W-#DCH3W$?<!S.E/Y""DYGS`<?;A%@L\)N$WZ5RWM"
^XMB(3.9,23,2,18851,0)="""DATA"",396.18,226,3,225,0)"
^XMB(3.9,23,2,18852,0)="M>S<G""_)8N]]&V;O9['`$Y/LPIW/RELZ$R+QNEV`7HEV`;@Q8@!0O4#1K.J[/"
^XMB(3.9,23,2,18853,0)="""DATA"",396.18,226,3,226,0)"
^XMB(3.9,23,2,18854,0)="MI\5>/ZS`$_5E3O>R(?I0=WM*4#_4MYJ;_G]6<Z'L\H(,P\8W]7\UN6:S)SRY"
^XMB(3.9,23,2,18855,0)="""DATA"",396.18,226,3,227,0)"
^XMB(3.9,23,2,18856,0)="MA"")-5A%4;56@%,1W#%=U3@&LA,T8POM*VN""<.""-*6E#R^G#J03:?C<9B-_>@"
^XMB(3.9,23,2,18857,0)="""DATA"",396.18,226,3,228,0)"
^XMB(3.9,23,2,18858,0)="MQ58^ENUX'.^9""6!#;4LE*.V@R;.NU71<.95C5V9PQ,-*4YE.;O`\+Y1F05::"
^XMB(3.9,23,2,18859,0)="""DATA"",396.18,226,3,229,0)"
^XMB(3.9,23,2,18860,0)="MN6$Q>'HI@-'[N!^^;R60?5\)R%F[:+V_S<;C-AR/F;`6&.60J@-)U>U@I*%&"
^XMB(3.9,23,2,18861,0)="""DATA"",396.18,226,3,230,0)"
^XMB(3.9,23,2,18862,0)="MC\L)ELE_BMG,#-;KJ;D%XWU_7%&ZOX^%`12""E3V,[NB<M,F2W^`NK]>$-GHW"
^XMB(3.9,23,2,18863,0)="""DATA"",396.18,226,3,231,0)"
^XMB(3.9,23,2,18864,0)="M<'D5)=""""$T0W<_=&VL`1P-*(TXAZ!'<;%H<9+&U&6\I57CK%!+7Y[X3`KTKX"
^XMB(3.9,23,2,18865,0)="""DATA"",396.18,226,3,232,0)"
^XMB(3.9,23,2,18866,0)="M`E,S;:DR0Z*-VR1&WNFWF.8XSN=8G-N+0N+\;&[X)$[*B_MJ1>E((+9QI<1J"
^XMB(3.9,23,2,18867,0)="""DATA"",396.18,226,3,233,0)"
^XMB(3.9,23,2,18868,0)="MYS3/1>W:N-`\5TF6NM3KWNIGWZEZL^9L@<*/H`WZH3N5(U4""G#RHW+^%FRF9"
^XMB(3.9,23,2,18869,0)="""DATA"",396.18,226,3,234,0)"
^XMB(3.9,23,2,18870,0)="MZ=E\)&O/>-`DFB($X""`PBR-'>.#O?U!+`P04``(`""``25""$U=:Q!MJ\M```N"
^XMB(3.9,23,2,18871,0)="""DATA"",396.18,226,3,235,0)"
^XMB(3.9,23,2,18872,0)="M9@$`&````&9I8G)O;7EA;&=I85\Q,3,N<&YL+F9R;>Q=>V_<.)+_?X#Y#L+\"
^XMB(3.9,23,2,18873,0)="""DATA"",396.18,226,3,236,0)"
^XMB(3.9,23,2,18874,0)="MT_%=DA5)/8,[#!([F>0NF1BV,\'BL%BH6[2MBUKJE=1^[,>X3WQ%JO7B0V*W"
^XMB(3.9,23,2,18875,0)="""DATA"",396.18,226,3,237,0)"
^XMB(3.9,23,2,18876,0)="M[9Z=20,!8E%JZ<>J8K%8K""KF\_^EB\KZ&,UI>G&_HI\OW^7%\I5UP5M^_,&R"
^XMB(3.9,23,2,18877,0)="""DATA"",396.18,226,3,238,0)"
^XMB(3.9,23,2,18878,0)="M/M++ROI/ZP6V;79YD:_@*F!_?DWBZAHN2,BNWM/DZIH]B0B[/(Y659)G<#W["
^XMB(3.9,23,2,18879,0)="""DATA"",396.18,226,3,239,0)"
^XMB(3.9,23,2,18880,0)="M]/;LE[>S'W^@6?SC#WGO@^Q3'TXF/X:=_M>0-_ZU=Q_>""-^""EK^?1AE-""7R*"
^XMB(3.9,23,2,18881,0)="""DATA"",396.18,226,3,240,0)"
^XMB(3.9,23,2,18882,0)="M_]'[E--]Q^U_QG>&O7)P_=TD8U>ST\^G7TYGK.4-O:'IARRC!;3/;\ZBI*0Q"
^XMB(3.9,23,2,18883,0)="""DATA"",396.18,226,3,241,0)"
^XMB(3.9,23,2,18884,0)="MOY$7,2W.J_N4LCOE>9)=I92CS=.</;U(SY/TAA:L[5V>52^/KZ.BI.P#)V_?"
^XMB(3.9,23,2,18885,0)="""DATA"",396.18,226,3,242,0)"
^XMB(3.9,23,2,18886,0)="MO?[R\>+OQ^]?GYV_O>B>:'_Z)HT6W]KV%N<+A-K&7Z,EY0PXM\ZCK+3.:9%<"
^XMB(3.9,23,2,18887,0)="""DATA"",396.18,226,3,243,0)"
^XMB(3.9,23,2,18888,0)="MSMK;#;3_^1MK.HT*FE7L!C2]B]*20[V(YI]9-Z""-<Z1'4LXT[/39UU(5^W9]"
^XMB(3.9,23,2,18889,0)="""DATA"",396.18,226,3,244,0)"
^XMB(3.9,23,2,18890,0)="M75/6JR]:%C9W.RYNGNCS,9D7^?(^2J^2Z)5UDD1765XFY:Q^<)I<>H+))'-["
^XMB(3.9,23,2,18891,0)="""DATA"",396.18,226,3,245,0)"
^XMB(3.9,23,2,18892,0)="MS7JBB62[+-_D:?RW^I::?%P,9:HA3)1D<URW3S82N`+A;%\@')8)]V_6:4%+"
^XMB(3.9,23,2,18893,0)="""DATA"",396.18,226,3,246,0)"
^XMB(3.9,23,2,18894,0)="M`+Z>+Y/*JG(KBF-`4A4)+=EE=4WAYG(9%?>;?GT%4?U:1.R;%\5:@_S-NJKR"
^XMB(3.9,23,2,18895,0)="""DATA"",396.18,226,3,247,0)"
^XMB(3.9,23,2,18896,0)="M#'F`O/YSR/'`'T`/[2'T>CCUD3L2\N.41L4&4D_P4-WR.3M.D\4W:+BKO_\+"
^XMB(3.9,23,2,18897,0)="""DATA"",396.18,226,3,248,0)"
^XMB(3.9,23,2,18898,0)="MA4&7+'CK*&1?#9EX0\B!,X3LNP)D0B3(-9%ES/B!F%T-E7W\8,C':5Y2&3'9"
^XMB(3.9,23,2,18899,0)="""DATA"",396.18,226,3,249,0)"
^XMB(3.9,23,2,18900,0)="M&?'YHLC3]$U^AP!T>S'`[?518T$=^`2+J)U@TY(7_]R\,2I>7A0P@D&+]L34"
^XMB(3.9,23,2,18901,0)="""DATA"",396.18,226,3,250,0)"
^XMB(3.9,23,2,18902,0)="MLGZC1=4]<A9E5VQP^MA6W5:^X?6ZRNM'^D-7UGT*[><.AW';7X2;AKK+""`5-"
^XMB(3.9,23,2,18903,0)="""DATA"",396.18,226,3,251,0)"
^XMB(3.9,23,2,18904,0)="M0]-K''I-DS""9""?PZ+?)Y2I?/RB/K$C0B'[X%_<>:EI5U""3.H%95EODBBBL;6"
^XMB(3.9,23,2,18905,0)="""DATA"",396.18,226,3,252,0)"
^XMB(3.9,23,2,18906,0)="M;0+OKJZ3THH;A?EJUKS31&>.:4W-5&.D.953CEYOMF*FH+FOH;DW)+EGAR+)"
^XMB(3.9,23,2,18907,0)="""DATA"",396.18,226,3,253,0)"
^XMB(3.9,23,2,18908,0)="MD6V;D?QU'""?L[RBU%OER""0!;,FIQ(9TL""*+@2()`#%&=TY1],<IBJZQU.XT6"
^XMB(3.9,23,2,18909,0)="""DATA"",396.18,226,3,254,0)"
^XMB(3.9,23,2,18910,0)="MU]:JE@]).%K**[3[&'T-11ICL2-.:-:/DS^K:!(=[3!Q)X0`N8$9\9XQH]G"""
^XMB(3.9,23,2,18911,0)="""DATA"",396.18,226,3,255,0)"
^XMB(3.9,23,2,18912,0)="MKNT?64""')`:(R64""8W]^;]&[:/ER1[Y[NG'EV,$0O""\-K-`W`P_8K;>OC]_+"
^XMB(3.9,23,2,18913,0)="""DATA"",396.18,226,3,256,0)"
^XMB(3.9,23,2,18914,0)="MVDD_K&RDPX6%$1^Z\M""21;+[50>L:;&L&5L$64G&:+NXSF&FY$,JJ?H#[*>-"
^XMB(3.9,23,2,18915,0)="""DATA"",396.18,226,3,257,0)"
^XMB(3.9,23,2,18916,0)="M2K8^)F7U$S1%,""H+RA7QS/KWWMOT:GE7-B$;F_*IFV!:/IFQ"";V<Y@HQ18%<"
^XMB(3.9,23,2,18917,0)="""DATA"",396.18,226,3,258,0)"
^XMB(3.9,23,2,18918,0)="MLB,,8@##,14.!0S4""8RI='S(XF0!+.5B0""\O`4UIY9>U(FYY:\'/\L5BO8HV"
^XMB(3.9,23,2,18919,0)="""DATA"",396.18,226,3,259,0)"
^XMB(3.9,23,2,18920,0)="MDPA3V7&4I/=#Z;""B197<P$Q#'R`.KC$C`KPC(QP#1GC&C)!A$-=P`N2SG@$8"
^XMB(3.9,23,2,18921,0)="""DATA"",396.18,226,3,260,0)"
^XMB(3.9,23,2,18922,0)="M8U6&9;/,D\%T6D0I%$RK%<!J,""M7ZV(%.J-\#I/P*B]X6U\V0!<L\JPV+KA4"
^XMB(3.9,23,2,18923,0)="""DATA"",396.18,226,3,261,0)"
^XMB(3.9,23,2,18924,0)="M)""`_0Z%HI*JDJPC>2M-[""R0JHPM8T\&*C2W@8,:_`<4/+[""B%5RL""J9FX!ME"
^XMB(3.9,23,2,18925,0)="""DATA"",396.18,226,3,262,0)"
^XMB(3.9,23,2,18926,0)="M-$^&;TN3""J:%FRA=<UED!F,-J(6QN^0%QI+763A;2AXV8'9H+'DR#.0:BM[G"
^XMB(3.9,23,2,18927,0)="""DATA"",396.18,226,3,263,0)"
^XMB(3.9,23,2,18928,0)="M53V4GS?K:49'(&!C?4U/9+YNA*!`G%\EO1T8HCQA8@#J:(OI%9O:>\B3J$<<"
^XMB(3.9,23,2,18929,0)="""DATA"",396.18,226,3,264,0)"
^XMB(3.9,23,2,18930,0)="M,UP]>7R]S-=@3P'&*@&3#):B53VOWN;%-RM>4T;?RY[KA\W%JPB>0MA:YME0"
^XMB(3.9,23,2,18931,0)="""DATA"",396.18,226,3,265,0)"
^XMB(3.9,23,2,18932,0)="MN@'%""BRY/![K)_?X.7W77U](!'U@2Y89\>5..MU""0N7+$Q:/[>\E4UL2W197"
^XMB(3.9,23,2,18933,0)="""DATA"",396.18,226,3,266,0)"
^XMB(3.9,23,2,18934,0)="MT+5L)O.NH555+NX:%0P8B@8M%T4R'\Q:;!+KU!'\6Y=KF*VZJ6O6O<K,0A^W"
^XMB(3.9,23,2,18935,0)="""DATA"",396.18,226,3,267,0)"
^XMB(3.9,23,2,18936,0)="MT4>L="",[76NIZVWUGD@H['7/G/ZMSW+`@<#>@0,YT+VPRN0J`\-]$0'DEB>B"
^XMB(3.9,23,2,18937,0)="""DATA"",396.18,226,3,268,0)"
^XMB(3.9,23,2,18938,0)="MW=#:!Z]Z1'B;1:!RXBTZ&ICWDRBZB<@6W7S+^Z*2IE=_<G'2CV;D82,Z!YZ"""
^XMB(3.9,23,2,18939,0)="""DATA"",396.18,226,3,269,0)"
^XMB(3.9,23,2,18940,0)="MSMA3T;EK`SWXE:U`!@.;+S68.<`-@&2YBFJ>J,5KH%7A?2;BIK$71BDD3S8C"
^XMB(3.9,23,2,18941,0)="""DATA"",396.18,226,3,270,0)"
^XMB(3.9,23,2,18942,0)="M""H\H""(0""<T$\H^4ZY188GUO$B7K[D02+O8V3<_/G="">Z"";(_FE1<=OJ-FTTF"
^XMB(3.9,23,2,18943,0)="""DATA"",396.18,226,3,271,0)"
^XMB(3.9,23,2,18944,0)="M6.NAH`_WK@)H--XX@B2&_(L/J@^PB%8RC=THX2<%,*N$>\\&POAK;IWW=&6M"
^XMB(3.9,23,2,18945,0)="""DATA"",396.18,226,3,272,0)"
^XMB(3.9,23,2,18946,0)="M7\K9X)G)!W[-X<9RE>;W-)X=F0QTE?]W0C3<;42CW<N9E@TW4,@&&+Z^R2C]"
^XMB(3.9,23,2,18947,0)="""DATA"",396.18,226,3,273,0)"
^XMB(3.9,23,2,18948,0)="M/H7F=<GF5Z!'G(`X,!Z#<<DFTJ%8?,@6!8W8LJR*BCC)8(VE>R"":E_`62I-R"
^XMB(3.9,23,2,18949,0)="""DATA"",396.18,226,3,274,0)"
^XMB(3.9,23,2,18950,0)="M.7SD,YO.^S+UB:F=EMQ]U6@L;\A(WIP1>4,>$B7.50@<MHE*H]IJB?.#@\3I"
^XMB(3.9,23,2,18951,0)="""DATA"",396.18,226,3,275,0)"
^XMB(3.9,23,2,18952,0)="M).X37>:P/(<5C2!"")[01(;""U%VP?5K2MN9SU5_)S>AW=)'DQ?.8T!TKPK9X4"
^XMB(3.9,23,2,18953,0)="""DATA"",396.18,226,3,276,0)"
^XMB(3.9,23,2,18954,0)="M5D45+=C\G6?BYT#@DP6(X#TL]M,TOV4S8)*55;%6/MZB6^:UM:""]'V7,GHLI"
^XMB(3.9,23,2,18955,0)="""DATA"",396.18,226,3,277,0)"
^XMB(3.9,23,2,18956,0)="ML+>0GMNX1,O:UYDFEWSF92Z.1504]W""AA5DPAX3TP/F*4NXX:9X;WGY/(\8'"
^XMB(3.9,23,2,18957,0)="""DATA"",396.18,226,3,278,0)"
^XMB(3.9,23,2,18958,0)="M[?W?DI+9`;K;'T&6F*545M$RR:+AS:\T^L94`5OD7P*SKM941Q0@*\VNJNM7"
^XMB(3.9,23,2,18959,0)="""DATA"",396.18,226,3,279,0)"
^XMB(3.9,23,2,18960,0)="MUGH%2U$+B%/0Y0@5NQ\`:_0_^`*=8]Z>)`.A`5)2D)SA$^_H@LN![OYIE&0B"
^XMB(3.9,23,2,18961,0)="""DATA"",396.18,226,3,280,0)"
^XMB(3.9,23,2,18962,0)="MR<M+Z`M\#H3PZ748'M=A;+P@&S08^\-@NNS;QIWC4&4/]A;Q0^T5FFBOI]%."
^XMB(3.9,23,2,18963,0)="""DATA"",396.18,226,3,281,0)"
^XMB(3.9,23,2,18964,0)="M6*.=CO-UD0""Y?J6W)KKI(YNBM""K(U+!I]\/9*\J2;9&#Z90JN4@D+FI]+*[&"
^XMB(3.9,23,2,18965,0)="""DATA"",396.18,226,3,282,0)"
^XMB(3.9,23,2,18966,0)="MQT*Z5;+>RX*]!WI9/.TJW]:ORX@H9JHI,MC%S2)L$&A<+7Q3H+?,_S.LD'=9"
^XMB(3.9,23,2,18967,0)="""DATA"",396.18,226,3,283,0)"
^XMB(3.9,23,2,18968,0)="M&/HC/)+L&*SPA?DJ14!"")8]>%YP]!>W[7=3\^/E[90@.MA@TA""C6ZAB1G7UC"
^XMB(3.9,23,2,18969,0)="""DATA"",396.18,226,3,284,0)"
^XMB(3.9,23,2,18970,0)="M5/`AB6S9>0U_?/KUTUD4)_DO1;Y>8;:6'S9)O0V-Q""]`BKZ&OG));SL]].?7"
^XMB(3.9,23,2,18971,0)="""DATA"",396.18,226,3,285,0)"
^XMB(3.9,23,2,18972,0)="M^6T=*""IS[;_6995<WG.S4[[+FD^CN!<\*<9Y7><%-?/D_`$L\C'_0"":8/I^2"
^XMB(3.9,23,2,18973,0)="""DATA"",396.18,226,3,286,0)"
^XMB(3.9,23,2,18974,0)="M-!9:<J`P6-:""B4EA*A'-I@(:LZK<P4F`MI(]/""U[R',>7?C""_0@?O'JU`G8="
^XMB(3.9,23,2,18975,0)="""DATA"",396.18,226,3,287,0)"
^XMB(3.9,23,2,18976,0)="MQ&]OXH>W$C\R+7ZX/W\^CO@A>S_B]_:.%HNDI`?QVYOXD:W$SS&8>:4E($$/"
^XMB(3.9,23,2,18977,0)="""DATA"",396.18,226,3,288,0)"
^XMB(3.9,23,2,18978,0)="M5'[NGI0?""_TXS+S[DSUG&]GSO%VLO@<*'[)]?S_""=\9=3>)^ZT$`GU0`W:V4"
^XMB(3.9,23,2,18979,0)="""DATA"",396.18,226,3,289,0)"
^XMB(3.9,23,2,18980,0)="MG[N3Z?=@]8?P?B3PHHAN:'HP_O8I@-XV`L@]8E/&GV,__OP;[$<`WU$:'\1O"
^XMB(3.9,23,2,18981,0)="""DATA"",396.18,226,3,290,0)"
^XMB(3.9,23,2,18982,0)="MG^+G;Z7_PAV,/ZSR,6TE?-Y^A.]-5%T?A&^?PA=L)7S!3CZ_!TO?GJR_$Y;Z"
^XMB(3.9,23,2,18983,0)="""DATA"",396.18,226,3,291,0)"
^XMB(3.9,23,2,18984,0)="M>Q""_?8I?N)7X^;NY_1XJ?PCMR?;+DY16!P'<J]_9WDH""O=T\?P_6@&0_$@@]"
^XMB(3.9,23,2,18985,0)="""DATA"",396.18,226,3,292,0)"
^XMB(3.9,23,2,18986,0)="MRI<'`=RK`&ZU\V$P`4O1'YYB7[ZO);M02:P0/M\A3RE\XUSZ*Y5""4?LD-@\R"
^XMB(3.9,23,2,18987,0)="""DATA"",396.18,226,3,293,0)"
^XMB(3.9,23,2,18988,0)="M97$RH2Y>!LD!YDZ@"")BQ541SL-ICY1WB9;:.ET'8*&!F4YG$$<I\M/QT0S']"
^XMB(3.9,23,2,18989,0)="""DATA"",396.18,226,3,294,0)"
^XMB(3.9,23,2,18990,0)="M""DLQ,YV9VH4^N8JLL+<L3ZV?LCQ3A,^TPC)9`$3=(2:5CB""=FDPRXLF)9'(^"
^XMB(3.9,23,2,18991,0)="""DATA"",396.18,226,3,295,0)"
^XMB(3.9,23,2,18992,0)="M(&G[VQO'CO>$)0.PLF2`2N(T\C8B;3U9TTO:A)S)JD+'""*)FA%@A0Q8I3Y')"
^XMB(3.9,23,2,18993,0)="""DATA"",396.18,226,3,296,0)"
^XMB(3.9,23,2,18994,0)="MWTWR+2,""'Y$#(WJ.#Q4CCO/E/'^3W_&-_LW?4SF6A)@,#:S@""`ZZG7U-!+-J"
^XMB(3.9,23,2,18995,0)="""DATA"",396.18,226,3,297,0)"
^XMB(3.9,23,2,18996,0)="MLVYD[FHII>H<TRDL>H;]/Y7/&LIIMSXVZ!0>[!?+.]U*H@\,""Z3WM*OS/WU7"
^XMB(3.9,23,2,18997,0)="""DATA"",396.18,226,3,298,0)"
^XMB(3.9,23,2,18998,0)="MABJ/"".*KH'8K++V!(9@7_6`LE6W14^(?+@=IL<]94CBH]<6Z8$+<1$?1+F`-"
^XMB(3.9,23,2,18999,0)="""DATA"",396.18,226,3,299,0)"
^XMB(3.9,23,2,19000,0)="MQMIZF97]P(`Q9@_-E(&1(H>X:/6.9S8#@""8WDG.BHC,^:)[>GN>&%?P_9=%#"
^XMB(3.9,23,2,19001,0)="""DATA"",396.18,226,3,300,0)"
^XMB(3.9,23,2,19002,0)="M(!GF:SZQ\J'?53X<%%CT:R.B9QWB[[SR(5)6/@2Z>J&Z^F$CRX-B/UW9D=""@"
^XMB(3.9,23,2,19003,0)="""DATA"",396.18,226,3,301,0)"
^XMB(3.9,23,2,19004,0)="M^F&==O!JD[3&(O:!`V65MS7['K<""(MES!41&/1\IJ3<HRM<6O.M6,/9D""<1F"
^XMB(3.9,23,2,19005,0)="""DATA"",396.18,226,3,302,0)"
^XMB(3.9,23,2,19006,0)="MM-1I#<.<U^N:B%:99`M>,F,!)+RBUC.>MQ+#4KGDA97X_5Y>[,Q*614""5F')"
^XMB(3.9,23,2,19007,0)="""DATA"",396.18,226,3,303,0)"
^XMB(3.9,23,2,19008,0)="M2C89MO`OLF#9G-#;0>DEY5K)J,9B1QL\39NVDDI7$$`L_X<4Y?^B=4E9,3E-"
^XMB(3.9,23,2,19009,0)="""DATA"",396.18,226,3,304,0)"
^XMB(3.9,23,2,19010,0)="M#88DJWN*\(LE\%*LL*#HVT@W`L^@&XXP0'!CEXYUXT)9/H*G!*G@/Q9K,)8*"
^XMB(3.9,23,2,19011,0)="""DATA"",396.18,226,3,305,0)"
^XMB(3.9,23,2,19012,0)="M,+5>VV&O;+'HJ6M/]^ID72>',>9LIG:+MAI@!QX`7FS""`Q%M:""!)O%06*W[4"
^XMB(3.9,23,2,19013,0)="""DATA"",396.18,226,3,306,0)"
^XMB(3.9,23,2,19014,0)="M`MP-GV]""3R\4`!I0\WA#0:F@Q98`0P,])=`O(-/POJBJ;>@*@K+1%&JJ@A(T"
^XMB(3.9,23,2,19015,0)="""DATA"",396.18,226,3,307,0)"
^XMB(3.9,23,2,19016,0)="M7C96J@JJJ!JKJ0H:[EP5E%O;;/D#P'D%UJ9A""-T9%`IN++ZN^`J22H.&$O8S"
^XMB(3.9,23,2,19017,0)="""DATA"",396.18,226,3,308,0)"
^XMB(3.9,23,2,19018,0)="M6B4%Y35YUAEMLKREO@2:@H>`S]/5$4.>6$1(+L[C;%><I^!H!SEX2JVDK]`("
^XMB(3.9,23,2,19019,0)="""DATA"",396.18,226,3,309,0)"
^XMB(3.9,23,2,19020,0)="M@`-=-:%0*#08&GB-E'#Y//%X>'7%HI""0&X9""J3P80H;5HNKI?O&HP$.=9(!<"
^XMB(3.9,23,2,19021,0)="""DATA"",396.18,226,3,310,0)"
^XMB(3.9,23,2,19022,0)="M""UEM;B""7ES(MB:G0^XTH/[0#@9FD8`7A7<.ZCF<T*G.P%*]@!5K7&'L<\%A;"
^XMB(3.9,23,2,19023,0)="""DATA"",396.18,226,3,311,0)"
^XMB(3.9,23,2,19024,0)="MWR^<]([V1NY$5;D57<"":W%I25MLOM9ZMKN]+]M=16S/D(3W0U:)#H3W=A\X?"
^XMB(3.9,23,2,19025,0)="""DATA"",396.18,226,3,312,0)"
^XMB(3.9,23,2,19026,0)="M9-:'57F_N$XB6'XN'@!>V#!D,X\]Y4B1QK'L2;$5E?5<>84?]IR\3^))*:T;"
^XMB(3.9,23,2,19027,0)="""DATA"",396.18,226,3,313,0)"
^XMB(3.9,23,2,19028,0)="MRK+GLXV&B$>=)IJ-CX?[4NQQ[QJVV3)`XV(39Z4N,J];9?I&+K;0\6<3737S"
^XMB(3.9,23,2,19029,0)="""DATA"",396.18,226,3,314,0)"
^XMB(3.9,23,2,19030,0)="M_WP^VY2BX!,^LY';EO&QZ\F^((7><7T5]F`*^W@M""HVC=(RW;]/D*H$OL7*["
^XMB(3.9,23,2,19031,0)="""DATA"",396.18,226,3,315,0)"
^XMB(3.9,23,2,19032,0)="M$:P;0=?%/>7-UB%]WG\2E4HS+(_43\GC=_""@D*>OS]*O%^-L^&S(-?0R:=I5"
^XMB(3.9,23,2,19033,0)="""DATA"",396.18,226,3,316,0)"
^XMB(3.9,23,2,19034,0)="MV42,&!?)JO,B?$VR.+]M>9IG5XS-TUJ%^06Y,TJS.X&D+''/2#!LE6""$4X+Q"
^XMB(3.9,23,2,19035,0)="""DATA"",396.18,226,3,317,0)"
^XMB(3.9,23,2,19036,0)="M7?L.W:UT/YG2_63:$%(4NY<W^(!Q[MYT?[=2L.;KRLKRZO>=#CR#G20V)83Z"
^XMB(3.9,23,2,19037,0)="""DATA"",396.18,226,3,318,0)"
^XMB(3.9,23,2,19038,0)="M[239)/5EF\YSS.8%E\P,^CR^S>2;D.<CJ[1270-+D'7?'0#""[R%6#A3SY@$-"
^XMB(3.9,23,2,19039,0)="""DATA"",396.18,226,3,319,0)"
^XMB(3.9,23,2,19040,0)="M,6MWY7:7M2-;O@%M[$V*.Y]R7@X`/M_>/3)08IJ];F%N(UV1KS$=IMI0""EWW"
^XMB(3.9,23,2,19041,0)="""DATA"",396.18,226,3,320,0)"
^XMB(3.9,23,2,19042,0)="MH,-&=%A@P""37B$G(D3<H/<5$HQHEGG]@T@B3B`&3='N&TOI(P2;?,V13<&#3"
^XMB(3.9,23,2,19043,0)="""DATA"",396.18,226,3,321,0)"
^XMB(3.9,23,2,19044,0)="M=GN):E[Y`UZI'*'$%EUXDC??:P[WZ=EK:,P__[A;75BQU25S1<D3+4=:?NBX"
^XMB(3.9,23,2,19045,0)="""DATA"",396.18,226,3,322,0)"
^XMB(3.9,23,2,19046,0)="M,<H+<<8<84`XR0`4!CLPP+</#.C,,)D!G0G&=H`D$TS)B&:BUS.B,;SZFBH<"
^XMB(3.9,23,2,19047,0)="""DATA"",396.18,226,3,323,0)"
^XMB(3.9,23,2,19048,0)="M8X32Y)(->ZVY->OB:09VURVEW;)U)EYC?MU933,B-CAB@RLV>&*#+S8$8D,H"
^XMB(3.9,23,2,19049,0)="""DATA"",396.18,226,3,324,0)"
^XMB(3.9,23,2,19050,0)="M-H`1)[8@J44""BR2T2(*+)+Q(`HPDQ$B""C""3,6,*,)<Q8PHPES%C""C""7,6,*,"
^XMB(3.9,23,2,19051,0)="""DATA"",396.18,226,3,325,0)"
^XMB(3.9,23,2,19052,0)="M)<Q8PHPES$3""3""3,1!8*""3.1,!,),Y$P$PDSD3`3"";,C878DS(Z$V9$E6<+L"
^XMB(3.9,23,2,19053,0)="""DATA"",396.18,226,3,326,0)"
^XMB(3.9,23,2,19054,0)="M2)@="";,C878DS(Z$V94PNQ)FM\%\9*""8D)EB:M1.Y^<W4$P^>HAB(E.*Z=TZ"
^XMB(3.9,23,2,19055,0)="""DATA"",396.18,226,3,327,0)"
^XMB(3.9,23,2,19056,0)="M35DX0M=ST.35BV'3.4TO7P@;?+R9;3]$Z6P8^&%$,JPCF;B?+Q'-,R"":@Q]"""
^XMB(3.9,23,2,19057,0)="""DATA"",396.18,226,3,328,0)"
^XMB(3.9,23,2,19058,0)="M-&>*:-JELWKAK%XV:Q;-NB6S=L&LMUJ(K;):!`('9)*^6*8O.9@MG;M6(>JR"
^XMB(3.9,23,2,19059,0)="""DATA"",396.18,226,3,329,0)"
^XMB(3.9,23,2,19060,0)="M-T]7>6?HR]NXY@-144@G=88R3QH;0^?`T[KO9.>=VG77!;TVNJ!QV4D.._W8"
^XMB(3.9,23,2,19061,0)="""DATA"",396.18,226,3,330,0)"
^XMB(3.9,23,2,19062,0)="MZ7OE>CXY<;-C1*K1I""WNV),6H""<K6F?VW8FO/1[#ZHT?W(W'3^ZN]QV_X_A5"
^XMB(3.9,23,2,19063,0)="""DATA"",396.18,226,3,331,0)"
^XMB(3.9,23,2,19064,0)="MK#R#6A.[Z@YB5T6E[.-M3^X^OU^NJGQ9_M'#5NNX)Z*+P`H&5//MJ0BLP#0"""
^XMB(3.9,23,2,19065,0)="""DATA"",396.18,226,3,332,0)"
^XMB(3.9,23,2,19066,0)="MRW[XN<Q$>RXS&D9?B:=)8U^*OD(//)C9<1_U8&:DCKQP?,-P(RG?)C"",&FEB"
^XMB(3.9,23,2,19067,0)="""DATA"",396.18,226,3,333,0)"
^XMB(3.9,23,2,19068,0)="M""\N->$^?M(:P(2;L2YL&""!M&;8F'3)FB\[6'^8G9//(QFMCPZ-I/ZW*Q!B'_"
^XMB(3.9,23,2,19069,0)="""DATA"",396.18,226,3,334,0)"
^XMB(3.9,23,2,19070,0)="M1E-:1:D$;MOP&C\TQ=R+(-OVR-K7K&Z_M62!QA&O2DSC7?$&MC%>51""<O5TH"
^XMB(3.9,23,2,19071,0)="""DATA"",396.18,226,3,335,0)"
^XMB(3.9,23,2,19072,0)="M4""T`:;[@L0D[$QDA8GJH,<)&B5Z:0\X!]2JIZF,TV>&*=]&""%O/Z^C):5'EA"
^XMB(3.9,23,2,19073,0)="""DATA"",396.18,226,3,336,0)"
^XMB(3.9,23,2,19074,0)="M,L8<4[""8*`[B)CL-LE4?^U_&@&]/?,^T/\3QY.@Q>\O^1&E*;Y)'@>X34V''"
^XMB(3.9,23,2,19075,0)="""DATA"",396.18,226,3,337,0)"
^XMB(3.9,23,2,19076,0)="MGB)XR3$ZF9<M""EAE_564\*+Z\YR?LTRME'V+'3Y2\%^724S;,OSS/+[_>6H["
^XMB(3.9,23,2,19077,0)="""DATA"",396.18,226,3,338,0)"
^XMB(3.9,23,2,19078,0)="M:+NS4'W'6'O*F@C;AD&B_<[RGD;S_(;R;L*7\UM^]Q:LV.JQN^<:=\_SY>YM"
^XMB(3.9,23,2,19079,0)="""DATA"",396.18,226,3,339,0)"
^XMB(3.9,23,2,19080,0)="M?:#N24Y[7:W5;L?;Z(X=@%//(O#+9\E+^O*Y!6/NAL=0E2OA""-R,/@<:L3-K"
^XMB(3.9,23,2,19081,0)="""DATA"",396.18,226,3,340,0)"
^XMB(3.9,23,2,19082,0)="M^)G>M*R>PWMR,#B2!7N:W<^9IKRUYF""$''&""-L>RL#,9!F][/-)V`7,CL7)R"
^XMB(3.9,23,2,19083,0)="""DATA"",396.18,226,3,341,0)"
^XMB(3.9,23,2,19084,0)="M>+1,7T]1!D"".K2'0.'NRL+@+&&A73!?F238X>VWV):-WJQ08"":22#].9G:>4"
^XMB(3.9,23,2,19085,0)="""DATA"",396.18,226,3,342,0)"
^XMB(3.9,23,2,19086,0)="MKE@>5K4&I3D\Q8:Y`(%=P+(D&KSS/8WB""%C9;SM)HJ*XIOVC?&!]FY55(IUE"
^XMB(3.9,23,2,19087,0)="""DATA"",396.18,226,3,343,0)"
^XMB(3.9,23,2,19088,0)="M.GN=@CADM9Z+-[^KSRK2_6`>LZ(R(%Z+(EJN2O6]>9KS=PY@T14OR26\+[M+"
^XMB(3.9,23,2,19089,0)="""DATA"",396.18,226,3,344,0)"
^XMB(3.9,23,2,19090,0)="MZ.#,G]E9=)]%Z_C_RA=I\HVVQM'@7?<EK-<'/7Q7T'^L:;88O.I+<24V]8Y;"
^XMB(3.9,23,2,19091,0)="""DATA"",396.18,226,3,345,0)"
^XMB(3.9,23,2,19092,0)="MZIU""-82JL\]^GP!$^XD""$`V##V4+3#704%=DI9>BC(-#BK)IM#`947ZR71R8"
^XMB(3.9,23,2,19093,0)="""DATA"",396.18,226,3,346,0)"
^XMB(3.9,23,2,19094,0)="MS""ZA*CT?D[V'""G]E5@>,_BBVEL+06@T/YYJ=5S`^A=,'^7@$WMUN3B,;Z`]V"
^XMB(3.9,23,2,19095,0)="""DATA"",396.18,226,3,347,0)"
^XMB(3.9,23,2,19096,0)="M8)KX>.UQ&3Q65->%U-H=1D8W9?*M*D^99Q6T[SZ&=O#H0[N5(&<K<9++;:CD"
^XMB(3.9,23,2,19097,0)="""DATA"",396.18,226,3,348,0)"
^XMB(3.9,23,2,19098,0)="MR57*D[=W>?J5+KX-N;NTGK&^'4FM9^S%@^:/]$KQ,&^5'WX3#;]TS*RFWV<:"
^XMB(3.9,23,2,19099,0)="""DATA"",396.18,226,3,349,0)"
^XMB(3.9,23,2,19100,0)="M"")]D&D"":&'1Y<6(;&;2.4D0.L8&CLX-M,)[=D?$L.R""(*Z_I/</YP7XZXU@H"
^XMB(3.9,23,2,19101,0)="""DATA"",396.18,226,3,350,0)"
^XMB(3.9,23,2,19102,0)="MU#=[N\PWU0C8:9!#+<[SVC<KU3BZMY[=PB*<LJS\95YD\/*CH8&;\K37&(Q2"
^XMB(3.9,23,2,19103,0)="""DATA"",396.18,226,3,351,0)"
^XMB(3.9,23,2,19104,0)="M-E'P8=F[_R$KU\SP2[BKDIG:@U',J@#>,0X-K=/]C6[W24:WL#,WX@1R`A.!"
^XMB(3.9,23,2,19105,0)="""DATA"",396.18,226,3,352,0)"
^XMB(3.9,23,2,19106,0)="M<96EB0XI)F.CVYM@$39D$9&]0RH6^<J23`<%O&OMLD&`@#.5`(2QP#4YDS64"
^XMB(3.9,23,2,19107,0)="""DATA"",396.18,226,3,353,0)"
^XMB(3.9,23,2,19108,0)="M'<&$*)P4WM.6T6)G/S;KVGJU'V45]_]D-""K2>ZO,G[B$EG'QLG!KJLO3'\**"
^XMB(3.9,23,2,19109,0)="""DATA"",396.18,226,3,354,0)"
^XMB(3.9,23,2,19110,0)="MPHI(17:\/[+355+F<;)X8D(3XRIQ]M:4]N1Y`\F[8*Y2P,F34OI]?@OF`Q@P"
^XMB(3.9,23,2,19111,0)="""DATA"",396.18,226,3,355,0)"
^XMB(3.9,23,2,19112,0)="M5E0?<WK/]B?8T?4_STQH^SFC+ZKKI(@;(X37""&+^47&YV8:!Y:J?*%GB&+,$"
^XMB(3.9,23,2,19113,0)="""DATA"",396.18,226,3,356,0)"
^XMB(3.9,23,2,19114,0)="M31;NZ\I2;N;R0-XUM9&A]/M/P),]Y@XB9$Q8O#5AB;Q39D[8X`].6/-2DV1K"
^XMB(3.9,23,2,19115,0)="""DATA"",396.18,226,3,357,0)"
^XMB(3.9,23,2,19116,0)="MPCIR@K,Y8;T_.&'-M;,WJ9V)&-2A(*RCR+J4?;?$<9[>_JC/GE;LM3YU\4[3"
^XMB(3.9,23,2,19117,0)="""DATA"",396.18,226,3,358,0)"
^XMB(3.9,23,2,19118,0)="MDI&!(MQN4VRN*1?6#[@C=7!*YPRI/_0=!]P15<""=N@Q;$^6\L2O$<#MGVW""["
^XMB(3.9,23,2,19119,0)="""DATA"",396.18,226,3,359,0)"
^XMB(3.9,23,2,19120,0)="MWQ+F7SY/KK+R3U$HDA!-B<U!O)T0N.895%^[H,L5.QIA76Q.B=4`<!P#`+X0"
^XMB(3.9,23,2,19121,0)="""DATA"",396.18,226,3,360,0)"
^XMB(3.9,23,2,19122,0)="M)XG#:0""GZ[2<^'1@\.DV,*B-VO.GOWU&RU4""G6>5,-GQ$.,P0@,8&(N%.@U@"
^XMB(3.9,23,2,19123,0)="""DATA"",396.18,226,3,361,0)"
^XMB(3.9,23,2,19124,0)="M?.7W1C_NVNKJ@,.2=U@J'.<9,""!?9W$Y^G%DTG-'B)+W'=.>6S`LLROZ)`,5"
^XMB(3.9,23,2,19125,0)="""DATA"",396.18,226,3,362,0)"
^XMB(3.9,23,2,19126,0)="M[310=QFBKKH@9A.PTP0UBODS1`PE]EQM(=<-N3[F96D]@V&[X&4=+ZW;NCUE"
^XMB(3.9,23,2,19127,0)="""DATA"",396.18,226,3,363,0)"
^XMB(3.9,23,2,19128,0)="M[8M\N8I8&<`JM^91R4Z@I$?6LPAFC:A?R/6*-C]+,KY<V:3)\#@N?G`@K&@8"
^XMB(3.9,23,2,19129,0)="""DATA"",396.18,226,3,364,0)"
^XMB(3.9,23,2,19130,0)="M""^#],<Q0\*JC_669/`';MBEPZA)-,<['9^8O++A'P<PKUGY@YF,PTS69/]QP"
^XMB(3.9,23,2,19131,0)="""DATA"",396.18,226,3,365,0)"
^XMB(3.9,23,2,19132,0)="M>_7U)LWSV#IEFQ=3\Z>KMGN0XXTF2QO4G_W+Z&=-IFT4""G),#/K^OC=I_8&5"
^XMB(3.9,23,2,19133,0)="""DATA"",396.18,226,3,366,0)"
^XMB(3.9,23,2,19134,0)="MMJ;JKN,^+5M,9O/66=RM,*8_^R%CL7VC-72Y5TF1O=%Z29OL#3R1O4&(:?8&"
^XMB(3.9,23,2,19135,0)="""DATA"",396.18,226,3,367,0)"
^XMB(3.9,23,2,19136,0)="MVCU]@]7]&];_4\JPBZ;6#&)>*O)16UM(F8,EP0BF803^UC#@$30SS;KC!X[8"
^XMB(3.9,23,2,19137,0)="""DATA"",396.18,226,3,368,0)"
^XMB(3.9,23,2,19138,0)="MTS@0=K<'$K0E)Z=3*CD0I`(R7,IA%$Z8I""J^X)EQ18J!2\0?S^I$-AF66986"
^XMB(3.9,23,2,19139,0)="""DATA"",396.18,226,3,369,0)"
^XMB(3.9,23,2,19140,0)="MFB(X(H#SL(T>,:^S]6^0?SDUJD\9'>SCSY@QVETQ:V8J&W*ZSDN3B4YT6>E#"
^XMB(3.9,23,2,19141,0)="""DATA"",396.18,226,3,370,0)"
^XMB(3.9,23,2,19142,0)="MHYJ("":9M1-.HD#D/24H/IJCT'U;OU)Y9_^]>C,6,V(/:#<#395[0J91]1Y^M"
^XMB(3.9,23,2,19143,0)="""DATA"",396.18,226,3,371,0)"
^XMB(3.9,23,2,19144,0)="M'SP""8<A#""!/^'H3AVHBHM%$8#""=R02TZ]K16),Y,7<A!@\-1X4#N(P`A,W5Q"
^XMB(3.9,23,2,19145,0)="""DATA"",396.18,226,3,372,0)"
^XMB(3.9,23,2,19146,0)="M!`T0/*V>VU.JC-6S3Y`""ACON2N4SA>A+]>S.E1KT/:DN$E*7D?^=>U(=9>JR"
^XMB(3.9,23,2,19147,0)="""DATA"",396.18,226,3,373,0)"
^XMB(3.9,23,2,19148,0)="MSB?DCQR[@_UP6U_J^[QD:5UI\L]-?=_"".E\75_2)SN!Q]^Q:16KOEC.@HBN>"
^XMB(3.9,23,2,19149,0)="""DATA"",396.18,226,3,374,0)"
^XMB(3.9,23,2,19150,0)="M7F0;^%8;PO&<BH^;%,2Q90'""!E!""3^2H`11VZL(KZR2Z?VY]XN?!,$A_I5'!"
^XMB(3.9,23,2,19151,0)="""DATA"",396.18,226,3,375,0)"
^XMB(3.9,23,2,19152,0)="M3O'Y[RR_Y6Q]O5H5^5VR9$<TG#3'Y>JP.@98$1'M88Q,W+*LD`T#5&W.5BE["
^XMB(3.9,23,2,19153,0)="""DATA"",396.18,226,3,376,0)"
^XMB(3.9,23,2,19154,0)="M\J;!HSF$:HA'],XZ*#0_1ND=R\>,%M<6/R'XN769I&GC;_G&29ADEWFQY&Q^"
^XMB(3.9,23,2,19155,0)="""DATA"",396.18,226,3,377,0)"
^XMB(3.9,23,2,19156,0)="M#C@K&+L_?<GXO9^LR[[#!E[5>YB7W:U?P?BR6I=UCE>YGB^3BA7FK?Z_O2MK"
^XMB(3.9,23,2,19157,0)="""DATA"",396.18,226,3,378,0)"
^XMB(3.9,23,2,19158,0)="M<AM'TG^%X7V0O5%=38""W.R8VO&YWCV,GQHYRQ<SC!$NB5.R11`T/5ZM__2(!"
^XMB(3.9,23,2,19159,0)="""DATA"",396.18,226,3,379,0)"
^XMB(3.9,23,2,19160,0)="M'B`.$M11[I+EAVZ;DD`@@4SD^66;FFCN]T"".""45<T6?O&3CMOU2;39SO86MB"
^XMB(3.9,23,2,19161,0)="""DATA"",396.18,226,3,380,0)"
^XMB(3.9,23,2,19162,0)="M0H3'OH0HZ""K8GJ5)42^C3.KV0SK_NG*VCN`_M;'(B,%X5Y?_9CX:(K8H/<O,"
^XMB(3.9,23,2,19163,0)="""DATA"",396.18,226,3,381,0)"
^XMB(3.9,23,2,19164,0)="MBA<+V""`Z/?)/(':]IBEDKL$00K4]C>U^=$:$D9'M:6,TA.`H<UJIH/2/A8C<"
^XMB(3.9,23,2,19165,0)="""DATA"",396.18,226,3,382,0)"
^XMB(3.9,23,2,19166,0)="MX*!1Q=&QP\#8G*9%2""K@&$%^V-$!\XCP[(I\Q&7Y^P:$]AQ1,OH:;T^GD#HM"
^XMB(3.9,23,2,19167,0)="""DATA"",396.18,226,3,383,0)"
^XMB(3.9,23,2,19168,0)="M3/EW1&AWT+6F`4;!HL/5GRX*F/"":Z<`N#Y`%]'`$XX<#B[YQ^7!$H6A&!FWS"
^XMB(3.9,23,2,19169,0)="""DATA"",396.18,226,3,384,0)"
^XMB(3.9,23,2,19170,0)="M@>_H<(2#O<NPSN]J'WTXWJ\[W#LY_?R`LU%/60?TT_1<K/,U@C&<'T]N^\;T"
^XMB(3.9,23,2,19171,0)="""DATA"",396.18,226,3,385,0)"
^XMB(3.9,23,2,19172,0)="MHID.R^;P.;M&<VX5AY-,VIDR::6)[-GP1V4GUQV1:G/.X2WE&D:H.QGLOOR."
^XMB(3.9,23,2,19173,0)="""DATA"",396.18,226,3,386,0)"
^XMB(3.9,23,2,19174,0)="M+65/G3T!?S01..0.('UA!TTUE^]8)U2B&M\E<T+=XB*L9""""AQCP5HE:RAF[2"
^XMB(3.9,23,2,19175,0)="""DATA"",396.18,226,3,387,0)"
^XMB(3.9,23,2,19176,0)="MCC7;0(^T`N!+<D:VM\]V?9P\M`C*-3US2@\<%H(0>,Q$EA!5<1C9DUR!=#)*"
^XMB(3.9,23,2,19177,0)="""DATA"",396.18,226,3,388,0)"
^XMB(3.9,23,2,19178,0)="M_VC;2+@QD(-#9H.&/((*&<T84B.H4=A/:I+L)G0PBIQS\-W2CRJQ^>/A:).0"
^XMB(3.9,23,2,19179,0)="""DATA"",396.18,226,3,389,0)"
^XMB(3.9,23,2,19180,0)="M*R((%B0&<P.)KKYW'@S1]]8O*3G73%`U;*9WV+/O\4C#?Z==@OY3)44)?8/V"
^XMB(3.9,23,2,19181,0)="""DATA"",396.18,226,3,390,0)"
^XMB(3.9,23,2,19182,0)="MUC_>W7V:<3\0/FI;""\5?XW0-004%SJAM3GAGF/`8'TWZ,`C.0OJFQ1F[&OYL"
^XMB(3.9,23,2,19183,0)="""DATA"",396.18,226,3,391,0)"
^XMB(3.9,23,2,19184,0)="M6S``]=JI)S*""<5_^HT`T%D))_D>B*>F'Z'NVV94:(5;H@ICE:#2DYG5!S`JZ"
^XMB(3.9,23,2,19185,0)="""DATA"",396.18,226,3,392,0)"
^XMB(3.9,23,2,19186,0)="M.RKK`%\[POTMW20O0ZWSE5VIU9Y[(>0G>.ZC<%RA^WSWZ?.'N_N/'[Y<1/(X"
^XMB(3.9,23,2,19187,0)="""DATA"",396.18,226,3,393,0)"
^XMB(3.9,23,2,19188,0)="MUB2/]^CD""FJ(B1N8G&R`=/H+:D.""+S4/S/4-2.2+02!DD%[-%(S[Y/?R+[R="
^XMB(3.9,23,2,19189,0)="""DATA"",396.18,226,3,394,0)"
^XMB(3.9,23,2,19190,0)="M,!L)F-H*Y@^P#NS994B!'-@S_L[MP$`9$5';+XXS$#!M.\B:6X#W@)N16Y]Y"
^XMB(3.9,23,2,19191,0)="""DATA"",396.18,226,3,395,0)"
^XMB(3.9,23,2,19192,0)="M$+B7+4$04M=@(-SW$XJV@VM2@$*)Q1#S:A0>BE3Y9C""?UD<&$VH!-#N.#2;/"
^XMB(3.9,23,2,19193,0)="""DATA"",396.18,226,3,396,0)"
^XMB(3.9,23,2,19194,0)="MB(X\.*':]ZN+`O53<GQGS+N'SH^)W6+)^#*PC)*28B*1ZTM&O2NVTW*(`=-D"
^XMB(3.9,23,2,19195,0)="""DATA"",396.18,226,3,397,0)"
^XMB(3.9,23,2,19196,0)="M$@U@R2@3BDRSSS[-Y^FN*F^LN&PBIMF<P=""N*=S8&D!C""@;N\E/[.Q[[*7MJ"
^XMB(3.9,23,2,19197,0)="""DATA"",396.18,226,3,398,0)"
^XMB(3.9,23,2,19198,0)="M43/;85J@S+C8P83KBNX4'I<YX3(B!PORMET\[^-B)@4,\=[[X7W0O6UVG\>["
^XMB(3.9,23,2,19199,0)="""DATA"",396.18,226,3,399,0)"
^XMB(3.9,23,2,19200,0)="MY(^T*MH7;-(%/5_-R-5N1[;T@0IAY32_5+L\!IC.N*R'R?)TE6YO:OA3NOAY"
^XMB(3.9,23,2,19201,0)="""DATA"",396.18,226,3,400,0)"
^XMB(3.9,23,2,19202,0)="MO*O6,4/SI$@.[%W$YHC[TUP/OHK8)EMBFZ0/'5G9HWE6E-G\D?PU)^3]K=K."
^XMB(3.9,23,2,19203,0)="""DATA"",396.18,226,3,401,0)"
^XMB(3.9,23,2,19204,0)="M6:C[-V(+6>L8VE*LK;+_*A9<;;X+_AVVUJ+*E_$\*3@R_:T>(=FE\#HBM6XL"
^XMB(3.9,23,2,19205,0)="""DATA"",396.18,226,3,402,0)"
^XMB(3.9,23,2,19206,0)="M;,TW%!<31F9C=1__9*GF_^NZ*A/8S+1Y5U9!*/X_54SFS6A.0^J$9P!8M=GK"
^XMB(3.9,23,2,19207,0)="""DATA"",396.18,226,3,403,0)"
^XMB(3.9,23,2,19208,0)="M)4416EK]^;-#Q,WRUSR!>5IE3DA!?WQ#9$51#U+/L?N0M;#>D!W9SOEA_F^;"
^XMB(3.9,23,2,19209,0)="""DATA"",396.18,226,3,404,0)"
^XMB(3.9,23,2,19210,0)="M)-UQ@""U:`S""HM2.F8YV%T:[X-WI4H/CC)V5S'STXT1`TD?JI[(D?!""5201(-"
^XMB(3.9,23,2,19211,0)="""DATA"",396.18,226,3,405,0)"
^XMB(3.9,23,2,19212,0)="MR)O`4-ZT4G.BP'&O`N<J<*X""YX4*''R,P%';42HG2JT%UIJ-WT\]=7J&%#XP"
^XMB(3.9,23,2,19213,0)="""DATA"",396.18,226,3,406,0)"
^XMB(3.9,23,2,19214,0)="MH-8Z92[1M@I5""GGDFY1,BIVT@G""J<?5Q6Y1Y17G[,FRK2%V""Y@BM=(3K4,H7"
^XMB(3.9,23,2,19215,0)="""DATA"",396.18,226,3,407,0)"
^XMB(3.9,23,2,19216,0)="M;WRJBL3%FDU9&J'UZG^K=`U5B]G#.MF\`I:?4PECQ83C""RJM=NS#@E`J3C=\"
^XMB(3.9,23,2,19217,0)="""DATA"",396.18,226,3,408,0)"
^XMB(3.9,23,2,19218,0)="MXF)""@1:)-;0MTV5*_K6HX,ID<O+W&!#`X?6OBS>WUOUC6C1#L:&?>%#ZV7H-"
^XMB(3.9,23,2,19219,0)="""DATA"",396.18,226,3,409,0)"
^XMB(3.9,23,2,19220,0)="M/]M:T'*A\4HW""96O?L[F%80$NXD^42E`1!@9-,[)//FQV*WVJOXR&9*""FB<E"
^XMB(3.9,23,2,19221,0)="""DATA"",396.18,226,3,410,0)"
^XMB(3.9,23,2,19222,0)="M&399O'U%+A2@`1`&)G([.9DR""@UV*123^M%X:JZX2XJ%DQUBR:2+N(RM/%G%"
^XMB(3.9,23,2,19223,0)="""DATA"",396.18,226,3,411,0)"
^XMB(3.9,23,2,19224,0)="M.2WI;7<I)S_]RE,#+IWF\B*;0O-H#UAS9+!F""7C!,:B<E19=!\V;M=,S1!=."
^XMB(3.9,23,2,19225,0)="""DATA"",396.18,226,3,412,0)"
^XMB(3.9,23,2,19226,0)="M'T,ZZ5=@O;T5S^=5'L_W+""OX@5\TRS&E1!I,-/4TO@QWB.$,O*%H^*V1P5O%"
^XMB(3.9,23,2,19227,0)="""DATA"",396.18,226,3,413,0)"
^XMB(3.9,23,2,19228,0)="M`V3P5CSX5M\V>*NTA0:O=6X'G2&.SALBO-D=2\)IHN,G]H:HE065SY6+M[""V"
^XMB(3.9,23,2,19229,0)="""DATA"",396.18,226,3,414,0)"
^XMB(3.9,23,2,19230,0)="MCRVZBMU7%1S\O3?8BY2N0XU>T*01*/4""Q_,G-]CK4M*;2X#U@""+Z\%^)R,_."
^XMB(3.9,23,2,19231,0)="""DATA"",396.18,226,3,415,0)"
^XMB(3.9,23,2,19232,0)="M5*[R[+WW`@UG>?V<S1""?S,^(CLLP]51!8Z=O[@O[[\GE<*XO99BV-8+7%J&-"
^XMB(3.9,23,2,19233,0)="""DATA"",396.18,226,3,416,0)"
^XMB(3.9,23,2,19234,0)="M""(L4(HSQ$A_E:T48.HT(NVAKAUV.4A<[C5CKGVM1K+F3@<R:A)%/NW0+7WC]"
^XMB(3.9,23,2,19235,0)="""DATA"",396.18,226,3,417,0)"
^XMB(3.9,23,2,19236,0)="M]ZR$1A76!ZIL)_F;BS""""`G4XIY^RBT6`,S=""YN5;U!HA<XK!35>""T4%(6S)L"
^XMB(3.9,23,2,19237,0)="""DATA"",396.18,226,3,418,0)"
^XMB(3.9,23,2,19238,0)="MG67*W""+S-""<***`AS[M.:06[1GA5<][DWH""1DUCK>+NJXA4M57LUCZN""Y=T0"
^XMB(3.9,23,2,19239,0)="""DATA"",396.18,226,3,419,0)"
^XMB(3.9,23,2,19240,0)="M,N=)4:W!I'K5OG63+7IC42MJ2;Z;U5M<#UU0Q)\%.+#BU2HG%A*L:+H6'P8&"
^XMB(3.9,23,2,19241,0)="""DATA"",396.18,226,3,420,0)"
^XMB(3.9,23,2,19242,0)="MI$6BOQ6[!DI@_,;Z%_M#2-M;=]RMO/D*_3.DJX:AR43%JZ)-8!R:Z`,_4=K%"
^XMB(3.9,23,2,19243,0)="""DATA"",396.18,226,3,421,0)"
^XMB(3.9,23,2,19244,0)="M$KI+K?<GF'1D,FFQRAK[!I'1A)\TI&[I)FLZU\@VF:LOE!^X7FANSRWX.0-6"
^XMB(3.9,23,2,19245,0)="""DATA"",396.18,226,3,422,0)"
^XMB(3.9,23,2,19246,0)="M<D/HF""WA-7U&\9(]^T?/IC9L_)""NTW+_ABR09XPC%XM-%NM*?A7??+%S?K$Q"
^XMB(3.9,23,2,19247,0)="""DATA"",396.18,226,3,423,0)"
^XMB(3.9,23,2,19248,0)="M.5-)#/U1Q35;KY5+K0K!KW+X4ET3X6E+E]&$?5VV2_U(IK[=TNS#(EO30`!9"
^XMB(3.9,23,2,19249,0)="""DATA"",396.18,226,3,424,0)"
^XMB(3.9,23,2,19250,0)="M?5H456(]I>5C5K&/<@KI2F3K!F!>^:6""/*W6H\70V.2TAL*-X$03/""Z?8<.("
^XMB(3.9,23,2,19251,0)="""DATA"",396.18,226,3,425,0)"
^XMB(3.9,23,2,19252,0)="M?""_!^;4G&AYM""K>N""EK#2OY'8=/:/B1+HJ!E3_!PG:SB]7K/+XIFK:^VZ1]D"
^XMB(3.9,23,2,19253,0)="""DATA"",396.18,226,3,426,0)"
^XMB(3.9,23,2,19254,0)="M(W>/.1FW&,Q?0"";""3KKO7,_\OON0TK:LM(2Z7MQFMT[(4IN+AIPVYA:S""#N2"
^XMB(3.9,23,2,19255,0)="""DATA"",396.18,226,3,427,0)"
^XMB(3.9,23,2,19256,0)="MJW!C+8GFP39TW;NCR+%.EU8,Y>&[/*6^0AJ=J0>DMR10<9/4;03@DEONR:""4"
^XMB(3.9,23,2,19257,0)="""DATA"",396.18,226,3,428,0)"
^XMB(3.9,23,2,19258,0)="M""9+^28>SWEQM\-/F+IU>>HMUI;<^ZF<`CR9=!,_G9@B4(0G.S^#V(A)LBZ]@"
^XMB(3.9,23,2,19259,0)="""DATA"",396.18,226,3,429,0)"
^XMB(3.9,23,2,19260,0)="M&`+,NX20ZVK\##V'4R1B)TPN[[E4YP(CHMKAZZ*^:]3YT]7@HU!72](7J*$]"
^XMB(3.9,23,2,19261,0)="""DATA"",396.18,226,3,430,0)"
^XMB(3.9,23,2,19262,0)="M`L_;U&*.UU8>6Z>((ITCQ^E3&XW)+MNX5A@?6UNI@P[TW:/GS,O;%X`_>I*J"
^XMB(3.9,23,2,19263,0)="""DATA"",396.18,226,3,431,0)"
^XMB(3.9,23,2,19264,0)="MHMKKPYH?M__H9[/W""""L<7\]VI2K]YDF6_]$ZE6[O<T(=4%WX6#TXF;JOW`$&"
^XMB(3.9,23,2,19265,0)="""DATA"",396.18,226,3,432,0)"
^XMB(3.9,23,2,19266,0)="M,X6LM54?*T=X5Y49^XJ6.+:ZF;:C:Z:-A-:#OBTU,4""&#=TUP<`S=J5%RK97"
^XMB(3.9,23,2,19267,0)="""DATA"",396.18,226,3,433,0)"
^XMB(3.9,23,2,19268,0)="MJK.F;7RE.V_:MN1.8$A)9$L=3%PG,.HPSW?F:\**)<0H=UE1I`^0-[-(BGF>"
^XMB(3.9,23,2,19269,0)="""DATA"",396.18,226,3,434,0)"
^XMB(3.9,23,2,19270,0)="M/B0*/PKHBD3C+""'C9--/=HFWZ3(IRAHVIFGXQQ""*::!Y^UN54[MH6=M&-""!("
^XMB(3.9,23,2,19271,0)="""DATA"",396.18,226,3,435,0)"
^XMB(3.9,23,2,19272,0)="M@YI$&?W:'RU=U""E37\F;'MF]_$*W>VIS>B?4G`+LC3*4'YCQ$T!""P1Y1*.FW"
^XMB(3.9,23,2,19273,0)="""DATA"",396.18,226,3,436,0)"
^XMB(3.9,23,2,19274,0)="MS][<^;QLY-J&;(0=J>M5Y)@1$*((8'""FA""W.3\5O(8Q<QY""*GB<=P]!0K-,\"
^XMB(3.9,23,2,19275,0)="""DATA"",396.18,226,3,437,0)"
^XMB(3.9,23,2,19276,0)="M-#`^:<5X0T$]9T2Z*7GNZ,Z&D>'.5CE0RBHADZ8WKXO96:03,$@@H^M')LV"""
^XMB(3.9,23,2,19277,0)="""DATA"",396.18,226,3,438,0)"
^XMB(3.9,23,2,19278,0)="MU2*FN46@X,)*EDLRAX*Y)>8BB<>Z6DX3H*Y6(8G$?E5R(S#'GK@\:3'%:5?C"
^XMB(3.9,23,2,19279,0)="""DATA"",396.18,226,3,439,0)"
^XMB(3.9,23,2,19280,0)="MZU;C""T<>2[+,;""7H]L+.M^^;42P(#Z08OCB*:54.]U0T<RZ-9EAWRG`X?AE%"
^XMB(3.9,23,2,19281,0)="""DATA"",396.18,226,3,440,0)"
^XMB(3.9,23,2,19282,0)="MAE3[N<IKI-:EJ;34BT5L>*&WL6W..C44^BS&#?]Z.WV6@&@2]9!-]*IOX,H7"
^XMB(3.9,23,2,19283,0)="""DATA"",396.18,226,3,441,0)"
^XMB(3.9,23,2,19284,0)="MDTQ3+'4:1#:V.SQJLRZVD/$2J+L[2X99UP*X\_3+?50C3S$OKKGS=]W%>:""1"
^XMB(3.9,23,2,19285,0)="""DATA"",396.18,226,3,442,0)"
^XMB(3.9,23,2,19286,0)="M8EUM1`\R7WBDU_`]1^X@+-M(H:/:#Z\[P@,U2)HJI.'^AE]*BMO!/?F<9ROP"
^XMB(3.9,23,2,19287,0)="""DATA"",396.18,226,3,443,0)"
^XMB(3.9,23,2,19288,0)="MJJ9?(=[XE.5%[^./&[""1""1?U'H*!3'-ER:2??B0F]28M""BZ=7B[VT)=['-;7"
^XMB(3.9,23,2,19289,0)="""DATA"",396.18,226,3,444,0)"
^XMB(3.9,23,2,19290,0)="MUAEMORINB1O(;J`@,NBE3;:$@Y(_1R_++^.:ZF!'RV?KR7Z""^^[`[IMZ!C?L"
^XMB(3.9,23,2,19291,0)="""DATA"",396.18,226,3,445,0)"
^XMB(3.9,23,2,19292,0)="MWDOS"")&9-'619'ZXGMQ/UL7242%_HJLTY?OU:/=""O16R*1C*-ZXG2U)7OMF0"
^XMB(3.9,23,2,19293,0)="""DATA"",396.18,226,3,446,0)"
^XMB(3.9,23,2,19294,0)="M'46S9V>1E[1%([I':,8MGN^9<(OOJNXZY\HM8UV<621(C$[J54$D^Q84O;`C"
^XMB(3.9,23,2,19295,0)="""DATA"",396.18,226,3,447,0)"
^XMB(3.9,23,2,19296,0)="MQ3T$""G`;G09%YZ4ZON7@D4%L;8CZ#M:17[(0CJ""_HC!1V7?ZX,4T'7^0U/U'"
^XMB(3.9,23,2,19297,0)="""DATA"",396.18,226,3,448,0)"
^XMB(3.9,23,2,19298,0)="M>YP.-GA\UXMXI:4IQ'U,RS$-5@Z1#^L-#2^JEMQ""!2`9-V#`CZO0WU%DH+_C"
^XMB(3.9,23,2,19299,0)="""DATA"",396.18,226,3,449,0)"
^XMB(3.9,23,2,19300,0)="M\^KO/20!JP4#G/6J[O.5^.S3_8^?[_D']WFZ6C4(-1`B2X13-T5_'RK8UI5L"
^XMB(3.9,23,2,19301,0)="""DATA"",396.18,226,3,450,0)"
^XMB(3.9,23,2,19302,0)="MJ_#'1\JVU87;)L;""J*V`/2RX(CH5HSWVG:-SP%C`O3OM',;""1VC0NRW3;955"
^XMB(3.9,23,2,19303,0)="""DATA"",396.18,226,3,451,0)"
^XMB(3.9,23,2,19304,0)="M!:W""9XX/F@.7YG4F.'R%7#Z'F`T':NAR`R^=KP5K?""VA`1.&CH'L@4UPQU0_"
^XMB(3.9,23,2,19305,0)="""DATA"",396.18,226,3,452,0)"
^XMB(3.9,23,2,19306,0)="M&>-<JZIB,T7(\21_6PO-VTN_4\P77U75(?TH-&5U?Y35`S%^(;N66\`VGM4]"
^XMB(3.9,23,2,19307,0)="""DATA"",396.18,226,3,453,0)"
^XMB(3.9,23,2,19308,0)="MQ:Z=V2\`S>4AQDMSVR0OK-3Z\2""._C7+%CQ+_Q*G><\_E)&C]#I/EGD\AV2("
^XMB(3.9,23,2,19309,0)="""DATA"",396.18,226,3,454,0)"
^XMB(3.9,23,2,19310,0)="M-TJ.#WK[HTQ<)=]^2!90>_209?^&V[C_A(<HY4`*^436@(GICI-8T(R,,\X<"
^XMB(3.9,23,2,19311,0)="""DATA"",396.18,226,3,455,0)"
^XMB(3.9,23,2,19312,0)="M[9<ZWB@IIB+_H:B?-L_UZFGSC3YS2$9630=8\N=XE?0[9?2;*<D]P'K9H7J*"
^XMB(3.9,23,2,19313,0)="""DATA"",396.18,226,3,456,0)"
^XMB(3.9,23,2,19314,0)="MMLE?MIP)UK[,[A]^R246=#YX$0K2,""5,EQ3FVK;Z""YI1WJW3%:P_7A.EEIS["
^XMB(3.9,23,2,19315,0)="""DATA"",396.18,226,3,457,0)"
^XMB(3.9,23,2,19316,0)="M]KDF84S.4@9EZ8(,&""G_7\K:XG+!NT<<'PE;;?O=PP[(.NP>JK*WX-:/<X@."
^XMB(3.9,23,2,19317,0)="""DATA"",396.18,226,3,458,0)"
^XMB(3.9,23,2,19318,0)="M?4W>PLIRZQ_O:!Y_LBV8(K*K\EU6),5-G8H5K[99D=+<K""4D0O<RK@!U@25&"
^XMB(3.9,23,2,19319,0)="""DATA"",396.18,226,3,459,0)"
^XMB(3.9,23,2,19320,0)="M6Z^+;).4Z2:!2K`UR#'Z]2(M4S+6+D]I=?:2RZ6VBOUVD8OCD5%8!<$^6\;%"
^XMB(3.9,23,2,19321,0)="""DATA"",396.18,226,3,460,0)"
^XMB(3.9,23,2,19322,0)="M''+&=G&Z95\F'[YI5*6""3G!'_I+0=)JE]90NDD(<CWR!R&@`5:K66?%OH@*7"
^XMB(3.9,23,2,19323,0)="""DATA"",396.18,226,3,461,0)"
^XMB(3.9,23,2,19324,0)="MS9""0EU;R8(^WUKL%46T(&0`;B6BOY&""+XQ&M+=Z3<UUD4,S'7E^^!22E=%61"
^XMB(3.9,23,2,19325,0)="""DATA"",396.18,226,3,462,0)"
^XMB(3.9,23,2,19326,0)="MJ1?K)-E1`*DJ?X#\-_*(W""!+<MD""'6)Q/#(`64>1QN331S+5>/Y(?I+F>4J]"
^XMB(3.9,23,2,19327,0)="""DATA"",396.18,226,3,463,0)"
^XMB(3.9,23,2,19328,0)="M_=9#]I2LR>HWNS+;%)!GMZ,>?X#!BK>_I^)X2;FG]+N+]]NX6LS^RXEFQ0]0"
^XMB(3.9,23,2,19329,0)="""DATA"",396.18,226,3,464,0)"
^XMB(3.9,23,2,19330,0)="MD=0.<@NGB-Q.E#*4$F1_%PE9,-DU0%<1QZ1?V9*IE*POW1H.*E`O;]$ZV^2]"
^XMB(3.9,23,2,19331,0)="""DATA"",396.18,226,3,465,0)"
^XMB(3.9,23,2,19332,0)="MAVRQA[,3ES`J_8FT9@H@!K\GQS][HC][B@G%;MB6P&_CVJ'>OC/^'8X""VT#I"
^XMB(3.9,23,2,19333,0)="""DATA"",396.18,226,3,466,0)"
^XMB(3.9,23,2,19334,0)="MS&RMU^EM<GO3`JLQ2+*;#FL+NJ*7,*^,""*QTWGQ./B$S$,>S'HCH>%-/AN8Z"
^XMB(3.9,23,2,19335,0)="""DATA"",396.18,226,3,467,0)"
^XMB(3.9,23,2,19336,0)="M0I""D3(F^9-U59%.@R""FC:4@U@Q#5!W+9Z7<L:7ZP(#@U#U#K0K4""R)FDJCXM"
^XMB(3.9,23,2,19337,0)="""DATA"",396.18,226,3,468,0)"
^XMB(3.9,23,2,19338,0)="MG6'[$I=$=JWVS9EJVN4-I']P.E5/PE#5J;::F[]+8@:+4B9$LICAHM""<F.ER"
^XMB(3.9,23,2,19339,0)="""DATA"",396.18,226,3,469,0)"
^XMB(3.9,23,2,19340,0)="MMTQE\[!T'I#/1A):*Z.'I+1:3FN;53B2#TG1TH,G9\0_ZI13Q#_N%%27?]S3"
^XMB(3.9,23,2,19341,0)="""DATA"",396.18,226,3,470,0)"
^XMB(3.9,23,2,19342,0)="M(FDSE+I3P(S_EBGEQV@_8%L8TW]@!X;W0+<+1EXR@0.&F<&=Q`PX<DRY`?%7"
^XMB(3.9,23,2,19343,0)="""DATA"",396.18,226,3,471,0)"
^XMB(3.9,23,2,19344,0)="M\66P`U:R0]\T0UIC394\Q:>A*QF#5UUXQNB-T(%_>('=.WYZ""V[$BM-9<FH]"
^XMB(3.9,23,2,19345,0)="""DATA"",396.18,226,3,472,0)"
^XMB(3.9,23,2,19346,0)="M'FZY1[D?<MV?]G]Z4U(X;4;L.8671O+4Z%F&._ZJTITA^15%\CYU&0^J2A[1"
^XMB(3.9,23,2,19347,0)="""DATA"",396.18,226,3,473,0)"
^XMB(3.9,23,2,19348,0)="MC>-IY=</&5$NGTEPH6\DN-!Q@FLH5>)`+O.4N]>V5C+B,NQ@SWM6+OM2:ZBM"
^XMB(3.9,23,2,19349,0)="""DATA"",396.18,226,3,474,0)"
^XMB(3.9,23,2,19350,0)="MM5&;""M^`L;`I8[E3&2MPSL58<C[4>:[2<-)5BGCE9N0J];'*@&TJN0KK/>!1"
^XMB(3.9,23,2,19351,0)="""DATA"",396.18,226,3,475,0)"
^XMB(3.9,23,2,19352,0)="M,@S*CQT&Y<.>PN',E'<94NX=RV#%LA$^R%1*G2Y2;AQR-!N'>+5>=[38])QI"
^XMB(3.9,23,2,19353,0)="""DATA"",396.18,226,3,476,0)"
^XMB(3.9,23,2,19354,0)="MTXO<$TP/FT_/G38]A$]!/L=D?G6%+9ZJLWO.)*7=ULRQA[#:C\5?[S^SO7/\"
^XMB(3.9,23,2,19355,0)="""DATA"",396.18,226,3,477,0)"
^XMB(3.9,23,2,19356,0)="MJ7L7^B?9.Q%^M;APFPN??.NBJ3O'!>>/VCH5B.R%[YYS>L:S)V]?<)+=4^;/"
^XMB(3.9,23,2,19357,0)="""DATA"",396.18,226,3,478,0)"
^XMB(3.9,23,2,19358,0)="M7*:X/*N?`PU[_7C?G=[OY_HJ]<Q!H5+%<O1*`E(%.KI0AZU2$Y3'J?]X7$]@"
^XMB(3.9,23,2,19359,0)="""DATA"",396.18,226,3,479,0)"
^XMB(3.9,23,2,19360,0)="M5:)%NMH""2@L`8DL%X7I6@'P!QQ$2!T;FC4/5O%U7H]>'2&ERV1BC;RZS5%D$"
^XMB(3.9,23,2,19361,0)="""DATA"",396.18,226,3,480,0)"
^XMB(3.9,23,2,19362,0)="M(V=_()M`R""@8YY21S`(C#TC[5SZJ?5PH]_/COJ""Q!<[6,`CHHB,""NG)9J7U$"
^XMB(3.9,23,2,19363,0)="""DATA"",396.18,226,3,481,0)"
^XMB(3.9,23,2,19364,0)="M,/<:JYT<JVWD:#`D4QU1HOZ@D*@!;P5ST?GO))3""+@.,ABX#I#!IU;H%""H^]"
^XMB(3.9,23,2,19365,0)="""DATA"",396.18,226,3,482,0)"
^XMB(3.9,23,2,19366,0)="M#.KH;O'6W)H<5(PBE5JKG+NCUHOZQC'?9)6VEOI""YE[,SJ-/R%>?-W#U(=5*"
^XMB(3.9,23,2,19367,0)="""DATA"",396.18,226,3,483,0)"
^XMB(3.9,23,2,19368,0)="MU2XMVY]X]SG.]>Z;<O<Y4]W)GHD[V95WV%5;:%CMO'$\C3O9?]Z@S;N<PA'!"
^XMB(3.9,23,2,19369,0)="""DATA"",396.18,226,3,484,0)"
^XMB(3.9,23,2,19370,0)="M?_DTCV_@34;&81IO4,HHML9WG\&=C$]DL9Q.&[L'B&QS+0Q?M;`7GC$WD##G"
^XMB(3.9,23,2,19371,0)="""DATA"",396.18,226,3,485,0)"
^XMB(3.9,23,2,19372,0)="M22$'52J+IU+`^)N+EQP%CW9[0^0'`+(O``VXS*R\GP,$S0%IUABG3:AM=$$8"
^XMB(3.9,23,2,19373,0)="""DATA"",396.18,226,3,486,0)"
^XMB(3.9,23,2,19374,0)="M#X70&T!@<6D<S@*/8ZHRUUV.:]O(N>,[F./R(1$\*(#5XI<CX3\3)GUK/&L:"
^XMB(3.9,23,2,19375,0)="""DATA"",396.18,226,3,487,0)"
^XMB(3.9,23,2,19376,0)="MTXNAY1<E90I`RXL.`Y@BNN7)+LM+7CPKA?.?7$\>O#FD>T.X-0R5;#1\SJ@2"
^XMB(3.9,23,2,19377,0)="""DATA"",396.18,226,3,488,0)"
^XMB(3.9,23,2,19378,0)="M%TA*G)9?>-]%I[VI74!(/E2@N7FS<V\0UFR06F/3;L^@MC8SW8M1/4TETLYP"
^XMB(3.9,23,2,19379,0)="""DATA"",396.18,226,3,489,0)"
^XMB(3.9,23,2,19380,0)="M#?[<).B:7X7.]2I\X5>A@[1W(>8U]?K&4%R&'C:_""]\+2'LOVE4Q[#O'0VX>"
^XMB(3.9,23,2,19381,0)="""DATA"",396.18,226,3,490,0)"
^XMB(3.9,23,2,19382,0)="M*2T_4$A-[*HHRV_*)6<(,G-@,'3;CQ8->4IPW\LNM0240[>""++RFR1X0/O*&"
^XMB(3.9,23,2,19383,0)="""DATA"",396.18,226,3,491,0)"
^XMB(3.9,23,2,19384,0)="M6$""*'2$^O-&5(=D*'L"">IQ0O7..^=T2R-V'W&ZO>SAI`^)>ZH3?XWUEMP.S2"
^XMB(3.9,23,2,19385,0)="""DATA"",396.18,226,3,492,0)"
^XMB(3.9,23,2,19386,0)="M>,K5.N1\O3\N5+""3,A(5(+6S!O<3/;G^>K8K.DI4,`!71]WQ02IIPSV=[HY="
^XMB(3.9,23,2,19387,0)="""DATA"",396.18,226,3,493,0)"
^XMB(3.9,23,2,19388,0)="MR2)T`T7\-E09NT&D,`@#/_3Z%I=ZEZ]*O=KU.J)10.T(FJ16\!D2WUJMP,\L"
^XMB(3.9,23,2,19389,0)="""DATA"",396.18,226,3,494,0)"
^XMB(3.9,23,2,19390,0)="M`M&0:[0AY;?0+3YL=NMLWROA?HY;62BY<,<=1E+ZK:J.A3\XR@A4:]DC'/K/"
^XMB(3.9,23,2,19391,0)="""DATA"",396.18,226,3,495,0)"
^XMB(3.9,23,2,19392,0)="MXRZ*R3TOM;N\8ZVADL6H4^@HKXNQL4[_\_]02P,$%``""``@`$50A-0G_J4[4"
^XMB(3.9,23,2,19393,0)="""DATA"",396.18,226,3,496,0)"
^XMB(3.9,23,2,19394,0)="M%0``\)X``!@```!&:6)R;VUY86QG:6%?,3$S+G!N;""YC9&7M/6USXD;2G[U5"
^XMB(3.9,23,2,19395,0)="""DATA"",396.18,226,3,497,0)"
^XMB(3.9,23,2,19396,0)="M^0]3?-F[2]9&$B_F*B2%0=Y5'2!.PMEG/Z5DD&W5@L0AL5[_^YO1^[R/@-WD"
^XMB(3.9,23,2,19397,0)="""DATA"",396.18,226,3,498,0)"
^XMB(3.9,23,2,19398,0)="M\IBD$BSU=/?T]/1T3_<,5U=@,1^[P%WM@UWRPYL?WE@/X#;8QXES""(?:#V_`"
^XMB(3.9,23,2,19399,0)="""DATA"",396.18,226,3,499,0)"
^XMB(3.9,23,2,19400,0)="MQ'\(0G]^V/K[8`5NK9O?9_[:7OQNA:O-8>VO(0@`KI\P7H$A:)<8W&0?A(\U"
^XMB(3.9,23,2,19401,0)="""DATA"",396.18,226,3,500,0)"
^XMB(3.9,23,2,19402,0)="M*,?_S\&/$R:&\AU$@9Z.%Q]GCK<.HO?[Z+#3.I>NO_%7\+V5^-N21%R16""[@"
^XMB(3.9,23,2,19403,0)="""DATA"",396.18,226,3,501,0)"
^XMB(3.9,23,2,19404,0)="MTP+GP@O]C=:^O$&OD^AA'X4)0NQM8I_9V`_7_KZ&('M`\O*(>.F6K`09*T6;"
^XMB(3.9,23,2,19405,0)="""DATA"",396.18,226,3,502,0)"
^XMB(3.9,23,2,19406,0)="MFT.21*'>O?PMB(/[C=^L=<JRWM9UO:?,]EWH;W>;Z""65*/76%+QS_""38<UXY"
^XMB(3.9,23,2,19407,0)="""DATA"",396.18,226,3,503,0)"
^XMB(3.9,23,2,19408,0)="M6S^.O4>?9$Z=+_=ENTNB;5S#4#QB""L40B[0CE""C5F&)GL8]@X^U/6?>T_/^&"
^XMB(3.9,23,2,19409,0)="""DATA"",396.18,226,3,504,0)"
^XMB(3.9,23,2,19410,0)="MD7T9;Z+8S[Y^B.)=D'B;[""][%X1!%&9_3+[6Q9$AA.RT6J#VW-'H1X9!/4LI"
^XMB(3.9,23,2,19411,0)="""DATA"",396.18,226,3,505,0)"
^XMB(3.9,23,2,19412,0)="M4D\+XM2+G`_J^>1K^8C7Y=^G09S@?6/U]W?WL-UZ^Y>?\@E)#7\-&Y=O2;<*"
^XMB(3.9,23,2,19413,0)="""DATA"",396.18,226,3,506,0)"
^XMB(3.9,23,2,19414,0)="M&A1`3H[?E]%DF@_9^T'VQ?P2K/UPE?=B$GB/810'<0[U-0=Z>(!:42,$\=##"
^XMB(3.9,23,2,19415,0)="""DATA"",396.18,226,3,507,0)"
^XMB(3.9,23,2,19416,0)="M\WY`/2NPTP(O""-%HOM)84O+%XPOJ,6WD#)W0Y`O<G&'3;YA//AQ&5X`Q%&#Z"
^XMB(3.9,23,2,19417,0)="""DATA"",396.18,226,3,508,0)"
^XMB(3.9,23,2,19418,0)="M""C`:FR&0?3#0;AM]5#IPK0`S8,!<7?E?O2W4FWT,PBBAF=69C:P0ZMEAE<#I"
^XMB(3.9,23,2,19419,0)="""DATA"",396.18,226,3,509,0)"
^XMB(3.9,23,2,19420,0)="M%=>:I/.8L0I=QNSQR2U_8::&K*:<H4TU)YWE#II=]]%7+FBNO^87;]/ZX8T9"
^XMB(3.9,23,2,19421,0)="""DATA"",396.18,226,3,510,0)"
^XMB(3.9,23,2,19422,0)="MKJT'M'Q?7;TK/\#Q'P\;;P_&T=H'U?,,#N\M6O9+WHWVY7@3K#ZGZ^]R?T`#"
^XMB(3.9,23,2,19423,0)="""DATA"",396.18,226,3,511,0)"
^XMB(3.9,23,2,19424,0)="M*91@#>S?AR!)^0D>2*Q:<ZR%&HG0Z@RTA1EI:9<`0B=//GA;V.E[']F2M9]X"
^XMB(3.9,23,2,19425,0)="""DATA"",396.18,226,3,512,0)"
^XMB(3.9,23,2,19426,0)="MP<9?__,MV""!#MH[\5%G`""E+V@A!X$""1&RR+(QCDU_ME7\-:$PP$*A&BHWOZ$"
^XMB(3.9,23,2,19427,0)="""DATA"",396.18,226,3,513,0)"
^XMB(3.9,23,2,19428,0)="MB(3@(=ILHN>48%`3,/H#VI'T>;T9>`[""=?1\V0(_@O&3M_^;9OP=?FWIER`;"
^XMB(3.9,23,2,19429,0)="""DATA"",396.18,226,3,514,0)"
^XMB(3.9,23,2,19430,0)="M=^![JR>PRYM`L6Q5.N.%:^""'""?19$/`>>E-I1]9>XE&DC$N0R@_$A_LM[%42"
^XMB(3.9,23,2,19431,0)="""DATA"",396.18,226,3,515,0)"
^XMB(3.9,23,2,19432,0)="M`6^U\G<0RV:38>$U[5R""9903\M90)+""K<,G*>8LAX9WO)0`Z<KL8:.^`<=FB"
^XMB(3.9,23,2,19433,0)="""DATA"",396.18,226,3,516,0)"
^XMB(3.9,23,2,19434,0)="MQA*IXC^(#U3<5;1?Q_#_7P+_&9#O42N0*P'A4*6V!3>=:)I4#N7]""_AMY-C@"
^XMB(3.9,23,2,19435,0)="""DATA"",396.18,226,3,517,0)"
^XMB(3.9,23,2,19436,0)="M_I""DP^U]@9+S(+\MS`]%`]S-<""W]KZGE'K][@#*&G4IY>O;B5+`2K&F/\ZXV"
^XMB(3.9,23,2,19437,0)="""DATA"",396.18,226,3,518,0)"
^XMB(3.9,23,2,19438,0)="M8/GG7\[#LR)UXXP"",TKBT)</5E`?LM'\1H(SSBDX@R4XPMX49'.C,\Q-CGR)"
^XMB(3.9,23,2,19439,0)="""DATA"",396.18,226,3,519,0)"
^XMB(3.9,23,2,19440,0)="MRP'YEBQKU>%A+EWQ@K]FZI1V^=M.FCJ'^-_06(QA7`FGS_8`[=-],8T0;O\A"
^XMB(3.9,23,2,19441,0)="""DATA"",396.18,226,3,520,0)"
^XMB(3.9,23,2,19442,0)="MVONY]4F0-<MLUB[:)W6#@R@5^G""<7L@D8'QC"">#S(?YNHJ!']OL.VU$&Z`^2"
^XMB(3.9,23,2,19443,0)="""DATA"",396.18,226,3,521,0)"
^XMB(3.9,23,2,19444,0)="M*\%K1:=4H,*U(*/CHJ6RKPN(=3#[AUH-014_0WMQB\?/D""N%&#AO)8)""(O_D"
^XMB(3.9,23,2,19445,0)="""DATA"",396.18,226,3,522,0)"
^XMB(3.9,23,2,19446,0)="MQVD/Q7%^;I4$47D.48I2@3J2KAKY,K`0[`J0(*4WS9X)Y,@UVIW`%HG@OG!*"
^XMB(3.9,23,2,19447,0)="""DATA"",396.18,226,3,523,0)"
^XMB(3.9,23,2,19448,0)="M:9]4J5O%LG!;P]5IBBL#(E<OGA!*Q2ZQ3KU[%-`9EV:(+%R-;EVDFPQ;5P2%"
^XMB(3.9,23,2,19449,0)="""DATA"",396.18,226,3,524,0)"
^XMB(3.9,23,2,19450,0)="MBT[KJ<-V6*#BG@Q;-IS6^ZPO9&?T`M^PQ%;;<]A&>IL&*/2B1GC#)CP[Q*O#"
^XMB(3.9,23,2,19451,0)="""DATA"",396.18,226,3,525,0)"
^XMB(3.9,23,2,19452,0)="M)HH_PZ=HTR;.-8C%2_]:P$K9-4,`E*$9J*#I*/6**<Z??U&39RW2YPBT!C'>"
^XMB(3.9,23,2,19453,0)="""DATA"",396.18,226,3,526,0)"
^XMB(3.9,23,2,19454,0)="M^-Y^""U_7X.JKF432D"">QJ'F2KEC@""9&&8(R%$`A7B18;K*.""J\/`E4NHG-52"
^XMB(3.9,23,2,19455,0)="""DATA"",396.18,226,3,527,0)"
^XMB(3.9,23,2,19456,0)="MI21G-7]^T9R0L.+%6:`24HW@*<1?>""2%AK;""%9.XNI)AH(RM&)QIP66J@)GP"
^XMB(3.9,23,2,19457,0)="""DATA"",396.18,226,3,528,0)"
^XMB(3.9,23,2,19458,0)="M`KA::6Y%DD0L?`S6?KS;^]X:>6G81-YY0=BJK6W9L#(6(1R@(P/H\@&(ONG*"
^XMB(3.9,23,2,19459,0)="""DATA"",396.18,226,3,529,0)"
^XMB(3.9,23,2,19460,0)="MD)HR),U_;8D7R`JMRB<)JQ@<OK38$%T!!""4%EH9QA=L`V&B&N0''RJ`,65:V"
^XMB(3.9,23,2,19461,0)="""DATA"",396.18,226,3,530,0)"
^XMB(3.9,23,2,19462,0)="ME^G2TF9R'F$.+0X^H'5(Z#%W:`61X&?.?SDSU+1F\S.0Q@^$1-L-.SR0AP@4"
^XMB(3.9,23,2,19463,0)="""DATA"",396.18,226,3,531,0)"
^XMB(3.9,23,2,19464,0)="MA09=QOBA^DR[S1V>LXG-GVO*CZPO@1KIUN';0!Q:=4^,1XS49H):\9I>;C4#"
^XMB(3.9,23,2,19465,0)="""DATA"",396.18,226,3,532,0)"
^XMB(3.9,23,2,19466,0)="M""T%)3KKB;93:(D(K?^@SE[N.Q$\P-""4_P=!XRYELW9O*6.:[R%WUB*,CB3AJ"
^XMB(3.9,23,2,19467,0)="""DATA"",396.18,226,3,533,0)"
^XMB(3.9,23,2,19468,0)="MW21]\]K,$]+'7'2YE&5""YLB8#""2E?D8^2PF&>J*)8>C""B2$F6;,,7)JL^6'H"
^XMB(3.9,23,2,19469,0)="""DATA"",396.18,226,3,534,0)"
^XMB(3.9,23,2,19470,0)="M""O/#T$6IBC)-'^V!>]@_^OL7FFE&SJ_8N'&0@""\4&@SS'EZ(TZZ9\""YRAE40"
^XMB(3.9,23,2,19471,0)="""DATA"",396.18,226,3,535,0)"
^XMB(3.9,23,2,19472,0)="M0QU2PIQ*""-3!\CPGG7XKR9\C(\I+O@IV84J*&KT-<\$LL*A$A5(!G7H6X(+9"
^XMB(3.9,23,2,19473,0)="""DATA"",396.18,226,3,536,0)"
^XMB(3.9,23,2,19474,0)="MXE-TR+89JRS;4_$:)=\VT<I#V;`6^+%,F-'CDH8[EU-4X""""BAOWY(T5\[26^"
^XMB(3.9,23,2,19475,0)="""DATA"",396.18,226,3,537,0)"
^XMB(3.9,23,2,19476,0)="MG`Z<""Z<2RC9-O3@*D;HG+SL?1`\@SM1>S$&)-5]`+B[JVZC%6T$['M?U0I(/"
^XMB(3.9,23,2,19477,0)="""DATA"",396.18,226,3,538,0)"
^XMB(3.9,23,2,19478,0)="MMKNPEJ,I&,TG8&J/1TO+GO\3H!U>8FCQ-.9DM#0KL/J@X'""..7+M.;`=L/RT"
^XMB(3.9,23,2,19479,0)="""DATA"",396.18,226,3,539,0)"
^XMB(3.9,23,2,19480,0)="M,(%]""]P[Y[WI?,(;EY+&6_]#_""%RJ]66=-7G%'F_'$:F&!I-4/:L835@A.G,"
^XMB(3.9,23,2,19481,0)="""DATA"",396.18,226,3,540,0)"
^XMB(3.9,23,2,19482,0)="MIUJO7MU""SB4B]0M(PH:@0`!'=A=^#J/GL""4N#=`[BCT!F(QK4Y)+ARQ""N,:R"
^XMB(3.9,23,2,19483,0)="""DATA"",396.18,226,3,541,0)"
^XMB(3.9,23,2,19484,0)="M=N#J:H7JGQCVIBJ,TMAFIYPA_)9ZJQI#P#(FI^`HU;<A$G+*%E`94%6188;)"
^XMB(3.9,23,2,19485,0)="""DATA"",396.18,226,3,542,0)"
^XMB(3.9,23,2,19486,0)="M/H#HO;V/B@;@V""11:EH*%;;GTT_@&153N%E%0A`#&`7'L;]N,187UFK%K1PA"
^XMB(3.9,23,2,19487,0)="""DATA"",396.18,226,3,543,0)"
^XMB(3.9,23,2,19488,0)="M%80<M;W_+MKYH:RZ*=<E:2$#\2F*-MR=OPH>@A7`2QK*+8$-J_:G\KTQ)T>G"
^XMB(3.9,23,2,19489,0)="""DATA"",396.18,226,3,544,0)"
^XMB(3.9,23,2,19490,0)="M_""HLK:USW^(^%;TU[^.9,$Y%TK#(OM&<=?BT4SU398V"",Y4X0WO%""JPQO6--"
^XMB(3.9,23,2,19491,0)="""DATA"",396.18,226,3,545,0)"
^XMB(3.9,23,2,19492,0)="M\)['G,""-UG01`NY>KU3T98C%TPB*>5PE.*^1&1J*50T(FE)Q-TX42""3::Q+$"
^XMB(3.9,23,2,19493,0)="""DATA"",396.18,226,3,546,0)"
^XMB(3.9,23,2,19494,0)="ML[8C_Q>'FAGL:6))O`XV<\,F7Y![9!F-L*:5G3+-HPB=0I4;<F2GV9['M5*3"
^XMB(3.9,23,2,19495,0)="""DATA"",396.18,226,3,547,0)"
^XMB(3.9,23,2,19496,0)="M']XLHMUA`_WW<;2]CSX&R5,.EM8&IA)`+VZ@+C2`U>DN#$2EEV0]=RUP+*BS"
^XMB(3.9,23,2,19497,0)="""DATA"",396.18,226,3,548,0)"
^XMB(3.9,23,2,19498,0)="M(R*R91DOQ.D""]Y(NZT7MXNJPW\,X8O-""U""Q>XA48I#N!]&F@1)YZQ(Y@4+@D"
^XMB(3.9,23,2,19499,0)="""DATA"",396.18,226,3,549,0)"
^XMB(3.9,23,2,19500,0)="MH8DF<I\3+AU'=!7L5X=MG'CA""KD^,$(,PB`)8&""S]<+@P8=OLCK1*""M670<Q"
^XMB(3.9,23,2,19501,0)="""DATA"",396.18,226,3,550,0)"
^XMB(3.9,23,2,19502,0)="M#+1D?""*""-YRJAD8<?WSR4C<K934Z[*'?%@>HZ!VRY"">_BKD0VZM&?(SV:8DL"
^XMB(3.9,23,2,19503,0)="""DATA"",396.18,226,3,551,0)"
^XMB(3.9,23,2,19504,0)="M_&^N+2""!`6>RA=_B([DHO5@%N'P]O;A@;YP8'$$?V<6T(-A/3P""DXR[O\D79"
^XMB(3.9,23,2,19505,0)="""DATA"",396.18,226,3,552,0)"
^XMB(3.9,23,2,19506,0)="MZ?(+(06,&C/6KD-(VG,&$#U?./;-U)Q5@2]A*=@!;(6@_E<>@:-XVIZ[YA*/"
^XMB(3.9,23,2,19507,0)="""DATA"",396.18,226,3,553,0)"
^XMB(3.9,23,2,19508,0)="MV`='(1Q;SOANYBY'\['IIOL!UMQ:6J,IF(WFUJT)WZ#-`1?1JH7N?2IR5Z-F"
^XMB(3.9,23,2,19509,0)="""DATA"",396.18,226,3,554,0)"
^XMB(3.9,23,2,19510,0)="MWSFN""5P+4B/[P)ZC30G<.8XY7X*E8XZ6,_C-K0CP%!HGP53H'F>JR!ER3'>!"
^XMB(3.9,23,2,19511,0)="""DATA"",396.18,226,3,555,0)"
^XMB(3.9,23,2,19512,0)="M.@J6=L5431M$9'#&2HVNV7N=B(05%.C.20<4*1&#GQI2,?7<(R0""8#G]F3FQ"
^XMB(3.9,23,2,19513,0)="""DATA"",396.18,226,3,556,0)"
^XMB(3.9,23,2,19514,0)="MR/TF#)>$+BXP_>AQL5PPMN=+:WYGW[F@X@HXYK_O+,><@%O;24$<>\H;+[W)"
^XMB(3.9,23,2,19515,0)="""DATA"",396.18,226,3,557,0)"
^XMB(3.9,23,2,19516,0)="M>*6]U)I+;&*Z8\=:%(-&:3@A1XTY,\5B-(Z7HVM-3&#>WIKCI2MA3TQ307C'"
^XMB(3.9,23,2,19517,0)="""DATA"",396.18,226,3,558,0)"
^XMB(3.9,23,2,19518,0)="MRNX&69R*34)@:GJ'0*^;,S"":3""PT<M"">CNT989#J.&M[F@""CCX5@W0QZ2%`Y"
^XMB(3.9,23,2,19519,0)="""DATA"",396.18,226,3,559,0)"
^XMB(3.9,23,2,19520,0)="M><,T=WY)9UR\_4F#E]$(ML:E01.V/3E@/&>:?QR$&]ZWF-N5U\RG??9VK$X="
^XMB(3.9,23,2,19521,0)="""DATA"",396.18,226,3,560,0)"
^XMB(3.9,23,2,19522,0)="MP1.9YJ(^B0^O-X9G%`$""00S*>""O&P`WR:2@Z5JX2K1>RO1;,$\J(=DET%]D0"
^XMB(3.9,23,2,19523,0)="""DATA"",396.18,226,3,561,0)"
^XMB(3.9,23,2,19524,0)="MS+`AT#C/Z_B$-H1)6Z-I<Y&1D&J>\\^_'.$W\P24SR0%)@M(TE()H@PY^5)&"
^XMB(3.9,23,2,19525,0)="""DATA"",396.18,226,3,562,0)"
^XMB(3.9,23,2,19526,0)="MZD*Z8$TGK7I!#V:CT90/I\P^5.&'`F`I(B)NX""2K#9V3(V9VG3DC-<8>$""!K"
^XMB(3.9,23,2,19527,0)="""DATA"",396.18,226,3,563,0)"
^XMB(3.9,23,2,19528,0)="M(&B@HXY&<XH%V$%;640D9KHJVN#S3*P/1[!,YB,T[MI3I%QN6O6*`3SJHC(V"
^XMB(3.9,23,2,19529,0)="""DATA"",396.18,226,3,564,0)"
^XMB(3.9,23,2,19530,0)="M9:L1*]M3""Z\:MJS'2@V;LN,A$1+`P/('1/N5>\1C4AZ>XZ*I<F)HQ^C)^^*#"
^XMB(3.9,23,2,19531,0)="""DATA"",396.18,226,3,565,0)"
^XMB(3.9,23,2,19532,0)="MG;=/=X6""\""':;[WLT/%N@_:""P$,0!O$32KVOT""P$R5,0UP&+8TX97''**3L)"
^XMB(3.9,23,2,19533,0)="""DATA"",396.18,226,3,566,0)"
^XMB(3.9,23,2,19534,0)="MGQ4C\+)G[`/^\KP6E<_*4WC4<5U,R0<\'6==;""`_5MYO@JZP,L+,'?H;+)Y>"
^XMB(3.9,23,2,19535,0)="""DATA"",396.18,226,3,567,0)"
^XMB(3.9,23,2,19536,0)="MXO14F0D%2$.03F/[<L6K-&%<9<`]I)-CTYIBX_2+J=A]AEX#V../?O#XE""!'"
^XMB(3.9,23,2,19537,0)="""DATA"",396.18,226,3,568,0)"
^XMB(3.9,23,2,19538,0)="M.D0'VBY4&M>7%M)--MB[ML7KCO@UH_Z6A4,`E)KTKBX'89$25E#10IA&<7QJ"
^XMB(3.9,23,2,19539,0)="""DATA"",396.18,226,3,569,0)"
^XMB(3.9,23,2,19540,0)="M+PO/Y\1.DFC.UL?W6<UYXX%N/)+L'C0<2'&H)^MKBQ'VX=T4#[2*#%3&62X"""
^XMB(3.9,23,2,19541,0)="""DATA"",396.18,226,3,570,0)"
^XMB(3.9,23,2,19542,0)="MZ3""KE"">@0U4;'\3)WH=6Y:DL1<@OOF*>,NTJG3+MBJO$`^[M7.QCIMA]6BI%"
^XMB(3.9,23,2,19543,0)="""DATA"",396.18,226,3,571,0)"
^XMB(3.9,23,2,19544,0)="MY%W%<Z;\Z\&$-WIQ3YI*$ILE7%]X(C5N?@$9?KRDY%E\A)0G_GIVM8Y0:XR/"
^XMB(3.9,23,2,19545,0)="""DATA"",396.18,226,3,572,0)"
^XMB(3.9,23,2,19546,0)="M5$:ZTAQ*S)R:XZ4YL9;FK%Z.S1(N`:H(EF/D'HWMJ_/05^.A+^5!.#'1+3]9"
^XMB(3.9,23,2,19547,0)="""DATA"",396.18,226,3,573,0)"
^XMB(3.9,23,2,19548,0)="M6!&S7A-^0T_H""AD-4MZ,PCEV`AMOUN?7V^;WD^%)U@Z69`47!#0K>UO<NJ66"
^XMB(3.9,23,2,19549,0)="""DATA"",396.18,226,3,574,0)"
^XMB(3.9,23,2,19550,0)="M&I6D)""?%?4OP""SMQ6\O/9<G1,+OF!J!_5ZO#SLLOO?%62?`%OO)EG.%+SW4C"
^XMB(3.9,23,2,19551,0)="""DATA"",396.18,226,3,575,0)"
^XMB(3.9,23,2,19552,0)="M!B?HDB*<CXQ!<(@/D(FU%VQ>:JS\*L]S&[RZ8(+T:!L=X$Q&<@BV/H""!3))="
^XMB(3.9,23,2,19553,0)="""DATA"",396.18,226,3,576,0)"
^XMB(3.9,23,2,19554,0)="M1_0<[3^#]<%'97P/P3U\].)M'@,/AB99_M^#D)H.ME#IGF0<05K,K""6Z<(\!"
^XMB(3.9,23,2,19555,0)="""DATA"",396.18,226,3,577,0)"
^XMB(3.9,23,2,19556,0)="M2_%<OY-M8HW>SVW7(K:F.\Q,`KM2OBM+(-0)XG^C9$QJ,AU[]FDT?6^-?@*6"
^XMB(3.9,23,2,19557,0)="""DATA"",396.18,226,3,578,0)"
^XMB(3.9,23,2,19558,0)="M""ZQED4N8?@*C\=+ZS?R5DTH@J<OS9AHO;R9DLTB^,N150\JD#K!/(4,;^C/I"
^XMB(3.9,23,2,19559,0)="""DATA"",396.18,226,3,579,0)"
^XMB(3.9,23,2,19560,0)="M>62<&Z#$39Y9!B/7M<<69&T""/EK+#V#YP61Q6-:\T%SBS+$R'TCWK;GI-I78"
^XMB(3.9,23,2,19561,0)="""DATA"",396.18,226,3,580,0)"
^XMB(3.9,23,2,19562,0)="M:&;?S9=IKM&:F6!JNTMP""\<9?+2=?P%KGC*[&,&G4.]G]GSY`5?!DBYG2)68"
^XMB(3.9,23,2,19563,0)="""DATA"",396.18,226,3,581,0)"
^XMB(3.9,23,2,19564,0)="MR-(^P)Z#._=N-`7V>'RW(%*0;""O(U/P<M'.2QB\_0!6?6.[HQII:RT]OH;[/"
^XMB(3.9,23,2,19565,0)="""DATA"",396.18,226,3,582,0)"
^XMB(3.9,23,2,19566,0)="M%J.,RXH_5*&/--]:6J9+,=MIHO5YF]/FJ6.Z=].E-7^?C1]5V\`FHI#9:W,S"
^XMB(3.9,23,2,19567,0)="""DATA"",396.18,226,3,583,0)"
^XMB(3.9,23,2,19568,0)="M:T)^;*@^3I5]5!`=1NT4I1HY)E)>!TM^IMJ<3\M2W28CJ[!@*3,\*W;=N""I!"
^XMB(3.9,23,2,19569,0)="""DATA"",396.18,226,3,584,0)"
^XMB(3.9,23,2,19570,0)="MKZGKLOEH@O$'VZD+AX]=/HQ$6_TTSMP/]F(!]8S+FWX"";\9IO)G_9SICRS6Y"
^XMB(3.9,23,2,19571,0)="""DATA"",396.18,226,3,585,0)"
^XMB(3.9,23,2,19572,0)="MO!DG\'::50'NPG:6_!'M',]9KW<:9XXY1A4!F-$54V@DM]/L&E@ZH]_,J4CA"
^XMB(3.9,23,2,19573,0)="""DATA"",396.18,226,3,586,0)"
^XMB(3.9,23,2,19574,0)="MNL<S9[1/8^[6A#$1GS42?2.Y#4YC[68$%S*!U`8GL'9]&FL3:-I<$6_7)_#6"
^XMB(3.9,23,2,19575,0)="""DATA"",396.18,226,3,587,0)"
^XMB(3.9,23,2,19576,0)="M/U'=;&MJ+D7,]4]@[L29^MZQ[9F(MU[3Y7UPG/,(RNJ==)TG5O&!V#.L.Z]'"
^XMB(3.9,23,2,19577,0)="""DATA"",396.18,226,3,588,0)"
^XMB(3.9,23,2,19578,0)="M^JZRTAU#S3=%H#WL+"")&YCR5.STJ#X([]>R[N*45/MQ]$M)UB;E%.Z/)=%A<"
^XMB(3.9,23,2,19579,0)="""DATA"",396.18,226,3,589,0)"
^XMB(3.9,23,2,19580,0)="MODP6^VB""8A\\7J%KB.JU12OZ,#KS:8<-V^-V#$:6L:2,A^V,EY<I,$""[`E!&"
^XMB(3.9,23,2,19581,0)="""DATA"",396.18,226,3,590,0)"
^XMB(3.9,23,2,19582,0)="M*46;'AVTV45N-3-\2.H2;(4&*GLOU=XPKY1#UQ@:P8/5&\`:#6`[#6""[#6!["
^XMB(3.9,23,2,19583,0)="""DATA"",396.18,226,3,591,0)"
^XMB(3.9,23,2,19584,0)="M#6#[#6""O&\`.U&&A?Z`,VV/VC5;*`2-!3FE`6:BCKJ:49IR.PS@#CLX9<'3/"
^XMB(3.9,23,2,19585,0)="""DATA"",396.18,226,3,592,0)"
^XMB(3.9,23,2,19586,0)="M@*-W!AS],^""X/@..P>DXC/;I.'I'R31S0&H91/6F68'E=:/&I/UG+I\__])R"
^XMB(3.9,23,2,19587,0)="""DATA"",396.18,226,3,593,0)"
^XMB(3.9,23,2,19588,0)="M@\<0E9=X85(D0ZB[7@;<FUZ8*]D0R]:4(%P<:>]T&8VNG$973,,0WUBCM=DW"
^XMB(3.9,23,2,19589,0)="""DATA"",396.18,226,3,594,0)"
^XMB(3.9,23,2,19590,0)="MULPX2ZM(L,.&<B4OUR-EQKI\3]<ES;O""YH;PSB""MS;XS""""74AL,AR'[Q""!VD"
^XMB(3.9,23,2,19591,0)="""DATA"",396.18,226,3,595,0)"
^XMB(3.9,23,2,19592,0)="M`D/NA\R49M<UKX393?;O,K%N]RN0ZOI`EH(5_MA3K6>U;F%YU.+WG=@>5,I"""
^XMB(3.9,23,2,19593,0)="""DATA"",396.18,226,3,596,0)"
^XMB(3.9,23,2,19594,0)="M1Y:QYX&65P\H-V#<!I<KA*Y!6^U3=_OB%X7JNL&X+8Y&U=8%J#(HB*NO*1""L"
^XMB(3.9,23,2,19595,0)="""DATA"",396.18,226,3,597,0)"
^XMB(3.9,23,2,19596,0)="M5A`10;TG@""I]>XBN?M5@(H+3^7!E!ZZ5J8JDIM13QM""VI6?LD61Z'1%8E@]G"
^XMB(3.9,23,2,19597,0)="""DATA"",396.18,226,3,598,0)"
^XMB(3.9,23,2,19598,0)="M]%D.JG`&'L)=7XMPEEUG7K7*NH,6P4KD8H@H,N'5NC(02K(:;H2S`23SM/Y9"
^XMB(3.9,23,2,19599,0)="""DATA"",396.18,226,3,599,0)"
^XMB(3.9,23,2,19600,0)="MY(<=UT#$^HI0)4OH<)!$!X6R*XW?4-GV\:J&1"":-N&^3;=&XPC/:ZLIGM.7V"
^XMB(3.9,23,2,19601,0)="""DATA"",396.18,226,3,600,0)"
^XMB(3.9,23,2,19602,0)="M3C#@N/V10@I4@S2??-7H-YA:_08F1\T6B[M8,S@<""T9:63&^=@/*3.$2V""0#"
^XMB(3.9,23,2,19603,0)="""DATA"",396.18,226,3,601,0)"
^XMB(3.9,23,2,19604,0)="MH""O-S4&#`1B<=PB/F'_D#YB0P<`W]6>X9O!U)I^B!O75Q&^T-OZ9?8SCE[6_"
^XMB(3.9,23,2,19605,0)="""DATA"",396.18,226,3,602,0)"
^XMB(3.9,23,2,19606,0)="MJ*?"",ZW'F<+7T56:'XKV2WXAUCF7NF^^1%U=U4G!$=CT-25*QWLC_)6Y+'H["
^XMB(3.9,23,2,19607,0)="""DATA"",396.18,226,3,603,0)"
^XMB(3.9,23,2,19608,0)="M?MGCKG+#UT7N=9%[-8.OB]SK(O?_;I'[GHL7^5L]K!;E;N^#""&G[NP:KY'8-"
^XMB(3.9,23,2,19609,0)="""DATA"",396.18,226,3,604,0)"
^XMB(3.9,23,2,19610,0)="MAVT5IKC[HOQ?9""%_P?)/$+V3`^GX2?H;S_QPN4UX$GQ'HMUT][^MOOLOW,OF"
^XMB(3.9,23,2,19611,0)="""DATA"",396.18,226,3,605,0)"
^XMB(3.9,23,2,19612,0)="MV[^$MPO4ZPCP,>T>=_R-9OOB?X7]WT)KAJI*H[!OVE;>-Q5;Z&^>,Q""OQ7\M"
^XMB(3.9,23,2,19613,0)="""DATA"",396.18,226,3,606,0)"
^XMB(3.9,23,2,19614,0)="MCXC4Y^8#S]VP*X.9YB:HD1:]ZM!KDNN/3W(=;3')T+\YHM?)\CI9_B<F""T?C"
^XMB(3.9,23,2,19615,0)="""DATA"",396.18,226,3,607,0)"
^XMB(3.9,23,2,19616,0)="MA4I#.)DR!>/\[AG%>!-GCW!MI.RJ\G`^Y6O""(112_OL7X&^[XC*C_#+VOS.Y"
^XMB(3.9,23,2,19617,0)="""DATA"",396.18,226,3,608,0)"
^XMB(3.9,23,2,19618,0)="MUML=%<EU3Y?<28SQQ=EM(,[N*>*,7U9/@9?L@Y6,<:7`HW=.B1['&U^HO09"""
^XMB(3.9,23,2,19619,0)="""DATA"",396.18,226,3,609,0)"
^XMB(3.9,23,2,19620,0)="M[;%^J%I1NM^5R>^F8M_;-)3&]B[TY1ET0]W%,-1#_$%'J5RMS=QQ8:!3LN<B"
^XMB(3.9,23,2,19621,0)="""DATA"",396.18,226,3,610,0)"
^XMB(3.9,23,2,19622,0)="MFC59#)5%(0]T#?G=0G_L$CY@JEHL$IU,U3KGDBNY?W7V4MGB'^SH5Y=W\BN["
^XMB(3.9,23,2,19623,0)="""DATA"",396.18,226,3,611,0)"
^XMB(3.9,23,2,19624,0)="M3&3$N9^F<$[(""VIN&+]_1MQ(T:0I^[J&1L1E!YQ4$=7>_&FNJ324[G*L_3HQ"
^XMB(3.9,23,2,19625,0)="""DATA"",396.18,226,3,612,0)"
^XMB(3.9,23,2,19626,0)="M<>JMRH]:M9]@A2NGO8#1V'\.?@Q?I>?5KJX`>KP#^_+Q*KT6<9T=:5/""GYM("
^XMB(3.9,23,2,19627,0)="""DATA"",396.18,226,3,613,0)"
^XMB(3.9,23,2,19628,0)="MP/@4!^-*R2XRV=W[Z.<TTZMT@G""U.:Q]X(%B:;=W4&)1>-DJ?VBS^M):0AF^"
^XMB(3.9,23,2,19629,0)="""DATA"",396.18,226,3,614,0)"
^XMB(3.9,23,2,19630,0)="MG7DAPK9$L])+_/@M.""3!)DA>P$-T""-?@D-XBAL3]UMZEOS?S%MRG\P)X2?K\"
^XMB(3.9,23,2,19631,0)="""DATA"",396.18,226,3,615,0)"
^XMB(3.9,23,2,19632,0)="M/H)_;8O;CN+5WO=#L/+0H(%#G/U6G[=>TUR!)""=ZV2JZYU=WQ*!A9`I[*)<C"
^XMB(3.9,23,2,19633,0)="""DATA"",396.18,226,3,616,0)"
^XMB(3.9,23,2,19634,0)="MPI""B2N5V=?6N_""!3`AS_\;""!:C:.H+""J=_G,GWIQXAS""H5:8+?-KD-C_@G0U"
^XMB(3.9,23,2,19635,0)="""DATA"",396.18,226,3,617,0)"
^XMB(3.9,23,2,19636,0)="M?!5!;%F9R!%7[52/E%4)&^I2>9Z]N%*@4G%FY@32PO%QT6&XMOX>:B#4C$)]"
^XMB(3.9,23,2,19637,0)="""DATA"",396.18,226,3,618,0)"
^XMB(3.9,23,2,19638,0)="MN.QKU`A`PAQ0P/S(""6>2''+:$[CLSTAS_*]HIJIRUE;@;&XO:>XP>U7-8%IG"
^XMB(3.9,23,2,19639,0)="""DATA"",396.18,226,3,619,0)"
^XMB(3.9,23,2,19640,0)="MH^R&JNKT<.+=7W).)Z=W$V6S%$Z$;!)]H_DFG6/9+V9""?F_K]VTA$UK-OG,."
^XMB(3.9,23,2,19641,0)="""DATA"",396.18,226,3,620,0)"
^XMB(3.9,23,2,19642,0)="M4C[]FMG6:D:()D0S)@DV`<3W[(/0_P+%[,7(8X!+2R8X>U=RCOC.+ZSZ+U!+"
^XMB(3.9,23,2,19643,0)="""DATA"",396.18,226,3,621,0)"
^XMB(3.9,23,2,19644,0)="M`P04``(`""``15""$UAPVL""JD&``""L'P``&````$9I8G)O;7EA;&=I85\Q,3,N"
^XMB(3.9,23,2,19645,0)="""DATA"",396.18,226,3,622,0)"
^XMB(3.9,23,2,19646,0)="M<&YL+G)E<+49VV[;-O3=@/^!0#!@&QK$EF]ID:6@)<HF*HD:2<7QAF)HT6$H"
^XMB(3.9,23,2,19647,0)="""DATA"",396.18,226,3,623,0)"
^XMB(3.9,23,2,19648,0)="ML""S%U@'[_)U#W4Q+E*D,\TM""Z?#<[PI%FK-,4<U%1F@6$3SA_^R1ICPSSZ>3"
^XMB(3.9,23,2,19649,0)="""DATA"",396.18,226,3,624,0)"
^XMB(3.9,23,2,19650,0)="MF&^E2(\TV7$ZG?S@\9M.[NY$H?-""BSB^OR<W-R07>9&36,B4_`P(?\D__/'K"
^XMB(3.9,23,2,19651,0)="""DATA"",396.18,226,3,625,0)"
^XMB(3.9,23,2,19652,0)="M[\'[<\B[.YY%+*M.5U<(FO[Z]+R:X6]^=54]""_-#*C]\^OR\^_/Y[R_EV\7@"
^XMB(3.9,23,2,19653,0)="""DATA"",396.18,226,3,626,0)"
^XMB(3.9,23,2,19654,0)="MVP#>3B>2/7!V(""(F*8MX2!,B62ADI`8$<_$8-!RR3Y^_KFHB9X^0J^__VV\D"
^XMB(3.9,23,2,19655,0)="""DATA"",396.18,226,3,627,0)"
^XMB(3.9,23,2,19656,0)="M`W=W]J/[^Q$(%ET$BU$(_G<59$#S,C\N%PBO8YXP<J#J#:D$[07UD=GEA&>N"
^XMB(3.9,23,2,19657,0)="""DATA"",396.18,226,3,628,0)"
^XMB(3.9,23,2,19658,0)="M10Y,LD%J""R^1[#@(19K"":Q0#KY;`2W/Q#+@'.00D@W`O(Y%F+)EW0[$O:`UH"
^XMB(3.9,23,2,19659,0)="""DATA"",396.18,226,3,629,0)"
^XMB(3.9,23,2,19660,0)="M![)BCZ5BOKJZ\A""D@JQ9-4>;RZR3""Z:36JU[KK20QT[$]K-E]$TC+G92%/G<"
^XMB(3.9,23,2,19661,0)="""DATA"",396.18,226,3,630,0)"
^XMB(3.9,23,2,19662,0)="MA[_.%<(5T7NP(J$U=4PA>Z%RKFG""?RHSJ)!$%7+'Y/&M9>T65;\I^M4\=R;'"
^XMB(3.9,23,2,19663,0)="""DATA"",396.18,226,3,631,0)"
^XMB(3.9,23,2,19664,0)="MI:W)#3""HBC2E)5<T2<XY4R:YE[QQ9KO,NG49@\S+6UP^8(N[&*]L#!\*>BZU"
^XMB(3.9,23,2,19665,0)="""DATA"",396.18,226,3,632,0)"
^XMB(3.9,23,2,19666,0)="MK8YIKD6J4*S3*N10[U`8M3H3,@$3;L6C20>%E/""VH?2F3S'M#7=6N+5L$LP`"
^XMB(3.9,23,2,19667,0)="""DATA"",396.18,226,3,633,0)"
^XMB(3.9,23,2,19668,0)="M=\14*'E>ND9,!,I4$_I6?6=983ZSS!#,?""C9TB\KU35*""\'PFF;Z%3IFQJA,"
^XMB(3.9,23,2,19669,0)="""DATA"",396.18,226,3,634,0)"
^XMB(3.9,23,2,19670,0)="MCD0)A^Z6`[IS47Q]3I'E7`D(4@>-UR^@,4=-[@66;,VRVC>.))=,P357H,W&"
^XMB(3.9,23,2,19671,0)="""DATA"",396.18,226,3,635,0)"
^XMB(3.9,23,2,19672,0)="MN0(F(\`8<HP:S;,=J@R:H)#);7F.:0AA[PJ=%I&7B&CBQ=SE(A8C-Q>Y.'.="
^XMB(3.9,23,2,19673,0)="""DATA"",396.18,226,3,636,0)"
^XMB(3.9,23,2,19674,0)="MQ=SM.DN7DM=6V$$&@3;)HNC2\WI`WK4M;]""5MX>0)=JM+5G@(UEC""E.)""Q46"
^XMB(3.9,23,2,19675,0)="""DATA"",396.18,226,3,637,0)"
^XMB(3.9,23,2,19676,0)="MB5#O6,(@';9A?L&,""R\S-N`8>HD(3:X=B.P6WMM+YBB%RL$AXF/E'AZ$RIMN"
^XMB(3.9,23,2,19677,0)="""DATA"",396.18,226,3,638,0)"
^XMB(3.9,23,2,19678,0)="M;:U=?M#6NH[J<LK!9AG9`A<&0/+=7IO""DK`8,B@'XZ)1MR)RUK_Y""W@*+O!D"
^XMB(3.9,23,2,19679,0)="""DATA"",396.18,226,3,639,0)"
^XMB(3.9,23,2,19680,0)="M&*);\<`,,UN60+9`Z`,%;;LX""5[`""=HB$FR`%QK'+-2MCN@C1Z\S,-6(A8_9"
^XMB(3.9,23,2,19681,0)="""DATA"",396.18,226,3,640,0)"
^XMB(3.9,23,2,19682,0)="MHY8LY1IJL8N_'NN=Q-+""M\U""R+KR\%W&8^B@H-Q538RK=S07+S=D^?ZH3$>&"
^XMB(3.9,23,2,19683,0)="""DATA"",396.18,226,3,641,0)"
^XMB(3.9,23,2,19684,0)="MX^)9.^;;YMR^]Y@M(JYOV[$""3AOK9&K$R7%A'P/[>#9$-BK?F`'Q@9L\`;J"""
^XMB(3.9,23,2,19685,0)="""DATA"",396.18,226,3,642,0)"
^XMB(3.9,23,2,19686,0)="MD?""Z_5U./#5?FL%0+:DN3II^\PX@8S\T*&Q>),I&@)GAXY<G/Q1&)U`C<PZL"
^XMB(3.9,23,2,19687,0)="""DATA"",396.18,226,3,643,0)"
^XMB(3.9,23,2,19688,0)="M8+\*?VQTGC6RT>@V$2(R=5>=BX;>2FY.'^#]IZ?];Y[XT41[A@G%QHL^P+-P"
^XMB(3.9,23,2,19689,0)="""DATA"",396.18,226,3,644,0)"
^XMB(3.9,23,2,19690,0)="MSY0G(C3NH4)T@@<;;_""_(HO4V*C?-!A)N*?9[FR2:^'\FAN1;D55G""JLD$-."
^XMB(3.9,23,2,19691,0)="""DATA"",396.18,226,3,645,0)"
^XMB(3.9,23,2,19692,0)="M9M'Z/=SX!F>\',HR)`U!ME2QA&?,G\:RI;&#Y-2AL?2FT1D`;KWZ_]7X_G]E"
^XMB(3.9,23,2,19693,0)="""DATA"",396.18,226,3,646,0)"
^XMB(3.9,23,2,19694,0)="M-2+0\478$`D.@ZXC4Z[&=7K8Z925""PM69).XU!:L1S4@Z#E-:1Q):3.8_KVG"
^XMB(3.9,23,2,19695,0)="""DATA"",396.18,226,3,647,0)"
^XMB(3.9,23,2,19696,0)="M;(3L2?\QP$+/I8;RO\=`KIG2]>)L@-N--[=E^E0:$U>1:(4^*8N$$;A;B0%#"
^XMB(3.9,23,2,19697,0)="""DATA"",396.18,226,3,648,0)"
^XMB(3.9,23,2,19698,0)="M#00TSK1#S#O5=^8[+U@'K,H44[;)AEO5L`NI*BG0UE#KRSI/4WB9""ZD=66,U"
^XMB(3.9,23,2,19699,0)="""DATA"",396.18,226,3,649,0)"
^XMB(3.9,23,2,19700,0)="MOZ#FZ23B=)<)Q4]7E,-K4^>Z-0C6[_WV3,$L""!:N=2N^?+TTY1)J72*.N(AJ"
^XMB(3.9,23,2,19701,0)="""DATA"",396.18,226,3,650,0)"
^XMB(3.9,23,2,19702,0)="MUS+7G9_'(N.49J$*J,$B#(O<=+JN?45SQRL%.&2`UO*!:2C86;T,@#&Y%(M%"
^XMB(3.9,23,2,19703,0)="""DATA"",396.18,226,3,651,0)"
^XMB(3.9,23,2,19704,0)="M;_NW=N5EO]&G9G)VLFUPB';;%<VO1H?/3Q^?M\__X!53`O4Q9]B+M^9I_<^"""
^XMB(3.9,23,2,19705,0)="""DATA"",396.18,226,3,652,0)"
^XMB(3.9,23,2,19706,0)="M]9+!NF+&N$+2>H:K9;I$*AA/""E6F><JP1$+2DB(E!R'?(7F<&!,*3^?!=2HR"
^XMB(3.9,23,2,19707,0)="""DATA"",396.18,226,3,653,0)"
^XMB(3.9,23,2,19708,0)="M:+>AY^(BZJ<]\YNW*J4'N-<(::$8C%@H8A\/T.P[Z/=/9`UN+X,VX)LF?[<^"
^XMB(3.9,23,2,19709,0)="""DATA"",396.18,226,3,654,0)"
^XMB(3.9,23,2,19710,0)="MTZY`(:EG(2,15]"":R!TS&TCSR/""&Z>=""[`2;E\;.S(X=R327PP$S\_(`_&H0"
^XMB(3.9,23,2,19711,0)="""DATA"",396.18,226,3,655,0)"
^XMB(3.9,23,2,19712,0)="MS&:EZ!$TK6B!$KOE7""V<%UJHK)__^GKJQ,;""'>1]T7AV=YPSK=H/`C?-P)1+"
^XMB(3.9,23,2,19713,0)="""DATA"",396.18,226,3,656,0)"
^XMB(3.9,23,2,19714,0)="ML4U8JBZZRVH<,>QN<G4,]YQJR4-_.NMQ=-JI\I(6^X@M7NIS""]OGBJS.TV0+"
^XMB(3.9,23,2,19715,0)="""DATA"",396.18,226,3,657,0)"
^XMB(3.9,23,2,19716,0)="M#4(FM(\;+D8FHEF9$/IR7LV`(^O-AL.]6R2""I1G:J,*5_8X_L`Q+^#F9H8(1"
^XMB(3.9,23,2,19717,0)="""DATA"",396.18,226,3,658,0)"
^XMB(3.9,23,2,19718,0)="M+""_M[YV-0,O*VJMA*P%/OSS4WO:*-#V+67G$1196B8N9!<GIFMW^9+4>ZGN]"
^XMB(3.9,23,2,19719,0)="""DATA"",396.18,226,3,659,0)"
^XMB(3.9,23,2,19720,0)="MV]Z5Q_<Q!'.W\YV>L?&A^=+-Q?`M@E\=""6T^#XJ<9^A0DOU80!OI]%H<IJ>3"
^XMB(3.9,23,2,19721,0)="""DATA"",396.18,226,3,660,0)"
^XMB(3.9,23,2,19722,0)="M?P%02P$""%@L4``(`""``15""$UP#-L8*PH``""TT@``%``````````!`""``@($`"
^XMB(3.9,23,2,19723,0)="""DATA"",396.18,226,3,661,0)"
^XMB(3.9,23,2,19724,0)="M````1FEB<F]M>6%L9VEA7S$Q,RYP;FQ02P$""%@L4``(`""``25""$U=:Q!MJ\M"
^XMB(3.9,23,2,19725,0)="""DATA"",396.18,226,3,662,0)"
^XMB(3.9,23,2,19726,0)="M```N9@$`&``````````!`""``@('>*```9FEB<F]M>6%L9VEA7S$Q,RYP;FPN"
^XMB(3.9,23,2,19727,0)="""DATA"",396.18,226,3,663,0)"
^XMB(3.9,23,2,19728,0)="M9G)M4$L!`A8+%``""``@`$50A-0G_J4[4%0``\)X``!@``````````0`@`(""!"
^XMB(3.9,23,2,19729,0)="""DATA"",396.18,226,3,664,0)"
^XMB(3.9,23,2,19730,0)="MPU8``$9I8G)O;7EA;&=I85\Q,3,N<&YL+F-D95!+`0(6""Q0``@`(`!%4(36'"
^XMB(3.9,23,2,19731,0)="""DATA"",396.18,226,3,665,0)"
^XMB(3.9,23,2,19732,0)="M#:P*J08``*P?```8``````````$`(`""`@<UL``!&:6)R;VUY86QG:6%?,3$S"
^XMB(3.9,23,2,19733,0)="""DATA"",396.18,226,3,666,0)"
^XMB(3.9,23,2,19734,0)=">+G!N;""YR97!02P4&``````0`!``4`0``K',`````"
^XMB(3.9,23,2,19735,0)="""DATA"",396.18,226,3,667,0)"
^XMB(3.9,23,2,19736,0)="end"
^XMB(3.9,23,2,19737,0)="""DATA"",396.18,226,4)"
^XMB(3.9,23,2,19738,0)="9^3057957892"
^XMB(3.9,23,2,19739,0)="""DATA"",396.18,226,6)"
^XMB(3.9,23,2,19740,0)="1^416"
^XMB(3.9,23,2,19741,0)="""DATA"",396.18,231,0)"
^XMB(3.9,23,2,19742,0)="ARTERIES, VEINS AND MISCELLANEOUS~113F"
^XMB(3.9,23,2,19743,0)="""DATA"",396.18,231,1,0)"
^XMB(3.9,23,2,19744,0)="^^2^2^3060831"
^XMB(3.9,23,2,19745,0)="""DATA"",396.18,231,1,1,0)"
^XMB(3.9,23,2,19746,0)="Last updated on 06/29/2006 ~113"
^XMB(3.9,23,2,19747,0)="""DATA"",396.18,231,1,2,0)"
^XMB(3.9,23,2,19748,0)="Patch DVBA*2.7*113"
^XMB(3.9,23,2,19749,0)="""DATA"",396.18,231,2)"
^XMB(3.9,23,2,19750,0)="3060602^^3060629.1806"
^XMB(3.9,23,2,19751,0)="""DATA"",396.18,231,3,0)"
^XMB(3.9,23,2,19752,0)="^396.184^1143^1143^3060831^^^^"
^XMB(3.9,23,2,19753,0)="""DATA"",396.18,231,3,1,0)"
^XMB(3.9,23,2,19754,0)="begin 664 AV_Misc_113.pnl.zip"
^XMB(3.9,23,2,19755,0)="""DATA"",396.18,231,3,2,0)"
^XMB(3.9,23,2,19756,0)="M4$L#!!0``@`(`'Q5'S7?.W+4XD0``-Z<`0`/````059?36ES8U\Q,3,N<&YL"
^XMB(3.9,23,2,19757,0)="""DATA"",396.18,231,3,3,0)"
^XMB(3.9,23,2,19758,0)="MW%UKC!S95:[NGJGNF;$]XQW;:Z^]V?(L:\\$[^ST<[J]VGCGY<?NC&>8:=L)"
^XMB(3.9,23,2,19759,0)="""DATA"",396.18,231,3,4,0)"
^XMB(3.9,23,2,19760,0)="M""NQ6=]V>+EQ=U5N/F>F%!8F`EH40""$M``O+@D55$=A,IBW@)^!%`BI!""@`#B"
^XMB(3.9,23,2,19761,0)="""DATA"",396.18,231,3,5,0)"
^XMB(3.9,23,2,19762,0)="M1P0(B(04$!(D$H\?X=Q;MZIN==WNZ?:NXF[[Q[BZJNO>\]US[KGGG'ONZ?+6"
^XMB(3.9,23,2,19763,0)="""DATA"",396.18,231,3,6,0)"
^XMB(3.9,23,2,19764,0)="MU06QO""7K2#M^T,3_+<L66C%TVS2TD754L^-""HFPTXU.C=U3%KB>^&1>O(W6W"
^XMB(3.9,23,2,19765,0)="""DATA"",396.18,231,3,7,0)"
^XMB(3.9,23,2,19766,0)="M;B>^$!M?1GM(VW1L9"";%RMY-0T<GX57+-F55MZWY#?G`_^Z)M@=>:^$75+W#"
^XMB(3.9,23,2,19767,0)="""DATA"",396.18,231,3,8,0)"
^XMB(3.9,23,2,19768,0)="M""ZKNO3""V932=Y@;2G>2)#7AZU3`;\P?^S72J+%<V3069<4$0R@3>NEQ!VB3Y"
^XMB(3.9,23,2,19769,0)="""DATA"",396.18,231,3,9,0)"
^XMB(3.9,23,2,19770,0)="M6VXUT68-OT/`)8K?)NA.N^CB%RFX^-'DBMRT54,71S?6MJ^MA9J:(']Q(S=6"
^XMB(3.9,23,2,19771,0)="""DATA"",396.18,231,3,10,0)"
^XMB(3.9,23,2,19772,0)="M0\W,TF:.19N)+]WVVB""C/;YT^P5RD5YPA_D\:6&.#O.L/\S9V,AU&`-Q=&MS"
^XMB(3.9,23,2,19773,0)="""DATA"",396.18,231,3,11,0)"
^XMB(3.9,23,2,19774,0)="MZ]:6.^0W=!V&/%79VY95""RD3RP8&O&.W-`1WK1U5W]70Z(JA&?""MJK:C:GO("
^XMB(3.9,23,2,19775,0)="""DATA"",396.18,231,3,12,0)"
^XMB(3.9,23,2,19776,0)="M/'(5N#J_4I=-""]G)R=6UJTNWULLOK%Q?VMY9*X^[3\DKR:JVK,G5NQ/D'H7R"
^XMB(3.9,23,2,19777,0)="""DATA"",396.18,231,3,13,0)"
^XMB(3.9,23,2,19778,0)="MK3'RZ:;<0.+1C1UI1]8M:0>9:LU]E?0^(8QOR2;2;7PKQ;*""#AV&32X6<R[L"
^XMB(3.9,23,2,19779,0)="""DATA"",396.18,231,3,14,0)"
^XMB(3.9,23,2,19780,0)="MEPCL40K[7,P;N2E_Y""XNF2!@*K(D65>DVTC5K<O2DKX+SY!C&K9:E=84U)#?"
^XMB(3.9,23,2,19781,0)="""DATA"",396.18,231,3,15,0)"
^XMB(3.9,23,2,19782,0)="M(;[_Z@F?6+.6#4T)P>2`R[O@'B+@)""H5+WO8'O&QS=ZIR[:D6I)=1Y)C.;(F"
^XMB(3.9,23,2,19783,0)="""DATA"",396.18,231,3,16,0)"
^XMB(3.9,23,2,19784,0)="M:495QL\DHP:`)=FV@=(K]X%Y=T""H[IAR<XR#K\#@2WQ6H`""O1\5^<A5955.M"
^XMB(3.9,23,2,19785,0)="""DATA"",396.18,231,3,17,0)"
^XMB(3.9,23,2,19786,0)="M(,D`B.;EY)HN5S2DI+[S@#@P%MW9>RU&^/0D%<*WA2B.""U%&*8X9,(IPR;HR"
^XMB(3.9,23,2,19787,0)="""DATA"",396.18,231,3,18,0)"
^XMB(3.9,23,2,19788,0)="M$*B*+JHWA>'F3M%5C(FW!'86)7Y*B$ZC.<(=:(QAC]5J-&VC80WR/""JF60%,"
^XMB(3.9,23,2,19789,0)="""DATA"",396.18,231,3,19,0)"
^XMB(3.9,23,2,19790,0)="M?)FR""BZBO/IN5@)K)GK)07JUA=%ILMG2=Q%@]L1PL/B8""<VR[Z48O\CAXY6."
^XMB(3.9,23,2,19791,0)="""DATA"",396.18,231,3,20,0)"
^XMB(3.9,23,2,19792,0)="M&""DR:5^UZX9C,YA5?<^`Y:T!!-QG[B;+RXYM&_H$('>OTI2__^).Q5B,3L7G"
^XMB(3.9,23,2,19793,0)="""DATA"",396.18,231,3,21,0)"
^XMB(3.9,23,2,19794,0)="M/>B/!F;&BF98Z'ZNT:GDIKZBJ=6[R>D#E_QK"",P,M4IN""D*JO*Y:]K)Q<`1S"
^XMB(3.9,23,2,19795,0)="""DATA"",396.18,231,3,22,0)"
^XMB(3.9,23,2,19796,0)="MUKU,9]F%[FG*VE=]UC:H[9)>R&>+Q]8.;*0K2-E!&JK:J?$;-FIX<GX4?[""`"
^XMB(3.9,23,2,19797,0)="""DATA"",396.18,231,3,23,0)"
^XMB(3.9,23,2,19798,0)="M0A.,%RLF)M;5IBB6#7W70:*XUD*:JHB)-=D4Q77,^P-Q]#K8`Y8X<A4AZ&$3"
^XMB(3.9,23,2,19799,0)="""DATA"",396.18,231,3,24,0)"
^XMB(3.9,23,2,19800,0)="M*S!A8L/1;-5M?RQD""7*ISX4T3%?R<PM]D3^Y#LNXIKZ,%`EAXT1,;B-%1Q;0"
^XMB(3.9,23,2,19801,0)="""DATA"",396.18,231,3,25,0)"
^XMB(3.9,23,2,19802,0)="MNP5&JYB\85?K\%4Q=:>.T,OXZL2J6JNI50#0DBHFDFWR_-A213$:J@Z2WL0O"
^XMB(3.9,23,2,19803,0)="""DATA"",396.18,231,3,26,0)"
^XMB(3.9,23,2,19804,0)="M=@<*2,?**T:C8E""DWG4Q-`>?CNB9DPRC""B%D0>,C[2""/KP,@F*N@7@L23$O3"
^XMB(3.9,23,2,19805,0)="""DATA"",396.18,231,3,27,0)"
^XMB(3.9,23,2,19806,0)="M$H\6)-N0,CGZ<2*#/^8D16[!ASS^L.A^F-HPB+J&=]T[P*/)\LK6G8UM65&-"
^XMB(3.9,23,2,19807,0)="""DATA"",396.18,231,3,28,0)"
^XMB(3.9,23,2,19808,0)="M:Z;A-*<Q@-""=#-4E2Z[""?,M3F%_P@<PP0/+C.W5CWS6.4T>><RQ;K;4(AK$D"
^XMB(3.9,23,2,19809,0)="""DATA"",396.18,231,3,29,0)"
^XMB(3.9,23,2,19810,0)="M_F]+5A@[<V;5@(6BY:L:JEB(+B+JYN!*$N:>T]""M>/P[,U$CD^(#R!+C-XT."
^XMB(3.9,23,2,19811,0)="""DATA"",396.18,231,3,30,0)"
^XMB(3.9,23,2,19812,0)="M,UCLQ/V0G9/XFM""5_8O^ZA&2@V-NEWA$\7=3J>#*)R#93O##@808>A5)361*"
^XMB(3.9,23,2,19813,0)="""DATA"",396.18,231,3,31,0)"
^XMB(3.9,23,2,19814,0)="M+023^.AFZ..Q\K[*?CX=2(<=>B)T@E@*""?A>5X2Y#@(^VD[^R3219LE6&^!^"
^XMB(3.9,23,2,19815,0)="""DATA"",396.18,231,3,32,0)"
^XMB(3.9,23,2,19816,0)="M^-2=I%+=?IO(=[']]B,!EO9G@&:TO($:QA@@P?]GJ%<T11CU^T)$(Q4IC$PV"
^XMB(3.9,23,2,19817,0)="""DATA"",396.18,231,3,33,0)"
^XMB(3.9,23,2,19818,0)="MLYA^MY;Y;S+2.+$""$U<%^FZB_;`LKJN@OX*Q$4)"".+Y3-0U-6P8*DN.6=1N9"
^XMB(3.9,23,2,19819,0)="""DATA"",396.18,231,3,34,0)"
^XMB(3.9,23,2,19820,0)="MX)?)6C""VL0C4?,A,/01K9IBP)H20JS_FN?JNC,:7B(B^E^*U?$__\0?!TX]%"
^XMB(3.9,23,2,19821,0)="""DATA"",396.18,231,3,35,0)"
^XMB(3.9,23,2,19822,0)="M[+^""J[/C)H&=I+`_S/'T<SQ/?UMNZ;*C7+2DK3K2#;#SL,ME2CLM73'AXP""Y"
^XMB(3.9,23,2,19823,0)="""DATA"",396.18,231,3,36,0)"
^XMB(3.9,23,2,19824,0)="M_05J#9T(.2P?XQCS[[E35ZMUJ6(H+5C63=LBSHM<J\%RCI2!<"",+U#CZ6MC]"
^XMB(3.9,23,2,19825,0)="""DATA"",396.18,231,3,37,0)"
^XMB(3.9,23,2,19826,0)="M>I5CMJ=#[E?(\9*J`$*N8K9:.%(SD&Y8(<]""3;SFJ:*/<+!FPRYS+VCOIUO="
^XMB(3.9,23,2,19827,0)="""DATA"",396.18,231,3,38,0)"
^XMB(3.9,23,2,19828,0)="M%39=,S\3""W'XHWQY!0XW3515FZHMV\AUT08J[+'`HDG\PM`&I=*,$DE\PI/%"
^XMB(3.9,23,2,19829,0)="""DATA"",396.18,231,3,39,0)"
^XMB(3.9,23,2,19830,0)="M7^1P16+=Y8$-1V58/'_JX?D4!\_YP]S_^P*(X]9349MT1>T_/5%;]R!)`^36"
^XMB(3.9,23,2,19831,0)="""DATA"",396.18,231,3,40,0)"
^XMB(3.9,23,2,19832,0)="M)WMUZR<""Q[C$KF/SD;`HXQ:G,WVYQ>.KZJX*J]WZK37_>INY7E]G[L/U1%EM"
^XMB(3.9,23,2,19833,0)="""DATA"",396.18,231,3,41,0)"
^XMB(3.9,23,2,19834,0)="M8O[K,(AB""KQ_S:B`""R2N@--\%WSI%?""1^W7Z%T+KVM,1=-<8=(M]H7N,\!`O"
^XMB(3.9,23,2,19835,0)="""DATA"",396.18,231,3,42,0)"
^XMB(3.9,23,2,19836,0)="M`OHN`M-EOZ[:Z))4T1SX:R*%^OY',)\LD'%+E2TQ==-I5$ADH+MKG^@`)Q-2"
^XMB(3.9,23,2,19837,0)="""DATA"",396.18,231,3,43,0)"
^XMB(3.9,23,2,19838,0)="MXO,1A_A%!DZ^+SA3:P=-PW+PLFY(53!_Q.DR:H#O(MOX)H4I3JXU#""SKLB8Y"
^XMB(3.9,23,2,19839,0)="""DATA"",396.18,231,3,44,0)"
^XMB(3.9,23,2,19840,0)="M39!O4806,)ZQ&SJV9_`T2%X%W80C.=TQCG;R[O*L#OELU.MGO+MTMH-W%VO'"
^XMB(3.9,23,2,19841,0)="""DATA"",396.18,231,3,45,0)"
^XMB(3.9,23,2,19842,0)="M-QTXIWFIH>H.+&OBZ65D[R.$;V$C-!T\.>,]2;N/L@O11W`//RH$CR8WP2!G"
^XMB(3.9,23,2,19843,0)="""DATA"",396.18,231,3,46,0)"
^XMB(3.9,23,2,19844,0)="M;G1T8`LLQ*]VA]C)@8U'_.]-'6%CN4%<4.)[*K*JM<23.<S4`N./`OUWJ<.;"
^XMB(3.9,23,2,19845,0)="""DATA"",396.18,231,3,47,0)"
^XMB(3.9,23,2,19846,0)="M;;_-<^/Q@XC_FBV$%N'?B,)88YRZQ6%RZL0(UL60U>AC?9N+M3A,6$<Z.+`T"
^XMB(3.9,23,2,19847,0)="""DATA"",396.18,231,3,48,0)"
^XMB(3.9,23,2,19848,0)="MBOCKKNH\0P'_I.?*)9YY$#S8>,2$R5""_[OTA#_;/A:@'^Q[N7O5MZ2HH:T<;"
^XMB(3.9,23,2,19849,0)="""DATA"",396.18,231,3,49,0)"
^XMB(3.9,23,2,19850,0)="MI""WJO""N]\=,$T_NH!7,I:I2-K=,-Z<N#8$WFJ0A^20C1/6Q&?K[$COXK%$66"
^XMB(3.9,23,2,19851,0)="""DATA"",396.18,231,3,50,0)"
^XMB(3.9,23,2,19852,0)="M,_H[U+\<B-$O+(1&_Y4A&7W/@A_W+7BZ3'W*5=W3D7VY,P-DP(\>8L`?OFN2"
^XMB(3.9,23,2,19853,0)="""DATA"",396.18,231,3,51,0)"
^XMB(3.9,23,2,19854,0)="M=B=-?))P[1S57Y_V]=?C@6FQ4.QKSV1T1U7097];)'%_MD5&M_';(@$ICBR#"
^XMB(3.9,23,2,19855,0)="""DATA"",396.18,231,3,52,0)"
^XMB(3.9,23,2,19856,0)="MQ'5,0^I@?.78Z;@>&2#&]EHH]&I>)I;,!AB^8'G)<#%:KL,;6)ONPWJMH5W/"
^XMB(3.9,23,2,19857,0)="""DATA"",396.18,231,3,53,0)"
^XMB(3.9,23,2,19858,0)="M%.9[8$6&H,2'A0A%/\A05.K+JA_9D+&O05*FQ*/+CK8+]Z4]O%2)XRM(TQQ-"
^XMB(3.9,23,2,19859,0)="""DATA"",396.18,231,3,54,0)"
^XMB(3.9,23,2,19860,0)="MM56XOJ55D1M2$!_:N:OJDJ):5<P[]]XTR(EI8\<%.VCNAF6O=GZBW9;R=F)="
^XMB(3.9,23,2,19861,0)="""DATA"",396.18,231,3,55,0)"
^XMB(3.9,23,2,19862,0)="MQ=(-,-A2V<4ALZ7:-CZR(24:E;8G&:B%88(:[V`V4N9^1`@E@.1\L_'OA`?`"
^XMB(3.9,23,2,19863,0)="""DATA"",396.18,231,3,56,0)"
^XMB(3.9,23,2,19864,0)="M;$Q$5LLLG<09`ENDL+_"",1L?Y9F-95-V&O*L-7?_K<8)#U+:B^9-A3R`MSC!"
^XMB(3.9,23,2,19865,0)="""DATA"",396.18,231,3,57,0)"
^XMB(3.9,23,2,19866,0)="MO""=PJNVE()T1(U-D&P$@K#!L@N[R8)@#-+QP0)3/VT*[-7!N@*R!V""'60)NN"
^XMB(3.9,23,2,19867,0)="""DATA"",396.18,231,3,58,0)"
^XMB(3.9,23,2,19868,0)="M"";'+2RX^[L^\'_5F7CJ;RY>&0,4('50,Q7D[))9C_M;JZP^""8SH2=4QIT&B<"
^XMB(3.9,23,2,19869,0)="""DATA"",396.18,231,3,59,0)"
^XMB(3.9,23,2,19870,0)="MP![W4O0Y6ZM7>1IFQZC94EFU+`<!)6;5:,@X6'03&4U-MAIXFMZ6K2HXKJ:T"
^XMB(3.9,23,2,19871,0)="""DATA"",396.18,231,3,60,0)"
^XMB(3.9,23,2,19872,0)="M::I@*`R0`YNA#NP9@OT:G;.O1!71V555WM4-2R6&BNTT`.(L.I""K]MQE3K-%"
^XMB(3.9,23,2,19873,0)="""DATA"",396.18,231,3,61,0)"
^XMB(3.9,23,2,19874,0)="MMEDKLNL9M'MN%;09;E+QVY]M-)YJP3]NPR6FX6!?Y^N<EM-8=5J^QG3IQ@86"
^XMB(3.9,23,2,19875,0)="""DATA"",396.18,231,3,62,0)"
^XMB(3.9,23,2,19876,0)="M3G*49E6]JCD*MMHLQ]Q%)K>[[`+;W;][W;W)V=(L>4""`Z3;T:L,,)1*`MS""9"
^XMB(3.9,23,2,19877,0)="""DATA"",396.18,231,3,63,0)"
^XMB(3.9,23,2,19878,0)="M?A6Y=4EJ`#?JETCVRES@U77;9LS2#:U'""""47J:^56(Y%@:]N:4BVD*1XSF/5"
^XMB(3.9,23,2,19879,0)="""DATA"",396.18,231,3,64,0)"
^XMB(3.9,23,2,19880,0)="M,;$(!+NL)M*`6`5'*0/*\$""9R%(51]:LRUUIH;;78BPT+/%Z=%3.AT:%&0:?"
^XMB(3.9,23,2,19881,0)="""DATA"",396.18,231,3,65,0)"
^XMB(3.9,23,2,19882,0)="MQUSTT<6%=OG/KFEK1'S-1X8H![0'7Y-R^QB9/T]09O^>+W;G?<<EDTOWY6L>"
^XMB(3.9,23,2,19883,0)="""DATA"",396.18,231,3,66,0)"
^XMB(3.9,23,2,19884,0)="MWU%=AE#I;-QWOU,D2K4ECF!]*DX0=6H3==K9_^QA!&F093H6&L)?BPXAK-FY"
^XMB(3.9,23,2,19885,0)="""DATA"",396.18,231,3,67,0)"
^XMB(3.9,23,2,19886,0)="MOH;P]!W9W5QUM6!#UM1='29\D-B8Z)1R*""9OZ7=U8U\7NN1TT>E%E>=M2OE?"
^XMB(3.9,23,2,19887,0)="""DATA"",396.18,231,3,68,0)"
^XMB(3.9,23,2,19888,0)="M^#/]+$-Y9C@<FM'RFJ+:*0""(_V<7A\2/""Q&`)QF`68Z_F_+L,K:=ST?;N<RT"
^XMB(3.9,23,2,19889,0)="""DATA"",396.18,231,3,69,0)"
^XMB(3.9,23,2,19890,0)="MLS@L3BX[4%0+G""4`CW@Z_W,"";Z#R@2)E=P+##=)<E5*LEQ8+G!:C^S<YEL9\"
^XMB(3.9,23,2,19891,0)="""DATA"",396.18,231,3,70,0)"
^XMB(3.9,23,2,19892,0)="M+,*$?-!BH3`$3$@*'4X84FD;(;,R07'^DV\<_^;AQO$@F<&CD57=BQZ])H0."
^XMB(3.9,23,2,19893,0)="""DATA"",396.18,231,3,71,0)"
^XMB(3.9,23,2,19894,0)="M$_XAQPY^'\\.OBW#""@<KK_N9/-DR+/O)K;J&*BJV@@8PV3!-;?^C!/,/4ZOB"
^XMB(3.9,23,2,19895,0)="""DATA"",396.18,231,3,72,0)"
^XMB(3.9,23,2,19896,0)="M>Z)&U90?BI\A0;D9?W+@1HF$X%!H%;J10?Y,M]DD:?:*EZWI3[-MSJ'?=ND("
^XMB(3.9,23,2,19897,0)="""DATA"",396.18,231,3,73,0)"
^XMB(3.9,23,2,19898,0)="M*5!.^@RUB#;<N?Q:K'T;X<P0^=OC93HMC8.C@-#_D&,],R_D_A5_SGU?[-1U"
^XMB(3.9,23,2,19899,0)="""DATA"",396.18,231,3,74,0)"
^XMB(3.9,23,2,19900,0)="MPWS9G]+S91/(AFD_-HTG=G!_&R=9)""[$3X5O^U\?7W)LP[W?];QMFL8X$H2@"
^XMB(3.9,23,2,19901,0)="""DATA"",396.18,231,3,75,0)"
^XMB(3.9,23,2,19902,0)="M,3KDS:BXG%YG#Z!6=,/$9H+=XO@8);H#_H8[[\JTT1:G49+9!<:[""L+CFB#D"
^XMB(3.9,23,2,19903,0)="""DATA"",396.18,231,3,76,0)"
^XMB(3.9,23,2,19904,0)="M6,SED""RVQ9H6,FSSB4_>2T8?K]ELJ-E_]%;?#W%<HTLDLF[CH2#$U_`5H5RJ"
^XMB(3.9,23,2,19905,0)="""DATA"",396.18,231,3,77,0)"
^XMB(3.9,23,2,19906,0)="MM#`,4!H-<%D<<#^Z>D-,]]1O'26]_XT'ZFX4U""EN.EQW;-1`$4GC_R>TGSP."
^XMB(3.9,23,2,19907,0)="""DATA"",396.18,231,3,78,0)"
^XMB(3.9,23,2,19908,0)="M&C_3EL?:6_N>IAV+LV*4>#T8.M^\+RPL^)T]L^3F!IN1K%FY!GI$:H+X&B#G"
^XMB(3.9,23,2,19909,0)="""DATA"",396.18,231,3,79,0)"
^XMB(3.9,23,2,19910,0)="MBF39H'VQ:POFZ;ZL81&_TG4XZ=Z61]'57K92>V-4NL2VG/CXNR1^N1#!B6]X"
^XMB(3.9,23,2,19911,0)="""DATA"",396.18,231,3,80,0)"
^XMB(3.9,23,2,19912,0)="MXO=)CO@]2\?-0B$/&$\B!0L@TM`>G:NF5#4:39QWA3_6#0L,C-:5GAST3$@U"
^XMB(3.9,23,2,19913,0)="""DATA"",396.18,231,3,81,0)"
^XMB(3.9,23,2,19914,0)="M?+""+:FB3&2^VR\$;>-P95B(7/%T_'VT]M>,T&K*)%4W4B::\6'67C!6OF:>\"
^XMB(3.9,23,2,19915,0)="""DATA"",396.18,231,3,82,0)"
^XMB(3.9,23,2,19916,0)="M9HZS2P:2F27HU#WD/Z;9`7DXDA>]%FR^%=)];;X=P^U*3K-)]P`GR<XE<\/]"
^XMB(3.9,23,2,19917,0)="""DATA"",396.18,231,3,83,0)"
^XMB(3.9,23,2,19918,0)="M@N9O$M(O:.V[AIUS'ML=S(<B#B;5?[_J:NTCD24^<-'S^?Z.T)V[8=%I+DMU"
^XMB(3.9,23,2,19919,0)="""DATA"",396.18,231,3,84,0)"
^XMB(3.9,23,2,19920,0)="M&$K#;/D*DSD\U_%86\A:[^$TX&((288*Q1X/R&)?0$X`$%?-`V,L0()8)SGN"
^XMB(3.9,23,2,19921,0)="""DATA"",396.18,231,3,85,0)"
^XMB(3.9,23,2,19922,0)="MRWL/2)(=\C:+H;53H5SXA,^%$D-\D#S6E[2=6@OT`W#AP#91`U9R<7HEJBK$"
^XMB(3.9,23,2,19923,0)="""DATA"",396.18,231,3,86,0)"
^XMB(3.9,23,2,19924,0)="MD6UD'7:.-M435RBR7W'7U__U%-R/^=`N,=!*O?'ET)$?P8:HF`0;SE9E34QA"
^XMB(3.9,23,2,19925,0)="""DATA"",396.18,231,3,87,0)"
^XMB(3.9,23,2,19926,0)="MB!JR$<.)\9ZH+S%5;Q(_[Q'_2[S9L5CH2ZC.\V>'X^^S]S=%XKW`\8*OL?#6"
^XMB(3.9,23,2,19927,0)="""DATA"",396.18,231,3,88,0)"
^XMB(3.9,23,2,19928,0)="MUCX/37^I'V<`34#Z.Y\G""38WXRB3FT%M#KJ""?-WCR,_QLC,62_S#JUT.,4^3"
^XMB(3.9,23,2,19929,0)="""DATA"",396.18,231,3,89,0)"
^XMB(3.9,23,2,19930,0)="MDZ@RB6CC953#J<ON""<]LY(1G)&N6W/8S.7K@!SUJM.8&]UZ@8%[SP5Q@P&3Z"
^XMB(3.9,23,2,19931,0)="""DATA"",396.18,231,3,90,0)"
^XMB(3.9,23,2,19932,0)="M8LA9OGCA4^/]""=;1GH`462!^+""RN\8#TMXJ<P%GRDE&M.B88B-AML.Y5J([U"
^XMB(3.9,23,2,19933,0)="""DATA"",396.18,231,3,91,0)"
^XMB(3.9,23,2,19934,0)="M!*44@O)F5RC9_F+6P!/,`##.=&S:WBN.R9YP9$*RY2WL?\""3K4*I+QQS?-FR"
^XMB(3.9,23,2,19935,0)="""DATA"",396.18,231,3,92,0)"
^XMB(3.9,23,2,19936,0)="M(FE!_4G:1$^P<B%8.0KK)[A3)MVWO1(B_YVKL2,]0:*&2]QU6AZG`E?A:.5"""
^XMB(3.9,23,2,19937,0)="""DATA"",396.18,231,3,93,0)"
^XMB(3.9,23,2,19938,0)="MMK\%L@<2ISI8)""%_)WZ+CO,;_CA?9:C*W9M%(BZY52_\/+&Q<MTT*A5\[^AU"
^XMB(3.9,23,2,19939,0)="""DATA"",396.18,231,3,94,0)"
^XMB(3.9,23,2,19940,0)="M).^UI!H""!T<_S-`]WLLPYZBE.^*Z6B.>U_`!WC@OODN&""&?`IWD>#=6?S[A*"
^XMB(3.9,23,2,19941,0)="""DATA"",396.18,231,3,95,0)"
^XMB(3.9,23,2,19942,0)="MY[$N*:CBCE,!NRUH[T1?.2!>IK?KS?Q`Q)NYX*>;9<%E'^:2`OF039WXG!`Q"
^XMB(3.9,23,2,19943,0)="""DATA"",396.18,231,3,96,0)"
^XMB(3.9,23,2,19944,0)="MJIG4NE)IF+"".1;""66*MH/!:QBKZ+86MVF*"".MD/ULLYIQ,1GZQL17PEC':JJ"
^XMB(3.9,23,2,19945,0)="""DATA"",396.18,231,3,97,0)"
^XMB(3.9,23,2,19946,0)="M&`]%L*99MC[KL?4S?N#XJP*#=1CV4$\*G;:E*-0""T4N/4J3?\'/3?OI!R-D2"
^XMB(3.9,23,2,19947,0)="""DATA"",396.18,231,3,98,0)"
^XMB(3.9,23,2,19948,0)="MH^70:+3M;FBOZEN<K-#'>7M5:V;+KN.M*$W6=M5!.E%4I!M2#[-;'ITW`Z`I"
^XMB(3.9,23,2,19949,0)="""DATA"",396.18,231,3,99,0)"
^XMB(3.9,23,2,19950,0)="M^;Z7O>A:G&^1Q?,29=3/\*HCM,5%*30*:U#+/Q2+#+[$ISVM^LN<.'2>7^!#"
^XMB(3.9,23,2,19951,0)="""DATA"",396.18,231,3,100,0)"
^XMB(3.9,23,2,19952,0)="M<;!*&)(B'\42""_=""K#U8&+#SX0XE/@:4CR6Z//Z;P`KJ@!_*Z@HH'0+D;9Y^"
^XMB(3.9,23,2,19953,0)="""DATA"",396.18,231,3,101,0)"
^XMB(3.9,23,2,19954,0)="MB5<4$_LNI&H;3I'$VV2P%AG[)#?2DU(<Z81N!^(`72G#0DO\UK!5P^C*MFP("
^XMB(3.9,23,2,19955,0)="""DATA"",396.18,231,3,102,0)"
^XMB(3.9,23,2,19956,0)="MVS\,6>62KM!R(6B^M?VQPZ!98+28JCW(7,N'H!5BD>-(`;09%AK,JJ:A6RB4"
^XMB(3.9,23,2,19957,0)="""DATA"",396.18,231,3,103,0)"
^XMB(3.9,23,2,19958,0)="MBCLH!5KH-/M+%Q2*#?*)CO%[J;N:9VT3KY3<G_!JF.2R?45HQL@&9,TP;''<"
^XMB(3.9,23,2,19959,0)="""DATA"",396.18,231,3,104,0)"
^XMB(3.9,23,2,19960,0)="MW7LDU^[M.ABBWFUR?6]E5UE#,?''0H3Z[V>H[_-PXW401/'(LF/J>`T@%5/]"
^XMB(3.9,23,2,19961,0)="""DATA"",396.18,231,3,105,0)"
^XMB(3.9,23,2,19962,0)="MRJNG-@S;AN4.1_D5Q[K;DDC@3QPOX_;-'FJPQ#L`6@PM6!X[_I7'CGQ_&\8B"
^XMB(3.9,23,2,19963,0)="""DATA"",396.18,231,3,106,0)"
^XMB(3.9,23,2,19964,0)="M.85IB:EKLKX+PH/8JBK=B1WIN*$2,A@27Q0B]#([*KE.YUW%2+',H,ZEH;LU"
^XMB(3.9,23,2,19965,0)="""DATA"",396.18,231,3,107,0)"
^XMB(3.9,23,2,19966,0)="M0A2Y)4YL,A_FEFP)I_C;4E9ZOU]&1*K@BLY^B1&W0LFIH.8(^UVA(ZJ0U1""<"
^XMB(3.9,23,2,19967,0)="""DATA"",396.18,231,3,108,0)"
^XMB(3.9,23,2,19968,0)="M>.""CRG=`E>RI2,PDJ?3)U(:92I.ZMTQ)F*DL*:7""5((Y7B!WTIG@UF/!D#&W"
^XMB(3.9,23,2,19969,0)="""DATA"",396.18,231,3,109,0)"
^XMB(3.9,23,2,19970,0)="MI=F,6SYWKC/8L!UQ.M85;+$#V$CL\KVK!G2O&^Z>""Z@@N#`<?![$98H$1KZZ"
^XMB(3.9,23,2,19971,0)="""DATA"",396.18,231,3,110,0)"
^XMB(3.9,23,2,19972,0)="MI]K@DXH7M^E7+,D""=[2G+S8,JW.+G<&&#8O5[F`7.X`=BW#VIH$U0=.`/]YB"
^XMB(3.9,23,2,19973,0)="""DATA"",396.18,231,3,111,0)"
^XMB(3.9,23,2,19974,0)="MAO>>R`8R4$;OJ7M(/'O-,)1@Q9N%Z6O1]7Q.:,_MSK*J^4<BRFV&*0J3'>YP"
^XMB(3.9,23,2,19975,0)="""DATA"",396.18,231,3,112,0)"
^XMB(3.9,23,2,19976,0)="M:X@O/M2`+6D&:GZH0Y#Y'+MD^;GB`5>?8*#FAKA6K1^=HVEJ<2=45BSFQR&_"
^XMB(3.9,23,2,19977,0)="""DATA"",396.18,231,3,113,0)"
^XMB(3.9,23,2,19978,0)="MW/.9;=?TB@]^K""X92=;+>OF.K[HBGJ+#\+><:)W$B];=P#]AY)#5VAJ@8]Q9"
^XMB(3.9,23,2,19979,0)="""DATA"",396.18,231,3,114,0)"
^XMB(3.9,23,2,19980,0)="MKR+(A=`1H]_U$^8O^K#^P[4K\!(-EJDTL^RHFB)MF08(>&.&5(;#QC_>&-:P"
^XMB(3.9,23,2,19981,0)="""DATA"",396.18,231,3,115,0)"
^XMB(3.9,23,2,19982,0)="M+XXS#MR'EE359+7AVENJ`M2H-14^T:@1R0$^D'%I>]S1K#4W+Y7KJN6][C:W"
^XMB(3.9,23,2,19983,0)="""DATA"",396.18,231,3,116,0)"
^XMB(3.9,23,2,19984,0)="MKVH:_JHN5:""+/5@R\,R25)V\/[-J5!UR*L\G""'Q_Q=B_),D6*:SKQ05FZ!>@"
^XMB(3.9,23,2,19985,0)="""DATA"",396.18,231,3,117,0)"
^XMB(3.9,23,2,19986,0)="M&=RY@FQH""BF79\!%TUQSBG0XWRTE-)M98(?-VR']..<DXRTZ;!P*8<C@,S&("
^XMB(3.9,23,2,19987,0)="""DATA"",396.18,231,3,118,0)"
^XMB(3.9,23,2,19988,0)="M;!D6E5W9)!FO_K""9)*T37L&>%1TER6XUT2'$95GB=$K<'H>X=8^X;;2GHGW)"
^XMB(3.9,23,2,19989,0)="""DATA"",396.18,231,3,119,0)"
^XMB(3.9,23,2,19990,0)="MHY$P@A!(;F,YQNYK#:_257#2W>B#178C\2%,#&"">1TF><P8P/L;Y4:PT]_5%"
^XMB(3.9,23,2,19991,0)="""DATA"",396.18,231,3,120,0)"
^XMB(3.9,23,2,19992,0)="M]O5;75[/<%\OLJ_K75[/SO.<1QH7A4E.E/WKD7(`[=4]&8?G$%>.KVDIW.="""
^XMB(3.9,23,2,19993,0)="""DATA"",396.18,231,3,121,0)"
^XMB(3.9,23,2,19994,0)="M/T)TUM>TMQZ$?9!4A$\9FJN>^%DA5!_CKWJMC^$7!A\@Q9KQ''/W5,[97LJJ"
^XMB(3.9,23,2,19995,0)="""DATA"",396.18,231,3,122,0)"
^XMB(3.9,23,2,19996,0)="M<660%JCZ>U<&GX@$,![K*(.)0P^L;&Y3OQ4;V?Z'-$LX_2$[,.TB!8>*V7X+"
^XMB(3.9,23,2,19997,0)="""DATA"",396.18,231,3,123,0)"
^XMB(3.9,23,2,19998,0)="M#I',S+-,YK.?B2HII-2K>(Y-@XX\/<OD1'=ZM</3_NO']O(S%\(1#!&:]B?8"
^XMB(3.9,23,2,19999,0)="""DATA"",396.18,231,3,124,0)"
^XMB(3.9,23,2,20000,0)="M';+JI-8-?1</9PJ[,B0%A8ZR=^UEPQ\A;'U#B`RS$P3K\<&>)^5&TW'U,J?$"
^XMB(3.9,23,2,20001,0)="""DATA"",396.18,231,3,125,0)"
^XMB(3.9,23,2,20002,0)="M?G""HP+-/2;OQ!=KL;_/*LK0U>UG2G48%;UK!S(HF]+,KSN$)-[0&-TTUF8J0"
^XMB(3.9,23,2,20003,0)="""DATA"",396.18,231,3,126,0)"
^XMB(3.9,23,2,20004,0)="M\9COIRUF^LN=G;DN>QEH%5QH%?^B5Q@(+U]K('^E)5(T-9]FF?<L';6_]D?M"
^XMB(3.9,23,2,20005,0)="""DATA"",396.18,231,3,127,0)"
^XMB(3.9,23,2,20006,0)="MJ<""W*!:&S&/L-`^HZ_AM@4V`2XSYF___+?BL9PJ1<8IT,JJ7KJ,UTN1)JC%W"
^XMB(3.9,23,2,20007,0)="""DATA"",396.18,231,3,128,0)"
^XMB(3.9,23,2,20008,0)="MHE/@^$U7XKW<:ZO;>9V,9\S40@4GG^>>LVS:]5Y;760+\^S25N]$6YUFC^-%"
^XMB(3.9,23,2,20009,0)="""DATA"",396.18,231,3,129,0)"
^XMB(3.9,23,2,20010,0)="M&VZ?DR<XY00*[(G.A]MSX.8""Q9Y>Z&M.3MSB9:[WDQC7,>3C_3IH+20>'XT&"
^XMB(3.9,23,2,20011,0)="""DATA"",396.18,231,3,130,0)"
^XMB(3.9,23,2,20012,0)="M?-*93.ZPE.](9;Y86HQEQ%A6C.7$6%Z<""*)P^<X4A<1@O3-%,(SIPRB*9&E."
^XMB(3.9,23,2,20013,0)="""DATA"",396.18,231,3,131,0)"
^XMB(3.9,23,2,20014,0)="M[#BP]-74*CZ[,+**4#.B);RHN6O6.EZZC$_`*PP!0_=K.5S#F.9EQXL$\7,4"
^XMB(3.9,23,2,20015,0)="""DATA"",396.18,231,3,132,0)"
^XMB(3.9,23,2,20016,0)="M,?(-X_,/@F$\%M4---\M7@_%''Z(<YJ]P+.+-Y""""!UC:;*HZUANS-PV;[-*M"
^XMB(3.9,23,2,20017,0)="""DATA"",396.18,231,3,133,0)"
^XMB(3.9,23,2,20018,0)="M$6\;F8-44""Y3*#*5NQ*_([2G@3%9*)\GX0&<7"",U0#7AB`!`I=6`:JI-G.6J"
^XMB(3.9,23,2,20019,0)="""DATA"",396.18,231,3,134,0)"
^XMB(3.9,23,2,20020,0)="M:H(SBW/MJ[1P$MZ&;:*J""K-+(KOHX.5+9?*C;OJN(^^2FC(S5=FQW$.5;C@8"
^XMB(3.9,23,2,20021,0)="""DATA"",396.18,231,3,135,0)"
^XMB(3.9,23,2,20022,0)="M3$*X/^/WU#`4-WQ1@^<&'5K:G""559/PRKG*WNVO*[IFKKMYZQC.5W(IE)0K["
^XMB(3.9,23,2,20023,0)="""DATA"",396.18,231,3,136,0)"
^XMB(3.9,23,2,20024,0)="M?S@66T:>DUYP_P'\$)UR0*GW%?*/UQ\[SO$-VM\E3G3@?16V/Q*RU]2[2&O="
^XMB(3.9,23,2,20025,0)="""DATA"",396.18,231,3,137,0)"
^XMB(3.9,23,2,20026,0)="M>]\EEL?^S^ND.)WG$=LYWHGHU.DA?1:S+%ZOCM>?<;JL*&R79!N*XI5=""F:#"
^XMB(3.9,23,2,20027,0)="""DATA"",396.18,231,3,138,0)"
^XMB(3.9,23,2,20028,0)="MK:G\PE/Y!1*ID2LJ/A4_=\_TY5CZ7J3T_1&'OA>K+'VRMX$FMY,IS;Y[U)78"
^XMB(3.9,23,2,20029,0)="""DATA"",396.18,231,3,139,0)"
^XMB(3.9,23,2,20030,0)="M>GK^T>?$!SGD/5_SR;L!W>ET]XC^="")0[-:7\WZX%3^""%0`'``VI@>UY/#D="
^XMB(3.9,23,2,20031,0)="""DATA"",396.18,231,3,140,0)"
^XMB(3.9,23,2,20032,0)="MC4P9'B7_3]ZU!\EQG/5]W(UT#SW/LF79LD=^ZNR3M._=.\>6SZ>3I5BRSM+9"
^XMB(3.9,23,2,20033,0)="""DATA"",396.18,231,3,141,0)"
^XMB(3.9,23,2,20034,0)="MLG$,S.W.[8ZUM[/>V3WI#""%Q'#LAH2!0X$I""A<3EXN$$AP`&BDI2!E+Y`T(5"
^XMB(3.9,23,2,20035,0)="""DATA"",396.18,231,3,142,0)"
^XMB(3.9,23,2,20036,0)="MN$B*9X4""RE`N0O$7X`(JH1]?SW1O]\S.G,Z^W>,//[1WZNVO^^NO^WO]?K!."
^XMB(3.9,23,2,20037,0)="""DATA"",396.18,231,3,143,0)"
^XMB(3.9,23,2,20038,0)="M3Y!U.L3ZI103603P,`?S$^EKZ++""73?E>@>W.3HZ^@]N*V^8<JE0W:Q""QJ=L"
^XMB(3.9,23,2,20039,0)="""DATA"",396.18,231,3,144,0)"
^XMB(3.9,23,2,20040,0)="M5QN$M+-9:Z&Q'+5S#IG&.""W=?SO6""SWZ*@-$#$?T)L%4_+)[#[ZY%>!31Q5."
^XMB(3.9,23,2,20041,0)="""DATA"",396.18,231,3,145,0)"
^XMB(3.9,23,2,20042,0)="M+:SS&]1)&`/!=RLNPMO5L""Z`7<@`#3?QWI.U""#C4DY-Q(1;@7Z,2'I-$[7.E"
^XMB(3.9,23,2,20043,0)="""DATA"",396.18,231,3,146,0)"
^XMB(3.9,23,2,20044,0)="M^0+(Q""VPFL\P-4JL>87''!@D+8%TD<)<\+7-U!5%T!>P0B!\Q2(/2869*+E%"
^XMB(3.9,23,2,20045,0)="""DATA"",396.18,231,3,147,0)"
^XMB(3.9,23,2,20046,0)="MD+ALT(4-9%:AX8)?MG3,0N26-FU*_6""7""R`$%QE?VWEW!Q>\\$HV-R!@KFJ+"
^XMB(3.9,23,2,20047,0)="""DATA"",396.18,231,3,148,0)"
^XMB(3.9,23,2,20048,0)="M5^2Z(-STU)NNQ4MOA9?_F`(;!%KPOA$3F$:.*BS>W4JFD8;9::TAY3U\`9W8"
^XMB(3.9,23,2,20049,0)="""DATA"",396.18,231,3,149,0)"
^XMB(3.9,23,2,20050,0)="M.DU)KFWF>]_'%,&-=J?:%""7_QHO^7.?)Y!""9C`V1:8/M3QI:#>%H[@&)7E3!"
^XMB(3.9,23,2,20051,0)="""DATA"",396.18,231,3,150,0)"
^XMB(3.9,23,2,20052,0)="MQK(B2H)P0VLI6=QU,PG[.%ERO""QUD$5/R![9OYQN8%\3/;<N8Z&6.XTR,(%9"
^XMB(3.9,23,2,20053,0)="""DATA"",396.18,231,3,151,0)"
^XMB(3.9,23,2,20054,0)="M*TW#:F&[.:5;R]C43NDUPX$'*':C6O8*Y9!D^]MM<(_JAT^2)QK<0>A=V[;+"
^XMB(3.9,23,2,20055,0)="""DATA"",396.18,231,3,152,0)"
^XMB(3.9,23,2,20056,0)="M-C+5:,!JQZI@%P_9:[,""7AF73::-[]C>D`<`:<B8TIU.N89?RTLMW)*-SXW3"
^XMB(3.9,23,2,20057,0)="""DATA"",396.18,231,3,153,0)"
^XMB(3.9,23,2,20058,0)="M),SJ960KT(_;Z,[#OX%Q=SMVQ6QT5G2S79Z<V=R2W:Y+(,7OSLW2)7#*0V#*"
^XMB(3.9,23,2,20059,0)="""DATA"",396.18,231,3,154,0)"
^XMB(3.9,23,2,20060,0)="M#0BB=Y>`?""8J^?%8D(3YU(""$P>7W'[3E,D3+82G%=].ZWW_J.Q7>FZ_2N^4<"
^XMB(3.9,23,2,20061,0)="""DATA"",396.18,231,3,155,0)"
^XMB(3.9,23,2,20062,0)="M+.O+;LA]UU:X5,<5F&CP:CHCI)D'M^&.\XWA1;^'QVI,/*U`DO/>O""Z@'Q*S"
^XMB(3.9,23,2,20063,0)="""DATA"",396.18,231,3,156,0)"
^XMB(3.9,23,2,20064,0)="M+TB9N!/!R`-ITON?)(_H!M\3D;AJW&H6\=C&)^[15""2.I.E,(5J:1)_EUQR7"
^XMB(3.9,23,2,20065,0)="""DATA"",396.18,231,3,157,0)"
^XMB(3.9,23,2,20066,0)="M+K'.0'HO'>\^/UXN99/SEV-TP\@W;`^9S,QE>)UD5N:R:V5^TNU?3I4&BP`R"
^XMB(3.9,23,2,20067,0)="""DATA"",396.18,231,3,158,0)"
^XMB(3.9,23,2,20068,0)="M[F=8H9S^,]2P%D'DCBOR=[=""?&8',S\CS/S`*S$GF-4;%:[*G6I7I8I^AIY^"
^XMB(3.9,23,2,20069,0)="""DATA"",396.18,231,3,159,0)"
^XMB(3.9,23,2,20070,0)="M-NX8)6Q4?65:""SPCV""Q8HL=DT[K7-:UN**'?S""IT>'TV)J18/+-Z\-TTJVD^"
^XMB(3.9,23,2,20071,0)="""DATA"",396.18,231,3,160,0)"
^XMB(3.9,23,2,20072,0)="MS\U:.7]>@=U3S$8SJP?G@!M"""".&P)KNM95,+'(-&XA%8Q'GWJ/V(9U)+Z:U@"
^XMB(3.9,23,2,20073,0)="""DATA"",396.18,231,3,161,0)"
^XMB(3.9,23,2,20074,0)="M4EG-Q;B`6/[741#+!ZWX?*>,G%KD%X&A>;V1D`WLLAOI/H%$QWD+_3`)DUBV"
^XMB(3.9,23,2,20075,0)="""DATA"",396.18,231,3,162,0)"
^XMB(3.9,23,2,20076,0)="M4ZZ;+<I]LX0>(&8+S6E*)P_:)=M`-AAS_0D_(W5@1JMJ0J3%==`W+XP4""-/+"
^XMB(3.9,23,2,20077,0)="""DATA"",396.18,231,3,163,0)"
^XMB(3.9,23,2,20078,0)="M'FXW$NN6C$N5&9ZM/@@(L]A0K+(EJ\""2S?#!JG$N6,6/G[B)N4VN+OY#+#`P"
^XMB(3.9,23,2,20079,0)="""DATA"",396.18,231,3,164,0)"
^XMB(3.9,23,2,20080,0)="MQ%J'OR2@K2HK?>;=ZD47.J(OXD&L&&>8+RY4%5;M7FS9S1JZSH$:?D:U'FD>"
^XMB(3.9,23,2,20081,0)="""DATA"",396.18,231,3,165,0)"
^XMB(3.9,23,2,20082,0)="M_OK%]8`J!ZH#Y%63YP00/-5L)\C""""<BH,WW1F^T)DX$,V!>I\CP.PG1D80Z<"
^XMB(3.9,23,2,20083,0)="""DATA"",396.18,231,3,166,0)"
^XMB(3.9,23,2,20084,0)="ML-""7MKFJ-LP3I9=7)@/!J$L9`8ANO!L>E,,+7S17FKC:J],R^W#-O'[V:4$B"
^XMB(3.9,23,2,20085,0)="""DATA"",396.18,231,3,167,0)"
^XMB(3.9,23,2,20086,0)="MA@G\@""S13OQ*,>IZLU-WS,!JO32#-@""E2DFX8ER/O']Z""=BZ^N-03XL0A$_`"
^XMB(3.9,23,2,20087,0)="""DATA"",396.18,231,3,168,0)"
^XMB(3.9,23,2,20088,0)="M.IFJX('=<I#WB@%/*_C?(=9+V(3D<S'_T?=CI@U\4[7TMK44;C\RK*1Q6-#:"
^XMB(3.9,23,2,20089,0)="""DATA"",396.18,231,3,169,0)"
^XMB(3.9,23,2,20090,0)="MI^31KSEI$3AY$FT'2]\70""""L9;Q#HW]?E6@`.`Z""N_0%#-:L4QA`7#=A5""JX"
^XMB(3.9,23,2,20091,0)="""DATA"",396.18,231,3,170,0)"
^XMB(3.9,23,2,20092,0)="MAXCX5-`D!%<;?S34A8R%HG`A'?""O9""SFLL6P)96C7GF_-L95\\,/2'D^^P'Y"
^XMB(3.9,23,2,20093,0)="""DATA"",396.18,231,3,171,0)"
^XMB(3.9,23,2,20094,0)="M@P\V0(Z_'EBU;?(E!?1Z(2*P`6U#&%FL(;.(<4NUL=DEC`NCUPRKI>T^L>:T"
^XMB(3.9,23,2,20095,0)="""DATA"",396.18,231,3,172,0)"
^XMB(3.9,23,2,20096,0)="MX?9J&%;=66]S?:$@F(KK)73_?9P$J;#UH=K#)(*D)<^;%6WH@3IF6+Y80V\V"
^XMB(3.9,23,2,20097,0)="""DATA"",396.18,231,3,173,0)"
^XMB(3.9,23,2,20098,0)="M;1N`&H2C%@,[]@K=^SQ,[E,*)O!""+AIH[[5=<-`4=""<RZ+M(^I07KK^J-%U^"
^XMB(3.9,23,2,20099,0)="""DATA"",396.18,231,3,174,0)"
^XMB(3.9,23,2,20100,0)="M+56<3]M""(7[G^47QRM/4JQ(-1WXG9G)TK^29$%72BDI@`7_=1^OR@C6_/G""E"
^XMB(3.9,23,2,20101,0)="""DATA"",396.18,231,3,175,0)"
^XMB(3.9,23,2,20102,0)="M,CY:E_33NJ$YVR;_KE?D;(UX-=XGZ7N5Z_F8'@RD33F&POH5;J?F^@UFKC-,"
^XMB(3.9,23,2,20103,0)="""DATA"",396.18,231,3,176,0)"
^XMB(3.9,23,2,20104,0)="MR@E?_HF=/6(HBB^#)^RM77=#&&C8'3U+@Y3J(][7GXH%Z$\Q4^Q5WC[NIT@C"
^XMB(3.9,23,2,20105,0)="""DATA"",396.18,231,3,177,0)"
^XMB(3.9,23,2,20106,0)="M)TS<+8S<<TVCUM>_WC[%7P0'I(N`OZ6F?>8A16&X8H(SQ,6%`@GMAEE_=UD["
^XMB(3.9,23,2,20107,0)="""DATA"",396.18,231,3,178,0)"
^XMB(3.9,23,2,20108,0)="ML.CK+OM.OY`3#N3]@0<R/>SJ/#'JO=9W=`/6%^JNV01K_A.<SA0R$2<X%FF"""
^XMB(3.9,23,2,20109,0)="""DATA"",396.18,231,3,179,0)"
^XMB(3.9,23,2,20110,0)="M7=U0&=Y!9-VWW,YS&+ZE04.5Z*8@S/.QBSWQ[N!""HL%I>6DP`GH*>P8)DCEJ"
^XMB(3.9,23,2,20111,0)="""DATA"",396.18,231,3,180,0)"
^XMB(3.9,23,2,20112,0)="MSUYDF>Z3_<CWEEA7""[<`?<HZ-@ZX,:*7MT)J?9?DQ+#&1;%1):M(`4VI4D`,"
^XMB(3.9,23,2,20113,0)="""DATA"",396.18,231,3,181,0)"
^XMB(3.9,23,2,20114,0)="MDN$""Z\XX19D%^HED$2[&QZGJ7HF_""VZ:?&""8B_8']$7ZX^Q;4WYL5YNI%LEU"
^XMB(3.9,23,2,20115,0)="""DATA"",396.18,231,3,182,0)"
^XMB(3.9,23,2,20116,0)="M$B1""P=R($%;U\&7.^Q(D=C$A+J#K&B]%\K68DCIQ^WJI$[WBXJQ0&_!-F.M?"
^XMB(3.9,23,2,20117,0)="""DATA"",396.18,231,3,183,0)"
^XMB(3.9,23,2,20118,0)="M*(J+JXL,LH/0!C9MQ[&0CD]YC.9RCQ(^$5;#PJA3^HK1L)9-AW8TNS7)$+@@"
^XMB(3.9,23,2,20119,0)="""DATA"",396.18,231,3,184,0)"
^XMB(3.9,23,2,20120,0)="M%7*-I]$#9B80""(0]5C7Z)/\L:,^<(@3&.,XQK%6[+P)364;+2Q?[A']L9P+?"
^XMB(3.9,23,2,20121,0)="""DATA"",396.18,231,3,185,0)"
^XMB(3.9,23,2,20122,0)="M8;C?P\)U@/TD`=]PZQ+\)184(6X28\#,?;C@414OSS*JD%^B/G#)G[#^#I80"
^XMB(3.9,23,2,20123,0)="""DATA"",396.18,231,3,186,0)"
^XMB(3.9,23,2,20124,0)="M=2LH'5(629IPRG:C0HY)GX6XLZRY99N(B/#GBM#J$3>TZE@5=,9(DL2AE:3E"
^XMB(3.9,23,2,20125,0)="""DATA"",396.18,231,3,187,0)"
^XMB(3.9,23,2,20126,0)="M;MG#I0LR$`:%K[_\@ZA8-:RX;)MPU!H*4&D?`**^T%BQ1?RUJ(@[*7C@_7>L"
^XMB(3.9,23,2,20127,0)="""DATA"",396.18,231,3,188,0)"
^XMB(3.9,23,2,20128,0)="MY]_/'MT,@9611L&H+THDL*==!RV3SD?#[+S0QIJG3:`MKQ*:O57<IG?91A)K"
^XMB(3.9,23,2,20129,0)="""DATA"",396.18,231,3,189,0)"
^XMB(3.9,23,2,20130,0)="M(Z=7FBT;\W=J!TYC&""B""I80T]_(Q'2=4""""E?B.AC5Q1FFA?FVR#,W[DWU!(G"
^XMB(3.9,23,2,20131,0)="""DATA"",396.18,231,3,190,0)"
^XMB(3.9,23,2,20132,0)="M3'$P>L*5>Y85C.&CW>DJ;L\RI75$AT=I[S2C(VU5\:S07BP>6UC$E3Z--KJC"
^XMB(3.9,23,2,20133,0)="""DATA"",396.18,231,3,191,0)"
^XMB(3.9,23,2,20134,0)="MC6:SSGYIS[E.NXG^EW`$7UFKF@UM:&YA=D$;QZ^,FFGCFO*U'KLIH0TRF#%J"
^XMB(3.9,23,2,20135,0)="""DATA"",396.18,231,3,192,0)"
^XMB(3.9,23,2,20136,0)="ME/XW)FWG(K>=V4%AK\$!W1$([+(62GBBO,HZ?!3AD4PJ%<AY*/.;0F3C9CKV"
^XMB(3.9,23,2,20137,0)="""DATA"",396.18,231,3,193,0)"
^XMB(3.9,23,2,20138,0)="M&HS]6XJ:HTS$FJ/;+O2^>-9/$]JE!&E>""7Y'5H(C+@9&:K""XC)15:JQ?FXK["
^XMB(3.9,23,2,20139,0)="""DATA"",396.18,231,3,194,0)"
^XMB(3.9,23,2,20140,0)="M]`\D>SSIX;=@#7*]1VP:-K49:%T1UZ)P^P3H?R&7GPZ;A(LI&PV`^`+.6K(N"
^XMB(3.9,23,2,20141,0)="""DATA"",396.18,231,3,195,0)"
^XMB(3.9,23,2,20142,0)="M+ZV']CC.`U:&AR@/@T*3%T[E.8FOZA`',!:1^'*>'$ATRV((;^(T>:]`=AB3"
^XMB(3.9,23,2,20143,0)="""DATA"",396.18,231,3,196,0)"
^XMB(3.9,23,2,20144,0)="MFPP*-80AA+6ADSC9.+1@VRU?PB!E1`!6[_68&(=X:!!#:`KQ(&DZ'.\I'F0\"
^XMB(3.9,23,2,20145,0)="""DATA"",396.18,231,3,197,0)"
^XMB(3.9,23,2,20146,0)="M-E.^=;7?Y,!1V""Z42W_.C7>\LA5""A+NE(G&XQ""I""A/#KB@CA?>H.?K2J2)OI"
^XMB(3.9,23,2,20147,0)="""DATA"",396.18,231,3,198,0)"
^XMB(3.9,23,2,20148,0)="MG\E/<+G(D85:W5RR<.'XA;5&!3?G;'[,T!49-OJ@0!42DO"">.Q+PU+V)'HGG"
^XMB(3.9,23,2,20149,0)="""DATA"",396.18,231,3,199,0)"
^XMB(3.9,23,2,20150,0)="MXN%!)M8)#P!;=;.00?;0EM[R>G(GA7T)VA9%6&W4J^*A$IZA$O[)NU$""$X(C"
^XMB(3.9,23,2,20151,0)="""DATA"",396.18,231,3,200,0)"
^XMB(3.9,23,2,20152,0)="MM,!7V>Z'.3PCW4K%7""X:]>\P?BO.^-<_#)-B&(U\NPB)UGO2++OX?$S`=%N1"
^XMB(3.9,23,2,20153,0)="""DATA"",396.18,231,3,201,0)"
^XMB(3.9,23,2,20154,0)="MN./1K/T9<;<K9NW!DG;/=]>C(CJGMNN,B+D9$])`:B5C>[X6%QK<WW)?`6N\"
^XMB(3.9,23,2,20155,0)="""DATA"",396.18,231,3,202,0)"
^XMB(3.9,23,2,20156,0)="M#R@%&AB5*36BQ\*@JX9""LE2\5X!A`=*C.R4.*H\ZMEB*]ERYT^52=MH&3C4W"
^XMB(3.9,23,2,20157,0)="""DATA"",396.18,231,3,203,0)"
^XMB(3.9,23,2,20158,0)="MK:J+OHQCO&;Y67/%B%8Z(Z46,\)2W2>!2F:X^;^W-`0;!""'):F,G!%7R2@S7"
^XMB(3.9,23,2,20159,0)="""DATA"",396.18,231,3,204,0)"
^XMB(3.9,23,2,20160,0)="M>*\QS`,50BA#_(8GGE3L=S$:=_8N=[_-RGKV-8RRIOBY'^F>.P>[6HI&D+T3"
^XMB(3.9,23,2,20161,0)="""DATA"",396.18,231,3,205,0)"
^XMB(3.9,23,2,20162,0)="MS1W9VQ6#!+'6Z=K&P\F0YF4XVUTGS\L0S6G?3658LHU6!2-FK5.*A+\F9OB9"
^XMB(3.9,23,2,20163,0)="""DATA"",396.18,231,3,206,0)"
^XMB(3.9,23,2,20164,0)="M,YS""G>XCY\?XP)UDTQC:G\8#+RLCR'R)MXF!""J""H+!(:*-1K@5UC+[*/*.U:"
^XMB(3.9,23,2,20165,0)="""DATA"",396.18,231,3,207,0)"
^XMB(3.9,23,2,20166,0)="M+M(Z'\#K[)1KZ#(H0PGZNJH`95-6XE>H`%/^OCOEX]R4!PH?-Q%NQ]0<%,\K"
^XMB(3.9,23,2,20167,0)="""DATA"",396.18,231,3,208,0)"
^XMB(3.9,23,2,20168,0)="MMRQ:T:9&(&NONBPQP$B7>"".=_#""+8CWD'HYY/@XJ7_A\,9#[7/B6(CDTY2:'"
^XMB(3.9,23,2,20169,0)="""DATA"",396.18,231,3,209,0)"
^XMB(3.9,23,2,20170,0)="M5BV2<R7</D:]2?@B5MF#=94X%O[H&ID""?Y:OA2^\/RZAY:)KH#0@$$L*YP)"""
^XMB(3.9,23,2,20171,0)="""DATA"",396.18,231,3,210,0)"
^XMB(3.9,23,2,20172,0)="M0N_0<,*WV-/[L.R7=9<S;HOLW!<A@_E?],O^.$HYH];+U>Y*@V0XI+SD]?%N"
^XMB(3.9,23,2,20173,0)="""DATA"",396.18,231,3,211,0)"
^XMB(3.9,23,2,20174,0)="M)\;+@Z""'<68P+(2ZYQR<S`6BIK>!G""=<9ZV]%:()>Q1(HJ!+GQ`Y(PXH`@J3"
^XMB(3.9,23,2,20175,0)="""DATA"",396.18,231,3,212,0)"
^XMB(3.9,23,2,20176,0)="MRJYS6N:Y:C;LCJ.?M)QVI]Y7?>>E%(_R_%AWF;%G[\9.F9C>QK&>-6=4X\!K"
^XMB(3.9,23,2,20177,0)="""DATA"",396.18,231,3,213,0)"
^XMB(3.9,23,2,20178,0)="M:I>0`WE)15Y]RKY,@*AJ[H`X.XT3DPVSHAP[PXV=_.9Z6OA4H^9Y[+/D5V+="
^XMB(3.9,23,2,20179,0)="""DATA"",396.18,231,3,214,0)"
^XMB(3.9,23,2,20180,0)="ME0Y<1Y)`1[T,+3[!HQ>$T;7X!DVZ*`""VL3+E3RK6^6:W%8E'`/':Z%2CP^W9"
^XMB(3.9,23,2,20181,0)="""DATA"",396.18,231,3,215,0)"
^XMB(3.9,23,2,20182,0)="MC`O=\Q]7L<ZZDZYS>/%ELU[O8-R1'HLS+7P/B\W_H>)[)I7?0SU6TF.%]`9]"
^XMB(3.9,23,2,20183,0)="""DATA"",396.18,231,3,216,0)"
^XMB(3.9,23,2,20184,0)="MC+XQZ`L9935\X0=A,VQ%>YC[??1%*3-4J(9/\\,GO\Q4Z0.*!K&N\<EY""AP["
^XMB(3.9,23,2,20185,0)="""DATA"",396.18,231,3,217,0)"
^XMB(3.9,23,2,20186,0)="M*XS-DK/!<Z<`9@&*Z@7%TOSY/^""/.W$-SPNP3`V9,I#(6/K@^CT3[X6JLZDU"
^XMB(3.9,23,2,20187,0)="""DATA"",396.18,231,3,218,0)"
^XMB(3.9,23,2,20188,0)="MINM*IN4%QJ<RJ.^OJIH7TJ&3::QD??M\@[3#5WPZUEB;/K6&'XM)WS[-M4ZD"
^XMB(3.9,23,2,20189,0)="""DATA"",396.18,231,3,219,0)"
^XMB(3.9,23,2,20190,0)="M(A4E##]^Y+RQIB7G'WI0VSE?KJ$=;R&WH-HR5GH3U?:.(H)YH2&BY""'V6OJH"
^XMB(3.9,23,2,20191,0)="""DATA"",396.18,231,3,220,0)"
^XMB(3.9,23,2,20192,0)="MHN^IF(X6-]A/%T\G$S;*+C)@-$]P*)048+R^2O7[I]@&O*P2(Q,M5*?/KV+B"
^XMB(3.9,23,2,20193,0)="""DATA"",396.18,231,3,221,0)"
^XMB(3.9,23,2,20194,0)="MNC*ID:RAP72[TVYVVOJR8=4[+3-R>YM2@4K""U<1ZBY*?<04XR0G@Q>HBJ=)^"
^XMB(3.9,23,2,20195,0)="""DATA"",396.18,231,3,222,0)"
^XMB(3.9,23,2,20196,0)="M@K!#$%(:E^KP**J;54<;/V4VC;:]@C&PU[1MLT[9PM2TVTXBZU+%?8:!BK;-"
^XMB(3.9,23,2,20197,0)="""DATA"",396.18,231,3,223,0)"
^XMB(3.9,23,2,20198,0)="M1R81R/2P)-*/<JJ5B5:I<]9P'$V[:+16VC5MF,BE[7B@4Z_BNCKBWVFC<^[%"
^XMB(3.9,23,2,20199,0)="""DATA"",396.18,231,3,224,0)"
^XMB(3.9,23,2,20200,0)="MI]TP[UY.$&_U[BB>6R9JD0Y#_*3G_MORN7\_!W15&C!""CBY1<X*&7A.7MC/%"
^XMB(3.9,23,2,20201,0)="""DATA"",396.18,231,3,225,0)"
^XMB(3.9,23,2,20202,0)="MR3IHM2AB95)!>',EOQ:3'D/\;5)2-)V.A\)%@A?0)?HUWV%?\V&E\8W&E;5+"
^XMB(3.9,23,2,20203,0)="""DATA"",396.18,231,3,226,0)"
^XMB(3.9,23,2,20204,0)="M)""*ZZO#.#DD?\L(:C<6E-9KF$(E2@Z0/.R59Q:?J$4G40UP[VD""!+TFQ+R""B"
^XMB(3.9,23,2,20205,0)="""DATA"",396.18,231,3,227,0)"
^XMB(3.9,23,2,20206,0)="M9*)^(%#4@:(8&I5$%4_Y)V.!L@X43?>8).LT_SH^+-U3=W.2#@IJO""HFQFJ@"
^XMB(3.9,23,2,20207,0)="""DATA"",396.18,231,3,228,0)"
^XMB(3.9,23,2,20208,0)="MBWSC2/))-R8VOQ5B8GMEF#""(6%\B8H^P&($B(E941<0X2*P^[,>3W5G(:S/R"
^XMB(3.9,23,2,20209,0)="""DATA"",396.18,231,3,229,0)"
^XMB(3.9,23,2,20210,0)="ME1LWL""ZFJS<WQ>-;,HSZ[[FHGO_&4#W3V5R^-,CG!FSA[]*W^BA(^CY7TE_8"
^XMB(3.9,23,2,20211,0)="""DATA"",396.18,231,3,230,0)"
^XMB(3.9,23,2,20212,0)="M""@=G0JK3@O=[5D@MJ=B';U:6IEFX%^""""5>TK8O<THPC9SVMMXK@</QKG\+Q4"
^XMB(3.9,23,2,20213,0)="""DATA"",396.18,231,3,231,0)"
^XMB(3.9,23,2,20214,0)="M.&UI`0#U-`QT4!Y(6\!X3<HABOP0C(C[K(*0\[SI-""TT%V1L=/0?Y6BL*8*,"
^XMB(3.9,23,2,20215,0)="""DATA"",396.18,231,3,232,0)"
^XMB(3.9,23,2,20216,0)="MEOPNB[O=+@^W[2+Y1#D(A*X=,LC?LT%N4XEE=QH51S5&EI_(.VR,]\MC[*`3"
^XMB(3.9,23,2,20217,0)="""DATA"",396.18,231,3,233,0)"
^XMB(3.9,23,2,20218,0)="MT><('%Y?P'XQ9$T"")9K<)<=\9MW9MV'V9VS'T0\C72F3+I=E_;(),$X.[BM<"
^XMB(3.9,23,2,20219,0)="""DATA"",396.18,231,3,234,0)"
^XMB(3.9,23,2,20220,0)="M::(O)!1\F`2OCDS4I'[80*<=,^O!KUH-$JG/Z&LFDAZ7!93-""J7C0FN!QX06"
^XMB(3.9,23,2,20221,0)="""DATA"",396.18,231,3,235,0)"
^XMB(3.9,23,2,20222,0)="MU\E-Q,X-1.*#A%OR5V+A%^Y!S#*A6+@J_OS_R\*Q-CMZ6CX?<%IV/5""W[0HM"
^XMB(3.9,23,2,20223,0)="""DATA"",396.18,231,3,236,0)"
^XMB(3.9,23,2,20224,0)="M]/0Q2LSQ_+F8P$N7&)9'BQ]3_/V\<'1=%)];%#:$?M(?6'T,&/]GPXDM/YH8"
^XMB(3.9,23,2,20225,0)="""DATA"",396.18,231,3,237,0)"
^XMB(3.9,23,2,20226,0)="MC,%S=(!G(CR:QGH^FOCH29I?X$06#LF7%:@]Z7R^J^1'&""?'CW/1?YQT,9<6"
^XMB(3.9,23,2,20227,0)="""DATA"",396.18,231,3,238,0)"
^XMB(3.9,23,2,20228,0)="M""E&ZQA&NPP\&C%/*%83P>=<X<!O>3];O;Z5[@Y<K$Q%_K``GI$K&_AYS1;_2"
^XMB(3.9,23,2,20229,0)="""DATA"",396.18,231,3,239,0)"
^XMB(3.9,23,2,20230,0)="MS9H^5,BD0D;A6<_+)K6ZD%[*(7QO:$/8""/H\R?S1S#+\);7(;.T+2C7J2?\\"
^XMB(3.9,23,2,20231,0)="""DATA"",396.18,231,3,240,0)"
^XMB(3.9,23,2,20232,0)="M(LWO?7HZI27P/QGT3S:EC>92.#Z\8K=,?\""DK,!.T6-6V<@83KUFU:60\+9:"
^XMB(3.9,23,2,20233,0)="""DATA"",396.18,231,3,241,0)"
^XMB(3.9,23,2,20234,0)="M(I/Y1:F`AU/L;*XKM""N,4^([:GL,E.WJ0!8&FN9/R-?\3LA0,9O.""E'U$`<$"
^XMB(3.9,23,2,20235,0)="""DATA"",396.18,231,3,242,0)"
^XMB(3.9,23,2,20236,0)="MC,K39.C7V=""/=Y\/-/1TN&)WOZ3-D-4HU[1$>47,VJC=)C`M2<'O?ML--WQN"
^XMB(3.9,23,2,20237,0)="""DATA"",396.18,231,3,243,0)"
^XMB(3.9,23,2,20238,0)="M*WA-UTA>$UQ%WZ?.XC""(_9L*M^EZYC8=`Y?IA&54&QA<K8\`?L`A2/XE#2>L"
^XMB(3.9,23,2,20239,0)="""DATA"",396.18,231,3,244,0)"
^XMB(3.9,23,2,20240,0)="MOC<`/Z`[R517<T_*K_ZNGP%^%.*!DGR,BK<VV.U\?@!&4*DQ*O1+_95[_A_W"
^XMB(3.9,23,2,20241,0)="""DATA"",396.18,231,3,245,0)"
^XMB(3.9,23,2,20242,0)="M!3!2PA3]VE7#%*4S?`=#LI2`5:\HBD=F*Q0-AG#?^8//I$H\UQR0+R?2\H""C"
^XMB(3.9,23,2,20243,0)="""DATA"",396.18,231,3,246,0)"
^XMB(3.9,23,2,20244,0)="M[MGNCQ<S""][1KJX/P>8<5""`VW<NBGBXA(9""Z8^R<%=UP'+ML&;A4""S-84S""="
^XMB(3.9,23,2,20245,0)="""DATA"",396.18,231,3,247,0)"
^XMB(3.9,23,2,20246,0)="M2E\)FTV!)HX188=`V']65&\=HVEM2GU(K1AI)&CZK$$@<D\JRW_M[B!,],,G"
^XMB(3.9,23,2,20247,0)="""DATA"",396.18,231,3,248,0)"
^XMB(3.9,23,2,20248,0)="M\5IF\JGB)`&QJB!IK&6+$I-CVL:CP1A!D(/[=%RX=$;B<@/[*^B;<`@)^\C-"
^XMB(3.9,23,2,20249,0)="""DATA"",396.18,231,3,249,0)"
^XMB(3.9,23,2,20250,0)="M3JN)?!EG""HG3!-)Q(B[L'_IZ%Q:)HG""U'1?<P3&1>X[VO;Z&N3H;R.]V'!PG"
^XMB(3.9,23,2,20251,0)="""DATA"",396.18,231,3,250,0)"
^XMB(3.9,23,2,20252,0)="M1V8>X[=@'`BC@;%`6G:SA14$>^)`NZZ;JT:]0ZNS""#$E_E+WJWK(FA9D96P+"
^XMB(3.9,23,2,20253,0)="""DATA"",396.18,231,3,251,0)"
^XMB(3.9,23,2,20254,0)="MA@+_""HLZ/SMWBM-'U8#3PH#'HR(<Y1@'@0CP^^\Q^89\DJ`=6Z2)K5RS<;T]"
^XMB(3.9,23,2,20255,0)="""DATA"",396.18,231,3,252,0)"
^XMB(3.9,23,2,20256,0)="M5B:KS:O6+3QPPRWH(RCE##YIP8L&008FXP]'!3!BN#)?%/X^>@TK=/E<DQK."
^XMB(3.9,23,2,20257,0)="""DATA"",396.18,231,3,253,0)"
^XMB(3.9,23,2,20258,0)="M*?8`P!N,`2G@$""DW@550P`3;@0A)JK^?%R;8EOBMO4TXXW*R$B`Z4&?6,N0N"
^XMB(3.9,23,2,20259,0)="""DATA"",396.18,231,3,254,0)"
^XMB(3.9,23,2,20260,0)="MJ(XK!\OE3M.`>X""PGAH6TG<#8RD0LKH>JU[@A4K^3""Q`JIQ2JB(OE3?`K8IX"
^XMB(3.9,23,2,20261,0)="""DATA"",396.18,231,3,255,0)"
^XMB(3.9,23,2,20262,0)="M#'TG'&59FNV0I2GQ5]Y)N/*2O^\6_#_IHDI,Y_*#@1$K.1JPS`VZ2E]B`8*'"
^XMB(3.9,23,2,20263,0)="""DATA"",396.18,231,3,256,0)"
^XMB(3.9,23,2,20264,0)="MW03-)^+=/D-0QUF:P1EN%]B5KE-<CO>=X&$+.5W""?V27!E*DCM-!&M2M/7WR"
^XMB(3.9,23,2,20265,0)="""DATA"",396.18,231,3,257,0)"
^XMB(3.9,23,2,20266,0)="M%(#;<2]9O5/,;?^.XFRGN@IVJ<`!`@9Q8+`&7`IP>1!4^Q'YRIJ:I87L+6Z%"
^XMB(3.9,23,2,20267,0)="""DATA"",396.18,231,3,258,0)"
^XMB(3.9,23,2,20268,0)="M_;[Q^.9&=T.TT\.!O*B6VN!@G7*1&M.WS=7L%K_D/E&GLU:]HFT_:U=P;LM$"
^XMB(3.9,23,2,20269,0)="""DATA"",396.18,231,3,259,0)"
^XMB(3.9,23,2,20270,0)="M_@7RNUNFMAVY;JOXF1O<EZH0""*[/+\1Z2S0=K=4>_7*SB2:_D3*%*OS-PWOJ"
^XMB(3.9,23,2,20271,0)="""DATA"",396.18,231,3,260,0)"
^XMB(3.9,23,2,20272,0)="M7WO+E$Y%DVG^BMDJ6XZYD3(E0\F4YHZ;QSBCW*=\-,V[@!^/&ZIYH0J;H?<1"
^XMB(3.9,23,2,20273,0)="""DATA"",396.18,231,3,261,0)"
^XMB(3.9,23,2,20274,0)="M-""_Y?)!(Z4PDD4:1<[F*4TX;JGM:**FRO.XEWP[<J&PTY4-?8*]LL%!CH83*"
^XMB(3.9,23,2,20275,0)="""DATA"",396.18,231,3,262,0)"
^XMB(3.9,23,2,20276,0)="M""5L5*%0Z'7&K;*MNMC=8JM%04N4Y6YY\*W""GBM%VZ@2!Q=Q8F4+=3Y!*`S,1"
^XMB(3.9,23,2,20277,0)="""DATA"",396.18,231,3,263,0)"
^XMB(3.9,23,2,20278,0)="M+%,ADDS;'S""0R[*Q(FT/)5)1.%&!=B)5BB;329.DFS=2IE`YL3R$LB[TLN:X"
^XMB(3.9,23,2,20279,0)="""DATA"",396.18,231,3,264,0)"
^XMB(3.9,23,2,20280,0)="M#SN22&/G""0.%V$-V]5+)&)[3_+/S(GMVIN5.<B3""0*$6A*IO9RU9]/4[!_MW"
^XMB(3.9,23,2,20281,0)="""DATA"",396.18,231,3,265,0)"
^XMB(3.9,23,2,20282,0)="M/Q,^Q_%:A#+RX7`C9-^IR/N'O\Y<IZI'1Q[@.B45S@2/4NFZ3A,*UVG&]27F"
^XMB(3.9,23,2,20283,0)="""DATA"",396.18,231,3,266,0)"
^XMB(3.9,23,2,20284,0)="M1;=IP7.;SO'^]ZS[R.\/MXDG_4S^-ENY_8%>(G6;'*O:P/6C1J/->S1BM""&4"
^XMB(3.9,23,2,20285,0)="""DATA"",396.18,231,3,267,0)"
^XMB(3.9,23,2,20286,0)="M$Y4M""'1PP!*06);GL&_>]=6\[^F/\""QDLY,OQ02J@S]2!-#.""XW-@K]-@F%N"
^XMB(3.9,23,2,20287,0)="""DATA"",396.18,231,3,268,0)"
^XMB(3.9,23,2,20288,0)="M@)%%*ZV5IM$MM<_J!H9R6(IU6(B?K2IZ6L^;#NZ/:E0QGO4E+^C%[:*J(2PC"
^XMB(3.9,23,2,20289,0)="""DATA"",396.18,231,3,269,0)"
^XMB(3.9,23,2,20290,0)="M;.01J9/Y;NZ!%`VY^=J';5*&R30.CILVH?IP_&$;_6&E6;?7S(H*<X;%E8J\"
^XMB(3.9,23,2,20291,0)="""DATA"",396.18,231,3,270,0)"
^XMB(3.9,23,2,20292,0)="M]G^#:?]3KMWX>HPSW],#UMVEA-86*#7KT@;-<&C#Q?7U(%X_ZV#38%:0)J/]"
^XMB(3.9,23,2,20293,0)="""DATA"",396.18,231,3,271,0)"
^XMB(3.9,23,2,20294,0)="M(+#)E0[64FWB=`-XH?0V;AG%0*[:/N]#@W!%F:;E].I\C?OHGW@(IT&^/W7E"
^XMB(3.9,23,2,20295,0)="""DATA"",396.18,231,3,272,0)"
^XMB(3.9,23,2,20296,0)="MN\+M9\E7OO?(H`2MXAA6S]8:*;_4KG/YM'!^`=<90C/CM:<;?&YBR:P9JY;="
^XMB(3.9,23,2,20297,0)="""DATA"",396.18,231,3,273,0)"
^XMB(3.9,23,2,20298,0)="MPG2KN!$21]KKNH7QYPT*]JL=.H$VQ2JC15W3EY$&V9?Q(;<X/&"",@,Z^;<6F"
^XMB(3.9,23,2,20299,0)="""DATA"",396.18,231,3,274,0)"
^XMB(3.9,23,2,20300,0)="MED@[P'UF-$C,""I.?M/#/6*C?H1']NK5,#`<V7F6CU5I#?]`FN*]MX1`U_G#/"
^XMB(3.9,23,2,20301,0)="""DATA"",396.18,231,3,275,0)"
^XMB(3.9,23,2,20302,0)="MA:9IDF@U^YFV%^-=$.8$[[,]CUD8+9__:-<9M.:$;+=M(%?0T""8NFL8EB@O<"
^XMB(3.9,23,2,20303,0)="""DATA"",396.18,231,3,276,0)"
^XMB(3.9,23,2,20304,0)="MTI>AI_56;])(/+-1;==F*%\IAV^H_*6ZB'FH7?,HFA3.""UD-M`%(/-PMK.T]"
^XMB(3.9,23,2,20305,0)="""DATA"",396.18,231,3,277,0)"
^XMB(3.9,23,2,20306,0)="M:9;)^G*?#2T85D/;<<)REM$<T%\WL;HI=-D'5%<R46D^Q9GJME`>RGDVETL-"
^XMB(3.9,23,2,20307,0)="""DATA"",396.18,231,3,278,0)"
^XMB(3.9,23,2,20308,0)="M1GN""`KL:'.M'1);BLHQ=((.""AT<1\H'HSG(+G/QIZ0[P2J-*F=)T6"";76#A$"
^XMB(3.9,23,2,20309,0)="""DATA"",396.18,231,3,279,0)"
^XMB(3.9,23,2,20310,0)="MOQ1_`25^""+[[/^7NT%*^$(V2-'O:0?I+HW0D=W4%;P6E;""W7.Q6:E""4T12QC"
^XMB(3.9,23,2,20311,0)="""DATA"",396.18,231,3,280,0)"
^XMB(3.9,23,2,20312,0)="M&:W-/:[<289B=G?OFI#N$M1U4;*Q[_NT^.JZX-[@CVZ%^JQ]BH<[7.130J[\"
^XMB(3.9,23,2,20313,0)="""DATA"",396.18,231,3,281,0)"
^XMB(3.9,23,2,20314,0)="M'46!UJU*A""2<*""_KC""BSGWI;&-+&/B+9#:!`SRJXZGEL%*S)!D@S$USC7^+&"
^XMB(3.9,23,2,20315,0)="""DATA"",396.18,231,3,282,0)"
^XMB(3.9,23,2,20316,0)="M1XJS(1!!:99__XV8,&U+X</P`(_NE%5E\""E^R.0+,:D4U7,I\EYV222D)PEY"
^XMB(3.9,23,2,20317,0)="""DATA"",396.18,231,3,283,0)"
^XMB(3.9,23,2,20318,0)="M=.;1LZ""#-(!N.U#4'P\NZ4_SZ_1G;)V>4)0HN.OD?F\0^`VK<X>E.BTA'1ZX"
^XMB(3.9,23,2,20319,0)="""DATA"",396.18,231,3,284,0)"
^XMB(3.9,23,2,20320,0)="M*BNVN;DS!2\F)/5?H-MX5.+%[""=DGEYWJ/+1G>(/[%T2.%;#X\#-1B-SWS>["
^XMB(3.9,23,2,20321,0)="""DATA"",396.18,231,3,285,0)"
^XMB(3.9,23,2,20322,0)="M5,&A?ER&X72:+3QCHRY\;#66V<>[L5$SIG3#02_D""GE@PB=M3.*+;+AC:M?!"
^XMB(3.9,23,2,20323,0)="""DATA"",396.18,231,3,286,0)"
^XMB(3.9,23,2,20324,0)="M1_09B/GZX'<GX`<K5N5(NV:C![-51M]$/Z3O0??C8-_$M[:<U8.""XM\E>5\<"
^XMB(3.9,23,2,20325,0)="""DATA"",396.18,231,3,287,0)"
^XMB(3.9,23,2,20326,0)="M6W`V%_:I,9[5Y\[BPU''WM10#OU)&\KC?X^<0S+K^']#P8VS$B!H?GHYUEV4"
^XMB(3.9,23,2,20327,0)="""DATA"",396.18,231,3,288,0)"
^XMB(3.9,23,2,20328,0)="MI'/3*T1J40@)`R2^?*=Y^\,Z`9-WN@^S![GI%`>,(;CW;K!Z$+H;B8K_9N0S"
^XMB(3.9,23,2,20329,0)="""DATA"",396.18,231,3,289,0)"
^XMB(3.9,23,2,20330,0)="M^6B;L3G](NZ6^]0?2PS1O%GQ*`,]NW*80S08*/21N-]C%I*F;]$M'P.))UV-"
^XMB(3.9,23,2,20331,0)="""DATA"",396.18,231,3,290,0)"
^XMB(3.9,23,2,20332,0)="MM_BW+#Q0M7+]C+6RJ9?&M8JFX#37N.+""K""_)K]/1A?/G%N;/+YZ>O]!7#=89"
^XMB(3.9,23,2,20333,0)="""DATA"",396.18,231,3,291,0)"
^XMB(3.9,23,2,20334,0)="MCK*;6>K$/0J`3K2].#IQ;_JJ*=HV)J+/>O-N%!CI/Z*H@[J!7O""+YI7VO:Z/"
^XMB(3.9,23,2,20335,0)="""DATA"",396.18,231,3,292,0)"
^XMB(3.9,23,2,20336,0)="M<(QZ""**&CC`-S?/D(>,P]FMN,?P7MH*S=9WT8&4/\?^)"":77;RB<K0-D(=<$"
^XMB(3.9,23,2,20337,0)="""DATA"",396.18,231,3,293,0)"
^XMB(3.9,23,2,20338,0)="M5ZMO?""Q/(`$V=I\_^:X'/WG86M8O->S+C<G-3+=X$L#M^&:,1[Y-/.Q+ONNL"
^XMB(3.9,23,2,20339,0)="""DATA"",396.18,231,3,294,0)"
^XMB(3.9,23,2,20340,0)="MK33;-I_!Z`<QP&OLPN_]O,(3*N$R<'#?F-,XI5^N6>4:<W^]<""Y.+0$H?W\0"
^XMB(3.9,23,2,20341,0)="""DATA"",396.18,231,3,295,0)"
^XMB(3.9,23,2,20342,0)="M`7N^'\1KGHH+OM^K""HGON6C4+Q%IVGI&/[MP""N>_ZMBDZ-461FW`XIL-O6*;"
^XMB(3.9,23,2,20343,0)="""DATA"",396.18,231,3,296,0)"
^XMB(3.9,23,2,20344,0)="M#JU4Q0WW.$'6FNFO-GF/9[[$@PG^1RP2:=2HZU'""&MX3%ZM;W"";,O;ZP[CO#"
^XMB(3.9,23,2,20345,0)="""DATA"",396.18,231,3,297,0)"
^XMB(3.9,23,2,20346,0)="MNG=CG'O'S_DE]@Q[W=VQ>8YG,[<.-M;]&(>.X#:2N@M]""8?V\5YJHW,UW*%#"
^XMB(3.9,23,2,20347,0)="""DATA"",396.18,231,3,298,0)"
^XMB(3.9,23,2,20348,0)="M_O]@UV\9S`6D/P[VR$94JPCU-,?H*OY$7W/MC4=D9E2X$Y`9^T=Z\.[H[JZ]"
^XMB(3.9,23,2,20349,0)="""DATA"",396.18,231,3,299,0)"
^XMB(3.9,23,2,20350,0)="ME7M,EZ*Q2\Q'Y[L)51W$VCWNZ#WEZ6C0B6,>'FBT>8?RW%@7R$=#S#L:Q\W("
^XMB(3.9,23,2,20351,0)="""DATA"",396.18,231,3,300,0)"
^XMB(3.9,23,2,20352,0)="M@T:CBM0C.B)M%^@5;X=<7@'O2#_""S3`]&$DE+^(RSD5<LL)MPR""C?T\1<,EG"
^XMB(3.9,23,2,20353,0)="""DATA"",396.18,231,3,301,0)"
^XMB(3.9,23,2,20354,0)="M>O;R)[N7>N\9G'!LUXR&GLGK:T:KXFB[T/^U;3V=2L$'$V=M$II%O^1]>`AG"
^XMB(3.9,23,2,20355,0)="""DATA"",396.18,231,3,302,0)"
^XMB(3.9,23,2,20356,0)="M"">G-U;#;]-+2C64<%+Y,;[U0$9O_Z^[J8N.XJO#^)/8ZCITX<9LV3=IM^I>T"
^XMB(3.9,23,2,20357,0)="""DATA"",396.18,231,3,303,0)"
^XMB(3.9,23,2,20358,0)="M3K/SLW\NM""1VT@:E3>2X20NMFK%W8@\9[RX[NTZ,2@5((%7EH2`>`*D2I:B5"
^XMB(3.9,23,2,20359,0)="""DATA"",396.18,231,3,304,0)"
^XMB(3.9,23,2,20360,0)="M>$""\@``)A*""TB(>""@*(^(G@I3Z2\\S/W[\RY.W=_I@[='5>M.KNV[YES[[GW"
^XMB(3.9,23,2,20361,0)="""DATA"",396.18,231,3,305,0)"
^XMB(3.9,23,2,20362,0)="MGGON.=\G;C]^*T=2OP'ZW1WH9T2#=CXP']Y6R4[L>Q7-1]K==07TZ(!C#./,"
^XMB(3.9,23,2,20363,0)="""DATA"",396.18,231,3,306,0)"
^XMB(3.9,23,2,20364,0)="M?*B$3,>KUCYZF(?LIE-2#[\4[N&RGH]&&';P-.K?ANTZ]CH+9V^=+NXK`5Z0"
^XMB(3.9,23,2,20365,0)="""DATA"",396.18,231,3,307,0)"
^XMB(3.9,23,2,20366,0)="M!7XBU7MGBG8'.N:_6X4D!41;+C.A2%0>'S8""\/>W(3#S)%HPXP:9&O:,-,DS"
^XMB(3.9,23,2,20367,0)="""DATA"",396.18,231,3,308,0)"
^XMB(3.9,23,2,20368,0)="M^GL4)I_Q2.""+(DV;^9;;1/;LBU#7UT#]&H>ZOHE^B.MU:='NZAY$XR*=F'.M"
^XMB(3.9,23,2,20369,0)="""DATA"",396.18,231,3,309,0)"
^XMB(3.9,23,2,20370,0)="M%JT*)8Y-YQ6DORG=,5ZY""Z)!.?(/CR4\3[5Y0*0]P@5\?BO$A&X11[E=<)""E"
^XMB(3.9,23,2,20371,0)="""DATA"",396.18,231,3,310,0)"
^XMB(3.9,23,2,20372,0)="MNG/[M:1+^'$%*.L]JDOX!7O=L:^2X_N""O>QWP693@C_8?(AH$NNGX:-?ZG+G"
^XMB(3.9,23,2,20373,0)="""DATA"",396.18,231,3,311,0)"
^XMB(3.9,23,2,20374,0)="M*^WI.8XN08[H#:;+[`V<KGW'5QA8T00'*Z)CQ'781Y>8]\5:MM'N`>IZJ9Q3"
^XMB(3.9,23,2,20375,0)="""DATA"",396.18,231,3,312,0)"
^XMB(3.9,23,2,20376,0)="M`!]);7%W<J9M850VIDFG!K'([@X(6Z@!<0?NIVQGV2D.H8^*%@]T3)=)1SP2"
^XMB(3.9,23,2,20377,0)="""DATA"",396.18,231,3,313,0)"
^XMB(3.9,23,2,20378,0)="MWJ*H#T3],X+3%A""![*.@4B$?[;`R.9<]Y;@VM_(0T7""&?6]71FXBV;H<BH)Y"
^XMB(3.9,23,2,20379,0)="""DATA"",396.18,231,3,314,0)"
^XMB(3.9,23,2,20380,0)="M0!>.+YP=N6NA_:OL4JM)_65KW7)<LL=VIU#MI#(?QK\E>NI<*D;S.&Y^W"";K"
^XMB(3.9,23,2,20381,0)="""DATA"",396.18,231,3,315,0)"
^XMB(3.9,23,2,20382,0)="MK\LG]$>E>U)LK)-P=X969C9]6US-[\+*_%*0W%PH:?&CR8-;"":[G,Q)QYBC<"
^XMB(3.9,23,2,20383,0)="""DATA"",396.18,231,3,316,0)"
^XMB(3.9,23,2,20384,0)="M2KRZ%7:@6T,07254.P7`Q@\I]IX'57O/8S6O3K""-G<\!(?5YEA4T^$T(5.31"
^XMB(3.9,23,2,20385,0)="""DATA"",396.18,231,3,317,0)"
^XMB(3.9,23,2,20386,0)="M\6.8$595%G*ST(;QW0CR,$4`-H=;O!3:L(,FB_,$H#A;L39FLFO^VZW2I@D^"
^XMB(3.9,23,2,20387,0)="""DATA"",396.18,231,3,318,0)"
^XMB(3.9,23,2,20388,0)="M:U;<A)`^H]G7UYPUB@PC01H',C4D,_VBV#2>#\O<OV!;'AN+)H%8(?G-;$Q4"
^XMB(3.9,23,2,20389,0)="""DATA"",396.18,231,3,319,0)"
^XMB(3.9,23,2,20390,0)="MS>I8%0%,]9H""*L0[)<!I:#W;3/:RX[H""<Y9IXE0)#!+MM1D""=>;/W4-/5NG/"
^XMB(3.9,23,2,20391,0)="""DATA"",396.18,231,3,320,0)"
^XMB(3.9,23,2,20392,0)="M#E%L&_0+=!5B?T:ZI-[R5FE+'&EHB>Y%7:/@!NX0446KIGM%N/66_]*KLM5Z"
^XMB(3.9,23,2,20393,0)="""DATA"",396.18,231,3,321,0)"
^XMB(3.9,23,2,20394,0)="M'.*HK8_`?KBGK;']^E>)CP3UC0-'IZ^S/?UM(?58;];53)\8;,%1C6OX%R:K"
^XMB(3.9,23,2,20395,0)="""DATA"",396.18,231,3,322,0)"
^XMB(3.9,23,2,20396,0)="M%0IBW][1?QCM""_$UP]T?$QO;*3YBY7"".M)$K%;MP/(M""/=;.6K=VRC$A;FV+"
^XMB(3.9,23,2,20397,0)="""DATA"",396.18,231,3,323,0)"
^XMB(3.9,23,2,20398,0)="MK$J3_5O""MK^3#+$X:T:^$`,-MRE-7)/,[LTH$8+MD7$&.9AY^H6D5&6J$#;*"
^XMB(3.9,23,2,20399,0)="""DATA"",396.18,231,3,324,0)"
^XMB(3.9,23,2,20400,0)="MUZS^4?\4T@J2M""M1I*6C44_@%1P0YM,_`EM91^6S<8A^M&&H3@K_3,_INF#<"
^XMB(3.9,23,2,20401,0)="""DATA"",396.18,231,3,325,0)"
^XMB(3.9,23,2,20402,0)="M'I52*-X%)^WUK>""D[0\=HXGJ@H;['3E]9(_""5;M7Y:JQ0D9ROAX""JA:5@D4-"
^XMB(3.9,23,2,20403,0)="""DATA"",396.18,231,3,326,0)"
^XMB(3.9,23,2,20404,0)="MC6UZMPCCS2A\D0K+QI#*6%>94EG/(12,%<=;7B5,G-G#M)R,>%4>Q1-D/W<M"
^XMB(3.9,23,2,20405,0)="""DATA"",396.18,231,3,327,0)"
^XMB(3.9,23,2,20406,0)="MKTG!!(D?1@MF_7^M;(/%4BC*8+=B6/G%=?SB/Q8S\+\*3Z0T9[4\^S!Y$U^L"
^XMB(3.9,23,2,20407,0)="""DATA"",396.18,231,3,328,0)"
^XMB(3.9,23,2,20408,0)="MLT:8<0EZ)$FOIR6ROC]%7TW3CS)_L4XHJ""N*1'CI%4IX7J1?%J_P5Q5NU:)"""
^XMB(3.9,23,2,20409,0)="""DATA"",396.18,231,3,329,0)"
^XMB(3.9,23,2,20410,0)="M;*5%R^54HOOL!UW7>!`@_0:ST,]TX9&^8[[5""(B'6PU:WFF#A795UY<D+P-<"
^XMB(3.9,23,2,20411,0)="""DATA"",396.18,231,3,330,0)"
^XMB(3.9,23,2,20412,0)="M4.JYL)P]B]P##MKNU7114N(D;_M3BK;G^'L'9MBK[3)^;<'7>S[<].XG*:!7"
^XMB(3.9,23,2,20413,0)="""DATA"",396.18,231,3,331,0)"
^XMB(3.9,23,2,20414,0)="MT'""PQ>P*MAA_W,MY*8GCBR'/;7]'SVVL9YT;C76<J%V;\D6*9R*4NU_I1;:W"
^XMB(3.9,23,2,20415,0)="""DATA"",396.18,231,3,332,0)"
^XMB(3.9,23,2,20416,0)="M[>/C[$%(X-ED4*:R8#<=PESAS[Q6U>;%U/B61-51!5/*6N9PH:E%Q2""0`Q89"
^XMB(3.9,23,2,20417,0)="""DATA"",396.18,231,3,333,0)"
^XMB(3.9,23,2,20418,0)="MX`:5T\<`ES""H2TKC37]:48]""YVJTMDL(YC?]2^'07%54';$5;#FRB#+OFM\Q"
^XMB(3.9,23,2,20419,0)="""DATA"",396.18,231,3,334,0)"
^XMB(3.9,23,2,20420,0)="MIRF5#&5[89YOQ2P3H]""/+(S+D;Y;B'I%10S/#IU>=L7Q3X?TL->_()T',/F8"
^XMB(3.9,23,2,20421,0)="""DATA"",396.18,231,3,335,0)"
^XMB(3.9,23,2,20422,0)="M/,_EO*Z0<Q?C&]O(KO$0V>'ZZH9'GHX`O$`O8=Q\?Y&0I'U9(>V`D%;W-I97"
^XMB(3.9,23,2,20423,0)="""DATA"",396.18,231,3,336,0)"
^XMB(3.9,23,2,20424,0)="M'<OW:)958MI#AOL4UY.Z(#+G(-""[V@/A<&.3*YO1$E'VGO:RZZ06S*IR0ZH\"
^XMB(3.9,23,2,20425,0)="""DATA"",396.18,231,3,337,0)"
^XMB(3.9,23,2,20426,0)="MT@>/IQH610Y8ZSFRP4FS\0[>8;\)Y3^0-R\J2$Z3!!?[[`+/!""-76?""!KB<Z"
^XMB(3.9,23,2,20427,0)="""DATA"",396.18,231,3,338,0)"
^XMB(3.9,23,2,20428,0)="M'GV1:VPGP_R@9;/TX=`$[CKI.BN._W<D$$HH<PC[/)H<9!,<V?]XNTV)L3XR"
^XMB(3.9,23,2,20429,0)="""DATA"",396.18,231,3,339,0)"
^XMB(3.9,23,2,20430,0)="M<C#X6=@4CB@3QR:9QT,&DKQ_)A,\!2>_G>1%%YTZN)\7G6JE=C5SIE9=H77)"
^XMB(3.9,23,2,20431,0)="""DATA"",396.18,231,3,340,0)"
^XMB(3.9,23,2,20432,0)="MPMV?$%!!Q`LV\#+S3B+48SKJL7+,:UHZS""4#$2H$J^"";8).'@B[(1YM-]Z+9"
^XMB(3.9,23,2,20433,0)="""DATA"",396.18,231,3,341,0)"
^XMB(3.9,23,2,20434,0)="M%&Q9$#G?W`0;P3E&4RC'B$ZTLK2V@PO\/=5,Z\T:,MK^/KN#3"".-!B%'=FHD"
^XMB(3.9,23,2,20435,0)="""DATA"",396.18,231,3,342,0)"
^XMB(3.9,23,2,20436,0)="M*,49HT9VZN13GG^:X""E(_..D_T1^5WS>$V0DB>\22F/%:WO:2(:,]1ZD4SYV"
^XMB(3.9,23,2,20437,0)="""DATA"",396.18,231,3,343,0)"
^XMB(3.9,23,2,20438,0)="M=-`A=?-8W:^&F;Z-0-U"",99,WY*Z!;R9!OK^4*EOK)C-MZG-N8A/6L>$.<^#"
^XMB(3.9,23,2,20439,0)="""DATA"",396.18,231,3,344,0)"
^XMB(3.9,23,2,20440,0)="M.<^CM3=6%,^C2G7QD27]5J*;NL58E<]U68G)61:K_4I8;;00%\J]%N+M[0MQ"
^XMB(3.9,23,2,20441,0)="""DATA"",396.18,231,3,345,0)"
^XMB(3.9,23,2,20442,0)="M,B>OQ5=M^\K(""/__J$[_[XV,&N+!%`]Y\5`0#T7Q4!(/9?Z0\1=L\:3!DPY/"
^XMB(3.9,23,2,20443,0)="""DATA"",396.18,231,3,346,0)"
^XMB(3.9,23,2,20444,0)="M!CR9\)2'IP(\%>&I!$\@0P<9.LC0088.,G20H8,,'63H($,'&3K(,$""&`3(,"
^XMB(3.9,23,2,20445,0)="""DATA"",396.18,231,3,347,0)"
^XMB(3.9,23,2,20446,0)="MD&&`#`-D&""##`!D&R#!`A@$R3)!A@@P39)@@PP09)L@P088),DR088*,/,C("
^XMB(3.9,23,2,20447,0)="""DATA"",396.18,231,3,348,0)"
^XMB(3.9,23,2,20448,0)="M@XP\EY'H:HTX,@;U/=]6>05%+7+^<>94RW5)+&IDS)\_S:/T<<)W8B\?%<[/"
^XMB(3.9,23,2,20449,0)="""DATA"",396.18,231,3,349,0)"
^XMB(3.9,23,2,20450,0)="M2.8\/=Y9KO!TN[ZN'`?:Z.;%F'JO]]TV%%Z,8!7A.IT/Z70STBE6%/""IOEUN"
^XMB(3.9,23,2,20451,0)="""DATA"",396.18,231,3,350,0)"
^XMB(3.9,23,2,20452,0)="M$W.8""<KT;T(/W(=Z(%J.S^W(X^9A""G<C*XPO,J""08O2D""70XM)KO1Q,H3JSV"
^XMB(3.9,23,2,20453,0)="""DATA"",396.18,231,3,351,0)"
^XMB(3.9,23,2,20454,0)="MNQ;]KY;LRA.UIKU4JUTA1VOY&ZXX2XH6C!?7X;[D!\E=_N]W57@""?H'J/.;K"
^XMB(3.9,23,2,20455,0)="""DATA"",396.18,231,3,352,0)"
^XMB(3.9,23,2,20456,0)="MW*35OI/B!^+.8Z?X0G$E`*WP#@ATN<U_]C^<\T_E""82_FKH%T:NRT#XFUSH0"
^XMB(3.9,23,2,20457,0)="""DATA"",396.18,231,3,353,0)"
^XMB(3.9,23,2,20458,0)="MUA1^QO=N-E/%UOT^Z/SUCEQ;G4BUMA]WG97J:,9RYUS''R1,LB5=)XTL>:08"
^XMB(3.9,23,2,20459,0)="""DATA"",396.18,231,3,354,0)"
^XMB(3.9,23,2,20460,0)="M;9""71SAPNQ,%;GG8\`_R[=$^Z)7/!C';6WE_ARI""9P?*+!>FXS-Q/&T/5^E/"
^XMB(3.9,23,2,20461,0)="""DATA"",396.18,231,3,355,0)"
^XMB(3.9,23,2,20462,0)="MBB+0IT7U]""PO?IW)NO1RB-P'K9&4$(L67#^4K2VY#EV(O%GVG5/SEEV[P5AP"
^XMB(3.9,23,2,20463,0)="""DATA"",396.18,231,3,356,0)"
^XMB(3.9,23,2,20464,0)="M""'A+@^QT5G7%<9K.H""DVVGND7,""!H=N2[9FE"")JU'897%#8/%V=(..T=T]8!"
^XMB(3.9,23,2,20465,0)="""DATA"",396.18,231,3,357,0)"
^XMB(3.9,23,2,20466,0)="MHL+3[5$?+9?O0AD2'SB3_NJW,&YUZO'V2P?<)_EH>:CL'KFV;E<)[-=E?UEH"
^XMB(3.9,23,2,20467,0)="""DATA"",396.18,231,3,358,0)"
^XMB(3.9,23,2,20468,0)="MN;A&<RC[K+^*+(G^\)]BE_AUR)OQ>TV+5O-VYX*U4;5:E?N\;'W5[[DU_S^:"
^XMB(3.9,23,2,20469,0)="""DATA"",396.18,231,3,359,0)"
^XMB(3.9,23,2,20470,0)="MC>=M5""O^ZF$/>P?VQ?<@8M""L`U\+\>RBFD%3C]1_NT\V-N@R:[N6N^(,O;WU"
^XMB(3.9,23,2,20471,0)="""DATA"",396.18,231,3,360,0)"
^XMB(3.9,23,2,20472,0)="MQ62B2\[S>HA7ZIZ@N_+1RG7NOV`UG&5""G[=.$CV(H=5K7O-H?=6UEQR*TQ<3"
^XMB(3.9,23,2,20473,0)="""DATA"",396.18,231,3,361,0)"
^XMB(3.9,23,2,20474,0)="MN^NOSD_#=B<""4@'Z.%KMC&AV-WW<W]1KQ%&HD5ZSV^K1A[++,IW</9X7\`_F"
^XMB(3.9,23,2,20475,0)="""DATA"",396.18,231,3,362,0)"
^XMB(3.9,23,2,20476,0)="M[NUH1SU++P7NWOZS(2!^GDLS4']OH@W'S<0\=%-<H6E0Z$P20&Z-G!&3,YPB"
^XMB(3.9,23,2,20477,0)="""DATA"",396.18,231,3,363,0)"
^XMB(3.9,23,2,20478,0)="M;Y#O2Y>H>?]'F/?#BKS!!?OHV;I='>08C4?.BQ1)7I<P5/&PJA>=S%JD@EV2"
^XMB(3.9,23,2,20479,0)="""DATA"",396.18,231,3,364,0)"
^XMB(3.9,23,2,20480,0)="M^%B'5+WH6:T""Y9I9YY^'W#K'HNMG8OW>&'+]1J/KE\?Z?7G(]=L>+0^ZC,^^"
^XMB(3.9,23,2,20481,0)="""DATA"",396.18,231,3,365,0)"
^XMB(3.9,23,2,20482,0)="M]X>I.Q\)*J*+A7A0)Z'-?0(GX>5QA""O?3D^1?B41)#,`J\*<:SEK+!'OM$2I"
^XMB(3.9,23,2,20483,0)="""DATA"",396.18,231,3,366,0)"
^XMB(3.9,23,2,20484,0)="M??*:M8;CIR$L0$'/Q(H[/Q:1$UH3=#'LSY^-2+>L%?+XSU_H08:LV%%Y.'"":"
^XMB(3.9,23,2,20485,0)="""DATA"",396.18,231,3,367,0)"
^XMB(3.9,23,2,20486,0)="M_KT>""MP'M;%[3K0<MR+1`L1K>>:\)5S59A=5IWG1^'QMN47R\V@BU$=?:KV9"
^XMB(3.9,23,2,20487,0)="""DATA"",396.18,231,3,368,0)"
^XMB(3.9,23,2,20488,0)="MK9;GB')EPQ<R0<W2E-!2#*TWR&%-1=:T5,2:3G71=.=IQ,`RT""AT+Q:&#@M;"
^XMB(3.9,23,2,20489,0)="""DATA"",396.18,231,3,369,0)"
^XMB(3.9,23,2,20490,0)="M`2ULX%^@E>U5B;VV=[00'Q93>T5I3""A)C-"">1#MUWXMBY*OA(E@!C3_\X47%"
^XMB(3.9,23,2,20491,0)="""DATA"",396.18,231,3,370,0)"
^XMB(3.9,23,2,20492,0)="MQ.++O4,[[5""\?=C>)I+')E)O3\K%%F)&LI`]%RQON>5:C6S5KM5=RUN+0?PE"
^XMB(3.9,23,2,20493,0)="""DATA"",396.18,231,3,371,0)"
^XMB(3.9,23,2,20494,0)="M;`UYR1H^'V^/L;<U%+`U'.<+QM>4""T:T6/J!Q8;56K-H2;""HSO(7""AJSBT%$"
^XMB(3.9,23,2,20495,0)="""DATA"",396.18,231,3,372,0)"
^XMB(3.9,23,2,20496,0)="M77&6R&'#.!?ODWRG_:B('>UM(1ZX8W@I[03.8N#=>T>7W7N2X_=PO(]!NF,]"
^XMB(3.9,23,2,20497,0)="""DATA"",396.18,231,3,373,0)"
^XMB(3.9,23,2,20498,0)="M]^]$SUO[B7,BB9X<,/#=/>EA^*`K+NM3T#F)3E?U>^6K^@6KNF*G7TYNC1M\"
^XMB(3.9,23,2,20499,0)="""DATA"",396.18,231,3,374,0)"
^XMB(3.9,23,2,20500,0)="MA6?/G=UQ*3""1?@TZZDB`5'UC29G^KSPP""D79=I/^F51^IU3T)OEV\A2[G1SF"
^XMB(3.9,23,2,20501,0)="""DATA"",396.18,231,3,375,0)"
^XMB(3.9,23,2,20502,0)="M54:]R(ARNDH2UP6EOP*A[1>""6/T#;=?V=1(UJ)*C#92L7'8H$XTWT.#]>%MP"
^XMB(3.9,23,2,20503,0)="""DATA"",396.18,231,3,376,0)"
^XMB(3.9,23,2,20504,0)="M1D#%CTDJ-D#%%1R]CTL&5H<]`[/CIL=%'.H9T/5+""7SE=,6UCYUH$""I+?^Q."
^XMB(3.9,23,2,20505,0)="""DATA"",396.18,231,3,377,0)"
^XMB(3.9,23,2,20506,0)="M5ROVM4&.VXYP_""4G<;UR#HYT$7+G3-#F/8(0(Y8=8%,CU$?$TV$&R])N6+;-"
^XMB(3.9,23,2,20507,0)="""DATA"",396.18,231,3,378,0)"
^XMB(3.9,23,2,20508,0)="MC""+#!M)O9A39-M*/'=:^S+%):]X)KC>E\+4K,]DUV_(/8S9G=B.]O21ZVR&]"
^XMB(3.9,23,2,20509,0)="""DATA"",396.18,231,3,379,0)"
^XMB(3.9,23,2,20510,0)="M/9-M50GED2@H=#<(""5BS89%IM&SY;3R8'8HD'S0B/-(Y24?D,;YG'@E'Q,;("
^XMB(3.9,23,2,20511,0)="""DATA"",396.18,231,3,380,0)"
^XMB(3.9,23,2,20512,0)="MKV6/GS@].QR<(CR']B<)Z<5SX1??L4""^&-B;RZ`U.N[MISJ!]?DG@H*F**04"
^XMB(3.9,23,2,20513,0)="""DATA"",396.18,231,3,381,0)"
^XMB(3.9,23,2,20514,0)="MK1B2[EV;T7O28Y:0-Y"":[K)'CE^@>%:$W7JHXT$*OCL-Z[C>1<>#YR[,4Z""+"
^XMB(3.9,23,2,20515,0)="""DATA"",396.18,231,3,382,0)"
^XMB(3.9,23,2,20516,0)="M,W1MX=0I8AU""Q]OH[U#`7M=[W;RN2<C""H'`;T<&8D-0B=H%Z.'MMN3*;N1PR"
^XMB(3.9,23,2,20517,0)="""DATA"",396.18,231,3,383,0)"
^XMB(3.9,23,2,20518,0)="M#<GUZM;E>^54""0K=OQEL'E,RZ&Y.WS[87PZ?IXF;;+B/;"":^*MA$>(=W'>?,"
^XMB(3.9,23,2,20519,0)="""DATA"",396.18,231,3,384,0)"
^XMB(3.9,23,2,20520,0)="M$SR8HRASCG[?6,I+7=YM)H]!5EG_P:_>A[3MB[;7]/I-K.YQ5MLKG]78F>S["
^XMB(3.9,23,2,20521,0)="""DATA"",396.18,231,3,385,0)"
^XMB(3.9,23,2,20522,0)="MJ4A'N-\GML81KGWS,T1B!V/@'@N1L@6;W\,+MM=R""0KNY=GL4T?]<?>]G?E:"
^XMB(3.9,23,2,20523,0)="""DATA"",396.18,231,3,386,0)"
^XMB(3.9,23,2,20524,0)="MO>X[25D(*IYOMBJ^MS.3I5-QI6&M^<]V<WD@&V;OM*V""AM)WTL\)K_A@LIV&"
^XMB(3.9,23,2,20525,0)="""DATA"",396.18,231,3,387,0)"
^XMB(3.9,23,2,20526,0)="M3S,*$?.V9B_:W+]K0,=1F+\FL6W""J\XH7FL,JI""""_C3LNN^7#GO<+1D""OBMA"
^XMB(3.9,23,2,20527,0)="""DATA"",396.18,231,3,388,0)"
^XMB(3.9,23,2,20528,0)="M(Q)HC6]!$O_'X1B5*Y9*V^&%+Z[Z;G-,3E4]UZRQ><=:J9+C0K_KEO'A8DQ;"
^XMB(3.9,23,2,20529,0)="""DATA"",396.18,231,3,389,0)"
^XMB(3.9,23,2,20530,0)="M<R721""QIFXP>\7/HD.F@2D#<A3,<%'^KY]B5FU3I^@TY$0%`)W>8_LT&^$X^"
^XMB(3.9,23,2,20531,0)="""DATA"",396.18,231,3,390,0)"
^XMB(3.9,23,2,20532,0)="MP*;B0""00QBG*ITR;:98QH@1T""R!*I-]-,#RYLRW?X_#'=IV,K01=T2&^8Z(:"
^XMB(3.9,23,2,20533,0)="""DATA"",396.18,231,3,391,0)"
^XMB(3.9,23,2,20534,0)="MK/071,/OP*R=1'!)""*FT(LQ\%E_1R$F1W$&=D-R'@$GQ>@+=5^BQ#JN(\P`+"
^XMB(3.9,23,2,20535,0)="""DATA"",396.18,231,3,392,0)"
^XMB(3.9,23,2,20536,0)="MDIWAJOX+C%8;Z)V^RHWGWM*4M.'_$5XXJUC0AOK*7K:\O#3G<N)J!/;S3R++"
^XMB(3.9,23,2,20537,0)="""DATA"",396.18,231,3,393,0)"
^XMB(3.9,23,2,20538,0)="MT^*!;M$)\2S`0&?&=_L--[Y-W=4DE=APP4M/233`*@/<$6!#1K""'WI>I)MYW"
^XMB(3.9,23,2,20539,0)="""DATA"",396.18,231,3,394,0)"
^XMB(3.9,23,2,20540,0)="MA<OW`;S`'2(A3S.T:`7#V8L606L4F$QGZTZ5)%X`W'VTDN$$^^=_4$L#!!0`"
^XMB(3.9,23,2,20541,0)="""DATA"",396.18,231,3,395,0)"
^XMB(3.9,23,2,20542,0)="M`@`(`(%5'S75@[^DRTP``$BZ`@`3````059?36ES8U\Q,3,N<&YL+F9R;>Q="
^XMB(3.9,23,2,20543,0)="""DATA"",396.18,231,3,396,0)"
^XMB(3.9,23,2,20544,0)="M;6_<MI;^7J#_0<C],#&V[15)O098%([C-%DDL6&[R2X6%X5F1'NTT4AS]6)G"
^XMB(3.9,23,2,20545,0)="""DATA"",396.18,231,3,397,0)"
^XMB(3.9,23,2,20546,0)="M^NN7I*01WR1QQG93O^1#:U$:B7QX>'CXG,/#?/Y_>%%9'Z(Y3B\V:WQR^38O"
^XMB(3.9,23,2,20547,0)="""DATA"",396.18,231,3,398,0)"
^XMB(3.9,23,2,20548,0)="M5J^L""U;RXP^6]0%?5M9_6C]#VZ:7%_F:7$&'_OTEB:LEN4(AO7J'DZLE?10@"
^XMB(3.9,23,2,20549,0)="""DATA"",396.18,231,3,399,0)"
^XMB(3.9,23,2,20550,0)="M>GD4K:LDS\CU[./QV6_'LQ]_P%G\XP\Y]T7ZK?=O)K_FV/S7@#/^M<//TJ<."
^XMB(3.9,23,2,20551,0)="""DATA"",396.18,231,3,400,0)"
^XMB(3.9,23,2,20552,0)="M/_]Q&F4X!3;Y$ON+^Q)""W'<`_QW7A<*'D.VSZR2C5[/3D]/?3V>TY#6^QNG["
^XMB(3.9,23,2,20553,0)="""DATA"",396.18,231,3,401,0)"
^XMB(3.9,23,2,20554,0)="M+,,%*9]?GT5)B6-V(R]B7)Q7FQ33.^5YDEVEF%4W3W/Z]""(]3])K7-""RMWE6"
^XMB(3.9,23,2,20555,0)="""DATA"",396.18,231,3,402,0)"
^XMB(3.9,23,2,20556,0)="M_7*TC(H2TP^\.7Y[^/N'BS^.WAV>G1]?]$]L?_HZC19?M^7;>OX,P+;P4[3"""
^XMB(3.9,23,2,20557,0)="""DATA"",396.18,231,3,403,0)"
^XMB(3.9,23,2,20558,0)="MK`?.K?,H*ZUS7""27L^WMKFK_^R]:=!H5.*OH#5+T-DI+5M6+:'Y""FT'*6#?T"
^XMB(3.9,23,2,20559,0)="""DATA"",396.18,231,3,404,0)"
^XMB(3.9,23,2,20560,0)="MH+).\QV^^[:P@J9;.F3=YJ*#%@9.4]#WHM<4\/U85*2VN+2B++8^XR0K7UF'"
^XMB(3.9,23,2,20561,0)="""DATA"",396.18,231,3,405,0)"
^XMB(3.9,23,2,20562,0)="MV16YB^LBKY*%=1SC531K?CB-WC!^*H*(*Q[&4$;QLGR=I_&_FEMZ-)E<JB""Z"
^XMB(3.9,23,2,20563,0)="""DATA"",396.18,231,3,406,0)"
^XMB(3.9,23,2,20564,0)="M>A`#'D,$11`!A!*(4`7QRS*JK*2TJB6VZK*.4BO-%Q&[FU\29*VHJ@@*O]X+"
^XMB(3.9,23,2,20565,0)="""DATA"",396.18,231,3,407,0)"
^XMB(3.9,23,2,20566,0)="MBF`O%$?Q(\TG@^I+$5%$+HIZ#%3/`%3@`Q%57P:UDP4.U#>X7!3)'%LY@;5X"
^XMB(3.9,23,2,20567,0)="""DATA"",396.18,231,3,408,0)"
^XMB(3.9,23,2,20568,0)="MU;;B.(OF*8[%VO[M`1W`SM=BAZ#/@^=(PQKXX31XJD3&==%+)!/'\L'(XP!\"
^XMB(3.9,23,2,20569,0)="""DATA"",396.18,231,3,409,0)"
^XMB(3.9,23,2,20570,0)="M@5[T.N%ZEKT1\`)[`#PTJ@U1:*@-254XX2LWJW65K\I'KPX#8#*DH2U/U5V!"
^XMB(3.9,23,2,20571,0)="""DATA"",396.18,231,3,410,0)"
^XMB(3.9,23,2,20572,0)="MZ9B^+/""_:YPM-A31-""HVV14F.$L#^U$)+#1!-K0E@0V=W:9O`=@63NLFJ99Y"
^XMB(3.9,23,2,20573,0)="""DATA"",396.18,231,3,411,0)"
^XMB(3.9,23,2,20574,0)="M77%`)]EU3DS*%:G^(Q/CUW55Y1F@<MS\*<`-H3""Q0]>7E*LLQS!4X#Y*\Q(_"
^XMB(3.9,23,2,20575,0)="""DATA"",396.18,231,3,412,0)"
^XMB(3.9,23,2,20576,0)="M'-`XT[QM^TEVE"":+KZ3@6P/1;Y@L2Y(%*]5+<%)6K_-O`%$9;OX>,9?<4-:Z"
^XMB(3.9,23,2,20577,0)="""DATA"",396.18,231,3,413,0)"
^XMB(3.9,23,2,20578,0)="MBG:P.SW<KI.`[:*@&_7?*E(!')_CE'Y>:,S[""J\4'4,+2X)'059.)2E_V11;"
^XMB(3.9,23,2,20579,0)="""DATA"",396.18,231,3,414,0)"
^XMB(3.9,23,2,20580,0)="MUNQ#LIYM+R[R[*K&_?7Q!J=)S%U'17_Q@0Z5;_WU.[*^*/O+MQA7_=4)G65G"
^XMB(3.9,23,2,20581,0)="""DATA"",396.18,231,3,415,0)"
^XMB(3.9,23,2,20582,0)="M!\WUQSJMDFW=.SE5ETB#(#M#((MSVWXH._8]H$P6""VGR)U'4F%MKD1MG.,YP"
^XMB(3.9,23,2,20583,0)="""DATA"",396.18,231,3,416,0)"
^XMB(3.9,23,2,20584,0)="MR<%V&B59?_6^6BS)R_J""+TN,_Q1*WB27E\F""(+JQY@6.*O'YPWF<KY*,Z+.U"
^XMB(3.9,23,2,20585,0)="""DATA"",396.18,231,3,417,0)"
^XMB(3.9,23,2,20586,0)="M\.)=^P-J^^,H7\UST@G43.O^'M/=<H>HDR($JM1[LQ',N3HZD[U`D""93`#%/"
^XMB(3.9,23,2,20587,0)="""DATA"",396.18,231,3,418,0)"
^XMB(3.9,23,2,20588,0)="M/(MH^X*#W;.JW(*.7`QIL6/%T88K=&FA+Q5^S)DY1-[=WCG0(W;ZY>-9%""?Y"
^XMB(3.9,23,2,20589,0)="""DATA"",396.18,231,3,419,0)"
^XMB(3.9,23,2,20590,0)="M;T5>KR&=\<0B""3X@&KI(7B@$$G[(4?%SVUJ>+_.;ADH19?F_ZK)*+C<,-Z'_"
^XMB(3.9,23,2,20591,0)="""DATA"",396.18,231,3,420,0)"
^XMB(3.9,23,2,20592,0)="M:<EI%.MIA3<YL?,VVPFTG2[9#,LFT6_=K$GT>KW*RDZ(_E8SPK""L_`_F.O=3"
^XMB(3.9,23,2,20593,0)="""DATA"",396.18,231,3,421,0)"
^XMB(3.9,23,2,20594,0)="MW@T5@RG$&QTJON%0@=#>9ZSX8W:A=@`U+:*RT;Z'^X&^E&NK;S[D\FR!K37Y"
^XMB(3.9,23,2,20595,0)="""DATA"",396.18,231,3,422,0)"
^XMB(3.9,23,2,20596,0)="MU0;SL\B)OOCB)M&6]\.L$I\X&$4]-$0==-/T;J@[AAK*G8(+,#5D5<D*EYK6"
^XMB(3.9,23,2,20597,0)="""DATA"",396.18,231,3,423,0)"
^XMB(3.9,23,2,20598,0)="MM^IHZ#933,'@[1X[Y1D]>A_Q*H=TKJ5_B!.M)Z`6>%,3K>N)J$$""//CKUC!0"
^XMB(3.9,23,2,20599,0)="""DATA"",396.18,231,3,424,0)"
^XMB(3.9,23,2,20600,0)="MHR2.B*I/""`""?\,V8BOB0D`E:VUE3.N%\4>1I^IHT@927Y6=<5`DQ`Q2I`,/@"
^XMB(3.9,23,2,20601,0)="""DATA"",396.18,231,3,425,0)"
^XMB(3.9,23,2,20602,0)="MNUKP)?IC/_3A,_H,?;1%7^?K""#6N#L_E7!V0=W5XC3;AED;@B;LZ@&:=[\$!"
^XMB(3.9,23,2,20603,0)="""DATA"",396.18,231,3,426,0)"
^XMB(3.9,23,2,20604,0)="M5X?#B[6T[$2AMY^KXRS:9%$=S_Z!PEEIG2YQEI,U/65)""^M\D\4%N7P,O@\/"
^XMB(3.9,23,2,20605,0)="""DATA"",396.18,231,3,427,0)"
^XMB(3.9,23,2,20606,0)="M:5'MS(@!ML\Q8IJ3Q=*:Y_&&+""**JF3,7W1Y2;Z.XP?.,'MZMQN<@$W1L%,D"
^XMB(3.9,23,2,20607,0)="""DATA"",396.18,231,3,428,0)"
^XMB(3.9,23,2,20608,0)="MJ4""/6@N""4[2@LEI2_]OC)4L]UP1>@'Q9+`U<<B*#;X+PPV;Y=X$]U,+N0&=<"
^XMB(3.9,23,2,20609,0)="""DATA"",396.18,231,3,429,0)"
^XMB(3.9,23,2,20610,0)="M&9A2U.L""+Y)U4D45;CC51^)NLDU@`Z[][&[2@`<,YA_@2NLKX(+=W""*/T,D)"
^XMB(3.9,23,2,20611,0)="""DATA"",396.18,231,3,430,0)"
^XMB(3.9,23,2,20612,0)="M38`+917IV;?P)SUXY%H?ACW@P_`%W@PZDJ;S95NR4X6/PH?AW]*'$0ZPZZ)$"
^XMB(3.9,23,2,20613,0)="""DATA"",396.18,231,3,431,0)"
^XMB(3.9,23,2,20614,0)="M.MYDT(*&7`?P[LGU-\E50JS2#[\?S^2R,TW9AP^:Y_BRBV1-QTC6]W_C^DCS"
^XMB(3.9,23,2,20615,0)="""DATA"",396.18,231,3,432,0)"
^XMB(3.9,23,2,20616,0)="M.4\*'BTQ_BI<)]F=>3CLH3X0.T'Q<""B=X*MT%?#OO@\:P2=65W:%R:+K9IE4"
^XMB(3.9,23,2,20617,0)="""DATA"",396.18,231,3,433,0)"
^XMB(3.9,23,2,20618,0)="M^""=KGM;DOP6.A_P;5)I+HIW*).+IUGHU%[TBN[HKT""BX<`!<::)7)5QFVT-/"
^XMB(3.9,23,2,20619,0)="""DATA"",396.18,231,3,434,0)"
^XMB(3.9,23,2,20620,0)="M!=>]>W""/OZWSLJ8KB=Q:D-4A)ZIXM<9D0J0W6_`YD5WE5)E%J56O2]X91[XA"
^XMB(3.9,23,2,20621,0)="""DATA"",396.18,231,3,435,0)"
^XMB(3.9,23,2,20622,0)="MH/L^HVLY\BCGO2.3K.`*W+4'W%$^UAWB8Z593X[L4;M`0\<""9$C'`G/VVK56"
^XMB(3.9,23,2,20623,0)="""DATA"",396.18,231,3,436,0)"
^XMB(3.9,23,2,20624,0)="M2597/+RO<76#,;U%V08P\@1H'D'V\""/D'GW$TSQR<DTJR]T89[H],V0AV`M9"
^XMB(3.9,23,2,20625,0)="""DATA"",396.18,231,3,437,0)"
^XMB(3.9,23,2,20626,0)="M4Z(;3B%[DF%*P*P8)<VXZ#A*TDW?:H<*N\?QU`2FKS.1*$>#MS5N!_;`,,^-"
^XMB(3.9,23,2,20627,0)="""DATA"",396.18,231,3,438,0)"
^XMB(3.9,23,2,20628,0)="M/!W5*IO^GC.%FA>J5*O_3+6.>,88^KX.?9DF4-$/#=`/GM'OW>.#1'>@(;J!"
^XMB(3.9,23,2,20629,0)="""DATA"",396.18,231,3,439,0)"
^XMB(3.9,23,2,20630,0)="MQP7U0U?<JB#N'D#@J0?U0\W2#NHYV2`8(;JAO2?1??C9>DN,FCI]%*'\KCYR"
^XMB(3.9,23,2,20631,0)="""DATA"",396.18,231,3,440,0)"
^XMB(3.9,23,2,20632,0)="M6M3'GK2N<YSI-?&'-F[_U<-F#=Q@@#6PQP!ZIJH8=J&!;`$H1?"":,%7G+0G]"
^XMB(3.9,23,2,20633,0)="""DATA"",396.18,231,3,441,0)"
^XMB(3.9,23,2,20634,0)="MP(7+LTV$2T'HR4M7P[-X>E)JR]BU\ZGO3@76NH^(E'+W):7$\#@0C$?,`5?`"
^XMB(3.9,23,2,20635,0)="""DATA"",396.18,231,3,442,0)"
^XMB(3.9,23,2,20636,0)="M6&:;/1GCK2.O7^38P;W$RYTG,7ZEA,2A!Q02=T8_P*^Q+KFKUV0\[Q`D9X\N"
^XMB(3.9,23,2,20637,0)="""DATA"",396.18,231,3,443,0)"
^XMB(3.9,23,2,20638,0)="M8IW!1:P8(N!-=:]F#6M[=\4.'!8KCC`A*]F(+[A8DE=S:.4WY*TIOM)2*D-4"
^XMB(3.9,23,2,20639,0)="""DATA"",396.18,231,3,444,0)"
^XMB(3.9,23,2,20640,0)="M53!$`XI3E6-/`0$@4I$([YZJ^ACQQ-*Q&.S\NDZOR""^L:VJP<L0I3M,Z3:J$"
^XMB(3.9,23,2,20641,0)="""DATA"",396.18,231,3,445,0)"
^XMB(3.9,23,2,20642,0)="M*_L]7>#&T</15E^3S(J3<D''@'QOF1<5Y0PI<]O$0=\AF84&%ZY`&QXG3Y1["
^XMB(3.9,23,2,20643,0)="""DATA"",396.18,231,3,446,0)"
^XMB(3.9,23,2,20644,0)="M]`]9N:)GWD!>N2H!<L@`_FDUX;@J^-XS^%+DOXXV<'2T0>-NX[=K;6D#.Q`#"
^XMB(3.9,23,2,20645,0)="""DATA"",396.18,231,3,447,0)"
^XMB(3.9,23,2,20646,0)="MY)J)\@G3!DAC?B/]VLX5EW8R;>#O1QM<%%&]BEZ6!X^!-0`#SG0Q7ADJ^ZW1"
^XMB(3.9,23,2,20647,0)="""DATA"",396.18,231,3,448,0)"
^XMB(3.9,23,2,20648,0)="M],*%9O7XJ=_U3Q&,HPH3X.B44S$47SUP?[H[L'*1O3+AU,HE>$0K%[#ORH5-"
^XMB(3.9,23,2,20649,0)="""DATA"",396.18,231,3,449,0)"
^XMB(3.9,23,2,20650,0)="M4'`Z?-Z17#%0(XZV9+TAQPUG3VXNLD?G(JB9BYK8>!V#[39K@]X&L-$3GXH<"
^XMB(3.9,23,2,20651,0)="""DATA"",396.18,231,3,450,0)"
^XMB(3.9,23,2,20652,0)="M'8,]D/Q#5`B2>>O:]N1<Q*VBU#GI/""=?N4C*LL:D8<4B7T746_@)Y^LT*E=4"
^XMB(3.9,23,2,20653,0)="""DATA"",396.18,231,3,451,0)"
^XMB(3.9,23,2,20654,0)="MX7Z.RD6=1H4UL_ZCM^N+Y&H;7O""@)S(X0'\+](;B'8<&`9QODN@JR\N$K92J"
^XMB(3.9,23,2,20655,0)="""DATA"",396.18,231,3,452,0)"
^XMB(3.9,23,2,20656,0)="M>D6:_A)_BQ;503-[#=0G,*@/`.[DAEM-A<@L2NL2;ROV<K7ZYX;\&Z]1:%(C"
^XMB(3.9,23,2,20657,0)="""DATA"",396.18,231,3,453,0)"
^XMB(3.9,23,2,20658,0)="M.=X0PM!LJB^W,WP#%%U2TEP`ULLD6Z1U3->Q95U<X6*\FL@VJ""94`J!]DP#H"
^XMB(3.9,23,2,20659,0)="""DATA"",396.18,231,3,454,0)"
^XMB(3.9,23,2,20660,0)="M%C@R)""I2VXJH7S8^:,`S5]\XVOQDK8C4+7]BF[T.1DE7XQAC-!#O*5I:H201"
^XMB(3.9,23,2,20661,0)="""DATA"",396.18,231,3,455,0)"
^XMB(3.9,23,2,20662,0)="M""$YSQ'UT4(JC$EMQ1QDOZH*.H#[4N\`IP2""FL0!]@VF_%;A,XII7#:2%7;O-"
^XMB(3.9,23,2,20663,0)="""DATA"",396.18,231,3,456,0)"
^XMB(3.9,23,2,20664,0)="MFZAWWR$`QCO/=G;L/*ZW1-&_12<U1@H:2O(@;'M$WF22!^\YR8/""18,)+EJ,"
^XMB(3.9,23,2,20665,0)="""DATA"",396.18,231,3,457,0)"
^XMB(3.9,23,2,20666,0)="MMI>E)%""X:(6B@PZX)RZZ$;Y68:P>-B_-+`@N=(@:$1PS2&V)BMD2M^>GQ?ZW"
^XMB(3.9,23,2,20667,0)="""DATA"",396.18,231,3,458,0)"
^XMB(3.9,23,2,20668,0)="MQ_M_Z^$9$``/3@D`L?*=>Q&`+U$3%-[,_ZLH3:ZRJ$]TH\B!^3[YGL'-OF;Y"
^XMB(3.9,23,2,20669,0)="""DATA"",396.18,231,3,459,0)"
^XMB(3.9,23,2,20670,0)="MS38BUFB_*]+3>0*,\FY7QU.TK:_""""&=/F+CC83Z.DXK:<O3_8X830I,P`Q7F"
^XMB(3.9,23,2,20671,0)="""DATA"",396.18,231,3,460,0)"
^XMB(3.9,23,2,20672,0)="M+O+2B#N'TYT-9"">I6HW.PN.KX<^>.?)M;P-M;XO))CS94>J;]+8[9J-,Q@+3"
^XMB(3.9,23,2,20673,0)="""DATA"",396.18,231,3,461,0)"
^XMB(3.9,23,2,20674,0)="M.H6ZNB$QY^F>E?,,*S<2E*CW[8B6DQU.""JBJU3WOZ0FH/\K=`!UYX_3<#>*I"
^XMB(3.9,23,2,20675,0)="""DATA"",396.18,231,3,462,0)"
^XMB(3.9,23,2,20676,0)="M&Q^)7@0'[NI%>)@$C:MCO`?R!B-_)&^PH^[T-',6?(Z(?4S,_N::W3G-R^KG"
^XMB(3.9,23,2,20677,0)="""DATA"",396.18,231,3,463,0)"
^XMB(3.9,23,2,20678,0)="MTV6*YPE=>#ZF+?5@@/Q""8A249)`$8(<HJ!?,%?UB6%<I-5N0JD=DM!;\@-G6"
^XMB(3.9,23,2,20679,0)="""DATA"",396.18,231,3,464,0)"
^XMB(3.9,23,2,20680,0)="M3>AU3TX7Y<B\7-""J##903NJJ'2B?\@QO+4%EH!A8&>WVO('5)T)B""M(03<21"
^XMB(3.9,23,2,20681,0)="""DATA"",396.18,231,3,465,0)"
^XMB(3.9,23,2,20682,0)="M/:I(J+W]"":VF;<)CMA<CO*P<_N2#4$D7UI7DQ9];3?[+14'0H0P7OZ""@FKU_"
^XMB(3.9,23,2,20683,0)="""DATA"",396.18,231,3,466,0)"
^XMB(3.9,23,2,20684,0)="MY(QN-F+9W6W=;>T;#NLJ;QX97W>I`U%*(]!+4G?=.IN[RZW$=W.B9CAJHX+9"
^XMB(3.9,23,2,20685,0)="""DATA"",396.18,231,3,467,0)"
^XMB(3.9,23,2,20686,0)="MYMAYEA=T351MNH5QVQ=*Q4)_H&+`\\2J=9G:>;86F-6-[>(M<)J00=HLVU@2"
^XMB(3.9,23,2,20687,0)="""DATA"",396.18,231,3,468,0)"
^XMB(3.9,23,2,20688,0)="MP5?;M9;6Q!FJ,K""A:9V!JP#J&^*I#_/<N:K(M*H0JO@B%5_H:>K*PI\JVO,,"
^XMB(3.9,23,2,20689,0)="""DATA"",396.18,231,3,469,0)"
^XMB(3.9,23,2,20690,0)="MY$OZ%T/8FF\HW&2Z6^&(;L`K)QJB9>;&VC<D/J[4NA[CGF3T=Y`>>0_XWAT2"
^XMB(3.9,23,2,20691,0)="""DATA"",396.18,231,3,470,0)"
^XMB(3.9,23,2,20692,0)="M#%18[@X7J.*^E^C<OLZRA=2#W`_`(?7A^"",BU/-TGFW/-""TY;)*_%$J*DNB2"
^XMB(3.9,23,2,20693,0)="""DATA"",396.18,231,3,471,0)"
^XMB(3.9,23,2,20694,0)="MSK1KH@ESHD5CJZR()46U)9F=;J*4*LY?9_N)%`A,6^O;<G-=0X4D1[G?T6@`"
^XMB(3.9,23,2,20695,0)="""DATA"",396.18,231,3,472,0)"
^XMB(3.9,23,2,20696,0)="MH6G5@>M_7\7D&*,,D:M(5:]6QQ53*S\E%CP>=!J(J6K""*;YN)ZW""6N2K-=W5"
^XMB(3.9,23,2,20697,0)="""DATA"",396.18,231,3,473,0)"
^XMB(3.9,23,2,20698,0)="M2R^7>4F6?)M?[[1[H.D<#/>>A*61GTH[=7;L)`3-=!6RE:G#\0P'0KU:1<68"
^XMB(3.9,23,2,20699,0)="""DATA"",396.18,231,3,474,0)"
^XMB(3.9,23,2,20700,0)="ME=""8=J%D!W/I)QVI,E#1]!H=!'Q-98Y2/MLC;Z)OX9^T.?5HMMOFY5CD(0E0"
^XMB(3.9,23,2,20701,0)="""DATA"",396.18,231,3,475,0)"
^XMB(3.9,23,2,20702,0)="MF[#-+*39JBF$)'N@[^N1H.2!L.01GKJ-5[?J]5H*P^X""V_6WV(]2)79[^R/M"
^XMB(3.9,23,2,20703,0)="""DATA"",396.18,231,3,476,0)"
^XMB(3.9,23,2,20704,0)="M+2&\>#C`6&?X:N`7/0QHP.?`F4:RLE0'I&,KW8&0ICNV#-^P_V'$`Z'S00@2"
^XMB(3.9,23,2,20705,0)="""DATA"",396.18,231,3,477,0)"
^XMB(3.9,23,2,20706,0)="M^[YLI\?(6A+!RHO-UO3J=9>2/GB\EWE_A)""Y5R7]#-!F81B[P>W:JOX+#.'V"
^XMB(3.9,23,2,20707,0)="""DATA"",396.18,231,3,478,0)"
^XMB(3.9,23,2,20708,0)="M[QONQJPE<EX2O+F3#;0P#\P:MT??GU0UP:""N41<IM@JXJP+>6PP\X,'4%'GG"
^XMB(3.9,23,2,20709,0)="""DATA"",396.18,231,3,479,0)"
^XMB(3.9,23,2,20710,0)="M6NBXG[2)J'^K""KPBZTP>M""-U)A?T#BZKVRJ;P%3\@TGQ=Q7+7^T.I,[_CJ/K"
^XMB(3.9,23,2,20711,0)="""DATA"",396.18,231,3,480,0)"
^XMB(3.9,23,2,20712,0)="MCO`>Y/].Y)H28CSHIU%1)5$J=UN**ZR5>&""JWEE4TRCBMB3^3J""*OV.F;WSO"
^XMB(3.9,23,2,20713,0)="""DATA"",396.18,231,3,481,0)"
^XMB(3.9,23,2,20714,0)="M.ZCW>KNSYYYU/#2=4<&DD$N0^QJ>*32$/+AOR'M\O[N>1\,]T&[N`^I.OT%*"
^XMB(3.9,23,2,20715,0)="""DATA"",396.18,231,3,482,0)"
^XMB(3.9,23,2,20716,0)="M`6J6YZJ=SI%J'.KAS*""Q&DVNGBXQC@O+9A^Q,#NZ*$OY-$M=_G8TE*!=E_5&"
^XMB(3.9,23,2,20717,0)="""DATA"",396.18,231,3,483,0)"
^XMB(3.9,23,2,20718,0)="M?D#0]M.B[4Z)-H(2U12JRU6D+D!0H$,9?@=U0H\UN6=%`I`IW,'.<`.D8?8"""
^XMB(3.9,23,2,20719,0)="""DATA"",396.18,231,3,484,0)"
^XMB(3.9,23,2,20720,0)="M0[SOUSJGF=JL?+&HB])B!'3YG=1(%T<WC7^X._X^W!]_=-_R3H7;6N09Y0>_"
^XMB(3.9,23,2,20721,0)="""DATA"",396.18,231,3,485,0)"
^XMB(3.9,23,2,20722,0)="M%_BN*?AP=_!5[`-#[+WP.^B:4MF`?-^:!YB""[^P,OJN""CSQ#P0?W#;X`\G>W"
^XMB(3.9,23,2,20723,0)="""DATA"",396.18,231,3,486,0)"
^XMB(3.9,23,2,20724,0)="M8X""Q*3E)%[A`)OR4^38T9`L\])>LENX`/F]RO1\.KO<50CU0#11/E=O>N<$C"
^XMB(3.9,23,2,20725,0)="""DATA"",396.18,231,3,487,0)"
^XMB(3.9,23,2,20726,0)="MYOSER_U#\?PV33(""EBJBR.=SZ;EW.+K>6)<8I]*-?1;\P#>48`=-2[!LF'O*"
^XMB(3.9,23,2,20727,0)="""DATA"",396.18,231,3,488,0)"
^XMB(3.9,23,2,20728,0)="MBC\P7`UY_M]UP6\HV>$$\1\,$O\]A=_%:J@N+94T[Y6XX(68KY)*R_S;MV/^"
^XMB(3.9,23,2,20729,0)="""DATA"",396.18,231,3,489,0)"
^XMB(3.9,23,2,20730,0)="M:?""C*Z9F'""+]@>V9L/[J?`(1XKRG`UUE$N$S%N,S&""LY&2TY$.<S$C')Q4P."
^XMB(3.9,23,2,20731,0)="""DATA"",396.18,231,3,490,0)"
^XMB(3.9,23,2,20732,0)="MQP--Q$WJ`H:&^B?0]X]*E/J.""5'*=5J?#2,,GWMHI(?""\1X*]3VDZ%'/A.!`"
^XMB(3.9,23,2,20733,0)="""DATA"",396.18,231,3,491,0)"
^XMB(3.9,23,2,20734,0)="MGFX$H>?^&>D?=[1_6+8[3?^H80>:$:2Q/517`^TA\-Q#8SHN&.\B8#2$$%1,"
^XMB(3.9,23,2,20735,0)="""DATA"",396.18,231,3,492,0)"
^XMB(3.9,23,2,20736,0)="M$2^P-1PAT/40G#UW!<>@METQ'+(/-""'[+A>SWQ""VVS""&4,RW@,*GGC'8TX2<"
^XMB(3.9,23,2,20737,0)="""DATA"",396.18,231,3,493,0)"
^XMB(3.9,23,2,20738,0)="M!^Y`OH6Q<'ZX;SC_<;&IEC1:/XW2J^11Y`T.]#'[$(WFA82FIQ""1FD0/]`""\"
^XMB(3.9,23,2,20739,0)="""DATA"",396.18,231,3,494,0)"
^XMB(3.9,23,2,20740,0)="M'3:^![X!B``HVPO0KOE?.SQ;+)_,`6U!8`*P)Z?3</<^=C""NZ<3QE(X>#$(3"
^XMB(3.9,23,2,20741,0)="""DATA"",396.18,231,3,495,0)"
^XMB(3.9,23,2,20742,0)="M11#*1PJ`8&<9[D!^*L(;#J0T0=ZH>GAJV:%W0128(`J5L\D-CH""CK""J9\IG_"
^XMB(3.9,23,2,20743,0)="""DATA"",396.18,231,3,496,0)"
^XMB(3.9,23,2,20744,0)="M@FT!(%9@?L.RUW2Z@48;D?H_\)SE(322RL!^RN?H[2*3R$@F(7K""!SKN`J=C"
^XMB(3.9,23,2,20745,0)="""DATA"",396.18,231,3,497,0)"
^XMB(3.9,23,2,20746,0)="M!*?G[75`<P]G259/15(]>NET3>!$8#KQ\CB<1#6N\ZS$0HJI!W]L)AS(""M4E"
^XMB(3.9,23,2,20747,0)="""DATA"",396.18,231,3,498,0)"
^XMB(3.9,23,2,20748,0)="M,^A<D_Z3RO-IW_+<S&:7JBY;NV!SRH>1`N5D>\V9C0ZZ^USMK':7><YE\6\V"
^XMB(3.9,23,2,20749,0)="""DATA"",396.18,231,3,499,0)"
^XMB(3.9,23,2,20750,0)="M-8AE[+%EE,7R8V+9KCG5Q\^_](R@!')Z.17+SL#GL;R'O/?OB&K@$]T7&36Q"
^XMB(3.9,23,2,20751,0)="""DATA"",396.18,231,3,500,0)"
^XMB(3.9,23,2,20752,0)="MUL)AEV<X%D^U_)A7%;5KB>S'=?EU8[&8!_YT1U*[XG8G8<)1F/U!F+TQD84("
^XMB(3.9,23,2,20753,0)="""DATA"",396.18,231,3,501,0)"
^XMB(3.9,23,2,20754,0)="M3HNL""^X>9G8L`(?&;U%V108V'CW+<E?(G-&S*9JL7]K#*2134UY;JJAICJ=P"
^XMB(3.9,23,2,20755,0)="""DATA"",396.18,231,3,502,0)"
^XMB(3.9,23,2,20756,0)="M3(^G\"":/8F!G*S9G(#9'(,81ER7M1%=X6%DTYV)E(>N_MZ<F6O.Z8J&LS=ND"
^XMB(3.9,23,2,20757,0)="""DATA"",396.18,231,3,503,0)"
^XMB(3.9,23,2,20758,0)="M@QK[HQ;YWTR<4MFDSC,`44FN:`:B:PBB?ZL30%UJ%>@._@0>""_35'.:)V,&5"
^XMB(3.9,23,2,20759,0)="""DATA"",396.18,231,3,504,0)"
^XMB(3.9,23,2,20760,0)="MNF,^/78'0,VMOB>YV]9+:""WSNB@/IK""&IEC+:R,SK`-#K(/)<YQSTJHL;T)-"
^XMB(3.9,23,2,20761,0)="""DATA"",396.18,231,3,505,0)"
^XMB(3.9,23,2,20762,0)="MR81+_LAKFM6T$3DK(N/Z.JD2'IJS]M'2*G-B$NSR@U5>CGQA`E-DB.EV@^=N"
^XMB(3.9,23,2,20763,0)="""DATA"",396.18,231,3,506,0)"
^XMB(3.9,23,2,20764,0)="MF/J&F(93F'[*Z>RRSLE_.E-6.'V9[F(A#6_O)=?<W=_R/.[MWY<$B[)=41R,"
^XMB(3.9,23,2,20765,0)="""DATA"",396.18,231,3,507,0)"
^XMB(3.9,23,2,20766,0)="MG:.JS9DE9<SQIV9MY*CG>*+G`SDFTB>Z`^![H^BK$NEH3E%UG]$?R67'T'>F"
^XMB(3.9,23,2,20767,0)="""DATA"",396.18,231,3,508,0)"
^XMB(3.9,23,2,20768,0)="M15])%Z<1?5\%WWD&7\HEJ3V+1GN&;1-HQY_HWJ>[0.)A-+:[ET=Z.Y`>HY/:"
^XMB(3.9,23,2,20769,0)="""DATA"",396.18,231,3,509,0)"
^XMB(3.9,23,2,20770,0)="MUZ;^'DHZ)V9JE?0,</;S4K_/R)1=,Z.^?`PN:@3TWC\4C*4+=I3D;2@<S)S>"
^XMB(3.9,23,2,20771,0)="""DATA"",396.18,231,3,510,0)"
^XMB(3.9,23,2,20772,0)="M+G#FC+^P7KRNDS2V3HN<:(_5""VIG+BB71;<WI-0_0/=1-3=+@E24K/C,Z<T"""
^XMB(3.9,23,2,20773,0)="""DATA"",396.18,231,3,511,0)"
^XMB(3.9,23,2,20774,0)="M-8E)^Y++A%RUOD26B.I;1,Q1QM^^+`]^L2Z62=F]JGGU3<*_*TWISS)K3CY]"
^XMB(3.9,23,2,20775,0)="""DATA"",396.18,231,3,512,0)"
^XMB(3.9,23,2,20776,0)="M34PNJLZL)&/O>O$F7]0L""?JVHC=)%N<W/UD1W0I3D'KR[VK\&2_:A\DK::5B"
^XMB(3.9,23,2,20777,0)="""DATA"",396.18,231,3,513,0)"
^XMB(3.9,23,2,20778,0)="M7)'7XOC5""ZMD&%!@:$5^V3GY.[0->BF0,RN"":1^XW$N:AI,>(M=L=59%Q`B["
^XMB(3.9,23,2,20779,0)="""DATA"",396.18,231,3,514,0)"
^XMB(3.9,23,2,20780,0)="MB@J6'VC;2P5-_B+DMR<_IQQEVRE6M5GC/=J,#-H,9%85^<[NC3[#UPF^L;JV"
^XMB(3.9,23,2,20781,0)="""DATA"",396.18,231,3,515,0)"
^XMB(3.9,23,2,20782,0)="M,QEB#6?%=/A3(ON2&N6+NH@:?TM9S_E&KY**IO^G(/TR=@8#'(BJ&4W0;D""\"
^XMB(3.9,23,2,20783,0)="""DATA"",396.18,231,3,516,0)"
^XMB(3.9,23,2,20784,0)="M@_&O^@9?E07(X*MP_*N!P5>5+C3X+!KX;!OI'@QPRM*'G2E.N;-&!SAE-66*"
^XMB(3.9,23,2,20785,0)="""DATA"",396.18,231,3,517,0)"
^XMB(3.9,23,2,20786,0)="M&5^K-1A\C<'@<Q%LCGAB4*-PN44*>.(1;('N7!9[2`""=L>/K@+V?<7`6;;*H"
^XMB(3.9,23,2,20787,0)="""DATA"",396.18,231,3,518,0)"
^XMB(3.9,23,2,20788,0)="MCF?_0.'L45@'$+@&66>A8AT8A`((^;2&QK$W=&((%`-GT-0X!J;C&.WK=SDY"
^XMB(3.9,23,2,20789,0)="""DATA"",396.18,231,3,519,0)"
^XMB(3.9,23,2,20790,0)="MXU)3;2]&4',4@LN;/""<W0/=Q3JZ04(1/3;5-""6/%R552E;+39>HI+F'5U*NF"
^XMB(3.9,23,2,20791,0)="""DATA"",396.18,231,3,520,0)"
^XMB(3.9,23,2,20792,0)="MGKI(UNR0D)SGC(ZC(LWG/*-VM,3XJW""=9%-L>S,@Z)ZO%F=^,:@M5?4^!9=4"
^XMB(3.9,23,2,20793,0)="""DATA"",396.18,231,3,521,0)"
^XMB(3.9,23,2,20794,0)="ML1_#7YBUV'9_GEVQT)>Q\<:VMQ&)85N7NPOIY$,Q(,^;E)]N7Q>OMNHJ_SE:"
^XMB(3.9,23,2,20795,0)="""DATA"",396.18,231,3,522,0)"
^XMB(3.9,23,2,20796,0)="MK>N*/[18W>""C)+T=2ES91Y.W8JVF@`D,4^Y)=7ME9?5J3N,RB88US+]GGD=0"
^XMB(3.9,23,2,20797,0)="""DATA"",396.18,231,3,523,0)"
^XMB(3.9,23,2,20798,0)="MW%?HVY-[EJ7M%YY),Y$F`8@/[S?3S;NHVR\^QYB>#6I%(J[[[%N^^TT(0+L)"
^XMB(3.9,23,2,20799,0)="""DATA"",396.18,231,3,524,0)"
^XMB(3.9,23,2,20800,0)="M03>7#6Y#V'//Y/""^!*,4>(Q>&]@""(@\&3]FC`S7Y)QW-'AT8>,][=(SW(0YK"
^XMB(3.9,23,2,20801,0)="""DATA"",396.18,231,3,525,0)"
^XMB(3.9,23,2,20802,0)="M4S2D3:$K'H@D;V-0@G.@HP:8*""?#JRF?%(MJ,$NW#>5$R\I69F2F2#\U>K-+"
^XMB(3.9,23,2,20803,0)="""DATA"",396.18,231,3,526,0)"
^XMB(3.9,23,2,20804,0)="M<%7NF;04#J995>KJ08,-PP-Y5M?D^=M7=3CYN;PW6$ER$QAFK^;SLN];6_G4"
^XMB(3.9,23,2,20805,0)="""DATA"",396.18,231,3,527,0)"
^XMB(3.9,23,2,20806,0)="M+F]JWO&G\IEJ]K<[ZK03(&#?Z[3SNUDJM7O;_FY/YO?R1_)[*0*MR92LV4&N"
^XMB(3.9,23,2,20807,0)="""DATA"",396.18,231,3,528,0)"
^XMB(3.9,23,2,20808,0)="M2?`%('1NG^`+F``#A'1>_`42\GCQ%RY_T?ORW;$T7AU^[@[X^=Z>^!%!!;?'"
^XMB(3.9,23,2,20809,0)="""DATA"",396.18,231,3,529,0)"
^XMB(3.9,23,2,20810,0)="MSRACR'E-EB^7R4)*GO@&X_4(''3:9R%ANOE?2J@""@))(@<O!S2WT7!T.\-D"""
^XMB(3.9,23,2,20811,0)="""DATA"",396.18,231,3,530,0)"
^XMB(3.9,23,2,20812,0)="M&+$`D-G.4):'2]D9RIW$W7!LVRVZLA^N4:]/F%<+M2=QVP-;0YT1IQL*]N35"
^XMB(3.9,23,2,20813,0)="""DATA"",396.18,231,3,531,0)"
^XMB(3.9,23,2,20814,0)="M/N*8""H%ULDXR^MC+3WG%HJ""/F<L'%P>/@FSS]&1E(&T:D0]##,'D1KR>1J$^"
^XMB(3.9,23,2,20815,0)="""DATA"",396.18,231,3,532,0)"
^XMB(3.9,23,2,20816,0)="M,;K/T5J1F9ZZO@BT[:G%ETG%7#:+I%C4*YKF;=&>-TU#^==XD5P*_K.%Q7:?"
^XMB(3.9,23,2,20817,0)="""DATA"",396.18,231,3,533,0)"
^XMB(3.9,23,2,20818,0)="ME!5UM6$KC;*K.KIB9[F^6$1UV1P,T`3[U""EU[+W8?G65Q\*[F""_ODCR;MUW<"
^XMB(3.9,23,2,20819,0)="""DATA"",396.18,231,3,534,0)"
^XMB(3.9,23,2,20820,0)="MOKJTYA%]$2F)KJZ*J$E7O+,O""?JV`;1RB#DTV>\0'5A_-/\(LD*SH[[AW2/L"
^XMB(3.9,23,2,20821,0)="""DATA"",396.18,231,3,535,0)"
^XMB(3.9,23,2,20822,0)="MW]@YXKZ)""/A2/9')WJLY7T\6;I8F7W&ZN8,ZAR9BJ\1.>@8L,>8K3:/QABIK"
^XMB(3.9,23,2,20823,0)="""DATA"",396.18,231,3,536,0)"
^XMB(3.9,23,2,20824,0)="M6M<`F=15/CK><0-SGV+,UYE%JK9`1TT37O;1JZ[]3]=F?M1HGM`CG@Y(`_EA"
^XMB(3.9,23,2,20825,0)="""DATA"",396.18,231,3,537,0)"
^XMB(3.9,23,2,20826,0)="M<<O&.@:-#>4C;!W/O*T+OJU1%Z\;R4VV7FI;6I>2:W_OE@[LMY.Z51[?R-FA"
^XMB(3.9,23,2,20827,0)="""DATA"",396.18,231,3,538,0)"
^XMB(3.9,23,2,20828,0)="M6R^W37U/JIZUH:$YF<=)7Y+6LT.=_[^];VURVTBR_2N(N1\H;<@VZH&7=C<F"
^XMB(3.9,23,2,20829,0)="""DATA"",396.18,231,3,539,0)"
^XMB(3.9,23,2,20830,0)="M9#W&BFN/%9)L[U>(1'?CFB2X`""FI_>MO5>%5CRR@`))M=3<G=F<DD.HN9&9E"
^XMB(3.9,23,2,20831,0)="""DATA"",396.18,231,3,540,0)"
^XMB(3.9,23,2,20832,0)="M9>7C'.]+OK\I#O5'+'+AG0F%M^')./E5N3,]K/N\@>VM+/I3!V.TXZ`CL)M`"
^XMB(3.9,23,2,20833,0)="""DATA"",396.18,231,3,541,0)"
^XMB(3.9,23,2,20834,0)="M:L]\/3M/;UF4QP$^E^L#QWNO//8_G`9HFYGSFNOLFO=JRB_%WGE97&_SOY@B"
^XMB(3.9,23,2,20835,0)="""DATA"",396.18,231,3,542,0)"
^XMB(3.9,23,2,20836,0)="M=S<E^[G5<'$'68H[@4H'2\:*.R.$?*<LTA*HJXOX?3!9K[T+)FM/+35U/?9@"
^XMB(3.9,23,2,20837,0)="""DATA"",396.18,231,3,543,0)"
^XMB(3.9,23,2,20838,0)="MLJZL&L4%>.08M9%-ZY:U$\0<XG8E#JWX]N/WF9IR_IY'C[411[9B:1(-UHVF"
^XMB(3.9,23,2,20839,0)="""DATA"",396.18,231,3,544,0)"
^XMB(3.9,23,2,20840,0)="M#M*=@CVRS<@*K$TX/:NVJFJ-ZR$V1B>Q6>+]D);+8I/R,Z4&1^BXY;WM.35_"
^XMB(3.9,23,2,20841,0)="""DATA"",396.18,231,3,545,0)"
^XMB(3.9,23,2,20842,0)="M[N%`F)>2V+D41VM7&&`!&V;%XE/\[)#+5P>VQ/9\:*4J>O18[-X-J3Y??-.%"
^XMB(3.9,23,2,20843,0)="""DATA"",396.18,231,3,546,0)"
^XMB(3.9,23,2,20844,0)="M))O,;=F?P)+](3H""F$%JEYAL&#&`#AL1>L'_,K.Z]G,9:IZ2<CQ$.98CK*%_"
^XMB(3.9,23,2,20845,0)="""DATA"",396.18,231,3,547,0)"
^XMB(3.9,23,2,20846,0)="MS>RU?D#',@+9O!/+L:Q4SHS+Z,Q3^<4V.Y2WS'D\^<#\]-H3W[F][YF=[J2+"
^XMB(3.9,23,2,20847,0)="""DATA"",396.18,231,3,548,0)"
^XMB(3.9,23,2,20848,0)="M;2<=2::==!B9YW,ONTK(+CVC[/Z>TPU1XGJZ12:6/)U&3RN83VO,A;;OY)\/"
^XMB(3.9,23,2,20849,0)="""DATA"",396.18,231,3,549,0)"
^XMB(3.9,23,2,20850,0)="MY@1KQ$E=Q>D;#3T!I4Z<H=*I\';+,[CLDOF%B_CJL!7-\.G:RS>[-""]YC/#,"
^XMB(3.9,23,2,20851,0)="""DATA"",396.18,231,3,550,0)"
^XMB(3.9,23,2,20852,0)="MRZ]X6/',NTFK)@7`DX)EL?'VTD63_;0;'G\T%J^'&M][3]Z(:VH3\^W*8E\L"
^XMB(3.9,23,2,20853,0)="""DATA"",396.18,231,3,551,0)"
^XMB(3.9,23,2,20854,0)="M""Q:DL!]_?<A7Z7:I_C0>MV2K)O\H#1'4C""[\:!*7!8$.]\RK#LL;GM?X5'(^"
^XMB(3.9,23,2,20855,0)="""DATA"",396.18,231,3,552,0)"
^XMB(3.9,23,2,20856,0)="M#.Z_U)]6[7+^7DMV0K`O[UG\R;^_Y9,*Q2K;'C9>ME\^O:<!D7M[E8B3?,<X"
^XMB(3.9,23,2,20857,0)="""DATA"",396.18,231,3,553,0)"
^XMB(3.9,23,2,20858,0)="M"";G$21*I;L]U3)-+G#3>KH20FR(DTHW)F@C\BR8<&I/J""[+`L0?NZD1KK`[1"
^XMB(3.9,23,2,20859,0)="""DATA"",396.18,231,3,554,0)"
^XMB(3.9,23,2,20860,0)="M6&.S?Y:[.AACA]!$8\V<VT2""*L8NTI)?T6.?4*C-V*""QAUOLHW!H0N$""LBNE"
^XMB(3.9,23,2,20861,0)="""DATA"",396.18,231,3,555,0)"
^XMB(3.9,23,2,20862,0)="MR2W7%""7M%>K0<'XX`0$R_;0M2IX]DO`;[B<0I,TA69*'*(Q5A+U1%*[(U2'A"
^XMB(3.9,23,2,20863,0)="""DATA"",396.18,231,3,556,0)"
^XMB(3.9,23,2,20864,0)="MN<E#M5TNL5%]J?US\*1*]WJ]0PVTD8L$A^W)9FN;LS;-F2US\O:4;8K/G;;`"
^XMB(3.9,23,2,20865,0)="""DATA"",396.18,231,3,557,0)"
^XMB(3.9,23,2,20866,0)="MPW6DV5XX(%<'=-9]0X9G'S21._FD/K[:4MN%28)UO2V""$`@40Q`(JE>($GUX"
^XMB(3.9,23,2,20867,0)="""DATA"",396.18,231,3,558,0)"
^XMB(3.9,23,2,20868,0)="MU(3DTR$0_#B*+A`(&OH'&##X4,`0$*E:IHPTDDAKO:JGO!YSP$""`\PXN""@=X"
^XMB(3.9,23,2,20869,0)="""DATA"",396.18,231,3,559,0)"
^XMB(3.9,23,2,20870,0)="M*%R(Z=R<W#7[E-VT""X[/_9H3MC^,D,$""S*].A6I=(/&4B*&KC3S(:""&P1`L!"
^XMB(3.9,23,2,20871,0)="""DATA"",396.18,231,3,560,0)"
^XMB(3.9,23,2,20872,0)="M'6Q5,Z.%Y*ZC!30<+:!!D&MD-(RT8`1RZ>8\X<++0\DUI!;=-%#=2ZPP-U8("
^XMB(3.9,23,2,20873,0)="""DATA"",396.18,231,3,561,0)"
^XMB(3.9,23,2,20874,0)="M0;@DQ1AB[2Y.C,Q\$ABA0HPNH8)#J""`&C8Q0`4L%/+5^IV(?T%I1%ZPDDZA:"
^XMB(3.9,23,2,20875,0)="""DATA"",396.18,231,3,562,0)"
^XMB(3.9,23,2,20876,0)="M[Q&PH(""HD\4:P&KDD]'HH;.7KK?F%9,U[P'SGHAB5%Y4RW56%A4OKWQBEYZL"
^XMB(3.9,23,2,20877,0)="""DATA"",396.18,231,3,563,0)"
^XMB(3.9,23,2,20878,0)="M9._XS!/9B$]%R@(-=A&JE#8Y^7MB!C@MK[.FMM45`.Y9@7!""TS*RL0BH5_)`"
^XMB(3.9,23,2,20879,0)="""DATA"",396.18,231,3,564,0)"
^XMB(3.9,23,2,20880,0)="M1W&C#K#B'PZ;35H327]N-;9J-&;IVFN+E];Y='5=1(,W""""/=BG#K0,>+?XFU"
^XMB(3.9,23,2,20881,0)="""DATA"",396.18,231,3,565,0)"
^XMB(3.9,23,2,20882,0)="M6A6A,1IOU^F^UQWV@,X`]%!J?I%-BL'8""+_KX.G'LMC=L)O""\H9MZ*P;C[2N"
^XMB(3.9,23,2,20883,0)="""DATA"",396.18,231,3,566,0)"
^XMB(3.9,23,2,20884,0)="M2.<:L:U(JN#J#""[.'4L*B\O1\`'U^F.;1`D9I9=WE6EM4&RC=N`8#[YX6`L7"
^XMB(3.9,23,2,20885,0)="""DATA"",396.18,231,3,567,0)"
^XMB(3.9,23,2,20886,0)="M(^NF]S4:;A-S`CGN^E<Y>\6]-""SM/<FWWG+S=.8@,HIM77@&V[II$@@YMN%]"
^XMB(3.9,23,2,20887,0)="""DATA"",396.18,231,3,568,0)"
^XMB(3.9,23,2,20888,0)="MS#8[/FU[*+-':!EZPM\NXL""DX`S=),SOA^G:VQW6539W*!TEQ-4]`*@I`!WR"
^XMB(3.9,23,2,20889,0)="""DATA"",396.18,231,3,569,0)"
^XMB(3.9,23,2,20890,0)="MQ);,ZL#BI?+VH1UC2>2J_GXTOB_[($>I%F65KCF`9+;B_WV<'23N/F'^DM\5"
^XMB(3.9,23,2,20891,0)="""DATA"",396.18,231,3,570,0)"
^XMB(3.9,23,2,20892,0)="ME0BT2V^??SK:>+$?.I[-AAM+'$^V-_EV)2Z<11=\/KB0R^8`(KWU(C;;UOS("
^XMB(3.9,23,2,20893,0)="""DATA"",396.18,231,3,571,0)"
^XMB(3.9,23,2,20894,0)="MJ<UJ\1_>NY+/E'TX?-KD`GDS7:TX9J=(YS9`G$W$OYB,D]0,_(?1P/2_'H7C"
^XMB(3.9,23,2,20895,0)="""DATA"",396.18,231,3,572,0)"
^XMB(3.9,23,2,20896,0)="MN=/_$271XL0P""3V@F3SE+R&8+?0O""S`R\\OU8SLR0(/Y1I%.9&+;.B9J""@I,"
^XMB(3.9,23,2,20897,0)="""DATA"",396.18,231,3,573,0)"
^XMB(3.9,23,2,20898,0)="MAN@P@1J?))+U`20XJQ""'!*;@P=5#PUNO^E.BC^'L')\X3Y]WD^:*I%[=5OOF"
^XMB(3.9,23,2,20899,0)="""DATA"",396.18,231,3,574,0)"
^XMB(3.9,23,2,20900,0)="M$K!-\[6""W*%PG]CQV$S^DV'##.V&:9RSV(3U`$8?`,-D$O<7)\:?^+>H_RIV"
^XMB(3.9,23,2,20901,0)="""DATA"",396.18,231,3,575,0)"
^XMB(3.9,23,2,20902,0)="MEJWDO_ZX/BB*^.,FWV<J@(<@[1D""[U#Q9L@8W`P*-<<4$',KFRUA)(`D%IP5"
^XMB(3.9,23,2,20903,0)="""DATA"",396.18,231,3,576,0)"
^XMB(3.9,23,2,20904,0)="M<>9M54?L=;-F0QPY""#YS/,I,:!7TZU6^YUE,_K]C]Q4`@P@2*FR&H[A@)J7,"
^XMB(3.9,23,2,20905,0)="""DATA"",396.18,231,3,577,0)"
^XMB(3.9,23,2,20906,0)="MJ%V(_.LTN^@*XW,,(SJK87R\W67=?>[YB=&('$!C(*:9(0<V@*MC!(B``W.V"
^XMB(3.9,23,2,20907,0)="""DATA"",396.18,231,3,578,0)"
^XMB(3.9,23,2,20908,0)="M'#S!@9%Y#NQE46A_7Z_&L'0(W)QJ^&[HM`3NR_W>DC$7+WW"",D</H(JZG""KP"
^XMB(3.9,23,2,20909,0)="""DATA"",396.18,231,3,579,0)"
^XMB(3.9,23,2,20910,0)="M\N3*KC1&JCN`Q&S;-H.7/J.AU'BSM(\:C**%4Z%WZ""6H_270:-@-`-?UFTY)"
^XMB(3.9,23,2,20911,0)="""DATA"",396.18,231,3,580,0)"
^XMB(3.9,23,2,20912,0)="MH?-H&WP+<MQ;=(XAF>`8)#<PU3-$.#H!8MG,D.=5QND?*C7PJ8-+%TPR?T!$"
^XMB(3.9,23,2,20913,0)="""DATA"",396.18,231,3,581,0)"
^XMB(3.9,23,2,20914,0)="MHW<2P%[A.TDRP7/Z+G+H![9^%D4M==BM_HJ];*8&YVH!3?K6N/A"".L'""0CK_"
^XMB(3.9,23,2,20915,0)="""DATA"",396.18,231,3,582,0)"
^XMB(3.9,23,2,20916,0)="MZ$'R*=Q"")/-H]GB[\_\.NQ-03<Y;TY\KN02'^'R20W<I.0&;B^&C7L\HT<AE"
^XMB(3.9,23,2,20917,0)="""DATA"",396.18,231,3,583,0)"
^XMB(3.9,23,2,20918,0)="MJ](`@LT-+J!Y`^=_,#R=(DCS`K`71BTZ1V2LNMNQ>LA^-%X\XL87(%#Q+6-`"
^XMB(3.9,23,2,20919,0)="""DATA"",396.18,231,3,584,0)"
^XMB(3.9,23,2,20920,0)="M&OI%XNL=&=,@<.[7`#`^=E*)0I-*6.H[CE4FE5CM)FKFEAYQVW$`=*/8,'J&"
^XMB(3.9,23,2,20921,0)="""DATA"",396.18,231,3,585,0)"
^XMB(3.9,23,2,20922,0)="M$1_;%/;4QN.62.M##3NX9.JH]D67OK[7W<<(GE<B5&.`""O6)I6@4YW%.*<""E"
^XMB(3.9,23,2,20923,0)="""DATA"",396.18,231,3,586,0)"
^XMB(3.9,23,2,20924,0)="M'ZG>@*%E:I&%*<K*=>I>$V8-&A+JKX3WRUW-9HQI3I#B*[]S=W]1))L,=50%"
^XMB(3.9,23,2,20925,0)="""DATA"",396.18,231,3,587,0)"
^XMB(3.9,23,2,20926,0)="M!KT;Z=J1B_*O[H#Z_F/)A,-1V^0L&C^P^J^\Y_TZ8HS`ASX&?P*GZZB_,A6I"
^XMB(3.9,23,2,20927,0)="""DATA"",396.18,231,3,588,0)"
^XMB(3.9,23,2,20928,0)="MB-AZ)""(=/MD(G&GHUM@AWY!:)KH]+UCLBJK*F6]YYJW:PKD)>LH]4;[-.2&Q"
^XMB(3.9,23,2,20929,0)="""DATA"",396.18,231,3,589,0)"
^XMB(3.9,23,2,20930,0)="MMU'G^]-M?I55-9-&!WS45""\%&,'V_QWDFONDS@9"";!T#.-0!MHWL2^C:\L)Q"
^XMB(3.9,23,2,20931,0)="""DATA"",396.18,231,3,590,0)"
^XMB(3.9,23,2,20932,0)="M&-C"".97R_H$57`FA;J:%*9I;MN:A)0=-S)FI/%`AAFY""I""8V2.R[""5'4`KUE"
^XMB(3.9,23,2,20933,0)="""DATA"",396.18,231,3,591,0)"
^XMB(3.9,23,2,20934,0)="ML>&8':.-@H18Z1WZ-IEV1!7HH'##*^EF+#HPD4I@@@A\SV6Q7>4J`]%#[K$B"
^XMB(3.9,23,2,20935,0)="""DATA"",396.18,231,3,592,0)"
^XMB(3.9,23,2,20936,0)="M)':S`4(,>6-_:NM2E:^8@Q9MMU6-^++457':SDUL;2+27\_(&CJVZ*'OQVS:"
^XMB(3.9,23,2,20937,0)="""DATA"",396.18,231,3,593,0)"
^XMB(3.9,23,2,20938,0)="M#]R68'IZA!QWF86/]H&Y*]_1727^3%WB<5WZMG,[\$^T""/+]PU%;TRB#K8TR"
^XMB(3.9,23,2,20939,0)="""DATA"",396.18,231,3,594,0)"
^XMB(3.9,23,2,20940,0)="M^FD=`*!>9EM<!)3^,`K.URGS8<]=D9P'93ONFM_`\L\<__I+45;*QV\WN[+X"
^XMB(3.9,23,2,20941,0)="""DATA"",396.18,231,3,595,0)"
^XMB(3.9,23,2,20942,0)="MS)R7\I""S*POZ8+;H+S]XO)>WJB2&\3-TSXC*:P*G8Z/1GD0:F6VT20P)/[K4"
^XMB(3.9,23,2,20943,0)="""DATA"",396.18,231,3,596,0)"
^XMB(3.9,23,2,20944,0)="M74VR$F@O$.M>,$.<(';I'`=W`X[OKF^LINV0V-&:!HKRFDM)L>V//[S[J-88"
^XMB(3.9,23,2,20945,0)="""DATA"",396.18,231,3,597,0)"
^XMB(3.9,23,2,20946,0)="MMGMV]TIWNS7P(WX]['?L(=\NQ=?;ZTSY\.6[%^^4`AF[N]YD!8=BNSUV/P6#"
^XMB(3.9,23,2,20947,0)="""DATA"",396.18,231,3,598,0)"
^XMB(3.9,23,2,20948,0)="M^PG[3ON)FCT<T'Z**;2?R&4_#?<Q\/XK`2T/-&(9E^C81$+VW=H!L>\O['U_"
^XMB(3.9,23,2,20949,0)="""DATA"",396.18,231,3,599,0)"
^XMB(3.9,23,2,20950,0)="MHPU7\5B_%8[U(S`QBXB1&6<3R`N3\U*_?1B/WO\>3KAH>+LBI^U*`NJR7<UJ"
^XMB(3.9,23,2,20951,0)="""DATA"",396.18,231,3,600,0)"
^XMB(3.9,23,2,20952,0)="M)(O2D^12C1S8Q?%((T]L[48:946$PL,^Y2./?3(WT94;^`%\7Z_W4`O*<?U'"
^XMB(3.9,23,2,20953,0)="""DATA"",396.18,231,3,601,0)"
^XMB(3.9,23,2,20954,0)="M$;8W.40G<J0A#9)3-_P/=""$T=I58&\3T$P+HMP0LBT!=;F^WU;X\""*#;:C'8"
^XMB(3.9,23,2,20955,0)="""DATA"",396.18,231,3,602,0)"
^XMB(3.9,23,2,20956,0)="MN3)331J5:##]3`G,EDIJNC9""`'9""'Y_U3'DMCA-VB]KR<A9/LYN)H/XH(0^-"
^XMB(3.9,23,2,20957,0)="""DATA"",396.18,231,3,603,0)"
^XMB(3.9,23,2,20958,0)="MOOI?1:&TU[S1QBS>%44YD=$Z=`$F#6W(/FU>UU*<G$K*\X`[$@""AVIA90G2T"
^XMB(3.9,23,2,20959,0)="""DATA"",396.18,231,3,604,0)"
^XMB(3.9,23,2,20960,0)="M4)4NU/LEU:,1:2F$&A/W;1ZAPL44:J`QZ-%S,850<X*ER\,?Z/*@<]%H?T^9"
^XMB(3.9,23,2,20961,0)="""DATA"",396.18,231,3,605,0)"
^XMB(3.9,23,2,20962,0)="MGIE3J/\N/N%#K-^]NUEGGW(..??A=KOB<+4/H>\#QOG%B8KXK-/QA<Y@+H-L"
^XMB(3.9,23,2,20963,0)="""DATA"",396.18,231,3,606,0)"
^XMB(3.9,23,2,20964,0)="M:R&Q^""""5(X_$P<G8UHYGAT)6S@RD0N!HS8C(A)HQ@>84XW.PO=&V!NQ;I_WU"
^XMB(3.9,23,2,20965,0)="""DATA"",396.18,231,3,607,0)"
^XMB(3.9,23,2,20966,0)="MH-+'W^BPKQ(^TE%R>J2_F)FC0,0EGHRH--!ZKAS%\[FS@6+\5Y\2GLI""K\BQ"
^XMB(3.9,23,2,20967,0)="""DATA"",396.18,231,3,608,0)"
^XMB(3.9,23,2,20968,0)="M;KP?%""U!HW=<X(K5%TIDV:+ILC52,0/""_;DA27F^<)'F;WSFNL<L4>3*)ZRE"
^XMB(3.9,23,2,20969,0)="""DATA"",396.18,231,3,609,0)"
^XMB(3.9,23,2,20970,0)="MCYZ.`NR#""%6^X3>DP7N]NFI<7#%0D.MOKM"",G%X-#(SBLAJ>*-G@J'_2'ZC]"
^XMB(3.9,23,2,20971,0)="""DATA"",396.18,231,3,610,0)"
^XMB(3.9,23,2,20972,0)="M,^`^/"")[ZRW(X@<D60Y<+Q&V6FQ_F.@OAZCY<MCW@;<CTMM)DTDQEE[+;KN#"
^XMB(3.9,23,2,20973,0)="""DATA"",396.18,231,3,611,0)"
^XMB(3.9,23,2,20974,0)="MG@$V7WV4F%<#!!,J'[79Y=?\JMG0P#""+7/Z5;=)_2FL!/,B@U1LY2RUK"">=O"
^XMB(3.9,23,2,20975,0)="""DATA"",396.18,231,3,612,0)"
^XMB(3.9,23,2,20976,0)="M0,6(W&6DY2[M!A9B0`<(`SH(?%@'Q,6TW*[8PY?L@62F0SK3>M$>NB""/IBOA"
^XMB(3.9,23,2,20977,0)="""DATA"",396.18,231,3,613,0)"
^XMB(3.9,23,2,20978,0)="M]%.GF""$WA.QN""$?!B!L""85]`-X1']ZZ?C.]=ZK)W^_')\:T;)7>[=;/5M[-%"
^XMB(3.9,23,2,20979,0)="""DATA"",396.18,231,3,614,0)"
^XMB(3.9,23,2,20980,0)="M==_ISY!_7U`8DS^""MRVZ*_FS,'23BI:'4?%;W<>I]((FZ07-T$L$'-AQ-$$O"
^XMB(3.9,23,2,20981,0)="""DATA"",396.18,231,3,615,0)"
^XMB(3.9,23,2,20982,0)="M_AWJY5.1EBM.QO[W:P9/\IW8[CNUZ<K(N'/@""&B/P\3>'V-&<*%OC>!""8Z/Z"
^XMB(3.9,23,2,20983,0)="""DATA"",396.18,231,3,616,0)"
^XMB(3.9,23,2,20984,0)="MID%('7KC(9R,09AQNC@-N,*J'""<;)S/BMAAX(S(E;*-W9N/5\H;=%98->*.!"
^XMB(3.9,23,2,20985,0)="""DATA"",396.18,231,3,617,0)"
^XMB(3.9,23,2,20986,0)="M`O/W1VJQ+5(S#""F`HN4`N@N$%K&']SY2&R@^*^7GT\5T>-)NHN.[""9'`:3]-"
^XMB(3.9,23,2,20987,0)="""DATA"",396.18,231,3,618,0)"
^XMB(3.9,23,2,20988,0)="MB*6DJ>9S[J=7V6Y_\_Q,)P4,G&-`YQP1;\<3XFV$C1XZ`A1V>^PULPL,N/=C"
^XMB(3.9,23,2,20989,0)="""DATA"",396.18,231,3,619,0)"
^XMB(3.9,23,2,20990,0)="MZZEAF$0$W8S)A$.C[9W_G(MY)GY-W:7K'=>-][G-;7X6B?;%O`R`<%^AS7T9"
^XMB(3.9,23,2,20991,0)="""DATA"",396.18,231,3,620,0)"
^XMB(3.9,23,2,20992,0)="M@1$&+IH$0Z<&A2.C*%Y<O)3%2_DN.Z%)]=N[&ZC>26H""D5$@=@JG8/A$IX#P"
^XMB(3.9,23,2,20993,0)="""DATA"",396.18,231,3,621,0)"
^XMB(3.9,23,2,20994,0)="MB2+[.^A-##XZ/81/./TE0#`%!)*0$5]EF4%C]8LD-K`4.C2O1X2E@(?YQL!R"
^XMB(3.9,23,2,20995,0)="""DATA"",396.18,231,3,622,0)"
^XMB(3.9,23,2,20996,0)="ML""^1B""@%X:#^J#]ZHT=/-Q9!7%F1A3.$Q(.,8W@FXUB->O0YVQ:'RGN35_O#"
^XMB(3.9,23,2,20997,0)="""DATA"",396.18,231,3,623,0)"
^XMB(3.9,23,2,20998,0)="M^F%PCL4^+$<5/T&38^""/EW]_8HYX[U7Y7YFE`MS\?DMI/U""Y7S1?A)Q64'SQ"
^XMB(3.9,23,2,20999,0)="""DATA"",396.18,231,3,624,0)"
^XMB(3.9,23,2,21000,0)="MOJ25=].MA,^:\9F6;3MM9EL4=EE4HK..X@E,;`KO`Q""[VE8&E^M1HB[-1&F@"
^XMB(3.9,23,2,21001,0)="""DATA"",396.18,231,3,625,0)"
^XMB(3.9,23,2,21002,0)="MXVO[XR;=<Y9/4:N]:E""P9RPQ=%EBU])XI]*+W):F"":_MHQQ:6H<:+E.F:@P("
^XMB(3.9,23,2,21003,0)="""DATA"",396.18,231,3,626,0)"
^XMB(3.9,23,2,21004,0)="MME7%,/*&1G*KL[Z1*<1_ZZ8>QY,YRVR]/G""""USG*35S6JA.8HH3,7&M=XA)0"
^XMB(3.9,23,2,21005,0)="""DATA"",396.18,231,3,627,0)"
^XMB(3.9,23,2,21006,0)="M[&SCLL=LU9,7G?@NBT9ZPP9J>\V<5EUG>M9:W7/""(I'3(MN\8I=[QY/7V/OD"
^XMB(3.9,23,2,21007,0)="""DATA"",396.18,231,3,628,0)"
^XMB(3.9,23,2,21008,0)="M2>LC3E8:X&.$*/;U$;X'.1QF^O9V(=#\63+)J_KT'^QK""FQ]350A^NU:<.82"
^XMB(3.9,23,2,21009,0)="""DATA"",396.18,231,3,629,0)"
^XMB(3.9,23,2,21010,0)="M5]^SULI@-EUFT^X?F`""'H(X3W0&%!DH1,B@R45L:!!O^S?R/G2520R=<O-X*"
^XMB(3.9,23,2,21011,0)="""DATA"",396.18,231,3,630,0)"
^XMB(3.9,23,2,21012,0)="MDK@&<]BTW7K`LD:3D(<MX;B#!&,O%T3&R^&VOC,T7PF^N/TU_^>[]^FM]);_"
^XMB(3.9,23,2,21013,0)="""DATA"",396.18,231,3,631,0)"
^XMB(3.9,23,2,21014,0)="M]U_27Y8W;,^4J[RX+M--_UR9;[1--X*7JX&QM7B8/E4[1W7;('B,;9W9!CH+"
^XMB(3.9,23,2,21015,0)="""DATA"",396.18,231,3,632,0)"
^XMB(3.9,23,2,21016,0)="M?6IM*)X05+KTK@Y;,9@A,:>JB<[)Q*1Z56E,DLD($6VL^""]$?=T4T;@L,3Z+"
^XMB(3.9,23,2,21017,0)="""DATA"",396.18,231,3,633,0)"
^XMB(3.9,23,2,21018,0)="M+%]_SE>9`+^Y\F[8;_>*PWYWV'M7:;X^E-E99!H.[N?8MI^U:#TQ;C=ZN!3Y"
^XMB(3.9,23,2,21019,0)="""DATA"",396.18,231,3,634,0)"
^XMB(3.9,23,2,21020,0)="MIA3)$(?K""7>YX-<6M+[;/]?-M7B=74NB^2G;I?MBDUVG:\D=O*B6^5Z6X!MV"
^XMB(3.9,23,2,21021,0)="""DATA"",396.18,231,3,635,0)"
^XMB(3.9,23,2,21022,0)="MA%Y+U!&3?4$T*.W$3=J&R1K""3D)S^^/3>\]?TDH2SA]IN=G?+%2I]W_]\;""^"
^XMB(3.9,23,2,21023,0)="""DATA"",396.18,231,3,636,0)"
^XMB(3.9,23,2,21024,0)="MYF`I(G/>/W[9A?*RYVU#YJ9MS(B<>;=C1U$Q7QV!G;B80/E%]1C#.J&K>8RU"
^XMB(3.9,23,2,21025,0)="""DATA"",396.18,231,3,637,0)"
^XMB(3.9,23,2,21026,0)="ML:[$7-PEXQ\[<S&Q""Y^""PM?NN$:&P-@&-#:EGURDWX\(&]+G0[L""@KL?\K?<"
^XMB(3.9,23,2,21027,0)="""DATA"",396.18,231,3,638,0)"
^XMB(3.9,23,2,21028,0)="MXN)X[((,Q:>#MF^`WH]QSOO#1ST)B;I=-6SEKE0Y&#:%9SGJ1478X%(Q3G90"
^XMB(3.9,23,2,21029,0)="""DATA"",396.18,231,3,639,0)"
^XMB(3.9,23,2,21030,0)="M3G:'#)6""E3*P0:8`[S\0J5J_)X?1F`7H03SG;?<O^T]BY(#%[SN(GP9CTF];"
^XMB(3.9,23,2,21031,0)="""DATA"",396.18,231,3,640,0)"
^XMB(3.9,23,2,21032,0)="M'F00=W21?@]S`@L_<A!^@N<('U^$+\WGP]*/':3?9;.GB9]<Q""_14\#B3\#`"
^XMB(3.9,23,2,21033,0)="""DATA"",396.18,231,3,641,0)"
^XMB(3.9,23,2,21034,0)="MBP[>/HR@EP+""IX^OJ.X/%M4%1IQ>5`\"":<A:`=,/ZX:2WL#K5/]C+JK'0/J<"
^XMB(3.9,23,2,21035,0)="""DATA"",396.18,231,3,642,0)"
^XMB(3.9,23,2,21036,0)="M6""IWOI+TT=P'26;6U)MI4![&/5!<_3JYC2WX]!UZ9)N7I'__C+-@6@$#J$`%"
^XMB(3.9,23,2,21037,0)="""DATA"",396.18,231,3,643,0)"
^XMB(3.9,23,2,21038,0)="MT]?62@TCP$3/01,:Q!<_IOFQ&/!CJ.Y2:5F:9$=&ZKW5'Q;^HW=D"">3(0#\6"
^XMB(3.9,23,2,21039,0)="""DATA"",396.18,231,3,644,0)"
^XMB(3.9,23,2,21040,0)="M*./YVOT+(W\F6D3.(2$_Y-==7NY^TX`@""R`$'=K_H4-]_V.VV?&<XZ$<[`A"""
^XMB(3.9,23,2,21041,0)="""DATA"",396.18,231,3,645,0)"
^XMB(3.9,23,2,21042,0)="M*'18@,[TA!U:--YQXOGA7QTY_.INB*9SU-'X[WZ?5;N<O3P[U#SV/\/+P+[#"
^XMB(3.9,23,2,21043,0)="""DATA"",396.18,231,3,646,0)"
^XMB(3.9,23,2,21044,0)="M,C#6KE'$81E_B,^&?[FE]TG+WF)-`2[=*.^*PW95#?YRXO+F5,N>1=3US3VV"
^XMB(3.9,23,2,21045,0)="""DATA"",396.18,231,3,647,0)"
^XMB(3.9,23,2,21046,0)="M+;?7]Z9Z;I.298N&:H87C=4Y0R.@Z,L1]7=^+JK*>\*V[5*@VEYY7[*&<[[B"
^XMB(3.9,23,2,21047,0)="""DATA"",396.18,231,3,648,0)"
^XMB(3.9,23,2,21048,0)="MW`.;'5OVBL-[?$JK;,T.TZ?>DY2=':G$3K*XSMI_EF]%;QGV;C-^<.[*;)GQ"
^XMB(3.9,23,2,21049,0)="""DATA"",396.18,231,3,649,0)"
^XMB(3.9,23,2,21050,0)="M3H^:KX+__(:RY.G=W3;/TO3@PEY4ZY)8&OK""TROS7RF3/Z#,:_[\HLP3*)-B"
^XMB(3.9,23,2,21051,0)="""DATA"",396.18,231,3,650,0)"
^XMB(3.9,23,2,21052,0)="ME_,C2*:[KQ_71;&J,7;&SD]JL2@:JJO0`J!@?!$_#/W:P,5U&Z5N0ETZB?M#"
^XMB(3.9,23,2,21053,0)="""DATA"",396.18,231,3,651,0)"
^XMB(3.9,23,2,21054,0)="MZ_XZ[<!RN:;!F=127_E08H%.5!&^2)B<[O8Y^_K)ZV9B,M@HH*EF%.C>T-A"""
^XMB(3.9,23,2,21055,0)="""DATA"",396.18,231,3,652,0)"
^XMB(3.9,23,2,21056,0)="M1ODL0D&P&+B=&<N@X\N(H\G+8%]!""T<V3K&,8'P99N.JPSIB&BX<FZW$.D)H"
^XMB(3.9,23,2,21057,0)="""DATA"",396.18,231,3,653,0)"
^XMB(3.9,23,2,21058,0)="M':$:EZ%D)"":$M((7CGT>&E05'NE4\M7R)='KW9&^.*(M+L3^*9N^=%38;\B/"
^XMB(3.9,23,2,21059,0)="""DATA"",396.18,231,3,654,0)"
^XMB(3.9,23,2,21060,0)="M#34R2MP)""QX-]G_CX<18EF2T9-XQ5V-;8Z<:U1(C@4Z(@Y'1Q4A%>*C=,QF3"
^XMB(3.9,23,2,21061,0)="""DATA"",396.18,231,3,655,0)"
^XMB(3.9,23,2,21062,0)="MTG\Q:^OE(O\92W^6X.X7U.?].9NBS""PMH9U<B+7A52WKS!0,.48P[47X3B4C"
^XMB(3.9,23,2,21063,0)="""DATA"",396.18,231,3,656,0)"
^XMB(3.9,23,2,21064,0)="MO%$$>:-$K7,%FE>D_KA3)'3AV&DCE@'V>G3$*,>L@RP<^S?%.I)QYVRTG(PZ"
^XMB(3.9,23,2,21065,0)="""DATA"",396.18,231,3,657,0)"
^XMB(3.9,23,2,21066,0)="MYX@@8!6!BV\F8[Y9#45U9M8X'G'-;&G)-->L6;7--X^VA.;;I=2DM]P,]H2"""
^XMB(3.9,23,2,21067,0)="""DATA"",396.18,231,3,658,0)"
^XMB(3.9,23,2,21068,0)="M&5]H'%0B@4[D=&]4!X?2A#IYY.G>>G!?BZTM""<-`C1GU\W\""!_0/3:[W59Y>"
^XMB(3.9,23,2,21069,0)="""DATA"",396.18,231,3,659,0)"
^XMB(3.9,23,2,21070,0)="M;XLJ?Q""97DNBCT8:_#?]U@B?D04-GJBDWP9HL$GX'%X(GSNA6M#@2:*90W1!"
^XMB(3.9,23,2,21071,0)="""DATA"",396.18,231,3,660,0)"
^XMB(3.9,23,2,21072,0)="M@Y]$HXVL--K('X*+CLS^RA:`=3:/=AC?`8\VPHD%<5J#2`M""DS#.=Z00?;&J"
^XMB(3.9,23,2,21073,0)="""DATA"",396.18,231,3,661,0)"
^XMB(3.9,23,2,21074,0)="M:6_Y\(PK6Z]OXXZ5.%V:L3P#?L21#;,[(!X8F2DB-A1Q'6L;81.Z.`ZF\<(*"
^XMB(3.9,23,2,21075,0)="""DATA"",396.18,231,3,662,0)"
^XMB(3.9,23,2,21076,0)="MLBY^0I39_QZR:L_ICC=>6E7%,D_Y7/67G/U@P7^\>J`"")SZR""5P#X#9Q!HGC"
^XMB(3.9,23,2,21077,0)="""DATA"",396.18,231,3,663,0)"
^XMB(3.9,23,2,21078,0)="M'FJF.W@MNZK/:0'SM[-H829WO$\<7P099$T2Q>3PFSQYPPT$!W[T5)#=KYBL"
^XMB(3.9,23,2,21079,0)="""DATA"",396.18,231,3,664,0)"
^XMB(3.9,23,2,21080,0)="M\ZN<6<JG6R_[FFZ^GTM\;S-[B6-<""2\E-82!$R&33*?#ULZ'<I@GWAW*75%E"
^XMB(3.9,23,2,21081,0)="""DATA"",396.18,231,3,665,0)"
^XMB(3.9,23,2,21082,0)="MU3,F_5U1BF="".XW!LU?KJ+^%!O-]Y4EU&O;36NJ[*MNEO.2\OO78AMEF2Q:8"
^XMB(3.9,23,2,21083,0)="""DATA"",396.18,231,3,666,0)"
^XMB(3.9,23,2,21084,0)="M\;XK%H5QUE?.DI=N.:=E6>Q*OK]XW2;]E*L_;9WOF2@_I^M#/0C-&<C%@KIE"
^XMB(3.9,23,2,21085,0)="""DATA"",396.18,231,3,667,0)"
^XMB(3.9,23,2,21086,0)="MS)8Q<I4Q-<Z+)'(S$""[9UR]>_F3Z""_NR$M=EA>1L9-S4*IN>A4''T^[]0.+$"
^XMB(3.9,23,2,21087,0)="""DATA"",396.18,231,3,668,0)"
^XMB(3.9,23,2,21088,0)="MW2""3DM[N,E[78]):WA0<J8WO_WPO>X-_R*QT_V""/&M`0[IY5D[$[Z[FF0K&K"
^XMB(3.9,23,2,21089,0)="""DATA"",396.18,231,3,669,0)"
^XMB(3.9,23,2,21090,0)="M3DQ:RI.1:E/BJA.`&S-P/`I_W=71S;/V[L2W&^<$;+SSN/V*,3`G62$TETV>"
^XMB(3.9,23,2,21091,0)="""DATA"",396.18,231,3,670,0)"
^XMB(3.9,23,2,21092,0)="MC`LK<!46L`H<3+;@MUM![EL;;NL!6P#;SOX\CN2P7!YV:1-#<@^Z2O/UK6K!"
^XMB(3.9,23,2,21093,0)="""DATA"",396.18,231,3,671,0)"
^XMB(3.9,23,2,21094,0)="M7LK)WIAWR^:;;.BL!CK7C]!Q-43.:C!701QMMK[F#:R%-Y7&,+NI?C6(#7<6"
^XMB(3.9,23,2,21095,0)="""DATA"",396.18,231,3,672,0)"
^XMB(3.9,23,2,21096,0)="M`KX^,9D;XX0&%S+B85;H.A$9RHE(95Y$-XD(F:""D%`ANJ$1D8^06'3&N$<'N"
^XMB(3.9,23,2,21097,0)="""DATA"",396.18,231,3,673,0)"
^XMB(3.9,23,2,21098,0)="M+""4$0""N-DAEHI9JWX']MPV#VS4-U8#Y""^`?)(SP_.RPHLL""""PC>/6403(,)J"
^XMB(3.9,23,2,21099,0)="""DATA"",396.18,231,3,674,0)"
^XMB(3.9,23,2,21100,0)="MHPAD500R-8%CB,]C#G)LC0%4:\--^E-PR)L4A9T*)S$`9!,`61]$24[`%WM1"
^XMB(3.9,23,2,21101,0)="""DATA"",396.18,231,3,675,0)"
^XMB(3.9,23,2,21102,0)="M(ZJ5DH797NJ?#\&DCN'SH?$XD+7,:C!10TD$(?QB?R8N/``T/0AD_?*F*)TL"
^XMB(3.9,23,2,21103,0)="""DATA"",396.18,231,3,676,0)"
^XMB(3.9,23,2,21104,0)="M=PRT6BG+UV`2^7JE/2E6O-M:^]Z'C+EC[=F[DCW<[JL3<%=0!TH7%/HG5V!R"
^XMB(3.9,23,2,21105,0)="""DATA"",396.18,231,3,677,0)"
^XMB(3.9,23,2,21106,0)="M-PID/WJW8QJY;RJ<`B8?.+#""8!-+_E@5(O]N5/CZ:U8N\RJ[;RHD4U3H0""!C"
^XMB(3.9,23,2,21107,0)="""DATA"",396.18,231,3,678,0)"
^XMB(3.9,23,2,21108,0)="M''/HZ$T8W-$FY/FP>^=%Z13]X5E>5.%NF+4'\=UH\&.9?N8-YO?.CX93E$CF"
^XMB(3.9,23,2,21109,0)="""DATA"",396.18,231,3,679,0)"
^XMB(3.9,23,2,21110,0)="M^5%""CMR&Y&Z4R-ZHV-Q#':(I\4Q`Y\4SQRH1H3O:B46^SO;W48M3F.Z""8-:M"
^XMB(3.9,23,2,21111,0)="""DATA"",396.18,231,3,680,0)"
^XMB(3.9,23,2,21112,0)="MXN@#,;H;);[BK3;W4(?)%!6&,T*:XS48WHT&?TSW-_=0@?$4!4:SCL.C8QH_"
^XMB(3.9,23,2,21113,0)="""DATA"",396.18,231,3,681,0)"
^XMB(3.9,23,2,21114,0)="MOAL5OLG$\-M]4V$T184.E_N8G/A>P0F8[D:#[[-EF;F35G]#2@S&^;(2&U\6"
^XMB(3.9,23,2,21115,0)="""DATA"",396.18,231,3,682,0)"
^XMB(3.9,23,2,21116,0)="MD,JE0/!""_,""5,8MI[$+X-YU*""TU*TL0SCL,0('<+(1['``-JC2@YY\WB?-27"
^XMB(3.9,23,2,21117,0)="""DATA"",396.18,231,3,683,0)"
^XMB(3.9,23,2,21118,0)="MU@)89""F`4;W\A<V*:`*4O\B$\A>Q5EV(M3(1.96_@ADEE]=JZ>M=7_KZ5:Z2"
^XMB(3.9,23,2,21119,0)="""DATA"",396.18,231,3,684,0)"
^XMB(3.9,23,2,21120,0)="MO^@*%0^]]$7=&1-1!)QO./9G5[ZJ_'K+0;!2MF2I8J3V*YRF#D9""Y/ZB!""(4"
^XMB(3.9,23,2,21121,0)="""DATA"",396.18,231,3,685,0)"
^XMB(3.9,23,2,21122,0)="M]K'[>[[N2GK]NSSP(BH)[=7LCL-J1,0)Y*(Q&,,H+E*A<U**VZ(5B[?XB::^"
^XMB(3.9,23,2,21123,0)="""DATA"",396.18,231,3,686,0)"
^XMB(3.9,23,2,21124,0)="MMGLPW^Q263U**PS[>7-,;UHML!$9<;?)A$(DU[&[3;[/*@YTOKWVOA3EGT9W"
^XMB(3.9,23,2,21125,0)="""DATA"",396.18,231,3,687,0)"
^XMB(3.9,23,2,21126,0)="MU>1=5>//USPT,A;]T$O0`.+A#:%XB\#9(OF.,X10;QWJ=`EH!<95ZYB:$T,+"
^XMB(3.9,23,2,21127,0)="""DATA"",396.18,231,3,688,0)"
^XMB(3.9,23,2,21128,0)="M7<>^\.^""?;#9K8O;E@O%X?S68]G(%LJ:KCD!)$LHV""`2)W`HFUQ""V<FA+''9"
^XMB(3.9,23,2,21129,0)="""DATA"",396.18,231,3,689,0)"
^XMB(3.9,23,2,21130,0)="M(W5CG.L>07[LNDF""&-1D$KEH\DR[YT7%3W7V""U<YVQ=<RM[JH`52HGN17T%Y"
^XMB(3.9,23,2,21131,0)="""DATA"",396.18,231,3,690,0)"
^XMB(3.9,23,2,21132,0)="M<_>>,\(PO5F_D'[BC/)9EE<;]2L*B\,0D\.D,G_KV/""`TH`#+0#YI*$##2F4"
^XMB(3.9,23,2,21133,0)="""DATA"",396.18,231,3,691,0)"
^XMB(3.9,23,2,21134,0)="MS-(&C$^AMF\\M)AI5=P+EK<""C$OG+F_-9%EL.=J31O71V)+<\_\INTD_YT6I"
^XMB(3.9,23,2,21135,0)="""DATA"",396.18,231,3,692,0)"
^XMB(3.9,23,2,21136,0)="M)1X*3B/""QV[6'M-)5J:""GTC_=<RH\R4SLUOOBCF)X@L_3_-MM2\/X->[U6V*"
^XMB(3.9,23,2,21137,0)="""DATA"",396.18,231,3,693,0)"
^XMB(3.9,23,2,21138,0)="M.@:Q?IYN19M4]I7/X>K?:ZXI5=UAOLZOQ#G.PYEE6I:W[""_699:\']CXPH=="
^XMB(3.9,23,2,21139,0)="""DATA"",396.18,231,3,694,0)"
^XMB(3.9,23,2,21140,0)="MEHDVX?9[ZL><T93_!MOGO^<5CRIL'__,;(G'7]4^W>3;5/WPCRS]DV]WWN=]"
^XMB(3.9,23,2,21141,0)="""DATA"",396.18,231,3,695,0)"
^XMB(3.9,23,2,21142,0)="MI?'D:$)A8LVVU_N;Y]YAM^.=<BW)Y/@_8*JQ_X/?V,OQN9!\RXR&B9)S*:G?"
^XMB(3.9,23,2,21143,0)="""DATA"",396.18,231,3,696,0)"
^XMB(3.9,23,2,21144,0)="M>),MA1W8/G_'$4$TD5=7[%W8KV-&>(2?&CJ9!OM<+%W("".Y""UH?9S($3`DP"""
^XMB(3.9,23,2,21145,0)="""DATA"",396.18,231,3,697,0)"
^XMB(3.9,23,2,21146,0)="MDMCH0B:4^I<N9""F>LU*JQ]1&J1XDVEAF'Z)U_?'`?$`$=*9S;`Q/GELY$;DZ"
^XMB(3.9,23,2,21147,0)="""DATA"",396.18,231,3,698,0)"
^XMB(3.9,23,2,21148,0)="MA-@2F8@M]F%)BET,#`-M[CCN(U/+\0%MC($#I5,\]')*JI&=RM;THQ[`-?<T"
^XMB(3.9,23,2,21149,0)="""DATA"",396.18,231,3,699,0)"
^XMB(3.9,23,2,21150,0)="MWYCMH*&YD0+S/8.PC]OL.4<K$!.<;I1,XVW%_&'=$B9F;+YR4V8?<3C#]6%5"
^XMB(3.9,23,2,21151,0)="""DATA"",396.18,231,3,700,0)"
^XMB(3.9,23,2,21152,0)="MCQ#R&W0WY]8WZ1JX(</R59.82@K3C,,:)=BF]:D%4SQ)CI[6MZ""ZX2F3\""#R"
^XMB(3.9,23,2,21153,0)="""DATA"",396.18,231,3,701,0)"
^XMB(3.9,23,2,21154,0)="M""86PK@,)ZYJH6-=U/[4T_HX>._@)`A%$8?@3.H1^@EVP,""""TZQ=\%G7IO=AF"
^XMB(3.9,23,2,21155,0)="""DATA"",396.18,231,3,702,0)"
^XMB(3.9,23,2,21156,0)="MA_*VNWK<;\1K8D%]1BH""JTY_Y4""\+-,&<Q^2-F)[OI@,$QL[K!$%=\^IC@C,"
^XMB(3.9,23,2,21157,0)="""DATA"",396.18,231,3,703,0)"
^XMB(3.9,23,2,21158,0)="M""(ZB8%!\O@.PY:N<:9_98$T^*8O.!GWJNZRE0T8;@$J#=D,[QI%N^06BRE?L"
^XMB(3.9,23,2,21159,0)="""DATA"",396.18,231,3,704,0)"
^XMB(3.9,23,2,21160,0)="M;E+5@['LM&""7IP/;*O7^J`[E=5;>_G.RGBERL45?DV:<3-!SM_3)NK9!F*KB"
^XMB(3.9,23,2,21161,0)="""DATA"",396.18,231,3,705,0)"
^XMB(3.9,23,2,21162,0)="MC0SIHG'ISC^&'PB`<'V8$@NT46>A[4&I;W3_(?.&AW-!>-JLE6^AAE6W%=5Y"
^XMB(3.9,23,2,21163,0)="""DATA"",396.18,231,3,706,0)"
^XMB(3.9,23,2,21164,0)="MR8BQK9#!PQMV5?$34L.^^+3BO;5\_+LZ[$HN(9F34/HXWUZ9'S,?E#[STFK)"
^XMB(3.9,23,2,21165,0)="""DATA"",396.18,231,3,707,0)"
^XMB(3.9,23,2,21166,0)="MUB,G.=I/]B73#(MZJLSXJ$XIK#+KO]WDJ^_V-T69+O.E\6&=7S`_GLHLZP]B"
^XMB(3.9,23,2,21167,0)="""DATA"",396.18,231,3,708,0)"
^XMB(3.9,23,2,21168,0)="M8@K\+Q@34_5$ID)'`6F9/JDC""_PH5B#Q7O[""G=E:3N,N*'O:_RU0_O8K4XHG"
^XMB(3.9,23,2,21169,0)="""DATA"",396.18,231,3,709,0)"
^XMB(3.9,23,2,21170,0)="M'CUU@%FD:`1F4<60[[BY=?`,B1;+E$9X#@C<L[&9\YP.R,*F':`Z=P9.]'`D"
^XMB(3.9,23,2,21171,0)="""DATA"",396.18,231,3,710,0)"
^XMB(3.9,23,2,21172,0)="M`BPCNG#@.6.`HG"":<?K^9.,,<'!&X[P7^,R6?>(*%PCNG\`?WT""=]NQG)?5-"
^XMB(3.9,23,2,21173,0)="""DATA"",396.18,231,3,711,0)"
^XMB(3.9,23,2,21174,0)="M'L,+?:V.]PXF2@B0*&EZV5NL%#E1@NN]TI]5-E*P7G`_YYOLGN0\,$C4!%^3"
^XMB(3.9,23,2,21175,0)="""DATA"",396.18,231,3,712,0)"
^XMB(3.9,23,2,21176,0)="M-`1H#;DT<<AYO'O_Z[O7[S^^??WA89!Y60A)XJ$P*7""X33+3YL6N_T8=1O1]"
^XMB(3.9,23,2,21177,0)="""DATA"",396.18,231,3,713,0)"
^XMB(3.9,23,2,21178,0)="MY>5`Q$%$H0Z""2WP'SA9Q2?F8?=W_=Y=*^Z%.I""T&'0`($8VD[8\5<M-8!XD."
^XMB(3.9,23,2,21179,0)="""DATA"",396.18,231,3,714,0)"
^XMB(3.9,23,2,21180,0)="M'WN>E`""*MN2&L,H*J.LY08YYTELE2_J`TJ.6C)1&!Z=?+<B$Y.B3_,K[<UM\"
^XMB(3.9,23,2,21181,0)="""DATA"",396.18,231,3,715,0)"
^XMB(3.9,23,2,21182,0)="MV3Z]YQP_U`)$[B<J78LFK""@>%]:O=6OP[6:W+S9#F;M[*SQ;'CD8E!TR#BL@"
^XMB(3.9,23,2,21183,0)="""DATA"",396.18,231,3,716,0)"
^XMB(3.9,23,2,21184,0)="MN<C1'YO$;)M&?N9]N<F7-VUBOF];X0VSNS+CS57/'U:&L4[A4E#*7=79DL(-"
^XMB(3.9,23,2,21185,0)="""DATA"",396.18,231,3,717,0)"
^XMB(3.9,23,2,21186,0)="M':3\1[H6(-+IWL/>+^]^XIW$:W[D>-<E)W[D(L^VWJK@""/`<8(O3SO%6X_+Y"
^XMB(3.9,23,2,21187,0)="""DATA"",396.18,231,3,718,0)"
^XMB(3.9,23,2,21188,0)="MHR&(BUU\*=5QZQVH-1LL_>=#5&""6FC'1F3W'6)S:_FH+;+Y\SZ''9FXMB5O-"
^XMB(3.9,23,2,21189,0)="""DATA"",396.18,231,3,719,0)"
^XMB(3.9,23,2,21190,0)="M*P0Z]TVLAV>=`?==TUVB[X2)6Y4OZ566[7@""L!(C?=XGW@""VDWND%B]O.+RU"
^XMB(3.9,23,2,21191,0)="""DATA"",396.18,231,3,720,0)"
^XMB(3.9,23,2,21192,0)="M^DS[5VF;[-6^-C6GF@Q81F0C5%""K#C$^KIO@GD'_X[G&JV7""1IC*:*Q2J\=C"
^XMB(3.9,23,2,21193,0)="""DATA"",396.18,231,3,721,0)"
^XMB(3.9,23,2,21194,0)="M9#B!F5B)3Y@(D]NFLDW:UME.FKUU87BC(W+#""3U6;DEX%KG]MEYF=<?M683G"
^XMB(3.9,23,2,21195,0)="""DATA"",396.18,231,3,722,0)"
^XMB(3.9,23,2,21196,0)="MDGZE=%AX)(Z/%IY_%N']*]U>L[V9G45TH37K26(HZZF>,P:'H'',Q,@4$UH\"
^XMB(3.9,23,2,21197,0)="""DATA"",396.18,231,3,723,0)"
^XMB(3.9,23,2,21198,0)="MNOSF</W.2FFG1:%)HHM[E-'.#_!1C':C!_S/O$=[?Y-NV5GGW:;E2K(X]F1?"
^XMB(3.9,23,2,21199,0)="""DATA"",396.18,231,3,724,0)"
^XMB(3.9,23,2,21200,0)="M\$J&_L$OA>@=8?\(^)`W3==!\;;8U_&PEU[QKI<O=4#M5`M$(_L=^_Y@@&_T"
^XMB(3.9,23,2,21201,0)="""DATA"",396.18,231,3,725,0)"
^XMB(3.9,23,2,21202,0)="M@W517R]:@LZRX5^9%P)^AV!WL+WD`X""!:L,S?.OWAYEUG'9ATDLYA""_8Q6J"""
^XMB(3.9,23,2,21203,0)="""DATA"",396.18,231,3,726,0)"
^XMB(3.9,23,2,21204,0)="M8:L)""![N[$G&K"";!07(6JWDKV4R9K7,6+(L>H8O9'&<VU,%LL#]B-E%X=$0;"
^XMB(3.9,23,2,21205,0)="""DATA"",396.18,231,3,727,0)"
^XMB(3.9,23,2,21206,0)="MG<5JF$Q6?,SF+,%%;""^I!F!)5<L+$OW>'^CWJQB(PO""EIBHAPMGZY9TNN!@?"
^XMB(3.9,23,2,21207,0)="""DATA"",396.18,231,3,728,0)"
^XMB(3.9,23,2,21208,0)="M2VYW$A9T83'A>#B*0RWM$5*S88V:%A,\OH`4$1>W-BF$FG5E(N?Q:NOT(&A/"
^XMB(3.9,23,2,21209,0)="""DATA"",396.18,231,3,729,0)"
^XMB(3.9,23,2,21210,0)="MU!NGR]EWNK/%N;TA\/E_$#0,4O/:-Y4X(A<Y:9WBZX5;^\['7.2D4'I?R!8N"
^XMB(3.9,23,2,21211,0)="""DATA"",396.18,231,3,730,0)"
^XMB(3.9,23,2,21212,0)="M0[4=5?!`2!C-&PAYGWW.LR^\CO(^6Q;]S>:TSB6XVYHG%Z.E=4++/.N-V$YS"
^XMB(3.9,23,2,21213,0)="""DATA"",396.18,231,3,731,0)"
^XMB(3.9,23,2,21214,0)="M#2\;QDI>(2EKJ3V_,Y]\ZN(=GZT49H<A$G*L'K!$%Q=&(U=ZC.,NT>1$AB[6"
^XMB(3.9,23,2,21215,0)="""DATA"",396.18,231,3,732,0)"
^XMB(3.9,23,2,21216,0)="M0J""U$-6!8W.DQV4QR)43O3[MZQUI*;V@6#O0M3,E,A84NX[KD=,DK^OECYR,"
^XMB(3.9,23,2,21217,0)="""DATA"",396.18,231,3,733,0)"
^XMB(3.9,23,2,21218,0)="MX=""D#T9XI+46XS`X3R[QI?<F9S9=^ZCGB[$CK_Y>MI+/O7U+?UE?+W]_\?[7"
^XMB(3.9,23,2,21219,0)="""DATA"",396.18,231,3,734,0)"
^XMB(3.9,23,2,21220,0)="MA?0/M(^\3X>]R..DG]-\S0-RX)[@.\N=C$0D^&C)Q]%Y+EJ_9#P@63>'PK>F"
^XMB(3.9,23,2,21221,0)="""DATA"",396.18,231,3,735,0)"
^XMB(3.9,23,2,21222,0)="M`330_-H&)R/!-T*:M""DRVSCTHB,*XT>8#<;#W:Y`()A(0\&Q'`8&*-%ZW:+'"
^XMB(3.9,23,2,21223,0)="""DATA"",396.18,231,3,736,0)"
^XMB(3.9,23,2,21224,0)="M'@8&0/P""MQG$REFLF6_7!3`U`/RIJ';Y/EWG?S6CKJ7WH9Y^?`B1(-R41-50"
^XMB(3.9,23,2,21225,0)="""DATA"",396.18,231,3,737,0)"
^XMB(3.9,23,2,21226,0)="M6F\:]!W&;ENQ""5&NFU:XP>%6WV$I23@:U@.3H>D^>^ZMTMMGWH8)Y48LZ39+"
^XMB(3.9,23,2,21227,0)="""DATA"",396.18,231,3,738,0)"
^XMB(3.9,23,2,21228,0)="M2Z]MS.-*%6!!7_.-(`CF_V)HK<AAK8@8\1<=7^S[+*UJ*]MSLEJ.IU-;V^!Z"
^XMB(3.9,23,2,21229,0)="""DATA"",396.18,231,3,739,0)"
^XMB(3.9,23,2,21230,0)="ML,-ZL)Y^0^--3YVO?-/2(0N@YF?>5;[F2#DB1UV+,-]R%G.AYF<>A^XJO7_\"
^XMB(3.9,23,2,21231,0)="""DATA"",396.18,231,3,740,0)"
^XMB(3.9,23,2,21232,0)="MMA6?_<.[DL`6%YS!NO^R.,SJ'\'ULCM4-^*G-I3=GT14-WV>W$4@^IPT]HES"
^XMB(3.9,23,2,21233,0)="""DATA"",396.18,231,3,741,0)"
^XMB(3.9,23,2,21234,0)="M)Y*8V68RN%'=0]70C8^J#-98!T/=`OP96R\:;U3[#^\=9TSPZLQ=2[#+4;*X"
^XMB(3.9,23,2,21235,0)="""DATA"",396.18,231,3,742,0)"
^XMB(3.9,23,2,21236,0)="M:V-_Y>)M7F,Q=8(7$PLR!_75E6O%3>IP_[9T6<5S0_UFQ98%([6]0B_^&+G1"
^XMB(3.9,23,2,21237,0)="""DATA"",396.18,231,3,743,0)"
^XMB(3.9,23,2,21238,0)="MMB5^_&X2S5TPO])1Z&JG&F[DZV?;:.&8^%W%8312%P!2$10B:@[.3V:LHTOH"
^XMB(3.9,23,2,21239,0)="""DATA"",396.18,231,3,744,0)"
^XMB(3.9,23,2,21240,0)="M/\H(T6C+0`YR#HCNN?66Q0[@H8O$21`^/CG3(3>`G/P`TD.,8VHDP9&>RX*6"
^XMB(3.9,23,2,21241,0)="""DATA"",396.18,231,3,745,0)"
^XMB(3.9,23,2,21242,0)="M0-2.NG!&5:<YF1?PU?&()8=.2T;^*==,CJE$""3[FD1W8P0EU.Y`8QUEW/98("
^XMB(3.9,23,2,21243,0)="""DATA"",396.18,231,3,746,0)"
^XMB(3.9,23,2,21244,0)="M!1YA)2H<O`QC'V,<`C?B2""J,R!?B""&O#7_6\Y&.^$(=0-,GD&B:6Z9QP8``,"
^XMB(3.9,23,2,21245,0)="""DATA"",396.18,231,3,747,0)"
^XMB(3.9,23,2,21246,0)="M1W3>M;B&N>9I?J:,:E^<Z3I\Q\-@7(X1?+E3'4*D)?J[W+O+9:H>=E((#VYJ"
^XMB(3.9,23,2,21247,0)="""DATA"",396.18,231,3,748,0)"
^XMB(3.9,23,2,21248,0)="M&7I5OEUF'+U^R21XG7E/!/8KOX]63T73//]<ODQYZ[3:>]G7=,-OLP+[GOU?"
^XMB(3.9,23,2,21249,0)="""DATA"",396.18,231,3,749,0)"
^XMB(3.9,23,2,21250,0)="MZI5UW8I_\/U0!X7SE4J(!H^+!NE=]#AP*1FEARI[PM^1O43.],PBZWV-/26`"
^XMB(3.9,23,2,21251,0)="""DATA"",396.18,231,3,750,0)"
^XMB(3.9,23,2,21252,0)="MZ]E54[PHPM_5=_@=4WZQF@SQQ-\B#AW>@NH;Q>7R_A%8^>H@0'6AU9](,1@C"
^XMB(3.9,23,2,21253,0)="""DATA"",396.18,231,3,751,0)"
^XMB(3.9,23,2,21254,0)="MWU+,""[6`76_P#1S&?%\=R@[D;7DH!;AWUNW^Z1I@R\4N&M`7FSB8T<<F9]*O"
^XMB(3.9,23,2,21255,0)="""DATA"",396.18,231,3,752,0)"
^XMB(3.9,23,2,21256,0)="M;];R(A=IAMKM)W&0Y<M&?OW>G[6^Q,%#:=*+'5(;OU4<C5I;FRW08QLI""9PF"
^XMB(3.9,23,2,21257,0)="""DATA"",396.18,231,3,753,0)"
^XMB(3.9,23,2,21258,0)="MKD@<C`5[H>O5.ID;ZHGJDL#*8@+D^FT?:!W::@E5NW@1HV#9M70K*;Q]7C)="
^XMB(3.9,23,2,21259,0)="""DATA"",396.18,231,3,754,0)"
^XMB(3.9,23,2,21260,0)="M,G=]V&8M'80MK0'H-S3H>710F1ZG1,>=C:D!.]LCYFI)4;Y32K%8!;X:=$<`"
^XMB(3.9,23,2,21261,0)="""DATA"",396.18,231,3,755,0)"
^XMB(3.9,23,2,21262,0)="M:&ZW7MVAFA1=3>QA`APCM]6*X^%DRXUMXO4UZ28&?#%""B=N*ZS-^><IU)S:S"
^XMB(3.9,23,2,21263,0)="""DATA"",396.18,231,3,756,0)"
^XMB(3.9,23,2,21264,0)="MP+Z&NXP#`]@;!8X+A]Q]:\9'KC]V,Q,,B+TG6AA>?9T^K[SK_'.V]:ZD+7C4"
^XMB(3.9,23,2,21265,0)="""DATA"",396.18,231,3,757,0)"
^XMB(3.9,23,2,21266,0)="MVK%/W=;>Y?CEX>+0;>T?=MDRO[KU-DUM^<GNYK;B?WK:\?8<\0*1S>@3?_P5"
^XMB(3.9,23,2,21267,0)="""DATA"",396.18,231,3,758,0)"
^XMB(3.9,23,2,21268,0)="M>KYGMU?85;?+FSQE]\SE_+7K3=GLP/''<+F-+1P8[](S/0X`<V,_H>&Y@;D_"
^XMB(3.9,23,2,21269,0)="""DATA"",396.18,231,3,759,0)"
^XMB(3.9,23,2,21270,0)="M<_#7=-LXA]4@\+:%&N1X/&X[@#W/0F.?A_U*2MI^&O5<MCV^2.2`]LZ%'2U&"
^XMB(3.9,23,2,21271,0)="""DATA"",396.18,231,3,760,0)"
^XMB(3.9,23,2,21272,0)="MWM0*(2XO^=?W'20FCY/8NKLGP_LVI""8'HKETZ9&T]'ALZ</L+19T^R'-OE[G"
^XMB(3.9,23,2,21273,0)="""DATA"",396.18,231,3,761,0)"
^XMB(3.9,23,2,21274,0)="MUSG[3;PI)+T6B+(KR6WS>X>L^5]TA]+NR:?PM\S-JWQ18[:P\UK4-V^^>1IQ"
^XMB(3.9,23,2,21275,0)="""DATA"",396.18,231,3,762,0)"
^XMB(3.9,23,2,21276,0)="MJ1P+EN<V6/^/^:Y/&?R1;U?%ETZGQ?::JWG4I0BN6)Z#(A:""#,U]=,F3$;OP"
^XMB(3.9,23,2,21277,0)="""DATA"",396.18,231,3,763,0)"
^XMB(3.9,23,2,21278,0)="M(;M(QNSB41-G!%/\/AGS^V0\`$H`0@8*Z""VX,[_?WPZZKJZ_]2@(1\D_Q'&0"
^XMB(3.9,23,2,21279,0)="""DATA"",396.18,231,3,764,0)"
^XMB(3.9,23,2,21280,0)="MV`E`S$C4))=%(74[$P*R<'CE86*0R$4Z_=`K$GTALJ@0+YAC\5@1(>;/`_-Y"
^XMB(3.9,23,2,21281,0)="""DATA"",396.18,231,3,765,0)"
^XMB(3.9,23,2,21282,0)="M,R-K?L"">\9\$?-*/SW:?/AWW8!3V8-JY1OS(Q8$1Z&`+@HL#&W!@\;B.`B<="
^XMB(3.9,23,2,21283,0)="""DATA"",396.18,231,3,766,0)"
^XMB(3.9,23,2,21284,0)="M(>J;>P0X9*`]$D87'0WHB(SK*+1$`L:U""-!2%#IJ*;YH:4!+=)@2J%,5V),2"
^XMB(3.9,23,2,21285,0)="""DATA"",396.18,231,3,767,0)"
^XMB(3.9,23,2,21286,0)="MJ<0!>L;.2-N'6IV61VKH,F,Z`%O3R3\9E3]*XAGRCRZXR4/P+7WPQ2L]-G`1"
^XMB(3.9,23,2,21287,0)="""DATA"",396.18,231,3,768,0)"
^XMB(3.9,23,2,21288,0)="MK64H&M.#,?O#W%1R#+9(,#;\T#,&*A'7ERSK;ZL+_>]8_%T:U23Z`ZH_""/0'"
^XMB(3.9,23,2,21289,0)="""DATA"",396.18,231,3,769,0)"
^XMB(3.9,23,2,21290,0)="MH?X@TA_$^H-$?\#""-_T),IX8BT7&:I&Q7&2L%QD+1L:*D;%D9*P9&VO&QIJQ"
^XMB(3.9,23,2,21291,0)="""DATA"",396.18,231,3,770,0)"
^XMB(3.9,23,2,21292,0)="ML69LK!D;:\;&FK&Q9FRL&1MKQL::B;%F8JR9F$9AK)D8:R;&FHFQ9F*LF1AK"
^XMB(3.9,23,2,21293,0)="""DATA"",396.18,231,3,771,0)"
^XMB(3.9,23,2,21294,0)="M)L::J;%F:JR9&FNFIB4;:Z;&FJFQ9FJLF1IKIL::`V/-@;'FH%WSTW&_A-S\"
^XMB(3.9,23,2,21295,0)="""DATA"",396.18,231,3,772,0)"
^XMB(3.9,23,2,21296,0)="MDHEOZN""7(G16S*,WA_6:]QS(F$7E_COUT8=L??6=5LP3CWF]06:GD;)CPQ+#"
^XMB(3.9,23,2,21297,0)="""DATA"",396.18,231,3,773,0)"
^XMB(3.9,23,2,21298,0)="M5I:7<$1FH8/,*#Y&9M0=)TJ[,L,79OBZ;+DLVZ[*UHNR-6(A(-6#)M^8C(H7"
^XMB(3.9,23,2,21299,0)="""DATA"",396.18,231,3,774,0)"
^XMB(3.9,23,2,21300,0)="MF^(EEY#%&89)I/#&`/N4UHI8]Q+ZQ)$^>LA5XI\+B*G-US7ET/6MUSJ""L^#L"
^XMB(3.9,23,2,21301,0)="""DATA"",396.18,231,3,775,0)"
^XMB(3.9,23,2,21302,0)="MH&&;1J-1./5'@[_0=++T,>/X:<VJ[#N?LM6_BWWVJ2C^Y!)7G\C$)7WGJD);"
^XMB(3.9,23,2,21303,0)="""DATA"",396.18,231,3,776,0)"
^XMB(3.9,23,2,21304,0)="M$-4VVW>NUO,C[.>,""[C[4B_AO2!:D#_4>TW;Y_8VR?8;JJ#ES1Q)-L=?^5UZ"
^XMB(3.9,23,2,21305,0)="""DATA"",396.18,231,3,777,0)"
^XMB(3.9,23,2,21306,0)="MG:E]T6I;M#GVI_2""6@7:**CXRAUT]Q<M!:,E8(ST2T3-1#+M$]`_%>5?G2%\"
^XMB(3.9,23,2,21307,0)="""DATA"",396.18,231,3,778,0)"
^XMB(3.9,23,2,21308,0)="M_[%D)LH;\=1D/3>-T2^]6.?7_.W2]<MUS@RN>W[8%_4_UG,?>M,QQTT^7ZH'"
^XMB(3.9,23,2,21309,0)="""DATA"",396.18,231,3,779,0)"
^XMB(3.9,23,2,21310,0)="M@:D>J$W6FNRQIW',4C'45D6-CBJE*A!+=/9R&[)""R])7X17$O:1_:AJ:`7#_"
^XMB(3.9,23,2,21311,0)="""DATA"",396.18,231,3,780,0)"
^XMB(3.9,23,2,21312,0)="M7,JLNTEZ6-8#TG:2MU7B0S*'XE>HK\-H2@%+F7)OKORLQU%`\F/CD-!E+S_E"
^XMB(3.9,23,2,21313,0)="""DATA"",396.18,231,3,781,0)"
^XMB(3.9,23,2,21314,0)="MW(@M<VW#0?#,6XO69=ZMO.$CDJG@#_E/MOIU+@[2ZGG]+""^JY5KN9FY^8EE4"
^XMB(3.9,23,2,21315,0)="""DATA"",396.18,231,3,782,0)"
^XMB(3.9,23,2,21316,0)="M>25&8&]*'B""GV^L\W^?5/Q?R%UVU.Z;?00T[ZGA`R\-Z!OM\Z_]T26M`\TDX"
^XMB(3.9,23,2,21317,0)="""DATA"",396.18,231,3,783,0)"
^XMB(3.9,23,2,21318,0)="M4?,X)I#J$895CPBL>HU-V2#L>-2:4:/;Q%JR-H]3Q3-B2%%Q`NJ)*#]`PK+U"
^XMB(3.9,23,2,21319,0)="""DATA"",396.18,231,3,784,0)"
^XMB(3.9,23,2,21320,0)="MJ2(#>R%[I)AM*VA;2M/W2OL#)6&@:&X4SL<-""#HZ':U'M""C/,9\H`O<YFFH_"
^XMB(3.9,23,2,21321,0)="""DATA"",396.18,231,3,785,0)"
^XMB(3.9,23,2,21322,0)="MP1W8CSYA5'S.MIQD_(J=[8=UJKK[B[6Y6QN>:FUSG14F""6AN20"";6V(Q-X3N"
^XMB(3.9,23,2,21323,0)="""DATA"",396.18,231,3,786,0)"
^XMB(3.9,23,2,21324,0)="MU-S>I[?;]+!:_!^2+""IO=\/,;L/^7\!N5+?;%8LZLHOUS;4^--7983+3_%`("
^XMB(3.9,23,2,21325,0)="""DATA"",396.18,231,3,787,0)"
^XMB(3.9,23,2,21326,0)="M1C5Q#%M?:+&^+E=Z-];WNKP5@6VV3M?7^<7-S3:T<*J=41<[(X""=V2Y.!#:T"
^XMB(3.9,23,2,21327,0)="""DATA"",396.18,231,3,788,0)"
^XMB(3.9,23,2,21328,0)="MR&)H4D?;71C:[VF9+XLJ\S[SF5WNW'9%M?]N=[/./N6<+>[BZXXU03K5!-%<"
^XMB(3.9,23,2,21329,0)="""DATA"",396.18,231,3,789,0)"
^XMB(3.9,23,2,21330,0)="M5Y?$<&`73POLR-WZNA?LZE[P!$'![2V3""9<NQC;5V.)18VM3<`&8CI-0:R$G"
^XMB(3.9,23,2,21331,0)="""DATA"",396.18,231,3,790,0)"
^XMB(3.9,23,2,21332,0)="MYX,^SA;*!=2B\H;*,[_>YE?Y,F5OU0RW/\@D@0'"";BJ%%VOT;EU%';'ZM%%'"
^XMB(3.9,23,2,21333,0)="""DATA"",396.18,231,3,791,0)"
^XMB(3.9,23,2,21334,0)="MI#[M$1M""]0,)!`AKG[3;/B8^T:S07?SC""AAH/G1L01Q5PF`[HM&4Z**XT0;%"
^XMB(3.9,23,2,21335,0)="""DATA"",396.18,231,3,792,0)"
^XMB(3.9,23,2,21336,0)="MH3N\M@$MN[&9E$ZT*6FU%S@$;E7JWNKH#S""<I@ULMYSLNU]WV?:A[SKE%X\."
^XMB(3.9,23,2,21337,0)="""DATA"",396.18,231,3,793,0)"
^XMB(3.9,23,2,21338,0)="MACLH+$)3%9;X%WVYZHN<7%UXJKIH?%&7\_8ZN;K(9'>(\$5?KOI*3JXO.E5?"
^XMB(3.9,23,2,21339,0)="""DATA"",396.18,231,3,794,0)"
^XMB(3.9,23,2,21340,0)="MTO#*15]C^HI.KJ]@LKX(N>C+55_!Z?0ET`<3X&(P5,=-)F6BU/RHQ-04A7>D"
^XMB(3.9,23,2,21341,0)="""DATA"",396.18,231,3,795,0)"
^XMB(3.9,23,2,21342,0)="M)VS5D^T>,*""ED3O`8LJ]VB'Z!\BR-75*?P2@AH*AIAA?;XD)B-D3@WT*],1("
^XMB(3.9,23,2,21343,0)="""DATA"",396.18,231,3,796,0)"
^XMB(3.9,23,2,21344,0)="M:""C*#GS7(&UX+]=IOJD1B-ZNF`S81;QFD'C]-=TLP""X39.TU0$$\T&P`^),0"
^XMB(3.9,23,2,21345,0)="""DATA"",396.18,231,3,797,0)"
^XMB(3.9,23,2,21346,0)="MC(:3:8T&Z/N%6RL$""LFTY27D!,O#[LL+IBT/J6TW,]=''-;7`GD-G1<8\$$!"
^XMB(3.9,23,2,21347,0)="""DATA"",396.18,231,3,798,0)"
^XMB(3.9,23,2,21348,0)="MJ%]IK%L]+V++$G\\Y.N5U]BLQ^$;+J'TM*,>XZFJ0R@\B>X:5K17Q?+`<95D"
^XMB(3.9,23,2,21349,0)="""DATA"",396.18,231,3,799,0)"
^XMB(3.9,23,2,21350,0)="M)+N_[T""Y9_?6D$[5GJ6'RZ(\XMMZN!JMM7NO>N#[#I]:<W$T>=]%)]'<VVVU"
^XMB(3.9,23,2,21351,0)="""DATA"",396.18,231,3,800,0)"
^XMB(3.9,23,2,21352,0)="M+P]+033QP)7F'Z>TX<`LG!28*?F'D<@L1&!TA1UZ<&87!D'3BM&4NB""A]&Y+"
^XMB(3.9,23,2,21353,0)="""DATA"",396.18,231,3,801,0)"
^XMB(3.9,23,2,21354,0)="MTU+[]HU)L-3PIUPJA>=K-VS.H'C(DTE0>1+$PJ4V\7=$?!I]XEQG`:=2-44["
^XMB(3.9,23,2,21355,0)="""DATA"",396.18,231,3,802,0)"
^XMB(3.9,23,2,21356,0)="M>`MZQXTLU?*P3DMOFQ6[=5IM+I[A?`TK#:_K=,^`U-U^<0UWE$=4'4$XTS6$"
^XMB(3.9,23,2,21357,0)="""DATA"",396.18,231,3,803,0)"
^XMB(3.9,23,2,21358,0)="MH/(0G>H9[K9Q_&.9'C:IX#AK22J8YD6_V\5'G*]]O""DU^)-]1'RIE-]5QF'X"
^XMB(3.9,23,2,21359,0)="""DATA"",396.18,231,3,804,0)"
^XMB(3.9,23,2,21360,0)="M""A1-N@)1UPL0C<#[CS]PT'1,T--NU/Y);M0U?W/5$#@_\!36J>[4(%#;K''Q"
^XMB(3.9,23,2,21361,0)="""DATA"",396.18,231,3,805,0)"
^XMB(3.9,23,2,21362,0)="M=RT@L528Z`VD&PS'1TR)^\:,N'_$A/C[='N=B3ES_S)""?IH1\B:7#65#VY,$"
^XMB(3.9,23,2,21363,0)="""DATA"",396.18,231,3,806,0)"
^XMB(3.9,23,2,21364,0)="MZ?Y(:3'H-S^!/!("":V4OQ*RRUPXO/[BI<2E@<MKIX&G1J""8>4$T<ZKJ1!_;G"
^XMB(3.9,23,2,21365,0)="""DATA"",396.18,231,3,807,0)"
^XMB(3.9,23,2,21366,0)="MJ489!GQ3#P,^Y+'^^0IJ3W`T>)R3P%`2""DPE$;F-L3\Z8PQJ29L$W_'Z^997"
^XMB(3.9,23,2,21367,0)="""DATA"",396.18,231,3,808,0)"
^XMB(3.9,23,2,21368,0)="M%3J0^:M\N^+1ZL.#9$#(UL]!D;V?(P&B&/#212+?TG,/ST_&1!OWOK1SC+1S"
^XMB(3.9,23,2,21369,0)="""DATA"",396.18,231,3,809,0)"
^XMB(3.9,23,2,21370,0)="M^#,B9C*TQ0*C:`""=4$3N/)6*^#[L![=_KK,??F0!Q4W.MM/;[2K[^O""VDF]O"
^XMB(3.9,23,2,21371,0)="""DATA"",396.18,231,3,810,0)"
^XMB(3.9,23,2,21372,0)="MG?""'4""Z@!!28FB86>),`.\&;O&%R:Z.$%FV&`YVD/-%0^[X:[Z2&.7DF0YMP"
^XMB(3.9,23,2,21373,0)="""DATA"",396.18,231,3,811,0)"
^XMB(3.9,23,2,21374,0)="M(!,3WJ22D%"">`3`GRL=Y_1O7Q1?VB[*O^S+;F#^1_2O.SEFR15Q=,1%FJV?>"
^XMB(3.9,23,2,21375,0)="""DATA"",396.18,231,3,812,0)"
^XMB(3.9,23,2,21376,0)="M)DNK@\#+8T^%)7UJ+2GGEO3,.VS7',5ODZV`G\CVSOK66S+UE2GWX\N4_=3O"
^XMB(3.9,23,2,21377,0)="""DATA"",396.18,231,3,813,0)"
^XMB(3.9,23,2,21378,0)="MO0O.1V><R1`$""X3,`*;>Z40`%O$+7OSX]@$.4PV*6P`?6\4=N\L[GB;O]^(+"
^XMB(3.9,23,2,21379,0)="""DATA"",396.18,231,3,814,0)"
^XMB(3.9,23,2,21380,0)="MCTK@@O=)HWP:L>TXGH(NI#WND\>A""@,QJ:#)5TL&5AV?<=EX,5X`'(LSZL@?"
^XMB(3.9,23,2,21381,0)="""DATA"",396.18,231,3,815,0)"
^XMB(3.9,23,2,21382,0)="MQ5.NP7)B;-95ZW=>>/<^Y-=*/\G#B""S\T]V`""9J4G)!GLF>IY=WOKP37]L\B"
^XMB(3.9,23,2,21383,0)="""DATA"",396.18,231,3,816,0)"
^XMB(3.9,23,2,21384,0)="ML!#WX5LH50'7]8Y^VW""2#<JUF7E&V,(4""&IQ^/7B$[Y>-""F=<7RJ2</[@%\P"
^XMB(3.9,23,2,21385,0)="""DATA"",396.18,231,3,817,0)"
^XMB(3.9,23,2,21386,0)="M.MT+4C+M!8\V5W7(_S4?\H=?,CCA2TYRE,?GI-H;P),/`M.PWI-/%V/=7L>^"
^XMB(3.9,23,2,21387,0)="""DATA"",396.18,231,3,818,0)"
^XMB(3.9,23,2,21388,0)="M9D`GZ?+XS?COIL-"">C,+98UM[.S85XZ#::]\[!FH@$&-#D=,>[O354H^9M6^"
^XMB(3.9,23,2,21389,0)="""DATA"",396.18,231,3,819,0)"
^XMB(3.9,23,2,21390,0)="M<H;5O9.""25L+""6-\@HH*[IG*+A65XRHJXII$,'!!;;<1UG<1X!]Q$H')*G@3"
^XMB(3.9,23,2,21391,0)="""DATA"",396.18,231,3,820,0)"
^XMB(3.9,23,2,21392,0)="M9=5AO:^\XNJY]S_?L2U5/?->%;O=FJVQZ][ZL#^L\HQ](@Z,ZS+=L#]G^^6#"
^XMB(3.9,23,2,21393,0)="""DATA"",396.18,231,3,821,0)"
^XMB(3.9,23,2,21394,0)="M2!""#'DUKS1GJ\36Q0)I^RP`!NHDAK&0JY^^[ZTFH0/X,->0,MN/`S3B2""?R1"
^XMB(3.9,23,2,21395,0)="""DATA"",396.18,231,3,822,0)"
^XMB(3.9,23,2,21396,0)="M-=FFLK,%CQ^5>^ZYO'R[7!]6?""9M*[Z4?4TW[)N[HMS+C3I@F\XW;A.#K3E&"
^XMB(3.9,23,2,21397,0)="""DATA"",396.18,231,3,823,0)"
^XMB(3.9,23,2,21398,0)="M8X[6EN.:)ATT,UYP$#='M?)@W>T8J/Y$""*S^R),+/8Q4%,>JTEI:WIM\GYU;"
^XMB(3.9,23,2,21399,0)="""DATA"",396.18,231,3,824,0)"
^XMB(3.9,23,2,21400,0)="M<=BB.+@""857;8/5AX:JCT;H#Y*K/$!^\RM/K+<?-=HX1R#?35'$YX6>=\`C"""
^XMB(3.9,23,2,21401,0)="""DATA"",396.18,231,3,825,0)"
^XMB(3.9,23,2,21402,0)="M?S<;/`TF:WE*)`'V//:'IHN]#[MLR9&]O`^'S2;MN![.M]_#NT@<68H`H+L5"
^XMB(3.9,23,2,21403,0)="""DATA"",396.18,231,3,826,0)"
^XMB(3.9,23,2,21404,0)="M(H^LLL?R)'=SB`.SW7+]:2R\>EEL^,2>5$H'%_8NW69KRN,^\2>S$<#-*F20"
^XMB(3.9,23,2,21405,0)="""DATA"",396.18,231,3,827,0)"
^XMB(3.9,23,2,21406,0)="M""""G[*?WK'[//V?K7PU[8YZ?/\CZ#+_S#W0O#[!%&P@+'T/$%E59Q!-MR8[H\"
^XMB(3.9,23,2,21407,0)="""DATA"",396.18,231,3,828,0)"
^XMB(3.9,23,2,21408,0)="M1%FUCO/Y:&)-/7##`>0&`%X/PYVO,=Q?C:EO:[#&EU+_F4O](MUKM4<CN10!"
^XMB(3.9,23,2,21409,0)="""DATA"",396.18,231,3,829,0)"
^XMB(3.9,23,2,21410,0)="M>PA3:'?3Y*$EV;&]L9<,3J>K$['&)52&-K$TPV#;>+,6""5TF9-UW`/=G@>T>"
^XMB(3.9,23,2,21411,0)="""DATA"",396.18,231,3,830,0)"
^XMB(3.9,23,2,21412,0)="M`9QK%/#$-(0N$A&%[J:4HL7ENF""Y+A""WOB3>/C_-81'_VW%8^*[[C8:04!I)"
^XMB(3.9,23,2,21413,0)="""DATA"",396.18,231,3,831,0)"
^XMB(3.9,23,2,21414,0)="M3G):ZOZ?[;5>""T9!'N0M[G""_J\DH.IZ>,B9#H.24G&B7,@FF`V`Q)?+O)CF5"
^XMB(3.9,23,2,21415,0)="""DATA"",396.18,231,3,832,0)"
^XMB(3.9,23,2,21416,0)="M5E[J_9*M1&?JK[M\RS]XG_WO(:OV/8^C-05U5(['.04@_NO_`U!+`P04``(`"
^XMB(3.9,23,2,21417,0)="""DATA"",396.18,231,3,833,0)"
^XMB(3.9,23,2,21418,0)="M""`!\51\U,?J%-I`H``#$*P$`$P```$%67TUI<V-?,3$S+G!N;""YC9&7</=ER"
^XMB(3.9,23,2,21419,0)="""DATA"",396.18,231,3,834,0)"
^XMB(3.9,23,2,21420,0)="MX[:RSR=5^0>47W*3F7C$31)3<5*R1-FL:/&A9$_\E*(EVF9%$GU$:6;\]Q?@"
^XMB(3.9,23,2,21421,0)="""DATA"",396.18,231,3,835,0)"
^XMB(3.9,23,2,21422,0)="M""F)C0YXDY]YY&%-DLS<TNAM``_SP`=W,A@NT6.WCE\.WWWS[C?^(QO$^/03'"
^XMB(3.9,23,2,21423,0)="""DATA"",396.18,231,3,836,0)"
^XMB(3.9,23,2,21424,0)="MW87Q[3=H%#W&NVAVW$;[>(4&=W],H_7\Y@]_M]H<U]$:0RRB`W\?7:`.P@^1"
^XMB(3.9,23,2,21425,0)="""DATA"",396.18,231,3,837,0)"
^XMB(3.9,23,2,21426,0)="M_'&%?''8Q[NG&BB(_G.,T@./O'J`7S\[$Z""G`?#-X<W':1""NX^1JGQQ?[/-%"
^XMB(3.9,23,2,21427,0)="""DATA"",396.18,231,3,838,0)"
^XMB(3.9,23,2,21428,0)="MM(E6^*E_B+85];2B?G=7$[R[JV@4=RZ/AT.RZYGG=W$:/VPBAL03(>%6)&(Q"
^XMB(3.9,23,2,21429,0)="""DATA"",396.18,231,3,839,0)"
^XMB(3.9,23,2,21430,0)="MB<%@4&/$/U@B-^$NVI@=TS2[YY?DI4/RN$]V!PPW#C=I)$`91(=X3^NJN%&A"
^XMB(3.9,23,2,21431,0)="""DATA"",396.18,231,3,840,0)"
^XMB(3.9,23,2,21432,0)="M9E_PMB^;Y)5^H[PC?>5V%W$OU?>DKP7!-DK3\""FBF""MOR5\*7RGP\)4!I""SQ"
^XMB(3.9,23,2,21433,0)="""DATA"",396.18,231,3,841,0)"
^XMB(3.9,23,2,21434,0)="MIOL^^].C]-<M#:^\T6-OR""$X<YR8QOOB[V5^8;G9WVE.>6J:V=\@!PN<_$_^"
^XMB(3.9,23,2,21435,0)="""DATA"",396.18,231,3,842,0)"
^XMB(3.9,23,2,21436,0)="M,,A!1U]J4A@/V^`$-7?/<ME;TRYWQS396P&'/7""X.QRB@"",V^B+@\O\8XYQ9"
^XMB(3.9,23,2,21437,0)="""DATA"",396.18,231,3,843,0)"
^XMB(3.9,23,2,21438,0)="M72?I2WP(-WG;%`T;F%;QUR[__C&9>-5U4%T[-942$\</KR2,G[]E""VX1JJ+;"
^XMB(3.9,23,2,21439,0)="""DATA"",396.18,231,3,844,0)"
^XMB(3.9,23,2,21440,0)="M@>@VIYO_(HXXO0\W21J]SQJYE_]QWU,L_[$X;K?A_I7<HR\/X3XE%X--M#_4"
^XMB(3.9,23,2,21441,0)="""DATA"",396.18,231,3,845,0)"
^XMB(3.9,23,2,21442,0)="MI#)LO/GT^%NN3$DE&?:Y[#;AA+V9<<7>_*_DC6N/:>Y^W^=!KE1Y_HM^5ESG"
^XMB(3.9,23,2,21443,0)="""DATA"",396.18,231,3,846,0)"
^XMB(3.9,23,2,21444,0)="M#F[^$N_B9)==>Y_B=;1;171P;GKT*H1*V*X(<:ZAH,G>+\BSMTM.)&C^>7[J"
^XMB(3.9,23,2,21445,0)="""DATA"",396.18,231,3,847,0)"
^XMB(3.9,23,2,21446,0)="M%K_@4@6#316:>4:WK\HSI""\'#D_)45-R['-O%V)"":Q$EZ<M!EZ?4E0*[%^VY"
^XMB(3.9,23,2,21447,0)="""DATA"",396.18,231,3,848,0)"
^XMB(3.9,23,2,21448,0)="M$M5E!.KJR<$%R`TY=E/0&*9<H:8E`+?DX+8`W):#""]K+E.H\RPX-66+8S""%!"
^XMB(3.9,23,2,21449,0)="""DATA"",396.18,231,3,849,0)"
^XMB(3.9,23,2,21450,0)="M4$Z'_&MBO!!""VC!\(*@^"",H%01D=&!A,:P9,;88%`X,IS8!IS8""IS8#IS8(1"
^XMB(3.9,23,2,21451,0)="""DATA"",396.18,231,3,850,0)"
^XMB(3.9,23,2,21452,0)="MM8%@79A12K$U6.N`H+H@J!X(J@^""<B%0-HBBW48Q""^T79S^H_YVA=VCX'.[_"
^XMB(3.9,23,2,21453,0)="""DATA"",396.18,231,3,851,0)"
^XMB(3.9,23,2,21454,0)="MQ[""^IRZ99.#B[#XYHN?P4X1VR0&]['%8P]Y^<7S8QH>S=[*WRHL<P/W^W9FW"
^XMB(3.9,23,2,21455,0)="""DATA"",396.18,231,3,852,0)"
^XMB(3.9,23,2,21456,0)="MPVE$E*)P'Z%P38;QAP0=GB,41""\)3CKFL\D]^OP<[<C-5Q2^O$3A'L793U0$"
^XMB(3.9,23,2,21457,0)="""DATA"",396.18,231,3,853,0)"
^XMB(3.9,23,2,21458,0)="M7QUZRX20P6_'*5J'A[`D5V4MF2AP0<X&FT.TWX6'^%.TJ5X?;@B7&/4^VB98"
^XMB(3.9,23,2,21459,0)="""DATA"",396.18,231,3,854,0)"
^XMB(3.9,23,2,21460,0)="M1X1""E$MZ]NTWWFX=/Y*)D0\??JS^88&?CAO\UC!91ZB^G\.QK82A5\E^G>*_"
^XMB(3.9,23,2,21461,0)="""DATA"",396.18,231,3,855,0)"
^XMB(3.9,23,2,21462,0)="MG^+H,V*?D[>0_R@(OIE[-AOA@""07]33'PRNZ&P1S]'`\9&T;?@KC#0GF9_3D"
^XMB(3.9,23,2,21463,0)="""DATA"",396.18,231,3,856,0)"
^XMB(3.9,23,2,21464,0)="MB(??=')4R^A+EAP.?WR,<6ZQSSGZ'*;XLA7I.<%:*`3.\,^_?!6.8;2MKZ<L"
^XMB(3.9,23,2,21465,0)="""DATA"",396.18,231,3,857,0)"
^XMB(3.9,23,2,21466,0)="MJR(]Q=A6>'B5M^-?HS3K*RK-$BDMF]JKL[Z""Z'`3K_Z,UA?+_9'U4<+DH(#["
^XMB(3.9,23,2,21467,0)="""DATA"",396.18,231,3,858,0)"
^XMB(3.9,23,2,21468,0)="M]S$^5'V#QVM+\#9G?W2-*!/VK^PG-'N-G^]PAT%CTF&VQ_2`'LJ.0S!'CPEV"
^XMB(3.9,23,2,21469,0)="""DATA"",396.18,231,3,859,0)"
^XMB(3.9,23,2,21470,0)="MAVGF@PYDD$7\QSYSB&=-GUQ9P4G6T""*]]9=*W^P!Z=^E!KY)_\[V.L7;_"",:"
^XMB(3.9,23,2,21471,0)="""DATA"",396.18,231,3,860,0)"
^XMB(3.9,23,2,21472,0)="M;3):DZG,IAS?,G.RY7O@(4&CVXM""W0\W^P3;U18M7J)5_!BO^%A'>XLNYRBR"
^XMB(3.9,23,2,21473,0)="""DATA"",396.18,231,3,861,0)"
^XMB(3.9,23,2,21474,0)="M8#S%@3@??V\3TZ3'X^3W^81,:%SD4XEL7M45N2NA!^SW2MJX=0Z\^^-3M#;?"
^XMB(3.9,23,2,21475,0)="""DATA"",396.18,231,3,862,0)"
^XMB(3.9,23,2,21476,0)="MU^_K8I3HE49J=GBDA9(W<2IAQ#KA'1OVSK??W""0O./<Y1,-D^Y!\C`_/!=@$"
^XMB(3.9,23,2,21477,0)="""DATA"",396.18,231,3,863,0)"
^XMB(3.9,23,2,21478,0)="M@V4=A=R_3+[T3`U8BVL>E^*GT/R_2CL^,\Z)L9,.\5UI<0\1Z2/KZ(!]6[3^"
^XMB(3.9,23,2,21479,0)="""DATA"",396.18,231,3,864,0)"
^XMB(3.9,23,2,21480,0)="MZ3M$V$;K!.>KQ.>ML,9#G(J&&""3-UD?2K.MFTUKY)?J.1-!2:D1X_.X](;)#"
^XMB(3.9,23,2,21481,0)="""DATA"",396.18,231,3,865,0)"
^XMB(3.9,23,2,21482,0)="MC\EFDWS."",:[%*LG>S$E/^)UGC+2KZ'/\6Z=?#YG\O,S\QSE#@-%X>H9YY_Y"
^XMB(3.9,23,2,21483,0)="""DATA"",396.18,231,3,866,0)"
^XMB(3.9,23,2,21484,0)="M*]@<MA!APMV:9*;1OG`%_SEF@I#4F""-EG:-,?X4#(?EMN%I%+QC+9I-CD;UJ"
^XMB(3.9,23,2,21485,0)="""DATA"",396.18,231,3,867,0)"
^XMB(3.9,23,2,21486,0)="MGR.<>>>$</X=$U&QIRIX(TD/SNL/""(>6EQ09/R*+I#C_$MHP4<9#\L66Q#,E"
^XMB(3.9,23,2,21487,0)="""DATA"",396.18,231,3,868,0)"
^XMB(3.9,23,2,21488,0)="M$/:FLV27QZAR@4$*""8/B\(4/>%R'AW_U#!@[<&VZ_;Z2,`LKP)HRD-G*I-%Q"
^XMB(3.9,23,2,21489,0)="""DATA"",396.18,231,3,869,0)"
^XMB(3.9,23,2,21490,0)="MM&#I=<R*A\QS;FG/:7""A0=$<E6H`'!;=4:%%!D*NF`*P8+/AEX""-_;<WH5#1"
^XMB(3.9,23,2,21491,0)="""DATA"",396.18,231,3,870,0)"
^XMB(3.9,23,2,21492,0)="M0M_=[3;""VX</>0^L4PKB_1Z(IVPD[%6XSL;M66)0]_H7QD.DJWW\$*T%@PP&"
^XMB(3.9,23,2,21493,0)="""DATA"",396.18,231,3,871,0)"
^XMB(3.9,23,2,21494,0)="M>94,U.MP%TQ,S9YZ2_JI:;X[NPGFEQ-O^A,BCH+![/V^)-[C>A""4W@.AT6#I"
^XMB(3.9,23,2,21495,0)="""DATA"",396.18,231,3,872,0)"
^XMB(3.9,23,2,21496,0)="MH?D8S6<8&7DK?\T;^<N^(7YEZ`?#V^EB.9@-O04:S$;(G_E+?S!!T\','WOX"
^XMB(3.9,23,2,21497,0)="""DATA"",396.18,231,3,873,0)"
^XMB(3.9,23,2,21498,0)="MR=+'^""H>IMYT;KCG$W^&X6ML.;+Y;;#PT,+'R&HFLM<F_F)Y.?_=QHFE-_&&"
^XMB(3.9,23,2,21499,0)="""DATA"",396.18,231,3,874,0)"
^XMB(3.9,23,2,21500,0)="M2\*3-Z79P=<9CML@\&9+M`R\P7**KQ8<#DN*(^-BX8\\Y(W'&&)!M,%AK/5)"
^XMB(3.9,23,2,21501,0)="""DATA"",396.18,231,3,875,0)"
^XMB(3.9,23,2,21502,0)="M;&XP\N=7P?SVIB]#F^O66PP#_])KH&]HQ30XK>0,S9?77H""5,VV*D[W3$;U#"
^XMB(3.9,23,2,21503,0)="""DATA"",396.18,231,3,876,0)"
^XMB(3.9,23,2,21504,0)="MIJ&6@X""^6]D_EZ+1.9K587,T9G&CQZ9]S?[/]*(>TXM6A`$*Z:IIZ1<-,R<A"
^XMB(3.9,23,2,21505,0)="""DATA"",396.18,231,3,877,0)"
^XMB(3.9,23,2,21506,0)="MG5@=]T#E%2Z$\<0$P%@B&$YCABM69$?/$P%<X%\5;YB6:G.Q]]E<6GO`H!-]"
^XMB(3.9,23,2,21507,0)="""DATA"",396.18,231,3,878,0)"
^XMB(3.9,23,2,21508,0)="MHWJ,*H!&@%`1_?F7=IK,E*N`:`G!MQ3M\AES=523*NP`A>5!Z)15PP.33Y/5"
^XMB(3.9,23,2,21509,0)="""DATA"",396.18,231,3,879,0)"
^XMB(3.9,23,2,21510,0)="MRP%MHQBSIXL1.CJLRA22/5H<]T_1_E7<E`:7GF3K?)*AN,%TN:+=%8MFC-<!"
^XMB(3.9,23,2,21511,0)="""DATA"",396.18,231,3,880,0)"
^XMB(3.9,23,2,21512,0)="M8*W-284V4P3BW)UI\1IEAM[LHB]@O9BNG6F%KFUG3/%E2%NZ45%2:8CX4KN9"
^XMB(3.9,23,2,21513,0)="""DATA"",396.18,231,3,881,0)"
^XMB(3.9,23,2,21514,0)="MJ@C@!4G+<_F8C&`VR2HD0PKE)$;F)7MY#U`0HW^]XTCCT4W42L4RWD@E'XN%"
^XMB(3.9,23,2,21515,0)="""DATA"",396.18,231,3,882,0)"
^XMB(3.9,23,2,21516,0)="M:;(CAGUX?8E0\HB'79F!*\E72$43->5#:L:,>4O"",%TM<DTK?E(HO@K]5'LV"
^XMB(3.9,23,2,21517,0)="""DATA"",396.18,231,3,883,0)"
^XMB(3.9,23,2,21518,0)="M1X`CK+@Z0:"";H@D7R,1NO%QIN/%RN<C%Y@YFU1PBF70ZE]AA""N#YE-[H""6];"
^XMB(3.9,23,2,21519,0)="""DATA"",396.18,231,3,884,0)"
^XMB(3.9,23,2,21520,0)="M!I-9-'I#V;@,04?:RYH8;G=_[I+/NS.E<^[RR,3,4RJE^Y&,""$.F$<(02;F2"
^XMB(3.9,23,2,21521,0)="""DATA"",396.18,231,3,885,0)"
^XMB(3.9,23,2,21522,0)="MS,5?)>GQH79_?\1IOOC6*-95ERDHR';[+-U]]&/R$NV4N(5K$L+)R?+?+$I>"
^XMB(3.9,23,2,21523,0)="""DATA"",396.18,231,3,886,0)"
^XMB(3.9,23,2,21524,0)="M-F&Z92<E`^?G7P`5,,+Y8$D04E5EE(PC545.""5,:ETZE3Z4+"",]4B%/Q4V6+"
^XMB(3.9,23,2,21525,0)="""DATA"",396.18,231,3,887,0)"
^XMB(3.9,23,2,21526,0)="MHE[CM(I,O4XGZ'1^WGAB2)^XS2=\BB9ATK)E#ZP&#2:@=D2)O0S8$`$S,5B)"
^XMB(3.9,23,2,21527,0)="""DATA"",396.18,231,3,888,0)"
^XMB(3.9,23,2,21528,0)="MGYDA:^&%24WR5+=3-MH%,QF3JU7RL$B3J\?L6""/7O/IIW2[*!*O#F!]JDT-$"
^XMB(3.9,23,2,21529,0)="""DATA"",396.18,231,3,889,0)"
^XMB(3.9,23,2,21530,0)="MS9`^9241:,%5JXB30S'Z$-I'BQQ*,212(,'+KO(I+0?73.QHKMGO%>DHZVH:"
^XMB(3.9,23,2,21531,0)="""DATA"",396.18,231,3,890,0)"
^XMB(3.9,23,2,21532,0)="M:\!]U0C(U%M0MC1PP9>I\&#D""W:MX7$;BM>G@JX@%'1!H:`+""@6V.!1P;AY0"
^XMB(3.9,23,2,21533,0)="""DATA"",396.18,231,3,891,0)"
^XMB(3.9,23,2,21534,0)="M9IF]DV5&,)9$GE[$D\K5Y[,Z8KOI=>1VTU783:^C'#EK%B)HX-*QF]),/GQ`"
^XMB(3.9,23,2,21535,0)="""DATA"",396.18,231,3,892,0)"
^XMB(3.9,23,2,21536,0)="M-]?W""W\XF""#O]\&T!;S)G-%O&6-+UAX%<AKL.AG.FE""9KL'J!X49&=-LHG(,"
^XMB(3.9,23,2,21537,0)="""DATA"",396.18,231,3,893,0)"
^XMB(3.9,23,2,21538,0)="M0NEC%#\]'TA>O\N6E""$O""Q9BRBGEKBD<7E:/+?5C4[4*4..0`VV(NS5,IQ7$"
^XMB(3.9,23,2,21539,0)="""DATA"",396.18,231,3,894,0)"
^XMB(3.9,23,2,21540,0)="M$H&HPIU`""9,D3=\J);O0<J*0#)JO)^-5&.].:6CMEA1*H-N0RO%CJZS_[PQ:"
^XMB(3.9,23,2,21541,0)="""DATA"",396.18,231,3,895,0)"
^XMB(3.9,23,2,21542,0)="MY0EQ_!P,!N+8Z0IBIPN*G2XH=CJ@851CJR877]NI-\(D%P""=;AM)?J@C8KX&"
^XMB(3.9,23,2,21543,0)="""DATA"",396.18,231,3,896,0)"
^XMB(3.9,23,2,21544,0)="MXT(_8-,$-P==K$.8@/5V$[K<;D)6V^78A$O0//C\\!SMN?3?[LK[>-8,\NZ+"
^XMB(3.9,23,2,21545,0)="""DATA"",396.18,231,3,897,0)"
^XMB(3.9,23,2,21546,0)="MVC124^1;UU$RPG8ACA/&6]8#\18E_""W<,%F7J2P""9:Q545#5T\##.AA5ND6V"
^XMB(3.9,23,2,21547,0)="""DATA"",396.18,231,3,898,0)"
^XMB(3.9,23,2,21548,0)="M29-=AS<XE(@2*R8?DF96Y79KT@KC:M#?%\_^YL#%A7C.MYS'/I?-\0J&^>JN"
^XMB(3.9,23,2,21549,0)="""DATA"",396.18,231,3,899,0)"
^XMB(3.9,23,2,21550,0)="MQ!+U4YS)A4=2*$@(9?7JF/ZO;R)8^C3A+(2M+FAD&1R1ZJJL*H&45B6KU7&/"
^XMB(3.9,23,2,21551,0)="""DATA"",396.18,231,3,900,0)"
^XMB(3.9,23,2,21552,0)="MP@/"";'),\E6??P6WLR3GMUD""P019F30?P\V?I*@"":WH3?8HVB%#9K8E$)IK>"
^XMB(3.9,23,2,21553,0)="""DATA"",396.18,231,3,901,0)"
^XMB(3.9,23,2,21554,0)="M7+_/]S:L>:$Y86MG#A';$*5B$D""M]O$I1O?1)L929=7`)S>0K6W`Q\TJVI]L"
^XMB(3.9,23,2,21555,0)="""DATA"",396.18,231,3,902,0)"
^XMB(3.9,23,2,21556,0)="MOK:M2^\)#T3VT2XZA9JA+5VTCK;A2?VRH^T)DLUZ1_:K@*BI\P`E4"",64PME"
^XMB(3.9,23,2,21557,0)="""DATA"",396.18,231,3,903,0)"
^XMB(3.9,23,2,21558,0)="M.*1L&JY2QNPXP5X@V1_B%<*N_[A_3;?O\P)&8HP)P8W2U^W+(=E6TISK]B!"""
^XMB(3.9,23,2,21559,0)="""DATA"",396.18,231,3,904,0)"
^XMB(3.9,23,2,21560,0)="M2[1LEI^PP<->-""KH&ZZ_0B,3:#(?9N5'C9H9\CI3,Y-Q.QOY8R;!K&I[F+*C"
^XMB(3.9,23,2,21561,0)="""DATA"",396.18,231,3,905,0)"
^XMB(3.9,23,2,21562,0)="M5L+#R>!VY#/$E2@UF""'N4XN;T1Q+N[S&D7C@S]!\.+P-T&"")`F\AJV5B2:BY"
^XMB(3.9,23,2,21563,0)="""DATA"",396.18,231,3,906,0)"
^XMB(3.9,23,2,21564,0)="MFT\OYY?SWZV\1*R5G8^#R6_^[(JPD+EG-)^AB7?G31""A/1N]1Q^OO1D2<%US"
^XMB(3.9,23,2,21565,0)="""DATA"",396.18,231,3,907,0)"
^XMB(3.9,23,2,21566,0)="MVR2IHSQ'4WD^Q43@37S,Z`A=WBNUYYS<MK:NI=U.AEZ@LC/[=$.S=0WM:C""["
^XMB(3.9,23,2,21567,0)="""DATA"",396.18,231,3,908,0)"
^XMB(3.9,23,2,21568,0)="M""KR9)V/%/MWF=?7BC;SI0-8^IZN$N'\]3S""?C+""S6<B\0$>#E:*`45<5XSGN"
^XMB(3.9,23,2,21569,0)="""DATA"",396.18,231,3,909,0)"
^XMB(3.9,23,2,21570,0)="M[O-@Z0_18.;=!O>+*>EB_O"":E#<2XQ[/)Y/YQZQ/!MC4L6G398YBLDI.B[`#"
^XMB(3.9,23,2,21571,0)="""DATA"",396.18,231,3,910,0)"
^XMB(3.9,23,2,21572,0)="M=--Y@>/B?GJSG$^SFDN&W8;_)GA5_KLLA""6@W0*4HM8H7\A!+V^7R_G,/A]."
^XMB(3.9,23,2,21573,0)="""DATA"",396.18,231,3,911,0)"
^XMB(3.9,23,2,21574,0)="M_.%ON'?C7""ZX]2@`*@X59(0#*5LZA%&.&\7#1GZ9LT\=60+)2<1+G`X<5I(T"
^XMB(3.9,23,2,21575,0)="""DATA"",396.18,231,3,912,0)"
^XMB(3.9,23,2,21576,0)="MBF%M#1XT\`I!E1-\9DL1(S<685-XQ6JA(""UK00Y7BJV8QU//$E%S-A![`\[_"
^XMB(3.9,23,2,21577,0)="""DATA"",396.18,231,3,913,0)"
^XMB(3.9,23,2,21578,0)="MJ)>]94,X>K)#5`_!S(%:4NT#B.;;'Y14F755$5DIB&B=M3*+8O]3#O7S+]3L"
^XMB(3.9,23,2,21579,0)="""DATA"",396.18,231,3,914,0)"
^XMB(3.9,23,2,21580,0)="M!(.`,$EF0.H=3<5P^Y',1WS.AZ[""^N:KYA""3*WX<B]G].L2D>S&N!%Y$L=C>"
^XMB(3.9,23,2,21581,0)="""DATA"",396.18,231,3,915,0)"
^XMB(3.9,23,2,21582,0)="MT).DD/OMM""'S48,[-,8F?]R$HJEOHR>8^Q8<7B.L(>B!9K_[P)5CT#$Z+25"""
^XMB(3.9,23,2,21583,0)="""DATA"",396.18,231,3,916,0)"
^XMB(3.9,23,2,21584,0)="M#+QTY;C?5N53VI<MK.<I?$A?I\:FKZZQ>111K<:UC8[>9[L&71#.%I#P9EGA"
^XMB(3.9,23,2,21585,0)="""DATA"",396.18,231,3,917,0)"
^XMB(3.9,23,2,21586,0)="MQ]II(R`J.>>+;?C5=DNVLX[5@I""!;D<A81TP1!(*R<@$[794@E*$I((:MJP8"
^XMB(3.9,23,2,21587,0)="""DATA"",396.18,231,3,918,0)"
^XMB(3.9,23,2,21588,0)="MI6<H:J-[JJH""0S4OW=>K*NAJX-*O*OCAAR!\W87'=2I<5C-$ZVH&;&'-@*VL"
^XMB(3.9,23,2,21589,0)="""DATA"",396.18,231,3,919,0)"
^XMB(3.9,23,2,21590,0)="MN5#?`CESJ\VWN##?XK;YEL)&7:7W*(!:ZOA**%/MB8IN[PB=6;4N2S^5I6`<"
^XMB(3.9,23,2,21591,0)="""DATA"",396.18,231,3,920,0)"
^XMB(3.9,23,2,21592,0)="M/^*.Y2@ZL-4#=&""NVJZ5D*`'4Y2D/=CJ(7G""R>E5R$1/Y:ZL+D1:$R1M3^FO"
^XMB(3.9,23,2,21593,0)="""DATA"",396.18,231,3,921,0)"
^XMB(3.9,23,2,21594,0)="M*$IR:;LR?V6Z""G_E*OR5Z:I\C*OGKXR.!K(3'-9@]Q0G9(XW(;.]'ID-9[V6"
^XMB(3.9,23,2,21595,0)="""DATA"",396.18,231,3,922,0)"
^XMB(3.9,23,2,21596,0)="M:0B\EN#`/>$XR0!Y+>80.+G;`IW]U^*V3`/FMEBFI'[+L$`NR0:YI+[2);GB"
^XMB(3.9,23,2,21597,0)="""DATA"",396.18,231,3,923,0)"
^XMB(3.9,23,2,21598,0)="MIXV\V#0!B96,=7$WZZH2+$CZP=""1]N>N,M$""Y!^F+4NT./V+.5#FD@Y$5!LF"
^XMB(3.9,23,2,21599,0)="""DATA"",396.18,231,3,924,0)"
^XMB(3.9,23,2,21600,0)="MJCJG=`""B.FT3("":\))TS&J:4N]HRKJP[[_-EZ1\^*$Q858MFFBT;^'B6A!7D"
^XMB(3.9,23,2,21601,0)="""DATA"",396.18,231,3,925,0)"
^XMB(3.9,23,2,21602,0)="M?7F%>8U!5BD.T]57XDJI*@#/;,)MR0,8YS,;"";>R9%OBJ^41S-#!=D((\_:O"
^XMB(3.9,23,2,21603,0)="""DATA"",396.18,231,3,926,0)"
^XMB(3.9,23,2,21604,0)="MA^=]LHTVX>8I#KFLV[1$\<N""Q2\+%K\,:/R""'$;;%K\L8/PRH&-ZW`BJH&,8"
^XMB(3.9,23,2,21605,0)="""DATA"",396.18,231,3,927,0)"
^XMB(3.9,23,2,21606,0)="MZL>F^K&EFC$03B#Q4%T05$\C\#F0:-#OJ1)92#!P0,&@WU/FL=S#%9?&2J->"
^XMB(3.9,23,2,21607,0)="""DATA"",396.18,231,3,928,0)"
^XMB(3.9,23,2,21608,0)="M%R2GJY#3`07X+DQ05R6H`PCPCCS`]R""BNJJQB0-JTQY(5%<Y-G$`DT:.)9U+"
^XMB(3.9,23,2,21609,0)="""DATA"",396.18,231,3,929,0)"
^XMB(3.9,23,2,21610,0)="ML16NW5*Y=EOIC#7/BC1,'6PGN'9T=X<DY\\%IBURZS;,K=LPMVY""W3KDT/!R"
^XMB(3.9,23,2,21611,0)="""DATA"",396.18,231,3,930,0)"
^XMB(3.9,23,2,21612,0)="MEP^[B[]_OBI7""YM:+#YAPQ:=&LK""H^RE_""]=]?BR3SZ5!YV5=8]DNS?Y'3[L"
^XMB(3.9,23,2,21613,0)="""DATA"",396.18,231,3,931,0)"
^XMB(3.9,23,2,21614,0)="MDOTVW,2'UW/E=G<I`W6Y$;7LRV[^U^`P+S'2X!-T)*6EH3AP:1B(CJH(TNRI"
^XMB(3.9,23,2,21615,0)="""DATA"",396.18,231,3,932,0)"
^XMB(3.9,23,2,21616,0)="M2P)E?$7[%#>'@+43=:')8U6H21>B&9*SN23""?'S.:DVSLL:\T#&33:<8\Y\4"
^XMB(3.9,23,2,21617,0)="""DATA"",396.18,231,3,933,0)"
^XMB(3.9,23,2,21618,0)="MC2JRH^V>+4B623\JCOXJK/TQ7!W(.0P-G4CT42ODOU$U=9V'V/E*C41A)7%A"
^XMB(3.9,23,2,21619,0)="""DATA"",396.18,231,3,934,0)"
^XMB(3.9,23,2,21620,0)="M'U^(Q1.'D*GHL70-7UM/IF:?)""T8H?1/LN(:IZMDD^0ELUIN0UX\+6P>R];J"
^XMB(3.9,23,2,21621,0)="""DATA"",396.18,231,3,935,0)"
^XMB(3.9,23,2,21622,0)="M;$4I,<^CRI7`M.6<I""U2U*RE'T=3/WK.2*<4_E2UJ/EU3VG/C-M5LDL/X<GM"
^XMB(3.9,23,2,21623,0)="""DATA"",396.18,231,3,936,0)"
^XMB(3.9,23,2,21624,0)="MIQ6!!ONH;,`]MJ'=$SF)M2P&;M07D&-E""%MK?*W5T+TVQ96.1T]C-U2&P98O"
^XMB(3.9,23,2,21625,0)="""DATA"",396.18,231,3,937,0)"
^XMB(3.9,23,2,21626,0)="MPSD_6:=@&<1QI=L!QI4;+I%ZB[`""%_HVN9ER,4NK""0OCJR6B-T5@/)^*A'&/"
^XMB(3.9,23,2,21627,0)="""DATA"",396.18,231,3,938,0)"
^XMB(3.9,23,2,21628,0)="MN\0V^SH$^?F<I'&T?SVM)4U7T[MI;)B`D5/%:,MX`W=O2R'?SFDSFZ@FC)@3"
^XMB(3.9,23,2,21629,0)="""DATA"",396.18,231,3,939,0)"
^XMB(3.9,23,2,21630,0)="MR@!IP6/V&8?=ZI7D`[6$;TPD_P8!)2FD""^SJM`Z*+!*J""5!J-""Y(B?9I9!];"
^XMB(3.9,23,2,21631,0)="""DATA"",396.18,231,3,940,0)"
^XMB(3.9,23,2,21632,0)="MY2`O1/M3#%E^*!2JW*R1U?]>SN;!=##QE_=L&;(!*T,>5S7`O:(&N(5\7H3<"
^XMB(3.9,23,2,21633,0)="""DATA"",396.18,231,3,941,0)"
^XMB(3.9,23,2,21634,0)="MQD0#HY)VL\[;TE*%OT!9_7I9BOVKN'C<TE`%4W;>.Y$?+UC@9I""S1!""#>6H="
^XMB(3.9,23,2,21635,0)="""DATA"",396.18,231,3,942,0)"
^XMB(3.9,23,2,21636,0)="M1XB-_SK;NY+MQ,CW9F2\_<K:25_74/HP0ZE.\LTM9CP8+N<!YH/FJKG[H(%="
^XMB(3.9,23,2,21637,0)="""DATA"",396.18,231,3,943,0)"
^XMB(3.9,23,2,21638,0)="MIY7T%./]3AJ&6&[&QYA<Y<UV>4_TM/`*9J6;$4`J$YJWJ6M/B]_\&1KYB^%\"
^XMB(3.9,23,2,21639,0)="""DATA"",396.18,231,3,944,0)"
^XMB(3.9,23,2,21640,0)="M,L_WK[09NWFRM5OVU^""NS?0M^W0&'5T&L^U(+0IS3N='S_""RG5K\WC(97_W3"
^XMB(3.9,23,2,21641,0)="""DATA"",396.18,231,3,945,0)"
^XMB(3.9,23,2,21642,0)="M^7)/TM-P/B,GE$L9<D]G2,^/DMTUQ&F4OJ/:\C(8+_'/FP"";V^S*&Z%RBQQV"
^XMB(3.9,23,2,21643,0)="""DATA"",396.18,231,3,946,0)"
^XMB(3.9,23,2,21644,0)="M+(3S$;Z6,:_E<`O7J*?&BLO""WB#<<E';U?3&W8Y.V'X3BPUR&HUO6Z<T/CG@"
^XMB(3.9,23,2,21645,0)="""DATA"",396.18,231,3,947,0)"
^XMB(3.9,23,2,21646,0)="MON26WD^(M7-7I![98>]$D@7Y>3U?^%YP+VE_VSK59YO:G:G>:]CB>LPW]""CC"
^XMB(3.9,23,2,21647,0)="""DATA"",396.18,231,3,948,0)"
^XMB(3.9,23,2,21648,0)="M+5RU^FB=[+'<9$KR=N'&5D%>4NP6'0?>OV^]V?"">Q."":P5_9_:LEZO;DQ#TM"
^XMB(3.9,23,2,21649,0)="""DATA"",396.18,231,3,949,0)"
^XMB(3.9,23,2,21650,0)="M.1'ST<Q,7/!^NJY![Z?+*?X`_L>.1;CEKN:9/""[@?.""Q$GSA'5K7S_C5UYYL"
^XMB(3.9,23,2,21651,0)="""DATA"",396.18,231,3,950,0)"
^XMB(3.9,23,2,21652,0)="MAY:EL6W-TMCY96ELR9-,;HIA70U8C1UY/0U8#79-'78-#5@-?B734HPA]8&6"
^XMB(3.9,23,2,21653,0)="""DATA"",396.18,231,3,951,0)"
^XMB(3.9,23,2,21654,0)="MU!?>=?F]9LS4!T/.A9'K=MI+B&R-@[*Z1OO*N+PV%E2X(ZG\%XHFK7NU8)N/"
^XMB(3.9,23,2,21655,0)="""DATA"",396.18,231,3,952,0)"
^XMB(3.9,23,2,21656,0)="MK@0VI@:V3!U@6P?8T0'NZ0#W=8!UM""'^0HJD)`=2D6.J]D8XH+T1H((<4[DU"
^XMB(3.9,23,2,21657,0)="""DATA"",396.18,231,3,953,0)"
^XMB(3.9,23,2,21658,0)="MP@%LC2`A059Q*S1!R9[@J\)]JC:F*?!RGT:1(A:=1>RJ'QL=L^6Y)7U>N465"
^XMB(3.9,23,2,21659,0)="""DATA"",396.18,231,3,954,0)"
^XMB(3.9,23,2,21660,0)="MGJ5/&2GZ[62D!S9S""H%""]A5;2ILF!]JW1RM38-M]B&W#=NXIFDVB=6&84EHW"
^XMB(3.9,23,2,21661,0)="""DATA"",396.18,231,3,955,0)"
^XMB(3.9,23,2,21662,0)="MI\?&GFMI\S$G(#1MD#\A@3$RV1$*1A^X7U_$.M8BC'>9B:J2&G'\EXK?TLFD"
^XMB(3.9,23,2,21663,0)="""DATA"",396.18,231,3,956,0)"
^XMB(3.9,23,2,21664,0)="M$*8""0J`B4""=J.59!'#I5OL@RX$[.='6\G&7`&DF<(:J]N*$TED+_;6Y4;D1U"
^XMB(3.9,23,2,21665,0)="""DATA"",396.18,231,3,957,0)"
^XMB(3.9,23,2,21666,0)="MLM<.495.JZ*#H>J7'+OB`QADNXC9G=*&<BLV+;;`X;F0O=B&>C.V0K,,#;FG"
^XMB(3.9,23,2,21667,0)="""DATA"",396.18,231,3,958,0)"
^XMB(3.9,23,2,21668,0)="M<]LLP-2Q<5LCD)M:-F[#8J4HYU3+Y^C()VM2+HF$J\'14@,P9;!<(!PX<Q`E"
^XMB(3.9,23,2,21669,0)="""DATA"",396.18,231,3,959,0)"
^XMB(3.9,23,2,21670,0)="MQFK%]I2*S0W8ABG4ME0AU*#2+$F$=*4`+!M(PL=3DP](I+5Z+9_Q4PSYI/))"
^XMB(3.9,23,2,21671,0)="""DATA"",396.18,231,3,960,0)"
^XMB(3.9,23,2,21672,0)="M@I?\NQF\A,H@85M:4P.J\WGJE7R9I/2:/R,R_ST3U#@4F#\'HK&0KR1,^U/E"
^XMB(3.9,23,2,21673,0)="""DATA"",396.18,231,3,961,0)"
^XMB(3.9,23,2,21674,0)="MX%K*$S7(ES!50S0THM9'8Q930;2-I$0@R0X*1[&#PE;MH.""^2P'9,B#?0F%I"
^XMB(3.9,23,2,21675,0)="""DATA"",396.18,231,3,962,0)"
^XMB(3.9,23,2,21676,0)="MH=/?0^$]/I+/E=^FQW""#1F&\>46#U2'^%!_B*!5\YZ+QZ1;U_@[A*>[""`]$,"
^XMB(3.9,23,2,21677,0)="""DATA"",396.18,231,3,963,0)"
^XMB(3.9,23,2,21678,0)="MZ7>4""X2C+Q?41H?LV\#5#'-C2A@#9O^_RR:0W>_?G8WB\&F7I'$**[(JOHG:"
^XMB(3.9,23,2,21679,0)="""DATA"",396.18,231,3,964,0)"
^XMB(3.9,23,2,21680,0)="M:WP3M96(]R7:K^(T(I5EY+JL[EIMCNN\^&R8[/(/K4-V4%#;+V'D\T;$-.>K"
^XMB(3.9,23,2,21681,0)="""DATA"",396.18,231,3,965,0)"
^XMB(3.9,23,2,21682,0)="MU?&E_>N+37&=_JGD!&:C_B+BZ`M?+,2<O?W3&?<=P=$7$2*VEFW:Q7=&_N!J"
^XMB(3.9,23,2,21683,0)="""DATA"",396.18,231,3,966,0)"
^XMB(3.9,23,2,21684,0)="M-E_XS)>DA4L7U(O9_T4%R^]>,/07'EE?(]?E.M9P<CO*E^#(RLUP/AOYS;6:"
^XMB(3.9,23,2,21685,0)="""DATA"",396.18,231,3,967,0)"
^XMB(3.9,23,2,21686,0)="MYMF1'>6""*_L-[^I,5&9NC6*M\95NT<L,!<KO\\CR#TN3$U7)4OQ-<[6G/,A1"
^XMB(3.9,23,2,21687,0)="""DATA"",396.18,231,3,968,0)"
^XMB(3.9,23,2,21688,0)="MN@B&*!%*8.ZT2;DD"")7DR;&26.4C?S&X]$D!U7<+Y$]O!BQK@PG""]_P[K'&/"
^XMB(3.9,23,2,21689,0)="""DATA"",396.18,231,3,969,0)"
^XMB(3.9,23,2,21690,0)="M^U""WJ:SXH/308-CN-M^2<YQ_73OP%K>3)5D;_C@/?D/L-]-E6%N8(<99%YXI"
^XMB(3.9,23,2,21691,0)="""DATA"",396.18,231,3,970,0)"
^XMB(3.9,23,2,21692,0)="M&""C6K_VKF3_VAX/94OAM<''%F=H4ZF(#ZF/FV5&VN8BD)9J'?XX&_N2>:I!F"
^XMB(3.9,23,2,21693,0)="""DATA"",396.18,231,3,971,0)"
^XMB(3.9,23,2,21694,0)="M%Y""Y%:;`4'B0;!]L1-DWW*_G@2<K4K+[6E;!O.P""&2D^!7\]O[FA2P74V+18"
^XMB(3.9,23,2,21695,0)="""DATA"",396.18,231,3,972,0)"
^XMB(3.9,23,2,21696,0)="M<3I:K)3>2\**TWD+*X9.'U_<S(.EK'4<XRU\Z+4.=MV!ISKZV'E3^YA:S""R#"
^XMB(3.9,23,2,21697,0)="""DATA"",396.18,231,3,973,0)"
^XMB(3.9,23,2,21698,0)="MP9TWD=N*8[Z%EYX6+V//&RDXZ;V%DZX6)Y<#'`?DG'193K18<;18&67U-')>"
^XMB(3.9,23,2,21699,0)="""DATA"",396.18,231,3,974,0)"
^XMB(3.9,23,2,21700,0)="MG+=HQ=:SE;D_\98*7NRW\&)I\8+?F4\5K%A:K&3GT[C5N<]*+Y]'/BK:U1^>"
^XMB(3.9,23,2,21701,0)="""DATA"",396.18,231,3,975,0)"
^XMB(3.9,23,2,21702,0)="MKE#(ROBI*-N'1-GA?#KU9DQ0[;<%57KDF3-48:1/D6Z6K1C\0%'U66L&G'RQ"
^XMB(3.9,23,2,21703,0)="""DATA"",396.18,231,3,976,0)"
^XMB(3.9,23,2,21704,0)="M&0]GV1D-2W&F+6%/M+#`G]$H/7JX`UDI>V)B/S]_8QH79]ZG<"",X9%A4#\!]"
^XMB(3.9,23,2,21705,0)="""DATA"",396.18,231,3,977,0)"
^XMB(3.9,23,2,21706,0)="M^;<GNFFZHKO4TLJ*2I?I(HHF`_KG2#O]EH.DBZ8QI$M6A2E+ST!NSB]!I^5<"
^XMB(3.9,23,2,21707,0)="""DATA"",396.18,231,3,978,0)"
^XMB(3.9,23,2,21708,0)="M&)S3`<(90#@3""&<!X6P@G`.$ZP+A>D`X3L^*<\&=?MO!X`)C$9W_Y4(ZLNDJ"
^XMB(3.9,23,2,21709,0)="""DATA"",396.18,231,3,979,0)"
^XMB(3.9,23,2,21710,0)="MC`C8D>%SI""X8I0M$Z73`[J8#16F`41I0E""88I0E%:8%16E""4-ABE#47I@%$Z"
^XMB(3.9,23,2,21711,0)="""DATA"",396.18,231,3,980,0)"
^XMB(3.9,23,2,21712,0)="M4)3=_VWOZ'K;R''O!]Q_$/+271C7SO=X@/.#D[BML4EMV$Z`O9?#-)FVQCFV"
^XMB(3.9,23,2,21713,0)="""DATA"",396.18,231,3,981,0)"
^XMB(3.9,23,2,21714,0)="MSQ_7[?WZDV8\XY%$2I239G=[""1#`'S))41Q2(BF2##*A@J3;K)0*DBSJL2[J"
^XMB(3.9,23,2,21715,0)="""DATA"",396.18,231,3,982,0)"
^XMB(3.9,23,2,21716,0)="M:K[(H7PF;``U[[AF(*?SS\OYI_E=OMRQRB^G5*KA"",Y[9T(SG>%[`2C^$P)5"
^XMB(3.9,23,2,21717,0)="""DATA"",396.18,231,3,983,0)"
^XMB(3.9,23,2,21718,0)="M^=7VFC!5?(M%)*OD""9CS%P24S,#((""_8?L>^8=(U:0J5]3E26J_Q85[ZF&,["
^XMB(3.9,23,2,21719,0)="""DATA"",396.18,231,3,984,0)"
^XMB(3.9,23,2,21720,0)="M1VA,V0(^"">Q#0M.0JO8I)D?PIE(K]_1NM=U_;+GP_SG?3O<?'^8[#LCBWW>/"
^XMB(3.9,23,2,21721,0)="""DATA"",396.18,231,3,985,0)"
^XMB(3.9,23,2,21722,0)="M/8P'3.DPJX48`G-!JH@08J@Y0BK$[(?&!`6/D)$5T""HQ^Z$Y3\$CY""EX4,<)"
^XMB(3.9,23,2,21723,0)="""DATA"",396.18,231,3,986,0)"
^XMB(3.9,23,2,21724,0)="M.4CLHW>4Y5""HCQ7N%(@<0O>1C^YP4(Q0?U,@PJ=M[C-$K,/816C<Y/8JWXC["
^XMB(3.9,23,2,21725,0)="""DATA"",396.18,231,3,987,0)"
^XMB(3.9,23,2,21726,0)="MS9M=L?G&^H?N=[H,'XMU5K.-X8IL%<L2Y5FUU)`7A<\8*SO4,]:_NCJ<D&_S"
^XMB(3.9,23,2,21727,0)="""DATA"",396.18,231,3,988,0)"
^XMB(3.9,23,2,21728,0)="M[=U^D6_8Y7Q;Y%M^*BZ'&.'H[55#W]RY/HC)G>M#3P<EZY?`I%]T3.A*L1MQ"
^XMB(3.9,23,2,21729,0)="""DATA"",396.18,231,3,989,0)"
^XMB(3.9,23,2,21730,0)="MDWT+[[G]T+;G'O`O8NA0J,1]C?<OJG4.#!OW""@W>4(8CV[2186D$E$DBA]``"
^XMB(3.9,23,2,21731,0)="""DATA"",396.18,231,3,990,0)"
^XMB(3.9,23,2,21732,0)="M/X2JU.EG'H0XD]*%M,$9?S9FF]7ZR_Q.>&V6GXNM&O^,?&+CHL@G=""XB0""N9"
^XMB(3.9,23,2,21733,0)="""DATA"",396.18,231,3,991,0)"
^XMB(3.9,23,2,21734,0)="MDUD.77%`.73%`1;5A9C1=.2VS;^5FX$3W21]8%2;MW$0@22\8!(&R""Z&,$RM"
^XMB(3.9,23,2,21735,0)="""DATA"",396.18,231,3,992,0)"
^XMB(3.9,23,2,21736,0)="M+0$95LMB/_$:MM3+>,_';=4\Q""0%_4AE`F]FVW?:4WQ-,!H2""""VLDBYA#`T7"
^XMB(3.9,23,2,21737,0)="""DATA"",396.18,231,3,993,0)"
^XMB(3.9,23,2,21738,0)="MI""&/6$S?9D""3+)B;2A%RG==7Q:<=VZ_70$75S'*B^0Y,AY-EGXSG[ES%&3>9"
^XMB(3.9,23,2,21739,0)="""DATA"",396.18,231,3,994,0)"
^XMB(3.9,23,2,21740,0)="M?_[RPKE3.%>*W&+UU<(X^X,.LC:S,\7U,4?`D#""YB]3_+V?@TX?>WK,Q0%7"""
^XMB(3.9,23,2,21741,0)="""DATA"",396.18,231,3,995,0)"
^XMB(3.9,23,2,21742,0)="M4P5#R0#R(($]_J+UYA#LRGXNF[;.R\)L(O'LL.]7:CE9%_%,.GF9\9T-?MMM"
^XMB(3.9,23,2,21743,0)="""DATA"",396.18,231,3,996,0)"
^XMB(3.9,23,2,21744,0)="M""KY=_\;RTJM3W%N*E]7XDI/PL;,+48>R*>-98R<BC4]$.BL>UJ(RUGY3.**N"
^XMB(3.9,23,2,21745,0)="""DATA"",396.18,231,3,997,0)"
^XMB(3.9,23,2,21746,0)="MP=F2W`3,*L@H9[H=AJ-PU9RWZ?[A(><G4?[YVV%9KF(J\M8NA]-!OYT$HDB9"
^XMB(3.9,23,2,21747,0)="""DATA"",396.18,231,3,998,0)"
^XMB(3.9,23,2,21748,0)="M$B_5@+7>5`6#)H/KX>Q7UB^CL(-+#7`M3VZ`R[(Y9?FA&H,..#D%\&QP/18U"
^XMB(3.9,23,2,21749,0)="""DATA"",396.18,231,3,999,0)"
^XMB(3.9,23,2,21750,0)="M#&Y$""14C^!@$+V>*^99&RB@5D]'X_?!""A(T_O-/SUB(]!P8HL2<5?@NP5LD8"
^XMB(3.9,23,2,21751,0)="""DATA"",396.18,231,3,1000,0)"
^XMB(3.9,23,2,21752,0)="M""95K`""-$@FE&KV0WAB>R!*P.@K7?#EWXTSK$DZFY'/:O!Z(`3%WU@OTDR@!="
^XMB(3.9,23,2,21753,0)="""DATA"",396.18,231,3,1001,0)"
^XMB(3.9,23,2,21754,0)="MO_ZY(4G@!F7$S*`@/E5F?AT/&G*P^ENQ""V-4""T8F12#L7['QS16@26IH1-Q="
^XMB(3.9,23,2,21755,0)="""DATA"",396.18,231,3,1002,0)"
^XMB(3.9,23,2,21756,0)="MUY493:;]*U&8B<]QBM'0=:(A<Z1A/)IRV1B*HFW#<P,G,@H5919RB!5G09=@"
^XMB(3.9,23,2,21757,0)="""DATA"",396.18,231,3,1003,0)"
^XMB(3.9,23,2,21758,0)="M,!U>WO2ORIS,Z<WDW6`BUQAL0&+8E<L88=R4CI0P27DJ3,U5""4/=D\>4NR4,"
^XMB(3.9,23,2,21759,0)="""DATA"",396.18,231,3,1004,0)"
^XMB(3.9,23,2,21760,0)="MW@R%J#O1O/,QG[*1;87Z;?QR0C_I1$3WJ=B]GHZ>,^.O&)J99+R@97&\&MV_"
^XMB(3.9,23,2,21761,0)="""DATA"",396.18,231,3,1005,0)"
^XMB(3.9,23,2,21762,0)="M9H^LDZ-83[0*B0Y->S`-;%H-A-.ZILA(&-/#:2&IFT[0-14XB""CM=$):.YTV"
^XMB(3.9,23,2,21763,0)="""DATA"",396.18,231,3,1006,0)"
^XMB(3.9,23,2,21764,0)="M)D`""(Z2?3CN<%(663*]N1G&R!]W85IP@U(^D!>[;[V:DI""$9+WPE,NQ2AMB\"
^XMB(3.9,23,2,21765,0)="""DATA"",396.18,231,3,1007,0)"
^XMB(3.9,23,2,21766,0)="MK$$W,3_O480][Q*_T59-89<F7*:^DQ&E+578)0J7L?%D%!&$""Y]L1IIL%IHF"
^XMB(3.9,23,2,21767,0)="""DATA"",396.18,231,3,1008,0)"
^XMB(3.9,23,2,21768,0)="M2^D\&6:TR6:A<;(Q8;(Q>;(7Q6*Q7\QW<T"">3:'XR#MIQC1TT+0)\?C((T]["
^XMB(3.9,23,2,21769,0)="""DATA"",396.18,231,3,1009,0)"
^XMB(3.9,23,2,21770,0)="M</=?T:6G*JV_G6_9?;%YR'<P8:;N:U%Z$A].Q`\QAE`8*4K)C+EI:I*WZ0BS"
^XMB(3.9,23,2,21771,0)="""DATA"",396.18,231,3,1010,0)"
^XMB(3.9,23,2,21772,0)="M)H6)-C\<3)-RI%/9E?<$2;O7+G@%/_/0^__*(^5)F3MAIO""PBWY]^+V/#CA0"
^XMB(3.9,23,2,21773,0)="""DATA"",396.18,231,3,1011,0)"
^XMB(3.9,23,2,21774,0)="MBGVM$:P.E#<(<>BR0:""F3N!=I`\Y""&T2N*F^,V4@A!XY`R&.74$A,X(R73+?"
^XMB(3.9,23,2,21775,0)="""DATA"",396.18,231,3,1012,0)"
^XMB(3.9,23,2,21776,0)="M6,NA7-?D=7&P@PQV<@=9XE(](?/-U1,`I-""&7<:*J_'$O/5$.JO""R\KW<>:U"
^XMB(3.9,23,2,21777,0)="""DATA"",396.18,231,3,1013,0)"
^XMB(3.9,23,2,21778,0)="M2.C+FKB""<EG6P%ZB(S""$)DK&'4\NC+2LEK(O`%)($\M8\64-R,W?J_0F-GW("
^XMB(3.9,23,2,21779,0)="""DATA"",396.18,231,3,1014,0)"
^XMB(3.9,23,2,21780,0)="M%XM#TI/Q?!%U+2N3TA<Y=07EGH#XH5BM%[F<OZ50$5FHZ)(GE"";FS""H=E,N$"
^XMB(3.9,23,2,21781,0)="""DATA"",396.18,231,3,1015,0)"
^XMB(3.9,23,2,21782,0)="M;O/-_&[%C\BWQ7RYE:;3*GX;6FB(M)RKG32=%J@DM&5W1:;LKHB:W047:/!M"
^XMB(3.9,23,2,21783,0)="""DATA"",396.18,231,3,1016,0)"
^XMB(3.9,23,2,21784,0)="MW;^KC%DHI1NX.I0JR8<!Y/LQ%HSP`U*>90C<*D$1R\6,#;P(S;W9#\G#GBG#"
^XMB(3.9,23,2,21785,0)="""DATA"",396.18,231,3,1017,0)"
^XMB(3.9,23,2,21786,0)="M4Z_'!V\@?*T.F(4O(6F=H((M,'5:CW:4//M((,%<EXVNO`1@\IV'GM!A;Y7O"
^XMB(3.9,23,2,21787,0)="""DATA"",396.18,231,3,1018,0)"
^XMB(3.9,23,2,21788,0)="MZ?*%C/2I3B<!E%RD2,#%_4RD.?8<IBA%P4TS--2(25,LK'Y[""P;6Y3M'B8DY"
^XMB(3.9,23,2,21789,0)="""DATA"",396.18,231,3,1019,0)"
^XMB(3.9,23,2,21790,0)="M$@0]4,NV\_O""&%67<""61I9&L%(`^ONV`N.LNMPX]PJ""UHE+0M%\$6V8:L?K!"
^XMB(3.9,23,2,21791,0)="""DATA"",396.18,231,3,1020,0)"
^XMB(3.9,23,2,21792,0)="MX[$>3J/K^><'S@+G'IF^'SZ>AGQ9=<8R(S[^%NY^A47R56F5FG>UPOG3X:52"
^XMB(3.9,23,2,21793,0)="""DATA"",396.18,231,3,1021,0)"
^XMB(3.9,23,2,21794,0)="MQ`$59K5U%P!.>MMJHH5@4$7X!`Q5AX/)0.EQ9)%4""1'414U3<ZUNLC2JAC-V"
^XMB(3.9,23,2,21795,0)="""DATA"",396.18,231,3,1022,0)"
^XMB(3.9,23,2,21796,0)="MW9].A[<6TE1$<(0-IM%_/(WGH_[D\FKXBXU*GT*EXY)-9_VIB+H.WXG;\$VW"
^XMB(3.9,23,2,21797,0)="""DATA"",396.18,231,3,1023,0)"
^XMB(3.9,23,2,21798,0)="MD<'%/TR4!-:E%!'+0.^SYB*P92""41%X;F<O:A8]<.UM^`X[*A<KH,51>#L:S"
^XMB(3.9,23,2,21799,0)="""DATA"",396.18,231,3,1024,0)"
^XMB(3.9,23,2,21800,0)="M]TBK#PLB$XTEQ[LG+6\[$V/0OWBOY#^T(5LI2$ZCH.Z(<CN<#L^ORO)?X_[5"
^XMB(3.9,23,2,21801,0)="""DATA"",396.18,231,3,1025,0)"
^XMB(3.9,23,2,21802,0)="MN""]>W_8GPXO1E+\8##_(U2%J=+8'KPSX!>WH>QN]''^7@N])IA]!$9MQ)H?B"
^XMB(3.9,23,2,21803,0)="""DATA"",396.18,231,3,1026,0)"
^XMB(3.9,23,2,21804,0)="MT:A\TFZ""LC,5$4CH>\K$H94)MD/Y;CM;;'#@,CAT&1S18L!!`GZ:@I]V32PZ"
^XMB(3.9,23,2,21805,0)="""DATA"",396.18,231,3,1027,0)"
^XMB(3.9,23,2,21806,0)="M[J*M[#8Q[W%@T%,8=@JV'J75WR:>Z;<A=NW5=J.._TWR;\M\?V^K>MF-+3X4"
^XMB(3.9,23,2,21807,0)="""DATA"",396.18,231,3,1028,0)"
^XMB(3.9,23,2,21808,0)="MNH^KF[B""PAR9I?8;3<P-52O4IE'-=218/E+/<-E(E94$=658"".E1Z#!V-=9)"
^XMB(3.9,23,2,21809,0)="""DATA"",396.18,231,3,1029,0)"
^XMB(3.9,23,2,21810,0)="M<1B>>J:;3:99:H-'FX6II]1QG)T3<L:YG8-_7NY9G2V)+1VBR2PS)D2E<LZ/"
^XMB(3.9,23,2,21811,0)="""DATA"",396.18,231,3,1030,0)"
^XMB(3.9,23,2,21812,0)="MGIV3J`YXWY82%IARA`XC4GLB5TI(&DMC<S#`3]SNCP*K#,4@?,NEC2""(;0-2"
^XMB(3.9,23,2,21813,0)="""DATA"",396.18,231,3,1031,0)"
^XMB(3.9,23,2,21814,0)="MZUV+U'Y/*(V-`1@_P9U*M;;DZE[(CNWQ0#P-P$-4>S:;E/^WJ\5B]97E#^M]"
^XMB(3.9,23,2,21815,0)="""DATA"",396.18,231,3,1032,0)"
^XMB(3.9,23,2,21816,0)="MY<I@?.1ZD>^*U_I]^!@JM]'.AO-;T1U,I9II1._BQV`5#`-RO%)&[#,M!BXX"
^XMB(3.9,23,2,21817,0)="""DATA"",396.18,231,3,1033,0)"
^XMB(3.9,23,2,21818,0)="MW2,P6HHR4'_DNCH_)M-;1)W&]+_^Y=UH-JJHV^XF^V6U:>KU>FS`97;U3?CC"
^XMB(3.9,23,2,21819,0)="""DATA"",396.18,231,3,1034,0)"
^XMB(3.9,23,2,21820,0)="M6`_]DX-#@<?_?'/H+/""""(+`$?26009!9MEXP2+7PSILWK2FU#4WU*0>NJ(6J"
^XMB(3.9,23,2,21821,0)="""DATA"",396.18,231,3,1035,0)"
^XMB(3.9,23,2,21822,0)="M_8S`'VG""]Y8T\K@%(XY'!)9/S^<*M##)K``7>KA<-X""\``=4#>*04M^.#5+I"
^XMB(3.9,23,2,21823,0)="""DATA"",396.18,231,3,1036,0)"
^XMB(3.9,23,2,21824,0)="M.MD)/JC4ZN>B=`H?V#J""[`S#`G180WN7BM(S:P';'('E]`S/=L.2Q*0!JKT="
^XMB(3.9,23,2,21825,0)="""DATA"",396.18,231,3,1037,0)"
^XMB(3.9,23,2,21826,0)="M,%OK2),#O,'=[5JT3SGID%0=J1IJ9DAH0`<.)\TB,W'PN,0""(GT@=&?P*?C6"
^XMB(3.9,23,2,21827,0)="""DATA"",396.18,231,3,1038,0)"
^XMB(3.9,23,2,21828,0)="M2M@J,:6T00TYC-EDSL2S1KGUJ+H-<4"":=%;56<JLLC""FA1Y9V$+/JL_P-995"
^XMB(3.9,23,2,21829,0)="""DATA"",396.18,231,3,1039,0)"
^XMB(3.9,23,2,21830,0)="MC&T@+@RJ<D2%(:4_1""E=JY#TK'%R+9T""JRA5A1JA>72T$$\56&:V!Y1G,*.S"
^XMB(3.9,23,2,21831,0)="""DATA"",396.18,231,3,1040,0)"
^XMB(3.9,23,2,21832,0)="M/7O""97-_SI#:)\^P*\&4W,OS>L+""MTU$X6+K_JA[A9,-U0^WW\#4YBF*[F5%"
^XMB(3.9,23,2,21833,0)="""DATA"",396.18,231,3,1041,0)"
^XMB(3.9,23,2,21834,0)="M3]_#T(S<$QNO[VQVI$*!G.^+U*>@.753@9M9M;RILR'#[%;OQ6R]F*T7L_5B"
^XMB(3.9,23,2,21835,0)="""DATA"",396.18,231,3,1042,0)"
^XMB(3.9,23,2,21836,0)="MME[,UH]CMI[-'BDQ;N@'0,U`':3W?$=)Q7&""4$P@""/-%9FAH'2B$]7L>JI7%"
^XMB(3.9,23,2,21837,0)="""DATA"",396.18,231,3,1043,0)"
^XMB(3.9,23,2,21838,0)="MFQ2[^<9TDE6#$^B.P'-TKWMD][K):8RKMQWBC4D,`290K6%+'CJYG__DWM9:"
^XMB(3.9,23,2,21839,0)="""DATA"",396.18,231,3,1044,0)"
^XMB(3.9,23,2,21840,0)="M3GI$,;&[*CVJJ]*H?+^S3]YH6G^8;8TBO<YKC;K+ZH.'LY9Q$9L7H7D)&3U["
^XMB(3.9,23,2,21841,0)="""DATA"",396.18,231,3,1045,0)"
^XMB(3.9,23,2,21842,0)="MR.A4?:B<R)W!O#P7+\_%'_&Y@,7;*"";R#M$F4<>J]T:B'39K\@[%2BJ1@*>2"
^XMB(3.9,23,2,21843,0)="""DATA"",396.18,231,3,1046,0)"
^XMB(3.9,23,2,21844,0)="M-@?J.'>N^<N[?,%^6G_YMBU?K3<KCNSA9XCBP(L(+(L?S;+'4(7R,:;S,7X$"
^XMB(3.9,23,2,21845,0)="""DATA"",396.18,231,3,1047,0)"
^XMB(3.9,23,2,21846,0)="M'[??[K[,\]UF?F<AFG)42)Z0E2<1AG(SH7,S`1YS(EN?C\#G$:IG50&U,KU9"
^XMB(3.9,23,2,21847,0)="""DATA"",396.18,231,3,1048,0)"
^XMB(3.9,23,2,21848,0)="M%M:X<TC>+X3DXW<647*V/-`'H@.C*&L#PA83>E0>6(^B(2T_]/>QR1DH6EL#"
^XMB(3.9,23,2,21849,0)="""DATA"",396.18,231,3,1049,0)"
^XMB(3.9,23,2,21850,0)="MRRRB%3T-.Q5'TE.GA!Y;X2BMN1IRAH>U*N=V/QKSS?2_]\5V5R7GLC=OF/AX"
^XMB(3.9,23,2,21851,0)="""DATA"",396.18,231,3,1050,0)"
^XMB(3.9,23,2,21852,0)="MS3;-QW=E;Z/[ZAH>`?CAH6#`7UUNM\DL'R]$I7_VL6!;4:-^MV+SY=UB?U^P"
^XMB(3.9,23,2,21853,0)="""DATA"",396.18,231,3,1051,0)"
^XMB(3.9,23,2,21854,0)="MG-7*>[2>+^>KY>NS3GTQ\?CB;/:E8*^N\Z6`-CLDI6]?L?UNOA#%_3^M]LM["
^XMB(3.9,23,2,21855,0)="""DATA"",396.18,231,3,1052,0)"
^XMB(3.9,23,2,21856,0)="MQO\/10A>C=8B?YV/^%ARGN6[\O./*_[NH:Z1O[W;%,62W>5+0=E^RYG`*<OO"
^XMB(3.9,23,2,21857,0)="""DATA"",396.18,231,3,1053,0)"
^XMB(3.9,23,2,21858,0)="M[W6J6IGP]?0*^<HDQ.F>C8GBYR4<)M:TNB0%=$%CTYOSR>AF5EX3U<M67?7/"
^XMB(3.9,23,2,21859,0)="""DATA"",396.18,231,3,1054,0)"
^XMB(3.9,23,2,21860,0)="M!U?'?G%P%9N+Q6I;-G,3QX3JHDFGOGV05M<\Z_>A7[T_^F7%;^M&Y*VJ`?U%"
^XMB(3.9,23,2,21861,0)="""DATA"",396.18,231,3,1055,0)"
^XMB(3.9,23,2,21862,0)="ML=FU=`@_L.TW2X""DV$)32<61""',;[XZM33&`H'S10?M-=O1^VS4SND_,B\#&"
^XMB(3.9,23,2,21863,0)="""DATA"",396.18,231,3,1056,0)"
^XMB(3.9,23,2,21864,0)="M""V.EX`Y:>K>CEZ@V\4&I5]W1BU1W],K4C<""$3\R4R(TIRC7?CNUN;\?E:JC."
^XMB(3.9,23,2,21865,0)="""DATA"",396.18,231,3,1057,0)"
^XMB(3.9,23,2,21866,0)="M*N,=W([UXNTCN/3FS=^:/_$U_^ISV3/Q8L5UY_$[B:/-A0B.]?""ZYU<V0\QQ"
^XMB(3.9,23,2,21867,0)="""DATA"",396.18,231,3,1058,0)"
^XMB(3.9,23,2,21868,0)="M\-M\-_J%ZR9?VET(S36LE+)07%[Y`Z*=T4Q!8UZ^YMNCB6E,R_7@DF,C@Y2@"
^XMB(3.9,23,2,21869,0)="""DATA"",396.18,231,3,1059,0)"
^XMB(3.9,23,2,21870,0)="M/10;;J6X_:B-##8#7U/3'#,\DF%_=LP5-WLX""!G:Z%_""Q!2_""45/I,ZC4?=A"
^XMB(3.9,23,2,21871,0)="""DATA"",396.18,231,3,1060,0)"
^XMB(3.9,23,2,21872,0)="M--,IE+JY'$V];MZ$A>,6\7*>?UZN1$6;7?[QM=+NI?6R-NC<9E;V]CN99JLY"
^XMB(3.9,23,2,21873,0)="""DATA"",396.18,231,3,1061,0)"
^XMB(3.9,23,2,21874,0)="M%B-V7SB]9;&_>;%E.<=6UI3C7,X?CN;Z:9>K,MK,92<F/R*F)\254(54QB%^"
^XMB(3.9,23,2,21875,0)="""DATA"",396.18,231,3,1062,0)"
^XMB(3.9,23,2,21876,0)="M+=BR^`]G>;X56\U/JTW%Q-&ZH;[:1QX4WP&=5]+5__5\P""[Z'X1(78[8[/UP"
^XMB(3.9,23,2,21877,0)="""DATA"",396.18,231,3,1063,0)"
^XMB(3.9,23,2,21878,0)="MRD8?V-_Y9^/)T/?B2C-(""K-4:DHW9D6G*TJP?3N@&@]5<V=:8;TC.EOW9TCM"
^XMB(3.9,23,2,21879,0)="""DATA"",396.18,231,3,1064,0)"
^XMB(3.9,23,2,21880,0)="M&EM""J^TFZ;@#9]S!D^&.G'%'C\`M26=[[*!^)/X'4$L#!!0``@`(`'Q5'S5F"
^XMB(3.9,23,2,21881,0)="""DATA"",396.18,231,3,1065,0)"
^XMB(3.9,23,2,21882,0)="M',,&5@P``$I""```3````059?36ES8U\Q,3,N<&YL+G)E<+4;::_;N/%[@/P'"
^XMB(3.9,23,2,21883,0)="""DATA"",396.18,231,3,1066,0)"
^XMB(3.9,23,2,21884,0)="M`0]%-T4>8IVV@S2%+-$V$4G4ZO""+4RR*7>RB""-#L6[1;H#^_,]1)F92'KZ@_"
^XMB(3.9,23,2,21885,0)="""DATA"",396.18,231,3,1067,0)"
^XMB(3.9,23,2,21886,0)="M6==<G'O(1.0E*^JXX:)PXB)U\`K_L\]QS@MY__6KN&I8Q5G]UKDP7M3RQ9S7"
^XMB(3.9,23,2,21887,0)="""DATA"",396.18,231,3,1068,0)"
^XMB(3.9,23,2,21888,0)="M""<NRN&""BK5^_^C/A]_K5AP^B;<JV$<?CQX_.NW=.*<JV=(ZBRIV_QI>_E3_^"
^XMB(3.9,23,2,21889,0)="""DATA"",396.18,231,3,1069,0)"
^XMB(3.9,23,2,21890,0)="M^LL_O!^6+W[XP(N4%?W5PP.\F?_R[3G<X,]]>.AN)>537OWX\]?GTS^?__U;"
^XMB(3.9,23,2,21891,0)="""DATA"",396.18,231,3,1070,0)"
^XMB(3.9,23,2,21892,0)="M]]!?>^C!P]>O*G;A[,D11R=G*4_BS*E8(JITC2D3@=Y`'OOYZ^_A@$.]@R3]"
^XMB(3.9,23,2,21893,0)="""DATA"",396.18,231,3,1071,0)"
^XMB(3.9,23,2,21894,0)="MZ7_[V:'_\$&Y\_$C_7/_YG/?YO/_-_,%8+Q+C6GED\<CSYCS%-?OG8Y)[9L$"
^XMB(3.9,23,2,21895,0)="""DATA"",396.18,231,3,1072,0)"
^XMB(3.9,23,2,21896,0)="M?DV*M]`GYXE5;`V73V%'5?Q$Y#D\11;PR^[=0'ZGOJL!#>;'P)""EW8$99^ZM"
^XMB(3.9,23,2,21897,0)="""DATA"",396.18,231,3,1073,0)"
^XMB(3.9,23,2,21898,0)="MX74862[\S</#?=+Z%WOD\DK%6]P8\^M7@Y3.O&Y$=;VQ.BU-4GQQRL6I$FWI"
^XMB(3.9,23,2,21899,0)="""DATA"",396.18,231,3,1074,0)"
^XMB(3.9,23,2,21900,0)="M$HB[^<+AM=.<84F<>,""-3N`LZI(W<<:_=$Y15$[=5B=67?\R7[H)DEZR2\<F"
^XMB(3.9,23,2,21901,0)="""DATA"",396.18,231,3,1075,0)"
^XMB(3.9,23,2,21902,0)="M!6QT;($B0M3.NLWSN*,HSK(E59T+[NE2UCX:UUY""NM5>C3`B:_%%1O%=XCII"
^XMB(3.9,23,2,21903,0)="""DATA"",396.18,231,3,1076,0)"
^XMB(3.9,23,2,21904,0)="ML[ARFBIN\U@OLX@NLX`F,P]EUEQ+]M;)1#*%LS1NV'?U&PUE9JEY-*F%UE(+"
^XMB(3.9,23,2,21905,0)="""DATA"",396.18,231,3,1077,0)"
^XMB(3.9,23,2,21906,0)="M[TL-HFF9Q76NEUM(EYMW7VX+/4:3J'G#M/2\U^N^N^*Q3'C008#313',UJ3-"
^XMB(3.9,23,2,21907,0)="""DATA"",396.18,231,3,1078,0)"
^XMB(3.9,23,2,21908,0)="MP=!R4/!3$1>-P=0V%'12\=']0@J3-$[*XU,A:I""[H@.(;\5P?`HF<%S-#A""A"
^XMB(3.9,23,2,21909,0)="""DATA"",396.18,231,3,1079,0)"
^XMB(3.9,23,2,21910,0)="MDMU""GS`/PI/O4UD8%+H>]5ART%0L;M#E.]_Q(LG:E!>GP1&\6=%I*C_N)+B>"
^XMB(3.9,23,2,21911,0)="""DATA"",396.18,231,3,1080,0)"
^XMB(3.9,23,2,21912,0)="M*UC^!FAH>*\+#4\F*N:LN50<^YG,)/2)*5!BC6+,L>S).A`@&E8G%2\[3WYT"
^XMB(3.9,23,2,21913,0)="""DATA"",396.18,231,3,1081,0)"
^XMB(3.9,23,2,21914,0)="MDK:J$$U]S<M&Y#6$Y@P(29U&S(A`@5>LYFD;9_6*D@0D/[&W]A-[HY\`RVZK"
^XMB(3.9,23,2,21915,0)="""DATA"",396.18,231,3,1082,0)"
^XMB(3.9,23,2,21916,0)="M:YV_=;J47-1)QJI.NP\9&&\50VR0,JQ$?A!Q<>*\49[J36MO3G,4H8;1/+R'"
^XMB(3.9,23,2,21917,0)="""DATA"",396.18,231,3,1083,0)"
^XMB(3.9,23,2,21918,0)="M$4D""[M8^/F_-,N@XO[`""""@_G""`]`40P.8TMWF#MKA[F3#C.5:HPZ>Q#IU>`G"
^XMB(3.9,23,2,21919,0)="""DATA"",396.18,231,3,1084,0)"
^XMB(3.9,23,2,21920,0)="M=P3Q)KA@!_$9U7:(82.XX9D93J0X#_]6]P7*<H(\*?5.<10^@=0,A`[42`'T"
^XMB(3.9,23,2,21921,0)="""DATA"",396.18,231,3,1085,0)"
^XMB(3.9,23,2,21922,0)="MEO1>8R3#:V:(NSG1;F`BND<""@7R&1D:#D6Y7(QI3&F;(<]4U\P)KI<5/C`&^"
^XMB(3.9,23,2,21923,0)="""DATA"",396.18,231,3,1086,0)"
^XMB(3.9,23,2,21924,0)="MXHFH65]`@X66HFX>RW/&#AP]:GTM4C!9IE=D+R#:9^3.[3-R2?:)VF++JF]D"
^XMB(3.9,23,2,21925,0)="""DATA"",396.18,231,3,1087,0)"
^XMB(3.9,23,2,21926,0)="M%0*1]#[@6;,3-UBF3LU,RT5(FWM-<S'#BL&/0]`\'ED""GGU%+]V0J)A&8S*B"
^XMB(3.9,23,2,21927,0)="""DATA"",396.18,231,3,1088,0)"
^XMB(3.9,23,2,21928,0)="M4G73PJ3<:&933MI6&-YC)SG'%<1D\'LR_,9-$R>?UEB+B*R%]VS.@@B5Z9#B"
^XMB(3.9,23,2,21929,0)="""DATA"",396.18,231,3,1089,0)"
^XMB(3.9,23,2,21930,0)="MJP:_)I/""8\6^;UF1=%Y>0J^7#A!QT*&B,0#Y\<""9"":AK`U169^P""8FA6*?5L"
^XMB(3.9,23,2,21931,0)="""DATA"",396.18,231,3,1090,0)"
^XMB(3.9,23,2,21932,0)="M@***0<I10FG'E&3D!JR-,F$0+0$LP^SM1/'5&#%IBF,TBG6$""R7Q:0[*OL#W"
^XMB(3.9,23,2,21933,0)="""DATA"",396.18,231,3,1091,0)"
^XMB(3.9,23,2,21934,0)="MW)4DZ@0$0R(E4(U9RDQEJN?2G=2&[J10<FT-N>54JL[4:&5M?.+:>(%%]%<7"
^XMB(3.9,23,2,21935,0)="""DATA"",396.18,231,3,1092,0)"
^XMB(3.9,23,2,21936,0)="MA!1H!GJ""D9'164CQ$OQ30&4EO.>?S*R$%DG7;F2%X""]LLKF]P;$Y3[PY`P0H"
^XMB(3.9,23,2,21937,0)="""DATA"",396.18,231,3,1093,0)"
^XMB(3.9,23,2,21938,0)="M@*IK<6*`F1<7D5V8M'J-Z$:(%.RJ'J/+2@6LS'5$WR.3B:LDX;/!!FS<V';)"
^XMB(3.9,23,2,21939,0)="""DATA"",396.18,231,3,1094,0)"
^XMB(3.9,23,2,21940,0)="M[,2<091;6@%A7T.YYB*JBJ]%W*9_K)WR#$4$R+MO\ZVF8.Z>[`SV9%^`1&+9"
^XMB(3.9,23,2,21941,0)="""DATA"",396.18,231,3,1095,0)"
^XMB(3.9,23,2,21942,0)="MX)10U9""2ECW!<`;AAK3P%UJ`C(AQ.K)P(YMYRH,@[=.=#363V]Y-=T@$+/*["
^XMB(3.9,23,2,21943,0)="""DATA"",396.18,231,3,1096,0)"
^XMB(3.9,23,2,21944,0)="MK06W<O0@BI1W?=SF'#<8,A.._=V&T=RG1^4W6HG2/4H,U$G<ULSL2GU3G2\?"
^XMB(3.9,23,2,21945,0)="""DATA"",396.18,231,3,1097,0)"
^XMB(3.9,23,2,21946,0)="M[JFC`=3VA;1E_P4I@)QG[/FDO(:\FKW7330DG!5J`B(QP40+/Q7\R).X:$8O"
^XMB(3.9,23,2,21947,0)="""DATA"",396.18,231,3,1098,0)"
^XMB(3.9,23,2,21948,0)="M\1*R^I`V'VXL!E7E^5K+48<R7'WAI%1F'>:FA:EQ/XWDL&.W5ZY\Y2I0KD+E"
^XMB(3.9,23,2,21949,0)="""DATA"",396.18,231,3,1099,0)"
^XMB(3.9,23,2,21950,0)="M*E*NMG*.>L'YA)1F_?K5X_2CM1T1=\/RDH&[:J<Q6?<,WCQJ5WPDM&RS6OT("
^XMB(3.9,23,2,21951,0)="""DATA"",396.18,231,3,1100,0)"
^XMB(3.9,23,2,21952,0)="MP?_TVS?S9V&?<G/`*-<<K$^!$!K4;.3YD`F1RGRW7I*,C:=WLVNTRF_?SG\W"
^XMB(3.9,23,2,21953,0)="""DATA"",396.18,231,3,1101,0)"
^XMB(3.9,23,2,21954,0)="M`\2E.#-^.JL]U?T8_M5U]->(P^5YNH6%;J04;8&C[?M#(6\$@NX0HKB^MQ5Y"
^XMB(3.9,23,2,21955,0)="""DATA"",396.18,231,3,1102,0)"
^XMB(3.9,23,2,21956,0)="M-N%C!C03]6W80+7]`TXU(2!V;=D#F%S&""Z8G>?C.G^"">8G[3-T-Q$>$:3,W?"
^XMB(3.9,23,2,21957,0)="""DATA"",396.18,231,3,1103,0)"
^XMB(3.9,23,2,21958,0)="M_D#R*S*:35>N-(TZQQE>U[C$7*COXBIF\FAC,B.F6:/0T*5>BXTJ/*3UV!8)"
^XMB(3.9,23,2,21959,0)="""DATA"",396.18,231,3,1104,0)"
^XMB(3.9,23,2,21960,0)="MPL-T%&3%JZXK#VF1S!0'RC%=XI""PS,M4$WYZ$>6%-!G[H90J^`H.&5P%M""Y]"
^XMB(3.9,23,2,21961,0)="""DATA"",396.18,231,3,1105,0)"
^XMB(3.9,23,2,21962,0)="MM/-=>4G?@`7""O1.SD#SE9PI+%M,Y-[C/:1_KO5&AQA9`J&QJF3+42'\_Z)0P"
^XMB(3.9,23,2,21963,0)="""DATA"",396.18,231,3,1106,0)"
^XMB(3.9,23,2,21964,0)="M%I7,94PBH&8PGJ)WYB3%HR9EX>;%Y6JXL2C%I-Q2'N<,M$'F>:I$;EHMH76E"
^XMB(3.9,23,2,21965,0)="""DATA"",396.18,231,3,1107,0)"
^XMB(3.9,23,2,21966,0)="MY?:#<?:950FH(MH)_I=L8<J5M2E+#05&9(U.KBPXM+[*&6=6G<&6N+,)9R0]"
^XMB(3.9,23,2,21967,0)="""DATA"",396.18,231,3,1108,0)"
^XMB(3.9,23,2,21968,0)="MGZO;&`*7.%K8WRZ6?E:FC!7HQ5-`=`)NMWMKT5B76]CTG74;FZ=-&%UOWFQW"
^XMB(3.9,23,2,21969,0)="""DATA"",396.18,231,3,1109,0)"
^XMB(3.9,23,2,21970,0)="M/;K]^P0F135D^WJSWFX,;F`3=?O:QC)WD(`<.XPE[WUYW!6""0N)@K+C=8BQD"
^XMB(3.9,23,2,21971,0)="""DATA"",396.18,231,3,1110,0)"
^XMB(3.9,23,2,21972,0)="MM6%A^LQ^^X#D^AP/A?V!L4*63/#Y8YP#%$F#7L>W:_L'%""4/I6&I,)VBS0_8"
^XMB(3.9,23,2,21973,0)="""DATA"",396.18,231,3,1111,0)"
^XMB(3.9,23,2,21974,0)="M]`<5TX9=1>'#%VV-B!1[;K.$==5[;=H0$5$X&ILMF""GW7(#92O""W'9G`""F37"
^XMB(3.9,23,2,21975,0)="""DATA"",396.18,231,3,1112,0)"
^XMB(3.9,23,2,21976,0)="MGRN;\PK$D""IVZ3[G3=$1H$'*;D3>`3B-NF\"":K@;[O1Z*=L$RHV;-_9ZX]OM"
^XMB(3.9,23,2,21977,0)="""DATA"",396.18,231,3,1113,0)"
^XMB(3.9,23,2,21978,0)="M#/?W\[0P\)6K0+E2:K)HISSK$A_M!-Q@SB1')G'.Y=[#?&_(Z8*]1=B5TCTS"
^XMB(3.9,23,2,21979,0)="""DATA"",396.18,231,3,1114,0)"
^XMB(3.9,23,2,21980,0)="M(!J*PR_LIONTHS=/Y+J<Q9/</S2!!`4$@4!%#:'5G(_XU-%&8!QM`#)L""D`"""
^XMB(3.9,23,2,21981,0)="""DATA"",396.18,231,3,1115,0)"
^XMB(3.9,23,2,21982,0)="M<1;F<5_@6P=RJ39CM[*`6`'):A)7D*TD8TZN]P$[&_G);C0\`RZP!3SZ:4A2"
^XMB(3.9,23,2,21983,0)="""DATA"",396.18,231,3,1116,0)"
^XMB(3.9,23,2,21984,0)="M()7/>7-=2>C\/56`FX4ZX4;Q-L.-*&:A4;/%8+L`SI(O+(_?I:`!<&\5!UD#"
^XMB(3.9,23,2,21985,0)="""DATA"",396.18,231,3,1117,0)"
^XMB(3.9,23,2,21986,0)="M=CH_9(9+V>$P6O-""LR3HSC)T\+O/*""7VK9-3_;*^?-^3Y6Z<Q`P*99:/?2*]"
^XMB(3.9,23,2,21987,0)="""DATA"",396.18,231,3,1118,0)"
^XMB(3.9,23,2,21988,0)="M4]KWD,?""NXG<:7.&(M_I(#G'F&=M96C8[_:$C';NWS5\[)8F0-W+$AA'<#W-"
^XMB(3.9,23,2,21989,0)="""DATA"",396.18,231,3,1119,0)"
^XMB(3.9,23,2,21990,0)="M!*G1=[3X&]L^X-Y5XDJ7,6H&H]JH8KF6>[5*&?;@3=7*-$8P;$ZCUB:!IMW="
^XMB(3.9,23,2,21991,0)="""DATA"",396.18,231,3,1120,0)"
^XMB(3.9,23,2,21992,0)="M09[5*(94(K#8E.Q'UO+V%'EWM<MBIXQ]1:[!,<DY/O1Q1.OPY=85@[@]JK@]"
^XMB(3.9,23,2,21993,0)="""DATA"",396.18,231,3,1121,0)"
^XMB(3.9,23,2,21994,0)="MC;A[K.""(F5G6'EVU=\1R,.S+P<7&98T""J_T;10UO/K=I=(7T&I?03$3'KS3K"
^XMB(3.9,23,2,21995,0)="""DATA"",396.18,231,3,1122,0)"
^XMB(3.9,23,2,21996,0)="M_=Y&/V7LW:&*DS.7,^.4?7YIZC>@R-BQ@87C\V:Q1W#9`U65[+LN`/AK0QJ7"
^XMB(3.9,23,2,21997,0)="""DATA"",396.18,231,3,1123,0)"
^XMB(3.9,23,2,21998,0)="M.J5Q-1I67(<9%C96""O0EXV1%XU75(8U[_T!*P^IF./QE9`%W?](4<]?-&=JL"
^XMB(3.9,23,2,21999,0)="""DATA"",396.18,231,3,1124,0)"
^XMB(3.9,23,2,22000,0)="MD2KV^1$*\_JMDXJRS("")4>4@XT[E&3OIAD]5G,-_UB2&HST2-.UXA_WN&;F-"
^XMB(3.9,23,2,22001,0)="""DATA"",396.18,231,3,1125,0)"
^XMB(3.9,23,2,22002,0)="M\$EZD2QSI$!&'KIMY^!""8#FP)SP;9L$[I:@,N_<C@NC'+?.SL=CZ84#3&4+/"
^XMB(3.9,23,2,22003,0)="""DATA"",396.18,231,3,1126,0)"
^XMB(3.9,23,2,22004,0)="M(_AH/!_E;3S/-YPAQ&?[H//5>9F)J^R&CP>57E)MS3%V&TY$DK3E6A-__(3<"
^XMB(3.9,23,2,22005,0)="""DATA"",396.18,231,3,1127,0)"
^XMB(3.9,23,2,22006,0)="M4;AE`%*I""Y,;P(?XFUV=CJ=%/W+Q+:ET'RC$I',([P:V=C=LD0YU),_??GH^"
^XMB(3.9,23,2,22007,0)="""DATA"",396.18,231,3,1128,0)"
^XMB(3.9,23,2,22008,0)="M//\'OY""#""CP:(;/_<5W&_%9YE=3,F'_A+39-#/S<0>19(T)A-3QG.`CK1RQ/"
^XMB(3.9,23,2,22009,0)="""DATA"",396.18,231,3,1129,0)"
^XMB(3.9,23,2,22010,0)="MHOHT[+>4!R-<[S$7!23Q..L0J1;SFOQVRR7R,*^6T_[^5)2.`L@3#-BUN>H("
^XMB(3.9,23,2,22011,0)="""DATA"",396.18,231,3,1130,0)"
^XMB(3.9,23,2,22012,0)="MFG0R8WA[.P[@)TV93@%""083Y?LIKW(IQDJW+[I:D#'W.NK5XVQ=:RT:UEHHU"
^XMB(3.9,23,2,22013,0)="""DATA"",396.18,231,3,1131,0)"
^XMB(3.9,23,2,22014,0)="MO%HU$5)3$0_`>IM-Q_9P]J6#K1RC&5^C`!55]O5?O\\55Z[L#6B-]2T^M5*A"
^XMB(3.9,23,2,22015,0)="""DATA"",396.18,231,3,1132,0)"
^XMB(3.9,23,2,22016,0)="M<#K:^FX,O&4E#AG+ZWM*$EJAPGR^K*^8ZS05U""14+)$5%G]4Q7ORTZ#R7ZAG"
^XMB(3.9,23,2,22017,0)="""DATA"",396.18,231,3,1133,0)"
^XMB(3.9,23,2,22018,0)="MOJIG;3%X8^<`E6TA&H+J^79.9].9O\Z[#>CU_FVS;MPW@4!N0,4""`W<XG?B%"
^XMB(3.9,23,2,22019,0)="""DATA"",396.18,231,3,1134,0)"
^XMB(3.9,23,2,22020,0)="M%?)@UP+)2E#P@COGE8TQ?J2#<JBU?V]^V';0L+>S@X/8\9\-QIFLH?0I)@)<"
^XMB(3.9,23,2,22021,0)="""DATA"",396.18,231,3,1135,0)"
^XMB(3.9,23,2,22022,0)="M27Q#8M(8WC_:C6^M8?*H2=^H4D%_,#,>#ZZ+DA==6O=]""SF@21=EH^*_4$L!"
^XMB(3.9,23,2,22023,0)="""DATA"",396.18,231,3,1136,0)"
^XMB(3.9,23,2,22024,0)="M`A8+%``""``@`?%4?-=\[<M3B1```WIP!``\``````````0`@`(""!`````$%6"
^XMB(3.9,23,2,22025,0)="""DATA"",396.18,231,3,1137,0)"
^XMB(3.9,23,2,22026,0)="M7TUI<V-?,3$S+G!N;%!+`0(6""Q0``@`(`(%5'S75@[^DRTP``$BZ`@`3````"
^XMB(3.9,23,2,22027,0)="""DATA"",396.18,231,3,1138,0)"
^XMB(3.9,23,2,22028,0)="M``````$`(`""`@0]%``!!5E]-:7-C7S$Q,RYP;FPN9G)M4$L!`A8+%``""``@`"
^XMB(3.9,23,2,22029,0)="""DATA"",396.18,231,3,1139,0)"
^XMB(3.9,23,2,22030,0)="M?%4?-3'ZA3:0*```Q""L!`!,``````````0`@`(""!""Y(``$%67TUI<V-?,3$S"
^XMB(3.9,23,2,22031,0)="""DATA"",396.18,231,3,1140,0)"
^XMB(3.9,23,2,22032,0)="M+G!N;""YC9&502P$""%@L4``(`""`!\51\U9AS#!E8,``!*0@``$P`````````!"
^XMB(3.9,23,2,22033,0)="""DATA"",396.18,231,3,1141,0)"
^XMB(3.9,23,2,22034,0)="M`""``@(',N@``059?36ES8U\Q,3,N<&YL+G)E<%!+!08`````!``$```!``!3"
^XMB(3.9,23,2,22035,0)="""DATA"",396.18,231,3,1142,0)"
^XMB(3.9,23,2,22036,0)="%QP``````"
^XMB(3.9,23,2,22037,0)="""DATA"",396.18,231,3,1143,0)"
^XMB(3.9,23,2,22038,0)="end"
^XMB(3.9,23,2,22039,0)="""DATA"",396.18,231,4)"
^XMB(3.9,23,2,22040,0)="9^1016522158"
^XMB(3.9,23,2,22041,0)="""DATA"",396.18,231,6)"
^XMB(3.9,23,2,22042,0)="1^699"
^XMB(3.9,23,2,22043,0)="""DATA"",396.18,239,0)"
^XMB(3.9,23,2,22044,0)="BRAIN AND SPINAL CORD~113F"
^XMB(3.9,23,2,22045,0)="""DATA"",396.18,239,1,0)"
^XMB(3.9,23,2,22046,0)="^^2^2^3060915^"
^XMB(3.9,23,2,22047,0)="""DATA"",396.18,239,1,1,0)"
^XMB(3.9,23,2,22048,0)="Last updated on 08/09/2006 ~113"
^XMB(3.9,23,2,22049,0)="""DATA"",396.18,239,1,2,0)"
^XMB(3.9,23,2,22050,0)="Patch DVBA*2.7*113"
^XMB(3.9,23,2,22051,0)="""DATA"",396.18,239,2)"
^XMB(3.9,23,2,22052,0)="3060612^^3060809.1825"
^XMB(3.9,23,2,22053,0)="""DATA"",396.18,239,3,0)"
^XMB(3.9,23,2,22054,0)="^396.184^1248^1248^3060915^^^^"
^XMB(3.9,23,2,22055,0)="""DATA"",396.18,239,3,1,0)"
^XMB(3.9,23,2,22056,0)="begin 664 brain_Spinal_Cord_113.pnl.zip"
^XMB(3.9,23,2,22057,0)="""DATA"",396.18,239,3,2,0)"
^XMB(3.9,23,2,22058,0)="M4$L#!!0``@`(`!V+""37R+ABRNDL``""#-`0`9````0G)A:6Y?4W!I;F%L7T-O"
^XMB(3.9,23,2,22059,0)="""DATA"",396.18,239,3,3,0)"
^XMB(3.9,23,2,22060,0)="M<F1?,3$S+G!N;-Q=:VP<UW7>!SE\2K)$2Y9LQQE1<4U*-+7O)6FX-I\2$SXV"
^XMB(3.9,23,2,22061,0)="""DATA"",396.18,239,3,4,0)"
^XMB(3.9,23,2,22062,0)="MY$JJD:3VW=E+<JK9F<W,+,55W*""`@Z)NT?YHX*9(ZSSJ-D6-])$@*)HB?:$M"
^XMB(3.9,23,2,22063,0)="""DATA"",396.18,239,3,5,0)"
^XMB(3.9,23,2,22064,0)="MG`0HD+9)T*`H^J<.T/9'$#1&6R!`>Y\S=W;N[""XMRB;I'Q9W=O?<<[Y[SKGG"
^XMB(3.9,23,2,22065,0)="""DATA"",396.18,239,3,6,0)"
^XMB(3.9,23,2,22066,0)="MGG/NW7)I*:642\""$QNF].OYG#CAPWC)=VS)Z5N""6FX@ERU8]\4#O+;WJ[B1_"
^XMB(3.9,23,2,22067,0)="""DATA"",396.18,239,3,7,0)"
^XMB(3.9,23,2,22068,0)="ME%""N0WU[QTU^.3XX!W>AL=YPH=VG5';7+!.>15]U7!OHINM,KH(][[,/MKS!"
^XMB(3.9,23,2,22069,0)="""DATA"",396.18,239,3,8,0)"
^XMB(3.9,23,2,22070,0)="MJ06_H)L17]!-_H6!DE5OU%>AV>A[<!6]NV39M<D][V&ZOPPJZW85VHE8+%8F"
^XMB(3.9,23,2,22071,0)="""DATA"",396.18,239,3,9,0)"
^XMB(3.9,23,2,22072,0)="MXJV`""C1.D?^7FW6XOH6_0X1+3OT?D:Z?2I=X@@F7.-$W#^JN;IE*[^KBQK7%"
^XMB(3.9,23,2,22073,0)="""DATA"",396.18,239,3,10,0)"
^XMB(3.9,23,2,22074,0)="M`*DA\G],9'DA0.8\(W-10F9N8W9YC9,A@`^31\^3O[,4ZQY""II=A_1T/ZU?C"
^XMB(3.9,23,2,22075,0)="""DATA"",396.18,239,3,11,0)"
^XMB(3.9,23,2,22076,0)="M/=<1$$IO:;UTHT1Q7S9-A'M_97<#Z`ZL#LU96&K*0(*]VG2;!D2?<39U<]N`"
^XMB(3.9,23,2,22077,0)="""DATA"",396.18,239,3,12,0)"
^XMB(3.9,23,2,22078,0)="MO?.68:'O:,:F;NQ"">W@)3?3D_`ZP'>CVG5I87)J]L5)^?O[Z[,;F8GF0ODN^"
^XMB(3.9,23,2,22079,0)="""DATA"",396.18,239,3,13,0)"
^XMB(3.9,23,2,22080,0)="MTJ<9<P;0;@^19TRZMP;(JS50@\J)U4UU$YB.N@EM?8M^E8P^%!LL`1N:+G[4"
^XMB(3.9,23,2,22081,0)="""DATA"",396.18,239,3,14,0)"
^XMB(3.9,23,2,22082,0)="M[\_.9(RA>8+""0/[.Y""B>,W$""A,+P=#B>#WAX/C""'56-&7=#!MFDYNG./LORP"
^XMB(3.9,23,2,22083,0)="""DATA"",396.18,239,3,15,0)"
^XMB(3.9,23,2,22084,0)="M*UF4+6?.,JH!D6)<D).""(.GI/)7DNT22I!5GHMSFHCSLB3)Q62W9T$'#-2HU"
^XMB(3.9,23,2,22085,0)="""DATA"",396.18,239,3,16,0)"
^XMB(3.9,23,2,22086,0)="MW55=2P75JHKHVSIT\$MW!Z(W:S5@-_MOH8F]98/Z0""S65YYKN*YELH'IBW2!"
^XMB(3.9,23,2,22087,0)="""DATA"",396.18,239,3,17,0)"
^XMB(3.9,23,2,22088,0)="M#OPX'=CA`U_A`Y_T=7+>@,#VIR3>MV[.&[IVNV]DCQ*[!I&.Z1IY&#5>D8[W"
^XMB(3.9,23,2,22089,0)="""DATA"",396.18,239,3,18,0)"
^XMB(3.9,23,2,22090,0)="M8HN@'^#C/>:-IU`!_0$370YX0AR0`?M(Y_&0?)8#_>&2'88;+&]JR.T9<];>"
^XMB(3.9,23,2,22091,0)="""DATA"",396.18,239,3,19,0)"
^XMB(3.9,23,2,22092,0)="M`W1$[W6:VJ=""U/)A9I]_X]GG2OS<=<N^RSX.[,FRC10,V=S`R$UHN_[S#6!N"
^XMB(3.9,23,2,22093,0)="""DATA"",396.18,239,3,20,0)"
^XMB(3.9,23,2,22094,0)="MP^37$N>""C[V/#\XV7(L^[Q<]F<Q6*!"")(<*3PV`PPZ[GH9)M50Q84RL0#:%6"
^XMB(3.9,23,2,22095,0)="""DATA"",396.18,239,3,21,0)"
^XMB(3.9,23,2,22096,0)="MH0MT`U9GWGGKE\M!%2B1)/,YEV""""5,.""/#A;K>KX+V""HFE6K(;+.C)1F-B-B"
^XMB(3.9,23,2,22097,0)="""DATA"",396.18,239,3,22,0)"
^XMB(3.9,23,2,22098,0)="M\S0CF0Z3'/3\Q[W""\:-[@""/@.;)3(N\]3->^'PLS?W43&E!S56!658?Z#@BT"
^XMB(3.9,23,2,22099,0)="""DATA"",396.18,239,3,23,0)"
^XMB(3.9,23,2,22100,0)="M';7.YGO+MFK$=]CPHPWHN*+OD(V<HUJ>_/5X8!D:B/.AG_""&?@VM?JH-7*Q0"
^XMB(3.9,23,2,22101,0)="""DATA"",396.18,239,3,24,0)"
^XMB(3.9,23,2,22102,0)="M]89=1W;F3*!QZI9-GA$^JA1;6$6S9=*9([SJKJ/""K2W$NJ,ZL`X0'6@T5=U1"
^XMB(3.9,23,2,22103,0)="""DATA"",396.18,239,3,25,0)"
^XMB(3.9,23,2,22104,0)="M3:@A1XC<'/9Z2(Q=O0K15U101R_JMHX^B*@ZH*(;NMM4X2XP&H#0W4+\D$&]"
^XMB(3.9,23,2,22105,0)="""DATA"",396.18,239,3,26,0)"
^XMB(3.9,23,2,22106,0)="MH28[BEL(B)MB6@+""0(]@:1=GYZ]SD71![P(T\PS""URG-9QF$/XB%W?Z'<""RB"
^XMB(3.9,23,2,22107,0)="""DATA"",396.18,239,3,27,0)"
^XMB(3.9,23,2,22108,0)="MZJ:*:&L[%L*)S)7NBC,WRFUW17?<4?0(H.FV$2:.8VD8CJIZ1W=WT!L(/8^Y"
^XMB(3.9,23,2,22109,0)="""DATA"",396.18,239,3,28,0)"
^XMB(3.9,23,2,22110,0)="MCJ+G,P$V-<;F;TB4;'2]3DUN@B],&&D$,5>S2""AR@3'NLC'^6@+%RC*:,PU/"
^XMB(3.9,23,2,22111,0)="""DATA"",396.18,239,3,29,0)"
^XMB(3.9,23,2,22112,0)="M+I:9JX:U%5`C)"""":9TO3&G7`G`!6IBIR9DT5:*Z^BZ8==B%[7N0K^4J,S?NE"
^XMB(3.9,23,2,22113,0)="""DATA"",396.18,239,3,30,0)"
^XMB(3.9,23,2,22114,0)="ML.Q]=,&:C""!4%/7')S00)I3(1=&8""NC@W38DLA$D""JD`"":T-B4P4B:#AS[8A"
^XMB(3.9,23,2,22115,0)="""DATA"",396.18,239,3,31,0)"
^XMB(3.9,23,2,22116,0)="MD8XB412]%M\M?$:F4&,X<E8S^51Q'.L2,G'3U;=TI,H59-)[H-8RA:%@F2I6"
^XMB(3.9,23,2,22117,0)="""DATA"",396.18,239,3,32,0)"
^XMB(3.9,23,2,22118,0)="M(D%@?YW!GJQS-Y5\)=X:Z`HAAW0)FJ843Q'F!QC!D7B8^9D%Z&BV7H'JHJ^E"
^XMB(3.9,23,2,22119,0)="""DATA"",396.18,239,3,33,0)"
^XMB(3.9,23,2,22120,0)="M6&FYG2(571=5=-93S$.RW&:IUTL,$_2^R-$[+Q'V)SUA+22BK3KZMHDF2@.F"
^XMB(3.9,23,2,22121,0)="""DATA"",396.18,239,3,34,0)"
^XMB(3.9,23,2,22122,0)="MZQMIJTEZ\L[T+9H`85+U^1@6^&""KW`D""^6-,X[;""3)RE0`<'FI&2I+.8_&Q,"
^XMB(3.9,23,2,22123,0)="""DATA"",396.18,239,3,35,0)"
^XMB(3.9,23,2,22124,0)="MI)G\4XG#F;N%'2D4IY#X3V]ET6MUT#IHA'02?Q/0K8PHZ$>8H+MA0<]O0*=A"
^XMB(3.9,23,2,22125,0)="""DATA"",396.18,239,3,36,0)"
^XMB(3.9,23,2,22126,0)="MD-7SCF7?]MVK@&-_&:\#*![EMD=?I84I33S)Y/X%3^XK;/.83F724R<7]UQH"
^XMB(3.9,23,2,22127,0)="""DATA"",396.18,239,3,37,0)"
^XMB(3.9,23,2,22128,0)="M5F&5!@_][Y!:+J-EC8M\`K]PT%LV$M:)*^?6+'53T""UF6LJ([.'PFH5>U.J&"
^XMB(3.9,23,2,22129,0)="""DATA"",396.18,239,3,38,0)"
^XMB(3.9,23,2,22130,0)="MU835B+UE+!*IO(C4[1!2,QRI=&JZZ.%^""""&[,.M@:T0^LZHC8#`&:K6!%5,9"
^XMB(3.9,23,2,22131,0)="""DATA"",396.18,239,3,39,0)"
^XMB(3.9,23,2,22132,0)="M638U&P(<=KG`KNHFBJB4L_Y#4''0IR'4G9K2NXX-.S:TBA6/2C<@AS0>""2E;"
^XMB(3.9,23,2,22133,0)="""DATA"",396.18,239,3,40,0)"
^XMB(3.9,23,2,22134,0)="MYC]#K6Z:8?IW'J:&CVEQZC!C.K0*:Q8*/=&FT5$>6H`<,!11:G@S3IR`<F[9"
^XMB(3.9,23,2,22135,0)="""DATA"",396.18,239,3,41,0)"
^XMB(3.9,23,2,22136,0)="M%*/1""MP!N[IE*^=+%EK,2%1FH*C.A39V%I;I*!<7T!3I&H*XB<)4P[#N8!O7"
^XMB(3.9,23,2,22137,0)="""DATA"",396.18,239,3,42,0)"
^XMB(3.9,23,2,22138,0)="M<7:KP3YRQA^M9E$7I#PL/`-F`U&M0H29C=_C8:%#HS]#WR)^`\=#&K#M)GJA"
^XMB(3.9,23,2,22139,0)="""DATA"",396.18,239,3,43,0)"
^XMB(3.9,23,2,22140,0)="MC`C#VCB0P@]/;]8A)#$5?T\Y<QT""FVP,_6>G;^H.CJJ%1Z=6$.;853HNJ.DF"
^XMB(3.9,23,2,22141,0)="""DATA"",396.18,239,3,44,0)"
^XMB(3.9,23,2,22142,0)="M4$9N07`;*Q=>Q+<0.-L-J%SRF4;B07/;W9E1&_4Z6CT0\S:L8>ZE'T*P!#[T"
^XMB(3.9,23,2,22143,0)="""DATA"",396.18,239,3,45,0)"
^XMB(3.9,23,2,22144,0)="MX`W$%-X)Z""::`""0>1+.@G%F""&L%7>-93`KJIG%C0G2W$`_HZQ.K6M68C;]%;"
^XMB(3.9,23,2,22145,0)="""DATA"",396.18,239,3,46,0)"
^XMB(3.9,23,2,22146,0)="MQE//EA+\9SHE+I)?XXOD3WLAQM_'!*V>]K3Z`/>00_-6P]81)&OP3D""'3ZQ@"
^XMB(3.9,23,2,22147,0)="""DATA"",396.18,239,3,47,0)"
^XMB(3.9,23,2,22148,0)="MD_;5-A9P@H->4L'I&W0<G&9`_M,0DB`Q:4S%@F(['@RJIKL*JI+20"",E+GQ]"
^XMB(3.9,23,2,22149,0)="""DATA"",396.18,239,3,48,0)"
^XMB(3.9,23,2,22150,0)="MC.!#;>.,EO`?OZS[@57#(5;0$O`?FCP&BVA.$@1765XJ^0^RC7M+8`6]$$<N"
^XMB(3.9,23,2,22151,0)="""DATA"",396.18,239,3,49,0)"
^XMB(3.9,23,2,22152,0)="M8CB2""L3>Q92004F\AX48'PSOVB=F;8*Q#<7X33[F,^]""<EB(I$Z5YTNW5C=`"
^XMB(3.9,23,2,22153,0)="""DATA"",396.18,239,3,50,0)"
^XMB(3.9,23,2,22154,0)="M5;>NV5:C?HX*''R888'/1D#P%2XX\..>5&YP<\>Z0[/B_</O;SAHR]$D""T!_"
^XMB(3.9,23,2,22155,0)="""DATA"",396.18,239,3,51,0)"
^XMB(3.9,23,2,22156,0)="M'_ZG!*I""=KEO?L>RQ2#OG0&C=47JP245I6=5-ZI*_ZJ%6$=+CJ)L0F1]4.DO"
^XMB(3.9,23,2,22157,0)="""DATA"",396.18,239,3,52,0)"
^XMB(3.9,23,2,22158,0)="MV>@/TW5BD4MV=RBR9,""KL<XP3N\+Q@'TX7H=R7*T@4QT""R2MXB3_HS.0Z=3^"
^XMB(3.9,23,2,22159,0)="""DATA"",396.18,239,3,53,0)"
^XMB(3.9,23,2,22160,0)="M@%S<@[:F._!H`YGL%DBVPQ\DKO2E6#N-S._/L#=QAO*(&W9/ES`6""H)[;`<C"
^XMB(3.9,23,2,22161,0)="""DATA"",396.18,239,3,54,0)"
^XMB(3.9,23,2,22162,0)="MBF&*^X)Q:(-$<&0K?J2A[.U6(_.BCVRODNG,OK`<+-M@%QI'WDLJ74+)XD+F"
^XMB(3.9,23,2,22163,0)="""DATA"",396.18,239,3,55,0)"
^XMB(3.9,23,2,22164,0)="M)3M8]]2^H.Q?@K!ZY('LZU8G6=9R@.#X[VUQ+.P/QSG@[AQY'/N[Q7%*=)/M"
^XMB(3.9,23,2,22165,0)="""DATA"",396.18,239,3,56,0)"
^XMB(3.9,23,2,22166,0)="M<=R?FQQ8P'7](P]DU^%X,>`DVR*93N_325JZ`=TC#^5@MU`6`DZRO5)F]Z>4"
^XMB(3.9,23,2,22167,0)="""DATA"",396.18,239,3,57,0)"
^XMB(3.9,23,2,22168,0)="M:`""K=N21'.)IFR$_;3,M9!R2'XZ'2AN7A8""G<)22-L/=KJU9(7!.S#.E>9;+"
^XMB(3.9,23,2,22169,0)="""DATA"",396.18,239,3,58,0)"
^XMB(3.9,23,2,22170,0)="MG^/R%W/9KI2F=<J2ST%'2:Q9L4""N/3P1.;$8N,+FX2/>/%SD?!2RA<(1@#_F"
^XMB(3.9,23,2,22171,0)="""DATA"",396.18,239,3,59,0)"
^XMB(3.9,23,2,22172,0)="MMR*=""O0^I5GYMI0(5'<^Q`6]X%G=Z45<,A>K^4(0VJ$O::`\;]4JEM^6Q%]F"
^XMB(3.9,23,2,22173,0)="""DATA"",396.18,239,3,60,0)"
^XMB(3.9,23,2,22174,0)="M19R]2$H`^BP'>BHS-1U(?@MI@M9)ELYH5FS2^2!KTDG^+N^`2FQY(Q73V2,P"
^XMB(3.9,23,2,22175,0)="""DATA"",396.18,239,3,61,0)"
^XMB(3.9,23,2,22176,0)="MI3VQ6*`9\X187V;.]TVZCQ]BPHY[L.IB-R9+BRJ:L:+7X+O94AF790<SK-\A"
^XMB(3.9,23,2,22177,0)="""DATA"",396.18,239,3,62,0)"
^XMB(3.9,23,2,22178,0)="M42'""G&0J6@FW5`Z6-M9+BQOEY<7->Y3BOPZVF3*39QO91XD(EYD(3X43JT-H"
^XMB(3.9,23,2,22179,0)="""DATA"",396.18,239,3,63,0)"
^XMB(3.9,23,2,22180,0)="MHG'AXNGT/2OA6P?4SY5A;2*,>=X1]$E)6O@Q:OQEN.<^3=I;U:OJ9EW'A>=Y"
^XMB(3.9,23,2,22181,0)="""DATA"",396.18,239,3,64,0)"
^XMB(3.9,23,2,22182,0)="MY*>C%99/\92(3Q)Z[8F+QZ]].""'-A$^E`BT`K*T[>3$>UO9QUD""\""G'KD:&N"
^XMB(3.9,23,2,22183,0)="""DATA"",396.18,239,3,65,0)"
^XMB(3.9,23,2,22184,0)="M(Z!QR6MLS<)]2):ZN(?K7-`>/US&D)X2D]XH0&0R_F<\W.;PAV7<UH`(`K6&"
^XMB(3.9,23,2,22185,0)="""DATA"",396.18,239,3,66,0)"
^XMB(3.9,23,2,22186,0)="M%GBU`DGG%JX,6^H6;C7>@:JFVUJCYKC`U*!7=7'J4,.5=]XZ.*F6T5,#F-L-"
^XMB(3.9,23,2,22187,0)="""DATA"",396.18,239,3,67,0)"
^XMB(3.9,23,2,22188,0)="ML`WQIT8UT'!HSPYN!22]""^CYJ#=2S:K2KA[<FF<Q=!DY1ZV0\A]N""-S>ML$N"
^XMB(3.9,23,2,22189,0)="""DATA"",396.18,239,3,68,0)"
^XMB(3.9,23,2,22190,0)="MZ*IC;RHCYOL-)OG_2DPI`\;5Y^E_""($`J\!GEG^$_!<Q9%9$^^<XVA.R,E9%"
^XMB(3.9,23,2,22191,0)="""DATA"",396.18,239,3,69,0)"
^XMB(3.9,23,2,22192,0)="M'+-F(1@,_3;N;+R7\7/B^%XELE\R?AZ*XYN6&SEN%\/FQ6&_P(?]IF382E4<"
^XMB(3.9,23,2,22193,0)="""DATA"",396.18,239,3,70,0)"
^XMB(3.9,23,2,22194,0)="MUL`%828VH%R,D6?N#C#5?.IJ/D5*>JS19OQ>>`RD-S_)>?QS""8\O:""*/`$T,"
^XMB(3.9,23,2,22195,0)="""DATA"",396.18,239,3,71,0)"
^XMB(3.9,23,2,22196,0)="M!&AZ0""NKZMC!<E@4.?P6Y_##$@X_L.5QN(Q&-#$W:""0+^5G:G*0[3@.2<K_5"
^XMB(3.9,23,2,22197,0)="""DATA"",396.18,239,3,72,0)"
^XMB(3.9,23,2,22198,0)="MH&_13EMDR35<T,,6VS""('44P(Z8Y$F7&R\L27LHE#`_$E7[D""ILH`"",]$$8#"
^XMB(3.9,23,2,22199,0)="""DATA"",396.18,239,3,73,0)"
^XMB(3.9,23,2,22200,0)="M+ZV.VL`9#62ZD#L+OZG!@-O`,'""_@69MF_I=!%M]QT:THII$IZ9%ID894W\F"
^XMB(3.9,23,2,22201,0)="""DATA"",396.18,239,3,74,0)"
^XMB(3.9,23,2,22202,0)="M\66?7M1)K=3%7;.,IUK=@(A#[EQP_P7OB`[TT6*]1!&WJF\%.HE)NP0G0KP>"
^XMB(3.9,23,2,22203,0)="""DATA"",396.18,239,3,75,0)"
^XMB(3.9,23,2,22204,0)="M%ABW#TQ@6L2!-1$AHAT05K$2<+<EM%5/RLYD!/<)O#+42\OKIT.'%AZ//+00"
^XMB(3.9,23,2,22205,0)="""DATA"",396.18,239,3,76,0)"
^XMB(3.9,23,2,22206,0)="MZ[`YB(H)>/F]09""=9,C&$Z$.AN,3$TC;$)@#3_Y5(""1(?""P<$8RPB&!9Z,QY"
^XMB(3.9,23,2,22207,0)="""DATA"",396.18,239,3,77,0)"
^XMB(3.9,23,2,22208,0)="M]]?^@""QL,?@)(LKC;$[_1-*?_P-V-*!""-$8=G6OH1I5O/T>QTR#U&V0#U#*0"
^XMB(3.9,23,2,22209,0)="""DATA"",396.18,239,3,78,0)"
^XMB(3.9,23,2,22210,0)="M)?-^0U4S`-K(5%MZ<ZL-TB1$.C1(9$1<S9@SCD,#9&""\3X.0NZ,;!OZHB0,!"
^XMB(3.9,23,2,22211,0)="""DATA"",396.18,239,3,79,0)"
^XMB(3.9,23,2,22212,0)="MM+KK!DZUX&9WTM2^8*&(`[>L>0PA[U&U[DQ@2ZL#V^6>933BZ,HH,W1L]7C`"
^XMB(3.9,23,2,22213,0)="""DATA"",396.18,239,3,80,0)"
^XMB(3.9,23,2,22214,0)="MR0Y-F-P14^!N,.!>E?B^&PPX""8\(--PX9ZM5X.)E8)MTUVW[P-GHJ[NX5Y$="
^XMB(3.9,23,2,22215,0)="""DATA"",396.18,239,3,81,0)"
^XMB(3.9,23,2,22216,0)="MV<(X$7_5B;WIP+R:C+U=""7LKG+T-N*O#.RKGDDP&89$\QIYM%ZL9[NC0&C;0"
^XMB(3.9,23,2,22217,0)="""DATA"",396.18,239,3,82,0)"
^XMB(3.9,23,2,22218,0)="MFJ1UB[2SX_@/BS`IYR4OM+%P'>O4""AX@(/;!<*SWU8Z>2HL4S`X]\=)3:7G6"
^XMB(3.9,23,2,22219,0)="""DATA"",396.18,239,3,83,0)"
^XMB(3.9,23,2,22220,0)="M""_S=6""`X\!VN>N`.-Y<7'6Y?:UB>_)WCMPGKD75ALR+`)V+B$<[DO\;""#E=E"
^XMB(3.9,23,2,22221,0)="""DATA"",396.18,239,3,84,0)"
^XMB(3.9,23,2,22222,0)="M#G<3F@YNO%QJF-2D-\@Y(E4]7-Z7G71,&.)9WV2/Q$J?VB21DV%IW$FJ+@H4"
^XMB(3.9,23,2,22223,0)="""DATA"",396.18,239,3,85,0)"
^XMB(3.9,23,2,22224,0)="M</,M/JJ%Q/4/+:%XR>MZQ,=7Y+UE;!=RAFCS?W-M_EE)%SD[)TK,G>&*_9`\"
^XMB(3.9,23,2,22225,0)="""DATA"",396.18,239,3,86,0)"
^XMB(3.9,23,2,22226,0)="M_LJD6*KK!1J8O/B.'5.=9D=._H`:Z,?CK2>P+T0>4U7>SC%5%F@F?Y..M[N/"
^XMB(3.9,23,2,22227,0)="""DATA"",396.18,239,3,87,0)"
^XMB(3.9,23,2,22228,0)="M""*Q3>K:KS'PQ)QXQF6@]K>EEQ*=3N>C,_(""DG-.[B1;IF3YD!HV:Z202K=G<"
^XMB(3.9,23,2,22229,0)="""DATA"",396.18,239,3,88,0)"
^XMB(3.9,23,2,22230,0)="MW@T\@$)&#Z;MN^.;-3Y\,=:1\>STOA@?7.2]ONVXOX%[AY7>%=P='`OTM@V4"
^XMB(3.9,23,2,22231,0)="""DATA"",396.18,239,3,89,0)"
^XMB(3.9,23,2,22232,0)="M""8-^5IR_3(O&XE4?ON$YXM=C'@_#W/7@9$^'0T*Y*:'<[N51)R1G2F_J%;OE"
^XMB(3.9,23,2,22233,0)="""DATA"",396.18,239,3,90,0)"
^XMB(3.9,23,2,22234,0)="MF(I(*,^25)^+!2B=EUP:@#N;(XBPIKVI>(#(5)C(\`I^@.RSH>U$T,J)DMUD"
^XMB(3.9,23,2,22235,0)="""DATA"",396.18,239,3,91,0)"
^XMB(3.9,23,2,22236,0)="MI*Z%29TJ60X]QHE=""Y13XX?)F'@W6PW-)W>&]&BK8VA;1MWC>`3%?(#BQ]B,"
^XMB(3.9,23,2,22237,0)="""DATA"",396.18,239,3,92,0)"
^XMB(3.9,23,2,22238,0)="M?D*2]WETA?E<[/^`B<*?BFG9-6`0-0NUT09&*8HHW*]!I@/3EKD_HQ0S`<#N"
^XMB(3.9,23,2,22239,0)="""DATA"",396.18,239,3,93,0)"
^XMB(3.9,23,2,22240,0)="MUR@%$;#[-4@Q`!C7IK)$FV9)2S-:9)%SWH5HT9UI4SKCT1IE_I$0\U[E+).="
^XMB(3.9,23,2,22241,0)="""DATA"",396.18,239,3,94,0)"
^XMB(3.9,23,2,22242,0)="M*D94SD(5;66-2*4,>`<<%&66'+=1!O&Q):KEL79L%0(SUY:O0B:""K\1]X""LX"
^XMB(3.9,23,2,22243,0)="""DATA"",396.18,239,3,95,0)"
^XMB(3.9,23,2,22244,0)="M#>WQ2D?PU7,?^`HX9:TM7/D(MI3[P-9T8!K;\I6/*LSVOVV^>LNXVLR""<OQG"
^XMB(3.9,23,2,22245,0)="""DATA"",396.18,239,3,96,0)"
^XMB(3.9,23,2,22246,0)="M)N""3DR_'V@*5]L\VBCU`8:H9L0&M`]&BA&B?C&@VH&G/M-6TK(1HKXQH+C`?"
^XMB(3.9,23,2,22247,0)="""DATA"",396.18,239,3,97,0)"
^XMB(3.9,23,2,22248,0)="M;8D6<A*B21G1@`MIS^BTA&9<<O`H'UP?PHKSE!`HIH]`G7TP%K4!8%%0(MXQ"
^XMB(3.9,23,2,22249,0)="""DATA"",396.18,239,3,98,0)"
^XMB(3.9,23,2,22250,0)="M(`_=&]/3(2(/P<K.R""=&R%B]O#/HZ][>[;8`:^Z(G.***@:S:*Z/:-`%)NKW"
^XMB(3.9,23,2,22251,0)="""DATA"",396.18,239,3,99,0)"
^XMB(3.9,23,2,22252,0)="MO,3O\O'+0_1*TTB9E`@$SY9^W6M9R7$%&_X^,D52]AU+C^/\K^I8-:AJ@%QJ"
^XMB(3.9,23,2,22253,0)="""DATA"",396.18,239,3,100,0)"
^XMB(3.9,23,2,22254,0)="M`ASTCT-2@2PKB7;!>K4!#%(MK9!""/2X]T$J]AL#"")\E)!06G4,V?::`-!LF("
^XMB(3.9,23,2,22255,0)="""DATA"",396.18,239,3,101,0)"
^XMB(3.9,23,2,22256,0)="MXH*!;F,""Y,BN1NK,0C85>?!:W0#(CY-[04AT7+&J3=5I.F0I4/%%)/@+=0.J"
^XMB(3.9,23,2,22257,0)="""DATA"",396.18,239,3,102,0)"
^XMB(3.9,23,2,22258,0)="M$VK%0#MP]!E\6EVW""8LUT/2&$3AOF/ASF'ED*;J+E9(<KN0#JML-M(TTB$ZJ"
^XMB(3.9,23,2,22259,0)="""DATA"",396.18,239,3,103,0)"
^XMB(3.9,23,2,22260,0)="M*CO]6?</F0K,`UH<!B31""YN!=##Z+HWIY4+A?`?F`0=H5L-A8JECF@U,?&R6"
^XMB(3.9,23,2,22261,0)="""DATA"",396.18,239,3,104,0)"
^XMB(3.9,23,2,22262,0)="M!&X(<K3ET^N(C/`(UG4#UITFR:`@UC6+O!PG`N/B#(:R`E52JJ/C6&@_N+TC"
^XMB(3.9,23,2,22263,0)="""DATA"",396.18,239,3,105,0)"
^XMB(3.9,23,2,22264,0)="MH(""XZU1AYDL:U9D*\TGCX6AS@.I+9CRBL)45E2_YM[&.E+*1E-@RDR>4'N2^"
^XMB(3.9,23,2,22265,0)="""DATA"",396.18,239,3,106,0)"
^XMB(3.9,23,2,22266,0)="MZR5)G/U([HIZO5FG1X]WX00]':P9EMEP(HCG1.*>8_Q567=*5D(<UR+;TL^*"
^XMB(3.9,23,2,22267,0)="""DATA"",396.18,239,3,107,0)"
^XMB(3.9,23,2,22268,0)="M]-_B,*0D,&2NJ#2^B:""4$2F]R2DMABF=2!-&+<IG!+6T2.T[;?@:3*E/JC3*"
^XMB(3.9,23,2,22269,0)="""DATA"",396.18,239,3,108,0)"
^XMB(3.9,23,2,22270,0)="MBE`95L(L!&8Z^;0D+SB_`&%=Q>?>22O$E@'WU&T;D""H""LP6LNOQ"")>]B""L&:"
^XMB(3.9,23,2,22271,0)="""DATA"",396.18,239,3,109,0)"
^XMB(3.9,23,2,22272,0)="M9@Y)6U.:=\U3L;_$Q7Y*UAB15Y]F<XNP7&TXFH';0W9)J147NU7T-[)HY'-'"
^XMB(3.9,23,2,22273,0)="""DATA"",396.18,239,3,110,0)"
^XMB(3.9,23,2,22274,0)="MZ;YPE/A8VI,2423@UX;1\5_CX_^+9'R00^-?LZRJ9'3DXZH-#6=FMP$^DD]="
^XMB(3.9,23,2,22275,0)="""DATA"",396.18,239,3,111,0)"
^XMB(3.9,23,2,22276,0)="MOS_Z!""ZAD=X`_H%]L%@06?PUSN*7)""P^ET4L+B$GW@V+N&$&[9PI:Q@^S)X'"
^XMB(3.9,23,2,22277,0)="""DATA"",396.18,239,3,112,0)"
^XMB(3.9,23,2,22278,0)="M(=Y?=V8M+[+FA>XS$M9F,X@U<KE!&]94RS2:U-TP[E2TFA""EQ3L2*0LY@87$"
^XMB(3.9,23,2,22279,0)="""DATA"",396.18,239,3,113,0)"
^XMB(3.9,23,2,22280,0)="MBXR#ZQ(.%M*(`WQ%'O19P&(C=[\%#5INPU^!)I^M,(<=>XMXBIVR8S%V_ECB"
^XMB(3.9,23,2,22281,0)="""DATA"",396.18,239,3,114,0)"
^XMB(3.9,23,2,22282,0)="M""!]/(7:H1T#\K%FXXRF`""F8J""O>T.`I;7Y*3$J&?98+R&Q*.@*.00""P6AM@>"
^XMB(3.9,23,2,22283,0)="""DATA"",396.18,239,3,115,0)"
^XMB(3.9,23,2,22284,0)="M]&0\T)OW:4EAZ""PK#/$6/$?%:^2[6`V*Z/YF:;8YNH6Y$-K""O.?`BXQYMCO^"
^XMB(3.9,23,2,22285,0)="""DATA"",396.18,239,3,116,0)"
^XMB(3.9,23,2,22286,0)="M9;J1W64@ONDEM_^RZ[:.0QS/RVM5_&;3S\<""UW3]4BRZE6.AB:P#19R.#IQ#"
^XMB(3.9,23,2,22287,0)="""DATA"",396.18,239,3,117,0)"
^XMB(3.9,23,2,22288,0)="MUM.<9F'#12+,HTQUGI0$1ORRB)DH/4RQ_/@W:7;G5T+%[O=%ZF%\OSOI;(#M"
^XMB(3.9,23,2,22289,0)="""DATA"",396.18,239,3,118,0)"
^XMB(3.9,23,2,22290,0)="M*VP./N<YL.>\C70^-74TCG9$VAIS6-^B^K;*9+WBR7KWV&VD%:FJ%MFB]5.!"
^XMB(3.9,23,2,22291,0)="""DATA"",396.18,239,3,119,0)"
^XMB(3.9,23,2,22292,0)="M#JJ[T6:WA&\#8OV3A\SL6&DDL4)D49DL>4G<OT3:^TRM&6UW#)<ZH57JWOO'"
^XMB(3.9,23,2,22293,0)="""DATA"",396.18,239,3,120,0)"
^XMB(3.9,23,2,22294,0)="MW^Z!'W;>B''/F_I>"":<<""].90K=5B\%U30,.N>!.Z6=2NTH_N7\=X%U/M(6P"
^XMB(3.9,23,2,22295,0)="""DATA"",396.18,239,3,121,0)"
^XMB(3.9,23,2,22296,0)="M'-ZW8^+QI^35_5O((;:)/JD>L4)>XOF`3=P.V\0IOZO0JIDZ.&SVP/(42X$K"
^XMB(3.9,23,2,22297,0)="""DATA"",396.18,239,3,122,0)"
^XMB(3.9,23,2,22298,0)="M2[JUAV!&=UKLCV%U]T2)DWKD/IA#462>]28DOR`SAVSV_IL#K_JT+!C_[/%C"
^XMB(3.9,23,2,22299,0)="""DATA"",396.18,239,3,123,0)"
^XMB(3.9,23,2,22300,0)="M'P-SZ)>;0^""04W_H8D7?'LXQ>[@&=%?UKZ@[9&918([V]+[,(EI1""R(Y?D#K"
^XMB(3.9,23,2,22301,0)="""DATA"",396.18,239,3,124,0)"
^XMB(3.9,23,2,22302,0)="MCZ1^.W]PBBHW4S95LX27I8-;M2+-@F'Y\4#S[?>\+<L/CU\G^H!T\\^UX&9@"
^XMB(3.9,23,2,22303,0)="""DATA"",396.18,239,3,125,0)"
^XMB(3.9,23,2,22304,0)="M_Y*2'$X;8T:""?PW`M&JZAL)>FC+?I+M_?O_C(3N;QAWR>2+A$_O;U`2UE.UI"
^XMB(3.9,23,2,22305,0)="""DATA"",396.18,239,3,126,0)"
^XMB(3.9,23,2,22306,0)="MWJ![FC=B!Z>GX:)K3N0ZS^;E]SP%?=F[[+%0+![Q30UOY'B)KE%K3-@?>\+^"
^XMB(3.9,23,2,22307,0)="""DATA"",396.18,239,3,127,0)"
^XMB(3.9,23,2,22308,0)="MQ?&SQD'YN5P6K@`""Q#`#HB""QQLO>45%R/^R*Y3BD#*7.XT-.N,AP2.TQP^O>"
^XMB(3.9,23,2,22309,0)="""DATA"",396.18,239,3,128,0)"
^XMB(3.9,23,2,22310,0)="M%P*['5GSE'<CI8.OW\!]65&&R3)0_T@-\U.Q5J*/'*!A9D3VKX:J]MXE*(6I"
^XMB(3.9,23,2,22311,0)="""DATA"",396.18,239,3,129,0)"
^XMB(3.9,23,2,22312,0)="M?.&(VV4VD-RZQ4,$SR[_Z?C9Y9!49WF]<RE@E^]M8Y>^&5Y52TY3V]$!FB!-"
^XMB(3.9,23,2,22313,0)="""DATA"",396.18,239,3,130,0)"
^XMB(3.9,23,2,22314,0)="M7?;*XH?-+ODE_*K839>X'+;+?FZ7$72*`IWD9WD9Y_.2JL7%R^H2.:>)W)CI"
^XMB(3.9,23,2,22315,0)="""DATA"",396.18,239,3,131,0)"
^XMB(3.9,23,2,22316,0)="M`@/%W@Y1$+7,ZO-1G?,L[?I5:O""_SPU^OO,/+NW;X',Y$9=Q)H[IS?U'?8-/"
^XMB(3.9,23,2,22317,0)="""DATA"",396.18,239,3,132,0)"
^XMB(3.9,23,2,22318,0)="M31]Q@V?%@R]3@]]J/8^;_/;Q,_AAN1*S--K[`[>M_(]D[WB)&3Q9@:TM=;,&"
^XMB(3.9,23,2,22319,0)="""DATA"",396.18,239,3,133,0)"
^XMB(3.9,23,2,22320,0)="M#0,WV90!BHK).2)XV""R=+6'O$P\XOQU+9^7)2X%55SA6Y5.:]""R=6S8I%A)T"
^XMB(3.9,23,2,22321,0)="""DATA"",396.18,239,3,134,0)"
^XMB(3.9,23,2,22322,0)="M?-1P`$-@BS+[G'B5AO=#(7X`_N@!FGU6!(G]$%/R6<_L*X+9OR/=>0=FY*R$"
^XMB(3.9,23,2,22323,0)="""DATA"",396.18,239,3,135,0)"
^XMB(3.9,23,2,22324,0)="M\(O4R)]CDGW5,_(WCI^1GY#J+V_7V!&/JR3_K<VIP'G6%(9WOO`0K^6\$>:A"
^XMB(3.9,23,2,22325,0)="""DATA"",396.18,239,3,136,0)"
^XMB(3.9,23,2,22326,0)="M8)?'IR26^5[/,H/""^2NP=(!I,0KF=R3\ENRGE;PH/M!1)_0'1D7U[&85OLB_"
^XMB(3.9,23,2,22327,0)="""DATA"",396.18,239,3,137,0)"
^XMB(3.9,23,2,22328,0)="M%K+VAP_0V@-1/;?VG_>L_05_MSV5.=J+/*N6LE..B3&N&Y[]__@XE.M/R@O<"
^XMB(3.9,23,2,22329,0)="""DATA"",396.18,239,3,138,0)"
^XMB(3.9,23,2,22330,0)="MS""YV`]FNKT@L_@*S^#G6SNK;^F&KV;.MR3DBTG+H%^U\2QSS+!'BWS#$K;ZX"
^XMB(3.9,23,2,22331,0)="""DATA"",396.18,239,3,139,0)"
^XMB(3.9,23,2,22332,0)="M5SC4KSO3_J<=,OPLXUEBEE_ASB4F:1B:\IQ+L,57;,6MVY9K:9:!;T+1V6_N"
^XMB(3.9,23,2,22333,0)="""DATA"",396.18,239,3,140,0)"
^XMB(3.9,23,2,22334,0)="M52-<0I'=;?C;U""5\@[N$53[TI;?]0ZO=G3P-_*K5)3:ZX=UUX5TXF)K>WXG9"
^XMB(3.9,23,2,22335,0)="""DATA"",396.18,239,3,141,0)"
^XMB(3.9,23,2,22336,0)="MD65\31&XC2^RHK/C/A-]`E5^Y65W$C!'MR=*D!R*RT1(_S]WUP(DQW&6]W$:"
^XMB(3.9,23,2,22337,0)="""DATA"",396.18,239,3,142,0)"
^XMB(3.9,23,2,22338,0)="MG1Z6=)).DB59&CTLZZP[:=][*^/"")^GTL'2RHCLA.Q#;<[MS=V/M[JQW=B6="
^XMB(3.9,23,2,22339,0)="""DATA"",396.18,239,3,143,0)"
^XMB(3.9,23,2,22340,0)="M;&(""I!(""3G@43EP0D]BA$JI"")3@D5$)57'$(@8J!4*G""$!)P>!-(BN`""G""(\"
^XMB(3.9,23,2,22341,0)="""DATA"",396.18,239,3,144,0)"
^XMB(3.9,23,2,22342,0)="M^O%W3_=.S^SC=-;NNLJEN]F]GOZ[^__[?WY_6R2D)H53A1/^""(R-18OL'/51"
^XMB(3.9,23,2,22343,0)="""DATA"",396.18,239,3,145,0)"
^XMB(3.9,23,2,22344,0)="M:X]&57$*ZTRZ15)F#$[/M$!/HI?@52,!$ARXX%4JP1\!HJ]QHJ_W@0!?KY8]"
^XMB(3.9,23,2,22345,0)="""DATA"",396.18,239,3,146,0)"
^XMB(3.9,23,2,22346,0)="M<'RK4C?8CRH$^%8FP.UK9K$[Q+=:I&6D3B<0H(U,,(IV^TJTR$V1:#&Q8$QO"
^XMB(3.9,23,2,22347,0)="""DATA"",396.18,239,3,147,0)"
^XMB(3.9,23,2,22348,0)="M1""(Z*+!/>^UJWC2)QK(>:B(%T?\.>4C(I0,@YU42;<-T9<$JYS&\#D;AJCM\"
^XMB(3.9,23,2,22349,0)="""DATA"",396.18,239,3,148,0)"
^XMB(3.9,23,2,22350,0)="M_E&_,LAU;ANQ&D:27@,YN?@769+Y,C><AY^EYZ$.].2Y>O:U?E#/-JB1/\`@"
^XMB(3.9,23,2,22351,0)="""DATA"",396.18,239,3,149,0)"
^XMB(3.9,23,2,22352,0)="M>U2"":7E1P=W;&$P+;1W7M=I93&J<S2K%'U,T1)^&&`>^*""7;2`7[(+42WPJC"
^XMB(3.9,23,2,22353,0)="""DATA"",396.18,239,3,150,0)"
^XMB(3.9,23,2,22354,0)="M_IBB233IY]PXHEH.)<1SY_I63C6WMB)->]@_<!$:,T(.`O\](>I3!=CP27Z1"
^XMB(3.9,23,2,22355,0)="""DATA"",396.18,239,3,151,0)"
^XMB(3.9,23,2,22356,0)="MW2OP;KJQ/6-@X\2ME\A5SRJP<*F94[/M@A:;4#W673S(!:,XQZKJ:A8Z!_>J"
^XMB(3.9,23,2,22357,0)="""DATA"",396.18,239,3,152,0)"
^XMB(3.9,23,2,22358,0)="M_X)^#T/R54WQ^VYQ1O&:L>AH$^H_-Z_GS4J-PNWH<^8UW&""U0/H6DK(%F^=1"
^XMB(3.9,23,2,22359,0)="""DATA"",396.18,239,3,153,0)"
^XMB(3.9,23,2,22360,0)="M%!=#Z^@YP[(+K\?@H/N3*U+6XA68L2J<RR\3_++!<W9YGF![JX)98N/=R`'/"
^XMB(3.9,23,2,22361,0)="""DATA"",396.18,239,3,154,0)"
^XMB(3.9,23,2,22362,0)="M^H_""^B>2R5BVQ\U>""-[_MEQN_327J]_L/[?7D%HF@?UVE""S$>D]'`E?*'F(I"
^XMB(3.9,23,2,22363,0)="""DATA"",396.18,239,3,155,0)"
^XMB(3.9,23,2,22364,0)="M'S7CNF7H8_J9<MZV,<(<-=W&D/PUT!V:[[Z<VEA*S`D?64+6!X-'>9X*QD\M"
^XMB(3.9,23,2,22365,0)="""DATA"",396.18,239,3,156,0)"
^XMB(3.9,23,2,22366,0)="MI]-9BIU%LK`U9_G6V$+21X\'EZ'*,_I;(3'G*_H0Y\<O]!\_;E0?55#!+Y&%"
^XMB(3.9,23,2,22367,0)="""DATA"",396.18,239,3,157,0)"
^XMB(3.9,23,2,22368,0)="M6`T+\?$`FV8""H&KT8T81%]1U&^^!EV2'F*BH!.'9SEU2#'U'GZ4D^7)C5BPV"
^XMB(3.9,23,2,22369,0)="""DATA"",396.18,239,3,158,0)"
^XMB(3.9,23,2,22370,0)="MBO[R<D9^641\AU17LD\1`LJ.QWJ<&Y.2%7H,:%WDW/@W_6!U;%(F"".8RH@')"
^XMB(3.9,23,2,22371,0)="""DATA"",396.18,239,3,159,0)"
^XMB(3.9,23,2,22372,0)="M8KWO4_#?YD;^PPG#79;NF).ND)/^2&<;Y(:_1_4F'7T9ABH=>`\+D2BX^@X`"
^XMB(3.9,23,2,22373,0)="""DATA"",396.18,239,3,160,0)"
^XMB(3.9,23,2,22374,0)="MA*V!\<%Y>QXMER]C@W[V+&7L3WM<N[LZMC_\(9&2(DFL=&7<VZHFD\W%6DZ!"
^XMB(3.9,23,2,22375,0)="""DATA"",396.18,239,3,161,0)"
^XMB(3.9,23,2,22376,0)="M/FV6K$K1G+?RVN`$3FO!/ZTY:2)%B>I-VH:35=.\01#+Y\BB:+>=M.U:H6I7"
^XMB(3.9,23,2,22377,0)="""DATA"",396.18,239,3,162,0)"
^XMB(3.9,23,2,22378,0)="MZ*_0*5PED]+BE&<\4WY(F'(O8/$$>4+`(OU,2.I2\C/]'*C>K&8].*?GI;#5"
^XMB(3.9,23,2,22379,0)="""DATA"",396.18,239,3,163,0)"
^XMB(3.9,23,2,22380,0)="M=Q02:@](J)DJS@NE*:$G#2=O,1S^;LO.SDEYSLS_..<5*L,,KP\:E5<`S%(M"
^XMB(3.9,23,2,22381,0)="""DATA"",396.18,239,3,164,0)"
^XMB(3.9,23,2,22382,0)="M3.`Z>XX*DP][=/;;;Z*6(%%PN%&/C10%+:''$[4A*PII7836LYZL]#_N/XX<"
^XMB(3.9,23,2,22383,0)="""DATA"",396.18,239,3,165,0)"
^XMB(3.9,23,2,22384,0)="M5A];J#)\G]S4IS?KON,`?$S317AE44?&,IR03U+&^PACO#/+D(G-TL^V2.KY"
^XMB(3.9,23,2,22385,0)="""DATA"",396.18,239,3,166,0)"
^XMB(3.9,23,2,22386,0)="MDYSQ2FZ&5D^T?PM@/);/0]-3[F6.<8Z?MJK_\-.V*$\JRU!='9:4]?<'`'8`"
^XMB(3.9,23,2,22387,0)="""DATA"",396.18,239,3,167,0)"
^XMB(3.9,23,2,22388,0)="M9LE$#6E7""UWFIHHS#7275)RD`'!>Q:X_'T0NR%*._E=(&NFR=Z0A_#V]9!I."
^XMB(3.9,23,2,22389,0)="""DATA"",396.18,239,3,168,0)"
^XMB(3.9,23,2,22390,0)="MO6K*,09Y1%#(OQJ61GQ84:A!X+R;#YE@2#.[I#8,AQ6)IP#9[H<0SPJQ*,C)"
^XMB(3.9,23,2,22391,0)="""DATA"",396.18,239,3,169,0)"
^XMB(3.9,23,2,22392,0)="M7X66$2&^H;P^*P+&1/^6O3G'WKRQ8XAX#Y8GBW73U<K`47])A>69BDEBQ#M4"
^XMB(3.9,23,2,22393,0)="""DATA"",396.18,239,3,170,0)"
^XMB(3.9,23,2,22394,0)="M4CH=P6/%&S(N&L=*2><B>*R$E-""@;HL!F_E_],KX:[:D;VE>5;>B1=3]ACV$"
^XMB(3.9,23,2,22395,0)="""DATA"",396.18,239,3,171,0)"
^XMB(3.9,23,2,22396,0)="M""*L1;OK""I:-\IF)B$3*+<-4C'H_N>&(\V=L@GZS5]DLA""=QR/MQ^>Z<NOI>V"
^XMB(3.9,23,2,22397,0)="""DATA"",396.18,239,3,172,0)"
^XMB(3.9,23,2,22398,0)="MJK'[(`GAK*0.OJ*XEG8T^I#@?IJQRV:W74XQ42W<N02UD$%$474Y^C&//78S"
^XMB(3.9,23,2,22399,0)="""DATA"",396.18,239,3,173,0)"
^XMB(3.9,23,2,22400,0)="MU<*$J!:.>#``ZX):F.YQM3`CB75&Z]?8L8M^J1\X;INZK#LN9*%R1?`W`G)%"
^XMB(3.9,23,2,22401,0)="""DATA"",396.18,239,3,174,0)"
^XMB(3.9,23,2,22402,0)="M)AP,0(A+\DZ85ZV\V76%ZG!PQR17R!XONZVD_E5?9H.5.49X[1?::#,5[CR1"
^XMB(3.9,23,2,22403,0)="""DATA"",396.18,239,3,175,0)"
^XMB(3.9,23,2,22404,0)="M(R/.':IB(]?9*R\QGDNF$\FV\CBTN'X<'75M98+\ZV@KCF'016T0/:_6:_D%"
^XMB(3.9,23,2,22405,0)="""DATA"",396.18,239,3,176,0)"
^XMB(3.9,23,2,22406,0)="M;74""?D(?:I>-XA6S&EHS52_6+#K^JE:R)T(M9$_X<B$H,'\J^RDW\'OOU7[@"
^XMB(3.9,23,2,22407,0)="""DATA"",396.18,239,3,177,0)"
^XMB(3.9,23,2,22408,0)="MPMO5;='$0A,>NWQ-P86[60F-635GJ_95P\$NR:H^D<^3Y,`N8\983D2U8BZ1"
^XMB(3.9,23,2,22409,0)="""DATA"",396.18,239,3,178,0)"
^XMB(3.9,23,2,22410,0)="M'8I^.#C%RL>$BL?$06HPR';%("">,FN_E""1`^M%FZH@Q&7X[$K+@X\[%&>+4<"
^XMB(3.9,23,2,22411,0)="""DATA"",396.18,239,3,179,0)"
^XMB(3.9,23,2,22412,0)="MOT.3N5A;_+QZ9J&*HR](%&N#D^B'HN642,S$KE87C'G$Z9?*5\KVM?+R,+'7"
^XMB(3.9,23,2,22413,0)="""DATA"",396.18,239,3,180,0)"
^XMB(3.9,23,2,22414,0)="MG!$IC?YDJ)%4-P:4',^U%+=@C1V^2^7!16""*U5P>/-U_7M+M:B82&U5S0+*\"
^XMB(3.9,23,2,22415,0)="""DATA"",396.18,239,3,181,0)"
^XMB(3.9,23,2,22416,0)="M/R#9C%4N6[5ZM]W,+)GH#*%C_U(`R0#KA#)SY,'&[(7EP.=+B)-/PAOKWO.="
^XMB(3.9,23,2,22417,0)="""DATA"",396.18,239,3,182,0)"
^XMB(3.9,23,2,22418,0)="M:AV/C`,Z::LNFOEZM6H&@I""Q_BE_*0.\U#O(+N@9CMBA[$.:$RM.F=+Z7``D"
^XMB(3.9,23,2,22419,0)="""DATA"",396.18,239,3,183,0)"
^XMB(3.9,23,2,22420,0)="M&;0]Z%)L)9:ZM$VJAVIB(2I!83)BP>I'64W9KP>""1DPNF@#'3-,1FX!&,(?F"
^XMB(3.9,23,2,22421,0)="""DATA"",396.18,239,3,184,0)"
^XMB(3.9,23,2,22422,0)="M,]0(_=QRUI.R^EBJ%\4]B;6/""US7XXE\T)XB^JF0A*7F,O=O]A]S[U0R-YSA"
^XMB(3.9,23,2,22423,0)="""DATA"",396.18,239,3,185,0)"
^XMB(3.9,23,2,22424,0)="MMY)UV`3K\'D%<^]B(4$.-8A[JQS#W:\7$*W=U6*6)11MERZ_3KQ`#$_H&;GC"
^XMB(3.9,23,2,22425,0)="""DATA"",396.18,239,3,186,0)"
^XMB(3.9,23,2,22426,0)="MU[)$Y>6(&6L$>(PSX)0;E<_T>G`0--A)0NIVEIC%@X./A?O`_+Q#V4(=""B'_"
^XMB(3.9,23,2,22427,0)="""DATA"",396.18,239,3,187,0)"
^XMB(3.9,23,2,22428,0)="M(23=I[U6SRV1E!-A1^YLV>Z4.!:2$\Z')4?\[RLNT[OE)$"">LM=25;CT3A%3"
^XMB(3.9,23,2,22429,0)="""DATA"",396.18,239,3,188,0)"
^XMB(3.9,23,2,22430,0)="M)OHK[`+?$/%>KA_$C1..DK91A44'<8LQJO/>3[B3#Q*&N&LFSE9J_,3!A73H"
^XMB(3.9,23,2,22431,0)="""DATA"",396.18,239,3,189,0)"
^XMB(3.9,23,2,22432,0)="M*2Z3X1,FQ<7S4H$Y:Q,UJL]170%'^>9]:]!9.ZCFW9@2K,,H)?2SH8`\R)V7"
^XMB(3.9,23,2,22433,0)="""DATA"",396.18,239,3,190,0)"
^XMB(3.9,23,2,22434,0)="M%ZS\`M0&.:9ND#9;I&-5P4</@M:B,/JW0HV.-*&I=L/.0?35$?=)+84A16,G"
^XMB(3.9,23,2,22435,0)="""DATA"",396.18,239,3,191,0)"
^XMB(3.9,23,2,22436,0)="M#7_=X^D0X5]Q.M""Y/V%</-8I6+2H-Y5Z/);-M>50&+Q4G<<&URIM*S)*:E:Y"
^XMB(3.9,23,2,22437,0)="""DATA"",396.18,239,3,192,0)"
^XMB(3.9,23,2,22438,0)="M;A3)H3%9^:FV^1)LN57.DZ_@*G4MSIZR*M5""G91IH56<Q[*7G[R""A62?0U)Y"
^XMB(3.9,23,2,22439,0)="""DATA"",396.18,239,3,193,0)"
^XMB(3.9,23,2,22440,0)="MT%MQ+%D:!W(UE\E;T7BM92769@NY7K60X[%>JG</!YFP<9$K_H#QW*]Y$W71"
^XMB(3.9,23,2,22441,0)="""DATA"",396.18,239,3,194,0)"
^XMB(3.9,23,2,22442,0)="M\<FVVH%VX#RNT(U=)!R)DW'S8-32%GDULUJR:C7:#@IOL76#9N_N=?\""2Y6Z"
^XMB(3.9,23,2,22443,0)="""DATA"",396.18,239,3,195,0)"
^XMB(3.9,23,2,22444,0)="M`X@'NE$A>`?X4)R[;!I52/`U9AV[.DL;X:%!,01.;<&HX18]-5P4F%\PRO.F"
^XMB(3.9,23,2,22445,0)="""DATA"",396.18,239,3,196,0)"
^XMB(3.9,23,2,22446,0)="M6(*8((6$#NXYIQ>,1>U4!Z,E\%E.-0S4R;1(?2.95N-H_EG*:4F,_1O;L/OX"
^XMB(3.9,23,2,22447,0)="""DATA"",396.18,239,3,197,0)"
^XMB(3.9,23,2,22448,0)="M;?##PH:-W]IC>C,CX&`.)R3L=TYU]-_[(1""P2ZFV@&W]%:J)#?06,(/R)@9%"
^XMB(3.9,23,2,22449,0)="""DATA"",396.18,239,3,198,0)"
^XMB(3.9,23,2,22450,0)="M;!TA:`$NR8KB(B:W%6G$B;06Q$5PGS2#T1F/""2_@83IEF=0.[E9L_RUPV_\@"
^XMB(3.9,23,2,22451,0)="""DATA"",396.18,239,3,199,0)"
^XMB(3.9,23,2,22452,0)="M).(#11Y4U(-,@09!6E<B#:79R&#WOSTLC=RAJJ(Z4W'I!2P&\^.*,C)I?8@8"
^XMB(3.9,23,2,22453,0)="""DATA"",396.18,239,3,200,0)"
^XMB(3.9,23,2,22454,0)="MMRHT6ZZ9-@05E]&55!MZV5-/YA]=&>S8(RL=K>NP\=\(*6ZS\30GH.5K;<HJ"
^XMB(3.9,23,2,22455,0)="""DATA"",396.18,239,3,201,0)"
^XMB(3.9,23,2,22456,0)="M%K3!*1M]B@2[IA%D`3.H-7A"".HH<LE4]HTRS&7G`,3:Z30&X3G9`>&:5K]K%"
^XMB(3.9,23,2,22457,0)="""DATA"",396.18,239,3,202,0)"
^XMB(3.9,23,2,22458,0)="M>KF&E:U9(A58VSI'V\^:""`1_ZP+6T!S""AT4`XG0X>`=6UI!,#TD*ZE!CP""LF"
^XMB(3.9,23,2,22459,0)="""DATA"",396.18,239,3,203,0)"
^XMB(3.9,23,2,22460,0)="M,0KSS%?9$CPB+(';-[PM594J'.NHX*MA*8B>:T-3!M%9S:M&ODXUC-NFZY6*"
^XMB(3.9,23,2,22461,0)="""DATA"",396.18,239,3,204,0)"
^XMB(3.9,23,2,22462,0)="M[2!C!2<I:MIDV2P9CK9ZRBP`GE+'6J?6D=:9D3@1UB;ZB9!J<7KL.E_9(LP,"
^XMB(3.9,23,2,22463,0)="""DATA"",396.18,239,3,205,0)"
^XMB(3.9,23,2,22464,0)="M`^2_C2S!""3@>/\+%A(""4T![*#-JU@L/M0@$CAZ]C:]!8C50,JZ@`(E:+&,]"""
^XMB(3.9,23,2,22465,0)="""DATA"",396.18,239,3,206,0)"
^XMB(3.9,23,2,22466,0)="MJ>.=G(I4MCT`LYUGL.Z*Y`Q<3Z*)M&3<'R4IH'&\'I+PJFT5*>T!F6WAI(@W"
^XMB(3.9,23,2,22467,0)="""DATA"",396.18,239,3,207,0)"
^XMB(3.9,23,2,22468,0)="M27M$#`2)_YC$38<\W#0L3#W13-JN:)S-[<>%6>L'72""1$6(A""Q_-@6CU?,`,"
^XMB(3.9,23,2,22469,0)="""DATA"",396.18,239,3,208,0)"
^XMB(3.9,23,2,22470,0)="MH9$`KR-<8M%06*H83G""W_[9^<#ON5BDF60AK9R40LC\,2'J1'?W3UPSLD^HZ"
^XMB(3.9,23,2,22471,0)="""DATA"",396.18,239,3,209,0)"
^XMB(3.9,23,2,22472,0)="M3W\V)29Q;0](0*,JK]K[F$V+H]P7T&1\VFWKH*P6$`=""0@K6^5F%@HQS^^R\"
^XMB(3.9,23,2,22473,0)="""DATA"",396.18,239,3,210,0)"
^XMB(3.9,23,2,22474,0)="MA9$C=<.I6%5ZD.=X-+ZI&@BD/T[>]8^>R,2>CGUBKAA8+XN!<7&9H+HB^BU%"
^XMB(3.9,23,2,22475,0)="""DATA"",396.18,239,3,211,0)"
^XMB(3.9,23,2,22476,0)="M^Z5DKN6V>6NP4[5HH:ND@-0%_(MC%_'/._#/LTC]9I^2RE#Z82A@DCEQDE.!"
^XMB(3.9,23,2,22477,0)="""DATA"",396.18,239,3,212,0)"
^XMB(3.9,23,2,22478,0)="MD_3SNX0;)SE\$MD7Q'M2GW4=HMK0.9A9P3)K!`1)VTT?P5SG,%J2+7UAVW&C"
^XMB(3.9,23,2,22479,0)="""DATA"",396.18,239,3,213,0)"
^XMB(3.9,23,2,22480,0)="MK)O8:6&3-MF('/J=5L'C)$=%Y(J'P'U""\6:VK5OD,+]%A`-IN,>4]*4N+""(M"
^XMB(3.9,23,2,22481,0)="""DATA"",396.18,239,3,214,0)"
^XMB(3.9,23,2,22482,0)="MU9BWC/9NETB@JU7D8E>9_R-.TST""39G.--GA^%A""-RN6@XP,Z@]:-(VJ-IP<"
^XMB(3.9,23,2,22483,0)="""DATA"",396.18,239,3,215,0)"
^XMB(3.9,23,2,22484,0)="M2ZD>I\<RBL=W3''/DN+CED""OHDM(VP0LX.BW0U)1W;W\`OO=?O#6Z$H1#?;>"
^XMB(3.9,23,2,22485,0)="""DATA"",396.18,239,3,216,0)"
^XMB(3.9,23,2,22486,0)="MO%A/'IGUS\NZ:,U;A:X`>9+(`+?P9D+&MB5$IEG-`,&%CKXGU'I(I/W`=%J<"
^XMB(3.9,23,2,22487,0)="""DATA"",396.18,239,3,217,0)"
^XMB(3.9,23,2,22488,0)="M-(-<&^:N[+>YF2&)'H=<@\YK4`S,5<2W<`[[>C]PV![5T<Q(F#(KX3S->SEL"
^XMB(3.9,23,2,22489,0)="""DATA"",396.18,239,3,218,0)"
^XMB(3.9,23,2,22490,0)="MG0S8T%T,QCI.TK.ZI;7J5#6#@<1YBC#8)Y830PW2;R.;Q'R5Z%Y^Z-X1$G*O"
^XMB(3.9,23,2,22491,0)="""DATA"",396.18,239,3,219,0)"
^XMB(3.9,23,2,22492,0)="M>KP`""&HQ(S-2,[+-/.!PI/_JPO<J#VI"":OH,B2`1R_]&FS:M&]@'W64,)S6="
^XMB(3.9,23,2,22493,0)="""DATA"",396.18,239,3,220,0)"
^XMB(3.9,23,2,22494,0)="M:;43N&J@E!B`>Y$I@2^K4D""0KD^\J/I!JYPOUHEJ7L`=>NPYO6A@O9JNU8A?"
^XMB(3.9,23,2,22495,0)="""DATA"",396.18,239,3,221,0)"
^XMB(3.9,23,2,22496,0)="ME8.4LG*VHU*)!,-QI[V$7F<3_HIBPB-N`FC%*IH59Y$8"".>-:MZFO[)$T#?_"
^XMB(3.9,23,2,22497,0)="""DATA"",396.18,239,3,222,0)"
^XMB(3.9,23,2,22498,0)="MG/J(/\A&B[Y&,]]6LIR+2\WE7[13^S(K+""B'I7E%@6V52N1:M2\W$9,=1XI)"
^XMB(3.9,23,2,22499,0)="""DATA"",396.18,239,3,223,0)"
^XMB(3.9,23,2,22500,0)="M(+A@6,@(6W&""_*-=-LTKZ-^54V@A%M`/0^=X0+M$'ZE""Q0FIB=070IZ)'A;$"
^XMB(3.9,23,2,22501,0)="""DATA"",396.18,239,3,224,0)"
^XMB(3.9,23,2,22502,0)="M=:PW@/L#C+.TN""L_ZB'VE%""<&F_+),N18V$4K1O(N,S;Y:OUHH-K'4W&(P?G"
^XMB(3.9,23,2,22503,0)="""DATA"",396.18,239,3,225,0)"
^XMB(3.9,23,2,22504,0)="MJYA-2D9Q%,.16_FQ?!'_,Z)-B']:1F:J\L\K9LVJT3\W,*AYWF2""P1G1)J<M"
^XMB(3.9,23,2,22505,0)="""DATA"",396.18,239,3,226,0)"
^XMB(3.9,23,2,22506,0)="MQ'*F7C'0<N!@!O^S^]$>..@]1AGG8F'7<,FNX?2M*OKSLH.;E[(OCV@/'\<]"
^XMB(3.9,23,2,22507,0)="""DATA"",396.18,239,3,227,0)"
^XMB(3.9,23,2,22508,0)="M(\SKBG$JN(FB3?^6/1TEB5LV/I!%>]:=SRAV$:`)(ML:,8DP_KHIZSJBD3UH"
^XMB(3.9,23,2,22509,0)="""DATA"",396.18,239,3,228,0)"
^XMB(3.9,23,2,22510,0)="M/WP27HK!"">FO?T(OJ7M@\W,=M-/LXOMYG^HZ2H^KNDR_.P`M""8_=/6A)$BTY"
^XMB(3.9,23,2,22511,0)="""DATA"",396.18,239,3,229,0)"
^XMB(3.9,23,2,22512,0)="M,1]Z5UN0+=(5'1/'>6HI1440GXO<:+L;9J1M[3HNSGK4D\AW3KA6>D2Y]KU!"
^XMB(3.9,23,2,22513,0)="""DATA"",396.18,239,3,230,0)"
^XMB(3.9,23,2,22514,0)="M,P*IT?>&/+2*5VBJ5>^G6SJU]HR08Q:DY(-R^X9<3YCK9]2U_4K.2XK=L9G;"
^XMB(3.9,23,2,22515,0)="""DATA"",396.18,239,3,231,0)"
^XMB(3.9,23,2,22516,0)="MZJJ_DG^^7II%AZ/;!$A6M*IW+,&J9J;N-9_*X)O8CYZEB&R2D""9XC7ND*O!"""
^XMB(3.9,23,2,22517,0)="""DATA"",396.18,239,3,232,0)"
^XMB(3.9,23,2,22518,0)="MO,>-ZIA4S_\8T#K%^>V+_7!/WZEL+`)W6UER6Y6]'+;!O::-XJ)C=1N+P2VU"
^XMB(3.9,23,2,22519,0)="""DATA"",396.18,239,3,233,0)"
^XMB(3.9,23,2,22520,0)="M44(@?T%A3.Z?F,.U!E@IO%ZKFD@:8U@P7EY@X&8^ONP'@OFGJ57W@>7D/V9D"
^XMB(3.9,23,2,22521,0)="""DATA"",396.18,239,3,234,0)"
^XMB(3.9,23,2,22522,0)="M;Y1R!@YR_BL(_->#]4QK!?[+25WGG_!XC;_1#^QW0'ELTR+[#3:_X""Z;QI4N"
^XMB(3.9,23,2,22523,0)="""DATA"",396.18,239,3,235,0)"
^XMB(3.9,23,2,22524,0)="MO.`R(G#=KJ5SG_<VDJ#Q`)XBNH5SPQ.""SZ!'>K(K)0S#VGLGE3""?O(D2QH_["
^XMB(3.9,23,2,22525,0)="""DATA"",396.18,239,3,236,0)"
^XMB(3.9,23,2,22526,0)="MQJ5JWC(L[8/]W);C+N55""+J5(WF4;?^K\(1UXX;5?<R8`F:<$N.-G;B4&7+%"
^XMB(3.9,23,2,22527,0)="""DATA"",396.18,239,3,237,0)"
^XMB(3.9,23,2,22528,0)="ME(@\WRRO1WVJ@7N?((?ZZ5`C+LB=-P'IO\&42XES!PP,I.`I++E8O'T0C$W$"
^XMB(3.9,23,2,22529,0)="""DATA"",396.18,239,3,238,0)"
^XMB(3.9,23,2,22530,0)="M`RHT`T,6G7;'1`UG.SLU_1IQC/*^8-1KNL'UCM+/@RS1M#A](V#ZR5RN54/T"
^XMB(3.9,23,2,22531,0)="""DATA"",396.18,239,3,239,0)"
^XMB(3.9,23,2,22532,0)="MCDME@R""BX604HW@%N_VM4L5&SV:+IK83I];@YWK=_9Y1HYY?;=]E^`OAP[I3"
^XMB(3.9,23,2,22533,0)="""DATA"",396.18,239,3,240,0)"
^XMB(3.9,23,2,22534,0)="MQ]W*=#[$1N%+(.<#KGU0IOY,;DO_OZ&^0H\\J.(LUI5Z7!(U=?]K_[1I%(S\"
^XMB(3.9,23,2,22535,0)="""DATA"",396.18,239,3,241,0)"
^XMB(3.9,23,2,22536,0)="M@ME=DB:NZ@G?B:1AMN;M4F')(55>1[T:X&%COBHZSN-+D5@PHVDBL3[()-8#"
^XMB(3.9,23,2,22537,0)="""DATA"",396.18,239,3,242,0)"
^XMB(3.9,23,2,22538,0)="M;*B]-S]\$U<UI/^R4F*ENU!B)<3I7PZ<?LNNLY535KE>PQB`IY$:YFB#.`NM"
^XMB(3.9,23,2,22539,0)="""DATA"",396.18,239,3,243,0)"
^XMB(3.9,23,2,22540,0)="M@'LL;G!3R>B3H*DEQ:D]%3BU3*M%-[L>(%WQJHNZD:]95W$?3[QP7!3>Y?V<"
^XMB(3.9,23,2,22541,0)="""DATA"",396.18,239,3,244,0)"
^XMB(3.9,23,2,22542,0)="M?39*EKEH(>77+&AWJ`>""CP/$9UQ45WA=,,\$F.R';.P1I=C)B,EL#()P3-'."
^XMB(3.9,23,2,22543,0)="""DATA"",396.18,239,3,245,0)"
^XMB(3.9,23,2,22544,0)="M\&X6^Z=HWSB^#;A*N(]LWIJS\OII=)?9U<4NZ!)]F]2=E5Z.WZ1VP-;P,B:H"
^XMB(3.9,23,2,22545,0)="""DATA"",396.18,239,3,246,0)"
^XMB(3.9,23,2,22546,0)="MQ=,B?B[KI_P:-P""^&Q(0\7H<.B4N04(QB./H.SBQ[^T'MKE;65T9$].$_]F;"
^XMB(3.9,23,2,22547,0)="""DATA"",396.18,239,3,247,0)"
^XMB(3.9,23,2,22548,0)="M7>\""=MPS>1UC;T@Y(08I[K$K1=+_4Z]A[""*<1:(?+!1&]5)I5%]$_XVXB?<*"
^XMB(3.9,23,2,22549,0)="""DATA"",396.18,239,3,248,0)"
^XMB(3.9,23,2,22550,0)="M7(VU8C2,SN8^""<@EJF#B_<RW3U]>PC,BCXY,5RQ<37@<O6>)J_V]FZL8)21P"
^XMB(3.9,23,2,22551,0)="""DATA"",396.18,239,3,249,0)"
^XMB(3.9,23,2,22552,0)="MW`>`N)]0(8:<L(SY,@;'Q&3IM3JZG?6#)E[^HR/J'%BQC""#Z;K:-[U(.#AM8"
^XMB(3.9,23,2,22553,0)="""DATA"",396.18,239,3,250,0)"
^XMB(3.9,23,2,22554,0)="MX""\Y6""H=H?ND'EQ,_^?>A^C?*P:/SQ`@%IQA@,\)F;]P*-S,(@RO85;]WL@Z"
^XMB(3.9,23,2,22555,0)="""DATA"",396.18,239,3,251,0)"
^XMB(3.9,23,2,22556,0)="MT=`W[F-R[KRB7/D""5E5,O>`!EI/&@YC[OX2D8QY9\)[R/2?$\RW,G:^1\BRK"
^XMB(3.9,23,2,22557,0)="""DATA"",396.18,239,3,252,0)"
^XMB(3.9,23,2,22558,0)="M,58@A/""K]+4/AUO/=US91%ZW5!L'!^Y.J;;$Q<;>(TCP]FKCMETV'-KIFAS-"
^XMB(3.9,23,2,22559,0)="""DATA"",396.18,239,3,253,0)"
^XMB(3.9,23,2,22560,0)="MDE&TYLM(%KCU""U&_^@47V+6A5T7C_9,4N>5AF/P(%P7[W<EGT[T!;.*E483Z"
^XMB(3.9,23,2,22561,0)="""DATA"",396.18,239,3,254,0)"
^XMB(3.9,23,2,22562,0)="MCL;#@43V@@-38\BZ:UQD78G&]X<\-`I>BVQ&RI_R#""4>B:@6;F1B<22W_%BJ"
^XMB(3.9,23,2,22563,0)="""DATA"",396.18,239,3,255,0)"
^XMB(3.9,23,2,22564,0)="MQO0,""27-_QIJ/J8`I""/47:JV51+&+X4""MS7;V]T^&"";/#TD=+U9R@^/#_:`Y"
^XMB(3.9,23,2,22565,0)="""DATA"",396.18,239,3,256,0)"
^XMB(3.9,23,2,22566,0)="M'5*I*J`S_J(,=?):0#?&T[93L6HXP8Z6@2').4VOP>Y25)B;XXC8V4?5C'$+"
^XMB(3.9,23,2,22567,0)="""DATA"",396.18,239,3,257,0)"
^XMB(3.9,23,2,22568,0)="MHXA<^,7`/""=V4.B@C\)RK0E[1\T2%'1LOX_2C%$R.BX&TZTYG=P=>.F,2J5J"
^XMB(3.9,23,2,22569,0)="""DATA"",396.18,239,3,258,0)"
^XMB(3.9,23,2,22570,0)="M7[<P:A'1-7Q>FQ!>ZV)-/JE`#[F(%`FZ*PS^#I04GY&3(D%;6'@K[%4I'%QU"
^XMB(3.9,23,2,22571,0)="""DATA"",396.18,239,3,259,0)"
^XMB(3.9,23,2,22572,0)="M:1KY!1V=_G)M5)^SBK@TGMR@E!ZK/(?;P.""OC^*N5(B']\(]N5>?(T!4_`O$"
^XMB(3.9,23,2,22573,0)="""DATA"",396.18,239,3,260,0)"
^XMB(3.9,23,2,22574,0)="M$T#_#""],I>XLD)$<VMIJEF@+""CU;FGQ*7);7O4E-[KJ,""W:R@>:]()]B*""$E"
^XMB(3.9,23,2,22575,0)="""DATA"",396.18,239,3,261,0)"
^XMB(3.9,23,2,22576,0)="M*X6C=G06-5]HNQ@X>.^G2""M??O.:=C$KCU8'</PP-^5FAV_3KL$6.TS)Q2X0"
^XMB(3.9,23,2,22577,0)="""DATA"",396.18,239,3,262,0)"
^XMB(3.9,23,2,22578,0)="M0WN%OJ_BT?X.^&I_K34)$ZXQB;E.-J:&N;=8,C:>5>A=:X28JCA2*6BD7*(W"
^XMB(3.9,23,2,22579,0)="""DATA"",396.18,239,3,263,0)"
^XMB(3.9,23,2,22580,0)="MTK""]]W-&//S/LL/_H;!',8XGT[T`RSS@>^13TA'\O9#_$?3T..NLJUI<QH@Y"
^XMB(3.9,23,2,22581,0)="""DATA"",396.18,239,3,264,0)"
^XMB(3.9,23,2,22582,0)="M[H_MR^R`UGU4/F_,2F^\TLX;HVWW<1,9+1H)>X[.H^SHY-*Q5`\<G97^KN2L"
^XMB(3.9,23,2,22583,0)="""DATA"",396.18,239,3,265,0)"
^XMB(3.9,23,2,22584,0)="M6+MXF\>5_%P_:':CJLL14""""B'Y""[^OYY`+)'%SJ0E1U^(:GJ(7KY5L/+>/G*"
^XMB(3.9,23,2,22585,0)="""DATA"",396.18,239,3,266,0)"
^XMB(3.9,23,2,22586,0)="MD3.X""S]/!=&3X<8HW+#OW1ONY.YEL#3A!D(5W7(\@B_2R0LAR!C]>*CI""^EE"
^XMB(3.9,23,2,22587,0)="""DATA"",396.18,239,3,267,0)"
^XMB(3.9,23,2,22588,0)="M?RM/?;0I@""^(#5ZXQ'\']6""5E-/U1MB-+R&;H'J#2YW#,U4T<\3VJS9AV>,^"
^XMB(3.9,23,2,22589,0)="""DATA"",396.18,239,3,268,0)"
^XMB(3.9,23,2,22590,0)="MOXA11:/OB6R1'_.OKYZHUVSZ7`3+5;*K5$I_3V.VJJO);F5<.FN2XD:S9EC("
^XMB(3.9,23,2,22591,0)="""DATA"",396.18,239,3,269,0)"
^XMB(3.9,23,2,22592,0)="MFC]Z:P32&KHU9*#!IC994LH69\G(GU98&_,SE#5-BD?IQA>9BY1\FK>J^7H)"
^XMB(3.9,23,2,22593,0)="""DATA"",396.18,239,3,270,0)"
^XMB(3.9,23,2,22594,0)="M1X'SX*^URA:IM2H996O.1)]0[9[""5NL%),^QGY68(H_5D5%T""PYPL$W#].T?"
^XMB(3.9,23,2,22595,0)="""DATA"",396.18,239,3,271,0)"
^XMB(3.9,23,2,22596,0)="M2(55;OF+>Q#6,1\O(M""L';V)UW3+]:&JS*J8L,71[S-=[6W>^6_""R@#:#,?"""
^XMB(3.9,23,2,22597,0)="""DATA"",396.18,239,3,272,0)"
^XMB(3.9,23,2,22598,0)="MY7<WA8C_N%E$)$4B]`@0<<%+Q'H""7:CGH>Q8;61#0]7H""U2L?L>#A.Z>^P/'"
^XMB(3.9,23,2,22599,0)="""DATA"",396.18,239,3,273,0)"
^XMB(3.9,23,2,22600,0)="M:0,BUV?O$,NYMF`YN)0164G8.=%UQS8EPI=$7V`JY5<5T94QCJ#J6`7$X22;"
^XMB(3.9,23,2,22601,0)="""DATA"",396.18,239,3,274,0)"
^XMB(3.9,23,2,22602,0)="M""E%9M4MZOI'ZP)B;-`%1?D8?81-XIS)VQ"";@>9T3^#ZY4AP8]56ZJ?_$WOB,"
^XMB(3.9,23,2,22603,0)="""DATA"",396.18,239,3,275,0)"
^XMB(3.9,23,2,22604,0)="MXHV[^1N1,E+!1YVH'EXB?3H3`6V#1""1LAM.SRON>2/SP+>0@><X9<<Y3`7-."
^XMB(3.9,23,2,22605,0)="""DATA"",396.18,239,3,276,0)"
^XMB(3.9,23,2,22606,0)="M=,^<LU*SNZ!))V_)I#T>DYP*$%F53!E+Q&(*?X+@,A&OYNB[F#OALUZ;,):("
^XMB(3.9,23,2,22607,0)="""DATA"",396.18,239,3,277,0)"
^XMB(3.9,23,2,22608,0)="M]XB[?W`&""M79+M/?$B*E:\.>$/9)@=)T>PU>IVN8C[5-2$>;QW:'A<S)1?V:"
^XMB(3.9,23,2,22609,0)="""DATA"",396.18,239,3,278,0)"
^XMB(3.9,23,2,22610,0)="MC99)6W6F5*G:5\V""KFT7JR7U:T=T7""[@8&1+1PF&*SE)?*B""X/#S(8FLR-L9"
^XMB(3.9,23,2,22611,0)="""DATA"",396.18,239,3,279,0)"
^XMB(3.9,23,2,22612,0)="M59,N58GQ#J!^1<#>P6GH*X%F.W/DPHRV\00B!'O0:=<`\J6A!^HU#,))\,2O"
^XMB(3.9,23,2,22613,0)="""DATA"",396.18,239,3,280,0)"
^XMB(3.9,23,2,22614,0)="M+\Z;96W@^(6)""]I:K!\OF#:R+4N+3>A=T2+V'8!>1?=34VF0[>KO\%T]Y-*?"
^XMB(3.9,23,2,22615,0)="""DATA"",396.18,239,3,281,0)"
^XMB(3.9,23,2,22616,0)="MC+45)]X_W?R>ZA#J5E,Y]J2KM,PH^1SGQ#'NV(O'<[W4%F.E0NQ(Q+X81&PL"
^XMB(3.9,23,2,22617,0)="""DATA"",396.18,239,3,282,0)"
^XMB(3.9,23,2,22618,0)="MUU/$#K9X<C,@>->3%?@>6X'/\(-[P(71R+67X+#[,NZ!84&2`T\""83J(D.?@"
^XMB(3.9,23,2,22619,0)="""DATA"",396.18,239,3,283,0)"
^XMB(3.9,23,2,22620,0)="M>V8'3MEV01LX:5A5;>"""";5>%P[M*U2PC+6E%_\G(>8.3<Y=`3J*7-G2UG^\V"
^XMB(3.9,23,2,22621,0)="""DATA"",396.18,239,3,284,0)"
^XMB(3.9,23,2,22622,0)="M)B&+,4""(GW(IYALRA.]L[F;#@OM6.E!""G6+^)T7S*$CKR*32N15\^I<7K)K9"
^XMB(3.9,23,2,22623,0)="""DATA"",396.18,239,3,285,0)"
^XMB(3.9,23,2,22624,0)="M:GYT*.2[W++2$[3>:\^4G5JU3MMON2];VY+#7!!2X@9'CT0\0NJ4H#'T0A;I"
^XMB(3.9,23,2,22625,0)="""DATA"",396.18,239,3,286,0)"
^XMB(3.9,23,2,22626,0)="MFH#<:PA]_%Q(`L6(<^?84/_!L(VI,B/@C)\@R[`6EN%C""N_Y-I8809WEV"".#"
^XMB(3.9,23,2,22627,0)="""DATA"",396.18,239,3,287,0)"
^XMB(3.9,23,2,22628,0)="M%)QZR;CU^1`B/1`K'Y;:Z#VO,%;WXNS'49X(P=,@:18D)NQH]V""1Q81*`;?%"
^XMB(3.9,23,2,22629,0)="""DATA"",396.18,239,3,288,0)"
^XMB(3.9,23,2,22630,0)="MW%F_6I9;><K:3U[/BEN6ABU;P3GQ0V+R>@^""/PY)W:9B,=;FE+H,[@9ZO\AC"
^XMB(3.9,23,2,22631,0)="""DATA"",396.18,239,3,289,0)"
^XMB(3.9,23,2,22632,0)="M=8_W0ZSN""./-(2F?)!9/@3_I[^14K)<5$F<'J](%W[]^T9S#0&.X?_2MC]5Y"
^XMB(3.9,23,2,22633,0)="""DATA"",396.18,239,3,290,0)"
^XMB(3.9,23,2,22634,0)="M""(/$ZZ-26<*W%4DZ5DP?TR<P'EOML!X_A'XYO5BQ2>V0>5A/X`?G<?Y0\;"">"
^XMB(3.9,23,2,22635,0)="""DATA"",396.18,239,3,291,0)"
^XMB(3.9,23,2,22636,0)="MA$_-*OUXE&""0V_6:CH'@ZLYA/:7\!GRL<.XU3CL-:<]?""DF]YH>]VT&^]Z:L"
^XMB(3.9,23,2,22637,0)="""DATA"",396.18,239,3,292,0)"
^XMB(3.9,23,2,22638,0)="M>VL+#H`AT5\*2S/?[9WYBHOXP:V8.I/F&V5I'HL!H!""+>9X+-R)A;_*-L49;"
^XMB(3.9,23,2,22639,0)="""DATA"",396.18,239,3,293,0)"
^XMB(3.9,23,2,22640,0)="M#'EZWLGZ9OT/-5I.A_VS+]8<F""@6X12V']WUOAETV;>&F[Y9.]!F_;@0_QQN"
^XMB(3.9,23,2,22641,0)="""DATA"",396.18,239,3,294,0)"
^XMB(3.9,23,2,22642,0)="MC'^B5S.K90,Y))/`EA_ATO;[H;:""H#\?[C`(ZCF]X)Z+D'FMAP79YPV5K#EF"
^XMB(3.9,23,2,22643,0)="""DATA"",396.18,239,3,295,0)"
^XMB(3.9,23,2,22644,0)="MY<V*HQ]/CV6Z(A[BH20I4A('2@YX*5D[4P52,F/CW4D*:(\#A)1'@)137E(V"
^XMB(3.9,23,2,22645,0)="""DATA"",396.18,239,3,296,0)"
^XMB(3.9,23,2,22646,0)="M'\.^/<NN&@7+*%K=O#MI@20WIS;KI6GH)#K&2!NZWZQ>T8^/C\W$NY,@B+BL"
^XMB(3.9,23,2,22647,0)="""DATA"",396.18,239,3,297,0)"
^XMB(3.9,23,2,22648,0)="M(`1]G1&4\1*T_FS9-""DY^KGD6*H[R<F*Y'""4X4E%('RB?*7(Z)GNSLUA>`(#"
^XMB(3.9,23,2,22649,0)="""DATA"",396.18,239,3,298,0)"
^XMB(3.9,23,2,22650,0)="M,F9\RKLY&R9F""W:)5/_-X+.6Z$9Z8N/283O/=N>T(D(N-\Q4Q#H]8\-U?""F\"
^XMB(3.9,23,2,22651,0)="""DATA"",396.18,239,3,299,0)"
^XMB(3.9,23,2,22652,0)="ME,%]G*_N`V)RP+8L$+G&'#M_P77N$6IQ#&1BXPE?U^N@Z'H%CZJGDUDXID7B"
^XMB(3.9,23,2,22653,0)="""DATA"",396.18,239,3,300,0)"
^XMB(3.9,23,2,22654,0)="MA[1(`OV?1/^G#@6WB5-.%SH/0-IY\'S_O[VKCY'DN.HSTWNS][&W]^D[WUEG"
^XMB(3.9,23,2,22655,0)="""DATA"",396.18,239,3,301,0)"
^XMB(3.9,23,2,22656,0)="M=^S#[#I[=SW],3VS=@A[7^$BV6?M76PP&-0[T[/;OIX/IF=V;PX#24A03+""P"
^XMB(3.9,23,2,22657,0)="""DATA"",396.18,239,3,302,0)"
^XMB(3.9,23,2,22658,0)="MD""!10L2'D/,'$8I0A`B(\!&""2$2L*`J)(`CQ82(2/A20^0,A%*JJJZJKIJM["
^XMB(3.9,23,2,22659,0)="""DATA"",396.18,239,3,303,0)"
^XMB(3.9,23,2,22660,0)="MNF9G;V\,)TONV9WM5^_5JZKW7KWW>]H.CC>?=;PE5KR/I0S7KNS@<`M9A\ME"
^XMB(3.9,23,2,22661,0)="""DATA"",396.18,239,3,304,0)"
^XMB(3.9,23,2,22662,0)="M]:>/M[R#XU6RCM=@Q7LC31MV<K@S68=K<N)-':^Y@^/=DW6\%BO>%V,)M(PV"
^XMB(3.9,23,2,22663,0)="""DATA"",396.18,239,3,305,0)"
^XMB(3.9,23,2,22664,0)="M[.3F4,PZW#(GWA?3M'<GQ3N;=;PV(U[E2[F4\9:M'1SO_JSCK7`U/^D#WLGU"
^XMB(3.9,23,2,22665,0)="""DATA"",396.18,239,3,306,0)"
^XMB(3.9,23,2,22666,0)="M=B#K@-G#3?GOM/':.WE:S&4<K\F=;M&`12NNO)/GQ<&L`\:N:A@V6""!WG1>'"
^XMB(3.9,23,2,22667,0)="""DATA"",396.18,239,3,307,0)"
^XMB(3.9,23,2,22668,0)="M2V3!>*MR*0<GX7O5IWT'MHA6%RXZ:UXKN.4M)E>FWT^^#"".!J/%I&*18+)Z\"
^XMB(3.9,23,2,22669,0)="""DATA"",396.18,239,3,308,0)"
^XMB(3.9,23,2,22670,0)="MW.X&'OWQREH+_P)G7D1\SV?EV^`F*IUQR9I\%)&ZZYP?BG-^6G19#TUYTEYS"
^XMB(3.9,23,2,22671,0)="""DATA"",396.18,239,3,309,0)"
^XMB(3.9,23,2,22672,0)="M@P.JCFOIGI*A:SNIIGME!FUQ4S9BU/8.CIIF#1QF`;DUC<1]0H_B>:)3R_GX"
^XMB(3.9,23,2,22673,0)="""DATA"",396.18,239,3,310,0)"
^XMB(3.9,23,2,22674,0)="M`&V[,DV)`X>3.#8X/^>'"",N&D.6I2GXY,G35<Y2YZK%@\%'#GL&+'`3T'].["
^XMB(3.9,23,2,22675,0)="""DATA"",396.18,239,3,311,0)"
^XMB(3.9,23,2,22676,0)="M+>O-<->C$0_W*%MQC]C'MMI+_&7/)U.NEU?=3<_=@I>PJVX-<![L_O7RD2&V"
^XMB(3.9,23,2,22677,0)="""DATA"",396.18,239,3,312,0)"
^XMB(3.9,23,2,22678,0)="M2)DZ2F4J-(8;ET5N^W':I@OLR]V0G5TI8`@3:@]'"";5H=C`;)\/$;A*K&<1:"
^XMB(3.9,23,2,22679,0)="""DATA"",396.18,239,3,313,0)"
^XMB(3.9,23,2,22680,0)="MFNN5JB8`YAA^'5[F2^$R_X?4]Y4X-X7<&QQC[PU""!<*^U*>'TCW?L?TF7,-G"
^XMB(3.9,23,2,22681,0)="""DATA"",396.18,239,3,314,0)"
^XMB(3.9,23,2,22682,0)="MR@/""7L,:(Z@BV_Q!^4IN.""U&U\N6G/TS?TF]ZODN5OKE&/9C^'.W7KSOJ78/"
^XMB(3.9,23,2,22683,0)="""DATA"",396.18,239,3,315,0)"
^XMB(3.9,23,2,22684,0)="MM5UV$6SKVD!]9F7U>O&1U>$?4?Q'9]/Q?+B1IL=?4KC&\_GWN9%L5VRY/LLG"
^XMB(3.9,23,2,22685,0)="""DATA"",396.18,239,3,316,0)"
^XMB(3.9,23,2,22686,0)="MPAQ;'R_QN\4^1?4YPB3RL;MTN*#[)&F$[M(?I!D(L,?7=!32)V<@Z#H!-YOE"
^XMB(3.9,23,2,22687,0)="""DATA"",396.18,239,3,317,0)"
^XMB(3.9,23,2,22688,0)="M=N6_H'=BK[X93J62..X*F.<3ZV9B*=21HI[""A]*59L=O#U!6Z3U3*SS,%NFL"
^XMB(3.9,23,2,22689,0)="""DATA"",396.18,239,3,318,0)"
^XMB(3.9,23,2,22690,0)="MC""95.4RLK""5!U6$]K.9JUVK]#DI^`DMQ`Z=UA65J=2^H`=[6774A;'H.\>$6"
^XMB(3.9,23,2,22691,0)="""DATA"",396.18,239,3,319,0)"
^XMB(3.9,23,2,22692,0)="M40,X]'N$M^;>=IH0Y045;8'_'+!$T>$-?W$^K<(H-G:='?MO$ZO].X*TK<HE"
^XMB(3.9,23,2,22693,0)="""DATA"",396.18,239,3,320,0)"
^XMB(3.9,23,2,22694,0)="MIQ^X""W`P#01LK?JPCSQ*5]]J=V]!J!8TNI)^+@2DZ0""QMNLC`_)@&V.7A?)*"
^XMB(3.9,23,2,22695,0)="""DATA"",396.18,239,3,321,0)"
^XMB(3.9,23,2,22696,0)="M+H82%(U""NRF@7._#U2JDGET:NEXBJ""L?YYO9B""NN,)HRE`;)UG>IMHYB&A#C"
^XMB(3.9,23,2,22697,0)="""DATA"",396.18,239,3,322,0)"
^XMB(3.9,23,2,22698,0)="M]P),J_`C<5)';V*@G>CU&=YN<ZS@Z_?""<X+7DXK`2""LSO+[*#OXT?OL-`?+@"
^XMB(3.9,23,2,22699,0)="""DATA"",396.18,239,3,323,0)"
^XMB(3.9,23,2,22700,0)="MNR#0.?/NQ&0%7:]B'_+QT)!Y3RQ9X72BS;%O9*HQ.E\OMF\?#ZF2CY`NP<:X"
^XMB(3.9,23,2,22701,0)="""DATA"",396.18,239,3,324,0)"
^XMB(3.9,23,2,22702,0)="M&08V3^)I#^@Q]'R>$KYOU>UY77#N@179;X4S`@3%^,P)$L--9I57PPDYC'F["
^XMB(3.9,23,2,22703,0)="""DATA"",396.18,239,3,325,0)"
^XMB(3.9,23,2,22704,0)="M*9@04G?;1:2RS3=90ONX7(`?%%7%PF4L_7J<S+$?S<P?$A-S*_[^4[A@=1PJ"
^XMB(3.9,23,2,22705,0)="""DATA"",396.18,239,3,326,0)"
^XMB(3.9,23,2,22706,0)="M52RC+^1XX)!?%BQ`5;0`R8QD)%=A9*:<)=0^)J#V8`A[%:CKWJ;;0A6S4K1T"
^XMB(3.9,23,2,22707,0)="""DATA"",396.18,239,3,327,0)"
^XMB(3.9,23,2,22708,0)="M;$_C^2&Q\U<%I!X)T3$&:A/;:@N=C4$`GQ;53IC9'V2@9[-0$I2@L%R5$$1="
^XMB(3.9,23,2,22709,0)="""DATA"",396.18,239,3,328,0)"
^XMB(3.9,23,2,22710,0)="M0ST'F#XU$:6,L2""PCC5&66B&#773'B'FJU8URU+FZ[%K@;KI]MRNT\)Z51^S"
^XMB(3.9,23,2,22711,0)="""DATA"",396.18,239,3,329,0)"
^XMB(3.9,23,2,22712,0)="M+BHG\*5T#1Z(W""I]""(OM<['2`SAX6X!TF.<:VMXWU-`6[38<.,3W8@HNM1:J"
^XMB(3.9,23,2,22713,0)="""DATA"",396.18,239,3,330,0)"
^XMB(3.9,23,2,22714,0)="M#(4H#""554/?(%=];AW`&T#IWUA$>09U9+O#0+)Y^<EB_R*0O%L]$OXOKQ**P"
^XMB(3.9,23,2,22715,0)="""DATA"",396.18,239,3,331,0)"
^XMB(3.9,23,2,22716,0)="MI""Y+0]A""AH:P@D@64&>#W7Y>R\6$IC-""FZI`UAZ9=86EH/""[XY]0Y7PXDH(E"
^XMB(3.9,23,2,22717,0)="""DATA"",396.18,239,3,332,0)"
^XMB(3.9,23,2,22718,0)="MM[(>9596=*Q1IVY[BZW(EOH<'VI]`!==E=OVJ07]ZZ)59QF4=$*IS^SPD)A>"
^XMB(3.9,23,2,22719,0)="""DATA"",396.18,239,3,333,0)"
^XMB(3.9,23,2,22720,0)="M#""6$D%B<*\'Z>!U]""(IS.OQDX4\'+?BII.&/\^`)?I=\/LIT3\`_RR5I+;OG"
^XMB(3.9,23,2,22721,0)="""DATA"",396.18,239,3,334,0)"
^XMB(3.9,23,2,22722,0)="M*T8^IK7?Q;!E35GMH9ACB^7X9\DZ_3B=2""/BN&Q/$\=*$L=E#K*)LOQ)(<M3"
^XMB(3.9,23,2,22723,0)="""DATA"",396.18,239,3,335,0)"
^XMB(3.9,23,2,22724,0)="M=:TPDZC7-NNN72!Z?9GJ]65F-RY-90'Q,,>LNZ/\:2Z-8UN;)H[3]V;H$[.<"
^XMB(3.9,23,2,22725,0)="""DATA"",396.18,239,3,336,0)"
^XMB(3.9,23,2,22726,0)="M?RS..;,UEZNCMF;131ZW.\->.<4B_O^LCOX?%&<-\F""2!XL\E,F#31XJY*&*"
^XMB(3.9,23,2,22727,0)="""DATA"",396.18,239,3,337,0)"
^XMB(3.9,23,2,22728,0)="M'_:""+9P\E>B33I\,^F32)XL^E>F339\J](G2T""D-G=+0*0V=TM`I#9W2T""D-"
^XMB(3.9,23,2,22729,0)="""DATA"",396.18,239,3,338,0)"
^XMB(3.9,23,2,22730,0)="MG=+0*0V=TC`H#8/2,""@-@](P*`V#TC`H#8/2,""@-@](P*0V3TC`I#9/2,""D-"
^XMB(3.9,23,2,22731,0)="""DATA"",396.18,239,3,339,0)"
^XMB(3.9,23,2,22732,0)="MD](P*0V3TC`I#9/2L""@-B]*P,(W<*(5DHVV%`=;'CXA,!;LT2A]C=_U[K_9]"
^XMB(3.9,23,2,22733,0)="""DATA"",396.18,239,3,340,0)"
^XMB(3.9,23,2,22734,0)="M'P:WBOO`*NJ=0X\'@8G;.$>,HN+>&\@71.`4R`X>-6(^JC1(LVY,?=209^X5"
^XMB(3.9,23,2,22735,0)="""DATA"",396.18,239,3,341,0)"
^XMB(3.9,23,2,22736,0)="MZX;DBF*V;L38.L&P94S3GEB0L<E-QB8O7,9""^'`,C0`*0>Z*ZD'&),?Q#7^@"
^XMB(3.9,23,2,22737,0)="""DATA"",396.18,239,3,342,0)"
^XMB(3.9,23,2,22738,0)="M$BUD3/$,%G@^:0ZYQ;00V]Q/,XO)G.[N1>0(/\1UOOI+>O7R:V^&JQ==B&*."
^XMB(3.9,23,2,22739,0)="""DATA"",396.18,239,3,343,0)"
^XMB(3.9,23,2,22740,0)="MPZJS87BS2%`14W(!G@S1=L`NU@$:V*H-[JWFB20O^1A7\?E;9""X+)F%H[NM`"
^XMB(3.9,23,2,22741,0)="""DATA"",396.18,239,3,344,0)"
^XMB(3.9,23,2,22742,0)="M\Y^Z?O/*LMH,6:I1EI90%.^9%77-;;D-KQ>HG7ZWTP[<8`GXNPVW""Y,'P(K#"
^XMB(3.9,23,2,22743,0)="""DATA"",396.18,239,3,345,0)"
^XMB(3.9,23,2,22744,0)="M&*[.FN?#!G,8Z9&L3/#;IM."",9;H36K'&839!UX+7N_`\`NZ]MEJ@:\$/?!C"
^XMB(3.9,23,2,22745,0)="""DATA"",396.18,239,3,346,0)"
^XMB(3.9,23,2,22746,0)="M\,?@80G5OD,'&^+&M@:XDW/07WO!K?7.DVGP6ME&W72A6'L0DX49XA+X*HW&"
^XMB(3.9,23,2,22747,0)="""DATA"",396.18,239,3,347,0)"
^XMB(3.9,23,2,22748,0)="MAJB4*!X40E4NP?LC.(*:TX$;-/P28@A>J(S@A^/EO'H-=@4`6HB807U.U:[3"
^XMB(3.9,23,2,22749,0)="""DATA"",396.18,239,3,348,0)"
^XMB(3.9,23,2,22750,0)="M@W($?]9T4'-31_7==<!2W47X5""V,`(""0<EDF.V&_(J=>[X:GFPOX]OWV%GP)"
^XMB(3.9,23,2,22751,0)="""DATA"",396.18,239,3,349,0)"
^XMB(3.9,23,2,22752,0)="MNGJ&B!O+HS#T2`(!0F=6OD:LU_\11$$MW""()0F@A.*;;#MAJT7T7&%O0[W3:"
^XMB(3.9,23,2,22753,0)="""DATA"",396.18,239,3,350,0)"
^XMB(3.9,23,2,22754,0)="MW9XZ`/L6A$FL^7V(IC4*6,]DT:&5)_(I8)68O'N[XX,EJ&YM#-B7""\$)<$$6"
^XMB(3.9,23,2,22755,0)="""DATA"",396.18,239,3,351,0)"
^XMB(3.9,23,2,22756,0)="MV*_1Z[=&HNEFA^K/A""Q$(!%5K@EMA(*/@85FJE53+DWAB<MM-^""6&40D#Y=A"
^XMB(3.9,23,2,22757,0)="""DATA"",396.18,239,3,352,0)"
^XMB(3.9,23,2,22758,0)="ML]V'=U4-J(@70BWDE%3N8,QE!5'"")<^=/,?KMW)Q7BVYA-2WQGCM=/OU\+`'"
^XMB(3.9,23,2,22759,0)="""DATA"",396.18,239,3,353,0)"
^XMB(3.9,23,2,22760,0)="M9E@=+$FR_.18*V1E36=F47DO62,71--8D6+M\5'3&+#SB&YM81]5S_<#:?,F"
^XMB(3.9,23,2,22761,0)="""DATA"",396.18,239,3,354,0)"
^XMB(3.9,23,2,22762,0)="M&ZL&.XL1KZ=%O%:E>+7CTPAV/N@E1/,(.'0'83<29RP^E8Q\VO@RT$=L?HJP"
^XMB(3.9,23,2,22763,0)="""DATA"",396.18,239,3,355,0)"
^XMB(3.9,23,2,22764,0)="M^=/#@4?(IER<^,G+;;@'@D7G>\!""XAB&`+*""0X3(06V`[;Y5@^#)3J/A>%U)"
^XMB(3.9,23,2,22765,0)="""DATA"",396.18,239,3,356,0)"
^XMB(3.9,23,2,22766,0)="MYF=$C0:J[/[ZCX31K\;1W33;U*;L7B"".?::QW+XS'^/VT8A;HS)E<;=LBFVS"
^XMB(3.9,23,2,22767,0)="""DATA"",396.18,239,3,357,0)"
^XMB(3.9,23,2,22768,0)="MBGTJGZ+8EBZEV.\<4FQ'O=%&NOHL3#`!Y@PP0U`:$C27W!KX!)O]`,N@""V_E"
^XMB(3.9,23,2,22769,0)="""DATA"",396.18,239,3,358,0)"
^XMB(3.9,23,2,22770,0)="MNF!5J^V.UP*ODM/J(O98#MT$/UISZT^U>^Y:NWT+WQSR/RRQ]?ZD.//;U(7Y"
^XMB(3.9,23,2,22771,0)="""DATA"",396.18,239,3,359,0)"
^XMB(3.9,23,2,22772,0)="MS?PA\/W4V3Y(OX`F?!^8\%[KIGN[-T]^0=R0.?(#@=%.WX)G/V+'`,_@P]/`"
^XMB(3.9,23,2,22773,0)="""DATA"",396.18,239,3,360,0)"
^XMB(3.9,23,2,22774,0)="M(,ZQ%?WW1^U%<![7P2NW(92GUPMMEMP\^8P'P.%+/""24!OVUQI3)%,@F\$]4"
^XMB(3.9,23,2,22775,0)="""DATA"",396.18,239,3,361,0)"
^XMB(3.9,23,2,22776,0)="M+C\O![?_1B+2Q)X5V,%Q=J_C`S,)*`.+/,$YA\6U`&*:[BKX'I/S<HC/>>'4"
^XMB(3.9,23,2,22777,0)="""DATA"",396.18,239,3,362,0)"
^XMB(3.9,23,2,22778,0)="MZ#M87']-31E]=X>=DI.,W;ZC'""[?'^3B8%SS.(4=)[C>_<SO[""""(S#0='IJF"
^XMB(3.9,23,2,22779,0)="""DATA"",396.18,239,3,363,0)"
^XMB(3.9,23,2,22780,0)="MD@#>(YHGY:.Y744;$_8MT[F,[<=3D<3%G<\J!ON&'T[%]4YX@\F\07EW+A5E"
^XMB(3.9,23,2,22781,0)="""DATA"",396.18,239,3,364,0)"
^XMB(3.9,23,2,22782,0)="M.ZDK69E5M6=BJL:`=UQNU_KH9,""PF\%N:EO6KBQ<O_0JR^L@A=<3N$:$]O$)"
^XMB(3.9,23,2,22783,0)="""DATA"",396.18,239,3,365,0)"
^XMB(3.9,23,2,22784,0)="M^]KL)L/*>-VP-);E(RDL<PB?]S*8:@*C)991*X71HQ?[GE^_9[!C\]FWS:'3"
^XMB(3.9,23,2,22785,0)="""DATA"",396.18,239,3,366,0)"
^XMB(3.9,23,2,22786,0)="MS61V3>6+N=BV^6A^-_DJB)<@3GQ\=VC""K`\W96&ZLZVZY]H=MY6]`UVF'MA8"
^XMB(3.9,23,2,22787,0)="""DATA"",396.18,239,3,367,0)"
^XMB(3.9,23,2,22788,0)="M38YP)^NGJ)JH3""M>4RZQB$$MW8AW=L6]0[<=M!$R9;!,&7%S@4&WE/.""OYMA"
^XMB(3.9,23,2,22789,0)="""DATA"",396.18,239,3,368,0)"
^XMB(3.9,23,2,22790,0)="M*D0LA9[`&HR=7P`LME""<N5O?=KQ&R)7.<O4\UI2F8*8J<A[0<8:IEMON^$[0"
^XMB(3.9,23,2,22791,0)="""DATA"",396.18,239,3,369,0)"
^XMB(3.9,23,2,22792,0)="ME/;0,W%@LQS\Y'#B^T.T)M4P2MGJA`E8SS44@>FZ:@.X<%UI1RS3X""O,X)5?"
^XMB(3.9,23,2,22793,0)="""DATA"",396.18,239,3,370,0)"
^XMB(3.9,23,2,22794,0)="M(<9%+R9_,'I)^:^@FU<X_`W7J<,.!I(1DMF$\[W"";B[*)W(RN\O>2>PN559F"
^XMB(3.9,23,2,22795,0)="""DATA"",396.18,239,3,371,0)"
^XMB(3.9,23,2,22796,0)="MM+UF?,;+IJ9)S?@Q.N-U[\X=&(*0%%EB)[X2)[,O2,EL_R2""ZR5V2U9>)P-X"
^XMB(3.9,23,2,22797,0)="""DATA"",396.18,239,3,372,0)"
^XMB(3.9,23,2,22798,0)="M(;[0[:QH*^2DIT+;<IU;\C([D""0S@Y/9-Z5D-C<1F;%[(TV0C12-E=FXBM9Q"
^XMB(3.9,23,2,22799,0)="""DATA"",396.18,239,3,373,0)"
^XMB(3.9,23,2,22800,0)="MNHX_""#Q)H1U,$IK%""8WT%<DFM/EQK'V=,S7N'TWO7C8#A1QR>DB;ZV:2J#*V"
^XMB(3.9,23,2,22801,0)="""DATA"",396.18,239,3,374,0)"
^XMB(3.9,23,2,22802,0)="MV8D+!U[+<U&5&5I#]$:>/2B%#;^PO7(0:8)--.&IQ*9PP:#9Z;6;L""F<4+<P"
^XMB(3.9,23,2,22803,0)="""DATA"",396.18,239,3,375,0)"
^XMB(3.9,23,2,22804,0)="M?(SR(;[D*),@\I-8C\2+#GWY>2R3EP1FI5TVI9-CR,;?:'BUOM\;``/,=7H;"
^XMB(3.9,23,2,22805,0)="""DATA"",396.18,239,3,376,0)"
^XMB(3.9,23,2,22806,0)="M8`E*FY-B\9F<^""J3U*-LXK-9\6E8?!\0B<\VI,1W.K(U-CUXD4WK?7;FCA%#"
^XMB(3.9,23,2,22807,0)="""DATA"",396.18,239,3,377,0)"
^XMB(3.9,23,2,22808,0)="M6V%.WI6R+Y?EKABCL\QK!>UFRW.D35;QW)>YN?\)F;F?G<C<5UF)W4D[R?0Q"
^XMB(3.9,23,2,22809,0)="""DATA"",396.18,239,3,378,0)"
^XMB(3.9,23,2,22810,0)="M)=;S6BVOUP^V;2>+DP,T-@KW2\0/_Y!P\5OC:F_0<=W:QIC:F[6#$ND]6>3P"
^XMB(3.9,23,2,22811,0)="""DATA"",396.18,239,3,379,0)"
^XMB(3.9,23,2,22812,0)="M-91/B]QC23BJLXS350,,K77;FTX`MC.GJSJUFE>7SF@XD)4I-E(;U=Q\)<Z4"
^XMB(3.9,23,2,22813,0)="""DATA"",396.18,239,3,380,0)"
^XMB(3.9,23,2,22814,0)="M;DO>^R_""^0DS@+Q-L$.[FQYLG]MRW;I;1_E+6XY_2WJ?3C*A"")!^N%:5,Q,U"
^XMB(3.9,23,2,22815,0)="""DATA"",396.18,239,3,381,0)"
^XMB(3.9,23,2,22816,0)="MH;+E%7`1Y]\C""O)%@8)4++E4F`5X\0OTPV\'*.^JC=O!KL,^Q)ONF)HO[*S%"
^XMB(3.9,23,2,22817,0)="""DATA"",396.18,239,3,382,0)"
^XMB(3.9,23,2,22818,0)="MF1]7B4)\,R=H!U*Q*E-PJWPH06%PW2_9W)^;9+1-3)`SQ)3/3]2;%)]?'(O*"
^XMB(3.9,23,2,22819,0)="""DATA"",396.18,239,3,383,0)"
^XMB(3.9,23,2,22820,0)="MOT_4%TLV@K'E_7<YS@BF65*<$:PD=-S![WAYMZPN8H;/LU97H2$ZMJICGKRM"
^XMB(3.9,23,2,22821,0)="""DATA"",396.18,239,3,384,0)"
^XMB(3.9,23,2,22822,0)="M?G--WN_.:FR1RXUYSM@:Q!DP=;FPY\GHW`5>L!N`Q\!S@LE87+ATD,S[<SL9"
^XMB(3.9,23,2,22823,0)="""DATA"",396.18,239,3,385,0)"
^XMB(3.9,23,2,22824,0)="M`A>+S63%1BPN5R`V0^Z,/\:8*ZYWI]]UY4TNL<AL3F1WWTC%P8M09-3&$UFI"
^XMB(3.9,23,2,22825,0)="""DATA"",396.18,239,3,386,0)"
^XMB(3.9,23,2,22826,0)="MIB'GWQV-9-;KPA-0WK03BZS*BDSY5:E]<=]$9%9F9?:9&)(&:TO*R>P4W5_6"
^XMB(3.9,23,2,22827,0)="""DATA"",396.18,239,3,387,0)"
^XMB(3.9,23,2,22828,0)="M':_'.,9RHMN?E1&;9>1O<VDN2FG,`&776_?JGBP'<TF7^B5N\E^7FOR#$YG\"
^XMB(3.9,23,2,22829,0)="""DATA"",396.18,239,3,388,0)"
^XMB(3.9,23,2,22830,0)="M""BLSA=A8OR'T).2,[H=%$1&OI0;`U@[SYN6$.)\D1.Y\5HY(6=N')B+$*BO$"
^XMB(3.9,23,2,22831,0)="""DATA"",396.18,239,3,389,0)"
^XMB(3.9,23,2,22832,0)="M3Q`A_IQ`B&9);@F=B<()S8[C=5%>!W#-@J;K^W+R.Y&1&YT]K977\BE^LEFR"
^XMB(3.9,23,2,22833,0)="""DATA"",396.18,239,3,390,0)"
^XMB(3.9,23,2,22834,0)="M)L)-SPEZKAPW)[.&+4HL-QKAYC-""K]^6AJ@0<;/6WG)]M=%OH1P-.;8.)RDY"
^XMB(3.9,23,2,22835,0)="""DATA"",396.18,239,3,391,0)"
^XMB(3.9,23,2,22836,0)="M9XPHWR.EY$<F$O]AK1'E.2+(SPK50LX>64@2I._482KK>*(\FB1*_L3=D!+E"
^XMB(3.9,23,2,22837,0)="""DATA"",396.18,239,3,392,0)"
^XMB(3.9,23,2,22838,0)="ML;&\K3)'\;-2V_R!L=)L""'#<R[L5:;<YIP5'V@L_%E.6BB:9%<#8_/5!,*;-"
^XMB(3.9,23,2,22839,0)="""DATA"",396.18,239,3,393,0)"
^XMB(3.9,23,2,22840,0)="MG[7*QN#LR??GDVUPNRSGNIR(4@.<GK>.B_GDN#B>./L:IW`_(Z7B]XURMG,C"
^XMB(3.9,23,2,22841,0)="""DATA"",396.18,239,3,394,0)"
^XMB(3.9,23,2,22842,0)="M4ZH//DT`G&""#SDDF5I<FFEC]RILCL7JT@!/C(Q56GN>P//^-AD=J^7LNH[=D"
^XMB(3.9,23,2,22843,0)="""DATA"",396.18,239,3,395,0)"
^XMB(3.9,23,2,22844,0)="M<#""5\[$>'U$S])^ZVD;5>&`F8:2RZ<`Y=<#90K*)EM0ZZ:8%BUV!'^S5^XX?"
^XMB(3.9,23,2,22845,0)="""DATA"",396.18,239,3,396,0)"
^XMB(3.9,23,2,22846,0)="MD)I:\CWXU[""RM0?O\^#IM`1+8/U^'560@K\,:D`^J)!J:\-%`5&$C=9=5D<5"
^XMB(3.9,23,2,22847,0)="""DATA"",396.18,239,3,397,0)"
^XMB(3.9,23,2,22848,0)="MA!H<=,W[B$I_C;*S0MGY,FW]%2!\/*]&3T:PTIKM'APE=X`ZC89;@YC(0+I."
^XMB(3.9,23,2,22849,0)="""DATA"",396.18,239,3,398,0)"
^XMB(3.9,23,2,22850,0)="MH""[`2#<N(UVBN1;PBZ1C!'CT81\.UP=&C+I@7+#4`##=6N]MH#`Y_!YP?1>7"
^XMB(3.9,23,2,22851,0)="""DATA"",396.18,239,3,399,0)"
^XMB(3.9,23,2,22852,0)="M4&VL[_:8]`/ZQ\""X=R$=Z""?#`N4%#;P&_C6P^]5F/ZCYP""&$^K?(22<6_S58"
^XMB(3.9,23,2,22853,0)="""DATA"",396.18,239,3,400,0)"
^XMB(3.9,23,2,22854,0)="MI!<2=U/^)H8Z72I7M/)T8`'$>>2@>O\LE\JD,05,9JU\--E6H<IQ<D+]^#`F"
^XMB(3.9,23,2,22855,0)="""DATA"",396.18,239,3,401,0)"
^XMB(3.9,23,2,22856,0)="M(X39EC]9L9:!LPLL8M0""13JR*;[9P6;5!\.#]309]MLF$0P64S0YBI>E*$XD"
^XMB(3.9,23,2,22857,0)="""DATA"",396.18,239,3,402,0)"
^XMB(3.9,23,2,22858,0)="M#&ER^<MOR\>2)NA4Z88A%X`^'4V5T^NV.QL#M0,V8>DKQIG4JA5L#'TUSQD-"
^XMB(3.9,23,2,22859,0)="""DATA"",396.18,239,3,403,0)"
^XMB(3.9,23,2,22860,0)="MM.0>6`&[><@IY%B88TM&&&@097]^.&(>)=X\@!-OP,$&#P1XN#6\%CR7@K=G"
^XMB(3.9,23,2,22861,0)="""DATA"",396.18,239,3,404,0)"
^XMB(3.9,23,2,22862,0)="MG%^KPAIQ-2R>7XA/;]FNR""5UG+K4=5JP9!'HW"";KW&T[BU?,""-=QE$*'?T[`"
^XMB(3.9,23,2,22863,0)="""DATA"",396.18,239,3,405,0)"
^XMB(3.9,23,2,22864,0)="M2463""UPL4FL]O/9LJ$!)0P`+%+M`F>/R(9FL]_UEC>7L`X2SWQ%Q5I(#]3E["
^XMB(3.9,23,2,22865,0)="""DATA"",396.18,239,3,406,0)"
^XMB(3.9,23,2,22866,0)="MB=[<`AY8<-5QIRMK/D89Z]U>Q-0W""%/_$@\HV'9);E\QH^GR@`E""86:!C82?"
^XMB(3.9,23,2,22867,0)="""DATA"",396.18,239,3,407,0)"
^XMB(3.9,23,2,22868,0)="MX,$`34((+O5""VY/&,MB?L%U7<$3W_3FN(\S*CMWDXNHT3)`B`6:CN&\LBA9'"
^XMB(3.9,23,2,22869,0)="""DATA"",396.18,239,3,408,0)"
^XMB(3.9,23,2,22870,0)="M\<-2%$?=\L0+ZBUV*[R?G#[?H%K28Q:U/04&4M9T&-+<>H8K7/0$NW)5;E<^"
^XMB(3.9,23,2,22871,0)="""DATA"",396.18,239,3,409,0)"
^XMB(3.9,23,2,22872,0)="M=A&'U<9=X$G&$:Z%)[K_A(Q>3.2BG&MP3F-.0I')764<N8A""NM?&%%A2/J?-"
^XMB(3.9,23,2,22873,0)="""DATA"",396.18,239,3,410,0)"
^XMB(3.9,23,2,22874,0)="MK22*2[XRB2!=LLM?%H50J,M?T$2EST,U?-AV?PMZQ1QIDD-?<282'(S@P%(D"
^XMB(3.9,23,2,22875,0)="""DATA"",396.18,239,3,411,0)"
^XMB(3.9,23,2,22876,0)="M&`<""RZ8;C%6'/,0!#N!^FV?A]7O$H""N(<ZDM-IGI$-G'_DA0^'@MBG`Z?2""6"
^XMB(3.9,23,2,22877,0)="""DATA"",396.18,239,3,412,0)"
^XMB(3.9,23,2,22878,0)="M=A.<QM""$:O<#-1@`<Z-)LZQ""<*T-9]-%F%EKKMLB&%5N_>VC@@_E,CNHZW'\"
^XMB(3.9,23,2,22879,0)="""DATA"",396.18,239,3,413,0)"
^XMB(3.9,23,2,22880,0)="M[FA0CX,C%=H\,/6+1!U0B`$;=^`P13Y]6*P%?A+0Z`,WC&PNA\TNY`LQ!6/-"
^XMB(3.9,23,2,22881,0)="""DATA"",396.18,239,3,414,0)"
^XMB(3.9,23,2,22882,0)="M'?/N1X_S"">L9FVG*+^:XGA>9UG-A(JX:9\I?)S!T0E->SJ(Z&TM_@#/><((:"
^XMB(3.9,23,2,22883,0)="""DATA"",396.18,239,3,415,0)"
^XMB(3.9,23,2,22884,0)="MO-A%!I8\=)!8B#HGQ.=EA#@SCCU#^J!@@G=D""!8G,FNLWT+*W0M]T;$E=U4"""
^XMB(3.9,23,2,22885,0)="""DATA"",396.18,239,3,416,0)"
^XMB(3.9,23,2,22886,0)="MRP]1YL4X(9`]2>(JL^)2/BIE_DT$Y<WBO""$Z`)'`*B7IA+@UQW=@7ZMQ9)85"
^XMB(3.9,23,2,22887,0)="""DATA"",396.18,239,3,417,0)"
^XMB(3.9,23,2,22888,0)="M-8AT?IWA4FZ4+XL6JF1#O?/4]7%ZSFW/09'J-OAC`FT(/=4.\%GA_<!`.DDW"
^XMB(3.9,23,2,22889,0)="""DATA"",396.18,239,3,418,0)"
^XMB(3.9,23,2,22890,0)="M&WL&R]X_$_9>%NY#<H[X`Y0]G&@_KA&;5#.(>Z<1]?Y7*?6>&VO_J7`47Y.B"
^XMB(3.9,23,2,22891,0)="""DATA"",396.18,239,3,419,0)"
^XMB(3.9,23,2,22892,0)="MF#47=ZBUE:9Q#4QH@?WG!=`U>U==&/9W)4RW;/Z_Q;8_?BP_;*X_Q*R!C(?5"
^XMB(3.9,23,2,22893,0)="""DATA"",396.18,239,3,420,0)"
^XMB(3.9,23,2,22894,0)="M!'+WJ]QIH+PU+S,;$\G=-]G&6<H+^<3M33=L;>)R24I1MW@M]:7D<GC[5\I["
^XMB(3.9,23,2,22895,0)="""DATA"",396.18,239,3,421,0)"
^XMB(3.9,23,2,22896,0)="M;@)C+9CD5;(^[E7R_Y$[8Q&2D<EA(1'@YJ/Y>&!Z^<:MON^KWW]NU1D@,-VF"
^XMB(3.9,23,2,22897,0)="""DATA"",396.18,239,3,422,0)"
^XMB(3.9,23,2,22898,0)="MZP1]L&^K:^W60*V[T#<(6T:BPF\G(-`;""2!*)EO24NC&[DDCTN=O=(""K24CS"
^XMB(3.9,23,2,22899,0)="""DATA"",396.18,239,3,423,0)"
^XMB(3.9,23,2,22900,0)="M)""(L#$)N.8&<Q5;0_!71CU<$K/[`-707[,+[X[X?8HC""J\ZZYZRWVO""D13?#"
^XMB(3.9,23,2,22901,0)="""DATA"",396.18,239,3,424,0)"
^XMB(3.9,23,2,22902,0)="M-=]KH9R('M1DB-E;[Z/+6:^%+IM=Y""*'AW37A>""^RZ)X&%>""23H#?HDB33_+"
^XMB(3.9,23,2,22903,0)="""DATA"",396.18,239,3,425,0)"
^XMB(3.9,23,2,22904,0)="MN$;5*;T4-=GB3.5;N1B3/\HP:4\G?K_8<&+36Q27^.-G\C&$&*,L"">:Q_*P;"
^XMB(3.9,23,2,22905,0)="""DATA"",396.18,239,3,426,0)"
^XMB(3.9,23,2,22906,0)="M>G##6AIJ8YC.`+M(1LJ(M5#:K8O/)UMUK;PGEZ:TNC8=E]RC3ZQ]E\/U[TWT"
^XMB(3.9,23,2,22907,0)="""DATA"",396.18,239,3,427,0)"
^XMB(3.9,23,2,22908,0)="MU#+^/P%J&X<9A]F/+?W_""F5Y%ALT9GR#WW>IW41XU\MW'U@NX70JLW?R+Q$]"
^XMB(3.9,23,2,22909,0)="""DATA"",396.18,239,3,428,0)"
^XMB(3.9,23,2,22910,0)="MJ`A.IW<\IEY%Z/I8&:/""7HA[W.W!IL3P!KX+?[FD!CW8ZQ5XP?BK].]2XK'8"
^XMB(3.9,23,2,22911,0)="""DATA"",396.18,239,3,429,0)"
^XMB(3.9,23,2,22912,0)="MD@KOUU?Q6/XCZC=V#\*;E5G$I_TQ_UL5K.(IP>P<FAN+F1OE([&M5WDC%W42"
^XMB(3.9,23,2,22913,0)="""DATA"",396.18,239,3,430,0)"
^XMB(3.9,23,2,22914,0)="MQNB)W+0O[^;D[<%GR8'H+""DSE\:%8YB=WZ?L?#TJ""3;*E2EI$!-CTN)V)AUS"
^XMB(3.9,23,2,22915,0)="""DATA"",396.18,239,3,431,0)"
^XMB(3.9,23,2,22916,0)="M^>=T=2\R3-K3T:LPI=\U^%=B=Y""')[Z#O+&]+-3$((K&H10>2-E&]E^AK9DE"
^XMB(3.9,23,2,22917,0)="""DATA"",396.18,239,3,432,0)"
^XMB(3.9,23,2,22918,0)="M5K5PZ\+'UGM#8:UAHK]+B3[(Y'8X'0>&^:#_]7TAY/]5BGF_$F+>[Z9H9R92"
^XMB(3.9,23,2,22919,0)="""DATA"",396.18,239,3,433,0)"
^XMB(3.9,23,2,22920,0)="M:5!AE8>`D/\GE<=;2,NHDJ')91*JSP*7T5%)Z^'K(9RZNNJB?B^R+:]RX;__"
^XMB(3.9,23,2,22921,0)="""DATA"",396.18,239,3,434,0)"
^XMB(3.9,23,2,22922,0)="M!5!+`P04``(`""``CBPDUGE'=O]%1```D""@,`'0```$)R86EN7U-P:6YA;%]#"
^XMB(3.9,23,2,22923,0)="""DATA"",396.18,239,3,435,0)"
^XMB(3.9,23,2,22924,0)="M;W)D7S$Q,RYP;FPN9G)M[%U;C]NVMGXOT/\@Y,7);IHM4O<`Q4$RF30YR&4P"
^XMB(3.9,23,2,22925,0)="""DATA"",396.18,239,3,436,0)"
^XMB(3.9,23,2,22926,0)="M,VUP<+!1T#(]HUU9\I'D2;Q__2&IBTF*E""@[<2=3YZ$=R[*T;ORXN+C68C[_"
^XMB(3.9,23,2,22927,0)="""DATA"",396.18,239,3,437,0)"
^XMB(3.9,23,2,22928,0)="M-XXKZQV:X_1ZN\8?EZ_S8O7<NF97?OS!LM[A967]8OT,;9M^O,[7Y%-(__R4"
^XMB(3.9,23,2,22929,0)="""DATA"",396.18,239,3,438,0)"
^XMB(3.9,23,2,22930,0)="M+*I;\L&)Z*<W.+FYI7<""AWX\0^LJR3/R>?;^_/+7\]F//^!L\>,/.?=""^JJW"
^XMB(3.9,23,2,22931,0)="""DATA"",396.18,239,3,439,0)"
^XMB(3.9,23,2,22932,0)="MKT9?!EWA;<[PVUY>OGC[07H;N_;'!<IPZI#7L3^XU[F[=WG\JP+H"">]RZY>]"
^XMB(3.9,23,2,22933,0)="""DATA"",396.18,239,3,440,0)"
^XMB(3.9,23,2,22934,0)="M23+Z:7;Q\>*WBQF]\A+?X?1MEN&""7)_?7:*DQ`OV15XL<-$^#^XN757;%-.;"
^XMB(3.9,23,2,22935,0)="""DATA"",396.18,239,3,441,0)"
^XMB(3.9,23,2,22936,0)="MRZLDNTDQ8R)/<_J`.+U*TCM<T&NO\ZQZ=G:+BA+3=[XZ?_WBMW?7?YR]>7%Y"
^XMB(3.9,23,2,22937,0)="""DATA"",396.18,239,3,442,0)"
^XMB(3.9,23,2,22938,0)="M=7Z]NZ/[Z<L4Q7]VUSO2?P:@N_@!K3#3RY5UA;+2NL)%LIQU7[>D_>^_Z*4+"
^XMB(3.9,23,2,22939,0)="""DATA"",396.18,239,3,443,0)"
^XMB(3.9,23,2,22940,0)="M5.""LHE^02Z]16C)2K]'\(V6#""L6G%P1!,W5""EU=L)VL'N/7G6MY^_:&5$`!>"
^XMB(3.9,23,2,22941,0)="""DATA"",396.18,239,3,444,0)"
^XMB(3.9,23,2,22942,0)="M?6&GW^8.7L,%2K+GUJL$W61YF92S^HYQ4>F%U1>7QUW6""TP6V;)\F:>+?]5?"
^XMB(3.9,23,2,22943,0)="""DATA"",396.18,239,3,445,0)"
^XMB(3.9,23,2,22944,0)="MJ47'[%(E,!!Y2HFY@<U+S/$#269V(,D,]F7V#^NBP""4A?3-?)955Y19:+`@M"
^XMB(3.9,23,2,22945,0)="""DATA"",396.18,239,3,446,0)"
^XMB(3.9,23,2,22946,0)="M59'@DGZL;C'Y<K5""Q;;A[!,QU$\%HN^\+C9:VE]NJBK/@$]HK_\4B(>1(Q`?"
^XMB(3.9,23,2,22947,0)="""DATA"",396.18,239,3,447,0)"
^XMB(3.9,23,2,22948,0)="M`)%XUY'U[?9H/TLQ*AJB.,-KGO0Q.TN3^$]RX4O]_E\Q&8=)S*Z.$!VHB7;"""
^XMB(3.9,23,2,22949,0)="""DATA"",396.18,239,3,448,0)"
^XMB(3.9,23,2,22950,0)="M88D'LI$Z=H_H6M!]JN'!5'L:28?.P42?I7F)^S0[!]!\%1=YFK[,OP!""=O=!"
^XMB(3.9,23,2,22951,0)="""DATA"",396.18,239,3,449,0)"
^XMB(3.9,23,2,22952,0)="MH-SGZ882(@1V*-/M-#)\DQ?_:9Z(BF?7!1G+!$LY<[6LWW%1[6ZY1-D-9L^T"
^XMB(3.9,23,2,22953,0)="""DATA"",396.18,239,3,450,0)"
^XMB(3.9,23,2,22954,0)="M55\KG_!B4^7U+?P@%L33/$P!@=*`[C@&H+U0,]W!'H^$=GM)FNLDG5T4^3S%"
^XMB(3.9,23,2,22955,0)="""DATA"",396.18,239,3,451,0)"
^XMB(3.9,23,2,22956,0)="M*VN.*>D+7*$DQ8OGL_96$U@<`D;-3&($CLH910^-G04IA1EHA.F(LO2""L""=+"
^XMB(3.9,23,2,22957,0)="""DATA"",396.18,239,3,452,0)"
^XMB(3.9,23,2,22958,0)="MVU""6+Q:+A/Z-4BO.5RM""8MD*<H`R!QJJV0<R96YD1E@WUWU+O<*_1*_`""0W%"
^XMB(3.9,23,2,22959,0)="""DATA"",396.18,239,3,453,0)"
^XMB(3.9,23,2,22960,0)="MY\K2@XZA7J]P2M^*LH55UA,@1O&MM6Z&SK+(5VP""+/#_;7!9=5PJIL!A7ER@"
^XMB(3.9,23,2,22961,0)="""DATA"",396.18,239,3,454,0)"
^XMB(3.9,23,2,22962,0)="MX<6U0\E,>\SX7H\9)^HSTUZQK!GQGZT""573<KS?%FF!W^93PL,X+=HWQN*@M"
^XMB(3.9,23,2,22963,0)="""DATA"",396.18,239,3,455,0)"
^XMB(3.9,23,2,22964,0)="M!R^(16>U=3,Y)%5IS:R?N*?AY9*P4UHE7B/R5)QNK:2T,AP3OX%X!=1)(`*["
^XMB(3.9,23,2,22965,0)="""DATA"",396.18,239,3,456,0)"
^XMB(3.9,23,2,22966,0)="M2Q:8/,!"":_)A723D1O*.$LT3\6EI4FTM?(?2#6+O7!):&4$=&<\.$+-O*F:W"
^XMB(3.9,23,2,22967,0)="""DATA"",396.18,239,3,457,0)"
^XMB(3.9,23,2,22968,0)="M!P918&8S5+CG+\[>M!),3*``>%H#:"">V#@P4YMQ'@]VOE!9`EVQ6DEF$UO@V"
^XMB(3.9,23,2,22969,0)="""DATA"",396.18,239,3,458,0)"
^XMB(3.9,23,2,22970,0)="M)VIF9IQ4O%$_:F>(=TE9/2*7$!D)!5%B6>:BSF*JS87U.2'D5+=$^1WK!^C*"
^XMB(3.9,23,2,22971,0)="""DATA"",396.18,239,3,459,0)"
^XMB(3.9,23,2,22972,0)="M@Z82B:(><'N>F;(^KFO8?MIZMM3:B)FU0]Q,=ZXII0#""'JF1-U5Y;\E`B.GX"
^XMB(3.9,23,2,22973,0)="""DATA"",396.18,239,3,460,0)"
^XMB(3.9,23,2,22974,0)="MH5IJ1U^^%,8M40+Y61['FS5J9B8Z>A=DDM^*RK-07""5W9&3A@[3E&<O`[:G+"
^XMB(3.9,23,2,22975,0)="""DATA"",396.18,239,3,461,0)"
^XMB(3.9,23,2,22976,0)="M,=16[1L_,U%)8#K0%>08SJVN$2&A,2%]VS`DQ#$AQ+=-""8GV%0@THL-XIO.]"
^XMB(3.9,23,2,22977,0)="""DATA"",396.18,239,3,462,0)"
^XMB(3.9,23,2,22978,0)="M/>D`1G0$ICZVWT>7T(R0QS1094'/#IY08""$S8%8ERX1`Y9S,<5_0:J\!QZ)0"
^XMB(3.9,23,2,22979,0)="""DATA"",396.18,239,3,463,0)"
^XMB(3.9,23,2,22980,0)="M+A^.XE=S$O&!W1ML?I]ZU^YDK0HFJ9>B2F<[DJ6ZDZNWN]08VNY""-Y4%W%T*"
^XMB(3.9,23,2,22981,0)="""DATA"",396.18,239,3,464,0)"
^XMB(3.9,23,2,22982,0)="MX8K.+2[C(IECZWR'@102VWF+W/61!\`7'=#-=L\S<X>''>*!I8Z14ZQUB_6."
^XMB(3.9,23,2,22983,0)="""DATA"",396.18,239,3,465,0)"
^XMB(3.9,23,2,22984,0)="M,6<<RJ6%K]<#E/4``JC01&COH8F<R+^PRN0F(W8>(T)U-S_)LU&GC.><',XS"
^XMB(3.9,23,2,22985,0)="""DATA"",396.18,239,3,466,0)"
^XMB(3.9,23,2,22986,0)="M1%2WF,1KJ&?5D5EU[#ZGP(;FG-:F)G*S8V""0SJ&A$1D1&OH*0J&O(G1WC4SQ"
^XMB(3.9,23,2,22987,0)="""DATA"",396.18,239,3,467,0)"
^XMB(3.9,23,2,22988,0)="MGZCKAOE!PGPTZGPS=SM9K9',%*\BP6$@SS-1F0;21F0$X01E1HY""1B`T5^8E"
^XMB(3.9,23,2,22989,0)="""DATA"",396.18,239,3,468,0)"
^XMB(3.9,23,2,22990,0)="M+C<I6_)\SHL_>S[?/@9)7.4F9M7\:3#^7$_!AZ/2M<OQT>XF$/,%(4_QEXI0"
^XMB(3.9,23,2,22991,0)="""DATA"",396.18,239,3,469,0)"
^XMB(3.9,23,2,22992,0)="MAQ?-VK6GEGL.>&_)&D2I-_I%27Y2$'V5Y+O'@DE^R*TK#G6:&6$FW#-ZPX><"
^XMB(3.9,23,2,22993,0)="""DATA"",396.18,239,3,470,0)"
^XMB(3.9,23,2,22994,0)="M?+%:I_D6+V9/3$!8%<\;M0YODG5T8?IQ\_!""A7D`.PI,ANO?TVY>E'2R(O)8"
^XMB(3.9,23,2,22995,0)="""DATA"",396.18,239,3,471,0)"
^XMB(3.9,23,2,22996,0)="M),0BJ)JMQ49R$=B2*RXPHM&0""A6+),.E]@8T+\E3,$[*E7C+1SHW\F;UGH)/"
^XMB(3.9,23,2,22997,0)="""DATA"",396.18,239,3,472,0)"
^XMB(3.9,23,2,22998,0)="M)VX>(XU-#AB:G#MD<KS9M+%0A4-@*UTS6VUS07BR.9W-O<>KO-A::2X;T2O<"
^XMB(3.9,23,2,22999,0)="""DATA"",396.18,239,3,473,0)"
^XMB(3.9,23,2,23000,0)="M&E&<9S'=9&-3L6QI?`AMCF_179(7XCT7.9%$F<<)F<6)3G!!I_(\DU]'3#Z)"
^XMB(3.9,23,2,23001,0)="""DATA"",396.18,239,3,474,0)"
^XMB(3.9,23,2,23002,0)="MB1%NK66>IOEG.A,F65D5&^7M'76KO'8<M-^C;$/>O,!$O47OOL8]+^MX49HL"
^XMB(3.9,23,2,23003,0)="""DATA"",396.18,239,3,475,0)"
^XMB(3.9,23,2,23004,0)="MV0Q,HQ,Q*HHM^:`ELZ`ACMX-5VN,6>2CO4_\^@U&!=OBT'S_>U)2?T#W]3MB"
^XMB(3.9,23,2,23005,0)="""DATA"",396.18,239,3,476,0)"
^XMB(3.9,23,2,23006,0)="M2]1I*BNT2C(D?OD)HS\I&-#EW9(HZV:#=4(A8L79377[W-JLUV3P$N$4>#4@"
^XMB(3.9,23,2,23007,0)="""DATA"",396.18,239,3,477,0)"
^XMB(3.9,23,2,23008,0)="MQ=T/B&KT/_B-,$?#K$E&C(:($A/+$>]XC6-F![KO+U""2R2(OEX07\CIBA-\>"
^XMB(3.9,23,2,23009,0)="""DATA"",396.18,239,3,478,0)"
^XMB(3.9,23,2,23010,0)="MQ>`8BM$1`V@`@_YA,F>&81_`'$^UHH%VI`:PR`3`O@U`00U`G>6;(B$2^X`_"
^XMB(3.9,23,2,23011,0)="""DATA"",396.18,239,3,479,0)"
^XMB(3.9,23,2,23012,0)="MF\#3.SI/:5'(U,'I]CGI(\J2;GT2%RI5*M+I*7(@A.%I0AC.+F:A#V+LT';/"
^XMB(3.9,23,2,23013,0)="""DATA"",396.18,239,3,480,0)"
^XMB(3.9,23,2,23014,0)="M((8SL'BV)RQ""5#-E$.VQ=):""N?3C>A?(V)0,46GX5K-T?IB!##BPNG=[BV9'"
^XMB(3.9,23,2,23015,0)="""DATA"",396.18,239,3,481,0)"
^XMB(3.9,23,2,23016,0)="ML2*$8/]`!NY6^VKY'QBY((:MY:YG:%`1+@N!@C4G4K+VHF`V5F`^)*-FZ[\>"
^XMB(3.9,23,2,23017,0)="""DATA"",396.18,239,3,482,0)"
^XMB(3.9,23,2,23018,0)="M@EE-#D""<77QZ?XD62?YKD6_6D*[AQ4L]'8701$F!:JD6!<J5O.UR3%_=YI_K"
^XMB(3.9,23,2,23019,0)="""DATA"",396.18,239,3,483,0)"
^XMB(3.9,23,2,23020,0)="MK+\^;_^]*:MDN66.9O];>OD""+83HM9BP<YL7V""R,\QWXX$-A@4QR=MXGZ4*Z"
^XMB(3.9,23,2,23021,0)="""DATA"",396.18,239,3,484,0)"
^XMB(3.9,23,2,23022,0)="MDA,)$U]:<BHQF3=D1ZD@%[.JW"",V`""9:'QRW/L""OTKZ2^47',3_RZ/6:*.QD"
^XMB(3.9,23,2,23023,0)="""DATA"",396.18,239,3,485,0)"
^XMB(3.9,23,2,23024,0)="M@$<S0#C1`)UQ`X2.^[4-$-C',<#S+[B(DQ*?#/!H!NA,-$#7``'MWL+/`0<B"
^XMB(3.9,23,2,23025,0)="""DATA"",396.18,239,3,486,0)"
^XMB(3.9,23,2,23026,0)="MH'<D!*3)5J<)^'CFYTXS/]_?Q_T[T/R`'03',;]+%F42-R]/)OB-3="";B(#>"
^XMB(3.9,23,2,23027,0)="""DATA"",396.18,239,3,487,0)"
^XMB(3.9,23,2,23028,0)="M7C[@P1`(X'%L\+I`=S@]>8''-$%_F@FR2-AT+_#P63@\C@F^QGAQ,L!C&F`P"
^XMB(3.9,23,2,23029,0)="""DATA"",396.18,239,3,488,0)"
^XMB(3.9,23,2,23030,0)="M$0.C<0/LY<Y`51APDOGYQS&_EZBZ/9G?,<TOG&A^X5Y!P(/M[TA>X""M:VGDR"
^XMB(3.9,23,2,23031,0)="""DATA"",396.18,239,3,489,0)"
^XMB(3.9,23,2,23032,0)="MP&,:8#31`(/]XH""'6B``1_(!\R3%U<D$CQJ*MB?:H+]?*/!@%'2.8X.$HWQU"
^XMB(3.9,23,2,23033,0)="""DATA"",396.18,239,3,490,0)"
^XMB(3.9,23,2,23034,0)="M,L&CFB`PR?B(M`D?_;QN-S1-87>A.O+BG_(])N=[@(F[""HZS3U#75^18^*XJ"
^XMB(3.9,23,2,23035,0)="""DATA"",396.18,239,3,491,0)"
^XMB(3.9,23,2,23036,0)="M_U6EVL!UOB60#(^X_\&]%&->#X/)P^K4&3H@7&E@:""J7@E[EDJ.H&]_!=""<R"
^XMB(3.9,23,2,23037,0)="""DATA"",396.18,239,3,492,0)"
^XMB(3.9,23,2,23038,0)="MW_']H]>+JXQ=8^H#ALZ9N=[(1TR\KQ6U*IIF(""""4&FMT""O$BJ1QK5['0E;2!"
^XMB(3.9,23,2,23039,0)="""DATA"",396.18,239,3,493,0)"
^XMB(3.9,23,2,23040,0)="M?O6GIR@E.Z=%J7Q![DQ!;??#T8X;.I;.\M4\?YE_<=CN2_-AK$#.`29V!D'/"
^XMB(3.9,23,2,23041,0)="""DATA"",396.18,239,3,494,0)"
^XMB(3.9,23,2,23042,0)="MSD(8[C:<-<FTJCWT@3'7Z5\_>ASUZ)';0?1UY0>*`L1=\="".K0`XI^'#;;HT"
^XMB(3.9,23,2,23043,0)="""DATA"",396.18,239,3,495,0)"
^XMB(3.9,23,2,23044,0)="MNF#_T[378I7Y<G\M6&\GM[U.^!9;L'8:.3UXZA9;.Z&^2U;X^VB-!32=L3QU"
^XMB(3.9,23,2,23045,0)="""DATA"",396.18,239,3,496,0)"
^XMB(3.9,23,2,23046,0)="MHZ<HY!OAM&EQ'<*$XYVQ+BX_7IQ?7K\]O_HF/;&<H_?$@IZO%!441-6Z@JVH"
^XMB(3.9,23,2,23047,0)="""DATA"",396.18,239,3,497,0)"
^XMB(3.9,23,2,23048,0)="MVC*\'@QQHB+63M/%?P'=&/^ZL@)[R6I?*04&4O(E@P)N,""ZF>MJYQE^J7UC;"
^XMB(3.9,23,2,23049,0)="""DATA"",396.18,239,3,498,0)"
^XMB(3.9,23,2,23050,0)="M->N?UM4ZH56%9\3YFHW!@><IX,#S=VA0JZY#9B`V]W.@=VJX)Z,*U+2/""VVE"
^XMB(3.9,23,2,23051,0)="""DATA"",396.18,239,3,499,0)"
^XMB(3.9,23,2,23052,0)="M$71%J5SG1GYM%1DWW'N/:;^*U/I(#(!^\_A#3IM7Y-;Y%UI2@8LG#P1U0`B4"
^XMB(3.9,23,2,23053,0)="""DATA"",396.18,239,3,500,0)"
^XMB(3.9,23,2,23054,0)="MHFQ#Q&U@1!I0;NL$#C3B:R?7V36MW25D(6M%5BO6'+-^);0P+;>6M$/?+;;B"
^XMB(3.9,23,2,23055,0)="""DATA"",396.18,239,3,501,0)"
^XMB(3.9,23,2,23056,0)="MI(@WJ[)""68R[9/)RC>-DR7?;F<5MXZ)GUC6Y(T79S0;=8/J+1S':E'6C`MHL"
^XMB(3.9,23,2,23057,0)="""DATA"",396.18,239,3,502,0)"
^XMB(3.9,23,2,23058,0)="MB!7*DNN/NK>N\H7P+-;6@#;KR1LM-X\NK3FK9J'M@VYN""G2'^!X^AKT""&^E"""
^XMB(3.9,23,2,23059,0)="""DATA"",396.18,239,3,503,0)"
^XMB(3.9,23,2,23060,0)="M`^EV!6F=I;H&J(Z>6'_4_XAT!=;1COGV%O9O-D*K8T(KE&AUVH9C0[3.>5I7"
^XMB(3.9,23,2,23061,0)="""DATA"",396.18,239,3,504,0)"
^XMB(3.9,23,2,23062,0)="M.5%'FOQ)NRY]%;I=$[I#6<;M'#%$-^;ISO)*2^\4<CT3<GVI-Z#KA:/D=H:]"
^XMB(3.9,23,2,23063,0)="""DATA"",396.18,239,3,505,0)"
^XMB(3.9,23,2,23064,0)="MX,E.::U7(VY4<_&87:MN469Y]C\]FU5M-)7U3PB/_""`YG%_?A%]7:N'HNKXY"
^XMB(3.9,23,2,23065,0)="""DATA"",396.18,239,3,506,0)"
^XMB(3.9,23,2,23066,0)="MOS'/+R+&A1$Q,22S;3U6<KLI>7X/Y38P@5-YP'>Q0!-NEQVW;PGU&>6,4)J3"
^XMB(3.9,23,2,23067,0)="""DATA"",396.18,239,3,507,0)"
^XMB(3.9,23,2,23068,0)="M6;WNDI""4Y0:S2L5\4W]5]T@C:+NBM10\MQ1A-^FN9'.`L=""`L5"":)IS(,>?K"
^XMB(3.9,23,2,23069,0)="""DATA"",396.18,239,3,508,0)"
^XMB(3.9,23,2,23070,0)="M@JH-TZ)%,M5NR=J0E92F&^J[EM:&[OH12,;MY+""K_TSQ#4J%'E$SPG:<WV3)"
^XMB(3.9,23,2,23071,0)="""DATA"",396.18,239,3,509,0)"
^XMB(3.9,23,2,23072,0)="M?X@ZU[<%>6Z3N#C`8&3`8&\>=#WS>?`\814Z%6UDUO""W6J>8<-M.0+0$MNW?"
^XMB(3.9,23,2,23073,0)="""DATA"",396.18,239,3,510,0)"
^XMB(3.9,23,2,23074,0)="M)[0VH^-8F+N(?2=+H3,=JT9M'\AF3RI(6@WYE#Z73G[++7DH&PU8-'EJ].V4"
^XMB(3.9,23,2,23075,0)="""DATA"",396.18,239,3,511,0)"
^XMB(3.9,23,2,23076,0)="MQS4'?+97>UR6AZWJVMKVA&P&0>"",=6T-3+NVVE.ZMNJZ9=L*_QV`@'/@?=Z!"
^XMB(3.9,23,2,23077,0)="""DATA"",396.18,239,3,512,0)"
^XMB(3.9,23,2,23078,0)="M]R0'OJG*/#GPO0QJ1?\;M:L!Q`[*$D@2PS+VW]_V2\*_=T]=X^8XH=AT6L8G"
^XMB(3.9,23,2,23079,0)="""DATA"",396.18,239,3,513,0)"
^XMB(3.9,23,2,23080,0)="MV3MK2^T4^-141,_9T+$>O=PDZ:(-X#ZBTP=+P""5(0[""H9%Y:VWZ&R`HE*VD:"
^XMB(3.9,23,2,23081,0)="""DATA"",396.18,239,3,514,0)"
^XMB(3.9,23,2,23082,0)="M%=N'+3:LHIV5C+(U%)MT'I=/J""-/X*TM'&6/_BQ@79K2GV74A2>^>)+2C2[:"
^XMB(3.9,23,2,23083,0)="""DATA"",396.18,239,3,515,0)"
^XMB(3.9,23,2,23084,0)="M""9)U?'R5DW4#[8'1$4KFA$7^^2G%N34J"")V""SR_VB90Z""3]JX)<*AA*RC\^O"
^XMB(3.9,23,2,23085,0)="""DATA"",396.18,239,3,516,0)"
^XMB(3.9,23,2,23086,0)="M\0!$/86>I""<P8:)L]*1@G>B(-O(HK`6JJ/]RPSI_W.ST5)""?WO'RH(UEFI;H"
^XMB(3.9,23,2,23087,0)="""DATA"",396.18,239,3,517,0)"
^XMB(3.9,23,2,23088,0)="M5""UL<MJ'Z\C$.KM&SYU_$+C3V;[$=PG^;+7<,SMBK+/+=!J\HP.05H?&FP+%"
^XMB(3.9,23,2,23089,0)="""DATA"",396.18,239,3,518,0)"
^XMB(3.9,23,2,23090,0)="M6]8*83/GV5XE%5V`4C$]&_8+-)WJQ=;^\K`S6+Z!L?>&!N^5S<C@O7#DO<`&"
^XMB(3.9,23,2,23091,0)="""DATA"",396.18,239,3,519,0)"
^XMB(3.9,23,2,23092,0)="M!B_N:=+@S8[^S4VW]TCC.$CO=D?;O<-C.@ZN-^8X!+S?T(1.N,U]</(;>B=M"
^XMB(3.9,23,2,23093,0)="""DATA"",396.18,239,3,520,0)"
^XMB(3.9,23,2,23094,0)="MJ(U3#:W`@0/G;,`);L,5SDK:Y^;U)JLG@4O689H`Q@.)]FD$:`LP#5TY5&(0"
^XMB(3.9,23,2,23095,0)="""DATA"",396.18,239,3,521,0)"
^XMB(3.9,23,2,23096,0)="MXKEBR[8TC]MYW:K(""H(VEZ*=R(E<=[VQR6*MZPS3M?#51_PUOJ)$LGQ2""/0,"
^XMB(3.9,23,2,23097,0)="""DATA"",396.18,239,3,522,0)"
^XMB(3.9,23,2,23098,0)="M:*X/`6'S0Z-Y.@F.K!2AK8YH.)ZX5`SM>WAX2034&`L""<4(+H;R2EVGW3`\O"
^XMB(3.9,23,2,23099,0)="""DATA"",396.18,239,3,523,0)"
^XMB(3.9,23,2,23100,0)="M\0\^!B343`S`\\59V/UJ*TKO`*+%;*%`5Q4J-9EMUICRSA7H.?`MG+5[]Y'M"
^XMB(3.9,23,2,23101,0)="""DATA"",396.18,239,3,524,0)"
^XMB(3.9,23,2,23102,0)="MMOMZNDPA*4MHUUJBGR#$#P_BOK<9A@30-JNLW%5E:Q,:9I>4T&Y#?T;9;+?H"
^XMB(3.9,23,2,23103,0)="""DATA"",396.18,239,3,525,0)"
^XMB(3.9,23,2,23104,0)="MY9G70'K>B/0"">+#XG.B;B.^\;7ZUAPQ_H_VV.!G2;EH*(0*=$)F@:%=/""I[M"
^XMB(3.9,23,2,23105,0)="""DATA"",396.18,239,3,526,0)"
^XMB(3.9,23,2,23106,0)="MAP'\#'KAYMZ&::`X^*<!3;HIICW^IP^@KJ[!>""3W.>^=(>*:=;'^/9D70JGH"
^XMB(3.9,23,2,23107,0)="""DATA"",396.18,239,3,527,0)"
^XMB(3.9,23,2,23108,0)="M0%MM3]=E'/CV&#W0D![:KLR$%-WY`0Z`8Z1XOADI[]B75;Z);TTH<LU4%?;R"
^XMB(3.9,23,2,23109,0)="""DATA"",396.18,239,3,528,0)"
^XMB(3.9,23,2,23110,0)="M]@)@*)J\K$_JH#,P-B!)VXV]IR\%4:9G++!`[>-DV3@Q3TSH\HSM""/;RM#H7"
^XMB(3.9,23,2,23111,0)="""DATA"",396.18,239,3,529,0)"
^XMB(3.9,23,2,23112,0)="M=E1]C8-%?1:4D37N/,N+%4HYF-'D`@^1'A@.R'M'>&0Z8#S[?E$>0%-KN7>4"
^XMB(3.9,23,2,23113,0)="""DATA"",396.18,239,3,530,0)"
^XMB(3.9,23,2,23114,0)="M^V;&<N_H#DQMI8\;H2'.OV!MR@A1Q$F\PV01-(P;;;8JBR!H4E<EJ<+`1*J*"
^XMB(3.9,23,2,23115,0)="""DATA"",396.18,239,3,531,0)"
^XMB(3.9,23,2,23116,0)="MQ%7HA,&$Q%7;)''U`],*ERV^:P7*7WS!V@O/A!]6#;(.Y[YV`O('<GOE`7.`"
^XMB(3.9,23,2,23117,0)="""DATA"",396.18,239,3,532,0)"
^XMB(3.9,23,2,23118,0)="MB'PX043P?HDHT(NH9^&'6!&8(""+W?HDH-!YFBO.9C&W(FR`@_WX)*)HPS`X0"
^XMB(3.9,23,2,23119,0)="""DATA"",396.18,239,3,533,0)"
^XMB(3.9,23,2,23120,0)="MD3<EA3Z\%R*BQ0RLOR+]8]3!<PZ`(#`\PZE*<P=(AFJ2HZ](<#""!X&""48$=-"
^XMB(3.9,23,2,23121,0)="""DATA"",396.18,239,3,534,0)"
^XMB(3.9,23,2,23122,0)="M<`_""?&=_""',F4.R-4NP:6L4!%/ON!(J=48H](Z,X1,+1!'K!6/6+%VG*7V2;"
^XMB(3.9,23,2,23123,0)="""DATA"",396.18,239,3,535,0)"
^XMB(3.9,23,2,23124,0)="M,(.DW<DU?`@-G,I?^$IKOOY%'4BV-9MU7GAP3%9WH+1[0%""6VH\O]F/OLD[$"
^XMB(3.9,23,2,23125,0)="""DATA"",396.18,239,3,536,0)"
^XMB(3.9,23,2,23126,0)="M0YGE8[N]7B9B%\CG[,?])EM$4+%%U+<;I=5H;::S&)V]#%J+##2#)1&N8F>4"
^XMB(3.9,23,2,23127,0)="""DATA"",396.18,239,3,537,0)"
^XMB(3.9,23,2,23128,0)="MVQ>M]Q`ZRZA+I[A=W%-""56]CU--L[$%U140PE*40M.;5JT969%^P`HC'X`G-"
^XMB(3.9,23,2,23129,0)="""DATA"",396.18,239,3,538,0)"
^XMB(3.9,23,2,23130,0)="MK;+*G/`4(W8(+RK)_TJ6A])D9A:X3!8;0CR],&>E-'DA9&>6=5U-3)1##_5B"
^XMB(3.9,23,2,23131,0)="""DATA"",396.18,239,3,539,0)"
^XMB(3.9,23,2,23132,0)="M>9\T72C[]Z;86I^3-&4IB$E!'\;.N(E9]463.<0_B]%)/,-UBH@?QPZ(9<&["
^XMB(3.9,23,2,23133,0)="""DATA"",396.18,239,3,540,0)"
^XMB(3.9,23,2,23134,0)="M>;[86N6V9$ZC14^XI3]>$UD_M>8I6E!QTD/$^&<E!6-CA;;=ZSGN-AG]#660"
^XMB(3.9,23,2,23135,0)="""DATA"",396.18,239,3,541,0)"
^XMB(3.9,23,2,23136,0)="MX$U2T5'(3K%H7V[=""'G3R8)VBB-#T+*:XSK6NU-$.`917>:`6.(3WK;I44*2"
^XMB(3.9,23,2,23137,0)="""DATA"",396.18,239,3,542,0)"
^XMB(3.9,23,2,23138,0)="M#JL_(,!7=WC?I4]QC-.-54H;C3SDF[)AW7H<%TAX%CU?A44GB.K6Q!37Y)'<"
^XMB(3.9,23,2,23139,0)="""DATA"",396.18,239,3,543,0)"
^XMB(3.9,23,2,23140,0)="M);Q.4KPNMVS;EK`7Y^SC$R:4#!,WF=<C4<D<6RQ%O'Y_7N2;FUM.:L^ZO?-)"
^XMB(3.9,23,2,23141,0)="""DATA"",396.18,239,3,544,0)"
^XMB(3.9,23,2,23142,0)="M=1,0CIMS%,HY5.,[OK45PR=CR<"".P7`""4;`O`<XX`>JT(\\14VBE;9NNKGF("
^XMB(3.9,23,2,23143,0)="""DATA"",396.18,239,3,545,0)"
^XMB(3.9,23,2,23144,0)="M!/<GZ\UV71^P<X>?UF?:Q&F>;<HQHEP3HN0)%!BD\L\<!5$T?=V,+L>$+E?."
^XMB(3.9,23,2,23145,0)="""DATA"",396.18,239,3,546,0)"
^XMB(3.9,23,2,23146,0)="MN0L-LJ5^LKBEY0`%T(2""MM5T5P-HDB?&!)/7<AFC`IA0`9SI<K""MGRUN\3PP"
^XMB(3.9,23,2,23147,0)="""DATA"",396.18,239,3,547,0)"
^XMB(3.9,23,2,23148,0)="M<-59])X[.'(<$)CG`;["">&W10[A8Q=8RQ5^LFP*Q/,<&]""@6M:?$=X='=K#)"
^XMB(3.9,23,2,23149,0)="""DATA"",396.18,239,3,548,0)"
^XMB(3.9,23,2,23150,0)="M(]ANA_#[+8D%,#21>=""3N4&&C$?^4P\`8@#O-V6<TC*Z.U960(M/+/(WF2,("
^XMB(3.9,23,2,23151,0)="""DATA"",396.18,239,3,549,0)"
^XMB(3.9,23,2,23152,0)="M@X_J$/TC-OO7=7QCF88P,*';E\TUF&`K+OGP:YXO%-23V7BQB6F""T@VB)XC5"
^XMB(3.9,23,2,23153,0)="""DATA"",396.18,239,3,550,0)"
^XMB(3.9,23,2,23154,0)="M3LV.^J<T$5J8[6BE37OS/NSZ)NQZ4M:0ZTS(#':8P22%"";NTL#&IMHQ-IDK"""
^XMB(3.9,23,2,23155,0)="""DATA"",396.18,239,3,551,0)"
^XMB(3.9,23,2,23156,0)="MGL!NIUJZ!3.!3<^$3:=GC1,R@2'YP,Z+&V#3RK-T6\]M#:<6\<<8`@C%+XLQ"
^XMB(3.9,23,2,23157,0)="""DATA"",396.18,239,3,552,0)"
^XMB(3.9,23,2,23158,0)="M=EP3=N24.0=.*.@""S""5""Q,7M^*'Z()[5$J=U>C9]"",YJ766YQ*Y0'XL7>Q6J"
^XMB(3.9,23,2,23159,0)="""DATA"",396.18,239,3,553,0)"
^XMB(3.9,23,2,23160,0)="M:K+L)#:!/+6'T&3N^*69.PA_'W):CBNHC#(Y:E3`@+RH5YIJ0%TC\/;DNFE3"
^XMB(3.9,23,2,23161,0)="""DATA"",396.18,239,3,554,0)"
^XMB(3.9,23,2,23162,0)="MR7<T?4RT!W63A38'2%V?X[G&B;9M&7UI48?X^\^N;?LJ0750S(%B_6<(1H)B"
^XMB(3.9,23,2,23163,0)="""DATA"",396.18,239,3,555,0)"
^XMB(3.9,23,2,23164,0)="M,#IF!KOGJ#+8Z^5,._)#(8>]+CS8*;KN&C4Y5/-PXC*V)E<8J""=](-9""1O(R"
^XMB(3.9,23,2,23165,0)="""DATA"",396.18,239,3,556,0)"
^XMB(3.9,23,2,23166,0)="MSKQ3Q:LM02:R\""\3]%`JW2!0+R(<<1TC+_\-W-GVK+SG(Y4HP/8TT6U;*EN'"
^XMB(3.9,23,2,23167,0)="""DATA"",396.18,239,3,557,0)"
^XMB(3.9,23,2,23168,0)="M8]%MWW0@@P.#VTZD""FZ+,G-E7QK(2_.N1TH7VO:ZSO9_H]""V/0J90-7\JZZC"
^XMB(3.9,23,2,23169,0)="""DATA"",396.18,239,3,558,0)"
^XMB(3.9,23,2,23170,0)="M:%)J`['YEQC<!A"">@MLRB/H:/`@T/6K""P6IA:(RAK^DQR$@X(/J[Q]!`$T$5"
^XMB(3.9,23,2,23171,0)="""DATA"",396.18,239,3,559,0)"
^XMB(3.9,23,2,23172,0)="M*R;D;F+C:\W9:]8<((NWXR""JJS4!8M,(^ZLY0X=@:)OW`OI90DK9N7+LM=>T"
^XMB(3.9,23,2,23173,0)="""DATA"",396.18,239,3,560,0)"
^XMB(3.9,23,2,23174,0)="MI]T:WS4IC6#;I%29]])WZ_05`A_C&-%=!2[KI54-5WQQEF=TU=X48`P""FJK]"
^XMB(3.9,23,2,23175,0)="""DATA"",396.18,239,3,561,0)"
^XMB(3.9,23,2,23176,0)="M`:PUQ7<""W2VNG*\"":`\'O0+-2/35WDSD#:%7KU9LL-=!OLH2]&""02[/W(JP]"
^XMB(3.9,23,2,23177,0)="""DATA"",396.18,239,3,562,0)"
^XMB(3.9,23,2,23178,0)="MY5#Z5T6N2%=O9@\6S81RK1$,C@I<@1:X[,$:*=\?!ZZN(?6]`RZ6M#C%$P.2"
^XMB(3.9,23,2,23179,0)="""DATA"",396.18,239,3,563,0)"
^XMB(3.9,23,2,23180,0)="M)U9''O_&P!7J@,NDU:8,7(YO#%R_HJ2R7B7+91)OTH?C>?F:S@W!$?""KPP)?"
^XMB(3.9,23,2,23181,0)="""DATA"",396.18,239,3,564,0)"
^XMB(3.9,23,2,23182,0)="MAP4B&?+Z%00&6`""]OQP+U+`=J&';%V;:X""]R-W7P%:IB;Y#K&QL*65)N(+6="
^XMB(3.9,23,2,23183,0)="""DATA"",396.18,239,3,565,0)"
^XMB(3.9,23,2,23184,0)="M<D_M(WJ(%FFBVIIH7.@/!.,<VSRL_6)#M)^ODMCZT*3A7-7;""$V'GH<2H0.:"
^XMB(3.9,23,2,23185,0)="""DATA"",396.18,239,3,566,0)"
^XMB(3.9,23,2,23186,0)="M1A)0;""(0?;L(7:0)T($H$C,-HGNQN&1IS*XJ0"">*S),#=(HV%G+RJ1\$IPB="
^XMB(3.9,23,2,23187,0)="""DATA"",396.18,239,3,567,0)"
^XMB(3.9,23,2,23188,0)="M`E@#%;`ZW*9&(.QI>+7+R.UIG(""UW^9?M\_A:1:Y8L:<W%2DUYUAJ""/WBK8:"
^XMB(3.9,23,2,23189,0)="""DATA"",396.18,239,3,568,0)"
^XMB(3.9,23,2,23190,0)="M>)>7)<M-)`*\R1*:%/70P!7ZZ@4P](9""=Z%K#JY62<_&ZJII!U!6U\H3`#%I"
^XMB(3.9,23,2,23191,0)="""DATA"",396.18,239,3,569,0)"
^XMB(3.9,23,2,23192,0)="M!8P0<YR5,$-9J$19L<E*,);B'_5`-O3\$\CV05:Y<^QS(!N*S<]JL^56%_X)"
^XMB(3.9,23,2,23193,0)="""DATA"",396.18,239,3,570,0)"
^XMB(3.9,23,2,23194,0)="M9'L@JSM,19,4+(9W9)""%H7DH<8>I_[0NRFU\FR!B7;'U=K5&=7+\@P%91]/$"
^XMB(3.9,23,2,23195,0)="""DATA"",396.18,239,3,571,0)"
^XMB(3.9,23,2,23196,0)="M2TS4D($""FH/L6%>SP.#]W8$6NUB=08+W/XB<:&]L,F=F%4JM5TE9-S6Z;JH%"
^XMB(3.9,23,2,23197,0)="""DATA"",396.18,239,3,572,0)"
^XMB(3.9,23,2,23198,0)="M1E""?=6Q7^=:A)V:42LZJ+QN:8Q\+]5VE;RT*TY4F*:<7]P3`Z<&^'9U@OP_["
^XMB(3.9,23,2,23199,0)="""DATA"",396.18,239,3,573,0)"
^XMB(3.9,23,2,23200,0)="M4`7[`1=S;0X9DQK!<[A_VO[NXS[4885Z_SN0DC/E0T1""8]QG7G6^M*Y6.$UI"
^XMB(3.9,23,2,23201,0)="""DATA"",396.18,239,3,574,0)"
^XMB(3.9,23,2,23202,0)="M)=8U*BO,VF'B!P/XZ@UQQQ_L[_\5`=_1=(T<]*05W4L'`+\%>):VRK2WTRI="
^XMB(3.9,23,2,23203,0)="""DATA"",396.18,239,3,575,0)"
^XMB(3.9,23,2,23204,0)="M-#&UCJ&_JVNV*$96@K'4IW:?X`CH[RC17]RNEY.#H;SV[$Z=X\#_WE7U?GMH"
^XMB(3.9,23,2,23205,0)="""DATA"",396.18,239,3,576,0)"
^XMB(3.9,23,2,23206,0)="M!\JP""0?M=8K8KB4?D,(FIZK=/K)KSD&`4->0UQTZ'Q%""<V@_*U!&:SYI0!H_"
^XMB(3.9,23,2,23207,0)="""DATA"",396.18,239,3,577,0)"
^XMB(3.9,23,2,23208,0)="M1$=>4_T$G<&RF@YHC7!5%.*H&]T0%IF$<7J;\1-F'""MNZ&+5NZR<N5;N6%PG"
^XMB(3.9,23,2,23209,0)="""DATA"",396.18,239,3,578,0)"
^XMB(3.9,23,2,23210,0)="MA&8>OC]V1`L\6GJK:Q+7D3$^ZF&\WPN>A_#DX/</PXF4#K[+'89C""[.`+9YM"
^XMB(3.9,23,2,23211,0)="""DATA"",396.18,239,3,579,0)"
^XMB(3.9,23,2,23212,0)="M""[V_>S88<'7)[9KT`+$AK[SN_W_VOK2Y;23;\J\@WD2,[&[9A5RP^4N'RU4U"
^XMB(3.9,23,2,23213,0)="""DATA"",396.18,239,3,580,0)"
^XMB(3.9,23,2,23214,0)="M[3==U0[;W37S$2(A""6V2X`""@9/G73V9BRQ5(@)M$LN+%:XNDJ,2]F3?O>DYH"
^XMB(3.9,23,2,23215,0)="""DATA"",396.18,239,3,581,0)"
^XMB(3.9,23,2,23216,0)="MGRG_N48WZ&S]R<P%Z/-?XG""-G)4`T8BRHY,\4,Z:&?.;>9@(WJYJ08UZ5JUW"
^XMB(3.9,23,2,23217,0)="""DATA"",396.18,239,3,582,0)"
^XMB(3.9,23,2,23218,0)="M_*&80I>[8*'GC[B@1$0*'B%BG6=E-LL6E""XL75%6TS*9#UP/06BX'GPLTMC)"
^XMB(3.9,23,2,23219,0)="""DATA"",396.18,239,3,583,0)"
^XMB(3.9,23,2,23220,0)="M8TQ*`LBSO1[0[O#6P0!BN(C2[\F-EZ&!,*GC2G>C_>""M?Z1DC?$W2F=:;</R"
^XMB(3.9,23,2,23221,0)="""DATA"",396.18,239,3,584,0)"
^XMB(3.9,23,2,23222,0)="M;^.1P_]O4EQQH""U;(*_#(3FZ?8*$:C90(TBP'^1U[A#3X65&BY=6F+*%_F3O"
^XMB(3.9,23,2,23223,0)="""DATA"",396.18,239,3,585,0)"
^XMB(3.9,23,2,23224,0)="M1=*@=UXGU#HT8FN\W(NBM(F%2!4J-%NIL_)RX*""7$VI[WCVNYUWHO4*!-/98"
^XMB(3.9,23,2,23225,0)="""DATA"",396.18,239,3,586,0)"
^XMB(3.9,23,2,23226,0)="M'8%S]G(\TZ4'#5Z.V.XB!S_VI:J?L\=D<5(^3GWWFHHOGM!*(:-Y^,K@(;""]"
^XMB(3.9,23,2,23227,0)="""DATA"",396.18,239,3,587,0)"
^XMB(3.9,23,2,23228,0)="M>N'NKEZW_\J(^AH85'K'EKN0LVUXW(7!O?.""KEXV,=)W]8+>*2ZHY#8424:>"
^XMB(3.9,23,2,23229,0)="""DATA"",396.18,239,3,588,0)"
^XMB(3.9,23,2,23230,0)="MZ^^',V9]GZYFE(*0TL]N""D6*:$B*$I1O!^3KD#V9=*_7D!+LQ;ZKUV3[?6V>"
^XMB(3.9,23,2,23231,0)="""DATA"",396.18,239,3,589,0)"
^XMB(3.9,23,2,23232,0)="M,^)GWH76!>1Y4@D+G+OQ-\UKNOJL9N3WT+35U4,[FK9UDLSN3S#`=4VY`<$I"
^XMB(3.9,23,2,23233,0)="""DATA"",396.18,239,3,590,0)"
^XMB(3.9,23,2,23234,0)="ME""7G6D2*7^J.+^K]VN0)*Z(>:+$<*,7;D44""\RNEP+9<27TMFC*6:*`J!29G"
^XMB(3.9,23,2,23235,0)="""DATA"",396.18,239,3,591,0)"
^XMB(3.9,23,2,23236,0)="M++>Y%__Y^1]I4?Z<?:?+;G_HB4.!*U.C*IV_/E""->#.)\>MW""HB6S&N.5.7B"
^XMB(3.9,23,2,23237,0)="""DATA"",396.18,239,3,592,0)"
^XMB(3.9,23,2,23238,0)="M4Y310SW%HH8&VI%B7A9EELUYPZMYFUR?1>&4]_'*N8\7MPT4:)DNDZ'?K#Y/"
^XMB(3.9,23,2,23239,0)="""DATA"",396.18,239,3,593,0)"
^XMB(3.9,23,2,23240,0)="M&<KSA/^]&NRH=.+%8_S47:T""GKON""Y/OLV1=5E2#SFWRZ#P2PUO0/\$PH;)V"
^XMB(3.9,23,2,23241,0)="""DATA"",396.18,239,3,594,0)"
^XMB(3.9,23,2,23242,0)="MZ&3!(2>1;WL2`P]Z,=:RYH,/[:MJHIL*^&NZ[BS-GXR6N-X""V>J.[HDAJ\`:"
^XMB(3.9,23,2,23243,0)="""DATA"",396.18,239,3,595,0)"
^XMB(3.9,23,2,23244,0)="M&GTM:+'$-3BT>9JAOV;S0(3<X)+X5MT""+9EKE9SC8=&[$H.4^+ZPN6H<!=-H"
^XMB(3.9,23,2,23245,0)="""DATA"",396.18,239,3,596,0)"
^XMB(3.9,23,2,23246,0)="MM&M`'1-9H^7,THA<^/LR_I[&SAOGXVJ6990,N\J*OB$^1$S\V]D)(3ZXV`(U"
^XMB(3.9,23,2,23247,0)="""DATA"",396.18,239,3,597,0)"
^XMB(3.9,23,2,23248,0)="M!X/]S>3XIK%I7[SJ@NC9=(ZP+LR!OD%/VG](!=D%0)W)N;2+:ZPKUI85>:IL"
^XMB(3.9,23,2,23249,0)="""DATA"",396.18,239,3,598,0)"
^XMB(3.9,23,2,23250,0)="MH:R(L(PSAB[65;&NIOEM5S]'(M7XY<:(P!XWYWW-R^;\'""\H-.C)6%(3_&'?"
^XMB(3.9,23,2,23251,0)="""DATA"",396.18,239,3,599,0)"
^XMB(3.9,23,2,23252,0)="M!'=+-6)59VPH[9R;2G2#MM4PVPRP6$;$T;/IR49:QU44H@Q(!B,PV)47A.[%"
^XMB(3.9,23,2,23253,0)="""DATA"",396.18,239,3,600,0)"
^XMB(3.9,23,2,23254,0)="MM*JF53N)XW&FM6IW[VH9LN/JGWLZRS0U'ADP',4LK(*-B]%X0THA,4YE1CRR"
^XMB(3.9,23,2,23255,0)="""DATA"",396.18,239,3,601,0)"
^XMB(3.9,23,2,23256,0)="MF7`91&/H,Z*,Z>.=,Z$I`T2AQ>*0W$J""L$VFC:5@RCK%U1KZ.Z+:02MOFFH7"
^XMB(3.9,23,2,23257,0)="""DATA"",396.18,239,3,602,0)"
^XMB(3.9,23,2,23258,0)="M(?Q!.-AXX1ZD^M/P!B(3VH@T@>/+\[]P$&TDB-Q=H8W\/5FFZT5RE\ZXE!2="
^XMB(3.9,23,2,23259,0)="""DATA"",396.18,239,3,603,0)"
^XMB(3.9,23,2,23260,0)="MD!)>^2TA<6$5)@J@),D/""@M--'K7G5'Z3I:5\YP\GO@RHVHQ`Y:P^]$;CCU"""
^XMB(3.9,23,2,23261,0)="""DATA"",396.18,239,3,604,0)"
^XMB(3.9,23,2,23262,0)="M/""0Q!;""32`R<W_TX7._1CBR%'+Y=U=QDFEBZ]+5KKDSHFLRK/K$3]/4X0F1?"
^XMB(3.9,23,2,23263,0)="""DATA"",396.18,239,3,605,0)"
^XMB(3.9,23,2,23264,0)="M_?^:4SB`""@G@M[B8402IJKWG9&Y/;(.P(M?0;1#O&W;MGZI[=-W!V/=<3,AT"
^XMB(3.9,23,2,23265,0)="""DATA"",396.18,239,3,606,0)"
^XMB(3.9,23,2,23266,0)="M,8FI.G\0V-P[6/AA`;>B7$AJ.LS5Q!\7N!6-?=7.#6&NGAZ(.%90*J>[%R0`"
^XMB(3.9,23,2,23267,0)="""DATA"",396.18,239,3,607,0)"
^XMB(3.9,23,2,23268,0)="MU;X""DW70IW;:F,.`S7?6L/(@`A:30G""/H%6^""1!91!9NVZQ;*XJ.!J>""T'""7"
^XMB(3.9,23,2,23269,0)="""DATA"",396.18,239,3,608,0)"
^XMB(3.9,23,2,23270,0)="MJIS$06J!QE6\U!""@BQ55K""C4=J1R#:G5!=L1R+FB$:W:`""]&5#""BAK%Z8&AO"
^XMB(3.9,23,2,23271,0)="""DATA"",396.18,239,3,609,0)"
^XMB(3.9,23,2,23272,0)="M@7Y_7D>='#2#5E7D0N]+$B#>GTJA$6##)+O;""_Z'[3W3(7),;/*-@[X5A('%"
^XMB(3.9,23,2,23273,0)="""DATA"",396.18,239,3,610,0)"
^XMB(3.9,23,2,23274,0)="M""N@W+9.XV.2)18,4P/J)).SW`B%&%K+XS-ZR7PHT4&2)6@EE#DR;UK'-<AGG"
^XMB(3.9,23,2,23275,0)="""DATA"",396.18,239,3,611,0)"
^XMB(3.9,23,2,23276,0)="M3T-_WS6(PO-$#DPXA'2NZ=#ZB_,II_U%%3$X[?B)YW.R%F*JDX(1I-TG3KW."
^XMB(3.9,23,2,23277,0)="""DATA"",396.18,239,3,612,0)"
^XMB(3.9,23,2,23278,0)="M<>QG#56!H;PB,5Y!&1#(4_:4KG2=Q+EZ,_M;W,R_SM.2==C3?_2HVY.GBY7R"
^XMB(3.9,23,2,23279,0)="""DATA"",396.18,239,3,613,0)"
^XMB(3.9,23,2,23280,0)="MBI)P@PB[5_:-RVPE2+<2Z31.6PJXLA^J84O!NJ5(QW':4N!5SX"")=E=Y)A(A"
^XMB(3.9,23,2,23281,0)="""DATA"",396.18,239,3,614,0)"
^XMB(3.9,23,2,23282,0)="M^4A(_E,()F.4>EMLJN8H&`80D$QF.V'5U?E5EXVW'0YWM5YJV-MAZ<-HL(\C"
^XMB(3.9,23,2,23283,0)="""DATA"",396.18,239,3,615,0)"
^XMB(3.9,23,2,23284,0)="MA.$9NJEHT$W58JM&'.P?DGKG(RG8C\Z\V`B1B<-9CQH1]+&%P#$0U4T]JO9-"
^XMB(3.9,23,2,23285,0)="""DATA"",396.18,239,3,616,0)"
^XMB(3.9,23,2,23286,0)="MOW9#%2_?,75M`OP]\L9YIC2IF)<AT>]0FO1P`3ZT""/#!('4T4`%3@7<)\%7+"
^XMB(3.9,23,2,23287,0)="""DATA"",396.18,239,3,617,0)"
^XMB(3.9,23,2,23288,0)="MJ1L[JETE7M@=6XD,KQ2<N^7$)DQZ8(.S($?SOGU.]'U!.;`I.NHOR4,Z2TX'"
^XMB(3.9,23,2,23289,0)="""DATA"",396.18,239,3,618,0)"
^XMB(3.9,23,2,23290,0)="MS1\:0K>^6I,%+WG=""S%H-0UI42D/@[TAKDUX""*/93O/XQM$>W(LV#13DN28J"
^XMB(3.9,23,2,23291,0)="""DATA"",396.18,239,3,619,0)"
^XMB(3.9,23,2,23292,0)="M;XTG\B#:_60/()+A)R@A^YF;6?V9DI!?\9_/-^7L7O@-]@K_2W_&BV]-JX-#"
^XMB(3.9,23,2,23293,0)="""DATA"",396.18,239,3,620,0)"
^XMB(3.9,23,2,23294,0)="MO(I%F;9K[89&MQJI<;<9J3$98D]+&Q69^@%@(""-7>^=NB`VS_\""U0F23\6Z@"
^XMB(3.9,23,2,23295,0)="""DATA"",396.18,239,3,621,0)"
^XMB(3.9,23,2,23296,0)="MO0_[(<F3FSQ[B`M:]L^=][,9F]D^%7OL1A;<G7*A""@9V<Y=#*4W@6OSQMO>Q"
^XMB(3.9,23,2,23297,0)="""DATA"",396.18,239,3,622,0)"
^XMB(3.9,23,2,23298,0)="M@WNQ\*+C<M""#QH89DB@<!TQG?Q?L9,P3&.\""B334&V*I]11'&K4=<#N\""[[>"
^XMB(3.9,23,2,23299,0)="""DATA"",396.18,239,3,623,0)"
^XMB(3.9,23,2,23300,0)="MY[1?CS@TG27_E;RP2(OE%=\QE^7Y?7S'W0K_6GU;98^KYVOP=6E!H$L+2EL:"
^XMB(3.9,23,2,23301,0)="""DATA"",396.18,239,3,624,0)"
^XMB(3.9,23,2,23302,0)="MN4.Z4;L341A=C>]%@[HQ&""A@K`KHV75%JE/OA?-+<QWY)FNJ+U>%L"">C$ME'"
^XMB(3.9,23,2,23303,0)="""DATA"",396.18,239,3,625,0)"
^XMB(3.9,23,2,23304,0)="M!5_3U2KMD""Y>_N6C+ZX%PNV-_#W2K^+`Y@X(PX%)EP/31D,C^ZH@.1G@N\N<"
^XMB(3.9,23,2,23305,0)="""DATA"",396.18,239,3,626,0)"
^XMB(3.9,23,2,23306,0)="MF*T,WAW[:LNEV+[R.9EM<KI%AJE6(=+B944F2BTD<Q7""2X^7:K<,P]%19`4-"
^XMB(3.9,23,2,23307,0)="""DATA"",396.18,239,3,627,0)"
^XMB(3.9,23,2,23308,0)="MK70GV,.H_#NE,`@GQTUH&'N4.F>]?62!:_XNWR;^\>6T@.^-`/S\]2DA[F`'"
^XMB(3.9,23,2,23309,0)="""DATA"",396.18,239,3,628,0)"
^XMB(3.9,23,2,23310,0)="M\VE)[8*-`R8BAY"",,7-$X&<&HZTFJ,6I]F@(_T)#[8+1941;8^/UU""Z1B8]6"
^XMB(3.9,23,2,23311,0)="""DATA"",396.18,239,3,629,0)"
^XMB(3.9,23,2,23312,0)="MMO$U*]#%Q@LVWC""B;9@LC,3#*`\:1_;X%QV[MI.NG)_S)""[OB2Q/Q-0;)@RA"
^XMB(3.9,23,2,23313,0)="""DATA"",396.18,239,3,630,0)"
^XMB(3.9,23,2,23314,0)="MW^>J[K+>AY&=.47!LQF+@.$PCKZG8%')D7""@DM#ZEWY>C375347XG#&%PE""V"
^XMB(3.9,23,2,23315,0)="""DATA"",396.18,239,3,631,0)"
^XMB(3.9,23,2,23316,0)="MC\5`'_GG#J,/#4/9H2G'[/9ZQQ<8?2*ZR(8(*]A+=MDPMX(0[OOC(`K'3H6W"
^XMB(3.9,23,2,23317,0)="""DATA"",396.18,239,3,632,0)"
^XMB(3.9,23,2,23318,0)="M\]>[`?&/;,C#@(P4Y""D\/:K;S.&>ELD[HN;<F3\5Q+[%UTZ#YU_F,5E.NKHE"
^XMB(3.9,23,2,23319,0)="""DATA"",396.18,239,3,633,0)"
^XMB(3.9,23,2,23320,0)="MJZ(SCO([!0-![;#LKL@G*-I=*P@&>GXG<`2LZZCOVKFM(@K:0MM\A/\NE5*@"
^XMB(3.9,23,2,23321,0)="""DATA"",396.18,239,3,634,0)"
^XMB(3.9,23,2,23322,0)="MK&.-MXXSKMFV""H\""WT:6<J>RU>S]G_?I[+[&$""P2AYP+AR:=TCR9#P5M06""Q"
^XMB(3.9,23,2,23323,0)="""DATA"",396.18,239,3,635,0)"
^XMB(3.9,23,2,23324,0)="M*@B]H5KN\,ZL>[J+D?NP]C@,M7(8BB<(#!;+K?&A\2X*)*&Q0"")*V%.PC*,A"
^XMB(3.9,23,2,23325,0)="""DATA"",396.18,239,3,636,0)"
^XMB(3.9,23,2,23326,0)="M0)C0#:(]P&#F=S17>?4_(CYW5J:K3;Q@QR]I$*.YTDA]MM+5C'TT6<TT[S9`"
^XMB(3.9,23,2,23327,0)="""DATA"",396.18,239,3,637,0)"
^XMB(3.9,23,2,23328,0)="MT_,-PZXD>^&..A?MF9ZGY'8N!/@!LD#:_J[_7@YJX`648Y@/JD==$R\!92<$"
^XMB(3.9,23,2,23329,0)="""DATA"",396.18,239,3,638,0)"
^XMB(3.9,23,2,23330,0)="M8'@GM-!`Y\Y]``;SU<""(V2&:/+EM&BO-?TK""FIS(P#)A/0BJ_H<`^OV967,*"
^XMB(3.9,23,2,23331,0)="""DATA"",396.18,239,3,639,0)"
^XMB(3.9,23,2,23332,0)="MQ#&K$]GTHB-_-\F7:5E20/!93,]#^D-""\.A^DUYTFZ(F!W'B-:,&X4\4!PG["
^XMB(3.9,23,2,23333,0)="""DATA"",396.18,239,3,640,0)"
^XMB(3.9,23,2,23334,0)="M9Q+G->Q'?%-D^0W]""TMR]^64=JV\C\E/&[+I*1?;?;RZ2W@@7.B4(L!LNB0W"
^XMB(3.9,23,2,23335,0)="""DATA"",396.18,239,3,641,0)"
^XMB(3.9,23,2,23336,0)="M\9H\]SQ^VM%?@]2$8(:76SCB7]OM'V+HO.RQL-5CV2""@>,$P;R?$KCQR([<:"
^XMB(3.9,23,2,23337,0)="""DATA"",396.18,239,3,642,0)"
^XMB(3.9,23,2,23338,0)="M^""H'2A""^=#MPA*9^5Q.K>ASR+18:HFH]=%8`GWNLB@QH**&!MLP5<]@7+A3%"
^XMB(3.9,23,2,23339,0)="""DATA"",396.18,239,3,643,0)"
^XMB(3.9,23,2,23340,0)="M)S>4P,0*F""M+#EB`H#!/L:0&D`15Q.;53MDD@K?0M5FFTOIC@Q?9ULQWM%)#"
^XMB(3.9,23,2,23341,0)="""DATA"",396.18,239,3,644,0)"
^XMB(3.9,23,2,23342,0)="MB[37RZ`76D3?O]=!C;-*DGD3;8U=G2'(#OOY_0X7@E6G&=BL4D$'A=Y(;3,'"
^XMB(3.9,23,2,23343,0)="""DATA"",396.18,239,3,645,0)"
^XMB(3.9,23,2,23344,0)="M)UUS`]$C0T5DFFGUQ4)DA(<@0ZU[Z<)=-%)$)L=4.E!0Z2!UAQW3T.MS#+;V"
^XMB(3.9,23,2,23345,0)="""DATA"",396.18,239,3,646,0)"
^XMB(3.9,23,2,23346,0)="M5G]/%QQ3PN\9^;6F*%L%<I2&(S%[1<USL[O81@A>-$4(_C9""&`R=_]D2+*@A"
^XMB(3.9,23,2,23347,0)="""DATA"",396.18,239,3,647,0)"
^XMB(3.9,23,2,23348,0)="M,O=>NGK(%IM526/>&W:#+;.'A.>F=MHC4=I]^A,-G`MFV<D&95FOHB4DHK$S"
^XMB(3.9,23,2,23349,0)="""DATA"",396.18,239,3,648,0)"
^XMB(3.9,23,2,23350,0)="M<97,PN^Z.5UCMD(RE7(34LMOU@6IGBK^H$_\.\QAB+%3Y264U&7H2H!TE\8L"
^XMB(3.9,23,2,23351,0)="""DATA"",396.18,239,3,649,0)"
^XMB(3.9,23,2,23352,0)="MIY$\Q+.-%#1]V:S769&6&9VSYQI%5\DRYG[^/9G7[(J'S$KXN\Y*:/&*);NN"
^XMB(3.9,23,2,23353,0)="""DATA"",396.18,239,3,650,0)"
^XMB(3.9,23,2,23354,0)="M*%Q)K.D4?HE&9.4%=DQH'AY@0A.N,GFL,O0--QG/@K(?'C3R1M'FGHU<<D;["
^XMB(3.9,23,2,23355,0)="""DATA"",396.18,239,3,651,0)"
^XMB(3.9,23,2,23356,0)="MNW/&45&&0U(502^""(6!C%,ABQ<'>*'*I74EJ7YA/B!Z3L,_KER<4QW\5@0)@"
^XMB(3.9,23,2,23357,0)="""DATA"",396.18,239,3,652,0)"
^XMB(3.9,23,2,23358,0)="M(5""P7X'R[N9>1(D''3^CSR/98!EO3+7!LL]#Y0>W\7D\J[[:6GS.JXYBZO65"
^XMB(3.9,23,2,23359,0)="""DATA"",396.18,239,3,653,0)"
^XMB(3.9,23,2,23360,0)="MX2.WM6-C_$""3X'P]W)?+7&85-<PW8K^[4NHF/'<>6V0`6@P,!$5>#XMM2XL^"
^XMB(3.9,23,2,23361,0)="""DATA"",396.18,239,3,654,0)"
^XMB(3.9,23,2,23362,0)="MNC_KRV-,2[&GTZ`58(O!8NB/'RRNTC<#-=W`L_CK,M8B!O9DBH.07#8+`(HY"
^XMB(3.9,23,2,23363,0)="""DATA"",396.18,239,3,655,0)"
^XMB(3.9,23,2,23364,0)="MLQFF>%\4V2PEL>7<B8MUFE=&XU8<L1B;,,""&;C;1RX)H"".07H4/4EINK(C1="
^XMB(3.9,23,2,23365,0)="""DATA"",396.18,239,3,656,0)"
^XMB(3.9,23,2,23366,0)="M&]+\NA(I>\/C79&_J\$+VMBQ2(D_..>C6_)BD2V4UVXRLL3ZTPSCNO[08-X@"
^XMB(3.9,23,2,23367,0)="""DATA"",396.18,239,3,657,0)"
^XMB(3.9,23,2,23368,0)="MLI.%S!YM)PO;FAX8E$5""`D9:B=O<=`T:G03^43_X/""56CU(VRF_5(KFE'(^9"
^XMB(3.9,23,2,23369,0)="""DATA"",396.18,239,3,658,0)"
^XMB(3.9,23,2,23370,0)="M_H,?XI63T#)61H(_)KWJLSTB%#VZH-^ED[I5W$&!(D_%D0[VZ])QAB'NS,5C"
^XMB(3.9,23,2,23371,0)="""DATA"",396.18,239,3,659,0)"
^XMB(3.9,23,2,23372,0)="M2E8X?RK6]_%=&N_%U8.#&19LB9V@YK=<6;"">2H#0G]_:):+""&^@DZ[3(YG4%"
^XMB(3.9,23,2,23373,0)="""DATA"",396.18,239,3,660,0)"
^XMB(3.9,23,2,23374,0)="M]*F#^B-OHS>X[VWOC=_W]N]MQ57WL5U0E:(]X""H`+8)MU=JA@[!%0.0A`N&Y"
^XMB(3.9,23,2,23375,0)="""DATA"",396.18,239,3,661,0)"
^XMB(3.9,23,2,23376,0)="M`]P@`UYM8""@SB65$&6K4?ASL<WJ7SD^'#S,PU+K$W`;>WW``,E%6`Q'+`(4["
^XMB(3.9,23,2,23377,0)="""DATA"",396.18,239,3,662,0)"
^XMB(3.9,23,2,23378,0)="M:]7;>CA`2TDCBDQ>+E3(AR)UU`I>N(8UIE*+HAB8PW8D4;95&^F<3:4!1=&W"
^XMB(3.9,23,2,23379,0)="""DATA"",396.18,239,3,663,0)"
^XMB(3.9,23,2,23380,0)="M8FR3TW""N/6%;S3]S(J;2#VU,)=P'H'=M*EV#J139(MM$WS-@#H9:>IEF5D\_"
^XMB(3.9,23,2,23381,0)="""DATA"",396.18,239,3,664,0)"
^XMB(3.9,23,2,23382,0)="M>@;5R3T8J6.I%]Q$C:W40::$G%>)!<!9#XEH7<B]3*6JUM.`I.@;>!$`[)VM"
^XMB(3.9,23,2,23383,0)="""DATA"",396.18,239,3,665,0)"
^XMB(3.9,23,2,23384,0)="M4B(SL_G\DJ0_:/_-J=A/9#-1!?<""F5(M`-N,U`1R[=J&A^!#MF1-%LZK=#5;"
^XMB(3.9,23,2,23385,0)="""DATA"",396.18,239,3,666,0)"
^XMB(3.9,23,2,23386,0)="M;%C>9AZ7K'UZ$=/D2J7+UX.X8C9C9[*!W]'8&40&ND\Q$:VP$;MH#""3#.ETD"
^XMB(3.9,23,2,23387,0)="""DATA"",396.18,239,3,667,0)"
^XMB(3.9,23,2,23388,0)="MZ^*)9:?^B/-95OTH0#/L>K.#29M]]#:O[D8V.ZSK*!.Q-:"",SA9.OZ;1#A+$"
^XMB(3.9,23,2,23389,0)="""DATA"",396.18,239,3,668,0)"
^XMB(3.9,23,2,23390,0)="M@;&NZ/61P6'?'4;F@=&N$L2LJ$""[[UD[_3Q.^73F+^*/?R;)-_[GWXD*[X4\"
^XMB(3.9,23,2,23391,0)="""DATA"",396.18,239,3,669,0)"
^XMB(3.9,23,2,23392,0)="M:3N$L*S?ZFW$AUJ6)U$\($)#\FG91#AGY@RYNH?3GYYY&DZ0>02&1!X`%7<;"
^XMB(3.9,23,2,23393,0)="""DATA"",396.18,239,3,670,0)"
^XMB(3.9,23,2,23394,0)="M['X:CAVW>)'^2.:T4^!ALR@H#G+2F+Q7=SFU>LMX<>V0TYG.WLP6]']>ZZ9/"
^XMB(3.9,23,2,23395,0)="""DATA"",396.18,239,3,671,0)"
^XMB(3.9,23,2,23396,0)="M^""];D=.O_<)U4J9E]87Q34$;/)J;IA""G3[1_XDM*;&[BK&.B(MK;UG[M?Y,M"
^XMB(3.9,23,2,23397,0)="""DATA"",396.18,239,3,672,0)"
^XMB(3.9,23,2,23398,0)="M59""5Q2LZ^$I[2)9926=E<_+UJR*CHZ[DP^*?H+^J_3/$JI`_\UWS=\C_F]UG"
^XMB(3.9,23,2,23399,0)="""DATA"",396.18,239,3,673,0)"
^XMB(3.9,23,2,23400,0)="MU7<WKUZSR=F,'O)%=D.?1YJC84]W3<L9Y''7]T1$L_:7N3Z!W]/O1'+-&WOM"
^XMB(3.9,23,2,23401,0)="""DATA"",396.18,239,3,674,0)"
^XMB(3.9,23,2,23402,0)="ML0/[R!!K4<1<#@*]2NEW&6()10R<.U,],B#O>GHO)_1[$L0`^=9N.UW8B9%"""
^XMB(3.9,23,2,23403,0)="""DATA"",396.18,239,3,675,0)"
^XMB(3.9,23,2,23404,0)="M>I$-A(R[-RXSW[7X^T""AG=HEW""+T3<D7,=Z3!R_\XY#.,W\%://4(M0N'IHD"
^XMB(3.9,23,2,23405,0)="""DATA"",396.18,239,3,676,0)"
^XMB(3.9,23,2,23406,0)="M#U1W!9YU[L7@/_LF_UG:I7AP=E_G0.-==16HT)8?N;E@BRXZJ*7F,*+R*O?2"
^XMB(3.9,23,2,23407,0)="""DATA"",396.18,239,3,677,0)"
^XMB(3.9,23,2,23408,0)="MA<%8<U494'D]?<HD""OJN*F!?S/QCL[PA!^=DKJG`)D,?[""]##XV]8=$X8/;#"
^XMB(3.9,23,2,23409,0)="""DATA"",396.18,239,3,678,0)"
^XMB(3.9,23,2,23410,0)="MH/*R2\(=SM#+S$8URX,`'(E5FP4N&7K5?+I#A!K`E<J9$G)D=.Z,&L@`!8P-"
^XMB(3.9,23,2,23411,0)="""DATA"",396.18,239,3,679,0)"
^XMB(3.9,23,2,23412,0)="M<]#BG(8R5>"".<>SCQ5-'!O#BS:6^]T-LO%!&='V;OMM;""L)%P^_O99X0WX(2"
^XMB(3.9,23,2,23413,0)="""DATA"",396.18,239,3,680,0)"
^XMB(3.9,23,2,23414,0)="MT+986V25<3%H2DU](4CTMV4`G"".:4J#%X!7%J23/(R6P;*!D>%-Z08U43:EN"
^XMB(3.9,23,2,23415,0)="""DATA"",396.18,239,3,681,0)"
^XMB(3.9,23,2,23416,0)="MG`/X'+LFJ.""/C8TA\.SG.0R`NYYG8TG#Z7[GGTG\[93\3M^&ZMT]M""%E[IV6"
^XMB(3.9,23,2,23417,0)="""DATA"",396.18,239,3,682,0)"
^XMB(3.9,23,2,23418,0)="MN%)<&5;*B8HFH087/+HD`616:)/[CT0LB<`_SIUE,*3A$)9Y??!;0UJ%3)Q+"
^XMB(3.9,23,2,23419,0)="""DATA"",396.18,239,3,683,0)"
^XMB(3.9,23,2,23420,0)="M>FD;46VK`9(78X-M]7K;1L""8:;D?/](3LJY8;UV#H*_?=I=](SBP6$""XEPFY"
^XMB(3.9,23,2,23421,0)="""DATA"",396.18,239,3,684,0)"
^XMB(3.9,23,2,23422,0)="MVJZ8?&&)+$..TQ5^)A0<(O?<9$&QD>LGZ./ZJ:/A_H2H""_;']</:"".@MR]#\"
^XMB(3.9,23,2,23423,0)="""DATA"",396.18,239,3,685,0)"
^XMB(3.9,23,2,23424,0)="MLMLRX1`[WI<4KJ4HG4?67>#<;$IGE95R*T+76E!];G@HS;.35A2,EQ:*HEVE"
^XMB(3.9,23,2,23425,0)="""DATA"",396.18,239,3,686,0)"
^XMB(3.9,23,2,23426,0)="MC_^UBAF_+QV1BA??:)]3NEQGY+6;12(.EM'WG4WW^;BLNC9$4E3Z#=R'-L4F"
^XMB(3.9,23,2,23427,0)="""DATA"",396.18,239,3,687,0)"
^XMB(3.9,23,2,23428,0)="M7A""QJE_)?;AVBBRHF+1,3%P_9""C44*&'I5QU=.81`C:`]0%]#=7S^R\Q>[""^"
^XMB(3.9,23,2,23429,0)="""DATA"",396.18,239,3,688,0)"
^XMB(3.9,23,2,23430,0)="MOR?Q/)[=)Z=""MV0HH(JSMWA_=QAT+18@URZQQ0)^V>0V%5P(+/Y^.T*]ETO4"
^XMB(3.9,23,2,23431,0)="""DATA"",396.18,239,3,689,0)"
^XMB(3.9,23,2,23432,0)="MT#T?BG>H)Y.0*'<H/F17GA%_6)0<5II6;>Y0[]3N4&@GK3""8(JV=E6!_3U>;"
^XMB(3.9,23,2,23433,0)="""DATA"",396.18,239,3,690,0)"
^XMB(3.9,23,2,23434,0)="MDK\'_T[B6^Y'.B\[CY\*W9!K_<Z@))""=))2>""3M1^+O""K28?K.#<XUF9/I!3"
^XMB(3.9,23,2,23435,0)="""DATA"",396.18,239,3,691,0)"
^XMB(3.9,23,2,23436,0)="MS/:!>OFKGVL^<\UVSR)=IB4_':__XN9CPU5N74A<A6@\[GI'82&F%FMFM7-V"
^XMB(3.9,23,2,23437,0)="""DATA"",396.18,239,3,692,0)"
^XMB(3.9,23,2,23438,0)="M'`Q0,<""W&<^5:<_1""+""8+YOEDBH^NVTX&YTOZV26WJ8SHI""BS/(3F-VM+A(3"
^XMB(3.9,23,2,23439,0)="""DATA"",396.18,239,3,693,0)"
^XMB(3.9,23,2,23440,0)="M=&ES9)N""=_1L1F>!?G06]HV`8(6.""*)0I9B^E$@T9LS3V3$>K1R*5+35#$*W"
^XMB(3.9,23,2,23441,0)="""DATA"",396.18,239,3,694,0)"
^XMB(3.9,23,2,23442,0)="M,:)SGYW%!I@!`YJUA-F$!D&+-`RAOWZG;$7""]%#,X/NR-?V!F+&2,A32>2/G"
^XMB(3.9,23,2,23443,0)="""DATA"",396.18,239,3,695,0)"
^XMB(3.9,23,2,23444,0)="MU7Q^[2R7U\X3^>_UNSY`CS'L0WHC[?=RZJI];#U]1]6S+.D#LI=^^K).*=KM"
^XMB(3.9,23,2,23445,0)="""DATA"",396.18,239,3,696,0)"
^XMB(3.9,23,2,23446,0)="M![+(O9QC[_""X[+[%#@D4`&P;#J\TOEME1<J0>YUR0UQLYU5""=\V[UP-87Z$-"
^XMB(3.9,23,2,23447,0)="""DATA"",396.18,239,3,697,0)"
^XMB(3.9,23,2,23448,0)="MU)8\D`N0#=Y#O5_G[>)>+9<_<=O2O*C(9E%RS03""R&[HK8*&HL>)R8L[.]VH"
^XMB(3.9,23,2,23449,0)="""DATA"",396.18,239,3,698,0)"
^XMB(3.9,23,2,23450,0)="M'F472O+!E4;`YM#+XRB!A4H_T7@H<>9VW,D1,M#Z#5@?%P];GU]XN\,)2U3F"
^XMB(3.9,23,2,23451,0)="""DATA"",396.18,239,3,699,0)"
^XMB(3.9,23,2,23452,0)="M=C:F)NDRC;.+620D\VQN,<X>;!.1""S!7_@#P5=`'J@;\R(`%QSLT^X$R_3-F"
^XMB(3.9,23,2,23453,0)="""DATA"",396.18,239,3,700,0)"
^XMB(3.9,23,2,23454,0)="MP%>UV5C&B_1N1:X7%>$*C46XXG+$WU;9XVH,4""SS#;7C=>+ADE'X8:2TUROM"
^XMB(3.9,23,2,23455,0)="""DATA"",396.18,239,3,701,0)"
^XMB(3.9,23,2,23456,0)="MZB@XPW9UT""MI.""QIY'I31'V&30&^2=2_SM.22IK^;R]Z&QB2M*:D$_A7]B.5"
^XMB(3.9,23,2,23457,0)="""DATA"",396.18,239,3,702,0)"
^XMB(3.9,23,2,23458,0)="M=`5H>""70AX,WAF8EO;CM-MC&=%F^;GE08KF:M+Y^MCL9OMAX9L+A,P,B,.7,"
^XMB(3.9,23,2,23459,0)="""DATA"",396.18,239,3,703,0)"
^XMB(3.9,23,2,23460,0)="MG""'JTR#-%M!20G.!JQ""W>E6_>C=B#<X='@\;,)\,G7W8[R'9:H$+;.IV6;%."
^XMB(3.9,23,2,23461,0)="""DATA"",396.18,239,3,704,0)"
^XMB(3.9,23,2,23462,0)="M2SJV7$%JDN?_4CG7)Q+6`4/@+[8TR&1;K@6+52,Z%J\L[`8C`;!8322'3GY@"
^XMB(3.9,23,2,23463,0)="""DATA"",396.18,239,3,705,0)"
^XMB(3.9,23,2,23464,0)="M%\^]H\6&ZPH<@:V*8FHZZ:W#_#NJVWB]SK/O*25%9""'6T'*AQ7*!0FP-+49T"
^XMB(3.9,23,2,23465,0)="""DATA"",396.18,239,3,706,0)"
^XMB(3.9,23,2,23466,0)="M/I,`JMIO#:=U'=0-+0E9+$E!]0*1/64UA2I.XMF]0VS/JKQV;M,%Y61@7G@E"
^XMB(3.9,23,2,23467,0)="""DATA"",396.18,239,3,707,0)"
^XMB(3.9,23,2,23468,0)="MR'1UF^5+IN]KLE)*P_-?M1/]7\XM3S/-:#S;#[.:1O455#OK37'/OK78W""S3"
^XMB(3.9,23,2,23469,0)="""DATA"",396.18,239,3,708,0)"
^XMB(3.9,23,2,23470,0)="MDA9&RI9L9DSZ!V`;F2BM[)Y%1,YEYV,BAGO17-0PSDQQM-.U>I!RF)?:-9""B"
^XMB(3.9,23,2,23471,0)="""DATA"",396.18,239,3,709,0)"
^XMB(3.9,23,2,23472,0)="M243WD1R(N<%P1/P7YQ/C%?Y22;7,G'@^IVIB2R0_4I'7SW4U(0X&+$NKR^.+"
^XMB(3.9,23,2,23473,0)="""DATA"",396.18,239,3,710,0)"
^XMB(3.9,23,2,23474,0)="M4%(JQZSB_.C:NSJTW!U1D-5@="":4&U>DV/8'<3NMHW=_BT53UQ)H/6!A4P=R"
^XMB(3.9,23,2,23475,0)="""DATA"",396.18,239,3,711,0)"
^XMB(3.9,23,2,23476,0)="MX0F@(0<3=4Q5MI&N/OP2C:`;35A)!""\X,J+7[EN(VE.Z3ORA]`Q`GG]^HL9#"
^XMB(3.9,23,2,23477,0)="""DATA"",396.18,239,3,712,0)"
^XMB(3.9,23,2,23478,0)="MA@Q;V000^>-M0F5]KTR<,UM8,@`,T`X2H8X?#.4A/67532ILIX749MF!U;(5"
^XMB(3.9,23,2,23479,0)="""DATA"",396.18,239,3,713,0)"
^XMB(3.9,23,2,23480,0)="MU/VMUHVV+`!C,'P@H1<.'<A(#J,CK^W/.:,#&0R%T5KL9,!A)P/4U\>""JU[9"
^XMB(3.9,23,2,23481,0)="""DATA"",396.18,239,3,714,0)"
^XMB(3.9,23,2,23482,0)="M<XZC#>B?R##&(1%?2AXR&($B=+*]*W5#K`'H4LI""RP[9\_#8#;XOB""0,>'>@"
^XMB(3.9,23,2,23483,0)="""DATA"",396.18,239,3,715,0)"
^XMB(3.9,23,2,23484,0)="MG14""6X=]!_=%9+B<O:!7XNKE#*TO9[CUJEG?L$[4`=QZU7R8\>SQ1G=V""]=W"
^XMB(3.9,23,2,23485,0)="""DATA"",396.18,239,3,716,0)"
^XMB(3.9,23,2,23486,0)="M2]4LV_X@XLOTS:UZ2LX=M30^6?ZCO;K>?LV)?&AUG:]-TJNL^\CG>'5'']UO"
^XMB(3.9,23,2,23487,0)="""DATA"",396.18,239,3,717,0)"
^XMB(3.9,23,2,23488,0)="M:KSBV]IO>+\IL^HC1O'47Z:QVE+Z4X&($;'UM$`1FOR&6,JO#?=-PD""`DS)."
^XMB(3.9,23,2,23489,0)="""DATA"",396.18,239,3,718,0)"
^XMB(3.9,23,2,23490,0)="M%QW5N_X>M-V!?7O0N`LM]J%A)S9[L?E[G+3-V[3><UKQ!Y;BKS%0Q%F$0)$_"
^XMB(3.9,23,2,23491,0)="""DATA"",396.18,239,3,719,0)"
^XMB(3.9,23,2,23492,0)="M]%7Y<TB17RM#GS`6/*YAN.FR8._.TGRV6=+N]5G=*I*N4@93N11Q)^-5>IN0"
^XMB(3.9,23,2,23493,0)="""DATA"",396.18,239,3,720,0)"
^XMB(3.9,23,2,23494,0)="MSU5Y*MI)0GY[3OP>VKC!\G+_V>1/[ZY>@#Y5I6DOP'Y=AB9=-BZ0^2SY@=U1"
^XMB(3.9,23,2,23495,0)="""DATA"",396.18,239,3,721,0)"
^XMB(3.9,23,2,23496,0)="M:GI1B,""3<I^2A?N3;(\(L6MY'""!61!@A.Q'24(7LSR*ET+![ER,XCAR1K55O"
^XMB(3.9,23,2,23497,0)="""DATA"",396.18,239,3,722,0)"
^XMB(3.9,23,2,23498,0)="M,J8<Z+:E56=$[<ZLAGEO9-AW/B+#HEK<AZY/*U`N&^A:&;NK#YN<BJMKU""J<"
^XMB(3.9,23,2,23499,0)="""DATA"",396.18,239,3,723,0)"
^XMB(3.9,23,2,23500,0)="M6UH""N4\+""A@\3[L:TAG8)`PL-T);O^'G:$-+H]3<'D4Z)Y<+FT4E4L^SI3.3"
^XMB(3.9,23,2,23501,0)="""DATA"",396.18,239,3,724,0)"
^XMB(3.9,23,2,23502,0)="MM=%)7MM[,.$);1T8Y`%E4R$T\@F5YREV_D``&.^1IKC;S;B%RB-Y[LA'(G'A"
^XMB(3.9,23,2,23503,0)="""DATA"",396.18,239,3,725,0)"
^XMB(3.9,23,2,23504,0)="MFII!%@5:JJEO^:Y)(:%TR%W%@MNM'+P].7M-O#L[H07!1*'!4Q2:T7E&NQ(;"
^XMB(3.9,23,2,23505,0)="""DATA"",396.18,239,3,726,0)"
^XMB(3.9,23,2,23506,0)="M.BFQT5)?))3\S#YJ@-3[0!4:;)^AS3N[T'7;9:N9#_W*:/X[$/+@YD@(>4HD"
^XMB(3.9,23,2,23507,0)="""DATA"",396.18,239,3,727,0)"
^XMB(3.9,23,2,23508,0)="MA(&RLLC7K`P$!W>9U<RX49G&[#B7'^]S#GISY+ILB>%P5?02K'^`9YHP.^.^"
^XMB(3.9,23,2,23509,0)="""DATA"",396.18,239,3,728,0)"
^XMB(3.9,23,2,23510,0)="M>@U!U7<(7)U&O.ZFZ:&=,`S6]C1C4S*',N9'9AV6B;BC>=#T(5D\.8]97@AO"
^XMB(3.9,23,2,23511,0)="""DATA"",396.18,239,3,729,0)"
^XMB(3.9,23,2,23512,0)="M?URN\^R!7';""BQP8M//XDT-!Q\@WD""N3_Q3SACLEF4@5=""3FO5I`1BT`'UJH"
^XMB(3.9,23,2,23513,0)="""DATA"",396.18,239,3,730,0)"
^XMB(3.9,23,2,23514,0)="MP5?4X$<:-<!P?VKX(UL)4OX]F:=5*Q?_*NV)H[M5$.K7GSY]Y5_XA>B`MH.M"
^XMB(3.9,23,2,23515,0)="""DATA"",396.18,239,3,731,0)"
^XMB(3.9,23,2,23516,0)="MUPO-5_QS4Z[)BU1/V?>GNT1X\\.G]Y_XGVDF[3[)BC);/FVK2*]/D>),!""-W"
^XMB(3.9,23,2,23517,0)="""DATA"",396.18,239,3,732,0)"
^XMB(3.9,23,2,23518,0)="MU8U)=*<K4O2JQ&@@5!U7C#1Z19TI-@U-](Q-Z`8GQ""SWL,/_-S[-)U*%&UWF"
^XMB(3.9,23,2,23519,0)="""DATA"",396.18,239,3,733,0)"
^XMB(3.9,23,2,23520,0)="MOMW$SU@(/.*ZQACS90.`W6V#?#7OAJ$J?$\1/ODO&HH-SOH2""@9U9*<BC/!4"
^XMB(3.9,23,2,23521,0)="""DATA"",396.18,239,3,734,0)"
^XMB(3.9,23,2,23522,0)="M%;G1145]*@KM#9L?#!DV)7J-U""Q/J.JM\^4YKJH([-6N_7D?ETY:CX6U$W]-"
^XMB(3.9,23,2,23523,0)="""DATA"",396.18,239,3,735,0)"
^XMB(3.9,23,2,23524,0)="MI*PS:6@+D_:_LFS.V[3?XC07O)8LR[56+AHZ09YG.$*R+CP7*NX^5ETX%.ET"
^XMB(3.9,23,2,23525,0)="""DATA"",396.18,239,3,736,0)"
^XMB(3.9,23,2,23526,0)="M`2]GJ.<,-54RO98:)"":Y?FZT=FH9#H$>/?%3]""3J:YLHJ$_Y4I.@:EW3HO!K"
^XMB(3.9,23,2,23527,0)="""DATA"",396.18,239,3,737,0)"
^XMB(3.9,23,2,23528,0)="MM&(-/)""*#V34P>38V,=>I""E[_GF?ED,>MMKYT&]4FDW<O^TBX[:3\P'3]]W'"
^XMB(3.9,23,2,23529,0)="""DATA"",396.18,239,3,738,0)"
^XMB(3.9,23,2,23530,0)="M55'FFUDIA$S\X\""ME4A-7&CG+7AJ\4WG+02ZQ`9`E_1!S@%=U,KH:[?S=>UV"
^XMB(3.9,23,2,23531,0)="""DATA"",396.18,239,3,739,0)"
^XMB(3.9,23,2,23532,0)="MF)M:JPI0':R1""+<""@PN0LMJ!9Z#QT\_M^*$(;R8/WMMCU-?]=K3^3*+GS3(^"
^XMB(3.9,23,2,23533,0)="""DATA"",396.18,239,3,740,0)"
^XMB(3.9,23,2,23534,0)="MD0$V;*`M%]NI9+E!.[""-ZW9PK47=J$`WJ`#?G0""WLPFS0H3OAM`;:D?#)]2."
^XMB(3.9,23,2,23535,0)="""DATA"",396.18,239,3,741,0)"
^XMB(3.9,23,2,23536,0)="MMC4J6*!%!1.VI#RD`7T5$LY59[^]""RJ8BHKLNB[4@?YS)'Y8P#<,7`G?T#]["
^XMB(3.9,23,2,23537,0)="""DATA"",396.18,239,3,742,0)"
^XMB(3.9,23,2,23538,0)="M8.3`-(GH`JQ'68(P[!FR!I']D/4O=5.A\SFYI<3*OWZ/ER?2%\[DIV\-]T1>"
^XMB(3.9,23,2,23539,0)="""DATA"",396.18,239,3,743,0)"
^XMB(3.9,23,2,23540,0)="M*GE&)'('KZCVJ+G.&^<]Y<LNWSK@K^2'OS^M,X84FKQU('WA#SICNWCKH/K="
^XMB(3.9,23,2,23541,0)="""DATA"",396.18,239,3,744,0)"
^XMB(3.9,23,2,23542,0)="M)*_>OG8>T_)>&,G=E`ZE\=X4;QVL_73]]H1!7""H-3S]P#J)^$'T+P$SZ3<]H"
^XMB(3.9,23,2,23543,0)="""DATA"",396.18,239,3,745,0)"
^XMB(3.9,23,2,23544,0)="MVTS?,`8B,RR""BLHB0A8B^DS?>LDR:MP6U_4""N_Y_!7Y3`7^+;(<6T/;M_V3A"
^XMB(3.9,23,2,23545,0)="""DATA"",396.18,239,3,746,0)"
^XMB(3.9,23,2,23546,0)="MR+AP),*&AN/GW/[G^\6B/NO[F+E@RS?,72`1<V/:\O?`WM'-!Y#%LTR=?D@`"
^XMB(3.9,23,2,23547,0)="""DATA"",396.18,239,3,747,0)"
^XMB(3.9,23,2,23548,0)="M"",OW(YGV6AYU:IM8)T\)8/<P4P+,I$!3MXW4GZ&T9W0-&_VMFS^GLV1=.!^\"
^XMB(3.9,23,2,23549,0)="""DATA"",396.18,239,3,748,0)"
^XMB(3.9,23,2,23550,0)="M-_ZY]&<RP2([P:HMSRBT$^S7O):L_R8\*\EB@V2QE-M4MFP`++<L[2)(LSR>"
^XMB(3.9,23,2,23551,0)="""DATA"",396.18,239,3,749,0)"
^XMB(3.9,23,2,23552,0)="MI_$B/<.]Z]E)&*@=W9ZE5?B-&#)BG?X[R;\Y'\(W7\%9R=?4%RK5[R!0>G\\"
^XMB(3.9,23,2,23553,0)="""DATA"",396.18,239,3,750,0)"
^XMB(3.9,23,2,23554,0)="M;""??_[U*DDJZSC_0&WQ6T@TLI>LK!1_?LH'T_>K;HA'OE[/:NB""R-`V!8GT]"
^XMB(3.9,23,2,23555,0)="""DATA"",396.18,239,3,751,0)"
^XMB(3.9,23,2,23556,0)="M:+=UW]_,LR5#R?Y*#0,\(_&ZH:5E0&IW3`!'C@@P;M7I(P%LN::CAKK>W>>P"
^XMB(3.9,23,2,23557,0)="""DATA"",396.18,239,3,752,0)"
^XMB(3.9,23,2,23558,0)="MX*Y[A>4$H\&F%E?:SFH?!5!G^[!27?3=$(YO:5%:3)2>EK9!Q;,I&KM\VPGX"
^XMB(3.9,23,2,23559,0)="""DATA"",396.18,239,3,753,0)"
^XMB(3.9,23,2,23560,0)="M*_\3%'Y""PD_XK]KV%-=>T,@=$G0+7+:]H-U3$S08(6@P>D?CR9(.PE.3-!PA"
^XMB(3.9,23,2,23561,0)="""DATA"",396.18,239,3,754,0)"
^XMB(3.9,23,2,23562,0)="M:3AZ2V\A:?_4)(U&2!J-WM,AFFP]3D[2>(2D\>@]O86D\:E)VALA:6_TGFY!"
^XMB(3.9,23,2,23563,0)="""DATA"",396.18,239,3,755,0)"
^XMB(3.9,23,2,23564,0)="M837P2D/FX^1\#W^$J/W1FUHK:DM+?7*[.A@AZF""\/^V&4T7M>R?GZ(UQJ</Q"
^XMB(3.9,23,2,23565,0)="""DATA"",396.18,239,3,756,0)"
^XMB(3.9,23,2,23566,0)="M+O46LCZY:Q&,\:HGQ(DJ'(&U""3F]`&:$7XTGA(HZ6=O=C/[)A3!@A&>-!V,8"
^XMB(3.9,23,2,23567,0)="""DATA"",396.18,239,3,757,0)"
^XMB(3.9,23,2,23568,0)="M6=*1,BZ'H&:FQU<E'>UW5)&M]],B7I5Q[KSZ.;Y)5\6W]'7?*$^?3IIOHMU&"
^XMB(3.9,23,2,23569,0)="""DATA"",396.18,239,3,758,0)"
^XMB(3.9,23,2,23570,0)="M]""^\JDKFKX5IU2POTO8#[V]6ZD>D:5->32/<<HS&'XDM%+7?V2O68/*B-#5B"
^XMB(3.9,23,2,23571,0)="""DATA"",396.18,239,3,759,0)"
^XMB(3.9,23,2,23572,0)="M_)<FQH>#*-6U]]$T`P80N=-/S8*%(^7MC??OMY%W<&KR'APS9,U44#]_(Y<C"
^XMB(3.9,23,2,23573,0)="""DATA"",396.18,239,3,760,0)"
^XMB(3.9,23,2,23574,0)="M-%T,`%M)-N#2B9=!0XT=\JWTA/1Z4NLP6`D&D!M8:NHR5MVKJ<!Z?LJC+6>N"
^XMB(3.9,23,2,23575,0)="""DATA"",396.18,239,3,761,0)"
^XMB(3.9,23,2,23576,0)="MCOJKSD$T,_!\<SJN0,""Z6]P]^^;TT$#^Q<2KYR4&(F6IW)T>V"".7?TX>TN21"
^XMB(3.9,23,2,23577,0)="""DATA"",396.18,239,3,762,0)"
^XMB(3.9,23,2,23578,0)="MCOU\3F9$LL6)#$Y1Z1D(K,3IGY;MJP,MMR!0_E!C2SKDQ[P2W+N##:_LH?.8"
^XMB(3.9,23,2,23579,0)="""DATA"",396.18,239,3,763,0)"
^XMB(3.9,23,2,23580,0)="M#F""S#0?US(XB5;$L,0@&V&X@#-L8RI9CDBU'RX.)7%><WPJFK`=<V7-*5@VY"
^XMB(3.9,23,2,23581,0)="""DATA"",396.18,239,3,764,0)"
^XMB(3.9,23,2,23582,0)="MU8DTT*:`4&+GE#N$P60BY&TZLT7GLGH""V$^'++)X!O*H@CQ<&""BR]3UW+VS("
^XMB(3.9,23,2,23583,0)="""DATA"",396.18,239,3,765,0)"
^XMB(3.9,23,2,23584,0)="M'YS?4K*_*Y/5'#<SY7'UN63.\QY3I(S_MTF*DES[-T_.O]]__N<5]PO26Y24"
^XMB(3.9,23,2,23585,0)="""DATA"",396.18,239,3,766,0)"
^XMB(3.9,23,2,23586,0)="MC=&VQ0]QNF""(72-HDG6B1_VBAW!KX8<M0^ENA5]!8RWJ:^*Y*:&70;ES5)2Q"
^XMB(3.9,23,2,23587,0)="""DATA"",396.18,239,3,767,0)"
^XMB(3.9,23,2,23588,0)="M1>DN`(',`:'2P4<RNY3?DG^?)9&7<6X1DMVL<0X#SC44QA:A.%^/JYS/.7N&"
^XMB(3.9,23,2,23589,0)="""DATA"",396.18,239,3,768,0)"
^XMB(3.9,23,2,23590,0)="MD9%`$?KZL3LH4MK(CF&(K!W#7Y?K1?;$P(5.B\R&2B_0SZ"")Q%:!Y.:T;H<-"
^XMB(3.9,23,2,23591,0)="""DATA"",396.18,239,3,769,0)"
^XMB(3.9,23,2,23592,0)="MCV@%09[-9ILUF[`GEO.^QBBHX-WG:3$C0KQ+G%=L[)!.WQ>O*3<!>Y\?6G06"
^XMB(3.9,23,2,23593,0)="""DATA"",396.18,239,3,770,0)"
^XMB(3.9,23,2,23594,0)="M<5$ZR?=X2>E<&5PX^;^86%'FN],WWO:Q9H\;8B32@</2:>&P.D)1&[<YWA3)"
^XMB(3.9,23,2,23595,0)="""DATA"",396.18,239,3,771,0)"
^XMB(3.9,23,2,23596,0)="M*_J8Y#E2HFWB\)05.M]CEG^C1*OL60%\4_'8KLD6R%H^#LW3]3Y(Z%L\""!XF"
^XMB(3.9,23,2,23597,0)="""DATA"",396.18,239,3,772,0)"
^XMB(3.9,23,2,23598,0)="M4-;`)V@6/]]0<ZM]@-VI!T)@H$\%OL1)*?'VM?#;O43""F[RF@KYM\1*3UA),"
^XMB(3.9,23,2,23599,0)="""DATA"",396.18,239,3,773,0)"
^XMB(3.9,23,2,23600,0)="MT@-9,;31@[S>R+-#L:!+[98X=86!C4SEN3F+*>86]+\S!5.7&%G8+$F&JKU7"
^XMB(3.9,23,2,23601,0)="""DATA"",396.18,239,3,774,0)"
^XMB(3.9,23,2,23602,0)="M%_BO8D.,D[2\OBE)"""",#!RX2W2D4#@%K:.C`##%0M$4,Q/QL-B-)Q$@5W;P@"
^XMB(3.9,23,2,23603,0)="""DATA"",396.18,239,3,775,0)"
^XMB(3.9,23,2,23604,0)="MC7B*4:4$88&4`*[-%PO$UF6:$Z42,[Y95;NR]7W5,H%>T3XVDE'X<BU`8<C`"
^XMB(3.9,23,2,23605,0)="""DATA"",396.18,239,3,776,0)"
^XMB(3.9,23,2,23606,0)="MX\A:<K9>[N!,:*$G2S9V_$=#<X(1L*1&H3?'+E=L8C(`<KTE@BJ[E.6$3<U#"
^XMB(3.9,23,2,23607,0)="""DATA"",396.18,239,3,777,0)"
^XMB(3.9,23,2,23608,0)="MLN.E1]A(*R'#\WH:$@;+M>MN@F9+;_\(H=U^@1KA>Y9\1!7'?.'<I0_)BA&M"
^XMB(3.9,23,2,23609,0)="""DATA"",396.18,239,3,778,0)"
^XMB(3.9,23,2,23610,0)="M[&KYT,5VR]?TXG%GN'_Y%97DD[.LX^Y7Z_NG@O[KM;.N@!*+[9[!-/72\B+V"
^XMB(3.9,23,2,23611,0)="""DATA"",396.18,239,3,779,0)"
^XMB(3.9,23,2,23612,0)="M/84M.TGS%.OB:7:?QB0@G6VU?+F$2NXB=[AD/30%WJ9\>>NN8/)""-\+^7OL+"
^XMB(3.9,23,2,23613,0)="""DATA"",396.18,239,3,780,0)"
^XMB(3.9,23,2,23614,0)="M/A;.0U(F>;RJ;<7\.!#5[A!3`W1IF*""G:U!N*:22VT2!!20EE7<P5*RS'37Y"
^XMB(3.9,23,2,23615,0)="""DATA"",396.18,239,3,781,0)"
^XMB(3.9,23,2,23616,0)="MY^>&.X`Z`=2#;E_I/\,JPCG26""#N)6[U@T7AG0/:_[I([RAO'DV>Q7>,ZF[."
^XMB(3.9,23,2,23617,0)="""DATA"",396.18,239,3,782,0)"
^XMB(3.9,23,2,23618,0)="M&7(:IZAX]YQQ:0[G:_VGU%/\>A)`?16RTR-4BTNL5AI>5X==*F%\3=<<8&FZ"
^XMB(3.9,23,2,23619,0)="""DATA"",396.18,239,3,783,0)"
^XMB(3.9,23,2,23620,0)="MFF>/K4ZSU1U5LXUMJ<K0Q#0:RM!`:4GUK;:&J]L:ERIT7Q7:&WD'##>9#3M&"
^XMB(3.9,23,2,23621,0)="""DATA"",396.18,239,3,784,0)"
^XMB(3.9,23,2,23622,0)="MD7HQ=^.>G.J\@]T!7031YL""/>BWX-F#%[&J(^@""+92<U4'T\']O=#QZZLGCJ"
^XMB(3.9,23,2,23623,0)="""DATA"",396.18,239,3,785,0)"
^XMB(3.9,23,2,23624,0)="M?LCBP$9`_Z`,U>4]40IPGCKXI*J)B=*30?:R($5(7_?4USWZ.G#5-\AK])LT"
^XMB(3.9,23,2,23625,0)="""DATA"",396.18,239,3,786,0)"
^XMB(3.9,23,2,23626,0)="M[_R>Y4GUY]MW7UN9,JPW9=(=QS7/]%DRI+OD/.]BR:;2%+1J\JS4!+""KGA3-"
^XMB(3.9,23,2,23627,0)="""DATA"",396.18,239,3,787,0)"
^XMB(3.9,23,2,23628,0)="MA:,[*7YP4=-4UJE63;[!,5`B)HVB`M]249=.PCY%8;4]S:0M+4ZM"")_GRDD^"
^XMB(3.9,23,2,23629,0)="""DATA"",396.18,239,3,788,0)"
^XMB(3.9,23,2,23630,0)="M)???8E!SOAOHR^:?40TX&%1!-*@""$(435-"".&9V[""GQC\TGKCM&*D>*.:57A"
^XMB(3.9,23,2,23631,0)="""DATA"",396.18,239,3,789,0)"
^XMB(3.9,23,2,23632,0)="M!4.J4/JHB+V*^E2A=;]41]_</]*UBPL^V&.2=('LE?PS9#]W'M05DE_`\@N>"
^XMB(3.9,23,2,23633,0)="""DATA"",396.18,239,3,790,0)"
^XMB(3.9,23,2,23634,0)="M_((OOQ#(+X3R""Y'\`G'HY%>`\HJR6*""L%BC+!<IZ@;)@H*P8*$L&RIJALF:H"
^XMB(3.9,23,2,23635,0)="""DATA"",396.18,239,3,791,0)"
^XMB(3.9,23,2,23636,0)="MK!DJ:X;*FJ&R9JBL&2IKALJ:H;)FJ*P9*6M&RIJ1NBF4-2-ES4A9,U+6C)0U"
^XMB(3.9,23,2,23637,0)="""DATA"",396.18,239,3,792,0)"
^XMB(3.9,23,2,23638,0)="M(V7-2%DS5M:,E35C9<U8W<G*FK&R9JRL&2MKQLJ:L;)F3UFSIZS9:];\VLHT"
^XMB(3.9,23,2,23639,0)="""DATA"",396.18,239,3,793,0)"
^XMB(3.9,23,2,23640,0)="M`3O3!(%<S+8P30'8QC2A(=/TVV:QH$T,W;,3:UZ^$5_ZDBQNWTB%0/8R+4YP"
^XMB(3.9,23,2,23641,0)="""DATA"",396.18,239,3,794,0)"
^XMB(3.9,23,2,23642,0)="ME))\[FQ0:-`D-+D'0!&;;R$V#+<1&QX2FS&4U@?2^C#:$$2;0FAC`-WGO3#@"
^XMB(3.9,23,2,23643,0)="""DATA"",396.18,239,3,795,0)"
^XMB(3.9,23,2,23644,0)="M)[5C4!1QB`8E#%4)HXO[(G41#N?X<'_KK-""B+C=?`T]NG)7;.*E6]M.US""7T"
^XMB(3.9,23,2,23645,0)="""DATA"",396.18,239,3,796,0)"
^XMB(3.9,23,2,23646,0)="MZCKJXLEI+$*3R%/2>.;SP^?JN$R=;3,LV]E@T""]O(M@>7]!7#2Z^$'BHC;""1"
^XMB(3.9,23,2,23647,0)="""DATA"",396.18,239,3,797,0)"
^XMB(3.9,23,2,23648,0)="M;D+*Z[I@J[I""UP8;B6VP50OR&;?!5@44M8H-/'T+K""^:`KD%%EBWP/Y>43J3"
^XMB(3.9,23,2,23649,0)="""DATA"",396.18,239,3,798,0)"
^XMB(3.9,23,2,23650,0)="MFW9-#O!J=BH=L`@92""KZ*#M\I=FML:F:[M<__OGUUW?.LI+?K)7?-6O#^/=["
^XMB(3.9,23,2,23651,0)="""DATA"",396.18,239,3,799,0)"
^XMB(3.9,23,2,23652,0)="MYR99);=I63CK3;[.BJ2X=O+D-LGI/!6QCJ5`V<&H3N.;=)&6C.""+_MA85'+9"
^XMB(3.9,23,2,23653,0)="""DATA"",396.18,239,3,800,0)"
^XMB(3.9,23,2,23654,0)="M+^,5K71VW^JLXZ=J.""M=.?<I_UT%+8BRQMS'%?EX49*/D""\B_[AF%%BTQ$*^"
^XMB(3.9,23,2,23655,0)="""DATA"",396.18,239,3,801,0)"
^XMB(3.9,23,2,23656,0)="M,EX]53B=3K%ATGM;[P6A*S==V3W9,J&J+""EO*[?T:^&[;I*V2RA=_6=#F<QR"
^XMB(3.9,23,2,23657,0)="""DATA"",396.18,239,3,802,0)"
^XMB(3.9,23,2,23658,0)="MVB),W,3DFG;[TI7-XC5U%^B'V$/3;M/J[_'?)3]_^\S""\[YU/JZ<ZHZC#UP4"
^XMB(3.9,23,2,23659,0)="""DATA"",396.18,239,3,803,0)"
^XMB(3.9,23,2,23660,0)="MM$B:Q^1-45[D*Y8Q`^R/G45R1]0Y3QCI_*HF#BOH[_.""6""_HHIUX/L^%+N:B"
^XMB(3.9,23,2,23661,0)="""DATA"",396.18,239,3,804,0)"
^XMB(3.9,23,2,23662,0)="MXJR])58U>Z1?R.8\*//BNPED*\8N6)'IH&63[=J4+5HB/U6/L,ZS!\8B_CTF"
^XMB(3.9,23,2,23663,0)="""DATA"",396.18,239,3,805,0)"
^XMB(3.9,23,2,23664,0)="MUS7K6R;/6FS6ZRPOG2=R`Y$'7\T6FX+\WI3>6(`#FX=`0&Z-M7^&Y/MZ08R9"
^XMB(3.9,23,2,23665,0)="""DATA"",396.18,239,3,806,0)"
^XMB(3.9,23,2,23666,0)="M\WC_-'*%]<R;;VCU;/R!AH-ND$,-VK9ZACL;=\/>@,\H#$N$D4PY(XL929G("
^XMB(3.9,23,2,23667,0)="""DATA"",396.18,239,3,807,0)"
^XMB(3.9,23,2,23668,0)="MJ&M0V:W/^$N6%(*=^[;*'BL[N,PVM)OXEI[LGZIC+5B]O7B4EC-N/AB0MTCX"
^XMB(3.9,23,2,23669,0)="""DATA"",396.18,239,3,808,0)"
^XMB(3.9,23,2,23670,0)="M*`L<(CPH<`\<1N#K?#.O7'42-,Z)T6V,ZE[D:QD'^7#,?@9(]N%=BPT='F5#"
^XMB(3.9,23,2,23671,0)="""DATA"",396.18,239,3,809,0)"
^XMB(3.9,23,2,23672,0)="M%_R.9I,31/+DRE\4AXV0)'FC4?M9$3@,X;#`HP-M:.)=T8Q3MZ.)F),GYO:0"
^XMB(3.9,23,2,23673,0)="""DATA"",396.18,239,3,810,0)"
^XMB(3.9,23,2,23674,0)="MO;U'82,[80=^O[""!*PH[E'>WXJ`V_0J<L/U]""+M]_%\RZA40B[Q(27`FB)^X"
^XMB(3.9,23,2,23675,0)="""DATA"",396.18,239,3,811,0)"
^XMB(3.9,23,2,23676,0)="M83KWK=&*<TL<JA7O+LU2\FI\>QNG^7[4@ONR!%A;N9.=*R@9<!S(*FCYR%JF"
^XMB(3.9,23,2,23677,0)="""DATA"",396.18,239,3,812,0)"
^XMB(3.9,23,2,23678,0)="MZ@!?:G<#:`/5S+*%`I!L<%0%R`:'*`""%%P7TUZ\EPQ2,,DPP!.,-DP</:9AB"
^XMB(3.9,23,2,23679,0)="""DATA"",396.18,239,3,813,0)"
^XMB(3.9,23,2,23680,0)="MYTO&[,N?=&Z1!'])4;!)7QIH)C/R4TPB4!+KY+0[.7=BWC""1L'&=KL@?V(M5"
^XMB(3.9,23,2,23681,0)="""DATA"",396.18,239,3,814,0)"
^XMB(3.9,23,2,23682,0)="M\GO2:>1C-\G\CZQ,;K+L&_4UQ5>X_!KLTFLB-VZ5M.CL4W6""R/<,[_OV0]W&"
^XMB(3.9,23,2,23683,0)="""DATA"",396.18,239,3,815,0)"
^XMB(3.9,23,2,23684,0)="M+U=?D^\E_Z:<#VM>-V=VFD^(^Y^W$X#;H/21/\5WB<B=*>P_E:Q:'.#NDVG+"
^XMB(3.9,23,2,23685,0)="""DATA"",396.18,239,3,816,0)"
^XMB(3.9,23,2,23686,0)="M'NBJ5((F8$VEURG`&M2TKNW3@E+01""KHN:[^`X9O>;]([Z@$X@6)&LD&;U\W"
^XMB(3.9,23,2,23687,0)="""DATA"",396.18,239,3,817,0)"
^XMB(3.9,23,2,23688,0)="M$`ZJR=,_B)/T0JE[U($.PUPD4$8B=4Q_C;K?@.Z5;F;:[5[4=+[;RJY?>CWR"
^XMB(3.9,23,2,23689,0)="""DATA"",396.18,239,3,818,0)"
^XMB(3.9,23,2,23690,0)="MLY*@489]4M3+L0<?""$D)$[%5,.1?K""G^^)>Z=G3`OZQI25?&W1@*50W,<L5_"
^XMB(3.9,23,2,23691,0)="""DATA"",396.18,239,3,819,0)"
^XMB(3.9,23,2,23692,0)="MRE;V0]+O:1RTUD""/#OJU8-*#1:*H^J_M[13^J3\0XTX$CFQ/!.B8!4_E2`##"
^XMB(3.9,23,2,23693,0)="""DATA"",396.18,239,3,820,0)"
^XMB(3.9,23,2,23694,0)="MD6@&#>4I0Q5HBA>EIST,D?8H=-W\TE$`;Z^T:M>N,$3C5ACA':P0CEHA'K="""
^XMB(3.9,23,2,23695,0)="""DATA"",396.18,239,3,821,0)"
^XMB(3.9,23,2,23696,0)="M`,,=+!'9+;$Z<<@?:_1""?XS5@[YAE;]DLPWS7#_)0Z6G:?C@=H9/J[QHK.X`"
^XMB(3.9,23,2,23697,0)="""DATA"",396.18,239,3,822,0)"
^XMB(3.9,23,2,23698,0)="M!#M17HT]6:O.^;)9+N/62SU5#:(]:!""P#M]Q.@QVHL*/JZ+,-S-6QCN0XL#+"
^XMB(3.9,23,2,23699,0)="""DATA"",396.18,239,3,823,0)"
^XMB(3.9,23,2,23700,0)="M]#D,B@-C%>>AG2CNYTVZF+='CX[(GKCZP'Y=1CS*8X2N9^LR0M[A.`V7$?:>"
^XMB(3.9,23,2,23701,0)="""DATA"",396.18,239,3,824,0)"
^XMB(3.9,23,2,23702,0)="M""=Q[(J#.EKG:,^$'^B/A&:^C-]DZ65T9-I""WT_,OYA/-S)?\LP>VL6/HZF-'"
^XMB(3.9,23,2,23703,0)="""DATA"",396.18,239,3,825,0)"
^XMB(3.9,23,2,23704,0)="MX<YK,\(^XHB_^L>:!T:;3>/-^G04*_EEQ3HMXT7ZH\8HH""TW^5V2/_U-6))F"
^XMB(3.9,23,2,23705,0)="""DATA"",396.18,239,3,826,0)"
^XMB(3.9,23,2,23706,0)="MS'E@9%<SUZS,-ILMO*WBT%3%>6!ZU,]ICJ-\/+#FRCS>+&.:)+ZAW7(_$3VN"
^XMB(3.9,23,2,23707,0)="""DATA"",396.18,239,3,827,0)"
^XMB(3.9,23,2,23708,0)="M6+-7/C^""ZN!XU<')9TY_`[O1N$/'D2H?6'6K)%LOXF)Y!#WA\7H*INH)0*V/"
^XMB(3.9,23,2,23709,0)="""DATA"",396.18,239,3,828,0)"
^XMB(3.9,23,2,23710,0)="M&WEZ/0&MGA!""8+J>E/<M%/61U>WSQ+E-'I+\""#KRQ^LHG*PCW]4>)E$Z0X>)"
^XMB(3.9,23,2,23711,0)="""DATA"",396.18,239,3,829,0)"
^XMB(3.9,23,2,23712,0)="M*.FPA^D]FR:A2KI/XGD\NT^*(R@JL`\TPO%.50`/X%2%>W2JHLF;,O*W-QP^"
^XMB(3.9,23,2,23713,0)="""DATA"",396.18,239,3,830,0)"
^XMB(3.9,23,2,23714,0)="M=MTC&8YY^N,'+9X?8T]&8X+?T9N2`X_9XZ8$[CY=_<F^/M3G=8$[RE;ZP3;>"
^XMB(3.9,23,2,23715,0)="""DATA"",396.18,239,3,831,0)"
^XMB(3.9,23,2,23716,0)="M_E;[\C&)OQUI6_(Q[N""^1./W)3I$!`K@/O?E9'^8`].R,9?&;7DL<[F.\WCQ"
^XMB(3.9,23,2,23717,0)="""DATA"",396.18,239,3,832,0)"
^XMB(3.9,23,2,23718,0)="M5*1'V9=HQ+[TQN]+'Q]B7^(]I$;A^(?=V[->LJ%61<#1&O.#`^Q.M-_$;]""7"
^XMB(3.9,23,2,23719,0)="""DATA"",396.18,239,3,833,0)"
^XMB(3.9,23,2,23720,0)="M^,6^7?N,KV^?<;7I4]Q7+0:@KYXM5GN;Z2)M*BH(Q]6+*ZSKXFFY+K-E.])E"
^XMB(3.9,23,2,23721,0)="""DATA"",396.18,239,3,834,0)"
^XMB(3.9,23,2,23722,0)="MLV]P_U$7,V4R\/D^S=H>;UODV]RVNN*^UL@!%(R[;/W#9GRYT.3V-IUM%N63"
^XMB(3.9,23,2,23723,0)="""DATA"",396.18,239,3,835,0)"
^XMB(3.9,23,2,23724,0)="M<Y,G<7E/;M'GFNFM=R<>O3L]__F;M?[=&4S<G5@?H:""Q$0HZ4C;G(:6CG""U"""
^XMB(3.9,23,2,23725,0)="""DATA"",396.18,239,3,836,0)"
^XMB(3.9,23,2,23726,0)="M^<M(9*-PHK9"";Q=^.P=8>%!3DJZ*;+E*X^>:Q:[-AS_^<H.'L!_!/NU'-/5V"
^XMB(3.9,23,2,23727,0)="""DATA"",396.18,239,3,837,0)"
^XMB(3.9,23,2,23728,0)="M@W`GH20\SI8LT]4J+3?%RTC:8W>JEO07G+29+2R'=R0S7ZR39'9_3#,?3E`7"
^XMB(3.9,23,2,23729,0)="""DATA"",396.18,239,3,838,0)"
^XMB(3.9,23,2,23730,0)="MF*@NJ*^#@7#<J4(1.%;!<D:4=I-G#W%!7,<X=^+9+)USL^[/+I$H:0Y.U9R^"
^XMB(3.9,23,2,23731,0)="""DATA"",396.18,239,3,839,0)"
^XMB(3.9,23,2,23732,0)="M!@/%1.""0YF""`PX,?M`I1)'T@+G_RD,X2.EB6S),YPTEYC!??CN/XC\FW>>[H"
^XMB(3.9,23,2,23733,0)="""DATA"",396.18,239,3,840,0)"
^XMB(3.9,23,2,23734,0)="MJQOJ7:KGG6^39M[QU%LAU)H9H=7-PLR$7G#0S4IG;(F5660%`\JI8']FV1VY"
^XMB(3.9,23,2,23735,0)="""DATA"",396.18,239,3,841,0)"
^XMB(3.9,23,2,23736,0)="MR.GN/>(=855*8[/"",F')4,9'[V!*10P.(,LUJ2H\>K.V#J1\($G:`U;.5""(J"
^XMB(3.9,23,2,23737,0)="""DATA"",396.18,239,3,842,0)"
^XMB(3.9,23,2,23738,0)="MI#^E.@!<+A]<;T17?CC:^D3NBVN#K)]U?`80NN#E58+KD'""\9B$&+Z""^.)0J"
^XMB(3.9,23,2,23739,0)="""DATA"",396.18,239,3,843,0)"
^XMB(3.9,23,2,23740,0)="M1[T]TORJ>U+E?""OD8*H<]9>8^BL6^!13>\""N8Q5;Y_9<.#+HBXX3FZ\VRYLC"
^XMB(3.9,23,2,23741,0)="""DATA"",396.18,239,3,844,0)"
^XMB(3.9,23,2,23742,0)="M-1],R.D!=ZJ:]!ZH-+(UJ""8,_2/%YNN8PA/>)T4:%\\[M0>]T>;C!=[0TK[$"
^XMB(3.9,23,2,23743,0)="""DATA"",396.18,239,3,845,0)"
^XMB(3.9,23,2,23744,0)="M4_>E(;4'W)$;$X%C)8V2],<F3YYM<J_>E,'H3?GR\\W`F[PK/7\'""6>,\)$V"
^XMB(3.9,23,2,23745,0)="""DATA"",396.18,239,3,846,0)"
^XMB(3.9,23,2,23746,0)="M99G3\/799C#K/1F-WY/^(1S>:)][TI^\)R-#3_S(`9/H2#7^NS@MN4+_,;)\"
^XMB(3.9,23,2,23747,0)="""DATA"",396.18,239,3,847,0)"
^XMB(3.9,23,2,23748,0)="M$R:Y0#!57U#?>#:Z:'6L.9,\O4OGZ7$4!4>TEX'15L30,;WKL'FO\5HX>5OJ"
^XMB(3.9,23,2,23749,0)="""DATA"",396.18,239,3,848,0)"
^XMB(3.9,23,2,23750,0)="ML51``$::D?#HK4+IRBD>XQHW_!C;=$14@,8G%6!PD.[QO<8%T>2T@F&J`:-Q"
^XMB(3.9,23,2,23751,0)="""DATA"",396.18,239,3,849,0)"
^XMB(3.9,23,2,23752,0)="M+A@XTFV7+M=QFC,,FNS6*9;)8G&,%,.4`=C).0:AK75Z`P`&WG/061D797(,"
^XMB(3.9,23,2,23753,0)="""DATA"",396.18,239,3,850,0)"
^XMB(3.9,23,2,23754,0)="MG:$)G35@JLZ0J^\<C=R1^;O@.>CL)GM,%L[M9L6@9XYQ)8R(R='X1!$""!_%<"
^XMB(3.9,23,2,23755,0)="""DATA"",396.18,239,3,851,0)"
^XMB(3.9,23,2,23756,0)="M]MH$-CE5A+`!'&QD5`[`L]BJBWA._^8Q-^N(8!V-#]:1?XBT)HCV47GTQZ<F"
^XMB(3.9,23,2,23757,0)="""DATA"",396.18,239,3,852,0)"
^XMB(3.9,23,2,23758,0)="MHH/T>.QC0J<BS1F;B7GAHQ;!Y(J78=8""CO),0S<\%C;!_*DX9BEE""IS.Y$0N"
^XMB(3.9,23,2,23759,0)="""DATA"",396.18,239,3,853,0)"
^XMB(3.9,23,2,23760,0)="M""J-=E!<""WS_.G7$;E^E=37)V#%_4'6-%W/%71'2(052X*Y""W^A\B-\`DZ/5/"
^XMB(3.9,23,2,23761,0)="""DATA"",396.18,239,3,854,0)"
^XMB(3.9,23,2,23762,0)="M]T\%[0AR?OT>+\<`L(-G""<"".+P#L>P!@#_L:8UP%;EJ''8A""35L,.C.X:<#&"
^XMB(3.9,23,2,23763,0)="""DATA"",396.18,239,3,855,0)"
^XMB(3.9,23,2,23764,0)="M*DW#KX'M#0^!89HRTILER<S^EC%2-KKQR;^6,3T"",7FL!G;KVIDGQ2Q/;Q)&"
^XMB(3.9,23,2,23765,0)="""DATA"",396.18,239,3,856,0)"
^XMB(3.9,23,2,23766,0)="M-)F3^WF^(0_<<%MR9!OU-S:_2;^/<DN6='22QA?7E(1RL9DS?D;R7<6,=B)2"
^XMB(3.9,23,2,23767,0)="""DATA"",396.18,239,3,857,0)"
^XMB(3.9,23,2,23768,0)="M2J?'^X1ULI:4P4/]QOR=(QA1#?7BT&502SP8*7%D:&G7QW:^9R7R7QJ!%NMD"
^XMB(3.9,23,2,23769,0)="""DATA"",396.18,239,3,858,0)"
^XMB(3.9,23,2,23770,0)="MEMZFLS;:(I9WF954;D)0%M_>DB=)Y@[9=7&A$?DKVJ=>$S]>M\@E]%=O%\EW"
^XMB(3.9,23,2,23771,0)="""DATA"",396.18,239,3,859,0)"
^XMB(3.9,23,2,23772,0)="M!E5XZRSH8R:+F^S1>85^\IR""*&9U1Q[H-M.(G/UFEA>OKQE?YB(I.>R)]NL6"
^XMB(3.9,23,2,23773,0)="""DATA"",396.18,239,3,860,0)"
^XMB(3.9,23,2,23774,0)="MV6-""_S*M[%+""TU<N^6*Z&/4;8V(]EYMB1L[2';4>K[?6*6TBEFC/AQ2J+Z!#"
^XMB(3.9,23,2,23775,0)="""DATA"",396.18,239,3,861,0)"
^XMB(3.9,23,2,23776,0)="MJ&\+""PQ@2:'K7UJ)Q[02N];J!*/4""5UW-_I$%WV.:@V?,%9D%=A""7;U)GU^#"
^XMB(3.9,23,2,23777,0)="""DATA"",396.18,239,3,862,0)"
^XMB(3.9,23,2,23778,0)="MAOR:9]`Q.'BL5%L[XLLGSBK+R=WZ7-LYZQ&B_GR+Z%`T(T1ZB#/PC%N,ZX?%"
^XMB(3.9,23,2,23779,0)="""DATA"",396.18,239,3,863,0)"
^XMB(3.9,23,2,23780,0)="MHQ\6&3![P(MIB,1XXB%$!@1^$Y*'_A!""A*(C'<*XS+/U_9.S)@[L<68Q\31R"
^XMB(3.9,23,2,23781,0)="""DATA"",396.18,239,3,864,0)"
^XMB(3.9,23,2,23782,0)="M'[<7L2=0XBU7$V[Q*/Q<B'URA%>HEYFF#VG(TZ&1^6-ZTX>@ADA815U]&EK="
^XMB(3.9,23,2,23783,0)="""DATA"",396.18,239,3,865,0)"
^XMB(3.9,23,2,23784,0)="MIBL:`PE93ML3[%EUV&A2CI$^XXBC4;=H$!X6[.1#'J\H]2,Q>@]\J>IE@$%["
^XMB(3.9,23,2,23785,0)="""DATA"",396.18,239,3,866,0)"
^XMB(3.9,23,2,23786,0)="MT41E`?VU""J)@G,_C'JEEH9I/O76(J2V2MFN!X>4?J>5D`H2![T[5'M);CA""/"
^XMB(3.9,23,2,23787,0)="""DATA"",396.18,239,3,867,0)"
^XMB(3.9,23,2,23788,0)="M]%C=PYZU=HR8Z&E=/,WN4W)KIK/C'KL)4""&^E8W4`J/JP\EQB%!!`(XT-;9("
^XMB(3.9,23,2,23789,0)="""DATA"",396.18,239,3,868,0)"
^XMB(3.9,23,2,23790,0)="MEVE94U/<TDQ2_2\:@-#D7D8^\Y^,K+-XMFW.-0!X?_<L0CI:%7TDXCW[>>(0"
^XMB(3.9,23,2,23791,0)="""DATA"",396.18,239,3,869,0)"
^XMB(3.9,23,2,23792,0)="MC7_8*#S`P^ZCA2'TQC^L=PC-[K:YB+'2>SU`!SJ',S18'WW/F\PZP-WZP26;"
^XMB(3.9,23,2,23793,0)="""DATA"",396.18,239,3,870,0)"
^XMB(3.9,23,2,23794,0)="M-2J;-2&=Y?D3G0-#G[L[+IL51(?UPW^NV\*.Z@J,2&4%P6@S8V@+\U[,L+SG"
^XMB(3.9,23,2,23795,0)="""DATA"",396.18,239,3,871,0)"
^XMB(3.9,23,2,23796,0)="M3?57\6ZVY&%'+WYF3;4?C[DA1W@TP91[[P`;<L]$@_ZH7@'7ME6`1W>P)CP'"
^XMB(3.9,23,2,23797,0)="""DATA"",396.18,239,3,872,0)"
^XMB(3.9,23,2,23798,0)="M_50)6A7HPW!?7UZ""AHK[%>V7H=QCM*N&W')Y<74<IO""H%]($6^D#AN>12X3]"
^XMB(3.9,23,2,23799,0)="""DATA"",396.18,239,3,873,0)"
^XMB(3.9,23,2,23800,0)="MN.7>2-QR&!@H]-`H)E3)-G7=D_&&;)!L2:)UFBK+-H53/!7$V+608.1S<>G<"
^XMB(3.9,23,2,23801,0)="""DATA"",396.18,239,3,874,0)"
^XMB(3.9,23,2,23802,0)="MQP^T%E4Z-TFR<F*U2C^?YTE1)!(KWN2&""]\?B^^.](@@D3^2ZK=@R2<*EM8T"
^XMB(3.9,23,2,23803,0)="""DATA"",396.18,239,3,875,0)"
^XMB(3.9,23,2,23804,0)="M5[!.BCJ32/8<:T*H"".;(*T7;9+'UDTLEEV#BK8R#,;;'G$3""Y]G/.X)""QQ^`"
^XMB(3.9,23,2,23805,0)="""DATA"",396.18,239,3,876,0)"
^XMB(3.9,23,2,23806,0)="M3G0URHD.<#?ODT`'3ZTC!(8YW7!D'2$Z+@8%M0""W<3&C,[LL8W:,/3H""WM.'"
^XMB(3.9,23,2,23807,0)="""DATA"",396.18,239,3,877,0)"
^XMB(3.9,23,2,23808,0)="MH_>HGOESQWMT'V0Z/A[]K`:\GAT_K+_/`SFY5@3UG@4(1H9O!X<A9]`;1VN,"
^XMB(3.9,23,2,23809,0)="""DATA"",396.18,239,3,878,0)"
^XMB(3.9,23,2,23810,0)="M&8%NZ?OC-Z1WB.AMGX24WN3RE_[11V_(\.`#D3?Q(E[-CMBL%4Q0$YRJ)CUP"
^XMB(3.9,23,2,23811,0)="""DATA"",396.18,239,3,879,0)"
^XMB(3.9,23,2,23812,0)="M#P3N.#4%1QJQCLOX>QJSGO*,_+UTU7&RKV/R5V;'F4V*)J@0350A-`1+&(P\"
^XMB(3.9,23,2,23813,0)="""DATA"",396.18,239,3,880,0)"
^XMB(3.9,23,2,23814,0)="M:4=J$ZB9#8Z:5![#M1F`T?<`1,$ALGAP'VY8./YI7?\03[L/G&/HNNX`Q*[."
^XMB(3.9,23,2,23815,0)="""DATA"",396.18,239,3,881,0)"
^XMB(3.9,23,2,23816,0)="MQ]:#R!O.'S8^+QVV2/:5%NQOEK""J&NC*E5$XJFP`3/?'(2+!Y\;6$(T/<6!T"
^XMB(3.9,23,2,23817,0)="""DATA"",396.18,239,3,882,0)"
^XMB(3.9,23,2,23818,0)="MB)S#7MD:L%715-=Y;8#P`2/;CP/W5/;:B.C%&V_'D8&)=\=[S7]V`]!?DZ(L"
^XMB(3.9,23,2,23819,0)="""DATA"",396.18,239,3,883,0)"
^XMB(3.9,23,2,23820,0)="MQ@P^PV<U^'R9:YXPUUQUAV,-$ZU*'U.W""FCJ8H$.Z9^_$KA=]N7;AHC\_[SY"
^XMB(3.9,23,2,23821,0)="""DATA"",396.18,239,3,884,0)"
^XMB(3.9,23,2,23822,0)="M'#\5M""ZX3.)B0_QAYR9;/3GSA!8BG/2V(:*/""X>\?9?D3V^OADI]]<-@^X<!"
^XMB(3.9,23,2,23823,0)="""DATA"",396.18,239,3,885,0)"
^XMB(3.9,23,2,23824,0)="MO,G73K@./LXZ727-XXC+)N_$""V=&=E/S"".]L'\&S?P3(0P8UCR#4)`<>@;=#"
^XMB(3.9,23,2,23825,0)="""DATA"",396.18,239,3,886,0)"
^XMB(3.9,23,2,23826,0)="M5Q_9D')""1YTWBY+U,=/9U7D:WZTR&EBRD>79(ETQJ(22F@SRB*OYALWHIE)1"
^XMB(3.9,23,2,23827,0)="""DATA"",396.18,239,3,887,0)"
^XMB(3.9,23,2,23828,0)="M[6K%YJ035ONM8M0\66=Y.2P)UD46*%UD1C$@50H!U$F!)S_B:T71U;[+N-!0"
^XMB(3.9,23,2,23829,0)="""DATA"",396.18,239,3,888,0)"
^XMB(3.9,23,2,23830,0)="MQM4WC!F+N+W-8D*K6%^Y=[!-3&<[>I45CE`6MM46X#<MKZ[@HBZ3NN""0NJ04"
^XMB(3.9,23,2,23831,0)="""DATA"",396.18,239,3,889,0)"
^XMB(3.9,23,2,23832,0)="M3!]2H:E=!7F!QG*&.LLI\,`T&D0^XG/N?=YHKR^J]T0Y`_UG4I6_9)-6F:X*"
^XMB(3.9,23,2,23833,0)="""DATA"",396.18,239,3,890,0)"
^XMB(3.9,23,2,23834,0)="ME(%8KJRS5+6)XO,Q6K^VUZM5?%K)H]55PGI/EV]]N@#?BS/)%D+W<KA,APOL"
^XMB(3.9,23,2,23835,0)="""DATA"",396.18,239,3,891,0)"
^XMB(3.9,23,2,23836,0)="MT0/_I;IFTU%>.+K`#YV'F\[P(?1>(>1[,IHP5C4""_##!D&/[(5O2K'3Q[FBF"
^XMB(3.9,23,2,23837,0)="""DATA"",396.18,239,3,892,0)"
^XMB(3.9,23,2,23838,0)="M8(?=;0/NMF\6K&)<D>;>0P!.<[?_XE`(HGES[#L&7>);QWE)'CRC$]PY??/:"
^XMB(3.9,23,2,23839,0)="""DATA"",396.18,239,3,893,0)"
^XMB(3.9,23,2,23840,0)="M*<JXI(%27']TKKC;HOD8;HJ$?4V10'YV?C""SO?*Q[M$]<""XMD76YH#?+I`-7"
^XMB(3.9,23,2,23841,0)="""DATA"",396.18,239,3,894,0)"
^XMB(3.9,23,2,23842,0)="M^O\C;?[1"",<@$WJ%,7"";7G""%.]YM+_@WLM!O;;`I2=G`T)3HWHN1B0GV48/2"
^XMB(3.9,23,2,23843,0)="""DATA"",396.18,239,3,895,0)"
^XMB(3.9,23,2,23844,0)="MW-Q$R(W9\,Q/^X*6WGG&%,\&,3/<^\,LL,W78\LNYCCFFHS0[M]!W)!A-GH-"
^XMB(3.9,23,2,23845,0)="""DATA"",396.18,239,3,896,0)"
^XMB(3.9,23,2,23846,0)="M+A7.KL+73S'%U4W!TD0QQ;+&WL0,6SY""GM1'CL[100""<_11CHML`!D!@2%()"
^XMB(3.9,23,2,23847,0)="""DATA"",396.18,239,3,897,0)"
^XMB(3.9,23,2,23848,0)="MB&WX9J`:`D:#Y%A+Q$RZ@2')K0%#JK0&7',+<O(K0:UV.N^Q@>XQPN)MV/XB"
^XMB(3.9,23,2,23849,0)="""DATA"",396.18,239,3,898,0)"
^XMB(3.9,23,2,23850,0)="M""XQ1""DLLP]:&R,H0_C7`WD%)+$@$K7,""32)X).:E`""/4+3,O,2\9=&:*8UI:"
^XMB(3.9,23,2,23851,0)="""DATA"",396.18,239,3,899,0)"
^XMB(3.9,23,2,23852,0)="M8B;*7J/AD?J0,AY1T4?<""*""Y!>$10(Q""`&MG`.OX'Y817""-#8Y1S)&DX_I=8"
^XMB(3.9,23,2,23853,0)="""DATA"",396.18,239,3,900,0)"
^XMB(3.9,23,2,23854,0)="MK)""HX)N:`IZP\""_(S`-)!*46EJ86H^UXH>DHGP'><2,P`0!02P,$%``""``@`"
^XMB(3.9,23,2,23855,0)="""DATA"",396.18,239,3,901,0)"
^XMB(3.9,23,2,23856,0)="M'8L)-?D,I>DJ*P``OU,!`!T```!""<F%I;E]3<&EN86Q?0V]R9%\Q,3,N<&YL"
^XMB(3.9,23,2,23857,0)="""DATA"",396.18,239,3,902,0)"
^XMB(3.9,23,2,23858,0)="M+F-D9>U]:W/CN+'H9Z<J_P'E+[M[/&N+;_%4E%NRK9G1.;;E*VEVLY^V:(FV"
^XMB(3.9,23,2,23859,0)="""DATA"",396.18,239,3,903,0)"
^XMB(3.9,23,2,23860,0)="M62N+CDC-C//K+\`G2#:`!BW/GI,[3C*QB4<W&@V@@7Z=G9';FXL%6:QVT7/Z"
^XMB(3.9,23,2,23861,0)="""DATA"",396.18,239,3,904,0)"
^XMB(3.9,23,2,23862,0)="MU[_\]2_3>_(^VB7I?+\=&7_]""[D,[Z-M>+-_""G?1BISO@FC[^W6XGMW^/MVN"
^XMB(3.9,23,2,23863,0)="""DATA"",396.18,239,3,905,0)"
^XMB(3.9,23,2,23864,0)="M-OMUN*:5""%F$*5A(1F10];)(=]'VH5%O'OYS'R:IH)>JE':3?[^X_?5Z'JRC"
^XMB(3.9,23,2,23865,0)="""DATA"",396.18,239,3,906,0)"
^XMB(3.9,23,2,23866,0)="M^,,NWC][P]-%N`E7M,8T#9\J0`D/:/$4;C9PT3*@G=.B&F[VI0OM@4$S!Q6T"
^XMB(3.9,23,2,23867,0)="""DATA"",396.18,239,3,907,0)"
^XMB(3.9,23,2,23868,0)="M*(=6M\N`""-H9OKC=;;`--Z9_>LZP2N/[7;Q-:3?O@TT2`A4'IFFZHLK``""=/"
^XMB(3.9,23,2,23869,0)="""DATA"",396.18,239,3,908,0)"
^XMB(3.9,23,2,23870,0)="MSYOX):,N4/II&TK+YV$:[;+""%A[.@/T8#41&$C3F\Z<P28*';O%\/+WY?1&M"
^XMB(3.9,23,2,23871,0)="""DATA"",396.18,239,3,909,0)"
^XMB(3.9,23,2,23872,0)="MP\G]/:50PM@@`]8NH.,\/H8H,AB8PR8B`H)D/5Y&__H7^Y:\*S[\&@9_\'_?"
^XMB(3.9,23,2,23873,0)="""DATA"",396.18,239,3,910,0)"
^XMB(3.9,23,2,23874,0)="M!KM@\Y)$U0?*^G=\A8M?QB4:S1XS#$FCK.P<**K@`&4E2*""(0J^^`L.CO=(/"
^XMB(3.9,23,2,23875,0)="""DATA"",396.18,239,3,911,0)"
^XMB(3.9,23,2,23876,0)="MCV$2!17""BS#ZUYY^+O]>[L*G>%?].8\>(LJ7+U5QO`W;F%9]`AB5W0-%!22@"
^XMB(3.9,23,2,23877,0)="""DATA"",396.18,239,3,912,0)"
^XMB(3.9,23,2,23878,0)="MI`0*-:+P94-<?`DVF_@+_5!B?!Y_""3?5'YM@O0YWU9^[,$@?N<J_1$D4;YLC"
^XMB(3.9,23,2,23879,0)="""DATA"",396.18,239,3,913,0)"
^XMB(3.9,23,2,23880,0)="MJ'H$T,DZA[[G<*""2$B10ED.7#6\9;;=1NJ^FYS+\'*WJR1NGN_CYL9JL\^`N"
^XMB(3.9,23,2,23881,0)="""DATA"",396.18,239,3,914,0)"
^XMB(3.9,23,2,23882,0)="MVB9_1'5Q\#4*FO0L.@2P*?H&2@HPT.@*B&`C!EPZ=^$V""5)*@7?YW^^#9!6M"
^XMB(3.9,23,2,23883,0)="""DATA"",396.18,239,3,915,0)"
^XMB(3.9,23,2,23884,0)="M]AO^VX<@2M^5L#;!=A46?WV,D^<H#38M[BMZ!/!I]`Z4,TC@""#.H0$F)@6R("
^XMB(3.9,23,2,23885,0)="""DATA"",396.18,239,3,916,0)"
^XMB(3.9,23,2,23886,0)="MER])L$L?=U%0S<GS8Y#4?V8,-7T*GH-HUV+:Z1/[V)RBJCN(X'G/(JXM@(B9"
^XMB(3.9,23,2,23887,0)="""DATA"",396.18,239,3,917,0)"
^XMB(3.9,23,2,23888,0)="M-X>G&`V%\5!C?[$+ME&P><>1/ZRVSN1E]1@%Z:YBSUO';(\F[P[:V?*>P1V&"
^XMB(3.9,23,2,23889,0)="""DATA"",396.18,239,3,918,0)"
^XMB(3.9,23,2,23890,0)="M`H&VT`H>5.B8LH%=LYWIY?2JX*WQ/HVW\5.T*AES0S>]_7/""\:3QKNS8>E=N"
^XMB(3.9,23,2,23891,0)="""DATA"",396.18,239,3,919,0)"
^XMB(3.9,23,2,23892,0)="M;\'^J;G8RFZAR2I!0)Q:@!,PJ0&.SP)W7(:2;.#3;1(_44)7*S""-'O;E$EOL"
^XMB(3.9,23,2,23893,0)="""DATA"",396.18,239,3,920,0)"
^XMB(3.9,23,2,23894,0)="MG^K?S'<U^>F@BK]NPOAY$R1//`?0TM\7C_&7YK9:0@)79@85FNO]$_S5%#!&"
^XMB(3.9,23,2,23895,0)="""DATA"",396.18,239,3,921,0)"
^XMB(3.9,23,2,23896,0)="M#,Y^`ROHA""U&H=JL6!^3=;4AW>[BNTWXU/SK]ZLH*2M<?BTWJS!8!ZO'$,2*"
^XMB(3.9,23,2,23897,0)="""DATA"",396.18,239,3,922,0)"
^XMB(3.9,23,2,23898,0)="M]0A-:=Z?N""2#!.WC7Z'-JL!`-L2+39R4<S\W6OLLH_I34$W\910\;&,F&!6#"
^XMB(3.9,23,2,23899,0)="""DATA"",396.18,239,3,923,0)"
^XMB(3.9,23,2,23900,0)="M28-=TES!K#?HL#<D>VD)!1I6""1&:8`9=OL`S@;-`=O8<;>LC9O*9RI7UP3*W"
^XMB(3.9,23,2,23901,0)="""DATA"",396.18,239,3,924,0)"
^XMB(3.9,23,2,23902,0)="MRA4]WH2[M+6@LVX`#(HN@9*R>X@4%K1J,[""MP6S+&U>#<VR0GVQVRR+L]M80"
^XMB(3.9,23,2,23903,0)="""DATA"",396.18,239,3,925,0)"
^XMB(3.9,23,2,23904,0)="MVZAX;`$B^MG9^/*J6]4%JP)[7%;;`VN7'+QX#E?1/<5^R2X801IV.S`,L(?J"
^XMB(3.9,23,2,23905,0)="""DATA"",396.18,239,3,926,0)"
^XMB(3.9,23,2,23906,0)="MB(UW9+'?/82[%Z""M`[8M%S700`];4O!DMR,31AI:[%G](5B_NC)T&_A@@_(>"
^XMB(3.9,23,2,23907,0)="""DATA"",396.18,239,3,927,0)"
^XMB(3.9,23,2,23908,0)="M`8QL``^MO%T`+>`QE'<.H($E`E%=""X!&-MBHO""P`#3P!_V57""*`^3-KR8@$T"
^XMB(3.9,23,2,23909,0)="""DATA"",396.18,239,3,928,0)"
^XMB(3.9,23,2,23910,0)="M\`5S<7_/A$1Z%XFVI+X*`',/DSJ_($29*/44;E.@(<Q^Y0U""VM14(7U7WC:`"
^XMB(3.9,23,2,23911,0)="""DATA"",396.18,239,3,929,0)"
^XMB(3.9,23,2,23912,0)="MQO#$%7>0YYS[`=*:\-R5%PF@`;P>VS?EO""Z\SXP3RJQI]#DDZ_Q2`K2$.61\"
^XMB(3.9,23,2,23913,0)="""DATA"",396.18,239,3,930,0)"
^XMB(3.9,23,2,23914,0)="MMXUW3W3'>-HGJTU(TN[]E36&V>4Z;Q/DUQU@_S3D,)/R^@$TA:>N<2D!6L%S"
^XMB(3.9,23,2,23915,0)="""DATA"",396.18,239,3,931,0)"
^XMB(3.9,23,2,23916,0)="MQJ1`H#(\4<4%!J@/SQ-P:<RKPU-57TF`)D/4&B&W$Z""MWWN9V/`TE5>*;;BC"
^XMB(3.9,23,2,23917,0)="""DATA"",396.18,239,3,932,0)"
^XMB(3.9,23,2,23918,0)="MC""7M`)ZLJSA)2'Q/$O:Z=Y9F;X-LR@':VH)=LKJC`$U@AL[O$(0*4\`BL&$"""
^XMB(3.9,23,2,23919,0)="""DATA"",396.18,239,3,933,0)"
^XMB(3.9,23,2,23920,0)="MUY>+Y""61+&W;%[*7T:WMP#M>)=@#+0P!TV?R/E#?@M\0V]5L5#7;056S!CB@"
^XMB(3.9,23,2,23921,0)="""DATA"",396.18,239,3,934,0)"
^XMB(3.9,23,2,23922,0)="MN-YL%ZS6E59'Q_\A_SDF)^3B,=C]:%@_<;]V1<71\6_QGCP&E*FW<4JGFY[;"
^XMB(3.9,23,2,23923,0)="""DATA"",396.18,239,3,935,0)"
^XMB(3.9,23,2,23924,0)="MX9I*+7=/47I\(FG(_9Y7\W\Z.9YLJ>`<)H0>Z(2MM37=0PD]V<D\?(ZI8#J["
^XMB(3.9,23,2,23925,0)="""DATA"",396.18,239,3,936,0)"
^XMB(3.9,23,2,23926,0)="MN?J-?'D,M^SC""PF>G\-@QTY+5J<0E?2A+F,&C/9!Y?MUD`8ET/+6D0]+=U#'"
^XMB(3.9,23,2,23927,0)="""DATA"",396.18,239,3,937,0)"
^XMB(3.9,23,2,23928,0)="MXTT:[K8!.THV52<7&X8Q!<""D""4HU!B?,1WW<NJJ,RLM,0]%@G"";-%WS^,66?"
^XMB(3.9,23,2,23929,0)="""DATA"",396.18,239,3,938,0)"
^XMB(3.9,23,2,23930,0)="MTL5GGK)SE2Z[$:H]<&6'VEEMS4$'KB6%:XGA<E=@J*6IA&Q+(9LMR.#%%&HX"
^XMB(3.9,23,2,23931,0)="""DATA"",396.18,239,3,939,0)"
^XMB(3.9,23,2,23932,0)="M5`(>2@$/A8#YEWJHI:^$3""\M,M""^$#2G""`#9PU""#ED^T80AA\YH&L*EZJNF%"
^XMB(3.9,23,2,23933,0)="""DATA"",396.18,239,3,940,0)"
^XMB(3.9,23,2,23934,0)="M2PI</-F<*@-LJ69P4S%P2S9P7G$!MAZHX2O&/A#""YS0C8$M;#=N3P[:%L&O5"
^XMB(3.9,23,2,23935,0)="""DATA"",396.18,239,3,941,0)"
^XMB(3.9,23,2,23936,0)="M""]C048/VY:`=(6A.MP.V]-1[FGR9T1Z$).=5.6!;]?9B*1A.O,&4NB)P)U8O"
^XMB(3.9,23,2,23937,0)="""DATA"",396.18,239,3,942,0)"
^XMB(3.9,23,2,23938,0)="M<4O.:99XB=?**+""AFM$L^6Q;8D;CM5U@4U=]D,C/3MJ#""'BE3@/;J1G-EI]A"
^XMB(3.9,23,2,23939,0)="""DATA"",396.18,239,3,943,0)"
^XMB(3.9,23,2,23940,0)="MEIC1.*T:V%)]EE""Y40I;?)CD.F""HD:UF,EM^>MIB)JNUA6!#]2E""KQ-2T.)3"
^XMB(3.9,23,2,23941,0)="""DATA"",396.18,239,3,944,0)"
^XMB(3.9,23,2,23942,0)="MI%9'@@W5_.W()]JV)9MX4Y,`-E?SN*,@NRM%H-1@@DW5;.XJ""""]F\[8*%6RN"
^XMB(3.9,23,2,23943,0)="""DATA"",396.18,239,3,945,0)"
^XMB(3.9,23,2,23944,0)="MWE)=^0JWAY*9+W3*4#M'S7.NG.Z.F.<:FE>PK5IV\>0'F6/)CY):@0NV5A_B"
^XMB(3.9,23,2,23945,0)="""DATA"",396.18,239,3,946,0)"
^XMB(3.9,23,2,23946,0)="MGOQ$<1S5B9)KB`7PU5SOR>471\SUQ=.-`#+BCJ""@_%""ZWD(!7/6N/I0+#XYX"
^XMB(3.9,23,2,23947,0)="""DATA"",396.18,239,3,947,0)"
^XMB(3.9,23,2,23948,0)="M5Z]?BF#@KEI4'<JGVQ6+JJ7>6@!:O<'Z\A7NBC?8ZNE*`%O-Y;Y\<W?%7)Z]"
^XMB(3.9,23,2,23949,0)="""DATA"",396.18,239,3,948,0)"
^XMB(3.9,23,2,23950,0)="M>PD$135W^_(3W!!S=_F"")A`>U.SMR[<U:RC9T;.G.`%D-;&-@?PPL<34OG5,"
^XMB(3.9,23,2,23951,0)="""DATA"",396.18,239,3,949,0)"
^XMB(3.9,23,2,23952,0)="MP1RW!]PP<X#;>!8""53E3>NWMMR'@Y69HX''5`3V]%U7D`?SM[\<W\3$H'=2("
^XMB(3.9,23,2,23953,0)="""DATA"",396.18,239,3,950,0)"
^XMB(3.9,23,2,23954,0)="MEJ^,D^TZNF^B5-@K@9#:.]/9F1`IOXW4;]DK&&W1/3WM-EZT%H!9;3(%;GH#"
^XMB(3.9,23,2,23955,0)="""DATA"",396.18,239,3,951,0)"
^XMB(3.9,23,2,23956,0)="M-'+.0`,Y5X8<7_\JN,L>AR?;@-9>5S1N&>X81KL&U(VA[$;>2VNYF++N6LO$"
^XMB(3.9,23,2,23957,0)="""DATA"",396.18,239,3,952,0)"
^XMB(3.9,23,2,23958,0)="MD]5MVLH6&$=)>AY_;?(K:6,DFFL,R2F]IQF]S\Y^KG[(/'R@,N..7,3KD-3?"
^XMB(3.9,23,2,23959,0)="""DATA"",396.18,239,3,953,0)"
^XMB(3.9,23,2,23960,0)="M\WKM9V]:>Q7OU@G]_\]1^(6TRS-T&;\`IM6Y(7)3#&2&%+7A^-T+^64\GY&["
^XMB(3.9,23,2,23961,0)="""DATA"",396.18,239,3,954,0)"
^XMB(3.9,23,2,23962,0)="M?9H]E@>?@VC#B'C<LCAG1CE.WMLR_)J98US\?!]M0K++\?H2)/179;^GQ_7J"
^XMB(3.9,23,2,23963,0)="""DATA"",396.18,239,3,955,0)"
^XMB(3.9,23,2,23964,0)="MU4+[;W\_%-YH#*R#$LZJ$+BF':Z""33&S;T9`Z[`$M""`""9AX1><7R%IO7O=A$"
^XMB(3.9,23,2,23965,0)="""DATA"",396.18,239,3,956,0)"
^XMB(3.9,23,2,23966,0)="MJS_H4ESN]B'20KZH^G_W3)E;]`_V;HM[KTSI2SQU62P;_MLO)Q[/]I<3NK3("
^XMB(3.9,23,2,23967,0)="""DATA"",396.18,239,3,957,0)"
^XMB(3.9,23,2,23968,0)="M>[:TGO9)2N[*)<;Z#^_C74B23.N3LF<EIJO998JHXZ92K.*1OKRBIH3U#2C1"
^XMB(3.9,23,2,23969,0)="""DATA"",396.18,239,3,958,0)"
^XMB(3.9,23,2,23970,0)="M7""O)-R1)=YZ__23VW*;^1!IW,*XA54Q56@UVO5_*UCH.-8W]`MB1#&-0[A=T"
^XMB(3.9,23,2,23971,0)="""DATA"",396.18,239,3,959,0)"
^XMB(3.9,23,2,23972,0)="M^/R.(=1YU_6DFY'?HU\!UI7`5^)LM/>XH\(>;T.%E@9&C69#5+.VG'$UN^;Z"
^XMB(3.9,23,2,23973,0)="""DATA"",396.18,239,3,960,0)"
^XMB(3.9,23,2,23974,0)="M8K;A=*Y05Q&1I-JJ.""H$U7KNC]_'3!61,=)_Q=&6BF6E?2%_P'5,UE%8""89)"
^XMB(3.9,23,2,23975,0)="""DATA"",396.18,239,3,961,0)"
^XMB(3.9,23,2,23976,0)="M?RY?$LXLCQNR)1JRA[W.M""K60U88=103Q2\<=>^5Z$]0-B/,%B57\S]1$9R3"
^XMB(3.9,23,2,23977,0)="""DATA"",396.18,239,3,962,0)"
^XMB(3.9,23,2,23978,0)="MQBT?)C;ZBBB^9>8F^*AFPF4P<!K\3,[.5LR*&F\IPRTS`G1OMKO?A3_'S^%6"
^XMB(3.9,23,2,23979,0)="""DATA"",396.18,239,3,963,0)"
^XMB(3.9,23,2,23980,0)="M#0#:'P!^`PUVNU.<.T)VSN#2ZH*M8U2CDNF.CA3VQ#GZ1P7BN,XKGE/V7O(<"
^XMB(3.9,23,2,23981,0)="""DATA"",396.18,239,3,964,0)"
^XMB(3.9,23,2,23982,0)="M7['<H9S.IEEA@38:`9!K-,],ZC%MQ/NOW453X.G$DX\)RP8O)Q\)6C$+I>R8"
^XMB(3.9,23,2,23983,0)="""DATA"",396.18,239,3,965,0)"
^XMB(3.9,23,2,23984,0)="M#;=IN,MVP<>R.-BNR29>94H%>KI6-D_0?+$U;)Y>,;L-.<36AY,.""FNV\R*@"
^XMB(3.9,23,2,23985,0)="""DATA"",396.18,239,3,966,0)"
^XMB(3.9,23,2,23986,0)="M&>Y!P.4""1)#$6[8TTI?G,+,DS)>(""H^JWT*D.#JJ1(J6+YRDK1A_WNGBXVQQ"
^XMB(3.9,23,2,23987,0)="""DATA"",396.18,239,3,967,0)"
^XMB(3.9,23,2,23988,0)="M.UV.K\CXYI)<S2[&R^GLYC\)DWHZ4]ZP3SN^'""\G?$5^JIHUYY/Q8G9#9G.R"
^XMB(3.9,23,2,23989,0)="""DATA"",396.18,239,3,968,0)"
^XMB(3.9,23,2,23990,0)="M_.UV0F;OR>+3_,-D_EN[>47[1ON&PPD_'M;$-JKI$@Q2=YF*UPS0!CIS3,%W"
^XMB(3.9,23,2,23991,0)="""DATA"",396.18,239,3,969,0)"
^XMB(3.9,23,2,23992,0)="MPVTLLLY:*H\I`++;E<2$/7W:_K&-OVS9W'>DNT:G'GHXI$5T;D6*H'7@64/1"
^XMB(3.9,23,2,23993,0)="""DATA"",396.18,239,3,970,0)"
^XMB(3.9,23,2,23994,0)="M4?<AIH)W<[O]/4IRR[^T]C\7;L<BJ;.%@/@L1!XFJK.P_LF-^KK?.9P*NS^!"
^XMB(3.9,23,2,23995,0)="""DATA"",396.18,239,3,971,0)"
^XMB(3.9,23,2,23996,0)="M4(:5R9`BF=M'(L,*9+`!;""&.7;>6@""<3QU3&C&)93,N*4L2AY@`IC+D]9#$+"
^XMB(3.9,23,2,23997,0)="""DATA"",396.18,239,3,972,0)"
^XMB(3.9,23,2,23998,0)="M+8FYO00QZ*>T\125<TA6YJ`""AC21#&GB&++MPH7C2!/)D8;`=%O\M-[""NM4I"
^XMB(3.9,23,2,23999,0)="""DATA"",396.18,239,3,973,0)"
^XMB(3.9,23,2,24000,0)="MVU_SYU6PR!4767P1N""!,88DE+!G*%I'*+E>\B#1-@D7+R!Z`SY?JZ9%MWK9F"
^XMB(3.9,23,2,24001,0)="""DATA"",396.18,239,3,974,0)"
^XMB(3.9,23,2,24002,0)="MG_""J$5WF@>EOZ7U\JZ-\:=48#B0U<EZ0E[O*]C4O""1FP33WY0']K&\""W1](A"
^XMB(3.9,23,2,24003,0)="""DATA"",396.18,239,3,975,0)"
^XMB(3.9,23,2,24004,0)="M=G,@8+&K'""<T#@&5]<:3ZU=U)\;%#K=Z:L!,3'M`>=]ZXZF%JT,SFXR9A-20"
^XMB(3.9,23,2,24005,0)="""DATA"",396.18,239,3,976,0)"
^XMB(3.9,23,2,24006,0)="M#@EQ)K4];KN'I*M8YAZTR@7R[0!XOJSN4<?&*3MEV""WMAQ*MNY""]_*[#-(CH"
^XMB(3.9,23,2,24007,0)="""DATA"",396.18,239,3,977,0)"
^XMB(3.9,23,2,24008,0)="MZ/[S!\+>%,DZIH(N>^%?48A!M""4!K9*PP$@DUU4SQ_+B5_)#YMM?=LCTKS^\"
^XMB(3.9,23,2,24009,0)="""DATA"",396.18,239,3,978,0)"
^XMB(3.9,23,2,24010,0)="M8T""VY+Y^#HRV2;K;9PT3]D>TSEU2^&;D2[1=QU].6TY!Q^8IR5F$A,'JL73U"
^XMB(3.9,23,2,24011,0)="""DATA"",396.18,239,3,979,0)"
^XMB(3.9,23,2,24012,0)="M(I0<3YC!L*LW?S_]YSX;""'/`Z8""R3DE&O^)9G/G/!*M5^$Q[V6SR7D1-[5.R"
^XMB(3.9,23,2,24013,0)="""DATA"",396.18,239,3,980,0)"
^XMB(3.9,23,2,24014,0)="MC`M`P9J2A`Z5WD@+W)@:\#D,4I*DX7-""C)^)=:J^/Q@#[-OO;?S,3!;#B_CI"
^XMB(3.9,23,2,24015,0)="""DATA"",396.18,239,3,981,0)"
^XMB(3.9,23,2,24016,0)="M+OXU2A^+:AE=""S4#*[J+OUJ67G6[@1BO<Z_D)I'2G=12#5BE$!+45@FL#B@6"
^XMB(3.9,23,2,24017,0)="""DATA"",396.18,239,3,982,0)"
^XMB(3.9,23,2,24018,0)="M&.WV0L,'/8,$:6W%$-0F#-+:0.^5X"",G)Y4.""V149+^)MX72KDD\Z20A:@KZ"
^XMB(3.9,23,2,24019,0)="""DATA"",396.18,239,3,983,0)"
^XMB(3.9,23,2,24020,0)="M%4^J?%J1$ZL[M?J3JSN]NA/,33%BDG%4+C8,!1GA6D(J8JIS)*FK5^,#A'@="
^XMB(3.9,23,2,24021,0)="""DATA"",396.18,239,3,984,0)"
^XMB(3.9,23,2,24022,0)="M.QZ57&N9*'G/-L1'?M.BJ77@X\#6]S2U+97""E`I>(%*,'@!&JS2U+828>K&`"
^XMB(3.9,23,2,24023,0)="""DATA"",396.18,239,3,985,0)"
^XMB(3.9,23,2,24024,0)="M""&D\&3#'Z=00BG0@Z!$"",DR-!N@&05H/=HXC.45]Z4MB)])00W=2'9HB#4""["
^XMB(3.9,23,2,24025,0)="""DATA"",396.18,239,3,986,0)"
^XMB(3.9,23,2,24026,0)="M>?4FGF02WTLF=90RRVJ_VU$18?/2DE5.FQKW[@LWD[%\)`K`1RJ?$.""QGND'"
^XMB(3.9,23,2,24027,0)="""DATA"",396.18,239,3,987,0)"
^XMB(3.9,23,2,24028,0)="ME*`9>3VA?J`W[%6T6^V?DI1942:9D!9MJ=#$HEH$V^@^I""6YM!CG(NLZ2L(@"
^XMB(3.9,23,2,24029,0)="""DATA"",396.18,239,3,988,0)"
^XMB(3.9,23,2,24030,0)="M4:/+8-()`RT]]!'_]9'*;%&28QSO=_0NE$3,[I-B%J989*S#(#/>94(S_;?@"
^XMB(3.9,23,2,24031,0)="""DATA"",396.18,239,3,989,0)"
^XMB(3.9,23,2,24032,0)="M(Y(R5S06WR'IB4JE;$'4*XZ=HR.1:M$2$/TU(\UN""F%Q.%!64(_\J!I[]4N'"
^XMB(3.9,23,2,24033,0)="""DATA"",396.18,239,3,990,0)"
^XMB(3.9,23,2,24034,0)="M&`V``H437T?9AW!*6<GM?'9^-;GF-3_M?:4Y`JB7YM^%+HKIE68WB\FRK;WR"
^XMB(3.9,23,2,24035,0)="""DATA"",396.18,239,3,991,0)"
^XMB(3.9,23,2,24036,0)="M>W=[,9U??+I>+,<W%Y-%IB&;WDR7T_$5N1[?3-]/:`E3ERT8Q(8BR^OHL?`P"
^XMB(3.9,23,2,24037,0)="""DATA"",396.18,239,3,992,0)"
^XMB(3.9,23,2,24038,0)="M9Y_FBPE93""G,[GC@%=T'S*?Y?'*S),OY9+R\IK\M`#""6#`R2\2N.PN&UF%Y."
^XMB(3.9,23,2,24039,0)="""DATA"",396.18,239,3,993,0)"
^XMB(3.9,23,2,24040,0)="MR.3]^\G%<L%FM(-G@W.DD)OH5@NAJ>TM)DH3R\O)XF(^/6?35*/;T686?>,0"
^XMB(3.9,23,2,24041,0)="""DATA"",396.18,239,3,994,0)"
^XMB(3.9,23,2,24042,0)="MZ8E)ASYD\>GZ>@SH5@V0)[O8H$0G+'J_?APOR:_C!5E^G'`XSB>+6\;;XLEL"
^XMB(3.9,23,2,24043,0)="""DATA"",396.18,239,3,995,0)"
^XMB(3.9,23,2,24044,0)="MP\70D$I(KYM-.8(-$-R#!Q%C-.R'T/CR<LHV%KK17,RN.ZN3[UF(1TN4+O`>"
^XMB(3.9,23,2,24045,0)="""DATA"",396.18,239,3,996,0)"
^XMB(3.9,23,2,24046,0)="MM6$)E>N%O-A^=%%JR3NO-/S=J+G3@RH3'RXJ[D""F7%.#N<$>R!=#VK/L\0`2"
^XMB(3.9,23,2,24047,0)="""DATA"",396.18,239,3,997,0)"
^XMB(3.9,23,2,24048,0)="MV8>B`D]48`@+A""7L7J#IT"")Z:'CKZXO.$X/.'`E5OQUSU(Y1@B>W2?!0QKLM"
^XMB(3.9,23,2,24049,0)="""DATA"",396.18,239,3,998,0)"
^XMB(3.9,23,2,24050,0)="M-YG,+Z*\#R5EU,D6;KY*]87S,N#]<O5Z%([E/U`_=7C,VD:IC`$DT#9CK7""'"
^XMB(3.9,23,2,24051,0)="""DATA"",396.18,239,3,999,0)"
^XMB(3.9,23,2,24052,0)="M.&VSV4?9/$0JFTVEKIDQM2_=6]BV2+<+`][ZRF)37LSOJ4+ML""IXDE@[K!FW"
^XMB(3.9,23,2,24053,0)="""DATA"",396.18,239,3,1000,0)"
^XMB(3.9,23,2,24054,0)="M2?R,CS2R,'L860S11A;FP8PL,JOK.J)KA5$=;DK`Y#Z2R7T<DP_[,+F/9/*A"
^XMB(3.9,23,2,24055,0)="""DATA"",396.18,239,3,1001,0)"
^XMB(3.9,23,2,24056,0)="MVJ""BX$);SJ0.ADF5<;;$7*H;Y$O(IB:238=][+(--)\.#\BGI(XC7""%41283"
^XMB(3.9,23,2,24057,0)="""DATA"",396.18,239,3,1002,0)"
^XMB(3.9,23,2,24058,0)="M,&DW-)F`DPP#QZ9^'S8U#""2?^C);M+9=HRGE067`-3$3ZH9[$S*AC61""OP\3"
^XMB(3.9,23,2,24059,0)="""DATA"",396.18,239,3,1003,0)"
^XMB(3.9,23,2,24060,0)="MXBW2_,,P(>'""4M<O1U5X.A$'8DW/#*SMV:`7""Z*-SP8:/&C(W5.4<?<DWBFZ"
^XMB(3.9,23,2,24061,0)="""DATA"",396.18,239,3,1004,0)"
^XMB(3.9,23,2,24062,0)="M8?^$HC%V)Q0-7,Z%#IH+!?.FSX9UK//:_+&,4RAB0JQ!KH&TR#5ZR:0&UB;7"
^XMB(3.9,23,2,24063,0)="""DATA"",396.18,239,3,1005,0)"
^XMB(3.9,23,2,24064,0)="M,'4VPH&,""=4!&""46A9KA'X4\B-T(C3Y2HXG?""0WS<%LAZ*?'QZP4\>(`RXL#"
^XMB(3.9,23,2,24065,0)="""DATA"",396.18,239,3,1006,0)"
^XMB(3.9,23,2,24066,0)="M)""_V<MAK]2[A14N'%PU8;G0Q<J,Z5J=TO]2.%BID5Q?+KGV\^DR-+=,Z$+O6"
^XMB(3.9,23,2,24067,0)="""DATA"",396.18,239,3,1007,0)"
^XMB(3.9,23,2,24068,0)="MB1MJXZ<RO*F(36TLF]HJ5]K;#=-VEB9TD^=H$SXG+YF>]"";8K>+\S]*]]A1D"
^XMB(3.9,23,2,24069,0)="""DATA"",396.18,239,3,1008,0)"
^XMB(3.9,23,2,24070,0)="M0KL7C]M8'K=U>-R"">=R#KTZS>:&-<8#71/%:4,:.%:\%W<BUPG4PQ*X#N\\Z"
^XMB(3.9,23,2,24071,0)="""DATA"",396.18,239,3,1009,0)"
^XMB(3.9,23,2,24072,0)="M\/#KP#[0.JCRD7!^/'FD7=$J<+""KP$%NUEXO1G:PC.SI,+(MY4!E""&&9/X]6"
^XMB(3.9,23,2,24073,0)="""DATA"",396.18,239,3,1010,0)"
^XMB(3.9,23,2,24074,0)="M_&*ASQGVL<GP^C""@CV=`[U#W>)+G`JE0R1/$B;C/Q7*?B^,^N]_UW45RG^VC"
^XMB(3.9,23,2,24075,0)="""DATA"",396.18,239,3,1011,0)"
^XMB(3.9,23,2,24076,0)="MWYD,E$2@CM$GYL$R]1ZJH8@#?0_)@7:?.[SOHCG0]@_&@762I0J=*NBWB!$]"
^XMB(3.9,23,2,24077,0)="""DATA"",396.18,239,3,1012,0)"
^XMB(3.9,23,2,24078,0)="M+""-ZR&VPUW-GJW?)-CC4V08=J5.C,IJYF`5U8ZD+]T'T';[/<Z:%?\XT#O:>"
^XMB(3.9,23,2,24079,0)="""DATA"",396.18,239,3,1013,0)"
^XMB(3.9,23,2,24080,0)="MV<C550NE=0!X$2=B=4L&4KED]-L2L>HE`[\E#O,=D8C>WOUN.11S""398%?.W"
^XMB(3.9,23,2,24081,0)="""DATA"",396.18,239,3,1014,0)"
^XMB(3.9,23,2,24082,0)="M,EZ^1-#4CM=?!W@4A9!4;R""S^287J.VNM2]'EDRS;9I=@U_5W#KR74;4.3""S"
^XMB(3.9,23,2,24083,0)="""DATA"",396.18,239,3,1015,0)"
^XMB(3.9,23,2,24084,0)="MN>B?:56DY@;@B#JA1-O+%OVHTN=HLC0>5?Q#*N-(-R-?C5I6)/*YQZHZ+*2J"
^XMB(3.9,23,2,24085,0)="""DATA"",396.18,239,3,1016,0)"
^XMB(3.9,23,2,24086,0)="MP^SUT&QA=1WF`._EG*UL&VD-DV\#*HXK+J6=1R;Y9J',<2&)ZJN37D/(]%AY"
^XMB(3.9,23,2,24087,0)="""DATA"",396.18,239,3,1017,0)"
^XMB(3.9,23,2,24088,0)="MS.SSFFWAGV;,03^'96`F,TO[MH=%:S9MF6-#:99E^`K?3].3U""A[,0>J7CH."
^XMB(3.9,23,2,24089,0)="""DATA"",396.18,239,3,1018,0)"
^XMB(3.9,23,2,24090,0)="MQG(7""KMM@:@U6HF94%E9[J`!4$=@!L63!P#;I8^H'ZE[+]</Y,/+H=OV""J<4"
^XMB(3.9,23,2,24091,0)="""DATA"",396.18,239,3,1019,0)"
^XMB(3.9,23,2,24092,0)="M?@^?^5)^X@ZLH2'@HZP.ORE(JN4>S-*>JD$,A.XVJ)$PNTO,4!I4[HQ%R!^2"
^XMB(3.9,23,2,24093,0)="""DATA"",396.18,239,3,1020,0)"
^XMB(3.9,23,2,24094,0)="M47=[[`Z[6X<;-Q^,5D&8IJ\\MXY$@RB<(Y7U.""=&[-:/JECVVCD*Q4UFS`7B"
^XMB(3.9,23,2,24095,0)="""DATA"",396.18,239,3,1021,0)"
^XMB(3.9,23,2,24096,0)="MN&M897;\U;NKJ>.RAX9+""84`+#*<Y""'+;Y!NC10@X:IX\1MAIF421:#$K?5Q"
^XMB(3.9,23,2,24097,0)="""DATA"",396.18,239,3,1022,0)"
^XMB(3.9,23,2,24098,0)="M612*1#&L[L`2Z`ZX*)P[LGY)]KLH>$?HOUL6$2S=!:N41-O[W'L_:9<D+(DP"
^XMB(3.9,23,2,24099,0)="""DATA"",396.18,239,3,1023,0)"
^XMB(3.9,23,2,24100,0)="M_4K;QFSVL_!MF<?-0[B-TKBL729:?<=[]S>KA%^#IVB;Y\])90H*T^@E+&(5"
^XMB(3.9,23,2,24101,0)="""DATA"",396.18,239,3,1024,0)"
^XMB(3.9,23,2,24102,0)="M%*:A\Z`AM#IV/,%KG*'070RUI$1E.C*)E*B7""TT8Q,;`RHE&'SD1_W)L&EIR"
^XMB(3.9,23,2,24103,0)="""DATA"",396.18,239,3,1025,0)"
^XMB(3.9,23,2,24104,0)="MHI#@U3;6VBL\5;@/E:PF@,COG$*0`OG''\"".OP"";`I)R>4*6+""E`P_&4PJZG"
^XMB(3.9,23,2,24105,0)="""DATA"",396.18,239,3,1026,0)"
^XMB(3.9,23,2,24106,0)="M$E.;H,1#=CRUZ.BAQNQX?>Q3296!N<*]^""+<@;%Z*PNIMW+Z[6]8O95CX#4'"
^XMB(3.9,23,2,24107,0)="""DATA"",396.18,239,3,1027,0)"
^XMB(3.9,23,2,24108,0)="M0Y0-JCK1C7@3*HF+3+,CMI7&[D*.T2L\\``?'MC`O=&0!<N5SHGGV=\9EP'2"
^XMB(3.9,23,2,24109,0)="""DATA"",396.18,239,3,1028,0)"
^XMB(3.9,23,2,24110,0)="MNM&U@7Z/J<C=4$16`EDNZ0PV,Q-89KG;&Q8""W5#L>?41#E-^S%GOW)AS:((Q"
^XMB(3.9,23,2,24111,0)="""DATA"",396.18,239,3,1029,0)"
^XMB(3.9,23,2,24112,0)="MFP/DF,W!-QAS7FF$P[3'QG,9W=^S#(+I""\L8?E=F""^5YL<H@*MJ*L$I,""ZG$"
^XMB(3.9,23,2,24113,0)="""DATA"",396.18,239,3,1030,0)"
^XMB(3.9,23,2,24114,0)="M-'O9WEE8)::I97LGC^6G3(TJ$81T,[,*12$+*PKU,;ZS\2'*S<,Z;9`B?6PI"
^XMB(3.9,23,2,24115,0)="""DATA"",396.18,239,3,1031,0)"
^XMB(3.9,23,2,24116,0)="MQ7.H%24BAL0J,RT/F20@?`DU;@J]S/4LK.K3U#+7D]HOJ_/KBME7+[>OD'>Q"
^XMB(3.9,23,2,24117,0)="""DATA"",396.18,239,3,1032,0)"
^XMB(3.9,23,2,24118,0)="M\?7-/I9XMHWG7>NPO%NF$.1P*C\)V1:K^;20FD^GGWX#J_ET!CB1C@G@'LH8"
^XMB(3.9,23,2,24119,0)="""DATA"",396.18,239,3,1033,0)"
^XMB(3.9,23,2,24120,0)="M1)DU4<R.%7&1.1N%]B`^5J+KHW_P\0YPSN""P#%EFQ.9-X\HDV2*&Q'K`64@7"
^XMB(3.9,23,2,24121,0)="""DATA"",396.18,239,3,1034,0)"
^XMB(3.9,23,2,24122,0)="M.+.7D:>%=8(S;?P=P\0PI#H'N,1""3C,#N7""'1""O$^MAHVG@#)=,^+$/F.6T)"
^XMB(3.9,23,2,24123,0)="""DATA"",396.18,239,3,1035,0)"
^XMB(3.9,23,2,24124,0)="M'0S/DV6F6V$""(.S+HVLCSW;V\AEL6,BF>+<.=XG\<+=[F7>ZV&=`6\>\TY$Z"
^XMB(3.9,23,2,24125,0)="""DATA"",396.18,239,3,1036,0)"
^XMB(3.9,23,2,24126,0)="MR*E3_HJ9MYH%9,)AX6Z*%4WM/O:=/EXTM;W#,N]%N`OO=O'G(%EEF32#U2I:"
^XMB(3.9,23,2,24127,0)="""DATA"",396.18,239,3,1037,0)"
^XMB(3.9,23,2,24128,0)="M-Y_0+WX9BYC8QEHRV%A+AE[AVFVT)8,Z7GN6XD+ZR)SYSVL\,MMR:<""6F2(P"
^XMB(3.9,23,2,24129,0)="""DATA"",396.18,239,3,1038,0)"
^XMB(3.9,23,2,24130,0)="MVH]PI!?NNUA!P'3Z[+L:GO#.85EWG""1T-J+/(5F'GZ-5PV?D,O\BY%NLJZ>-"
^XMB(3.9,23,2,24131,0)="""DATA"",396.18,239,3,1039,0)"
^XMB(3.9,23,2,24132,0)="M=/4T>R6^L+&NGJ:KY-OJ==S5X4U'_O9HRQP_2QJ/<""06\:>#5H#TR8;AX%\>"
^XMB(3.9,23,2,24133,0)="""DATA"",396.18,239,3,1040,0)"
^XMB(3.9,23,2,24134,0)="M350^##R'CN^V\>Z)A5;<)ZM-2)BNCQ=:6>)O$7]J9/Z&`M-WA@:?&K+\X$@."
^XMB(3.9,23,2,24135,0)="""DATA"",396.18,239,3,1041,0)"
^XMB(3.9,23,2,24136,0)="M!L+D8A`09GX&,I3#Z?8$(H-..G4A1Z+?H?H<]H[&.]1!#WMRG?-AD.[BYT?>"
^XMB(3.9,23,2,24137,0)="""DATA"",396.18,239,3,1042,0)"
^XMB(3.9,23,2,24138,0)="MJ'Z<?Q%R(U94M6WD;MG+IMY&JZ""'N%->DFG%D,0-,VS,E<N1/TG9,JFUG(\1"
^XMB(3.9,23,2,24139,0)="""DATA"",396.18,239,3,1043,0)"
^XMB(3.9,23,2,24140,0)="M;CK$6IWFI>CL+`\KQ9.X2XCJ6L'""QUZS\+&+(J;N59E*#YHKKJ,R(CIG?KVG"
^XMB(3.9,23,2,24141,0)="""DATA"",396.18,239,3,1044,0)"
^XMB(3.9,23,2,24142,0)="MS,#E?#OIM*FCRYV0XZO)^R6YGHP7G^:3(A+C27=R&DWFTP\?I6WL=IM&/+KV"
^XMB(3.9,23,2,24143,0)="""DATA"",396.18,239,3,1045,0)"
^XMB(3.9,23,2,24144,0)="MG<$>-*+84?QAU5TGP!44M(Y/H=MM\19<J4B*ZSCH#&GF4!Z-S.SCQ^%H/&?V"
^XMB(3.9,23,2,24145,0)="""DATA"",396.18,239,3,1046,0)"
^XMB(3.9,23,2,24146,0)="M].,@\_!^$WXMA4)N""DR6D5J55CVK-%3D`&EU:OD].L7F7LX`>*WE3,:;#<F%"
^XMB(3.9,23,2,24147,0)="""DATA"",396.18,239,3,1047,0)"
^XMB(3.9,23,2,24148,0)="MC&;N]CJ5$@/IGR:-7=D\.994MP9ZU0V]ZJ9>=4NONJU7W=&K[NI5]_2J#_6J"
^XMB(3.9,23,2,24149,0)="""DATA"",396.18,239,3,1048,0)"
^XMB(3.9,23,2,24150,0)="MZ\VJK3>K=GN:;C?!EFZ5A""TJIB[Y\29CNY^DG5B].FDE`QL,#.6T`DW`J>UN"
^XMB(3.9,23,2,24151,0)="""DATA"",396.18,239,3,1049,0)"
^XMB(3.9,23,2,24152,0)="MRYUAMS7AN:'-V=E5>)^2<@#9QV*+`2Q^:4_#VC2R:W2<QT(9#!Q3%N,?@1^S"
^XMB(3.9,23,2,24153,0)="""DATA"",396.18,239,3,1050,0)"
^XMB(3.9,23,2,24154,0)="M.CX`@EWS8!!#P%RH51E!84M(X7GT\*@U`@]#8DN7Q):8Q*_!4$)C2X?&ENJ4"
^XMB(3.9,23,2,24155,0)="""DATA"",396.18,239,3,1051,0)"
^XMB(3.9,23,2,24156,0)="M<#KO['EG.B>$UOF@=3IHG0U:)X/6N:!U*FB=""5HG@M9YH'4::)T%VONO]NZK"
^XMB(3.9,23,2,24157,0)="""DATA"",396.18,239,3,1052,0)"
^XMB(3.9,23,2,24158,0)="M==9HG2G'B@U)NI+D&Z/8N:*YN`''""+V7S$6X3;*;53/I5_E5>""_'FH?83;X3"
^XMB(3.9,23,2,24159,0)="""DATA"",396.18,239,3,1053,0)"
^XMB(3.9,23,2,24160,0)="MWYPM8;YC^!'&0MS:VSR/!MUZ%>""CQI2$&2'ITKFYN8IW3ZS9AVMTL]R@:2J+"
^XMB(3.9,23,2,24161,0)="""DATA"",396.18,239,3,1054,0)"
^XMB(3.9,23,2,24162,0)="MG.P.>G3\ZA?U\L4R*2F<M/@QWKW\OGB,OXAY$FM#9V,#@?33""*$#@0B4'N)W"
^XMB(3.9,23,2,24163,0)="""DATA"",396.18,239,3,1055,0)"
^XMB(3.9,23,2,24164,0)="M'84VQY6&.^(I.,(1$#`\GUV?S\YG_[#S&+=5DBEFWBFLD(O:QXU\=G""]E*1A"
^XMB(3.9,23,2,24165,0)="""DATA"",396.18,239,3,1056,0)"
^XMB(3.9,23,2,24166,0)="M0L'GR<ZX5X;+Z1)R4N_X_'@N4*DD:#5Q(F1'#5QE\.O4;S($H%I%5[SG&PXO"
^XMB(3.9,23,2,24167,0)="""DATA"",396.18,239,3,1057,0)"
^XMB(3.9,23,2,24168,0)="M-&W>`C?.84N""Y)^""&L2=KHH[721WNFCNM#'<:?;B3A?#G3:*S"":&S#:2.UTL"
^XMB(3.9,23,2,24169,0)="""DATA"",396.18,239,3,1058,0)"
^XMB(3.9,23,2,24170,0)="M=[XU;@W77Q&.WQ0S""6]Z*M[TD+SIH7G30O""FZ_?B30_#FQ:&R@T$A%2VD+SI"
^XMB(3.9,23,2,24171,0)="""DATA"",396.18,239,3,1059,0)"
^XMB(3.9,23,2,24172,0)="M87GSK7&3\*8GY\VWPDS""FT,5;PZ1O#E$\Z:)X4VO%V\.,;QIHJCL8:AL(GES"
^XMB(3.9,23,2,24173,0)="""DATA"",396.18,239,3,1060,0)"
^XMB(3.9,23,2,24174,0)="MB.7-M\9-PIM#.6^^%68ET2#F]%7,Z2.9TT<SIX%A3J<7<_H8YC109'8P9#:0"
^XMB(3.9,23,2,24175,0)="""DATA"",396.18,239,3,1061,0)"
^XMB(3.9,23,2,24176,0)="MS.ECF?.M<9,PIR]GSK?""K&;.CH3@27/J3JYG3O=XY496V&)*+][E#<ZFA9U/"
^XMB(3.9,23,2,24177,0)="""DATA"",396.18,239,3,1062,0)"
^XMB(3.9,23,2,24178,0)="MY(088&VFGRT))0@]X]FJ@`OMSH#LKBQM9S,OI^2>G(-U-,$""'T]`7.B,[<*G"
^XMB(3.9,23,2,24179,0)="""DATA"",396.18,239,3,1063,0)"
^XMB(3.9,23,2,24180,0)="M*'U1(51,S(9+=7L(^$&6O93.XC;<?0Y_3'Y2X='HL]S?2#,[*5\'6L#0A`.#"
^XMB(3.9,23,2,24181,0)="""DATA"",396.18,239,3,1064,0)"
^XMB(3.9,23,2,24182,0)="M844LGZ,X*2%CA\G5Y&+)%L#DFJ'^<3PO4(=[;/Y-B3+YQW(^N9XN?Y.`<61@"
^XMB(3.9,23,2,24183,0)="""DATA"",396.18,239,3,1065,0)"
^XMB(3.9,23,2,24184,0)="MP%LF[;6F#@Z17Z;T4V'Y42/2ZK,)NGI^J7`H[YX]X)/2\H2E^1R?W\SFU^.K"
^XMB(3.9,23,2,24185,0)="""DATA"",396.18,239,3,1066,0)"
^XMB(3.9,23,2,24186,0)="M%EWX[E6H\/>:'NC<TK]!2K@:E+#?EA*V)B6\7NA<948[R]FGBX\@03P-@EAO"
^XMB(3.9,23,2,24187,0)="""DATA"",396.18,239,3,1067,0)"
^XMB(3.9,23,2,24188,0)="M2Q!+DR##?JPQ6V3I.,EBTLY9VNH811/S;6EB:M+$[X7.;/EQ,@=)X6N0PGA;"
^XMB(3.9,23,2,24189,0)="""DATA"",396.18,239,3,1068,0)"
^XMB(3.9,23,2,24190,0)="M4AA25'#`QEERW\DEN9G,?YG\N/BID8DU/R6OIC>310M,,EERE=Q!4:D+06CQ"
^XMB(3.9,23,2,24191,0)="""DATA"",396.18,239,3,1069,0)"
^XMB(3.9,23,2,24192,0)="M5D@^@""ZC*0:VW5:DR@^4?"".L[JBJPP^?0`575<%351BJ*OB""""L![J?0E3?J4"
^XMB(3.9,23,2,24193,0)="""DATA"",396.18,239,3,1070,0)"
^XMB(3.9,23,2,24194,0)="M(;U+2F5YA&2.N%DB'D80[WJ(=VG,XPKF<1!S$<:\@&/N+!WM:+9<Q7K#H8^V"
^XMB(3.9,23,2,24195,0)="""DATA"",396.18,239,3,1071,0)"
^XMB(3.9,23,2,24196,0)="MP+0=N06FW<=MQ\&[[=@'==NA%$M6+$Y'H>_FP@1QWX7:1:QGN8WT++=Z1>BP"
^XMB(3.9,23,2,24197,0)="""DATA"",396.18,239,3,1072,0)"
^XMB(3.9,23,2,24198,0)="ML9[EEDZ$#DN:Y,*5>T':0VF4()ZV(QQIA2IOK'>$U2=*AXOWCK`.&J4#2G<A"
^XMB(3.9,23,2,24199,0)="""DATA"",396.18,239,3,1073,0)"
^XMB(3.9,23,2,24200,0)="M9$.L/[GMH]QS+`OGGN/:NNXY/LX]Q[*0[CD<!K+4K`T[=9#7N4P&9V=2.+@)"
^XMB(3.9,23,2,24201,0)="""DATA"",396.18,239,3,1074,0)"
^XMB(3.9,23,2,24202,0)="M:*73$#$YUEG=Q8;SL/J$\W#Q]N^6I1>]N3D#@JBB>2IUW\-%YF1S!0:DXV<:"
^XMB(3.9,23,2,24203,0)="""DATA"",396.18,239,3,1075,0)"
^XMB(3.9,23,2,24204,0)="M!:9A?XE?FN?!)MBN>-^YXHMH?3K8Q'7.`+<^;>3Z=#77IS-`KD\;NSY=I/N<"
^XMB(3.9,23,2,24205,0)="""DATA"",396.18,239,3,1076,0)"
^XMB(3.9,23,2,24206,0)="MJUA_\H`1CBS!73DY(]S<"")<@-EZ$U2=>A(N/%V$=-%X$&:?!UT8XG?R#D)>Q"
^XMB(3.9,23,2,24207,0)="""DATA"",396.18,239,3,1077,0)"
^XMB(3.9,23,2,24208,0)="MKLH.TE79ZF50Y6!=E2U'1^3QI""*/W-3*,:4N=!E11SB:""GD0ZSMO]1'""7;P0"
^XMB(3.9,23,2,24209,0)="""DATA"",396.18,239,3,1078,0)"
^XMB(3.9,23,2,24210,0)="M;AU6""+]\28)=^KAK\&']4<B+6+=D!YF<UNKE-N]@D]-:6+=Y>I*94(CQMNTP"
^XMB(3.9,23,2,24211,0)="""DATA"",396.18,239,3,1079,0)"
^XMB(3.9,23,2,24212,0)="M^]5Q93SKR9,P.;(DMMP$C'#T%_&MATW#9/7QJ??P:9@LI$^]SOZYIRC$3]$*"
^XMB(3.9,23,2,24213,0)="""DATA"",396.18,239,3,1080,0)"
^XMB(3.9,23,2,24214,0)="MBJ=7%XK""[F##S;K(<+-V+U]F%QMNUM;)#^9(;Y""^7*9V97%F:[J.<&05!M+!"
^XMB(3.9,23,2,24215,0)="""DATA"",396.18,239,3,1081,0)"
^XMB(3.9,23,2,24216,0)="M""M9V'\=2'R]8V\,WS05$;B?M=$#3IX""5""C=7+&<Z2,ZT>G&F@^5,:XC/""I3U"
^XMB(3.9,23,2,24217,0)="""DATA"",396.18,239,3,1082,0)"
^XMB(3.9,23,2,24218,0)="M[`V0:8%RCO)UXIAX\G0_CJ-*]U-.S@@W-\*-%YN0V>K#WAX^ZX]U8/;NY%AH"
^XMB(3.9,23,2,24219,0)="""DATA"",396.18,239,3,1083,0)"
^XMB(3.9,23,2,24220,0)="M,7A>/GV2<CC6-\!QD2'//@A3(-""S(8U7,5V2]R2BPUT%M#,P$)K5*ZV>@W4P"
^XMB(3.9,23,2,24221,0)="""DATA"",396.18,239,3,1084,0)"
^XMB(3.9,23,2,24222,0)="ML'S=96+H+!//U%HF\ES-CJO.=U!,\0@WP\)U@DW8;/5)"">?A$S9;?K_L6!#Q"
^XMB(3.9,23,2,24223,0)="""DATA"",396.18,239,3,1085,0)"
^XMB(3.9,23,2,24224,0)="M^21`X&UGV(G73Y<I[""'*!>PWG$X=81HK$""TH:U<;N""`S`0^[Y^L-NVP\/P8/"
^XMB(3.9,23,2,24225,0)="""DATA"",396.18,239,3,1086,0)"
^XMB(3.9,23,2,24226,0)="M[*ZA*>I=[()M%&QR$QXXOTM91;3E8!4&SA""YY:P:.,E#+/;*1.!@E0NV3J85"
^XMB(3.9,23,2,24227,0)="""DATA"",396.18,239,3,1087,0)"
^XMB(3.9,23,2,24228,0)="M6QIB<:BXM<B4""^4,C'`3(-2(8:\L=I\,!$/\E<4V#GIR7L5)EM`G8>'RS](B"
^XMB(3.9,23,2,24229,0)="""DATA"",396.18,239,3,1088,0)"
^XMB(3.9,23,2,24230,0)="M@#]O=""9^QL2J&1P?R;PENY+[>)<Y^845:EDD_PP]F)=[*<H<;,1;6T=19EM2"
^XMB(3.9,23,2,24231,0)="""DATA"",396.18,239,3,1089,0)"
^XMB(3.9,23,2,24232,0)="M7I:GB75\A8.>\.$2JSL88M.=VGT49$-\NE/[D`HR<IN\K!ZC(-WQD</JC\(+"
^XMB(3.9,23,2,24233,0)="""DATA"",396.18,239,3,1090,0)"
^XMB(3.9,23,2,24234,0)="M-_8MWAV\39S;7D'LW0&6<76""V-O2^_E0?H=Q96_NW#R,<-,@Y%[L#<;NH_D:"
^XMB(3.9,23,2,24235,0)="""DATA"",396.18,239,3,1091,0)"
^XMB(3.9,23,2,24236,0)="MXF\P-D+SA=Z%:7TR#Y_C79IM>-'#-KJG=P)ZC;EGMX/M0P+%3S,LD8%3%=/)"
^XMB(3.9,23,2,24237,0)="""DATA"",396.18,239,3,1092,0)"
^XMB(3.9,23,2,24238,0)="ML3%.V)V.3?V.!9&B)""087UZ1268&G4#%T'LW&,&*DY8E$;&ZH_0Z@SSB'CN_"
^XMB(3.9,23,2,24239,0)="""DATA"",396.18,239,3,1093,0)"
^XMB(3.9,23,2,24240,0)="M%N9)1XV0V78>=ZTT73KJM`!,O==1\+""-DR@Y;=IX'Q68U1#*[(:0<5D'5/6K"
^XMB(3.9,23,2,24241,0)="""DATA"",396.18,239,3,1094,0)"
^XMB(3.9,23,2,24242,0)="MP,`]IRSC)_;G*J;`LJLG^^]JM7_.+J)THPI6:?29%H5J_)I&<):EC>=E3&G7"
^XMB(3.9,23,2,24243,0)="""DATA"",396.18,239,3,1095,0)"
^XMB(3.9,23,2,24244,0)="M1""?'D^R3/=LT@VCSPF'T?U08T6X+F\FCHZ8M_.5707T`S7*""6-GE=/SA9K:8"
^XMB(3.9,23,2,24245,0)="""DATA"",396.18,239,3,1096,0)"
^XMB(3.9,23,2,24246,0)="M+AKFC=S4-\ST&S^=?&B6W7!'.CHB,-#V%V9J.Y^=7TVNR7BQF%U,Q\SN\M?I"
^XMB(3.9,23,2,24247,0)="""DATA"",396.18,239,3,1097,0)"
^XMB(3.9,23,2,24248,0)="M\B-9?IP0$,4V3#&:)5&.T,A,,M-/,KLAGQ:?QE=D=G'QZ;9C,@]S;V/^.JQN"
^XMB(3.9,23,2,24249,0)="""DATA"",396.18,239,3,1098,0)"
^XMB(3.9,23,2,24250,0)="M=V^H&:'PN""T_3A>4(HOQ^929OOZP(-/KVW&.;8TG19I^F_XR74XG""P!I6X9T"
^XMB(3.9,23,2,24251,0)="""DATA"",396.18,239,3,1099,0)"
^XMB(3.9,23,2,24252,0)="M1;`V]LZKL9]/%I^NEM.;#^37V?R_23'K`(*.'H*,88TB2&0?O#*K9I+/^P))"
^XMB(3.9,23,2,24253,0)="""DATA"",396.18,239,3,1100,0)"
^XMB(3.9,23,2,24254,0)="MR@9,`8)H!,;S"">-U^F^%Q/N,^<N%43'CY7AZ]9L`)?F&)6#-5O(OCI^7_2:9"
^XMB(3.9,23,2,24255,0)="""DATA"",396.18,239,3,1101,0)"
^XMB(3.9,23,2,24256,0)="M7'R<S66(F8;>[+9:FZ_'</%Q=GM+V5""""H_DJ'*W7XSCYQV1^,5U(W)),ZU4X"
^XMB(3.9,23,2,24257,0)="""DATA"",396.18,239,3,1102,0)"
^XMB(3.9,23,2,24258,0)="MOGXS(HO;V7PIFVG[-1BZ[NLQG$\NYI.NNY,4CB8=7[\MDN5\_,OD2LZ0SFN0"
^XMB(3.9,23,2,24259,0)="""DATA"",396.18,239,3,1103,0)"
^XMB(3.9,23,2,24260,0)="MM`:O1_+]9'(I1;$-1).._NM1/!_3\U%*1?]5*`Y?C^(EW1H7<AR'K\+1.P`["
^XMB(3.9,23,2,24261,0)="""DATA"",396.18,239,3,1104,0)"
^XMB(3.9,23,2,24262,0)="MSJ97DZ4<2>]52!Y@97^8SV;7<APUUS5S$RB=>GI-[61Q,9^>3T@F3BS:#D.<"
^XMB(3.9,23,2,24263,0)="""DATA"",396.18,239,3,1105,0)"
^XMB(3.9,23,2,24264,0)="MOY`2#>L5:(PO+Z>%Y'(QNV;1MSNH6')4FHH)M[H$=J$UG)CXAL6ETSU=M6_6"
^XMB(3.9,23,2,24265,0)="""DATA"",396.18,239,3,1106,0)"
^XMB(3.9,23,2,24266,0)="MC9\ZDE_C5G)<7V:$]]EV-/5&6,VLXMRR1L>3SWD@`9'*3ARYLI)'!2EF.I5L"
^XMB(3.9,23,2,24267,0)="""DATA"",396.18,239,3,1107,0)"
^XMB(3.9,23,2,24268,0)="M3""5'6JEUK>D$5.0D3UJP@M1:@@9VR\*GBE4*CO!O?S]><,\RQ;O%<3?VH@]G"
^XMB(3.9,23,2,24269,0)="""DATA"",396.18,239,3,1108,0)"
^XMB(3.9,23,2,24270,0)="MN.9[%I*E64G23Z;\,M60'`PD1P7)DL;B?<K%?ER,6#9+[0""W`H[2)7<GQFZ'"
^XMB(3.9,23,2,24271,0)="""DATA"",396.18,239,3,1109,0)"
^XMB(3.9,23,2,24272,0)="MD-T:+3J*NG`477`$ZE3HD*?U*H5]7:F5M_RNTKE'=):NI+:I5=O2JFUKU7:T"
^XMB(3.9,23,2,24273,0)="""DATA"",396.18,239,3,1110,0)"
^XMB(3.9,23,2,24274,0)="M:KM:M3VMVD.MVKY.;2@RL;BV""XX2VLA\[J%+PADEAR*83=:1>:B.K$-U9!^J"
^XMB(3.9,23,2,24275,0)="""DATA"",396.18,239,3,1111,0)"
^XMB(3.9,23,2,24276,0)="M(^=0';F'ZL@[5$?#0W7D'Z@C:W""@CMS^Q,X6#[<SZ[;/CX^A;@]0QI.V8J/C"
^XMB(3.9,23,2,24277,0)="""DATA"",396.18,239,3,1112,0)"
^XMB(3.9,23,2,24278,0)="M9FO)O6PM5-J.L[/1:$0F3\^;^""4SDAL)?_+`0ZW8[0.C*[UVDHB89BM362>R"
^XMB(3.9,23,2,24279,0)="""DATA"",396.18,239,3,1113,0)"
^XMB(3.9,23,2,24280,0)="M?;MCTZS-;C4[;@>V/COCAM>2Z_(""""H*I@L'(X!21;BZI]]C*C:ACR"":U[5-7"
^XMB(3.9,23,2,24281,0)="""DATA"",396.18,239,3,1114,0)"
^XMB(3.9,23,2,24282,0)="M+#$-NO[#3MBP=H1^T[0&0'0QH+N!*>VN""!UNFIZ!`FMZ.+""F*ZU7^NJQ+@W."
^XMB(3.9,23,2,24283,0)="""DATA"",396.18,239,3,1115,0)"
^XMB(3.9,23,2,24284,0)="M^3^5US1E-:NA##5@RZF('#4PY9!L#-')M>45:U^0UO@QE<5AM)I(#(?R?BLR"
^XMB(3.9,23,2,24285,0)="""DATA"",396.18,239,3,1116,0)"
^XMB(3.9,23,2,24286,0)="M@)$GX6#VK+:22I8<+M@"".RA?0=F:#5B_6G4;0>8.3L^Z'@O9E8'TT/4JU`A!"
^XMB(3.9,23,2,24287,0)="""DATA"",396.18,239,3,1117,0)"
^XMB(3.9,23,2,24288,0)="M\*B""EM7F.=+8._D`9/@-D?<QE>R'$F):`QWFM`:8_5+*""LV=""U%7RC;M+5C&"
^XMB(3.9,23,2,24289,0)="""DATA"",396.18,239,3,1118,0)"
^XMB(3.9,23,2,24290,0)="M-I[6,O2T-BOLGJX:+K=5""?>_]EZMZG.@!5]`[E:/RDDQD6O9UYH4_RVFMM=Z"
^XMB(3.9,23,2,24291,0)="""DATA"",396.18,239,3,1119,0)"
^XMB(3.9,23,2,24292,0)="M;8<D[69+>G,92K*5?E_]AV41_HP*-<_>_PTRS6N.S/\/I""/1%MU_._T^Z]JS"
^XMB(3.9,23,2,24293,0)="""DATA"",396.18,239,3,1120,0)"
^XMB(3.9,23,2,24294,0)="M-,#O?BYFR1WX&/TF1]_961,@G96-9R#AO4[^$9__33/HWD>JY`0=?3]`OQ^@"
^XMB(3.9,23,2,24295,0)="""DATA"",396.18,239,3,1121,0)"
^XMB(3.9,23,2,24296,0)="MWP_0[P?H]UG_?H#^C[H[JH_%1MX%89OJ/?Q>WO'@3[AP=Y^F!`/`(2=Y+P9R"
^XMB(3.9,23,2,24297,0)="""DATA"",396.18,239,3,1122,0)"
^XMB(3.9,23,2,24298,0)="M)C6IJ*3/GT<>;H+G81KM%!?_MA.73&P9Z.M.!CJZ$\7+OW@'3<6O7JXM[1/<"
^XMB(3.9,23,2,24299,0)="""DATA"",396.18,239,3,1123,0)"
^XMB(3.9,23,2,24300,0)="M.26<8>EJ$OZ]WLA+CAKA&0KUHCS0>%%6[?7?1.>B.NW_7>6P+L_W80GAHR6?"
^XMB(3.9,23,2,24301,0)="""DATA"",396.18,239,3,1124,0)"
^XMB(3.9,23,2,24302,0)="M0[W'YJ7)8]\Y[+LB\7^#(O$5NV[W,:-/9]^7U?=E]6^RK(3K0LI0'5%7Q7ZM"
^XMB(3.9,23,2,24303,0)="""DATA"",396.18,239,3,1125,0)"
^XMB(3.9,23,2,24304,0)="MX-62`>@)FQUA2HDV'I/#LJ8>II1DUR&+J;8A/SX_OB39;T4TSI\$V)L#&T='"
^XMB(3.9,23,2,24305,0)="""DATA"",396.18,239,3,1126,0)"
^XMB(3.9,23,2,24306,0)="MYQ!T?""5Z,N(Z6L1U7D?<,JQ''>U4/`#DI<@]+'W[8B@CL:M%8E>4(?TU1\];"
^XMB(3.9,23,2,24307,0)="""DATA"",396.18,239,3,1127,0)"
^XMB(3.9,23,2,24308,0)="M(ON-V>_/V4JXS?K3-L18-5@Z@HRE\U3AVT@CQ0'XF@1VB3P5Y)`YRHPT""(.Y"
^XMB(3.9,23,2,24309,0)="""DATA"",396.18,239,3,1128,0)"
^XMB(3.9,23,2,24310,0)="MI`N]6_ZG""0@^R(J)G)1J5K0/2>GN:]W;F%9?YZ&M+H+G8!6E+XU55#@AJH'Y"
^XMB(3.9,23,2,24311,0)="""DATA"",396.18,239,3,1129,0)"
^XMB(3.9,23,2,24312,0)="M4N/P3H^.J[8Y]U6X""SC1@[UNVVS`-)EPZMYJ3FU?Y.&%!#U""0.[ZWG5`RWSO"
^XMB(3.9,23,2,24313,0)="""DATA"",396.18,239,3,1130,0)"
^XMB(3.9,23,2,24314,0)="M;!]!$0]'$=M34<09Z%+$0U'$]I04<;#>B,Z@\5Q$N)?X)FJU`_JTH$K9R7IV"
^XMB(3.9,23,2,24315,0)="""DATA"",396.18,239,3,1131,0)"
^XMB(3.9,23,2,24316,0)="M2V_!_]QG.;`S#]YLG:QGSV17?5X]!MN'S&V#H&$41P8!?DJ?X2KRW""T=6Q*2"
^XMB(3.9,23,2,24317,0)="""DATA"",396.18,239,3,1132,0)"
^XMB(3.9,23,2,24318,0)="MNY`D^UU(TIA$V]5FOPY)0$I1:/8<;:-X>WI\4GHXU[\<+Q]#\L-UL&6]+8MP"
^XMB(3.9,23,2,24319,0)="""DATA"",396.18,239,3,1133,0)"
^XMB(3.9,23,2,24320,0)="M=<D/9)]&&[K.R7V\WZX)_5\16^J'V3.+W41KW&5KE`1I]OTNIG\]E2&GDM4N"
^XMB(3.9,23,2,24321,0)="""DATA"",396.18,239,3,1134,0)"
^XMB(3.9,23,2,24322,0)="M#+=D%6P99ON$$H)B%JS77:RX&'GE\,(J.V4VNP*""CS""T9+UDW;&^\_]\F""UG"
^XMB(3.9,23,2,24323,0)="""DATA"",396.18,239,3,1135,0)"
^XMB(3.9,23,2,24324,0)="ME1=/DL[WVV*+:P5F6WPZG\\^+3/?\&YXLJOQ^>2*=\,Q#*&;S@4+4U>X*+'["
^XMB(3.9,23,2,24325,0)="""DATA"",396.18,239,3,1136,0)"
^XMB(3.9,23,2,24326,0)="M?F[$<%)[(IFY5SGWQ2@<S1MQ`%DW?_L[E/UYO`EW?-KG>9CN=UL03P^%9N5["
^XMB(3.9,23,2,24327,0)="""DATA"",396.18,239,3,1137,0)"
^XMB(3.9,23,2,24328,0)="M;?&X,N3]-O)>A:F@*_;[2</ONRGK-LLZ!YVZUY83.]A[*^:@IP\EFQ:C,U/#"
^XMB(3.9,23,2,24329,0)="""DATA"",396.18,239,3,1138,0)"
^XMB(3.9,23,2,24330,0)="MMYHH<XAG*+,]2T9GWHS<B_[P>$JR0#9(*4NZ>H+(M'K23#>+YKE6/M83,`GK"
^XMB(3.9,23,2,24331,0)="""DATA"",396.18,239,3,1139,0)"
^XMB(3.9,23,2,24332,0)="M""9AY5:__(=A38[UP:5<//Q&6WCQ`$1].P,@+)YU(>#J+W9`L=EM2YO1<HH/."
^XMB(3.9,23,2,24333,0)="""DATA"",396.18,239,3,1140,0)"
^XMB(3.9,23,2,24334,0)="M$K4Z7]SNCNL:!UK(9V<_5S]%=,^'_2;8D8N8GLIU67L.J\.(@B]^'QF5],VD"
^XMB(3.9,23,2,24335,0)="""DATA"",396.18,239,3,1141,0)"
^XMB(3.9,23,2,24336,0)="MBJOX(5J5EX?)URB=_3<]!8UFO-7\F)SF0@`[)0>9?%.*.%!0=IGX40'_$B2U"
^XMB(3.9,23,2,24337,0)="""DATA"",396.18,239,3,1142,0)"
^XMB(3.9,23,2,24338,0)="M6%.),]>32PJME<I0W%VCMZ=P1R4C*J^40HUD$$9',J#`A94)^*,&GM-T)&C?"
^XMB(3.9,23,2,24339,0)="""DATA"",396.18,239,3,1143,0)"
^XMB(3.9,23,2,24340,0)="MZ6WV!Y-JPJ_,T1:/W0""!W<ULV<6PDOE8R,]:PNQ*5$RHHD)8'44F#>X:`3Z;"
^XMB(3.9,23,2,24341,0)="""DATA"",396.18,239,3,1144,0)"
^XMB(3.9,23,2,24342,0)="MOY8R)!73<A'OC:1!I03(:J2/%-],L,O""?B]H%7;MC'?K+(E&+20>=L8X&1&]"
^XMB(3.9,23,2,24343,0)="""DATA"",396.18,239,3,1145,0)"
^XMB(3.9,23,2,24344,0)="M3LJ'""]4RT<6SB2BA'7X)R3;\3&D>).PRS$*D!SF\""O?2`YK2K+%99""/B,!@`"
^XMB(3.9,23,2,24345,0)="""DATA"",396.18,239,3,1146,0)"
^XMB(3.9,23,2,24346,0)="M&VFVOW7<SCL""+;PMMKS1#6EF@4XO10Z1#O""VE""H`WH;NP=DP6V8"":""PZ(A@2"
^XMB(3.9,23,2,24347,0)="""DATA"",396.18,239,3,1147,0)"
^XMB(3.9,23,2,24348,0)="M#7-X6#PZ(A82#T&""[-YX6/W0L%Z%16/]=!Z^_A]02P,$%``""``@`'8L)-3V("
^XMB(3.9,23,2,24349,0)="""DATA"",396.18,239,3,1148,0)"
^XMB(3.9,23,2,24350,0)="M7A0@$```N6T``!T```!""<F%I;E]3<&EN86Q?0V]R9%\Q,3,N<&YL+G)E<+U="
^XMB(3.9,23,2,24351,0)="""DATA"",396.18,239,3,1149,0)"
^XMB(3.9,23,2,24352,0)="MW8_;N!%_#Y#_04`>FA07K""52DAVD*6B)MGDKB:HH[693'(HK[AX""])JBO0+]"
^XMB(3.9,23,2,24353,0)="""DATA"",396.18,239,3,1150,0)"
^XMB(3.9,23,2,24354,0)="M\TM2'Y9ED1KRBN8I*U'D\#?#X7R1SGA9TTJ0EO$J(%4>J+_4_^EG4K)*/W_]"
^XMB(3.9,23,2,24355,0)="""DATA"",396.18,239,3,1151,0)"
^XMB(3.9,23,2,24356,0)="MZM@0UK\6M7Q8!!EO\M>O_@#X]_K5QX^\:^NNY:?3IT_!PT-0\[JK@Q-ORN#/"
^XMB(3.9,23,2,24357,0)="""DATA"",396.18,239,3,1152,0)"
^XMB(3.9,23,2,24358,0)="MNN>_U#_^_>>_13\LVW[\R*J<5L-?;][TC<N??_D6[]2_\,V;Z6E6/Y?-CS]]"
^XMB(3.9,23,2,24359,0)="""DATA"",396.18,239,3,1153,0)"
^XMB(3.9,23,2,24360,0)="M_7;^Y[=__Z-_CS;>1_+]ZU<-?6+T.>""GH*0YR^3L&JKF)RP3-%$:S>BD/WW]"
^XMB(3.9,23,2,24361,0)="""DATA"",396.18,239,3,1154,0)"
^XMB(3.9,23,2,24362,0)="M-1Z'N7NH:/O];_OG3,3'C\N'GSXY=8+6.D&.G?P?X*CDN!"":3$*1O3^Q@@;/"
^XMB(3.9,23,2,24363,0)="""DATA"",396.18,239,3,1155,0)"
^XMB(3.9,23,2,24364,0)="M1'P(I@FO-H;-W22<""X$+GFE#-T9$P*G=KI*,EZ5LH*:C/NZ;8_WI7?.5`>2B"
^XMB(3.9,23,2,24365,0)="""DATA"",396.18,239,3,1156,0)"
^XMB(3.9,23,2,24366,0)="MI7+QCZN55+0([Y?K^M+6C>_:3F32DH?QFS>@*0UMKT3K!S<LJ.[4QNM7(\H7"
^XMB(3.9,23,2,24367,0)="""DATA"",396.18,239,3,1157,0)"
^XMB(3.9,23,2,24368,0)="M)EK>O-PM:Q-M&GZ2,WYN>%>',""+O/@J8""-J+9&Q`1@J4KKEPJ4I;4K`OO>[E"
^XMB(3.9,23,2,24369,0)="""DATA"",396.18,239,3,1158,0)"
^XMB(3.9,23,2,24370,0)="M32""ZYDR;ES\N!.#:V3IG3)B'1GV*%Z!B1:;HRI+TM)&B6-(G>NVO*63T5HZ2"
^XMB(3.9,23,2,24371,0)="""DATA"",396.18,239,3,1159,0)"
^XMB(3.9,23,2,24372,0)="MN1SI[H`B9!:+VXDC'^B1$?JV(5U)@I8'^KN'V9YFQ!XY89^`H0]326;[4M/O"
^XMB(3.9,23,2,24373,0)="""DATA"",396.18,239,3,1160,0)"
^XMB(3.9,23,2,24374,0)="M@H)GUVTX)RV]TFJ%.TQA<""=`M"",?M"",CVA7E=4%$:80V<A/K&(3M[1"")I$XJ"
^XMB(3.9,23,2,24375,0)="""DATA"",396.18,239,3,1161,0)"
^XMB(3.9,23,2,24376,0)="M<T5>T':E7&NEE.QS1:K62%9B4;3)DHM*V*3%E+5!SLBYXD)BH;BGQKIAWG[)"
^XMB(3.9,23,2,24377,0)="""DATA"",396.18,239,3,1162,0)"
^XMB(3.9,23,2,24378,0)="M/`0<1NJP5H$\""L8TSFR_T&U<R-X/PB<FF>O);BAIU7X1O&555G0YJ\ZC=GIG"
^XMB(3.9,23,2,24379,0)="""DATA"",396.18,239,3,1163,0)"
^XMB(3.9,23,2,24380,0)="MG\[>83K);#I20MKKN(LY)0Z=HF6GDL=LD,&69<8Q;'S8+W'3C*`B:UC=*^\9"
^XMB(3.9,23,2,24381,0)="""DATA"",396.18,239,3,1164,0)"
^XMB(3.9,23,2,24382,0)="M9F_%+43A;HE1!%2/,7#!ICX+-C4NV!-]HHUQ6:PIF_41]CYD[<T;)B4YR2Y4"
^XMB(3.9,23,2,24383,0)="""DATA"",396.18,239,3,1165,0)"
^XMB(3.9,23,2,24384,0)="M&$G;.RF2""*9'>'GD1_Y9[9""GAOZIHU7V,C?1QO<6\5GK3TM0UVB%O])=Y-B="
^XMB(3.9,23,2,24385,0)="""DATA"",396.18,239,3,1166,0)"
^XMB(3.9,23,2,24386,0)="MDGJA^,;:->H03.(BH,`=?#A[,'(V9U^^R""4JS)P].'%V[\19O,%9[,B*V,Z*"
^XMB(3.9,23,2,24387,0)="""DATA"",396.18,239,3,1167,0)"
^XMB(3.9,23,2,24388,0)="M&,:*/9`5H9]9:K9+GREYM/(B=#-##V!3*%)K@IQ.-&MI+G=3J5%+UC*U)34!"
^XMB(3.9,23,2,24389,0)="""DATA"",396.18,239,3,1168,0)"
^XMB(3.9,23,2,24390,0)="M5Z0&1""I9N^T9`97K`8JOES44FLVAFC2D>)'[MAE@1X-H!S<V#_\#A,,#</O:"
^XMB(3.9,23,2,24391,0)="""DATA"",396.18,239,3,1169,0)"
^XMB(3.9,23,2,24392,0)="M0;<O+_,^-=OW^8N@0CX7C)A13MTL^AB!44:'>^M@3I(5701$=X4>@RAZH1N:"
^XMB(3.9,23,2,24393,0)="""DATA"",396.18,239,3,1170,0)"
^XMB(3.9,23,2,24394,0)="MT:VZ\FA7$&[(AA%<0^PD59.;-*/%KA)VWA$-`S@[+TAW-IVP+;#AS@U6N,!&"
^XMB(3.9,23,2,24395,0)="""DATA"",396.18,239,3,1171,0)"
^XMB(3.9,23,2,24396,0)="MX0+6.3UV:%W-GF1CLTV`K`)+/_9B%3:R2E#VI6LL1FB(W=B$G8R5=([?G)X5"
^XMB(3.9,23,2,24397,0)="""DATA"",396.18,239,3,1172,0)"
^XMB(3.9,23,2,24398,0)="M+%,@;WA3R/D-EHOR!A?]KK/_^A5P&""TO:!:+G#N7-Q[;,/8[N^@!;=H5@`U,"
^XMB(3.9,23,2,24399,0)="""DATA"",396.18,239,3,1173,0)"
^XMB(3.9,23,2,24400,0)="MC[U$);:$F229C4528C=)2>$+&B\6]$""*'5`,!#2%`IIX`9H8`3T3IN(KIQ/+"
^XMB(3.9,23,2,24401,0)="""DATA"",396.18,239,3,1174,0)"
^XMB(3.9,23,2,24402,0)="MNJ*UQ$D3)V#QP<T3W-)A(5"")8;`-ZN7@AV8/OV%GEC,;@JF;:.[AHAG?&T<C"
^XMB(3.9,23,2,24403,0)="""DATA"",396.18,239,3,1175,0)"
^XMB(3.9,23,2,24404,0)="M.7;Q!#I.(=AS\HI/A.8`A7@F1<&?M3H#""*E;M"")T$]*]CD>VMV&NZ:7CIGVP"
^XMB(3.9,23,2,24405,0)="""DATA"",396.18,239,3,1176,0)"
^XMB(3.9,23,2,24406,0)="M>[10?^#@$;B-;X58U*P98N1""\(P1Y<<\L_:B#.SZ0LZ,&`&/W60:F]VJ9&WS"
^XMB(3.9,23,2,24407,0)="""DATA"",396.18,239,3,1177,0)"
^XMB(3.9,23,2,24408,0)="M5""IW1M2,U+FN6(^<7CL!:@ZH:X6\H@/('!U@94U8HT/#\J\C?Z9%<.JJ3$W4"
^XMB(3.9,23,2,24409,0)="""DATA"",396.18,239,3,1178,0)"
^XMB(3.9,23,2,24410,0)="MG#MQBQA$.P]!N;'8I(-+BD!:%US'?JN,&FG#P-#R0I;4<#7)1:!XRQIJ3AS%"
^XMB(3.9,23,2,24411,0)="""DATA"",396.18,239,3,1179,0)"
^XMB(3.9,23,2,24412,0)="MX!'&[>,PK=T^&JOF4E#R2,YT;;<Y./:OG2C;_J7\)8^5.F>`!%ZTK""96L8A="
^XMB(3.9,23,2,24413,0)="""DATA"",396.18,239,3,1180,0)"
^XMB(3.9,23,2,24414,0)="M@=DMC=_Y,&O06"":RNH;U""""4E0EF^045I3O/M1;OJF)E2!U%RO__UD9=Q7'OR"
^XMB(3.9,23,2,24415,0)="""DATA"",396.18,239,3,1181,0)"
^XMB(3.9,23,2,24416,0)="M(`(:%Q%817AY2`AOJ`BI`H\%R7,YL6W]X.8R1;#$]L2?_<RM&6FZZK%M!V?O"
^XMB(3.9,23,2,24417,0)="""DATA"",396.18,239,3,1182,0)"
^XMB(3.9,23,2,24418,0)="MPM[4Q%X@!?<,3QUW:QW;?;Z0]BK)TIV?*ZKU^5Z_=YAOG/XV<8Z!N>L(7""K@"
^XMB(3.9,23,2,24419,0)="""DATA"",396.18,239,3,1183,0)"
^XMB(3.9,23,2,24420,0)="MY<4ALQ=WDMKE3(ZLL-G+R,V5BT,WCV._Y7'L@4%#*(JA5X8G/&PK!5'2HC`;"
^XMB(3.9,23,2,24421,0)="""DATA"",396.18,239,3,1184,0)"
^XMB(3.9,23,2,24422,0)="MQ0=P=C'R""L)%NVT26R):L\&P&DTT2)67`XP22Z)L=""N""HTHW7Z2O899)-R\X"
^XMB(3.9,23,2,24423,0)="""DATA"",396.18,239,3,1185,0)"
^XMB(3.9,23,2,24424,0)="M<@C#[N\7_43/C$B[/P>4V0@:E46IKN9TAMOL)C\Q70E;-_Q8T-(<R$%NGD7D"
^XMB(3.9,23,2,24425,0)="""DATA"",396.18,239,3,1186,0)"
^XMB(3.9,23,2,24426,0)="M$)E=226,Y-C1!3IE$320BKR\963VEEDE>%E9_#7DYB#'.S>=FF[I5.#.%(,-"
^XMB(3.9,23,2,24427,0)="""DATA"",396.18,239,3,1187,0)"
^XMB(3.9,23,2,24428,0)="M+2^=BLPZ5;HV%6L[BURZI<TCMU""TSG%:$02F8B-HA!9[J7QL5OFBIC2[;""]P"
^XMB(3.9,23,2,24429,0)="""DATA"",396.18,239,3,1188,0)"
^XMB(3.9,23,2,24430,0)="M#-?YB9<YG9C-:;6:Y?\*+F99VHR?)>O9$]VF/7$SKC$\RARO5$'-PD1FY10#"
^XMB(3.9,23,2,24431,0)="""DATA"",396.18,239,3,1189,0)"
^XMB(3.9,23,2,24432,0)="M!0-#(\W8*\R!S6&.3#XY-OR)""+F1D28@6<949V8)<0QQQ&XN3#AS849:MAT7"
^XMB(3.9,23,2,24433,0)="""DATA"",396.18,239,3,1190,0)"
^XMB(3.9,23,2,24434,0)="M:').E;]IKT%E819E<2&PEC>""%JMAKX(*;""ZH($+(/]1:R.D3RR;'7:$>/)/B"
^XMB(3.9,23,2,24435,0)="""DATA"",396.18,239,3,1191,0)"
^XMB(3.9,23,2,24436,0)="MT68D8;=:BRAQXUOO[""NJWHIW02<6X815KD$=?&@Y;[*R.&Z6,8)7WZNV@PH2"
^XMB(3.9,23,2,24437,0)="""DATA"",396.18,239,3,1192,0)"
^XMB(3.9,23,2,24438,0)="M+V7=\M)RHD""WUY/9J,^O+R]""%^BK,T>+ZGP;Y6@'IURUO;-9:<7.NO)^J@:>"
^XMB(3.9,23,2,24439,0)="""DATA"",396.18,239,3,1193,0)"
^XMB(3.9,23,2,24440,0)="MJI6EORQ8WI%""E\8^R#:L%3?%H^99HY6XTPTMH0/=X8J2K6G&I(T]158D=""5O"
^XMB(3.9,23,2,24441,0)="""DATA"",396.18,239,3,1194,0)"
^XMB(3.9,23,2,24442,0)="M>;,(STZ5/O=%/7<DAV:2%RO&JYX$#_4D92>R@@92#FA0R=5%S+X@=BLCB>`;"
^XMB(3.9,23,2,24443,0)="""DATA"",396.18,239,3,1195,0)"
^XMB(3.9,23,2,24444,0)="M%UK9N,BQ)V=.H;U0!VK=@#<Q+\L!XQM@2=MPN9RD64""%=;]R#+G!$WS:W)J="
^XMB(3.9,23,2,24445,0)="""DATA"",396.18,239,3,1196,0)"
^XMB(3.9,23,2,24446,0)="M);DES'YN!%BH8Z%F#M3<9]_MM""NU_DKK!L.KR/P*F5]A\ZO8_""HQOTK-K_;F"
^XMB(3.9,23,2,24447,0)="""DATA"",396.18,239,3,1197,0)"
^XMB(3.9,23,2,24448,0)="M5^8I8_.4L7G*^.Y`Y?QU>#/ME=?SJ:OS9JK+.%I[J'5,3FD=M)+Y<H4V]%30"
^XMB(3.9,23,2,24449,0)="""DATA"",396.18,239,3,1198,0)"
^XMB(3.9,23,2,24450,0)="MSU2\?O5^Y1]$-MVDX2BW[%H$;[/X?9:\@R015OHOZ&F>?EVV`*8_5JAKV/EB"
^XMB(3.9,23,2,24451,0)="""DATA"",396.18,239,3,1199,0)"
^XMB(3.9,23,2,24452,0)="M[AGM@';?XK/0O@K:9L0D>9_M/3#1`U@Q0:$?)M$V)I$?)AMK7+[(+HRK-]*"""
^XMB(3.9,23,2,24453,0)="""DATA"",396.18,239,3,1200,0)"
^XMB(3.9,23,2,24454,0)="M^`WRH@>R8X/\L,';V&!8OL]-D9VDV2W-Q.]I\RAAV;]O0Q]8XDU88C]8DFU8"
^XMB(3.9,23,2,24455,0)="""DATA"",396.18,239,3,1201,0)"
^XMB(3.9,23,2,24456,0)="M$I\T*%0/DF/.2WWL\&VKP(G>N6>AI[$6""*VU\DIS3]0ND5IKYB5$&_O:HW3E"
^XMB(3.9,23,2,24457,0)="""DATA"",396.18,239,3,1202,0)"
^XMB(3.9,23,2,24458,0)="M!A$JT/L""^XA0NBE""J9\([;=%:.^G=3;V;5(]%B,LPFM9;>Y.R&]WPMN[$_;;"
^XMB(3.9,23,2,24459,0)="""DATA"",396.18,239,3,1203,0)"
^XMB(3.9,23,2,24460,0)="MG;:L$NFT52UI!D,A>'LD1U:)1_;.Q<H]_.`QY6@+2VRY)&""_.+$_F43:R?Y@"
^XMB(3.9,23,2,24461,0)="""DATA"",396.18,239,3,1204,0)"
^XMB(3.9,23,2,24462,0)="MRIQ.+6$%#BMX;3`).9*,P""2O]+QFXD-K([%7;:3Z2F?%AWHAV5YN5P)\>`2["
^XMB(3.9,23,2,24463,0)="""DATA"",396.18,239,3,1205,0)"
^XMB(3.9,23,2,24464,0)="M97P0_""B^-@2\#X\`:Z(1-`^,O;(^ZBL#ND,ALHJYG(C(5)ZPOU[`#+5;&@C!"
^XMB(3.9,23,2,24465,0)="""DATA"",396.18,239,3,1206,0)"
^XMB(3.9,23,2,24466,0)="MTYAH7B7]<'^<5Q'Z<$NE'7U@]1Z""9C2Q5\8(#QDC72V]%6-QRQ`AY':R$LW"""
^XMB(3.9,23,2,24467,0)="""DATA"",396.18,239,3,1207,0)"
^XMB(3.9,23,2,24468,0)="MUHJ<M=.5R.&\.HI-U29ZLF,,1Q]ILQY31\!B8@1-C\9>J:EX2$T=B=R]LLV("
^XMB(3.9,23,2,24469,0)="""DATA"",396.18,239,3,1208,0)"
^XMB(3.9,23,2,24470,0)="M6.QV`@AA^%)(+!&Q@3J[[`.CU@B:ZXN]T@1ZZUS7/*0EGQGY3E>%\B8?KK;2"
^XMB(3.9,23,2,24471,0)="""DATA"",396.18,239,3,1209,0)"
^XMB(3.9,23,2,24472,0)="MUZ[4^F8`6WU/[)8F0#$<^94""JI[4AUM*'ZYDVCD!S%LC:,(F]@KX:HM@G1-#"
^XMB(3.9,23,2,24473,0)="""DATA"",396.18,239,3,1210,0)"
^XMB(3.9,23,2,24474,0)="MUO4:JS;#[A8""1HG#E408OCKB9*;'`)6#_3?`'""=VRRA%LUK\53""W$TS`P#4"""
^XMB(3.9,23,2,24475,0)="""DATA"",396.18,239,3,1211,0)"
^XMB(3.9,23,2,24476,0)="M)YB\2NZ2FY([^J1RFEF?X%1I(ND<9T%%FR?>B4""\B):64ZY;?D/:X$*>:/6["
^XMB(3.9,23,2,24477,0)="""DATA"",396.18,239,3,1212,0)"
^XMB(3.9,23,2,24478,0)="M-CA26@4DSQLJA*4..W$KT</PB+<N!O<ITHFAY?[0(RW8J^`,#P5G@E9""Y53'"
^XMB(3.9,23,2,24479,0)="""DATA"",396.18,239,3,1213,0)"
^XMB(3.9,23,2,24480,0)="MK)+FA>8!56I2M^TO])%/Q)1=,AL7CL>PX$HS6>081LI5_M""*>`+,,&""P<O22"
^XMB(3.9,23,2,24481,0)="""DATA"",396.18,239,3,1214,0)"
^XMB(3.9,23,2,24482,0)="M_=@H^_V)""HAJ=!-GM/<X4Y$.YLEP^&`@U$Q3""G7M%RM3GR]J2=L-V\-%[GPM"
^XMB(3.9,23,2,24483,0)="""DATA"",396.18,239,3,1215,0)"
^XMB(3.9,23,2,24484,0)="M;8SQI@18W(:@ZR;V6C=Q8N3B78VWF8]NBP3Y'*)*PU4^&O%-0W""Y4QJ9,)`&"
^XMB(3.9,23,2,24485,0)="""DATA"",396.18,239,3,1216,0)"
^XMB(3.9,23,2,24486,0)="M?EVP;+@\S@V4U.42*[16C6HOLK]S!X""UJ`@:E8B]_.9X;P2S(163IGBOC""%B"
^XMB(3.9,23,2,24487,0)="""DATA"",396.18,239,3,1217,0)"
^XMB(3.9,23,2,24488,0)="MY>8U8X>[`E>2YU>""EI=?W:5XH:5?T`A%XN5X)3NSV(Z5=7++J\5+=F%$9;X@"
^XMB(3.9,23,2,24489,0)="""DATA"",396.18,239,3,1218,0)"
^XMB(3.9,23,2,24490,0)="MH""=N_AF&UP%CO`FZ!7.HF0%V=KWB$O'!A'E?V]AOX_VEAZH""7[MFUM,""L5OT"
^XMB(3.9,23,2,24491,0)="""DATA"",396.18,239,3,1219,0)"
^XMB(3.9,23,2,24492,0)="M`L-#0W@E""J>HM,LV,/J&H?&?Q$N+)$8M4K""2M=.=`""6?0BB5!KODLOWWG%6M"
^XMB(3.9,23,2,24493,0)="""DATA"",396.18,239,3,1220,0)"
^XMB(3.9,23,2,24494,0)="MI9IT;]D:-`@.=[FJMF,U&9/+[B2WBZJ=?$5KP1*.(95E+17M>(VSE>K4@6KE"
^XMB(3.9,23,2,24495,0)="""DATA"",396.18,239,3,1221,0)"
^XMB(3.9,23,2,24496,0)="ML8O'KBB""S^\;\J+.@(JN:#?H3>TU85#3?6RK+^*F3A0D&Q3L'2C0N:]^T/'"""
^XMB(3.9,23,2,24497,0)="""DATA"",396.18,239,3,1222,0)"
^XMB(3.9,23,2,24498,0)="MV.%""2G7'HKI,,BM8I8OZ-`_LE.VAQ6>Q5Z%OK$_$Z<+18J!G(KZ_@H3F<A'H"
^XMB(3.9,23,2,24499,0)="""DATA"",396.18,239,3,1223,0)"
^XMB(3.9,23,2,24500,0)="MVT%GUY[+-C5O+'ML""!'!Z9[.66&C_9YSRPWID:4`-;K+RT01,M^0KEX?L#XR"
^XMB(3.9,23,2,24501,0)="""DATA"",396.18,239,3,1224,0)"
^XMB(3.9,23,2,24502,0)="M0Z6EQE]TU>!T1;)?D<W-N)WH)/MYEG73""5V#\IR^<O$?[F<BE=X3E8X#J8*L"
^XMB(3.9,23,2,24503,0)="""DATA"",396.18,239,3,1225,0)"
^XMB(3.9,23,2,24504,0)="M:QKY42%]0CVY>S=U\3G4X!Q)50;$,(AIBONU*8)=I&^__/7;\=M_U$?AO/S["
^XMB(3.9,23,2,24505,0)="""DATA"",396.18,239,3,1226,0)"
^XMB(3.9,23,2,24506,0)="MRJRY_7[3&IKKGW\TOX]2VT'#W+:'BWR&4_""UK*1J5Y4:O^%E\,R;1T6"".D.F"
^XMB(3.9,23,2,24507,0)="""DATA"",396.18,239,3,1227,0)"
^XMB(3.9,23,2,24508,0)="MKP$*H_<EK]I+4-.&\=PT/OCT]<`""79J5D4[HFFQ]CN:>#E:9:+#F-U7OT.N0"
^XMB(3.9,23,2,24509,0)="""DATA"",396.18,239,3,1228,0)"
^XMB(3.9,23,2,24510,0)="MQ@_2:1.\RM'ULG*Y,ZK=.V<BNY#FW%M%^I&FSQ[QF(;P7U>[VW75T';MMH/%"
^XMB(3.9,23,2,24511,0)="""DATA"",396.18,239,3,1229,0)"
^XMB(3.9,23,2,24512,0)="M-]#K>G_Z^FNTV_40C#=`]2,L+^B=6@*[YDWQ]5^_SH5;<_QN`./1_OG7K@(6"
^XMB(3.9,23,2,24513,0)="""DATA"",396.18,239,3,1230,0)"
^XMB(3.9,23,2,24514,0)="M7V_V?YAJVU<C@NLB%+L.J.R!N:_B,%;B.M;U!,`6HNL#(G]91+>RV%6C;@^."
^XMB(3.9,23,2,24515,0)="""DATA"",396.18,239,3,1231,0)"
^XMB(3.9,23,2,24516,0)="MG4IUMC#Q1,X*:]<KC37].!)AU)""[""%SI.6&D:_8H$2IR<I:^:*7/LBR&LF\T"
^XMB(3.9,23,2,24517,0)="""DATA"",396.18,239,3,1232,0)"
^XMB(3.9,23,2,24518,0)="MD-N\C"";%G""""H7=HWG4=E1RG\;G8GNK(,9Z<6J(XABP_FWZ1(''Y@X^JEF.N4"
^XMB(3.9,23,2,24519,0)="""DATA"",396.18,239,3,1233,0)"
^XMB(3.9,23,2,24520,0)="MDYMZ8V5\'A8/^E1N1FJB<FWJ5P)*4JFPF?1+2)6I,`PYG:3K+8+U:N0MP\D0"
^XMB(3.9,23,2,24521,0)="""DATA"",396.18,239,3,1234,0)"
^XMB(3.9,23,2,24522,0)="MA;<X3MCZ59!SVE]M/ZZ,QXH_ZP>DY%U_%D1N)P]JT1YI14^L#6KR8HUEX!AJ"
^XMB(3.9,23,2,24523,0)="""DATA"",396.18,239,3,1235,0)"
^XMB(3.9,23,2,24524,0)="MDR>A#^%)N$9XW71Y;[9=I*04=""33XI""""#ZXDD1>=D2/`VER0$SBRHK""0'<%/"
^XMB(3.9,23,2,24525,0)="""DATA"",396.18,239,3,1236,0)"
^XMB(3.9,23,2,24526,0)="ME""(ONM$JOK01:N%=`9;DTI?^AY_()M$('A=.?(A.=1D""#UYX)P6U8/2)WI`O"
^XMB(3.9,23,2,24527,0)="""DATA"",396.18,239,3,1237,0)"
^XMB(3.9,23,2,24528,0)="M%8A:EU*KZ`""&6I;*6AQG=;]""S1%FEU]WP/V-3$1J7VTS2I4@NEKYANH&(ND_"
^XMB(3.9,23,2,24529,0)="""DATA"",396.18,239,3,1238,0)"
^XMB(3.9,23,2,24530,0)="M""JOIKWN`2FF:>@&7W@-'`GT96:$-6G6SLQ!4"".WE,75&,I-_*4TM9R-W,A4M"
^XMB(3.9,23,2,24531,0)="""DATA"",396.18,239,3,1239,0)"
^XMB(3.9,23,2,24532,0)="MEPCS6GKMEJMZTA16<3@J4@F;JLP<+D)3MJN!I@]F\.*-XW0.$:<8]%-(JN$&"
^XMB(3.9,23,2,24533,0)="""DATA"",396.18,239,3,1240,0)"
^XMB(3.9,23,2,24534,0)="MOR:+(G6)T=U\I7^0A$P_`34@K^_IH:*U&#&I#I?\%U!+`0(4`!0``@`(`!V+"
^XMB(3.9,23,2,24535,0)="""DATA"",396.18,239,3,1241,0)"
^XMB(3.9,23,2,24536,0)="M""37R+ABRNDL``""#-`0`9``````````$`(`````````!""<F%I;E]3<&EN86Q?"
^XMB(3.9,23,2,24537,0)="""DATA"",396.18,239,3,1242,0)"
^XMB(3.9,23,2,24538,0)="M0V]R9%\Q,3,N<&YL4$L!`A0`%``""``@`(XL)-9Y1W;_140``)`H#`!T`````"
^XMB(3.9,23,2,24539,0)="""DATA"",396.18,239,3,1243,0)"
^XMB(3.9,23,2,24540,0)="M`````0`@````\4L``$)R86EN7U-P:6YA;%]#;W)D7S$Q,RYP;FPN9G)M4$L!"
^XMB(3.9,23,2,24541,0)="""DATA"",396.18,239,3,1244,0)"
^XMB(3.9,23,2,24542,0)="M`A0`%``""``@`'8L)-?D,I>DJ*P``OU,!`!T``````````0`@````_9T``$)R"
^XMB(3.9,23,2,24543,0)="""DATA"",396.18,239,3,1245,0)"
^XMB(3.9,23,2,24544,0)="M86EN7U-P:6YA;%]#;W)D7S$Q,RYP;FPN8V1E4$L!`A0`%``""``@`'8L)-3V("
^XMB(3.9,23,2,24545,0)="""DATA"",396.18,239,3,1246,0)"
^XMB(3.9,23,2,24546,0)="M7A0@$```N6T``!T``````````0`@````8LD``$)R86EN7U-P:6YA;%]#;W)D"
^XMB(3.9,23,2,24547,0)="""DATA"",396.18,239,3,1247,0)"
^XMB(3.9,23,2,24548,0)="B7S$Q,RYP;FPN<F5P4$L%!@`````$``0`*`$``+W9````````"
^XMB(3.9,23,2,24549,0)="""DATA"",396.18,239,3,1248,0)"
^XMB(3.9,23,2,24550,0)="end"
^XMB(3.9,23,2,24551,0)="""DATA"",396.18,239,4)"
^XMB(3.9,23,2,24552,0)="9^1434194725"
^XMB(3.9,23,2,24553,0)="""DATA"",396.18,239,6)"
^XMB(3.9,23,2,24554,0)="1^806"
^XMB(3.9,23,2,24555,0)="""DATA"",396.18,243,0)"
^XMB(3.9,23,2,24556,0)="BONES (FRACTURES AND BONE DISEASE)~113F"
^XMB(3.9,23,2,24557,0)="""DATA"",396.18,243,1,0)"
^XMB(3.9,23,2,24558,0)="^^2^2^3060915^"
^XMB(3.9,23,2,24559,0)="""DATA"",396.18,243,1,1,0)"
^XMB(3.9,23,2,24560,0)="Last updated on 08/10/2006 ~113"
^XMB(3.9,23,2,24561,0)="""DATA"",396.18,243,1,2,0)"
^XMB(3.9,23,2,24562,0)="Patch DVBA*2.7*113"
^XMB(3.9,23,2,24563,0)="""DATA"",396.18,243,2)"
^XMB(3.9,23,2,24564,0)="3060616^^3060810.1423"
^XMB(3.9,23,2,24565,0)="""DATA"",396.18,243,3,0)"
^XMB(3.9,23,2,24566,0)="^396.184^919^919^3060915^^^^"
^XMB(3.9,23,2,24567,0)="""DATA"",396.18,243,3,1,0)"
^XMB(3.9,23,2,24568,0)="begin 664 bones_113.pnl.zip"
^XMB(3.9,23,2,24569,0)="""DATA"",396.18,243,3,2,0)"
^XMB(3.9,23,2,24570,0)="M4$L#!!0``@`(`.=J""C7$YY1""QS8``'XX`0`-````0F]N97-?,3$S+G!N;-Q="
^XMB(3.9,23,2,24571,0)="""DATA"",396.18,243,3,3,0)"
^XMB(3.9,23,2,24572,0)="M?8Q<UU5_,[/[=O;#]CJ.G<1QDA?3V&MW;<_WAZ$Q^VD[V?5N=\=94E+2MS-W"
^XMB(3.9,23,2,24573,0)="""DATA"",396.18,243,3,4,0)"
^XMB(3.9,23,2,24574,0)="M9E_]YKWI>V]V/5$C-4U1&E%50%$I!?Z!$@1%JE(IT""):*`(D$$6M""D@(""5$J"
^XMB(3.9,23,2,24575,0)="""DATA"",396.18,243,3,5,0)"
^XMB(3.9,23,2,24576,0)="M/AH$$:(50GS>SS?WSKOOS>[:B7?7?WAG[KPYY_[N/>?<<\X]]TYE>3ZE5I9U"
^XMB(3.9,23,2,24577,0)="""DATA"",396.18,243,3,6,0)"
^XMB(3.9,23,2,24578,0)="M""YA';[?0GVG=!3.VY3FV.;``ZEY<253L5GQ\<,VH>1N)[\75:\!H;'B)+\9&"
^XMB(3.9,23,2,24579,0)="""DATA"",396.18,243,3,7,0)"
^XMB(3.9,23,2,24580,0)="MIL$F,)?:'G""&U/7-&[8%CL.ONIZC&Y;G7ES4;_O/WM_S`:,F?L&P0KY@6.P+"
^XMB(3.9,23,2,24581,0)="""DATA"",396.18,243,3,8,0)"
^XMB(3.9,23,2,24582,0)="MP\MVJ]U:!%9[Z/Y%^.F\[30OWO8;T\F*OK[DU(`35Q2E@N$MZ.O`/(+_KW1:"
^XMB(3.9,23,2,24583,0)="""DATA"",396.18,243,3,9,0)"
^XMB(3.9,23,2,24584,0)="M8*F.OH/!)4K_A]$E"";KX60HN?FAH1F]YAFVI@XMS*U?G!%*C^']$Y/JL0.9!"
^XMB(3.9,23,2,24585,0)="""DATA"",396.18,243,3,10,0)"
^XMB(3.9,23,2,24586,0)="M2N8)""9GII1MSJP*90[CI>?RZ7""""#/8KH)#ZE4$+%(*'111O]U3R(9&P>3M3%"
^XMB(3.9,23,2,24587,0)="""DATA"",396.18,243,3,11,0)"
^XMB(3.9,23,2,24588,0)="MF0W=<8$W=&1V;G[JYD+E^9EK4RNK<Y41\JEMVL[04-6<-O7JK5'<1HE^?QB_"
^XMB(3.9,23,2,24589,0)="""DATA"",396.18,243,3,12,0)"
^XMB(3.9,23,2,24590,0)="MNZ$W@7IH<55;U2U76P6.42=?7?4Z)AA51I9U!U@>:DHR`%ABQ@@`_+I(^E_D"
^XMB(3.9,23,2,24591,0)="""DATA"",396.18,243,3,13,0)"
^XMB(3.9,23,2,24592,0)="MAS.1]87E5V(#U^!,JH/+2\LWEXG@7+<L*#C)]<T5W7!!;73:1M.&F<)6=]6P"
^XMB(3.9,23,2,24593,0)="""DATA"",396.18,243,3,14,0)"
^XMB(3.9,23,2,24594,0)="M&B88)/U/5LU5P]P$SCL/F1<HR<QE<T0$/DWT9)!""_UN%3=VX/W6/34,-<2]K"
^XMB(3.9,23,2,24595,0)="""DATA"",396.18,243,3,15,0)"
^XMB(3.9,23,2,24596,0)="MRXZ];H*FMMH""5:-N5+5KANO93N<.L?W[MK""I=7?:-FL]LTJ!C7'`,@37!V)8"
^XMB(3.9,23,2,24597,0)="""DATA"",396.18,243,3,16,0)"
^XMB(3.9,23,2,24598,0)="M)%^,49&\Q7""=]'%-GH>0@`N9M=>;AJ=YMJ;7:AJD[AC`16^]#0`_;#9UIY-<"
^XMB(3.9,23,2,24599,0)="""DATA"",396.18,243,3,17,0)"
^XMB(3.9,23,2,24600,0)="M@].\YNBM8449JDRW/<^V#A.VY$VZ1!C_H2(R/LT8/]15JAD3Z$YW@A)#2]:,"
^XMB(3.9,23,2,24601,0)="""DATA"",396.18,243,3,18,0)"
^XMB(3.9,23,2,24602,0)="M:51O#1V[38A=!5#&C""IN#.-7)OS&>X`^'>2G$H!=AK'=,,RD""</?4OHRA`!M"
^XMB(3.9,23,2,24603,0)="""DATA"",396.18,243,3,19,0)"
^XMB(3.9,23,2,24604,0)="M%]Q+F8_W03A26:W""I<*<MF^/$Y#^>R)`\6&L%P]3O7C$-PG/Q4Y<LYT7Z..Z"
^XMB(3.9,23,2,24605,0)="""DATA"",396.18,243,3,20,0)"
^XMB(3.9,23,2,24606,0)="M<['BP)Y#I1\^]@QPO&[[BFXU0.)R_(38[#\^,M7V;-+>5UGSI$_'<9_R=.""M"
^XMB(3.9,23,2,24607,0)="""DATA"",396.18,243,3,21,0)"
^XMB(3.9,23,2,24608,0)="MH)5]@.GH.H`LM!KP=,,$M<OWPN+*<!1Y'%4ZMM^*!8$T*D3[P&T/4M1:MNL:"
^XMB(3.9,23,2,24609,0)="""DATA"",396.18,243,3,22,0)"
^XMB(3.9,23,2,24610,0)="M$-@DA.16'6,=X$^KAE-M-UU/MZI0876KIAF6X1FZJ35URZ@#^`FBYFIV'3]?"
^XMB(3.9,23,2,24611,0)="""DATA"",396.18,243,3,23,0)"
^XMB(3.9,23,2,24612,0)="M@P8;^@F:[<`'/]AV.I=YM99UF""KUV9@P\C/!#A^>U3V`^$!VP+O3`?_>71KP"
^XMB(3.9,23,2,24613,0)="""DATA"",396.18,243,3,24,0)"
^XMB(3.9,23,2,24614,0)="M7(H;\,3OLO7Y_<'^'YNQV[""OFFO`L;P[(.Z6U.2R/(A_9'9G.0CBR!*<94>K"
^XMB(3.9,23,2,24615,0)="""DATA"",396.18,243,3,25,0)"
^XMB(3.9,23,2,24616,0)="MVLTFI.A>EL\I-9P_KPB#DO@U)4CPS$S;09W3/`?H'B:JU:'T>!N&""]E8-0,]"
^XMB(3.9,23,2,24617,0)="""DATA"",396.18,243,3,26,0)"
^XMB(3.9,23,2,24618,0)="M=@\&JH_<YM+\D+U&ARSQ#0G$""[-,HURC!A6N7@=5A-*QFUJU%_WEH3E+AWI8"
^XMB(3.9,23,2,24619,0)="""DATA"",396.18,243,3,27,0)"
^XMB(3.9,23,2,24620,0)="MZ]L!WF(E'F0=^'%)!T[Y'0BP<R/Y'>97?>:)$H9K3$ATB:17&'D-KOXM).I="
^XMB(3.9,23,2,24621,0)="""DATA"",396.18,243,3,28,0)"
^XMB(3.9,23,2,24622,0)="M-B'$B=U*O$)$YMG`TA<0P>U2+M*)&L3VY7Y*=SA(-YZ^>`_54>QSAN_SU8@^"
^XMB(3.9,23,2,24623,0)="""DATA"",396.18,243,3,29,0)"
^XMB(3.9,23,2,24624,0)="M9_9.GXD-@9+8M]/9>]+IP<H<-"":CI,_H);529TB'9ZD""?=-7H.,T,DFG,JD4"
^XMB(3.9,23,2,24625,0)="""DATA"",396.18,243,3,30,0)"
^XMB(3.9,23,2,24626,0)="MY_@@4HN@:5-2Z*6PZGJ4TG?\5??)+J5T\2XN7*-H23&@,MP`6P+R0PL&#""C@"
^XMB(3.9,23,2,24627,0)="""DATA"",396.18,243,3,31,0)"
^XMB(3.9,23,2,24628,0)="M.P<Z*6Y,582Q&/%])7=HQ'61]V14=9-SEQ4E65F`L0=TUM@DDW<9W@;\&3/L"
^XMB(3.9,23,2,24629,0)="""DATA"",396.18,243,3,32,0)"
^XMB(3.9,23,2,24630,0)="M'_'';)Y#FC\\AWR+&JBM`A.:O.3(=0\TF3@<0F^X+JJK'E)C]1ATL!HH:#!@"
^XMB(3.9,23,2,24631,0)="""DATA"",396.18,243,3,33,0)"
^XMB(3.9,23,2,24632,0)="M)-C1MFPX3.KP]6;+L3=!35-/7K<\X$!G&[LM6Y>@(6@:\&EH""]1!;!J4T<6V"
^XMB(3.9,23,2,24633,0)="""DATA"",396.18,243,3,34,0)"
^XMB(3.9,23,2,24634,0)="MZ1F$Z7`7U4`H*BJZGU5$6)_W8<UU865*.X(U@)(?ZL@BJ,$AQN*?7&T[#33>"
^XMB(3.9,23,2,24635,0)="""DATA"",396.18,243,3,35,0)"
^XMB(3.9,23,2,24636,0)="ML+N52\L5];Y9B`1Z5'JK9;*'CBZUO19\B3#:MSL-8*D#,\M3R^H8\FXW@`WC"
^XMB(3.9,23,2,24637,0)="""DATA"",396.18,243,3,36,0)"
^XMB(3.9,23,2,24638,0)="MPF:G#^!!13E2F5E>6US1:X9]U;';K1,$M]B8I1'=-1+H?(WA_Y*/7^OBSZ9&"
^XMB(3.9,23,2,24639,0)="""DATA"",396.18,243,3,37,0)"
^XMB(3.9,23,2,24640,0)="M5C?L+1*3)\>>:KN>4>]@U,-#Z,^R7N-""VW>M]E_SK@Q!>6\W+1<&%<R8]XYC"
^XMB(3.9,23,2,24641,0)="""DATA"",396.18,243,3,38,0)"
^XMB(3.9,23,2,24642,0)="MXEG@JO$;MM*%IS)%'.LJ8EI8EL_&`JIX@2&!_\H^MWV@DT,2LR.`?2,*;*J\"
^XMB(3.9,23,2,24643,0)="""DATA"",396.18,243,3,39,0)"
^XMB(3.9,23,2,24644,0)="MK\"".H/AQ:86J)XT?_?>""(P*8JU!CJ,L,=::<2_FH=Z:U5VV[I@[,ZX:C#BS;"
^XMB(3.9,23,2,24645,0)="""DATA"",396.18,243,3,40,0)"
^XMB(3.9,23,2,24646,0)="MML,T[3!!@30`,4DFNZ_\SB?'$+6*T?(S5&N&5;.WD@NVU4`0DA+!93I(':`&"
^XMB(3.9,23,2,24647,0)="""DATA"",396.18,243,3,41,0)"
^XMB(3.9,23,2,24648,0)="MFTPG)H.5?D<G<T=3![W'X<J,W5RWX4P=H>:&OBWSRV3$@EO(Y<N#?J_7-@P/"
^XMB(3.9,23,2,24649,0)="""DATA"",396.18,243,3,42,0)"
^XMB(3.9,23,2,24650,0)="M""-/%Y5EZ9TY10I(K):HL1S'S8<K\99_Y6=]D'47.@9^+0Q-V3W.+N\DDE3*"""
^XMB(3.9,23,2,24651,0)="""DATA"",396.18,243,3,43,0)"
^XMB(3.9,23,2,24652,0)="M;Q.%=NPZRJ:WJSB,[[(=Z\,V8(M*O%)^/VB+\IQGD-T')FA4482<]B$NITU3"
^XMB(3.9,23,2,24653,0)="""DATA"",396.18,243,3,44,0)"
^XMB(3.9,23,2,24654,0)="MN_$Q/+I/4:Q?]S-8Y6TGM8GIBN_]%'=,YO1GT\04)_Y5$=+[WY7DN!^E.6[B"
^XMB(3.9,23,2,24655,0)="""DATA"",396.18,243,3,45,0)"
^XMB(3.9,23,2,24656,0)="M""9G:4LNPT'8%S?[>PQ2W5(/*U""=\#_&)!OOF8K>?^PW8_AP-'T[B07R4#N(O"
^XMB(3.9,23,2,24657,0)="""DATA"",396.18,243,3,46,0)"
^XMB(3.9,23,2,24658,0)="M^N+T5PK3G7(JF]H'NA.E.C355,)8SU.LP,<Z=_!4)RY5G115G<\0U1FC(W$N"
^XMB(3.9,23,2,24659,0)="""DATA"",396.18,243,3,47,0)"
^XMB(3.9,23,2,24660,0)="M%E2=<R&J,W'#]@#:19F[K3?AA#GG[OU&D8B1""O8*UJ$W65SQS['@5M$7*BCA"
^XMB(3.9,23,2,24661,0)="""DATA"",396.18,243,3,48,0)"
^XMB(3.9,23,2,24662,0)="M!PGJ6A.&%-HZ#!K@,@PC/HBOCO:.`MEHFG)VV6:9`S[4!JYW4:O`5E.W&FV]"
^XMB(3.9,23,2,24663,0)="""DATA"",396.18,243,3,49,0)"
^XMB(3.9,23,2,24664,0)="M@1/&IZMZ&\J-MMY!>6D86\)H"";:?]CDU[1JD`)]`F4>;CBXEYVKK.OHR;-$;"
^XMB(3.9,23,2,24665,0)="""DATA"",396.18,243,3,50,0)"
^XMB(3.9,23,2,24666,0)="M#4??Q`':Q3[9LFRJQ$&/FQ3Y?TJR<QG]G/8\^8=2GGQ7]6YGV2/X7PC+,C_:"
^XMB(3.9,23,2,24667,0)="""DATA"",396.18,243,3,51,0)"
^XMB(3.9,23,2,24668,0)="M'V&C/2E)_C^YSO-LPFA2,XU;*-Z^`_[I%,__=QC_I(1_'O#\+=L+Y;L-MFF>"
^XMB(3.9,23,2,24669,0)="""DATA"",396.18,243,3,52,0)"
^XMB(3.9,23,2,24670,0)="M[6N,[9](V*[7>+8FVIFDL'72BPG<YFWHEI9/7<JGM!;T`O5UPS2\SKD[Z6.&"
^XMB(3.9,23,2,24671,0)="""DATA"",396.18,243,3,53,0)"
^XMB(3.9,23,2,24672,0)="M[R/;Q4]\5=+'#U3Y/NIP8H`.IT?O[:HV<7=[F.5[^`W6P^<D/7RZ[O?P.N1H"
^XMB(3.9,23,2,24673,0)="""DATA"",396.18,243,3,54,0)"
^XMB(3.9,23,2,24674,0)="MH=Y`3C:TLR1M;[AN&VA;AK=AM\E'<(&P&DB3F\`A&MLVL1Z%="";'*T^%]N55"
^XMB(3.9,23,2,24675,0)="""DATA"",396.18,243,3,55,0)"
^XMB(3.9,23,2,24676,0)="M25\JRR;>;T+[4$#KP.4,;1I4S39.""&GP#^0+K2<S%G6X;ME;J-$$#=V$P^F`"
^XMB(3.9,23,2,24677,0)="""DATA"",396.18,243,3,56,0)"
^XMB(3.9,23,2,24678,0)="MJMVPC!?@L+4V'$B+V]00.Y7G.W6:=NHK$EOVV3D#IZA1)0;K4[-E`K1]18T+"
^XMB(3.9,23,2,24679,0)="""DATA"",396.18,243,3,57,0)"
^XMB(3.9,23,2,24680,0)="MG!X7QZ$:%#5HYIHD-8*'SX01AV;443[(L5N.@9""AG3>?""+9Z""#!*GDPB6MB`"
^XMB(3.9,23,2,24681,0)="""DATA"",396.18,243,3,58,0)"
^XMB(3.9,23,2,24682,0)="M=2`A+!T`U)`0,+.%'F>VL>\F>YE&#H/$[SFZ`[^G7Z025B%""+64;C^M%.JXQ"
^XMB(3.9,23,2,24683,0)="""DATA"",396.18,243,3,59,0)"
^XMB(3.9,23,2,24684,0)="MWR/XIG+@/(*$;$.GE.5W_WU?^F6)+WV,.@1\Z';OEWX!#-7@,QC+$RRA&`O&"
^XMB(3.9,23,2,24685,0)="""DATA"",396.18,243,3,60,0)"
^XMB(3.9,23,2,24686,0)="MGV^1?(RVCB5&.SW=-LP:B[Y/(YM117E""J`)$,:`BM\B'<+$T=:.)A-S1C!KL"
^XMB(3.9,23,2,24687,0)="""DATA"",396.18,243,3,61,0)"
^XMB(3.9,23,2,24688,0)="M#UG$:VT'6QN\N8T<(VQI)MQSR#.`^D6_3LAM&::)'K60'P`7=\-$>17-(&IS"
^XMB(3.9,23,2,24689,0)="""DATA"",396.18,243,3,62,0)"
^XMB(3.9,23,2,24690,0)="M>M:&#@=*5OH=VL*YG$FD:""W=\9AA.1U2%W"":ZCE2>L2PG^.03A?YD;O)@@&)"
^XMB(3.9,23,2,24691,0)="""DATA"",396.18,243,3,63,0)"
^XMB(3.9,23,2,24692,0)="M[;M)1T[223AJ`*7)M9KNH66@H3LUU""U_Y!SXU4W=\E@-#AHH;*_Z]B^3XOMG"
^XMB(3.9,23,2,24693,0)="""DATA"",396.18,243,3,64,0)"
^XMB(3.9,23,2,24694,0)="MT?YM2OJWP/JW`C8-L*6Q;N+IP'W$S<BT;2)!@TM;M=IV]&H'#:J+*VJ0`X@P"
^XMB(3.9,23,2,24695,0)="""DATA"",396.18,243,3,65,0)"
^XMB(3.9,23,2,24696,0)="M7`SI#%W[#_-B%K*Y)]^V8H4?A_GA#MEJ""Z%0XBE8D?M>(4:7=B+QEXI8Y7>7"
^XMB(3.9,23,2,24697,0)="""DATA"",396.18,243,3,66,0)"
^XMB(3.9,23,2,24698,0)="MC:X0A]&16\*]7J/3>-&WNK^G'(""ZO`'I0IXI\G5D\2$ZV""\$[>PXM;/S)J1^"
^XMB(3.9,23,2,24699,0)="""DATA"",396.18,243,3,67,0)"
^XMB(3.9,23,2,24700,0)="MX6;+W6/Q58:*W@6^DBJ>#XK>R#QV`*QJ)\2YR91Y2C.4TKN#E(9GH8;BD@PY"
^XMB(3.9,23,2,24701,0)="""DATA"",396.18,243,3,68,0)"
^XMB(3.9,23,2,24702,0)="MH6R*)T3CGO@Y"":%5@+3>""^L1%5`HB$*9V*+$WW*>@5Z1HUMGH>O9;.&]0^1B"
^XMB(3.9,23,2,24703,0)="""DATA"",396.18,243,3,69,0)"
^XMB(3.9,23,2,24704,0)="MU?GZ)OB.;4+!EW4\H>V6JV&S#`T-QH0^:I(J6A0(8B>NWK:P]89Q-R2N&PZN"
^XMB(3.9,23,2,24705,0)="""DATA"",396.18,243,3,70,0)"
^XMB(3.9,23,2,24706,0)="MTNA7U905.O\<[?ROR@I@EJ$':K1P#Z""%1M80^J708I+W=;WJV0[R2:66(T^+"
^XMB(3.9,23,2,24707,0)="""DATA"",396.18,243,3,71,0)"
^XMB(3.9,23,2,24708,0)="M3/^!6([/[,!R#/:Q'-TL_KB8Q1>E;H)B^V@PC9]-Y=(A>7LEL/V[!L`MLZ/>"
^XMB(3.9,23,2,24709,0)="""DATA"",396.18,243,3,72,0)"
^XMB(3.9,23,2,24710,0)="M-P>EHJ-ET/*0U;9@HZL>(VUIU):!$V1Y&WYC%C7F>AKSJ+'`&D>74,&5KG6`"
^XMB(3.9,23,2,24711,0)="""DATA"",396.18,243,3,73,0)"
^XMB(3.9,23,2,24712,0)="M[JCC""WZ$A]Z;'24*J:`5RY%(4]O=H1B\ANK`U%$*IZ9WX!L,HTC>C-%/""/CC"
^XMB(3.9,23,2,24713,0)="""DATA"",396.18,243,3,74,0)"
^XMB(3.9,23,2,24714,0)="MT\""#KRS8@&0C1YN/+MH.(#AT`E0`<E0$DLX5>""2=2""29$""3QP""[9(G35U.2B"
^XMB(3.9,23,2,24715,0)="""DATA"",396.18,243,3,75,0)"
^XMB(3.9,23,2,24716,0)="M#3^%'IJJ8I4&BFQ[JR0H1""&@S4]P'<CNCQ*)(,BR`-((!9F!9K*T#T`.A/L/"
^XMB(3.9,23,2,24717,0)="""DATA"",396.18,243,3,76,0)"
^XMB(3.9,23,2,24718,0)="M5#42?T&P7J)8""PQKXHV#X$`,RA-MU'>:Q]!5""OUSDD#M?NI`H#]P<NR6J;O-"
^XMB(3.9,23,2,24719,0)="""DATA"",396.18,243,3,77,0)"
^XMB(3.9,23,2,24720,0)="MO9:DY8L_XR<IFJ])EJIS*\`U:FW=Q&NH1>%@LZ09<&'M%C&&K5;4.?#P8O63"
^XMB(3.9,23,2,24721,0)="""DATA"",396.18,243,3,78,0)"
^XMB(3.9,23,2,24722,0)="MRMNXIR(6=)^CJ(9]5?RQ[FYZ.;^_MU38.84_(C[`JRQW]UY?%U\Y""+JH2B/`"
^XMB(3.9,23,2,24723,0)="""DATA"",396.18,243,3,79,0)"
^XMB(3.9,23,2,24724,0)="M(EW8'A<VNH])=E'.,F>^Z]`M<)Z?I:WI)CHVL+?4,UVD^8!3&.#C5&4>#VKG"
^XMB(3.9,23,2,24725,0)="""DATA"",396.18,243,3,80,0)"
^XMB(3.9,23,2,24726,0)="M$`FWPW2/[5F_B.D\0^D\<^>J%^H]E:BV/X(YING4/!0+^!R94K&T73_Q]$U<"
^XMB(3.9,23,2,24727,0)="""DATA"",396.18,243,3,81,0)"
^XMB(3.9,23,2,24728,0)="M^((\I""TX7]#U86Y0'6QI'=VI09=IBG\B?0FZAX8)U-R4_(OL`92""TKH;`&GR"
^XMB(3.9,23,2,24729,0)="""DATA"",396.18,243,3,82,0)"
^XMB(3.9,23,2,24730,0)="MK1,BL0M9W.Q&Z2.-+U\C2Z--@;_@`W_Q`&CCD%Q8Z<IX24AA/BC1QHE^VKCJ"
^XMB(3.9,23,2,24731,0)="""DATA"",396.18,243,3,83,0)"
^XMB(3.9,23,2,24732,0)="MP75E#ZHCW<DI\+L`T>H8JB#%,D^+*<@AJ8(4MJL@Y[H*@C9*R9ZFJ""5-PVI["
^XMB(3.9,23,2,24733,0)="""DATA"",396.18,243,3,84,0)"
^XMB(3.9,23,2,24734,0)="MP%4?FPH\F,Y?R*;\!TZ)#[1;Z#5R93;@(J=FQ$^[/.`3DSW*E,5?<=6L^!T<"
^XMB(3.9,23,2,24735,0)="""DATA"",396.18,243,3,85,0)"
^XMB(3.9,23,2,24736,0)="M]I3(9Y-XQTAS-VP';QIY6@M.DUUSPRJZ6,G<3RG\-E%\X<Y-6JAF4QMJ""J[2"
^XMB(3.9,23,2,24737,0)="""DATA"",396.18,243,3,86,0)"
^XMB(3.9,23,2,24738,0)="MM_UU]LQ!.,R:E,I]@<I]1ZA6^/N(0I^I=<MVFE""OU_`3VC0,M_>>/A>H]_O#"
^XMB(3.9,23,2,24739,0)="""DATA"",396.18,243,3,87,0)"
^XMB(3.9,23,2,24740,0)="M?!@33P?U>6Q&-Z$4&9X1MD.8+N1X6N^CM-8E!V2FH*>,G>AU^.)6S=ZRPDCF"
^XMB(3.9,23,2,24741,0)="""DATA"",396.18,243,3,88,0)"
^XMB(3.9,23,2,24742,0)="M.9*)CRN!P+U+].1-J^U""YQQI$-""VX&AK+=WS@!-*FU:@O""F$</%)2:YNP29U"
^XMB(3.9,23,2,24743,0)="""DATA"",396.18,243,3,89,0)"
^XMB(3.9,23,2,24744,0)="MZ7T.VZ0+18'D^^X&R1)/TA^""^`59;I*><^I+L\R/ZA<8R4>"")%5<]AOJ4Q$/"
^XMB(3.9,23,2,24745,0)="""DATA"",396.18,243,3,90,0)"
^XMB(3.9,23,2,24746,0)="M)_$'I&__K?0>G`LW04.[]:J8PTN$[(>H0'PRF,G)E-/Y[2X:?G4].R8SUCTF"
^XMB(3.9,23,2,24747,0)="""DATA"",396.18,243,3,91,0)"
^XMB(3.9,23,2,24748,0)="M0]-]B>\J`L??E'(L=H^3<:6#P?`LPZ-(?)7)M>ZO?6F.Z'XH>5.CIJS$3UDC"
^XMB(3.9,23,2,24749,0)="""DATA"",396.18,243,3,92,0)"
^XMB(3.9,23,2,24750,0)="M<LJRVTV^14T9DTLZ98W(*<M)IBP1A:;(3]VGE4@X8?G?@1U)8)F'TV4IQY.1"
^XMB(3.9,23,2,24751,0)="""DATA"",396.18,243,3,93,0)"
^XMB(3.9,23,2,24752,0)="MX!F,6-/I6+U*QNH*I=WQ%_7/'X3@>5BV2Y'F%Q>V#Y:(2;SU=]$U75S*M:=L"
^XMB(3.9,23,2,24753,0)="""DATA"",396.18,243,3,94,0)"
^XMB(3.9,23,2,24754,0)="M.##:%-Y7`;6]58&0R_#;LLQ1GY*=*V>G8QNZX<E/-.>H#?PY1:#V7)#:_3XU"
^XMB(3.9,23,2,24755,0)="""DATA"",396.18,243,3,95,0)"
^XMB(3.9,23,2,24756,0)="MLGV$:7++$5M'#@DW30B.[(=[TV*/A*XB_2]A""#U$0_V>(YAEEK+L!`Z;%$JY"
^XMB(3.9,23,2,24757,0)="""DATA"",396.18,243,3,96,0)"
^XMB(3.9,23,2,24758,0)="MW,[.\=W`7I^:G$*'VAI&53V""#M""@TH-6VW0Q""LFIM>T<K%%V<[`FD^</]S&D"
^XMB(3.9,23,2,24759,0)="""DATA"",396.18,243,3,97,0)"
^XMB(3.9,23,2,24760,0)="MB:\K,JCY_71(*A9AU+)\AIII]L?\W?W/'81`943JVZ7HCNBWR7P/!+9>NU;M"
^XMB(3.9,23,2,24761,0)="""DATA"",396.18,243,3,98,0)"
^XMB(3.9,23,2,24762,0)="M>&^D@M_OL0`E)12HG*""*>DIVD13L_5ZY4:)$79Y#>,6.LRK""B\%N)^D!$+GA"
^XMB(3.9,23,2,24763,0)="""DATA"",396.18,243,3,99,0)"
^XMB(3.9,23,2,24764,0)="M+96%2Y08_`<E\-%!T\O2""XMH4-(@)8W_HKP-%Q9)9Z[`SQP][A:_)*G.F`5U"
^XMB(3.9,23,2,24765,0)="""DATA"",396.18,243,3,100,0)"
^XMB(3.9,23,2,24766,0)="M&QUI#JF%2--B\L2)F#`*DM$<7M3-MA5:GI&F->*)X\*A]_B\Y)J%N=MZU=/,"
^XMB(3.9,23,2,24767,0)="""DATA"",396.18,243,3,101,0)"
^XMB(3.9,23,2,24768,0)="M;89IM-2?3=1L>""W*Z)35H-6_(9VDUHO1VJ2T,I*@?%XW7:!]$/DA8<2H?_>G"
^XMB(3.9,23,2,24769,0)="""DATA"",396.18,243,3,102,0)"
^XMB(3.9,23,2,24770,0)="MXMA)(OSA&[;5,W:\*.:%Z;Q%Z=P,""M'C""[:+@WM=6\>EQXY?*4A:+O>M`4P+"
^XMB(3.9,23,2,24771,0)="""DATA"",396.18,243,3,103,0)"
^XMB(3.9,23,2,24772,0)="M?;Y[L\0*&HA:_K(2L=DW2:[9J!LX""^OB@O(:N8T%6DIR25""+%E:&Q<?,;4H3"
^XMB(3.9,23,2,24773,0)="""DATA"",396.18,243,3,104,0)"
^XMB(3.9,23,2,24774,0)="MS?MXK/<VO:.A-W8=WFU\S.J&J/""<Z?5LN*1JJKCMFHT5](B**8>E(VE(RZX+"
^XMB(3.9,23,2,24775,0)="""DATA"",396.18,243,3,105,0)"
^XMB(3.9,23,2,24776,0)="M>YF!7>J?#!C;Z>YF1C""OK$B[>XPJ?LMW:LJ9_5!.<2AD4%E""B0[J6TKXH`;N"
^XMB(3.9,23,2,24777,0)="""DATA"",396.18,243,3,106,0)"
^XMB(3.9,23,2,24778,0)="M8!OM.ZJ]<:9031HN.<5,/BOLS(8+HQ""$O#=""%M-A]4-J1*0<SC<G+!AG`DX0"
^XMB(3.9,23,2,24779,0)="""DATA"",396.18,243,3,107,0)"
^XMB(3.9,23,2,24780,0)="MQSFSFY1#.&?1=D=!3I5#&`_MBK'@*21>42(X9\)V4X9WQ3DO6.O(P<ZF=I$0"
^XMB(3.9,23,2,24781,0)="""DATA"",396.18,243,3,108,0)"
^XMB(3.9,23,2,24782,0)="MB2CKXN4K$G.Y'#;-R<A43*_AR?&&YW4E8'BR'-;,_KAI(@BR*&C/:F!""K[,Z"
^XMB(3.9,23,2,24783,0)="""DATA"",396.18,243,3,109,0)"
^XMB(3.9,23,2,24784,0)="M+NA=I/93R""BM6A,=I&BTA?V$-BKKEQ$RI""SK]U\,=.)O#D+6;U0:4E$_]KQP"
^XMB(3.9,23,2,24785,0)="""DATA"",396.18,243,3,110,0)"
^XMB(3.9,23,2,24786,0)="M+>WKDOCX018?NZ[A>L8FT&;!IE$%>^VL$4U(ES&@A[:S)2\[Q\&V)#""9Q$O,"
^XMB(3.9,23,2,24787,0)="""DATA"",396.18,243,3,111,0)"
^XMB(3.9,23,2,24788,0)="MEKX8I//P',YXP@&Q`/'T:WA<(CQA9C>?QL2_J/3N#3[T=J3XA'&9Z,53\2MN"
^XMB(3.9,23,2,24789,0)="""DATA"",396.18,243,3,112,0)"
^XMB(3.9,23,2,24790,0)="M\YGLSE)\:6T&*I$ZE,%_775PVM&K0$W""=J?M53?4D0Q]!3]445W5VY7N""R_="
^XMB(3.9,23,2,24791,0)="""DATA"",396.18,243,3,113,0)"
^XMB(3.9,23,2,24792,0)="M3O&S^=.!V3S.7:F0V6X8$+@62`D_U4@C+0L/_GMZ3XLF?N$@V)<Q:9Q,@[Z?"
^XMB(3.9,23,2,24793,0)="""DATA"",396.18,243,3,114,0)"
^XMB(3.9,23,2,24794,0)="M%>^]_D3D.<:ZJ3>;.(3=6^FW3)FFWT8$XQ*YH2W/'I2%-#2M'8F?E""2RK@$]"
^XMB(3.9,23,2,24795,0)="""DATA"",396.18,243,3,115,0)"
^XMB(3.9,23,2,24796,0)="M9!NB0&/;\S&!R'G9Z9HM8)I08$((I7A4L^%;ZLD54$-&+H1,1@`U&Y&7FD47"
^XMB(3.9,23,2,24797,0)="""DATA"",396.18,243,3,116,0)"
^XMB(3.9,23,2,24798,0)="M]NL-$$(H*P!CA'Y0DCVJ(#/ET#X%0CA6@D&`G:6R]Y)LHS!;#HGA>BZMR@D8"
^XMB(3.9,23,2,24799,0)="""DATA"",396.18,243,3,117,0)"
^XMB(3.9,23,2,24800,0)="MHT@6\^7M6A*I=]_#.""^,223C0OJ.8K@>Q@5^#%<B^8:%,XG=\""T*(QW).%^Z"
^XMB(3.9,23,2,24801,0)="""DATA"",396.18,243,3,118,0)"
^XMB(3.9,23,2,24802,0)="MHSBJAW%)&.EHQ&&+Q6`$8_GU\E2P7B=PG>T7PZN[/&A/@\7W8WXZ1?FLORDT"
^XMB(3.9,23,2,24803,0)="""DATA"",396.18,243,3,119,0)"
^XMB(3.9,23,2,24804,0)="M<1`VA0Y)-[JI9/VUN""1]*N+$QI+K`;O9`:;A&7O,WZ6_@T""W;ED5XA]+<KCG"
^XMB(3.9,23,2,24805,0)="""DATA"",396.18,243,3,120,0)"
^XMB(3.9,23,2,24806,0)="MUS9T#Z><<?X6I\E=;0O=P8'2N?""/3O?NKT@Y,2>*<+H1*%#M<BI<L[?0E?`="
^XMB(3.9,23,2,24807,0)="""DATA"",396.18,243,3,121,0)"
^XMB(3.9,23,2,24808,0)="M#;0,UZZ1ZWET[""1KAE6G)^`W='Q'"".K`.@!6""%=A:]JE7-]2@IGVI6N(7B1'"
^XMB(3.9,23,2,24809,0)="""DATA"",396.18,243,3,122,0)"
^XMB(3.9,23,2,24810,0)="MQ$;37=>NHGLT:J3&M(I^0<;PVC29[7::+<]NNE?Z7;E=X#J6^`WF4ZX$AV.<"
^XMB(3.9,23,2,24811,0)="""DATA"",396.18,243,3,123,0)"
^XMB(3.9,23,2,24812,0)="M'GUGE""5Y>8%PD:]!Z5(.+TB+IL=.A.0%/R'QID1$4IR(H(I<*B-(-N@]K6:'"
^XMB(3.9,23,2,24813,0)="""DATA"",396.18,243,3,124,0)"
^XMB(3.9,23,2,24814,0)="MP8#N335DRM(""0R8I7Y$PG,`,T=E+;4MW\7Z:B2^XZ9FY*R&WL!0%3DPZOB7;"
^XMB(3.9,23,2,24815,0)="""DATA"",396.18,243,3,125,0)"
^XMB(3.9,23,2,24816,0)="MP4`R&<D#""4(=G>A%\A^\2Y:?;O^<:U?Z'^^N""J7""_CA""%+H""IGFHST54HA=#"
^XMB(3.9,23,2,24817,0)="""DATA"",396.18,243,3,126,0)"
^XMB(3.9,23,2,24818,0)="MCVH$?)Q86HUEU%A6C>746%X=[1:(YY5MWDR<IR%L$NO%)UFZ\<O^;#_&A7'Y"
^XMB(3.9,23,2,24819,0)="""DATA"",396.18,243,3,127,0)"
^XMB(3.9,23,2,24820,0)="M[5U,S*X:WL8-P_'(\)H?L\1O*[WWX9<X\<CN[AK:P7ETH%95IRS0-'0U.0O("
^XMB(3.9,23,2,24821,0)="""DATA"",396.18,243,3,128,0)"
^XMB(3.9,23,2,24822,0)="M14^[KJ!)[*J""1JB0\Y%RRR</-;>?,H0#,K47+4RDWI=3^R,-&KC[/B=@C%3X"
^XMB(3.9,23,2,24823,0)="""DATA"",396.18,243,3,129,0)"
^XMB(3.9,23,2,24824,0)="M4C[ZRFVVR4MH^8DSCMB'.""7-[H^KMN4>.U6$_R6*\#],Y7^TO\N>W*7+3FW,"
^XMB(3.9,23,2,24825,0)="""DATA"",396.18,243,3,130,0)"
^XMB(3.9,23,2,24826,0)="MC^!IRM&1'=_%;9E[V&4_+'5A""CQR=I(L+ZE-/4\]=EJ5@[S`/?@[:M*ZSR)_"
^XMB(3.9,23,2,24827,0)="""DATA"",396.18,243,3,131,0)"
^XMB(3.9,23,2,24828,0)="MAC[QZ-MYQVQ:.`]]*G!TZ3_\.V:SA5)I_QV(OH]3FGP*_:.J\V$,^-T4\._["
^XMB(3.9,23,2,24829,0)="""DATA"",396.18,243,3,132,0)"
^XMB(3.9,23,2,24830,0)="M@/,'076.,-6YCT\U8OBT&N6C8AGDER*V>>@U75!_5D`5(K_3L/??[CSL/=H#"
^XMB(3.9,23,2,24831,0)="""DATA"",396.18,243,3,133,0)"
^XMB(3.9,23,2,24832,0)="MB]VC2?S4.M470U*&/4-_H4K#-[EB./?D)\/(RCO>77GQ[%`8#V""]_Z?0;?M,"
^XMB(3.9,23,2,24833,0)="""DATA"",396.18,243,3,134,0)"
^XMB(3.9,23,2,24834,0)="MIE1.]7@K,G(T>SI)5N#O1-)+""XX!,TO'Q&L:T#_J(GR9&*<Q9IRN,J*G=FV<"
^XMB(3.9,23,2,24835,0)="""DATA"",396.18,243,3,135,0)"
^XMB(3.9,23,2,24836,0)="M>EW_AZ6N?XH;*%6X`^K/?2&^Z@,KY'?VNR2'9[1Y=.:;""/WE7L\[2=I!33U^"
^XMB(3.9,23,2,24837,0)="""DATA"",396.18,243,3,136,0)"
^XMB(3.9,23,2,24838,0)="M`U]OBJ_/)%>K/C.ULJ3^P$IO$S[QBNY""]6\1%"".)':""F\_EW2E_8I6)Q1[!/"
^XMB(3.9,23,2,24839,0)="""DATA"",396.18,243,3,137,0)"
^XMB(3.9,23,2,24840,0)="ML#NDB8J_4_#]NH.CW15)L-)$H=L4Z2_Y5OHG_&4I72BE]_D]'32A_^O""(9+$"
^XMB(3.9,23,2,24841,0)="""DATA"",396.18,243,3,138,0)"
^XMB(3.9,23,2,24842,0)="M2S[83QR$)6E<5H%-G;F:<&'.&Y*UZ`&Z%K&[<M!JA)KN_5(DI+LHGDF,Y\G`"
^XMB(3.9,23,2,24843,0)="""DATA"",396.18,243,3,139,0)"
^XMB(3.9,23,2,24844,0)="MKV#Q/[UGZ`W+=@V<G=2\=M-VM`F`BG;/R;?""V&'!2>'HWBM2VO0',6L^CXEF"
^XMB(3.9,23,2,24845,0)="""DATA"",396.18,243,3,140,0)"
^XMB(3.9,23,2,24846,0)="M\U('_@NC7>9H)WY&""9SB[A)/HQ_$)BG!&F1#;EOW?]9OPD!W+.,K1=VVTP#_"
^XMB(3.9,23,2,24847,0)="""DATA"",396.18,243,3,141,0)"
^XMB(3.9,23,2,24848,0)="MS]ZUQ\AU7O69N?;LVEX_UJ_83AQ/;"">QR=J>N?-V2!/'NZX7_,IZ\V@A3>[."
^XMB(3.9,23,2,24849,0)="""DATA"",396.18,243,3,142,0)"
^XMB(3.9,23,2,24850,0)="MW-F]\;PR=\;K3=JH:BF-H(@*:!M*DT`;6A)0%40!D3\`E31"")2*JH""H1""%6@"
^XMB(3.9,23,2,24851,0)="""DATA"",396.18,243,3,143,0)"
^XMB(3.9,23,2,24852,0)="M5BT(5""$D5""`*W_N>[][OWKEW=N/=L:@JY<[L^#OWG.]UOO.=\_MU_""1R#!`J"
^XMB(3.9,23,2,24853,0)="""DATA"",396.18,243,3,144,0)"
^XMB(3.9,23,2,24854,0)="M\7M<XJ\K@KEWTU3F*E.*!NR:78OA#*%Y!E^@6IU(-1H3*:IM6-)$SNKPW9CT"
^XMB(3.9,23,2,24855,0)="""DATA"",396.18,243,3,145,0)"
^XMB(3.9,23,2,24856,0)="M/HD%11;W)'P1(%F8.+30#+3!@7C`<+F9P5D['*P""4BD5,F3&B2D/2GO'BS%/"
^XMB(3.9,23,2,24857,0)="""DATA"",396.18,243,3,146,0)"
^XMB(3.9,23,2,24858,0)="M]`+Y^='VCCT/LU@J'<4-HV[--PU(W^5[ZY<<>;!YI=E:;,:DE=(3EM#AV#_/"
^XMB(3.9,23,2,24859,0)="""DATA"",396.18,243,3,147,0)"
^XMB(3.9,23,2,24860,0)="MWOUV;U0""O7O&56#LSN7-PZ:N!C:E*\C]X-$)OI7V4LS3UOM`6T.#7>>R5P;B"
^XMB(3.9,23,2,24861,0)="""DATA"",396.18,243,3,148,0)"
^XMB(3.9,23,2,24862,0)="M=CH%.VV5O505P^L4O2E/MN`V""^JJ76]G2$O8\;BG,XZ#1O/#43BNKIU@P:8O"
^XMB(3.9,23,2,24863,0)="""DATA"",396.18,243,3,149,0)"
^XMB(3.9,23,2,24864,0)="M4.M5(P0'1@:%-V%+QT]*MT8C(MKTBS>""?S*N\D_RTF&9.R@_4#@HMS$'Y6S+"
^XMB(3.9,23,2,24865,0)="""DATA"",396.18,243,3,150,0)"
^XMB(3.9,23,2,24866,0)="MQIBM=>LI@^/%7J8[X=IR5?B\/@%Q-Q,U[]:SFVM$]OQZ8#)31H)Y>IR9:Y/B"
^XMB(3.9,23,2,24867,0)="""DATA"",396.18,243,3,151,0)"
^XMB(3.9,23,2,24868,0)="M7KB(=]&3&-=T@J*4DM;)[9]52Y$M@5Q%8ZJ#:U8#;[G8`?`1JP.Q`N<N\6$%"
^XMB(3.9,23,2,24869,0)="""DATA"",396.18,243,3,152,0)"
^XMB(3.9,23,2,24870,0)="M%LH,VD9IKQ`2!H(G3GK'I^4L5(C5B&E?4F`-VV=0FZ9164BAT8_9%VH80)[!"
^XMB(3.9,23,2,24871,0)="""DATA"",396.18,243,3,153,0)"
^XMB(3.9,23,2,24872,0)="MQ5-]K"":NYB/FFV`P[`?9]G>0@""R!'Y`3$_UGV##MGKU`Z1UH_2$%Q>_C7W!4"
^XMB(3.9,23,2,24873,0)="""DATA"",396.18,243,3,154,0)"
^XMB(3.9,23,2,24874,0)="MHA/2Z5_3%-U1`D%2`[WW@CR*J;]'+87K'04&NT].&XM?/D;C#J^_%X65:GH["
^XMB(3.9,23,2,24875,0)="""DATA"",396.18,243,3,155,0)"
^XMB(3.9,23,2,24876,0)="M%IOX6[HV_F7,#3.]S;>N;'00.CV.7OLFE?=X/'R%?C)4$1+8-*6I=8;U95GA"
^XMB(3.9,23,2,24877,0)="""DATA"",396.18,243,3,156,0)"
^XMB(3.9,23,2,24878,0)="MMZ1+19<SY6+D@[,ET0AJJ3P,E1I*UPS.6W2J8$K^IO>N+I/-%X;C0E(]XK/2"
^XMB(3.9,23,2,24879,0)="""DATA"",396.18,243,3,157,0)"
^XMB(3.9,23,2,24880,0)="M""'P]`#K54P>W?B`&2;8E/A.7$.$5\KAK'S[^IQ98D`1>B2)0BUP_""6>9]A_>"
^XMB(3.9,23,2,24881,0)="""DATA"",396.18,243,3,158,0)"
^XMB(3.9,23,2,24882,0)="M<6.""*\O,<%Q9^ETA,KM^BOHV$TS5C(@Z;;CQ&/>VJWP\"">B-7RB^&G`?PBX-"
^XMB(3.9,23,2,24883,0)="""DATA"",396.18,243,3,159,0)"
^XMB(3.9,23,2,24884,0)="M\5XYVS%Z#6/U/3NH3PY&3CEIY!<5086#.)0S(5PZ$=.A(1VLV*J@1JCK9)B["
^XMB(3.9,23,2,24885,0)="""DATA"",396.18,243,3,160,0)"
^XMB(3.9,23,2,24886,0)="MVI)O,GP//:M*B1KY#E9*W#SNSI/0?@_<P9:',-@-5QTVV]835<>9JO\HCI+/"
^XMB(3.9,23,2,24887,0)="""DATA"",396.18,243,3,161,0)"
^XMB(3.9,23,2,24888,0)="MWPA'R1W*V##;.--Q>)9,/.W/+B-""Q&MK?6$IG=^BSKT=?P^<^XVS;(2)Y#KQ"
^XMB(3.9,23,2,24889,0)="""DATA"",396.18,243,3,162,0)"
^XMB(3.9,23,2,24890,0)="M.0,2_T2ZPIMB_%R(H_-JYRDQ0(^C%;J""T;LW[,##U/E^QFC.F]H;B=WRU^+G"
^XMB(3.9,23,2,24891,0)="""DATA"",396.18,243,3,163,0)"
^XMB(3.9,23,2,24892,0)="M&T_UNBWZ/2P]4_:LE(SX4,+-.P]NGT\Y2!D5=A'M4W58S$-%^37]]Q7+^(G+"
^XMB(3.9,23,2,24893,0)="""DATA"",396.18,243,3,164,0)"
^XMB(3.9,23,2,24894,0)="MG#""PRH^'Y!S*Z<P8@:#@^NL#,J)S($DJ>1N3_()J`SF""#KV-E)Y/%X^ZN-;F"
^XMB(3.9,23,2,24895,0)="""DATA"",396.18,243,3,165,0)"
^XMB(3.9,23,2,24896,0)="ME@AUV/&^PDI0V%-,V!'%$?4^EKQSQ#[J40F?GAN>;&Y""FBCN0%83`4E6F25A"
^XMB(3.9,23,2,24897,0)="""DATA"",396.18,243,3,166,0)"
^XMB(3.9,23,2,24898,0)="M/Q>7B@XV*#CPOH2#""AU*^-/N==IH8[,GD-)M1IQ)^IEI:&(BR""8=7F0L8.8%"
^XMB(3.9,23,2,24899,0)="""DATA"",396.18,243,3,167,0)"
^XMB(3.9,23,2,24900,0)="M3FUDFVT#4['4EU*85]6LH%F)C_MH""J)A<A5U'.:;A,225<MF[*$I\ZI1[U$7"
^XMB(3.9,23,2,24901,0)="""DATA"",396.18,243,3,168,0)"
^XMB(3.9,23,2,24902,0)="MH<:#'$)4WQYF-SU<7=V=#@O0;[&V4Z=.GP6=YM,F6X->H6W>'U`*\#/8R<%Q"
^XMB(3.9,23,2,24903,0)="""DATA"",396.18,243,3,169,0)"
^XMB(3.9,23,2,24904,0)="M&-1V9:&%[$0&#J36!""1].-7U(,Y%[M(JB,`1U5]U77K-""GO-WU!-I8MMNBY,"
^XMB(3.9,23,2,24905,0)="""DATA"",396.18,243,3,170,0)"
^XMB(3.9,23,2,24906,0)="M\%426QJ96%#S^9DB*\E89#+^0F&*<]--?,?/B$(!ZQ4<1A;)C&E5*KVVP58J"
^XMB(3.9,23,2,24907,0)="""DATA"",396.18,243,3,171,0)"
^XMB(3.9,23,2,24908,0)="MZA=:F&(6Y\D3I./^NN?@>SF%MH=4Y==DU?*AT>,'SN=<#:F(]')^;12D,;C4"
^XMB(3.9,23,2,24909,0)="""DATA"",396.18,243,3,172,0)"
^XMB(3.9,23,2,24910,0)="MAXM/V411:J(R`""$@PS[C39P.QTHHT8?I<+4\X@]9M7%RI9:]_QQLV?/X?3FX"
^XMB(3.9,23,2,24911,0)="""DATA"",396.18,243,3,173,0)"
^XMB(3.9,23,2,24912,0)="M1_X./UAWA8_[<MSMP2F(TJ5=MPR=9B_!AV.,DP)Z<\H9\W@*\%F/!OQ%..!/"
^XMB(3.9,23,2,24913,0)="""DATA"",396.18,243,3,174,0)"
^XMB(3.9,23,2,24914,0)="MB6&^1E#SLFQ+'B/6^]V8AS\!,'B[<$9M:[Z)4UTQIZ>8\NX)+O15U`]!UP^B"
^XMB(3.9,23,2,24915,0)="""DATA"",396.18,243,3,175,0)"
^XMB(3.9,23,2,24916,0)="M2_&CI>K.8!<UM""Q(C<''-L,78])Q]37%\G4_*1`R81>2U5CL4YB&SRW41[L^"
^XMB(3.9,23,2,24917,0)="""DATA"",396.18,243,3,176,0)"
^XMB(3.9,23,2,24918,0)="MD7-=AXH^RA2]ZE5TSPQATL9[\6*K<\59K($=1V=970A?#*0J$=*EB6-,[V>%"
^XMB(3.9,23,2,24919,0)="""DATA"",396.18,243,3,177,0)"
^XMB(3.9,23,2,24920,0)="MWG?Q(U]:SY3<Q2'7:5@&E:#LOM!*709CBTVMY`[5EV,X66RJT:ZWELRJSZ$I"
^XMB(3.9,23,2,24921,0)="""DATA"",396.18,243,3,178,0)"
^XMB(3.9,23,2,24922,0)="MYFNI/+34%8^E3HI0;KI<]*VG60,FVXOQ4N:;F+G60H;!-DA5>WA@)G=,-S&;"
^XMB(3.9,23,2,24923,0)="""DATA"",396.18,243,3,179,0)"
^XMB(3.9,23,2,24924,0)="M,7;BNH22%_EGR5W.E\:<C2^,3,MN*&M\?`(1OB9EF_,+=-:5/=BW=<>FQ=):"
^XMB(3.9,23,2,24925,0)="""DATA"",396.18,243,3,180,0)"
^XMB(3.9,23,2,24926,0)="MMNDF'#]!CFR]A0QVTZ3)#8;)WO$YTZ!WF---Z-O.F0O&5:O52>XA"",3$Q\-W"
^XMB(3.9,23,2,24927,0)="""DATA"",396.18,243,3,181,0)"
^XMB(3.9,23,2,24928,0)="M=9@LE))F)V^;1%UD59"")EP`WO`5XM9/;'6F-%JN_V@>^,YH]`HB(;(;I3)/<"
^XMB(3.9,23,2,24929,0)="""DATA"",396.18,243,3,182,0)"
^XMB(3.9,23,2,24930,0)="MR;2I+UFW:H+8LV)T.DOH0W('$-O!;AG^<OQRVS2)A\;_EMQ^EB%M@^_&'[(("
^XMB(3.9,23,2,24931,0)="""DATA"",396.18,243,3,183,0)"
^XMB(3.9,23,2,24932,0)="MORGX:NLY9'-RR=DE?-?)'0^;QA4*3M-)U9!QYGMF\I#STD@]LSG?73B9ZK7;"
^XMB(3.9,23,2,24933,0)="""DATA"",396.18,243,3,184,0)"
^XMB(3.9,23,2,24934,0)="M:/=`+]\Q,0""I^D?(+-*/=CZ(7@J?*ZPFZ@""<HH5Z(;G]C%DA]@7?K;MD6,WD"
^XMB(3.9,23,2,24935,0)="""DATA"",396.18,243,3,185,0)"
^XMB(3.9,23,2,24936,0)="MYDG+KJ%WZ!#&^@@C6WGGDX:;I*A&^Y!P,;X?`Z.Z/&3P7/Z(-AEXA-9^@>O]"
^XMB(3.9,23,2,24937,0)="""DATA"",396.18,243,3,186,0)"
^XMB(3.9,23,2,24938,0)="MJ/=""KZ270@-1X!"">PHUCSOA'J3/^%2XL*XS\2H`?IZ2WY\3`FR5(ZIL""71O7"
^XMB(3.9,23,2,24939,0)="""DATA"",396.18,243,3,187,0)"
^XMB(3.9,23,2,24940,0)="M^05_;#N^'&4[<9]8U@H"",H?H'""<6G.&)2M]6U6""[?#E3>%4^*@97?W.L*8U8"
^XMB(3.9,23,2,24941,0)="""DATA"",396.18,243,3,188,0)"
^XMB(3.9,23,2,24942,0)="M>C_S:BYXPPX3ISJ\&A^XC&J9]ZY""H!4X;Z%2'_FMWGE)<7%W8#BN5CKGF_DX"
^XMB(3.9,23,2,24943,0)="""DATA"",396.18,243,3,189,0)"
^XMB(3.9,23,2,24944,0)="MJLA\'#F]T.I`NU\?8WC@IRZTFJ8?ZVYR]%*'I*38,5\O(9P5=0F_:;\;<16:"
^XMB(3.9,23,2,24945,0)="""DATA"",396.18,243,3,190,0)"
^XMB(3.9,23,2,24946,0)="ML1S)C!O0C]MM#$HD##FHBH&5%6JUY***_6ZJ'J!6)AU-K:EK9J=BV>9*JJ6%"
^XMB(3.9,23,2,24947,0)="""DATA"",396.18,243,3,191,0)"
^XMB(3.9,23,2,24948,0)="M58M-]G44=#@6-.CST0;]91Q^M%=2J74AE6+,5'0B!RF%-OAB)*4VS1#W1L;*"
^XMB(3.9,23,2,24949,0)="""DATA"",396.18,243,3,192,0)"
^XMB(3.9,23,2,24950,0)="M'L;9O#[L^,C#V1P\0#)Z)%MNG.T85\VZ-)^'T93)D*;D0*G_%,*4Z5(D4XZ>"
^XMB(3.9,23,2,24951,0)="""DATA"",396.18,243,3,193,0)"
^XMB(3.9,23,2,24952,0)="M,<WJ""B^,(V%'2!FN(#\,U*H03:O[C>[""T`^/T;!V+,%%*]B.T1:M#9/X=G7H"
^XMB(3.9,23,2,24953,0)="""DATA"",396.18,243,3,194,0)"
^XMB(3.9,23,2,24954,0)="M#1G:C2M*2U:@)3.9B$M6RZJ;W:$WY<:PIBQ(2U;PH,Q&&Y1(0*LQ]);<I$B<"
^XMB(3.9,23,2,24955,0)="""DATA"",396.18,243,3,195,0)"
^XMB(3.9,23,2,24956,0)="M+<.3F\%/;KO$4?5>X'X,%2#V6-B=CF7O;)`NL.[C^N<$$4(N&VK0A(!:BOG!"
^XMB(3.9,23,2,24957,0)="""DATA"",396.18,243,3,196,0)"
^XMB(3.9,23,2,24958,0)="M)/(+N4L)*4BOP%P9Q^G3*7C%&SX'UC,&X#U6HNB)M=SK9&H5AR13RZ,BZ^01"
^XMB(3.9,23,2,24959,0)="""DATA"",396.18,243,3,197,0)"
^XMB(3.9,23,2,24960,0)="M,LQ-ELZBO2R@_#\@XDG%3'8X<J=]<'O8*G@/C68M\E2FN[BF6WW+!;1!4IDY"
^XMB(3.9,23,2,24961,0)="""DATA"",396.18,243,3,198,0)"
^XMB(3.9,23,2,24962,0)="M@M1'7*E3_LG::SF-48E<PTX5=_37,""J>N6]Q&CL3GI4RB$Z(C+`_OA$`M7<J"
^XMB(3.9,23,2,24963,0)="""DATA"",396.18,243,3,199,0)"
^XMB(3.9,23,2,24964,0)="MT2'9?G1-RB/**:""0[F(9A:=E?$M\56?S2OK4)#*%L>S,V97&V>;UNC=+=\X*"
^XMB(3.9,23,2,24965,0)="""DATA"",396.18,243,3,200,0)"
^XMB(3.9,23,2,24966,0)="M\/U;6!J<&\,3Z^B3.U-FE\\WQZ7&EQ3UUY3T2MFV@L133EUF<;-_H[[6+T<@"
^XMB(3.9,23,2,24967,0)="""DATA"",396.18,243,3,201,0)"
^XMB(3.9,23,2,24968,0)="M@UX&QK]D-IY2_"",19'[(H6,I1N3Q9*""#FQCG*[EY8X""$#A#AYE.-I7K+JJ;J"
^XMB(3.9,23,2,24969,0)="""DATA"",396.18,243,3,202,0)"
^XMB(3.9,23,2,24970,0)="M%O[#=67VY""1'K%N#E""_GLD/,[#D.,9S3NF""J&)%R1K\MEL(OWPC)U;M4&%!8"
^XMB(3.9,23,2,24971,0)="""DATA"",396.18,243,3,203,0)"
^XMB(3.9,23,2,24972,0)="M>T;>KOVOC&SU9XI*CKUL/:0I""02^8?61X'S4*F:@.[:-GSHF%#6H5;I*2=DO"
^XMB(3.9,23,2,24973,0)="""DATA"",396.18,243,3,204,0)"
^XMB(3.9,23,2,24974,0)="M""ZQ8Q;::%9+564&ZS9NI(^02FD!XD-Q=^G>"":8$3=W$5+LFO0?\W4AV*`$8R"
^XMB(3.9,23,2,24975,0)="""DATA"",396.18,243,3,205,0)"
^XMB(3.9,23,2,24976,0)="M>H-R:#SOKL-W_R-^6_BNXJZK=-KHV9@IA5SH60T3+RQ=FJ))4FNL)GV[C'Z,"
^XMB(3.9,23,2,24977,0)="""DATA"",396.18,243,3,206,0)"
^XMB(3.9,23,2,24978,0)="M%@RWD5E;5<6=E_LM2G!::)_F;_%=U8W;K$)RM4>NVE72PUM#US,,M$K[""AV@"
^XMB(3.9,23,2,24979,0)="""DATA"",396.18,243,3,207,0)"
^XMB(3.9,23,2,24980,0)="M3[#W^*SB/0Y,]CJL?KS&\993IABM_91&PN2U@,E*/.85M7V6%4([S8=HO2BI"
^XMB(3.9,23,2,24981,0)="""DATA"",396.18,243,3,208,0)"
^XMB(3.9,23,2,24982,0)="M,L6:_Z""B^=/L[9U1&:+Y,GQY3F=Q68&G_2""YE'3:=O;@[7+YD,X9.[2[&1ZI"
^XMB(3.9,23,2,24983,0)="""DATA"",396.18,243,3,209,0)"
^XMB(3.9,23,2,24984,0)="MQS?=Y[L/;^A+.DF.QVC;W4FE\H]8+O?Z9^EV=!/K=EM<F3\:=Q+G9LRNU3%)"
^XMB(3.9,23,2,24985,0)="""DATA"",396.18,243,3,210,0)"
^XMB(3.9,23,2,24986,0)="M]F^O:;*,*1AS]+$8X[?0OAR#6?N)646'</R:#A$5KK_Y%*('_XS[K`URN,DT"
^XMB(3.9,23,2,24987,0)="""DATA"",396.18,243,3,211,0)"
^XMB(3.9,23,2,24988,0)="MCMQ\""3!+:'_./:1%;_M[F2,VB)0RL]$W9=P1@('CR$FI)B#OD9#B2L!FVF$N"
^XMB(3.9,23,2,24989,0)="""DATA"",396.18,243,3,212,0)"
^XMB(3.9,23,2,24990,0)="M[7F%M%LI+(&=FL?<423+/I(LG8'RL?YA1/%H,'A%':+8ITNI!@-\.])>6++Q"
^XMB(3.9,23,2,24991,0)="""DATA"",396.18,243,3,213,0)"
^XMB(3.9,23,2,24992,0)="MTU&1O1A""'AO3?RHQTVN?4*%1<8%M>ZFR8!G(]:FH)+D#4/N4<4L\CR6.FJUN"
^XMB(3.9,23,2,24993,0)="""DATA"",396.18,243,3,214,0)"
^XMB(3.9,23,2,24994,0)="MK,=#'`,O7<X5(N$8[9BV4U=-G`369..JZD`8)7QO8-1!*P\@HY[&&Z(T2P\P"
^XMB(3.9,23,2,24995,0)="""DATA"",396.18,243,3,215,0)"
^XMB(3.9,23,2,24996,0)="MLWW#0RB""7[ZH0+Z)2S[_+I?/3U8;'8Z$^S@/8]S-:H\EE`9#'S\T5;?F+?3O"
^XMB(3.9,23,2,24997,0)="""DATA"",396.18,243,3,216,0)"
^XMB(3.9,23,2,24998,0)="M<)6/,4\X(ZI@NN!-,[GOO'M\\4X_FMSO_,T[)HX.?%A(A#XL;(,@YF@X9^'R"
^XMB(3.9,23,2,24999,0)="""DATA"",396.18,243,3,217,0)"
^XMB(3.9,23,2,25000,0)="M\]<QC]%T8+3RD#$=AI]769`>Y*R.KXO!>=""Q0C[:S+H#S""QG6Q/(D,N;;$F8"
^XMB(3.9,23,2,25001,0)="""DATA"",396.18,243,3,218,0)"
^XMB(3.9,23,2,25002,0)="M&[?3S?:&%9.6?>%!OZ2:=7GG/!B6A';;.9Q/2?@+,@3!)CF6P44\.OE@)\=T"
^XMB(3.9,23,2,25003,0)="""DATA"",396.18,243,3,219,0)"
^XMB(3.9,23,2,25004,0)="M_""G//FW.XT^9-/NX!3WAW_+/V\\+,@3^7<QOU,(U7\O&/:/V=J!6?IA&K>\\"
^XMB(3.9,23,2,25005,0)="""DATA"",396.18,243,3,220,0)"
^XMB(3.9,23,2,25006,0)="MS4.-/Q7S,))F'8T+Q:'D7W5K7(#[K*/RJTJ52T-&L>""C<Q$>UT[P<3TIQO4D"
^XMB(3.9,23,2,25007,0)="""DATA"",396.18,243,3,221,0)"
^XMB(3.9,23,2,25008,0)="M6(TSPZ3RB)_&\+BCO1$+TK@X5+S""P6LS/A-#S9_W:@Z6YD*YW]+LH5J+I^75"
^XMB(3.9,23,2,25009,0)="""DATA"",396.18,243,3,222,0)"
^XMB(3.9,23,2,25010,0)="M>=$TKV""64O+?$9W\UTZ.9/E#CC_D^4.!/Q3Y0XD_E-G#*%K""^5-&/.GB*2N>"
^XMB(3.9,23,2,25011,0)="""DATA"",396.18,243,3,223,0)"
^XMB(3.9,23,2,25012,0)="M<N(I+YX*XJDHGDKB2<C0A0Q=R-""%#%W(T(4,7<C0A0Q=R-""%#%W(R`H962$C"
^XMB(3.9,23,2,25013,0)="""DATA"",396.18,243,3,224,0)"
^XMB(3.9,23,2,25014,0)="M*V1DA8RLD)$5,K)""1E;(R`H962$C)V3DA(R<D)$3,G)""1D[(R`D9.2$C)V3D"
^XMB(3.9,23,2,25015,0)="""DATA"",396.18,243,3,225,0)"
^XMB(3.9,23,2,25016,0)="MA(R\D)$7,O),1JS?@(31-EXHJGU>Y2H4,_W&HP?V=/1,KU['P:WD!C2+NL?("
^XMB(3.9,23,2,25017,0)="""DATA"",396.18,243,3,226,0)"
^XMB(3.9,23,2,25018,0)="MXV;DXM:.<:<H.7J9G`6-.O>#^[VQ'%5:""O)N<GJ_5UZW5KP;GE3'U+KL46LW"
^XMB(3.9,23,2,25019,0)="""DATA"",396.18,243,3,227,0)"
^XMB(3.9,23,2,25020,0)="M4&NH@OB)*#ZYE++/Z$^UYX01[@1&B(9S?RMPR1U""-SX*[XU$AQ7WZT-I,AWQ"
^XMB(3.9,23,2,25021,0)="""DATA"",396.18,243,3,228,0)"
^XMB(3.9,23,2,25022,0)="M+.[[P&3*#3F&.ZOM7D>#?)N8KN<<7N<;X>YEMQ+MD>WATQ)&ZDN*:Y?=G#=^"
^XMB(3.9,23,2,25023,0)="""DATA"",396.18,243,3,229,0)"
^XMB(3.9,23,2,25024,0)="MKHEQ+NNIGR*D@FN+1;.0!_5(#H2D@KMXE""'7^%`7LUC/6S$)'GI%<7(4E]H9"
^XMB(3.9,23,2,25025,0)="""DATA"",396.18,243,3,230,0)"
^XMB(3.9,23,2,25026,0)="M3NBSDW3'12;U`47L7'1#HR779\OML2/('\:D!D\H*)C/6>CMC:""V2O#=>OZ0"
^XMB(3.9,23,2,25027,0)="""DATA"",396.18,243,3,231,0)"
^XMB(3.9,23,2,25028,0)="M$*.X/+#6J_NU4Y;>B3?45$16S]0-JT[9*T_4C+IMIFK.-R?[U('G<_!]6;@N"
^XMB(3.9,23,2,25029,0)="""DATA"",396.18,243,3,232,0)"
^XMB(3.9,23,2,25030,0)="M<=HK9BL9R8(U]:0?7BA[[X_2,7&-7T'<R5L<]TTXVC!(PA''?']*SF^ZN'RH"
^XMB(3.9,23,2,25031,0)="""DATA"",396.18,243,3,233,0)"
^XMB(3.9,23,2,25032,0)="M:+4X'8K[[9B_.`\69;+O#8M/]6-6&E(?\F.XR>BE='Y97-@NN1R&^VNQOH+U"
^XMB(3.9,23,2,25033,0)="""DATA"",396.18,243,3,234,0)"
^XMB(3.9,23,2,25034,0)="MTK+(L-V""=:""P]G.Q(,'E99%ANP5GH<9])!<'8,/V0-Y**]D)7_*B;#8C(]Z&"
^XMB(3.9,23,2,25035,0)="""DATA"",396.18,243,3,235,0)"
^XMB(3.9,23,2,25036,0)="MRF7E?O.K$NM*X@G>_!U.\[H>R;5:?]FJFB?]/:CU,UA`DHA7>5$PE052'FM_"
^XMB(3.9,23,2,25037,0)="""DATA"",396.18,243,3,236,0)"
^XMB(3.9,23,2,25038,0)="MQ\_'1X5;\=D8L$)I.&)[?CX4YQ.EZ,V)/4S9AX6RG[L1?*B;E,X""NU^U)6S`"
^XMB(3.9,23,2,25039,0)="""DATA"",396.18,243,3,237,0)"
^XMB(3.9,23,2,25040,0)="MEC\VX#2G*EYCSA-$B-'>'MQY*DL,B-]X#YTGB0='VN_WL@'X<<6MYOYS'#55"
^XMB(3.9,23,2,25041,0)="""DATA"",396.18,243,3,238,0)"
^XMB(3.9,23,2,25042,0)="M02[NY[6P%>>U&&S>T0G`U$]CZ(IC!IX\O;K1`4WW<__X7=9.B!.>N%OAK<WB"
^XMB(3.9,23,2,25043,0)="""DATA"",396.18,243,3,239,0)"
^XMB(3.9,23,2,25044,0)="M""[\.!H/P>5\>?&;O>\8-IKX95+K6:CW;7W-=LFO3?U1LF.P@Q\^8-_T:*DJO"
^XMB(3.9,23,2,25045,0)="""DATA"",396.18,243,3,240,0)"
^XMB(3.9,23,2,25046,0)="MQ%LZIAA?,V8U2#>XMVB_RL?7806Q^E35;!A^S93@^SCM[/.VL_ZL:73]',-<"
^XMB(3.9,23,2,25047,0)="""DATA"",396.18,243,3,241,0)"
^XMB(3.9,23,2,25048,0)="M3G(,GX[@&&X:R%-CZG^$B.M&<`P'\T,+4-P;41S#T8$=0WGTWN&9S,!=R63"""
^XMB(3.9,23,2,25049,0)="""DATA"",396.18,243,3,242,0)"
^XMB(3.9,23,2,25050,0)="MPF*$<I0*<+0_%""BXO*(^:5E2.5AR?D6=TB)4^2.!@K,KZ92RX`-7.5AR:0""G"
^XMB(3.9,23,2,25051,0)="""DATA"",396.18,243,3,243,0)"
^XMB(3.9,23,2,25052,0)="MU%]E>/#0?BL6*#GG(SDYD,X9:='I([H0]AY;\L3=?J@TI+USZ0!PEM/#5/8$"
^XMB(3.9,23,2,25053,0)="""DATA"",396.18,243,3,244,0)"
^XMB(3.9,23,2,25054,0)="M=2Q""WX63KSK4TMK/`U];'X;BKHW^OG:6)4-^+R;%*\7!(F%!5YOYS\E*_9S5"
^XMB(3.9,23,2,25055,0)="""DATA"",396.18,243,3,245,0)"
^XMB(3.9,23,2,25056,0)="M6%5L]3VJ;3C+XTIS1)DM;'N9\[K/&R_-7+PT-3,[/75Y;=6Y9#E_V2U$A9\("
^XMB(3.9,23,2,25057,0)="""DATA"",396.18,243,3,246,0)"
^XMB(3.9,23,2,25058,0)="M\-M0/V-7ZY[,LHOO5@K2.,O1^6^!26>)1Q0Q1[J%SYK7NO>0DPP;H5MG40_/"
^XMB(3.9,23,2,25059,0)="""DATA"",396.18,243,3,247,0)"
^XMB(3.9,23,2,25060,0)="MF=4+K:XYUVI=89EM\I<LF$7K/7E9XH]$=<-7XUO1[P,MLEG\@!AE`S)*E[S,"
^XMB(3.9,23,2,25061,0)="""DATA"",396.18,243,3,248,0)"
^XMB(3.9,23,2,25062,0)="M%OX';IDQ_H7"".*(59A]G=.Y%S^C#)>3`Q@!X0F*/`Y[""Z@PV3UUK(P?&ZE)3"
^XMB(3.9,23,2,25063,0)="""DATA"",396.18,243,3,249,0)"
^XMB(3.9,23,2,25064,0)="MQ;;PS^P%)`ST`TIKB#\SX].9S)>M'PB[_$HT2/1/Q_T@T=>?PL2.(Z-&'?E>"
^XMB(3.9,23,2,25065,0)="""DATA"",396.18,243,3,250,0)"
^XMB(3.9,23,2,25066,0)="M:$!`B'3IW)V<LR\LGYMU6>L$S,G>*N=DLR/$W]"";FG>9O<;CCKU@DHJ*M[,,"
^XMB(3.9,23,2,25067,0)="""DATA"",396.18,243,3,251,0)"
^XMB(3.9,23,2,25068,0)="M4RP9>&+BFG>TW_3P@E592""T0-&X[5<5E\9@74WV62*=ALX^YJ\1`L/EL:S%5"
^XMB(3.9,23,2,25069,0)="""DATA"",396.18,243,3,252,0)"
^XMB(3.9,23,2,25070,0)="MQ7=WJ#U350$AMYN!65-?X,[W?L51AUPX]VT/9IAJ_Q!SLS>""8^Q%#P0M*T<Y"
^XMB(3.9,23,2,25071,0)="""DATA"",396.18,243,3,253,0)"
^XMB(3.9,23,2,25072,0)="M&>2X2W9X/^N?_U$X-\5LZ)""N%',++)R3\F<;'NEI(+TP6/XLFG;DWO5.&^,R"
^XMB(3.9,23,2,25073,0)="""DATA"",396.18,243,3,254,0)"
^XMB(3.9,23,2,25074,0)="M=BGVX::S:)0L=BR,03%P!JPV2+F<+O7G*WP!>2?F8<Y$*A>'+,7,JRV$,-#^"
^XMB(3.9,23,2,25075,0)="""DATA"",396.18,243,3,255,0)"
^XMB(3.9,23,2,25076,0)="MU:.M]F+,43>7'<X<7S4!,)M7=-W;R!1_V^/#9[+I;#E2P/NP@Q=8JZ,W/]9K"
^XMB(3.9,23,2,25077,0)="""DATA"",396.18,243,3,256,0)"
^XMB(3.9,23,2,25078,0)="MD[+B.5Q67*5EQ=$R""OPJ]O.L]QZ'$>+$^Q5<8#/FL5;;C$`^YK]A9&`.!M\O"
^XMB(3.9,23,2,25079,0)="""DATA"",396.18,243,3,257,0)"
^XMB(3.9,23,2,25080,0)="M_E[8[<3J[G/<3CLD.Z7Q_Z10(&>V^JJ3SRVLM67&K*""^ME,SI-#O^D/&`X4&"
^XMB(3.9,23,2,25081,0)="""DATA"",396.18,243,3,258,0)"
^XMB(3.9,23,2,25082,0)="M[J8""[*;C[FY""\WI5P124!?PL+)HDKYR+S@>0S\,&?C8<)X$4\(8-:!^+]2%&"
^XMB(3.9,23,2,25083,0)="""DATA"",396.18,243,3,259,0)"
^XMB(3.9,23,2,25084,0)="M4$(^,&]HAT2H[8RRE)/^04>70&)A,?G5'&T#P7C(P9`'`C0>GVQ5>J2\F&,_"
^XMB(3.9,23,2,25085,0)="""DATA"",396.18,243,3,260,0)"
^XMB(3.9,23,2,25086,0)="MKZ:RB8$P2S)0V4T>96\5RHY-`W3L55T3!](37JN+Y4.EY_;[>U:]*N$)K668"
^XMB(3.9,23,2,25087,0)="""DATA"",396.18,243,3,261,0)"
^XMB(3.9,23,2,25088,0)="M%O\%$^86:F_%/""OFUU=UQ4QXO)I=2DA0JL0F&5OC&8]3HQ<#$$%53LU>0//8"
^XMB(3.9,23,2,25089,0)="""DATA"",396.18,243,3,262,0)"
^XMB(3.9,23,2,25090,0)="MLKMFJ[%DUI%[;D?S9!0@DDH],D""/Q!CKBS]PUA2`*Y6+5GL%]%CPDI,S^NO("
^XMB(3.9,23,2,25091,0)="""DATA"",396.18,243,3,263,0)"
^XMB(3.9,23,2,25092,0)="M[EDHI;)0J8*G*A4H58KF<=X&E*)4E?RB%_N<1^RCT?1)A-1'A_K,!>J3'GBP"
^XMB(3.9,23,2,25093,0)="""DATA"",396.18,243,3,264,0)"
^XMB(3.9,23,2,25094,0)="M$:^Y:;;:=<-N1--CG<\6S=Z[*Y73G_;>I7.O>>A@I[)0P<G^""D;W`""1Q.2BN"
^XMB(3.9,23,2,25095,0)="""DATA"",396.18,243,3,265,0)"
^XMB(3.9,23,2,25096,0)="M'47<^D'$E8`X423CR`LZ]8P,O#NP;*]_CDG'GG^)J<)D2F#_@@25]X#[SM=Q"
^XMB(3.9,23,2,25097,0)="""DATA"",396.18,243,3,266,0)"
^XMB(3.9,23,2,25098,0)="M+<=A+D7;L)I]<.R+$M_B-[D]3&_+NV'+51.S!%K=I9,!5>?*:5]2')P37<^L"
^XMB(3.9,23,2,25099,0)="""DATA"",396.18,243,3,267,0)"
^XMB(3.9,23,2,25100,0)="MUXOY:%O,[FF;'9NM)CHX(V\8?[TR)V7.@/[(RI^4:9[>&*""FEWKZ,0^;#(C8"
^XMB(3.9,23,2,25101,0)="""DATA"",396.18,243,3,268,0)"
^XMB(3.9,23,2,25102,0)="M%;.*JG8M9#^403]HG^0.RZ_%%)M](1NY&H(%,#`%3`\]V%;79)G1D1=AKX4@"
^XMB(3.9,23,2,25103,0)="""DATA"",396.18,243,3,269,0)"
^XMB(3.9,23,2,25104,0)="MIZ;VG5B0B7(%A8G""@C:S)$UF(\X4EGC2,UB+>BX3R40;)_G\6;8#I'[S''SS"
^XMB(3.9,23,2,25105,0)="""DATA"",396.18,243,3,270,0)"
^XMB(3.9,23,2,25106,0)="M=P+?/%KGCH/-M89QRJ(I$!;GF>?44`52\2`%HGD'XV3^$3(A""J\638&P^,H\"
^XMB(3.9,23,2,25107,0)="""DATA"",396.18,243,3,271,0)"
^XMB(3.9,23,2,25108,0)="M;R4N@;P8JO>/YH)N$;,+K^[+=LW4Z;PPNJE-\JKA;ZD6AUPITNL?/46I0-$H"
^XMB(3.9,23,2,25109,0)="""DATA"",396.18,243,3,272,0)"
^XMB(3.9,23,2,25110,0)="MPFE^5?.J53$QBZI9-:L$K&71J.,;LFB:;?3#""X0KM_9`/,K2/5`R&*\8H0(_"
^XMB(3.9,23,2,25111,0)="""DATA"",396.18,243,3,273,0)"
^XMB(3.9,23,2,25112,0)="M$XLBL)\_$PY66%K8ZUY*G!0(34?KNV.3+9P$BI',`#LNY=&ABSM)X*3E(-'Z"
^XMB(3.9,23,2,25113,0)="""DATA"",396.18,243,3,274,0)"
^XMB(3.9,23,2,25114,0)="M;PR7@_6]\-U\B<.?3%TS&A%N=3.*6]V$L$C,[T[W!K^\+4&KO,,&RG\)I_0S"
^XMB(3.9,23,2,25115,0)="""DATA"",396.18,243,3,275,0)"
^XMB(3.9,23,2,25116,0)="M\3Y<W7F)/_RP9Z0Y)$@?/CA=2]7-^92]T.ITS2;A?\-@>.T66@KH.CR1:IB&"
^XMB(3.9,23,2,25117,0)="""DATA"",396.18,243,3,276,0)"
^XMB(3.9,23,2,25118,0)="MC;T%_$.""&&=@%CF+'*S;]`']TJBDT,$;'>O8(15C+^&Z*Z->-]&(LR?0OZ]1"
^XMB(3.9,23,2,25119,0)="""DATA"",396.18,243,3,277,0)"
^XMB(3.9,23,2,25120,0)="M!N\.?HV#88DJ\RRE^)/4(#_-ALDIKRN\A5R`IHY8S<J"":1\-]K#Y-<NHU.I)"
^XMB(3.9,23,2,25121,0)="""DATA"",396.18,243,3,278,0)"
^XMB(3.9,23,2,25122,0)="M;ZN;\<]4C89;LZ6,CFON#=-9L4O9Z$A.!CU(&ZS(+=K<UOS69I8V]0EJ[Z?]"
^XMB(3.9,23,2,25123,0)="""DATA"",396.18,243,3,279,0)"
^XMB(3.9,23,2,25124,0)="MX8V]2^6ZE5@JN5M/3*;MC'N8KQVCE3/1C):>PCS@&`72:I)16C/-+ED=>9W@"
^XMB(3.9,23,2,25125,0)="""DATA"",396.18,243,3,280,0)"
^XMB(3.9,23,2,25126,0)="M(D5\G:/<@]$LNLG/HF5H4>WV>!23CJV(27/0I._C)GTYYD84PUBY^4@F/7BF"
^XMB(3.9,23,2,25127,0)="""DATA"",396.18,243,3,281,0)"
^XMB(3.9,23,2,25128,0)="MUZPP(,ZZ*([$9&IV%TWVR$;<'%:E/%1I@:OT1:'2;4""E:&?6VWQ5&L@)VNIW"
^XMB(3.9,23,2,25129,0)="""DATA"",396.18,243,3,282,0)"
^XMB(3.9,23,2,25130,0)="MQY*5AL6B9UCL""1@6VR(?8""5>@P\P60][#F=%'0`IN2JWW$T6I94YL$W5@2]L"
^XMB(3.9,23,2,25131,0)="""DATA"",396.18,243,3,283,0)"
^XMB(3.9,23,2,25132,0)="M2+((EU#.GOA+WN4`B8GFM-\LEH.6>Q]<F0@%0P?@77P^TLS?$G'F*VTG37R1"
^XMB(3.9,23,2,25133,0)="""DATA"",396.18,243,3,284,0)"
^XMB(3.9,23,2,25134,0)="M""O**=Y842A&/G(?(!B2OE]3'%#7""P(C7YU+0MZM\67G4""W91ZK8?QZ)TV\:5"
^XMB(3.9,23,2,25135,0)="""DATA"",396.18,243,3,285,0)"
^XMB(3.9,23,2,25136,0)="MZ#9I<?M\S,]MP!61T7;`G:376#<-Y#>L]QOKLM%>B&2TY(KL<@5H-0ZQJOV)"
^XMB(3.9,23,2,25137,0)="""DATA"",396.18,243,3,286,0)"
^XMB(3.9,23,2,25138,0)="M*H4_,W#ZC\T9!=PE<=',..)71R3O""F]%,N-H^%#X-E<""$""LR^;%\[/CWN.K8"
^XMB(3.9,23,2,25139,0)="""DATA"",396.18,243,3,287,0)"
^XMB(3.9,23,2,25140,0)="M$5=2#?!R\20-KGS0'X]YQZ0YWS')JHN&7Z\I,1*J>0QR4H;GUV(!N+:'O2F9"
^XMB(3.9,23,2,25141,0)="""DATA"",396.18,243,3,288,0)"
^XMB(3.9,23,2,25142,0)="M`I^S9A&7Q`Y*SF2@MEP/BXGZ*T4@LYQ.]T,;\K+9N=F:SAN=*V955:ZAPRQ<"
^XMB(3.9,23,2,25143,0)="""DATA"",396.18,243,3,289,0)"
^XMB(3.9,23,2,25144,0)="M[>M<Z>^(3GDS!EYE&$JCP\;I>*'*>J+YLUSS'XH^.`SX#:)M^AEG*G=,VZKV"
^XMB(3.9,23,2,25145,0)="""DATA"",396.18,243,3,290,0)"
^XMB(3.9,23,2,25146,0)="MC#J9SOPZ$M\86UT[U<5<F3BQ94#,SK`LIAQ!2,Y9?-ZK:5&/""/9[""W1OYLUF"
^XMB(3.9,23,2,25147,0)="""DATA"",396.18,243,3,291,0)"
^XMB(3.9,23,2,25148,0)="M#RE<Z76N&MU>8]F7X6I=8(`[4?$LP%""7:$&N`Q?GGC#I@FL""K189U_N`?10V"
^XMB(3.9,23,2,25149,0)="""DATA"",396.18,243,3,292,0)"
^XMB(3.9,23,2,25150,0)="M\IJ5PL:<$NN_E7I%.VMDU7I931MWE=7%///^A](HNH;E0&9H(]J[,4G9-Y7*"
^XMB(3.9,23,2,25151,0)="""DATA"",396.18,243,3,293,0)"
^XMB(3.9,23,2,25152,0)="M1MM%CYQGJSUG-+]HITX;]8IEXTEWRNYVC""?1+^P5VDG9ZOD,64,^%[ON@0P&"
^XMB(3.9,23,2,25153,0)="""DATA"",396.18,243,3,294,0)"
^XMB(3.9,23,2,25154,0)="M8\(MR:?V:ZJ32R[:J?OVTPJ:GN7E(_OY=;S^^V-QZ9IU1=RZ$,'E];.FC1D,"
^XMB(3.9,23,2,25155,0)="""DATA"",396.18,243,3,295,0)"
^XMB(3.9,23,2,25156,0)="M0P>5]?\/*JO\.QVF#G,$L[=%!=6SJJBR[('I,`EV`VOA]Q.>L/+8/%IJ3MDI"
^XMB(3.9,23,2,25157,0)="""DATA"",396.18,243,3,296,0)"
^XMB(3.9,23,2,25158,0)="M[&I5#`P5E7KD6,=8LB?05Y5Z#SM@*1LCYJ.!B[-ER>QW'21K5KV!_L'YF>F)"
^XMB(3.9,23,2,25159,0)="""DATA"",396.18,243,3,297,0)"
^XMB(3.9,23,2,25160,0)="ME-'I+G1:\QVC,8&&MC'?;*&A7V%?VY56>^EX""H^#DZG9!9/_PK)I0L0\N5<D"
^XMB(3.9,23,2,25161,0)="""DATA"",396.18,243,3,298,0)"
^XMB(3.9,23,2,25162,0)="M""RR20A.IQ+_&N6[$E6\NL3-1QWRR9R&_@+XROE""I61V:M#!!P+Q;>(5F7V-\"
^XMB(3.9,23,2,25163,0)="""DATA"",396.18,243,3,299,0)"
^XMB(3.9,23,2,25164,0)="M[R7ZRXF4:1&W$RW7MMG!UV=8GE'K8E>4?C&1:K92M5Z'_(Z:A""Z$1I>?R(A3"
^XMB(3.9,23,2,25165,0)="""DATA"",396.18,243,3,300,0)"
^XMB(3.9,23,2,25166,0)="M0MZ`WKJAF6S0.#S:'M#22""-1[5ZGW;*1&Y;J`Y6A\QMGTFG_U]WUZR0,A'&@"
^XMB(3.9,23,2,25167,0)="""DATA"",396.18,243,3,301,0)"
^XMB(3.9,23,2,25168,0)="M#FIT<'+1A$3='&@K5,XXJ0,3B2$AC@1(;%*J`<KL[F+B6_@$/H4#OH'Q""0R:"
^XMB(3.9,23,2,25169,0)="""DATA"",396.18,243,3,302,0)"
^XMB(3.9,23,2,25170,0)="MZ**]N^_:N[:4'H*D]@$N]^O=??^_[Z<\,SOJ+ALVFR\JY'""(5>18??I?+$OX"
^XMB(3.9,23,2,25171,0)="""DATA"",396.18,243,3,303,0)"
^XMB(3.9,23,2,25172,0)="MXW8KW[1,FYC2??PN2<;)P;X^BZAB`AW3IOOLMC&-.HIJ1%;Y?;UX,Y^]VV1S"
^XMB(3.9,23,2,25173,0)="""DATA"",396.18,243,3,304,0)"
^XMB(3.9,23,2,25174,0)="M,=YR.FBK$ND$-DEPC0""OL;#E;C8XDTG52[K<3""94;U/+-GB""]*3HV\.\*_Y!"
^XMB(3.9,23,2,25175,0)="""DATA"",396.18,243,3,305,0)"
^XMB(3.9,23,2,25176,0)="MP0G-+D[S/I<X39Q@@RYO$$MJ\""*Y'J*?'ZKR-:YH@L`K'D+P[H&JDLOQLV&6"
^XMB(3.9,23,2,25177,0)="""DATA"",396.18,243,3,306,0)"
^XMB(3.9,23,2,25178,0)="M60U6O!-;-,K""BD>PXG[$D!BV(IJTI""$LN2ZY9#([QN!K0H&-1+D)QQ`-K2A7"
^XMB(3.9,23,2,25179,0)="""DATA"",396.18,243,3,307,0)"
^XMB(3.9,23,2,25180,0)="M<+-Y)MB\`_<6-KM.!\W%.6'3+""B,8X!Q&\Z!N#""TZ6'T7/G=QET""DC""2^B+,"
^XMB(3.9,23,2,25181,0)="""DATA"",396.18,243,3,308,0)"
^XMB(3.9,23,2,25182,0)="MK""42)&<!C/M,D!(!PY""KP=GF833R+3RGB.AJTW9Z2+Y`+""#S(0G%KNH6[/PC"
^XMB(3.9,23,2,25183,0)="""DATA"",396.18,243,3,309,0)"
^XMB(3.9,23,2,25184,0)="M&Q6>*Z2,LS""$ED7#`&TE%JV:2B(''JTH*P=Q:`MIHY=)XJ:LG#*S4\)5T:=S"
^XMB(3.9,23,2,25185,0)="""DATA"",396.18,243,3,310,0)"
^XMB(3.9,23,2,25186,0)="M52)G&HS^R4R#B%(-ED6#V/0>_*B#""!UW<M7!(;L>^OLFM)B*'HV/'M7A;;SY"
^XMB(3.9,23,2,25187,0)="""DATA"",396.18,243,3,311,0)"
^XMB(3.9,23,2,25188,0)="M_"":+[4&*K,>'@->&T!(WC.C_\R]^.EMJA8I6CSCSR;,?<QQS(71S$L>2H4:+"
^XMB(3.9,23,2,25189,0)="""DATA"",396.18,243,3,312,0)"
^XMB(3.9,23,2,25190,0)="M/+RE,+-]B6>.`XY$Y=&#\YKANJSTE`RD#X&$$J6O#-]5K`P];5/C0&KI4*DQ"
^XMB(3.9,23,2,25191,0)="""DATA"",396.18,243,3,313,0)"
^XMB(3.9,23,2,25192,0)="M_)KN)^0(=F8N04:_Z_L>PT?J[WNR&%GU>8HE7G6RM#""X+]_""4*7/D/NBJ7I!"
^XMB(3.9,23,2,25193,0)="""DATA"",396.18,243,3,314,0)"
^XMB(3.9,23,2,25194,0)="M+I64KS=P-IU1_56O31+</J<>@""S%!#4T,C]02P,$%``""``@`Z6H*-2I51.63"
^XMB(3.9,23,2,25195,0)="""DATA"",396.18,243,3,315,0)"
^XMB(3.9,23,2,25196,0)="M/```E!L""`!$```!B;VYE<U\Q,3,N<&YL+F9R;>P]:W/;MK+?.]/_P,G]H.3>"
^XMB(3.9,23,2,25197,0)="""DATA"",396.18,243,3,316,0)"
^XMB(3.9,23,2,25198,0)="M-B4`/C-SIY,X3IM.$GMLMYD[=\YT8`FRV5*D#DG9T?GU!P""?``$""DI7DQ+:_"
^XMB(3.9,23,2,25199,0)="""DATA"",396.18,243,3,317,0)"
^XMB(3.9,23,2,25200,0)="M6`0I<;&[V!=V%_GE7V1>.>_P)4DOMFMRLGR3%ZL7S@4?^?X[QWE'EI7SO\Z/"
^XMB(3.9,23,2,25201,0)="""DATA"",396.18,243,3,318,0)"
^XMB(3.9,23,2,25202,0)="MT'79Y46^IE<1^_@Q6537]`+%[.I7DEQ=LR<!8I='>%TE>4:O9^^/SWXYGGW_"
^XMB(3.9,23,2,25203,0)="""DATA"",396.18,243,3,319,0)"
^XMB(3.9,23,2,25204,0)="M'<D6WW^7#U[(7O7VM?%ET!/>%DZ_[=7)A^-SZ6U\[,]3G)$TI*_C'P:O\WW-"
^XMB(3.9,23,2,25205,0)="""DATA"",396.18,243,3,320,0)"
^XMB(3.9,23,2,25206,0)="MS/P`""2_S(.#72<:N9J<GI[^?SMC(*W)#TK=91@HZ?GESAI.2+/B-O%B0XKS:"
^XMB(3.9,23,2,25207,0)="""DATA"",396.18,243,3,321,0)"
^XMB(3.9,23,2,25208,0)="MIH3=*<^3[""HE'.0\S=G3\_0\26](P<;>Y%GU_.@:%R5A+WA]_.;E[^\N_CSZ"
^XMB(3.9,23,2,25209,0)="""DATA"",396.18,243,3,322,0)"
^XMB(3.9,23,2,25210,0)="M]>79^?%%_T3WU5<IGO_=C7=P_@A`-_@!KPBGPKESCK/2.2=%LIQUMUO0_O\?"
^XMB(3.9,23,2,25211,0)="""DATA"",396.18,243,3,323,0)"
^XMB(3.9,23,2,25212,0)="M;.@4%R2KV`TZ]`:G)0?U`E^>L&G0,4X6`:N<=L@;4K%#+/#=^KK&K5]?M-B%"
^XMB(3.9,23,2,25213,0)="""DATA"",396.18,243,3,324,0)"
^XMB(3.9,23,2,25214,0)="M-6&'Q`SJ@2$Y\XR4+YS3(K],R<HY7Y-YLDSFE`9EE1?;6?T%,^+TJ!LC#PV&"
^XMB(3.9,23,2,25215,0)="""DATA"",396.18,243,3,325,0)"
^XMB(3.9,23,2,25216,0)="M]>B3$;@L7^7IXA_U+34B.4^J\`>5Z$,^'*(/14!$('!#""8%PC,#_IK@C)05\"
^XMB(3.9,23,2,25217,0)="""DATA"",396.18,243,3,326,0)"
^XMB(3.9,23,2,25218,0)="M<[E**J?*';Q84$BJ(B$ENZRN"";VY6N$.FQ\ITWXL,'OG1;'10OYJ4U5Y!B(*"
^XMB(3.9,23,2,25219,0)="""DATA"",396.18,243,3,327,0)"
^XMB(3.9,23,2,25220,0)="M>_U1I'T<3@*/9.)#?P3[44IPT0`U8,*&/B?949K,_Z8#G^KW_T+H`DSF?-0`"
^XMB(3.9,23,2,25221,0)="""DATA"",396.18,243,3,328,0)"
^XMB(3.9,23,2,25222,0)="M=*P&&H;3&`]],]`UHL=0@SM##8$&U1&Z,]1':5Z2S[*:P%ZK:7(=""7B%=\#K"
^XMB(3.9,23,2,25223,0)="""DATA"",396.18,243,3,329,0)"
^XMB(3.9,23,2,25224,0)="M^;S(T_15_HDMP.Y""0&X\1""T,1<SZ'I!0B[RH&<F+?S6_B(OG%P7%#Y7]@R7E"
^XMB(3.9,23,2,25225,0)="""DATA"",396.18,243,3,330,0)"
^XMB(3.9,23,2,25226,0)="M.'^0HNH?.</9%9NZ'[JJV\I?>+FI\OH1+7J:'U/(;%\4.OTB`.U`([91>]T)"
^XMB(3.9,23,2,25227,0)="""DATA"",396.18,243,3,331,0)"
^XMB(3.9,23,2,25228,0)="M'N""V0Y(BEKBJ%=N7A$&^(!5.4K)X,6L?M>&T*5[3<IL%OVDX3L]S#0,I<1E:"
^XMB(3.9,23,2,25229,0)="""DATA"",396.18,243,3,332,0)"
^XMB(3.9,23,2,25230,0)="MXC*.95QZ06B%RW;$<687M=`FGRH*I[/.RS*A6/Z!XK><%\DEX7?G23'?K,H*"
^XMB(3.9,23,2,25231,0)="""DATA"",396.18,243,3,333,0)"
^XMB(3.9,23,2,25232,0)="M9W,JYW&V<)(LJ1*<.JN9\S^#7\-9LB3T.?:>TLF7_-L+:L#@DC@4Y4GVUZ;8"
^XMB(3.9,23,2,25233,0)="""DATA"",396.18,243,3,334,0)"
^XMB(3.9,23,2,25234,0)="M]C13:(=IW$0ZW,2^B=$L<3-[C2O""0*<S(-7G9""_X5=C+<RW9""\1`1F&,[%!X"
^XMB(3.9,23,2,25235,0)="""DATA"",396.18,243,3,335,0)"
^XMB(3.9,23,2,25236,0)="ME&\HFIPRH?SR^?'X=9:IARSQZ$6AC,?(4N2=T.53./-\M:+0E2T.I]9'K`$*"
^XMB(3.9,23,2,25237,0)="""DATA"",396.18,243,3,336,0)"
^XMB(3.9,23,2,25238,0)="M^+Z1NB""(+<F[*1BZG*H@N.*@.4M*J.HZ*2FPV2)A#WZC%-]=)GG`EA$@E%$."
^XMB(3.9,23,2,25239,0)="""DATA"",396.18,243,3,337,0)"
^XMB(3.9,23,2,25240,0)="MW<A2*+7BN$P65%HOEQ0(BO4B7SESF1H]YH\S3(7YXLXSM-7NL&?LCJD0VG&&"
^XMB(3.9,23,2,25241,0)="""DATA"",396.18,243,3,338,0)"
^XMB(3.9,23,2,25242,0)="MH_F4!Y\0C`/+&2%OI$=B2SURT<+O4)]IS:2@81Z3`.N,`H!\&6)?ACCT=Q$W"
^XMB(3.9,23,2,25243,0)="""DATA"",396.18,243,3,339,0)"
^XMB(3.9,23,2,25244,0)="M!X`VU""T)""58X8A=+""02>WSM]0MU%.Z2%8$^DP?N(-*T6[D71'=&&[A7:CJEV"
^XMB(3.9,23,2,25245,0)="""DATA"",396.18,243,3,340,0)"
^XMB(3.9,23,2,25246,0)="M9D8""^S^RH3T194$TUE=CI/4BLXUE`A>Z;@?VV+U60_:>K'(FY=A_DVG:!O<&"
^XMB(3.9,23,2,25247,0)="""DATA"",396.18,243,3,341,0)"
^XMB(3.9,23,2,25248,0)="MKD\TUC,!5$`&PB]NTC-S.*$(^$!N3<1\EV2DI.,%]7%+>N?IP+F:/3,;+YV/"
^XMB(3.9,23,2,25249,0)="""DATA"",396.18,243,3,342,0)"
^XMB(3.9,23,2,25250,0)="MS[Y<ELSM3^8X5=`""32ZNI*R:2$;ST:3YW1%%`!S;-J&KHHC?:QKFAB[(XIRD"
^XMB(3.9,23,2,25251,0)="""DATA"",396.18,243,3,343,0)"
^XMB(3.9,23,2,25252,0)="M#!AI<F\KLE*L53:LP]EYQ537;#!R6N17+(B9W)!TZ]SF12G<?KM:%_D-57;"""
^XMB(3.9,23,2,25253,0)="""DATA"",396.18,243,3,344,0)"
^XMB(3.9,23,2,25254,0)="M8%:18I54W$>^_8FJR%5""?X%JR>%37'WV1'J_2:NDFTAOEPA4\""RH@+14`+YG"
^XMB(3.9,23,2,25255,0)="""DATA"",396.18,243,3,345,0)"
^XMB(3.9,23,2,25256,0)="M)D,O^/J%$2O(`*//1X8/>29@^3U94+9D$G8X>KXIKABW""DB]^.GT8CCPFM(`"
^XMB(3.9,23,2,25257,0)="""DATA"",396.18,243,3,346,0)"
^XMB(3.9,23,2,25258,0)="MIPY>KU/%3YQLJC4=9'3*/VVOB'#SZ/3EZ?"":A<&N25Y6^6I[5T+Z4X0\.OWX"
^XMB(3.9,23,2,25259,0)="""DATA"",396.18,243,3,347,0)"
^XMB(3.9,23,2,25260,0)="M_@PODOR7(M^L$5M6XI!$5]0OG=9;&\?-(F]$5Z02>*@7Q>?7^6V]BR33]+=-"
^XMB(3.9,23,2,25261,0)="""DATA"",396.18,243,3,348,0)"
^XMB(3.9,23,2,25262,0)="M627++:>A-$DV=HH7@RT5,41M=DA^[@""@8G2SRLI>%6A-^BEN^C\BK+L/>4^K"
^XMB(3.9,23,2,25263,0)="""DATA"",396.18,243,3,349,0)"
^XMB(3.9,23,2,25264,0)="M`44""D[(!P$[;#&)+4]JFM[L[Y-._V.2[/&@E%!II9$<B#X7[DLB-'TDT1:(V"
^XMB(3.9,23,2,25265,0)="""DATA"",396.18,243,3,350,0)"
^XMB(3.9,23,2,25266,0)="M/*^FT<E9HYF80]U=F)QJ?T0MX(Y#8OU3';6HB>J:J'5PY?5+GB^&\N8-3@K!"
^XMB(3.9,23,2,25267,0)="""DATA"",396.18,243,3,351,0)"
^XMB(3.9,23,2,25268,0)="MHLCS8D)]U$1@HK>9AD@(S?B``M$0R(MDW?/8QR1;Y+<=MO/LBA'`Q@U@:XKK"
^XMB(3.9,23,2,25269,0)="""DATA"",396.18,243,3,352,0)"
^XMB(3.9,23,2,25270,0)="M(<7B&H<4_-%.`PIMZ06^P=5UB'433QH$^>HRIPN%>6+M9\.BV=L9""SP_'BK@"
^XMB(3.9,23,2,25271,0)="""DATA"",396.18,243,3,353,0)"
^XMB(3.9,23,2,25272,0)="MEG>ND\JT*L8[SM,KI65Z]:3KK=1(WGCN^2Z4]K?&L<2Q*8MBA4W""G-LNS8,M"
^XMB(3.9,23,2,25273,0)="""DATA"",396.18,243,3,354,0)"
^XMB(3.9,23,2,25274,0)="MB6\U%CW>>[78G#;@'^KP/_+_]R?`VZRLBLV\$ERD(3?!.\^&"":[(SCKP76!C"
^XMB(3.9,23,2,25275,0)="""DATA"",396.18,243,3,355,0)"
^XMB(3.9,23,2,25276,0)="M'?1;AD/G%#V&""SC%@$`,_D^3%L<3N.2\N'JN32A.2,(+@9B%AVKYLW-B7""<6"
^XMB(3.9,23,2,25277,0)="""DATA"",396.18,243,3,356,0)"
^XMB(3.9,23,2,25278,0)="M[V.N'-#DRH%`F>T%431,-8FD9+EV3\8B6:[VU%/G9)UD[(Z8W?4-Y\K5TB9&"
^XMB(3.9,23,2,25279,0)="""DATA"",396.18,243,3,357,0)"
^XMB(3.9,23,2,25280,0)="MZC0H!(2,,QC<,0WJ0+E;3-AY8I""TI7@@I&VY(KA!&_$9&`IMOE\KZV*WBQ0<"
^XMB(3.9,23,2,25281,0)="""DATA"",396.18,243,3,358,0)"
^XMB(3.9,23,2,25282,0)="MEJQ00=:QC%-*.*U\ZZ2;3K9-2C99K4Y*,Z3*\@UZ:>;!H30+@)CFBVK&>)1F"
^XMB(3.9,23,2,25283,0)="""DATA"",396.18,243,3,359,0)"
^XMB(3.9,23,2,25284,0)="MHWT`A31S`TWJKY!)V3)4AZ(XW%N</?V05X1EKAY_PBO*;,6S>Y(%C-Q0B<M("
^XMB(3.9,23,2,25285,0)="""DATA"",396.18,243,3,360,0)"
^XMB(3.9,23,2,25286,0)="M0""5L,V<[NR@&QC3@;@U>L(0/""A9V5AOJ=EX2AV*WHAX>Q>>2Y0>/4L>:C+""R"
^XMB(3.9,23,2,25287,0)="""DATA"",396.18,243,3,361,0)"
^XMB(3.9,23,2,25288,0)="MSKP>Y([-YDY!_KDA9?7<N:!/I#B[VN`KGHCU9(XW=&TXEUN60E:0<I-6=/Q)"
^XMB(3.9,23,2,25289,0)="""DATA"",396.18,243,3,362,0)"
^XMB(3.9,23,2,25290,0)="M]]95OA!^:YG0IUE&2MY0N?GITKG$[(?H""+ZZ*O`-#Q\_WRU3N<%N9(%=X,J*"
^XMB(3.9,23,2,25291,0)="""DATA"",396.18,243,3,363,0)"
^XMB(3.9,23,2,25292,0)="MUY/%<,L9`T[%SYP_ZS^63C.<.NXGWS[""_V8&6&,;6*$$*VHC,E.P7@YA7>64"
^XMB(3.9,23,2,25293,0)="""DATA"",396.18,243,3,364,0)"
^XMB(3.9,23,2,25294,0)="M'&GR-]M7.03<P+6!.Y)Q''AFN,D0[BROM/#N`BZP`3<(I`7G1T9P.\9>#,%."
^XMB(3.9,23,2,25295,0)="""DATA"",396.18,243,3,365,0)"
^XMB(3.9,23,2,25296,0)="M629^@VY<S^(I'ZNN<49]GI]\UUE3'QA?)FE2;9_1.0X7R=WG""VWFZTE9SIX7"
^XMB(3.9,23,2,25297,0)="""DATA"",396.18,243,3,366,0)"
^XMB(3.9,23,2,25298,0)="MV,]W/IPOILQ%,&4Q+$_;>:J<[:8<SO>NLT4VXE1>\'T&M\5LE]ULWU+H,S8S"
^XMB(3.9,23,2,25299,0)="""DATA"",396.18,243,3,367,0)"
^XMB(3.9,23,2,25300,0)="M""FE.U7J=6I>4Y88XMTEUG6_J6]2FR:Z8M%V1@CC#V3()NTG[[;&)B7D6$XLD"
^XMB(3.9,23,2,25301,0)="""DATA"",396.18,243,3,368,0)"
^XMB(3.9,23,2,25302,0)="M-8%B9#^OTY2G_[*T8.)LJ>''D@3GZ89OH#KT'YT#U<ZM<EA2NRV_98,IN<)I"
^XMB(3.9,23,2,25303,0)="""DATA"",396.18,243,3,369,0)"
^XMB(3.9,23,2,25304,0)="MNAW.BTY[GE]ER;\H.=?7!?W=)CML8H*^Q01'>M#S[?7@<<(3IZKMNIO?:IT2"
^XMB(3.9,23,2,25305,0)="""DATA"",396.18,243,3,370,0)"
^XMB(3.9,23,2,25306,0)="MED;<*""#*=F4=CJ9+DZK(5;U3QLF:""KJ+\G>R9+N;1;XN$H8QEF[=_2#7G@R1"
^XMB(3.9,23,2,25307,0)="""DATA"",396.18,243,3,371,0)"
^XMB(3.9,23,2,25308,0)="M;%_M!_:[3/DMM_1'^6H@(LLSIF]5'OMJJV/W*<Z)H:;.I?6-VK(&=#!7R=W%"
^XMB(3.9,23,2,25309,0)="""DATA"",396.18,243,3,372,0)"
^XMB(3.9,23,2,25310,0)="M5=+8[Y$J&%$[/XW]'@AE>I+]W@19'^WW4>[(>*E%:ADIE11)(K*+*5I8[XJP"
^XMB(3.9,23,2,25311,0)="""DATA"",396.18,243,3,373,0)"
^XMB(3.9,23,2,25312,0)="MXK=NIT=J\2O&;]!(B<JV61N%54BG9A_LDJ\<Y\FK39(NVN#X$Z8\YFR?GLH9"
^XMB(3.9,23,2,25313,0)="""DATA"",396.18,243,3,374,0)"
^XMB(3.9,23,2,25314,0)="M*HE*;J.MZYO4^DQQLI*4**OB6-`9)MS*7FP*KH)X""0GSH+C*>5H^8V8\%6[-"
^XMB(3.9,23,2,25315,0)="""DATA"",396.18,243,3,375,0)"
^XMB(3.9,23,2,25316,0)="M3]4_?2M(NC1E7\N8`4\M\21EFT-.4LNI)Z]SZC6P)((.T%N^U_4#DW)K7%`X"
^XMB(3.9,23,2,25317,0)="""DATA"",396.18,243,3,376,0)"
^XMB(3.9,23,2,25318,0)="M!8N__I:F1.A)(WP98A@@^UC\5&18$""J2RE(]L(.>;`BEF#LE$F$I2,X""5\Q\"
^XMB(3.9,23,2,25319,0)="""DATA"",396.18,243,3,377,0)"
^XMB(3.9,23,2,25320,0)="MN<+%@LVP(U1!OWHS1`C.JK8>D]&%ZZ:]I@U=BVEW-5S]]J""W^[S/R$U"";IUV"
^XMB(3.9,23,2,25321,0)="""DATA"",396.18,243,3,378,0)"
^XMB(3.9,23,2,25322,0)="M^IR3^-SY,%.#-VP)4K-O/M\4>+YEO%IN+H?SYDE:""XZGYS/#S-3V.O""F5IZ%"
^XMB(3.9,23,2,25323,0)="""DATA"",396.18,243,3,379,0)"
^XMB(3.9,23,2,25324,0)="M_P8,+X;(MWBQS$D6+X;&%T<6+Q[1TN+-2/_F6F'S*:ML!^G=LK?PE6T'!!3&"
^XMB(3.9,23,2,25325,0)="""DATA"",396.18,243,3,380,0)"
^XMB(3.9,23,2,25326,0)="M0Q@/*OQ#P7:H?;D>4S%\X""7^GL8FAVIA*M5Y2\P`VOH9""TOA34I!^_'W]7TQ"
^XMB(3.9,23,2,25327,0)="""DATA"",396.18,243,3,381,0)"
^XMB(3.9,23,2,25328,0)="M$Q!4K]W63=&4%)NUS^P-]PFR^=;D1\'8`H)`ME0L('A-A7E?,:8'`+D6`(QB"
^XMB(3.9,23,2,25329,0)="""DATA"",396.18,243,3,382,0)"
^XMB(3.9,23,2,25330,0)="M;J.J:@4$YX1IELJ(`J11&3&<H@(:;;=-^))_4""^OP-GLOU`\HR[_:LUSE9D+"
^XMB(3.9,23,2,25331,0)="""DATA"",396.18,243,3,383,0)"
^XMB(3.9,23,2,25332,0)="MN1P6ZM*K-N>2?EQR;M^L2X=;.))""Y,AECZWRJG%&<^ZP+C<9-XIPREZ$DV)8"
^XMB(3.9,23,2,25333,0)="""DATA"",396.18,243,3,384,0)"
^XMB(3.9,23,2,25334,0)="M/;93.!39X""66XO8@"",VD.:4.?[+FDZ`&#S,""<$IMG:2^7N)YE1<3(8!:YON>"
^XMB(3.9,23,2,25335,0)="""DATA"",396.18,243,3,385,0)"
^XMB(3.9,23,2,25336,0)="M1OT@H:=(M\]P`/7CWV&7K\T(XFM>3`]2\KSGRBZ5.]KMDS;[D-LE9BES?\:*"
^XMB(3.9,23,2,25337,0)="""DATA"",396.18,243,3,386,0)"
^XMB(3.9,23,2,25338,0)="M5)OW,_M(R-]IGT`].Z:+:>M`9KDAYY;>+.5[@-V#E!^SZGIT$[&;GN:FSVX&"
^XMB(3.9,23,2,25339,0)="""DATA"",396.18,243,3,387,0)"
^XMB(3.9,23,2,25340,0)="MHYLGK-`8.]N^Q0<=?-<%0]DXA?""9$>&Q'<*CO1#N6B(<F!#^*RNO[N?98'.!"
^XMB(3.9,23,2,25341,0)="""DATA"",396.18,243,3,388,0)"
^XMB(3.9,23,2,25342,0)="MMX-!CL50&FR>E&CRBE1T)*,WV/+RY-OO\X+4:,0UWLUX!%Y@AT@`P3Z8A):8"
^XMB(3.9,23,2,25343,0)="""DATA"",396.18,243,3,389,0)"
^XMB(3.9,23,2,25344,0)="MA""9,OJ>^\'""F]&O4%9X-7!/*=40_89Y&&:GVXR79YWLFG8#""\3S1P]N/1Y.H"
^XMB(3.9,23,2,25345,0)="""DATA"",396.18,243,3,390,0)"
^XMB(3.9,23,2,25346,0)="MCBU0#5Q_5UQ#:EM$#P_7GLG_X?)0]G]@O=`:U2,X0*CV'?LE&3WT'F>^;D]6"
^XMB(3.9,23,2,25347,0)="""DATA"",396.18,243,3,391,0)"
^XMB(3.9,23,2,25348,0)="M;4F&@CT2R/:2?8\S]H\R6+Y.<;FZ-RD-:C,3BOL/,M8LMJIF9Z1,%AL*`3.3"
^XMB(3.9,23,2,25349,0)="""DATA"",396.18,243,3,392,0)"
^XMB(3.9,23,2,25350,0)="MLP9M7!TZ""36QI=8*$X:FJ^FJ!0(QSN']QZ23\=#,.)U,P*D'Y#UV&=XV=7B0"
^XMB(3.9,23,2,25351,0)="""DATA"",396.18,243,3,393,0)"
^XMB(3.9,23,2,25352,0)="M^1_[C]ED(XD*5!(5Q%$O40$21>JH1Z7_P$5JH(GGANKD,21L/L42(X\6WD1("
^XMB(3.9,23,2,25353,0)="""DATA"",396.18,243,3,394,0)"
^XMB(3.9,23,2,25354,0)="MJ?>6WR6]6YTY'W'*FJG=$RD+0G5L#HH[4DBVL6RB+""S.;Q*A2..K`RBZ8)*8"
^XMB(3.9,23,2,25355,0)="""DATA"",396.18,243,3,395,0)"
^XMB(3.9,23,2,25356,0)="MCX*O(D%;'R=R=0X/%)K^>3(#1L#D[\`HC`[EJO_.2[""8%WA+F9:Z<ZUKMR2W"
^XMB(3.9,23,2,25357,0)="""DATA"",396.18,243,3,396,0)"
^XMB(3.9,23,2,25358,0)="MSA87BX'?]W+X)/B)>N3)H))>O-W_4/L@VV]T^G0D,/5M\""/BM\N!HZ63GZJ>"
^XMB(3.9,23,2,25359,0)="""DATA"",396.18,243,3,397,0)"
^XMB(3.9,23,2,25360,0)="MNTU25;M_`<06OU),'CYT^1GJUKW:)/7""J4J""R+V[_#ROJ*%UGP2H.C'.]Z82"
^XMB(3.9,23,2,25361,0)="""DATA"",396.18,243,3,398,0)"
^XMB(3.9,23,2,25362,0)="MC@XA0%OY$VK#6""(,(V&DJ!(8""Z/@\,*(I0?7&;NB1%HEV:8B""IG4?P'X/R+7"
^XMB(3.9,23,2,25363,0)="""DATA"",396.18,243,3,399,0)"
^XMB(3.9,23,2,25364,0)="M].!FS3XSE^B:6HJZI_IWTR=_D`08XE_5OH&'VZ+ZF1]XCIY37N<%3].KG#5E"
^XMB(3.9,23,2,25365,0)="""DATA"",396.18,243,3,400,0)"
^XMB(3.9,23,2,25366,0)="MM'Q1ZN-(C>K39%@!*?HH.P]?2/7I1+*RW,L=F+10R+#RFJ!`!VWM.SQ@B1QI"
^XMB(3.9,23,2,25367,0)="""DATA"",396.18,243,3,401,0)"
^XMB(3.9,23,2,25368,0)="M!$F@%B1`=,Y&Y1`PMI;)+R^SO%A1B?RQ?O85P<4]DL2!.F`0B%)0WK*T2'@X"
^XMB(3.9,23,2,25369,0)="""DATA"",396.18,243,3,402,0)"
^XMB(3.9,23,2,25370,0)="MPBE=4$F5&--/0>!9P!#+.1?FM.'9RX)@'J^XI!_^7N2WF1$4WP(4@`)32%X!"
^XMB(3.9,23,2,25371,0)="""DATA"",396.18,243,3,403,0)"
^XMB(3.9,23,2,25372,0)="MS._9IMQ0/J)""CSBWE(N<-:XJ4IAATA4P3M/((L?_73['PT:DBO8#$V""%-F#)"
^XMB(3.9,23,2,25373,0)="""DATA"",396.18,243,3,404,0)"
^XMB(3.9,23,2,25374,0)="M9/O\8$4V8(U(.$IF5NW""-_TW]X,KMN&L4#ZTP6*E\68:1I]1%W:+A;`;E/=W"
^XMB(3.9,23,2,25375,0)="""DATA"",396.18,243,3,405,0)"
^XMB(3.9,23,2,25376,0)="M1]:KO>8,#^`TAMI=,A%Q@;S=Z$&CG19W7=7N;*<-VRUUS994\V)M%_B>==]<"
^XMB(3.9,23,2,25377,0)="""DATA"",396.18,243,3,406,0)"
^XMB(3.9,23,2,25378,0)="ML&-0-#FAR&9""H9XSQT:-+MP)`U6X4V)4>5VC42)-IR0&\#W`ZMG`R.*1'8L#"
^XMB(3.9,23,2,25379,0)="""DATA"",396.18,243,3,407,0)"
^XMB(3.9,23,2,25380,0)="M%^W#X^A0&\$[\3@7-R8>'\_(BLD]2R9'1LR'EICW]Y(NMMDCWF&E2VR#>7\O"
^XMB(3.9,23,2,25381,0)="""DATA"",396.18,243,3,408,0)"
^XMB(3.9,23,2,25382,0)="M\0(M,>\;'2)7Y1""A0<E)?114'Z*20OSA0]\UC35FAHW]*EF*T+<O#A>=(.>W"
^XMB(3.9,23,2,25383,0)="""DATA"",396.18,243,3,409,0)"
^XMB(3.9,23,2,25384,0)="MG%'@)4^S(XM[XA-YT"";K78HP!#O8C\X53BJ#U>]I$M%]-`5%#'>`HLYP[&&Q"
^XMB(3.9,23,2,25385,0)="""DATA"",396.18,243,3,410,0)"
^XMB(3.9,23,2,25386,0)="M-FB;0YVL(C$`&O=Q8UN#\BY'#W6-]]""X""U^'6R$=24Z[@O(VA""^G(P61U^FF"
^XMB(3.9,23,2,25387,0)="""DATA"",396.18,243,3,411,0)"
^XMB(3.9,23,2,25388,0)="MB0Y[2GV@E_X?>/AA$%5CS5VODGD_PKKKL4*7]28MA\U>Q39[NAZM4\WWU*-J"
^XMB(3.9,23,2,25389,0)="""DATA"",396.18,243,3,412,0)"
^XMB(3.9,23,2,25390,0)="MRUC;=D_5=$]K>RJWVH$8E)5)`UW?@C3^E/)Z0`8I,""IG53N7<'!""I+#['M0>"
^XMB(3.9,23,2,25391,0)="""DATA"",396.18,243,3,413,0)"
^XMB(3.9,23,2,25392,0)="M_>#01O>!JV:@.;41N.HX%Q2W;3UC""K@Y5LFO[TN(TK4I!H-RB-<B/,BP].);"
^XMB(3.9,23,2,25393,0)="""DATA"",396.18,243,3,414,0)"
^XMB(3.9,23,2,25394,0)="M.81/7QZKL120&->1:SX""B\VTNI&9P5*)8IO#2$?TL8@#LK[9AI=K*DY]\1A!"
^XMB(3.9,23,2,25395,0)="""DATA"",396.18,243,3,415,0)"
^XMB(3.9,23,2,25396,0)="MN43Q*Y_DV;!U8,'6@4RVT,;`6^:L%;^)<$#3H0>&T13E;#CG/4XWF;E>""6CZ"
^XMB(3.9,23,2,25397,0)="""DATA"",396.18,243,3,416,0)"
^XMB(3.9,23,2,25398,0)="M[L`PG$)"":!%M/_Z$Z;O2NT22->VA),:6@;,I*'N9736=1TP(TO14D6``0`;"""
^XMB(3.9,23,2,25399,0)="""DATA"",396.18,243,3,417,0)"
^XMB(3.9,23,2,25400,0)="M`D,<`\Y?S(,S0J$I*PLFE[C-+M&'/+-A%-]FK72KNHM=FQN4S-[E)=\APLXE"
^XMB(3.9,23,2,25401,0)="""DATA"",396.18,243,3,418,0)"
^XMB(3.9,23,2,25402,0)="M;[!2-*7S[<B+O0KA@0V^OA);:XH417T!`K1'CG!].M8RX;DJ)>\DM*B/NJ,V"
^XMB(3.9,23,2,25403,0)="""DATA"",396.18,243,3,419,0)"
^XMB(3.9,23,2,25404,0)="M27U<YKII?F#:K_`TYQPC5S""6D%PQAT9,%]J><]QRTYTV+'C]HS*F**U9%)G\"
^XMB(3.9,23,2,25405,0)="""DATA"",396.18,243,3,420,0)"
^XMB(3.9,23,2,25406,0)="M2T5FB1L>JD#JC'UW6`BVK$RY%WQ?P.849[E""/=X_^0+>,74;JBN/T&0[GF#<"
^XMB(3.9,23,2,25407,0)="""DATA"",396.18,243,3,421,0)"
^XMB(3.9,23,2,25408,0)="MDL(=.90Q?(""E1P!-LPC?$S:S""$3Q[BRB/>C[+LFI/&(.5!%S*=RW^VH-H8]F"
^XMB(3.9,23,2,25409,0)="""DATA"",396.18,243,3,422,0)"
^XMB(3.9,23,2,25410,0)="M$^GO.@$""M0)$['X!]I`?P+;`,CC8GD0W+T^;_BO:FR-4CQQ@Q<3@E]_FZB:&"
^XMB(3.9,23,2,25411,0)="""DATA"",396.18,243,3,423,0)"
^XMB(3.9,23,2,25412,0)="M+""7^7A1S8\N)A8>?6&PYL>XTC)UF!FVS)./#S\S7UMX&[IUY$;E??..OKRJV"
^XMB(3.9,23,2,25413,0)="""DATA"",396.18,243,3,424,0)"
^XMB(3.9,23,2,25414,0)="ME!Y[D2R.;5=9=+""9<27NF94X""$.3$O<5I((/4(>[D[A6MTX7172$3,NB-:FZ"
^XMB(3.9,23,2,25415,0)="""DATA"",396.18,243,3,425,0)"
^XMB(3.9,23,2,25416,0)="M\F'J0[J/`7B+^FU7A7])+.V'_^`1_Y;9""5!5TXV0+CL!^E*Z-GSH3:V`YC""."
^XMB(3.9,23,2,25417,0)="""DATA"",396.18,243,3,426,0)"
^XMB(3.9,23,2,25418,0)="M2!W'\<1&$!)SASML@)1E4E;)#7%>DYMD?F_V0"")U*-(73^#P#U\O4W?%@X'%"
^XMB(3.9,23,2,25419,0)="""DATA"",396.18,243,3,427,0)"
^XMB(3.9,23,2,25420,0)="MZP&,99/""(B?BF.>.4(IEI`[$+3CA+"")$4%,%&8KY!V%DR!NWCT8<)/\@U.8?"
^XMB(3.9,23,2,25421,0)="""DATA"",396.18,243,3,428,0)"
^XMB(3.9,23,2,25422,0)="MB.@<=2P:83.2""\J1W[E!!\P_`!0S@Z-I9Y!?#YOC%'A.AAUTCHI--;\6OL%'"
^XMB(3.9,23,2,25423,0)="""DATA"",396.18,243,3,429,0)"
^XMB(3.9,23,2,25424,0)="MAE]B%<'?4&Y""U_Y(6\0J+08O,)%O9%_'+H*'""N\)!S**QS'6AS$:RTB55?A@"
^XMB(3.9,23,2,25425,0)="""DATA"",396.18,243,3,430,0)"
^XMB(3.9,23,2,25426,0)="MD`40""$6D33?P'NCZ_)>'K`,U1[CXNLPN,*4$/?LJTK?9,L6KU?#@YV]=_\%8"
^XMB(3.9,23,2,25427,0)="""DATA"",396.18,243,3,431,0)"
^XMB(3.9,23,2,25428,0)="MDP/@3BG`W6M-]!M0NDUN;ZJQ""K38*OV58)/^#=3;23"".IE[N6>0""GM^2-*7K"
^XMB(3.9,23,2,25429,0)="""DATA"",396.18,243,3,432,0)"
^XMB(3.9,23,2,25430,0)="MS`2`:X']T5:U;]-49L'TONGUT`;YP1X9#J\+G&3XRI1EH""F2DP@PV@FVV/^\"
^XMB(3.9,23,2,25431,0)="""DATA"",396.18,243,3,433,0)"
^XMB(3.9,23,2,25432,0)="M8%JZF,8!""TWS$KEQC%H,5HWL+W.M<HSB/6+4GCXPZ-T5HM""/#Z4$=PZ?^?H."
^XMB(3.9,23,2,25433,0)="""DATA"",396.18,243,3,434,0)"
^XMB(3.9,23,2,25434,0)="M%=&=YQ6`KQ:BUA91B0P4P7VF91OM1`>?5FC)AGO-RX^^6A0WLF3#_>AE:V/Z"
^XMB(3.9,23,2,25435,0)="""DATA"",396.18,243,3,435,0)"
^XMB(3.9,23,2,25436,0)="M!YM7DR^NZUHC)OL`<+C&7\$!:O=5L:!X$`J*Q6Q85Z[<?_!F,-+U`-%TJHLG"
^XMB(3.9,23,2,25437,0)="""DATA"",396.18,243,3,436,0)"
^XMB(3.9,23,2,25438,0)="MS6#[6-!)69%\M25I4B7W)A=6YSM,6J&N17_OC]>XX@E//&V'9X65SBT[,XME"
^XMB(3.9,23,2,25439,0)="""DATA"",396.18,243,3,437,0)"
^XMB(3.9,23,2,25440,0)="M\=!_N""GR^=D0*W(M(`PC4U<5E:&<WSHKG&T=LD[*?%$?E8AY[,A)LF5S>,DU"
^XMB(3.9,23,2,25441,0)="""DATA"",396.18,243,3,438,0)"
^XMB(3.9,23,2,25442,0)="MYF>!,<`O""<E,T""(+:`&0B[)'2483W<I_90!-@LS@='!9YG-VF-6B;HTRS[.R"
^XMB(3.9,23,2,25443,0)="""DATA"",396.18,243,3,439,0)"
^XMB(3.9,23,2,25444,0)="M2JI-->Q47B=2E=O5NLI7Y<][I*9Y@<V$0[D('-I&$CO@]DE-\S0)ERB<A&['"
^XMB(3.9,23,2,25445,0)="""DATA"",396.18,243,3,440,0)"
^XMB(3.9,23,2,25446,0)="M&OD=T^74CA]RX\DEA[R=EASKC].L.;;6YIN""B85TVZ*3NJAS$RL#&T#EE0>B"
^XMB(3.9,23,2,25447,0)="""DATA"",396.18,243,3,441,0)"
^XMB(3.9,23,2,25448,0)="MV!)0UB#<N<4E3WM.^2&#$B/_;#IE+K2!<+S:`+`3#I/`L06U9.W[)P08VW8#"
^XMB(3.9,23,2,25449,0)="""DATA"",396.18,243,3,442,0)"
^XMB(3.9,23,2,25450,0)="M@;H`:2HT.Q9?""(WLKBAXR+T^=?D*>@M^ZE@$FRY<H75+0*,?""0:A[$'[^/ZC"
^XMB(3.9,23,2,25451,0)="""DATA"",396.18,243,3,443,0)"
^XMB(3.9,23,2,25452,0)="MUW_T^X]]LRQ_PN8__?C^#""^2_)<BWZQ][M((0^*)C&*,6;;_1PG/2!%C;B%D"
^XMB(3.9,23,2,25453,0)="""DATA"",396.18,243,3,444,0)"
^XMB(3.9,23,2,25454,0)="M\?/:V!2)^]N&*I[EEJ-#"",:SD5.\&!I=>;I99>7>/NO8[9W<.@&6I9M`[GPY"
^XMB(3.9,23,2,25455,0)="""DATA"",396.18,243,3,445,0)"
^XMB(3.9,23,2,25456,0)="M.OW:#\;K$TUMCQ]P/^4-:Y@_+.<DJP3WUZ])?3SKEZSB1(>NXG35""3OA))7&"
^XMB(3.9,23,2,25457,0)="""DATA"",396.18,243,3,446,0)"
^XMB(3.9,23,2,25458,0)="MQKV*3-YC%H/4F5ZEQ919/)*FW4N-Q0^PA8L_%9E5!F8E3.^EOR)_9M],AM':"
^XMB(3.9,23,2,25459,0)="""DATA"",396.18,243,3,447,0)"
^XMB(3.9,23,2,25460,0)="MBRR(/MJE5_A>`(VUQ@-,=@\-\2Q-1RTH[0GY4K)6#/:.9T6'Z$6IB&=%@TZ4"
^XMB(3.9,23,2,25461,0)="""DATA"",396.18,243,3,448,0)"
^XMB(3.9,23,2,25462,0)="M=0.P;@\#BKV!T8/O#0P\78,W]1G:T41OX&YM6H2SFDI3%D%HSW`]7Y-YLDSF"
^XMB(3.9,23,2,25463,0)="""DATA"",396.18,243,3,449,0)"
^XMB(3.9,23,2,25464,0)="ME!QEE7=5J-]PD*MF9UT1B52V(]L/7_&$""&!Q0@24]R?'?<V]T0%'010]'A$Q"
^XMB(3.9,23,2,25465,0)="""DATA"",396.18,243,3,450,0)"
^XMB(3.9,23,2,25466,0)="MDF&^R_Y4DJQI-],8.$*6IN>+)^^@/8\MOT>B3'/T3HU>3:10/`]0;E81V9^_"
^XMB(3.9,23,2,25467,0)="""DATA"",396.18,243,3,451,0)"
^XMB(3.9,23,2,25468,0)="MTYQE3.79&9GG?5_]PS*Z_\5C]`Q[`-J$65W9?W<M4B:.\A4[9H>?8UG4B'OQ"
^XMB(3.9,23,2,25469,0)="""DATA"",396.18,243,3,452,0)"
^XMB(3.9,23,2,25470,0)="MQ43$9^AAP6QGSG!0W;=.K!N$NU:M0!AU+HN-]]2!@]1VO53Q'NX##YC9NQCM"
^XMB(3.9,23,2,25471,0)="""DATA"",396.18,243,3,453,0)"
^XMB(3.9,23,2,25472,0)="MH4GL3[>!&DG;/W)=^0BFZ(N<^R%&MMR6QA/AK6#JC%@(Y%V(<(3;P'</&-T:"
^XMB(3.9,23,2,25473,0)="""DATA"",396.18,243,3,454,0)"
^XMB(3.9,23,2,25474,0)="MH,=YPP[LJ$76BYFQN)H_1Q;#B!?K<__/#2G9#L_EUOGCY=G);/`%Z19OK9_1"
^XMB(3.9,23,2,25475,0)="""DATA"",396.18,243,3,455,0)"
^XMB(3.9,23,2,25476,0)="M+^$;G*0LTK%+Q$R%>C2->@COC/PH##\+\M^3!3,3&C7QGT:$R6J>WE`Q;""D`"
^XMB(3.9,23,2,25477,0)="""DATA"",396.18,243,3,456,0)"
^XMB(3.9,23,2,25478,0)="M(+?O!N,&1G)#71!$X-$Z''NXOLHP'#8PJW?G.B\L$E.7T6/.AN8`,8U)Z$X>"
^XMB(3.9,23,2,25479,0)="""DATA"",396.18,243,3,457,0)"
^XMB(3.9,23,2,25480,0)="MR3AR<_0F87L:(S,*V=`]L0@UY3.>F+XZ,FTL.IB]3O!5EI<)3RQPJLV*3O\I"
^XMB(3.9,23,2,25481,0)="""DATA"",396.18,243,3,458,0)"
^XMB(3.9,23,2,25482,0)="M83UBGID:9T46,(T;-"".;-J>X(KR2IP/NZ6KUTY;^&8&*;8#R(N-I'HI$V^WZ"
^XMB(3.9,23,2,25483,0)="""DATA"",396.18,243,3,459,0)"
^XMB(3.9,23,2,25484,0)="MW^U=6Y/;MI+^*ZSLP\2UXRQQX<U5IT[YQ';%6_$F-?$YV7VD)6J&&XG4DI*="
^XMB(3.9,23,2,25485,0)="""DATA"",396.18,243,3,460,0)"
^XMB(3.9,23,2,25486,0)="MR:]?`*0H$FB``'6;6\H/&4K#::`;C;Y^W>;9YXP\L5_=R$KO^[R8+;<<M,:K"
^XMB(3.9,23,2,25487,0)="""DATA"",396.18,243,3,461,0)"
^XMB(3.9,23,2,25488,0)="MM]5M5HU2&OL6E&*E(RH8'W/?0OS,VTULDMG%)F]';C*=V""=\/K_V5JMKK[>["
^XMB(3.9,23,2,25489,0)="""DATA"",396.18,243,3,462,0)"
^XMB(3.9,23,2,25490,0)="MFM2(2Y5(HJEWQB/+\^GX\M[U%]9;R5!$CK$(9,.B.)IP['Y=9FF=M8A&7[+>"
^XMB(3.9,23,2,25491,0)="""DATA"",396.18,243,3,463,0)"
^XMB(3.9,23,2,25492,0)="M\%/ORLXFH\ALC@VG52AN1C"":J2%A?!IK[/>VRJ)1-JMTF=\63#YWQ4C[E+!S"
^XMB(3.9,23,2,25493,0)="""DATA"",396.18,243,3,464,0)"
^XMB(3.9,23,2,25494,0)="MO6]OZM4?1?FM`(PMWXCC`GEL0W;+(`%80;529ZGOC2R;`0J""D&""<$@6RS8X4"
^XMB(3.9,23,2,25495,0)="""DATA"",396.18,243,3,465,0)"
^XMB(3.9,23,2,25496,0)="M?&7O!8C`)`;;R8>DA'2,E-WEU""?E9?+ZD.L(''DP1,-68#@1PA9<MYUX8(QJ"
^XMB(3.9,23,2,25497,0)="""DATA"",396.18,243,3,466,0)"
^XMB(3.9,23,2,25498,0)="M@`$-6:5/HR]TG@L`B6HR+JK$QV.B2D.5ON!E[(@,KZ<;!Q0,P@`D.%Z.)3I&"
^XMB(3.9,23,2,25499,0)="""DATA"",396.18,243,3,467,0)"
^XMB(3.9,23,2,25500,0)="M\A**^8>^;HY>T!23]SR[9Y^]U(PV#6R""_4J1*[;V['XJZW6^8<;""7^U,T\K["
^XMB(3.9,23,2,25501,0)="""DATA"",396.18,243,3,468,0)"
^XMB(3.9,23,2,25502,0)="MK;&TGXB/IX-('90\!7*ZQ,<VI:W-U@GG96G7KHIL!M4F2K=J9.?<O6'>R3WS"
^XMB(3.9,23,2,25503,0)="""DATA"",396.18,243,3,469,0)"
^XMB(3.9,23,2,25504,0)="M.]C>W`FJ1&UPOO""$V28:!M;KJOPS7W%;GWLR8^1B""W*1@N)L@R%]PRSU1MXV"
^XMB(3.9,23,2,25505,0)="""DATA"",396.18,243,3,470,0)"
^XMB(3.9,23,2,25506,0)="MS`/DCD?KX8V11""Q(4A!OD4-CP`=&4Y;.[CRF>XK-M;?(ETLO+X1QW6QD7G`@"
^XMB(3.9,23,2,25507,0)="""DATA"",396.18,243,3,471,0)"
^XMB(3.9,23,2,25508,0)="M9\'O:PX\S4[P=ZUM_)VWZ#<&L%?UOBQBELTK.'?6V_I.O+5ND*R_""+4[!=>6"
^XMB(3.9,23,2,25509,0)="""DATA"",396.18,243,3,472,0)"
^XMB(3.9,23,2,25510,0)="M6NV),E[&PCWO53>D;!ONANJB<=P;QG'P[68AFVP^UK6M@P<?3@>5#\*%X<&;"
^XMB(3.9,23,2,25511,0)="""DATA"",396.18,243,3,473,0)"
^XMB(3.9,23,2,25512,0)="M:S&FNBJ((92F+P]8M`BW:0!PXP.R/>V400UJ+_:'9IP\9?""`H3#A@>B?(/CG"
^XMB(3.9,23,2,25513,0)="""DATA"",396.18,243,3,474,0)"
^XMB(3.9,23,2,25514,0)="M4*0C>=8=&G?5_,[]MG%?1=$L:/X.5:""?3*`D>88@=V:GF%ALM5RV1U$X%G-!"
^XMB(3.9,23,2,25515,0)="""DATA"",396.18,243,3,475,0)"
^XMB(3.9,23,2,25516,0)="MS%R^>BE$EO08L5()BA*V\31TD,#!P8HL#C3PX_%`^X:1.]&[Z-91D^TMU:$5"
^XMB(3.9,23,2,25517,0)="""DATA"",396.18,243,3,476,0)"
^XMB(3.9,23,2,25518,0)="MU0I0_D%DDT,ANM'X:<04CYU&Y`.]+N@Y5RUK?.@0RH[2G@]-A]E1?Y@=Q>$T"
^XMB(3.9,23,2,25519,0)="""DATA"",396.18,243,3,477,0)"
^XMB(3.9,23,2,25520,0)="M'[HS!Y^D6ZV93V\S7%V.N$6AO5?=U/URJ_ESE6Y7Z1-QIJE%]1R1\?%"";)<%"
^XMB(3.9,23,2,25521,0)="""DATA"",396.18,243,3,478,0)"
^XMB(3.9,23,2,25522,0)="MO.Z<Z""X=V&0#^08^ZG%0+2ZB+K2'D-%/<PWM/?@M.FZ%=VS1%QR.MM9$:B(E"
^XMB(3.9,23,2,25523,0)="""DATA"",396.18,243,3,479,0)"
^XMB(3.9,23,2,25524,0)="M>:GA42\I:`1AL+^BT`!T)2+2"",+FY#_G,*]F/#`.-""WXU%3!@XGUC=05I#R5"
^XMB(3.9,23,2,25525,0)="""DATA"",396.18,243,3,480,0)"
^XMB(3.9,23,2,25526,0)="ML*YFD-/P*HK0@PH@M:>P:9CN?M`WDF.E8%AU=7>AUK+ZJSOD/S""C8_8'KYKI"
^XMB(3.9,23,2,25527,0)="""DATA"",396.18,243,3,481,0)"
^XMB(3.9,23,2,25528,0)="M5P_P0[__RDU:W&;BG3[T,?B&M]M-V7QE#-L5D'`IY"">ON`O%)]V#/=?\W2/%"
^XMB(3.9,23,2,25529,0)="""DATA"",396.18,243,3,482,0)"
^XMB(3.9,23,2,25530,0)="MAAB.;]L/M9JUU?@[NZ%E!TQ98$<:E0G#Q)*PMB^\""98*J1(!YG7;+[:HRI60"
^XMB(3.9,23,2,25531,0)="""DATA"",396.18,243,3,483,0)"
^XMB(3.9,23,2,25532,0)="MJK8(MJNX`.1J9""FAW5)V@M0O78GMUO+]A[):,1O$CU[QZ'T^9]N<+_*F.C?["
^XMB(3.9,23,2,25533,0)="""DATA"",396.18,243,3,484,0)"
^XMB(3.9,23,2,25534,0)="M,UW]<`#YL27YNP!_/^$<VM'?-NE]7[]2]MWCD7H%\6=SE]?[FKDWW>IL5*A)"
^XMB(3.9,23,2,25535,0)="""DATA"",396.18,243,3,485,0)"
^XMB(3.9,23,2,25536,0)="MB6IM+0M%JC$0]`:`<=<3S:Y37SZ<RJZ'@;+KNW)H*+G2IE<J9N8SW;+>5FMF"
^XMB(3.9,23,2,25537,0)="""DATA"",396.18,243,3,486,0)"
^XMB(3.9,23,2,25538,0)="MM];7C`'KLA+/Q,%H=YMQ8%86S9D6AR??U%XOO<+>E@GTJ]JKLW7*WIHM[SW&"
^XMB(3.9,23,2,25539,0)="""DATA"",396.18,243,3,487,0)"
^XMB(3.9,23,2,25540,0)="MK2*;,0W.\Q9,7;-3]I5)*7M!D_Y:5[E(?^5U^B4?OHWC.WC9UW2Y;?R0Q2X5"
^XMB(3.9,23,2,25541,0)="""DATA"",396.18,243,3,488,0)"
^XMB(3.9,23,2,25542,0)="MU)%Q@'#+I8F&;?;E?=X!98P)-]_<]V]__$F55R-E2$<9#H>4A:&J`Q.%M/UO"
^XMB(3.9,23,2,25543,0)="""DATA"",396.18,243,3,489,0)"
^XMB(3.9,23,2,25544,0)="M@1+`G3V>4&.TSNY*QF9Q!O--7Q-^M^NEY=`6WW&TEDV#=L8.YY!G^J-Z""*^P"
^XMB(3.9,23,2,25545,0)="""DATA"",396.18,243,3,490,0)"
^XMB(3.9,23,2,25546,0)="M[8XDB:I)`SMF_;)N+JOKG8W!I8V)V>Y>L.,=L:44(974)'!EWL>""-WUL&I[M"
^XMB(3.9,23,2,25547,0)="""DATA"",396.18,243,3,491,0)"
^XMB(3.9,23,2,25548,0)="M3A]ST_OG-A=-<.5LMEVG[7W<>/3Y\G[(O`8.BIVL[""!N4>L]H(H`$TMN->;@"
^XMB(3.9,23,2,25549,0)="""DATA"",396.18,243,3,492,0)"
^XMB(3.9,23,2,25550,0)="M#S8L""6P/.D!.8D<-M2(DM""8$HXF$$""M""(EM""U.-D20>VHB.VI2.,)M*!+.@@"
^XMB(3.9,23,2,25551,0)="""DATA"",396.18,243,3,493,0)"
^XMB(3.9,23,2,25552,0)="MV-+@5.X!:DG%NW.8*_C<YHH(/-!^!,)DX2I^!(FPLGL4=\<?BBC`""-`P$K[,"
^XMB(3.9,23,2,25553,0)="""DATA"",396.18,243,3,494,0)"
^XMB(3.9,23,2,25554,0)="M4R48U9/R_8/N'HUZWP*8*TT2;PO<W^\5,-?'NTN3?>N7OO9]VVG9J_W[[`3"""
^XMB(3.9,23,2,25555,0)="""DATA"",396.18,243,3,495,0)"
^XMB(3.9,23,2,25556,0)="M+!(&&]9*++2""H1>-GG""`9RO4\P'+?$`1`C@1^Q,X48H1RW5^6W#DCY11W5V."
^XMB(3.9,23,2,25557,0)="""DATA"",396.18,243,3,496,0)"
^XMB(3.9,23,2,25558,0)="M\E78,>--;Q_`$MV1M<;ZI1)YJ<175]J5N=FLM!&UX6KV""S#2:3H:B16A<0@0"
^XMB(3.9,23,2,25559,0)="""DATA"",396.18,243,3,497,0)"
^XMB(3.9,23,2,25560,0)="MBD.(T/TSKT7(S/J'1!B(W/(7MGZ^6J?RHOHL&E@K['TV+-,8,""-[A+$#,Q,"""
^XMB(3.9,23,2,25561,0)="""DATA"",396.18,243,3,498,0)"
^XMB(3.9,23,2,25562,0)="M[!&*[9EYD]4<KX[Y6]_*Z@_%X)PBD'LHP`$0H/'\T0!8!X%X37OKZ&+T/D9Q"
^XMB(3.9,23,2,25563,0)="""DATA"",396.18,243,3,499,0)"
^XMB(3.9,23,2,25564,0)="MGV(#%N`C4'@@7*&Q4Z=MT/%^ZVF=]D:X&GQG]`N\`_O]:KTL[[/Y+I=@5L)0"
^XMB(3.9,23,2,25565,0)="""DATA"",396.18,243,3,500,0)"
^XMB(3.9,23,2,25566,0)="MU&]4.@(GZ>BBM>/B$<2`>""`_B6R.Z_.4&SZ2[[9@^S'/F41P-GOSK60B""']O"
^XMB(3.9,23,2,25567,0)="""DATA"",396.18,243,3,501,0)"
^XMB(3.9,23,2,25568,0)="M5O&FNKFW2:LY3T!IOY!^J7DQ;);7J^%7!D""9)K!,!Y%#EB)'32+7%YLV]`*("
^XMB(3.9,23,2,25569,0)="""DATA"",396.18,243,3,502,0)"
^XMB(3.9,23,2,25570,0)="M'/9!T\R'92Z*7V1.)W,\3UO=>\M2%J)WV4Z(9F4QX[F6_I2L3M+Z\;LOV5WZ"
^XMB(3.9,23,2,25571,0)="""DATA"",396.18,243,3,503,0)"
^XMB(3.9,23,2,25572,0)="M-2^KX7?X##5/Q&]YS?8FJU*!,BW_.2;R^8P)X;VW*)?+\AN_""?.BWE1;\.L="
^XMB(3.9,23,2,25573,0)="""DATA"",396.18,243,3,504,0)"
^XMB(3.9,23,2,25574,0)="M=:M2`H&5/T^++?O+\XRQMU*^UYKG=1.L6N8+<0/ST,@LK:I[]H.6S(K'5Y0O"
^XMB(3.9,23,2,25575,0)="""DATA"",396.18,243,3,505,0)"
^XMB(3.9,23,2,25576,0)="M_+;.,A%VV7UO^/%/6<KYH/W\7WG-[0'=QS\S61*%^9MTE1?I\,/?L_2/9C1D"
^XMB(3.9,23,2,25577,0)="""DATA"",396.18,243,3,506,0)"
^XMB(3.9,23,2,25578,0)="MY2T8LVZWF6Y3V+9FQ>WF[HVW7:_9X66;4V4KPR[N?X&Q1O\+_V2+XS'>O&!"""
^XMB(3.9,23,2,25579,0)="""DATA"",396.18,243,3,507,0)"
^XMB(3.9,23,2,25580,0)="MPQNQBYE$PX=L)N1`]_FO:5[(6UXOV%K8GV-"">'HMAL>TF""AQ&*+VFN_,OJ6\"
^XMB(3.9,23,2,25581,0)="""DATA"",396.18,243,3,508,0)"
^XMB(3.9,23,2,25582,0)="M#W%!'@WN6]I]!9;8*+#3*""BL45!J@811/6D+)0;%$F-\,A9-P,66/4;""(8P."
^XMB(3.9,23,2,25583,0)="""DATA"",396.18,243,3,509,0)"
^XMB(3.9,23,2,25584,0)="M8%V=):2-9!`UD@'$@?81O(Z7,8[WO-2H;.A*-2CQ;O,,$9I`$Z$A,95C-$J4"
^XMB(3.9,23,2,25585,0)="""DATA"",396.18,243,3,510,0)"
^XMB(3.9,23,2,25586,0)="MC?@1$*,)'6(TQ!`;\!U\+,@0B)()D0$I4,Y_7._C--M:7!@\-*Z)##S-.`TV"
^XMB(3.9,23,2,25587,0)="""DATA"",396.18,243,3,511,0)"
^XMB(3.9,23,2,25588,0)="M!""\B)29`8H`;_8UWC--D73!C?/^G1&8PU:Y.$30,1`,CR)<G"";BTM]5NL$XO"
^XMB(3.9,23,2,25589,0)="""DATA"",396.18,243,3,512,0)"
^XMB(3.9,23,2,25590,0)="MX@0OZ^]/0:R<XRM#.`^L0_CHCZJ.K)@$N05)!`8J?-I;M`[X`P#_D#Y5$4#D"
^XMB(3.9,23,2,25591,0)="""DATA"",396.18,243,3,513,0)"
^XMB(3.9,23,2,25592,0)="M0M""[LLKLHE2/P,4P13T*R9;[E""_GTI.2[3!S%22;F8]YD.W`2O1ZUA-""'\A1"
^XMB(3.9,23,2,25593,0)="""DATA"",396.18,243,3,514,0)"
^XMB(3.9,23,2,25594,0)="M^O""X]'43AT?$+W$0O^0\XL=>O5YW<VM'!/#2'':QPR4NDG$NXGYX6L]%,-F@"
^XMB(3.9,23,2,25595,0)="""DATA"",396.18,243,3,515,0)"
^XMB(3.9,23,2,25596,0)="MX2+RS\/%]W]FU2ROL\?&1>+(13K.1:HX6`0=>!,$9SJ*O**J?FPLI&XL#,,I"
^XMB(3.9,23,2,25597,0)="""DATA"",396.18,243,3,516,0)"
^XMB(3.9,23,2,25598,0)="ME_F!/&0N<G0>'MZ(D,@PT_9RHY_X1@\<M4@PZ48_6(\@?!X9_%RE7[.E[9W^"
^XMB(3.9,23,2,25599,0)="""DATA"",396.18,243,3,517,0)"
^XMB(3.9,23,2,25600,0)="M(H+'$,'0301%7,/='#G\*HO/(X(?LFS^""(W*R%&1)!/,$4S(@3P,S\/#?Z2;"
^XMB(3.9,23,2,25601,0)="""DATA"",396.18,243,3,518,0)"
^XMB(3.9,23,2,25602,0)="MNQ<E<DXE$CN*7SPI+G*P_)W)E'K'>[I>!/""<`I@X""F`T+31RJ`0B=""9#JLR7"
^XMB(3.9,23,2,25603,0)="""DATA"",396.18,243,3,519,0)"
^XMB(3.9,23,2,25604,0)="MV>9%!,\:G?,=93""<%M@Y6`N2\\@@6U&Y>A'!LXH@LLGQ)]H4OYH,""PB4FHP`"
^XMB(3.9,23,2,25605,0)="""DATA"",396.18,243,3,520,0)"
^XMB(3.9,23,2,25606,0)="M:0L)'+X(7S+\SAE^Y!@C)A8Q8J7X.02RSB&%""AXQP-F(DE/J$?.!^Y],J2G5"
^XMB(3.9,23,2,25607,0)="""DATA"",396.18,243,3,521,0)"
^XMB(3.9,23,2,25608,0)="M^$6^9:U$BYTE3YW<XTXD6&H>(DK3#E+K)`*@7X8##7K]EL,KH+*@^\51L!+="
^XMB(3.9,23,2,25609,0)="""DATA"",396.18,243,3,522,0)"
^XMB(3.9,23,2,25610,0)="MBL0T8.FD:]K@`YN:C_WY[N&61.CL/3_0X=4<7</![1U;_:$=.;*JF.DY06!."
^XMB(3.9,23,2,25611,0)="""DATA"",396.18,243,3,523,0)"
^XMB(3.9,23,2,25612,0)="M1%(G&%*D*HQ5L8H3M?PF0N2%%;VH?LL*P^AF'4X>BH:X'H&$.J<`H02VV*KD"
^XMB(3.9,23,2,25613,0)="""DATA"",396.18,243,3,524,0)"
^XMB(3.9,23,2,25614,0)="M8'`_%.G`_9`1C,092/'Y`#NUPQ4U`)4)/7A?-9BU^!A0^!"".7]-Y.`""OZ+#P"
^XMB(3.9,23,2,25615,0)="""DATA"",396.18,243,3,525,0)"
^XMB(3.9,23,2,25616,0)="M@R$6/HJ?.T@2]C7H<_`4*H0'8/B!/,H[M@9)^K$LF%6TV;9=8+QKIMZ-///>"
^XMB(3.9,23,2,25617,0)="""DATA"",396.18,243,3,526,0)"
^XMB(3.9,23,2,25618,0)="ML>U.3P2R1LZ.GX0UB%,X,F+Y88LQ8VU%]&RXF;S9I!Z!!<<)S&$<$S-5:)PJ"
^XMB(3.9,23,2,25619,0)="""DATA"",396.18,243,3,527,0)"
^XMB(3.9,23,2,25620,0)="M4;UM(`ITA`Q@?EBCG,@0K9A*:,6[<H]3*R>)Z%]N>AU8W0\&SBN0>50F/);G"
^XMB(3.9,23,2,25621,0)="""DATA"",396.18,243,3,528,0)"
^XMB(3.9,23,2,25622,0)="MN>`XZN;A&+I;P#ID_3""JMT6VRO>]!U>_-[\Z:""&Y^L!=]OV/[S*I2^/J[>I^"
^XMB(3.9,23,2,25623,0)="""DATA"",396.18,243,3,529,0)"
^XMB(3.9,23,2,25624,0)="M6>9S;YD/OC@HZ=>5\S<GBSM3[5+[N'K@4]4(Y>O[G*_WRN#WO)B7WUH&E,4M"
^XMB(3.9,23,2,25625,0)="""DATA"",396.18,243,3,530,0)"
^XMB(3.9,23,2,25626,0)="MY\B8Y`F;E8(#[8<'9`KS$DI,PX*>$08B&KOAL8\Q!F_Y'E;O``<1#Z%Z:6,!"
^XMB(3.9,23,2,25627,0)="""DATA"",396.18,243,3,531,0)"
^XMB(3.9,23,2,25628,0)="M/.<K'FEN`+:UH>82""+!IP'UB/\VT:705TPU;H-ZG<JFSW8M@9,0A:G>$92/)"
^XMB(3.9,23,2,25629,0)="""DATA"",396.18,243,3,532,0)"
^XMB(3.9,23,2,25630,0)="MMY^/TMRD@W[YNQ;ON,Z+F4#6FK%-O,V\[T6CFQCL*<#BQ.?]^2C-M$F.&L?'"
^XMB(3.9,23,2,25631,0)="""DATA"",396.18,243,3,533,0)"
^XMB(3.9,23,2,25632,0)="MU(CN?/8O]2HQ(WH`)W?PW$FQ.WA\=U`LSS(++*R>']-MG7%0.=[BD3-NLQMJ"
^XMB(3.9,23,2,25633,0)="""DATA"",396.18,243,3,534,0)"
^XMB(3.9,23,2,25634,0)="MT^!9B1;[O&C6BO#K9C[/FHE`.7<T/KJ%Q*'%0J@\/]!F,,]G@/CY5O010@LX"
^XMB(3.9,23,2,25635,0)="""DATA"",396.18,243,3,535,0)"
^XMB(3.9,23,2,25636,0)="M'GLP1C[,GJY/:-<7+@.A!K[%@*1MU8ZX6GBS;24:GK-.$TSB`Z,8V_!!IC<)"
^XMB(3.9,23,2,25637,0)="""DATA"",396.18,243,3,536,0)"
^XMB(3.9,23,2,25638,0)="M[!""Q!:Y61^)4""B.;/0VE`2:)Q8[^V.[B7A5,)3&QT%G2'L9DG,!_BB88B3P3"
^XMB(3.9,23,2,25639,0)="""DATA"",396.18,243,3,537,0)"
^XMB(3.9,23,2,25640,0)="M0#?&B6Z^A`1R'@=C08?0UJY/#K#K15J!6?*<=!&'VCV0AM8./&0L^21=!&7?"
^XMB(3.9,23,2,25641,0)="""DATA"",396.18,243,3,538,0)"
^XMB(3.9,23,2,25642,0)="M:4038&#7)J\R`5*W+;(=5H1N5A',Z%`'U(;""<`R@=-\\.`)]U>+&5X+>01LO"
^XMB(3.9,23,2,25643,0)="""DATA"",396.18,243,3,539,0)"
^XMB(3.9,23,2,25644,0)="MJ*-,>&&,9""V&6B)A=246N0>08'%S')-B'<C9/AF^&^VBH*CV,`)'L`L;=_K("
^XMB(3.9,23,2,25645,0)="""DATA"",396.18,243,3,540,0)"
^XMB(3.9,23,2,25646,0)="MI""<Z^<""^E.K!@0H3'-B""HP$WP4ZD#U]"";""<O&-C\P!+ELYF=5WNWS)MM0$J/"
^XMB(3.9,23,2,25647,0)="""DATA"",396.18,243,3,541,0)"
^XMB(3.9,23,2,25648,0)="M13[VJ1WYW8R__J`'2P3>W];9+%_<>ZN,0TDNO>_7=_<U_[]7'1#186O0H0VB"
^XMB(3.9,23,2,25649,0)="""DATA"",396.18,243,3,542,0)"
^XMB(3.9,23,2,25650,0)="MQ!]?Q;Z4PVX5Z_I^=I>GS""&='42^5(C""[R)]6:_N1`<J=C8`T!O(J2KL)W1?"
^XMB(3.9,23,2,25651,0)="""DATA"",396.18,243,3,543,0)"
^XMB(3.9,23,2,25652,0)="M$Z#/&VLGD\,IX]YN?:R]KQF'XRA:73'?]Z+N1Y-CX[Z9&].'^>=!]MDV*2AF"
^XMB(3.9,23,2,25653,0)="""DATA"",396.18,243,3,544,0)"
^XMB(3.9,23,2,25654,0)="MA/O<31C,GM/?4@2IB*J116<^W^_H:F2Q:BX%IKH+YPDC`*L!/MT9#JF*A:I2"
^XMB(3.9,23,2,25655,0)="""DATA"",396.18,243,3,545,0)"
^XMB(3.9,23,2,25656,0)="MWWO4HSX>H]X,<*,!(S#Q]_TRO\W97^(PXRGS+9G6F_<4.?=3^OS_)""N7W>%\"
^XMB(3.9,23,2,25657,0)="""DATA"",396.18,243,3,546,0)"
^XMB(3.9,23,2,25658,0)="M!7]+/<6#+TK@'WKH#U.T4!<OA%L1C3%#.&IHRG:+J)4FY2WK$>R'5J+A0Z*1"
^XMB(3.9,23,2,25659,0)="""DATA"",396.18,243,3,547,0)"
^XMB(3.9,23,2,25660,0)="MC(G&LTZ%!XYW`!F[`\BX801`XQ,*L""XXVQVP]R#XU%LQ%_>BUT)H@]DBKH9$"
^XMB(3.9,23,2,25661,0)="""DATA"",396.18,243,3,548,0)"
^XMB(3.9,23,2,25662,0)="MC]NB&JF1:N.%U.Y^"",B5Q:K-@""Z1S0;]S$&<-G>,*4C,B^[O%N+(Y%@\'NPB"
^XMB(3.9,23,2,25663,0)="""DATA"",396.18,243,3,549,0)"
^XMB(3.9,23,2,25664,0)="MYL\#]7G`GR-?_8`]XV\""/OE4""O@*]N>[3U]9J3)-'95TQ_7P9$R:C$""77!""\"
^XMB(3.9,23,2,25665,0)="""DATA"",396.18,243,3,550,0)"
^XMB(3.9,23,2,25666,0)="M:#*#)HNMV!18L0FI4-<]<*#]A0.=E#!Z89.!3<2*3:'&,%`\)H!146C)J/B%"
^XMB(3.9,23,2,25667,0)="""DATA"",396.18,243,3,551,0)"
^XMB(3.9,23,2,25668,0)="M40<5R77<BJ`DL%2Y(0?YE-C_#B""];[NAEQRP-*Q5QX)DE`4HB2>P(/)?6+`W"
^XMB(3.9,23,2,25669,0)="""DATA"",396.18,243,3,552,0)"
^XMB(3.9,23,2,25670,0)="MR2`6[,TQGC%2S#&0%4$TQ@IY/CO75XF)%:#YI1KZ^LJ6/9C+P`;[EF5[1_9*"
^XMB(3.9,23,2,25671,0)="""DATA"",396.18,243,3,553,0)"
^XMB(3.9,23,2,25672,0)="M_AF+GWNE+T1^0.4'@?P@E!]$\H-8?I#(#YA!)S]!RA.%6*10BQ1RD4(O4@A&"
^XMB(3.9,23,2,25673,0)="""DATA"",396.18,243,3,554,0)"
^XMB(3.9,23,2,25674,0)="M""L5((1DI-&.%9JS0C!6:L4(S5FC&""LU8H1DK-&.%9JS03!2:B4(S485""H9DH"
^XMB(3.9,23,2,25675,0)="""DATA"",396.18,243,3,555,0)"
^XMB(3.9,23,2,25676,0)="M-!.%9J+03!2:B4(S46BF""LU4H9DJ-%-5DA6:J4(S56BF""LU4H9DJ-`<*S8%"""
^XMB(3.9,23,2,25677,0)="""DATA"",396.18,243,3,556,0)"
^XMB(3.9,23,2,25678,0)="M<[""C^965:D)VJ@G+,RH#""]44H4-4TVC1W8?M<LF+&/9K9]I\\WKXZ+=LN7@M"
^XMB(3.9,23,2,25679,0)="""DATA"",396.18,243,3,557,0)"
^XMB(3.9,23,2,25680,0)="M)0+%8YZ<2)=@E=WHIF'=ILDU`,JVA1;;1O$AVT;'MDWK2L..-.Q&:YQHG0NM"
^XMB(3.9,23,2,25681,0)="""DATA"",396.18,243,3,558,0)"
^XMB(3.9,23,2,25682,0)="M=:!-U@OQP:')PRV.R>@.8W6'7ZH(>V%<4-S5&)\.AVP8X6N#]O)8^D`>K[Z#"
^XMB(3.9,23,2,25683,0)="""DATA"",396.18,243,3,559,0)"
^XMB(3.9,23,2,25684,0)="M"">US96=KZ,)ZVJ"">&M*#`WIM'G5Y[^TTPBZ0IX3Q].>G'ZOK1>K`VDR=9*-1"
^XMB(3.9,23,2,25685,0)="""DATA"",396.18,243,3,560,0)"
^XMB(3.9,23,2,25686,0)="MNYSZH[9@J""I<^C(,7&UUB8$B6!SZO5X7U*^#)01+\\""??1TLAJNB`A^NB""*F"
^XMB(3.9,23,2,25687,0)="""DATA"",396.18,243,3,561,0)"
^XMB(3.9,23,2,25688,0)="M<>""*?M:7P+[]4I35*EUZ_UGFQ:9^(O6O(=S3@@:[AGWI_-/0HJ>E&?<]TK\2"
^XMB(3.9,23,2,25689,0)="""DATA"",396.18,243,3,562,0)"
^XMB(3.9,23,2,25690,0)="MPJ5VV!^:+B%]4%/)FWGJ2-,/-*@<BZ0JP=BB\:83M56Y!S(TT`$75*)A,Z5,"
^XMB(3.9,23,2,25691,0)="""DATA"",396.18,243,3,563,0)"
^XMB(3.9,23,2,25692,0)="M""(W&""?DY9QN76M$06^P%0G),P:*JDP^<6&R7HP0D-IN@4(""01=7FAV6:+[W_"
^XMB(3.9,23,2,25693,0)="""DATA"",396.18,243,3,564,0)"
^XMB(3.9,23,2,25694,0)="MY>?^/Q;\2'F+_9,W$T0GH!:[121S/;1@F-!-7BI`S;/YFY'J39+`E9L(Q\-V"
^XMB(3.9,23,2,25695,0)="""DATA"",396.18,243,3,565,0)"
^XMB(3.9,23,2,25696,0)="M44EM=N921TEDVSN<'-SB2I&.:&QL>(Z2R6UDT>%$8RNB43B!Z$'#LYJ@G43U"
^XMB(3.9,23,2,25697,0)="""DATA"",396.18,243,3,566,0)"
^XMB(3.9,23,2,25698,0)="MSI\DL<ZY',IJ0L?Z""V77DLE8!^L[YD5.LX)-ZZ+:(""B*#U\8CJ^.%%5P7QBV"
^XMB(3.9,23,2,25699,0)="""DATA"",396.18,243,3,567,0)"
^XMB(3.9,23,2,25700,0)="M8Q@B>,K""DJLC^?WN""R.6')NXLNCJ2#%JZY7Q:KE@4#4'<HI&KLO!A*#HRN"";"
^XMB(3.9,23,2,25701,0)="""DATA"",396.18,243,3,568,0)"
^XMB(3.9,23,2,25702,0)="M&-UKA,VN=9>[;/6L8IG)MB&)%?(P/HES_5L^[P#8'7SH&TYH/[.PV+CZT82`"
^XMB(3.9,23,2,25703,0)="""DATA"",396.18,243,3,569,0)"
^XMB(3.9,23,2,25704,0)="MT:%!`P1&<H]IHMSH75=.CY7Q\W.CX_%^4LB-1CW(""#QH)R5-4_G>C6[\A^?L"
^XMB(3.9,23,2,25705,0)="""DATA"",396.18,243,3,570,0)"
^XMB(3.9,23,2,25706,0)="M1A.-0Z9Q)H:R+/O1R+Z5]&/!C=-]Y].C]Z!C&P]:]CN.Z$%K>G^'!'1%U@_)"
^XMB(3.9,23,2,25707,0)="""DATA"",396.18,243,3,571,0)"
^XMB(3.9,23,2,25708,0)="M@XYLW""`LF<0=!+?1<2UG79FSF.64>?E.[D8]24U'91P:R?(MW+./?$KGZY1K"
^XMB(3.9,23,2,25709,0)="""DATA"",396.18,243,3,572,0)"
^XMB(3.9,23,2,25710,0)="MO>TRK62:'.,/HC1Y-/X@A6Z""Q**1DI>A5WQ4Y=A>X=!FKV0:J`4'WR\6V]J"""
^XMB(3.9,23,2,25711,0)="""DATA"",396.18,243,3,573,0)"
^XMB(3.9,23,2,25712,0)="M6YA:!1XF!+#>56E>I+?9*`61S1ZH)%C$/FZRN147;`)12#8DB<4>O)]GJW3T"
^XMB(3.9,23,2,25713,0)="""DATA"",396.18,243,3,574,0)"
^XMB(3.9,23,2,25714,0)="MS\=6&R#_?6SQ]W_*TLU8%(-2RRA&<K0H!CH<J8L&.JJ'7;,R[L`!88PCQ%Y"""
^XMB(3.9,23,2,25715,0)="""DATA"",396.18,243,3,575,0)"
^XMB(3.9,23,2,25716,0)="M*Z*5,JY#PACQ,<(8H=YY''HS\=AE`_B.'1KVF.^(CN\5AW;N?AQ.65=RN?A,"
^XMB(3.9,23,2,25717,0)="""DATA"",396.18,243,3,576,0)"
^XMB(3.9,23,2,25718,0)="M8LFP:0L++A>?B2SC,^-F#[0P<K'X3.!;<FSBRN*SQV<ZEEG&0%&(IBR,6BXL"
^XMB(3.9,23,2,25719,0)="""DATA"",396.18,243,3,577,0)"
^XMB(3.9,23,2,25720,0)="M/#[+D""W+IJTLM%Q9=+25B5!,"",)]^6YJGJ@Q->P_YWH&:*?!FGK)\24*;I+J"
^XMB(3.9,23,2,25721,0)="""DATA"",396.18,243,3,578,0)"
^XMB(3.9,23,2,25722,0)="M@%!UK]'SVVLT6CQ""`BCJU8S(A(I'V@#C?J>;SG8UZK7?O)_S5?9(`E@4=D>("
^XMB(3.9,23,2,25723,0)="""DATA"",396.18,243,3,579,0)"
^XMB(3.9,23,2,25724,0)="M)A6=Q$-O1`+OL8`\_?7FEU_?WWS^^/ZW)Q*Z(D@''CI(0&#W""`(3<NZ\_PUU"
^XMB(3.9,23,2,25725,0)="""DATA"",396.18,243,3,580,0)"
^XMB(3.9,23,2,25726,0)="M%LF#1V+6[Q+V+79)KE"")X_%=:AR9S]F?F[^)X.B500$PR?^2S?^KW&1?RO(/"
^XMB(3.9,23,2,25727,0)="""DATA"",396.18,243,3,581,0)"
^XMB(3.9,23,2,25728,0)="M?G,/G_0U0B\*/L!4#*1:L@85EKUGG#G=E_;<V0C*^Q_*#-H]UW-H]XTAB_JG"
^XMB(3.9,23,2,25729,0)="""DATA"",396.18,243,3,582,0)"
^XMB(3.9,23,2,25730,0)="M/.@QA2_YU_0V&[!A@&R]JTOLAQ`&>(6F/6T5=?DGYW?W@]3>)S7W*:U]$56["
^XMB(3.9,23,2,25731,0)="""DATA"",396.18,243,3,583,0)"
^XMB(3.9,23,2,25732,0)="ME>F^R_FGLOJKNQ!^^%PQ""><P<<.F<'Y%[+]TDQ:WF7B+#W]!\Y:WR_R6[T""Z"
^XMB(3.9,23,2,25733,0)="""DATA"",396.18,243,3,584,0)"
^XMB(3.9,23,2,25734,0)="M9#XR$_CN^793-K\L-][).0X^$.9T?88([#.$9]IH.@WU/830[`P0!DQ%`.O+"
^XMB(3.9,23,2,25735,0)="""DATA"",396.18,243,3,585,0)"
^XMB(3.9,23,2,25736,0)="M5JB,DGF-H$DR!)@WTN,Z/*\74C8RG+-N]DD'W1WUG^USQ'[_,=#R+AV2W^_R"
^XMB(3.9,23,2,25737,0)="""DATA"",396.18,243,3,586,0)"
^XMB(3.9,23,2,25738,0)="MV9UWEQ9S#B8YYP./TF+S]U[7>6^""""Q@$]'TWPI,`(CQVI/NG\ILWY_74C.!L"
^XMB(3.9,23,2,25739,0)="""DATA"",396.18,243,3,587,0)"
^XMB(3.9,23,2,25740,0)="M_F8P344[I6=T*<AM*2@(H;7@Q&TMHN?C6$O`;DO`0X'9Y_7PA#4(C/!\P8Q<"
^XMB(3.9,23,2,25741,0)="""DATA"",396.18,243,3,588,0)"
^XMB(3.9,23,2,25742,0)="M=BY;G-,W5J+4Q>M\`#+""O(((@3P($+@`/'S<.:T1""08,T`!&Z/!G1D?^*-4&"
^XMB(3.9,23,2,25743,0)="""DATA"",396.18,243,3,589,0)"
^XMB(3.9,23,2,25744,0)="M0,V!>8OVT$40:M&(H/J)RR;16+=)H9V4CD$:C>SPV$[^JVFDN/HWDES57KU)"
^XMB(3.9,23,2,25745,0)="""DATA"",396.18,243,3,590,0)"
^XMB(3.9,23,2,25746,0)="M-T,XO?9K/S&M]JW*^1A!^2,)HL@,4S0.562""*X(CBU:P17KH(K.HB`8/K$Q)"
^XMB(3.9,23,2,25747,0)="""DATA"",396.18,243,3,591,0)"
^XMB(3.9,23,2,25748,0)="M,TI(Y,,20F`)""742$ME*B.W(M+&A:<:Q:5:#TPRCTT:&ITGCT\P#U""Q&J.G,"
^XMB(3.9,23,2,25749,0)="""DATA"",396.18,243,3,592,0)"
^XMB(3.9,23,2,25750,0)="MA1%6$R=68Q*XL+H'%2GQFI*K%X8Z,#2PN@D'!7C4-*U\'WF#-#[(8Q2!/"";P"
^XMB(3.9,23,2,25751,0)="""DATA"",396.18,243,3,593,0)"
^XMB(3.9,23,2,25752,0)="MK4A\DES).DXW)<^(=J4?E#?L?Q#MF5DEZNRK[/5V+6;*?.$S9>;-3)F_#P@"""
^XMB(3.9,23,2,25753,0)="""DATA"",396.18,243,3,594,0)"
^XMB(3.9,23,2,25754,0)="M<*]L+A!Y_IXR@0_V(TQ\:\<P$64`7_\PAL!II!""C(HWU$F@V[B9[7:ZSXDJS"
^XMB(3.9,23,2,25755,0)="""DATA"",396.18,243,3,595,0)"
^XMB(3.9,23,2,25756,0)="M@L';+"";R24O5#7'<N4_(Y$H1*T<*)9`C%3V:`:N6`TY]L_3X_#^C""`W-]385"
^XMB(3.9,23,2,25757,0)="""DATA"",396.18,243,3,596,0)"
^XMB(3.9,23,2,25758,0)="M""EKP$86/.M6*T(R=[-J[$>,$+J[9=1PPZG:SMH;Y<(H#$3H=B+XQ93X0@[OX"
^XMB(3.9,23,2,25759,0)="""DATA"",396.18,243,3,597,0)"
^XMB(3.9,23,2,25760,0)="M:9P(9')G*35XLX`R#3!T%!S=<?2#??0C""-P(3(Y!('8@,'(D$!'_""!02.PJ;"
^XMB(3.9,23,2,25761,0)="""DATA"",396.18,243,3,598,0)"
^XMB(3.9,23,2,25762,0)="MTY:8]!V""?!7DIO&P5N.)P2F[4;;#<M:GJOG(89H/;B<,G:\L=!0.OBMG6S&;"
^XMB(3.9,23,2,25763,0)="""DATA"",396.18,243,3,599,0)"
^XMB(3.9,23,2,25764,0)="MZ%<93/QI,@^?@'D(N3(/N3'/US#O8U%OJJVH@CX7W]#C-#=@OF%7OM'P*'S["
^XMB(3.9,23,2,25765,0)="""DATA"",396.18,243,3,600,0)"
^XMB(3.9,23,2,25766,0)="MQS9?SN$!X$^3>R?VGJB3L8C]R-I:3.A3LQ:Q5=0DM`J:0%$32N""L6N@2-L%1"
^XMB(3.9,23,2,25767,0)="""DATA"",396.18,243,3,601,0)"
^XMB(3.9,23,2,25768,0)="M%)TU;-)FNGFHI*PW6;FZSY;Y)J\O$""L)W6-<:#*W,*S/$@LC8A_C""CNXHK,S"
^XMB(3.9,23,2,25769,0)="""DATA"",396.18,243,3,602,0)"
^XMB(3.9,23,2,25770,0)="MZZZLU_DF7>9_M3U+E5=OJ]NLNG^H4:XAG\A4S@5@T*LW,L2.<W%R*<YMJG2["
^XMB(3.9,23,2,25771,0)="""DATA"",396.18,243,3,603,0)"
^XMB(3.9,23,2,25772,0)="M2G>-<#P^^7W]Z@),P^Y,PU.9EL3'89I_*::),'*1E>ME6J\NP""QJ;]P9;3N$"
^XMB(3.9,23,2,25773,0)="""DATA"",396.18,243,3,604,0)"
^XMB(3.9,23,2,25774,0)="MH#@R:-R%<+P?APYQY!>#SLH'=N98&)^*8R=V]ZGS4A%\51]YK<$)UAJ[KQ6N"
^XMB(3.9,23,2,25775,0)="""DATA"",396.18,243,3,605,0)"
^XMB(3.9,23,2,25776,0)="MS-*M=6)&)SJM3T),/@G&=L5Q_53#:'$<,44Q0U,<.+8-+T6.4<Q^+_DZS8OC"
^XMB(3.9,23,2,25777,0)="""DATA"",396.18,243,3,606,0)"
^XMB(3.9,23,2,25778,0)="ME&A%D=M:L`^;N3Z:OIIYMBBK5;ZY/WA)0TLB/FJV6CI>8Z8%CH+SNET?ZS99"
^XMB(3.9,23,2,25779,0)="""DATA"",396.18,243,3,607,0)"
^XMB(3.9,23,2,25780,0)="MG1>+9;I:B>U]V/EI9+RFXOAQYJ<!?""5$I;&$YD,&%Z5B/W`K(HR(;?43K/EL"
^XMB(3.9,23,2,25781,0)="""DATA"",396.18,243,3,608,0)"
^XMB(3.9,23,2,25782,0)="MSUDR]9S!I3](*O@;C6^$Y#(';5&EL\V6_4^=;[(6)/.A&O)""""D,G*<3H.&)("
^XMB(3.9,23,2,25783,0)="""DATA"",396.18,243,3,609,0)"
^XMB(3.9,23,2,25784,0)="MPPEB&$VH3B)3Y1`NVD6(N""C\""'<S>,XCA^]VU^;C""*Q1.I$]4BG@=/:02[GZ"
^XMB(3.9,23,2,25785,0)="""DATA"",396.18,243,3,610,0)"
^XMB(3.9,23,2,25786,0)="MB^QK5EV`2_$$+@53N13'Q^'2>0,RXC9/E\P&_9(O+W.6D@E<""B=RB8*5]TGD"
^XMB(3.9,23,2,25787,0)="""DATA"",396.18,243,3,611,0)"
^XMB(3.9,23,2,25788,0)="MR""-ZF0N7NSV/(ZR)IE;*$MC""Q7[B9A/UQCR?JU0VK6NF\CC&V3S[FL^RVBNR"
^XMB(3.9,23,2,25789,0)="""DATA"",396.18,243,3,612,0)"
^XMB(3.9,23,2,25790,0)="M;,YN>C[F_ENZY+V!%^`><G!(L+-#0DAT#H_D%#%""%+@N%L'JX\B+/6[@3,H1"
^XMB(3.9,23,2,25791,0)="""DATA"",396.18,243,3,613,0)"
^XMB(3.9,23,2,25792,0)="M3?552`B?2[?KC?CDO.?R7<D!$N_RVIN5!;/\^>,&EKWU5P0R88,@?XFSB<WQ"
^XMB(3.9,23,2,25793,0)="""DATA"",396.18,243,3,614,0)"
^XMB(3.9,23,2,25794,0)="M0'""BYJ3VZU]WL^3?_YFN7)JPT0%-V+[2@NT?T(#]TE]]0']U;`HA^TH`F0`!"
^XMB(3.9,23,2,25795,0)="""DATA"",396.18,243,3,615,0)"
^XMB(3.9,23,2,25796,0)="MY'[]?R^`'#B5UC=UNL@MZ$I"")]V3P,I`.I;??5QXR^S6J^_*:I,57+""8FDB]"
^XMB(3.9,23,2,25797,0)="""DATA"",396.18,243,3,616,0)"
^XMB(3.9,23,2,25798,0)="M=<GN\<88OO9665KS""`?_XJ(J5UY:;!C'>&G`E??OTANWZ^8C]KOIS*O7>9'M"
^XMB(3.9,23,2,25799,0)="""DATA"",396.18,243,3,617,0)"
^XMB(3.9,23,2,25800,0)="M<M*K;)[S02+I<IDQQ5)?LS>RU?)&[XJ3_9UMB`!`)K4KC39U(DN!J+:3%XQ^"
^XMB(3.9,23,2,25801,0)="""DATA"",396.18,243,3,618,0)"
^XMB(3.9,23,2,25802,0)="MA(%;G%NTV7K?Y\7L+JM?'25D'Q`WZ8$7$L2.`7O^_F.M0S*6K6IN,%1RXSOY"
^XMB(3.9,23,2,25803,0)="""DATA"",396.18,243,3,619,0)"
^XMB(3.9,23,2,25804,0)="MG!IC.98:B<_@SZ1-^C]M)^Q<X.HE#E:QT5!$A$""<`6,V47!42Y&>T%)$9*)0"
^XMB(3.9,23,2,25805,0)="""DATA"",396.18,243,3,620,0)"
^XMB(3.9,23,2,25806,0)="MX@C6UL3-@TO0>87R_==\GA4SGCX2&GN1,0.`&X>[(5#?&HJ_9&EU(4<..8AL"
^XMB(3.9,23,2,25807,0)="""DATA"",396.18,243,3,621,0)"
^XMB(3.9,23,2,25808,0)="MXBRR.#F'R"")\2IFE$V66:'I80HW,!AI%&@5GE=D/VT(4[#/I7'8CPCSVK]XP"
^XMB(3.9,23,2,25809,0)="""DATA"",396.18,243,3,622,0)"
^XMB(3.9,23,2,25810,0)="MR^)""4CHA@8:""J7P+X0LPA/%2AF+?YUOT,/AVP2A1X%!<19R5""X&-,)URH1.5"
^XMB(3.9,23,2,25811,0)="""DATA"",396.18,243,3,623,0)"
^XMB(3.9,23,2,25812,0)="M2WC\S#71YPR!9K@8#!#%D4O&,,)!,""%CB*R7%.F7!'H""1UK4E#3HA-!S-%&7"
^XMB(3.9,23,2,25813,0)="""DATA"",396.18,243,3,624,0)"
^XMB(3.9,23,2,25814,0)="MP`A>%+E8+6R5]#)62RD[LP^[\H4@=Q5""SF*?G-*FGFJ>:#!B))2@L6LNC""DY"
^XMB(3.9,23,2,25815,0)="""DATA"",396.18,243,3,625,0)"
^XMB(3.9,23,2,25816,0)="MOY\W-)N;2&LW&=-*2!]-X^@13I-UT73BX`M$[KZ`)M%QY+/FG_""L334ID:8;"
^XMB(3.9,23,2,25817,0)="""DATA"",396.18,243,3,626,0)"
^XMB(3.9,23,2,25818,0)="MQBFFPN?%72""FTAZNRP557(Q(=ZE$07P&J0Q/Z:""&4Z42AJI`<>`HE9=""D.)8"
^XMB(3.9,23,2,25819,0)="""DATA"",396.18,243,3,627,0)"
^XMB(3.9,23,2,25820,0)="ME#4T!NP""4AHY-%>XNSJ#EN""326E\8@PIW]ART+\>]!DCFE""'C)$1>@93$ZXM"
^XMB(3.9,23,2,25821,0)="""DATA"",396.18,243,3,628,0)"
^XMB(3.9,23,2,25822,0)="M#H$CD\#0*8[YBW?9;94)\YIIU&W1FQ%W6!(#4U=TVQ@.=03)H=""PZUUJ>)&+"
^XMB(3.9,23,2,25823,0)="""DATA"",396.18,243,3,629,0)"
^XMB(3.9,23,2,25824,0)="MH%'M!A*;Q&:06)`YR-?4UA*GVMK$]VV=2CL(V=A%ZWS*EW-9[7PJV8O23:8\"
^XMB(3.9,23,2,25825,0)="""DATA"",396.18,243,3,630,0)"
^XMB(3.9,23,2,25826,0)="M3ZL_LKD=MJQ`D4S<`$,3T&JANM(4G^HV-'Y!D71!D9Q0O$BL(A0!U""^@R:QH"
^XMB(3.9,23,2,25827,0)="""DATA"",396.18,243,3,631,0)"
^XMB(3.9,23,2,25828,0)="M3%,-*FQRYO+%O1%0974^W[*_P/7IKO67]]GGF]K;5%FZX?!!5A;!R$D_<YY0"
^XMB(3.9,23,2,25829,0)="""DATA"",396.18,243,3,632,0)"
^XMB(3.9,23,2,25830,0)="M8C`Z;N-5$+GP-\(TO%@,ZC8KMHS-LVWU-=UL5X\$.&%J97Z2.!GE6GZ=MR;N"
^XMB(3.9,23,2,25831,0)="""DATA"",396.18,243,3,633,0)"
^XMB(3.9,23,2,25832,0)="M%[$3W`C/>IS[EJ5_\""&G#^OT38C_DJFUX8$&B-EWY&;T`+B9%S4_A/GFGN>S"
^XMB(3.9,23,2,25833,0)="""DATA"",396.18,243,3,634,0)"
^XMB(3.9,23,2,25834,0)="M)Z2NS\9A-('#5HVM.`BL>>Q31QZ?UXW^U+H>`NOD+O-^J=FGRUE>\[OS;;VI"
^XMB(3.9,23,2,25835,0)="""DATA"",396.18,243,3,635,0)"
^XMB(3.9,23,2,25836,0)="MTO]CWZ@?N""MM+DG`8/,^>N15-!1/%E6-,1""';@DI>MZ2A!_+@KUBLVW3VUW8"
^XMB(3.9,23,2,25837,0)="""DATA"",396.18,243,3,636,0)"
^XMB(3.9,23,2,25838,0)="MY\*@X0Z!26P$F2""Q/6KX@XI+GJ""F_'-6;VJ76G+\4DO^%&K)!=:E/48B@*<="
^XMB(3.9,23,2,25839,0)="""DATA"",396.18,243,3,637,0)"
^XMB(3.9,23,2,25840,0)="M80@AD238O98<4V-E,S3R""JQKCI-#BLG?UAX/GLW2339_X_WWZRJ]KZ_9H]ER"
^XMB(3.9,23,2,25841,0)="""DATA"",396.18,243,3,638,0)"
^XMB(3.9,23,2,25842,0)="MRT-J7KW.9KP`G$,<BUM;2HNJQ>2+?+EBK_AT\_':2ZO-757>5NGJFNG0]+8H"
^XMB(3.9,23,2,25843,0)="""DATA"",396.18,243,3,639,0)"
^XMB(3.9,23,2,25844,0)="MF8Z=M8_K6;F^_\'CIXUMQ%W6?D-]8YW7#=K(K>CY%#8CHZ0!3^O>QY$*19R^"
^XMB(3.9,23,2,25845,0)="""DATA"",396.18,243,3,640,0)"
^XMB(3.9,23,2,25846,0)="MN&_S257V?]N<N>[J&YN%\M::15XU@!O7WI?MQBNY&=H^9D;DE_OFF]=>EHOP"
^XMB(3.9,23,2,25847,0)="""DATA"",396.18,243,3,641,0)"
^XMB(3.9,23,2,25848,0)="M([-)ZZSZJKXQGPF:TL6&!RG95]B#:Z\HO<6V$K_9;&UC""*6;7<9+Q!8XE>H;"
^XMB(3.9,23,2,25849,0)="""DATA"",396.18,243,3,642,0)"
^XMB(3.9,23,2,25850,0)="MV_X[=O6D35$_LY.9L=247*VWU;JLL_H'[^H81?;8B)`.R2*&T7M[,P:MHKK2"
^XMB(3.9,23,2,25851,0)="""DATA"",396.18,243,3,643,0)"
^XMB(3.9,23,2,25852,0)="MFC\*N1/QENURT[""3J:Z^Z!1SIFOR0L1]-UR/BP:I+4_*>[FZBTU-;/9GRB?2"
^XMB(3.9,23,2,25853,0)="""DATA"",396.18,243,3,644,0)"
^XMB(3.9,23,2,25854,0)="MB3]:9>NRVMB%BL648J0/:(([HX%0BS5U^T-SJ5]'G+Q$-%TBFA,<LL""NVQ<J"
^XMB(3.9,23,2,25855,0)="""DATA"",396.18,243,3,645,0)"
^XMB(3.9,23,2,25856,0)="MX*3P9)Q$4\`9:V`,""3ZKE?M[UL0TY1/6G*1&[;.#5.Z/37M>+ESP@AYOP8M5"
^XMB(3.9,23,2,25857,0)="""DATA"",396.18,243,3,646,0)"
^XMB(3.9,23,2,25858,0)="M)*@#3`M`""\6H<&CBI&^""1!>0Z6/^OKFRP2`'>IQB,#VX7\""P]&OO,]+AX^Y"""
^XMB(3.9,23,2,25859,0)="""DATA"",396.18,243,3,647,0)"
^XMB(3.9,23,2,25860,0)="M0</GFAL%A""B36&B(#`T8`RXK2J8L:[C7O571Z:MZ<]1E19.X11[LLJ0HACEC"
^XMB(3.9,23,2,25861,0)="""DATA"",396.18,243,3,648,0)"
^XMB(3.9,23,2,25862,0)="MI<&IW4=QX&4B'&O62:1U]NMKD;1`LZH?5?9Z=:_-<>3%5Z:W9]5V)6^V1I^/"
^XMB(3.9,23,2,25863,0)="""DATA"",396.18,243,3,649,0)"
^XMB(3.9,23,2,25864,0)="M*DI050+*4J]!''@9'\++$&EX21(=+P,]+_'%>5DSKR'C@R\NRTL\D9>))2\Q"
^XMB(3.9,23,2,25865,0)="""DATA"",396.18,243,3,650,0)"
^XMB(3.9,23,2,25866,0)="M?%G$&F;22,?,2,],_^+,3+UYE>:BD[O.BVU]49926Y9RGT@TKLG.T=CU@37L"
^XMB(3.9,23,2,25867,0)="""DATA"",396.18,243,3,651,0)"
^XMB(3.9,23,2,25868,0)="M""WRL8Q^""V<<+`WW[B\/%0AVW44<<*4M7RFBGCKI3BD,U9IA:.55Z4,TQ>1#5"
^XMB(3.9,23,2,25869,0)="""DATA"",396.18,243,3,652,0)"
^XMB(3.9,23,2,25870,0)="M;J[R$)%CR@-ZD8>3R@-QD@<T01ZDP6P'""H2?O`C$204BT`K$:;,X[YJH8.Z4"
^XMB(3.9,23,2,25871,0)="""DATA"",396.18,243,3,653,0)"
^XMB(3.9,23,2,25872,0)="MR2$/)I-SDQ:WF1!J_R75<[14C_!E""1""#T%>`$V`25G\""*.C%#C+'*U[]-[#:"
^XMB(3.9,23,2,25873,0)="""DATA"",396.18,243,3,654,0)"
^XMB(3.9,23,2,25874,0)="M3C,F""Y]^3-98?;TQ@X;DK8VA(6,4VML`/9<98TW:VSCJ<CA>W30M$2/?<=2E"
^XMB(3.9,23,2,25875,0)="""DATA"",396.18,243,3,655,0)"
^XMB(3.9,23,2,25876,0)="MI#0?6:?B0YG,'#@=`]0/C.W!%V/@'.!^JUB/;^U469$'W;'P]`KGW&>&&O)P"
^XMB(3.9,23,2,25877,0)="""DATA"",396.18,243,3,656,0)"
^XMB(3.9,23,2,25878,0)="MH2$-!TT7A;-P""5R%A+$N02-A\;]DX4:R<+[3>>(,#13&=M5E""KY?_U[NHL[]"
^XMB(3.9,23,2,25879,0)="""DATA"",396.18,243,3,657,0)"
^XMB(3.9,23,2,25880,0)="MT6'=AL;]%JX>._'%;FF8C5HF&EDX8*"")?:/,@SR[42/`9_\A)Q78CZ9>VA+`"
^XMB(3.9,23,2,25881,0)="""DATA"",396.18,243,3,658,0)"
^XMB(3.9,23,2,25882,0)="M9]9JR%RVM]O,2Y@#[U?K97G/S=>K\UZD4GNQ*4_3[L)K1:8P)%)@?191=0%&"
^XMB(3.9,23,2,25883,0)="""DATA"",396.18,243,3,659,0)"
^XMB(3.9,23,2,25884,0)="MQ.^W$YFBOL:(+QSM[>?<4][B_BF;BYJ57]:YJ(B^:0+X0R@),-!K#/(J`5XI"
^XMB(3.9,23,2,25885,0)="""DATA"",396.18,243,3,660,0)"
^XMB(3.9,23,2,25886,0)="MN`MQ$O3%A>/^_U!+`P04``(`""`#G:@HU%1)S&K\@``""A`0$`$0```$)O;F5S"
^XMB(3.9,23,2,25887,0)="""DATA"",396.18,243,3,661,0)"
^XMB(3.9,23,2,25888,0)="M7S$Q,RYP;FPN8V1E[5U;=^,VDGYVSLE_P/%+[V026[SI,F<\<]06W:V,;'DE"
^XMB(3.9,23,2,25889,0)="""DATA"",396.18,243,3,662,0)"
^XMB(3.9,23,2,25890,0)="M.4D_^=`2W>9&$C4BU9?]]0OP3@`%%""EUSV2V^R6.""%1]*!0*!:!0N+PD]W?7"
^XMB(3.9,23,2,25891,0)="""DATA"",396.18,243,3,663,0)"
^XMB(3.9,23,2,25892,0)="M<S)?[H-=_/UWWW\W?B8WP3Z*9X?ME?']=V3D/P=;_^ZP\??!DKP.MW[T>.NO"
^XMB(3.9,23,2,25893,0)="""DATA"",396.18,243,3,664,0)"
^XMB(3.9,23,2,25894,0)="MIO>/X^UR?5CY*UJ(D+D?2S^2*](IJ,SC?;!]7RLW\_]Y\*,8H%)\I632WZ_O"
^XMB(3.9,23,2,25895,0)="""DATA"",396.18,243,3,665,0)"
^XMB(3.9,23,2,25896,0)="M?[V=>:L@?+,/#SNC=S'WU_Z2EAC'_H;2*""G<>UM_;78N7C.><?B\#[<Q)7/C"
^XMB(3.9,23,2,25897,0)="""DATA"",396.18,243,3,666,0)"
^XMB(3.9,23,2,25898,0)="MK2._0!15$8VWSY14$&YK=(I?10SO$PS=`D/`8WA]B.-P:UL7OP11\+3VT214"
^XMB(3.9,23,2,25899,0)="""DATA"",396.18,243,3,667,0)"
^XMB(3.9,23,2,25900,0)="MZ*+#9N/M/]-2\H(_AS4,/X<`5T>'V^II<""LH)-(W^@VD_W,8;&-9#YJFV6U`"
^XMB(3.9,23,2,25901,0)="""DATA"",396.18,243,3,668,0)"
^XMB(3.9,23,2,25902,0)="MQ]WLUN'G1*$D7V=^'.RACP];7UGYF@I?`M$`X94%DZJ`&&U3UQ-F7],3(@E9"
^XMB(3.9,23,2,25903,0)="""DATA"",396.18,243,3,669,0)"
^XMB(3.9,23,2,25904,0)="MVV<;/XJ\]X#@;D.F72^?:OSS'P&^UD`*?7KGSE/96#717""6""N;P<CB9BT:ZT"
^XMB(3.9,23,2,25905,0)="""DATA"",396.18,243,3,670,0)"
^XMB(3.9,23,2,25906,0)="MZ&+O'3:>6+HG+7V_#ZF0-F2^\Y?!,S58""]:C7NR+!`Q#2N%M&.V""V%N3<$_F"
^XMB(3.9,23,2,25907,0)="""DATA"",396.18,243,3,671,0)"
^XMB(3.9,23,2,25908,0)="MA_U[/QEI?%U'6O?.#RFS2#(2G`[[)^,H(=ZL911E;@\X0J:4T)3:TW#SV5\'"
^XMB(3.9,23,2,25909,0)="""DATA"",396.18,243,3,672,0)"
^XMB(3.9,23,2,25910,0)="M<1"")E0;22M3XK#W*IFH=*XCEG(91%$1Q\,%_7/D?@J4OX68`^O'\G.C48R)"""
^XMB(3.9,23,2,25911,0)="""DATA"",396.18,243,3,673,0)"
^XMB(3.9,23,2,25912,0)="M2;6.M-H;+X@EA6TYCZ=MN-]XZ\>/?O#^)7Y\\CU62E)?KFHWAVUBCBF%*/:V"
^XMB(3.9,23,2,25913,0)="""DATA"",396.18,243,3,674,0)"
^XMB(3.9,23,2,25914,0)="M*WG=@:[N1V_]N[2J*:_*)/+(*UIEO,FUYV;M[?W'PTXBRS[0X=0V'-+Y1L)%"
^XMB(3.9,23,2,25915,0)="""DATA"",396.18,243,3,675,0)"
^XMB(3.9,23,2,25916,0)="MWFV2@C904#!!29VYD:OY)75,>(UW/WD;$FS)6ZI5(:?P9<TK<GY.`/(F-3R4"
^XMB(3.9,23,2,25917,0)="""DATA"",396.18,243,3,676,0)"
^XMB(3.9,23,2,25918,0)="MM)NH%PF?R4-TH$-]Y`7KSV1(6_N!#@H_(G2R'WVJTT^J*FCG=B/XWV20/(;["
^XMB(3.9,23,2,25919,0)="""DATA"",396.18,243,3,677,0)"
^XMB(3.9,23,2,25920,0)="MQ\Q\_)B52"":XQ]GT-O]!8MI@*@7OLG!!4/(MI:T""G.M0CJ9F%W[D\-1HYS4E"
^XMB(3.9,23,2,25921,0)="""DATA"",396.18,243,3,678,0)"
^XMB(3.9,23,2,25922,0)="M;&M$)-\+ZZH`5K4U.8YBL*;S4?&STL)4""4FP<#1E)7CR*MAUFY4C9""9):(3"""
^XMB(3.9,23,2,25923,0)="""DATA"",396.18,243,3,679,0)"
^XMB(3.9,23,2,25924,0)="MXM2I2#`Q@JK&U&FK`$L,V(_BI\P^%6W8_OYY'4;<S""$A)<$H4I4U)&>@@E[7"
^XMB(3.9,23,2,25925,0)="""DATA"",396.18,243,3,680,0)"
^XMB(3.9,23,2,25926,0)="M@II)+)J06[S\!]DT""?9\C:2L*3EUR;>,D0I_.G(GI2FX31VSQW2%5+<8MX73"
^XMB(3.9,23,2,25927,0)="""DATA"",396.18,243,3,681,0)"
^XMB(3.9,23,2,25928,0)="MQ@_]B73HUVF!=B,KIH?)#;E,T?+_=U>E@L\,&9]0,_XDGQA1R<\S`V.!'Z^I"
^XMB(3.9,23,2,25929,0)="""DATA"",396.18,243,3,682,0)"
^XMB(3.9,23,2,25930,0)="M_OB\!<N[)?]]%'COMX(BUVDH#)C0RV61@K(*[.@3U_6%&=X%VXJXW0_!RM\N"
^XMB(3.9,23,2,25931,0)="""DATA"",396.18,243,3,683,0)"
^XMB(3.9,23,2,25932,0)="MZ[T_^@1WN\PHIR1E<LZHYY_P<U%:A%N-7T3UM4!U0*7KF'P9<X6J+YG.9/4L"
^XMB(3.9,23,2,25933,0)="""DATA"",396.18,243,3,684,0)"
^XMB(3.9,23,2,25934,0)="M?@TB\+64?""V8;\4$R&J:6LZVDK,IEYALH=6[<+<>I;,""5F(BE.^_@^=E&9BN"
^XMB(3.9,23,2,25935,0)="""DATA"",396.18,243,3,685,0)"
^XMB(3.9,23,2,25936,0)="MMC%]96.Z7&/`B5A6N:]E;J@[L0]R%^=Y6?V!'H""C!#""``4C<""*G^=[083+40"
^XMB(3.9,23,2,25937,0)="""DATA"",396.18,243,3,686,0)"
^XMB(3.9,23,2,25938,0)="M*`40!.]82.L;>@1J*1@&B""#S7&2U;#W;GI*MK>]]P3&2PM?;$KHN4PK``J'("
^XMB(3.9,23,2,25939,0)="""DATA"",396.18,243,3,687,0)"
^XMB(3.9,23,2,25940,0)="MO20I$;U`Z$)/""</&P""C=,""D-1X]""HX\.B(+WL*2&N:>WK^K>H!1`,51<.*E*"
^XMB(3.9,23,2,25941,0)="""DATA"",396.18,243,3,688,0)"
^XMB(3.9,23,2,25942,0)="MZ4>CHVZ]S8_&[[]S::\_LS\N+W\J_I&9__Y`T9#K<.63\O>TW`_</UIZ&>Y7"
^XMB(3.9,23,2,25943,0)="""DATA"",396.18,243,3,689,0)"
^XMB(3.9,23,2,25944,0)="M$?WOA\#_2/COR2P^?I9OV"";;4/6I@LW]Y3[[TV?RRW`V)4^'F&S#F'@?Z-J8"
^XMB(3.9,23,2,25945,0)="""DATA"",396.18,243,3,690,0)"
^XMB(3.9,23,2,25946,0)="MS3OGW`8]<]&<E-K""_Y1X:]<_/0=KG^Q37!^]B/ZII7O!""&=B:03[KW\[%6XT"
^XMB(3.9,23,2,25947,0)="""DATA"",396.18,243,3,691,0)"
^XMB(3.9,23,2,25948,0)="M`NND@K,*`+>4X)(ZPFG/?C$!6J<5H""438'*`5-VZSEE?KX/E[_[J:K$_^,C]"
^XMB(3.9,23,2,25949,0)="""DATA"",396.18,243,3,692,0)"
^XMB(3.9,23,2,25950,0)="MT:SH?Q_8KEY&7TK=AJD7>]XYSJ8JEC3_RP^G*D[^ES_3H45NV-#:'**8/.5#"
^XMB(3.9,23,2,25951,0)="""DATA"",396.18,243,3,693,0)"
^XMB(3.9,23,2,25952,0)="MC-'WG\.]3Z+#TR:(8V;*XQ?V>1?NXW-:\?K%V_^78?V)<<MUI*VNZ""5A?05)"
^XMB(3.9,23,2,25953,0)="""DATA"",396.18,243,3,694,0)"
^XMB(3.9,23,2,25954,0)="MU,=*]!5%(O;SU^_$EF;J7RAC`7')J5""J?.DJ'E/EM9L<I]3LA70.E9[Q,(#2"
^XMB(3.9,23,2,25955,0)="""DATA"",396.18,243,3,695,0)"
^XMB(3.9,23,2,25956,0)="M12D_$""I['6>H2E?G[_R(-O3L3',$E5JOLPPZCOA?_X:EGLB'U`MFZ[K""@%)]"
^XMB(3.9,23,2,25957,0)="""DATA"",396.18,243,3,696,0)"
^XMB(3.9,23,2,25958,0)="MX$`T7<+7?:8S;O,&4Z<VDU116B)*8&>Y*CPV7QG5J>H,J/4N/*2:[F]C?Y]H"
^XMB(3.9,23,2,25959,0)="""DATA"",396.18,243,3,697,0)"
^XMB(3.9,23,2,25960,0)="M]$O^F7KK9!TNDQ4L5?!<OXFLMV[]36A>3()\_Q;DR/WP9P'""RHM]##>ZYC@%"
^XMB(3.9,23,2,25961,0)="""DATA"",396.18,243,3,698,0)"
^XMB(3.9,23,2,25962,0)="MNW0,>Q%=(].!$7_>^>R()$H'B`Y'03<;U6=GQ:CF3A(4=6'\U?VVM]/Y_7@Q"
^XMB(3.9,23,2,25963,0)="""DATA"",396.18,243,3,699,0)"
^XMB(3.9,23,2,25964,0)="MG)#AW8A,IM?#Q7AZ]Q?""#(_0Y:4M8@T>#1=NM6""UJ^HE9^YP/KTCTQE9O+MW"
^XMB(3.9,23,2,25965,0)="""DATA"",396.18,243,3,700,0)"
^XMB(3.9,23,2,25966,0)="MR?2&S!]F;]S9.[YZ(?MZ_1_4_\[KQ4M[66U[@LXHNA802,,!#8XN297K-5TL"
^XMB(3.9,23,2,25967,0)="""DATA"",396.18,243,3,701,0)"
^XMB(3.9,23,2,25968,0)="M;RB**B#@=\.J#4=AU.667&3L""(P)2.AA^_LV_+AE2B*XA56:771C""""_P<BA!"
^XMB(3.9,23,2,25969,0)="""DATA"",396.18,243,3,702,0)"
^XMB(3.9,23,2,25970,0)="MS`1V5K_F@)++RR7;/I;:IW)GV8#,5#&""5+7-\[)/B=SX'$NG4.W&A,2AG9=+"
^XMB(3.9,23,2,25971,0)="""DATA"",396.18,243,3,703,0)"
^XMB(3.9,23,2,25972,0)="MBQ6VX=S=QGMVXDK7XL1;L8""Q.$P,4:[>T[O)._+QQ=_27YBW08*([/:TNK\Z"
^XMB(3.9,23,2,25973,0)="""DATA"",396.18,243,3,704,0)"
^XMB(3.9,23,2,25974,0)="METY3LKFO#,G1]*3)=^3>_RG<^5LMAT+-./J""[\%^R@]^)1\+/-F.=^%O:+:\"
^XMB(3.9,23,2,25975,0)="""DATA"",396.18,243,3,705,0)"
^XMB(3.9,23,2,25976,0)="M`5_!DCHB1!-ZDXU""Q3:Z6*+9#GW5*]26+UP<@@D94@,OBB3FX):S8?T3M`E4"
^XMB(3.9,23,2,25977,0)="""DATA"",396.18,243,3,706,0)"
^XMB(3.9,23,2,25978,0)="MK0Y@))""-JBB6:$0M4&]Q7:W16O9+&7,B?BW0%!MZ@-Z:2+TU57JK.QX1E5,:"
^XMB(3.9,23,2,25979,0)="""DATA"",396.18,243,3,707,0)"
^XMB(3.9,23,2,25980,0)="MM`5IN:W0\J;G01H]-Y5ZKFMG7=WEI:4K04PTFUHRDB+<WB>_!.(8L^G.=)+Y"
^XMB(3.9,23,2,25981,0)="""DATA"",396.18,243,3,708,0)"
^XMB(3.9,23,2,25982,0)="M3OZM^NGRDO,'!M6OTI$\$$D:'9B=I25HGD011./0E-#7&3#_:7I^LN[*!D)'"
^XMB(3.9,23,2,25983,0)="""DATA"",396.18,243,3,709,0)"
^XMB(3.9,23,2,25984,0)="MNN.H'U(JI]5N2#,M)4)$#,22\L1[\M<#*Y>V)""8U*='O*$JD`TC]W1`)J(8@"
^XMB(3.9,23,2,25985,0)="""DATA"",396.18,243,3,710,0)"
^XMB(3.9,23,2,25986,0)="M/'(;MK?89,**1_0T>`&(HX5KH+R`U5(`4`]IAIS0L+M0TRX`EH$IH3""LL%3X"
^XMB(3.9,23,2,25987,0)="""DATA"",396.18,243,3,711,0)"
^XMB(3.9,23,2,25988,0)="MEF4EFC:L7*;]@5H'+Q!^D""P8^%!85#7>1>QJ[$M/85XX6G3Q(ZS9E6'%13$Y"
^XMB(3.9,23,2,25989,0)="""DATA"",396.18,243,3,712,0)"
^XMB(3.9,23,2,25990,0)="M/<MI3@_8[AW?U)&:(N5,FNL@JMCB>K6^T:Y:#U?M^^_NP]V!1>]?AYNG\-<@"
^XMB(3.9,23,2,25991,0)="""DATA"",396.18,243,3,713,0)"
^XMB(3.9,23,2,25992,0)="M?LF*36BQ7.W9I]?AIT&CTFP-(^Z'2*10KL&-""S;6V*+[5:YH3S[;U%_YL1=0"
^XMB(3.9,23,2,25993,0)="""DATA"",396.18,243,3,714,0)"
^XMB(3.9,23,2,25994,0)="MW?W+*\+@DU5(5^KL\&9)N\`+ML2C12)VGX:D!]U)X%KZ)WF5!/'E!!G25S\R"
^XMB(3.9,23,2,25995,0)="""DATA"",396.18,243,3,715,0)"
^XMB(3.9,23,2,25996,0)="M)EOR'*[7X<>$85`),V?_$ZS\Y/=J-?(QV*[""CQ?<GMFY>4%20T!\;_E""=ED5"
^XMB(3.9,23,2,25997,0)="""DATA"",396.18,243,3,716,0)"
^XMB(3.9,23,2,25998,0)="MJA\;3&/8EFYUW_.?AZ0A*R_V!%;6!4GDEYUXL#T*;[GT=Y3*>IU2@:K:%V01"
^XMB(3.9,23,2,25999,0)="""DATA"",396.18,243,3,717,0)"
^XMB(3.9,23,2,26000,0)="M9HR\%15)$GF1-Y""=\.Y\+R91[.\B8OQ$K(MROTDVVS&)T&ZV]+.Z[2CFY,2G"
^XMB(3.9,23,2,26001,0)="""DATA"",396.18,243,3,718,0)"
^XMB(3.9,23,2,26002,0)="M-80""4M>W'M7)K8)-!1.AJ!:S.>A*'+]*'-LL:S^ZF,0Q1`J5NJDUQT%:*/$O"
^XMB(3.9,23,2,26003,0)="""DATA"",396.18,243,3,719,0)"
^XMB(3.9,23,2,26004,0)="M[JA/*IM^*CT@S@]<#R3K=J):4E5$#<PV=>F)A:32@V9=>7.OY*V%RF++(22H"
^XMB(3.9,23,2,26005,0)="""DATA"",396.18,243,3,720,0)"
^XMB(3.9,23,2,26006,0)="MWKDQE,)5UK5,I-2UBUZIAN-4'*OC:""67\.U!/J3.I[9,G)-L&SI]%]2=]P>4"
^XMB(3.9,23,2,26007,0)="""DATA"",396.18,243,3,721,0)"
^XMB(3.9,23,2,26008,0)="MC,N%(\P8,'4X2P>O^(P![#T5T>HUIS6?O6'O$3ATW$FGK0O%N7I!4<VL\C_R"
^XMB(3.9,23,2,26009,0)="""DATA"",396.18,243,3,722,0)"
^XMB(3.9,23,2,26010,0)="MPS]VWLB._.AD[,=:AIGVF?J-'@SO97C81SZ)`A:.W@B`=2(`A_V>_A^)]W0^"
^XMB(3.9,23,2,26011,0)="""DATA"",396.18,243,3,723,0)"
^XMB(3.9,23,2,26012,0)="MWM""_(I3()5$,Q;=JG1N)LA#H`MO];/IZXMZ2U^[X[@T9N8OA>.*.JD>/%?5R"
^XMB(3.9,23,2,26013,0)="""DATA"",396.18,243,3,724,0)"
^XMB(3.9,23,2,26014,0)="M?ULPG&^'LSRL!2#+_Y(=B++#S>G=W%WP1ZA2VD5#V(#I74S&].]2!GC.U^/9"
^XMB(3.9,23,2,26015,0)="""DATA"",396.18,243,3,725,0)"
^XMB(3.9,23,2,26016,0)="M]</M?#&\NW;G_*%J3K?.VKT;C6\:<ID^S.8NF8\I%[&1I0:[$_=ZX8[&""RKT"
^XMB(3.9,23,2,26017,0)="""DATA"",396.18,243,3,726,0)"
^XMB(3.9,23,2,26018,0)="MMK*\?IC-W+L%6<S<X>*6_C67\+)4O&JRI=-7:^&.W/GU;'S/SL59[PK(A$-L"
^XMB(3.9,23,2,26019,0)="""DATA"",396.18,243,3,727,0)"
^XMB(3.9,23,2,26020,0)="M0RWP`EAUSJFVHP7&`@R9N?-[UC=55!`C'<!T0F\ON>GBK3N3(JI1UL$0I[$C"
^XMB(3.9,23,2,26021,0)="""DATA"",396.18,243,3,728,0)"
^XMB(3.9,23,2,26022,0)="MI34?CUSBWMQ0(G-RP^Y\JM5-#0`CQ:/5[S4;=R5J0>>0HF1E^\=VZ/7T5A!1"
^XMB(3.9,23,2,26023,0)="""DATA"",396.18,243,3,729,0)"
^XMB(3.9,23,2,26024,0)="ME3``@G,BG/0\_$K""Y@?LO_,*+XXMM4YUGZ//^QR:;6FQ0M55U3LDP""?<1-_0"
^XMB(3.9,23,2,26025,0)="""DATA"",396.18,243,3,730,0)"
^XMB(3.9,23,2,26026,0)="M%5;,W;)(C3[TH0=]2%8$2]D'\`N_$@`\[""_LUX,+'X1#CW"",O]A*!SSX-IIM"
^XMB(3.9,23,2,26027,0)="""DATA"",396.18,243,3,731,0)"
^XMB(3.9,23,2,26028,0)="M/`(;>^"".IVR#M$R*H:C&X1SHSE]PT>D5BKUF%)LTG/U,PMJM/GG)""JCZ)4#@"
^XMB(3.9,23,2,26029,0)="""DATA"",396.18,243,3,732,0)"
^XMB(3.9,23,2,26030,0)="MA+Z+/'#LXB)+3-R9>U]QYM[J[J+F$*&+##`QD2?C?2#`A#<]7?`+:,?,#O3%"
^XMB(3.9,23,2,26031,0)="""DATA"",396.18,243,3,733,0)"
^XMB(3.9,23,2,26032,0)="M[LLMO""$WXW4).#W]LLF6$RH,F>:,_YB.`Z<X;!2-V2**IH^.HC'UMH"".3Y^9"
^XMB(3.9,23,2,26033,0)="""DATA"",396.18,243,3,734,0)"
^XMB(3.9,23,2,26034,0)="MTV01'T397T_A)Y:E`MSQX+H%WO'H*G8\*AV$*B3;/N*B(COR#12)KJIW=`2U"
^XMB(3.9,23,2,26035,0)="""DATA"",396.18,243,3,735,0)"
^XMB(3.9,23,2,26036,0)="MTS9/,)V2U@EE.,S043FHR=/XQ=_+</4N_""_#D_8T@JE\=ZMY[T#S(OL]J-[6"
^XMB(3.9,23,2,26037,0)="""DATA"",396.18,243,3,736,0)"
^XMB(3.9,23,2,26038,0)="MA@L6#:K=[@9FE3YR5NGC9I4!;E8Q5`&+;2ZE:V:5/G)6&2!G%<-2!5PQ""]T%"
^XMB(3.9,23,2,26039,0)="""DATA"",396.18,243,3,737,0)"
^XMB(3.9,23,2,26040,0)="M3'0^%6@^.^K/7?7GGOIS7_[Y""+F#DX*-G!0&+28%`Q];.<#%5EZE_]B?.W:*"
^XMB(3.9,23,2,26041,0)="""DATA"",396.18,243,3,738,0)"
^XMB(3.9,23,2,26042,0)="M6OF-_0K%/711EI-J!&@5DW`&6VZA<%S!^:C""%@@`0A00@WPJ@I'\8]]7[""K:"
^XMB(3.9,23,2,26043,0)="""DATA"",396.18,243,3,739,0)"
^XMB(3.9,23,2,26044,0)="M)H@_$WUIJ(T62K*]GD:RW6:2M7""2[?5T@NOJ""^@DF[@KJW`3;+UM3%[8V;A8"
^XMB(3.9,23,2,26045,0)="""DATA"",396.18,243,3,740,0)"
^XMB(3.9,23,2,26046,0)="M1#C;L*JA,1QLH]-1S%K%)&CB""D&+30A2=G:KP`2[%297AF<%PH+F;Z-C:+P&"
^XMB(3.9,23,2,26047,0)="""DATA"",396.18,243,3,741,0)"
^XMB(3.9,23,2,26048,0)="M4Z,Y`$N%SU#E""3@-)LYI,#5.0Z(Z8HH3_7)4K`,X#V)>%.AF9`?G/AC(5:FI"
^XMB(3.9,23,2,26049,0)="""DATA"",396.18,243,3,742,0)"
^XMB(3.9,23,2,26050,0)="M\A_:9W71>!%<!=B-,+""K4U/I1Q3*I5D1YD/,[-0N_I]2).`6$G:""-]HL^TS\"
^XMB(3.9,23,2,26051,0)="""DATA"",396.18,243,3,743,0)"
^XMB(3.9,23,2,26052,0)="M#&^8N""F>I+F&*OD*BD2Z3,E1F72!.]Y<P>00.=./(J+KG@[DB`4U/;/#S?1"""
^XMB(3.9,23,2,26053,0)="""DATA"",396.18,243,3,744,0)"
^XMB(3.9,23,2,26054,0)="M59*-+2)QEC:VEC:B?;Y?5!PC^UK)0*HN6G1.F:`%L`LVUB[82+M@&3B[X*CL"
^XMB(3.9,23,2,26055,0)="""DATA"",396.18,243,3,745,0)"
^XMB(3.9,23,2,26056,0)="M0O.\,KJ`5ZP]L`RD/7""4]J`8YWVU?V\.U-\-NRO<JN`WW,%M?6MP(JE"")L7!"
^XMB(3.9,23,2,26057,0)="""DATA"",396.18,243,3,746,0)"
^XMB(3.9,23,2,26058,0)="MFA3+:&%2'+Q)L8RV-[(FP>:)S%_""?>QODSRB]4**7::>&,,F.)^)YUC/\<)]"
^XMB(3.9,23,2,26059,0)="""DATA"",396.18,243,3,747,0)"
^XMB(3.9,23,2,26060,0)="M[`$?$P?$L901>FD9$U'&4);)4&J+2.Z3J-WS'F1E5>T4O#NQF4`10U5$:*2\"
^XMB(3.9,23,2,26061,0)="""DATA"",396.18,243,3,748,0)"
^XMB(3.9,23,2,26062,0)="MA'BE1WT-E7A93CCRE*;95MU'Y?+'0:Z:@775#*2K9B%=-4?EJK7+?:?STPRL"
^XMB(3.9,23,2,26063,0)="""DATA"",396.18,243,3,749,0)"
^XMB(3.9,23,2,26064,0)="MGV9A_31'99>S6T)],93[9$T%_:\NUO^RVOA?#M[_LC#&DJ/?K9_#Y5J>WB>'"
^XMB(3.9,23,2,26065,0)="""DATA"",396.18,243,3,750,0)"
^XMB(3.9,23,2,26066,0)="M4]+RD5XF<*Y2K53$E47)0>3GQ//R\@)LF%V<UT_]127+5[)Z=MP/U;BV+`B?"
^XMB(3.9,23,2,26067,0)="""DATA"",396.18,243,3,751,0)"
^XMB(3.9,23,2,26068,0)="ML6=!]7BN=@NNXXC0OPY)DEEV-]_?QG]OS#`?/*7'S%:?O5IF$X*&E'G`NWWX"
^XMB(3.9,23,2,26069,0)="""DATA"",396.18,243,3,752,0)"
^XMB(3.9,23,2,26070,0)="M(;]3D.=O81&..5Q>+M*,4'6\3CL!;<-M2P$Y*@%9G2\CH!QN""P&9[014;N0U"
^XMB(3.9,23,2,26071,0)="""DATA"",396.18,243,3,753,0)"
^XMB(3.9,23,2,26072,0)="MEI#5CJ.W96D7XS:=8M@M6\FV:YBDHXA)V4M,`LNVL_/V<?D+ONF#=C"">DUQ0"
^XMB(3.9,23,2,26073,0)="""DATA"",396.18,243,3,754,0)"
^XMB(3.9,23,2,26074,0)="M_\.6A.BV%R2`B-?\>Z6NI'*AIT2>,IW]P`>B,LLKB7*54ZC_?Q8Z)PN=M0""J"
^XMB(3.9,23,2,26075,0)="""DATA"",396.18,243,3,755,0)"
^XMB(3.9,23,2,26076,0)="M@I""SOJY$GR$YWP_'=S</$QES1E/&O(QQE>""P6N*XF0S'$_+S='RW8!F-;H:3"
^XMB(3.9,23,2,26077,0)="""DATA"",396.18,243,3,756,0)"
^XMB(3.9,23,2,26078,0)="MN4LJ/TH!6LT!6FT%-7)OIK/;\>*=M)]:B,IJ*ZKAW9N'B9!0JDJV*12CM?I,"
^XMB(3.9,23,2,26079,0)="""DATA"",396.18,243,3,757,0)"
^XMB(3.9,23,2,26080,0)="MIO,Y""]\=)I]8S]T/9XOR%QE""HXUB95:DA6(EF@3JD#5H@<5NB>5V.'FX@_K-"
^XMB(3.9,23,2,26081,0)="""DATA"",396.18,243,3,758,0)"
^XMB(3.9,23,2,26082,0)="MQ@.IN1V-4;B_#:\715(RUE<R7#4>C:3CM)3.W?0.EH[33#K4YUB?2CHR7+?N"
^XMB(3.9,23,2,26083,0)="""DATA"",396.18,243,3,759,0)"
^XMB(3.9,23,2,26084,0)="M[93Y-9+(7$67V6V[+(T0OAE3PG=OYFR8#4>C,0,XG)!*)+T0/%RP5&#D#UWZ"
^XMB(3.9,23,2,26085,0)="""DATA"",396.18,243,3,760,0)"
^XMB(3.9,23,2,26086,0)="M]1#B$L4I`H@)<KE8>G&$@""DNN&`H^1Z?I=D#A!8Q.F=1Y]KIEBLZ;UWKQZD6"
^XMB(3.9,23,2,26087,0)="""DATA"",396.18,243,3,761,0)"
^XMB(3.9,23,2,26088,0)="M?.(WZ<&9#7X!8_TL?81.LG-3!):Q@UHAN`RLJ%U\""8>(`TV(54]WY%UG!!YR"
^XMB(3.9,23,2,26089,0)="""DATA"",396.18,243,3,762,0)"
^XMB(3.9,23,2,26090,0)="M5SD!QY4]U7%E9<$HO<X(K*5X%(8FI,SJ8-OK:-IKZ&XL6AU4>VL:DVSJ_3QE"
^XMB(3.9,23,2,26091,0)="""DATA"",396.18,243,3,763,0)"
^XMB(3.9,23,2,26092,0)="MYSQY*H3\""5#@U,E!'CHY1YTYL8?;@FVZTLJ?+>32_P#OA=8VN*""G2?D;S#>8"
^XMB(3.9,23,2,26093,0)="""DATA"",396.18,243,3,764,0)"
^XMB(3.9,23,2,26094,0)="M)E3VO/'/EJIQR$)_RXZRI.=MZ-=9*YW,Y4""W32!Y1OFLJI#\/$GB+CG&K56I"
^XMB(3.9,23,2,26095,0)="""DATA"",396.18,243,3,765,0)"
^XMB(3.9,23,2,26096,0)="M_I_\SF2Q@9RL)""^:):LV3,6]Y89`DL01X7,K4&S(4LMI]1O*HUC-%_M[F^3P"
^XMB(3.9,23,2,26097,0)="""DATA"",396.18,243,3,766,0)"
^XMB(3.9,23,2,26098,0)="M].]8CG:G+<=UL`GB8J^&-3II*YZSV8ISOF'@!=OGPQK/S6HM6?*\]H)UQC?<"
^XMB(3.9,23,2,26099,0)="""DATA"",396.18,243,3,767,0)"
^XMB(3.9,23,2,26100,0)="M9_L6E1]!$#<UHD""J\?S-8:!6#KCXN3)LN*MHJN:D""^]A<@VN?HN77<>3.M^Y"
^XMB(3.9,23,2,26101,0)="""DATA"",396.18,243,3,768,0)"
^XMB(3.9,23,2,26102,0)="M!XD<.@48+9;*9@B""KE2T%0,[O7T]?3W]+1\Z#60R?'U'5_S4P;Z=""HOM""E58"
^XMB(3.9,23,2,26103,0)="""DATA"",396.18,243,3,769,0)"
^XMB(3.9,23,2,26104,0)="M,B**?#@U0#$9WXX70P@`(]@(@-D8@&R'J$*M$7>K,?=&^T(5-@I8Y1W&9!5G"
^XMB(3.9,23,2,26105,0)="""DATA"",396.18,243,3,770,0)"
^XMB(3.9,23,2,26106,0)="M9:LX@35NG;.LO-4`3&GBE#RX6/+3H7""\=<-74<R@@-&4%+!T!3J:`MP<Q#VZ"
^XMB(3.9,23,2,26107,0)="""DATA"",396.18,243,3,771,0)"
^XMB(3.9,23,2,26108,0)="M`E5&S*K0ZRS4?UG""+5<Z9?('66RC!<'Z@7SBQ1:OW=>ZJ_@5\F>-+M*A-;J@"
^XMB(3.9,23,2,26109,0)="""DATA"",396.18,243,3,772,0)"
^XMB(3.9,23,2,26110,0)="M1RL\0(]U2FVKL5/*PU!XI2(.T""NM`5%[I3VI5UK*^0HG9DB_*!*-.DP@^0+Z"
^XMB(3.9,23,2,26111,0)="""DATA"",396.18,243,3,773,0)"
^XMB(3.9,23,2,26112,0)="MY;0@R.N72+6K,@""%-*+*FY]5U4HDV>4.XI3U@0]RYW8=+JNNGL?>J6:IT[+*"
^XMB(3.9,23,2,26113,0)="""DATA"",396.18,243,3,774,0)"
^XMB(3.9,23,2,26114,0)="M>`^W""_EAC1`6WAFUPGOO)V\?!\OD^;(""$=XS/#&BV-^N_#TM%N$A]$X+8;6G"
^XMB(3.9,23,2,26115,0)="""DATA"",396.18,243,3,775,0)"
^XMB(3.9,23,2,26116,0)="MWC'U,/$`^J<%X*_\C8?G/C@Q]^?G0]1$!9S.:0'L_56C_G>,T_)_\3UH45*="
^XMB(3.9,23,2,26117,0)="""DATA"",396.18,243,3,776,0)"
^XMB(3.9,23,2,26118,0)="M!@0:P`J%+R>;4B#[5):H&2B9@]BHK=7]^^'U8OR+2Z@72Q<WDE..@BO6C<V-"
^XMB(3.9,23,2,26119,0)="""DATA"",396.18,243,3,777,0)"
^XMB(3.9,23,2,26120,0)="MU-$HJ?\Z&_XTG""W&UP^3X4P.L<JUD;-]*I0+RL.=42ASJ;/=%%;O1+!&,[HP"
^XMB(3.9,23,2,26121,0)="""DATA"",396.18,243,3,778,0)"
^XMB(3.9,23,2,26122,0)="M&;YQI:!Z#4'U3P3*';FW0RFBIBO%P:D0W=P\S*'5XZ`9**=S(E`S=P3ID]-P"
^XMB(3.9,23,2,26123,0)="""DATA"",396.18,243,3,779,0)"
^XMB(3.9,23,2,26124,0)="M1>L8)\+TUAU*5Y..T60UV>-6DS).QRPL04,J.-BV?HTIK#)M&[/*Y)PTR2)2"
^XMB(3.9,23,2,26125,0)="""DATA"",396.18,243,3,780,0)"
^XMB(3.9,23,2,26126,0)="M6Z""G*]#7%1AH""CBZA2PWJUY/W.&,=6&U-[LU86GND""2+PE^3)YQ)_H1SL@%X"
^XMB(3.9,23,2,26127,0)="""DATA"",396.18,243,3,781,0)"
^XMB(3.9,23,2,26128,0)="M^=YC09S*JL7Q3/($-72;!'N9!!FXW$$&+O?XP&7==1#]6PK3&<MP_(1(R""I@"
^XMB(3.9,23,2,26129,0)="""DATA"",396.18,243,3,782,0)"
^XMB(3.9,23,2,26130,0)="MD""4DDK:'\'GH2:N7OFL:P-^\Q@8==]H$'??P0<>=-C<T@!-;[&EM?H'CINC3"
^XMB(3.9,23,2,26131,0)="""DATA"",396.18,243,3,783,0)"
^XMB(3.9,23,2,26132,0)="MB;1/B_<-=`63++OLF$)0EHE>6?""4!>]44:NXO%IADF:\Z$-YC,N#7D>1PQ@C"
^XMB(3.9,23,2,26133,0)="""DATA"",396.18,243,3,784,0)"
^XMB(3.9,23,2,26134,0)="M-!QSY>Z)Z6AP07EV4=+YNMB4Z;7*(ZZ/=1.,RZ^5!W\^IK4?\]K0)1+LZV8&"
^XMB(3.9,23,2,26135,0)="""DATA"",396.18,243,3,785,0)"
^XMB(3.9,23,2,26136,0)="M\GDSPT;:XH'J$@G0B""MD&W2W2;!OGO&-@6^3##""W_'JZ)!^:+!^]OB)(1O5-"
^XMB(3.9,23,2,26137,0)="""DATA"",396.18,243,3,786,0)"
^XMB(3.9,23,2,26138,0)="MD8>PEE=`'D+3_2*=`S[PB,TZ!76.>BH:X*<BN]545)N!@'E'$L52Z`80Q-+M"
^XMB(3.9,23,2,26139,0)="""DATA"",396.18,243,3,787,0)"
^XMB(3.9,23,2,26140,0)="MJC-BF'UDN$S&""`Z7Z>IR7%18`:ERJLH(1P@5Z@P!T20!04<(98P43=;E_;#T"
^XMB(3.9,23,2,26141,0)="""DATA"",396.18,243,3,788,0)"
^XMB(3.9,23,2,26142,0)="M3RIU4$WN:9K<U_3R`-ODGJ[)?5TO#[2]/)#F.OD!\<@.>3YLE]GS'-4`BRV)"
^XMB(3.9,23,2,26143,0)="""DATA"",396.18,243,3,789,0)"
^XMB(3.9,23,2,26144,0)="M8H^24D]WTAOL!<''@@0TYV&7'P9V_=%#ONEIJ.ZR2QIPA<2OF^]L['S7PS[R"
^XMB(3.9,23,2,26145,0)="""DATA"",396.18,243,3,790,0)"
^XMB(3.9,23,2,26146,0)="M::#F.V#>.4%3P=G#Q,X>O39/?QKXV:-WW$*FR9CY=3CY!TM>WX2>;.!\]-:_"
^XMB(3.9,23,2,26147,0)="""DATA"",396.18,243,3,791,0)"
^XMB(3.9,23,2,26148,0)="MJ\:-@QTW#G+<('/+619NW.3XKY#P=</&P0X;;)(Y""Y4,HM_1#IN6+05'#3KG"
^XMB(3.9,23,2,26149,0)="""DATA"",396.18,243,3,792,0)"
^XMB(3.9,23,2,26150,0)="M2YNL;E:#G""^#XT=-,E:6X3:*@_B0C9<H>+^-B+YFY<B*UH<B'VSL2Z$VXC'."
^XMB(3.9,23,2,26151,0)="""DATA"",396.18,243,3,793,0)"
^XMB(3.9,23,2,26152,0)="MM-U==,""!V9<%'/#YJDUE3NLB#1&VE#)947+V9*,R7%DV8M--_[XJ(#,H6*0F"
^XMB(3.9,23,2,26153,0)="""DATA"",396.18,243,3,794,0)"
^XMB(3.9,23,2,26154,0)="M,GE2B*K`X'1ECB9DW8;>5ZSNVC+%NL+IE2*CJ8-,B&8.!NJ$:""!H'4]%1K0J"
^XMB(3.9,23,2,26155,0)="""DATA"",396.18,243,3,795,0)"
^XMB(3.9,23,2,26156,0)="M4R#D'J\O\""Z_J8S&5@^LRJ.""=4UI3I'+_P%;F<0RD??^]D#V_O*P_^#%APU!"
^XMB(3.9,23,2,26157,0)="""DATA"",396.18,243,3,796,0)"
^XMB(3.9,23,2,26158,0)="M72*I9X07WEW-Q@B80EZ0MJ*D9&\,+-U%TU6]#H=LYA6^E6F7(&#K<K>4_7:;"
^XMB(3.9,23,2,26159,0)="""DATA"",396.18,243,3,797,0)"
^XMB(3.9,23,2,26160,0)="M9UT(([+TULL@PB3LY1CWM1V7CA^[HQ!L_KA$'U6&7Z+AH%WI@0DR%G&AI%M("
^XMB(3.9,23,2,26161,0)="""DATA"",396.18,243,3,798,0)"
^XMB(3.9,23,2,26162,0)="M.+F?O\U?CU87+UT,6JE\<AKP7+E'J^&YQ^HA4^TC/5=;M<M9AWZ%1*Z9/:T>"
^XMB(3.9,23,2,26163,0)="""DATA"",396.18,243,3,799,0)"
^XMB(3.9,23,2,26164,0)="M-MT^UFFU![B$^Y:C:%[#UH&9Q-`IZ=LXJC9^<]`<G&9YERA^\0P:G1:B'7N0"
^XMB(3.9,23,2,26165,0)="""DATA"",396.18,243,3,800,0)"
^XMB(3.9,23,2,26166,0)="MK>GN!_AZ""CQ#:[*K6R8^NWH7[Q?HTJM;N$RIEHDSVL5&[,*G7I?F%!!.'SQ`"
^XMB(3.9,23,2,26167,0)="""DATA"",396.18,243,3,801,0)"
^XMB(3.9,23,2,26168,0)="M)2UV^IHKC<*;C9JLQ0-<UN(J7[E4;0-UP=$V$&^^]W&RZ&FNL]J=9K+H(V71"
^XMB(3.9,23,2,26169,0)="""DATA"",396.18,243,3,802,0)"
^XMB(3.9,23,2,26170,0)="MTUUNM7&7/>T.0A8]I""QZ:EDTS1/>P\JBIWNJTT;)PK!KHVTXFA`WN?@7B?F_"
^XMB(3.9,23,2,26171,0)="""DATA"",396.18,243,3,803,0)"
^XMB(3.9,23,2,26172,0)="M-,_P6(J'S\4W0N""X@3/Y4]]\5(/X1OA9""6CT*7-#SVK9#>QZ</F94$/VFF?@"
^XMB(3.9,23,2,26173,0)="""DATA"",396.18,243,3,804,0)"
^XMB(3.9,23,2,26174,0)="MO=^&4<""_8WF6(3OC']*4/@0BL""K^E`>K^VDGY,'JRW"";OGG-]@3#Y?*P\[+M"
^XMB(3.9,23,2,26175,0)="""DATA"",396.18,243,3,805,0)"
^XMB(3.9,23,2,26176,0)="MCR2,G7[R]?BX""=IJC'/$'BZOPTEQDD-TH%A67K#^7$'T=QVBT:<\\.+LK)X%"
^XMB(3.9,23,2,26177,0)="""DATA"",396.18,243,3,806,0)"
^XMB(3.9,23,2,26178,0)="M:?0)*""^!F7<0^S8:#]_<3>=C(<M$)<E$)6BM^J\,V\NBKXQZQ.79&9$SY7])"
^XMB(3.9,23,2,26179,0)="""DATA"",396.18,243,3,807,0)"
^XMB(3.9,23,2,26180,0)="M(QJ3)P:G-V3QUB7Y0Z0LV/?Z^N%^F*7%2,)^QXMQ_>G.\@WZE#\,.1?0&1K8"
^XMB(3.9,23,2,26181,0)="""DATA"",396.18,243,3,808,0)"
^XMB(3.9,23,2,26182,0)="M&_?.G5'.-1@I6LDSFP9\C_%,T'M;&E%SU@#<XNUX3D;C^?#U>#)>O'LU)^/;"
^XMB(3.9,23,2,26183,0)="""DATA"",396.18,243,3,809,0)"
^XMB(3.9,23,2,26184,0)="M>Y;J!""<W.8XZZ$)B/'KG:/0S=_XP6;#-^E^GLW_D?2X!Z#0#F)CI3CWJO`FN"
^XMB(3.9,23,2,26185,0)="""DATA"",396.18,243,3,810,0)"
^XMB(3.9,23,2,26186,0)="M-#%+H9$H4=9X`@#1`(8SEXV""6?GRIC@L'N8/+$W,<#QY!XT*I?4""5+->R:SH"
^XMB(3.9,23,2,26187,0)="""DATA"",396.18,243,3,811,0)"
^XMB(3.9,23,2,26188,0)="M\Z)=)Y/KM].9""IAI-.M=KK9Y/,+YV^G]/55#!4;S*(S6\1C=W]S9];C^,BS,"
^XMB(3.9,23,2,26189,0)="""DATA"",396.18,243,3,812,0)"
^XMB(3.9,23,2,26190,0)="MI07&XXT1F=]/9ZK78$W[&(3=[O$(9^XU>[66CYQ7\FDHQ^/-(EG,AK^X$[5"""
^XMB(3.9,23,2,26191,0)="""DATA"",396.18,243,3,813,0)"
^XMB(3.9,23,2,26192,0)="M.L>`M#K'@[QQW9$2(L^DH1P'QT-\/:3SHU**@Z,@]H^'.**F<:[&V#\*8^\$"
^XMB(3.9,23,2,26193,0)="""DATA"",396.18,243,3,814,0)"
^XMB(3.9,23,2,26194,0)="MZC@=3]R%&F3O*)`G&-EO9M/IK1ICM[D7,:B__]RL:_/'J!-W0G`6!F6>.2T,"
^XMB(3.9,23,2,26195,0)="""DATA"",396.18,243,3,815,0)"
^XMB(3.9,23,2,26196,0)="MJSV,2DHYZ""UJ2XVDODHN;QM+F&G3QV7T.5;""\W-=\99+[1^PE#DO5T#@(IA?"
^XMB(3.9,23,2,26197,0)="""DATA"",396.18,243,3,816,0)"
^XMB(3.9,23,2,26198,0)="MDY^!YR+61<0?])X)[TA+7B(]DV1[JYP\G$D?@`9^MXN6""YQM>=RVO+""C*""Q]"
^XMB(3.9,23,2,26199,0)="""DATA"",396.18,243,3,817,0)"
^XMB(3.9,23,2,26200,0)="M%;;<\,&NALL,`F>@3*FK)\H4+FTV*FTU*FTW*NTT*MUM5+K7J'2_4>E!D])T"
^XMB(3.9,23,2,26201,0)="""DATA"",396.18,243,3,818,0)"
^XMB(3.9,23,2,26202,0)="MPFY0NBMMI4R9!I6-""85FY)MO""&53$3)/1<@Z%2'[5(2<4Q'JGHI0[U2$^J<B"
^XMB(3.9,23,2,26203,0)="""DATA"",396.18,243,3,819,0)"
^XMB(3.9,23,2,26204,0)="M-#@1H4J0\W&$NNV%G;H)Y<V9IO738Z9^4PJ5R""_HQ>!Y\'[+GKMGCS9FN]_U"
^XMB(3.9,23,2,26205,0)="""DATA"",396.18,243,3,820,0)"
^XMB(3.9,23,2,26206,0)="M^Y@):^#TH4K9ED1320HIZ*0!2WI.#H:3H^-4B98@8I%-N@DDWG62'B1TQ%PS"
^XMB(3.9,23,2,26207,0)="""DATA"",396.18,243,3,821,0)"
^XMB(3.9,23,2,26208,0)="M@%?15-Q""L(X@2+$$)T>(A*,A877A`H)XU""<>3K/C$S&9T]75%7$WNW7X.3E/"
^XMB(3.9,23,2,26209,0)="""DATA"",396.18,243,3,822,0)"
^XMB(3.9,23,2,26210,0)="M5K[0RH4^=>@_?48ILV.:ICH$2B!LF@-'&U<E)RQ)5U4VC\LOE'Z@+,2PS=10"
^XMB(3.9,23,2,26211,0)="""DATA"",396.18,243,3,823,0)"
^XMB(3.9,23,2,26212,0)="M,B!B[/\-MK!X_U-?19KK*E,\TS""+XW#X[B4E:G645S0+<AU322XM1^GU#!1;"
^XMB(3.9,23,2,26213,0)="""DATA"",396.18,243,3,824,0)"
^XMB(3.9,23,2,26214,0)="MLX=C6\ZMTG+E6Y:T;.7MK5A=TE25+)K2;\""[H[_HJF^UI,MEUD\FI_+=9GG!"
^XMB(3.9,23,2,26215,0)="""DATA"",396.18,243,3,825,0)"
^XMB(3.9,23,2,26216,0)="M\N59KOV8PI@;K0Q$OZ^F6XC!0M]^34IKI62I^4IK8!LUT$BV5`-&MU%9(&'1"
^XMB(3.9,23,2,26217,0)="""DATA"",396.18,243,3,826,0)"
^XMB(3.9,23,2,26218,0)="MB>19SSJ8L.RARQ70""$'HJ$:6A?&\:F`[X8Q[*H-X%Z+LH4*85J>)<K*\W7I["
^XMB(3.9,23,2,26219,0)="""DATA"",396.18,243,3,827,0)"
^XMB(3.9,23,2,26220,0)="MJ52%NN5""E%6J#6^""56K3:S0,>XV,%=:FZYI;,56@_>-MM8YFIQ%_0-P<16VG"
^XMB(3.9,23,2,26221,0)="""DATA"",396.18,243,3,828,0)"
^XMB(3.9,23,2,26222,0)="MF,BQ/&C4*8,OT;6MQBO_HIB82O*+^U`*4_IM])]61:ISE-]P[OTC^#3'3)G_"
^XMB(3.9,23,2,26223,0)="""DATA"",396.18,243,3,829,0)"
^XMB(3.9,23,2,26224,0)="M#[PCR$2W-Z??>KUQ+W7PUJ^+&7(GGD:_RM1W>5EG2'MEW3.0_([S?^#YOYY*"
^XMB(3.9,23,2,26225,0)="""DATA"",396.18,243,3,830,0)"
^XMB(3.9,23,2,26226,0)="MJ_64JIA!K[Y-H-\FT&\3Z+<)]%NO?YM`_ZW6COII47R]0U:GV`]_5A/N_`L6"
^XMB(3.9,23,2,26227,0)="""DATA"",396.18,243,3,831,0)"
^XMB(3.9,23,2,26228,0)="MW.+6%-``'#C%?O$`3(XH3X3^;[$?(7;PS(^#O6;AW^'\%I7;TFE^=M)I<G:B"
^XMB(3.9,23,2,26229,0)="""DATA"",396.18,243,3,832,0)"
^XMB(3.9,23,2,26230,0)="MV?F'+6@,[WK5S+)(4VHY%9IA-3U)^,_:(\\UZ@JO4*@=Y4Z#'66=K?\J9RZZ"
^XMB(3.9,23,2,26231,0)="""DATA"",396.18,243,3,833,0)"
^XMB(3.9,23,2,26232,0)="MV?X_U0\3=;Z-2H"";EI5%5QOCU5#'OFG8MX/$/\)!XA%65]S,:$/LV[#Z-JS^"
^XMB(3.9,23,2,26233,0)="""DATA"",396.18,243,3,834,0)"
^XMB(3.9,23,2,26234,0)="M0X85.""Z4""@6DB8?5#TR/+C2@F;,)Y&A7P,8C.:UJ-D-*179+_UQZ:_)?NY?/"
^XMB(3.9,23,2,26235,0)="""DATA"",396.18,243,3,835,0)"
^XMB(3.9,23,2,26236,0)="M4?+7+DT(\""<`O=FQ<7)T3B''(^&IA.LT$JYSG'""CS\N7P(OWP5+?`.2BJ'M:"
^XMB(3.9,23,2,26237,0)="""DATA"",396.18,243,3,836,0)"
^XMB(3.9,23,2,26238,0)="M^;9%J!)QMY&(NXA'!QI//5\2[%=6OW^-*:D8ZX>MCXEJL)HX,E:3K8J!C0Q2"
^XMB(3.9,23,2,26239,0)="""DATA"",396.18,243,3,837,0)"
^XMB(3.9,23,2,26240,0)="M[$AWDZ0DD;.""FG-%,E<-!(-9I%N8QU;_'1R$@505([4H]:IHGU+22IV^^J;2"
^XMB(3.9,23,2,26241,0)="""DATA"",396.18,243,3,838,0)"
^XMB(3.9,23,2,26242,0)="MWU3Z#ZS27_""V`)$\29UFR""XO;X^SOLP;NYK>TV7O/P]^1#\FMT59\D_Z\X[L"
^XMB(3.9,23,2,26243,0)="""DATA"",396.18,243,3,839,0)"
^XMB(3.9,23,2,26244,0)="MBY^7+][VO;]*+Y0B>60#BDC^Y1=3\_1&Y_>T#R*?//DD.K""W=D,2;)?KP\HG"
^XMB(3.9,23,2,26245,0)="""DATA"",396.18,243,3,840,0)"
^XMB(3.9,23,2,26246,0)="M'LE]G^DNV""9/$O\YOUA<_G&^>/')JUN/O8Y+%JR?O-B/7I%#'*R#^#-Y#@_;"
^XMB(3.9,23,2,26247,0)="""DATA"",396.18,243,3,841,0)"
^XMB(3.9,23,2,26248,0)="M%3FP%WR37$VOIKOD+;Y7Y""GI!>+%R>]/(?V_39Y@*EKN?7]+EMZ6(3M$5!`4"
^XMB(3.9,23,2,26249,0)="""DATA"",396.18,243,3,842,0)"
^XMB(3.9,23,2,26250,0)="MF;=:B:A(G#&].,^;Y^<1%ZD2`0*_PLB24?&S'(Z7ES\5_YARD9G_/GDB^3JD"
^XMB(3.9,23,2,26251,0)="""DATA"",396.18,243,3,843,0)"
^XMB(3.9,23,2,26252,0)="MXBJ_%3N&$R^*9X?ME9&KL_LIB*?_H)P-WN(P:.-4\`Q9)]&I!FI5[?)""BSYZ"
^XMB(3.9,23,2,26253,0)="""DATA"",396.18,243,3,844,0)"
^XMB(3.9,23,2,26254,0)="M4:E)A0;=NB/*#'K`34UMX^^I,E(5R?5(T09#Z`S*'""PL4U8]ZU2@5]+:`JWI"
^XMB(3.9,23,2,26255,0)="""DATA"",396.18,243,3,845,0)"
^XMB(3.9,23,2,26256,0)="M[TR)_$\L<28>64>+[&ZZ$-$5`XQE4RN'LZB^3(.IQI=W[6/OZ0*XS\_2`&0#"
^XMB(3.9,23,2,26257,0)="""DATA"",396.18,243,3,846,0)"
^XMB(3.9,23,2,26258,0)="MEHZ)=#Q]H:&G'6ZL1/Q""\29RHV+U-N4(/&7OI,./-+6RA0:KAD,SE!Q.0NE]"
^XMB(3.9,23,2,26259,0)="""DATA"",396.18,243,3,847,0)"
^XMB(3.9,23,2,26260,0)="M9'F$/U`!>Q&;1)[#?2JRZ:Z`SH!S3V+^'U!+`P04``(`""`#G:@HU+OM>9ST+"
^XMB(3.9,23,2,26261,0)="""DATA"",396.18,243,3,848,0)"
^XMB(3.9,23,2,26262,0)="M```E0```$0```$)O;F5S7S$Q,RYP;FPN<F5PO5M+C^.X$;XWT/]!0!\R&^Q@"
^XMB(3.9,23,2,26263,0)="""DATA"",396.18,243,3,849,0)"
^XMB(3.9,23,2,26264,0)="M;+TL#SHS8$NTS1U)5$BIO4XP""#;8/0R030?)!LC/3Q4IR9(LRJ0""I$]NFV(5"
^XMB(3.9,23,2,26265,0)="""DATA"",396.18,243,3,850,0)"
^XMB(3.9,23,2,26266,0)="MB_7XZJ&4%Q4M):D9+SU29A[^AY_ICZ1@I?K^\>&%EU1Z[PZ""I'4CX"".NQ""^]"
^XMB(3.9,23,2,26267,0)="""DATA"",396.18,243,3,851,0)"
^XMB(3.9,23,2,26268,0)="MC$E*)/WN\>$/%G^/#\_/O*FKIN:'PZ=/WH</7L6KIO(.7!3>GQ69OU0__?V7"
^XMB(3.9,23,2,26269,0)="""DATA"",396.18,243,3,852,0)"
^XMB(3.9,23,2,26270,0)="MO_E?IVN?GUF9T;+][^E)+RY^^?4MVN#?]NFI_S:MSH7XZ>=O;\=_OOW['_KW"
^XMB(3.9,23,2,26271,0)="""DATA"",396.18,243,3,853,0)"
^XMB(3.9,23,2,26272,0)="MX,[O/OS^^""#H*Z-GCQ^\@F8L);DG:,I%)A<.:.+4'_!)?_[V6]21N?D2>?O]"
^XMB(3.9,23,2,26273,0)="""DATA"",396.18,243,3,854,0)"
^XMB(3.9,23,2,26274,0)="M__;GS,3S\_3+3Y^<-@GF-@D<-_D_B*,$NC8\F90B?7]@.?7.1'[T^@//+K8["
^XMB(3.9,23,2,26275,0)="""DATA"",396.18,243,3,855,0)"
^XMB(3.9,23,2,26276,0)="MNTDY)PKGG:F@=R@&ED<;6TG*BP(6X''P8;T\5(_>+)\A`$9+P?P[:R4ES;>W"
^XMB(3.9,23,2,26277,0)="""DATA"",396.18,243,3,856,0)"
^XMB(3.9,23,2,26278,0)="MYCHDO8V>GNQ-?_O5]DBX[XCI;33FM[SQ&X\/G9A/3-9<7&[LVG20L?RWMR>Z"
^XMB(3.9,23,2,26279,0)="""DATA"",396.18,243,3,857,0)"
^XMB(3.9,23,2,26280,0)="M?]<H?"":]^@0WZY&.`W0V)RXK5I.<_4E[8BX\V8@C%9?/)@TP7(U)J&:IAA.I"
^XMB(3.9,23,2,26281,0)="""DATA"",396.18,243,3,858,0)"
^XMB(3.9,23,2,26282,0)="M^LBF;(J"":-Y(GD_YTP%`<\CH6)'BB2+Y%CIDX'!>BL$:T0=&T=>""-`7Q:HX_"
^XMB(3.9,23,2,26283,0)="""DATA"",396.18,243,3,859,0)"
^XMB(3.9,23,2,26284,0)="MJJ#V3GYGE'K@)/786NC;!!BL+Q7]WLMY>@W'&:GIE<M%06\3.T''EG+VU\C9"
^XMB(3.9,23,2,26285,0)="""DATA"",396.18,243,3,860,0)"
^XMB(3.9,23,2,26286,0)="M-\I9P862\BHGLC#*UW?3ZLA*P&,2(>HW>'-UWW53@*T5H-G'DI2UD:]PN^!J"
^XMB(3.9,23,2,26287,0)="""DATA"",396.18,243,3,861,0)"
^XMB(3.9,23,2,26288,0)="MXTED0R$`?DIK@$?D6'()$L$[1%H#CZZ6NFR+[JY3B'[GZ8:1Y8Y*9?Q6ZV2O"
^XMB(3.9,23,2,26289,0)="""DATA"",396.18,243,3,862,0)"
^XMB(3.9,23,2,26290,0)="M;)I304F-,<)[Q\HT;S)6'CN']-U(""9.I$KH<*!B<![2BOM*='""IPV'2[N4I_"
^XMB(3.9,23,2,26291,0)="""DATA"",396.18,243,3,863,0)"
^XMB(3.9,23,2,26292,0)="MN#?<+FO5KV:ID=1VLT`KF<IOCR>@,A6LTGY[(#MP(R-1J9U'LMI;>L;(TF+C"
^XMB(3.9,23,2,26293,0)="""DATA"",396.18,243,3,864,0)"
^XMB(3.9,23,2,26294,0)="M-18;&RV6RYKRXD)S5C-IM(S8R6)]>X^(C.G$`RST!\X`L7CD<*!I3;-E1Q@O"
^XMB(3.9,23,2,26295,0)="""DATA"",396.18,243,3,865,0)"
^XMB(3.9,23,2,26296,0)="M7.'(+[S]^M>WE[?_H$,X\3.X@?+BT8I)GFD[`""5BK]1C)5+%^ST1^%>+ZH72"
^XMB(3.9,23,2,26297,0)="""DATA"",396.18,243,3,866,0)"
^XMB(3.9,23,2,26298,0)="M<BB4;B];VF,XMT,6</-%\DC3(U+RE(%J9]Z9U2>`<R5H=-W@""L`U\E)4-2_,"
^XMB(3.9,23,2,26299,0)="""DATA"",396.18,243,3,867,0)"
^XMB(3.9,23,2,26300,0)="M%Q;M+*V)B_S;OWYKY=-M:[3^ZVH'`_(WMP;$4;[S]&Y,R-]8BEOI!0KY?"")U"
^XMB(3.9,23,2,26301,0)="""DATA"",396.18,243,3,868,0)"
^XMB(3.9,23,2,26302,0)="MJU;H\CJ]@@M-&R'@J?S2T88HG'Y>='8[2^KH6,*.^(42T<<?[9HF]_QY[))"""
^XMB(3.9,23,2,26303,0)="""DATA"",396.18,243,3,869,0)"
^XMB(3.9,23,2,26304,0)="M!X\>)JTN+Q)`G3DP`5#X\\+QPCE`,:^_R1K/DPP]#_""6DZ(@D_-/GG#R-?NO"
^XMB(3.9,23,2,26305,0)="""DATA"",396.18,243,3,870,0)"
^XMB(3.9,23,2,26306,0)="MMG<3X^5TN&L2$.+0T9O@7B>(`1]OG8/K5ACPY9GF.<3?F>TBQ^W0HPJ:P5=R"
^XMB(3.9,23,2,26307,0)="""DATA"",396.18,243,3,871,0)"
^XMB(3.9,23,2,26308,0)="M9C=7KXG6E`G""2G*D,]OM'+=3`!A""'Q4&_BSA[=XR6(:KHF4X""I<5G-X,&6,'"
^XMB(3.9,23,2,26309,0)="""DATA"",396.18,243,3,872,0)"
^XMB(3.9,23,2,26310,0)="M[[`=:B!Z0=QZ""DU"":WO<KSG;?GBTKM;G208@JN""+=KFW9BQ<E;V%YO0MHVCW"
^XMB(3.9,23,2,26311,0)="""DATA"",396.18,243,3,873,0)"
^XMB(3.9,23,2,26312,0)="MK#8GRF'@<@_QY![Z_:>7$=N?.5QUYG!T'?25""O,1[34CC%8Q$PV9.=*2""H`:"
^XMB(3.9,23,2,26313,0)="""DATA"",396.18,243,3,874,0)"
^XMB(3.9,23,2,26314,0)="M&7UA^:+H(VN^$+:OJ*@@?L#@#:`(=`*#7$9?60K1O:0T`X@$MP>Q,/\""'M1<"
^XMB(3.9,23,2,26315,0)="""DATA"",396.18,243,3,875,0)"
^XMB(3.9,23,2,26316,0)="M2MFX99UV(+8'1,I1*JX@)?`:N0!?K\]8@JC..2H@114Z!B&@!]7*VU*=<:?^"
^XMB(3.9,23,2,26317,0)="""DATA"",396.18,243,3,876,0)"
^XMB(3.9,23,2,26318,0)="MQC+[\&WK,JN<3J!2*$Y1MT#!`)AD3%<_U&%:SZ/0L`9KYM*,@Q=:I6QAIVRM"
^XMB(3.9,23,2,26319,0)="""DATA"",396.18,243,3,877,0)"
^XMB(3.9,23,2,26320,0)="M2>;P^7U3R;ZZT>4I75?$;!=N""A?8%>_ZF\50>A#TCPTMT\O<U2>.L=E7E]2("
^XMB(3.9,23,2,26321,0)="""DATA"",396.18,243,3,878,0)"
^XMB(3.9,23,2,26322,0)="M*3ZZ_NZ:<:DX*M&IC5WK8($#L@_PQ*^T!J]4_DYZK*@$6$""7D`,*IC_66,V`"
^XMB(3.9,23,2,26323,0)="""DATA"",396.18,243,3,879,0)"
^XMB(3.9,23,2,26324,0)="M_[2-J#L;7&#IY0R<?.OURU[K1)N-')HR;?,KV)P@=%:5`W,2&B3F;L`-^RA>"
^XMB(3.9,23,2,26325,0)="""DATA"",396.18,243,3,880,0)"
^XMB(3.9,23,2,26326,0)="M8#EEE>*A/"")EDN=@OOK?`P1C+I8+K:C_%O8<+-196^$'MN8Q6`^Y#4M/D,,"""
^XMB(3.9,23,2,26327,0)="""DATA"",396.18,243,3,881,0)"
^XMB(3.9,23,2,26328,0)="M.;#CC&/WL)P#P8%MSM8[0U]U1^H3SY3WQ%IMAI<-)&A/29&^[UA]E^S4-V6G"
^XMB(3.9,23,2,26329,0)="""DATA"",396.18,243,3,882,0)"
^XMB(3.9,23,2,26330,0)="MFIL[N:F_X(_4`DLLU*WM,F-V+-F!I>K,&@@M=G)\C7_NM$6JTT6JO@@V?B=-"
^XMB(3.9,23,2,26331,0)="""DATA"",396.18,243,3,883,0)"
^XMB(3.9,23,2,26332,0)="M$3NGNEOC4W=#7`'J#JM37;.C1T^>N`""[70K=+AFXRO]'7Z!0D5`!WAJPKJIX"
^XMB(3.9,23,2,26333,0)="""DATA"",396.18,243,3,884,0)"
^XMB(3.9,23,2,26334,0)="M'@0OL%@(GDEU82K]`8`.23U9H<JUO0+L)('`""C14GC?R\>&][9]U,5-S>+BI"
^XMB(3.9,23,2,26335,0)="""DATA"",396.18,243,3,885,0)"
^XMB(3.9,23,2,26336,0)="M4N*=LC(]46F]%9Y>L./I9J^=<2\#Z%K7_&J[7T3'2O)20I@CN1F4.3:X`OL&"
^XMB(3.9,23,2,26337,0)="""DATA"",396.18,243,3,886,0)"
^XMB(3.9,23,2,26338,0)="M5S)I&_J6J>4,#4,Y;XV`HDX^&D/<%5#D$B""#R9&#P!Z9KTJ452)U!4OHM&9K"
^XMB(3.9,23,2,26339,0)="""DATA"",396.18,243,3,887,0)"
^XMB(3.9,23,2,26340,0)="MFN;[=P(`N^GY=O9@<!46[""[K3-&DO!=*!`;J]N[:,K49`+KI=N*6<`2W8>M("
^XMB(3.9,23,2,26341,0)="""DATA"",396.18,243,3,888,0)"
^XMB(3.9,23,2,26342,0)="MV-#NKTL=:HNZ_S07#MO=S:7$V:[4G(4EEA:V755'V`:SX8:5RI\?*%40L;.\"
^XMB(3.9,23,2,26343,0)="""DATA"",396.18,243,3,889,0)"
^XMB(3.9,23,2,26344,0)="MR=V:-=6M*;P-G=#\#@T)`G/.)21&=*XRMHM=NHC)I,(QO[=>ZEH23+31$YT3"
^XMB(3.9,23,2,26345,0)="""DATA"",396.18,243,3,890,0)"
^XMB(3.9,23,2,26346,0)="MP8<O&3_/90R[Q*5/N)FP/+>S7NC*,/J-IFQD@YV3$Z=PYT1X%:DA_L_RO7,1"
^XMB(3.9,23,2,26347,0)="""DATA"",396.18,243,3,891,0)"
^XMB(3.9,23,2,26348,0)="M]4Q[T+""_7N[@\?S89(P&]5T>TH@M[3.TM<]57G4[KGE=DZYQ=B9K@/J+%NGH"
^XMB(3.9,23,2,26349,0)="""DATA"",396.18,243,3,892,0)"
^XMB(3.9,23,2,26350,0)="M7W=N%HG7VO$P8&U.76Q;O#M;N:Z""%MO(2JYWZV21FUCW3F)-5!:I65B6:F);"
^XMB(3.9,23,2,26351,0)="""DATA"",396.18,243,3,893,0)"
^XMB(3.9,23,2,26352,0)="MNK+M!02K$&VP-24O1UHV.,?7B%=2-^9IEV!=MSA`,^$O/^ABWX@RN)<OT_[)"
^XMB(3.9,23,2,26353,0)="""DATA"",396.18,243,3,894,0)"
^XMB(3.9,23,2,26354,0)="MY-EU)&,C259*/""FK+QA(;YR.@0W[\GFP*K%4B/""*/P65+`,GKP)3-X6$5196"
^XMB(3.9,23,2,26355,0)="""DATA"",396.18,243,3,895,0)"
^XMB(3.9,23,2,26356,0)="MR^O(AOFB=FY3#GOK9""2(5%-NCCM52AFRMUS^L818OG6#;-4`&#XUD/MT.*%+"
^XMB(3.9,23,2,26357,0)="""DATA"",396.18,243,3,896,0)"
^XMB(3.9,23,2,26358,0)="M`X;#XV:4[+M6BB(UWGI+\GY=R&5L2MG?;.R]2WL*C`/[SDVPJLD>C+KL``N:"
^XMB(3.9,23,2,26359,0)="""DATA"",396.18,243,3,897,0)"
^XMB(3.9,23,2,26360,0)="M<E`7Y1+A7\K4C`V1M2!'6&&>'0E<$>$^4:(Z""JI\14=_QJGODWOELKU#N6P_"
^XMB(3.9,23,2,26361,0)="""DATA"",396.18,243,3,898,0)"
^XMB(3.9,23,2,26362,0)="M6R[KBUP'IH+W\@BT/RZHWE3-'A]J*NONS0!+HUKES$)CF8R5KSQO4K$09,*="
^XMB(3.9,23,2,26363,0)="""DATA"",396.18,243,3,899,0)"
^XMB(3.9,23,2,26364,0)="MRXS,M`]])?!Q8>+*H?^X2HO#Q""0`B6T.4-PE`20.`@BGN<:5P((`9ALZAJ.L"
^XMB(3.9,23,2,26365,0)="""DATA"",396.18,243,3,900,0)"
^XMB(3.9,23,2,26366,0)="M:I.%>Y,`U`B&FL]DY8+EAB[)A1J1'77!1T26!+&]8\6V4*M;B[&QR77#!B?1"
^XMB(3.9,23,2,26367,0)="""DATA"",396.18,243,3,901,0)"
^XMB(3.9,23,2,26368,0)="MV[E7'.'$^)CFP!=:M#)%U3YL;@8$IX8=;*UO*UK5*8P4E%6S""GG'6G<./5!+"
^XMB(3.9,23,2,26369,0)="""DATA"",396.18,243,3,902,0)"
^XMB(3.9,23,2,26370,0)="M,P3<NC75OV@%:RHNS""@DVMQ_O:&?""Q[4\)=?I5J`,;X?6[^,X6]\/S""_A(4_"
^XMB(3.9,23,2,26371,0)="""DATA"",396.18,243,3,903,0)"
^XMB(3.9,23,2,26372,0)="M[T/UCA4MJIQ?5+&]?PG#OD0>FNCJ))ZG:5-UB<-""PJN>6@6%^Y.`.;8]Q\'L"
^XMB(3.9,23,2,26373,0)="""DATA"",396.18,243,3,904,0)"
^XMB(3.9,23,2,26374,0)="MH#[<0NE//^Y2=D-64:%:(J8C)G-'=""V(X$.J4H]3X:I?VE_6[`P!KK8\R^@A"
^XMB(3.9,23,2,26375,0)="""DATA"",396.18,243,3,905,0)"
^XMB(3.9,23,2,26376,0)="M?]!05D6H]FSWR?EKR*'X:E90<&JR;?&<N?B""+*AL$X<DM_[[@I?UR5,=G\Q$"
^XMB(3.9,23,2,26377,0)="""DATA"",396.18,243,3,906,0)"
^XMB(3.9,23,2,26378,0)="M?^,TW@HFM%?UNT:JZ0_$73-\0.)DX&%Q^!5W=ZD9X0.['AE=]>CZ.A0Z^%0A"
^XMB(3.9,23,2,26379,0)="""DATA"",396.18,243,3,907,0)"
^XMB(3.9,23,2,26380,0)="M\_1$Q%'--.BO%'_HK.[:E;];;U>;L5T)6C-QSY@V+B6YS4:+H'LW0%.8>1%`"
^XMB(3.9,23,2,26381,0)="""DATA"",396.18,243,3,908,0)"
^XMB(3.9,23,2,26382,0)="MKW0=E>Z56]WX#8$[H]-W%7Q6P:+KRX,?>H1;""?Z2T_OST_B\*T&L!53RDIX8"
^XMB(3.9,23,2,26383,0)="""DATA"",396.18,243,3,909,0)"
^XMB(3.9,23,2,26384,0)="MJ04$8@=:L2NM:]_[GD3G""0;K=3$8ZV)3=K[=>VEJK^2UG7H&S@YKXX\&;H;^"
^XMB(3.9,23,2,26385,0)="""DATA"",396.18,243,3,910,0)"
^XMB(3.9,23,2,26386,0)="ML6/""Z""$WRRYA+KCXH8)91.*+?4<<'U-3<Q-2RX'&#RVK#W.08LA0;`\/X_%["
^XMB(3.9,23,2,26387,0)="""DATA"",396.18,243,3,911,0)"
^XMB(3.9,23,2,26388,0)="MBIT6?C]XZPHAXJ#<V0[_?#1#P_AVAJ8G20MN67UMEUJ\:8L+S20GY==5N:-^"
^XMB(3.9,23,2,26389,0)="""DATA"",396.18,243,3,912,0)"
^XMB(3.9,23,2,26390,0)="MZX%@K[)[]957K-1P4Z4V""PJ,LP&/#_\%4$L!`A0`%``""``@`YVH*-<3GE$+'"
^XMB(3.9,23,2,26391,0)="""DATA"",396.18,243,3,913,0)"
^XMB(3.9,23,2,26392,0)="M-@``?C@!``T``````````0`@`````````$)O;F5S7S$Q,RYP;FQ02P$""%``4"
^XMB(3.9,23,2,26393,0)="""DATA"",396.18,243,3,914,0)"
^XMB(3.9,23,2,26394,0)="M``(`""`#I:@HU*E5$Y9,\``""4&P(`$0`````````!`""````#R-@``8F]N97-?"
^XMB(3.9,23,2,26395,0)="""DATA"",396.18,243,3,915,0)"
^XMB(3.9,23,2,26396,0)="M,3$S+G!N;""YF<FU02P$""%``4``(`""`#G:@HU%1)S&K\@``""A`0$`$0``````"
^XMB(3.9,23,2,26397,0)="""DATA"",396.18,243,3,916,0)"
^XMB(3.9,23,2,26398,0)="M```!`""````""T<P``0F]N97-?,3$S+G!N;""YC9&502P$""%``4``(`""`#G:@HU"
^XMB(3.9,23,2,26399,0)="""DATA"",396.18,243,3,917,0)"
^XMB(3.9,23,2,26400,0)="M+OM>9ST+```E0```$0`````````!`""````""BE```0F]N97-?,3$S+G!N;""YR"
^XMB(3.9,23,2,26401,0)="""DATA"",396.18,243,3,918,0)"
^XMB(3.9,23,2,26402,0)="897!02P4&``````0`!`#X````#J``````"
^XMB(3.9,23,2,26403,0)="""DATA"",396.18,243,3,919,0)"
^XMB(3.9,23,2,26404,0)="end"
^XMB(3.9,23,2,26405,0)="""DATA"",396.18,243,4)"
^XMB(3.9,23,2,26406,0)="9^729000643"
^XMB(3.9,23,2,26407,0)="""DATA"",396.18,243,6)"
^XMB(3.9,23,2,26408,0)="1^616"
^XMB(3.9,23,2,26409,0)="""DATA"",396.18,247,0)"
^XMB(3.9,23,2,26410,0)="GENITOURINARY EXAMINATION~113F"
^XMB(3.9,23,2,26411,0)="""DATA"",396.18,247,1,0)"
^XMB(3.9,23,2,26412,0)="^^2^2^3060901"
^XMB(3.9,23,2,26413,0)="""DATA"",396.18,247,1,1,0)"
^XMB(3.9,23,2,26414,0)="Last updated on 07/12/2006 ~113"
^XMB(3.9,23,2,26415,0)="""DATA"",396.18,247,1,2,0)"
^XMB(3.9,23,2,26416,0)="Patch DVBA*2.7*113"
^XMB(3.9,23,2,26417,0)="""DATA"",396.18,247,2)"
^XMB(3.9,23,2,26418,0)="3060712^^3060712.143"
^XMB(3.9,23,2,26419,0)="""DATA"",396.18,247,3,0)"
^XMB(3.9,23,2,26420,0)="^396.184^1025^1025^3060901^^^^"
^XMB(3.9,23,2,26421,0)="""DATA"",396.18,247,3,1,0)"
^XMB(3.9,23,2,26422,0)="begin 664 GU_113.pnl.zip"
^XMB(3.9,23,2,26423,0)="""DATA"",396.18,247,3,2,0)"
^XMB(3.9,23,2,26424,0)="M4$L#!!0``@`(`&E4(34[7EP<*3X``(^""`0`*````1U5?,3$S+G!N;.0]:6PD"
^XMB(3.9,23,2,26425,0)="""DATA"",396.18,247,3,3,0)"
^XMB(3.9,23,2,26426,0)="MV5E]C,ONML>>.Y.9/6J]E[V9\73U8;>=229CC^WQQE?<[1FR)&S*7<]V9>IH"
^XMB(3.9,23,2,26427,0)="""DATA"",396.18,247,3,4,0)"
^XMB(3.9,23,2,26428,0)="MZK#=`Q%'@D3(*E*""$D3""$H)""6$6""A00""RQ%`1`BA2(""T0DA!""3E`B'`G0:SX"
^XMB(3.9,23,2,26429,0)="""DATA"",396.18,247,3,5,0)"
^XMB(3.9,23,2,26430,0)="M`>^L?E7UNFW/>&9LKZ49MZNKWON^[WWW^]Y7U<6IG%1=5""U@'-^JHU_CJ@LF"
^XMB(3.9,23,2,26431,0)="""DATA"",396.18,247,3,6,0)"
^XMB(3.9,23,2,26432,0)="M;,MS;./(+%CU4HETU:ZGCG7<U#5O/?V]E'0=Z&OK7OKSR>PXV`#&@N\!IU-:"
^XMB(3.9,23,2,26433,0)="""DATA"",396.18,247,3,7,0)"
^XMB(3.9,23,2,26434,0)="MV9BW+7`:/NIZCJI;GCLTIVX%]YZ*?,%&""S^@6RT>T""WV0&;1KOOU.6#YG:?F"
^XMB(3.9,23,2,26435,0)="""DATA"",396.18,247,3,8,0)"
^XMB(3.9,23,2,26436,0)="MX+=3MF,.;047E:ZJNK+@:,!))1*)*D9O5ET!1A_^O]JH@X55]`Q&+EW^/XQ="
^XMB(3.9,23,2,26437,0)="""DATA"",396.18,247,3,9,0)"
^XMB(3.9,23,2,26438,0)="M%\$N]31%+G6T<T*M>[IM21USDTO3DZ&ANO'_:)""9:Z%ASM)ACL6'24TOLS$P"
^XMB(3.9,23,2,26439,0)="""DATA"",396.18,247,3,10,0)"
^XMB(3.9,23,2,26440,0)="MM;/3R\_C#_D<(;.-1WB.DOE?DXS,WTH<N0YI('4L+BPN+Q*2SU@6)'G7RL:2"
^XMB(3.9,23,2,26441,0)="""DATA"",396.18,247,3,11,0)"
^XMB(3.9,23,2,26442,0)="MJKM`ZQZW$<)D[A3]J^(U#`#O<2NZM6:`C@G;L.$S-:.B&QO`Z9F"":SPTL:XZ"
^XMB(3.9,23,2,26443,0)="""DATA"",396.18,247,3,12,0)"
^XMB(3.9,23,2,26444,0)="M+O`Z^ZY-3EU=GJT^/W']ZE)ELIHEW^)'.FO&N*'6;G7C:Q2Q[V?P7_.J"":2C"
^XMB(3.9,23,2,26445,0)="""DATA"",396.18,247,3,13,0)"
^XMB(3.9,23,2,26446,0)="M<Q6YHEJN7`&.ODH>Q;-W)[*+J@,L#UWJXA>&$1(2`7]0BB5""A2U,A0REPG<3"
^XMB(3.9,23,2,26447,0)="""DATA"",396.18,247,3,14,0)"
^XMB(3.9,23,2,26448,0)="MC)#'`D(^/@TLW;-]1[=4IS$F+Y,/<M51:YY<\2`3NG>)W'=WA)RTZH[;AA;"""
^XMB(3.9,23,2,26449,0)="""DATA"",396.18,247,3,15,0)"
^XMB(3.9,23,2,26450,0)="M,9'HK([['@0""H48^%4<(C[R*!2G]<H(RR=L9;F]L\MJ$8;N@2:A4YX(U8>BU"
^XMB(3.9,23,2,26451,0)="""DATA"",396.18,247,3,16,0)"
^XMB(3.9,23,2,26452,0)="M6YTGM\A@$'D(1PU?3""0RU6G']NOC]M91.!W[K!3(A*\1R7V8$O/W&3'3[T\T"
^XMB(3.9,23,2,26453,0)="""DATA"",396.18,247,3,17,0)"
^XMB(3.9,23,2,26454,0)="MIT@*UF*8K$5/:""T^'JS%N0#>\KQOK@!'ME=EW=I077T#R'7'K@'-=X`K:VB1"
^XMB(3.9,23,2,26455,0)="""DATA"",396.18,247,3,18,0)"
^XMB(3.9,23,2,26456,0)="MUF1O'5Y574]6\K()J;3N7NFZ""7GTIJ/6,R)>&.'GGZ#SOR28_W)S?LNV+MXY"
^XMB(3.9,23,2,26457,0)="""DATA"",396.18,247,3,19,0)"
^XMB(3.9,23,2,26458,0)="M#)GJA&VNV)20['.^Q`,R0`'Y2`#(:2J92EDIC&1G/&`RL>=X_2BZ[D*>07""X"
^XMB(3.9,23,2,26459,0)="""DATA"",396.18,247,3,20,0)"
^XMB(3.9,23,2,26460,0)="M2>D(4I-24I&2>2E3D&T'PN.`1$L80HOQGK8PC+:`(;EC&%IQ5)$`,;P#AA(M"
^XMB(3.9,23,2,26461,0)="""DATA"",396.18,247,3,21,0)"
^XMB(3.9,23,2,26462,0)="MZ""AYO!,_7J3\7XDKR1/7@%MS]!6`UTO3@3?6.6FI*P;0NOCEZJM.+-Z<6U(U"
^XMB(3.9,23,2,26463,0)="""DATA"",396.18,247,3,22,0)"
^XMB(3.9,23,2,26464,0)="MW<8@GD0$""UUA/)P.\?!O!V0;Y,A6RE;6[4VB-;MZGO5=3U]M8(IE.M&O157C"
^XMB(3.9,23,2,26465,0)="""DATA"",396.18,247,3,23,0)"
^XMB(3.9,23,2,26466,0)="M]<]UU955V:V#FJX:&$AY!0`+,AT%7KO2""96+;UIN*A6E?/J=P)52\W:(8(F."
^XMB(3.9,23,2,26467,0)="""DATA"",396.18,247,3,24,0)"
^XMB(3.9,23,2,26468,0)="MZAPP[0S$`OTNE'ARC5/8/Q?`/L;!/AS0YRYUWO<XG=<]@=0KE*MYL!E2YT=G"
^XMB(3.9,23,2,26469,0)="""DATA"",396.18,247,3,25,0)"
^XMB(3.9,23,2,26470,0)="M=:A=F]@D0LHO6ZE!IP$Z$([;F77=&\#Q])IJ\+HF(;:!2IE@O(8Q/A.S@:\="
^XMB(3.9,23,2,26471,0)="""DATA"",396.18,247,3,26,0)"
^XMB(3.9,23,2,26472,0)="M/ALHT+L%HK=3LR&>G4W&;:`2L8%+H.8[:)*(-9RQ5D$-/;'/+""(U4%\A%O%/"
^XMB(3.9,23,2,26473,0)="""DATA"",396.18,247,3,27,0)"
^XMB(3.9,23,2,26474,0)="M[[U%I"";XOXE%?!,E[5<""!?;!]A:Q0""U25\@5_J+`(LU6;0]I!=]1T=_(,GD."
^XMB(3.9,23,2,26475,0)="""DATA"",396.18,247,3,28,0)"
^XMB(3.9,23,2,26476,0)="M4#T3+<XJ5+3+U1EYI2&;0(.R@6^Y0RM9&.9A>C>%Z3.)N%9];,:%YMD#%K:-"
^XMB(3.9,23,2,26477,0)="""DATA"",396.18,247,3,29,0)"
^XMB(3.9,23,2,26478,0)="MIFJI:P##XX`?]G4'ZJL=F$*%GXT1\!6!&<H-C^[.%&8NRPK!6#JJR)XM%RC^"
^XMB(3.9,23,2,26479,0)="""DATA"",396.18,247,3,30,0)"
^XMB(3.9,23,2,26480,0)="M4O\<M$J0,*H%KZWXGFP`UR5_#[-[CK%/VUO2'(^""V0Z%$65WEC2+`B;=\FW?"
^XMB(3.9,23,2,26481,0)="""DATA"",396.18,247,3,31,0)"
^XMB(3.9,23,2,26482,0)="ME7IF(*D=4_<@P;TV)I6JO#,[X$C1ZA=Y&\$X\G<%'#G1])'6;;>N0_;4;V/."
^XMB(3.9,23,2,26483,0)="""DATA"",396.18,247,3,32,0)"
^XMB(3.9,23,2,26484,0)="M<S%#ZDQ'W#$CALS58M0YX$""Y<MW>1/S7D#W=A+[9)K2D&HKP($,&S'A7'IL2"
^XMB(3.9,23,2,26485,0)="""DATA"",396.18,247,3,33,0)"
^XMB(3.9,23,2,26486,0)="M\C3:LNE([LX]MKEV?,96MG-[/ALNW[G'1F%H$502]DC_'%%X4Q2(T<""BGD\>"
^XMB(3.9,23,2,26487,0)="""DATA"",396.18,247,3,34,0)"
^XMB(3.9,23,2,26488,0)="M.HN:BK/F,)62XR&+>DY@49^*6-0)U8&N)`PG:KZA.G*E8=8]V]Q?9K1$!<_%"
^XMB(3.9,23,2,26489,0)="""DATA"",396.18,247,3,35,0)"
^XMB(3.9,23,2,26490,0)="M5O2?=V%%DW=D19D-4$)1P)<#E?4G[576,`4WBQ_OI8__ED!/O/GFNEY;Q[83"
^XMB(3.9,23,2,26491,0)="""DATA"",396.18,247,3,36,0)"
^XMB(3.9,23,2,26492,0)="M*H%5Z%/:FT@EU,*+XM)%D2&9L/<-B172$=GJPM*L[GH4C^""/$""`7*2""_QJG>"
^XMB(3.9,23,2,26493,0)="""DATA"",396.18,247,3,37,0)"
^XMB(3.9,23,2,26494,0)="MIH2.CO9.;D%-K@&M`@RH*+M""$AL5T\XIJ%G7?""!)5ZTUR$K2\6L-MVX!51Y0"
^XMB(3.9,23,2,26495,0)="""DATA"",396.18,247,3,38,0)"
^XMB(3.9,23,2,26496,0)="MD;UUO4'I7'`)ZEQ3-S09;""%7V;8&I4=""W]F0DJH'N.\?XK]WH=`Z_+>9:_KM"
^XMB(3.9,23,2,26497,0)="""DATA"",396.18,247,3,39,0)"
^XMB(3.9,23,2,26498,0)="MV\A#=Z7.2L.JV74@/;P(U[6^#@<RY$D-F/!1>,6%A(#4&I0>C7_-VZ_!1/><"
^XMB(3.9,23,2,26499,0)="""DATA"",396.18,247,3,40,0)"
^XMB(3.9,23,2,26500,0)="M;W@ZP3W32S@2A4N(0EU=S4_-E>]!-*GJ]4`UW-0MS=[LFK6M-;0`71&EE6%*"
^XMB(3.9,23,2,26501,0)="""DATA"",396.18,247,3,41,0)"
^XMB(3.9,23,2,26502,0)="MBS@TZ1>(SKI`UT4)=-;QPZ>STDQ,,DQ,:`S0CVEPG-+@OW:0![L.26M#SQ]*"
^XMB(3.9,23,2,26503,0)="""DATA"",396.18,247,3,42,0)"
^XMB(3.9,23,2,26504,0)="M#73^?5,=<`?O$K7_O`MU%<6KR./U5%3F.&_U292BO2`;-G6/50NZ!%`*(#K$"
^XMB(3.9,23,2,26505,0)="""DATA"",396.18,247,3,43,0)"
^XMB(3.9,23,2,26506,0)="MFT:XC=W_11-I8.92$@W\G6TU\`,-.+?1^>$<!'-BR'J-T/7Z?J`C/\?IR-+H"
^XMB(3.9,23,2,26507,0)="""DATA"",396.18,247,3,44,0)"
^XMB(3.9,23,2,26508,0)="M`<@]M/24RD)/R0RT3N?ATSI'XL:Y3""/<4R%/:5S@*5V(Z)VK*YIMPL\&<DJG"
^XMB(3.9,23,2,26509,0)="""DATA"",396.18,247,3,45,0)"
^XMB(3.9,23,2,26510,0)="M#-6Z)5>1O720'7J`_E(<Q3*/XB-45K6X!CK5S$(&B(SQ?D5<$5!',_UADM'X"
^XMB(3.9,23,2,26511,0)="""DATA"",396.18,247,3,46,0)"
^XMB(3.9,23,2,26512,0)="MQA[Z8F&Y+!9Y)(;H.ET)N/6EIEPJ(\H!EDL:5;:.8`ZA7';$F#:OY,EZ%T)R"
^XMB(3.9,23,2,26513,0)="""DATA"",396.18,247,3,47,0)"
^XMB(3.9,23,2,26514,0)="M^4V!/_!H1""ZCCMV^""EU&J""QZ6%S^]IZ'+BQ9=CH4NIP,F.GS;4.7/-U12TFA"
^XMB(3.9,23,2,26515,0)="""DATA"",396.18,247,3,48,0)"
^XMB(3.9,23,2,26516,0)="MT.7#`N_ED4!WA!P8[*KK7H/7(F'!+N7Y*1B$'0&$+W""""/9P_(((M3O933/V0"
^XMB(3.9,23,2,26517,0)="""DATA"",396.18,247,3,49,0)"
^XMB(3.9,23,2,26518,0)="M""DL&=05_??B2_1)CJ2QCJ5$:['R2J+<>2H4O""`3[?$2P9U!9A/_`T_HQC*@'"
^XMB(3.9,23,2,26519,0)="""DATA"",396.18,247,3,50,0)"
^XMB(3.9,23,2,26520,0)="M\11&Z$F6D0P\B*<#A/Z=1),HHPO%5^X?]U$0O.C8*P8P^U$&N(92YD!690,&"
^XMB(3.9,23,2,26521,0)="""DATA"",396.18,247,3,51,0)"
^XMB(3.9,23,2,26522,0)="M-<CKKY,O7;EFJ+H)-.1KZ!H$1E_5PRE#L*4B;P1-!"".&(;FZKKOL<3+<IFX8"
^XMB(3.9,23,2,26523,0)="""DATA"",396.18,247,3,52,0)"
^XMB(3.9,23,2,26524,0)="MZ%9+AE*J;JBZ@3;09-W""S_=?LVL^SHX'`&WB^/6""K,*!5,=C>8E^>@,<!DVN"
^XMB(3.9,23,2,26525,0)="""DATA"",396.18,247,3,53,0)"
^XMB(3.9,23,2,26526,0)="M`0\.!;2Q?BCM!DVIH@F'!-G3)M7*/-66*=5>3,8URS*EF@!`2#&`@G84)ZFR"
^XMB(3.9,23,2,26527,0)="""DATA"",396.18,247,3,54,0)"
^XMB(3.9,23,2,26528,0)="M`]90G@2""%%#-@8]NJ/`1>""<CDNS!.*L];*,\;!:%;4,`VRR#;0ELZ&!39B#B"
^XMB(3.9,23,2,26529,0)="""DATA"",396.18,247,3,55,0)"
^XMB(3.9,23,2,26530,0)="M9<#PX<M($R(]N-J0U5K-=]0:#E==?P6G&W""<IP[%`2E1(O7RK)7*""(IL%-'3"
^XMB(3.9,23,2,26531,0)="""DATA"",396.18,247,3,56,0)"
^XMB(3.9,23,2,26532,0)="MH_S3RVV>S@N>'L[Q3UMMGBX,B2Q=@23-TG]#/,.?W86I2VQCZGCMVL>T:RF'"
^XMB(3.9,23,2,26533,0)="""DATA"",396.18,247,3,57,0)"
^XMB(3.9,23,2,26534,0)="M?FBF[D=#:?`O!\:DM&/?:1\KU4ZV5GW!2F/<J6;]::)9)8K\+PLTZ^GI9;1W"
^XMB(3.9,23,2,26535,0)="""DATA"",396.18,247,3,58,0)"
^XMB(3.9,23,2,26536,0)="MBGD3\N$2J$&<W0>?-.GE$6+FL@^CLTK91Q>$+1.VB83.E:'B<0@N8WOH*.PX"
^XMB(3.9,23,2,26537,0)="""DATA"",396.18,247,3,59,0)"
^XMB(3.9,23,2,26538,0)="M3])1G=1T#[E?Z#=>%(K#&[`,_!.3@49T2R2?+X_F^#A5-!;=/+Z0Q(-]J^U@"
^XMB(3.9,23,2,26539,0)="""DATA"",396.18,247,3,60,0)"
^XMB(3.9,23,2,26540,0)="M""N]<!])YK)E""QQQ#@[=7B(CV).F(TVS$A^XR>.ME/AXOFV0]?<:>@6Q^*'#T"
^XMB(3.9,23,2,26541,0)="""DATA"",396.18,247,3,61,0)"
^XMB(3.9,23,2,26542,0)="ME.'R`8G@HO4X9V/U.`3UD(][GJ+^:B""9T\'*#9=RNRK*Z9V0IZ#QI<(\%DW+"
^XMB(3.9,23,2,26543,0)="""DATA"",396.18,247,3,62,0)"
^XMB(3.9,23,2,26544,0)="M=Y'K0)-.S]MDWQNXR.""L-.0;5Y<6I,>7HI?P?K,%;PX\A`2_U;1CE""FW?C.Q"
^XMB(3.9,23,2,26545,0)="""DATA"",396.18,247,3,63,0)"
^XMB(3.9,23,2,26546,0)="M+<[ED9%=X7QF#M<0&%1OW2_<TRVR]S2/]D6"":)8B>CG@ZX\=OGB]*Y;EIF'F"
^XMB(3.9,23,2,26547,0)="""DATA"",396.18,247,3,64,0)"
^XMB(3.9,23,2,26548,0)="MY5""T_K+`])R+./4WT+Z\7-'7]I5/SRJ2SF)\^JE>O!*W/3U58-;19I7O@+'X"
^XMB(3.9,23,2,26549,0)="""DATA"",396.18,247,3,65,0)"
^XMB(3.9,23,2,26550,0)="M.""QK1<:9H>,\'!]'6O0-5SA""F1^!N6%S\1&.+P&WKD-(T%X(VCT3#3;*#9;^"
^XMB(3.9,23,2,26551,0)="""DATA"",396.18,247,3,66,0)"
^XMB(3.9,23,2,26552,0)="M&K,@_0)X;N(K`J<RE/G_.AOB""1%*MF]IKF`(A8?B?]@0S\:'.$J@D""%/6&O@"
^XMB(3.9,23,2,26553,0)="""DATA"",396.18,247,3,67,0)"
^XMB(3.9,23,2,26554,0)="M06Q]Q&""GFOP<AKV/6LST!P).OQH`[U'@9VW7E0<@D]10[`+=K4URW4#7:[8)"
^XMB(3.9,23,2,26555,0)="""DATA"",396.18,247,3,68,0)"
^XMB(3.9,23,2,26556,0)="M0RNH@6""HL*+""^`E:I$%Y0(4""CFI#Z*TT1,O+#0""11UN^-8`#'1@)`SRF!M4("
^XMB(3.9,23,2,26557,0)="""DATA"",396.18,247,3,69,0)"
^XMB(3.9,23,2,26558,0)="M?'QPKZHB[T0]M(FH2M0:?#:Q<[I-JQ!M`=W6T/77""]U*O*A\*A%UT)JBTCMN"
^XMB(3.9,23,2,26559,0)="""DATA"",396.18,247,3,70,0)"
^XMB(3.9,23,2,26560,0)="MV#9*)@#7]5&!3&PH&AY\E""S!BVRLCOA8R4N""QWE-EOXC]O2C`KDG5_:%M-+R"
^XMB(3.9,23,2,26561,0)="""DATA"",396.18,247,3,71,0)"
^XMB(3.9,23,2,26562,0)="MQX_L""N?`J(7*3/Z8/2P+4)ZQ:NO`%87!BL(E_=)6<N=1<'9;%QM%!ETT0ACA"
^XMB(3.9,23,2,26563,0)="""DATA"",396.18,247,3,72,0)"
^XMB(3.9,23,2,26564,0)="MS42!BM>OQVNO1I12*5*""S0\3LC8W6P^CC!254'TS&29#AU%R_#CO:S-.N3@<"
^XMB(3.9,23,2,26565,0)="""DATA"",396.18,247,3,73,0)"
^XMB(3.9,23,2,26566,0)="M<B\CXU#JO0U3[ZLQ:\.CE>?3CC$W]43,31WA2J_3_T*'3O]&`..C9.PCP_F<"
^XMB(3.9,23,2,26567,0)="""DATA"",396.18,247,3,74,0)"
^XMB(3.9,23,2,26568,0)="MLC/_E-:^I^\/ZXLKY8X@<R,=0<JS9?J`J]_KX>KW""KQIJS(5_5-""'BH&""K-%"
^XMB(3.9,23,2,26569,0)="""DATA"",396.18,247,3,75,0)"
^XMB(3.9,23,2,26570,0)="M(5]7#+S+LI*34NA?'OXKY*1L,2>L7>5AHA'J2XF=`%78#JC,;H&*<"".ET`H&"
^XMB(3.9,23,2,26571,0)="""DATA"",396.18,247,3,76,0)"
^XMB(3.9,23,2,26572,0)="MYI.,&P<$7%THA@*'R#@4JU],[&""@@B`M$`R4Y\7C#UJ)QY&1@E(()02$@0R5"
^XMB(3.9,23,2,26573,0)="""DATA"",396.18,247,3,77,0)"
^XMB(3.9,23,2,26574,0)="MM07^L$KZ!X/MB<G#%\=D8A9#H8',CV$B]%$BO$.0^BU'`IF*;YHJ*4-B^?$*"
^XMB(3.9,23,2,26575,0)="""DATA"",396.18,247,3,78,0)"
^XMB(3.9,23,2,26576,0)="M.BJSJM?"":>'[DIEJOQ^9;>Y'$DY,DIS2T>2]VKY72OP^Y!.LQ""U@KF_P937E"
^XMB(3.9,23,2,26577,0)="""DATA"",396.18,247,3,79,0)"
^XMB(3.9,23,2,26578,0)="M`[Q]3Q%-?SR<#OB)(!WPJ<,G1MF8&)6I_7\\)$8C@JJ:-T7$:![8=4-U35;U"
^XMB(3.9,23,2,26579,0)="""DATA"",396.18,247,3,80,0)"
^XMB(3.9,23,2,26580,0)="M!MWWZ679;;A0<>^C!`$[G7B1/YV8>E]<39R_IJMKENWJ+D)']GQH6>0!L*76"
^XMB(3.9,23,2,26581,0)="""DATA"",396.18,247,3,81,0)"
^XMB(3.9,23,2,26582,0)="MO,'XL*P\``\+W=98F,0/C'8*<0C#)A@PS4L-^"",:>)0?F%D*KIZB.7`.U2&Z"
^XMB(3.9,23,2,26583,0)="""DATA"",396.18,247,3,82,0)"
^XMB(3.9,23,2,26584,0)="M0?FA&S[*,Z!;-</'012,,]:`(YIM5.%G*R5;9RUZ%^`*.RB<PQE\P5`T<OPJ"
^XMB(3.9,23,2,26585,0)="""DATA"",396.18,247,3,83,0)"
^XMB(3.9,23,2,26586,0)="ML97_RVS<>KQZ6F84,=#I""0YD1A;AD<I8CF2$AYW-E_YY0;GVV""1:1DRE8%H5"
^XMB(3.9,23,2,26587,0)="""DATA"",396.18,247,3,84,0)"
^XMB(3.9,23,2,26588,0)="MG8<A/`PU!@^%IEV03?.""W!H4P8$Q(D?I7R#8W]Z%?N[<1C]O[R!3%G\L5""W^"
^XMB(3.9,23,2,26589,0)="""DATA"",396.18,247,3,85,0)"
^XMB(3.9,23,2,26590,0)="MBN`D::Y4W%4""]^Q-U<623:3!5`U]S8*$:QX?3;<Z/BIU+ENW+'O3:G>.E/EI"
^XMB(3.9,23,2,26591,0)="""DATA"",396.18,247,3,86,0)"
^XMB(3.9,23,2,26592,0)="M1#AM""OE@H'T>X2#/'XSCH^$H+21>GT[$$.1.VI0*D?""*)Q0KXR4#_66B+:5&"
^XMB(3.9,23,2,26593,0)="""DATA"",396.18,247,3,87,0)"
^XMB(3.9,23,2,26594,0)="M#@""ETE%*Y7D$SR9;;9DA_$I-F8Q[W&R\L#9J/^""P8,"".&*^&()Q*QI9@B!OQ"
^XMB(3.9,23,2,26595,0)="""DATA"",396.18,247,3,88,0)"
^XMB(3.9,23,2,26596,0)="M(.R*2:WJ&L4GL]3#7-?8':^HRU$+?SZT4S(D\(R>B=4;6[8#=24N<+0`VC4!"
^XMB(3.9,23,2,26597,0)="""DATA"",396.18,247,3,89,0)"
^XMB(3.9,23,2,26598,0)="MEKL7(<4>ESB&ZA#N1XUCB2?IPU&2;E?CF!L5U#BF5MJ51ZMT*=H7-BJBPL;'"
^XMB(3.9,23,2,26599,0)="""DATA"",396.18,247,3,90,0)"
^XMB(3.9,23,2,26600,0)="MQ(6-N8-<V%@8$74Q^+L`T_<>AJJ;GCCGY$.[>TR6?T4@RZ.M9'FRKFNZUC!U"
^XMB(3.9,23,2,26601,0)="""DATA"",396.18,247,3,91,0)"
^XMB(3.9,23,2,26602,0)="M]U*E#N`EY#1.0%I<0JL!_:-])=IE8JS2?TY$>S)YK_L7,/^7]B]X,G9:_&RR"
^XMB(3.9,23,2,26603,0)="""DATA"",396.18,247,3,92,0)"
^XMB(3.9,23,2,26604,0)="M.>,2NM*NG4&>];4A)^%/4.C/""GI?570-C+4[_9W/AUHCW*9C+<;'.A:H#<O6"
^XMB(3.9,23,2,26605,0)="""DATA"",396.18,247,3,93,0)"
^XMB(3.9,23,2,26606,0)="M?`,T.[N(1BUSHZ;_C.G.Z_%A^X)A;11""\:-RQS][^>.?S""\F(#]*B?FEP*-?"
^XMB(3.9,23,2,26607,0)="""DATA"",396.18,247,3,94,0)"
^XMB(3.9,23,2,26608,0)="M;BJDXNZ.?TKS&#5)(B=@I*Y)RU!A=*A)V1LJ7&2[!@>1,M<;FD,^=N""X[]X<"
^XMB(3.9,23,2,26609,0)="""DATA"",396.18,247,3,95,0)"
^XMB(3.9,23,2,26610,0)="MLHRH8;Y=!#1*,:PO-[$NY0Y85YD(JCQ+IE]MCZIRD%!-M6PG453X=A+M%02Z"
^XMB(3.9,23,2,26611,0)="""DATA"",396.18,247,3,96,0)"
^XMB(3.9,23,2,26612,0)="M46[K""^1#;13N3D'0`E@ZUEXIB$*>&W7/%00_^#8*8OC0*`B^;<4V4E,L'S""I"
^XMB(3.9,23,2,26613,0)="""DATA"",396.18,247,3,97,0)"
^XMB(3.9,23,2,26614,0)="MB:#*L_<VNK`X<I`[;`6;6E0E;F*./D(1?BK8=_CT87!-C\;KUZAG^N[0(9NQ"
^XMB(3.9,23,2,26615,0)="""DATA"",396.18,247,3,98,0)"
^XMB(3.9,23,2,26616,0)="MP#,]%6B)IZ.GYZ)[5_1X_5WB]Q][>*`U3ZMBTL^17:M-YH;>BJ=H+SQ#2F+D"
^XMB(3.9,23,2,26617,0)="""DATA"",396.18,247,3,99,0)"
^XMB(3.9,23,2,26618,0)="M""CYK@<J%5$U#IT8@%[KL6`C=NVN?BZ4GP]._29S?'TE&6Z<>YYU?H#I<6FH;"
^XMB(3.9,23,2,26619,0)="""DATA"",396.18,247,3,100,0)"
^XMB(3.9,23,2,26620,0)="MYU<P&9'4=#:""HL#3E@AJ.X^BLU4J3<22!G]0Y=\1VJ([S>W_GKEN.[<#21Q"""
^XMB(3.9,23,2,26621,0)="""DATA"",396.18,247,3,101,0)"
^XMB(3.9,23,2,26622,0)="MK=9N06'(G$3RV+R^A(KUTD;J3/AR<'OVJN_9Y+JH-VJ3B:FW?@(#]""RE@!6W"
^XMB(3.9,23,2,26623,0)="""DATA"",396.18,247,3,102,0)"
^XMB(3.9,23,2,26624,0)="M=&]H<2!I/Y0@L=B8(+'!^C$FXZSZL2H[HX0:D,AUVW5UB-4%B`_7&[*F.S7?"
^XMB(3.9,23,2,26625,0)="""DATA"",396.18,247,3,103,0)"
^XMB(3.9,23,2,26626,0)="M=#W5JM%-&AW*+VK(:*J6O@I<C[:XHIMGM,`-GQNSWNNC#6H'M[]""YZ7P`1!\"
^XMB(3.9,23,2,26627,0)="""DATA"",396.18,247,3,104,0)"
^XMB(3.9,23,2,26628,0)="M)JKNV!O0H\'MTIP-.-HZ$?NA_54/5Z`RV)<,\<2XH'24;08MH%*_!W$:)+:Q"
^XMB(3.9,23,2,26629,0)="""DATA"",396.18,247,3,105,0)"
^XMB(3.9,23,2,26630,0)="ME.,X(?UOS'-[3M`-%!E)N&:N#A>9U""KN!U:FW0LI`MTIBL!\RUV]B9:[>@6J"
^XMB(3.9,23,2,26631,0)="""DATA"",396.18,247,3,106,0)"
^XMB(3.9,23,2,26632,0)="MWEZ,M`W8BHO%DQ.TPV.PE4;:MWGH?&/-MC1]#S*@>\RF-""A)3Q/M+3'MO1HG"
^XMB(3.9,23,2,26633,0)="""DATA"",396.18,247,3,107,0)"
^XMB(3.9,23,2,26634,0)="MU9G`2W>1_(%5U)3.'=O95B6U@Z?(-+_*-@]^4KA=S.:IQ>BYH\E8%RN)-P\M"
^XMB(3.9,23,2,26635,0)="""DATA"",396.18,247,3,108,0)"
^XMB(3.9,23,2,26636,0)="MSB+N!VX='N;A?5?;TX_[`EZJVM+);0$N/$B`FWU%E)!""6V1,?CL.\=FY9M=/"
^XMB(3.9,23,2,26637,0)="""DATA"",396.18,247,3,109,0)"
^XMB(3.9,23,2,26638,0)="M=/J6%!?8+F@3Z2JT]I-Q]V*\]D_$W?U8]?2+N%LT1YY'(1""@G]G!%,A3IKVV"
^XMB(3.9,23,2,26639,0)="""DATA"",396.18,247,3,110,0)"
^XMB(3.9,23,2,26640,0)="M^[DIPMN%HR%S]0-T^*_'JQ=S^5Q.$+AUT<""-=R*""H[3IOP^\B,GF.,H!V:?M"
^XMB(3.9,23,2,26641,0)="""DATA"",396.18,247,3,111,0)"
^XMB(3.9,23,2,26642,0)="MJM*D`UX-\C&T&HFX.IOBT""SM+O]0\=`*22?AJJVA@$""'@5Y#WK0AC:3,C(G\"
^XMB(3.9,23,2,26643,0)="""DATA"",396.18,247,3,112,0)"
^XMB(3.9,23,2,26644,0)="M'Z#)TCF^""9R\>0DZ2:8.[X9&6)B2B&P5AW9VP_S[.PR=;\?1@3\'H954-LJ6"
^XMB(3.9,23,2,26645,0)="""DATA"",396.18,247,3,113,0)"
^XMB(3.9,23,2,26646,0)="M83-W)AFKH<X%&.9&1P]2/J$[BFJ99\WSU/=)_V,@@5<YUBP<``1[1-6@/)*I"
^XMB(3.9,23,2,26647,0)="""DATA"",396.18,247,3,114,0)"
^XMB(3.9,23,2,26648,0)="M-U(<WY^(=[(XCI1;D""M`TOM`7ZNQ[=Z2J+1<X9%MHYJ'BZ4=OU\`9:$$K1#H"
^XMB(3.9,23,2,26649,0)="""DATA"",396.18,247,3,115,0)"
^XMB(3.9,23,2,26650,0)="MMME2<EO""]O!-3K@,S[8AO;CAIQ)RLP.-^DMQ%53.[3*C2QM`-RV[=&(>U-<="
^XMB(3.9,23,2,26651,0)="""DATA"",396.18,247,3,116,0)"
^XMB(3.9,23,2,26652,0)="M^*!M-N0!-/&@=#)T#>_0#4KGX""KBD%7PP'GA=_3!XY#C4(!++E^L+B]))\*7"
^XMB(3.9,23,2,26653,0)="""DATA"",396.18,247,3,117,0)"
^XMB(3.9,23,2,26654,0)="M%NK`DDZ'KZ&*-LC[4N8&#(3Q)>G8$D""-VZH.9+.ZH4(*=./YX&/HZQ,+3FU="
^XMB(3.9,23,2,26655,0)="""DATA"",396.18,247,3,118,0)"
^XMB(3.9,23,2,26656,0)="MCV`2ND8!.LWV;\/WGHE>IK=G)QIP`C('_DS!.;OL``]WK*I@NP.9@+0VE;IG"
^XMB(3.9,23,2,26657,0)="""DATA"",396.18,247,3,119,0)"
^XMB(3.9,23,2,26658,0)="M=6_=AC2ONPVI+^)XL`M5YNOL/EW>L>MT.=LB(9KPA]I8-<A2!RJ'W!E['T4N"
^XMB(3.9,23,2,26659,0)="""DATA"",396.18,247,3,120,0)"
^XMB(3.9,23,2,26660,0)="M9,&WP?5`V;?8LA9X==C668&H'JA=D!V]-H6IZ+>2I?YV_#B8W#3PA=WU:'BB"
^XMB(3.9,23,2,26661,0)="""DATA"",396.18,247,3,121,0)"
^XMB(3.9,23,2,26662,0)="MPD7V\JICF_$8_$IT/Z'Y)I6`UBU?J=)-R(%'Z`I7X@E:MRJA-/9F<C_W;DWM"
^XMB(3.9,23,2,26663,0)="""DATA"",396.18,247,3,122,0)"
^XMB(3.9,23,2,26664,0)="MHA-0L.5#%509&]MGZ$*""PWR.J3=^`(,6X7T@W&;MG3MXIPKKKK%0URT4L`_,"
^XMB(3.9,23,2,26665,0)="""DATA"",396.18,247,3,123,0)"
^XMB(3.9,23,2,26666,0)="MVQY`.R63N,,8<`;WT3F,$:JVED*MX-/?$>377\8=T>!@JFQ""B45-T""""F'CE#"
^XMB(3.9,23,2,26667,0)="""DATA"",396.18,247,3,124,0)"
^XMB(3.9,23,2,26668,0)="MOHKVAF+I=9I#=]E>&.TA@IJK`1FZ#6L^.FP.[^JOJ;Y+^HC8#FIW#LTPO-X?"
^XMB(3.9,23,2,26669,0)="""DATA"",396.18,247,3,125,0)"
^XMB(3.9,23,2,26670,0)="MS&3:&NG8AE*7-J4L'<[%)]@UU+U(75MSU`WL3K7M4,:ZUF*T4P;%^C5!VB*O"
^XMB(3.9,23,2,26671,0)="""DATA"",396.18,247,3,126,0)"
^XMB(3.9,23,2,26672,0)="M#LK/DQ^4+^7!5)N`LEOPCV""Z,D_E'V=4OB`X%O?6%7X^$SH[LJ'?0K'VG<X]"
^XMB(3.9,23,2,26673,0)="""DATA"",396.18,247,3,127,0)"
^XMB(3.9,23,2,26674,0)="MRL\=G%SI$LQ=`OS<J(]+JSG;3SF:XZ?\+)OR+P13KFC\E/@U+11=E4`PT'QU"
^XMB(3.9,23,2,26675,0)="""DATA"",396.18,247,3,128,0)"
^XMB(3.9,23,2,26676,0)="M2REWJ93#O>G4%1W5C@[>*7QY'KX@'?0E`7SOJ?'PJ>A-,OB42A1,>6#OH""OR"
^XMB(3.9,23,2,26677,0)="""DATA"",396.18,247,3,129,0)"
^XMB(3.9,23,2,26678,0)="MT/T5@^Y=`NC>OAI`-P-GLRS<I\>UH3XE^7W==7T@;R(?V""=?0>N.&A[:LHE>"
^XMB(3.9,23,2,26679,0)="""DATA"",396.18,247,3,130,0)"
^XMB(3.9,23,2,26680,0)="M`8`DTS>PO`C.:/'+F*I2.#XH@*.Z:.!-,APTR`VH""]'.0LWP<>)'AK]PSP@0"
^XMB(3.9,23,2,26681,0)="""DATA"",396.18,247,3,131,0)"
^XMB(3.9,23,2,26682,0)="M?S.#`=94`Y(1M1U;L_3;D%PPC(!CN8+V*PHO1JRK3/H/!;KJ$Y,Z]NQQLI3"""
^XMB(3.9,23,2,26683,0)="""DATA"",396.18,247,3,132,0)"
^XMB(3.9,23,2,26684,0)="M8]8-@+:TJ/*`2T+:+<J0M:`:,XEG@<F&VSWJJ[):A^M9=W3<4]+2FH-@K8:0"
^XMB(3.9,23,2,26685,0)="""DATA"",396.18,247,3,133,0)"
^XMB(3.9,23,2,26686,0)="M1;['!7+@64/M""77,&Q8`&EIXII;0[4SWM=\D9UW%.X@?=3QY;[K^-4N/\Z^_"
^XMB(3.9,23,2,26687,0)="""DATA"",396.18,247,3,134,0)"
^XMB(3.9,23,2,26688,0)="M4P5]\3PVZUAY+%2)/""VP]A=;52)?M7RRG[P$>0K^?1/R]?YZ[<M(/M1K_#X<"
^XMB(3.9,23,2,26689,0)="""DATA"",396.18,247,3,135,0)"
^XMB(3.9,23,2,26690,0)="M+*#.Q>""=-4_.Y>[-P0+6$DKB^[ES'9.YU[@H1>5`'RPH""*7[A0#5+QR^ELG'"
^XMB(3.9,23,2,26691,0)="""DATA"",396.18,247,3,136,0)"
^XMB(3.9,23,2,26692,0)="M!(Q$MU[G0]+]M1WT0@^D&R68H%W:7_),3X1](A$J1[R'\EP4-4-?#;3D2GMQ"
^XMB(3.9,23,2,26693,0)="""DATA"",396.18,247,3,137,0)"
^XMB(3.9,23,2,26694,0)="M'A:)\PU!)[:`ZE.ZA4Y*NVWKA'.T!\-G$J&!W]&N4)CN<HI+>D,9X-#AIH=B"
^XMB(3.9,23,2,26695,0)="""DATA"",396.18,247,3,138,0)"
^XMB(3.9,23,2,26696,0)="MAYFY5ZJ6B[O*_V:NZ6YM'=7P2KU3<""[HAEUTL31),OO;1-E(Z''(/F8_NTY/"
^XMB(3.9,23,2,26697,0)="""DATA"",396.18,247,3,139,0)"
^XMB(3.9,23,2,26698,0)="MKMW'ZE[:\HY1EU'@]X04*!V*DE=J)O^!8-P=.U&J\SJ3JCZI9LSJY@/-]1R/"
^XMB(3.9,23,2,26699,0)="""DATA"",396.18,247,3,140,0)"
^XMB(3.9,23,2,26700,0)="M._`*UV\G;D"";:B^[N+2P.+E4G9FL[*<>$;1>ZB$^$95Z<URNNV^@%Y/9UEN4"
^XMB(3.9,23,2,26701,0)="""DATA"",396.18,247,3,141,0)"
^XMB(3.9,23,2,26702,0)="MN]XZW)M""KV$>\+=%:[.XN@ZB>ZM@RWM+R/*TLN?*Z\^>GQ!XZY2^S^[ZW2:!"
^XMB(3.9,23,2,26703,0)="""DATA"",396.18,247,3,142,0)"
^XMB(3.9,23,2,26704,0)="M98%`:MI=([:W]GQX]'[;\]Q=V'.%O;=A6WM^XO_)N](@-X[K#&""6PUUR>2Q7"
^XMB(3.9,23,2,26705,0)="""DATA"",396.18,247,3,143,0)"
^XMB(3.9,23,2,26706,0)="M/,0E19`L*3PD$O?!R*)77""YW$U[A6;9LE6:!V=W1`A@8`RP%124Y4=F)'-M1"
^XMB(3.9,23,2,26707,0)="""DATA"",396.18,247,3,144,0)"
^XMB(3.9,23,2,26708,0)="ME$O.J<CY$=OEJ&0GE;*=*E<2.4[9E93CE""O^X<J?Q*DDMF,E/U)QCDJZ>[I["
^XMB(3.9,23,2,26709,0)="""DATA"",396.18,247,3,145,0)"
^XMB(3.9,23,2,26710,0)="M7F,:@VD0)!=K_1*QP$R_UZ]?OW[]WO=QK2_2_3RP\2=)J0T8GQ][\A5)I.!M"
^XMB(3.9,23,2,26711,0)="""DATA"",396.18,247,3,146,0)"
^XMB(3.9,23,2,26712,0)="MZ*1'Y]""I$#MZ0;*C>P`$11#[IY4V=*\EAS7I;*/[.$ZW.""M6[6YNVS0H^DA$"
^XMB(3.9,23,2,26713,0)="""DATA"",396.18,247,3,147,0)"
^XMB(3.9,23,2,26714,0)="M..3\=40F9V9]<,%+NZBW\'L+8_UE,B;]BX<ED%YU)WXC5<-7)<YQ7X=SQ!3P"
^XMB(3.9,23,2,26715,0)="""DATA"",396.18,247,3,148,0)"
^XMB(3.9,23,2,26716,0)="M9OR\::P8MPT6/%`""-G9E?H:(%`_H!,302P1*R!7BE(QU.@$>QG/QRM[%_]PD"
^XMB(3.9,23,2,26717,0)="""DATA"",396.18,247,3,149,0)"
^XMB(3.9,23,2,26718,0)="M?.X?L+3M2Y([A7V0IM8Q""0TMIU27PAC1??^;[LYP7""$KJ/59^9*""*D_X<K\7"
^XMB(3.9,23,2,26719,0)="""DATA"",396.18,247,3,150,0)"
^XMB(3.9,23,2,26720,0)="M`!>UVKEG-Z4\1]M!BQ@<G2O]ONNN(<:M6HE\Q:R53#W)/J5?BY=;Y#(-@V>1"
^XMB(3.9,23,2,26721,0)="""DATA"",396.18,247,3,151,0)"
^XMB(3.9,23,2,26722,0)="M:S9JOO&RM>I&@?HD>A>^-!""><_=<+SLENX;PT8A/=P>![H;MQ-3-7-)0YC_U"
^XMB(3.9,23,2,26723,0)="""DATA"",396.18,247,3,152,0)"
^XMB(3.9,23,2,26724,0)="MRWP-R*RVK=Z/[`7?)S;C+8>L;:->KUCX?E'?+Q2;^OY\[*9I$'HG_.F""8S<6"
^XMB(3.9,23,2,26725,0)="""DATA"",396.18,247,3,153,0)"
^XMB(3.9,23,2,26726,0)="M\->J!OH-+I""J45(#O.KT\\'?;2X;37X762)HZN6X=S.5HKST=4*EU-;/]?&T"
^XMB(3.9,23,2,26727,0)="""DATA"",396.18,247,3,154,0)"
^XMB(3.9,23,2,26728,0)="M%+;J3,>#^AD6AEYUA]7QM$@8>X^%86&6GDURP2`FT^MO^[U/0OB7`?R$_&CR"
^XMB(3.9,23,2,26729,0)="""DATA"",396.18,247,3,155,0)"
^XMB(3.9,23,2,26730,0)="M'<GN>[#;T>2:B9'OD'&MK61C48`NV77'H4M8JUI7Z)+O1;Q^*5(?R#47B&&2"
^XMB(3.9,23,2,26731,0)="""DATA"",396.18,247,3,156,0)"
^XMB(3.9,23,2,26732,0)="M%#!,ME,Q]DHA""IXU3P>F'I,0&X.1'<<:D@Y+M]""0G7_PG2!N&PQ^.KM_=>$H"
^XMB(3.9,23,2,26733,0)="""DATA"",396.18,247,3,157,0)"
^XMB(3.9,23,2,26734,0)="M?CX`JF`KCU2JAN,$`Z2DX$,_UQ_^@5<0O`5B36>@-A[P`1[N!)G""5)>*X(@$"
^XMB(3.9,23,2,26735,0)="""DATA"",396.18,247,3,158,0)"
^XMB(3.9,23,2,26736,0)="M^`""O""GTJ=3*-O2!=)`Z:FWB3SK<^E3R9""OIC]U].GJ%7NO@JO]FPZR@RT_7I"
^XMB(3.9,23,2,26737,0)="""DATA"",396.18,247,3,159,0)"
^XMB(3.9,23,2,26738,0)="M!0=7@P8`/22AJ+,^46<!F6ZFC[+@[5?MQ2:^0W?0^U#\TN9GRI$+:(;[CF:B"
^XMB(3.9,23,2,26739,0)="""DATA"",396.18,247,3,160,0)"
^XMB(3.9,23,2,26740,0)="MZN@.$/-&^XV(3]2]0-3\<*,[0,^@?3E8U*&J5M6ZPK_01M*N\""_`R6XA\""]^"
^XMB(3.9,23,2,26741,0)="""DATA"",396.18,247,3,161,0)"
^XMB(3.9,23,2,26742,0)="M'ROSBWF(@W*;/A;""BPS<QR8%1(]!^5B(7#-@'YN&V@CVL<DA][$)*.JY0!^;"
^XMB(3.9,23,2,26743,0)="""DATA"",396.18,247,3,162,0)"
^XMB(3.9,23,2,26744,0)="M'FX?""R7MY6-SP^UC,U#4'CZV,&P^5IZ73$)NMU$J\<8^('2&YF""TTU^Z1TW\"
^XMB(3.9,23,2,26745,0)="""DATA"",396.18,247,3,163,0)"
^XMB(3.9,23,2,26746,0)="M:0%':(^DP.IHQ[EHSG;JF./.>M;M?[8;\:LN</J]YUOUQ*-S?)*(EPN`*V#B"
^XMB(3.9,23,2,26747,0)="""DATA"",396.18,247,3,164,0)"
^XMB(3.9,23,2,26748,0)="MD%(Q1O4NJW5,P2=2@'QMLZ3X,H^1.D[A`_[#Z.Q?:RZ31V/&+ES""2,""^2?TI"
^XMB(3.9,23,2,26749,0)="""DATA"",396.18,247,3,165,0)"
^XMB(3.9,23,2,26750,0)="MKF5\QL*Y`X*X+GMG!KQ3>XGM6\_YW[GWBFDX[F0T:<J5HME+'DOOM:@H+#/P"
^XMB(3.9,23,2,26751,0)="""DATA"",396.18,247,3,166,0)"
^XMB(3.9,23,2,26752,0)="M<4G9IC.+'F@:I>4X6@2XL'(14VY3%C)7$JNV:!.83[OV,""6O/D0AS0^1XG#P"
^XMB(3.9,23,2,26753,0)="""DATA"",396.18,247,3,167,0)"
^XMB(3.9,23,2,26754,0)="M!9+B<7^&55)O.<MNY::+9>32B`>5B3/`1U<A_\R\E2:C,P'\)08:]+)HMFYI"
^XMB(3.9,23,2,26755,0)="""DATA"",396.18,247,3,168,0)"
^XMB(3.9,23,2,26756,0)="MH*LC#)S$J:M/R?""9:&&/X1:!OA6Y*_A,[,#]=^X)_P6%$[ZN1+4%K8R?G8I^"
^XMB(3.9,23,2,26757,0)="""DATA"",396.18,247,3,169,0)"
^XMB(3.9,23,2,26758,0)="M\/5THI""7H-2SCF)A@52#'E-,#>-6R9(+KO%]C!G?:_X\<C*=S0V!A""/2@F=:"
^XMB(3.9,23,2,26759,0)="""DATA"",396.18,247,3,170,0)"
^XMB(3.9,23,2,26760,0)="M;?.V:W5_P6S]>&]4L%%E5#!:4:(][S82G^ENX8PF(?P5N^1M&>%M*RIOT]38"
^XMB(3.9,23,2,26761,0)="""DATA"",396.18,247,3,171,0)"
^XMB(3.9,23,2,26762,0)="M@?+05/[+9RK:^R$]4&(X>DDEH&YIP4.]%5$`==O03W4\PSMVV:R.4K6^R=5Z"
^XMB(3.9,23,2,26763,0)="""DATA"",396.18,247,3,172,0)"
^XMB(3.9,23,2,26764,0)="M9CV@'^[RWV7FJ#U=%[+8_RK)8A_NB-;.XI9S3*@]TW866[72FD/79Y26;[@V"
^XMB(3.9,23,2,26765,0)="""DATA"",396.18,247,3,173,0)"
^XMB(3.9,23,2,26766,0)="MM,.WRTT-N,@F)9""I,![OR]R&OAM8!)]D1?O?$!H18T_Y(Y""=MM?RXL5CLD>F"
^XMB(3.9,23,2,26767,0)="""DATA"",396.18,247,3,174,0)"
^XMB(3.9,23,2,26768,0)="MI8\L2`KKW$>2/B;)@UA@MTEXCJ3P=N)""9Q];8`%0GO:-?UH<X&'_@S>Z,)OM"
^XMB(3.9,23,2,26769,0)="""DATA"",396.18,247,3,175,0)"
^XMB(3.9,23,2,26770,0)="MH(MYVN+8*:Z,<?E:PVA5#=DS,E#2(GU$PO^(,0]+0/*4K""!7<5""E!Y0QPAV="
^XMB(3.9,23,2,26771,0)="""DATA"",396.18,247,3,176,0)"
^XMB(3.9,23,2,26772,0)="M]@7F%G]2$K>?)5W4%HJN<=`(F:FD(&;R)!3#4-XDU(W]LBP)E<B&34)M9Z`3"
^XMB(3.9,23,2,26773,0)="""DATA"",396.18,247,3,177,0)"
^XMB(3.9,23,2,26774,0)="MS'+U*5IT7\''C`6W8(__$0)G3,Y82`\8^;]FMAIVW6@NM_6)&X:#>]L:',(1"
^XMB(3.9,23,2,26775,0)="""DATA"",396.18,247,3,178,0)"
^XMB(3.9,23,2,26776,0)="M`VR@/U?L)?1-^J$^<;96MDND$(%]M/NRTRXMN]]#+^<8><P^])V79""M-WWP)"
^XMB(3.9,23,2,26777,0)="""DATA"",396.18,247,3,179,0)"
^XMB(3.9,23,2,26778,0)="MKI;.JH""B,/?!2LL-=S$`-<?-1-(Y*NDO<4EK0-)B'XF[;9>P352]^9^XC#:A"
^XMB(3.9,23,2,26779,0)="""DATA"",396.18,247,3,180,0)"
^XMB(3.9,23,2,26780,0)="M""@;??-ITD5_T/02:I,4,""'QY*_MRU04NV7'#*+5:570ZK-;C97/5*J%MQK4`"
^XMB(3.9,23,2,26781,0)="""DATA"",396.18,247,3,181,0)"
^XMB(3.9,23,2,26782,0)="M/)U&O=UW)C""F7K8G>KY`W2430Y8>Z^),TM!Y?272_2""'S""7?BZ%VI--D3MTP"
^XMB(3.9,23,2,26783,0)="""DATA"",396.18,247,3,182,0)"
^XMB(3.9,23,2,26784,0)="MEBR,55-'+J_9</,""#!N6G-1Q;J1""&JW)O]P.55PXH9\,_*V-XK;XLE$!/S@6"
^XMB(3.9,23,2,26785,0)="""DATA"",396.18,247,3,183,0)"
^XMB(3.9,23,2,26786,0)="M^`/QNYG`[WJU)>*O4K)?U4P\%$\.]]_L65V[PU)B-?F-3LUK;T;607B[V[]?"
^XMB(3.9,23,2,26787,0)="""DATA"",396.18,247,3,184,0)"
^XMB(3.9,23,2,26788,0)="M9N'%.@]OCX1@UW1ACT!LB[4^:U@5Y&G65)A+VW9B#;*J/GC'2\E9LF*+@-`U"
^XMB(3.9,23,2,26789,0)="""DATA"",396.18,247,3,185,0)"
^XMB(3.9,23,2,26790,0)="M%;*4G%(]=:!MQ);\`<SD+.FCKI7:I*KIEFFNG`:A46^@&M;\&1/>Q#$W'_2<"
^XMB(3.9,23,2,26791,0)="""DATA"",396.18,247,3,186,0)"
^XMB(3.9,23,2,26792,0)="M3:JHA%*S<][!5**5-F82Y=6<'@Q-5_09(<4E]Y&LJ)?J9R]5[R_(@H=THI>/"
^XMB(3.9,23,2,26793,0)="""DATA"",396.18,247,3,187,0)"
^XMB(3.9,23,2,26794,0)="M]*&N19-Z-*5'TWHTHT>S>C2G1_/Z!*W3M%M._,B9Z<LS1R.A]%N$^CU%1_J-"
^XMB(3.9,23,2,26795,0)="""DATA"",396.18,247,3,188,0)"
^XMB(3.9,23,2,26796,0)="MB+_X,9E.*2GXV+P#:MN0[\&$T(UVW,#QK-5$!H'.GI566=!Z;_`?D21%[BAI"
^XMB(3.9,23,2,26797,0)="""DATA"",396.18,247,3,189,0)"
^XMB(3.9,23,2,26798,0)="M[/:RN""M_ACO*?U]_;3=[_*N4(8D\);C-;TNR`O&NU'LTQE];?3<4Z^>3O=-*"
^XMB(3.9,23,2,26799,0)="""DATA"",396.18,247,3,190,0)"
^XMB(3.9,23,2,26800,0)="M`TH)Y&5]-Q_BYO1KP2F!HK0O_EUA&F].!S?>4#?\XIUIO!'ZA2@Y3NQ][.%5"
^XMB(3.9,23,2,26801,0)="""DATA"",396.18,247,3,191,0)"
^XMB(3.9,23,2,26802,0)="MP.:G5C*U@^B<P(B8K`5GP^/VTE);WSF-CK>4""ANIH-6@!X;Y1L-<(H=#7""*."
^XMB(3.9,23,2,26803,0)="""DATA"",396.18,247,3,192,0)"
^XMB(3.9,23,2,26804,0)="M#%7??H'UVKHD0HZ^Q5V4]-^\..`N]O""DA>E@=$+_&Y&I++L^>GBHB[&)Q.^F"
^XMB(3.9,23,2,26805,0)="""DATA"",396.18,247,3,193,0)"
^XMB(3.9,23,2,26806,0)="M$G^/KXP?K#]'>[^DE:0(*P:8H[4E\6FVP]%>6G#13\UR_(9M$9;Q(ZR!XHJ)"
^XMB(3.9,23,2,26807,0)="""DATA"",396.18,247,3,194,0)"
^XMB(3.9,23,2,26808,0)="MR^31KXZNK4B5)L6^%A%*0NY<83'#E?Z!F(GA)2C:ZY&@`N(D*\$:A[,3>T'2"
^XMB(3.9,23,2,26809,0)="""DATA"",396.18,247,3,195,0)"
^XMB(3.9,23,2,26810,0)="MYC./`<.0M\#5^K1Z@0>&@8XXDX*O^`GZBIN2<'C&JM#[91P.XTO_TPJ)O)3P"
^XMB(3.9,23,2,26811,0)="""DATA"",396.18,247,3,196,0)"
^XMB(3.9,23,2,26812,0)="MGCU4$[\K""RM3H2MVW23-..S-T$=9$T>X&#(-=XID9\D?""""%3::40<C?:#E""0"
^XMB(3.9,23,2,26813,0)="""DATA"",396.18,247,3,197,0)"
^XMB(3.9,23,2,26814,0)="MSE367Y0>[:K-#-1F.5"";F5Y!>DRN5G^H/I9WX:<:9CC=9J!NG_,!6D#E9I64"
^XMB(3.9,23,2,26815,0)="""DATA"",396.18,247,3,198,0)"
^XMB(3.9,23,2,26816,0)="M>U!4+NW3,N+((UFE)CH@]QF6=R]>934RN1`+6;;*$I(J58#M[%59G)HSG+B]"
^XMB(3.9,23,2,26817,0)="""DATA"",396.18,247,3,199,0)"
^XMB(3.9,23,2,26818,0)="MP)&E&;(;.G!0(%+6A=9LH.,(KD&AB<@>ZUR@.+Q(1_`)R0B*%UO5!9SD6>SZ"
^XMB(3.9,23,2,26819,0)="""DATA"",396.18,247,3,200,0)"
^XMB(3.9,23,2,26820,0)="M*E8G4\<`=<F46PODR-U!""#M)03LY3M=@E8WL`#""39#@S&<A!F'J&,7BCWF6)"
^XMB(3.9,23,2,26821,0)="""DATA"",396.18,247,3,201,0)"
^XMB(3.9,23,2,26822,0)="MY93/P?XEMOF""UTS5-8_&JH0>@W`/`##UW]9#&FVOOSB*WJ2^Y.ZC.I7[N""1,"
^XMB(3.9,23,2,26823,0)="""DATA"",396.18,247,3,202,0)"
^XMB(3.9,23,2,26824,0)="M.=(1IM""`/7X50WA7K1+ZGVJ]:5>=M=1US*;U62+>K?Y@A21E5C2J'W&+N[[D"
^XMB(3.9,23,2,26825,0)="""DATA"",396.18,247,3,203,0)"
^XMB(3.9,23,2,26826,0)="MBW?V=8UWQGO$.[U7-4O3;84(BK'W^K-?B:1:]FML&ITTS6<LPW/R(^$6>HA!"
^XMB(3.9,23,2,26827,0)="""DATA"",396.18,247,3,204,0)"
^XMB(3.9,23,2,26828,0)="M4T/[9+3GJ,/Z(G9]?&;9JE0<M3&'2C.RKH6M0@0G';):%FQT%NVO2RU3;<S1"
^XMB(3.9,23,2,26829,0)="""DATA"",396.18,247,3,205,0)"
^XMB(3.9,23,2,26830,0)="M4&.F::Y'0^A9+>[29_&-A-J0]3!#IBUR;,A,S[9LR!FE(4_.5HS:""KEY1EX&"
^XMB(3.9,23,2,26831,0)="""DATA"",396.18,247,3,206,0)"
^XMB(3.9,23,2,26832,0)="M;:I636W\&T/!IM,`X'W""\-\E&[Y:,#9ZWFQB<+&VTIBU4&-.0S`""/N@G)(-6"
^XMB(3.9,23,2,26833,0)="""DATA"",396.18,247,3,207,0)"
^XMB(3.9,23,2,26834,0)="M!'H?NVD:*[@P04W3&T*-.B,X$3IJ[?<B,EVK#?O`>?L6""LV,A;)=)7=SR&CJ"
^XMB(3.9,23,2,26835,0)="""DATA"",396.18,247,3,208,0)"
^XMB(3.9,23,2,26836,0)="M9F45[6OJ9A,.;3\+S29PH>;4'.)%'-@J.O%8J""'G!*L)'+/BUG,#J1VC&JN-"
^XMB(3.9,23,2,26837,0)="""DATA"",396.18,247,3,209,0)"
^XMB(3.9,23,2,26838,0)="M>B34J//0C;\0M#[S:AZ11`IJ(][DJRE)@0A%^P""[.O\;'H'EP?@*0T8?)87F"
^XMB(3.9,23,2,26839,0)="""DATA"",396.18,247,3,210,0)"
^XMB(3.9,23,2,26840,0)="M@[4""'-OFVSS2?FT]U&-.^8'PJ._:'Q4B[4]);E[V=$3:,Y:Q5+,=R[GWS3*@"
^XMB(3.9,23,2,26841,0)="""DATA"",396.18,247,3,211,0)"
^XMB(3.9,23,2,26842,0)="MOX'Z@C]W0^!G[P3_=#>2YB0\UK*+U&]Q""WI/5$K&_.G;)F-FI<3CPH6\]J""D"
^XMB(3.9,23,2,26843,0)="""DATA"",396.18,247,3,212,0)"
^XMB(3.9,23,2,26844,0)="ME>0TY07#]Q84DYS#A^,6EVK<<!R[A%')RP3;W04M+P]HJ@<""@<BNN,A!73L7"
^XMB(3.9,23,2,26845,0)="""DATA"",396.18,247,3,213,0)"
^XMB(3.9,23,2,26846,0)="MZP[>/#E==LOKT,;9G?""6H39L%OK'_E$""KG3R*D-U+[-&'])15*=D:YT:E21H"
^XMB(3.9,23,2,26847,0)="""DATA"",396.18,247,3,214,0)"
^XMB(3.9,23,2,26848,0)="MQK@4,*%WA,IP0E+U.;.6=,^VA<U""7NNW)+HZ=&06FU,JF\@?)0S7^$[=Y=E8"
^XMB(3.9,23,2,26849,0)="""DATA"",396.18,247,3,215,0)"
^XMB(3.9,23,2,26850,0)="M:)/NZ4`6#5HFKKWJ^J4""59`A*]M`3S\[?6;.LU(9-E<B*01I[*+]^Y*$V!,$"
^XMB(3.9,23,2,26851,0)="""DATA"",396.18,247,3,216,0)"
^XMB(3.9,23,2,26852,0)="MZLLB!3BE91N=D\FD0B!_=!Z'#'N'7+@<#+85O'Y.!.;L$BE!Z/E`(E_9[]/P"
^XMB(3.9,23,2,26853,0)="""DATA"",396.18,247,3,217,0)"
^XMB(3.9,23,2,26854,0)="M]]I/1P*):F4/$"")9_@#MSR1:.C]?(X6/KG(8A9*]Z""X)+C'NE;=+I5;=H`N1"
^XMB(3.9,23,2,26855,0)="""DATA"",396.18,247,3,218,0)"
^XMB(3.9,23,2,26856,0)="M\,L:5H575R!GVT,M64&LWPX2*R,5*R>(Q1\@K?HFZUKZ%-$D-U#=C$7]5($?"
^XMB(3.9,23,2,26857,0)="""DATA"",396.18,247,3,219,0)"
^XMB(3.9,23,2,26858,0)="MQS:)+X1K2_%ZJU%')N0\C+Q""G7)D0!699:\,V""6-1VIDZG3,NH&>@VO;,6V*"
^XMB(3.9,23,2,26859,0)="""DATA"",396.18,247,3,220,0)"
^XMB(3.9,23,2,26860,0)="M64+[%4G0VIP6WJ@)7!)ERZ$D(7%SU:BTW+NA1=;\R%_50^4%0=:50(IFV>^+"
^XMB(3.9,23,2,26861,0)="""DATA"",396.18,247,3,221,0)"
^XMB(3.9,23,2,26862,0)="MPFICV=1?ESF*2W77,AYF.S`>*^:PI&[57<YBL$9O&D;(?'Z6F>DM?IG[<E2\"
^XMB(3.9,23,2,26863,0)="""DATA"",396.18,247,3,222,0)"
^XMB(3.9,23,2,26864,0)="MJ^T,PN`)P[>_%&&]&;LBO4^RFS[*LW/`_`E5$9]0G_5SFU\3[AR""#&EO,#WN"
^XMB(3.9,23,2,26865,0)="""DATA"",396.18,247,3,223,0)"
^XMB(3.9,23,2,26866,0)="ME\CZ#BZK6XI^U5JJ8>(EC)YVEDE?BU^""PDYS8?TM!GPC+,B0?5Z,=&TPP&^Y"
^XMB(3.9,23,2,26867,0)="""DATA"",396.18,247,3,224,0)"
^XMB(3.9,23,2,26868,0)="M[F"",/^]=]U""77`YJ\:^+J*B?EWC.QV_BS4(P&;)'\(5K5>N&*V@7VSD=BA9>"
^XMB(3.9,23,2,26869,0)="""DATA"",396.18,247,3,225,0)"
^XMB(3.9,23,2,26870,0)="MP&.*O9>NX5L2>),KA#X(>R;TN!5&'@MG348)+0`5/4(%_EDN\`E`NUOHK+JY"
^XMB(3.9,23,2,26871,0)="""DATA"",396.18,247,3,226,0)"
^XMB(3.9,23,2,26872,0)="M2S,65-NSZZ(MLV)]4O;A^$4;_:-:K]AML]R-ZU:N)@$4;,6GIE.`A]FK05^#"
^XMB(3.9,23,2,26873,0)="""DATA"",396.18,247,3,227,0)"
^XMB(3.9,23,2,26874,0)="M^KI_VG&09M!^5;:05LC=9+F%S5&?G*^5&B:A)&H:C3(^GSOZ3N]#@P""RF*;E"
^XMB(3.9,23,2,26875,0)="""DATA"",396.18,247,3,228,0)"
^XMB(3.9,23,2,26876,0)="M5*5%3G)]1N7ZI#'*[PB=3MI?<H56/(4""F(\UJ-#-.-&""X4=MI*W=,R;3%N:W"
^XMB(3.9,23,2,26877,0)="""DATA"",396.18,247,3,229,0)"
^XMB(3.9,23,2,26878,0)="MPJ=0MZ!LUWP-[N\+YK*Q:MD-?<]E&_-,X6`3XQA@CEK:H')P!LV/54+Z;0,Z"
^XMB(3.9,23,2,26879,0)="""DATA"",396.18,247,3,230,0)"
^XMB(3.9,23,2,26880,0)="M+`NP%^L[O+=5;=?KZ'O!9P8!42V;S^#Z$O0W%NTZ;E!;L1:)MR#$54:CT4;_"
^XMB(3.9,23,2,26881,0)="""DATA"",396.18,247,3,231,0)"
^XMB(3.9,23,2,26882,0)="MP`4C_+4-'&S@#R>NUDV3!#OL;_J..0H\""3Z;N&%A?%7XT;;S.#F.>Z"":F-O0"
^XMB(3.9,23,2,26883,0)="""DATA"",396.18,247,3,232,0)"
^XMB(3.9,23,2,26884,0)="MT""=9""A<'""(ON585^V!LT$L^L+3673\5;=5RQ@@:/&>+1HZ1?JI#,JO<E.4;L"
^XMB(3.9,23,2,26885,0)="""DATA"",396.18,247,3,233,0)"
^XMB(3.9,23,2,26886,0)="MCEFS1/0+/ANY;%@U?<N,Y2RB,30(49>""6?N[\04POB]&.L'2M;<BP*2'#AVL"
^XMB(3.9,23,2,26887,0)="""DATA"",396.18,247,3,234,0)"
^XMB(3.9,23,2,26888,0)="M,W:CT?QS43%XF^TC>-/\$4T""!F\LC;=7E@KA`4W'^<47P+5(M-%Y9KD'>;R`"
^XMB(3.9,23,2,26889,0)="""DATA"",396.18,247,3,235,0)"
^XMB(3.9,23,2,26890,0)="MO9[VM=*#.:U7B5WT'TT>GB95!YBAS_3""-KF(I]>6C+15P9U;[4+41[;D36ZR"
^XMB(3.9,23,2,26891,0)="""DATA"",396.18,247,3,236,0)"
^XMB(3.9,23,2,26892,0)="M\]Z<""MM=5J5.#X;""]H2@;7Y_;WB13Z+[U>""H_-;8;I@``N[NS(""\6F7D@E4I"
^XMB(3.9,23,2,26893,0)="""DATA"",396.18,247,3,237,0)"
^XMB(3.9,23,2,26894,0)="MZZ,7;#1TM/7H^E5\U6KJHY<;!$/'B73=MT.H,""60_P3JL*BDPS'TY7H=""3+<"
^XMB(3.9,23,2,26895,0)="""DATA"",396.18,247,3,238,0)"
^XMB(3.9,23,2,26896,0)="M6@QU]<501[[?6XO)A)H6SSYC-DJ68PZW%D-=.[/J2C>C_&(DR!:S:NOY*D[Y"
^XMB(3.9,23,2,26897,0)="""DATA"",396.18,247,3,239,0)"
^XMB(3.9,23,2,26898,0)="M#/EZ#G6=23M=7)<8I$,4PN25=+CY""HG>"")C94.LQ5#$!O<RA?C'8&),I)45N"
^XMB(3.9,23,2,26899,0)="""DATA"",396.18,247,3,240,0)"
^XMB(3.9,23,2,26900,0)="MNM8P5LW*T'O&4.4[-!!DX$_!B[J@I,?16=,L#[T60Q41L5SHF(!2)U=B3DV)"
^XMB(3.9,23,2,26901,0)="""DATA"",396.18,247,3,241,0)"
^XMB(3.9,23,2,26902,0)="MCQO-Y:%78KAHL0!=8[`2U5SCV`R^P!YZ+88J3$H)7)S!:DPF%1VC;57,YM#K"
^XMB(3.9,23,2,26903,0)="""DATA"",396.18,247,3,242,0)"
^XMB(3.9,23,2,26904,0)="M<5,H/>9@R-C#'--JYHA>@.O4AER-F_UJW.%3HW!MP=#^WLETF&$ZS&?2H708"
^XMB(3.9,23,2,26905,0)="""DATA"",396.18,247,3,243,0)"
^XMB(3.9,23,2,26906,0)="MKJ!91*DLPK*/][#C<(+G.HZ!D&NHH)W'?:(*3`'7:<F']L>LMB9VDU>C%3/9"
^XMB(3.9,23,2,26907,0)="""DATA"",396.18,247,3,244,0)"
^XMB(3.9,23,2,26908,0)="M8<6KI!BYVF47X,#LK'[UNA4G,-9I'%8@A$<C]+I?QF'W""[2E5UE.[I@?*2>7"
^XMB(3.9,23,2,26909,0)="""DATA"",396.18,247,3,245,0)"
^XMB(3.9,23,2,26910,0)="MR27""-KU$?/,HM+'1H@[MH6@'[OI(/C,4LXCEDTPC=;`[W03G\ZP$[5!OV%%-"
^XMB(3.9,23,2,26911,0)="""DATA"",396.18,247,3,246,0)"
^XMB(3.9,23,2,26912,0)="M&0B4-3`TW9<]%U7`K0P+.[K)0SAT7S;9^V6J_;1R<(R4@""*TUX<B],3ZPS??"
^XMB(3.9,23,2,26913,0)="""DATA"",396.18,247,3,247,0)"
^XMB(3.9,23,2,26914,0)="M)X&PH3>(V[L4)`0`G""//8+O`T=.E5M-$""Z""^W+"":UMHB@*(8/;%58E8GHG<<"
^XMB(3.9,23,2,26915,0)="""DATA"",396.18,247,3,248,0)"
^XMB(3.9,23,2,26916,0)="M48CNG/N%YL[_YLV=8]%@2""&!@N0D_?D')&GH*9Z&1G&Z5<9Y9X>VHP6B+F:%"
^XMB(3.9,23,2,26917,0)="""DATA"",396.18,247,3,249,0)"
^XMB(3.9,23,2,26918,0)="M8]<G(J%>8=>6;'RMQF$73_79GYE-09R=25_M#FC03*KU`.SS+A]\""E'&,^HH"
^XMB(3.9,23,2,26919,0)="""DATA"",396.18,247,3,250,0)"
^XMB(3.9,23,2,26920,0)="M6,_!23E-!_T/?-""/@4'GAPS0(L24I<&4:3_##.;#TCDK*,W9U+Q#I\QG8&I3"
^XMB(3.9,23,2,26921,0)="""DATA"",396.18,247,3,251,0)"
^XMB(3.9,23,2,26922,0)="MYKOW3,-UI/U1)'#.BNN""L$-@B(W]&)7X;;ZA?6?]@9#LEX`!I00&:;:C?5W2"
^XMB(3.9,23,2,26923,0)="""DATA"",396.18,247,3,252,0)"
^XMB(3.9,23,2,26924,0)="M=+""_*]P3^GQM[6*L9/FK[L'Z\W<>ZZD`L9X.4BU^F1O33_7`>DK#J_(L'6U-"
^XMB(3.9,23,2,26925,0)="""DATA"",396.18,247,3,253,0)"
^XMB(3.9,23,2,26926,0)="M4A[&MQBCUHZ73=PG8#7;/9C6Z6'F?T3<O0?]Y7#;SML4+]ARG);9`T<J*SR6"
^XMB(3.9,23,2,26927,0)="""DATA"",396.18,247,3,254,0)"
^XMB(3.9,23,2,26928,0)="MCEI[?_#.2""H6#6HZ>.@^/*0LU,49'W60U^V$HK'A8'P(<663!E6T?(9:3.:C"
^XMB(3.9,23,2,26929,0)="""DATA"",396.18,247,3,255,0)"
^XMB(3.9,23,2,26930,0)="M0&:U;7XWVC),AM9>)W4VR-Z;`T(L9.U^U`2F@HC*LOFP9]4MYRH&P6VIVJMF"
^XMB(3.9,23,2,26931,0)="""DATA"",396.18,247,3,256,0)"
^XMB(3.9,23,2,26932,0)="M63]P7D1)1>99QQZ'?V'GG/3C`QZJ@_1WOK@E(TH3;'J%8=[[6.*1GN9\[""S:"
^XMB(3.9,23,2,26933,0)="""DATA"",396.18,247,3,257,0)"
^XMB(3.9,23,2,26934,0)="MU/H[S3T@052G4<\>8>_[SQ`$""'SO._NT@>''UQX!0A&>X_[ESF^`-)TT+9SC"
^XMB(3.9,23,2,26935,0)="""DATA"",396.18,247,3,258,0)"
^XMB(3.9,23,2,26936,0)="M/LO/<7_2@_]``%+8YJO,!7!;UR@>.]M#XJ8W!<%\`T7XCOS`>`P*""?C<<@`-"
^XMB(3.9,23,2,26937,0)="""DATA"",396.18,247,3,259,0)"
^XMB(3.9,23,2,26938,0)="M)JE_""CIL%NCI^[CPJ+,21LG>_`^%E.Q9^R7#HE#V75Q\!DIW(`B3-I$.""QZV"
^XMB(3.9,23,2,26939,0)="""DATA"",396.18,247,3,260,0)"
^XMB(3.9,23,2,26940,0)="MB]!""EH@$8/KT75?,9L->:AAE$W[>??_)PL&=""QQ<,NSVHTA1H,_7GFYU4!6,"
^XMB(3.9,23,2,26941,0)="""DATA"",396.18,247,3,261,0)"
^XMB(3.9,23,2,26942,0)="MNE0%:""/MAT2`X46Y4CD^J6:`5*DAXXGL<A8K]-B/-JZ__>B`A%$V)T,L/QP"""
^XMB(3.9,23,2,26943,0)="""DATA"",396.18,247,3,262,0)"
^XMB(3.9,23,2,26944,0)="M:HGO1U=-%YSBANFL/7;Y`L1:TKYYQS<EAFXF(O!.<JOZ3.""FE$I+$7A-""2>/"
^XMB(3.9,23,2,26945,0)="""DATA"",396.18,247,3,263,0)"
^XMB(3.9,23,2,26946,0)="M=RH#!QNX:8@+/"">TI^^CX]K`Q_61""(!\+0[)[8L<-(WN'DDB:8I*>HTWXF?7"
^XMB(3.9,23,2,26947,0)="""DATA"",396.18,247,3,264,0)"
^XMB(3.9,23,2,26948,0)="M`Y1#7((JEA$8/AB6P]]+0LL#'4N9]3ZL2;""T+.017Z52O2$)TQ[T$/R/E(TV"
^XMB(3.9,23,2,26949,0)="""DATA"",396.18,247,3,265,0)"
^XMB(3.9,23,2,26950,0)="M9K6(KU*L6M(ALVI4CIZ6O8(>3;X>$=[QFN0=AR_:&''2,N)'#N/-E3[?!4FM"
^XMB(3.9,23,2,26951,0)="""DATA"",396.18,247,3,266,0)"
^XMB(3.9,23,2,26952,0)="MX2]+W\`./Q^*PC?$?M3_@G&7""*)D(R<C?1)$^.:,SK&XA'/*!8*1(L717%7$"
^XMB(3.9,23,2,26953,0)="""DATA"",396.18,247,3,267,0)"
^XMB(3.9,23,2,26954,0)="MO<G;JG#E$NGK?AG.(2_&`Y.X$R`[9<(&3:./QI/Q.0RQ/9[$S<,I\@]''T_A"
^XMB(3.9,23,2,26955,0)="""DATA"",396.18,247,3,268,0)"
^XMB(3.9,23,2,26956,0)="M?Z7IO\8>8_\;Z3:Z/)S^7L/+]P^K.I;%P=P%%U!5'EVR""UW74'J-I=!E+%KG"
^XMB(3.9,23,2,26957,0)="""DATA"",396.18,247,3,269,0)"
^XMB(3.9,23,2,26958,0)="M6#9<Q+4ON.>Q1J`-+E,DSPL$R5.?2CZ2BE]#Z\61_3']2*;['[./Y+K^\1`!"
^XMB(3.9,23,2,26959,0)="""DATA"",396.18,247,3,270,0)"
^XMB(3.9,23,2,26960,0)="MD""4""=_N._R(G#>V;WWW]""*_U>`+(7QR.6H_>Y41TR]HA`-@_V8F<FTH5BVKP"
^XMB(3.9,23,2,26961,0)="""DATA"",396.18,247,3,271,0)"
^XMB(3.9,23,2,26962,0)="M>*/74>R/'*):[FU#F""%G`0T,/Z-]+B(9<T$-=>O!.11'-@TTZI->/R!N`W3!"
^XMB(3.9,23,2,26963,0)="""DATA"",396.18,247,3,272,0)"
^XMB(3.9,23,2,26964,0)="M$W`+GU%5$RA4R3#MP]-.1`61?E4F4E$-\F\?[ETD,""@`NKHO24*5[3(<\J]$"
^XMB(3.9,23,2,26965,0)="""DATA"",396.18,247,3,273,0)"
^XMB(3.9,23,2,26966,0)="M>]I300U<;'2F[>#=3VW0X7`M4W`-_'C0F-72T9MF4)B\4!%@W&*#PLMCQ+%4"
^XMB(3.9,23,2,26967,0)="""DATA"",396.18,247,3,274,0)"
^XMB(3.9,23,2,26968,0)="MU6S8RS*;48/CG.0)@++EE##BHJDV_E#EH""QH_&ZDM]K5+HXWS9E5HZEN+)M#"
^XMB(3.9,23,2,26969,0)="""DATA"",396.18,247,3,275,0)"
^XMB(3.9,23,2,26970,0)="M77A#$BH^:DNF=37<UIUH:(95(_?<M@N(W534^W@8`1A3ZM5H;PG4,""-WL&""^"
^XMB(3.9,23,2,26971,0)="""DATA"",396.18,247,3,276,0)"
^XMB(3.9,23,2,26972,0)="MP5@9U(:_I5O^/OW#E[\_*&&FI0?T""2%?<G^(?`FHQIIKEQLH$JLO-P:`[#7@"
^XMB(3.9,23,2,26973,0)="""DATA"",396.18,247,3,277,0)"
^XMB(3.9,23,2,26974,0)="M)#Z-OYR[E<2G^BP(F^Y;89/X8EJ#YDNT7Y'`KKS3P[DWFDVD1'+I3,Y9+JH!"
^XMB(3.9,23,2,26975,0)="""DATA"",396.18,247,3,278,0)"
^XMB(3.9,23,2,26976,0)="MQ[OO`G<?F)#/P1)E3G[PBF0<#WGC:+*8.""RXOC]=)-2B/1X@_@E,-(!92TV:"
^XMB(3.9,23,2,26977,0)="""DATA"",396.18,247,3,279,0)"
^XMB(3.9,23,2,26978,0)="M4UZQRC6S'2]C=V<L860)LPN)2!?`_""+4_+'.VQ>8!T\J,GQT4%&,Y91X*%B]"
^XMB(3.9,23,2,26979,0)="""DATA"",396.18,247,3,280,0)"
^XMB(3.9,23,2,26980,0)="MI$8&]B0=V,M\8'$PL/3`""0:Z<G@(F3WM-R.!""KMM$H^Q#-""9Z]""W74._7C#+"
^XMB(3.9,23,2,26981,0)="""DATA"",396.18,247,3,281,0)"
^XMB(3.9,23,2,26982,0)="M%^VFN6#;*SBD%S])PL(_5F7_-D^<_7YT&_I^H+/:PK]`_-48\E?-VC7SF>96"
^XMB(3.9,23,2,26983,0)="""DATA"",396.18,247,3,282,0)"
^XMB(3.9,23,2,26984,0)="M]@?FEL?9!Q*_Q9]""G;,G]B'T_^@?EY'!1F#UPAZOY9:Z60C3N<\O*?\;G15W"
^XMB(3.9,23,2,26985,0)="""DATA"",396.18,247,3,283,0)"
^XMB(3.9,23,2,26986,0)="M4V.3\D]<YE>BN^;LQK,2>$XIFN?+T6YHGANF*]92;>.H44'N$#E@B.XI;(3Z"
^XMB(3.9,23,2,26987,0)="""DATA"",396.18,247,3,284,0)"
^XMB(3.9,23,2,26988,0)="M@H.G\EYN>]!7C\/""65=7]PE(F=_B!IRZMV-F>]EV;R]+X/_2\%RQB8[ZBWS4"
^XMB(3.9,23,2,26989,0)="""DATA"",396.18,247,3,285,0)"
^XMB(3.9,23,2,26990,0)="M#W#3V7K%+*&)<.)7S%7+O#7`W(*Z-+WJY>43E`$3I/UMI'.&T/'\7DY1-$16"
^XMB(3.9,23,2,26991,0)="""DATA"",396.18,247,3,286,0)"
^XMB(3.9,23,2,26992,0)="M(06B*Z^0]>?\9_!$7K$JZ7X0?YT[<?U$O&;:]8KA*![`0Z5STC!&O$R%^()O"
^XMB(3.9,23,2,26993,0)="""DATA"",396.18,247,3,287,0)"
^XMB(3.9,23,2,26994,0)="M!\)""Y!5S(YX034(9SX""*B4@.83U1KLOM+5`2""K2+""O2'4H'4V`0>`@(MVT[="
^XMB(3.9,23,2,26995,0)="""DATA"",396.18,247,3,288,0)"
^XMB(3.9,23,2,26996,0)="M:AH5QFAF\PMOY=(Q?^\*-:P*D>`A&M6>\4>U&Z^8C]AULW9/%XIR9TX:2O=4"
^XMB(3.9,23,2,26997,0)="""DATA"",396.18,247,3,289,0)"
^XMB(3.9,23,2,26998,0)="M;^G4>XZ\=V7`N[2/151>MJ$_MU:`^T[!Y]5>CWCFQ('*SE0,%%T3--%Y`7OX"
^XMB(3.9,23,2,26999,0)="""DATA"",396.18,247,3,290,0)"
^XMB(3.9,23,2,27000,0)="M[#-&-0C_,R?04ST6#H37^[5`,/=D..!4[]<""A=KS/?![)>U@0@XM&[#7[7B\"
^XMB(3.9,23,2,27001,0)="""DATA"",396.18,247,3,291,0)"
^XMB(3.9,23,2,27002,0)="M957*0@_A,%@\N,+*05%O!(@Z,6.76KA?@0-;WLN=/::\WHI0T%L!@M[GQBUQ"
^XMB(3.9,23,2,27003,0)="""DATA"",396.18,247,3,292,0)"
^XMB(3.9,23,2,27004,0)="M)N\@*@1O2U;U?D9V2-HA]![)A!V?!X""&]S3P#._3A""8T>MOP'Q$AFOXK[M4^"
^XMB(3.9,23,2,27005,0)="""DATA"",396.18,247,3,293,0)"
^XMB(3.9,23,2,27006,0)="M'/6R[NQ>7@)]![A=4_""2]1<C@<D`;]>]7:9!6D=%7_LU]MJ7)*]-@=?:'I\L"
^XMB(3.9,23,2,27007,0)="""DATA"",396.18,247,3,294,0)"
^XMB(3.9,23,2,27008,0)="MNZ,_TNK,7![M07(HO/HQU@+_T9X2XQOV<MM9;-5*+-)P/UPTK`KFDU3KF$L*"
^XMB(3.9,23,2,27009,0)="""DATA"",396.18,247,3,295,0)"
^XMB(3.9,23,2,27010,0)="M)8&3OKNPXX#\3""V)OI?QV3F,SZ[O?CG)8J.[38T,^_!PQT0A((&$>M_3/CL%"
^XMB(3.9,23,2,27011,0)="""DATA"",396.18,247,3,296,0)"
^XMB(3.9,23,2,27012,0)="MLY16NS288""GW_B8G)IV<+)R<N;4].=KM3XY0*+T<-#D9M1/&=C8Y%=-8,50O"
^XMB(3.9,23,2,27013,0)="""DATA"",396.18,247,3,297,0)"
^XMB(3.9,23,2,27014,0)="MT:1(#6RP[MPTUO;<;+CMN<G`8G/M4RSBO^YO+DWD\@-/J.I2:N\4F`'MS<C:"
^XMB(3.9,23,2,27015,0)="""DATA"",396.18,247,3,298,0)"
^XMB(3.9,23,2,27016,0)="MGH*-RG%0!KIF[>TU+M_8[9L8+#_W;IVNRTB!$P,WL5#U""1FXR6N341^_-1AC"
^XMB(3.9,23,2,27017,0)="""DATA"",396.18,247,3,299,0)"
^XMB(3.9,23,2,27018,0)="M6JT\!%X-BD$8^KAF.G?@WC\#Z>>TF]$@A1<&KO!QJ<T7H,V_.[JV;7Z+^IK."
^XMB(3.9,23,2,27019,0)="""DATA"",396.18,247,3,300,0)"
^XMB(3.9,23,2,27020,0)="M0?D.KG'Y-O=YK,D*]3#L6/-VR&/-B.1F-0>QB?Z/N8:ZA""'$;7!Q`'_#LKNP"
^XMB(3.9,23,2,27021,0)="""DATA"",396.18,247,3,301,0)"
^XMB(3.9,23,2,27022,0)="M3H6Z-TQ`=*))7^KY.+B?4PM!IL#Z-@@02XT!L0P@C&?C7OWA""..S`HC4.P*G"
^XMB(3.9,23,2,27023,0)="""DATA"",396.18,247,3,302,0)"
^XMB(3.9,23,2,27024,0)="M22V,WPMST4*%Q@#B>8:JLBIP>ZW;>)X2,=*.>C/H2%Q4.Q(?\D!D2IALQ%XU"
^XMB(3.9,23,2,27025,0)="""DATA"",396.18,247,3,303,0)"
^XMB(3.9,23,2,27026,0)="M'-RTU^CS]#72M3*%SM@D<3ROL,3&E[@,3WNU;A>,BNG$+]4J;1BXAE`3W88W"
^XMB(3.9,23,2,27027,0)="""DATA"",396.18,247,3,304,0)"
^XMB(3.9,23,2,27028,0)="M$#5-^-KNP#:<4(LI'N""X+;P5'V0\!N%VZ`R7R-#CZ][M%/Z_O:OYC9N(XON1"
^XMB(3.9,23,2,27029,0)="""DATA"",396.18,247,3,305,0)"
^XMB(3.9,23,2,27030,0)="MIDEH5""@EBOJ%155(2IJN/]:[B2I%^6@1'VK3I&F$!`+'ZS1NO?:R7J?=""L&!"
^XMB(3.9,23,2,27031,0)="""DATA"",396.18,247,3,306,0)"
^XMB(3.9,23,2,27032,0)="M'GK@PAFX](2$.'!`<."""".`)7A(0X<$=""X@]`S-@S]HQG[*Z;A:PK>J`JLF;?"
^XMB(3.9,23,2,27033,0)="""DATA"",396.18,247,3,307,0)"
^XMB(3.9,23,2,27034,0)="MO'GSWIOW\7OD25V(HR60!Y6M7F\""HB5$?:=""T,S5#XU3)P_HE7QKG'B70)UT"
^XMB(3.9,23,2,27035,0)="""DATA"",396.18,247,3,308,0)"
^XMB(3.9,23,2,27036,0)="M""@YC9_SG\.*T""/^UEH,N@8/<$U1(F^'E.\[@C\=*K]T97]WINI`O?I*NUPH>"
^XMB(3.9,23,2,27037,0)="""DATA"",396.18,247,3,309,0)"
^XMB(3.9,23,2,27038,0)="MD5/!4PH%H9!4O_-X%.JP+?@RZ1Z5T<7XHL2&Q#^_?.7:Q7GAY6UD)TR@A^!("
^XMB(3.9,23,2,27039,0)="""DATA"",396.18,247,3,310,0)"
^XMB(3.9,23,2,27040,0)="M2=0CO]-M`089MHL""Y`[J'J=,;L-TX6""E8/YI4^L*/M:=Y<\_[3@XTAY\-(.F"
^XMB(3.9,23,2,27041,0)="""DATA"",396.18,247,3,311,0)"
^XMB(3.9,23,2,27042,0)="M45'S*F/KP<&PL.0:_B;XJ./HCC7E3L_N[R0:?E:Z1C+Z1-S#*;>+@R49DDB^"
^XMB(3.9,23,2,27043,0)="""DATA"",396.18,247,3,312,0)"
^XMB(3.9,23,2,27044,0)="M;\I5_/Y\AY6,YY8\:\O1M5VC;3NN!]%KMBWCCC""U""(_SMFG?FB;9P\E#5TC("
^XMB(3.9,23,2,27045,0)="""DATA"",396.18,247,3,313,0)"
^XMB(3.9,23,2,27046,0)="MRD-,-:P037>X#BL^_$%\;N\YM1[`C42R,+;.3""H^%]F'6C9[?6IQJ^$$#>]P"
^XMB(3.9,23,2,27047,0)="""DATA"",396.18,247,3,314,0)"
^XMB(3.9,23,2,27048,0)="M$)FEV;<$?[1<&PXG6\A:+,H!$D,W^""V?](O)!=AL?45I[WQ32+[IZ,??X+!-"
^XMB(3.9,23,2,27049,0)="""DATA"",396.18,247,3,315,0)"
^XMB(3.9,23,2,27050,0)="MR=;.<OAR`!:`H""RR\:G,Y5.=Y-/-+'P:VCN?JB1XX8?X<?""`)V!*-@$[B3BE"
^XMB(3.9,23,2,27051,0)="""DATA"",396.18,247,3,316,0)"
^XMB(3.9,23,2,27052,0)="MV>#FP1%[T'^']TZS+#=S(Q_+MYI(\*W\<2$+XX;WSC@*]?$K_.NO<_A6EQ])"
^XMB(3.9,23,2,27053,0)="""DATA"",396.18,247,3,317,0)"
^XMB(3.9,23,2,27054,0)="MPKR@;RIS7QV'4^1-+'^7B5,C>^=4G>34[P7F<4BPJIJMQ?(88A6P\,!KA>EE"
^XMB(3.9,23,2,27055,0)="""DATA"",396.18,247,3,318,0)"
^XMB(3.9,23,2,27056,0)="M8.>U[`]#KO*O54FN_9F):V,]=Y>3I?4*!5]^%;\&/N&5UJM)_=O,?,[A@$G#"
^XMB(3.9,23,2,27057,0)="""DATA"",396.18,247,3,319,0)"
^XMB(3.9,23,2,27058,0)="MH^'XR.%A'T.HTU,;@CI''M]8,=X92)R>FC'=O`HXTMKQZP*,AM',WF#'.;0:"
^XMB(3.9,23,2,27059,0)="""DATA"",396.18,247,3,320,0)"
^XMB(3.9,23,2,27060,0)="M>6B3Q2R'=NC10L6H7J7\8X'O096,J-5H#?X/TFXRW@V:75\Z[B^F(OK?9*/$"
^XMB(3.9,23,2,27061,0)="""DATA"",396.18,247,3,321,0)"
^XMB(3.9,23,2,27062,0)="M$ZN.""\>:`N/=,;?@]-269T%$)'9)F5SR</*21U><MJM9)D2!:,#_!@LF""&N%"
^XMB(3.9,23,2,27063,0)="""DATA"",396.18,247,3,322,0)"
^XMB(3.9,23,2,27064,0)="M7!6;]_<94974WN&C4D4UH1UECB3C5#(9U3FQU^Z=5#*2I$`FI:!\KY`B!OZ7"
^XMB(3.9,23,2,27065,0)="""DATA"",396.18,247,3,323,0)"
^XMB(3.9,23,2,27066,0)="MG-I-XL@D$MJ[WA<I$/\-*<""-6R<>SOY*7]B?0$:=).-2FC!6^B*,25*`8""_N"
^XMB(3.9,23,2,27067,0)="""DATA"",396.18,247,3,324,0)"
^XMB(3.9,23,2,27068,0)="M%RG8I.-A<^D/A=3:M[I*%LZ.,:B*T2E5&4SV<.HK;@CPG2ZSXT9(U[-IW7CA"
^XMB(3.9,23,2,27069,0)="""DATA"",396.18,247,3,325,0)"
^XMB(3.9,23,2,27070,0)="M""'B15_J[RT&F9?-4VZ;MP\@PR+0JA0?51!L;""=M--\)I/16YG@_4IACP'%5N"
^XMB(3.9,23,2,27071,0)="""DATA"",396.18,247,3,326,0)"
^XMB(3.9,23,2,27072,0)="M?2R.2U5:()P<.6?`[4F)A3E*Y?V!5=XO14Y%^RA,+<0R""T.<Q[U(]?';<;<Z"
^XMB(3.9,23,2,27073,0)="""DATA"",396.18,247,3,327,0)"
^XMB(3.9,23,2,27074,0)="MDKZGE]O`9?""5GXX>]@N\SE($#-`(;N1*?,11M.#XE.W8+<UJP:.9[LDUJI""Q"
^XMB(3.9,23,2,27075,0)="""DATA"",396.18,247,3,328,0)"
^XMB(3.9,23,2,27076,0)="M]""-HZ1N<6'HU6])C//1K[;ZD5G$40:<([<DIVGO&`3<B!%SJQ)$9""""ZIV1Y*"
^XMB(3.9,23,2,27077,0)="""DATA"",396.18,247,3,329,0)"
^XMB(3.9,23,2,27078,0)="M3V(N(<S)/E3$X>>P3M'Z:C]Z0A*\*%K>WV62<Z3+KR:8KM$^N_PU2JY74N2Z"
^XMB(3.9,23,2,27079,0)="""DATA"",396.18,247,3,330,0)"
^XMB(3.9,23,2,27080,0)="MEBUX\A0ZL8X!OH,0BWU(#V$(63U[F&GOZ6$4@P""O6O_7Q]'Q_<9+?&:L]YQ&"
^XMB(3.9,23,2,27081,0)="""DATA"",396.18,247,3,331,0)"
^XMB(3.9,23,2,27082,0)="MO#):9L-L=)NF>]X%[]PF>-[J`NSO/`_LO]/QLD,(<7B(MK%`N2V],?'@WIDH"
^XMB(3.9,23,2,27083,0)="""DATA"",396.18,247,3,332,0)"
^XMB(3.9,23,2,27084,0)="M44Q$\E;^@,=$-5N2?1(QT470GKL(VC,S[@^'9PK%LXU^A@=ZR#$=N`;ND-MK"
^XMB(3.9,23,2,27085,0)="""DATA"",396.18,247,3,333,0)"
^XMB(3.9,23,2,27086,0)="M;DEZM-S2$3JWM&[>-<KWRH]GQDF2*8#&`T@*?RJRGH*VZ,+D#S@KZ""K,""IL["
^XMB(3.9,23,2,27087,0)="""DATA"",396.18,247,3,334,0)"
^XMB(3.9,23,2,27088,0)="M/N1$O!L#OIT<US7!-S/""TL9EWQ\/9D#;P""43`%T""$$NSZ35]C>B&L!6S/67R"
^XMB(3.9,23,2,27089,0)="""DATA"",396.18,247,3,335,0)"
^XMB(3.9,23,2,27090,0)="M1;*N0\?1HC,AP:?QM9%5.9N>GM\T@N(4^+CPK([_M-`L""Y%IVKKE-6!38@#Y"
^XMB(3.9,23,2,27091,0)="""DATA"",396.18,247,3,336,0)"
^XMB(3.9,23,2,27092,0)="M`;-=X$LX(YRX6/LS,S.\OHGCZ!/P;A6""FZ6CB)F?1@`*#\&[K9.9(O1P*TVQ"
^XMB(3.9,23,2,27093,0)="""DATA"",396.18,247,3,337,0)"
^XMB(3.9,23,2,27094,0)="MLC.R:&UYX-3G_WOIYY&-7/AO""A3=$DOW$\NAX`X&Z2C^5'Z[2)'.P8X?`G=O"
^XMB(3.9,23,2,27095,0)="""DATA"",396.18,247,3,338,0)"
^XMB(3.9,23,2,27096,0)="M0&@622E!HVY*ISF8I^M.P_2:@T&T1,G(+*):9JD>6W4Z&E!X7G-`V""U3(H(I"
^XMB(3.9,23,2,27097,0)="""DATA"",396.18,247,3,339,0)"
^XMB(3.9,23,2,27098,0)="MGV8I'UW>`;28C4&1;>1;C)0HPB<YLKU\11H0FJL4S?@^GN6HP)<L3W?<0>&U"
^XMB(3.9,23,2,27099,0)="""DATA"",396.18,247,3,340,0)"
^XMB(3.9,23,2,27100,0)="M2@G)&M+\SQ;9>H*[&XO(]L$VSZ8)7!M7=UK`']>`[>^ZP.!W'`'<`#AT9]MI"
^XMB(3.9,23,2,27101,0)="""DATA"",396.18,247,3,341,0)"
^XMB(3.9,23,2,27102,0)="M@Y>I@68UP+E-;E22HEG0`=`U8$UGA!MMS?:K1M""_@UQI0]BR'`<X#(9EN?/["
^XMB(3.9,23,2,27103,0)="""DATA"",396.18,247,3,342,0)"
^XMB(3.9,23,2,27104,0)="M6SC"",JU&Z82U-`%=6AX06R>3RA??J>=9D@\&RG=`J%9)JM,8O;J^Z(==X5!E"
^XMB(3.9,23,2,27105,0)="""DATA"",396.18,247,3,343,0)"
^XMB(3.9,23,2,27106,0)="M&)6$?XN46S+)#.!$T84A21*E6'""36H9V$U+7J5*A0WH=B;;9J>O(L9&+U#HB"
^XMB(3.9,23,2,27107,0)="""DATA"",396.18,247,3,344,0)"
^XMB(3.9,23,2,27108,0)="MI6N2UZE599$JOXA%I6G3IC'KO!""N(^5A7MHHPRB)//\+:7RJ4J&QV#(RQ:?4"
^XMB(3.9,23,2,27109,0)="""DATA"",396.18,247,3,345,0)"
^XMB(3.9,23,2,27110,0)="M=62J;"".VCD*=?]HZ4HV*6<36H6U-ZCHJ51P1.W_:0<!IB=E0]Q^/]J7FX/S'"
^XMB(3.9,23,2,27111,0)="""DATA"",396.18,247,3,346,0)"
^XMB(3.9,23,2,27112,0)="M,*-&$*.HD<M(O$M=)K984Y0*%>Y(>B15R2?G9P7FE?1E%/""?6(N>CD&BR(]8"
^XMB(3.9,23,2,27113,0)="""DATA"",396.18,247,3,347,0)"
^XMB(3.9,23,2,27114,0)="MI"":_%4I='4F)U6^TG6W+N=TT.NWN@/@12$?N!++T#"")^DY.Y@#G;<]<=LQ'F"
^XMB(3.9,23,2,27115,0)="""DATA"",396.18,247,3,348,0)"
^XMB(3.9,23,2,27116,0)="M[@9C""U6JW!'-\""N]QAFAM6XT#3OT>@:$>I$Z``PU<),S""735[>H[IM:!J2-C"
^XMB(3.9,23,2,27117,0)="""DATA"",396.18,247,3,349,0)"
^XMB(3.9,23,2,27118,0)="M5[,\OV9H0+9!J>P[Z(I]STD!OWC1;C@ZK'PB-A&5.,-8#8[?[,O68KI6(?>%"
^XMB(3.9,23,2,27119,0)="""DATA"",396.18,247,3,350,0)"
^XMB(3.9,23,2,27120,0)="M^FS*$Z&J/1FIVDH>$\`JI6NOINU/R<>\L=C^5.IZG4[9H%3/1UX[ML$:M<'K"
^XMB(3.9,23,2,27121,0)="""DATA"",396.18,247,3,351,0)"
^XMB(3.9,23,2,27122,0)="MB1N4)$G)QP33V`9)ZUJ^CZWW>R6.B$KYF$C20Z)D=,74;MBP^[779(G\?R-."
^XMB(3.9,23,2,27123,0)="""DATA"",396.18,247,3,352,0)"
^XMB(3.9,23,2,27124,0)="M!.4G(ZMZ*K@5SR%VB)RPSK+3A$5&[G[8&GYK""P4C.(7D_:_P*%?W%T66A<BC"
^XMB(3.9,23,2,27125,0)="""DATA"",396.18,247,3,353,0)"
^XMB(3.9,23,2,27126,0)="MWOH3S#SYLQRASB&Z;Y5$]_T(JZ%OPT?$W]$C8F[=:S:UH)5]T;)""Y,,9`3'`"
^XMB(3.9,23,2,27127,0)="""DATA"",396.18,247,3,354,0)"
^XMB(3.9,23,2,27128,0)="M""%H++J&<&VRYVX9X;_L*I5=&BG<$*=XJ#Y#A0;C?7PM8[RJ*FI.)A3'+@MX^"
^XMB(3.9,23,2,27129,0)="""DATA"",396.18,247,3,355,0)"
^XMB(3.9,23,2,27130,0)="M)P,E(>-NO=!T+A%M\FH^!\^S8,)S))@P3K]^'=[6,QA,6)34;!#/PJ8&Q%H("
^XMB(3.9,23,2,27131,0)="""DATA"",396.18,247,3,356,0)"
^XMB(3.9,23,2,27132,0)="MAN):PI66:4//?@U.!70[1B-S11C\\P]02P,$%``""``@`;%0A-6R<+L7-10``"
^XMB(3.9,23,2,27133,0)="""DATA"",396.18,247,3,357,0)"
^XMB(3.9,23,2,27134,0)="M8*<""``X```!'55\Q,3,N<&YL+F9R;>P]:6_<N)+?!YC_(.2+G=U,(I(Z@[=X"
^XMB(3.9,23,2,27135,0)="""DATA"",396.18,247,3,358,0)"
^XMB(3.9,23,2,27136,0)="M2!QGDD4NV,X$B\7#0.ZFVWJCHU>'G9Y?OR1UM'A)5-M.'*?S)1:EEHI59-VL"
^XMB(3.9,23,2,27137,0)="""DATA"",396.18,247,3,359,0)"
^XMB(3.9,23,2,27138,0)="MRL__C1>5]2XZQ\G99HT_7KS.B_2Y=<9&?OW%LM[AB\KZ+^LW:-OT\BQ?DZN`"
^XMB(3.9,23,2,27139,0)="""DATA"",396.18,247,3,360,0)"
^XMB(3.9,23,2,27140,0)="M_ODE7E:7Y`*%].H-CE>7]$F`Z.51M*[B/""/7!^^/3WX_/OCU%YPM?_TE'WR0"
^XMB(3.9,23,2,27141,0)="""DATA"",396.18,247,3,361,0)"
^XMB(3.9,23,2,27142,0)="M?NKMJ\F/06?X->""-?^WWS\*G?O_\YZ<HPPFTR9?87X,O`0""V'PKMX8><$'%?"
^XMB(3.9,23,2,27143,0)="""DATA"",396.18,247,3,362,0)"
^XMB(3.9,23,2,27144,0)="M@M!GUW%&KPX^??ST^=,!'7F)KW#R-LMP0<;/KTZBN,1+=B,OEKCHW@>W0Z?5"
^XMB(3.9,23,2,27145,0)="""DATA"",396.18,247,3,363,0)"
^XMB(3.9,23,2,27146,0)="M)L'TX?(TSE8)9E/(DYR^8)&<QLD5+NC8ZSRKGAY=1D6)Z3=?';]^\?G=V9]'"
^XMB(3.9,23,2,27147,0)="""DATA"",396.18,247,3,364,0)"
^XMB(3.9,23,2,27148,0)="M;UZ<G!Z?;9_H?_HRB19_]>,]Z+\ULV2#'Z(4,ZJ<6J=15EJGN(@O#OK;'6C_"
^XMB(3.9,23,2,27149,0)="""DATA"",396.18,247,3,365,0)"
^XMB(3.9,23,2,27150,0)="M^R\Z]""DJ<%;1&V3H=924#-2SZ/PCG0898QC;(IH1$CCND*9;7$.[N6ZQW5ST"
^XMB(3.9,23,2,27151,0)="""DATA"",396.18,247,3,366,0)"
^XMB(3.9,23,2,27152,0)="MZ'%0,[`EK=<,#(F+L[C*ZR+.HF+SW/K<_&&=%1'Y_FF59[@\:'XTC3H]\F3T"
^XMB(3.9,23,2,27153,0)="""DATA"",396.18,247,3,367,0)"
^XMB(3.9,23,2,27154,0)="MH<&P'H$B""B_*EWFR_%=S2XU*ME""'&'Q95V0:CD\PV/S)H1`"".$0A\%T>B=WU"
^XMB(3.9,23,2,27155,0)="""DATA"",396.18,247,3,368,0)"
^XMB(3.9,23,2,27156,0)="M=M&Z$@Z/DKS$+;P#2K8O_I@=)?'B+S+PM?D^03F9X(*-*B'^O<CK]<O\*T`$"
^XMB(3.9,23,2,27157,0)="""DATA"",396.18,247,3,369,0)"
^XMB(3.9,23,2,27158,0)="MYNZ""A]H)AU!#@?(@\$7*(R#!UXY(:\WCU]I@M74#W'(;?-:UNZ$MNKQN:(""P"
^XMB(3.9,23,2,27159,0)="""DATA"",396.18,247,3,370,0)"
^XMB(3.9,23,2,27160,0)="M#W5Z3D#(+ZPXNXK*^`I;ZR)?X&5=X-):TM6XLJI+,AJ5%?FNE1(B7Y;_/.B_"
^XMB(3.9,23,2,27161,0)="""DATA"",396.18,247,3,371,0)"
^XMB(3.9,23,2,27162,0)="M2#;]ER*B4)P5-6Z&6SPJ9N0;SLCSI2EYP=PI97GVVQU/ZRA/SW.R)B!E""]W%"
^XMB(3.9,23,2,27163,0)="""DATA"",396.18,247,3,372,0)"
^XMB(3.9,23,2,27164,0)="MQ-P<6YJ;X\IS`_U0RY5!`)#?0_BVPJD@*81590\?+<G6I;,NR8W#[H9%L$7X"
^XMB(3.9,23,2,27165,0)="""DATA"",396.18,247,3,373,0)"
^XMB(3.9,23,2,27166,0)="MRL'@&@POX/`""6827I'F!#QY/H\,S1T?H[8Z.<`8ZP+=!AYZ'.#H>XCHW9R&V"
^XMB(3.9,23,2,27167,0)="""DATA"",396.18,247,3,374,0)"
^XMB(3.9,23,2,27168,0)="M9L.%F@WG\T1PH4B$`$DTV*)UL-U>X7)1Q.>8;:=EC*OG/9:.L^@\P<NA3)BU"
^XMB(3.9,23,2,27169,0)="""DATA"",396.18,247,3,375,0)"
^XMB(3.9,23,2,27170,0)="MMSY]>7\2+>.<(8TQ0WY(F!*:8HH!D*;D*)>5VT_A]#*_;O0:<1;_79=5?+%A"
^XMB(3.9,23,2,27171,0)="""DATA"",396.18,247,3,376,0)"
^XMB(3.9,23,2,27172,0)="MBXF;2;/`/D7+@9CG,/8F*JW(*M=X$4<)0YEUCG%&.%2+RN66#Q$)7J=9N95A"
^XMB(3.9,23,2,27173,0)="""DATA"",396.18,247,3,377,0)"
^XMB(3.9,23,2,27174,0)="MX\OW?WH=H5W-W>)4K14%RM_C-$>4E=$_QE>,)V];7Q8Z;J#""KS>U1$PTG#$="
^XMB(3.9,23,2,27175,0)="""DATA"",396.18,247,3,378,0)"
^XMB(3.9,23,2,27176,0)="M1]9R('>CTW..J+Y%</(!7Q]P#_""J(L-""3!0P#=JW6%9K0FPE+8H\25Z2*9$["
^XMB(3.9,23,2,27177,0)="""DATA"",396.18,247,3,379,0)"
^XMB(3.9,23,2,27178,0)="M9?D'+JIX$25Z1C7D)RJ='P0JG=]&`^,""CNK\C>:RU_DEW(M,%""&ESN][(RH_"
^XMB(3.9,23,2,27179,0)="""DATA"",396.18,247,3,380,0)"
^XMB(3.9,23,2,27180,0)="M0G""VRG^""%W5!`124_[?9!8&'_.:!&`!(8P#8G!P$X7TR`'R]`<`M@\[2ZW=)"
^XMB(3.9,23,2,27181,0)="""DATA"",396.18,247,3,381,0)"
^XMB(3.9,23,2,27182,0)="M-ZF!%/5-#0""D4Y<#GA<#F1<'T$A;'C""QL[RBXJ@N(G:/Z,]5@:,JI>OQ@JRB"
^XMB(3.9,23,2,27183,0)="""DATA"",396.18,247,3,382,0)"
^XMB(3.9,23,2,27184,0)="MSV=OK?.-E>(EX5OL$5Z//K#^<_""V6S`6D&<V^Q#)MH)CIKR\+8G=4^&,60AI"
^XMB(3.9,23,2,27185,0)="""DATA"",396.18,247,3,383,0)"
^XMB(3.9,23,2,27186,0)="ME$4KS.9;X/^KXV(HB&<;!$""O`0OP.S+\@9D"";'OA7=L#_[!`0T9.*[:JW$(M"
^XMB(3.9,23,2,27187,0)="""DATA"",396.18,247,3,384,0)"
^XMB(3.9,23,2,27188,0)="M>8<WWA-]F*R'*""-WS^O*2G!9-M>>XNEN;(YA81NC%=CASGCUP5T;%D=DYG%6"
^XMB(3.9,23,2,27189,0)="""DATA"",396.18,247,3,385,0)"
^XMB(3.9,23,2,27190,0)="MYS6'D;=D,19I7)$E61G;%8&6-<&;<R:-78$<,[M""Q9F<N9QI:]%?YN4Z)FPJ"
^XMB(3.9,23,2,27191,0)="""DATA"",396.18,247,3,386,0)"
^XMB(3.9,23,2,27192,0)="M_IMQH)(QIK@3CSK#GN=,-V!(KMFD`]G`#WPSY\6;_)KRH8U5Q2DNK6MB*BR+"
^XMB(3.9,23,2,27193,0)="""DATA"",396.18,247,3,387,0)"
^XMB(3.9,23,2,27194,0)="M**:,J6=*=^&_`*%^7_FWQJY\^SN[+]Z;<1FVI<RP<1,NXP7?V7WQ7N.^4(88"
^XMB(3.9,23,2,27195,0)="""DATA"",396.18,247,3,388,0)"
^XMB(3.9,23,2,27196,0)="M')6YX0Y""##X78D!`,#<:A\+>W)#T4I'->(XZQ.""/11B""^>;&450LX_PJ*A=U"
^XMB(3.9,23,2,27197,0)="""DATA"",396.18,247,3,389,0)"
^XMB(3.9,23,2,27198,0)="M$A76Z29=5WGZ,&P,UU7;&`""XG*\-.;=F8X"";VAA,950*\HD80^=!W=*^4XFG"
^XMB(3.9,23,2,27199,0)="""DATA"",396.18,247,3,390,0)"
^XMB(3.9,23,2,27200,0)="M!;FGDVG`%AB=(_,YPR##E\MX<<D,""B*Q+O(DR:^I_%KPZZ]LUY]%Z,Q\883:"
^XMB(3.9,23,2,27201,0)="""DATA"",396.18,247,3,391,0)"
^XMB(3.9,23,2,27202,0)="M\P7:QY-W<5D1!-)Y]1<3<]OZF[>^+)7[TU<P\7""K@A]_)7K;$B]/<4*A$1Q`"
^XMB(3.9,23,2,27203,0)="""DATA"",396.18,247,3,392,0)"
^XMB(3.9,23,2,27204,0)="M&A8_QLY?$RUG57,<_46V(MMW./)J4ZXS'%F'$;5;RNJQ\B:A1!HG2PM_I8ZG"
^XMB(3.9,23,2,27205,0)="""DATA"",396.18,247,3,393,0)"
^XMB(3.9,23,2,27206,0)="M/-,_E9/U$E5X^LF2,.Y""]US\]]_48<9IMZ>;;)&ON>E\(EMC?4D^F%C'2YR2"
^XMB(3.9,23,2,27207,0)="""DATA"",396.18,247,3,394,0)"
^XMB(3.9,23,2,27208,0)="M%Y.1DA""-$/_Q^(-#7?GQU@/WODZJN*?`T""W;,!#JT6W)Q_OG-.,ZC>0L7F\Y"
^XMB(3.9,23,2,27209,0)="""DATA"",396.18,247,3,395,0)"
^XMB(3.9,23,2,27210,0)="MWY<X6^;7_2K+LQ5=>/RKI@2LIY*OSB!7P.%R!9#M\O+5W\M72;XBA7Q5._,0"
^XMB(3.9,23,2,27211,0)="""DATA"",396.18,247,3,396,0)"
^XMB(3.9,23,2,27212,0)="M[WORQ0#^?/'ZAJR`O-A0OG=61'4:'9:/[T2VNM],MC*T.0;X0X$@HGPI`0))"
^XMB(3.9,23,2,27213,0)="""DATA"",396.18,247,3,397,0)"
^XMB(3.9,23,2,27214,0)="M^*,Y.D^L)&^]2U%&+!W""B`C:&F<4Q>'S.\$@V`F#N^@ES']AHI?<T/=Y[_%S"
^XMB(3.9,23,2,27215,0)="""DATA"",396.18,247,3,398,0)"
^XMB(3.9,23,2,27216,0)="M.ZH3#5,Q8VT;KU*N1]<5][.(SSYX-1#M;G@GV(0*;,J!*""4NM4&H/@2EP_9H"
^XMB(3.9,23,2,27217,0)="""DATA"",396.18,247,3,399,0)"
^XMB(3.9,23,2,27218,0)="M^$F4<7HC,)AI!'J""D/+V0DH24H[*""`Q\)9L=33-#<+Z4>G&^S%/R=T+]`:^3"
^XMB(3.9,23,2,27219,0)="""DATA"",396.18,247,3,400,0)"
^XMB(3.9,23,2,27220,0)="M*/O+.J-*;#%0WGY44[#%9&""`260+`LNVIP76-O6AQU@GGQ3FBD8B,&M?)1$<"
^XMB(3.9,23,2,27221,0)="""DATA"",396.18,247,3,401,0)"
^XMB(3.9,23,2,27222,0)="MSGL+H?O]+57*91U'Q6YY;'8AL:TO*)069B""R6]`[W??LMF6WS.%\$Y_;GMW*"
^XMB(3.9,23,2,27223,0)="""DATA"",396.18,247,3,402,0)"
^XMB(3.9,23,2,27224,0)="M[-95,`D(H)))N&#,YP:]V>Q6-&,?A+/-#W1*+1<:A\""[/\XV%EQ61\W`F+,-"
^XMB(3.9,23,2,27225,0)="""DATA"",396.18,247,3,403,0)"
^XMB(3.9,23,2,27226,0)="M^K+F&!@ZVR!`&F>;-^EK<^#,=#S.CF*NFKC:S':G44;O0G5""F``TE`(AT),3"
^XMB(3.9,23,2,27227,0)="""DATA"",396.18,247,3,404,0)"
^XMB(3.9,23,2,27228,0)="M[L`V^W7`^CUXL$_]DC+S]*E?4'G<PQ_XBKRA7'!%N6#O4[\DN>`IY$+HJ4,Q"
^XMB(3.9,23,2,27229,0)="""DATA"",396.18,247,3,405,0)"
^XMB(3.9,23,2,27230,0)="M+F>M=RMLZ^T(9PN&MUE9%?6#R/)J,*>V7SK'4*MU""VXVQQ&U;A2*B.M5L-;'"
^XMB(3.9,23,2,27231,0)="""DATA"",396.18,247,3,406,0)"
^XMB(3.9,23,2,27232,0)="M>\[XOO7H94W=VY^*_#S!Z2.:H+*@Z4O8BJR$^F+S""WH$@-XL"":*B.!UD!1S@"
^XMB(3.9,23,2,27233,0)="""DATA"",396.18,247,3,407,0)"
^XMB(3.9,23,2,27234,0)="M)35_XB697GP1\R%V_#6B!A+]_&'Y^*EU=AF7W:N:5U_'PW<E""?U99A$>'%U%"
^XMB(3.9,23,2,27235,0)="""DATA"",396.18,247,3,408,0)"
^XMB(3.9,23,2,27236,0)="M<4(37*TX8^]Z]""I?U""S#J`?TFKF.GU@1>6E4$#B'[VI"")H_:A\DK*5!+7)'7"
^XMB(3.9,23,2,27237,0)="""DATA"",396.18,247,3,409,0)"
^XMB(3.9,23,2,27238,0)="MXN7S1X2O)VWJ`P7DZ0SCHR%28$""D0#`\'##MRQ.)I)@W(1""F'GSJXXNL`J]H"
^XMB(3.9,23,2,27239,0)="""DATA"",396.18,247,3,410,0)"
^XMB(3.9,23,2,27240,0)="M-(C,KB=207YZ-41&1'Y.?M71Q*HV:SQ_RJ'!E`$0S$'D._/G?(*O8GQM=5-G"
^XMB(3.9,23,2,27241,0)="""DATA"",396.18,247,3,411,0)"
^XMB(3.9,23,2,27242,0)="M*XC-FPU3L4R%\L7&BA:+NH@6S%5<UN?#.;/X!O.#1LU4U;-RU80$SMAN""Z<M"
^XMB(3.9,23,2,27243,0)="""DATA"",396.18,247,3,412,0)"
^XMB(3.9,23,2,27244,0)="M7##ZT=#@H^+J,?@H'/NH9QM\5**?P5>1YJN-7HF`[M`:_V''OS45UYZCXJJT"
^XMB(3.9,23,2,27245,0)="""DATA"",396.18,247,3,413,0)"
^XMB(3.9,23,2,27246,0)="M!->F_X!*56B.G0[S>?K=W9P$V3+@'56%AZ,7^*JESU""K40X09_4(-@]1=0UT"
^XMB(3.9,23,2,27247,0)="""DATA"",396.18,247,3,414,0)"
^XMB(3.9,23,2,27248,0)="M@\\T&9RQ""<(23O""""H+1\""+$CBC>-J<T'0(`MZE2V.[V'C_*4<MK2(I=%@[7G"
^XMB(3.9,23,2,27249,0)="""DATA"",396.18,247,3,415,0)"
^XMB(3.9,23,2,27250,0)="MW\RG=-L!H^-E7+%U1O%%+WC&@_AXD8BNSHJ5,M""ZG0QA$-HRUW'&84$J6)!M"
^XMB(3.9,23,2,27251,0)="""DATA"",396.18,247,3,416,0)"
^XMB(3.9,23,2,27252,0)="M\ZY*?Q=@@`R,.Y;AP[:@SGD:\.$T3XA'^A)`P3=QGFY9LN1!%=:_&(%V0""""M"
^XMB(3.9,23,2,27253,0)="""DATA"",396.18,247,3,417,0)"
^XMB(3.9,23,2,27254,0)="M_U!PH0(O^*E=J/K#@PW>H>8$(>_/:)>,F`$`1+[M2VO8<[L-I3LVJ#TT*!\9"
^XMB(3.9,23,2,27255,0)="""DATA"",396.18,247,3,418,0)"
^XMB(3.9,23,2,27256,0)="M'*Y$ZS71]UN)T#$T;=[00?,<7O9NC8,/>7.D`9=4F3S?6'^\./EX,/B!<(OE"
^XMB(3.9,23,2,27257,0)="""DATA"",396.18,247,3,419,0)"
^XMB(3.9,23,2,27258,0)="M[F?D1[T!TQ%+S%TTPCL:QWOO1]T=\X'OWPGFW[/#+DDK@N\;!=""H^J<,U39I"
^XMB(3.9,23,2,27259,0)="""DATA"",396.18,247,3,420,0)"
^XMB(3.9,23,2,27260,0)="MHIV,Y6,'?/$1I\TOVON(!A@/5!:)4IWQQ@*U0'8B3SJ(_J#G'JS3>/4P_$.:"
^XMB(3.9,23,2,27261,0)="""DATA"",396.18,247,3,421,0)"
^XMB(3.9,23,2,27262,0)="M,Y60MUB%[%S/)(L(IVN:P%@7^/F('>DX!M_WQ2,S!G;DIYK,>_3+@<&7)0O6"
^XMB(3.9,23,2,27263,0)="""DATA"",396.18,247,3,422,0)"
^XMB(3.9,23,2,27264,0)="M]Z<_?8++=4RF3K/.:`KG*!2A`100""FHEFG:#''QA]\;\!AH37DB!@@+RD6>`"
^XMB(3.9,23,2,27265,0)="""DATA"",396.18,247,3,423,0)"
^XMB(3.9,23,2,27266,0)="M_+S.6DM)\VU@,FU'5!>-IVV1_9BM\`^;I=8@26VAB6(:""$Q-.O'LN5H?68NM"
^XMB(3.9,23,2,27267,0)="""DATA"",396.18,247,3,424,0)"
^XMB(3.9,23,2,27268,0)="M=WE96H=DORZH;Y#8NM?->$+'%WFZCNAYIRJWSJ,2)T25?&P=1D1:1$,?V0IW"
^XMB(3.9,23,2,27269,0)="""DATA"",396.18,247,3,425,0)"
^XMB(3.9,23,2,27270,0)="M/VN]K-#:8*HVKHD-B)E3,<\H!<C[ET18D5=UB9C*\@,_0.Z<L;O35;-9X-T^"
^XMB(3.9,23,2,27271,0)="""DATA"",396.18,247,3,426,0)"
^XMB(3.9,23,2,27272,0)="M+7^/""/H5M%S1\3TM;X&6KHG@<,,)4U?!NUXF>4YC)[@LB=@<8Y\:EQ=_!AZX"
^XMB(3.9,23,2,27273,0)="""DATA"",396.18,247,3,427,0)"
^XMB(3.9,23,2,27274,0)="M@@IOX+IY-O95$UD-0B`F'4U_]<U65OVXW-K7T,2]4YJ8R'`0BOH#G/[JVVQQ"
^XMB(3.9,23,2,27275,0)="""DATA"",396.18,247,3,428,0)"
^XMB(3.9,23,2,27276,0)="MB<LQ9SP`NGP3[H@<\FXQW\3>U>U#O66^TH/'9RB+'%C2.42?&?""!ZQX8ND/H"
^XMB(3.9,23,2,27277,0)="""DATA"",396.18,247,3,429,0)"
^XMB(3.9,23,2,27278,0)="MUX-I*`)_-A3D$:#QDBFA`/8T&$!,=C2!(W""\`T,G!8,#J.#P>$40A!,ZJ(HH"
^XMB(3.9,23,2,27279,0)="""DATA"",396.18,247,3,430,0)"
^XMB(3.9,23,2,27280,0)="M4`;#,_""5^.->DK:RS];C*P86?!$V),#F01O<HI>DKTR%[AW[U'MFN`/2!U3]"
^XMB(3.9,23,2,27281,0)="""DATA"",396.18,247,3,431,0)"
^XMB(3.9,23,2,27282,0)="MW%Y1!6;**2G&A62:MJ?&D72""7*E%(T=,/$;(8(DY8SJ/\J""AZ,080](_R&+;"
^XMB(3.9,23,2,27283,0)="""DATA"",396.18,247,3,432,0)"
^XMB(3.9,23,2,27284,0)="MHF7X-QS\C09_.S9?PT.+%D>'ECXA^$9X03?!2_@=\,(XD3*H$O(9"">()%BE3"
^XMB(3.9,23,2,27285,0)="""DATA"",396.18,247,3,433,0)"
^XMB(3.9,23,2,27286,0)="M1L$0D7,PXC.4P'!48`#W%N!`<^),`$XS9A`$,QFSCP`:""S`IT^P4'M0FM6M8"
^XMB(3.9,23,2,27287,0)="""DATA"",396.18,247,3,434,0)"
^XMB(3.9,23,2,27288,0)="M-+%W3ME\DAV"">P>JY$`-E04/-""65?7[EB076##QB@@_UM$[3J#F2V:54G=(R"
^XMB(3.9,23,2,27289,0)="""DATA"",396.18,247,3,435,0)"
^XMB(3.9,23,2,27290,0)="MC!?Q@D_3N4=!XQND96M25ER?CXV&]^-@""7""5!TL`K](+1HPG!7([:(?G^(+]"
^XMB(3.9,23,2,27291,0)="""DATA"",396.18,247,3,436,0)"
^XMB(3.9,23,2,27292,0)="MP1*!LZD/EMC:X%#`G^-SP)ZWR;4C507C`[6S&[FCO`V`V?&A#SA?)U&9=L>E"
^XMB(3.9,23,2,27293,0)="""DATA"",396.18,247,3,437,0)"
^XMB(3.9,23,2,27294,0)="M+S&!P2HW)5%G'D+`""*JE!._E""$6C""!JX.5[%T2K+R[BD>+.JFJAKUB'^&BW:"
^XMB(3.9,23,2,27295,0)="""DATA"",396.18,247,3,438,0)"
^XMB(3.9,23,2,27296,0)="M""A1J>/S``)[>"":-WK*H`HFG+S,'9`7:8IL\VY-\H0*$)0*+BI#C$I#Z97_8'"
^XMB(3.9,23,2,27297,0)="""DATA"",396.18,247,3,439,0)"
^XMB(3.9,23,2,27298,0)="M\DN^-N1AG""V2FKEFR[I8X6(4RA`80(GL<'[TZR-9\@5U-+,4L#$0-*%'P%?9"
^XMB(3.9,23,2,27299,0)="""DATA"",396.18,247,3,440,0)"
^XMB(3.9,23,2,27300,0)="MD3PR4KT\Z&E)E]""Z;`,<<?33V""?&CF#'-\""A#+^+IN$_ILN>4;F?140+%3;,"
^XMB(3.9,23,2,27301,0)="""DATA"",396.18,247,3,441,0)"
^XMB(3.9,23,2,27302,0)="MA8B:X:26RR=6FCZQ;F5F;6U877T$ES>;_>#6E!9_5Z6%=]9XX^X;Q'EO)+80"
^XMB(3.9,23,2,27303,0)="""DATA"",396.18,247,3,442,0)"
^XMB(3.9,23,2,27304,0)="MB/`[0%9CG#O)<?D2E4Q:-(POC9)XE47;TDN2GT=O'P^KC]/:X_W?G[._LOPZ"
^XMB(3.9,23,2,27305,0)="""DATA"",396.18,247,3,443,0)"
^XMB(3.9,23,2,27306,0)="M4Z2PV'IU$*G408&;`2`&Z$5&@11E'>#/IPZ.^&-5UK:`9F\2S5""Q7)&I.Y92"
^XMB(3.9,23,2,27307,0)="""DATA"",396.18,247,3,444,0)"
^XMB(3.9,23,2,27308,0)="MF15&F2`WM/U=R.W_?.36>WG@-+EA8,_-WZ5H=L<D@)'G1^D'$\7R;L!YAL""Y"
^XMB(3.9,23,2,27309,0)="""DATA"",396.18,247,3,445,0)"
^XMB(3.9,23,2,27310,0)="M>GX$IQ<H@M[4`NTBI4/@?L*D76^\[L'<6J/NON[!M'FJZFT`;4TVVEBQ463O"
^XMB(3.9,23,2,27311,0)="""DATA"",396.18,247,3,446,0)"
^XMB(3.9,23,2,27312,0)="M4F<FRPNB7+`*""!FFJ8PX*^_.V?;-:R!X&L45W>,:""*ZV!H(_5@-!07_S&@AV"
^XMB(3.9,23,2,27313,0)="""DATA"",396.18,247,3,447,0)"
^XMB(3.9,23,2,27314,0)="MN&L-A#""860(A:M?<SH4/P*Z%#X+0M/""!O2]\,*/P`6N(,:?GC<\GM:/F]-U/"
^XMB(3.9,23,2,27315,0)="""DATA"",396.18,247,3,448,0)"
^XMB(3.9,23,2,27316,0)="M?)H1J$I.0VB2825P`0>""W:7`\3I>QLM-&I?/3M>8#%'7PA'!]3.Z9H@I^B""$"
^XMB(3.9,23,2,27317,0)="""DATA"",396.18,247,3,449,0)"
^XMB(3.9,23,2,27318,0)="M0@!UG6[XXF/P'G6Z81X8DTXWXG%RN9]$KZL/<]0'""7>3#7`@=`T;X`02""S;L"
^XMB(3.9,23,2,27319,0)="""DATA"",396.18,247,3,450,0)"
^XMB(3.9,23,2,27320,0)="M`',:+_'SW?I!0&C:G@?*W?7LF;(LRY=U@B=ZZ^DA#0PA#25$^G,+#^74#SL?"
^XMB(3.9,23,2,27321,0)="""DATA"",396.18,247,3,451,0)"
^XMB(3.9,23,2,27322,0)="MT+Y6-W/\Z""IW""_`B(!5*""F7,#OHQ;""6O<X=UNS\P8@W+5S<U%8<CQUD2%:O!"
^XMB(3.9,23,2,27323,0)="""DATA"",396.18,247,3,452,0)"
^XMB(3.9,23,2,27324,0)="M&3$R]D=$MFB^P/QOWVR6A33(O-T_3M5K2;7RU*J5N!Z19T)@3Z5:N?:^RZ!Q"
^XMB(3.9,23,2,27325,0)="""DATA"",396.18,247,3,453,0)"
^XMB(3.9,23,2,27326,0)="MET&)/KX1?2""`N],'[.DS0A]HUOW)`6;=GW:3UNQ5!Z:F'31L-OM]I#4""AM!]"
^XMB(3.9,23,2,27327,0)="""DATA"",396.18,247,3,454,0)"
^XMB(3.9,23,2,27328,0)="M=VF-H""&D]T%:PQ%I[=^>M/;VTOH[2NO`J""7P3:2!$^RE@;$TD.@3&M'G)MJ4"
^XMB(3.9,23,2,27329,0)="""DATA"",396.18,247,3,455,0)"
^XMB(3.9,23,2,27330,0)="MX^_I<_.>S4KW%1BD%',M7MPF(6^0$^#_[-XK94,7M?,J1&,U.A&0]!][LGBS"
^XMB(3.9,23,2,27331,0)="""DATA"",396.18,247,3,456,0)"
^XMB(3.9,23,2,27332,0)="MF#/<MGBY$U^5]XW3ZS2G2Y'H]!$S5VQ_.JOH/YJSI=9I?9[&K(ACM%S2\H]D"
^XMB(3.9,23,2,27333,0)="""DATA"",396.18,247,3,457,0)"
^XMB(3.9,23,2,27334,0)="M(Y==3<<V.7MV`7V@JS[M\Z<!?3&*(15S\!5.-AP5FD,4NSC96HA#C5O0&\>U"
^XMB(3.9,23,2,27335,0)="""DATA"",396.18,247,3,458,0)"
^XMB(3.9,23,2,27336,0)="MB5NP0?$M!HM:'IA_I8I>?\%721]-T98.[O3NSC=Y\7?/8I_27N=_T2S""H49$"
^XMB(3.9,23,2,27337,0)="""DATA"",396.18,247,3,459,0)"
^XMB(3.9,23,2,27338,0)="M6>[VD1-:6X%*J&ZO\K>5;WA15WGSB#;HKS9GM-U>@6`$^W*U;F!H,&@*N]YA"
^XMB(3.9,23,2,27339,0)="""DATA"",396.18,247,3,460,0)"
^XMB(3.9,23,2,27340,0)="M3`@H9:J*L6BEJDY>ZNP9;1=S$9%`-@P=9-8XE^MCWI:(I8WAK'5>EC'!\1."""
^XMB(3.9,23,2,27341,0)="""DATA"",396.18,247,3,461,0)"
^XMB(3.9,23,2,27342,0)="MW:Y;![F[B(M%G995E""W:S-:8L/HX2JR4[Q8<9?$%+JNVW7"";6-U6'F`U@[-_"
^XMB(3.9,23,2,27343,0)="""DATA"",396.18,247,3,462,0)"
^XMB(3.9,23,2,27344,0)="MU_1$2<%:$=-""MJQL(RM0NR[R*_YMQ'QE#<>+*_*ERT9Z//TQJ3W3_$8Z#W1?"
^XMB(3.9,23,2,27345,0)="""DATA"",396.18,247,3,463,0)"
^XMB(3.9,23,2,27346,0)="M>T*_G3S/T*AMTU8_T@H1WSRN>J=[R+$-]Q!$TAX*#9D15:S)HBYCLB>:*AL/"
^XMB(3.9,23,2,27347,0)="""DATA"",396.18,247,3,464,0)"
^XMB(3.9,23,2,27348,0)="MBP\YR!""'+I1:7/N&N0=-$OK1,`E]9$_H_&5]L0:I^\\P[\VP^^I175`\;1.W"
^XMB(3.9,23,2,27349,0)="""DATA"",396.18,247,3,465,0)"
^XMB(3.9,23,2,27350,0)="MFZ[I%2UCOLBS93S(P7G8/,C1>0`1%/'MR9X,>ZYKK:3<'E_0YO3E\RGK>=Y$"
^XMB(3.9,23,2,27351,0)="""DATA"",396.18,247,3,466,0)"
^XMB(3.9,23,2,27352,0)="M7""TS%7)3''DI`S37F[F05M""MSD;;@EB8B^R]"",TF`IX^+$;F>68(""^&.""(,/"
^XMB(3.9,23,2,27353,0)="""DATA"",396.18,247,3,467,0)"
^XMB(3.9,23,2,27354,0)="M#6%:Y<,-;PEEZ(&A#`!3C0,IO(K0D%<V]579%>WFT!PQV^:US`R<``!,^:(*"
^XMB(3.9,23,2,27355,0)="""DATA"",396.18,247,3,468,0)"
^XMB(3.9,23,2,27356,0)="M:(1F\L5'3-H_,N:+>KBA(:Z5[#S8""6SJS5K@95W@\M%LL&F6?LAEZ^OU^4""."
^XMB(3.9,23,2,27357,0)="""DATA"",396.18,247,3,469,0)"
^XMB(3.9,23,2,27358,0)="M]D$9TQ!(3F<;VML0OK$O7!.XEFQ-QY=L3468SPL58`%_G[0Y<(.IEG43#F3+"
^XMB(3.9,23,2,27359,0)="""DATA"",396.18,247,3,470,0)"
^XMB(3.9,23,2,27360,0)="M6AD9E,P6US/14WQ;10[W[F*#IQ6KO3QL1%_D*^K,C*]PLK&N\Z+D;K]-J=5/"
^XMB(3.9,23,2,27361,0)="""DATA"",396.18,247,3,471,0)"
^XMB(3.9,23,2,27362,0)="MMA`W.&A5;UT_LPJ<QN0-VU9/\X*$XF$:[5X`F@1F64U$<@XS#$S03_Z%^]TP"
^XMB(3.9,23,2,27363,0)="""DATA"",396.18,247,3,472,0)"
^XMB(3.9,23,2,27364,0)="M+!&GHX6:%++IX4O\$OBR`\0)9%+88;@/THU1:#SG*3""3'*Z\5YQ`)I#GJE@5"
^XMB(3.9,23,2,27365,0)="""DATA"",396.18,247,3,473,0)"
^XMB(3.9,23,2,27366,0)="MVN^58A""-4U""BS9P6(B0C@D.6&W+7R2W)AF?=B?+2Q_2HF/I1G2""J](_)0(\2"
^XMB(3.9,23,2,27367,0)="""DATA"",396.18,247,3,474,0)"
^XMB(3.9,23,2,27368,0)="M^5UI-B""5:=,28&?USG/<+;O2B&8Y@#4NKKM5JEU7"".H6%D*WM[(4S1P58>S="
^XMB(3.9,23,2,27369,0)="""DATA"",396.18,247,3,475,0)"
^XMB(3.9,23,2,27370,0)="MR;3-OAI)OI*=B`H=RS/2L0+[;O.O,DZ%VAJ%P]$/>'U9D`_FZ<8ZI%-\K+W+"
^XMB(3.9,23,2,27371,0)="""DATA"",396.18,247,3,476,0)"
^XMB(3.9,23,2,27372,0)="MSAAPM\G>8<&=\9<HGU*\K,AI0*AYX+>SSR?ZFQ_7.-/?I:4B""'_D<\K*YN9P"
^XMB(3.9,23,2,27373,0)="""DATA"",396.18,247,3,477,0)"
^XMB(3.9,23,2,27374,0)="M\`1G!*JS@K""*=1)EE31Q\E+A)Q^+Q66LG2AW5YY@=SA'^WOQ`?D51QL""D@05"
^XMB(3.9,23,2,27375,0)="""DATA"",396.18,247,3,478,0)"
^XMB(3.9,23,2,27376,0)="M'96G][G`%>N(?<KT8[)YJ.#@J?\NKBYSLGK6Y492F;>6K'SKK#/-OTGRG7L7"
^XMB(3.9,23,2,27377,0)="""DATA"",396.18,247,3,479,0)"
^XMB(3.9,23,2,27378,0)="MR7<P---+D&OOJ,.3[;W/[AI35_Q1`B';T,JZ$87VJOT8A8)Q""@&S+;2[&4P("
^XMB(3.9,23,2,27379,0)="""DATA"",396.18,247,3,480,0)"
^XMB(3.9,23,2,27380,0)="MM$]@'2-0J-<YN:))2->D;:NH228`-+*8$5089(-BO;JJ2B-UE525E:3S""ET("
^XMB(3.9,23,2,27381,0)="""DATA"",396.18,247,3,481,0)"
^XMB(3.9,23,2,27382,0)="MT+HH\E2.I?VS!T""5DLE78((3*VQ,RQH69VK*,PGT[3ZO$V[>^(&41GV%P#`9"
^XMB(3.9,23,2,27383,0)="""DATA"",396.18,247,3,482,0)"
^XMB(3.9,23,2,27384,0)="M[X8G7G^`OAZ['LI5Y0V'BKSA1IOOX@)<)6*PKT0\G4KLJ*IUZEKZPM%<8F=^"
^XMB(3.9,23,2,27385,0)="""DATA"",396.18,247,3,483,0)"
^XMB(3.9,23,2,27386,0)="M.[>NL^#'=9S1)PX_Y!6FJ;#'K-T\+AX_A**=OKK:8P#Y5@9""FS<G!),YQ7U%"
^XMB(3.9,23,2,27387,0)="""DATA"",396.18,247,3,484,0)"
^XMB(3.9,23,2,27388,0)="MHC.:QT)`BJR4L&GKG/#;95PUG88N:+*QE.W7)O&531;WL/O0HNO1^-0Z(T\0"
^XMB(3.9,23,2,27389,0)="""DATA"",396.18,247,3,485,0)"
^XMB(3.9,23,2,27390,0)="M6VM51RN64_9H$=5ETY^18+G`);$BR/BC_JMION3>=1&3IVFB3=Y2N'UUR?H?"
^XMB(3.9,23,2,27391,0)="""DATA"",396.18,247,3,486,0)"
^XMB(3.9,23,2,27392,0)="M+6F+XFBU*J(K9NG.[F,?^`:8!;98[=,QZ&`7/;;^;/[1#*'AM*/MQ+M'V+^1"
^XMB(3.9,23,2,27393,0)="""DATA"",396.18,247,3,487,0)"
^XMB(3.9,23,2,27394,0)="M8IM!8`(G%,NYV_8TG.=#.%-B;5I)_!<-RMP8YM`$9JF2JF?0)0X/8:;]/76P"
^XMB(3.9,23,2,27395,0)="""DATA"",396.18,247,3,488,0)"
^XMB(3.9,23,2,27396,0)="M&H(:VB:@BHUP'#>8!+5?R,LAR`E-XV_1'#4S.&1CU6646:[]S+5IVNMY=![3"
^XMB(3.9,23,2,27397,0)="""DATA"",396.18,247,3,489,0)"
^XMB(3.9,23,2,27398,0)="MLCN/R?R&F^)F<X4F<W7$QLF.9S[7Q7""N$5E0F%5`%:=L'2IG6I?#N=YDIHX)"
^XMB(3.9,23,2,27399,0)="""DATA"",396.18,247,3,490,0)"
^XMB(3.9,23,2,27400,0)="MVQ0W-W)F4/6BG^E;`GF6L?ZT94[D=Y,9&)=EC:UKZG:IFUM$M<]6E*NFN,#6"
^XMB(3.9,23,2,27401,0)="""DATA"",396.18,247,3,491,0)"
^XMB(3.9,23,2,27402,0)="M<*:4D];)UF.G.6%BLE0#1SRD@<SG]""EA6=G,PV9MB*RE^8V+I&:15HO\Q[K'"
^XMB(3.9,23,2,27403,0)="""DATA"",396.18,247,3,492,0)"
^XMB(3.9,23,2,27404,0)="MX4X`7!#3);^F@PE>14FR&<Z)]8]?9?'?A(SKRX*\MQQKIPE,V)PDYR2]843."
^XMB(3.9,23,2,27405,0)="""DATA"",396.18,247,3,493,0)"
^XMB(3.9,23,2,27406,0)="M'<?,H<729-JYI>L$TXSG5L""0I58V;BVR%8D(3!N+@Y$SX6036=/QA16MR?I="
^XMB(3.9,23,2,27407,0)="""DATA"",396.18,247,3,494,0)"
^XMB(3.9,23,2,27408,0)="M%S'%%DV\Z5_(I""-%(K5/GC0=3);$`""(O93L`\\N<+O1.I-&?=C)T]DD>&.C."
^XMB(3.9,23,2,27409,0)="""DATA"",396.18,247,3,495,0)"
^XMB(3.9,23,2,27410,0)="MQ0""^6R&ZM7(Y]DTU<V:O[DL5WK)N[JJV6!AJ>EF.E2J$_NY%JEYD=7,VY(3`"
^XMB(3.9,23,2,27411,0)="""DATA"",396.18,247,3,496,0)"
^XMB(3.9,23,2,27412,0)="M0:Z_$""91/HQJA9K""5,""!][=:H;;2A0/&JA5""N=GVC&J%]@]3K=`)C*H5(MD'"
^XMB(3.9,23,2,27413,0)="""DATA"",396.18,247,3,497,0)"
^XMB(3.9,23,2,27414,0)="M[0$%J+[J$#C8IR_,J5:(9LJ&D*]6"")HCJWO9P/$13ZE;JD\O^\&(;.B[F^\B"
^XMB(3.9,23,2,27415,0)="""DATA"",396.18,247,3,498,0)"
^XMB(3.9,23,2,27416,0)="M&VC0DJB%#T,:.+JF""WS3-72?I(&CK7LT*@V09/J&YL+`VU48!(8G&/OE]3K."
^XMB(3.9,23,2,27417,0)="""DATA"",396.18,247,3,499,0)"
^XMB(3.9,23,2,27418,0)="M:$>5<L=:1[;VR*WG3,(*=DN#W[V&4#B2Q2+6VI5#/:Z<;>0&""N$5.'>7PO(J"
^XMB(3.9,23,2,27419,0)="""DATA"",396.18,247,3,500,0)"
^XMB(3.9,23,2,27420,0)="M+A>7M$#0,,3RFDR(F,6_E8SCJNZD-!6!V%Q6S;A)OFYK8S^@TD&.+GM!7(@*"
^XMB(3.9,23,2,27421,0)="""DATA"",396.18,247,3,501,0)"
^XMB(3.9,23,2,27422,0)="MRBIVC9JR[C[T>O/:-/_?WI<VN6TK[?X55>X'V743AUBXN>Y[4Q,O)Z[*XK*="
^XMB(3.9,23,2,27423,0)="""DATA"",396.18,247,3,502,0)"
^XMB(3.9,23,2,27424,0)="MI.Y'CL29X6M)U$M2CB>__@*@%A)H@`!%2N,9G0^G,MH,-KH;C5Z>![K(8MS`"
^XMB(3.9,23,2,27425,0)="""DATA"",396.18,247,3,503,0)"
^XMB(3.9,23,2,27426,0)="MIJF/=(G:X&`HGJ;(=!#HK]DR_4:""C!`*,N!BAD34*N5XXJ@[QGC_X8_W;SY\"
^XMB(3.9,23,2,27427,0)="""DATA"",396.18,247,3,504,0)"
^XMB(3.9,23,2,27428,0)="M>O?FXZ,@:M/0:[7$1*42FF]1EV`JSC-Y_X7V7=0/O@JLX>\*+""044)GGQ*(D"
^XMB(3.9,23,2,27429,0)="""DATA"",396.18,247,3,505,0)"
^XMB(3.9,23,2,27430,0)="M4@=1G]*OU7^U`M>I^9Z""+O>4X5U(!.:PX*T/J?&>$O2_I[#GGA^P#+_M>TH0"
^XMB(3.9,23,2,27431,0)="""DATA"",396.18,247,3,506,0)"
^XMB(3.9,23,2,27432,0)="M?X/W%._D]Q04AR>[I]QL[RD]05E1K)O,;M!E:!?K""LCPG0`[_>X(M-/HJ)L*"
^XMB(3.9,23,2,27433,0)="""DATA"",396.18,247,3,507,0)"
^XMB(3.9,23,2,27434,0)="M5F]6/IAF(^/=5""`@4Q7N='M!X=6^\G.V>DSW$=U\,$6=>5(OMMP_>KF/''\?"
^XMB(3.9,23,2,27435,0)="""DATA"",396.18,247,3,508,0)"
^XMB(3.9,23,2,27436,0)="M08Y<+SYN<U3O*FV7J*0I^QB*2C!<O49^JQJD((@3Y[#D3Y[?8#^??$YNT\=P"
^XMB(3.9,23,2,27437,0)="""DATA"",396.18,247,3,509,0)"
^XMB(3.9,23,2,27438,0)="MV4$8+DH&[797Z;83683RG'-9</#6PC(V'Q#/8A%*DU5D0T6M.3L!OZ9;&[)9"
^XMB(3.9,23,2,27439,0)="""DATA"",396.18,247,3,510,0)"
^XMB(3.9,23,2,27440,0)="MF\+J2""P8G_^^RV9WVVZ.,N5-@*+W(""O2^4]3$\FPIDD9MTO).(X'BR-[(X;N"
^XMB(3.9,23,2,27441,0)="""DATA"",396.18,247,3,511,0)"
^XMB(3.9,23,2,27442,0)="MHPT`9QT4)8VZ.FCV9-J'X85@=V*9X@TPVM""S`;_*.7'TA@6)&V'UBY;5B[DO"
^XMB(3.9,23,2,27443,0)="""DATA"",396.18,247,3,512,0)"
^XMB(3.9,23,2,27444,0)="MX14FV6HF/IJN9L""[VZ]-YAO1'LLIQD7C[-:G3.;9ESHO</@J6PUO28-_MQ6_"
^XMB(3.9,23,2,27445,0)="""DATA"",396.18,247,3,513,0)"
^XMB(3.9,23,2,27446,0)="MZ*(74^P""OZK&+<:H!8I90-I14>=0:$<EZY&S*>J>[T%8&WMN)&Q]\MS(>ULC"
^XMB(3.9,23,2,27447,0)="""DATA"",396.18,247,3,514,0)"
^XMB(3.9,23,2,27448,0)="MEH:'XL[>M5UW6W,7R""B6QWN=J\FF%$=(LEXOLJ1E!2U$$OW'_DZ30G3-L7>O"
^XMB(3.9,23,2,27449,0)="""DATA"",396.18,247,3,515,0)"
^XMB(3.9,23,2,27450,0)="MR[RXYA]?)NR[?$ZV;AJL'>[^.XVPT?SMZBZI]MW3LSL.[3N?''I)\:22L%.7"
^XMB(3.9,23,2,27451,0)="""DATA"",396.18,247,3,516,0)"
^XMB(3.9,23,2,27452,0)="M:3E9LQV;)_<#_6N8>Q0ZJ<1/M_^U8?^A95ZD]6-1XV,]'\#]X&/<#Y@>#(XD"
^XMB(3.9,23,2,27453,0)="""DATA"",396.18,247,3,517,0)"
^XMB(3.9,23,2,27454,0)="M7:SOO9=`O+5+'EAA@!M_D;''#1._?W[P4UHRK[A('TE?6VQ%N+C'V'D(A(L"""
^XMB(3.9,23,2,27455,0)="""DATA"",396.18,247,3,518,0)"
^XMB(3.9,23,2,27456,0)="M&7D@PD42PH2+^VVV9EY$MLR+@=I.9LOE]&_Z4\_^!A38K<Y7,3P0=4'RW>4W"
^XMB(3.9,23,2,27457,0)="""DATA"",396.18,247,3,519,0)"
^XMB(3.9,23,2,27458,0)="M>6\SQ_3NNV#L68J3DJ,IG99)6?8FBL2VA)O^N:BG=K@TE.I!:J*N7%YC_2:,"
^XMB(3.9,23,2,27459,0)="""DATA"",396.18,247,3,520,0)"
^XMB(3.9,23,2,27460,0)="MF@A%V`&CQK.#.^&.MYE2Q3\2'DQL/7+)[&)2M>U5?`S]B.T^9O5KK[;=_GRJ"
^XMB(3.9,23,2,27461,0)="""DATA"",396.18,247,3,521,0)"
^XMB(3.9,23,2,27462,0)="MI2KR-;M+-]^^NBX;J!E&#!IDS]<96FT$-%^/0GHZ!)J/.5L\NSR6[)G8[?'>"
^XMB(3.9,23,2,27463,0)="""DATA"",396.18,247,3,522,0)"
^XMB(3.9,23,2,27464,0)="MG""S_C=G;>3+D:!2R+V)'S0F@""4%&%4![>8$;.8+LR[?;GSCNOS\7L!%[W%-]"
^XMB(3.9,23,2,27465,0)="""DATA"",396.18,247,3,523,0)"
^XMB(3.9,23,2,27466,0)="M8!</1LT)Q'7BI_1AG::%%866U)+G"">LBN]4]F+`.V3*>GCNLL^4^?0!A'=&'"
^XMB(3.9,23,2,27467,0)="""DATA"",396.18,247,3,524,0)"
^XMB(3.9,23,2,27468,0)="M=>%P81VZA'4=89UG3^P:HOYA';F$=:<)ZSP[CM!CPKK@$C;T#^NHW?X<$]9="
^XMB(3.9,23,2,27469,0)="""DATA"",396.18,247,3,525,0)"
^XMB(3.9,23,2,27470,0)="M(,H<PSJP+P7JEJUQ5+<8!JVNE+KCXF@.U\>=#$=0YP#<U(""\5E)4JKEAM;6B"
^XMB(3.9,23,2,27471,0)="""DATA"",396.18,247,3,526,0)"
^XMB(3.9,23,2,27472,0)="M,Q?^2UZNLRI99/_63""1,""A\WQ6TZ$K&K?^(.%;C_@K9JE[[<;.Y9](;LY""9&"
^XMB(3.9,23,2,27473,0)="""DATA"",396.18,247,3,527,0)"
^XMB(3.9,23,2,27474,0)="MY!=Y#=EK[%/!%DN)`QE6QZ(3A#/_O>05M.\G2R:5.[&D^S0I.,[%YU7^C]A5"
^XMB(3.9,23,2,27475,0)="""DATA"",396.18,247,3,528,0)"
^XMB(3.9,23,2,27476,0)="M`7CQ->.E.O;9RMQ30RW6BN2K&\(6&$`?TJ2LU:S:]OB4M;J9UA/$%NO!4A\`"
^XMB(3.9,23,2,27477,0)="""DATA"",396.18,247,3,529,0)"
^XMB(3.9,23,2,27478,0)="M1;$]P,A;MJ`TF=U-F""/BL!\WV6(QR6I(CUJ$V>J&1Y_\B]]S]EYFN]_]N1+O"
^XMB(3.9,23,2,27479,0)="""DATA"",396.18,247,3,530,0)"
^XMB(3.9,23,2,27480,0)="M?3>Y:8*""""&+,_8=%H;C^"";XOZTUY5V.,U'3`UZ)>X@J`A8B-0(@$%8)M!DVV"
^XMB(3.9,23,2,27481,0)="""DATA"",396.18,247,3,531,0)"
^XMB(3.9,23,2,27482,0)="M3,2BP,MD<-?V#S4D1+UEG+ZX?HIJ1]NJHU>&]8GX;99J6?O/3Z],=*`L4A(C"
^XMB(3.9,23,2,27483,0)="""DATA"",396.18,247,3,532,0)"
^XMB(3.9,23,2,27484,0)="M&@Z4)>A;4N.(_K1%2P1J1>C)7.!RH\;NSK@/GH@7A9HD""]BV@Z&N'<EY>'&/"
^XMB(3.9,23,2,27485,0)="""DATA"",396.18,247,3,533,0)"
^XMB(3.9,23,2,27486,0)="M9<1X^N0:=+!6S*(.V""5GG\A>,>CJCD+$#YZ>G*D)FTF#&(-IN[+N2;9%26^6"
^XMB(3.9,23,2,27487,0)="""DATA"",396.18,247,3,534,0)"
^XMB(3.9,23,2,27488,0)="M]>@XEG4QAPBLF+1!N8+0W6]M#[T!QX6V2Z962]X?""H.LN7=KJC#`L-L`L>]U"
^XMB(3.9,23,2,27489,0)="""DATA"",396.18,247,3,535,0)"
^XMB(3.9,23,2,27490,0)="M&>""^-[G1&>=[3\\""0X-R(&)U$""LAA(URU)&#JAO^L?!HV(=ZQVI0KNT%KC55"
^XMB(3.9,23,2,27491,0)="""DATA"",396.18,247,3,536,0)"
^XMB(3.9,23,2,27492,0)="M3HD,7=QOB.,1W8TQ%/P&&OA7W]@G%CG?C=]P'I2,K??U?7FS6<T:O!S?=J>8"
^XMB(3.9,23,2,27493,0)="""DATA"",396.18,247,3,537,0)"
^XMB(3.9,23,2,27494,0)="M'^J`ROUVIQCMLJ;P9+.DXD2#$=""D14N!)0F4@F)@.TP:ZCJ""<*-6TH+%;H`?"
^XMB(3.9,23,2,27495,0)="""DATA"",396.18,247,3,538,0)"
^XMB(3.9,23,2,27496,0)="M6-8,\P.TY>$VW$&>CD+2?V&^T\($1F_7<@(MF;O7M1I;Q)W?9(SCGD.WH9;:"
^XMB(3.9,23,2,27497,0)="""DATA"",396.18,247,3,539,0)"
^XMB(3.9,23,2,27498,0)="M-^R4'/$MR\`""7?N^)R%NB/KO+;'<VT]%LEDFG5I&+;?5!_AD;1>RXRCJ6HMO"
^XMB(3.9,23,2,27499,0)="""DATA"",396.18,247,3,540,0)"
^XMB(3.9,23,2,27500,0)="MNV_J8DXW++U=:V!K#E&H#DI;,C&_$<P:V1?F0,L:UUT2Y=$$];M""=$U+HF'$"
^XMB(3.9,23,2,27501,0)="""DATA"",396.18,247,3,541,0)"
^XMB(3.9,23,2,27502,0)="MDYX(JQ4:&MN5I3U_Z++TCG%,\JI[XJT[3KS%CN?K&B<""^AC,Q_8Z8YO+HMC)"
^XMB(3.9,23,2,27503,0)="""DATA"",396.18,247,3,542,0)"
^XMB(3.9,23,2,27504,0)="M*MT4^3JI[NXE(C..""5U,YBPPXZC,;=(R]I5%?LN^O7V[Q2ZVFN<S,3(&O/F^"
^XMB(3.9,23,2,27505,0)="""DATA"",396.18,247,3,543,0)"
^XMB(3.9,23,2,27506,0)="MO)_=U=]E""Y_EJWDFKZQEV`TN,/A\:7R@]JG/S51"".CPKV02/T8+@`K.I#HJ#"
^XMB(3.9,23,2,27507,0)="""DATA"",396.18,247,3,544,0)"
^XMB(3.9,23,2,27508,0)="M70J!B0!1FN@/L;HC@(M&4)N""%Y^N3>$/;I)+T.C>L^B<;4>VXH*0^:,%0>!F"
^XMB(3.9,23,2,27509,0)="""DATA"",396.18,247,3,545,0)"
^XMB(3.9,23,2,27510,0)="M9]/F'U@J1()_);/-9CE9;Y;KR3S]DLT`L^-6DJSOS],5@4>!@_`LS?D8Y4'>"
^XMB(3.9,23,2,27511,0)="""DATA"",396.18,247,3,546,0)"
^XMB(3.9,23,2,27512,0)="MI>[>BT9^?_H2A]/74R-""1""P=;V=?<O>I3&U,_J_D-N.<GFL6N51%721;YV69"
^XMB(3.9,23,2,27513,0)="""DATA"",396.18,247,3,547,0)"
^XMB(3.9,23,2,27514,0)="ML7]3U)QXM7(A.$W$7S5A`9]3G-K^2OZ%+><N6?3X:K]O'48WG;Z_2OE""#\];"
^XMB(3.9,23,2,27515,0)="""DATA"",396.18,247,3,548,0)"
^XMB(3.9,23,2,27516,0)="M_[W[5>DTUN>9.B',:F@C224:6>GPJ>>9"")1G\C6D':8T4^P.5U8SW#9R3%PA"
^XMB(3.9,23,2,27517,0)="""DATA"",396.18,247,3,549,0)"
^XMB(3.9,23,2,27518,0)="MWB;9XD#J^FVGFZ@.N@Q)T&7TX4""7B>(:F&Y""I)W?EWMP2&_H,E]W\4<'^D;="
^XMB(3.9,23,2,27519,0)="""DATA"",396.18,247,3,550,0)"
^XMB(3.9,23,2,27520,0)="MQ1]YEM?&MX*A9#6[%W/7_Z3IYY_<VY5;%)4"">]_(6MF]>JS>T$$0?AR/2EGY"
^XMB(3.9,23,2,27521,0)="""DATA"",396.18,247,3,551,0)"
^XMB(3.9,23,2,27522,0)="MKF37KF1Q7V:EA*:BX:+L23JIA=.'`@`!4*0+`&3-P&H'*[5L""R?>\0&`%5$]"
^XMB(3.9,23,2,27523,0)="""DATA"",396.18,247,3,552,0)"
^XMB(3.9,23,2,27524,0)="M:C6*-_\@S3]H\P^_^4?0_""-L=X`+W)5\4TZ>O;IZ__JYX48K:7'LJ,6^@G&'"
^XMB(3.9,23,2,27525,0)="""DATA"",396.18,247,3,553,0)"
^XMB(3.9,23,2,27526,0)="M@5""+$$C2>&PM/F`NL!.;>6K>T9/P;%%6,<,OTMEB,^]0[6%I5K6MP/JH!N+]"
^XMB(3.9,23,2,27527,0)="""DATA"",396.18,247,3,554,0)"
^XMB(3.9,23,2,27528,0)="M1)0V@%G;R`OU\7'0\1H8YM)LVI(]!?F[X/ZZV`B\@./^P`N[Q-SC0&8-=-4T"
^XMB(3.9,23,2,27529,0)="""DATA"",396.18,247,3,555,0)"
^XMB(3.9,23,2,27530,0)="M[^C:]&C5M+`G,FNL]'CN\6>[H5E[\PE%<4]HUI_Z0K/J0S'T`*%90WMH5J*."
^XMB(3.9,23,2,27531,0)="""DATA"",396.18,247,3,556,0)"
^XMB(3.9,23,2,27532,0)="M*P''%FK`?1[.K6#$,72ANIR(D#VHBM+Z<WY[VTJ]715I\JQ\SK,#;*LWA9+L"
^XMB(3.9,23,2,27533,0)="""DATA"",396.18,247,3,557,0)"
^XMB(3.9,23,2,27534,0)="M>U<4Z:U(PG,@-.:#6EG]'??$*I]O%NU3JW;QVW?,4U+?.ARL9MA=T7%59[!O"
^XMB(3.9,23,2,27535,0)="""DATA"",396.18,247,3,558,0)"
^XMB(3.9,23,2,27536,0)="MK3,7?HHA\&#!8`@U4CQQ""Z6>QA+3(KV@U*O!$,BT2#2@IIZ):3%P9UK\X[JL"
^XMB(3.9,23,2,27537,0)="""DATA"",396.18,247,3,559,0)"
^XMB(3.9,23,2,27538,0)="MBLV,LW7_E6?\M)H\V^$^?D@Y-AW[WO/'D0#R=<A4;?J0`3%'CT:F0DB/3!6;"
^XMB(3.9,23,2,27539,0)="""DATA"",396.18,247,3,560,0)"
^XMB(3.9,23,2,27540,0)="M0J3]1&)#%[`E\A2BNKX>)-T^U0(K#NW""CG><UYP=7!RR;SOTI:8ZW*(EBBU7"
^XMB(3.9,23,2,27541,0)="""DATA"",396.18,247,3,561,0)"
^XMB(3.9,23,2,27542,0)="M'2D'262YZM?98CN`PM-6?+KIIZ';'+""IS4%.LRA17X/3R9QFP2.`*K5KJ$U\"
^XMB(3.9,23,2,27543,0)="""DATA"",396.18,247,3,562,0)"
^XMB(3.9,23,2,27544,0)="M2RDY(J`Q[7,BI""LG(@67-+;!I@!S(IB,FA-A\>)DOM>A$^7V4+?.47N=0Y[7"
^XMB(3.9,23,2,27545,0)="""DATA"",396.18,247,3,563,0)"
^XMB(3.9,23,2,27546,0)="M7^GH\;D]W$<7!\[UU7S<16JOPM11A1%@VKYE7@_[)]3A+29T,F%A1#:K-D5Z"
^XMB(3.9,23,2,27547,0)="""DATA"",396.18,247,3,564,0)"
^XMB(3.9,23,2,27548,0)="MGG2>)2""0F'\%S],V@4V_XU23<:!>7\0?%'@&7('F('!2LG^V#N7X2Z*/:LX\"
^XMB(3.9,23,2,27549,0)="""DATA"",396.18,247,3,565,0)"
^XMB(3.9,23,2,27550,0)="MS&Q3%`)@>!O3547""EI:M;K;=*[T/6TLXFU#E8`EBNV?Z?;.\YG7I&^WB=[.Q"
^XMB(3.9,23,2,27551,0)="""DATA"",396.18,247,3,566,0)"
^XMB(3.9,23,2,27552,0)="MZX3=-1&N!X_+X8[DM@UCUV.(J.4Q]=$)Z""C1""""9\IKJ1H7$DEH^6L/_1$IRH"
^XMB(3.9,23,2,27553,0)="""DATA"",396.18,247,3,567,0)"
^XMB(3.9,23,2,27554,0)="M;#3$T?+;`8O:MKL""0436M0MJDM7MY!8@^>:-GGIS!41:C>`9GCVHP%:T<G>%"
^XMB(3.9,23,2,27555,0)="""DATA"",396.18,247,3,568,0)"
^XMB(3.9,23,2,27556,0)="M>\UAFU><?+POF6YE,_8?RW65+\M'P<""B`0)`TE@<D@[5W3W,COVD17%L0WZR"
^XMB(3.9,23,2,27557,0)="""DATA"",396.18,247,3,569,0)"
^XMB(3.9,23,2,27558,0)="M'9[7S>P%4EVD<Z`SLJZ+]+[VMX\7T?T!G3C[,F1K_%^F/54(*%32$;1K9-""="
^XMB(3.9,23,2,27559,0)="""DATA"",396.18,247,3,570,0)"
^XMB(3.9,23,2,27560,0)="M,MHS1CUAFB'BBCFXKUFR.XD/1P_M(DYH'CN-0Z=SXE^27&B6',7!L:+;']'#"
^XMB(3.9,23,2,27561,0)="""DATA"",396.18,247,3,571,0)"
^XMB(3.9,23,2,27562,0)="MBN[57;98E*,(+K(17.2B<CL#=I(;'D5N;]E]Y':3CB(X9"".XV""PX@H[7.#*."
^XMB(3.9,23,2,27563,0)="""DATA"",396.18,247,3,572,0)"
^XMB(3.9,23,2,27564,0)="MY'BWYRAR""RSD)E#9[>4F:QQ""R$)P=!S!+9+59S&XPPYB=@?)5J-(,;20HF#X"
^XMB(3.9,23,2,27565,0)="""DATA"",396.18,247,3,573,0)"
^XMB(3.9,23,2,27566,0)="M,IEMNUU0EF(46PC1'T6(OZ8L#B[V5=5!)4=L)$?,DL-F_8LMU&_?T3:LY/Y."
^XMB(3.9,23,2,27567,0)="""DATA"",396.18,247,3,574,0)"
^XMB(3.9,23,2,27568,0)="MD\]\Z&X4I?-M1$>=#EG%=(/(0NO&D=VO^3_LAY+K>;X4W?#,B-?IX@N+RT<S"
^XMB(3.9,23,2,27569,0)="""DATA"",396.18,247,3,575,0)"
^XMB(3.9,23,2,27570,0)="MX]A&HKZ3&?<Z1()1!/H[SS>-$^]A&\$%3E;<2W#CA,I_,0VLF%1&$1VU$5WH"
^XMB(3.9,23,2,27571,0)="""DATA"",396.18,247,3,576,0)"
^XMB(3.9,23,2,27572,0)="M$O$A&=C`ZN@(1Q&=N!"".$_#I4<4(""""LFWW1ES#NJ5.9W^.E-,447-L!:_,A,"
^XMB(3.9,23,2,27573,0)="""DATA"",396.18,247,3,577,0)"
^XMB(3.9,23,2,27574,0)="MA@9RH34:<IN)L'"";^#J`OP9//1$60N""(,#8B;J/9R,B((7).A+W.DMM57F;E"
^XMB(3.9,23,2,27575,0)="""DATA"",396.18,247,3,578,0)"
^XMB(3.9,23,2,27576,0)="M8P!VQ7X`(V""VBTE$YCH[)Z3DU@CSK_S*L/^CW634JH3)_<)$QJ4ENRE<;M!["
^XMB(3.9,23,2,27577,0)="""DATA"",396.18,247,3,579,0)"
^XMB(3.9,23,2,27578,0)="M&W_Q@?,N\E_;Z5#[[4\%VT7>;M3T]U>;*J\_TD7MJNR$9>_'?KRKF<^U'%IZ"
^XMB(3.9,23,2,27579,0)="""DATA"",396.18,247,3,580,0)"
^XMB(3.9,23,2,27580,0)="M7^3,+R]YP^=-D2_%!H@YIK*:<*3525*6^2Q+>#/5/UG%$58S,<K3TO@Q6@T1"
^XMB(3.9,23,2,27581,0)="""DATA"",396.18,247,3,581,0)"
^XMB(3.9,23,2,27582,0)="MV&H(:;ZVV5#GM+6$%CH:DU@>4%'*8+$E*LO5O$:68`'ZJWS),47*+GP6K1I("
^XMB(3.9,23,2,27583,0)="""DATA"",396.18,247,3,582,0)"
^XMB(3.9,23,2,27584,0)="MO:2J$A#/$E6G[JRM`6B%90K$WG6M&XIB]&0UL=1FJO1BT,""VD^E1:B7!E@H`"
^XMB(3.9,23,2,27585,0)="""DATA"",396.18,247,3,583,0)"
^XMB(3.9,23,2,27586,0)="MU-I]2[5\]I;;.O:]\#F_.&9\LBF[R9C17]\+*IL7_38]T%D4]61.167QL64#"
^XMB(3.9,23,2,27587,0)="""DATA"",396.18,247,3,584,0)"
^XMB(3.9,23,2,27588,0)="M&T>8?G/UZI>#5WK995*>KM)/<=`%T("")7:V_V=_.(6(R,7T\N\OS,A76E%5-"
^XMB(3.9,23,2,27589,0)="""DATA"",396.18,247,3,585,0)"
^XMB(3.9,23,2,27590,0)="MV_INZXDGO,G\NYKOEU//<__;IO;5>^.>FX0\;+M+H>KX[#8)O>C<$V*[""*0R"
^XMB(3.9,23,2,27591,0)="""DATA"",396.18,247,3,586,0)"
^XMB(3.9,23,2,27592,0)="M]%BN@G2O@MIJ!K`*%/NNJO%N)?!4:HU(!?""4@)P2#GB_L9Q0*I_--NMD>W9P"
^XMB(3.9,23,2,27593,0)="""DATA"",396.18,247,3,587,0)"
^XMB(3.9,23,2,27594,0)="M5SU/LL5]6S5VDX@LFNJM""[[U-OAQSVV@W=L06&^#N@IK,#EQUG6OQ=Z'J>QF"
^XMB(3.9,23,2,27595,0)="""DATA"",396.18,247,3,588,0)"
^XMB(3.9,23,2,27596,0)="MZE(.[@-4"".[-^,P-BR+7FV+-G$7Y/3MXUWDA7FOJ!7,"">Z0JH1%9)?.-[S2J"
^XMB(3.9,23,2,27597,0)="""DATA"",396.18,247,3,589,0)"
^XMB(3.9,23,2,27598,0)="M3-<)^U4.\<>T:97.6!0NNH]R?LI_8?Z>_4#-9+`N,L%DD)7)==;^M06?<4V_"
^XMB(3.9,23,2,27599,0)="""DATA"",396.18,247,3,590,0)"
^XMB(3.9,23,2,27600,0)="M)(M-W=U\L\/VWR^CM]9%UEJG-M18:AWNWNG86NN`MA[?4NW^6-=&_/WN_L.E"
^XMB(3.9,23,2,27601,0)="""DATA"",396.18,247,3,591,0)"
^XMB(3.9,23,2,27602,0)="MR,2WB[=,QY?($=!FLJ""Y2FF-H6H9H;I&>FA^!293MGDH)2>@ZV""5@SY%H@K:"
^XMB(3.9,23,2,27603,0)="""DATA"",396.18,247,3,592,0)"
^XMB(3.9,23,2,27604,0)="M`]!YWS""@,#B\""(@5[JMH^%'N5@]&HKC1O;MLM#+9!8WFL-$0.%J%CMK@T30;"
^XMB(3.9,23,2,27605,0)="""DATA"",396.18,247,3,593,0)"
^XMB(3.9,23,2,27606,0)="MM=<7-80,M-L0R;N`#CK2!-_P>^Q#C7_W,;M=L5AREK`5O]GMS&KR1W,CKJ""-"
^XMB(3.9,23,2,27607,0)="""DATA"",396.18,247,3,594,0)"
^XMB(3.9,23,2,27608,0)="MT#2]Z1\SLG_*P^'=L&""""[!^R?A+^('^6&_8$A\=YW*ID,.@`6TDY@DP:!Y""4"
^XMB(3.9,23,2,27609,0)="""DATA"",396.18,247,3,595,0)"
^XMB(3.9,23,2,27610,0)="M#Z^QT^=O'A*W3%O$OOR8$@=3MEPG]8[`-MXZR]CO-9IJM;JF.<=,`E*YSO5:"
^XMB(3.9,23,2,27611,0)="""DATA"",396.18,247,3,596,0)"
^XMB(3.9,23,2,27612,0)="M&!-`/BBVU\(/:<E'8UE@P-;Y>;*]0_0VHBU'(W^`]L2S_A&H#QD2M,6T^>*N"
^XMB(3.9,23,2,27613,0)="""DATA"",396.18,247,3,597,0)"
^XMB(3.9,23,2,27614,0)="M1.!A%#57:QQ^?O`&I>G'-7;?BH(-Y""2GK<]T?N#WG+VQ7""_R^W1^Z&LV&3D\"
^XMB(3.9,23,2,27615,0)="""DATA"",396.18,247,3,598,0)"
^XMB(3.9,23,2,27616,0)="M#V72#-]%,QHQ4I=J^!&@&BP<""VTL]&GJS%59,HU@\IAG3!O$/,1\(QV@XGXY"
^XMB(3.9,23,2,27617,0)="""DATA"",396.18,247,3,599,0)"
^XMB(3.9,23,2,27618,0)="M*SC8[7Q2)<6<E[FT'T@$B6N:9N6R_1%I&-\TCF^M;LA&W:A!W5""`9(7S`7W#"
^XMB(3.9,23,2,27619,0)="""DATA"",396.18,247,3,600,0)"
^XMB(3.9,23,2,27620,0)="M'ABX>+#""A=%%X70*QPO$[,:XR&4->IWN-(@%VC->S)'#(*%FS<OE=7J7?,GR"
^XMB(3.9,23,2,27621,0)="""DATA"",396.18,247,3,601,0)"
^XMB(3.9,23,2,27622,0)="MHOV9]SF3A*@V<(:X*N63,1(:K4""(OF%ND&G@/;M_+A;Y/_STRU;[.2'MZI9Y"
^XMB(3.9,23,2,27623,0)="""DATA"",396.18,247,3,602,0)"
^XMB(3.9,23,2,27624,0)="M'2AHWT]6/)"";IU_Y`*_\N=W16N?=%MF-.'7YK7N6%,4]^T.[S(+?D94/?%RG"
^XMB(3.9,23,2,27625,0)="""DATA"",396.18,247,3,603,0)"
^XMB(3.9,23,2,27626,0)="MJ;C+[S[7?ON7-.'[H'W_KZSD,8#N[5]Y_QY'I:X2W@[4?G/79L5OGC=UDZE."
^XMB(3.9,23,2,27627,0)="""DATA"",396.18,247,3,604,0)"
^XMB(3.9,23,2,27628,0)="M*$RLZ>JVNGLYV:SY?#`33I$N#5(\?&$A&I(T7]C-XV>KF0`62U<S:0UOTYG0"
^XMB(3.9,23,2,27629,0)="""DATA"",396.18,247,3,605,0)"
^XMB(3.9,23,2,27630,0)="M`]W[[Y-L)8N\O&'/POZY]GCN2""X,&UV8H#&288`-AV6,5.=%6N?BWF3C`'9>"
^XMB(3.9,23,2,27631,0)="""DATA"",396.18,247,3,606,0)"
^XMB(3.9,23,2,27632,0)="ML8WS&L<Y88US@I!!#*[)@`[2P@<Q[U$'1@@T8]G81%W6Q==D74CD=>==<#!."
^XMB(3.9,23,2,27633,0)="""DATA"",396.18,247,3,607,0)"
^XMB(3.9,23,2,27634,0)="MWH7H+OR>0]X%.C8CW..^+^6PE=S+1MR41=[ZD:5>>MP30\,6*:$-!G)C(>0<"
^XMB(3.9,23,2,27635,0)="""DATA"",396.18,247,3,608,0)"
^XMB(3.9,23,2,27636,0)="M2`QNT948SF-AXF%_=-OQTQ/=#QPYF`PAP,T=XSY&LQT""VVZ,E9FXW.FET02D"
^XMB(3.9,23,2,27637,0)="""DATA"",396.18,247,3,609,0)"
^XMB(3.9,23,2,27638,0)="M'?@]-#M8:5\$Y<KB$+SB>\U)4?WPK](T*;T+30!+@T9YD98OSW<,#AJCF_(%"
^XMB(3.9,23,2,27639,0)="""DATA"",396.18,247,3,610,0)"
^XMB(3.9,23,2,27640,0)="M*RD8^BU;S*57<B;A`Q#D+NCD@S%R(%4(:N:R1](`N:@>[E:]QFCT8+H7GT;W"
^XMB(3.9,23,2,27641,0)="""DATA"",396.18,247,3,611,0)"
^XMB(3.9,23,2,27642,0)="MV$^OUVRW+MIW,NW#+MI'NK4/-P_/8;2OP=$QJO:]^9H6LZQ,+]IW,NTC+MI'"
^XMB(3.9,23,2,27643,0)="""DATA"",396.18,247,3,612,0)"
^XMB(3.9,23,2,27644,0)="M+8Y=Y4I(T)&NSS^1Z^/-""9=C]W2J1QU4+PCZ1'Q'ZA[RPO`TNO=!))[X7Q?]"
^XMB(3.9,23,2,27645,0)="""DATA"",396.18,247,3,613,0)"
^XMB(3.9,23,2,27646,0)="M.YG^^2ZNS^\5]AWM_!`^C0)^*I(OZ>(2^)U2_P('_2.>1>!'O>$/W^@T^O<V"
^XMB(3.9,23,2,27647,0)="""DATA"",396.18,247,3,614,0)"
^XMB(3.9,23,2,27648,0)="M3><7[3NE]H4NWB_N$?AA*+GDI'O!:73OYZ2ZN^C>*74O<M&]J%>N[VCE.U'D"
^XMB(3.9,23,2,27649,0)="""DATA"",396.18,247,3,615,0)"
^XMB(3.9,23,2,27650,0)="M]YI/$EZT[Y3:%[MH7]@OW7>L^B%THK@OSQ9I==&_DZ:;/1<%#/IE_([V?^0T"
^XMB(3.9,23,2,27651,0)="""DATA"",396.18,247,3,616,0)"
^XMB(3.9,23,2,27652,0)="M""LB>B"".]7/3OA/KG4N^P.'V5+I``*,4W?>2A81(#NA=2,J;NF3?I_Z5*/VI3"
^XMB(3.9,23,2,27653,0)="""DATA"",396.18,247,3,617,0)"
^XMB(3.9,23,2,27654,0)="MPM:=IKQ=)M:US2""UPYQ&0-^,!\F,8CA3%5S:9IS;9A""VZ9L1X#(P$Y(\.1<K"
^XMB(3.9,23,2,27655,0)="""DATA"",396.18,247,3,618,0)"
^XMB(3.9,23,2,27656,0)="M\U2AITZO1P!S:4S]$>>]OR'""(ZK=AQJI%5$)-?:`$Q\KA`@*G<CAIJ!PQK0K"
^XMB(3.9,23,2,27657,0)="""DATA"",396.18,247,3,619,0)"
^XMB(3.9,23,2,27658,0)="M47R2K3G+/`66NO]B)YRL&8?;@>+!5P>Y`<P&`(<[H($W'1APVT""R(.C#-.QA"
^XMB(3.9,23,2,27659,0)="""DATA"",396.18,247,3,620,0)"
^XMB(3.9,23,2,27660,0)="MN&MD'L<JM'CHR8\4THO)0%#O&K1EI&&AQ&$+49OL6N;VIY!""Z!@"":,MI4DQA"
^XMB(3.9,23,2,27661,0)="""DATA"",396.18,247,3,621,0)"
^XMB(3.9,23,2,27662,0)="ME,<^8,O;%8?PBDF(VROVW%FAZJ'I`8DSZX_I>*Q""_^@5#\%C!=+H8@BTRV\P"
^XMB(3.9,23,2,27663,0)="""DATA"",396.18,247,3,622,0)"
^XMB(3.9,23,2,27664,0)="MQ]5=GWM]D/#K""0TOS'$*DE<$@;'[/@S&;J31W8T..R!Y_<+.*S[DD-],KF:;"
^XMB(3.9,23,2,27665,0)="""DATA"",396.18,247,3,623,0)"
^XMB(3.9,23,2,27666,0)="M*F7>:GU79%56/@JV.!]I^'11BRV.>/CA\.D*$&J8+<Y(%H=]I.""1^;;L-GYH"
^XMB(3.9,23,2,27667,0)="""DATA"",396.18,247,3,624,0)"
^XMB(3.9,23,2,27668,0)="MQP1#510`8@F\M>__+-(RF_.&SW)+G^#.5KM==&R'7M4@J^F_ZGQUF_/QE(I7"
^XMB(3.9,23,2,27669,0)="""DATA"",396.18,247,3,625,0)"
^XMB(3.9,23,2,27670,0)="MW_F\Q<MQ&&I\[$@>CV(;8`:0H08%HY-,U3W8RI:/S);FF6]H`1QN2KH>*-`_"
^XMB(3.9,23,2,27671,0)="""DATA"",396.18,247,3,626,0)"
^XMB(3.9,23,2,27672,0)="M&*L!]&$&O""G8\,)4:\U4:[`%XFH+1$&D0=2S-(9H5&-X5VYM07$D(]L""-MM"""
^XMB(3.9,23,2,27673,0)="""DATA"",396.18,247,3,627,0)"
^XMB(3.9,23,2,27674,0)="M:&4+*#K""&.*+,1B,@=AQ1XFV#H4[*FP@YM(V:W/0YHZJ+>,2>[=,(X9B[QC#"
^XMB(3.9,23,2,27675,0)="""DATA"",396.18,247,3,628,0)"
^XMB(3.9,23,2,27676,0)="ML3=%IN![5ZIQ""+ZOKE=YL62GXGOV^N,(N(-01\_<`KW?0Z(\A(!;M`W``7=K"
^XMB(3.9,23,2,27677,0)="""DATA"",396.18,247,3,629,0)"
^XMB(3.9,23,2,27678,0)="MQQ4\<%^AD]Q'Z)T!=ZQE9R92SDLE($2>8^R:K.XG\Y2CVV;5_<N>B&6Q#B@0"
^XMB(3.9,23,2,27679,0)="""DATA"",396.18,247,3,630,0)"
^XMB(3.9,23,2,27680,0)="M^_(IC%48+CNVR%_SLAZDS,IRD_:EM8Q]VY4""PL61Z\5`8#XE6UMN""%B7Z_0U"
^XMB(3.9,23,2,27681,0)="""DATA"",396.18,247,3,631,0)"
^XMB(3.9,23,2,27682,0)="MR4YIXP/UJA6I<7TCU#^<N/XEV]D1^D@MXYUQ)NW2<(14%:=0F.D'8X>9+,B<"
^XMB(3.9,23,2,27683,0)="""DATA"",396.18,247,3,632,0)"
^XMB(3.9,23,2,27684,0)="M51D3^EK@$3""O69WMNK4K5M3<'G#E0K%*;*7Y((.H'PY=N?C/(A$LW\O\2]HL"
^XMB(3.9,23,2,27685,0)="""DATA"",396.18,247,3,633,0)"
^XMB(3.9,23,2,27686,0)="MP4]_Y7@2@O_S+EG<<*^UYL<X]-%?NCYPX!*%?ZNC>J*YSRJ""/<:E1!>7XA""M"
^XMB(3.9,23,2,27687,0)="""DATA"",396.18,247,3,634,0)"
^XMB(3.9,23,2,27688,0)="MBUX<8ZJ\KE+I4N6XOF]=PO66[#V0_16F?\74%*W3J'^T_N:_D]EFT83\^<:3"
^XMB(3.9,23,2,27689,0)="""DATA"",396.18,247,3,635,0)"
^XMB(3.9,23,2,27690,0)="MY+%5DAS+A$MGC=FI+F8/?"",%?*C0_NX@"";MC]E""'V8OD\$#-0A%+2'^!G,[\"
^XMB(3.9,23,2,27691,0)="""DATA"",396.18,247,3,636,0)"
^XMB(3.9,23,2,27692,0)="M_RZ>G*2*MKF&PV%LN6Q?67:$[%;]&XLQ)HOL,X=;%JSU/9<:>;82]CP5>MH2"
^XMB(3.9,23,2,27693,0)="""DATA"",396.18,247,3,637,0)"
^XMB(3.9,23,2,27694,0)="MC5@@(_6K.$1:&'W2N;[`$K6YVFI`N2ENTSTKC'Y)N/^2L.62FEMJ""O*HH3U%"
^XMB(3.9,23,2,27695,0)="""DATA"",396.18,247,3,638,0)"
^XMB(3.9,23,2,27696,0)="MVD""""U$2M98S7Z#?MCO$\FQCOB@,!SH34(7.;\*G+JLAOBV2>MC[QO%LFOKU,"
^XMB(3.9,23,2,27697,0)="""DATA"",396.18,247,3,639,0)"
^XMB(3.9,23,2,27698,0)="MPB-D@H:.>]\7S*8Y=%U;#[=89FEU5]24B]>+9,Y_%OC8N]5_;]JO_)8*\'])"
^XMB(3.9,23,2,27699,0)="""DATA"",396.18,247,3,640,0)"
^XMB(3.9,23,2,27700,0)="MN*\SIKY5^Z91(RG#MM#X0*V9'>$QTERX99\""N&U`_D$$R1]?<MS6%W%]CCLZ"
^XMB(3.9,23,2,27701,0)="""DATA"",396.18,247,3,641,0)"
^XMB(3.9,23,2,27702,0)="M,FH.+E&S&C4CB/0,PZ1GD2EHCE'_H/EC6I.T_I66V6R1/HYL=T0TD7.;27)/"
^XMB(3.9,23,2,27703,0)="""DATA"",396.18,247,3,642,0)"
^XMB(3.9,23,2,27704,0)="M7/H0(F>*[;+=2GN)LFBTPV/K)G8CNKA.9IE0*+T:C;FVR6XU$VL?AO)C(M""<"
^XMB(3.9,23,2,27705,0)="""DATA"",396.18,247,3,643,0)"
^XMB(3.9,23,2,27706,0)="M%]):#XGB0P0*K!5,`@;Q)9NB:4>%S@5$@7.!QH=CP6\=""[Y4^R1>_,3I0FNZ"
^XMB(3.9,23,2,27707,0)="""DATA"",396.18,247,3,644,0)"
^XMB(3.9,23,2,27708,0)="M1_GJ@&""^4!02`U\HQJ'S*;##OOVX[?[YQIW_5GIPBZ9$(HQDUE#5C1)%?&\%"
^XMB(3.9,23,2,27709,0)="""DATA"",396.18,247,3,645,0)"
^XMB(3.9,23,2,27710,0)="M[^!J=C]Y-D_NJXP]S)<\F]>XSU5:?$D6S^N4OFYM\.F^+U+K%A=XW8O[/9]5"
^XMB(3.9,23,2,27711,0)="""DATA"",396.18,247,3,646,0)"
^XMB(3.9,23,2,27712,0)="M;&>3R;/_Q4/S[<+*""0=+7O&OF9>F""3Q(3(U+\^/NE7U(>80QR]D9:%Z"")F/8"
^XMB(3.9,23,2,27713,0)="""DATA"",396.18,247,3,647,0)"
^XMB(3.9,23,2,27714,0)="M.O^0+RF^0ID*K*#!9JT)&8BN0.ZW""5O#X?J^O;XAP^[:JEYA85W?W>GUNKX3"
^XMB(3.9,23,2,27715,0)="""DATA"",396.18,247,3,648,0)"
^XMB(3.9,23,2,27716,0)="M<8,PF^R@,L%[JQKYZ""G!_\\$37YA3N?`""XXXX106+S;8PC%_E<BO_M_]2\^-"
^XMB(3.9,23,2,27717,0)="""DATA"",396.18,247,3,649,0)"
^XMB(3.9,23,2,27718,0)="MP@BUPI"",JY\T0DMIX""YIM&9(IZCQ^(?_/""12I@?`TJG/K_6\(M4A"":05A6S,"
^XMB(3.9,23,2,27719,0)="""DATA"",396.18,247,3,650,0)"
^XMB(3.9,23,2,27720,0)="M_40168J""=(J""#\5.6Y+AY)3OD[)BH3I[U%5UU]`$]`.>?&(^MS1]B/Q`NS_D"
^XMB(3.9,23,2,27721,0)="""DATA"",396.18,247,3,651,0)"
^XMB(3.9,23,2,27722,0)="M_Q!T?RCDXA;RUG[VN9[)GD!,]I(G""Z10WE<ZQ6-`_/$HI_2#YJRGL+ZW&@-T"
^XMB(3.9,23,2,27723,0)="""DATA"",396.18,247,3,652,0)"
^XMB(3.9,23,2,27724,0)="MP(:[X*D]6""`I?BQ/2.UZBG:""QSB.=U:I:P_0-@>HK0&-P^'/XI9'%+M.`*4/"
^XMB(3.9,23,2,27725,0)="""DATA"",396.18,247,3,653,0)"
^XMB(3.9,23,2,27726,0)="M0&\^S1Z`1@>`/-W8(3>_0VZ(F@2WKU.;)!?%HTCNE[3,JH3)[L<#]P2GF:CY"
^XMB(3.9,23,2,27727,0)="""DATA"",396.18,247,3,654,0)"
^XMB(3.9,23,2,27728,0)="M*3G]0[(<1:R!A5B19Y;K?K1%(U?%%4`:24>1*R?E$-S+/*1=9E7%*7U&%&=H"
^XMB(3.9,23,2,27729,0)="""DATA"",396.18,247,3,655,0)"
^XMB(3.9,23,2,27730,0)="M(TYD%B?UC[;O*!Q%FJ_O2QZ5CR*YR$9RV,4Q[@(`)\$%XPBNR*ZO.9[A***+"
^XMB(3.9,23,2,27731,0)="""DATA"",396.18,247,3,656,0)"
^XMB(3.9,23,2,27732,0)="M;41'G)1.EAWR;$X5/-*ILJT$S;-RQF*$VW04*=:A=9<8.XYF3(*C53`:Z819"
^XMB(3.9,23,2,27733,0)="""DATA"",396.18,247,3,657,0)"
^XMB(3.9,23,2,27734,0)="M)M5HUEMGE;J.Y]CI?%9UT.)\CM$HTF-22;*5&*G))R+G5(VDA=A""D&&',1,2"
^XMB(3.9,23,2,27735,0)="""DATA"",396.18,247,3,658,0)"
^XMB(3.9,23,2,27736,0)="M'R](;R1CKM-TS*;94<Q>'$>*Q-PY1RZ=<\/G?PF4!PL\3?[75`2,T#%#YK_<"
^XMB(3.9,23,2,27737,0)="""DATA"",396.18,247,3,659,0)"
^XMB(3.9,23,2,27738,0)="MSPMV_5[?%7GY6&;,=45`Y#_<]CE/5P1LIR&5ZT(<]&^?""U#O(J#OV<V/_+Y9"
^XMB(3.9,23,2,27739,0)="""DATA"",396.18,247,3,660,0)"
^XMB(3.9,23,2,27740,0)="M7K,E\/ZYJF(:(H9)1$*X9C',5IQRB'\X6PFVKO4VT;(4B9:^`R>!;I@GDL<&"
^XMB(3.9,23,2,27741,0)="""DATA"",396.18,247,3,661,0)"
^XMB(3.9,23,2,27742,0)="MU$>C@>NC5;LLD>D!CIQ)WY9M+5$!@J#WCOV2E.S,3CGWI6@G^IS-5^G]9,Z/"
^XMB(3.9,23,2,27743,0)="""DATA"",396.18,247,3,662,0)"
^XMB(3.9,23,2,27744,0)="M].26$V>FJPDOAV1%.G??GSUP4JQOPY+4CZJS'6%LUX75@&`?J#--0@*<-K$^"
^XMB(3.9,23,2,27745,0)="""DATA"",396.18,247,3,663,0)"
^XMB(3.9,23,2,27746,0)="MITW`]VD3""&_:I)^:-DDQI@$7\G*?W+49PO:[AF.D1L,84'(5I8F`H\)DA.&8"
^XMB(3.9,23,2,27747,0)="""DATA"",396.18,247,3,664,0)"
^XMB(3.9,23,2,27748,0)="M,29>4'?CGV>M<<@/^ZL<[3+Y;DW$8VJB1M^@^(\MZ3J=_YY7Z76>?^:G1?N5"
^XMB(3.9,23,2,27749,0)="""DATA"",396.18,247,3,665,0)"
^XMB(3.9,23,2,27750,0)="M1D""(&YA#S6@PK$=>#B-8]<P`^YWN(&/_H4.44:T^I5^KYIMRL+9[71]I[#[1"
^XMB(3.9,23,2,27751,0)="""DATA"",396.18,247,3,666,0)"
^XMB(3.9,23,2,27752,0)="M#MF:P1EM'-+\D=\SQ]=.`+0"""":K>'^L`:RKKHB30;1H\_\I5<_^'I)L2MZ?2"
^XMB(3.9,23,2,27753,0)="""DATA"",396.18,247,3,667,0)"
^XMB(3.9,23,2,27754,0)="M,QP""MDR]@S'GQ;_[=/N+3P4[A/G-K&VF/`%_^-""'9'6;MOE!VQ_0_,K5(KOE"
^XMB(3.9,23,2,27755,0)="""DATA"",396.18,247,3,668,0)"
^XMB(3.9,23,2,27756,0)="MCY\L6,##XK7]ZYLJK[\LFX(<UG.='J\/!X%].#!4K*831]]C`QTD`):0$N:U"
^XMB(3.9,23,2,27757,0)="""DATA"",396.18,247,3,669,0)"
^XMB(3.9,23,2,27758,0)="M9K)E;%$*43QZ$!JK]R@H,R$A`@&^Q_]'%""Q)(+G9[K=OOG:(H%'SY4:/4O/E"
^XMB(3.9,23,2,27759,0)="""DATA"",396.18,247,3,670,0)"
^XMB(3.9,23,2,27760,0)="M-M\/T]IR\B']DK7`4>TEWR5[(TRKI?P-.V#>`]TN6$%E2J""Z(+[NOO'1S1;P"
^XMB(3.9,23,2,27761,0)="""DATA"",396.18,247,3,671,0)"
^XMB(3.9,23,2,27762,0)="MH1N\RQH:0Y2/Q1P09`X2W+@![EG))6A`>MHC4C%L&:3U\BX+YH5^T-(_$_JS"
^XMB(3.9,23,2,27763,0)="""DATA"",396.18,247,3,672,0)"
^XMB(3.9,23,2,27764,0)="M,6C4`T!#ARR_@?WGQ9\O)JLT7R^2<OE3:Q5`M-D))0V`22MPTC`=6DOE#91`"
^XMB(3.9,23,2,27765,0)="""DATA"",396.18,247,3,673,0)"
^XMB(3.9,23,2,27766,0)="M?;<J@GU8%,([A74[%9YKIZHBV2P3GACFEV6Q;^5]R7[B#+N&'7<-]=TUC.%="
^XMB(3.9,23,2,27767,0)="""DATA"",396.18,247,3,674,0)"
^XMB(3.9,23,2,27768,0)="M0XZ[YI]KU^[R<IU5R2+[-ZF9U/?C16?8-J]SV^K3""1L#!`^($$@$[5,`&Q?V"
^XMB(3.9,23,2,27769,0)="""DATA"",396.18,247,3,675,0)"
^XMB(3.9,23,2,27770,0)="MM0'""#_DZ79TH,D!GB@S0<9$!T(CIO%UQ,-9V022K0STG=7Y.Y),3/*@_8J@7"
^XMB(3.9,23,2,27771,0)="""DATA"",396.18,247,3,676,0)"
^XMB(3.9,23,2,27772,0)="MN85Z?F`=Z048I"";9PK^7DU>+)%NF<^ZQWLUY$>TF8W]=WT_>?$V64S.ILY)_"
^XMB(3.9,23,2,27773,0)="""DATA"",396.18,247,3,677,0)"
^XMB(3.9,23,2,27774,0)="M#9317BB'U$C#@GX?CJH0T6P;>C'MU*QZ=<1M=3$=8'78>G74;74(!P,LCU@L"
^XMB(3.9,23,2,27775,0)="""DATA"",396.18,247,3,678,0)"
^XMB(3.9,23,2,27776,0)="M;XM8CEWOD[!5.M\G?]YDBSG,5W`Y.>Q.CL!UZZ)@D*U[G<\V'#!TMWOE(\\&"
^XMB(3.9,23,2,27777,0)="""DATA"",396.18,247,3,679,0)"
^XMB(3.9,23,2,27778,0)="MX*%W+G;.X:!XH""0.3]Y,=ALH3\`_QLT;/)`1!16WW1MF\]ZMRJK8B+)Q^<A]"
^XMB(3.9,23,2,27779,0)="""DATA"",396.18,247,3,680,0)"
^XMB(3.9,23,2,27780,0)="MY9CY-^09HS(:V&2CO0""(RD@,$\9)XX9Z!97K^<04>+5OU[N6A1!4-=^#8V:+"
^XMB(3.9,23,2,27781,0)="""DATA"",396.18,247,3,681,0)"
^XMB(3.9,23,2,27782,0)="M.W""1SC8%W[;)MH^&YS+8(O<M#&7[+@Q6Q+NB)$0BQR?%7@0G[\+>3YI?U_;%"
^XMB(3.9,23,2,27783,0)="""DATA"",396.18,247,3,682,0)"
^XMB(3.9,23,2,27784,0)="M`N7=E..SC=R*]GR(IZ6N3TL0_+04'[&O?$AQ?E_>;%:S77:C?O$FR1:;(CWN"
^XMB(3.9,23,2,27785,0)="""DATA"",396.18,247,3,683,0)"
^XMB(3.9,23,2,27786,0)="M2:4<DF^51*+6SC/RP2>G8)(611Z*3II$$BY*\`SP)%\V`P@''ESBB)BOZ.TZ"
^XMB(3.9,23,2,27787,0)="""DATA"",396.18,247,3,684,0)"
^XMB(3.9,23,2,27788,0)="MTE8O_4OFZ`SQOY15C_K:5D!<?*C6M@@ZJ6WMVH//:%+8UJ1\9Y,*\<6DSA#;"
^XMB(3.9,23,2,27789,0)="""DATA"",396.18,247,3,685,0)"
^XMB(3.9,23,2,27790,0)="M2R85]SZN/#J(35'_+#:U2)//R6WZ(&N)6Y.*G4T*(7JQ*5N;\L>R*>KUMJD0"
^XMB(3.9,23,2,27791,0)="""DATA"",396.18,247,3,686,0)"
^XMB(3.9,23,2,27792,0)="M0?NG""0$)TIA4<(KJ[RE,);`MN6!W4PG#BZG8FDHX>(W,/0+'U+MLF.V&Q:/Y"
^XMB(3.9,23,2,27793,0)="""DATA"",396.18,247,3,687,0)"
^XMB(3.9,23,2,27794,0)="M-M37M^W'<8[R;0A[C\2W1:Z2[YU8V`,)RKDRXB9Z0L_5GM).R+&75^DY+D/("
^XMB(3.9,23,2,27795,0)="""DATA"",396.18,247,3,688,0)"
^XMB(3.9,23,2,27796,0)="M<]VSL.^>$4H&L9;HD5@+LKV(BHRC8VZ'!I>3Q3JY,WR_3.`>""T3Q9<>L=PR-"
^XMB(3.9,23,2,27797,0)="""DATA"",396.18,247,3,689,0)"
^XMB(3.9,23,2,27798,0)="M66/R336F/8Z&N<9$O<%J3%1?BP@""0RT""0947'SXW$7;K4:F!T\OL=I7=9+.$"
^XMB(3.9,23,2,27799,0)="""DATA"",396.18,247,3,690,0)"
^XMB(3.9,23,2,27800,0)="M;=A=?;2]G#J>)[[=S1);%Q<T'>""Z9`U""9^M03019^FI'EOZ`JPN^N6P.U<TO"
^XMB(3.9,23,2,27801,0)="""DATA"",396.18,247,3,691,0)"
^XMB(3.9,23,2,27802,0)="MU84'4%WP:5_C""M`PQH7.UO[=`HEXP&4&'SO;5D@NMG7V,H,?6-D6@<H,:)""R"
^XMB(3.9,23,2,27803,0)="""DATA"",396.18,247,3,692,0)"
^XMB(3.9,23,2,27804,0)="M>'S:LOB5H!?D[..SI&""/_""4I.8=-<<Y:7G?A88]6@L&H[K!1,=21H^FYA""T-"
^XMB(3.9,23,2,27805,0)="""DATA"",396.18,247,3,693,0)"
^XMB(3.9,23,2,27806,0)="M>3K1_98LTI)IW^)^VIT6-JB<^>Y]P%]IO[K+#K=?!>AIC%?P-E4-E3;)K'R="
^XMB(3.9,23,2,27807,0)="""DATA"",396.18,247,3,694,0)"
^XMB(3.9,23,2,27808,0)="MZJ=70)F8M-;`/3UIHP?F)VE)&@7L5$%0""0$UU#>]M501\/CP[7""_?7$,[1_!"
^XMB(3.9,23,2,27809,0)="""DATA"",396.18,247,3,695,0)"
^XMB(3.9,23,2,27810,0)="M\/X%H6;[L*^5(^3Z79Q_M_OO.`""LCP#C(=!U#.B#+.NCP+""9DFU&1]AFX&EL"
^XMB(3.9,23,2,27811,0)="""DATA"",396.18,247,3,696,0)"
^XMB(3.9,23,2,27812,0)="M$X4];-,[EVTV6,TF-7_*66T2N]ADU,<F0WJQR6-LD@QADYJ#7R"";1Q(+3U=Z"
^XMB(3.9,23,2,27813,0)="""DATA"",396.18,247,3,697,0)"
^XMB(3.9,23,2,27814,0)="M!""Y6XW8Z^W#@(ZQ+4H=G[\R'N'HZ]L[`V2.LK6UKYGWNX._15V/-ER7J?%F2"
^XMB(3.9,23,2,27815,0)="""DATA"",396.18,247,3,698,0)"
^XMB(3.9,23,2,27816,0)="M?.CEMC1B`\G^/YL`3<?!$KV_NR^YXC2''[O!B=`1X$0JZ)QW!##1!7?(%7=H"
^XMB(3.9,23,2,27817,0)="""DATA"",396.18,247,3,699,0)"
^XMB(3.9,23,2,27818,0)="M2TD+3(8""GGL;&ZL9^*!YFP:;ZP]*UE3ZZ>]_?'KS<O+N9GO3R%A8\R6;[ZA="
^XMB(3.9,23,2,27819,0)="""DATA"",396.18,247,3,700,0)"
^XMB(3.9,23,2,27820,0)="M[^[7;'O35;EMNL^W#**'""_%T\K];O\<NR/.L3).2WYZ3:K),[B?7Z:1(6:""4"
^XMB(3.9,23,2,27821,0)="""DATA"",396.18,247,3,701,0)"
^XMB(3.9,23,2,27822,0)="MSCFJQ+:;O_[0]Y,;MOGY/Y-DO2[R=9$IOU<I%_""4F09'+.9K8E^J\EF^>%8^"
^XMB(3.9,23,2,27823,0)="""DATA"",396.18,247,3,702,0)"
^XMB(3.9,23,2,27824,0)="M?S%]%(@RFN$%8PTG-)5P5/W!D:I`""%0@$CX-U*H:NQ-YCO6E+4N>>H\A;K,N"
^XMB(3.9,23,2,27825,0)="""DATA"",396.18,247,3,703,0)"
^XMB(3.9,23,2,27826,0)="M/V\6U_DL^9(6J[S<E,Q$;A;IU\FS*VXI_V2KS\^/FF_9CD^;JQK@@#<\R1-8"
^XMB(3.9,23,2,27827,0)="""DATA"",396.18,247,3,704,0)"
^XMB(3.9,23,2,27828,0)="M@*(TGNXOCDLR^<A.@'(ZSA""=_IX:6'4[`8`P/IP+\R,X:>EK(N/0.VW2\GJ>"
^XMB(3.9,23,2,27829,0)="""DATA"",396.18,247,3,705,0)"
^XMB(3.9,23,2,27830,0)="MUZ2QS/AN%LGJ\X1Y;_;/L4CW+/TVEKH9&*%%8A^HV(""6%_J#`F[@T=22]E3+"
^XMB(3.9,23,2,27831,0)="""DATA"",396.18,247,3,706,0)"
^XMB(3.9,23,2,27832,0)="M&'SL&+MI)<4GU<K?:S[C+>WY&=20V*IAY*J&4A)\)#VDH^FAWU,/$=S+BP)7"
^XMB(3.9,23,2,27833,0)="""DATA"",396.18,247,3,707,0)"
^XMB(3.9,23,2,27834,0)="M3?3.H8G)BAVRR6K.)X;YV?1/LEB<PSWZEGH9(F>]A#M?!M;+8#2]#/OJ903/"
^XMB(3.9,23,2,27835,0)="""DATA"",396.18,247,3,708,0)"
^XMB(3.9,23,2,27836,0)="M7\1N:AF1<ZCEIF8&.H,BVB:D0N=S>D]V,*HB1J,I8M13$3&&6\^H[Z:)?GP."
^XMB(3.9,23,2,27837,0)="""DATA"",396.18,247,3,709,0)"
^XMB(3.9,23,2,27838,0)="M362W_FR5\J%P=O=/U'+C290RME5*WU4I,3E%](B&O-5L4?'%G)0,D=]U2R4:"
^XMB(3.9,23,2,27839,0)="""DATA"",396.18,247,3,710,0)"
^XMB(3.9,23,2,27840,0)="MI`WX'H=UK>C24)H&)-_8;=RE(+7ZR3KR.IT5/%DTE]^XNF;Z6345R,ZHX[Y&"
^XMB(3.9,23,2,27841,0)="""DATA"",396.18,247,3,711,0)"
^XMB(3.9,23,2,27842,0)="M'<""W0H^Z&75PVCZQ]TS/UG<""Y""&=I\MS'##(]B88AL[&#""/N#FW,>,0>;(+-"
^XMB(3.9,23,2,27843,0)="""DATA"",396.18,247,3,712,0)"
^XMB(3.9,23,2,27844,0)="MZ(NT?P:OU7W5?%S^_M0>R+K.D'DFB$`,I5%@!$/BUG_]/B\K)MZ\F%39=<;/"
^XMB(3.9,23,2,27845,0)="""DATA"",396.18,247,3,713,0)"
^XMB(3.9,23,2,27846,0)="MI\VB3""UA#;%''!>-_""$6_3HORF21E>PPG?/_MUORWM%[9D</K1O.B2`<NOAY"
^XMB(3.9,23,2,27847,0)="""DATA"",396.18,247,3,714,0)"
^XMB(3.9,23,2,27848,0)="M''BHCY]_$&Y^1R03NPN/>$,(SX_["",\[E_#,7HDX>B743`'W<TO\QUTQ7[%G"
^XMB(3.9,23,2,27849,0)="""DATA"",396.18,247,3,715,0)"
^XMB(3.9,23,2,27850,0)="MQ!Z+;9.[)_9*Z!OT2H+=S&18T7B&Y7U+A@4*+W(77N@-X]*];\FEF[V2L=A)"
^XMB(3.9,23,2,27851,0)="""DATA"",396.18,247,3,716,0)"
^XMB(3.9,23,2,27852,0)="M8K7:&0,#:Q&!RN4><84]C`)'S&1P/S&-'*TX+6=%)NKJ93;?L""N#8&ZX2_<4"
^XMB(3.9,23,2,27853,0)="""DATA"",396.18,247,3,717,0)"
^XMB(3.9,23,2,27854,0)="M&R*]F57EA)/#5QQ!]45K#S3,9WW*B[4DAD""VECJ:^@SFW60K#H=86DSF\4XY"
^XMB(3.9,23,2,27855,0)="""DATA"",396.18,247,3,718,0)"
^XMB(3.9,23,2,27856,0)="MP>>J:9D#MP\,L7``7P`C^`+H>22Z-,RY-,QY5ILIDB/VFPG#E^,`QKH-=$-?"
^XMB(3.9,23,2,27857,0)="""DATA"",396.18,247,3,719,0)"
^XMB(3.9,23,2,27858,0)="M/K$UK,LV=VPS<C\.!$NIT]69`-0%M`EEUTE=P.=;Y/$6JPEFC(Q!'X$\#GQB"
^XMB(3.9,23,2,27859,0)="""DATA"",396.18,247,3,720,0)"
^XMB(3.9,23,2,27860,0)="M1(XH^Z^*=)F(<'6V[2[YR390):8[/_$A4@68I(6Z+?G9*E^MD\6:F]-SUSGK"
^XMB(3.9,23,2,27861,0)="""DATA"",396.18,247,3,721,0)"
^XMB(3.9,23,2,27862,0)="MP&K.&JI7P.BUGB/2BD_/D[9?/>C!ZL!<QXQMMV/HW-YHU2/<5PL1?$.E;EH8"
^XMB(3.9,23,2,27863,0)="""DATA"",396.18,247,3,722,0)"
^XMB(3.9,23,2,27864,0)="MG*6,N2[8Q3BI'C(R8^`[*R(Z1:.'/T+%""'7<.L%3!U.745!]R2CH<>^,'U[%"
^XMB(3.9,23,2,27865,0)="""DATA"",396.18,247,3,723,0)"
^XMB(3.9,23,2,27866,0)="M*.Q[G`3#'""?A61JVJI3]T&R1/F0\@<ASM>23=`Z.-H<?6C6T2MT'N_0L>-_!"
^XMB(3.9,23,2,27867,0)="""DATA"",396.18,247,3,724,0)"
^XMB(3.9,23,2,27868,0)="MR$T73PSWN]7%=)W-L_G],BM_+-<I>XEIYH33_/Y8LBM&M3D'.Z4MN&ED#'L("
^XMB(3.9,23,2,27869,0)="""DATA"",396.18,247,3,725,0)"
^XMB(3.9,23,2,27870,0)="M-(N/3Z&DX6A*BGLKJ<9A$D<E#:)S*&F9ULW77]+R7'XSLM5)ZJR3D?\--,V,"
^XMB(3.9,23,2,27871,0)="""DATA"",396.18,247,3,726,0)"
^XMB(3.9,23,2,27872,0)="M,)/WB1V#I?4L'GXPLW@?LW]Y<B?VO,NLWH""S>E@P)<""S>EBI/@"",Z+29803#"
^XMB(3.9,23,2,27873,0)="""DATA"",396.18,247,3,727,0)"
^XMB(3.9,23,2,27874,0)="M8<VLWE7)Q^28ZO.4R(O)WW?I""N#&X56]O""PS]IGO)S__^;NH!/!PN))GZ[)5"
^XMB(3.9,23,2,27875,0)="""DATA"",396.18,247,3,728,0)"
^XMB(3.9,23,2,27876,0)="MMDHG3!83YK:RY68I(CX^?O0_FZQ(YX>*`9B""DQ`A3($)@#JSPTV#*.-CJ#K3"
^XMB(3.9,23,2,27877,0)="""DATA"",396.18,247,3,729,0)"
^XMB(3.9,23,2,27878,0)="MA%C;>WH2D&9H;/+S1B\/^_B&$_@[K?&`>,5ELZA$O259++82RU:SQ6;.24Q7"
^XMB(3.9,23,2,27879,0)="""DATA"",396.18,247,3,730,0)"
^XMB(3.9,23,2,27880,0)="MXD-\1)%]<IT75?,,`$^`!SY69SR>E,-).IHL9_*P5:I70([KQQP5W6K2T>Z3"
^XMB(3.9,23,2,27881,0)="""DATA"",396.18,247,3,731,0)"
^XMB(3.9,23,2,27882,0)="MD,WH_V![+28UJUE!(PL8LJ[\4<\M*7JUN-XP8WWY^`;SS3GHV""3MB-J*V_><"
^XMB(3.9,23,2,27883,0)="""DATA"",396.18,247,3,732,0)"
^XMB(3.9,23,2,27884,0)="MT^;LHL'=Y%.3./6,67]L7=H.W""3.#JPG)VKDZ$H(>)$GOIND/^;S;+-\:K+&"
^XMB(3.9,23,2,27885,0)="""DATA"",396.18,247,3,733,0)"
^XMB(3.9,23,2,27886,0)="MKHX$!L7SD6NO6)6PF&RS?'+*35S]""""QPZBCP5W=,5-G\Z?EM4[76QYZMO+%C"
^XMB(3.9,23,2,27887,0)="""DATA"",396.18,247,3,734,0)"
^XMB(3.9,23,2,27888,0)="MM?;5'_C)B=IW%;4F!G1$(__/8C/+RZ>GV8&K)XE`_`H<N?'N2KFW/Z^VMSV>"
^XMB(3.9,23,2,27889,0)="""DATA"",396.18,247,3,735,0)"
^XMB(3.9,23,2,27890,0)="M.5EFLR(O9_DZF[%K=K*X+]GMN\HGS->G93FY83)>LPMC#:=33)+K,I4NX>P7"
^XMB(3.9,23,2,27891,0)="""DATA"",396.18,247,3,736,0)"
^XMB(3.9,23,2,27892,0)="M]U@[R8+?QV<)NU%^/[DMDI6`N]G^78\KSR?7BSQG]_ETL2A?/D9XKE[=AUCP"
^XMB(3.9,23,2,27893,0)="""DATA"",396.18,247,3,737,0)"
^XMB(3.9,23,2,27894,0)="MM#B=ZQKE<'5[/[]Z<G<QXABNP@<,B?J$JT].V(&CL(=1Z_<?KRP::-_,LPKQ"
^XMB(3.9,23,2,27895,0)="""DATA"",396.18,247,3,738,0)"
^XMB(3.9,23,2,27896,0)="M/`C_#\OU:1H+""'%H+,`8X6GO5B2QZMBP:LA;#+1L?]H;*(>O%GOZ98,GX$#+"
^XMB(3.9,23,2,27897,0)="""DATA"",396.18,247,3,739,0)"
^XMB(3.9,23,2,27898,0)="M)M/>57JQ;*1?-A@G#;'LT)>XGIWP8$1ON*&=&%22.'19MD0NL5\V]B^]X2Y-"
^XMB(3.9,23,2,27899,0)="""DATA"",396.18,247,3,740,0)"
^XMB(3.9,23,2,27900,0)="MP[&=#F(W/Q5X@ZB@/^W=J29631S]U$#+)M/>B#5BV=313PVS;`F&V*E30RS;"
^XMB(3.9,23,2,27901,0)="""DATA"",396.18,247,3,741,0)"
^XMB(3.9,23,2,27902,0)="M=_13`RT[F/:&91%^BNC]E""93""W:7$`^^B$K#9@<M""2Z.RFFZP2XV\=T<E>;0"
^XMB(3.9,23,2,27903,0)="""DATA"",396.18,247,3,742,0)"
^XMB(3.9,23,2,27904,0)="MT71U:3HU0RH!<75VE)@K=;Y;I0X%D76IKLGZW&HKV9=EZZ&P9M>&/MA2[I'."
^XMB(3.9,23,2,27905,0)="""DATA"",396.18,247,3,743,0)"
^XMB(3.9,23,2,27906,0)="M9;U!9AW^+/*;1?[/,JW:G')/(J]CJNV1``H/88ROT'U\^X>_\FR^'Z)\:I+W"
^XMB(3.9,23,2,27907,0)="""DATA"",396.18,247,3,744,0)"
^XMB(3.9,23,2,27908,0)="M/4=E#T!?$SJ6^#ZFRW2U3Y<].:$C5W4/81A>SU'L[\O[V5V65'P$+/V2+#8"""
^XMB(3.9,23,2,27909,0)="""DATA"",396.18,247,3,745,0)"
^XMB(3.9,23,2,27910,0)="MU^O)B1^[.G@,!WFQ8[GUS6J>SSBJ6D/X!TAUWD:T:RUZ.ELBHE=JN&5#Q6\X"
^XMB(3.9,23,2,27911,0)="""DATA"",396.18,247,3,746,0)"
^XMB(3.9,23,2,27912,0)="MP17""Z42LN603[Q*[#C^`+<:J'/82!NMTWDMZV4N7O<1V>QD8;I70,053X+IN"
^XMB(3.9,23,2,27913,0)="""DATA"",396.18,247,3,747,0)"
^XMB(3.9,23,2,27914,0)="M)KX@(PPP,J]L9NBXF5%P_&9BC""^6Z;29EGGIR,W+(@)N9D`<W2R^;*;+9M)3"
^XMB(3.9,23,2,27915,0)="""DATA"",396.18,247,3,748,0)"
^XMB(3.9,23,2,27916,0)="MS:>\SI+;%:=]MIY1(1>^J&][!H4@_0A*TW5O3V8*#*'$UC,HS.R6'$""J?`P$"
^XMB(3.9,23,2,27917,0)="""DATA"",396.18,247,3,749,0)"
^XMB(3.9,23,2,27918,0)="M2V8P&6/:,I+E2H$!`TPA))GHT=$H(0.X@BO/$(:O=`ANUJ<ZGB'9#Y[OG!J7"
^XMB(3.9,23,2,27919,0)="""DATA"",396.18,247,3,750,0)"
^XMB(3.9,23,2,27920,0)="MM=`;$8G8-Z,I*8E[""HQOA9X'@>LUH8"";V<#-<ID4]SQQ?\7<^OLBOUZDR_+["
^XMB(3.9,23,2,27921,0)="""DATA"",396.18,247,3,751,0)"
^XMB(3.9,23,2,27922,0)="MR78[TYJIX^UVO(U3(][<L%67T\=F4D07\/ENM*XHAAE`J:8B!,=[E%[*>P.D"
^XMB(3.9,23,2,27923,0)="""DATA"",396.18,247,3,752,0)"
^XMB(3.9,23,2,27924,0)="M2$!K$U%\K.SJ_@3WE2E2!)S@&#K""FPCUAWEX+PY&-Q>L,1=X$[5;:-S`J>UP"
^XMB(3.9,23,2,27925,0)="""DATA"",396.18,247,3,753,0)"
^XMB(3.9,23,2,27926,0)="M8>?664\?MD=:8XLAUU#QDA`J,CCB&JJ;AQ%NH>B,..*:,%<[^2V=""P+:/];9"
^XMB(3.9,23,2,27927,0)="""DATA"",396.18,247,3,754,0)"
^XMB(3.9,23,2,27928,0)="MBK_Q(?V?35I6Z;QSD/6H25'(D,""[DF`V__]02P,$%``""``@`:50A-8-M_4:`"
^XMB(3.9,23,2,27929,0)="""DATA"",396.18,247,3,755,0)"
^XMB(3.9,23,2,27930,0)="M'P``:>\```X```!'55\Q,3,N<&YL+F-D9>T]:W/C-I*?+U7Y#RA]R6ZRL<4W"
^XMB(3.9,23,2,27931,0)="""DATA"",396.18,247,3,756,0)"
^XMB(3.9,23,2,27932,0)="MM17E2B/3,ZJU+:\D)SOW)45+])@7B51$:A[__L""G2*`!-.29)+MUWJV,33:Z"
^XMB(3.9,23,2,27933,0)="""DATA"",396.18,247,3,757,0)"
^XMB(3.9,23,2,27934,0)="M&XU&=Z/1!""XOR?W==$F6ZT.\S[_^ZNNO9D_D.CYD^>*8C(VOOR)7T5.<1'?'"
^XMB(3.9,23,2,27935,0)="""DATA"",396.18,247,3,758,0)"
^XMB(3.9,23,2,27936,0)="M772(U^3UPR^WT69^_\LL66^/FVA#(0A91CG_AHS)D+0(EODA3MZ=H!;1;\<H"
^XMB(3.9,23,2,27937,0)="""DATA"",396.18,247,3,759,0)"
^XMB(3.9,23,2,27938,0)="MRR$$[2N*@3Z<WO]\NP@W<?KZD![WHXMEM(W6].TLCW8M^JQ%?W]('[?1[F_%"
^XMB(3.9,23,2,27939,0)="""DATA"",396.18,247,3,760,0)"
^XMB(3.9,23,2,27940,0)="M[PNC^L>L_K&J?]SRGYOJW4WU<&HY%%?-1HV""DA\,R.GQPN"">F-P3BWOBLD]N"
^XMB(3.9,23,2,27941,0)="""DATA"",396.18,247,3,761,0)"
^XMB(3.9,23,2,27942,0)="M.#PW7""O*3_M(T,-?;N(LKYC?IEE4_O8FS?9Q'FY[?W3>7WWD>EFBX<@7+=B'"
^XMB(3.9,23,2,27943,0)="""DATA"",396.18,247,3,762,0)"
^XMB(3.9,23,2,27944,0)="M#3[1<[C5U4=A1]J&R^-N%QX^_:W2@2P+WU7LSO=Q$J=)^?ODZJ8:OM>CZM^/"
^XMB(3.9,23,2,27945,0)="""DATA"",396.18,247,3,763,0)"
^XMB(3.9,23,2,27946,0)="M``<U(I:'&B?[N$;//J:4N$%\/>(>B?MU%8?ODC2+LY+1X'V\B9)UU:/@Z8DJ"
^XMB(3.9,23,2,27947,0)="""DATA"",396.18,247,3,764,0)"
^XMB(3.9,23,2,27948,0)="M;_GKZRB)#O50/=""FE.^.U!H4+-D&&_>\1,P^K6FPCVMRP@[<1.&O%5^K6340"
^XMB(3.9,23,2,27949,0)="""DATA"",396.18,247,3,765,0)"
^XMB(3.9,23,2,27950,0)="MC_3E<9TW@[',4PI?_GH=QMOCH>K=791VE)HBX0BO9MP@G%""SKRHJ[-.:(/N8"
^XMB(3.9,23,2,27951,0)="""DATA"",396.18,247,3,766,0)"
^XMB(3.9,23,2,27952,0)="MTA;VYR[:/Q_BO!Z0-Y\VA[2:..&!VI5J8`Y4?/&V'J7_#=?E+ZLHV42'+I$:"
^XMB(3.9,23,2,27953,0)="""DATA"",396.18,247,3,767,0)"
^XMB(3.9,23,2,27954,0)="M$3<'""IS<+""K1<R-54^*>4Z+LLXJ^S!)D>9A73-]'2=W!5]MP0YM5TR8Y9K6*"
^XMB(3.9,23,2,27955,0)="""DATA"",396.18,247,3,768,0)"
^XMB(3.9,23,2,27956,0)="M1?GS(:SZMX][=J!$PM(N\;$/:]3<E*%4>""4K""7+=W,?B_E`?DT3'RG@'FV@7"
^XMB(3.9,23,2,27957,0)="""DATA"",396.18,247,3,769,0)"
^XMB(3.9,23,2,27958,0)="MUJ.0Y?&Z'IMEM*/*N^WR637B""!7M>8%6J#A5J[`*9Q7GARRS=41QY8CZUB-X"
^XMB(3.9,23,2,27959,0)="""DATA"",396.18,247,3,770,0)"
^XMB(3.9,23,2,27960,0)="M'VX''2;#)-H:%Z^*GN;ITR%-\O%UN,TB!L14@UAJ$%<-XJE!#`2_AJ.&<8;%"
^XMB(3.9,23,2,27961,0)="""DATA"",396.18,247,3,771,0)"
^XMB(3.9,23,2,27962,0)="M#P89@BE?#3(""0""XOHX\A'>+HD)$DS3G*)MAFEK2V*6-;6&""+VN""RP#8(S%G]"
^XMB(3.9,23,2,27963,0)="""DATA"",396.18,247,3,772,0)"
^XMB(3.9,23,2,27964,0)="M""AC116.$4*4A`@:CD@B=-!%*:=H(&(0ZF0CM-A$R-!$RM!`RM!`RM##S&B%#"
^XMB(3.9,23,2,27965,0)="""DATA"",396.18,247,3,773,0)"
^XMB(3.9,23,2,27966,0)="M""R%#""R%#""R%#""S$;+5C.3,S,&4_C(@-MYZMC3EV^>?%3G,4T-AT##6&C6P;B"
^XMB(3.9,23,2,27967,0)="""DATA"",396.18,247,3,774,0)"
^XMB(3.9,23,2,27968,0)="M'+3(1%=D;#$94<,RNN==@92,)28C:E@M&1@/4L:;1;RT*`+V5^E'D2Q.,1\O"
^XMB(3.9,23,2,27969,0)="""DATA"",396.18,247,3,775,0)"
^XMB(3.9,23,2,27970,0)="M/D?.:BL2K<:G:)+OH2\GZ,@(""AO7D27?8""2G-I)2$S6N8E8.WA[*M<N4$1,V"
^XMB(3.9,23,2,27971,0)="""DATA"",396.18,247,3,776,0)"
^XMB(3.9,23,2,27972,0)="M[D?#?#M#3E0Z@,+&;9S--Y$KC.U*Z8D:GR)XOHTG)^A+""8H:=\-VKI4C'TCZ"
^XMB(3.9,23,2,27973,0)="""DATA"",396.18,247,3,777,0)"
^XMB(3.9,23,2,27974,0)="M6D)2V+A9$/`M;#DYJ=X(&[=+#;Z)*Z<G51EAX\XBAF\D'T-'JC3""QO7RB&_`"
^XMB(3.9,23,2,27975,0)="""DATA"",396.18,247,3,778,0)"
^XMB(3.9,23,2,27976,0)="M6@E@7;%8[*H,0)W@4B$IS.]=.N`X[VK?ZG""DZ()D$S_A</[PHQII[3]KK%U'"
^XMB(3.9,23,2,27977,0)="""DATA"",396.18,247,3,779,0)"
^XMB(3.9,23,2,27978,0)="MVJX$.3JNW"":XEDS<PL;-ZHEO(3>RGB<E)VK<683RC5AW#$F;`1*,H.MP(T@D"
^XMB(3.9,23,2,27979,0)="""DATA"",396.18,247,3,780,0)"
^XMB(3.9,23,2,27980,0)="M0\@B%0QA#VL3)M5HF<4T3V*(Z=P0U3E#KW-#7.<,9>=.20&>B(WIGHWJGJ_7"
^XMB(3.9,23,2,27981,0)="""DATA"",396.18,247,3,781,0)"
^XMB(3.9,23,2,27982,0)="M/1O7/5_9O3JYP5-P,'US,'WS-(?.0?7-4P_=*4G#$_$PW?-0W;/TNN?ANF<A"
^XMB(3.9,23,2,27983,0)="""DATA"",396.18,247,3,782,0)"
^XMB(3.9,23,2,27984,0)="MIEV;&^*I^)C^H1R#IVE6<)[!4YN53CJ+H^)A+(N'LBS^4*M_'LZR]+#""_:N2"
^XMB(3.9,23,2,27985,0)="""DATA"",396.18,247,3,783,0)"
^XMB(3.9,23,2,27986,0)="MA3P!`],U`]4UO9G'(A5U33WS3AE'G@C&X7DHA^?;>MW#.;P>5J9[])]9&;M<"
^XMB(3.9,23,2,27987,0)="""DATA"",396.18,247,3,784,0)"
^XMB(3.9,23,2,27988,0)="M7G[?_I!%].ZX#0]DFFXB<GI>P?73;!5?]9)M>#'=QNM?R[W`FGU)WNX$],]C"
^XMB(3.9,23,2,27989,0)="""DATA"",396.18,247,3,785,0)"
^XMB(3.9,23,2,27990,0)="MG#/168W1T,78]$^,TN11-CM.`^.""4-C\F?[:;""L^1D58NHERN@R*-G\?D&VQ"
^XMB(3.9,23,2,27991,0)="""DATA"",396.18,247,3,786,0)"
^XMB(3.9,23,2,27992,0)="M`[=)HS(U2=:4;!@G)*0@67R@6*MD2;GW4OU*!@$='](@+!(""@[\51!)2_CRE"
^XMB(3.9,23,2,27993,0)="""DATA"",396.18,247,3,787,0)"
^XMB(3.9,23,2,27994,0)="MVVWZH:0:=V1;_!%3^1?/NVW)ASC9I!\N!N0[,GT.#W\QK+_27P?F!:FT@43A"
^XMB(3.9,23,2,27995,0)="""DATA"",396.18,247,3,788,0)"
^XMB(3.9,23,2,27996,0)="M^IGLZR94,#M,C\)D0Z(DIX%!`7R(?CN6O=F$><B1LBY(*4.2'1]WM&MY2L+U"
^XMB(3.9,23,2,27997,0)="""DATA"",396.18,247,3,789,0)"
^XMB(3.9,23,2,27998,0)="M.MI3+-MMA474U+X@J[0F1..0N.@JG5<U;QDEO(_""G&1YM,^(\3VQ+@;L:!9*"
^XMB(3.9,23,2,27999,0)="""DATA"",396.18,247,3,790,0)"
^XMB(3.9,23,2,28000,0)="M^""WS0U5VG1XV&?WW?1Q](.S[,CAGYM""[:DE8_/""S\[2M_?B)_#19S,GC,2]'"
^XMB(3.9,23,2,28001,0)="""DATA"",396.18,247,3,791,0)"
^XMB(3.9,23,2,28002,0)="M/'Q/Y192;@?=S?!BB)T*U2KZ6&[M3;]_*M9<AXJC#V%62E6!M.QNW5$\P\7,"
^XMB(3.9,23,2,28003,0)="""DATA"",396.18,247,3,792,0)"
^XMB(3.9,23,2,28004,0)="M_PP<XVA;GT]85DOZEF);4T6HQO'+"",WZC$*S(*'U+4U#M#8W8\!^@9LM*J-8"
^XMB(3.9,23,2,28005,0)="""DATA"",396.18,247,3,793,0)"
^XMB(3.9,23,2,28006,0)="M-;(%>-O5<\.;EA*5G?V2\Z3+7N]/:ANFY+J8,+LC-4>/S<0I,$=/Z2&JC4U>"
^XMB(3.9,23,2,28007,0)="""DATA"",396.18,247,3,794,0)"
^XMB(3.9,23,2,28008,0)="M&*_*1.W30]ZU+P6=1@O.T@9%[ZTOVOO^#,A^+S'P0_I[CM<YUN8/D6B?T1.9"
^XMB(3.9,23,2,28009,0)="""DATA"",396.18,247,3,795,0)"
^XMB(3.9,23,2,28010,0)="M5FV:&**?P&K;H;=8&5=7_8]S>&UU3WH@R^/A751L3$(Q(A\!E_L\O,@!Z/'@"
^XMB(3.9,23,2,28011,0)="""DATA"",396.18,247,3,796,0)"
^XMB(3.9,23,2,28012,0)="M;925G9-M-/?C5`3:'WY$X2T%0CI0]7X3$+\Q0CY_8TJP_]6'/AG[ZQ,UP^+9"
^XMB(3.9,23,2,28013,0)="""DATA"",396.18,247,3,797,0)"
^XMB(3.9,23,2,28014,0)="M`DNQ6A$5KL3N>1$(_FUZK/3V%)L]-Z^+D&V;KL,BAJ+JVH99W&C<1KO4O+B)"
^XMB(3.9,23,2,28015,0)="""DATA"",396.18,247,3,798,0)"
^XMB(3.9,23,2,28016,0)="MF_H<F%;WK^\XRC2:BY1$#/>%5*KY%V9I4FAV_FD?D?2)3M!2PZ7D6Z30C&Q>"
^XMB(3.9,23,2,28017,0)="""DATA"",396.18,247,3,799,0)"
^XMB(3.9,23,2,28018,0)="M=DPCTTK`<+=&[<U\>3];36[(Y.Z*W,RGD]5L?O=W4AB*_G#V(]ZKR2IHH;HC"
^XMB(3.9,23,2,28019,0)="""DATA"",396.18,247,3,800,0)"
^XMB(3.9,23,2,28020,0)="MT0=;!)/E_([,%V3U]CX@\VNR?%B\#A9O>VU;`?<;?RO_88+PKJ-H:^XH;J\="
^XMB(3.9,23,2,28021,0)="""DATA"",396.18,247,3,801,0)"
^XMB(3.9,23,2,28022,0)="M/$@"".C,1C(<@>+J.B,+#CE)OI0,^-=P.>7[F""&,ETQ(N(/M8'I)?D_1#(D=F"
^XMB(3.9,23,2,28023,0)="""DATA"",396.18,247,3,802,0)"
^XMB(3.9,23,2,28024,0)="M\\A`_CM""[4P[$0EF?>KW`CMR>;DN""C4AW6PK.`W0JK030=C.'$A-Q=D(6BT]"
^XMB(3.9,23,2,28025,0)="""DATA"",396.18,247,3,803,0)"
^XMB(3.9,23,2,28026,0)="M""P,+5,+\5[M&#Y+\$%/<(?7<129[4RP_""[O1*.K\[N8M^5`LKY?5\C3.Z&J8"
^XMB(3.9,23,2,28027,0)="""DATA"",396.18,247,3,804,0)"
^XMB(3.9,23,2,28028,0)="M-H\V`X%'9GR/*(_`J`,[4(?H^W0?)8K""+""B\AY:T[<_J$!YW(?\<=O@6Z/`M"
^XMB(3.9,23,2,28029,0)="""DATA"",396.18,247,3,805,0)"
^XMB(3.9,23,2,28030,0)="M@6>V$`[?U?;W%L;?""XI:JAEUVYW[OLC%GU.M@2H*@<=[*)J9B&Z)\U$X+7)?"
^XMB(3.9,23,2,28031,0)="""DATA"",396.18,247,3,806,0)"
^XMB(3.9,23,2,28032,0)="MJ$2GG[LHW6_#;""=Z#ZN5"":J5*5``$Q-'.F""73F4U8[J\RJ*\V_`F?""Q*[MR+"
^XMB(3.9,23,2,28033,0)="""DATA"",396.18,247,3,807,0)"
^XMB(3.9,23,2,28034,0)="M(""G65D""L52B,;?+O9>IJHL)30:%6NZ??WS1@!#!@W%>5<^&?&X+G5O<Y/T-,"
^XMB(3.9,23,2,28035,0)="""DATA"",396.18,247,3,808,0)"
^XMB(3.9,23,2,28036,0)="M^+$%/C:'<HFR/>-$VI^J7>=GFZ*I>D[]%JI,C)FJ4JT=OT1I/[ONO8/G%8+N"
^XMB(3.9,23,2,28037,0)="""DATA"",396.18,247,3,809,0)"
^XMB(3.9,23,2,28038,0)="M9QHAJ>A<<,*[W;JWL:*10,ZRN5%V=F0U7>%F6?G>]H3OJ[DB>VLJVL+SKSM?"
^XMB(3.9,23,2,28039,0)="""DATA"",396.18,247,3,810,0)"
^XMB(3.9,23,2,28040,0)="M9:;$1>A0AWU&@?K\`2\M;>9%`M7I1+6GI#,$IN*MR,@)NLYV`F'3V3YT@N\_"
^XMB(3.9,23,2,28041,0)="""DATA"",396.18,247,3,811,0)"
^XMB(3.9,23,2,28042,0)="M;4?`J,,>RA+((J\D##=L'6QG1AG-1M-R'ZWCIWA-^.""BCGU<&3<>Q`S0)<-D"
^XMB(3.9,23,2,28043,0)="""DATA"",396.18,247,3,812,0)"
^XMB(3.9,23,2,28044,0)="ML=0,%/M:8`L?T^#KK^[3_7$;YM$TW3VF/\?Y<PU6[L(5&E<\+VI[\:`F.[S&"
^XMB(3.9,23,2,28045,0)="""DATA"",396.18,247,3,813,0)"
^XMB(3.9,23,2,28046,0)="M2+S#R7[R=U+UAC""8/F+;M2F6K!R/3^5BJ=D>7!\/ARC)MY^8;<$+:?ZS4/(1"
^XMB(3.9,23,2,28047,0)="""DATA"",396.18,247,3,814,0)"
^XMB(3.9,23,2,28048,0)="MACC[Y#LR($#*IT@NR2D6OLN#DTOGD5S'A_5QE^5ALBX6D\F&Q$F<Q^&6[,(D"
^XMB(3.9,23,2,28049,0)="""DATA"",396.18,247,3,815,0)"
^XMB(3.9,23,2,28050,0)="MSIZBHL*MW(=-JQWA39Q%8:9@LZ[V%B35\0S__!R6Z]:2T_1XH.O@+""X^)*0,"
^XMB(3.9,23,2,28051,0)="""DATA"",396.18,247,3,816,0)"
^XMB(3.9,23,2,28052,0)="M1;F<!T'-^1E<3`[E]C/];ZTF)#]$8;ZCOV7G\<#LLLC`[M*DWCP!EYBB?8NS"
^XMB(3.9,23,2,28053,0)="""DATA"",396.18,247,3,817,0)"
^XMB(3.9,23,2,28054,0)="MNE=NM$?EYV/E>*N[>]IB$>RU]*A!.<DN@+PUN^?1^>+Y?C%_=1/<MCE""QC(P"
^XMB(3.9,23,2,28055,0)="""DATA"",396.18,247,3,818,0)"
^XMB(3.9,23,2,28056,0)="M+'/M.W_4F<HB\3B_6P:K7F)S=`ZZZ6PQ?;A=KB9WTV!9)DUG=[/5;')#;B=W"
^XMB(3.9,23,2,28057,0)="""DATA"",396.18,247,3,819,0)"
^XMB(3.9,23,2,28058,0)="ML^N`OBDRJ,N""TBG#Z7$)3A2M^<-B&9#EC-)B^(>GI"";ZA\4BN%N1U2*8K&[I"
^XMB(3.9,23,2,28059,0)="""DATA"",396.18,247,3,820,0)"
^XMB(3.9,23,2,28060,0)="M;\L6O4B%>P0ZN;41FQI3T;X-KF95KKG*#!>""O)HOF9PR13N[HV*&MP%/]*VA"
^XMB(3.9,23,2,28061,0)="""DATA"",396.18,247,3,821,0)"
^XMB(3.9,23,2,28062,0)="M+OWYZDVP@'K>H,/1-<ZC2Q5\&EP]+`*&KB&EBS(9:$Z6LZN`!-?7P72U+.8'"
^XMB(3.9,23,2,28063,0)="""DATA"",396.18,247,3,822,0)"
^XMB(3.9,23,2,28064,0)="MIPVGZ2<E*.6U7+#KRN@J6$X7LU>%XI]8[&\8U""@1Q+6I<W(@RX?;VPF[96&`"
^XMB(3.9,23,2,28065,0)="""DATA"",396.18,247,3,823,0)"
^XMB(3.9,23,2,28066,0)="M,QK@P-=E8')U-2LF!C4IT_DMKYT^OUE"">K1[VQ].!3WNTSA[9Z6?_S""XF%,6"
^XMB(3.9,23,2,28067,0)="""DATA"",396.18,247,3,824,0)"
^XMB(3.9,23,2,28068,0)="M]//0;9JI9^#YI<<(6@-""%K`/(K!BP%K2,(:23$0-8JA!3$4^@UHT.8`U5`$8"
^XMB(3.9,23,2,28069,0)="""DATA"",396.18,247,3,825,0)"
^XMB(3.9,23,2,28070,0)="MJ(R(.0(?6T/XL0$^]L&G7F_55)<.?*QS*>)/`Z6Q$3`DML.O4OEDH`$_%J8P"
^XMB(3.9,23,2,28071,0)="""DATA"",396.18,247,3,826,0)"
^XMB(3.9,23,2,28072,0)="M+5-)UQ""NCCE4TH1.1Z?&*HT:J_1)(H/.4-_""0WW+#?675TE4Y/S#C_IQLT!'"
^XMB(3.9,23,2,28073,0)="""DATA"",396.18,247,3,827,0)"
^XMB(3.9,23,2,28074,0)="M&HNB'*L&$!_:M[25*Y&J-J>L7.B%[4)FT=S*S!4'PPUK""\&%]Y^M]P7H']/]"
^XMB(3.9,23,2,28075,0)="""DATA"",396.18,247,3,828,0)"
^XMB(3.9,23,2,28076,0)="M5B41:BVTE%]0,E0OYL6""C(Y""O>[ZTM(Q5,IA#7]_Y?@#90!KB#5$:DAE27\/"
^XMB(3.9,23,2,28077,0)="""DATA"",396.18,247,3,829,0)"
^XMB(3.9,23,2,28078,0)="M#:$1VCK:'`_1EY:.J=00XX_2D#]$!@(-,;`:8L#B48^[TJ^=R**#$*#0Z'<-"
^XMB(3.9,23,2,28079,0)="""DATA"",396.18,247,3,830,0)"
^XMB(3.9,23,2,28080,0)="MDUX0W""""L_+])_*-:A'#Y+XR2L$DY<GF)/9KC\K)I=%J6U4=+59&[ZFPI;,*R"
^XMB(3.9,23,2,28081,0)="""DATA"",396.18,247,3,831,0)"
^XMB(3.9,23,2,28082,0)="MV1P4J8O(XIP`2`=$._>!(`]/]CY]=K9STZ9E3/^8KDX9=&\<QG_.82#_\>/0"
^XMB(3.9,23,2,28083,0)="""DATA"",396.18,247,3,832,0)"
^XMB(3.9,23,2,28084,0)="MJX<RA$F*IKKOE7#/BJT,;)M,!K+=)IUFW6SR*:6$:0FGC""6TB?X&B)2-1F:]"
^XMB(3.9,23,2,28085,0)="""DATA"",396.18,247,3,833,0)"
^XMB(3.9,23,2,28086,0)="ME^2T?5#NZ3V'[R.R#P_EIE6</*6'75A]=[C?%CM5Y""E.XNRY**1>%PI!\N<X"
^XMB(3.9,23,2,28087,0)="""DATA"",396.18,247,3,834,0)"
^XMB(3.9,23,2,28088,0)="MZP(VWS]4<,WG#]71:YVU"":LWLA/IL%O%W!9Q7;PIJ$6K%&XDW;O6^XC*T\`E"
^XMB(3.9,23,2,28089,0)="""DATA"",396.18,247,3,835,0)"
^XMB(3.9,23,2,28090,0)="M[!QY,UNNYHNWI/RC.<II^6FWS]-=^W%L\QQR'OPQ3>#W$X[0:$E.N>,+E(""#"
^XMB(3.9,23,2,28091,0)="""DATA"",396.18,247,3,836,0)"
^XMB(3.9,23,2,28092,0)="MHS!?;SC*&B4!>38$`.C+$T>&*]W""9(!]#6#+T`&V=-@8Z0![&L#F4(=G1P=8"
^XMB(3.9,23,2,28093,0)="""DATA"",396.18,247,3,837,0)"
^XMB(3.9,23,2,28094,0)="M1\Z6#L^6#0+SZX).W7P=TUJ27-D9IZ=)J]T$?>J&KM`B2,TPV%$M5AJ/@63["
^XMB(3.9,23,2,28095,0)="""DATA"",396.18,247,3,838,0)"
^XMB(3.9,23,2,28096,0)="M+GH?'09LW&VJ$_(6*EMNF:K:;^@X$""5/4)U4GR7$KHEE*4X+L/1/""[!U48IJ"
^XMB(3.9,23,2,28097,0)="""DATA"",396.18,247,3,839,0)"
^XMB(3.9,23,2,28098,0)="MIDAS\![K'IKGX-K""Q[@'R\>Y!QOG'AP]]V#Y2/=@(]V#(W,/=13I]8N/>#6U"
^XMB(3.9,23,2,28099,0)="""DATA"",396.18,247,3,840,0)"
^XMB(3.9,23,2,28100,0)="M((M4?5:*LUXEK*T!:PQU@`T=8%,'6(=G9Z0![%DZ;""B`F]6`!U:1-:\=\&B"""
^XMB(3.9,23,2,28101,0)="""DATA"",396.18,247,3,841,0)"
^XMB(3.9,23,2,28102,0)="M,TZRA.V%=[&63FY;WUXXNBBE]B(BQ>F9Y9?$]<JD.$P3M!0CE*48X2R%A[,4"
^XMB(3.9,23,2,28103,0)="""DATA"",396.18,247,3,842,0)"
^XMB(3.9,23,2,28104,0)="MHXOW6I9BA+04'M)2C""26HEV`R2=/Y6G4B2L;YQUMB`-X*O0/&$*?DLIHLJB;"
^XMB(3.9,23,2,28105,0)="""DATA"",396.18,247,3,843,0)"
^XMB(3.9,23,2,28106,0)="M;=1PK1!&F4I62`3XSJ$G$';LKU6<88B^=!C82$$MBM^'(:8>6W7""D:=O@T:Z"
^XMB(3.9,23,2,28107,0)="""DATA"",396.18,247,3,844,0)"
^XMB(3.9,23,2,28108,0)="M*,4V:#5KPY35##0\_.&XT-2WASC#XZ,,3^^X7H3AL8=(P^/C#$^/OBA$H<AD"
^XMB(3.9,23,2,28109,0)="""DATA"",396.18,247,3,845,0)"
^XMB(3.9,23,2,28110,0)="MKLT825_3M9[TM2'UC,A#D&&-5$71OK9&VJ8N2J%&=HY<;DU@YQ1F4$,-E(8:"
^XMB(3.9,23,2,28111,0)="""DATA"",396.18,247,3,846,0)"
^XMB(3.9,23,2,28112,0)="M.`T=X314,\=B&T@-'2$U%)]CL3&&T)95=+5*:<EUUH1?][FQ,-R8&&YL##D;"
^XMB(3.9,23,2,28113,0)="""DATA"",396.18,247,3,847,0)"
^XMB(3.9,23,2,28114,0)="M%:::X.*XW5+BNH#B3@.CK4Z%Z)Y%+LU!V""8^!V&;JHD#J)""@JM&T]+[<M;&?"
^XMB(3.9,23,2,28115,0)="""DATA"",396.18,247,3,848,0)"
^XMB(3.9,23,2,28116,0)="M3V+U5UO)^U$&5D""_/X.""<;9$8R>>;WW[#>HS`R+69>6QW+8E'&""U1<!,.;G1"
^XMB(3.9,23,2,28117,0)="""DATA"",396.18,247,3,849,0)"
^XMB(3.9,23,2,28118,0)="MP,]&#>L"">UU5HFFD>W:F[>AB%.]S5'<.-/CK&PA`7XO:S[!Q^QG,G3A""7^MJ"
^XMB(3.9,23,2,28119,0)="""DATA"",396.18,247,3,850,0)"
^XMB(3.9,23,2,28120,0)="MG9IJ.RJ5$A!GAKHE_IYSM+`RN+(4<ZW&([%JE>L(!WB_YE8;#J#8#JC8S5M7"
^XMB(3.9,23,2,28121,0)="""DATA"",396.18,247,3,851,0)"
^XMB(3.9,23,2,28122,0)="M%DYJW#@AMS:NT-H$(B'T%9>3@=J`N.+1#EXJ^2DH>6@NNO*TD%#3JZD8`1@]"
^XMB(3.9,23,2,28123,0)="""DATA"",396.18,247,3,852,0)"
^XMB(3.9,23,2,28124,0)="M^>P6JR\_NQ=1<01K?<]'0Z:Y]@.<Y1YJEGNX66[@9KFOEVRR/5Q$;1K(B-K'"
^XMB(3.9,23,2,28125,0)="""DATA"",396.18,247,3,853,0)"
^XMB(3.9,23,2,28126,0)="M1]0^PN$[*(?OXX`0@:ZL=HL#E>2KSKD61FX5?%S\Z&#B1U\""(Y:'VHKXR#CS"
^XMB(3.9,23,2,28127,0)="""DATA"",396.18,247,3,854,0)"
^XMB(3.9,23,2,28128,0)="MWVU4(5OE*RR+H1V)C!36ST#;JO9NH(;""Z;(@R%`YJ.24@TM.F2;*4#E#O:6_"
^XMB(3.9,23,2,28129,0)="""DATA"",396.18,247,3,855,0)"
^XMB(3.9,23,2,28130,0)="M@TQ.F2;.4#E#M*%R,""L3QU/E0%U<#M05\X%9]#O*ZE,/QX?'&S.]*Z>DYLPQ"
^XMB(3.9,23,2,28131,0)="""DATA"",396.18,247,3,856,0)"
^XMB(3.9,23,2,28132,0)="M44NJGE2!(,<5+H0Q1$7+)'`L54,)CZ1<""+AUI:.(]#P](2#7BHXJU/-00O""$"
^XMB(3.9,23,2,28133,0)="""DATA"",396.18,247,3,857,0)"
^XMB(3.9,23,2,28134,0)="MYWXK4OJF_J4%SE`7)623256G5EYVUAZ`6MY\!MI.&V4[;9SMQ)6F.9J)?<=&"
^XMB(3.9,23,2,28135,0)="""DATA"",396.18,247,3,858,0)"
^XMB(3.9,23,2,28136,0)="MVDYD:9J#2>R;(X1G=AR$27,Q^1SI'E0'""%C`:=]NQQQMK.Q26[HL[I8@4@/V"
^XMB(3.9,23,2,28137,0)="""DATA"",396.18,247,3,859,0)"
^XMB(3.9,23,2,28138,0)="M%QN]1Y`6QE]?2J+0G%3LDYCZU4:.J8M2N$]273'8&LKJPD%PFC,+9-%,<W'S"
^XMB(3.9,23,2,28139,0)="""DATA"",396.18,247,3,860,0)"
^XMB(3.9,23,2,28140,0)="M'%=CY&ANCS@N<IXC:XP<&U,YX&#601IW.<+>0I&F,_6+4!Q;%Z5(C=J+(Z\^"
^XMB(3.9,23,2,28141,0)="""DATA"",396.18,247,3,861,0)"
^XMB(3.9,23,2,28142,0)="M94_'I+?MUKX#M0J5(7""0&0('IU2NIE)A,P0.4JE<A/.P3.D>F05OH57&S5.?"
^XMB(3.9,23,2,28143,0)="""DATA"",396.18,247,3,862,0)"
^XMB(3.9,23,2,28144,0)="MO`!>(L>`F&H02P)2!C\C7*@]@J:5B_"",GJ,Z[G*(.^YRR,]8K=M0V3!7/HQ_"
^XMB(3.9,23,2,28145,0)="""DATA"",396.18,247,3,863,0)"
^XMB(3.9,23,2,28146,0)="MBG$""AZ$?-S.]8+;W^#Y61U`/9%H`5O!Z0R4$<*/;YY$#,_7Y3E4?T;)W#'SI"
^XMB(3.9,23,2,28147,0)="""DATA"",396.18,247,3,864,0)"
^XMB(3.9,23,2,28148,0)="M/B(&&T;R@CZNPV,6_1EZAA@^V'`#""MO123&0>(R5C4Y""$UHVA$U$F0:45%%R"
^XMB(3.9,23,2,28149,0)="""DATA"",396.18,247,3,865,0)"
^XMB(3.9,23,2,28150,0)="M11D(X=%UHMI""Q,X5:+#[$*YZ^]6RY$MST.K+72CH$GK64-3-OE64""*/]Z%C/"
^XMB(3.9,23,2,28151,0)="""DATA"",396.18,247,3,866,0)"
^XMB(3.9,23,2,28152,0)="MTVE@E$@0)4*UYU3$(7+'JI8CHD.BA:*R)$0B1T&=J><H#O$>ZGUXXB@*R<41"
^XMB(3.9,23,2,28153,0)="""DATA"",396.18,247,3,867,0)"
^XMB(3.9,23,2,28154,0)="MI#B&=Q4QO(/*^)1KP>(R]N)TVF[P7MS/#@;NJ""].A#>P]WET<7&[+_9]4\LI"
^XMB(3.9,23,2,28155,0)="""DATA"",396.18,247,3,868,0)"
^XMB(3.9,23,2,28156,0)="MD/_S7V__1W7TMO@&=P53@FC>QT3SMCR:=R11HJ^.$GT#*""Y@0$Q%J&[C3D&S"
^XMB(3.9,23,2,28157,0)="""DATA"",396.18,247,3,869,0)"
^XMB(3.9,23,2,28158,0)="MC7:;N8V3""QT9(U2$C9'IF-6JU9=#QU:7PPI!,%X9K%J0R""]CQ/>3J#9#(CV5"
^XMB(3.9,23,2,28159,0)="""DATA"",396.18,247,3,870,0)"
^XMB(3.9,23,2,28160,0)="M\$#9B=8)CC3""=C""1BJI-&ZC\B<4CO)&0'V@N^A)WJSV60=TO2<<@!P#M-<,="
^XMB(3.9,23,2,28161,0)="""DATA"",396.18,247,3,871,0)"
^XMB(3.9,23,2,28162,0)="M0_8'#$%?U#,P(-<S!ZB>21V?:J^8,[:YZG+3D2Y&T)42]NR!TA'>/W_*RALA"
^XMB(3.9,23,2,28163,0)="""DATA"",396.18,247,3,872,0)"
^XMB(3.9,23,2,28164,0)="M@X_ACH=@SN`<RIVZH&8=.J#>T,0DO7R*N0,<B%D)[>K/4?SN.2\.)$W*>R@1"
^XMB(3.9,23,2,28165,0)="""DATA"",396.18,247,3,873,0)"
^XMB(3.9,23,2,28166,0)="M;8&XLU5GJ9M3.$%$N&FK7*&C_(#9L91'*ZIZ?Y-FV<OZ)XAA];H'3>S/T+O7"
^XMB(3.9,23,2,28167,0)="""DATA"",396.18,247,3,874,0)"
^XMB(3.9,23,2,28168,0)="M89SHCZWNZ(',ZPV>-.!6]?(_2'L[AQ]=7JYH<!8=DBAK*U^J)V`0[Z*^>'%Q"
^XMB(3.9,23,2,28169,0)="""DATA"",396.18,247,3,875,0)"
^XMB(3.9,23,2,28170,0)="M7[R8N&^R7$LO^^XBOW@QD=]DN;A<J&WS"">%:DF.$($$OZ-J*Y9_^%U.T-YHH"
^XMB(3.9,23,2,28171,0)="""DATA"",396.18,247,3,876,0)"
^XMB(3.9,23,2,28172,0)="M15LX]X>TN,FBK>ML_H85QT0ICHE:_>&^E'(UCQMP3=PR#_FAE.O@U,;B0JV1"
^XMB(3.9,23,2,28173,0)="""DATA"",396.18,247,3,877,0)"
^XMB(3.9,23,2,28174,0)="MK-2OS4G(+52%6OUQ3SMH8\28B;)XGCJ+!_9)Q2LH+""03@AR;)_ED^`LQ+$HJ"
^XMB(3.9,23,2,28175,0)="""DATA"",396.18,247,3,878,0)"
^XMB(3.9,23,2,28176,0)="M>=BDTLA0))64/JYG`%05XR-]F^+HHA3:E""@Y56""6?\#6!%5]Z0XQUL3""?0OB"
^XMB(3.9,23,2,28177,0)="""DATA"",396.18,247,3,879,0)"
^XMB(3.9,23,2,28178,0)="M&IK69(BR)M80:4T,G#5QX<>.^#Y)W'$:EO0[CFJDQHB!@MV<(LMI#?55TM!%"
^XMB(3.9,23,2,28179,0)="""DATA"",396.18,247,3,880,0)"
^XMB(3.9,23,2,28180,0)="M*5+)5]OB+N!#B[[Z$U9+5&&;:Z/4$O?Q@NMKJJ6-4TODMPNNCU-+#_)@F(\9"
^XMB(3.9,23,2,28181,0)="""DATA"",396.18,247,3,881,0)"
^XMB(3.9,23,2,28182,0)="M1KYJT\%3.[EFS,:((1.Y%Q_AXWR%RT""5?]J>:!?)1WDX'WTHQGFR%8RNP,GY"
^XMB(3.9,23,2,28183,0)="""DATA"",396.18,247,3,882,0)"
^XMB(3.9,23,2,28184,0)="M:""?G*YR<I[=SXBH^#;`,?9OBZZ(4V91)<FR]7/$[;$U07SRZ#LJ:X+XPD-5,"
^XMB(3.9,23,2,28185,0)="""DATA"",396.18,247,3,883,0)"
^XMB(3.9,23,2,28186,0)="ME(/@ZWU%[3HX:X/\`,%#.D%?QK;`1I3#,$:,`JAMGJE0#?W*;,_012G2MH=#"
^XMB(3.9,23,2,28187,0)="""DATA"",396.18,247,3,884,0)"
^XMB(3.9,23,2,28188,0)="ME#\?PM.Q<.6?L,ZAJNM<#Z5SN,ILJ$:C-W@C39WS<#J'+-Q&5D+9(QG;8&;&"
^XMB(3.9,23,2,28189,0)="""DATA"",396.18,247,3,885,0)"
^XMB(3.9,23,2,28190,0)="M''J8=1[JF[EF3,>((15YN)'2P\$<JSH-R@K)A,#'C;`^3BYC\3C!XROP<2.D"
^XMB(3.9,23,2,28191,0)="""DATA"",396.18,247,3,886,0)"
^XMB(3.9,23,2,28192,0)="MC^LSHZ?JL-51I(<L_4)QS])%*5[*%<?,'7>GU5SU-VQW4,4!+JHXP,)5BGM\"
^XMB(3.9,23,2,28193,0)="""DATA"",396.18,247,3,887,0)"
^XMB(3.9,23,2,28194,0)="M>DAE67!U`!:R5-S#)8@<`UIOU;(<(T0)JXXB""V#I%X=[CBY*X3<&P2;:M?ZJ"
^XMB(3.9,23,2,28195,0)="""DATA"",396.18,247,3,888,0)"
^XMB(3.9,23,2,28196,0)="M_`/6&M31A""[N:$(+5PON>5IG0K@CU)D0EH,Z$Z)'7&A?'1,H32Z%.$;($%87"
^XMB(3.9,23,2,28197,0)="""DATA"",396.18,247,3,889,0)"
^XMB(3.9,23,2,28198,0)="MQ7:LI5^'Y*D6_0Y:7591EL?K;73:P*C^!I7&0^6./%SN""%>'Y`^U=,83IH[D"
^XMB(3.9,23,2,28199,0)="""DATA"",396.18,247,3,890,0)"
^XMB(3.9,23,2,28200,0)="MM$&5\8<HE1F""3RWPJ0T^=?JA@#.4APJ.HB#3L17O'77!IFW)CB:QP1-Y3M<K"
^XMB(3.9,23,2,28201,0)="""DATA"",396.18,247,3,891,0)"
^XMB(3.9,23,2,28202,0)="M#&7QT`G,4(=-QDA1PFJ:0R6$H80PU:N<=F:,$1-#%*-QDCFKQZ@*'X%>VIJZ"
^XMB(3.9,23,2,28203,0)="""DATA"",396.18,247,3,892,0)"
^XMB(3.9,23,2,28204,0)="M9DOV0!6=$T2@QA!?K*LXOQF#4W0%""-_B-LSXKQ?[XP%$GLX070L+""0A!%(J]"
^XMB(3.9,23,2,28205,0)="""DATA"",396.18,247,3,893,0)"
^XMB(3.9,23,2,28206,0)="M'=RG-LY02P*""X-M4[*(X]HM$@*$*R@!WSJMCJXOI.5/$STN$G3%1\])""^0!+"
^XMB(3.9,23,2,28207,0)="""DATA"",396.18,247,3,894,0)"
^XMB(3.9,23,2,28208,0)="MWX9C.R>:EX;&O#20\]+0GI<&<EZ:BL.0'7R-.B0@!%%0)W$W-CB6E@1$,\14"
^XMB(3.9,23,2,28209,0)="""DATA"",396.18,247,3,895,0)"
^XMB(3.9,23,2,28210,0)="MB,!YD0@P5$$9.#@9./Q1C4R<JZ@[M%SMT-E7%!`*PU)@I17OXTV\^;0[;;L&"
^XMB(3.9,23,2,28211,0)="""DATA"",396.18,247,3,896,0)"
^XMB(3.9,23,2,28212,0)="M^Q@.G%&U/YZ!""IQQY\#[AE[@;*`""9P\7.!NHP-D%GWK@4Q]\.F*,HJLPFHH<"
^XMB(3.9,23,2,28213,0)="""DATA"",396.18,247,3,897,0)"
^XMB(3.9,23,2,28214,0)="MG*/8A8(.*>$LGHF+?2UU[&MZ2H_CJR`L9>QK(6+?0J_'""+46>B!3Z5[/9!36"
^XMB(3.9,23,2,28215,0)="""DATA"",396.18,247,3,898,0)"
^XMB(3.9,23,2,28216,0)="M""5A_%"".IT@1LYT3N%2K0VARWD5P4_`D\CO""4-(+@#$,3J?JP\)&\C`750Z9E"
^XMB(3.9,23,2,28217,0)="""DATA"",396.18,247,3,899,0)"
^XMB(3.9,23,2,28218,0)="MRGOOOZ3W""))8NP#JF""K,M-1AYGF37L>ZOM!B8CLGF@<6=AZ8\N.X'!>M""19Z"
^XMB(3.9,23,2,28219,0)="""DATA"",396.18,247,3,900,0)"
^XMB(3.9,23,2,28220,0)="M'I@J%^%BA8_D13@/H&,312.CW7L$2:S_!'5,&M;YBA-U+/WK-7S5CB_^>HUE"
^XMB(3.9,23,2,28221,0)="""DATA"",396.18,247,3,901,0)"
^XMB(3.9,23,2,28222,0)="M5-RTN24_15DW,=H\!L,[5(6NQSE!*+K#%7;[FF?U4-H99O\%6=?MVZC]%Q?8"
^XMB(3.9,23,2,28223,0)="""DATA"",396.18,247,3,902,0)"
^XMB(3.9,23,2,28224,0)="M?VGD.$:(L1V6N#O4JFTV7&%W#Z6MBU*D/=^*?B97-Z2ZVS>#7C/5,K)[4""WH"
^XMB(3.9,23,2,28225,0)="""DATA"",396.18,247,3,903,0)"
^XMB(3.9,23,2,28226,0)="M3E7H`R?@P*'ZAM<M-0S=2WA`E5&?KLI<A&GT5&PLNS/3Q(-:>%`;#^K@05T\"
^XMB(3.9,23,2,28227,0)="""DATA"",396.18,247,3,904,0)"
^XMB(3.9,23,2,28228,0)="MJ(<']?&@(S2H-42#NAK=,H07W7/#B@2TL(`V%M#!`KI80`\+Z&,!1TC`TU%X"
^XMB(3.9,23,2,28229,0)="""DATA"",396.18,247,3,905,0)"
^XMB(3.9,23,2,28230,0)="M""D`7Z`QGA-GJ&G5QC:3D2^!>E*=%""S5*>AYT1Z'D<!82SD;"".4@X%PGG(>%\"
^XMB(3.9,23,2,28231,0)="""DATA"",396.18,247,3,906,0)"
^XMB(3.9,23,2,28232,0)="M)-P(!]=1)""F<*^P'JS#0EX2FN+*1\4C\\?@UGJN/=0*D^3L.WR5I5A;&%X]/"
^XMB(3.9,23,2,28233,0)="""DATA"",396.18,247,3,907,0)"
^XMB(3.9,23,2,28234,0)="M=\?;]=WQ_7Q)U;ZX?WUWS'(2)7GQ=?=S1#8-HHL!^:[X\/;P%\/Z*^,OX4OA"
^XMB(3.9,23,2,28235,0)="""DATA"",396.18,247,3,908,0)"
^XMB(3.9,23,2,28236,0)="M`0K5O]^!E*+*N1>?DQ=_KE-*H;SWI_C_>GW<ET=]T,`G7.?Q>_HJDO*DFE]"""
^XMB(3.9,23,2,28237,0)="""DATA"",396.18,247,3,909,0)"
^XMB(3.9,23,2,28238,0)="MUJY2*IT^!Q5KY)@=*?E-&&\_=9CX;Y"")>I93E,TJKKWFOGS,A9OM""!)H""*]F"
^XMB(3.9,23,2,28239,0)="""DATA"",396.18,247,3,910,0)"
^XMB(3.9,23,2,28240,0)="MD]=W\^5L^7=2D&/&LDN_O!#P6&TT/Q;W`?9.:H""0]_ZD`KA?S%_=!+=DLES."
^XMB(3.9,23,2,28241,0)="""DATA"",396.18,247,3,911,0)"
^XMB(3.9,23,2,28242,0)="MI[/)*K@B/\]6;\CJ34!X/MKS8RM""/5;:$YD05%\'=\%B<D/FT^G#_60UF]_1"
^XMB(3.9,23,2,28243,0)="""DATA"",396.18,247,3,912,0)"
^XMB(3.9,23,2,28244,0)="M/X+KZV""Z:FG!>L;UO@6TX?4TAIW5F]F2]G8Y>36[F:W>?K,DL]O[R71%YG=]"
^XMB(3.9,23,2,28245,0)="""DATA"",396.18,247,3,913,0)"
^XMB(3.9,23,2,28246,0)="M%NFSV4^SU2Q8LFS:$C;[ETK"")W/JL+L(E@\WJ]G=:_+S?/$/4@\ARY&#YJC0"
^XMB(3.9,23,2,28247,0)="""DATA"",396.18,247,3,914,0)"
^XMB(3.9,23,2,28248,0)="M+F-8JY<.(W.J)8MZW)888?4HG:T]DT50Z""?];TOZNE381IDI)P_+!\K""U61V"
^XMB(3.9,23,2,28249,0)="""DATA"",396.18,247,3,915,0)"
^XMB(3.9,23,2,28250,0)="M\Q9B1&HP`!WC/'+;8*4Y>&3Z9KX0<F(:Z%'CG/_Y+""W?S._OJ3Z)F#+/9<IZ"
^XMB(3.9,23,2,28251,0)="""DATA"",396.18,247,3,916,0)"
^XMB(3.9,23,2,28252,0)="M`5/!OX+%=+8,1$Q9YS+U`D-!EO?SQ4HX>/:9++GN""UA:!--%4,XY`5LL=KRD"
^XMB(3.9,23,2,28253,0)="""DATA"",396.18,247,3,917,0)"
^XMB(3.9,23,2,28254,0)="M7F""CR&HQ^2FXD2B5<R97UO`%7%T'P968)Q8U7E*C%_#T:D+]CUA.HW-Y\E_`"
^XMB(3.9,23,2,28255,0)="""DATA"",396.18,247,3,918,0)"
^XMB(3.9,23,2,28256,0)="MTQ4U44L)4_ZY3'DO4:GY[""982;CRSN7J)?/O]6(^OY4PY6KYX=$%G3/!4G.T"
^XMB(3.9,23,2,28257,0)="""DATA"",396.18,247,3,919,0)"
^XMB(3.9,23,2,28258,0)="M@N5T,7L5D-(A]]UM@U!!USJ#[N3J:E;[^NG\]C:X6_5)6S+2O4QYNTQA27PK"
^XMB(3.9,23,2,28259,0)="""DATA"",396.18,247,3,920,0)"
^XMB(3.9,23,2,28260,0)="M^>F'XDS.U0#*SHE@O23]],$0I1?9$()/$.$3?_B\'S[MA\_ZX9-^^)P?/N6'"
^XMB(3.9,23,2,28261,0)="""DATA"",396.18,247,3,921,0)"
^XMB(3.9,23,2,28262,0)="MS_CA$W[X?!\^W=<LXJ%ER1B\D;!<)%6O^`L.H8<CZ*&MET/^?U7ZMU$E9>(8"
^XMB(3.9,23,2,28263,0)="""DATA"",396.18,247,3,922,0)"
^XMB(3.9,23,2,28264,0)="MFS?&IHVQ66-LTAB;,\:FC+$98VS""&)LO1J:+Y6EA55*8\2YP>J/:+[TQVDP1"
^XMB(3.9,23,2,28265,0)="""DATA"",396.18,247,3,923,0)"
^XMB(3.9,23,2,28266,0)="M""/;#CX-E_""Z)G^)UF.3-3EFO]A#*2O2W+<`TP;AS5O)MQP@9PVY+8SPH.\47"
^XMB(3.9,23,2,28267,0)="""DATA"",396.18,247,3,924,0)"
^XMB(3.9,23,2,28268,0)="MI@JLHXI;BK!PKL#WIJ4X3R/;""(?MINA]M5&O:.Y(FY\N%&-?U]D,46-C+!*("
^XMB(3.9,23,2,28269,0)="""DATA"",396.18,247,3,925,0)"
^XMB(3.9,23,2,28270,0)="MZ""A*C8U,P?F*\.;D:0DQ.RG9;;29W_^RB'X[1AE]4QR\7IRZ6#S>DT/[>%T>"
^XMB(3.9,23,2,28271,0)="""DATA"",396.18,247,3,926,0)"
^XMB(3.9,23,2,28272,0)="MO[BI3F9'(*]W,PCP4^$XY48']U3-LH@\1L69HA')4Q(GZ^UQ$Y&PX*,\YW*^"
^XMB(3.9,23,2,28273,0)="""DATA"",396.18,247,3,927,0)"
^XMB(3.9,23,2,28274,0)="MCY,X32X&WS6QWNF7P>HY(M_<ADF!;17M]MLPC[)OR#&/MW'^B3REQV1#CN71"
^XMB(3.9,23,2,28275,0)="""DATA"",396.18,247,3,928,0)"
^XMB(3.9,23,2,28276,0)="M:$62]YOYODCQ4HC'4N`DS,OGCRG]:]<DH[/U(8H20I6UX.R842%0SL+-AN>*"
^XMB(3.9,23,2,28277,0)="""DATA"",396.18,247,3,929,0)"
^XMB(3.9,23,2,28278,0)="MY#71BT'3O>8$XOIL5$C28Y40B^8E'E+MDW_?_A33@RRB=\=M>""#3E$KJ]*XZ"
^XMB(3.9,23,2,28279,0)="""DATA"",396.18,247,3,930,0)"
^XMB(3.9,23,2,28280,0)="M9X\.T4V8Y8MC,C::*19\C//Y/RA=HQ=X%US-*H$73`TK!.>,<JLW'\+LI#NM"
^XMB(3.9,23,2,28281,0)="""DATA"",396.18,247,3,931,0)"
^XMB(3.9,23,2,28282,0)="MSMP&5Y04<YFG$&&C)B(^#4[0E`0,2>""?'KN[Z$#UFVI>EVXEL;$(01_7_-="""
^XMB(3.9,23,2,28283,0)="""DATA"",396.18,247,3,932,0)"
^XMB(3.9,23,2,28284,0)="M0:*/Q4Q$<C;$<'8W7_'<M9.GV%4Y35->-0OMI-I\6NSDX6-O#Z7_:S,9J;Y7"
^XMB(3.9,23,2,28285,0)="""DATA"",396.18,247,3,933,0)"
^XMB(3.9,23,2,28286,0)="M<^4+32OE5""H@\F?*[^LHB?/T2*U>>/A$Q1ON3K/L<XY2-=.(COGL*K],]_68"
^XMB(3.9,23,2,28287,0)="""DATA"",396.18,247,3,934,0)"
^XMB(3.9,23,2,28288,0)="M9-@D%-^'B""31>RKG,""N6LD_IH9+<?-]R7O#=.6>S^=__`5!+`P04``(`""`!I"
^XMB(3.9,23,2,28289,0)="""DATA"",396.18,247,3,935,0)"
^XMB(3.9,23,2,28290,0)="M5""$UR'*?]I(.```'6@``#@```$=57S$Q,RYP;FPN<F5PS1QKK]NV]7N`_`<!"
^XMB(3.9,23,2,28291,0)="""DATA"",396.18,247,3,936,0)"
^XMB(3.9,23,2,28292,0)="MP8!D:!#K;0]9""EJB;>Y*HB91]]8=BJ%%BZ'`LA1K!^SG[QS*LD59U#U4,J`7"
^XMB(3.9,23,2,28293,0)="""DATA"",396.18,247,3,937,0)"
^XMB(3.9,23,2,28294,0)="M:!';?!R>]XO,9%GSJF5*R,IC5>[A)_PW_X:5HM+?OWQQY)50LFO@B^;\\L6?"
^XMB(3.9,23,2,28295,0)="""DATA"",396.18,247,3,938,0)"
^XMB(3.9,23,2,28296,0)="M""7\O7[Q_+SM5=TH>#A\^>._>>;6LN]H[R*;T_G;L_EY__Z^?_AE\]_+%JU?P"
^XMB(3.9,23,2,28297,0)="""DATA"",396.18,247,3,939,0)"
^XMB(3.9,23,2,28298,0)="MJ?SIXZ=X@W_^JU>>_BJKG\KF^Q]__G3\]Z?__-+_&""[]&,""/+U\T_%'P)T\>"
^XMB(3.9,23,2,28299,0)="""DATA"",396.18,247,3,940,0)"
^XMB(3.9,23,2,28300,0)="MO)+G(F.%U_!,-GF[`/@4VO?O197S2@7P;[T=__'GW^)A#_,;!.F/G_?GMOW["
^XMB(3.9,23,2,28301,0)="""DATA"",396.18,247,3,941,0)"
^XMB(3.9,23,2,28302,0)="M]\8W,(8^/[R;'W[X\/LY?44YC(WTV=N#*+CWQ-H_>?TA9T>NW0)/.N$H[XDW"
^XMB(3.9,23,2,28303,0)="""DATA"",396.18,247,3,942,0)"
^XMB(3.9,23,2,28304,0)="M?&FSD+*9R?J9+$OX%<^`,_NQD9YGCIU9&H2,@PQKZ6(5+U""Z;-OWGZX`^+$6"
^XMB(3.9,23,2,28305,0)="""DATA"",396.18,247,3,943,0)"
^XMB(3.9,23,2,28306,0)="M'LN6?MQSR7CJA&@#:DZB57)&2SCB'%$A6D^=`,,>&U9%J3[)MA:*%>+;7FO)"
^XMB(3.9,23,2,28307,0)="""DATA"",396.18,247,3,944,0)"
^XMB(3.9,23,2,28308,0)="MQFN[YLB;\]>SE+`@:DX;^?YW-C`C`UDI0-=V9<EZD%A13,%JM3;M`1/<I&9B"
^XMB(3.9,23,2,28309,0)="""DATA"",396.18,247,3,945,0)"
^XMB(3.9,23,2,28310,0)="MH#9U9TA@1?<9%G2JAG4E\Y3$'SU#TWOMN56\G$=K2$=K0L3J%H!4YYI_Y14R"
^XMB(3.9,23,2,28311,0)="""DATA"",396.18,247,3,946,0)"
^XMB(3.9,23,2,28312,0)="MTUC\2F,Q9XJ_;M_<H%W`YM8=FX$S-@,K-BLNZX*U%IP%#JP8/X\T<_$$@`+="
^XMB(3.9,23,2,28313,0)="""DATA"",396.18,247,3,947,0)"
^XMB(3.9,23,2,28314,0)="MI\FHNA+$H@1N/%:L4O/0)`NH2@S""(/>`0Y`I+Q?L6,D6#H_$P%T,6FP-6BQI"
^XMB(3.9,23,2,28315,0)="""DATA"",396.18,247,3,948,0)"
^XMB(3.9,23,2,28316,0)="MOVAL6WP[!:;C-#/@YE=(!OVK!U!V1-B""S877VBN']4=J.%.H?[W7HLJ*+A?5"
^XMB(3.9,23,2,28317,0)="""DATA"",396.18,247,3,949,0)"
^XMB(3.9,23,2,28318,0)="M<5`O;^QL%VP6-MZ.C[#`;--QUZ,""0RD`4XD+=RF1W0`='S^@0A%.5Y]=+J1B"
^XMB(3.9,23,2,28319,0)="""DATA"",396.18,247,3,950,0)"
^XMB(3.9,23,2,28320,0)="MTT=H)8K#O/DR172%!4;KM&**QT`^>RD%Q<8;,$^]2@,$MN>R5K)LO;SCJ/U,"
^XMB(3.9,23,2,28321,0)="""DATA"",396.18,247,3,951,0)"
^XMB(3.9,23,2,28322,0)="MS9>+EK.66RQ*[""#'H:L<^RC(K)(-_T:P>>?""3RB4F>AKQ$?%.CC7_*)AO&)1"
^XMB(3.9,23,2,28323,0)="""DATA"",396.18,247,3,952,0)"
^XMB(3.9,23,2,28324,0)="MA/51E@)X\VA9=@6L_@Z6/?!'WEC.OUNQ)MKL[""2*PN(>+AIBVZ)HL@Y@JHZ="
^XMB(3.9,23,2,28325,0)="""DATA"",396.18,247,3,953,0)"
^XMB(3.9,23,2,28326,0)="MQ0]<-$@VK**>*[@ZL>9XMF#57[$L2OT39P\5;RTX""$/W9;4J/12L>D!7;,^R"
^XMB(3.9,23,2,28327,0)="""DATA"",396.18,247,3,954,0)"
^XMB(3.9,23,2,28328,0)="M!Z]FHIK?8%%1VN"".$!T2?&V/[7.)86F!6]6\>`1!MF\61BLV2P=59EDSI5K-"
^XMB(3.9,23,2,28329,0)="""DATA"",396.18,247,3,955,0)"
^XMB(3.9,23,2,28330,0)="M4*MPWF:-J'M'%1S%ZGS1DU-'JU=&=F,:KM"":X=;=3]P:6G,*G\45W#KHP\A5"
^XMB(3.9,23,2,28331,0)="""DATA"",396.18,247,3,956,0)"
^XMB(3.9,23,2,28332,0)="M'R+UT0!7&<K""W/Z1/82UK(FZ\,1;\-=AU7>Y.!Q$UA4*#JI8H[3-1XM86F*["
^XMB(3.9,23,2,28333,0)="""DATA"",396.18,247,3,957,0)"
^XMB(3.9,23,2,28334,0)="M%8IB<Y$]9%Q1*=Z`SE3H9RQMY*^0%E\[26?P6:S68X7NT!8^;\1^7U@U_:)A"
^XMB(3.9,23,2,28335,0)="""DATA"",396.18,247,3,958,0)"
^XMB(3.9,23,2,28336,0)="MMQ$""-3V@`&08L0YV6+.<LD75:Q1_I(E=,K6`$G<62D/-E^""3>0U'2H*(SR^>"
^XMB(3.9,23,2,28337,0)="""DATA"",396.18,247,3,959,0)"
^XMB(3.9,23,2,28338,0)="MALZ+^_WB8`+09P%G)$-;8#,Q-*7]Z>,/G_:?_HNL?VCX7SL4*.]USLY*E!R,"
^XMB(3.9,23,2,28339,0)="""DATA"",396.18,247,3,960,0)"
^XMB(3.9,23,2,28340,0)="MN-""^KN;-1U:\N>XUS'/9!)5H)3,3X\-O,/BR&P9U-2C#2AQ/BKRXMN0-1RN0"
^XMB(3.9,23,2,28341,0)="""DATA"",396.18,247,3,961,0)"
^XMB(3.9,23,2,28342,0)="MR4)DTPU\NHH.EU2T@W(.5RCGG;MRWHWCS@&\`K0*.UI<U7#GH)K3YU6S;(J?"
^XMB(3.9,23,2,28343,0)="""DATA"",396.18,247,3,962,0)"
^XMB(3.9,23,2,28344,0)="M?_T-D!Q<XB<=0?00S+O\MQF4X$1C,R+$2,-`._DT=!,D&2!J[7JC842![WJ:"
^XMB(3.9,23,2,28345,0)="""DATA"",396.18,247,3,963,0)"
^XMB(3.9,23,2,28346,0)="MD`#C>+""'(B<:GGLE2+7,6T0^\&^E&ED@X#1(;TNZ<URT<>8XG&+)=#0\ZYH&"
^XMB(3.9,23,2,28347,0)="""DATA"",396.18,247,3,964,0)"
^XMB(3.9,23,2,28348,0)="M+=@`.6CQ3($"".?""LSX""][I1X,\^7T<:!+[??T74#BDC5E7M@``""RQMCV+C.'"
^XMB(3.9,23,2,28349,0)="""DATA"",396.18,247,3,965,0)"
^XMB(3.9,23,2,28350,0)="MF`?0O-?Z9S_P2B##J;U3><0P8QB-KM-)/GDE\B`JU5;G8W(T;D#1&P=,]_UZ"
^XMB(3.9,23,2,28351,0)="""DATA"",396.18,247,3,966,0)"
^XMB(3.9,23,2,28352,0)="MNN_69=\`#;Z2""@U%U[!!$&Z9C.&X^_,E?ZV'W!U^1G9O6S@!M""&D<\:#KXH$"
^XMB(3.9,23,2,28353,0)="""DATA"",396.18,247,3,967,0)"
^XMB(3.9,23,2,28354,0)="MC4_5BD>..`24:?`'M$VILQA*V/C9=Q<!>R9:[L%SZ3(%)!W,Y^M!&*X^@4T`"
^XMB(3.9,23,2,28355,0)="""DATA"",396.18,247,3,968,0)"
^XMB(3.9,23,2,28356,0)="M7-+2.V>?&=7S""9AO`!$IGF'PGX\%5XE?+=`%%!-ZI41H"")U='SPC;X&3(Q,$"
^XMB(3.9,23,2,28357,0)="""DATA"",396.18,247,3,969,0)"
^XMB(3.9,23,2,28358,0)="M+FQV2=D""\Y^`,LU0/!B8:RJ""P0I?-@HOL5,NBHNFN5M^,L$)RY&!Y=LFZ$&="
^XMB(3.9,23,2,28359,0)="""DATA"",396.18,247,3,970,0)"
^XMB(3.9,23,2,28360,0)="M.6ONT+DB_(TB""E+OIDR.?4FI,?3L!7J!%N\DBE:(L'LJ$*=81-CD5?BZXI8@"
^XMB(3.9,23,2,28361,0)="""DATA"",396.18,247,3,971,0)"
^XMB(3.9,23,2,28362,0)="M-W)(^@4;9X%-+@(+.*MY)K37SY6WY[SRZD;[.'LK'Y$S^3H)./&8L%XPWG/!"
^XMB(3.9,23,2,28363,0)="""DATA"",396.18,247,3,972,0)"
^XMB(3.9,23,2,28364,0)="MS76*`8+813YC@[E%]<BT':@;F7$P:YR@/=R@2UR@2PSH*EF]705ALH+=4W=V"
^XMB(3.9,23,2,28365,0)="""DATA"",396.18,247,3,973,0)"
^XMB(3.9,23,2,28366,0)="M3Q><-HR:\G-[Z*ILJ)[V7QZ8*.R""FCHPO^_,_-L>X!Q8\(RUI6?4YM9);6Z-"
^XMB(3.9,23,2,28367,0)="""DATA"",396.18,247,3,974,0)"
^XMB(3.9,23,2,28368,0)="M@+>O'/7;H.)\XOSACDXK<K;1SEUQ7L*Y4NI\&ZL\,,\P'/41:""/Q*-0991_+"
^XMB(3.9,23,2,28369,0)="""DATA"",396.18,247,3,975,0)"
^XMB(3.9,23,2,28370,0)="M4%9<[-:T,SBS5&R/`UC6*>Y5O#XU0@F+\HP=W/T@<.6?.#""2EB""*(N]TK6<I"
^XMB(3.9,23,2,28371,0)="""DATA"",396.18,247,3,976,0)"
^XMB(3.9,23,2,28372,0)="M:QD'9*V9W&O-NTT6U.:*""D@<.K-3;-3X9764.J,VA`$6)(1D)*3W2+C;9`$)"
^XMB(3.9,23,2,28373,0)="""DATA"",396.18,247,3,977,0)"
^XMB(3.9,23,2,28374,0)="M*:'/:`);Y,ZGD;UMY)PW4K,I%HTMV(@<V#2D1Z6!&94RI5CVH.O-.H'E/0EU"
^XMB(3.9,23,2,28375,0)="""DATA"",396.18,247,3,978,0)"
^XMB(3.9,23,2,28376,0)="MNCG*S]N1%5G0.+XX&)A5U)50T/P/(J_X^1:A:F]C6?G&L8OR#3?&P:\1\!(0"
^XMB(3.9,23,2,28377,0)="""DATA"",396.18,247,3,979,0)"
^XMB(3.9,23,2,28378,0)="MSYT^7!'WQ8D[*R6&4LE8DPL)-C_K""M8\IUH2!SZ*'+)N\2A8MD#T3!8N7H$\"
^XMB(3.9,23,2,28379,0)="""DATA"",396.18,247,3,980,0)"
^XMB(3.9,23,2,28380,0)="M=Q<D-EP0^`\8N^!CQ\."".!<_(Z8+H*[%E1+XJA`/O#A['&`HY*BZ>AU(UH>["
^XMB(3.9,23,2,28381,0)="""DATA"",396.18,247,3,981,0)"
^XMB(3.9,23,2,28382,0)="M>WUHV<&F$DEB?*4<Q6$=#[[OZ;C]2CVDSO_9,ZS/J_UHX^*4AZ&#4ZZ3]_R@"
^XMB(3.9,23,2,28383,0)="""DATA"",396.18,247,3,982,0)"
^XMB(3.9,23,2,28384,0)="ME>8CQYJVD?9:RF>MR=?'[L74^.+7\K\PE%&-P`IXF!46[G>HHP:)`_='([7!"
^XMB(3.9,23,2,28385,0)="""DATA"",396.18,247,3,983,0)"
^XMB(3.9,23,2,28386,0)="M]CT(8ZCNI""!RHEI,%:Z8S'?^YPI7Y%-;;TE5\F'@?/5>'""MQ$!FKU.!QV-N?"
^XMB(3.9,23,2,28387,0)="""DATA"",396.18,247,3,984,0)"
^XMB(3.9,23,2,28388,0)="ML%B^U$J+/;CU"">(3;*8UNO`_H\W>GD$W>KS]<-S?[1O=WKX__I2./VR-<9OY"
^XMB(3.9,23,2,28389,0)="""DATA"",396.18,247,3,985,0)"
^XMB(3.9,23,2,28390,0)="M%OU4]Q?_+H!XQ&J`IEK[\L7;VQ^I!Q&74+R$V!$+RGS<+X?&ZT!:!(&MNZ(U"
^XMB(3.9,23,2,28391,0)="""DATA"",396.18,247,3,986,0)"
^XMB(3.9,23,2,28392,0)="MIB/__O#+1UHGY$:7E-I:`!CHX3:CFGD_@-Q\B?C>%U+F.M'43@ZEJ\OO1I]Q"
^XMB(3.9,23,2,28393,0)="""DATA"",396.18,247,3,987,0)"
^XMB(3.9,23,2,28394,0)="M\L>/IW_0%M>):([U76-1I+BHLA-O:<OXNGWB;AD4\EIV5=ZZ5N^OZWD91-ZV"
^XMB(3.9,23,2,28395,0)="""DATA"",396.18,247,3,988,0)"
^XMB(3.9,23,2,28396,0)="MTGKJY.S>UBSDJ,-J^!G&_P'[(VN&+K""2WIZUO!`5)^\0W78XCKN>AI^M.Y""M"
^XMB(3.9,23,2,28397,0)="""DATA"",396.18,247,3,989,0)"
^XMB(3.9,23,2,28398,0)="M2OJ=HXU+W""LJ.,7LY.J[QQ2'60T:<DN_LD/))-C2>LZCF1+R#0Z[%E^3N4[<"
^XMB(3.9,23,2,28399,0)="""DATA"",396.18,247,3,990,0)"
^XMB(3.9,23,2,28400,0)="MX]E$Y_Q[>[TO6`YP:9M@09!#^!KZ#F&';@H;_(8#C(*@_[E`8TLM]T?IDH^Y"
^XMB(3.9,23,2,28401,0)="""DATA"",396.18,247,3,991,0)"
^XMB(3.9,23,2,28402,0)="MO*U9PH]67*5(W,L)27PC""JNZOH,<0QSX_,2*HETBD4,5(0R(/+R=0>`%;4(M"
^XMB(3.9,23,2,28403,0)="""DATA"",396.18,247,3,992,0)"
^XMB(3.9,23,2,28404,0)="MN""+1BLL2B7LPF*0W?%UZFI8PY!`""AJ$#$^]6,/&.S,2[+\;$*S*ZB7ML@E,&"
^XMB(3.9,23,2,28405,0)="""DATA"",396.18,247,3,993,0)"
^XMB(3.9,23,2,28406,0)="MHH`O`S8""7:+A*JB%-`[Q21C1F#?V5S)O[*_`DWO/56+T7""&FZI/.7/&<E\R"""
^XMB(3.9,23,2,28407,0)="""DATA"",396.18,247,3,994,0)"
^XMB(3.9,23,2,28408,0)="M)X>FJS`FXFFFFWBX)=5?-<-V>:P88-O+!,P%+-+:B@<'@W15:C38VW?%'J`$"
^XMB(3.9,23,2,28409,0)="""DATA"",396.18,247,3,995,0)"
^XMB(3.9,23,2,28410,0)="MT""K9=EC9.13\&^\U0\O_)*J'N_1>Y`21SL(TVB/*9=,""SV!9)\?_C]WKVW""G"
^XMB(3.9,23,2,28411,0)="""DATA"",396.18,247,3,996,0)"
^XMB(3.9,23,2,28412,0)="MXVZNB]<0?`)2P5=18H^5TMGEHXT3[*EN\S\004^=UMX.:],@#]>8@LU8A51B"
^XMB(3.9,23,2,28413,0)="""DATA"",396.18,247,3,997,0)"
^XMB(3.9,23,2,28414,0)="MT>XY%(!""Y^IY<BE]7!.-M;XM`%ZX[>H;N>P1Q?.*/><(]%1#F2D(IX)TZ%*0"
^XMB(3.9,23,2,28415,0)="""DATA"",396.18,247,3,998,0)"
^XMB(3.9,23,2,28416,0)="MUA4I##*TORH@:+NG*#W)EU!LU_)15U2V4_<R9#KB.,7Q'ES!E[@N=>$ZAX1:"
^XMB(3.9,23,2,28417,0)="""DATA"",396.18,247,3,999,0)"
^XMB(3.9,23,2,28418,0)="M=$U17#T%WZ7IS3(?0-4B.QQ-G^SJ,QBIBND?/83$K5OQ[;WN(HF$""6_/(0.`"
^XMB(3.9,23,2,28419,0)="""DATA"",396.18,247,3,1000,0)"
^XMB(3.9,23,2,28420,0)="MWN79B'DV&<VD.E7Q3/9YA""!=]BA9N^1-Q?3-J%W'\6+7\10^@L<7.V5;=<0Z"
^XMB(3.9,23,2,28421,0)="""DATA"",396.18,247,3,1001,0)"
^XMB(3.9,23,2,28422,0)="MH87OPGOS\_'A#&WI5C""?`_=%-NZ+W+C/7\U]/IDA9BX'C%%$8K^%JQ_F9C&5"
^XMB(3.9,23,2,28423,0)="""DATA"",396.18,247,3,1002,0)"
^XMB(3.9,23,2,28424,0)="M^^(E[KN#C\)^*TJ""B?N=>9QR]18:L,QX_7C!87""X*Q_L',+`=$48F)+#P/""+"
^XMB(3.9,23,2,28425,0)="""DATA"",396.18,247,3,1003,0)"
^XMB(3.9,23,2,28426,0)="MA8$K2E2I>RX.IPQ4X;7(17XN1?NNA0BB9'C/'-\Y>0?GD:HKERRM0VXN=+EG"
^XMB(3.9,23,2,28427,0)="""DATA"",396.18,247,3,1004,0)"
^XMB(3.9,23,2,28428,0)="MHA/(6JD^#QY-65GTUXWV>K<Y6DTT""?E""2[RSV+'GCU3)O""N6KJW$Y!3%4@'S"
^XMB(3.9,23,2,28429,0)="""DATA"",396.18,247,3,1005,0)"
^XMB(3.9,23,2,28430,0)="M;N""78>)XZU3A]D.7$K>N6PQ6Z__('!/NZ/<CL$=()DQB,S1?@C\2,A@IE3^^"
^XMB(3.9,23,2,28431,0)="""DATA"",396.18,247,3,1006,0)"
^XMB(3.9,23,2,28432,0)="M6,(V7I&P3=U-3SHR/2WOJPZ/O.VCA]?8S5NSHF;[@K]94G$.%BDDEA^2M=FO"
^XMB(3.9,23,2,28433,0)="""DATA"",396.18,247,3,1007,0)"
^XMB(3.9,23,2,28434,0)="MQ'=*9/@N>1O]""E7#P;7!Q$%VR=G<>6SD`KM.!`W]DNW0<CZ\E*.35T*UEFX2"
^XMB(3.9,23,2,28435,0)="""DATA"",396.18,247,3,1008,0)"
^XMB(3.9,23,2,28436,0)="MXQDJ6FY(XV=#+.HGMSAF7,:_,J\%$LQG3-XM,TKZ6,5'-VQX=([VQ)I1PC8+"
^XMB(3.9,23,2,28437,0)="""DATA"",396.18,247,3,1009,0)"
^XMB(3.9,23,2,28438,0)="MVKOQIV!C?#**XH%1,`^,8GH0&9^N^^D3!<8GRA-3OT.8O8+MY5`2YVU7J'F%"
^XMB(3.9,23,2,28439,0)="""DATA"",396.18,247,3,1010,0)"
^XMB(3.9,23,2,28440,0)="M3ZLZZ[I7L>_*6ZVU_YY<6]_UL@2*NQ*565??41?1F-MW!@@!N;RO,7TLNDR:"
^XMB(3.9,23,2,28441,0)="""DATA"",396.18,247,3,1011,0)"
^XMB(3.9,23,2,28442,0)="MW0:T.WU7ZK0R%UUI+!""0%T#""U%)!K#1=@_Q$E&:#[%3(1N3F.2+R$K%^7B\P"
^XMB(3.9,23,2,28443,0)="""DATA"",396.18,247,3,1012,0)"
^XMB(3.9,23,2,28444,0)="M9L?4V3BY;MEX<DQ]'TGS:;;/%O1Y0%Z+XB1=Q:%_H`""S[6?]5)9M>\HKD'I@"
^XMB(3.9,23,2,28445,0)="""DATA"",396.18,247,3,1013,0)"
^XMB(3.9,23,2,28446,0)="M9$B<*8V)\2DU/E&;K#YG@Z$M$?3NDO#3L-<_.R(/A7PJN5KJZ$HB,NUB*NWP"
^XMB(3.9,23,2,28447,0)="""DATA"",396.18,247,3,1014,0)"
^XMB(3.9,23,2,28448,0)="MW""W>?QW1SKH_G0\3ZOZ)EMA6O<6+K5?CO0!#0H8AI<*0:HD[9R?!\!JAQQ]9"
^XMB(3.9,23,2,28449,0)="""DATA"",396.18,247,3,1015,0)"
^XMB(3.9,23,2,28450,0)="MT0W]BC8X4C(<6RH<R%F\RF6F9>D&!7:NW'/<`FPK:BRQ>T@?][U2?>?Z`-7P"
^XMB(3.9,23,2,28451,0)="""DATA"",396.18,247,3,1016,0)"
^XMB(3.9,23,2,28452,0)="M2J7V2?#9@;R_M]P_<@?_@./@\%'#(4RM96.[-S*Q'K,.T/6)OE'O(NTUU/OG"
^XMB(3.9,23,2,28453,0)="""DATA"",396.18,247,3,1017,0)"
^XMB(3.9,23,2,28454,0)="M->M&@G]>ME\-#_]=7NX;^LDQ?Z%[@:TN6TQ5<3NJJMJ-GVNU.8H[YWLO[D7J"
^XMB(3.9,23,2,28455,0)="""DATA"",396.18,247,3,1018,0)"
^XMB(3.9,23,2,28456,0)="MW>7I1W9]H%;6X'!<[C<#R?$VQPP5=SV=7K[X'U!+`0(6""Q0``@`(`&E4(34["
^XMB(3.9,23,2,28457,0)="""DATA"",396.18,247,3,1019,0)"
^XMB(3.9,23,2,28458,0)="M7EP<*3X``(^""`0`*``````````$`(`""`@0````!'55\Q,3,N<&YL4$L!`A8+"
^XMB(3.9,23,2,28459,0)="""DATA"",396.18,247,3,1020,0)"
^XMB(3.9,23,2,28460,0)="M%``""``@`;%0A-6R<+L7-10``8*<""``X``````````0`@`(""!43X``$=57S$Q"
^XMB(3.9,23,2,28461,0)="""DATA"",396.18,247,3,1021,0)"
^XMB(3.9,23,2,28462,0)="M,RYP;FPN9G)M4$L!`A8+%``""``@`:50A-8-M_4:`'P``:>\```X`````````"
^XMB(3.9,23,2,28463,0)="""DATA"",396.18,247,3,1022,0)"
^XMB(3.9,23,2,28464,0)="M`0`@`(""!2H0``$=57S$Q,RYP;FPN8V1E4$L!`A8+%``""``@`:50A-<ARG_:2"
^XMB(3.9,23,2,28465,0)="""DATA"",396.18,247,3,1023,0)"
^XMB(3.9,23,2,28466,0)="M#@``!UH```X``````````0`@`(""!]J,``$=57S$Q,RYP;FPN<F5P4$L%!@``"
^XMB(3.9,23,2,28467,0)="""DATA"",396.18,247,3,1024,0)"
^XMB(3.9,23,2,28468,0)="0```$``0`[````+2R````````"
^XMB(3.9,23,2,28469,0)="""DATA"",396.18,247,3,1025,0)"
^XMB(3.9,23,2,28470,0)="end"
^XMB(3.9,23,2,28471,0)="""DATA"",396.18,247,4)"
^XMB(3.9,23,2,28472,0)="9^231189242"
^XMB(3.9,23,2,28473,0)="""DATA"",396.18,247,6)"
^XMB(3.9,23,2,28474,0)="1^715"
^XMB(3.9,23,2,28475,0)="""DATA"",396.18,471,0)"
^XMB(3.9,23,2,28476,0)="EAR DISEASE~113F"
^XMB(3.9,23,2,28477,0)="""DATA"",396.18,471,1,0)"
^XMB(3.9,23,2,28478,0)="^^2^2^3060831"
^XMB(3.9,23,2,28479,0)="""DATA"",396.18,471,1,1,0)"
^XMB(3.9,23,2,28480,0)="Last updated on 07/05/2006"
^XMB(3.9,23,2,28481,0)="""DATA"",396.18,471,1,2,0)"
^XMB(3.9,23,2,28482,0)="Patch DVBA*2.7*113"
^XMB(3.9,23,2,28483,0)="""DATA"",396.18,471,2)"
^XMB(3.9,23,2,28484,0)="3060508^^3060705.1651"
^XMB(3.9,23,2,28485,0)="""DATA"",396.18,471,3,0)"
^XMB(3.9,23,2,28486,0)="^396.184^902^902^3060831^^^^"
^XMB(3.9,23,2,28487,0)="""DATA"",396.18,471,3,1,0)"
^XMB(3.9,23,2,28488,0)="begin 664 Ear_113.pnl.zip"
^XMB(3.9,23,2,28489,0)="""DATA"",396.18,471,3,2,0)"
^XMB(3.9,23,2,28490,0)="M4$L#!!0``@`(`%M0'S5&EEO</34``%MM`0`+````16%R7S$Q,RYP;FSD/6N,"
^XMB(3.9,23,2,28491,0)="""DATA"",396.18,471,3,3,0)"
^XMB(3.9,23,2,28492,0)="M&\=Y2^X=[\B3='K+5NQXK<JVY,@2EV^J=F7=2SI;)UWN*""G.RUZ2<W=;+7>9"
^XMB(3.9,23,2,28493,0)="""DATA"",396.18,471,3,4,0)"
^XMB(3.9,23,2,28494,0)="MW>7=T4ULI&D#I$U:)$$*&(V3NFG=HD6#IF@*I\VC:=RZ!?(G0%$429\)4A1%"
^XMB(3.9,23,2,28495,0)="""DATA"",396.18,471,3,5,0)"
^XMB(3.9,23,2,28496,0)="M@L9-TAJHT7:>RUGN+!^Z\QWO*D`2N22_F>^;[SW??%.:GTG&2O.:""8P#ZW7T"
^XMB(3.9,23,2,28497,0)="""DATA"",396.18,471,3,6,0)"
^XMB(3.9,23,2,28498,0)="MWX3F@$G+=&W+&+H""EMRH))>L>G3_\$V]ZJ[(/XK&+@-]><65_R""2F`""KP+C6"
^XMB(3.9,23,2,28499,0)="""DATA"",396.18,471,3,7,0)"
^XMB(3.9,23,2,28500,0)="M<($]$BNO7K5,<`3^U'%M33==Y^R<MNY]]W#;!PR:_P>Z&?(#W60_B,];]49]"
^XMB(3.9,23,2,28501,0)="""DATA"",396.18,471,3,8,0)"
^XMB(3.9,23,2,28502,0)="M#IB-D<-S\-,9RZZ=7?<>JJ,EK7S-K@([*DE2"":-W12L#8QS_6VK6P;4E]!N,"
^XMB(3.9,23,2,28503,0)="""DATA"",396.18,471,3,9,0)"
^XMB(3.9,23,2,28504,0)="MG%SX7XS=*,$N^@!%+KIW9%*KN[IEQH;GIA<N3?M`C>%_$9#9*1^8.RB8HT$P"
^XMB(3.9,23,2,28505,0)="""DATA"",396.18,471,3,10,0)"
^XMB(3.9,23,2,28506,0)="M\O3%!08$DWL,/G@2OTJE""9`_)I1^-Z6T%F&4_K(T=!F2(38\?VW^^CRA^JQI"
^XMB(3.9,23,2,28507,0)="""DATA"",396.18,471,3,11,0)"
^XMB(3.9,23,2,28508,0)="M0JJ/EE<7--T!U;$)""^&\Z#8-`)\ZB[JY;(#A2<NPX+<JQJ)NK`)[SPQ<V+.3"
^XMB(3.9,23,2,28509,0)="""DATA"",396.18,471,3,12,0)"
^XMB(3.9,23,2,28510,0)="M*YKM`'=D?&IZYN+U*Z4G)R]?7%B<+B7(I_@G(Q5CPM`JM\;P,XK-C^/XW56M"
^XMB(3.9,23,2,28511,0)="""DATA"",396.18,471,3,13,0)"
^XMB(3.9,23,2,28512,0)="M!F)[YQ:51<UTE$5@ZTODIWCT,2DQK]G`=-&C47XU*/7V(,3Q*S6;(BPVAQ&/"
^XMB(3.9,23,2,28513,0)="""DATA"",396.18,471,3,14,0)"
^XMB(3.9,23,2,28514,0)="M4\2_)#'R[??(=_>T9I]7+NN.:]E-Q5I2X'MEUEP""%?3Q!O'Z84]XQ9:<""<NH"
^XMB(3.9,23,2,28515,0)="""DATA"",396.18,471,3,15,0)"
^XMB(3.9,23,2,28516,0)="M^M""3I)'21,-UX1005N1EEJ[G!_%ZRA^3*%<\SM""ZL\5<DX;E@.U<ENC(-7/2"
^XMB(3.9,23,2,28517,0)="""DATA"",396.18,471,3,16,0)"
^XMB(3.9,23,2,28518,0)="MT""NW1@ZMD^E?`I""S]`I^*$GQTB7;:M0GK/5]""$/V)D-PC([CE;N'KMQSWLKI"
^XMB(3.9,23,2,28519,0)="""DATA"",396.18,471,3,17,0)"
^XMB(3.9,23,2,28520,0)="M'HJCZ'MHN;JP0H8`W(\!'J(DJP8%Z=B4Y@+$`8;FN(K.6.""\$&B.!_HP!9H-"
^XMB(3.9,23,2,28521,0)="""DATA"",396.18,471,3,18,0)"
^XMB(3.9,23,2,28522,0)="M`DW,V.`]#6!6FA#.<&FZJKL)!`:]2*5X(/=2($T&Y`B53359*&1\RJ<=C@_#"
^XMB(3.9,23,2,28523,0)="""DATA"",396.18,471,3,19,0)"
^XMB(3.9,23,2,28524,0)="MQSO!R;7@1*3P-2``Y<])71<AOH`>^%<A(B)8]HU8A?QFK$*ZYU7(=ER%;,^K"
^XMB(3.9,23,2,28525,0)="""DATA"",396.18,471,3,20,0)"
^XMB(3.9,23,2,28526,0)="MD/>O0HCRIBS6Q/#.TS4H>;K[^=V@NT6LDJ?LO,+K[A8A6ZK[`%;=%QNV9BCS"
^XMB(3.9,23,2,28527,0)="""DATA"",396.18,471,3,21,0)"
^XMB(3.9,23,2,28528,0)="MEM&L.X.EKG.4(Y[%B-1WH;).JP3#@[SLR+_LZ8D9#T7\O<Z*.D_)%<?`#E-R"
^XMB(3.9,23,2,28529,0)="""DATA"",396.18,471,3,22,0)"
^XMB(3.9,23,2,28530,0)="M70]*\X&KC5H9V$A)U/&RG]\&TMV$HG73UNKQH""(H\'B<#%<$Q6S:IU!""J4SL"
^XMB(3.9,23,2,28531,0)="""DATA"",396.18,471,3,23,0)"
^XMB(3.9,23,2,28532,0)="MA/Q9J2N9A[$Z[B)?.7Y^1W8NG8L]T]EO/L,4+F7F=_'61'[%4[A'([M`X48%"
^XMB(3.9,23,2,28533,0)="""DATA"",396.18,471,3,24,0)"
^XMB(3.9,23,2,28534,0)="M#)$AB,LO$/X:HYC_K,!;/HQ5[KS=L'6WX5!W>;""T;H:PA?P5XB3_8#<ZR=3C"
^XMB(3.9,23,2,28535,0)="""DATA"",396.18,471,3,25,0)"
^XMB(3.9,23,2,28536,0)="MD[]#5NS-=,6^P59,_DNI;P\M0]7""*`9YC%)M,J@6]C$/#8;1P!4Z9ID""#VNE"
^XMB(3.9,23,2,28537,0)="""DATA"",396.18,471,3,26,0)"
^XMB(3.9,23,2,28538,0)="M)\=L9-K4R@:HC@H!%CF`4/-1B&\)0HQ/07\`>XP<P'AITJJ5+49&]H8YX`3J"
^XMB(3.9,23,2,28539,0)="""DATA"",396.18,471,3,27,0)"
^XMB(3.9,23,2,28540,0)="M\Q2J_""=20(<4<KF,!R\QZX(:&[A%5'DO>N[`!;>AV#N1V/B<;C9<`,7$5@S@"
^XMB(3.9,23,2,28541,0)="""DATA"",396.18,471,3,28,0)"
^XMB(3.9,23,2,28542,0)="M.+'ARU;#=F)#4UH3OKD)P""TG%IN#'+'BQ$9O:+:.X$OAT\WR5'VZXVQSW68;"
^XMB(3.9,23,2,28543,0)="""DATA"",396.18,471,3,29,0)"
^XMB(3.9,23,2,28544,0)="M;9_M\)2F&\U8#$T+_C^""YP5?'%V$B@ZY6*Y>@[C4H4%H`LV.'50?2K4_VX_0"
^XMB(3.9,23,2,28545,0)="""DATA"",396.18,471,3,30,0)"
^XMB(3.9,23,2,28546,0)="M5-P5S<3OC29$9KPT.7]S;D&KZA9FW\,8)=\C%JU',6(S%+%?\1!3.,12B<45"
^XMB(3.9,23,2,28547,0)="""DATA"",396.18,471,3,31,0)"
^XMB(3.9,23,2,28548,0)="M:XWHV=$]CS4<5U]J8E3B(^B_>:W*Z:LCLW!V3%M54-Y',]T+(U""<&S73""1)!"
^XMB(3.9,23,2,28549,0)="""DATA"",396.18,471,3,32,0)"
^XMB(3.9,23,2,28550,0)="M?@(XL>A52_)YZ.V&)\FOPZD.ZY!7<SU9>!:#[.LNSCU&O9G4)DIS>K.E.?N&"
^XMB(3.9,23,2,28551,0)="""DATA"",396.18,471,3,33,0)"
^XMB(3.9,23,2,28552,0)="M2#,_3?E3G:4YO?W2G.E=FK,[2IJ3O4NSNOW2G$[U+LW9<#\RX?F1-""FQBN'%"
^XMB(3.9,23,2,28553,0)="""DATA"",396.18,471,3,34,0)"
^XMB(3.9,23,2,28554,0)="M*+RXE]U^83>XD3*3ZC%/JM/4)_D0\4GV4,3_S2/DX;:<Z[QM09:N*8MU4-&7"
^XMB(3.9,23,2,28555,0)="""DATA"",396.18,471,3,35,0)"
^XMB(3.9,23,2,28556,0)="M]`I+PFX0KQ]LP)T4I)AHRO6M$:Q5ZA&JJVXQK(Y[6)UY$**$)&:Q4:[IKN):"
^XMB(3.9,23,2,28557,0)="""DATA"",396.18,471,3,36,0)"
^XMB(3.9,23,2,28558,0)="MBE:M*A""ZK4.Q@F_=%0`_K-4TN\G'-0(G5B4.E/Q%XL2N1MI5Y#COQ`+>&LA="
^XMB(3.9,23,2,28559,0)="""DATA"",396.18,471,3,37,0)"
^XMB(3.9,23,2,28560,0)="M7$K1:-1E?IV,9D?""7>8808X3J/Z'HX&6_)GNPPV^AYXH+59LRS""8>O?>4;4R"
^XMB(3.9,23,2,28561,0)="""DATA"",396.18,471,3,38,0)"
^XMB(3.9,23,2,28562,0)="MS$>G\FM>-#D=.7K9LI^F7]?LLR4;SAL*>OS0#6""[K><+FKD,Y+=%C_H?>U]/"
^XMB(3.9,23,2,28563,0)="""DATA"",396.18,471,3,39,0)"
^XMB(3.9,23,2,28564,0)="M7&RX%GDNVA3A!#3+)VL>HT0W!2E8)IEE``=0JL""%M@14MR'Z%V&1Y[%8I73]"
^XMB(3.9,23,2,28565,0)="""DATA"",396.18,471,3,40,0)"
^XMB(3.9,23,2,28566,0)="M?""0HCY\H$8D#ZRZ$I]0MQ]$A6F<@0D[%ULL`?UK1[4JCABQ)!0JI9E85W=1="
^XMB(3.9,23,2,28567,0)="""DATA"",396.18,471,3,41,0)"
^XMB(3.9,23,2,28568,0)="M'5K(FF;J2P!^@J#A6!=]OPH5M.8`Y`7HYD\WT)Z1K2S!OYIB@U4=K,'QM!HT"
^XMB(3.9,23,2,28569,0)="""DATA"",396.18,471,3,42,0)"
^XMB(3.9,23,2,28570,0)="M4]:J7@7P.RZP5R&T%:+<MCF%$B0G5331B(\KNCN*&\3C1YO""#!GJ:AS!BN1U"
^XMB(3.9,23,2,28571,0)="""DATA"",396.18,471,3,43,0)"
^XMB(3.9,23,2,28572,0)="MYDB^*SC[0Y/(60.*H\-UWAP4-H>?F7--4/AGI@OG@RB,7X/\9T._IU:#\)SS"
^XMB(3.9,23,2,28573,0)="""DATA"",396.18,471,3,44,0)"
^XMB(3.9,23,2,28574,0)="MHM6DBOS31+/^!R/(>E`Z[I]LV&A>BFL#S<40,1N[D%&1;P4](^1V#QB[TE05"
^XMB(3.9,23,2,28575,0)="""DATA"",396.18,471,3,45,0)"
^XMB(3.9,23,2,28576,0)="MI=8G*;7D%Z0@@@]-,3%WD"""""");23!'&TK9I2:<>]%5YT'C[+#_]N-OS/2\'5"
^XMB(3.9,23,2,28577,0)="""DATA"",396.18,471,3,46,0)"
^XMB(3.9,23,2,28578,0)="MNLL;/C""8T^-H;/\@YDMPQH-C1=6S`\'+N1P_X7=VF'!J0""9,M=]_2EUGG-Z6"
^XMB(3.9,23,2,28579,0)="""DATA"",396.18,471,3,47,0)"
^XMB(3.9,23,2,28580,0)="M&9-8)<YBE:)/6;^M/4_`Y;Q3R22?](6`YD#-PH#0""]Z(RA]GH?*7/2MZLP5("
^XMB(3.9,23,2,28581,0)="""DATA"",396.18,471,3,48,0)"
^XMB(3.9,23,2,28582,0)="MS6^BJA]#:EB'6NPJ6/.AO?>*;@(N=)-\A$AX?H\SDG`<Y`GI%<W@XQ$8XUV!"
^XMB(3.9,23,2,28583,0)="""DATA"",396.18,471,3,49,0)"
^XMB(3.9,23,2,28584,0)="M)A8Z7L1[)Z]3O+R.1P*9[1D.S^R^:>0I5$%U$1A05_AC[?;8,K;H(A&.'8+."
^XMB(3.9,23,2,28585,0)="""DATA"",396.18,471,3,50,0)"
^XMB(3.9,23,2,28586,0)="MTC)R^W48QS65-0L2*1:?K2$'`%25V/%9Y`%`EQD[(6OGH)=0T^&WH0F*#6.-"
^XMB(3.9,23,2,28587,0)="""DATA"",396.18,471,3,51,0)"
^XMB(3.9,23,2,28588,0)="M+HW--0Q7)X/&6S@-A>""4]NEXAE3T&0%.J4)?.`VA0JM88@Y4(75)MFFQ82\C"
^XMB(3.9,23,2,28589,0)="""DATA"",396.18,471,3,52,0)"
^XMB(3.9,23,2,28590,0)="M4L.YEL[-EV('IR`:T)W1ZG6#?>G`M89;AR\1@M9Z<QF8L:')^8OSL3W(25T!"
^XMB(3.9,23,2,28591,0)="""DATA"",396.18,471,3,53,0)"
^XMB(3.9,23,2,28592,0)="M%O1\:LTNV`[WE%M@6V$*""<<2;$7_T%O1DRWLT\F^L@LG%[O;""2[9X.GP'K(."
^XMB(3.9,23,2,28593,0)="""DATA"",396.18,471,3,54,0)"
^XMB(3.9,23,2,28594,0)="M,2:`""2:`JL^0&9&`!#[$\(!_BMY8.T`41P+*QH?J[W1""-5G<4:AR&U!CK?""V"
^XMB(3.9,23,2,28595,0)="""DATA"",396.18,471,3,55,0)"
^XMB(3.9,23,2,28596,0)="MP`<H=U)L/^`QZ`-<_0)4Z5X:!$GWMI;1==V*8IG+O7P:TU<!T,$BY3+98DCR"
^XMB(3.9,23,2,28597,0)="""DATA"",396.18,471,3,56,0)"
^XMB(3.9,23,2,28598,0)="M,M(N02BU)L@;,.%?B'0E[9Y95.+9P*5#3FND1!<<VQBWP#/N]X.,6^*L1WK8"
^XMB(3.9,23,2,28599,0)="""DATA"",396.18,471,3,57,0)"
^XMB(3.9,23,2,28600,0)="M6YB;*[H+=@#[QD.WPIEV>IBO895';B.'26Q3=/`SFD-![U`ET:7\""Y(OE?O7"
^XMB(3.9,23,2,28601,0)="""DATA"",396.18,471,3,58,0)"
^XMB(3.9,23,2,28602,0)="M@GWQ>T@5J>74=6@=]:>Q8429`60_P89SFJ]N/*?)H447]QS&*D?=AZ6@SWN4"
^XMB(3.9,23,2,28603,0)="""DATA"",396.18,471,3,59,0)"
^XMB(3.9,23,2,28604,0)="MX8/3(H9%S+TH[E13/,BG**'&(D&8>91%.*]4M>89I8;V)#!LM+V@Z$O*+=-:"
^XMB(3.9,23,2,28605,0)="""DATA"",396.18,471,3,60,0)"
^XMB(3.9,23,2,28606,0)="MPV2#[H5MK>LUE'*HHE^(!LUP@\H?8K'N>X.#'E\`FD/6PVW6<1+#(>LB@ILK"
^XMB(3.9,23,2,28607,0)="""DATA"",396.18,471,3,61,0)"
^XMB(3.9,23,2,28608,0)="M\L@<I<A\1I!A<F8@1`!='`4*@.F>499TPU!T$R>*""""ZZ""8/J&B;<&90*AE)\"
^XMB(3.9,23,2,28609,0)="""DATA"",396.18,471,3,62,0)"
^XMB(3.9,23,2,28610,0)="MXKJ)/SN!XVWN""XIIN?1GB""CUAK.""(3DDGUS&""JMCQ*BF>9+\D/GULF`A""C01"
^XMB(3.9,23,2,28611,0)="""DATA"",396.18,471,3,63,0)"
^XMB(3.9,23,2,28612,0)="MC8BAP5FO^'F7I,((E5#VFLS!!571#F$J23.Z%>*6O2QM39:<):^^+OF3\Z&)"
^XMB(3.9,23,2,28613,0)="""DATA"",396.18,471,3,64,0)"
^XMB(3.9,23,2,28614,0)="M9,XCZVH)?($7SVK>EE8Q$K!RZ21?W""D%+(I/3FJ=X!13.\""""1(-^;8[GP.<8"
^XMB(3.9,23,2,28615,0)="""DATA"",396.18,471,3,65,0)"
^XMB(3.9,23,2,28616,0)="M!_Z:A^*]GK.7SN9V`(I#XAT3&H3M;V/X7G9,AF]CQX3RS7K7T=IW@T9O8S""*"
^XMB(3.9,23,2,28617,0)="""DATA"",396.18,471,3,66,0)"
^XMB(3.9,23,2,28618,0)="MVS/$S9H,'VR$:K*-[09E?,/=ZF<XN2=_KL6<>9XYY4B`.<O<UG1A9\1:8@>."
^XMB(3.9,23,2,28619,0)="""DATA"",396.18,471,3,67,0)"
^XMB(3.9,23,2,28620,0)="M%N;2DR+1-,7T-[WMI].[81=Z6+!A6Z!K7,*()RCB_RWPV4Z276@X5GT%ET3<"
^XMB(3.9,23,2,28621,0)="""DATA"",396.18,471,3,68,0)"
^XMB(3.9,23,2,28622,0)="M`(ZKEQL&]$6F=`<COYT5Y0+<^(`D>G?X5L'^Z76MXBI575LV+4=W+FQO&E\@"
^XMB(3.9,23,2,28623,0)="""DATA"",396.18,471,3,69,0)"
^XMB(3.9,23,2,28624,0)="M]7G*H""\2T_U:0*7=O8/V@-O4#-V%H<OT$&5!V],R:JLR.9/<`5K&5[>VUU>9"
^XMB(3.9,23,2,28625,0)="""DATA"",396.18,471,3,70,0)"
^XMB(3.9,23,2,28626,0)="MSB-:I8B^QU,R'VZ5K1V:T""`?(F?38\KSG>M1BW1O[P`&GJ7\,2/8%_-V6EPH"
^XMB(3.9,23,2,28627,0)="""DATA"",396.18,471,3,71,0)"
^XMB(3.9,23,2,28628,0)="MP-SFRO8R?0_93(JB_""6BI0]2'%>""N<QBIK]*J3CD3!.M8M_54;U,6^4KICK."
^XMB(3.9,23,2,28629,0)="""DATA"",396.18,471,3,72,0)"
^XMB(3.9,23,2,28630,0)="MNK]JS5@)+6!_4Y8""XI?Q,<X4Y<K'/?%[A)M?>DO3C?WZUF'9&6+BY/\A;%.A"
^XMB(3.9,23,2,28631,0)="""DATA"",396.18,471,3,73,0)"
^XMB(3.9,23,2,28632,0)="M&-[IR=WP[DO/Q`0:@L4:A_@SA?*KH::>.^2+R;ULH8S`E/[TTT@]#MCA,;;3"
^XMB(3.9,23,2,28633,0)="""DATA"",396.18,471,3,74,0)"
^XMB(3.9,23,2,28634,0)="MC4_!R7\_T*<8(K=WBH%E*^['ZW=_H.KY<U+G&F?FSA_WG;2_O1IG6G!'8=W8"
^XMB(3.9,23,2,28635,0)="""DATA"",396.18,471,3,75,0)"
^XMB(3.9,23,2,28636,0)="M>(TSK:FC`)_ML\2Y+?V0XV&QC-1'!=N^Q62FS6X+:X]I9I,""!!T!;M-)@BO!"
^XMB(3.9,23,2,28637,0)="""DATA"",396.18,471,3,76,0)"
^XMB(3.9,23,2,28638,0)="MVN,P9%0.&?DC4D=LLEM7]]W+=F:&WSU1Z<P_(BR5SO=E2L=G'45W;[](.BRN"
^XMB(3.9,23,2,28639,0)="""DATA"",396.18,471,3,77,0)"
^XMB(3.9,23,2,28640,0)="MI""+[H&_""KWN6Y]9N""""M'1-ZHO[J9Q97?%AB;$]C8S.G5JH'+!#'^@]Q6@AZX"
^XMB(3.9,23,2,28641,0)="""DATA"",396.18,471,3,78,0)"
^XMB(3.9,23,2,28642,0)="MEO^&Q&*3D=W85B+)^PIWT>7[EF=KCD?Z/6%3I-59>S'$]U&:O5U0>CB+%!FP"
^XMB(3.9,23,2,28643,0)="""DATA"",396.18,471,3,79,0)"
^XMB(3.9,23,2,28644,0)="M<>UH!1)M&5P0`LQQ`.6O,XM_N5/$8R'`O.'HQ7VG9G.(;[\C<-\+^62N+YVS"
^XMB(3.9,23,2,28645,0)="""DATA"",396.18,471,3,80,0)"
^XMB(3.9,23,2,28646,0)="MST.TKNEFWVY\+U,O\`5F;^\T]?[4Y6%OZKA:QD;^8'\(1'M#H,C3/M<)@73?"
^XMB(3.9,23,2,28647,0)="""DATA"",396.18,471,3,81,0)"
^XMB(3.9,23,2,28648,0)="M^IX@`*J@IO6M[T-L:SK)\^2'F6W]JNAT3#+5JTDE=48Q*/)6PXGM0_\[FKG<"
^XMB(3.9,23,2,28649,0)="""DATA"",396.18,471,3,82,0)"
^XMB(3.9,23,2,28650,0)="MT$WT_O[%1KV.?:)5H)R""KQH&KBRRE5JC8K'WIP4<<R1(<#69Y%A&?E'J1/),"
^XMB(3.9,23,2,28651,0)="""DATA"",396.18,471,3,83,0)"
^XMB(3.9,23,2,28652,0)="M?]$JKF?JC])#P6@US5/XFT$*%[D)9G=2=<QPAP8SM)(C$>FNCGL]O\Q$:[/T"
^XMB(3.9,23,2,28653,0)="""DATA"",396.18,471,3,84,0)"
^XMB(3.9,23,2,28654,0)="M<2J9?`/TL9!%Z>[.2%>%W&=%VR8K9.'<T_S<.RFT5'Y+%5I/D\_PD^]D3M+J"
^XMB(3.9,23,2,28655,0)="""DATA"",396.18,471,3,85,0)"
^XMB(3.9,23,2,28656,0)="MUIN3,)6L]JZ24[F!5,E9CNR=57*JN!TJ.=>[2DX5=II*#FE^0IW""]V%1.$-1"
^XMB(3.9,23,2,28657,0)="""DATA"",396.18,471,3,86,0)"
^XMB(3.9,23,2,28658,0)="M_ELOL)O:#8'=J*@;#D4<^$K=7@NM\;I8-E&]CJ&4FK6Z9NH5!;),V88T'+#F"
^XMB(3.9,23,2,28659,0)="""DATA"",396.18,471,3,87,0)"
^XMB(3.9,23,2,28660,0)="M4X2)Y9=)4'='9""=OL(4U1DKS'8""""7L2/^VZ;D""_PW0?GPWLC'22'L33*#;J["
^XMB(3.9,23,2,28661,0)="""DATA"",396.18,471,3,88,0)"
^XMB(3.9,23,2,28662,0)="MW2?[>@@^\K[&5&I[PR2%:YC47^!W@""2;ZL!>LJ""1`%5.`V\-54+U?%C;N5[H"
^XMB(3.9,23,2,28663,0)="""DATA"",396.18,471,3,89,0)"
^XMB(3.9,23,2,28664,0)="M54CR]#H82B_HF!=O)SFGUVI663?`1C>\TCF>:5GUY9]+K6U8KH6!NC/*RD)%"
^XMB(3.9,23,2,28665,0)="""DATA"",396.18,471,3,90,0)"
^XMB(3.9,23,2,28666,0)="MGN:JOB=UE_E>(X>\+W+824+?S@B^E%071M@A]86]R*G*'[7O)*=J<DOEM!>="
^XMB(3.9,23,2,28667,0)="""DATA"",396.18,471,3,91,0)"
^XMB(3.9,23,2,28668,0)="M7.3GWE$G%S>HD]L]L8'1T6.$)?`(HZ$*.\QQI6<BOTD4PB6V^^-YKG\A[;K-"
^XMB(3.9,23,2,28669,0)="""DATA"",396.18,471,3,92,0)"
^XMB(3.9,23,2,28670,0)="M\+BH-HSZ0A7?_L37!'[L<>S'+@!'KS8T`]?D7`56W=""<VO97NR4\C/)\;1%M"
^XMB(3.9,23,2,28671,0)="""DATA"",396.18,471,3,93,0)"
^XMB(3.9,23,2,28672,0)="MB15]0I#.\9(O-D/IO-@CIM7BGR(>\2=9W'EU)VZIMVO^O*CDK.+5O""QQ>F2'"
^XMB(3.9,23,2,28673,0)="""DATA"",396.18,471,3,94,0)"
^XMB(3.9,23,2,28674,0)="ME)SQXK[?$_=L$OVA""O^]&-NW4&S_S!/Y[&X(5A-,)/9[(D&0IX'=+Q&%-TRQ"
^XMB(3.9,23,2,28675,0)="""DATA"",396.18,471,3,95,0)"
^XMB(3.9,23,2,28676,0)="M_PV!I!^EDH[;DD`Q7P`5B+6S_8>1QGTHL=-#Q']=HF*I!T7]\""3M?:%8)I1V"
^XMB(3.9,23,2,28677,0)="""DATA"",396.18,471,3,96,0)"
^XMB(3.9,23,2,28678,0)="MC,RV-""(AY1G[6'D&7A>*Q#&L7/Y5""FM'FTH5BLFV[%,0&""W!/T..%WRG(S35"
^XMB(3.9,23,2,28679,0)="""DATA"",396.18,471,3,97,0)"
^XMB(3.9,23,2,28680,0)="ME]]ABN\`=VT`9AOJ.'^!:+\]+!]PB8&\*_2L3+<J^W8WYTY13SB.1&3W[DV!"
^XMB(3.9,23,2,28681,0)="""DATA"",396.18,471,3,98,0)"
^XMB(3.9,23,2,28682,0)="MXW27/*1RV3X3W9/*#'30**N?;_<T1LES4(T=N6JY""B[@<:!+I)2;RHV+""]=B"
^XMB(3.9,23,2,28683,0)="""DATA"",396.18,471,3,99,0)"
^XMB(3.9,23,2,28684,0)="M/['0_@B=ML+GL;1533=P14='URX49[J2WY:Z(EW(]Y<A/TK.Z1M4K+<*^0@S"
^XMB(3.9,23,2,28685,0)="""DATA"",396.18,471,3,100,0)"
^XMB(3.9,23,2,28686,0)="M/N/,^/AT,A'B!L7SUSV=_(M>[*'F""CLE""!77P""1]9RO.450O[""[S,R;R,>E^"
^XMB(3.9,23,2,28687,0)="""DATA"",396.18,471,3,101,0)"
^XMB(3.9,23,2,28688,0)="MR3M\MZI\0&!Y#F++`]6UUR5BP$Y29/G^>M$3[8VC6N<5H734`8J?E$8=5:=!"
^XMB(3.9,23,2,28689,0)="""DATA"",396.18,471,3,102,0)"
^XMB(3.9,23,2,28690,0)="M)[.NPX`*%9+27F`7!J))$H\=30C=B57]2\QZ/""6PJ%Y/J=9""A7C/-%!]QM]U"
^XMB(3.9,23,2,28691,0)="""DATA"",396.18,471,3,103,0)"
^XMB(3.9,23,2,28692,0)="M9""!KA$;Z-%BBG(*O,B\3:&)Z;\NA3A7Z4MO'IG3';=AE#3<B6U+*FH%>OA')"
^XMB(3.9,23,2,28693,0)="""DATA"",396.18,471,3,104,0)"
^XMB(3.9,23,2,28694,0)="M!<8'!WWY(""$2?6YP[KT,-#0[Y8KEV]D<R&QOCUDDOF^'=[=2""+7Z<T^.S6@5"
^XMB(3.9,23,2,28695,0)="""DATA"",396.18,471,3,105,0)"
^XMB(3.9,23,2,28696,0)="MU%$0\N`JVHNW-:.)3F4-.-V&>J,;5:4O2;Y;>#Q7]1Z.;#W6-.V&O8.\CRI/"
^XMB(3.9,23,2,28697,0)="""DATA"",396.18,471,3,106,0)"
^XMB(3.9,23,2,28698,0)="MM5.%9Z;^#LG$2[IIH@[(@\X^<F^$*O*$:MUI)J)4G]4`AR8L$RC0&.$<EW.K"
^XMB(3.9,23,2,28699,0)="""DATA"",396.18,471,3,107,0)"
^XMB(3.9,23,2,28700,0)="M81B#3K/A8&:GP-OR5YA:B@>/,Q7RR9V0VHF%9G)3PF--V=U\K&F/J#M^AH^D"
^XMB(3.9,23,2,28701,0)="""DATA"",396.18,471,3,108,0)"
^XMB(3.9,23,2,28702,0)="M]E$RW!$)>MFGVH\U31!?`A7F7-):O:4&R_?.T%SE#8Q?<D/'=EBO>0+KF8T?"
^XMB(3.9,23,2,28703,0)="""DATA"",396.18,471,3,109,0)"
^XMB(3.9,23,2,28704,0)="MV\FJ'$#YM_J]FD!T::/*]VX8[(-<0SUU16E=A,$3*_I3H3<P%7+I?+^^*[LP"
^XMB(3.9,23,2,28705,0)="""DATA"",396.18,471,3,110,0)"
^XMB(3.9,23,2,28706,0)="M\*T8]A.=CL:D,UMZ-"";L/@>>K;U++43'D."",!_Y0%;M]D&#S^<[8;.&A*O&5"
^XMB(3.9,23,2,28707,0)="""DATA"",396.18,471,3,111,0)"
^XMB(3.9,23,2,28708,0)="M""W1GYX_\AW,>]BS')W:?Y=@;W#&C2_8D)L+>]A9,^[GN$,ALW,""=O1;UY4%("
^XMB(3.9,23,2,28709,0)="""DATA"",396.18,471,3,112,0)"
^XMB(3.9,23,2,28710,0)="MS7`MK.D^YAV^Q,R%H/[=4P(UR-D:C*6%[<&8&26`9BF@NX.`8O,-PQ&#*/`@"
^XMB(3.9,23,2,28711,0)="""DATA"",396.18,471,3,113,0)"
^XMB(3.9,23,2,28712,0)="M3`IB3G!3W@*7%;)#^I6Q.ZPP-/D?F""$X(9C13?Q$`(/9.P?#^$<&XZ0(*ZMA"
^XMB(3.9,23,2,28713,0)="""DATA"",396.18,471,3,114,0)"
^XMB(3.9,23,2,28714,0)="M5AT1#)6?A]=YX[$@C+UD'@KD#',9#$3'9G95U'%_1]^?\_3216_V#3I[E*)0"
^XMB(3.9,23,2,28715,0)="""DATA"",396.18,471,3,115,0)"
^XMB(3.9,23,2,28716,0)="M3D%6J>"":Y25EC3S'@0'*?,$!JZCQ6%ES@`%]V]/**0WIU&7`ODI;NJ6PVD1W"
^XMB(3.9,23,2,28717,0)="""DATA"",396.18,471,3,116,0)"
^XMB(3.9,23,2,28718,0)="MT(`*J*+T!_9,2%<+G`H\/2C=)X*$2_L:KO1$.>A#FB+*+:/G_W\HE^7EY=-2"
^XMB(3.9,23,2,28719,0)="""DATA"",396.18,471,3,117,0)"
^XMB(3.9,23,2,28720,0)="M^\89Y[!.&)95)?WMH%82P:*;MQ^3?%?.18>#P""+G1+_GE9K\%?;S>P3R3YX,"
^XMB(3.9,23,2,28721,0)="""DATA"",396.18,471,3,118,0)"
^XMB(3.9,23,2,28722,0)="MAM#29,A'^\*Z9=BRO-+[4_9K18#TK%E9`8ZX91M5>S\3TBOP3:'[GXG^>@7F"
^XMB(3.9,23,2,28723,0)="""DATA"",396.18,471,3,119,0)"
^XMB(3.9,23,2,28724,0)="M>:/!.F]]-N@XY=6LZ$)I#X[/^-P,AZ/F,VJG""Z[88?\[^(-10D""%3*ZMMY\?"
^XMB(3.9,23,2,28725,0)="""DATA"",396.18,471,3,120,0)"
^XMB(3.9,23,2,28726,0)="M$*7@HYB""WPH8'QZSE""_@;_?W#PD*X0CL90S[>\S?_'VI+8TXE$LEU;ZRB/+V"
^XMB(3.9,23,2,28727,0)="""DATA"",396.18,471,3,121,0)"
^XMB(3.9,23,2,28728,0)="M)'K(@9HA9'QB0TB1AAXV#^NLG.8M72EXUP1/[JZ74P:ZE`\]K*C)6!3]3<&_"
^XMB(3.9,23,2,28729,0)="""DATA"",396.18,471,3,122,0)"
^XMB(3.9,23,2,28730,0)="MZ60LD4GB$SV6[;^USC<I6D7PVU(OL^IZR5Z\WUFU<R2E41G/YE<91YX2L'8Z"
^XMB(3.9,23,2,28731,0)="""DATA"",396.18,471,3,123,0)"
^XMB(3.9,23,2,28732,0)="MX\M,M@/*^&K#.D-*""\HW6I!2O)!\,4Q(AO)I->T_F"".,;&A.[+O^JWE/>\D@"
^XMB(3.9,23,2,28733,0)="""DATA"",396.18,471,3,124,0)"
^XMB(3.9,23,2,28734,0)="MG0]L:'P2JQA78.""WG=')OJ`18,F"",I_6BI:#X4EB?N':_/1"":79Z<9`""$W:]"
^XMB(3.9,23,2,28735,0)="""DATA"",396.18,471,3,125,0)"
^XMB(3.9,23,2,28736,0)="MY%UX_@_2^?]DT`B-W0`VNM_A$55-#\850SE^YH^&^_O[B'4K@77W$1@CAO:?"
^XMB(3.9,23,2,28737,0)="""DATA"",396.18,471,3,126,0)"
^XMB(3.9,23,2,28738,0)="MHBS>P/#.4IZ,>-W!O['[*F['@U2E[1KDKTF^8[M6D*$/X'B;[T@_2'S-VD&0"
^XMB(3.9,23,2,28739,0)="""DATA"",396.18,471,3,127,0)"
^XMB(3.9,23,2,28740,0)="M+DSWT=5\*1)LJO_OY-(.VHA:.3'1T(TJRS&?0'%`!=V3`11-,70'._=UFH!6"
^XMB(3.9,23,2,28741,0)="""DATA"",396.18,471,3,128,0)"
^XMB(3.9,23,2,28742,0)="M*H8&55(57YM6A;/1EW3XKMK`F\CDEC:MIILXH7K*.7U6*:%[J.C/"";@UU%P;"
^XMB(3.9,23,2,28743,0)="""DATA"",396.18,471,3,129,0)"
^XMB(3.9,23,2,28744,0)="M?M54RJ!5F<0BC!-35J6!B@-;$UK3S:JU=D;1'+3GZK(;W$Z$7&]W0G$P?J@3"
^XMB(3.9,23,2,28745,0)="""DATA"",396.18,471,3,130,0)"
^XMB(3.9,23,2,28746,0)="M-QKP;,>H@+6B(&2[3LGVO*#3]G5*-L$,(<E(3_""JYJ+[XY8U&P=''MEL^--5"
^XMB(3.9,23,2,28747,0)="""DATA"",396.18,471,3,131,0)"
^XMB(3.9,23,2,28748,0)="MS7197VQ\MQSJ8=YE<D5^<C1Q(:\*)G>%38Y6B;(YXH7`$\2/43/P5<1@346K"
^XMB(3.9,23,2,28749,0)="""DATA"",396.18,471,3,132,0)"
^XMB(3.9,23,2,28750,0)="M5!JV5FF2+NJT*SA&X*S(]2_P-QO?U_$.*]'/B_S/KW>\44K4RCW)_]SL>+V3"
^XMB(3.9,23,2,28751,0)="""DATA"",396.18,471,3,133,0)"
^XMB(3.9,23,2,28752,0)="MN,.XZFN-\W&I]P[CW>[3$-M[:B2O^<I.WA%MW1JYZU3K?D$;>ZI:?]?O]7PW"
^XMB(3.9,23,2,28753,0)="""DATA"",396.18,471,3,134,0)"
^XMB(3.9,23,2,28754,0)="M]%`NU\N>""??F7"":[&8=RN:MA:!P\3,IZ[^JC7WV?YP%4_J(ZED6558^/7FV="
^XMB(3.9,23,2,28755,0)="""DATA"",396.18,471,3,135,0)"
^XMB(3.9,23,2,28756,0)="M!,OE\SOO0`#GC%`-4>6K3^0O>*G_^W:?Q!P0[%NFZ((W?1+SBD!B[F[?-%;X"
^XMB(3.9,23,2,28757,0)="""DATA"",396.18,471,3,136,0)"
^XMB(3.9,23,2,28758,0)="M6JX!:X*9Y3=VY/^2=F%G,G^CR`<8`WN'-E_N^Q`[VXD\X'-,;V^#/57@8=%."
^XMB(3.9,23,2,28759,0)="""DATA"",396.18,471,3,137,0)"
^XMB(3.9,23,2,28760,0)="MD=$UP:7!W@8[!HB<!/@&=-YM9W>O'_#7_M0$=]&PW?90Z#WL*;,M(7*@.T])"
^XMB(3.9,23,2,28761,0)="""DATA"",396.18,471,3,138,0)"
^XMB(3.9,23,2,28762,0)="M_5SP[KA""+M/?""?@[9QUEA8H1W5?8W-UEE:>45UXOW([-9`:^8V>&:\;G9=1#"
^XMB(3.9,23,2,28763,0)="""DATA"",396.18,471,3,139,0)"
^XMB(3.9,23,2,28764,0)="ML$EMW>9R>RHGR]/\S1WZBA8*:MOU7W[+%2+Z*7J2X)\DG^Q_523[O1YF9QW;"
^XMB(3.9,23,2,28765,0)="""DATA"",396.18,471,3,140,0)"
^XMB(3.9,23,2,28766,0)="M#F^""\+-60X??&.%/<]""W0/CI:N[I0?CS`R;\67X=.@M_=N""%W[?L780_O7W"""
^XMB(3.9,23,2,28767,0)="""DATA"",396.18,471,3,141,0)"
^XMB(3.9,23,2,28768,0)="MG^-IWD'X""WG5WW,Y)+)+\YT?1RB\[WL>^8N[X=#004':E&;6""Q'^$CU16<HX"
^XMB(3.9,23,2,28769,0)="""DATA"",396.18,471,3,142,0)"
^XMB(3.9,23,2,28770,0)="M=DRGV/40RO8?4^7K`FF)T5^1T.U]D:VYX8Q%PB?)L.]GPQ;9L(=#;WZ2^[^*"
^XMB(3.9,23,2,28771,0)="""DATA"",396.18,471,3,143,0)"
^XMB(3.9,23,2,28772,0)="MB5TLL$Y&>S;2QZU6O=[\Q$7#U+D_UGVT]FBXFZN=*-%XDNH>[YW*GT`]3H7P"
^XMB(3.9,23,2,28773,0)="""DATA"",396.18,471,3,144,0)"
^XMB(3.9,23,2,28774,0)="M[SPA?&?D$`H]O6#T[`(J?)%_+WK4_QC=:WP+2E\\<;'A6N3YJ,`IY\2`MS[R"
^XMB(3.9,23,2,28775,0)="""DATA"",396.18,471,3,145,0)"
^XMB(3.9,23,2,28776,0)="M!YG6.R5(R3U*4QBGG-/D%F+$+O38)KHRL*9HCF-5='PH;4UWT26!4%Q:]ZH,"
^XMB(3.9,23,2,28777,0)="""DATA"",396.18,471,3,146,0)"
^XMB(3.9,23,2,28778,0)="MQ*8#""T*PKRU?BM+%K0K.H%VL0GT+7T%34Z$'O(7W/5(2CN'%&Z(4_!<I""/$<"
^XMB(3.9,23,2,28779,0)="""DATA"",396.18,471,3,147,0)"
^XMB(3.9,23,2,28780,0)="M36J2*PRQ$.);&EDZN9VJ@EQJJ_@@Q;L-=+,C^G_M77^,'-==G[WQ[=W9=[;O"
^XMB(3.9,23,2,28781,0)="""DATA"",396.18,471,3,148,0)"
^XMB(3.9,23,2,28782,0)="M_-N.D[7SRX9SLCO[:]9)X]J^<V,2QZY]L2E)4.=VY^X&[^YL9W9M7Q0$#8I:"
^XMB(3.9,23,2,28783,0)="""DATA"",396.18,471,3,149,0)"
^XMB(3.9,23,2,28784,0)="MU""+24M%0H(&D)""I0*"")$0*$(5$""E-`*4@!`5""*4HP!\THA(((5'>>_/>F^_;"
^XMB(3.9,23,2,28785,0)="""DATA"",396.18,471,3,150,0)"
^XMB(3.9,23,2,28786,0)="M>3L[X[MZ=PZB*)G=NYOWOM_W?=_W?=\?GV].DF$\-UP+P.Y66Z`AJ'Y6PJ[#"
^XMB(3.9,23,2,28787,0)="""DATA"",396.18,471,3,151,0)"
^XMB(3.9,23,2,28788,0)="M1\Y@J=**V?+1+@?]XBIQ.8=[FTM4;;S@J7B=\LB08'7@AIGS)T\_#*15IFU9"
^XMB(3.9,23,2,28789,0)="""DATA"",396.18,471,3,152,0)"
^XMB(3.9,23,2,28790,0)="M/\E?]M[X,)W\MY2@MGUB`7?TM$ASS^J*C=0$65ED@H-U/@R;+!_&=@H2#L?L"
^XMB(3.9,23,2,28791,0)="""DATA"",396.18,471,3,153,0)"
^XMB(3.9,23,2,28792,0)="MLY'N""Z^RI.7LC.RST7S;\`5Y^`+U6:6/?UKRA@+D$W\#@'WQ&?7HV29IZ^[Q"
^XMB(3.9,23,2,28793,0)="""DATA"",396.18,471,3,154,0)"
^XMB(3.9,23,2,28794,0)="MA[4Y1P8UV1J<:`RM@$WLED&W)-Y$-6PA9HQJV[J&=JK9ES-%@;`7PP@KR`DK"
^XMB(3.9,23,2,28795,0)="""DATA"",396.18,471,3,155,0)"
^XMB(3.9,23,2,28796,0)="M""83Q-]P9?,.8=Q+)7R-*YFB@>,8/;KV,11/?,G#XI>.TD""""YLTA!M&R'?`>Y"
^XMB(3.9,23,2,28797,0)="""DATA"",396.18,471,3,156,0)"
^XMB(3.9,23,2,28798,0)="MA,0%F?B>TB+\L1`G&4==$Q?XM4W$,,3-IEE%I@#V3:-S'^F?:[C'/+*228/;"
^XMB(3.9,23,2,28799,0)="""DATA"",396.18,471,3,157,0)"
^XMB(3.9,23,2,28800,0)="MEF.1!K>6:RQ:&$XL8UXSZAWOJK/$>LORH?IQ71>(O1HM6`)?4!%V'7V!^K,R"
^XMB(3.9,23,2,28801,0)="""DATA"",396.18,471,3,158,0)"
^XMB(3.9,23,2,28802,0)="ME7&^Y8G'+#-O\&QQ.W,6NB+[NLL$+@`36/U-)JS7N:_V^93HBNTV;6%R4O#`"
^XMB(3.9,23,2,28803,0)="""DATA"",396.18,471,3,159,0)"
^XMB(3.9,23,2,28804,0)="M$5#<6''Z3LD!^R!'#`*[`&\*?U$#FX""+_G#H]A+HP*7^NA*H$?*)?4C$ILZX"
^XMB(3.9,23,2,28805,0)="""DATA"",396.18,471,3,160,0)"
^XMB(3.9,23,2,28806,0)="MUG(3Z?8J#BIR\GM2*[G!^R>C#MN`L1O2LQ)I.3!/!L+C=-P.&L`?;9!GI4\)"
^XMB(3.9,23,2,28807,0)="""DATA"",396.18,471,3,161,0)"
^XMB(3.9,23,2,28808,0)="M%?R7%(&4WY5HT5-7\-DAR`TY,O@.MAHMPR.U+TM##U76\M7C[E-T,[L2W\M%"
^XMB(3.9,23,2,28809,0)="""DATA"",396.18,471,3,162,0)"
^XMB(3.9,23,2,28810,0)="MT^W4B8ZZ;CM7^08$*S>^@,\]9/YZF]U[%IJX,<2HCW*2[P.][?6M\S<(D'7-"
^XMB(3.9,23,2,28811,0)="""DATA"",396.18,471,3,163,0)"
^XMB(3.9,23,2,28812,0)="M,ZQN588NO/)WW_-W/V:3X@4FRYZ(N>D=LB\G,?+)?*-5MU?-6H^[J]*#3T7("
^XMB(3.9,23,2,28813,0)="""DATA"",396.18,471,3,164,0)"
^XMB(3.9,23,2,28814,0)="MIZL!/AWGB6'92IGS?`@9MN^DB_<^CM5;B""V8`YE:!TMD>L?9)L[<P.=:FV0@"
^XMB(3.9,23,2,28815,0)="""DATA"",396.18,471,3,165,0)"
^XMB(3.9,23,2,28816,0)="M8+_)+O]+8]'%:0JFY3;2HP0Q0MER#LN<1]U$ST)I*4.IS?*+WF:K4(Y^G7.T"
^XMB(3.9,23,2,28817,0)="""DATA"",396.18,471,3,166,0)"
^XMB(3.9,23,2,28818,0)="M[G.TK`\S1[?@2""LZV;'/+[UGSF3L0L<(3ICW7);IW6>;\+!?-%>,:Y;MI/=>"
^XMB(3.9,23,2,28819,0)="""DATA"",396.18,471,3,167,0)"
^XMB(3.9,23,2,28820,0)="ML-&92>Q/W#.^;3J&EQR4/C2'%LBJ(@:O(BN@7K>OX\UM@?RA](P_&L&F1)HG"
^XMB(3.9,23,2,28821,0)="""DATA"",396.18,471,3,168,0)"
^XMB(3.9,23,2,28822,0)="MO1]\9S2QFJV9B&<._ADS@%W/SJU;2T1A8-NE:CC.*OJ0W@&&=;#E@;^<OM0R"
^XMB(3.9,23,2,28823,0)="""DATA"",396.18,471,3,169,0)"
^XMB(3.9,23,2,28824,0)="M36+YL)^E9UB\$'PW?=G""*6_PJVV/(IZ3))$VR>Q)[[AB&E>Q:&%;80DQ9[EC"
^XMB(3.9,23,2,28825,0)="""DATA"",396.18,471,3,170,0)"
^XMB(3.9,23,2,28826,0)="MIN_T)XW(,YO+[97C%&D%3=XQ&WCVTE]"";!%^:>?C:%+8T+*::`$0>=A'G)XY"
^XMB(3.9,23,2,28827,0)="""DATA"",396.18,471,3,171,0)"
^XMB(3.9,23,2,28828,0)="M8U8)?\%WFRX85C,]-6>Y2V@.Z,]-+&Z1Y5K2]#P+CV.6E:\NI7P_/I#I2I(0"
^XMB(3.9,23,2,28829,0)="""DATA"",396.18,471,3,172,0)"
^XMB(3.9,23,2,28830,0)="MXU5%8L=1\_Z9E&C(G;D)0TZ5&#>P[P;WE.Z7V#8G_,ZO*^'&G&=V=%]CAJS0"
^XMB(3.9,23,2,28831,0)="""DATA"",396.18,471,3,173,0)"
^XMB(3.9,23,2,28832,0)="MI)R%-_:#W?""4_EUE]J1CLN88O@DGI_'$D!')`LI><X5S+('\'R5FH\:7]S#9"
^XMB(3.9,23,2,28833,0)="""DATA"",396.18,471,3,174,0)"
^XMB(3.9,23,2,28834,0)="MG(<IM;V)C1D28BG)3P@,?S^;B>&;0""&M@<8E$:&QTRNV8][R5L0]:A#.6?5:"
^XMB(3.9,23,2,28835,0)="""DATA"",396.18,471,3,175,0)"
^XMB(3.9,23,2,28836,0)="M>OR<7</5DJ3)!]J""9GK\@H,>FFUW34`G#+7A<TI_)E9B,7$""_7*KA2A)-ANC"
^XMB(3.9,23,2,28837,0)="""DATA"",396.18,471,3,176,0)"
^XMB(3.9,23,2,28838,0)="MH0_1['+U6_W9&`)B+67C_`W3J5JNF6PV1D.3T6""&A_IC2I@T%N-MZ4O8$Y3P"
^XMB(3.9,23,2,28839,0)="""DATA"",396.18,471,3,177,0)"
^XMB(3.9,23,2,28840,0)="M+1T-T8FV#O'48A@3D3%3CL7$+1>)(2>B9B21D:/1I+$(=6.X..:T6)S<O.`8"
^XMB(3.9,23,2,28841,0)="""DATA"",396.18,471,3,178,0)"
^XMB(3.9,23,2,28842,0)="MUW#-;<*U8SI:GUR:*/-N!$9F]5B,'#]CDH+D9+-Q+)H\5J!V_)=0+I;B<?&4"
^XMB(3.9,23,2,28843,0)="""DATA"",396.18,471,3,179,0)"
^XMB(3.9,23,2,28844,0)="MT5Y)/!<C6HTZ5(_A7(RG'B?F<-Y`XMD8K1L1#1`SY1C*QUPNIG*TK;K93CPC"
^XMB(3.9,23,2,28845,0)="""DATA"",396.18,471,3,180,0)"
^XMB(3.9,23,2,28846,0)="M-T=C9`F:CGT$,A]/(-$`=B/Q?-P2J0)=""&><IDQ\+V-B@=<U%_*1F!BGE=,$"
^XMB(3.9,23,2,28847,0)="""DATA"",396.18,471,3,181,0)"
^XMB(3.9,23,2,28848,0)="M\R158);(D^QRG.6^C^\!IE<I27ZD246><42=P1=&A!33)X(I0-,X*2\#X_C`"
^XMB(3.9,23,2,28849,0)="""DATA"",396.18,471,3,182,0)"
^XMB(3.9,23,2,28850,0)="M&HM4',.97(`9'>^A/'Z*\_B]_DH72LDHC>E1K`]35]1/*P%*_1Q&3:_T2+!,"
^XMB(3.9,23,2,28851,0)="""DATA"",396.18,471,3,183,0)"
^XMB(3.9,23,2,28852,0)="M=<NQ$I1:FMJXF8QSF:;ZJ*^SM*J12R!7,I\`CF[JW6VH""-MDLJC9U[GC\\A&"
^XMB(3.9,23,2,28853,0)="""DATA"",396.18,471,3,184,0)"
^XMB(3.9,23,2,28854,0)="MR.+<(>N11C-R?E2!:9SJUR0%1K>)?3)QW,;!(=#3!OKOD#7)I.KGC[RC\[\W"
^XMB(3.9,23,2,28855,0)="""DATA"",396.18,471,3,185,0)"
^XMB(3.9,23,2,28856,0)="M8GT1,_IGA(9Y?\EK#/XV?I-,0:]\@3'M^R4-\TARE@?RY'7:'A:4IRBMV;*P"
^XMB(3.9,23,2,28857,0)="""DATA"",396.18,471,3,186,0)"
^XMB(3.9,23,2,28858,0)="M._0>2J43J!?(5F+6""VSV`""AKSFILT/=>:(TZ7!$&.@(2&':!R?:M$-C4/9=>"
^XMB(3.9,23,2,28859,0)="""DATA"",396.18,471,3,187,0)"
^XMB(3.9,23,2,28860,0)="M;:'O!FVA8W6%EG%;:(+.L$0_)*G.T.-Q>]+CMHLT_.J:NXC+)@Z[63/48OG$"
^XMB(3.9,23,2,28861,0)="""DATA"",396.18,471,3,188,0)"
^XMB(3.9,23,2,28862,0)="MB[>N`WHTKS-K?NQUXOZ($C;Y?#SL;3YYOO7C$:""&]`""EWJ!WE/XJ+7(/T#P,"
^XMB(3.9,23,2,28863,0)="""DATA"",396.18,471,3,189,0)"
^XMB(3.9,23,2,28864,0)="M2VU<G9:3Z;0/R72:/FB=!O/Y^NFTTG#JM'QDG:8/ETXK1-9II:'3::7H.JUP"
^XMB(3.9,23,2,28865,0)="""DATA"",396.18,471,3,190,0)"
^XMB(3.9,23,2,28866,0)="MZW5:#Q2#`L09&3E%A?T[7*7-;(2+Q4Y)40<]@>9ALL?(D\%;Q12Y5:#_9'#V"
^XMB(3.9,23,2,28867,0)="""DATA"",396.18,471,3,191,0)"
^XMB(3.9,23,2,28868,0)="MSE`!VN<@4A\/W?8ON1U@ZBN<?0'B#'XR[.03JGQ;:!D&>?)):2E""6KX4Z/`*"
^XMB(3.9,23,2,28869,0)="""DATA"",396.18,471,3,192,0)"
^XMB(3.9,23,2,28870,0)="M$)MA2;%(BAP(2$!W_]<8.$""C?:]M4M\-1(507V*GWU>#IQ]2P;G85;+?K9K?"
^XMB(3.9,23,2,28871,0)="""DATA"",396.18,471,3,193,0)"
^XMB(3.9,23,2,28872,0)="M+@A3N!R\3^M7996^6B5N@P!-*'0_%2@'.P0`ZN,UMYI^U*YVR08'$PUT5V17"
^XMB(3.9,23,2,28873,0)="""DATA"",396.18,471,3,194,0)"
^XMB(3.9,23,2,28874,0)="M9F!IIB=.V>T5_.3&/GG%DON5[IKXHX`H+78_\):'VWPSQ>DC/055AX+Z-25L"
^XMB(3.9,23,2,28875,0)="""DATA"",396.18,471,3,195,0)"
^XMB(3.9,23,2,28876,0)="MD?/9V&;:.C<*H*&2CWO'[""S#1>+^N^F-AQ:T*UCN0,^KAP@3I@.`P`#9H!LK"
^XMB(3.9,23,2,28877,0)="""DATA"",396.18,471,3,196,0)"
^XMB(3.9,23,2,28878,0)="M:,$Q.@WCB'MT\,79/CGT`#LJ^/._($DHO!M?W68S=;:]O=*VMHDK;7'6*""%N"
^XMB(3.9,23,2,28879,0)="""DATA"",396.18,471,3,197,0)"
^XMB(3.9,23,2,28880,0)="M(,>RY,1A^LT6T98?V0#=RG-49\R2%7NLNP)`?0ZBD^G)0R?;YL<+LIJFP0L)"
^XMB(3.9,23,2,28881,0)="""DATA"",396.18,471,3,198,0)"
^XMB(3.9,23,2,28882,0)="MKUM^:V,A/^P.MO;&M-.NH6K**RE4*?&_(M$U>SP#GQ3I$)3,P2/X24D27""CJ"
^XMB(3.9,23,2,28883,0)="""DATA"",396.18,471,3,199,0)"
^XMB(3.9,23,2,28884,0)="M=A:CG4T%B\5J7G=5H1!LA2I3U\*-NOA%,G.$%&9@;>22(FSOYW7#;7N@GQ8M"
^XMB(3.9,23,2,28885,0)="""DATA"",396.18,471,3,200,0)"
^XMB(3.9,23,2,28886,0)="M-4/_8J10@LJ)?W`BK)RL:^;0Q:J^SH[J$4EFO7[:Z+A<+R*[#Q>YM+V"":E)E"
^XMB(3.9,23,2,28887,0)="""DATA"",396.18,471,3,201,0)"
^XMB(3.9,23,2,28888,0)="MA@P),K><=JR!#U]L%EIV[42P7E""<@R[<SI]G<WA;HJVS""Y)Q*6)L^-CAG-`T"
^XMB(3.9,23,2,28889,0)="""DATA"",396.18,471,3,202,0)"
^XMB(3.9,23,2,28890,0)="M7KK]JF<'_%``#,B?Q1WPHE#M.*1NRN12&DXP&DK<_72D$5-2&\_\BG%>7A;H"
^XMB(3.9,23,2,28891,0)="""DATA"",396.18,471,3,203,0)"
^XMB(3.9,23,2,28892,0)="MF._=Z'?':3IU7QC[O[T""IT[1,D8^(+E,/=Y5U7G""/]&VPQ--TRHT)7*^""]#D"
^XMB(3.9,23,2,28893,0)="""DATA"",396.18,471,3,204,0)"
^XMB(3.9,23,2,28894,0)="MD>#NZ;Y(342.?\V((%N(%,JGA13T>ZHNM_N>2O%A=UTTVY;C015WFB8M&H1)"
^XMB(3.9,23,2,28895,0)="""DATA"",396.18,471,3,205,0)"
^XMB(3.9,23,2,28896,0)="M8E)FL5#B*R(<]`](EH)Y`1PR4*2%9MO&0Z[+]498V$DV;MRWZS""`SQML_'#P"
^XMB(3.9,23,2,28897,0)="""DATA"",396.18,471,3,206,0)"
^XMB(3.9,23,2,28898,0)="M]?MIO^B;&*1""&?1G7JQUA""G.7Y)LND.R3<<6(]IH.DQUO(L-]K)LAU\T#1=="
^XMB(3.9,23,2,28899,0)="""DATA"",396.18,471,3,207,0)"
^XMB(3.9,23,2,28900,0)="MBC++UC73J[N/,Y26%5`%GZ$C?5XRTEV76F858R@W3`S%4,\<::VLNOCIJ%\W"
^XMB(3.9,23,2,28901,0)="""DATA"",396.18,471,3,208,0)"
^XMB(3.9,23,2,28902,0)="MWW<X*LM?5H3Q/BH9[R`;K^6N5E<L`UDW5>E`W1?3O;+K-MJ\62`G(]NHF%AL"
^XMB(3.9,23,2,28903,0)="""DATA"",396.18,471,3,209,0)"
^XMB(3.9,23,2,28904,0)="MX#NI':-AAWQLS^HU$Y=`-JE(U<#UE$\T:DH5=CULY4T*L_CH$S;G'91G?QRX"
^XMB(3.9,23,2,28905,0)="""DATA"",396.18,471,3,210,0)"
^XMB(3.9,23,2,28906,0)="MI.*I^U6\PN5]\\+YB[2""E22/\4]$P6A0!BC$OFKRD[4""WM^[IC6TVO3.^;JU"
^XMB(3.9,23,2,28907,0)="""DATA"",396.18,471,3,211,0)"
^XMB(3.9,23,2,28908,0)="M;&'$\\75#.ZPA.2T!K8)/A[3^\]U2Q9;[Z/I@_[/@N)P5%H`N=4SA_!2XOF/"
^XMB(3.9,23,2,28909,0)="""DATA"",396.18,471,3,212,0)"
^XMB(3.9,23,2,28910,0)="MC_M/OF=@$D]TP6IQ:_0*P5T??]1N+I,\+6;_;V7V/[&*A:2A-Y0`RS3`LD25"
^XMB(3.9,23,2,28911,0)="""DATA"",396.18,471,3,213,0)"
^XMB(3.9,23,2,28912,0)="M3(Y&WT^4!ZJH$;_""Q?*PSX-BO!UU#]A1_BF&H?LS3;N]QDV6ALZ@&2%HAS=;"
^XMB(3.9,23,2,28913,0)="""DATA"",396.18,471,3,214,0)"
^XMB(3.9,23,2,28914,0)="M15#TW$+^G&RW]>\1,]8](>!WS'F>R,D<1B&A/<;2DQK^5*2?IHKX4RY+/VY%"
^XMB(3.9,23,2,28915,0)="""DATA"",396.18,471,3,215,0)"
^XMB(3.9,23,2,28916,0)="M3_AWV>>9<S:II40O8]\I<GD5*HORJ8""\W@V(*B9)7GOLSR*D]^-L?[[*%S'O"
^XMB(3.9,23,2,28917,0)="""DATA"",396.18,471,3,216,0)"
^XMB(3.9,23,2,28918,0)="MTULJ)ZRD649O""1ZK/L%?E!*L)XG@33TD6DC^N)])]!R7Z#F@@7-)(GA,3B^\"
^XMB(3.9,23,2,28919,0)="""DATA"",396.18,471,3,217,0)"
^XMB(3.9,23,2,28920,0)="MSJA_HH316\XFB=XP?8QONY#NGP_2#=1QJ=)/'8]VJ^-45M3(UTWS:CI-_S^F"
^XMB(3.9,23,2,28921,0)="""DATA"",396.18,471,3,218,0)"
^XMB(3.9,23,2,28922,0)="MD?^[Z;$\>RBPAR)[*+&',GO0V4.%/HPCM<V><OQ)XT]Y_E3@3T7^5.)/9?ZD"
^XMB(3.9,23,2,28923,0)="""DATA"",396.18,471,3,219,0)"
^XMB(3.9,23,2,28924,0)="M\R<^AL;'T/@8&A]#XV-H?`R-CZ'Q,30^AL;'T/@8>3Y&GH^1YV/D^1AY/D:>"
^XMB(3.9,23,2,28925,0)="""DATA"",396.18,471,3,220,0)"
^XMB(3.9,23,2,28926,0)="MCY'G8^3Y&'D^1IZ/4>!C%/@8!3Y&@8]1X&,4^!@%/D:!CU'@8Q3X&$4^1I&/"
^XMB(3.9,23,2,28927,0)="""DATA"",396.18,471,3,221,0)"
^XMB(3.9,23,2,28928,0)="M4:1C*.'B**0@K5)I_(S,.""C'#VR.G^G4Z]AAE9Y`.ZA]C#Q.(7-VZ1@S@M+C"
^XMB(3.9,23,2,28929,0)="""DATA"",396.18,471,3,222,0)"
^XMB(3.9,23,2,28930,0)="ME\B%SZ@SFS=\OJ*O:#7,FND/5KYI.*P9ED)'B;H4(&HW(""J?)%TX$MWZ+@#K"
^XMB(3.9,23,2,28931,0)="""DATA"",396.18,471,3,223,0)"
^XMB(3.9,23,2,28932,0)="M>V2.LN`%SH)[`0NRL8SOVX'Q3;T7]=4,D[_8""5NR]1,VT9&`2M\/-E$AR>U="
^XMB(3.9,23,2,28933,0)="""DATA"",396.18,471,3,224,0)"
^XMB(3.9,23,2,28934,0)="M6&;S!Z""#4YWAP9-O*AL@>+)'DLJBTQWZJV+!Q2N2R,ENL>#BG.&V;:LV9*U<"
^XMB(3.9,23,2,28935,0)="""DATA"",396.18,471,3,225,0)"
^XMB(3.9,23,2,28936,0)="M&$CLVXH`&N0[?F]/?JE%7F@QP/*2_Y/'-7\R=JF%GH.00""7*L\<EN5F>8]:@"
^XMB(3.9,23,2,28937,0)="""DATA"",396.18,471,3,226,0)"
^XMB(3.9,23,2,28938,0)="M0F""U5X\/?3*RKD$%/!,(PF1`V5B\G/_]\QAG%0?0L/]XQ:Z;;MLTVG;<C%,E"
^XMB(3.9,23,2,28939,0)="""DATA"",396.18,471,3,227,0)"
^XMB(3.9,23,2,28940,0)="M$+IF;JLM0M;1/_`YOX\IWCQ2O0E0O*F0-'MZ(YY,]1?GJ&GVNK:1Y3D?79[U"
^XMB(3.9,23,2,28941,0)="""DATA"",396.18,471,3,228,0)"
^XMB(3.9,23,2,28942,0)="M89%G+;(\Y[()D><>ED0!=DAC)I/""+8E[-T(:QE[)GF.1R2\J`J#>IWM;$FAE"
^XMB(3.9,23,2,28943,0)="""DATA"",396.18,471,3,229,0)"
^XMB(3.9,23,2,28944,0)="MJG4S,V?B;@-HZPV9)4&ALK[1JRG<@0U0M%F6%6V^H_@MEN-:$M3^HAM]F?+L"
^XMB(3.9,23,2,28945,0)="""DATA"",396.18,471,3,230,0)"
^XMB(3.9,23,2,28946,0)="M8%#SIHGF'7YM6RI"";;LS$':]QR\/TN+5KMW%ZSQ(-R>*)XE[(N""6`=[FB*UW"
^XMB(3.9,23,2,28947,0)="""DATA"",396.18,471,3,231,0)"
^XMB(3.9,23,2,28948,0)="MHU!4AA31<B'U+Z04Q<MH/A:@R&AGZB9)HKD_SR@,DA8G*)0*IOE5H,BU*3U_"
^XMB(3.9,23,2,28949,0)="""DATA"",396.18,471,3,232,0)"
^XMB(3.9,23,2,28950,0)="MSNEY'-A*Y62X%GKN5XJ]GT[UW[""12Q(%'-2-L&/U\!T+J@^U0C)V;""5\QT**"
^XMB(3.9,23,2,28951,0)="""DATA"",396.18,471,3,233,0)"
^XMB(3.9,23,2,28952,0)="MM`3L6`:(.A5AQ^H)V;$]K$&ZN9X2V@;_*4\(>\]&L`;WR1JZEF2-@M^0&(.W"
^XMB(3.9,23,2,28953,0)="""DATA"",396.18,471,3,234,0)"
^XMB(3.9,23,2,28954,0)="M!QH%X^J[.9:Q.F2=@L7P[:[41C0*<]""]=&^@[/V=^)V""*Q#S:L_:FH46(`CZ"
^XMB(3.9,23,2,28955,0)="""DATA"",396.18,471,3,235,0)"
^XMB(3.9,23,2,28956,0)="MCS.KO""CIE,7K""/LT""!5:+SQ`7W@@^,)1G#HKGY2T4<K(]P;?,<%2#N&<NGM"""
^XMB(3.9,23,2,28957,0)="""DATA"",396.18,471,3,236,0)"
^XMB(3.9,23,2,28958,0)="MEN&$[J(+\/NRAK`E/4J->TZ8'D=HDKZQG!U,E5\]>F=/@3W?%TJ,%A5NBM7I"
^XMB(3.9,23,2,28959,0)="""DATA"",396.18,471,3,237,0)"
^XMB(3.9,23,2,28960,0)="M3[$Z?:],_QY0II]9:YT^51[T&*>6EOK3$L=-*1_/<;,+'>,UQ["":.&%O'2KO"
^XMB(3.9,23,2,28961,0)="""DATA"",396.18,471,3,238,0)"
^XMB(3.9,23,2,28962,0)="M1'Y#Q#K$Y]X,UTN%6UEZUTM_T4CJ-Y7^""BQRN^/R.FHP?>WZIK+>2K""075<-"
^XMB(3.9,23,2,28963,0)="""DATA"",396.18,471,3,239,0)"
^XMB(3.9,23,2,28964,0)="MID?78)5(&JP20X/EAEV#:=GH&BQ_RS18K\GF8FS_W*W;_E$4;CFZPJT,0.'V"
^XMB(3.9,23,2,28965,0)="""DATA"",396.18,471,3,240,0)"
^XMB(3.9,23,2,28966,0)="M0NF@#OX'R+0/T6E/<Q?R6QLA&+U?AJM`@]%O""L'HD2N]8#H6K&;3:G?<P=?N"
^XMB(3.9,23,2,28967,0)="""DATA"",396.18,471,3,241,0)"
^XMB(3.9,23,2,28968,0)="M^57""=+?L$3J*OBBIFLB0DX*T1K*<:J>!1:AJNO#LD`%$4""_[WWL7D%_H&]\&"
^XMB(3.9,23,2,28969,0)="""DATA"",396.18,471,3,242,0)"
^XMB(3.9,23,2,28970,0)="M6Z_/=2#""AF(%3A\3_$\CU[N3DW/E8B$>""MEN[(B@RYEQ3)K.<I,>!TGKI`)<"
^XMB(3.9,23,2,28971,0)="""DATA"",396.18,471,3,243,0)"
^XMB(3.9,23,2,28972,0)="MELLL_L0361YD'@=-+Y>2D5P<`6J8RLH^<;6L0""IYOJ#%5W]\M6Y._:4B44""O"
^XMB(3.9,23,2,28973,0)="""DATA"",396.18,471,3,244,0)"
^XMB(3.9,23,2,28974,0)="M9OL$=V<J):$@'R]W:A<$WV!ZQ`?@""!Q39![IB5-6W<`)5_7T*+$<TU-GFS6<"
^XMB(3.9,23,2,28975,0)="""DATA"",396.18,471,3,245,0)"
^XMB(3.9,23,2,28976,0)="M@H5;C[5-)4*J$06/43_C*;G-E*@/<Y_0BQL/'.)`$)%)%SQCC`M_('$0'2""Z"
^XMB(3.9,23,2,28977,0)="""DATA"",396.18,471,3,246,0)"
^XMB(3.9,23,2,28978,0)="M_C'3;M4-M\&*A;'CU7`&K_E!RREZO3M&*/I@[^K&`W-^%V1$2:>!3)\CY@VC"
^XMB(3.9,23,2,28979,0)="""DATA"",396.18,471,3,247,0)"
^XMB(3.9,23,2,28980,0)="MVCXJ:TA>UL%[U4\P`^PCDC/E-G;[\/LL'VDT[E]%_\A?78&OYN!W_R1Y=0Y?"
^XMB(3.9,23,2,28981,0)="""DATA"",396.18,471,3,248,0)"
^XMB(3.9,23,2,28982,0)="M1ER.9>%-'3=9(47T1ZQFM=[!#2XR;L=9-AWY>)4<'.\8\YY=""`ZWC5:`AC1J"
^XMB(3.9,23,2,28983,0)="""DATA"",396.18,471,3,249,0)"
^XMB(3.9,23,2,28984,0)="MIV5-ZM]Y1^&WV5&X$JSQ/<3X0@JZP;0Y<Z)U2V4&Y3%A1)![X0_YP#Q>4,(K"
^XMB(3.9,23,2,28985,0)="""DATA"",396.18,471,3,250,0)"
^XMB(3.9,23,2,28986,0)="M/K!!>@,2.4;Z',ZC5IO--!JSF9#)R+R1U%YZP>/`M51TN*CQ=3`&J%S>+2CG"
^XMB(3.9,23,2,28987,0)="""DATA"",396.18,471,3,251,0)"
^XMB(3.9,23,2,28988,0)="MMX+(2%F]$D\Y3U^R/*Y19C4`,M)@&@,`U""4`Q>3C+_7L]1KAC""M!-I[HS4:]"
^XMB(3.9,23,2,28989,0)="""DATA"",396.18,471,3,252,0)"
^XMB(3.9,23,2,28990,0)="M5(X78-Y[Q2#1':IB<'[3<E,XJ-5>!W5Z[/'FU:9]O1D>><U#C=>D4S^:DDT]"
^XMB(3.9,23,2,28991,0)="""DATA"",396.18,471,3,253,0)"
^XMB(3.9,23,2,28992,0)="MEXPX3A>RF*""O7E8""%(*[;UF3U'[Y(:\L?-,;2BBO2LFH]NKB%4WQR@KEF"".K"
^XMB(3.9,23,2,28993,0)="""DATA"",396.18,471,3,254,0)"
^XMB(3.9,23,2,28994,0)="M,E85)+7/HX$7B@DXX6\L2MZ8#@JL!E?AP51@%?+@E=EDE*`1*W/;`OIJT:P]"
^XMB(3.9,23,2,28995,0)="""DATA"",396.18,471,3,255,0)"
^XMB(3.9,23,2,28996,0)="M9K?-1=N^2M2,^!459:\#!FN>\""YW*OQ::AOZ_5""*I_@O$*(G$-'MYH)YH[V5"
^XMB(3.9,23,2,28997,0)="""DATA"",396.18,471,3,256,0)"
^XMB(3.9,23,2,28998,0)="M_8`IV4GVA43/\K=0#OC$W(:>T8<+QK*I>)/=1"":[U^^.1\.$RN8%RAG[QD$)"
^XMB(3.9,23,2,28999,0)="""DATA"",396.18,471,3,257,0)"
^XMB(3.9,23,2,29000,0)="MJ?R'=-=YIC;;=/_,B?YD:O?#MO,TY_)]""PY:1;02$SLPK_WO+QK-95-]/K5;"
^XMB(3.9,23,2,29001,0)="""DATA"",396.18,471,3,258,0)"
^XMB(3.9,23,2,29002,0)="M_)K_^NA)K%O'QHTZ.C_1ZFT^V6G;WN^-""^9Y>M'%/68&:8Q#Q_D4=)Q3""1D5"
^XMB(3.9,23,2,29003,0)="""DATA"",396.18,471,3,259,0)"
^XMB(3.9,23,2,29004,0)="M`*2^P0\B;;""39O;/M&__%+/XGSS,8=L2N$CX#I&M%\TJ6@HW<Y'@&JWC]HY/"
^XMB(3.9,23,2,29005,0)="""DATA"",396.18,471,3,260,0)"
^XMB(3.9,23,2,29006,0)="M3A_SJ]<2%<`2J7^C=*^1^GEEH`%GODA;@)'J3?DZ69X?Z8Z<^!;JV$7SF-TR"
^XMB(3.9,23,2,29007,0)="""DATA"",396.18,471,3,261,0)"
^XMB(3.9,23,2,29008,0)="MF]$A32/85AITM--$DY%FM_]7RY:+\1P@.T&^`C-2X_D_-D6:?Q[._R1=[D\H"
^XMB(3.9,23,2,29009,0)="""DATA"",396.18,471,3,262,0)"
^XMB(3.9,23,2,29010,0)="M$@)*\4SL@X``#Y`05_C16_6:\;(EE,`H`H,M4E^345*,%_N\!U""R8KLMJXWL"
^XMB(3.9,23,2,29011,0)="""DATA"",396.18,471,3,263,0)"
^XMB(3.9,23,2,29012,0)="MW*>I;\=AU]'8:5D22<Y#23X?1Y+5/I(L&4R#@QWJ/]@PXS+VTF8Z/'#T@#)["
^XMB(3.9,23,2,29013,0)="""DATA"",396.18,471,3,264,0)"
^XMB(3.9,23,2,29014,0)="MR8_3WD,[<KF9TW7#:GBP66=K./5NR<*`(ZL9=-]N2(*X_N6]1%F:%N*N$T'?"
^XMB(3.9,23,2,29015,0)="""DATA"",396.18,471,3,265,0)"
^XMB(3.9,23,2,29016,0)="MPTCN/LG=G^:#TS__P9`_UZ1_7@!_KGY8""?G[_'WR)F8:/.B*(0?=S*F.5:\)"
^XMB(3.9,23,2,29017,0)="""DATA"",396.18,471,3,266,0)"
^XMB(3.9,23,2,29018,0)="M7<R&63QD88X2I/5R""*W3<W:U0YPH3$0&>:Z/Q-_H0M^DZR&4[O3,E@PCF*BX"
^XMB(3.9,23,2,29019,0)="""DATA"",396.18,471,3,267,0)"
^XMB(3.9,23,2,29020,0)="M01*KWL2Z9B&UTR'43IYMNFVG4\4?W(%:GM&5FY""&DA/;QS![^K>X>GLF!1T&"
^XMB(3.9,23,2,29021,0)="""DATA"",396.18,471,3,268,0)"
^XMB(3.9,23,2,29022,0)="M41QN$""N'0_\MROQM\;*`)U@`!)R2@_&S\;.XIT--)E14,W\0)GSW.BO/#_E9"
^XMB(3.9,23,2,29023,0)="""DATA"",396.18,471,3,269,0)"
^XMB(3.9,23,2,29024,0)="M&44.8'_ED>,]Y:""DQS0*)UC?BV&7@Q&Y'!2A'#PTW'*@KET.F-Q[]E.-TEL/"
^XMB(3.9,23,2,29025,0)="""DATA"",396.18,471,3,270,0)"
^XMB(3.9,23,2,29026,0)="MZH-*-I[C>!=Q-""W;!/O/>OII[*(:>MVP22X3=*\\27CD#K=,C*Y=)@I0)GBP"
^XMB(3.9,23,2,29027,0)="""DATA"",396.18,471,3,271,0)"
^XMB(3.9,23,2,29028,0)="MT.]T""PZ)<KQ[UM3#Z&9(0)'MX1>&M#Q>5@#""P+,(AU4:QM9!&N`-2_URF#24"
^XMB(3.9,23,2,29029,0)="""DATA"",396.18,471,3,272,0)"
^XMB(3.9,23,2,29030,0)="MXD$?;,5'A:P_U5""*0X]BCC(4AZ\,N3A,K(,X5*`X_)L28D'J\?QAVR\X'8=D"
^XMB(3.9,23,2,29031,0)="""DATA"",396.18,471,3,273,0)"
^XMB(3.9,23,2,29032,0)="M`V%D<<&#-)0""L5DN$#H4B/\8<H'8LG:!*`JGQ0$6#WM6VMTHG@VQ[Y11-PB4"
^XMB(3.9,23,2,29033,0)="""DATA"",396.18,471,3,274,0)"
^XMB(3.9,23,2,29034,0)="MA)-9-JPV!X2.YXF;E""Y4,0L7ZFAJN!=J:AT62G#\GTUU(YK`G:O'5^16<\FL"
^XMB(3.9,23,2,29035,0)="""DATA"",396.18,471,3,275,0)"
^XMB(3.9,23,2,29036,0)="M>F#]P[UOM\K%08/B\.B0B\.VFW4HT.+O%U.""0^%X2N90V""1)KRY60%351R9]"
^XMB(3.9,23,2,29037,0)="""DATA"",396.18,471,3,276,0)"
^XMB(3.9,23,2,29038,0)="M5I+M=;N7?N5:RTUKR:H:N!D%DA/:5426C<6R@;R0[21]=U;2].,T<-@WK+K5"
^XMB(3.9,23,2,29039,0)="""DATA"",396.18,471,3,277,0)"
^XMB(3.9,23,2,29040,0)="M-IS56:%[R2Q),W/,*DZ0\OJ9-&W+-3/FC9;M=ASS.$R,ZHKQLP)!C\HWE4#S"
^XMB(3.9,23,2,29041,0)="""DATA"",396.18,471,3,278,0)"
^XMB(3.9,23,2,29042,0)="MK9\#;7^*I62`S7@T3C`:2Y#7^P,4OD(I5/.Y<D)0^92^L?^I""PQJ'GOZ(V<`"
^XMB(3.9,23,2,29043,0)="""DATA"",396.18,471,3,279,0)"
^XMB(3.9,23,2,29044,0)="MY""09`""-<XI5>\?\-'>@7RF+^AXK/;BX^GTH-1Z0?QC[H@?\(F?($G?)/2/S&"
^XMB(3.9,23,2,29045,0)="""DATA"",396.18,471,3,280,0)"
^XMB(3.9,23,2,29046,0)="M6R[C`&#F$EHE-[H3-\H17(+Q']9E\E.2=,>*%L_MMH\C(/4&7!C*TS@E/XVI"
^XMB(3.9,23,2,29047,0)="""DATA"",396.18,471,3,281,0)"
^XMB(3.9,23,2,29048,0)="M`JX)[LF'>Q_&T<,G49:I#)?I<M@R%>*A?^S&;30<?!BA\Y`<21@R;MC72)6O"
^XMB(3.9,23,2,29049,0)="""DATA"",396.18,471,3,282,0)"
^XMB(3.9,23,2,29050,0)="M41&ND1EGC=:AC*BHPUCH<TK8(A7CA3+VG6^2*T?#]B!9<&<2N[[:&GJ/U:A\"
^XMB(3.9,23,2,29051,0)="""DATA"",396.18,471,3,283,0)"
^XMB(3.9,23,2,29052,0)="MG4I@G=2?4N(L5'H=%JH""%^HU)0!>#!<J7L'7OL<\&-GV:J-E-*UJIF$V%AVC"
^XMB(3.9,23,2,29053,0)="""DATA"",396.18,471,3,284,0)"
^XMB(3.9,23,2,29054,0)="M.?1*;TR^4&6X4'\88:$&><:N0_9_*0M%X^WP/1P/1FP[@Q9.B(J5%V<P)>=)"
^XMB(3.9,23,2,29055,0)="""DATA"",396.18,471,3,285,0)"
^XMB(3.9,23,2,29056,0)="MQ#M#+A&;UT$B-'CQFF#.I*F4#*8JGK>Y>-INM-!$R&V0^1BQ^]DT7*+N7;-J"
^XMB(3.9,23,2,29057,0)="""DATA"",396.18,471,3,286,0)"
^XMB(3.9,23,2,29058,0)="M-VOH(HFK$6L6^;5A%YLM<MA)NJ^6""1?WI>)H_,FU+V*E!!U-);:(WY9X!,O9"
^XMB(3.9,23,2,29059,0)="""DATA"",396.18,471,3,287,0)"
^XMB(3.9,23,2,29060,0)="M>-LZS['&3``SV[!JM3I90PO7.)*%E;FC(O@*IZ0,+5,?9UUTG0WI/MRZ#DNH"
^XMB(3.9,23,2,29061,0)="""DATA"",396.18,471,3,288,0)"
^XMB(3.9,23,2,29062,0)="MP25<8DOX61E<7#[>H;T7+>$*""`-F6H[IBG7:0[G5MH6@Q5!$KSM2PFWX;G`;"
^XMB(3.9,23,2,29063,0)="""DATA"",396.18,471,3,289,0)"
^XMB(3.9,23,2,29064,0)="M#H>&J90A7!8K^YSK6=*X9#5QG20N:>SR7+'PI/<FF\YDC,]D7PKL/3V933)D"
^XMB(3.9,23,2,29065,0)="""DATA"",396.18,471,3,290,0)"
^XMB(3.9,23,2,29066,0)="MYT8.WMCRE.S?D][8XD6E#ITD;4J(RD%JA25J9Y#06K6.47=E^`))NFE7X""WN"
^XMB(3.9,23,2,29067,0)="""DATA"",396.18,471,3,291,0)"
^XMB(3.9,23,2,29068,0)="M=)RC8AW23RHPHY57</^75,W$ZRJH24\*MVTL+YM$]Y""`$CXR&HM>E""D!B6L1"
^XMB(3.9,23,2,29069,0)="""DATA"",396.18,471,3,292,0)"
^XMB(3.9,23,2,29070,0)="M7)RC""Z;;=B.[-K7_RZY-B2(6]`CK9%*11""#F+YINI][V\$Z;JQFC@V2Z;B^C"
^XMB(3.9,23,2,29071,0)="""DATA"",396.18,471,3,293,0)"
^XMB(3.9,23,2,29072,0)="M6R@2*L?@G]HFKMIV7;MJ&6VSEB'-TVF1Q(""!<""7TP_QV]55V([,E#'@_9$""]"
^XMB(3.9,23,2,29073,0)="""DATA"",396.18,471,3,294,0)"
^XMB(3.9,23,2,29074,0)="MSN`""<%$Z`:2I6TWB:<?T$X""/6J>*Z;>:'O4W#()W@4LL'+-E.^T!,"".:`X/*"
^XMB(3.9,23,2,29075,0)="""DATA"",396.18,471,3,295,0)"
^XMB(3.9,23,2,29076,0)="MQ'<(3][';*%[4]W=EW+Y4CZ>I^GX%=,[7?!Q`IGI,<T#1,""%""C[/*+,2D%W9"
^XMB(3.9,23,2,29077,0)="""DATA"",396.18,471,3,296,0)"
^XMB(3.9,23,2,29078,0)="M;9D(6VL7Y>)?\SK*YQ1?UY=RR0@Y=9,H[)[?5L)I3$R/BGY'S@3'(HE\[.3_"
^XMB(3.9,23,2,29079,0)="""DATA"",396.18,471,3,297,0)"
^XMB(3.9,23,2,29080,0)="M_]@!<6_:(DW=DQ(JM0H2X,33#,QD$,I2<E[H<.;JLTIW`K$_];VXA""AC5`F("
^XMB(3.9,23,2,29081,0)="""DATA"",396.18,471,3,298,0)"
^XMB(3.9,23,2,29082,0)="M('""]'.\98J2[Z8#0]^_?N93DAJY,E?H]M@OI""W_EUR=*=DQ""JE*$=:%QGYUD"
^XMB(3.9,23,2,29083,0)="""DATA"",396.18,471,3,299,0)"
^XMB(3.9,23,2,29084,0)="MR5]G6NY+7,N]Z=?<52YU&@W#R],XB<XU5E\UFZ$<H'!`9SK-*LW2F%_""CIN!"
^XMB(3.9,23,2,29085,0)="""DATA"",396.18,471,3,300,0)"
^XMB(3.9,23,2,29086,0)="M,F:\.U>""4KR-+.QNAMC#""?X-D`U2T1.2+=%]=A4%'70_JZ[E5LXLH+&<S-[V"
^XMB(3.9,23,2,29087,0)="""DATA"",396.18,471,3,301,0)"
^XMB(3.9,23,2,29088,0)="MDI+B""I!E#N[P.P&_@9;38M;!9#!PCI$Y9]:(%7R^A<QA9,9=Q$BZ;CMN:\V("
^XMB(3.9,23,2,29089,0)="""DATA"",396.18,471,3,302,0)"
^XMB(3.9,23,2,29090,0)="M/1[HL3I-=N;'&#GO<G+N`-?I>&Z0^SUR6F@'M58(G.TU1(:UV*E[FIR\AMT!"
^XMB(3.9,23,2,29091,0)="""DATA"",396.18,471,3,303,0)"
^XMB(3.9,23,2,29092,0)="M!.H2%-%F7B32<$#]&>6[&=+>):G)RE([8(>W!Q<#4&H@E;82SQUR;,XFUU0O"
^XMB(3.9,23,2,29093,0)="""DATA"",396.18,471,3,304,0)"
^XMB(3.9,23,2,29094,0)="M.<3%%P[J=Y4<R?%D,PB1HXE6`8>;>TV""5%36\LG`R/$/PQG!2,'P(3EHJ=RU"
^XMB(3.9,23,2,29095,0)="""DATA"",396.18,471,3,305,0)"
^XMB(3.9,23,2,29096,0)="M[I;*FBIL4US2MP-D`##K[0+HB<Q<V3Q/^@%CPS.&]8#_^5]02P,$%``""``@`"
^XMB(3.9,23,2,29097,0)="""DATA"",396.18,471,3,306,0)"
^XMB(3.9,23,2,29098,0)="M75`?-<\P=DJQ.P``5WD""``\```!%87)?,3$S+G!N;""YF<FWL7>EOV\:V_UZ@"
^XMB(3.9,23,2,29099,0)="""DATA"",396.18,471,3,307,0)"
^XMB(3.9,23,2,29100,0)="M_P.1+VK?;5/.PBUX19$]?LABV&Z""AX>+""UH:V[RE2%V2<N+^]6]F*%*<C1QM"
^XMB(3.9,23,2,29101,0)="""DATA"",396.18,471,3,308,0)"
^XMB(3.9,23,2,29102,0)="M=BPI0%&+6GAX9N:<W]GSRW^3<>6\CR])>G$W(Y^NWN3%])ESP:_\^(/CO""=7"
^XMB(3.9,23,2,29103,0)="""DATA"",396.18,471,3,309,0)"
^XMB(3.9,23,2,29104,0)="ME?.[\RMT7?;R(I_15R'[\TLRJ6[H""Q2Q5^](<GW#/@D0>_DRGE5)GM'7HP^O"
^XMB(3.9,23,2,29105,0)="""DATA"",396.18,471,3,310,0)"
^XMB(3.9,23,2,29106,0)="MS]Z^'OWX`\DF/_Z0=V[(;G7R:O!F$'?O!F'_W5X_/Y/N1:_\ZS3.2`H1O1?_"
^XMB(3.9,23,2,29107,0)="""DATA"",396.18,471,3,311,0)"
^XMB(3.9,23,2,29108,0)="MJW,O$/K+6T7""K9""'Q'M%G*IW2<9>C4X_G?YY.F)77I!;DIYD&2GH]<O;LS@I"
^XMB(3.9,23,2,29109,0)="""DATA"",396.18,471,3,312,0)"
^XMB(3.9,23,2,29110,0)="MR82_D1<34IQ7=REA[Y3G27:=$DYQGN;LT^/T/$EO2<&NO<FSZNG+F[@H"";O!"
^XMB(3.9,23,2,29111,0)="""DATA"",396.18,471,3,313,0)"
^XMB(3.9,23,2,29112,0)="MJ]=OGO_Y_N)?+]\]/SM_?;'\1/O5%VD\_JN]WM+Y*P#MQ8_QE/!%.'?.XZQT"
^XMB(3.9,23,2,29113,0)="""DATA"",396.18,471,3,314,0)"
^XMB(3.9,23,2,29114,0)="MSDF17(W:MQO2_N^?[-)I7)""L8F_02V_BM.2D7L27G]ACT&O\^3MLY0L'/-A="
^XMB(3.9,23,2,29115,0)="""DATA"",396.18,471,3,315,0)"
^XMB(3.9,23,2,29116,0)="MPY:S05""_7+""V?M'P%H2+""TON^O6%[EK&Q3/*[K+*BSLGOW+H:^<DNZ)WIQ\8"
^XMB(3.9,23,2,29117,0)="""DATA"",396.18,471,3,316,0)"
^XMB(3.9,23,2,29118,0)="MU1\?9IJ9;2KC4.>RF74R\Z[*%WDZ^6?]EIZ)?$,*O'LQKZH\\]B>K/\4F`<0"
^XMB(3.9,23,2,29119,0)="""DATA"",396.18,471,3,317,0)"
^XMB(3.9,23,2,29120,0)="M[G(/8%_D7^!)[(.>PKZ7:5Z2G;`)K,6F7@8)^PS65SYE+]-D_!>]\*UFT5M"""
^XMB(3.9,23,2,29121,0)="""DATA"",396.18,471,3,318,0)"
^XMB(3.9,23,2,29122,0)="MSU@RYE?U7'U;Y//9B_P;9GQM7HB<];J,14#:EQZ2]Z6K<I;_%-V-(X5RM[ZB"
^XMB(3.9,23,2,29123,0)="""DATA"",396.18,471,3,319,0)"
^XMB(3.9,23,2,29124,0)="MGA$LGI$E.7YS8;'24?.Z)<EUFTN2V).H>A57A!V3-""XK)VG.R;,%D0M>Z6CS"
^XMB(3.9,23,2,29125,0)="""DATA"",396.18,471,3,320,0)"
^XMB(3.9,23,2,29126,0)="M+6GS79DV#]F1]J8@_YF3;'S71\WK25)!)DO8'P.D(*2P""0*%ELZEA=`&;ACB"
^XMB(3.9,23,2,29127,0)="""DATA"",396.18,471,3,321,0)"
^XMB(3.9,23,2,29128,0)="M4?M;RL(9Z<)V=#7G<AVZ?!U=0*""K9\-CXX87!?%Z._Z,OZ?=\L""TK;SO>,L'"
^XMB(3.9,23,2,29129,0)="""DATA"",396.18,471,3,322,0)"
^XMB(3.9,23,2,29130,0)="MW]&61[O?\MXZ6][;_98/++>\'L_Y.CQ7WZ@FS1.!*G9%/.<%!X[G@!;/!5B+"
^XMB(3.9,23,2,29131,0)="""DATA"",396.18,471,3,323,0)"
^XMB(3.9,23,2,29132,0)="MYX""+^P!=L\""#@.[YO(A3YS1/[V;E?H`XWS.`.""A(7@#@$<2M`N(0,.JT4%!I"
^XMB(3.9,23,2,29133,0)="""DATA"",396.18,471,3,324,0)"
^XMB(3.9,23,2,29134,0)="M2-J+6%9I@:O%</;X+3`ILT@4AE#1%Z%GIR\^SJ>7E`2JS&;\:#QK1:/-LO<M"
^XMB(3.9,23,2,29135,0)="""DATA"",396.18,471,3,325,0)"
^XMB(3.9,23,2,29136,0)="MO''I+1;?L/SF#4`?G`K)+T7,N'%1S,F`D@GU2D9B*_+7U3&1AX9U7\\6A&98"
^XMB(3.9,23,2,29137,0)="""DATA"",396.18,471,3,326,0)"
^XMB(3.9,23,2,29138,0)="MA3?>@QQ5V2.JP+?<A.""X""5?:A-'.-R&VW(1ZH`,T0""=""2YQ3H]2&*NQY`LZ!"
^XMB(3.9,23,2,29139,0)="""DATA"",396.18,471,3,327,0)"
^XMB(3.9,23,2,29140,0)="M07C@.`=J<0X&>ISC`U%K2P<;N99`Y[28%TDU+Q>NJ_W`.C@R8)U(X!K$[A'K"
^XMB(3.9,23,2,29141,0)="""DATA"",396.18,471,3,328,0)"
^XMB(3.9,23,2,29142,0)="MK()UH-%^AR**1!)CH2M[4J'K;L-^QR9M$TK:1K%+_6`UZSW/Z""(/&^TXM"".H"
^XMB(3.9,23,2,29143,0)="""DATA"",396.18,471,3,329,0)"
^XMB(3.9,23,2,29144,0)="M-52V8+0[SNLLODS)1%SZ'B(C2R*QPC9L2>0K:D!UW1PKT/@RGU[F;+<Q6-.\"
^XMB(3.9,23,2,29145,0)="""DATA"",396.18,471,3,330,0)"
^XMB(3.9,23,2,29146,0)="M&""#4""Q2U%P8V:B_T?=Q/HN.<5&2J>=K.]D3=CY;T<!94&97TC9^:-QQZEI-L"
^XMB(3.9,23,2,29147,0)="""DATA"",396.18,471,3,331,0)"
^XMB(3.9,23,2,29148,0)="M7A$J:0LG)64YZKSU+I\7PH57\9WP^@LA?PD7/M""3?B-<^1P7""2-_]+,%:SU["
^XMB(3.9,23,2,29149,0)="""DATA"",396.18,471,3,332,0)"
^XMB(3.9,23,2,29150,0)="MUD*X/FO]S5D+;5C[*D[2.YE?XA7.,/'2.846S,RODBE=EAF]W1UIA0__!/@5"
^XMB(3.9,23,2,29151,0)="""DATA"",396.18,471,3,333,0)"
^XMB(3.9,23,2,29152,0)="M]KS+5M&I;N*,OT-_NX_SIU\^G,63).?BDT>CQ$O2*D#)?Z68;,!3W8\(ZA8!"
^XMB(3.9,23,2,29153,0)="""DATA"",396.18,471,3,334,0)"
^XMB(3.9,23,2,29154,0)="MMC2?W^1?:]@DK\/_S,LJN;KC/!;@:,WWTW@B.-4Z!_V$\J;!$&,J)*LXJ_YH"
^XMB(3.9,23,2,29155,0)="""DATA"",396.18,471,3,335,0)"
^XMB(3.9,23,2,29156,0)="M[T@5WWR:E;;K^+]$V-(?\X:E/;XW%2F[>J0L;6SLKKNO`^!O8JY!<]@';ZY$"
^XMB(3.9,23,2,29157,0)="""DATA"",396.18,471,3,336,0)"
^XMB(3.9,23,2,29158,0)="M5P_[8/B]Z5#T&'2H]RAT*%I!AX;K""WIT@#H4WX\.]8XZ5*]#W7O4H>#`=""B"""
^XMB(3.9,23,2,29159,0)="""DATA"",396.18,471,3,337,0)"
^XMB(3.9,23,2,29160,0)="M.]>AWB;>ID`75:L=[@MO4]?9Y-44M`1A<.A!-:1S-B%#3`V)$2(I0`2;+*`."
^XMB(3.9,23,2,29161,0)="""DATA"",396.18,471,3,338,0)"
^XMB(3.9,23,2,29162,0)="M+#'YFG(JOZ;.^8R,DZMDW*1-[<2;XM^?TVD1KD=:[B&1>\@/)5>=&\CL4UUU"
^XMB(3.9,23,2,29163,0)="""DATA"",396.18,471,3,339,0)"
^XMB(3.9,23,2,29164,0)="M_T5YQP3E^?QRFE1.E3OQ9$(IH0*`RE7ZLKHA],WI-&ZYJ7$NF]QE(#2XRT(Q"
^XMB(3.9,23,2,29165,0)="""DATA"",396.18,471,3,340,0)"
^XMB(3.9,23,2,29166,0)="M@M4$$V0<TPE6:]QE1(=%T=J^J`7)!@\?]*!(\AH>OIK)1A_4VC1S#[F.S3[:"
^XMB(3.9,23,2,29167,0)="""DATA"",396.18,471,3,341,0)"
^XMB(3.9,23,2,29168,0)="MF.9#]$J>CXL\31D2HWQM7PBL%=/HI/1$SY4%%VHX^RXO_E[\8EP\O2@H=ZC`"
^XMB(3.9,23,2,29169,0)="""DATA"",396.18,471,3,342,0)"
^XMB(3.9,23,2,29170,0)="M%Y3Z9U)4RX^<Q=DUX4$.5_>V]A>>SZN\_HB1.0:3#1FSEB3]'""@&$@""664N-"
^XMB(3.9,23,2,29171,0)="""DATA"",396.18,471,3,343,0)"
^XMB(3.9,23,2,29172,0)="ML+XDC.X)J2@\))-'&FLSFG$HL.0D`*%JQFF@C@;>=<#812VIR;>*DNG,\K),"
^XMB(3.9,23,2,29173,0)="""DATA"",396.18,471,3,344,0)"
^XMB(3.9,23,2,29174,0)="M*)-_H>PMQT5R2?B[XZ08SZ<,!(ZI<(^SB9-D2950D#T=.?_H_%J<)5>$?H[="
^XMB(3.9,23,2,29175,0)="""DATA"",396.18,471,3,345,0)"
^XMB(3.9,23,2,29176,0)="MAP=PV+<G%++$)6$64I+]>\Z2D@OGBOX7.P6Y3<A7>O=X2O%F?BO^6C(A]!L5"
^XMB(3.9,23,2,29177,0)="""DATA"",396.18,471,3,346,0)"
^XMB(3.9,23,2,29178,0)="M*6[IG6YJS;S_H=5Z%YB<]M`;/%`;^4!VP5?X`,<(NR8&`LF'Y""F6<&3I#7G)"
^XMB(3.9,23,2,29179,0)="""DATA"",396.18,471,3,347,0)"
^XMB(3.9,23,2,29180,0)="M['OBE`D]%KOGXD,((Z/?2^8B#M7D""4NQ_HG*B((:F=,II:T<],4A4Z0(>'(^"
^XMB(3.9,23,2,29181,0)="""DATA"",396.18,471,3,348,0)"
^XMB(3.9,23,2,29182,0)="M!U9]'-""U$I""CE_.""L<JI""A)7G#`NL2HJA9@]3,U0P0NVU[)(#OB;-P%0&>X#"
^XMB(3.9,23,2,29183,0)="""DATA"",396.18,471,3,349,0)"
^XMB(3.9,23,2,29184,0)="M.X:_:O1-R:0^N6(YR93G13YUQO):/!OR/ZWX?)[E\R%/=2X@6\]I\WS*TY1;"
^XMB(3.9,23,2,29185,0)="""DATA"",396.18,471,3,350,0)"
^XMB(3.9,23,2,29186,0)="M?AS?]#C^4%Y.9/<HX.F>23G?M^-8!-?D&-P[CAGA""=X6S]`>\8RY+0W)<@J>"
^XMB(3.9,23,2,29187,0)="""DATA"",396.18,471,3,351,0)"
^XMB(3.9,23,2,29188,0)="M""Q54WT;9!M+EH.N.S*YV'5T?R#1GY@;[_Y""U@95\!KQ<ZY:NCJ]U21<([AU<"
^XMB(3.9,23,2,29189,0)="""DATA"",396.18,471,3,352,0)"
^XMB(3.9,23,2,29190,0)="M,FB6T,?_2+X.+>3[)"",FS_7246U6IJU-S;Y<ELS,3L9Q:HXG:4\5M6X6?H/%"
^XMB(3.9,23,2,29191,0)="""DATA"",396.18,471,3,353,0)"
^XMB(3.9,23,2,29192,0)="MGT.P-0""J+E+!S3+""T%V/3@""'V7T3,CDG*2/%+H[3Y^L_KWBTJG.%FNW7S%68"
^XMB(3.9,23,2,29193,0)="""DATA"",396.18,471,3,354,0)"
^XMB(3.9,23,2,29194,0)="MW)+TSOF:%Z7P]LF4&7Y4Z0D7F=4W32INE'[]C=J)TX3^`L78W4]QY+A<H@_S"
^XMB(3.9,23,2,29195,0)="""DATA"",396.18,471,3,355,0)"
^XMB(3.9,23,2,29196,0)="MM$K:!^D&.SIK@`?7`!G70$68FD6`OMTBP'!WB_`QSP0>?R`3NB4[Y;_U4LV+"
^XMB(3.9,23,2,29197,0)="""DATA"",396.18,471,3,356,0)"
^XMB(3.9,23,2,29198,0)="M:[93!99>_'9Z(80LZ0I0ZSN>S5+-3WR:5S-ZD:U2_NWNF@AOOCQ]?MI]S5Q."
^XMB(3.9,23,2,29199,0)="""DATA"",396.18,471,3,357,0)"
^XMB(3.9,23,2,29200,0)="M-R2G9OST;M-E]&QC<F@XKR64LPI\-6-98\PL\5-G59&[T[#<^3`X[HW2]<1K"
^XMB(3.9,23,2,29201,0)="""DATA"",396.18,471,3,358,0)"
^XMB(3.9,23,2,29202,0)="M-PO>^?U*!@""]EE$0MH]MM`SV%-;3?]$0CCYHY1,,K)#=`F'HK[M`;G1<H+X%"
^XMB(3.9,23,2,29203,0)="""DATA"",396.18,471,3,359,0)"
^XMB(3.9,23,2,29204,0)="M""LT+5,<?Y)B8$:M!M;04J68XBC0""AB'4-BK*M.!C=7&H(0N+B$Y_>@TP9]>`"
^XMB(3.9,23,2,29205,0)="""DATA"",396.18,471,3,360,0)"
^XMB(3.9,23,2,29206,0)="M;8%X'WO+4S*<1@-L)'A?`DO-!ZXDM5L+H>WMK9.LK(HY+S4OM07,FRX4DU^A"
^XMB(3.9,23,2,29207,0)="""DATA"",396.18,471,3,361,0)"
^XMB(3.9,23,2,29208,0)="MI1R+D)4Y@W7P&755[&*G?[E)JJ,<*Y;V_6#""#-""59_FF=DD>B+:2,-.>QWW,"
^XMB(3.9,23,2,29209,0)="""DATA"",396.18,471,3,362,0)"
^XMB(3.9,23,2,29210,0)="MH<':-!#7D$,CI%)(D6C8[+CA1D-Y.4NHB9#\S:T#%MMCA@7941*-=]])-/IJ"
^XMB(3.9,23,2,29211,0)="""DATA"",396.18,471,3,363,0)"
^XMB(3.9,23,2,29212,0)="M-RRDT'A8SJ!1N(<4[C6,X_'4-!]W$FM-M$`+6B)Y)?U@F!86""GSF3.*[7YPI"
^XMB(3.9,23,2,29213,0)="""DATA"",396.18,471,3,364,0)"
^XMB(3.9,23,2,29214,0)="MRZCD-+'T1R>Y<O[*\J]\7:D16.3?DBF+&T[8-WJ)Q1;$MHE<2_,9#U-[1N*R"
^XMB(3.9,23,2,29215,0)="""DATA"",396.18,471,3,365,0)"
^XMB(3.9,23,2,29216,0)="MWFG5W8R',,MZQ_42Y$<6!$$IE0R#:#`7JI&!HS>4(D)M7(>*H*SZQ;E*TM1)"
^XMB(3.9,23,2,29217,0)="""DATA"",396.18,471,3,366,0)"
^XMB(3.9,23,2,29218,0)="M,AX$KYF89%=Y,>4K_0M+EJ*G]LF?&7_OB7/5B7Z/>+""\_;""3Y=7B)]C*S.;E"
^XMB(3.9,23,2,29219,0)="""DATA"",396.18,471,3,367,0)"
^XMB(3.9,23,2,29220,0)="M#?_5LLZ^NN1*<I4TJWJ)D`U'L%2B#;UH>(D6F5]L;6+*A!M12-0Y!/6BL72Q"
^XMB(3.9,23,2,29221,0)="""DATA"",396.18,471,3,368,0)"
^XMB(3.9,23,2,29222,0)="M^C&J)IG#0""YT]6<1>4)2#9!/P'>0SX8,^6Q0;`ZBI.*MFFBE6N1K9#$Q&T#L"
^XMB(3.9,23,2,29223,0)="""DATA"",396.18,471,3,369,0)"
^XMB(3.9,23,2,29224,0)="MVZ3=&')2&`)R\EW;VZ3!3LAM6]?(^%PE@Z$X**`YO0AQHS7HB.!.M!/4:""<5"
^XMB(3.9,23,2,29225,0)="""DATA"",396.18,471,3,370,0)"
^XMB(3.9,23,2,29226,0)="MI&DAFA&@M?#,!,YZH9D<""-#S&?@6C/:0+!M].5L-28P&R/,/C]&X-T_4T+H0"
^XMB(3.9,23,2,29227,0)="""DATA"",396.18,471,3,371,0)"
^XMB(3.9,23,2,29228,0)="M!K!7BFV2)^IMFB<*39UZW(UI-J3CAIN2;&`S""@4V^\'J%""\4]@[2<;$5S:T^"
^XMB(3.9,23,2,29229,0)="""DATA"",396.18,471,3,372,0)"
^XMB(3.9,23,2,29230,0)="MVPK1Z^<]<\$1#`N.%C""8!4<42H(C]/WP\`1'T&\Q(YW%O&AYNC!$@-#11""HR"
^XMB(3.9,23,2,29231,0)="""DATA"",396.18,471,3,373,0)"
^XMB(3.9,23,2,29232,0)="M@=&A%YEX6A@<!EI<&8J]9.7:5\^V<]LI)7EVPVO2/I.R2B[G*36L7B4E9^ZC"
^XMB(3.9,23,2,29233,0)="""DATA"",396.18,471,3,374,0)"
^XMB(3.9,23,2,29234,0)="M;^:VX&&HY2$4VYM(@B!TARV)U]]B>J-)$E]G>9F4?SR>DH(5[(/`6(CAB[;8"
^XMB(3.9,23,2,29235,0)="""DATA"",396.18,471,3,375,0)"
^XMB(3.9,23,2,29236,0)="MH'T0'0LQ%JJ))XHJJDG<D$V<JK4=`GE'XDC23&Z$W</33.Y`OS=C%QZQ*90K"
^XMB(3.9,23,2,29237,0)="""DATA"",396.18,471,3,376,0)"
^XMB(3.9,23,2,29238,0)="MVXR^XDO`:JG>BY@>?.9*:*7`,_M^/)$I$1P$8DC`4R(""@;MB;F=%Q?MP.N>^"
^XMB(3.9,23,2,29239,0)="""DATA"",396.18,471,3,377,0)"
^XMB(3.9,23,2,29240,0)="M)@N+61;18#%TV\R^W1YJN?^RGT)OWD6$=UL.345-QL[%PY5`2\P%0\P-M\?:"
^XMB(3.9,23,2,29241,0)="""DATA"",396.18,471,3,378,0)"
^XMB(3.9,23,2,29242,0)="MW79KN6!G9L=\=?MCAKQ61)<#*4D(7V$BTL0^?5TG0XP>8>[#-J*!T#8:J*N?"
^XMB(3.9,23,2,29243,0)="""DATA"",396.18,471,3,379,0)"
^XMB(3.9,23,2,29244,0)="MAU['MHDB8:!)*-DV-=N/\4#%!ZQ&M'Q]0#`2?3F2N8-MS9W.Y!&^+ZYS%JEY"
^XMB(3.9,23,2,29245,0)="""DATA"",396.18,471,3,380,0)"
^XMB(3.9,23,2,29246,0)="ME?S]-T,I>]*[&IL`N^C0AQ`<4N4TV+B?(S`B23%<C<*A3E3+^0W#_::`J>86"
^XMB(3.9,23,2,29247,0)="""DATA"",396.18,471,3,381,0)"
^XMB(3.9,23,2,29248,0)="M2M4,X3WUFP*A+4'^P_6;`I$ED6U#]WMM.,7""5[ZAZ$(B4-,,""7MV+8K=5<>B"
^XMB(3.9,23,2,29249,0)="""DATA"",396.18,471,3,382,0)"
^XMB(3.9,23,2,29250,0)="MM-EDKCF=3&&@""]8G<+\['KY?I5M3PWJP`NOQ!JSW#J@'F9AUCX>-/SDA3V4S"
^XMB(3.9,23,2,29251,0)="""DATA"",396.18,471,3,383,0)"
^XMB(3.9,23,2,29252,0)="ML&R%%>RZ%592/4P3K)Y0@&XH7UWOW.7GLK%(**!E5#=X.>!(0*""%QI%=ORDY"
^XMB(3.9,23,2,29253,0)="""DATA"",396.18,471,3,384,0)"
^XMB(3.9,23,2,29254,0)="M%`!]2VS\(9E,4MX)H^;Q'H[F""PQ!3""BU$H7HV%-HI=%\KK%'JV""X01D9JQEL"
^XMB(3.9,23,2,29255,0)="""DATA"",396.18,471,3,385,0)"
^XMB(3.9,23,2,29256,0)="M33AYHQZMD;'C#Y+1GY(R'EDZ5D^8:B<%;R$SIDM]3?X8A,Z1;TD75'NU!G!%"
^XMB(3.9,23,2,29257,0)="""DATA"",396.18,471,3,386,0)"
^XMB(3.9,23,2,29258,0)="MAV_.R%NG&:KHS0N&M""666.JOZ<T+@PX<W)&RK%=L%B?9PWGU)/Z&0_R5B];="
^XMB(3.9,23,2,29259,0)="""DATA"",396.18,471,3,387,0)"
^XMB(3.9,23,2,29260,0)="M]?D;W`]_><5HP1PJ.^8RM.9RM.(N]O#Z7$;WPV4R(=/X`9W^""QL%]=B*BKC5"
^XMB(3.9,23,2,29261,0)="""DATA"",396.18,471,3,388,0)"
^XMB(3.9,23,2,29262,0)="M=$#5-#32=D!UX6C+EHE<B4QU:3XOY2MEG%W/DTQ^9SZ;<?/_EC@_T;_F*:\S"
^XMB(3.9,23,2,29263,0)="""DATA"",396.18,471,3,389,0)"
^XMB(3.9,23,2,29264,0)="M+ISI?)PWKW^V-TJ`ZZXH!X""_@:#%.]VBO&AZQSL3#X1-D""%L(BM:3?!)LR.]"
^XMB(3.9,23,2,29265,0)="""DATA"",396.18,471,3,390,0)"
^XMB(3.9,23,2,29266,0)="M0,=%[U@SVA-=\6S'W!KGL4$IPV0M]+C&F)PH^B[A(W3=1P<?@3O8XR#8&G[<"
^XMB(3.9,23,2,29267,0)="""DATA"",396.18,471,3,391,0)"
^XMB(3.9,23,2,29268,0)="M<8.#[Q(_`A>MR.`-H`T,#@/:2!S&*W)X`XB.P`%!]`9!@OM!D-#?;P3IK2QI"
^XMB(3.9,23,2,29269,0)="""DATA"",396.18,471,3,392,0)"
^XMB(3.9,23,2,29270,0)="MUQ>U,-I[!.GO'D%V^RP=$:0-@M0/4]7.MZBQV2+B@(7:@QH,=2(W^,`C#J%^"
^XMB(3.9,23,2,29271,0)="""DATA"",396.18,471,3,393,0)"
^XMB(3.9,23,2,29272,0)="M:GQ@F!HO),[*J+S)`Q^>&G^9L1KBU+FXF\[B+!D[]+A=%G%&]F2&O&^:JRJ9"
^XMB(3.9,23,2,29273,0)="""DATA"",396.18,471,3,394,0)"
^XMB(3.9,23,2,29274,0)="M->XQ<7ZE&?+&/)Q5@PW8VT*P(0B-39^E?)BU!\G7;:CCQ7E)J@/H-""\""F6#0"
^XMB(3.9,23,2,29275,0)="""DATA"",396.18,471,3,395,0)"
^XMB(3.9,23,2,29276,0)="M2QX-ANRA5<C>C3S_'D+V,U)<Y13]D4DORODN5W=-Z&75#\O:*@O=%7>$!J;9"
^XMB(3.9,23,2,29277,0)="""DATA"",396.18,471,3,396,0)"
^XMB(3.9,23,2,29278,0)="M[8@P<*-[V!')=)I?)BEYV'1S9$*]DBR+5-,ATJ0;8E<WRPP<6^X:TL_U^LX\"
^XMB(3.9,23,2,29279,0)="""DATA"",396.18,471,3,397,0)"
^XMB(3.9,23,2,29280,0)="M1QSYFVN\-1RD@:V#]*CR5E!Y_/QY=E;G1N</'L_?2M'C<+""BR=N:K@'N0>@:"
^XMB(3.9,23,2,29281,0)="""DATA"",396.18,471,3,398,0)"
^XMB(3.9,23,2,29282,0)="M""=Y%*S)X$W@7/1R\4SP#!P/[&C(%+J^!""'N<0)&N2*L[Y#00&U""X8I$6J/M\"
^XMB(3.9,23,2,29283,0)="""DATA"",396.18,471,3,399,0)"
^XMB(3.9,23,2,29284,0)="M'(NTE'Z9:C\%?6^V*.I+1`619^D7.B-E,IE3:EA1RD>2S]*XG.Y%)XK`H@^%"
^XMB(3.9,23,2,29285,0)="""DATA"",396.18,471,3,400,0)"
^XMB(3.9,23,2,29286,0)="M/,<^M.AHUP9MBX9UIF9U""\^4:82I%XI=M>2>2>&Q0LS8TB%8HZ6#IYR)MCMG"
^XMB(3.9,23,2,29287,0)="""DATA"",396.18,471,3,401,0)"
^XMB(3.9,23,2,29288,0)="M1V,==$\'K;#W7/9/VW((=LIRZTJN5N+7([*6\*""NRSM@MW\MHV4I53/74(B+"
^XMB(3.9,23,2,29289,0)="""DATA"",396.18,471,3,402,0)"
^XMB(3.9,23,2,29290,0)="MA79?TGX&/K:6\7RX)A7P9V1,N5KN14->QCE#(UP@]@%UH=P'U!L6\R\7<P@="
^XMB(3.9,23,2,29291,0)="""DATA"",396.18,471,3,403,0)"
^XMB(3.9,23,2,29292,0)="M^K*HV?;LWD3#AI)6W\J3;S6HZ^<)A2G/$,G\@F""@D2:$8>2.;/L?ML0@'3'("
^XMB(3.9,23,2,29293,0)="""DATA"",396.18,471,3,404,0)"
^XMB(3.9,23,2,29294,0)="M=<7*Z6`=:H""A^:%)2]?G$)NFC0L;""BK=616*0MONK.MWW1--N)I^4_Z7F-7:"
^XMB(3.9,23,2,29295,0)="""DATA"",396.18,471,3,405,0)"
^XMB(3.9,23,2,29296,0)="MS""P:ZO0=*'SU6_5H,N>,QIQJRG69X[RA%O)""4#7'S&@#C>K/D4EK!E$CJ')X"
^XMB(3.9,23,2,29297,0)="""DATA"",396.18,471,3,406,0)"
^XMB(3.9,23,2,29298,0)="M'7-)S4#G\L[Y_/SLTZCS!>DMUBF9]U*.;^,D[=8T#O<ZTC$>]3.^+0Q;G_5A"
^XMB(3.9,23,2,29299,0)="""DATA"",396.18,471,3,407,0)"
^XMB(3.9,23,2,29300,0)="M$.R$]?5(J'2A&KZW)0!F#+B$)0H0E.0_"".2VDTK4',G=O8`?@D/N#*PO-G6'"
^XMB(3.9,23,2,29301,0)="""DATA"",396.18,471,3,408,0)"
^XMB(3.9,23,2,29302,0)="M^D[6#3^7'9BC(P@4]S/0&_GZ<M-(,&BD1BSMN)5!_$>A3#NT;5^Z3'IZX!>*"
^XMB(3.9,23,2,29303,0)="""DATA"",396.18,471,3,409,0)"
^XMB(3.9,23,2,29304,0)="MS4&D<0P1&N[_?D9FA/D2G?F,M1F@1OXL*6+>R&8QOW[?.D\N.*JW0:`H2D.9"
^XMB(3.9,23,2,29305,0)="""DATA"",396.18,471,3,410,0)"
^XMB(3.9,23,2,29306,0)="MH_XPDF[G>B\WX8#')#)UF9:TZ$'UU`FVA!1#W(]5@'""$/-D6\-RA7N]NU*9:"
^XMB(3.9,23,2,29307,0)="""DATA"",396.18,471,3,411,0)"
^XMB(3.9,23,2,29308,0)="M;A>JO$K*:EY<QMF8M]""YC%/V9W,<%=>^&;QT/>@=__FJT(\?&6M.*M,H;#C9"
^XMB(3.9,23,2,29309,0)="""DATA"",396.18,471,3,412,0)"
^XMB(3.9,23,2,29310,0)="MIJAOEY/O2,RXXKS/ESGI""O^^H^.Q\E+:YL8-+G&XRA(#O-8:[\:F>A./$XKK"
^XMB(3.9,23,2,29311,0)="""DATA"",396.18,471,3,413,0)"
^XMB(3.9,23,2,29312,0)="MJ7""X954T19S>==HF']IJ8ZO5]H966VA=X;M#G@D$U-5&6USM`UM$8+6(P4J+"
^XMB(3.9,23,2,29313,0)="""DATA"",396.18,471,3,414,0)"
^XMB(3.9,23,2,29314,0)="MJ(AE=1$U1Q;NY,A>)%F65/.#/:3(:GVCE=97E<DV""]R6W&QW@5_D&7$H`N71"
^XMB(3.9,23,2,29315,0)="""DATA"",396.18,471,3,415,0)"
^XMB(3.9,23,2,29316,0)="MUO*O>9H>ZE)[/<&]4!O<DV9[R6U)?1G\^[+L#0/W`(-[_D`F!URMW6[CPCFV"
^XMB(3.9,23,2,29317,0)="""DATA"",396.18,471,3,416,0)"
^XMB(3.9,23,2,29318,0)="MV^WS\D#]($1L$ZV2+&RHSL88[K?[HC:-6(7CVW@YR'E/G#_8,*9%\`[($S)L"
^XMB(3.9,23,2,29319,0)="""DATA"",396.18,471,3,417,0)"
^XMB(3.9,23,2,29320,0)="MIU]*S5E--'BN!0VMPT+NR=I'A-*/55.M:*0*V%`ES[K""%E3)_5>MB%J$UH#5"
^XMB(3.9,23,2,29321,0)="""DATA"",396.18,471,3,418,0)"
^XMB(3.9,23,2,29322,0)="MT+`#:Y&,-QK+""($N=""JNL[]R&!>$/K*?RRC%P09LIU""L8Y2=V4I7<015VO!."
^XMB(3.9,23,2,29323,0)="""DATA"",396.18,471,3,419,0)"
^XMB(3.9,23,2,29324,0)="M0)F^K^=6W4DFPV51A\]K:L6B?/W)E4>PMAUH>Y?4-Y]90W6^FKAM?GJQW:_<"
^XMB(3.9,23,2,29325,0)="""DATA"",396.18,471,3,420,0)"
^XMB(3.9,23,2,29326,0)="M[%=I]3O4Z+>OS:^AR6\/8WU+QH9@'<9ZFS`6#3'6U,Q7:N4K-O*5VOC*37RE"
^XMB(3.9,23,2,29327,0)="""DATA"",396.18,471,3,421,0)"
^XMB(3.9,23,2,29328,0)="M%KYF7!CJ(GUAIZ]LG<ZTC/3YXE3V.L7F""`L%*8""TXZCUH3\1%**A2<8F4/B9"
^XMB(3.9,23,2,29329,0)="""DATA"",396.18,471,3,422,0)"
^XMB(3.9,23,2,29330,0)="M3Q8_3Z[W)/*'].G0$/?%_7P+@'-!IE3>Q-6\Z!]G;@#Q(@&!/""K;(J_X=$Z?"
^XMB(3.9,23,2,29331,0)="""DATA"",396.18,471,3,423,0)"
^XMB(3.9,23,2,29332,0)="MO/_6H<6M@9P+'E@`W[-.E+,8&NB.(PLRH#Q`'5G,<__""WQOU)OWI32C1AH)R"
^XMB(3.9,23,2,29333,0)="""DATA"",396.18,471,3,424,0)"
^XMB(3.9,23,2,29334,0)="M3V%D$:8\S>?9(C72='-@\^#*:#[K!W?HJ<RN'PV<-7%)GY,Y$+L%2$Z!\A6T"
^XMB(3.9,23,2,29335,0)="""DATA"",396.18,471,3,425,0)"
^XMB(3.9,23,2,29336,0)="MW]%Q_#,L>N7\1$_MF'?SN7*^UM>Y@XW%FRG9$S:R_3(N29IDY&?GIYB!CY'S"
^XMB(3.9,23,2,29337,0)="""DATA"",396.18,471,3,426,0)"
^XMB(3.9,23,2,29338,0)="MC_:WKDGSM23CL]TAQQ84?11D3""8L2L;-P7KL'$\`^/E9G][?J[0`3R]NY7&4"
^XMB(3.9,23,2,29339,0)="""DATA"",396.18,471,3,427,0)"
^XMB(3.9,23,2,29340,0)="MVUC-MS%=`,UJ7K/KQ]7<RFIZ-@I$GM*L9+=J!-B+-,\GSFE!<2I5H+U""U)3K"
^XMB(3.9,23,2,29341,0)="""DATA"",396.18,471,3,428,0)"
^XMB(3.9,23,2,29342,0)="M+@)R3_)16&1L_]9[6QNU#2)I'R.+1W^W5%J/6&@;N@]A;[>K8J/-021#""3A\"
^XMB(3.9,23,2,29343,0)="""DATA"",396.18,471,3,429,0)"
^XMB(3.9,23,2,29344,0)="MVY-L?$/*WC0C8/1+"">GPR!^<M1O89GLWV&Q-KT^@3=X7MK`G2V(%?BB&;``\"
^XMB(3.9,23,2,29345,0)="""DATA"",396.18,471,3,430,0)"
^XMB(3.9,23,2,29346,0)="MS]KIPVX?#I,1!BN303\""1K:>$W9[/CAI@(ZV:>PJA(38']FFBW!""M,XX7X2%"
^XMB(3.9,23,2,29347,0)="""DATA"",396.18,471,3,431,0)"
^XMB(3.9,23,2,29348,0)="M\AP]!9+JU@6.>N(Y?37>`R%25RKXD$.D@3^0R.!#%^PBCP$]HN""GT)!RQ,#H"
^XMB(3.9,23,2,29349,0)="""DATA"",396.18,471,3,432,0)"
^XMB(3.9,23,2,29350,0)="M\A4#,RM$0X-^-Q8R>;%$4(VPG)""""D,4FPYMXL<(A+OVWT^FR,.K^#3M_=[H)"
^XMB(3.9,23,2,29351,0)="""DATA"",396.18,471,3,433,0)"
^XMB(3.9,23,2,29352,0)="MC[#+.W/F!1ER[V$37X`?;H$Q:!/&1`_!&""Z-M%55D51L+(E%[`Y+Q=;]/IRQ"
^XMB(3.9,23,2,29353,0)="""DATA"",396.18,471,3,434,0)"
^XMB(3.9,23,2,29354,0)="MP>G`.CJ4JN=U""$$KE9H!.""R>V\1Q:_$<((#Z:LSTT79=L+UV#C7>&V&V;=UF"
^XMB(3.9,23,2,29355,0)="""DATA"",396.18,471,3,435,0)"
^XMB(3.9,23,2,29356,0)="MIE.P;/""J+L7@^V1*'HDW%.L0(=3[6*3M*V>A6W3!/#W[=/KZ[.+D]?E>^$&A"
^XMB(3.9,23,2,29357,0)="""DATA"",396.18,471,3,436,0)"
^XMB(3.9,23,2,29358,0)="MP0\J\`E+P-FS<$-^)D5)__P=M-O[L=HTV+=@D8]7]];5D/V""?*M^;SIY]<RS"
^XMB(3.9,23,2,29359,0)="""DATA"",396.18,471,3,437,0)"
^XMB(3.9,23,2,29360,0)="MUIWY14G:8I5\84)??<.EW%FS9FJ_(RF>;L$CTSQKT9R4P2ZPK:,ZR<JJF(_W"
^XMB(3.9,23,2,29361,0)="""DATA"",396.18,471,3,438,0)"
^XMB(3.9,23,2,29362,0)="MIXPJTEO]TH1E.5M$4=$H,OKVSDG*[GC)3XSSY,4\22=--M(3YLP;%ZS:RHF="
^XMB(3.9,23,2,29363,0)="""DATA"",396.18,471,3,439,0)"
^XMB(3.9,23,2,29364,0)="M-""FY5VZV2%6BG(J3:=>W1Q$896$RH<^77""7TU63.BQB8FX]\BZ=)QC-4?BI_"
^XMB(3.9,23,2,29365,0)="""DATA"",396.18,471,3,440,0)"
^XMB(3.9,23,2,29366,0)="M?NI<W""1E\U/U3W]-NK^5INQKF7-)EN6GC<OPR:M\/&>U_TM""OR;9)/_ZBQ.7"
^XMB(3.9,23,2,29367,0)="""DATA"",396.18,471,3,441,0)"
^XMB(3.9,23,2,29368,0)="M+).>TMG]K:OZ6XL/TY]D1$U(17^63)X]<4K.`\881LC3T:I>NRBT6*50QE%@"
^XMB(3.9,23,2,29369,0)="""DATA"",396.18,471,3,442,0)"
^XMB(3.9,23,2,29370,0)="M..8EKY+FP>D*T=?TS$WB*G8*<AT7W(G:KE)!OWK;Y49,OTZ_U2R*4]W-R!K/"
^XMB(3.9,23,2,29371,0)="""DATA"",396.18,471,3,443,0)"
^XMB(3.9,23,2,29372,0)="M'%D\LQ+J0A;26WGH17>,YMGY'N(/SB_'V<2Y94?OSHG'XWD1CWF""73F_[#[T"
^XMB(3.9,23,2,29373,0)="""DATA"",396.18,471,3,444,0)"
^XMB(3.9,23,2,29374,0)="M-*E8R2!CTM->?U=H<+/U'3@+I0WZ[QI9W%7>0!9WA;UW]5V+NRI+:'%;]+37"
^XMB(3.9,23,2,29375,0)="""DATA"",396.18,471,3,445,0)"
^XMB(3.9,23,2,29376,0)="MK8>`U=Q1@(/-TLW4WGMV7CT]2M""`A*!C%]1E>&T\VT523_UCMH6*$7QMBJ0!"
^XMB(3.9,23,2,29377,0)="""DATA"",396.18,471,3,446,0)"
^XMB(3.9,23,2,29378,0)="M(P1`W);R8-_($B.<SZ?3N$["";13""(B]W3Z;Z&@Z7#\3FN'AKAVNS3F'`&^X4"
^XMB(3.9,23,2,29379,0)="""DATA"",396.18,471,3,447,0)"
^XMB(3.9,23,2,29380,0)="M)J>+>+Z2*(G5[*^V'\>Q4U@KQ71M(4'=SZ=;,K>$DF);2!BAHQQ3Y)A^0CDT"
^XMB(3.9,23,2,29381,0)="""DATA"",396.18,471,3,448,0)"
^XMB(3.9,23,2,29382,0)="MQ,Y@KR!KZV96J29PNN7""^R'&L&?J]`3%9)[@D'+2-Q\7PB6`8;ZD('+E_.]0"
^XMB(3.9,23,2,29383,0)="""DATA"",396.18,471,3,449,0)"
^XMB(3.9,23,2,29384,0)="M""25'_A;FA<#`U#Q]<!*B'U@.<52+1OK&DL/0EB(7*'V7061'4UM#P@EC=@M]"
^XMB(3.9,23,2,29385,0)="""DATA"",396.18,471,3,450,0)"
^XMB(3.9,23,2,29386,0)="M0=88,%G3C*`MS5@SY<R2YJ;""9%.2Q;@GQBN.KO""4*:/`0U9SVGR\\V$F-PM!"
^XMB(3.9,23,2,29387,0)="""DATA"",396.18,471,3,451,0)"
^XMB(3.9,23,2,29388,0)="MO,AP$RL6'FXL-?=QFH8*REMD>4%)MA\8*NAC/#3"";7C6H!5GQ)H&M:I!4]<P"
^XMB(3.9,23,2,29389,0)="""DATA"",396.18,471,3,452,0)"
^XMB(3.9,23,2,29390,0)="M7-G07]M@K&X88#WN8;T\E<6+UF<]W)SU5F,>354/2MV#7/F@U#ZHU0]*_8.>"
^XMB(3.9,23,2,29391,0)="""DATA"",396.18,471,3,453,0)"
^XMB(3.9,23,2,29392,0)="MMSQHZ`E!0^-V1NZ:+'7#$&C:U7^Y22HRV-[?K(""A:U3`4HZ\K(&5YE@Z#;S&"
^XMB(3.9,23,2,29393,0)="""DATA"",396.18,471,3,454,0)"
^XMB(3.9,23,2,29394,0)="M_!)D&J0,W0=2P0C84O0=J6!D2_/WIX('9Z4N!YELKH.#0]7!GED1*'MD$QWL"
^XMB(3.9,23,2,29395,0)="""DATA"",396.18,471,3,455,0)"
^XMB(3.9,23,2,29396,0)="M'76PS'JT`NLWT<'_W][5-;EM(]N_HMJ7L>]ULL0'03`O*2=V:E.U3ER.=[?N"
^XMB(3.9,23,2,29397,0)="""DATA"",396.18,471,3,456,0)"
^XMB(3.9,23,2,29398,0)="M(RUQ9EB11%U2LCWY]0N`'R*!!@E2(FW/,+6UY:'D,=C=:)QN=/<A3^P,9O`9"
^XMB(3.9,23,2,29399,0)="""DATA"",396.18,471,3,457,0)"
^XMB(3.9,23,2,29400,0)="MK,MT]!G,`W1&E-V'+3P/%4AW-29GM&:A!K0].(,6#5)/>18J2(2+X4)]@EJ)"
^XMB(3.9,23,2,29401,0)="""DATA"",396.18,471,3,458,0)"
^XMB(3.9,23,2,29402,0)="M&3:V'_)5$MWMTSS)5X]B""#ZRW""C2JE*_W""%&?[,A,&`4ZO\4#1VK/TX?=HFZ"
^XMB(3.9,23,2,29403,0)="""DATA"",396.18,471,3,459,0)"
^XMB(3.9,23,2,29404,0)="MU8TV&WD?G""7"".927O.6%QY`;WK+\WL+8BT/<7KIV,>D;*_>`%%P,0=3QP];+"
^XMB(3.9,23,2,29405,0)="""DATA"",396.18,471,3,460,0)"
^XMB(3.9,23,2,29406,0)="M)5MN/TC03FYQ,CQK6`CYFM<?Y?0-BY2#\.(E6RYLQF<1RVL(<:**1=<_=(RP"
^XMB(3.9,23,2,29407,0)="""DATA"",396.18,471,3,461,0)"
^XMB(3.9,23,2,29408,0)="MURESC,X04G5CRBN-^I;C^W>RSU+^MLJXVA^_S\0&EQBOB0U?GHYI\15K_M22"
^XMB(3.9,23,2,29409,0)="""DATA"",396.18,471,3,462,0)"
^XMB(3.9,23,2,29410,0)="MA=13]5;<BZJ;J&8)*'/#[N5MX[/\^>HV2W=J;Y;CV%>W:;9;17F>KA,UVOA3"
^XMB(3.9,23,2,29411,0)="""DATA"",396.18,471,3,463,0)"
^XMB(3.9,23,2,29412,0)="M(G[W49;(;""IW^(TR/EH#)FOB5T_W<6*&2YZ;R%]N!#81?Q9P<UVRA?0'GU9;"
^XMB(3.9,23,2,29413,0)="""DATA"",396.18,471,3,464,0)"
^XMB(3.9,23,2,29414,0)="M0!KKGF$)Q'%996&+K%S)""\\=1^O[NAI*MXZ;P=R9A8`=;=H,1ZEK-/I8;=.>"
^XMB(3.9,23,2,29415,0)="""DATA"",396.18,471,3,465,0)"
^XMB(3.9,23,2,29416,0)="M3D=]&9&Z?+Y/>,]^D7L>^U[P7*N:^_""@""K.^'ZEW9MM8U./:UC)6'SKF<\3:"
^XMB(3.9,23,2,29417,0)="""DATA"",396.18,471,3,466,0)"
^XMB(3.9,23,2,29418,0)="MQ3_X\S],]V3?5YXMJ4,Q:Z\KP.;6,DT2`^%_(X9Y_W!0!8-BI>O[5)R#:DLE"
^XMB(3.9,23,2,29419,0)="""DATA"",396.18,471,3,467,0)"
^XMB(3.9,23,2,29420,0)="MQ^8&JTL""_YGDQ[_)J%+LRBQ6GKA1/29^F]TOCU43\K""KG@+#`SIN4/1]OU:("
^XMB(3.9,23,2,29421,0)="""DATA"",396.18,471,3,468,0)"
^XMB(3.9,23,2,29422,0)="MZRJ0&<4Y+H,X+(.Z&@>PC+I^V-TZ?MU+4I5C813Q[:U8C1KYJ1QQK5M)+273"
^XMB(3.9,23,2,29423,0)="""DATA"",396.18,471,3,469,0)"
^XMB(3.9,23,2,29424,0)="M;(>H/$6DR]ZHM$?+.E;1^IA\%$=-?($Y^,Z*,#,4CHJ@#HI@SHHPET$<Z:P+"
^XMB(3.9,23,2,29425,0)="""DATA"",396.18,471,3,470,0)"
^XMB(3.9,23,2,29426,0)="M*.VP&'=79G@,9J[E[$1`FY!.3:979?7L*3L(EY&_$&?P(<W4LZ9I""%>P3O<%"
^XMB(3.9,23,2,29427,0)="""DATA"",396.18,471,3,471,0)"
^XMB(3.9,23,2,29428,0)="MN%!&D0CS:=M$951Y+$=['^/MPTH8U#Y>BX!-UI^)Z$P<^!^%WQ>_8!4=Q`^'"
^XMB(3.9,23,2,29429,0)="""DATA"",396.18,471,3,472,0)"
^XMB(3.9,23,2,29430,0)="M3'H9.?8@^I""T?YOD_%[%'Z/MJ<C_""L!8+*A>QGC#X\Z&YP4C#0\[Z#IT-CQS"
^XMB(3.9,23,2,29431,0)="""DATA"",396.18,471,3,473,0)"
^XMB(3.9,23,2,29432,0)="M&<AW)5(_%#OY114L2SEN)$=Q62_==8ZI3!)MII2:R]06&9B[(S`72<]0%JB4"
^XMB(3.9,23,2,29433,0)="""DATA"",396.18,471,3,474,0)"
^XMB(3.9,23,2,29434,0)="MZB)*AK*U!@0T9`I0J&OL-:U-%+#S0T""P,.UJPYU*[WK>*(8WK;UF(_GHAB""["
^XMB(3.9,23,2,29435,0)="""DATA"",396.18,471,3,475,0)"
^XMB(3.9,23,2,29436,0)="M,60'BG3""D58DV<727%L,@"">950]<5P,Z6PDP8W:0(E+%ZY(G=WL!+->R[K]6"
^XMB(3.9,23,2,29437,0)="""DATA"",396.18,471,3,476,0)"
^XMB(3.9,23,2,29438,0)="MC543/S2$8,EA=[PH=W]/XIFOB<B`UWRMWD6^RBD_B7<XO]`/C]R<.G8UPTYR"
^XMB(3.9,23,2,29439,0)="""DATA"",396.18,471,3,477,0)"
^XMB(3.9,23,2,29440,0)="MYM""^Q@R2\_F9O#N0""+FUOQ44EN>5.J&2W2$J=`*;5^M0$[_/Q=PL!UJGA#!V"
^XMB(3.9,23,2,29441,0)="""DATA"",396.18,471,3,478,0)"
^XMB(3.9,23,2,29442,0)="M-\20``)""OKLAOHOSTU9!A$]I]F=]DHS>2""(6*3-LY1_[WX'ZT&:""E$R;#^M2"
^XMB(3.9,23,2,29443,0)="""DATA"",396.18,471,3,479,0)"
^XMB(3.9,23,2,29444,0)="M!XQX<[F?CV)I\:;,4QCZ^,KWE.6.K?-&3=WLJBF,E:LLW$M3B_+RLN\+DF/Q"
^XMB(3.9,23,2,29445,0)="""DATA"",396.18,471,3,480,0)"
^XMB(3.9,23,2,29446,0)="M]>ZP31_BS?FBN&N?0_G)'M/PAYA&`RWUV8;/`=L0P""QPV:1/TVA>YO)XE9UE"
^XMB(3.9,23,2,29447,0)="""DATA"",396.18,471,3,481,0)"
^XMB(3.9,23,2,29448,0)="MB3`'J>/5YJ0A&A5NRC9*&38<57]>^\ZV]87H0RX;^N(DW[6_HEC:FC;U1GJ="
^XMB(3.9,23,2,29449,0)="""DATA"",396.18,471,3,482,0)"
^XMB(3.9,23,2,29450,0)="M6MQ-S^AL;\C)WFB'O2&&=(OS`8/#'NA0/=CB`KY8G,WB9*N,""!^WJ6Y""K^+*"
^XMB(3.9,23,2,29451,0)="""DATA"",396.18,471,3,483,0)"
^XMB(3.9,23,2,29452,0)="MA`3BEB/ZBE(AW<Z:D>:'^#[ZF*19^SMO4R$)=16Q726RMS1J=517_YPP^&0M"
^XMB(3.9,23,2,29453,0)="""DATA"",396.18,471,3,484,0)"
^XMB(3.9,23,2,29454,0)="M3/!!!*/;;?I)'H"")V8!MK&Z7%F#!^GFTEW!N$POU9L;W*J*$(A6W36[5P2M#"
^XMB(3.9,23,2,29455,0)="""DATA"",396.18,471,3,485,0)"
^XMB(3.9,23,2,29456,0)="M\'6490_B!^LR,QDP&U_XXQ#'*K""OOM?^N.JLL'W^[T0.8[!^_$]A2ZH=]:C:"
^XMB(3.9,23,2,29457,0)="""DATA"",396.18,471,3,486,0)"
^XMB(3.9,23,2,29458,0)="MG]L?_B>._I2N0`:AMT)9=Z?8)A0AUGA_=[S_H62]%,+)XEV'%,]_0:C&_A?^"
^XMB(3.9,23,2,29459,0)="""DATA"",396.18,471,3,487,0)"
^XMB(3.9,23,2,29460,0)="M)5Y.9B.2O3`:(4I93];^QB_Q6MF![?.W<I""2)O+\5KR+^.>$$4[OPW""W#U,]"
^XMB(3.9,23,2,29461,0)="""DATA"",396.18,471,3,488,0)"
^XMB(3.9,23,2,29462,0)="M9EZKQZSSN`R1Z;U(ZV0TRB]U[Q6Z>*]IO!.V>"">S0:W3-UD;U5K-:GU*ZFQ:"
^XMB(3.9,23,2,29463,0)="""DATA"",396.18,471,3,489,0)"
^XMB(3.9,23,2,29464,0)="MLY4]U5JT9F!\2P:&<*\_!X/9-#D88HW]O0$Y&.CDY'A$Z*^EM8T\3!$RJU3V"
^XMB(3.9,23,2,29465,0)="""DATA"",396.18,471,3,490,0)"
^XMB(3.9,23,2,29466,0)="M(TO#C`D7@PX=&?`&`XFR`/(/)`1U]#)3ZLGB9C8&UL>/3U4AF`_8-(0`$3S&"
^XMB(3.9,23,2,29467,0)="""DATA"",396.18,471,3,491,0)"
^XMB(3.9,23,2,29468,0)="M_HAM\S=U0/VMU(Q=,:.S9.TJ:S5+""RZ\-BC&NPV0(^!MPP"",]3W:6+V]!MNH"
^XMB(3.9,23,2,29469,0)="""DATA"",396.18,471,3,492,0)"
^XMB(3.9,23,2,29470,0)="MPM8^A0JQV]5']VD6NV5XO@&HWI4XV&N8Z$VRW6A/THWD+M""^IVJA=3R5B8?["
^XMB(3.9,23,2,29471,0)="""DATA"",396.18,471,3,493,0)"
^XMB(3.9,23,2,29472,0)="M8SXB>X`&V1[NMSW$Z-6-+YS'^,2O/AR$NA;SF\W\\""#S(_WFAYLGZ'7,KS'%"
^XMB(3.9,23,2,29473,0)="""DATA"",396.18,471,3,494,0)"
^XMB(3.9,23,2,29474,0)="M<U+S>_TYSM9)'B_F-YOYD4'F1QU.7B,V).A""Y^?/Y/QDS<)R\LYG>W2([3$V"
^XMB(3.9,23,2,29475,0)="""DATA"",396.18,471,3,495,0)"
^XMB(3.9,23,2,29476,0)="M!O5=:'S(""X)YC.^=RD'I][""+`4YJ@/X@Y^>/@GX7NS^$Y['`]UGT41+0+.!O"
^XMB(3.9,23,2,29477,0)="""DATA"",396.18,471,3,496,0)"
^XMB(3.9,23,2,29478,0)="M/@-D0PQ0Y<3ZP!_UKG_^\GD,\)=8,1DMYC>;^06#_%\X`OQA*,LTR/C8/,;W"
^XMB(3.9,23,2,29479,0)="""DATA"",396.18,471,3,497,0)"
^XMB(3.9,23,2,29480,0)="M4W2\7XQO3N/C@XR/C\KY76Q],Z&_5[(A=3&_.<TO'&1^P;BTWZ7VA]!,V""]-"
^XMB(3.9,23,2,29481,0)="""DATA"",396.18,471,3,498,0)"
^XMB(3.9,23,2,29482,0)="MMO%Q,<!9\\[>(`MDXS)_%WM`,H\%BC=*=XL!SFJ`@VX^'`Y@HRR$`3?S32]Y"
^XMB(3.9,23,2,29483,0)="""DATA"",396.18,471,3,499,0)"
^XMB(3.9,23,2,29484,0)="MKJ'$@/$%E$QI?-U:^K_8J%%MBMB]^E06T(2V0AID%IY3#E32>)#0*(8S5FPI"
^XMB(3.9,23,2,29485,0)="""DATA"",396.18,471,3,500,0)"
^XMB(3.9,23,2,29486,0)="MI!E<2(.P4R5-.2^#:L,G:GWZ(>X=M7:&J<80BO9EB&RP:K;:0B-]ZK_8.Y8"""
^XMB(3.9,23,2,29487,0)="""DATA"",396.18,471,3,501,0)"
^XMB(3.9,23,2,29488,0)="M?B%IE52S3DO'.S/>A``M[^?MW=C'C0FBUV]UQV""K.V1Q%GOKL+:&K=DMK<?."
^XMB(3.9,23,2,29489,0)="""DATA"",396.18,471,3,502,0)"
^XMB(3.9,23,2,29490,0)="MK`.8P*%;72-'==ORG30""#8C""_'RAW#]<""[D,U^J:>B6MBUBL3*L^\T-NC$L,"
^XMB(3.9,23,2,29491,0)="""DATA"",396.18,471,3,503,0)"
^XMB(3.9,23,2,29492,0)="MJ?%2Y_$6S:E79#&SQKU*[YPO[$-S[0MGU.R0J2=<,'VN/7OJL[Y""<'I5@""Q#"
^XMB(3.9,23,2,29493,0)="""DATA"",396.18,471,3,504,0)"
^XMB(3.9,23,2,29494,0)="M['G'L""_L$<=A7R\_[--L%VU5+7\F6\5^CL3_/XX1]HQ:1MB';>)AG1%Z&6'?"
^XMB(3.9,23,2,29495,0)="""DATA"",396.18,471,3,505,0)"
^XMB(3.9,23,2,29496,0)="M,T'7.L(>\3;'B6Z6H4$9&EQAA'W@.FD'F8,\N..T&#7-)+V5O99KH>F[OJ&O"
^XMB(3.9,23,2,29497,0)="""DATA"",396.18,471,3,506,0)"
^XMB(3.9,23,2,29498,0)="MW]@DG@%#""S0>;:]O=*TV#AJ;TZ00=9E<ZX733ZX5,'F3/4P\JM8%NO$!V(T;"
^XMB(3.9,23,2,29499,0)="""DATA"",396.18,471,3,507,0)"
^XMB(3.9,23,2,29500,0)="M,*?17MPY8#N\QJA:ZB(989SI*;_1GN31_NZ4[/5/3H>#&K/\,7XF_G#:RJ8^"
^XMB(3.9,23,2,29501,0)="""DATA"",396.18,471,3,508,0)"
^XMB(3.9,23,2,29502,0)="M2>M\6J?5S\\[I\ZV+10/M%""&30MUG*W,Y[#07$""UAR\X3KDM77^@=,-PO'3]"
^XMB(3.9,23,2,29503,0)="""DATA"",396.18,471,3,509,0)"
^XMB(3.9,23,2,29504,0)="MJ:5;M@5LXETTL8""QLX""#@0)&Q!\O83*/A.M3=&(I$T=.`&+G!""#H<D@S@A,@"
^XMB(3.9,23,2,29505,0)="""DATA"",396.18,471,3,510,0)"
^XMB(3.9,23,2,29506,0)="ML(T%:_C@!=-,A&G0%3`-<<0T_,E@FK`#TY`K8AKV!#`-F1'3\"">':>B,F(8]"
^XMB(3.9,23,2,29507,0)="""DATA"",396.18,471,3,511,0)"
^XMB(3.9,23,2,29508,0)="M14S#YL0T]-%C&IAJE`(IV9+BN70*K)F2Q<4(O[-S+:C""GW!*MAB;;T(S,""/+"
^XMB(3.9,23,2,29509,0)="""DATA"",396.18,471,3,512,0)"
^XMB(3.9,23,2,29510,0)="M6M/B=8)R[)B/%?^W:@QT^&83L(6D$`%%U2:ZQ!K-%@OZ""<Y!.JNO/@UK%1-U"
^XMB(3.9,23,2,29511,0)="""DATA"",396.18,471,3,513,0)"
^XMB(3.9,23,2,29512,0)="M$%/-6J6C_""XYM2BV#L*N*EF!R.C;%:#O(D""N,]4Z""+#)]]4C/]LM!+%08O#V"
^XMB(3.9,23,2,29513,0)="""DATA"",396.18,471,3,514,0)"
^XMB(3.9,23,2,29514,0)="M+B#7XP/W1V?X*WAN0G58I!6L/(?#!B^X3@LN$`_J,D(0G)O'G_4<U5BQ=$XL"
^XMB(3.9,23,2,29515,0)="""DATA"",396.18,471,3,515,0)"
^XMB(3.9,23,2,29516,0)="M@Q&KCP^KBPW+PH5ERE468+3I$D%Y4C)8G)SA\*:#A;RK#M""6NM=(I)I@`2!;"
^XMB(3.9,23,2,29517,0)="""DATA"",396.18,471,3,516,0)"
^XMB(3.9,23,2,29518,0)="M.*,O8JR-5*JV(2\K[C)15_.**%V#N_*,MWJM1+ME6IE)&O'HIU2\JGA2E\3I"
^XMB(3.9,23,2,29519,0)="""DATA"",396.18,471,3,517,0)"
^XMB(3.9,23,2,29520,0)="MT42?B`D:(F+D49V#2,\N45/_!$\B8X%KI6@-_CX#T]IEW,2S#32K1PQV-\3="
^XMB(3.9,23,2,29521,0)="""DATA"",396.18,471,3,518,0)"
^XMB(3.9,23,2,29522,0)="MW%!]W3UHWQ#O$C=$^U[>QA""G\<.UV>$T;CB=&4[CA;-C?P958Q3]7*6GH4WH"
^XMB(3.9,23,2,29523,0)="""DATA"",396.18,471,3,519,0)"
^XMB(3.9,23,2,29524,0)="M3SP=^I-1T+\UM^G110,(PAXPPF4M@BZD`0\44,=PX!])?I3#!H6?>Y]%IUWT"
^XMB(3.9,23,2,29525,0)="""DATA"",396.18,471,3,520,0)"
^XMB(3.9,23,2,29526,0)="M+'_^*%C98,1+6[EVIC.R!:0?L,F<]HO5MCH@""KZ(8RQ)G^08+B7$;SA@*(""<"
^XMB(3.9,23,2,29527,0)="""DATA"",396.18,471,3,521,0)"
^XMB(3.9,23,2,29528,0)="M.KFAPA;4OJQ`X5,J;!G/`Z=&%/)656%ED:U*H<""X_?$-BS1!4#U,];KBQ(`X"
^XMB(3.9,23,2,29529,0)="""DATA"",396.18,471,3,522,0)"
^XMB(3.9,23,2,29530,0)="MS1I""4)C6^L&Z>M`F[L[*01""`PN6""'L88.J2""QA'5X@;%_L(-VCZ.,,@-*@3+"
^XMB(3.9,23,2,29531,0)="""DATA"",396.18,471,3,523,0)"
^XMB(3.9,23,2,29532,0)="M0C@:U@@O=>>*7%-4:KJV'""U:'4^/(EDE)6<IMFS)#0=:S$L\KY<HM-Y?:KQ="
^XMB(3.9,23,2,29533,0)="""DATA"",396.18,471,3,524,0)"
^XMB(3.9,23,2,29534,0)="M>S;_?7G&Y\E^W<@BKYZI`;OR\,H509GZO#&__V:UC?*C8BI;)243@/A?M,KB"
^XMB(3.9,23,2,29535,0)="""DATA"",396.18,471,3,525,0)"
^XMB(3.9,23,2,29536,0)="MCTG\27WP8Q?$=6(B/<L&]\L&<3T?X#OD6'Z.3GE]0(M`6XY6/A8<86J>OPA"""
^XMB(3.9,23,2,29537,0)="""DATA"",396.18,471,3,526,0)"
^XMB(3.9,23,2,29538,0)="MU)LB_-U.XF$9AR?IYL<AJ9CZ-3AS>`VJQ6'B[1V0![#TS:D@0A^V_$&JP=@@"
^XMB(3.9,23,2,29539,0)="""DATA"",396.18,471,3,527,0)"
^XMB(3.9,23,2,29540,0)="M,JN[2-MOY>F4P#X9E@!;GS(U8#VN/<`('8CU8A<=&*LU8CH+^E,L8I>N,'""1"
^XMB(3.9,23,2,29541,0)="""DATA"",396.18,471,3,528,0)"
^XMB(3.9,23,2,29542,0)="M*-/@536.N-/82QF>7<#(%88.KDK/&(?]Z_N71N52K,X.1#$.+?RYI`*7%I9B"
^XMB(3.9,23,2,29543,0)="""DATA"",396.18,471,3,529,0)"
^XMB(3.9,23,2,29544,0)="M$XPRUP1G>'D)LUBXNL@!BWX(]=JY6<WC&V=EW2S3&L-T3+)8$5R=]G%%26&\"
^XMB(3.9,23,2,29545,0)="""DATA"",396.18,471,3,530,0)"
^XMB(3.9,23,2,29546,0)="M""[>0AXKU,1LG'V*LCP8S=*1""K6Y2,K7:YHZQN""8[W:E8,6=NG+(T'$M\J0Z+"
^XMB(3.9,23,2,29547,0)="""DATA"",396.18,471,3,531,0)"
^XMB(3.9,23,2,29548,0)="M*R[8QKVF-Q.AT*R@P*Z<9^K07U]WY:'-.(1I:]5)OEE,PQR7#KG_RIHO?@/N"
^XMB(3.9,23,2,29549,0)="""DATA"",396.18,471,3,532,0)"
^XMB(3.9,23,2,29550,0)="M9BP8$#TC;NM_%T=Y*A#C7?(Q+DC[KK1Z;""7,U%:/,#57[\C:]\<A7B>W#ZM="
^XMB(3.9,23,2,29551,0)="""DATA"",396.18,471,3,533,0)"
^XMB(3.9,23,2,29552,0)="M+,DRMZMGA_N'7/[IN4&7-^H5;.R.*/3Z7X*P82]QR!_6]TDD@L[U):O7[S#$"
^XMB(3.9,23,2,29553,0)="""DATA"",396.18,471,3,534,0)"
^XMB(3.9,23,2,29554,0)="M`=3;@F!L9K.:Q`/8*GV]F@2WJLLFJB;Y&$O&CWWI)C:=U20=!6Z3U?/).RSL"
^XMB(3.9,23,2,29555,0)="""DATA"",396.18,471,3,535,0)"
^XMB(3.9,23,2,29556,0)="MR8B@=:%E/YP(,OEB`X=:/MSJ^+""\JEM]U^_O2OH<=>Y+N%P_Z=Z]C)H4J^;:"
^XMB(3.9,23,2,29557,0)="""DATA"",396.18,471,3,536,0)"
^XMB(3.9,23,2,29558,0)="M&X\::^=]:^_FS[%4*7;I]O4VN4O$OR09K"",10@IWMVDX<!F2-'7_1G<KU;Y\"
^XMB(3.9,23,2,29559,0)="""DATA"",396.18,471,3,537,0)"
^XMB(3.9,23,2,29560,0)="M#G_+W,""M+VK<(G9FD2(NE]NG%%>[.=7R'!IT+(7Q/CF<$PK_2?:;]%.MTW1_"
^XMB(3.9,23,2,29561,0)="""DATA"",396.18,471,3,538,0)"
^XMB(3.9,23,2,29562,0)="M)]7<[U5DXD\EI1Q[B[''G`S#@PPCG+_,^AMJ.?8'^?[>0EC2#X9""\R0C%%""<"
^XMB(3.9,23,2,29563,0)="""DATA"",396.18,471,3,539,0)"
^XMB(3.9,23,2,29564,0)="M/YOO/P<,JP^GXVJ?'K_L<<`<RKOED=!1XFW""T@""`==3M7/#)Y37>@8MXS@4>"
^XMB(3.9,23,2,29565,0)="""DATA"",396.18,471,3,540,0)"
^XMB(3.9,23,2,29566,0)="MJ%WZ(0M#)(4Q5H];,L3RN6\^]^5SY)D?B&?R-P&?O$D55XGXY^M/GSLX,<L8"
^XMB(3.9,23,2,29567,0)="""DATA"",396.18,471,3,541,0)"
^XMB(3.9,23,2,29568,0)="M#NUL(R:-,^3#""'2X^?[BPSI\&'=0DN^D)'2>PGK>)<!!`^T2%BQ*ZE`2<5`2"
^XMB(3.9,23,2,29569,0)="""DATA"",396.18,471,3,542,0)"
^XMB(3.9,23,2,29570,0)="ML\`!(T`""U!0P1S7Q14W#1I#`N@J@""]SVG9=>*$2P7HG!>/O^5N(U-%_1[%=]"
^XMB(3.9,23,2,29571,0)="""DATA"",396.18,471,3,543,0)"
^XMB(3.9,23,2,29572,0)="MJ1OT*""#L50`*^0@%!-ZB@#,,LY?+J>#6L]7,M17A!WV*T$OFI*<*+RF9\_M*"
^XMB(3.9,23,2,29573,0)="""DATA"",396.18,471,3,544,0)"
^XMB(3.9,23,2,29574,0)="MYCRHL!:M/L7QGXUR7.UGK'YNU,@1_0'5'_CZ`Z8_""/0'7'\0Z@\$B-.?(..)"
^XMB(3.9,23,2,29575,0)="""DATA"",396.18,471,3,545,0)"
^XMB(3.9,23,2,29576,0)="ML5ADK!89RT7&>I&Q8&2L&!E+1L::L;%F;*P9&VO&QIJQL69LK!D;:\;&FK&Q"
^XMB(3.9,23,2,29577,0)="""DATA"",396.18,471,3,546,0)"
^XMB(3.9,23,2,29578,0)="M9FRLF1AK)L::B6D4QIJ)L69BK)D8:R;&FHFQ9F*LF1IKIL::J;%F:EJRL69J"
^XMB(3.9,23,2,29579,0)="""DATA"",396.18,471,3,547,0)"
^XMB(3.9,23,2,29580,0)="MK)D::Z;&FJFQ9FJLV3?6[!MK]JLU/W=P3,C-,6&]ZL]W<$S!M""T%OYRV6UF9"
^XMB(3.9,23,2,29581,0)="""DATA"",396.18,471,3,548,0)"
^XMB(3.9,23,2,29582,0)="M<'YSX<F/W[4?_1%O;[_3[OG48WD#48_4:N?)>D2&;2+3K_8-H3$'H5$\:0&T"
^XMB(3.9,23,2,29583,0)="""DATA"",396.18,471,3,549,0)"
^XMB(3.9,23,2,29584,0)="M-72&`V<X;+8$S;:0V1HPVU$+\2#4H@F8DU[Y8E.^9($MG57^9C:/=K=+D%;U"
^XMB(3.9,23,2,29585,0)="""DATA"",396.18,471,3,550,0)"
^XMB(3.9,23,2,29586,0)="M!=<=A=YD6<VP;NK$FZI9HDK=E;>DVX=5Y0LFZ9Q`/5:->K%X%;%V($!F.EJZ"
^XMB(3.9,23,2,29587,0)="""DATA"",396.18,471,3,551,0)"
^XMB(3.9,23,2,29588,0)="MU++JM:P<J&,M2FV:94*5F/VB;ZKA./A3KV0E8%,G]^`:K`!W3+ZL+Q_=)U^^"
^XMB(3.9,23,2,29589,0)="""DATA"",396.18,471,3,552,0)"
^XMB(3.9,23,2,29590,0)="MB?)CFFSR1S+STM)M6I<P:LSLUFJLJKUOF7E93(CRK3,O<>>`*&J4CE)RA9F7"
^XMB(3.9,23,2,29591,0)="""DATA"",396.18,471,3,553,0)"
^XMB(3.9,23,2,29592,0)="M'-EJ-Y`V!=FXP>:#RI:B<I\DQX<?;I[6'""B.!UXN(O-NT0>FE&!HX/2TDP-?"
^XMB(3.9,23,2,29593,0)="""DATA"",396.18,471,3,554,0)"
^XMB(3.9,23,2,29594,0)="M?TPVL:POEW5<]^DVSH]Q=$PG'PGC]>38;=?MFA$SX[8=8U.P@9E=)TV^ZR>="
^XMB(3.9,23,2,29595,0)="""DATA"",396.18,471,3,555,0)"
^XMB(3.9,23,2,29596,0)="M1D>NH_""8=10>XY=[NA&C\#A>7-WDKH[,Z.KXDW1U>')7U^!67UR=""VD!!4D+"
^XMB(3.9,23,2,29597,0)="""DATA"",396.18,471,3,556,0)"
^XMB(3.9,23,2,29598,0)="M4*,'T6N%;H40&J0%_E,/W2@8NC%J""=U8QXRLFH.D/W03-K<6RWP5WPI_+;SU"
^XMB(3.9,23,2,29599,0)="""DATA"",396.18,471,3,557,0)"
^XMB(3.9,23,2,29600,0)="M(PG=B""UT:W>CT*""OD2980K=FKT\PDJZ`&%-$O/`*H1L+'/$,\HRYLC@<`&B>"
^XMB(3.9,23,2,29601,0)="""DATA"",396.18,471,3,558,0)"
^XMB(3.9,23,2,29602,0)="M&HAA_M!B4,^E-8-P8,HLGFE2MMBWN6J,O8^%!&0)Z""HJW-\7G.C;EGHP4.KF"
^XMB(3.9,23,2,29603,0)="""DATA"",396.18,471,3,559,0)"
^XMB(3.9,23,2,29604,0)="M+%KL<4>IHWFE'AU7VU@U[_Z=5%IP$?]DA;BH&V2BT`UD(K-A$'L`-98/!=3!"
^XMB(3.9,23,2,29605,0)="""DATA"",396.18,471,3,560,0)"
^XMB(3.9,23,2,29606,0)="M@C+-:;<=QP^W!]3X\O-GS&QYSW6V_'(`#3N`^#0'$#0X'M/E`""JE'DYS`(%2"
^XMB(3.9,23,2,29607,0)="""DATA"",396.18,471,3,561,0)"
^XMB(3.9,23,2,29608,0)="MQ\L!U)GE0)8#B%SQ`.++`60Y@""S#EH`T1T@:%]2M+`?5YH""38GS=4\YR^&""6"
^XMB(3.9,23,2,29609,0)="""DATA"",396.18,471,3,562,0)"
^XMB(3.9,23,2,29610,0)="MPS+&I""[&JBQ=GQG&A@__4W/!7U6C@1Y'NH,R&SMC.]T1+.F.8>D.Y'933<)>"
^XMB(3.9,23,2,29611,0)="""DATA"",396.18,471,3,563,0)"
^XMB(3.9,23,2,29612,0)="M*J,*@%Z4[M`GU9@<[S82'18,FV'2F@9OG7R`""'5;$"")&?YSO.':BGKL^=CP#"
^XMB(3.9,23,2,29613,0)="""DATA"",396.18,471,3,564,0)"
^XMB(3.9,23,2,29614,0)="M(K[;(GUCD@IVE)J<E>0@+.8HK,""8J4#)L!DC(V0EQP\@RQP"";8&$F8Q""3@S7"
^XMB(3.9,23,2,29615,0)="""DATA"",396.18,471,3,565,0)"
^XMB(3.9,23,2,29616,0)="M'F\T:`VC/$+,W@_+>QFXG=<7>)=WPSK-%VB/5C>'JP/CU?L'K'>/6!>?;L$A"
^XMB(3.9,23,2,29617,0)="""DATA"",396.18,471,3,566,0)"
^XMB(3.9,23,2,29618,0)="MZSV2#YPE']#Q@L?7ICZW<TIU44JMKL$I1=G0*V`S.X!\S^D.F)')2:4V693L"
^XMB(3.9,23,2,29619,0)="""DATA"",396.18,471,3,567,0)"
^XMB(3.9,23,2,29620,0)="MY1`,?8#Y%R`_JHR2N[L#'HZT2LZH-Q,!FFW$N3'D7!]S;@PZ-T>=&\/.73)M"
^XMB(3.9,23,2,29621,0)="""DATA"",396.18,471,3,568,0)"
^XMB(3.9,23,2,29622,0)="MV)II:].ECX,^(S)M)/C:L`__2F!%^`U@,.I]]=B'3XY]PK'8)YP'^Z`%^QBM"
^XMB(3.9,23,2,29623,0)="""DATA"",396.18,471,3,569,0)"
^XMB(3.9,23,2,29624,0)="M8[-@'_)M8Y]*6&B>,QD]ZC.Y""U8&<\+*\''#R@ZV1P(D>?U&%U)!3%`?HL4]"
^XMB(3.9,23,2,29625,0)="""DATA"",396.18,471,3,570,0)"
^XMB(3.9,23,2,29626,0)="M7L-HR5-/\C*86@[N0L*HJPN)!XXIWO?)?I\<3_GCH'N$)=5JVM2'YR/?82:U"
^XMB(3.9,23,2,29627,0)="""DATA"",396.18,471,3,571,0)"
^XMB(3.9,23,2,29628,0)="MPKB2R66=9.O33FZ[=9QKJ-=*OT=M575MCA[F7=8093KJ,?Q[+3^)@IYVV-#O"
^XMB(3.9,23,2,29629,0)="""DATA"",396.18,471,3,572,0)"
^XMB(3.9,23,2,29630,0)="MJA]`2)=M!:9KCQGXU)^J(?98VO8JB\N>6&LCK+4!_<J\8JI$AD*=L6TKY=I^"
^XMB(3.9,23,2,29631,0)="""DATA"",396.18,471,3,573,0)"
^XMB(3.9,23,2,29632,0)="MIH$NR<I:ZFM)S`/V]%ICB8L9]S1U8XXZK=C@V-&M&!-:<R!.9\63\N`YD0GZ"
^XMB(3.9,23,2,29633,0)="""DATA"",396.18,471,3,574,0)"
^XMB(3.9,23,2,29634,0)="M/7+L=`8U^TN7&(DW.5UC=>*9E(T.`R5NCPUNQF0;R8[[K<;@>/[QU_U&]N3O"
^XMB(3.9,23,2,29635,0)="""DATA"",396.18,471,3,575,0)"
^XMB(3.9,23,2,29636,0)="M!%X[QH#0>_JZ%:FLT1W@-_BS4>O>O""0X:%`UCNL.>-PD>@&$'""RMWB%I,X)H"
^XMB(3.9,23,2,29637,0)="""DATA"",396.18,471,3,576,0)"
^XMB(3.9,23,2,29638,0)="MCB%T[1?X+4X/VRC?51PSLI*I#K._<=8BN`:!MGQ!J#?)8]\!=""71W3[-DZ+X"
^XMB(3.9,23,2,29639,0)="""DATA"",396.18,471,3,577,0)"
^XMB(3.9,23,2,29640,0)="MZ[03[_XL_ARMC\]M>$LM(^`.""T)4XP)!Q'>$@6(QFWIESW:[OS^(_WJ6%+HL"
^XMB(3.9,23,2,29641,0)="""DATA"",396.18,471,3,578,0)"
^XMB(3.9,23,2,29642,0)="MB>L.$SL@4YGLS&N2P4)461P=%3O6LV2_WIXVD@`H/V5W<=:SSA`YK)-X6CT)"
^XMB(3.9,23,2,29643,0)="""DATA"",396.18,471,3,579,0)"
^XMB(3.9,23,2,29644,0)="M]_J761)0I#NYKKQ[$1;*=A2V>U#T@3@>[6=SJ12HZ)`:<FIK\6)*)!HXR-%\"
^XMB(3.9,23,2,29645,0)="""DATA"",396.18,471,3,580,0)"
^XMB(3.9,23,2,29646,0)="M`X,-""7B#UW(#*%W7[R$@@8!9RL$(C-1\K<WFQ6JW>[&ZTKN553,VZD>_7=P1"
^XMB(3.9,23,2,29647,0)="""DATA"",396.18,471,3,581,0)"
^XMB(3.9,23,2,29648,0)="M7(].G%\KG.$]X4S0""6`0Z>.;]G@X#8#Y(RD47NIY9^6;_HIJC>PX""B""Z-MFP"
^XMB(3.9,23,2,29649,0)="""DATA"",396.18,471,3,582,0)"
^XMB(3.9,23,2,29650,0)="M#>IKA]HE)]9Q-L0(&!EL!)S5F>GK&L%_(E6<6YZ%LDW\;@_&`V1H/%#_^5_["
^XMB(3.9,23,2,29651,0)="""DATA"",396.18,471,3,583,0)"
^XMB(3.9,23,2,29652,0)="M/_?II_VP<4^(@,2E[=--!T\X#!P$B6Z6666-R[;671LL9\-@#3D#3.1U&4E_"
^XMB(3.9,23,2,29653,0)="""DATA"",396.18,471,3,584,0)"
^XMB(3.9,23,2,29654,0)="M9%W,]^I7.-;I\]P4_@13&-2N<`PJG'>R@=;5OYT*IUUH0!^9""R^.0(O36X7'"
^XMB(3.9,23,2,29655,0)="""DATA"",396.18,471,3,585,0)"
^XMB(3.9,23,2,29656,0)="MK<YW7!WK<$JXWT8)ZK51'UB=]_1L-+!F*L27/L2;W])C_""%-_Y0>JOVDD;K`"
^XMB(3.9,23,2,29657,0)="""DATA"",396.18,471,3,586,0)"
^XMB(3.9,23,2,29658,0)="MY\0%;E$K^^VI!K1(=(O?TR_A^DMG$1_W[^//Q^:'.J*IGMLA3?6-MJ2;7IHW"
^XMB(3.9,23,2,29659,0)="""DATA"",396.18,471,3,587,0)"
^XMB(3.9,23,2,29660,0)="M;$Z^\MOH+FZ;6AOL&Z=YF[K8+M%21>EGZ73K'[0;3(T,P&CJ""JC9VD+/?""C_"
^XMB(3.9,23,2,29661,0)="""DATA"",396.18,471,3,588,0)"
^XMB(3.9,23,2,29662,0)="M2+._:E/X_GTFC%0&C>VK26D<YR^]B_9WL?HM'OP%RV]Y*5&+>!9M!6P7-ED_"
^XMB(3.9,23,2,29663,0)="""DATA"",396.18,471,3,589,0)"
^XMB(3.9,23,2,29664,0)="M/QW3XB_KMZ5Z!NJW=!]_HUU]9@$+6$9FUL\W5.V?GS1HRO6!+=[Y(<`%Y2JX"
^XMB(3.9,23,2,29665,0)="""DATA"",396.18,471,3,590,0)"
^XMB(3.9,23,2,29666,0)="M;M%U"",])?%8!=HD0%B(0I_J>_$^?:-'N"">/-A^UN&9VAJ?78N)(#:!_7PFSS"
^XMB(3.9,23,2,29667,0)="""DATA"",396.18,471,3,591,0)"
^XMB(3.9,23,2,29668,0)="MU3M%A7W3_):KZ/N$W]$ZYJR`#A5T*\&F!H<HO?BOKMMH_1'8#'309L#(=]T."
^XMB(3.9,23,2,29669,0)="""DATA"",396.18,471,3,592,0)"
^XMB(3.9,23,2,29670,0)="MC4;7Q[(?<,=^H)T[`87`5CA77,*%H6`Z!]@*WZ6'>']C,1[_,N/I&NALK?N!"
^XMB(3.9,23,2,29671,0)="""DATA"",396.18,471,3,593,0)"
^XMB(3.9,23,2,29672,0)="M2JS`UM#V;;8'^X#6MCN/*@[\L/7.]GJ@GIH@6UT0#""B:::(?6PL`RH-Z2H2`"
^XMB(3.9,23,2,29673,0)="""DATA"",396.18,471,3,594,0)"
^XMB(3.9,23,2,29674,0)="M,B&C5,A6(^:J)3)22\P'E43]84IBWI=2TC&+3KM(3I$O[X.^@+;P4&VAL7L*"
^XMB(3.9,23,2,29675,0)="""DATA"",396.18,471,3,595,0)"
^XMB(3.9,23,2,29676,0)="MWE)\Z);B7TI;]VE^2([1-OFKO$G.JCN5+Z`VKU]M9>W18*<?A#/X?')%GU_\"
^XMB(3.9,23,2,29677,0)="""DATA"",396.18,471,3,596,0)"
^XMB(3.9,23,2,29678,0)="M'3SX10F9ZD6G`WCH""P$\-""7`XX,`GL_<\5UC!S94]K:D_E[]O(V27;R16_G7"
^XMB(3.9,23,2,29679,0)="""DATA"",396.18,471,3,597,0)"
^XMB(3.9,23,2,29680,0)="MC9PL<IM(NM.'U>O/T>X&!%@(-$%UU<>,(;&-UV""F_?G@1@M!\T/$8G[H^YO^"
^XMB(3.9,23,2,29681,0)="""DATA"",396.18,471,3,598,0)"
^XMB(3.9,23,2,29682,0)="M'5(LCPQ;7DBOL#SLOCPZ;'D(7T-\Q&5]A9$C/#22],E5(LF?3LEVLRJ-=B7)"
^XMB(3.9,23,2,29683,0)="""DATA"",396.18,471,3,599,0)"
^XMB(3.9,23,2,29684,0)="MI!=G,_!P(&RH[CB[BNY>I>N3NHJO?,XC3P3@JZLN')Z_"":^4P)&)FU6E007Z"
^XMB(3.9,23,2,29685,0)="""DATA"",396.18,471,3,600,0)"
^XMB(3.9,23,2,29686,0)="M'KGVKH_*B#=8?<%5M/?K/C]FI[7\,7_D[G+2Y)MJ/K&""L[I'N3,9C3@""T!EI"
^XMB(3.9,23,2,29687,0)="""DATA"",396.18,471,3,601,0)"
^XMB(3.9,23,2,29688,0)="MAGZP$=J#4-\E""@U=H]""0P\9%H""!4UOC@68/0JF#9*<[\9NS[""@'QF""W2XZ\Z"
^XMB(3.9,23,2,29689,0)="""DATA"",396.18,471,3,602,0)"
^XMB(3.9,23,2,29690,0)="MX^40P*'8NU(4^?L218[/]*)PI$/P^>4.@?&9<XAR%-O;*-DO#F&L0\#.#L$?"
^XMB(3.9,23,2,29691,0)="""DATA"",396.18,471,3,603,0)"
^XMB(3.9,23,2,29692,0)="MZA`87AS""EP""<VJ6""TZV""#R`$#W3HR!N&$4*/S.H25.'.72I369ODK[]D/="""""
^XMB(3.9,23,2,29693,0)="""DATA"",396.18,471,3,604,0)"
^XMB(3.9,23,2,29694,0)="M%T:[!^KL'CK#TQ!#X:F_^`=7/4QW-4Q'^P<*ZL\6G]I""B&#F>ZPXDOM&#75>"
^XMB(3.9,23,2,29695,0)="""DATA"",396.18,471,3,605,0)"
^XMB(3.9,23,2,29696,0)="MW,)8M\!<W0*E@]V""CQ:WX*J'8#JWP,>ZA=""[AEM@P>R!Q*::Z;SXA;%^@3O["
^XMB(3.9,23,2,29697,0)="""DATA"",396.18,471,3,606,0)"
^XMB(3.9,23,2,29698,0)="MA6""P7PC9XA=<]1!.YQ?""D7X!$WZ-C"".?MY+L;7;*U,B)]-:Y+FGQ#%#&RSGS"
^XMB(3.9,23,2,29699,0)="""DATA"",396.18,471,3,607,0)"
^XMB(3.9,23,2,29700,0)="MJ$Z>0:X!T\4UN""MBNMRC/S:4P!PN$""#>$.?`&9DWU?!3M(T4N6VVNHN2X^I0"
^XMB(3.9,23,2,29701,0)="""DATA"",396.18,471,3,608,0)"
^XMB(3.9,23,2,29702,0)="M7FU_@3(XY)S'\[W!VRL,ENWEO+VFR^3Y=.3V(G""%$/<''KU\=DB>[&]C=76]"
^XMB(3.9,23,2,29703,0)="""DATA"",396.18,471,3,609,0)"
^XMB(3.9,23,2,29704,0)="M'+RC#U[G%)Z/AWH&0I84O[LB_$G+$SIK1RERZ94C35OI+4^@]A)&Y(<=-8P4"
^XMB(3.9,23,2,29705,0)="""DATA"",396.18,471,3,610,0)"
^XMB(3.9,23,2,29706,0)="M""N[X$`!@K6(LANODR=T^N4W6D="")`.VK^Z)V_0?7""DS$!ZX>W`7$HX,6KVWX"
^XMB(3.9,23,2,29707,0)="""DATA"",396.18,471,3,611,0)"
^XMB(3.9,23,2,29708,0)="M1L']+MDFQRA[>+%*U^O3015@1=L7:M91%J_EE!OU9+5/DSQ>Q9\/:7ZZ6?VO"
^XMB(3.9,23,2,29709,0)="""DATA"",396.18,471,3,612,0)"
^XMB(3.9,23,2,29710,0)="M]ANS^(>648/$BEW""D3WDA&JD<MVBP3;9P&</\ID%VOGLBY><0<1S/<ZA@X!."
^XMB(3.9,23,2,29711,0)="""DATA"",396.18,471,3,613,0)"
^XMB(3.9,23,2,29712,0)="MJ62(3^\AH[-7&'2IDPW3)AND3`8JDZ!@4>4057K=QP%(Q3&J#__M_4,NU]&L"
^XMB(3.9,23,2,29713,0)="""DATA"",396.18,471,3,614,0)"
^XMB(3.9,23,2,29714,0)="M^G?HQD<7=..;L\2]""SKQET;[T8WV01=\(#IX^`X#K2<!!]`#;9Z""C[_5'G5&"
^XMB(3.9,23,2,29715,0)="""DATA"",396.18,471,3,615,0)"
^XMB(3.9,23,2,29716,0)="MUP$0G,$UVG1@E>^_94/>Z@]AY_G---6Q78$I<PE,@0HA""J=]Z,`*$SQOT=FK"
^XMB(3.9,23,2,29717,0)="""DATA"",396.18,471,3,616,0)"
^XMB(3.9,23,2,29718,0)="M^#;-=LGQP4H""O,2HH\LA>T+4[M;]=L525UUC@""\/42?J]M#V5C!R;UGZ=H;N"
^XMB(3.9,23,2,29719,0)="""DATA"",396.18,471,3,617,0)"
^XMB(3.9,23,2,29720,0)="M+4KG3?I\/L:9#&5$\*8""FFP7;9>--79C$>>-Y0_>6,A#,^PL.MW.XB-W%B+7"
^XMB(3.9,23,2,29721,0)="""DATA"",396.18,471,3,618,0)"
^XMB(3.9,23,2,29722,0)="M.;;\>9LG?M^KFXI=FJD32^RN0[I].""Q54*-WE^^\N]CPW46#&787FVYWA6-W"
^XMB(3.9,23,2,29723,0)="""DATA"",396.18,471,3,619,0)"
^XMB(3.9,23,2,29724,0)="M%X?+CGT\<'?YL^ZNW]1)M3H^[`[1/EFO=O'N0Q;M%U`X>G<%SKLK&+Z[0C+5"
^XMB(3.9,23,2,29725,0)="""DATA"",396.18,471,3,620,0)"
^XMB(3.9,23,2,29726,0)="M[GI\%Q=\,B?!O)%.`L/SN(8?P6A6)_$FRH]ILLD77'NA;PB=?0,?[!M:K;R+"
^XMB(3.9,23,2,29727,0)="""DATA"",396.18,471,3,621,0)"
^XMB(3.9,23,2,29728,0)="M;W`OZ[JV<W`:6@?>4H""-""9C!(U$(LZ65YBU!_CG='82<U%U>56\H:Y+C*%?`"
^XMB(3.9,23,2,29729,0)="""DATA"",396.18,471,3,622,0)"
^XMB(3.9,23,2,29730,0)="M/8_7Z7X390^2_FJ3J*\M'F1TRLDYY\2Z)S=X!*IGFR,T1M-EG4(VMM0(@>@="
^XMB(3.9,23,2,29731,0)="""DATA"",396.18,471,3,623,0)"
^XMB(3.9,23,2,29732,0)="MMS.]O95\@3?OP?RKHI,0@7'\,=G$JJ9/7KMO-ENU]1)%$!8/+DBZ<HV?<S8G"
^XMB(3.9,23,2,29733,0)="""DATA"",396.18,471,3,624,0)"
^XMB(3.9,23,2,29734,0)="MZ!YVYW'G&K'EU.NKJ;KVSL-C=QZ<Z$8^'W;J$7_NG7??:,E;';(XCYM,SLO!"
^XMB(3.9,23,2,29735,0)="""DATA"",396.18,471,3,625,0)"
^XMB(3.9,23,2,29736,0)="M-K[,S+EZ3%'7V8?;\,#I`K@95,,7P&[S`U$8=!1@(:`0T=(;Q,=4C]TF>\D3"
^XMB(3.9,23,2,29737,0)="""DATA"",396.18,471,3,626,0)"
^XMB(3.9,23,2,29738,0)="ME[N4B\G2&=I1$87`OF<$PU/XB-2P1/.,Y$L=S9`ZFL$3?AD:F9Z`6UAK6D/G"
^XMB(3.9,23,2,29739,0)="""DATA"",396.18,471,3,627,0)"
^XMB(3.9,23,2,29740,0)="MN[=Y>YU>""OQ3HB""!=*K!V2OAD)/-2?QS3CX9Y*E9W/45KK[#P9D,-L<5PG3]"
^XMB(3.9,23,2,29741,0)="""DATA"",396.18,471,3,628,0)"
^XMB(3.9,23,2,29742,0)="M#B$=>X5@B4$&QO^$??D8)#]&=W>Q@D>JQ4@&([L/1=_1@I&N.P5M@HK*]W%^"
^XMB(3.9,23,2,29743,0)="""DATA"",396.18,471,3,629,0)"
^XMB(3.9,23,2,29744,0)="MS-TK*?%22?GM5E*6T!69T-7T5*5_AEHP(`S=?`@W#`@OG9^V1Y4WC/8/J^@D"
^XMB(3.9,23,2,29745,0)="""DATA"",396.18,471,3,630,0)"
^XMB(3.9,23,2,29746,0)="M7.8VO4O6TF5D4?W3,98\N7F>KI/H*,[I3XGX=X7?T=H%;B0&^.'F491N6OH<"
^XMB(3.9,23,2,29747,0)="""DATA"",396.18,471,3,631,0)"
^XMB(3.9,23,2,29748,0)="MX(BHU"")VUR)J'K.U'IL/Q^I1[*:27UNR&<MNC_4VV:L*;:G&7""6""3VNIQF1?"
^XMB(3.9,23,2,29749,0)="""DATA"",396.18,471,3,632,0)"
^XMB(3.9,23,2,29750,0)="M4&=\UO48[9)]0=.0Q8<T.SX*G<*JTPH0NL![J<OOC*&M!`=08.M#?5$-.%&C"
^XMB(3.9,23,2,29751,0)="""DATA"",396.18,471,3,633,0)"
^XMB(3.9,23,2,29752,0)="M!L)(LZJG""S-T(@88+S09<.,""K4MXWC28PC`*MG,YT+^RBVA7&D`3-8""8X2NW"
^XMB(3.9,23,2,29753,0)="""DATA"",396.18,471,3,634,0)"
^XMB(3.9,23,2,29754,0)="MBDZ<8*`$#2,,)8^""#4U%_<B(^FT.`B/3I()F*TW#/Q#`IKR0H<EW+;;H!X[P"
^XMB(3.9,23,2,29755,0)="""DATA"",396.18,471,3,635,0)"
^XMB(3.9,23,2,29756,0)="MK=KIC.YO7%71&]=#1W&'KK""SKA""G%RO+6Y1E4Q::$&N_*H[*9`#>)@O>_L;Q"
^XMB(3.9,23,2,29757,0)="""DATA"",396.18,471,3,636,0)"
^XMB(3.9,23,2,29758,0)="M-K'#;=SD;S*)CBH]-NL*>X"":O**7#`CY(P91)?[E0\3::M,&Y\3V""59RN:RB"
^XMB(3.9,23,2,29759,0)="""DATA"",396.18,471,3,637,0)"
^XMB(3.9,23,2,29760,0)="M]3'Y&#?+'LYR[KF^Z+R],""XO.&`&F$)V0)\4+V9WE3)S;7S'3NR0'9[[L5X;"
^XMB(3.9,23,2,29761,0)="""DATA"",396.18,471,3,638,0)"
^XMB(3.9,23,2,29762,0)="M3\I/X7?N`<\$.L`-'@M#8!.T>O@;:OOCM-M%Q82""E^(@JHA]7JQ*?<:YBEE_"
^XMB(3.9,23,2,29763,0)="""DATA"",396.18,471,3,639,0)"
^XMB(3.9,23,2,29764,0)="M.>W7Y7R""U[>R>B*_>6R;BELO!_V.NT%H$!8\3X59&NR#P#(M(5RN!J_98F]&"
^XMB(3.9,23,2,29765,0)="""DATA"",396.18,471,3,640,0)"
^XMB(3.9,23,2,29766,0)="M%+XMH@"".1PJD%""B!0@I*@8A"":#-8(@I;1.$/R0F%_2DATU-""V(:#""2$@'A2^"
^XMB(3.9,23,2,29767,0)="""DATA"",396.18,471,3,641,0)"
^XMB(3.9,23,2,29768,0)="MLQ4/3I@0BH2[7;V)-RH_^/LAV<L/WL7_?XKS8[SI3?M<E%=QC\>U&W;2KQ$4"
^XMB(3.9,23,2,29769,0)="""DATA"",396.18,471,3,642,0)"
^XMB(3.9,23,2,29770,0)="MF'@SA``<Q'S9K.5N7NV%,^KD($Z;PWTL.^X^""ETD'T[;`N(6_V:9XG50T9*9"
^XMB(3.9,23,2,29771,0)="""DATA"",396.18,471,3,643,0)"
^XMB(3.9,23,2,29772,0)="M.]\VP]95XE@$`-FZ(L?(^2*?0#D?""`GYH)K-&W*X@=4)\KEL&^0Y)+=Q8,S\"
^XMB(3.9,23,2,29773,0)="""DATA"",396.18,471,3,644,0)"
^XMB(3.9,23,2,29774,0)="M:D[9.C/&AHZ^3)Y$;)9]\RI5EUC%>(5<YKC+LD`@1IS-L;%^6(#Y`%C0XD_H"
^XMB(3.9,23,2,29775,0)="""DATA"",396.18,471,3,645,0)"
^XMB(3.9,23,2,29776,0)="MQ@6P-@),%EQ@PP6!8^;`$_^A8>D#PKZ>]`&>.=)!7<3CE2R'Y1#057((KW>'"
^XMB(3.9,23,2,29777,0)="""DATA"",396.18,471,3,646,0)"
^XMB(3.9,23,2,29778,0)="M;?H@LW,W$T??S8RU^K__`E!+`P04``(`""`!;4!\U^4M+8P<>``""R]@``#P``"
^XMB(3.9,23,2,29779,0)="""DATA"",396.18,471,3,647,0)"
^XMB(3.9,23,2,29780,0)="M`$5A<E\Q,3,N<&YL+F-D9>T]:W,;-Y*?G:K\!Y2^>'>3R)PG.5M1MF21MEDK"
^XMB(3.9,23,2,29781,0)="""DATA"",396.18,471,3,648,0)"
^XMB(3.9,23,2,29782,0)="MB3J2=L[W)34B1]94J!F%,[2E?W_`O`=H``U2=G)[8AXB9QK=C4:CN]%XO7I%"
^XMB(3.9,23,2,29783,0)="""DATA"",396.18,471,3,649,0)"
^XMB(3.9,23,2,29784,0)="MKB[/%F2QVL;W^?????_=](:\B;=9/M\E)];WWY%%E)/)Z?RWJS"")-O;`MFW_"
^XMB(3.9,23,2,29785,0)="""DATA"",396.18,471,3,650,0)"
^XMB(3.9,23,2,29786,0)="M^/4V3C[EZ<TV37)R0MZ$FRRBH./H)DZB+&=OR23<_C:YN]^DC]&Z1M-Y1(L="
^XMB(3.9,23,2,29787,0)="""DATA"",396.18,471,3,651,0)"
^XMB(3.9,23,2,29788,0)="M'1&HT/LD$HNU#^4%YU$>;WNEJB=<D61W%VWC55&K=U'(RM]%619^BCK5[;^@"
^XMB(3.9,23,2,29789,0)="""DATA"",396.18,471,3,652,0)"
^XMB(3.9,23,2,29790,0)="M&`9$^;;!?MG!?A&M9U>_39/59K=N&1->U-B)XGV#?U%5N(&:1W_LJ!@`_,V;"
^XMB(3.9,23,2,29791,0)="""DATA"",396.18,471,3,653,0)"
^XMB(3.9,23,2,29792,0)="M1@!$`<&>GEW]>C$/UW'Z=ION[H/C1;2)5O3U-(_N!)$SI=BFUYOH[L?BQ]RJ"
^XMB(3.9,23,2,29793,0)="""DATA"",396.18,471,3,654,0)"
^XMB(3.9,23,2,29794,0)="M_MK57Z?^6W_QR[_G%>""YT]6O$E7#:OU\;HF/;/&1`SP""GOG""HW,1_[E8\*_)"
^XMB(3.9,23,2,29795,0)="""DATA"",396.18,471,3,655,0)"
^XMB(3.9,23,2,29796,0)="MG:P]?CN/L[R4\=DFS:+RZ[LTNX_S<-/_U848/XA5+G`)3!2%A*<U3ND+2;GQ"
^XMB(3.9,23,2,29797,0)="""DATA"",396.18,471,3,656,0)"
^XMB(3.9,23,2,29798,0)="M@TS@WYBZ(-""FZ&)W=Q=N'W^L.D_1[\L?L_LXB=.D4O&W0?EE\CE>1\DJ@MBH"
^XMB(3.9,23,2,29799,0)="""DATA"",396.18,471,3,657,0)"
^XMB(3.9,23,2,29800,0)="M<`F,7#3FI/^\HB#JR]M`>%;3E0OAFU(7!'HZ/J]T+0X_)6D69Y7@'BJYW=Q0"
^XMB(3.9,23,2,29801,0)="""DATA"",396.18,471,3,658,0)"
^XMB(3.9,23,2,29802,0)="MBU-^7\9)$N>[""N(JC),.*8I(;,D:I\BLJ&$E)>%Q35342$I?X4DNQEU9CGF/"
^XMB(3.9,23,2,29803,0)="""DATA"",396.18,471,3,659,0)"
^XMB(3.9,23,2,29804,0)="M43[YR_#?8TO25!^B;1Y_2DOI7Z9Q;27.TRRKVS!;W8;;NB=<;7?;.*];='G1"
^XMB(3.9,23,2,29805,0)="""DATA"",396.18,471,3,660,0)"
^XMB(3.9,23,2,29806,0)="MH5/A$N@7:$431RD`PJF(`;:BI""O*XD)X]*<S(HCY=;@):9<IA39-6*,VYN24"
^XMB(3.9,23,2,29807,0)="""DATA"",396.18,471,3,661,0)"
^XMB(3.9,23,2,29808,0)="MXEMMJG>3ASS:)K7]ODHWC_<=$A4:@72#47A3(1<5JZ(C5H^1%)Y^<\*""!""_"""
^XMB(3.9,23,2,29809,0)="""DATA"",396.18,471,3,662,0)"
^XMB(3.9,23,2,29810,0)="M+$_C=65(HBQ>[VA$6OF_E,:-\2IDC-2&Y,.X,N/Q>KWI6N@*D=C[:IRB)^JB"
^XMB(3.9,23,2,29811,0)="""DATA"",396.18,471,3,663,0)"
^XMB(3.9,23,2,29812,0)="M%_G^,!9[7$%4?/S-2;_H1?96+Z@_J4+Z/HR-@'$0,#X""9HB`L3!,6QX(1,I/"
^XMB(3.9,23,2,29813,0)="""DATA"",396.18,471,3,664,0)"
^XMB(3.9,23,2,29814,0)="M#]0;L`^'E(!81QC*D+Q>O9HF5'5W1<_(A""(.6*2VZ0*X""X*7GI(#'8*@E3D4"
^XMB(3.9,23,2,29815,0)="""DATA"",396.18,471,3,665,0)"
^XMB(3.9,23,2,29816,0)="MH`,0NC""2@E8,0-C&2@KP%LQT93L%<%B*E=41H!TC:%A^E7T2H#T0NK9:`K@/"
^XMB(3.9,23,2,29817,0)="""DATA"",396.18,471,3,666,0)"
^XMB(3.9,23,2,29818,0)="MU[.TVQPLW#K,A7*`(Q""PLAX""--R,C4T1.B_<E#U+(Y21-.>'L0`)MTUEE>B("
^XMB(3.9,23,2,29819,0)="""DATA"",396.18,471,3,667,0)"
^XMB(3.9,23,2,29820,0)="MNE.@&%>)(U+K.*M&I'$Q(FW@7^_R/$WLXP]Q%M-QPPE4=`$7+<9K(KPM@R])"
^XMB(3.9,23,2,29821,0)="""DATA"",396.18,471,3,668,0)"
^XMB(3.9,23,2,29822,0)="MN0I2TJ+%.%""$=]2D'`4I:=%R+#GY'&Z..D^;F!'`).6ZBE1Y7$5(6@1)=(CV"
^XMB(3.9,23,2,29823,0)="""DATA"",396.18,471,3,669,0)"
^XMB(3.9,23,2,29824,0)="M.GW@6>$L;""<N!1K'4Q>N!-%(8B\D50`,%`Q0U#TU=0V2-O`$9.^@&`B4#`A("
^XMB(3.9,23,2,29825,0)="""DATA"",396.18,471,3,670,0)"
^XMB(3.9,23,2,29826,0)="M!#15-""L6=5'T75=)7X>D&S8#I4<H%H9J%C1(.O$Y4!BE!92$D@,=DB98%LMZ"
^XMB(3.9,23,2,29827,0)="""DATA"",396.18,471,3,671,0)"
^XMB(3.9,23,2,29828,0)="MJ%;P!DH&=$BZ43E0VD6Q8*M9T""!IPW^@K(]B0*V).B2=<090>(CB0&T,=$CJ"
^XMB(3.9,23,2,29829,0)="""DATA"",396.18,471,3,672,0)"
^XMB(3.9,23,2,29830,0)="M`0U0$M4/:`V5Y#5(BN$H4$RBO-,;/3#S$)?ID8S?;K]=;G=M`#Y)UO&-&:6?"
^XMB(3.9,23,2,29831,0)="""DATA"",396.18,471,3,673,0)"
^XMB(3.9,23,2,29832,0)="M?T&3Z@?[?5KBR$LD[0\,),(!:R0R.D`B/""6-1$:&$JF*J=V-;ZEUK#MP-2]="
^XMB(3.9,23,2,29833,0)="""DATA"",396.18,471,3,674,0)"
^XMB(3.9,23,2,29834,0)="MLN""K;9UOJY'P(V1S#!4;EIH-C<DMA^+FY2[@8@&*YZ$Z5@HT)K))%>""+""FF9"
^XMB(3.9,23,2,29835,0)="""DATA"",396.18,471,3,675,0)"
^XMB(3.9,23,2,29836,0)="M^5R<5FN>U5D(JH'3&Q:KO'KU4_,A\^C3;A-NR5FZCDC[O(3K#Z""K#E*%2(/C"
^XMB(3.9,23,2,29837,0)="""DATA"",396.18,471,3,676,0)"
^XMB(3.9,23,2,29838,0)="M,]KBOQ<36E6O4@[*&[`7_[6+\X(=UB'Z2""USI'5""0('5!K#6.?@CZYCU_/PV"
^XMB(3.9,23,2,29839,0)="""DATA"",396.18,471,3,677,0)"
^XMB(3.9,23,2,29840,0)="M(B_KJ:?KB`EV'>5AO(G6_WQ)-FQJ9)U&&4G2G*PH81;@AA0D*V8]RZ%2D4LL"
^XMB(3.9,23,2,29841,0)="""DATA"",396.18,471,3,678,0)"
^XMB(3.9,23,2,29842,0)="MOY*7$]IDI$;(XO:7/S(B2=F""-^EFDWXIJ,8=&;,?,6T']KQ;EGR)DW7ZY?B("
^XMB(3.9,23,2,29843,0)="""DATA"",396.18,471,3,679,0)"
^XMB(3.9,23,2,29844,0)="M_$#.:&3W-\OY._UZ9!^34D'HF&YU2^ZK(E0T=Y@:A<F:1`GUT`7P-OIC5]1F"
^XMB(3.9,23,2,29845,0)="""DATA"",396.18,471,3,680,0)"
^XMB(3.9,23,2,29846,0)="M'>:A0,HY)H402;:[OJ-5RU,2KE;1/<6RV9189$7=8[),*T+AFLJ%5I6&!!5O"
^XMB(3.9,23,2,29847,0)="""DATA"",396.18,471,3,681,0)"
^XMB(3.9,23,2,29848,0)="M&25\'X4YR?+H/B/63\0Y/N+;DRGC/[@/5=U5NEUG]._G./I""^/=%6,X;]4^%"
^XMB(3.9,23,2,29849,0)="""DATA"",396.18,471,3,682,0)"
^XMB(3.9,23,2,29850,0)="MFRNR3[;@0]HYVNM'\N%T/B/7N[QH\O`S%5Q(V3WJ3>VR1O9*7,OHH9@A./OI"
^XMB(3.9,23,2,29851,0)="""DATA"",396.18,471,3,683,0)"
^XMB(3.9,23,2,29852,0)="MAHJ8UJG@Z4N8%7+58&45;CP$GF7FC)Z""9R1UYPD%YC3$+RBZ%56'LC6_DN""<"
^XMB(3.9,23,2,29853,0)="""DATA"",396.18,471,3,684,0)"
^XMB(3.9,23,2,29854,0)="MIQ2<`PF.LSDUV<KPG%1F1Y\$K0#EUJPLY<HP]\V^L3H55?ZZG:;+8?\WM15G"
^XMB(3.9,23,2,29855,0)="""DATA"",396.18,471,3,685,0)"
^XMB(3.9,23,2,29856,0)="MY`WK/G<[:IZNZV[$<$<WZ3:JC$_.C%EILN[3;=ZU-XQ2K0_[Z85.`LY7ED""_"
^XMB(3.9,23,2,29857,0)="""DATA"",396.18,471,3,686,0)"
^XMB(3.9,23,2,29858,0)="M/V3?3!1BRW[;9MO+`/U)<N5X;>DT""E2'%WQT5I?4&X)Z^,#YP?(?P1LV*S+2"
^XMB(3.9,23,2,29859,0)="""DATA"",396.18,471,3,687,0)"
^XMB(3.9,23,2,29860,0)="M+5GLMI^B[6-C-U396<9QF05F01&BP,G1QRAC_ED]052%>A7;&,0__X+#7,B%"
^XMB(3.9,23,2,29861,0)="""DATA"",396.18,471,3,688,0)"
^XMB(3.9,23,2,29862,0)="M=,&JC+08Y37DGR)W+4N3]^%A;V`Y(F_@6II65,S;N%U'\P(L\3'=E9K<QG&W"
^XMB(3.9,23,2,29863,0)="""DATA"",396.18,471,3,689,0)"
^XMB(3.9,23,2,29864,0)="M]6L6WFW2<E!&%;@)R<1VN8CN4OOXG`TJ5-1Z/W\0B-/@+]+3L?R#""97],LS2"
^XMB(3.9,23,2,29865,0)="""DATA"",396.18,471,3,690,0)"
^XMB(3.9,23,2,29866,0)="MA*E[_G@?D?2&=MQ""[=4<-%BKGOKB1;>GUF\5Y61<=Q?[O)LMKJ;+TW-R>CDF"
^XMB(3.9,23,2,29867,0)="""DATA"",396.18,471,3,691,0)"
^XMB(3.9,23,2,29868,0)="MY[.ST^5T=OE/PHP(U[3]0'E\NIRT8-U&Z</-)Z>+V269S<GRX]6$S-Z0Q?OY"
^XMB(3.9,23,2,29869,0)="""DATA"",396.18,471,3,692,0)"
^XMB(3.9,23,2,29870,0)="MV\G\8[]P(^E^Z7^H/USTWEJ]MLX%\F'3C*`8C#HHW&N@`F>;*-S>4?JMB,""G"
^XMB(3.9,23,2,29871,0)="""DATA"",396.18,471,3,693,0)"
^XMB(3.9,23,2,29872,0)="MEM^=B^'[DH2>HQA]]G&\3WY/TB_)D7+<:;M(_DE/LIV.*""/##W!'O6B0O'JU"
^XMB(3.9,23,2,29873,0)="""DATA"",396.18,471,3,694,0)"
^XMB(3.9,23,2,29874,0)="M8LOO`""/3KLNS8%O3=`MY2?NH;3@""69!#<#0Z:XB$[Z<U5`G4CO8G2;Z-*?J0"
^XMB(3.9,23,2,29875,0)="""DATA"",396.18,471,3,695,0)"
^XMB(3.9,23,2,29876,0)="M>GHZ%J5-0P>RS)[4>CN[//](OK""!^J(<Z,89'5?3XM'Z""/`HD(MJDQ(2/>-;"
^XMB(3.9,23,2,29877,0)="""DATA"",396.18,471,3,696,0)"
^XMB(3.9,23,2,29878,0)="M:QO]E-Y'B6[1!90^@0;&S6>Y#7=WH?A<$ADX<&3@R/RW@PD,?/.XP$'%!9*E"
^XMB(3.9,23,2,29879,0)="""DATA"",396.18,471,3,697,0)"
^XMB(3.9,23,2,29880,0)="M+64/N^C9@I$T%-AOPA<WMRQI_(&NKZIJITAR(97*/U""GVL]EE-YOPNQ.]EZB"
^XMB(3.9,23,2,29881,0)="""DATA"",396.18,471,3,698,0)"
^XMB(3.9,23,2,29882,0)="M93:L9;9,&VQ4^.F!U>K,T9_085H6Y6WFGL]@]\8;OG4\2=C`#0@F$5Q*8UE/"
^XMB(3.9,23,2,29883,0)="""DATA"",396.18,471,3,699,0)"
^XMB(3.9,23,2,29884,0)="MHK0""%V7:FJOZD1S4&JE@F8&W""@,/O+!E+YSN""Z!;V9+G#OS<'NPA>YV$+*#:"
^XMB(3.9,23,2,29885,0)="""DATA"",396.18,471,3,700,0)"
^XMB(3.9,23,2,29886,0)="M<%??;QD);L7*G]%Q3O;J-]]2^?^DYC9M,WC>#[92?F_=SXFNG$Q@RHY]'EY'"
^XMB(3.9,23,2,29887,0)="""DATA"",396.18,471,3,701,0)"
^XMB(3.9,23,2,29888,0)="MF\""II2(:B0+`'<H!RLZK?&WK2B.,A5(G?(W9YBO!6^P^D]!;9X\JR&1K5)5B"
^XMB(3.9,23,2,29889,0)="""DATA"",396.18,471,3,702,0)"
^XMB(3.9,23,2,29890,0)="M_M>P.6S=:ZD-EHF`KPJFH_(UZ8PO_MK5@6,I=\!EP7'>5AY$N4;X]HR=ZCFY"
^XMB(3.9,23,2,29891,0)="""DATA"",396.18,471,3,703,0)"
^XMB(3.9,23,2,29892,0)="MQ7VTBF_B%0$L?Q73^7R67[ERNX2!ZF79`J**""S8/"")<9H8I\_]U5>K_;A'ET"
^XMB(3.9,23,2,29893,0)="""DATA"",396.18,471,3,704,0)"
^XMB(3.9,23,2,29894,0)="MEMY=I[_&^6T%5LQ;5FL#KM/7Z8-E`&N+*;1`-37,;V'K=("":.IQ+XTLVF::L"
^XMB(3.9,23,2,29895,0)="""DATA"",396.18,471,3,705,0)"
^XMB(3.9,23,2,29896,0)="M:)W'8FQ8SZNN=MMME.2;1VX^]1BPADS;`Q1-X=$/Y(@`&2^67H,HL=AJ*,FI"
^XMB(3.9,23,2,29897,0)="""DATA"",396.18,471,3,706,0)"
^XMB(3.9,23,2,29898,0)="M[4EJ%6]7N[LL9POHLB*/&""=Q'H<;<A<F<783T5?EA'5:3IVOXRP*,Y""]:LTJ"
^XMB(3.9,23,2,29899,0)="""DATA"",396.18,471,3,707,0)"
^XMB(3.9,23,2,29900,0)="M.+U@QNBOMV$Q'""\X3'=;.K[/8K;$CS(2Y?^2TW8.IWVZ+6;EZ?\K)2#Y-@KS"
^XMB(3.9,23,2,29901,0)="""DATA"",396.18,471,3,708,0)"
^XMB(3.9,23,2,29902,0)="M._HMPU-NDAI:J,LTB0I(R1!9(LY]*U6L.HB*)<M%FTHJ^:*I9O.%JW>/!IAC"
^XMB(3.9,23,2,29903,0)="""DATA"",396.18,471,3,709,0)"
^XMB(3.9,23,2,29904,0)="M[4)HRDL:BCV_FL]>GT\NVH0GU\_AQ&6+H/NKRKRR/.KL<C%9]C.UP5X(SZ;S"
^XMB(3.9,23,2,29905,0)="""DATA"",396.18,471,3,710,0)"
^XMB(3.9,23,2,29906,0)="ML_<7B^7IY=ED4>2!IY?3Y?3TG%R<7D[?3.@;EA1>,%J=E.U0R-CBJ,W>SQ<3"
^XMB(3.9,23,2,29907,0)="""DATA"",396.18,471,3,711,0)"
^XMB(3.9,23,2,29908,0)="MLIA2:GP=X/YG2N#]?#ZY7)+E?'*ZO*#?%@(!1T6@F^&S^`P?HGDFB[/Y](I)"
^XMB(3.9,23,2,29909,0)="""DATA"",396.18,471,3,712,0)"
^XMB(3.9,23,2,29910,0)="MC+62P`V7][9`*3:JB^I1!MPMIN,)F;QY,SE;+C3LJ6FJ^2VJMJ_L7C/M:-GD"
^XMB(3.9,23,2,29911,0)="""DATA"",396.18,471,3,713,0)"
^XMB(3.9,23,2,29912,0)="M!%9AA1G@6!B9LW`Z'D]9VU'M/YM=<.K3Q=F9>2`]$?1F'KP2^H2C<O""T1A5H"
^XMB(3.9,23,2,29913,0)="""DATA"",396.18,471,3,714,0)"
^XMB(3.9,23,2,29914,0)="M""($/.(CM'E.@BU,%E""\ZZR8[5JL,F+OQ<@`\!SLT"".(`(.($Q`A\.NQ4ABC]"
^XMB(3.9,23,2,29915,0)="""DATA"",396.18,471,3,715,0)"
^XMB(3.9,23,2,29916,0)="M%33$<CU^@`!+L>JNPF`""R""I9DN?R;(%CZ_FTY`,9`9EFT`@*Y^=?C!V^3)""0"
^XMB(3.9,23,2,29917,0)="""DATA"",396.18,471,3,716,0)"
^XMB(3.9,23,2,29918,0)="M-JK%68^Q]%6J(7F;(PV@].R""[8YK?7P3O(""F_JSVA:@J1KJB5Q9UEVOC,BU8"
^XMB(3.9,23,2,29919,0)="""DATA"",396.18,471,3,717,0)"
^XMB(3.9,23,2,29920,0)="M(U`NL*(2E"":I'%G6&:Y[3^QBTHW?PM2OLC""IA8U+*Y9DQ'M:+:?=&]N*DRJ6"
^XMB(3.9,23,2,29921,0)="""DATA"",396.18,471,3,718,0)"
^XMB(3.9,23,2,29922,0)="MU,`VYY!(AX3""3&-3YG_4XSJS@MWPSJPD','MA</YBCB>>DS3!A@2]N2CD78E"
^XMB(3.9,23,2,29923,0)="""DATA"",396.18,471,3,719,0)"
^XMB(3.9,23,2,29924,0)="M4U%`&(<4P_S;\#,=VH?;8EP;)S?I]BXLUW`_-DF`<@HXW9(5ZU%TL!1G7=!Z"
^XMB(3.9,23,2,29925,0)="""DATA"",396.18,471,3,720,0)"
^XMB(3.9,23,2,29926,0)="MS=@-'1YGM_62L>@AO(N3`N!8.F<,[[K79Y&$[%$U<2V;0R@[2*!.;.GS6CUL"
^XMB(3.9,23,2,29927,0)="""DATA"",396.18,471,3,721,0)"
^XMB(3.9,23,2,29928,0)="M0Q-L8-9-7D'2[L""O:#;;6:LDO&XK*KS6S),8)NY@`NY8@-9`R98G@MB9PB'1"
^XMB(3.9,23,2,29929,0)="""DATA"",396.18,471,3,722,0)"
^XMB(3.9,23,2,29930,0)="M-\97,J\WA-<\PM`N#`SX2%>.Q`.1-/N7]MUE?-@&X]8;3M_H*][9I05/.EE#"
^XMB(3.9,23,2,29931,0)="""DATA"",396.18,471,3,723,0)"
^XMB(3.9,23,2,29932,0)="MR/])854""P?!S8L).7^'XE+""XI@BK88JU`XXQ4FB9NL)JL3,""J:UEAV74B1ZV"
^XMB(3.9,23,2,29933,0)="""DATA"",396.18,471,3,724,0)"
^XMB(3.9,23,2,29934,0)="M@P;NT0&N1P?('NU*>%=M.L]+D$C9Z0-LIW>UG1Y@0=3**FP9];8?""*\#]>N1"
^XMB(3.9,23,2,29935,0)="""DATA"",396.18,471,3,725,0)"
^XMB(3.9,23,2,29936,0)="M4O$;'`V0`%/$9A:MDP)/!>.A.EDY.SLPL7..I88NMFKTY!`)ZZZQ)Q2HYXD!"
^XMB(3.9,23,2,29937,0)="""DATA"",396.18,471,3,726,0)"
^XMB(3.9,23,2,29938,0)="M3NKMH0J!\1H(R(L'@=I/!A/(`F=4%;I;7)^\T9]*""_?I#!*+ZNF,GXLQ?GV<"
^XMB(3.9,23,2,29939,0)="""DATA"",396.18,471,3,727,0)"
^XMB(3.9,23,2,29940,0)="M0V.<DN7^:HO:G""E44:]/O@#MJGCT!:P.#M*N#I%V-3""TJXZ#M:M#K%T-,';5"
^XMB(3.9,23,2,29941,0)="""DATA"",396.18,471,3,728,0)"
^XMB(3.9,23,2,29942,0)="M&JAUR;(T[P<8I;8LO6T=(;I9@+>MCJNWEK[26AJ=J*(QF""[68([T!C-`&,->"
^XMB(3.9,23,2,29943,0)="""DATA"",396.18,471,3,729,0)"
^XMB(3.9,23,2,29944,0)="MLTB!+#.3Z:)-YN%M^73JM9^F2\QFH#-Q0V.SZ5K&.*6[I.2&LSI1FK`S>AH&"
^XMB(3.9,23,2,29945,0)="""DATA"",396.18,471,3,730,0)"
^XMB(3.9,23,2,29946,0)="MB@-[0+/IXLRF*S>;]=)TZ""3K=J?8T=6&3:&3;73#9N'+5>FG.XI_DWYZ)).'"
^XMB(3.9,23,2,29947,0)="""DATA"",396.18,471,3,731,0)"
^XMB(3.9,23,2,29948,0)="M\([D[&CN:AE`1]4$S.Q$;N[A#\3JE8$.G^NFXQ0'$G%&7%(_*LS!UZ&H'(J["
^XMB(3.9,23,2,29949,0)="""DATA"",396.18,471,3,732,0)"
^XMB(3.9,23,2,29950,0)="M:.\1(+U'CQ-)%[81W=RQ$#`V`L;!FW[7-4H?>!KHVC[8*%/DH*!<%!0JJK1L"
^XMB(3.9,23,2,29951,0)="""DATA"",396.18,471,3,733,0)"
^XMB(3.9,23,2,29952,0)="MC5US-.]=S7L/?E\LKU:]4WM7_&%A:M?J8EVK#;E6E28*,*`FR*%<(^_JHKTK"
^XMB(3.9,23,2,29953,0)="""DATA"",396.18,471,3,734,0)"
^XMB(3.9,23,2,29954,0)="MW.U0?0JIU$A]U:JB1M<T#>LA&]:Q$`WKH)K,0T$Y9@WK81L6MI4H0XBT'4AS"
^XMB(3.9,23,2,29955,0)="""DATA"",396.18,471,3,735,0)"
^XMB(3.9,23,2,29956,0)="MI;4!&B,C6;BJS>(%YL&39XS3>,RY;D^:K6BW1PW""P=,(%SR-<&-.[@!<Z9BS"
^XMB(3.9,23,2,29957,0)="""DATA"",396.18,471,3,736,0)"
^XMB(3.9,23,2,29958,0)="M=W@A9LS),R""-&D0.9%'#4!\U.(A\BN,C8`(]C#LPB!I\HZAAB(P:?)0/1Z6&"
^XMB(3.9,23,2,29959,0)="""DATA"",396.18,471,3,737,0)"
^XMB(3.9,23,2,29960,0)="M<$,FVT+A\C5>7Y-CLC095UN7-QAJR@\4D<50\6ZDC#H,#PG5>""@?ZZ%<A(?R"
^XMB(3.9,23,2,29961,0)="""DATA"",396.18,471,3,738,0)"
^XMB(3.9,23,2,29962,0)="M4;X'!S4R\U`^VD.Y&`_EXWP*$FR$Q:;Q4"".#T&.(;=A`W[#N`-5D`0;*-LO8"
^XMB(3.9,23,2,29963,0)="""DATA"",396.18,471,3,739,0)"
^XMB(3.9,23,2,29964,0)="M\/50-&R`:%C8FB+-%-).:0V-QM)(0@]=:EKJ8Q6AAV^,TSCT:`^M;U:*5R<,"
^XMB(3.9,23,2,29965,0)="""DATA"",396.18,471,3,740,0)"
^XMB(3.9,23,2,29966,0)="MPX$';A+114XBVA8R\!B9!A[8243;P@8>(WW@X3J(@,%#P""#2'JY!IMHSF@7T"
^XMB(3.9,23,2,29967,0)="""DATA"",396.18,471,3,741,0)"
^XMB(3.9,23,2,29968,0)="M;%S@8:/2%38J76&CTA4V*EUA:](5MB9=86O2%;8B)>'8\G=<P""%,G1H=[:UV"
^XMB(3.9,23,2,29969,0)="""DATA"",396.18,471,3,742,0)"
^XMB(3.9,23,2,29970,0)="M+]X`Z5Y<!^%>4&-6VT5!F8ULO0'6O;@.QKW@AJPV+A<!:;8,G\;!./C(`>B="
^XMB(3.9,23,2,29971,0)="""DATA"",396.18,471,3,743,0)"
^XMB(3.9,23,2,29972,0)="M$HD@LE$N+B;`*8!MUK0VNFDQV2@7&1(@-<#&8M,TK(V('$8Z+V^91PZ!,<Z]"
^XMB(3.9,23,2,29973,0)="""DATA"",396.18,471,3,744,0)"
^XMB(3.9,23,2,29974,0)="M)LJOZUMI:NK5Y0!@[.#A9GP\Y$2Y;>-BA]YU`YC8P<-.==@V,G;HL2#W6YH!"
^XMB(3.9,23,2,29975,0)="""DATA"",396.18,471,3,745,0)"
^XMB(3.9,23,2,29976,0)="MLZT;T*(2`?90.U'N#?3AAV<9A!^>?J*<&\WSSM'HU@F-`<5F?;V!=J;<LQ""3"
^XMB(3.9,23,2,29977,0)="""DATA"",396.18,471,3,746,0)"
^XMB(3.9,23,2,29978,0)="MX+:/`1J:64]TRO<)&O/I]&L_59<=!:RS<;:QW?0L8YQ[V<WF#I.&?GNK""6P["
^XMB(3.9,23,2,29979,0)="""DATA"",396.18,471,3,747,0)"
^XMB(3.9,23,2,29980,0)="M79SM=)&VTT':3MO4=KI8V^E@;:>MLIV%Z5#%W([BG:MXIU[F:'@'C42!;9VR"
^XMB(3.9,23,2,29981,0)="""DATA"",396.18,471,3,748,0)"
^XMB(3.9,23,2,29982,0)="M.>8*[!CC1""DP^TVN;A^SXJQ?MFA""A.!W9PZ.5[+#68$;""""5FK\)EF>*2;(\`"
^XMB(3.9,23,2,29983,0)="""DATA"",396.18,471,3,749,0)"
^XMB(3.9,23,2,29984,0)="ME1;(81T16M]?H_C3;<[VM"";%)8""8PMTM9[Q5<^!S*^K7KOJUHSS/J<&A`""J,"
^XMB(3.9,23,2,29985,0)="""DATA"",396.18,471,3,750,0)"
^XMB(3.9,23,2,29986,0)="MO6?K02!2R@-P1""&PR?=#:\F?9;-G)<$C<9ZBCF_#.-FGH8U;$JZ!84.J3_[1"
^XMB(3.9,23,2,29987,0)="""DATA"",396.18,471,3,751,0)"
^XMB(3.9,23,2,29988,0)="MU?4(V%W=KZ:ZH3$RP+2S7@3:9D;XZ/J""KS';AW87Y^VAW]4;V$G[.""?M(YTT"
^XMB(3.9,23,2,29989,0)="""DATA"",396.18,471,3,752,0)"
^XMB(3.9,23,2,29990,0)="M<H>%YYHZ:1_KI+$[+#QP+1>P/RJ`G]N6?/3@>R;)2W]D!&VT#<P/#'&C1T@^"
^XMB(3.9,23,2,29991,0)="""DATA"",396.18,471,3,753,0)"
^XMB(3.9,23,2,29992,0)="ME+W@@PZC6^<TQ_!YZ(U48EU*+8P4HQ/?P^\;,Y<5V&::^HX,ZQN8U7=D6M_`"
^XMB(3.9,23,2,29993,0)="""DATA"",396.18,471,3,754,0)"
^XMB(3.9,23,2,29994,0)="M2#<0]6WZH2;\,]]TX3O&.,W'1/5]AF=A<0]QO2F\>@Q;VR'.V@YU30]=C2PW"
^XMB(3.9,23,2,29995,0)="""DATA"",396.18,471,3,755,0)"
^XMB(3.9,23,2,29996,0)="MMJ;;V;RA5C<D#,AL+6HWFZU976'K5E>@UHO8B!4R0UN;1ADZJ@Q)/S*Q36SP"
^XMB(3.9,23,2,29997,0)="""DATA"",396.18,471,3,756,0)"
^XMB(3.9,23,2,29998,0)="MT,AW#(V\P=`R@C::@ALZ1M!&JY&'\""HDWMN873&J""2>'TH`#I7<:Y5;H6X5!"
^XMB(3.9,23,2,29999,0)="""DATA"",396.18,471,3,757,0)"
^XMB(3.9,23,2,30000,0)="M9;R!5L?PQEE""J:Y':LGX>,D$&,D$*LDXAI+QT9()M))QM))IS)O&W7CF+LPU"
^XMB(3.9,23,2,30001,0)="""DATA"",396.18,471,3,758,0)"
^XMB(3.9,23,2,30002,0)="MQFGLPFATQB[?8]?BMFLIV""_8>>$6<'K8!9P^TGOYIMX+O8#3Q[HO7YO/&RGR"
^XMB(3.9,23,2,30003,0)="""DATA"",396.18,471,3,759,0)"
^XMB(3.9,23,2,30004,0)="M<H%Z#AU_*[$D@-(NN?'-M<\SQFFL?<N+]ER/""UCC<""MWY)<B]UE&[E+U3%<,"
^XMB(3.9,23,2,30005,0)="""DATA"",396.18,471,3,760,0)"
^XMB(3.9,23,2,30006,0)="M*ZY*UC`@TS?E@F'.X!D-'H=&P\&140`PLK!'CCB>Y+D/]`_LM=F2SJ%=XV:^"
^XMB(3.9,23,2,30007,0)="""DATA"",396.18,471,3,761,0)"
^XMB(3.9,23,2,30008,0)="M-]'WC7$:=X[J?NR&<O4;["";B?=F&-V7WF1\ANXGI^C;%_=D:!F3=9(3O)B.C"
^XMB(3.9,23,2,30009,0)="""DATA"",396.18,471,3,762,0)"
^XMB(3.9,23,2,30010,0)="M&'SD:%4YW)99(%ORW""&`+AO=>BY1:.W2BY&Y0@^-<1HK='W3!6FN*&^8:)[`"
^XMB(3.9,23,2,30011,0)="""DATA"",396.18,471,3,763,0)"
^XMB(3.9,23,2,30012,0)="MVFWAM-M""AAT!4KU-SRKP+6S8@=UMZ@6X#*4S!%3-\""9XB;)IU^28;T[R1\8X"
^XMB(3.9,23,2,30013,0)="""DATA"",396.18,471,3,764,0)"
^XMB(3.9,23,2,30014,0)="MC96M=P=].U+H/H5US<;IFBW5M68+]YOR6N_.)=>=L^#(EW3[>W8;17E&;M)M"
^XMB(3.9,23,2,30015,0)="""DATA"",396.18,471,3,765,0)"
^XMB(3.9,23,2,30016,0)="M>?3<JKA\?=5E\EC4'@>Y[\DW74+DVTC]=;#[GOP!4G]'""DMLE""<8&>5.1D9["
^XMB(3.9,23,2,30017,0)="""DATA"",396.18,471,3,766,0)"
^XMB(3.9,23,2,30018,0)="MFT9&F9:145@V""E#YC9X""P_W:1O5K7[<.Q3%?^>\'QCC-5_Y_&+<#U0]CN`_C"
^XMB(3.9,23,2,30019,0)="""DATA"",396.18,471,3,767,0)"
^XMB(3.9,23,2,30020,0)="MENSYR""5[#G*Y/[6HAOT-NV3/P2[W[[&@Z&_N0-(/`[F&!D9#@4""39RSS*X%R"
^XMB(3.9,23,2,30021,0)="""DATA"",396.18,471,3,768,0)"
^XMB(3.9,23,2,30022,0)="MF5?)*00AJ9$PL/XPAON(?.W=&UQ=N(P24)M:_R>2NO0/]D/1A?3CJ\A18C)T"
^XMB(3.9,23,2,30023,0)="""DATA"",396.18,471,3,769,0)"
^XMB(3.9,23,2,30024,0)="MR\P<\R6_0W.<Y@.IUF)<C*N35L#^&""""<NOI<EOZ1+(W\Q]4I+/1+>?)*Q""UG"
^XMB(3.9,23,2,30025,0)="""DATA"",396.18,471,3,770,0)"
^XMB(3.9,23,2,30026,0)="MT%0@7J]ICZ9-U5:D>`1:OP`WGQ\@Y_,=Y**[H6-H_0+L?+Z#77378T$S&@R,"
^XMB(3.9,23,2,30027,0)="""DATA"",396.18,471,3,771,0)"
^XMB(3.9,23,2,30028,0)="M?'E@Y,L#HQ2+-1C@=BXYW-9?H/,Z0K='[.T*?/RTKC6PS>KFF(&[9N#((VH<"
^XMB(3.9,23,2,30029,0)="""DATA"",396.18,471,3,772,0)"
^XMB(3.9,23,2,30030,0)="M2RLY7Y""<?JN]/1@@%D!4O?<$TU75$U*0IO`]1FAT>.XR\(T6;@N4NYWU:^JA"
^XMB(3.9,23,2,30031,0)="""DATA"",396.18,471,3,773,0)"
^XMB(3.9,23,2,30032,0)="M3B`>3B""^3B#]IL0(Q#,2R).I%^R:A[K5#H[YHMRA:XP3[9K'<?@I2;/.!EY>"
^XMB(3.9,23,2,30033,0)="""DATA"",396.18,471,3,774,0)"
^XMB(3.9,23,2,30034,0)="MO-B02S&Y623A1H;-:FEG-@'""_+RF0+D&`-:0C7""W!9Z.S\FDO))+>4ML%:HI"
^XMB(3.9,23,2,30035,0)="""DATA"",396.18,471,3,775,0)"
^XMB(3.9,23,2,30036,0)="MSV1WT#<%`G?6P_?^]8N)R<2&@?$#=_]""T1GZ%]81#AJZ_JY6H..C_OT][35%"
^XMB(3.9,23,2,30037,0)="""DATA"",396.18,471,3,776,0)"
^XMB(3.9,23,2,30038,0)="M_1L(+/6M;P6AZLL/(,7.?6CEE7-)F=8A[-_5:G<?5DF><)7'G^FK2,8;O%!W"
^XMB(3.9,23,2,30039,0)="""DATA"",396.18,471,3,777,0)"
^XMB(3.9,23,2,30040,0)="M9,3@.(TRCH^20;++=I2)=1AO'CNL_$O-""D4*7L\V?@!A!>;JUF!OQM/3MY>S"
^XMB(3.9,23,2,30041,0)="""DATA"",396.18,471,3,778,0)"
^XMB(3.9,23,2,30042,0)="MQ92[U<D%KN'J7P33O9#CFMUPT;]7@T#4^K^I8#HW;RW?34AU,QQA5X6=G;V_"
^XMB(3.9,23,2,30043,0)="""DATA"",396.18,471,3,779,0)"
^XMB(3.9,23,2,30044,0)="M.JUNGCH]6TX_3)?3R4*\-,X6[WCK,RI<1*7DZ.WD<C*G)'OT2S:%:],LQ+5I"
^XMB(3.9,23,2,30045,0)="""DATA"",396.18,471,3,780,0)"
^XMB(3.9,23,2,30046,0)="M%:BKNZ%,R=3RW71!QM/%Z>OI^73Y\>6""3""^NJ%!0@H(Y4-]75I7Q#N)Z/EF\"
^XMB(3.9,23,2,30047,0)="""DATA"",396.18,471,3,781,0)"
^XMB(3.9,23,2,30048,0)="M/U].+]^27V?S?Q/AVC^8"".(BM8'T&C,E/S.J8O/VLC>$Z'K4)(RA2)_.)TS!"
^XMB(3.9,23,2,30049,0)="""DATA"",396.18,471,3,782,0)"
^XMB(3.9,23,2,30050,0)="MY[V[YCB-?[]X3]D8GT[//\(*KS)`H.YQQ[1WU'5IWIKD[-UL+N?'MDR:D2MK"
^XMB(3.9,23,2,30051,0)="""DATA"",396.18,471,3,783,0)"
^XMB(3.9,23,2,30052,0)="M'\;9XMWLZHKJF90W^P#>G,-XF_SW9'XV74RDO#D'\':852&+J]E\*6]1=W_."
^XMB(3.9,23,2,30053,0)="""DATA"",396.18,471,3,784,0)"
^XMB(3.9,23,2,30054,0)="M?/\PSN:3,W8!(^V9,NYX""D9R.\RND>7\],/D7*5PWO[,.8/#F'LSF8P5K/'H"
^XMB(3.9,23,2,30055,0)="""DATA"",396.18,471,3,785,0)"
^XMB(3.9,23,2,30056,0)="MC>06',;:ZU/JR!12""PY@;708:V-JVA8JWD8'\#8\4-UFT_/)4L7<\`#F#NRI"
^XMB(3.9,23,2,30057,0)="""DATA"",396.18,471,3,786,0)"
^XMB(3.9,23,2,30058,0)="M;^>SV86*-]_4O0?'M&M-%N9-6%^66OAYSHO72/7DG3W):R]*==0L=$>C7C/"""
^XMB(3.9,23,2,30059,0)="""DATA"",396.18,471,3,787,0)"
^XMB(3.9,23,2,30060,0)="M$N@\S3VIOKC557T+JG2(RD<EF>YB4TMQ]VD_IB_?K<1I+_""I*_+.1N%@TIU?"
^XMB(3.9,23,2,30061,0)="""DATA"",396.18,471,3,788,0)"
^XMB(3.9,23,2,30062,0)="MI]DPP$J<8`I@!H5M-D)V<R4-FC+Y+:=""$(.'=0Q@70-8SP#6-X`=&L"".#&`#"
^XMB(3.9,23,2,30063,0)="""DATA"",396.18,471,3,789,0)"
^XMB(3.9,23,2,30064,0)="M/""QUC&A8'ZR;F""X*@!L$!0VH[R4U4%-!,P['X3P!#O<)<'A/@,-_`AS#)\`Q"
^XMB(3.9,23,2,30065,0)="""DATA"",396.18,471,3,790,0)"
^XMB(3.9,23,2,30066,0)="M>@(<P>$XG,'A./R]9%IZWC:Q:E""TS*F/C`KS]A].TU0>X=S29!U__N5H$7]*"
^XMB(3.9,23,2,30067,0)="""DATA"",396.18,471,3,791,0)"
^XMB(3.9,23,2,30068,0)="MV$6=89+7Z=S^/=10:H6_JQK*<G0M1O^NWT&OK'5R5""2CY3>Z\NY4RS)%R5PX"
^XMB(3.9,23,2,30069,0)="""DATA"",396.18,471,3,792,0)"
^XMB(3.9,23,2,30070,0)="M=+EI(?.^PIU;H@=W%1!%J]E:%)X&A>/+`:JDC!R!=2*5CW3=I$D&7G+L1^<Z"
^XMB(3.9,23,2,30071,0)="""DATA"",396.18,471,3,793,0)"
^XMB(3.9,23,2,30072,0)="M%6[>L&%AVM&_BV@]N_IM'OVQBS+ZJDA5OGI%V.-[LFT>KXJ#0=9E4A.#OII["
^XMB(3.9,23,2,30073,0)="""DATA"",396.18,471,3,794,0)"
^XMB(3.9,23,2,30074,0)="M@>[NKC.C_/*(ZXADNVW$%DC$R6JS6T<D9(P4Y[#,[N.DN`WWASJ>;+\<+6\C"
^XMB(3.9,23,2,30075,0)="""DATA"",396.18,471,3,795,0)"
^XMB(3.9,23,2,30076,0)="M\O(B3!BV9;6:(GM)=GF\B?-'<I/NDC6A_U59^9>S^V(IW$MR78B=A'GQ_#JE"
^XMB(3.9,23,2,30077,0)="""DATA"",396.18,471,3,796,0)"
^XMB(3.9,23,2,30078,0)="MO^[J9'VVVD910J@*,\YV&94""Y2Q<KT6N.DLXZNHU5]N4\W.@K$^T8F0(HG:B"
^XMB(3.9,23,2,30079,0)="""DATA"",396.18,471,3,797,0)"
^XMB(3.9,23,2,30080,0)="MATPHF?3Q+DKRSKJCZ@+K`?V(9\?PI^C:MFQ;3W]148W4M@/MGAX0*3_UV.YT"
^XMB(3.9,23,2,30081,0)="""DATA"",396.18,471,3,798,0)"
^XMB(3.9,23,2,30082,0)="M+NI`L8$Q<4%1/`'J#0ZT'B[A""YQ(5D?1*EG4^T;2&>!B'HXB=+1'IS%4`UN!"
^XMB(3.9,23,2,30083,0)="""DATA"",396.18,471,3,799,0)"
^XMB(3.9,23,2,30084,0)="MJIJXM>VAA2`(')\&\8XZB8VBZU[WE:O@;#E<4X$1FJI*:JB:`DVK/_Z-2<97"
^XMB(3.9,23,2,30085,0)="""DATA"",396.18,471,3,800,0)"
^XMB(3.9,23,2,30086,0)="MGK\[F]=WI7-UUH/JERXR\J.1;M5=474'M_*NA-7(Q3&Y1+6`QU4EP)UD/&`X"
^XMB(3.9,23,2,30087,0)="""DATA"",396.18,471,3,801,0)"
^XMB(3.9,23,2,30088,0)="M#2#!'9%/(K_^$<6#OH*IH!J62O.NU$'U^8^U\3M!VS[E+=$2D\;MCX(MFE1X"
^XMB(3.9,23,2,30089,0)="""DATA"",396.18,471,3,802,0)"
^XMB(3.9,23,2,30090,0)="MS@""O?,Y`;^\4#=ZW/UI(A6KPYE.N&D.#KC4T,#DX6ZRNHJT[L52PLFI\`P/*"
^XMB(3.9,23,2,30091,0)="""DATA"",396.18,471,3,803,0)"
^XMB(3.9,23,2,30092,0)="MFBM$""FR:!K!1?3,P:(#@:9MPC_[7=$!):O*KQC-2,_C<DP]1@ZXWB8Q\XU\Y"
^XMB(3.9,23,2,30093,0)="""DATA"",396.18,471,3,804,0)"
^XMB(3.9,23,2,30094,0)="MQMC?K?V'1BHRT[J?*7QN753_0-HOS%+6IW-U7]U%O7K5)45;8#.T4)3VCT;D"
^XMB(3.9,23,2,30095,0)="""DATA"",396.18,471,3,805,0)"
^XMB(3.9,23,2,30096,0)="MGKGV6`>X/:F7.WEV<L].[MD,/CNY9R?W_\[)?4OG)>RN!4HTV=X;%=+!-QVL"
^XMB(3.9,23,2,30097,0)="""DATA"",396.18,471,3,806,0)"
^XMB(3.9,23,2,30098,0)="M\ND:""=L8IJ1YT4""Z)9B_V/XO,'KG&W(>Y?%6.5SF3[21!Q(#T^S_`)_]5^:R"
^XMB(3.9,23,2,30099,0)="""DATA"",396.18,471,3,807,0)"
^XMB(3.9,23,2,30100,0)="MY?8OEV6!?%>!#[1[TO9WS/+B_PGYWUIK3K!*@\B;#M!Y4[6%_NIS!FI?_)\5"
^XMB(3.9,23,2,30101,0)="""DATA"",396.18,471,3,808,0)"
^XMB(3.9,23,2,30102,0)="M$?'Z;-[PTH1=Y^0H4Q-DI$7/.O0\R?7G3W+M;3'YH;\YHN?.\MQ9_D]T%HG&"
^XMB(3.9,23,2,30103,0)="""DATA"",396.18,471,3,809,0)"
^XMB(3.9,23,2,30104,0)="M*Y6&""S)U""C;+;Z,M@G&38(\+;;3L8GEX.N4SX9`*J5Y/];?[^MZM^W+'^-]!"
^XMB(3.9,23,2,30105,0)="""DATA"",396.18,471,3,810,0)"
^XMB(3.9,23,2,30106,0)="MKNV!BY&<=[CD#F),+D[/0)S>(>+,'E>W<9AOXY6.<=3`PW]*B>['FURHOH%0"
^XMB(3.9,23,2,30107,0)="""DATA"",396.18,471,3,811,0)"
^XMB(3.9,23,2,30108,0)="M?:#S8Z7[39G\9BKVK4U#8VS?)Y%^!MW!AQ@.?H@?N*CE:@,PXP*@0]ES%<V."
^XMB(3.9,23,2,30109,0)="""DATA"",396.18,471,3,812,0)"
^XMB(3.9,23,2,30110,0)="M+$[0HM`/=!WDD7!_F@L'#T8AF4IT.E5SGTJN""GT]>5;79W7]:ZKKUUG&S98_"
^XMB(3.9,23,2,30111,0)="""DATA"",396.18,471,3,813,0)"
^XMB(3.9,23,2,30112,0)="MLH7H/S4?1I;,HT_%(<1GZ3HB[;LFYW(>9OE\EYRT5]\]Q/GLWQ2]U=<YMCY^"
^XMB(3.9,23,2,30113,0)="""DATA"",396.18,471,3,814,0)"
^XMB(3.9,23,2,30114,0)="M6J[]7Y>'+M+WV!T-W2T'S1:&+V'6;F-HMB]<3,:44A^;""V/K8;J+MI\H9W%2"
^XMB(3.9,23,2,30115,0)="""DATA"",396.18,471,3,815,0)"
^XMB(3.9,23,2,30116,0)="M[V&0LFX)VP`H60DHM$D""0;:0X0E8FL,T^YUM78@>V$81+%<#+5>7LZ7(6;.I"
^XMB(3.9,23,2,30117,0)="""DATA"",396.18,471,3,816,0)"
^XMB(3.9,23,2,30118,0)="M@YV&U.X?$;=,L%T3MQ%I=Q7GX?6Q9.LPVW%<;1+9T?_RK[C=0[O%HSR_D_++"
^XMB(3.9,23,2,30119,0)="""DATA"",396.18,471,3,817,0)"
^XMB(3.9,23,2,30120,0)="M+K=F9W.W>SZ>KEV*+V5G0^_F:91?I?LF#'(L$HKM2T22Z#.5:Y@Q0\+.(`]+"
^XMB(3.9,23,2,30121,0)="""DATA"",396.18,471,3,818,0)"
^XMB(3.9,23,2,30122,0)="M8KV=*HW+_%]02P,$%``""``@`6U`?-13=Z(M[#0```U@```\```!%87)?,3$S"
^XMB(3.9,23,2,30123,0)="""DATA"",396.18,471,3,819,0)"
^XMB(3.9,23,2,30124,0)="M+G!N;""YR97""U7.N/W+81_W[`_0\""C`))8>,DZAVX#K02=Y>(7M'C+N?""*!(D"
^XMB(3.9,23,2,30125,0)="""DATA"",396.18,471,3,820,0)"
^XMB(3.9,23,2,30126,0)="M*`S4==""F0/_\<JC'2BN1.^1=[XN]NQ(YG/G-DT.F55'3LDTZ5I564F86?(+_"
^XMB(3.9,23,2,30127,0)="""DATA"",396.18,471,3,821,0)"
^XMB(3.9,23,2,30128,0)="MTY^2@I7B^_L[FC16QEJ:M/3^[B^(O_N[]^^KOJO[KCH>/WRP'AZLNJK[VCI6"
^XMB(3.9,23,2,30129,0)="""DATA"",396.18,471,3,822,0)"
^XMB(3.9,23,2,30130,0)="M36']E8_WM_KG?_[V#_+I^LGW[UF9T7+\].8-/%K\]N6K;\.?\^;-^%U:/Q7-"
^XMB(3.9,23,2,30131,0)="""DATA"",396.18,471,3,823,0)"
^XMB(3.9,23,2,30132,0)="MS[]^_GKZU]?__#[\ZBI_)?S7^[N&/C+Z9%5'JZ`92Y/<:FA:-5FK6)B,1C)3"
^XMB(3.9,23,2,30133,0)="""DATA"",396.18,471,3,824,0)"
^XMB(3.9,23,2,30134,0)="M2'_]_(<_37+U%5#UYY?]:1+P_OWZJP\?-`9PMP.X6@/\WUE0\CEOTR.#0/KN"
^XMB(3.9,23,2,30135,0)="""DATA"",396.18,471,3,825,0)"
^XMB(3.9,23,2,30136,0)="MR')J/27M=]:XT-U',6N6@?`*6M83;:AR-A>UI+4>I%51\)]A&?#J\+`G7KQZ"
^XMB(3.9,23,2,30137,0)="""DATA"",396.18,471,3,826,0)"
^XMB(3.9,23,2,30138,0)="M>&=PKI""4:_N@B4E)<V>KBGM**Q[=/#F21XO*\=^\02QD?'(B57Q$4?F)/V-="
^XMB(3.9,23,2,30139,0)="""DATA"",396.18,471,3,827,0)"
^XMB(3.9,23,2,30140,0)="M86%M,N[O)NZ?6=M5S?-&L77E""LQFK=6=N12M9!H63,BY:FO6)3G[.!C0JK':"
^XMB(3.9,23,2,30141,0)="""DATA"",396.18,471,3,828,0)"
^XMB(3.9,23,2,30142,0)="MOCG1YOG[?6E+1+%K&QU':AR]%22<D!/8]D61#%0E>7Y-62ML^T`;HVO(!""O("
^XMB(3.9,23,2,30143,0)="""DATA"",396.18,471,3,829,0)"
^XMB(3.9,23,2,30144,0)="M..$6^'M,<3%RWKPBX6/7)'V16%T%/UK\30G[7`WV!5CN19RL[KFF;ZV\2B^."
^XMB(3.9,23,2,30145,0)="""DATA"",396.18,471,3,830,0)"
^XMB(3.9,23,2,30146,0)="M,$LZ^DW[[84\%=,B'-.(/M.(E&DEK>H\:0L)KX@.U'P$LZZ0#&QK64>7I$AL"
^XMB(3.9,23,2,30147,0)="""DATA"",396.18,471,3,831,0)"
^XMB(3.9,23,2,30148,0)="M'+#'TIT@X.-S(RT0T?4%5ZV""P_E4)F4G67&`FD7(""Z#((YRTXV%-<BJKEK,8"
^XMB(3.9,23,2,30149,0)="""DATA"",396.18,471,3,832,0)"
^XMB(3.9,23,2,30150,0)="M!`WSJ.3LHJ8`OP=&`R`$P\YSS/P13Z#))?8(T79&YD!N0Y,.?(#U#2O3O,]8"
^XMB(3.9,23,2,30151,0)="""DATA"",396.18,471,3,833,0)"
^XMB(3.9,23,2,30152,0)="M>9H,T+>*91`;O0QR8=2X&""[GCI/1L5'H'4LOA*P62-""SN`MFB?'W!W3Q`@:Z"
^XMB(3.9,23,2,30153,0)="""DATA"",396.18,471,3,834,0)"
^XMB(3.9,23,2,30154,0)="M*U"":?3=Y)5:""4U^<<]N^([-ZK""Q9U[<R7^'K:+""KK<%`V&SQ%N3(`A4#'?;&"
^XMB(3.9,23,2,30155,0)="""DATA"",396.18,471,3,835,0)"
^XMB(3.9,23,2,30156,0)="MM8\C<UF4;2=78,]@""N'\EG/PF*MO&BJ=!!P<%D7>A$M0NY0U:5\`_>F@?GPQ"
^XMB(3.9,23,2,30157,0)="""DATA"",396.18,471,3,836,0)"
^XMB(3.9,23,2,30158,0)="MM%/!RD/""*C:`52R%%21K=<)*V?IC'5AYGW`:[""\T>.++(HLP$*PP>DM\PIHD"
^XMB(3.9,23,2,30159,0)="""DATA"",396.18,471,3,837,0)"
^XMB(3.9,23,2,30160,0)="MV$0:M*M@8HSK8-Q;R'15QCJX3/#URR]?#U__""\(Y-O3'GI;I\Y;VZ2FM,<'?"
^XMB(3.9,23,2,30161,0)="""DATA"",396.18,471,3,838,0)"
^XMB(3.9,23,2,30162,0)="M9GTC8<?T$#)X,XG>Y.';(VTZ=JH@_,W8QX_<,[0RH^;JA'!.B$1?H$1?8`*."
^XMB(3.9,23,2,30163,0)="""DATA"",396.18,471,3,839,0)"
^XMB(3.9,23,2,30164,0)="MT72-2WN8UW43*9Z65!U[""96-/!U;;S1G`9+M8`X.'9X!.KP5.I8I$G\6PI*\"
^XMB(3.9,23,2,30165,0)="""DATA"",396.18,471,3,840,0)"
^XMB(3.9,23,2,30166,0)="MDF+""T\)$K.WH/&]5D1`>.:?'#BSE_=V[\>\VE^>7Y5!S?)R\MO1QWBU9==-5"
^XMB(3.9,23,2,30167,0)="""DATA"",396.18,471,3,841,0)"
^XMB(3.9,23,2,30168,0)="MJF`6;8%!U#`C>J-Y2IB9N''/7\L(-+IAI_.5D+!24AL$)S""1DF\@)5^/K[Y:"
^XMB(3.9,23,2,30169,0)="""DATA"",396.18,471,3,842,0)"
^XMB(3.9,23,2,30170,0)="M2IJCN4HIN4AC$!D8@T@9G&2L3<\)SU)D7(LT[`&Q]>U!<*D33]P(U_`+7V(B"
^XMB(3.9,23,2,30171,0)="""DATA"",396.18,471,3,843,0)"
^XMB(3.9,23,2,30172,0)="M0C7X0CV3'HZYWU:""H0F*@T$T6</#A^1$;R(XT,-<H$:PYFB1$L$F504OW,A>"
^XMB(3.9,23,2,30173,0)="""DATA"",396.18,471,3,844,0)"
^XMB(3.9,23,2,30174,0)="M!)H+\44O,SV16OJ1EO3GS'^S>F*;2#_4E'ZH)Z]8+?U8:S2B#&8(-I@Q2*Z\"
^XMB(3.9,23,2,30175,0)="""DATA"",396.18,471,3,845,0)"
^XMB(3.9,23,2,30176,0)="M&\E5TS>*O-W32;""(HY^WK_'JDA?8*O&R'*TN,0""9H`_RJI%-MT#FVWJP\)0@"
^XMB(3.9,23,2,30177,0)="""DATA"",396.18,471,3,846,0)"
^XMB(3.9,23,2,30178,0)="M(WJ!$5$Z2>(:F!A_O0$F5-C<GHC7Y1(R,@,^T9207GA(U&$,T0MC""%%*:(^T"
^XMB(3.9,23,2,30179,0)="""DATA"",396.18,471,3,847,0)"
^XMB(3.9,23,2,30180,0)="MW34;)#6^/.4])#G4@2#E/26LXZRL#CDM9#;!UTEQ""$&FO<118\,Q02\(+^'+"
^XMB(3.9,23,2,30181,0)="""DATA"",396.18,471,3,848,0)"
^XMB(3.9,23,2,30182,0)="MG59T$QR^GD<+U>#0BXY(H`1'@`6'9P`.3^DD6'FD*5`E8YNG@P@7BXAUJDM>"
^XMB(3.9,23,2,30183,0)="""DATA"",396.18,471,3,849,0)"
^XMB(3.9,23,2,30184,0)="MXAL(N:[*SVM:PPSG)&;R5H4QR9`>?H/""7:_8W[>V2/I<Y))=_))]Y))]*5:A"
^XMB(3.9,23,2,30185,0)="""DATA"",396.18,471,3,850,0)"
^XMB(3.9,23,2,30186,0)="MEAR@MM6'!R6H+%C.NJ1Y?FM5:=K70F62_""W4MA^X&6MH""ILNXDNKK%A++?I3"
^XMB(3.9,23,2,30187,0)="""DATA"",396.18,471,3,851,0)"
^XMB(3.9,23,2,30188,0)="M7;5]0[^7]1<$LA@,?G0]+,VBV#;LUK3L5+(C2[F]$6HTTJ_H<1@+;C=Z`NKS"
^XMB(3.9,23,2,30189,0)="""DATA"",396.18,471,3,852,0)"
^XMB(3.9,23,2,30190,0)="M<RN:`J""OZ:HC`*N%T2=<%XRS#@`<9_UQ#5AG'<U%JT^A:%EZA(U\P9EV$3[("
^XMB(3.9,23,2,30191,0)="""DATA"",396.18,471,3,853,0)"
^XMB(3.9,23,2,30192,0)="M,;U6$)$_TJ*FW$CVBS84\1M_\H@;!@BK^[Q=#P#N^I??OR""W1$4D1-N:<5(`"
^XMB(3.9,23,2,30193,0)="""DATA"",396.18,471,3,854,0)"
^XMB(3.9,23,2,30194,0)="ME/R?]7`.?F-2L/&05U7&/15MV^NEB:W:A^47\/Z7+^>_(\<'(9XI6)+UN""!K"
^XMB(3.9,23,2,30195,0)="""DATA"",396.18,471,3,855,0)"
^XMB(3.9,23,2,30196,0)="M5J9GVB('`O$_[0P$WKFN^C)K=7UT.(]HI>>D/,EZB_1\J7L9%6I;&V\*#/T3"
^XMB(3.9,23,2,30197,0)="""DATA"",396.18,471,3,856,0)"
^XMB(3.9,23,2,30198,0)="M;*?6/#S(H%GCD+0T9R7%S^%=YCCM[5]XZ#EV77)@X,97!C.CH/.L&_9GS]R"""
^XMB(3.9,23,2,30199,0)="""DATA"",396.18,471,3,857,0)"
^XMB(3.9,23,2,30200,0)="M\@@YS665*C_0<>*>=JH7^)*.QN!2QA`[C;&AG]^9;N:%*'"".;.`OL>86-P)D"
^XMB(3.9,23,2,30201,0)="""DATA"",396.18,471,3,858,0)"
^XMB(3.9,23,2,30202,0)="M8+]=R6;.A&.0@O]U'ESQ63TQKDPQ<VIP-3)9?W?Q-,(>+39T8Y,^ED@FPW@E"
^XMB(3.9,23,2,30203,0)="""DATA"",396.18,471,3,859,0)"
^XMB(3.9,23,2,30204,0)="M0Q',&T4N._.]0(B1B1#C5Q!BC!:B8)6I$+&%(S\T,""87,/-`HZ,-Q%(\EA$1"
^XMB(3.9,23,2,30205,0)="""DATA"",396.18,471,3,860,0)"
^XMB(3.9,23,2,30206,0)="M55,DN<R.A#IV1+]9*PPE&`QE!B8DLA_L5S$UX5@DXJES)NV6#$V*&R&91VYY"
^XMB(3.9,23,2,30207,0)="""DATA"",396.18,471,3,861,0)"
^XMB(3.9,23,2,30208,0)="MP""<=VZ2T%:X,),UHD<B&-]D(#%>V\-8V2:A7G""53G^/0D3:.O<V93:KJH:PO"
^XMB(3.9,23,2,30209,0)="""DATA"",396.18,471,3,862,0)"
^XMB(3.9,23,2,30210,0)="M/Y2UY(>>[`?SG;\=FFXBS#$1DXM#F&LRMH=&F&<R?*""%,+WM&A+C$!8C#;#!"
^XMB(3.9,23,2,30211,0)="""DATA"",396.18,471,3,863,0)"
^XMB(3.9,23,2,30212,0)="MSB.\(ZI7PP*K4E3HBFIP>]P,UU7^7$NK=%H;CP&V)@,TE7UQX.X*^G8$!3R%"
^XMB(3.9,23,2,30213,0)="""DATA"",396.18,471,3,864,0)"
^XMB(3.9,23,2,30214,0)="M$%YBLJ3K6D""$+W_$BL%G-5J/CN6_P<Z)+\@1KHXC@4?Q)4NM@A:')BFE0;36"
^XMB(3.9,23,2,30215,0)="""DATA"",396.18,471,3,865,0)"
^XMB(3.9,23,2,30216,0)="M?DF(;.MV`XF!B6R9Y8E>Q[-%LW7@.3<GGR>YF4S!(@,=CBZNDQ5%=6#2D""K"""
^XMB(3.9,23,2,30217,0)="""DATA"",396.18,471,3,866,0)"
^XMB(3.9,23,2,30218,0)="M^<^974-(E1P&`?*@:E5VB=9E%WRWM2L+,B*IVXA?RPG$&L*(383AH(7AX(7A"
^XMB(3.9,23,2,30219,0)="""DATA"",396.18,471,3,867,0)"
^XMB(3.9,23,2,30220,0)="MZPK#QZET8.NK-+PSF52KX.%\Q;)6'<X&MHY&1TB-)K)8(MJM<FM+4K2Z/S+^"
^XMB(3.9,23,2,30221,0)="""DATA"",396.18,471,3,868,0)"
^XMB(3.9,23,2,30222,0)="M3""H\6'JN<MIV-.DJ<?AC5Z@$+51!_E:H,I$2?+,[D<7JD?M*:B0&TN:-B^<-"
^XMB(3.9,23,2,30223,0)="""DATA"",396.18,471,3,869,0)"
^XMB(3.9,23,2,30224,0)="MT>,-LE\_,#AO`^\L(@@H1>4L'0]171J8X""BL..Y%TZK,X.`5_,O$8S*MT#F1"
^XMB(3.9,23,2,30225,0)="""DATA"",396.18,471,3,870,0)"
^XMB(3.9,23,2,30226,0)="MX^JW-47>BG)1+UYN57*JN[XYP/]E)LJD<R_R]Z=M:$W!VEI]S4WOJNX[\D]&"
^XMB(3.9,23,2,30227,0)="""DATA"",396.18,471,3,871,0)"
^XMB(3.9,23,2,30228,0)="MA4FW>!3L4X%H/XU,^H.C<'^^&V<ZHM!DKFA_KF.2,J@LT.:16G7""P]OGEDEG"
^XMB(3.9,23,2,30229,0)="""DATA"",396.18,471,3,872,0)"
^XMB(3.9,23,2,30230,0)="M-LGKHGA_YO:'/L^M`X37*L;&^!!!++%\OIS9N6B=XH2%B^QWCPT*P_$J55H:"
^XMB(3.9,23,2,30231,0)="""DATA"",396.18,471,3,873,0)"
^XMB(3.9,23,2,30232,0)="MOX)E62ZTGPN;4XO9[HUU*L6N_F&>.);X@%A6?HQE-2''MC<]<N[K5'WB58%#"
^XMB(3.9,23,2,30233,0)="""DATA"",396.18,471,3,874,0)"
^XMB(3.9,23,2,30234,0)="M<4@E-NEMC%>5SX[RAQO%4838)/B.8VQ^'NL=[W#M&YGY_)P!U8-(%WGQO-?:"
^XMB(3.9,23,2,30235,0)="""DATA"",396.18,471,3,875,0)"
^XMB(3.9,23,2,30236,0)="MKG:D94>&;!M=FQ4'`3+:I@VKIZ,J8KJ5&E_59#V3/BO')E($N])?/.DO_A;U"
^XMB(3.9,23,2,30237,0)="""DATA"",396.18,471,3,876,0)"
^XMB(3.9,23,2,30238,0)="MSBO%3P.I&.`[-C&2KXN%I6.[1A-X6KK%G]=#OX-$OV-$O/\R]/MX]`<FZ`^0"
^XMB(3.9,23,2,30239,0)="""DATA"",396.18,471,3,877,0)"
^XMB(3.9,23,2,30240,0)="M7LP@G(U7P$-$0S&VH2XVZ)F*)2%J8K5=<H*[""3AQHI\.G&LQ1JXR2CTDI8%C"
^XMB(3.9,23,2,30241,0)="""DATA"",396.18,471,3,878,0)"
^XMB(3.9,23,2,30242,0)="MD`8X*TIY],JR/LD%M?,Y=*#R0$O^83X!/^^U2>\P""'3N@""`QMMP5#KT5%RH7"
^XMB(3.9,23,2,30243,0)="""DATA"",396.18,471,3,879,0)"
^XMB(3.9,23,2,30244,0)="M9_*EX5.HZM_QT/T[WJ5_Y\A_YT)474KBK8_%[G7K=#RWG""[D41#HH`ET!N[T"
^XMB(3.9,23,2,30245,0)="""DATA"",396.18,471,3,880,0)"
^XMB(3.9,23,2,30246,0)="M>3?@C4>:29^Q*J].+`4Q-LG\""2:WDK:M>'0-^<L3Z\Z33%7+<I3,)&A:R16M"
^XMB(3.9,23,2,30247,0)="""DATA"",396.18,471,3,881,0)"
^XMB(3.9,23,2,30248,0)="M/-(>+Q""`H_;B)'+.2M',)/@D,L\^Y:2JJ$.FS+Z!KOA#A\M8(KHB?2!QN)Z`"
^XMB(3.9,23,2,30249,0)="""DATA"",396.18,471,3,882,0)"
^XMB(3.9,23,2,30250,0)="M,[,JQ\W1I(`,L6JD;:57:K('D_E>A45#E_H^*7G+K:*<3ZXN8R#$E14NX4=A"
^XMB(3.9,23,2,30251,0)="""DATA"",396.18,471,3,883,0)"
^XMB(3.9,23,2,30252,0)="MY.[O*$]AJF=Q.\-\$<V[S1_V`HAQSK[EZKWHWU->\@#O&!V\'M<@CK]VM$E*"
^XMB(3.9,23,2,30253,0)="""DATA"",396.18,471,3,884,0)"
^XMB(3.9,23,2,30254,0)="M:SQ2GS];P[*D1=3A97SA!XB$V'2<0+:T:+LTY)'O^;@,(:(3:]J?NHAGYV@-"
^XMB(3.9,23,2,30255,0)="""DATA"",396.18,471,3,885,0)"
^XMB(3.9,23,2,30256,0)="M/*MY3H>_0JY.:$]KNC45T9]*'`MBA4B_.^O85(7U5#4_P/3""OXNN""_*NJ$IN"
^XMB(3.9,23,2,30257,0)="""DATA"",396.18,471,3,886,0)"
^XMB(3.9,23,2,30258,0)="MNVKN5ZML?VY\8`^/B]VF-.G;^6:<'1I8*9M?WI,AQM:X#X4_'LX^9]G..C>\"
^XMB(3.9,23,2,30259,0)="""DATA"",396.18,471,3,887,0)"
^XMB(3.9,23,2,30260,0)="MMFRL>0V1I*C5B:\$;6!_;N@.""4UUQU[K3D.A[4:I,#:^G=BVAZ5/7<K#Z-N["
^XMB(3.9,23,2,30261,0)="""DATA"",396.18,471,3,888,0)"
^XMB(3.9,23,2,30262,0)="M5\1SJ&&K)O_\[S^6(!82W@R^IXU7[^J!R;_<E/8P]^=.QPYNPL77FPP""\[I]"
^XMB(3.9,23,2,30263,0)="""DATA"",396.18,471,3,889,0)"
^XMB(3.9,23,2,30264,0)="M3L_<J3?<CZ+G""?3FN53Y;W%Q;S+7%'/N&G-].=EIZ]!W5EEU&!BZFH;('@S"""
^XMB(3.9,23,2,30265,0)="""DATA"",396.18,471,3,890,0)"
^XMB(3.9,23,2,30266,0)="MGLV;"")!8/5NM[ELG(4X.-#1IH0Q_8H^T!!=^/8W*81#OU@5STD!@<?L>-HKS"
^XMB(3.9,23,2,30267,0)="""DATA"",396.18,471,3,891,0)"
^XMB(3.9,23,2,30268,0)="MMU>RT2/DF2V$0""N+-5SIQ+AO37@:^L@ZN*!->J,?<N?#X+13X(XW;B7""8M<<"
^XMB(3.9,23,2,30269,0)="""DATA"",396.18,471,3,892,0)"
^XMB(3.9,23,2,30270,0)="MPYRZ1QZ_L4.?#]L>59-!T]T0=TG!%.#WKMQX>Q.7*F.)Y=<R2DNCXI34?,T7"
^XMB(3.9,23,2,30271,0)="""DATA"",396.18,471,3,893,0)"
^XMB(3.9,23,2,30272,0)="M-!0/<2C$^6.T*MG""BO%[MIZ]S?QA!@4J/=M@,?;^8N:48""I4RU9D(Y-FQS;("
^XMB(3.9,23,2,30273,0)="""DATA"",396.18,471,3,894,0)"
^XMB(3.9,23,2,30274,0)="M!,1+5E8-I7R1"";>0$4""'/E@%`7""ZW$.3UEPT;D<3?1O<[0M%&V881U>Y^$B9"
^XMB(3.9,23,2,30275,0)="""DATA"",396.18,471,3,895,0)"
^XMB(3.9,23,2,30276,0)="MKJ$575P+@;B*TT-JKD'333SK[73S955S-%00>OS8PS:M3%&%-OT/4$L!`A8+"
^XMB(3.9,23,2,30277,0)="""DATA"",396.18,471,3,896,0)"
^XMB(3.9,23,2,30278,0)="M%``""``@`6U`?-4:66]P]-0``6VT!``L``````````0`@`(""!`````$5A<E\Q"
^XMB(3.9,23,2,30279,0)="""DATA"",396.18,471,3,897,0)"
^XMB(3.9,23,2,30280,0)="M,3,N<&YL4$L!`A8+%``""``@`75`?-<\P=DJQ.P``5WD""``\``````````0`@"
^XMB(3.9,23,2,30281,0)="""DATA"",396.18,471,3,898,0)"
^XMB(3.9,23,2,30282,0)="M`(""!9C4``$5A<E\Q,3,N<&YL+F9R;5!+`0(6""Q0``@`(`%M0'S7Y2TMC!QX`"
^XMB(3.9,23,2,30283,0)="""DATA"",396.18,471,3,899,0)"
^XMB(3.9,23,2,30284,0)="M`++V```/``````````$`(`""`@41Q``!%87)?,3$S+G!N;""YC9&502P$""%@L4"
^XMB(3.9,23,2,30285,0)="""DATA"",396.18,471,3,900,0)"
^XMB(3.9,23,2,30286,0)="M``(`""`!;4!\U%-WHBWL-```#6```#P`````````!`""``@(%XCP``16%R7S$Q"
^XMB(3.9,23,2,30287,0)="""DATA"",396.18,471,3,901,0)"
^XMB(3.9,23,2,30288,0)="?,RYP;FPN<F5P4$L%!@`````$``0`\````""""=````````"
^XMB(3.9,23,2,30289,0)="""DATA"",396.18,471,3,902,0)"
^XMB(3.9,23,2,30290,0)="end"
^XMB(3.9,23,2,30291,0)="""DATA"",396.18,471,4)"
^XMB(3.9,23,2,30292,0)="9^3320632821"
^XMB(3.9,23,2,30293,0)="""DATA"",396.18,471,6)"
^XMB(3.9,23,2,30294,0)="1^646"
^XMB(3.9,23,2,30295,0)="""FIA"",396.17)"
^XMB(3.9,23,2,30296,0)="CAPRI TEMPLATES"
^XMB(3.9,23,2,30297,0)="""FIA"",396.17,0)"
^XMB(3.9,23,2,30298,0)="^DVB(396.17,"
^XMB(3.9,23,2,30299,0)="""FIA"",396.17,0,0)"
^XMB(3.9,23,2,30300,0)="396.17PI"
^XMB(3.9,23,2,30301,0)="""FIA"",396.17,0,1)"
^XMB(3.9,23,2,30302,0)="y^y^f^^^^n"
^XMB(3.9,23,2,30303,0)="""FIA"",396.17,0,10)"
^XMB(3.9,23,2,30304,0)=""
^XMB(3.9,23,2,30305,0)="""FIA"",396.17,0,11)"
^XMB(3.9,23,2,30306,0)=""
^XMB(3.9,23,2,30307,0)="""FIA"",396.17,0,""RLRO"")"
^XMB(3.9,23,2,30308,0)=""
^XMB(3.9,23,2,30309,0)="""FIA"",396.17,0,""VR"")"
^XMB(3.9,23,2,30310,0)="2.7^DVBA"
^XMB(3.9,23,2,30311,0)="""FIA"",396.17,396.17)"
^XMB(3.9,23,2,30312,0)="0"
^XMB(3.9,23,2,30313,0)="""FIA"",396.17,396.1714)"
^XMB(3.9,23,2,30314,0)="0"
^XMB(3.9,23,2,30315,0)="""FIA"",396.17,396.17144)"
^XMB(3.9,23,2,30316,0)="0"
^XMB(3.9,23,2,30317,0)="""FIA"",396.17,396.1715)"
^XMB(3.9,23,2,30318,0)="0"
^XMB(3.9,23,2,30319,0)="""FIA"",396.17,396.17153)"
^XMB(3.9,23,2,30320,0)="0"
^XMB(3.9,23,2,30321,0)="""FIA"",396.17,396.1718)"
^XMB(3.9,23,2,30322,0)="0"
^XMB(3.9,23,2,30323,0)="""FIA"",396.17,396.176)"
^XMB(3.9,23,2,30324,0)="0"
^XMB(3.9,23,2,30325,0)="""FIA"",396.17,396.178)"
^XMB(3.9,23,2,30326,0)="0"
^XMB(3.9,23,2,30327,0)="""FIA"",396.17,396.19)"
^XMB(3.9,23,2,30328,0)="0"
^XMB(3.9,23,2,30329,0)="""FIA"",396.17,396.191)"
^XMB(3.9,23,2,30330,0)="0"
^XMB(3.9,23,2,30331,0)="""FIA"",396.17,396.193)"
^XMB(3.9,23,2,30332,0)="0"
^XMB(3.9,23,2,30333,0)="""FIA"",396.18)"
^XMB(3.9,23,2,30334,0)="CAPRI TEMPLATE DEFINITIONS"
^XMB(3.9,23,2,30335,0)="""FIA"",396.18,0)"
^XMB(3.9,23,2,30336,0)="^DVB(396.18,"
^XMB(3.9,23,2,30337,0)="""FIA"",396.18,0,0)"
^XMB(3.9,23,2,30338,0)="396.18"
^XMB(3.9,23,2,30339,0)="""FIA"",396.18,0,1)"
^XMB(3.9,23,2,30340,0)="y^y^f^^n^PATCH113^y^o^n"
^XMB(3.9,23,2,30341,0)="""FIA"",396.18,0,10)"
^XMB(3.9,23,2,30342,0)=""
^XMB(3.9,23,2,30343,0)="""FIA"",396.18,0,11)"
^XMB(3.9,23,2,30344,0)=""
^XMB(3.9,23,2,30345,0)="""FIA"",396.18,0,""RLRO"")"
^XMB(3.9,23,2,30346,0)="^DIBT(1618,1)"
^XMB(3.9,23,2,30347,0)="""FIA"",396.18,0,""VR"")"
^XMB(3.9,23,2,30348,0)="2.7^DVBA"
^XMB(3.9,23,2,30349,0)="""FIA"",396.18,396.18)"
^XMB(3.9,23,2,30350,0)="0"
^XMB(3.9,23,2,30351,0)="""FIA"",396.18,396.181)"
^XMB(3.9,23,2,30352,0)="0"
^XMB(3.9,23,2,30353,0)="""FIA"",396.18,396.184)"
^XMB(3.9,23,2,30354,0)="0"
^XMB(3.9,23,2,30355,0)="""FIA"",396.4)"
^XMB(3.9,23,2,30356,0)="2507 EXAM"
^XMB(3.9,23,2,30357,0)="""FIA"",396.4,0)"
^XMB(3.9,23,2,30358,0)="^DVB(396.4,"
^XMB(3.9,23,2,30359,0)="""FIA"",396.4,0,0)"
^XMB(3.9,23,2,30360,0)="396.4I"
^XMB(3.9,23,2,30361,0)="""FIA"",396.4,0,1)"
^XMB(3.9,23,2,30362,0)="y^y^f^^^^n"
^XMB(3.9,23,2,30363,0)="""FIA"",396.4,0,10)"
^XMB(3.9,23,2,30364,0)=""
^XMB(3.9,23,2,30365,0)="""FIA"",396.4,0,11)"
^XMB(3.9,23,2,30366,0)=""
^XMB(3.9,23,2,30367,0)="""FIA"",396.4,0,""RLRO"")"
^XMB(3.9,23,2,30368,0)=""
^XMB(3.9,23,2,30369,0)="""FIA"",396.4,0,""VR"")"
^XMB(3.9,23,2,30370,0)="2.7^DVBA"
^XMB(3.9,23,2,30371,0)="""FIA"",396.4,396.4)"
^XMB(3.9,23,2,30372,0)="0"
^XMB(3.9,23,2,30373,0)="""FIA"",396.4,396.41)"
^XMB(3.9,23,2,30374,0)="0"
^XMB(3.9,23,2,30375,0)="""FIA"",396.4,396.42)"
^XMB(3.9,23,2,30376,0)="0"
^XMB(3.9,23,2,30377,0)="""FIA"",396.4,396.471)"
^XMB(3.9,23,2,30378,0)="0"
^XMB(3.9,23,2,30379,0)="""INI"")"
^XMB(3.9,23,2,30380,0)="PRE^DVBA2813"
^XMB(3.9,23,2,30381,0)="""INIT"")"
^XMB(3.9,23,2,30382,0)="POST^DVBA2813"
^XMB(3.9,23,2,30383,0)="""MBREQ"")"
^XMB(3.9,23,2,30384,0)="0"
^XMB(3.9,23,2,30385,0)="""PKG"",223,-1)"
^XMB(3.9,23,2,30386,0)="1^1"
^XMB(3.9,23,2,30387,0)="""PKG"",223,0)"
^XMB(3.9,23,2,30388,0)="AUTOMATED MED INFO EXCHANGE^DVBA^The entire AMIE package 7131/2507."
^XMB(3.9,23,2,30389,0)="""PKG"",223,20,0)"
^XMB(3.9,23,2,30390,0)="^9.402P^^"
^XMB(3.9,23,2,30391,0)="""PKG"",223,22,0)"
^XMB(3.9,23,2,30392,0)="^9.49I^1^1"
^XMB(3.9,23,2,30393,0)="""PKG"",223,22,1,0)"
^XMB(3.9,23,2,30394,0)="2.7^2950410^3010328"
^XMB(3.9,23,2,30395,0)="""PKG"",223,22,1,""PAH"",1,0)"
^XMB(3.9,23,2,30396,0)="113^3060922"
^XMB(3.9,23,2,30397,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,23,2,30398,0)="Y"
^XMB(3.9,23,2,30399,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,23,2,30400,0)="^D REP^XPDH"
^XMB(3.9,23,2,30401,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,23,2,30402,0)="Shall I write over your |FLAG| File"
^XMB(3.9,23,2,30403,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,23,2,30404,0)="YES"
^XMB(3.9,23,2,30405,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,23,2,30406,0)="D XPF1^XPDIQ"
^XMB(3.9,23,2,30407,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,23,2,30408,0)="Y"
^XMB(3.9,23,2,30409,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,23,2,30410,0)="^D DTA^XPDH"
^XMB(3.9,23,2,30411,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,23,2,30412,0)="Want my data |FLAG| yours"
^XMB(3.9,23,2,30413,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,23,2,30414,0)="YES"
^XMB(3.9,23,2,30415,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,23,2,30416,0)="D XPF2^XPDIQ"
^XMB(3.9,23,2,30417,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,23,2,30418,0)="YO"
^XMB(3.9,23,2,30419,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,23,2,30420,0)="^D INHIBIT^XPDH"
^XMB(3.9,23,2,30421,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,23,2,30422,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,23,2,30423,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,23,2,30424,0)="YES"
^XMB(3.9,23,2,30425,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,23,2,30426,0)="D XPI1^XPDIQ"
^XMB(3.9,23,2,30427,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,23,2,30428,0)="PO^VA(200,:EM"
^XMB(3.9,23,2,30429,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,23,2,30430,0)="^D MG^XPDH"
^XMB(3.9,23,2,30431,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,23,2,30432,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,23,2,30433,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,23,2,30434,0)=""
^XMB(3.9,23,2,30435,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,23,2,30436,0)="D XPM1^XPDIQ"
^XMB(3.9,23,2,30437,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,23,2,30438,0)="Y"
^XMB(3.9,23,2,30439,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,23,2,30440,0)="^D MENU^XPDH"
^XMB(3.9,23,2,30441,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,23,2,30442,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,23,2,30443,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,23,2,30444,0)="YES"
^XMB(3.9,23,2,30445,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,23,2,30446,0)="D XPO1^XPDIQ"
^XMB(3.9,23,2,30447,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,23,2,30448,0)="Y"
^XMB(3.9,23,2,30449,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,23,2,30450,0)="^D OPT^XPDH"
^XMB(3.9,23,2,30451,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,23,2,30452,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,23,2,30453,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,23,2,30454,0)="YES"
^XMB(3.9,23,2,30455,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,23,2,30456,0)="D XPZ1^XPDIQ"
^XMB(3.9,23,2,30457,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,23,2,30458,0)="Y"
^XMB(3.9,23,2,30459,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,23,2,30460,0)="^D RTN^XPDH"
^XMB(3.9,23,2,30461,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,23,2,30462,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,23,2,30463,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,23,2,30464,0)="NO"
^XMB(3.9,23,2,30465,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,23,2,30466,0)="D XPZ2^XPDIQ"
^XMB(3.9,23,2,30467,0)="""RTN"")"
^XMB(3.9,23,2,30468,0)="1"
^XMB(3.9,23,2,30469,0)="""RTN"",""DVBA2813"")"
^XMB(3.9,23,2,30470,0)="0^^B22061850^n/a"
^XMB(3.9,23,2,30471,0)="""RTN"",""DVBA2813"",1,0)"
^XMB(3.9,23,2,30472,0)="DVBA2813 ;SPH - PATCH DRIVER ; 6/23/06"
^XMB(3.9,23,2,30473,0)="""RTN"",""DVBA2813"",2,0)"
^XMB(3.9,23,2,30474,0)=" ;;2.7;AMIE;**113**;Apr 10, 1995"
^XMB(3.9,23,2,30475,0)="""RTN"",""DVBA2813"",3,0)"
^XMB(3.9,23,2,30476,0)=" ;"
^XMB(3.9,23,2,30477,0)="""RTN"",""DVBA2813"",4,0)"
^XMB(3.9,23,2,30478,0)=" ; Make sure to call each exam name being sent in the patch"
^XMB(3.9,23,2,30479,0)="""RTN"",""DVBA2813"",5,0)"
^XMB(3.9,23,2,30480,0)=" ; This routine will find existing matching entries and will ensure they're disabled."
^XMB(3.9,23,2,30481,0)="""RTN"",""DVBA2813"",6,0)"
^XMB(3.9,23,2,30482,0)=" ; Call as a pre-init or else it'll disable the exams just loaded."
^XMB(3.9,23,2,30483,0)="""RTN"",""DVBA2813"",7,0)"
^XMB(3.9,23,2,30484,0)="PRE ;"
^XMB(3.9,23,2,30485,0)="""RTN"",""DVBA2813"",8,0)"
^XMB(3.9,23,2,30486,0)=" N DVBVERSS,DVBVERSN"
^XMB(3.9,23,2,30487,0)="""RTN"",""DVBA2813"",9,0)"
^XMB(3.9,23,2,30488,0)=" S DVBVERSS=""113F"" ; What the version will be in the incoming file"
^XMB(3.9,23,2,30489,0)="""RTN"",""DVBA2813"",10,0)"
^XMB(3.9,23,2,30490,0)=" S DVBVERSN=""113"" ; What the final version should be named"
^XMB(3.9,23,2,30491,0)="""RTN"",""DVBA2813"",11,0)"
^XMB(3.9,23,2,30492,0)=" W !!!,""**** PRE-PROCESSING ****"",!!"
^XMB(3.9,23,2,30493,0)="""RTN"",""DVBA2813"",12,0)"
^XMB(3.9,23,2,30494,0)=" D DISABLE(""ARRHYTHMIAS"")"
^XMB(3.9,23,2,30495,0)="""RTN"",""DVBA2813"",13,0)"
^XMB(3.9,23,2,30496,0)=" D DISABLE(""ARTERIES, VEINS AND MISCELLANEOUS"")"
^XMB(3.9,23,2,30497,0)="""RTN"",""DVBA2813"",14,0)"
^XMB(3.9,23,2,30498,0)=" D DISABLE(""CRANIAL NERVES"")"
^XMB(3.9,23,2,30499,0)="""RTN"",""DVBA2813"",15,0)"
^XMB(3.9,23,2,30500,0)=" D DISABLE(""DIGESTIVE CONDITIONS, MISCELLANEOUS"")"
^XMB(3.9,23,2,30501,0)="""RTN"",""DVBA2813"",16,0)"
^XMB(3.9,23,2,30502,0)=" D DISABLE(""EAR DISEASE"")"
^XMB(3.9,23,2,30503,0)="""RTN"",""DVBA2813"",17,0)"
^XMB(3.9,23,2,30504,0)=" D DISABLE(""GYNECOLOGICAL CONDITIONS AND DISORDERS OF THE BREAST"")"
^XMB(3.9,23,2,30505,0)="""RTN"",""DVBA2813"",18,0)"
^XMB(3.9,23,2,30506,0)=" D DISABLE(""INTESTINES (LARGE AND SMALL)"")"
^XMB(3.9,23,2,30507,0)="""RTN"",""DVBA2813"",19,0)"
^XMB(3.9,23,2,30508,0)=" D DISABLE(""LIVER, GALL BLADDER, AND PANCREAS"")"
^XMB(3.9,23,2,30509,0)="""RTN"",""DVBA2813"",20,0)"
^XMB(3.9,23,2,30510,0)=" D DISABLE(""NOSE, SINUS, LARYNX, AND PHARYNX"")"
^XMB(3.9,23,2,30511,0)="""RTN"",""DVBA2813"",21,0)"
^XMB(3.9,23,2,30512,0)=" D DISABLE(""RECTUM AND ANUS"")"
^XMB(3.9,23,2,30513,0)="""RTN"",""DVBA2813"",22,0)"
^XMB(3.9,23,2,30514,0)=" D DISABLE(""STOMACH, DUODENUM AND PERITONEAL ADHESIONS"")"
^XMB(3.9,23,2,30515,0)="""RTN"",""DVBA2813"",23,0)"
^XMB(3.9,23,2,30516,0)=" D DISABLE(""AID AND ATTENDANCE OR HOUSEBOUND EXAMINATION"")"
^XMB(3.9,23,2,30517,0)="""RTN"",""DVBA2813"",24,0)"
^XMB(3.9,23,2,30518,0)=" D DISABLE(""BONES (FRACTURES AND BONE DISEASE)"")"
^XMB(3.9,23,2,30519,0)="""RTN"",""DVBA2813"",25,0)"
^XMB(3.9,23,2,30520,0)=" D DISABLE(""BRAIN AND SPINAL CORD"")"
^XMB(3.9,23,2,30521,0)="""RTN"",""DVBA2813"",26,0)"
^XMB(3.9,23,2,30522,0)=" D DISABLE(""CHRONIC FATIGUE SYNDROME"")"
^XMB(3.9,23,2,30523,0)="""RTN"",""DVBA2813"",27,0)"
^XMB(3.9,23,2,30524,0)=" D DISABLE(""FIBROMYALGIA"")"
^XMB(3.9,23,2,30525,0)="""RTN"",""DVBA2813"",28,0)"
^XMB(3.9,23,2,30526,0)=" D DISABLE(""GENITOURINARY EXAMINATION"")"
^XMB(3.9,23,2,30527,0)="""RTN"",""DVBA2813"",29,0)"
^XMB(3.9,23,2,30528,0)=" Q"
^XMB(3.9,23,2,30529,0)="""RTN"",""DVBA2813"",30,0)"
^XMB(3.9,23,2,30530,0)="POST ;"
^XMB(3.9,23,2,30531,0)="""RTN"",""DVBA2813"",31,0)"
^XMB(3.9,23,2,30532,0)=" N DVBVERSS,DVBVERSN"
^XMB(3.9,23,2,30533,0)="""RTN"",""DVBA2813"",32,0)"
^XMB(3.9,23,2,30534,0)=" S DVBVERSS=""113F"" ; What the version will be in the incoming file"
^XMB(3.9,23,2,30535,0)="""RTN"",""DVBA2813"",33,0)"
^XMB(3.9,23,2,30536,0)=" S DVBVERSN=""113"" ; What the final version should be named"
^XMB(3.9,23,2,30537,0)="""RTN"",""DVBA2813"",34,0)"
^XMB(3.9,23,2,30538,0)=" W !!!,""**** POST-PROCESSING ****"",!!"
^XMB(3.9,23,2,30539,0)="""RTN"",""DVBA2813"",35,0)"
^XMB(3.9,23,2,30540,0)=" D POSTP(""ARRHYTHMIAS"")"
^XMB(3.9,23,2,30541,0)="""RTN"",""DVBA2813"",36,0)"
^XMB(3.9,23,2,30542,0)=" D POSTP(""ARTERIES, VEINS AND MISCELLANEOUS"")"
^XMB(3.9,23,2,30543,0)="""RTN"",""DVBA2813"",37,0)"
^XMB(3.9,23,2,30544,0)=" D POSTP(""CRANIAL NERVES"")"
^XMB(3.9,23,2,30545,0)="""RTN"",""DVBA2813"",38,0)"
^XMB(3.9,23,2,30546,0)=" D POSTP(""DIGESTIVE CONDITIONS, MISCELLANEOUS"")"
^XMB(3.9,23,2,30547,0)="""RTN"",""DVBA2813"",39,0)"
^XMB(3.9,23,2,30548,0)=" D POSTP(""EAR DISEASE"")"
^XMB(3.9,23,2,30549,0)="""RTN"",""DVBA2813"",40,0)"
^XMB(3.9,23,2,30550,0)=" D POSTP(""GYNECOLOGICAL CONDITIONS AND DISORDERS OF THE BREAST"")"
^XMB(3.9,23,2,30551,0)="""RTN"",""DVBA2813"",41,0)"
^XMB(3.9,23,2,30552,0)=" D POSTP(""INTESTINES (LARGE AND SMALL)"")"
^XMB(3.9,23,2,30553,0)="""RTN"",""DVBA2813"",42,0)"
^XMB(3.9,23,2,30554,0)=" D POSTP(""LIVER, GALL BLADDER, AND PANCREAS"")"
^XMB(3.9,23,2,30555,0)="""RTN"",""DVBA2813"",43,0)"
^XMB(3.9,23,2,30556,0)=" D POSTP(""NOSE, SINUS, LARYNX, AND PHARYNX"")"
^XMB(3.9,23,2,30557,0)="""RTN"",""DVBA2813"",44,0)"
^XMB(3.9,23,2,30558,0)=" D POSTP(""RECTUM AND ANUS"")"
^XMB(3.9,23,2,30559,0)="""RTN"",""DVBA2813"",45,0)"
^XMB(3.9,23,2,30560,0)=" D POSTP(""STOMACH, DUODENUM AND PERITONEAL ADHESIONS"")"
^XMB(3.9,23,2,30561,0)="""RTN"",""DVBA2813"",46,0)"
^XMB(3.9,23,2,30562,0)=" D POSTP(""AID AND ATTENDANCE OR HOUSEBOUND EXAMINATION"")"
^XMB(3.9,23,2,30563,0)="""RTN"",""DVBA2813"",47,0)"
^XMB(3.9,23,2,30564,0)=" D POSTP(""BONES (FRACTURES AND BONE DISEASE)"")"
^XMB(3.9,23,2,30565,0)="""RTN"",""DVBA2813"",48,0)"
^XMB(3.9,23,2,30566,0)=" D POSTP(""BRAIN AND SPINAL CORD"")"
^XMB(3.9,23,2,30567,0)="""RTN"",""DVBA2813"",49,0)"
^XMB(3.9,23,2,30568,0)=" D POSTP(""CHRONIC FATIGUE SYNDROME"")"
^XMB(3.9,23,2,30569,0)="""RTN"",""DVBA2813"",50,0)"
^XMB(3.9,23,2,30570,0)=" D POSTP(""FIBROMYALGIA"")"
^XMB(3.9,23,2,30571,0)="""RTN"",""DVBA2813"",51,0)"
^XMB(3.9,23,2,30572,0)=" D POSTP(""GENITOURINARY EXAMINATION"")"
^XMB(3.9,23,2,30573,0)="""RTN"",""DVBA2813"",52,0)"
^XMB(3.9,23,2,30574,0)=" D RBXREF"
^XMB(3.9,23,2,30575,0)="""RTN"",""DVBA2813"",53,0)"
^XMB(3.9,23,2,30576,0)=" Q"
^XMB(3.9,23,2,30577,0)="""RTN"",""DVBA2813"",54,0)"
^XMB(3.9,23,2,30578,0)="POSTP(NM) ;"
^XMB(3.9,23,2,30579,0)="""RTN"",""DVBA2813"",55,0)"
^XMB(3.9,23,2,30580,0)=" ; Rename XXXXXXX~imported version to XXXXXXX~new version"
^XMB(3.9,23,2,30581,0)="""RTN"",""DVBA2813"",56,0)"
^XMB(3.9,23,2,30582,0)=" N DVBABCNT,DVBABIEN,DVBABST,DVBACH"
^XMB(3.9,23,2,30583,0)="""RTN"",""DVBA2813"",57,0)"
^XMB(3.9,23,2,30584,0)=" N DVBABCN2,DVBABIE2,DVBABS2"
^XMB(3.9,23,2,30585,0)="""RTN"",""DVBA2813"",58,0)"
^XMB(3.9,23,2,30586,0)=" S DVBABCNT=0,DVBABIEN=0"
^XMB(3.9,23,2,30587,0)="""RTN"",""DVBA2813"",59,0)"
^XMB(3.9,23,2,30588,0)=" F  S DVBABIEN=$O(^DVB(396.18,DVBABIEN)) Q:'DVBABIEN  D"
^XMB(3.9,23,2,30589,0)="""RTN"",""DVBA2813"",60,0)"
^XMB(3.9,23,2,30590,0)=" .S DVBABST=$P($G(^DVB(396.18,DVBABIEN,0)),""^"",1)"
^XMB(3.9,23,2,30591,0)="""RTN"",""DVBA2813"",61,0)"
^XMB(3.9,23,2,30592,0)=" .I $P(DVBABST,""~"",1)=NM  I $P(DVBABST,""~"",2)=DVBVERSS  D"
^XMB(3.9,23,2,30593,0)="""RTN"",""DVBA2813"",62,0)"
^XMB(3.9,23,2,30594,0)=" ..;Check and be sure the new version isn't in the file yet"
^XMB(3.9,23,2,30595,0)="""RTN"",""DVBA2813"",63,0)"
^XMB(3.9,23,2,30596,0)=" ..S DVBABCN2=0,DVBABIE2=0,DVBACH=0"
^XMB(3.9,23,2,30597,0)="""RTN"",""DVBA2813"",64,0)"
^XMB(3.9,23,2,30598,0)=" ..F  S DVBABIE2=$O(^DVB(396.18,DVBABIE2)) Q:'DVBABIE2  D"
^XMB(3.9,23,2,30599,0)="""RTN"",""DVBA2813"",65,0)"
^XMB(3.9,23,2,30600,0)=" ...S DVBABS2=$P($G(^DVB(396.18,DVBABIE2,0)),""^"",1)"
^XMB(3.9,23,2,30601,0)="""RTN"",""DVBA2813"",66,0)"
^XMB(3.9,23,2,30602,0)=" ...I $P(DVBABS2,""~"",1)=NM  I $P(DVBABS2,""~"",2)=DVBVERSN  S DVBACH=1"
^XMB(3.9,23,2,30603,0)="""RTN"",""DVBA2813"",67,0)"
^XMB(3.9,23,2,30604,0)=" ..;If new version is found, delete the import version and don't import"
^XMB(3.9,23,2,30605,0)="""RTN"",""DVBA2813"",68,0)"
^XMB(3.9,23,2,30606,0)=" ..I DVBACH=1  D"
^XMB(3.9,23,2,30607,0)="""RTN"",""DVBA2813"",69,0)"
^XMB(3.9,23,2,30608,0)=" ...W ""FOUND EXISTING ""_NM_"".  NO MODIFICATIONS MADE."",!"
^XMB(3.9,23,2,30609,0)="""RTN"",""DVBA2813"",70,0)"
^XMB(3.9,23,2,30610,0)=" ...K ^DVB(396.18,DVBABIEN)"
^XMB(3.9,23,2,30611,0)="""RTN"",""DVBA2813"",71,0)"
^XMB(3.9,23,2,30612,0)=" ..;If existing version isn't found, go ahead and rename imported entry to new version name"
^XMB(3.9,23,2,30613,0)="""RTN"",""DVBA2813"",72,0)"
^XMB(3.9,23,2,30614,0)=" ..I DVBACH=0  D"
^XMB(3.9,23,2,30615,0)="""RTN"",""DVBA2813"",73,0)"
^XMB(3.9,23,2,30616,0)=" ...S $P(^DVB(396.18,DVBABIEN,0),""^"",1)=NM_""~""_DVBVERSN"
^XMB(3.9,23,2,30617,0)="""RTN"",""DVBA2813"",74,0)"
^XMB(3.9,23,2,30618,0)=" ...W ""ACTIVATED: ""_$P($G(^DVB(396.18,DVBABIEN,0)),""^"",1),!"
^XMB(3.9,23,2,30619,0)="""RTN"",""DVBA2813"",75,0)"
^XMB(3.9,23,2,30620,0)=" K DVBABCNT,DVBABIEN,DVBABST,DVBACH"
^XMB(3.9,23,2,30621,0)="""RTN"",""DVBA2813"",76,0)"
^XMB(3.9,23,2,30622,0)=" Q"
^XMB(3.9,23,2,30623,0)="""RTN"",""DVBA2813"",77,0)"
^XMB(3.9,23,2,30624,0)="RBXREF ;"
^XMB(3.9,23,2,30625,0)="""RTN"",""DVBA2813"",78,0)"
^XMB(3.9,23,2,30626,0)=" ; Rebuild cross-references"
^XMB(3.9,23,2,30627,0)="""RTN"",""DVBA2813"",79,0)"
^XMB(3.9,23,2,30628,0)=" ; XRef: B"
^XMB(3.9,23,2,30629,0)="""RTN"",""DVBA2813"",80,0)"
^XMB(3.9,23,2,30630,0)=" W !!,""CLEANING UP FILES AND REBUILDING 2 CROSS-REFERENCES."",!,""THIS MAY TAKE A FEW MINUTES."",!"
^XMB(3.9,23,2,30631,0)="""RTN"",""DVBA2813"",81,0)"
^XMB(3.9,23,2,30632,0)=" W !!,""REBUILDING 'B' XREF, CAPRI TEMPLATE DEFINITIONS FILE"",!"
^XMB(3.9,23,2,30633,0)="""RTN"",""DVBA2813"",82,0)"
^XMB(3.9,23,2,30634,0)=" N DA,DIK,REGIEN,ROOT"
^XMB(3.9,23,2,30635,0)="""RTN"",""DVBA2813"",83,0)"
^XMB(3.9,23,2,30636,0)=" S ROOT=$$ROOT^DILFD(396.18,,1)  K @ROOT@(""B"")"
^XMB(3.9,23,2,30637,0)="""RTN"",""DVBA2813"",84,0)"
^XMB(3.9,23,2,30638,0)=" S REGIEN=0"
^XMB(3.9,23,2,30639,0)="""RTN"",""DVBA2813"",85,0)"
^XMB(3.9,23,2,30640,0)=" F  S REGIEN=$O(@ROOT@(REGIEN))  Q:'REGIEN  D"
^XMB(3.9,23,2,30641,0)="""RTN"",""DVBA2813"",86,0)"
^XMB(3.9,23,2,30642,0)=" . S DIK=$$ROOT^DILFD(396.18,"",""_REGIEN_"",""),DIK(1)="".01^B"""
^XMB(3.9,23,2,30643,0)="""RTN"",""DVBA2813"",87,0)"
^XMB(3.9,23,2,30644,0)=" . S DA(1)=REGIEN  D ENALL^DIK"
^XMB(3.9,23,2,30645,0)="""RTN"",""DVBA2813"",88,0)"
^XMB(3.9,23,2,30646,0)=" ; "
^XMB(3.9,23,2,30647,0)="""RTN"",""DVBA2813"",89,0)"
^XMB(3.9,23,2,30648,0)=" ; XRef: AV"
^XMB(3.9,23,2,30649,0)="""RTN"",""DVBA2813"",90,0)"
^XMB(3.9,23,2,30650,0)=" W !!,""REBUILDING 'AV' XREF, CAPRI TEMPLATE DEFINITIONS FILE"",!"
^XMB(3.9,23,2,30651,0)="""RTN"",""DVBA2813"",91,0)"
^XMB(3.9,23,2,30652,0)=" N DA,DIK,REGIEN,ROOT"
^XMB(3.9,23,2,30653,0)="""RTN"",""DVBA2813"",92,0)"
^XMB(3.9,23,2,30654,0)=" S ROOT=$$ROOT^DILFD(396.18,,1)  K @ROOT@(""AV"")"
^XMB(3.9,23,2,30655,0)="""RTN"",""DVBA2813"",93,0)"
^XMB(3.9,23,2,30656,0)=" S REGIEN=0"
^XMB(3.9,23,2,30657,0)="""RTN"",""DVBA2813"",94,0)"
^XMB(3.9,23,2,30658,0)=" F  S REGIEN=$O(@ROOT@(REGIEN))  Q:'REGIEN  D"
^XMB(3.9,23,2,30659,0)="""RTN"",""DVBA2813"",95,0)"
^XMB(3.9,23,2,30660,0)=" . S DIK=$$ROOT^DILFD(396.18,"",""_REGIEN_"",""),DIK(1)="".01^AV"""
^XMB(3.9,23,2,30661,0)="""RTN"",""DVBA2813"",96,0)"
^XMB(3.9,23,2,30662,0)=" . S DA(1)=REGIEN  D ENALL^DIK"
^XMB(3.9,23,2,30663,0)="""RTN"",""DVBA2813"",97,0)"
^XMB(3.9,23,2,30664,0)=" K DA,DIK,REGIEN,ROOT"
^XMB(3.9,23,2,30665,0)="""RTN"",""DVBA2813"",98,0)"
^XMB(3.9,23,2,30666,0)=" Q "
^XMB(3.9,23,2,30667,0)="""RTN"",""DVBA2813"",99,0)"
^XMB(3.9,23,2,30668,0)="DISABLE(NM) ;"
^XMB(3.9,23,2,30669,0)="""RTN"",""DVBA2813"",100,0)"
^XMB(3.9,23,2,30670,0)=" ; First look for matches and turn off the ""selectable by user field"""
^XMB(3.9,23,2,30671,0)="""RTN"",""DVBA2813"",101,0)"
^XMB(3.9,23,2,30672,0)=" ; This will keep the entry from showing in the list"
^XMB(3.9,23,2,30673,0)="""RTN"",""DVBA2813"",102,0)"
^XMB(3.9,23,2,30674,0)=" ; Next, look at disabled date.  If there's no date, set it to today."
^XMB(3.9,23,2,30675,0)="""RTN"",""DVBA2813"",103,0)"
^XMB(3.9,23,2,30676,0)=" ; File is 396.18.  Field 3 is de-activation date.  Field 7 is selectable by user (0=no)"
^XMB(3.9,23,2,30677,0)="""RTN"",""DVBA2813"",104,0)"
^XMB(3.9,23,2,30678,0)=" N DVBABCNT,DVBABIEN,DVBABST,DVBACH"
^XMB(3.9,23,2,30679,0)="""RTN"",""DVBA2813"",105,0)"
^XMB(3.9,23,2,30680,0)=" S DVBABCNT=0,DVBABIEN=0"
^XMB(3.9,23,2,30681,0)="""RTN"",""DVBA2813"",106,0)"
^XMB(3.9,23,2,30682,0)=" F  S DVBABIEN=$O(^DVB(396.18,DVBABIEN)) Q:'DVBABIEN  D"
^XMB(3.9,23,2,30683,0)="""RTN"",""DVBA2813"",107,0)"
^XMB(3.9,23,2,30684,0)=" .S DVBABST=$P($G(^DVB(396.18,DVBABIEN,0)),""^"",1)"
^XMB(3.9,23,2,30685,0)="""RTN"",""DVBA2813"",108,0)"
^XMB(3.9,23,2,30686,0)=" .I $P(DVBABST,""~"",1)=NM  I $P(DVBABST,""~"",2)'=DVBVERSN  D"
^XMB(3.9,23,2,30687,0)="""RTN"",""DVBA2813"",109,0)"
^XMB(3.9,23,2,30688,0)=" ..S DVBACH=0"
^XMB(3.9,23,2,30689,0)="""RTN"",""DVBA2813"",110,0)"
^XMB(3.9,23,2,30690,0)=" ..I $P(^DVB(396.18,DVBABIEN,6),""^"",1)'=""0""  S $P(^DVB(396.18,DVBABIEN,6),""^"",1)=""0"",DVBACH=1"
^XMB(3.9,23,2,30691,0)="""RTN"",""DVBA2813"",111,0)"
^XMB(3.9,23,2,30692,0)=" ..I $P(^DVB(396.18,DVBABIEN,2),""^"",2)=""""  S $P(^DVB(396.18,DVBABIEN,2),""^"",2)=DT,DVBACH=1  ; This is deactivation date "
^XMB(3.9,23,2,30693,0)="""RTN"",""DVBA2813"",112,0)"
^XMB(3.9,23,2,30694,0)=" ..I DVBACH=1  W ""MODIFIED: ""_DVBABST,!"
^XMB(3.9,23,2,30695,0)="""RTN"",""DVBA2813"",113,0)"
^XMB(3.9,23,2,30696,0)=" K DVBABCNT,DVBABIEN,DVBABST,DVBACH"
^XMB(3.9,23,2,30697,0)="""RTN"",""DVBA2813"",114,0)"
^XMB(3.9,23,2,30698,0)=" Q"
^XMB(3.9,23,2,30699,0)="""SEC"",""^DIC"",396.17,396.17,0,""AUDIT"")"
^XMB(3.9,23,2,30700,0)="@"
^XMB(3.9,23,2,30701,0)="""SEC"",""^DIC"",396.17,396.17,0,""DD"")"
^XMB(3.9,23,2,30702,0)="@"
^XMB(3.9,23,2,30703,0)="""SEC"",""^DIC"",396.17,396.17,0,""DEL"")"
^XMB(3.9,23,2,30704,0)="@"
^XMB(3.9,23,2,30705,0)="""SEC"",""^DIC"",396.17,396.17,0,""LAYGO"")"
^XMB(3.9,23,2,30706,0)="@"
^XMB(3.9,23,2,30707,0)="""SEC"",""^DIC"",396.17,396.17,0,""RD"")"
^XMB(3.9,23,2,30708,0)="@"
^XMB(3.9,23,2,30709,0)="""SEC"",""^DIC"",396.17,396.17,0,""WR"")"
^XMB(3.9,23,2,30710,0)="@"
^XMB(3.9,23,2,30711,0)="""SEC"",""^DIC"",396.18,396.18,0,""AUDIT"")"
^XMB(3.9,23,2,30712,0)="@"
^XMB(3.9,23,2,30713,0)="""SEC"",""^DIC"",396.18,396.18,0,""DD"")"
^XMB(3.9,23,2,30714,0)="@"
^XMB(3.9,23,2,30715,0)="""SEC"",""^DIC"",396.18,396.18,0,""DEL"")"
^XMB(3.9,23,2,30716,0)="@"
^XMB(3.9,23,2,30717,0)="""SEC"",""^DIC"",396.18,396.18,0,""LAYGO"")"
^XMB(3.9,23,2,30718,0)="@"
^XMB(3.9,23,2,30719,0)="""SEC"",""^DIC"",396.18,396.18,0,""RD"")"
^XMB(3.9,23,2,30720,0)="@"
^XMB(3.9,23,2,30721,0)="""SEC"",""^DIC"",396.18,396.18,0,""WR"")"
^XMB(3.9,23,2,30722,0)="@"
^XMB(3.9,23,2,30723,0)="""SEC"",""^DIC"",396.4,396.4,0,""AUDIT"")"
^XMB(3.9,23,2,30724,0)="@"
^XMB(3.9,23,2,30725,0)="""SEC"",""^DIC"",396.4,396.4,0,""DD"")"
^XMB(3.9,23,2,30726,0)="@"
^XMB(3.9,23,2,30727,0)="""SEC"",""^DIC"",396.4,396.4,0,""DEL"")"
^XMB(3.9,23,2,30728,0)="D"
^XMB(3.9,23,2,30729,0)="""SEC"",""^DIC"",396.4,396.4,0,""LAYGO"")"
^XMB(3.9,23,2,30730,0)="@"
^XMB(3.9,23,2,30731,0)="""SEC"",""^DIC"",396.4,396.4,0,""RD"")"
^XMB(3.9,23,2,30732,0)="D"
^XMB(3.9,23,2,30733,0)="""SEC"",""^DIC"",396.4,396.4,0,""WR"")"
^XMB(3.9,23,2,30734,0)="D"
^XMB(3.9,23,2,30735,0)="""VER"")"
^XMB(3.9,23,2,30736,0)="8.0^22.0"
^XMB(3.9,23,2,30737,0)="""^DD"",396.17,396.17,0)"
^XMB(3.9,23,2,30738,0)="FIELD^^22^22"
^XMB(3.9,23,2,30739,0)="""^DD"",396.17,396.17,0,""DDA"")"
^XMB(3.9,23,2,30740,0)="N"
^XMB(3.9,23,2,30741,0)="""^DD"",396.17,396.17,0,""DT"")"
^XMB(3.9,23,2,30742,0)="3060619"
^XMB(3.9,23,2,30743,0)="""^DD"",396.17,396.17,0,""ID"",9)"
^XMB(3.9,23,2,30744,0)="W:$D(^(4)) ""   "",$P(^(4),U,1)"
^XMB(3.9,23,2,30745,0)="""^DD"",396.17,396.17,0,""IX"",""AC"",396.17,16)"
^XMB(3.9,23,2,30746,0)=""
^XMB(3.9,23,2,30747,0)="""^DD"",396.17,396.17,0,""IX"",""AT"",396.17,2)"
^XMB(3.9,23,2,30748,0)=""
^XMB(3.9,23,2,30749,0)="""^DD"",396.17,396.17,0,""IX"",""B"",396.17,.01)"
^XMB(3.9,23,2,30750,0)=""
^XMB(3.9,23,2,30751,0)="""^DD"",396.17,396.17,0,""IX"",""C"",396.17,5)"
^XMB(3.9,23,2,30752,0)=""
^XMB(3.9,23,2,30753,0)="""^DD"",396.17,396.17,0,""IX"",""FT"",396.17,9)"
^XMB(3.9,23,2,30754,0)=""
^XMB(3.9,23,2,30755,0)="""^DD"",396.17,396.17,0,""IX"",""ID"",396.1715,2)"
^XMB(3.9,23,2,30756,0)=""
^XMB(3.9,23,2,30757,0)="""^DD"",396.17,396.17,0,""IX"",""RS"",396.17,11)"
^XMB(3.9,23,2,30758,0)=""
^XMB(3.9,23,2,30759,0)="""^DD"",396.17,396.17,0,""IX"",""TR"",396.17,10)"
^XMB(3.9,23,2,30760,0)=""
^XMB(3.9,23,2,30761,0)="""^DD"",396.17,396.17,0,""NM"",""CAPRI TEMPLATES"")"
^XMB(3.9,23,2,30762,0)=" "
^XMB(3.9,23,2,30763,0)="""^DD"",396.17,396.17,0,""PT"",396.4,1)"
^XMB(3.9,23,2,30764,0)=""
^XMB(3.9,23,2,30765,0)="""^DD"",396.17,396.17,0,""VRPK"")"
^XMB(3.9,23,2,30766,0)="DVBA"
^XMB(3.9,23,2,30767,0)="""^DD"",396.17,396.17,.001,0)"
^XMB(3.9,23,2,30768,0)="NUMBER^NJ12,0a^^ ^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^XMB(3.9,23,2,30769,0)="""^DD"",396.17,396.17,.001,3)"
^XMB(3.9,23,2,30770,0)="Type a Number between 0 and 999999999999, 0 Decimal Digits"
^XMB(3.9,23,2,30771,0)="""^DD"",396.17,396.17,.001,21,0)"
^XMB(3.9,23,2,30772,0)="^^2^2^3030530^"
^XMB(3.9,23,2,30773,0)="""^DD"",396.17,396.17,.001,21,1,0)"
^XMB(3.9,23,2,30774,0)="This field is used to maintain a tracking ID # used internally in "
^XMB(3.9,23,2,30775,0)="""^DD"",396.17,396.17,.001,21,2,0)"
^XMB(3.9,23,2,30776,0)="the CAPRI Delphi client."
^XMB(3.9,23,2,30777,0)="""^DD"",396.17,396.17,.001,""AUDIT"")"
^XMB(3.9,23,2,30778,0)="e"
^XMB(3.9,23,2,30779,0)="""^DD"",396.17,396.17,.001,""DT"")"
^XMB(3.9,23,2,30780,0)="3060428"
^XMB(3.9,23,2,30781,0)="""^DD"",396.17,396.17,.01,0)"
^XMB(3.9,23,2,30782,0)="NAME^P2'a^DPT(^0;1^Q"
^XMB(3.9,23,2,30783,0)="""^DD"",396.17,396.17,.01,1,0)"
^XMB(3.9,23,2,30784,0)="^.1"
^XMB(3.9,23,2,30785,0)="""^DD"",396.17,396.17,.01,1,1,0)"
^XMB(3.9,23,2,30786,0)="396.17^B"
^XMB(3.9,23,2,30787,0)="""^DD"",396.17,396.17,.01,1,1,1)"
^XMB(3.9,23,2,30788,0)="S ^DVB(396.17,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,23,2,30789,0)="""^DD"",396.17,396.17,.01,1,1,2)"
^XMB(3.9,23,2,30790,0)="K ^DVB(396.17,""B"",$E(X,1,30),DA)"
^XMB(3.9,23,2,30791,0)="""^DD"",396.17,396.17,.01,3)"
^XMB(3.9,23,2,30792,0)=" "
^XMB(3.9,23,2,30793,0)="""^DD"",396.17,396.17,.01,21,0)"
^XMB(3.9,23,2,30794,0)="^.001^1^1^3050428^^"
^XMB(3.9,23,2,30795,0)="""^DD"",396.17,396.17,.01,21,1,0)"
^XMB(3.9,23,2,30796,0)="Pointer field to the PATIENT (#2) file to link the document to a patient."
^XMB(3.9,23,2,30797,0)="""^DD"",396.17,396.17,.01,""AUDIT"")"
^XMB(3.9,23,2,30798,0)="e"
^XMB(3.9,23,2,30799,0)="""^DD"",396.17,396.17,.01,""DT"")"
^XMB(3.9,23,2,30800,0)="3060428"
^XMB(3.9,23,2,30801,0)="""^DD"",396.17,396.17,2,0)"
^XMB(3.9,23,2,30802,0)="AUTHOR^P200'^VA(200,^0;2^Q"
^XMB(3.9,23,2,30803,0)="""^DD"",396.17,396.17,2,1,0)"
^XMB(3.9,23,2,30804,0)="^.1"
^XMB(3.9,23,2,30805,0)="""^DD"",396.17,396.17,2,1,1,0)"
^XMB(3.9,23,2,30806,0)="396.17^AT"
^XMB(3.9,23,2,30807,0)="""^DD"",396.17,396.17,2,1,1,1)"
^XMB(3.9,23,2,30808,0)="S ^DVB(396.17,""AT"",$E(X,1,30),DA)="""""
^XMB(3.9,23,2,30809,0)="""^DD"",396.17,396.17,2,1,1,2)"
^XMB(3.9,23,2,30810,0)="K ^DVB(396.17,""AT"",$E(X,1,30),DA)"
^XMB(3.9,23,2,30811,0)="""^DD"",396.17,396.17,2,1,1,""DT"")"
^XMB(3.9,23,2,30812,0)="3030530"
^XMB(3.9,23,2,30813,0)="""^DD"",396.17,396.17,2,21,0)"
^XMB(3.9,23,2,30814,0)="^^2^2^3030530^"
^XMB(3.9,23,2,30815,0)="""^DD"",396.17,396.17,2,21,1,0)"
^XMB(3.9,23,2,30816,0)="Pointer field to NEW PERSON (#200) file to link document to a user "
^XMB(3.9,23,2,30817,0)="""^DD"",396.17,396.17,2,21,2,0)"
^XMB(3.9,23,2,30818,0)="responsible for managing the document in CAPRI."
^XMB(3.9,23,2,30819,0)="""^DD"",396.17,396.17,2,""DT"")"
^XMB(3.9,23,2,30820,0)="3030530"
^XMB(3.9,23,2,30821,0)="""^DD"",396.17,396.17,3,0)"
^XMB(3.9,23,2,30822,0)="DATE/TIME ENTERED^Da^^0;3^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,23,2,30823,0)="""^DD"",396.17,396.17,3,21,0)"
^XMB(3.9,23,2,30824,0)="^^2^2^3030530^"
^XMB(3.9,23,2,30825,0)="""^DD"",396.17,396.17,3,21,1,0)"
^XMB(3.9,23,2,30826,0)="This field is used to record the exact date/time the document was "
^XMB(3.9,23,2,30827,0)="""^DD"",396.17,396.17,3,21,2,0)"
^XMB(3.9,23,2,30828,0)="originally started.  "
^XMB(3.9,23,2,30829,0)="""^DD"",396.17,396.17,3,""AUDIT"")"
^XMB(3.9,23,2,30830,0)="e"
^XMB(3.9,23,2,30831,0)="""^DD"",396.17,396.17,3,""DT"")"
^XMB(3.9,23,2,30832,0)="3060428"
^XMB(3.9,23,2,30833,0)="""^DD"",396.17,396.17,4,0)"
^XMB(3.9,23,2,30834,0)="DATE/TIME UPDATED^Da^^0;4^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,23,2,30835,0)="""^DD"",396.17,396.17,4,21,0)"
^XMB(3.9,23,2,30836,0)="^^4^4^3030530^"
^XMB(3.9,23,2,30837,0)="""^DD"",396.17,396.17,4,21,1,0)"
^XMB(3.9,23,2,30838,0)="This field records the last time data was saved back to VistA.  It will "
^XMB(3.9,23,2,30839,0)="""^DD"",396.17,396.17,4,21,2,0)"
^XMB(3.9,23,2,30840,0)="be updated during auto-saves, at signature, and if the user saves their "
^XMB(3.9,23,2,30841,0)="""^DD"",396.17,396.17,4,21,3,0)"
^XMB(3.9,23,2,30842,0)="document from within CAPRI.  It will not be updated if a reviewer works "
^XMB(3.9,23,2,30843,0)="""^DD"",396.17,396.17,4,21,4,0)"
^XMB(3.9,23,2,30844,0)="with the document unless information is changed in the form fields."
^XMB(3.9,23,2,30845,0)="""^DD"",396.17,396.17,4,""AUDIT"")"
^XMB(3.9,23,2,30846,0)="e"
^XMB(3.9,23,2,30847,0)="""^DD"",396.17,396.17,4,""DT"")"
^XMB(3.9,23,2,30848,0)="3060428"
^XMB(3.9,23,2,30849,0)="""^DD"",396.17,396.17,5,0)"
^XMB(3.9,23,2,30850,0)="DATE/TIME LOCKED^D^^0;5^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,23,2,30851,0)="""^DD"",396.17,396.17,5,1,0)"
^XMB(3.9,23,2,30852,0)="^.1"
^XMB(3.9,23,2,30853,0)="""^DD"",396.17,396.17,5,1,1,0)"
^XMB(3.9,23,2,30854,0)="396.17^C"
^XMB(3.9,23,2,30855,0)="""^DD"",396.17,396.17,5,1,1,1)"
^XMB(3.9,23,2,30856,0)="S ^DVB(396.17,""C"",$E(X,1,30),DA)="""""
^XMB(3.9,23,2,30857,0)="""^DD"",396.17,396.17,5,1,1,2)"
^XMB(3.9,23,2,30858,0)="K ^DVB(396.17,""C"",$E(X,1,30),DA)"
^XMB(3.9,23,2,30859,0)="""^DD"",396.17,396.17,5,1,1,""DT"")"
^XMB(3.9,23,2,30860,0)="3021024"
^XMB(3.9,23,2,30861,0)="""^DD"",396.17,396.17,5,21,0)"
^XMB(3.9,23,2,30862,0)="^^3^3^3030530^"
^XMB(3.9,23,2,30863,0)="""^DD"",396.17,396.17,5,21,1,0)"
^XMB(3.9,23,2,30864,0)="This field will be filled in at the time the note is transferred to TIU.  "
^XMB(3.9,23,2,30865,0)="""^DD"",396.17,396.17,5,21,2,0)"
^XMB(3.9,23,2,30866,0)="This will prevent further modification of the document contents by "
^XMB(3.9,23,2,30867,0)="""^DD"",396.17,396.17,5,21,3,0)"
^XMB(3.9,23,2,30868,0)="reviewer or author."
^XMB(3.9,23,2,30869,0)="""^DD"",396.17,396.17,5,""DT"")"
^XMB(3.9,23,2,30870,0)="3030530"
^XMB(3.9,23,2,30871,0)="""^DD"",396.17,396.17,6,0)"
^XMB(3.9,23,2,30872,0)="TEMPLATES UTILIZED^396.176^^1;0"
^XMB(3.9,23,2,30873,0)="""^DD"",396.17,396.17,6,21,0)"
^XMB(3.9,23,2,30874,0)="^^3^3^3030530^"
^XMB(3.9,23,2,30875,0)="""^DD"",396.17,396.17,6,21,1,0)"
^XMB(3.9,23,2,30876,0)="A document may be made up of more than one of the predefined C&P "
^XMB(3.9,23,2,30877,0)="""^DD"",396.17,396.17,6,21,2,0)"
^XMB(3.9,23,2,30878,0)="templates.  This word processing field will store each template utilized"
^XMB(3.9,23,2,30879,0)="""^DD"",396.17,396.17,6,21,3,0)"
^XMB(3.9,23,2,30880,0)="during the documentation process on a separate line."
^XMB(3.9,23,2,30881,0)="""^DD"",396.17,396.17,7,0)"
^XMB(3.9,23,2,30882,0)="TIU DOCUMENT NUMBER^NJ15,0^^2;1^K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^XMB(3.9,23,2,30883,0)="""^DD"",396.17,396.17,7,3)"
^XMB(3.9,23,2,30884,0)="Type a Number between 0 and 999999999999999, 0 Decimal Digits"
^XMB(3.9,23,2,30885,0)="""^DD"",396.17,396.17,7,21,0)"
^XMB(3.9,23,2,30886,0)="^^3^3^3030530^"
^XMB(3.9,23,2,30887,0)="""^DD"",396.17,396.17,7,21,1,0)"
^XMB(3.9,23,2,30888,0)="After the document is completed and transferred into TIU as an ASCII "
^XMB(3.9,23,2,30889,0)="""^DD"",396.17,396.17,7,21,2,0)"
^XMB(3.9,23,2,30890,0)="report, the new TIU file/document number will be stored in this field for "
^XMB(3.9,23,2,30891,0)="""^DD"",396.17,396.17,7,21,3,0)"
^XMB(3.9,23,2,30892,0)="auditing/validation purposes later. "
^XMB(3.9,23,2,30893,0)="""^DD"",396.17,396.17,7,""DT"")"
^XMB(3.9,23,2,30894,0)="3030530"
^XMB(3.9,23,2,30895,0)="""^DD"",396.17,396.17,8,0)"
^XMB(3.9,23,2,30896,0)="FORM DATA^396.178^^3;0"
^XMB(3.9,23,2,30897,0)="""^DD"",396.17,396.17,8,21,0)"
^XMB(3.9,23,2,30898,0)="^.001^6^6^3030530^^^"
^XMB(3.9,23,2,30899,0)="""^DD"",396.17,396.17,8,21,1,0)"
^XMB(3.9,23,2,30900,0)="All of the MS Windows generated ascii code to re-populate GUI form fields"
^XMB(3.9,23,2,30901,0)="""^DD"",396.17,396.17,8,21,2,0)"
^XMB(3.9,23,2,30902,0)="will be stored in this field.  A standard Windows API is used to generate"
^XMB(3.9,23,2,30903,0)="""^DD"",396.17,396.17,8,21,3,0)"
^XMB(3.9,23,2,30904,0)="this text."
^XMB(3.9,23,2,30905,0)="""^DD"",396.17,396.17,8,21,4,0)"
^XMB(3.9,23,2,30906,0)=" "
^XMB(3.9,23,2,30907,0)="""^DD"",396.17,396.17,8,21,5,0)"
^XMB(3.9,23,2,30908,0)="WARNING:  DO NOT EDIT THIS FIELD OR THE DOCUMENT MAY BECOME CORRUPT AND"
^XMB(3.9,23,2,30909,0)="""^DD"",396.17,396.17,8,21,6,0)"
^XMB(3.9,23,2,30910,0)="INACCESSIBLE FROM THE GUI."
^XMB(3.9,23,2,30911,0)="""^DD"",396.17,396.17,8.5,0)"
^XMB(3.9,23,2,30912,0)="FORM SAVE BUFFER^396.19D^^9;0"
^XMB(3.9,23,2,30913,0)="""^DD"",396.17,396.17,8.5,21,0)"
^XMB(3.9,23,2,30914,0)="^.001^5^5^3050314^^^^"
^XMB(3.9,23,2,30915,0)="""^DD"",396.17,396.17,8.5,21,1,0)"
^XMB(3.9,23,2,30916,0)="Snapshots of the user's template data each time they exit the template in "
^XMB(3.9,23,2,30917,0)="""^DD"",396.17,396.17,8.5,21,2,0)"
^XMB(3.9,23,2,30918,0)="the GUI will be stored here.  They'll be used in case of template "
^XMB(3.9,23,2,30919,0)="""^DD"",396.17,396.17,8.5,21,3,0)"
^XMB(3.9,23,2,30920,0)="corruption or if the user wishes to revert to an earlier version of their "
^XMB(3.9,23,2,30921,0)="""^DD"",396.17,396.17,8.5,21,4,0)"
^XMB(3.9,23,2,30922,0)="work.  Once a form is signed and successfully in TIU, then the data in "
^XMB(3.9,23,2,30923,0)="""^DD"",396.17,396.17,8.5,21,5,0)"
^XMB(3.9,23,2,30924,0)="this field will be removed."
^XMB(3.9,23,2,30925,0)="""^DD"",396.17,396.17,9,0)"
^XMB(3.9,23,2,30926,0)="FORM TITLE^F^^4;1^K:$L(X)>250!($L(X)<1) X"
^XMB(3.9,23,2,30927,0)="""^DD"",396.17,396.17,9,1,0)"
^XMB(3.9,23,2,30928,0)="^.1"
^XMB(3.9,23,2,30929,0)="""^DD"",396.17,396.17,9,1,1,0)"
^XMB(3.9,23,2,30930,0)="396.17^FT"
^XMB(3.9,23,2,30931,0)="""^DD"",396.17,396.17,9,1,1,1)"
^XMB(3.9,23,2,30932,0)="S ^DVB(396.17,""FT"",$E(X,1,30),DA)="""""
^XMB(3.9,23,2,30933,0)="""^DD"",396.17,396.17,9,1,1,2)"
^XMB(3.9,23,2,30934,0)="K ^DVB(396.17,""FT"",$E(X,1,30),DA)"
^XMB(3.9,23,2,30935,0)="""^DD"",396.17,396.17,9,1,1,""DT"")"
^XMB(3.9,23,2,30936,0)="3030530"
^XMB(3.9,23,2,30937,0)="""^DD"",396.17,396.17,9,3)"
^XMB(3.9,23,2,30938,0)="Answer must be 1-250 characters in length."
^XMB(3.9,23,2,30939,0)="""^DD"",396.17,396.17,9,21,0)"
^XMB(3.9,23,2,30940,0)="^.001^2^2^3031009^^"
^XMB(3.9,23,2,30941,0)="""^DD"",396.17,396.17,9,21,1,0)"
^XMB(3.9,23,2,30942,0)="The text in this field will be displayed in CAPRI as the document title "
^XMB(3.9,23,2,30943,0)="""^DD"",396.17,396.17,9,21,2,0)"
^XMB(3.9,23,2,30944,0)="in lists and reports."
^XMB(3.9,23,2,30945,0)="""^DD"",396.17,396.17,9,""DT"")"
^XMB(3.9,23,2,30946,0)="3031009"
^XMB(3.9,23,2,30947,0)="""^DD"",396.17,396.17,10,0)"
^XMB(3.9,23,2,30948,0)="TRANSCRIBER^P200'^VA(200,^5;1^Q"
^XMB(3.9,23,2,30949,0)="""^DD"",396.17,396.17,10,1,0)"
^XMB(3.9,23,2,30950,0)="^.1"
^XMB(3.9,23,2,30951,0)="""^DD"",396.17,396.17,10,1,1,0)"
^XMB(3.9,23,2,30952,0)="396.17^TR"
^XMB(3.9,23,2,30953,0)="""^DD"",396.17,396.17,10,1,1,1)"
^XMB(3.9,23,2,30954,0)="S ^DVB(396.17,""TR"",$E(X,1,30),DA)="""""
^XMB(3.9,23,2,30955,0)="""^DD"",396.17,396.17,10,1,1,2)"
^XMB(3.9,23,2,30956,0)="K ^DVB(396.17,""TR"",$E(X,1,30),DA)"
^XMB(3.9,23,2,30957,0)="""^DD"",396.17,396.17,10,1,1,""DT"")"
^XMB(3.9,23,2,30958,0)="3030530"
^XMB(3.9,23,2,30959,0)="""^DD"",396.17,396.17,10,21,0)"
^XMB(3.9,23,2,30960,0)="^^3^3^3030530^"
^XMB(3.9,23,2,30961,0)="""^DD"",396.17,396.17,10,21,1,0)"
^XMB(3.9,23,2,30962,0)="If the document is created for someone, the individual who created the "
^XMB(3.9,23,2,30963,0)="""^DD"",396.17,396.17,10,21,2,0)"
^XMB(3.9,23,2,30964,0)="document will be placed into this field.  For example, a clerk may create "
^XMB(3.9,23,2,30965,0)="""^DD"",396.17,396.17,10,21,3,0)"
^XMB(3.9,23,2,30966,0)="a document for a physician in advance of an appointment."
^XMB(3.9,23,2,30967,0)="""^DD"",396.17,396.17,10,""DT"")"
^XMB(3.9,23,2,30968,0)="3030530"
^XMB(3.9,23,2,30969,0)="""^DD"",396.17,396.17,11,0)"
^XMB(3.9,23,2,30970,0)="REVIEW STATUS^Sa^P:REVIEW PENDING;N:NOT REQUIRED;S:SENT BACK;C:COMPLETE;D:DRAFT/NOT READY;A:AWAITING SIGNATURE;U:UNCOSIGNED;L:DELETED;^5;2^Q"
^XMB(3.9,23,2,30971,0)="""^DD"",396.17,396.17,11,1,0)"
^XMB(3.9,23,2,30972,0)="^.1"
^XMB(3.9,23,2,30973,0)="""^DD"",396.17,396.17,11,1,1,0)"
^XMB(3.9,23,2,30974,0)="396.17^RS"
^XMB(3.9,23,2,30975,0)="""^DD"",396.17,396.17,11,1,1,1)"
^XMB(3.9,23,2,30976,0)="S ^DVB(396.17,""RS"",$E(X,1,30),DA)="""""
^XMB(3.9,23,2,30977,0)="""^DD"",396.17,396.17,11,1,1,2)"
^XMB(3.9,23,2,30978,0)="K ^DVB(396.17,""RS"",$E(X,1,30),DA)"
^XMB(3.9,23,2,30979,0)="""^DD"",396.17,396.17,11,1,1,""DT"")"
^XMB(3.9,23,2,30980,0)="3030530"
^XMB(3.9,23,2,30981,0)="""^DD"",396.17,396.17,11,21,0)"
^XMB(3.9,23,2,30982,0)="^.001^7^7^3060519^^^"
^XMB(3.9,23,2,30983,0)="""^DD"",396.17,396.17,11,21,1,0)"
^XMB(3.9,23,2,30984,0)="This field is used when the reviewer functionality is activated within "
^XMB(3.9,23,2,30985,0)="""^DD"",396.17,396.17,11,21,2,0)"
^XMB(3.9,23,2,30986,0)="the CAPRI GUI to find documents that may be new and need review.  In "
^XMB(3.9,23,2,30987,0)="""^DD"",396.17,396.17,11,21,3,0)"
^XMB(3.9,23,2,30988,0)="addition, if the field is set to SENT BACK, then the original author will "
^XMB(3.9,23,2,30989,0)="""^DD"",396.17,396.17,11,21,4,0)"
^XMB(3.9,23,2,30990,0)="be notified in the CAPRI GUI that they have a document returned to them "
^XMB(3.9,23,2,30991,0)="""^DD"",396.17,396.17,11,21,5,0)"
^XMB(3.9,23,2,30992,0)="from the reviewer.  The field will be set to the current document status "
^XMB(3.9,23,2,30993,0)="""^DD"",396.17,396.17,11,21,6,0)"
^XMB(3.9,23,2,30994,0)="and may be cycled through several values before the document is finally "
^XMB(3.9,23,2,30995,0)="""^DD"",396.17,396.17,11,21,7,0)"
^XMB(3.9,23,2,30996,0)="completed."
^XMB(3.9,23,2,30997,0)="""^DD"",396.17,396.17,11,""AUDIT"")"
^XMB(3.9,23,2,30998,0)="y"
^XMB(3.9,23,2,30999,0)="""^DD"",396.17,396.17,11,""DT"")"
^XMB(3.9,23,2,31000,0)="3060519"
^XMB(3.9,23,2,31001,0)="""^DD"",396.17,396.17,14,0)"
^XMB(3.9,23,2,31002,0)="REVIEW DATE/TIME^396.1714D^^6;0"
^XMB(3.9,23,2,31003,0)="""^DD"",396.17,396.17,15,0)"
^XMB(3.9,23,2,31004,0)="FORM SAVED DATA^396.1715^^7;0"
^XMB(3.9,23,2,31005,0)="""^DD"",396.17,396.17,16,0)"
^XMB(3.9,23,2,31006,0)="LOCKED?^S^0:NO;1:YES;^8;1^Q"
^XMB(3.9,23,2,31007,0)="""^DD"",396.17,396.17,16,1,0)"
^XMB(3.9,23,2,31008,0)="^.1"
^XMB(3.9,23,2,31009,0)="""^DD"",396.17,396.17,16,1,1,0)"
^XMB(3.9,23,2,31010,0)="396.17^AC"
^XMB(3.9,23,2,31011,0)="""^DD"",396.17,396.17,16,1,1,1)"
^XMB(3.9,23,2,31012,0)="S ^DVB(396.17,""AC"",$E(X,1,30),DA)="""""
^XMB(3.9,23,2,31013,0)="""^DD"",396.17,396.17,16,1,1,2)"
^XMB(3.9,23,2,31014,0)="K ^DVB(396.17,""AC"",$E(X,1,30),DA)"
^XMB(3.9,23,2,31015,0)="""^DD"",396.17,396.17,16,1,1,""DT"")"
^XMB(3.9,23,2,31016,0)="3031113"
^XMB(3.9,23,2,31017,0)="""^DD"",396.17,396.17,16,21,0)"
^XMB(3.9,23,2,31018,0)="^^3^3^3031113^"
^XMB(3.9,23,2,31019,0)="""^DD"",396.17,396.17,16,21,1,0)"
^XMB(3.9,23,2,31020,0)="This field is used to find forms that require some action by the user."
^XMB(3.9,23,2,31021,0)="""^DD"",396.17,396.17,16,21,2,0)"
^XMB(3.9,23,2,31022,0)="Once the template has been uploaded to TIU, the value in this field will "
^XMB(3.9,23,2,31023,0)="""^DD"",396.17,396.17,16,21,3,0)"
^XMB(3.9,23,2,31024,0)="be deleted."
^XMB(3.9,23,2,31025,0)="""^DD"",396.17,396.17,16,""DT"")"
^XMB(3.9,23,2,31026,0)="3031113"
^XMB(3.9,23,2,31027,0)="""^DD"",396.17,396.17,17,0)"
^XMB(3.9,23,2,31028,0)="IN USE^F^^8;2^K:$L(X)>200!($L(X)<3) X"
^XMB(3.9,23,2,31029,0)="""^DD"",396.17,396.17,17,3)"
^XMB(3.9,23,2,31030,0)="Answer must be 3-200 characters in length."
^XMB(3.9,23,2,31031,0)="""^DD"",396.17,396.17,17,21,0)"
^XMB(3.9,23,2,31032,0)="^^11^11^3050128^"
^XMB(3.9,23,2,31033,0)="""^DD"",396.17,396.17,17,21,1,0)"
^XMB(3.9,23,2,31034,0)="Once a form has been opened in the GUI, this field will be populated with "
^XMB(3.9,23,2,31035,0)="""^DD"",396.17,396.17,17,21,2,0)"
^XMB(3.9,23,2,31036,0)="identifying information - user DUZ^date/time file was opened.  It "
^XMB(3.9,23,2,31037,0)="""^DD"",396.17,396.17,17,21,3,0)"
^XMB(3.9,23,2,31038,0)="will be left in edit mode in the GUI fileman components until the user "
^XMB(3.9,23,2,31039,0)="""^DD"",396.17,396.17,17,21,4,0)"
^XMB(3.9,23,2,31040,0)="exits.  The data will then be cleared and the field exited on the GUI "
^XMB(3.9,23,2,31041,0)="""^DD"",396.17,396.17,17,21,5,0)"
^XMB(3.9,23,2,31042,0)="side. If the application is terminated prematurely, the lock is"
^XMB(3.9,23,2,31043,0)="""^DD"",396.17,396.17,17,21,6,0)"
^XMB(3.9,23,2,31044,0)="automatically dropped."
^XMB(3.9,23,2,31045,0)="""^DD"",396.17,396.17,17,21,7,0)"
^XMB(3.9,23,2,31046,0)=" "
^XMB(3.9,23,2,31047,0)="""^DD"",396.17,396.17,17,21,8,0)"
^XMB(3.9,23,2,31048,0)="By leaving the field in edit mode throughout the session, until the user "
^XMB(3.9,23,2,31049,0)="""^DD"",396.17,396.17,17,21,9,0)"
^XMB(3.9,23,2,31050,0)="closes their template, other CAPRI instances will be able to tell that "
^XMB(3.9,23,2,31051,0)="""^DD"",396.17,396.17,17,21,10,0)"
^XMB(3.9,23,2,31052,0)="someone is using the record and prevent other users from changing the "
^XMB(3.9,23,2,31053,0)="""^DD"",396.17,396.17,17,21,11,0)"
^XMB(3.9,23,2,31054,0)="data until the first user exits."
^XMB(3.9,23,2,31055,0)="""^DD"",396.17,396.17,17,""DT"")"
^XMB(3.9,23,2,31056,0)="3050128"
^XMB(3.9,23,2,31057,0)="""^DD"",396.17,396.17,18,0)"
^XMB(3.9,23,2,31058,0)="AMIE EXAMS^396.1718P^^10;0"
^XMB(3.9,23,2,31059,0)="""^DD"",396.17,396.17,19,0)"
^XMB(3.9,23,2,31060,0)="FLAG NEW^S^0:N;1:Y;^11;1^Q"
^XMB(3.9,23,2,31061,0)="""^DD"",396.17,396.17,19,""DT"")"
^XMB(3.9,23,2,31062,0)="3051103"
^XMB(3.9,23,2,31063,0)="""^DD"",396.17,396.17,20,0)"
^XMB(3.9,23,2,31064,0)="FLAG GREEN FLAG^S^0:N;1:Y;^11;2^Q"
^XMB(3.9,23,2,31065,0)="""^DD"",396.17,396.17,20,""DT"")"
^XMB(3.9,23,2,31066,0)="3051103"
^XMB(3.9,23,2,31067,0)="""^DD"",396.17,396.17,21,0)"
^XMB(3.9,23,2,31068,0)="FLAG EXCLAMATION^S^0:N;1:Y;^11;3^Q"
^XMB(3.9,23,2,31069,0)="""^DD"",396.17,396.17,21,""DT"")"
^XMB(3.9,23,2,31070,0)="3051103"
^XMB(3.9,23,2,31071,0)="""^DD"",396.17,396.17,22,0)"
^XMB(3.9,23,2,31072,0)="PERFORMANCE USE DATA^F^^12;1^K:$L(X)>250!($L(X)<1) X"
^XMB(3.9,23,2,31073,0)="""^DD"",396.17,396.17,22,3)"
^XMB(3.9,23,2,31074,0)="Answer must be 1-250 characters in length."
^XMB(3.9,23,2,31075,0)="""^DD"",396.17,396.17,22,21,0)"
^XMB(3.9,23,2,31076,0)="^^4^4^3060619^"
^XMB(3.9,23,2,31077,0)="""^DD"",396.17,396.17,22,21,1,0)"
^XMB(3.9,23,2,31078,0)="THIS FIELD IS USED FOR DATA ANALYSIS AND QUALITY IMPROVEMENT."
^XMB(3.9,23,2,31079,0)="""^DD"",396.17,396.17,22,21,2,0)"
^XMB(3.9,23,2,31080,0)="DATA WILL BE STORED IN THIS FORMAT:"
^XMB(3.9,23,2,31081,0)="""^DD"",396.17,396.17,22,21,3,0)"
^XMB(3.9,23,2,31082,0)="MERGED TEMPATE (Y/N)^TOTAL TIME FORM WAS IN USE^DOCUMENTATION CLUSTERS^"
^XMB(3.9,23,2,31083,0)="""^DD"",396.17,396.17,22,21,4,0)"
^XMB(3.9,23,2,31084,0)="DOCUMENTATION CLUSTER TIME INTERVAL"
^XMB(3.9,23,2,31085,0)="""^DD"",396.17,396.17,22,""DT"")"
^XMB(3.9,23,2,31086,0)="3060619"
^XMB(3.9,23,2,31087,0)="""^DD"",396.17,396.1714,0)"
^XMB(3.9,23,2,31088,0)="REVIEW DATE/TIME SUB-FIELD^^4^5"
^XMB(3.9,23,2,31089,0)="""^DD"",396.17,396.1714,0,""DT"")"
^XMB(3.9,23,2,31090,0)="3030530"
^XMB(3.9,23,2,31091,0)="""^DD"",396.17,396.1714,0,""IX"",""B"",396.1714,.01)"
^XMB(3.9,23,2,31092,0)=""
^XMB(3.9,23,2,31093,0)="""^DD"",396.17,396.1714,0,""NM"",""REVIEW DATE/TIME"")"
^XMB(3.9,23,2,31094,0)=" "
^XMB(3.9,23,2,31095,0)="""^DD"",396.17,396.1714,0,""UP"")"
^XMB(3.9,23,2,31096,0)="396.17"
^XMB(3.9,23,2,31097,0)="""^DD"",396.17,396.1714,.01,0)"
^XMB(3.9,23,2,31098,0)="REVIEW DATE/TIME^MDa^^0;1^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,23,2,31099,0)="""^DD"",396.17,396.1714,.01,1,0)"
^XMB(3.9,23,2,31100,0)="^.1"
^XMB(3.9,23,2,31101,0)="""^DD"",396.17,396.1714,.01,1,1,0)"
^XMB(3.9,23,2,31102,0)="396.1714^B"
^XMB(3.9,23,2,31103,0)="""^DD"",396.17,396.1714,.01,1,1,1)"
^XMB(3.9,23,2,31104,0)="S ^DVB(396.17,DA(1),6,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,23,2,31105,0)="""^DD"",396.17,396.1714,.01,1,1,2)"
^XMB(3.9,23,2,31106,0)="K ^DVB(396.17,DA(1),6,""B"",$E(X,1,30),DA)"
^XMB(3.9,23,2,31107,0)="""^DD"",396.17,396.1714,.01,21,0)"
^XMB(3.9,23,2,31108,0)="^^2^2^3030530^"
^XMB(3.9,23,2,31109,0)="""^DD"",396.17,396.1714,.01,21,1,0)"
^XMB(3.9,23,2,31110,0)="An entry will be made here each time a new ""needs review"" action is "
^XMB(3.9,23,2,31111,0)="""^DD"",396.17,396.1714,.01,21,2,0)"
^XMB(3.9,23,2,31112,0)="activated in the CAPRI GUI."
^XMB(3.9,23,2,31113,0)="""^DD"",396.17,396.1714,.01,""AUDIT"")"
^XMB(3.9,23,2,31114,0)="y"
^XMB(3.9,23,2,31115,0)="""^DD"",396.17,396.1714,.01,""DT"")"
^XMB(3.9,23,2,31116,0)="3060428"
^XMB(3.9,23,2,31117,0)="""^DD"",396.17,396.1714,1,0)"
^XMB(3.9,23,2,31118,0)="REVIEWER NAME^P200'^VA(200,^0;2^Q"
^XMB(3.9,23,2,31119,0)="""^DD"",396.17,396.1714,1,21,0)"
^XMB(3.9,23,2,31120,0)="^^3^3^3030530^"
^XMB(3.9,23,2,31121,0)="""^DD"",396.17,396.1714,1,21,1,0)"
^XMB(3.9,23,2,31122,0)="This field will remain blank until one of the C&P Exam reviewers picks up"
^XMB(3.9,23,2,31123,0)="""^DD"",396.17,396.1714,1,21,2,0)"
^XMB(3.9,23,2,31124,0)="on the document from within the GUI and activates it using their"
^XMB(3.9,23,2,31125,0)="""^DD"",396.17,396.1714,1,21,3,0)"
^XMB(3.9,23,2,31126,0)="reviewer-specific dialogs."
^XMB(3.9,23,2,31127,0)="""^DD"",396.17,396.1714,1,""DT"")"
^XMB(3.9,23,2,31128,0)="3030530"
^XMB(3.9,23,2,31129,0)="""^DD"",396.17,396.1714,2,0)"
^XMB(3.9,23,2,31130,0)="DATE/TIME MARKED COMPLETE^D^^0;3^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,23,2,31131,0)="""^DD"",396.17,396.1714,2,21,0)"
^XMB(3.9,23,2,31132,0)="^^2^2^3030530^"
^XMB(3.9,23,2,31133,0)="""^DD"",396.17,396.1714,2,21,1,0)"
^XMB(3.9,23,2,31134,0)="Once the reviewer is satisfied with the document and transfers it to TIU, "
^XMB(3.9,23,2,31135,0)="""^DD"",396.17,396.1714,2,21,2,0)"
^XMB(3.9,23,2,31136,0)="this field will be completed automatically by the CAPRI GUI."
^XMB(3.9,23,2,31137,0)="""^DD"",396.17,396.1714,2,""DT"")"
^XMB(3.9,23,2,31138,0)="3030530"
^XMB(3.9,23,2,31139,0)="""^DD"",396.17,396.1714,3,0)"
^XMB(3.9,23,2,31140,0)="DATE/TIME SENT BACK^D^^0;4^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,23,2,31141,0)="""^DD"",396.17,396.1714,3,21,0)"
^XMB(3.9,23,2,31142,0)="^^3^3^3030530^"
^XMB(3.9,23,2,31143,0)="""^DD"",396.17,396.1714,3,21,1,0)"
^XMB(3.9,23,2,31144,0)="If during the review activity, the review would like the original author "
^XMB(3.9,23,2,31145,0)="""^DD"",396.17,396.1714,3,21,2,0)"
^XMB(3.9,23,2,31146,0)="to re-address the document, then this field will be populated.  "
^XMB(3.9,23,2,31147,0)="""^DD"",396.17,396.1714,3,21,3,0)"
^XMB(3.9,23,2,31148,0)="Otherwise, it will remain blank."
^XMB(3.9,23,2,31149,0)="""^DD"",396.17,396.1714,3,""DT"")"
^XMB(3.9,23,2,31150,0)="3030530"
^XMB(3.9,23,2,31151,0)="""^DD"",396.17,396.1714,4,0)"
^XMB(3.9,23,2,31152,0)="SENT BACK COMMENTS^396.17144^^1;0"
^XMB(3.9,23,2,31153,0)="""^DD"",396.17,396.1714,4,21,0)"
^XMB(3.9,23,2,31154,0)="^^4^4^3030530^"
^XMB(3.9,23,2,31155,0)="""^DD"",396.17,396.1714,4,21,1,0)"
^XMB(3.9,23,2,31156,0)="This field contains a list of comments the reviewer wishes to send to the "
^XMB(3.9,23,2,31157,0)="""^DD"",396.17,396.1714,4,21,2,0)"
^XMB(3.9,23,2,31158,0)="document author.  Normally, it will contain required or suggested changes "
^XMB(3.9,23,2,31159,0)="""^DD"",396.17,396.1714,4,21,3,0)"
^XMB(3.9,23,2,31160,0)="to the document.  These comments will not be part of the final TIU/AMIE "
^XMB(3.9,23,2,31161,0)="""^DD"",396.17,396.1714,4,21,4,0)"
^XMB(3.9,23,2,31162,0)="examination report document."
^XMB(3.9,23,2,31163,0)="""^DD"",396.17,396.17144,0)"
^XMB(3.9,23,2,31164,0)="SENT BACK COMMENTS SUB-FIELD^^.01^1"
^XMB(3.9,23,2,31165,0)="""^DD"",396.17,396.17144,0,""DT"")"
^XMB(3.9,23,2,31166,0)="3030530"
^XMB(3.9,23,2,31167,0)="""^DD"",396.17,396.17144,0,""NM"",""SENT BACK COMMENTS"")"
^XMB(3.9,23,2,31168,0)=" "
^XMB(3.9,23,2,31169,0)="""^DD"",396.17,396.17144,0,""UP"")"
^XMB(3.9,23,2,31170,0)="396.1714"
^XMB(3.9,23,2,31171,0)="""^DD"",396.17,396.17144,.01,0)"
^XMB(3.9,23,2,31172,0)="SENT BACK COMMENTS^W^^0;1^Q"
^XMB(3.9,23,2,31173,0)="""^DD"",396.17,396.17144,.01,""DT"")"
^XMB(3.9,23,2,31174,0)="3030530"
^XMB(3.9,23,2,31175,0)="""^DD"",396.17,396.1715,0)"
^XMB(3.9,23,2,31176,0)="FORM SAVED DATA SUB-FIELD^^3^4"
^XMB(3.9,23,2,31177,0)="""^DD"",396.17,396.1715,0,""DT"")"
^XMB(3.9,23,2,31178,0)="3031002"
^XMB(3.9,23,2,31179,0)="""^DD"",396.17,396.1715,0,""IX"",""B"",396.1715,.01)"
^XMB(3.9,23,2,31180,0)=""
^XMB(3.9,23,2,31181,0)="""^DD"",396.17,396.1715,0,""NM"",""FORM SAVED DATA"")"
^XMB(3.9,23,2,31182,0)=" "
^XMB(3.9,23,2,31183,0)="""^DD"",396.17,396.1715,0,""UP"")"
^XMB(3.9,23,2,31184,0)="396.17"
^XMB(3.9,23,2,31185,0)="""^DD"",396.17,396.1715,.01,0)"
^XMB(3.9,23,2,31186,0)="CONTROL NAME^MF^^0;1^K:$L(X)>200!($L(X)<3) X"
^XMB(3.9,23,2,31187,0)="""^DD"",396.17,396.1715,.01,1,0)"
^XMB(3.9,23,2,31188,0)="^.1"
^XMB(3.9,23,2,31189,0)="""^DD"",396.17,396.1715,.01,1,1,0)"
^XMB(3.9,23,2,31190,0)="396.1715^B"
^XMB(3.9,23,2,31191,0)="""^DD"",396.17,396.1715,.01,1,1,1)"
^XMB(3.9,23,2,31192,0)="S ^DVB(396.17,DA(1),7,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,23,2,31193,0)="""^DD"",396.17,396.1715,.01,1,1,2)"
^XMB(3.9,23,2,31194,0)="K ^DVB(396.17,DA(1),7,""B"",$E(X,1,30),DA)"
^XMB(3.9,23,2,31195,0)="""^DD"",396.17,396.1715,.01,3)"
^XMB(3.9,23,2,31196,0)="Answer must be 3-200 characters in length."
^XMB(3.9,23,2,31197,0)="""^DD"",396.17,396.1715,.01,""DT"")"
^XMB(3.9,23,2,31198,0)="3031002"
^XMB(3.9,23,2,31199,0)="""^DD"",396.17,396.1715,1,0)"
^XMB(3.9,23,2,31200,0)="CONTROL TYPE^F^^0;2^K:$L(X)>20!($L(X)<3) X"
^XMB(3.9,23,2,31201,0)="""^DD"",396.17,396.1715,1,3)"
^XMB(3.9,23,2,31202,0)="Answer must be 3-20 characters in length."
^XMB(3.9,23,2,31203,0)="""^DD"",396.17,396.1715,1,""DT"")"
^XMB(3.9,23,2,31204,0)="3031001"
^XMB(3.9,23,2,31205,0)="""^DD"",396.17,396.1715,2,0)"
^XMB(3.9,23,2,31206,0)="OBJECT ID^F^^0;3^K:$L(X)>15!($L(X)<1) X"
^XMB(3.9,23,2,31207,0)="""^DD"",396.17,396.1715,2,1,0)"
^XMB(3.9,23,2,31208,0)="^.1"
^XMB(3.9,23,2,31209,0)="""^DD"",396.17,396.1715,2,1,1,0)"
^XMB(3.9,23,2,31210,0)="396.17^ID"
^XMB(3.9,23,2,31211,0)="""^DD"",396.17,396.1715,2,1,1,1)"
^XMB(3.9,23,2,31212,0)="S ^DVB(396.17,""ID"",$E(X,1,30),DA(1),DA)="""""
^XMB(3.9,23,2,31213,0)="""^DD"",396.17,396.1715,2,1,1,2)"
^XMB(3.9,23,2,31214,0)="K ^DVB(396.17,""ID"",$E(X,1,30),DA(1),DA)"
^XMB(3.9,23,2,31215,0)="""^DD"",396.17,396.1715,2,1,1,""DT"")"
^XMB(3.9,23,2,31216,0)="3031001"
^XMB(3.9,23,2,31217,0)="""^DD"",396.17,396.1715,2,3)"
^XMB(3.9,23,2,31218,0)="Answer must be 1-15 characters in length."
^XMB(3.9,23,2,31219,0)="""^DD"",396.17,396.1715,2,""DT"")"
^XMB(3.9,23,2,31220,0)="3031001"
^XMB(3.9,23,2,31221,0)="""^DD"",396.17,396.1715,3,0)"
^XMB(3.9,23,2,31222,0)="DATA^396.17153^^1;0"
^XMB(3.9,23,2,31223,0)="""^DD"",396.17,396.17153,0)"
^XMB(3.9,23,2,31224,0)="DATA SUB-FIELD^^.01^1"
^XMB(3.9,23,2,31225,0)="""^DD"",396.17,396.17153,0,""DT"")"
^XMB(3.9,23,2,31226,0)="3031001"
^XMB(3.9,23,2,31227,0)="""^DD"",396.17,396.17153,0,""NM"",""DATA"")"
^XMB(3.9,23,2,31228,0)=" "
^XMB(3.9,23,2,31229,0)="""^DD"",396.17,396.17153,0,""UP"")"
^XMB(3.9,23,2,31230,0)="396.1715"
^XMB(3.9,23,2,31231,0)="""^DD"",396.17,396.17153,.01,0)"
^XMB(3.9,23,2,31232,0)="DATA^WL^^0;1^Q"
^XMB(3.9,23,2,31233,0)="""^DD"",396.17,396.17153,.01,""DT"")"
^XMB(3.9,23,2,31234,0)="3031001"
^XMB(3.9,23,2,31235,0)="""^DD"",396.17,396.1718,0)"
^XMB(3.9,23,2,31236,0)="AMIE EXAMS SUB-FIELD^^.01^1"
^XMB(3.9,23,2,31237,0)="""^DD"",396.17,396.1718,0,""DT"")"
^XMB(3.9,23,2,31238,0)="3050518"
^XMB(3.9,23,2,31239,0)="""^DD"",396.17,396.1718,0,""IX"",""B"",396.1718,.01)"
^XMB(3.9,23,2,31240,0)=""
^XMB(3.9,23,2,31241,0)="""^DD"",396.17,396.1718,0,""NM"",""AMIE EXAMS"")"
^XMB(3.9,23,2,31242,0)=" "
^XMB(3.9,23,2,31243,0)="""^DD"",396.17,396.1718,0,""UP"")"
^XMB(3.9,23,2,31244,0)="396.17"
^XMB(3.9,23,2,31245,0)="""^DD"",396.17,396.1718,.01,0)"
^XMB(3.9,23,2,31246,0)="AMIE EXAMS^MP396.4'^DVB(396.4,^0;1^Q"
^XMB(3.9,23,2,31247,0)="""^DD"",396.17,396.1718,.01,1,0)"
^XMB(3.9,23,2,31248,0)="^.1"
^XMB(3.9,23,2,31249,0)="""^DD"",396.17,396.1718,.01,1,1,0)"
^XMB(3.9,23,2,31250,0)="396.1718^B"
^XMB(3.9,23,2,31251,0)="""^DD"",396.17,396.1718,.01,1,1,1)"
^XMB(3.9,23,2,31252,0)="S ^DVB(396.17,DA(1),10,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,23,2,31253,0)="""^DD"",396.17,396.1718,.01,1,1,2)"
^XMB(3.9,23,2,31254,0)="K ^DVB(396.17,DA(1),10,""B"",$E(X,1,30),DA)"
^XMB(3.9,23,2,31255,0)="""^DD"",396.17,396.1718,.01,21,0)"
^XMB(3.9,23,2,31256,0)="^^2^2^3050518^"
^XMB(3.9,23,2,31257,0)="""^DD"",396.17,396.1718,.01,21,1,0)"
^XMB(3.9,23,2,31258,0)="Contains references to the AMIE exams being closed at the point this exam "
^XMB(3.9,23,2,31259,0)="""^DD"",396.17,396.1718,.01,21,2,0)"
^XMB(3.9,23,2,31260,0)="template is signed in TIU."
^XMB(3.9,23,2,31261,0)="""^DD"",396.17,396.1718,.01,""DT"")"
^XMB(3.9,23,2,31262,0)="3050518"
^XMB(3.9,23,2,31263,0)="""^DD"",396.17,396.176,0)"
^XMB(3.9,23,2,31264,0)="TEMPLATES UTILIZED SUB-FIELD^^.01^1"
^XMB(3.9,23,2,31265,0)="""^DD"",396.17,396.176,0,""DT"")"
^XMB(3.9,23,2,31266,0)="3021003"
^XMB(3.9,23,2,31267,0)="""^DD"",396.17,396.176,0,""NM"",""TEMPLATES UTILIZED"")"
^XMB(3.9,23,2,31268,0)=" "
^XMB(3.9,23,2,31269,0)="""^DD"",396.17,396.176,0,""UP"")"
^XMB(3.9,23,2,31270,0)="396.17"
^XMB(3.9,23,2,31271,0)="""^DD"",396.17,396.176,.01,0)"
^XMB(3.9,23,2,31272,0)="TEMPLATES UTILIZED^WL^^0;1^Q"
^XMB(3.9,23,2,31273,0)="""^DD"",396.17,396.176,.01,""DT"")"
^XMB(3.9,23,2,31274,0)="3030530"
^XMB(3.9,23,2,31275,0)="""^DD"",396.17,396.178,0)"
^XMB(3.9,23,2,31276,0)="FORM DATA SUB-FIELD^^.01^1"
^XMB(3.9,23,2,31277,0)="""^DD"",396.17,396.178,0,""DT"")"
^XMB(3.9,23,2,31278,0)="3021001"
^XMB(3.9,23,2,31279,0)="""^DD"",396.17,396.178,0,""NM"",""FORM DATA"")"
^XMB(3.9,23,2,31280,0)=" "
^XMB(3.9,23,2,31281,0)="""^DD"",396.17,396.178,0,""UP"")"
^XMB(3.9,23,2,31282,0)="396.17"
^XMB(3.9,23,2,31283,0)="""^DD"",396.17,396.178,.01,0)"
^XMB(3.9,23,2,31284,0)="FORM DATA^WL^^0;1^Q"
^XMB(3.9,23,2,31285,0)="""^DD"",396.17,396.178,.01,""DT"")"
^XMB(3.9,23,2,31286,0)="3030530"
^XMB(3.9,23,2,31287,0)="""^DD"",396.17,396.19,0)"
^XMB(3.9,23,2,31288,0)="FORM SAVE BUFFER SUB-FIELD^^3^4"
^XMB(3.9,23,2,31289,0)="""^DD"",396.17,396.19,0,""DT"")"
^XMB(3.9,23,2,31290,0)="3050314"
^XMB(3.9,23,2,31291,0)="""^DD"",396.17,396.19,0,""IX"",""B"",396.19,.01)"
^XMB(3.9,23,2,31292,0)=""
^XMB(3.9,23,2,31293,0)="""^DD"",396.17,396.19,0,""NM"",""FORM SAVE BUFFER"")"
^XMB(3.9,23,2,31294,0)=" "
^XMB(3.9,23,2,31295,0)="""^DD"",396.17,396.19,0,""UP"")"
^XMB(3.9,23,2,31296,0)="396.17"
^XMB(3.9,23,2,31297,0)="""^DD"",396.17,396.19,.01,0)"
^XMB(3.9,23,2,31298,0)="DATE/TIME^MRDa^^0;1^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,23,2,31299,0)="""^DD"",396.17,396.19,.01,1,0)"
^XMB(3.9,23,2,31300,0)="^.1"
^XMB(3.9,23,2,31301,0)="""^DD"",396.17,396.19,.01,1,1,0)"
^XMB(3.9,23,2,31302,0)="396.19^B"
^XMB(3.9,23,2,31303,0)="""^DD"",396.17,396.19,.01,1,1,1)"
^XMB(3.9,23,2,31304,0)="S ^DVB(396.17,DA(1),9,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,23,2,31305,0)="""^DD"",396.17,396.19,.01,1,1,2)"
^XMB(3.9,23,2,31306,0)="K ^DVB(396.17,DA(1),9,""B"",$E(X,1,30),DA)"
^XMB(3.9,23,2,31307,0)="""^DD"",396.17,396.19,.01,3)"
^XMB(3.9,23,2,31308,0)=" "
^XMB(3.9,23,2,31309,0)="""^DD"",396.17,396.19,.01,""AUDIT"")"
^XMB(3.9,23,2,31310,0)="y"
^XMB(3.9,23,2,31311,0)="""^DD"",396.17,396.19,.01,""DT"")"
^XMB(3.9,23,2,31312,0)="3060428"
^XMB(3.9,23,2,31313,0)="""^DD"",396.17,396.19,1,0)"
^XMB(3.9,23,2,31314,0)="SAVE DATA^396.191^^1;0"
^XMB(3.9,23,2,31315,0)="""^DD"",396.17,396.19,2,0)"
^XMB(3.9,23,2,31316,0)="COMMENTS^F^^2;1^K:$L(X)>80!($L(X)<1) X"
^XMB(3.9,23,2,31317,0)="""^DD"",396.17,396.19,2,3)"
^XMB(3.9,23,2,31318,0)="Answer must be 1-80 characters in length."
^XMB(3.9,23,2,31319,0)="""^DD"",396.17,396.19,2,""DT"")"
^XMB(3.9,23,2,31320,0)="3050310"
^XMB(3.9,23,2,31321,0)="""^DD"",396.17,396.19,3,0)"
^XMB(3.9,23,2,31322,0)="TEMPLATES UTILIZED^396.193^^3;0"
^XMB(3.9,23,2,31323,0)="""^DD"",396.17,396.191,0)"
^XMB(3.9,23,2,31324,0)="SAVE DATA SUB-FIELD^^.01^1"
^XMB(3.9,23,2,31325,0)="""^DD"",396.17,396.191,0,""DT"")"
^XMB(3.9,23,2,31326,0)="3050308"
^XMB(3.9,23,2,31327,0)="""^DD"",396.17,396.191,0,""NM"",""SAVE DATA"")"
^XMB(3.9,23,2,31328,0)=" "
^XMB(3.9,23,2,31329,0)="""^DD"",396.17,396.191,0,""UP"")"
^XMB(3.9,23,2,31330,0)="396.19"
^XMB(3.9,23,2,31331,0)="""^DD"",396.17,396.191,.01,0)"
^XMB(3.9,23,2,31332,0)="SAVE DATA^W^^0;1^Q"
^XMB(3.9,23,2,31333,0)="""^DD"",396.17,396.191,.01,""DT"")"
^XMB(3.9,23,2,31334,0)="3050308"
^XMB(3.9,23,2,31335,0)="""^DD"",396.17,396.193,0)"
^XMB(3.9,23,2,31336,0)="TEMPLATES UTILIZED SUB-FIELD^^.01^1"
^XMB(3.9,23,2,31337,0)="""^DD"",396.17,396.193,0,""DT"")"
^XMB(3.9,23,2,31338,0)="3050314"
^XMB(3.9,23,2,31339,0)="""^DD"",396.17,396.193,0,""NM"",""TEMPLATES UTILIZED"")"
^XMB(3.9,23,2,31340,0)=" "
^XMB(3.9,23,2,31341,0)="""^DD"",396.17,396.193,0,""UP"")"
^XMB(3.9,23,2,31342,0)="396.19"
^XMB(3.9,23,2,31343,0)="""^DD"",396.17,396.193,.01,0)"
^XMB(3.9,23,2,31344,0)="TEMPLATES UTILIZED^WL^^0;1^Q"
^XMB(3.9,23,2,31345,0)="""^DD"",396.17,396.193,.01,""DT"")"
^XMB(3.9,23,2,31346,0)="3050314"
^XMB(3.9,23,2,31347,0)="""^DD"",396.18,396.18,0)"
^XMB(3.9,23,2,31348,0)="FIELD^^10^10"
^XMB(3.9,23,2,31349,0)="""^DD"",396.18,396.18,0,""DDA"")"
^XMB(3.9,23,2,31350,0)="N"
^XMB(3.9,23,2,31351,0)="""^DD"",396.18,396.18,0,""DT"")"
^XMB(3.9,23,2,31352,0)="3051020"
^XMB(3.9,23,2,31353,0)="""^DD"",396.18,396.18,0,""IX"",""AV"",396.18,.01)"
^XMB(3.9,23,2,31354,0)=""
^XMB(3.9,23,2,31355,0)="""^DD"",396.18,396.18,0,""IX"",""B"",396.18,.01)"
^XMB(3.9,23,2,31356,0)=""
^XMB(3.9,23,2,31357,0)="""^DD"",396.18,396.18,0,""NM"",""CAPRI TEMPLATE DEFINITIONS"")"
^XMB(3.9,23,2,31358,0)=" "
^XMB(3.9,23,2,31359,0)="""^DD"",396.18,396.18,0,""VRPK"")"
^XMB(3.9,23,2,31360,0)="DVBA"
^XMB(3.9,23,2,31361,0)="""^DD"",396.18,396.18,.01,0)"
^XMB(3.9,23,2,31362,0)="NAME^RF^^0;1^K:$L(X)>250!($L(X)<4)!'(X'?1P.E) X"
^XMB(3.9,23,2,31363,0)="""^DD"",396.18,396.18,.01,1,0)"
^XMB(3.9,23,2,31364,0)="^.1"
^XMB(3.9,23,2,31365,0)="""^DD"",396.18,396.18,.01,1,1,0)"
^XMB(3.9,23,2,31366,0)="396.18^B"
^XMB(3.9,23,2,31367,0)="""^DD"",396.18,396.18,.01,1,1,1)"
^XMB(3.9,23,2,31368,0)="S ^DVB(396.18,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,23,2,31369,0)="""^DD"",396.18,396.18,.01,1,1,2)"
^XMB(3.9,23,2,31370,0)="K ^DVB(396.18,""B"",$E(X,1,30),DA)"
^XMB(3.9,23,2,31371,0)="""^DD"",396.18,396.18,.01,1,2,0)"
^XMB(3.9,23,2,31372,0)="396.18^AV^MUMPS"
^XMB(3.9,23,2,31373,0)="""^DD"",396.18,396.18,.01,1,2,1)"
^XMB(3.9,23,2,31374,0)="Q:X'[""~""  N A,B S A=$E($P(X,""~""),1,30),B=$P(X,""~"",2) S:A]""""&B ^DVB(396.18,""AV"",+B,+$P(B,""T"",2),A,DA)="""""
^XMB(3.9,23,2,31375,0)="""^DD"",396.18,396.18,.01,1,2,2)"
^XMB(3.9,23,2,31376,0)="Q:X'[""~""  N A,B S A=$E($P(X,""~""),1,30),B=$P(X,""~"",2) K:A]""""&B ^DVB(396.18,""AV"",+$P(B,""T"",2),+B,A,DA)"
^XMB(3.9,23,2,31377,0)="""^DD"",396.18,396.18,.01,1,2,""%D"",0)"
^XMB(3.9,23,2,31378,0)="^^14^14^3050408^"
^XMB(3.9,23,2,31379,0)="""^DD"",396.18,396.18,.01,1,2,""%D"",1,0)"
^XMB(3.9,23,2,31380,0)="""AV"" Cross Reference will be in the following format:"
^XMB(3.9,23,2,31381,0)="""^DD"",396.18,396.18,.01,1,2,""%D"",2,0)"
^XMB(3.9,23,2,31382,0)=" ^DVB(396.18,""AV"",<patnum>,<testver>,<name>,DA) = """""
^XMB(3.9,23,2,31383,0)="""^DD"",396.18,396.18,.01,1,2,""%D"",3,0)"
^XMB(3.9,23,2,31384,0)="  where:"
^XMB(3.9,23,2,31385,0)="""^DD"",396.18,396.18,.01,1,2,""%D"",4,0)"
^XMB(3.9,23,2,31386,0)="   patnum is the patch number"
^XMB(3.9,23,2,31387,0)="""^DD"",396.18,396.18,.01,1,2,""%D"",5,0)"
^XMB(3.9,23,2,31388,0)="   testver is ""Test Version"" number, (0 for production)"
^XMB(3.9,23,2,31389,0)="""^DD"",396.18,396.18,.01,1,2,""%D"",6,0)"
^XMB(3.9,23,2,31390,0)="   name is 1st 30 chars of TemplateName"
^XMB(3.9,23,2,31391,0)="""^DD"",396.18,396.18,.01,1,2,""%D"",7,0)"
^XMB(3.9,23,2,31392,0)=" "
^XMB(3.9,23,2,31393,0)="""^DD"",396.18,396.18,.01,1,2,""%D"",8,0)"
^XMB(3.9,23,2,31394,0)="Examples:"
^XMB(3.9,23,2,31395,0)="""^DD"",396.18,396.18,.01,1,2,""%D"",9,0)"
^XMB(3.9,23,2,31396,0)="  TemplateName: JOINTS~78T1"
^XMB(3.9,23,2,31397,0)="""^DD"",396.18,396.18,.01,1,2,""%D"",10,0)"
^XMB(3.9,23,2,31398,0)="  AV cross ref: ^DVB(396.18,""AV"",78,1,""JOINTS"",DA)="""""
^XMB(3.9,23,2,31399,0)="""^DD"",396.18,396.18,.01,1,2,""%D"",11,0)"
^XMB(3.9,23,2,31400,0)=" "
^XMB(3.9,23,2,31401,0)="""^DD"",396.18,396.18,.01,1,2,""%D"",12,0)"
^XMB(3.9,23,2,31402,0)="  TemplateName: SPINE~92"
^XMB(3.9,23,2,31403,0)="""^DD"",396.18,396.18,.01,1,2,""%D"",13,0)"
^XMB(3.9,23,2,31404,0)="  AV cross ref: ^DVB(396.18,""AV"",92,0,""SPINE"",DA)="""""
^XMB(3.9,23,2,31405,0)="""^DD"",396.18,396.18,.01,1,2,""%D"",14,0)"
^XMB(3.9,23,2,31406,0)=" "
^XMB(3.9,23,2,31407,0)="""^DD"",396.18,396.18,.01,1,2,""DT"")"
^XMB(3.9,23,2,31408,0)="3050318"
^XMB(3.9,23,2,31409,0)="""^DD"",396.18,396.18,.01,3)"
^XMB(3.9,23,2,31410,0)="Answer must be 4-250 characters in length."
^XMB(3.9,23,2,31411,0)="""^DD"",396.18,396.18,.01,21,0)"
^XMB(3.9,23,2,31412,0)="^.001^13^13^3050408^^^^"
^XMB(3.9,23,2,31413,0)="""^DD"",396.18,396.18,.01,21,1,0)"
^XMB(3.9,23,2,31414,0)="This is the name of the template as displayed in the CAPRI GUI."
^XMB(3.9,23,2,31415,0)="""^DD"",396.18,396.18,.01,21,2,0)"
^XMB(3.9,23,2,31416,0)=" "
^XMB(3.9,23,2,31417,0)="""^DD"",396.18,396.18,.01,21,3,0)"
^XMB(3.9,23,2,31418,0)="Name is TemplateName~<patnum>"
^XMB(3.9,23,2,31419,0)="""^DD"",396.18,396.18,.01,21,4,0)"
^XMB(3.9,23,2,31420,0)="  or is TemplateName~<patnum>T<testver>"
^XMB(3.9,23,2,31421,0)="""^DD"",396.18,396.18,.01,21,5,0)"
^XMB(3.9,23,2,31422,0)=" "
^XMB(3.9,23,2,31423,0)="""^DD"",396.18,396.18,.01,21,6,0)"
^XMB(3.9,23,2,31424,0)="   where:"
^XMB(3.9,23,2,31425,0)="""^DD"",396.18,396.18,.01,21,7,0)"
^XMB(3.9,23,2,31426,0)="    patnum is the patch number"
^XMB(3.9,23,2,31427,0)="""^DD"",396.18,396.18,.01,21,8,0)"
^XMB(3.9,23,2,31428,0)="    testver is ""Test Version"" number"
^XMB(3.9,23,2,31429,0)="""^DD"",396.18,396.18,.01,21,9,0)"
^XMB(3.9,23,2,31430,0)=" "
^XMB(3.9,23,2,31431,0)="""^DD"",396.18,396.18,.01,21,10,0)"
^XMB(3.9,23,2,31432,0)="Examples:"
^XMB(3.9,23,2,31433,0)="""^DD"",396.18,396.18,.01,21,11,0)"
^XMB(3.9,23,2,31434,0)="   JOINTS~78T1"
^XMB(3.9,23,2,31435,0)="""^DD"",396.18,396.18,.01,21,12,0)"
^XMB(3.9,23,2,31436,0)="   SPINE~92"
^XMB(3.9,23,2,31437,0)="""^DD"",396.18,396.18,.01,21,13,0)"
^XMB(3.9,23,2,31438,0)=" "
^XMB(3.9,23,2,31439,0)="""^DD"",396.18,396.18,.01,""DT"")"
^XMB(3.9,23,2,31440,0)="3050408"
^XMB(3.9,23,2,31441,0)="""^DD"",396.18,396.18,1,0)"
^XMB(3.9,23,2,31442,0)="DESCRIPTION^396.181^^1;0"
^XMB(3.9,23,2,31443,0)="""^DD"",396.18,396.18,1,21,0)"
^XMB(3.9,23,2,31444,0)="^^2^2^3030530^"
^XMB(3.9,23,2,31445,0)="""^DD"",396.18,396.18,1,21,1,0)"
^XMB(3.9,23,2,31446,0)="The text placed in this field will be displayed in the template selection "
^XMB(3.9,23,2,31447,0)="""^DD"",396.18,396.18,1,21,2,0)"
^XMB(3.9,23,2,31448,0)="dialog in the CAPRI GUI to assist the user in making a selection."
^XMB(3.9,23,2,31449,0)="""^DD"",396.18,396.18,2,0)"
^XMB(3.9,23,2,31450,0)="ACTIVATION DATE^D^^2;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,23,2,31451,0)="""^DD"",396.18,396.18,2,21,0)"
^XMB(3.9,23,2,31452,0)="^^3^3^3030530^"
^XMB(3.9,23,2,31453,0)="""^DD"",396.18,396.18,2,21,1,0)"
^XMB(3.9,23,2,31454,0)="If a template is loaded but should not become active until a date in the "
^XMB(3.9,23,2,31455,0)="""^DD"",396.18,396.18,2,21,2,0)"
^XMB(3.9,23,2,31456,0)="future, that date can be set with this field.  If the date entered has "
^XMB(3.9,23,2,31457,0)="""^DD"",396.18,396.18,2,21,3,0)"
^XMB(3.9,23,2,31458,0)="already passed, the template will become active immediately."
^XMB(3.9,23,2,31459,0)="""^DD"",396.18,396.18,2,""DT"")"
^XMB(3.9,23,2,31460,0)="3021001"
^XMB(3.9,23,2,31461,0)="""^DD"",396.18,396.18,3,0)"
^XMB(3.9,23,2,31462,0)="DE-ACTIVATION DATE^D^^2;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,23,2,31463,0)="""^DD"",396.18,396.18,3,21,0)"
^XMB(3.9,23,2,31464,0)="^^7^7^3030530^"
^XMB(3.9,23,2,31465,0)="""^DD"",396.18,396.18,3,21,1,0)"
^XMB(3.9,23,2,31466,0)="Placing a date in this field will de-activate the template on the date "
^XMB(3.9,23,2,31467,0)="""^DD"",396.18,396.18,3,21,2,0)"
^XMB(3.9,23,2,31468,0)="specified.  It will often occur that an entry will contain a "
^XMB(3.9,23,2,31469,0)="""^DD"",396.18,396.18,3,21,3,0)"
^XMB(3.9,23,2,31470,0)="de-activation date and another entry in the file that's meant to replace "
^XMB(3.9,23,2,31471,0)="""^DD"",396.18,396.18,3,21,4,0)"
^XMB(3.9,23,2,31472,0)="it will contain the same date but in its activation date field.   Once a "
^XMB(3.9,23,2,31473,0)="""^DD"",396.18,396.18,3,21,5,0)"
^XMB(3.9,23,2,31474,0)="template has de-activated, a user will not be able to create a new "
^XMB(3.9,23,2,31475,0)="""^DD"",396.18,396.18,3,21,6,0)"
^XMB(3.9,23,2,31476,0)="document using that template but can still access old documents "
^XMB(3.9,23,2,31477,0)="""^DD"",396.18,396.18,3,21,7,0)"
^XMB(3.9,23,2,31478,0)="previously created with the template."
^XMB(3.9,23,2,31479,0)="""^DD"",396.18,396.18,3,""DT"")"
^XMB(3.9,23,2,31480,0)="3021001"
^XMB(3.9,23,2,31481,0)="""^DD"",396.18,396.18,4,0)"
^XMB(3.9,23,2,31482,0)="FORM DEFINITION^396.184^^3;0"
^XMB(3.9,23,2,31483,0)="""^DD"",396.18,396.18,4,21,0)"
^XMB(3.9,23,2,31484,0)="^.001^4^4^3031113^^"
^XMB(3.9,23,2,31485,0)="""^DD"",396.18,396.18,4,21,1,0)"
^XMB(3.9,23,2,31486,0)="This field contains the Windows format screen definition that will "
^XMB(3.9,23,2,31487,0)="""^DD"",396.18,396.18,4,21,2,0)"
^XMB(3.9,23,2,31488,0)="generate the template in the CAPRI GUI.  WARNING:  DO NOT MODIFY THIS "
^XMB(3.9,23,2,31489,0)="""^DD"",396.18,396.18,4,21,3,0)"
^XMB(3.9,23,2,31490,0)="FIELD TO PREVENT CORRUPTION OF THE TEMPLATE. If there is a problem, the"
^XMB(3.9,23,2,31491,0)="""^DD"",396.18,396.18,4,21,4,0)"
^XMB(3.9,23,2,31492,0)="field will need to be updated at a national level and re-distributed. "
^XMB(3.9,23,2,31493,0)="""^DD"",396.18,396.18,4,""DT"")"
^XMB(3.9,23,2,31494,0)="3031113"
^XMB(3.9,23,2,31495,0)="""^DD"",396.18,396.18,5,0)"
^XMB(3.9,23,2,31496,0)="LAST UPDATE^D^^2;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,23,2,31497,0)="""^DD"",396.18,396.18,5,3)"
^XMB(3.9,23,2,31498,0)="ENTER THE DATE/TIME THE TEMPLATE WAS UPDATED"
^XMB(3.9,23,2,31499,0)="""^DD"",396.18,396.18,5,21,0)"
^XMB(3.9,23,2,31500,0)="^^3^3^3040615^"
^XMB(3.9,23,2,31501,0)="""^DD"",396.18,396.18,5,21,1,0)"
^XMB(3.9,23,2,31502,0)="FACILITATES THE CUTTING OF BUILDS SINCE A"
^XMB(3.9,23,2,31503,0)="""^DD"",396.18,396.18,5,21,2,0)"
^XMB(3.9,23,2,31504,0)="SCREEN CAN CHECK FOR THOSE WHOSE 'LAST UPDATE'"
^XMB(3.9,23,2,31505,0)="""^DD"",396.18,396.18,5,21,3,0)"
^XMB(3.9,23,2,31506,0)="IS GREATER THAN THE LAST DISTRIBUTION."
^XMB(3.9,23,2,31507,0)="""^DD"",396.18,396.18,5,""DT"")"
^XMB(3.9,23,2,31508,0)="3040615"
^XMB(3.9,23,2,31509,0)="""^DD"",396.18,396.18,7,0)"
^XMB(3.9,23,2,31510,0)="SELECTABLE BY USER?^Sa^1:YES;0:NO;^6;1^Q"
^XMB(3.9,23,2,31511,0)="""^DD"",396.18,396.18,7,21,0)"
^XMB(3.9,23,2,31512,0)="^.001^2^2^3030709^^^"
^XMB(3.9,23,2,31513,0)="""^DD"",396.18,396.18,7,21,1,0)"
^XMB(3.9,23,2,31514,0)="If set to NO, this template will be accessible by CAPRI for merging "
^XMB(3.9,23,2,31515,0)="""^DD"",396.18,396.18,7,21,2,0)"
^XMB(3.9,23,2,31516,0)="purposes but not selectable by the user in the forms list."
^XMB(3.9,23,2,31517,0)="""^DD"",396.18,396.18,7,""AUDIT"")"
^XMB(3.9,23,2,31518,0)="e"
^XMB(3.9,23,2,31519,0)="""^DD"",396.18,396.18,7,""DT"")"
^XMB(3.9,23,2,31520,0)="3051103"
^XMB(3.9,23,2,31521,0)="""^DD"",396.18,396.18,8,0)"
^XMB(3.9,23,2,31522,0)="OBJECT COUNT^NJ7,0^^6;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^XMB(3.9,23,2,31523,0)="""^DD"",396.18,396.18,8,3)"
^XMB(3.9,23,2,31524,0)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^XMB(3.9,23,2,31525,0)="""^DD"",396.18,396.18,8,21,0)"
^XMB(3.9,23,2,31526,0)="^.001^1^1^3040714^^"
^XMB(3.9,23,2,31527,0)="""^DD"",396.18,396.18,8,21,1,0)"
^XMB(3.9,23,2,31528,0)="Enter the number of Windows Objects contained within the Template."
^XMB(3.9,23,2,31529,0)="""^DD"",396.18,396.18,8,""DT"")"
^XMB(3.9,23,2,31530,0)="3040714"
^XMB(3.9,23,2,31531,0)="""^DD"",396.18,396.18,9,0)"
^XMB(3.9,23,2,31532,0)="RELEASED?^S^0:NO;1:YES;9:TEST;^4;1^Q"
^XMB(3.9,23,2,31533,0)="""^DD"",396.18,396.18,9,""DT"")"
^XMB(3.9,23,2,31534,0)="3051020"
^XMB(3.9,23,2,31535,0)="""^DD"",396.18,396.18,10,0)"
^XMB(3.9,23,2,31536,0)="CRC^F^^4;2^K:$L(X)>20!($L(X)<1) X"
^XMB(3.9,23,2,31537,0)="""^DD"",396.18,396.18,10,3)"
^XMB(3.9,23,2,31538,0)="Answer must be 1-20 characters in length."
^XMB(3.9,23,2,31539,0)="""^DD"",396.18,396.18,10,21,0)"
^XMB(3.9,23,2,31540,0)="^^2^2^3060207^"
^XMB(3.9,23,2,31541,0)="""^DD"",396.18,396.18,10,21,1,0)"
^XMB(3.9,23,2,31542,0)="This is a value used internally by the CAPRI team to verify a template's "
^XMB(3.9,23,2,31543,0)="""^DD"",396.18,396.18,10,21,2,0)"
^XMB(3.9,23,2,31544,0)="version prior to being distributed to the field."
^XMB(3.9,23,2,31545,0)="""^DD"",396.18,396.18,10,""DT"")"
^XMB(3.9,23,2,31546,0)="3060207"
^XMB(3.9,23,2,31547,0)="""^DD"",396.18,396.181,0)"
^XMB(3.9,23,2,31548,0)="DESCRIPTION SUB-FIELD^^.01^1"
^XMB(3.9,23,2,31549,0)="""^DD"",396.18,396.181,0,""DT"")"
^XMB(3.9,23,2,31550,0)="3021001"
^XMB(3.9,23,2,31551,0)="""^DD"",396.18,396.181,0,""NM"",""DESCRIPTION"")"
^XMB(3.9,23,2,31552,0)=" "
^XMB(3.9,23,2,31553,0)="""^DD"",396.18,396.181,0,""UP"")"
^XMB(3.9,23,2,31554,0)="396.18"
^XMB(3.9,23,2,31555,0)="""^DD"",396.18,396.181,.01,0)"
^XMB(3.9,23,2,31556,0)="DESCRIPTION^W^^0;1^Q"
^XMB(3.9,23,2,31557,0)="""^DD"",396.18,396.181,.01,""DT"")"
^XMB(3.9,23,2,31558,0)="3021001"
^XMB(3.9,23,2,31559,0)="""^DD"",396.18,396.184,0)"
^XMB(3.9,23,2,31560,0)="FORM DEFINITION SUB-FIELD^^.01^1"
^XMB(3.9,23,2,31561,0)="""^DD"",396.18,396.184,0,""DT"")"
^XMB(3.9,23,2,31562,0)="3021001"
^XMB(3.9,23,2,31563,0)="""^DD"",396.18,396.184,0,""NM"",""FORM DEFINITION"")"
^XMB(3.9,23,2,31564,0)=" "
^XMB(3.9,23,2,31565,0)="""^DD"",396.18,396.184,0,""UP"")"
^XMB(3.9,23,2,31566,0)="396.18"
^XMB(3.9,23,2,31567,0)="""^DD"",396.18,396.184,.01,0)"
^XMB(3.9,23,2,31568,0)="FORM DEFINITION^WL^^0;1^Q"
^XMB(3.9,23,2,31569,0)="""^DD"",396.18,396.184,.01,""DT"")"
^XMB(3.9,23,2,31570,0)="3031113"
^XMB(3.9,23,2,31571,0)="""^DD"",396.4,396.4,0)"
^XMB(3.9,23,2,31572,0)="FIELD^^1^26"
^XMB(3.9,23,2,31573,0)="""^DD"",396.4,396.4,0,""DDA"")"
^XMB(3.9,23,2,31574,0)="N"
^XMB(3.9,23,2,31575,0)="""^DD"",396.4,396.4,0,""DT"")"
^XMB(3.9,23,2,31576,0)="3060616"
^XMB(3.9,23,2,31577,0)="""^DD"",396.4,396.4,0,""ID"",.03)"
^XMB(3.9,23,2,31578,0)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DVB(396.6,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(396.6,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^XMB(3.9,23,2,31579,0)="""^DD"",396.4,396.4,0,""IX"",""AC"",396.4,.03)"
^XMB(3.9,23,2,31580,0)=""
^XMB(3.9,23,2,31581,0)="""^DD"",396.4,396.4,0,""IX"",""AD"",396.4,.04)"
^XMB(3.9,23,2,31582,0)=""
^XMB(3.9,23,2,31583,0)="""^DD"",396.4,396.4,0,""IX"",""AE"",396.4,.03)"
^XMB(3.9,23,2,31584,0)=""
^XMB(3.9,23,2,31585,0)="""^DD"",396.4,396.4,0,""IX"",""AF"",396.4,.02)"
^XMB(3.9,23,2,31586,0)=""
^XMB(3.9,23,2,31587,0)="""^DD"",396.4,396.4,0,""IX"",""AIT"",396.4,.11)"
^XMB(3.9,23,2,31588,0)=""
^XMB(3.9,23,2,31589,0)="""^DD"",396.4,396.4,0,""IX"",""AIT2"",396.4,.03)"
^XMB(3.9,23,2,31590,0)=""
^XMB(3.9,23,2,31591,0)="""^DD"",396.4,396.4,0,""IX"",""APE"",396.4,.02)"
^XMB(3.9,23,2,31592,0)=""
^XMB(3.9,23,2,31593,0)="""^DD"",396.4,396.4,0,""IX"",""APS"",396.4,.02)"
^XMB(3.9,23,2,31594,0)=""
^XMB(3.9,23,2,31595,0)="""^DD"",396.4,396.4,0,""IX"",""ARQ"",396.4,.03)"
^XMB(3.9,23,2,31596,0)=""
^XMB(3.9,23,2,31597,0)="""^DD"",396.4,396.4,0,""IX"",""B"",396.4,.01)"
^XMB(3.9,23,2,31598,0)=""
^XMB(3.9,23,2,31599,0)="""^DD"",396.4,396.4,0,""IX"",""C"",396.4,.02)"
^XMB(3.9,23,2,31600,0)=""
^XMB(3.9,23,2,31601,0)="""^DD"",396.4,396.4,0,""IX"",""F"",396.4,.03)"
^XMB(3.9,23,2,31602,0)=""
^XMB(3.9,23,2,31603,0)="""^DD"",396.4,396.4,0,""NM"",""2507 EXAM"")"
^XMB(3.9,23,2,31604,0)=""
^XMB(3.9,23,2,31605,0)="""^DD"",396.4,396.4,0,""PT"",396.1718,.01)"
^XMB(3.9,23,2,31606,0)=""
^XMB(3.9,23,2,31607,0)="""^DD"",396.4,396.4,0,""PT"",500061,4)"
^XMB(3.9,23,2,31608,0)=""
^XMB(3.9,23,2,31609,0)="""^DD"",396.4,396.4,.01,0)"
^XMB(3.9,23,2,31610,0)="EXAM REFERENCE NUMBER^RNJ12,0I^^0;1^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^XMB(3.9,23,2,31611,0)="""^DD"",396.4,396.4,.01,1,0)"
^XMB(3.9,23,2,31612,0)="^.1"
^XMB(3.9,23,2,31613,0)="""^DD"",396.4,396.4,.01,1,1,0)"
^XMB(3.9,23,2,31614,0)="396.4^B"
^XMB(3.9,23,2,31615,0)="""^DD"",396.4,396.4,.01,1,1,1)"
^XMB(3.9,23,2,31616,0)="S ^DVB(396.4,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,23,2,31617,0)="""^DD"",396.4,396.4,.01,1,1,2)"
^XMB(3.9,23,2,31618,0)="K ^DVB(396.4,""B"",$E(X,1,30),DA)"
^XMB(3.9,23,2,31619,0)="""^DD"",396.4,396.4,.01,3)"
^XMB(3.9,23,2,31620,0)="Type a Number between 1 and 999999999999, 0 Decimal Digits"
^XMB(3.9,23,2,31621,0)="""^DD"",396.4,396.4,.01,4)"
^XMB(3.9,23,2,31622,0)=""
^XMB(3.9,23,2,31623,0)="""^DD"",396.4,396.4,.01,21,0)"
^XMB(3.9,23,2,31624,0)="^^2^2^2941017^^^^"
^XMB(3.9,23,2,31625,0)="""^DD"",396.4,396.4,.01,21,1,0)"
^XMB(3.9,23,2,31626,0)="This field contains an entry number of the exam in the 2507 Exam file."
^XMB(3.9,23,2,31627,0)="""^DD"",396.4,396.4,.01,21,2,0)"
^XMB(3.9,23,2,31628,0)="It is not related to an Exam number or a worksheet number."
^XMB(3.9,23,2,31629,0)="""^DD"",396.4,396.4,.01,23,0)"
^XMB(3.9,23,2,31630,0)="^^2^2^2941017^^^^"
^XMB(3.9,23,2,31631,0)="""^DD"",396.4,396.4,.01,23,1,0)"
^XMB(3.9,23,2,31632,0)="This field is generated from the LAST EXAM NUMBER field in the AMIE site"
^XMB(3.9,23,2,31633,0)="""^DD"",396.4,396.4,.01,23,2,0)"
^XMB(3.9,23,2,31634,0)="parameter file."
^XMB(3.9,23,2,31635,0)="""^DD"",396.4,396.4,.01,""DT"")"
^XMB(3.9,23,2,31636,0)="2941220"
^XMB(3.9,23,2,31637,0)="""^DD"",396.4,396.4,.02,0)"
^XMB(3.9,23,2,31638,0)="2507 REQUEST^RP396.3'I^DVB(396.3,^0;2^Q"
^XMB(3.9,23,2,31639,0)="""^DD"",396.4,396.4,.02,1,0)"
^XMB(3.9,23,2,31640,0)="^.1^^-1"
^XMB(3.9,23,2,31641,0)="""^DD"",396.4,396.4,.02,1,1,0)"
^XMB(3.9,23,2,31642,0)="396.4^C"
^XMB(3.9,23,2,31643,0)="""^DD"",396.4,396.4,.02,1,1,1)"
^XMB(3.9,23,2,31644,0)="S ^DVB(396.4,""C"",$E(X,1,30),DA)="""""
^XMB(3.9,23,2,31645,0)="""^DD"",396.4,396.4,.02,1,1,2)"
^XMB(3.9,23,2,31646,0)="K ^DVB(396.4,""C"",$E(X,1,30),DA)"
^XMB(3.9,23,2,31647,0)="""^DD"",396.4,396.4,.02,1,1,""%D"",0)"
^XMB(3.9,23,2,31648,0)="^^1^1^2940304^"
^XMB(3.9,23,2,31649,0)="""^DD"",396.4,396.4,.02,1,1,""%D"",1,0)"
^XMB(3.9,23,2,31650,0)="This is a standard FM cross reference for this field."
^XMB(3.9,23,2,31651,0)="""^DD"",396.4,396.4,.02,1,1,""DT"")"
^XMB(3.9,23,2,31652,0)="2930218"
^XMB(3.9,23,2,31653,0)="""^DD"",396.4,396.4,.02,1,2,0)"
^XMB(3.9,23,2,31654,0)="396.4^APS^MUMPS"
^XMB(3.9,23,2,31655,0)="""^DD"",396.4,396.4,.02,1,2,1)"
^XMB(3.9,23,2,31656,0)="N A S A=^DVB(396.4,DA,0) I $P(A,U,3)]"""",$P(A,U,4)]"""" S ^DVB(396.4,""APS"",$P(^DVB(396.3,$E(X,1,30),0),U,1),$P(A,U,3),$P(A,U,4),DA)="""""
^XMB(3.9,23,2,31657,0)="""^DD"",396.4,396.4,.02,1,2,2)"
^XMB(3.9,23,2,31658,0)="N A S A=^DVB(396.4,DA,0) I $P(A,U,3)]"""",$P(A,U,4)]"""" K ^DVB(396.4,""APS"",$P(^DVB(396.3,$E(X,1,30),0),U,1),$P(A,U,3),$P(A,U,4),DA)"
^XMB(3.9,23,2,31659,0)="""^DD"",396.4,396.4,.02,1,2,""%D"",0)"
^XMB(3.9,23,2,31660,0)="^^3^3^2930510^^"
^XMB(3.9,23,2,31661,0)="""^DD"",396.4,396.4,.02,1,2,""%D"",1,0)"
^XMB(3.9,23,2,31662,0)="This cross reference contains the patient's internal file number, the exam"
^XMB(3.9,23,2,31663,0)="""^DD"",396.4,396.4,.02,1,2,""%D"",2,0)"
^XMB(3.9,23,2,31664,0)="IFN and the exam status.  It is set on two other fields .03 and .04.  "
^XMB(3.9,23,2,31665,0)="""^DD"",396.4,396.4,.02,1,2,""%D"",3,0)"
^XMB(3.9,23,2,31666,0)="Recross referencing any one of these fields will be acceptable."
^XMB(3.9,23,2,31667,0)="""^DD"",396.4,396.4,.02,1,2,""DT"")"
^XMB(3.9,23,2,31668,0)="2930422"
^XMB(3.9,23,2,31669,0)="""^DD"",396.4,396.4,.02,1,3,0)"
^XMB(3.9,23,2,31670,0)="396.4^APE^MUMPS"
^XMB(3.9,23,2,31671,0)="""^DD"",396.4,396.4,.02,1,3,1)"
^XMB(3.9,23,2,31672,0)="N A,B S A=^DVB(396.3,$E(X,1,30),0) I $P(A,U,1)]"""",$P(A,U,2)]"""" S B=^DVB(396.4,DA,0) I $P(B,U,3)]"""" S ^DVB(396.4,""APE"",$P(A,U,1),$P(^DVB(396.6,$P(B,U,3),0),U,1),$P(A,U,2),DA)="""""
^XMB(3.9,23,2,31673,0)="""^DD"",396.4,396.4,.02,1,3,2)"
^XMB(3.9,23,2,31674,0)="N A,B S A=^DVB(396.3,$E(X,1,30),0) I $P(A,U,1)]"""",$P(A,U,2)]"""" S B=^DVB(396.4,DA,0) I $P(B,U,3)]"""" K ^DVB(396.4,""APE"",$P(A,U,1),$P(^DVB(396.6,$P(B,U,3),0),U,1),$P(A,U,2),DA)"
^XMB(3.9,23,2,31675,0)="""^DD"",396.4,396.4,.02,1,3,""%D"",0)"
^XMB(3.9,23,2,31676,0)="^^3^3^2930510^"
^XMB(3.9,23,2,31677,0)="""^DD"",396.4,396.4,.02,1,3,""%D"",1,0)"
^XMB(3.9,23,2,31678,0)="This cross reference contains the patient's IFN, the exam name, and the"
^XMB(3.9,23,2,31679,0)="""^DD"",396.4,396.4,.02,1,3,""%D"",2,0)"
^XMB(3.9,23,2,31680,0)="request date.  It is set on one other field .03.  Recross referencing either"
^XMB(3.9,23,2,31681,0)="""^DD"",396.4,396.4,.02,1,3,""%D"",3,0)"
^XMB(3.9,23,2,31682,0)="one of these fields would be acceptable."
^XMB(3.9,23,2,31683,0)="""^DD"",396.4,396.4,.02,1,3,""DT"")"
^XMB(3.9,23,2,31684,0)="2930422"
^XMB(3.9,23,2,31685,0)="""^DD"",396.4,396.4,.02,1,4,0)"
^XMB(3.9,23,2,31686,0)="396.4^AF^MUMPS"
^XMB(3.9,23,2,31687,0)="""^DD"",396.4,396.4,.02,1,4,1)"
^XMB(3.9,23,2,31688,0)="N A S A=$P(^DVB(396.4,DA,0),U,3) I A]"""" S ^DVB(396.4,""ARQ""_X,A,DA)="""""
^XMB(3.9,23,2,31689,0)="""^DD"",396.4,396.4,.02,1,4,2)"
^XMB(3.9,23,2,31690,0)="N A S A=$P(^DVB(396.4,DA,0),U,3) I A]"""" K ^DVB(396.4,""ARQ""_X,A,DA)"
^XMB(3.9,23,2,31691,0)="""^DD"",396.4,396.4,.02,1,4,""%D"",0)"
^XMB(3.9,23,2,31692,0)="^^2^2^2940304^^"
^XMB(3.9,23,2,31693,0)="""^DD"",396.4,396.4,.02,1,4,""%D"",1,0)"
^XMB(3.9,23,2,31694,0)="This cross reference is used to quickly find the correct exams that are"
^XMB(3.9,23,2,31695,0)="""^DD"",396.4,396.4,.02,1,4,""%D"",2,0)"
^XMB(3.9,23,2,31696,0)="related to a specific request."
^XMB(3.9,23,2,31697,0)="""^DD"",396.4,396.4,.02,1,4,""DT"")"
^XMB(3.9,23,2,31698,0)="2930902"
^XMB(3.9,23,2,31699,0)="""^DD"",396.4,396.4,.02,3)"
^XMB(3.9,23,2,31700,0)="Enter the request that this exam belongs to.  You will select the veteran then which request."
^XMB(3.9,23,2,31701,0)="""^DD"",396.4,396.4,.02,21,0)"
^XMB(3.9,23,2,31702,0)="^^2^2^2940721^^"
^XMB(3.9,23,2,31703,0)="""^DD"",396.4,396.4,.02,21,1,0)"
^XMB(3.9,23,2,31704,0)="This field connects the given record with the 2507 request record that"
^XMB(3.9,23,2,31705,0)="""^DD"",396.4,396.4,.02,21,2,0)"
^XMB(3.9,23,2,31706,0)="the exam is on."
^XMB(3.9,23,2,31707,0)="""^DD"",396.4,396.4,.02,23,0)"
^XMB(3.9,23,2,31708,0)="^^1^1^2940721^^"
^XMB(3.9,23,2,31709,0)="""^DD"",396.4,396.4,.02,23,1,0)"
^XMB(3.9,23,2,31710,0)="A pointer to the 2507 Request file (396.3)."
^XMB(3.9,23,2,31711,0)="""^DD"",396.4,396.4,.02,""DT"")"
^XMB(3.9,23,2,31712,0)="2941118"
^XMB(3.9,23,2,31713,0)="""^DD"",396.4,396.4,.03,0)"
^XMB(3.9,23,2,31714,0)="EXAM TYPE^RP396.6'I^DVB(396.6,^0;3^Q"
^XMB(3.9,23,2,31715,0)="""^DD"",396.4,396.4,.03,1,0)"
^XMB(3.9,23,2,31716,0)="^.1"
^XMB(3.9,23,2,31717,0)="""^DD"",396.4,396.4,.03,1,1,0)"
^XMB(3.9,23,2,31718,0)="396.4^ARQ^MUMPS"
^XMB(3.9,23,2,31719,0)="""^DD"",396.4,396.4,.03,1,1,1)"
^XMB(3.9,23,2,31720,0)="N A S A=$P(^DVB(396.4,DA,0),U,2) I A]"""" S ^DVB(396.4,""ARQ""_A,$E(X,1,30),DA)="""""
^XMB(3.9,23,2,31721,0)="""^DD"",396.4,396.4,.03,1,1,2)"
^XMB(3.9,23,2,31722,0)="N A S A=$P(^DVB(396.4,DA,0),U,2) I A]"""" K ^DVB(396.4,""ARQ""_A,$E(X,1,30),DA)"
^XMB(3.9,23,2,31723,0)="""^DD"",396.4,396.4,.03,1,1,""%D"",0)"
^XMB(3.9,23,2,31724,0)="^^1^1^2930902^"
^XMB(3.9,23,2,31725,0)="""^DD"",396.4,396.4,.03,1,1,""%D"",1,0)"
^XMB(3.9,23,2,31726,0)="This cross reference is to aid in the look up on the 2507 exam file 396.4"
^XMB(3.9,23,2,31727,0)="""^DD"",396.4,396.4,.03,1,1,""DT"")"
^XMB(3.9,23,2,31728,0)="2930902"
^XMB(3.9,23,2,31729,0)="""^DD"",396.4,396.4,.03,1,2,0)"
^XMB(3.9,23,2,31730,0)="396.4^AC^MUMPS"
^XMB(3.9,23,2,31731,0)="""^DD"",396.4,396.4,.03,1,2,1)"
^XMB(3.9,23,2,31732,0)="N A S A=^DVB(396.4,DA,0) I $P(A,U,2)]"""",$P(A,U,4)]"""" S ^DVB(396.4,""APS"",$P(^DVB(396.3,$P(A,U,2),0),U,1),$E(X,1,30),$P(A,U,4),DA)="""""
^XMB(3.9,23,2,31733,0)="""^DD"",396.4,396.4,.03,1,2,2)"
^XMB(3.9,23,2,31734,0)="N A S A=^DVB(396.4,DA,0) I $P(A,U,2)]"""",$P(A,U,4)]"""" K ^DVB(396.4,""APS"",$P(^DVB(396.3,$P(A,U,2),0),U,1),$E(X,1,30),$P(A,U,4),DA)"
^XMB(3.9,23,2,31735,0)="""^DD"",396.4,396.4,.03,1,2,""%D"",0)"
^XMB(3.9,23,2,31736,0)="^^3^3^2930510^^^^"
^XMB(3.9,23,2,31737,0)="""^DD"",396.4,396.4,.03,1,2,""%D"",1,0)"
^XMB(3.9,23,2,31738,0)="This cross reference contains the patient's internal file number, the exam "
^XMB(3.9,23,2,31739,0)="""^DD"",396.4,396.4,.03,1,2,""%D"",2,0)"
^XMB(3.9,23,2,31740,0)="IFN and the exam status.  It is set on two other fields .02 and .04.   "
^XMB(3.9,23,2,31741,0)="""^DD"",396.4,396.4,.03,1,2,""%D"",3,0)"
^XMB(3.9,23,2,31742,0)="Recross referencing any one of these fields will be acceptable."
^XMB(3.9,23,2,31743,0)="""^DD"",396.4,396.4,.03,1,2,""DT"")"
^XMB(3.9,23,2,31744,0)="2930422"
^XMB(3.9,23,2,31745,0)="""^DD"",396.4,396.4,.03,1,3,0)"
^XMB(3.9,23,2,31746,0)="396.4^AE^MUMPS"
^XMB(3.9,23,2,31747,0)="""^DD"",396.4,396.4,.03,1,3,1)"
^XMB(3.9,23,2,31748,0)="N A S A=$P(^DVB(396.4,DA,0),U,2) I A]"""" S A=^DVB(396.3,A,0) I $P(A,U,1)]"""",$P(A,U,2)]"""" S ^DVB(396.4,""APE"",$P(A,U,1),$P(^DVB(396.6,$E(X,1,30),0),U,1),$P(A,U,2),DA)="""""
^XMB(3.9,23,2,31749,0)="""^DD"",396.4,396.4,.03,1,3,2)"
^XMB(3.9,23,2,31750,0)="N A S A=$P(^DVB(396.4,DA,0),U,2) I A]"""" S A=^DVB(396.3,A,0) I $P(A,U,1)]"""",$P(A,U,2)]"""" K ^DVB(396.4,""APE"",$P(A,U,1),$P(^DVB(396.6,$E(X,1,30),0),U,1),$P(A,U,2),DA)"
^XMB(3.9,23,2,31751,0)="""^DD"",396.4,396.4,.03,1,3,""%D"",0)"
^XMB(3.9,23,2,31752,0)="^^3^3^2930510^"
^XMB(3.9,23,2,31753,0)="""^DD"",396.4,396.4,.03,1,3,""%D"",1,0)"
^XMB(3.9,23,2,31754,0)="This cross reference contains the patient's IFN, the exam name, and the"
^XMB(3.9,23,2,31755,0)="""^DD"",396.4,396.4,.03,1,3,""%D"",2,0)"
^XMB(3.9,23,2,31756,0)="request date.  It is set on one other field .03.  Recross referencing either"
^XMB(3.9,23,2,31757,0)="""^DD"",396.4,396.4,.03,1,3,""%D"",3,0)"
^XMB(3.9,23,2,31758,0)="one of these fields would be acceptable."
^XMB(3.9,23,2,31759,0)="""^DD"",396.4,396.4,.03,1,3,""DT"")"
^XMB(3.9,23,2,31760,0)="2930422"
^XMB(3.9,23,2,31761,0)="""^DD"",396.4,396.4,.03,1,4,0)"
^XMB(3.9,23,2,31762,0)="396.4^F"
^XMB(3.9,23,2,31763,0)="""^DD"",396.4,396.4,.03,1,4,1)"
^XMB(3.9,23,2,31764,0)="S ^DVB(396.4,""F"",$E(X,1,30),DA)="""""
^XMB(3.9,23,2,31765,0)="""^DD"",396.4,396.4,.03,1,4,2)"
^XMB(3.9,23,2,31766,0)="K ^DVB(396.4,""F"",$E(X,1,30),DA)"
^XMB(3.9,23,2,31767,0)="""^DD"",396.4,396.4,.03,1,4,""DT"")"
^XMB(3.9,23,2,31768,0)="2930218"
^XMB(3.9,23,2,31769,0)="""^DD"",396.4,396.4,.03,1,5,0)"
^XMB(3.9,23,2,31770,0)="396.4^AIT2^MUMPS"
^XMB(3.9,23,2,31771,0)="""^DD"",396.4,396.4,.03,1,5,1)"
^XMB(3.9,23,2,31772,0)="S:+$P(^DVB(396.4,DA,0),U,11)>0 ^DVB(396.4,""AIT"",$P(^(0),U,11),$E(X,1,30),DA)="""""
^XMB(3.9,23,2,31773,0)="""^DD"",396.4,396.4,.03,1,5,2)"
^XMB(3.9,23,2,31774,0)="I +$P(^DVB(396.4,DA,0),U,11)>0 K ^DVB(396.4,""AIT"",$P(^(0),U,11),$E(X,1,30),DA)"
^XMB(3.9,23,2,31775,0)="""^DD"",396.4,396.4,.03,1,5,""%D"",0)"
^XMB(3.9,23,2,31776,0)="^^2^2^2941116^^^"
^XMB(3.9,23,2,31777,0)="""^DD"",396.4,396.4,.03,1,5,""%D"",1,0)"
^XMB(3.9,23,2,31778,0)="This cross reference is on the Insufficient Reason and Exam Type fields."
^XMB(3.9,23,2,31779,0)="""^DD"",396.4,396.4,.03,1,5,""%D"",2,0)"
^XMB(3.9,23,2,31780,0)="It is used by the the Detailed Insufficient Exam Report."
^XMB(3.9,23,2,31781,0)="""^DD"",396.4,396.4,.03,1,5,""DT"")"
^XMB(3.9,23,2,31782,0)="2941116"
^XMB(3.9,23,2,31783,0)="""^DD"",396.4,396.4,.03,3)"
^XMB(3.9,23,2,31784,0)="Enter the name of the exam for this request."
^XMB(3.9,23,2,31785,0)="""^DD"",396.4,396.4,.03,4)"
^XMB(3.9,23,2,31786,0)=""
^XMB(3.9,23,2,31787,0)="""^DD"",396.4,396.4,.03,21,0)"
^XMB(3.9,23,2,31788,0)="^^1^1^2940722^^"
^XMB(3.9,23,2,31789,0)="""^DD"",396.4,396.4,.03,21,1,0)"
^XMB(3.9,23,2,31790,0)="Contains the name of the exam."
^XMB(3.9,23,2,31791,0)="""^DD"",396.4,396.4,.03,23,0)"
^XMB(3.9,23,2,31792,0)="^^1^1^2940722^^"
^XMB(3.9,23,2,31793,0)="""^DD"",396.4,396.4,.03,23,1,0)"
^XMB(3.9,23,2,31794,0)="This field is a pointer to the 2507 Exam File (396.6)."
^XMB(3.9,23,2,31795,0)="""^DD"",396.4,396.4,.03,""DT"")"
^XMB(3.9,23,2,31796,0)="2941118"
^XMB(3.9,23,2,31797,0)="""^DD"",396.4,396.4,.04,0)"
^XMB(3.9,23,2,31798,0)="STATUS^S^O:OPEN;C:COMPLETED;X:CANCELED BY MAS;RX:CANCELED BY RO;T:TRANSFERRED OUT;^0;4^Q"
^XMB(3.9,23,2,31799,0)="""^DD"",396.4,396.4,.04,1,0)"
^XMB(3.9,23,2,31800,0)="^.1^^-1"
^XMB(3.9,23,2,31801,0)="""^DD"",396.4,396.4,.04,1,1,0)"
^XMB(3.9,23,2,31802,0)="396.4^AD^MUMPS"
^XMB(3.9,23,2,31803,0)="""^DD"",396.4,396.4,.04,1,1,1)"
^XMB(3.9,23,2,31804,0)="N A S A=^DVB(396.4,DA,0) I $P(A,U,2)]"""",$P(A,U,3)]"""" S ^DVB(396.4,""APS"",$P(^DVB(396.3,$P(A,U,2),0),U,1),$P(A,U,3),$E(X,1,30),DA)="""""
^XMB(3.9,23,2,31805,0)="""^DD"",396.4,396.4,.04,1,1,2)"
^XMB(3.9,23,2,31806,0)="N A S A=^DVB(396.4,DA,0) I $P(A,U,2)]"""",$P(A,U,3)]"""" K ^DVB(396.4,""APS"",$P(^DVB(396.3,$P(A,U,2),0),U,1),$P(A,U,3),$E(X,1,30),DA)"
^XMB(3.9,23,2,31807,0)="""^DD"",396.4,396.4,.04,1,1,""%D"",0)"
^XMB(3.9,23,2,31808,0)="^^3^3^2930510^^^^"
^XMB(3.9,23,2,31809,0)="""^DD"",396.4,396.4,.04,1,1,""%D"",1,0)"
^XMB(3.9,23,2,31810,0)="This cross reference contains the patient's internal file number, the exam "
^XMB(3.9,23,2,31811,0)="""^DD"",396.4,396.4,.04,1,1,""%D"",2,0)"
^XMB(3.9,23,2,31812,0)="IFN and the exam status.  It is set on two other fields .02 and .03.   "
^XMB(3.9,23,2,31813,0)="""^DD"",396.4,396.4,.04,1,1,""%D"",3,0)"
^XMB(3.9,23,2,31814,0)="Recross referencing any one of these fields will be acceptable."
^XMB(3.9,23,2,31815,0)="""^DD"",396.4,396.4,.04,1,1,""DT"")"
^XMB(3.9,23,2,31816,0)="2930422"
^XMB(3.9,23,2,31817,0)="""^DD"",396.4,396.4,.04,3)"
^XMB(3.9,23,2,31818,0)="This is the status of the exam in AMIE."
^XMB(3.9,23,2,31819,0)="""^DD"",396.4,396.4,.04,21,0)"
^XMB(3.9,23,2,31820,0)="^.001^2^2^3040910^^"
^XMB(3.9,23,2,31821,0)="""^DD"",396.4,396.4,.04,21,1,0)"
^XMB(3.9,23,2,31822,0)="The value of the status of the exam record.  (Open, Closed, Transferred or"
^XMB(3.9,23,2,31823,0)="""^DD"",396.4,396.4,.04,21,2,0)"
^XMB(3.9,23,2,31824,0)="Cancelled)"
^XMB(3.9,23,2,31825,0)="""^DD"",396.4,396.4,.04,21,3,0)"
^XMB(3.9,23,2,31826,0)=" "
^XMB(3.9,23,2,31827,0)="""^DD"",396.4,396.4,.04,21,4,0)"
^XMB(3.9,23,2,31828,0)="This field is used as part of the implementation of a Nationally Controlled"
^XMB(3.9,23,2,31829,0)="""^DD"",396.4,396.4,.04,21,5,0)"
^XMB(3.9,23,2,31830,0)="Procedure (AMIS 290).  Per VHA Directive 10-93-142, the information "
^XMB(3.9,23,2,31831,0)="""^DD"",396.4,396.4,.04,21,6,0)"
^XMB(3.9,23,2,31832,0)="contained in this field is not to be changed as the results of local (site) "
^XMB(3.9,23,2,31833,0)="""^DD"",396.4,396.4,.04,21,7,0)"
^XMB(3.9,23,2,31834,0)="modifications."
^XMB(3.9,23,2,31835,0)="""^DD"",396.4,396.4,.04,23,0)"
^XMB(3.9,23,2,31836,0)="^.001^2^2^3040910^^"
^XMB(3.9,23,2,31837,0)="""^DD"",396.4,396.4,.04,23,1,0)"
^XMB(3.9,23,2,31838,0)="This field is a set of codes.  It controls what AMIE functions can be "
^XMB(3.9,23,2,31839,0)="""^DD"",396.4,396.4,.04,23,2,0)"
^XMB(3.9,23,2,31840,0)="performed on the exam record."
^XMB(3.9,23,2,31841,0)="""^DD"",396.4,396.4,.04,""DT"")"
^XMB(3.9,23,2,31842,0)="3040910"
^XMB(3.9,23,2,31843,0)="""^DD"",396.4,396.4,.05,0)"
^XMB(3.9,23,2,31844,0)="WORK SHEET PRINTED^S^Y:YES;N:NO;^0;5^Q"
^XMB(3.9,23,2,31845,0)="""^DD"",396.4,396.4,.05,3)"
^XMB(3.9,23,2,31846,0)="Indicates whether a worksheet has been printed or not."
^XMB(3.9,23,2,31847,0)="""^DD"",396.4,396.4,.05,21,0)"
^XMB(3.9,23,2,31848,0)="^^2^2^2930430^"
^XMB(3.9,23,2,31849,0)="""^DD"",396.4,396.4,.05,21,1,0)"
^XMB(3.9,23,2,31850,0)="Indicates if the user has printed the worksheet when a request was logged"
^XMB(3.9,23,2,31851,0)="""^DD"",396.4,396.4,.05,21,2,0)"
^XMB(3.9,23,2,31852,0)="or an exam was added to a request."
^XMB(3.9,23,2,31853,0)="""^DD"",396.4,396.4,.05,""DT"")"
^XMB(3.9,23,2,31854,0)="2930128"
^XMB(3.9,23,2,31855,0)="""^DD"",396.4,396.4,.06,0)"
^XMB(3.9,23,2,31856,0)="DATE OF EXAM^DX^^0;6^S %DT=""EST"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X"
^XMB(3.9,23,2,31857,0)="""^DD"",396.4,396.4,.06,3)"
^XMB(3.9,23,2,31858,0)="This is the date this exam was performed."
^XMB(3.9,23,2,31859,0)="""^DD"",396.4,396.4,.06,21,0)"
^XMB(3.9,23,2,31860,0)="^^1^1^2930430^^"
^XMB(3.9,23,2,31861,0)="""^DD"",396.4,396.4,.06,21,1,0)"
^XMB(3.9,23,2,31862,0)="The date the exam was performed."
^XMB(3.9,23,2,31863,0)="""^DD"",396.4,396.4,.06,23,0)"
^XMB(3.9,23,2,31864,0)="^^1^1^2930430^^"
^XMB(3.9,23,2,31865,0)="""^DD"",396.4,396.4,.06,23,1,0)"
^XMB(3.9,23,2,31866,0)="Entered with the transcription routine ^DVBCEDIT."
^XMB(3.9,23,2,31867,0)="""^DD"",396.4,396.4,.06,""DT"")"
^XMB(3.9,23,2,31868,0)="3030311"
^XMB(3.9,23,2,31869,0)="""^DD"",396.4,396.4,.07,0)"
^XMB(3.9,23,2,31870,0)="EXAMINING PHYSICIAN^F^^0;7^K:$L(X)>30!($L(X)<1) X"
^XMB(3.9,23,2,31871,0)="""^DD"",396.4,396.4,.07,3)"
^XMB(3.9,23,2,31872,0)="Enter the name of the physician who performed this exam."
^XMB(3.9,23,2,31873,0)="""^DD"",396.4,396.4,.07,21,0)"
^XMB(3.9,23,2,31874,0)="^^1^1^2940721^^"
^XMB(3.9,23,2,31875,0)="""^DD"",396.4,396.4,.07,21,1,0)"
^XMB(3.9,23,2,31876,0)="The name of the Doctor that performed the examination."
^XMB(3.9,23,2,31877,0)="""^DD"",396.4,396.4,.07,""DT"")"
^XMB(3.9,23,2,31878,0)="2930301"
^XMB(3.9,23,2,31879,0)="""^DD"",396.4,396.4,.08,0)"
^XMB(3.9,23,2,31880,0)="FEE EXAM^RS^Y:YES;N:NO;^0;8^Q"
^XMB(3.9,23,2,31881,0)="""^DD"",396.4,396.4,.08,3)"
^XMB(3.9,23,2,31882,0)="Enter 'Y' if this is to be a FEE exam."
^XMB(3.9,23,2,31883,0)="""^DD"",396.4,396.4,.08,21,0)"
^XMB(3.9,23,2,31884,0)="^^1^1^2930430^"
^XMB(3.9,23,2,31885,0)="""^DD"",396.4,396.4,.08,21,1,0)"
^XMB(3.9,23,2,31886,0)="Indicates if the exam was performed on a Fee basis."
^XMB(3.9,23,2,31887,0)="""^DD"",396.4,396.4,.08,""DT"")"
^XMB(3.9,23,2,31888,0)="2930128"
^XMB(3.9,23,2,31889,0)="""^DD"",396.4,396.4,.09,0)"
^XMB(3.9,23,2,31890,0)="EXAM PLACE^S^C:CLINIC;F:FEE LOCATION;O:OTHER STATION;^0;9^Q"
^XMB(3.9,23,2,31891,0)="""^DD"",396.4,396.4,.09,3)"
^XMB(3.9,23,2,31892,0)="Enter the code where this exam took place.  Select the code that best fits the situation."
^XMB(3.9,23,2,31893,0)="""^DD"",396.4,396.4,.09,21,0)"
^XMB(3.9,23,2,31894,0)="^^1^1^2950126^^"
^XMB(3.9,23,2,31895,0)="""^DD"",396.4,396.4,.09,21,1,0)"
^XMB(3.9,23,2,31896,0)="Indicates where the exam was performed."
^XMB(3.9,23,2,31897,0)="""^DD"",396.4,396.4,.09,""DT"")"
^XMB(3.9,23,2,31898,0)="2930128"
^XMB(3.9,23,2,31899,0)="""^DD"",396.4,396.4,.1,0)"
^XMB(3.9,23,2,31900,0)="DOCTOR'S ELECTRONIC SIGNATURE^FOI^^0;10^K:$L(X)>30!($L(X)<1) X"
^XMB(3.9,23,2,31901,0)="""^DD"",396.4,396.4,.1,2)"
^XMB(3.9,23,2,31902,0)="S Y(0)=Y S Y=""  <Hidden>"""
^XMB(3.9,23,2,31903,0)="""^DD"",396.4,396.4,.1,2.1)"
^XMB(3.9,23,2,31904,0)="S Y=""  <Hidden>"""
^XMB(3.9,23,2,31905,0)="""^DD"",396.4,396.4,.1,3)"
^XMB(3.9,23,2,31906,0)="This is the Doctor's electronic signature tied to this exam."
^XMB(3.9,23,2,31907,0)="""^DD"",396.4,396.4,.1,21,0)"
^XMB(3.9,23,2,31908,0)="^^2^2^2950126^^"
^XMB(3.9,23,2,31909,0)="""^DD"",396.4,396.4,.1,21,1,0)"
^XMB(3.9,23,2,31910,0)="The doctor's electronic signature.  This is for use with the Kurzweil"
^XMB(3.9,23,2,31911,0)="""^DD"",396.4,396.4,.1,21,2,0)"
^XMB(3.9,23,2,31912,0)="system."
^XMB(3.9,23,2,31913,0)="""^DD"",396.4,396.4,.1,""DT"")"
^XMB(3.9,23,2,31914,0)="2930201"
^XMB(3.9,23,2,31915,0)="""^DD"",396.4,396.4,.11,0)"
^XMB(3.9,23,2,31916,0)="INSUFFICIENT REASON^P396.94'^DVB(396.94,^0;11^Q"
^XMB(3.9,23,2,31917,0)="""^DD"",396.4,396.4,.11,1,0)"
^XMB(3.9,23,2,31918,0)="^.1"
^XMB(3.9,23,2,31919,0)="""^DD"",396.4,396.4,.11,1,1,0)"
^XMB(3.9,23,2,31920,0)="396.4^AIT^MUMPS"
^XMB(3.9,23,2,31921,0)="""^DD"",396.4,396.4,.11,1,1,1)"
^XMB(3.9,23,2,31922,0)="S:+$P(^DVB(396.4,DA,0),U,3)>0 ^DVB(396.4,""AIT"",$E(X,1,30),$P(^(0),U,3),DA)="""""
^XMB(3.9,23,2,31923,0)="""^DD"",396.4,396.4,.11,1,1,2)"
^XMB(3.9,23,2,31924,0)="I +$P(^DVB(396.4,DA,0),U,3)>0 K ^DVB(396.4,""AIT"",$E(X,1,30),$P(^(0),U,3),DA)"
^XMB(3.9,23,2,31925,0)="""^DD"",396.4,396.4,.11,1,1,""%D"",0)"
^XMB(3.9,23,2,31926,0)="^^2^2^2941116^^^^"
^XMB(3.9,23,2,31927,0)="""^DD"",396.4,396.4,.11,1,1,""%D"",1,0)"
^XMB(3.9,23,2,31928,0)="This cross reference is on the Insufficient Reason and Exam Type fields."
^XMB(3.9,23,2,31929,0)="""^DD"",396.4,396.4,.11,1,1,""%D"",2,0)"
^XMB(3.9,23,2,31930,0)="It is used by the Detailed Insufficient Exam Report."
^XMB(3.9,23,2,31931,0)="""^DD"",396.4,396.4,.11,1,1,""DT"")"
^XMB(3.9,23,2,31932,0)="2941116"
^XMB(3.9,23,2,31933,0)="""^DD"",396.4,396.4,.11,3)"
^XMB(3.9,23,2,31934,0)="Enter the insufficient reason this exam is being returned."
^XMB(3.9,23,2,31935,0)="""^DD"",396.4,396.4,.11,4)"
^XMB(3.9,23,2,31936,0)=""
^XMB(3.9,23,2,31937,0)="""^DD"",396.4,396.4,.11,21,0)"
^XMB(3.9,23,2,31938,0)="^^1^1^2950210^^^^"
^XMB(3.9,23,2,31939,0)="""^DD"",396.4,396.4,.11,21,1,0)"
^XMB(3.9,23,2,31940,0)="This field contains a pointer to the Insufficient Reason file (396.94)."
^XMB(3.9,23,2,31941,0)="""^DD"",396.4,396.4,.11,23,0)"
^XMB(3.9,23,2,31942,0)="^^3^3^2950210^^^^"
^XMB(3.9,23,2,31943,0)="""^DD"",396.4,396.4,.11,23,1,0)"
^XMB(3.9,23,2,31944,0)="This field is a pointer to the Insufficient Reason File.  It is entered "
^XMB(3.9,23,2,31945,0)="""^DD"",396.4,396.4,.11,23,2,0)"
^XMB(3.9,23,2,31946,0)="when the user adds an exam to a 2507 request that has a priority of"
^XMB(3.9,23,2,31947,0)="""^DD"",396.4,396.4,.11,23,3,0)"
^XMB(3.9,23,2,31948,0)="'Insufficient'."
^XMB(3.9,23,2,31949,0)="""^DD"",396.4,396.4,.11,""DT"")"
^XMB(3.9,23,2,31950,0)="2950210"
^XMB(3.9,23,2,31951,0)="""^DD"",396.4,396.4,.12,0)"
^XMB(3.9,23,2,31952,0)="ORIGINAL PROVIDER^F^^0;12^K:$L(X)>30!($L(X)<1) X"
^XMB(3.9,23,2,31953,0)="""^DD"",396.4,396.4,.12,3)"
^XMB(3.9,23,2,31954,0)="Enter the name of the provider who performed the original exam."
^XMB(3.9,23,2,31955,0)="""^DD"",396.4,396.4,.12,21,0)"
^XMB(3.9,23,2,31956,0)="^^3^3^2941221^^"
^XMB(3.9,23,2,31957,0)="""^DD"",396.4,396.4,.12,21,1,0)"
^XMB(3.9,23,2,31958,0)="This field contains the name of the provider who performed the original"
^XMB(3.9,23,2,31959,0)="""^DD"",396.4,396.4,.12,21,2,0)"
^XMB(3.9,23,2,31960,0)="exam.  If the exam was transferred from another Medical Center, the name"
^XMB(3.9,23,2,31961,0)="""^DD"",396.4,396.4,.12,21,3,0)"
^XMB(3.9,23,2,31962,0)="of that site should be included in this field."
^XMB(3.9,23,2,31963,0)="""^DD"",396.4,396.4,.12,23,0)"
^XMB(3.9,23,2,31964,0)="^^3^3^2941221^^"
^XMB(3.9,23,2,31965,0)="""^DD"",396.4,396.4,.12,23,1,0)"
^XMB(3.9,23,2,31966,0)="This field is populated by AMIE software when the original 2507 request"
^XMB(3.9,23,2,31967,0)="""^DD"",396.4,396.4,.12,23,2,0)"
^XMB(3.9,23,2,31968,0)="has not been purged.  If the original 2507 record has been purged, the user"
^XMB(3.9,23,2,31969,0)="""^DD"",396.4,396.4,.12,23,3,0)"
^XMB(3.9,23,2,31970,0)="enters this information."
^XMB(3.9,23,2,31971,0)="""^DD"",396.4,396.4,.12,""DT"")"
^XMB(3.9,23,2,31972,0)="2941221"
^XMB(3.9,23,2,31973,0)="""^DD"",396.4,396.4,1,0)"
^XMB(3.9,23,2,31974,0)="CAPRI TEMPLATE ID^P396.17'^DVB(396.17,^2;1^Q"
^XMB(3.9,23,2,31975,0)="""^DD"",396.4,396.4,1,21,0)"
^XMB(3.9,23,2,31976,0)="^^1^1^3060616^"
^XMB(3.9,23,2,31977,0)="""^DD"",396.4,396.4,1,21,1,0)"
^XMB(3.9,23,2,31978,0)="Pointer to the CAPRI template used to complete this examination."
^XMB(3.9,23,2,31979,0)="""^DD"",396.4,396.4,1,""DT"")"
^XMB(3.9,23,2,31980,0)="3060616"
^XMB(3.9,23,2,31981,0)="""^DD"",396.4,396.4,50,0)"
^XMB(3.9,23,2,31982,0)="CANCELLATION DATE/TIME^D^^CAN;1^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,23,2,31983,0)="""^DD"",396.4,396.4,50,3)"
^XMB(3.9,23,2,31984,0)="Date and Time the INDIVIDUAL exam was canceled."
^XMB(3.9,23,2,31985,0)="""^DD"",396.4,396.4,50,21,0)"
^XMB(3.9,23,2,31986,0)="^^1^1^2930521^^"
^XMB(3.9,23,2,31987,0)="""^DD"",396.4,396.4,50,21,1,0)"
^XMB(3.9,23,2,31988,0)="Indicates when the exam was cancelled."
^XMB(3.9,23,2,31989,0)="""^DD"",396.4,396.4,50,23,0)"
^XMB(3.9,23,2,31990,0)="^^1^1^2930521^^"
^XMB(3.9,23,2,31991,0)="""^DD"",396.4,396.4,50,23,1,0)"
^XMB(3.9,23,2,31992,0)="Updated only when the exam is cancelled."
^XMB(3.9,23,2,31993,0)="""^DD"",396.4,396.4,50,""DT"")"
^XMB(3.9,23,2,31994,0)="2930521"
^XMB(3.9,23,2,31995,0)="""^DD"",396.4,396.4,51,0)"
^XMB(3.9,23,2,31996,0)="CANCELED BY^P200'^VA(200,^CAN;2^Q"
^XMB(3.9,23,2,31997,0)="""^DD"",396.4,396.4,51,3)"
^XMB(3.9,23,2,31998,0)="This field holds the name of the person who canceled the individual exam."
^XMB(3.9,23,2,31999,0)="""^DD"",396.4,396.4,51,21,0)"
^XMB(3.9,23,2,32000,0)="^^1^1^2930430^"
^XMB(3.9,23,2,32001,0)="""^DD"",396.4,396.4,51,21,1,0)"
^XMB(3.9,23,2,32002,0)="Indicates who cancelled the exam."
^XMB(3.9,23,2,32003,0)="""^DD"",396.4,396.4,51,23,0)"
^XMB(3.9,23,2,32004,0)="^^1^1^2930430^"
^XMB(3.9,23,2,32005,0)="""^DD"",396.4,396.4,51,23,1,0)"
^XMB(3.9,23,2,32006,0)="Contains the DUZ of the person who cancelled the exam.  (Pointer)"
^XMB(3.9,23,2,32007,0)="""^DD"",396.4,396.4,51,""DT"")"
^XMB(3.9,23,2,32008,0)="2930128"
^XMB(3.9,23,2,32009,0)="""^DD"",396.4,396.4,52,0)"
^XMB(3.9,23,2,32010,0)="CANCELLATION REASON^P396.5'^DVB(396.5,^CAN;3^Q"
^XMB(3.9,23,2,32011,0)="""^DD"",396.4,396.4,52,3)"
^XMB(3.9,23,2,32012,0)="Enter the response which best describes the reason for the cancellation."
^XMB(3.9,23,2,32013,0)="""^DD"",396.4,396.4,52,21,0)"
^XMB(3.9,23,2,32014,0)="^^2^2^2950126^^^"
^XMB(3.9,23,2,32015,0)="""^DD"",396.4,396.4,52,21,1,0)"
^XMB(3.9,23,2,32016,0)="Contains the reason for cancellation from the 2507 CANCELLATION REASON file"
^XMB(3.9,23,2,32017,0)="""^DD"",396.4,396.4,52,21,2,0)"
^XMB(3.9,23,2,32018,0)="(396.5)."
^XMB(3.9,23,2,32019,0)="""^DD"",396.4,396.4,52,23,0)"
^XMB(3.9,23,2,32020,0)="^^1^1^2950126^^^"
^XMB(3.9,23,2,32021,0)="""^DD"",396.4,396.4,52,23,1,0)"
^XMB(3.9,23,2,32022,0)="Pointer to file 396.5."
^XMB(3.9,23,2,32023,0)="""^DD"",396.4,396.4,52,""DT"")"
^XMB(3.9,23,2,32024,0)="2930521"
^XMB(3.9,23,2,32025,0)="""^DD"",396.4,396.4,60,0)"
^XMB(3.9,23,2,32026,0)="DATE TRANSFERRED OUT^D^^TRAN;1^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,23,2,32027,0)="""^DD"",396.4,396.4,60,3)"
^XMB(3.9,23,2,32028,0)="Enter the date this exam was transferred to the remote site."
^XMB(3.9,23,2,32029,0)="""^DD"",396.4,396.4,60,21,0)"
^XMB(3.9,23,2,32030,0)="^^1^1^2930430^"
^XMB(3.9,23,2,32031,0)="""^DD"",396.4,396.4,60,21,1,0)"
^XMB(3.9,23,2,32032,0)="Indicates the date an exam was transferred to another VAMC."
^XMB(3.9,23,2,32033,0)="""^DD"",396.4,396.4,60,""DT"")"
^XMB(3.9,23,2,32034,0)="2930128"
^XMB(3.9,23,2,32035,0)="""^DD"",396.4,396.4,61,0)"
^XMB(3.9,23,2,32036,0)="TRANSFERRED OUT BY^F^^TRAN;2^K:$L(X)>30!($L(X)<1) X"
^XMB(3.9,23,2,32037,0)="""^DD"",396.4,396.4,61,3)"
^XMB(3.9,23,2,32038,0)="Answer must be 1-30 characters in length.  Enter the name of the person who transferred out this exam."
^XMB(3.9,23,2,32039,0)="""^DD"",396.4,396.4,61,21,0)"
^XMB(3.9,23,2,32040,0)="^^2^2^2930430^"
^XMB(3.9,23,2,32041,0)="""^DD"",396.4,396.4,61,21,1,0)"
^XMB(3.9,23,2,32042,0)="A Free Text field which contains the name of the user that transferred an"
^XMB(3.9,23,2,32043,0)="""^DD"",396.4,396.4,61,21,2,0)"
^XMB(3.9,23,2,32044,0)="exam to another VAMC."
^XMB(3.9,23,2,32045,0)="""^DD"",396.4,396.4,61,""DT"")"
^XMB(3.9,23,2,32046,0)="2930128"
^XMB(3.9,23,2,32047,0)="""^DD"",396.4,396.4,62,0)"
^XMB(3.9,23,2,32048,0)="TRANSFERRED OUT TO^P4.2'^DIC(4.2,^TRAN;3^Q"
^XMB(3.9,23,2,32049,0)="""^DD"",396.4,396.4,62,3)"
^XMB(3.9,23,2,32050,0)="Enter the domain this exam was transferred to."
^XMB(3.9,23,2,32051,0)="""^DD"",396.4,396.4,62,21,0)"
^XMB(3.9,23,2,32052,0)="^^1^1^2930430^"
^XMB(3.9,23,2,32053,0)="""^DD"",396.4,396.4,62,21,1,0)"
^XMB(3.9,23,2,32054,0)="Contains the name of the institution that an exam was transferred out to."
^XMB(3.9,23,2,32055,0)="""^DD"",396.4,396.4,62,23,0)"
^XMB(3.9,23,2,32056,0)="^^1^1^2930430^"
^XMB(3.9,23,2,32057,0)="""^DD"",396.4,396.4,62,23,1,0)"
^XMB(3.9,23,2,32058,0)="A pointer to the Domain File."
^XMB(3.9,23,2,32059,0)="""^DD"",396.4,396.4,62,""DT"")"
^XMB(3.9,23,2,32060,0)="2930128"
^XMB(3.9,23,2,32061,0)="""^DD"",396.4,396.4,63,0)"
^XMB(3.9,23,2,32062,0)="DATE TRANSFERRED IN^D^^TRAN;4^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,23,2,32063,0)="""^DD"",396.4,396.4,63,3)"
^XMB(3.9,23,2,32064,0)="Enter the date this exam was transferred to this site."
^XMB(3.9,23,2,32065,0)="""^DD"",396.4,396.4,63,21,0)"
^XMB(3.9,23,2,32066,0)="^^1^1^2950126^^"
^XMB(3.9,23,2,32067,0)="""^DD"",396.4,396.4,63,21,1,0)"
^XMB(3.9,23,2,32068,0)="Contains the date an exam was received at a remote site."
^XMB(3.9,23,2,32069,0)="""^DD"",396.4,396.4,63,21,2,0)"
^XMB(3.9,23,2,32070,0)="that remote site."
^XMB(3.9,23,2,32071,0)="""^DD"",396.4,396.4,63,""DT"")"
^XMB(3.9,23,2,32072,0)="2930128"
^XMB(3.9,23,2,32073,0)="""^DD"",396.4,396.4,64,0)"
^XMB(3.9,23,2,32074,0)="DATE RETURNED TO OWNER SITE^D^^TRAN;5^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,23,2,32075,0)="""^DD"",396.4,396.4,64,3)"
^XMB(3.9,23,2,32076,0)="Enter the date this exam and its results were returned to the originating site."
^XMB(3.9,23,2,32077,0)="""^DD"",396.4,396.4,64,21,0)"
^XMB(3.9,23,2,32078,0)="^^4^4^2930430^"
^XMB(3.9,23,2,32079,0)="""^DD"",396.4,396.4,64,21,1,0)"
^XMB(3.9,23,2,32080,0)="Used by a remote site when an exam is transferred to that site for "
^XMB(3.9,23,2,32081,0)="""^DD"",396.4,396.4,64,21,2,0)"
^XMB(3.9,23,2,32082,0)="completion.  Upon completion and release of a transferred exam, this"
^XMB(3.9,23,2,32083,0)="""^DD"",396.4,396.4,64,21,3,0)"
^XMB(3.9,23,2,32084,0)="field records at the remote site the date the exam was released to the"
^XMB(3.9,23,2,32085,0)="""^DD"",396.4,396.4,64,21,4,0)"
^XMB(3.9,23,2,32086,0)="originating site."
^XMB(3.9,23,2,32087,0)="""^DD"",396.4,396.4,64,""DT"")"
^XMB(3.9,23,2,32088,0)="2930128"
^XMB(3.9,23,2,32089,0)="""^DD"",396.4,396.4,70,0)"
^XMB(3.9,23,2,32090,0)="EXAM RESULTS^396.41^^RES;0"
^XMB(3.9,23,2,32091,0)="""^DD"",396.4,396.4,70,21,0)"
^XMB(3.9,23,2,32092,0)="^^1^1^2931013^^"
^XMB(3.9,23,2,32093,0)="""^DD"",396.4,396.4,70,21,1,0)"
^XMB(3.9,23,2,32094,0)="Contains the results of a completed exam."
^XMB(3.9,23,2,32095,0)="""^DD"",396.4,396.4,70,23,0)"
^XMB(3.9,23,2,32096,0)="^^1^1^2931013^^"
^XMB(3.9,23,2,32097,0)="""^DD"",396.4,396.4,70,23,1,0)"
^XMB(3.9,23,2,32098,0)="Entered by the transcriptionist with the routine ^DVBCEDIT."
^XMB(3.9,23,2,32099,0)="""^DD"",396.4,396.4,71,0)"
^XMB(3.9,23,2,32100,0)="EXAM RESULTS RTF^396.471^^1;0"
^XMB(3.9,23,2,32101,0)="""^DD"",396.4,396.4,75,0)"
^XMB(3.9,23,2,32102,0)="TIU DOCUMENT ID^P8925'^TIU(8925,^0;13^Q"
^XMB(3.9,23,2,32103,0)="""^DD"",396.4,396.4,75,21,0)"
^XMB(3.9,23,2,32104,0)="^^3^3^3030625^"
^XMB(3.9,23,2,32105,0)="""^DD"",396.4,396.4,75,21,1,0)"
^XMB(3.9,23,2,32106,0)="This field is a pointer to a TIU document containing the examination"
^XMB(3.9,23,2,32107,0)="""^DD"",396.4,396.4,75,21,2,0)"
^XMB(3.9,23,2,32108,0)="report.  The CAPRI GUI will automatically populate this field when a C&P"
^XMB(3.9,23,2,32109,0)="""^DD"",396.4,396.4,75,21,3,0)"
^XMB(3.9,23,2,32110,0)="exam template is completed via the CAPRI interface."
^XMB(3.9,23,2,32111,0)="""^DD"",396.4,396.4,75,""DT"")"
^XMB(3.9,23,2,32112,0)="3030625"
^XMB(3.9,23,2,32113,0)="""^DD"",396.4,396.4,80,0)"
^XMB(3.9,23,2,32114,0)="INSUFFICIENT REMARKS^396.42^^INREM;0"
^XMB(3.9,23,2,32115,0)="""^DD"",396.4,396.4,80,21,0)"
^XMB(3.9,23,2,32116,0)="^^3^3^2941115^"
^XMB(3.9,23,2,32117,0)="""^DD"",396.4,396.4,80,21,1,0)"
^XMB(3.9,23,2,32118,0)="This field contains insufficient remarks entered by the Regional Office"
^XMB(3.9,23,2,32119,0)="""^DD"",396.4,396.4,80,21,2,0)"
^XMB(3.9,23,2,32120,0)="when the C&P Exam Request is returned with a Priority of 'E'"
^XMB(3.9,23,2,32121,0)="""^DD"",396.4,396.4,80,21,3,0)"
^XMB(3.9,23,2,32122,0)="(Insufficient)."
^XMB(3.9,23,2,32123,0)="""^DD"",396.4,396.4,80,23,0)"
^XMB(3.9,23,2,32124,0)="^^2^2^2941115^"
^XMB(3.9,23,2,32125,0)="""^DD"",396.4,396.4,80,23,1,0)"
^XMB(3.9,23,2,32126,0)="This information is reported when the Medical Center prints a 2507 request"
^XMB(3.9,23,2,32127,0)="""^DD"",396.4,396.4,80,23,2,0)"
^XMB(3.9,23,2,32128,0)="that has a priority of Insufficient."
^XMB(3.9,23,2,32129,0)="""^DD"",396.4,396.4,90,0)"
^XMB(3.9,23,2,32130,0)="DATE TRANSCRIPTION COMPLETE^D^^0;14^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,23,2,32131,0)="""^DD"",396.4,396.4,90,9)"
^XMB(3.9,23,2,32132,0)="^"
^XMB(3.9,23,2,32133,0)="""^DD"",396.4,396.4,90,21,0)"
^XMB(3.9,23,2,32134,0)="^.001^2^2^3040910^^^"
^XMB(3.9,23,2,32135,0)="""^DD"",396.4,396.4,90,21,1,0)"
^XMB(3.9,23,2,32136,0)="This field records the date/time the user has marked the exam document as "
^XMB(3.9,23,2,32137,0)="""^DD"",396.4,396.4,90,21,2,0)"
^XMB(3.9,23,2,32138,0)="complete."
^XMB(3.9,23,2,32139,0)="""^DD"",396.4,396.4,90,""DT"")"
^XMB(3.9,23,2,32140,0)="3040909"
^XMB(3.9,23,2,32141,0)="""^DD"",396.4,396.41,0)"
^XMB(3.9,23,2,32142,0)="EXAM RESULTS SUB-FIELD^^.01^1"
^XMB(3.9,23,2,32143,0)="""^DD"",396.4,396.41,0,""DT"")"
^XMB(3.9,23,2,32144,0)="2930128"
^XMB(3.9,23,2,32145,0)="""^DD"",396.4,396.41,0,""NM"",""EXAM RESULTS"")"
^XMB(3.9,23,2,32146,0)=""
^XMB(3.9,23,2,32147,0)="""^DD"",396.4,396.41,0,""UP"")"
^XMB(3.9,23,2,32148,0)="396.4"
^XMB(3.9,23,2,32149,0)="""^DD"",396.4,396.41,.01,0)"
^XMB(3.9,23,2,32150,0)="EXAM RESULTS^W^^0;1^Q"
^XMB(3.9,23,2,32151,0)="""^DD"",396.4,396.41,.01,3)"
^XMB(3.9,23,2,32152,0)="Enter the results for this exam."
^XMB(3.9,23,2,32153,0)="""^DD"",396.4,396.41,.01,4)"
^XMB(3.9,23,2,32154,0)="S Y=$$PHYS^DVBCUTL4(""YES"") K Y"
^XMB(3.9,23,2,32155,0)="""^DD"",396.4,396.41,.01,""DT"")"
^XMB(3.9,23,2,32156,0)="2930128"
^XMB(3.9,23,2,32157,0)="""^DD"",396.4,396.42,0)"
^XMB(3.9,23,2,32158,0)="INSUFFICIENT REMARKS SUB-FIELD^^.01^1"
^XMB(3.9,23,2,32159,0)="""^DD"",396.4,396.42,0,""DT"")"
^XMB(3.9,23,2,32160,0)="2941115"
^XMB(3.9,23,2,32161,0)="""^DD"",396.4,396.42,0,""NM"",""INSUFFICIENT REMARKS"")"
^XMB(3.9,23,2,32162,0)=""
^XMB(3.9,23,2,32163,0)="""^DD"",396.4,396.42,0,""UP"")"
^XMB(3.9,23,2,32164,0)="396.4"
^XMB(3.9,23,2,32165,0)="""^DD"",396.4,396.42,.01,0)"
^XMB(3.9,23,2,32166,0)="INSUFFICIENT REMARKS^W^^0;1^Q"
^XMB(3.9,23,2,32167,0)="""^DD"",396.4,396.42,.01,3)"
^XMB(3.9,23,2,32168,0)="Enter the insufficient remarks detailing the reason the exam is being returned."
^XMB(3.9,23,2,32169,0)="""^DD"",396.4,396.42,.01,21,0)"
^XMB(3.9,23,2,32170,0)="^^4^4^2941115^"
^XMB(3.9,23,2,32171,0)="""^DD"",396.4,396.42,.01,21,1,0)"
^XMB(3.9,23,2,32172,0)="This field contains insufficient remarks entered by the Regional Office"
^XMB(3.9,23,2,32173,0)="""^DD"",396.4,396.42,.01,21,2,0)"
^XMB(3.9,23,2,32174,0)="when the C&P Exam Request is returned with a Priority of 'E'            "
^XMB(3.9,23,2,32175,0)="""^DD"",396.4,396.42,.01,21,3,0)"
^XMB(3.9,23,2,32176,0)="(Insufficient)."
^XMB(3.9,23,2,32177,0)="""^DD"",396.4,396.42,.01,21,4,0)"
^XMB(3.9,23,2,32178,0)=" "
^XMB(3.9,23,2,32179,0)="""^DD"",396.4,396.42,.01,23,0)"
^XMB(3.9,23,2,32180,0)="^^2^2^2941115^"
^XMB(3.9,23,2,32181,0)="""^DD"",396.4,396.42,.01,23,1,0)"
^XMB(3.9,23,2,32182,0)="This information is reported when the Medical Center prints a 2507 request"
^XMB(3.9,23,2,32183,0)="""^DD"",396.4,396.42,.01,23,2,0)"
^XMB(3.9,23,2,32184,0)="that has a priority of Insufficient."
^XMB(3.9,23,2,32185,0)="""^DD"",396.4,396.42,.01,""DT"")"
^XMB(3.9,23,2,32186,0)="2941115"
^XMB(3.9,23,2,32187,0)="""^DD"",396.4,396.471,0)"
^XMB(3.9,23,2,32188,0)="EXAM RESULTS RTF SUB-FIELD^^.01^1"
^XMB(3.9,23,2,32189,0)="""^DD"",396.4,396.471,0,""DT"")"
^XMB(3.9,23,2,32190,0)="3050719"
^XMB(3.9,23,2,32191,0)="""^DD"",396.4,396.471,0,""NM"",""EXAM RESULTS RTF"")"
^XMB(3.9,23,2,32192,0)=""
^XMB(3.9,23,2,32193,0)="""^DD"",396.4,396.471,0,""UP"")"
^XMB(3.9,23,2,32194,0)="396.4"
^XMB(3.9,23,2,32195,0)="""^DD"",396.4,396.471,.01,0)"
^XMB(3.9,23,2,32196,0)="EXAM RESULTS RTF^WL^^0;1^Q"
^XMB(3.9,23,2,32197,0)="""^DD"",396.4,396.471,.01,21,0)"
^XMB(3.9,23,2,32198,0)="^^2^2^3050719^"
^XMB(3.9,23,2,32199,0)="""^DD"",396.4,396.471,.01,21,1,0)"
^XMB(3.9,23,2,32200,0)="Exam results stored in RTF format for display in the GUI.  This should "
^XMB(3.9,23,2,32201,0)="""^DD"",396.4,396.471,.01,21,2,0)"
^XMB(3.9,23,2,32202,0)="match field 70 except for the addition of RTF formatting commands."
^XMB(3.9,23,2,32203,0)="""^DD"",396.4,396.471,.01,""DT"")"
^XMB(3.9,23,2,32204,0)="3050719"
^XMB(3.9,23,2,32205,0)="""^DIC"",396.17,396.17,0)"
^XMB(3.9,23,2,32206,0)="CAPRI TEMPLATES^396.17"
^XMB(3.9,23,2,32207,0)="""^DIC"",396.17,396.17,0,""GL"")"
^XMB(3.9,23,2,32208,0)="^DVB(396.17,"
^XMB(3.9,23,2,32209,0)="""^DIC"",396.17,396.17,""%"",0)"
^XMB(3.9,23,2,32210,0)="^1.005^^0"
^XMB(3.9,23,2,32211,0)="""^DIC"",396.17,396.17,""%D"",0)"
^XMB(3.9,23,2,32212,0)="^^6^6^3030603^"
^XMB(3.9,23,2,32213,0)="""^DIC"",396.17,396.17,""%D"",1,0)"
^XMB(3.9,23,2,32214,0)="This file holds the definitions generated by users of the CAPRI C&P "
^XMB(3.9,23,2,32215,0)="""^DIC"",396.17,396.17,""%D"",2,0)"
^XMB(3.9,23,2,32216,0)="Worksheet Module (CPWM) that are used to re-generate GUI screens.  CPWM "
^XMB(3.9,23,2,32217,0)="""^DIC"",396.17,396.17,""%D"",3,0)"
^XMB(3.9,23,2,32218,0)="allows point-n-click entry of C&P examinations and will store ASCII "
^XMB(3.9,23,2,32219,0)="""^DIC"",396.17,396.17,""%D"",4,0)"
^XMB(3.9,23,2,32220,0)="reports in AMIE and TIU when the user has finished the documentation "
^XMB(3.9,23,2,32221,0)="""^DIC"",396.17,396.17,""%D"",5,0)"
^XMB(3.9,23,2,32222,0)="process.  This file serves to track documents in progress as well as "
^XMB(3.9,23,2,32223,0)="""^DIC"",396.17,396.17,""%D"",6,0)"
^XMB(3.9,23,2,32224,0)="documents that have been already completed and sent to TIU and AMIE."
^XMB(3.9,23,2,32225,0)="""^DIC"",396.17,""B"",""CAPRI TEMPLATES"",396.17)"
^XMB(3.9,23,2,32226,0)=""
^XMB(3.9,23,2,32227,0)="""^DIC"",396.18,396.18,0)"
^XMB(3.9,23,2,32228,0)="CAPRI TEMPLATE DEFINITIONS^396.18"
^XMB(3.9,23,2,32229,0)="""^DIC"",396.18,396.18,0,""GL"")"
^XMB(3.9,23,2,32230,0)="^DVB(396.18,"
^XMB(3.9,23,2,32231,0)="""^DIC"",396.18,396.18,""%"",0)"
^XMB(3.9,23,2,32232,0)="^1.005^^0"
^XMB(3.9,23,2,32233,0)="""^DIC"",396.18,396.18,""%D"",0)"
^XMB(3.9,23,2,32234,0)="^1.001^9^9^3050824^^^^"
^XMB(3.9,23,2,32235,0)="""^DIC"",396.18,396.18,""%D"",1,0)"
^XMB(3.9,23,2,32236,0)="This file maintains a list of definitions used to generate "
^XMB(3.9,23,2,32237,0)="""^DIC"",396.18,396.18,""%D"",2,0)"
^XMB(3.9,23,2,32238,0)="examination templates in the CAPRI GUI interface. These definitions will"
^XMB(3.9,23,2,32239,0)="""^DIC"",396.18,396.18,""%D"",3,0)"
^XMB(3.9,23,2,32240,0)="be used by providers to document C&P examinations in point-n-click"
^XMB(3.9,23,2,32241,0)="""^DIC"",396.18,396.18,""%D"",4,0)"
^XMB(3.9,23,2,32242,0)="format.  The definitions will not be used in the roll-n-scroll AMIE-II "
^XMB(3.9,23,2,32243,0)="""^DIC"",396.18,396.18,""%D"",5,0)"
^XMB(3.9,23,2,32244,0)="application and are specific to the GUI environment.  Old definitions, as"
^XMB(3.9,23,2,32245,0)="""^DIC"",396.18,396.18,""%D"",6,0)"
^XMB(3.9,23,2,32246,0)="they are retired, will be retained in the file for historical"
^XMB(3.9,23,2,32247,0)="""^DIC"",396.18,396.18,""%D"",7,0)"
^XMB(3.9,23,2,32248,0)="purposes.  This file should remain standardized between all sites and "
^XMB(3.9,23,2,32249,0)="""^DIC"",396.18,396.18,""%D"",8,0)"
^XMB(3.9,23,2,32250,0)="entries not be modified, removed, or added except through patch "
^XMB(3.9,23,2,32251,0)="""^DIC"",396.18,396.18,""%D"",9,0)"
^XMB(3.9,23,2,32252,0)="installation."
^XMB(3.9,23,2,32253,0)="""^DIC"",396.18,""B"",""CAPRI TEMPLATE DEFINITIONS"",396.18)"
^XMB(3.9,23,2,32254,0)=""
^XMB(3.9,23,2,32255,0)="""^DIC"",396.4,396.4,0)"
^XMB(3.9,23,2,32256,0)="2507 EXAM^396.4"
^XMB(3.9,23,2,32257,0)="""^DIC"",396.4,396.4,0,""GL"")"
^XMB(3.9,23,2,32258,0)="^DVB(396.4,"
^XMB(3.9,23,2,32259,0)="""^DIC"",396.4,396.4,""%D"",0)"
^XMB(3.9,23,2,32260,0)="^^7^7^2950103^^^^"
^XMB(3.9,23,2,32261,0)="""^DIC"",396.4,396.4,""%D"",1,0)"
^XMB(3.9,23,2,32262,0)="This file contains all the exams that are associated with the various 2507"
^XMB(3.9,23,2,32263,0)="""^DIC"",396.4,396.4,""%D"",2,0)"
^XMB(3.9,23,2,32264,0)="requests.  "
^XMB(3.9,23,2,32265,0)="""^DIC"",396.4,396.4,""%D"",3,0)"
^XMB(3.9,23,2,32266,0)=" "
^XMB(3.9,23,2,32267,0)="""^DIC"",396.4,396.4,""%D"",4,0)"
^XMB(3.9,23,2,32268,0)=" NOTICE: This file is part of an implementation of a Nationally"
^XMB(3.9,23,2,32269,0)="""^DIC"",396.4,396.4,""%D"",5,0)"
^XMB(3.9,23,2,32270,0)="         Controlled Procedure.  Local modifications to this file"
^XMB(3.9,23,2,32271,0)="""^DIC"",396.4,396.4,""%D"",6,0)"
^XMB(3.9,23,2,32272,0)="         are prohibited per VHA Directive 10-93-142."
^XMB(3.9,23,2,32273,0)="""^DIC"",396.4,396.4,""%D"",7,0)"
^XMB(3.9,23,2,32274,0)=" "
^XMB(3.9,23,2,32275,0)="""^DIC"",396.4,""B"",""2507 EXAM"",396.4)"
^XMB(3.9,23,2,32276,0)=""
^XMB(3.9,23,2,32277,0)="""BLD"",6156,6)"
^XMB(3.9,23,2,32278,0)="^99"
^XMB(3.9,23,2,32279,0)="$END KID DVBA*2.7*113"
^XMB(3.9,23,6,0)="^3.911A^2^2"
^XMB(3.9,23,6,1,0)="POSTMASTER"
^XMB(3.9,23,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,23,6,"B","POSTMASTER",1)=""
^XMB(3.9,23,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,24,0)="EC-2_SEQ-75_PAT-81.KID^.5^3061008.015733^^^^K"
^XMB(3.9,24,.6)="3061008"
^XMB(3.9,24,1,0)="^3.91A^2^2"
^XMB(3.9,24,1,1,0)=".5^0^3061008.015733^^^^^^^3061008.015733"
^XMB(3.9,24,1,2,0)="1^0^3061008.023029^^^^^^^3061008.023029"
^XMB(3.9,24,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,24,1,"C",.5,1)=""
^XMB(3.9,24,1,"C",1,2)=""
^XMB(3.9,24,2,0)="^^931^931^3061008"
^XMB(3.9,24,2,1,0)="$TXT Released EC*2*81 SEQ #75"
^XMB(3.9,24,2,2,0)="Extracted from mail message"
^XMB(3.9,24,2,3,0)="$END TXT"
^XMB(3.9,24,2,4,0)="$KID EC*2.0*81"
^XMB(3.9,24,2,5,0)="**INSTALL NAME**"
^XMB(3.9,24,2,6,0)="EC*2.0*81"
^XMB(3.9,24,2,7,0)="""BLD"",6679,0)"
^XMB(3.9,24,2,8,0)="EC*2.0*81^EVENT CAPTURE^0^3060410^y"
^XMB(3.9,24,2,9,0)="""BLD"",6679,1,0)"
^XMB(3.9,24,2,10,0)="^^1^1^3060410^"
^XMB(3.9,24,2,11,0)="""BLD"",6679,1,1,0)"
^XMB(3.9,24,2,12,0)="This patch updates file EC NATIONAL PROCEDURE (#725)."
^XMB(3.9,24,2,13,0)="""BLD"",6679,4,0)"
^XMB(3.9,24,2,14,0)="^9.64PA^^"
^XMB(3.9,24,2,15,0)="""BLD"",6679,""INIT"")"
^XMB(3.9,24,2,16,0)="EC2P81PT"
^XMB(3.9,24,2,17,0)="""BLD"",6679,""KRN"",0)"
^XMB(3.9,24,2,18,0)="^9.67PA^8989.52^19"
^XMB(3.9,24,2,19,0)="""BLD"",6679,""KRN"",.4,0)"
^XMB(3.9,24,2,20,0)=".4"
^XMB(3.9,24,2,21,0)="""BLD"",6679,""KRN"",.401,0)"
^XMB(3.9,24,2,22,0)=".401"
^XMB(3.9,24,2,23,0)="""BLD"",6679,""KRN"",.402,0)"
^XMB(3.9,24,2,24,0)=".402"
^XMB(3.9,24,2,25,0)="""BLD"",6679,""KRN"",.403,0)"
^XMB(3.9,24,2,26,0)=".403"
^XMB(3.9,24,2,27,0)="""BLD"",6679,""KRN"",.5,0)"
^XMB(3.9,24,2,28,0)=".5"
^XMB(3.9,24,2,29,0)="""BLD"",6679,""KRN"",.84,0)"
^XMB(3.9,24,2,30,0)=".84"
^XMB(3.9,24,2,31,0)="""BLD"",6679,""KRN"",3.6,0)"
^XMB(3.9,24,2,32,0)="3.6"
^XMB(3.9,24,2,33,0)="""BLD"",6679,""KRN"",3.8,0)"
^XMB(3.9,24,2,34,0)="3.8"
^XMB(3.9,24,2,35,0)="""BLD"",6679,""KRN"",9.2,0)"
^XMB(3.9,24,2,36,0)="9.2"
^XMB(3.9,24,2,37,0)="""BLD"",6679,""KRN"",9.8,0)"
^XMB(3.9,24,2,38,0)="9.8"
^XMB(3.9,24,2,39,0)="""BLD"",6679,""KRN"",9.8,""NM"",0)"
^XMB(3.9,24,2,40,0)="^9.68A^3^3"
^XMB(3.9,24,2,41,0)="""BLD"",6679,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,24,2,42,0)="EC725U40^^0^B15949867"
^XMB(3.9,24,2,43,0)="""BLD"",6679,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,24,2,44,0)="EC725U41^^0^B14964723"
^XMB(3.9,24,2,45,0)="""BLD"",6679,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,24,2,46,0)="EC2P81PT^^0^B31161837"
^XMB(3.9,24,2,47,0)="""BLD"",6679,""KRN"",9.8,""NM"",""B"",""EC2P81PT"",3)"
^XMB(3.9,24,2,48,0)=""
^XMB(3.9,24,2,49,0)="""BLD"",6679,""KRN"",9.8,""NM"",""B"",""EC725U40"",1)"
^XMB(3.9,24,2,50,0)=""
^XMB(3.9,24,2,51,0)="""BLD"",6679,""KRN"",9.8,""NM"",""B"",""EC725U41"",2)"
^XMB(3.9,24,2,52,0)=""
^XMB(3.9,24,2,53,0)="""BLD"",6679,""KRN"",19,0)"
^XMB(3.9,24,2,54,0)="19"
^XMB(3.9,24,2,55,0)="""BLD"",6679,""KRN"",19,""NM"",0)"
^XMB(3.9,24,2,56,0)="^9.68A^^"
^XMB(3.9,24,2,57,0)="""BLD"",6679,""KRN"",19.1,0)"
^XMB(3.9,24,2,58,0)="19.1"
^XMB(3.9,24,2,59,0)="""BLD"",6679,""KRN"",101,0)"
^XMB(3.9,24,2,60,0)="101"
^XMB(3.9,24,2,61,0)="""BLD"",6679,""KRN"",409.61,0)"
^XMB(3.9,24,2,62,0)="409.61"
^XMB(3.9,24,2,63,0)="""BLD"",6679,""KRN"",771,0)"
^XMB(3.9,24,2,64,0)="771"
^XMB(3.9,24,2,65,0)="""BLD"",6679,""KRN"",870,0)"
^XMB(3.9,24,2,66,0)="870"
^XMB(3.9,24,2,67,0)="""BLD"",6679,""KRN"",8989.51,0)"
^XMB(3.9,24,2,68,0)="8989.51"
^XMB(3.9,24,2,69,0)="""BLD"",6679,""KRN"",8989.52,0)"
^XMB(3.9,24,2,70,0)="8989.52"
^XMB(3.9,24,2,71,0)="""BLD"",6679,""KRN"",8994,0)"
^XMB(3.9,24,2,72,0)="8994"
^XMB(3.9,24,2,73,0)="""BLD"",6679,""KRN"",""B"",.4,.4)"
^XMB(3.9,24,2,74,0)=""
^XMB(3.9,24,2,75,0)="""BLD"",6679,""KRN"",""B"",.401,.401)"
^XMB(3.9,24,2,76,0)=""
^XMB(3.9,24,2,77,0)="""BLD"",6679,""KRN"",""B"",.402,.402)"
^XMB(3.9,24,2,78,0)=""
^XMB(3.9,24,2,79,0)="""BLD"",6679,""KRN"",""B"",.403,.403)"
^XMB(3.9,24,2,80,0)=""
^XMB(3.9,24,2,81,0)="""BLD"",6679,""KRN"",""B"",.5,.5)"
^XMB(3.9,24,2,82,0)=""
^XMB(3.9,24,2,83,0)="""BLD"",6679,""KRN"",""B"",.84,.84)"
^XMB(3.9,24,2,84,0)=""
^XMB(3.9,24,2,85,0)="""BLD"",6679,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,24,2,86,0)=""
^XMB(3.9,24,2,87,0)="""BLD"",6679,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,24,2,88,0)=""
^XMB(3.9,24,2,89,0)="""BLD"",6679,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,24,2,90,0)=""
^XMB(3.9,24,2,91,0)="""BLD"",6679,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,24,2,92,0)=""
^XMB(3.9,24,2,93,0)="""BLD"",6679,""KRN"",""B"",19,19)"
^XMB(3.9,24,2,94,0)=""
^XMB(3.9,24,2,95,0)="""BLD"",6679,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,24,2,96,0)=""
^XMB(3.9,24,2,97,0)="""BLD"",6679,""KRN"",""B"",101,101)"
^XMB(3.9,24,2,98,0)=""
^XMB(3.9,24,2,99,0)="""BLD"",6679,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,24,2,100,0)=""
^XMB(3.9,24,2,101,0)="""BLD"",6679,""KRN"",""B"",771,771)"
^XMB(3.9,24,2,102,0)=""
^XMB(3.9,24,2,103,0)="""BLD"",6679,""KRN"",""B"",870,870)"
^XMB(3.9,24,2,104,0)=""
^XMB(3.9,24,2,105,0)="""BLD"",6679,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,24,2,106,0)=""
^XMB(3.9,24,2,107,0)="""BLD"",6679,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,24,2,108,0)=""
^XMB(3.9,24,2,109,0)="""BLD"",6679,""KRN"",""B"",8994,8994)"
^XMB(3.9,24,2,110,0)=""
^XMB(3.9,24,2,111,0)="""BLD"",6679,""QUES"",0)"
^XMB(3.9,24,2,112,0)="^9.62^^"
^XMB(3.9,24,2,113,0)="""BLD"",6679,""REQB"",0)"
^XMB(3.9,24,2,114,0)="^9.611^1^1"
^XMB(3.9,24,2,115,0)="""BLD"",6679,""REQB"",1,0)"
^XMB(3.9,24,2,116,0)="EC*2.0*80^2"
^XMB(3.9,24,2,117,0)="""BLD"",6679,""REQB"",""B"",""EC*2.0*80"",1)"
^XMB(3.9,24,2,118,0)=""
^XMB(3.9,24,2,119,0)="""INIT"")"
^XMB(3.9,24,2,120,0)="EC2P81PT"
^XMB(3.9,24,2,121,0)="""MBREQ"")"
^XMB(3.9,24,2,122,0)="0"
^XMB(3.9,24,2,123,0)="""PKG"",486,-1)"
^XMB(3.9,24,2,124,0)="1^1"
^XMB(3.9,24,2,125,0)="""PKG"",486,0)"
^XMB(3.9,24,2,126,0)="EVENT CAPTURE^EC^Event Capture Workload Capture System^"
^XMB(3.9,24,2,127,0)="""PKG"",486,20,0)"
^XMB(3.9,24,2,128,0)="^9.402P^^"
^XMB(3.9,24,2,129,0)="""PKG"",486,22,0)"
^XMB(3.9,24,2,130,0)="^9.49I^1^1"
^XMB(3.9,24,2,131,0)="""PKG"",486,22,1,0)"
^XMB(3.9,24,2,132,0)="2.0^2960508^2981027^66481"
^XMB(3.9,24,2,133,0)="""PKG"",486,22,1,""PAH"",1,0)"
^XMB(3.9,24,2,134,0)="81^3060410"
^XMB(3.9,24,2,135,0)="""PKG"",486,22,1,""PAH"",1,1,0)"
^XMB(3.9,24,2,136,0)="^^1^1^3060410"
^XMB(3.9,24,2,137,0)="""PKG"",486,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,24,2,138,0)="This patch updates file EC NATIONAL PROCEDURE (#725)."
^XMB(3.9,24,2,139,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,24,2,140,0)="Y"
^XMB(3.9,24,2,141,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,24,2,142,0)="^D REP^XPDH"
^XMB(3.9,24,2,143,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,24,2,144,0)="Shall I write over your |FLAG| File"
^XMB(3.9,24,2,145,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,24,2,146,0)="YES"
^XMB(3.9,24,2,147,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,24,2,148,0)="D XPF1^XPDIQ"
^XMB(3.9,24,2,149,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,24,2,150,0)="Y"
^XMB(3.9,24,2,151,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,24,2,152,0)="^D DTA^XPDH"
^XMB(3.9,24,2,153,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,24,2,154,0)="Want my data |FLAG| yours"
^XMB(3.9,24,2,155,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,24,2,156,0)="YES"
^XMB(3.9,24,2,157,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,24,2,158,0)="D XPF2^XPDIQ"
^XMB(3.9,24,2,159,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,24,2,160,0)="YO"
^XMB(3.9,24,2,161,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,24,2,162,0)="^D INHIBIT^XPDH"
^XMB(3.9,24,2,163,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,24,2,164,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,24,2,165,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,24,2,166,0)="YES"
^XMB(3.9,24,2,167,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,24,2,168,0)="D XPI1^XPDIQ"
^XMB(3.9,24,2,169,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,24,2,170,0)="PO^VA(200,:EM"
^XMB(3.9,24,2,171,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,24,2,172,0)="^D MG^XPDH"
^XMB(3.9,24,2,173,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,24,2,174,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,24,2,175,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,24,2,176,0)=""
^XMB(3.9,24,2,177,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,24,2,178,0)="D XPM1^XPDIQ"
^XMB(3.9,24,2,179,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,24,2,180,0)="Y"
^XMB(3.9,24,2,181,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,24,2,182,0)="^D MENU^XPDH"
^XMB(3.9,24,2,183,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,24,2,184,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,24,2,185,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,24,2,186,0)="YES"
^XMB(3.9,24,2,187,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,24,2,188,0)="D XPO1^XPDIQ"
^XMB(3.9,24,2,189,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,24,2,190,0)="Y"
^XMB(3.9,24,2,191,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,24,2,192,0)="^D OPT^XPDH"
^XMB(3.9,24,2,193,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,24,2,194,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,24,2,195,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,24,2,196,0)="YES"
^XMB(3.9,24,2,197,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,24,2,198,0)="D XPZ1^XPDIQ"
^XMB(3.9,24,2,199,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,24,2,200,0)="Y"
^XMB(3.9,24,2,201,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,24,2,202,0)="^D RTN^XPDH"
^XMB(3.9,24,2,203,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,24,2,204,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,24,2,205,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,24,2,206,0)="NO"
^XMB(3.9,24,2,207,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,24,2,208,0)="D XPZ2^XPDIQ"
^XMB(3.9,24,2,209,0)="""RTN"")"
^XMB(3.9,24,2,210,0)="3"
^XMB(3.9,24,2,211,0)="""RTN"",""EC2P81PT"")"
^XMB(3.9,24,2,212,0)="0^3^B31161837"
^XMB(3.9,24,2,213,0)="""RTN"",""EC2P81PT"",1,0)"
^XMB(3.9,24,2,214,0)="EC2P81PT ;ALB/GTS/JAP/GT - PATCH EC*2.0*81 Post-Init Rtn ;04/03/2006 "
^XMB(3.9,24,2,215,0)="""RTN"",""EC2P81PT"",2,0)"
^XMB(3.9,24,2,216,0)=" ;;2.0; EVENT CAPTURE ;**81**;8 May 96"
^XMB(3.9,24,2,217,0)="""RTN"",""EC2P81PT"",3,0)"
^XMB(3.9,24,2,218,0)=" ;"
^XMB(3.9,24,2,219,0)="""RTN"",""EC2P81PT"",4,0)"
^XMB(3.9,24,2,220,0)="POST ; entry point"
^XMB(3.9,24,2,221,0)="""RTN"",""EC2P81PT"",5,0)"
^XMB(3.9,24,2,222,0)=" N ECVRRV"
^XMB(3.9,24,2,223,0)="""RTN"",""EC2P81PT"",6,0)"
^XMB(3.9,24,2,224,0)=" ;* if 725 converted, write message"
^XMB(3.9,24,2,225,0)="""RTN"",""EC2P81PT"",7,0)"
^XMB(3.9,24,2,226,0)=" ;  since check inserted in addproc subroutine, patch may be re-installed"
^XMB(3.9,24,2,227,0)="""RTN"",""EC2P81PT"",8,0)"
^XMB(3.9,24,2,228,0)=" I $$GET1^DID(725,"""","""",""PACKAGE REVISION DATA"")[""EC*2*81"" D"
^XMB(3.9,24,2,229,0)="""RTN"",""EC2P81PT"",9,0)"
^XMB(3.9,24,2,230,0)=" .D MES^XPDUTL("" "")"
^XMB(3.9,24,2,231,0)="""RTN"",""EC2P81PT"",10,0)"
^XMB(3.9,24,2,232,0)=" .D MES^XPDUTL(""It appears that the EC NATIONAL PROCEDURE"")"
^XMB(3.9,24,2,233,0)="""RTN"",""EC2P81PT"",11,0)"
^XMB(3.9,24,2,234,0)=" .D MES^XPDUTL(""file (#725) has already been updated"")"
^XMB(3.9,24,2,235,0)="""RTN"",""EC2P81PT"",12,0)"
^XMB(3.9,24,2,236,0)=" .D MES^XPDUTL(""with Patch EC*2*81."")"
^XMB(3.9,24,2,237,0)="""RTN"",""EC2P81PT"",13,0)"
^XMB(3.9,24,2,238,0)=" .D MES^XPDUTL("" "")"
^XMB(3.9,24,2,239,0)="""RTN"",""EC2P81PT"",14,0)"
^XMB(3.9,24,2,240,0)=" .D MES^XPDUTL(""But the patch may be re-installed..."")"
^XMB(3.9,24,2,241,0)="""RTN"",""EC2P81PT"",15,0)"
^XMB(3.9,24,2,242,0)=" .D MES^XPDUTL("" "")"
^XMB(3.9,24,2,243,0)="""RTN"",""EC2P81PT"",16,0)"
^XMB(3.9,24,2,244,0)=" D ENTUP"
^XMB(3.9,24,2,245,0)="""RTN"",""EC2P81PT"",17,0)"
^XMB(3.9,24,2,246,0)=" D F7203"
^XMB(3.9,24,2,247,0)="""RTN"",""EC2P81PT"",18,0)"
^XMB(3.9,24,2,248,0)=" D KILL1"
^XMB(3.9,24,2,249,0)="""RTN"",""EC2P81PT"",19,0)"
^XMB(3.9,24,2,250,0)=" Q"
^XMB(3.9,24,2,251,0)="""RTN"",""EC2P81PT"",20,0)"
^XMB(3.9,24,2,252,0)=" ;"
^XMB(3.9,24,2,253,0)="""RTN"",""EC2P81PT"",21,0)"
^XMB(3.9,24,2,254,0)="ENTUP ; "
^XMB(3.9,24,2,255,0)="""RTN"",""EC2P81PT"",22,0)"
^XMB(3.9,24,2,256,0)=" D MES^XPDUTL("" "")"
^XMB(3.9,24,2,257,0)="""RTN"",""EC2P81PT"",23,0)"
^XMB(3.9,24,2,258,0)=" D BMES^XPDUTL(""Updating the National Procedures file (#725)..."")"
^XMB(3.9,24,2,259,0)="""RTN"",""EC2P81PT"",24,0)"
^XMB(3.9,24,2,260,0)=" D MES^XPDUTL("" "")"
^XMB(3.9,24,2,261,0)="""RTN"",""EC2P81PT"",25,0)"
^XMB(3.9,24,2,262,0)=" ;* add new/edit national procedures"
^XMB(3.9,24,2,263,0)="""RTN"",""EC2P81PT"",26,0)"
^XMB(3.9,24,2,264,0)=" D ADDPROC^EC725U40  ;add new procedures"
^XMB(3.9,24,2,265,0)="""RTN"",""EC2P81PT"",27,0)"
^XMB(3.9,24,2,266,0)=" D NAMECHG^EC725U40  ;change desription"
^XMB(3.9,24,2,267,0)="""RTN"",""EC2P81PT"",28,0)"
^XMB(3.9,24,2,268,0)=" D CPTCHG^EC725U41  ;change CPT code"
^XMB(3.9,24,2,269,0)="""RTN"",""EC2P81PT"",29,0)"
^XMB(3.9,24,2,270,0)=" D INACT^EC725U41   ;inactivate code"
^XMB(3.9,24,2,271,0)="""RTN"",""EC2P81PT"",30,0)"
^XMB(3.9,24,2,272,0)=" D REACT^EC725U41    ;reactivate code"
^XMB(3.9,24,2,273,0)="""RTN"",""EC2P81PT"",31,0)"
^XMB(3.9,24,2,274,0)=" ;* set vrrv node (file #725)"
^XMB(3.9,24,2,275,0)="""RTN"",""EC2P81PT"",32,0)"
^XMB(3.9,24,2,276,0)=" S ECVRRV=$$GET1^DID(725,"""","""",""PACKAGE REVISION DATA"")"
^XMB(3.9,24,2,277,0)="""RTN"",""EC2P81PT"",33,0)"
^XMB(3.9,24,2,278,0)=" S ECVRRV=ECVRRV_""^EC*2*81"""
^XMB(3.9,24,2,279,0)="""RTN"",""EC2P81PT"",34,0)"
^XMB(3.9,24,2,280,0)=" D PRD^DILFD(725,ECVRRV)"
^XMB(3.9,24,2,281,0)="""RTN"",""EC2P81PT"",35,0)"
^XMB(3.9,24,2,282,0)=" D MES^XPDUTL("" "")"
^XMB(3.9,24,2,283,0)="""RTN"",""EC2P81PT"",36,0)"
^XMB(3.9,24,2,284,0)=" D BMES^XPDUTL(""Update of EC NATIONAL PROCEDURE file (#725)"")"
^XMB(3.9,24,2,285,0)="""RTN"",""EC2P81PT"",37,0)"
^XMB(3.9,24,2,286,0)=" D BMES^XPDUTL(""   completed..."")"
^XMB(3.9,24,2,287,0)="""RTN"",""EC2P81PT"",38,0)"
^XMB(3.9,24,2,288,0)=" D MES^XPDUTL("" "")"
^XMB(3.9,24,2,289,0)="""RTN"",""EC2P81PT"",39,0)"
^XMB(3.9,24,2,290,0)=" Q"
^XMB(3.9,24,2,291,0)="""RTN"",""EC2P81PT"",40,0)"
^XMB(3.9,24,2,292,0)="MSGTXT ; Message intro"
^XMB(3.9,24,2,293,0)="""RTN"",""EC2P81PT"",41,0)"
^XMB(3.9,24,2,294,0)=" ;; Please forward this message to your local DSS Site Manager or"
^XMB(3.9,24,2,295,0)="""RTN"",""EC2P81PT"",42,0)"
^XMB(3.9,24,2,296,0)=" ;; Event Capture ADPAC.;; Event Capture ADPAC."
^XMB(3.9,24,2,297,0)="""RTN"",""EC2P81PT"",43,0)"
^XMB(3.9,24,2,298,0)=" ;;"
^XMB(3.9,24,2,299,0)="""RTN"",""EC2P81PT"",44,0)"
^XMB(3.9,24,2,300,0)=" ;; A review of the EC EVENT CODE SCREENS file (#720.3) was done"
^XMB(3.9,24,2,301,0)="""RTN"",""EC2P81PT"",45,0)"
^XMB(3.9,24,2,302,0)=" ;; after installation of patch EC*2*81 which updated the EC NATIONAL"
^XMB(3.9,24,2,303,0)="""RTN"",""EC2P81PT"",46,0)"
^XMB(3.9,24,2,304,0)=" ;; PROCEDURE file (#725).  This message provides the results of that"
^XMB(3.9,24,2,305,0)="""RTN"",""EC2P81PT"",47,0)"
^XMB(3.9,24,2,306,0)=" ;; review."
^XMB(3.9,24,2,307,0)="""RTN"",""EC2P81PT"",48,0)"
^XMB(3.9,24,2,308,0)=" ;;"
^XMB(3.9,24,2,309,0)="""RTN"",""EC2P81PT"",49,0)"
^XMB(3.9,24,2,310,0)=" ;; The EC EVENT CODE SCREENS file (#720.3) records indicated below"
^XMB(3.9,24,2,311,0)="""RTN"",""EC2P81PT"",50,0)"
^XMB(3.9,24,2,312,0)=" ;; point to an inactive record in the EC NATIONAL PROCEDURE file"
^XMB(3.9,24,2,313,0)="""RTN"",""EC2P81PT"",51,0)"
^XMB(3.9,24,2,314,0)=" ;; (#725) or to an inactive record in the CPT file (#81)."
^XMB(3.9,24,2,315,0)="""RTN"",""EC2P81PT"",52,0)"
^XMB(3.9,24,2,316,0)=" ;;"
^XMB(3.9,24,2,317,0)="""RTN"",""EC2P81PT"",53,0)"
^XMB(3.9,24,2,318,0)=" ;; The user should use the Inactivate Event Code Screens [ECNACT]"
^XMB(3.9,24,2,319,0)="""RTN"",""EC2P81PT"",54,0)"
^XMB(3.9,24,2,320,0)=" ;; option to inactivate the Event Code Screen.  If necessary, a new"
^XMB(3.9,24,2,321,0)="""RTN"",""EC2P81PT"",55,0)"
^XMB(3.9,24,2,322,0)=" ;; Event Code Screen can be created using a currently active CPT code"
^XMB(3.9,24,2,323,0)="""RTN"",""EC2P81PT"",56,0)"
^XMB(3.9,24,2,324,0)=" ;; or National Procedure."
^XMB(3.9,24,2,325,0)="""RTN"",""EC2P81PT"",57,0)"
^XMB(3.9,24,2,326,0)=" ;;"
^XMB(3.9,24,2,327,0)="""RTN"",""EC2P81PT"",58,0)"
^XMB(3.9,24,2,328,0)=" ;;QUIT"
^XMB(3.9,24,2,329,0)="""RTN"",""EC2P81PT"",59,0)"
^XMB(3.9,24,2,330,0)=" ;"
^XMB(3.9,24,2,331,0)="""RTN"",""EC2P81PT"",60,0)"
^XMB(3.9,24,2,332,0)="F7203 ;* inspect/report 720.3"
^XMB(3.9,24,2,333,0)="""RTN"",""EC2P81PT"",61,0)"
^XMB(3.9,24,2,334,0)=" D BMES^XPDUTL(""Inspecting EC Event Code Screens file (#720.3)..."")"
^XMB(3.9,24,2,335,0)="""RTN"",""EC2P81PT"",62,0)"
^XMB(3.9,24,2,336,0)=" D BMES^XPDUTL(""You will receive a MailMan message regarding file #720.3^ "")"
^XMB(3.9,24,2,337,0)="""RTN"",""EC2P81PT"",63,0)"
^XMB(3.9,24,2,338,0)=" D BMES^XPDUTL(""  "")"
^XMB(3.9,24,2,339,0)="""RTN"",""EC2P81PT"",64,0)"
^XMB(3.9,24,2,340,0)=" S ZTRTN=""F7203Q^EC2P81PT"",ZTDESC=""File #720.3 Review from EC*2*81"",ZTIO="""""
^XMB(3.9,24,2,341,0)="""RTN"",""EC2P81PT"",65,0)"
^XMB(3.9,24,2,342,0)=" S ZTDTH=$H,ZTREQ=""@"",ZTSAVE(""ZTREQ"")="""" D ^%ZTLOAD"
^XMB(3.9,24,2,343,0)="""RTN"",""EC2P81PT"",66,0)"
^XMB(3.9,24,2,344,0)=" Q"
^XMB(3.9,24,2,345,0)="""RTN"",""EC2P81PT"",67,0)"
^XMB(3.9,24,2,346,0)=" ;"
^XMB(3.9,24,2,347,0)="""RTN"",""EC2P81PT"",68,0)"
^XMB(3.9,24,2,348,0)="F7203Q ;* background job entry point"
^XMB(3.9,24,2,349,0)="""RTN"",""EC2P81PT"",69,0)"
^XMB(3.9,24,2,350,0)=" N ECPTR,ECPROCT,EC01,ECSCDA,ECFILE,ECDATA,ECLOC,ECCAT,ECCATNM,ECUNIT,ECNAM,ECPROC,ECINACT,COUNT,TXTVAR"
^XMB(3.9,24,2,351,0)="""RTN"",""EC2P81PT"",70,0)"
^XMB(3.9,24,2,352,0)=" S COUNT=0 K ^TMP($J,""EC2P81"")"
^XMB(3.9,24,2,353,0)="""RTN"",""EC2P81PT"",71,0)"
^XMB(3.9,24,2,354,0)=" F I=1:1 S TXTVAR=$P($T(MSGTXT+I),"";;"",2) Q:TXTVAR=""QUIT""  D LINE(TXTVAR)"
^XMB(3.9,24,2,355,0)="""RTN"",""EC2P81PT"",72,0)"
^XMB(3.9,24,2,356,0)=" S (EC01,ECPROCT)=0"
^XMB(3.9,24,2,357,0)="""RTN"",""EC2P81PT"",73,0)"
^XMB(3.9,24,2,358,0)=" F  S EC01=$O(^ECJ(""B"",EC01)) Q:+EC01=0  D"
^XMB(3.9,24,2,359,0)="""RTN"",""EC2P81PT"",74,0)"
^XMB(3.9,24,2,360,0)=" .S ECPTR=$P(EC01,""-"",4),ECSCDA=$O(^ECJ(""B"",EC01,0))"
^XMB(3.9,24,2,361,0)="""RTN"",""EC2P81PT"",75,0)"
^XMB(3.9,24,2,362,0)=" .Q:'$D(^ECJ(ECSCDA,0))"
^XMB(3.9,24,2,363,0)="""RTN"",""EC2P81PT"",76,0)"
^XMB(3.9,24,2,364,0)=" .;ignore any ec screen that has been inactivated"
^XMB(3.9,24,2,365,0)="""RTN"",""EC2P81PT"",77,0)"
^XMB(3.9,24,2,366,0)=" .Q:+$P(^ECJ(ECSCDA,0),""^"",2)"
^XMB(3.9,24,2,367,0)="""RTN"",""EC2P81PT"",78,0)"
^XMB(3.9,24,2,368,0)=" .S ECFILE=$P(ECPTR,"";"",2)"
^XMB(3.9,24,2,369,0)="""RTN"",""EC2P81PT"",79,0)"
^XMB(3.9,24,2,370,0)=" .;ec screens pointing to file #725"
^XMB(3.9,24,2,371,0)="""RTN"",""EC2P81PT"",80,0)"
^XMB(3.9,24,2,372,0)=" .I ECFILE[""EC(725"" S ECDATA=$G(^EC(725,$P(ECPTR,"";"",1),0)) D"
^XMB(3.9,24,2,373,0)="""RTN"",""EC2P81PT"",81,0)"
^XMB(3.9,24,2,374,0)=" ..S ECINACT=$P(ECDATA,U,3)"
^XMB(3.9,24,2,375,0)="""RTN"",""EC2P81PT"",82,0)"
^XMB(3.9,24,2,376,0)=" ..Q:ECINACT="""""
^XMB(3.9,24,2,377,0)="""RTN"",""EC2P81PT"",83,0)"
^XMB(3.9,24,2,378,0)=" ..;ignore if procedure inactivated before this fiscal year"
^XMB(3.9,24,2,379,0)="""RTN"",""EC2P81PT"",84,0)"
^XMB(3.9,24,2,380,0)=" ..Q:(ECINACT<3060101)"
^XMB(3.9,24,2,381,0)="""RTN"",""EC2P81PT"",85,0)"
^XMB(3.9,24,2,382,0)=" ..S Y=ECINACT D DD^%DT S ECINACT=Y"
^XMB(3.9,24,2,383,0)="""RTN"",""EC2P81PT"",86,0)"
^XMB(3.9,24,2,384,0)=" ..S ECLOC=$P(EC01,""-"",1),ECUNIT=$P(EC01,""-"",2),ECCAT=$P(EC01,""-"",3)"
^XMB(3.9,24,2,385,0)="""RTN"",""EC2P81PT"",87,0)"
^XMB(3.9,24,2,386,0)=" ..S ECLOC=$P($G(^DIC(4,ECLOC,0)),U,1),ECUNIT=$P($G(^ECD(ECUNIT,0)),U,1)"
^XMB(3.9,24,2,387,0)="""RTN"",""EC2P81PT"",88,0)"
^XMB(3.9,24,2,388,0)=" ..S:+ECCAT'=0 ECCATNM=$P($G(^EC(726,ECCAT,0)),U,1)"
^XMB(3.9,24,2,389,0)="""RTN"",""EC2P81PT"",89,0)"
^XMB(3.9,24,2,390,0)=" ..S:+ECCAT=0 ECCATNM=""None"""
^XMB(3.9,24,2,391,0)="""RTN"",""EC2P81PT"",90,0)"
^XMB(3.9,24,2,392,0)=" ..S ECPROC=$P(ECDATA,U,1)_"" (""_$P(ECDATA,U,2)_"")"""
^XMB(3.9,24,2,393,0)="""RTN"",""EC2P81PT"",91,0)"
^XMB(3.9,24,2,394,0)=" ..S ECNAM=$P(^ECJ(ECSCDA,0),"";"",1)"
^XMB(3.9,24,2,395,0)="""RTN"",""EC2P81PT"",92,0)"
^XMB(3.9,24,2,396,0)=" ..D LINE("" "")"
^XMB(3.9,24,2,397,0)="""RTN"",""EC2P81PT"",93,0)"
^XMB(3.9,24,2,398,0)=" ..D LINE("" The National Procedure for the following Event Code"")"
^XMB(3.9,24,2,399,0)="""RTN"",""EC2P81PT"",94,0)"
^XMB(3.9,24,2,400,0)=" ..D LINE("" Screen (""_ECNAM_"") is inactive or will soon be inactive --"")"
^XMB(3.9,24,2,401,0)="""RTN"",""EC2P81PT"",95,0)"
^XMB(3.9,24,2,402,0)=" ..D LINE(""  Location:  ""_ECLOC)"
^XMB(3.9,24,2,403,0)="""RTN"",""EC2P81PT"",96,0)"
^XMB(3.9,24,2,404,0)=" ..D LINE(""  Category:  ""_ECCATNM)"
^XMB(3.9,24,2,405,0)="""RTN"",""EC2P81PT"",97,0)"
^XMB(3.9,24,2,406,0)=" ..D LINE(""  DSS Unit:  ""_ECUNIT)"
^XMB(3.9,24,2,407,0)="""RTN"",""EC2P81PT"",98,0)"
^XMB(3.9,24,2,408,0)=" ..D LINE(""  Procedure: ""_ECPROC)"
^XMB(3.9,24,2,409,0)="""RTN"",""EC2P81PT"",99,0)"
^XMB(3.9,24,2,410,0)=" ..D LINE(""  Inactivation Date: ""_ECINACT)"
^XMB(3.9,24,2,411,0)="""RTN"",""EC2P81PT"",100,0)"
^XMB(3.9,24,2,412,0)=" ..S ECPROCT=ECPROCT+1"
^XMB(3.9,24,2,413,0)="""RTN"",""EC2P81PT"",101,0)"
^XMB(3.9,24,2,414,0)=" .;ec screens pointing to file #81"
^XMB(3.9,24,2,415,0)="""RTN"",""EC2P81PT"",102,0)"
^XMB(3.9,24,2,416,0)=" .I ECFILE[""ICPT"" S ECDATA=$G(^ICPT($P(ECPTR,"";"",1),0)) D"
^XMB(3.9,24,2,417,0)="""RTN"",""EC2P81PT"",103,0)"
^XMB(3.9,24,2,418,0)=" ..S ECINACT=$P(ECDATA,U,4)"
^XMB(3.9,24,2,419,0)="""RTN"",""EC2P81PT"",104,0)"
^XMB(3.9,24,2,420,0)=" ..Q:ECINACT="""""
^XMB(3.9,24,2,421,0)="""RTN"",""EC2P81PT"",105,0)"
^XMB(3.9,24,2,422,0)=" ..S ECLOC=$P(EC01,""-"",1),ECUNIT=$P(EC01,""-"",2),ECCAT=$P(EC01,""-"",3)"
^XMB(3.9,24,2,423,0)="""RTN"",""EC2P81PT"",106,0)"
^XMB(3.9,24,2,424,0)=" ..S ECLOC=$P($G(^DIC(4,ECLOC,0)),U,1),ECUNIT=$P($G(^ECD(ECUNIT,0)),U,1)"
^XMB(3.9,24,2,425,0)="""RTN"",""EC2P81PT"",107,0)"
^XMB(3.9,24,2,426,0)=" ..S:+ECCAT'=0 ECCATNM=$P($G(^EC(726,ECCAT,0)),U,1)"
^XMB(3.9,24,2,427,0)="""RTN"",""EC2P81PT"",108,0)"
^XMB(3.9,24,2,428,0)=" ..S:+ECCAT=0 ECCATNM=""None"""
^XMB(3.9,24,2,429,0)="""RTN"",""EC2P81PT"",109,0)"
^XMB(3.9,24,2,430,0)=" ..S ECPROC=$P(ECDATA,U,2)_"" (""_$P(ECDATA,U,1)_"")"",ECNAM=$P(^ECJ(ECSCDA,0),"";"",1)"
^XMB(3.9,24,2,431,0)="""RTN"",""EC2P81PT"",110,0)"
^XMB(3.9,24,2,432,0)=" ..D LINE("" "")"
^XMB(3.9,24,2,433,0)="""RTN"",""EC2P81PT"",111,0)"
^XMB(3.9,24,2,434,0)=" ..D LINE("" The CPT procedure for the following Event"")"
^XMB(3.9,24,2,435,0)="""RTN"",""EC2P81PT"",112,0)"
^XMB(3.9,24,2,436,0)=" ..D LINE("" Code Screen (""_ECNAM_"") is inactive --"")"
^XMB(3.9,24,2,437,0)="""RTN"",""EC2P81PT"",113,0)"
^XMB(3.9,24,2,438,0)=" ..D LINE(""  Location:  ""_ECLOC)"
^XMB(3.9,24,2,439,0)="""RTN"",""EC2P81PT"",114,0)"
^XMB(3.9,24,2,440,0)=" ..D LINE(""  Category:  ""_ECCATNM)"
^XMB(3.9,24,2,441,0)="""RTN"",""EC2P81PT"",115,0)"
^XMB(3.9,24,2,442,0)=" ..D LINE(""  DSS Unit:  ""_ECUNIT)"
^XMB(3.9,24,2,443,0)="""RTN"",""EC2P81PT"",116,0)"
^XMB(3.9,24,2,444,0)=" ..D LINE(""  Procedure: ""_ECPROC)"
^XMB(3.9,24,2,445,0)="""RTN"",""EC2P81PT"",117,0)"
^XMB(3.9,24,2,446,0)=" ..S ECPROCT=ECPROCT+1"
^XMB(3.9,24,2,447,0)="""RTN"",""EC2P81PT"",118,0)"
^XMB(3.9,24,2,448,0)=" I ECPROCT=0 D"
^XMB(3.9,24,2,449,0)="""RTN"",""EC2P81PT"",119,0)"
^XMB(3.9,24,2,450,0)=" .D LINE("" "")"
^XMB(3.9,24,2,451,0)="""RTN"",""EC2P81PT"",120,0)"
^XMB(3.9,24,2,452,0)=" .D LINE("" ""_ECPROCT_"" Event Code Screens were found to be pointing to aninactive"")"
^XMB(3.9,24,2,453,0)="""RTN"",""EC2P81PT"",121,0)"
^XMB(3.9,24,2,454,0)=" .D LINE("" or soon to be inactive procedure in file #725 or file #81."")"
^XMB(3.9,24,2,455,0)="""RTN"",""EC2P81PT"",122,0)"
^XMB(3.9,24,2,456,0)=" .D LINE("" "")"
^XMB(3.9,24,2,457,0)="""RTN"",""EC2P81PT"",123,0)"
^XMB(3.9,24,2,458,0)=" D MAIL"
^XMB(3.9,24,2,459,0)="""RTN"",""EC2P81PT"",124,0)"
^XMB(3.9,24,2,460,0)=" K ^TMP($J,""EC2P81""),I,Y"
^XMB(3.9,24,2,461,0)="""RTN"",""EC2P81PT"",125,0)"
^XMB(3.9,24,2,462,0)=" Q"
^XMB(3.9,24,2,463,0)="""RTN"",""EC2P81PT"",126,0)"
^XMB(3.9,24,2,464,0)=" ;"
^XMB(3.9,24,2,465,0)="""RTN"",""EC2P81PT"",127,0)"
^XMB(3.9,24,2,466,0)="LINE(TEXT) ; Add line to message global"
^XMB(3.9,24,2,467,0)="""RTN"",""EC2P81PT"",128,0)"
^XMB(3.9,24,2,468,0)=" S COUNT=COUNT+1,^TMP($J,""EC2P81"",COUNT)=TEXT"
^XMB(3.9,24,2,469,0)="""RTN"",""EC2P81PT"",129,0)"
^XMB(3.9,24,2,470,0)=" Q"
^XMB(3.9,24,2,471,0)="""RTN"",""EC2P81PT"",130,0)"
^XMB(3.9,24,2,472,0)=" ;"
^XMB(3.9,24,2,473,0)="""RTN"",""EC2P81PT"",131,0)"
^XMB(3.9,24,2,474,0)="MAIL ; Send message"
^XMB(3.9,24,2,475,0)="""RTN"",""EC2P81PT"",132,0)"
^XMB(3.9,24,2,476,0)=" N XMDUZ,XMY,XMTEXT,XMSUB"
^XMB(3.9,24,2,477,0)="""RTN"",""EC2P81PT"",133,0)"
^XMB(3.9,24,2,478,0)=" S XMY(DUZ)="""",XMDUZ=.5"
^XMB(3.9,24,2,479,0)="""RTN"",""EC2P81PT"",134,0)"
^XMB(3.9,24,2,480,0)=" S XMSUB=""Event Code Screens to Review"""
^XMB(3.9,24,2,481,0)="""RTN"",""EC2P81PT"",135,0)"
^XMB(3.9,24,2,482,0)=" S XMTEXT=""^TMP($J,""""EC2P81"""","""
^XMB(3.9,24,2,483,0)="""RTN"",""EC2P81PT"",136,0)"
^XMB(3.9,24,2,484,0)=" D ^XMD"
^XMB(3.9,24,2,485,0)="""RTN"",""EC2P81PT"",137,0)"
^XMB(3.9,24,2,486,0)=" Q"
^XMB(3.9,24,2,487,0)="""RTN"",""EC2P81PT"",138,0)"
^XMB(3.9,24,2,488,0)="KILL1 ;"
^XMB(3.9,24,2,489,0)="""RTN"",""EC2P81PT"",139,0)"
^XMB(3.9,24,2,490,0)=" K ZTDESC,ZTDTH,ZTIO,ZTREQ,ZTRTN,ZTSAVE(""ZTREQ"")"
^XMB(3.9,24,2,491,0)="""RTN"",""EC2P81PT"",140,0)"
^XMB(3.9,24,2,492,0)=" Q"
^XMB(3.9,24,2,493,0)="""RTN"",""EC725U40"")"
^XMB(3.9,24,2,494,0)="0^1^B15949867"
^XMB(3.9,24,2,495,0)="""RTN"",""EC725U40"",1,0)"
^XMB(3.9,24,2,496,0)="EC725U40 ;ALB/GTS/JAP/GT - EC National Procedure Update; 4/03/2006"
^XMB(3.9,24,2,497,0)="""RTN"",""EC725U40"",2,0)"
^XMB(3.9,24,2,498,0)=" ;;2.0; EVENT CAPTURE ;**81**;8 May 96"
^XMB(3.9,24,2,499,0)="""RTN"",""EC725U40"",3,0)"
^XMB(3.9,24,2,500,0)=" ;"
^XMB(3.9,24,2,501,0)="""RTN"",""EC725U40"",4,0)"
^XMB(3.9,24,2,502,0)=" ;this routine is used as a post-init in a KIDS build "
^XMB(3.9,24,2,503,0)="""RTN"",""EC725U40"",5,0)"
^XMB(3.9,24,2,504,0)=" ;to modify the EC National Procedure file #725"
^XMB(3.9,24,2,505,0)="""RTN"",""EC725U40"",6,0)"
^XMB(3.9,24,2,506,0)=" ;"
^XMB(3.9,24,2,507,0)="""RTN"",""EC725U40"",7,0)"
^XMB(3.9,24,2,508,0)="ADDPROC ;* add national procedures"
^XMB(3.9,24,2,509,0)="""RTN"",""EC725U40"",8,0)"
^XMB(3.9,24,2,510,0)=" ;"
^XMB(3.9,24,2,511,0)="""RTN"",""EC725U40"",9,0)"
^XMB(3.9,24,2,512,0)=" ;  ECXX is in format:"
^XMB(3.9,24,2,513,0)="""RTN"",""EC725U40"",10,0)"
^XMB(3.9,24,2,514,0)=" ;   NAME^NATIONAL NUMBER^CPT CODE^FIRST NATIONAL NUMBER SEQUENCE"
^XMB(3.9,24,2,515,0)="""RTN"",""EC725U40"",11,0)"
^XMB(3.9,24,2,516,0)=" ;   LAST NATIONAL NUMBER SEQUENCE"
^XMB(3.9,24,2,517,0)="""RTN"",""EC725U40"",12,0)"
^XMB(3.9,24,2,518,0)=" ;"
^XMB(3.9,24,2,519,0)="""RTN"",""EC725U40"",13,0)"
^XMB(3.9,24,2,520,0)=" N ECX,ECXX,ECDINUM,NAME,CODE,CPT,COUNT,X,Y,DIC,DIE,DA,DR,DLAYGO,DINUM"
^XMB(3.9,24,2,521,0)="""RTN"",""EC725U40"",14,0)"
^XMB(3.9,24,2,522,0)=" N ECADD,ECBEG,ECEND,CODX,NAMX,ECSEQ,LIEN,STR,CPTN,STR"
^XMB(3.9,24,2,523,0)="""RTN"",""EC725U40"",15,0)"
^XMB(3.9,24,2,524,0)=" D MES^XPDUTL("" "")"
^XMB(3.9,24,2,525,0)="""RTN"",""EC725U40"",16,0)"
^XMB(3.9,24,2,526,0)=" D BMES^XPDUTL(""Adding new procedures to EC NATIONAL PROCEDURE File (#725)..."")"
^XMB(3.9,24,2,527,0)="""RTN"",""EC725U40"",17,0)"
^XMB(3.9,24,2,528,0)=" D MES^XPDUTL("" "")"
^XMB(3.9,24,2,529,0)="""RTN"",""EC725U40"",18,0)"
^XMB(3.9,24,2,530,0)=" S ECDINUM=$O(^EC(725,9999),-1),COUNT=$P(^EC(725,0),U,4)"
^XMB(3.9,24,2,531,0)="""RTN"",""EC725U40"",19,0)"
^XMB(3.9,24,2,532,0)=" F ECX=1:1 S ECXX=$P($T(NEW+ECX),"";;"",2) Q:ECXX=""QUIT""  D"
^XMB(3.9,24,2,533,0)="""RTN"",""EC725U40"",20,0)"
^XMB(3.9,24,2,534,0)=" .S NAME=$P(ECXX,U,1),CODE=$P(ECXX,U,2),CPTN=$P(ECXX,U,3),CODX=CODE"
^XMB(3.9,24,2,535,0)="""RTN"",""EC725U40"",21,0)"
^XMB(3.9,24,2,536,0)=" .S CPT="""""
^XMB(3.9,24,2,537,0)="""RTN"",""EC725U40"",22,0)"
^XMB(3.9,24,2,538,0)=" .I CPTN'="""" S CPT=$$FIND1^DIC(81,"""",""X"",CPTN) I +CPT<1 D  Q"
^XMB(3.9,24,2,539,0)="""RTN"",""EC725U40"",23,0)"
^XMB(3.9,24,2,540,0)=" ..S STR=""   CPT code ""_CPTN_"" not a valid code in CPT File."""
^XMB(3.9,24,2,541,0)="""RTN"",""EC725U40"",24,0)"
^XMB(3.9,24,2,542,0)=" ..D MES^XPDUTL("" "")"
^XMB(3.9,24,2,543,0)="""RTN"",""EC725U40"",25,0)"
^XMB(3.9,24,2,544,0)=" ..D BMES^XPDUTL(""   [""_CODE_""] ""_STR)"
^XMB(3.9,24,2,545,0)="""RTN"",""EC725U40"",26,0)"
^XMB(3.9,24,2,546,0)=" .S ECBEG=$P(ECXX,U,4),ECEND=$P(ECXX,U,5),NAMX=NAME"
^XMB(3.9,24,2,547,0)="""RTN"",""EC725U40"",27,0)"
^XMB(3.9,24,2,548,0)=" .I ECBEG="""" S X=NAME D FILPROC Q"
^XMB(3.9,24,2,549,0)="""RTN"",""EC725U40"",28,0)"
^XMB(3.9,24,2,550,0)=" .F ECSEQ=ECBEG:1:ECEND D"
^XMB(3.9,24,2,551,0)="""RTN"",""EC725U40"",29,0)"
^XMB(3.9,24,2,552,0)=" ..S ECADD=""000""_ECSEQ,ECADD=$E(ECADD,$L(ECADD)-2,$L(ECADD))"
^XMB(3.9,24,2,553,0)="""RTN"",""EC725U40"",30,0)"
^XMB(3.9,24,2,554,0)=" ..;S NAME=NAMX_ECADD,X=NAME,CODE=CODX_ECADD"
^XMB(3.9,24,2,555,0)="""RTN"",""EC725U40"",31,0)"
^XMB(3.9,24,2,556,0)=" ..I $E(CODX,1,3)'=""RCM"" S NAME=NAMX_ECSEQ,X=NAME,CODE=CODX_ECADD"
^XMB(3.9,24,2,557,0)="""RTN"",""EC725U40"",32,0)"
^XMB(3.9,24,2,558,0)=" ..E  S NAME=NAMX_$E(ECADD,2,99),X=NAME,CODE=CODX_$E(ECADD,2,99)"
^XMB(3.9,24,2,559,0)="""RTN"",""EC725U40"",33,0)"
^XMB(3.9,24,2,560,0)=" ..D FILPROC"
^XMB(3.9,24,2,561,0)="""RTN"",""EC725U40"",34,0)"
^XMB(3.9,24,2,562,0)=" S $P(^EC(725,0),U,4)=COUNT,X=$O(^EC(725,999999),-1),$P(^EC(725,0),U,3)=X"
^XMB(3.9,24,2,563,0)="""RTN"",""EC725U40"",35,0)"
^XMB(3.9,24,2,564,0)=" Q"
^XMB(3.9,24,2,565,0)="""RTN"",""EC725U40"",36,0)"
^XMB(3.9,24,2,566,0)=" ;"
^XMB(3.9,24,2,567,0)="""RTN"",""EC725U40"",37,0)"
^XMB(3.9,24,2,568,0)="FILPROC ;File national procedures"
^XMB(3.9,24,2,569,0)="""RTN"",""EC725U40"",38,0)"
^XMB(3.9,24,2,570,0)=" I '$D(^EC(725,""D"",CODE)) D"
^XMB(3.9,24,2,571,0)="""RTN"",""EC725U40"",39,0)"
^XMB(3.9,24,2,572,0)=" .S ECDINUM=ECDINUM+1,DINUM=ECDINUM,DIC(0)=""L"",DLAYGO=725,DIC=""^EC(725,"""
^XMB(3.9,24,2,573,0)="""RTN"",""EC725U40"",40,0)"
^XMB(3.9,24,2,574,0)=" .S DIC(""DR"")=""1////^S X=CODE;4////^S X=CPT"""
^XMB(3.9,24,2,575,0)="""RTN"",""EC725U40"",41,0)"
^XMB(3.9,24,2,576,0)=" .D FILE^DICN"
^XMB(3.9,24,2,577,0)="""RTN"",""EC725U40"",42,0)"
^XMB(3.9,24,2,578,0)=" .I +Y>0 D"
^XMB(3.9,24,2,579,0)="""RTN"",""EC725U40"",43,0)"
^XMB(3.9,24,2,580,0)=" ..S COUNT=COUNT+1"
^XMB(3.9,24,2,581,0)="""RTN"",""EC725U40"",44,0)"
^XMB(3.9,24,2,582,0)=" ..D MES^XPDUTL("" "")"
^XMB(3.9,24,2,583,0)="""RTN"",""EC725U40"",45,0)"
^XMB(3.9,24,2,584,0)=" ..S STR=""   Entry #""_+Y_"" for ""_$P(Y,U,2)"
^XMB(3.9,24,2,585,0)="""RTN"",""EC725U40"",46,0)"
^XMB(3.9,24,2,586,0)=" ..S STR=STR_$S(CPT'="""":"" [CPT: ""_CPT_""]"",1:"""")_"" (""_CODE_"")"""
^XMB(3.9,24,2,587,0)="""RTN"",""EC725U40"",47,0)"
^XMB(3.9,24,2,588,0)=" ..D BMES^XPDUTL(STR_""  ...successfully added."")"
^XMB(3.9,24,2,589,0)="""RTN"",""EC725U40"",48,0)"
^XMB(3.9,24,2,590,0)=" .I Y=-1 D"
^XMB(3.9,24,2,591,0)="""RTN"",""EC725U40"",49,0)"
^XMB(3.9,24,2,592,0)=" ..D MES^XPDUTL("" "")"
^XMB(3.9,24,2,593,0)="""RTN"",""EC725U40"",50,0)"
^XMB(3.9,24,2,594,0)=" ..D BMES^XPDUTL(""ERROR when attempting to add ""_NAME_"" (""_CODE_"")"")"
^XMB(3.9,24,2,595,0)="""RTN"",""EC725U40"",51,0)"
^XMB(3.9,24,2,596,0)=" I $D(^EC(725,""DL"",CODE)) D"
^XMB(3.9,24,2,597,0)="""RTN"",""EC725U40"",52,0)"
^XMB(3.9,24,2,598,0)=" .S LIEN=$O(^EC(725,""DL"",CODE,""""))"
^XMB(3.9,24,2,599,0)="""RTN"",""EC725U40"",53,0)"
^XMB(3.9,24,2,600,0)=" .D MES^XPDUTL("" "")"
^XMB(3.9,24,2,601,0)="""RTN"",""EC725U40"",54,0)"
^XMB(3.9,24,2,602,0)=" .D BMES^XPDUTL(""   Your site has a local procedure (entry #""_LIEN_"") in File #725"")"
^XMB(3.9,24,2,603,0)="""RTN"",""EC725U40"",55,0)"
^XMB(3.9,24,2,604,0)=" .D BMES^XPDUTL(""   which uses ""_CODE_"" as its National Number."")"
^XMB(3.9,24,2,605,0)="""RTN"",""EC725U40"",56,0)"
^XMB(3.9,24,2,606,0)=" .D BMES^XPDUTL(""   Please inactivate this local procedure."")"
^XMB(3.9,24,2,607,0)="""RTN"",""EC725U40"",57,0)"
^XMB(3.9,24,2,608,0)=" .K Y"
^XMB(3.9,24,2,609,0)="""RTN"",""EC725U40"",58,0)"
^XMB(3.9,24,2,610,0)=" Q"
^XMB(3.9,24,2,611,0)="""RTN"",""EC725U40"",59,0)"
^XMB(3.9,24,2,612,0)="NEW ;national procedures to add;;descript^nation #^CPT code^beg seq^end seq"
^XMB(3.9,24,2,613,0)="""RTN"",""EC725U40"",60,0)"
^XMB(3.9,24,2,614,0)=" ;;THERAPEUTIC PROCEDURE, GROUP^SP545^97150"
^XMB(3.9,24,2,615,0)="""RTN"",""EC725U40"",61,0)"
^XMB(3.9,24,2,616,0)=" ;;EDUC & TRAINING, IND, 30 MIN^SP546^98960"
^XMB(3.9,24,2,617,0)="""RTN"",""EC725U40"",62,0)"
^XMB(3.9,24,2,618,0)=" ;;EDUC & TRAINING 2-4 PT, 30 MIN^SP547^98961"
^XMB(3.9,24,2,619,0)="""RTN"",""EC725U40"",63,0)"
^XMB(3.9,24,2,620,0)=" ;;EDUC & TRAINING 5-8 PT, 30 MIN^SP548^98962"
^XMB(3.9,24,2,621,0)="""RTN"",""EC725U40"",64,0)"
^XMB(3.9,24,2,622,0)=" ;;L8624 LITHIUM BAT,CIDEV,EARLVL^SP549^L8624"
^XMB(3.9,24,2,623,0)="""RTN"",""EC725U40"",65,0)"
^XMB(3.9,24,2,624,0)=" ;;V5095 SEMI-IMPLNT MIDEAR HRDV^SP550^V5095"
^XMB(3.9,24,2,625,0)="""RTN"",""EC725U40"",66,0)"
^XMB(3.9,24,2,626,0)=" ;;QUIT"
^XMB(3.9,24,2,627,0)="""RTN"",""EC725U40"",67,0)"
^XMB(3.9,24,2,628,0)="NAMECHG ;* change national procedure names"
^XMB(3.9,24,2,629,0)="""RTN"",""EC725U40"",68,0)"
^XMB(3.9,24,2,630,0)=" ;"
^XMB(3.9,24,2,631,0)="""RTN"",""EC725U40"",69,0)"
^XMB(3.9,24,2,632,0)=" ;  ECXX is in format:"
^XMB(3.9,24,2,633,0)="""RTN"",""EC725U40"",70,0)"
^XMB(3.9,24,2,634,0)=" ;   NATIONAL NUMBER^NEW NAME"
^XMB(3.9,24,2,635,0)="""RTN"",""EC725U40"",71,0)"
^XMB(3.9,24,2,636,0)=" ;"
^XMB(3.9,24,2,637,0)="""RTN"",""EC725U40"",72,0)"
^XMB(3.9,24,2,638,0)=" N ECX,ECXX,ECDA,DA,DR,DIC,DIE,X,Y,STR"
^XMB(3.9,24,2,639,0)="""RTN"",""EC725U40"",73,0)"
^XMB(3.9,24,2,640,0)=" D MES^XPDUTL("" "")"
^XMB(3.9,24,2,641,0)="""RTN"",""EC725U40"",74,0)"
^XMB(3.9,24,2,642,0)=" D BMES^XPDUTL(""Changing names in EC NATIONAL PROCEDURE File (#725)..."")"
^XMB(3.9,24,2,643,0)="""RTN"",""EC725U40"",75,0)"
^XMB(3.9,24,2,644,0)=" D MES^XPDUTL("" "")"
^XMB(3.9,24,2,645,0)="""RTN"",""EC725U40"",76,0)"
^XMB(3.9,24,2,646,0)=" F ECX=1:1 S ECXX=$P($T(CHNG+ECX),"";;"",2) Q:ECXX=""QUIT""  D"
^XMB(3.9,24,2,647,0)="""RTN"",""EC725U40"",77,0)"
^XMB(3.9,24,2,648,0)=" .I $D(^EC(725,""D"",$P(ECXX,U,1))) D"
^XMB(3.9,24,2,649,0)="""RTN"",""EC725U40"",78,0)"
^XMB(3.9,24,2,650,0)=" ..S ECDA=+$O(^EC(725,""D"",$P(ECXX,U,1),0))"
^XMB(3.9,24,2,651,0)="""RTN"",""EC725U40"",79,0)"
^XMB(3.9,24,2,652,0)=" ..I $D(^EC(725,ECDA,0)) D"
^XMB(3.9,24,2,653,0)="""RTN"",""EC725U40"",80,0)"
^XMB(3.9,24,2,654,0)=" ...S DA=ECDA,DR="".01////^S X=$P(ECXX,U,2)"",DIE=""^EC(725,"" D ^DIE"
^XMB(3.9,24,2,655,0)="""RTN"",""EC725U40"",81,0)"
^XMB(3.9,24,2,656,0)=" ...D MES^XPDUTL("" "")"
^XMB(3.9,24,2,657,0)="""RTN"",""EC725U40"",82,0)"
^XMB(3.9,24,2,658,0)=" ...D MES^XPDUTL(""   Entry #""_ECDA_"" for ""_$P(ECXX,U,1))"
^XMB(3.9,24,2,659,0)="""RTN"",""EC725U40"",83,0)"
^XMB(3.9,24,2,660,0)=" ...D BMES^XPDUTL(""      ... field (#.01) updated to  ""_$P(ECXX,U,2)_""."")"
^XMB(3.9,24,2,661,0)="""RTN"",""EC725U40"",84,0)"
^XMB(3.9,24,2,662,0)=" .I '$D(^EC(725,""D"",$P(ECXX,U,1))) D"
^XMB(3.9,24,2,663,0)="""RTN"",""EC725U40"",85,0)"
^XMB(3.9,24,2,664,0)=" ..D MES^XPDUTL("" "")"
^XMB(3.9,24,2,665,0)="""RTN"",""EC725U40"",86,0)"
^XMB(3.9,24,2,666,0)=" ..S STR=""Can't find entry for ""_$P(ECXX,U,1)"
^XMB(3.9,24,2,667,0)="""RTN"",""EC725U40"",87,0)"
^XMB(3.9,24,2,668,0)=" ..D BMES^XPDUTL(STR_"" ...field (#.01) not updated."")"
^XMB(3.9,24,2,669,0)="""RTN"",""EC725U40"",88,0)"
^XMB(3.9,24,2,670,0)=" Q"
^XMB(3.9,24,2,671,0)="""RTN"",""EC725U40"",89,0)"
^XMB(3.9,24,2,672,0)=" ;"
^XMB(3.9,24,2,673,0)="""RTN"",""EC725U40"",90,0)"
^XMB(3.9,24,2,674,0)="CHNG ;name changes -national code #^new procedure name"
^XMB(3.9,24,2,675,0)="""RTN"",""EC725U40"",91,0)"
^XMB(3.9,24,2,676,0)=" ;;NU157^FOOT ASSESSMENT EA 10MIN"
^XMB(3.9,24,2,677,0)="""RTN"",""EC725U40"",92,0)"
^XMB(3.9,24,2,678,0)=" ;;SP038^INITIAL ACOUSTIC DEVICE FIT"
^XMB(3.9,24,2,679,0)="""RTN"",""EC725U40"",93,0)"
^XMB(3.9,24,2,680,0)=" ;;SP107^INITIAL HEARING AID FIT, MON"
^XMB(3.9,24,2,681,0)="""RTN"",""EC725U40"",94,0)"
^XMB(3.9,24,2,682,0)=" ;;SP108^INITIAL HEARING AID FIT, BIN"
^XMB(3.9,24,2,683,0)="""RTN"",""EC725U40"",95,0)"
^XMB(3.9,24,2,684,0)=" ;;SP449^FOLLOW-UP ACOUSTIC DEV FIT"
^XMB(3.9,24,2,685,0)="""RTN"",""EC725U40"",96,0)"
^XMB(3.9,24,2,686,0)=" ;;SP450^FOLLOW-UP HEARING AID FIT, MON"
^XMB(3.9,24,2,687,0)="""RTN"",""EC725U40"",97,0)"
^XMB(3.9,24,2,688,0)=" ;;SP451^FOLLOW-UP HEARING AID FIT, BIN"
^XMB(3.9,24,2,689,0)="""RTN"",""EC725U40"",98,0)"
^XMB(3.9,24,2,690,0)=" ;;SP506^A5120 SKIN BARRIER WIPE/SWAB"
^XMB(3.9,24,2,691,0)="""RTN"",""EC725U40"",99,0)"
^XMB(3.9,24,2,692,0)=" ;;SP531^L8623 LITHIUM ION BAT,CIDEVBDY"
^XMB(3.9,24,2,693,0)="""RTN"",""EC725U40"",100,0)"
^XMB(3.9,24,2,694,0)=" ;;QUIT"
^XMB(3.9,24,2,695,0)="""RTN"",""EC725U41"")"
^XMB(3.9,24,2,696,0)="0^2^B14964723"
^XMB(3.9,24,2,697,0)="""RTN"",""EC725U41"",1,0)"
^XMB(3.9,24,2,698,0)="EC725U41 ;ALB/GTS/JAP/GT - EC National Procedure Update; 4/03/2006"
^XMB(3.9,24,2,699,0)="""RTN"",""EC725U41"",2,0)"
^XMB(3.9,24,2,700,0)=" ;;2.0; EVENT CAPTURE ;**81**;8 May 96"
^XMB(3.9,24,2,701,0)="""RTN"",""EC725U41"",3,0)"
^XMB(3.9,24,2,702,0)=" ;"
^XMB(3.9,24,2,703,0)="""RTN"",""EC725U41"",4,0)"
^XMB(3.9,24,2,704,0)=" ;this routine is used as a post-init in KIDS build "
^XMB(3.9,24,2,705,0)="""RTN"",""EC725U41"",5,0)"
^XMB(3.9,24,2,706,0)=" ;to modify the the EC National Procedure file #725"
^XMB(3.9,24,2,707,0)="""RTN"",""EC725U41"",6,0)"
^XMB(3.9,24,2,708,0)=" ;"
^XMB(3.9,24,2,709,0)="""RTN"",""EC725U41"",7,0)"
^XMB(3.9,24,2,710,0)="INACT ;* inactivate national procedures"
^XMB(3.9,24,2,711,0)="""RTN"",""EC725U41"",8,0)"
^XMB(3.9,24,2,712,0)=" ;"
^XMB(3.9,24,2,713,0)="""RTN"",""EC725U41"",9,0)"
^XMB(3.9,24,2,714,0)=" ;  ECXX is in format:"
^XMB(3.9,24,2,715,0)="""RTN"",""EC725U41"",10,0)"
^XMB(3.9,24,2,716,0)=" ;   NATIONAL NUMBER^INACTIVATION DATE^FIRST NATIONAL NUMBER SEQUENCE^"
^XMB(3.9,24,2,717,0)="""RTN"",""EC725U41"",11,0)"
^XMB(3.9,24,2,718,0)=" ;   LAST NATIONAL NUMBER SEQUENCE"
^XMB(3.9,24,2,719,0)="""RTN"",""EC725U41"",12,0)"
^XMB(3.9,24,2,720,0)=" ;"
^XMB(3.9,24,2,721,0)="""RTN"",""EC725U41"",13,0)"
^XMB(3.9,24,2,722,0)=" N ECX,ECXX,ECEXDT,ECINDT,ECDA,DIC,DIE,DA,DR,X,Y,%DT,ECBEG,ECEND,ECADD"
^XMB(3.9,24,2,723,0)="""RTN"",""EC725U41"",14,0)"
^XMB(3.9,24,2,724,0)=" N ECSEQ,CODE,CODX"
^XMB(3.9,24,2,725,0)="""RTN"",""EC725U41"",15,0)"
^XMB(3.9,24,2,726,0)=" D MES^XPDUTL("" "")"
^XMB(3.9,24,2,727,0)="""RTN"",""EC725U41"",16,0)"
^XMB(3.9,24,2,728,0)=" D BMES^XPDUTL(""Inactivating procedures EC NATIONAL PROCEDURE File (#725)..."")"
^XMB(3.9,24,2,729,0)="""RTN"",""EC725U41"",17,0)"
^XMB(3.9,24,2,730,0)=" D MES^XPDUTL("" "")"
^XMB(3.9,24,2,731,0)="""RTN"",""EC725U41"",18,0)"
^XMB(3.9,24,2,732,0)=" F ECX=1:1 K DD,DO,DA S ECXX=$P($T(OLD+ECX),"";;"",2) Q:ECXX=""QUIT""  D"
^XMB(3.9,24,2,733,0)="""RTN"",""EC725U41"",19,0)"
^XMB(3.9,24,2,734,0)=" .S ECEXDT=$P(ECXX,U,2),X=ECEXDT,%DT=""X"" D ^%DT S ECINDT=$P(Y,""."",1)"
^XMB(3.9,24,2,735,0)="""RTN"",""EC725U41"",20,0)"
^XMB(3.9,24,2,736,0)=" .S CODE=$P(ECXX,U),ECBEG=$P(ECXX,U,3),ECEND=$P(ECXX,U,4),CODX=CODE"
^XMB(3.9,24,2,737,0)="""RTN"",""EC725U41"",21,0)"
^XMB(3.9,24,2,738,0)=" .I ECBEG="""" D UPINACT Q"
^XMB(3.9,24,2,739,0)="""RTN"",""EC725U41"",22,0)"
^XMB(3.9,24,2,740,0)=" .F ECSEQ=ECBEG:1:ECEND D"
^XMB(3.9,24,2,741,0)="""RTN"",""EC725U41"",23,0)"
^XMB(3.9,24,2,742,0)=" ..S ECADD=""000""_ECSEQ,ECADD=$E(ECADD,$L(ECADD)-2,$L(ECADD))"
^XMB(3.9,24,2,743,0)="""RTN"",""EC725U41"",24,0)"
^XMB(3.9,24,2,744,0)=" ..S CODE=CODX_ECADD"
^XMB(3.9,24,2,745,0)="""RTN"",""EC725U41"",25,0)"
^XMB(3.9,24,2,746,0)=" ..D UPINACT"
^XMB(3.9,24,2,747,0)="""RTN"",""EC725U41"",26,0)"
^XMB(3.9,24,2,748,0)=" Q"
^XMB(3.9,24,2,749,0)="""RTN"",""EC725U41"",27,0)"
^XMB(3.9,24,2,750,0)="UPINACT ;Update codes as inactive"
^XMB(3.9,24,2,751,0)="""RTN"",""EC725U41"",28,0)"
^XMB(3.9,24,2,752,0)=" ;"
^XMB(3.9,24,2,753,0)="""RTN"",""EC725U41"",29,0)"
^XMB(3.9,24,2,754,0)=" S ECDA=+$O(^EC(725,""D"",CODE,0))"
^XMB(3.9,24,2,755,0)="""RTN"",""EC725U41"",30,0)"
^XMB(3.9,24,2,756,0)=" I $D(^EC(725,ECDA,0)) D"
^XMB(3.9,24,2,757,0)="""RTN"",""EC725U41"",31,0)"
^XMB(3.9,24,2,758,0)=" .S DA=ECDA,DR=""2////^S X=ECINDT"",DIE=""^EC(725,"" D ^DIE"
^XMB(3.9,24,2,759,0)="""RTN"",""EC725U41"",32,0)"
^XMB(3.9,24,2,760,0)=" .D MES^XPDUTL("" "")"
^XMB(3.9,24,2,761,0)="""RTN"",""EC725U41"",33,0)"
^XMB(3.9,24,2,762,0)=" .D BMES^XPDUTL(""   ""_CODE_"" inactivated as of ""_ECEXDT_""."")"
^XMB(3.9,24,2,763,0)="""RTN"",""EC725U41"",34,0)"
^XMB(3.9,24,2,764,0)=" Q"
^XMB(3.9,24,2,765,0)="""RTN"",""EC725U41"",35,0)"
^XMB(3.9,24,2,766,0)=" ;"
^XMB(3.9,24,2,767,0)="""RTN"",""EC725U41"",36,0)"
^XMB(3.9,24,2,768,0)="OLD ;national procedures to be inactivated - national code #^inact. date"
^XMB(3.9,24,2,769,0)="""RTN"",""EC725U41"",37,0)"
^XMB(3.9,24,2,770,0)=" ;;QUIT"
^XMB(3.9,24,2,771,0)="""RTN"",""EC725U41"",38,0)"
^XMB(3.9,24,2,772,0)=" ;"
^XMB(3.9,24,2,773,0)="""RTN"",""EC725U41"",39,0)"
^XMB(3.9,24,2,774,0)="REACT ;* reactivate national procedures"
^XMB(3.9,24,2,775,0)="""RTN"",""EC725U41"",40,0)"
^XMB(3.9,24,2,776,0)=" ;"
^XMB(3.9,24,2,777,0)="""RTN"",""EC725U41"",41,0)"
^XMB(3.9,24,2,778,0)=" ;  ECXX is in format:"
^XMB(3.9,24,2,779,0)="""RTN"",""EC725U41"",42,0)"
^XMB(3.9,24,2,780,0)=" ;   NATIONAL NUMBER^DATE (FUTURE)^FIRST NATIONAL NUMBER SEQUENCE^"
^XMB(3.9,24,2,781,0)="""RTN"",""EC725U41"",43,0)"
^XMB(3.9,24,2,782,0)=" ;   LAST NATIONAL NUMBER SEQUENCE"
^XMB(3.9,24,2,783,0)="""RTN"",""EC725U41"",44,0)"
^XMB(3.9,24,2,784,0)=" ;"
^XMB(3.9,24,2,785,0)="""RTN"",""EC725U41"",45,0)"
^XMB(3.9,24,2,786,0)=" N ECX,ECXX,ECEXDT,ECINDT,ECDA,DIC,DIE,DA,DR,X,Y,%DT,ECBEG,ECEND,ECADD"
^XMB(3.9,24,2,787,0)="""RTN"",""EC725U41"",46,0)"
^XMB(3.9,24,2,788,0)=" N ECSEQ,CODE,CODX,ECDES"
^XMB(3.9,24,2,789,0)="""RTN"",""EC725U41"",47,0)"
^XMB(3.9,24,2,790,0)=" D MES^XPDUTL("" "")"
^XMB(3.9,24,2,791,0)="""RTN"",""EC725U41"",48,0)"
^XMB(3.9,24,2,792,0)=" D BMES^XPDUTL(""Reactivating procedures EC NATIONAL PROCEDURE File (#725)..."")"
^XMB(3.9,24,2,793,0)="""RTN"",""EC725U41"",49,0)"
^XMB(3.9,24,2,794,0)=" D MES^XPDUTL("" "")"
^XMB(3.9,24,2,795,0)="""RTN"",""EC725U41"",50,0)"
^XMB(3.9,24,2,796,0)=" F ECX=1:1 K DD,DO,DA S ECXX=$P($T(ACT+ECX),"";;"",2) Q:ECXX=""QUIT""  D"
^XMB(3.9,24,2,797,0)="""RTN"",""EC725U41"",51,0)"
^XMB(3.9,24,2,798,0)=" .S ECDES=$P(ECXX,U,5)"
^XMB(3.9,24,2,799,0)="""RTN"",""EC725U41"",52,0)"
^XMB(3.9,24,2,800,0)=" .S CODE=$P(ECXX,U),ECBEG=$P(ECXX,U,3),ECEND=$P(ECXX,U,4),CODX=CODE"
^XMB(3.9,24,2,801,0)="""RTN"",""EC725U41"",53,0)"
^XMB(3.9,24,2,802,0)=" .I ECBEG="""" D UPREACT Q"
^XMB(3.9,24,2,803,0)="""RTN"",""EC725U41"",54,0)"
^XMB(3.9,24,2,804,0)=" .F ECSEQ=ECBEG:1:ECEND D"
^XMB(3.9,24,2,805,0)="""RTN"",""EC725U41"",55,0)"
^XMB(3.9,24,2,806,0)=" ..S ECADD=""000""_ECSEQ,ECADD=$E(ECADD,$L(ECADD)-2,$L(ECADD))"
^XMB(3.9,24,2,807,0)="""RTN"",""EC725U41"",56,0)"
^XMB(3.9,24,2,808,0)=" ..S CODE=CODX_ECADD"
^XMB(3.9,24,2,809,0)="""RTN"",""EC725U41"",57,0)"
^XMB(3.9,24,2,810,0)=" ..D UPREACT"
^XMB(3.9,24,2,811,0)="""RTN"",""EC725U41"",58,0)"
^XMB(3.9,24,2,812,0)=" Q"
^XMB(3.9,24,2,813,0)="""RTN"",""EC725U41"",59,0)"
^XMB(3.9,24,2,814,0)="UPREACT ;Update codes as reactive"
^XMB(3.9,24,2,815,0)="""RTN"",""EC725U41"",60,0)"
^XMB(3.9,24,2,816,0)=" ;"
^XMB(3.9,24,2,817,0)="""RTN"",""EC725U41"",61,0)"
^XMB(3.9,24,2,818,0)=" S ECDA=+$O(^EC(725,""D"",CODE,0))"
^XMB(3.9,24,2,819,0)="""RTN"",""EC725U41"",62,0)"
^XMB(3.9,24,2,820,0)=" I $D(^EC(725,ECDA,0)) D"
^XMB(3.9,24,2,821,0)="""RTN"",""EC725U41"",63,0)"
^XMB(3.9,24,2,822,0)=" .S DA=ECDA,DR=""2///@"",DIE=""^EC(725,"" D ^DIE"
^XMB(3.9,24,2,823,0)="""RTN"",""EC725U41"",64,0)"
^XMB(3.9,24,2,824,0)=" .D BMES^XPDUTL(""   ""_CODE_"" ""_ECDES_"" reactivated."")"
^XMB(3.9,24,2,825,0)="""RTN"",""EC725U41"",65,0)"
^XMB(3.9,24,2,826,0)=" Q"
^XMB(3.9,24,2,827,0)="""RTN"",""EC725U41"",66,0)"
^XMB(3.9,24,2,828,0)=" ;"
^XMB(3.9,24,2,829,0)="""RTN"",""EC725U41"",67,0)"
^XMB(3.9,24,2,830,0)="ACT ;national procedures to be reactivated - national number^date"
^XMB(3.9,24,2,831,0)="""RTN"",""EC725U41"",68,0)"
^XMB(3.9,24,2,832,0)=" ;;QUIT"
^XMB(3.9,24,2,833,0)="""RTN"",""EC725U41"",69,0)"
^XMB(3.9,24,2,834,0)=" ;"
^XMB(3.9,24,2,835,0)="""RTN"",""EC725U41"",70,0)"
^XMB(3.9,24,2,836,0)="CPTCHG ;* change cpt codes"
^XMB(3.9,24,2,837,0)="""RTN"",""EC725U41"",71,0)"
^XMB(3.9,24,2,838,0)=" ;"
^XMB(3.9,24,2,839,0)="""RTN"",""EC725U41"",72,0)"
^XMB(3.9,24,2,840,0)=" ;  ECXX is in format:"
^XMB(3.9,24,2,841,0)="""RTN"",""EC725U41"",73,0)"
^XMB(3.9,24,2,842,0)=" ;  NATIONAL NUMBER^NEW CPT^FIRST NATIONAL NUMBER SEQUENCE^LAST NATIONAL"
^XMB(3.9,24,2,843,0)="""RTN"",""EC725U41"",74,0)"
^XMB(3.9,24,2,844,0)=" ;  NUMBER SEQUENCE"
^XMB(3.9,24,2,845,0)="""RTN"",""EC725U41"",75,0)"
^XMB(3.9,24,2,846,0)=" ;"
^XMB(3.9,24,2,847,0)="""RTN"",""EC725U41"",76,0)"
^XMB(3.9,24,2,848,0)=" N ECX,ECXX,CPT,DIC,DIE,DA,DR,X,Y,ECBEG,ECEND,ECADD,NAME,ECSEQ,STR,CPTIEN"
^XMB(3.9,24,2,849,0)="""RTN"",""EC725U41"",77,0)"
^XMB(3.9,24,2,850,0)=" D MES^XPDUTL("" "")"
^XMB(3.9,24,2,851,0)="""RTN"",""EC725U41"",78,0)"
^XMB(3.9,24,2,852,0)=" D BMES^XPDUTL(""Changing CPT Codes in EC NATIONAL PROCEDURE file (#725)"")"
^XMB(3.9,24,2,853,0)="""RTN"",""EC725U41"",79,0)"
^XMB(3.9,24,2,854,0)=" D MES^XPDUTL("" "")"
^XMB(3.9,24,2,855,0)="""RTN"",""EC725U41"",80,0)"
^XMB(3.9,24,2,856,0)=" F ECX=1:1 S ECXX=$P($T(CPT+ECX),"";;"",2) Q:ECXX=""QUIT""  D"
^XMB(3.9,24,2,857,0)="""RTN"",""EC725U41"",81,0)"
^XMB(3.9,24,2,858,0)=" .S ECBEG=$P(ECXX,U,3),ECEND=$P(ECXX,U,4),CPTIEN=$P(ECXX,U,2)"
^XMB(3.9,24,2,859,0)="""RTN"",""EC725U41"",82,0)"
^XMB(3.9,24,2,860,0)=" .S CPTIEN=$S(CPTIEN="""":""@"",1:$$FIND1^DIC(81,"""",""X"",CPTIEN))"
^XMB(3.9,24,2,861,0)="""RTN"",""EC725U41"",83,0)"
^XMB(3.9,24,2,862,0)=" .I CPTIEN'=""@"",+CPTIEN<1 D  Q"
^XMB(3.9,24,2,863,0)="""RTN"",""EC725U41"",84,0)"
^XMB(3.9,24,2,864,0)=" ..S STR=$P(ECXX,U)_"":  CPT code ""_$P(ECXX,U,2)_"" is invalid."""
^XMB(3.9,24,2,865,0)="""RTN"",""EC725U41"",85,0)"
^XMB(3.9,24,2,866,0)=" ..D MES^XPDUTL("" "")"
^XMB(3.9,24,2,867,0)="""RTN"",""EC725U41"",86,0)"
^XMB(3.9,24,2,868,0)=" ..D BMES^XPDUTL(""   ""_STR)"
^XMB(3.9,24,2,869,0)="""RTN"",""EC725U41"",87,0)"
^XMB(3.9,24,2,870,0)=" .I ECBEG="""" S CPT($P(ECXX,U))=CPTIEN_U_$P(ECXX,U,2) Q"
^XMB(3.9,24,2,871,0)="""RTN"",""EC725U41"",88,0)"
^XMB(3.9,24,2,872,0)=" .F ECSEQ=ECBEG:1:ECEND D"
^XMB(3.9,24,2,873,0)="""RTN"",""EC725U41"",89,0)"
^XMB(3.9,24,2,874,0)=" ..S ECADD=""000""_ECSEQ,ECADD=$E(ECADD,$L(ECADD)-2,$L(ECADD))"
^XMB(3.9,24,2,875,0)="""RTN"",""EC725U41"",90,0)"
^XMB(3.9,24,2,876,0)=" ..S CPT($P(ECXX,U)_ECADD)=CPTIEN_U_$P(ECXX,U,2)"
^XMB(3.9,24,2,877,0)="""RTN"",""EC725U41"",91,0)"
^XMB(3.9,24,2,878,0)=" S ECXX="""""
^XMB(3.9,24,2,879,0)="""RTN"",""EC725U41"",92,0)"
^XMB(3.9,24,2,880,0)=" F  S ECXX=$O(CPT(ECXX)) Q:ECXX=""""  D"
^XMB(3.9,24,2,881,0)="""RTN"",""EC725U41"",93,0)"
^XMB(3.9,24,2,882,0)=" .S ECX=$O(^EC(725,""D"",ECXX,0))"
^XMB(3.9,24,2,883,0)="""RTN"",""EC725U41"",94,0)"
^XMB(3.9,24,2,884,0)=" .Q:+ECX=0"
^XMB(3.9,24,2,885,0)="""RTN"",""EC725U41"",95,0)"
^XMB(3.9,24,2,886,0)=" .I '$D(^EC(725,ECX,0))!(+ECX=0) D  Q"
^XMB(3.9,24,2,887,0)="""RTN"",""EC725U41"",96,0)"
^XMB(3.9,24,2,888,0)=" ..D MES^XPDUTL("" "")"
^XMB(3.9,24,2,889,0)="""RTN"",""EC725U41"",97,0)"
^XMB(3.9,24,2,890,0)=" ..D BMES^XPDUTL(""   Can't find entry for ""_ECXX_"",CPT cde not updated."")"
^XMB(3.9,24,2,891,0)="""RTN"",""EC725U41"",98,0)"
^XMB(3.9,24,2,892,0)=" .S CPT=$P(CPT(ECXX),U),DA=ECX,DR=""4////""_CPT,DIE=""^EC(725,"" D ^DIE"
^XMB(3.9,24,2,893,0)="""RTN"",""EC725U41"",99,0)"
^XMB(3.9,24,2,894,0)=" .D MES^XPDUTL("" "")"
^XMB(3.9,24,2,895,0)="""RTN"",""EC725U41"",100,0)"
^XMB(3.9,24,2,896,0)=" .S STR=""   Entry #""_ECX_"" for ""_ECXX"
^XMB(3.9,24,2,897,0)="""RTN"",""EC725U41"",101,0)"
^XMB(3.9,24,2,898,0)=" .D BMES^XPDUTL(STR_"" updated to use CPT code ""_$P(CPT(ECXX),U,2))"
^XMB(3.9,24,2,899,0)="""RTN"",""EC725U41"",102,0)"
^XMB(3.9,24,2,900,0)=" Q"
^XMB(3.9,24,2,901,0)="""RTN"",""EC725U41"",103,0)"
^XMB(3.9,24,2,902,0)=" ;"
^XMB(3.9,24,2,903,0)="""RTN"",""EC725U41"",104,0)"
^XMB(3.9,24,2,904,0)="CPT ;cpt codes to be changed - national #^new CPT code"
^XMB(3.9,24,2,905,0)="""RTN"",""EC725U41"",105,0)"
^XMB(3.9,24,2,906,0)=" ;;CH065^99499"
^XMB(3.9,24,2,907,0)="""RTN"",""EC725U41"",106,0)"
^XMB(3.9,24,2,908,0)=" ;;CH084^99499"
^XMB(3.9,24,2,909,0)="""RTN"",""EC725U41"",107,0)"
^XMB(3.9,24,2,910,0)=" ;;SP038^97762"
^XMB(3.9,24,2,911,0)="""RTN"",""EC725U41"",108,0)"
^XMB(3.9,24,2,912,0)=" ;;SP107^97762"
^XMB(3.9,24,2,913,0)="""RTN"",""EC725U41"",109,0)"
^XMB(3.9,24,2,914,0)=" ;;SP108^97762"
^XMB(3.9,24,2,915,0)="""RTN"",""EC725U41"",110,0)"
^XMB(3.9,24,2,916,0)=" ;;SP449^97762"
^XMB(3.9,24,2,917,0)="""RTN"",""EC725U41"",111,0)"
^XMB(3.9,24,2,918,0)=" ;;SP450^97762"
^XMB(3.9,24,2,919,0)="""RTN"",""EC725U41"",112,0)"
^XMB(3.9,24,2,920,0)=" ;;SP451^97762"
^XMB(3.9,24,2,921,0)="""RTN"",""EC725U41"",113,0)"
^XMB(3.9,24,2,922,0)=" ;;SP506^A5120"
^XMB(3.9,24,2,923,0)="""RTN"",""EC725U41"",114,0)"
^XMB(3.9,24,2,924,0)=" ;;SP531^L8623"
^XMB(3.9,24,2,925,0)="""RTN"",""EC725U41"",115,0)"
^XMB(3.9,24,2,926,0)=" ;;QUIT"
^XMB(3.9,24,2,927,0)="""VER"")"
^XMB(3.9,24,2,928,0)="8.0^22.0"
^XMB(3.9,24,2,929,0)="""BLD"",6679,6)"
^XMB(3.9,24,2,930,0)="^75"
^XMB(3.9,24,2,931,0)="$END KID EC*2.0*81"
^XMB(3.9,24,6,0)="^3.911A^2^2"
^XMB(3.9,24,6,1,0)="POSTMASTER"
^XMB(3.9,24,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,24,6,"B","POSTMASTER",1)=""
^XMB(3.9,24,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,25,0)="EC-2_SEQ-76_PAT-72.KID^.5^3061008.015733^^^^K"
^XMB(3.9,25,.6)="3061008"
^XMB(3.9,25,1,0)="^3.91A^2^2"
^XMB(3.9,25,1,1,0)=".5^0^3061008.015733^^^^^^^3061008.015733"
^XMB(3.9,25,1,2,0)="1^0^3061008.023034^^^^^^^3061008.023034"
^XMB(3.9,25,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,25,1,"C",.5,1)=""
^XMB(3.9,25,1,"C",1,2)=""
^XMB(3.9,25,2,0)="^^11471^11471^3061008"
^XMB(3.9,25,2,1,0)="$TXT Released EC*2*72 SEQ #76"
^XMB(3.9,25,2,2,0)="Extracted from mail message"
^XMB(3.9,25,2,3,0)="$END TXT"
^XMB(3.9,25,2,4,0)="$KID EC*2.0*72"
^XMB(3.9,25,2,5,0)="**INSTALL NAME**"
^XMB(3.9,25,2,6,0)="EC*2.0*72"
^XMB(3.9,25,2,7,0)="""BLD"",6253,0)"
^XMB(3.9,25,2,8,0)="EC*2.0*72^EVENT CAPTURE^0^3060511^y"
^XMB(3.9,25,2,9,0)="""BLD"",6253,4,0)"
^XMB(3.9,25,2,10,0)="^9.64PA^721^1"
^XMB(3.9,25,2,11,0)="""BLD"",6253,4,721,0)"
^XMB(3.9,25,2,12,0)="721"
^XMB(3.9,25,2,13,0)="""BLD"",6253,4,721,2,0)"
^XMB(3.9,25,2,14,0)="^9.641^721.042^2"
^XMB(3.9,25,2,15,0)="""BLD"",6253,4,721,2,721,0)"
^XMB(3.9,25,2,16,0)="EVENT CAPTURE PATIENT  (File-top level)"
^XMB(3.9,25,2,17,0)="""BLD"",6253,4,721,2,721,1,0)"
^XMB(3.9,25,2,18,0)="^9.6411^17^4"
^XMB(3.9,25,2,19,0)="""BLD"",6253,4,721,2,721,1,10,0)"
^XMB(3.9,25,2,20,0)="*PROVIDER"
^XMB(3.9,25,2,21,0)="""BLD"",6253,4,721,2,721,1,15,0)"
^XMB(3.9,25,2,22,0)="*PROVIDER #2"
^XMB(3.9,25,2,23,0)="""BLD"",6253,4,721,2,721,1,17,0)"
^XMB(3.9,25,2,24,0)="*PROVIDER #3"
^XMB(3.9,25,2,25,0)="""BLD"",6253,4,721,2,721,1,30,0)"
^XMB(3.9,25,2,26,0)="PCE DATA FEED"
^XMB(3.9,25,2,27,0)="""BLD"",6253,4,721,2,721.042,0)"
^XMB(3.9,25,2,28,0)="PROVIDER MULTIPLE  (sub-file)"
^XMB(3.9,25,2,29,0)="""BLD"",6253,4,721,2,721.042,1,0)"
^XMB(3.9,25,2,30,0)="^9.6411^^"
^XMB(3.9,25,2,31,0)="""BLD"",6253,4,721,222)"
^XMB(3.9,25,2,32,0)="y^y^p^^^^n^^n"
^XMB(3.9,25,2,33,0)="""BLD"",6253,4,721,224)"
^XMB(3.9,25,2,34,0)=""
^XMB(3.9,25,2,35,0)="""BLD"",6253,4,""APDD"",721,721)"
^XMB(3.9,25,2,36,0)=""
^XMB(3.9,25,2,37,0)="""BLD"",6253,4,""APDD"",721,721,10)"
^XMB(3.9,25,2,38,0)=""
^XMB(3.9,25,2,39,0)="""BLD"",6253,4,""APDD"",721,721,15)"
^XMB(3.9,25,2,40,0)=""
^XMB(3.9,25,2,41,0)="""BLD"",6253,4,""APDD"",721,721,17)"
^XMB(3.9,25,2,42,0)=""
^XMB(3.9,25,2,43,0)="""BLD"",6253,4,""APDD"",721,721,30)"
^XMB(3.9,25,2,44,0)=""
^XMB(3.9,25,2,45,0)="""BLD"",6253,4,""APDD"",721,721.042)"
^XMB(3.9,25,2,46,0)=""
^XMB(3.9,25,2,47,0)="""BLD"",6253,4,""B"",721,721)"
^XMB(3.9,25,2,48,0)=""
^XMB(3.9,25,2,49,0)="""BLD"",6253,6)"
^XMB(3.9,25,2,50,0)="7^"
^XMB(3.9,25,2,51,0)="""BLD"",6253,""ABPKG"")"
^XMB(3.9,25,2,52,0)="n"
^XMB(3.9,25,2,53,0)="""BLD"",6253,""INIT"")"
^XMB(3.9,25,2,54,0)="EC2P72PT"
^XMB(3.9,25,2,55,0)="""BLD"",6253,""KRN"",0)"
^XMB(3.9,25,2,56,0)="^9.67PA^8989.52^19"
^XMB(3.9,25,2,57,0)="""BLD"",6253,""KRN"",.4,0)"
^XMB(3.9,25,2,58,0)=".4"
^XMB(3.9,25,2,59,0)="""BLD"",6253,""KRN"",.401,0)"
^XMB(3.9,25,2,60,0)=".401"
^XMB(3.9,25,2,61,0)="""BLD"",6253,""KRN"",.402,0)"
^XMB(3.9,25,2,62,0)=".402"
^XMB(3.9,25,2,63,0)="""BLD"",6253,""KRN"",.402,""NM"",0)"
^XMB(3.9,25,2,64,0)="^9.68A^2^2"
^XMB(3.9,25,2,65,0)="""BLD"",6253,""KRN"",.402,""NM"",1,0)"
^XMB(3.9,25,2,66,0)="EC CREATE PATIENT ENTRY    FILE #721^721^0"
^XMB(3.9,25,2,67,0)="""BLD"",6253,""KRN"",.402,""NM"",2,0)"
^XMB(3.9,25,2,68,0)="EC FILE PCE NODE    FILE #721^721^0"
^XMB(3.9,25,2,69,0)="""BLD"",6253,""KRN"",.402,""NM"",""B"",""EC CREATE PATIENT ENTRY    FILE #721"",1)"
^XMB(3.9,25,2,70,0)=""
^XMB(3.9,25,2,71,0)="""BLD"",6253,""KRN"",.402,""NM"",""B"",""EC FILE PCE NODE    FILE #721"",2)"
^XMB(3.9,25,2,72,0)=""
^XMB(3.9,25,2,73,0)="""BLD"",6253,""KRN"",.403,0)"
^XMB(3.9,25,2,74,0)=".403"
^XMB(3.9,25,2,75,0)="""BLD"",6253,""KRN"",.5,0)"
^XMB(3.9,25,2,76,0)=".5"
^XMB(3.9,25,2,77,0)="""BLD"",6253,""KRN"",.84,0)"
^XMB(3.9,25,2,78,0)=".84"
^XMB(3.9,25,2,79,0)="""BLD"",6253,""KRN"",3.6,0)"
^XMB(3.9,25,2,80,0)="3.6"
^XMB(3.9,25,2,81,0)="""BLD"",6253,""KRN"",3.8,0)"
^XMB(3.9,25,2,82,0)="3.8"
^XMB(3.9,25,2,83,0)="""BLD"",6253,""KRN"",9.2,0)"
^XMB(3.9,25,2,84,0)="9.2"
^XMB(3.9,25,2,85,0)="""BLD"",6253,""KRN"",9.2,""NM"",0)"
^XMB(3.9,25,2,86,0)="^9.68A^3^3"
^XMB(3.9,25,2,87,0)="""BLD"",6253,""KRN"",9.2,""NM"",1,0)"
^XMB(3.9,25,2,88,0)="EC PRO SUM^^0"
^XMB(3.9,25,2,89,0)="""BLD"",6253,""KRN"",9.2,""NM"",2,0)"
^XMB(3.9,25,2,90,0)="ECSCPT^^0"
^XMB(3.9,25,2,91,0)="""BLD"",6253,""KRN"",9.2,""NM"",3,0)"
^XMB(3.9,25,2,92,0)="ECINCPT^^0"
^XMB(3.9,25,2,93,0)="""BLD"",6253,""KRN"",9.2,""NM"",""B"",""EC PRO SUM"",1)"
^XMB(3.9,25,2,94,0)=""
^XMB(3.9,25,2,95,0)="""BLD"",6253,""KRN"",9.2,""NM"",""B"",""ECINCPT"",3)"
^XMB(3.9,25,2,96,0)=""
^XMB(3.9,25,2,97,0)="""BLD"",6253,""KRN"",9.2,""NM"",""B"",""ECSCPT"",2)"
^XMB(3.9,25,2,98,0)=""
^XMB(3.9,25,2,99,0)="""BLD"",6253,""KRN"",9.8,0)"
^XMB(3.9,25,2,100,0)="9.8"
^XMB(3.9,25,2,101,0)="""BLD"",6253,""KRN"",9.8,""NM"",0)"
^XMB(3.9,25,2,102,0)="^9.68A^44^42"
^XMB(3.9,25,2,103,0)="""BLD"",6253,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,25,2,104,0)="ECSCPT^^0^B10074493"
^XMB(3.9,25,2,105,0)="""BLD"",6253,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,25,2,106,0)="ECRRPC^^0^B12303108"
^XMB(3.9,25,2,107,0)="""BLD"",6253,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,25,2,108,0)="ECRRPT1^^0^B50531170"
^XMB(3.9,25,2,109,0)="""BLD"",6253,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,25,2,110,0)="ECINCPT^^0^B3068405"
^XMB(3.9,25,2,111,0)="""BLD"",6253,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,25,2,112,0)="ECPAT^^0^B30279346"
^XMB(3.9,25,2,113,0)="""BLD"",6253,""KRN"",9.8,""NM"",6,0)"
^XMB(3.9,25,2,114,0)="ECOSSUM^^0^B61610844"
^XMB(3.9,25,2,115,0)="""BLD"",6253,""KRN"",9.8,""NM"",7,0)"
^XMB(3.9,25,2,116,0)="ECRDSSU^^0^B49642828"
^XMB(3.9,25,2,117,0)="""BLD"",6253,""KRN"",9.8,""NM"",8,0)"
^XMB(3.9,25,2,118,0)="ECPRSUM1^^0^B27513116"
^XMB(3.9,25,2,119,0)="""BLD"",6253,""KRN"",9.8,""NM"",9,0)"
^XMB(3.9,25,2,120,0)="ECPROV3^^0^B34020272"
^XMB(3.9,25,2,121,0)="""BLD"",6253,""KRN"",9.8,""NM"",10,0)"
^XMB(3.9,25,2,122,0)="ECRPRSN^^0^B81423223"
^XMB(3.9,25,2,123,0)="""BLD"",6253,""KRN"",9.8,""NM"",12,0)"
^XMB(3.9,25,2,124,0)="ECEDF^^0^B27614692"
^XMB(3.9,25,2,125,0)="""BLD"",6253,""KRN"",9.8,""NM"",13,0)"
^XMB(3.9,25,2,126,0)="ECBEP1A^^0^B1169013"
^XMB(3.9,25,2,127,0)="""BLD"",6253,""KRN"",9.8,""NM"",14,0)"
^XMB(3.9,25,2,128,0)="ECBEP2A^^0^B30996875"
^XMB(3.9,25,2,129,0)="""BLD"",6253,""KRN"",9.8,""NM"",15,0)"
^XMB(3.9,25,2,130,0)="ECBEN2A^^0^B45265158"
^XMB(3.9,25,2,131,0)="""BLD"",6253,""KRN"",9.8,""NM"",16,0)"
^XMB(3.9,25,2,132,0)="ECBEN1A^^0^B1611604"
^XMB(3.9,25,2,133,0)="""BLD"",6253,""KRN"",9.8,""NM"",17,0)"
^XMB(3.9,25,2,134,0)="ECBEN1B^^0^B23165731"
^XMB(3.9,25,2,135,0)="""BLD"",6253,""KRN"",9.8,""NM"",18,0)"
^XMB(3.9,25,2,136,0)="ECBEN2U^^0^B32288429"
^XMB(3.9,25,2,137,0)="""BLD"",6253,""KRN"",9.8,""NM"",19,0)"
^XMB(3.9,25,2,138,0)="ECBENF^^0^B10029012"
^XMB(3.9,25,2,139,0)="""BLD"",6253,""KRN"",9.8,""NM"",20,0)"
^XMB(3.9,25,2,140,0)="ECBEP1B^^0^B43458281"
^XMB(3.9,25,2,141,0)="""BLD"",6253,""KRN"",9.8,""NM"",21,0)"
^XMB(3.9,25,2,142,0)="ECBEPF^^0^B8758024"
^XMB(3.9,25,2,143,0)="""BLD"",6253,""KRN"",9.8,""NM"",22,0)"
^XMB(3.9,25,2,144,0)="ECED3^^0^B70458446"
^XMB(3.9,25,2,145,0)="""BLD"",6253,""KRN"",9.8,""NM"",24,0)"
^XMB(3.9,25,2,146,0)="ECPCEU^^0^B21055303"
^XMB(3.9,25,2,147,0)="""BLD"",6253,""KRN"",9.8,""NM"",25,0)"
^XMB(3.9,25,2,148,0)="ECED1^^0^B37208178"
^XMB(3.9,25,2,149,0)="""BLD"",6253,""KRN"",9.8,""NM"",26,0)"
^XMB(3.9,25,2,150,0)="ECBEP2B^^0^B9317904"
^XMB(3.9,25,2,151,0)="""BLD"",6253,""KRN"",9.8,""NM"",27,0)"
^XMB(3.9,25,2,152,0)="ECMLMD^^0^B2107431"
^XMB(3.9,25,2,153,0)="""BLD"",6253,""KRN"",9.8,""NM"",28,0)"
^XMB(3.9,25,2,154,0)="ECMLMF^^0^B31356519"
^XMB(3.9,25,2,155,0)="""BLD"",6253,""KRN"",9.8,""NM"",29,0)"
^XMB(3.9,25,2,156,0)="ECPCER^^0^B18846503"
^XMB(3.9,25,2,157,0)="""BLD"",6253,""KRN"",9.8,""NM"",30,0)"
^XMB(3.9,25,2,158,0)="ECNTPCE^^0^B20426279"
^XMB(3.9,25,2,159,0)="""BLD"",6253,""KRN"",9.8,""NM"",31,0)"
^XMB(3.9,25,2,160,0)="ECUERPC^^0^B51258174"
^XMB(3.9,25,2,161,0)="""BLD"",6253,""KRN"",9.8,""NM"",32,0)"
^XMB(3.9,25,2,162,0)="ECUERPC1^^0^B52615700"
^XMB(3.9,25,2,163,0)="""BLD"",6253,""KRN"",9.8,""NM"",33,0)"
^XMB(3.9,25,2,164,0)="ECEFPAT^^0^B53422819"
^XMB(3.9,25,2,165,0)="""BLD"",6253,""KRN"",9.8,""NM"",34,0)"
^XMB(3.9,25,2,166,0)="ECEDU^^0^B14387770"
^XMB(3.9,25,2,167,0)="""BLD"",6253,""KRN"",9.8,""NM"",35,0)"
^XMB(3.9,25,2,168,0)="ECUTL2^^0^B26898243"
^XMB(3.9,25,2,169,0)="""BLD"",6253,""KRN"",9.8,""NM"",36,0)"
^XMB(3.9,25,2,170,0)="ECPRVMUT^^0^B51865665"
^XMB(3.9,25,2,171,0)="""BLD"",6253,""KRN"",9.8,""NM"",37,0)"
^XMB(3.9,25,2,172,0)="EC2P72PT^^0^B39906123"
^XMB(3.9,25,2,173,0)="""BLD"",6253,""KRN"",9.8,""NM"",38,0)"
^XMB(3.9,25,2,174,0)="ECSCPT1^^0^B8958555"
^XMB(3.9,25,2,175,0)="""BLD"",6253,""KRN"",9.8,""NM"",39,0)"
^XMB(3.9,25,2,176,0)="ECUERPC2^^0^B4379699"
^XMB(3.9,25,2,177,0)="""BLD"",6253,""KRN"",9.8,""NM"",40,0)"
^XMB(3.9,25,2,178,0)="ECV3RPC^^0^B45442290"
^XMB(3.9,25,2,179,0)="""BLD"",6253,""KRN"",9.8,""NM"",41,0)"
^XMB(3.9,25,2,180,0)="ECUMRPC2^^0^B29933557"
^XMB(3.9,25,2,181,0)="""BLD"",6253,""KRN"",9.8,""NM"",42,0)"
^XMB(3.9,25,2,182,0)="ECBEN2B^^0^B9189087"
^XMB(3.9,25,2,183,0)="""BLD"",6253,""KRN"",9.8,""NM"",43,0)"
^XMB(3.9,25,2,184,0)="ECUMRPC1^^0^B61789202"
^XMB(3.9,25,2,185,0)="""BLD"",6253,""KRN"",9.8,""NM"",44,0)"
^XMB(3.9,25,2,186,0)="ECSCR^^0^B7221580"
^XMB(3.9,25,2,187,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""EC2P72PT"",37)"
^XMB(3.9,25,2,188,0)=""
^XMB(3.9,25,2,189,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECBEN1A"",16)"
^XMB(3.9,25,2,190,0)=""
^XMB(3.9,25,2,191,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECBEN1B"",17)"
^XMB(3.9,25,2,192,0)=""
^XMB(3.9,25,2,193,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECBEN2A"",15)"
^XMB(3.9,25,2,194,0)=""
^XMB(3.9,25,2,195,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECBEN2B"",42)"
^XMB(3.9,25,2,196,0)=""
^XMB(3.9,25,2,197,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECBEN2U"",18)"
^XMB(3.9,25,2,198,0)=""
^XMB(3.9,25,2,199,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECBENF"",19)"
^XMB(3.9,25,2,200,0)=""
^XMB(3.9,25,2,201,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECBEP1A"",13)"
^XMB(3.9,25,2,202,0)=""
^XMB(3.9,25,2,203,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECBEP1B"",20)"
^XMB(3.9,25,2,204,0)=""
^XMB(3.9,25,2,205,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECBEP2A"",14)"
^XMB(3.9,25,2,206,0)=""
^XMB(3.9,25,2,207,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECBEP2B"",26)"
^XMB(3.9,25,2,208,0)=""
^XMB(3.9,25,2,209,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECBEPF"",21)"
^XMB(3.9,25,2,210,0)=""
^XMB(3.9,25,2,211,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECED1"",25)"
^XMB(3.9,25,2,212,0)=""
^XMB(3.9,25,2,213,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECED3"",22)"
^XMB(3.9,25,2,214,0)=""
^XMB(3.9,25,2,215,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECEDF"",12)"
^XMB(3.9,25,2,216,0)=""
^XMB(3.9,25,2,217,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECEDU"",34)"
^XMB(3.9,25,2,218,0)=""
^XMB(3.9,25,2,219,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECEFPAT"",33)"
^XMB(3.9,25,2,220,0)=""
^XMB(3.9,25,2,221,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECINCPT"",4)"
^XMB(3.9,25,2,222,0)=""
^XMB(3.9,25,2,223,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECMLMD"",27)"
^XMB(3.9,25,2,224,0)=""
^XMB(3.9,25,2,225,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECMLMF"",28)"
^XMB(3.9,25,2,226,0)=""
^XMB(3.9,25,2,227,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECNTPCE"",30)"
^XMB(3.9,25,2,228,0)=""
^XMB(3.9,25,2,229,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECOSSUM"",6)"
^XMB(3.9,25,2,230,0)=""
^XMB(3.9,25,2,231,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECPAT"",5)"
^XMB(3.9,25,2,232,0)=""
^XMB(3.9,25,2,233,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECPCER"",29)"
^XMB(3.9,25,2,234,0)=""
^XMB(3.9,25,2,235,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECPCEU"",24)"
^XMB(3.9,25,2,236,0)=""
^XMB(3.9,25,2,237,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECPROV3"",9)"
^XMB(3.9,25,2,238,0)=""
^XMB(3.9,25,2,239,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECPRSUM1"",8)"
^XMB(3.9,25,2,240,0)=""
^XMB(3.9,25,2,241,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECPRVMUT"",36)"
^XMB(3.9,25,2,242,0)=""
^XMB(3.9,25,2,243,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECRDSSU"",7)"
^XMB(3.9,25,2,244,0)=""
^XMB(3.9,25,2,245,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECRPRSN"",10)"
^XMB(3.9,25,2,246,0)=""
^XMB(3.9,25,2,247,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECRRPC"",2)"
^XMB(3.9,25,2,248,0)=""
^XMB(3.9,25,2,249,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECRRPT1"",3)"
^XMB(3.9,25,2,250,0)=""
^XMB(3.9,25,2,251,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECSCPT"",1)"
^XMB(3.9,25,2,252,0)=""
^XMB(3.9,25,2,253,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECSCPT1"",38)"
^XMB(3.9,25,2,254,0)=""
^XMB(3.9,25,2,255,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECSCR"",44)"
^XMB(3.9,25,2,256,0)=""
^XMB(3.9,25,2,257,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECUERPC"",31)"
^XMB(3.9,25,2,258,0)=""
^XMB(3.9,25,2,259,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECUERPC1"",32)"
^XMB(3.9,25,2,260,0)=""
^XMB(3.9,25,2,261,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECUERPC2"",39)"
^XMB(3.9,25,2,262,0)=""
^XMB(3.9,25,2,263,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECUMRPC1"",43)"
^XMB(3.9,25,2,264,0)=""
^XMB(3.9,25,2,265,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECUMRPC2"",41)"
^XMB(3.9,25,2,266,0)=""
^XMB(3.9,25,2,267,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECUTL2"",35)"
^XMB(3.9,25,2,268,0)=""
^XMB(3.9,25,2,269,0)="""BLD"",6253,""KRN"",9.8,""NM"",""B"",""ECV3RPC"",40)"
^XMB(3.9,25,2,270,0)=""
^XMB(3.9,25,2,271,0)="""BLD"",6253,""KRN"",19,0)"
^XMB(3.9,25,2,272,0)="19"
^XMB(3.9,25,2,273,0)="""BLD"",6253,""KRN"",19,""NM"",0)"
^XMB(3.9,25,2,274,0)="^9.68A^6^5"
^XMB(3.9,25,2,275,0)="""BLD"",6253,""KRN"",19,""NM"",1,0)"
^XMB(3.9,25,2,276,0)="ECINCPT^^0"
^XMB(3.9,25,2,277,0)="""BLD"",6253,""KRN"",19,""NM"",2,0)"
^XMB(3.9,25,2,278,0)="ECSCPT^^0"
^XMB(3.9,25,2,279,0)="""BLD"",6253,""KRN"",19,""NM"",4,0)"
^XMB(3.9,25,2,280,0)="EC GUI CONTEXT^^0"
^XMB(3.9,25,2,281,0)="""BLD"",6253,""KRN"",19,""NM"",5,0)"
^XMB(3.9,25,2,282,0)="EC PRO SUM^^0"
^XMB(3.9,25,2,283,0)="""BLD"",6253,""KRN"",19,""NM"",6,0)"
^XMB(3.9,25,2,284,0)="ECDSRPT^^2"
^XMB(3.9,25,2,285,0)="""BLD"",6253,""KRN"",19,""NM"",""B"",""EC GUI CONTEXT"",4)"
^XMB(3.9,25,2,286,0)=""
^XMB(3.9,25,2,287,0)="""BLD"",6253,""KRN"",19,""NM"",""B"",""EC PRO SUM"",5)"
^XMB(3.9,25,2,288,0)=""
^XMB(3.9,25,2,289,0)="""BLD"",6253,""KRN"",19,""NM"",""B"",""ECDSRPT"",6)"
^XMB(3.9,25,2,290,0)=""
^XMB(3.9,25,2,291,0)="""BLD"",6253,""KRN"",19,""NM"",""B"",""ECINCPT"",1)"
^XMB(3.9,25,2,292,0)=""
^XMB(3.9,25,2,293,0)="""BLD"",6253,""KRN"",19,""NM"",""B"",""ECSCPT"",2)"
^XMB(3.9,25,2,294,0)=""
^XMB(3.9,25,2,295,0)="""BLD"",6253,""KRN"",19.1,0)"
^XMB(3.9,25,2,296,0)="19.1"
^XMB(3.9,25,2,297,0)="""BLD"",6253,""KRN"",19.1,""NM"",0)"
^XMB(3.9,25,2,298,0)="^9.68A^^"
^XMB(3.9,25,2,299,0)="""BLD"",6253,""KRN"",101,0)"
^XMB(3.9,25,2,300,0)="101"
^XMB(3.9,25,2,301,0)="""BLD"",6253,""KRN"",409.61,0)"
^XMB(3.9,25,2,302,0)="409.61"
^XMB(3.9,25,2,303,0)="""BLD"",6253,""KRN"",771,0)"
^XMB(3.9,25,2,304,0)="771"
^XMB(3.9,25,2,305,0)="""BLD"",6253,""KRN"",870,0)"
^XMB(3.9,25,2,306,0)="870"
^XMB(3.9,25,2,307,0)="""BLD"",6253,""KRN"",8989.51,0)"
^XMB(3.9,25,2,308,0)="8989.51"
^XMB(3.9,25,2,309,0)="""BLD"",6253,""KRN"",8989.52,0)"
^XMB(3.9,25,2,310,0)="8989.52"
^XMB(3.9,25,2,311,0)="""BLD"",6253,""KRN"",8994,0)"
^XMB(3.9,25,2,312,0)="8994"
^XMB(3.9,25,2,313,0)="""BLD"",6253,""KRN"",8994,""NM"",0)"
^XMB(3.9,25,2,314,0)="^9.68A^^"
^XMB(3.9,25,2,315,0)="""BLD"",6253,""KRN"",""B"",.4,.4)"
^XMB(3.9,25,2,316,0)=""
^XMB(3.9,25,2,317,0)="""BLD"",6253,""KRN"",""B"",.401,.401)"
^XMB(3.9,25,2,318,0)=""
^XMB(3.9,25,2,319,0)="""BLD"",6253,""KRN"",""B"",.402,.402)"
^XMB(3.9,25,2,320,0)=""
^XMB(3.9,25,2,321,0)="""BLD"",6253,""KRN"",""B"",.403,.403)"
^XMB(3.9,25,2,322,0)=""
^XMB(3.9,25,2,323,0)="""BLD"",6253,""KRN"",""B"",.5,.5)"
^XMB(3.9,25,2,324,0)=""
^XMB(3.9,25,2,325,0)="""BLD"",6253,""KRN"",""B"",.84,.84)"
^XMB(3.9,25,2,326,0)=""
^XMB(3.9,25,2,327,0)="""BLD"",6253,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,25,2,328,0)=""
^XMB(3.9,25,2,329,0)="""BLD"",6253,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,25,2,330,0)=""
^XMB(3.9,25,2,331,0)="""BLD"",6253,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,25,2,332,0)=""
^XMB(3.9,25,2,333,0)="""BLD"",6253,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,25,2,334,0)=""
^XMB(3.9,25,2,335,0)="""BLD"",6253,""KRN"",""B"",19,19)"
^XMB(3.9,25,2,336,0)=""
^XMB(3.9,25,2,337,0)="""BLD"",6253,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,25,2,338,0)=""
^XMB(3.9,25,2,339,0)="""BLD"",6253,""KRN"",""B"",101,101)"
^XMB(3.9,25,2,340,0)=""
^XMB(3.9,25,2,341,0)="""BLD"",6253,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,25,2,342,0)=""
^XMB(3.9,25,2,343,0)="""BLD"",6253,""KRN"",""B"",771,771)"
^XMB(3.9,25,2,344,0)=""
^XMB(3.9,25,2,345,0)="""BLD"",6253,""KRN"",""B"",870,870)"
^XMB(3.9,25,2,346,0)=""
^XMB(3.9,25,2,347,0)="""BLD"",6253,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,25,2,348,0)=""
^XMB(3.9,25,2,349,0)="""BLD"",6253,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,25,2,350,0)=""
^XMB(3.9,25,2,351,0)="""BLD"",6253,""KRN"",""B"",8994,8994)"
^XMB(3.9,25,2,352,0)=""
^XMB(3.9,25,2,353,0)="""BLD"",6253,""QUES"",0)"
^XMB(3.9,25,2,354,0)="^9.62^^"
^XMB(3.9,25,2,355,0)="""BLD"",6253,""REQB"",0)"
^XMB(3.9,25,2,356,0)="^9.611^5^4"
^XMB(3.9,25,2,357,0)="""BLD"",6253,""REQB"",1,0)"
^XMB(3.9,25,2,358,0)="EC*2.0*59^2"
^XMB(3.9,25,2,359,0)="""BLD"",6253,""REQB"",3,0)"
^XMB(3.9,25,2,360,0)="EC*2.0*65^2"
^XMB(3.9,25,2,361,0)="""BLD"",6253,""REQB"",4,0)"
^XMB(3.9,25,2,362,0)="EC*2.0*75^2"
^XMB(3.9,25,2,363,0)="""BLD"",6253,""REQB"",5,0)"
^XMB(3.9,25,2,364,0)="EC*2.0*78^2"
^XMB(3.9,25,2,365,0)="""BLD"",6253,""REQB"",""B"",""EC*2.0*59"",1)"
^XMB(3.9,25,2,366,0)=""
^XMB(3.9,25,2,367,0)="""BLD"",6253,""REQB"",""B"",""EC*2.0*65"",3)"
^XMB(3.9,25,2,368,0)=""
^XMB(3.9,25,2,369,0)="""BLD"",6253,""REQB"",""B"",""EC*2.0*75"",4)"
^XMB(3.9,25,2,370,0)=""
^XMB(3.9,25,2,371,0)="""BLD"",6253,""REQB"",""B"",""EC*2.0*78"",5)"
^XMB(3.9,25,2,372,0)=""
^XMB(3.9,25,2,373,0)="""FIA"",721)"
^XMB(3.9,25,2,374,0)="EVENT CAPTURE PATIENT"
^XMB(3.9,25,2,375,0)="""FIA"",721,0)"
^XMB(3.9,25,2,376,0)="^ECH("
^XMB(3.9,25,2,377,0)="""FIA"",721,0,0)"
^XMB(3.9,25,2,378,0)="721"
^XMB(3.9,25,2,379,0)="""FIA"",721,0,1)"
^XMB(3.9,25,2,380,0)="y^y^p^^^^n^^n"
^XMB(3.9,25,2,381,0)="""FIA"",721,0,10)"
^XMB(3.9,25,2,382,0)=""
^XMB(3.9,25,2,383,0)="""FIA"",721,0,11)"
^XMB(3.9,25,2,384,0)=""
^XMB(3.9,25,2,385,0)="""FIA"",721,0,""RLRO"")"
^XMB(3.9,25,2,386,0)=""
^XMB(3.9,25,2,387,0)="""FIA"",721,0,""VR"")"
^XMB(3.9,25,2,388,0)="2.0^EC"
^XMB(3.9,25,2,389,0)="""FIA"",721,721)"
^XMB(3.9,25,2,390,0)="1"
^XMB(3.9,25,2,391,0)="""FIA"",721,721,10)"
^XMB(3.9,25,2,392,0)=""
^XMB(3.9,25,2,393,0)="""FIA"",721,721,15)"
^XMB(3.9,25,2,394,0)=""
^XMB(3.9,25,2,395,0)="""FIA"",721,721,17)"
^XMB(3.9,25,2,396,0)=""
^XMB(3.9,25,2,397,0)="""FIA"",721,721,30)"
^XMB(3.9,25,2,398,0)=""
^XMB(3.9,25,2,399,0)="""FIA"",721,721,42)"
^XMB(3.9,25,2,400,0)=""
^XMB(3.9,25,2,401,0)="""FIA"",721,721.042)"
^XMB(3.9,25,2,402,0)="0"
^XMB(3.9,25,2,403,0)="""INIT"")"
^XMB(3.9,25,2,404,0)="EC2P72PT"
^XMB(3.9,25,2,405,0)="""KRN"",.402,1987,-1)"
^XMB(3.9,25,2,406,0)="0^1"
^XMB(3.9,25,2,407,0)="""KRN"",.402,1987,0)"
^XMB(3.9,25,2,408,0)="EC CREATE PATIENT ENTRY^3051202.1316^^721^^^3051216"
^XMB(3.9,25,2,409,0)="""KRN"",.402,1987,""DR"",1,721)"
^XMB(3.9,25,2,410,0)="1////^S X=$G(ECPTR(""DFN""));2////^S X=$G(ECPRR(""PROCDT""));3////^S X=$G(ECL);4////^S X=$P($G(^ECD(+$P($G(ECDSSU),""^""),0)),""^"",2);5////^S X=$P($G(^ECD(+$P($G(ECDSSU),""^""),0)),""^"",3);6////^S X=$P($G(ECDSSU),""^"");"
^XMB(3.9,25,2,411,0)="""KRN"",.402,1987,""DR"",1,721,1)"
^XMB(3.9,25,2,412,0)="7////^S X=+$P($G(ECCAT),""^"");8////^S X=$G(ECPRR(""PROC""));9////^S X=$G(ECPRR(""VOL""));11////^S X=$G(ECPTR(""ORDSEC""));13////^S X=$G(DUZ);19////^S X=$G(ECPRR(""PCEPR""));20////^S X=$G(ECPTR(""DX""));21////^S X=$G(ECPTR(""AO""));"
^XMB(3.9,25,2,413,0)="""KRN"",.402,1987,""DR"",1,721,2)"
^XMB(3.9,25,2,414,0)="22////^S X=$G(ECPTR(""IR""));23////^S X=$G(ECPTR(""ENV""));24////^S X=$G(ECPTR(""SC""));35////^S X=$G(ECPTR(""MST""));39////^S X=$G(ECPTR(""HNC""));40////^S X=$G(ECPTR(""CV""));26////^S X=$G(ECPTR(""CLIN""));"
^XMB(3.9,25,2,415,0)="""KRN"",.402,1987,""DR"",1,721,3)"
^XMB(3.9,25,2,416,0)="27////^S X=$P($G(^SC(+$G(ECPTR(""CLIN"")),0)),""^"",7);29////^S X=$G(ECPTR(""IO""));34////^S X=$G(ECPRR(""REAS""));"
^XMB(3.9,25,2,417,0)="""KRN"",.402,1987,""ROU"")"
^XMB(3.9,25,2,418,0)="^ECMXP"
^XMB(3.9,25,2,419,0)="""KRN"",.402,1987,""ROUOLD"")"
^XMB(3.9,25,2,420,0)="ECMXP"
^XMB(3.9,25,2,421,0)="""KRN"",.402,1988,-1)"
^XMB(3.9,25,2,422,0)="0^2"
^XMB(3.9,25,2,423,0)="""KRN"",.402,1988,0)"
^XMB(3.9,25,2,424,0)="EC FILE PCE NODE^3051202.1317^^721^^^3051216"
^XMB(3.9,25,2,425,0)="""KRN"",.402,1988,""DR"",1,721)"
^XMB(3.9,25,2,426,0)="30////^S X=ECPRR(""PROCDT"")_""~""_ECPTR(""DFN"")_""~""_ECPTR(""CLIN"")_""~""_ECL_""~""_ECDSS_""~~~~""_ECPRR(""VOL"")_""~""_ECPRR(""PCEPR"")_""~""_ECPTR(""DX"");"
^XMB(3.9,25,2,427,0)="""KRN"",.402,1988,""DR"",1,721,1)"
^XMB(3.9,25,2,428,0)="30////^S X=X_""~""_ECAO_""~""_ECIR_""~""_ECEV_""~""_ECSC_""~""_$S(ECNPP]"""":ECNPP,1:"""")_""~""_ECELIG_""~""_ECMST_""~""_ECHNC_""~""_ECCV;37////^S X=ECMODS;"
^XMB(3.9,25,2,429,0)="""KRN"",.402,1988,""ROU"")"
^XMB(3.9,25,2,430,0)="^ECMXPC"
^XMB(3.9,25,2,431,0)="""KRN"",.402,1988,""ROUOLD"")"
^XMB(3.9,25,2,432,0)="ECMXPC"
^XMB(3.9,25,2,433,0)="""KRN"",9.2,2962,-1)"
^XMB(3.9,25,2,434,0)="0^1"
^XMB(3.9,25,2,435,0)="""KRN"",9.2,2962,0)"
^XMB(3.9,25,2,436,0)="EC PRO SUM^Provider (1-7) Summary Report^2950425.070823^"
^XMB(3.9,25,2,437,0)="""KRN"",9.2,2962,1,0)"
^XMB(3.9,25,2,438,0)="^^11^11^3051118^"
^XMB(3.9,25,2,439,0)="""KRN"",9.2,2962,1,1,0)"
^XMB(3.9,25,2,440,0)="** This report is formatted for 132-column output. **"
^XMB(3.9,25,2,441,0)="""KRN"",9.2,2962,1,2,0)"
^XMB(3.9,25,2,442,0)=" "
^XMB(3.9,25,2,443,0)="""KRN"",9.2,2962,1,3,0)"
^XMB(3.9,25,2,444,0)="This option allows you to print/display workload within a specified date"
^XMB(3.9,25,2,445,0)="""KRN"",9.2,2962,1,4,0)"
^XMB(3.9,25,2,446,0)="range for a selected provider.  The output includes:"
^XMB(3.9,25,2,447,0)="""KRN"",9.2,2962,1,5,0)"
^XMB(3.9,25,2,448,0)=" "
^XMB(3.9,25,2,449,0)="""KRN"",9.2,2962,1,6,0)"
^XMB(3.9,25,2,450,0)=" - Procedure and procedure reason"
^XMB(3.9,25,2,451,0)="""KRN"",9.2,2962,1,7,0)"
^XMB(3.9,25,2,452,0)=" - Patient name and SSN"
^XMB(3.9,25,2,453,0)="""KRN"",9.2,2962,1,8,0)"
^XMB(3.9,25,2,454,0)=" - Matrix showing how many times a specific procedure was performed on a"
^XMB(3.9,25,2,455,0)="""KRN"",9.2,2962,1,9,0)"
^XMB(3.9,25,2,456,0)="   specific patient with the selected provider as Provider 1, Provider 2, "
^XMB(3.9,25,2,457,0)="""KRN"",9.2,2962,1,10,0)"
^XMB(3.9,25,2,458,0)="   to Provider 7"
^XMB(3.9,25,2,459,0)="""KRN"",9.2,2962,1,11,0)"
^XMB(3.9,25,2,460,0)=" - Subtotals by procedure"
^XMB(3.9,25,2,461,0)="""KRN"",9.2,2962,10.2)"
^XMB(3.9,25,2,462,0)="W @IOF"
^XMB(3.9,25,2,463,0)="""KRN"",9.2,3506,-1)"
^XMB(3.9,25,2,464,0)="0^2"
^XMB(3.9,25,2,465,0)="""KRN"",9.2,3506,0)"
^XMB(3.9,25,2,466,0)="ECSCPT^Event Code Screens with CPT Codes^3050824.162938^"
^XMB(3.9,25,2,467,0)="""KRN"",9.2,3506,1,0)"
^XMB(3.9,25,2,468,0)="^^14^14^3051212^"
^XMB(3.9,25,2,469,0)="""KRN"",9.2,3506,1,1,0)"
^XMB(3.9,25,2,470,0)="This option allows you to print/display event code screens "
^XMB(3.9,25,2,471,0)="""KRN"",9.2,3506,1,2,0)"
^XMB(3.9,25,2,472,0)="with active/inactive/both CPT codes for all or a specific DSS"
^XMB(3.9,25,2,473,0)="""KRN"",9.2,3506,1,3,0)"
^XMB(3.9,25,2,474,0)="Unit. The output includes"
^XMB(3.9,25,2,475,0)="""KRN"",9.2,3506,1,4,0)"
^XMB(3.9,25,2,476,0)="       . . ."
^XMB(3.9,25,2,477,0)="""KRN"",9.2,3506,1,5,0)"
^XMB(3.9,25,2,478,0)=" - Run Date"
^XMB(3.9,25,2,479,0)="""KRN"",9.2,3506,1,6,0)"
^XMB(3.9,25,2,480,0)=" - Location"
^XMB(3.9,25,2,481,0)="""KRN"",9.2,3506,1,7,0)"
^XMB(3.9,25,2,482,0)=" - Service"
^XMB(3.9,25,2,483,0)="""KRN"",9.2,3506,1,8,0)"
^XMB(3.9,25,2,484,0)=" - DSS Unit"
^XMB(3.9,25,2,485,0)="""KRN"",9.2,3506,1,9,0)"
^XMB(3.9,25,2,486,0)=" - Category (if applicable)"
^XMB(3.9,25,2,487,0)="""KRN"",9.2,3506,1,10,0)"
^XMB(3.9,25,2,488,0)=" - Procedure Name"
^XMB(3.9,25,2,489,0)="""KRN"",9.2,3506,1,11,0)"
^XMB(3.9,25,2,490,0)=" - National Number"
^XMB(3.9,25,2,491,0)="""KRN"",9.2,3506,1,12,0)"
^XMB(3.9,25,2,492,0)=" - CPT Code "
^XMB(3.9,25,2,493,0)="""KRN"",9.2,3506,1,13,0)"
^XMB(3.9,25,2,494,0)="   (CPT inactive codes are flagged with an *I* when printing "
^XMB(3.9,25,2,495,0)="""KRN"",9.2,3506,1,14,0)"
^XMB(3.9,25,2,496,0)="    both active and inactive codes)"
^XMB(3.9,25,2,497,0)="""KRN"",9.2,3506,10.2)"
^XMB(3.9,25,2,498,0)="W @IOF"
^XMB(3.9,25,2,499,0)="""KRN"",9.2,3507,-1)"
^XMB(3.9,25,2,500,0)="0^3"
^XMB(3.9,25,2,501,0)="""KRN"",9.2,3507,0)"
^XMB(3.9,25,2,502,0)="ECINCPT^National/Local Procedure Codes with Inactive CPT^3050824.164156^"
^XMB(3.9,25,2,503,0)="""KRN"",9.2,3507,1,0)"
^XMB(3.9,25,2,504,0)="^9.21^8^8^3051202^^^^"
^XMB(3.9,25,2,505,0)="""KRN"",9.2,3507,1,1,0)"
^XMB(3.9,25,2,506,0)="This report provides a list of National and Local Procedure Codes with "
^XMB(3.9,25,2,507,0)="""KRN"",9.2,3507,1,2,0)"
^XMB(3.9,25,2,508,0)="inactive CPT codes from file #725.   The output includes"
^XMB(3.9,25,2,509,0)="""KRN"",9.2,3507,1,3,0)"
^XMB(3.9,25,2,510,0)=" "
^XMB(3.9,25,2,511,0)="""KRN"",9.2,3507,1,4,0)"
^XMB(3.9,25,2,512,0)=" - Run Date "
^XMB(3.9,25,2,513,0)="""KRN"",9.2,3507,1,5,0)"
^XMB(3.9,25,2,514,0)=" - National Number"
^XMB(3.9,25,2,515,0)="""KRN"",9.2,3507,1,6,0)"
^XMB(3.9,25,2,516,0)=" - National Name"
^XMB(3.9,25,2,517,0)="""KRN"",9.2,3507,1,7,0)"
^XMB(3.9,25,2,518,0)=" - CPT Code"
^XMB(3.9,25,2,519,0)="""KRN"",9.2,3507,1,8,0)"
^XMB(3.9,25,2,520,0)=" - Inactive Date"
^XMB(3.9,25,2,521,0)="""KRN"",9.2,3507,10.2)"
^XMB(3.9,25,2,522,0)="W @IOF"
^XMB(3.9,25,2,523,0)="""KRN"",19,9672,-1)"
^XMB(3.9,25,2,524,0)="0^5"
^XMB(3.9,25,2,525,0)="""KRN"",19,9672,0)"
^XMB(3.9,25,2,526,0)="EC PRO SUM^Provider (1-7) Summary Report^^R^^^EC PRO SUM^^^^^EVENT CAPTURE^^^1"
^XMB(3.9,25,2,527,0)="""KRN"",19,9672,1,0)"
^XMB(3.9,25,2,528,0)="^^3^3^3051118^"
^XMB(3.9,25,2,529,0)="""KRN"",19,9672,1,1,0)"
^XMB(3.9,25,2,530,0)="A summary report, by provider, of the number of procedures each provider"
^XMB(3.9,25,2,531,0)="""KRN"",19,9672,1,2,0)"
^XMB(3.9,25,2,532,0)="has performed as first, second, third to seven. This report could be used"
^XMB(3.9,25,2,533,0)="""KRN"",19,9672,1,3,0)"
^XMB(3.9,25,2,534,0)="as a training summary."
^XMB(3.9,25,2,535,0)="""KRN"",19,9672,15)"
^XMB(3.9,25,2,536,0)="W @IOF"
^XMB(3.9,25,2,537,0)="""KRN"",19,9672,25)"
^XMB(3.9,25,2,538,0)="ECPRSUM1"
^XMB(3.9,25,2,539,0)="""KRN"",19,9672,""U"")"
^XMB(3.9,25,2,540,0)="PROVIDER (1-7) SUMMARY REPORT"
^XMB(3.9,25,2,541,0)="""KRN"",19,9681,-1)"
^XMB(3.9,25,2,542,0)="2^6"
^XMB(3.9,25,2,543,0)="""KRN"",19,9681,0)"
^XMB(3.9,25,2,544,0)="ECDSRPT^Management Reports^^M^11724^^2939^^^^^499^^1^1"
^XMB(3.9,25,2,545,0)="""KRN"",19,9681,10,0)"
^XMB(3.9,25,2,546,0)="^19.01IP^6^6"
^XMB(3.9,25,2,547,0)="""KRN"",19,9681,10,5,0)"
^XMB(3.9,25,2,548,0)="13156^^5"
^XMB(3.9,25,2,549,0)="""KRN"",19,9681,10,5,""^"")"
^XMB(3.9,25,2,550,0)="ECSCPT"
^XMB(3.9,25,2,551,0)="""KRN"",19,9681,10,6,0)"
^XMB(3.9,25,2,552,0)="13157^^6"
^XMB(3.9,25,2,553,0)="""KRN"",19,9681,10,6,""^"")"
^XMB(3.9,25,2,554,0)="ECINCPT"
^XMB(3.9,25,2,555,0)="""KRN"",19,9681,""U"")"
^XMB(3.9,25,2,556,0)="MANAGEMENT REPORTS"
^XMB(3.9,25,2,557,0)="""KRN"",19,11860,-1)"
^XMB(3.9,25,2,558,0)="0^4"
^XMB(3.9,25,2,559,0)="""KRN"",19,11860,0)"
^XMB(3.9,25,2,560,0)="EC GUI CONTEXT^EC GUI Context version 2.1.0.0^^B^^^^^^^^EVENT CAPTURE"
^XMB(3.9,25,2,561,0)="""KRN"",19,11860,1,0)"
^XMB(3.9,25,2,562,0)="^19.06^1^1^3051212^^^^"
^XMB(3.9,25,2,563,0)="""KRN"",19,11860,1,1,0)"
^XMB(3.9,25,2,564,0)="This is the Broker Client/Server type option for the Event Capture GUI option"
^XMB(3.9,25,2,565,0)="""KRN"",19,11860,99)"
^XMB(3.9,25,2,566,0)="58583,58456"
^XMB(3.9,25,2,567,0)="""KRN"",19,11860,99.1)"
^XMB(3.9,25,2,568,0)="58981,55862"
^XMB(3.9,25,2,569,0)="""KRN"",19,11860,""RPC"",0)"
^XMB(3.9,25,2,570,0)="^19.05P^53^53"
^XMB(3.9,25,2,571,0)="""KRN"",19,11860,""RPC"",1,0)"
^XMB(3.9,25,2,572,0)="EC DSSCATCHECK"
^XMB(3.9,25,2,573,0)="""KRN"",19,11860,""RPC"",2,0)"
^XMB(3.9,25,2,574,0)="EC FILER"
^XMB(3.9,25,2,575,0)="""KRN"",19,11860,""RPC"",3,0)"
^XMB(3.9,25,2,576,0)="EC GETBATPROCS"
^XMB(3.9,25,2,577,0)="""KRN"",19,11860,""RPC"",4,0)"
^XMB(3.9,25,2,578,0)="EC GETCAT"
^XMB(3.9,25,2,579,0)="""KRN"",19,11860,""RPC"",5,0)"
^XMB(3.9,25,2,580,0)="EC GETCPTLST"
^XMB(3.9,25,2,581,0)="""KRN"",19,11860,""RPC"",6,0)"
^XMB(3.9,25,2,582,0)="EC GETDSSECS"
^XMB(3.9,25,2,583,0)="""KRN"",19,11860,""RPC"",7,0)"
^XMB(3.9,25,2,584,0)="EC GETDSSUNIT"
^XMB(3.9,25,2,585,0)="""KRN"",19,11860,""RPC"",8,0)"
^XMB(3.9,25,2,586,0)="EC GETDSSUNITUSRS"
^XMB(3.9,25,2,587,0)="""KRN"",19,11860,""RPC"",9,0)"
^XMB(3.9,25,2,588,0)="EC GETECLOC"
^XMB(3.9,25,2,589,0)="""KRN"",19,11860,""RPC"",10,0)"
^XMB(3.9,25,2,590,0)="EC GETECSCATS"
^XMB(3.9,25,2,591,0)="""KRN"",19,11860,""RPC"",11,0)"
^XMB(3.9,25,2,592,0)="EC GETECSCREEN"
^XMB(3.9,25,2,593,0)="""KRN"",19,11860,""RPC"",12,0)"
^XMB(3.9,25,2,594,0)="EC GETECSDETAIL"
^XMB(3.9,25,2,595,0)="""KRN"",19,11860,""RPC"",13,0)"
^XMB(3.9,25,2,596,0)="EC GETECSPROCS"
^XMB(3.9,25,2,597,0)="""KRN"",19,11860,""RPC"",14,0)"
^XMB(3.9,25,2,598,0)="EC GETENCDXS"
^XMB(3.9,25,2,599,0)="""KRN"",19,11860,""RPC"",15,0)"
^XMB(3.9,25,2,600,0)="EC GETIEN"
^XMB(3.9,25,2,601,0)="""KRN"",19,11860,""RPC"",16,0)"
^XMB(3.9,25,2,602,0)="EC GETLIST"
^XMB(3.9,25,2,603,0)="""KRN"",19,11860,""RPC"",17,0)"
^XMB(3.9,25,2,604,0)="EC GETLOC"
^XMB(3.9,25,2,605,0)="""KRN"",19,11860,""RPC"",18,0)"
^XMB(3.9,25,2,606,0)="EC GETNATPX"
^XMB(3.9,25,2,607,0)="""KRN"",19,11860,""RPC"",19,0)"
^XMB(3.9,25,2,608,0)="EC GETPATCLASTAT"
^XMB(3.9,25,2,609,0)="""KRN"",19,11860,""RPC"",20,0)"
^XMB(3.9,25,2,610,0)="EC GETPATELIG"
^XMB(3.9,25,2,611,0)="""KRN"",19,11860,""RPC"",21,0)"
^XMB(3.9,25,2,612,0)="EC GETPATINFO"
^XMB(3.9,25,2,613,0)="""KRN"",19,11860,""RPC"",22,0)"
^XMB(3.9,25,2,614,0)="EC GETPATPROCS"
^XMB(3.9,25,2,615,0)="""KRN"",19,11860,""RPC"",23,0)"
^XMB(3.9,25,2,616,0)="EC GETPRODEFS"
^XMB(3.9,25,2,617,0)="""KRN"",19,11860,""RPC"",24,0)"
^XMB(3.9,25,2,618,0)="EC GETPROVIDER"
^XMB(3.9,25,2,619,0)="""KRN"",19,11860,""RPC"",25,0)"
^XMB(3.9,25,2,620,0)="EC GETPXLST"
^XMB(3.9,25,2,621,0)="""KRN"",19,11860,""RPC"",26,0)"
^XMB(3.9,25,2,622,0)="EC GETPXMODIFIER"
^XMB(3.9,25,2,623,0)="""KRN"",19,11860,""RPC"",27,0)"
^XMB(3.9,25,2,624,0)="EC GETPXREASON"
^XMB(3.9,25,2,625,0)="""KRN"",19,11860,""RPC"",28,0)"
^XMB(3.9,25,2,626,0)="EC GETSCNHELP"
^XMB(3.9,25,2,627,0)="""KRN"",19,11860,""RPC"",29,0)"
^XMB(3.9,25,2,628,0)="EC GETUSRDSSUNIT"
^XMB(3.9,25,2,629,0)="""KRN"",19,11860,""RPC"",30,0)"
^XMB(3.9,25,2,630,0)="EC REPORTS"
^XMB(3.9,25,2,631,0)="""KRN"",19,11860,""RPC"",31,0)"
^XMB(3.9,25,2,632,0)="EC VALIDATE SPREADSHEET DATA"
^XMB(3.9,25,2,633,0)="""KRN"",19,11860,""RPC"",32,0)"
^XMB(3.9,25,2,634,0)="ORWU USERINFO"
^XMB(3.9,25,2,635,0)="""KRN"",19,11860,""RPC"",33,0)"
^XMB(3.9,25,2,636,0)="ORWU HASKEY"
^XMB(3.9,25,2,637,0)="""KRN"",19,11860,""RPC"",34,0)"
^XMB(3.9,25,2,638,0)="ORWU DEVICE"
^XMB(3.9,25,2,639,0)="""KRN"",19,11860,""RPC"",35,0)"
^XMB(3.9,25,2,640,0)="SC PATIENT LOOKUP"
^XMB(3.9,25,2,641,0)="""KRN"",19,11860,""RPC"",36,0)"
^XMB(3.9,25,2,642,0)="ORWU NEWPERS"
^XMB(3.9,25,2,643,0)="""KRN"",19,11860,""RPC"",37,0)"
^XMB(3.9,25,2,644,0)="DDR GET DD HELP"
^XMB(3.9,25,2,645,0)="""KRN"",19,11860,""RPC"",38,0)"
^XMB(3.9,25,2,646,0)="DDR FINDER"
^XMB(3.9,25,2,647,0)="""KRN"",19,11860,""RPC"",39,0)"
^XMB(3.9,25,2,648,0)="DDR FIND1"
^XMB(3.9,25,2,649,0)="""KRN"",19,11860,""RPC"",40,0)"
^XMB(3.9,25,2,650,0)="DDR LISTER"
^XMB(3.9,25,2,651,0)="""KRN"",19,11860,""RPC"",41,0)"
^XMB(3.9,25,2,652,0)="EC GETDATE"
^XMB(3.9,25,2,653,0)="""KRN"",19,11860,""RPC"",42,0)"
^XMB(3.9,25,2,654,0)="EC CLASHELP"
^XMB(3.9,25,2,655,0)="""KRN"",19,11860,""RPC"",43,0)"
^XMB(3.9,25,2,656,0)="DDR GETS ENTRY DATA"
^XMB(3.9,25,2,657,0)="""KRN"",19,11860,""RPC"",44,0)"
^XMB(3.9,25,2,658,0)="DG CHK BS5 XREF Y/N"
^XMB(3.9,25,2,659,0)="""KRN"",19,11860,""RPC"",45,0)"
^XMB(3.9,25,2,660,0)="DG SENSITIVE RECORD ACCESS"
^XMB(3.9,25,2,661,0)="""KRN"",19,11860,""RPC"",46,0)"
^XMB(3.9,25,2,662,0)="DG SENSITIVE RECORD BULLETIN"
^XMB(3.9,25,2,663,0)="""KRN"",19,11860,""RPC"",47,0)"
^XMB(3.9,25,2,664,0)="DG CHK PAT/DIV MEANS TEST"
^XMB(3.9,25,2,665,0)="""KRN"",19,11860,""RPC"",48,0)"
^XMB(3.9,25,2,666,0)="EC SPACEBAR"
^XMB(3.9,25,2,667,0)="""KRN"",19,11860,""RPC"",49,0)"
^XMB(3.9,25,2,668,0)="EC DIEDON"
^XMB(3.9,25,2,669,0)="""KRN"",19,11860,""RPC"",50,0)"
^XMB(3.9,25,2,670,0)="EC GETPATCH"
^XMB(3.9,25,2,671,0)="""KRN"",19,11860,""RPC"",51,0)"
^XMB(3.9,25,2,672,0)="EC GETVISITINFO"
^XMB(3.9,25,2,673,0)="""KRN"",19,11860,""RPC"",52,0)"
^XMB(3.9,25,2,674,0)="EC GETVERSION"
^XMB(3.9,25,2,675,0)="""KRN"",19,11860,""RPC"",53,0)"
^XMB(3.9,25,2,676,0)="ORWU DT"
^XMB(3.9,25,2,677,0)="""KRN"",19,11860,""U"")"
^XMB(3.9,25,2,678,0)="EC GUI CONTEXT VERSION 2.1.0.0"
^XMB(3.9,25,2,679,0)="""KRN"",19,13156,-1)"
^XMB(3.9,25,2,680,0)="0^2"
^XMB(3.9,25,2,681,0)="""KRN"",19,13156,0)"
^XMB(3.9,25,2,682,0)="ECSCPT^Event Code Screens with CPT Codes^^R^^^ECSCPT^^^^^EVENT CAPTURE^^^1"
^XMB(3.9,25,2,683,0)="""KRN"",19,13156,1,0)"
^XMB(3.9,25,2,684,0)="^19.06^3^3^3051202^^"
^XMB(3.9,25,2,685,0)="""KRN"",19,13156,1,1,0)"
^XMB(3.9,25,2,686,0)="This option produces a list of event codes screens with CPT Codes. Users"
^XMB(3.9,25,2,687,0)="""KRN"",19,13156,1,2,0)"
^XMB(3.9,25,2,688,0)="can choose to list event code screens with active, inactive or all CPT"
^XMB(3.9,25,2,689,0)="""KRN"",19,13156,1,3,0)"
^XMB(3.9,25,2,690,0)="codes."
^XMB(3.9,25,2,691,0)="""KRN"",19,13156,15)"
^XMB(3.9,25,2,692,0)="W @IOF"
^XMB(3.9,25,2,693,0)="""KRN"",19,13156,25)"
^XMB(3.9,25,2,694,0)="ECSCPT"
^XMB(3.9,25,2,695,0)="""KRN"",19,13156,""U"")"
^XMB(3.9,25,2,696,0)="EVENT CODE SCREENS WITH CPT CO"
^XMB(3.9,25,2,697,0)="""KRN"",19,13157,-1)"
^XMB(3.9,25,2,698,0)="0^1"
^XMB(3.9,25,2,699,0)="""KRN"",19,13157,0)"
^XMB(3.9,25,2,700,0)="ECINCPT^National/Local Procedure Codes with Inactive CPT^^R^^^ECINCPT^^^^^EVENT CAPTURE^^^1"
^XMB(3.9,25,2,701,0)="""KRN"",19,13157,1,0)"
^XMB(3.9,25,2,702,0)="^^2^2^3050824^"
^XMB(3.9,25,2,703,0)="""KRN"",19,13157,1,1,0)"
^XMB(3.9,25,2,704,0)="This option lists the national and local procedure codes that have "
^XMB(3.9,25,2,705,0)="""KRN"",19,13157,1,2,0)"
^XMB(3.9,25,2,706,0)="inactive CPT codes."
^XMB(3.9,25,2,707,0)="""KRN"",19,13157,15)"
^XMB(3.9,25,2,708,0)="W @IOF"
^XMB(3.9,25,2,709,0)="""KRN"",19,13157,25)"
^XMB(3.9,25,2,710,0)="EN^ECINCPT"
^XMB(3.9,25,2,711,0)="""KRN"",19,13157,""U"")"
^XMB(3.9,25,2,712,0)="NATIONAL/LOCAL PROCEDURE CODES"
^XMB(3.9,25,2,713,0)="""MBREQ"")"
^XMB(3.9,25,2,714,0)="0"
^XMB(3.9,25,2,715,0)="""ORD"",1,9.2)"
^XMB(3.9,25,2,716,0)="9.2;1;;;HELP^XPDTA1;HLPF1^XPDIA1;HLPE1^XPDIA1;HLPF2^XPDIA1;;HLPDEL^XPDIA1"
^XMB(3.9,25,2,717,0)="""ORD"",1,9.2,0)"
^XMB(3.9,25,2,718,0)="HELP FRAME"
^XMB(3.9,25,2,719,0)="""ORD"",7,.402)"
^XMB(3.9,25,2,720,0)=".402;7;;;EDEOUT^DIFROMSO(.402,DA,"""",XPDA);FPRE^DIFROMSI(.402,"""",XPDA);EPRE^DIFROMSI(.402,DA,$E(""N"",$G(XPDNEW)),XPDA,"""",OLDA);;EPOST^DIFROMSI(.402,DA,"""",XPDA);DEL^DIFROMSK(.402,"""",%)"
^XMB(3.9,25,2,721,0)="""ORD"",7,.402,0)"
^XMB(3.9,25,2,722,0)="INPUT TEMPLATE"
^XMB(3.9,25,2,723,0)="""ORD"",18,19)"
^XMB(3.9,25,2,724,0)="19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA"
^XMB(3.9,25,2,725,0)="""ORD"",18,19,0)"
^XMB(3.9,25,2,726,0)="OPTION"
^XMB(3.9,25,2,727,0)="""PKG"",499,-1)"
^XMB(3.9,25,2,728,0)="1^1"
^XMB(3.9,25,2,729,0)="""PKG"",499,0)"
^XMB(3.9,25,2,730,0)="EVENT CAPTURE^EC^Event Capture Workload Capture System^"
^XMB(3.9,25,2,731,0)="""PKG"",499,20,0)"
^XMB(3.9,25,2,732,0)="^9.402P^^"
^XMB(3.9,25,2,733,0)="""PKG"",499,22,0)"
^XMB(3.9,25,2,734,0)="^9.49I^1^1"
^XMB(3.9,25,2,735,0)="""PKG"",499,22,1,0)"
^XMB(3.9,25,2,736,0)="2.0^2960508^2970410^11715"
^XMB(3.9,25,2,737,0)="""PKG"",499,22,1,""PAH"",1,0)"
^XMB(3.9,25,2,738,0)="72^3060511^11724"
^XMB(3.9,25,2,739,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,25,2,740,0)="Y"
^XMB(3.9,25,2,741,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,25,2,742,0)="^D REP^XPDH"
^XMB(3.9,25,2,743,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,25,2,744,0)="Shall I write over your |FLAG| File"
^XMB(3.9,25,2,745,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,25,2,746,0)="YES"
^XMB(3.9,25,2,747,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,25,2,748,0)="D XPF1^XPDIQ"
^XMB(3.9,25,2,749,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,25,2,750,0)="Y"
^XMB(3.9,25,2,751,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,25,2,752,0)="^D DTA^XPDH"
^XMB(3.9,25,2,753,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,25,2,754,0)="Want my data |FLAG| yours"
^XMB(3.9,25,2,755,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,25,2,756,0)="YES"
^XMB(3.9,25,2,757,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,25,2,758,0)="D XPF2^XPDIQ"
^XMB(3.9,25,2,759,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,25,2,760,0)="YO"
^XMB(3.9,25,2,761,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,25,2,762,0)="^D INHIBIT^XPDH"
^XMB(3.9,25,2,763,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,25,2,764,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,25,2,765,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,25,2,766,0)="YES"
^XMB(3.9,25,2,767,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,25,2,768,0)="D XPI1^XPDIQ"
^XMB(3.9,25,2,769,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,25,2,770,0)="PO^VA(200,:EM"
^XMB(3.9,25,2,771,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,25,2,772,0)="^D MG^XPDH"
^XMB(3.9,25,2,773,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,25,2,774,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,25,2,775,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,25,2,776,0)=""
^XMB(3.9,25,2,777,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,25,2,778,0)="D XPM1^XPDIQ"
^XMB(3.9,25,2,779,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,25,2,780,0)="Y"
^XMB(3.9,25,2,781,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,25,2,782,0)="^D MENU^XPDH"
^XMB(3.9,25,2,783,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,25,2,784,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,25,2,785,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,25,2,786,0)="YES"
^XMB(3.9,25,2,787,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,25,2,788,0)="D XPO1^XPDIQ"
^XMB(3.9,25,2,789,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,25,2,790,0)="Y"
^XMB(3.9,25,2,791,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,25,2,792,0)="^D OPT^XPDH"
^XMB(3.9,25,2,793,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,25,2,794,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,25,2,795,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,25,2,796,0)="YES"
^XMB(3.9,25,2,797,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,25,2,798,0)="D XPZ1^XPDIQ"
^XMB(3.9,25,2,799,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,25,2,800,0)="Y"
^XMB(3.9,25,2,801,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,25,2,802,0)="^D RTN^XPDH"
^XMB(3.9,25,2,803,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,25,2,804,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,25,2,805,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,25,2,806,0)="NO"
^XMB(3.9,25,2,807,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,25,2,808,0)="D XPZ2^XPDIQ"
^XMB(3.9,25,2,809,0)="""RTN"")"
^XMB(3.9,25,2,810,0)="42"
^XMB(3.9,25,2,811,0)="""RTN"",""EC2P72PT"")"
^XMB(3.9,25,2,812,0)="0^37^B39906123"
^XMB(3.9,25,2,813,0)="""RTN"",""EC2P72PT"",1,0)"
^XMB(3.9,25,2,814,0)="EC2P72PT ;ALB/JAM - PATCH EC*2.0*72 Post-Init Rtn ; 5/11/06 2:57pm"
^XMB(3.9,25,2,815,0)="""RTN"",""EC2P72PT"",2,0)"
^XMB(3.9,25,2,816,0)=" ;;2.0; EVENT CAPTURE ;**72**;8 May 96"
^XMB(3.9,25,2,817,0)="""RTN"",""EC2P72PT"",3,0)"
^XMB(3.9,25,2,818,0)=" ;"
^XMB(3.9,25,2,819,0)="""RTN"",""EC2P72PT"",4,0)"
^XMB(3.9,25,2,820,0)="POST ; entry point"
^XMB(3.9,25,2,821,0)="""RTN"",""EC2P72PT"",5,0)"
^XMB(3.9,25,2,822,0)=" D MES^XPDUTL("" "")"
^XMB(3.9,25,2,823,0)="""RTN"",""EC2P72PT"",6,0)"
^XMB(3.9,25,2,824,0)=" D BMES^XPDUTL(""Converting Provider fields 10,15 and 17 to a multiple field"")"
^XMB(3.9,25,2,825,0)="""RTN"",""EC2P72PT"",7,0)"
^XMB(3.9,25,2,826,0)=" D MES^XPDUTL(""                           in EVENT CAPTURE PATIENT file (#721)..."")"
^XMB(3.9,25,2,827,0)="""RTN"",""EC2P72PT"",8,0)"
^XMB(3.9,25,2,828,0)=" D MES^XPDUTL("" "")"
^XMB(3.9,25,2,829,0)="""RTN"",""EC2P72PT"",9,0)"
^XMB(3.9,25,2,830,0)=" I '$D(^ECH) D  Q"
^XMB(3.9,25,2,831,0)="""RTN"",""EC2P72PT"",10,0)"
^XMB(3.9,25,2,832,0)=" .D BMES^XPDUTL(""Event Capture File #721 doesn't exist on this account."")"
^XMB(3.9,25,2,833,0)="""RTN"",""EC2P72PT"",11,0)"
^XMB(3.9,25,2,834,0)=" .D MES^XPDUTL(""            No conversion necessary.  Process terminated..."")"
^XMB(3.9,25,2,835,0)="""RTN"",""EC2P72PT"",12,0)"
^XMB(3.9,25,2,836,0)=" D MES^XPDUTL("" "")"
^XMB(3.9,25,2,837,0)="""RTN"",""EC2P72PT"",13,0)"
^XMB(3.9,25,2,838,0)=" I '$D(^DD(721,42)) D  Q"
^XMB(3.9,25,2,839,0)="""RTN"",""EC2P72PT"",14,0)"
^XMB(3.9,25,2,840,0)=" .D BMES^XPDUTL(""Event Capture Field #42 doesn't exist on this account."")"
^XMB(3.9,25,2,841,0)="""RTN"",""EC2P72PT"",15,0)"
^XMB(3.9,25,2,842,0)=" .D MES^XPDUTL(""            Conversion CANNOT proceed.  Process terminated..."")"
^XMB(3.9,25,2,843,0)="""RTN"",""EC2P72PT"",16,0)"
^XMB(3.9,25,2,844,0)=" D EN1"
^XMB(3.9,25,2,845,0)="""RTN"",""EC2P72PT"",17,0)"
^XMB(3.9,25,2,846,0)=" Q"
^XMB(3.9,25,2,847,0)="""RTN"",""EC2P72PT"",18,0)"
^XMB(3.9,25,2,848,0)=" ;"
^XMB(3.9,25,2,849,0)="""RTN"",""EC2P72PT"",19,0)"
^XMB(3.9,25,2,850,0)="RESTART ;Restart Provider fields conversion backjob "
^XMB(3.9,25,2,851,0)="""RTN"",""EC2P72PT"",20,0)"
^XMB(3.9,25,2,852,0)=" D BMES^XPDUTL(""Restarting Conversion of Provider fields 10,15 and 17 to a "")"
^XMB(3.9,25,2,853,0)="""RTN"",""EC2P72PT"",21,0)"
^XMB(3.9,25,2,854,0)=" D MES^XPDUTL(""       multiple field in EVENT CAPTURE PATIENT file (#721)..."")"
^XMB(3.9,25,2,855,0)="""RTN"",""EC2P72PT"",22,0)"
^XMB(3.9,25,2,856,0)=" D MES^XPDUTL("" "")"
^XMB(3.9,25,2,857,0)="""RTN"",""EC2P72PT"",23,0)"
^XMB(3.9,25,2,858,0)=" D EN1"
^XMB(3.9,25,2,859,0)="""RTN"",""EC2P72PT"",24,0)"
^XMB(3.9,25,2,860,0)=" Q"
^XMB(3.9,25,2,861,0)="""RTN"",""EC2P72PT"",25,0)"
^XMB(3.9,25,2,862,0)="EN1 ;"
^XMB(3.9,25,2,863,0)="""RTN"",""EC2P72PT"",26,0)"
^XMB(3.9,25,2,864,0)=" L +^ECH(0):10 I '$T D  G END"
^XMB(3.9,25,2,865,0)="""RTN"",""EC2P72PT"",27,0)"
^XMB(3.9,25,2,866,0)=" .D BMES^XPDUTL(""Event Capture File in Use.  Try again later.."")"
^XMB(3.9,25,2,867,0)="""RTN"",""EC2P72PT"",28,0)"
^XMB(3.9,25,2,868,0)=" D BMES^XPDUTL(""*** Event Capture menu will be locked and unavailable... ***"")"
^XMB(3.9,25,2,869,0)="""RTN"",""EC2P72PT"",29,0)"
^XMB(3.9,25,2,870,0)=" D BMES^XPDUTL(""You will receive a MailMan message when task is completed or if stopped."")"
^XMB(3.9,25,2,871,0)="""RTN"",""EC2P72PT"",30,0)"
^XMB(3.9,25,2,872,0)=" D BMES^XPDUTL(""  "")"
^XMB(3.9,25,2,873,0)="""RTN"",""EC2P72PT"",31,0)"
^XMB(3.9,25,2,874,0)=" S ZTRTN=""START^EC2P72PT"",ZTDESC=""Provider Conversion in File #721, EC*2*72"",ZTIO="""""
^XMB(3.9,25,2,875,0)="""RTN"",""EC2P72PT"",32,0)"
^XMB(3.9,25,2,876,0)=" S ZTDTH=$H,ZTREQ=""@"",ZTSAVE(""ZTREQ"")="""""
^XMB(3.9,25,2,877,0)="""RTN"",""EC2P72PT"",33,0)"
^XMB(3.9,25,2,878,0)=" I $G(XPDSET)'="""" S ZTSAVE(""XPDSET"")="""""
^XMB(3.9,25,2,879,0)="""RTN"",""EC2P72PT"",34,0)"
^XMB(3.9,25,2,880,0)=" D ^%ZTLOAD"
^XMB(3.9,25,2,881,0)="""RTN"",""EC2P72PT"",35,0)"
^XMB(3.9,25,2,882,0)="END D KILL1"
^XMB(3.9,25,2,883,0)="""RTN"",""EC2P72PT"",36,0)"
^XMB(3.9,25,2,884,0)=" L -^ECH(0)"
^XMB(3.9,25,2,885,0)="""RTN"",""EC2P72PT"",37,0)"
^XMB(3.9,25,2,886,0)=" Q"
^XMB(3.9,25,2,887,0)="""RTN"",""EC2P72PT"",38,0)"
^XMB(3.9,25,2,888,0)=" ;"
^XMB(3.9,25,2,889,0)="""RTN"",""EC2P72PT"",39,0)"
^XMB(3.9,25,2,890,0)="START ;* background job entry point"
^XMB(3.9,25,2,891,0)="""RTN"",""EC2P72PT"",40,0)"
^XMB(3.9,25,2,892,0)=" N ECIEN,ECDAT,ECPRV,X1,X2,X,I,TXTVAR,LINE,COUNT,STOP,ECX1"
^XMB(3.9,25,2,893,0)="""RTN"",""EC2P72PT"",41,0)"
^XMB(3.9,25,2,894,0)=" ;Disable options"
^XMB(3.9,25,2,895,0)="""RTN"",""EC2P72PT"",42,0)"
^XMB(3.9,25,2,896,0)=" D OUT^XPDMENU(""ECXEC"",""OUT OF ORDER FOR EC PROVIDER CONVERSION"")"
^XMB(3.9,25,2,897,0)="""RTN"",""EC2P72PT"",43,0)"
^XMB(3.9,25,2,898,0)=" D OUT^XPDMENU(""ECMENU"",""OUT OF ORDER FOR EC PROVIDER CONVERSION"")"
^XMB(3.9,25,2,899,0)="""RTN"",""EC2P72PT"",44,0)"
^XMB(3.9,25,2,900,0)=" D OUT^XPDMENU(""EC GUI CONTEXT"",""OUT OF ORDER FOR EC PROVIDER CONVERSION"")"
^XMB(3.9,25,2,901,0)="""RTN"",""EC2P72PT"",45,0)"
^XMB(3.9,25,2,902,0)=" D OUT^XPDMENU(""ECMGR"",""OUT OF ORDER FOR EC PROVIDER CONVERSION"")"
^XMB(3.9,25,2,903,0)="""RTN"",""EC2P72PT"",46,0)"
^XMB(3.9,25,2,904,0)=" K ^TMP($J,""EC2P72"")"
^XMB(3.9,25,2,905,0)="""RTN"",""EC2P72PT"",47,0)"
^XMB(3.9,25,2,906,0)=" S (COUNT,STOP)=0,ECIEN=+$G(^XTMP(""ECPROVIDER"",1))"
^XMB(3.9,25,2,907,0)="""RTN"",""EC2P72PT"",48,0)"
^XMB(3.9,25,2,908,0)=" S (ECX1,X1)=$$NOW^XLFDT(),X2=60 D C^%DTC"
^XMB(3.9,25,2,909,0)="""RTN"",""EC2P72PT"",49,0)"
^XMB(3.9,25,2,910,0)=" I '$D(^XTMP(""ECPROVIDER"",0)) D"
^XMB(3.9,25,2,911,0)="""RTN"",""EC2P72PT"",50,0)"
^XMB(3.9,25,2,912,0)=" .S ^XTMP(""ECPROVIDER"",0)=X_""^""_ECX1_""^EC Provider fields conversion to multiple"""
^XMB(3.9,25,2,913,0)="""RTN"",""EC2P72PT"",51,0)"
^XMB(3.9,25,2,914,0)=" S ^XTMP(""ECPROVIDER"",3)=$$FMTE^XLFDT($$NOW^XLFDT(),1)  ;start time"
^XMB(3.9,25,2,915,0)="""RTN"",""EC2P72PT"",52,0)"
^XMB(3.9,25,2,916,0)=" F I=1:1 S TXTVAR=$P($T(MSGTXT+I),"";;"",2) Q:TXTVAR=""QUIT""  D LINE(TXTVAR)"
^XMB(3.9,25,2,917,0)="""RTN"",""EC2P72PT"",53,0)"
^XMB(3.9,25,2,918,0)=" L +^ECH(0):60   ;review if this is necessary"
^XMB(3.9,25,2,919,0)="""RTN"",""EC2P72PT"",54,0)"
^XMB(3.9,25,2,920,0)=" F  S ECIEN=$O(^ECH(ECIEN)) Q:'ECIEN  D  I STOP Q"
^XMB(3.9,25,2,921,0)="""RTN"",""EC2P72PT"",55,0)"
^XMB(3.9,25,2,922,0)=" .S ECDAT=$G(^ECH(ECIEN,0)) I ECDAT="""" D UPXTMP Q"
^XMB(3.9,25,2,923,0)="""RTN"",""EC2P72PT"",56,0)"
^XMB(3.9,25,2,924,0)=" .K ECPRV"
^XMB(3.9,25,2,925,0)="""RTN"",""EC2P72PT"",57,0)"
^XMB(3.9,25,2,926,0)=" .I $P(ECDAT,""^"",11)'="""" S ECPRV(1)=$P(ECDAT,""^"",11)_""^P"""
^XMB(3.9,25,2,927,0)="""RTN"",""EC2P72PT"",58,0)"
^XMB(3.9,25,2,928,0)=" .I $P(ECDAT,""^"",15)'="""" S ECPRV(2)=$P(ECDAT,""^"",15)_""^""_$S($O(ECPRV("""")):""S"",1:""P"")"
^XMB(3.9,25,2,929,0)="""RTN"",""EC2P72PT"",59,0)"
^XMB(3.9,25,2,930,0)=" .I $P(ECDAT,""^"",17)'="""" S ECPRV(3)=$P(ECDAT,""^"",17)_""^""_$S($O(ECPRV("""")):""S"",1:""P"")"
^XMB(3.9,25,2,931,0)="""RTN"",""EC2P72PT"",60,0)"
^XMB(3.9,25,2,932,0)=" .D UPD721"
^XMB(3.9,25,2,933,0)="""RTN"",""EC2P72PT"",61,0)"
^XMB(3.9,25,2,934,0)=" .D UPXTMP"
^XMB(3.9,25,2,935,0)="""RTN"",""EC2P72PT"",62,0)"
^XMB(3.9,25,2,936,0)=" .;Check Background task (taskman) - to see if task stopped"
^XMB(3.9,25,2,937,0)="""RTN"",""EC2P72PT"",63,0)"
^XMB(3.9,25,2,938,0)=" .S STOP=$$S^%ZTLOAD()"
^XMB(3.9,25,2,939,0)="""RTN"",""EC2P72PT"",64,0)"
^XMB(3.9,25,2,940,0)=" S $P(^XTMP(""ECPROVIDER"",3),""^"",2)=$$FMTE^XLFDT($$NOW^XLFDT(),1)"
^XMB(3.9,25,2,941,0)="""RTN"",""EC2P72PT"",65,0)"
^XMB(3.9,25,2,942,0)=" I STOP D  G END1"
^XMB(3.9,25,2,943,0)="""RTN"",""EC2P72PT"",66,0)"
^XMB(3.9,25,2,944,0)=" .D LINE(""  The provider conversion process was aborted."")"
^XMB(3.9,25,2,945,0)="""RTN"",""EC2P72PT"",67,0)"
^XMB(3.9,25,2,946,0)=" .D LINE(""     Conversion began:          ""_$P($G(^XTMP(""ECPROVIDER"",3)),""^""))"
^XMB(3.9,25,2,947,0)="""RTN"",""EC2P72PT"",68,0)"
^XMB(3.9,25,2,948,0)=" .D LINE(""     Conversion terminated:     ""_$P($G(^XTMP(""ECPROVIDER"",3)),""^"",2))"
^XMB(3.9,25,2,949,0)="""RTN"",""EC2P72PT"",69,0)"
^XMB(3.9,25,2,950,0)=" .D LINE(""     Last record (IEN) Updated: ""_$G(^XTMP(""ECPROVIDER"",1)))"
^XMB(3.9,25,2,951,0)="""RTN"",""EC2P72PT"",70,0)"
^XMB(3.9,25,2,952,0)=" .D LINE(""     Last IEN in File #721:     ""_$O(^ECH(""A""),-1))"
^XMB(3.9,25,2,953,0)="""RTN"",""EC2P72PT"",71,0)"
^XMB(3.9,25,2,954,0)=" .D LINE(""     Total # Records converted: ""_$G(^XTMP(""ECPROVIDER"",2)))"
^XMB(3.9,25,2,955,0)="""RTN"",""EC2P72PT"",72,0)"
^XMB(3.9,25,2,956,0)=" .D LINE("" "")"
^XMB(3.9,25,2,957,0)="""RTN"",""EC2P72PT"",73,0)"
^XMB(3.9,25,2,958,0)=" .D LINE(""  To restart the provider conversion process enter the following at the programmer's prompt."")"
^XMB(3.9,25,2,959,0)="""RTN"",""EC2P72PT"",74,0)"
^XMB(3.9,25,2,960,0)=" .D LINE(""      D RESTART^EC2P72PT"")"
^XMB(3.9,25,2,961,0)="""RTN"",""EC2P72PT"",75,0)"
^XMB(3.9,25,2,962,0)=" .D LINE("" "")"
^XMB(3.9,25,2,963,0)="""RTN"",""EC2P72PT"",76,0)"
^XMB(3.9,25,2,964,0)=" .D LINE(""   Make sure the following options are placed out of order"")"
^XMB(3.9,25,2,965,0)="""RTN"",""EC2P72PT"",77,0)"
^XMB(3.9,25,2,966,0)=" .D LINE(""      ECMENU           Event Capture Menu"")"
^XMB(3.9,25,2,967,0)="""RTN"",""EC2P72PT"",78,0)"
^XMB(3.9,25,2,968,0)=" .D LINE(""      EC GUI CONTEXT   EC GUI Context version 2.0.11.1"")"
^XMB(3.9,25,2,969,0)="""RTN"",""EC2P72PT"",79,0)"
^XMB(3.9,25,2,970,0)=" .D LINE(""      ECXEC            Event Capture Extract"")"
^XMB(3.9,25,2,971,0)="""RTN"",""EC2P72PT"",80,0)"
^XMB(3.9,25,2,972,0)=" .D LINE(""      ECMGR            Event Capture Management Menu"")"
^XMB(3.9,25,2,973,0)="""RTN"",""EC2P72PT"",81,0)"
^XMB(3.9,25,2,974,0)=" D LINE(""  The provider conversion process was successfully completed."")"
^XMB(3.9,25,2,975,0)="""RTN"",""EC2P72PT"",82,0)"
^XMB(3.9,25,2,976,0)=" D LINE(""     Conversion began:            ""_$P($G(^XTMP(""ECPROVIDER"",3)),""^""))"
^XMB(3.9,25,2,977,0)="""RTN"",""EC2P72PT"",83,0)"
^XMB(3.9,25,2,978,0)=" D LINE(""     Conversion completed:        ""_$P($G(^XTMP(""ECPROVIDER"",3)),""^"",2))"
^XMB(3.9,25,2,979,0)="""RTN"",""EC2P72PT"",84,0)"
^XMB(3.9,25,2,980,0)=" D LINE(""     Last record (IEN) converted: ""_$G(^XTMP(""ECPROVIDER"",1)))"
^XMB(3.9,25,2,981,0)="""RTN"",""EC2P72PT"",85,0)"
^XMB(3.9,25,2,982,0)=" D LINE(""     Last IEN in File #721:       ""_$O(^ECH(""A""),-1))"
^XMB(3.9,25,2,983,0)="""RTN"",""EC2P72PT"",86,0)"
^XMB(3.9,25,2,984,0)=" D LINE(""     Total # Records converted:   ""_$G(^XTMP(""ECPROVIDER"",2)))"
^XMB(3.9,25,2,985,0)="""RTN"",""EC2P72PT"",87,0)"
^XMB(3.9,25,2,986,0)=" D LINE("" "")"
^XMB(3.9,25,2,987,0)="""RTN"",""EC2P72PT"",88,0)"
^XMB(3.9,25,2,988,0)=" D LINE(""  Make sure the following options are placed back in order"")"
^XMB(3.9,25,2,989,0)="""RTN"",""EC2P72PT"",89,0)"
^XMB(3.9,25,2,990,0)=" D LINE(""     ECMENU           Event Capture Menu"")"
^XMB(3.9,25,2,991,0)="""RTN"",""EC2P72PT"",90,0)"
^XMB(3.9,25,2,992,0)=" D LINE(""     EC GUI CONTEXT   EC GUI Context version 2.1.0.0"")"
^XMB(3.9,25,2,993,0)="""RTN"",""EC2P72PT"",91,0)"
^XMB(3.9,25,2,994,0)=" D LINE(""     ECXEC            Event Capture Extract"")"
^XMB(3.9,25,2,995,0)="""RTN"",""EC2P72PT"",92,0)"
^XMB(3.9,25,2,996,0)=" ;Place option back in order"
^XMB(3.9,25,2,997,0)="""RTN"",""EC2P72PT"",93,0)"
^XMB(3.9,25,2,998,0)=" D OUT^XPDMENU(""ECXEC"","""")"
^XMB(3.9,25,2,999,0)="""RTN"",""EC2P72PT"",94,0)"
^XMB(3.9,25,2,1000,0)=" D OUT^XPDMENU(""ECMENU"","""")"
^XMB(3.9,25,2,1001,0)="""RTN"",""EC2P72PT"",95,0)"
^XMB(3.9,25,2,1002,0)=" D OUT^XPDMENU(""EC GUI CONTEXT"","""")"
^XMB(3.9,25,2,1003,0)="""RTN"",""EC2P72PT"",96,0)"
^XMB(3.9,25,2,1004,0)=" D OUT^XPDMENU(""ECMGR"","""")"
^XMB(3.9,25,2,1005,0)="""RTN"",""EC2P72PT"",97,0)"
^XMB(3.9,25,2,1006,0)="END1 D MAIL"
^XMB(3.9,25,2,1007,0)="""RTN"",""EC2P72PT"",98,0)"
^XMB(3.9,25,2,1008,0)=" L -^ECH(0)"
^XMB(3.9,25,2,1009,0)="""RTN"",""EC2P72PT"",99,0)"
^XMB(3.9,25,2,1010,0)=" K ^TMP($J,""EC2P72""),I,Y"
^XMB(3.9,25,2,1011,0)="""RTN"",""EC2P72PT"",100,0)"
^XMB(3.9,25,2,1012,0)=" Q"
^XMB(3.9,25,2,1013,0)="""RTN"",""EC2P72PT"",101,0)"
^XMB(3.9,25,2,1014,0)="UPXTMP ;Update ^XTMP with last ECIEN from ^ECH"
^XMB(3.9,25,2,1015,0)="""RTN"",""EC2P72PT"",102,0)"
^XMB(3.9,25,2,1016,0)=" S ^XTMP(""ECPROVIDER"",1)=ECIEN"
^XMB(3.9,25,2,1017,0)="""RTN"",""EC2P72PT"",103,0)"
^XMB(3.9,25,2,1018,0)=" S ^XTMP(""ECPROVIDER"",2)=+$G(^XTMP(""ECPROVIDER"",2))+1"
^XMB(3.9,25,2,1019,0)="""RTN"",""EC2P72PT"",104,0)"
^XMB(3.9,25,2,1020,0)=" Q"
^XMB(3.9,25,2,1021,0)="""RTN"",""EC2P72PT"",105,0)"
^XMB(3.9,25,2,1022,0)="UPD721 ;Update ^ECH with providers at multiple field #42."
^XMB(3.9,25,2,1023,0)="""RTN"",""EC2P72PT"",106,0)"
^XMB(3.9,25,2,1024,0)=" N SIEN,ECDATA,ECPRVDA,ECERR,DA,DIK"
^XMB(3.9,25,2,1025,0)="""RTN"",""EC2P72PT"",107,0)"
^XMB(3.9,25,2,1026,0)=" ;delete old entries"
^XMB(3.9,25,2,1027,0)="""RTN"",""EC2P72PT"",108,0)"
^XMB(3.9,25,2,1028,0)=" I '$D(ECPRV) Q"
^XMB(3.9,25,2,1029,0)="""RTN"",""EC2P72PT"",109,0)"
^XMB(3.9,25,2,1030,0)=" I $D(^ECH(ECIEN,""PRV"")) D"
^XMB(3.9,25,2,1031,0)="""RTN"",""EC2P72PT"",110,0)"
^XMB(3.9,25,2,1032,0)=" . S DA(1)=ECIEN,DIK=""^ECH(""_DA(1)_"",""""PRV"""","",DA=0"
^XMB(3.9,25,2,1033,0)="""RTN"",""EC2P72PT"",111,0)"
^XMB(3.9,25,2,1034,0)=" . F  S DA=$O(^ECH(DA(1),""PRV"",DA)) Q:'DA  D ^DIK"
^XMB(3.9,25,2,1035,0)="""RTN"",""EC2P72PT"",112,0)"
^XMB(3.9,25,2,1036,0)=" S SIEN=0"
^XMB(3.9,25,2,1037,0)="""RTN"",""EC2P72PT"",113,0)"
^XMB(3.9,25,2,1038,0)=" F  S SIEN=$O(ECPRV(SIEN)) Q:'SIEN  D"
^XMB(3.9,25,2,1039,0)="""RTN"",""EC2P72PT"",114,0)"
^XMB(3.9,25,2,1040,0)=" .S ECDATA=ECPRV(SIEN)"
^XMB(3.9,25,2,1041,0)="""RTN"",""EC2P72PT"",115,0)"
^XMB(3.9,25,2,1042,0)=" .D FILALT"
^XMB(3.9,25,2,1043,0)="""RTN"",""EC2P72PT"",116,0)"
^XMB(3.9,25,2,1044,0)=" Q"
^XMB(3.9,25,2,1045,0)="""RTN"",""EC2P72PT"",117,0)"
^XMB(3.9,25,2,1046,0)="FILALT ;If error occurs filing trying record using another method"
^XMB(3.9,25,2,1047,0)="""RTN"",""EC2P72PT"",118,0)"
^XMB(3.9,25,2,1048,0)=" N DIC,DD,DO,X,DIE,DR,DA"
^XMB(3.9,25,2,1049,0)="""RTN"",""EC2P72PT"",119,0)"
^XMB(3.9,25,2,1050,0)=" S DIC(0)=""L"",DA(1)=ECIEN,DIC(""P"")=$P(^DD(721,42,0),U,2)"
^XMB(3.9,25,2,1051,0)="""RTN"",""EC2P72PT"",120,0)"
^XMB(3.9,25,2,1052,0)=" S X=+ECDATA,DIC=""^ECH(""_DA(1)_"",""_""""""PRV""""""_"","" D FILE^DICN"
^XMB(3.9,25,2,1053,0)="""RTN"",""EC2P72PT"",121,0)"
^XMB(3.9,25,2,1054,0)=" S DIE=DIC,DR="".02////""_$P(ECDATA,U,2) D ^DIE"
^XMB(3.9,25,2,1055,0)="""RTN"",""EC2P72PT"",122,0)"
^XMB(3.9,25,2,1056,0)=" Q"
^XMB(3.9,25,2,1057,0)="""RTN"",""EC2P72PT"",123,0)"
^XMB(3.9,25,2,1058,0)=" ;"
^XMB(3.9,25,2,1059,0)="""RTN"",""EC2P72PT"",124,0)"
^XMB(3.9,25,2,1060,0)="LINE(TEXT) ; Add line to message global"
^XMB(3.9,25,2,1061,0)="""RTN"",""EC2P72PT"",125,0)"
^XMB(3.9,25,2,1062,0)=" S COUNT=COUNT+1,^TMP($J,""EC2P72"",COUNT)=TEXT"
^XMB(3.9,25,2,1063,0)="""RTN"",""EC2P72PT"",126,0)"
^XMB(3.9,25,2,1064,0)=" Q"
^XMB(3.9,25,2,1065,0)="""RTN"",""EC2P72PT"",127,0)"
^XMB(3.9,25,2,1066,0)=" ;"
^XMB(3.9,25,2,1067,0)="""RTN"",""EC2P72PT"",128,0)"
^XMB(3.9,25,2,1068,0)="MSGTXT ; Message intro"
^XMB(3.9,25,2,1069,0)="""RTN"",""EC2P72PT"",129,0)"
^XMB(3.9,25,2,1070,0)=" ;; Please forward this message to your local DSS Site Manager or"
^XMB(3.9,25,2,1071,0)="""RTN"",""EC2P72PT"",130,0)"
^XMB(3.9,25,2,1072,0)=" ;; Event Capture ADPAC."
^XMB(3.9,25,2,1073,0)="""RTN"",""EC2P72PT"",131,0)"
^XMB(3.9,25,2,1074,0)=" ;;"
^XMB(3.9,25,2,1075,0)="""RTN"",""EC2P72PT"",132,0)"
^XMB(3.9,25,2,1076,0)=" ;; A conversion was done on the providers stored in fields #10, 15 "
^XMB(3.9,25,2,1077,0)="""RTN"",""EC2P72PT"",133,0)"
^XMB(3.9,25,2,1078,0)=" ;; and 17 in Event Capture file #721. The data was moved to a new "
^XMB(3.9,25,2,1079,0)="""RTN"",""EC2P72PT"",134,0)"
^XMB(3.9,25,2,1080,0)=" ;; provider multiple field #42 in file #721. The data in fields "
^XMB(3.9,25,2,1081,0)="""RTN"",""EC2P72PT"",135,0)"
^XMB(3.9,25,2,1082,0)=" ;; #10, 15 and 17 will remain but no new data will be populated in "
^XMB(3.9,25,2,1083,0)="""RTN"",""EC2P72PT"",136,0)"
^XMB(3.9,25,2,1084,0)=" ;; these fields with the installation of EC*2.0*72.  This message "
^XMB(3.9,25,2,1085,0)="""RTN"",""EC2P72PT"",137,0)"
^XMB(3.9,25,2,1086,0)=" ;; provides the results of the conversion."
^XMB(3.9,25,2,1087,0)="""RTN"",""EC2P72PT"",138,0)"
^XMB(3.9,25,2,1088,0)=" ;;"
^XMB(3.9,25,2,1089,0)="""RTN"",""EC2P72PT"",139,0)"
^XMB(3.9,25,2,1090,0)=" ;;QUIT"
^XMB(3.9,25,2,1091,0)="""RTN"",""EC2P72PT"",140,0)"
^XMB(3.9,25,2,1092,0)=" ;"
^XMB(3.9,25,2,1093,0)="""RTN"",""EC2P72PT"",141,0)"
^XMB(3.9,25,2,1094,0)="MAIL ; Send message"
^XMB(3.9,25,2,1095,0)="""RTN"",""EC2P72PT"",142,0)"
^XMB(3.9,25,2,1096,0)=" N XMDUZ,XMY,XMTEXT,XMSUB"
^XMB(3.9,25,2,1097,0)="""RTN"",""EC2P72PT"",143,0)"
^XMB(3.9,25,2,1098,0)=" S XMY(DUZ)="""",XMDUZ=.5"
^XMB(3.9,25,2,1099,0)="""RTN"",""EC2P72PT"",144,0)"
^XMB(3.9,25,2,1100,0)=" S XMSUB=""Event Capture Provider Field Conversion to New Multiple Field"""
^XMB(3.9,25,2,1101,0)="""RTN"",""EC2P72PT"",145,0)"
^XMB(3.9,25,2,1102,0)=" S XMTEXT=""^TMP($J,""""EC2P72"""","""
^XMB(3.9,25,2,1103,0)="""RTN"",""EC2P72PT"",146,0)"
^XMB(3.9,25,2,1104,0)=" D ^XMD"
^XMB(3.9,25,2,1105,0)="""RTN"",""EC2P72PT"",147,0)"
^XMB(3.9,25,2,1106,0)=" Q"
^XMB(3.9,25,2,1107,0)="""RTN"",""EC2P72PT"",148,0)"
^XMB(3.9,25,2,1108,0)="KILL1 ;"
^XMB(3.9,25,2,1109,0)="""RTN"",""EC2P72PT"",149,0)"
^XMB(3.9,25,2,1110,0)=" K ZTDESC,ZTDTH,ZTIO,ZTREQ,ZTRTN,ZTSAVE(""ZTREQ""),ECKID"
^XMB(3.9,25,2,1111,0)="""RTN"",""EC2P72PT"",150,0)"
^XMB(3.9,25,2,1112,0)=" Q"
^XMB(3.9,25,2,1113,0)="""RTN"",""ECBEN1A"")"
^XMB(3.9,25,2,1114,0)="0^16^B1611604^B1555590"
^XMB(3.9,25,2,1115,0)="""RTN"",""ECBEN1A"",1,0)"
^XMB(3.9,25,2,1116,0)="ECBEN1A ;BIR/JLP,RHK-New Batch Entry ;12 Feb 96"
^XMB(3.9,25,2,1117,0)="""RTN"",""ECBEN1A"",2,0)"
^XMB(3.9,25,2,1118,0)=" ;;2.0; EVENT CAPTURE ;**4,5,72**;8 May 96"
^XMB(3.9,25,2,1119,0)="""RTN"",""ECBEN1A"",3,0)"
^XMB(3.9,25,2,1120,0)="O ;select ord sect"
^XMB(3.9,25,2,1121,0)="""RTN"",""ECBEN1A"",4,0)"
^XMB(3.9,25,2,1122,0)=" W !!,""Location: ""_ECLN,!,""DSS Unit:  ""_ECDN K DIC,DUOUT"
^XMB(3.9,25,2,1123,0)="""RTN"",""ECBEN1A"",5,0)"
^XMB(3.9,25,2,1124,0)=" S DIC=723,DIC(0)=""QEAMZ"",DIC(""A"")=""Ordering Section: "" D ^DIC K DIC I Y<0 S ECOUT=1 Q"
^XMB(3.9,25,2,1125,0)="""RTN"",""ECBEN1A"",6,0)"
^XMB(3.9,25,2,1126,0)=" S ECO=+Y,ECON=$P(Y,""^"",2)"
^XMB(3.9,25,2,1127,0)="""RTN"",""ECBEN1A"",7,0)"
^XMB(3.9,25,2,1128,0)="DATE ;select date"
^XMB(3.9,25,2,1129,0)="""RTN"",""ECBEN1A"",8,0)"
^XMB(3.9,25,2,1130,0)=" K %DT S %DT=""AEXR"""
^XMB(3.9,25,2,1131,0)="""RTN"",""ECBEN1A"",9,0)"
^XMB(3.9,25,2,1132,0)=" I ECDDT="""",$G(ECDR)]"""" S %DT(""B"")=ECDR G DATE1"
^XMB(3.9,25,2,1133,0)="""RTN"",""ECBEN1A"",10,0)"
^XMB(3.9,25,2,1134,0)=" I ECDDT'="""" S %DT(""B"")=ECDDT"
^XMB(3.9,25,2,1135,0)="""RTN"",""ECBEN1A"",11,0)"
^XMB(3.9,25,2,1136,0)=" ;"
^XMB(3.9,25,2,1137,0)="""RTN"",""ECBEN1A"",12,0)"
^XMB(3.9,25,2,1138,0)=" ; ALB/ESD - Prevent future dates from being entered"
^XMB(3.9,25,2,1139,0)="""RTN"",""ECBEN1A"",13,0)"
^XMB(3.9,25,2,1140,0)="DATE1 S %DT(""A"")=""Procedure Date and Time: "",%DT(0)=""-NOW"" D ^%DT I Y<0 S ECOUT=1 Q"
^XMB(3.9,25,2,1141,0)="""RTN"",""ECBEN1A"",14,0)"
^XMB(3.9,25,2,1142,0)=" S ECDT=+Y,(ECDATE,ECDR)=$$FMTE^XLFDT(ECDT) K %DT"
^XMB(3.9,25,2,1143,0)="""RTN"",""ECBEN1A"",15,0)"
^XMB(3.9,25,2,1144,0)=" ;"
^XMB(3.9,25,2,1145,0)="""RTN"",""ECBEN1A"",16,0)"
^XMB(3.9,25,2,1146,0)=" ;select provider(s) with active person class"
^XMB(3.9,25,2,1147,0)="""RTN"",""ECBEN1A"",17,0)"
^XMB(3.9,25,2,1148,0)=" D ASKPRV^ECPRVMUT("""",ECDT,.ECPRVARY,.ECOUT)"
^XMB(3.9,25,2,1149,0)="""RTN"",""ECBEN1A"",18,0)"
^XMB(3.9,25,2,1150,0)=" I $G(ECOUT) S ECOUT=1 K ECPRVARY Q"
^XMB(3.9,25,2,1151,0)="""RTN"",""ECBEN1A"",19,0)"
^XMB(3.9,25,2,1152,0)=" ;"
^XMB(3.9,25,2,1153,0)="""RTN"",""ECBEN1A"",20,0)"
^XMB(3.9,25,2,1154,0)="PAT ;select pat"
^XMB(3.9,25,2,1155,0)="""RTN"",""ECBEN1A"",21,0)"
^XMB(3.9,25,2,1156,0)=" D ^ECBEN1B"
^XMB(3.9,25,2,1157,0)="""RTN"",""ECBEN1A"",22,0)"
^XMB(3.9,25,2,1158,0)=" K ECPRVARY"
^XMB(3.9,25,2,1159,0)="""RTN"",""ECBEN1A"",23,0)"
^XMB(3.9,25,2,1160,0)="END Q"
^XMB(3.9,25,2,1161,0)="""RTN"",""ECBEN1A"",24,0)"
^XMB(3.9,25,2,1162,0)=" ;"
^XMB(3.9,25,2,1163,0)="""RTN"",""ECBEN1A"",25,0)"
^XMB(3.9,25,2,1164,0)="MSG ;quit msg"
^XMB(3.9,25,2,1165,0)="""RTN"",""ECBEN1A"",26,0)"
^XMB(3.9,25,2,1166,0)=" W !!,""No action taken."",!!,""Press <RET> to continue "" R X:DTIME S ECOUT=1"
^XMB(3.9,25,2,1167,0)="""RTN"",""ECBEN1A"",27,0)"
^XMB(3.9,25,2,1168,0)=" Q"
^XMB(3.9,25,2,1169,0)="""RTN"",""ECBEN1B"")"
^XMB(3.9,25,2,1170,0)="0^17^B23165731^B24119717"
^XMB(3.9,25,2,1171,0)="""RTN"",""ECBEN1B"",1,0)"
^XMB(3.9,25,2,1172,0)="ECBEN1B ;BIR/MAM,JPW-Batch Enter Procedures (cont'd) ;1 May 96"
^XMB(3.9,25,2,1173,0)="""RTN"",""ECBEN1B"",2,0)"
^XMB(3.9,25,2,1174,0)=" ;;2.0; EVENT CAPTURE ;**4,5,10,13,17,23,41,42,50,54,72**;8 May 96"
^XMB(3.9,25,2,1175,0)="""RTN"",""ECBEN1B"",3,0)"
^XMB(3.9,25,2,1176,0)="EN ;entry pt"
^XMB(3.9,25,2,1177,0)="""RTN"",""ECBEN1B"",4,0)"
^XMB(3.9,25,2,1178,0)=" D HDR"
^XMB(3.9,25,2,1179,0)="""RTN"",""ECBEN1B"",5,0)"
^XMB(3.9,25,2,1180,0)=" S CNT=0"
^XMB(3.9,25,2,1181,0)="""RTN"",""ECBEN1B"",6,0)"
^XMB(3.9,25,2,1182,0)="PATS ; get patients"
^XMB(3.9,25,2,1183,0)="""RTN"",""ECBEN1B"",7,0)"
^XMB(3.9,25,2,1184,0)=" W ! Q:ECOUT=1  K ECADD"
^XMB(3.9,25,2,1185,0)="""RTN"",""ECBEN1B"",8,0)"
^XMB(3.9,25,2,1186,0)=" K DIC,DUOUT S DIC=2,DIC(0)=""QEAMZ"",DIC(""A"")=$S($D(ECPT):""Select Next Patient: "",1:""Select Patient: "")"
^XMB(3.9,25,2,1187,0)="""RTN"",""ECBEN1B"",9,0)"
^XMB(3.9,25,2,1188,0)=" D ^DIC K DIC S OK=0"
^XMB(3.9,25,2,1189,0)="""RTN"",""ECBEN1B"",10,0)"
^XMB(3.9,25,2,1190,0)=" I $D(DUOUT)!($D(DTOUT)) S ECOUT=1 Q"
^XMB(3.9,25,2,1191,0)="""RTN"",""ECBEN1B"",11,0)"
^XMB(3.9,25,2,1192,0)=" I Y<0,CNT=0 S ECOUT=2 Q"
^XMB(3.9,25,2,1193,0)="""RTN"",""ECBEN1B"",12,0)"
^XMB(3.9,25,2,1194,0)=" I Y<0 D  G PATS"
^XMB(3.9,25,2,1195,0)="""RTN"",""ECBEN1B"",13,0)"
^XMB(3.9,25,2,1196,0)=" .D LIST Q:ECOUT=1  Q:'$O(ECPT(0))  Q:$G(ECADD)=""A"""
^XMB(3.9,25,2,1197,0)="""RTN"",""ECBEN1B"",14,0)"
^XMB(3.9,25,2,1198,0)=" .S ECTWO=0 K ECHOICE D ^ECBEN2A"
^XMB(3.9,25,2,1199,0)="""RTN"",""ECBEN1B"",15,0)"
^XMB(3.9,25,2,1200,0)=" .I ECOUT=2 D KILL,HDR"
^XMB(3.9,25,2,1201,0)="""RTN"",""ECBEN1B"",16,0)"
^XMB(3.9,25,2,1202,0)=" I $O(ECPT(0)) S JJ="""" F  S JJ=$O(ECPT(JJ)) Q:'JJ!(OK=1)  I +$G(ECPT(JJ))=+Y S OK=1 W !!,""Patient already selected.  Please select another patient."",!"
^XMB(3.9,25,2,1203,0)="""RTN"",""ECBEN1B"",17,0)"
^XMB(3.9,25,2,1204,0)=" I OK=1 G PATS"
^XMB(3.9,25,2,1205,0)="""RTN"",""ECBEN1B"",18,0)"
^XMB(3.9,25,2,1206,0)=" N YY,ECUP D  I $G(ECUP)=""^"" G PATS"
^XMB(3.9,25,2,1207,0)="""RTN"",""ECBEN1B"",19,0)"
^XMB(3.9,25,2,1208,0)=" . S YY=Y,DFN=+Y D 2^VADPT S Y=YY I +VADM(6) D"
^XMB(3.9,25,2,1209,0)="""RTN"",""ECBEN1B"",20,0)"
^XMB(3.9,25,2,1210,0)=" . . ; NOIS MWV-0603-21781:line below changed by VMP."
^XMB(3.9,25,2,1211,0)="""RTN"",""ECBEN1B"",21,0)"
^XMB(3.9,25,2,1212,0)=" . . W !!,""WARNING ""_""[PATIENT DIED ON ""_$P(VADM(6),U,2)_""] "",!!"
^XMB(3.9,25,2,1213,0)="""RTN"",""ECBEN1B"",22,0)"
^XMB(3.9,25,2,1214,0)=" . . R ""Press Return to Continue or ^ to Deselect: "",ECUP:DTIME"
^XMB(3.9,25,2,1215,0)="""RTN"",""ECBEN1B"",23,0)"
^XMB(3.9,25,2,1216,0)=" S CNT=CNT+1,CNT1=CNT,ECPT(CNT)=+Y_""^""_$P(Y,""^"",2) D DIAG"
^XMB(3.9,25,2,1217,0)="""RTN"",""ECBEN1B"",24,0)"
^XMB(3.9,25,2,1218,0)=" G PATS"
^XMB(3.9,25,2,1219,0)="""RTN"",""ECBEN1B"",25,0)"
^XMB(3.9,25,2,1220,0)=" ;"
^XMB(3.9,25,2,1221,0)="""RTN"",""ECBEN1B"",26,0)"
^XMB(3.9,25,2,1222,0)="LIST ; list patients"
^XMB(3.9,25,2,1223,0)="""RTN"",""ECBEN1B"",27,0)"
^XMB(3.9,25,2,1224,0)=" K ECADD"
^XMB(3.9,25,2,1225,0)="""RTN"",""ECBEN1B"",28,0)"
^XMB(3.9,25,2,1226,0)=" W @IOF,!,""Patients Selected for Batch Entry: "",! F I=0:0 S I=$O(ECPT(I)) Q:'I  W:I#2 ! W:I#2=0 ?40 W I_"".  ""_$P(ECPT(I),""^"",2)"
^XMB(3.9,25,2,1227,0)="""RTN"",""ECBEN1B"",29,0)"
^XMB(3.9,25,2,1228,0)=" W !!,""Is this list correct ?  YES//  "" R ECYN:DTIME I '$T!(ECYN=""^"") S ECOUT=1 Q"
^XMB(3.9,25,2,1229,0)="""RTN"",""ECBEN1B"",30,0)"
^XMB(3.9,25,2,1230,0)=" S ECYN=$E(ECYN) S:ECYN="""" ECYN=""Y"" I ""YyNn""'[ECYN W !!,""Enter <RET> if this list is complete, or NO to add or delete"",!,""patients on the list."",!!,""Press <RET> to continue  "" R X:DTIME G LIST"
^XMB(3.9,25,2,1231,0)="""RTN"",""ECBEN1B"",31,0)"
^XMB(3.9,25,2,1232,0)=" I ""Yy""[ECYN Q:$O(ECPT(0))  D NOBODY Q:ECOUT"
^XMB(3.9,25,2,1233,0)="""RTN"",""ECBEN1B"",32,0)"
^XMB(3.9,25,2,1234,0)="ADD W !!,""Add or Delete Patients ?  ADD//  "" R ECADD:DTIME I '$T!(ECADD=""^"") S ECOUT=1 Q"
^XMB(3.9,25,2,1235,0)="""RTN"",""ECBEN1B"",33,0)"
^XMB(3.9,25,2,1236,0)=" S ECADD=$E(ECADD) S:ECADD="""" ECADD=""A"" I ""AaDd""'[ECADD W !!,""Enter <RET> to make additions to the list, or """"D"""" to delete a "",!,""patient from the list."" G ADD"
^XMB(3.9,25,2,1237,0)="""RTN"",""ECBEN1B"",34,0)"
^XMB(3.9,25,2,1238,0)=" I ""Aa""[ECADD Q"
^XMB(3.9,25,2,1239,0)="""RTN"",""ECBEN1B"",35,0)"
^XMB(3.9,25,2,1240,0)="DEL ; delete patients from list"
^XMB(3.9,25,2,1241,0)="""RTN"",""ECBEN1B"",36,0)"
^XMB(3.9,25,2,1242,0)=" I '$D(ECPT(1)) D NOBODY Q:ECOUT  G LIST"
^XMB(3.9,25,2,1243,0)="""RTN"",""ECBEN1B"",37,0)"
^XMB(3.9,25,2,1244,0)=" W !!,""Select Number:  "" R X:DTIME I '$T!(X=""^"") S ECOUT=1 Q"
^XMB(3.9,25,2,1245,0)="""RTN"",""ECBEN1B"",38,0)"
^XMB(3.9,25,2,1246,0)=" I X="""" Q"
^XMB(3.9,25,2,1247,0)="""RTN"",""ECBEN1B"",39,0)"
^XMB(3.9,25,2,1248,0)=" I '$D(ECPT(X)) W !!,""Select the number corresponding to the patient that you would like"",!,""to remove from the list."",!!,""Press <RET> to continue  "" R X:DTIME S ECMORE=1 D LIST Q:ECOUT  G DEL"
^XMB(3.9,25,2,1249,0)="""RTN"",""ECBEN1B"",40,0)"
^XMB(3.9,25,2,1250,0)=" F I=X+1:1:CNT S ECPT(I-1)=ECPT(I)"
^XMB(3.9,25,2,1251,0)="""RTN"",""ECBEN1B"",41,0)"
^XMB(3.9,25,2,1252,0)=" K ECPT(CNT),I S CNT=CNT-1"
^XMB(3.9,25,2,1253,0)="""RTN"",""ECBEN1B"",42,0)"
^XMB(3.9,25,2,1254,0)=" W !!,""Patient deleted."",!!,""Press <RET> to continue "" R X:DTIME"
^XMB(3.9,25,2,1255,0)="""RTN"",""ECBEN1B"",43,0)"
^XMB(3.9,25,2,1256,0)=" G LIST"
^XMB(3.9,25,2,1257,0)="""RTN"",""ECBEN1B"",44,0)"
^XMB(3.9,25,2,1258,0)=" Q"
^XMB(3.9,25,2,1259,0)="""RTN"",""ECBEN1B"",45,0)"
^XMB(3.9,25,2,1260,0)="HDR ;"
^XMB(3.9,25,2,1261,0)="""RTN"",""ECBEN1B"",46,0)"
^XMB(3.9,25,2,1262,0)=" W @IOF,!,""Location: ""_ECLN"
^XMB(3.9,25,2,1263,0)="""RTN"",""ECBEN1B"",47,0)"
^XMB(3.9,25,2,1264,0)=" W !,""DSS Unit: ""_ECDN"
^XMB(3.9,25,2,1265,0)="""RTN"",""ECBEN1B"",48,0)"
^XMB(3.9,25,2,1266,0)=" W !,""Ordering Section: "",ECON"
^XMB(3.9,25,2,1267,0)="""RTN"",""ECBEN1B"",49,0)"
^XMB(3.9,25,2,1268,0)=" W !,""Procedure Date: "",ECDATE,!"
^XMB(3.9,25,2,1269,0)="""RTN"",""ECBEN1B"",50,0)"
^XMB(3.9,25,2,1270,0)=" D DSP1416^ECPRVMUT(.ECPRVARY)"
^XMB(3.9,25,2,1271,0)="""RTN"",""ECBEN1B"",51,0)"
^XMB(3.9,25,2,1272,0)=" W !"
^XMB(3.9,25,2,1273,0)="""RTN"",""ECBEN1B"",52,0)"
^XMB(3.9,25,2,1274,0)=" Q"
^XMB(3.9,25,2,1275,0)="""RTN"",""ECBEN1B"",53,0)"
^XMB(3.9,25,2,1276,0)=" ;"
^XMB(3.9,25,2,1277,0)="""RTN"",""ECBEN1B"",54,0)"
^XMB(3.9,25,2,1278,0)="NOBODY ;No patients selected"
^XMB(3.9,25,2,1279,0)="""RTN"",""ECBEN1B"",55,0)"
^XMB(3.9,25,2,1280,0)=" I $D(ECADD),ECADD=""D"" W !!,""You cannot delete patients when your patient list is empty."""
^XMB(3.9,25,2,1281,0)="""RTN"",""ECBEN1B"",56,0)"
^XMB(3.9,25,2,1282,0)=" I $G(ECADD)'=""D"" W !!,""You have selected no patients."""
^XMB(3.9,25,2,1283,0)="""RTN"",""ECBEN1B"",57,0)"
^XMB(3.9,25,2,1284,0)=" R !!,""Do you wish to quit?  Y//"",X:DTIME S X=$E(X) I '$T!(X=""^"") S ECOUT=1 Q"
^XMB(3.9,25,2,1285,0)="""RTN"",""ECBEN1B"",58,0)"
^XMB(3.9,25,2,1286,0)=" S:X="""" X=""Y"" I ""yY""[X S ECOUT=1 Q"
^XMB(3.9,25,2,1287,0)="""RTN"",""ECBEN1B"",59,0)"
^XMB(3.9,25,2,1288,0)=" I ""nN""'[X W !,""Answer N to continue selection, or enter return to quit"",! G NOBODY"
^XMB(3.9,25,2,1289,0)="""RTN"",""ECBEN1B"",60,0)"
^XMB(3.9,25,2,1290,0)=" Q"
^XMB(3.9,25,2,1291,0)="""RTN"",""ECBEN1B"",61,0)"
^XMB(3.9,25,2,1292,0)=" ;"
^XMB(3.9,25,2,1293,0)="""RTN"",""ECBEN1B"",62,0)"
^XMB(3.9,25,2,1294,0)="ADCAT ;add category/procedures for patients"
^XMB(3.9,25,2,1295,0)="""RTN"",""ECBEN1B"",63,0)"
^XMB(3.9,25,2,1296,0)=" D ^ECBEN2A I ECOUT=1 Q"
^XMB(3.9,25,2,1297,0)="""RTN"",""ECBEN1B"",64,0)"
^XMB(3.9,25,2,1298,0)=" Q"
^XMB(3.9,25,2,1299,0)="""RTN"",""ECBEN1B"",65,0)"
^XMB(3.9,25,2,1300,0)="KILL ;kill arrays"
^XMB(3.9,25,2,1301,0)="""RTN"",""ECBEN1B"",66,0)"
^XMB(3.9,25,2,1302,0)=" K ECA,ECHOICE,ECJLP,ECPT,ECC,ECCN,ECP,ECPN,ECV,NATN,NODE,SYN,SYS,VOL"
^XMB(3.9,25,2,1303,0)="""RTN"",""ECBEN1B"",67,0)"
^XMB(3.9,25,2,1304,0)=" K ^TMP(""ECPRO"",$J),ECDX,ECDXN,ECINP,ECVST,ECSC,ECAO,ECIR,ECZEC,EC4,EC4N"
^XMB(3.9,25,2,1305,0)="""RTN"",""ECBEN1B"",68,0)"
^XMB(3.9,25,2,1306,0)=" K ECID,ECMST,ECDXS,ECDXIEN,ECHNC,ECCV"
^XMB(3.9,25,2,1307,0)="""RTN"",""ECBEN1B"",69,0)"
^XMB(3.9,25,2,1308,0)=" S ECOUT=0"
^XMB(3.9,25,2,1309,0)="""RTN"",""ECBEN1B"",70,0)"
^XMB(3.9,25,2,1310,0)=" Q"
^XMB(3.9,25,2,1311,0)="""RTN"",""ECBEN1B"",71,0)"
^XMB(3.9,25,2,1312,0)="DIAG ;ask dx, etc. questions"
^XMB(3.9,25,2,1313,0)="""RTN"",""ECBEN1B"",72,0)"
^XMB(3.9,25,2,1314,0)=" S (ECDX,ECDXN,ECINP,ECVST,ECSC,ECAO,ECIR,ECZEC,ECMST,ECHNC,ECCV)="""""
^XMB(3.9,25,2,1315,0)="""RTN"",""ECBEN1B"",73,0)"
^XMB(3.9,25,2,1316,0)=" S ECDFN=$P(ECPT(CNT),U)"
^XMB(3.9,25,2,1317,0)="""RTN"",""ECBEN1B"",74,0)"
^XMB(3.9,25,2,1318,0)=" ;- Determine inpatient/outpatient status"
^XMB(3.9,25,2,1319,0)="""RTN"",""ECBEN1B"",75,0)"
^XMB(3.9,25,2,1320,0)=" S ECPTSTAT=$$INOUTPT^ECUTL0(+$G(ECPT(CNT)),+$G(ECDT))"
^XMB(3.9,25,2,1321,0)="""RTN"",""ECBEN1B"",76,0)"
^XMB(3.9,25,2,1322,0)=" I ECPTSTAT="""" D INOUTERR^ECUTL0 Q"
^XMB(3.9,25,2,1323,0)="""RTN"",""ECBEN1B"",77,0)"
^XMB(3.9,25,2,1324,0)=" ;- Determine patient eligibility"
^XMB(3.9,25,2,1325,0)="""RTN"",""ECBEN1B"",78,0)"
^XMB(3.9,25,2,1326,0)=" I $$CHKDSS^ECUTL0(+$G(ECD),ECPTSTAT) D"
^XMB(3.9,25,2,1327,0)="""RTN"",""ECBEN1B"",79,0)"
^XMB(3.9,25,2,1328,0)=" . I $$MULTELG^ECUTL0(+$G(ECPT(CNT))) S ECELIG=+$$ELGLST^ECUTL0"
^XMB(3.9,25,2,1329,0)="""RTN"",""ECBEN1B"",80,0)"
^XMB(3.9,25,2,1330,0)=" . E  S ECELIG=+$G(VAEL(1))"
^XMB(3.9,25,2,1331,0)="""RTN"",""ECBEN1B"",81,0)"
^XMB(3.9,25,2,1332,0)=" K VAEL"
^XMB(3.9,25,2,1333,0)="""RTN"",""ECBEN1B"",82,0)"
^XMB(3.9,25,2,1334,0)=" D DSPSTAT^ECUTL0(ECPTSTAT)"
^XMB(3.9,25,2,1335,0)="""RTN"",""ECBEN1B"",83,0)"
^XMB(3.9,25,2,1336,0)=" I '$D(EC4) S EC4="""",EC4N=""NO ASSOCIATED CLINIC"""
^XMB(3.9,25,2,1337,0)="""RTN"",""ECBEN1B"",84,0)"
^XMB(3.9,25,2,1338,0)=" I '$D(ECID) S ECID="""""
^XMB(3.9,25,2,1339,0)="""RTN"",""ECBEN1B"",85,0)"
^XMB(3.9,25,2,1340,0)=" I $P(ECPCE,""~"",2)=""N"" G SETDX"
^XMB(3.9,25,2,1341,0)="""RTN"",""ECBEN1B"",86,0)"
^XMB(3.9,25,2,1342,0)=" D PCEQST^ECBEN2U"
^XMB(3.9,25,2,1343,0)="""RTN"",""ECBEN1B"",87,0)"
^XMB(3.9,25,2,1344,0)=" I ECOUT D DELPT(.CNT) Q"
^XMB(3.9,25,2,1345,0)="""RTN"",""ECBEN1B"",88,0)"
^XMB(3.9,25,2,1346,0)="SETDX ;set dx, etc. in pat array"
^XMB(3.9,25,2,1347,0)="""RTN"",""ECBEN1B"",89,0)"
^XMB(3.9,25,2,1348,0)=" S EC4N=$S($P($G(^SC(+EC4,0)),""^"")]"""":$P(^(0),""^""),1:""NO ASSOCIATED CLINIC""),ECID=$P($G(^SC(+EC4,0)),""^"",7)"
^XMB(3.9,25,2,1349,0)="""RTN"",""ECBEN1B"",90,0)"
^XMB(3.9,25,2,1350,0)=" S ECPT(CNT)=ECPT(CNT)_""^""_ECDX_""^""_$S(ECINP="""":$G(ECPTSTAT),1:ECINP)_""^""_ECVST_""^""_ECSC_""^""_ECAO_""^""_ECIR_""^""_ECZEC_""^""_EC4_""^""_ECID_""^""_ECMST_""^""_ECHNC_""^""_ECCV"
^XMB(3.9,25,2,1351,0)="""RTN"",""ECBEN1B"",91,0)"
^XMB(3.9,25,2,1352,0)=" I $D(ECDXS) M ECPT(CNT,""DXS"")=ECDXS K ECDXS"
^XMB(3.9,25,2,1353,0)="""RTN"",""ECBEN1B"",92,0)"
^XMB(3.9,25,2,1354,0)=" Q"
^XMB(3.9,25,2,1355,0)="""RTN"",""ECBEN1B"",93,0)"
^XMB(3.9,25,2,1356,0)=" ;"
^XMB(3.9,25,2,1357,0)="""RTN"",""ECBEN1B"",94,0)"
^XMB(3.9,25,2,1358,0)="DELPT(CNT) ;deselect patient due to missing required data"
^XMB(3.9,25,2,1359,0)="""RTN"",""ECBEN1B"",95,0)"
^XMB(3.9,25,2,1360,0)=" N DIR,Y"
^XMB(3.9,25,2,1361,0)="""RTN"",""ECBEN1B"",96,0)"
^XMB(3.9,25,2,1362,0)=" K ECPT(CNT) S CNT=CNT-1"
^XMB(3.9,25,2,1363,0)="""RTN"",""ECBEN1B"",97,0)"
^XMB(3.9,25,2,1364,0)=" W !,""Required data missing."",!,""Patient deselected..."",!"
^XMB(3.9,25,2,1365,0)="""RTN"",""ECBEN1B"",98,0)"
^XMB(3.9,25,2,1366,0)=" S ECOUT=0"
^XMB(3.9,25,2,1367,0)="""RTN"",""ECBEN1B"",99,0)"
^XMB(3.9,25,2,1368,0)=" S DIR(0)=""E"",DIR(""A"")=""Press RETURN to continue"""
^XMB(3.9,25,2,1369,0)="""RTN"",""ECBEN1B"",100,0)"
^XMB(3.9,25,2,1370,0)=" D ^DIR"
^XMB(3.9,25,2,1371,0)="""RTN"",""ECBEN1B"",101,0)"
^XMB(3.9,25,2,1372,0)=" W !"
^XMB(3.9,25,2,1373,0)="""RTN"",""ECBEN1B"",102,0)"
^XMB(3.9,25,2,1374,0)=" Q"
^XMB(3.9,25,2,1375,0)="""RTN"",""ECBEN2A"")"
^XMB(3.9,25,2,1376,0)="0^15^B45265158^B48180018"
^XMB(3.9,25,2,1377,0)="""RTN"",""ECBEN2A"",1,0)"
^XMB(3.9,25,2,1378,0)="ECBEN2A ;BIR/MAM,JPW-Categories and Procedures Selection ;30 Apr 96"
^XMB(3.9,25,2,1379,0)="""RTN"",""ECBEN2A"",2,0)"
^XMB(3.9,25,2,1380,0)=" ;;2.0; EVENT CAPTURE ;**1,4,5,13,18,33,47,72**;8 May 96"
^XMB(3.9,25,2,1381,0)="""RTN"",""ECBEN2A"",3,0)"
^XMB(3.9,25,2,1382,0)="CHK ; check unit for valid categories"
^XMB(3.9,25,2,1383,0)="""RTN"",""ECBEN2A"",4,0)"
^XMB(3.9,25,2,1384,0)=" S (COUNT,EC1)=0 K ECHOICE,ECSTOP"
^XMB(3.9,25,2,1385,0)="""RTN"",""ECBEN2A"",5,0)"
^XMB(3.9,25,2,1386,0)=" D CATS^ECHECK1 S ECONE="""""
^XMB(3.9,25,2,1387,0)="""RTN"",""ECBEN2A"",6,0)"
^XMB(3.9,25,2,1388,0)=" I '$D(ECC(1)) S ECC=0,ECCN=""None"",ECONE=0 G P"
^XMB(3.9,25,2,1389,0)="""RTN"",""ECBEN2A"",7,0)"
^XMB(3.9,25,2,1390,0)=" I '$D(ECC(2)) S ECC=+ECC(1),ECCN=$P(ECC(1),""^"",2),ECONE=1 G P"
^XMB(3.9,25,2,1391,0)="""RTN"",""ECBEN2A"",8,0)"
^XMB(3.9,25,2,1392,0)="CATS ; select category"
^XMB(3.9,25,2,1393,0)="""RTN"",""ECBEN2A"",9,0)"
^XMB(3.9,25,2,1394,0)=" S X="""",CNT=0"
^XMB(3.9,25,2,1395,0)="""RTN"",""ECBEN2A"",10,0)"
^XMB(3.9,25,2,1396,0)="LIST D HDR^ECBEN2U S JJ=0 W !,""Categories within ""_ECDN_"": "",!"
^XMB(3.9,25,2,1397,0)="""RTN"",""ECBEN2A"",11,0)"
^XMB(3.9,25,2,1398,0)=" S EC1=0"
^XMB(3.9,25,2,1399,0)="""RTN"",""ECBEN2A"",12,0)"
^XMB(3.9,25,2,1400,0)=" F  S CNT=$O(ECC(CNT)) Q:'CNT!$D(ECHOICE)  D:($Y+5>IOSL) SELC Q:$D(ECHOICE)  I X="""" W !,CNT_""."",?5,$P(ECC(CNT),""^"",2)"
^XMB(3.9,25,2,1401,0)="""RTN"",""ECBEN2A"",13,0)"
^XMB(3.9,25,2,1402,0)=" I '$D(ECSTOP),$D(ECHOICE) S ECONE=2 G P"
^XMB(3.9,25,2,1403,0)="""RTN"",""ECBEN2A"",14,0)"
^XMB(3.9,25,2,1404,0)="PICK W !!,""Select Number:  "" R X:DTIME I '$T!(""^""[X) S ECOUT=1 Q"
^XMB(3.9,25,2,1405,0)="""RTN"",""ECBEN2A"",15,0)"
^XMB(3.9,25,2,1406,0)=" I '$D(ECC(X)) W !!,""Select the number corresponding to the category, or ^ to quit."",!!,""Press <RET> to continue  "" R X:DTIME S CNT=CNT-5,X="""" G LIST"
^XMB(3.9,25,2,1407,0)="""RTN"",""ECBEN2A"",16,0)"
^XMB(3.9,25,2,1408,0)=" S ECHOICE=1,ECC=$P(ECC(X),""^""),ECCN=$P(ECC(X),""^"",2),ECONE=2"
^XMB(3.9,25,2,1409,0)="""RTN"",""ECBEN2A"",17,0)"
^XMB(3.9,25,2,1410,0)="P ;check for valid procedures"
^XMB(3.9,25,2,1411,0)="""RTN"",""ECBEN2A"",18,0)"
^XMB(3.9,25,2,1412,0)=" K ^TMP(""ECLKUP"",$J)"
^XMB(3.9,25,2,1413,0)="""RTN"",""ECBEN2A"",19,0)"
^XMB(3.9,25,2,1414,0)=" D PROS^ECHECK1"
^XMB(3.9,25,2,1415,0)="""RTN"",""ECBEN2A"",20,0)"
^XMB(3.9,25,2,1416,0)=" I '$O(^TMP(""ECPRO"",$J,0)) D  Q:ECOUT"
^XMB(3.9,25,2,1417,0)="""RTN"",""ECBEN2A"",21,0)"
^XMB(3.9,25,2,1418,0)=" .W !!,""Within the "",ECLN,"" location there are no procedures defined"",!"
^XMB(3.9,25,2,1419,0)="""RTN"",""ECBEN2A"",22,0)"
^XMB(3.9,25,2,1420,0)=" .W ""for the DSS Unit "",ECDN,"".  Please select another DSS Unit."",!!"
^XMB(3.9,25,2,1421,0)="""RTN"",""ECBEN2A"",23,0)"
^XMB(3.9,25,2,1422,0)=" .W ""Press <RET> to continue "" R X:DTIME S ECOUT=2 Q"
^XMB(3.9,25,2,1423,0)="""RTN"",""ECBEN2A"",24,0)"
^XMB(3.9,25,2,1424,0)=" D HDR^ECBEN2U"
^XMB(3.9,25,2,1425,0)="""RTN"",""ECBEN2A"",25,0)"
^XMB(3.9,25,2,1426,0)="P1 ;"
^XMB(3.9,25,2,1427,0)="""RTN"",""ECBEN2A"",26,0)"
^XMB(3.9,25,2,1428,0)=" I '$D(^TMP(""ECPRO"",$J,2)) S CNT=1,ECONE=ECONE_""^1"" D SETP W !,""Procedure: "" D  G V"
^XMB(3.9,25,2,1429,0)="""RTN"",""ECBEN2A"",27,0)"
^XMB(3.9,25,2,1430,0)=" . W $S(ECCPT="""":"""",1:ECPTCD_"" "")_$E(ECPN,1,50)"
^XMB(3.9,25,2,1431,0)="""RTN"",""ECBEN2A"",28,0)"
^XMB(3.9,25,2,1432,0)=" . W $S(SYN'[""NOT DEFINED"":"" [""_SYN_""]"",1:"""")_""  (#""_NATN_"")"",!"
^XMB(3.9,25,2,1433,0)="""RTN"",""ECBEN2A"",29,0)"
^XMB(3.9,25,2,1434,0)="P2 ;ask mul proc"
^XMB(3.9,25,2,1435,0)="""RTN"",""ECBEN2A"",30,0)"
^XMB(3.9,25,2,1436,0)=" S ECX="""",(ECPCNT,CNT,OK)=0,EC1=1 K ECHOICE,ECSTOP,ECMOD"
^XMB(3.9,25,2,1437,0)="""RTN"",""ECBEN2A"",31,0)"
^XMB(3.9,25,2,1438,0)=" S DIR(""?"")=""^D PROS^ECBEN2A"""
^XMB(3.9,25,2,1439,0)="""RTN"",""ECBEN2A"",32,0)"
^XMB(3.9,25,2,1440,0)=" S ECX=$$GETPRO^ECDSUTIL"
^XMB(3.9,25,2,1441,0)="""RTN"",""ECBEN2A"",33,0)"
^XMB(3.9,25,2,1442,0)=" I +$G(ECX)=-1,(COUNT=0) D MSG^ECBEN2U,KILLV^ECDSUTIL Q"
^XMB(3.9,25,2,1443,0)="""RTN"",""ECBEN2A"",34,0)"
^XMB(3.9,25,2,1444,0)=" I +$G(ECX)=-1,COUNT G FILE"
^XMB(3.9,25,2,1445,0)="""RTN"",""ECBEN2A"",35,0)"
^XMB(3.9,25,2,1446,0)=" I +$G(ECX)=1 D SRCHTM^ECDSUTIL(ECX)"
^XMB(3.9,25,2,1447,0)="""RTN"",""ECBEN2A"",36,0)"
^XMB(3.9,25,2,1448,0)=" S ECPCNT=+$G(ECPCNT)"
^XMB(3.9,25,2,1449,0)="""RTN"",""ECBEN2A"",37,0)"
^XMB(3.9,25,2,1450,0)=" I ECPCNT=-1!(ECPCNT=-2) D  G P2"
^XMB(3.9,25,2,1451,0)="""RTN"",""ECBEN2A"",38,0)"
^XMB(3.9,25,2,1452,0)=" . D @($S(ECPCNT=-1:""ERRMSG^ECDSUTIL"",ECPCNT=-2:""ERRMSG2^ECDSUTIL""))"
^XMB(3.9,25,2,1453,0)="""RTN"",""ECBEN2A"",39,0)"
^XMB(3.9,25,2,1454,0)=" . D KILLV^ECDSUTIL"
^XMB(3.9,25,2,1455,0)="""RTN"",""ECBEN2A"",40,0)"
^XMB(3.9,25,2,1456,0)=" I ECPCNT>0 D  G V"
^XMB(3.9,25,2,1457,0)="""RTN"",""ECBEN2A"",41,0)"
^XMB(3.9,25,2,1458,0)=" . S CNT=ECPCNT"
^XMB(3.9,25,2,1459,0)="""RTN"",""ECBEN2A"",42,0)"
^XMB(3.9,25,2,1460,0)=" . D SETP"
^XMB(3.9,25,2,1461,0)="""RTN"",""ECBEN2A"",43,0)"
^XMB(3.9,25,2,1462,0)=" . S OK=1,ECONE=ECONE_""^2"""
^XMB(3.9,25,2,1463,0)="""RTN"",""ECBEN2A"",44,0)"
^XMB(3.9,25,2,1464,0)=" . D KILLV^ECDSUTIL"
^XMB(3.9,25,2,1465,0)="""RTN"",""ECBEN2A"",45,0)"
^XMB(3.9,25,2,1466,0)=" I 'ECPCNT,$D(ECPNAME) S CNT=$$PRLST^ECDSUTIL"
^XMB(3.9,25,2,1467,0)="""RTN"",""ECBEN2A"",46,0)"
^XMB(3.9,25,2,1468,0)=" I CNT=-1 D MSG^ECBEN2U,KILLV^ECDSUTIL Q"
^XMB(3.9,25,2,1469,0)="""RTN"",""ECBEN2A"",47,0)"
^XMB(3.9,25,2,1470,0)=" I CNT>0 D  G V"
^XMB(3.9,25,2,1471,0)="""RTN"",""ECBEN2A"",48,0)"
^XMB(3.9,25,2,1472,0)=" . D SETP"
^XMB(3.9,25,2,1473,0)="""RTN"",""ECBEN2A"",49,0)"
^XMB(3.9,25,2,1474,0)=" . S OK=1,ECONE=ECONE_""^2"""
^XMB(3.9,25,2,1475,0)="""RTN"",""ECBEN2A"",50,0)"
^XMB(3.9,25,2,1476,0)=" . D KILLV^ECDSUTIL"
^XMB(3.9,25,2,1477,0)="""RTN"",""ECBEN2A"",51,0)"
^XMB(3.9,25,2,1478,0)=" Q"
^XMB(3.9,25,2,1479,0)="""RTN"",""ECBEN2A"",52,0)"
^XMB(3.9,25,2,1480,0)=" ;"
^XMB(3.9,25,2,1481,0)="""RTN"",""ECBEN2A"",53,0)"
^XMB(3.9,25,2,1482,0)="PROS ;"
^XMB(3.9,25,2,1483,0)="""RTN"",""ECBEN2A"",54,0)"
^XMB(3.9,25,2,1484,0)=" S X="""",CNT=0 K ECHOICE"
^XMB(3.9,25,2,1485,0)="""RTN"",""ECBEN2A"",55,0)"
^XMB(3.9,25,2,1486,0)="LISTP D HDR^ECBEN2U S JJ=1 W !,""Available Procedures within ""_ECDN_"": "",!"
^XMB(3.9,25,2,1487,0)="""RTN"",""ECBEN2A"",56,0)"
^XMB(3.9,25,2,1488,0)=" W ?72,""National"",!,?5,""Procedure Name"",?40,""Synonym"",?72,""Number"",!"
^XMB(3.9,25,2,1489,0)="""RTN"",""ECBEN2A"",57,0)"
^XMB(3.9,25,2,1490,0)=" S EC1=1"
^XMB(3.9,25,2,1491,0)="""RTN"",""ECBEN2A"",58,0)"
^XMB(3.9,25,2,1492,0)=" F   S CNT=$O(^TMP(""ECPRO"",$J,CNT)) Q:'CNT!$D(ECHOICE)  D:($Y+5>IOSL) SELC Q:$D(ECHOICE)  I X="""" W !,CNT_""."",?5,$E($P(^TMP(""ECPRO"",$J,CNT),""^"",4),1,30),?38,$E($P(^(CNT),""^"",3),1,30),?72,$P(^(CNT),""^"",5)"
^XMB(3.9,25,2,1493,0)="""RTN"",""ECBEN2A"",59,0)"
^XMB(3.9,25,2,1494,0)=" I X="""" D"
^XMB(3.9,25,2,1495,0)="""RTN"",""ECBEN2A"",60,0)"
^XMB(3.9,25,2,1496,0)=" .W !!?5,""Select by number, CPT or national code, procedure name, or synonym."""
^XMB(3.9,25,2,1497,0)="""RTN"",""ECBEN2A"",61,0)"
^XMB(3.9,25,2,1498,0)=" .W !?5,""Synonym must be preceded by the & character  (example:  &TESTSYN)."",!"
^XMB(3.9,25,2,1499,0)="""RTN"",""ECBEN2A"",62,0)"
^XMB(3.9,25,2,1500,0)=" .W ?2,""** Modifier(s) can be appended to a CPT code (ex: CPT code-mod1,mod2,mod3) **"",!"
^XMB(3.9,25,2,1501,0)="""RTN"",""ECBEN2A"",63,0)"
^XMB(3.9,25,2,1502,0)=" Q"
^XMB(3.9,25,2,1503,0)="""RTN"",""ECBEN2A"",64,0)"
^XMB(3.9,25,2,1504,0)=" ;"
^XMB(3.9,25,2,1505,0)="""RTN"",""ECBEN2A"",65,0)"
^XMB(3.9,25,2,1506,0)="V ;vol (and procedure reason),ask for CPT modifier is applicable"
^XMB(3.9,25,2,1507,0)="""RTN"",""ECBEN2A"",66,0)"
^XMB(3.9,25,2,1508,0)=" ;"
^XMB(3.9,25,2,1509,0)="""RTN"",""ECBEN2A"",67,0)"
^XMB(3.9,25,2,1510,0)=" ;ALB/JAM - Ask CPT Procedure Modifier"
^XMB(3.9,25,2,1511,0)="""RTN"",""ECBEN2A"",68,0)"
^XMB(3.9,25,2,1512,0)=" I ECCPT'="""" D  I ECOUT Q"
^XMB(3.9,25,2,1513,0)="""RTN"",""ECBEN2A"",69,0)"
^XMB(3.9,25,2,1514,0)=" . S ECMODS=$G(ECMODS)"
^XMB(3.9,25,2,1515,0)="""RTN"",""ECBEN2A"",70,0)"
^XMB(3.9,25,2,1516,0)=" . S ECMODF=$$ASKMOD^ECUTL(ECCPT,ECMODS,ECDT,.ECMOD,.ECERR)"
^XMB(3.9,25,2,1517,0)="""RTN"",""ECBEN2A"",71,0)"
^XMB(3.9,25,2,1518,0)=" . I $G(ECERR) S ECOUT=1"
^XMB(3.9,25,2,1519,0)="""RTN"",""ECBEN2A"",72,0)"
^XMB(3.9,25,2,1520,0)=" . K ECMODF,ECMODS"
^XMB(3.9,25,2,1521,0)="""RTN"",""ECBEN2A"",73,0)"
^XMB(3.9,25,2,1522,0)=" ;ALB/ESD - Ask Procedure Reason"
^XMB(3.9,25,2,1523,0)="""RTN"",""ECBEN2A"",74,0)"
^XMB(3.9,25,2,1524,0)=" I $G(ECP)]"""" S ECSCR=+$O(^ECJ(""AP"",+ECL,+ECD,+ECC,ECP,0))"
^XMB(3.9,25,2,1525,0)="""RTN"",""ECBEN2A"",75,0)"
^XMB(3.9,25,2,1526,0)=" K ECPRPTR"
^XMB(3.9,25,2,1527,0)="""RTN"",""ECBEN2A"",76,0)"
^XMB(3.9,25,2,1528,0)=" I ECSCR>0,($P($G(^ECJ(ECSCR,""PRO"")),""^"",5)=1),(+$O(^ECL(""AD"",ECSCR,0))) D"
^XMB(3.9,25,2,1529,0)="""RTN"",""ECBEN2A"",77,0)"
^XMB(3.9,25,2,1530,0)=" . S ECPRPTR=0"
^XMB(3.9,25,2,1531,0)="""RTN"",""ECBEN2A"",78,0)"
^XMB(3.9,25,2,1532,0)=" . S DIC=""^ECL("",DIC(0)=""QEAM"""
^XMB(3.9,25,2,1533,0)="""RTN"",""ECBEN2A"",79,0)"
^XMB(3.9,25,2,1534,0)=" . S DIC(""A"")=""Procedure Reason: "",DIC(""S"")=""I $P(^(0),U,2)=ECSCR"""
^XMB(3.9,25,2,1535,0)="""RTN"",""ECBEN2A"",80,0)"
^XMB(3.9,25,2,1536,0)=" . D ^DIC K DIC"
^XMB(3.9,25,2,1537,0)="""RTN"",""ECBEN2A"",81,0)"
^XMB(3.9,25,2,1538,0)=" . I +Y>0 S ECPRPTR=+Y"
^XMB(3.9,25,2,1539,0)="""RTN"",""ECBEN2A"",82,0)"
^XMB(3.9,25,2,1540,0)=" K ECSCR"
^XMB(3.9,25,2,1541,0)="""RTN"",""ECBEN2A"",83,0)"
^XMB(3.9,25,2,1542,0)=" ;"
^XMB(3.9,25,2,1543,0)="""RTN"",""ECBEN2A"",84,0)"
^XMB(3.9,25,2,1544,0)="VV ;vol"
^XMB(3.9,25,2,1545,0)="""RTN"",""ECBEN2A"",85,0)"
^XMB(3.9,25,2,1546,0)=" S:'VOL VOL=1"
^XMB(3.9,25,2,1547,0)="""RTN"",""ECBEN2A"",86,0)"
^XMB(3.9,25,2,1548,0)=" W !,""Volume: ""_VOL_""// "" R X:DTIME I '$T S ECOUT=1 Q"
^XMB(3.9,25,2,1549,0)="""RTN"",""ECBEN2A"",87,0)"
^XMB(3.9,25,2,1550,0)=" I X=""^"" S ECOUT=1 Q"
^XMB(3.9,25,2,1551,0)="""RTN"",""ECBEN2A"",88,0)"
^XMB(3.9,25,2,1552,0)=" S:X="""" X=VOL I X'?1.2N!'X W !!,""Enter a whole number between 1 and 99."" G VV"
^XMB(3.9,25,2,1553,0)="""RTN"",""ECBEN2A"",89,0)"
^XMB(3.9,25,2,1554,0)=" S ECV=X"
^XMB(3.9,25,2,1555,0)="""RTN"",""ECBEN2A"",90,0)"
^XMB(3.9,25,2,1556,0)="CHKP ;"
^XMB(3.9,25,2,1557,0)="""RTN"",""ECBEN2A"",91,0)"
^XMB(3.9,25,2,1558,0)=" W !!,""Category: "",?14,$E(ECCN,1,26),?44,""Ord Section: ""_$E(ECON,1,22)"
^XMB(3.9,25,2,1559,0)="""RTN"",""ECBEN2A"",92,0)"
^XMB(3.9,25,2,1560,0)=" W !,""Procedure: "",?14,$S(ECCPT="""":"""",1:ECPTCD_"" "")_$E(ECPN,1,50)"
^XMB(3.9,25,2,1561,0)="""RTN"",""ECBEN2A"",93,0)"
^XMB(3.9,25,2,1562,0)=" W $S(SYN'[""NOT DEFINED"":"" [""_SYN_""]"",1:"""")_""  (#""_NATN_"")"""
^XMB(3.9,25,2,1563,0)="""RTN"",""ECBEN2A"",94,0)"
^XMB(3.9,25,2,1564,0)=" I ECCPT'="""" N MOD S MOD="""" F  S MOD=$O(ECMOD(ECCPT,MOD)) Q:MOD=""""  D"
^XMB(3.9,25,2,1565,0)="""RTN"",""ECBEN2A"",95,0)"
^XMB(3.9,25,2,1566,0)=" . W !?1,""Modifier: "",?18,""- "",MOD,"" "",$E($P(ECMOD(ECCPT,MOD),U),1,55)"
^XMB(3.9,25,2,1567,0)="""RTN"",""ECBEN2A"",96,0)"
^XMB(3.9,25,2,1568,0)=" ;"
^XMB(3.9,25,2,1569,0)="""RTN"",""ECBEN2A"",97,0)"
^XMB(3.9,25,2,1570,0)=" ;ALB/ESD - Display procedure reason"
^XMB(3.9,25,2,1571,0)="""RTN"",""ECBEN2A"",98,0)"
^XMB(3.9,25,2,1572,0)=" I +$G(ECPRPTR) S ECPRSL=$P($G(^ECL(+ECPRPTR,0)),""^"") W !,""Procedure Reason: "",$P($G(^ECR(+ECPRSL,0)),""^"")"
^XMB(3.9,25,2,1573,0)="""RTN"",""ECBEN2A"",99,0)"
^XMB(3.9,25,2,1574,0)=" W !,""Date: "",?14,ECDATE,?44,""Volume: ""_ECV"
^XMB(3.9,25,2,1575,0)="""RTN"",""ECBEN2A"",100,0)"
^XMB(3.9,25,2,1576,0)=" W ! D DSP1444^ECPRVMUT(.ECPRVARY)"
^XMB(3.9,25,2,1577,0)="""RTN"",""ECBEN2A"",101,0)"
^XMB(3.9,25,2,1578,0)=" W !!!,""Is this information correct ? YES//  "" R ECYN:DTIME I '$T!(ECYN=""^"") D NOTE S ECOUT=2,CNT=0 K ECEC W ""Press <RET> to continue "" R X:DTIME Q"
^XMB(3.9,25,2,1579,0)="""RTN"",""ECBEN2A"",102,0)"
^XMB(3.9,25,2,1580,0)=" S ECYN=$E(ECYN) S:ECYN="""" ECYN=""Y"""
^XMB(3.9,25,2,1581,0)="""RTN"",""ECBEN2A"",103,0)"
^XMB(3.9,25,2,1582,0)=" I ""YyNn""'[ECYN W !!,""Enter <RET> if the information listed above is correct and should be"",!,""entered for the patients selected.  Enter NO to re-enter the information"",!,""for this procedure."",!"
^XMB(3.9,25,2,1583,0)="""RTN"",""ECBEN2A"",104,0)"
^XMB(3.9,25,2,1584,0)=" I ""YyNn""'[ECYN W !!,""Press <RET> to continue  "" R X:DTIME G CHKP"
^XMB(3.9,25,2,1585,0)="""RTN"",""ECBEN2A"",105,0)"
^XMB(3.9,25,2,1586,0)=" I ""Nn""[ECYN,$P(ECONE,""^"")<2,$P(ECONE,""^"",2)<2 S ECOUT=2 Q"
^XMB(3.9,25,2,1587,0)="""RTN"",""ECBEN2A"",106,0)"
^XMB(3.9,25,2,1588,0)=" I ""Nn""[ECYN K ECHOICE,ECCN,ECP,ECPN,ECONE,ECMOD,^TMP(""ECPRO"",$J) G CHK"
^XMB(3.9,25,2,1589,0)="""RTN"",""ECBEN2A"",107,0)"
^XMB(3.9,25,2,1590,0)=" ;"
^XMB(3.9,25,2,1591,0)="""RTN"",""ECBEN2A"",108,0)"
^XMB(3.9,25,2,1592,0)=" ;ALB/ESD - File procedure reason in local array ECEC (used in ECBENF)"
^XMB(3.9,25,2,1593,0)="""RTN"",""ECBEN2A"",109,0)"
^XMB(3.9,25,2,1594,0)=" S COUNT=COUNT+1,ECEC(COUNT)=ECC_""^""_ECP_""^^""_ECO_""^""_ECV_""^^^^^^""_ECCPT_$S(+$G(ECPRPTR):""^""_ECPRPTR,1:"""")"
^XMB(3.9,25,2,1595,0)="""RTN"",""ECBEN2A"",110,0)"
^XMB(3.9,25,2,1596,0)=" ;File CPT modifiers in array ECEC if they exist"
^XMB(3.9,25,2,1597,0)="""RTN"",""ECBEN2A"",111,0)"
^XMB(3.9,25,2,1598,0)=" I ECCPT'="""",$O(ECMOD(ECCPT,""""))'="""" D"
^XMB(3.9,25,2,1599,0)="""RTN"",""ECBEN2A"",112,0)"
^XMB(3.9,25,2,1600,0)=" . M ECEC(COUNT,""MOD"")=ECMOD(ECCPT)"
^XMB(3.9,25,2,1601,0)="""RTN"",""ECBEN2A"",113,0)"
^XMB(3.9,25,2,1602,0)=" I $D(^TMP(""ECPRO"",$J,2)) W !! G P2"
^XMB(3.9,25,2,1603,0)="""RTN"",""ECBEN2A"",114,0)"
^XMB(3.9,25,2,1604,0)="FILE ;file proc"
^XMB(3.9,25,2,1605,0)="""RTN"",""ECBEN2A"",115,0)"
^XMB(3.9,25,2,1606,0)=" I '$D(ECEC(1)) W !!,""No procedures have been selected for filing.  Please re-enter the "",!,""information for the procedures, or ^ to exit."",!!,""Press <RET> to continue"" R X:DTIME S:X=""^"" ECOUT=1 K ECTEMP,^TMP(""ECPRO"",$J) G P"
^XMB(3.9,25,2,1607,0)="""RTN"",""ECBEN2A"",116,0)"
^XMB(3.9,25,2,1608,0)=" D ^ECBEN2B"
^XMB(3.9,25,2,1609,0)="""RTN"",""ECBEN2A"",117,0)"
^XMB(3.9,25,2,1610,0)="END Q"
^XMB(3.9,25,2,1611,0)="""RTN"",""ECBEN2A"",118,0)"
^XMB(3.9,25,2,1612,0)="SETP ;set proc"
^XMB(3.9,25,2,1613,0)="""RTN"",""ECBEN2A"",119,0)"
^XMB(3.9,25,2,1614,0)=" S ECP=$P(^TMP(""ECPRO"",$J,CNT),""^""),ECPN=$P(^(CNT),""^"",4),SYN=$P(^(CNT),""^"",3),NATN=$P(^(CNT),""^"",5),VOL=$P(^(CNT),""^"",6)"
^XMB(3.9,25,2,1615,0)="""RTN"",""ECBEN2A"",120,0)"
^XMB(3.9,25,2,1616,0)=" S ECCPT=$S(ECP[""EC"":$P($G(^EC(725,+ECP,0)),""^"",5),1:+ECP)"
^XMB(3.9,25,2,1617,0)="""RTN"",""ECBEN2A"",121,0)"
^XMB(3.9,25,2,1618,0)=" S ECPTCD="""" I ECCPT'="""" D"
^XMB(3.9,25,2,1619,0)="""RTN"",""ECBEN2A"",122,0)"
^XMB(3.9,25,2,1620,0)=" . S ECPTCD=$$CPT^ICPTCOD(ECCPT,ECDT) I +ECPTCD>0 S ECPTCD=$P(ECPTCD,U,2)"
^XMB(3.9,25,2,1621,0)="""RTN"",""ECBEN2A"",123,0)"
^XMB(3.9,25,2,1622,0)=" W ""  ""_$S(ECCPT="""":"""",1:ECPTCD_"" "")_$E(ECPN,1,50)"
^XMB(3.9,25,2,1623,0)="""RTN"",""ECBEN2A"",124,0)"
^XMB(3.9,25,2,1624,0)=" W $S(SYN'[""NOT DEFINED"":"" [""_SYN_""]"",1:"""")_""  (#""_NATN_"")"",!"
^XMB(3.9,25,2,1625,0)="""RTN"",""ECBEN2A"",125,0)"
^XMB(3.9,25,2,1626,0)=" S EC4=$P(^TMP(""ECPRO"",$J,CNT),""^"",2)"
^XMB(3.9,25,2,1627,0)="""RTN"",""ECBEN2A"",126,0)"
^XMB(3.9,25,2,1628,0)=" S ^TMP(""ECLKUP"",$J,""LAST"")=CNT"
^XMB(3.9,25,2,1629,0)="""RTN"",""ECBEN2A"",127,0)"
^XMB(3.9,25,2,1630,0)=" Q"
^XMB(3.9,25,2,1631,0)="""RTN"",""ECBEN2A"",128,0)"
^XMB(3.9,25,2,1632,0)="SELC ; select category"
^XMB(3.9,25,2,1633,0)="""RTN"",""ECBEN2A"",129,0)"
^XMB(3.9,25,2,1634,0)=" W !!,$S(EC1:""Press"",1:""Select Number, or press"")_"" <RET> to continue listing ""_$S(EC1:""procedures"",1:""categories"")_"" or '^' to stop:  "" R X:DTIME I '$T!(X=""^"") S (ECSTOP,ECHOICE)=1 Q"
^XMB(3.9,25,2,1635,0)="""RTN"",""ECBEN2A"",130,0)"
^XMB(3.9,25,2,1636,0)=" I X="""" W @IOF,!,$S(EC1:""Available Procedures"",1:""Categories"")_"" within "",ECDN,"" : "",! Q"
^XMB(3.9,25,2,1637,0)="""RTN"",""ECBEN2A"",131,0)"
^XMB(3.9,25,2,1638,0)=" I 'EC1,'$D(ECC(X)) D MSG1^ECBEN2U Q"
^XMB(3.9,25,2,1639,0)="""RTN"",""ECBEN2A"",132,0)"
^XMB(3.9,25,2,1640,0)=" I EC1,'$D(^TMP(""ECPRO"",$J,X)) D MSG1^ECBEN2U Q"
^XMB(3.9,25,2,1641,0)="""RTN"",""ECBEN2A"",133,0)"
^XMB(3.9,25,2,1642,0)=" S ECHOICE=1"
^XMB(3.9,25,2,1643,0)="""RTN"",""ECBEN2A"",134,0)"
^XMB(3.9,25,2,1644,0)=" I 'EC1 S ECC=$P(ECC(X),""^""),ECCN=$P(ECC(X),""^"",2) Q"
^XMB(3.9,25,2,1645,0)="""RTN"",""ECBEN2A"",135,0)"
^XMB(3.9,25,2,1646,0)=" Q"
^XMB(3.9,25,2,1647,0)="""RTN"",""ECBEN2A"",136,0)"
^XMB(3.9,25,2,1648,0)="NOTE ;"
^XMB(3.9,25,2,1649,0)="""RTN"",""ECBEN2A"",137,0)"
^XMB(3.9,25,2,1650,0)=" W !!,""**NOTE**  No action taken."",!,""You must re-enter the correct patient and procedure data that"",!,""has NOT been filed during this session. "",!!"
^XMB(3.9,25,2,1651,0)="""RTN"",""ECBEN2A"",138,0)"
^XMB(3.9,25,2,1652,0)=" Q"
^XMB(3.9,25,2,1653,0)="""RTN"",""ECBEN2B"")"
^XMB(3.9,25,2,1654,0)="0^42^B9189087^B9041714"
^XMB(3.9,25,2,1655,0)="""RTN"",""ECBEN2B"",1,0)"
^XMB(3.9,25,2,1656,0)="ECBEN2B ;BIR/MAM,JPW-New Batch Entry (cont'd.) ;1 May 96"
^XMB(3.9,25,2,1657,0)="""RTN"",""ECBEN2B"",2,0)"
^XMB(3.9,25,2,1658,0)=" ;;2.0; EVENT CAPTURE ;**4,5,10,13,72**;8 May 96"
^XMB(3.9,25,2,1659,0)="""RTN"",""ECBEN2B"",3,0)"
^XMB(3.9,25,2,1660,0)="EN ;entry point"
^XMB(3.9,25,2,1661,0)="""RTN"",""ECBEN2B"",4,0)"
^XMB(3.9,25,2,1662,0)=" S CNT=0"
^XMB(3.9,25,2,1663,0)="""RTN"",""ECBEN2B"",5,0)"
^XMB(3.9,25,2,1664,0)="STUFF ; set up info to stuff"
^XMB(3.9,25,2,1665,0)="""RTN"",""ECBEN2B"",6,0)"
^XMB(3.9,25,2,1666,0)=" S ECDUZ=DUZ"
^XMB(3.9,25,2,1667,0)="""RTN"",""ECBEN2B"",7,0)"
^XMB(3.9,25,2,1668,0)=" W @IOF,!,""You have completed ""_COUNT_"" procedure""_$S(COUNT=1:"""",1:""s"")_"" for the patients selected."",!!,""I will now enter these procedures in the file.  OK ?  YES//  "" R ECYN:DTIME I '$T!(ECYN=""^"") S ECOUT=1 Q"
^XMB(3.9,25,2,1669,0)="""RTN"",""ECBEN2B"",8,0)"
^XMB(3.9,25,2,1670,0)=" S ECYN=$E(ECYN) S:ECYN="""" ECYN=""Y"""
^XMB(3.9,25,2,1671,0)="""RTN"",""ECBEN2B"",9,0)"
^XMB(3.9,25,2,1672,0)=" I ""YyNn""'[ECYN W !!,""Enter <RET> to create the entries in the file.  If you have made a mistake"",!,""and do not wish to continue, enter NO."",!!,""Press <RET> to continue  "" R X:DTIME G STUFF"
^XMB(3.9,25,2,1673,0)="""RTN"",""ECBEN2B"",10,0)"
^XMB(3.9,25,2,1674,0)=" I ""Nn""[ECYN D NO I ""Yy""[ECYN S ECOUT=1 Q"
^XMB(3.9,25,2,1675,0)="""RTN"",""ECBEN2B"",11,0)"
^XMB(3.9,25,2,1676,0)=" W !!,""I am now sending these procedures to background for filing."""
^XMB(3.9,25,2,1677,0)="""RTN"",""ECBEN2B"",12,0)"
^XMB(3.9,25,2,1678,0)=" K DIR W !! S DIR(0)=""E"",DIR(""A"")=""Press <RET> to continue"" D ^DIR K DIR"
^XMB(3.9,25,2,1679,0)="""RTN"",""ECBEN2B"",13,0)"
^XMB(3.9,25,2,1680,0)=" S ECA=ECDT_""^""_ECL_""^""_ECS_""^""_ECM_""^""_ECD_""^""_ECPCE"
^XMB(3.9,25,2,1681,0)="""RTN"",""ECBEN2B"",14,0)"
^XMB(3.9,25,2,1682,0)=" S ECOUT=2"
^XMB(3.9,25,2,1683,0)="""RTN"",""ECBEN2B"",15,0)"
^XMB(3.9,25,2,1684,0)=" S (ZTSAVE(""ECPT*""),ZTSAVE(""ECA""),ZTSAVE(""ECEC*""),ZTSAVE(""ECDUZ""),ZTSAVE(""ECELPT*""),ZTSAVE(""ECPRVARY*""))="""""
^XMB(3.9,25,2,1685,0)="""RTN"",""ECBEN2B"",16,0)"
^XMB(3.9,25,2,1686,0)=" S ZTIO="""",ZTDTH=$H,ZTDESC=""BATCH ENTRY EVENT CAPTURE PROCEDURES"",ZTRTN=""CRAM^ECBENF"" D ^%ZTLOAD,HOME^%ZIS K ECEC Q"
^XMB(3.9,25,2,1687,0)="""RTN"",""ECBEN2B"",17,0)"
^XMB(3.9,25,2,1688,0)=" Q"
^XMB(3.9,25,2,1689,0)="""RTN"",""ECBEN2B"",18,0)"
^XMB(3.9,25,2,1690,0)="NO ; do not stuff"
^XMB(3.9,25,2,1691,0)="""RTN"",""ECBEN2B"",19,0)"
^XMB(3.9,25,2,1692,0)=" W !!,""Are you sure that you want to quit without entering any of the procedures"",!,""that you have created for the patients selected ?  NO//  "" R ECYN:DTIME I '$T!(ECYN=""^"") S ECOUT=1,ECYN=""Y"" Q"
^XMB(3.9,25,2,1693,0)="""RTN"",""ECBEN2B"",20,0)"
^XMB(3.9,25,2,1694,0)=" S ECYN=$E(ECYN) S:ECYN="""" ECYN=""N"" I ""YyNn""'[ECYN W !!,""If you do not want to enter the procedures selected, enter YES.  If the"",!,""procedures selected should be entered for the patients chosen, enter <RET>."" G NO"
^XMB(3.9,25,2,1695,0)="""RTN"",""ECBEN2B"",21,0)"
^XMB(3.9,25,2,1696,0)=" Q"
^XMB(3.9,25,2,1697,0)="""RTN"",""ECBEN2U"")"
^XMB(3.9,25,2,1698,0)="0^18^B32288429^B36244179"
^XMB(3.9,25,2,1699,0)="""RTN"",""ECBEN2U"",1,0)"
^XMB(3.9,25,2,1700,0)="ECBEN2U ;BIR/MAM,JPW-Categories and Procedures Selection ;12 Feb 96"
^XMB(3.9,25,2,1701,0)="""RTN"",""ECBEN2U"",2,0)"
^XMB(3.9,25,2,1702,0)=" ;;2.0; EVENT CAPTURE ;**4,5,7,10,17,18,23,42,47,54,72**;8 May 96"
^XMB(3.9,25,2,1703,0)="""RTN"",""ECBEN2U"",3,0)"
^XMB(3.9,25,2,1704,0)="END Q"
^XMB(3.9,25,2,1705,0)="""RTN"",""ECBEN2U"",4,0)"
^XMB(3.9,25,2,1706,0)="HDR ;screen header"
^XMB(3.9,25,2,1707,0)="""RTN"",""ECBEN2U"",5,0)"
^XMB(3.9,25,2,1708,0)=" W @IOF,!,""Location: "",ECLN"
^XMB(3.9,25,2,1709,0)="""RTN"",""ECBEN2U"",6,0)"
^XMB(3.9,25,2,1710,0)=" W !,""DSS Unit: "",$E(ECDN,1,30) I $G(ECCN)]"""" W ?48,""Category: "",$E(ECCN,1,20)"
^XMB(3.9,25,2,1711,0)="""RTN"",""ECBEN2U"",7,0)"
^XMB(3.9,25,2,1712,0)=" W !,""Ordering Section: "",ECON"
^XMB(3.9,25,2,1713,0)="""RTN"",""ECBEN2U"",8,0)"
^XMB(3.9,25,2,1714,0)=" W !,""Procedure Date: "",ECDATE,!"
^XMB(3.9,25,2,1715,0)="""RTN"",""ECBEN2U"",9,0)"
^XMB(3.9,25,2,1716,0)=" D DSP1416^ECPRVMUT(.ECPRVARY)"
^XMB(3.9,25,2,1717,0)="""RTN"",""ECBEN2U"",10,0)"
^XMB(3.9,25,2,1718,0)=" W !"
^XMB(3.9,25,2,1719,0)="""RTN"",""ECBEN2U"",11,0)"
^XMB(3.9,25,2,1720,0)=" Q"
^XMB(3.9,25,2,1721,0)="""RTN"",""ECBEN2U"",12,0)"
^XMB(3.9,25,2,1722,0)="MSG W !!,""No procedures entered.  No Action Taken."",!!,""Press <RET> to continue "" R X:DTIME S ECOUT=1"
^XMB(3.9,25,2,1723,0)="""RTN"",""ECBEN2U"",13,0)"
^XMB(3.9,25,2,1724,0)=" Q"
^XMB(3.9,25,2,1725,0)="""RTN"",""ECBEN2U"",14,0)"
^XMB(3.9,25,2,1726,0)="MSG1 ;"
^XMB(3.9,25,2,1727,0)="""RTN"",""ECBEN2U"",15,0)"
^XMB(3.9,25,2,1728,0)=" W !!,""Please enter the number that corresponds to the ""_$S(OK:""procedure"",1:""category"")_"" from which"",!,""you would like to select a procedure.  If you would like to continue"",!,""with the list, press <RET>.  Enter ^ to quit."""
^XMB(3.9,25,2,1729,0)="""RTN"",""ECBEN2U"",16,0)"
^XMB(3.9,25,2,1730,0)=" S CNT=CNT-5"
^XMB(3.9,25,2,1731,0)="""RTN"",""ECBEN2U"",17,0)"
^XMB(3.9,25,2,1732,0)=" Q"
^XMB(3.9,25,2,1733,0)="""RTN"",""ECBEN2U"",18,0)"
^XMB(3.9,25,2,1734,0)="HDRP ;hdr batch by proc"
^XMB(3.9,25,2,1735,0)="""RTN"",""ECBEN2U"",19,0)"
^XMB(3.9,25,2,1736,0)=" W @IOF,!,""Location: "",ECLN"
^XMB(3.9,25,2,1737,0)="""RTN"",""ECBEN2U"",20,0)"
^XMB(3.9,25,2,1738,0)=" I $G(ECCN)]"""" W !,""Category: "",ECCN"
^XMB(3.9,25,2,1739,0)="""RTN"",""ECBEN2U"",21,0)"
^XMB(3.9,25,2,1740,0)=" W !,""Procedure Date: "",ECDATE"
^XMB(3.9,25,2,1741,0)="""RTN"",""ECBEN2U"",22,0)"
^XMB(3.9,25,2,1742,0)=" D DSP1442^ECPRVMUT(.ECPRVARY)"
^XMB(3.9,25,2,1743,0)="""RTN"",""ECBEN2U"",23,0)"
^XMB(3.9,25,2,1744,0)=" W !"
^XMB(3.9,25,2,1745,0)="""RTN"",""ECBEN2U"",24,0)"
^XMB(3.9,25,2,1746,0)=" Q"
^XMB(3.9,25,2,1747,0)="""RTN"",""ECBEN2U"",25,0)"
^XMB(3.9,25,2,1748,0)="PCEQST ;entry pt for PCE questions"
^XMB(3.9,25,2,1749,0)="""RTN"",""ECBEN2U"",26,0)"
^XMB(3.9,25,2,1750,0)=" S (ECDX,ECDXN,ECVST,ECSC,ECAO,ECIR,ECZEC,ECMST,ECHNC,ECCV)="""""
^XMB(3.9,25,2,1751,0)="""RTN"",""ECBEN2U"",27,0)"
^XMB(3.9,25,2,1752,0)="INP ;- Set inpatient/outpatient status"
^XMB(3.9,25,2,1753,0)="""RTN"",""ECBEN2U"",28,0)"
^XMB(3.9,25,2,1754,0)=" S ECINP=$G(ECPTSTAT)"
^XMB(3.9,25,2,1755,0)="""RTN"",""ECBEN2U"",29,0)"
^XMB(3.9,25,2,1756,0)=" D CLINIC I ECOUT Q"
^XMB(3.9,25,2,1757,0)="""RTN"",""ECBEN2U"",30,0)"
^XMB(3.9,25,2,1758,0)=" ;ask dx"
^XMB(3.9,25,2,1759,0)="""RTN"",""ECBEN2U"",31,0)"
^XMB(3.9,25,2,1760,0)=" D DIAG^ECUTL2 I ECOUT Q"
^XMB(3.9,25,2,1761,0)="""RTN"",""ECBEN2U"",32,0)"
^XMB(3.9,25,2,1762,0)=" I $P(ECPCE,""~"",2)=""O""&(ECINP'=""O"") Q"
^XMB(3.9,25,2,1763,0)="""RTN"",""ECBEN2U"",33,0)"
^XMB(3.9,25,2,1764,0)=" D VISIT"
^XMB(3.9,25,2,1765,0)="""RTN"",""ECBEN2U"",34,0)"
^XMB(3.9,25,2,1766,0)=" Q"
^XMB(3.9,25,2,1767,0)="""RTN"",""ECBEN2U"",35,0)"
^XMB(3.9,25,2,1768,0)="CLINIC ;display default clinic"
^XMB(3.9,25,2,1769,0)="""RTN"",""ECBEN2U"",36,0)"
^XMB(3.9,25,2,1770,0)=" Q:$P(ECPCE,""~"",2)=""N""  I $P(ECPCE,""~"",2)=""O""&(ECINP'=""O"") Q"
^XMB(3.9,25,2,1771,0)="""RTN"",""ECBEN2U"",37,0)"
^XMB(3.9,25,2,1772,0)=" K DA,DIR,DIROUT,DIRUT,DTOUT,DUOUT S DIR(0)=""721,26"",DIR(""A"")=""Associated Clinic"",DIR(""?"")=""An active clinic is required. Enter an active clinic or an ^ to exit"""
^XMB(3.9,25,2,1773,0)="""RTN"",""ECBEN2U"",38,0)"
^XMB(3.9,25,2,1774,0)=" I EC4,EC4N'[""NO ASSOCIATED CLINIC"" S DIR(""B"")=EC4N"
^XMB(3.9,25,2,1775,0)="""RTN"",""ECBEN2U"",39,0)"
^XMB(3.9,25,2,1776,0)=" D ^DIR K DIR"
^XMB(3.9,25,2,1777,0)="""RTN"",""ECBEN2U"",40,0)"
^XMB(3.9,25,2,1778,0)=" I Y S EC4=+Y,ECID=$P($G(^SC(+EC4,0)),""^"",7)"
^XMB(3.9,25,2,1779,0)="""RTN"",""ECBEN2U"",41,0)"
^XMB(3.9,25,2,1780,0)=" I $D(DTOUT)!$D(DUOUT) S ECOUT=1 Q"
^XMB(3.9,25,2,1781,0)="""RTN"",""ECBEN2U"",42,0)"
^XMB(3.9,25,2,1782,0)=" I +EC4,'$G(ECOUT) D CLIN I 'ECPCL W !!,""You must enter an active clinic now."",! G CLINIC"
^XMB(3.9,25,2,1783,0)="""RTN"",""ECBEN2U"",43,0)"
^XMB(3.9,25,2,1784,0)=" I $D(DTOUT)!$D(DUOUT)!('Y)!(Y<0) W:$P(ECPCE,""~"",2)'=""N"" !!,""Please note that this record cannot be sent to PCE without an active clinic."",!!"
^XMB(3.9,25,2,1785,0)="""RTN"",""ECBEN2U"",44,0)"
^XMB(3.9,25,2,1786,0)=" Q"
^XMB(3.9,25,2,1787,0)="""RTN"",""ECBEN2U"",45,0)"
^XMB(3.9,25,2,1788,0)="VISIT ;ask visit info"
^XMB(3.9,25,2,1789,0)="""RTN"",""ECBEN2U"",46,0)"
^XMB(3.9,25,2,1790,0)=" Q:ECINP=""I"""
^XMB(3.9,25,2,1791,0)="""RTN"",""ECBEN2U"",47,0)"
^XMB(3.9,25,2,1792,0)=" ;"
^XMB(3.9,25,2,1793,0)="""RTN"",""ECBEN2U"",48,0)"
^XMB(3.9,25,2,1794,0)=" ;- Ask classification questions applicable to patient and file in #721"
^XMB(3.9,25,2,1795,0)="""RTN"",""ECBEN2U"",49,0)"
^XMB(3.9,25,2,1796,0)=" I $$ASKCLASS^ECUTL1(+$G(ECPT(CNT)),.ECCLFLDS,.ECOUT,ECPCE,ECINP),($O(ECCLFLDS(""""))]"""") D SETCLASS^ECUTL1(.ECCLFLDS)"
^XMB(3.9,25,2,1797,0)="""RTN"",""ECBEN2U"",50,0)"
^XMB(3.9,25,2,1798,0)=" I +$G(ECOUT) Q"
^XMB(3.9,25,2,1799,0)="""RTN"",""ECBEN2U"",51,0)"
^XMB(3.9,25,2,1800,0)=" K ECCLFLDS"
^XMB(3.9,25,2,1801,0)="""RTN"",""ECBEN2U"",52,0)"
^XMB(3.9,25,2,1802,0)=" Q"
^XMB(3.9,25,2,1803,0)="""RTN"",""ECBEN2U"",53,0)"
^XMB(3.9,25,2,1804,0)="PCEE ;checks edited data and sets PCE node for filing"
^XMB(3.9,25,2,1805,0)="""RTN"",""ECBEN2U"",54,0)"
^XMB(3.9,25,2,1806,0)=" S ECVST=+$P(EC(0),""^"",21) I 'ECVST G PCE"
^XMB(3.9,25,2,1807,0)="""RTN"",""ECBEN2U"",55,0)"
^XMB(3.9,25,2,1808,0)="DEL ;delete visit and refresh data to PCE"
^XMB(3.9,25,2,1809,0)="""RTN"",""ECBEN2U"",56,0)"
^XMB(3.9,25,2,1810,0)=" K DA,DIE,DR S DA=ECFN,DIE=721,DR=""25///@;28///@"" D ^DIE K DA,DIE,DR"
^XMB(3.9,25,2,1811,0)="""RTN"",""ECBEN2U"",57,0)"
^XMB(3.9,25,2,1812,0)=" ;"
^XMB(3.9,25,2,1813,0)="""RTN"",""ECBEN2U"",58,0)"
^XMB(3.9,25,2,1814,0)=" ;* Prepare all EC records with same Visit file entry to resend to PCE"
^XMB(3.9,25,2,1815,0)="""RTN"",""ECBEN2U"",59,0)"
^XMB(3.9,25,2,1816,0)=" N ECVAR1 S ECVAR1=$$FNDVST^ECUTL(ECVST,ECFN) K ECVAR1"
^XMB(3.9,25,2,1817,0)="""RTN"",""ECBEN2U"",60,0)"
^XMB(3.9,25,2,1818,0)=" ;"
^XMB(3.9,25,2,1819,0)="""RTN"",""ECBEN2U"",61,0)"
^XMB(3.9,25,2,1820,0)=" ;- Set VALQUIET to stop Amb Care validator from broadcasting to screen"
^XMB(3.9,25,2,1821,0)="""RTN"",""ECBEN2U"",62,0)"
^XMB(3.9,25,2,1822,0)=" S VALQUIET=1,ECVV=$$DELVFILE^PXAPI(""ALL"",ECVST) K ECVST,VALQUIET"
^XMB(3.9,25,2,1823,0)="""RTN"",""ECBEN2U"",63,0)"
^XMB(3.9,25,2,1824,0)="PCE ;set data for PCE filing"
^XMB(3.9,25,2,1825,0)="""RTN"",""ECBEN2U"",64,0)"
^XMB(3.9,25,2,1826,0)=" Q:$P(ECPCE,""~"",2)=""N""  I $P(ECPCE,""~"",2)=""O""&(ECINP'=""O"") Q"
^XMB(3.9,25,2,1827,0)="""RTN"",""ECBEN2U"",65,0)"
^XMB(3.9,25,2,1828,0)=" S ECREAS="""""
^XMB(3.9,25,2,1829,0)="""RTN"",""ECBEN2U"",66,0)"
^XMB(3.9,25,2,1830,0)=" ;"
^XMB(3.9,25,2,1831,0)="""RTN"",""ECBEN2U"",67,0)"
^XMB(3.9,25,2,1832,0)=" ;- Kill Reason node"
^XMB(3.9,25,2,1833,0)="""RTN"",""ECBEN2U"",68,0)"
^XMB(3.9,25,2,1834,0)=" D KILLR"
^XMB(3.9,25,2,1835,0)="""RTN"",""ECBEN2U"",69,0)"
^XMB(3.9,25,2,1836,0)=" I EC4 D CLIN^ECPCEU"
^XMB(3.9,25,2,1837,0)="""RTN"",""ECBEN2U"",70,0)"
^XMB(3.9,25,2,1838,0)=" I 'EC4 S ECREAS=""Clinic missing;"""
^XMB(3.9,25,2,1839,0)="""RTN"",""ECBEN2U"",71,0)"
^XMB(3.9,25,2,1840,0)=" I 'ECDX S ECREAS=""Diagnosis not entered;"""
^XMB(3.9,25,2,1841,0)="""RTN"",""ECBEN2U"",72,0)"
^XMB(3.9,25,2,1842,0)=" I EC4,'ECPCL S ECREAS=ECREAS_""Clinic inactive;"""
^XMB(3.9,25,2,1843,0)="""RTN"",""ECBEN2U"",73,0)"
^XMB(3.9,25,2,1844,0)=" I 'ECCPT S ECREAS=ECREAS_""CPT code missing;"""
^XMB(3.9,25,2,1845,0)="""RTN"",""ECBEN2U"",74,0)"
^XMB(3.9,25,2,1846,0)=" I ECREAS]"""" S ^ECH(ECFN,""R"")=ECREAS K ECPCL,ECREAS Q"
^XMB(3.9,25,2,1847,0)="""RTN"",""ECBEN2U"",75,0)"
^XMB(3.9,25,2,1848,0)=" I '$D(^ECH(ECFN,0)) Q"
^XMB(3.9,25,2,1849,0)="""RTN"",""ECBEN2U"",76,0)"
^XMB(3.9,25,2,1850,0)=" I '$D(^ECH(ECFN,""P"")) Q"
^XMB(3.9,25,2,1851,0)="""RTN"",""ECBEN2U"",77,0)"
^XMB(3.9,25,2,1852,0)=" S PN=^ECH(ECFN,0),PNP=^ECH(ECFN,""P"")"
^XMB(3.9,25,2,1853,0)="""RTN"",""ECBEN2U"",78,0)"
^XMB(3.9,25,2,1854,0)=" S PNMOD="""" I $D(^ECH(ECFN,""MOD"")) D"
^XMB(3.9,25,2,1855,0)="""RTN"",""ECBEN2U"",79,0)"
^XMB(3.9,25,2,1856,0)=" . N MOD,MODS S MODS=0 F  S MODS=$O(^ECH(ECFN,""MOD"",MODS)) Q:'MODS  D"
^XMB(3.9,25,2,1857,0)="""RTN"",""ECBEN2U"",80,0)"
^XMB(3.9,25,2,1858,0)=" . . S MOD=$P($G(^ECH(ECFN,""MOD"",MODS,0)),U)"
^XMB(3.9,25,2,1859,0)="""RTN"",""ECBEN2U"",81,0)"
^XMB(3.9,25,2,1860,0)=" . . S MOD=$$MOD^ICPTMOD(MOD,""I"",$P(PN,U,3)) I +MOD<0 Q"
^XMB(3.9,25,2,1861,0)="""RTN"",""ECBEN2U"",82,0)"
^XMB(3.9,25,2,1862,0)=" . . S PNMOD=$S(PNMOD'="""":PNMOD_"";"",1:"""")_$P(MOD,U,2)"
^XMB(3.9,25,2,1863,0)="""RTN"",""ECBEN2U"",83,0)"
^XMB(3.9,25,2,1864,0)="SET ;set data pieces"
^XMB(3.9,25,2,1865,0)="""RTN"",""ECBEN2U"",84,0)"
^XMB(3.9,25,2,1866,0)=" S ECP3=+$P(PN,""^"",3) I ECP3'[""."" K ECP3 D DELNOD Q"
^XMB(3.9,25,2,1867,0)="""RTN"",""ECBEN2U"",85,0)"
^XMB(3.9,25,2,1868,0)=" S ECP2=+$P(PN,""^"",2) I 'ECP2 K ECP2 D DELNOD Q"
^XMB(3.9,25,2,1869,0)="""RTN"",""ECBEN2U"",86,0)"
^XMB(3.9,25,2,1870,0)=" S ECP19=+$P(PN,""^"",19) I 'ECP19 K ECP19 D DELNOD Q"
^XMB(3.9,25,2,1871,0)="""RTN"",""ECBEN2U"",87,0)"
^XMB(3.9,25,2,1872,0)=" S ECP4=+$P(PN,""^"",4) I 'ECP4 K ECP4 D DELNOD Q"
^XMB(3.9,25,2,1873,0)="""RTN"",""ECBEN2U"",88,0)"
^XMB(3.9,25,2,1874,0)=" S ECP20=+$P(PN,""^"",20) I 'ECP20 K ECP20 D DELNOD Q"
^XMB(3.9,25,2,1875,0)="""RTN"",""ECBEN2U"",89,0)"
^XMB(3.9,25,2,1876,0)=" S ECP10=+$P(PN,""^"",10) I 'ECP10 K ECP10 D DELNOD Q"
^XMB(3.9,25,2,1877,0)="""RTN"",""ECBEN2U"",90,0)"
^XMB(3.9,25,2,1878,0)=" S ECPP1=+$P(PNP,""^"") I 'ECPP1 K ECPP1 D DELNOD Q"
^XMB(3.9,25,2,1879,0)="""RTN"",""ECBEN2U"",91,0)"
^XMB(3.9,25,2,1880,0)=" S ECPP2=+$P(PNP,""^"",2) I 'ECPP2 K ECPP2 D DELNOD Q"
^XMB(3.9,25,2,1881,0)="""RTN"",""ECBEN2U"",92,0)"
^XMB(3.9,25,2,1882,0)=" S ECPP3=$P(PNP,""^"",3),ECPP3=$S(ECPP3=""Y"":1,ECPP3=""N"":0,1:"""")"
^XMB(3.9,25,2,1883,0)="""RTN"",""ECBEN2U"",93,0)"
^XMB(3.9,25,2,1884,0)=" S ECPP4=$P(PNP,""^"",4),ECPP4=$S(ECPP4=""Y"":1,ECPP4=""N"":0,1:"""")"
^XMB(3.9,25,2,1885,0)="""RTN"",""ECBEN2U"",94,0)"
^XMB(3.9,25,2,1886,0)=" S ECPP5=$P(PNP,""^"",5),ECPP5=$S(ECPP5=""Y"":1,ECPP5=""N"":0,1:"""")"
^XMB(3.9,25,2,1887,0)="""RTN"",""ECBEN2U"",95,0)"
^XMB(3.9,25,2,1888,0)=" S ECPP6=$P(PNP,""^"",6),ECPP6=$S(ECPP6=""Y"":1,ECPP6=""N"":0,1:"""")"
^XMB(3.9,25,2,1889,0)="""RTN"",""ECBEN2U"",96,0)"
^XMB(3.9,25,2,1890,0)=" S ECPP9=$P(PNP,""^"",9),ECPP9=$S(ECPP9=""Y"":1,ECPP9=""N"":0,1:"""")"
^XMB(3.9,25,2,1891,0)="""RTN"",""ECBEN2U"",97,0)"
^XMB(3.9,25,2,1892,0)=" S ECPP10=$P(PNP,""^"",10),ECPP10=$S(ECPP10=""Y"":1,ECPP10=""N"":0,1:"""")"
^XMB(3.9,25,2,1893,0)="""RTN"",""ECBEN2U"",98,0)"
^XMB(3.9,25,2,1894,0)=" S ECPP11=$P(PNP,""^"",11),ECPP11=$S(ECPP11=""Y"":1,ECPP11=""N"":0,1:"""")"
^XMB(3.9,25,2,1895,0)="""RTN"",""ECBEN2U"",99,0)"
^XMB(3.9,25,2,1896,0)=" S ECPP1A="""" I $P(PN,""^"",9)[""EC"" S ECPP1A=$G(^EC(725,+$P(PN,""^"",9),0)),ECPP1A=$P(ECPP1A,""^"",2)_""  ""_$P(ECPP1A,""^"")"
^XMB(3.9,25,2,1897,0)="""RTN"",""ECBEN2U"",100,0)"
^XMB(3.9,25,2,1898,0)=" S ECELIG=$S($G(ECELIG):ECELIG,1:"""")"
^XMB(3.9,25,2,1899,0)="""RTN"",""ECBEN2U"",101,0)"
^XMB(3.9,25,2,1900,0)="NODE ;sets ""PCE"" node"
^XMB(3.9,25,2,1901,0)="""RTN"",""ECBEN2U"",102,0)"
^XMB(3.9,25,2,1902,0)=" ;d/t~dfn~hosp loc~inst~dss id~*prov(not filled)~*prov2~*prov3~vol~cpt~dx~ao~rad~env~sc~ecs nat # & name~eligibility~mst~hnc~cv"
^XMB(3.9,25,2,1903,0)="""RTN"",""ECBEN2U"",103,0)"
^XMB(3.9,25,2,1904,0)=" S PNODE=ECP3_""~""_ECP2_""~""_ECP19_""~""_ECP4_""~""_ECP20_""~~~~""_ECP10_""~""_ECPP1_""~""_ECPP2_""~""_ECPP3_""~""_ECPP4_""~""_ECPP5_""~""_ECPP6_""~""_ECPP1A_""~""_ECELIG_""~""_ECPP9_""~""_ECPP10_""~""_ECPP11"
^XMB(3.9,25,2,1905,0)="""RTN"",""ECBEN2U"",104,0)"
^XMB(3.9,25,2,1906,0)=" S ^ECH(ECFN,""PCE"")=PNODE"
^XMB(3.9,25,2,1907,0)="""RTN"",""ECBEN2U"",105,0)"
^XMB(3.9,25,2,1908,0)=" ;set ""PCE1"" node"
^XMB(3.9,25,2,1909,0)="""RTN"",""ECBEN2U"",106,0)"
^XMB(3.9,25,2,1910,0)=" ;CPT modifier1;CPT modifier 2;CPT modifier 3;...CPT modifier n"
^XMB(3.9,25,2,1911,0)="""RTN"",""ECBEN2U"",107,0)"
^XMB(3.9,25,2,1912,0)=" I PNMOD'="""" S ^ECH(ECFN,""PCE1"")=PNMOD"
^XMB(3.9,25,2,1913,0)="""RTN"",""ECBEN2U"",108,0)"
^XMB(3.9,25,2,1914,0)=" S DA=ECFN,DIE=721,DR=""31////""_ECDT D ^DIE K DA,DIE,DR"
^XMB(3.9,25,2,1915,0)="""RTN"",""ECBEN2U"",109,0)"
^XMB(3.9,25,2,1916,0)=" K ECP2,ECP3,ECP4,ECP10,ECP19,ECP20,ECPP1,ECPP1A,ECPP2,ECPP3,ECPP4,ECPP5,ECPP6,ECPP9,ECPP10,ECPP11,ECREAS,ECPCL,PN,PNP,PNODE,ECELIG,PNMOD"
^XMB(3.9,25,2,1917,0)="""RTN"",""ECBEN2U"",110,0)"
^XMB(3.9,25,2,1918,0)=" Q"
^XMB(3.9,25,2,1919,0)="""RTN"",""ECBEN2U"",111,0)"
^XMB(3.9,25,2,1920,0)="CLIN ;check for active associated clinic"
^XMB(3.9,25,2,1921,0)="""RTN"",""ECBEN2U"",112,0)"
^XMB(3.9,25,2,1922,0)=" S MSG1=1,MSG2=0"
^XMB(3.9,25,2,1923,0)="""RTN"",""ECBEN2U"",113,0)"
^XMB(3.9,25,2,1924,0)=" D CLIN^ECPCEU"
^XMB(3.9,25,2,1925,0)="""RTN"",""ECBEN2U"",114,0)"
^XMB(3.9,25,2,1926,0)=" I 'ECPCL D"
^XMB(3.9,25,2,1927,0)="""RTN"",""ECBEN2U"",115,0)"
^XMB(3.9,25,2,1928,0)=" .W !!,""The clinic "",$S(MSG1:""associated with"",1:""you selected for""),"" this procedure "",$S(MSG2:""has not been entered"",1:""is inactive""),""."""
^XMB(3.9,25,2,1929,0)="""RTN"",""ECBEN2U"",116,0)"
^XMB(3.9,25,2,1930,0)=" .W !,""Workload data cannot be sent to PCE for this procedure with "",!,$S(MSG2:""a missing"",1:""an inactive""),"" clinic."""
^XMB(3.9,25,2,1931,0)="""RTN"",""ECBEN2U"",117,0)"
^XMB(3.9,25,2,1932,0)=" S (MSG1,MSG2)=0"
^XMB(3.9,25,2,1933,0)="""RTN"",""ECBEN2U"",118,0)"
^XMB(3.9,25,2,1934,0)=" Q"
^XMB(3.9,25,2,1935,0)="""RTN"",""ECBEN2U"",119,0)"
^XMB(3.9,25,2,1936,0)=" ;"
^XMB(3.9,25,2,1937,0)="""RTN"",""ECBEN2U"",120,0)"
^XMB(3.9,25,2,1938,0)=" ;"
^XMB(3.9,25,2,1939,0)="""RTN"",""ECBEN2U"",121,0)"
^XMB(3.9,25,2,1940,0)="KILLR ;- Kill 'R' (Reason) node"
^XMB(3.9,25,2,1941,0)="""RTN"",""ECBEN2U"",122,0)"
^XMB(3.9,25,2,1942,0)=" ;"
^XMB(3.9,25,2,1943,0)="""RTN"",""ECBEN2U"",123,0)"
^XMB(3.9,25,2,1944,0)=" K ^ECH(ECFN,""R"")"
^XMB(3.9,25,2,1945,0)="""RTN"",""ECBEN2U"",124,0)"
^XMB(3.9,25,2,1946,0)=" Q"
^XMB(3.9,25,2,1947,0)="""RTN"",""ECBEN2U"",125,0)"
^XMB(3.9,25,2,1948,0)=" ;"
^XMB(3.9,25,2,1949,0)="""RTN"",""ECBEN2U"",126,0)"
^XMB(3.9,25,2,1950,0)=" ;"
^XMB(3.9,25,2,1951,0)="""RTN"",""ECBEN2U"",127,0)"
^XMB(3.9,25,2,1952,0)="DELNOD ;- Delete 'PCE' and 'Send' nodes"
^XMB(3.9,25,2,1953,0)="""RTN"",""ECBEN2U"",128,0)"
^XMB(3.9,25,2,1954,0)=" ;"
^XMB(3.9,25,2,1955,0)="""RTN"",""ECBEN2U"",129,0)"
^XMB(3.9,25,2,1956,0)=" N DA,DIE,DR"
^XMB(3.9,25,2,1957,0)="""RTN"",""ECBEN2U"",130,0)"
^XMB(3.9,25,2,1958,0)=" ;"
^XMB(3.9,25,2,1959,0)="""RTN"",""ECBEN2U"",131,0)"
^XMB(3.9,25,2,1960,0)=" ;- Lock node"
^XMB(3.9,25,2,1961,0)="""RTN"",""ECBEN2U"",132,0)"
^XMB(3.9,25,2,1962,0)=" L +^ECH(ECFN):5 Q:'$T"
^XMB(3.9,25,2,1963,0)="""RTN"",""ECBEN2U"",133,0)"
^XMB(3.9,25,2,1964,0)=" S DA=ECFN"
^XMB(3.9,25,2,1965,0)="""RTN"",""ECBEN2U"",134,0)"
^XMB(3.9,25,2,1966,0)=" S DIE=""^ECH("""
^XMB(3.9,25,2,1967,0)="""RTN"",""ECBEN2U"",135,0)"
^XMB(3.9,25,2,1968,0)=" S DR=""30////@;31////@;37////@"""
^XMB(3.9,25,2,1969,0)="""RTN"",""ECBEN2U"",136,0)"
^XMB(3.9,25,2,1970,0)=" ;"
^XMB(3.9,25,2,1971,0)="""RTN"",""ECBEN2U"",137,0)"
^XMB(3.9,25,2,1972,0)=" ;- Delete contents"
^XMB(3.9,25,2,1973,0)="""RTN"",""ECBEN2U"",138,0)"
^XMB(3.9,25,2,1974,0)=" D ^DIE"
^XMB(3.9,25,2,1975,0)="""RTN"",""ECBEN2U"",139,0)"
^XMB(3.9,25,2,1976,0)=" ;"
^XMB(3.9,25,2,1977,0)="""RTN"",""ECBEN2U"",140,0)"
^XMB(3.9,25,2,1978,0)=" ;- Unlock node"
^XMB(3.9,25,2,1979,0)="""RTN"",""ECBEN2U"",141,0)"
^XMB(3.9,25,2,1980,0)=" L -^ECH(ECFN)"
^XMB(3.9,25,2,1981,0)="""RTN"",""ECBEN2U"",142,0)"
^XMB(3.9,25,2,1982,0)=" Q"
^XMB(3.9,25,2,1983,0)="""RTN"",""ECBENF"")"
^XMB(3.9,25,2,1984,0)="0^19^B10029012^B11054581"
^XMB(3.9,25,2,1985,0)="""RTN"",""ECBENF"",1,0)"
^XMB(3.9,25,2,1986,0)="ECBENF ;BIR/MAM,JPW-Stuff New Batched Procedures ;12 Feb 96"
^XMB(3.9,25,2,1987,0)="""RTN"",""ECBENF"",2,0)"
^XMB(3.9,25,2,1988,0)=" ;;2.0; EVENT CAPTURE ;**4,5,13,17,18,23,42,54,72**;8 May 96"
^XMB(3.9,25,2,1989,0)="""RTN"",""ECBENF"",3,0)"
^XMB(3.9,25,2,1990,0)="CRAM ; entry"
^XMB(3.9,25,2,1991,0)="""RTN"",""ECBENF"",4,0)"
^XMB(3.9,25,2,1992,0)=" S ECDT=$P(ECA,""^""),ECL=$P(ECA,""^"",2),ECS=$P(ECA,""^"",3),ECM=$P(ECA,""^"",4),ECD=$P(ECA,""^"",5)"
^XMB(3.9,25,2,1993,0)="""RTN"",""ECBENF"",5,0)"
^XMB(3.9,25,2,1994,0)=" S ECPCE=$P(ECA,""^"",6)"
^XMB(3.9,25,2,1995,0)="""RTN"",""ECBENF"",6,0)"
^XMB(3.9,25,2,1996,0)=" S (CNT,CNT1)=0"
^XMB(3.9,25,2,1997,0)="""RTN"",""ECBENF"",7,0)"
^XMB(3.9,25,2,1998,0)=" F  S CNT1=$O(ECPT(CNT1)) Q:'CNT1  D"
^XMB(3.9,25,2,1999,0)="""RTN"",""ECBENF"",8,0)"
^XMB(3.9,25,2,2000,0)=" .S ECNODE2=$G(ECPT(CNT1))"
^XMB(3.9,25,2,2001,0)="""RTN"",""ECBENF"",9,0)"
^XMB(3.9,25,2,2002,0)=" .S ECELIG=$G(ECELPT(CNT1))"
^XMB(3.9,25,2,2003,0)="""RTN"",""ECBENF"",10,0)"
^XMB(3.9,25,2,2004,0)=" .S ECPS=$P(ECNODE2,""^""),ECDX=$P(ECNODE2,""^"",3),ECINP=$P(ECNODE2,""^"",4),ECVST=$P(ECNODE2,""^"",5),ECSC=$P(ECNODE2,""^"",6),ECAO=$P(ECNODE2,""^"",7),ECIR=$P(ECNODE2,""^"",8),ECZEC=$P(ECNODE2,""^"",9),ECMST=$P(ECNODE2,""^"",12)"
^XMB(3.9,25,2,2005,0)="""RTN"",""ECBENF"",11,0)"
^XMB(3.9,25,2,2006,0)=" .S ECHNC=$P(ECNODE2,""^"",13),ECCV=$P(ECNODE2,""^"",14)"
^XMB(3.9,25,2,2007,0)="""RTN"",""ECBENF"",12,0)"
^XMB(3.9,25,2,2008,0)=" .F  S CNT=$O(ECEC(CNT)) Q:'CNT  D"
^XMB(3.9,25,2,2009,0)="""RTN"",""ECBENF"",13,0)"
^XMB(3.9,25,2,2010,0)=" ..S EC4=$P(ECNODE2,""^"",10),ECID=$P(ECNODE2,""^"",11)"
^XMB(3.9,25,2,2011,0)="""RTN"",""ECBENF"",14,0)"
^XMB(3.9,25,2,2012,0)=" ..D NODE D DIE"
^XMB(3.9,25,2,2013,0)="""RTN"",""ECBENF"",15,0)"
^XMB(3.9,25,2,2014,0)="END D ^ECKILL K DLAYGO S:$D(ZTQUEUED) ZTREQ=""@"""
^XMB(3.9,25,2,2015,0)="""RTN"",""ECBENF"",16,0)"
^XMB(3.9,25,2,2016,0)=" Q"
^XMB(3.9,25,2,2017,0)="""RTN"",""ECBENF"",17,0)"
^XMB(3.9,25,2,2018,0)="NODE ;set patient array data"
^XMB(3.9,25,2,2019,0)="""RTN"",""ECBENF"",18,0)"
^XMB(3.9,25,2,2020,0)=" S ECNODE=ECEC(CNT)"
^XMB(3.9,25,2,2021,0)="""RTN"",""ECBENF"",19,0)"
^XMB(3.9,25,2,2022,0)=" S ECC=+$P(ECNODE,""^""),ECP=$P(ECNODE,""^"",2),ECO=$P(ECNODE,""^"",4),ECV=$P(ECNODE,""^"",5)"
^XMB(3.9,25,2,2023,0)="""RTN"",""ECBENF"",20,0)"
^XMB(3.9,25,2,2024,0)=" S ECCPT=$P(ECNODE,""^"",11),ECPRPTR=$P(ECNODE,""^"",12)"
^XMB(3.9,25,2,2025,0)="""RTN"",""ECBENF"",21,0)"
^XMB(3.9,25,2,2026,0)=" ;"
^XMB(3.9,25,2,2027,0)="""RTN"",""ECBENF"",22,0)"
^XMB(3.9,25,2,2028,0)=" ;- Get associated clinic from event code screen if null"
^XMB(3.9,25,2,2029,0)="""RTN"",""ECBENF"",23,0)"
^XMB(3.9,25,2,2030,0)=" S:$G(EC4)="""" EC4=$P($G(^ECJ(+$O(^ECJ(""AP"",+ECL,+ECD,+ECC,$G(ECP),0)),""PRO"")),""^"",4)"
^XMB(3.9,25,2,2031,0)="""RTN"",""ECBENF"",24,0)"
^XMB(3.9,25,2,2032,0)=" S:$G(ECID)="""" ECID=$P($G(^SC(+EC4,0)),""^"",7)"
^XMB(3.9,25,2,2033,0)="""RTN"",""ECBENF"",25,0)"
^XMB(3.9,25,2,2034,0)=" Q"
^XMB(3.9,25,2,2035,0)="""RTN"",""ECBENF"",26,0)"
^XMB(3.9,25,2,2036,0)="DIE ;"
^XMB(3.9,25,2,2037,0)="""RTN"",""ECBENF"",27,0)"
^XMB(3.9,25,2,2038,0)=" L +^ECH(0) S ECRN=$P(^ECH(0),""^"",3)+1 I $D(^ECH(ECRN)) S $P(^ECH(0),""^"",3)=$P(^ECH(0),""^"",3)+1 L -^ECH(0) G DIE"
^XMB(3.9,25,2,2039,0)="""RTN"",""ECBENF"",28,0)"
^XMB(3.9,25,2,2040,0)=" L -^ECH(0) K DD,DO,DIC S X=ECRN,DIC(0)=""L"",DLAYGO=721,DIC=""^ECH("" D FILE^DICN K DIC S ECFN=+Y"
^XMB(3.9,25,2,2041,0)="""RTN"",""ECBENF"",29,0)"
^XMB(3.9,25,2,2042,0)=" ; set the zero node"
^XMB(3.9,25,2,2043,0)="""RTN"",""ECBENF"",30,0)"
^XMB(3.9,25,2,2044,0)=" S ^ECH(ECFN,0)=ECFN_""^""_ECPS_""^""_ECDT_""^""_ECL_""^""_ECS_""^""_ECM_""^""_ECD_""^""_ECC_""^""_ECP_""^""_ECV_""^^""_ECO_""^""_ECDUZ_""^^^^^^""_EC4_""^""_ECID_""^""_ECVST_""^""_ECINP"
^XMB(3.9,25,2,2045,0)="""RTN"",""ECBENF"",31,0)"
^XMB(3.9,25,2,2046,0)=" ;ALB/JAM file multiple providers (EC*2*72)"
^XMB(3.9,25,2,2047,0)="""RTN"",""ECBENF"",32,0)"
^XMB(3.9,25,2,2048,0)=" S ECFIL=$$FILPRV^ECPRVMUT(ECFN,.ECPRVARY,.ECOUT) K ECFIL"
^XMB(3.9,25,2,2049,0)="""RTN"",""ECBENF"",33,0)"
^XMB(3.9,25,2,2050,0)=" ; ALB/JAM add CPT procedure modifiers"
^XMB(3.9,25,2,2051,0)="""RTN"",""ECBENF"",34,0)"
^XMB(3.9,25,2,2052,0)=" I $O(ECEC(CNT,""MOD"",""""))'="""" D  K MODIEN,MOD"
^XMB(3.9,25,2,2053,0)="""RTN"",""ECBENF"",35,0)"
^XMB(3.9,25,2,2054,0)=" . S MOD="""" F  S MOD=$O(ECEC(CNT,""MOD"",MOD)) Q:MOD=""""  D"
^XMB(3.9,25,2,2055,0)="""RTN"",""ECBENF"",36,0)"
^XMB(3.9,25,2,2056,0)=" . . S MODIEN=$P(ECEC(CNT,""MOD"",MOD),U,2) I MODIEN<0 Q"
^XMB(3.9,25,2,2057,0)="""RTN"",""ECBENF"",37,0)"
^XMB(3.9,25,2,2058,0)=" . . K DIC,DD,DO"
^XMB(3.9,25,2,2059,0)="""RTN"",""ECBENF"",38,0)"
^XMB(3.9,25,2,2060,0)=" . . S DIC(0)=""L"",DA(1)=ECFN,DIC=""^ECH(""_DA(1)_"",""_""""""MOD""""""_"","""
^XMB(3.9,25,2,2061,0)="""RTN"",""ECBENF"",39,0)"
^XMB(3.9,25,2,2062,0)=" . . S DIC(""P"")=$P(^DD(721,36,0),U,2),X=MODIEN"
^XMB(3.9,25,2,2063,0)="""RTN"",""ECBENF"",40,0)"
^XMB(3.9,25,2,2064,0)=" . . D FILE^DICN"
^XMB(3.9,25,2,2065,0)="""RTN"",""ECBENF"",41,0)"
^XMB(3.9,25,2,2066,0)=" ; ALB/ESD - Set procedure reason into zero node"
^XMB(3.9,25,2,2067,0)="""RTN"",""ECBENF"",42,0)"
^XMB(3.9,25,2,2068,0)=" I +ECPRPTR S $P(^ECH(ECFN,0),""^"",23)=+ECPRPTR"
^XMB(3.9,25,2,2069,0)="""RTN"",""ECBENF"",43,0)"
^XMB(3.9,25,2,2070,0)=" ;set the ""P"" node"
^XMB(3.9,25,2,2071,0)="""RTN"",""ECBENF"",44,0)"
^XMB(3.9,25,2,2072,0)=" S ^ECH(ECFN,""P"")=ECCPT_""^""_ECDX_""^""_ECAO_""^""_ECIR_""^""_ECZEC_""^""_ECSC"
^XMB(3.9,25,2,2073,0)="""RTN"",""ECBENF"",45,0)"
^XMB(3.9,25,2,2074,0)=" S $P(^ECH(ECFN,""P""),""^"",9,12)=ECMST_""^""_ECHNC_""^""_ECCV"
^XMB(3.9,25,2,2075,0)="""RTN"",""ECBENF"",46,0)"
^XMB(3.9,25,2,2076,0)=" ; ALB/JAM - add secondary diagnosis codes"
^XMB(3.9,25,2,2077,0)="""RTN"",""ECBENF"",47,0)"
^XMB(3.9,25,2,2078,0)=" I $O(ECPT(CNT1,""DXS"",""""))'="""" D  K DXSIEN,DXS"
^XMB(3.9,25,2,2079,0)="""RTN"",""ECBENF"",48,0)"
^XMB(3.9,25,2,2080,0)=" . S DXS="""" F  S DXS=$O(ECPT(CNT1,""DXS"",DXS)) Q:DXS=""""  D"
^XMB(3.9,25,2,2081,0)="""RTN"",""ECBENF"",49,0)"
^XMB(3.9,25,2,2082,0)=" . . S DXSIEN=$P(ECPT(CNT1,""DXS"",DXS),U) I DXSIEN<0 Q"
^XMB(3.9,25,2,2083,0)="""RTN"",""ECBENF"",50,0)"
^XMB(3.9,25,2,2084,0)=" . . K DIC,DD,DO"
^XMB(3.9,25,2,2085,0)="""RTN"",""ECBENF"",51,0)"
^XMB(3.9,25,2,2086,0)=" . . S DIC(0)=""L"",DA(1)=ECFN,DIC=""^ECH(""_DA(1)_"",""_""""""DX""""""_"","""
^XMB(3.9,25,2,2087,0)="""RTN"",""ECBENF"",52,0)"
^XMB(3.9,25,2,2088,0)=" . . S DIC(""P"")=$P(^DD(721,38,0),U,2),X=DXSIEN"
^XMB(3.9,25,2,2089,0)="""RTN"",""ECBENF"",53,0)"
^XMB(3.9,25,2,2090,0)=" . . D FILE^DICN"
^XMB(3.9,25,2,2091,0)="""RTN"",""ECBENF"",54,0)"
^XMB(3.9,25,2,2092,0)=" K ECDXX M ECDXX=ECPT(CNT1,""DXS"")"
^XMB(3.9,25,2,2093,0)="""RTN"",""ECBENF"",55,0)"
^XMB(3.9,25,2,2094,0)=" S PXUPD=$$PXUPD^ECUTL2(ECPS,ECDT,ECL,EC4,ECDX,.ECDXX,ECFN) K PXUPD,ECDXX"
^XMB(3.9,25,2,2095,0)="""RTN"",""ECBENF"",56,0)"
^XMB(3.9,25,2,2096,0)="XREF ; sets crossreferences"
^XMB(3.9,25,2,2097,0)="""RTN"",""ECBENF"",57,0)"
^XMB(3.9,25,2,2098,0)=" S DIK=""^ECH("",DA=ECFN D IX1^DIK K DA,DIK"
^XMB(3.9,25,2,2099,0)="""RTN"",""ECBENF"",58,0)"
^XMB(3.9,25,2,2100,0)=" ;"
^XMB(3.9,25,2,2101,0)="""RTN"",""ECBENF"",59,0)"
^XMB(3.9,25,2,2102,0)="PCE ;format PCE data to send"
^XMB(3.9,25,2,2103,0)="""RTN"",""ECBENF"",60,0)"
^XMB(3.9,25,2,2104,0)=" Q:$P(ECPCE,""~"",2)=""N""  I $P(ECPCE,""~"",2)=""O""&(ECINP'=""O"") Q"
^XMB(3.9,25,2,2105,0)="""RTN"",""ECBENF"",61,0)"
^XMB(3.9,25,2,2106,0)=" D PCE^ECBEN2U"
^XMB(3.9,25,2,2107,0)="""RTN"",""ECBENF"",62,0)"
^XMB(3.9,25,2,2108,0)=" Q"
^XMB(3.9,25,2,2109,0)="""RTN"",""ECBEP1A"")"
^XMB(3.9,25,2,2110,0)="0^13^B1169013^B1098028"
^XMB(3.9,25,2,2111,0)="""RTN"",""ECBEP1A"",1,0)"
^XMB(3.9,25,2,2112,0)="ECBEP1A ;BIR;JPW-Batch Entry by Procedure (cont'd) ;2 Mar 96"
^XMB(3.9,25,2,2113,0)="""RTN"",""ECBEP1A"",2,0)"
^XMB(3.9,25,2,2114,0)=" ;;2.0; EVENT CAPTURE ;**4,5,72**;8 May 96"
^XMB(3.9,25,2,2115,0)="""RTN"",""ECBEP1A"",3,0)"
^XMB(3.9,25,2,2116,0)="DATE ;select date"
^XMB(3.9,25,2,2117,0)="""RTN"",""ECBEP1A"",4,0)"
^XMB(3.9,25,2,2118,0)=" K %DT S %DT=""AEXR"""
^XMB(3.9,25,2,2119,0)="""RTN"",""ECBEP1A"",5,0)"
^XMB(3.9,25,2,2120,0)=" I ECDDT="""",$G(ECDR)]"""" S %DT(""B"")=ECDR G DATE1"
^XMB(3.9,25,2,2121,0)="""RTN"",""ECBEP1A"",6,0)"
^XMB(3.9,25,2,2122,0)=" I ECDDT'="""" S %DT(""B"")=ECDDT"
^XMB(3.9,25,2,2123,0)="""RTN"",""ECBEP1A"",7,0)"
^XMB(3.9,25,2,2124,0)=" ;"
^XMB(3.9,25,2,2125,0)="""RTN"",""ECBEP1A"",8,0)"
^XMB(3.9,25,2,2126,0)=" ; ALB/ESD - Prevent future dates from being entered"
^XMB(3.9,25,2,2127,0)="""RTN"",""ECBEP1A"",9,0)"
^XMB(3.9,25,2,2128,0)="DATE1 S %DT(""A"")=""Procedure Date and Time: "",%DT(0)=""-NOW"" D ^%DT I Y<0 S ECOUT=1 Q"
^XMB(3.9,25,2,2129,0)="""RTN"",""ECBEP1A"",10,0)"
^XMB(3.9,25,2,2130,0)=" S ECDT=+Y,(ECDATE,ECDR)=$$FMTE^XLFDT(ECDT) K %DT"
^XMB(3.9,25,2,2131,0)="""RTN"",""ECBEP1A"",11,0)"
^XMB(3.9,25,2,2132,0)=" ;"
^XMB(3.9,25,2,2133,0)="""RTN"",""ECBEP1A"",12,0)"
^XMB(3.9,25,2,2134,0)=" ;select provider(s) with active person class"
^XMB(3.9,25,2,2135,0)="""RTN"",""ECBEP1A"",13,0)"
^XMB(3.9,25,2,2136,0)=" D ASKPRV^ECPRVMUT("""",ECDT,.ECPRVARY,.ECOUT)"
^XMB(3.9,25,2,2137,0)="""RTN"",""ECBEP1A"",14,0)"
^XMB(3.9,25,2,2138,0)=" I $G(ECOUT) S ECOUT=1 K ECPRVARY Q"
^XMB(3.9,25,2,2139,0)="""RTN"",""ECBEP1A"",15,0)"
^XMB(3.9,25,2,2140,0)=" ;"
^XMB(3.9,25,2,2141,0)="""RTN"",""ECBEP1A"",16,0)"
^XMB(3.9,25,2,2142,0)="CAT ;select category"
^XMB(3.9,25,2,2143,0)="""RTN"",""ECBEP1A"",17,0)"
^XMB(3.9,25,2,2144,0)=" D ^ECBEP1B K ECPRVARY I ECOUT=2 D MSG S ECOUT=2 Q"
^XMB(3.9,25,2,2145,0)="""RTN"",""ECBEP1A"",18,0)"
^XMB(3.9,25,2,2146,0)="END Q"
^XMB(3.9,25,2,2147,0)="""RTN"",""ECBEP1A"",19,0)"
^XMB(3.9,25,2,2148,0)=" ;"
^XMB(3.9,25,2,2149,0)="""RTN"",""ECBEP1A"",20,0)"
^XMB(3.9,25,2,2150,0)="MSG ;quit msg"
^XMB(3.9,25,2,2151,0)="""RTN"",""ECBEP1A"",21,0)"
^XMB(3.9,25,2,2152,0)=" W !!,""No action taken."",!!,""Press <RET> to continue "" R X:DTIME S ECOUT=1"
^XMB(3.9,25,2,2153,0)="""RTN"",""ECBEP1A"",22,0)"
^XMB(3.9,25,2,2154,0)=" Q"
^XMB(3.9,25,2,2155,0)="""RTN"",""ECBEP1B"")"
^XMB(3.9,25,2,2156,0)="0^20^B43458281^B46312174"
^XMB(3.9,25,2,2157,0)="""RTN"",""ECBEP1B"",1,0)"
^XMB(3.9,25,2,2158,0)="ECBEP1B ;BIR/MAM,JPW-Batch Entry by Procedure (cont'd) ;30 Apr 96"
^XMB(3.9,25,2,2159,0)="""RTN"",""ECBEP1B"",2,0)"
^XMB(3.9,25,2,2160,0)=" ;;2.0; EVENT CAPTURE ;**1,4,5,10,13,17,18,42,47,54,72**;8 May 96"
^XMB(3.9,25,2,2161,0)="""RTN"",""ECBEP1B"",3,0)"
^XMB(3.9,25,2,2162,0)="CHK ; check unit for valid categories"
^XMB(3.9,25,2,2163,0)="""RTN"",""ECBEP1B"",4,0)"
^XMB(3.9,25,2,2164,0)=" K ECC,ECCN,ECHOICE,ECEC,ECSTOP"
^XMB(3.9,25,2,2165,0)="""RTN"",""ECBEP1B"",5,0)"
^XMB(3.9,25,2,2166,0)=" S (COUNT,EC1)=0"
^XMB(3.9,25,2,2167,0)="""RTN"",""ECBEP1B"",6,0)"
^XMB(3.9,25,2,2168,0)=" D CATS^ECHECK1 S ECONE="""""
^XMB(3.9,25,2,2169,0)="""RTN"",""ECBEP1B"",7,0)"
^XMB(3.9,25,2,2170,0)=" I '$D(ECC(1)) S ECC=0,ECCN=""None"",ECONE=0 G P"
^XMB(3.9,25,2,2171,0)="""RTN"",""ECBEP1B"",8,0)"
^XMB(3.9,25,2,2172,0)=" I '$D(ECC(2)) S ECC=+ECC(1),ECCN=$P(ECC(1),""^"",2),ECONE=1 G P"
^XMB(3.9,25,2,2173,0)="""RTN"",""ECBEP1B"",9,0)"
^XMB(3.9,25,2,2174,0)="CATS ; select category"
^XMB(3.9,25,2,2175,0)="""RTN"",""ECBEP1B"",10,0)"
^XMB(3.9,25,2,2176,0)=" S X="""",CNT=0"
^XMB(3.9,25,2,2177,0)="""RTN"",""ECBEP1B"",11,0)"
^XMB(3.9,25,2,2178,0)="LIST D HDRP^ECBEN2U S JJ=0 W !,""Categories within ""_ECDN_"": "",!"
^XMB(3.9,25,2,2179,0)="""RTN"",""ECBEP1B"",12,0)"
^XMB(3.9,25,2,2180,0)=" S EC1=0"
^XMB(3.9,25,2,2181,0)="""RTN"",""ECBEP1B"",13,0)"
^XMB(3.9,25,2,2182,0)=" F  S CNT=$O(ECC(CNT)) Q:'CNT!$D(ECHOICE)  D:($Y+5>IOSL) SELC Q:$D(ECHOICE)  I X="""" W !,CNT_""."",?5,$P(ECC(CNT),""^"",2)"
^XMB(3.9,25,2,2183,0)="""RTN"",""ECBEP1B"",14,0)"
^XMB(3.9,25,2,2184,0)=" I '$D(ECSTOP),$D(ECHOICE) S ECONE=2 G P"
^XMB(3.9,25,2,2185,0)="""RTN"",""ECBEP1B"",15,0)"
^XMB(3.9,25,2,2186,0)="PICK W !!,""Select Number:  "" R X:DTIME I '$T!(""^""[X) S ECOUT=1 Q"
^XMB(3.9,25,2,2187,0)="""RTN"",""ECBEP1B"",16,0)"
^XMB(3.9,25,2,2188,0)=" I X="""" S ECOUT=2 Q"
^XMB(3.9,25,2,2189,0)="""RTN"",""ECBEP1B"",17,0)"
^XMB(3.9,25,2,2190,0)=" I '$D(ECC(X)) W !!,""Select the number corresponding to the category, or ^ to quit."",!!,""Press <RET> to continue  "" R X:DTIME S CNT=CNT-5,X="""" G LIST"
^XMB(3.9,25,2,2191,0)="""RTN"",""ECBEP1B"",18,0)"
^XMB(3.9,25,2,2192,0)=" S ECHOICE=1,ECC=$P(ECC(X),""^""),ECCN=$P(ECC(X),""^"",2),ECONE=2"
^XMB(3.9,25,2,2193,0)="""RTN"",""ECBEP1B"",19,0)"
^XMB(3.9,25,2,2194,0)="P ;check for valid procedures"
^XMB(3.9,25,2,2195,0)="""RTN"",""ECBEP1B"",20,0)"
^XMB(3.9,25,2,2196,0)=" D PROS^ECHECK1"
^XMB(3.9,25,2,2197,0)="""RTN"",""ECBEP1B"",21,0)"
^XMB(3.9,25,2,2198,0)=" I '$O(^TMP(""ECPRO"",$J,0)) D  Q:ECOUT"
^XMB(3.9,25,2,2199,0)="""RTN"",""ECBEP1B"",22,0)"
^XMB(3.9,25,2,2200,0)=" .W !!,""Within the "",ECLN,"" location there are no procedures defined"",!"
^XMB(3.9,25,2,2201,0)="""RTN"",""ECBEP1B"",23,0)"
^XMB(3.9,25,2,2202,0)=" .W ""for the DSS Unit "",ECDN,"".  Please select another DSS Unit."",!!"
^XMB(3.9,25,2,2203,0)="""RTN"",""ECBEP1B"",24,0)"
^XMB(3.9,25,2,2204,0)=" .W ""Press <RET> to continue "" R X:DTIME S ECOUT=2 Q"
^XMB(3.9,25,2,2205,0)="""RTN"",""ECBEP1B"",25,0)"
^XMB(3.9,25,2,2206,0)=" D HDRP^ECBEN2U"
^XMB(3.9,25,2,2207,0)="""RTN"",""ECBEP1B"",26,0)"
^XMB(3.9,25,2,2208,0)="P1 ;"
^XMB(3.9,25,2,2209,0)="""RTN"",""ECBEP1B"",27,0)"
^XMB(3.9,25,2,2210,0)=" I '$D(^TMP(""ECPRO"",$J,2)) S CNT=1,ECONE=ECONE_""^1"" D SETP W !,""Procedure: "" D  G CHKP"
^XMB(3.9,25,2,2211,0)="""RTN"",""ECBEP1B"",28,0)"
^XMB(3.9,25,2,2212,0)=" . W $S(ECCPT="""":"""",1:ECPTCD_"" "")_$E(ECPN,1,50)"
^XMB(3.9,25,2,2213,0)="""RTN"",""ECBEP1B"",29,0)"
^XMB(3.9,25,2,2214,0)=" . W $S(SYN'[""NOT DEFINED"":"" [""_SYN_""]"",1:"""")_""  (#""_NATN_"")"",!"
^XMB(3.9,25,2,2215,0)="""RTN"",""ECBEP1B"",30,0)"
^XMB(3.9,25,2,2216,0)="P2 ;ask mul proc"
^XMB(3.9,25,2,2217,0)="""RTN"",""ECBEP1B"",31,0)"
^XMB(3.9,25,2,2218,0)=" S ECX="""",(ECPCNT,CNT,OK)=0,EC1=1 K ECHOICE,ECSTOP"
^XMB(3.9,25,2,2219,0)="""RTN"",""ECBEP1B"",32,0)"
^XMB(3.9,25,2,2220,0)=" S DIR(""?"")=""^D PROS^ECBEP1B"""
^XMB(3.9,25,2,2221,0)="""RTN"",""ECBEP1B"",33,0)"
^XMB(3.9,25,2,2222,0)=" S ECX=$$GETPRO^ECDSUTIL"
^XMB(3.9,25,2,2223,0)="""RTN"",""ECBEP1B"",34,0)"
^XMB(3.9,25,2,2224,0)=" I +$G(ECX)=-1,(COUNT=0) S ECOUT=2 D KILLV^ECDSUTIL Q"
^XMB(3.9,25,2,2225,0)="""RTN"",""ECBEP1B"",35,0)"
^XMB(3.9,25,2,2226,0)=" I +$G(ECX)=-1,COUNT G FILE"
^XMB(3.9,25,2,2227,0)="""RTN"",""ECBEP1B"",36,0)"
^XMB(3.9,25,2,2228,0)=" I +$G(ECX)=1 D SRCHTM^ECDSUTIL(ECX)"
^XMB(3.9,25,2,2229,0)="""RTN"",""ECBEP1B"",37,0)"
^XMB(3.9,25,2,2230,0)=" S ECPCNT=+$G(ECPCNT)"
^XMB(3.9,25,2,2231,0)="""RTN"",""ECBEP1B"",38,0)"
^XMB(3.9,25,2,2232,0)=" I ECPCNT=-1!(ECPCNT=-2) D  G P2"
^XMB(3.9,25,2,2233,0)="""RTN"",""ECBEP1B"",39,0)"
^XMB(3.9,25,2,2234,0)=" .; Don't display spacebar/return error msg since only 1 procedure"
^XMB(3.9,25,2,2235,0)="""RTN"",""ECBEP1B"",40,0)"
^XMB(3.9,25,2,2236,0)=" . D ERRMSG^ECDSUTIL"
^XMB(3.9,25,2,2237,0)="""RTN"",""ECBEP1B"",41,0)"
^XMB(3.9,25,2,2238,0)=" . D KILLV^ECDSUTIL"
^XMB(3.9,25,2,2239,0)="""RTN"",""ECBEP1B"",42,0)"
^XMB(3.9,25,2,2240,0)=" I ECPCNT>0 D  G CHKP"
^XMB(3.9,25,2,2241,0)="""RTN"",""ECBEP1B"",43,0)"
^XMB(3.9,25,2,2242,0)=" . S CNT=ECPCNT"
^XMB(3.9,25,2,2243,0)="""RTN"",""ECBEP1B"",44,0)"
^XMB(3.9,25,2,2244,0)=" . D SETP"
^XMB(3.9,25,2,2245,0)="""RTN"",""ECBEP1B"",45,0)"
^XMB(3.9,25,2,2246,0)=" . S OK=1,ECONE=ECONE_""^2"""
^XMB(3.9,25,2,2247,0)="""RTN"",""ECBEP1B"",46,0)"
^XMB(3.9,25,2,2248,0)=" . D KILLV^ECDSUTIL"
^XMB(3.9,25,2,2249,0)="""RTN"",""ECBEP1B"",47,0)"
^XMB(3.9,25,2,2250,0)=" I 'ECPCNT,$D(ECPNAME) S CNT=$$PRLST^ECDSUTIL"
^XMB(3.9,25,2,2251,0)="""RTN"",""ECBEP1B"",48,0)"
^XMB(3.9,25,2,2252,0)=" I CNT=-1 D MSG^ECBEN2U,KILLV^ECDSUTIL Q"
^XMB(3.9,25,2,2253,0)="""RTN"",""ECBEP1B"",49,0)"
^XMB(3.9,25,2,2254,0)=" I CNT>0 D  G CHKP"
^XMB(3.9,25,2,2255,0)="""RTN"",""ECBEP1B"",50,0)"
^XMB(3.9,25,2,2256,0)=" . D SETP"
^XMB(3.9,25,2,2257,0)="""RTN"",""ECBEP1B"",51,0)"
^XMB(3.9,25,2,2258,0)=" . S OK=1,ECONE=ECONE_""^2"""
^XMB(3.9,25,2,2259,0)="""RTN"",""ECBEP1B"",52,0)"
^XMB(3.9,25,2,2260,0)=" . D KILLV^ECDSUTIL"
^XMB(3.9,25,2,2261,0)="""RTN"",""ECBEP1B"",53,0)"
^XMB(3.9,25,2,2262,0)=" Q"
^XMB(3.9,25,2,2263,0)="""RTN"",""ECBEP1B"",54,0)"
^XMB(3.9,25,2,2264,0)=" ;"
^XMB(3.9,25,2,2265,0)="""RTN"",""ECBEP1B"",55,0)"
^XMB(3.9,25,2,2266,0)="PROS ;"
^XMB(3.9,25,2,2267,0)="""RTN"",""ECBEP1B"",56,0)"
^XMB(3.9,25,2,2268,0)=" S X="""",CNT=0 K ECHOICE"
^XMB(3.9,25,2,2269,0)="""RTN"",""ECBEP1B"",57,0)"
^XMB(3.9,25,2,2270,0)="LISTP D HDRP^ECBEN2U S JJ=1 W !,""Available Procedures within ""_ECDN_"": "",!"
^XMB(3.9,25,2,2271,0)="""RTN"",""ECBEP1B"",58,0)"
^XMB(3.9,25,2,2272,0)=" W ?72,""National"",!,?5,""Procedure Name"",?40,""Synonym"",?72,""Number"",!"
^XMB(3.9,25,2,2273,0)="""RTN"",""ECBEP1B"",59,0)"
^XMB(3.9,25,2,2274,0)=" S EC1=1"
^XMB(3.9,25,2,2275,0)="""RTN"",""ECBEP1B"",60,0)"
^XMB(3.9,25,2,2276,0)=" F   S CNT=$O(^TMP(""ECPRO"",$J,CNT)) Q:'CNT!$D(ECHOICE)  D:($Y+5>IOSL) SELC Q:$D(ECHOICE)  I X="""" W !,CNT_""."",?5,$E($P(^TMP(""ECPRO"",$J,CNT),""^"",4),1,30),?38,$E($P(^(CNT),""^"",3),1,30),?72,$P(^(CNT),""^"",5)"
^XMB(3.9,25,2,2277,0)="""RTN"",""ECBEP1B"",61,0)"
^XMB(3.9,25,2,2278,0)=" I X="""" D"
^XMB(3.9,25,2,2279,0)="""RTN"",""ECBEP1B"",62,0)"
^XMB(3.9,25,2,2280,0)=" .W !!?5,""Select by number, CPT or national code, procedure name, or synonym."",!?5,""Synonym must be preceded by the & character  (example:  &TESTSYN)."",!"
^XMB(3.9,25,2,2281,0)="""RTN"",""ECBEP1B"",63,0)"
^XMB(3.9,25,2,2282,0)=" .W ?2,""** Modifier(s) can be appended to a CPT code (ex: CPT code-mod1,mod2,mod3) **"",!"
^XMB(3.9,25,2,2283,0)="""RTN"",""ECBEP1B"",64,0)"
^XMB(3.9,25,2,2284,0)=" Q"
^XMB(3.9,25,2,2285,0)="""RTN"",""ECBEP1B"",65,0)"
^XMB(3.9,25,2,2286,0)=" ;"
^XMB(3.9,25,2,2287,0)="""RTN"",""ECBEP1B"",66,0)"
^XMB(3.9,25,2,2288,0)="CHKP ;"
^XMB(3.9,25,2,2289,0)="""RTN"",""ECBEP1B"",67,0)"
^XMB(3.9,25,2,2290,0)=" ;Ask CPT procedure modifiers"
^XMB(3.9,25,2,2291,0)="""RTN"",""ECBEP1B"",68,0)"
^XMB(3.9,25,2,2292,0)=" I ECCPT'="""" D  K ECMODF,ECMODS"
^XMB(3.9,25,2,2293,0)="""RTN"",""ECBEP1B"",69,0)"
^XMB(3.9,25,2,2294,0)=" . S ECMODS=$G(ECMODS)"
^XMB(3.9,25,2,2295,0)="""RTN"",""ECBEP1B"",70,0)"
^XMB(3.9,25,2,2296,0)=" . S ECMODF=$$ASKMOD^ECUTL(ECCPT,ECMODS,ECDT,.ECMOD,.ECERR)"
^XMB(3.9,25,2,2297,0)="""RTN"",""ECBEP1B"",71,0)"
^XMB(3.9,25,2,2298,0)=" I $G(ECERR) S ECOUT=2 K ECERR,ECMOD D KILLV^ECDSUTIL Q"
^XMB(3.9,25,2,2299,0)="""RTN"",""ECBEP1B"",72,0)"
^XMB(3.9,25,2,2300,0)=" ;"
^XMB(3.9,25,2,2301,0)="""RTN"",""ECBEP1B"",73,0)"
^XMB(3.9,25,2,2302,0)=" ;- Ask procedure reason"
^XMB(3.9,25,2,2303,0)="""RTN"",""ECBEP1B"",74,0)"
^XMB(3.9,25,2,2304,0)=" I $G(ECP)]"""" S ECSCR=+$O(^ECJ(""AP"",+ECL,+ECD,+ECC,ECP,0))"
^XMB(3.9,25,2,2305,0)="""RTN"",""ECBEP1B"",75,0)"
^XMB(3.9,25,2,2306,0)=" K ECPRPTR"
^XMB(3.9,25,2,2307,0)="""RTN"",""ECBEP1B"",76,0)"
^XMB(3.9,25,2,2308,0)=" I ECSCR>0,($P($G(^ECJ(ECSCR,""PRO"")),""^"",5)=1),(+$O(^ECL(""AD"",ECSCR,0))) D"
^XMB(3.9,25,2,2309,0)="""RTN"",""ECBEP1B"",77,0)"
^XMB(3.9,25,2,2310,0)=" . S ECPRPTR=0"
^XMB(3.9,25,2,2311,0)="""RTN"",""ECBEP1B"",78,0)"
^XMB(3.9,25,2,2312,0)=" . S DIC=""^ECL("",DIC(0)=""QEAM"""
^XMB(3.9,25,2,2313,0)="""RTN"",""ECBEP1B"",79,0)"
^XMB(3.9,25,2,2314,0)=" . S DIC(""A"")=""Procedure Reason: "",DIC(""S"")=""I $P(^(0),U,2)=ECSCR"""
^XMB(3.9,25,2,2315,0)="""RTN"",""ECBEP1B"",80,0)"
^XMB(3.9,25,2,2316,0)=" . D ^DIC K DIC"
^XMB(3.9,25,2,2317,0)="""RTN"",""ECBEP1B"",81,0)"
^XMB(3.9,25,2,2318,0)=" . I +Y>0 S ECPRPTR=+Y"
^XMB(3.9,25,2,2319,0)="""RTN"",""ECBEP1B"",82,0)"
^XMB(3.9,25,2,2320,0)=" K ECSCR W !"
^XMB(3.9,25,2,2321,0)="""RTN"",""ECBEP1B"",83,0)"
^XMB(3.9,25,2,2322,0)=" ;"
^XMB(3.9,25,2,2323,0)="""RTN"",""ECBEP1B"",84,0)"
^XMB(3.9,25,2,2324,0)=" I $G(ECCN)]"""" W !,""Category: "",ECCN"
^XMB(3.9,25,2,2325,0)="""RTN"",""ECBEP1B"",85,0)"
^XMB(3.9,25,2,2326,0)=" W !,""Procedure: "",$S(ECCPT="""":"""",1:ECPTCD_"" "")_$E(ECPN,1,50)"
^XMB(3.9,25,2,2327,0)="""RTN"",""ECBEP1B"",86,0)"
^XMB(3.9,25,2,2328,0)=" W $S(SYN'[""NOT DEFINED"":"" [""_SYN_""]"",1:"""")_""  (#""_NATN_"")"""
^XMB(3.9,25,2,2329,0)="""RTN"",""ECBEP1B"",87,0)"
^XMB(3.9,25,2,2330,0)=" ;"
^XMB(3.9,25,2,2331,0)="""RTN"",""ECBEP1B"",88,0)"
^XMB(3.9,25,2,2332,0)=" ;- Display CPT procedure Modifiers"
^XMB(3.9,25,2,2333,0)="""RTN"",""ECBEP1B"",89,0)"
^XMB(3.9,25,2,2334,0)=" I ECCPT'="""" N MOD S MOD="""" F  S MOD=$O(ECMOD(ECCPT,MOD)) Q:MOD=""""  D"
^XMB(3.9,25,2,2335,0)="""RTN"",""ECBEP1B"",90,0)"
^XMB(3.9,25,2,2336,0)=" . W !?1,""Modifier: "",""    - "",MOD,"" "",$E($P(ECMOD(ECCPT,MOD),U),1,55)"
^XMB(3.9,25,2,2337,0)="""RTN"",""ECBEP1B"",91,0)"
^XMB(3.9,25,2,2338,0)=" ;- Display procedure reason"
^XMB(3.9,25,2,2339,0)="""RTN"",""ECBEP1B"",92,0)"
^XMB(3.9,25,2,2340,0)=" I +$G(ECPRPTR) S ECPRSL=$P($G(^ECL(+ECPRPTR,0)),""^"") W !,""Procedure Reason: "",$P($G(^ECR(+ECPRSL,0)),""^"")"
^XMB(3.9,25,2,2341,0)="""RTN"",""ECBEP1B"",93,0)"
^XMB(3.9,25,2,2342,0)=" D DSP1442^ECPRVMUT(.ECPRVARY)"
^XMB(3.9,25,2,2343,0)="""RTN"",""ECBEP1B"",94,0)"
^XMB(3.9,25,2,2344,0)=" W !"
^XMB(3.9,25,2,2345,0)="""RTN"",""ECBEP1B"",95,0)"
^XMB(3.9,25,2,2346,0)=" W !!,""Is this information correct ?  YES//  "" R ECYN:DTIME I '$T!(ECYN=""^"") Q"
^XMB(3.9,25,2,2347,0)="""RTN"",""ECBEP1B"",96,0)"
^XMB(3.9,25,2,2348,0)=" S ECYN=$E(ECYN) S:ECYN="""" ECYN=""Y"""
^XMB(3.9,25,2,2349,0)="""RTN"",""ECBEP1B"",97,0)"
^XMB(3.9,25,2,2350,0)=" I ""YyNn""'[ECYN W !!,""Enter <RET> if the information listed above is correct and should be"",!,""entered for the patients selected.  Enter NO to re-enter the information"",!,""for this procedure."",!"
^XMB(3.9,25,2,2351,0)="""RTN"",""ECBEP1B"",98,0)"
^XMB(3.9,25,2,2352,0)=" I ""YyNn""'[ECYN W !!,""Press <RET> to continue  "" R X:DTIME G CHKP"
^XMB(3.9,25,2,2353,0)="""RTN"",""ECBEP1B"",99,0)"
^XMB(3.9,25,2,2354,0)=" I ""Nn""[ECYN,$P(ECONE,""^"")<2,$P(ECONE,""^"",2)<2 S ECOUT=2 Q"
^XMB(3.9,25,2,2355,0)="""RTN"",""ECBEP1B"",100,0)"
^XMB(3.9,25,2,2356,0)=" I ""Nn""[ECYN K ECHOICE,ECCN,ECP,ECPN,ECMOD,ECONE,^TMP(""ECPRO"",$J) G CHK"
^XMB(3.9,25,2,2357,0)="""RTN"",""ECBEP1B"",101,0)"
^XMB(3.9,25,2,2358,0)=" ;"
^XMB(3.9,25,2,2359,0)="""RTN"",""ECBEP1B"",102,0)"
^XMB(3.9,25,2,2360,0)=" ;- File procedure reason in local array ECEC (used in ECBEPF)"
^XMB(3.9,25,2,2361,0)="""RTN"",""ECBEP1B"",103,0)"
^XMB(3.9,25,2,2362,0)=" S COUNT=COUNT+1,ECEC(COUNT)=ECC_""^""_ECP_""^^^^^^^""_ECCPT_""^""_EC4_""^""_ECID_$S(+$G(ECPRPTR):""^""_ECPRPTR,1:"""")"
^XMB(3.9,25,2,2363,0)="""RTN"",""ECBEP1B"",104,0)"
^XMB(3.9,25,2,2364,0)=" ;- File CPT modifiers in local array ECEC"
^XMB(3.9,25,2,2365,0)="""RTN"",""ECBEP1B"",105,0)"
^XMB(3.9,25,2,2366,0)=" I ECCPT'="""",$O(ECMOD(ECCPT,""""))'="""" D"
^XMB(3.9,25,2,2367,0)="""RTN"",""ECBEP1B"",106,0)"
^XMB(3.9,25,2,2368,0)=" . M ECEC(COUNT,""MOD"")=ECMOD(ECCPT)"
^XMB(3.9,25,2,2369,0)="""RTN"",""ECBEP1B"",107,0)"
^XMB(3.9,25,2,2370,0)="FILE ;file proc"
^XMB(3.9,25,2,2371,0)="""RTN"",""ECBEP1B"",108,0)"
^XMB(3.9,25,2,2372,0)=" I '$D(ECEC(1)) W !!,""No procedures have been selected for filing.  Please re-enter the "",!,""information for the procedures, or ^ to exit."",!!,""Press <RET> to continue"" R X:DTIME S:X=""^"" ECOUT=1 K ECTEMP,^TMP(""ECPRO"",$J) G P"
^XMB(3.9,25,2,2373,0)="""RTN"",""ECBEP1B"",109,0)"
^XMB(3.9,25,2,2374,0)=" D ^ECBEP2A Q:ECOUT  K ECA,ECCN,ECEC,ECHOICE,ECJLP,ECP,ECPN,ECPT,ECO,ECON,ECV,NATN,NODE,SYN,^TMP(""ECPRO"",$J),ECDX,ECDXN,ECINP,ECCPT,ECSC,ECIR,ECZEC,ECAO,ECVST,ECPTSTAT,ECMST,ECHNC,ECCV,ECMOD,ECPTCD G CHK"
^XMB(3.9,25,2,2375,0)="""RTN"",""ECBEP1B"",110,0)"
^XMB(3.9,25,2,2376,0)="END Q"
^XMB(3.9,25,2,2377,0)="""RTN"",""ECBEP1B"",111,0)"
^XMB(3.9,25,2,2378,0)="SETP ;set proc"
^XMB(3.9,25,2,2379,0)="""RTN"",""ECBEP1B"",112,0)"
^XMB(3.9,25,2,2380,0)=" S ECP=$P(^TMP(""ECPRO"",$J,CNT),""^""),ECPN=$P(^(CNT),""^"",4),SYN=$P(^(CNT),""^"",3),NATN=$P(^(CNT),""^"",5),VOL=$P(^(CNT),""^"",6)"
^XMB(3.9,25,2,2381,0)="""RTN"",""ECBEP1B"",113,0)"
^XMB(3.9,25,2,2382,0)=" S ECCPT=$S(ECP[""EC"":$P($G(^EC(725,+ECP,0)),""^"",5),1:+ECP)"
^XMB(3.9,25,2,2383,0)="""RTN"",""ECBEP1B"",114,0)"
^XMB(3.9,25,2,2384,0)=" S ECPTCD="""" I ECCPT'="""" D"
^XMB(3.9,25,2,2385,0)="""RTN"",""ECBEP1B"",115,0)"
^XMB(3.9,25,2,2386,0)=" . S ECPTCD=$$CPT^ICPTCOD(ECCPT,ECDT) I +ECPTCD>0 S ECPTCD=$P(ECPTCD,U,2)"
^XMB(3.9,25,2,2387,0)="""RTN"",""ECBEP1B"",116,0)"
^XMB(3.9,25,2,2388,0)=" W ""  ""_$S(ECCPT="""":"""",1:ECPTCD_"" "")_$E(ECPN,1,50)"
^XMB(3.9,25,2,2389,0)="""RTN"",""ECBEP1B"",117,0)"
^XMB(3.9,25,2,2390,0)=" W $S(SYN'[""NOT DEFINED"":"" [""_SYN_""]"",1:"""")_""  (#""_NATN_"")"",!"
^XMB(3.9,25,2,2391,0)="""RTN"",""ECBEP1B"",118,0)"
^XMB(3.9,25,2,2392,0)=" S EC4=$P(^TMP(""ECPRO"",$J,CNT),""^"",2),EC4=$P($G(^ECJ(+EC4,""PRO"")),""^"",4)"
^XMB(3.9,25,2,2393,0)="""RTN"",""ECBEP1B"",119,0)"
^XMB(3.9,25,2,2394,0)=" S EC4N=$S($P($G(^SC(+EC4,0)),""^"")]"""":$P(^(0),""^""),1:""NO ASSOCIATED CLINIC""),ECID=$P($G(^SC(+EC4,0)),""^"",7)"
^XMB(3.9,25,2,2395,0)="""RTN"",""ECBEP1B"",120,0)"
^XMB(3.9,25,2,2396,0)=" Q"
^XMB(3.9,25,2,2397,0)="""RTN"",""ECBEP1B"",121,0)"
^XMB(3.9,25,2,2398,0)="SELC ; select category"
^XMB(3.9,25,2,2399,0)="""RTN"",""ECBEP1B"",122,0)"
^XMB(3.9,25,2,2400,0)=" W !!,$S(EC1:""Press"",1:""Select Number, or press"")_"" <RET> to continue listing ""_$S(EC1:""procedures"",1:""categories"")_"" or '^' to stop:  "" R X:DTIME I '$T!(X=""^"") S (ECSTOP,ECHOICE)=1 Q"
^XMB(3.9,25,2,2401,0)="""RTN"",""ECBEP1B"",123,0)"
^XMB(3.9,25,2,2402,0)=" I X="""" W @IOF,!,$S(EC1:""Available Procedures"",1:""Categories"")_"" within "",ECDN,"" : "",! Q"
^XMB(3.9,25,2,2403,0)="""RTN"",""ECBEP1B"",124,0)"
^XMB(3.9,25,2,2404,0)=" I 'EC1,'$D(ECC(X)) D MSG1^ECBEN2U S ECOUT=2 Q"
^XMB(3.9,25,2,2405,0)="""RTN"",""ECBEP1B"",125,0)"
^XMB(3.9,25,2,2406,0)=" I EC1,'$D(^TMP(""ECPRO"",$J,X)) D MSG1^ECBEN2U S ECOUT=2 Q"
^XMB(3.9,25,2,2407,0)="""RTN"",""ECBEP1B"",126,0)"
^XMB(3.9,25,2,2408,0)=" S ECHOICE=1"
^XMB(3.9,25,2,2409,0)="""RTN"",""ECBEP1B"",127,0)"
^XMB(3.9,25,2,2410,0)=" I 'EC1 S ECC=$P(ECC(X),""^""),ECCN=$P(ECC(X),""^"",2) Q"
^XMB(3.9,25,2,2411,0)="""RTN"",""ECBEP1B"",128,0)"
^XMB(3.9,25,2,2412,0)=" Q"
^XMB(3.9,25,2,2413,0)="""RTN"",""ECBEP2A"")"
^XMB(3.9,25,2,2414,0)="0^14^B30996875^B32048320"
^XMB(3.9,25,2,2415,0)="""RTN"",""ECBEP2A"",1,0)"
^XMB(3.9,25,2,2416,0)="ECBEP2A ;BIR/MAM,JPW-Batch Enter by Procedure (cont'd) ;1 May 96"
^XMB(3.9,25,2,2417,0)="""RTN"",""ECBEP2A"",2,0)"
^XMB(3.9,25,2,2418,0)=" ;;2.0; EVENT CAPTURE ;**4,5,10,13,17,18,23,33,41,42,54,72**;8 May 96"
^XMB(3.9,25,2,2419,0)="""RTN"",""ECBEP2A"",3,0)"
^XMB(3.9,25,2,2420,0)="EN ;entry pt"
^XMB(3.9,25,2,2421,0)="""RTN"",""ECBEP2A"",4,0)"
^XMB(3.9,25,2,2422,0)=" D HDR"
^XMB(3.9,25,2,2423,0)="""RTN"",""ECBEP2A"",5,0)"
^XMB(3.9,25,2,2424,0)=" S CNT=0"
^XMB(3.9,25,2,2425,0)="""RTN"",""ECBEP2A"",6,0)"
^XMB(3.9,25,2,2426,0)="PATS ; get patients"
^XMB(3.9,25,2,2427,0)="""RTN"",""ECBEP2A"",7,0)"
^XMB(3.9,25,2,2428,0)=" W ! Q:ECOUT=1  K ECADD"
^XMB(3.9,25,2,2429,0)="""RTN"",""ECBEP2A"",8,0)"
^XMB(3.9,25,2,2430,0)=" K DIC,DUOUT S DIC=2,DIC(0)=""QEAMZ"",DIC(""A"")=$S($D(ECPT):""Select Next Patient: "",1:""Select Patient: "")"
^XMB(3.9,25,2,2431,0)="""RTN"",""ECBEP2A"",9,0)"
^XMB(3.9,25,2,2432,0)=" D ^DIC K DIC S OK=0"
^XMB(3.9,25,2,2433,0)="""RTN"",""ECBEP2A"",10,0)"
^XMB(3.9,25,2,2434,0)=" I $D(DUOUT)!($D(DTOUT)) S ECOUT=1 Q"
^XMB(3.9,25,2,2435,0)="""RTN"",""ECBEP2A"",11,0)"
^XMB(3.9,25,2,2436,0)=" I Y<0,CNT=0 S ECOUT=2 Q"
^XMB(3.9,25,2,2437,0)="""RTN"",""ECBEP2A"",12,0)"
^XMB(3.9,25,2,2438,0)=" I Y<0 D  G:ECOUT'=2 PATS I ECOUT=2 D KILL Q"
^XMB(3.9,25,2,2439,0)="""RTN"",""ECBEP2A"",13,0)"
^XMB(3.9,25,2,2440,0)=" .D LIST Q:ECOUT  Q:'$O(ECPT(0))  Q:$G(ECADD)=""A"""
^XMB(3.9,25,2,2441,0)="""RTN"",""ECBEP2A"",14,0)"
^XMB(3.9,25,2,2442,0)=" .S ECTWO=0 K ECHOICE D ^ECBEP2B S ECOUT=2"
^XMB(3.9,25,2,2443,0)="""RTN"",""ECBEP2A"",15,0)"
^XMB(3.9,25,2,2444,0)=" I $O(ECPT(0)) S JJ="""" F  S JJ=$O(ECPT(JJ)) Q:'JJ!(OK=1)  I +$G(ECPT(JJ))=+Y S OK=1 W !!,""Patient already selected.  Please select another patient."",!"
^XMB(3.9,25,2,2445,0)="""RTN"",""ECBEP2A"",16,0)"
^XMB(3.9,25,2,2446,0)=" I OK=1 G PATS"
^XMB(3.9,25,2,2447,0)="""RTN"",""ECBEP2A"",17,0)"
^XMB(3.9,25,2,2448,0)=" N YY,ECUP D  I $G(ECUP)=""^"" G PATS"
^XMB(3.9,25,2,2449,0)="""RTN"",""ECBEP2A"",18,0)"
^XMB(3.9,25,2,2450,0)=" . S YY=Y,DFN=+Y D 2^VADPT S Y=YY I +VADM(6) D"
^XMB(3.9,25,2,2451,0)="""RTN"",""ECBEP2A"",19,0)"
^XMB(3.9,25,2,2452,0)=" . . W !!,""WARNING "",VADM(7),!!"
^XMB(3.9,25,2,2453,0)="""RTN"",""ECBEP2A"",20,0)"
^XMB(3.9,25,2,2454,0)=" . . R ""Press Return to Continue or ^ to Deselect: "",ECUP:DTIME"
^XMB(3.9,25,2,2455,0)="""RTN"",""ECBEP2A"",21,0)"
^XMB(3.9,25,2,2456,0)=" S CNT=CNT+1,CNT1=CNT,ECPT(CNT)=+Y_""^""_$P(Y,""^"",2) D ASK"
^XMB(3.9,25,2,2457,0)="""RTN"",""ECBEP2A"",22,0)"
^XMB(3.9,25,2,2458,0)=" G PATS"
^XMB(3.9,25,2,2459,0)="""RTN"",""ECBEP2A"",23,0)"
^XMB(3.9,25,2,2460,0)=" ;"
^XMB(3.9,25,2,2461,0)="""RTN"",""ECBEP2A"",24,0)"
^XMB(3.9,25,2,2462,0)="LIST ; list patients"
^XMB(3.9,25,2,2463,0)="""RTN"",""ECBEP2A"",25,0)"
^XMB(3.9,25,2,2464,0)=" K ECADD"
^XMB(3.9,25,2,2465,0)="""RTN"",""ECBEP2A"",26,0)"
^XMB(3.9,25,2,2466,0)=" W @IOF,!,""Patients Selected for Batch Entry: "",! F I=0:0 S I=$O(ECPT(I)) Q:'I  W:I#2 ! W:I#2=0 ?40 W I_"".  ""_$P(ECPT(I),""^"",2)"
^XMB(3.9,25,2,2467,0)="""RTN"",""ECBEP2A"",27,0)"
^XMB(3.9,25,2,2468,0)=" W !!,""Is this list correct ?  YES//  "" R ECYN:DTIME I '$T!(ECYN=""^"") S ECOUT=1 Q"
^XMB(3.9,25,2,2469,0)="""RTN"",""ECBEP2A"",28,0)"
^XMB(3.9,25,2,2470,0)=" S ECYN=$E(ECYN) S:ECYN="""" ECYN=""Y"" I ""YyNn""'[ECYN W !!,""Enter <RET> if this list is complete, or NO to add or delete"",!,""patients on the list."",!!,""Press <RET> to continue  "" R X:DTIME G LIST"
^XMB(3.9,25,2,2471,0)="""RTN"",""ECBEP2A"",29,0)"
^XMB(3.9,25,2,2472,0)=" I ""Yy""[ECYN Q:$O(ECPT(0))  D NOBODY Q:ECOUT"
^XMB(3.9,25,2,2473,0)="""RTN"",""ECBEP2A"",30,0)"
^XMB(3.9,25,2,2474,0)="ADD W !!,""Add or Delete Patients ?  ADD//  "" R ECADD:DTIME I '$T!(ECADD=""^"") S ECOUT=1 Q"
^XMB(3.9,25,2,2475,0)="""RTN"",""ECBEP2A"",31,0)"
^XMB(3.9,25,2,2476,0)=" S ECADD=$E(ECADD) S:ECADD="""" ECADD=""A"" I ""AaDd""'[ECADD W !!,""Enter <RET> to make additions to the list, or D to delete a "",!,""patient from the list."" K ECADD G ADD"
^XMB(3.9,25,2,2477,0)="""RTN"",""ECBEP2A"",32,0)"
^XMB(3.9,25,2,2478,0)=" Q:ECADD=""A"""
^XMB(3.9,25,2,2479,0)="""RTN"",""ECBEP2A"",33,0)"
^XMB(3.9,25,2,2480,0)="DEL ; delete patients from list"
^XMB(3.9,25,2,2481,0)="""RTN"",""ECBEP2A"",34,0)"
^XMB(3.9,25,2,2482,0)=" I '$D(ECPT(1)) D NOBODY Q:ECOUT  G LIST"
^XMB(3.9,25,2,2483,0)="""RTN"",""ECBEP2A"",35,0)"
^XMB(3.9,25,2,2484,0)=" W !!,""Select Number:  "" R X:DTIME I '$T!(X=""^"") S ECOUT=1 Q"
^XMB(3.9,25,2,2485,0)="""RTN"",""ECBEP2A"",36,0)"
^XMB(3.9,25,2,2486,0)=" I X="""" Q"
^XMB(3.9,25,2,2487,0)="""RTN"",""ECBEP2A"",37,0)"
^XMB(3.9,25,2,2488,0)=" I '$D(ECPT(X)) W !!,""Select the number corresponding to the patient that you would like"",!,""to remove from the list."",!!,""Press <RET> to continue  "" R X:DTIME S ECMORE=1 D LIST Q:ECOUT  G DEL"
^XMB(3.9,25,2,2489,0)="""RTN"",""ECBEP2A"",38,0)"
^XMB(3.9,25,2,2490,0)=" F I=X+1:1:CNT S ECPT(I-1)=ECPT(I)"
^XMB(3.9,25,2,2491,0)="""RTN"",""ECBEP2A"",39,0)"
^XMB(3.9,25,2,2492,0)=" K ECPT(CNT),I S CNT=CNT-1"
^XMB(3.9,25,2,2493,0)="""RTN"",""ECBEP2A"",40,0)"
^XMB(3.9,25,2,2494,0)=" W !!,""Patient deleted."",!!,""Press <RET> to continue "" R X:DTIME"
^XMB(3.9,25,2,2495,0)="""RTN"",""ECBEP2A"",41,0)"
^XMB(3.9,25,2,2496,0)=" G LIST"
^XMB(3.9,25,2,2497,0)="""RTN"",""ECBEP2A"",42,0)"
^XMB(3.9,25,2,2498,0)=" Q"
^XMB(3.9,25,2,2499,0)="""RTN"",""ECBEP2A"",43,0)"
^XMB(3.9,25,2,2500,0)="HDR ;"
^XMB(3.9,25,2,2501,0)="""RTN"",""ECBEP2A"",44,0)"
^XMB(3.9,25,2,2502,0)=" W @IOF,!,""Location: "",ECLN"
^XMB(3.9,25,2,2503,0)="""RTN"",""ECBEP2A"",45,0)"
^XMB(3.9,25,2,2504,0)=" W !,""DSS Unit: "",ECDN"
^XMB(3.9,25,2,2505,0)="""RTN"",""ECBEP2A"",46,0)"
^XMB(3.9,25,2,2506,0)=" I $G(ECCN)]"""" W !,""Category: "",ECCN"
^XMB(3.9,25,2,2507,0)="""RTN"",""ECBEP2A"",47,0)"
^XMB(3.9,25,2,2508,0)=" W !,""Procedure: ""_$S(ECCPT'="""":ECPTCD_"" "",1:"""")_$E(ECPN,1,50)"
^XMB(3.9,25,2,2509,0)="""RTN"",""ECBEP2A"",48,0)"
^XMB(3.9,25,2,2510,0)=" W $S(SYN'[""NOT DEFINED"":"" [""_SYN_""]"",1:"""")_""  (#""_NATN_"")"""
^XMB(3.9,25,2,2511,0)="""RTN"",""ECBEP2A"",49,0)"
^XMB(3.9,25,2,2512,0)=" ;- Display CPT procedure Modifiers"
^XMB(3.9,25,2,2513,0)="""RTN"",""ECBEP2A"",50,0)"
^XMB(3.9,25,2,2514,0)=" I ECCPT'="""" N MOD S MOD="""" F  S MOD=$O(ECMOD(ECCPT,MOD)) Q:MOD=""""  D"
^XMB(3.9,25,2,2515,0)="""RTN"",""ECBEP2A"",51,0)"
^XMB(3.9,25,2,2516,0)=" . W !?1,""Modifier: "",""    - "",MOD,"" "",$E($P(ECMOD(ECCPT,MOD),U),1,55)"
^XMB(3.9,25,2,2517,0)="""RTN"",""ECBEP2A"",52,0)"
^XMB(3.9,25,2,2518,0)=" W !,""Procedure Date: "",ECDATE"
^XMB(3.9,25,2,2519,0)="""RTN"",""ECBEP2A"",53,0)"
^XMB(3.9,25,2,2520,0)=" W ! D DSP1416^ECPRVMUT(.ECPRVARY)"
^XMB(3.9,25,2,2521,0)="""RTN"",""ECBEP2A"",54,0)"
^XMB(3.9,25,2,2522,0)=" W !"
^XMB(3.9,25,2,2523,0)="""RTN"",""ECBEP2A"",55,0)"
^XMB(3.9,25,2,2524,0)=" Q"
^XMB(3.9,25,2,2525,0)="""RTN"",""ECBEP2A"",56,0)"
^XMB(3.9,25,2,2526,0)=" ;"
^XMB(3.9,25,2,2527,0)="""RTN"",""ECBEP2A"",57,0)"
^XMB(3.9,25,2,2528,0)="NOBODY ;No patients selected"
^XMB(3.9,25,2,2529,0)="""RTN"",""ECBEP2A"",58,0)"
^XMB(3.9,25,2,2530,0)=" I $D(ECADD),ECADD=""D"" W !!,""You cannot delete patients when your patient list is empty."""
^XMB(3.9,25,2,2531,0)="""RTN"",""ECBEP2A"",59,0)"
^XMB(3.9,25,2,2532,0)=" I $G(ECADD)'=""D"" W !!,""You have selected no patients."""
^XMB(3.9,25,2,2533,0)="""RTN"",""ECBEP2A"",60,0)"
^XMB(3.9,25,2,2534,0)=" R !!,""Do you wish to quit?  Y//"",X:DTIME S X=$E(X) I '$T!(X=""^"") S ECOUT=1 Q"
^XMB(3.9,25,2,2535,0)="""RTN"",""ECBEP2A"",61,0)"
^XMB(3.9,25,2,2536,0)=" S:X="""" X=""Y"" I ""yY""[X S ECOUT=1 Q"
^XMB(3.9,25,2,2537,0)="""RTN"",""ECBEP2A"",62,0)"
^XMB(3.9,25,2,2538,0)=" I ""nN""'[X W !,""Answer """"N"""" to continue selection, or enter return to quit"",! G NOBODY"
^XMB(3.9,25,2,2539,0)="""RTN"",""ECBEP2A"",63,0)"
^XMB(3.9,25,2,2540,0)=" Q"
^XMB(3.9,25,2,2541,0)="""RTN"",""ECBEP2A"",64,0)"
^XMB(3.9,25,2,2542,0)="ADCAT ;add category/procedures for patients"
^XMB(3.9,25,2,2543,0)="""RTN"",""ECBEP2A"",65,0)"
^XMB(3.9,25,2,2544,0)=" ;D ^ECBEN2A I ECOUT=1 Q"
^XMB(3.9,25,2,2545,0)="""RTN"",""ECBEP2A"",66,0)"
^XMB(3.9,25,2,2546,0)=" ;W !!! K DIR,DIRUT,DA S DIR(0)=""Y"",DIR(""A"")=""Do you want to enter another category and procedure for these patients"" D ^DIR Q:$D(DIRUT)!'Y"
^XMB(3.9,25,2,2547,0)="""RTN"",""ECBEP2A"",67,0)"
^XMB(3.9,25,2,2548,0)=" Q"
^XMB(3.9,25,2,2549,0)="""RTN"",""ECBEP2A"",68,0)"
^XMB(3.9,25,2,2550,0)="KILL ;kill arrays and variables"
^XMB(3.9,25,2,2551,0)="""RTN"",""ECBEP2A"",69,0)"
^XMB(3.9,25,2,2552,0)=" K ECSC,ECZEC,ECIR,ECDX,ECDXN,ECVST,ECINP,ECAO,ECPTSTAT,ECMST,ECHNC,ECCV"
^XMB(3.9,25,2,2553,0)="""RTN"",""ECBEP2A"",70,0)"
^XMB(3.9,25,2,2554,0)=" K ECA,ECHOICE,ECJLP,ECPT,ECO,ECON,ECV,ECDXS,ECDXIEN"
^XMB(3.9,25,2,2555,0)="""RTN"",""ECBEP2A"",71,0)"
^XMB(3.9,25,2,2556,0)=" S ECOUT=0"
^XMB(3.9,25,2,2557,0)="""RTN"",""ECBEP2A"",72,0)"
^XMB(3.9,25,2,2558,0)=" Q"
^XMB(3.9,25,2,2559,0)="""RTN"",""ECBEP2A"",73,0)"
^XMB(3.9,25,2,2560,0)="ASK ; ask ord sect & vol"
^XMB(3.9,25,2,2561,0)="""RTN"",""ECBEP2A"",74,0)"
^XMB(3.9,25,2,2562,0)=" W !!,""DSS Unit: ""_ECDN,?50,""Category: ""_ECCN,!"
^XMB(3.9,25,2,2563,0)="""RTN"",""ECBEP2A"",75,0)"
^XMB(3.9,25,2,2564,0)=" W ""Procedure: ""_$S(ECCPT="""":"""",1:ECPTCD_"" "")_$E(ECPN,1,50)"
^XMB(3.9,25,2,2565,0)="""RTN"",""ECBEP2A"",76,0)"
^XMB(3.9,25,2,2566,0)=" W $S(SYN'[""NOT DEFINED"":"" [""_SYN_""]"",1:"""")_""  (#""_NATN_"")"",!"
^XMB(3.9,25,2,2567,0)="""RTN"",""ECBEP2A"",77,0)"
^XMB(3.9,25,2,2568,0)=" ;- Display CPT procedure Modifiers"
^XMB(3.9,25,2,2569,0)="""RTN"",""ECBEP2A"",78,0)"
^XMB(3.9,25,2,2570,0)=" I ECCPT'="""" N MOD S MOD="""" F  S MOD=$O(ECMOD(ECCPT,MOD)) Q:MOD=""""  D"
^XMB(3.9,25,2,2571,0)="""RTN"",""ECBEP2A"",79,0)"
^XMB(3.9,25,2,2572,0)=" . W ?1,""Modifier: "",""    - "",MOD,"" "",$E($P(ECMOD(ECCPT,MOD),U),1,55),!"
^XMB(3.9,25,2,2573,0)="""RTN"",""ECBEP2A"",80,0)"
^XMB(3.9,25,2,2574,0)=" W ""Patient: "",$P(ECPT(CNT),""^"",2),!"
^XMB(3.9,25,2,2575,0)="""RTN"",""ECBEP2A"",81,0)"
^XMB(3.9,25,2,2576,0)=" ;"
^XMB(3.9,25,2,2577,0)="""RTN"",""ECBEP2A"",82,0)"
^XMB(3.9,25,2,2578,0)=" ;- Determine inpatient/outpatient status"
^XMB(3.9,25,2,2579,0)="""RTN"",""ECBEP2A"",83,0)"
^XMB(3.9,25,2,2580,0)=" S ECPTSTAT=$$INOUTPT^ECUTL0(+$G(ECPT(CNT)),+$G(ECDT))"
^XMB(3.9,25,2,2581,0)="""RTN"",""ECBEP2A"",84,0)"
^XMB(3.9,25,2,2582,0)=" I ECPTSTAT="""" D INOUTERR^ECUTL0 Q"
^XMB(3.9,25,2,2583,0)="""RTN"",""ECBEP2A"",85,0)"
^XMB(3.9,25,2,2584,0)=" ;"
^XMB(3.9,25,2,2585,0)="""RTN"",""ECBEP2A"",86,0)"
^XMB(3.9,25,2,2586,0)=" ;- Determine patient eligibility"
^XMB(3.9,25,2,2587,0)="""RTN"",""ECBEP2A"",87,0)"
^XMB(3.9,25,2,2588,0)=" I $$CHKDSS^ECUTL0(+$G(ECD),ECPTSTAT) D"
^XMB(3.9,25,2,2589,0)="""RTN"",""ECBEP2A"",88,0)"
^XMB(3.9,25,2,2590,0)=" . I $$MULTELG^ECUTL0(+$G(ECPT(CNT))) S ECELIG=+$$ELGLST^ECUTL0"
^XMB(3.9,25,2,2591,0)="""RTN"",""ECBEP2A"",89,0)"
^XMB(3.9,25,2,2592,0)=" . E  S ECELIG=+$G(VAEL(1))"
^XMB(3.9,25,2,2593,0)="""RTN"",""ECBEP2A"",90,0)"
^XMB(3.9,25,2,2594,0)=" K VAEL"
^XMB(3.9,25,2,2595,0)="""RTN"",""ECBEP2A"",91,0)"
^XMB(3.9,25,2,2596,0)=" ;"
^XMB(3.9,25,2,2597,0)="""RTN"",""ECBEP2A"",92,0)"
^XMB(3.9,25,2,2598,0)=" ;- Display inpatient/outpatient status message"
^XMB(3.9,25,2,2599,0)="""RTN"",""ECBEP2A"",93,0)"
^XMB(3.9,25,2,2600,0)=" D DSPSTAT^ECUTL0(ECPTSTAT)"
^XMB(3.9,25,2,2601,0)="""RTN"",""ECBEP2A"",94,0)"
^XMB(3.9,25,2,2602,0)=" ;"
^XMB(3.9,25,2,2603,0)="""RTN"",""ECBEP2A"",95,0)"
^XMB(3.9,25,2,2604,0)="O ; ord sect"
^XMB(3.9,25,2,2605,0)="""RTN"",""ECBEP2A"",96,0)"
^XMB(3.9,25,2,2606,0)=" K DIC,DUOUT S DIC=723,DIC(0)=""QEAMZ"",DIC(""A"")=""Ordering Section: """
^XMB(3.9,25,2,2607,0)="""RTN"",""ECBEP2A"",97,0)"
^XMB(3.9,25,2,2608,0)=" D ^DIC K DIC I Y<0 D DELPT(.CNT) Q"
^XMB(3.9,25,2,2609,0)="""RTN"",""ECBEP2A"",98,0)"
^XMB(3.9,25,2,2610,0)=" S ECO=+Y,ECON=$P(Y,""^"",2)"
^XMB(3.9,25,2,2611,0)="""RTN"",""ECBEP2A"",99,0)"
^XMB(3.9,25,2,2612,0)="V ; vol"
^XMB(3.9,25,2,2613,0)="""RTN"",""ECBEP2A"",100,0)"
^XMB(3.9,25,2,2614,0)=" S:'VOL VOL=1"
^XMB(3.9,25,2,2615,0)="""RTN"",""ECBEP2A"",101,0)"
^XMB(3.9,25,2,2616,0)=" W !,""Volume: ""_VOL_""//"" R X:DTIME I '$T S ECOUT=1 Q"
^XMB(3.9,25,2,2617,0)="""RTN"",""ECBEP2A"",102,0)"
^XMB(3.9,25,2,2618,0)=" I X=""^"" D DELPT(.CNT) Q"
^XMB(3.9,25,2,2619,0)="""RTN"",""ECBEP2A"",103,0)"
^XMB(3.9,25,2,2620,0)=" S:X="""" X=VOL I X'?1.2N!'X W !!,""Enter a whole number between 1 and 99."" G V"
^XMB(3.9,25,2,2621,0)="""RTN"",""ECBEP2A"",104,0)"
^XMB(3.9,25,2,2622,0)=" S ECV=X"
^XMB(3.9,25,2,2623,0)="""RTN"",""ECBEP2A"",105,0)"
^XMB(3.9,25,2,2624,0)="DIAG ;diagnosis, in/outpatient, visit"
^XMB(3.9,25,2,2625,0)="""RTN"",""ECBEP2A"",106,0)"
^XMB(3.9,25,2,2626,0)=" S (ECDX,ECDXN,ECINP,ECVST,ECSC,ECAO,ECIR,ECZEC,ECMST,ECHNC,ECCV)="""""
^XMB(3.9,25,2,2627,0)="""RTN"",""ECBEP2A"",107,0)"
^XMB(3.9,25,2,2628,0)=" S ECDFN=$P(ECPT(CNT),U)"
^XMB(3.9,25,2,2629,0)="""RTN"",""ECBEP2A"",108,0)"
^XMB(3.9,25,2,2630,0)=" I $P(ECPCE,""~"",2)=""N"" G NODE"
^XMB(3.9,25,2,2631,0)="""RTN"",""ECBEP2A"",109,0)"
^XMB(3.9,25,2,2632,0)=" D PCEQST^ECBEN2U"
^XMB(3.9,25,2,2633,0)="""RTN"",""ECBEP2A"",110,0)"
^XMB(3.9,25,2,2634,0)=" I ECOUT D DELPT(.CNT) Q"
^XMB(3.9,25,2,2635,0)="""RTN"",""ECBEP2A"",111,0)"
^XMB(3.9,25,2,2636,0)="NODE ;set node"
^XMB(3.9,25,2,2637,0)="""RTN"",""ECBEP2A"",112,0)"
^XMB(3.9,25,2,2638,0)=" ;- Get associated clinic from event code screen and DSS ID if null"
^XMB(3.9,25,2,2639,0)="""RTN"",""ECBEP2A"",113,0)"
^XMB(3.9,25,2,2640,0)=" S:$G(EC4)="""" EC4=$P($G(^ECJ(+$O(^ECJ(""AP"",+ECL,+ECD,+ECC,$G(ECP),0)),""PRO"")),""^"",4)"
^XMB(3.9,25,2,2641,0)="""RTN"",""ECBEP2A"",114,0)"
^XMB(3.9,25,2,2642,0)=" S EC4N=$S($P($G(^SC(+EC4,0)),""^"")]"""":$P(^(0),""^""),1:""NO ASSOCIATED CLINIC""),ECID=$P($G(^SC(+EC4,0)),""^"",7)"
^XMB(3.9,25,2,2643,0)="""RTN"",""ECBEP2A"",115,0)"
^XMB(3.9,25,2,2644,0)=" S ECPT(CNT)=ECPT(CNT)_""^""_ECO_""^""_ECON_""^""_ECV_""^""_ECDX_""^""_$S(ECINP="""":$G(ECPTSTAT),1:ECINP)_""^""_ECVST_""^""_ECSC_""^""_ECAO_""^""_ECIR_""^""_ECZEC_""^""_EC4_""^""_ECID_""^""_ECMST_""^""_ECHNC_""^""_ECCV"
^XMB(3.9,25,2,2645,0)="""RTN"",""ECBEP2A"",116,0)"
^XMB(3.9,25,2,2646,0)=" I $D(ECDXS) M ECPT(CNT,""DXS"")=ECDXS K ECDXS"
^XMB(3.9,25,2,2647,0)="""RTN"",""ECBEP2A"",117,0)"
^XMB(3.9,25,2,2648,0)=" S ECELPT(CNT)=$S($G(ECELIG):ECELIG,1:"""") K ECPTSTAT"
^XMB(3.9,25,2,2649,0)="""RTN"",""ECBEP2A"",118,0)"
^XMB(3.9,25,2,2650,0)=" Q"
^XMB(3.9,25,2,2651,0)="""RTN"",""ECBEP2A"",119,0)"
^XMB(3.9,25,2,2652,0)=" ;"
^XMB(3.9,25,2,2653,0)="""RTN"",""ECBEP2A"",120,0)"
^XMB(3.9,25,2,2654,0)="DELPT(CNT) ;deselect patient due to missing required data"
^XMB(3.9,25,2,2655,0)="""RTN"",""ECBEP2A"",121,0)"
^XMB(3.9,25,2,2656,0)=" N DIR,Y"
^XMB(3.9,25,2,2657,0)="""RTN"",""ECBEP2A"",122,0)"
^XMB(3.9,25,2,2658,0)=" K ECPT(CNT) S CNT=CNT-1"
^XMB(3.9,25,2,2659,0)="""RTN"",""ECBEP2A"",123,0)"
^XMB(3.9,25,2,2660,0)=" W !,""Required data missing."",!,""Patient deselected..."",!"
^XMB(3.9,25,2,2661,0)="""RTN"",""ECBEP2A"",124,0)"
^XMB(3.9,25,2,2662,0)=" S ECOUT=0"
^XMB(3.9,25,2,2663,0)="""RTN"",""ECBEP2A"",125,0)"
^XMB(3.9,25,2,2664,0)=" S DIR(0)=""E"",DIR(""A"")=""Press RETURN to continue"""
^XMB(3.9,25,2,2665,0)="""RTN"",""ECBEP2A"",126,0)"
^XMB(3.9,25,2,2666,0)=" D ^DIR"
^XMB(3.9,25,2,2667,0)="""RTN"",""ECBEP2A"",127,0)"
^XMB(3.9,25,2,2668,0)=" W !"
^XMB(3.9,25,2,2669,0)="""RTN"",""ECBEP2A"",128,0)"
^XMB(3.9,25,2,2670,0)=" Q"
^XMB(3.9,25,2,2671,0)="""RTN"",""ECBEP2B"")"
^XMB(3.9,25,2,2672,0)="0^26^B9317904^B9162539"
^XMB(3.9,25,2,2673,0)="""RTN"",""ECBEP2B"",1,0)"
^XMB(3.9,25,2,2674,0)="ECBEP2B ;BIR/MAM,JPW-Batch Entry by Procedure (cont'd) ;1 May 96"
^XMB(3.9,25,2,2675,0)="""RTN"",""ECBEP2B"",2,0)"
^XMB(3.9,25,2,2676,0)=" ;;2.0; EVENT CAPTURE ;**4,10,13,18,72**;8 May 96"
^XMB(3.9,25,2,2677,0)="""RTN"",""ECBEP2B"",3,0)"
^XMB(3.9,25,2,2678,0)="EN ;entry point"
^XMB(3.9,25,2,2679,0)="""RTN"",""ECBEP2B"",4,0)"
^XMB(3.9,25,2,2680,0)=" S CNT=0"
^XMB(3.9,25,2,2681,0)="""RTN"",""ECBEP2B"",5,0)"
^XMB(3.9,25,2,2682,0)="STUFF ; set up info to stuff"
^XMB(3.9,25,2,2683,0)="""RTN"",""ECBEP2B"",6,0)"
^XMB(3.9,25,2,2684,0)=" S ECDUZ=DUZ"
^XMB(3.9,25,2,2685,0)="""RTN"",""ECBEP2B"",7,0)"
^XMB(3.9,25,2,2686,0)=" W @IOF,!,""You have selected ""_$S(ECCPT'="""":ECPTCD_"" "",1:"""")_$E(ECPN,1,40)"
^XMB(3.9,25,2,2687,0)="""RTN"",""ECBEP2B"",8,0)"
^XMB(3.9,25,2,2688,0)=" W $S(SYN'[""NOT DEFINED"":"" [""_SYN_""]"",1:"""")_""  (#""_NATN_"")"""
^XMB(3.9,25,2,2689,0)="""RTN"",""ECBEP2B"",9,0)"
^XMB(3.9,25,2,2690,0)=" ;- Display CPT procedure Modifiers"
^XMB(3.9,25,2,2691,0)="""RTN"",""ECBEP2B"",10,0)"
^XMB(3.9,25,2,2692,0)=" I ECCPT'="""" N MOD S MOD="""" F  S MOD=$O(ECMOD(ECCPT,MOD)) Q:MOD=""""  D"
^XMB(3.9,25,2,2693,0)="""RTN"",""ECBEP2B"",11,0)"
^XMB(3.9,25,2,2694,0)=" . W !,"" Modifier: "",?22,""- "",MOD,"" "",$E($P(ECMOD(ECCPT,MOD),U),1,55)"
^XMB(3.9,25,2,2695,0)="""RTN"",""ECBEP2B"",12,0)"
^XMB(3.9,25,2,2696,0)=" W !,""for this group of patients."""
^XMB(3.9,25,2,2697,0)="""RTN"",""ECBEP2B"",13,0)"
^XMB(3.9,25,2,2698,0)=" W !!,""I will now enter these patient procedures in the file.  OK ?  YES//  "" R ECYN:DTIME I '$T!(ECYN=""^"") S ECOUT=1 Q"
^XMB(3.9,25,2,2699,0)="""RTN"",""ECBEP2B"",14,0)"
^XMB(3.9,25,2,2700,0)=" S ECYN=$E(ECYN) S:ECYN="""" ECYN=""Y"""
^XMB(3.9,25,2,2701,0)="""RTN"",""ECBEP2B"",15,0)"
^XMB(3.9,25,2,2702,0)=" I ""YyNn""'[ECYN W !!,""Enter <RET> to create the entries in the file.  If you have made a mistake"",!,""and do not wish to continue, enter NO."",!!,""Press <RET> to continue  "" R X:DTIME G STUFF"
^XMB(3.9,25,2,2703,0)="""RTN"",""ECBEP2B"",16,0)"
^XMB(3.9,25,2,2704,0)=" I ""Nn""[ECYN D NO I ""Yy""[ECYN Q"
^XMB(3.9,25,2,2705,0)="""RTN"",""ECBEP2B"",17,0)"
^XMB(3.9,25,2,2706,0)=" W !!,""I am now sending these procedures to background for filing."""
^XMB(3.9,25,2,2707,0)="""RTN"",""ECBEP2B"",18,0)"
^XMB(3.9,25,2,2708,0)=" K DIR W !! S DIR(0)=""E"",DIR(""A"")=""Press <RET> to continue"" D ^DIR K DIR"
^XMB(3.9,25,2,2709,0)="""RTN"",""ECBEP2B"",19,0)"
^XMB(3.9,25,2,2710,0)=" S ECA=ECDT_""^""_ECL_""^""_ECS_""^""_ECM_""^""_ECD_""^""_ECPCE"
^XMB(3.9,25,2,2711,0)="""RTN"",""ECBEP2B"",20,0)"
^XMB(3.9,25,2,2712,0)=" S ECOUT=2"
^XMB(3.9,25,2,2713,0)="""RTN"",""ECBEP2B"",21,0)"
^XMB(3.9,25,2,2714,0)=" S (ZTSAVE(""ECPT*""),ZTSAVE(""ECA""),ZTSAVE(""ECEC*""),ZTSAVE(""ECDUZ""),ZTSAVE(""ECELPT*""),ZTSAVE(""ECPRVARY*""))="""""
^XMB(3.9,25,2,2715,0)="""RTN"",""ECBEP2B"",22,0)"
^XMB(3.9,25,2,2716,0)=" S ZTIO="""",ZTDTH=$H,ZTDESC=""BATCH ENTRY EVENT CAPTURE PROCEDURES"",ZTRTN=""CRAM^ECBEPF"" D ^%ZTLOAD,HOME^%ZIS K ECEC Q"
^XMB(3.9,25,2,2717,0)="""RTN"",""ECBEP2B"",23,0)"
^XMB(3.9,25,2,2718,0)=" Q"
^XMB(3.9,25,2,2719,0)="""RTN"",""ECBEP2B"",24,0)"
^XMB(3.9,25,2,2720,0)="NO ; do not stuff"
^XMB(3.9,25,2,2721,0)="""RTN"",""ECBEP2B"",25,0)"
^XMB(3.9,25,2,2722,0)=" W !!,""Are you sure that you want to quit without entering any of the procedures"",!,""that you have created for the patients selected ?  NO//  "" R ECYN:DTIME I '$T!(ECYN=""^"") S ECOUT=1,ECYN=""Y"" Q"
^XMB(3.9,25,2,2723,0)="""RTN"",""ECBEP2B"",26,0)"
^XMB(3.9,25,2,2724,0)=" S ECYN=$E(ECYN) S:ECYN="""" ECYN=""N"" I ""YyNn""'[ECYN W !!,""If you do not want to enter the procedures selected, enter YES.  If the"",!,""procedures selected should be entered for the patients chosen, enter <RET>."" G NO"
^XMB(3.9,25,2,2725,0)="""RTN"",""ECBEP2B"",27,0)"
^XMB(3.9,25,2,2726,0)=" Q"
^XMB(3.9,25,2,2727,0)="""RTN"",""ECBEPF"")"
^XMB(3.9,25,2,2728,0)="0^21^B8758024^B9728135"
^XMB(3.9,25,2,2729,0)="""RTN"",""ECBEPF"",1,0)"
^XMB(3.9,25,2,2730,0)="ECBEPF ;BIR/MAM,JPW-Stuff Batch Entry by Procedure (cont'd) ;2 Mar 96"
^XMB(3.9,25,2,2731,0)="""RTN"",""ECBEPF"",2,0)"
^XMB(3.9,25,2,2732,0)=" ;;2.0; EVENT CAPTURE ;**4,5,13,17,18,23,42,54,72**;8 May 96"
^XMB(3.9,25,2,2733,0)="""RTN"",""ECBEPF"",3,0)"
^XMB(3.9,25,2,2734,0)="CRAM ; entry"
^XMB(3.9,25,2,2735,0)="""RTN"",""ECBEPF"",4,0)"
^XMB(3.9,25,2,2736,0)=" S ECDT=$P(ECA,""^""),ECL=$P(ECA,""^"",2),ECS=$P(ECA,""^"",3),ECM=$P(ECA,""^"",4),ECD=$P(ECA,""^"",5)"
^XMB(3.9,25,2,2737,0)="""RTN"",""ECBEPF"",5,0)"
^XMB(3.9,25,2,2738,0)=" S ECPCE=$P(ECA,""^"",6)"
^XMB(3.9,25,2,2739,0)="""RTN"",""ECBEPF"",6,0)"
^XMB(3.9,25,2,2740,0)=" S (CNT,CNT1)=0 F  S CNT1=$O(ECPT(CNT1)) Q:'CNT1  D SET F  S CNT=$O(ECEC(CNT)) Q:'CNT  D DIE"
^XMB(3.9,25,2,2741,0)="""RTN"",""ECBEPF"",7,0)"
^XMB(3.9,25,2,2742,0)="END D ^ECKILL K DLAYGO S:$D(ZTQUEUED) ZTREQ=""@"""
^XMB(3.9,25,2,2743,0)="""RTN"",""ECBEPF"",8,0)"
^XMB(3.9,25,2,2744,0)=" Q"
^XMB(3.9,25,2,2745,0)="""RTN"",""ECBEPF"",9,0)"
^XMB(3.9,25,2,2746,0)="SET ;"
^XMB(3.9,25,2,2747,0)="""RTN"",""ECBEPF"",10,0)"
^XMB(3.9,25,2,2748,0)=" S ECPS=$P(ECPT(CNT1),""^""),ECO=$P(ECPT(CNT1),""^"",3),ECV=+$P(ECPT(CNT1),""^"",5)"
^XMB(3.9,25,2,2749,0)="""RTN"",""ECBEPF"",11,0)"
^XMB(3.9,25,2,2750,0)=" S ECDX=$P(ECPT(CNT1),""^"",6),ECINP=$P(ECPT(CNT1),""^"",7),ECVST=$P(ECPT(CNT1),""^"",8),ECSC=$P(ECPT(CNT1),""^"",9),ECAO=$P(ECPT(CNT1),""^"",10),ECIR=$P(ECPT(CNT1),""^"",11)"
^XMB(3.9,25,2,2751,0)="""RTN"",""ECBEPF"",12,0)"
^XMB(3.9,25,2,2752,0)=" S ECZEC=$P(ECPT(CNT1),""^"",12),EC4=$P(ECPT(CNT1),""^"",13),ECID=$P(ECPT(CNT1),""^"",14)"
^XMB(3.9,25,2,2753,0)="""RTN"",""ECBEPF"",13,0)"
^XMB(3.9,25,2,2754,0)=" S ECMST=$P(ECPT(CNT1),""^"",15),ECHNC=$P(ECPT(CNT1),""^"",16),ECCV=$P(ECPT(CNT1),""^"",17)"
^XMB(3.9,25,2,2755,0)="""RTN"",""ECBEPF"",14,0)"
^XMB(3.9,25,2,2756,0)=" S ECELIG=$G(ECELPT(CNT1))"
^XMB(3.9,25,2,2757,0)="""RTN"",""ECBEPF"",15,0)"
^XMB(3.9,25,2,2758,0)=" Q"
^XMB(3.9,25,2,2759,0)="""RTN"",""ECBEPF"",16,0)"
^XMB(3.9,25,2,2760,0)="DIE ;"
^XMB(3.9,25,2,2761,0)="""RTN"",""ECBEPF"",17,0)"
^XMB(3.9,25,2,2762,0)=" L +^ECH(0) S ECRN=$P(^ECH(0),""^"",3)+1 I $D(^ECH(ECRN)) S $P(^ECH(0),""^"",3)=$P(^ECH(0),""^"",3)+1 L -^ECH(0) G DIE"
^XMB(3.9,25,2,2763,0)="""RTN"",""ECBEPF"",18,0)"
^XMB(3.9,25,2,2764,0)=" L -^ECH(0) K DD,DO,DIC S X=ECRN,DIC(0)=""L"",DLAYGO=721,DIC=""^ECH("" D FILE^DICN K DIC S ECFN=+Y"
^XMB(3.9,25,2,2765,0)="""RTN"",""ECBEPF"",19,0)"
^XMB(3.9,25,2,2766,0)=" S ECNODE=ECEC(CNT),ECC=+$P(ECNODE,""^""),ECP=$P(ECNODE,""^"",2),ECPRPTR=$P(ECNODE,""^"",12)"
^XMB(3.9,25,2,2767,0)="""RTN"",""ECBEPF"",20,0)"
^XMB(3.9,25,2,2768,0)=" S ECCPT=$P(ECNODE,""^"",9)"
^XMB(3.9,25,2,2769,0)="""RTN"",""ECBEPF"",21,0)"
^XMB(3.9,25,2,2770,0)=" ; set the zero node"
^XMB(3.9,25,2,2771,0)="""RTN"",""ECBEPF"",22,0)"
^XMB(3.9,25,2,2772,0)=" S ^ECH(ECFN,0)=ECFN_""^""_ECPS_""^""_ECDT_""^""_ECL_""^""_ECS_""^""_ECM_""^""_ECD_""^""_ECC_""^""_ECP_""^""_ECV_""^^""_ECO_""^""_ECDUZ_""^^^^^^""_EC4_""^""_ECID_""^""_ECVST_""^""_ECINP"
^XMB(3.9,25,2,2773,0)="""RTN"",""ECBEPF"",23,0)"
^XMB(3.9,25,2,2774,0)=" ;ALB/JAM file multiple providers (EC*2*72)"
^XMB(3.9,25,2,2775,0)="""RTN"",""ECBEPF"",24,0)"
^XMB(3.9,25,2,2776,0)=" S ECFIL=$$FILPRV^ECPRVMUT(ECFN,.ECPRVARY,.ECOUT) K ECFIL"
^XMB(3.9,25,2,2777,0)="""RTN"",""ECBEPF"",25,0)"
^XMB(3.9,25,2,2778,0)=" ;ALB/ESD - Set procedure reason into zero node"
^XMB(3.9,25,2,2779,0)="""RTN"",""ECBEPF"",26,0)"
^XMB(3.9,25,2,2780,0)=" I +ECPRPTR S $P(^ECH(ECFN,0),""^"",23)=+ECPRPTR"
^XMB(3.9,25,2,2781,0)="""RTN"",""ECBEPF"",27,0)"
^XMB(3.9,25,2,2782,0)=" ;set the ""P"" node"
^XMB(3.9,25,2,2783,0)="""RTN"",""ECBEPF"",28,0)"
^XMB(3.9,25,2,2784,0)=" S ^ECH(ECFN,""P"")=ECCPT_""^""_ECDX_""^""_ECAO_""^""_ECIR_""^""_ECZEC_""^""_ECSC"
^XMB(3.9,25,2,2785,0)="""RTN"",""ECBEPF"",29,0)"
^XMB(3.9,25,2,2786,0)=" S $P(^ECH(ECFN,""P""),""^"",9,12)=ECMST_""^""_ECHNC_""^""_ECCV"
^XMB(3.9,25,2,2787,0)="""RTN"",""ECBEPF"",30,0)"
^XMB(3.9,25,2,2788,0)=" ;add secondary diagnosis codes"
^XMB(3.9,25,2,2789,0)="""RTN"",""ECBEPF"",31,0)"
^XMB(3.9,25,2,2790,0)=" I $O(ECPT(CNT1,""DXS"",""""))'="""" D  K DXSIEN,DXS"
^XMB(3.9,25,2,2791,0)="""RTN"",""ECBEPF"",32,0)"
^XMB(3.9,25,2,2792,0)=" . S DXS="""" F  S DXS=$O(ECPT(CNT1,""DXS"",DXS)) Q:DXS=""""  D"
^XMB(3.9,25,2,2793,0)="""RTN"",""ECBEPF"",33,0)"
^XMB(3.9,25,2,2794,0)=" . . S DXSIEN=$P(ECPT(CNT1,""DXS"",DXS),U) I DXSIEN<0 Q"
^XMB(3.9,25,2,2795,0)="""RTN"",""ECBEPF"",34,0)"
^XMB(3.9,25,2,2796,0)=" . . K DIC,DD,DO"
^XMB(3.9,25,2,2797,0)="""RTN"",""ECBEPF"",35,0)"
^XMB(3.9,25,2,2798,0)=" . . S DIC(0)=""L"",DA(1)=ECFN,DIC=""^ECH(""_DA(1)_"",""_""""""DX""""""_"","""
^XMB(3.9,25,2,2799,0)="""RTN"",""ECBEPF"",36,0)"
^XMB(3.9,25,2,2800,0)=" . . S DIC(""P"")=$P(^DD(721,38,0),U,2),X=DXSIEN"
^XMB(3.9,25,2,2801,0)="""RTN"",""ECBEPF"",37,0)"
^XMB(3.9,25,2,2802,0)=" . . D FILE^DICN"
^XMB(3.9,25,2,2803,0)="""RTN"",""ECBEPF"",38,0)"
^XMB(3.9,25,2,2804,0)=" K ECDXX M ECDXX=ECPT(CNT1,""DXS"")"
^XMB(3.9,25,2,2805,0)="""RTN"",""ECBEPF"",39,0)"
^XMB(3.9,25,2,2806,0)=" S PXUPD=$$PXUPD^ECUTL2(ECPS,ECDT,ECL,EC4,ECDX,.ECDXX,ECFN) K PXUPD,ECDXX"
^XMB(3.9,25,2,2807,0)="""RTN"",""ECBEPF"",40,0)"
^XMB(3.9,25,2,2808,0)=" ;add CPT procedure modifiers"
^XMB(3.9,25,2,2809,0)="""RTN"",""ECBEPF"",41,0)"
^XMB(3.9,25,2,2810,0)=" I $O(ECEC(CNT,""MOD"",""""))'="""" D  K MODIEN,MOD"
^XMB(3.9,25,2,2811,0)="""RTN"",""ECBEPF"",42,0)"
^XMB(3.9,25,2,2812,0)=" . S MOD="""" F  S MOD=$O(ECEC(CNT,""MOD"",MOD)) Q:MOD=""""  D"
^XMB(3.9,25,2,2813,0)="""RTN"",""ECBEPF"",43,0)"
^XMB(3.9,25,2,2814,0)=" . . S MODIEN=$P(ECEC(CNT,""MOD"",MOD),U,2) I MODIEN<0 Q"
^XMB(3.9,25,2,2815,0)="""RTN"",""ECBEPF"",44,0)"
^XMB(3.9,25,2,2816,0)=" . . K DIC,DD,DO"
^XMB(3.9,25,2,2817,0)="""RTN"",""ECBEPF"",45,0)"
^XMB(3.9,25,2,2818,0)=" . . S DIC(0)=""L"",DA(1)=ECFN,DIC=""^ECH(""_DA(1)_"",""_""""""MOD""""""_"","""
^XMB(3.9,25,2,2819,0)="""RTN"",""ECBEPF"",46,0)"
^XMB(3.9,25,2,2820,0)=" . . S DIC(""P"")=$P(^DD(721,36,0),U,2),X=MODIEN"
^XMB(3.9,25,2,2821,0)="""RTN"",""ECBEPF"",47,0)"
^XMB(3.9,25,2,2822,0)=" . . D FILE^DICN"
^XMB(3.9,25,2,2823,0)="""RTN"",""ECBEPF"",48,0)"
^XMB(3.9,25,2,2824,0)="XREF ; sets crossreferences"
^XMB(3.9,25,2,2825,0)="""RTN"",""ECBEPF"",49,0)"
^XMB(3.9,25,2,2826,0)=" S DIK=""^ECH("",DA=ECFN D IX1^DIK K DA,DIK"
^XMB(3.9,25,2,2827,0)="""RTN"",""ECBEPF"",50,0)"
^XMB(3.9,25,2,2828,0)="PCE ;format data to send PCE"
^XMB(3.9,25,2,2829,0)="""RTN"",""ECBEPF"",51,0)"
^XMB(3.9,25,2,2830,0)=" Q:$P(ECPCE,""~"",2)=""N""  I $P(ECPCE,""~"",2)=""O""&(ECINP'=""O"") Q"
^XMB(3.9,25,2,2831,0)="""RTN"",""ECBEPF"",52,0)"
^XMB(3.9,25,2,2832,0)=" D PCE^ECBEN2U"
^XMB(3.9,25,2,2833,0)="""RTN"",""ECBEPF"",53,0)"
^XMB(3.9,25,2,2834,0)=" Q"
^XMB(3.9,25,2,2835,0)="""RTN"",""ECED1"")"
^XMB(3.9,25,2,2836,0)="0^25^B37208178^B36950524"
^XMB(3.9,25,2,2837,0)="""RTN"",""ECED1"",1,0)"
^XMB(3.9,25,2,2838,0)="ECED1 ;BIR/MAM,JPW-Event Capture Data Entry (cont'd) ;6 Mar 96"
^XMB(3.9,25,2,2839,0)="""RTN"",""ECED1"",2,0)"
^XMB(3.9,25,2,2840,0)=" ;;2.0; EVENT CAPTURE ;**4,5,8,10,18,23,41,47,50,72**;8 May 96"
^XMB(3.9,25,2,2841,0)="""RTN"",""ECED1"",3,0)"
^XMB(3.9,25,2,2842,0)="CAT ;cat & set unit info"
^XMB(3.9,25,2,2843,0)="""RTN"",""ECED1"",4,0)"
^XMB(3.9,25,2,2844,0)=" W !!,""Location: ""_ECLN,!,""DSS Unit: ""_ECDN,!"
^XMB(3.9,25,2,2845,0)="""RTN"",""ECED1"",5,0)"
^XMB(3.9,25,2,2846,0)=" D CATS^ECHECK1"
^XMB(3.9,25,2,2847,0)="""RTN"",""ECED1"",6,0)"
^XMB(3.9,25,2,2848,0)=" S NODE=$G(^ECD(ECD,0)),ECS=+$P(NODE,""^"",2),ECM=+$P(NODE,""^"",3),ECDDT=$P(NODE,""^"",12),ECDDT=$S(ECDDT=""T"":""NOW"",ECDDT=""N"":""NOW"",1:"""")"
^XMB(3.9,25,2,2849,0)="""RTN"",""ECED1"",7,0)"
^XMB(3.9,25,2,2850,0)=" S ECSN=$S($P($G(^DIC(49,ECS,0)),""^"")]"""":$P(^(0),""^""),1:""UNKNOWN""),ECMN=$S($P($G(^ECC(723,ECM,0)),""^"")]"""":$P(^(0),""^""),1:""UNKNOWN"")"
^XMB(3.9,25,2,2851,0)="""RTN"",""ECED1"",8,0)"
^XMB(3.9,25,2,2852,0)=" S ECPCE=""U~""_$S($P(NODE,""^"",14)]"""":$P(NODE,""^"",14),1:""N"")"
^XMB(3.9,25,2,2853,0)="""RTN"",""ECED1"",9,0)"
^XMB(3.9,25,2,2854,0)="PAT ;get pat"
^XMB(3.9,25,2,2855,0)="""RTN"",""ECED1"",10,0)"
^XMB(3.9,25,2,2856,0)=" S (ECJLP,ECOUT)=0"
^XMB(3.9,25,2,2857,0)="""RTN"",""ECED1"",11,0)"
^XMB(3.9,25,2,2858,0)=" K EC,^TMP(""ECLKUP"",$J) S CNT=0 K DIC S DIC=2,DIC(0)=""QEAMZ"",DIC(""A"")=""Select Patient: "" D ^DIC K DIC Q:Y<0  S ECDFN=+Y,ECPAT=$P(Y,""^"",2),ECOUT=0"
^XMB(3.9,25,2,2859,0)="""RTN"",""ECED1"",12,0)"
^XMB(3.9,25,2,2860,0)=" N ECUP S DFN=ECDFN D 2^VADPT I +VADM(6) D  I $G(ECUP)=""^"" G PAT"
^XMB(3.9,25,2,2861,0)="""RTN"",""ECED1"",13,0)"
^XMB(3.9,25,2,2862,0)=" . ; NOIS MWV-0603-21781: line below changed by VMP."
^XMB(3.9,25,2,2863,0)="""RTN"",""ECED1"",14,0)"
^XMB(3.9,25,2,2864,0)=" . W !!,""WARNING ""_""[PATIENT DIED ON ""_$P(VADM(6),U,2)_""] "",!!"
^XMB(3.9,25,2,2865,0)="""RTN"",""ECED1"",15,0)"
^XMB(3.9,25,2,2866,0)=" . R ""Press Return to Continue or ^ to Deselect: "",ECUP:DTIME"
^XMB(3.9,25,2,2867,0)="""RTN"",""ECED1"",16,0)"
^XMB(3.9,25,2,2868,0)="ASKD ;get proc date"
^XMB(3.9,25,2,2869,0)="""RTN"",""ECED1"",17,0)"
^XMB(3.9,25,2,2870,0)=" D DATE Q:ECOUT"
^XMB(3.9,25,2,2871,0)="""RTN"",""ECED1"",18,0)"
^XMB(3.9,25,2,2872,0)=" ;"
^XMB(3.9,25,2,2873,0)="""RTN"",""ECED1"",19,0)"
^XMB(3.9,25,2,2874,0)=" ;- Determine inpatient/outpatient status"
^XMB(3.9,25,2,2875,0)="""RTN"",""ECED1"",20,0)"
^XMB(3.9,25,2,2876,0)=" S ECPTSTAT=$$INOUTPT^ECUTL0(+$G(ECDFN),+$G(ECDT))"
^XMB(3.9,25,2,2877,0)="""RTN"",""ECED1"",21,0)"
^XMB(3.9,25,2,2878,0)=" I ECPTSTAT="""" D INOUTERR^ECUTL0 Q"
^XMB(3.9,25,2,2879,0)="""RTN"",""ECED1"",22,0)"
^XMB(3.9,25,2,2880,0)=" ;"
^XMB(3.9,25,2,2881,0)="""RTN"",""ECED1"",23,0)"
^XMB(3.9,25,2,2882,0)=" ;- Display inpatient/outpatient status message"
^XMB(3.9,25,2,2883,0)="""RTN"",""ECED1"",24,0)"
^XMB(3.9,25,2,2884,0)=" D DSPSTAT^ECUTL0(ECPTSTAT) S ECIOFLG=1"
^XMB(3.9,25,2,2885,0)="""RTN"",""ECED1"",25,0)"
^XMB(3.9,25,2,2886,0)=" ;"
^XMB(3.9,25,2,2887,0)="""RTN"",""ECED1"",26,0)"
^XMB(3.9,25,2,2888,0)="PR S X=$E(ECDT,1,7)-.0001 F I=0:0 S X=$O(^ECH(""ADT"",ECL,ECDFN,ECD,X)) Q:X>ECDT1!('X)  S ECFN=0 F I=0:0 S ECFN=$O(^ECH(""ADT"",ECL,ECDFN,ECD,X,ECFN)) Q:'ECFN  S CNT=CNT+1,EC(CNT)=ECFN D SET"
^XMB(3.9,25,2,2889,0)="""RTN"",""ECED1"",27,0)"
^XMB(3.9,25,2,2890,0)=" S CNT=0 I '$O(EC(0))&ECOUT=99 S ECOUT=0 Q"
^XMB(3.9,25,2,2891,0)="""RTN"",""ECED1"",28,0)"
^XMB(3.9,25,2,2892,0)="PROS ; display procedures"
^XMB(3.9,25,2,2893,0)="""RTN"",""ECED1"",29,0)"
^XMB(3.9,25,2,2894,0)=" I ECOUT K ECPAT D HDR W ! G PAT"
^XMB(3.9,25,2,2895,0)="""RTN"",""ECED1"",30,0)"
^XMB(3.9,25,2,2896,0)=" I '$D(EC(1)) S ECJLP=1 D DATE Q:ECOUT  D NEW^ECED2 S CNT=0 K EC G PR"
^XMB(3.9,25,2,2897,0)="""RTN"",""ECED1"",31,0)"
^XMB(3.9,25,2,2898,0)=" ;"
^XMB(3.9,25,2,2899,0)="""RTN"",""ECED1"",32,0)"
^XMB(3.9,25,2,2900,0)=" ;- Prevents inpat/outpat status from scrolling off screen before heading"
^XMB(3.9,25,2,2901,0)="""RTN"",""ECED1"",33,0)"
^XMB(3.9,25,2,2902,0)=" ;  clears screen and prints at top"
^XMB(3.9,25,2,2903,0)="""RTN"",""ECED1"",34,0)"
^XMB(3.9,25,2,2904,0)=" I $D(EC(1)),(+$G(ECIOFLG)) D MSG1^ECMUTL1 K ECIOFLG"
^XMB(3.9,25,2,2905,0)="""RTN"",""ECED1"",35,0)"
^XMB(3.9,25,2,2906,0)=" D HDR K ECHOICE F I=0:0 S CNT=$O(EC(CNT)) Q:'CNT!($D(ECHOICE))  S CNT1=CNT D LIST"
^XMB(3.9,25,2,2907,0)="""RTN"",""ECED1"",36,0)"
^XMB(3.9,25,2,2908,0)=" I ECOUT K ECPAT D HDR W ! G PAT"
^XMB(3.9,25,2,2909,0)="""RTN"",""ECED1"",37,0)"
^XMB(3.9,25,2,2910,0)=" I $D(ECHOICE),ECHOICE S EC=ECHOICE D EDIT^ECED3 S CNT=0 K EC G PR"
^XMB(3.9,25,2,2911,0)="""RTN"",""ECED1"",38,0)"
^XMB(3.9,25,2,2912,0)=" I $D(ECHOICE),ECHOICE=""N"" S ECJLP=1 D DATE Q:ECOUT  D NEW^ECED2 S CNT=0 K EC G PR"
^XMB(3.9,25,2,2913,0)="""RTN"",""ECED1"",39,0)"
^XMB(3.9,25,2,2914,0)="SELP W !!!,""Select a number to edit/delete, or enter N to create a New Procedure:  "" R X:DTIME I '$T!(""^""[X) K ECPAT D HDR G PAT"
^XMB(3.9,25,2,2915,0)="""RTN"",""ECED1"",40,0)"
^XMB(3.9,25,2,2916,0)=" I ""Nn""[X S ECJLP=1 D DATE Q:ECOUT  D NEW^ECED2 S CNT=0 K EC G PR"
^XMB(3.9,25,2,2917,0)="""RTN"",""ECED1"",41,0)"
^XMB(3.9,25,2,2918,0)=" I '$D(EC(X)) W !!,""Enter N to create a new procedure, or the number corresponding to the"",!,""procedure that you want to edit or delete.  Enter ^ quit."",!!,""Press <RET> to continue  "" R X:DTIME S CNT=CNT1-5 G PROS"
^XMB(3.9,25,2,2919,0)="""RTN"",""ECED1"",42,0)"
^XMB(3.9,25,2,2920,0)=" S EC=X D EDIT^ECED3 S CNT=0 K EC G PR"
^XMB(3.9,25,2,2921,0)="""RTN"",""ECED1"",43,0)"
^XMB(3.9,25,2,2922,0)=" ;"
^XMB(3.9,25,2,2923,0)="""RTN"",""ECED1"",44,0)"
^XMB(3.9,25,2,2924,0)="LIST ; list procedures"
^XMB(3.9,25,2,2925,0)="""RTN"",""ECED1"",45,0)"
^XMB(3.9,25,2,2926,0)=" I $Y+8>IOSL D SEL Q:$D(ECHOICE)!(X="""")"
^XMB(3.9,25,2,2927,0)="""RTN"",""ECED1"",46,0)"
^XMB(3.9,25,2,2928,0)=" S ECDTM=$$FMTE^XLFDT($P(EC(CNT),""^"",10),2)"
^XMB(3.9,25,2,2929,0)="""RTN"",""ECED1"",47,0)"
^XMB(3.9,25,2,2930,0)=" W !!,CNT_""."",?5,""Category : ""_$E($P(EC(CNT),""^"",2),1,23),?41,""Pr. Date: "",ECDTM,?67,$P(EC(CNT),""^"",4),!,?5,""Procedure: ""_$E($P(EC(CNT),""^"",3),1,50)_"" (""_$P(EC(CNT),""^"",6)_"")"",?67,$E($P(EC(CNT),""^"",5),1,13)"
^XMB(3.9,25,2,2931,0)="""RTN"",""ECED1"",48,0)"
^XMB(3.9,25,2,2932,0)=" I $O(EC(CNT,""MOD"",""""))'="""" D"
^XMB(3.9,25,2,2933,0)="""RTN"",""ECED1"",49,0)"
^XMB(3.9,25,2,2934,0)=" . N MOD S MOD="""" F  S MOD=$O(EC(CNT,""MOD"",MOD)) Q:MOD=""""  D"
^XMB(3.9,25,2,2935,0)="""RTN"",""ECED1"",50,0)"
^XMB(3.9,25,2,2936,0)=" . . W !?6,""Modifier: "",""    - "",MOD,"" "",$E(EC(CNT,""MOD"",MOD),1,55)"
^XMB(3.9,25,2,2937,0)="""RTN"",""ECED1"",51,0)"
^XMB(3.9,25,2,2938,0)=" I $P(EC(CNT),""^"",9)]"""" W !?5,""Procedure Reason: ""_$P(EC(CNT),""^"",9)"
^XMB(3.9,25,2,2939,0)="""RTN"",""ECED1"",52,0)"
^XMB(3.9,25,2,2940,0)=" Q"
^XMB(3.9,25,2,2941,0)="""RTN"",""ECED1"",53,0)"
^XMB(3.9,25,2,2942,0)="HDR ; heading"
^XMB(3.9,25,2,2943,0)="""RTN"",""ECED1"",54,0)"
^XMB(3.9,25,2,2944,0)=" W @IOF,!,""Location: ""_ECLN,?40,""Service: ""_ECSN,!,""Section: ""_ECMN,?40,""DSS Unit: ""_ECDN I $D(ECPAT) W !,""Patient: ""_ECPAT,?40,""Procedure Date: ""_ECDATE"
^XMB(3.9,25,2,2945,0)="""RTN"",""ECED1"",55,0)"
^XMB(3.9,25,2,2946,0)=" Q"
^XMB(3.9,25,2,2947,0)="""RTN"",""ECED1"",56,0)"
^XMB(3.9,25,2,2948,0)="SEL ; select procedure"
^XMB(3.9,25,2,2949,0)="""RTN"",""ECED1"",57,0)"
^XMB(3.9,25,2,2950,0)=" W !!!,""Select a number to edit, enter N for a New Procedure, or press <RET> to "",!,""continue listing procedures:  "" R X:DTIME I '$T!(X=""^"") S (ECOUT,ECHOICE)=1 Q"
^XMB(3.9,25,2,2951,0)="""RTN"",""ECED1"",58,0)"
^XMB(3.9,25,2,2952,0)=" I X="""" S CNT=CNT-1 D HDR Q"
^XMB(3.9,25,2,2953,0)="""RTN"",""ECED1"",59,0)"
^XMB(3.9,25,2,2954,0)=" I ""Na""[X S ECHOICE=""N"" Q"
^XMB(3.9,25,2,2955,0)="""RTN"",""ECED1"",60,0)"
^XMB(3.9,25,2,2956,0)=" I $D(EC(X)) S ECHOICE=X Q"
^XMB(3.9,25,2,2957,0)="""RTN"",""ECED1"",61,0)"
^XMB(3.9,25,2,2958,0)=" W !!,""To create a new procedure, type N.  If you would like to edit or delete"",!,""one of the procedures listed, enter the corresponding number.  Press <RET>"",!,""to continue the list, or ^ to quit."""
^XMB(3.9,25,2,2959,0)="""RTN"",""ECED1"",62,0)"
^XMB(3.9,25,2,2960,0)=" W !!,""Press <RET> to continue  "" R X:DTIME S X="""",CNT=CNT-6 D HDR"
^XMB(3.9,25,2,2961,0)="""RTN"",""ECED1"",63,0)"
^XMB(3.9,25,2,2962,0)=" Q"
^XMB(3.9,25,2,2963,0)="""RTN"",""ECED1"",64,0)"
^XMB(3.9,25,2,2964,0)="SET ; set EC array"
^XMB(3.9,25,2,2965,0)="""RTN"",""ECED1"",65,0)"
^XMB(3.9,25,2,2966,0)=" N ECPXD"
^XMB(3.9,25,2,2967,0)="""RTN"",""ECED1"",66,0)"
^XMB(3.9,25,2,2968,0)=" I '$D(^ECH(EC(CNT),0)) W !!,""Event Capture patient data missing."",!! S ECOUT=1 Q"
^XMB(3.9,25,2,2969,0)="""RTN"",""ECED1"",67,0)"
^XMB(3.9,25,2,2970,0)=" S ECCH=$G(^ECH(EC(CNT),0)),(ECPSYN,ECPTCD)="""",ECDTM=$P(ECCH,""^"",3)"
^XMB(3.9,25,2,2971,0)="""RTN"",""ECED1"",68,0)"
^XMB(3.9,25,2,2972,0)=" S ECTEMP=+$P(ECCH,""^"",8),ECCN=$S($P($G(^EC(726,ECTEMP,0)),""^"")]"""":$P(^(0),""^""),1:""None"")"
^XMB(3.9,25,2,2973,0)="""RTN"",""ECED1"",69,0)"
^XMB(3.9,25,2,2974,0)=" S ECTEMP=$P(ECCH,""^"",9),ECTEST=""^""_$P(ECTEMP,"";"",2),ECTEMP=+ECTEMP"
^XMB(3.9,25,2,2975,0)="""RTN"",""ECED1"",70,0)"
^XMB(3.9,25,2,2976,0)=" I $P(ECCH,""^"",4)'="""",$P(ECCH,""^"",7)'="""",$P(ECCH,""^"",8)'="""",$P(ECCH,""^"",9)'="""" D"
^XMB(3.9,25,2,2977,0)="""RTN"",""ECED1"",71,0)"
^XMB(3.9,25,2,2978,0)=" . S ECPSY=+$O(^ECJ(""AP"",$P(ECCH,""^"",4),$P(ECCH,""^"",7),$P(ECCH,""^"",8),$P(ECCH,""^"",9),""""))"
^XMB(3.9,25,2,2979,0)="""RTN"",""ECED1"",72,0)"
^XMB(3.9,25,2,2980,0)=" . I ECPSY'="""" S ECPSYN=$P($G(^ECJ(ECPSY,""PRO"")),""^"",2)"
^XMB(3.9,25,2,2981,0)="""RTN"",""ECED1"",73,0)"
^XMB(3.9,25,2,2982,0)=" S ECCPT=$S(ECTEST[""EC"":$P($G(^EC(725,ECTEMP,0)),""^"",5),1:ECTEMP)"
^XMB(3.9,25,2,2983,0)="""RTN"",""ECED1"",74,0)"
^XMB(3.9,25,2,2984,0)=" S (ECPTCD,ECPXD)="""" I ECCPT'="""" D"
^XMB(3.9,25,2,2985,0)="""RTN"",""ECED1"",75,0)"
^XMB(3.9,25,2,2986,0)=" . S ECPXD=$$CPT^ICPTCOD(ECCPT,ECDTM) I +ECPXD>0 S ECPTCD=$P(ECPXD,U,2)"
^XMB(3.9,25,2,2987,0)="""RTN"",""ECED1"",76,0)"
^XMB(3.9,25,2,2988,0)=" I $D(^ECH(EC(CNT),""MOD"")) D  K MOD,ARR,ECMODF"
^XMB(3.9,25,2,2989,0)="""RTN"",""ECED1"",77,0)"
^XMB(3.9,25,2,2990,0)=" . K ARR,ECMOD S ECMODF=$$MOD^ECUTL(EC(CNT),""E"",.ARR) I 'ECMODF Q"
^XMB(3.9,25,2,2991,0)="""RTN"",""ECED1"",78,0)"
^XMB(3.9,25,2,2992,0)=" . S MOD="""" F  S MOD=$O(ARR(MOD)) Q:MOD=""""  S ECMOD(MOD)=$P(ARR(MOD),U,3)"
^XMB(3.9,25,2,2993,0)="""RTN"",""ECED1"",79,0)"
^XMB(3.9,25,2,2994,0)=" I ECTEST[""EC"" D  G SET1"
^XMB(3.9,25,2,2995,0)="""RTN"",""ECED1"",80,0)"
^XMB(3.9,25,2,2996,0)=" . S ECPN=$S($P($G(^EC(725,ECTEMP,0)),""^"")]"""":$P(^(0),""^""),1:""UNKNOWN"")"
^XMB(3.9,25,2,2997,0)="""RTN"",""ECED1"",81,0)"
^XMB(3.9,25,2,2998,0)=" I ECTEST[""ICPT"" D  G SET1"
^XMB(3.9,25,2,2999,0)="""RTN"",""ECED1"",82,0)"
^XMB(3.9,25,2,3000,0)=" . S ECPN=$S($P(ECPXD,U,3)]"""":$P(ECPXD,U,3),1:""UNKNOWN"")"
^XMB(3.9,25,2,3001,0)="""RTN"",""ECED1"",83,0)"
^XMB(3.9,25,2,3002,0)=" S ECPN=""UNKNOWN"""
^XMB(3.9,25,2,3003,0)="""RTN"",""ECED1"",84,0)"
^XMB(3.9,25,2,3004,0)="SET1 S ECPN=ECPTCD_"" ""_ECPN_$S(ECPSYN="""":"""",1:""  [""_ECPSYN_""]"")"
^XMB(3.9,25,2,3005,0)="""RTN"",""ECED1"",85,0)"
^XMB(3.9,25,2,3006,0)=" S ECTEMP=+$P(ECCH,""^"",12)"
^XMB(3.9,25,2,3007,0)="""RTN"",""ECED1"",86,0)"
^XMB(3.9,25,2,3008,0)=" S ECON=$S($P($G(^ECC(723,ECTEMP,0)),""^"")]"""":$P(^(0),""^""),1:""UNKNOWN"")"
^XMB(3.9,25,2,3009,0)="""RTN"",""ECED1"",87,0)"
^XMB(3.9,25,2,3010,0)=" S ECV=$P(ECCH,""^"",10),EC4=$P(ECCH,""^"",19),ECID=$P(ECCH,""^"",20)"
^XMB(3.9,25,2,3011,0)="""RTN"",""ECED1"",88,0)"
^XMB(3.9,25,2,3012,0)=" S EC4N=$S($P($G(^SC(+EC4,0)),""^"")]"""":$P(^(0),""^""),1:"""")"
^XMB(3.9,25,2,3013,0)="""RTN"",""ECED1"",89,0)"
^XMB(3.9,25,2,3014,0)=" S ECDAT=$$GETPPRV^ECPRVMUT(EC(CNT),.ECUN) I ECDAT S ECUN=""^No primary provider"""
^XMB(3.9,25,2,3015,0)="""RTN"",""ECED1"",90,0)"
^XMB(3.9,25,2,3016,0)=" S ECUN=$P(ECUN,""^"",2)"
^XMB(3.9,25,2,3017,0)="""RTN"",""ECED1"",91,0)"
^XMB(3.9,25,2,3018,0)=" ;"
^XMB(3.9,25,2,3019,0)="""RTN"",""ECED1"",92,0)"
^XMB(3.9,25,2,3020,0)=" ;- Check for and display procedure reason"
^XMB(3.9,25,2,3021,0)="""RTN"",""ECED1"",93,0)"
^XMB(3.9,25,2,3022,0)=" I +$P(ECCH,""^"",23) S ECPRS=+$P(ECCH,""^"",23),ECPRSL=$P($G(^ECL(ECPRS,0)),""^""),ECPRSN=$P($G(^ECR(ECPRSL,0)),""^"")"
^XMB(3.9,25,2,3023,0)="""RTN"",""ECED1"",94,0)"
^XMB(3.9,25,2,3024,0)=" S EC(CNT)=EC(CNT)_""^""_ECCN_""^""_ECPN_""^""_$S(ECUN["","":$P(ECUN,"","")_"", ""_$E($P(ECUN,"","",2)),1:ECUN)_""^""_$E(ECON,1,15)_""^""_ECV_""^""_EC4_""^""_ECID_$S($G(ECPRSN)]"""":""^""_ECPRSN,1:"""")"
^XMB(3.9,25,2,3025,0)="""RTN"",""ECED1"",95,0)"
^XMB(3.9,25,2,3026,0)=" S $P(EC(CNT),""^"",10)=ECDTM"
^XMB(3.9,25,2,3027,0)="""RTN"",""ECED1"",96,0)"
^XMB(3.9,25,2,3028,0)=" I $O(ECMOD(""""))'="""" D"
^XMB(3.9,25,2,3029,0)="""RTN"",""ECED1"",97,0)"
^XMB(3.9,25,2,3030,0)=" . M EC(CNT,""MOD"")=ECMOD"
^XMB(3.9,25,2,3031,0)="""RTN"",""ECED1"",98,0)"
^XMB(3.9,25,2,3032,0)=" K ECPRS,ECPRSN,ECPRSL,ECMOD"
^XMB(3.9,25,2,3033,0)="""RTN"",""ECED1"",99,0)"
^XMB(3.9,25,2,3034,0)=" Q"
^XMB(3.9,25,2,3035,0)="""RTN"",""ECED1"",100,0)"
^XMB(3.9,25,2,3036,0)="DATE ;ask date"
^XMB(3.9,25,2,3037,0)="""RTN"",""ECED1"",101,0)"
^XMB(3.9,25,2,3038,0)=" I ECJLP,$D(ECDT),$P(ECDT,""."",2)]"""" Q"
^XMB(3.9,25,2,3039,0)="""RTN"",""ECED1"",102,0)"
^XMB(3.9,25,2,3040,0)=" I ECJLP,$D(ECDT),$P(ECDT,""."",2)']"""" W !!,""You must enter both DATE and TIME to create a new procedure record."",!!"
^XMB(3.9,25,2,3041,0)="""RTN"",""ECED1"",103,0)"
^XMB(3.9,25,2,3042,0)=" ;"
^XMB(3.9,25,2,3043,0)="""RTN"",""ECED1"",104,0)"
^XMB(3.9,25,2,3044,0)=" ;- Prevent future dates from being entered"
^XMB(3.9,25,2,3045,0)="""RTN"",""ECED1"",105,0)"
^XMB(3.9,25,2,3046,0)=" K %DT S %DT=""EAXR"",%DT(""A"")=""Enter Date and Time of Procedure: "",%DT(0)=""-NOW"" S:ECDDT]"""" %DT(""B"")=ECDDT D ^%DT K %DT I Y<0 S ECOUT=1 Q"
^XMB(3.9,25,2,3047,0)="""RTN"",""ECED1"",106,0)"
^XMB(3.9,25,2,3048,0)=" S ECDT=+Y,ECDT1=$E(Y,1,7)+.9999,ECDATE=$$FMTE^XLFDT(ECDT)"
^XMB(3.9,25,2,3049,0)="""RTN"",""ECED1"",107,0)"
^XMB(3.9,25,2,3050,0)=" Q"
^XMB(3.9,25,2,3051,0)="""RTN"",""ECED3"")"
^XMB(3.9,25,2,3052,0)="0^22^B70458446^B71551956"
^XMB(3.9,25,2,3053,0)="""RTN"",""ECED3"",1,0)"
^XMB(3.9,25,2,3054,0)="ECED3 ;BIR/MAM,JPW-Enter Event Capture Data (cont'd) ;7 May 96"
^XMB(3.9,25,2,3055,0)="""RTN"",""ECED3"",2,0)"
^XMB(3.9,25,2,3056,0)=" ;;2.0; EVENT CAPTURE ;**1,4,5,7,10,13,18,23,29,32,47,72**;8 May 96"
^XMB(3.9,25,2,3057,0)="""RTN"",""ECED3"",3,0)"
^XMB(3.9,25,2,3058,0)="EDIT ; enter or edit procedure"
^XMB(3.9,25,2,3059,0)="""RTN"",""ECED3"",4,0)"
^XMB(3.9,25,2,3060,0)=" W !!,""Edit or Delete this Procedure:  EDIT//  "" R X:DTIME I '$T!(X[""^"") S ECOUT=1 Q"
^XMB(3.9,25,2,3061,0)="""RTN"",""ECED3"",5,0)"
^XMB(3.9,25,2,3062,0)=" S X=$E(X) S:X="""" X=""E"" I ""EeDd""'[X W !!,""Press <RET> to edit the selected procedure, or enter D to delete"",!,""the procedure."",! G EDIT"
^XMB(3.9,25,2,3063,0)="""RTN"",""ECED3"",6,0)"
^XMB(3.9,25,2,3064,0)=" I ""Dd""[X D DEL Q"
^XMB(3.9,25,2,3065,0)="""RTN"",""ECED3"",7,0)"
^XMB(3.9,25,2,3066,0)=" D SETE^ECEDU"
^XMB(3.9,25,2,3067,0)="""RTN"",""ECED3"",8,0)"
^XMB(3.9,25,2,3068,0)="ASK ;edit cat"
^XMB(3.9,25,2,3069,0)="""RTN"",""ECED3"",9,0)"
^XMB(3.9,25,2,3070,0)=" S (ECFLG,ECOLD,ECOLDN,EC1,OK)=0"
^XMB(3.9,25,2,3071,0)="""RTN"",""ECED3"",10,0)"
^XMB(3.9,25,2,3072,0)=" I '$D(ECC(1)) G P"
^XMB(3.9,25,2,3073,0)="""RTN"",""ECED3"",11,0)"
^XMB(3.9,25,2,3074,0)=" I '$D(ECC(2)) G P"
^XMB(3.9,25,2,3075,0)="""RTN"",""ECED3"",12,0)"
^XMB(3.9,25,2,3076,0)=" W !!,""Category: ""_ECCN_""// "" R X:DTIME I '$T!(X[""^"") S ECOUT=1 Q"
^XMB(3.9,25,2,3077,0)="""RTN"",""ECED3"",13,0)"
^XMB(3.9,25,2,3078,0)=" I X="""" G P"
^XMB(3.9,25,2,3079,0)="""RTN"",""ECED3"",14,0)"
^XMB(3.9,25,2,3080,0)=" I ""?""[X G NEWC"
^XMB(3.9,25,2,3081,0)="""RTN"",""ECED3"",15,0)"
^XMB(3.9,25,2,3082,0)="NEW ; create new procedure"
^XMB(3.9,25,2,3083,0)="""RTN"",""ECED3"",16,0)"
^XMB(3.9,25,2,3084,0)=" S MM="""" F  S MM=$O(ECC(MM)) Q:(MM="""")!($D(ECHOICE))  I $D(ECC(MM)),$P(ECC(MM),""^"",2)=X S ECHOICE=MM"
^XMB(3.9,25,2,3085,0)="""RTN"",""ECED3"",17,0)"
^XMB(3.9,25,2,3086,0)=" I $D(ECHOICE) S ECOLD=ECC,ECOLDN=ECCN,ECC=+ECC(ECHOICE),ECCN=$P(ECC(ECHOICE),""^"",2)"
^XMB(3.9,25,2,3087,0)="""RTN"",""ECED3"",18,0)"
^XMB(3.9,25,2,3088,0)=" I $D(ECHOICE),ECC=ECOLD K ECOLD,ECOLDN W !,""CATEGORY: ""_ECCN K ECHOICE G P"
^XMB(3.9,25,2,3089,0)="""RTN"",""ECED3"",19,0)"
^XMB(3.9,25,2,3090,0)=" I $D(ECHOICE) G P"
^XMB(3.9,25,2,3091,0)="""RTN"",""ECED3"",20,0)"
^XMB(3.9,25,2,3092,0)="NEWC S X="""",(CNT,ECOLD)=0"
^XMB(3.9,25,2,3093,0)="""RTN"",""ECED3"",21,0)"
^XMB(3.9,25,2,3094,0)="LIST W !,""Categories within ""_ECDN_"": "",! S EC1=0 F I=0:0 S CNT=$O(ECC(CNT)) Q:'CNT!$D(ECHOICE)  D:($Y+5>IOSL) SELC Q:$D(ECHOICE)  I X="""" W !,CNT_"". "",?5,$P(ECC(CNT),""^"",2)"
^XMB(3.9,25,2,3095,0)="""RTN"",""ECED3"",22,0)"
^XMB(3.9,25,2,3096,0)=" I '$D(ECSTOP),$D(ECHOICE) G P"
^XMB(3.9,25,2,3097,0)="""RTN"",""ECED3"",23,0)"
^XMB(3.9,25,2,3098,0)="PICK W !!,""Select Number:  "" R X:DTIME I '$T!(""^""[X) S ECOUT=1 Q"
^XMB(3.9,25,2,3099,0)="""RTN"",""ECED3"",24,0)"
^XMB(3.9,25,2,3100,0)=" I '$D(ECC(X)) W !!,""Select the number corresponding to the procedure category, or ^ to quit."",!!,""Press <RET> to continue  "",! R X:DTIME K ECHOICE,ECSTOP S CNT=CNT-5,X="""" D HDR^ECEDU G LIST"
^XMB(3.9,25,2,3101,0)="""RTN"",""ECED3"",25,0)"
^XMB(3.9,25,2,3102,0)=" S ECOLD=ECC,ECOLDN=ECCN,ECC=$P(ECC(X),""^""),ECCN=$P(ECC(X),""^"",2) I ECC=ECOLD K ECOLD,ECOLDN"
^XMB(3.9,25,2,3103,0)="""RTN"",""ECED3"",26,0)"
^XMB(3.9,25,2,3104,0)="P ; get procedure"
^XMB(3.9,25,2,3105,0)="""RTN"",""ECED3"",27,0)"
^XMB(3.9,25,2,3106,0)=" S EC1=1 D PROS^ECHECK1"
^XMB(3.9,25,2,3107,0)="""RTN"",""ECED3"",28,0)"
^XMB(3.9,25,2,3108,0)=" I '$O(^TMP(""ECPRO"",$J,0)) D  Q:ECOUT"
^XMB(3.9,25,2,3109,0)="""RTN"",""ECED3"",29,0)"
^XMB(3.9,25,2,3110,0)=" .W !!,""Within the "",ECLN,"" location there are no procedures defined"",!"
^XMB(3.9,25,2,3111,0)="""RTN"",""ECED3"",30,0)"
^XMB(3.9,25,2,3112,0)=" .W ""for the DSS Unit "",ECDN,"".  Please select another DSS Unit."",!!"
^XMB(3.9,25,2,3113,0)="""RTN"",""ECED3"",31,0)"
^XMB(3.9,25,2,3114,0)=" .W ""Press <RET> to continue "" R X:DTIME S ECOUT=2 Q"
^XMB(3.9,25,2,3115,0)="""RTN"",""ECED3"",32,0)"
^XMB(3.9,25,2,3116,0)="P1 ;"
^XMB(3.9,25,2,3117,0)="""RTN"",""ECED3"",33,0)"
^XMB(3.9,25,2,3118,0)=" I '$D(^TMP(""ECPRO"",$J,2)) S CNT=1 D SETP W !,""Procedure: "" D  G DIE"
^XMB(3.9,25,2,3119,0)="""RTN"",""ECED3"",34,0)"
^XMB(3.9,25,2,3120,0)=" . W $S(ECCPT="""":"""",1:ECPTCD_"" "")_$E(ECPN,1,50)"
^XMB(3.9,25,2,3121,0)="""RTN"",""ECED3"",35,0)"
^XMB(3.9,25,2,3122,0)=" . W $S(SYN'[""NOT DEFINED"":"" [""_SYN_""]"",1:"""")_""  (#""_NATN_"")"",!"
^XMB(3.9,25,2,3123,0)="""RTN"",""ECED3"",36,0)"
^XMB(3.9,25,2,3124,0)=" ;"
^XMB(3.9,25,2,3125,0)="""RTN"",""ECED3"",37,0)"
^XMB(3.9,25,2,3126,0)="NEWP S ECX="""",(ECPCNT,CNT,OK)=0,EC1=1 K ECHOICE,ECSTOP"
^XMB(3.9,25,2,3127,0)="""RTN"",""ECED3"",38,0)"
^XMB(3.9,25,2,3128,0)=" I $G(ECPN)]"""" S DIR(""B"")=ECPN"
^XMB(3.9,25,2,3129,0)="""RTN"",""ECED3"",39,0)"
^XMB(3.9,25,2,3130,0)=" S DIR(""?"")=""^D PROS^ECED3"""
^XMB(3.9,25,2,3131,0)="""RTN"",""ECED3"",40,0)"
^XMB(3.9,25,2,3132,0)=" S ECX=$$GETPRO^ECDSUTIL"
^XMB(3.9,25,2,3133,0)="""RTN"",""ECED3"",41,0)"
^XMB(3.9,25,2,3134,0)=" I +$G(ECX)=-1 D KILLV^ECDSUTIL S ECOUT=1 Q"
^XMB(3.9,25,2,3135,0)="""RTN"",""ECED3"",42,0)"
^XMB(3.9,25,2,3136,0)=" ;"
^XMB(3.9,25,2,3137,0)="""RTN"",""ECED3"",43,0)"
^XMB(3.9,25,2,3138,0)=" I +$G(ECX),($G(ECPROCED)=$G(ECPN)) D KILLV^ECDSUTIL G DIE"
^XMB(3.9,25,2,3139,0)="""RTN"",""ECED3"",44,0)"
^XMB(3.9,25,2,3140,0)=" ;"
^XMB(3.9,25,2,3141,0)="""RTN"",""ECED3"",45,0)"
^XMB(3.9,25,2,3142,0)="P2 ;ask mul proc"
^XMB(3.9,25,2,3143,0)="""RTN"",""ECED3"",46,0)"
^XMB(3.9,25,2,3144,0)=" I +$G(ECX)=1 D SRCHTM^ECDSUTIL(ECX)"
^XMB(3.9,25,2,3145,0)="""RTN"",""ECED3"",47,0)"
^XMB(3.9,25,2,3146,0)=" S ECPCNT=+$G(ECPCNT)"
^XMB(3.9,25,2,3147,0)="""RTN"",""ECED3"",48,0)"
^XMB(3.9,25,2,3148,0)=" I ECPCNT=-1!(ECPCNT=-2) D  G NEWP"
^XMB(3.9,25,2,3149,0)="""RTN"",""ECED3"",49,0)"
^XMB(3.9,25,2,3150,0)=" . D @($S(ECPCNT=-1:""ERRMSG^ECDSUTIL"",ECPCNT=-2:""ERRMSG2^ECDSUTIL""))"
^XMB(3.9,25,2,3151,0)="""RTN"",""ECED3"",50,0)"
^XMB(3.9,25,2,3152,0)=" . D KILLV^ECDSUTIL"
^XMB(3.9,25,2,3153,0)="""RTN"",""ECED3"",51,0)"
^XMB(3.9,25,2,3154,0)=" I ECPCNT>0 D  G DIE"
^XMB(3.9,25,2,3155,0)="""RTN"",""ECED3"",52,0)"
^XMB(3.9,25,2,3156,0)=" . S CNT=ECPCNT"
^XMB(3.9,25,2,3157,0)="""RTN"",""ECED3"",53,0)"
^XMB(3.9,25,2,3158,0)=" . D SETP"
^XMB(3.9,25,2,3159,0)="""RTN"",""ECED3"",54,0)"
^XMB(3.9,25,2,3160,0)=" . S OK=1"
^XMB(3.9,25,2,3161,0)="""RTN"",""ECED3"",55,0)"
^XMB(3.9,25,2,3162,0)=" . D KILLV^ECDSUTIL"
^XMB(3.9,25,2,3163,0)="""RTN"",""ECED3"",56,0)"
^XMB(3.9,25,2,3164,0)=" I 'ECPCNT,$D(ECPNAME) S CNT=$$PRLST^ECDSUTIL"
^XMB(3.9,25,2,3165,0)="""RTN"",""ECED3"",57,0)"
^XMB(3.9,25,2,3166,0)=" I CNT=-1 D MSG^ECEDU,KILLV^ECDSUTIL Q"
^XMB(3.9,25,2,3167,0)="""RTN"",""ECED3"",58,0)"
^XMB(3.9,25,2,3168,0)=" I CNT>0 D  G DIE"
^XMB(3.9,25,2,3169,0)="""RTN"",""ECED3"",59,0)"
^XMB(3.9,25,2,3170,0)=" . D SETP"
^XMB(3.9,25,2,3171,0)="""RTN"",""ECED3"",60,0)"
^XMB(3.9,25,2,3172,0)=" . S OK=1"
^XMB(3.9,25,2,3173,0)="""RTN"",""ECED3"",61,0)"
^XMB(3.9,25,2,3174,0)=" . D KILLV^ECDSUTIL"
^XMB(3.9,25,2,3175,0)="""RTN"",""ECED3"",62,0)"
^XMB(3.9,25,2,3176,0)=" Q"
^XMB(3.9,25,2,3177,0)="""RTN"",""ECED3"",63,0)"
^XMB(3.9,25,2,3178,0)="PROS ;"
^XMB(3.9,25,2,3179,0)="""RTN"",""ECED3"",64,0)"
^XMB(3.9,25,2,3180,0)=" S X="""",CNT=0 K ECHOICE,ECSTOP"
^XMB(3.9,25,2,3181,0)="""RTN"",""ECED3"",65,0)"
^XMB(3.9,25,2,3182,0)="LISTP D HDR1^ECEDU S JJ=1 W !,""Available Procedures within ""_ECDN_"": "",!"
^XMB(3.9,25,2,3183,0)="""RTN"",""ECED3"",66,0)"
^XMB(3.9,25,2,3184,0)=" W ?72,""National"",!,?5,""Procedure Name"",?40,""Synonym"",?72,""Number"",!"
^XMB(3.9,25,2,3185,0)="""RTN"",""ECED3"",67,0)"
^XMB(3.9,25,2,3186,0)=" S EC1=1"
^XMB(3.9,25,2,3187,0)="""RTN"",""ECED3"",68,0)"
^XMB(3.9,25,2,3188,0)=" F   S CNT=$O(^TMP(""ECPRO"",$J,CNT)) Q:'CNT!$D(ECHOICE)  D:($Y+5>IOSL) SELC Q:$D(ECHOICE)  I X="""" W !,CNT_""."",?5,$E($P(^TMP(""ECPRO"",$J,CNT),""^"",4),1,30),?38,$E($P(^(CNT),""^"",3),1,30),?72,$P(^(CNT),""^"",5)"
^XMB(3.9,25,2,3189,0)="""RTN"",""ECED3"",69,0)"
^XMB(3.9,25,2,3190,0)=" I X="""" D"
^XMB(3.9,25,2,3191,0)="""RTN"",""ECED3"",70,0)"
^XMB(3.9,25,2,3192,0)=" .W !!?5,""Select by number, CPT or national code, procedure name, or synonym."""
^XMB(3.9,25,2,3193,0)="""RTN"",""ECED3"",71,0)"
^XMB(3.9,25,2,3194,0)=" .W !?5,""Synonym must be preceded by the & character  (example:  &TESTSYN)."",!"
^XMB(3.9,25,2,3195,0)="""RTN"",""ECED3"",72,0)"
^XMB(3.9,25,2,3196,0)=" .W ?2,""** Modifier(s) can be appended to a CPT code (ex: CPT code-mod1,mod2,mod3) **"",!"
^XMB(3.9,25,2,3197,0)="""RTN"",""ECED3"",73,0)"
^XMB(3.9,25,2,3198,0)=" Q"
^XMB(3.9,25,2,3199,0)="""RTN"",""ECED3"",74,0)"
^XMB(3.9,25,2,3200,0)=" ;"
^XMB(3.9,25,2,3201,0)="""RTN"",""ECED3"",75,0)"
^XMB(3.9,25,2,3202,0)="SETP ;set proc info"
^XMB(3.9,25,2,3203,0)="""RTN"",""ECED3"",76,0)"
^XMB(3.9,25,2,3204,0)=" S ECP=$P(^TMP(""ECPRO"",$J,CNT),""^""),ECPN=$P(^(CNT),""^"",4),NATN=$P(^(CNT),""^"",5),SYN=$P(^(CNT),""^"",3),ECCPT=$S(ECP[""EC"":$P($G(^EC(725,+ECP,0)),""^"",5),1:+ECP)"
^XMB(3.9,25,2,3205,0)="""RTN"",""ECED3"",77,0)"
^XMB(3.9,25,2,3206,0)=" S ECPTCD="""" I ECCPT'="""" D"
^XMB(3.9,25,2,3207,0)="""RTN"",""ECED3"",78,0)"
^XMB(3.9,25,2,3208,0)=" . S ECPTCD=$$CPT^ICPTCOD(ECCPT,ECDT) I +ECPTCD>0 S ECPTCD=$P(ECPTCD,U,2)"
^XMB(3.9,25,2,3209,0)="""RTN"",""ECED3"",79,0)"
^XMB(3.9,25,2,3210,0)=" W ""  ""_$S(ECCPT="""":"""",1:ECPTCD_"" "")_$E(ECPN,1,50)"
^XMB(3.9,25,2,3211,0)="""RTN"",""ECED3"",80,0)"
^XMB(3.9,25,2,3212,0)=" W $S(SYN'[""NOT DEFINED"":"" [""_SYN_""]"",1:"""")_""  (#""_NATN_"")"",!"
^XMB(3.9,25,2,3213,0)="""RTN"",""ECED3"",81,0)"
^XMB(3.9,25,2,3214,0)=" S EC4=$P(^TMP(""ECPRO"",$J,CNT),""^"",2),EC4=$P($G(^ECJ(+EC4,""PRO"")),""^"",4)"
^XMB(3.9,25,2,3215,0)="""RTN"",""ECED3"",82,0)"
^XMB(3.9,25,2,3216,0)=" S EC4N=$S($P($G(^SC(+EC4,0)),""^"")]"""":$P(^(0),""^""),1:"""")"
^XMB(3.9,25,2,3217,0)="""RTN"",""ECED3"",83,0)"
^XMB(3.9,25,2,3218,0)=" S ECID=$P($G(^SC(+EC4,0)),""^"",7)"
^XMB(3.9,25,2,3219,0)="""RTN"",""ECED3"",84,0)"
^XMB(3.9,25,2,3220,0)=" S ^TMP(""ECLKUP"",$J,""LAST"")=CNT"
^XMB(3.9,25,2,3221,0)="""RTN"",""ECED3"",85,0)"
^XMB(3.9,25,2,3222,0)=" Q"
^XMB(3.9,25,2,3223,0)="""RTN"",""ECED3"",86,0)"
^XMB(3.9,25,2,3224,0)="DIE ;edit record"
^XMB(3.9,25,2,3225,0)="""RTN"",""ECED3"",87,0)"
^XMB(3.9,25,2,3226,0)=" I $D(^ECH(DA,0)) S ECPO=$P(^(0),""^"",9),$P(^(0),""^"",8)=+ECC,$P(^(0),""^"",9)=ECP,ECINP=$P(^(0),""^"",22),ECCPT=$S(ECP[""EC"":$P($G(^EC(725,+ECP,0)),""^"",5),1:+ECP),$P(^ECH(DA,""P""),""^"")=ECCPT,ECPR=$P(^(0),""^"",3),ECFN=DA,ECDX1=$P($G(^ECH(DA,""P"")),U,2) D"
^XMB(3.9,25,2,3227,0)="""RTN"",""ECED3"",88,0)"
^XMB(3.9,25,2,3228,0)=" . Q:ECPO=ECP"
^XMB(3.9,25,2,3229,0)="""RTN"",""ECED3"",89,0)"
^XMB(3.9,25,2,3230,0)=" . W !,?8,""** Procedure code replaced, all modifiers deleted **"""
^XMB(3.9,25,2,3231,0)="""RTN"",""ECED3"",90,0)"
^XMB(3.9,25,2,3232,0)=" . S (ECDA,DA(1))=DA,DIK=""^ECH(""_DA(1)_"",""""MOD"""","",DA=0"
^XMB(3.9,25,2,3233,0)="""RTN"",""ECED3"",91,0)"
^XMB(3.9,25,2,3234,0)=" . F  S DA=$O(^ECH(ECDA,""MOD"",DA)) Q:'DA  D ^DIK"
^XMB(3.9,25,2,3235,0)="""RTN"",""ECED3"",92,0)"
^XMB(3.9,25,2,3236,0)=" . K DA S DA=ECDA K ECPO,ECDA,DIK,^ECH(DA,""MOD"")"
^XMB(3.9,25,2,3237,0)="""RTN"",""ECED3"",93,0)"
^XMB(3.9,25,2,3238,0)=" K DIE,DR S DIE(""NO^"")=""OUTOK"",DIE=""^ECH("""
^XMB(3.9,25,2,3239,0)="""RTN"",""ECED3"",94,0)"
^XMB(3.9,25,2,3240,0)=" ;"
^XMB(3.9,25,2,3241,0)="""RTN"",""ECED3"",95,0)"
^XMB(3.9,25,2,3242,0)=" S DR=$S($G(ECCPT)'="""":""36;"",1:"""")"
^XMB(3.9,25,2,3243,0)="""RTN"",""ECED3"",96,0)"
^XMB(3.9,25,2,3244,0)=" S DR=DR_""9;11//""_ECMN"
^XMB(3.9,25,2,3245,0)="""RTN"",""ECED3"",97,0)"
^XMB(3.9,25,2,3246,0)=" D ^DIE K DR"
^XMB(3.9,25,2,3247,0)="""RTN"",""ECED3"",98,0)"
^XMB(3.9,25,2,3248,0)=" I $D(DTOUT)!($D(Y)'=0) K DIE S ECOUT=1 Q"
^XMB(3.9,25,2,3249,0)="""RTN"",""ECED3"",99,0)"
^XMB(3.9,25,2,3250,0)=" ;"
^XMB(3.9,25,2,3251,0)="""RTN"",""ECED3"",100,0)"
^XMB(3.9,25,2,3252,0)=" ;- Don't allow future dates for procedure date/time"
^XMB(3.9,25,2,3253,0)="""RTN"",""ECED3"",101,0)"
^XMB(3.9,25,2,3254,0)=" I +$G(ECPR) S Y=ECPR D DD^%DT"
^XMB(3.9,25,2,3255,0)="""RTN"",""ECED3"",102,0)"
^XMB(3.9,25,2,3256,0)=" S %DT=""EAXR"",%DT(""A"")=""DATE/TIME OF PROCEDURE: "",%DT(""B"")=$S($G(ECPR)&($G(Y)]""""):Y,1:""""),%DT(0)=""-NOW"" K Y"
^XMB(3.9,25,2,3257,0)="""RTN"",""ECED3"",103,0)"
^XMB(3.9,25,2,3258,0)=" D ^%DT K %DT"
^XMB(3.9,25,2,3259,0)="""RTN"",""ECED3"",104,0)"
^XMB(3.9,25,2,3260,0)=" I $D(DTOUT)!($G(Y)=-1) K DTOUT,Y S ECOUT=1 Q"
^XMB(3.9,25,2,3261,0)="""RTN"",""ECED3"",105,0)"
^XMB(3.9,25,2,3262,0)=" S DR=""2////""_Y,ECNEWDT=Y"
^XMB(3.9,25,2,3263,0)="""RTN"",""ECED3"",106,0)"
^XMB(3.9,25,2,3264,0)=" D ^DIE K DR,Y"
^XMB(3.9,25,2,3265,0)="""RTN"",""ECED3"",107,0)"
^XMB(3.9,25,2,3266,0)=" ;"
^XMB(3.9,25,2,3267,0)="""RTN"",""ECED3"",108,0)"
^XMB(3.9,25,2,3268,0)=" ;- Get inpatient/outpatient status and file in #721"
^XMB(3.9,25,2,3269,0)="""RTN"",""ECED3"",109,0)"
^XMB(3.9,25,2,3270,0)=" S ECPTSTAT=$$INOUTPT^ECUTL0(+$G(ECDFN),+$G(ECNEWDT))"
^XMB(3.9,25,2,3271,0)="""RTN"",""ECED3"",110,0)"
^XMB(3.9,25,2,3272,0)=" I ECPTSTAT="""" D INOUTERR^ECUTL0 Q"
^XMB(3.9,25,2,3273,0)="""RTN"",""ECED3"",111,0)"
^XMB(3.9,25,2,3274,0)=" S DR=""29////""_ECPTSTAT"
^XMB(3.9,25,2,3275,0)="""RTN"",""ECED3"",112,0)"
^XMB(3.9,25,2,3276,0)=" D ^DIE"
^XMB(3.9,25,2,3277,0)="""RTN"",""ECED3"",113,0)"
^XMB(3.9,25,2,3278,0)=" K DR"
^XMB(3.9,25,2,3279,0)="""RTN"",""ECED3"",114,0)"
^XMB(3.9,25,2,3280,0)=" ;"
^XMB(3.9,25,2,3281,0)="""RTN"",""ECED3"",115,0)"
^XMB(3.9,25,2,3282,0)=" ;- Get associated clinic"
^XMB(3.9,25,2,3283,0)="""RTN"",""ECED3"",116,0)"
^XMB(3.9,25,2,3284,0)=" I $$CHKDSS^ECUTL0(+$G(ECD),ECPTSTAT) D  Q:+$G(ECOUT)"
^XMB(3.9,25,2,3285,0)="""RTN"",""ECED3"",117,0)"
^XMB(3.9,25,2,3286,0)=" . S DR=$S(EC4N]"""":""26//""_EC4N,1:""26"")"
^XMB(3.9,25,2,3287,0)="""RTN"",""ECED3"",118,0)"
^XMB(3.9,25,2,3288,0)=" . D ^DIE"
^XMB(3.9,25,2,3289,0)="""RTN"",""ECED3"",119,0)"
^XMB(3.9,25,2,3290,0)=" . K DR"
^XMB(3.9,25,2,3291,0)="""RTN"",""ECED3"",120,0)"
^XMB(3.9,25,2,3292,0)=" . I $D(DTOUT)!($D(Y)'=0) K DIE S ECOUT=1"
^XMB(3.9,25,2,3293,0)="""RTN"",""ECED3"",121,0)"
^XMB(3.9,25,2,3294,0)=" ;"
^XMB(3.9,25,2,3295,0)="""RTN"",""ECED3"",122,0)"
^XMB(3.9,25,2,3296,0)=" ; - Edit Primary and multiple secondary dx codes"
^XMB(3.9,25,2,3297,0)="""RTN"",""ECED3"",123,0)"
^XMB(3.9,25,2,3298,0)=" I $P(ECPCE,""~"",2)'=""N"" D DXEDT^ECEDU I ECOUT Q"
^XMB(3.9,25,2,3299,0)="""RTN"",""ECED3"",124,0)"
^XMB(3.9,25,2,3300,0)=" ;"
^XMB(3.9,25,2,3301,0)="""RTN"",""ECED3"",125,0)"
^XMB(3.9,25,2,3302,0)=" ;- Determine patient eligibility"
^XMB(3.9,25,2,3303,0)="""RTN"",""ECED3"",126,0)"
^XMB(3.9,25,2,3304,0)=" I $$CHKDSS^ECUTL0(+$G(ECD),ECPTSTAT) D"
^XMB(3.9,25,2,3305,0)="""RTN"",""ECED3"",127,0)"
^XMB(3.9,25,2,3306,0)=" . I '$$MULTELG^ECUTL0(+$G(ECDFN)) S ECELIG=+$G(VAEL(1))"
^XMB(3.9,25,2,3307,0)="""RTN"",""ECED3"",128,0)"
^XMB(3.9,25,2,3308,0)=" . E  D"
^XMB(3.9,25,2,3309,0)="""RTN"",""ECED3"",129,0)"
^XMB(3.9,25,2,3310,0)=" .. S ECELCOD=+$P($G(^ECH(DA,""PCE"")),""~"",17)"
^XMB(3.9,25,2,3311,0)="""RTN"",""ECED3"",130,0)"
^XMB(3.9,25,2,3312,0)=" .. S ECELDSP=$S(ECELCOD:$P($G(^DIC(8,ECELCOD,0)),""^""),1:""NO ELIGIBILITY ON FILE"")"
^XMB(3.9,25,2,3313,0)="""RTN"",""ECED3"",131,0)"
^XMB(3.9,25,2,3314,0)=" .. S ECELANS=$$ASKIF^ECUTL0(ECELDSP)"
^XMB(3.9,25,2,3315,0)="""RTN"",""ECED3"",132,0)"
^XMB(3.9,25,2,3316,0)=" .. I (ECELANS<1) D"
^XMB(3.9,25,2,3317,0)="""RTN"",""ECED3"",133,0)"
^XMB(3.9,25,2,3318,0)=" ... I ECELDSP=""NO ELIGIBILITY ON FILE"" D ELIGERR^ECUTL0"
^XMB(3.9,25,2,3319,0)="""RTN"",""ECED3"",134,0)"
^XMB(3.9,25,2,3320,0)=" ... S ECELIG=$S(ECELDSP=""NO ELIGIBILITY ON FILE"":+$G(VAEL(1)),1:ECELCOD)"
^XMB(3.9,25,2,3321,0)="""RTN"",""ECED3"",135,0)"
^XMB(3.9,25,2,3322,0)=" .. I (ECELANS>0) S ECELIG=+$$ELGLST^ECUTL0"
^XMB(3.9,25,2,3323,0)="""RTN"",""ECED3"",136,0)"
^XMB(3.9,25,2,3324,0)=" K ECELANS,ECELCOD,ECELDSP,VAEL,ECNEWDT,ECDX1"
^XMB(3.9,25,2,3325,0)="""RTN"",""ECED3"",137,0)"
^XMB(3.9,25,2,3326,0)=" ;"
^XMB(3.9,25,2,3327,0)="""RTN"",""ECED3"",138,0)"
^XMB(3.9,25,2,3328,0)=" ;- Display inpatient/outpatient status message"
^XMB(3.9,25,2,3329,0)="""RTN"",""ECED3"",139,0)"
^XMB(3.9,25,2,3330,0)=" D DSPSTAT^ECUTL0(ECPTSTAT)"
^XMB(3.9,25,2,3331,0)="""RTN"",""ECED3"",140,0)"
^XMB(3.9,25,2,3332,0)=" ;"
^XMB(3.9,25,2,3333,0)="""RTN"",""ECED3"",141,0)"
^XMB(3.9,25,2,3334,0)=" ;- Ask classification questions applicable to patient and file in #721"
^XMB(3.9,25,2,3335,0)="""RTN"",""ECED3"",142,0)"
^XMB(3.9,25,2,3336,0)=" I $$ASKCLASS^ECUTL1(+$G(ECDFN),.ECCLFLDS,.ECOUT,ECPCE,ECPTSTAT,DA),($O(ECCLFLDS(""""))]"""") D EDCLASS^ECUTL1(DA,.ECCLFLDS)"
^XMB(3.9,25,2,3337,0)="""RTN"",""ECED3"",143,0)"
^XMB(3.9,25,2,3338,0)=" Q:+$G(ECOUT)"
^XMB(3.9,25,2,3339,0)="""RTN"",""ECED3"",144,0)"
^XMB(3.9,25,2,3340,0)=" K ECCLFLDS"
^XMB(3.9,25,2,3341,0)="""RTN"",""ECED3"",145,0)"
^XMB(3.9,25,2,3342,0)=" ;"
^XMB(3.9,25,2,3343,0)="""RTN"",""ECED3"",146,0)"
^XMB(3.9,25,2,3344,0)=" ;- Get provider(s) with active person class"
^XMB(3.9,25,2,3345,0)="""RTN"",""ECED3"",147,0)"
^XMB(3.9,25,2,3346,0)=" I '$G(ECOUT) D ASKPRV^ECPRVMUT(DA,ECDT,.ECPRVARY,.ECOUT)"
^XMB(3.9,25,2,3347,0)="""RTN"",""ECED3"",148,0)"
^XMB(3.9,25,2,3348,0)=" I '$G(ECOUT) S ECFIL=$$FILPRV^ECPRVMUT(DA,.ECPRVARY,.ECOUT)"
^XMB(3.9,25,2,3349,0)="""RTN"",""ECED3"",149,0)"
^XMB(3.9,25,2,3350,0)=" K ECFIL,ECPRVARY,ECPRV,ECPRVN"
^XMB(3.9,25,2,3351,0)="""RTN"",""ECED3"",150,0)"
^XMB(3.9,25,2,3352,0)=" I $G(ECOUT)!$D(DTOUT) K DIE S ECOUT=1 Q"
^XMB(3.9,25,2,3353,0)="""RTN"",""ECED3"",151,0)"
^XMB(3.9,25,2,3354,0)=" ;"
^XMB(3.9,25,2,3355,0)="""RTN"",""ECED3"",152,0)"
^XMB(3.9,25,2,3356,0)=" ;- File assoc clinic from event code screen if null"
^XMB(3.9,25,2,3357,0)="""RTN"",""ECED3"",153,0)"
^XMB(3.9,25,2,3358,0)=" I $P($G(^ECH(DA,0)),""^"",19)="""" D"
^XMB(3.9,25,2,3359,0)="""RTN"",""ECED3"",154,0)"
^XMB(3.9,25,2,3360,0)=" . I $G(EC4)="""" D GETCLN"
^XMB(3.9,25,2,3361,0)="""RTN"",""ECED3"",155,0)"
^XMB(3.9,25,2,3362,0)=" . S EC4=+$G(EC4)"
^XMB(3.9,25,2,3363,0)="""RTN"",""ECED3"",156,0)"
^XMB(3.9,25,2,3364,0)=" . I EC4>0 D"
^XMB(3.9,25,2,3365,0)="""RTN"",""ECED3"",157,0)"
^XMB(3.9,25,2,3366,0)=" .. S DR=""26////^S X=EC4"""
^XMB(3.9,25,2,3367,0)="""RTN"",""ECED3"",158,0)"
^XMB(3.9,25,2,3368,0)=" .. D ^DIE K DR"
^XMB(3.9,25,2,3369,0)="""RTN"",""ECED3"",159,0)"
^XMB(3.9,25,2,3370,0)=" ;"
^XMB(3.9,25,2,3371,0)="""RTN"",""ECED3"",160,0)"
^XMB(3.9,25,2,3372,0)=" ;- Procedure Reason(s)"
^XMB(3.9,25,2,3373,0)="""RTN"",""ECED3"",161,0)"
^XMB(3.9,25,2,3374,0)=" I $G(ECP)]"""" S ECSCR=+$O(^ECJ(""AP"",+ECL,+ECD,+ECC,ECP,0))"
^XMB(3.9,25,2,3375,0)="""RTN"",""ECED3"",162,0)"
^XMB(3.9,25,2,3376,0)=" I ECSCR>0,($P($G(^ECJ(ECSCR,""PRO"")),""^"",5)=1),(+$O(^ECL(""AD"",ECSCR,0))) D  Q:+$G(ECOUT)"
^XMB(3.9,25,2,3377,0)="""RTN"",""ECED3"",163,0)"
^XMB(3.9,25,2,3378,0)=" . S DIE=""^ECH("",DR=""34"" D ^DIE K DR,DIE"
^XMB(3.9,25,2,3379,0)="""RTN"",""ECED3"",164,0)"
^XMB(3.9,25,2,3380,0)=" . I $D(DTOUT)!($D(Y)'=0) K ECSCR S ECOUT=1 Q"
^XMB(3.9,25,2,3381,0)="""RTN"",""ECED3"",165,0)"
^XMB(3.9,25,2,3382,0)=" ;"
^XMB(3.9,25,2,3383,0)="""RTN"",""ECED3"",166,0)"
^XMB(3.9,25,2,3384,0)=" K DIE,ECSCR S EC(0)=^ECH(+EC(EC),0),ECFN=+EC(0)"
^XMB(3.9,25,2,3385,0)="""RTN"",""ECED3"",167,0)"
^XMB(3.9,25,2,3386,0)=" S ECZZ=$G(^ECH(ECFN,""P"")),ECDX=+$P(ECZZ,""^"",2),ECCPT=+$P(ECZZ,""^""),ECINP=$P(EC(0),""^"",22) K ECZZ"
^XMB(3.9,25,2,3387,0)="""RTN"",""ECED3"",168,0)"
^XMB(3.9,25,2,3388,0)=" S EC4=$P(EC(0),""^"",19),ECID=$P($G(^SC(+EC4,0)),""^"",7),$P(^ECH(ECFN,0),""^"",20)=ECID"
^XMB(3.9,25,2,3389,0)="""RTN"",""ECED3"",169,0)"
^XMB(3.9,25,2,3390,0)=" I $P(ECPCE,""~"",2)=""N"" G SET"
^XMB(3.9,25,2,3391,0)="""RTN"",""ECED3"",170,0)"
^XMB(3.9,25,2,3392,0)=" I ($P(ECPCE,""~"",2)=""O"")&(ECINP'=""O"") G SET"
^XMB(3.9,25,2,3393,0)="""RTN"",""ECED3"",171,0)"
^XMB(3.9,25,2,3394,0)=" D CLIN^ECEDF I 'ECPCL W !!,""You should edit this patient procedure and enter an active clinic."",!!"
^XMB(3.9,25,2,3395,0)="""RTN"",""ECED3"",172,0)"
^XMB(3.9,25,2,3396,0)=" W !!,""Press <RET> to continue "" R X:DTIME"
^XMB(3.9,25,2,3397,0)="""RTN"",""ECED3"",173,0)"
^XMB(3.9,25,2,3398,0)="SET ; sets data "
^XMB(3.9,25,2,3399,0)="""RTN"",""ECED3"",174,0)"
^XMB(3.9,25,2,3400,0)=" S $P(^ECH(DA,0),""^"",14)="""",$P(^ECH(DA,0),""^"",16)="""",$P(^ECH(DA,0),""^"",18)="""""
^XMB(3.9,25,2,3401,0)="""RTN"",""ECED3"",175,0)"
^XMB(3.9,25,2,3402,0)=" S $P(^ECH(DA,0),""^"",13)=DUZ,ECU=$P(^(0),""^"",11) K DA"
^XMB(3.9,25,2,3403,0)="""RTN"",""ECED3"",176,0)"
^XMB(3.9,25,2,3404,0)=" Q:$P(ECPCE,""~"",2)=""N""  I $P(ECPCE,""~"",2)=""O""&(ECINP'=""O"") Q"
^XMB(3.9,25,2,3405,0)="""RTN"",""ECED3"",177,0)"
^XMB(3.9,25,2,3406,0)=" D PCEE^ECBEN2U"
^XMB(3.9,25,2,3407,0)="""RTN"",""ECED3"",178,0)"
^XMB(3.9,25,2,3408,0)=" Q"
^XMB(3.9,25,2,3409,0)="""RTN"",""ECED3"",179,0)"
^XMB(3.9,25,2,3410,0)="DEL ; delete existing procedure"
^XMB(3.9,25,2,3411,0)="""RTN"",""ECED3"",180,0)"
^XMB(3.9,25,2,3412,0)=" W !!,""Are you sure that you want to delete this entire procedure from"",!,""your records ?  NO// "" R X:DTIME I '$T!(X[""^"") S ECOUT=1 Q"
^XMB(3.9,25,2,3413,0)="""RTN"",""ECED3"",181,0)"
^XMB(3.9,25,2,3414,0)=" S X=$E(X) S:X="""" X=""N"" I ""NnYy""'[X W !!,""Enter YES to delete this procedure, or <RET> to quit this option."" G DEL"
^XMB(3.9,25,2,3415,0)="""RTN"",""ECED3"",182,0)"
^XMB(3.9,25,2,3416,0)=" I ""Nn""[X Q"
^XMB(3.9,25,2,3417,0)="""RTN"",""ECED3"",183,0)"
^XMB(3.9,25,2,3418,0)=" S ECCH=$G(^ECH(+EC(EC),0)),ECVST=+$P(ECCH,""^"",21) I 'ECVST G DELP"
^XMB(3.9,25,2,3419,0)="""RTN"",""ECED3"",184,0)"
^XMB(3.9,25,2,3420,0)=" ;"
^XMB(3.9,25,2,3421,0)="""RTN"",""ECED3"",185,0)"
^XMB(3.9,25,2,3422,0)=" ;* Prepare all EC records with same Visit file entry to resend to PCE"
^XMB(3.9,25,2,3423,0)="""RTN"",""ECED3"",186,0)"
^XMB(3.9,25,2,3424,0)=" ;* Remove Visit entry from ^ECH( so DELVFILE will complete cleanup"
^XMB(3.9,25,2,3425,0)="""RTN"",""ECED3"",187,0)"
^XMB(3.9,25,2,3426,0)=" N ECVAR1 S ECVAR1=$$FNDVST^ECUTL(ECVST) K ECVAR1  ;* 2nd Param not sent"
^XMB(3.9,25,2,3427,0)="""RTN"",""ECED3"",188,0)"
^XMB(3.9,25,2,3428,0)=" ;"
^XMB(3.9,25,2,3429,0)="""RTN"",""ECED3"",189,0)"
^XMB(3.9,25,2,3430,0)=" ;- Set VALQUIET to stop Amb Care validator from broadcasting to screen"
^XMB(3.9,25,2,3431,0)="""RTN"",""ECED3"",190,0)"
^XMB(3.9,25,2,3432,0)=" S VALQUIET=1,ECVV=$$DELVFILE^PXAPI(""ALL"",ECVST) K ECVST,VALQUIET"
^XMB(3.9,25,2,3433,0)="""RTN"",""ECED3"",191,0)"
^XMB(3.9,25,2,3434,0)="DELP S DA=+EC(EC),DIK=""^ECH("" W !!,""Deleting Procedure... "" D ^DIK K DA,DIK,ECVV"
^XMB(3.9,25,2,3435,0)="""RTN"",""ECED3"",192,0)"
^XMB(3.9,25,2,3436,0)=" ;S ECOUT=99  ;JAM/9/28/01 remove to allow redisplay of screen"
^XMB(3.9,25,2,3437,0)="""RTN"",""ECED3"",193,0)"
^XMB(3.9,25,2,3438,0)=" W !!,""Press <RET> to continue "" R X:DTIME"
^XMB(3.9,25,2,3439,0)="""RTN"",""ECED3"",194,0)"
^XMB(3.9,25,2,3440,0)=" Q"
^XMB(3.9,25,2,3441,0)="""RTN"",""ECED3"",195,0)"
^XMB(3.9,25,2,3442,0)="SELC ; select category"
^XMB(3.9,25,2,3443,0)="""RTN"",""ECED3"",196,0)"
^XMB(3.9,25,2,3444,0)=" W !!,$S(EC1:""Press"",1:""Select Number, or press"")_"" <RET> to continue listing ""_$S(EC1:""procedures"",1:""categories"")_"" or '^' to stop: "" R X:DTIME I '$T!(X=""^"") S (ECSTOP,ECHOICE)=1 Q"
^XMB(3.9,25,2,3445,0)="""RTN"",""ECED3"",197,0)"
^XMB(3.9,25,2,3446,0)=" I X="""" W @IOF,!,$S(EC1:""Available Procedures"",1:""Categories"")_"" within "",ECDN,"" : "",! Q"
^XMB(3.9,25,2,3447,0)="""RTN"",""ECED3"",198,0)"
^XMB(3.9,25,2,3448,0)=" I 'EC1,'$D(ECC(X)) D MSGC^ECEDU Q"
^XMB(3.9,25,2,3449,0)="""RTN"",""ECED3"",199,0)"
^XMB(3.9,25,2,3450,0)=" I EC1,'$D(^TMP(""ECPRO"",$J,X)) D MSGC^ECEDU Q"
^XMB(3.9,25,2,3451,0)="""RTN"",""ECED3"",200,0)"
^XMB(3.9,25,2,3452,0)=" S ECHOICE=1"
^XMB(3.9,25,2,3453,0)="""RTN"",""ECED3"",201,0)"
^XMB(3.9,25,2,3454,0)=" I 'EC1 S ECC=+$P(ECC(X),""^""),ECCN=$P(ECC(X),""^"",2) Q"
^XMB(3.9,25,2,3455,0)="""RTN"",""ECED3"",202,0)"
^XMB(3.9,25,2,3456,0)=" Q"
^XMB(3.9,25,2,3457,0)="""RTN"",""ECED3"",203,0)"
^XMB(3.9,25,2,3458,0)=" ;"
^XMB(3.9,25,2,3459,0)="""RTN"",""ECED3"",204,0)"
^XMB(3.9,25,2,3460,0)="GETCLN ;- Get assoc clinic from event code screen"
^XMB(3.9,25,2,3461,0)="""RTN"",""ECED3"",205,0)"
^XMB(3.9,25,2,3462,0)=" N ECI"
^XMB(3.9,25,2,3463,0)="""RTN"",""ECED3"",206,0)"
^XMB(3.9,25,2,3464,0)=" I $G(EC4)="""",($G(ECP)]"""") D"
^XMB(3.9,25,2,3465,0)="""RTN"",""ECED3"",207,0)"
^XMB(3.9,25,2,3466,0)=" . S ECI=+$O(^ECJ(""AP"",+ECL,+ECD,+ECC,ECP,0)),EC4=+$P($G(^ECJ(+ECI,""PRO"")),""^"",4)"
^XMB(3.9,25,2,3467,0)="""RTN"",""ECED3"",208,0)"
^XMB(3.9,25,2,3468,0)=" . S EC4N=$S($P($G(^SC(+EC4,0)),""^"")]"""":$P(^(0),""^""),1:"""")"
^XMB(3.9,25,2,3469,0)="""RTN"",""ECED3"",209,0)"
^XMB(3.9,25,2,3470,0)=" Q"
^XMB(3.9,25,2,3471,0)="""RTN"",""ECEDF"")"
^XMB(3.9,25,2,3472,0)="0^12^B27614692^B28110253"
^XMB(3.9,25,2,3473,0)="""RTN"",""ECEDF"",1,0)"
^XMB(3.9,25,2,3474,0)="ECEDF ;BIR/MAM,JPW-Enter Event Capture Data (cont'd) ;6 Mar 96"
^XMB(3.9,25,2,3475,0)="""RTN"",""ECEDF"",2,0)"
^XMB(3.9,25,2,3476,0)=" ;;2.0; EVENT CAPTURE ;**4,5,10,13,18,23,33,72**;8 May 96"
^XMB(3.9,25,2,3477,0)="""RTN"",""ECEDF"",3,0)"
^XMB(3.9,25,2,3478,0)="FILE ;file proc"
^XMB(3.9,25,2,3479,0)="""RTN"",""ECEDF"",4,0)"
^XMB(3.9,25,2,3480,0)=" L +^ECH(0) S ECRN=$P(^ECH(0),""^"",3)+1 I $D(^ECH(ECRN)) S $P(^ECH(0),""^"",3)=$P(^(0),""^"",3)+1 L -^ECH(0) G FILE"
^XMB(3.9,25,2,3481,0)="""RTN"",""ECEDF"",5,0)"
^XMB(3.9,25,2,3482,0)=" L -^ECH(0) K DA,DD,DO,DIC S DIC(0)=""L"",DIC=""^ECH("",X=ECRN D FILE^DICN K DIC S ECFN=+Y"
^XMB(3.9,25,2,3483,0)="""RTN"",""ECEDF"",6,0)"
^XMB(3.9,25,2,3484,0)=" ;Ask and file CPT modifiers, ALB/JAM"
^XMB(3.9,25,2,3485,0)="""RTN"",""ECEDF"",7,0)"
^XMB(3.9,25,2,3486,0)=" S ECCPT=$S(ECP[""ICPT"":+ECP,1:$P($G(^EC(725,+ECP,0)),U,5)) I ECCPT D"
^XMB(3.9,25,2,3487,0)="""RTN"",""ECEDF"",8,0)"
^XMB(3.9,25,2,3488,0)=" . S ECMODS=$G(ECMODS)"
^XMB(3.9,25,2,3489,0)="""RTN"",""ECEDF"",9,0)"
^XMB(3.9,25,2,3490,0)=" . S ECMODF=$$ASKMOD^ECUTL(ECCPT,ECMODS,ECDT,.ECMOD,.ECERR)"
^XMB(3.9,25,2,3491,0)="""RTN"",""ECEDF"",10,0)"
^XMB(3.9,25,2,3492,0)=" . S:$G(ECERR) ECOUT=1 K ECMODF,ECMODS I ECOUT Q"
^XMB(3.9,25,2,3493,0)="""RTN"",""ECEDF"",11,0)"
^XMB(3.9,25,2,3494,0)=" . S MOD="""" F  S MOD=$O(ECMOD(ECCPT,MOD)) Q:MOD=""""  D"
^XMB(3.9,25,2,3495,0)="""RTN"",""ECEDF"",12,0)"
^XMB(3.9,25,2,3496,0)=" . . S MODIEN=$P(ECMOD(ECCPT,MOD),U,2) I MODIEN<0 Q"
^XMB(3.9,25,2,3497,0)="""RTN"",""ECEDF"",13,0)"
^XMB(3.9,25,2,3498,0)=" . . K DIC,DD,DO S DIC(0)=""L"",DA(1)=ECFN,DIC(""P"")=$P(^DD(721,36,0),U,2)"
^XMB(3.9,25,2,3499,0)="""RTN"",""ECEDF"",14,0)"
^XMB(3.9,25,2,3500,0)=" . . S X=MODIEN,DIC=""^ECH(""_DA(1)_"",""_""""""MOD""""""_"","" D FILE^DICN"
^XMB(3.9,25,2,3501,0)="""RTN"",""ECEDF"",15,0)"
^XMB(3.9,25,2,3502,0)=" . K MOD,MODIEN,DIC,ECMOD"
^XMB(3.9,25,2,3503,0)="""RTN"",""ECEDF"",16,0)"
^XMB(3.9,25,2,3504,0)=" I $G(ECOUT) K ECMODS,ECMOD,ECERR D RECDEL,MSG Q"
^XMB(3.9,25,2,3505,0)="""RTN"",""ECEDF"",17,0)"
^XMB(3.9,25,2,3506,0)=" S DIR(""A"")=""Volume"",DIR(""B"")=ECVOL,DIR(0)=""N^^K:(X<1)!(X>99) X"""
^XMB(3.9,25,2,3507,0)="""RTN"",""ECEDF"",18,0)"
^XMB(3.9,25,2,3508,0)=" S DIR(""?"")=""Type a Number between 1 and 99, 0 Decimal Digits"""
^XMB(3.9,25,2,3509,0)="""RTN"",""ECEDF"",19,0)"
^XMB(3.9,25,2,3510,0)=" D ^DIR I $D(DIRUT) K DIR D RECDEL,MSG Q"
^XMB(3.9,25,2,3511,0)="""RTN"",""ECEDF"",20,0)"
^XMB(3.9,25,2,3512,0)=" S ECVOL=+Y,ECNULL="""" K DIR"
^XMB(3.9,25,2,3513,0)="""RTN"",""ECEDF"",21,0)"
^XMB(3.9,25,2,3514,0)=" K DA,DR,DIE S DIE(""NO^"")=""OUTOK"",DIE=""^ECH("",DA=ECFN"
^XMB(3.9,25,2,3515,0)="""RTN"",""ECEDF"",22,0)"
^XMB(3.9,25,2,3516,0)=" S DR=""1////""_ECDFN_"";3////""_ECL_"";4////""_ECS_"";5////""_ECM_"";6////""_ECD_"";7////""_+ECC_"";9////""_ECVOL_"";Q;8////""_ECNULL D ^DIE K DR"
^XMB(3.9,25,2,3517,0)="""RTN"",""ECEDF"",23,0)"
^XMB(3.9,25,2,3518,0)=" I $D(DTOUT)!($D(Y)'=0) K DIE D RECDEL,MSG Q"
^XMB(3.9,25,2,3519,0)="""RTN"",""ECEDF"",24,0)"
^XMB(3.9,25,2,3520,0)=" ;"
^XMB(3.9,25,2,3521,0)="""RTN"",""ECEDF"",25,0)"
^XMB(3.9,25,2,3522,0)=" ;- Default to previous ordering section if >1 procedure entered"
^XMB(3.9,25,2,3523,0)="""RTN"",""ECEDF"",26,0)"
^XMB(3.9,25,2,3524,0)=" S ECODFN=+$G(ECODFN)"
^XMB(3.9,25,2,3525,0)="""RTN"",""ECEDF"",27,0)"
^XMB(3.9,25,2,3526,0)=" S ECMN=$S((ECODFN=ECDFN)&(+$G(ECOM)):$P($G(^ECC(723,ECOM,0)),""^""),1:$P($G(^ECC(723,ECM,0)),""^""))"
^XMB(3.9,25,2,3527,0)="""RTN"",""ECEDF"",28,0)"
^XMB(3.9,25,2,3528,0)=" ;"
^XMB(3.9,25,2,3529,0)="""RTN"",""ECEDF"",29,0)"
^XMB(3.9,25,2,3530,0)=" ;- Get ordering section, and Procedure Date/Time"
^XMB(3.9,25,2,3531,0)="""RTN"",""ECEDF"",30,0)"
^XMB(3.9,25,2,3532,0)=" S DR=""11//""_ECMN_"";2////""_ECDT"
^XMB(3.9,25,2,3533,0)="""RTN"",""ECEDF"",31,0)"
^XMB(3.9,25,2,3534,0)=" D ^DIE K DR"
^XMB(3.9,25,2,3535,0)="""RTN"",""ECEDF"",32,0)"
^XMB(3.9,25,2,3536,0)=" I $D(DTOUT)!($D(Y)'=0)!($P(^ECH(ECFN,0),""^"",3)="""") K DIE D RECDEL,MSG Q"
^XMB(3.9,25,2,3537,0)="""RTN"",""ECEDF"",33,0)"
^XMB(3.9,25,2,3538,0)=" ;"
^XMB(3.9,25,2,3539,0)="""RTN"",""ECEDF"",34,0)"
^XMB(3.9,25,2,3540,0)=" ;- Get associated clinic"
^XMB(3.9,25,2,3541,0)="""RTN"",""ECEDF"",35,0)"
^XMB(3.9,25,2,3542,0)=" I $$CHKDSS^ECUTL0(+$G(ECD),ECPTSTAT) D  I +$G(ECOUT) D RECDEL,MSG Q"
^XMB(3.9,25,2,3543,0)="""RTN"",""ECEDF"",36,0)"
^XMB(3.9,25,2,3544,0)=" . S DR=$S(EC4N]"""":""26//""_EC4N,1:""26"")"
^XMB(3.9,25,2,3545,0)="""RTN"",""ECEDF"",37,0)"
^XMB(3.9,25,2,3546,0)=" . D ^DIE S EC4=X K DR"
^XMB(3.9,25,2,3547,0)="""RTN"",""ECEDF"",38,0)"
^XMB(3.9,25,2,3548,0)=" . I $D(DTOUT)!($D(Y)'=0) K DIE S ECOUT=1"
^XMB(3.9,25,2,3549,0)="""RTN"",""ECEDF"",39,0)"
^XMB(3.9,25,2,3550,0)=" ;"
^XMB(3.9,25,2,3551,0)="""RTN"",""ECEDF"",40,0)"
^XMB(3.9,25,2,3552,0)=" ; Get primary and multiple secondary diagnosis codes, ALB/JAM"
^XMB(3.9,25,2,3553,0)="""RTN"",""ECEDF"",41,0)"
^XMB(3.9,25,2,3554,0)=" I $P(ECPCE,""~"",2)'=""N"" D  I ECOUT D RECDEL,MSG Q"
^XMB(3.9,25,2,3555,0)="""RTN"",""ECEDF"",42,0)"
^XMB(3.9,25,2,3556,0)=" . D DIAG^ECUTL2 I ECOUT Q"
^XMB(3.9,25,2,3557,0)="""RTN"",""ECEDF"",43,0)"
^XMB(3.9,25,2,3558,0)=" . S DA=ECFN,DR=$S(ECDX]"""":""20////""_ECDX,1:20) D ^DIE S ECDXY=X K DR"
^XMB(3.9,25,2,3559,0)="""RTN"",""ECEDF"",44,0)"
^XMB(3.9,25,2,3560,0)=" . S DXS="""" F  S DXS=$O(ECDXS(DXS)) Q:DXS=""""  D"
^XMB(3.9,25,2,3561,0)="""RTN"",""ECEDF"",45,0)"
^XMB(3.9,25,2,3562,0)=" . . S DXSIEN=$P(ECDXS(DXS),U) I DXSIEN<0 Q"
^XMB(3.9,25,2,3563,0)="""RTN"",""ECEDF"",46,0)"
^XMB(3.9,25,2,3564,0)=" . . K DIC,DD,DO S DIC(0)=""L"",DA(1)=ECFN,DIC(""P"")=$P(^DD(721,38,0),U,2)"
^XMB(3.9,25,2,3565,0)="""RTN"",""ECEDF"",47,0)"
^XMB(3.9,25,2,3566,0)=" . . S X=DXSIEN,DIC=""^ECH(""_DA(1)_"",""_""""""DX""""""_"","" D FILE^DICN"
^XMB(3.9,25,2,3567,0)="""RTN"",""ECEDF"",48,0)"
^XMB(3.9,25,2,3568,0)=" . K ECDXX M ECDXX=ECDXS K DXS,DXSIEN,DIC,ECDXS"
^XMB(3.9,25,2,3569,0)="""RTN"",""ECEDF"",49,0)"
^XMB(3.9,25,2,3570,0)=" . ; Update all procedures for an encounter with same primary & second dx"
^XMB(3.9,25,2,3571,0)="""RTN"",""ECEDF"",50,0)"
^XMB(3.9,25,2,3572,0)=" . S PXUPD=$$PXUPD^ECUTL2(ECDFN,ECDT,ECL,EC4,ECDXY,.ECDXX,ECFN)"
^XMB(3.9,25,2,3573,0)="""RTN"",""ECEDF"",51,0)"
^XMB(3.9,25,2,3574,0)=" . K PXUPD,ECDXY,ECDXX"
^XMB(3.9,25,2,3575,0)="""RTN"",""ECEDF"",52,0)"
^XMB(3.9,25,2,3576,0)=" S DA=ECFN"
^XMB(3.9,25,2,3577,0)="""RTN"",""ECEDF"",53,0)"
^XMB(3.9,25,2,3578,0)=" ;"
^XMB(3.9,25,2,3579,0)="""RTN"",""ECEDF"",54,0)"
^XMB(3.9,25,2,3580,0)=" ;- Determine patient eligibility"
^XMB(3.9,25,2,3581,0)="""RTN"",""ECEDF"",55,0)"
^XMB(3.9,25,2,3582,0)=" I $$CHKDSS^ECUTL0(+$G(ECD),ECPTSTAT) D"
^XMB(3.9,25,2,3583,0)="""RTN"",""ECEDF"",56,0)"
^XMB(3.9,25,2,3584,0)=" . I $$MULTELG^ECUTL0(+$G(ECDFN)) S ECELIG=+$$ELGLST^ECUTL0"
^XMB(3.9,25,2,3585,0)="""RTN"",""ECEDF"",57,0)"
^XMB(3.9,25,2,3586,0)=" . E  S ECELIG=+$G(VAEL(1))"
^XMB(3.9,25,2,3587,0)="""RTN"",""ECEDF"",58,0)"
^XMB(3.9,25,2,3588,0)=" K VAEL"
^XMB(3.9,25,2,3589,0)="""RTN"",""ECEDF"",59,0)"
^XMB(3.9,25,2,3590,0)=" ;"
^XMB(3.9,25,2,3591,0)="""RTN"",""ECEDF"",60,0)"
^XMB(3.9,25,2,3592,0)=" ;- File inpatient/outpatient status"
^XMB(3.9,25,2,3593,0)="""RTN"",""ECEDF"",61,0)"
^XMB(3.9,25,2,3594,0)=" S DR=""29////""_ECPTSTAT"
^XMB(3.9,25,2,3595,0)="""RTN"",""ECEDF"",62,0)"
^XMB(3.9,25,2,3596,0)=" D ^DIE K DR"
^XMB(3.9,25,2,3597,0)="""RTN"",""ECEDF"",63,0)"
^XMB(3.9,25,2,3598,0)=" ;"
^XMB(3.9,25,2,3599,0)="""RTN"",""ECEDF"",64,0)"
^XMB(3.9,25,2,3600,0)=" ;- Ask classification questions applicable to patient and file in #721"
^XMB(3.9,25,2,3601,0)="""RTN"",""ECEDF"",65,0)"
^XMB(3.9,25,2,3602,0)=" I $$ASKCLASS^ECUTL1(+$G(ECDFN),.ECCLFLDS,.ECOUT,ECPCE,ECPTSTAT),($O(ECCLFLDS(""""))]"""") D EDCLASS^ECUTL1(ECFN,.ECCLFLDS)"
^XMB(3.9,25,2,3603,0)="""RTN"",""ECEDF"",66,0)"
^XMB(3.9,25,2,3604,0)=" I +$G(ECOUT) K DIE D RECDEL,MSG Q"
^XMB(3.9,25,2,3605,0)="""RTN"",""ECEDF"",67,0)"
^XMB(3.9,25,2,3606,0)=" K ECCLFLDS"
^XMB(3.9,25,2,3607,0)="""RTN"",""ECEDF"",68,0)"
^XMB(3.9,25,2,3608,0)=" ;"
^XMB(3.9,25,2,3609,0)="""RTN"",""ECEDF"",69,0)"
^XMB(3.9,25,2,3610,0)=" ;;get provider(s) with active person class"
^XMB(3.9,25,2,3611,0)="""RTN"",""ECEDF"",70,0)"
^XMB(3.9,25,2,3612,0)=" D ASKPRV^ECPRVMUT(ECFN,ECDT,.ECPRVARY,.ECOUT)"
^XMB(3.9,25,2,3613,0)="""RTN"",""ECEDF"",71,0)"
^XMB(3.9,25,2,3614,0)=" I +$G(ECOUT) K DIE D RECDEL,MSG Q"
^XMB(3.9,25,2,3615,0)="""RTN"",""ECEDF"",72,0)"
^XMB(3.9,25,2,3616,0)=" S ECFIL=$$FILPRV^ECPRVMUT(ECFN,.ECPRVARY,.ECOUT)"
^XMB(3.9,25,2,3617,0)="""RTN"",""ECEDF"",73,0)"
^XMB(3.9,25,2,3618,0)=" K ECFIL,ECPRVARY,ECPRV,ECPRVN"
^XMB(3.9,25,2,3619,0)="""RTN"",""ECEDF"",74,0)"
^XMB(3.9,25,2,3620,0)=" I +$G(ECOUT) K DIE D RECDEL,MSG Q"
^XMB(3.9,25,2,3621,0)="""RTN"",""ECEDF"",75,0)"
^XMB(3.9,25,2,3622,0)=" ;"
^XMB(3.9,25,2,3623,0)="""RTN"",""ECEDF"",76,0)"
^XMB(3.9,25,2,3624,0)=" ;- File assoc clinic from event code screen if null"
^XMB(3.9,25,2,3625,0)="""RTN"",""ECEDF"",77,0)"
^XMB(3.9,25,2,3626,0)=" I $P($G(^ECH(ECFN,0)),""^"",19)="""" D"
^XMB(3.9,25,2,3627,0)="""RTN"",""ECEDF"",78,0)"
^XMB(3.9,25,2,3628,0)=" . I $G(EC4)="""" D GETCLN"
^XMB(3.9,25,2,3629,0)="""RTN"",""ECEDF"",79,0)"
^XMB(3.9,25,2,3630,0)=" . S EC4=+$G(EC4)"
^XMB(3.9,25,2,3631,0)="""RTN"",""ECEDF"",80,0)"
^XMB(3.9,25,2,3632,0)=" . I EC4>0 D"
^XMB(3.9,25,2,3633,0)="""RTN"",""ECEDF"",81,0)"
^XMB(3.9,25,2,3634,0)=" .. S DA=ECFN,DR=""26////^S X=EC4"""
^XMB(3.9,25,2,3635,0)="""RTN"",""ECEDF"",82,0)"
^XMB(3.9,25,2,3636,0)=" .. D ^DIE K DA,DR,DIE"
^XMB(3.9,25,2,3637,0)="""RTN"",""ECEDF"",83,0)"
^XMB(3.9,25,2,3638,0)=" ;"
^XMB(3.9,25,2,3639,0)="""RTN"",""ECEDF"",84,0)"
^XMB(3.9,25,2,3640,0)=" K DA,DR,DIE,ECNULL"
^XMB(3.9,25,2,3641,0)="""RTN"",""ECEDF"",85,0)"
^XMB(3.9,25,2,3642,0)=" ;"
^XMB(3.9,25,2,3643,0)="""RTN"",""ECEDF"",86,0)"
^XMB(3.9,25,2,3644,0)=" ;- Set vars and default to prev ordering section if >1 proc entered"
^XMB(3.9,25,2,3645,0)="""RTN"",""ECEDF"",87,0)"
^XMB(3.9,25,2,3646,0)=" S EC4=$P(^ECH(ECFN,0),""^"",19),ECINP=$P(^(0),""^"",22),ECOM=$P(^(0),""^"",12),ECID=$P($G(^SC(+EC4,0)),""^"",7),ECODFN=ECDFN"
^XMB(3.9,25,2,3647,0)="""RTN"",""ECEDF"",88,0)"
^XMB(3.9,25,2,3648,0)=" ;"
^XMB(3.9,25,2,3649,0)="""RTN"",""ECEDF"",89,0)"
^XMB(3.9,25,2,3650,0)=" I $P(ECPCE,""~"",2)=""N"" G FILE2"
^XMB(3.9,25,2,3651,0)="""RTN"",""ECEDF"",90,0)"
^XMB(3.9,25,2,3652,0)=" I ($P(ECPCE,""~"",2)=""O"")&(ECINP'=""O"") G FILE2"
^XMB(3.9,25,2,3653,0)="""RTN"",""ECEDF"",91,0)"
^XMB(3.9,25,2,3654,0)=" D CLIN I 'ECPCL W !!,""You should edit this patient procedure and enter an active clinic."" W:'$D(ECIOFLG) !!,""Press <RET> to continue "" R X:DTIME"
^XMB(3.9,25,2,3655,0)="""RTN"",""ECEDF"",92,0)"
^XMB(3.9,25,2,3656,0)="FILE2 ;continue"
^XMB(3.9,25,2,3657,0)="""RTN"",""ECEDF"",93,0)"
^XMB(3.9,25,2,3658,0)=" S $P(^ECH(ECFN,0),""^"",13)=DUZ,$P(^(0),""^"",9)=ECP,$P(^(0),""^"",20)=ECID,ECINP=$P(^(0),""^"",22),ECDX=+$P($G(^(""P"")),""^"",2)"
^XMB(3.9,25,2,3659,0)="""RTN"",""ECEDF"",94,0)"
^XMB(3.9,25,2,3660,0)=" S ECCPT=$S(ECP[""EC"":$P($G(^EC(725,+ECP,0)),""^"",5),1:+ECP)"
^XMB(3.9,25,2,3661,0)="""RTN"",""ECEDF"",95,0)"
^XMB(3.9,25,2,3662,0)=" S $P(^ECH(ECFN,""P""),""^"")=ECCPT"
^XMB(3.9,25,2,3663,0)="""RTN"",""ECEDF"",96,0)"
^XMB(3.9,25,2,3664,0)=" ;"
^XMB(3.9,25,2,3665,0)="""RTN"",""ECEDF"",97,0)"
^XMB(3.9,25,2,3666,0)=" ;- Procedure Reason(s)"
^XMB(3.9,25,2,3667,0)="""RTN"",""ECEDF"",98,0)"
^XMB(3.9,25,2,3668,0)=" I $G(ECP)]"""" S ECSCR=+$O(^ECJ(""AP"",+ECL,+ECD,+ECC,ECP,0))"
^XMB(3.9,25,2,3669,0)="""RTN"",""ECEDF"",99,0)"
^XMB(3.9,25,2,3670,0)=" I ECSCR>0,($P($G(^ECJ(ECSCR,""PRO"")),""^"",5)=1),(+$O(^ECL(""AD"",ECSCR,0))) D  Q:+$G(ECOUT)"
^XMB(3.9,25,2,3671,0)="""RTN"",""ECEDF"",100,0)"
^XMB(3.9,25,2,3672,0)=" . S DIE=""^ECH("",DA=ECFN,DR=""34"" D ^DIE K DA,DR,DIE"
^XMB(3.9,25,2,3673,0)="""RTN"",""ECEDF"",101,0)"
^XMB(3.9,25,2,3674,0)=" . I $D(DTOUT)!($D(Y)'=0) K ECSCR D RECDEL,MSG Q"
^XMB(3.9,25,2,3675,0)="""RTN"",""ECEDF"",102,0)"
^XMB(3.9,25,2,3676,0)=" K ECSCR"
^XMB(3.9,25,2,3677,0)="""RTN"",""ECEDF"",103,0)"
^XMB(3.9,25,2,3678,0)=" ;"
^XMB(3.9,25,2,3679,0)="""RTN"",""ECEDF"",104,0)"
^XMB(3.9,25,2,3680,0)="PCE ; format PCE data to send"
^XMB(3.9,25,2,3681,0)="""RTN"",""ECEDF"",105,0)"
^XMB(3.9,25,2,3682,0)=" Q:$P(ECPCE,""~"",2)=""N""  I $P(ECPCE,""~"",2)=""O""&(ECINP'=""O"") Q"
^XMB(3.9,25,2,3683,0)="""RTN"",""ECEDF"",106,0)"
^XMB(3.9,25,2,3684,0)=" D PCE^ECBEN2U"
^XMB(3.9,25,2,3685,0)="""RTN"",""ECEDF"",107,0)"
^XMB(3.9,25,2,3686,0)=" Q"
^XMB(3.9,25,2,3687,0)="""RTN"",""ECEDF"",108,0)"
^XMB(3.9,25,2,3688,0)="MSG ;"
^XMB(3.9,25,2,3689,0)="""RTN"",""ECEDF"",109,0)"
^XMB(3.9,25,2,3690,0)=" W !!,""All information was not entered.  This procedure has been deleted."",!!,""Press <RET> to continue "" R X:DTIME S ECOUT=1"
^XMB(3.9,25,2,3691,0)="""RTN"",""ECEDF"",110,0)"
^XMB(3.9,25,2,3692,0)=" Q"
^XMB(3.9,25,2,3693,0)="""RTN"",""ECEDF"",111,0)"
^XMB(3.9,25,2,3694,0)="CLIN ;check for active associated clinic"
^XMB(3.9,25,2,3695,0)="""RTN"",""ECEDF"",112,0)"
^XMB(3.9,25,2,3696,0)=" S MSG1=1,MSG2=0"
^XMB(3.9,25,2,3697,0)="""RTN"",""ECEDF"",113,0)"
^XMB(3.9,25,2,3698,0)=" I 'EC4 S MSG2=1"
^XMB(3.9,25,2,3699,0)="""RTN"",""ECEDF"",114,0)"
^XMB(3.9,25,2,3700,0)=" D CLIN^ECPCEU"
^XMB(3.9,25,2,3701,0)="""RTN"",""ECEDF"",115,0)"
^XMB(3.9,25,2,3702,0)=" I 'ECPCL D"
^XMB(3.9,25,2,3703,0)="""RTN"",""ECEDF"",116,0)"
^XMB(3.9,25,2,3704,0)=" .W !!,""The clinic "",$S(MSG1:""associated with"",1:""you selected for""),"" this procedure "",$S(MSG2:""has not been entered"",1:""is inactive""),""."""
^XMB(3.9,25,2,3705,0)="""RTN"",""ECEDF"",117,0)"
^XMB(3.9,25,2,3706,0)=" .W !,""Workload data cannot be sent to PCE for this procedure with "",!,$S(MSG2:""a missing"",1:""an inactive""),"" clinic."""
^XMB(3.9,25,2,3707,0)="""RTN"",""ECEDF"",118,0)"
^XMB(3.9,25,2,3708,0)=" S (MSG1,MSG2)=0"
^XMB(3.9,25,2,3709,0)="""RTN"",""ECEDF"",119,0)"
^XMB(3.9,25,2,3710,0)=" Q"
^XMB(3.9,25,2,3711,0)="""RTN"",""ECEDF"",120,0)"
^XMB(3.9,25,2,3712,0)=" ;"
^XMB(3.9,25,2,3713,0)="""RTN"",""ECEDF"",121,0)"
^XMB(3.9,25,2,3714,0)="GETCLN ;- Get assoc clinic from event code screen"
^XMB(3.9,25,2,3715,0)="""RTN"",""ECEDF"",122,0)"
^XMB(3.9,25,2,3716,0)=" N ECI"
^XMB(3.9,25,2,3717,0)="""RTN"",""ECEDF"",123,0)"
^XMB(3.9,25,2,3718,0)=" I $G(EC4)="""",($G(ECP)]"""") D"
^XMB(3.9,25,2,3719,0)="""RTN"",""ECEDF"",124,0)"
^XMB(3.9,25,2,3720,0)=" . S ECI=+$O(^ECJ(""AP"",+ECL,+ECD,+ECC,ECP,0)),EC4=+$P($G(^ECJ(+ECI,""PRO"")),""^"",4)"
^XMB(3.9,25,2,3721,0)="""RTN"",""ECEDF"",125,0)"
^XMB(3.9,25,2,3722,0)=" . S EC4N=$S($P($G(^SC(+EC4,0)),""^"")]"""":$P(^(0),""^""),1:"""")"
^XMB(3.9,25,2,3723,0)="""RTN"",""ECEDF"",126,0)"
^XMB(3.9,25,2,3724,0)=" Q"
^XMB(3.9,25,2,3725,0)="""RTN"",""ECEDF"",127,0)"
^XMB(3.9,25,2,3726,0)=" ;"
^XMB(3.9,25,2,3727,0)="""RTN"",""ECEDF"",128,0)"
^XMB(3.9,25,2,3728,0)="RECDEL ; Delete record"
^XMB(3.9,25,2,3729,0)="""RTN"",""ECEDF"",129,0)"
^XMB(3.9,25,2,3730,0)=" ;"
^XMB(3.9,25,2,3731,0)="""RTN"",""ECEDF"",130,0)"
^XMB(3.9,25,2,3732,0)=" N DA,DIK"
^XMB(3.9,25,2,3733,0)="""RTN"",""ECEDF"",131,0)"
^XMB(3.9,25,2,3734,0)=" S DA=ECFN,DIK=""^ECH("" D ^DIK"
^XMB(3.9,25,2,3735,0)="""RTN"",""ECEDF"",132,0)"
^XMB(3.9,25,2,3736,0)=" Q"
^XMB(3.9,25,2,3737,0)="""RTN"",""ECEDU"")"
^XMB(3.9,25,2,3738,0)="0^34^B14387770^B13649367"
^XMB(3.9,25,2,3739,0)="""RTN"",""ECEDU"",1,0)"
^XMB(3.9,25,2,3740,0)="ECEDU ;BIR/MAM,JPW-Enter Event Capture Data (cont'd) ;6 Mar 96"
^XMB(3.9,25,2,3741,0)="""RTN"",""ECEDU"",2,0)"
^XMB(3.9,25,2,3742,0)=" ;;2.0; EVENT CAPTURE ;**10,18,23,47,63,72**;8 May 96"
^XMB(3.9,25,2,3743,0)="""RTN"",""ECEDU"",3,0)"
^XMB(3.9,25,2,3744,0)="HDR ;hdr for filing"
^XMB(3.9,25,2,3745,0)="""RTN"",""ECEDU"",4,0)"
^XMB(3.9,25,2,3746,0)=" W @IOF,!,""ENTERING A NEW PROCEDURE FOR ""_ECPAT_"" ..."",!!,""LOCATION: ""_ECLN,!,""SERVICE: ""_ECSN,!,""SECTION: ""_ECMN,!,""CATEGORY: ""_ECCN,!!,""PROCEDURE: """
^XMB(3.9,25,2,3747,0)="""RTN"",""ECEDU"",5,0)"
^XMB(3.9,25,2,3748,0)=" W $S(ECCPT="""":"""",1:ECPTCD_"" "")_$E(ECPN,1,50)"
^XMB(3.9,25,2,3749,0)="""RTN"",""ECEDU"",6,0)"
^XMB(3.9,25,2,3750,0)=" I SYN]"""",SYN'[""NOT DEFINED"" W "" [""_SYN_""]"""
^XMB(3.9,25,2,3751,0)="""RTN"",""ECEDU"",7,0)"
^XMB(3.9,25,2,3752,0)=" W ""  (#""_NATN_"")"""
^XMB(3.9,25,2,3753,0)="""RTN"",""ECEDU"",8,0)"
^XMB(3.9,25,2,3754,0)=" Q"
^XMB(3.9,25,2,3755,0)="""RTN"",""ECEDU"",9,0)"
^XMB(3.9,25,2,3756,0)="MSGC ;msg cat"
^XMB(3.9,25,2,3757,0)="""RTN"",""ECEDU"",10,0)"
^XMB(3.9,25,2,3758,0)=" W !!,""Please enter the number that corresponds to the ""_$S(EC1:""procedure"",1:""category"")_"" from which"",!,""you would like to select a procedure.  If you would like to continue"",!,""with the list, press <RET>.  Enter ^ to quit."""
^XMB(3.9,25,2,3759,0)="""RTN"",""ECEDU"",11,0)"
^XMB(3.9,25,2,3760,0)=" S CNT=CNT-5"
^XMB(3.9,25,2,3761,0)="""RTN"",""ECEDU"",12,0)"
^XMB(3.9,25,2,3762,0)=" Q"
^XMB(3.9,25,2,3763,0)="""RTN"",""ECEDU"",13,0)"
^XMB(3.9,25,2,3764,0)="HDR1 ; heading"
^XMB(3.9,25,2,3765,0)="""RTN"",""ECEDU"",14,0)"
^XMB(3.9,25,2,3766,0)=" W @IOF,!,""Patient: ""_ECPAT,?40,""Procedure Date: ""_ECDATE,!!,""Location: ""_ECLN,?40,""Service: ""_ECSN,!,""Section: ""_ECMN,?40,""DSS Unit: ""_ECDN W:$D(ECCN) !,""Category: ""_ECCN"
^XMB(3.9,25,2,3767,0)="""RTN"",""ECEDU"",15,0)"
^XMB(3.9,25,2,3768,0)=" Q"
^XMB(3.9,25,2,3769,0)="""RTN"",""ECEDU"",16,0)"
^XMB(3.9,25,2,3770,0)="MSG W !!,""No procedures entered.  No Action Taken."",!!,""Press <RET> to continue "" R X:DTIME S ECOUT=1"
^XMB(3.9,25,2,3771,0)="""RTN"",""ECEDU"",17,0)"
^XMB(3.9,25,2,3772,0)=" Q"
^XMB(3.9,25,2,3773,0)="""RTN"",""ECEDU"",18,0)"
^XMB(3.9,25,2,3774,0)="SETE ;set edit"
^XMB(3.9,25,2,3775,0)="""RTN"",""ECEDU"",19,0)"
^XMB(3.9,25,2,3776,0)=" N ECPXD"
^XMB(3.9,25,2,3777,0)="""RTN"",""ECEDU"",20,0)"
^XMB(3.9,25,2,3778,0)=" S DA=+EC(EC),EC(0)=^ECH(DA,0),ECC=+$P(EC(0),""^"",8),ECCN=$S('ECC:""None"",$P($G(^EC(726,ECC,0)),""^"")]"""":$P(^(0),""^""),1:""UNKNOWN"")"
^XMB(3.9,25,2,3779,0)="""RTN"",""ECEDU"",21,0)"
^XMB(3.9,25,2,3780,0)=" S (ECP,ECPROF)=$P(EC(0),""^"",9)"
^XMB(3.9,25,2,3781,0)="""RTN"",""ECEDU"",22,0)"
^XMB(3.9,25,2,3782,0)=" S ECPSY=+$O(^ECJ(""AP"",+ECL,+ECD,ECC,+ECP,""""))"
^XMB(3.9,25,2,3783,0)="""RTN"",""ECEDU"",23,0)"
^XMB(3.9,25,2,3784,0)=" S ECPSYN=$P($G(^ECJ(ECPSY,""PRO"")),""^"",2)"
^XMB(3.9,25,2,3785,0)="""RTN"",""ECEDU"",24,0)"
^XMB(3.9,25,2,3786,0)=" S ECFILE=$S(ECPROF[""EC"":725,ECPROF[""ICPT"":81,1:""UNKNOWN"")"
^XMB(3.9,25,2,3787,0)="""RTN"",""ECEDU"",25,0)"
^XMB(3.9,25,2,3788,0)=" I ECFILE=""UNKNOWN"" S ECPN=""UNKNOWN"""
^XMB(3.9,25,2,3789,0)="""RTN"",""ECEDU"",26,0)"
^XMB(3.9,25,2,3790,0)=" S ECCPT=$S(ECP[""ICPT"":+ECP,1:$P($G(^EC(725,+ECP,0)),U,5))"
^XMB(3.9,25,2,3791,0)="""RTN"",""ECEDU"",27,0)"
^XMB(3.9,25,2,3792,0)=" S (ECPTCD,ECPXD)="""" I ECCPT'="""" D"
^XMB(3.9,25,2,3793,0)="""RTN"",""ECEDU"",28,0)"
^XMB(3.9,25,2,3794,0)=" . S ECPXD=$$CPT^ICPTCOD(ECCPT,$P(EC(0),U,3)) I +ECPXD>0 S ECPTCD=$P(ECPXD,U,2)"
^XMB(3.9,25,2,3795,0)="""RTN"",""ECEDU"",29,0)"
^XMB(3.9,25,2,3796,0)=" I ECFILE=81 S ECPN=$S($P(ECPXD,U,3)]"""":$P(ECPXD,U,3),1:""UNKNOWN"")"
^XMB(3.9,25,2,3797,0)="""RTN"",""ECEDU"",30,0)"
^XMB(3.9,25,2,3798,0)=" I ECFILE=725 S ECPN=$S($P($G(^EC(725,+ECP,0)),""^"")]"""":$P(^(0),""^""),1:""UNKNOWN"")"
^XMB(3.9,25,2,3799,0)="""RTN"",""ECEDU"",31,0)"
^XMB(3.9,25,2,3800,0)="HDRE ; hdr for editing"
^XMB(3.9,25,2,3801,0)="""RTN"",""ECEDU"",32,0)"
^XMB(3.9,25,2,3802,0)=" W @IOF,!,""EDITING A PROCEDURE FOR ""_ECPAT_"" ..."",!!,""LOCATION: ""_ECLN,!,""SERVICE: ""_ECSN,!,""SECTION: ""_ECMN,!,""CATEGORY: ""_ECCN,!,""PROCEDURE: ""_$S(ECCPT="""":"""",1:ECPTCD_"" "")_ECPN_$S(ECPSYN="""":"""",1:""  [""_ECPSYN_""]"")"
^XMB(3.9,25,2,3803,0)="""RTN"",""ECEDU"",33,0)"
^XMB(3.9,25,2,3804,0)=" Q"
^XMB(3.9,25,2,3805,0)="""RTN"",""ECEDU"",34,0)"
^XMB(3.9,25,2,3806,0)="DXEDT ;ALB/JAM - Edit Primary and multiple secondary dx codes"
^XMB(3.9,25,2,3807,0)="""RTN"",""ECEDU"",35,0)"
^XMB(3.9,25,2,3808,0)=" N PXUPD,IEN,ECPDX,ECDXS,ECDT,ECDXI"
^XMB(3.9,25,2,3809,0)="""RTN"",""ECEDU"",36,0)"
^XMB(3.9,25,2,3810,0)=" S EC4=$P($G(^ECH(ECFN,0)),""^"",19),(ECDX,ECDXN)="""",ECDT=ECNEWDT"
^XMB(3.9,25,2,3811,0)="""RTN"",""ECEDU"",37,0)"
^XMB(3.9,25,2,3812,0)=" S ECPDX=$$PDXCK^ECUTL2(ECDFN,ECNEWDT,ECL,EC4),IEN="""" K ECDXIEN(ECFN)"
^XMB(3.9,25,2,3813,0)="""RTN"",""ECEDU"",38,0)"
^XMB(3.9,25,2,3814,0)=" ;update primary diagnoses code"
^XMB(3.9,25,2,3815,0)="""RTN"",""ECEDU"",39,0)"
^XMB(3.9,25,2,3816,0)=" S ECDX=ECDX1,ECDXI=$$ICDDX^ICDCODE(ECDX1,ECNEWDT),ECDXN=$P(ECDXI,U,2)"
^XMB(3.9,25,2,3817,0)="""RTN"",""ECEDU"",40,0)"
^XMB(3.9,25,2,3818,0)=" W !,""Primary ICD-9 Code: "",ECDXN,""  "",$P(ECDXI,U,4)"
^XMB(3.9,25,2,3819,0)="""RTN"",""ECEDU"",41,0)"
^XMB(3.9,25,2,3820,0)=" D PDX^ECUTL2 I ECOUT=1 Q"
^XMB(3.9,25,2,3821,0)="""RTN"",""ECEDU"",42,0)"
^XMB(3.9,25,2,3822,0)=" S ECDX1=ECDX"
^XMB(3.9,25,2,3823,0)="""RTN"",""ECEDU"",43,0)"
^XMB(3.9,25,2,3824,0)=" S DA=ECFN,DR=""20////""_ECDX1 D ^DIE K DIE"
^XMB(3.9,25,2,3825,0)="""RTN"",""ECEDU"",44,0)"
^XMB(3.9,25,2,3826,0)=" ;check for any changes to primary dx"
^XMB(3.9,25,2,3827,0)="""RTN"",""ECEDU"",45,0)"
^XMB(3.9,25,2,3828,0)=" S ECDX1=X,IEN="""""
^XMB(3.9,25,2,3829,0)="""RTN"",""ECEDU"",46,0)"
^XMB(3.9,25,2,3830,0)=" F  S IEN=$O(ECDXIEN(IEN)) Q:IEN=""""  I $P(ECDXIEN(IEN),U,2)'=ECDX1 D  Q"
^XMB(3.9,25,2,3831,0)="""RTN"",""ECEDU"",47,0)"
^XMB(3.9,25,2,3832,0)=" .W !?5,""WARNING: More than 1 Primary diagnoses exist for this encounter. All"""
^XMB(3.9,25,2,3833,0)="""RTN"",""ECEDU"",48,0)"
^XMB(3.9,25,2,3834,0)=" .W !?14,""Procedures will be updated to have same primary & secondary dx"""
^XMB(3.9,25,2,3835,0)="""RTN"",""ECEDU"",49,0)"
^XMB(3.9,25,2,3836,0)=" ; update secondary diagnosis codes"
^XMB(3.9,25,2,3837,0)="""RTN"",""ECEDU"",50,0)"
^XMB(3.9,25,2,3838,0)=" D SDX^ECUTL2 S DXS="""""
^XMB(3.9,25,2,3839,0)="""RTN"",""ECEDU"",51,0)"
^XMB(3.9,25,2,3840,0)=" K ECDXX M ECDXX=ECDXS K ECDXS"
^XMB(3.9,25,2,3841,0)="""RTN"",""ECEDU"",52,0)"
^XMB(3.9,25,2,3842,0)=" ;Update all procedures for the encounter with same primary dx"
^XMB(3.9,25,2,3843,0)="""RTN"",""ECEDU"",53,0)"
^XMB(3.9,25,2,3844,0)=" S PXUPD=$$PXUPD^ECUTL2(ECDFN,ECNEWDT,ECL,EC4,ECDX1,.ECDXX)"
^XMB(3.9,25,2,3845,0)="""RTN"",""ECEDU"",54,0)"
^XMB(3.9,25,2,3846,0)=" K PXUPD,ECDXX S DA=ECFN"
^XMB(3.9,25,2,3847,0)="""RTN"",""ECEDU"",55,0)"
^XMB(3.9,25,2,3848,0)=" Q"
^XMB(3.9,25,2,3849,0)="""RTN"",""ECEDU"",56,0)"
^XMB(3.9,25,2,3850,0)=" F  S DXS=$O(ECDXS(DXS)) Q:DXS=""""  S DXSIEN=$P(ECDXS(DXS),U) D:DXSIEN>0"
^XMB(3.9,25,2,3851,0)="""RTN"",""ECEDU"",57,0)"
^XMB(3.9,25,2,3852,0)=" . K DIC,DD,DO S DIC(0)=""L"",DA(1)=ECFN,DIC=""^ECH(""_DA(1)_"",""_""""""DX""""""_"","""
^XMB(3.9,25,2,3853,0)="""RTN"",""ECEDU"",58,0)"
^XMB(3.9,25,2,3854,0)=" . S DIC(""P"")=$P(^DD(721,38,0),U,2),X=DXSIEN D FILE^DICN"
^XMB(3.9,25,2,3855,0)="""RTN"",""ECEDU"",59,0)"
^XMB(3.9,25,2,3856,0)=" K DXSIEN,DXS,ECDXX,DIC M ECDXX=ECDXS K ECDXS"
^XMB(3.9,25,2,3857,0)="""RTN"",""ECEFPAT"")"
^XMB(3.9,25,2,3858,0)="0^33^B53422819^B55903915"
^XMB(3.9,25,2,3859,0)="""RTN"",""ECEFPAT"",1,0)"
^XMB(3.9,25,2,3860,0)="ECEFPAT ;ALB/JAM-Enter Event Capture Data Patient Filer ;12 Oct 00"
^XMB(3.9,25,2,3861,0)="""RTN"",""ECEFPAT"",2,0)"
^XMB(3.9,25,2,3862,0)=" ;;2.0; EVENT CAPTURE ;**25,32,39,42,47,49,54,65,72**;8 May 96"
^XMB(3.9,25,2,3863,0)="""RTN"",""ECEFPAT"",3,0)"
^XMB(3.9,25,2,3864,0)=" ;"
^XMB(3.9,25,2,3865,0)="""RTN"",""ECEFPAT"",4,0)"
^XMB(3.9,25,2,3866,0)="FILE ;Used by the RPC broker to file patient encounter in file #721"
^XMB(3.9,25,2,3867,0)="""RTN"",""ECEFPAT"",5,0)"
^XMB(3.9,25,2,3868,0)=" ;     Variables passed in"
^XMB(3.9,25,2,3869,0)="""RTN"",""ECEFPAT"",6,0)"
^XMB(3.9,25,2,3870,0)=" ;       ECIEN   - IEN of #721, if editing"
^XMB(3.9,25,2,3871,0)="""RTN"",""ECEFPAT"",7,0)"
^XMB(3.9,25,2,3872,0)=" ;       ECDEL   - Delete record. 1- YES; 0- 0, null or undefine for NO."
^XMB(3.9,25,2,3873,0)="""RTN"",""ECEFPAT"",8,0)"
^XMB(3.9,25,2,3874,0)=" ;       ECDFN   - Patient IEN for file #2"
^XMB(3.9,25,2,3875,0)="""RTN"",""ECEFPAT"",9,0)"
^XMB(3.9,25,2,3876,0)=" ;       ECDT    - Date and time of procedure"
^XMB(3.9,25,2,3877,0)="""RTN"",""ECEFPAT"",10,0)"
^XMB(3.9,25,2,3878,0)=" ;       ECL     - Location"
^XMB(3.9,25,2,3879,0)="""RTN"",""ECEFPAT"",11,0)"
^XMB(3.9,25,2,3880,0)=" ;       ECD     - DSS Unit"
^XMB(3.9,25,2,3881,0)="""RTN"",""ECEFPAT"",12,0)"
^XMB(3.9,25,2,3882,0)=" ;       ECC     - Category"
^XMB(3.9,25,2,3883,0)="""RTN"",""ECEFPAT"",13,0)"
^XMB(3.9,25,2,3884,0)=" ;       ECP     - Procedure"
^XMB(3.9,25,2,3885,0)="""RTN"",""ECEFPAT"",14,0)"
^XMB(3.9,25,2,3886,0)=" ;       ECVOL   - Volume"
^XMB(3.9,25,2,3887,0)="""RTN"",""ECEFPAT"",15,0)"
^XMB(3.9,25,2,3888,0)=" ;       ECU1..n - Provider (1 thru n), Prov 1 is required,other optional"
^XMB(3.9,25,2,3889,0)="""RTN"",""ECEFPAT"",16,0)"
^XMB(3.9,25,2,3890,0)=" ;       ECMN    - Ordering Section"
^XMB(3.9,25,2,3891,0)="""RTN"",""ECEFPAT"",17,0)"
^XMB(3.9,25,2,3892,0)=" ;       ECDUZ   - Entered/Edited by, pointer to #200"
^XMB(3.9,25,2,3893,0)="""RTN"",""ECEFPAT"",18,0)"
^XMB(3.9,25,2,3894,0)=" ;       ECDX    - Primary Diagnosis"
^XMB(3.9,25,2,3895,0)="""RTN"",""ECEFPAT"",19,0)"
^XMB(3.9,25,2,3896,0)=" ;       ECDXS   - Secondary Diagnosis; multiple, optional"
^XMB(3.9,25,2,3897,0)="""RTN"",""ECEFPAT"",20,0)"
^XMB(3.9,25,2,3898,0)=" ;       EC4     - Associated Clinic, required if sending data to PCE"
^XMB(3.9,25,2,3899,0)="""RTN"",""ECEFPAT"",21,0)"
^XMB(3.9,25,2,3900,0)=" ;       ECPTSTAT- Patient Status"
^XMB(3.9,25,2,3901,0)="""RTN"",""ECEFPAT"",22,0)"
^XMB(3.9,25,2,3902,0)=" ;       ECPXREAS- Procedure reason, optional"
^XMB(3.9,25,2,3903,0)="""RTN"",""ECEFPAT"",23,0)"
^XMB(3.9,25,2,3904,0)=" ;       ECMOD   - CPT modifiers, optional"
^XMB(3.9,25,2,3905,0)="""RTN"",""ECEFPAT"",24,0)"
^XMB(3.9,25,2,3906,0)=" ;       ECLASS  - Classification, optional"
^XMB(3.9,25,2,3907,0)="""RTN"",""ECEFPAT"",25,0)"
^XMB(3.9,25,2,3908,0)=" ;       ECELIG  - Eligibility, optional"
^XMB(3.9,25,2,3909,0)="""RTN"",""ECEFPAT"",26,0)"
^XMB(3.9,25,2,3910,0)=" ;"
^XMB(3.9,25,2,3911,0)="""RTN"",""ECEFPAT"",27,0)"
^XMB(3.9,25,2,3912,0)=" ;     Variable return"
^XMB(3.9,25,2,3913,0)="""RTN"",""ECEFPAT"",28,0)"
^XMB(3.9,25,2,3914,0)=" ;       ^TMP($J,""ECMSG"",n)=Success or failure to file in #721^Message"
^XMB(3.9,25,2,3915,0)="""RTN"",""ECEFPAT"",29,0)"
^XMB(3.9,25,2,3916,0)=" ;"
^XMB(3.9,25,2,3917,0)="""RTN"",""ECEFPAT"",30,0)"
^XMB(3.9,25,2,3918,0)=" N NODE,ECS,ECM,ECID,ECCPT,ECINT,ECPCE,ECX,ECERR,ECOUT,ECFLG,ECRES"
^XMB(3.9,25,2,3919,0)="""RTN"",""ECEFPAT"",31,0)"
^XMB(3.9,25,2,3920,0)=" N ECFIL,ECPRV"
^XMB(3.9,25,2,3921,0)="""RTN"",""ECEFPAT"",32,0)"
^XMB(3.9,25,2,3922,0)=" S ECFLG=1,ECERR=0 D CHKDT(1) I ECERR Q"
^XMB(3.9,25,2,3923,0)="""RTN"",""ECEFPAT"",33,0)"
^XMB(3.9,25,2,3924,0)=" F ECX=1:1 Q:'$D(@(""ECU""_ECX))  D  I ECERR Q"
^XMB(3.9,25,2,3925,0)="""RTN"",""ECEFPAT"",34,0)"
^XMB(3.9,25,2,3926,0)=" .I @(""ECU""_ECX)="""" Q"
^XMB(3.9,25,2,3927,0)="""RTN"",""ECEFPAT"",35,0)"
^XMB(3.9,25,2,3928,0)=" .S NODE=$$GET^XUA4A72(@(""ECU""_ECX),ECDT) I +NODE'>0 S ECERR=1 D  Q"
^XMB(3.9,25,2,3929,0)="""RTN"",""ECEFPAT"",36,0)"
^XMB(3.9,25,2,3930,0)=" ..S ^TMP($J,""ECMSG"",1)=""0^Provider doesn't have an active Person class"""
^XMB(3.9,25,2,3931,0)="""RTN"",""ECEFPAT"",37,0)"
^XMB(3.9,25,2,3932,0)=" .S ECPRV(ECX)=@(""ECU""_ECX)_""^^""_$S(ECX=1:""P"",1:""S"")"
^XMB(3.9,25,2,3933,0)="""RTN"",""ECEFPAT"",38,0)"
^XMB(3.9,25,2,3934,0)=" I $G(ECIEN)'="""" S ECFLG=0 D  I ECERR Q"
^XMB(3.9,25,2,3935,0)="""RTN"",""ECEFPAT"",39,0)"
^XMB(3.9,25,2,3936,0)=" . I '$D(^ECH(ECIEN)) S ECERR=1,^TMP($J,""ECMSG"",1)=""0^Pat IEN Not Found"""
^XMB(3.9,25,2,3937,0)="""RTN"",""ECEFPAT"",40,0)"
^XMB(3.9,25,2,3938,0)=" I $G(ECDEL) K ^TMP($J,""ECMSG"") D  Q"
^XMB(3.9,25,2,3939,0)="""RTN"",""ECEFPAT"",41,0)"
^XMB(3.9,25,2,3940,0)=" .S ECVST=$P($G(^ECH(ECIEN,0)),""^"",21) I ECVST D"
^XMB(3.9,25,2,3941,0)="""RTN"",""ECEFPAT"",42,0)"
^XMB(3.9,25,2,3942,0)=" ..;* Resend all EC records with same Visit file entry to PCE"
^XMB(3.9,25,2,3943,0)="""RTN"",""ECEFPAT"",43,0)"
^XMB(3.9,25,2,3944,0)=" ..;* Remove Visit entry from ^ECH( so DELVFILE will complete cleanup"
^XMB(3.9,25,2,3945,0)="""RTN"",""ECEFPAT"",44,0)"
^XMB(3.9,25,2,3946,0)=" ..S ECVAR1=$$FNDVST^ECUTL(ECVST) K ECVAR1"
^XMB(3.9,25,2,3947,0)="""RTN"",""ECEFPAT"",45,0)"
^XMB(3.9,25,2,3948,0)=" ..;Set VALQUIET to stop Amb Care validator from broadcasting to screen"
^XMB(3.9,25,2,3949,0)="""RTN"",""ECEFPAT"",46,0)"
^XMB(3.9,25,2,3950,0)=" ..S VALQUIET=1,ECVV=$$DELVFILE^PXAPI(""ALL"",ECVST) K ECVST,VALQUIET"
^XMB(3.9,25,2,3951,0)="""RTN"",""ECEFPAT"",47,0)"
^XMB(3.9,25,2,3952,0)=" .S DA=ECIEN,DIK=""^ECH("" D ^DIK K DA,DIK,ECVV"
^XMB(3.9,25,2,3953,0)="""RTN"",""ECEFPAT"",48,0)"
^XMB(3.9,25,2,3954,0)=" .S ^TMP($J,""ECMSG"",1)=""1^Procedure Deleted"""
^XMB(3.9,25,2,3955,0)="""RTN"",""ECEFPAT"",49,0)"
^XMB(3.9,25,2,3956,0)=" I '$D(ECPRV) S ^TMP($J,""ECMSG"",1)=""0^No provider present"" Q"
^XMB(3.9,25,2,3957,0)="""RTN"",""ECEFPAT"",50,0)"
^XMB(3.9,25,2,3958,0)=" S ECDT=+ECDT,NODE=$G(^ECD(ECD,0)) I NODE="""" D MSG Q"
^XMB(3.9,25,2,3959,0)="""RTN"",""ECEFPAT"",51,0)"
^XMB(3.9,25,2,3960,0)=" S ECFN=$G(ECIEN),ECVOL=$G(ECVOL,1),ECS=$P(NODE,U,2),ECM=$P(NODE,U,3)"
^XMB(3.9,25,2,3961,0)="""RTN"",""ECEFPAT"",52,0)"
^XMB(3.9,25,2,3962,0)=" S ECPCE=""U~""_$S($P(NODE,""^"",14)]"""":$P(NODE,""^"",14),1:""N"")"
^XMB(3.9,25,2,3963,0)="""RTN"",""ECEFPAT"",53,0)"
^XMB(3.9,25,2,3964,0)=" ;S ECPTSTAT=$$INOUTPT^ECUTL0(ECDFN,+ECDT) ;pat stat may not need"
^XMB(3.9,25,2,3965,0)="""RTN"",""ECEFPAT"",54,0)"
^XMB(3.9,25,2,3966,0)=" I $G(EC4)="""" D GETCLN^ECEDF"
^XMB(3.9,25,2,3967,0)="""RTN"",""ECEFPAT"",55,0)"
^XMB(3.9,25,2,3968,0)=" S ECID=$S(+EC4:$P($G(^SC(+EC4,0)),""^"",7),1:""""),ECINP=ECPTSTAT"
^XMB(3.9,25,2,3969,0)="""RTN"",""ECEFPAT"",56,0)"
^XMB(3.9,25,2,3970,0)=" I $S($P(ECPCE,""~"",2)=""N"":0,$P(ECPCE,""~"",2)=""O""&(ECINP'=""O""):0,1:1) D"
^XMB(3.9,25,2,3971,0)="""RTN"",""ECEFPAT"",57,0)"
^XMB(3.9,25,2,3972,0)=" .D CHKDT(2)"
^XMB(3.9,25,2,3973,0)="""RTN"",""ECEFPAT"",58,0)"
^XMB(3.9,25,2,3974,0)=" I +EC4 S ECRES=$$CLNCK^SDUTL2(+EC4,0) I 'ECRES D  S ECERR=1"
^XMB(3.9,25,2,3975,0)="""RTN"",""ECEFPAT"",59,0)"
^XMB(3.9,25,2,3976,0)=" .S ^TMP($J,""ECMSG"",1)=ECRES_"" Clinic MUST be corrected before filing."""
^XMB(3.9,25,2,3977,0)="""RTN"",""ECEFPAT"",60,0)"
^XMB(3.9,25,2,3978,0)=" Q:ECERR  I ECFLG D NEWIEN"
^XMB(3.9,25,2,3979,0)="""RTN"",""ECEFPAT"",61,0)"
^XMB(3.9,25,2,3980,0)=" S ECCPT=$S(ECP[""ICPT"":+ECP,1:$P($G(^EC(725,+ECP,0)),U,5))"
^XMB(3.9,25,2,3981,0)="""RTN"",""ECEFPAT"",62,0)"
^XMB(3.9,25,2,3982,0)=" K DA,DR,DIE S DIE=""^ECH("",(DA,ECFN)=ECIEN K ECIEN"
^XMB(3.9,25,2,3983,0)="""RTN"",""ECEFPAT"",63,0)"
^XMB(3.9,25,2,3984,0)=" S DR="".01////""_ECFN_"";1////""_ECDFN_"";3////""_ECL_"";4////""_ECS"
^XMB(3.9,25,2,3985,0)="""RTN"",""ECEFPAT"",64,0)"
^XMB(3.9,25,2,3986,0)=" S DR=DR_"";5////""_ECM_"";6////""_ECD_"";7////""_+ECC_"";9////""_ECVOL"
^XMB(3.9,25,2,3987,0)="""RTN"",""ECEFPAT"",65,0)"
^XMB(3.9,25,2,3988,0)=" S $P(^ECH(ECFN,0),""^"",9)=ECP"
^XMB(3.9,25,2,3989,0)="""RTN"",""ECEFPAT"",66,0)"
^XMB(3.9,25,2,3990,0)=" D ^DIE I $D(DTOUT) D RECDEL,MSG Q"
^XMB(3.9,25,2,3991,0)="""RTN"",""ECEFPAT"",67,0)"
^XMB(3.9,25,2,3992,0)=" S DA=ECFN,DR=""11////""_ECMN_"";13////""_ECDUZ_"";2////""_ECDT"
^XMB(3.9,25,2,3993,0)="""RTN"",""ECEFPAT"",68,0)"
^XMB(3.9,25,2,3994,0)=" S ECPXREAS=$G(ECPXREAS)"
^XMB(3.9,25,2,3995,0)="""RTN"",""ECEFPAT"",69,0)"
^XMB(3.9,25,2,3996,0)=" S DR=DR_"";19////""_$S(+ECCPT:ECCPT,1:""@"")_"";20////""_ECDX"
^XMB(3.9,25,2,3997,0)="""RTN"",""ECEFPAT"",70,0)"
^XMB(3.9,25,2,3998,0)=" S DR=DR_"";26////""_$G(EC4)_"";27////""_$G(ECID)_"";29////""_ECPTSTAT"
^XMB(3.9,25,2,3999,0)="""RTN"",""ECEFPAT"",71,0)"
^XMB(3.9,25,2,4000,0)=" S DR=DR_"";34////""_$S(ECPXREAS="""":""@"",1:ECPXREAS)"
^XMB(3.9,25,2,4001,0)="""RTN"",""ECEFPAT"",72,0)"
^XMB(3.9,25,2,4002,0)=" D ^DIE I $D(DTOUT) D RECDEL,MSG Q"
^XMB(3.9,25,2,4003,0)="""RTN"",""ECEFPAT"",73,0)"
^XMB(3.9,25,2,4004,0)=" I ECDX S ^DISV(DUZ,""^ICD9("")=ECDX  ;last ICD9 code"
^XMB(3.9,25,2,4005,0)="""RTN"",""ECEFPAT"",74,0)"
^XMB(3.9,25,2,4006,0)=" S ECX=$O(ECPRV(""A""),-1) I ECX'="""" S ^DISV(DUZ,""^VA(200,"")=+ECPRV(ECX)"
^XMB(3.9,25,2,4007,0)="""RTN"",""ECEFPAT"",75,0)"
^XMB(3.9,25,2,4008,0)=" ;Remove Old CPT modifiers"
^XMB(3.9,25,2,4009,0)="""RTN"",""ECEFPAT"",76,0)"
^XMB(3.9,25,2,4010,0)=" I 'ECFLG D"
^XMB(3.9,25,2,4011,0)="""RTN"",""ECEFPAT"",77,0)"
^XMB(3.9,25,2,4012,0)=" . K OLDMOD S (ECDA,DA(1))=ECFN,DIK=""^ECH(""_DA(1)_"",""""MOD"""","",DA=0"
^XMB(3.9,25,2,4013,0)="""RTN"",""ECEFPAT"",78,0)"
^XMB(3.9,25,2,4014,0)=" . F  S DA=$O(^ECH(ECDA,""MOD"",DA)) Q:'DA  S OLDMOD(DA)="""" D ^DIK"
^XMB(3.9,25,2,4015,0)="""RTN"",""ECEFPAT"",79,0)"
^XMB(3.9,25,2,4016,0)=" . K DA,ECDA,DIK,^ECH(ECFN,""MOD"")"
^XMB(3.9,25,2,4017,0)="""RTN"",""ECEFPAT"",80,0)"
^XMB(3.9,25,2,4018,0)=" .;Remove old secondary diagnosis codes"
^XMB(3.9,25,2,4019,0)="""RTN"",""ECEFPAT"",81,0)"
^XMB(3.9,25,2,4020,0)=" . K OLDDXS S (ECDA,DA(1))=ECFN,DIK=""^ECH(""_DA(1)_"",""""DX"""","",DA=0"
^XMB(3.9,25,2,4021,0)="""RTN"",""ECEFPAT"",82,0)"
^XMB(3.9,25,2,4022,0)=" . F  S DA=$O(^ECH(ECDA,""DX"",DA)) Q:'DA  S OLDDXS(DA)="""" D ^DIK"
^XMB(3.9,25,2,4023,0)="""RTN"",""ECEFPAT"",83,0)"
^XMB(3.9,25,2,4024,0)=" . K DA,ECDA,DIK,^ECH(ECFN,""DX"")"
^XMB(3.9,25,2,4025,0)="""RTN"",""ECEFPAT"",84,0)"
^XMB(3.9,25,2,4026,0)=" I $D(DTOUT) D RECDEL,MSG Q"
^XMB(3.9,25,2,4027,0)="""RTN"",""ECEFPAT"",85,0)"
^XMB(3.9,25,2,4028,0)=" ;File multiple providers"
^XMB(3.9,25,2,4029,0)="""RTN"",""ECEFPAT"",86,0)"
^XMB(3.9,25,2,4030,0)=" S ECFIL=$$FILPRV^ECPRVMUT(ECFN,.ECPRV,.ECOUT) K ECOUT"
^XMB(3.9,25,2,4031,0)="""RTN"",""ECEFPAT"",87,0)"
^XMB(3.9,25,2,4032,0)=" I 'ECFIL D RECDEL,MSG Q"
^XMB(3.9,25,2,4033,0)="""RTN"",""ECEFPAT"",88,0)"
^XMB(3.9,25,2,4034,0)=" ;File CPT modifiers"
^XMB(3.9,25,2,4035,0)="""RTN"",""ECEFPAT"",89,0)"
^XMB(3.9,25,2,4036,0)=" I $G(ECMOD)'="""" D"
^XMB(3.9,25,2,4037,0)="""RTN"",""ECEFPAT"",90,0)"
^XMB(3.9,25,2,4038,0)=" . S DIC(0)=""L"",DA(1)=ECFN,DIC(""P"")=$P(^DD(721,36,0),U,2)"
^XMB(3.9,25,2,4039,0)="""RTN"",""ECEFPAT"",91,0)"
^XMB(3.9,25,2,4040,0)=" . S DIC=""^ECH(""_DA(1)_"",""_""""""MOD""""""_"","""
^XMB(3.9,25,2,4041,0)="""RTN"",""ECEFPAT"",92,0)"
^XMB(3.9,25,2,4042,0)=" . F ECX=1:1:$L(ECMOD,""^"") S MODIEN=$P(ECMOD,U,ECX) I +MODIEN>0 D"
^XMB(3.9,25,2,4043,0)="""RTN"",""ECEFPAT"",93,0)"
^XMB(3.9,25,2,4044,0)=" . . K DD,DO S X=MODIEN D FILE^DICN"
^XMB(3.9,25,2,4045,0)="""RTN"",""ECEFPAT"",94,0)"
^XMB(3.9,25,2,4046,0)=" . K MODIEN,DIC"
^XMB(3.9,25,2,4047,0)="""RTN"",""ECEFPAT"",95,0)"
^XMB(3.9,25,2,4048,0)=" I $D(DTOUT) D RECDEL,MSG Q"
^XMB(3.9,25,2,4049,0)="""RTN"",""ECEFPAT"",96,0)"
^XMB(3.9,25,2,4050,0)=" ; File multiple secondary diagnosis codes"
^XMB(3.9,25,2,4051,0)="""RTN"",""ECEFPAT"",97,0)"
^XMB(3.9,25,2,4052,0)=" I $G(ECDXS)'="""" D"
^XMB(3.9,25,2,4053,0)="""RTN"",""ECEFPAT"",98,0)"
^XMB(3.9,25,2,4054,0)=" . S DXS="""",DIC(0)=""L"",DA(1)=ECFN,DIC(""P"")=$P(^DD(721,38,0),U,2)"
^XMB(3.9,25,2,4055,0)="""RTN"",""ECEFPAT"",99,0)"
^XMB(3.9,25,2,4056,0)=" . S DIC=""^ECH(""_DA(1)_"",""_""""""DX""""""_"","",ECDXY=ECDX K ECDXX"
^XMB(3.9,25,2,4057,0)="""RTN"",""ECEFPAT"",100,0)"
^XMB(3.9,25,2,4058,0)=" . F ECX=1:1:$L(ECDXS,""^"") S DXSIEN=$P(ECDXS,U,ECX) I +DXSIEN>0 D"
^XMB(3.9,25,2,4059,0)="""RTN"",""ECEFPAT"",101,0)"
^XMB(3.9,25,2,4060,0)=" . . S DXCDE=$$ICDDX^ICDCODE(DXSIEN,ECDT) Q:+DXCDE<0  I '$P(DXCDE,U,10) Q"
^XMB(3.9,25,2,4061,0)="""RTN"",""ECEFPAT"",102,0)"
^XMB(3.9,25,2,4062,0)=" . . K DD,DO S X=DXSIEN D FILE^DICN"
^XMB(3.9,25,2,4063,0)="""RTN"",""ECEFPAT"",103,0)"
^XMB(3.9,25,2,4064,0)=" . . S DXCDE=$P(DXCDE,U,2),ECDXX(DXCDE)=DXSIEN"
^XMB(3.9,25,2,4065,0)="""RTN"",""ECEFPAT"",104,0)"
^XMB(3.9,25,2,4066,0)=" . . S ^DISV(DUZ,""^ICD9("")=DXSIEN  ;last ICD9 code"
^XMB(3.9,25,2,4067,0)="""RTN"",""ECEFPAT"",105,0)"
^XMB(3.9,25,2,4068,0)=" . ; Update all procedures for an encounter with same primary & second dx"
^XMB(3.9,25,2,4069,0)="""RTN"",""ECEFPAT"",106,0)"
^XMB(3.9,25,2,4070,0)=" . S PXUPD=$$PXUPD^ECUTL2(ECDFN,ECDT,ECL,EC4,ECDXY,.ECDXX,ECFN)"
^XMB(3.9,25,2,4071,0)="""RTN"",""ECEFPAT"",107,0)"
^XMB(3.9,25,2,4072,0)=" . K PXUPD,ECDXY,ECDXX,DXS,DXSIEN,DIC,DXCDE,DA,DD,DO"
^XMB(3.9,25,2,4073,0)="""RTN"",""ECEFPAT"",108,0)"
^XMB(3.9,25,2,4074,0)=" I $D(DTOUT) D RECDEL,MSG Q"
^XMB(3.9,25,2,4075,0)="""RTN"",""ECEFPAT"",109,0)"
^XMB(3.9,25,2,4076,0)=" S DA=ECFN"
^XMB(3.9,25,2,4077,0)="""RTN"",""ECEFPAT"",110,0)"
^XMB(3.9,25,2,4078,0)=" ;File classification AO^IR^SC^EC^MST^HNC^CV"
^XMB(3.9,25,2,4079,0)="""RTN"",""ECEFPAT"",111,0)"
^XMB(3.9,25,2,4080,0)=" I $G(ECLASS)'="""" D"
^XMB(3.9,25,2,4081,0)="""RTN"",""ECEFPAT"",112,0)"
^XMB(3.9,25,2,4082,0)=" . S CLSTR=""21^22^24^23^35^39^40"",DR="""""
^XMB(3.9,25,2,4083,0)="""RTN"",""ECEFPAT"",113,0)"
^XMB(3.9,25,2,4084,0)=" . F ECX=1:1:$L(CLSTR,""^"") D"
^XMB(3.9,25,2,4085,0)="""RTN"",""ECEFPAT"",114,0)"
^XMB(3.9,25,2,4086,0)=" . . S DR=DR_$P(CLSTR,U,ECX)_""////""_$P(ECLASS,U,ECX)_"";"""
^XMB(3.9,25,2,4087,0)="""RTN"",""ECEFPAT"",115,0)"
^XMB(3.9,25,2,4088,0)=" . S DR=$E(DR,1,($L(DR)-1)) D ^DIE"
^XMB(3.9,25,2,4089,0)="""RTN"",""ECEFPAT"",116,0)"
^XMB(3.9,25,2,4090,0)=" . K CLSTR,DR,DIE"
^XMB(3.9,25,2,4091,0)="""RTN"",""ECEFPAT"",117,0)"
^XMB(3.9,25,2,4092,0)=" I $D(DTOUT) D RECDEL,MSG Q"
^XMB(3.9,25,2,4093,0)="""RTN"",""ECEFPAT"",118,0)"
^XMB(3.9,25,2,4094,0)=" ;"
^XMB(3.9,25,2,4095,0)="""RTN"",""ECEFPAT"",119,0)"
^XMB(3.9,25,2,4096,0)="PCE ; format PCE data to send"
^XMB(3.9,25,2,4097,0)="""RTN"",""ECEFPAT"",120,0)"
^XMB(3.9,25,2,4098,0)=" I ($P(ECPCE,""~"",2)=""N"")!($P(ECPCE,""~"",2)=""O""&(ECINP'=""O"")) D  Q"
^XMB(3.9,25,2,4099,0)="""RTN"",""ECEFPAT"",121,0)"
^XMB(3.9,25,2,4100,0)=" .S ^TMP($J,""ECMSG"",1)=""1^Record Filed"""
^XMB(3.9,25,2,4101,0)="""RTN"",""ECEFPAT"",122,0)"
^XMB(3.9,25,2,4102,0)=" D:ECFLG PCE^ECBEN2U I 'ECFLG S EC(0)=^ECH(ECFN,0) D PCEE^ECBEN2U K EC"
^XMB(3.9,25,2,4103,0)="""RTN"",""ECEFPAT"",123,0)"
^XMB(3.9,25,2,4104,0)=" I $G(ECOUT)!(ECERR) D  Q"
^XMB(3.9,25,2,4105,0)="""RTN"",""ECEFPAT"",124,0)"
^XMB(3.9,25,2,4106,0)=" . D RECDEL S STR=$S($G(^ECH(ECFN,""R"")):^(""R""),1:"" PCE Data Missing"")"
^XMB(3.9,25,2,4107,0)="""RTN"",""ECEFPAT"",125,0)"
^XMB(3.9,25,2,4108,0)=" . S ^TMP($J,""ECMSG"",1)=""0^Record Not Filed, ""_STR K STR"
^XMB(3.9,25,2,4109,0)="""RTN"",""ECEFPAT"",126,0)"
^XMB(3.9,25,2,4110,0)=" S ^TMP($J,""ECMSG"",1)=""1^Record Filed""_U_$G(ECIEN)"
^XMB(3.9,25,2,4111,0)="""RTN"",""ECEFPAT"",127,0)"
^XMB(3.9,25,2,4112,0)=" Q"
^XMB(3.9,25,2,4113,0)="""RTN"",""ECEFPAT"",128,0)"
^XMB(3.9,25,2,4114,0)=" ;"
^XMB(3.9,25,2,4115,0)="""RTN"",""ECEFPAT"",129,0)"
^XMB(3.9,25,2,4116,0)="NEWIEN ;Create new IEN in file #721"
^XMB(3.9,25,2,4117,0)="""RTN"",""ECEFPAT"",130,0)"
^XMB(3.9,25,2,4118,0)=" N DIC,DA,DD,DO,ECRN"
^XMB(3.9,25,2,4119,0)="""RTN"",""ECEFPAT"",131,0)"
^XMB(3.9,25,2,4120,0)="RLCK L +^ECH(0) S ECRN=$P(^ECH(0),""^"",3)+1"
^XMB(3.9,25,2,4121,0)="""RTN"",""ECEFPAT"",132,0)"
^XMB(3.9,25,2,4122,0)=" I $D(^ECH(ECRN)) S $P(^ECH(0),""^"",3)=$P(^(0),""^"",3)+1 L -^ECH(0) G RLCK"
^XMB(3.9,25,2,4123,0)="""RTN"",""ECEFPAT"",133,0)"
^XMB(3.9,25,2,4124,0)=" L -^ECH(0) S DIC(0)=""L"",DIC=""^ECH("",X=ECRN"
^XMB(3.9,25,2,4125,0)="""RTN"",""ECEFPAT"",134,0)"
^XMB(3.9,25,2,4126,0)=" D FILE^DICN S ECIEN=+Y"
^XMB(3.9,25,2,4127,0)="""RTN"",""ECEFPAT"",135,0)"
^XMB(3.9,25,2,4128,0)=" Q"
^XMB(3.9,25,2,4129,0)="""RTN"",""ECEFPAT"",136,0)"
^XMB(3.9,25,2,4130,0)="RECDEL ; Delete record"
^XMB(3.9,25,2,4131,0)="""RTN"",""ECEFPAT"",137,0)"
^XMB(3.9,25,2,4132,0)=" ;restore old data"
^XMB(3.9,25,2,4133,0)="""RTN"",""ECEFPAT"",138,0)"
^XMB(3.9,25,2,4134,0)=" I 'ECFLG D  Q"
^XMB(3.9,25,2,4135,0)="""RTN"",""ECEFPAT"",139,0)"
^XMB(3.9,25,2,4136,0)=" . I $O(OLDMOD("""")) D"
^XMB(3.9,25,2,4137,0)="""RTN"",""ECEFPAT"",140,0)"
^XMB(3.9,25,2,4138,0)=" . . S DIC(0)=""L"",DA(1)=ECFN,DIC(""P"")=$P(^DD(721,36,0),U,2)"
^XMB(3.9,25,2,4139,0)="""RTN"",""ECEFPAT"",141,0)"
^XMB(3.9,25,2,4140,0)=" . . S DIC=""^ECH(""_DA(1)_"",""_""""""MOD""""""_"","",ECX=0"
^XMB(3.9,25,2,4141,0)="""RTN"",""ECEFPAT"",142,0)"
^XMB(3.9,25,2,4142,0)=" . . F  S ECX=$O(OLDMOD(ECX)) Q:'ECX  I ECX>0 K DD,DO S X=ECX D FILE^DICN"
^XMB(3.9,25,2,4143,0)="""RTN"",""ECEFPAT"",143,0)"
^XMB(3.9,25,2,4144,0)=" . I $O(OLDDXS("""")) D"
^XMB(3.9,25,2,4145,0)="""RTN"",""ECEFPAT"",144,0)"
^XMB(3.9,25,2,4146,0)=" . . S DIC(0)=""L"",DA(1)=ECFN,DIC(""P"")=$P(^DD(721,38,0),U,2)"
^XMB(3.9,25,2,4147,0)="""RTN"",""ECEFPAT"",145,0)"
^XMB(3.9,25,2,4148,0)=" . . S DIC=""^ECH(""_DA(1)_"",""_""""""DX""""""_"","",ECX=0"
^XMB(3.9,25,2,4149,0)="""RTN"",""ECEFPAT"",146,0)"
^XMB(3.9,25,2,4150,0)=" . . F  S ECX=$O(OLDDXS(ECX)) Q:'ECX  I ECX>0 K DD,DO S X=ECX D FILE^DICN"
^XMB(3.9,25,2,4151,0)="""RTN"",""ECEFPAT"",147,0)"
^XMB(3.9,25,2,4152,0)=" . K DIC,DA,DD,DO,OLDMOD,OLDDXS,ECX"
^XMB(3.9,25,2,4153,0)="""RTN"",""ECEFPAT"",148,0)"
^XMB(3.9,25,2,4154,0)=" S DA=ECFN,DIK=""^ECH("" D ^DIK K DA,DIK"
^XMB(3.9,25,2,4155,0)="""RTN"",""ECEFPAT"",149,0)"
^XMB(3.9,25,2,4156,0)=" Q"
^XMB(3.9,25,2,4157,0)="""RTN"",""ECEFPAT"",150,0)"
^XMB(3.9,25,2,4158,0)="MSG ;Record not filed"
^XMB(3.9,25,2,4159,0)="""RTN"",""ECEFPAT"",151,0)"
^XMB(3.9,25,2,4160,0)=" S ^TMP($J,""ECMSG"",1)=""0^Record not Filed"""
^XMB(3.9,25,2,4161,0)="""RTN"",""ECEFPAT"",152,0)"
^XMB(3.9,25,2,4162,0)=" Q"
^XMB(3.9,25,2,4163,0)="""RTN"",""ECEFPAT"",153,0)"
^XMB(3.9,25,2,4164,0)="CHKDT(FLG) ;Required Data Check"
^XMB(3.9,25,2,4165,0)="""RTN"",""ECEFPAT"",154,0)"
^XMB(3.9,25,2,4166,0)=" N I,C"
^XMB(3.9,25,2,4167,0)="""RTN"",""ECEFPAT"",155,0)"
^XMB(3.9,25,2,4168,0)=" S C=1"
^XMB(3.9,25,2,4169,0)="""RTN"",""ECEFPAT"",156,0)"
^XMB(3.9,25,2,4170,0)=" I FLG=1 D  Q"
^XMB(3.9,25,2,4171,0)="""RTN"",""ECEFPAT"",157,0)"
^XMB(3.9,25,2,4172,0)=" .F I=""ECD"",""ECC"",""ECL"",""ECDT"",""ECP"",""ECDFN"",""ECMN"",""ECDUZ"",""ECPTSTAT"" D"
^XMB(3.9,25,2,4173,0)="""RTN"",""ECEFPAT"",158,0)"
^XMB(3.9,25,2,4174,0)=" ..I $G(@I)="""" S ^TMP($J,""ECMSG"",C)=""0^Key data missing ""_I,C=C+1,ECERR=1"
^XMB(3.9,25,2,4175,0)="""RTN"",""ECEFPAT"",159,0)"
^XMB(3.9,25,2,4176,0)=" .I $G(ECDEL),$D(ECIEN) K ^TMP($J,""ECMSG"") S ECERR=0"
^XMB(3.9,25,2,4177,0)="""RTN"",""ECEFPAT"",160,0)"
^XMB(3.9,25,2,4178,0)=" ;check PCE data"
^XMB(3.9,25,2,4179,0)="""RTN"",""ECEFPAT"",161,0)"
^XMB(3.9,25,2,4180,0)=" I FLG=2 D  Q"
^XMB(3.9,25,2,4181,0)="""RTN"",""ECEFPAT"",162,0)"
^XMB(3.9,25,2,4182,0)=" .F I=""EC4"",""ECDX"" D  Q"
^XMB(3.9,25,2,4183,0)="""RTN"",""ECEFPAT"",163,0)"
^XMB(3.9,25,2,4184,0)=" ..I $G(@I)="""" S ^TMP($J,""ECMSG"",C)=""0^Key PCE data missing ""_I,C=C+1,ECERR=1"
^XMB(3.9,25,2,4185,0)="""RTN"",""ECEFPAT"",164,0)"
^XMB(3.9,25,2,4186,0)=" Q"
^XMB(3.9,25,2,4187,0)="""RTN"",""ECEFPAT"",165,0)"
^XMB(3.9,25,2,4188,0)="VALDATA ;validate data"
^XMB(3.9,25,2,4189,0)="""RTN"",""ECEFPAT"",166,0)"
^XMB(3.9,25,2,4190,0)=" N ECRRX"
^XMB(3.9,25,2,4191,0)="""RTN"",""ECEFPAT"",167,0)"
^XMB(3.9,25,2,4192,0)=" D CHK^DIE(721,1,,""`""_ECDFN,.ECRRX) I ECRRX'=ECDFN D  Q"
^XMB(3.9,25,2,4193,0)="""RTN"",""ECEFPAT"",168,0)"
^XMB(3.9,25,2,4194,0)=" .S ECERR=1,^TMP($J,""ECMSG"",1)=""0^Invalid Patient"""
^XMB(3.9,25,2,4195,0)="""RTN"",""ECEFPAT"",169,0)"
^XMB(3.9,25,2,4196,0)=" D CHK^DIE(721,2,,ECDT,.ECRRX) I ECRRX'=ECDT D  Q"
^XMB(3.9,25,2,4197,0)="""RTN"",""ECEFPAT"",170,0)"
^XMB(3.9,25,2,4198,0)=" .S ECERR=1,^TMP($J,""ECMSG"",1)=""0^Invalid Procedure Date"""
^XMB(3.9,25,2,4199,0)="""RTN"",""ECEFPAT"",171,0)"
^XMB(3.9,25,2,4200,0)=" D CHK^DIE(721,3,,""`""_ECL,.ECRRX) I ECRRX'=ECL D  Q"
^XMB(3.9,25,2,4201,0)="""RTN"",""ECEFPAT"",172,0)"
^XMB(3.9,25,2,4202,0)=" .S ECERR=1,^TMP($J,""ECMSG"",1)=""0^Invalid Location"""
^XMB(3.9,25,2,4203,0)="""RTN"",""ECEFPAT"",173,0)"
^XMB(3.9,25,2,4204,0)=" D CHK^DIE(721,6,,""`""_ECD,.ECRRX) I ECRRX'=ECD D  Q"
^XMB(3.9,25,2,4205,0)="""RTN"",""ECEFPAT"",174,0)"
^XMB(3.9,25,2,4206,0)=" .S ECERR=1,^TMP($J,""ECMSG"",1)=""0^Invalid DSS Unit"""
^XMB(3.9,25,2,4207,0)="""RTN"",""ECEFPAT"",175,0)"
^XMB(3.9,25,2,4208,0)=" D CHK^DIE(721,7,,""`""_ECC,.ECRRX) I ECRRX'=ECC D  Q"
^XMB(3.9,25,2,4209,0)="""RTN"",""ECEFPAT"",176,0)"
^XMB(3.9,25,2,4210,0)=" .S ECERR=1,^TMP($J,""ECMSG"",1)=""0^Invalid Category"""
^XMB(3.9,25,2,4211,0)="""RTN"",""ECEFPAT"",177,0)"
^XMB(3.9,25,2,4212,0)=" D  I ECERR Q"
^XMB(3.9,25,2,4213,0)="""RTN"",""ECEFPAT"",178,0)"
^XMB(3.9,25,2,4214,0)=" .I ECP[""ICPT"" S ECRRX=$$CPT^ICPTCOD(+ECP,ECDT) I +ECRRX>0,$P(ECRRX,U,7) Q"
^XMB(3.9,25,2,4215,0)="""RTN"",""ECEFPAT"",179,0)"
^XMB(3.9,25,2,4216,0)=" .I ECP[""EC"",$D(^EC(725,+ECP,0)) Q"
^XMB(3.9,25,2,4217,0)="""RTN"",""ECEFPAT"",180,0)"
^XMB(3.9,25,2,4218,0)=" .S ECERR=1,^TMP($J,""ECMSG"",1)=""0^Invalid Procedure"""
^XMB(3.9,25,2,4219,0)="""RTN"",""ECEFPAT"",181,0)"
^XMB(3.9,25,2,4220,0)=" D CHK^DIE(721,11,,""`""_ECMN,.ECRRX) I ECRRX'=ECMN D  Q"
^XMB(3.9,25,2,4221,0)="""RTN"",""ECEFPAT"",182,0)"
^XMB(3.9,25,2,4222,0)=" .S ECERR=1,^TMP($J,""ECMSG"",1)=""0^Invalid Ordering Section"""
^XMB(3.9,25,2,4223,0)="""RTN"",""ECEFPAT"",183,0)"
^XMB(3.9,25,2,4224,0)=" D CHK^DIE(721,20,,""`""_ECDX,.ECRRX) I ECRRX'=ECDX D  Q"
^XMB(3.9,25,2,4225,0)="""RTN"",""ECEFPAT"",184,0)"
^XMB(3.9,25,2,4226,0)=" .S ECERR=1,^TMP($J,""ECMSG"",1)=""0^Invalid Primary Diagnosis"""
^XMB(3.9,25,2,4227,0)="""RTN"",""ECEFPAT"",185,0)"
^XMB(3.9,25,2,4228,0)=" I $G(EC4)'="""" D CHK^DIE(721,26,,""`""_EC4,.ECRRX) I ECRRX'=EC4 D  Q"
^XMB(3.9,25,2,4229,0)="""RTN"",""ECEFPAT"",186,0)"
^XMB(3.9,25,2,4230,0)=" .S ECERR=1,^TMP($J,""ECMSG"",1)=""0^Invalid Associated Clinic"""
^XMB(3.9,25,2,4231,0)="""RTN"",""ECEFPAT"",187,0)"
^XMB(3.9,25,2,4232,0)=" Q"
^XMB(3.9,25,2,4233,0)="""RTN"",""ECINCPT"")"
^XMB(3.9,25,2,4234,0)="0^4^B3068405"
^XMB(3.9,25,2,4235,0)="""RTN"",""ECINCPT"",1,0)"
^XMB(3.9,25,2,4236,0)="ECINCPT ;ALB/JAM-Procedure Codes with Inactive CPTs Report ; 08/01/05"
^XMB(3.9,25,2,4237,0)="""RTN"",""ECINCPT"",2,0)"
^XMB(3.9,25,2,4238,0)=" ;;2.0; EVENT CAPTURE ;**72**;8 May 96"
^XMB(3.9,25,2,4239,0)="""RTN"",""ECINCPT"",3,0)"
^XMB(3.9,25,2,4240,0)=" ; Routine to report National/Local Procedure Codes with Inactive CPT "
^XMB(3.9,25,2,4241,0)="""RTN"",""ECINCPT"",4,0)"
^XMB(3.9,25,2,4242,0)=" ; Codes Report"
^XMB(3.9,25,2,4243,0)="""RTN"",""ECINCPT"",5,0)"
^XMB(3.9,25,2,4244,0)="EN ;entry point"
^XMB(3.9,25,2,4245,0)="""RTN"",""ECINCPT"",6,0)"
^XMB(3.9,25,2,4246,0)=" N ZTIO,ZTDESC,ZTRTN,ECPG,ECOUT"
^XMB(3.9,25,2,4247,0)="""RTN"",""ECINCPT"",7,0)"
^XMB(3.9,25,2,4248,0)=" S ZTIO=ION"
^XMB(3.9,25,2,4249,0)="""RTN"",""ECINCPT"",8,0)"
^XMB(3.9,25,2,4250,0)=" S ZTDESC=""NATIONAL/LOCAL PROCEDURE CODES WITH INACTIVE CPT"""
^XMB(3.9,25,2,4251,0)="""RTN"",""ECINCPT"",9,0)"
^XMB(3.9,25,2,4252,0)=" S ZTRTN=""START^ECINCPT"""
^XMB(3.9,25,2,4253,0)="""RTN"",""ECINCPT"",10,0)"
^XMB(3.9,25,2,4254,0)=" D EN^XUTMDEVQ(ZTRTN,ZTDESC,.ZTSAVE)"
^XMB(3.9,25,2,4255,0)="""RTN"",""ECINCPT"",11,0)"
^XMB(3.9,25,2,4256,0)=" I POP Q"
^XMB(3.9,25,2,4257,0)="""RTN"",""ECINCPT"",12,0)"
^XMB(3.9,25,2,4258,0)=" I IO'=IO(0) D ^%ZISC"
^XMB(3.9,25,2,4259,0)="""RTN"",""ECINCPT"",13,0)"
^XMB(3.9,25,2,4260,0)=" D HOME^%ZIS"
^XMB(3.9,25,2,4261,0)="""RTN"",""ECINCPT"",14,0)"
^XMB(3.9,25,2,4262,0)=" Q"
^XMB(3.9,25,2,4263,0)="""RTN"",""ECINCPT"",15,0)"
^XMB(3.9,25,2,4264,0)="START ; Routine execution"
^XMB(3.9,25,2,4265,0)="""RTN"",""ECINCPT"",16,0)"
^XMB(3.9,25,2,4266,0)=" N ECI,EC0,ECPT,ECN,ECD,ECPI,ECDT,ECPG,ECOUT,ECRDT"
^XMB(3.9,25,2,4267,0)="""RTN"",""ECINCPT"",17,0)"
^XMB(3.9,25,2,4268,0)=" S (ECI,ECOUT)=0,ECPG=1"
^XMB(3.9,25,2,4269,0)="""RTN"",""ECINCPT"",18,0)"
^XMB(3.9,25,2,4270,0)=" S %H=$H S ECRDT=$$HTE^XLFDT(%H,1)"
^XMB(3.9,25,2,4271,0)="""RTN"",""ECINCPT"",19,0)"
^XMB(3.9,25,2,4272,0)=" D HEADER"
^XMB(3.9,25,2,4273,0)="""RTN"",""ECINCPT"",20,0)"
^XMB(3.9,25,2,4274,0)=" F  S ECI=$O(^EC(725,ECI)) Q:'ECI  D  I ECOUT Q"
^XMB(3.9,25,2,4275,0)="""RTN"",""ECINCPT"",21,0)"
^XMB(3.9,25,2,4276,0)=" .S EC0=$G(^EC(725,ECI,0)),ECPT=$P(EC0,""^"",5)"
^XMB(3.9,25,2,4277,0)="""RTN"",""ECINCPT"",22,0)"
^XMB(3.9,25,2,4278,0)=" .Q:EC0=""""  Q:ECPT="""""
^XMB(3.9,25,2,4279,0)="""RTN"",""ECINCPT"",23,0)"
^XMB(3.9,25,2,4280,0)=" .S ECN=$P(EC0,""^"",2),ECD=$P(EC0,""^""),ECPI=$$CPT^ICPTCOD(ECPT)"
^XMB(3.9,25,2,4281,0)="""RTN"",""ECINCPT"",24,0)"
^XMB(3.9,25,2,4282,0)=" .Q:+ECPI<1  Q:$P(ECPI,""^"",7)"
^XMB(3.9,25,2,4283,0)="""RTN"",""ECINCPT"",25,0)"
^XMB(3.9,25,2,4284,0)=" .S ECDT=$TR($$FMTE^XLFDT($P(ECPI,""^"",8),""2F""),"" "",""0"")"
^XMB(3.9,25,2,4285,0)="""RTN"",""ECINCPT"",26,0)"
^XMB(3.9,25,2,4286,0)=" .I ($Y+3)>IOSL D PAGE Q:ECOUT  D HEADER"
^XMB(3.9,25,2,4287,0)="""RTN"",""ECINCPT"",27,0)"
^XMB(3.9,25,2,4288,0)=" .W !,ECN,?10,ECD,?60,$P(ECPI,""^"",2),?68,ECDT"
^XMB(3.9,25,2,4289,0)="""RTN"",""ECINCPT"",28,0)"
^XMB(3.9,25,2,4290,0)=" I 'ECOUT D PAGE"
^XMB(3.9,25,2,4291,0)="""RTN"",""ECINCPT"",29,0)"
^XMB(3.9,25,2,4292,0)=" Q"
^XMB(3.9,25,2,4293,0)="""RTN"",""ECINCPT"",30,0)"
^XMB(3.9,25,2,4294,0)="HEADER ;"
^XMB(3.9,25,2,4295,0)="""RTN"",""ECINCPT"",31,0)"
^XMB(3.9,25,2,4296,0)=" W:$E(IOST,1,2)=""C-""!(ECPG>1) @IOF"
^XMB(3.9,25,2,4297,0)="""RTN"",""ECINCPT"",32,0)"
^XMB(3.9,25,2,4298,0)=" W !!,""NATIONAL/LOCAL PROCEDURE CODES WITH INACTIVE CPT CODES"""
^XMB(3.9,25,2,4299,0)="""RTN"",""ECINCPT"",33,0)"
^XMB(3.9,25,2,4300,0)=" W ?68,""Page: "",ECPG,!?25,""Run Date : "",ECRDT,!"
^XMB(3.9,25,2,4301,0)="""RTN"",""ECINCPT"",34,0)"
^XMB(3.9,25,2,4302,0)=" W ""National"",?60,""CPT"",?68,""Inactive"",!"
^XMB(3.9,25,2,4303,0)="""RTN"",""ECINCPT"",35,0)"
^XMB(3.9,25,2,4304,0)=" W ""Number"",?10,""National Name"",?60,""Code"",?68,""Date"",!"
^XMB(3.9,25,2,4305,0)="""RTN"",""ECINCPT"",36,0)"
^XMB(3.9,25,2,4306,0)=" S ECPG=ECPG+1"
^XMB(3.9,25,2,4307,0)="""RTN"",""ECINCPT"",37,0)"
^XMB(3.9,25,2,4308,0)=" F I=1:1:80 W ""-"""
^XMB(3.9,25,2,4309,0)="""RTN"",""ECINCPT"",38,0)"
^XMB(3.9,25,2,4310,0)=" Q"
^XMB(3.9,25,2,4311,0)="""RTN"",""ECINCPT"",39,0)"
^XMB(3.9,25,2,4312,0)="PAGE ;"
^XMB(3.9,25,2,4313,0)="""RTN"",""ECINCPT"",40,0)"
^XMB(3.9,25,2,4314,0)=" N SS,JJ"
^XMB(3.9,25,2,4315,0)="""RTN"",""ECINCPT"",41,0)"
^XMB(3.9,25,2,4316,0)=" I $D(ECPG),$E(IOST,1,2)=""C-"" D"
^XMB(3.9,25,2,4317,0)="""RTN"",""ECINCPT"",42,0)"
^XMB(3.9,25,2,4318,0)=" . S SS=22-$Y F JJ=1:1:SS W !"
^XMB(3.9,25,2,4319,0)="""RTN"",""ECINCPT"",43,0)"
^XMB(3.9,25,2,4320,0)=" . S DIR(0)=""E"" W ! D ^DIR K DIR I 'Y S ECOUT=1"
^XMB(3.9,25,2,4321,0)="""RTN"",""ECINCPT"",44,0)"
^XMB(3.9,25,2,4322,0)=" Q"
^XMB(3.9,25,2,4323,0)="""RTN"",""ECMLMD"")"
^XMB(3.9,25,2,4324,0)="0^27^B2107431^B2020047"
^XMB(3.9,25,2,4325,0)="""RTN"",""ECMLMD"",1,0)"
^XMB(3.9,25,2,4326,0)="ECMLMD ;ALB/ESD - Multiple Dates/Multiple Procedures Driver ;20 AUG 1997 13:56"
^XMB(3.9,25,2,4327,0)="""RTN"",""ECMLMD"",2,0)"
^XMB(3.9,25,2,4328,0)=" ;;2.0; EVENT CAPTURE ;**5,15,72**;8 May 96"
^XMB(3.9,25,2,4329,0)="""RTN"",""ECMLMD"",3,0)"
^XMB(3.9,25,2,4330,0)=" ;"
^XMB(3.9,25,2,4331,0)="""RTN"",""ECMLMD"",4,0)"
^XMB(3.9,25,2,4332,0)="EN ;- Entry point for Multiple Date/Multiple Procedures Data Entry Option"
^XMB(3.9,25,2,4333,0)="""RTN"",""ECMLMD"",5,0)"
^XMB(3.9,25,2,4334,0)=" ;"
^XMB(3.9,25,2,4335,0)="""RTN"",""ECMLMD"",6,0)"
^XMB(3.9,25,2,4336,0)=" N ECCAT,ECDSSU,ECFFLG,ECL,ECLN,ECNFLG,ECPRDT,ECPROC,ECU"
^XMB(3.9,25,2,4337,0)="""RTN"",""ECMLMD"",7,0)"
^XMB(3.9,25,2,4338,0)=" ;"
^XMB(3.9,25,2,4339,0)="""RTN"",""ECMLMD"",8,0)"
^XMB(3.9,25,2,4340,0)=" ;- Ask location"
^XMB(3.9,25,2,4341,0)="""RTN"",""ECMLMD"",9,0)"
^XMB(3.9,25,2,4342,0)=" I '$$ASKLOC^ECMUTL G ENQ"
^XMB(3.9,25,2,4343,0)="""RTN"",""ECMLMD"",10,0)"
^XMB(3.9,25,2,4344,0)=" ;"
^XMB(3.9,25,2,4345,0)="""RTN"",""ECMLMD"",11,0)"
^XMB(3.9,25,2,4346,0)=" ;- Ask DSS Unit"
^XMB(3.9,25,2,4347,0)="""RTN"",""ECMLMD"",12,0)"
^XMB(3.9,25,2,4348,0)=" I $$ONEUNIT^ECMUTL(.ECDSSU),('$D(ECDSSU)) G ENQ"
^XMB(3.9,25,2,4349,0)="""RTN"",""ECMLMD"",13,0)"
^XMB(3.9,25,2,4350,0)=" ;"
^XMB(3.9,25,2,4351,0)="""RTN"",""ECMLMD"",14,0)"
^XMB(3.9,25,2,4352,0)=" ;- Ask providers (provider 1 is required, providers 2..n optional)"
^XMB(3.9,25,2,4353,0)="""RTN"",""ECMLMD"",15,0)"
^XMB(3.9,25,2,4354,0)=" D ASKPRV^ECPRVMUT("""",DT,.ECU,.ECOUT) I $G(ECOUT) G ENQ"
^XMB(3.9,25,2,4355,0)="""RTN"",""ECMLMD"",16,0)"
^XMB(3.9,25,2,4356,0)=" ;"
^XMB(3.9,25,2,4357,0)="""RTN"",""ECMLMD"",17,0)"
^XMB(3.9,25,2,4358,0)=" ;- Ask procedure date(s)"
^XMB(3.9,25,2,4359,0)="""RTN"",""ECMLMD"",18,0)"
^XMB(3.9,25,2,4360,0)=" I '$$ASKPRDT^ECMUTL(+$P(ECDSSU,""^"")) G ENQ"
^XMB(3.9,25,2,4361,0)="""RTN"",""ECMLMD"",19,0)"
^XMB(3.9,25,2,4362,0)=" ;"
^XMB(3.9,25,2,4363,0)="""RTN"",""ECMLMD"",20,0)"
^XMB(3.9,25,2,4364,0)=" ;- Ask category"
^XMB(3.9,25,2,4365,0)="""RTN"",""ECMLMD"",21,0)"
^XMB(3.9,25,2,4366,0)=" S ECCAT=$$ASKCAT^ECMUTL(ECL,+$P(ECDSSU,""^""))"
^XMB(3.9,25,2,4367,0)="""RTN"",""ECMLMD"",22,0)"
^XMB(3.9,25,2,4368,0)=" I $G(ECCAT)="""" G ENQ"
^XMB(3.9,25,2,4369,0)="""RTN"",""ECMLMD"",23,0)"
^XMB(3.9,25,2,4370,0)=" ;"
^XMB(3.9,25,2,4371,0)="""RTN"",""ECMLMD"",24,0)"
^XMB(3.9,25,2,4372,0)=" ;- Ask procedure(s)"
^XMB(3.9,25,2,4373,0)="""RTN"",""ECMLMD"",25,0)"
^XMB(3.9,25,2,4374,0)=" D ASKPRO^ECMUTL(ECL,+$P(ECDSSU,""^""),+$P(ECCAT,""^""))"
^XMB(3.9,25,2,4375,0)="""RTN"",""ECMLMD"",26,0)"
^XMB(3.9,25,2,4376,0)=" I '$D(^TMP(""ECPROC"",$J)) G ENQ"
^XMB(3.9,25,2,4377,0)="""RTN"",""ECMLMD"",27,0)"
^XMB(3.9,25,2,4378,0)=" ;"
^XMB(3.9,25,2,4379,0)="""RTN"",""ECMLMD"",28,0)"
^XMB(3.9,25,2,4380,0)=" D WAIT^DICD"
^XMB(3.9,25,2,4381,0)="""RTN"",""ECMLMD"",29,0)"
^XMB(3.9,25,2,4382,0)=" ;"
^XMB(3.9,25,2,4383,0)="""RTN"",""ECMLMD"",30,0)"
^XMB(3.9,25,2,4384,0)=" ;- Call 1st ListMan screen (procedure dates/procedures)"
^XMB(3.9,25,2,4385,0)="""RTN"",""ECMLMD"",31,0)"
^XMB(3.9,25,2,4386,0)=" D EN^ECMLMP"
^XMB(3.9,25,2,4387,0)="""RTN"",""ECMLMD"",32,0)"
^XMB(3.9,25,2,4388,0)=" ;"
^XMB(3.9,25,2,4389,0)="""RTN"",""ECMLMD"",33,0)"
^XMB(3.9,25,2,4390,0)=" ;- Flag to go to 2nd ListMan screen and data in array must exist to continue"
^XMB(3.9,25,2,4391,0)="""RTN"",""ECMLMD"",34,0)"
^XMB(3.9,25,2,4392,0)=" I '$G(ECNFLG)!($G(ECNFLG)&('$D(^TMP(""ECMPIDX"",$J)))) G ENQ"
^XMB(3.9,25,2,4393,0)="""RTN"",""ECMLMD"",35,0)"
^XMB(3.9,25,2,4394,0)=" ;"
^XMB(3.9,25,2,4395,0)="""RTN"",""ECMLMD"",36,0)"
^XMB(3.9,25,2,4396,0)=" ;- Call 2nd ListMan screen (patients)"
^XMB(3.9,25,2,4397,0)="""RTN"",""ECMLMD"",37,0)"
^XMB(3.9,25,2,4398,0)=" D EN^ECMLMN"
^XMB(3.9,25,2,4399,0)="""RTN"",""ECMLMD"",38,0)"
^XMB(3.9,25,2,4400,0)=" ;"
^XMB(3.9,25,2,4401,0)="""RTN"",""ECMLMD"",39,0)"
^XMB(3.9,25,2,4402,0)=" ;- Flag to go to filing routine and data in array must exist to continue"
^XMB(3.9,25,2,4403,0)="""RTN"",""ECMLMD"",40,0)"
^XMB(3.9,25,2,4404,0)=" I '$G(ECFFLG)!($G(ECFFLG)&('$D(^TMP(""ECMPTIDX"",$J)))) G ENQ"
^XMB(3.9,25,2,4405,0)="""RTN"",""ECMLMD"",41,0)"
^XMB(3.9,25,2,4406,0)=" ;"
^XMB(3.9,25,2,4407,0)="""RTN"",""ECMLMD"",42,0)"
^XMB(3.9,25,2,4408,0)=" ;- Call filing routine"
^XMB(3.9,25,2,4409,0)="""RTN"",""ECMLMD"",43,0)"
^XMB(3.9,25,2,4410,0)=" D EN^ECMLMF"
^XMB(3.9,25,2,4411,0)="""RTN"",""ECMLMD"",44,0)"
^XMB(3.9,25,2,4412,0)=" Q"
^XMB(3.9,25,2,4413,0)="""RTN"",""ECMLMD"",45,0)"
^XMB(3.9,25,2,4414,0)=" ;"
^XMB(3.9,25,2,4415,0)="""RTN"",""ECMLMD"",46,0)"
^XMB(3.9,25,2,4416,0)="ENQ ;- clean up and exit"
^XMB(3.9,25,2,4417,0)="""RTN"",""ECMLMD"",47,0)"
^XMB(3.9,25,2,4418,0)=" K ^TMP(""ECPRDT"",$J),^TMP(""ECPROC"",$J),^TMP(""ECPAT"",$J)"
^XMB(3.9,25,2,4419,0)="""RTN"",""ECMLMD"",48,0)"
^XMB(3.9,25,2,4420,0)=" K ^TMP(""ECMPIDX"",$J),^TMP(""ECMPTIDX"",$J),^TMP(""ECPLST"",$J)"
^XMB(3.9,25,2,4421,0)="""RTN"",""ECMLMD"",49,0)"
^XMB(3.9,25,2,4422,0)=" Q"
^XMB(3.9,25,2,4423,0)="""RTN"",""ECMLMF"")"
^XMB(3.9,25,2,4424,0)="0^28^B31356519^B30638515"
^XMB(3.9,25,2,4425,0)="""RTN"",""ECMLMF"",1,0)"
^XMB(3.9,25,2,4426,0)="ECMLMF ;ALB/ESD - File Multiple Dates/Multiple Procedures  -  29 AUG 97 08:51"
^XMB(3.9,25,2,4427,0)="""RTN"",""ECMLMF"",2,0)"
^XMB(3.9,25,2,4428,0)=" ;;2.0; EVENT CAPTURE ;**5,10,15,13,17,18,23,42,54,72**;8 May 96"
^XMB(3.9,25,2,4429,0)="""RTN"",""ECMLMF"",3,0)"
^XMB(3.9,25,2,4430,0)=" ;"
^XMB(3.9,25,2,4431,0)="""RTN"",""ECMLMF"",4,0)"
^XMB(3.9,25,2,4432,0)="EN ;- Entry point to file selected patients and procedures"
^XMB(3.9,25,2,4433,0)="""RTN"",""ECMLMF"",5,0)"
^XMB(3.9,25,2,4434,0)=" ;"
^XMB(3.9,25,2,4435,0)="""RTN"",""ECMLMF"",6,0)"
^XMB(3.9,25,2,4436,0)=" N DIR,DIRUT,I,J,Y,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE"
^XMB(3.9,25,2,4437,0)="""RTN"",""ECMLMF"",7,0)"
^XMB(3.9,25,2,4438,0)=" I '$D(^TMP(""ECMPIDX"",$J))!('$D(^TMP(""ECMPTIDX"",$J))) W !!,*7,""No patient data found.  No patient record(s) have been filed."" D MSG G ENQ"
^XMB(3.9,25,2,4439,0)="""RTN"",""ECMLMF"",8,0)"
^XMB(3.9,25,2,4440,0)=" ;"
^XMB(3.9,25,2,4441,0)="""RTN"",""ECMLMF"",9,0)"
^XMB(3.9,25,2,4442,0)=" W !!,""You have selected the following patients for filing:"",!"
^XMB(3.9,25,2,4443,0)="""RTN"",""ECMLMF"",10,0)"
^XMB(3.9,25,2,4444,0)=" ;"
^XMB(3.9,25,2,4445,0)="""RTN"",""ECMLMF"",11,0)"
^XMB(3.9,25,2,4446,0)=" ;- List patients"
^XMB(3.9,25,2,4447,0)="""RTN"",""ECMLMF"",12,0)"
^XMB(3.9,25,2,4448,0)=" S I=0"
^XMB(3.9,25,2,4449,0)="""RTN"",""ECMLMF"",13,0)"
^XMB(3.9,25,2,4450,0)=" F  S I=$O(^TMP(""ECMPTIDX"",$J,I)) Q:'I  D"
^XMB(3.9,25,2,4451,0)="""RTN"",""ECMLMF"",14,0)"
^XMB(3.9,25,2,4452,0)=" . W !?5,I_"".  "",$P($G(^TMP(""ECMPTIDX"",$J,I)),""^"",3)"
^XMB(3.9,25,2,4453,0)="""RTN"",""ECMLMF"",15,0)"
^XMB(3.9,25,2,4454,0)=" W !! S DIR(0)=""YA"",DIR(""A"")=""Is this correct? "",DIR(""B"")=""YES"""
^XMB(3.9,25,2,4455,0)="""RTN"",""ECMLMF"",16,0)"
^XMB(3.9,25,2,4456,0)=" S DIR(""?"")=""Answer YES to continue, NO to exit."""
^XMB(3.9,25,2,4457,0)="""RTN"",""ECMLMF"",17,0)"
^XMB(3.9,25,2,4458,0)=" D ^DIR K DIR"
^XMB(3.9,25,2,4459,0)="""RTN"",""ECMLMF"",18,0)"
^XMB(3.9,25,2,4460,0)=" I '$G(Y)!($D(DIRUT)) W !,""Exiting option...no patients filed."",! D MSG G ENQ"
^XMB(3.9,25,2,4461,0)="""RTN"",""ECMLMF"",19,0)"
^XMB(3.9,25,2,4462,0)=" ;"
^XMB(3.9,25,2,4463,0)="""RTN"",""ECMLMF"",20,0)"
^XMB(3.9,25,2,4464,0)=" ;- Task job"
^XMB(3.9,25,2,4465,0)="""RTN"",""ECMLMF"",21,0)"
^XMB(3.9,25,2,4466,0)=" F J=""DUZ"",""ECL"",""ECDSSU"",""ECCAT"",""ECU*"" S ZTSAVE(J)="""""
^XMB(3.9,25,2,4467,0)="""RTN"",""ECMLMF"",22,0)"
^XMB(3.9,25,2,4468,0)=" S ZTSAVE(""^TMP(""""ECMPIDX"""",$J,"")="""",ZTSAVE(""^TMP(""""ECMPTIDX"""",$J,"")="""""
^XMB(3.9,25,2,4469,0)="""RTN"",""ECMLMF"",23,0)"
^XMB(3.9,25,2,4470,0)=" S ZTIO="""",ZTDESC=""EC MULT DATES/MULT PROCS DATA ENTRY"",ZTRTN=""GETNODS^ECMLMF"",ZTDTH=$H"
^XMB(3.9,25,2,4471,0)="""RTN"",""ECMLMF"",24,0)"
^XMB(3.9,25,2,4472,0)=" ;"
^XMB(3.9,25,2,4473,0)="""RTN"",""ECMLMF"",25,0)"
^XMB(3.9,25,2,4474,0)=" W !!,""These patients will be sent to the background for filing."",!"
^XMB(3.9,25,2,4475,0)="""RTN"",""ECMLMF"",26,0)"
^XMB(3.9,25,2,4476,0)=" D ^%ZTLOAD"
^XMB(3.9,25,2,4477,0)="""RTN"",""ECMLMF"",27,0)"
^XMB(3.9,25,2,4478,0)=" I $D(ZTSK) W !,""Queued as Task #"",ZTSK,!"
^XMB(3.9,25,2,4479,0)="""RTN"",""ECMLMF"",28,0)"
^XMB(3.9,25,2,4480,0)=" D MSG"
^XMB(3.9,25,2,4481,0)="""RTN"",""ECMLMF"",29,0)"
^XMB(3.9,25,2,4482,0)=" ;"
^XMB(3.9,25,2,4483,0)="""RTN"",""ECMLMF"",30,0)"
^XMB(3.9,25,2,4484,0)="ENQ K ^TMP(""ECPLST"",$J)"
^XMB(3.9,25,2,4485,0)="""RTN"",""ECMLMF"",31,0)"
^XMB(3.9,25,2,4486,0)=" Q"
^XMB(3.9,25,2,4487,0)="""RTN"",""ECMLMF"",32,0)"
^XMB(3.9,25,2,4488,0)=" ;"
^XMB(3.9,25,2,4489,0)="""RTN"",""ECMLMF"",33,0)"
^XMB(3.9,25,2,4490,0)=" ;"
^XMB(3.9,25,2,4491,0)="""RTN"",""ECMLMF"",34,0)"
^XMB(3.9,25,2,4492,0)="GETNODS ;- Get procedure node and patient node for processing"
^XMB(3.9,25,2,4493,0)="""RTN"",""ECMLMF"",35,0)"
^XMB(3.9,25,2,4494,0)=" ;"
^XMB(3.9,25,2,4495,0)="""RTN"",""ECMLMF"",36,0)"
^XMB(3.9,25,2,4496,0)=" N ECI,ECJ,ECPRNOD,ECPTNOD,ECDXX"
^XMB(3.9,25,2,4497,0)="""RTN"",""ECMLMF"",37,0)"
^XMB(3.9,25,2,4498,0)=" S (ECI,ECJ)=0"
^XMB(3.9,25,2,4499,0)="""RTN"",""ECMLMF"",38,0)"
^XMB(3.9,25,2,4500,0)=" F  S ECI=$O(^TMP(""ECMPTIDX"",$J,ECI)) Q:'ECI  D"
^XMB(3.9,25,2,4501,0)="""RTN"",""ECMLMF"",39,0)"
^XMB(3.9,25,2,4502,0)=" . S ECPTNOD="""",ECPTNOD=$G(^TMP(""ECMPTIDX"",$J,ECI))"
^XMB(3.9,25,2,4503,0)="""RTN"",""ECMLMF"",40,0)"
^XMB(3.9,25,2,4504,0)=" . K ECDXX M ECDXX=^TMP(""ECMPTIDX"",$J,ECI,""DXS"")"
^XMB(3.9,25,2,4505,0)="""RTN"",""ECMLMF"",41,0)"
^XMB(3.9,25,2,4506,0)=" . F  S ECJ=$O(^TMP(""ECMPIDX"",$J,ECJ)) Q:'ECJ  D"
^XMB(3.9,25,2,4507,0)="""RTN"",""ECMLMF"",42,0)"
^XMB(3.9,25,2,4508,0)=" .. S ECPRNOD="""",ECPRNOD=$G(^TMP(""ECMPIDX"",$J,ECJ))"
^XMB(3.9,25,2,4509,0)="""RTN"",""ECMLMF"",43,0)"
^XMB(3.9,25,2,4510,0)=" .. D FILREC"
^XMB(3.9,25,2,4511,0)="""RTN"",""ECMLMF"",44,0)"
^XMB(3.9,25,2,4512,0)=" D ENQ^ECMLMD"
^XMB(3.9,25,2,4513,0)="""RTN"",""ECMLMF"",45,0)"
^XMB(3.9,25,2,4514,0)=" S ZTREQ=""@"""
^XMB(3.9,25,2,4515,0)="""RTN"",""ECMLMF"",46,0)"
^XMB(3.9,25,2,4516,0)=" Q"
^XMB(3.9,25,2,4517,0)="""RTN"",""ECMLMF"",47,0)"
^XMB(3.9,25,2,4518,0)=" ;"
^XMB(3.9,25,2,4519,0)="""RTN"",""ECMLMF"",48,0)"
^XMB(3.9,25,2,4520,0)=" ;"
^XMB(3.9,25,2,4521,0)="""RTN"",""ECMLMF"",49,0)"
^XMB(3.9,25,2,4522,0)="FILREC ;- Create record in #721 and file fields"
^XMB(3.9,25,2,4523,0)="""RTN"",""ECMLMF"",50,0)"
^XMB(3.9,25,2,4524,0)=" ;"
^XMB(3.9,25,2,4525,0)="""RTN"",""ECMLMF"",51,0)"
^XMB(3.9,25,2,4526,0)=" N DA,ECIEN,ECNOGO,ECPRR,ECPTR,ECREAS,ECSND,DIC,DLAYGO,DIE,DR,I,Y"
^XMB(3.9,25,2,4527,0)="""RTN"",""ECMLMF"",52,0)"
^XMB(3.9,25,2,4528,0)=" S ECNOGO=0"
^XMB(3.9,25,2,4529,0)="""RTN"",""ECMLMF"",53,0)"
^XMB(3.9,25,2,4530,0)=" S I=$P(^ECH(0),""^"",3)"
^XMB(3.9,25,2,4531,0)="""RTN"",""ECMLMF"",54,0)"
^XMB(3.9,25,2,4532,0)="LOCKHD S I=I+1 L +^ECH(I):2 I '$T!$D(^ECH(I)) L -^ECH(I) G LOCKHD"
^XMB(3.9,25,2,4533,0)="""RTN"",""ECMLMF"",55,0)"
^XMB(3.9,25,2,4534,0)=" L -^ECH(0)"
^XMB(3.9,25,2,4535,0)="""RTN"",""ECMLMF"",56,0)"
^XMB(3.9,25,2,4536,0)=" K DD,DO S X=I,DIC(0)=""L"",DLAYGO=721,DIC=""^ECH("" D FILE^DICN"
^XMB(3.9,25,2,4537,0)="""RTN"",""ECMLMF"",57,0)"
^XMB(3.9,25,2,4538,0)=" K DIC,DLAYGO,X"
^XMB(3.9,25,2,4539,0)="""RTN"",""ECMLMF"",58,0)"
^XMB(3.9,25,2,4540,0)=" I Y=-1 G FILRECQ"
^XMB(3.9,25,2,4541,0)="""RTN"",""ECMLMF"",59,0)"
^XMB(3.9,25,2,4542,0)=" S (ECIEN,DA)=+Y"
^XMB(3.9,25,2,4543,0)="""RTN"",""ECMLMF"",60,0)"
^XMB(3.9,25,2,4544,0)=" L +^ECH(ECIEN):2  I '$T G FILRECQ"
^XMB(3.9,25,2,4545,0)="""RTN"",""ECMLMF"",61,0)"
^XMB(3.9,25,2,4546,0)=" ;"
^XMB(3.9,25,2,4547,0)="""RTN"",""ECMLMF"",62,0)"
^XMB(3.9,25,2,4548,0)=" D SETARRY"
^XMB(3.9,25,2,4549,0)="""RTN"",""ECMLMF"",63,0)"
^XMB(3.9,25,2,4550,0)=" ;"
^XMB(3.9,25,2,4551,0)="""RTN"",""ECMLMF"",64,0)"
^XMB(3.9,25,2,4552,0)=" ;- File zero node and ""P"" node"
^XMB(3.9,25,2,4553,0)="""RTN"",""ECMLMF"",65,0)"
^XMB(3.9,25,2,4554,0)=" S DIE=""^ECH("",DR=""[EC CREATE PATIENT ENTRY]"" D ^DIE K DR"
^XMB(3.9,25,2,4555,0)="""RTN"",""ECMLMF"",66,0)"
^XMB(3.9,25,2,4556,0)=" ;"
^XMB(3.9,25,2,4557,0)="""RTN"",""ECMLMF"",67,0)"
^XMB(3.9,25,2,4558,0)=" ;- File multiple providers, ALB/JAM"
^XMB(3.9,25,2,4559,0)="""RTN"",""ECMLMF"",68,0)"
^XMB(3.9,25,2,4560,0)=" S ECFIL=$$FILPRV^ECPRVMUT(ECIEN,.ECU,.ECOUT) K ECFIL"
^XMB(3.9,25,2,4561,0)="""RTN"",""ECMLMF"",69,0)"
^XMB(3.9,25,2,4562,0)=" ;- File secondary diagnoses codes, ALB/JAM"
^XMB(3.9,25,2,4563,0)="""RTN"",""ECMLMF"",70,0)"
^XMB(3.9,25,2,4564,0)=" S (DXS,DXSIEN)="""""
^XMB(3.9,25,2,4565,0)="""RTN"",""ECMLMF"",71,0)"
^XMB(3.9,25,2,4566,0)=" F  S DXS=$O(ECDXX(DXS)) Q:DXS=""""  D"
^XMB(3.9,25,2,4567,0)="""RTN"",""ECMLMF"",72,0)"
^XMB(3.9,25,2,4568,0)=" . S DXSIEN=+ECDXX(DXS) I DXSIEN<0 Q"
^XMB(3.9,25,2,4569,0)="""RTN"",""ECMLMF"",73,0)"
^XMB(3.9,25,2,4570,0)=" . K DIC,DD,DO S DIC(0)=""L"",DA(1)=ECIEN,DIC(""P"")=$P(^DD(721,38,0),U,2)"
^XMB(3.9,25,2,4571,0)="""RTN"",""ECMLMF"",74,0)"
^XMB(3.9,25,2,4572,0)=" . S X=DXSIEN,DIC=""^ECH(""_DA(1)_"",""_""""""DX""""""_"","" D FILE^DICN"
^XMB(3.9,25,2,4573,0)="""RTN"",""ECMLMF"",75,0)"
^XMB(3.9,25,2,4574,0)=" K DXS,DXSIEN,DIC"
^XMB(3.9,25,2,4575,0)="""RTN"",""ECMLMF"",76,0)"
^XMB(3.9,25,2,4576,0)=" ;update encounter's procedures to have same primary & secondary dx"
^XMB(3.9,25,2,4577,0)="""RTN"",""ECMLMF"",77,0)"
^XMB(3.9,25,2,4578,0)=" S PXUPD=$$PXUPD^ECUTL2(ECPTR(""DFN""),ECPRR(""PROCDT""),ECL,ECPTR(""CLIN""),ECPTR(""DX""),.ECDXX,ECIEN) K PXUPD"
^XMB(3.9,25,2,4579,0)="""RTN"",""ECMLMF"",78,0)"
^XMB(3.9,25,2,4580,0)=" ;"
^XMB(3.9,25,2,4581,0)="""RTN"",""ECMLMF"",79,0)"
^XMB(3.9,25,2,4582,0)=" ;File CPT modifiers, ALB/JAM"
^XMB(3.9,25,2,4583,0)="""RTN"",""ECMLMF"",80,0)"
^XMB(3.9,25,2,4584,0)=" N MOD,MODIEN"
^XMB(3.9,25,2,4585,0)="""RTN"",""ECMLMF"",81,0)"
^XMB(3.9,25,2,4586,0)=" S (ECMODS,MOD)="""""
^XMB(3.9,25,2,4587,0)="""RTN"",""ECMLMF"",82,0)"
^XMB(3.9,25,2,4588,0)=" F  S MOD=$O(^TMP(""ECMPIDX"",$J,ECJ,""MOD"",MOD)) Q:MOD=""""  D"
^XMB(3.9,25,2,4589,0)="""RTN"",""ECMLMF"",83,0)"
^XMB(3.9,25,2,4590,0)=" . S MODIEN=$P(^TMP(""ECMPIDX"",$J,ECJ,""MOD"",MOD),U,2) I MODIEN<0 Q"
^XMB(3.9,25,2,4591,0)="""RTN"",""ECMLMF"",84,0)"
^XMB(3.9,25,2,4592,0)=" . K DIC,DD,DO S DIC(0)=""L"",DA(1)=ECIEN,DIC(""P"")=$P(^DD(721,36,0),U,2)"
^XMB(3.9,25,2,4593,0)="""RTN"",""ECMLMF"",85,0)"
^XMB(3.9,25,2,4594,0)=" . S X=MODIEN,DIC=""^ECH(""_DA(1)_"",""_""""""MOD""""""_"","" D FILE^DICN"
^XMB(3.9,25,2,4595,0)="""RTN"",""ECMLMF"",86,0)"
^XMB(3.9,25,2,4596,0)=" . S ECMODS=ECMODS_$S(ECMODS="""":"""",1:"";"")_MOD"
^XMB(3.9,25,2,4597,0)="""RTN"",""ECMLMF"",87,0)"
^XMB(3.9,25,2,4598,0)=" ;"
^XMB(3.9,25,2,4599,0)="""RTN"",""ECMLMF"",88,0)"
^XMB(3.9,25,2,4600,0)=" S ECSND=$P($G(^ECD(+$P($G(ECDSSU),""^""),0)),""^"",14),DA=ECIEN"
^XMB(3.9,25,2,4601,0)="""RTN"",""ECMLMF"",89,0)"
^XMB(3.9,25,2,4602,0)=" I ECSND="""" S ECSND=""N"""
^XMB(3.9,25,2,4603,0)="""RTN"",""ECMLMF"",90,0)"
^XMB(3.9,25,2,4604,0)=" I ECSND=""A""!((ECSND=""O"")&(ECPTR(""IO"")=""O"")) D"
^XMB(3.9,25,2,4605,0)="""RTN"",""ECMLMF"",91,0)"
^XMB(3.9,25,2,4606,0)=" . S ECNOGO=$$BADFLDS(.ECREAS)"
^XMB(3.9,25,2,4607,0)="""RTN"",""ECMLMF"",92,0)"
^XMB(3.9,25,2,4608,0)=" . I ECNOGO S DR=""33////^S X=$G(ECREAS)"" D ^DIE Q"
^XMB(3.9,25,2,4609,0)="""RTN"",""ECMLMF"",93,0)"
^XMB(3.9,25,2,4610,0)=" . I 'ECNOGO D PCE"
^XMB(3.9,25,2,4611,0)="""RTN"",""ECMLMF"",94,0)"
^XMB(3.9,25,2,4612,0)=" ;"
^XMB(3.9,25,2,4613,0)="""RTN"",""ECMLMF"",95,0)"
^XMB(3.9,25,2,4614,0)="FILRECQ L -^ECH(ECIEN)"
^XMB(3.9,25,2,4615,0)="""RTN"",""ECMLMF"",96,0)"
^XMB(3.9,25,2,4616,0)=" Q"
^XMB(3.9,25,2,4617,0)="""RTN"",""ECMLMF"",97,0)"
^XMB(3.9,25,2,4618,0)=" ;"
^XMB(3.9,25,2,4619,0)="""RTN"",""ECMLMF"",98,0)"
^XMB(3.9,25,2,4620,0)=" ;"
^XMB(3.9,25,2,4621,0)="""RTN"",""ECMLMF"",99,0)"
^XMB(3.9,25,2,4622,0)="SETARRY ;- Set local arrays with procedure and patient data for filing"
^XMB(3.9,25,2,4623,0)="""RTN"",""ECMLMF"",100,0)"
^XMB(3.9,25,2,4624,0)=" ;"
^XMB(3.9,25,2,4625,0)="""RTN"",""ECMLMF"",101,0)"
^XMB(3.9,25,2,4626,0)=" N I"
^XMB(3.9,25,2,4627,0)="""RTN"",""ECMLMF"",102,0)"
^XMB(3.9,25,2,4628,0)=" F I=""PROCDT"",""PROC"",""REAS"",""VOL"" S ECPRR(I)=$P(ECPRNOD,""^"",+$P($T(@I),"";;"",2))"
^XMB(3.9,25,2,4629,0)="""RTN"",""ECMLMF"",103,0)"
^XMB(3.9,25,2,4630,0)=" I ECPRR(""REAS"")=0 S ECPRR(""REAS"")="""""
^XMB(3.9,25,2,4631,0)="""RTN"",""ECMLMF"",104,0)"
^XMB(3.9,25,2,4632,0)=" S I=""PCEPR"" S ECPRR(I)=$S($P($G(ECPRR(""PROC"")),"";"",2)=""ICPT("":$P($G(ECPRR(""PROC"")),"";""),1:$P($G(^EC(725,+$P($G(ECPRR(""PROC"")),"";""),0)),""^"",5))"
^XMB(3.9,25,2,4633,0)="""RTN"",""ECMLMF"",105,0)"
^XMB(3.9,25,2,4634,0)=" F I=""DFN"",""ORDSEC"",""IO"",""CLIN"",""DX"",""AO"",""ENV"",""IR"",""SC"",""ELIG"",""MST"",""HNC"",""CV"" S ECPTR(I)=$P(ECPTNOD,""^"",+$P($T(@I),"";;"",2))"
^XMB(3.9,25,2,4635,0)="""RTN"",""ECMLMF"",106,0)"
^XMB(3.9,25,2,4636,0)=" Q"
^XMB(3.9,25,2,4637,0)="""RTN"",""ECMLMF"",107,0)"
^XMB(3.9,25,2,4638,0)=" ;"
^XMB(3.9,25,2,4639,0)="""RTN"",""ECMLMF"",108,0)"
^XMB(3.9,25,2,4640,0)=" ;"
^XMB(3.9,25,2,4641,0)="""RTN"",""ECMLMF"",109,0)"
^XMB(3.9,25,2,4642,0)="BADFLDS(ECRS) ; - Validation checks on fields to be set in ""PCE"" node"
^XMB(3.9,25,2,4643,0)="""RTN"",""ECMLMF"",110,0)"
^XMB(3.9,25,2,4644,0)=" ;"
^XMB(3.9,25,2,4645,0)="""RTN"",""ECMLMF"",111,0)"
^XMB(3.9,25,2,4646,0)=" S ECRS="""""
^XMB(3.9,25,2,4647,0)="""RTN"",""ECMLMF"",112,0)"
^XMB(3.9,25,2,4648,0)=" I ECPTR(""CLIN"")="""" S ECRS=""Clinic missing;"""
^XMB(3.9,25,2,4649,0)="""RTN"",""ECMLMF"",113,0)"
^XMB(3.9,25,2,4650,0)=" I ECPTR(""CLIN"")=0 S ECRS=""Clinic inactive;"""
^XMB(3.9,25,2,4651,0)="""RTN"",""ECMLMF"",114,0)"
^XMB(3.9,25,2,4652,0)=" I ECPTR(""DX"")="""" S ECRS=$G(ECRS)_""Diagnosis missing;"""
^XMB(3.9,25,2,4653,0)="""RTN"",""ECMLMF"",115,0)"
^XMB(3.9,25,2,4654,0)=" I ECPRR(""PCEPR"")="""" S ECRS=$G(ECRS)_""CPT code missing;"""
^XMB(3.9,25,2,4655,0)="""RTN"",""ECMLMF"",116,0)"
^XMB(3.9,25,2,4656,0)=" Q $S($G(ECRS)="""":0,1:1)"
^XMB(3.9,25,2,4657,0)="""RTN"",""ECMLMF"",117,0)"
^XMB(3.9,25,2,4658,0)=" ;"
^XMB(3.9,25,2,4659,0)="""RTN"",""ECMLMF"",118,0)"
^XMB(3.9,25,2,4660,0)=" ;"
^XMB(3.9,25,2,4661,0)="""RTN"",""ECMLMF"",119,0)"
^XMB(3.9,25,2,4662,0)="PCE ;- More validation checks on fields to be set in ""PCE"" node"
^XMB(3.9,25,2,4663,0)="""RTN"",""ECMLMF"",120,0)"
^XMB(3.9,25,2,4664,0)=" ;"
^XMB(3.9,25,2,4665,0)="""RTN"",""ECMLMF"",121,0)"
^XMB(3.9,25,2,4666,0)=" N ECDSS,I,ECAO,ECELIG,ECEV,ECIR,ECSC,ECNP,ECNPP,ECPCENOD,ECMST,ECHNC,ECCV"
^XMB(3.9,25,2,4667,0)="""RTN"",""ECMLMF"",122,0)"
^XMB(3.9,25,2,4668,0)=" G PCEQ:$G(ECPRR(""PROCDT""))'["".""!('$G(ECPRR(""PCEPR"")))"
^XMB(3.9,25,2,4669,0)="""RTN"",""ECMLMF"",123,0)"
^XMB(3.9,25,2,4670,0)=" F I=""DFN"",""CLIN"",""DX"" G PCEQ:'$G(ECPTR(I))"
^XMB(3.9,25,2,4671,0)="""RTN"",""ECMLMF"",124,0)"
^XMB(3.9,25,2,4672,0)=" G PCEQ:'$G(ECPRR(""VOL""))"
^XMB(3.9,25,2,4673,0)="""RTN"",""ECMLMF"",125,0)"
^XMB(3.9,25,2,4674,0)=" S ECDSS=$P($G(^ECH(ECIEN,0)),""^"",20)"
^XMB(3.9,25,2,4675,0)="""RTN"",""ECMLMF"",126,0)"
^XMB(3.9,25,2,4676,0)=" G PCEQ:'$G(ECL)!('ECDSS)!('$G(ECU(1)))"
^XMB(3.9,25,2,4677,0)="""RTN"",""ECMLMF"",127,0)"
^XMB(3.9,25,2,4678,0)=" ;"
^XMB(3.9,25,2,4679,0)="""RTN"",""ECMLMF"",128,0)"
^XMB(3.9,25,2,4680,0)=" S ECPTR(""AO"")=$G(ECPTR(""AO""))"
^XMB(3.9,25,2,4681,0)="""RTN"",""ECMLMF"",129,0)"
^XMB(3.9,25,2,4682,0)=" S ECAO=$S(ECPTR(""AO"")=""Y"":1,ECPTR(""AO"")=""N"":0,1:"""")"
^XMB(3.9,25,2,4683,0)="""RTN"",""ECMLMF"",130,0)"
^XMB(3.9,25,2,4684,0)=" ;"
^XMB(3.9,25,2,4685,0)="""RTN"",""ECMLMF"",131,0)"
^XMB(3.9,25,2,4686,0)=" S ECPTR(""ENV"")=$G(ECPTR(""ENV""))"
^XMB(3.9,25,2,4687,0)="""RTN"",""ECMLMF"",132,0)"
^XMB(3.9,25,2,4688,0)=" S ECEV=$S(ECPTR(""ENV"")=""Y"":1,ECPTR(""ENV"")=""N"":0,1:"""")"
^XMB(3.9,25,2,4689,0)="""RTN"",""ECMLMF"",133,0)"
^XMB(3.9,25,2,4690,0)=" ;"
^XMB(3.9,25,2,4691,0)="""RTN"",""ECMLMF"",134,0)"
^XMB(3.9,25,2,4692,0)=" S ECPTR(""IR"")=$G(ECPTR(""IR""))"
^XMB(3.9,25,2,4693,0)="""RTN"",""ECMLMF"",135,0)"
^XMB(3.9,25,2,4694,0)=" S ECIR=$S(ECPTR(""IR"")=""Y"":1,ECPTR(""IR"")=""N"":0,1:"""")"
^XMB(3.9,25,2,4695,0)="""RTN"",""ECMLMF"",136,0)"
^XMB(3.9,25,2,4696,0)=" ;"
^XMB(3.9,25,2,4697,0)="""RTN"",""ECMLMF"",137,0)"
^XMB(3.9,25,2,4698,0)=" S ECPTR(""SC"")=$G(ECPTR(""SC""))"
^XMB(3.9,25,2,4699,0)="""RTN"",""ECMLMF"",138,0)"
^XMB(3.9,25,2,4700,0)=" S ECSC=$S(ECPTR(""SC"")=""Y"":1,ECPTR(""SC"")=""N"":0,1:"""")"
^XMB(3.9,25,2,4701,0)="""RTN"",""ECMLMF"",139,0)"
^XMB(3.9,25,2,4702,0)=" ;"
^XMB(3.9,25,2,4703,0)="""RTN"",""ECMLMF"",140,0)"
^XMB(3.9,25,2,4704,0)=" S ECNPP="""" I $G(ECPRR(""PROC""))[""EC"" S ECNP=$G(^EC(725,+ECPRR(""PROC""),0)),ECNPP=$P(ECNP,""^"",2)_""  ""_$P(ECNP,""^"",1)"
^XMB(3.9,25,2,4705,0)="""RTN"",""ECMLMF"",141,0)"
^XMB(3.9,25,2,4706,0)=" ;"
^XMB(3.9,25,2,4707,0)="""RTN"",""ECMLMF"",142,0)"
^XMB(3.9,25,2,4708,0)=" S ECELIG=$S($G(ECPTR(""ELIG"")):ECPTR(""ELIG""),1:"""")"
^XMB(3.9,25,2,4709,0)="""RTN"",""ECMLMF"",143,0)"
^XMB(3.9,25,2,4710,0)=" ;"
^XMB(3.9,25,2,4711,0)="""RTN"",""ECMLMF"",144,0)"
^XMB(3.9,25,2,4712,0)=" S ECPTR(""MST"")=$G(ECPTR(""MST""))"
^XMB(3.9,25,2,4713,0)="""RTN"",""ECMLMF"",145,0)"
^XMB(3.9,25,2,4714,0)=" S ECMST=$S(ECPTR(""MST"")=""Y"":1,ECPTR(""MST"")=""N"":0,1:"""")"
^XMB(3.9,25,2,4715,0)="""RTN"",""ECMLMF"",146,0)"
^XMB(3.9,25,2,4716,0)=" ;"
^XMB(3.9,25,2,4717,0)="""RTN"",""ECMLMF"",147,0)"
^XMB(3.9,25,2,4718,0)=" ;JAM;09/30/02,Head/Neck Cancer"
^XMB(3.9,25,2,4719,0)="""RTN"",""ECMLMF"",148,0)"
^XMB(3.9,25,2,4720,0)=" S ECPTR(""HNC"")=$G(ECPTR(""HNC""))"
^XMB(3.9,25,2,4721,0)="""RTN"",""ECMLMF"",149,0)"
^XMB(3.9,25,2,4722,0)=" S ECHNC=$S(ECPTR(""HNC"")=""Y"":1,ECPTR(""HNC"")=""N"":0,1:"""")"
^XMB(3.9,25,2,4723,0)="""RTN"",""ECMLMF"",150,0)"
^XMB(3.9,25,2,4724,0)=" ;"
^XMB(3.9,25,2,4725,0)="""RTN"",""ECMLMF"",151,0)"
^XMB(3.9,25,2,4726,0)=" ;JAM;10/29/03,Combat Veteran"
^XMB(3.9,25,2,4727,0)="""RTN"",""ECMLMF"",152,0)"
^XMB(3.9,25,2,4728,0)=" S ECPTR(""CV"")=$G(ECPTR(""CV""))"
^XMB(3.9,25,2,4729,0)="""RTN"",""ECMLMF"",153,0)"
^XMB(3.9,25,2,4730,0)=" S ECCV=$S(ECPTR(""CV"")=""Y"":1,ECPTR(""CV"")=""N"":0,1:"""")"
^XMB(3.9,25,2,4731,0)="""RTN"",""ECMLMF"",154,0)"
^XMB(3.9,25,2,4732,0)=" ;"
^XMB(3.9,25,2,4733,0)="""RTN"",""ECMLMF"",155,0)"
^XMB(3.9,25,2,4734,0)=" ;JAM;06/01/05,Project 112/SHAD"
^XMB(3.9,25,2,4735,0)="""RTN"",""ECMLMF"",156,0)"
^XMB(3.9,25,2,4736,0)=" ;S ECPTR(""SHAD"")=$G(ECPTR(""SHAD""))"
^XMB(3.9,25,2,4737,0)="""RTN"",""ECMLMF"",157,0)"
^XMB(3.9,25,2,4738,0)=" ;S ECSHAD=$S(ECPTR(""SHAD"")=""Y"":1,ECPTR(""SHAD"")=""N"":0,1:"""")"
^XMB(3.9,25,2,4739,0)="""RTN"",""ECMLMF"",158,0)"
^XMB(3.9,25,2,4740,0)=" ;- File ""PCE"" and ""PCE1"" nodes"
^XMB(3.9,25,2,4741,0)="""RTN"",""ECMLMF"",159,0)"
^XMB(3.9,25,2,4742,0)=" ;"
^XMB(3.9,25,2,4743,0)="""RTN"",""ECMLMF"",160,0)"
^XMB(3.9,25,2,4744,0)=" S DR=""[EC FILE PCE NODE]"" D ^DIE K DR"
^XMB(3.9,25,2,4745,0)="""RTN"",""ECMLMF"",161,0)"
^XMB(3.9,25,2,4746,0)=" S DR=""31////""_$$NOW^XLFDT D ^DIE"
^XMB(3.9,25,2,4747,0)="""RTN"",""ECMLMF"",162,0)"
^XMB(3.9,25,2,4748,0)="PCEQ Q"
^XMB(3.9,25,2,4749,0)="""RTN"",""ECMLMF"",163,0)"
^XMB(3.9,25,2,4750,0)=" ;"
^XMB(3.9,25,2,4751,0)="""RTN"",""ECMLMF"",164,0)"
^XMB(3.9,25,2,4752,0)=" ;"
^XMB(3.9,25,2,4753,0)="""RTN"",""ECMLMF"",165,0)"
^XMB(3.9,25,2,4754,0)="MSG ;- Message displayed so error message can be read on screen"
^XMB(3.9,25,2,4755,0)="""RTN"",""ECMLMF"",166,0)"
^XMB(3.9,25,2,4756,0)=" ;"
^XMB(3.9,25,2,4757,0)="""RTN"",""ECMLMF"",167,0)"
^XMB(3.9,25,2,4758,0)=" S DIR(0)=""E"" D ^DIR"
^XMB(3.9,25,2,4759,0)="""RTN"",""ECMLMF"",168,0)"
^XMB(3.9,25,2,4760,0)=" Q"
^XMB(3.9,25,2,4761,0)="""RTN"",""ECMLMF"",169,0)"
^XMB(3.9,25,2,4762,0)=" ;"
^XMB(3.9,25,2,4763,0)="""RTN"",""ECMLMF"",170,0)"
^XMB(3.9,25,2,4764,0)=" ;- Subscripts used in creating ECPRR and ECPTR arrays"
^XMB(3.9,25,2,4765,0)="""RTN"",""ECMLMF"",171,0)"
^XMB(3.9,25,2,4766,0)=" ;"
^XMB(3.9,25,2,4767,0)="""RTN"",""ECMLMF"",172,0)"
^XMB(3.9,25,2,4768,0)="PROCDT ;;2"
^XMB(3.9,25,2,4769,0)="""RTN"",""ECMLMF"",173,0)"
^XMB(3.9,25,2,4770,0)="PROC ;;3"
^XMB(3.9,25,2,4771,0)="""RTN"",""ECMLMF"",174,0)"
^XMB(3.9,25,2,4772,0)="REAS ;;5"
^XMB(3.9,25,2,4773,0)="""RTN"",""ECMLMF"",175,0)"
^XMB(3.9,25,2,4774,0)="VOL ;;7"
^XMB(3.9,25,2,4775,0)="""RTN"",""ECMLMF"",176,0)"
^XMB(3.9,25,2,4776,0)=" ;"
^XMB(3.9,25,2,4777,0)="""RTN"",""ECMLMF"",177,0)"
^XMB(3.9,25,2,4778,0)="DFN ;;2"
^XMB(3.9,25,2,4779,0)="""RTN"",""ECMLMF"",178,0)"
^XMB(3.9,25,2,4780,0)="ORDSEC ;;4"
^XMB(3.9,25,2,4781,0)="""RTN"",""ECMLMF"",179,0)"
^XMB(3.9,25,2,4782,0)="IO ;;5"
^XMB(3.9,25,2,4783,0)="""RTN"",""ECMLMF"",180,0)"
^XMB(3.9,25,2,4784,0)="CLIN ;;6"
^XMB(3.9,25,2,4785,0)="""RTN"",""ECMLMF"",181,0)"
^XMB(3.9,25,2,4786,0)="DX ;;8"
^XMB(3.9,25,2,4787,0)="""RTN"",""ECMLMF"",182,0)"
^XMB(3.9,25,2,4788,0)="AO ;;10"
^XMB(3.9,25,2,4789,0)="""RTN"",""ECMLMF"",183,0)"
^XMB(3.9,25,2,4790,0)="ENV ;;11"
^XMB(3.9,25,2,4791,0)="""RTN"",""ECMLMF"",184,0)"
^XMB(3.9,25,2,4792,0)="IR ;;12"
^XMB(3.9,25,2,4793,0)="""RTN"",""ECMLMF"",185,0)"
^XMB(3.9,25,2,4794,0)="SC ;;13"
^XMB(3.9,25,2,4795,0)="""RTN"",""ECMLMF"",186,0)"
^XMB(3.9,25,2,4796,0)="ELIG ;;14"
^XMB(3.9,25,2,4797,0)="""RTN"",""ECMLMF"",187,0)"
^XMB(3.9,25,2,4798,0)="MST ;;15"
^XMB(3.9,25,2,4799,0)="""RTN"",""ECMLMF"",188,0)"
^XMB(3.9,25,2,4800,0)="HNC ;;16"
^XMB(3.9,25,2,4801,0)="""RTN"",""ECMLMF"",189,0)"
^XMB(3.9,25,2,4802,0)="CV ;;17"
^XMB(3.9,25,2,4803,0)="""RTN"",""ECNTPCE"")"
^XMB(3.9,25,2,4804,0)="0^30^B20426279^B18587127"
^XMB(3.9,25,2,4805,0)="""RTN"",""ECNTPCE"",1,0)"
^XMB(3.9,25,2,4806,0)="ECNTPCE ;ALB/JAM-Event Capture Records failing transmission to PCE;14 Jan 04"
^XMB(3.9,25,2,4807,0)="""RTN"",""ECNTPCE"",2,0)"
^XMB(3.9,25,2,4808,0)=" ;;2.0; EVENT CAPTURE ;**61,72**;8 May 96"
^XMB(3.9,25,2,4809,0)="""RTN"",""ECNTPCE"",3,0)"
^XMB(3.9,25,2,4810,0)="EN ; entry point"
^XMB(3.9,25,2,4811,0)="""RTN"",""ECNTPCE"",4,0)"
^XMB(3.9,25,2,4812,0)=" K %DT S %DT=""AEX"",%DT(""A"")=""Start with Date:  "" D ^%DT I Y<0 G END"
^XMB(3.9,25,2,4813,0)="""RTN"",""ECNTPCE"",5,0)"
^XMB(3.9,25,2,4814,0)=" S ECSD=Y,%DT(""A"")=""End with Date:  "" D ^%DT G:Y<0 END S ECED=Y"
^XMB(3.9,25,2,4815,0)="""RTN"",""ECNTPCE"",6,0)"
^XMB(3.9,25,2,4816,0)=" I ECED<ECSD W !,""End date must be after start date"",! G EN"
^XMB(3.9,25,2,4817,0)="""RTN"",""ECNTPCE"",7,0)"
^XMB(3.9,25,2,4818,0)=" S ECDATE=$$FMTE^XLFDT(ECSD)_U_$$FMTE^XLFDT(ECED)"
^XMB(3.9,25,2,4819,0)="""RTN"",""ECNTPCE"",8,0)"
^XMB(3.9,25,2,4820,0)=" S ECSD=ECSD-.0001,ECED=ECED+.9999"
^XMB(3.9,25,2,4821,0)="""RTN"",""ECNTPCE"",9,0)"
^XMB(3.9,25,2,4822,0)=" K IOP,%ZIS,POP,IO(""Q"") S %ZIS(""A"")=""Select Device: "",%ZIS=""QM"""
^XMB(3.9,25,2,4823,0)="""RTN"",""ECNTPCE"",10,0)"
^XMB(3.9,25,2,4824,0)=" D ^%ZIS G:POP END"
^XMB(3.9,25,2,4825,0)="""RTN"",""ECNTPCE"",11,0)"
^XMB(3.9,25,2,4826,0)=" I $D(IO(""Q"")) K IO(""Q"") D  G END"
^XMB(3.9,25,2,4827,0)="""RTN"",""ECNTPCE"",12,0)"
^XMB(3.9,25,2,4828,0)=" .S (ZTSAVE(""ECDFN""),ZTSAVE(""ECDATE""),ZTSAVE(""ECED""),ZTSAVE(""ECSD""))="""""
^XMB(3.9,25,2,4829,0)="""RTN"",""ECNTPCE"",13,0)"
^XMB(3.9,25,2,4830,0)=" .S ZTDESC=""ECS RECORDS FAILING TRANSMISSION TO PCE REPORT"",ZTRTN=""START^ECNTPCE"""
^XMB(3.9,25,2,4831,0)="""RTN"",""ECNTPCE"",14,0)"
^XMB(3.9,25,2,4832,0)=" .S ZTIO=ION D ^%ZTLOAD,HOME^%ZIS"
^XMB(3.9,25,2,4833,0)="""RTN"",""ECNTPCE"",15,0)"
^XMB(3.9,25,2,4834,0)=" W !,?5,""Please be patient, this may take a few moments..."""
^XMB(3.9,25,2,4835,0)="""RTN"",""ECNTPCE"",16,0)"
^XMB(3.9,25,2,4836,0)=" ;"
^XMB(3.9,25,2,4837,0)="""RTN"",""ECNTPCE"",17,0)"
^XMB(3.9,25,2,4838,0)="START ; entry when queued"
^XMB(3.9,25,2,4839,0)="""RTN"",""ECNTPCE"",18,0)"
^XMB(3.9,25,2,4840,0)=" N ECOUT,X,Y,DIR,LINE,ECPG,ECRDT,%H"
^XMB(3.9,25,2,4841,0)="""RTN"",""ECNTPCE"",19,0)"
^XMB(3.9,25,2,4842,0)=" S ECOUT=0,ECPG=1"
^XMB(3.9,25,2,4843,0)="""RTN"",""ECNTPCE"",20,0)"
^XMB(3.9,25,2,4844,0)=" S %H=$H D YX^%DTC S ECRDT=Y"
^XMB(3.9,25,2,4845,0)="""RTN"",""ECNTPCE"",21,0)"
^XMB(3.9,25,2,4846,0)=" U IO"
^XMB(3.9,25,2,4847,0)="""RTN"",""ECNTPCE"",22,0)"
^XMB(3.9,25,2,4848,0)=" D GET"
^XMB(3.9,25,2,4849,0)="""RTN"",""ECNTPCE"",23,0)"
^XMB(3.9,25,2,4850,0)=" D END"
^XMB(3.9,25,2,4851,0)="""RTN"",""ECNTPCE"",24,0)"
^XMB(3.9,25,2,4852,0)=" Q"
^XMB(3.9,25,2,4853,0)="""RTN"",""ECNTPCE"",25,0)"
^XMB(3.9,25,2,4854,0)="GET ; start processing or records"
^XMB(3.9,25,2,4855,0)="""RTN"",""ECNTPCE"",26,0)"
^XMB(3.9,25,2,4856,0)=" N DATE,ECL,ECNT,ECFN,ECEC,ECPX,ECSTR,ECD"
^XMB(3.9,25,2,4857,0)="""RTN"",""ECNTPCE"",27,0)"
^XMB(3.9,25,2,4858,0)=" K ^TMP(""ECNTPCE"",$J)"
^XMB(3.9,25,2,4859,0)="""RTN"",""ECNTPCE"",28,0)"
^XMB(3.9,25,2,4860,0)=" S DATE=ECSD,ECNT=0"
^XMB(3.9,25,2,4861,0)="""RTN"",""ECNTPCE"",29,0)"
^XMB(3.9,25,2,4862,0)=" F  S DATE=$O(^ECH(""AC"",DATE)) Q:('DATE)!(DATE>ECED)  D"
^XMB(3.9,25,2,4863,0)="""RTN"",""ECNTPCE"",30,0)"
^XMB(3.9,25,2,4864,0)=" .S ECFN=0 F  S ECFN=$O(^ECH(""AC"",DATE,ECFN)) Q:'ECFN  D "
^XMB(3.9,25,2,4865,0)="""RTN"",""ECNTPCE"",31,0)"
^XMB(3.9,25,2,4866,0)=" ..Q:'$D(^ECH(ECFN,""R""))  S ECEC=$G(^ECH(ECFN,0)) Q:ECEC="""""
^XMB(3.9,25,2,4867,0)="""RTN"",""ECNTPCE"",32,0)"
^XMB(3.9,25,2,4868,0)=" ..S ECL=$P(ECEC,U,4),ECD=$P(ECEC,U,7),ECPX=$P(ECEC,U,9)"
^XMB(3.9,25,2,4869,0)="""RTN"",""ECNTPCE"",33,0)"
^XMB(3.9,25,2,4870,0)=" ..S ECDFN=$P(ECEC,U,2)"
^XMB(3.9,25,2,4871,0)="""RTN"",""ECNTPCE"",34,0)"
^XMB(3.9,25,2,4872,0)=" ..I (ECL="""")!(ECD="""")!(ECPX="""")!(ECDFN="""") Q"
^XMB(3.9,25,2,4873,0)="""RTN"",""ECNTPCE"",35,0)"
^XMB(3.9,25,2,4874,0)=" ..S ECSTR=ECFN_U_$P(ECEC,U,8)_U_ECPX"
^XMB(3.9,25,2,4875,0)="""RTN"",""ECNTPCE"",36,0)"
^XMB(3.9,25,2,4876,0)=" ..S ECNT=ECNT+1,^TMP(""ECNTPCE"",$J,DATE,ECL,ECD,ECDFN,ECNT)=ECSTR"
^XMB(3.9,25,2,4877,0)="""RTN"",""ECNTPCE"",37,0)"
^XMB(3.9,25,2,4878,0)=" ..K ECPRV S ECPRV=$$GETPRV^ECPRVMUT(ECFN,.ECPRV) I 'ECPRV D  K ECPRV"
^XMB(3.9,25,2,4879,0)="""RTN"",""ECNTPCE"",38,0)"
^XMB(3.9,25,2,4880,0)=" ...M ^TMP(""ECNTPCE"",$J,DATE,ECL,ECD,ECDFN,ECNT,""PRV"")=ECPRV"
^XMB(3.9,25,2,4881,0)="""RTN"",""ECNTPCE"",39,0)"
^XMB(3.9,25,2,4882,0)=" D HDR"
^XMB(3.9,25,2,4883,0)="""RTN"",""ECNTPCE"",40,0)"
^XMB(3.9,25,2,4884,0)=" I '$O(^TMP(""ECNTPCE"",$J,0)) D  Q"
^XMB(3.9,25,2,4885,0)="""RTN"",""ECNTPCE"",41,0)"
^XMB(3.9,25,2,4886,0)=" .W !!,?10,""No Data found during the time selected."""
^XMB(3.9,25,2,4887,0)="""RTN"",""ECNTPCE"",42,0)"
^XMB(3.9,25,2,4888,0)=" D PRT"
^XMB(3.9,25,2,4889,0)="""RTN"",""ECNTPCE"",43,0)"
^XMB(3.9,25,2,4890,0)=" Q"
^XMB(3.9,25,2,4891,0)="""RTN"",""ECNTPCE"",44,0)"
^XMB(3.9,25,2,4892,0)=" ;"
^XMB(3.9,25,2,4893,0)="""RTN"",""ECNTPCE"",45,0)"
^XMB(3.9,25,2,4894,0)="END K ECSD,ECED"
^XMB(3.9,25,2,4895,0)="""RTN"",""ECNTPCE"",46,0)"
^XMB(3.9,25,2,4896,0)=" I $D(ECGUI) D ^ECKILL Q"
^XMB(3.9,25,2,4897,0)="""RTN"",""ECNTPCE"",47,0)"
^XMB(3.9,25,2,4898,0)=" W !"
^XMB(3.9,25,2,4899,0)="""RTN"",""ECNTPCE"",48,0)"
^XMB(3.9,25,2,4900,0)=" I $E(IOST,1,2)=""C-"",$G(ECOUT)=0 W !!,""Press <RET> to continue"" R X:DTIME"
^XMB(3.9,25,2,4901,0)="""RTN"",""ECNTPCE"",49,0)"
^XMB(3.9,25,2,4902,0)=" ;W @IOF"
^XMB(3.9,25,2,4903,0)="""RTN"",""ECNTPCE"",50,0)"
^XMB(3.9,25,2,4904,0)=" D ^%ZISC D ^ECKILL S:$D(ZTQUEUED) ZTREQ=""@"""
^XMB(3.9,25,2,4905,0)="""RTN"",""ECNTPCE"",51,0)"
^XMB(3.9,25,2,4906,0)=" Q"
^XMB(3.9,25,2,4907,0)="""RTN"",""ECNTPCE"",52,0)"
^XMB(3.9,25,2,4908,0)="PAGE ; end of page"
^XMB(3.9,25,2,4909,0)="""RTN"",""ECNTPCE"",53,0)"
^XMB(3.9,25,2,4910,0)=" I $E(IOST,1,2)=""C-"" S DIR(0)=""E"" D ^DIR K DIR I 'Y S ECOUT=1 Q"
^XMB(3.9,25,2,4911,0)="""RTN"",""ECNTPCE"",54,0)"
^XMB(3.9,25,2,4912,0)=" D HDR"
^XMB(3.9,25,2,4913,0)="""RTN"",""ECNTPCE"",55,0)"
^XMB(3.9,25,2,4914,0)=" Q"
^XMB(3.9,25,2,4915,0)="""RTN"",""ECNTPCE"",56,0)"
^XMB(3.9,25,2,4916,0)="HDR ; print header"
^XMB(3.9,25,2,4917,0)="""RTN"",""ECNTPCE"",57,0)"
^XMB(3.9,25,2,4918,0)=" W @IOF"
^XMB(3.9,25,2,4919,0)="""RTN"",""ECNTPCE"",58,0)"
^XMB(3.9,25,2,4920,0)=" W ECRDT,?70,""Page: "",ECPG,!"
^XMB(3.9,25,2,4921,0)="""RTN"",""ECNTPCE"",59,0)"
^XMB(3.9,25,2,4922,0)=" W !,?17,""ECS RECORDS FAILING TRANSMISSION TO PCE REPORT"",!,?24"
^XMB(3.9,25,2,4923,0)="""RTN"",""ECNTPCE"",60,0)"
^XMB(3.9,25,2,4924,0)=" W ""FROM ""_$P(ECDATE,U)_"" TO ""_$P(ECDATE,U,2),!!"
^XMB(3.9,25,2,4925,0)="""RTN"",""ECNTPCE"",61,0)"
^XMB(3.9,25,2,4926,0)=" W ""DATE/TIME"",?16,""PATIENT"",?39,""SSN"",?44,""PROVIDER(S)"",?61,""REASONS"""
^XMB(3.9,25,2,4927,0)="""RTN"",""ECNTPCE"",62,0)"
^XMB(3.9,25,2,4928,0)=" W !,""LOCATION"",?16,""PROCEDURE"",!,""DSS UNIT"",?16,""CATEGORY"",!"
^XMB(3.9,25,2,4929,0)="""RTN"",""ECNTPCE"",63,0)"
^XMB(3.9,25,2,4930,0)=" F LINE=1:1:80 W ""-"""
^XMB(3.9,25,2,4931,0)="""RTN"",""ECNTPCE"",64,0)"
^XMB(3.9,25,2,4932,0)=" W !"
^XMB(3.9,25,2,4933,0)="""RTN"",""ECNTPCE"",65,0)"
^XMB(3.9,25,2,4934,0)=" S ECPG=ECPG+1"
^XMB(3.9,25,2,4935,0)="""RTN"",""ECNTPCE"",66,0)"
^XMB(3.9,25,2,4936,0)=" Q"
^XMB(3.9,25,2,4937,0)="""RTN"",""ECNTPCE"",67,0)"
^XMB(3.9,25,2,4938,0)=" ;"
^XMB(3.9,25,2,4939,0)="""RTN"",""ECNTPCE"",68,0)"
^XMB(3.9,25,2,4940,0)="PRT N ECLN,ECDN,ECPAT,ECEC,ECPS,ECDFN,ECUN,ECUN1,ECUN2,ECDTE,ECDT,ECRS,ECDE"
^XMB(3.9,25,2,4941,0)="""RTN"",""ECNTPCE"",69,0)"
^XMB(3.9,25,2,4942,0)=" N ECX,ECAT,ECSSN,DFN,VA,VADM"
^XMB(3.9,25,2,4943,0)="""RTN"",""ECNTPCE"",70,0)"
^XMB(3.9,25,2,4944,0)=" S ECDTE=0 F  S ECDTE=$O(^TMP(""ECNTPCE"",$J,ECDTE)) Q:'ECDTE  D  Q:ECOUT"
^XMB(3.9,25,2,4945,0)="""RTN"",""ECNTPCE"",71,0)"
^XMB(3.9,25,2,4946,0)=" .S ECDT=$$FMTE^XLFDT(ECDTE,2),ECL=0"
^XMB(3.9,25,2,4947,0)="""RTN"",""ECNTPCE"",72,0)"
^XMB(3.9,25,2,4948,0)=" .F  S ECL=$O(^TMP(""ECNTPCE"",$J,ECDTE,ECL)) Q:'ECL  D  Q:ECOUT"
^XMB(3.9,25,2,4949,0)="""RTN"",""ECNTPCE"",73,0)"
^XMB(3.9,25,2,4950,0)=" ..S ECLN=$P($G(^DIC(4,ECL,0)),U),ECLN=$S(ECLN="""":""UNKNOWN"",1:ECLN),ECD=0"
^XMB(3.9,25,2,4951,0)="""RTN"",""ECNTPCE"",74,0)"
^XMB(3.9,25,2,4952,0)=" ..F  S ECD=$O(^TMP(""ECNTPCE"",$J,ECDTE,ECL,ECD)) Q:'ECD  D  Q:ECOUT"
^XMB(3.9,25,2,4953,0)="""RTN"",""ECNTPCE"",75,0)"
^XMB(3.9,25,2,4954,0)=" ...S ECDN=$P($G(^ECD(ECD,0)),U),ECDN=$S(ECDN="""":""UNKNOWN"",1:ECDN)"
^XMB(3.9,25,2,4955,0)="""RTN"",""ECNTPCE"",76,0)"
^XMB(3.9,25,2,4956,0)=" ...S ECDFN=0"
^XMB(3.9,25,2,4957,0)="""RTN"",""ECNTPCE"",77,0)"
^XMB(3.9,25,2,4958,0)=" ...F  S ECDFN=$O(^TMP(""ECNTPCE"",$J,ECDTE,ECL,ECD,ECDFN)) Q:'ECDFN  D  Q:ECOUT"
^XMB(3.9,25,2,4959,0)="""RTN"",""ECNTPCE"",78,0)"
^XMB(3.9,25,2,4960,0)=" ....S DFN=ECDFN D DEM^VADPT"
^XMB(3.9,25,2,4961,0)="""RTN"",""ECNTPCE"",79,0)"
^XMB(3.9,25,2,4962,0)=" ....S ECPAT=VADM(1),ECSSN=$P($P(VADM(2),U,2),""-"",3),ECNT=0"
^XMB(3.9,25,2,4963,0)="""RTN"",""ECNTPCE"",80,0)"
^XMB(3.9,25,2,4964,0)=" ....F  S ECNT=$O(^TMP(""ECNTPCE"",$J,ECDTE,ECL,ECD,ECDFN,ECNT)) Q:'ECNT  D PR2  Q:ECOUT"
^XMB(3.9,25,2,4965,0)="""RTN"",""ECNTPCE"",81,0)"
^XMB(3.9,25,2,4966,0)=" Q"
^XMB(3.9,25,2,4967,0)="""RTN"",""ECNTPCE"",82,0)"
^XMB(3.9,25,2,4968,0)=" ;"
^XMB(3.9,25,2,4969,0)="""RTN"",""ECNTPCE"",83,0)"
^XMB(3.9,25,2,4970,0)="PR2 S ECEC=$G(^TMP(""ECNTPCE"",$J,ECDTE,ECL,ECD,ECDFN,ECNT))"
^XMB(3.9,25,2,4971,0)="""RTN"",""ECNTPCE"",84,0)"
^XMB(3.9,25,2,4972,0)=" S ECPS="""",ECFN=$P(ECEC,U)"
^XMB(3.9,25,2,4973,0)="""RTN"",""ECNTPCE"",85,0)"
^XMB(3.9,25,2,4974,0)=" D PROV"
^XMB(3.9,25,2,4975,0)="""RTN"",""ECNTPCE"",86,0)"
^XMB(3.9,25,2,4976,0)=" S ECAT=$S($P(ECEC,U,2):$P($G(^EC(726,$P(ECEC,U,2),0)),U),1:"""")"
^XMB(3.9,25,2,4977,0)="""RTN"",""ECNTPCE"",87,0)"
^XMB(3.9,25,2,4978,0)=" I $P(ECEC,U,3)'="""" S ECDE=+$P(ECEC,U,3) D"
^XMB(3.9,25,2,4979,0)="""RTN"",""ECNTPCE"",88,0)"
^XMB(3.9,25,2,4980,0)=" .I $P(ECEC,U,3)["";EC"" D  Q"
^XMB(3.9,25,2,4981,0)="""RTN"",""ECNTPCE"",89,0)"
^XMB(3.9,25,2,4982,0)=" ..S ECPS=$G(^EC(725,+ECDE,0)),ECPS=$P(ECPS,U,2)_"" ""_$P(ECPS,U)"
^XMB(3.9,25,2,4983,0)="""RTN"",""ECNTPCE"",90,0)"
^XMB(3.9,25,2,4984,0)=" .S ECPS=$$CPT^ICPTCOD(ECDE,ECDTE)"
^XMB(3.9,25,2,4985,0)="""RTN"",""ECNTPCE"",91,0)"
^XMB(3.9,25,2,4986,0)=" .S ECPS=$S(+ECPS>0:$P(ECPS,U,2)_"" ""_$P(ECPS,U,3),1:""CPT NAME UNKNOWN"")"
^XMB(3.9,25,2,4987,0)="""RTN"",""ECNTPCE"",92,0)"
^XMB(3.9,25,2,4988,0)=" S ECRS=^ECH(ECFN,""R"")"
^XMB(3.9,25,2,4989,0)="""RTN"",""ECNTPCE"",93,0)"
^XMB(3.9,25,2,4990,0)=" W ECDT,?16,$E(ECPAT,1,20),?39,ECSSN,?44,$E(ECUN1,1,16),?61,$E($P(ECRS,"";""),1,19),!"
^XMB(3.9,25,2,4991,0)="""RTN"",""ECNTPCE"",94,0)"
^XMB(3.9,25,2,4992,0)=" W $E(ECLN,1,15),?16,$E(ECPS,1,27),?44,$E(ECUN2,1,16)"
^XMB(3.9,25,2,4993,0)="""RTN"",""ECNTPCE"",95,0)"
^XMB(3.9,25,2,4994,0)=" W ?61,$E($P(ECRS,"";"",2),1,19),!"
^XMB(3.9,25,2,4995,0)="""RTN"",""ECNTPCE"",96,0)"
^XMB(3.9,25,2,4996,0)=" W $E(ECDN,1,15),?16,$E(ECAT,1,27),?44,$E(ECUN3,1,16)"
^XMB(3.9,25,2,4997,0)="""RTN"",""ECNTPCE"",97,0)"
^XMB(3.9,25,2,4998,0)=" W ?61,$E($P(ECRS,"";"",3),1,198)"
^XMB(3.9,25,2,4999,0)="""RTN"",""ECNTPCE"",98,0)"
^XMB(3.9,25,2,5000,0)=" S ECUN=0 F ECX=4:1 S ECUN=$O(ECPRV(ECUN)) Q:(ECUN="""")&($P(ECRS,"";"",ECX)="""")  D  I ECOUT Q"
^XMB(3.9,25,2,5001,0)="""RTN"",""ECNTPCE"",99,0)"
^XMB(3.9,25,2,5002,0)=" .W !"
^XMB(3.9,25,2,5003,0)="""RTN"",""ECNTPCE"",100,0)"
^XMB(3.9,25,2,5004,0)=" .I ($Y+6)>IOSL D PAGE I ECOUT Q"
^XMB(3.9,25,2,5005,0)="""RTN"",""ECNTPCE"",101,0)"
^XMB(3.9,25,2,5006,0)=" .I ECUN'="""" W ?44,$E($P(ECPRV(ECUN),""^"",2),1,16) K ECPRV(ECUN)"
^XMB(3.9,25,2,5007,0)="""RTN"",""ECNTPCE"",102,0)"
^XMB(3.9,25,2,5008,0)=" .W ?61,$E($P(ECRS,"";"",ECX),1,19)"
^XMB(3.9,25,2,5009,0)="""RTN"",""ECNTPCE"",103,0)"
^XMB(3.9,25,2,5010,0)=" W !!"
^XMB(3.9,25,2,5011,0)="""RTN"",""ECNTPCE"",104,0)"
^XMB(3.9,25,2,5012,0)=" I ($Y+6)>IOSL D PAGE I ECOUT Q"
^XMB(3.9,25,2,5013,0)="""RTN"",""ECNTPCE"",105,0)"
^XMB(3.9,25,2,5014,0)=" Q"
^XMB(3.9,25,2,5015,0)="""RTN"",""ECNTPCE"",106,0)"
^XMB(3.9,25,2,5016,0)="PROV ;Set provider 1-3 in variables"
^XMB(3.9,25,2,5017,0)="""RTN"",""ECNTPCE"",107,0)"
^XMB(3.9,25,2,5018,0)=" M ECPRV=^TMP(""ECNTPCE"",$J,ECDTE,ECL,ECD,ECDFN,ECNT,""PRV"")"
^XMB(3.9,25,2,5019,0)="""RTN"",""ECNTPCE"",108,0)"
^XMB(3.9,25,2,5020,0)=" S ECUN=0,ECUN1=""UNKNOWN"",(ECUN2,ECUN3)="""""
^XMB(3.9,25,2,5021,0)="""RTN"",""ECNTPCE"",109,0)"
^XMB(3.9,25,2,5022,0)=" F I=1:1:3 S ECUN=$O(ECPRV(ECUN)) Q:'ECUN  D"
^XMB(3.9,25,2,5023,0)="""RTN"",""ECNTPCE"",110,0)"
^XMB(3.9,25,2,5024,0)=" .S @(""ECUN""_I)=$P(ECPRV(ECUN),""^"",2) K ECPRV(ECUN)"
^XMB(3.9,25,2,5025,0)="""RTN"",""ECNTPCE"",111,0)"
^XMB(3.9,25,2,5026,0)=" Q"
^XMB(3.9,25,2,5027,0)="""RTN"",""ECOSSUM"")"
^XMB(3.9,25,2,5028,0)="0^6^B61610844^B65789298"
^XMB(3.9,25,2,5029,0)="""RTN"",""ECOSSUM"",1,0)"
^XMB(3.9,25,2,5030,0)="ECOSSUM ;BIR/DMA,RHK,JPW-Ordering Section Summary ;27 Mar 96"
^XMB(3.9,25,2,5031,0)="""RTN"",""ECOSSUM"",2,0)"
^XMB(3.9,25,2,5032,0)=" ;;2.0; EVENT CAPTURE ;**5,8,18,47,72**;8 May 96"
^XMB(3.9,25,2,5033,0)="""RTN"",""ECOSSUM"",3,0)"
^XMB(3.9,25,2,5034,0)="EN ;entry point from menu option"
^XMB(3.9,25,2,5035,0)="""RTN"",""ECOSSUM"",4,0)"
^XMB(3.9,25,2,5036,0)=" W !"
^XMB(3.9,25,2,5037,0)="""RTN"",""ECOSSUM"",5,0)"
^XMB(3.9,25,2,5038,0)=" K DIC S DIC=723,DIC(0)=""AQEMZ"",DIC(""A"")=""Select Ordering Section: "" D ^DIC K DIC"
^XMB(3.9,25,2,5039,0)="""RTN"",""ECOSSUM"",6,0)"
^XMB(3.9,25,2,5040,0)=" I Y<0 G EXIT"
^XMB(3.9,25,2,5041,0)="""RTN"",""ECOSSUM"",7,0)"
^XMB(3.9,25,2,5042,0)=" S ECOS=+Y,ECOSN=$P(Y,""^"",2)"
^XMB(3.9,25,2,5043,0)="""RTN"",""ECOSSUM"",8,0)"
^XMB(3.9,25,2,5044,0)=" D RANGE"
^XMB(3.9,25,2,5045,0)="""RTN"",""ECOSSUM"",9,0)"
^XMB(3.9,25,2,5046,0)=" I '$G(ECLOOP)!'$G(ECSD)!'$G(ECED) G EXIT"
^XMB(3.9,25,2,5047,0)="""RTN"",""ECOSSUM"",10,0)"
^XMB(3.9,25,2,5048,0)=" W !"
^XMB(3.9,25,2,5049,0)="""RTN"",""ECOSSUM"",11,0)"
^XMB(3.9,25,2,5050,0)=" S JJ=$$ASKLOC^ECRUTL"
^XMB(3.9,25,2,5051,0)="""RTN"",""ECOSSUM"",12,0)"
^XMB(3.9,25,2,5052,0)=" I 'JJ G EXIT"
^XMB(3.9,25,2,5053,0)="""RTN"",""ECOSSUM"",13,0)"
^XMB(3.9,25,2,5054,0)=" W !"
^XMB(3.9,25,2,5055,0)="""RTN"",""ECOSSUM"",14,0)"
^XMB(3.9,25,2,5056,0)=" S JJ=$$ASKDSS^ECRUTL"
^XMB(3.9,25,2,5057,0)="""RTN"",""ECOSSUM"",15,0)"
^XMB(3.9,25,2,5058,0)=" I 'JJ G EXIT"
^XMB(3.9,25,2,5059,0)="""RTN"",""ECOSSUM"",16,0)"
^XMB(3.9,25,2,5060,0)=" W !"
^XMB(3.9,25,2,5061,0)="""RTN"",""ECOSSUM"",17,0)"
^XMB(3.9,25,2,5062,0)=" D DEVICE"
^XMB(3.9,25,2,5063,0)="""RTN"",""ECOSSUM"",18,0)"
^XMB(3.9,25,2,5064,0)=" I POP G EXIT"
^XMB(3.9,25,2,5065,0)="""RTN"",""ECOSSUM"",19,0)"
^XMB(3.9,25,2,5066,0)=" I $G(ZTSK) G EXIT"
^XMB(3.9,25,2,5067,0)="""RTN"",""ECOSSUM"",20,0)"
^XMB(3.9,25,2,5068,0)=" I $G(IO(""Q"")),'$G(ZTSK) G EXIT"
^XMB(3.9,25,2,5069,0)="""RTN"",""ECOSSUM"",21,0)"
^XMB(3.9,25,2,5070,0)=" D START"
^XMB(3.9,25,2,5071,0)="""RTN"",""ECOSSUM"",22,0)"
^XMB(3.9,25,2,5072,0)=" D HOME^%ZIS"
^XMB(3.9,25,2,5073,0)="""RTN"",""ECOSSUM"",23,0)"
^XMB(3.9,25,2,5074,0)=" G EXIT"
^XMB(3.9,25,2,5075,0)="""RTN"",""ECOSSUM"",24,0)"
^XMB(3.9,25,2,5076,0)=" Q"
^XMB(3.9,25,2,5077,0)="""RTN"",""ECOSSUM"",25,0)"
^XMB(3.9,25,2,5078,0)=" ;"
^XMB(3.9,25,2,5079,0)="""RTN"",""ECOSSUM"",26,0)"
^XMB(3.9,25,2,5080,0)="START ;queued entry point or continuation"
^XMB(3.9,25,2,5081,0)="""RTN"",""ECOSSUM"",27,0)"
^XMB(3.9,25,2,5082,0)=" D PROCESS"
^XMB(3.9,25,2,5083,0)="""RTN"",""ECOSSUM"",28,0)"
^XMB(3.9,25,2,5084,0)=" U IO D PRINT"
^XMB(3.9,25,2,5085,0)="""RTN"",""ECOSSUM"",29,0)"
^XMB(3.9,25,2,5086,0)=" I $D(ECGUI) D EXIT Q"
^XMB(3.9,25,2,5087,0)="""RTN"",""ECOSSUM"",30,0)"
^XMB(3.9,25,2,5088,0)=" I IO'=IO(0) D ^%ZISC"
^XMB(3.9,25,2,5089,0)="""RTN"",""ECOSSUM"",31,0)"
^XMB(3.9,25,2,5090,0)=" I $D(ZTQUEUED) S ZTREQ=""@"" D EXIT"
^XMB(3.9,25,2,5091,0)="""RTN"",""ECOSSUM"",32,0)"
^XMB(3.9,25,2,5092,0)=" Q"
^XMB(3.9,25,2,5093,0)="""RTN"",""ECOSSUM"",33,0)"
^XMB(3.9,25,2,5094,0)=" ;"
^XMB(3.9,25,2,5095,0)="""RTN"",""ECOSSUM"",34,0)"
^XMB(3.9,25,2,5096,0)="RANGE ;get any date range"
^XMB(3.9,25,2,5097,0)="""RTN"",""ECOSSUM"",35,0)"
^XMB(3.9,25,2,5098,0)=" N ECSTDT,ECENDDT"
^XMB(3.9,25,2,5099,0)="""RTN"",""ECOSSUM"",36,0)"
^XMB(3.9,25,2,5100,0)=" W !!,?5,""Enter a Begin Date and End Date for the Event Capture """
^XMB(3.9,25,2,5101,0)="""RTN"",""ECOSSUM"",37,0)"
^XMB(3.9,25,2,5102,0)=" W !,?5,""Ordering Section report."",!"
^XMB(3.9,25,2,5103,0)="""RTN"",""ECOSSUM"",38,0)"
^XMB(3.9,25,2,5104,0)=" S (ECSD,ECED)=0"
^XMB(3.9,25,2,5105,0)="""RTN"",""ECOSSUM"",39,0)"
^XMB(3.9,25,2,5106,0)=" F  D  Q:ECSD>0  Q:'$G(ECLOOP)"
^XMB(3.9,25,2,5107,0)="""RTN"",""ECOSSUM"",40,0)"
^XMB(3.9,25,2,5108,0)=" .S ECLOOP=$$STDT^ECRUTL() I 'ECLOOP Q"
^XMB(3.9,25,2,5109,0)="""RTN"",""ECOSSUM"",41,0)"
^XMB(3.9,25,2,5110,0)=" .S ECSD=ECSTDT"
^XMB(3.9,25,2,5111,0)="""RTN"",""ECOSSUM"",42,0)"
^XMB(3.9,25,2,5112,0)=" Q:'$G(ECLOOP)!'$G(ECSD)"
^XMB(3.9,25,2,5113,0)="""RTN"",""ECOSSUM"",43,0)"
^XMB(3.9,25,2,5114,0)=" F  D  Q:ECED>0  Q:'$G(ECLOOP)"
^XMB(3.9,25,2,5115,0)="""RTN"",""ECOSSUM"",44,0)"
^XMB(3.9,25,2,5116,0)=" .S ECLOOP=$$ENDDT^ECRUTL(ECSTDT) I 'ECLOOP Q"
^XMB(3.9,25,2,5117,0)="""RTN"",""ECOSSUM"",45,0)"
^XMB(3.9,25,2,5118,0)=" .S ECED=ECENDDT"
^XMB(3.9,25,2,5119,0)="""RTN"",""ECOSSUM"",46,0)"
^XMB(3.9,25,2,5120,0)=" .I ECED>(DT+1) D"
^XMB(3.9,25,2,5121,0)="""RTN"",""ECOSSUM"",47,0)"
^XMB(3.9,25,2,5122,0)=" ..W !!,?15,""The End Date for this report may not be"""
^XMB(3.9,25,2,5123,0)="""RTN"",""ECOSSUM"",48,0)"
^XMB(3.9,25,2,5124,0)=" ..W !,?15,""a future date.  Try again..."",!"
^XMB(3.9,25,2,5125,0)="""RTN"",""ECOSSUM"",49,0)"
^XMB(3.9,25,2,5126,0)=" ..S ECED=0"
^XMB(3.9,25,2,5127,0)="""RTN"",""ECOSSUM"",50,0)"
^XMB(3.9,25,2,5128,0)=" Q "
^XMB(3.9,25,2,5129,0)="""RTN"",""ECOSSUM"",51,0)"
^XMB(3.9,25,2,5130,0)=" ;"
^XMB(3.9,25,2,5131,0)="""RTN"",""ECOSSUM"",52,0)"
^XMB(3.9,25,2,5132,0)="DEVICE ;select output device"
^XMB(3.9,25,2,5133,0)="""RTN"",""ECOSSUM"",53,0)"
^XMB(3.9,25,2,5134,0)=" W !,""This report is formatted for 132 column output."",!"
^XMB(3.9,25,2,5135,0)="""RTN"",""ECOSSUM"",54,0)"
^XMB(3.9,25,2,5136,0)=" K IOP S %ZIS=""QM"" D ^%ZIS"
^XMB(3.9,25,2,5137,0)="""RTN"",""ECOSSUM"",55,0)"
^XMB(3.9,25,2,5138,0)=" I POP W !!,""No device selected.  Exiting..."",!! S DIR(0)=""E"" W ! D ^DIR K DIR Q"
^XMB(3.9,25,2,5139,0)="""RTN"",""ECOSSUM"",56,0)"
^XMB(3.9,25,2,5140,0)=" I $D(IO(""Q"")) D"
^XMB(3.9,25,2,5141,0)="""RTN"",""ECOSSUM"",57,0)"
^XMB(3.9,25,2,5142,0)=" .S ZTRTN=""START^ECOSSUM"",ZTDESC=""EC Ordering Section Summary"""
^XMB(3.9,25,2,5143,0)="""RTN"",""ECOSSUM"",58,0)"
^XMB(3.9,25,2,5144,0)=" .S ZTSAVE(""ECSD"")="""",ZTSAVE(""ECED"")="""",ZTSAVE(""ECOS"")="""",ZTSAVE(""ECOSN"")="""""
^XMB(3.9,25,2,5145,0)="""RTN"",""ECOSSUM"",59,0)"
^XMB(3.9,25,2,5146,0)=" .S ZTSAVE(""ECLOC("")="""",ZTSAVE(""ECDSSU("")="""""
^XMB(3.9,25,2,5147,0)="""RTN"",""ECOSSUM"",60,0)"
^XMB(3.9,25,2,5148,0)=" .D ^%ZTLOAD"
^XMB(3.9,25,2,5149,0)="""RTN"",""ECOSSUM"",61,0)"
^XMB(3.9,25,2,5150,0)=" .I '$G(ZTSK) W !,""Report canceled..."" S DIR(0)=""E"" W ! D ^DIR K DIR Q"
^XMB(3.9,25,2,5151,0)="""RTN"",""ECOSSUM"",62,0)"
^XMB(3.9,25,2,5152,0)=" .W !,""Report queued as Task #: "",ZTSK S DIR(0)=""E"" W ! D ^DIR K DIR"
^XMB(3.9,25,2,5153,0)="""RTN"",""ECOSSUM"",63,0)"
^XMB(3.9,25,2,5154,0)=" Q"
^XMB(3.9,25,2,5155,0)="""RTN"",""ECOSSUM"",64,0)"
^XMB(3.9,25,2,5156,0)=" ;"
^XMB(3.9,25,2,5157,0)="""RTN"",""ECOSSUM"",65,0)"
^XMB(3.9,25,2,5158,0)="PROCESS ;get data to print"
^XMB(3.9,25,2,5159,0)="""RTN"",""ECOSSUM"",66,0)"
^XMB(3.9,25,2,5160,0)=" N EC,ECD,ECDA,ECPA,ECPATN,ECSS,ECSSN,ECP,ECPN,ECLOCA,ECUNIT,ECCAT,ECFILE,ECPSY,ECPSYN,ECPRV,ECPRVN,EC725"
^XMB(3.9,25,2,5161,0)="""RTN"",""ECOSSUM"",67,0)"
^XMB(3.9,25,2,5162,0)=" N NLOC,NUNIT,JJ,ECPXD"
^XMB(3.9,25,2,5163,0)="""RTN"",""ECOSSUM"",68,0)"
^XMB(3.9,25,2,5164,0)=" K ^TMP(""ECOS"",$J)"
^XMB(3.9,25,2,5165,0)="""RTN"",""ECOSSUM"",69,0)"
^XMB(3.9,25,2,5166,0)=" ;put locations and units into ien subscripted arrays"
^XMB(3.9,25,2,5167,0)="""RTN"",""ECOSSUM"",70,0)"
^XMB(3.9,25,2,5168,0)=" S JJ="""" F  S JJ=$O(ECLOC(JJ)) Q:JJ=""""  D"
^XMB(3.9,25,2,5169,0)="""RTN"",""ECOSSUM"",71,0)"
^XMB(3.9,25,2,5170,0)=" .S NLOC($P(ECLOC(JJ),""^"",1))=$P(ECLOC(JJ),""^"",2)"
^XMB(3.9,25,2,5171,0)="""RTN"",""ECOSSUM"",72,0)"
^XMB(3.9,25,2,5172,0)=" S JJ="""" F  S JJ=$O(ECDSSU(JJ)) Q:JJ=""""  D"
^XMB(3.9,25,2,5173,0)="""RTN"",""ECOSSUM"",73,0)"
^XMB(3.9,25,2,5174,0)=" .S NUNIT($P(ECDSSU(JJ),""^"",1))=$P(ECDSSU(JJ),""^"",2)"
^XMB(3.9,25,2,5175,0)="""RTN"",""ECOSSUM"",74,0)"
^XMB(3.9,25,2,5176,0)=" S ECD=ECSD"
^XMB(3.9,25,2,5177,0)="""RTN"",""ECOSSUM"",75,0)"
^XMB(3.9,25,2,5178,0)=" F  S ECD=$O(^ECH(""AC"",ECD)) Q:'ECD  Q:ECD>ECED  D"
^XMB(3.9,25,2,5179,0)="""RTN"",""ECOSSUM"",76,0)"
^XMB(3.9,25,2,5180,0)=" .S ECDA="""" F  S ECDA=$O(^ECH(""AC"",ECD,ECDA)) Q:'ECDA  S EC=$G(^ECH(ECDA,0)) I $P(EC,""^"",12)=ECOS D"
^XMB(3.9,25,2,5181,0)="""RTN"",""ECOSSUM"",77,0)"
^XMB(3.9,25,2,5182,0)=" ..I $P(EC,""^"",3)<ECSD!($P(EC,""^"",3)>ECED) Q  ;file or x-ref problem"
^XMB(3.9,25,2,5183,0)="""RTN"",""ECOSSUM"",78,0)"
^XMB(3.9,25,2,5184,0)=" ..S ECLOCA=+$P(EC,U,4),ECUNIT=+$P(EC,U,7)"
^XMB(3.9,25,2,5185,0)="""RTN"",""ECOSSUM"",79,0)"
^XMB(3.9,25,2,5186,0)=" ..I '$D(NLOC(ECLOCA))!('$D(NUNIT(ECUNIT))) Q"
^XMB(3.9,25,2,5187,0)="""RTN"",""ECOSSUM"",80,0)"
^XMB(3.9,25,2,5188,0)=" ..S ECP=$P(EC,U,9) Q:ECP']"""""
^XMB(3.9,25,2,5189,0)="""RTN"",""ECOSSUM"",81,0)"
^XMB(3.9,25,2,5190,0)=" ..S ECCAT=+$P(EC,U,8)"
^XMB(3.9,25,2,5191,0)="""RTN"",""ECOSSUM"",82,0)"
^XMB(3.9,25,2,5192,0)=" ..S ECPSY=+$O(^ECJ(""AP"",ECLOCA,ECUNIT,ECCAT,ECP,""""))"
^XMB(3.9,25,2,5193,0)="""RTN"",""ECOSSUM"",83,0)"
^XMB(3.9,25,2,5194,0)=" ..S ECPSYN=$P($G(^ECJ(ECPSY,""PRO"")),""^"",2)"
^XMB(3.9,25,2,5195,0)="""RTN"",""ECOSSUM"",84,0)"
^XMB(3.9,25,2,5196,0)=" ..S ECFILE=$P(ECP,"";"",2),ECFILE=$S($E(ECFILE)=""I"":81,$E(ECFILE)=""E"":725,1:""UNKNOWN"")"
^XMB(3.9,25,2,5197,0)="""RTN"",""ECOSSUM"",85,0)"
^XMB(3.9,25,2,5198,0)=" ..I ECFILE=""UNKNOWN"" S ECPN=""UNKNOWN"""
^XMB(3.9,25,2,5199,0)="""RTN"",""ECOSSUM"",86,0)"
^XMB(3.9,25,2,5200,0)=" ..S ECCPT=$S(ECFILE=81:+ECP,1:$P($G(^EC(725,+ECP,0)),""^"",5)),ECPXD="""""
^XMB(3.9,25,2,5201,0)="""RTN"",""ECOSSUM"",87,0)"
^XMB(3.9,25,2,5202,0)=" ..I ECCPT'="""" D"
^XMB(3.9,25,2,5203,0)="""RTN"",""ECOSSUM"",88,0)"
^XMB(3.9,25,2,5204,0)=" ...S ECPXD=$$CPT^ICPTCOD(ECCPT,$P(EC,""^"",3)),ECCPT=$P(ECPXD,""^"",2)"
^XMB(3.9,25,2,5205,0)="""RTN"",""ECOSSUM"",89,0)"
^XMB(3.9,25,2,5206,0)=" ..I ECFILE=81 S ECPN=$S($P(ECPXD,""^"",3)]"""":$P(ECPXD,""^"",3),1:""UNKNOWN"")"
^XMB(3.9,25,2,5207,0)="""RTN"",""ECOSSUM"",90,0)"
^XMB(3.9,25,2,5208,0)=" ..I ECFILE=725 D"
^XMB(3.9,25,2,5209,0)="""RTN"",""ECOSSUM"",91,0)"
^XMB(3.9,25,2,5210,0)=" ...S EC725=$G(^EC(725,+ECP,0)),ECPN=$P(EC725,""^"",2)_"" ""_$P(EC725,""^"")"
^XMB(3.9,25,2,5211,0)="""RTN"",""ECOSSUM"",92,0)"
^XMB(3.9,25,2,5212,0)=" ..S ECPN=$E(ECPN,1,37)_$S(ECPSYN]"""":"" [""_ECPSYN_""] "",1:"""")_""~""_ECCPT"
^XMB(3.9,25,2,5213,0)="""RTN"",""ECOSSUM"",93,0)"
^XMB(3.9,25,2,5214,0)=" ..;ALB/JAM - Get Procedure CPT modifiers"
^XMB(3.9,25,2,5215,0)="""RTN"",""ECOSSUM"",94,0)"
^XMB(3.9,25,2,5216,0)=" ..S ECMODF=0 I $O(^ECH(ECDA,""MOD"",0))'="""" D"
^XMB(3.9,25,2,5217,0)="""RTN"",""ECOSSUM"",95,0)"
^XMB(3.9,25,2,5218,0)=" ...K ECMOD S ECMODF=$$MOD^ECUTL(ECDA,""E"",.ECMOD)"
^XMB(3.9,25,2,5219,0)="""RTN"",""ECOSSUM"",96,0)"
^XMB(3.9,25,2,5220,0)=" ..S (ECPA,ECPATN,ECSS)="""",ECPA=$G(^DPT(+$P(EC,""^"",2),0)) Q:ECPA="""""
^XMB(3.9,25,2,5221,0)="""RTN"",""ECOSSUM"",97,0)"
^XMB(3.9,25,2,5222,0)=" ..S ECPATN=$P(ECPA,""^"",1),ECSS=$P(ECPA,""^"",9)"
^XMB(3.9,25,2,5223,0)="""RTN"",""ECOSSUM"",98,0)"
^XMB(3.9,25,2,5224,0)=" ..S:+ECSS ECSSN=$E(ECSS,6,10) S:ECSS="""" ECSSN=""UNKN"""
^XMB(3.9,25,2,5225,0)="""RTN"",""ECOSSUM"",99,0)"
^XMB(3.9,25,2,5226,0)=" ..S:ECPATN="""" ECPATN=""UNKNOWN"" S ECPATN=ECPATN_""^""_ECSSN"
^XMB(3.9,25,2,5227,0)="""RTN"",""ECOSSUM"",100,0)"
^XMB(3.9,25,2,5228,0)=" ..S ECV=+$P(EC,""^"",10)"
^XMB(3.9,25,2,5229,0)="""RTN"",""ECOSSUM"",101,0)"
^XMB(3.9,25,2,5230,0)=" ..K ECPRV S ECPRV=$$GETPRV^ECPRVMUT(ECDA,.ECPRV) I 'ECPRV D  K ECPRV"
^XMB(3.9,25,2,5231,0)="""RTN"",""ECOSSUM"",102,0)"
^XMB(3.9,25,2,5232,0)=" ...M ^TMP(""ECOS"",$J,ECLOCA,ECUNIT,ECPATN,ECDA,""PRV"")=ECPRV"
^XMB(3.9,25,2,5233,0)="""RTN"",""ECOSSUM"",103,0)"
^XMB(3.9,25,2,5234,0)=" ..S ^TMP(""ECOS"",$J,ECLOCA,ECUNIT,ECPATN,ECDA)=ECSSN_""^""_ECPN_""^""_ECV"
^XMB(3.9,25,2,5235,0)="""RTN"",""ECOSSUM"",104,0)"
^XMB(3.9,25,2,5236,0)=" ..I ECMODF D"
^XMB(3.9,25,2,5237,0)="""RTN"",""ECOSSUM"",105,0)"
^XMB(3.9,25,2,5238,0)=" ...M ^TMP(""ECOS"",$J,ECLOCA,ECUNIT,ECPATN,ECDA,""MOD"")=ECMOD"
^XMB(3.9,25,2,5239,0)="""RTN"",""ECOSSUM"",106,0)"
^XMB(3.9,25,2,5240,0)=" Q"
^XMB(3.9,25,2,5241,0)="""RTN"",""ECOSSUM"",107,0)"
^XMB(3.9,25,2,5242,0)=" ;"
^XMB(3.9,25,2,5243,0)="""RTN"",""ECOSSUM"",108,0)"
^XMB(3.9,25,2,5244,0)="PRINT ;output report"
^XMB(3.9,25,2,5245,0)="""RTN"",""ECOSSUM"",109,0)"
^XMB(3.9,25,2,5246,0)=" N ECDA,ECLOCA,ECUNIT,ECPATN,ECSSN,ECPN,ECV"
^XMB(3.9,25,2,5247,0)="""RTN"",""ECOSSUM"",110,0)"
^XMB(3.9,25,2,5248,0)=" N PAGE,QFLAG,DASH,DASH2,PRNTDT,JJ,SS,ALOC,AUNIT,LOC,UNNAME,UNIT,DATA,PTNAME,PROV,PROVN,V,X,Y"
^XMB(3.9,25,2,5249,0)="""RTN"",""ECOSSUM"",111,0)"
^XMB(3.9,25,2,5250,0)=" S (PAGE,QFLAG)=0 S $P(DASH,""-"",130)="""",$P(DASH2,""-"",64)="""""
^XMB(3.9,25,2,5251,0)="""RTN"",""ECOSSUM"",112,0)"
^XMB(3.9,25,2,5252,0)=" S Y=$P(ECSD,""."",1)+1 D DD^%DT S ECSD=Y S Y=$P(ECED,""."",1) D DD^%DT S ECED=Y"
^XMB(3.9,25,2,5253,0)="""RTN"",""ECOSSUM"",113,0)"
^XMB(3.9,25,2,5254,0)=" D NOW^%DTC S Y=$E(%,1,12) D DD^%DT S PRNTDT=Y"
^XMB(3.9,25,2,5255,0)="""RTN"",""ECOSSUM"",114,0)"
^XMB(3.9,25,2,5256,0)=" S ECV(""L"")=0,ECV(""O"")=0,ECV(""P"")=0,ECV(""U"")=0"
^XMB(3.9,25,2,5257,0)="""RTN"",""ECOSSUM"",115,0)"
^XMB(3.9,25,2,5258,0)=" ;if no data exists then print the header and quit"
^XMB(3.9,25,2,5259,0)="""RTN"",""ECOSSUM"",116,0)"
^XMB(3.9,25,2,5260,0)=" I '$D(^TMP(""ECOS"",$J)) D  Q"
^XMB(3.9,25,2,5261,0)="""RTN"",""ECOSSUM"",117,0)"
^XMB(3.9,25,2,5262,0)=" .S LOC="""" D HEAD"
^XMB(3.9,25,2,5263,0)="""RTN"",""ECOSSUM"",118,0)"
^XMB(3.9,25,2,5264,0)=" .W !!,?26,""No data for this Ordering Section for the date range specified."",!!"
^XMB(3.9,25,2,5265,0)="""RTN"",""ECOSSUM"",119,0)"
^XMB(3.9,25,2,5266,0)=" .I $E(IOST)=""C""&('QFLAG) S DIR(0)=""E"" D  D ^DIR K DIR"
^XMB(3.9,25,2,5267,0)="""RTN"",""ECOSSUM"",120,0)"
^XMB(3.9,25,2,5268,0)=" ..S SS=22-$Y F JJ=1:1:SS W !"
^XMB(3.9,25,2,5269,0)="""RTN"",""ECOSSUM"",121,0)"
^XMB(3.9,25,2,5270,0)=" .W:$E(IOST)'=""C"" @IOF"
^XMB(3.9,25,2,5271,0)="""RTN"",""ECOSSUM"",122,0)"
^XMB(3.9,25,2,5272,0)=" ;if there's data in ^TMP then need to present the data alphabetically;"
^XMB(3.9,25,2,5273,0)="""RTN"",""ECOSSUM"",123,0)"
^XMB(3.9,25,2,5274,0)=" ;put locations and units in alpha ordered array"
^XMB(3.9,25,2,5275,0)="""RTN"",""ECOSSUM"",124,0)"
^XMB(3.9,25,2,5276,0)=" S JJ="""" F  S JJ=$O(ECLOC(JJ)) Q:JJ=""""  D"
^XMB(3.9,25,2,5277,0)="""RTN"",""ECOSSUM"",125,0)"
^XMB(3.9,25,2,5278,0)=" .S ALOC($P(ECLOC(JJ),""^"",2))=$P(ECLOC(JJ),""^"",1)"
^XMB(3.9,25,2,5279,0)="""RTN"",""ECOSSUM"",126,0)"
^XMB(3.9,25,2,5280,0)=" S JJ="""" F  S JJ=$O(ECDSSU(JJ)) Q:JJ=""""  D"
^XMB(3.9,25,2,5281,0)="""RTN"",""ECOSSUM"",127,0)"
^XMB(3.9,25,2,5282,0)=" .S AUNIT($P(ECDSSU(JJ),""^"",2))=$P(ECDSSU(JJ),""^"",1)"
^XMB(3.9,25,2,5283,0)="""RTN"",""ECOSSUM"",128,0)"
^XMB(3.9,25,2,5284,0)=" ;process the ^TMP global data in alpha order for location and unit"
^XMB(3.9,25,2,5285,0)="""RTN"",""ECOSSUM"",129,0)"
^XMB(3.9,25,2,5286,0)=" S LOC="""" F  S LOC=$O(ALOC(LOC)) Q:LOC=""""  S ECLOCA=ALOC(LOC),ECV(""L"")=0 D  Q:QFLAG"
^XMB(3.9,25,2,5287,0)="""RTN"",""ECOSSUM"",130,0)"
^XMB(3.9,25,2,5288,0)=" .D HEAD Q:QFLAG  ;always start a new location at top of page"
^XMB(3.9,25,2,5289,0)="""RTN"",""ECOSSUM"",131,0)"
^XMB(3.9,25,2,5290,0)=" .S UNIT="""" F  S UNIT=$O(AUNIT(UNIT)) Q:UNIT=""""  S ECUNIT=AUNIT(UNIT),ECV(""U"")=0 D  Q:QFLAG"
^XMB(3.9,25,2,5291,0)="""RTN"",""ECOSSUM"",132,0)"
^XMB(3.9,25,2,5292,0)=" ..I '$D(^TMP(""ECOS"",$J,ECLOCA,ECUNIT)) Q"
^XMB(3.9,25,2,5293,0)="""RTN"",""ECOSSUM"",133,0)"
^XMB(3.9,25,2,5294,0)=" ..S UNNAME=$E(UNIT,1,20)"
^XMB(3.9,25,2,5295,0)="""RTN"",""ECOSSUM"",134,0)"
^XMB(3.9,25,2,5296,0)=" ..D:($Y+3>IOSL) HEAD Q:QFLAG  W !!,UNNAME"
^XMB(3.9,25,2,5297,0)="""RTN"",""ECOSSUM"",135,0)"
^XMB(3.9,25,2,5298,0)=" ..S ECPATN="""" F  S ECPATN=$O(^TMP(""ECOS"",$J,ECLOCA,ECUNIT,ECPATN)) Q:ECPATN=""""  S ECV(""P"")=0 D  Q:QFLAG"
^XMB(3.9,25,2,5299,0)="""RTN"",""ECOSSUM"",136,0)"
^XMB(3.9,25,2,5300,0)=" ...S PTNAME=$P(ECPATN,""^"",1),PTNAME=$E(PTNAME,1,22),ECSSN=$P(ECPATN,""^"",2)"
^XMB(3.9,25,2,5301,0)="""RTN"",""ECOSSUM"",137,0)"
^XMB(3.9,25,2,5302,0)=" ...W ?24,PTNAME,?48,ECSSN"
^XMB(3.9,25,2,5303,0)="""RTN"",""ECOSSUM"",138,0)"
^XMB(3.9,25,2,5304,0)=" ...S ECDA="""" F  S ECDA=$O(^TMP(""ECOS"",$J,ECLOCA,ECUNIT,ECPATN,ECDA)) Q:ECDA=""""  S DATA=^(ECDA) D  Q:QFLAG"
^XMB(3.9,25,2,5305,0)="""RTN"",""ECOSSUM"",139,0)"
^XMB(3.9,25,2,5306,0)=" ....S ECPN=$P(DATA,""^"",2),ECPN=$J($P(ECPN,""~"",2)_"" "",6)_$P(ECPN,""~"")"
^XMB(3.9,25,2,5307,0)="""RTN"",""ECOSSUM"",140,0)"
^XMB(3.9,25,2,5308,0)=" ....S ECPN=$E(ECPN,1,41),ECV=$P(DATA,""^"",3),ECV=ECV\1 D"
^XMB(3.9,25,2,5309,0)="""RTN"",""ECOSSUM"",141,0)"
^XMB(3.9,25,2,5310,0)=" .....F V=""L"",""O"",""P"",""U"" S ECV(V)=ECV(V)+ECV"
^XMB(3.9,25,2,5311,0)="""RTN"",""ECOSSUM"",142,0)"
^XMB(3.9,25,2,5312,0)=" .....S:+ECV>9999 ECV=""9999+"" S ECV=$$RJ^XLFSTR(ECV,5,"" "") ;unusually high individual volume figure"
^XMB(3.9,25,2,5313,0)="""RTN"",""ECOSSUM"",143,0)"
^XMB(3.9,25,2,5314,0)=" ....K PROV M PROV=^TMP(""ECOS"",$J,ECLOCA,ECUNIT,ECPATN,ECDA,""PRV"")"
^XMB(3.9,25,2,5315,0)="""RTN"",""ECOSSUM"",144,0)"
^XMB(3.9,25,2,5316,0)=" ....K ECMOD M ECMOD=^TMP(""ECOS"",$J,ECLOCA,ECUNIT,ECPATN,ECDA,""MOD"")"
^XMB(3.9,25,2,5317,0)="""RTN"",""ECOSSUM"",145,0)"
^XMB(3.9,25,2,5318,0)=" ....W ?54,ECPN,?96,ECV,?105,$E($P($G(PROV(1)),""^"",2),1,24) K PROV(1)"
^XMB(3.9,25,2,5319,0)="""RTN"",""ECOSSUM"",146,0)"
^XMB(3.9,25,2,5320,0)=" ....D:($Y+3>IOSL) HEAD Q:QFLAG"
^XMB(3.9,25,2,5321,0)="""RTN"",""ECOSSUM"",147,0)"
^XMB(3.9,25,2,5322,0)=" ....;ALB/JAM - write cpt procedure modifiers on same line with providers"
^XMB(3.9,25,2,5323,0)="""RTN"",""ECOSSUM"",148,0)"
^XMB(3.9,25,2,5324,0)=" ....S MOD=0,PROVN=1 F  S MOD=$O(ECMOD(MOD)),PROVN=$O(PROV(PROVN)) Q:(MOD="""")&(PROVN="""")  D  I QFLAG Q"
^XMB(3.9,25,2,5325,0)="""RTN"",""ECOSSUM"",149,0)"
^XMB(3.9,25,2,5326,0)=" .....I ($Y+3>IOSL) D HEAD Q:QFLAG  W !?54,ECPN"
^XMB(3.9,25,2,5327,0)="""RTN"",""ECOSSUM"",150,0)"
^XMB(3.9,25,2,5328,0)=" .....W !"
^XMB(3.9,25,2,5329,0)="""RTN"",""ECOSSUM"",151,0)"
^XMB(3.9,25,2,5330,0)=" .....I MOD'="""" W ?58,""- "",MOD,"" "",$E($P(ECMOD(MOD),U,3),1,36) K ECMOD(MOD)"
^XMB(3.9,25,2,5331,0)="""RTN"",""ECOSSUM"",152,0)"
^XMB(3.9,25,2,5332,0)=" .....I PROVN'="""" W ?105,$E($P($G(PROV(PROVN)),""^"",2),1,24) K PROV(PROVN)"
^XMB(3.9,25,2,5333,0)="""RTN"",""ECOSSUM"",153,0)"
^XMB(3.9,25,2,5334,0)=" ....W ! ;start a new line"
^XMB(3.9,25,2,5335,0)="""RTN"",""ECOSSUM"",154,0)"
^XMB(3.9,25,2,5336,0)=" ...;write subtotal for patient"
^XMB(3.9,25,2,5337,0)="""RTN"",""ECOSSUM"",155,0)"
^XMB(3.9,25,2,5338,0)=" ...Q:QFLAG  D:($Y+3>IOSL) HEAD Q:QFLAG"
^XMB(3.9,25,2,5339,0)="""RTN"",""ECOSSUM"",156,0)"
^XMB(3.9,25,2,5340,0)=" ...W ?54,DASH2,!"
^XMB(3.9,25,2,5341,0)="""RTN"",""ECOSSUM"",157,0)"
^XMB(3.9,25,2,5342,0)=" ...W ?24,""Subtotal for ""_$P(ECPATN,""^"",1)_"":"",?96,$$RJ^XLFSTR(ECV(""P""),5,"" ""),!!"
^XMB(3.9,25,2,5343,0)="""RTN"",""ECOSSUM"",158,0)"
^XMB(3.9,25,2,5344,0)=" ..;write total for unit"
^XMB(3.9,25,2,5345,0)="""RTN"",""ECOSSUM"",159,0)"
^XMB(3.9,25,2,5346,0)=" ..Q:QFLAG  D:($Y+3>IOSL) HEAD Q:QFLAG"
^XMB(3.9,25,2,5347,0)="""RTN"",""ECOSSUM"",160,0)"
^XMB(3.9,25,2,5348,0)=" ..W !,""Subtotal for DSS Unit ""_UNIT_"":"",?95,$$RJ^XLFSTR(ECV(""U""),6,"" ""),!"
^XMB(3.9,25,2,5349,0)="""RTN"",""ECOSSUM"",161,0)"
^XMB(3.9,25,2,5350,0)=" .;write the total for the location"
^XMB(3.9,25,2,5351,0)="""RTN"",""ECOSSUM"",162,0)"
^XMB(3.9,25,2,5352,0)=" .Q:QFLAG  D:($Y+3>IOSL) HEAD Q:QFLAG"
^XMB(3.9,25,2,5353,0)="""RTN"",""ECOSSUM"",163,0)"
^XMB(3.9,25,2,5354,0)=" .W !!,""Total for Location ""_LOC_"":"",?95,$$RJ^XLFSTR(ECV(""L""),6,"" ""),!"
^XMB(3.9,25,2,5355,0)="""RTN"",""ECOSSUM"",164,0)"
^XMB(3.9,25,2,5356,0)=" ;write the ordering section grandtotal"
^XMB(3.9,25,2,5357,0)="""RTN"",""ECOSSUM"",165,0)"
^XMB(3.9,25,2,5358,0)=" Q:QFLAG  D:($Y+5>IOSL) HEAD Q:QFLAG"
^XMB(3.9,25,2,5359,0)="""RTN"",""ECOSSUM"",166,0)"
^XMB(3.9,25,2,5360,0)=" W !!!,""Grand Total for Ordering Section ""_ECOSN_"":"",?95,$$RJ^XLFSTR(ECV(""O""),6,"" ""),!"
^XMB(3.9,25,2,5361,0)="""RTN"",""ECOSSUM"",167,0)"
^XMB(3.9,25,2,5362,0)=" ;all done"
^XMB(3.9,25,2,5363,0)="""RTN"",""ECOSSUM"",168,0)"
^XMB(3.9,25,2,5364,0)=" I $E(IOST)=""C""&('QFLAG) S DIR(0)=""E"" D  D ^DIR W @IOF"
^XMB(3.9,25,2,5365,0)="""RTN"",""ECOSSUM"",169,0)"
^XMB(3.9,25,2,5366,0)=" .S SS=22-$Y F JJ=1:1:SS W !"
^XMB(3.9,25,2,5367,0)="""RTN"",""ECOSSUM"",170,0)"
^XMB(3.9,25,2,5368,0)=" W:$E(IOST)'=""C"" @IOF"
^XMB(3.9,25,2,5369,0)="""RTN"",""ECOSSUM"",171,0)"
^XMB(3.9,25,2,5370,0)=" Q"
^XMB(3.9,25,2,5371,0)="""RTN"",""ECOSSUM"",172,0)"
^XMB(3.9,25,2,5372,0)="HEAD ;header"
^XMB(3.9,25,2,5373,0)="""RTN"",""ECOSSUM"",173,0)"
^XMB(3.9,25,2,5374,0)=" I $E(IOST)=""C"" S SS=22-$Y F JJ=1:1:SS W !"
^XMB(3.9,25,2,5375,0)="""RTN"",""ECOSSUM"",174,0)"
^XMB(3.9,25,2,5376,0)=" I $E(IOST)=""C"",PAGE>0 S DIR(0)=""E"" W ! D ^DIR K DIR I 'Y S QFLAG=1 Q"
^XMB(3.9,25,2,5377,0)="""RTN"",""ECOSSUM"",175,0)"
^XMB(3.9,25,2,5378,0)=" W:$Y!($E(IOST)=""C"") @IOF"
^XMB(3.9,25,2,5379,0)="""RTN"",""ECOSSUM"",176,0)"
^XMB(3.9,25,2,5380,0)=" S PAGE=PAGE+1"
^XMB(3.9,25,2,5381,0)="""RTN"",""ECOSSUM"",177,0)"
^XMB(3.9,25,2,5382,0)=" W !,?26,""Event Capture Ordering Section Summary for "",ECOSN,?105,""Page: "",PAGE"
^XMB(3.9,25,2,5383,0)="""RTN"",""ECOSSUM"",178,0)"
^XMB(3.9,25,2,5384,0)=" W !,?26,""for the Date Range "",$$FMTE^XLFDT(ECSD),"" to "",$$FMTE^XLFDT(ECED),?102,""Printed: ""_PRNTDT"
^XMB(3.9,25,2,5385,0)="""RTN"",""ECOSSUM"",179,0)"
^XMB(3.9,25,2,5386,0)=" W !,?26,""Location: "",LOC,!"
^XMB(3.9,25,2,5387,0)="""RTN"",""ECOSSUM"",180,0)"
^XMB(3.9,25,2,5388,0)=" W !,""DSS Unit"",?24,""Patient"",?48,""SSN"",?54,""Procedure"",?98,""Vol."",?105,""Provider(s)"""
^XMB(3.9,25,2,5389,0)="""RTN"",""ECOSSUM"",181,0)"
^XMB(3.9,25,2,5390,0)=" W !,DASH,!"
^XMB(3.9,25,2,5391,0)="""RTN"",""ECOSSUM"",182,0)"
^XMB(3.9,25,2,5392,0)=" Q"
^XMB(3.9,25,2,5393,0)="""RTN"",""ECOSSUM"",183,0)"
^XMB(3.9,25,2,5394,0)=" ;"
^XMB(3.9,25,2,5395,0)="""RTN"",""ECOSSUM"",184,0)"
^XMB(3.9,25,2,5396,0)="EXIT ;common exit point"
^XMB(3.9,25,2,5397,0)="""RTN"",""ECOSSUM"",185,0)"
^XMB(3.9,25,2,5398,0)=" D ^ECKILL"
^XMB(3.9,25,2,5399,0)="""RTN"",""ECOSSUM"",186,0)"
^XMB(3.9,25,2,5400,0)=" D:'$D(ECGUI) ^%ZISC"
^XMB(3.9,25,2,5401,0)="""RTN"",""ECOSSUM"",187,0)"
^XMB(3.9,25,2,5402,0)=" K ^TMP(""ECOS"",$J)"
^XMB(3.9,25,2,5403,0)="""RTN"",""ECOSSUM"",188,0)"
^XMB(3.9,25,2,5404,0)=" K JJ,X,Y,ZTSK,IO(""Q""),DIR,DIRUT,DTOUT,DUOUT,ECOS,ECOSN,ECSD,ECED,ECLOOP,ECLOC,ECDSSU"
^XMB(3.9,25,2,5405,0)="""RTN"",""ECOSSUM"",189,0)"
^XMB(3.9,25,2,5406,0)=" Q"
^XMB(3.9,25,2,5407,0)="""RTN"",""ECPAT"")"
^XMB(3.9,25,2,5408,0)="0^5^B30279346^B30137327"
^XMB(3.9,25,2,5409,0)="""RTN"",""ECPAT"",1,0)"
^XMB(3.9,25,2,5410,0)="ECPAT ;BIR/MAM,JPW-Event Capture Patient Summary ;26 Feb 96"
^XMB(3.9,25,2,5411,0)="""RTN"",""ECPAT"",2,0)"
^XMB(3.9,25,2,5412,0)=" ;;2.0; EVENT CAPTURE ;**5,18,47,72**;8 May 96"
^XMB(3.9,25,2,5413,0)="""RTN"",""ECPAT"",3,0)"
^XMB(3.9,25,2,5414,0)="SET ; set ^TMP($J,""ECPAT"")"
^XMB(3.9,25,2,5415,0)="""RTN"",""ECPAT"",4,0)"
^XMB(3.9,25,2,5416,0)=" N ECPXD,EC725"
^XMB(3.9,25,2,5417,0)="""RTN"",""ECPAT"",5,0)"
^XMB(3.9,25,2,5418,0)=" I $Y+8>IOSL D PAGE I ECOUT Q"
^XMB(3.9,25,2,5419,0)="""RTN"",""ECPAT"",6,0)"
^XMB(3.9,25,2,5420,0)=" S ECEC=$G(^ECH(ECFN,0))"
^XMB(3.9,25,2,5421,0)="""RTN"",""ECPAT"",7,0)"
^XMB(3.9,25,2,5422,0)=" S ECL=+$P(ECEC,""^"",4),ECC=+$P(ECEC,""^"",8),ECP=$P(ECEC,""^"",9),ECD=+$P(ECEC,""^"",7),ECV=+$P(ECEC,""^"",10)"
^XMB(3.9,25,2,5423,0)="""RTN"",""ECPAT"",8,0)"
^XMB(3.9,25,2,5424,0)=" S ECU=$$GETPPRV^ECPRVMUT(ECFN,.ECUN),ECUN=$S(ECU:""UNKNOWN"",1:$P(ECUN,""^"",2))"
^XMB(3.9,25,2,5425,0)="""RTN"",""ECPAT"",9,0)"
^XMB(3.9,25,2,5426,0)=" Q:ECP']"""""
^XMB(3.9,25,2,5427,0)="""RTN"",""ECPAT"",10,0)"
^XMB(3.9,25,2,5428,0)=" ;set default med spec and ord sect to administrative if blank"
^XMB(3.9,25,2,5429,0)="""RTN"",""ECPAT"",11,0)"
^XMB(3.9,25,2,5430,0)=" S ECM=$S($P(ECEC,""^"",6)]"""":+$P(ECEC,""^"",6),1:108),ECO=$S($P(ECEC,""^"",12)]"""":+$P(ECEC,""^"",12),1:108)"
^XMB(3.9,25,2,5431,0)="""RTN"",""ECPAT"",12,0)"
^XMB(3.9,25,2,5432,0)=" S ECMN=$S($P($G(^ECC(723,ECM,0)),""^"")]"""":$P(^(0),""^""),1:""UNKNOWN"")"
^XMB(3.9,25,2,5433,0)="""RTN"",""ECPAT"",13,0)"
^XMB(3.9,25,2,5434,0)=" S ECON=$S($P($G(^ECC(723,ECO,0)),""^"")]"""":$P(^(0),""^""),1:""UNKNOWN"")"
^XMB(3.9,25,2,5435,0)="""RTN"",""ECPAT"",14,0)"
^XMB(3.9,25,2,5436,0)=" S ECS=+$P(ECEC,""^"",5),ECSN=$S($P($G(^DIC(49,ECS,0)),""^"")]"""":$P(^(0),""^""),1:""UNKNOWN"")"
^XMB(3.9,25,2,5437,0)="""RTN"",""ECPAT"",15,0)"
^XMB(3.9,25,2,5438,0)=" S ECCN=$S($P($G(^EC(726,ECC,0)),""^"")]"""":$P(^(0),""^""),1:""None"")"
^XMB(3.9,25,2,5439,0)="""RTN"",""ECPAT"",16,0)"
^XMB(3.9,25,2,5440,0)=" S ECPSY=+$O(^ECJ(""AP"",ECL,ECD,ECC,ECP,""""))"
^XMB(3.9,25,2,5441,0)="""RTN"",""ECPAT"",17,0)"
^XMB(3.9,25,2,5442,0)=" S ECPSYN=$P($G(^ECJ(ECPSY,""PRO"")),""^"",2)"
^XMB(3.9,25,2,5443,0)="""RTN"",""ECPAT"",18,0)"
^XMB(3.9,25,2,5444,0)=" S ECFILE=$P(ECP,"";"",2),ECFILE=$S($E(ECFILE)=""I"":81,1:725)"
^XMB(3.9,25,2,5445,0)="""RTN"",""ECPAT"",19,0)"
^XMB(3.9,25,2,5446,0)=" S ECCPT=$S(ECFILE=81:+ECP,1:$P($G(^EC(725,+ECP,0)),""^"",5)),ECPXD="""""
^XMB(3.9,25,2,5447,0)="""RTN"",""ECPAT"",20,0)"
^XMB(3.9,25,2,5448,0)=" I ECCPT'="""" D"
^XMB(3.9,25,2,5449,0)="""RTN"",""ECPAT"",21,0)"
^XMB(3.9,25,2,5450,0)=" . S ECPXD=$$CPT^ICPTCOD(ECCPT,$P(ECEC,""^"",3)),ECCPT=$P(ECPXD,""^"",2)"
^XMB(3.9,25,2,5451,0)="""RTN"",""ECPAT"",22,0)"
^XMB(3.9,25,2,5452,0)=" . I ECCPT'="""" S ECCPT=ECCPT_"" """
^XMB(3.9,25,2,5453,0)="""RTN"",""ECPAT"",23,0)"
^XMB(3.9,25,2,5454,0)=" I ECFILE=81 S ECPN=$S($P(ECPXD,""^"",3)]"""":$P(ECPXD,""^"",3),1:""UNKNOWN"")"
^XMB(3.9,25,2,5455,0)="""RTN"",""ECPAT"",24,0)"
^XMB(3.9,25,2,5456,0)=" I ECFILE=725 D"
^XMB(3.9,25,2,5457,0)="""RTN"",""ECPAT"",25,0)"
^XMB(3.9,25,2,5458,0)=" .S EC725=$G(^EC(725,+ECP,0)),ECPN=$P(EC725,""^"",2)_"" ""_$P(EC725,""^"")"
^XMB(3.9,25,2,5459,0)="""RTN"",""ECPAT"",26,0)"
^XMB(3.9,25,2,5460,0)=" S ECPN=$J(ECCPT,6)_$E(ECPN,1,38)_$S(ECPSYN]"""":"" [""_ECPSYN_""] "",1:"""")"
^XMB(3.9,25,2,5461,0)="""RTN"",""ECPAT"",27,0)"
^XMB(3.9,25,2,5462,0)=" S ECDN=$S($P($G(^ECD(ECD,0)),""^"")]"""":$P(^(0),""^""),1:""UNKNOWN"")"
^XMB(3.9,25,2,5463,0)="""RTN"",""ECPAT"",28,0)"
^XMB(3.9,25,2,5464,0)=" S ECLN=$S($P($G(^DIC(4,ECL,0)),""^"")]"""":$P(^(0),""^""),1:""UNKNOWN"")"
^XMB(3.9,25,2,5465,0)="""RTN"",""ECPAT"",29,0)"
^XMB(3.9,25,2,5466,0)=" S ECUN=$S(ECUN'=""UNKNOWN"":$P(ECUN,"","",2)_"" ""_$P(ECUN,"",""),1:""UNKNOWN"")"
^XMB(3.9,25,2,5467,0)="""RTN"",""ECPAT"",30,0)"
^XMB(3.9,25,2,5468,0)=" S ECDT=$$FMTE^XLFDT(DATE)"
^XMB(3.9,25,2,5469,0)="""RTN"",""ECPAT"",31,0)"
^XMB(3.9,25,2,5470,0)=" ;"
^XMB(3.9,25,2,5471,0)="""RTN"",""ECPAT"",32,0)"
^XMB(3.9,25,2,5472,0)=" ;ALB/ESD - Add Procedure Reason to report"
^XMB(3.9,25,2,5473,0)="""RTN"",""ECPAT"",33,0)"
^XMB(3.9,25,2,5474,0)=" N ECLNK"
^XMB(3.9,25,2,5475,0)="""RTN"",""ECPAT"",34,0)"
^XMB(3.9,25,2,5476,0)=" S ECPRSN="""""
^XMB(3.9,25,2,5477,0)="""RTN"",""ECPAT"",35,0)"
^XMB(3.9,25,2,5478,0)=" S ECLNK=+$P(ECEC,""^"",23)"
^XMB(3.9,25,2,5479,0)="""RTN"",""ECPAT"",36,0)"
^XMB(3.9,25,2,5480,0)=" I +ECLNK>0 DO"
^XMB(3.9,25,2,5481,0)="""RTN"",""ECPAT"",37,0)"
^XMB(3.9,25,2,5482,0)=" .S ECPRSN=$P($G(^ECL(ECLNK,0)),""^"",1)"
^XMB(3.9,25,2,5483,0)="""RTN"",""ECPAT"",38,0)"
^XMB(3.9,25,2,5484,0)=" .S:+ECPRSN'>0 ECPRSN=""REASON NOT DEFINED"""
^XMB(3.9,25,2,5485,0)="""RTN"",""ECPAT"",39,0)"
^XMB(3.9,25,2,5486,0)=" .S:+ECPRSN>0 ECPRSN=$P(^ECR(ECPRSN,0),""^"",1)"
^XMB(3.9,25,2,5487,0)="""RTN"",""ECPAT"",40,0)"
^XMB(3.9,25,2,5488,0)=" S:+ECLNK'>0 ECPRSN=""REASON NOT DEFINED"""
^XMB(3.9,25,2,5489,0)="""RTN"",""ECPAT"",41,0)"
^XMB(3.9,25,2,5490,0)=" ;"
^XMB(3.9,25,2,5491,0)="""RTN"",""ECPAT"",42,0)"
^XMB(3.9,25,2,5492,0)=" ;Get Procedure CPT modifiers"
^XMB(3.9,25,2,5493,0)="""RTN"",""ECPAT"",43,0)"
^XMB(3.9,25,2,5494,0)=" S ECMODF=0 K ECMOD"
^XMB(3.9,25,2,5495,0)="""RTN"",""ECPAT"",44,0)"
^XMB(3.9,25,2,5496,0)=" I $O(^ECH(ECFN,""MOD"",0))'="""" S ECMODF=$$MOD^ECUTL(ECFN,""E"",.ECMOD)"
^XMB(3.9,25,2,5497,0)="""RTN"",""ECPAT"",45,0)"
^XMB(3.9,25,2,5498,0)=" I $D(ECY) DO"
^XMB(3.9,25,2,5499,0)="""RTN"",""ECPAT"",46,0)"
^XMB(3.9,25,2,5500,0)=" .W !!,ECDT,?25,ECCN,?80,ECPN_"" (""_ECV_"")"",!"
^XMB(3.9,25,2,5501,0)="""RTN"",""ECPAT"",47,0)"
^XMB(3.9,25,2,5502,0)=" .I ECMODF S MD="""" D  K MD I ECOUT Q"
^XMB(3.9,25,2,5503,0)="""RTN"",""ECPAT"",48,0)"
^XMB(3.9,25,2,5504,0)=" ..F  S MD=$O(ECMOD(MD)) Q:MD=""""  D  I ECOUT Q"
^XMB(3.9,25,2,5505,0)="""RTN"",""ECPAT"",49,0)"
^XMB(3.9,25,2,5506,0)=" ...D:$Y+2>IOSL PAGE Q:ECOUT  W ?84,""- "",MD,"" "",$P(ECMOD(MD),U,3),!"
^XMB(3.9,25,2,5507,0)="""RTN"",""ECPAT"",50,0)"
^XMB(3.9,25,2,5508,0)=" .W $E(ECLN,1,22),?25,ECSN,?80,ECMN,!"
^XMB(3.9,25,2,5509,0)="""RTN"",""ECPAT"",51,0)"
^XMB(3.9,25,2,5510,0)=" .W:$D(ECRY) ECPRSN"
^XMB(3.9,25,2,5511,0)="""RTN"",""ECPAT"",52,0)"
^XMB(3.9,25,2,5512,0)=" .W ?25,ECON,?80,ECUN"
^XMB(3.9,25,2,5513,0)="""RTN"",""ECPAT"",53,0)"
^XMB(3.9,25,2,5514,0)=" I $D(ECN) DO"
^XMB(3.9,25,2,5515,0)="""RTN"",""ECPAT"",54,0)"
^XMB(3.9,25,2,5516,0)=" .W !!,ECDT,?25,ECPN_"" (""_ECV_"")"",!"
^XMB(3.9,25,2,5517,0)="""RTN"",""ECPAT"",55,0)"
^XMB(3.9,25,2,5518,0)=" .I ECMODF S MD="""" D  K MD I ECOUT Q"
^XMB(3.9,25,2,5519,0)="""RTN"",""ECPAT"",56,0)"
^XMB(3.9,25,2,5520,0)=" ..F  S MD=$O(ECMOD(MD)) Q:MD=""""  D  I ECOUT Q"
^XMB(3.9,25,2,5521,0)="""RTN"",""ECPAT"",57,0)"
^XMB(3.9,25,2,5522,0)=" ...D:$Y+2>IOSL PAGE Q:ECOUT  W ?29,""- "",MD,"" "",$P(ECMOD(MD),U,3),!"
^XMB(3.9,25,2,5523,0)="""RTN"",""ECPAT"",58,0)"
^XMB(3.9,25,2,5524,0)=" .W $E(ECLN,1,22),?25,ECSN,?80,ECMN,!"
^XMB(3.9,25,2,5525,0)="""RTN"",""ECPAT"",59,0)"
^XMB(3.9,25,2,5526,0)=" .W:$D(ECRY) ECPRSN"
^XMB(3.9,25,2,5527,0)="""RTN"",""ECPAT"",60,0)"
^XMB(3.9,25,2,5528,0)=" .W ?25,ECON,?80,ECUN"
^XMB(3.9,25,2,5529,0)="""RTN"",""ECPAT"",61,0)"
^XMB(3.9,25,2,5530,0)=" Q"
^XMB(3.9,25,2,5531,0)="""RTN"",""ECPAT"",62,0)"
^XMB(3.9,25,2,5532,0)="PAT ; entry point"
^XMB(3.9,25,2,5533,0)="""RTN"",""ECPAT"",63,0)"
^XMB(3.9,25,2,5534,0)=" K DIC S DIC=2,DIC(0)=""QEAMZ"",DIC(""A"")=""Select Patient: "" D ^DIC K DIC G:Y<0 END S ECDFN=+Y,ECPAT=$P(Y,""^"",2)"
^XMB(3.9,25,2,5535,0)="""RTN"",""ECPAT"",64,0)"
^XMB(3.9,25,2,5536,0)="DATE K %DT S %DT=""AEX"",%DT(""A"")=""Start with Date:  "" D ^%DT G:Y<0 END S ECSD=Y,%DT(""A"")=""End with Date:  "" D ^%DT G:Y<0 END S ECED=Y I ECED<ECSD W !,""End date must be after start date"",! G DATE"
^XMB(3.9,25,2,5537,0)="""RTN"",""ECPAT"",65,0)"
^XMB(3.9,25,2,5538,0)=" S ECDATE=$$FMTE^XLFDT(ECSD)_""^""_$$FMTE^XLFDT(ECED),ECSD=ECSD-.0001,ECED=ECED+.9999"
^XMB(3.9,25,2,5539,0)="""RTN"",""ECPAT"",66,0)"
^XMB(3.9,25,2,5540,0)=" D REASON^ECRUTL ;* Prompt to report Procedure Reasons"
^XMB(3.9,25,2,5541,0)="""RTN"",""ECPAT"",67,0)"
^XMB(3.9,25,2,5542,0)=" K IOP,%ZIS,POP,IO(""Q"") S %ZIS(""A"")=""Select Device: "",%ZIS=""QM"" W !!,""This report is designed to use a 132 column format."",! D ^%ZIS G:POP END"
^XMB(3.9,25,2,5543,0)="""RTN"",""ECPAT"",68,0)"
^XMB(3.9,25,2,5544,0)=" I $D(IO(""Q"")) S:$D(ECRY) ZTSAVE(""ECRY"")="""""
^XMB(3.9,25,2,5545,0)="""RTN"",""ECPAT"",69,0)"
^XMB(3.9,25,2,5546,0)=" I $D(IO(""Q"")) K IO(""Q"") S (ZTSAVE(""ECDFN""),ZTSAVE(""ECPAT""),ZTSAVE(""ECDATE""),ZTSAVE(""ECED""),ZTSAVE(""ECSD""))="""",ZTDESC=""EVENT CAPTURE PATIENT SUMMARY"",ZTRTN=""SUM^ECPAT"",ZTIO=ION D ^%ZTLOAD,HOME^%ZIS G END"
^XMB(3.9,25,2,5547,0)="""RTN"",""ECPAT"",70,0)"
^XMB(3.9,25,2,5548,0)="SUM ; entry when queued"
^XMB(3.9,25,2,5549,0)="""RTN"",""ECPAT"",71,0)"
^XMB(3.9,25,2,5550,0)=" S %H=$H D YX^%DTC S ECRDT=Y"
^XMB(3.9,25,2,5551,0)="""RTN"",""ECPAT"",72,0)"
^XMB(3.9,25,2,5552,0)=" U IO S DATE=$O(^ECH(""APAT"",ECDFN,ECSD)) I 'DATE W:$Y @IOF W !!,""No Data for ""_ECPAT_"" during the time selected."" G END"
^XMB(3.9,25,2,5553,0)="""RTN"",""ECPAT"",73,0)"
^XMB(3.9,25,2,5554,0)=" S ECFN=+$O(^ECH(""APAT"",ECDFN,DATE,0)),ECL=+$P(^ECH(ECFN,0),""^"",4) D BRO D:$D(ECY) HDR D:$D(ECN) HDR1"
^XMB(3.9,25,2,5555,0)="""RTN"",""ECPAT"",74,0)"
^XMB(3.9,25,2,5556,0)=" S DATE=ECSD,(ECFN,ECOUT)=0 F I=0:0 S DATE=$O(^ECH(""APAT"",ECDFN,DATE)) Q:'DATE!(DATE>ECED)!(ECOUT)  F I=0:0 S ECFN=$O(^ECH(""APAT"",ECDFN,DATE,ECFN)) Q:'ECFN!(ECOUT)  D SET"
^XMB(3.9,25,2,5557,0)="""RTN"",""ECPAT"",75,0)"
^XMB(3.9,25,2,5558,0)="END I $D(ECGUI) D ^ECKILL Q"
^XMB(3.9,25,2,5559,0)="""RTN"",""ECPAT"",76,0)"
^XMB(3.9,25,2,5560,0)=" W ! I $D(ECOUT),'ECOUT D"
^XMB(3.9,25,2,5561,0)="""RTN"",""ECPAT"",77,0)"
^XMB(3.9,25,2,5562,0)=" . I $E(IOST,1,2)=""C-"" W !!,""Press <RET> to continue  "" R X:DTIME"
^XMB(3.9,25,2,5563,0)="""RTN"",""ECPAT"",78,0)"
^XMB(3.9,25,2,5564,0)=" W @IOF D ^%ZISC D ^ECKILL S:$D(ZTQUEUED) ZTREQ=""@"""
^XMB(3.9,25,2,5565,0)="""RTN"",""ECPAT"",79,0)"
^XMB(3.9,25,2,5566,0)=" Q"
^XMB(3.9,25,2,5567,0)="""RTN"",""ECPAT"",80,0)"
^XMB(3.9,25,2,5568,0)="HDR ; print heading"
^XMB(3.9,25,2,5569,0)="""RTN"",""ECPAT"",81,0)"
^XMB(3.9,25,2,5570,0)=" ;"
^XMB(3.9,25,2,5571,0)="""RTN"",""ECPAT"",82,0)"
^XMB(3.9,25,2,5572,0)=" ;ALB/ESD - Add Procedure Reason to column headings"
^XMB(3.9,25,2,5573,0)="""RTN"",""ECPAT"",83,0)"
^XMB(3.9,25,2,5574,0)=" W:$Y @IOF"
^XMB(3.9,25,2,5575,0)="""RTN"",""ECPAT"",84,0)"
^XMB(3.9,25,2,5576,0)=" W !,?32,""EVENT CAPTURE PATIENT SUMMARY FOR ""_ECPAT,!,?32,""FROM ""_$P(ECDATE,""^"")_""   TO ""_$P(ECDATE,""^"",2),!,?32,""Run Date : "",ECRDT"
^XMB(3.9,25,2,5577,0)="""RTN"",""ECPAT"",85,0)"
^XMB(3.9,25,2,5578,0)=" W !,""PROCEDURE DATE/TIME"",?25,""CATEGORY"",?80,""PROCEDURE"",!,?80,""PROCEDURE (CPT) MODIFIER"",!,""LOCATION"",?25,""SERVICE"",?80,""SECTION"""
^XMB(3.9,25,2,5579,0)="""RTN"",""ECPAT"",86,0)"
^XMB(3.9,25,2,5580,0)=" W !"
^XMB(3.9,25,2,5581,0)="""RTN"",""ECPAT"",87,0)"
^XMB(3.9,25,2,5582,0)=" W:$D(ECRY) ""PROCEDURE REASON"""
^XMB(3.9,25,2,5583,0)="""RTN"",""ECPAT"",88,0)"
^XMB(3.9,25,2,5584,0)=" W ?25,""ORDERING SECTION"",?80,""PROVIDER"",! F LINE=1:1:132 W ""-"""
^XMB(3.9,25,2,5585,0)="""RTN"",""ECPAT"",89,0)"
^XMB(3.9,25,2,5586,0)=" W !"
^XMB(3.9,25,2,5587,0)="""RTN"",""ECPAT"",90,0)"
^XMB(3.9,25,2,5588,0)=" Q"
^XMB(3.9,25,2,5589,0)="""RTN"",""ECPAT"",91,0)"
^XMB(3.9,25,2,5590,0)="PAGE ; end of page"
^XMB(3.9,25,2,5591,0)="""RTN"",""ECPAT"",92,0)"
^XMB(3.9,25,2,5592,0)=" S X="""" I $E(IOST,1,2)=""C-"" W !!,""Press <RET> to continue, or ^ to quit   "" R X:DTIME I '$T!(X=""^"") S ECOUT=1 Q"
^XMB(3.9,25,2,5593,0)="""RTN"",""ECPAT"",93,0)"
^XMB(3.9,25,2,5594,0)=" I X[""?"" W !!,""If you want to continue with this report, press <RET>.  Entering an ^ will"",!,""exit you from this option."" G PAGE"
^XMB(3.9,25,2,5595,0)="""RTN"",""ECPAT"",94,0)"
^XMB(3.9,25,2,5596,0)=" D:$D(ECY) HDR D:$D(ECN) HDR1"
^XMB(3.9,25,2,5597,0)="""RTN"",""ECPAT"",95,0)"
^XMB(3.9,25,2,5598,0)=" Q"
^XMB(3.9,25,2,5599,0)="""RTN"",""ECPAT"",96,0)"
^XMB(3.9,25,2,5600,0)="HDR1 ; print heading without categories"
^XMB(3.9,25,2,5601,0)="""RTN"",""ECPAT"",97,0)"
^XMB(3.9,25,2,5602,0)=" ;"
^XMB(3.9,25,2,5603,0)="""RTN"",""ECPAT"",98,0)"
^XMB(3.9,25,2,5604,0)=" ;ALB/ESD - Add Run Date to header"
^XMB(3.9,25,2,5605,0)="""RTN"",""ECPAT"",99,0)"
^XMB(3.9,25,2,5606,0)=" W @IOF,!!,?32,""EVENT CAPTURE PATIENT SUMMARY FOR ""_ECPAT,!,?36,""FROM ""_$P(ECDATE,""^"")_""   TO ""_$P(ECDATE,""^"",2),!,?36,""Run Date : "",ECRDT"
^XMB(3.9,25,2,5607,0)="""RTN"",""ECPAT"",100,0)"
^XMB(3.9,25,2,5608,0)=" ;"
^XMB(3.9,25,2,5609,0)="""RTN"",""ECPAT"",101,0)"
^XMB(3.9,25,2,5610,0)=" ;ALB/ESD - Add Procedure Reason to column headings"
^XMB(3.9,25,2,5611,0)="""RTN"",""ECPAT"",102,0)"
^XMB(3.9,25,2,5612,0)=" W !!,""PROCEDURE DATE/TIME"",?25,""PROCEDURE(VOLUME)"",!,?25,""PROCEDURE (CPT) MODIFIER"",!,""LOCATION"",?25,""SERVICE"",?80,""SECTION"""
^XMB(3.9,25,2,5613,0)="""RTN"",""ECPAT"",103,0)"
^XMB(3.9,25,2,5614,0)=" W !"
^XMB(3.9,25,2,5615,0)="""RTN"",""ECPAT"",104,0)"
^XMB(3.9,25,2,5616,0)=" W:$D(ECRY) ""PROCEDURE REASON"""
^XMB(3.9,25,2,5617,0)="""RTN"",""ECPAT"",105,0)"
^XMB(3.9,25,2,5618,0)=" W ?25,""ORDERING SECTION"",?80,""PROVIDER"",! F LINE=1:1:132 W ""-"""
^XMB(3.9,25,2,5619,0)="""RTN"",""ECPAT"",106,0)"
^XMB(3.9,25,2,5620,0)=" W !"
^XMB(3.9,25,2,5621,0)="""RTN"",""ECPAT"",107,0)"
^XMB(3.9,25,2,5622,0)=" Q"
^XMB(3.9,25,2,5623,0)="""RTN"",""ECPAT"",108,0)"
^XMB(3.9,25,2,5624,0)="BRO ;ask prt with category or without"
^XMB(3.9,25,2,5625,0)="""RTN"",""ECPAT"",109,0)"
^XMB(3.9,25,2,5626,0)=" S ECN=1"
^XMB(3.9,25,2,5627,0)="""RTN"",""ECPAT"",110,0)"
^XMB(3.9,25,2,5628,0)=" Q"
^XMB(3.9,25,2,5629,0)="""RTN"",""ECPCER"")"
^XMB(3.9,25,2,5630,0)="0^29^B18846503^B18605237"
^XMB(3.9,25,2,5631,0)="""RTN"",""ECPCER"",1,0)"
^XMB(3.9,25,2,5632,0)="ECPCER ;BIR/JPW-Event Capture PCE Data Summary ;21 Jan 97"
^XMB(3.9,25,2,5633,0)="""RTN"",""ECPCER"",2,0)"
^XMB(3.9,25,2,5634,0)=" ;;2.0; EVENT CAPTURE ;**4,18,23,47,72**;8 May 96"
^XMB(3.9,25,2,5635,0)="""RTN"",""ECPCER"",3,0)"
^XMB(3.9,25,2,5636,0)="EN ; entry point"
^XMB(3.9,25,2,5637,0)="""RTN"",""ECPCER"",4,0)"
^XMB(3.9,25,2,5638,0)=" K DIC S DIC=2,DIC(0)=""QEAMZ"",DIC(""A"")=""Select Patient: "" D ^DIC K DIC G:Y<0 END S ECDFN=+Y,ECPAT=$P(Y,""^"",2)"
^XMB(3.9,25,2,5639,0)="""RTN"",""ECPCER"",5,0)"
^XMB(3.9,25,2,5640,0)="DATE K %DT S %DT=""AEX"",%DT(""A"")=""Start with Date:  "" D ^%DT G:Y<0 END S ECSD=Y,%DT(""A"")=""End with Date:  "" D ^%DT G:Y<0 END S ECED=Y I ECED<ECSD W !,""End date must be after start date"",! G DATE"
^XMB(3.9,25,2,5641,0)="""RTN"",""ECPCER"",6,0)"
^XMB(3.9,25,2,5642,0)=" S ECDATE=$$FMTE^XLFDT(ECSD)_""^""_$$FMTE^XLFDT(ECED),ECSD=ECSD-.0001,ECED=ECED+.9999"
^XMB(3.9,25,2,5643,0)="""RTN"",""ECPCER"",7,0)"
^XMB(3.9,25,2,5644,0)=" K IOP,%ZIS,POP,IO(""Q"") S %ZIS(""A"")=""Select Device: "",%ZIS=""QM"" W !!,""This report is designed to use a 132 column format."",! D ^%ZIS G:POP END"
^XMB(3.9,25,2,5645,0)="""RTN"",""ECPCER"",8,0)"
^XMB(3.9,25,2,5646,0)=" I $D(IO(""Q"")) K IO(""Q"") S (ZTSAVE(""ECDFN""),ZTSAVE(""ECPAT""),ZTSAVE(""ECDATE""),ZTSAVE(""ECED""),ZTSAVE(""ECSD""))="""",ZTDESC=""ECS/PCE PATIENT SUMMARY"",ZTRTN=""SUM^ECPCER"",ZTIO=ION D ^%ZTLOAD,HOME^%ZIS G END"
^XMB(3.9,25,2,5647,0)="""RTN"",""ECPCER"",9,0)"
^XMB(3.9,25,2,5648,0)="SUM ; entry when queued"
^XMB(3.9,25,2,5649,0)="""RTN"",""ECPCER"",10,0)"
^XMB(3.9,25,2,5650,0)=" S %H=$H D YX^%DTC S ECRDT=Y"
^XMB(3.9,25,2,5651,0)="""RTN"",""ECPCER"",11,0)"
^XMB(3.9,25,2,5652,0)=" U IO S DATE=$O(^ECH(""APAT"",ECDFN,ECSD)) I 'DATE W:$Y @IOF W !!,""No Data for ""_ECPAT_"" during the time selected."" G END"
^XMB(3.9,25,2,5653,0)="""RTN"",""ECPCER"",12,0)"
^XMB(3.9,25,2,5654,0)=" S ECFN=+$O(^ECH(""APAT"",ECDFN,DATE,0)),ECL=+$P(^ECH(ECFN,0),""^"",4) D HDR1"
^XMB(3.9,25,2,5655,0)="""RTN"",""ECPCER"",13,0)"
^XMB(3.9,25,2,5656,0)=" S DATE=ECSD,(ECFN,ECOUT)=0 F  S DATE=$O(^ECH(""APAT"",ECDFN,DATE)) Q:'DATE!(DATE>ECED)!(ECOUT)  F  S ECFN=$O(^ECH(""APAT"",ECDFN,DATE,ECFN)) Q:'ECFN!(ECOUT)  D SET"
^XMB(3.9,25,2,5657,0)="""RTN"",""ECPCER"",14,0)"
^XMB(3.9,25,2,5658,0)="END I $D(ECGUI) D ^ECKILL Q"
^XMB(3.9,25,2,5659,0)="""RTN"",""ECPCER"",15,0)"
^XMB(3.9,25,2,5660,0)=" W ! I $E(IOST,1,2)=""C-"" W !!,""Press <RET> to continue  "" R X:DTIME"
^XMB(3.9,25,2,5661,0)="""RTN"",""ECPCER"",16,0)"
^XMB(3.9,25,2,5662,0)=" W @IOF D ^%ZISC D ^ECKILL S:$D(ZTQUEUED) ZTREQ=""@"""
^XMB(3.9,25,2,5663,0)="""RTN"",""ECPCER"",17,0)"
^XMB(3.9,25,2,5664,0)=" Q"
^XMB(3.9,25,2,5665,0)="""RTN"",""ECPCER"",18,0)"
^XMB(3.9,25,2,5666,0)="PAGE ; end of page"
^XMB(3.9,25,2,5667,0)="""RTN"",""ECPCER"",19,0)"
^XMB(3.9,25,2,5668,0)=" S X="""" I $E(IOST,1,2)=""C-"" W !!,""Press <RET> to continue, or ^ to quit   "" R X:DTIME I '$T!(X=""^"") S ECOUT=1 Q"
^XMB(3.9,25,2,5669,0)="""RTN"",""ECPCER"",20,0)"
^XMB(3.9,25,2,5670,0)=" I X[""?"" W !!,""If you want to continue with this report, press <RET>.  Entering an ^ will"",!,""exit you from this option."" G PAGE"
^XMB(3.9,25,2,5671,0)="""RTN"",""ECPCER"",21,0)"
^XMB(3.9,25,2,5672,0)=" D HDR1"
^XMB(3.9,25,2,5673,0)="""RTN"",""ECPCER"",22,0)"
^XMB(3.9,25,2,5674,0)=" Q"
^XMB(3.9,25,2,5675,0)="""RTN"",""ECPCER"",23,0)"
^XMB(3.9,25,2,5676,0)="HDR1 ; print heading without categories"
^XMB(3.9,25,2,5677,0)="""RTN"",""ECPCER"",24,0)"
^XMB(3.9,25,2,5678,0)=" W:$Y @IOF"
^XMB(3.9,25,2,5679,0)="""RTN"",""ECPCER"",25,0)"
^XMB(3.9,25,2,5680,0)=" ;W !,?31,""ECS/PCE PATIENT SUMMARY FOR ""_ECPAT,!,?36,""FROM ""_$P(ECDATE,""^"")_""   TO ""_$P(ECDATE,""^"",2),!!,""PROCEDURE DATE/TIME"",?25,""PROCEDURE NAME SENT (VOLUME)"",?78,""CPT CODE (DIAGNOSIS)"",!?78,""PROCEDURE (CPT) MODIFIER"""
^XMB(3.9,25,2,5681,0)="""RTN"",""ECPCER"",26,0)"
^XMB(3.9,25,2,5682,0)=" W !,?31,""ECS/PCE PATIENT SUMMARY FOR ""_ECPAT,!,?36,""FROM ""_$P(ECDATE,""^"")_""   TO ""_$P(ECDATE,""^"",2),!!,""PROCEDURE DATE/TIME"",?25,""PROCEDURE NAME SENT (VOLUME)"",?78,""PROVIDER"""
^XMB(3.9,25,2,5683,0)="""RTN"",""ECPCER"",27,0)"
^XMB(3.9,25,2,5684,0)=" ;W !,""LOCATION"",?25,""CLINIC (DSS ID)"",?78,""PROVIDER"",!"
^XMB(3.9,25,2,5685,0)="""RTN"",""ECPCER"",28,0)"
^XMB(3.9,25,2,5686,0)=" W !,""LOCATION"",?25,""CLINIC (DSS ID)"",?78,""CPT CODE"""
^XMB(3.9,25,2,5687,0)="""RTN"",""ECPCER"",29,0)"
^XMB(3.9,25,2,5688,0)=" W !,?25,""DIAGNOSIS"",?78,""PROCEDURE (CPT) MODIFIER"",!"
^XMB(3.9,25,2,5689,0)="""RTN"",""ECPCER"",30,0)"
^XMB(3.9,25,2,5690,0)=" F LINE=1:1:132 W ""-"""
^XMB(3.9,25,2,5691,0)="""RTN"",""ECPCER"",31,0)"
^XMB(3.9,25,2,5692,0)=" W !"
^XMB(3.9,25,2,5693,0)="""RTN"",""ECPCER"",32,0)"
^XMB(3.9,25,2,5694,0)=" Q"
^XMB(3.9,25,2,5695,0)="""RTN"",""ECPCER"",33,0)"
^XMB(3.9,25,2,5696,0)="SET ; set data"
^XMB(3.9,25,2,5697,0)="""RTN"",""ECPCER"",34,0)"
^XMB(3.9,25,2,5698,0)=" I $Y+7>IOSL D PAGE I ECOUT Q"
^XMB(3.9,25,2,5699,0)="""RTN"",""ECPCER"",35,0)"
^XMB(3.9,25,2,5700,0)=" Q:'$D(^ECH(ECFN,""PCE""))  S ECEC=$G(^ECH(ECFN,""PCE""))"
^XMB(3.9,25,2,5701,0)="""RTN"",""ECPCER"",36,0)"
^XMB(3.9,25,2,5702,0)=" I '$P($G(^ECH(ECFN,""P"")),""^"",7) Q"
^XMB(3.9,25,2,5703,0)="""RTN"",""ECPCER"",37,0)"
^XMB(3.9,25,2,5704,0)=" S ECL=+$P(ECEC,""~"",4),ECCPT=+$P(ECEC,""~"",10),ECD=+$P(ECEC,""~"",3),ECV=+$P(ECEC,""~"",9),ECDX=+$P(ECEC,""~"",11),ECID=$P(ECEC,""~"",5),ECDT=+$P(ECEC,""~"")"
^XMB(3.9,25,2,5705,0)="""RTN"",""ECPCER"",38,0)"
^XMB(3.9,25,2,5706,0)=" S ECDN=$S($P($G(^SC(ECD,0)),""^"")]"""":$P(^(0),""^""),1:""UNKNOWN"")"
^XMB(3.9,25,2,5707,0)="""RTN"",""ECPCER"",39,0)"
^XMB(3.9,25,2,5708,0)=" S ECPS=$$CPT^ICPTCOD(ECCPT,$P(ECEC,""~"")),ECCPT=$S(+ECPS>0:$P(ECPS,""^"",2),1:""""),ECPS=$S(+ECPS>0:$P(ECPS,""^"",2)_"" ""_$P(ECPS,""^"",3),1:""CPT NAME UNKNOWN"")"
^XMB(3.9,25,2,5709,0)="""RTN"",""ECPCER"",40,0)"
^XMB(3.9,25,2,5710,0)=" S ECLN=$S($P($G(^DIC(4,ECL,0)),""^"")]"""":$P(^(0),""^""),1:""UNKNOWN"")"
^XMB(3.9,25,2,5711,0)="""RTN"",""ECPCER"",41,0)"
^XMB(3.9,25,2,5712,0)=" S ECID=$S($P($G(^DIC(40.7,ECID,0)),""^"",2)]"""":$P(^(0),""^"",2),1:""DSS ID UNKNOWN"")"
^XMB(3.9,25,2,5713,0)="""RTN"",""ECPCER"",42,0)"
^XMB(3.9,25,2,5714,0)=" S ECDXN=$P($$ICDDX^ICDCODE(ECDX,$P(ECEC,""~"")),U,2) S:ECDXN="""" ECDXN=""UNKNOWN"""
^XMB(3.9,25,2,5715,0)="""RTN"",""ECPCER"",43,0)"
^XMB(3.9,25,2,5716,0)=" S ECPN=$S($P(ECEC,""~"",16)]"""":$P(ECEC,""~"",16),1:ECPS)"
^XMB(3.9,25,2,5717,0)="""RTN"",""ECPCER"",44,0)"
^XMB(3.9,25,2,5718,0)=" S ECU=$$GETPPRV^ECPRVMUT(ECFN,.ECUN),ECUN=$S(ECU:""UNKNOWN"",1:$P(ECUN,""^"",2))"
^XMB(3.9,25,2,5719,0)="""RTN"",""ECPCER"",45,0)"
^XMB(3.9,25,2,5720,0)=" S ECUN=$S(ECUN'=""UNKNOWN"":$P(ECUN,"","",2)_"" ""_$P(ECUN,"",""),1:""UNKNOWN"")"
^XMB(3.9,25,2,5721,0)="""RTN"",""ECPCER"",46,0)"
^XMB(3.9,25,2,5722,0)=" S ECDT=$$FMTE^XLFDT(ECDT)"
^XMB(3.9,25,2,5723,0)="""RTN"",""ECPCER"",47,0)"
^XMB(3.9,25,2,5724,0)=" ;get secondary diagnosis codes, ALB/JAM"
^XMB(3.9,25,2,5725,0)="""RTN"",""ECPCER"",48,0)"
^XMB(3.9,25,2,5726,0)=" S DXS=0,ECI=2 F  S DXS=$O(^ECH(ECFN,""DX"",DXS)) Q:'DXS  D"
^XMB(3.9,25,2,5727,0)="""RTN"",""ECPCER"",49,0)"
^XMB(3.9,25,2,5728,0)=" . S DXSIEN=+$G(^ECH(ECFN,""DX"",DXS,0)) I DXSIEN="""" Q"
^XMB(3.9,25,2,5729,0)="""RTN"",""ECPCER"",50,0)"
^XMB(3.9,25,2,5730,0)=" . S ECDXSN=$P($$ICDDX^ICDCODE(DXSIEN,$P(ECEC,""~"")),""^"",2) I ECDXSN="""" Q"
^XMB(3.9,25,2,5731,0)="""RTN"",""ECPCER"",51,0)"
^XMB(3.9,25,2,5732,0)=" . I $L($G(ECDXS(ECI)))+$L(ECDXSN)>52 S ECI=ECI+1"
^XMB(3.9,25,2,5733,0)="""RTN"",""ECPCER"",52,0)"
^XMB(3.9,25,2,5734,0)=" . I $G(ECDXS(ECI))="""" S ECDXS(ECI)=""Secondary Dx: """
^XMB(3.9,25,2,5735,0)="""RTN"",""ECPCER"",53,0)"
^XMB(3.9,25,2,5736,0)=" . S ECDXS(ECI)=ECDXS(ECI)_$S($L(ECDXS(ECI))=14:"""",1:"", "")_ECDXSN"
^XMB(3.9,25,2,5737,0)="""RTN"",""ECPCER"",54,0)"
^XMB(3.9,25,2,5738,0)=" S ECMOD="""" I $D(^ECH(ECFN,""PCE1"")) S ECMOD=^(""PCE1"")"
^XMB(3.9,25,2,5739,0)="""RTN"",""ECPCER"",55,0)"
^XMB(3.9,25,2,5740,0)="PRT W !,ECDT,?25,ECPN_"" (""_ECV_"")"",?78,ECUN,!"
^XMB(3.9,25,2,5741,0)="""RTN"",""ECPCER"",56,0)"
^XMB(3.9,25,2,5742,0)=" W $E(ECLN,1,22),?25,ECDN_"" (""_ECID_"")"",?78,ECCPT,!"
^XMB(3.9,25,2,5743,0)="""RTN"",""ECPCER"",57,0)"
^XMB(3.9,25,2,5744,0)=" W ?25,""Primary DX: "",ECDXN"
^XMB(3.9,25,2,5745,0)="""RTN"",""ECPCER"",58,0)"
^XMB(3.9,25,2,5746,0)=" ;ALB/JAM print CPT modifiers and secondary diagnosis code"
^XMB(3.9,25,2,5747,0)="""RTN"",""ECPCER"",59,0)"
^XMB(3.9,25,2,5748,0)=" F I=1:1 S MOD=$P(ECMOD,"";"",I) Q:MOD=""""  D  I ECOUT Q"
^XMB(3.9,25,2,5749,0)="""RTN"",""ECPCER"",60,0)"
^XMB(3.9,25,2,5750,0)=" . S MODESC=$$MODP^ICPTMOD(ECCPT,MOD,""E"",$P(ECEC,""~"")) I +MODESC'>0 Q"
^XMB(3.9,25,2,5751,0)="""RTN"",""ECPCER"",61,0)"
^XMB(3.9,25,2,5752,0)=" . W ?25,$S(I>1:$G(ECDXS(I)),1:""""),?79,""- "",MOD,"" "",$P(MODESC,""^"",2),!"
^XMB(3.9,25,2,5753,0)="""RTN"",""ECPCER"",62,0)"
^XMB(3.9,25,2,5754,0)=" . K ECDXS(I) I ($Y+3)>IOSL D PAGE I ECOUT Q"
^XMB(3.9,25,2,5755,0)="""RTN"",""ECPCER"",63,0)"
^XMB(3.9,25,2,5756,0)=" W:ECMOD="""" ! S DXS="""""
^XMB(3.9,25,2,5757,0)="""RTN"",""ECPCER"",64,0)"
^XMB(3.9,25,2,5758,0)=" F  S DXS=$O(ECDXS(DXS)) Q:DXS=""""  W ?25,ECDXS(DXS),!"
^XMB(3.9,25,2,5759,0)="""RTN"",""ECPCER"",65,0)"
^XMB(3.9,25,2,5760,0)=" K I,MOD,MODESC,ECI,DXS,DXSIEN,ECDXS,ECDXN,ECDXSN"
^XMB(3.9,25,2,5761,0)="""RTN"",""ECPCER"",66,0)"
^XMB(3.9,25,2,5762,0)=" Q"
^XMB(3.9,25,2,5763,0)="""RTN"",""ECPCEU"")"
^XMB(3.9,25,2,5764,0)="0^24^B21055303^B18844356"
^XMB(3.9,25,2,5765,0)="""RTN"",""ECPCEU"",1,0)"
^XMB(3.9,25,2,5766,0)="ECPCEU ;BIR/JPW-ECS to PCE Utilities ;7 Jan 97"
^XMB(3.9,25,2,5767,0)="""RTN"",""ECPCEU"",2,0)"
^XMB(3.9,25,2,5768,0)=" ;;2.0; EVENT CAPTURE ;**4,5,7,10,17,18,23,42,54,73,72**;8 May 96"
^XMB(3.9,25,2,5769,0)="""RTN"",""ECPCEU"",3,0)"
^XMB(3.9,25,2,5770,0)="CLIN ;check for active inactive clinic"
^XMB(3.9,25,2,5771,0)="""RTN"",""ECPCEU"",4,0)"
^XMB(3.9,25,2,5772,0)=" N ECCLDT"
^XMB(3.9,25,2,5773,0)="""RTN"",""ECPCEU"",5,0)"
^XMB(3.9,25,2,5774,0)=" I $L($G(ECDT))>6,+ECDT=ECDT S ECCLDT=ECDT"
^XMB(3.9,25,2,5775,0)="""RTN"",""ECPCEU"",6,0)"
^XMB(3.9,25,2,5776,0)=" I '$G(ECCLDT) S ECCLDT=DT"
^XMB(3.9,25,2,5777,0)="""RTN"",""ECPCEU"",7,0)"
^XMB(3.9,25,2,5778,0)=" K ECPCL"
^XMB(3.9,25,2,5779,0)="""RTN"",""ECPCEU"",8,0)"
^XMB(3.9,25,2,5780,0)=" I '$D(EC4) S ECPCL=0 Q"
^XMB(3.9,25,2,5781,0)="""RTN"",""ECPCEU"",9,0)"
^XMB(3.9,25,2,5782,0)=" I 'EC4 S ECPCL=0 Q"
^XMB(3.9,25,2,5783,0)="""RTN"",""ECPCEU"",10,0)"
^XMB(3.9,25,2,5784,0)=" I '$D(^SC(+EC4,""I"")) S ECPCL=1 Q"
^XMB(3.9,25,2,5785,0)="""RTN"",""ECPCEU"",11,0)"
^XMB(3.9,25,2,5786,0)=" S ECPCID=+$P(^SC(+EC4,""I""),""^""),ECPCRD=+$P(^(""I""),""^"",2)"
^XMB(3.9,25,2,5787,0)="""RTN"",""ECPCEU"",12,0)"
^XMB(3.9,25,2,5788,0)=" I ECPCID,ECPCID'>ECCLDT I 'ECPCRD!(ECPCRD>ECCLDT) S ECPCL=0 Q"
^XMB(3.9,25,2,5789,0)="""RTN"",""ECPCEU"",13,0)"
^XMB(3.9,25,2,5790,0)=" I ECPCID,ECPCRD,ECPCRD'>ECCLDT S ECPCL=1 Q"
^XMB(3.9,25,2,5791,0)="""RTN"",""ECPCEU"",14,0)"
^XMB(3.9,25,2,5792,0)=" I ECPCID,ECPCID>ECCLDT S ECPCL=1 Q"
^XMB(3.9,25,2,5793,0)="""RTN"",""ECPCEU"",15,0)"
^XMB(3.9,25,2,5794,0)=" S ECPCL=1"
^XMB(3.9,25,2,5795,0)="""RTN"",""ECPCEU"",16,0)"
^XMB(3.9,25,2,5796,0)=" K ECPCID,ECPCRD"
^XMB(3.9,25,2,5797,0)="""RTN"",""ECPCEU"",17,0)"
^XMB(3.9,25,2,5798,0)=" Q"
^XMB(3.9,25,2,5799,0)="""RTN"",""ECPCEU"",18,0)"
^XMB(3.9,25,2,5800,0)="NITE ;start nightly job"
^XMB(3.9,25,2,5801,0)="""RTN"",""ECPCEU"",19,0)"
^XMB(3.9,25,2,5802,0)=" K ^TMP(""ECPXAPI"",$J)"
^XMB(3.9,25,2,5803,0)="""RTN"",""ECPCEU"",20,0)"
^XMB(3.9,25,2,5804,0)=" D NOW^%DTC S ECCKDT=+$E(%,1,12)"
^XMB(3.9,25,2,5805,0)="""RTN"",""ECPCEU"",21,0)"
^XMB(3.9,25,2,5806,0)=" S ECPKG=$O(^DIC(9.4,""B"",""EVENT CAPTURE"",0)),ECS=""EVENT CAPTURE DATA"""
^XMB(3.9,25,2,5807,0)="""RTN"",""ECPCEU"",22,0)"
^XMB(3.9,25,2,5808,0)=" S ECJJ=0 F  S ECJJ=$O(^ECH(""AD"",ECJJ)) Q:'ECJJ  S ECJJ1=0 F  S ECJJ1=$O(^ECH(""AD"",ECJJ,ECJJ1)) Q:'ECJJ1  I $D(^ECH(ECJJ1,""PCE"")) D SET"
^XMB(3.9,25,2,5809,0)="""RTN"",""ECPCEU"",23,0)"
^XMB(3.9,25,2,5810,0)=" K DA,DIE,DR,EC4,EC725,ECAO,ECCPT,ECDT,ECDX,ECHL,ECID,ECIR,ECJJ,ECJJ1,ECL,ECNODE,ECPKG,ECPS,ECS,ECSC,ECV,ECVST,ECVV,ECZEC,ECMST,ECHNC,ECCV,ECDFAPT,CNT,ECPRVARY,ECPRV"
^XMB(3.9,25,2,5811,0)="""RTN"",""ECPCEU"",24,0)"
^XMB(3.9,25,2,5812,0)=" K %,%H,%I,ECCKDT"
^XMB(3.9,25,2,5813,0)="""RTN"",""ECPCEU"",25,0)"
^XMB(3.9,25,2,5814,0)=" K ^TMP(""ECPXAPI"",$J)"
^XMB(3.9,25,2,5815,0)="""RTN"",""ECPCEU"",26,0)"
^XMB(3.9,25,2,5816,0)=" Q"
^XMB(3.9,25,2,5817,0)="""RTN"",""ECPCEU"",27,0)"
^XMB(3.9,25,2,5818,0)="SET ;set variables"
^XMB(3.9,25,2,5819,0)="""RTN"",""ECPCEU"",28,0)"
^XMB(3.9,25,2,5820,0)=" S ECNODE=^ECH(ECJJ1,""PCE""),ECDT=$P(ECNODE,""~""),ECPS=$P(ECNODE,""~"",2),ECHL=$P(ECNODE,""~"",3),ECL=$P(ECNODE,""~"",4),ECID=$P(ECNODE,""~"",5),ECV=$P(ECNODE,""~"",9)"
^XMB(3.9,25,2,5821,0)="""RTN"",""ECPCEU"",29,0)"
^XMB(3.9,25,2,5822,0)=" S ECCPT=$P(ECNODE,""~"",10),ECDX=$P(ECNODE,""~"",11),ECAO=$P(ECNODE,""~"",12),ECIR=$P(ECNODE,""~"",13),ECZEC=$P(ECNODE,""~"",14),ECSC=$P(ECNODE,""~"",15),EC725=$P(ECNODE,""~"",16),ECELIG=$P(ECNODE,""~"",17),ECMST=$P(ECNODE,""~"",18)"
^XMB(3.9,25,2,5823,0)="""RTN"",""ECPCEU"",30,0)"
^XMB(3.9,25,2,5824,0)=" S ECHNC=$P(ECNODE,""~"",19),ECCV=$P(ECNODE,""~"",20)"
^XMB(3.9,25,2,5825,0)="""RTN"",""ECPCEU"",31,0)"
^XMB(3.9,25,2,5826,0)=" ; EC*2.0*73 next line added to get default appt type if defined"
^XMB(3.9,25,2,5827,0)="""RTN"",""ECPCEU"",32,0)"
^XMB(3.9,25,2,5828,0)=" S ECDFAPT="""" S:$D(^SC(ECHL,""AT"")) ECDFAPT=+$G(^SC(ECHL,""AT""))"
^XMB(3.9,25,2,5829,0)="""RTN"",""ECPCEU"",33,0)"
^XMB(3.9,25,2,5830,0)="TMP ;set ^TMP for PCE call"
^XMB(3.9,25,2,5831,0)="""RTN"",""ECPCEU"",34,0)"
^XMB(3.9,25,2,5832,0)="ENC S ^TMP(""ECPXAPI"",$J,""ENCOUNTER"",1,""ENC D/T"")=ECDT"
^XMB(3.9,25,2,5833,0)="""RTN"",""ECPCEU"",35,0)"
^XMB(3.9,25,2,5834,0)=" S ^TMP(""ECPXAPI"",$J,""ENCOUNTER"",1,""PATIENT"")=ECPS"
^XMB(3.9,25,2,5835,0)="""RTN"",""ECPCEU"",36,0)"
^XMB(3.9,25,2,5836,0)=" S ^TMP(""ECPXAPI"",$J,""ENCOUNTER"",1,""HOS LOC"")=ECHL"
^XMB(3.9,25,2,5837,0)="""RTN"",""ECPCEU"",37,0)"
^XMB(3.9,25,2,5838,0)=" S ^TMP(""ECPXAPI"",$J,""ENCOUNTER"",1,""INSTITUTION"")=ECL"
^XMB(3.9,25,2,5839,0)="""RTN"",""ECPCEU"",38,0)"
^XMB(3.9,25,2,5840,0)=" S ^TMP(""ECPXAPI"",$J,""ENCOUNTER"",1,""APPT"")=ECDFAPT  ; added EC*2.0*73"
^XMB(3.9,25,2,5841,0)="""RTN"",""ECPCEU"",39,0)"
^XMB(3.9,25,2,5842,0)=" S ^TMP(""ECPXAPI"",$J,""ENCOUNTER"",1,""SC"")=ECSC"
^XMB(3.9,25,2,5843,0)="""RTN"",""ECPCEU"",40,0)"
^XMB(3.9,25,2,5844,0)=" S ^TMP(""ECPXAPI"",$J,""ENCOUNTER"",1,""AO"")=ECAO"
^XMB(3.9,25,2,5845,0)="""RTN"",""ECPCEU"",41,0)"
^XMB(3.9,25,2,5846,0)=" S ^TMP(""ECPXAPI"",$J,""ENCOUNTER"",1,""IR"")=ECIR"
^XMB(3.9,25,2,5847,0)="""RTN"",""ECPCEU"",42,0)"
^XMB(3.9,25,2,5848,0)=" S ^TMP(""ECPXAPI"",$J,""ENCOUNTER"",1,""EC"")=ECZEC"
^XMB(3.9,25,2,5849,0)="""RTN"",""ECPCEU"",43,0)"
^XMB(3.9,25,2,5850,0)=" S ^TMP(""ECPXAPI"",$J,""ENCOUNTER"",1,""MST"")=ECMST"
^XMB(3.9,25,2,5851,0)="""RTN"",""ECPCEU"",44,0)"
^XMB(3.9,25,2,5852,0)=" S ^TMP(""ECPXAPI"",$J,""ENCOUNTER"",1,""HNC"")=ECHNC"
^XMB(3.9,25,2,5853,0)="""RTN"",""ECPCEU"",45,0)"
^XMB(3.9,25,2,5854,0)=" S ^TMP(""ECPXAPI"",$J,""ENCOUNTER"",1,""CV"")=ECCV"
^XMB(3.9,25,2,5855,0)="""RTN"",""ECPCEU"",46,0)"
^XMB(3.9,25,2,5856,0)=" S ^TMP(""ECPXAPI"",$J,""ENCOUNTER"",1,""SERVICE CATEGORY"")=""X"""
^XMB(3.9,25,2,5857,0)="""RTN"",""ECPCEU"",47,0)"
^XMB(3.9,25,2,5858,0)=" S ^TMP(""ECPXAPI"",$J,""ENCOUNTER"",1,""ENCOUNTER TYPE"")=""A"""
^XMB(3.9,25,2,5859,0)="""RTN"",""ECPCEU"",48,0)"
^XMB(3.9,25,2,5860,0)=" S ^TMP(""ECPXAPI"",$J,""ENCOUNTER"",1,""DSS ID"")=ECID"
^XMB(3.9,25,2,5861,0)="""RTN"",""ECPCEU"",49,0)"
^XMB(3.9,25,2,5862,0)=" S ^TMP(""ECPXAPI"",$J,""ENCOUNTER"",1,""CHECKOUT D/T"")=ECCKDT"
^XMB(3.9,25,2,5863,0)="""RTN"",""ECPCEU"",50,0)"
^XMB(3.9,25,2,5864,0)=" S ^TMP(""ECPXAPI"",$J,""ENCOUNTER"",1,""ELIGIBILITY"")=ECELIG"
^XMB(3.9,25,2,5865,0)="""RTN"",""ECPCEU"",51,0)"
^XMB(3.9,25,2,5866,0)="PROV ;Set providers in ^TMP(""ECPXAPI"",$J,""PROVIDER"",n,""NAME"")=provider"
^XMB(3.9,25,2,5867,0)="""RTN"",""ECPCEU"",52,0)"
^XMB(3.9,25,2,5868,0)=" K ECPRVARY S ECPRV=$$GETPRV^ECPRVMUT(ECJJ1,.ECPRVARY),ECI=0"
^XMB(3.9,25,2,5869,0)="""RTN"",""ECPCEU"",53,0)"
^XMB(3.9,25,2,5870,0)=" ;set primary provider in ^TMP global"
^XMB(3.9,25,2,5871,0)="""RTN"",""ECPCEU"",54,0)"
^XMB(3.9,25,2,5872,0)=" F  S ECI=$O(ECPRVARY(ECI)) Q:'ECI  I $P(ECPRVARY(ECI),U,3)=""P"" D  Q"
^XMB(3.9,25,2,5873,0)="""RTN"",""ECPCEU"",55,0)"
^XMB(3.9,25,2,5874,0)=" .S ^TMP(""ECPXAPI"",$J,""PROVIDER"",1,""NAME"")=$P(ECPRVARY(ECI),U)"
^XMB(3.9,25,2,5875,0)="""RTN"",""ECPCEU"",56,0)"
^XMB(3.9,25,2,5876,0)=" .S ^TMP(""ECPXAPI"",$J,""PROVIDER"",1,""PRIMARY"")=1"
^XMB(3.9,25,2,5877,0)="""RTN"",""ECPCEU"",57,0)"
^XMB(3.9,25,2,5878,0)=" .S ^TMP(""ECPXAPI"",$J,""PROCEDURE"",1,""ENC PROVIDER"")=$P(ECPRVARY(ECI),U)"
^XMB(3.9,25,2,5879,0)="""RTN"",""ECPCEU"",58,0)"
^XMB(3.9,25,2,5880,0)=" .K ECPRVARY(ECI)"
^XMB(3.9,25,2,5881,0)="""RTN"",""ECPCEU"",59,0)"
^XMB(3.9,25,2,5882,0)=" ;set secondary providers in ^TMP global"
^XMB(3.9,25,2,5883,0)="""RTN"",""ECPCEU"",60,0)"
^XMB(3.9,25,2,5884,0)=" S ECI=0,CNT=2 F  S ECI=$O(ECPRVARY(ECI)) Q:'ECI  D"
^XMB(3.9,25,2,5885,0)="""RTN"",""ECPCEU"",61,0)"
^XMB(3.9,25,2,5886,0)=" .S ^TMP(""ECPXAPI"",$J,""PROVIDER"",CNT,""NAME"")=$P(ECPRVARY(ECI),U),CNT=CNT+1"
^XMB(3.9,25,2,5887,0)="""RTN"",""ECPCEU"",62,0)"
^XMB(3.9,25,2,5888,0)=" I $O(^ECH(ECJJ1,""MOD"",0))'="""" S ECMODF=$$MOD^ECUTL(ECJJ1,""E"",.ECMOD) D"
^XMB(3.9,25,2,5889,0)="""RTN"",""ECPCEU"",63,0)"
^XMB(3.9,25,2,5890,0)=" . I ECMODF S MOD="""" F  S MOD=$O(ECMOD(MOD)) Q:MOD=""""  D "
^XMB(3.9,25,2,5891,0)="""RTN"",""ECPCEU"",64,0)"
^XMB(3.9,25,2,5892,0)=" . . S ^TMP(""ECPXAPI"",$J,""PROCEDURE"",1,""MODIFIERS"",MOD)="""""
^XMB(3.9,25,2,5893,0)="""RTN"",""ECPCEU"",65,0)"
^XMB(3.9,25,2,5894,0)="DX S ^TMP(""ECPXAPI"",$J,""DX/PL"",1,""DIAGNOSIS"")=ECDX"
^XMB(3.9,25,2,5895,0)="""RTN"",""ECPCEU"",66,0)"
^XMB(3.9,25,2,5896,0)=" S ^TMP(""ECPXAPI"",$J,""DX/PL"",1,""PRIMARY"")=1"
^XMB(3.9,25,2,5897,0)="""RTN"",""ECPCEU"",67,0)"
^XMB(3.9,25,2,5898,0)=" ;Set secondary diagnosis codes in ^TMP(""ECPXAPI"",$J,""DX/PL"",1,""DIAGNOSIS"",diagnosis"
^XMB(3.9,25,2,5899,0)="""RTN"",""ECPCEU"",68,0)"
^XMB(3.9,25,2,5900,0)=" S DXS=0 F ECI=2:1 S DXS=$O(^ECH(ECJJ1,""DX"",DXS)) Q:DXS=""""  D"
^XMB(3.9,25,2,5901,0)="""RTN"",""ECPCEU"",69,0)"
^XMB(3.9,25,2,5902,0)=" . S DXSIEN=$G(^ECH(ECJJ1,""DX"",DXS,0)) I DXSIEN="""" Q"
^XMB(3.9,25,2,5903,0)="""RTN"",""ECPCEU"",70,0)"
^XMB(3.9,25,2,5904,0)=" . S ^TMP(""ECPXAPI"",$J,""DX/PL"",ECI,""DIAGNOSIS"")=DXSIEN"
^XMB(3.9,25,2,5905,0)="""RTN"",""ECPCEU"",71,0)"
^XMB(3.9,25,2,5906,0)="PROC S ^TMP(""ECPXAPI"",$J,""PROCEDURE"",1,""EVENT D/T"")=ECDT"
^XMB(3.9,25,2,5907,0)="""RTN"",""ECPCEU"",72,0)"
^XMB(3.9,25,2,5908,0)=" S ^TMP(""ECPXAPI"",$J,""PROCEDURE"",1,""PROCEDURE"")=ECCPT"
^XMB(3.9,25,2,5909,0)="""RTN"",""ECPCEU"",73,0)"
^XMB(3.9,25,2,5910,0)=" S ^TMP(""ECPXAPI"",$J,""PROCEDURE"",1,""QTY"")=ECV"
^XMB(3.9,25,2,5911,0)="""RTN"",""ECPCEU"",74,0)"
^XMB(3.9,25,2,5912,0)=" S:EC725]"""" ^TMP(""ECPXAPI"",$J,""PROCEDURE"",1,""NARRATIVE"")=EC725"
^XMB(3.9,25,2,5913,0)="""RTN"",""ECPCEU"",75,0)"
^XMB(3.9,25,2,5914,0)="MOD ;Set modifiers in ^TMP(""ECPXAPI"",$J,""PROCEDURE"",1,""MODIFIERS"",modifier"
^XMB(3.9,25,2,5915,0)="""RTN"",""ECPCEU"",76,0)"
^XMB(3.9,25,2,5916,0)=" I $O(^ECH(ECJJ1,""MOD"",0))'="""" S ECMODF=$$MOD^ECUTL(ECJJ1,""E"",.ECMOD) D"
^XMB(3.9,25,2,5917,0)="""RTN"",""ECPCEU"",77,0)"
^XMB(3.9,25,2,5918,0)=" . I ECMODF S MOD="""" F  S MOD=$O(ECMOD(MOD)) Q:MOD=""""  D "
^XMB(3.9,25,2,5919,0)="""RTN"",""ECPCEU"",78,0)"
^XMB(3.9,25,2,5920,0)=" . . S ^TMP(""ECPXAPI"",$J,""PROCEDURE"",1,""MODIFIERS"",MOD)="""""
^XMB(3.9,25,2,5921,0)="""RTN"",""ECPCEU"",79,0)"
^XMB(3.9,25,2,5922,0)="D2PCE S VALQUIET=1,ECVV=$$DATA2PCE^PXAPI(""^TMP(""""ECPXAPI"""",$J)"",ECPKG,ECS,.ECVST)"
^XMB(3.9,25,2,5923,0)="""RTN"",""ECPCEU"",80,0)"
^XMB(3.9,25,2,5924,0)=" I ECVST K DA,DIE,DR S DA=ECJJ1,DIE=721,DR=""25////1;31///@;28////""_ECVST_"";32////""_ECCKDT D ^DIE K DA,DIE,DR"
^XMB(3.9,25,2,5925,0)="""RTN"",""ECPCEU"",81,0)"
^XMB(3.9,25,2,5926,0)=" K ^TMP(""ECPXAPI"",$J),ECVST,VALQUIET,MOD,ECMODF,ECMOD,ECI,DXSIEN,DXS"
^XMB(3.9,25,2,5927,0)="""RTN"",""ECPCEU"",82,0)"
^XMB(3.9,25,2,5928,0)=" K DA,D0,DIE,DR,EC725,ECAO,ECCPT,ECDT,ECDX,ECHL,ECID,ECIR,ECNODE,ECPS,ECSC,ECV,ECVV,ECZEC,ECELIG,ECMST,ECHNC,ECCV,CNT,ECPRVARY,ECPRV"
^XMB(3.9,25,2,5929,0)="""RTN"",""ECPCEU"",83,0)"
^XMB(3.9,25,2,5930,0)=" Q"
^XMB(3.9,25,2,5931,0)="""RTN"",""ECPROV3"")"
^XMB(3.9,25,2,5932,0)="0^9^B34020272^B33084201"
^XMB(3.9,25,2,5933,0)="""RTN"",""ECPROV3"",1,0)"
^XMB(3.9,25,2,5934,0)="ECPROV3 ;BIR/MAM,JPW-Event Capture Provider Summary (cont'd) ;7 May 96"
^XMB(3.9,25,2,5935,0)="""RTN"",""ECPROV3"",2,0)"
^XMB(3.9,25,2,5936,0)=" ;;2.0; EVENT CAPTURE ;**5,8,18,29,47,56,63,72**;8 May 96"
^XMB(3.9,25,2,5937,0)="""RTN"",""ECPROV3"",3,0)"
^XMB(3.9,25,2,5938,0)=" ; This routine is used when printing the report for"
^XMB(3.9,25,2,5939,0)="""RTN"",""ECPROV3"",4,0)"
^XMB(3.9,25,2,5940,0)=" ; all ACCESSIBLE DSS Units"
^XMB(3.9,25,2,5941,0)="""RTN"",""ECPROV3"",5,0)"
^XMB(3.9,25,2,5942,0)=" ;JAM/3/7/03, This routine now combines ECPROV3, ECPROV4 and ECPROV5"
^XMB(3.9,25,2,5943,0)="""RTN"",""ECPROV3"",6,0)"
^XMB(3.9,25,2,5944,0)=" ;"
^XMB(3.9,25,2,5945,0)="""RTN"",""ECPROV3"",7,0)"
^XMB(3.9,25,2,5946,0)=" S %H=$H D YX^%DTC S ECRDT=Y"
^XMB(3.9,25,2,5947,0)="""RTN"",""ECPROV3"",8,0)"
^XMB(3.9,25,2,5948,0)=" I ECL D  D LOC,PRINT Q"
^XMB(3.9,25,2,5949,0)="""RTN"",""ECPROV3"",9,0)"
^XMB(3.9,25,2,5950,0)=" .I ECPRV=1 D UNIT Q"
^XMB(3.9,25,2,5951,0)="""RTN"",""ECPROV3"",10,0)"
^XMB(3.9,25,2,5952,0)=" .I 'ECPRV S ECC=+$P(^ECD(ECD,0),U,11) Q"
^XMB(3.9,25,2,5953,0)="""RTN"",""ECPROV3"",11,0)"
^XMB(3.9,25,2,5954,0)=" S ECL=0 D"
^XMB(3.9,25,2,5955,0)="""RTN"",""ECPROV3"",12,0)"
^XMB(3.9,25,2,5956,0)=" .F I=0:0 S ECL=$O(^ECH(""ADT"",ECL)) Q:'ECL  D"
^XMB(3.9,25,2,5957,0)="""RTN"",""ECPROV3"",13,0)"
^XMB(3.9,25,2,5958,0)=" ..S ECLN=$P(^DIC(4,ECL,0),""^"") I ECPRV D UNIT"
^XMB(3.9,25,2,5959,0)="""RTN"",""ECPROV3"",14,0)"
^XMB(3.9,25,2,5960,0)=" ..I 'ECPRV S ECC=+$P(^ECD(ECD,0),U,11)"
^XMB(3.9,25,2,5961,0)="""RTN"",""ECPROV3"",15,0)"
^XMB(3.9,25,2,5962,0)=" ..D LOC"
^XMB(3.9,25,2,5963,0)="""RTN"",""ECPROV3"",16,0)"
^XMB(3.9,25,2,5964,0)="PRINT ;Changes below were made by VMP to correct NOIS ATG-1003-32545"
^XMB(3.9,25,2,5965,0)="""RTN"",""ECPROV3"",17,0)"
^XMB(3.9,25,2,5966,0)=" S (ECLN,ECPN)=0,ECCN="""""
^XMB(3.9,25,2,5967,0)="""RTN"",""ECPROV3"",18,0)"
^XMB(3.9,25,2,5968,0)=" F I=0:0 S ECLN=$O(^TMP($J,ECLN)) Q:ECLN=""""!(ECOUT)!(ECLN[""^"")  D"
^XMB(3.9,25,2,5969,0)="""RTN"",""ECPROV3"",19,0)"
^XMB(3.9,25,2,5970,0)=" .I 'ECPRV D CATS Q"
^XMB(3.9,25,2,5971,0)="""RTN"",""ECPROV3"",20,0)"
^XMB(3.9,25,2,5972,0)=" . S ECDN="""" D NOUNIT F I=0:0 S ECDN=$O(^TMP($J,ECLN,ECDN)) Q:ECDN=""""!(ECOUT)  D CATS"
^XMB(3.9,25,2,5973,0)="""RTN"",""ECPROV3"",21,0)"
^XMB(3.9,25,2,5974,0)=" K ECPNAM"
^XMB(3.9,25,2,5975,0)="""RTN"",""ECPROV3"",22,0)"
^XMB(3.9,25,2,5976,0)=" Q"
^XMB(3.9,25,2,5977,0)="""RTN"",""ECPROV3"",23,0)"
^XMB(3.9,25,2,5978,0)="CATS ; continue looping"
^XMB(3.9,25,2,5979,0)="""RTN"",""ECPROV3"",24,0)"
^XMB(3.9,25,2,5980,0)=" I $O(^TMP($J,ECLN,ECDN,""""))']"""" D PAGE W !!!,?12,""NO PROCEDURES"" S ECPG=1 Q"
^XMB(3.9,25,2,5981,0)="""RTN"",""ECPROV3"",25,0)"
^XMB(3.9,25,2,5982,0)=" D PAGE Q:ECOUT  S ECPG=1,ECUN=0 F I=0:0 S ECUN=$O(^TMP($J,ECLN,ECDN,ECUN)) Q:ECUN=""""!(ECOUT)  S ECINZ=""^""_$O(^(ECUN,0)) D:$Y+7>IOSL PAGE Q:ECOUT  D PRO"
^XMB(3.9,25,2,5983,0)="""RTN"",""ECPROV3"",26,0)"
^XMB(3.9,25,2,5984,0)=" Q"
^XMB(3.9,25,2,5985,0)="""RTN"",""ECPROV3"",27,0)"
^XMB(3.9,25,2,5986,0)="PRO I $Y+10>IOSL D PAGE I ECOUT Q"
^XMB(3.9,25,2,5987,0)="""RTN"",""ECPROV3"",28,0)"
^XMB(3.9,25,2,5988,0)=" W !!,ECUN S ECCN=0 F I=0:0 S ECCN=$O(^TMP($J,ECINZ,ECCN)) D:ECCN="""" TOTP Q:ECCN=""""!(ECOUT)  D MORE"
^XMB(3.9,25,2,5989,0)="""RTN"",""ECPROV3"",29,0)"
^XMB(3.9,25,2,5990,0)=" Q"
^XMB(3.9,25,2,5991,0)="""RTN"",""ECPROV3"",30,0)"
^XMB(3.9,25,2,5992,0)="MORE ;"
^XMB(3.9,25,2,5993,0)="""RTN"",""ECPROV3"",31,0)"
^XMB(3.9,25,2,5994,0)=" ;ALB/ESD - Loop through to get procedure reason and print"
^XMB(3.9,25,2,5995,0)="""RTN"",""ECPROV3"",32,0)"
^XMB(3.9,25,2,5996,0)=" W !,?3,ECCN S ECPN=0,(ECPRSN,ECPI)="""""
^XMB(3.9,25,2,5997,0)="""RTN"",""ECPROV3"",33,0)"
^XMB(3.9,25,2,5998,0)=" F  S ECPN=$O(^TMP($J,ECINZ,ECCN,ECPN)) Q:ECPN=""""!(ECOUT)  S ECUSER=1 D:$Y+7>IOSL PAGE Q:ECOUT  K ECUSER F  S ECPRSN=$O(^TMP($J,ECINZ,ECCN,ECPN,ECPRSN)) Q:ECPRSN=""""!(ECOUT)  DO"
^XMB(3.9,25,2,5999,0)="""RTN"",""ECPROV3"",34,0)"
^XMB(3.9,25,2,6000,0)=" .S ECCPT=$S($P(ECPN,""~"",3)=""I"":$P(ECPN,""~"",2),1:$P($G(^EC(725,$P(ECPN,""~"",2),0)),""^"",5))"
^XMB(3.9,25,2,6001,0)="""RTN"",""ECPROV3"",35,0)"
^XMB(3.9,25,2,6002,0)=" .I ECCPT'="""" D"
^XMB(3.9,25,2,6003,0)="""RTN"",""ECPROV3"",36,0)"
^XMB(3.9,25,2,6004,0)=" ..;Changes made by VMP to correct NOIS ATG-1003-32545"
^XMB(3.9,25,2,6005,0)="""RTN"",""ECPROV3"",37,0)"
^XMB(3.9,25,2,6006,0)=" ..;use end date/date range to get CPT description; CTD project."
^XMB(3.9,25,2,6007,0)="""RTN"",""ECPROV3"",38,0)"
^XMB(3.9,25,2,6008,0)=" ..S ECPI=$$CPT^ICPTCOD(ECCPT,$P(ECED,""."")),ECCPT=$P(ECPI,""^"",2)"
^XMB(3.9,25,2,6009,0)="""RTN"",""ECPROV3"",39,0)"
^XMB(3.9,25,2,6010,0)=" .S EC725="""" I $P(ECPN,""~"",3)=""E"" S EC725=$G(^EC(725,+$P(ECPN,""~"",2),0))"
^XMB(3.9,25,2,6011,0)="""RTN"",""ECPROV3"",40,0)"
^XMB(3.9,25,2,6012,0)=" .S ECPNAM=$S($P(ECPN,""~"",3)=""E"":$P(EC725,""^"",2)_"" ""_$P(EC725,""^""),$P(ECPN,""~"",3)=""I"":$P(ECPI,""^"",3),1:""UNKNOWN"")"
^XMB(3.9,25,2,6013,0)="""RTN"",""ECPROV3"",41,0)"
^XMB(3.9,25,2,6014,0)=" .S ECPSY=$P(ECPN,""~"",4),ECPSYN="""""
^XMB(3.9,25,2,6015,0)="""RTN"",""ECPROV3"",42,0)"
^XMB(3.9,25,2,6016,0)=" .I ECPSY'="""" S ECPSYN=$P($G(^ECJ(ECPSY,""PRO"")),""^"",2)"
^XMB(3.9,25,2,6017,0)="""RTN"",""ECPROV3"",43,0)"
^XMB(3.9,25,2,6018,0)=" .W !,?6,$J(ECCPT_"" "",6),$E(ECPNAM,1,40)"
^XMB(3.9,25,2,6019,0)="""RTN"",""ECPROV3"",44,0)"
^XMB(3.9,25,2,6020,0)=" .W:ECPSYN'="""" "" ["",$E(ECPSYN,1,25),""]"""
^XMB(3.9,25,2,6021,0)="""RTN"",""ECPROV3"",45,0)"
^XMB(3.9,25,2,6022,0)=" .W:$D(ECRY) ?70,ECPRSN"
^XMB(3.9,25,2,6023,0)="""RTN"",""ECPROV3"",46,0)"
^XMB(3.9,25,2,6024,0)=" .W ?105,$J(^TMP($J,ECINZ,ECCN,ECPN,ECPRSN),6)"
^XMB(3.9,25,2,6025,0)="""RTN"",""ECPROV3"",47,0)"
^XMB(3.9,25,2,6026,0)=" .;print CPT procedure modifiers"
^XMB(3.9,25,2,6027,0)="""RTN"",""ECPROV3"",48,0)"
^XMB(3.9,25,2,6028,0)=" .S IEN="""""
^XMB(3.9,25,2,6029,0)="""RTN"",""ECPROV3"",49,0)"
^XMB(3.9,25,2,6030,0)=" .F  S IEN=$O(^TMP($J,ECINZ,ECCN,ECPN,ECPRSN,""MOD"",IEN)) Q:IEN=""""  D  I ECOUT Q"
^XMB(3.9,25,2,6031,0)="""RTN"",""ECPROV3"",50,0)"
^XMB(3.9,25,2,6032,0)=" ..;used end date to get description,CTD project"
^XMB(3.9,25,2,6033,0)="""RTN"",""ECPROV3"",51,0)"
^XMB(3.9,25,2,6034,0)=" ..S MODI=$$MOD^ICPTMOD(IEN,""I"",$P(ECED,"".""))"
^XMB(3.9,25,2,6035,0)="""RTN"",""ECPROV3"",52,0)"
^XMB(3.9,25,2,6036,0)=" ..S MOD=$P(MODI,""^"",2) I MOD="""" K MODI Q"
^XMB(3.9,25,2,6037,0)="""RTN"",""ECPROV3"",53,0)"
^XMB(3.9,25,2,6038,0)=" ..S MODESC=$P(MODI,""^"",3) I MODESC="""" S MODESC=""UNKNOWN"""
^XMB(3.9,25,2,6039,0)="""RTN"",""ECPROV3"",54,0)"
^XMB(3.9,25,2,6040,0)=" ..S MODAMT=^TMP($J,ECINZ,ECCN,ECPN,ECPRSN,""MOD"",IEN)"
^XMB(3.9,25,2,6041,0)="""RTN"",""ECPROV3"",55,0)"
^XMB(3.9,25,2,6042,0)=" ..W !?10,""- "",MOD,"" "",MODESC,"" ("",MODAMT,"")"""
^XMB(3.9,25,2,6043,0)="""RTN"",""ECPROV3"",56,0)"
^XMB(3.9,25,2,6044,0)=" ..I ($Y+3)>IOSL D PAGE"
^XMB(3.9,25,2,6045,0)="""RTN"",""ECPROV3"",57,0)"
^XMB(3.9,25,2,6046,0)=" .K MODESC,MOD,IEN,MODAMT,MODI,EC725"
^XMB(3.9,25,2,6047,0)="""RTN"",""ECPROV3"",58,0)"
^XMB(3.9,25,2,6048,0)=" Q"
^XMB(3.9,25,2,6049,0)="""RTN"",""ECPROV3"",59,0)"
^XMB(3.9,25,2,6050,0)="LOC S (ECDFN,ECOUT,^TMP($J,ECLN))=0"
^XMB(3.9,25,2,6051,0)="""RTN"",""ECPROV3"",60,0)"
^XMB(3.9,25,2,6052,0)=" F I=0:0 S ECDFN=$O(^ECH(""ADT"",ECL,ECDFN)) Q:'ECDFN  D"
^XMB(3.9,25,2,6053,0)="""RTN"",""ECPROV3"",61,0)"
^XMB(3.9,25,2,6054,0)=" .I ECPRV D GECD Q"
^XMB(3.9,25,2,6055,0)="""RTN"",""ECPROV3"",62,0)"
^XMB(3.9,25,2,6056,0)=" .D GMM"
^XMB(3.9,25,2,6057,0)="""RTN"",""ECPROV3"",63,0)"
^XMB(3.9,25,2,6058,0)=" Q"
^XMB(3.9,25,2,6059,0)="""RTN"",""ECPROV3"",64,0)"
^XMB(3.9,25,2,6060,0)="GECD S ECD=0 F I=0:0 S ECD=$O(^ECH(""ADT"",ECL,ECDFN,ECD)) Q:'ECD  D GMM"
^XMB(3.9,25,2,6061,0)="""RTN"",""ECPROV3"",65,0)"
^XMB(3.9,25,2,6062,0)=" Q"
^XMB(3.9,25,2,6063,0)="""RTN"",""ECPROV3"",66,0)"
^XMB(3.9,25,2,6064,0)="GMM S MM=ECSD F I=0:0 S MM=$O(^ECH(""ADT"",ECL,ECDFN,ECD,MM)) Q:'MM!(MM>ECED)  D LOC1"
^XMB(3.9,25,2,6065,0)="""RTN"",""ECPROV3"",67,0)"
^XMB(3.9,25,2,6066,0)=" Q"
^XMB(3.9,25,2,6067,0)="""RTN"",""ECPROV3"",68,0)"
^XMB(3.9,25,2,6068,0)="LOC1 S ECFN=0 F I=0:0 S ECFN=$O(^ECH(""ADT"",ECL,ECDFN,ECD,MM,ECFN)) Q:'ECFN  D UTL"
^XMB(3.9,25,2,6069,0)="""RTN"",""ECPROV3"",69,0)"
^XMB(3.9,25,2,6070,0)=" Q"
^XMB(3.9,25,2,6071,0)="""RTN"",""ECPROV3"",70,0)"
^XMB(3.9,25,2,6072,0)="UTL ; set ^TMP($J,""ECPROV"""
^XMB(3.9,25,2,6073,0)="""RTN"",""ECPROV3"",71,0)"
^XMB(3.9,25,2,6074,0)=" Q:'$D(^ECH(+ECFN,0))!(+$G(ECD)'=$P($G(^ECH(+ECFN,0)),""^"",7))"
^XMB(3.9,25,2,6075,0)="""RTN"",""ECPROV3"",72,0)"
^XMB(3.9,25,2,6076,0)=" S ECEC=^ECH(+ECFN,0),ECV=+$P(ECEC,""^"",10),ECC=+$P(ECEC,""^"",8)"
^XMB(3.9,25,2,6077,0)="""RTN"",""ECPROV3"",73,0)"
^XMB(3.9,25,2,6078,0)=" ;S ECP=$P(ECEC,""^"",9),ECU=+$P(ECEC,""^"",11)"
^XMB(3.9,25,2,6079,0)="""RTN"",""ECPROV3"",74,0)"
^XMB(3.9,25,2,6080,0)=" S ECP=$P(ECEC,""^"",9),ECU=$$GETPPRV^ECPRVMUT(ECFN,.ECUN),ECUN=$S(ECU:""UNKNOWN"",1:$P(ECUN,""^"",2))"
^XMB(3.9,25,2,6081,0)="""RTN"",""ECPROV3"",75,0)"
^XMB(3.9,25,2,6082,0)=" S ECCN=$S($P($G(^EC(726,ECC,0)),""^"")]"""":$P(^(0),""^""),1:""None"")"
^XMB(3.9,25,2,6083,0)="""RTN"",""ECPROV3"",76,0)"
^XMB(3.9,25,2,6084,0)=" Q:ECP']"""""
^XMB(3.9,25,2,6085,0)="""RTN"",""ECPROV3"",77,0)"
^XMB(3.9,25,2,6086,0)=" S ECD=+$P(ECEC,""^"",7)"
^XMB(3.9,25,2,6087,0)="""RTN"",""ECPROV3"",78,0)"
^XMB(3.9,25,2,6088,0)=" I ECPRV=1 Q:'$D(ECDU(ECD))  S ECDN=ECDU(ECD)"
^XMB(3.9,25,2,6089,0)="""RTN"",""ECPROV3"",79,0)"
^XMB(3.9,25,2,6090,0)=" I ECPRV=2 S ECDN=$S($P($G(^ECD(ECD,0)),""^"")]"""":$P(^(0),""^""),1:""UNKNOWN"")"
^XMB(3.9,25,2,6091,0)="""RTN"",""ECPROV3"",80,0)"
^XMB(3.9,25,2,6092,0)=" ;S ECUN=$S($P($G(^VA(200,ECU,0)),""^"")]"""":$P(^(0),""^""),1:""UNKNOWN"")"
^XMB(3.9,25,2,6093,0)="""RTN"",""ECPROV3"",81,0)"
^XMB(3.9,25,2,6094,0)=" S ECPSY=+$O(^ECJ(""AP"",ECL,ECD,ECC,ECP,"""")),ECPN="""""
^XMB(3.9,25,2,6095,0)="""RTN"",""ECPROV3"",82,0)"
^XMB(3.9,25,2,6096,0)=" S ECFILE=$P(ECP,"";"",2),ECFILE=$S($E(ECFILE)=""I"":81,$E(ECFILE)=""E"":725,1:""UNKNOWN"")"
^XMB(3.9,25,2,6097,0)="""RTN"",""ECPROV3"",83,0)"
^XMB(3.9,25,2,6098,0)=" I ECFILE=81 S ECPN=$P($$CPT^ICPTCOD(+ECP,$P(ECED,""."")),""^"",3)"
^XMB(3.9,25,2,6099,0)="""RTN"",""ECPROV3"",84,0)"
^XMB(3.9,25,2,6100,0)=" I ECFILE=725 S ECPN=$P($G(^EC(725,+ECP,0)),""^"")"
^XMB(3.9,25,2,6101,0)="""RTN"",""ECPROV3"",85,0)"
^XMB(3.9,25,2,6102,0)=" I ECFILE=""UNKNOWN""!(ECPN="""") S ECPN=""UNKNOWN"""
^XMB(3.9,25,2,6103,0)="""RTN"",""ECPROV3"",86,0)"
^XMB(3.9,25,2,6104,0)=" ;Changes made by VMP to correct NOIS SDC-1003-60397"
^XMB(3.9,25,2,6105,0)="""RTN"",""ECPROV3"",87,0)"
^XMB(3.9,25,2,6106,0)=" S ECPN=$E(ECPN,1,5)_""~""_$P(ECP,"";"")_""~""_$E($P(ECP,"";"",2))_""~""_ECPSY"
^XMB(3.9,25,2,6107,0)="""RTN"",""ECPROV3"",88,0)"
^XMB(3.9,25,2,6108,0)=" ;Get Procedure CPT modifiers"
^XMB(3.9,25,2,6109,0)="""RTN"",""ECPROV3"",89,0)"
^XMB(3.9,25,2,6110,0)=" S ECMODF=0 K ECMOD"
^XMB(3.9,25,2,6111,0)="""RTN"",""ECPROV3"",90,0)"
^XMB(3.9,25,2,6112,0)=" I $O(^ECH(+ECFN,""MOD"",0))'="""" S ECMODF=$$MOD^ECUTL(+ECFN,""I"",.ECMOD)"
^XMB(3.9,25,2,6113,0)="""RTN"",""ECPROV3"",91,0)"
^XMB(3.9,25,2,6114,0)=" ;"
^XMB(3.9,25,2,6115,0)="""RTN"",""ECPROV3"",92,0)"
^XMB(3.9,25,2,6116,0)=" ;ALB/ESD - Get procedure reason from EC Patient file (#721) record"
^XMB(3.9,25,2,6117,0)="""RTN"",""ECPROV3"",93,0)"
^XMB(3.9,25,2,6118,0)=" N ECLNK"
^XMB(3.9,25,2,6119,0)="""RTN"",""ECPROV3"",94,0)"
^XMB(3.9,25,2,6120,0)=" S ECPRSN="""""
^XMB(3.9,25,2,6121,0)="""RTN"",""ECPROV3"",95,0)"
^XMB(3.9,25,2,6122,0)=" S ECLNK=+$P(ECEC,""^"",23)"
^XMB(3.9,25,2,6123,0)="""RTN"",""ECPROV3"",96,0)"
^XMB(3.9,25,2,6124,0)=" I +ECLNK>0 DO"
^XMB(3.9,25,2,6125,0)="""RTN"",""ECPROV3"",97,0)"
^XMB(3.9,25,2,6126,0)=" .S ECPRSN=$P($G(^ECL(ECLNK,0)),""^"",1)"
^XMB(3.9,25,2,6127,0)="""RTN"",""ECPROV3"",98,0)"
^XMB(3.9,25,2,6128,0)=" .S:+ECPRSN'>0 ECPRSN=""REASON NOT DEFINED"""
^XMB(3.9,25,2,6129,0)="""RTN"",""ECPROV3"",99,0)"
^XMB(3.9,25,2,6130,0)=" .S:+ECPRSN>0 ECPRSN=$P(^ECR(ECPRSN,0),""^"",1)"
^XMB(3.9,25,2,6131,0)="""RTN"",""ECPROV3"",100,0)"
^XMB(3.9,25,2,6132,0)=" S:+ECLNK'>0 ECPRSN=""REASON NOT DEFINED"""
^XMB(3.9,25,2,6133,0)="""RTN"",""ECPROV3"",101,0)"
^XMB(3.9,25,2,6134,0)=" I '$D(ECRY) S ECPRSN=""REASON NOT DEFINED"" ;group proc reason-not print"
^XMB(3.9,25,2,6135,0)="""RTN"",""ECPROV3"",102,0)"
^XMB(3.9,25,2,6136,0)=" I '$D(^TMP($J,ECLN,ECDN,ECUN)) S ECINC=ECINC+1,ECINZ=""^""_ECINC,^(ECUN)=0,^(ECUN,ECINC)=0"
^XMB(3.9,25,2,6137,0)="""RTN"",""ECPROV3"",103,0)"
^XMB(3.9,25,2,6138,0)=" S ECINZ=""^""_$O(^TMP($J,ECLN,ECDN,ECUN,0))"
^XMB(3.9,25,2,6139,0)="""RTN"",""ECPROV3"",104,0)"
^XMB(3.9,25,2,6140,0)=" I '$D(^TMP($J,ECINZ,ECCN)) S ^TMP($J,ECINZ,ECCN)=0"
^XMB(3.9,25,2,6141,0)="""RTN"",""ECPROV3"",105,0)"
^XMB(3.9,25,2,6142,0)=" ;"
^XMB(3.9,25,2,6143,0)="""RTN"",""ECPROV3"",106,0)"
^XMB(3.9,25,2,6144,0)=" ;ALB/ESD - Add procedure reason to ^TMP array"
^XMB(3.9,25,2,6145,0)="""RTN"",""ECPROV3"",107,0)"
^XMB(3.9,25,2,6146,0)=" I '$D(^TMP($J,ECINZ,ECCN,ECPN,ECPRSN)) S ^TMP($J,ECINZ,ECCN,ECPN,ECPRSN)=0"
^XMB(3.9,25,2,6147,0)="""RTN"",""ECPROV3"",108,0)"
^XMB(3.9,25,2,6148,0)=" S ^TMP($J,ECLN)=^TMP($J,ECLN)+ECV"
^XMB(3.9,25,2,6149,0)="""RTN"",""ECPROV3"",109,0)"
^XMB(3.9,25,2,6150,0)=" S ^TMP($J,ECLN,ECDN,ECUN)=^TMP($J,ECLN,ECDN,ECUN)+ECV"
^XMB(3.9,25,2,6151,0)="""RTN"",""ECPROV3"",110,0)"
^XMB(3.9,25,2,6152,0)=" S ^TMP($J,ECINZ,ECCN)=^TMP($J,ECINZ,ECCN)+ECV"
^XMB(3.9,25,2,6153,0)="""RTN"",""ECPROV3"",111,0)"
^XMB(3.9,25,2,6154,0)=" ;"
^XMB(3.9,25,2,6155,0)="""RTN"",""ECPROV3"",112,0)"
^XMB(3.9,25,2,6156,0)=" ;ALB/ESD - Add procedure reason to ^TMP array"
^XMB(3.9,25,2,6157,0)="""RTN"",""ECPROV3"",113,0)"
^XMB(3.9,25,2,6158,0)=" S ^TMP($J,ECINZ,ECCN,ECPN,ECPRSN)=^TMP($J,ECINZ,ECCN,ECPN,ECPRSN)+ECV"
^XMB(3.9,25,2,6159,0)="""RTN"",""ECPROV3"",114,0)"
^XMB(3.9,25,2,6160,0)=" ;ALB/JAM - Add Procedure CPT modifier to ^TMP array"
^XMB(3.9,25,2,6161,0)="""RTN"",""ECPROV3"",115,0)"
^XMB(3.9,25,2,6162,0)=" S MOD="""" F  S MOD=$O(ECMOD(MOD)) Q:MOD=""""  D"
^XMB(3.9,25,2,6163,0)="""RTN"",""ECPROV3"",116,0)"
^XMB(3.9,25,2,6164,0)=" . S ^TMP($J,ECINZ,ECCN,ECPN,ECPRSN,""MOD"",MOD)=$G(^TMP($J,ECINZ,ECCN,ECPN,ECPRSN,""MOD"",MOD))+ECV"
^XMB(3.9,25,2,6165,0)="""RTN"",""ECPROV3"",117,0)"
^XMB(3.9,25,2,6166,0)=" Q"
^XMB(3.9,25,2,6167,0)="""RTN"",""ECPROV3"",118,0)"
^XMB(3.9,25,2,6168,0)="PAGE ; end of page"
^XMB(3.9,25,2,6169,0)="""RTN"",""ECPROV3"",119,0)"
^XMB(3.9,25,2,6170,0)=" I $D(ECPG),$E(IOST,1,2)=""C-"" W !!,""Press <RET> to continue, or ^ to quit  "" R X:DTIME I '$T!(X=""^"") S ECOUT=1 Q"
^XMB(3.9,25,2,6171,0)="""RTN"",""ECPROV3"",120,0)"
^XMB(3.9,25,2,6172,0)="HDR ; print heading"
^XMB(3.9,25,2,6173,0)="""RTN"",""ECPROV3"",121,0)"
^XMB(3.9,25,2,6174,0)=" W:$Y @IOF W !!,?49,""EVENT CAPTURE PROVIDER SUMMARY"",!,?49,""FROM ""_$P(ECDATE,""^"")_""  TO ""_$P(ECDATE,""^"",2),!,?49,""Run Date : "",ECRDT"
^XMB(3.9,25,2,6175,0)="""RTN"",""ECPROV3"",122,0)"
^XMB(3.9,25,2,6176,0)=" W !!?3,""Category"",!,?6,""CPT Code"",?20,""Description"""
^XMB(3.9,25,2,6177,0)="""RTN"",""ECPROV3"",123,0)"
^XMB(3.9,25,2,6178,0)=" W:$D(ECRY) ?70,""Procedure Reason"""
^XMB(3.9,25,2,6179,0)="""RTN"",""ECPROV3"",124,0)"
^XMB(3.9,25,2,6180,0)=" W ?105,""Volume"",!,?10,""CPT Modifier (volume)"",!"
^XMB(3.9,25,2,6181,0)="""RTN"",""ECPROV3"",125,0)"
^XMB(3.9,25,2,6182,0)=" F LINE=1:1:132 W ""-"""
^XMB(3.9,25,2,6183,0)="""RTN"",""ECPROV3"",126,0)"
^XMB(3.9,25,2,6184,0)=" W !!,""Location: ""_ECLN,! W:ECDN]"""" ""DSS Unit: ""_ECDN"
^XMB(3.9,25,2,6185,0)="""RTN"",""ECPROV3"",127,0)"
^XMB(3.9,25,2,6186,0)=" I ECPRV,$D(ECUSER) W !!,ECUN,!,ECCN"
^XMB(3.9,25,2,6187,0)="""RTN"",""ECPROV3"",128,0)"
^XMB(3.9,25,2,6188,0)=" Q"
^XMB(3.9,25,2,6189,0)="""RTN"",""ECPROV3"",129,0)"
^XMB(3.9,25,2,6190,0)="TOTP Q:ECOUT  W !,?105,""------"",!,""Total Procedures for ""_ECUN,?105,$J(^TMP($J,ECLN,ECDN,ECUN),6)"
^XMB(3.9,25,2,6191,0)="""RTN"",""ECPROV3"",130,0)"
^XMB(3.9,25,2,6192,0)=" Q"
^XMB(3.9,25,2,6193,0)="""RTN"",""ECPROV3"",131,0)"
^XMB(3.9,25,2,6194,0)="UNIT ; set units"
^XMB(3.9,25,2,6195,0)="""RTN"",""ECPROV3"",132,0)"
^XMB(3.9,25,2,6196,0)=" S CNT=0 F I=0:0 S CNT=$O(UNIT(CNT)) Q:'CNT  S ECDU(+UNIT(CNT))=$P(UNIT(CNT),""^"",2)"
^XMB(3.9,25,2,6197,0)="""RTN"",""ECPROV3"",133,0)"
^XMB(3.9,25,2,6198,0)=" Q"
^XMB(3.9,25,2,6199,0)="""RTN"",""ECPROV3"",134,0)"
^XMB(3.9,25,2,6200,0)=" ;"
^XMB(3.9,25,2,6201,0)="""RTN"",""ECPROV3"",135,0)"
^XMB(3.9,25,2,6202,0)="NOUNIT ;Nothing there"
^XMB(3.9,25,2,6203,0)="""RTN"",""ECPROV3"",136,0)"
^XMB(3.9,25,2,6204,0)=" I $O(^TMP($J,ECLN,ECDN))']"""" D PAGE W !!!,?12,""NO PROCEDURES"",! S ECPG=1"
^XMB(3.9,25,2,6205,0)="""RTN"",""ECPROV3"",137,0)"
^XMB(3.9,25,2,6206,0)=" Q"
^XMB(3.9,25,2,6207,0)="""RTN"",""ECPRSUM1"")"
^XMB(3.9,25,2,6208,0)="0^8^B27513116^B26520258"
^XMB(3.9,25,2,6209,0)="""RTN"",""ECPRSUM1"",1,0)"
^XMB(3.9,25,2,6210,0)="ECPRSUM1 ;BIR/DMA,RHK,JPW-Provider Summary (1 to 7) ;27 Mar 96"
^XMB(3.9,25,2,6211,0)="""RTN"",""ECPRSUM1"",2,0)"
^XMB(3.9,25,2,6212,0)=" ;;2.0; EVENT CAPTURE ;**5,18,33,47,62,63,61,72**;8 May 96"
^XMB(3.9,25,2,6213,0)="""RTN"",""ECPRSUM1"",3,0)"
^XMB(3.9,25,2,6214,0)=" S DIC=200,DIC(0)=""AQEMZ"",DIC(""A"")=""Select Provider: """
^XMB(3.9,25,2,6215,0)="""RTN"",""ECPRSUM1"",4,0)"
^XMB(3.9,25,2,6216,0)=" D ^DIC K DIC G END:Y<0 S ECU=+Y,ECUN=$P(Y,""^"",2)"
^XMB(3.9,25,2,6217,0)="""RTN"",""ECPRSUM1"",5,0)"
^XMB(3.9,25,2,6218,0)=" D REASON^ECRUTL ;* Prompt to include Procedure Reasons"
^XMB(3.9,25,2,6219,0)="""RTN"",""ECPRSUM1"",6,0)"
^XMB(3.9,25,2,6220,0)=" I ($D(DIRUT))!($D(DUOUT)) G END"
^XMB(3.9,25,2,6221,0)="""RTN"",""ECPRSUM1"",7,0)"
^XMB(3.9,25,2,6222,0)="BDATE K %DT S %DT=""AEX"",%DT(""A"")=""Starting with Date: """
^XMB(3.9,25,2,6223,0)="""RTN"",""ECPRSUM1"",8,0)"
^XMB(3.9,25,2,6224,0)=" D ^%DT G:Y<0 END S ECSD=Y"
^XMB(3.9,25,2,6225,0)="""RTN"",""ECPRSUM1"",9,0)"
^XMB(3.9,25,2,6226,0)="EDATE K %DT S %DT=""AEX"",%DT(""A"")=""Ending with Date: "" D ^%DT G:Y<0 END"
^XMB(3.9,25,2,6227,0)="""RTN"",""ECPRSUM1"",10,0)"
^XMB(3.9,25,2,6228,0)=" I Y<ECSD D  G EDATE"
^XMB(3.9,25,2,6229,0)="""RTN"",""ECPRSUM1"",11,0)"
^XMB(3.9,25,2,6230,0)=" .W !!,""The ending date cannot be earlier than the starting date.  """
^XMB(3.9,25,2,6231,0)="""RTN"",""ECPRSUM1"",12,0)"
^XMB(3.9,25,2,6232,0)=" .W ""Please re-enter"",!,""the ending date."",!"
^XMB(3.9,25,2,6233,0)="""RTN"",""ECPRSUM1"",13,0)"
^XMB(3.9,25,2,6234,0)=" S ECED=Y,ECDATE=ECSD_""^""_ECED"
^XMB(3.9,25,2,6235,0)="""RTN"",""ECPRSUM1"",14,0)"
^XMB(3.9,25,2,6236,0)="DEV ;dev call"
^XMB(3.9,25,2,6237,0)="""RTN"",""ECPRSUM1"",15,0)"
^XMB(3.9,25,2,6238,0)=" W !!,""This report is formatted for 132 column output."",!!"
^XMB(3.9,25,2,6239,0)="""RTN"",""ECPRSUM1"",16,0)"
^XMB(3.9,25,2,6240,0)=" S %ZIS=""Q"",%ZIS(""A"")=""Select Device: "" D ^%ZIS G END:POP"
^XMB(3.9,25,2,6241,0)="""RTN"",""ECPRSUM1"",17,0)"
^XMB(3.9,25,2,6242,0)=" I $D(IO(""Q"")) K ZTSAVE S (ZTSAVE(""ECRY""),ZTSAVE(""ECSD""),ZTSAVE(""ECDATE""),ZTSAVE(""ECED""),ZTSAVE(""ECU""),ZTSAVE(""ECUN""))="""",ZTDESC=""Event Capture Provider Summary"",ZTRTN=""EN^ECPRSUM1"" D ^%ZTLOAD,HOME^%ZIS K ZTSK G END"
^XMB(3.9,25,2,6243,0)="""RTN"",""ECPRSUM1"",18,0)"
^XMB(3.9,25,2,6244,0)=" ;"
^XMB(3.9,25,2,6245,0)="""RTN"",""ECPRSUM1"",19,0)"
^XMB(3.9,25,2,6246,0)="EN ;QUEUED ENTRY POINT"
^XMB(3.9,25,2,6247,0)="""RTN"",""ECPRSUM1"",20,0)"
^XMB(3.9,25,2,6248,0)=" N ECPG,ECGT,EC,ECCAT,ECPXD,MODI,ECI,ECPRV,RK,A,ECX,EC725"
^XMB(3.9,25,2,6249,0)="""RTN"",""ECPRSUM1"",21,0)"
^XMB(3.9,25,2,6250,0)=" U IO"
^XMB(3.9,25,2,6251,0)="""RTN"",""ECPRSUM1"",22,0)"
^XMB(3.9,25,2,6252,0)=" S (ECOUT,ECPG)=0 F ECI=1:1:7 S ECGT(ECI)=0,A(ECI)=0"
^XMB(3.9,25,2,6253,0)="""RTN"",""ECPRSUM1"",23,0)"
^XMB(3.9,25,2,6254,0)=" K ^TMP($J) S ECOUT=0,ECSD=ECSD-.1,ECED=ECED+.3"
^XMB(3.9,25,2,6255,0)="""RTN"",""ECPRSUM1"",24,0)"
^XMB(3.9,25,2,6256,0)=" F ECD=ECSD:0 S ECD=$O(^ECH(""AC"",ECD)) Q:'ECD  Q:ECD>ECED  F DA=0:0 S DA=$O(^ECH(""AC"",ECD,DA)) Q:'DA  S EC=$G(^ECH(DA,0)) D "
^XMB(3.9,25,2,6257,0)="""RTN"",""ECPRSUM1"",25,0)"
^XMB(3.9,25,2,6258,0)=" .K ECPRV S ECPRV=$$GETPRV^ECPRVMUT(DA,.ECPRV),ECX=0 I ECPRV Q"
^XMB(3.9,25,2,6259,0)="""RTN"",""ECPRSUM1"",26,0)"
^XMB(3.9,25,2,6260,0)=" .F ECI=1:1:7 S A(ECI)=0"
^XMB(3.9,25,2,6261,0)="""RTN"",""ECPRSUM1"",27,0)"
^XMB(3.9,25,2,6262,0)=" .F ECI=1:1:7 S ECX=$O(ECPRV(ECX)) Q:'ECX  D"
^XMB(3.9,25,2,6263,0)="""RTN"",""ECPRSUM1"",28,0)"
^XMB(3.9,25,2,6264,0)=" ..S A(ECI)=$P(ECPRV(ECX),U)=ECU"
^XMB(3.9,25,2,6265,0)="""RTN"",""ECPRSUM1"",29,0)"
^XMB(3.9,25,2,6266,0)=" .S ECX=A(1)=A(2)=A(3)=A(4)=A(5)=A(6)=A(7) I 'ECX Q"
^XMB(3.9,25,2,6267,0)="""RTN"",""ECPRSUM1"",30,0)"
^XMB(3.9,25,2,6268,0)=" .S ECPAT=+$P(EC,""^"",2),PA=$G(^DPT(ECPAT,0)),SS=$P(PA,""^"",9)"
^XMB(3.9,25,2,6269,0)="""RTN"",""ECPRSUM1"",31,0)"
^XMB(3.9,25,2,6270,0)=" .S PA=$S($P(PA,""^"")]"""":$P(PA,""^""),1:""UNKNOWN""),ECP=$P(EC,""^"",9)"
^XMB(3.9,25,2,6271,0)="""RTN"",""ECPRSUM1"",32,0)"
^XMB(3.9,25,2,6272,0)=" .Q:ECP']"""""
^XMB(3.9,25,2,6273,0)="""RTN"",""ECPRSUM1"",33,0)"
^XMB(3.9,25,2,6274,0)=" .S ECLOC=+$P(EC,U,4),ECUNIT=+$P(EC,U,7),ECCAT=+$P(EC,U,8)"
^XMB(3.9,25,2,6275,0)="""RTN"",""ECPRSUM1"",34,0)"
^XMB(3.9,25,2,6276,0)=" .S ECPSY=+$O(^ECJ(""AP"",ECLOC,ECUNIT,ECCAT,ECP,""""))"
^XMB(3.9,25,2,6277,0)="""RTN"",""ECPRSUM1"",35,0)"
^XMB(3.9,25,2,6278,0)=" .S ECPSYN=$P($G(^ECJ(ECPSY,""PRO"")),""^"",2)"
^XMB(3.9,25,2,6279,0)="""RTN"",""ECPRSUM1"",36,0)"
^XMB(3.9,25,2,6280,0)=" .S ECFILE=$P(ECP,"";"",2),ECFILE=$S($E(ECFILE)=""I"":81,$E(ECFILE)=""E"":725,1:""UNKNOWN"")"
^XMB(3.9,25,2,6281,0)="""RTN"",""ECPRSUM1"",37,0)"
^XMB(3.9,25,2,6282,0)=" .I ECFILE=""UNKNOWN"" S ECPN=""UNKNOWN"""
^XMB(3.9,25,2,6283,0)="""RTN"",""ECPRSUM1"",38,0)"
^XMB(3.9,25,2,6284,0)=" .S ECCPT=$S(ECFILE=81:+ECP,1:$P($G(^EC(725,+ECP,0)),""^"",5)),ECPXD="""""
^XMB(3.9,25,2,6285,0)="""RTN"",""ECPRSUM1"",39,0)"
^XMB(3.9,25,2,6286,0)=" .I ECCPT'="""" D"
^XMB(3.9,25,2,6287,0)="""RTN"",""ECPRSUM1"",40,0)"
^XMB(3.9,25,2,6288,0)=" ..S ECPXD=$$CPT^ICPTCOD(ECCPT,$P(ECED,""."")),ECCPT=$P(ECPXD,""^"",2)_"" """
^XMB(3.9,25,2,6289,0)="""RTN"",""ECPRSUM1"",41,0)"
^XMB(3.9,25,2,6290,0)=" .I ECFILE=81 S ECPN=$S($P(ECPXD,""^"",3)]"""":$P(ECPXD,""^"",3),1:""UNKNOWN"")"
^XMB(3.9,25,2,6291,0)="""RTN"",""ECPRSUM1"",42,0)"
^XMB(3.9,25,2,6292,0)=" .I ECFILE=725 S EC725=$G(^EC(725,+ECP,0)),ECPN=$P(EC725,""^"",2)_"" ""_$P(EC725,""^"")"
^XMB(3.9,25,2,6293,0)="""RTN"",""ECPRSUM1"",43,0)"
^XMB(3.9,25,2,6294,0)=" .S ECPTDS=ECCPT_ECPN_$S(ECPSYN]"""":"" [""_ECPSYN_""] "",1:"""")"
^XMB(3.9,25,2,6295,0)="""RTN"",""ECPRSUM1"",44,0)"
^XMB(3.9,25,2,6296,0)=" .;Get Procedure CPT modifiers"
^XMB(3.9,25,2,6297,0)="""RTN"",""ECPRSUM1"",45,0)"
^XMB(3.9,25,2,6298,0)=" .S ECMODF=0 I $O(^ECH(DA,""MOD"",0))'="""" D"
^XMB(3.9,25,2,6299,0)="""RTN"",""ECPRSUM1"",46,0)"
^XMB(3.9,25,2,6300,0)=" ..K ECMOD S ECMODF=$$MOD^ECUTL(DA,""I"",.ECMOD)"
^XMB(3.9,25,2,6301,0)="""RTN"",""ECPRSUM1"",47,0)"
^XMB(3.9,25,2,6302,0)=" .;"
^XMB(3.9,25,2,6303,0)="""RTN"",""ECPRSUM1"",48,0)"
^XMB(3.9,25,2,6304,0)=" .;ALB/ESD - Get procedure reason from EC Patient file (#721) record"
^XMB(3.9,25,2,6305,0)="""RTN"",""ECPRSUM1"",49,0)"
^XMB(3.9,25,2,6306,0)=" .S ECPRSN="""",ECLNK=+$P(EC,""^"",23)"
^XMB(3.9,25,2,6307,0)="""RTN"",""ECPRSUM1"",50,0)"
^XMB(3.9,25,2,6308,0)=" .I +ECLNK>0 DO"
^XMB(3.9,25,2,6309,0)="""RTN"",""ECPRSUM1"",51,0)"
^XMB(3.9,25,2,6310,0)=" ..S ECPRSN=$P($G(^ECL(ECLNK,0)),""^"",1)"
^XMB(3.9,25,2,6311,0)="""RTN"",""ECPRSUM1"",52,0)"
^XMB(3.9,25,2,6312,0)=" ..S:+ECPRSN'>0 ECPRSN=""REASON NOT DEFINED"""
^XMB(3.9,25,2,6313,0)="""RTN"",""ECPRSUM1"",53,0)"
^XMB(3.9,25,2,6314,0)=" ..S:+ECPRSN>0 ECPRSN=$P(^ECR(ECPRSN,0),""^"",1)"
^XMB(3.9,25,2,6315,0)="""RTN"",""ECPRSUM1"",54,0)"
^XMB(3.9,25,2,6316,0)=" .S:+ECLNK'>0 ECPRSN=""REASON NOT DEFINED"""
^XMB(3.9,25,2,6317,0)="""RTN"",""ECPRSUM1"",55,0)"
^XMB(3.9,25,2,6318,0)=" .I '$D(ECRY) S ECPRSN=""REASON NOT DEFINED"""
^XMB(3.9,25,2,6319,0)="""RTN"",""ECPRSUM1"",56,0)"
^XMB(3.9,25,2,6320,0)=" .;"
^XMB(3.9,25,2,6321,0)="""RTN"",""ECPRSUM1"",57,0)"
^XMB(3.9,25,2,6322,0)=" .;ALB/ESD - Add procedure reason to ^TMP array"
^XMB(3.9,25,2,6323,0)="""RTN"",""ECPRSUM1"",58,0)"
^XMB(3.9,25,2,6324,0)=" .S PRO=ECCPT_ECPN I PRO]"""" S V=+$P(EC,""^"",10) D"
^XMB(3.9,25,2,6325,0)="""RTN"",""ECPRSUM1"",59,0)"
^XMB(3.9,25,2,6326,0)=" ..F J=1:1:7 I A(J) S ^(J)=$G(^TMP($J,PRO,ECPRSN,PA_""^""_SS,J))+V D"
^XMB(3.9,25,2,6327,0)="""RTN"",""ECPRSUM1"",60,0)"
^XMB(3.9,25,2,6328,0)=" ...I $G(^TMP($J,PRO))="""" S ^TMP($J,PRO)=ECPTDS"
^XMB(3.9,25,2,6329,0)="""RTN"",""ECPRSUM1"",61,0)"
^XMB(3.9,25,2,6330,0)=" ..;ALB/JAM - Add Procedure CPT modifier to ^TMP array"
^XMB(3.9,25,2,6331,0)="""RTN"",""ECPRSUM1"",62,0)"
^XMB(3.9,25,2,6332,0)=" ..S MOD="""" F  S MOD=$O(ECMOD(MOD)) Q:MOD=""""  D"
^XMB(3.9,25,2,6333,0)="""RTN"",""ECPRSUM1"",63,0)"
^XMB(3.9,25,2,6334,0)=" ...S ^TMP($J,PRO,ECPRSN,PA_""^""_SS,""MOD"",MOD)=$G(^TMP($J,PRO,ECPRSN,PA_""^""_SS,""MOD"",MOD))+V"
^XMB(3.9,25,2,6335,0)="""RTN"",""ECPRSUM1"",64,0)"
^XMB(3.9,25,2,6336,0)=" K ECLNK,MOD,ECPTDS"
^XMB(3.9,25,2,6337,0)="""RTN"",""ECPRSUM1"",65,0)"
^XMB(3.9,25,2,6338,0)=" ;"
^XMB(3.9,25,2,6339,0)="""RTN"",""ECPRSUM1"",66,0)"
^XMB(3.9,25,2,6340,0)="PRINT ;print report"
^XMB(3.9,25,2,6341,0)="""RTN"",""ECPRSUM1"",67,0)"
^XMB(3.9,25,2,6342,0)=" S ECSD=$P(ECDATE,""^""),ECED=$P(ECDATE,""^"",2)"
^XMB(3.9,25,2,6343,0)="""RTN"",""ECPRSUM1"",68,0)"
^XMB(3.9,25,2,6344,0)=" D HDR I '$D(^TMP($J)) W !!,?12,""No Event Capture Provider Summary for ""_ECUN_"" to report for the date range selected."",!! D PAGE G END"
^XMB(3.9,25,2,6345,0)="""RTN"",""ECPRSUM1"",69,0)"
^XMB(3.9,25,2,6346,0)=" F ECI=1:1:7 S A(ECI)=0"
^XMB(3.9,25,2,6347,0)="""RTN"",""ECPRSUM1"",70,0)"
^XMB(3.9,25,2,6348,0)=" S (ECREAS,PA,PR)="""""
^XMB(3.9,25,2,6349,0)="""RTN"",""ECPRSUM1"",71,0)"
^XMB(3.9,25,2,6350,0)=" F  S PR=$O(^TMP($J,PR)),PA="""" Q:PR=""""  D  Q:ECOUT"
^XMB(3.9,25,2,6351,0)="""RTN"",""ECPRSUM1"",72,0)"
^XMB(3.9,25,2,6352,0)=" .W !,^TMP($J,PR)"
^XMB(3.9,25,2,6353,0)="""RTN"",""ECPRSUM1"",73,0)"
^XMB(3.9,25,2,6354,0)=" .F  S ECREAS=$O(^TMP($J,PR,ECREAS)) Q:ECREAS=""""  D  Q:ECOUT"
^XMB(3.9,25,2,6355,0)="""RTN"",""ECPRSUM1"",74,0)"
^XMB(3.9,25,2,6356,0)=" ..F  S PA=$O(^TMP($J,PR,ECREAS,PA)) D:PA="""" TOT Q:PA=""""  D  Q:ECOUT"
^XMB(3.9,25,2,6357,0)="""RTN"",""ECPRSUM1"",75,0)"
^XMB(3.9,25,2,6358,0)=" ...S A=$G(^TMP($J,PR,ECREAS,PA,0))"
^XMB(3.9,25,2,6359,0)="""RTN"",""ECPRSUM1"",76,0)"
^XMB(3.9,25,2,6360,0)=" ...W ! W:$D(ECRY) $E(ECREAS,1,23)"
^XMB(3.9,25,2,6361,0)="""RTN"",""ECPRSUM1"",77,0)"
^XMB(3.9,25,2,6362,0)=" ...W ?25,$E($P(PA,""^""),1,24),?50,$P(PA,""^"",2)"
^XMB(3.9,25,2,6363,0)="""RTN"",""ECPRSUM1"",78,0)"
^XMB(3.9,25,2,6364,0)=" ...F J=1:1:7 S A=$G(^TMP($J,PR,ECREAS,PA,J)),A(J)=A(J)+A W ?10*J+50,$J(A,5,0) I J=7 I $Y+5>IOSL D PAGE Q:ECOUT  D HDR"
^XMB(3.9,25,2,6365,0)="""RTN"",""ECPRSUM1"",79,0)"
^XMB(3.9,25,2,6366,0)=" ...;print CPT procedure modifiers"
^XMB(3.9,25,2,6367,0)="""RTN"",""ECPRSUM1"",80,0)"
^XMB(3.9,25,2,6368,0)=" ...Q:ECOUT  S IEN="""""
^XMB(3.9,25,2,6369,0)="""RTN"",""ECPRSUM1"",81,0)"
^XMB(3.9,25,2,6370,0)=" ...F  S IEN=$O(^TMP($J,PR,ECREAS,PA,""MOD"",IEN)) Q:IEN=""""  D  I ECOUT Q"
^XMB(3.9,25,2,6371,0)="""RTN"",""ECPRSUM1"",82,0)"
^XMB(3.9,25,2,6372,0)=" ....S MODI=$$MOD^ICPTMOD(IEN,""I"",$P(ECED,"".""))"
^XMB(3.9,25,2,6373,0)="""RTN"",""ECPRSUM1"",83,0)"
^XMB(3.9,25,2,6374,0)=" ....S MOD=$P(MODI,U,2) I MOD="""" Q"
^XMB(3.9,25,2,6375,0)="""RTN"",""ECPRSUM1"",84,0)"
^XMB(3.9,25,2,6376,0)=" ....S MODESC=$P(MODI,U,3)  I MODESC="""" S MODESC=""UNKNOWN"""
^XMB(3.9,25,2,6377,0)="""RTN"",""ECPRSUM1"",85,0)"
^XMB(3.9,25,2,6378,0)=" ....S MODAMT=^TMP($J,PR,ECREAS,PA,""MOD"",IEN)"
^XMB(3.9,25,2,6379,0)="""RTN"",""ECPRSUM1"",86,0)"
^XMB(3.9,25,2,6380,0)=" ....W !?5,""- "",MOD,"" "",MODESC,"" ("",MODAMT,"")"""
^XMB(3.9,25,2,6381,0)="""RTN"",""ECPRSUM1"",87,0)"
^XMB(3.9,25,2,6382,0)=" ....I ($Y+4)>IOSL D PAGE Q:ECOUT  D HDR"
^XMB(3.9,25,2,6383,0)="""RTN"",""ECPRSUM1"",88,0)"
^XMB(3.9,25,2,6384,0)=" ...K MODESC,MOD,MODAMT"
^XMB(3.9,25,2,6385,0)="""RTN"",""ECPRSUM1"",89,0)"
^XMB(3.9,25,2,6386,0)=" W !!,?60 F RK=61:1:IOM W ""*"""
^XMB(3.9,25,2,6387,0)="""RTN"",""ECPRSUM1"",90,0)"
^XMB(3.9,25,2,6388,0)=" W !,?35,""GRAND TOTAL - PROCEDURES"""
^XMB(3.9,25,2,6389,0)="""RTN"",""ECPRSUM1"",91,0)"
^XMB(3.9,25,2,6390,0)=" F J=1:1:7 W ?10*J+50,$J(ECGT(J),5,0)"
^XMB(3.9,25,2,6391,0)="""RTN"",""ECPRSUM1"",92,0)"
^XMB(3.9,25,2,6392,0)=" D:'ECOUT PAGE G END"
^XMB(3.9,25,2,6393,0)="""RTN"",""ECPRSUM1"",93,0)"
^XMB(3.9,25,2,6394,0)=" ;"
^XMB(3.9,25,2,6395,0)="""RTN"",""ECPRSUM1"",94,0)"
^XMB(3.9,25,2,6396,0)="PAGE ; end of page"
^XMB(3.9,25,2,6397,0)="""RTN"",""ECPRSUM1"",95,0)"
^XMB(3.9,25,2,6398,0)=" I $E(IOST,1,2)=""C-"" S DIR(0)=""E"" D ^DIR K DIR I 'Y S ECOUT=1"
^XMB(3.9,25,2,6399,0)="""RTN"",""ECPRSUM1"",96,0)"
^XMB(3.9,25,2,6400,0)=" Q"
^XMB(3.9,25,2,6401,0)="""RTN"",""ECPRSUM1"",97,0)"
^XMB(3.9,25,2,6402,0)="HDR ;"
^XMB(3.9,25,2,6403,0)="""RTN"",""ECPRSUM1"",98,0)"
^XMB(3.9,25,2,6404,0)=" W:$Y @IOF S ECPG=ECPG+1"
^XMB(3.9,25,2,6405,0)="""RTN"",""ECPRSUM1"",99,0)"
^XMB(3.9,25,2,6406,0)=" W !!?33,""EVENT CAPTURE PROVIDER SUMMARY FOR "",ECUN,?118,""Page: "",ECPG,!,?33,""FOR THE DATE RANGE "",$$FMTE^XLFDT(ECSD),"" TO "",$$FMTE^XLFDT(ECED),!!,""PROCEDURE"",?85,""TOTALS AS PROVIDER #"",!"
^XMB(3.9,25,2,6407,0)="""RTN"",""ECPRSUM1"",100,0)"
^XMB(3.9,25,2,6408,0)=" W:$D(ECRY) ""PROCEDURE REASON"" W ?25,""PATIENT"",?52,""SSN"",?64,1,?74,2,?84,3,?94,4,?104,5,?114,6,?124,7"
^XMB(3.9,25,2,6409,0)="""RTN"",""ECPRSUM1"",101,0)"
^XMB(3.9,25,2,6410,0)=" W !,?5,""CPT MODIFIER (Volume of modifiers use)"",!"
^XMB(3.9,25,2,6411,0)="""RTN"",""ECPRSUM1"",102,0)"
^XMB(3.9,25,2,6412,0)=" F RK=1:1:IOM W ""-"""
^XMB(3.9,25,2,6413,0)="""RTN"",""ECPRSUM1"",103,0)"
^XMB(3.9,25,2,6414,0)=" W !"
^XMB(3.9,25,2,6415,0)="""RTN"",""ECPRSUM1"",104,0)"
^XMB(3.9,25,2,6416,0)=" Q"
^XMB(3.9,25,2,6417,0)="""RTN"",""ECPRSUM1"",105,0)"
^XMB(3.9,25,2,6418,0)=" ;"
^XMB(3.9,25,2,6419,0)="""RTN"",""ECPRSUM1"",106,0)"
^XMB(3.9,25,2,6420,0)="TOT W !,?60 F RK=61:1:IOM W ""-"""
^XMB(3.9,25,2,6421,0)="""RTN"",""ECPRSUM1"",107,0)"
^XMB(3.9,25,2,6422,0)=" W !?35,""TOTAL PROCEDURES"""
^XMB(3.9,25,2,6423,0)="""RTN"",""ECPRSUM1"",108,0)"
^XMB(3.9,25,2,6424,0)=" F J=1:1:7 W ?10*J+50,$J(A(J),5,0) S ECGT(J)=ECGT(J)+A(J)"
^XMB(3.9,25,2,6425,0)="""RTN"",""ECPRSUM1"",109,0)"
^XMB(3.9,25,2,6426,0)=" W ! F ECI=1:1:7 S A(ECI)=0"
^XMB(3.9,25,2,6427,0)="""RTN"",""ECPRSUM1"",110,0)"
^XMB(3.9,25,2,6428,0)=" Q"
^XMB(3.9,25,2,6429,0)="""RTN"",""ECPRSUM1"",111,0)"
^XMB(3.9,25,2,6430,0)=" ;"
^XMB(3.9,25,2,6431,0)="""RTN"",""ECPRSUM1"",112,0)"
^XMB(3.9,25,2,6432,0)="END D ^ECKILL K ^TMP($J),ZTSK W @IOF"
^XMB(3.9,25,2,6433,0)="""RTN"",""ECPRSUM1"",113,0)"
^XMB(3.9,25,2,6434,0)=" K ^TMP($J) Q:$D(ECGUI)"
^XMB(3.9,25,2,6435,0)="""RTN"",""ECPRSUM1"",114,0)"
^XMB(3.9,25,2,6436,0)=" I $D(ZTQUEUED) S ZTREQ=""@"""
^XMB(3.9,25,2,6437,0)="""RTN"",""ECPRSUM1"",115,0)"
^XMB(3.9,25,2,6438,0)=" D ^%ZISC"
^XMB(3.9,25,2,6439,0)="""RTN"",""ECPRSUM1"",116,0)"
^XMB(3.9,25,2,6440,0)=" Q"
^XMB(3.9,25,2,6441,0)="""RTN"",""ECPRVMUT"")"
^XMB(3.9,25,2,6442,0)="0^36^B51865665"
^XMB(3.9,25,2,6443,0)="""RTN"",""ECPRVMUT"",1,0)"
^XMB(3.9,25,2,6444,0)="ECPRVMUT ;ALB/JAM - Event Capture Multiple Provider Utilities ;24 Aug 05"
^XMB(3.9,25,2,6445,0)="""RTN"",""ECPRVMUT"",2,0)"
^XMB(3.9,25,2,6446,0)=" ;;2.0; EVENT CAPTURE ;**72**;8 May 96"
^XMB(3.9,25,2,6447,0)="""RTN"",""ECPRVMUT"",3,0)"
^XMB(3.9,25,2,6448,0)=" ;"
^XMB(3.9,25,2,6449,0)="""RTN"",""ECPRVMUT"",4,0)"
^XMB(3.9,25,2,6450,0)="GETPRV(ECIEN,OUTARR) ;Returns providers associated with an encounter"
^XMB(3.9,25,2,6451,0)="""RTN"",""ECPRVMUT"",5,0)"
^XMB(3.9,25,2,6452,0)=" ;*** This recall replaces GET^ECPRVUTL to allow for multiple providers "
^XMB(3.9,25,2,6453,0)="""RTN"",""ECPRVMUT"",6,0)"
^XMB(3.9,25,2,6454,0)=" ;    instead of three."
^XMB(3.9,25,2,6455,0)="""RTN"",""ECPRVMUT"",7,0)"
^XMB(3.9,25,2,6456,0)=" ;  Input: ECIEN  - IEN entry in file 721/^ECH("
^XMB(3.9,25,2,6457,0)="""RTN"",""ECPRVMUT"",8,0)"
^XMB(3.9,25,2,6458,0)=" ;"
^XMB(3.9,25,2,6459,0)="""RTN"",""ECPRVMUT"",9,0)"
^XMB(3.9,25,2,6460,0)=" ; Output: OUTARR - output array with providers"
^XMB(3.9,25,2,6461,0)="""RTN"",""ECPRVMUT"",10,0)"
^XMB(3.9,25,2,6462,0)=" ;                  ^ECH IEN^provider ien^provider description^"
^XMB(3.9,25,2,6463,0)="""RTN"",""ECPRVMUT"",11,0)"
^XMB(3.9,25,2,6464,0)=" ;                  Primary/Secondary code^Primary/Secondary description"
^XMB(3.9,25,2,6465,0)="""RTN"",""ECPRVMUT"",12,0)"
^XMB(3.9,25,2,6466,0)=" ;         returns 0 if successful or 1 if unsuccessful"
^XMB(3.9,25,2,6467,0)="""RTN"",""ECPRVMUT"",13,0)"
^XMB(3.9,25,2,6468,0)=" ;      "
^XMB(3.9,25,2,6469,0)="""RTN"",""ECPRVMUT"",14,0)"
^XMB(3.9,25,2,6470,0)=" I $G(ECIEN)="""" Q 1  ;IEN not define."
^XMB(3.9,25,2,6471,0)="""RTN"",""ECPRVMUT"",15,0)"
^XMB(3.9,25,2,6472,0)=" I '$D(^ECH(ECIEN)) Q 1  ;IEN does not exist in file 721/^ECH("
^XMB(3.9,25,2,6473,0)="""RTN"",""ECPRVMUT"",16,0)"
^XMB(3.9,25,2,6474,0)=" I $O(^ECH(ECIEN,""PRV"",0))="""" Q 1  ;No provider on file for entry"
^XMB(3.9,25,2,6475,0)="""RTN"",""ECPRVMUT"",17,0)"
^XMB(3.9,25,2,6476,0)=" N PRV,IEN,ECERR,SEQ,TYP,TYD,TMPARR,PRI,CNT,PRVARY"
^XMB(3.9,25,2,6477,0)="""RTN"",""ECPRVMUT"",18,0)"
^XMB(3.9,25,2,6478,0)=" S PRI=0"
^XMB(3.9,25,2,6479,0)="""RTN"",""ECPRVMUT"",19,0)"
^XMB(3.9,25,2,6480,0)=" D GETS^DIQ(721,ECIEN,""42*"",""IE"",""PRVARY"",""ECERR"")"
^XMB(3.9,25,2,6481,0)="""RTN"",""ECPRVMUT"",20,0)"
^XMB(3.9,25,2,6482,0)=" I $D(ECERR) Q 1  ;Error looking up entry"
^XMB(3.9,25,2,6483,0)="""RTN"",""ECPRVMUT"",21,0)"
^XMB(3.9,25,2,6484,0)=" S SEQ="""" F  S SEQ=$O(PRVARY(721.042,SEQ)) Q:SEQ=""""  D"
^XMB(3.9,25,2,6485,0)="""RTN"",""ECPRVMUT"",22,0)"
^XMB(3.9,25,2,6486,0)=" . S IEN=$G(PRVARY(721.042,SEQ,.01,""I"")) I IEN="""" Q"
^XMB(3.9,25,2,6487,0)="""RTN"",""ECPRVMUT"",23,0)"
^XMB(3.9,25,2,6488,0)=" . S PRV=$G(PRVARY(721.042,SEQ,.01,""E"")) I PRV="""" S PRV=""Unknown"""
^XMB(3.9,25,2,6489,0)="""RTN"",""ECPRVMUT"",24,0)"
^XMB(3.9,25,2,6490,0)=" . S TYP=$G(PRVARY(721.042,SEQ,.02,""I"")) I TYP="""" S TYP=""Ukn"""
^XMB(3.9,25,2,6491,0)="""RTN"",""ECPRVMUT"",25,0)"
^XMB(3.9,25,2,6492,0)=" . S TYD=$G(PRVARY(721.042,SEQ,.02,""E"")) I TYD="""" S TYD=""Unknown"""
^XMB(3.9,25,2,6493,0)="""RTN"",""ECPRVMUT"",26,0)"
^XMB(3.9,25,2,6494,0)=" . I 'PRI,TYP=""P"" S PRI=1_U_$P(SEQ,"","")"
^XMB(3.9,25,2,6495,0)="""RTN"",""ECPRVMUT"",27,0)"
^XMB(3.9,25,2,6496,0)=" . I $P(SEQ,"","")'="""" S TMPARR($P(SEQ,"",""))=IEN_U_PRV_U_TYP_U_TYD"
^XMB(3.9,25,2,6497,0)="""RTN"",""ECPRVMUT"",28,0)"
^XMB(3.9,25,2,6498,0)=" ;set primary provider as first subscript"
^XMB(3.9,25,2,6499,0)="""RTN"",""ECPRVMUT"",29,0)"
^XMB(3.9,25,2,6500,0)=" S CNT=1,PRI=$S(PRI:$P(PRI,U,2),1:$O(TMPARR(0))),OUTARR(CNT)=TMPARR(PRI)"
^XMB(3.9,25,2,6501,0)="""RTN"",""ECPRVMUT"",30,0)"
^XMB(3.9,25,2,6502,0)=" K TMPARR(PRI)"
^XMB(3.9,25,2,6503,0)="""RTN"",""ECPRVMUT"",31,0)"
^XMB(3.9,25,2,6504,0)=" S IEN=0 F  S IEN=$O(TMPARR(IEN)) Q:'IEN  D"
^XMB(3.9,25,2,6505,0)="""RTN"",""ECPRVMUT"",32,0)"
^XMB(3.9,25,2,6506,0)=" . S CNT=CNT+1,OUTARR(CNT)=TMPARR(IEN)"
^XMB(3.9,25,2,6507,0)="""RTN"",""ECPRVMUT"",33,0)"
^XMB(3.9,25,2,6508,0)=" Q $S($D(OUTARR):0,1:1)"
^XMB(3.9,25,2,6509,0)="""RTN"",""ECPRVMUT"",34,0)"
^XMB(3.9,25,2,6510,0)=" ;"
^XMB(3.9,25,2,6511,0)="""RTN"",""ECPRVMUT"",35,0)"
^XMB(3.9,25,2,6512,0)="GETPPRV(ECIEN,ECPPROV) ;returns primary provider associated with an encounter"
^XMB(3.9,25,2,6513,0)="""RTN"",""ECPRVMUT"",36,0)"
^XMB(3.9,25,2,6514,0)=" ;  Input: ECIEN  - IEN entry in file 721/^ECH("
^XMB(3.9,25,2,6515,0)="""RTN"",""ECPRVMUT"",37,0)"
^XMB(3.9,25,2,6516,0)=" ;"
^XMB(3.9,25,2,6517,0)="""RTN"",""ECPRVMUT"",38,0)"
^XMB(3.9,25,2,6518,0)=" ; Output: ECPPROV - primary provider"
^XMB(3.9,25,2,6519,0)="""RTN"",""ECPRVMUT"",39,0)"
^XMB(3.9,25,2,6520,0)=" ;                   provider ien^provider description"
^XMB(3.9,25,2,6521,0)="""RTN"",""ECPRVMUT"",40,0)"
^XMB(3.9,25,2,6522,0)=" ;         returns 0 if successful or 1 if unsuccessful"
^XMB(3.9,25,2,6523,0)="""RTN"",""ECPRVMUT"",41,0)"
^XMB(3.9,25,2,6524,0)=" ;      "
^XMB(3.9,25,2,6525,0)="""RTN"",""ECPRVMUT"",42,0)"
^XMB(3.9,25,2,6526,0)=" I $G(ECIEN)="""" Q 1  ;IEN not define."
^XMB(3.9,25,2,6527,0)="""RTN"",""ECPRVMUT"",43,0)"
^XMB(3.9,25,2,6528,0)=" I '$D(^ECH(ECIEN)) Q 1  ;IEN does not exist in file 721/^ECH("
^XMB(3.9,25,2,6529,0)="""RTN"",""ECPRVMUT"",44,0)"
^XMB(3.9,25,2,6530,0)=" I $O(^ECH(ECIEN,""PRV"",0))="""" Q 1  ;No provider on file for entry"
^XMB(3.9,25,2,6531,0)="""RTN"",""ECPRVMUT"",45,0)"
^XMB(3.9,25,2,6532,0)=" N PRVARY,PRV,IEN,ECERR,SEQ,ECOUT,TYP"
^XMB(3.9,25,2,6533,0)="""RTN"",""ECPRVMUT"",46,0)"
^XMB(3.9,25,2,6534,0)=" S ECOUT=0"
^XMB(3.9,25,2,6535,0)="""RTN"",""ECPRVMUT"",47,0)"
^XMB(3.9,25,2,6536,0)=" D GETS^DIQ(721,ECIEN,""42*"",""IE"",""PRVARY"",""ECERR"")"
^XMB(3.9,25,2,6537,0)="""RTN"",""ECPRVMUT"",48,0)"
^XMB(3.9,25,2,6538,0)=" I $D(ECERR) Q 1  ;Error looking up entry"
^XMB(3.9,25,2,6539,0)="""RTN"",""ECPRVMUT"",49,0)"
^XMB(3.9,25,2,6540,0)=" S SEQ="""" F  S SEQ=$O(PRVARY(721.042,SEQ)) Q:SEQ=""""  D  I ECOUT Q"
^XMB(3.9,25,2,6541,0)="""RTN"",""ECPRVMUT"",50,0)"
^XMB(3.9,25,2,6542,0)=" . S IEN=$G(PRVARY(721.042,SEQ,.01,""I"")) I IEN="""" Q"
^XMB(3.9,25,2,6543,0)="""RTN"",""ECPRVMUT"",51,0)"
^XMB(3.9,25,2,6544,0)=" . S PRV=$G(PRVARY(721.042,SEQ,.01,""E"")) I PRV="""" S PRV=""Unknown"""
^XMB(3.9,25,2,6545,0)="""RTN"",""ECPRVMUT"",52,0)"
^XMB(3.9,25,2,6546,0)=" . S TYP=$G(PRVARY(721.042,SEQ,.02,""I"")) I TYP="""" S TYD=""Unknown"""
^XMB(3.9,25,2,6547,0)="""RTN"",""ECPRVMUT"",53,0)"
^XMB(3.9,25,2,6548,0)=" . I TYP=""P"" S ECPPROV=IEN_U_PRV,ECOUT=1"
^XMB(3.9,25,2,6549,0)="""RTN"",""ECPRVMUT"",54,0)"
^XMB(3.9,25,2,6550,0)=" Q $S($D(ECPPROV):0,1:1)"
^XMB(3.9,25,2,6551,0)="""RTN"",""ECPRVMUT"",55,0)"
^XMB(3.9,25,2,6552,0)=" ;"
^XMB(3.9,25,2,6553,0)="""RTN"",""ECPRVMUT"",56,0)"
^XMB(3.9,25,2,6554,0)="FILPRV(ECIEN,ECPRVARY,ECOUT) ;File multiple providers for an encounter"
^XMB(3.9,25,2,6555,0)="""RTN"",""ECPRVMUT"",57,0)"
^XMB(3.9,25,2,6556,0)=" ;  Input: ECIEN    - IEN entry in file 721/^ECH("
^XMB(3.9,25,2,6557,0)="""RTN"",""ECPRVMUT"",58,0)"
^XMB(3.9,25,2,6558,0)=" ;         ECPRVARY - array with providers"
^XMB(3.9,25,2,6559,0)="""RTN"",""ECPRVMUT"",59,0)"
^XMB(3.9,25,2,6560,0)=" ;         ECOUT    - Error flag (1/0)"
^XMB(3.9,25,2,6561,0)="""RTN"",""ECPRVMUT"",60,0)"
^XMB(3.9,25,2,6562,0)=" ;"
^XMB(3.9,25,2,6563,0)="""RTN"",""ECPRVMUT"",61,0)"
^XMB(3.9,25,2,6564,0)=" ; Output: returns 1 if successful or 0 if unsuccessful"
^XMB(3.9,25,2,6565,0)="""RTN"",""ECPRVMUT"",62,0)"
^XMB(3.9,25,2,6566,0)=" ;      "
^XMB(3.9,25,2,6567,0)="""RTN"",""ECPRVMUT"",63,0)"
^XMB(3.9,25,2,6568,0)=" I $G(ECIEN)="""" Q 0  ;IEN not define."
^XMB(3.9,25,2,6569,0)="""RTN"",""ECPRVMUT"",64,0)"
^XMB(3.9,25,2,6570,0)=" I '$D(^ECH(ECIEN)) Q 0  ;IEN does not exist in file 721/^ECH("
^XMB(3.9,25,2,6571,0)="""RTN"",""ECPRVMUT"",65,0)"
^XMB(3.9,25,2,6572,0)=" I '$O(ECPRVARY(0)) Q 0  ;No entry in provider array"
^XMB(3.9,25,2,6573,0)="""RTN"",""ECPRVMUT"",66,0)"
^XMB(3.9,25,2,6574,0)=" N SIEN,ECERR,ERR,ECPRVDA,ECDATA,DA,DIK"
^XMB(3.9,25,2,6575,0)="""RTN"",""ECPRVMUT"",67,0)"
^XMB(3.9,25,2,6576,0)=" ;delete old entries"
^XMB(3.9,25,2,6577,0)="""RTN"",""ECPRVMUT"",68,0)"
^XMB(3.9,25,2,6578,0)=" S DA(1)=ECIEN,DIK=""^ECH(""_DA(1)_"",""""PRV"""","",DA=0"
^XMB(3.9,25,2,6579,0)="""RTN"",""ECPRVMUT"",69,0)"
^XMB(3.9,25,2,6580,0)=" F  S DA=$O(^ECH(DA(1),""PRV"",DA)) Q:'DA  D ^DIK"
^XMB(3.9,25,2,6581,0)="""RTN"",""ECPRVMUT"",70,0)"
^XMB(3.9,25,2,6582,0)=" S SIEN=0,ERR="""""
^XMB(3.9,25,2,6583,0)="""RTN"",""ECPRVMUT"",71,0)"
^XMB(3.9,25,2,6584,0)=" F  S SIEN=$O(ECPRVARY(SIEN)) Q:SIEN=""""  D"
^XMB(3.9,25,2,6585,0)="""RTN"",""ECPRVMUT"",72,0)"
^XMB(3.9,25,2,6586,0)=" .K ECPRVDA,ECERR"
^XMB(3.9,25,2,6587,0)="""RTN"",""ECPRVMUT"",73,0)"
^XMB(3.9,25,2,6588,0)=" .S ECDATA=ECPRVARY(SIEN)"
^XMB(3.9,25,2,6589,0)="""RTN"",""ECPRVMUT"",74,0)"
^XMB(3.9,25,2,6590,0)=" .S ECPRVDA(721,""?1,"",.01)=ECIEN"
^XMB(3.9,25,2,6591,0)="""RTN"",""ECPRVMUT"",75,0)"
^XMB(3.9,25,2,6592,0)=" .S ECPRVDA(721.042,""+2,?1,"",.01)=$P(ECDATA,U)"
^XMB(3.9,25,2,6593,0)="""RTN"",""ECPRVMUT"",76,0)"
^XMB(3.9,25,2,6594,0)=" .S ECPRVDA(721.042,""+2,?1,"",.02)=$P(ECDATA,U,3)"
^XMB(3.9,25,2,6595,0)="""RTN"",""ECPRVMUT"",77,0)"
^XMB(3.9,25,2,6596,0)=" .D UPDATE^DIE("""",""ECPRVDA"","""",""ECERR"")"
^XMB(3.9,25,2,6597,0)="""RTN"",""ECPRVMUT"",78,0)"
^XMB(3.9,25,2,6598,0)=" .I $D(ECERR) S ERR=ERR_SIEN_"";"""
^XMB(3.9,25,2,6599,0)="""RTN"",""ECPRVMUT"",79,0)"
^XMB(3.9,25,2,6600,0)=" Q $S(ERR="""":1,1:""0^""_ERR)"
^XMB(3.9,25,2,6601,0)="""RTN"",""ECPRVMUT"",80,0)"
^XMB(3.9,25,2,6602,0)=" ;"
^XMB(3.9,25,2,6603,0)="""RTN"",""ECPRVMUT"",81,0)"
^XMB(3.9,25,2,6604,0)="DSPPRV ;Display providers"
^XMB(3.9,25,2,6605,0)="""RTN"",""ECPRVMUT"",82,0)"
^XMB(3.9,25,2,6606,0)=" N ECX,ECDAT,ECW"
^XMB(3.9,25,2,6607,0)="""RTN"",""ECPRVMUT"",83,0)"
^XMB(3.9,25,2,6608,0)=" W ""Encounter Providers"""
^XMB(3.9,25,2,6609,0)="""RTN"",""ECPRVMUT"",84,0)"
^XMB(3.9,25,2,6610,0)=" S ECX=0  F  S ECX=$O(ECPRVARY(ECX)) Q:'ECX  D"
^XMB(3.9,25,2,6611,0)="""RTN"",""ECPRVMUT"",85,0)"
^XMB(3.9,25,2,6612,0)=" .S ECDAT=ECPRVARY(ECX)"
^XMB(3.9,25,2,6613,0)="""RTN"",""ECPRVMUT"",86,0)"
^XMB(3.9,25,2,6614,0)=" .W !,?3,$P(ECDAT,U),?15,$P(ECDAT,U,2) I $P(ECDAT,U,3)=""P"" W "" (Primary)"""
^XMB(3.9,25,2,6615,0)="""RTN"",""ECPRVMUT"",87,0)"
^XMB(3.9,25,2,6616,0)=" Q"
^XMB(3.9,25,2,6617,0)="""RTN"",""ECPRVMUT"",88,0)"
^XMB(3.9,25,2,6618,0)="ASKPRV(ECIEN,ECDT,ECPRVARY,ECOUT) ;ask provider question (primary and multiple secondary)"
^XMB(3.9,25,2,6619,0)="""RTN"",""ECPRVMUT"",89,0)"
^XMB(3.9,25,2,6620,0)=" ; Variables: ECIEN    - IEN entry in file 721/^ECH("
^XMB(3.9,25,2,6621,0)="""RTN"",""ECPRVMUT"",90,0)"
^XMB(3.9,25,2,6622,0)=" ;            ECDT     - date/time of encounter"
^XMB(3.9,25,2,6623,0)="""RTN"",""ECPRVMUT"",91,0)"
^XMB(3.9,25,2,6624,0)=" ;            ECPRVARY - array with providers"
^XMB(3.9,25,2,6625,0)="""RTN"",""ECPRVMUT"",92,0)"
^XMB(3.9,25,2,6626,0)=" ;            ECOUT    - Error flag (1/0)"
^XMB(3.9,25,2,6627,0)="""RTN"",""ECPRVMUT"",93,0)"
^XMB(3.9,25,2,6628,0)=" ;"
^XMB(3.9,25,2,6629,0)="""RTN"",""ECPRVMUT"",94,0)"
^XMB(3.9,25,2,6630,0)=" ; Output: returns 1 if successful or 0 if unsuccessful"
^XMB(3.9,25,2,6631,0)="""RTN"",""ECPRVMUT"",95,0)"
^XMB(3.9,25,2,6632,0)=" N ECINF"
^XMB(3.9,25,2,6633,0)="""RTN"",""ECPRVMUT"",96,0)"
^XMB(3.9,25,2,6634,0)=" K ECPRVARY,ECPRV,ECPRVN"
^XMB(3.9,25,2,6635,0)="""RTN"",""ECPRVMUT"",97,0)"
^XMB(3.9,25,2,6636,0)=" ;get providers"
^XMB(3.9,25,2,6637,0)="""RTN"",""ECPRVMUT"",98,0)"
^XMB(3.9,25,2,6638,0)=" I $G(ECIEN)'="""" D"
^XMB(3.9,25,2,6639,0)="""RTN"",""ECPRVMUT"",99,0)"
^XMB(3.9,25,2,6640,0)=" .S ECINF=$$GETPRV(ECIEN,.ECPRVARY)"
^XMB(3.9,25,2,6641,0)="""RTN"",""ECPRVMUT"",100,0)"
^XMB(3.9,25,2,6642,0)=" .S ECINF=$$GETPPRV(ECIEN,.ECPRVN) I 'ECINF S ECPRV=$P(ECPRVN,U),ECPRVN=$P(ECPRVN,U,2)"
^XMB(3.9,25,2,6643,0)="""RTN"",""ECPRVMUT"",101,0)"
^XMB(3.9,25,2,6644,0)=" ;display providers"
^XMB(3.9,25,2,6645,0)="""RTN"",""ECPRVMUT"",102,0)"
^XMB(3.9,25,2,6646,0)=" I $O(ECPRVARY(""""))'="""" D DSPPRV"
^XMB(3.9,25,2,6647,0)="""RTN"",""ECPRVMUT"",103,0)"
^XMB(3.9,25,2,6648,0)=" ;ask for primary provider"
^XMB(3.9,25,2,6649,0)="""RTN"",""ECPRVMUT"",104,0)"
^XMB(3.9,25,2,6650,0)=" D PPRV I $G(ECOUT) Q"
^XMB(3.9,25,2,6651,0)="""RTN"",""ECPRVMUT"",105,0)"
^XMB(3.9,25,2,6652,0)=" ;ask for secondary provider"
^XMB(3.9,25,2,6653,0)="""RTN"",""ECPRVMUT"",106,0)"
^XMB(3.9,25,2,6654,0)=" D SPRV"
^XMB(3.9,25,2,6655,0)="""RTN"",""ECPRVMUT"",107,0)"
^XMB(3.9,25,2,6656,0)=" Q"
^XMB(3.9,25,2,6657,0)="""RTN"",""ECPRVMUT"",108,0)"
^XMB(3.9,25,2,6658,0)="PPRV ;Ask primary provider"
^XMB(3.9,25,2,6659,0)="""RTN"",""ECPRVMUT"",109,0)"
^XMB(3.9,25,2,6660,0)=" ;   Variables:   ECPRV   = Primary provider ien"
^XMB(3.9,25,2,6661,0)="""RTN"",""ECPRVMUT"",110,0)"
^XMB(3.9,25,2,6662,0)=" ;                ECPRVN  = Primary provider descript, default if define"
^XMB(3.9,25,2,6663,0)="""RTN"",""ECPRVMUT"",111,0)"
^XMB(3.9,25,2,6664,0)=" ;                ECPRVARY= Array with providers"
^XMB(3.9,25,2,6665,0)="""RTN"",""ECPRVMUT"",112,0)"
^XMB(3.9,25,2,6666,0)=" ;                          subscript=provider IEN, "
^XMB(3.9,25,2,6667,0)="""RTN"",""ECPRVMUT"",113,0)"
^XMB(3.9,25,2,6668,0)=" ;                          data=(P)rimary_^_provider description"
^XMB(3.9,25,2,6669,0)="""RTN"",""ECPRVMUT"",114,0)"
^XMB(3.9,25,2,6670,0)=" ;                ECOUT   = Error flag (1/0)"
^XMB(3.9,25,2,6671,0)="""RTN"",""ECPRVMUT"",115,0)"
^XMB(3.9,25,2,6672,0)=" ;   "
^XMB(3.9,25,2,6673,0)="""RTN"",""ECPRVMUT"",116,0)"
^XMB(3.9,25,2,6674,0)=" N DIR,DIROUT,DIRUT,DTOUT,DUOUT,ECW,X,Y,IEN"
^XMB(3.9,25,2,6675,0)="""RTN"",""ECPRVMUT"",117,0)"
^XMB(3.9,25,2,6676,0)=" S ECPRV=$G(ECPRV),ECPRVN=$G(ECPRVN)"
^XMB(3.9,25,2,6677,0)="""RTN"",""ECPRVMUT"",118,0)"
^XMB(3.9,25,2,6678,0)=" S DIR(0)=""P^VA(200,:AEZQM"",DIR(""A"")=""Primary Provider"""
^XMB(3.9,25,2,6679,0)="""RTN"",""ECPRVMUT"",119,0)"
^XMB(3.9,25,2,6680,0)=" S DIR(""?"")=""Enter the provider responsible for providing primary care for this encounter."""
^XMB(3.9,25,2,6681,0)="""RTN"",""ECPRVMUT"",120,0)"
^XMB(3.9,25,2,6682,0)=" I ECPRV'="""" S DIR(""B"")=$$DICLK^ECPRVUTL(ECPRV)"
^XMB(3.9,25,2,6683,0)="""RTN"",""ECPRVMUT"",121,0)"
^XMB(3.9,25,2,6684,0)=" ;get provider with active person class"
^XMB(3.9,25,2,6685,0)="""RTN"",""ECPRVMUT"",122,0)"
^XMB(3.9,25,2,6686,0)=" S DIR(""S"")=""I +$$GET^XUA4A72(+Y,$G(ECDT,DT))>0"""
^XMB(3.9,25,2,6687,0)="""RTN"",""ECPRVMUT"",123,0)"
^XMB(3.9,25,2,6688,0)=" D ^DIR"
^XMB(3.9,25,2,6689,0)="""RTN"",""ECPRVMUT"",124,0)"
^XMB(3.9,25,2,6690,0)=" I +Y>0 D  Q"
^XMB(3.9,25,2,6691,0)="""RTN"",""ECPRVMUT"",125,0)"
^XMB(3.9,25,2,6692,0)=" .;check if provider exist as secondary and remove."
^XMB(3.9,25,2,6693,0)="""RTN"",""ECPRVMUT"",126,0)"
^XMB(3.9,25,2,6694,0)=" .S IEN=0"
^XMB(3.9,25,2,6695,0)="""RTN"",""ECPRVMUT"",127,0)"
^XMB(3.9,25,2,6696,0)=" .F  S IEN=$O(ECPRVARY(IEN)) Q:'IEN  I $P(ECPRVARY(IEN),U,3)'=""P"" D"
^XMB(3.9,25,2,6697,0)="""RTN"",""ECPRVMUT"",128,0)"
^XMB(3.9,25,2,6698,0)=" ..I +ECPRVARY(IEN)=+Y D"
^XMB(3.9,25,2,6699,0)="""RTN"",""ECPRVMUT"",129,0)"
^XMB(3.9,25,2,6700,0)=" ...W !?25,""*** (Provider removed as secondary.) ***"" K ECPRVARY(IEN)"
^XMB(3.9,25,2,6701,0)="""RTN"",""ECPRVMUT"",130,0)"
^XMB(3.9,25,2,6702,0)=" .S ECW=$$CLASS^ECPRVUTL(+Y,$G(ECDT,DT))"
^XMB(3.9,25,2,6703,0)="""RTN"",""ECPRVMUT"",131,0)"
^XMB(3.9,25,2,6704,0)=" .S ECPRV=+Y,ECPRVN=Y(0,0),ECPRVARY(1)=ECPRV_""^""_Y(0,0)_""^P^PRIMARY"""
^XMB(3.9,25,2,6705,0)="""RTN"",""ECPRVMUT"",132,0)"
^XMB(3.9,25,2,6706,0)=" S ECOUT=1 Q"
^XMB(3.9,25,2,6707,0)="""RTN"",""ECPRVMUT"",133,0)"
^XMB(3.9,25,2,6708,0)=" Q"
^XMB(3.9,25,2,6709,0)="""RTN"",""ECPRVMUT"",134,0)"
^XMB(3.9,25,2,6710,0)="SPRV ;Ask secondary provider(s)"
^XMB(3.9,25,2,6711,0)="""RTN"",""ECPRVMUT"",135,0)"
^XMB(3.9,25,2,6712,0)=" ;   Variables:   ECPRV   = Primary provider ien, default if define"
^XMB(3.9,25,2,6713,0)="""RTN"",""ECPRVMUT"",136,0)"
^XMB(3.9,25,2,6714,0)=" ;                ECPRVARY= Array with providers"
^XMB(3.9,25,2,6715,0)="""RTN"",""ECPRVMUT"",137,0)"
^XMB(3.9,25,2,6716,0)=" ;                          subscript=provider IEN, "
^XMB(3.9,25,2,6717,0)="""RTN"",""ECPRVMUT"",138,0)"
^XMB(3.9,25,2,6718,0)=" ;                          data=(S)econdary_^_provider description"
^XMB(3.9,25,2,6719,0)="""RTN"",""ECPRVMUT"",139,0)"
^XMB(3.9,25,2,6720,0)=" ;"
^XMB(3.9,25,2,6721,0)="""RTN"",""ECPRVMUT"",140,0)"
^XMB(3.9,25,2,6722,0)=" N Y,X,DEF,DA,DIR,DIROUT,DIRUT,DTOUT,DUOUT,CNT,X,Y"
^XMB(3.9,25,2,6723,0)="""RTN"",""ECPRVMUT"",141,0)"
^XMB(3.9,25,2,6724,0)=" ;create ""B"" xref and subscript by provider ien in array ECPRVARY"
^XMB(3.9,25,2,6725,0)="""RTN"",""ECPRVMUT"",142,0)"
^XMB(3.9,25,2,6726,0)=" ;set last provider as default"
^XMB(3.9,25,2,6727,0)="""RTN"",""ECPRVMUT"",143,0)"
^XMB(3.9,25,2,6728,0)=" S DEF="""",IEN=$O(ECPRVARY(""""),-1),CNT=+IEN+1 I IEN D"
^XMB(3.9,25,2,6729,0)="""RTN"",""ECPRVMUT"",144,0)"
^XMB(3.9,25,2,6730,0)=" .I $P(ECPRVARY(IEN),U)'=$G(ECPRV) S DEF=$P(ECPRVARY(IEN),U)"
^XMB(3.9,25,2,6731,0)="""RTN"",""ECPRVMUT"",145,0)"
^XMB(3.9,25,2,6732,0)=" S IEN=0"
^XMB(3.9,25,2,6733,0)="""RTN"",""ECPRVMUT"",146,0)"
^XMB(3.9,25,2,6734,0)=" F  S IEN=$O(ECPRVARY(IEN)) Q:'IEN  I $P(ECPRVARY(IEN),U,3)'=""P"" D"
^XMB(3.9,25,2,6735,0)="""RTN"",""ECPRVMUT"",147,0)"
^XMB(3.9,25,2,6736,0)=" .S ECPRVARY(""B"",+ECPRVARY(IEN))=IEN"
^XMB(3.9,25,2,6737,0)="""RTN"",""ECPRVMUT"",148,0)"
^XMB(3.9,25,2,6738,0)=" S:DEF'="""" DIR(""B"")=$$DICLK^ECPRVUTL(DEF) ;DIR(""B"")=""`""_DEF"
^XMB(3.9,25,2,6739,0)="""RTN"",""ECPRVMUT"",149,0)"
^XMB(3.9,25,2,6740,0)=" S DIR(0)=""PO^VA(200,:AEZQM"",DIR(""A"")=""Secondary Provider"""
^XMB(3.9,25,2,6741,0)="""RTN"",""ECPRVMUT"",150,0)"
^XMB(3.9,25,2,6742,0)=" S DIR(""?"")=""^D PRVHLP^ECPRVMUT"""
^XMB(3.9,25,2,6743,0)="""RTN"",""ECPRVMUT"",151,0)"
^XMB(3.9,25,2,6744,0)=" ;get providers with active person class"
^XMB(3.9,25,2,6745,0)="""RTN"",""ECPRVMUT"",152,0)"
^XMB(3.9,25,2,6746,0)=" S DIR(""S"")=""I +$$GET^XUA4A72(+Y,$G(ECDT,DT))>0"""
^XMB(3.9,25,2,6747,0)="""RTN"",""ECPRVMUT"",153,0)"
^XMB(3.9,25,2,6748,0)=" F  D ^DIR S:$D(DUOUT) ECOUT=1 Q:(X="""")!($D(DTOUT))!($D(DUOUT))  D"
^XMB(3.9,25,2,6749,0)="""RTN"",""ECPRVMUT"",154,0)"
^XMB(3.9,25,2,6750,0)=" .I +Y>0,+Y=$G(ECPRV) W ""    Provider already entered as primary."" Q"
^XMB(3.9,25,2,6751,0)="""RTN"",""ECPRVMUT"",155,0)"
^XMB(3.9,25,2,6752,0)=" .I +Y=DEF K DIR(""B"") S DEF="""" Q"
^XMB(3.9,25,2,6753,0)="""RTN"",""ECPRVMUT"",156,0)"
^XMB(3.9,25,2,6754,0)=" .I X=""@"",DEF'="""" D  Q"
^XMB(3.9,25,2,6755,0)="""RTN"",""ECPRVMUT"",157,0)"
^XMB(3.9,25,2,6756,0)=" ..I DEF=$G(ECPRV) W ""    Provider flag as primary. Can't delete."" Q"
^XMB(3.9,25,2,6757,0)="""RTN"",""ECPRVMUT"",158,0)"
^XMB(3.9,25,2,6758,0)=" ..W ""    ""_$$GET1^DIQ(200,DEF,.01)_""...deleted"""
^XMB(3.9,25,2,6759,0)="""RTN"",""ECPRVMUT"",159,0)"
^XMB(3.9,25,2,6760,0)=" ..K ECPRVARY(ECPRVARY(""B"",DEF)),ECPRVARY(""B"",DEF),DIR(""B"")"
^XMB(3.9,25,2,6761,0)="""RTN"",""ECPRVMUT"",160,0)"
^XMB(3.9,25,2,6762,0)=" .Q:+Y<0  I $D(ECPRVARY(""B"",+Y)) S DEF=+Y,DIR(""B"")=$$DICLK^ECPRVUTL(DEF) Q"
^XMB(3.9,25,2,6763,0)="""RTN"",""ECPRVMUT"",161,0)"
^XMB(3.9,25,2,6764,0)=" .S ECW=$$CLASS^ECPRVUTL(+Y,$G(ECDT,DT))"
^XMB(3.9,25,2,6765,0)="""RTN"",""ECPRVMUT"",162,0)"
^XMB(3.9,25,2,6766,0)=" .S ECPRVARY(""B"",+Y)=CNT,ECPRVARY(CNT)=+Y_""^""_Y(0,0)_""^S^SECONDARY"""
^XMB(3.9,25,2,6767,0)="""RTN"",""ECPRVMUT"",163,0)"
^XMB(3.9,25,2,6768,0)=" .S DEF="""",CNT=CNT+1 K DIR(""B"")"
^XMB(3.9,25,2,6769,0)="""RTN"",""ECPRVMUT"",164,0)"
^XMB(3.9,25,2,6770,0)=" K ECPRVARY(""B"")"
^XMB(3.9,25,2,6771,0)="""RTN"",""ECPRVMUT"",165,0)"
^XMB(3.9,25,2,6772,0)=" Q "
^XMB(3.9,25,2,6773,0)="""RTN"",""ECPRVMUT"",166,0)"
^XMB(3.9,25,2,6774,0)="PRVHLP ;Help for Provider Code"
^XMB(3.9,25,2,6775,0)="""RTN"",""ECPRVMUT"",167,0)"
^XMB(3.9,25,2,6776,0)=" N DIC,PRV,D"
^XMB(3.9,25,2,6777,0)="""RTN"",""ECPRVMUT"",168,0)"
^XMB(3.9,25,2,6778,0)=" I $D(ECPRVARY) D"
^XMB(3.9,25,2,6779,0)="""RTN"",""ECPRVMUT"",169,0)"
^XMB(3.9,25,2,6780,0)=" .W !?1,""Provider Already Entered:"" S PRV=0"
^XMB(3.9,25,2,6781,0)="""RTN"",""ECPRVMUT"",170,0)"
^XMB(3.9,25,2,6782,0)=" .F  S PRV=$O(ECPRVARY(PRV)) Q:'PRV  D"
^XMB(3.9,25,2,6783,0)="""RTN"",""ECPRVMUT"",171,0)"
^XMB(3.9,25,2,6784,0)=" ..W !,?3,$P(ECPRVARY(PRV),U),?15,$P(ECPRVARY(PRV),U,2)"
^XMB(3.9,25,2,6785,0)="""RTN"",""ECPRVMUT"",172,0)"
^XMB(3.9,25,2,6786,0)=" ..I $P(ECPRVARY(PRV),U,3)=""P"" W "" (Primary)"""
^XMB(3.9,25,2,6787,0)="""RTN"",""ECPRVMUT"",173,0)"
^XMB(3.9,25,2,6788,0)=" W !?1,""You may enter a new Provider, if you wish.  Enter the secondary Provider"""
^XMB(3.9,25,2,6789,0)="""RTN"",""ECPRVMUT"",174,0)"
^XMB(3.9,25,2,6790,0)=" W !?1,""for this procedure."""
^XMB(3.9,25,2,6791,0)="""RTN"",""ECPRVMUT"",175,0)"
^XMB(3.9,25,2,6792,0)=" Q"
^XMB(3.9,25,2,6793,0)="""RTN"",""ECPRVMUT"",176,0)"
^XMB(3.9,25,2,6794,0)=" ;"
^XMB(3.9,25,2,6795,0)="""RTN"",""ECPRVMUT"",177,0)"
^XMB(3.9,25,2,6796,0)="COMP(ECUX,ECDTX) ;get provider information, similar to COMP^ECPRVUTL"
^XMB(3.9,25,2,6797,0)="""RTN"",""ECPRVMUT"",178,0)"
^XMB(3.9,25,2,6798,0)=" ;Input:  ECUX  = IEN in file #200"
^XMB(3.9,25,2,6799,0)="""RTN"",""ECPRVMUT"",179,0)"
^XMB(3.9,25,2,6800,0)=" ;        ECDTX = Date of encounter"
^XMB(3.9,25,2,6801,0)="""RTN"",""ECPRVMUT"",180,0)"
^XMB(3.9,25,2,6802,0)=" ;"
^XMB(3.9,25,2,6803,0)="""RTN"",""ECPRVMUT"",181,0)"
^XMB(3.9,25,2,6804,0)=" ;Output: ECUX  = ien in file #200^name^compress person class info"
^XMB(3.9,25,2,6805,0)="""RTN"",""ECPRVMUT"",182,0)"
^XMB(3.9,25,2,6806,0)=" ;"
^XMB(3.9,25,2,6807,0)="""RTN"",""ECPRVMUT"",183,0)"
^XMB(3.9,25,2,6808,0)=" I $G(ECUX)="""" Q"
^XMB(3.9,25,2,6809,0)="""RTN"",""ECPRVMUT"",184,0)"
^XMB(3.9,25,2,6810,0)=" S ECDTX=$G(ECDTX,DT)"
^XMB(3.9,25,2,6811,0)="""RTN"",""ECPRVMUT"",185,0)"
^XMB(3.9,25,2,6812,0)=" ;build ECUX=ien in file #200^name^person class ien^occupation^specialty^"
^XMB(3.9,25,2,6813,0)="""RTN"",""ECPRVMUT"",186,0)"
^XMB(3.9,25,2,6814,0)=" ;           subspecialty^etc."
^XMB(3.9,25,2,6815,0)="""RTN"",""ECPRVMUT"",187,0)"
^XMB(3.9,25,2,6816,0)=" S ECUX=+ECUX_""^""_$$GET1^DIQ(200,+ECUX,.01)_""^""_$$GET^XUA4A72(+ECUX,ECDTX)"
^XMB(3.9,25,2,6817,0)="""RTN"",""ECPRVMUT"",188,0)"
^XMB(3.9,25,2,6818,0)=" D COMP^ECPRVUTL(.ECUX,ECDTX)"
^XMB(3.9,25,2,6819,0)="""RTN"",""ECPRVMUT"",189,0)"
^XMB(3.9,25,2,6820,0)=" Q"
^XMB(3.9,25,2,6821,0)="""RTN"",""ECPRVMUT"",190,0)"
^XMB(3.9,25,2,6822,0)="DSP1416(ECPRVARY) ;Display providers for data entry options"
^XMB(3.9,25,2,6823,0)="""RTN"",""ECPRVMUT"",191,0)"
^XMB(3.9,25,2,6824,0)=" N ECI,ECDAT,ECUP,CNT"
^XMB(3.9,25,2,6825,0)="""RTN"",""ECPRVMUT"",192,0)"
^XMB(3.9,25,2,6826,0)=" S (ECI,CNT)=0 F  S ECI=$O(ECPRVARY(ECI)) Q:'ECI  D"
^XMB(3.9,25,2,6827,0)="""RTN"",""ECPRVMUT"",193,0)"
^XMB(3.9,25,2,6828,0)=" .S ECDAT=ECPRVARY(ECI),CNT=CNT+1"
^XMB(3.9,25,2,6829,0)="""RTN"",""ECPRVMUT"",194,0)"
^XMB(3.9,25,2,6830,0)=" .W !,""Provider""_$S(CNT=1:"""",1:"" #""_CNT)_"":"",?14,$P(ECDAT,U,2)"
^XMB(3.9,25,2,6831,0)="""RTN"",""ECPRVMUT"",195,0)"
^XMB(3.9,25,2,6832,0)=" .I +$P(ECDAT,U) S ECUP=+$P(ECDAT,U) D COMP(.ECUP,$G(ECDT,DT)) D"
^XMB(3.9,25,2,6833,0)="""RTN"",""ECPRVMUT"",196,0)"
^XMB(3.9,25,2,6834,0)=" ..W !?16,$P(ECUP,""^"",3)"
^XMB(3.9,25,2,6835,0)="""RTN"",""ECPRVMUT"",197,0)"
^XMB(3.9,25,2,6836,0)=" Q"
^XMB(3.9,25,2,6837,0)="""RTN"",""ECPRVMUT"",198,0)"
^XMB(3.9,25,2,6838,0)="DSP1442(ECPRVARY) ;Display providers for data entry options"
^XMB(3.9,25,2,6839,0)="""RTN"",""ECPRVMUT"",199,0)"
^XMB(3.9,25,2,6840,0)=" N ECI,ECDAT,ECUP,CNT"
^XMB(3.9,25,2,6841,0)="""RTN"",""ECPRVMUT"",200,0)"
^XMB(3.9,25,2,6842,0)=" S (ECI,CNT)=0  F  S ECI=$O(ECPRVARY(ECI)) Q:'ECI  D"
^XMB(3.9,25,2,6843,0)="""RTN"",""ECPRVMUT"",201,0)"
^XMB(3.9,25,2,6844,0)=" .S ECDAT=ECPRVARY(ECI),CNT=CNT+1"
^XMB(3.9,25,2,6845,0)="""RTN"",""ECPRVMUT"",202,0)"
^XMB(3.9,25,2,6846,0)=" .W !,""Provider""_$S(CNT=1:"""",1:"" #""_CNT)_"":"",?14,$E($P(ECDAT,U,2),1,24)"
^XMB(3.9,25,2,6847,0)="""RTN"",""ECPRVMUT"",203,0)"
^XMB(3.9,25,2,6848,0)=" .I +$P(ECDAT,U) S ECUP=+$P(ECDAT,U) D COMP^ECPRVMUT(.ECUP,$G(ECDT,DT)) D"
^XMB(3.9,25,2,6849,0)="""RTN"",""ECPRVMUT"",204,0)"
^XMB(3.9,25,2,6850,0)=" ..W ?42,$E($P(ECUP,U,3),1,36)"
^XMB(3.9,25,2,6851,0)="""RTN"",""ECPRVMUT"",205,0)"
^XMB(3.9,25,2,6852,0)=" Q"
^XMB(3.9,25,2,6853,0)="""RTN"",""ECPRVMUT"",206,0)"
^XMB(3.9,25,2,6854,0)="DSP1444(ECPRVARY) ;Display providers for data entry options"
^XMB(3.9,25,2,6855,0)="""RTN"",""ECPRVMUT"",207,0)"
^XMB(3.9,25,2,6856,0)=" N ECI,ECDAT,ECUP,CNT"
^XMB(3.9,25,2,6857,0)="""RTN"",""ECPRVMUT"",208,0)"
^XMB(3.9,25,2,6858,0)=" S (ECI,CNT)=0  F  S ECI=$O(ECPRVARY(ECI)) Q:'ECI  D"
^XMB(3.9,25,2,6859,0)="""RTN"",""ECPRVMUT"",209,0)"
^XMB(3.9,25,2,6860,0)=" .S ECDAT=ECPRVARY(ECI),CNT=CNT+1"
^XMB(3.9,25,2,6861,0)="""RTN"",""ECPRVMUT"",210,0)"
^XMB(3.9,25,2,6862,0)=" .W !,""Provider""_$S(CNT=1:"""",1:"" #""_CNT)_"":"",?14,$E($P(ECDAT,U,2),1,24)"
^XMB(3.9,25,2,6863,0)="""RTN"",""ECPRVMUT"",211,0)"
^XMB(3.9,25,2,6864,0)=" .I +$P(ECDAT,U) S ECUP=+$P(ECDAT,U) D COMP^ECPRVMUT(.ECUP,$G(ECDT,DT)) D"
^XMB(3.9,25,2,6865,0)="""RTN"",""ECPRVMUT"",212,0)"
^XMB(3.9,25,2,6866,0)=" ..W ?44,$E($P(ECUP,U,3),1,34)"
^XMB(3.9,25,2,6867,0)="""RTN"",""ECPRVMUT"",213,0)"
^XMB(3.9,25,2,6868,0)=" Q"
^XMB(3.9,25,2,6869,0)="""RTN"",""ECRDSSU"")"
^XMB(3.9,25,2,6870,0)="0^7^B49642828^B48824119"
^XMB(3.9,25,2,6871,0)="""RTN"",""ECRDSSU"",1,0)"
^XMB(3.9,25,2,6872,0)="ECRDSSU ;ALB/ESD - DSS Unit Workload Summary Report ; 5 Aug 97"
^XMB(3.9,25,2,6873,0)="""RTN"",""ECRDSSU"",2,0)"
^XMB(3.9,25,2,6874,0)=" ;;2.0; EVENT CAPTURE ;**5,8,10,14,18,47,63,72**;8 May 96"
^XMB(3.9,25,2,6875,0)="""RTN"",""ECRDSSU"",3,0)"
^XMB(3.9,25,2,6876,0)=" ;"
^XMB(3.9,25,2,6877,0)="""RTN"",""ECRDSSU"",4,0)"
^XMB(3.9,25,2,6878,0)="EN ;- Get location(s), DSS Unit(s), start & end dates, device"
^XMB(3.9,25,2,6879,0)="""RTN"",""ECRDSSU"",5,0)"
^XMB(3.9,25,2,6880,0)=" ;"
^XMB(3.9,25,2,6881,0)="""RTN"",""ECRDSSU"",6,0)"
^XMB(3.9,25,2,6882,0)=" N ECLOC,ECDSSU,ECSTDT,ECENDDT"
^XMB(3.9,25,2,6883,0)="""RTN"",""ECRDSSU"",7,0)"
^XMB(3.9,25,2,6884,0)=" I '$$ASKLOC^ECRUTL G ENQ"
^XMB(3.9,25,2,6885,0)="""RTN"",""ECRDSSU"",8,0)"
^XMB(3.9,25,2,6886,0)=" I '$$ASKDSS^ECRUTL G ENQ"
^XMB(3.9,25,2,6887,0)="""RTN"",""ECRDSSU"",9,0)"
^XMB(3.9,25,2,6888,0)=" I '$$STDT^ECRUTL G ENQ"
^XMB(3.9,25,2,6889,0)="""RTN"",""ECRDSSU"",10,0)"
^XMB(3.9,25,2,6890,0)=" I '$$ENDDT^ECRUTL(ECSTDT) G ENQ"
^XMB(3.9,25,2,6891,0)="""RTN"",""ECRDSSU"",11,0)"
^XMB(3.9,25,2,6892,0)=" I $$ASKDEV D STRPT^ECRDSSU"
^XMB(3.9,25,2,6893,0)="""RTN"",""ECRDSSU"",12,0)"
^XMB(3.9,25,2,6894,0)="ENQ Q"
^XMB(3.9,25,2,6895,0)="""RTN"",""ECRDSSU"",13,0)"
^XMB(3.9,25,2,6896,0)=" ;"
^XMB(3.9,25,2,6897,0)="""RTN"",""ECRDSSU"",14,0)"
^XMB(3.9,25,2,6898,0)=" ;"
^XMB(3.9,25,2,6899,0)="""RTN"",""ECRDSSU"",15,0)"
^XMB(3.9,25,2,6900,0)="STRPT ;- Main entry point"
^XMB(3.9,25,2,6901,0)="""RTN"",""ECRDSSU"",16,0)"
^XMB(3.9,25,2,6902,0)=" ;"
^XMB(3.9,25,2,6903,0)="""RTN"",""ECRDSSU"",17,0)"
^XMB(3.9,25,2,6904,0)=" N ECCRT,ECDSSNM,ECDSSTOT,ECLOCNM,ECQUIT,ECPAGE"
^XMB(3.9,25,2,6905,0)="""RTN"",""ECRDSSU"",18,0)"
^XMB(3.9,25,2,6906,0)=" S (ECDSSTOT,ECPAGE,ECQUIT)=0,(ECDSSNM,ECLOCNM)="""""
^XMB(3.9,25,2,6907,0)="""RTN"",""ECRDSSU"",19,0)"
^XMB(3.9,25,2,6908,0)=" ; Determine if device is CRT"
^XMB(3.9,25,2,6909,0)="""RTN"",""ECRDSSU"",20,0)"
^XMB(3.9,25,2,6910,0)=" S ECCRT=$S($E(IOST,1,2)=""C-"":1,1:0)"
^XMB(3.9,25,2,6911,0)="""RTN"",""ECRDSSU"",21,0)"
^XMB(3.9,25,2,6912,0)=" U IO"
^XMB(3.9,25,2,6913,0)="""RTN"",""ECRDSSU"",22,0)"
^XMB(3.9,25,2,6914,0)=" D GETREC"
^XMB(3.9,25,2,6915,0)="""RTN"",""ECRDSSU"",23,0)"
^XMB(3.9,25,2,6916,0)=" D LOOP"
^XMB(3.9,25,2,6917,0)="""RTN"",""ECRDSSU"",24,0)"
^XMB(3.9,25,2,6918,0)=" I ECQUIT G STRPTQ"
^XMB(3.9,25,2,6919,0)="""RTN"",""ECRDSSU"",25,0)"
^XMB(3.9,25,2,6920,0)=" D PRTCAT"
^XMB(3.9,25,2,6921,0)="""RTN"",""ECRDSSU"",26,0)"
^XMB(3.9,25,2,6922,0)=" I ECQUIT G STRPTQ"
^XMB(3.9,25,2,6923,0)="""RTN"",""ECRDSSU"",27,0)"
^XMB(3.9,25,2,6924,0)=" D DSSCHG"
^XMB(3.9,25,2,6925,0)="""RTN"",""ECRDSSU"",28,0)"
^XMB(3.9,25,2,6926,0)=" I ECQUIT G STRPTQ"
^XMB(3.9,25,2,6927,0)="""RTN"",""ECRDSSU"",29,0)"
^XMB(3.9,25,2,6928,0)=" I $D(ECGUI) G STRPTQ"
^XMB(3.9,25,2,6929,0)="""RTN"",""ECRDSSU"",30,0)"
^XMB(3.9,25,2,6930,0)=" I $D(ZTQUEUED) S ZTREQ=""@"""
^XMB(3.9,25,2,6931,0)="""RTN"",""ECRDSSU"",31,0)"
^XMB(3.9,25,2,6932,0)=" D ^%ZISC"
^XMB(3.9,25,2,6933,0)="""RTN"",""ECRDSSU"",32,0)"
^XMB(3.9,25,2,6934,0)="STRPTQ K ^TMP(""ECRPT"")"
^XMB(3.9,25,2,6935,0)="""RTN"",""ECRDSSU"",33,0)"
^XMB(3.9,25,2,6936,0)=" Q"
^XMB(3.9,25,2,6937,0)="""RTN"",""ECRDSSU"",34,0)"
^XMB(3.9,25,2,6938,0)=" ;"
^XMB(3.9,25,2,6939,0)="""RTN"",""ECRDSSU"",35,0)"
^XMB(3.9,25,2,6940,0)=" ;"
^XMB(3.9,25,2,6941,0)="""RTN"",""ECRDSSU"",36,0)"
^XMB(3.9,25,2,6942,0)="GETREC ;- Loop thru ""ADT"" x-ref of EC Patient file (#721)"
^XMB(3.9,25,2,6943,0)="""RTN"",""ECRDSSU"",37,0)"
^XMB(3.9,25,2,6944,0)=" ;"
^XMB(3.9,25,2,6945,0)="""RTN"",""ECRDSSU"",38,0)"
^XMB(3.9,25,2,6946,0)=" N ECD,ECDFN,ECIEN,ECL,ECNT,I,J,ECREC,ECST"
^XMB(3.9,25,2,6947,0)="""RTN"",""ECRDSSU"",39,0)"
^XMB(3.9,25,2,6948,0)=" S ECNT=0"
^XMB(3.9,25,2,6949,0)="""RTN"",""ECRDSSU"",40,0)"
^XMB(3.9,25,2,6950,0)=" F I=0:0 S I=$O(ECLOC(I)) Q:'I  S ECL=+$P(ECLOC(I),U) D"
^XMB(3.9,25,2,6951,0)="""RTN"",""ECRDSSU"",41,0)"
^XMB(3.9,25,2,6952,0)=" . S ECDFN=0"
^XMB(3.9,25,2,6953,0)="""RTN"",""ECRDSSU"",42,0)"
^XMB(3.9,25,2,6954,0)=" . F  S ECDFN=+$O(^ECH(""ADT"",ECL,ECDFN)) Q:'ECDFN  F J=0:0 S J=$O(ECDSSU(J)) Q:'J  S ECD=+$P(ECDSSU(J),U) D"
^XMB(3.9,25,2,6955,0)="""RTN"",""ECRDSSU"",43,0)"
^XMB(3.9,25,2,6956,0)=" .. S ECIEN=0"
^XMB(3.9,25,2,6957,0)="""RTN"",""ECRDSSU"",44,0)"
^XMB(3.9,25,2,6958,0)=" .. S ECST=ECSTDT"
^XMB(3.9,25,2,6959,0)="""RTN"",""ECRDSSU"",45,0)"
^XMB(3.9,25,2,6960,0)=" .. F  S ECST=+$O(^ECH(""ADT"",ECL,ECDFN,ECD,ECST)) Q:'ECST!(ECST>ECENDDT)  F  S ECIEN=+$O(^ECH(""ADT"",ECL,ECDFN,ECD,ECST,ECIEN)) Q:'ECIEN  D"
^XMB(3.9,25,2,6961,0)="""RTN"",""ECRDSSU"",46,0)"
^XMB(3.9,25,2,6962,0)=" ... S ECREC=$G(^ECH(ECIEN,0))"
^XMB(3.9,25,2,6963,0)="""RTN"",""ECRDSSU"",47,0)"
^XMB(3.9,25,2,6964,0)=" ... I ECD=+$P(ECREC,""^"",7) D CRETMP"
^XMB(3.9,25,2,6965,0)="""RTN"",""ECRDSSU"",48,0)"
^XMB(3.9,25,2,6966,0)=" Q"
^XMB(3.9,25,2,6967,0)="""RTN"",""ECRDSSU"",49,0)"
^XMB(3.9,25,2,6968,0)=" ;"
^XMB(3.9,25,2,6969,0)="""RTN"",""ECRDSSU"",50,0)"
^XMB(3.9,25,2,6970,0)=" ;"
^XMB(3.9,25,2,6971,0)="""RTN"",""ECRDSSU"",51,0)"
^XMB(3.9,25,2,6972,0)="CRETMP ;- Create ^TMP(""ECRPT"" array w/format:"
^XMB(3.9,25,2,6973,0)="""RTN"",""ECRDSSU"",52,0)"
^XMB(3.9,25,2,6974,0)=" ;    ^TMP(""ECRPT"",$J,location,DSS Unit,category,count)=procedure^volume^"
^XMB(3.9,25,2,6975,0)="""RTN"",""ECRDSSU"",53,0)"
^XMB(3.9,25,2,6976,0)=" ;                                                         CPT modifiers"
^XMB(3.9,25,2,6977,0)="""RTN"",""ECRDSSU"",54,0)"
^XMB(3.9,25,2,6978,0)=" ;"
^XMB(3.9,25,2,6979,0)="""RTN"",""ECRDSSU"",55,0)"
^XMB(3.9,25,2,6980,0)=" N ECTC,ECTP,ECMOD,ECMODS,ECMODF,SEQ"
^XMB(3.9,25,2,6981,0)="""RTN"",""ECRDSSU"",56,0)"
^XMB(3.9,25,2,6982,0)=" S ECTC=$S(+$P(ECREC,""^"",8)=0:-1,1:+$P(ECREC,""^"",8)),ECTP=$P($G(ECREC),""^"",9)"
^XMB(3.9,25,2,6983,0)="""RTN"",""ECRDSSU"",57,0)"
^XMB(3.9,25,2,6984,0)=" S ECNT=ECNT+1,ECTP=$P(ECTP,"";"")_"";""_$E($P(ECTP,"";"",2),1)"
^XMB(3.9,25,2,6985,0)="""RTN"",""ECRDSSU"",58,0)"
^XMB(3.9,25,2,6986,0)=" ;ALB/JAM - Get Procedure CPT modifiers"
^XMB(3.9,25,2,6987,0)="""RTN"",""ECRDSSU"",59,0)"
^XMB(3.9,25,2,6988,0)=" S ECMODS="""" I $O(^ECH(ECIEN,""MOD"",0))'="""" D"
^XMB(3.9,25,2,6989,0)="""RTN"",""ECRDSSU"",60,0)"
^XMB(3.9,25,2,6990,0)=" . K ECMOD S ECMODF=$$MOD^ECUTL(ECIEN,""I"",.ECMOD) I 'ECMODF Q"
^XMB(3.9,25,2,6991,0)="""RTN"",""ECRDSSU"",61,0)"
^XMB(3.9,25,2,6992,0)=" . S SEQ="""" F  S SEQ=$O(ECMOD(SEQ)) Q:SEQ=""""  D"
^XMB(3.9,25,2,6993,0)="""RTN"",""ECRDSSU"",62,0)"
^XMB(3.9,25,2,6994,0)=" . . S ECMODS=ECMODS_$S(ECMODS="""":"""",1:"";"")_SEQ"
^XMB(3.9,25,2,6995,0)="""RTN"",""ECRDSSU"",63,0)"
^XMB(3.9,25,2,6996,0)=" S ^TMP(""ECRPT"",$J,+$P(ECREC,""^"",4),+$P(ECREC,""^"",7),ECTC,ECNT)=ECTP_""^""_+$P(ECREC,""^"",10)_""^""_ECMODS"
^XMB(3.9,25,2,6997,0)="""RTN"",""ECRDSSU"",64,0)"
^XMB(3.9,25,2,6998,0)=" Q"
^XMB(3.9,25,2,6999,0)="""RTN"",""ECRDSSU"",65,0)"
^XMB(3.9,25,2,7000,0)=" ;"
^XMB(3.9,25,2,7001,0)="""RTN"",""ECRDSSU"",66,0)"
^XMB(3.9,25,2,7002,0)="LOOP ;- Loop through data"
^XMB(3.9,25,2,7003,0)="""RTN"",""ECRDSSU"",67,0)"
^XMB(3.9,25,2,7004,0)=" ;"
^XMB(3.9,25,2,7005,0)="""RTN"",""ECRDSSU"",68,0)"
^XMB(3.9,25,2,7006,0)=" N ECCAT,ECNT,ECOCAT,ECDSS,ECLOCAT,ECPR,ECVOL,ECMOD"
^XMB(3.9,25,2,7007,0)="""RTN"",""ECRDSSU"",69,0)"
^XMB(3.9,25,2,7008,0)=" S (ECNT,ECDSS,ECLOCAT)=0,(ECCAT,ECOCAT)="""""
^XMB(3.9,25,2,7009,0)="""RTN"",""ECRDSSU"",70,0)"
^XMB(3.9,25,2,7010,0)=" I '$D(^TMP(""ECRPT"",$J)) G LOOPQ"
^XMB(3.9,25,2,7011,0)="""RTN"",""ECRDSSU"",71,0)"
^XMB(3.9,25,2,7012,0)=" F  S ECLOCAT=$O(^TMP(""ECRPT"",$J,ECLOCAT)) Q:'ECLOCAT  D"
^XMB(3.9,25,2,7013,0)="""RTN"",""ECRDSSU"",72,0)"
^XMB(3.9,25,2,7014,0)=" . F  S ECDSS=$O(^TMP(""ECRPT"",$J,ECLOCAT,ECDSS)) Q:'ECDSS  D"
^XMB(3.9,25,2,7015,0)="""RTN"",""ECRDSSU"",73,0)"
^XMB(3.9,25,2,7016,0)=" .. Q:ECQUIT"
^XMB(3.9,25,2,7017,0)="""RTN"",""ECRDSSU"",74,0)"
^XMB(3.9,25,2,7018,0)=" .. D PRTCAT Q:ECQUIT"
^XMB(3.9,25,2,7019,0)="""RTN"",""ECRDSSU"",75,0)"
^XMB(3.9,25,2,7020,0)=" .. D DSSCHG Q:ECQUIT"
^XMB(3.9,25,2,7021,0)="""RTN"",""ECRDSSU"",76,0)"
^XMB(3.9,25,2,7022,0)=" .. S ECOCAT=0"
^XMB(3.9,25,2,7023,0)="""RTN"",""ECRDSSU"",77,0)"
^XMB(3.9,25,2,7024,0)=" .. D HDR"
^XMB(3.9,25,2,7025,0)="""RTN"",""ECRDSSU"",78,0)"
^XMB(3.9,25,2,7026,0)=" .. D LOCNAM,DSSUNAM"
^XMB(3.9,25,2,7027,0)="""RTN"",""ECRDSSU"",79,0)"
^XMB(3.9,25,2,7028,0)=" .. W !!,""Location: "",$G(ECLOCNM),!,""DSS Unit: "",$G(ECDSSNM)"
^XMB(3.9,25,2,7029,0)="""RTN"",""ECRDSSU"",80,0)"
^XMB(3.9,25,2,7030,0)=" .. F  S ECCAT=$O(^TMP(""ECRPT"",$J,ECLOCAT,ECDSS,ECCAT)) Q:ECCAT=""""  D"
^XMB(3.9,25,2,7031,0)="""RTN"",""ECRDSSU"",81,0)"
^XMB(3.9,25,2,7032,0)=" ... D CATCHG"
^XMB(3.9,25,2,7033,0)="""RTN"",""ECRDSSU"",82,0)"
^XMB(3.9,25,2,7034,0)=" ... Q:ECQUIT"
^XMB(3.9,25,2,7035,0)="""RTN"",""ECRDSSU"",83,0)"
^XMB(3.9,25,2,7036,0)=" ... F  S ECNT=$O(^TMP(""ECRPT"",$J,ECLOCAT,ECDSS,ECCAT,ECNT)) Q:'ECNT  D"
^XMB(3.9,25,2,7037,0)="""RTN"",""ECRDSSU"",84,0)"
^XMB(3.9,25,2,7038,0)=" .... S (ECPR,ECVOL)=0"
^XMB(3.9,25,2,7039,0)="""RTN"",""ECRDSSU"",85,0)"
^XMB(3.9,25,2,7040,0)=" .... S ECPR=$P($G(^TMP(""ECRPT"",$J,ECLOCAT,ECDSS,ECCAT,ECNT)),""^"")"
^XMB(3.9,25,2,7041,0)="""RTN"",""ECRDSSU"",86,0)"
^XMB(3.9,25,2,7042,0)=" .... S ECVOL=$P($G(^TMP(""ECRPT"",$J,ECLOCAT,ECDSS,ECCAT,ECNT)),""^"",2)"
^XMB(3.9,25,2,7043,0)="""RTN"",""ECRDSSU"",87,0)"
^XMB(3.9,25,2,7044,0)=" .... S ECMOD=$P($G(^TMP(""ECRPT"",$J,ECLOCAT,ECDSS,ECCAT,ECNT)),""^"",3)"
^XMB(3.9,25,2,7045,0)="""RTN"",""ECRDSSU"",88,0)"
^XMB(3.9,25,2,7046,0)=" .... I '$D(ECTMP(ECLOCAT,ECDSS,ECCAT,ECPR)) S ECTMP(ECLOCAT,ECDSS,ECCAT,ECPR)=ECVOL D:ECMOD'="""" SETMOD Q"
^XMB(3.9,25,2,7047,0)="""RTN"",""ECRDSSU"",89,0)"
^XMB(3.9,25,2,7048,0)=" .... S ECTMP(ECLOCAT,ECDSS,ECCAT,ECPR)=ECTMP(ECLOCAT,ECDSS,ECCAT,ECPR)+ECVOL D:ECMOD'="""" SETMOD"
^XMB(3.9,25,2,7049,0)="""RTN"",""ECRDSSU"",90,0)"
^XMB(3.9,25,2,7050,0)="LOOPQ Q"
^XMB(3.9,25,2,7051,0)="""RTN"",""ECRDSSU"",91,0)"
^XMB(3.9,25,2,7052,0)="SETMOD ;ALB/JAM - Set CPT modifiers in ECTMP array"
^XMB(3.9,25,2,7053,0)="""RTN"",""ECRDSSU"",92,0)"
^XMB(3.9,25,2,7054,0)=" N MOD,I"
^XMB(3.9,25,2,7055,0)="""RTN"",""ECRDSSU"",93,0)"
^XMB(3.9,25,2,7056,0)=" F I=1:1 S MOD=$P(ECMOD,"";"",I) Q:MOD=""""  D"
^XMB(3.9,25,2,7057,0)="""RTN"",""ECRDSSU"",94,0)"
^XMB(3.9,25,2,7058,0)=" . S ECTMP(ECLOCAT,ECDSS,ECCAT,ECPR,MOD)=$G(ECTMP(ECLOCAT,ECDSS,ECCAT,ECPR,MOD))+ECVOL"
^XMB(3.9,25,2,7059,0)="""RTN"",""ECRDSSU"",95,0)"
^XMB(3.9,25,2,7060,0)=" Q"
^XMB(3.9,25,2,7061,0)="""RTN"",""ECRDSSU"",96,0)"
^XMB(3.9,25,2,7062,0)=" ;"
^XMB(3.9,25,2,7063,0)="""RTN"",""ECRDSSU"",97,0)"
^XMB(3.9,25,2,7064,0)="CATCHG ;- Category change"
^XMB(3.9,25,2,7065,0)="""RTN"",""ECRDSSU"",98,0)"
^XMB(3.9,25,2,7066,0)=" ;"
^XMB(3.9,25,2,7067,0)="""RTN"",""ECRDSSU"",99,0)"
^XMB(3.9,25,2,7068,0)=" I ECCAT=""""&(ECOCAT="""") G CATCHGQ"
^XMB(3.9,25,2,7069,0)="""RTN"",""ECRDSSU"",100,0)"
^XMB(3.9,25,2,7070,0)=" I ECOCAT="""" S ECOCAT=ECCAT G CATCHGQ"
^XMB(3.9,25,2,7071,0)="""RTN"",""ECRDSSU"",101,0)"
^XMB(3.9,25,2,7072,0)=" I $G(ECOCAT)'=$G(ECCAT) D"
^XMB(3.9,25,2,7073,0)="""RTN"",""ECRDSSU"",102,0)"
^XMB(3.9,25,2,7074,0)=" . D PRTCAT"
^XMB(3.9,25,2,7075,0)="""RTN"",""ECRDSSU"",103,0)"
^XMB(3.9,25,2,7076,0)=" . S ECOCAT=ECCAT"
^XMB(3.9,25,2,7077,0)="""RTN"",""ECRDSSU"",104,0)"
^XMB(3.9,25,2,7078,0)="CATCHGQ Q"
^XMB(3.9,25,2,7079,0)="""RTN"",""ECRDSSU"",105,0)"
^XMB(3.9,25,2,7080,0)=" ;"
^XMB(3.9,25,2,7081,0)="""RTN"",""ECRDSSU"",106,0)"
^XMB(3.9,25,2,7082,0)="PRTCAT ;- Print category"
^XMB(3.9,25,2,7083,0)="""RTN"",""ECRDSSU"",107,0)"
^XMB(3.9,25,2,7084,0)=" ;"
^XMB(3.9,25,2,7085,0)="""RTN"",""ECRDSSU"",108,0)"
^XMB(3.9,25,2,7086,0)=" Q:'$D(ECTMP)"
^XMB(3.9,25,2,7087,0)="""RTN"",""ECRDSSU"",109,0)"
^XMB(3.9,25,2,7088,0)=" N ECC,ECCATOT,ECDSS,ECFLG,ECLOC,ECPR,ECPRN,ECSYI,ECSYN,ECCNAM,ECPNAM"
^XMB(3.9,25,2,7089,0)="""RTN"",""ECRDSSU"",110,0)"
^XMB(3.9,25,2,7090,0)=" N ECCPT,ECPI"
^XMB(3.9,25,2,7091,0)="""RTN"",""ECRDSSU"",111,0)"
^XMB(3.9,25,2,7092,0)=" S (ECCATOT,ECDSS,ECFLG,ECLOC)=0,(ECC,ECCNAM,ECPR)="""""
^XMB(3.9,25,2,7093,0)="""RTN"",""ECRDSSU"",112,0)"
^XMB(3.9,25,2,7094,0)=" F  S ECLOC=$O(ECTMP(ECLOC)) Q:'ECLOC  F  S ECDSS=$O(ECTMP(ECLOC,ECDSS)) Q:'ECDSS  F  S ECC=$O(ECTMP(ECLOC,ECDSS,ECC)) Q:ECC=""""  F  S ECPR=$O(ECTMP(ECLOC,ECDSS,ECC,ECPR)) Q:ECPR=""""  D  I ECQUIT Q"
^XMB(3.9,25,2,7095,0)="""RTN"",""ECRDSSU"",113,0)"
^XMB(3.9,25,2,7096,0)=" . S ECCNAM=$S($P($G(^EC(726,$S(ECC<1:0,1:+ECC),0)),""^"")'="""":$P($G(^EC(726,$S(ECC<1:0,1:+ECC),0)),""^""),1:""None"")"
^XMB(3.9,25,2,7097,0)="""RTN"",""ECRDSSU"",114,0)"
^XMB(3.9,25,2,7098,0)=" . S ECPRN=$S($P(ECPR,"";"",2)=""E"":ECPR_""C(725,"",1:ECPR_""CPT("")"
^XMB(3.9,25,2,7099,0)="""RTN"",""ECRDSSU"",115,0)"
^XMB(3.9,25,2,7100,0)=" . S ECSYI=+$O(^ECJ(""AP"",ECLOC,ECDSS,$S(ECC<1:0,1:+ECC),ECPRN,0)),ECSYN=$P($G(^ECJ(ECSYI,""PRO"")),""^"",2)"
^XMB(3.9,25,2,7101,0)="""RTN"",""ECRDSSU"",116,0)"
^XMB(3.9,25,2,7102,0)=" . S ECPI="""""
^XMB(3.9,25,2,7103,0)="""RTN"",""ECRDSSU"",117,0)"
^XMB(3.9,25,2,7104,0)=" . S ECCPT=$S($P(ECPR,"";"",2)=""I"":+ECPR,1:$P($G(^EC(725,+ECPR,0)),""^"",5))"
^XMB(3.9,25,2,7105,0)="""RTN"",""ECRDSSU"",118,0)"
^XMB(3.9,25,2,7106,0)=" . I ECCPT'="""" S ECPI=$$CPT^ICPTCOD(ECCPT,$P(ECENDDT,""."")),ECCPT=$P(ECPI,""^"",2)"
^XMB(3.9,25,2,7107,0)="""RTN"",""ECRDSSU"",119,0)"
^XMB(3.9,25,2,7108,0)=" . S ECPNAM=$S($P(ECPR,"";"",2)=""E"":$G(^EC(725,+$P(ECPR,"";""),0)),$P(ECPR,"";"",2)=""I"":$P(ECPI,""^"",3),1:"""") S:$P(ECPR,"";"",2)=""E"" ECPNAM=$P(ECPNAM,""^"",2)_"" ""_$P(ECPNAM,""^"")"
^XMB(3.9,25,2,7109,0)="""RTN"",""ECRDSSU"",120,0)"
^XMB(3.9,25,2,7110,0)=" . Q:ECQUIT"
^XMB(3.9,25,2,7111,0)="""RTN"",""ECRDSSU"",121,0)"
^XMB(3.9,25,2,7112,0)=" . I $Y>(IOSL-8) D PAUSE Q:ECQUIT  D HDR"
^XMB(3.9,25,2,7113,0)="""RTN"",""ECRDSSU"",122,0)"
^XMB(3.9,25,2,7114,0)=" . W:'ECFLG !!?1,""Category:"",!?2,ECCNAM S ECFLG=1"
^XMB(3.9,25,2,7115,0)="""RTN"",""ECRDSSU"",123,0)"
^XMB(3.9,25,2,7116,0)=" . W !?3,ECCPT,?9,$E(ECPNAM,1,35),?46,$S(ECSYN]"""":$E(ECSYN,1,21),1:""""),?69,$J($P($G(ECTMP(ECLOC,ECDSS,ECC,ECPR)),""^""),6)"
^XMB(3.9,25,2,7117,0)="""RTN"",""ECRDSSU"",124,0)"
^XMB(3.9,25,2,7118,0)=" . S ECCATOT=ECCATOT+$P($G(ECTMP(ECLOC,ECDSS,ECC,ECPR)),""^"")"
^XMB(3.9,25,2,7119,0)="""RTN"",""ECRDSSU"",125,0)"
^XMB(3.9,25,2,7120,0)=" . I $O(ECTMP(ECLOC,ECDSS,ECC,ECPR,""""))'="""" D PRTMOD I ECQUIT Q"
^XMB(3.9,25,2,7121,0)="""RTN"",""ECRDSSU"",126,0)"
^XMB(3.9,25,2,7122,0)=" G:ECQUIT PRTCATQ"
^XMB(3.9,25,2,7123,0)="""RTN"",""ECRDSSU"",127,0)"
^XMB(3.9,25,2,7124,0)=" I $Y>(IOSL-8) D PAUSE G:ECQUIT PRTCATQ D HDR"
^XMB(3.9,25,2,7125,0)="""RTN"",""ECRDSSU"",128,0)"
^XMB(3.9,25,2,7126,0)=" W !?69,""------"""
^XMB(3.9,25,2,7127,0)="""RTN"",""ECRDSSU"",129,0)"
^XMB(3.9,25,2,7128,0)=" W !?6,""Total Procedures for "",ECCNAM,?69,$J(ECCATOT,6),!"
^XMB(3.9,25,2,7129,0)="""RTN"",""ECRDSSU"",130,0)"
^XMB(3.9,25,2,7130,0)=" S ECDSSTOT=ECDSSTOT+ECCATOT"
^XMB(3.9,25,2,7131,0)="""RTN"",""ECRDSSU"",131,0)"
^XMB(3.9,25,2,7132,0)="PRTCATQ K ECTMP"
^XMB(3.9,25,2,7133,0)="""RTN"",""ECRDSSU"",132,0)"
^XMB(3.9,25,2,7134,0)=" Q"
^XMB(3.9,25,2,7135,0)="""RTN"",""ECRDSSU"",133,0)"
^XMB(3.9,25,2,7136,0)=" ;"
^XMB(3.9,25,2,7137,0)="""RTN"",""ECRDSSU"",134,0)"
^XMB(3.9,25,2,7138,0)="PRTMOD ;ALB/JAM - Print CPT modifiers"
^XMB(3.9,25,2,7139,0)="""RTN"",""ECRDSSU"",135,0)"
^XMB(3.9,25,2,7140,0)=" N MOD,IEN,MODESC,MODI S IEN="""""
^XMB(3.9,25,2,7141,0)="""RTN"",""ECRDSSU"",136,0)"
^XMB(3.9,25,2,7142,0)=" F  S IEN=$O(ECTMP(ECLOC,ECDSS,ECC,ECPR,IEN)) Q:IEN=""""  D"
^XMB(3.9,25,2,7143,0)="""RTN"",""ECRDSSU"",137,0)"
^XMB(3.9,25,2,7144,0)=" . I $Y>(IOSL-5) D PAUSE Q:ECQUIT  D HDR"
^XMB(3.9,25,2,7145,0)="""RTN"",""ECRDSSU"",138,0)"
^XMB(3.9,25,2,7146,0)=" . S MODI=$$MOD^ICPTMOD(IEN,""I"",$P(ECENDDT,"".""))"
^XMB(3.9,25,2,7147,0)="""RTN"",""ECRDSSU"",139,0)"
^XMB(3.9,25,2,7148,0)=" . S MOD=$P(MODI,""^"",2) I MOD="""" Q"
^XMB(3.9,25,2,7149,0)="""RTN"",""ECRDSSU"",140,0)"
^XMB(3.9,25,2,7150,0)=" . S MODESC=$P(MODI,""^"",3) I MODESC="""" S MODESC=""Unknown"""
^XMB(3.9,25,2,7151,0)="""RTN"",""ECRDSSU"",141,0)"
^XMB(3.9,25,2,7152,0)=" . W !?7,""- "",MOD,"" "",$E(MODESC,1,40),"" ("""
^XMB(3.9,25,2,7153,0)="""RTN"",""ECRDSSU"",142,0)"
^XMB(3.9,25,2,7154,0)=" . W ECTMP(ECLOC,ECDSS,ECC,ECPR,IEN),"")"""
^XMB(3.9,25,2,7155,0)="""RTN"",""ECRDSSU"",143,0)"
^XMB(3.9,25,2,7156,0)=" Q"
^XMB(3.9,25,2,7157,0)="""RTN"",""ECRDSSU"",144,0)"
^XMB(3.9,25,2,7158,0)=" ;"
^XMB(3.9,25,2,7159,0)="""RTN"",""ECRDSSU"",145,0)"
^XMB(3.9,25,2,7160,0)="DSSCHG ;- DSS Unit change"
^XMB(3.9,25,2,7161,0)="""RTN"",""ECRDSSU"",146,0)"
^XMB(3.9,25,2,7162,0)=" ;"
^XMB(3.9,25,2,7163,0)="""RTN"",""ECRDSSU"",147,0)"
^XMB(3.9,25,2,7164,0)=" Q:'$G(ECDSSTOT)"
^XMB(3.9,25,2,7165,0)="""RTN"",""ECRDSSU"",148,0)"
^XMB(3.9,25,2,7166,0)=" I ECDSSTOT>0 D"
^XMB(3.9,25,2,7167,0)="""RTN"",""ECRDSSU"",149,0)"
^XMB(3.9,25,2,7168,0)=" . I $Y>(IOSL-8) D PAUSE Q:ECQUIT  D HDR"
^XMB(3.9,25,2,7169,0)="""RTN"",""ECRDSSU"",150,0)"
^XMB(3.9,25,2,7170,0)=" . W !!?69,""======"""
^XMB(3.9,25,2,7171,0)="""RTN"",""ECRDSSU"",151,0)"
^XMB(3.9,25,2,7172,0)=" . W !?6,""Total Procedures for "",$G(ECDSSNM),?69,$J(ECDSSTOT,6)"
^XMB(3.9,25,2,7173,0)="""RTN"",""ECRDSSU"",152,0)"
^XMB(3.9,25,2,7174,0)=" . S ECDSSTOT=0,(ECLOCNM,ECDSSNM)="""""
^XMB(3.9,25,2,7175,0)="""RTN"",""ECRDSSU"",153,0)"
^XMB(3.9,25,2,7176,0)=" . D PAUSE"
^XMB(3.9,25,2,7177,0)="""RTN"",""ECRDSSU"",154,0)"
^XMB(3.9,25,2,7178,0)=" Q"
^XMB(3.9,25,2,7179,0)="""RTN"",""ECRDSSU"",155,0)"
^XMB(3.9,25,2,7180,0)=" ;"
^XMB(3.9,25,2,7181,0)="""RTN"",""ECRDSSU"",156,0)"
^XMB(3.9,25,2,7182,0)="HDR ;- Report header"
^XMB(3.9,25,2,7183,0)="""RTN"",""ECRDSSU"",157,0)"
^XMB(3.9,25,2,7184,0)=" ;"
^XMB(3.9,25,2,7185,0)="""RTN"",""ECRDSSU"",158,0)"
^XMB(3.9,25,2,7186,0)=" I ECCRT!(ECPAGE) W @IOF"
^XMB(3.9,25,2,7187,0)="""RTN"",""ECRDSSU"",159,0)"
^XMB(3.9,25,2,7188,0)=" S ECPAGE=ECPAGE+1"
^XMB(3.9,25,2,7189,0)="""RTN"",""ECRDSSU"",160,0)"
^XMB(3.9,25,2,7190,0)=" W !,?((IOM-32)\2),""DSS UNIT WORKLOAD SUMMARY REPORT"""
^XMB(3.9,25,2,7191,0)="""RTN"",""ECRDSSU"",161,0)"
^XMB(3.9,25,2,7192,0)=" W !,?((IOM-40)\2),""Date Range: ""_$$FMTE^XLFDT($P((ECSTDT+.0001),"".""))_"" to ""_$$FMTE^XLFDT($P(ECENDDT,"".""))"
^XMB(3.9,25,2,7193,0)="""RTN"",""ECRDSSU"",162,0)"
^XMB(3.9,25,2,7194,0)=" W !!,""Run Date: ""_$$FMTE^XLFDT($$NOW^XLFDT)"
^XMB(3.9,25,2,7195,0)="""RTN"",""ECRDSSU"",163,0)"
^XMB(3.9,25,2,7196,0)=" W ?65,""    Page: "",ECPAGE"
^XMB(3.9,25,2,7197,0)="""RTN"",""ECRDSSU"",164,0)"
^XMB(3.9,25,2,7198,0)=" W !!?3,""CPT Code"",?13,""Description"",?46,""Synonym"",?69,""Volume"""
^XMB(3.9,25,2,7199,0)="""RTN"",""ECRDSSU"",165,0)"
^XMB(3.9,25,2,7200,0)=" W !?7,""CPT Modifier (volume of modifiers use)"""
^XMB(3.9,25,2,7201,0)="""RTN"",""ECRDSSU"",166,0)"
^XMB(3.9,25,2,7202,0)=" W !,$TR($J("""",79),"" "",""-"")"
^XMB(3.9,25,2,7203,0)="""RTN"",""ECRDSSU"",167,0)"
^XMB(3.9,25,2,7204,0)=" Q"
^XMB(3.9,25,2,7205,0)="""RTN"",""ECRDSSU"",168,0)"
^XMB(3.9,25,2,7206,0)=" ;"
^XMB(3.9,25,2,7207,0)="""RTN"",""ECRDSSU"",169,0)"
^XMB(3.9,25,2,7208,0)=" ;"
^XMB(3.9,25,2,7209,0)="""RTN"",""ECRDSSU"",170,0)"
^XMB(3.9,25,2,7210,0)="LOCNAM ;- Get location name"
^XMB(3.9,25,2,7211,0)="""RTN"",""ECRDSSU"",171,0)"
^XMB(3.9,25,2,7212,0)=" ;"
^XMB(3.9,25,2,7213,0)="""RTN"",""ECRDSSU"",172,0)"
^XMB(3.9,25,2,7214,0)=" N I"
^XMB(3.9,25,2,7215,0)="""RTN"",""ECRDSSU"",173,0)"
^XMB(3.9,25,2,7216,0)=" F I=0:0 S I=$O(ECLOC(I)) Q:'I  I $P($G(ECLOC(I)),""^"")=ECLOCAT S ECLOCNM=$P(ECLOC(I),""^"",2)"
^XMB(3.9,25,2,7217,0)="""RTN"",""ECRDSSU"",174,0)"
^XMB(3.9,25,2,7218,0)=" Q"
^XMB(3.9,25,2,7219,0)="""RTN"",""ECRDSSU"",175,0)"
^XMB(3.9,25,2,7220,0)=" ;"
^XMB(3.9,25,2,7221,0)="""RTN"",""ECRDSSU"",176,0)"
^XMB(3.9,25,2,7222,0)=" ;"
^XMB(3.9,25,2,7223,0)="""RTN"",""ECRDSSU"",177,0)"
^XMB(3.9,25,2,7224,0)="DSSUNAM ;- Get DSS Unit name"
^XMB(3.9,25,2,7225,0)="""RTN"",""ECRDSSU"",178,0)"
^XMB(3.9,25,2,7226,0)=" ;"
^XMB(3.9,25,2,7227,0)="""RTN"",""ECRDSSU"",179,0)"
^XMB(3.9,25,2,7228,0)=" N I"
^XMB(3.9,25,2,7229,0)="""RTN"",""ECRDSSU"",180,0)"
^XMB(3.9,25,2,7230,0)=" F I=0:0 S I=$O(ECDSSU(I)) Q:'I  I $P($G(ECDSSU(I)),""^"")=ECDSS S ECDSSNM=$P(ECDSSU(I),""^"",2)"
^XMB(3.9,25,2,7231,0)="""RTN"",""ECRDSSU"",181,0)"
^XMB(3.9,25,2,7232,0)=" Q"
^XMB(3.9,25,2,7233,0)="""RTN"",""ECRDSSU"",182,0)"
^XMB(3.9,25,2,7234,0)=" ;"
^XMB(3.9,25,2,7235,0)="""RTN"",""ECRDSSU"",183,0)"
^XMB(3.9,25,2,7236,0)=" ;"
^XMB(3.9,25,2,7237,0)="""RTN"",""ECRDSSU"",184,0)"
^XMB(3.9,25,2,7238,0)="PAUSE ;- Pause for screen output"
^XMB(3.9,25,2,7239,0)="""RTN"",""ECRDSSU"",185,0)"
^XMB(3.9,25,2,7240,0)=" Q:'ECCRT"
^XMB(3.9,25,2,7241,0)="""RTN"",""ECRDSSU"",186,0)"
^XMB(3.9,25,2,7242,0)=" N DIR,DIRUT,DUOUT"
^XMB(3.9,25,2,7243,0)="""RTN"",""ECRDSSU"",187,0)"
^XMB(3.9,25,2,7244,0)=" I IOSL<30 F  W ! Q:$Y>(IOSL-4)"
^XMB(3.9,25,2,7245,0)="""RTN"",""ECRDSSU"",188,0)"
^XMB(3.9,25,2,7246,0)=" W ! S DIR(0)=""E"" D ^DIR I $D(DIRUT)!($D(DUOUT)) S ECQUIT=1"
^XMB(3.9,25,2,7247,0)="""RTN"",""ECRDSSU"",189,0)"
^XMB(3.9,25,2,7248,0)=" Q"
^XMB(3.9,25,2,7249,0)="""RTN"",""ECRDSSU"",190,0)"
^XMB(3.9,25,2,7250,0)=" ;"
^XMB(3.9,25,2,7251,0)="""RTN"",""ECRDSSU"",191,0)"
^XMB(3.9,25,2,7252,0)=" ;"
^XMB(3.9,25,2,7253,0)="""RTN"",""ECRDSSU"",192,0)"
^XMB(3.9,25,2,7254,0)="ASKDEV() ;- Ask device for printing or queuing report"
^XMB(3.9,25,2,7255,0)="""RTN"",""ECRDSSU"",193,0)"
^XMB(3.9,25,2,7256,0)=" ;  Input:     None"
^XMB(3.9,25,2,7257,0)="""RTN"",""ECRDSSU"",194,0)"
^XMB(3.9,25,2,7258,0)=" ;"
^XMB(3.9,25,2,7259,0)="""RTN"",""ECRDSSU"",195,0)"
^XMB(3.9,25,2,7260,0)=" ; Output:     1 if report is printed"
^XMB(3.9,25,2,7261,0)="""RTN"",""ECRDSSU"",196,0)"
^XMB(3.9,25,2,7262,0)=" ;             0 if report is queued (or exited out)"
^XMB(3.9,25,2,7263,0)="""RTN"",""ECRDSSU"",197,0)"
^XMB(3.9,25,2,7264,0)=" ;"
^XMB(3.9,25,2,7265,0)="""RTN"",""ECRDSSU"",198,0)"
^XMB(3.9,25,2,7266,0)=" N ECX,ZTDESC,ZTRTN,ZTSAVE"
^XMB(3.9,25,2,7267,0)="""RTN"",""ECRDSSU"",199,0)"
^XMB(3.9,25,2,7268,0)=" S ECX=1"
^XMB(3.9,25,2,7269,0)="""RTN"",""ECRDSSU"",200,0)"
^XMB(3.9,25,2,7270,0)=" K %ZIS S %ZIS=""QMP"""
^XMB(3.9,25,2,7271,0)="""RTN"",""ECRDSSU"",201,0)"
^XMB(3.9,25,2,7272,0)=" D ^%ZIS"
^XMB(3.9,25,2,7273,0)="""RTN"",""ECRDSSU"",202,0)"
^XMB(3.9,25,2,7274,0)=" S:POP ECX=0"
^XMB(3.9,25,2,7275,0)="""RTN"",""ECRDSSU"",203,0)"
^XMB(3.9,25,2,7276,0)=" I ECX&($D(IO(""Q""))) D"
^XMB(3.9,25,2,7277,0)="""RTN"",""ECRDSSU"",204,0)"
^XMB(3.9,25,2,7278,0)=" . S ZTRTN=""STRPT^ECRDSSU"",ZTDESC=""DSS UNIT WORKLOAD SUMMARY REPORT"""
^XMB(3.9,25,2,7279,0)="""RTN"",""ECRDSSU"",205,0)"
^XMB(3.9,25,2,7280,0)=" . S (ZTSAVE(""ECLOC(""),ZTSAVE(""ECDSSU(""),ZTSAVE(""ECSTDT""),ZTSAVE(""ECENDDT""))="""""
^XMB(3.9,25,2,7281,0)="""RTN"",""ECRDSSU"",206,0)"
^XMB(3.9,25,2,7282,0)=" . D ^%ZTLOAD"
^XMB(3.9,25,2,7283,0)="""RTN"",""ECRDSSU"",207,0)"
^XMB(3.9,25,2,7284,0)=" . D HOME^%ZIS"
^XMB(3.9,25,2,7285,0)="""RTN"",""ECRDSSU"",208,0)"
^XMB(3.9,25,2,7286,0)=" . S ECX=0"
^XMB(3.9,25,2,7287,0)="""RTN"",""ECRDSSU"",209,0)"
^XMB(3.9,25,2,7288,0)=" Q ECX"
^XMB(3.9,25,2,7289,0)="""RTN"",""ECRPRSN"")"
^XMB(3.9,25,2,7290,0)="0^10^B81423223^B81491244"
^XMB(3.9,25,2,7291,0)="""RTN"",""ECRPRSN"",1,0)"
^XMB(3.9,25,2,7292,0)="ECRPRSN ;ALB/JAP - Procedure Reasons Report;18 Aug 97"
^XMB(3.9,25,2,7293,0)="""RTN"",""ECRPRSN"",2,0)"
^XMB(3.9,25,2,7294,0)=" ;;2.0; EVENT CAPTURE ;**5,18,47,63,72**;8 May 96"
^XMB(3.9,25,2,7295,0)="""RTN"",""ECRPRSN"",3,0)"
^XMB(3.9,25,2,7296,0)="EN ;entry point from menu option"
^XMB(3.9,25,2,7297,0)="""RTN"",""ECRPRSN"",4,0)"
^XMB(3.9,25,2,7298,0)=" N JJ"
^XMB(3.9,25,2,7299,0)="""RTN"",""ECRPRSN"",5,0)"
^XMB(3.9,25,2,7300,0)=" W ! S JJ=$$ASKLOC^ECRUTL I 'JJ G EXIT"
^XMB(3.9,25,2,7301,0)="""RTN"",""ECRPRSN"",6,0)"
^XMB(3.9,25,2,7302,0)=" W ! S JJ=$$ASKDSS^ECRUTL I 'JJ G EXIT"
^XMB(3.9,25,2,7303,0)="""RTN"",""ECRPRSN"",7,0)"
^XMB(3.9,25,2,7304,0)=" W ! S JJ=$$ASKREAS() I 'JJ G EXIT"
^XMB(3.9,25,2,7305,0)="""RTN"",""ECRPRSN"",8,0)"
^XMB(3.9,25,2,7306,0)=" W !"
^XMB(3.9,25,2,7307,0)="""RTN"",""ECRPRSN"",9,0)"
^XMB(3.9,25,2,7308,0)=" D RANGE"
^XMB(3.9,25,2,7309,0)="""RTN"",""ECRPRSN"",10,0)"
^XMB(3.9,25,2,7310,0)=" I '$G(ECLOOP)!'$G(ECSD)!'$G(ECED) G EXIT"
^XMB(3.9,25,2,7311,0)="""RTN"",""ECRPRSN"",11,0)"
^XMB(3.9,25,2,7312,0)=" W ! D DEVICE I POP G EXIT"
^XMB(3.9,25,2,7313,0)="""RTN"",""ECRPRSN"",12,0)"
^XMB(3.9,25,2,7314,0)=" I $G(ZTSK) G EXIT"
^XMB(3.9,25,2,7315,0)="""RTN"",""ECRPRSN"",13,0)"
^XMB(3.9,25,2,7316,0)=" I $G(IO(""Q"")),'$G(ZTSK) G EXIT"
^XMB(3.9,25,2,7317,0)="""RTN"",""ECRPRSN"",14,0)"
^XMB(3.9,25,2,7318,0)=" D START,HOME^%ZIS"
^XMB(3.9,25,2,7319,0)="""RTN"",""ECRPRSN"",15,0)"
^XMB(3.9,25,2,7320,0)=" G EXIT"
^XMB(3.9,25,2,7321,0)="""RTN"",""ECRPRSN"",16,0)"
^XMB(3.9,25,2,7322,0)=" Q"
^XMB(3.9,25,2,7323,0)="""RTN"",""ECRPRSN"",17,0)"
^XMB(3.9,25,2,7324,0)="START ;queued entry point or continuation"
^XMB(3.9,25,2,7325,0)="""RTN"",""ECRPRSN"",18,0)"
^XMB(3.9,25,2,7326,0)=" D PROCESS"
^XMB(3.9,25,2,7327,0)="""RTN"",""ECRPRSN"",19,0)"
^XMB(3.9,25,2,7328,0)=" U IO D PRINT Q:$D(ECGUI)"
^XMB(3.9,25,2,7329,0)="""RTN"",""ECRPRSN"",20,0)"
^XMB(3.9,25,2,7330,0)=" I IO'=IO(0) D ^%ZISC"
^XMB(3.9,25,2,7331,0)="""RTN"",""ECRPRSN"",21,0)"
^XMB(3.9,25,2,7332,0)=" I $D(ZTQUEUED) S ZTREQ=""@"" D EXIT"
^XMB(3.9,25,2,7333,0)="""RTN"",""ECRPRSN"",22,0)"
^XMB(3.9,25,2,7334,0)=" Q"
^XMB(3.9,25,2,7335,0)="""RTN"",""ECRPRSN"",23,0)"
^XMB(3.9,25,2,7336,0)="ASKREAS()        ; Ask reasons"
^XMB(3.9,25,2,7337,0)="""RTN"",""ECRPRSN"",24,0)"
^XMB(3.9,25,2,7338,0)=" ;   output: ECREAS array; contains set of reason iens"
^XMB(3.9,25,2,7339,0)="""RTN"",""ECRPRSN"",25,0)"
^XMB(3.9,25,2,7340,0)=" N DIRUT,DUOUT,DTOUT,Y,DIR,A,P,R,S,JJ,KK,NLOC,NUNIT,LINK,ECREAS,E"
^XMB(3.9,25,2,7341,0)="""RTN"",""ECRPRSN"",26,0)"
^XMB(3.9,25,2,7342,0)=" ;setup array of associated reason iens for the locations/units included"
^XMB(3.9,25,2,7343,0)="""RTN"",""ECRPRSN"",27,0)"
^XMB(3.9,25,2,7344,0)=" W !!,""Just a moment please..."""
^XMB(3.9,25,2,7345,0)="""RTN"",""ECRPRSN"",28,0)"
^XMB(3.9,25,2,7346,0)=" W !,?5,""...finding Procedure Reasons related to the"""
^XMB(3.9,25,2,7347,0)="""RTN"",""ECRPRSN"",29,0)"
^XMB(3.9,25,2,7348,0)=" W !,?5,""   Location(s) and DSS Unit(s) you selected..."",!"
^XMB(3.9,25,2,7349,0)="""RTN"",""ECRPRSN"",30,0)"
^XMB(3.9,25,2,7350,0)=" S JJ="""" F  S JJ=$O(ECLOC(JJ)) Q:JJ=""""  D"
^XMB(3.9,25,2,7351,0)="""RTN"",""ECRPRSN"",31,0)"
^XMB(3.9,25,2,7352,0)=" .S NLOC=$P(ECLOC(JJ),""^"",1)"
^XMB(3.9,25,2,7353,0)="""RTN"",""ECRPRSN"",32,0)"
^XMB(3.9,25,2,7354,0)=" .S KK="""" F  S KK=$O(ECDSSU(KK)) Q:KK=""""  S NUNIT=$P(ECDSSU(KK),""^"",1),A(NLOC_""-""_NUNIT)="""""
^XMB(3.9,25,2,7355,0)="""RTN"",""ECRPRSN"",33,0)"
^XMB(3.9,25,2,7356,0)=" S P="""""
^XMB(3.9,25,2,7357,0)="""RTN"",""ECRPRSN"",34,0)"
^XMB(3.9,25,2,7358,0)=" F  S P=$O(^ECJ(""B"",P)) Q:P=""""  I $D(A($P(P,""-"",1,2))) S I=$O(^ECJ(""B"",P,"""")),S(I)="""""
^XMB(3.9,25,2,7359,0)="""RTN"",""ECRPRSN"",35,0)"
^XMB(3.9,25,2,7360,0)=" K A S P="""" F  S P=$O(^ECL(""AD"",P)) Q:P=""""  I $D(S(P)) S R="""" D"
^XMB(3.9,25,2,7361,0)="""RTN"",""ECRPRSN"",36,0)"
^XMB(3.9,25,2,7362,0)=" .F  S R=$O(^ECL(""AD"",P,R)) Q:R=""""  D"
^XMB(3.9,25,2,7363,0)="""RTN"",""ECRPRSN"",37,0)"
^XMB(3.9,25,2,7364,0)=" ..S LINK=$O(^ECL(""AD"",P,R,"""")),ECLINK(LINK)=R"
^XMB(3.9,25,2,7365,0)="""RTN"",""ECRPRSN"",38,0)"
^XMB(3.9,25,2,7366,0)=" ..S ECREAS(R)=$P($G(^ECR(R,0)),""^"",1)"
^XMB(3.9,25,2,7367,0)="""RTN"",""ECRPRSN"",39,0)"
^XMB(3.9,25,2,7368,0)=" ..I ECREAS(R)="""" K ECREAS(R),ECLINK(LINK)"
^XMB(3.9,25,2,7369,0)="""RTN"",""ECRPRSN"",40,0)"
^XMB(3.9,25,2,7370,0)=" K S"
^XMB(3.9,25,2,7371,0)="""RTN"",""ECRPRSN"",41,0)"
^XMB(3.9,25,2,7372,0)=" ;ask the user to include all reasons or selected reasons"
^XMB(3.9,25,2,7373,0)="""RTN"",""ECRPRSN"",42,0)"
^XMB(3.9,25,2,7374,0)=" ;already have all reasons in ecreas array"
^XMB(3.9,25,2,7375,0)="""RTN"",""ECRPRSN"",43,0)"
^XMB(3.9,25,2,7376,0)=" S ASK=1"
^XMB(3.9,25,2,7377,0)="""RTN"",""ECRPRSN"",44,0)"
^XMB(3.9,25,2,7378,0)=" S DIR(0)=""YA"",DIR(""A"")=""Do you want to print this report for all Procedure Reasons? """
^XMB(3.9,25,2,7379,0)="""RTN"",""ECRPRSN"",45,0)"
^XMB(3.9,25,2,7380,0)=" S DIR(""B"")=""YES"" W ! D ^DIR K DIR I Y=0,'$G(DIRUT) D SPECR"
^XMB(3.9,25,2,7381,0)="""RTN"",""ECRPRSN"",46,0)"
^XMB(3.9,25,2,7382,0)=" I $G(DIRUT)!(Y=0) S ASK=0 K ECREAS"
^XMB(3.9,25,2,7383,0)="""RTN"",""ECRPRSN"",47,0)"
^XMB(3.9,25,2,7384,0)=" ;display user selections"
^XMB(3.9,25,2,7385,0)="""RTN"",""ECRPRSN"",48,0)"
^XMB(3.9,25,2,7386,0)=" I $D(ECREAS)>1 D"
^XMB(3.9,25,2,7387,0)="""RTN"",""ECRPRSN"",49,0)"
^XMB(3.9,25,2,7388,0)=" .W @IOF S E=0 W !,""Selected Procedure Reasons --"",!"
^XMB(3.9,25,2,7389,0)="""RTN"",""ECRPRSN"",50,0)"
^XMB(3.9,25,2,7390,0)=" .S R="""" F  S R=$O(ECREAS(R)) Q:R=""""  D  I E Q"
^XMB(3.9,25,2,7391,0)="""RTN"",""ECRPRSN"",51,0)"
^XMB(3.9,25,2,7392,0)=" ..I $Y+3>IOSL S DIR(0)=""E"" D ^DIR K DIR S:'Y E=1 Q:'Y  D"
^XMB(3.9,25,2,7393,0)="""RTN"",""ECRPRSN"",52,0)"
^XMB(3.9,25,2,7394,0)=" ...W @IOF,!,""Selected Procedure Reasons (cont.) --"",!"
^XMB(3.9,25,2,7395,0)="""RTN"",""ECRPRSN"",53,0)"
^XMB(3.9,25,2,7396,0)=" ..W !,?5,ECREAS(R)"
^XMB(3.9,25,2,7397,0)="""RTN"",""ECRPRSN"",54,0)"
^XMB(3.9,25,2,7398,0)=" .Q:E  S DIR(0)=""E"" D  D ^DIR K DIR"
^XMB(3.9,25,2,7399,0)="""RTN"",""ECRPRSN"",55,0)"
^XMB(3.9,25,2,7400,0)=" ..S SS=22-$Y F JJ=1:1:SS W !"
^XMB(3.9,25,2,7401,0)="""RTN"",""ECRPRSN"",56,0)"
^XMB(3.9,25,2,7402,0)=" Q ASK"
^XMB(3.9,25,2,7403,0)="""RTN"",""ECRPRSN"",57,0)"
^XMB(3.9,25,2,7404,0)="SPECR ;specific reasons"
^XMB(3.9,25,2,7405,0)="""RTN"",""ECRPRSN"",58,0)"
^XMB(3.9,25,2,7406,0)=" N R,DUOUT,DTOUT"
^XMB(3.9,25,2,7407,0)="""RTN"",""ECRPRSN"",59,0)"
^XMB(3.9,25,2,7408,0)=" K DIRUT,Y"
^XMB(3.9,25,2,7409,0)="""RTN"",""ECRPRSN"",60,0)"
^XMB(3.9,25,2,7410,0)=" S DIR(0)=""YA"",DIR(""A"")=""Do you want to include only specific Procedure Reasons in this report? "",DIR(""B"")=""YES"""
^XMB(3.9,25,2,7411,0)="""RTN"",""ECRPRSN"",61,0)"
^XMB(3.9,25,2,7412,0)=" S DIR(""?"")=""Enter YES to select specific Procedure Reasons or NO to quit."""
^XMB(3.9,25,2,7413,0)="""RTN"",""ECRPRSN"",62,0)"
^XMB(3.9,25,2,7414,0)=" W ! D ^DIR K DIR Q:$G(DIRUT)!(Y=0)"
^XMB(3.9,25,2,7415,0)="""RTN"",""ECRPRSN"",63,0)"
^XMB(3.9,25,2,7416,0)=" ;select subset of possible reasons"
^XMB(3.9,25,2,7417,0)="""RTN"",""ECRPRSN"",64,0)"
^XMB(3.9,25,2,7418,0)=" K DIRUT,DTOUT,DUOUT,Y"
^XMB(3.9,25,2,7419,0)="""RTN"",""ECRPRSN"",65,0)"
^XMB(3.9,25,2,7420,0)=" F  D  Q:$G(DIRUT)!(Y=-1)"
^XMB(3.9,25,2,7421,0)="""RTN"",""ECRPRSN"",66,0)"
^XMB(3.9,25,2,7422,0)=" .S DIC=720.4,DIC(""A"")=""Select a Procedure Reason to include: "",DIC(0)=""QAEM"""
^XMB(3.9,25,2,7423,0)="""RTN"",""ECRPRSN"",67,0)"
^XMB(3.9,25,2,7424,0)=" .S DIC(""S"")=""I $D(ECREAS(+Y))"""
^XMB(3.9,25,2,7425,0)="""RTN"",""ECRPRSN"",68,0)"
^XMB(3.9,25,2,7426,0)=" .W ! D ^DIC Q:$G(DUOUT)!$G(DTOUT)!(Y=-1)"
^XMB(3.9,25,2,7427,0)="""RTN"",""ECRPRSN"",69,0)"
^XMB(3.9,25,2,7428,0)=" .S R(+Y)="""""
^XMB(3.9,25,2,7429,0)="""RTN"",""ECRPRSN"",70,0)"
^XMB(3.9,25,2,7430,0)=" S:$G(DTOUT)!($G(DUOUT)) DIRUT=1"
^XMB(3.9,25,2,7431,0)="""RTN"",""ECRPRSN"",71,0)"
^XMB(3.9,25,2,7432,0)=" Q:$G(DIRUT)"
^XMB(3.9,25,2,7433,0)="""RTN"",""ECRPRSN"",72,0)"
^XMB(3.9,25,2,7434,0)=" ;delete reasons from ecreas array which were not selected"
^XMB(3.9,25,2,7435,0)="""RTN"",""ECRPRSN"",73,0)"
^XMB(3.9,25,2,7436,0)=" I $D(R)<10 S Y=0 Q"
^XMB(3.9,25,2,7437,0)="""RTN"",""ECRPRSN"",74,0)"
^XMB(3.9,25,2,7438,0)=" S R="""" F  S R=$O(ECREAS(R)) Q:R=""""  I '$D(R(R)) K ECREAS(R)"
^XMB(3.9,25,2,7439,0)="""RTN"",""ECRPRSN"",75,0)"
^XMB(3.9,25,2,7440,0)=" ;delete links from eclink array for reasons not selected"
^XMB(3.9,25,2,7441,0)="""RTN"",""ECRPRSN"",76,0)"
^XMB(3.9,25,2,7442,0)=" S LINK="""" F  S LINK=$O(ECLINK(LINK)) Q:LINK=""""  S R=ECLINK(LINK) I '$D(ECREAS(R)) K ECLINK(LINK)"
^XMB(3.9,25,2,7443,0)="""RTN"",""ECRPRSN"",77,0)"
^XMB(3.9,25,2,7444,0)=" S Y=1"
^XMB(3.9,25,2,7445,0)="""RTN"",""ECRPRSN"",78,0)"
^XMB(3.9,25,2,7446,0)=" Q"
^XMB(3.9,25,2,7447,0)="""RTN"",""ECRPRSN"",79,0)"
^XMB(3.9,25,2,7448,0)="RANGE ;get any date range"
^XMB(3.9,25,2,7449,0)="""RTN"",""ECRPRSN"",80,0)"
^XMB(3.9,25,2,7450,0)=" N ECSTDT,ECENDDT"
^XMB(3.9,25,2,7451,0)="""RTN"",""ECRPRSN"",81,0)"
^XMB(3.9,25,2,7452,0)=" W !!!,?5,""Enter a Begin Date and End Date for the Event Capture """
^XMB(3.9,25,2,7453,0)="""RTN"",""ECRPRSN"",82,0)"
^XMB(3.9,25,2,7454,0)=" W !,?5,""Procedure Reason Report."",!"
^XMB(3.9,25,2,7455,0)="""RTN"",""ECRPRSN"",83,0)"
^XMB(3.9,25,2,7456,0)=" S (ECSD,ECED)=0"
^XMB(3.9,25,2,7457,0)="""RTN"",""ECRPRSN"",84,0)"
^XMB(3.9,25,2,7458,0)=" F  D  Q:ECSD>0  Q:'$G(ECLOOP)"
^XMB(3.9,25,2,7459,0)="""RTN"",""ECRPRSN"",85,0)"
^XMB(3.9,25,2,7460,0)=" .S ECLOOP=$$STDT^ECRUTL() I 'ECLOOP Q"
^XMB(3.9,25,2,7461,0)="""RTN"",""ECRPRSN"",86,0)"
^XMB(3.9,25,2,7462,0)=" .S ECSD=ECSTDT"
^XMB(3.9,25,2,7463,0)="""RTN"",""ECRPRSN"",87,0)"
^XMB(3.9,25,2,7464,0)=" Q:'$G(ECLOOP)!'$G(ECSD)"
^XMB(3.9,25,2,7465,0)="""RTN"",""ECRPRSN"",88,0)"
^XMB(3.9,25,2,7466,0)=" F  D  Q:ECED>0  Q:'$G(ECLOOP)"
^XMB(3.9,25,2,7467,0)="""RTN"",""ECRPRSN"",89,0)"
^XMB(3.9,25,2,7468,0)=" .S ECLOOP=$$ENDDT^ECRUTL(ECSTDT) I 'ECLOOP Q"
^XMB(3.9,25,2,7469,0)="""RTN"",""ECRPRSN"",90,0)"
^XMB(3.9,25,2,7470,0)=" .S ECED=ECENDDT"
^XMB(3.9,25,2,7471,0)="""RTN"",""ECRPRSN"",91,0)"
^XMB(3.9,25,2,7472,0)=" .I ECED>(DT+1) D"
^XMB(3.9,25,2,7473,0)="""RTN"",""ECRPRSN"",92,0)"
^XMB(3.9,25,2,7474,0)=" ..W !!,?15,""The End Date for this report may not be"""
^XMB(3.9,25,2,7475,0)="""RTN"",""ECRPRSN"",93,0)"
^XMB(3.9,25,2,7476,0)=" ..W !,?15,""a future date.  Try again..."",!"
^XMB(3.9,25,2,7477,0)="""RTN"",""ECRPRSN"",94,0)"
^XMB(3.9,25,2,7478,0)=" ..S ECED=0"
^XMB(3.9,25,2,7479,0)="""RTN"",""ECRPRSN"",95,0)"
^XMB(3.9,25,2,7480,0)=" Q "
^XMB(3.9,25,2,7481,0)="""RTN"",""ECRPRSN"",96,0)"
^XMB(3.9,25,2,7482,0)=" ;"
^XMB(3.9,25,2,7483,0)="""RTN"",""ECRPRSN"",97,0)"
^XMB(3.9,25,2,7484,0)="DEVICE ;select output device"
^XMB(3.9,25,2,7485,0)="""RTN"",""ECRPRSN"",98,0)"
^XMB(3.9,25,2,7486,0)=" W ! K IOP,ZTSK S %ZIS=""QM"" D ^%ZIS"
^XMB(3.9,25,2,7487,0)="""RTN"",""ECRPRSN"",99,0)"
^XMB(3.9,25,2,7488,0)=" I POP W !!,""No device selected.  Exiting..."",!! S DIR(0)=""E"" W ! D ^DIR K DIR Q"
^XMB(3.9,25,2,7489,0)="""RTN"",""ECRPRSN"",100,0)"
^XMB(3.9,25,2,7490,0)=" I $D(IO(""Q"")) D"
^XMB(3.9,25,2,7491,0)="""RTN"",""ECRPRSN"",101,0)"
^XMB(3.9,25,2,7492,0)=" .S ZTRTN=""START^ECRPRSN"",ZTDESC=""EC Procedure Reason Report"""
^XMB(3.9,25,2,7493,0)="""RTN"",""ECRPRSN"",102,0)"
^XMB(3.9,25,2,7494,0)=" .S ZTSAVE(""ECSD"")="""",ZTSAVE(""ECED"")="""",ZTSAVE(""ECLOC("")="""",ZTSAVE(""ECDSSU("")="""",ZTSAVE(""ECLINK("")="""""
^XMB(3.9,25,2,7495,0)="""RTN"",""ECRPRSN"",103,0)"
^XMB(3.9,25,2,7496,0)=" .D ^%ZTLOAD D HOME^%ZIS"
^XMB(3.9,25,2,7497,0)="""RTN"",""ECRPRSN"",104,0)"
^XMB(3.9,25,2,7498,0)=" .I '$G(ZTSK) W !,""Report canceled..."" S DIR(0)=""E"" W ! D ^DIR K DIR Q"
^XMB(3.9,25,2,7499,0)="""RTN"",""ECRPRSN"",105,0)"
^XMB(3.9,25,2,7500,0)=" .W !,""Report queued as Task #: "",ZTSK S DIR(0)=""E"" W ! D ^DIR K DIR"
^XMB(3.9,25,2,7501,0)="""RTN"",""ECRPRSN"",106,0)"
^XMB(3.9,25,2,7502,0)=" Q"
^XMB(3.9,25,2,7503,0)="""RTN"",""ECRPRSN"",107,0)"
^XMB(3.9,25,2,7504,0)=" ;"
^XMB(3.9,25,2,7505,0)="""RTN"",""ECRPRSN"",108,0)"
^XMB(3.9,25,2,7506,0)="PROCESS ;get data to print"
^XMB(3.9,25,2,7507,0)="""RTN"",""ECRPRSN"",109,0)"
^XMB(3.9,25,2,7508,0)=" N EC,ECD,ECDA,ECPA,ECR,ECRL,ECRN,ECPATN,ECSS,ECSSN,ECP,ECPN,ECLOCA"
^XMB(3.9,25,2,7509,0)="""RTN"",""ECRPRSN"",110,0)"
^XMB(3.9,25,2,7510,0)=" N ECUNIT,ECCAT,ECFILE,ECPSY,ECPSYN,ECPRV,ECPRVN,ECDFN,ECCPT,ECDESC"
^XMB(3.9,25,2,7511,0)="""RTN"",""ECRPRSN"",111,0)"
^XMB(3.9,25,2,7512,0)=" N NLOC,NUNIT,JJ,ECMOD,ECMD,ECMODF,EC725"
^XMB(3.9,25,2,7513,0)="""RTN"",""ECRPRSN"",112,0)"
^XMB(3.9,25,2,7514,0)=" K ^TMP(""ECREAS"",$J)"
^XMB(3.9,25,2,7515,0)="""RTN"",""ECRPRSN"",113,0)"
^XMB(3.9,25,2,7516,0)=" ;if ecreas array doesn't exist, quit"
^XMB(3.9,25,2,7517,0)="""RTN"",""ECRPRSN"",114,0)"
^XMB(3.9,25,2,7518,0)=" I $D(ECLINK)<10 Q"
^XMB(3.9,25,2,7519,0)="""RTN"",""ECRPRSN"",115,0)"
^XMB(3.9,25,2,7520,0)=" ;put locations and units into ien subscripted arrays"
^XMB(3.9,25,2,7521,0)="""RTN"",""ECRPRSN"",116,0)"
^XMB(3.9,25,2,7522,0)=" S JJ="""" F  S JJ=$O(ECLOC(JJ)) Q:JJ=""""  D"
^XMB(3.9,25,2,7523,0)="""RTN"",""ECRPRSN"",117,0)"
^XMB(3.9,25,2,7524,0)=" .S NLOC($P(ECLOC(JJ),""^"",1))=$P(ECLOC(JJ),""^"",2)"
^XMB(3.9,25,2,7525,0)="""RTN"",""ECRPRSN"",118,0)"
^XMB(3.9,25,2,7526,0)=" S JJ="""" F  S JJ=$O(ECDSSU(JJ)) Q:JJ=""""  D"
^XMB(3.9,25,2,7527,0)="""RTN"",""ECRPRSN"",119,0)"
^XMB(3.9,25,2,7528,0)=" .S NUNIT($P(ECDSSU(JJ),""^"",1))=$P(ECDSSU(JJ),""^"",2)"
^XMB(3.9,25,2,7529,0)="""RTN"",""ECRPRSN"",120,0)"
^XMB(3.9,25,2,7530,0)=" S ECD=ECSD F  S ECD=$O(^ECH(""AC"",ECD)) Q:'ECD  Q:ECD>ECED  D"
^XMB(3.9,25,2,7531,0)="""RTN"",""ECRPRSN"",121,0)"
^XMB(3.9,25,2,7532,0)=" .S ECDA="""" F  S ECDA=$O(^ECH(""AC"",ECD,ECDA)) Q:'ECDA  S EC=$G(^ECH(ECDA,0))  I $P(EC,""^"",23)'="""" D"
^XMB(3.9,25,2,7533,0)="""RTN"",""ECRPRSN"",122,0)"
^XMB(3.9,25,2,7534,0)=" ..S ECDFN=$P(EC,""^"")"
^XMB(3.9,25,2,7535,0)="""RTN"",""ECRPRSN"",123,0)"
^XMB(3.9,25,2,7536,0)=" ..I $P(EC,""^"",3)<ECSD!($P(EC,""^"",3)>ECED) Q  ;file or x-ref problem"
^XMB(3.9,25,2,7537,0)="""RTN"",""ECRPRSN"",124,0)"
^XMB(3.9,25,2,7538,0)=" ..S ECLOCA=+$P(EC,U,4),ECUNIT=+$P(EC,U,7)"
^XMB(3.9,25,2,7539,0)="""RTN"",""ECRPRSN"",125,0)"
^XMB(3.9,25,2,7540,0)=" ..I '$D(NLOC(ECLOCA))!('$D(NUNIT(ECUNIT))) Q"
^XMB(3.9,25,2,7541,0)="""RTN"",""ECRPRSN"",126,0)"
^XMB(3.9,25,2,7542,0)=" ..S ECRL=$P(EC,""^"",23) Q:'$D(ECLINK(ECRL))  S ECR=ECLINK(ECRL),ECRN=$P($G(^ECR(ECR,0)),""^"") Q:ECRN']"""""
^XMB(3.9,25,2,7543,0)="""RTN"",""ECRPRSN"",127,0)"
^XMB(3.9,25,2,7544,0)=" ..S ECP=$P(EC,U,9) Q:ECP']"""""
^XMB(3.9,25,2,7545,0)="""RTN"",""ECRPRSN"",128,0)"
^XMB(3.9,25,2,7546,0)=" ..S ECCAT=+$P(EC,U,8),ECPSY=+$O(^ECJ(""AP"",ECLOCA,ECUNIT,ECCAT,ECP,""""))"
^XMB(3.9,25,2,7547,0)="""RTN"",""ECRPRSN"",129,0)"
^XMB(3.9,25,2,7548,0)=" ..S ECPSYN=$P($G(^ECJ(ECPSY,""PRO"")),""^"",2),ECPI="""""
^XMB(3.9,25,2,7549,0)="""RTN"",""ECRPRSN"",130,0)"
^XMB(3.9,25,2,7550,0)=" ..S ECFILE=$P(ECP,"";"",2),ECFILE=$S($E(ECFILE)=""I"":81,$E(ECFILE)=""E"":725,1:""UNKNOWN"")"
^XMB(3.9,25,2,7551,0)="""RTN"",""ECRPRSN"",131,0)"
^XMB(3.9,25,2,7552,0)=" ..S ECCPT=$S(ECFILE=81:+ECP,1:$P($G(^EC(725,+ECP,0)),""^"",5))"
^XMB(3.9,25,2,7553,0)="""RTN"",""ECRPRSN"",132,0)"
^XMB(3.9,25,2,7554,0)=" ..I ECCPT'="""" D"
^XMB(3.9,25,2,7555,0)="""RTN"",""ECRPRSN"",133,0)"
^XMB(3.9,25,2,7556,0)=" ...S ECPI=$$CPT^ICPTCOD(ECCPT,$P(ECED,""."")) I +ECPI>1 S ECCPT=$P(ECPI,""^"",2)_"" """
^XMB(3.9,25,2,7557,0)="""RTN"",""ECRPRSN"",134,0)"
^XMB(3.9,25,2,7558,0)=" ..I ECFILE=""UNKNOWN"" S ECPN=""UNKNOWN"""
^XMB(3.9,25,2,7559,0)="""RTN"",""ECRPRSN"",135,0)"
^XMB(3.9,25,2,7560,0)=" ..I ECFILE=81 S ECPN=$S($P(ECPI,""^"",3)]"""":$P(ECPI,""^"",3),1:""UNKNOWN"")"
^XMB(3.9,25,2,7561,0)="""RTN"",""ECRPRSN"",136,0)"
^XMB(3.9,25,2,7562,0)=" ..I ECFILE=725 S EC725=$G(^EC(725,+ECP,0)),ECPN=$P(EC725,""^"",2)_"" ""_$P(EC725,""^"")"
^XMB(3.9,25,2,7563,0)="""RTN"",""ECRPRSN"",137,0)"
^XMB(3.9,25,2,7564,0)=" ..Q:ECPN="""""
^XMB(3.9,25,2,7565,0)="""RTN"",""ECRPRSN"",138,0)"
^XMB(3.9,25,2,7566,0)=" ..S ECDESC=$J(ECCPT_"" "",6)_$E(ECPN,1,40)_$S(ECPSYN]"""":"" [""_ECPSYN_""] "",1:"""")"
^XMB(3.9,25,2,7567,0)="""RTN"",""ECRPRSN"",139,0)"
^XMB(3.9,25,2,7568,0)=" ..S (ECPA,ECPATN,ECSS)="""",ECPA=$G(^DPT(+$P(EC,""^"",2),0)) Q:ECPA="""""
^XMB(3.9,25,2,7569,0)="""RTN"",""ECRPRSN"",140,0)"
^XMB(3.9,25,2,7570,0)=" ..S ECPATN=$E($P(ECPA,""^"",1),1,24),ECSS=$P(ECPA,""^"",9)"
^XMB(3.9,25,2,7571,0)="""RTN"",""ECRPRSN"",141,0)"
^XMB(3.9,25,2,7572,0)=" ..S:+ECSS ECSSN=$E(ECSS,6,9) S:ECSS="""" ECSSN=""UNKNOWN"""
^XMB(3.9,25,2,7573,0)="""RTN"",""ECRPRSN"",142,0)"
^XMB(3.9,25,2,7574,0)=" ..S:ECPATN="""" ECPATN=""UNKNOWN"" S ECPATN=ECPATN_""^""_ECSSN"
^XMB(3.9,25,2,7575,0)="""RTN"",""ECRPRSN"",143,0)"
^XMB(3.9,25,2,7576,0)=" ..S (ECPRV,ECPRVN)="""",ECPRV=$$GETPPRV^ECPRVMUT(ECDA,.ECPRVN),ECPRVN=$S(ECPRV:""UNKNOWN"",1:ECPRVN)"
^XMB(3.9,25,2,7577,0)="""RTN"",""ECRPRSN"",144,0)"
^XMB(3.9,25,2,7578,0)=" ..S ECMD="""" I $O(^ECH(ECDA,""MOD"",0))'="""" D  ;ALB/JAM - Get CPT modifiers"
^XMB(3.9,25,2,7579,0)="""RTN"",""ECRPRSN"",145,0)"
^XMB(3.9,25,2,7580,0)=" ...K ECMOD S ECMODF=$$MOD^ECUTL(ECDA,""I"",.ECMOD),SEQ="""" I 'ECMODF Q"
^XMB(3.9,25,2,7581,0)="""RTN"",""ECRPRSN"",146,0)"
^XMB(3.9,25,2,7582,0)=" ...F  S SEQ=$O(ECMOD(SEQ)) Q:SEQ=""""  S ECMD=ECMD_$S(ECMD="""":"""",1:"";"")_$P(ECMOD(SEQ),""^"",2)"
^XMB(3.9,25,2,7583,0)="""RTN"",""ECRPRSN"",147,0)"
^XMB(3.9,25,2,7584,0)=" ..I ECMD="""" S ECMD=""NOMOD"""
^XMB(3.9,25,2,7585,0)="""RTN"",""ECRPRSN"",148,0)"
^XMB(3.9,25,2,7586,0)=" ..S ^TMP(""ECREAS"",$J,ECLOCA,ECUNIT,ECRN,$E(ECPN,1,15))=ECDESC"
^XMB(3.9,25,2,7587,0)="""RTN"",""ECRPRSN"",149,0)"
^XMB(3.9,25,2,7588,0)=" ..S ^TMP(""ECREAS"",$J,ECLOCA,ECUNIT,ECRN,$E(ECPN,1,15),ECMD,ECDFN,ECD)=ECPRVN_""^""_ECPATN"
^XMB(3.9,25,2,7589,0)="""RTN"",""ECRPRSN"",150,0)"
^XMB(3.9,25,2,7590,0)=" ..;where ecloca, ecunit,ecdfn are iens, ecdt is internal format"
^XMB(3.9,25,2,7591,0)="""RTN"",""ECRPRSN"",151,0)"
^XMB(3.9,25,2,7592,0)=" Q"
^XMB(3.9,25,2,7593,0)="""RTN"",""ECRPRSN"",152,0)"
^XMB(3.9,25,2,7594,0)="PRINT ;output report"
^XMB(3.9,25,2,7595,0)="""RTN"",""ECRPRSN"",153,0)"
^XMB(3.9,25,2,7596,0)=" N ECLOCA,ECUNIT,ECREASN,ECDT,ECED2,ECSD2,ECPATN,ECPN,ECPRVN,SEQ,X,Y,SSN"
^XMB(3.9,25,2,7597,0)="""RTN"",""ECRPRSN"",154,0)"
^XMB(3.9,25,2,7598,0)=" N PAGE,QFLAG,DASH,PRNTDT,JJ,SS,ALOC,AUNIT,DATE,LOC,UNIT,PTNAME,PROVN,ECDESC"
^XMB(3.9,25,2,7599,0)="""RTN"",""ECRPRSN"",155,0)"
^XMB(3.9,25,2,7600,0)=" S (PAGE,QFLAG)=0 S $P(DASH,""-"",80)="""""
^XMB(3.9,25,2,7601,0)="""RTN"",""ECRPRSN"",156,0)"
^XMB(3.9,25,2,7602,0)=" S Y=$P(ECSD,""."",1)+1 D DD^%DT S ECSD2=Y S Y=$P(ECED,""."",1) D DD^%DT S ECED2=Y"
^XMB(3.9,25,2,7603,0)="""RTN"",""ECRPRSN"",157,0)"
^XMB(3.9,25,2,7604,0)=" D NOW^%DTC S Y=$E(%,1,12) D DD^%DT S PRNTDT=Y"
^XMB(3.9,25,2,7605,0)="""RTN"",""ECRPRSN"",158,0)"
^XMB(3.9,25,2,7606,0)=" ;if no data exists then print the header and quit"
^XMB(3.9,25,2,7607,0)="""RTN"",""ECRPRSN"",159,0)"
^XMB(3.9,25,2,7608,0)=" I '$D(^TMP(""ECREAS"",$J)) D  Q"
^XMB(3.9,25,2,7609,0)="""RTN"",""ECRPRSN"",160,0)"
^XMB(3.9,25,2,7610,0)=" .S (LOC,UNIT)="""" D HEAD"
^XMB(3.9,25,2,7611,0)="""RTN"",""ECRPRSN"",161,0)"
^XMB(3.9,25,2,7612,0)=" .W !!,?6,""No data for the date range specified."",!!"
^XMB(3.9,25,2,7613,0)="""RTN"",""ECRPRSN"",162,0)"
^XMB(3.9,25,2,7614,0)=" .I $E(IOST)=""C""&('QFLAG) S DIR(0)=""E"" D  D ^DIR K DIR"
^XMB(3.9,25,2,7615,0)="""RTN"",""ECRPRSN"",163,0)"
^XMB(3.9,25,2,7616,0)=" ..S SS=22-$Y F JJ=1:1:SS W !"
^XMB(3.9,25,2,7617,0)="""RTN"",""ECRPRSN"",164,0)"
^XMB(3.9,25,2,7618,0)=" .W:$E(IOST)'=""C"" @IOF"
^XMB(3.9,25,2,7619,0)="""RTN"",""ECRPRSN"",165,0)"
^XMB(3.9,25,2,7620,0)=" ;if there's data in ^TMP then need to present the data alphabetically;"
^XMB(3.9,25,2,7621,0)="""RTN"",""ECRPRSN"",166,0)"
^XMB(3.9,25,2,7622,0)=" ;put locations and units in alpha ordered array"
^XMB(3.9,25,2,7623,0)="""RTN"",""ECRPRSN"",167,0)"
^XMB(3.9,25,2,7624,0)=" S JJ="""" F  S JJ=$O(ECLOC(JJ)) Q:JJ=""""  D"
^XMB(3.9,25,2,7625,0)="""RTN"",""ECRPRSN"",168,0)"
^XMB(3.9,25,2,7626,0)=" .S ALOC($P(ECLOC(JJ),""^"",2))=$P(ECLOC(JJ),""^"",1)"
^XMB(3.9,25,2,7627,0)="""RTN"",""ECRPRSN"",169,0)"
^XMB(3.9,25,2,7628,0)=" S JJ="""" F  S JJ=$O(ECDSSU(JJ)) Q:JJ=""""  D"
^XMB(3.9,25,2,7629,0)="""RTN"",""ECRPRSN"",170,0)"
^XMB(3.9,25,2,7630,0)=" .S AUNIT($P(ECDSSU(JJ),""^"",2))=$P(ECDSSU(JJ),""^"",1)"
^XMB(3.9,25,2,7631,0)="""RTN"",""ECRPRSN"",171,0)"
^XMB(3.9,25,2,7632,0)=" ;process the ^TMP global data in alpha order for location and unit"
^XMB(3.9,25,2,7633,0)="""RTN"",""ECRPRSN"",172,0)"
^XMB(3.9,25,2,7634,0)=" S LOC="""" F  S LOC=$O(ALOC(LOC)) Q:LOC=""""  S ECLOCA=ALOC(LOC) D  Q:QFLAG"
^XMB(3.9,25,2,7635,0)="""RTN"",""ECRPRSN"",173,0)"
^XMB(3.9,25,2,7636,0)=" .S UNIT="""" F  S UNIT=$O(AUNIT(UNIT)) Q:UNIT=""""  S ECUNIT=AUNIT(UNIT) D  Q:QFLAG"
^XMB(3.9,25,2,7637,0)="""RTN"",""ECRPRSN"",174,0)"
^XMB(3.9,25,2,7638,0)=" ..;always start a location at top of page"
^XMB(3.9,25,2,7639,0)="""RTN"",""ECRPRSN"",175,0)"
^XMB(3.9,25,2,7640,0)=" ..I $D(^TMP(""ECREAS"",$J,ECLOCA,ECUNIT)) D HEAD D LOOP"
^XMB(3.9,25,2,7641,0)="""RTN"",""ECRPRSN"",176,0)"
^XMB(3.9,25,2,7642,0)=" ;all done"
^XMB(3.9,25,2,7643,0)="""RTN"",""ECRPRSN"",177,0)"
^XMB(3.9,25,2,7644,0)=" I $E(IOST)=""C""&('QFLAG) S DIR(0)=""E"" D  D ^DIR W @IOF"
^XMB(3.9,25,2,7645,0)="""RTN"",""ECRPRSN"",178,0)"
^XMB(3.9,25,2,7646,0)=" .S SS=22-$Y F JJ=1:1:SS W !"
^XMB(3.9,25,2,7647,0)="""RTN"",""ECRPRSN"",179,0)"
^XMB(3.9,25,2,7648,0)=" W:$E(IOST)'=""C"" @IOF"
^XMB(3.9,25,2,7649,0)="""RTN"",""ECRPRSN"",180,0)"
^XMB(3.9,25,2,7650,0)=" Q"
^XMB(3.9,25,2,7651,0)="""RTN"",""ECRPRSN"",181,0)"
^XMB(3.9,25,2,7652,0)="LOOP ;print the section of the ^tmp global for a specific location/unit"
^XMB(3.9,25,2,7653,0)="""RTN"",""ECRPRSN"",182,0)"
^XMB(3.9,25,2,7654,0)=" S ECREASN="""""
^XMB(3.9,25,2,7655,0)="""RTN"",""ECRPRSN"",183,0)"
^XMB(3.9,25,2,7656,0)=" F  S ECREASN=$O(^TMP(""ECREAS"",$J,ECLOCA,ECUNIT,ECREASN)) Q:ECREASN=""""  Q:QFLAG  D"
^XMB(3.9,25,2,7657,0)="""RTN"",""ECRPRSN"",184,0)"
^XMB(3.9,25,2,7658,0)=" .D:($Y+3>IOSL) HEAD Q:QFLAG  W !!,""Reason: "",ECREASN,! S ECPN="""""
^XMB(3.9,25,2,7659,0)="""RTN"",""ECRPRSN"",185,0)"
^XMB(3.9,25,2,7660,0)=" .F  S ECPN=$O(^TMP(""ECREAS"",$J,ECLOCA,ECUNIT,ECREASN,ECPN)) Q:ECPN=""""  Q:QFLAG  D"
^XMB(3.9,25,2,7661,0)="""RTN"",""ECRPRSN"",186,0)"
^XMB(3.9,25,2,7662,0)=" ..S ECDESC=$G(^TMP(""ECREAS"",$J,ECLOCA,ECUNIT,ECREASN,ECPN)),ECMOD="""""
^XMB(3.9,25,2,7663,0)="""RTN"",""ECRPRSN"",187,0)"
^XMB(3.9,25,2,7664,0)=" ..F  S ECMOD=$O(^TMP(""ECREAS"",$J,ECLOCA,ECUNIT,ECREASN,ECPN,ECMOD)) Q:ECMOD=""""  D  Q:QFLAG"
^XMB(3.9,25,2,7665,0)="""RTN"",""ECRPRSN"",188,0)"
^XMB(3.9,25,2,7666,0)=" ...W !,?3,""Procedure: "",ECDESC D:ECMOD'=""NOMOD"" MODPRT Q:QFLAG  D LOOP1"
^XMB(3.9,25,2,7667,0)="""RTN"",""ECRPRSN"",189,0)"
^XMB(3.9,25,2,7668,0)=" Q"
^XMB(3.9,25,2,7669,0)="""RTN"",""ECRPRSN"",190,0)"
^XMB(3.9,25,2,7670,0)="LOOP1 S ECPATN="""" F  S ECPATN=$O(^TMP(""ECREAS"",$J,ECLOCA,ECUNIT,ECREASN,ECPN,ECMOD,ECPATN)) Q:ECPATN=""""  Q:QFLAG  D"
^XMB(3.9,25,2,7671,0)="""RTN"",""ECRPRSN"",191,0)"
^XMB(3.9,25,2,7672,0)=" .S ECDT="""" F  S ECDT=$O(^TMP(""ECREAS"",$J,ECLOCA,ECUNIT,ECREASN,ECPN,ECMOD,ECPATN,ECDT)) Q:ECDT=""""  Q:QFLAG  D"
^XMB(3.9,25,2,7673,0)="""RTN"",""ECRPRSN"",192,0)"
^XMB(3.9,25,2,7674,0)=" ..S ECPRVN=^(ECDT),PTNAME=$P(ECPRVN,""^"",2),PTNAME=$E(PTNAME,1,22)"
^XMB(3.9,25,2,7675,0)="""RTN"",""ECRPRSN"",193,0)"
^XMB(3.9,25,2,7676,0)=" ..S SSN=$P(ECPRVN,""^"",3),ECPRVN=$P(ECPRVN,""^"")"
^XMB(3.9,25,2,7677,0)="""RTN"",""ECRPRSN"",194,0)"
^XMB(3.9,25,2,7678,0)=" ..S Y=ECDT D DD^%DT S DATE=$E(Y,1,18),PROVN=$E(ECPRVN,1,22)"
^XMB(3.9,25,2,7679,0)="""RTN"",""ECRPRSN"",195,0)"
^XMB(3.9,25,2,7680,0)=" ..D:($Y+3>IOSL) HEAD Q:QFLAG  W !,?6,PTNAME,?30,SSN,?37,DATE,?57,PROVN"
^XMB(3.9,25,2,7681,0)="""RTN"",""ECRPRSN"",196,0)"
^XMB(3.9,25,2,7682,0)=" W !"
^XMB(3.9,25,2,7683,0)="""RTN"",""ECRPRSN"",197,0)"
^XMB(3.9,25,2,7684,0)=" Q"
^XMB(3.9,25,2,7685,0)="""RTN"",""ECRPRSN"",198,0)"
^XMB(3.9,25,2,7686,0)="MODPRT ;ALB/JAM - print CPT procedure modifiers"
^XMB(3.9,25,2,7687,0)="""RTN"",""ECRPRSN"",199,0)"
^XMB(3.9,25,2,7688,0)=" N MOD,I,MODESC,IEN,MODI"
^XMB(3.9,25,2,7689,0)="""RTN"",""ECRPRSN"",200,0)"
^XMB(3.9,25,2,7690,0)=" W !?4,""Modifier: """
^XMB(3.9,25,2,7691,0)="""RTN"",""ECRPRSN"",201,0)"
^XMB(3.9,25,2,7692,0)=" F I=1:1 S IEN=$P(ECMOD,"";"",I) Q:IEN=""""  D  I QFLAG Q"
^XMB(3.9,25,2,7693,0)="""RTN"",""ECRPRSN"",202,0)"
^XMB(3.9,25,2,7694,0)=" . S MODI=$$MOD^ICPTMOD(IEN,""E"",$P(ECED,""."")),MOD=$P(MODI,""^"",2) I MOD="""" Q"
^XMB(3.9,25,2,7695,0)="""RTN"",""ECRPRSN"",203,0)"
^XMB(3.9,25,2,7696,0)=" . S MODESC=$P(MODI,""^"",3) I MODESC=""UNKNOWN"" Q"
^XMB(3.9,25,2,7697,0)="""RTN"",""ECRPRSN"",204,0)"
^XMB(3.9,25,2,7698,0)=" . W:I>1 ! W ?18,""- "",MOD,"" "",MODESC I ($Y+3)>IOSL D HEAD"
^XMB(3.9,25,2,7699,0)="""RTN"",""ECRPRSN"",205,0)"
^XMB(3.9,25,2,7700,0)=" Q"
^XMB(3.9,25,2,7701,0)="""RTN"",""ECRPRSN"",206,0)"
^XMB(3.9,25,2,7702,0)="HEAD ;header"
^XMB(3.9,25,2,7703,0)="""RTN"",""ECRPRSN"",207,0)"
^XMB(3.9,25,2,7704,0)=" I $E(IOST)=""C"" S SS=22-$Y F JJ=1:1:SS W !"
^XMB(3.9,25,2,7705,0)="""RTN"",""ECRPRSN"",208,0)"
^XMB(3.9,25,2,7706,0)=" I $E(IOST)=""C"",PAGE>0 S DIR(0)=""E"" W ! D ^DIR K DIR I 'Y S QFLAG=1 Q"
^XMB(3.9,25,2,7707,0)="""RTN"",""ECRPRSN"",209,0)"
^XMB(3.9,25,2,7708,0)=" W:$Y!($E(IOST)=""C"") @IOF"
^XMB(3.9,25,2,7709,0)="""RTN"",""ECRPRSN"",210,0)"
^XMB(3.9,25,2,7710,0)=" S PAGE=PAGE+1"
^XMB(3.9,25,2,7711,0)="""RTN"",""ECRPRSN"",211,0)"
^XMB(3.9,25,2,7712,0)=" W !,?12,""Event Capture Procedure Reason Report"""
^XMB(3.9,25,2,7713,0)="""RTN"",""ECRPRSN"",212,0)"
^XMB(3.9,25,2,7714,0)=" W !,?12,""for the Date Range "",$$FMTE^XLFDT(ECSD2),"" to "",$$FMTE^XLFDT(ECED2),!"
^XMB(3.9,25,2,7715,0)="""RTN"",""ECRPRSN"",213,0)"
^XMB(3.9,25,2,7716,0)=" W !,?3,""DSS Unit: "",UNIT,?55,""Page: "",PAGE"
^XMB(3.9,25,2,7717,0)="""RTN"",""ECRPRSN"",214,0)"
^XMB(3.9,25,2,7718,0)=" W !,?3,""Location: "",LOC,?52,""Printed: ""_PRNTDT,!"
^XMB(3.9,25,2,7719,0)="""RTN"",""ECRPRSN"",215,0)"
^XMB(3.9,25,2,7720,0)=" W !?6,""Patient"",?30,""SSN"",?37,""Date/Time"",?57,""Provider"""
^XMB(3.9,25,2,7721,0)="""RTN"",""ECRPRSN"",216,0)"
^XMB(3.9,25,2,7722,0)=" W !,DASH"
^XMB(3.9,25,2,7723,0)="""RTN"",""ECRPRSN"",217,0)"
^XMB(3.9,25,2,7724,0)=" Q"
^XMB(3.9,25,2,7725,0)="""RTN"",""ECRPRSN"",218,0)"
^XMB(3.9,25,2,7726,0)="EXIT ;common exit point"
^XMB(3.9,25,2,7727,0)="""RTN"",""ECRPRSN"",219,0)"
^XMB(3.9,25,2,7728,0)=" D ^ECKILL D:'$D(ECGUI) ^%ZISC"
^XMB(3.9,25,2,7729,0)="""RTN"",""ECRPRSN"",220,0)"
^XMB(3.9,25,2,7730,0)=" K ^TMP(""ECREAS"",$J) K JJ,X,Y,ZTSK,IO(""Q""),DIR,DIRUT,DTOUT,DUOUT,ECSD"
^XMB(3.9,25,2,7731,0)="""RTN"",""ECRPRSN"",221,0)"
^XMB(3.9,25,2,7732,0)=" K ECED,ECLOOP,ECLOC,ECDSSU,ECLINK,ASK,DIC"
^XMB(3.9,25,2,7733,0)="""RTN"",""ECRPRSN"",222,0)"
^XMB(3.9,25,2,7734,0)=" Q"
^XMB(3.9,25,2,7735,0)="""RTN"",""ECRRPC"")"
^XMB(3.9,25,2,7736,0)="0^2^B12303108^B10912061"
^XMB(3.9,25,2,7737,0)="""RTN"",""ECRRPC"",1,0)"
^XMB(3.9,25,2,7738,0)="ECRRPC ;ALB/JAM;Event Capture Report RPC Broker ;Sep 5, 2000"
^XMB(3.9,25,2,7739,0)="""RTN"",""ECRRPC"",2,0)"
^XMB(3.9,25,2,7740,0)=" ;;2.0; EVENT CAPTURE ;**25,47,61,72**;8 May 96"
^XMB(3.9,25,2,7741,0)="""RTN"",""ECRRPC"",3,0)"
^XMB(3.9,25,2,7742,0)=" ;"
^XMB(3.9,25,2,7743,0)="""RTN"",""ECRRPC"",4,0)"
^XMB(3.9,25,2,7744,0)="RPTEN(RESULTS,ECARY) ;RPC Broker entry point for EC Reports"
^XMB(3.9,25,2,7745,0)="""RTN"",""ECRRPC"",5,0)"
^XMB(3.9,25,2,7746,0)=" ;All EC GUI reports will call this line tag"
^XMB(3.9,25,2,7747,0)="""RTN"",""ECRRPC"",6,0)"
^XMB(3.9,25,2,7748,0)=" ;        RPC: EC REPORTS"
^XMB(3.9,25,2,7749,0)="""RTN"",""ECRRPC"",7,0)"
^XMB(3.9,25,2,7750,0)=" ;INPUTS   ECARY - Contains the following elements for report printing"
^XMB(3.9,25,2,7751,0)="""RTN"",""ECRRPC"",8,0)"
^XMB(3.9,25,2,7752,0)=" ;          ECDEV  - Print to queue, if device"
^XMB(3.9,25,2,7753,0)="""RTN"",""ECRRPC"",9,0)"
^XMB(3.9,25,2,7754,0)=" ;          ECQDT  - Queue to print (date/time), optional"
^XMB(3.9,25,2,7755,0)="""RTN"",""ECRRPC"",10,0)"
^XMB(3.9,25,2,7756,0)=" ;"
^XMB(3.9,25,2,7757,0)="""RTN"",""ECRRPC"",11,0)"
^XMB(3.9,25,2,7758,0)=" ;OUTPUTS  RESULTS - Array of help text in the HELP FRAM File (#9.2)"
^XMB(3.9,25,2,7759,0)="""RTN"",""ECRRPC"",12,0)"
^XMB(3.9,25,2,7760,0)=" ;"
^XMB(3.9,25,2,7761,0)="""RTN"",""ECRRPC"",13,0)"
^XMB(3.9,25,2,7762,0)=" N HLPDA,HND,ECSTR,ECFILER,ECERR,ECDIRY,ECUFILE,ECGUI"
^XMB(3.9,25,2,7763,0)="""RTN"",""ECRRPC"",14,0)"
^XMB(3.9,25,2,7764,0)=" D SETENV^ECUMRPC"
^XMB(3.9,25,2,7765,0)="""RTN"",""ECRRPC"",15,0)"
^XMB(3.9,25,2,7766,0)=" S ECERR=0,ECGUI=1 D PARSE,CHKDT I ECERR Q"
^XMB(3.9,25,2,7767,0)="""RTN"",""ECRRPC"",16,0)"
^XMB(3.9,25,2,7768,0)=" K ^TMP(""ECMSG"",$J),^TMP($J,""ECRPT"")"
^XMB(3.9,25,2,7769,0)="""RTN"",""ECRRPC"",17,0)"
^XMB(3.9,25,2,7770,0)=" D  I ECERR D END Q"
^XMB(3.9,25,2,7771,0)="""RTN"",""ECRRPC"",18,0)"
^XMB(3.9,25,2,7772,0)=" . I ECPTYP=""D"" D HFSOPEN(ECHNDL) Q"
^XMB(3.9,25,2,7773,0)="""RTN"",""ECRRPC"",19,0)"
^XMB(3.9,25,2,7774,0)=" . I '$D(ECDEV) S ^TMP(""ECMSG"",$J,1)=""0^Device undefined"",ECERR=1"
^XMB(3.9,25,2,7775,0)="""RTN"",""ECRRPC"",20,0)"
^XMB(3.9,25,2,7776,0)=" S HND=$P($T(@ECHNDL),"";;"",2) I HND="""" D  Q"
^XMB(3.9,25,2,7777,0)="""RTN"",""ECRRPC"",21,0)"
^XMB(3.9,25,2,7778,0)=" . S ^TMP(""ECMSG"",$J,1)=""0^Line Tag undefined"" D END"
^XMB(3.9,25,2,7779,0)="""RTN"",""ECRRPC"",22,0)"
^XMB(3.9,25,2,7780,0)=" S ECQDT=$G(ECQDT,""NOW""),%DT=""XT"",X=ECQDT D ^%DT  ;Print time"
^XMB(3.9,25,2,7781,0)="""RTN"",""ECRRPC"",23,0)"
^XMB(3.9,25,2,7782,0)=" S ECQDT=$S(Y>0:Y,1:""NOW"")"
^XMB(3.9,25,2,7783,0)="""RTN"",""ECRRPC"",24,0)"
^XMB(3.9,25,2,7784,0)=" D @$P(HND,"";"",2)"
^XMB(3.9,25,2,7785,0)="""RTN"",""ECRRPC"",25,0)"
^XMB(3.9,25,2,7786,0)=" I ECPTYP=""D"" D HFSCLOSE(ECFILER) ;S RESULTS=$NA(^TMP($J))"
^XMB(3.9,25,2,7787,0)="""RTN"",""ECRRPC"",26,0)"
^XMB(3.9,25,2,7788,0)="END D KILLVAR"
^XMB(3.9,25,2,7789,0)="""RTN"",""ECRRPC"",27,0)"
^XMB(3.9,25,2,7790,0)=" I $D(^TMP(""ECMSG"",$J)) S RESULTS=$NA(^TMP(""ECMSG"",$J)) Q"
^XMB(3.9,25,2,7791,0)="""RTN"",""ECRRPC"",28,0)"
^XMB(3.9,25,2,7792,0)=" S RESULTS=$NA(^TMP($J))"
^XMB(3.9,25,2,7793,0)="""RTN"",""ECRRPC"",29,0)"
^XMB(3.9,25,2,7794,0)=" Q"
^XMB(3.9,25,2,7795,0)="""RTN"",""ECRRPC"",30,0)"
^XMB(3.9,25,2,7796,0)=" ;"
^XMB(3.9,25,2,7797,0)="""RTN"",""ECRRPC"",31,0)"
^XMB(3.9,25,2,7798,0)="PARSE ;Parse data from array for filing"
^XMB(3.9,25,2,7799,0)="""RTN"",""ECRRPC"",32,0)"
^XMB(3.9,25,2,7800,0)=" N SUB"
^XMB(3.9,25,2,7801,0)="""RTN"",""ECRRPC"",33,0)"
^XMB(3.9,25,2,7802,0)=" S SUB="""" F  S SUB=$O(ECARY(SUB)) Q:SUB=""""  S @SUB=ECARY(SUB)"
^XMB(3.9,25,2,7803,0)="""RTN"",""ECRRPC"",34,0)"
^XMB(3.9,25,2,7804,0)=" Q"
^XMB(3.9,25,2,7805,0)="""RTN"",""ECRRPC"",35,0)"
^XMB(3.9,25,2,7806,0)="CHKDT ;Required Data Check"
^XMB(3.9,25,2,7807,0)="""RTN"",""ECRRPC"",36,0)"
^XMB(3.9,25,2,7808,0)=" N I,C"
^XMB(3.9,25,2,7809,0)="""RTN"",""ECRRPC"",37,0)"
^XMB(3.9,25,2,7810,0)=" S C=1"
^XMB(3.9,25,2,7811,0)="""RTN"",""ECRRPC"",38,0)"
^XMB(3.9,25,2,7812,0)=" F I=""ECHNDL"",""ECPTYP"" D"
^XMB(3.9,25,2,7813,0)="""RTN"",""ECRRPC"",39,0)"
^XMB(3.9,25,2,7814,0)=" .I $G(@I)="""" S ^TMP(""ECMSG"",$J,C)=""0^Key data missing ""_I,C=C+1,ECERR=1"
^XMB(3.9,25,2,7815,0)="""RTN"",""ECRRPC"",40,0)"
^XMB(3.9,25,2,7816,0)=" Q"
^XMB(3.9,25,2,7817,0)="""RTN"",""ECRRPC"",41,0)"
^XMB(3.9,25,2,7818,0)="KILLVAR ;Kill variables"
^XMB(3.9,25,2,7819,0)="""RTN"",""ECRRPC"",42,0)"
^XMB(3.9,25,2,7820,0)=" N SUB"
^XMB(3.9,25,2,7821,0)="""RTN"",""ECRRPC"",43,0)"
^XMB(3.9,25,2,7822,0)=" S SUB="""" F  S SUB=$O(ECARY(SUB)) Q:SUB=""""  K @SUB"
^XMB(3.9,25,2,7823,0)="""RTN"",""ECRRPC"",44,0)"
^XMB(3.9,25,2,7824,0)=" K ECARY,POP,ECQDT"
^XMB(3.9,25,2,7825,0)="""RTN"",""ECRRPC"",45,0)"
^XMB(3.9,25,2,7826,0)=" Q"
^XMB(3.9,25,2,7827,0)="""RTN"",""ECRRPC"",46,0)"
^XMB(3.9,25,2,7828,0)="HFSOPEN(HANDLE) ; "
^XMB(3.9,25,2,7829,0)="""RTN"",""ECRRPC"",47,0)"
^XMB(3.9,25,2,7830,0)=" S ECDIRY=$$GET^XPAR(""DIV"",""EC HFS SCRATCH"")"
^XMB(3.9,25,2,7831,0)="""RTN"",""ECRRPC"",48,0)"
^XMB(3.9,25,2,7832,0)=" I ECDIRY="""" S ECERR=1 D  Q"
^XMB(3.9,25,2,7833,0)="""RTN"",""ECRRPC"",49,0)"
^XMB(3.9,25,2,7834,0)=" .S ^TMP(""ECMSG"",$J,1)=""0^A scratch directory for reports doesn't exist"""
^XMB(3.9,25,2,7835,0)="""RTN"",""ECRRPC"",50,0)"
^XMB(3.9,25,2,7836,0)=" S ECFILER=""EC""_DUZ_"".DAT"",ECUFILE=ECFILER S ^TMP(""JEN"",$J,.1)=ECUFILE"
^XMB(3.9,25,2,7837,0)="""RTN"",""ECRRPC"",51,0)"
^XMB(3.9,25,2,7838,0)=" D OPEN^%ZISH(HANDLE,ECDIRY,ECFILER,""W"") D:POP  Q:POP"
^XMB(3.9,25,2,7839,0)="""RTN"",""ECRRPC"",52,0)"
^XMB(3.9,25,2,7840,0)=" .S ECERR=1,^TMP(""ECMSG"",$J,1)=""0^Unable to open file ""_ECDIRY_ECFILER"
^XMB(3.9,25,2,7841,0)="""RTN"",""ECRRPC"",53,0)"
^XMB(3.9,25,2,7842,0)=" S IOM=132,IOSL=99999,IOST=""P-DUMMY"",IOF="""""""""""""
^XMB(3.9,25,2,7843,0)="""RTN"",""ECRRPC"",54,0)"
^XMB(3.9,25,2,7844,0)=" Q"
^XMB(3.9,25,2,7845,0)="""RTN"",""ECRRPC"",55,0)"
^XMB(3.9,25,2,7846,0)=" ;"
^XMB(3.9,25,2,7847,0)="""RTN"",""ECRRPC"",56,0)"
^XMB(3.9,25,2,7848,0)="HFSCLOSE(HANDLE) ; "
^XMB(3.9,25,2,7849,0)="""RTN"",""ECRRPC"",57,0)"
^XMB(3.9,25,2,7850,0)=" N ECDEL"
^XMB(3.9,25,2,7851,0)="""RTN"",""ECRRPC"",58,0)"
^XMB(3.9,25,2,7852,0)=" D CLOSE^%ZISH(ECDIRY_HANDLE)"
^XMB(3.9,25,2,7853,0)="""RTN"",""ECRRPC"",59,0)"
^XMB(3.9,25,2,7854,0)=" K ^TMP($J)"
^XMB(3.9,25,2,7855,0)="""RTN"",""ECRRPC"",60,0)"
^XMB(3.9,25,2,7856,0)=" S ECDEL(ECFILER)="""""
^XMB(3.9,25,2,7857,0)="""RTN"",""ECRRPC"",61,0)"
^XMB(3.9,25,2,7858,0)=" S X=$$FTG^%ZISH(ECDIRY,ECFILER,$NAME(^TMP($J,1)),2)"
^XMB(3.9,25,2,7859,0)="""RTN"",""ECRRPC"",62,0)"
^XMB(3.9,25,2,7860,0)=" S X=$$DEL^%ZISH(ECDIRY,$NA(ECDEL))"
^XMB(3.9,25,2,7861,0)="""RTN"",""ECRRPC"",63,0)"
^XMB(3.9,25,2,7862,0)=" Q"
^XMB(3.9,25,2,7863,0)="""RTN"",""ECRRPC"",64,0)"
^XMB(3.9,25,2,7864,0)="ECPAT ;;Patient Summary Report;ECPAT^ECRRPT"
^XMB(3.9,25,2,7865,0)="""RTN"",""ECRRPC"",65,0)"
^XMB(3.9,25,2,7866,0)="ECRDSSU ;;DSS Unit Workload Summary;ECRDSSU^ECRRPT"
^XMB(3.9,25,2,7867,0)="""RTN"",""ECRRPC"",66,0)"
^XMB(3.9,25,2,7868,0)="ECPROV ;;Provider Summary Report;ECPROV^ECRRPT"
^XMB(3.9,25,2,7869,0)="""RTN"",""ECRRPC"",67,0)"
^XMB(3.9,25,2,7870,0)="PROSUM ;;Provider (1-7) Summary Report;PROSUM^ECRRPT"
^XMB(3.9,25,2,7871,0)="""RTN"",""ECRRPC"",68,0)"
^XMB(3.9,25,2,7872,0)="ECOSSUM ;;Ordering Section Summary Report;ECOSSUM^ECRRPT"
^XMB(3.9,25,2,7873,0)="""RTN"",""ECRRPC"",69,0)"
^XMB(3.9,25,2,7874,0)="ECPCER ;;PCE Data Summary Report;ECPCER^ECRRPT"
^XMB(3.9,25,2,7875,0)="""RTN"",""ECRRPC"",70,0)"
^XMB(3.9,25,2,7876,0)="ECRPERS ;;Inactive Person Class Report;ECRPERS^ECRRPT1"
^XMB(3.9,25,2,7877,0)="""RTN"",""ECRRPC"",71,0)"
^XMB(3.9,25,2,7878,0)="ECRPRSN ;;Procedure Reason Report;ECRPRSN^ECRRPT1"
^XMB(3.9,25,2,7879,0)="""RTN"",""ECRRPC"",72,0)"
^XMB(3.9,25,2,7880,0)="ECDSS1 ;;National/Local Procedure Reports;ECDSS1^ECRRPT1"
^XMB(3.9,25,2,7881,0)="""RTN"",""ECRRPC"",73,0)"
^XMB(3.9,25,2,7882,0)="ECDSS3 ;;Category Reports;ECDSS3^ECRRPT1"
^XMB(3.9,25,2,7883,0)="""RTN"",""ECRRPC"",74,0)"
^XMB(3.9,25,2,7884,0)="ECSUM ;;Print Category and Procedure Summary (Report);ECSUM^ECRRPT1"
^XMB(3.9,25,2,7885,0)="""RTN"",""ECRRPC"",75,0)"
^XMB(3.9,25,2,7886,0)="ECNTPCE ;;Records Failing Transmission to PCE Report;ECNTPCE^ECRRPT1"
^XMB(3.9,25,2,7887,0)="""RTN"",""ECRRPC"",76,0)"
^XMB(3.9,25,2,7888,0)="ECSCPT ;;Event Code Screens with CPT Codes;ECSCPT^ECRRPT1"
^XMB(3.9,25,2,7889,0)="""RTN"",""ECRRPC"",77,0)"
^XMB(3.9,25,2,7890,0)="ECINCPT ;;National/Local Procedure Codes with Inactive CPT;ECINCPT^ECRRPT1"
^XMB(3.9,25,2,7891,0)="""RTN"",""ECRRPT1"")"
^XMB(3.9,25,2,7892,0)="0^3^B50531170^B33119394"
^XMB(3.9,25,2,7893,0)="""RTN"",""ECRRPT1"",1,0)"
^XMB(3.9,25,2,7894,0)="ECRRPT1 ;ALB/JAM;Event Capture Report RPC Broker ;Jan 2, 2001"
^XMB(3.9,25,2,7895,0)="""RTN"",""ECRRPT1"",2,0)"
^XMB(3.9,25,2,7896,0)=" ;;2.0; EVENT CAPTURE ;**25,32,33,61,78,72**;8 May 96"
^XMB(3.9,25,2,7897,0)="""RTN"",""ECRRPT1"",3,0)"
^XMB(3.9,25,2,7898,0)=" ;"
^XMB(3.9,25,2,7899,0)="""RTN"",""ECRRPT1"",4,0)"
^XMB(3.9,25,2,7900,0)="ECRPRSN ;Procedure Reason Report for RPC Call"
^XMB(3.9,25,2,7901,0)="""RTN"",""ECRRPT1"",5,0)"
^XMB(3.9,25,2,7902,0)=" ;     Variables passed in"
^XMB(3.9,25,2,7903,0)="""RTN"",""ECRRPT1"",6,0)"
^XMB(3.9,25,2,7904,0)=" ;       ECSD     - Start Date or Report"
^XMB(3.9,25,2,7905,0)="""RTN"",""ECRRPT1"",7,0)"
^XMB(3.9,25,2,7906,0)=" ;       ECED     - End Date or Report"
^XMB(3.9,25,2,7907,0)="""RTN"",""ECRRPT1"",8,0)"
^XMB(3.9,25,2,7908,0)=" ;       ECL      - Location to report (1 or ALL)"
^XMB(3.9,25,2,7909,0)="""RTN"",""ECRRPT1"",9,0)"
^XMB(3.9,25,2,7910,0)=" ;       ECD0..n  - DSS Unit to report (1,some or ALL)"
^XMB(3.9,25,2,7911,0)="""RTN"",""ECRRPT1"",10,0)"
^XMB(3.9,25,2,7912,0)=" ;       ECRY0..n - Procedure reason (some or ALL)"
^XMB(3.9,25,2,7913,0)="""RTN"",""ECRRPT1"",11,0)"
^XMB(3.9,25,2,7914,0)=" ;"
^XMB(3.9,25,2,7915,0)="""RTN"",""ECRRPT1"",12,0)"
^XMB(3.9,25,2,7916,0)=" ;     Variable return"
^XMB(3.9,25,2,7917,0)="""RTN"",""ECRRPT1"",13,0)"
^XMB(3.9,25,2,7918,0)=" ;       ^TMP($J,""ECRPT"",n)=report output or to print device."
^XMB(3.9,25,2,7919,0)="""RTN"",""ECRRPT1"",14,0)"
^XMB(3.9,25,2,7920,0)=" N ECV,ECI,ECLOC,ECDSSU,ECDN,ECDATE,ECUN,ECNT,ECKEY,ECX,DUZ,ECLINK,ECZ"
^XMB(3.9,25,2,7921,0)="""RTN"",""ECRRPT1"",15,0)"
^XMB(3.9,25,2,7922,0)=" N ECROU,ECSAVE,ECDESC,ECW,DIC,X,Y"
^XMB(3.9,25,2,7923,0)="""RTN"",""ECRRPT1"",16,0)"
^XMB(3.9,25,2,7924,0)=" S ECV=""ECL^ECD0^ECSD^ECED^ECRY0"" D REQCHK^ECRRPT(ECV) I ECERR Q"
^XMB(3.9,25,2,7925,0)="""RTN"",""ECRRPT1"",17,0)"
^XMB(3.9,25,2,7926,0)=" D  I '$D(ECLOC) S ^TMP(""ECMSG"",$J)=""1^Invalid Location."" Q"
^XMB(3.9,25,2,7927,0)="""RTN"",""ECRRPT1"",18,0)"
^XMB(3.9,25,2,7928,0)=" . I ECL=""ALL"" D LOCARRY^ECRUTL Q"
^XMB(3.9,25,2,7929,0)="""RTN"",""ECRRPT1"",19,0)"
^XMB(3.9,25,2,7930,0)=" . S DIC=4,DIC(0)=""QNMZX"",X=ECL D ^DIC Q:Y<0  S ECLOC(1)=+Y_""^""_$P(Y,U,2)"
^XMB(3.9,25,2,7931,0)="""RTN"",""ECRRPT1"",20,0)"
^XMB(3.9,25,2,7932,0)=" D  I '$D(ECDSSU) S ^TMP(""ECMSG"",$J)=""1^Invalid DSS Unit."" Q"
^XMB(3.9,25,2,7933,0)="""RTN"",""ECRRPT1"",21,0)"
^XMB(3.9,25,2,7934,0)=" . I ECD0=""ALL"" D  Q"
^XMB(3.9,25,2,7935,0)="""RTN"",""ECRRPT1"",22,0)"
^XMB(3.9,25,2,7936,0)=" . . I '$D(ECDUZ) Q"
^XMB(3.9,25,2,7937,0)="""RTN"",""ECRRPT1"",23,0)"
^XMB(3.9,25,2,7938,0)=" . . S ECKEY=$S($D(^XUSEC(""ECALLU"",ECDUZ)):1,1:0),DUZ=ECDUZ D ALLU^ECRUTL"
^XMB(3.9,25,2,7939,0)="""RTN"",""ECRRPT1"",24,0)"
^XMB(3.9,25,2,7940,0)=" . S (ECI,ECNT)=0 F ECI=0:1 S ECX=""ECD""_ECI Q:'$D(@ECX)  D"
^XMB(3.9,25,2,7941,0)="""RTN"",""ECRRPT1"",25,0)"
^XMB(3.9,25,2,7942,0)=" . . K DIC S DIC=724,DIC(0)=""QNMZX"",X=@ECX D ^DIC I Y<0 Q"
^XMB(3.9,25,2,7943,0)="""RTN"",""ECRRPT1"",26,0)"
^XMB(3.9,25,2,7944,0)=" . . S ECNT=ECNT+1,ECDSSU(ECNT)=Y"
^XMB(3.9,25,2,7945,0)="""RTN"",""ECRRPT1"",27,0)"
^XMB(3.9,25,2,7946,0)=" S ECX=0 D"
^XMB(3.9,25,2,7947,0)="""RTN"",""ECRRPT1"",28,0)"
^XMB(3.9,25,2,7948,0)=" .I ECRY0=""ALL"" D PXREAS Q"
^XMB(3.9,25,2,7949,0)="""RTN"",""ECRRPT1"",29,0)"
^XMB(3.9,25,2,7950,0)=" .N TLOC,TDSS,ECY"
^XMB(3.9,25,2,7951,0)="""RTN"",""ECRRPT1"",30,0)"
^XMB(3.9,25,2,7952,0)=" .S ECI=0 F  S ECI=$O(ECLOC(ECI)) Q:'ECI  S TLOC(+ECLOC(ECI))="""""
^XMB(3.9,25,2,7953,0)="""RTN"",""ECRRPT1"",31,0)"
^XMB(3.9,25,2,7954,0)=" .S ECI=0 F  S ECI=$O(ECDSSU(ECI)) Q:'ECI  S TDSS(+ECDSSU(ECI))="""""
^XMB(3.9,25,2,7955,0)="""RTN"",""ECRRPT1"",32,0)"
^XMB(3.9,25,2,7956,0)=" .S ECI=0 F ECI=0:1 S ECZ=""ECRY""_ECI Q:'$D(@ECZ)  D"
^XMB(3.9,25,2,7957,0)="""RTN"",""ECRRPT1"",33,0)"
^XMB(3.9,25,2,7958,0)=" ..S ECW=0 F  S ECW=$O(^ECL(""B"",@ECZ,ECW)) Q:'ECW  D"
^XMB(3.9,25,2,7959,0)="""RTN"",""ECRRPT1"",34,0)"
^XMB(3.9,25,2,7960,0)=" ...S ECY=$P($G(^ECL(ECW,0)),U,2) Q:ECY=""""  S ECJ=$P($G(^ECJ(ECY,0)),U)"
^XMB(3.9,25,2,7961,0)="""RTN"",""ECRRPT1"",35,0)"
^XMB(3.9,25,2,7962,0)=" ...Q:ECJ=""""  Q:'$D(TLOC($P(ECJ,""-"")))  Q:'$D(TDSS($P(ECJ,""-"",2)))"
^XMB(3.9,25,2,7963,0)="""RTN"",""ECRRPT1"",36,0)"
^XMB(3.9,25,2,7964,0)=" ...S ECLINK(ECW)=$P($G(^ECL(ECW,0)),U)"
^XMB(3.9,25,2,7965,0)="""RTN"",""ECRRPT1"",37,0)"
^XMB(3.9,25,2,7966,0)=" D DATECHK^ECRRPT(.ECSD,.ECED) S ECSD=ECSD-.0001,ECED=ECED+.9999"
^XMB(3.9,25,2,7967,0)="""RTN"",""ECRRPT1"",38,0)"
^XMB(3.9,25,2,7968,0)=" I ECPTYP=""P"" D  Q"
^XMB(3.9,25,2,7969,0)="""RTN"",""ECRRPT1"",39,0)"
^XMB(3.9,25,2,7970,0)=" . S ECV=""ECSD^ECED"",ECROU=""START^ECRPRSN"""
^XMB(3.9,25,2,7971,0)="""RTN"",""ECRRPT1"",40,0)"
^XMB(3.9,25,2,7972,0)=" . S (ECSAVE(""ECLOC(""),ECSAVE(""ECDSSU(""),ECSAVE(""ECLINK(""))="""""
^XMB(3.9,25,2,7973,0)="""RTN"",""ECRRPT1"",41,0)"
^XMB(3.9,25,2,7974,0)=" . S ECDESC=""EC Procedure Reason Report"""
^XMB(3.9,25,2,7975,0)="""RTN"",""ECRRPT1"",42,0)"
^XMB(3.9,25,2,7976,0)=" . D QUEUE^ECRRPT"
^XMB(3.9,25,2,7977,0)="""RTN"",""ECRRPT1"",43,0)"
^XMB(3.9,25,2,7978,0)=" D START^ECRPRSN,EXIT^ECRPRSN"
^XMB(3.9,25,2,7979,0)="""RTN"",""ECRRPT1"",44,0)"
^XMB(3.9,25,2,7980,0)=" Q"
^XMB(3.9,25,2,7981,0)="""RTN"",""ECRRPT1"",45,0)"
^XMB(3.9,25,2,7982,0)="PXREAS ;Procedure reason link"
^XMB(3.9,25,2,7983,0)="""RTN"",""ECRRPT1"",46,0)"
^XMB(3.9,25,2,7984,0)=" N ECZ,ECX,ECY,ECV"
^XMB(3.9,25,2,7985,0)="""RTN"",""ECRRPT1"",47,0)"
^XMB(3.9,25,2,7986,0)=" S ECX=0 F  S ECX=$O(ECLOC(ECX)) Q:'ECX  S ECY=0 D"
^XMB(3.9,25,2,7987,0)="""RTN"",""ECRRPT1"",48,0)"
^XMB(3.9,25,2,7988,0)=" . F  S ECY=$O(ECDSSU(ECY)) Q:'ECY  S ECV=+ECLOC(ECX)_""-""_+ECDSSU(ECY) D"
^XMB(3.9,25,2,7989,0)="""RTN"",""ECRRPT1"",49,0)"
^XMB(3.9,25,2,7990,0)=" . . S ECZ=ECV_""-0-0"""
^XMB(3.9,25,2,7991,0)="""RTN"",""ECRRPT1"",50,0)"
^XMB(3.9,25,2,7992,0)=" . . F  S ECZ=$O(^ECJ(""B"",ECZ)) Q:('ECZ)!($P(ECZ,""-"",1,2)'=ECV)  D"
^XMB(3.9,25,2,7993,0)="""RTN"",""ECRRPT1"",51,0)"
^XMB(3.9,25,2,7994,0)=" . . . S ECW=$O(^ECJ(""B"",ECZ,"""")) Q:ECW=""""  D REALNK"
^XMB(3.9,25,2,7995,0)="""RTN"",""ECRRPT1"",52,0)"
^XMB(3.9,25,2,7996,0)=" Q"
^XMB(3.9,25,2,7997,0)="""RTN"",""ECRRPT1"",53,0)"
^XMB(3.9,25,2,7998,0)="REALNK ;Reason link"
^XMB(3.9,25,2,7999,0)="""RTN"",""ECRRPT1"",54,0)"
^XMB(3.9,25,2,8000,0)=" N XX,YY,ZZ"
^XMB(3.9,25,2,8001,0)="""RTN"",""ECRRPT1"",55,0)"
^XMB(3.9,25,2,8002,0)=" S XX=0 F  S XX=$O(^ECL(""AD"",ECW,XX)) Q:'XX  S YY=0 D"
^XMB(3.9,25,2,8003,0)="""RTN"",""ECRRPT1"",56,0)"
^XMB(3.9,25,2,8004,0)=" . F  S YY=$O(^ECL(""AD"",ECW,XX,YY)) Q:'YY  D"
^XMB(3.9,25,2,8005,0)="""RTN"",""ECRRPT1"",57,0)"
^XMB(3.9,25,2,8006,0)=" . . Q:$G(^ECL(YY,0))=""""  S ECLINK(YY)=XX"
^XMB(3.9,25,2,8007,0)="""RTN"",""ECRRPT1"",58,0)"
^XMB(3.9,25,2,8008,0)=" Q"
^XMB(3.9,25,2,8009,0)="""RTN"",""ECRRPT1"",59,0)"
^XMB(3.9,25,2,8010,0)="ECRPERS ;Inactive Person Class Report for RPC Call"
^XMB(3.9,25,2,8011,0)="""RTN"",""ECRRPT1"",60,0)"
^XMB(3.9,25,2,8012,0)=" ;     Variables passed in"
^XMB(3.9,25,2,8013,0)="""RTN"",""ECRRPT1"",61,0)"
^XMB(3.9,25,2,8014,0)=" ;       ECSD   - Start Date or Report"
^XMB(3.9,25,2,8015,0)="""RTN"",""ECRRPT1"",62,0)"
^XMB(3.9,25,2,8016,0)=" ;       ECED   - End Date or Report"
^XMB(3.9,25,2,8017,0)="""RTN"",""ECRRPT1"",63,0)"
^XMB(3.9,25,2,8018,0)=" ;       ECSORT - Sort by Patient (P) or Provider (R)"
^XMB(3.9,25,2,8019,0)="""RTN"",""ECRRPT1"",64,0)"
^XMB(3.9,25,2,8020,0)=" ;"
^XMB(3.9,25,2,8021,0)="""RTN"",""ECRRPT1"",65,0)"
^XMB(3.9,25,2,8022,0)=" ;     Variable return"
^XMB(3.9,25,2,8023,0)="""RTN"",""ECRRPT1"",66,0)"
^XMB(3.9,25,2,8024,0)=" ;       ^TMP($J,""ECRPT"",n)=report output or to print device."
^XMB(3.9,25,2,8025,0)="""RTN"",""ECRRPT1"",67,0)"
^XMB(3.9,25,2,8026,0)=" N ECV,ECDATE,ECBEGIN,ECEND,ECROU,ECDESC"
^XMB(3.9,25,2,8027,0)="""RTN"",""ECRRPT1"",68,0)"
^XMB(3.9,25,2,8028,0)=" S ECV=""ECSD^ECED^ECSORT"" D REQCHK^ECRRPT(ECV) I ECERR Q"
^XMB(3.9,25,2,8029,0)="""RTN"",""ECRRPT1"",69,0)"
^XMB(3.9,25,2,8030,0)=" D DATECHK^ECRRPT(.ECSD,.ECED)"
^XMB(3.9,25,2,8031,0)="""RTN"",""ECRRPT1"",70,0)"
^XMB(3.9,25,2,8032,0)=" S ECBEGIN=ECSD-.0001,ECEND=ECED+.9999"
^XMB(3.9,25,2,8033,0)="""RTN"",""ECRRPT1"",71,0)"
^XMB(3.9,25,2,8034,0)=" I ECPTYP=""P"" D  Q"
^XMB(3.9,25,2,8035,0)="""RTN"",""ECRRPT1"",72,0)"
^XMB(3.9,25,2,8036,0)=" . S ECV=""ECBEGIN^ECEND^ECSORT"",ECROU=""START^ECRPCLS"""
^XMB(3.9,25,2,8037,0)="""RTN"",""ECRRPT1"",73,0)"
^XMB(3.9,25,2,8038,0)=" . S ECDESC=""EC Invalid Provider Report"""
^XMB(3.9,25,2,8039,0)="""RTN"",""ECRRPT1"",74,0)"
^XMB(3.9,25,2,8040,0)=" . D QUEUE^ECRRPT"
^XMB(3.9,25,2,8041,0)="""RTN"",""ECRRPT1"",75,0)"
^XMB(3.9,25,2,8042,0)=" D START^ECRPCLS"
^XMB(3.9,25,2,8043,0)="""RTN"",""ECRRPT1"",76,0)"
^XMB(3.9,25,2,8044,0)=" Q"
^XMB(3.9,25,2,8045,0)="""RTN"",""ECRRPT1"",77,0)"
^XMB(3.9,25,2,8046,0)="ECDSS1 ;National/Local Procedure Reports for RPC Call"
^XMB(3.9,25,2,8047,0)="""RTN"",""ECRRPT1"",78,0)"
^XMB(3.9,25,2,8048,0)=" ;     Variables passed in"
^XMB(3.9,25,2,8049,0)="""RTN"",""ECRRPT1"",79,0)"
^XMB(3.9,25,2,8050,0)=" ;       ECRTN    - Procedure Report (A-active or I-inactive)"
^XMB(3.9,25,2,8051,0)="""RTN"",""ECRRPT1"",80,0)"
^XMB(3.9,25,2,8052,0)=" ;    If ECRTN=A, also"
^XMB(3.9,25,2,8053,0)="""RTN"",""ECRRPT1"",81,0)"
^XMB(3.9,25,2,8054,0)=" ;       ECRN     - Preferred Report (N-ational, L-ocal or Both)"
^XMB(3.9,25,2,8055,0)="""RTN"",""ECRRPT1"",82,0)"
^XMB(3.9,25,2,8056,0)=" ;       ECRD     - Sort Method (P-rocedure Name, N-ational Number)"
^XMB(3.9,25,2,8057,0)="""RTN"",""ECRRPT1"",83,0)"
^XMB(3.9,25,2,8058,0)=" ;"
^XMB(3.9,25,2,8059,0)="""RTN"",""ECRRPT1"",84,0)"
^XMB(3.9,25,2,8060,0)=" ;     Variable return"
^XMB(3.9,25,2,8061,0)="""RTN"",""ECRRPT1"",85,0)"
^XMB(3.9,25,2,8062,0)=" ;       ^TMP($J,""ECRPT"",n)=report output or to print device."
^XMB(3.9,25,2,8063,0)="""RTN"",""ECRRPT1"",86,0)"
^XMB(3.9,25,2,8064,0)=" N ECV,ECDESC,ECROU,DQTIME"
^XMB(3.9,25,2,8065,0)="""RTN"",""ECRRPT1"",87,0)"
^XMB(3.9,25,2,8066,0)=" S ECV=$S($G(ECRTN)=""A"":""ECRTN^ECRN^ECRD"",1:""ECRTN"")"
^XMB(3.9,25,2,8067,0)="""RTN"",""ECRRPT1"",88,0)"
^XMB(3.9,25,2,8068,0)=" D REQCHK^ECRRPT(ECV) I ECERR Q"
^XMB(3.9,25,2,8069,0)="""RTN"",""ECRRPT1"",89,0)"
^XMB(3.9,25,2,8070,0)=" S DQTIME=ECQDT"
^XMB(3.9,25,2,8071,0)="""RTN"",""ECRRPT1"",90,0)"
^XMB(3.9,25,2,8072,0)=" I ECPTYP=""P"" D  Q"
^XMB(3.9,25,2,8073,0)="""RTN"",""ECRRPT1"",91,0)"
^XMB(3.9,25,2,8074,0)=" . S ECV=""ECRTN^ECRN^ECRD"",ECROU=$S(ECRTN=""I"":""LISTI"",1:""PRT"")_""^ECDSS1"""
^XMB(3.9,25,2,8075,0)="""RTN"",""ECRRPT1"",92,0)"
^XMB(3.9,25,2,8076,0)=" . S ECDESC=""Event Capture National Procedure Report"",ECDIP=1"
^XMB(3.9,25,2,8077,0)="""RTN"",""ECRRPT1"",93,0)"
^XMB(3.9,25,2,8078,0)=" . ;S ECSAVE(""IO*"")="""""
^XMB(3.9,25,2,8079,0)="""RTN"",""ECRRPT1"",94,0)"
^XMB(3.9,25,2,8080,0)=" .D QUEDIP D @$S(ECRTN=""I"":""LISTI^ECDSS1"",1:""PRT^ECDSS1"")"
^XMB(3.9,25,2,8081,0)="""RTN"",""ECRRPT1"",95,0)"
^XMB(3.9,25,2,8082,0)=" D CLOSE^%ZISH(ECDIRY_ECFILER)"
^XMB(3.9,25,2,8083,0)="""RTN"",""ECRRPT1"",96,0)"
^XMB(3.9,25,2,8084,0)=" S %ZIS(""HFSNAME"")=ECDIRY_ECFILER,%ZIS(""HFSMODE"")=""W"",IOP=""HFS"""
^XMB(3.9,25,2,8085,0)="""RTN"",""ECRRPT1"",97,0)"
^XMB(3.9,25,2,8086,0)=" D @$S(ECRTN=""I"":""LISTI^ECDSS1"",1:""PRT^ECDSS1"")"
^XMB(3.9,25,2,8087,0)="""RTN"",""ECRRPT1"",98,0)"
^XMB(3.9,25,2,8088,0)=" Q"
^XMB(3.9,25,2,8089,0)="""RTN"",""ECRRPT1"",99,0)"
^XMB(3.9,25,2,8090,0)="ECDSS3 ;Category Reports for RPC Call"
^XMB(3.9,25,2,8091,0)="""RTN"",""ECRRPT1"",100,0)"
^XMB(3.9,25,2,8092,0)=" ;     Variables passed in"
^XMB(3.9,25,2,8093,0)="""RTN"",""ECRRPT1"",101,0)"
^XMB(3.9,25,2,8094,0)=" ;       ECRTN    - Category Procedure Report "
^XMB(3.9,25,2,8095,0)="""RTN"",""ECRRPT1"",102,0)"
^XMB(3.9,25,2,8096,0)=" ;                  (A-active, I-inactive or B-oth)"
^XMB(3.9,25,2,8097,0)="""RTN"",""ECRRPT1"",103,0)"
^XMB(3.9,25,2,8098,0)=" ;"
^XMB(3.9,25,2,8099,0)="""RTN"",""ECRRPT1"",104,0)"
^XMB(3.9,25,2,8100,0)=" ;     Variable return"
^XMB(3.9,25,2,8101,0)="""RTN"",""ECRRPT1"",105,0)"
^XMB(3.9,25,2,8102,0)=" ;       ^TMP($J,""ECRPT"",n)=report output or to print device."
^XMB(3.9,25,2,8103,0)="""RTN"",""ECRRPT1"",106,0)"
^XMB(3.9,25,2,8104,0)=" N ECV,ECDIP,DQTIME"
^XMB(3.9,25,2,8105,0)="""RTN"",""ECRRPT1"",107,0)"
^XMB(3.9,25,2,8106,0)=" S ECV=""ECRTN"" D REQCHK^ECRRPT(ECV) I ECERR Q"
^XMB(3.9,25,2,8107,0)="""RTN"",""ECRRPT1"",108,0)"
^XMB(3.9,25,2,8108,0)=" S DQTIME=ECQDT"
^XMB(3.9,25,2,8109,0)="""RTN"",""ECRRPT1"",109,0)"
^XMB(3.9,25,2,8110,0)=" I ECPTYP=""P"" D  Q"
^XMB(3.9,25,2,8111,0)="""RTN"",""ECRRPT1"",110,0)"
^XMB(3.9,25,2,8112,0)=" . S ECV=""ECRTN"",ECROU=""PRINT^ECDSS3"""
^XMB(3.9,25,2,8113,0)="""RTN"",""ECRRPT1"",111,0)"
^XMB(3.9,25,2,8114,0)=" . S ECDESC=""Event Capture Category Reports"""
^XMB(3.9,25,2,8115,0)="""RTN"",""ECRRPT1"",112,0)"
^XMB(3.9,25,2,8116,0)=" . D QUEDIP D PRINT^ECDSS3"
^XMB(3.9,25,2,8117,0)="""RTN"",""ECRRPT1"",113,0)"
^XMB(3.9,25,2,8118,0)=" D CLOSE^%ZISH(ECDIRY_ECFILER)"
^XMB(3.9,25,2,8119,0)="""RTN"",""ECRRPT1"",114,0)"
^XMB(3.9,25,2,8120,0)=" S %ZIS(""HFSNAME"")=ECDIRY_ECFILER,%ZIS(""HFSMODE"")=""W"",IOP=""HFS"""
^XMB(3.9,25,2,8121,0)="""RTN"",""ECRRPT1"",115,0)"
^XMB(3.9,25,2,8122,0)=" D PRINT^ECDSS3"
^XMB(3.9,25,2,8123,0)="""RTN"",""ECRRPT1"",116,0)"
^XMB(3.9,25,2,8124,0)=" Q"
^XMB(3.9,25,2,8125,0)="""RTN"",""ECRRPT1"",117,0)"
^XMB(3.9,25,2,8126,0)="QUEDIP ;Queue when using DIP"
^XMB(3.9,25,2,8127,0)="""RTN"",""ECRRPT1"",118,0)"
^XMB(3.9,25,2,8128,0)=" N DIC,X,Y"
^XMB(3.9,25,2,8129,0)="""RTN"",""ECRRPT1"",119,0)"
^XMB(3.9,25,2,8130,0)=" D  I Y=-1 S ECERR=1 Q"
^XMB(3.9,25,2,8131,0)="""RTN"",""ECRRPT1"",120,0)"
^XMB(3.9,25,2,8132,0)=" . S DIC(0)=""MN"",X=ECDEV,DIC=""^%ZIS(1,"" D ^DIC"
^XMB(3.9,25,2,8133,0)="""RTN"",""ECRRPT1"",121,0)"
^XMB(3.9,25,2,8134,0)=" . S:+Y>0 IOP=""Q;""_$P(Y,U,2)"
^XMB(3.9,25,2,8135,0)="""RTN"",""ECRRPT1"",122,0)"
^XMB(3.9,25,2,8136,0)=" . S Y=ECQDT X ^DD(""DD"") S DQTIME=Y"
^XMB(3.9,25,2,8137,0)="""RTN"",""ECRRPT1"",123,0)"
^XMB(3.9,25,2,8138,0)=" Q"
^XMB(3.9,25,2,8139,0)="""RTN"",""ECRRPT1"",124,0)"
^XMB(3.9,25,2,8140,0)="ECSUM ;Print Category and Procedure Summary (Report) for RPC Call"
^XMB(3.9,25,2,8141,0)="""RTN"",""ECRRPT1"",125,0)"
^XMB(3.9,25,2,8142,0)=" ;     Variables passed in"
^XMB(3.9,25,2,8143,0)="""RTN"",""ECRRPT1"",126,0)"
^XMB(3.9,25,2,8144,0)=" ;       ECL      - Location to report (1)"
^XMB(3.9,25,2,8145,0)="""RTN"",""ECRRPT1"",127,0)"
^XMB(3.9,25,2,8146,0)=" ;       ECD      - DSS Unit to report (1 or ALL), If ECD'=""ALL"" then ECC"
^XMB(3.9,25,2,8147,0)="""RTN"",""ECRRPT1"",128,0)"
^XMB(3.9,25,2,8148,0)=" ;       ECC      - Category (1 or ALL) (optional)"
^XMB(3.9,25,2,8149,0)="""RTN"",""ECRRPT1"",129,0)"
^XMB(3.9,25,2,8150,0)=" ;       ECRTN    - Event Code Screen (Active, Inactive or Both)"
^XMB(3.9,25,2,8151,0)="""RTN"",""ECRRPT1"",130,0)"
^XMB(3.9,25,2,8152,0)=" ;"
^XMB(3.9,25,2,8153,0)="""RTN"",""ECRRPT1"",131,0)"
^XMB(3.9,25,2,8154,0)=" ;     Variable return"
^XMB(3.9,25,2,8155,0)="""RTN"",""ECRRPT1"",132,0)"
^XMB(3.9,25,2,8156,0)=" ;       ^TMP($J,""ECRPT"",n)=report output or to print device."
^XMB(3.9,25,2,8157,0)="""RTN"",""ECRRPT1"",133,0)"
^XMB(3.9,25,2,8158,0)=" N ECV,ECDN,ECCN,ECROU,ECSAVE,ECDESC,ECLN,ECS,ECJLP,ECSN,ECALL,DIC,X,Y"
^XMB(3.9,25,2,8159,0)="""RTN"",""ECRRPT1"",134,0)"
^XMB(3.9,25,2,8160,0)=" N ECSCN"
^XMB(3.9,25,2,8161,0)="""RTN"",""ECRRPT1"",135,0)"
^XMB(3.9,25,2,8162,0)=" S (ECJLP,ECALL)=0,ECV=""ECL^ECD^ECRTN"" D REQCHK^ECRRPT(ECV) I ECERR Q"
^XMB(3.9,25,2,8163,0)="""RTN"",""ECRRPT1"",136,0)"
^XMB(3.9,25,2,8164,0)=" S DIC=4,DIC(0)=""QNMZX"",X=ECL D ^DIC D:Y<0  Q:ECERR  S ECLN=$P(Y,U,2)"
^XMB(3.9,25,2,8165,0)="""RTN"",""ECRRPT1"",137,0)"
^XMB(3.9,25,2,8166,0)=" . S ^TMP(""ECMSG"",$J)=""1^Invalid Location."",ECERR=1"
^XMB(3.9,25,2,8167,0)="""RTN"",""ECRRPT1"",138,0)"
^XMB(3.9,25,2,8168,0)=" S ECSCN=ECRTN D  I ECERR S ^TMP(""ECMSG"",$J)=""1^Invalid DSS Unit."" Q"
^XMB(3.9,25,2,8169,0)="""RTN"",""ECRRPT1"",139,0)"
^XMB(3.9,25,2,8170,0)=" . I ECD=""ALL"" S ECALL=1 Q"
^XMB(3.9,25,2,8171,0)="""RTN"",""ECRRPT1"",140,0)"
^XMB(3.9,25,2,8172,0)=" . K DIC S DIC=724,DIC(0)=""QNMZX"",X=ECD D ^DIC I Y<0 S ECERR=1 Q"
^XMB(3.9,25,2,8173,0)="""RTN"",""ECRRPT1"",141,0)"
^XMB(3.9,25,2,8174,0)=" . S ECDN=$P(Y,U,2)_$S($P($G(^ECD(+ECD,0)),""^"",6):"" **Inactive**"",1:"""")"
^XMB(3.9,25,2,8175,0)="""RTN"",""ECRRPT1"",142,0)"
^XMB(3.9,25,2,8176,0)=" . S ECS=+$P(^ECD(ECD,0),""^"",2),ECJLP=+$P(^(0),""^"",11)"
^XMB(3.9,25,2,8177,0)="""RTN"",""ECRRPT1"",143,0)"
^XMB(3.9,25,2,8178,0)=" . S ECSN=$S($P($G(^DIC(49,ECS,0)),""^"")]"""":$P(^(0),""^""),1:""UNKNOWN"")"
^XMB(3.9,25,2,8179,0)="""RTN"",""ECRRPT1"",144,0)"
^XMB(3.9,25,2,8180,0)=" . I 'ECJLP S ECC=0,ECCN=""None"""
^XMB(3.9,25,2,8181,0)="""RTN"",""ECRRPT1"",145,0)"
^XMB(3.9,25,2,8182,0)=" I ECALL D PXRUN Q"
^XMB(3.9,25,2,8183,0)="""RTN"",""ECRRPT1"",146,0)"
^XMB(3.9,25,2,8184,0)=" S ECV=""ECC"" D REQCHK^ECRRPT(ECV) I ECERR Q"
^XMB(3.9,25,2,8185,0)="""RTN"",""ECRRPT1"",147,0)"
^XMB(3.9,25,2,8186,0)=" D  I ECERR S ^TMP(""ECMSG"",$J)=""1^Invalid Category."" Q"
^XMB(3.9,25,2,8187,0)="""RTN"",""ECRRPT1"",148,0)"
^XMB(3.9,25,2,8188,0)=" . I (ECC=""ALL"")!(ECC=0) Q"
^XMB(3.9,25,2,8189,0)="""RTN"",""ECRRPT1"",149,0)"
^XMB(3.9,25,2,8190,0)=" . K DIC S DIC=726,DIC(0)=""QNMZX"",X=ECC D ^DIC I Y<0 S ECERR=1 Q"
^XMB(3.9,25,2,8191,0)="""RTN"",""ECRRPT1"",150,0)"
^XMB(3.9,25,2,8192,0)=" . S ECCN=$P(Y,U,2)"
^XMB(3.9,25,2,8193,0)="""RTN"",""ECRRPT1"",151,0)"
^XMB(3.9,25,2,8194,0)="PXRUN I ECPTYP=""P"" D  Q"
^XMB(3.9,25,2,8195,0)="""RTN"",""ECRRPT1"",152,0)"
^XMB(3.9,25,2,8196,0)=" . S ECV=""ECL^ECLN^ECALL^ECSCN"",ECROU=""START^ECSUM"""
^XMB(3.9,25,2,8197,0)="""RTN"",""ECRRPT1"",153,0)"
^XMB(3.9,25,2,8198,0)=" . I 'ECALL S ECV=ECV_""^ECD^ECC^ECLN^ECSN^ECDN^ECJLP^ECCN^ECSCN"""
^XMB(3.9,25,2,8199,0)="""RTN"",""ECRRPT1"",154,0)"
^XMB(3.9,25,2,8200,0)=" . S ECDESC=""EC Print Category and Procedure Summary"""
^XMB(3.9,25,2,8201,0)="""RTN"",""ECRRPT1"",155,0)"
^XMB(3.9,25,2,8202,0)=" . D QUEUE^ECRRPT"
^XMB(3.9,25,2,8203,0)="""RTN"",""ECRRPT1"",156,0)"
^XMB(3.9,25,2,8204,0)=" U IO D START^ECSUM"
^XMB(3.9,25,2,8205,0)="""RTN"",""ECRRPT1"",157,0)"
^XMB(3.9,25,2,8206,0)=" Q"
^XMB(3.9,25,2,8207,0)="""RTN"",""ECRRPT1"",158,0)"
^XMB(3.9,25,2,8208,0)="ECNTPCE ;ECS Records Failing Transmission to PCE"
^XMB(3.9,25,2,8209,0)="""RTN"",""ECRRPT1"",159,0)"
^XMB(3.9,25,2,8210,0)=" ;     Variables passed in"
^XMB(3.9,25,2,8211,0)="""RTN"",""ECRRPT1"",160,0)"
^XMB(3.9,25,2,8212,0)=" ;       ECSD   - Start Date or Report"
^XMB(3.9,25,2,8213,0)="""RTN"",""ECRRPT1"",161,0)"
^XMB(3.9,25,2,8214,0)=" ;       ECED   - End Date or Report"
^XMB(3.9,25,2,8215,0)="""RTN"",""ECRRPT1"",162,0)"
^XMB(3.9,25,2,8216,0)=" ;"
^XMB(3.9,25,2,8217,0)="""RTN"",""ECRRPT1"",163,0)"
^XMB(3.9,25,2,8218,0)=" ;     Variable return"
^XMB(3.9,25,2,8219,0)="""RTN"",""ECRRPT1"",164,0)"
^XMB(3.9,25,2,8220,0)=" ;       ^TMP($J,""ECRPT"",n)=report output or to print device."
^XMB(3.9,25,2,8221,0)="""RTN"",""ECRRPT1"",165,0)"
^XMB(3.9,25,2,8222,0)=" N ECV,ECDATE,ECROU,ECDESC"
^XMB(3.9,25,2,8223,0)="""RTN"",""ECRRPT1"",166,0)"
^XMB(3.9,25,2,8224,0)=" S ECV=""ECSD^ECED"" D REQCHK^ECRRPT(ECV) I ECERR Q"
^XMB(3.9,25,2,8225,0)="""RTN"",""ECRRPT1"",167,0)"
^XMB(3.9,25,2,8226,0)=" D DATECHK^ECRRPT(.ECSD,.ECED)"
^XMB(3.9,25,2,8227,0)="""RTN"",""ECRRPT1"",168,0)"
^XMB(3.9,25,2,8228,0)=" S ECSD=ECSD-.0001,ECED=ECED+.9999"
^XMB(3.9,25,2,8229,0)="""RTN"",""ECRRPT1"",169,0)"
^XMB(3.9,25,2,8230,0)=" I ECPTYP=""P"" D  Q"
^XMB(3.9,25,2,8231,0)="""RTN"",""ECRRPT1"",170,0)"
^XMB(3.9,25,2,8232,0)=" . S ECV=""ECSD^ECED^ECDATE"",ECROU=""START^ECNTPCE"""
^XMB(3.9,25,2,8233,0)="""RTN"",""ECRRPT1"",171,0)"
^XMB(3.9,25,2,8234,0)=" . S ECDESC=""ECS Records Failing Transmission to PCE Report"""
^XMB(3.9,25,2,8235,0)="""RTN"",""ECRRPT1"",172,0)"
^XMB(3.9,25,2,8236,0)=" . D QUEUE^ECRRPT"
^XMB(3.9,25,2,8237,0)="""RTN"",""ECRRPT1"",173,0)"
^XMB(3.9,25,2,8238,0)=" D START^ECNTPCE"
^XMB(3.9,25,2,8239,0)="""RTN"",""ECRRPT1"",174,0)"
^XMB(3.9,25,2,8240,0)=" Q"
^XMB(3.9,25,2,8241,0)="""RTN"",""ECRRPT1"",175,0)"
^XMB(3.9,25,2,8242,0)="ECSCPT ;Event Code Screens with CPT Codes"
^XMB(3.9,25,2,8243,0)="""RTN"",""ECRRPT1"",176,0)"
^XMB(3.9,25,2,8244,0)=" ;     Variables passed in"
^XMB(3.9,25,2,8245,0)="""RTN"",""ECRRPT1"",177,0)"
^XMB(3.9,25,2,8246,0)=" ;       ECL      - Location to report (1)"
^XMB(3.9,25,2,8247,0)="""RTN"",""ECRRPT1"",178,0)"
^XMB(3.9,25,2,8248,0)=" ;       ECD      - DSS Unit to report (1 or ALL), If ECD'=""ALL"" then ECC"
^XMB(3.9,25,2,8249,0)="""RTN"",""ECRRPT1"",179,0)"
^XMB(3.9,25,2,8250,0)=" ;       ECC      - Category (1 or ALL) (optional)"
^XMB(3.9,25,2,8251,0)="""RTN"",""ECRRPT1"",180,0)"
^XMB(3.9,25,2,8252,0)=" ;       ECCPT    - CPT Codes to Display (Active, Inactive or Both)"
^XMB(3.9,25,2,8253,0)="""RTN"",""ECRRPT1"",181,0)"
^XMB(3.9,25,2,8254,0)=" ;"
^XMB(3.9,25,2,8255,0)="""RTN"",""ECRRPT1"",182,0)"
^XMB(3.9,25,2,8256,0)=" ;     Variable return"
^XMB(3.9,25,2,8257,0)="""RTN"",""ECRRPT1"",183,0)"
^XMB(3.9,25,2,8258,0)=" ;       ^TMP($J,""ECRPT"",n)=report output or to print device."
^XMB(3.9,25,2,8259,0)="""RTN"",""ECRRPT1"",184,0)"
^XMB(3.9,25,2,8260,0)=" N ECV,ECDN,ECCN,ECROU,ECSAVE,ECDESC,ECLN,ECS,ECJLP,ECALL,DIC,X,Y"
^XMB(3.9,25,2,8261,0)="""RTN"",""ECRRPT1"",185,0)"
^XMB(3.9,25,2,8262,0)=" S (ECJLP,ECALL)=0,ECV=""ECL^ECD^ECCPT"" D REQCHK^ECRRPT(ECV) I ECERR Q"
^XMB(3.9,25,2,8263,0)="""RTN"",""ECRRPT1"",186,0)"
^XMB(3.9,25,2,8264,0)=" S DIC=4,DIC(0)=""QNMZX"",X=ECL D ^DIC D:Y<0  Q:ECERR  S ECLN=$P(Y,U,2)"
^XMB(3.9,25,2,8265,0)="""RTN"",""ECRRPT1"",187,0)"
^XMB(3.9,25,2,8266,0)=" . S ^TMP(""ECMSG"",$J)=""1^Invalid Location."",ECERR=1"
^XMB(3.9,25,2,8267,0)="""RTN"",""ECRRPT1"",188,0)"
^XMB(3.9,25,2,8268,0)=" D  I ECERR S ^TMP(""ECMSG"",$J)=""1^Invalid DSS Unit."" Q"
^XMB(3.9,25,2,8269,0)="""RTN"",""ECRRPT1"",189,0)"
^XMB(3.9,25,2,8270,0)=" . I ECD=""ALL"" S ECALL=1 Q"
^XMB(3.9,25,2,8271,0)="""RTN"",""ECRRPT1"",190,0)"
^XMB(3.9,25,2,8272,0)=" . K DIC S DIC=724,DIC(0)=""QNMZX"",X=ECD D ^DIC I Y<0 S ECERR=1 Q"
^XMB(3.9,25,2,8273,0)="""RTN"",""ECRRPT1"",191,0)"
^XMB(3.9,25,2,8274,0)=" . S ECDN=$P(Y,U,2)_$S($P($G(^ECD(+ECD,0)),""^"",6):"" **Inactive**"",1:"""")"
^XMB(3.9,25,2,8275,0)="""RTN"",""ECRRPT1"",192,0)"
^XMB(3.9,25,2,8276,0)=" . S ECJLP=+$P(^ECD(ECD,0),""^"",11)"
^XMB(3.9,25,2,8277,0)="""RTN"",""ECRRPT1"",193,0)"
^XMB(3.9,25,2,8278,0)=" . I 'ECJLP S ECC=0,ECCN=""None"""
^XMB(3.9,25,2,8279,0)="""RTN"",""ECRRPT1"",194,0)"
^XMB(3.9,25,2,8280,0)=" I ECALL D CPTRUN Q"
^XMB(3.9,25,2,8281,0)="""RTN"",""ECRRPT1"",195,0)"
^XMB(3.9,25,2,8282,0)=" S ECV=""ECC"" D REQCHK^ECRRPT(ECV) I ECERR Q"
^XMB(3.9,25,2,8283,0)="""RTN"",""ECRRPT1"",196,0)"
^XMB(3.9,25,2,8284,0)=" D  I ECERR S ^TMP(""ECMSG"",$J)=""1^Invalid Category."" Q"
^XMB(3.9,25,2,8285,0)="""RTN"",""ECRRPT1"",197,0)"
^XMB(3.9,25,2,8286,0)=" . I (ECC=""ALL"")!(ECC=0) Q"
^XMB(3.9,25,2,8287,0)="""RTN"",""ECRRPT1"",198,0)"
^XMB(3.9,25,2,8288,0)=" . K DIC S DIC=726,DIC(0)=""QNMZX"",X=ECC D ^DIC I Y<0 S ECERR=1 Q"
^XMB(3.9,25,2,8289,0)="""RTN"",""ECRRPT1"",199,0)"
^XMB(3.9,25,2,8290,0)=" . S ECCN=$P(Y,U,2)"
^XMB(3.9,25,2,8291,0)="""RTN"",""ECRRPT1"",200,0)"
^XMB(3.9,25,2,8292,0)="CPTRUN I ECPTYP=""P"" D  Q"
^XMB(3.9,25,2,8293,0)="""RTN"",""ECRRPT1"",201,0)"
^XMB(3.9,25,2,8294,0)=" . S ECV=""ECL^ECLN^ECALL^ECCPT"",ECROU=""START^ECSCPT"""
^XMB(3.9,25,2,8295,0)="""RTN"",""ECRRPT1"",202,0)"
^XMB(3.9,25,2,8296,0)=" . I 'ECALL S ECV=ECV_""^ECD^ECC^ECDN^ECJLP^ECCN"""
^XMB(3.9,25,2,8297,0)="""RTN"",""ECRRPT1"",203,0)"
^XMB(3.9,25,2,8298,0)=" . S ECDESC=""Event Code Screens with CPT Codes"""
^XMB(3.9,25,2,8299,0)="""RTN"",""ECRRPT1"",204,0)"
^XMB(3.9,25,2,8300,0)=" . D QUEUE^ECRRPT"
^XMB(3.9,25,2,8301,0)="""RTN"",""ECRRPT1"",205,0)"
^XMB(3.9,25,2,8302,0)=" U IO D START^ECSCPT"
^XMB(3.9,25,2,8303,0)="""RTN"",""ECRRPT1"",206,0)"
^XMB(3.9,25,2,8304,0)=" Q"
^XMB(3.9,25,2,8305,0)="""RTN"",""ECRRPT1"",207,0)"
^XMB(3.9,25,2,8306,0)="ECINCPT ;National/Local Procedure Codes with Inactive CPT Reports for RPC Call"
^XMB(3.9,25,2,8307,0)="""RTN"",""ECRRPT1"",208,0)"
^XMB(3.9,25,2,8308,0)=" ;     Variables passed in"
^XMB(3.9,25,2,8309,0)="""RTN"",""ECRRPT1"",209,0)"
^XMB(3.9,25,2,8310,0)=" ;       NONE     - No input variables"
^XMB(3.9,25,2,8311,0)="""RTN"",""ECRRPT1"",210,0)"
^XMB(3.9,25,2,8312,0)=" ;"
^XMB(3.9,25,2,8313,0)="""RTN"",""ECRRPT1"",211,0)"
^XMB(3.9,25,2,8314,0)=" ;     Variable return"
^XMB(3.9,25,2,8315,0)="""RTN"",""ECRRPT1"",212,0)"
^XMB(3.9,25,2,8316,0)=" ;       ^TMP($J,""ECRPT"",n)=report output or to print device."
^XMB(3.9,25,2,8317,0)="""RTN"",""ECRRPT1"",213,0)"
^XMB(3.9,25,2,8318,0)=" N ECV,ECL,ECDESC,ECROU,DQTIME,ECPG"
^XMB(3.9,25,2,8319,0)="""RTN"",""ECRRPT1"",214,0)"
^XMB(3.9,25,2,8320,0)=" S ECPG=1"
^XMB(3.9,25,2,8321,0)="""RTN"",""ECRRPT1"",215,0)"
^XMB(3.9,25,2,8322,0)=" I ECPTYP=""P"" D  Q"
^XMB(3.9,25,2,8323,0)="""RTN"",""ECRRPT1"",216,0)"
^XMB(3.9,25,2,8324,0)=" . S ECROU=""START^ECINCPT"",ECV=""ECL"",ECL="""""
^XMB(3.9,25,2,8325,0)="""RTN"",""ECRRPT1"",217,0)"
^XMB(3.9,25,2,8326,0)=" . S ECDESC=""National/Local Procedure Codes with Inactive CPT"""
^XMB(3.9,25,2,8327,0)="""RTN"",""ECRRPT1"",218,0)"
^XMB(3.9,25,2,8328,0)=" . D QUEUE^ECRRPT"
^XMB(3.9,25,2,8329,0)="""RTN"",""ECRRPT1"",219,0)"
^XMB(3.9,25,2,8330,0)=" U IO D START^ECINCPT"
^XMB(3.9,25,2,8331,0)="""RTN"",""ECRRPT1"",220,0)"
^XMB(3.9,25,2,8332,0)=" Q"
^XMB(3.9,25,2,8333,0)="""RTN"",""ECSCPT"")"
^XMB(3.9,25,2,8334,0)="0^1^B10074493"
^XMB(3.9,25,2,8335,0)="""RTN"",""ECSCPT"",1,0)"
^XMB(3.9,25,2,8336,0)="ECSCPT ;ALB/JAM,-Event Code Screen With CPT Codes ;22 Jul 05"
^XMB(3.9,25,2,8337,0)="""RTN"",""ECSCPT"",2,0)"
^XMB(3.9,25,2,8338,0)=" ;;2.0; EVENT CAPTURE ;**72**;8 May 96"
^XMB(3.9,25,2,8339,0)="""RTN"",""ECSCPT"",3,0)"
^XMB(3.9,25,2,8340,0)="LOC K ECL S EC1=0 D ^ECL S:$D(LOC(2)) EC1=1 K LOC I '$D(ECL) S ECOUT=1 G END"
^XMB(3.9,25,2,8341,0)="""RTN"",""ECSCPT"",4,0)"
^XMB(3.9,25,2,8342,0)="UNIT ;set var and sel dss unit"
^XMB(3.9,25,2,8343,0)="""RTN"",""ECSCPT"",5,0)"
^XMB(3.9,25,2,8344,0)=" S ECJLP=0"
^XMB(3.9,25,2,8345,0)="""RTN"",""ECSCPT"",6,0)"
^XMB(3.9,25,2,8346,0)=" S (ECOUT,ECALL)=0,ECPG=1"
^XMB(3.9,25,2,8347,0)="""RTN"",""ECSCPT"",7,0)"
^XMB(3.9,25,2,8348,0)=" W @IOF F Q=0:0 D  Q:%"
^XMB(3.9,25,2,8349,0)="""RTN"",""ECSCPT"",8,0)"
^XMB(3.9,25,2,8350,0)=" .W !!,""Do you want to list all DSS Units for ""_ECLN S %=1 D YN^DICN Q:%"
^XMB(3.9,25,2,8351,0)="""RTN"",""ECSCPT"",9,0)"
^XMB(3.9,25,2,8352,0)=" .W !!?5,""Enter <RET> to list all your DSS Units for this location, or"""
^XMB(3.9,25,2,8353,0)="""RTN"",""ECSCPT"",10,0)"
^XMB(3.9,25,2,8354,0)=" .W !?11,""NO to select a specific DSS Unit"""
^XMB(3.9,25,2,8355,0)="""RTN"",""ECSCPT"",11,0)"
^XMB(3.9,25,2,8356,0)=" G:%<0 END I %=1 S ECALL=1 G ECCPT"
^XMB(3.9,25,2,8357,0)="""RTN"",""ECSCPT"",12,0)"
^XMB(3.9,25,2,8358,0)=" W @IOF,! K DIC S DIC=724,DIC(0)=""QEAMZ"",DIC(""A"")=""Select DSS Unit: """
^XMB(3.9,25,2,8359,0)="""RTN"",""ECSCPT"",13,0)"
^XMB(3.9,25,2,8360,0)=" S:ECL DIC(""S"")=""I $D(^ECJ(""""AP"""",ECL,+Y))"""
^XMB(3.9,25,2,8361,0)="""RTN"",""ECSCPT"",14,0)"
^XMB(3.9,25,2,8362,0)=" D ^DIC K DIC G:Y<0 END S ECD=+Y,ECDN=$P(Y,""^"",2)"
^XMB(3.9,25,2,8363,0)="""RTN"",""ECSCPT"",15,0)"
^XMB(3.9,25,2,8364,0)=" S ECDN=ECDN_$S($P($G(^ECD(+ECD,0)),""^"",6):"" **Inactive**"",1:"""")"
^XMB(3.9,25,2,8365,0)="""RTN"",""ECSCPT"",16,0)"
^XMB(3.9,25,2,8366,0)=" S ECJLP=+$P(^ECD(ECD,0),""^"",11)"
^XMB(3.9,25,2,8367,0)="""RTN"",""ECSCPT"",17,0)"
^XMB(3.9,25,2,8368,0)="SEL ;"
^XMB(3.9,25,2,8369,0)="""RTN"",""ECSCPT"",18,0)"
^XMB(3.9,25,2,8370,0)=" I 'ECJLP S ECC=0,ECCN=""None"" G ECCPT"
^XMB(3.9,25,2,8371,0)="""RTN"",""ECSCPT"",19,0)"
^XMB(3.9,25,2,8372,0)=" W @IOF F Q=0:0 D  Q:%"
^XMB(3.9,25,2,8373,0)="""RTN"",""ECSCPT"",20,0)"
^XMB(3.9,25,2,8374,0)=" .W !!,""Do you want to list all categories for ""_ECDN S %=1 D YN^DICN Q:%"
^XMB(3.9,25,2,8375,0)="""RTN"",""ECSCPT"",21,0)"
^XMB(3.9,25,2,8376,0)=" .W !!,""Enter <RET> if you would like to list all categories for this """
^XMB(3.9,25,2,8377,0)="""RTN"",""ECSCPT"",22,0)"
^XMB(3.9,25,2,8378,0)=" .W ""DSS Unit,"",!,"" or NO to select a specific category"""
^XMB(3.9,25,2,8379,0)="""RTN"",""ECSCPT"",23,0)"
^XMB(3.9,25,2,8380,0)=" G:%<0 END I %=1 S ECC=""ALL"" G ECCPT"
^XMB(3.9,25,2,8381,0)="""RTN"",""ECSCPT"",24,0)"
^XMB(3.9,25,2,8382,0)=" W @IOF,! K DIC S DIC=726,DIC(0)=""QEAMZ"",DIC(""A"")=""Select Category for """
^XMB(3.9,25,2,8383,0)="""RTN"",""ECSCPT"",25,0)"
^XMB(3.9,25,2,8384,0)=" S DIC(""A"")=DIC(""A"")_ECDN_"" DSS Unit:  """
^XMB(3.9,25,2,8385,0)="""RTN"",""ECSCPT"",26,0)"
^XMB(3.9,25,2,8386,0)=" S:ECD DIC(""S"")=""I $D(^ECJ(""""AP"""",ECL,ECD,+Y))"""
^XMB(3.9,25,2,8387,0)="""RTN"",""ECSCPT"",27,0)"
^XMB(3.9,25,2,8388,0)=" D ^DIC K DIC G:Y<0 END S ECC=+Y,ECCN=$P(Y,""^"",2)"
^XMB(3.9,25,2,8389,0)="""RTN"",""ECSCPT"",28,0)"
^XMB(3.9,25,2,8390,0)="ECCPT ;CPT Codes to display"
^XMB(3.9,25,2,8391,0)="""RTN"",""ECSCPT"",29,0)"
^XMB(3.9,25,2,8392,0)=" K DIR"
^XMB(3.9,25,2,8393,0)="""RTN"",""ECSCPT"",30,0)"
^XMB(3.9,25,2,8394,0)=" S DIR(0)=""SO^A:Active CPT Codes;I:Inactive CPT Codes;B:Both"""
^XMB(3.9,25,2,8395,0)="""RTN"",""ECSCPT"",31,0)"
^XMB(3.9,25,2,8396,0)=" S DIR(""B"")=""I"",DIR(""A"")=""CPT Codes to display"""
^XMB(3.9,25,2,8397,0)="""RTN"",""ECSCPT"",32,0)"
^XMB(3.9,25,2,8398,0)=" S DIR(""?"",1)=""Enter an A for Event Code screens with Active CPT Codes,"""
^XMB(3.9,25,2,8399,0)="""RTN"",""ECSCPT"",33,0)"
^XMB(3.9,25,2,8400,0)=" S DIR(""?"",1)=DIR(""?"",1)_"" I for Inactive Codes,"""
^XMB(3.9,25,2,8401,0)="""RTN"",""ECSCPT"",34,0)"
^XMB(3.9,25,2,8402,0)=" S DIR(""?"")=""B for a consolidated report of CPT codes, or ^ to quit."""
^XMB(3.9,25,2,8403,0)="""RTN"",""ECSCPT"",35,0)"
^XMB(3.9,25,2,8404,0)=" S DIR(""??"")=""ECSCPT^"""
^XMB(3.9,25,2,8405,0)="""RTN"",""ECSCPT"",36,0)"
^XMB(3.9,25,2,8406,0)=" D ^DIR K DIR I $D(DIRUT) G END"
^XMB(3.9,25,2,8407,0)="""RTN"",""ECSCPT"",37,0)"
^XMB(3.9,25,2,8408,0)=" S ECCPT=Y"
^XMB(3.9,25,2,8409,0)="""RTN"",""ECSCPT"",38,0)"
^XMB(3.9,25,2,8410,0)="DEV W !! K IOP,POP,IO(""Q""),%ZIS,ZTSK"
^XMB(3.9,25,2,8411,0)="""RTN"",""ECSCPT"",39,0)"
^XMB(3.9,25,2,8412,0)=" S %ZIS=""QM"",%ZIS(""A"")=""Select Device:  "" D ^%ZIS I POP S ECOUT=1 G END"
^XMB(3.9,25,2,8413,0)="""RTN"",""ECSCPT"",40,0)"
^XMB(3.9,25,2,8414,0)=" I $D(IO(""Q"")) K IO(""Q"") D  G END"
^XMB(3.9,25,2,8415,0)="""RTN"",""ECSCPT"",41,0)"
^XMB(3.9,25,2,8416,0)=" .S ZTDESC=""CATEGORY AND PROCEDURE SUMMARY"",ZTRTN=""START^ECSCPT1"",ZTIO=ION"
^XMB(3.9,25,2,8417,0)="""RTN"",""ECSCPT"",42,0)"
^XMB(3.9,25,2,8418,0)=" .D SAVE,^%ZTLOAD,HOME^%ZIS K ZTSK"
^XMB(3.9,25,2,8419,0)="""RTN"",""ECSCPT"",43,0)"
^XMB(3.9,25,2,8420,0)=" U IO"
^XMB(3.9,25,2,8421,0)="""RTN"",""ECSCPT"",44,0)"
^XMB(3.9,25,2,8422,0)="START ;"
^XMB(3.9,25,2,8423,0)="""RTN"",""ECSCPT"",45,0)"
^XMB(3.9,25,2,8424,0)=" S %H=$H D YX^%DTC S ECRDT=Y"
^XMB(3.9,25,2,8425,0)="""RTN"",""ECSCPT"",46,0)"
^XMB(3.9,25,2,8426,0)=" S ECOUT=0,ECPG=1"
^XMB(3.9,25,2,8427,0)="""RTN"",""ECSCPT"",47,0)"
^XMB(3.9,25,2,8428,0)=" D ^ECSCPT1"
^XMB(3.9,25,2,8429,0)="""RTN"",""ECSCPT"",48,0)"
^XMB(3.9,25,2,8430,0)="CLEAR I $E(IOST,1,2)'=""C-"" G END"
^XMB(3.9,25,2,8431,0)="""RTN"",""ECSCPT"",49,0)"
^XMB(3.9,25,2,8432,0)=" G:ECOUT END"
^XMB(3.9,25,2,8433,0)="""RTN"",""ECSCPT"",50,0)"
^XMB(3.9,25,2,8434,0)=" I ECPG W !!!!!,""Press <RET> to continue  "" R X:DTIME I '$T!(X=""^"") S ECOUT=1 G END"
^XMB(3.9,25,2,8435,0)="""RTN"",""ECSCPT"",51,0)"
^XMB(3.9,25,2,8436,0)=" G:ECALL END"
^XMB(3.9,25,2,8437,0)="""RTN"",""ECSCPT"",52,0)"
^XMB(3.9,25,2,8438,0)="ASK ;"
^XMB(3.9,25,2,8439,0)="""RTN"",""ECSCPT"",53,0)"
^XMB(3.9,25,2,8440,0)=" W @IOF F Q=0:0 D  I % Q"
^XMB(3.9,25,2,8441,0)="""RTN"",""ECSCPT"",54,0)"
^XMB(3.9,25,2,8442,0)=" .W !!,""Would you like to list another DSS Unit for this Location"""
^XMB(3.9,25,2,8443,0)="""RTN"",""ECSCPT"",55,0)"
^XMB(3.9,25,2,8444,0)=" .S %=2 D YN^DICN I % Q"
^XMB(3.9,25,2,8445,0)="""RTN"",""ECSCPT"",56,0)"
^XMB(3.9,25,2,8446,0)=" .W !!,""Enter YES to list another DSS Unit or <RET> to continue"""
^XMB(3.9,25,2,8447,0)="""RTN"",""ECSCPT"",57,0)"
^XMB(3.9,25,2,8448,0)=" G:%<0 END I %=1 D  G UNIT"
^XMB(3.9,25,2,8449,0)="""RTN"",""ECSCPT"",58,0)"
^XMB(3.9,25,2,8450,0)=" .K ECD,ECDN,ECC,ECCN,ECP,ECPN,NATN,ECFILE,ECCPT"
^XMB(3.9,25,2,8451,0)="""RTN"",""ECSCPT"",59,0)"
^XMB(3.9,25,2,8452,0)=" K ECD,ECDN,ECC,ECCN,ECP,ECPN,NATN,ECFILE,ECCPT"
^XMB(3.9,25,2,8453,0)="""RTN"",""ECSCPT"",60,0)"
^XMB(3.9,25,2,8454,0)=" I EC1 G LOC"
^XMB(3.9,25,2,8455,0)="""RTN"",""ECSCPT"",61,0)"
^XMB(3.9,25,2,8456,0)="END ;"
^XMB(3.9,25,2,8457,0)="""RTN"",""ECSCPT"",62,0)"
^XMB(3.9,25,2,8458,0)=" D ^ECKILL Q:$D(ECGUI)  W @IOF D ^%ZISC S:$D(ZTQUEUED) ZTREQ=""@"""
^XMB(3.9,25,2,8459,0)="""RTN"",""ECSCPT"",63,0)"
^XMB(3.9,25,2,8460,0)=" Q"
^XMB(3.9,25,2,8461,0)="""RTN"",""ECSCPT"",64,0)"
^XMB(3.9,25,2,8462,0)="SAVE ;"
^XMB(3.9,25,2,8463,0)="""RTN"",""ECSCPT"",65,0)"
^XMB(3.9,25,2,8464,0)=" S (ZTSAVE(""ECALL""),ZTSAVE(""ECJLP""),ZTSAVE(""ECC*""),ZTSAVE(""ECD*""),ZTSAVE(""ECL*""),ZTSAVE(""ECP*""))="""""
^XMB(3.9,25,2,8465,0)="""RTN"",""ECSCPT"",66,0)"
^XMB(3.9,25,2,8466,0)=" Q"
^XMB(3.9,25,2,8467,0)="""RTN"",""ECSCPT1"")"
^XMB(3.9,25,2,8468,0)="0^38^B8958555"
^XMB(3.9,25,2,8469,0)="""RTN"",""ECSCPT1"",1,0)"
^XMB(3.9,25,2,8470,0)="ECSCPT1 ;ALB/JAM-Event Code Screens with CPT Codes;22 Jul 05"
^XMB(3.9,25,2,8471,0)="""RTN"",""ECSCPT1"",2,0)"
^XMB(3.9,25,2,8472,0)=" ;;2.0; EVENT CAPTURE ;**72**;8 May 96"
^XMB(3.9,25,2,8473,0)="""RTN"",""ECSCPT1"",3,0)"
^XMB(3.9,25,2,8474,0)="EN ;entry point"
^XMB(3.9,25,2,8475,0)="""RTN"",""ECSCPT1"",4,0)"
^XMB(3.9,25,2,8476,0)=" N UCNT,ECDO,ECCO,ECNT,ECINDT,ECP0"
^XMB(3.9,25,2,8477,0)="""RTN"",""ECSCPT1"",5,0)"
^XMB(3.9,25,2,8478,0)=" S (ECMORE,ECNT,ECDO,ECCO)=0,ECPG=1,ECCPT=$G(ECCPT,""B"")"
^XMB(3.9,25,2,8479,0)="""RTN"",""ECSCPT1"",6,0)"
^XMB(3.9,25,2,8480,0)=" ;Process all DSS Units"
^XMB(3.9,25,2,8481,0)="""RTN"",""ECSCPT1"",7,0)"
^XMB(3.9,25,2,8482,0)=" I ECALL S ECD=0 D  G END"
^XMB(3.9,25,2,8483,0)="""RTN"",""ECSCPT1"",8,0)"
^XMB(3.9,25,2,8484,0)=" .F  S ECD=$O(^ECJ(""AP"",ECL,ECD)) Q:'ECD  D  Q:ECOUT"
^XMB(3.9,25,2,8485,0)="""RTN"",""ECSCPT1"",9,0)"
^XMB(3.9,25,2,8486,0)=" ..D SET,CATS,PAGE:'ECOUT&UCNT"
^XMB(3.9,25,2,8487,0)="""RTN"",""ECSCPT1"",10,0)"
^XMB(3.9,25,2,8488,0)=" ;Process a specific DSS Unit"
^XMB(3.9,25,2,8489,0)="""RTN"",""ECSCPT1"",11,0)"
^XMB(3.9,25,2,8490,0)=" S UCNT=0 D"
^XMB(3.9,25,2,8491,0)="""RTN"",""ECSCPT1"",12,0)"
^XMB(3.9,25,2,8492,0)=" .I ECC=""ALL"" D CATS Q"
^XMB(3.9,25,2,8493,0)="""RTN"",""ECSCPT1"",13,0)"
^XMB(3.9,25,2,8494,0)=" .I 'ECJLP S ECC=0,ECCN=""None"",ECCO=999"
^XMB(3.9,25,2,8495,0)="""RTN"",""ECSCPT1"",14,0)"
^XMB(3.9,25,2,8496,0)=" .D PROC"
^XMB(3.9,25,2,8497,0)="""RTN"",""ECSCPT1"",15,0)"
^XMB(3.9,25,2,8498,0)="END I 'ECNT W !!!,""Nothing Found."""
^XMB(3.9,25,2,8499,0)="""RTN"",""ECSCPT1"",16,0)"
^XMB(3.9,25,2,8500,0)=" S ECPG=1"
^XMB(3.9,25,2,8501,0)="""RTN"",""ECSCPT1"",17,0)"
^XMB(3.9,25,2,8502,0)=" Q"
^XMB(3.9,25,2,8503,0)="""RTN"",""ECSCPT1"",18,0)"
^XMB(3.9,25,2,8504,0)="SET ;set var"
^XMB(3.9,25,2,8505,0)="""RTN"",""ECSCPT1"",19,0)"
^XMB(3.9,25,2,8506,0)=" S ECDN=$S($P($G(^ECD(+ECD,0)),""^"")]"""":$P(^(0),""^""),1:""UNKNOWN""),UCNT=0"
^XMB(3.9,25,2,8507,0)="""RTN"",""ECSCPT1"",20,0)"
^XMB(3.9,25,2,8508,0)=" S ECDN=ECDN_$S($P($G(^ECD(+ECD,0)),""^"",6):"" **Inactive**"",1:"""")"
^XMB(3.9,25,2,8509,0)="""RTN"",""ECSCPT1"",21,0)"
^XMB(3.9,25,2,8510,0)=" Q"
^XMB(3.9,25,2,8511,0)="""RTN"",""ECSCPT1"",22,0)"
^XMB(3.9,25,2,8512,0)="SETC ;set cats"
^XMB(3.9,25,2,8513,0)="""RTN"",""ECSCPT1"",23,0)"
^XMB(3.9,25,2,8514,0)=" I ECC=0 S ECCN=""None"" Q"
^XMB(3.9,25,2,8515,0)="""RTN"",""ECSCPT1"",24,0)"
^XMB(3.9,25,2,8516,0)=" S ECCN=$S($P($G(^EC(726,+ECC,0)),""^"")]"""":$P(^(0),""^""),1:""ZZ #""_ECC_"" MISSING DATA"")"
^XMB(3.9,25,2,8517,0)="""RTN"",""ECSCPT1"",25,0)"
^XMB(3.9,25,2,8518,0)=" S ECMORE=1"
^XMB(3.9,25,2,8519,0)="""RTN"",""ECSCPT1"",26,0)"
^XMB(3.9,25,2,8520,0)=" Q"
^XMB(3.9,25,2,8521,0)="""RTN"",""ECSCPT1"",27,0)"
^XMB(3.9,25,2,8522,0)="HEADER ;"
^XMB(3.9,25,2,8523,0)="""RTN"",""ECSCPT1"",28,0)"
^XMB(3.9,25,2,8524,0)=" W:$E(IOST,1,2)=""C-""!(ECPG>1) @IOF"
^XMB(3.9,25,2,8525,0)="""RTN"",""ECSCPT1"",29,0)"
^XMB(3.9,25,2,8526,0)=" W !!,?24,""EVENT CODE SCREENS WITH"""
^XMB(3.9,25,2,8527,0)="""RTN"",""ECSCPT1"",30,0)"
^XMB(3.9,25,2,8528,0)=" W $S(ECCPT=""I"":"" INACTIVE"",ECCPT=""A"":"" ACTIVE"",1:"""")_"" CPT CODES"""
^XMB(3.9,25,2,8529,0)="""RTN"",""ECSCPT1"",31,0)"
^XMB(3.9,25,2,8530,0)=" W ?70,""Page: "",ECPG,!?25,""Run Date: "",ECRDT,!?25,""LOCATION:  ""_ECLN"
^XMB(3.9,25,2,8531,0)="""RTN"",""ECSCPT1"",32,0)"
^XMB(3.9,25,2,8532,0)=" W !?25,""DSS UNIT:  ""_ECDN,! S ECPG=ECPG+1"
^XMB(3.9,25,2,8533,0)="""RTN"",""ECSCPT1"",33,0)"
^XMB(3.9,25,2,8534,0)=" F I=1:1:80 W ""-"""
^XMB(3.9,25,2,8535,0)="""RTN"",""ECSCPT1"",34,0)"
^XMB(3.9,25,2,8536,0)=" Q"
^XMB(3.9,25,2,8537,0)="""RTN"",""ECSCPT1"",35,0)"
^XMB(3.9,25,2,8538,0)="CATS ;"
^XMB(3.9,25,2,8539,0)="""RTN"",""ECSCPT1"",36,0)"
^XMB(3.9,25,2,8540,0)=" S ECC="""",ECCO=0"
^XMB(3.9,25,2,8541,0)="""RTN"",""ECSCPT1"",37,0)"
^XMB(3.9,25,2,8542,0)=" F  S ECC=$O(^ECJ(""AP"",ECL,ECD,ECC)) Q:ECC=""""  D SETC,PROC Q:ECOUT"
^XMB(3.9,25,2,8543,0)="""RTN"",""ECSCPT1"",38,0)"
^XMB(3.9,25,2,8544,0)=" S ECMORE=0"
^XMB(3.9,25,2,8545,0)="""RTN"",""ECSCPT1"",39,0)"
^XMB(3.9,25,2,8546,0)=" Q"
^XMB(3.9,25,2,8547,0)="""RTN"",""ECSCPT1"",40,0)"
^XMB(3.9,25,2,8548,0)="PROC ;"
^XMB(3.9,25,2,8549,0)="""RTN"",""ECSCPT1"",41,0)"
^XMB(3.9,25,2,8550,0)=" S ECP="""""
^XMB(3.9,25,2,8551,0)="""RTN"",""ECSCPT1"",42,0)"
^XMB(3.9,25,2,8552,0)=" F  S ECP=$O(^ECJ(""AP"",ECL,ECD,ECC,ECP)) Q:ECP=""""  D SETP Q:ECOUT"
^XMB(3.9,25,2,8553,0)="""RTN"",""ECSCPT1"",43,0)"
^XMB(3.9,25,2,8554,0)=" S ECMORE=0"
^XMB(3.9,25,2,8555,0)="""RTN"",""ECSCPT1"",44,0)"
^XMB(3.9,25,2,8556,0)=" Q"
^XMB(3.9,25,2,8557,0)="""RTN"",""ECSCPT1"",45,0)"
^XMB(3.9,25,2,8558,0)="SETP ;set procs"
^XMB(3.9,25,2,8559,0)="""RTN"",""ECSCPT1"",46,0)"
^XMB(3.9,25,2,8560,0)=" S ECPSY=+$O(^ECJ(""AP"",ECL,ECD,ECC,ECP,"""")),ECPI="""""
^XMB(3.9,25,2,8561,0)="""RTN"",""ECSCPT1"",47,0)"
^XMB(3.9,25,2,8562,0)=" S ECPSYN=$P($G(^ECJ(ECPSY,""PRO"")),""^"",2),ECFILE=$P(ECP,"";"",2)"
^XMB(3.9,25,2,8563,0)="""RTN"",""ECSCPT1"",48,0)"
^XMB(3.9,25,2,8564,0)=" S ECFILE=$S($E(ECFILE)=""I"":81,$E(ECFILE)=""E"":725,1:"""")"
^XMB(3.9,25,2,8565,0)="""RTN"",""ECSCPT1"",49,0)"
^XMB(3.9,25,2,8566,0)=" I ECFILE="""" Q"
^XMB(3.9,25,2,8567,0)="""RTN"",""ECSCPT1"",50,0)"
^XMB(3.9,25,2,8568,0)=" S (ECPN,ECPT,NATN)="""",ECPI=0"
^XMB(3.9,25,2,8569,0)="""RTN"",""ECSCPT1"",51,0)"
^XMB(3.9,25,2,8570,0)=" I ECFILE=81 S ECPI=$$CPT^ICPTCOD(+ECP) I +ECPI>0 D"
^XMB(3.9,25,2,8571,0)="""RTN"",""ECSCPT1"",52,0)"
^XMB(3.9,25,2,8572,0)=" .S ECPN=$P(ECPI,""^"",3),ECPT=$P(ECPI,""^"",2),ECINDT=$P(ECPI,""^"",7)"
^XMB(3.9,25,2,8573,0)="""RTN"",""ECSCPT1"",53,0)"
^XMB(3.9,25,2,8574,0)=" I ECFILE=725 D"
^XMB(3.9,25,2,8575,0)="""RTN"",""ECSCPT1"",54,0)"
^XMB(3.9,25,2,8576,0)=" .S ECP0=$G(^EC(725,+ECP,0)),ECPT="""",ECPN=$P(ECP0,""^"")"
^XMB(3.9,25,2,8577,0)="""RTN"",""ECSCPT1"",55,0)"
^XMB(3.9,25,2,8578,0)=" .S NATN=$P(ECP0,""^"",2)"
^XMB(3.9,25,2,8579,0)="""RTN"",""ECSCPT1"",56,0)"
^XMB(3.9,25,2,8580,0)=" .I $P(ECP0,""^"",5)'="""" S ECPI=$$CPT^ICPTCOD($P(ECP0,""^"",5)) I +ECPI>0 D "
^XMB(3.9,25,2,8581,0)="""RTN"",""ECSCPT1"",57,0)"
^XMB(3.9,25,2,8582,0)=" ..S ECPT=$P(ECPI,""^"",2),ECINDT=$P(ECPI,""^"",7)"
^XMB(3.9,25,2,8583,0)="""RTN"",""ECSCPT1"",58,0)"
^XMB(3.9,25,2,8584,0)=" I +ECPI<1 Q"
^XMB(3.9,25,2,8585,0)="""RTN"",""ECSCPT1"",59,0)"
^XMB(3.9,25,2,8586,0)=" I ECCPT=""A"",'ECINDT Q"
^XMB(3.9,25,2,8587,0)="""RTN"",""ECSCPT1"",60,0)"
^XMB(3.9,25,2,8588,0)=" I ECCPT=""I"",ECINDT Q"
^XMB(3.9,25,2,8589,0)="""RTN"",""ECSCPT1"",61,0)"
^XMB(3.9,25,2,8590,0)=" I ECD'=ECDO D HEADER S ECDO=ECD"
^XMB(3.9,25,2,8591,0)="""RTN"",""ECSCPT1"",62,0)"
^XMB(3.9,25,2,8592,0)=" I ECC'=ECCO D  S ECCO=ECC I ECOUT Q"
^XMB(3.9,25,2,8593,0)="""RTN"",""ECSCPT1"",63,0)"
^XMB(3.9,25,2,8594,0)=" .W !!,""Category:  ""_ECCN D:$Y+4>IOSL CONTD"
^XMB(3.9,25,2,8595,0)="""RTN"",""ECSCPT1"",64,0)"
^XMB(3.9,25,2,8596,0)=" S ECPN=$S(ECPSYN]"""":ECPSYN,1:ECPN),ECNT=ECNT+1,UCNT=UCNT+1"
^XMB(3.9,25,2,8597,0)="""RTN"",""ECSCPT1"",65,0)"
^XMB(3.9,25,2,8598,0)=" W !,""Procedure: "",$E(ECPN,1,30),"" ("",$S(ECFILE=81:""CPT"",1:""EC""),"")"",?48,""Nat'l #: "",NATN,?64,""CPT: "",ECPT"
^XMB(3.9,25,2,8599,0)="""RTN"",""ECSCPT1"",66,0)"
^XMB(3.9,25,2,8600,0)=" I ECCPT=""B"",'ECINDT W ?70,"" *I*"""
^XMB(3.9,25,2,8601,0)="""RTN"",""ECSCPT1"",67,0)"
^XMB(3.9,25,2,8602,0)=" D:($Y+3)>IOSL CONTD I ECOUT Q"
^XMB(3.9,25,2,8603,0)="""RTN"",""ECSCPT1"",68,0)"
^XMB(3.9,25,2,8604,0)=" Q"
^XMB(3.9,25,2,8605,0)="""RTN"",""ECSCPT1"",69,0)"
^XMB(3.9,25,2,8606,0)="CONTD ;Check whether to continue or exit"
^XMB(3.9,25,2,8607,0)="""RTN"",""ECSCPT1"",70,0)"
^XMB(3.9,25,2,8608,0)=" D PAGE I ECOUT Q"
^XMB(3.9,25,2,8609,0)="""RTN"",""ECSCPT1"",71,0)"
^XMB(3.9,25,2,8610,0)=" D HEADER:ECPG,MORE:$D(ECCN)"
^XMB(3.9,25,2,8611,0)="""RTN"",""ECSCPT1"",72,0)"
^XMB(3.9,25,2,8612,0)=" Q"
^XMB(3.9,25,2,8613,0)="""RTN"",""ECSCPT1"",73,0)"
^XMB(3.9,25,2,8614,0)=" ;"
^XMB(3.9,25,2,8615,0)="""RTN"",""ECSCPT1"",74,0)"
^XMB(3.9,25,2,8616,0)="PAGE ;"
^XMB(3.9,25,2,8617,0)="""RTN"",""ECSCPT1"",75,0)"
^XMB(3.9,25,2,8618,0)=" N SS,JJ"
^XMB(3.9,25,2,8619,0)="""RTN"",""ECSCPT1"",76,0)"
^XMB(3.9,25,2,8620,0)=" I $D(ECPG),$E(IOST,1,2)=""C-"" D"
^XMB(3.9,25,2,8621,0)="""RTN"",""ECSCPT1"",77,0)"
^XMB(3.9,25,2,8622,0)=" . S SS=22-$Y F JJ=1:1:SS W !"
^XMB(3.9,25,2,8623,0)="""RTN"",""ECSCPT1"",78,0)"
^XMB(3.9,25,2,8624,0)=" . S DIR(0)=""E"" W ! D ^DIR K DIR I 'Y S ECOUT=1"
^XMB(3.9,25,2,8625,0)="""RTN"",""ECSCPT1"",79,0)"
^XMB(3.9,25,2,8626,0)=" Q"
^XMB(3.9,25,2,8627,0)="""RTN"",""ECSCPT1"",80,0)"
^XMB(3.9,25,2,8628,0)="MORE I ECMORE W !!,""Category:  ""_ECCN"
^XMB(3.9,25,2,8629,0)="""RTN"",""ECSCPT1"",81,0)"
^XMB(3.9,25,2,8630,0)=" Q"
^XMB(3.9,25,2,8631,0)="""RTN"",""ECSCR"")"
^XMB(3.9,25,2,8632,0)="0^44^B7221580^B7355090"
^XMB(3.9,25,2,8633,0)="""RTN"",""ECSCR"",1,0)"
^XMB(3.9,25,2,8634,0)="ECSCR ;BIR/MAM,TTH,JPW-Retrieve Event Capture Location ;1 May 96"
^XMB(3.9,25,2,8635,0)="""RTN"",""ECSCR"",2,0)"
^XMB(3.9,25,2,8636,0)=" ;;2.0; EVENT CAPTURE ;**1,63,72**;8 May 96"
^XMB(3.9,25,2,8637,0)="""RTN"",""ECSCR"",3,0)"
^XMB(3.9,25,2,8638,0)=" S (ECOUT,X,CNT)=0 F I=0:0 S X=$O(^DIC(4,""LOC"",X)) Q:X=""""  S CNT=CNT+1,LOC(CNT)=X S Y=$O(^DIC(4,""LOC"",X,0)),LOC(CNT)=LOC(CNT)_""^""_Y"
^XMB(3.9,25,2,8639,0)="""RTN"",""ECSCR"",4,0)"
^XMB(3.9,25,2,8640,0)=" ;If the LOC array contains only one location, set the LOC1 array."
^XMB(3.9,25,2,8641,0)="""RTN"",""ECSCR"",5,0)"
^XMB(3.9,25,2,8642,0)=" I '$D(LOC(2)) S ECL=$P(LOC(1),""^"",2),ECLOC=1,LOC1(1)=LOC(1) Q"
^XMB(3.9,25,2,8643,0)="""RTN"",""ECSCR"",6,0)"
^XMB(3.9,25,2,8644,0)=" I $D(LOC(2)),$D(ECN),$D(ECY) W @IOF,!!,""Choose Event Capture Location for this event code screen."",! K ECY,ECN D LOC G END"
^XMB(3.9,25,2,8645,0)="""RTN"",""ECSCR"",7,0)"
^XMB(3.9,25,2,8646,0)=" I $D(LOC(2)) D LL I '$D(ECL) Q"
^XMB(3.9,25,2,8647,0)="""RTN"",""ECSCR"",8,0)"
^XMB(3.9,25,2,8648,0)="END ;Exit routine"
^XMB(3.9,25,2,8649,0)="""RTN"",""ECSCR"",9,0)"
^XMB(3.9,25,2,8650,0)=" Q"
^XMB(3.9,25,2,8651,0)="""RTN"",""ECSCR"",10,0)"
^XMB(3.9,25,2,8652,0)="LL ; select location"
^XMB(3.9,25,2,8653,0)="""RTN"",""ECSCR"",11,0)"
^XMB(3.9,25,2,8654,0)=" S ECLOC=0,ECWORD=""create^selectable^select a"""
^XMB(3.9,25,2,8655,0)="""RTN"",""ECSCR"",12,0)"
^XMB(3.9,25,2,8656,0)=" W !!,""Do you want to ""_$P(ECWORD,""^"")_"" this Event Code Screen for ALL locations ? YES//  "" R X:DTIME Q:'$T!(X=""^"")  S:X="""" X=""Y"" S X=$E(X) I ""Yy""[X S ECL=""ALL"" Q"
^XMB(3.9,25,2,8657,0)="""RTN"",""ECSCR"",13,0)"
^XMB(3.9,25,2,8658,0)=" S ECLOC=1 ;Specific location."
^XMB(3.9,25,2,8659,0)="""RTN"",""ECSCR"",14,0)"
^XMB(3.9,25,2,8660,0)=" I ""YyNn""'[X W !!,""Enter <RET> if this procedure will be ""_$P(ECWORD,""^"",2)_"" from all locations,"",!,""or """"NO"""" to ""_$P(ECWORD,""^"",3)_"" location."",!! G LL"
^XMB(3.9,25,2,8661,0)="""RTN"",""ECSCR"",15,0)"
^XMB(3.9,25,2,8662,0)=" W @IOF,!,""Event Capture Locations:  "",!"
^XMB(3.9,25,2,8663,0)="""RTN"",""ECSCR"",16,0)"
^XMB(3.9,25,2,8664,0)="LOC S CNT=0 F I=0:0 S CNT=$O(LOC(CNT)) Q:'CNT  W !,CNT_"". ""_$P(LOC(CNT),""^"")"
^XMB(3.9,25,2,8665,0)="""RTN"",""ECSCR"",17,0)"
^XMB(3.9,25,2,8666,0)="ASK W !!,""Select Location: "" R X:DTIME Q:'$T!(""^""[X)  I '$D(LOC(X)) W !!,""Enter the number corresponding to the location you want to select."",! G ASK"
^XMB(3.9,25,2,8667,0)="""RTN"",""ECSCR"",18,0)"
^XMB(3.9,25,2,8668,0)=" I X="""" Q"
^XMB(3.9,25,2,8669,0)="""RTN"",""ECSCR"",19,0)"
^XMB(3.9,25,2,8670,0)=" I $D(LOC1(X)) W !,""This location has already been selected."" G ASK"
^XMB(3.9,25,2,8671,0)="""RTN"",""ECSCR"",20,0)"
^XMB(3.9,25,2,8672,0)=" W ""  ""_$P(LOC(X),""^"") S NUM=X,LOC1(NUM)=LOC(X) S ECL=""ALL"""
^XMB(3.9,25,2,8673,0)="""RTN"",""ECSCR"",21,0)"
^XMB(3.9,25,2,8674,0)=" G ASK"
^XMB(3.9,25,2,8675,0)="""RTN"",""ECSCR"",22,0)"
^XMB(3.9,25,2,8676,0)=" Q"
^XMB(3.9,25,2,8677,0)="""RTN"",""ECSCR"",23,0)"
^XMB(3.9,25,2,8678,0)="ASK2 ;Display selection to the user."
^XMB(3.9,25,2,8679,0)="""RTN"",""ECSCR"",24,0)"
^XMB(3.9,25,2,8680,0)=" W !,""Event Code Screen Information:"""
^XMB(3.9,25,2,8681,0)="""RTN"",""ECSCR"",25,0)"
^XMB(3.9,25,2,8682,0)=" W !,""----------------------------"",!"
^XMB(3.9,25,2,8683,0)="""RTN"",""ECSCR"",26,0)"
^XMB(3.9,25,2,8684,0)=" W !,""DSS Unit : ""_ECDN,!,""Category : ""_ECCN,!,""Procedure: ""_$$NAM^ECSCR"
^XMB(3.9,25,2,8685,0)="""RTN"",""ECSCR"",27,0)"
^XMB(3.9,25,2,8686,0)=" K Y,DIRUT"
^XMB(3.9,25,2,8687,0)="""RTN"",""ECSCR"",28,0)"
^XMB(3.9,25,2,8688,0)=" W ! S DIR(0)=""Y"",DIR(""B"")=""YES"",DIR(""A"")=""Is this information correct"""
^XMB(3.9,25,2,8689,0)="""RTN"",""ECSCR"",29,0)"
^XMB(3.9,25,2,8690,0)=" D ^DIR Q:$D(DIRUT)  S ECANS=+Y"
^XMB(3.9,25,2,8691,0)="""RTN"",""ECSCR"",30,0)"
^XMB(3.9,25,2,8692,0)=" Q"
^XMB(3.9,25,2,8693,0)="""RTN"",""ECSCR"",31,0)"
^XMB(3.9,25,2,8694,0)="NAM() ;Display procedure name."
^XMB(3.9,25,2,8695,0)="""RTN"",""ECSCR"",32,0)"
^XMB(3.9,25,2,8696,0)=" I ECP'?1.N."";"".E Q ""UNKNOWN"""
^XMB(3.9,25,2,8697,0)="""RTN"",""ECSCR"",33,0)"
^XMB(3.9,25,2,8698,0)=" N ECPF,ECPC"
^XMB(3.9,25,2,8699,0)="""RTN"",""ECSCR"",34,0)"
^XMB(3.9,25,2,8700,0)=" S ECPF=""^""_$P(ECP,"";"",2)"
^XMB(3.9,25,2,8701,0)="""RTN"",""ECSCR"",35,0)"
^XMB(3.9,25,2,8702,0)=" S ECPC=$S($E($P(ECP,"";"",2),1)=""E"":1,1:3)"
^XMB(3.9,25,2,8703,0)="""RTN"",""ECSCR"",36,0)"
^XMB(3.9,25,2,8704,0)=" S ECPN=$S(ECPC=1:$P(@(ECPF_+ECP_"",0)""),U,ECPC),1:$P($$CPT^ICPTCOD(+ECP),U,ECPC))"
^XMB(3.9,25,2,8705,0)="""RTN"",""ECSCR"",37,0)"
^XMB(3.9,25,2,8706,0)=" Q ECPN"
^XMB(3.9,25,2,8707,0)="""RTN"",""ECUERPC"")"
^XMB(3.9,25,2,8708,0)="0^31^B51258174^B50183608"
^XMB(3.9,25,2,8709,0)="""RTN"",""ECUERPC"",1,0)"
^XMB(3.9,25,2,8710,0)="ECUERPC ;ALB/JAM;Event Capture Data Entry Broker Utilities ;Aug 16, 2000"
^XMB(3.9,25,2,8711,0)="""RTN"",""ECUERPC"",2,0)"
^XMB(3.9,25,2,8712,0)=" ;;2.0; EVENT CAPTURE ;**25,32,33,46,47,59,72**;8 May 96"
^XMB(3.9,25,2,8713,0)="""RTN"",""ECUERPC"",3,0)"
^XMB(3.9,25,2,8714,0)=" ;"
^XMB(3.9,25,2,8715,0)="""RTN"",""ECUERPC"",4,0)"
^XMB(3.9,25,2,8716,0)="USRUNT(RESULTS,ECARY) ;"
^XMB(3.9,25,2,8717,0)="""RTN"",""ECUERPC"",5,0)"
^XMB(3.9,25,2,8718,0)=" ;"
^XMB(3.9,25,2,8719,0)="""RTN"",""ECUERPC"",6,0)"
^XMB(3.9,25,2,8720,0)=" ;This broker call returns an array of DSS units for a user & location"
^XMB(3.9,25,2,8721,0)="""RTN"",""ECUERPC"",7,0)"
^XMB(3.9,25,2,8722,0)=" ;        RPC: EC GETUSRDSSUNIT"
^XMB(3.9,25,2,8723,0)="""RTN"",""ECUERPC"",8,0)"
^XMB(3.9,25,2,8724,0)=" ;INPUTS        ECARY  - Contains the following subscripted elements"
^XMB(3.9,25,2,8725,0)="""RTN"",""ECUERPC"",9,0)"
^XMB(3.9,25,2,8726,0)=" ;               1. ECL   - Location IEN (if define gives User's DSS "
^XMB(3.9,25,2,8727,0)="""RTN"",""ECUERPC"",10,0)"
^XMB(3.9,25,2,8728,0)=" ;                          units for a location)"
^XMB(3.9,25,2,8729,0)="""RTN"",""ECUERPC"",11,0)"
^XMB(3.9,25,2,8730,0)=" ;               2. ECDUZ - New Person IEN (if define gives list of "
^XMB(3.9,25,2,8731,0)="""RTN"",""ECUERPC"",12,0)"
^XMB(3.9,25,2,8732,0)=" ;                          DSS Units available to user)"
^XMB(3.9,25,2,8733,0)="""RTN"",""ECUERPC"",13,0)"
^XMB(3.9,25,2,8734,0)=" ;"
^XMB(3.9,25,2,8735,0)="""RTN"",""ECUERPC"",14,0)"
^XMB(3.9,25,2,8736,0)=" ;OUTPUTS        RESULTS - Array of DSS Units. Data pieces as follows:-"
^XMB(3.9,25,2,8737,0)="""RTN"",""ECUERPC"",15,0)"
^XMB(3.9,25,2,8738,0)=" ;               PIECE - Description"
^XMB(3.9,25,2,8739,0)="""RTN"",""ECUERPC"",16,0)"
^XMB(3.9,25,2,8740,0)=" ;                 1     IEN of file 724"
^XMB(3.9,25,2,8741,0)="""RTN"",""ECUERPC"",17,0)"
^XMB(3.9,25,2,8742,0)=" ;                 2     Name of DSS Unit"
^XMB(3.9,25,2,8743,0)="""RTN"",""ECUERPC"",18,0)"
^XMB(3.9,25,2,8744,0)=" ;                 3     Send to PCE Flag"
^XMB(3.9,25,2,8745,0)="""RTN"",""ECUERPC"",19,0)"
^XMB(3.9,25,2,8746,0)=" ;                 4     Data Entry Date/Time Default"
^XMB(3.9,25,2,8747,0)="""RTN"",""ECUERPC"",20,0)"
^XMB(3.9,25,2,8748,0)=" N ECL,ECDUZ,CNT,STR,DPT,IEN"
^XMB(3.9,25,2,8749,0)="""RTN"",""ECUERPC"",21,0)"
^XMB(3.9,25,2,8750,0)=" D SETENV^ECUMRPC"
^XMB(3.9,25,2,8751,0)="""RTN"",""ECUERPC"",22,0)"
^XMB(3.9,25,2,8752,0)=" S ECL=$P(ECARY,U),ECDUZ=$P(ECARY,U,2) I ECL="""",ECDUZ="""" Q"
^XMB(3.9,25,2,8753,0)="""RTN"",""ECUERPC"",23,0)"
^XMB(3.9,25,2,8754,0)=" ;S ECDUZ=$G(DUZ,U),ECL=$P(ECARY,U) I (ECDUZ="""")!(ECL="""") Q"
^XMB(3.9,25,2,8755,0)="""RTN"",""ECUERPC"",24,0)"
^XMB(3.9,25,2,8756,0)=" K ^TMP($J,""ECUSRUNT"") S (DPT,CNT)=0"
^XMB(3.9,25,2,8757,0)="""RTN"",""ECUERPC"",25,0)"
^XMB(3.9,25,2,8758,0)=" I ECL'="""",ECDUZ="""" S ECDUZ=$G(DUZ,U) I ECDUZ="""" Q"
^XMB(3.9,25,2,8759,0)="""RTN"",""ECUERPC"",26,0)"
^XMB(3.9,25,2,8760,0)=" I $D(^XUSEC(""ECALLU"",ECDUZ)) S DPT="""" D"
^XMB(3.9,25,2,8761,0)="""RTN"",""ECUERPC"",27,0)"
^XMB(3.9,25,2,8762,0)=" .I ECL="""" S ^TMP($J,""ECUSRUNT"",CNT+1)=""ALL^ALL"" Q"
^XMB(3.9,25,2,8763,0)="""RTN"",""ECUERPC"",28,0)"
^XMB(3.9,25,2,8764,0)=" .I ECL=""ALL"" S ECL="""""
^XMB(3.9,25,2,8765,0)="""RTN"",""ECUERPC"",29,0)"
^XMB(3.9,25,2,8766,0)=" .F  S DPT=$O(^ECD(""B"",DPT))  Q:DPT=""""  S IEN=0 D"
^XMB(3.9,25,2,8767,0)="""RTN"",""ECUERPC"",30,0)"
^XMB(3.9,25,2,8768,0)=" ..F  S IEN=$O(^ECD(""B"",DPT,IEN)) Q:'IEN  D UNTCHK"
^XMB(3.9,25,2,8769,0)="""RTN"",""ECUERPC"",31,0)"
^XMB(3.9,25,2,8770,0)=" E  D"
^XMB(3.9,25,2,8771,0)="""RTN"",""ECUERPC"",32,0)"
^XMB(3.9,25,2,8772,0)=" .I ECL=""ALL"" S ECL="""""
^XMB(3.9,25,2,8773,0)="""RTN"",""ECUERPC"",33,0)"
^XMB(3.9,25,2,8774,0)=" .F  S DPT=$O(^VA(200,ECDUZ,""EC"",DPT)) Q:'DPT  S IEN=DPT D UNTCHK"
^XMB(3.9,25,2,8775,0)="""RTN"",""ECUERPC"",34,0)"
^XMB(3.9,25,2,8776,0)=" S RESULTS=$NA(^TMP($J,""ECUSRUNT""))"
^XMB(3.9,25,2,8777,0)="""RTN"",""ECUERPC"",35,0)"
^XMB(3.9,25,2,8778,0)=" Q"
^XMB(3.9,25,2,8779,0)="""RTN"",""ECUERPC"",36,0)"
^XMB(3.9,25,2,8780,0)="UNTCHK ;Check if DSS unit exist as event code screen and if active"
^XMB(3.9,25,2,8781,0)="""RTN"",""ECUERPC"",37,0)"
^XMB(3.9,25,2,8782,0)=" N DSSF,DFD"
^XMB(3.9,25,2,8783,0)="""RTN"",""ECUERPC"",38,0)"
^XMB(3.9,25,2,8784,0)=" ;I '$D(^ECJ(""AP"",ECL,IEN))!($P($G(^ECD(IEN,0)),U,6)) Q"
^XMB(3.9,25,2,8785,0)="""RTN"",""ECUERPC"",39,0)"
^XMB(3.9,25,2,8786,0)=" I ECL'="""",'$D(^ECJ(""AP"",ECL,IEN)) Q"
^XMB(3.9,25,2,8787,0)="""RTN"",""ECUERPC"",40,0)"
^XMB(3.9,25,2,8788,0)=" I ($P($G(^ECD(IEN,0)),U,6))!('$P($G(^ECD(IEN,0)),U,8)) Q"
^XMB(3.9,25,2,8789,0)="""RTN"",""ECUERPC"",41,0)"
^XMB(3.9,25,2,8790,0)=" S DSSF=$P(^ECD(IEN,0),""^"",14) S:DSSF="""" DSSF=""N"""
^XMB(3.9,25,2,8791,0)="""RTN"",""ECUERPC"",42,0)"
^XMB(3.9,25,2,8792,0)=" S DFD=$S($P(^ECD(IEN,0),""^"",12)=""N"":""N"",1:""X"") ; added by VMP"
^XMB(3.9,25,2,8793,0)="""RTN"",""ECUERPC"",43,0)"
^XMB(3.9,25,2,8794,0)=" S CNT=CNT+1,STR=IEN_""^""_$P(^ECD(IEN,0),""^"")_U_DSSF_""^""_DFD"
^XMB(3.9,25,2,8795,0)="""RTN"",""ECUERPC"",44,0)"
^XMB(3.9,25,2,8796,0)=" S ^TMP($J,""ECUSRUNT"",CNT)=STR"
^XMB(3.9,25,2,8797,0)="""RTN"",""ECUERPC"",45,0)"
^XMB(3.9,25,2,8798,0)=" Q"
^XMB(3.9,25,2,8799,0)="""RTN"",""ECUERPC"",46,0)"
^XMB(3.9,25,2,8800,0)="CAT(RESULTS,ECARY) ;"
^XMB(3.9,25,2,8801,0)="""RTN"",""ECUERPC"",47,0)"
^XMB(3.9,25,2,8802,0)=" ;"
^XMB(3.9,25,2,8803,0)="""RTN"",""ECUERPC"",48,0)"
^XMB(3.9,25,2,8804,0)=" ;This broker entry point returns an array of categories for an Event "
^XMB(3.9,25,2,8805,0)="""RTN"",""ECUERPC"",49,0)"
^XMB(3.9,25,2,8806,0)=" ;Code screen based on location and DSS unit."
^XMB(3.9,25,2,8807,0)="""RTN"",""ECUERPC"",50,0)"
^XMB(3.9,25,2,8808,0)=" ;        RPC: EC GETECSCATS"
^XMB(3.9,25,2,8809,0)="""RTN"",""ECUERPC"",51,0)"
^XMB(3.9,25,2,8810,0)=" ;INPUTS        ECARY  - Contains the following values separated by ""^"""
^XMB(3.9,25,2,8811,0)="""RTN"",""ECUERPC"",52,0)"
^XMB(3.9,25,2,8812,0)=" ;               ECL  - Location IEN"
^XMB(3.9,25,2,8813,0)="""RTN"",""ECUERPC"",53,0)"
^XMB(3.9,25,2,8814,0)=" ;               ECD  - DSS Unit IEN"
^XMB(3.9,25,2,8815,0)="""RTN"",""ECUERPC"",54,0)"
^XMB(3.9,25,2,8816,0)=" ;               ECCSTA-Active or inactive category"
^XMB(3.9,25,2,8817,0)="""RTN"",""ECUERPC"",55,0)"
^XMB(3.9,25,2,8818,0)=" ;                      A-ctive (default), I-nactive, B-oth"
^XMB(3.9,25,2,8819,0)="""RTN"",""ECUERPC"",56,0)"
^XMB(3.9,25,2,8820,0)=" ;"
^XMB(3.9,25,2,8821,0)="""RTN"",""ECUERPC"",57,0)"
^XMB(3.9,25,2,8822,0)=" ;OUTPUTS        RESULTS - Array of categories. Data pieces as follows:-"
^XMB(3.9,25,2,8823,0)="""RTN"",""ECUERPC"",58,0)"
^XMB(3.9,25,2,8824,0)=" ;               PIECE - Description"
^XMB(3.9,25,2,8825,0)="""RTN"",""ECUERPC"",59,0)"
^XMB(3.9,25,2,8826,0)=" ;                 1  - Category IEN"
^XMB(3.9,25,2,8827,0)="""RTN"",""ECUERPC"",60,0)"
^XMB(3.9,25,2,8828,0)=" ;                 2  - Category description"
^XMB(3.9,25,2,8829,0)="""RTN"",""ECUERPC"",61,0)"
^XMB(3.9,25,2,8830,0)=" ;"
^XMB(3.9,25,2,8831,0)="""RTN"",""ECUERPC"",62,0)"
^XMB(3.9,25,2,8832,0)=" N ECL,ECD,ECC,CNT,DATA,ECCSTA"
^XMB(3.9,25,2,8833,0)="""RTN"",""ECUERPC"",63,0)"
^XMB(3.9,25,2,8834,0)=" D SETENV^ECUMRPC"
^XMB(3.9,25,2,8835,0)="""RTN"",""ECUERPC"",64,0)"
^XMB(3.9,25,2,8836,0)=" S ECL=$P(ECARY,U),ECD=$P(ECARY,U,2) I (ECL="""")!(ECD="""") Q"
^XMB(3.9,25,2,8837,0)="""RTN"",""ECUERPC"",65,0)"
^XMB(3.9,25,2,8838,0)=" S ECCSTA=$P(ECARY,U,3)"
^XMB(3.9,25,2,8839,0)="""RTN"",""ECUERPC"",66,0)"
^XMB(3.9,25,2,8840,0)=" K ^TMP($J,""ECSCATS"")"
^XMB(3.9,25,2,8841,0)="""RTN"",""ECUERPC"",67,0)"
^XMB(3.9,25,2,8842,0)=" D CATS^ECHECK1"
^XMB(3.9,25,2,8843,0)="""RTN"",""ECUERPC"",68,0)"
^XMB(3.9,25,2,8844,0)=" M ^TMP($J,""ECSCATS"")=ECC"
^XMB(3.9,25,2,8845,0)="""RTN"",""ECUERPC"",69,0)"
^XMB(3.9,25,2,8846,0)=" S RESULTS=$NA(^TMP($J,""ECSCATS""))"
^XMB(3.9,25,2,8847,0)="""RTN"",""ECUERPC"",70,0)"
^XMB(3.9,25,2,8848,0)=" Q"
^XMB(3.9,25,2,8849,0)="""RTN"",""ECUERPC"",71,0)"
^XMB(3.9,25,2,8850,0)="PROC(RESULTS,ECARY) ;"
^XMB(3.9,25,2,8851,0)="""RTN"",""ECUERPC"",72,0)"
^XMB(3.9,25,2,8852,0)=" ;"
^XMB(3.9,25,2,8853,0)="""RTN"",""ECUERPC"",73,0)"
^XMB(3.9,25,2,8854,0)=" ;This broker entry point returns an array of procedures for an Event "
^XMB(3.9,25,2,8855,0)="""RTN"",""ECUERPC"",74,0)"
^XMB(3.9,25,2,8856,0)=" ;Code screen (file #720.3) based on location, DSS unit, and Category"
^XMB(3.9,25,2,8857,0)="""RTN"",""ECUERPC"",75,0)"
^XMB(3.9,25,2,8858,0)=" ;        RPC: EC GETECSPROCS"
^XMB(3.9,25,2,8859,0)="""RTN"",""ECUERPC"",76,0)"
^XMB(3.9,25,2,8860,0)=" ;INPUTS        ECARY  - Contains the following values separated by ""^"""
^XMB(3.9,25,2,8861,0)="""RTN"",""ECUERPC"",77,0)"
^XMB(3.9,25,2,8862,0)=" ;               ECL  - Location IEN"
^XMB(3.9,25,2,8863,0)="""RTN"",""ECUERPC"",78,0)"
^XMB(3.9,25,2,8864,0)=" ;               ECD  - DSS Unit IEN"
^XMB(3.9,25,2,8865,0)="""RTN"",""ECUERPC"",79,0)"
^XMB(3.9,25,2,8866,0)=" ;               ECC  - Category IEN"
^XMB(3.9,25,2,8867,0)="""RTN"",""ECUERPC"",80,0)"
^XMB(3.9,25,2,8868,0)=" ;               ECDT - Procedure Date"
^XMB(3.9,25,2,8869,0)="""RTN"",""ECUERPC"",81,0)"
^XMB(3.9,25,2,8870,0)=" ;"
^XMB(3.9,25,2,8871,0)="""RTN"",""ECUERPC"",82,0)"
^XMB(3.9,25,2,8872,0)=" ;OUTPUTS        RESULTS - Array of procedures. Data pieces as follows:-"
^XMB(3.9,25,2,8873,0)="""RTN"",""ECUERPC"",83,0)"
^XMB(3.9,25,2,8874,0)=" ;               PIECE - Description"
^XMB(3.9,25,2,8875,0)="""RTN"",""ECUERPC"",84,0)"
^XMB(3.9,25,2,8876,0)=" ;                 1  - EC National Number SPACE Procedure Name SPACE"
^XMB(3.9,25,2,8877,0)="""RTN"",""ECUERPC"",85,0)"
^XMB(3.9,25,2,8878,0)=" ;                   - [Synonym]"
^XMB(3.9,25,2,8879,0)="""RTN"",""ECUERPC"",86,0)"
^XMB(3.9,25,2,8880,0)=" ;                 2  - Procedure Code"
^XMB(3.9,25,2,8881,0)="""RTN"",""ECUERPC"",87,0)"
^XMB(3.9,25,2,8882,0)=" ;                 3  - CPT Code"
^XMB(3.9,25,2,8883,0)="""RTN"",""ECUERPC"",88,0)"
^XMB(3.9,25,2,8884,0)=" ;                 4  - Default volume (1 if no default volume)"
^XMB(3.9,25,2,8885,0)="""RTN"",""ECUERPC"",89,0)"
^XMB(3.9,25,2,8886,0)=" ;                 5  - Event code screen IEN"
^XMB(3.9,25,2,8887,0)="""RTN"",""ECUERPC"",90,0)"
^XMB(3.9,25,2,8888,0)=" ;"
^XMB(3.9,25,2,8889,0)="""RTN"",""ECUERPC"",91,0)"
^XMB(3.9,25,2,8890,0)=" N ECL,ECD,ECC,CNT,DATA,STR,ECCPT,PX"
^XMB(3.9,25,2,8891,0)="""RTN"",""ECUERPC"",92,0)"
^XMB(3.9,25,2,8892,0)=" D SETENV^ECUMRPC"
^XMB(3.9,25,2,8893,0)="""RTN"",""ECUERPC"",93,0)"
^XMB(3.9,25,2,8894,0)=" S ECL=$P(ECARY,U),ECD=$P(ECARY,U,2),ECC=$P(ECARY,U,3) S:ECC="""" ECC=0"
^XMB(3.9,25,2,8895,0)="""RTN"",""ECUERPC"",94,0)"
^XMB(3.9,25,2,8896,0)=" I (ECL="""")!(ECD="""") Q"
^XMB(3.9,25,2,8897,0)="""RTN"",""ECUERPC"",95,0)"
^XMB(3.9,25,2,8898,0)=" S ECDT=$P(ECARY,U,4)"
^XMB(3.9,25,2,8899,0)="""RTN"",""ECUERPC"",96,0)"
^XMB(3.9,25,2,8900,0)=" K ^TMP($J,""ECPRO"")"
^XMB(3.9,25,2,8901,0)="""RTN"",""ECUERPC"",97,0)"
^XMB(3.9,25,2,8902,0)=" D PROS^ECHECK1"
^XMB(3.9,25,2,8903,0)="""RTN"",""ECUERPC"",98,0)"
^XMB(3.9,25,2,8904,0)=" S CNT=0 F  S CNT=$O(^TMP(""ECPRO"",$J,CNT)) Q:'CNT  D"
^XMB(3.9,25,2,8905,0)="""RTN"",""ECUERPC"",99,0)"
^XMB(3.9,25,2,8906,0)=" .S DATA=^TMP(""ECPRO"",$J,CNT),PX=$P(DATA,U)"
^XMB(3.9,25,2,8907,0)="""RTN"",""ECUERPC"",100,0)"
^XMB(3.9,25,2,8908,0)=" .S ECCPT=$S(PX[""EC"":$P($G(^EC(725,+PX,0)),""^"",5),1:+PX)"
^XMB(3.9,25,2,8909,0)="""RTN"",""ECUERPC"",101,0)"
^XMB(3.9,25,2,8910,0)=" .S STR=$P(DATA,U,5)_"" ""_$P(DATA,U,4)_"" [""_$P(DATA,U,3)_""]""_U_PX"
^XMB(3.9,25,2,8911,0)="""RTN"",""ECUERPC"",102,0)"
^XMB(3.9,25,2,8912,0)=" .S STR=STR_U_ECCPT_U_$S($P(DATA,U,6):+$P(DATA,U,6),1:1)_U_$P(DATA,U,2)"
^XMB(3.9,25,2,8913,0)="""RTN"",""ECUERPC"",103,0)"
^XMB(3.9,25,2,8914,0)=" .S ^TMP($J,""ECPRO"",CNT)=STR"
^XMB(3.9,25,2,8915,0)="""RTN"",""ECUERPC"",104,0)"
^XMB(3.9,25,2,8916,0)=" S RESULTS=$NA(^TMP($J,""ECPRO""))"
^XMB(3.9,25,2,8917,0)="""RTN"",""ECUERPC"",105,0)"
^XMB(3.9,25,2,8918,0)=" K ^TMP(""ECPRO"",$J)"
^XMB(3.9,25,2,8919,0)="""RTN"",""ECUERPC"",106,0)"
^XMB(3.9,25,2,8920,0)=" Q"
^XMB(3.9,25,2,8921,0)="""RTN"",""ECUERPC"",107,0)"
^XMB(3.9,25,2,8922,0)="ECPXMOD(RESULTS,ECARY) ;"
^XMB(3.9,25,2,8923,0)="""RTN"",""ECUERPC"",108,0)"
^XMB(3.9,25,2,8924,0)=" ;"
^XMB(3.9,25,2,8925,0)="""RTN"",""ECUERPC"",109,0)"
^XMB(3.9,25,2,8926,0)=" ;Broker call returns modifier entries for a CPT Procedure"
^XMB(3.9,25,2,8927,0)="""RTN"",""ECUERPC"",110,0)"
^XMB(3.9,25,2,8928,0)=" ;        RPC: EC GETPXMODIFIER"
^XMB(3.9,25,2,8929,0)="""RTN"",""ECUERPC"",111,0)"
^XMB(3.9,25,2,8930,0)=" ;INPUTS   ECARY  - Contains the following values separated by ""^"""
^XMB(3.9,25,2,8931,0)="""RTN"",""ECUERPC"",112,0)"
^XMB(3.9,25,2,8932,0)=" ;          ECCPT - CPT code ien (file #81)"
^XMB(3.9,25,2,8933,0)="""RTN"",""ECUERPC"",113,0)"
^XMB(3.9,25,2,8934,0)=" ;          ECDT  - Procedure date and time (fileman format)"
^XMB(3.9,25,2,8935,0)="""RTN"",""ECUERPC"",114,0)"
^XMB(3.9,25,2,8936,0)=" ;"
^XMB(3.9,25,2,8937,0)="""RTN"",""ECUERPC"",115,0)"
^XMB(3.9,25,2,8938,0)=" ;OUTPUTS  RESULTS - Array of procedure modifiers"
^XMB(3.9,25,2,8939,0)="""RTN"",""ECUERPC"",116,0)"
^XMB(3.9,25,2,8940,0)=" ;          2-character modifier^modifer name^modifier ien #81.3"
^XMB(3.9,25,2,8941,0)="""RTN"",""ECUERPC"",117,0)"
^XMB(3.9,25,2,8942,0)=" ;"
^XMB(3.9,25,2,8943,0)="""RTN"",""ECUERPC"",118,0)"
^XMB(3.9,25,2,8944,0)=" N CNT,SUB,ECCPT,ECDT,DATA,ECMOD"
^XMB(3.9,25,2,8945,0)="""RTN"",""ECUERPC"",119,0)"
^XMB(3.9,25,2,8946,0)=" D SETENV^ECUMRPC"
^XMB(3.9,25,2,8947,0)="""RTN"",""ECUERPC"",120,0)"
^XMB(3.9,25,2,8948,0)=" S ECCPT=$P(ECARY,U),ECDT=$P(ECARY,U,2) I ECDT="""" D NOW^%DTC S ECDT=%"
^XMB(3.9,25,2,8949,0)="""RTN"",""ECUERPC"",121,0)"
^XMB(3.9,25,2,8950,0)=" I ECCPT="""" Q"
^XMB(3.9,25,2,8951,0)="""RTN"",""ECUERPC"",122,0)"
^XMB(3.9,25,2,8952,0)=" K ^TMP($J,""ECPXMODS"") S (SUB,CNT)=0"
^XMB(3.9,25,2,8953,0)="""RTN"",""ECUERPC"",123,0)"
^XMB(3.9,25,2,8954,0)=" S DATA=$$CODM^ICPTCOD(ECCPT,""ECMOD"","""",ECDT) I +DATA<0 Q"
^XMB(3.9,25,2,8955,0)="""RTN"",""ECUERPC"",124,0)"
^XMB(3.9,25,2,8956,0)=" F  S SUB=$O(ECMOD(SUB)) Q:SUB=""""  D"
^XMB(3.9,25,2,8957,0)="""RTN"",""ECUERPC"",125,0)"
^XMB(3.9,25,2,8958,0)=" . S CNT=CNT+1,^TMP($J,""ECPXMODS"",CNT)=SUB_U_ECMOD(SUB)"
^XMB(3.9,25,2,8959,0)="""RTN"",""ECUERPC"",126,0)"
^XMB(3.9,25,2,8960,0)=" S RESULTS=$NA(^TMP($J,""ECPXMODS""))"
^XMB(3.9,25,2,8961,0)="""RTN"",""ECUERPC"",127,0)"
^XMB(3.9,25,2,8962,0)=" Q"
^XMB(3.9,25,2,8963,0)="""RTN"",""ECUERPC"",128,0)"
^XMB(3.9,25,2,8964,0)="PRVDER(RESULTS,ECARY) ;"
^XMB(3.9,25,2,8965,0)="""RTN"",""ECUERPC"",129,0)"
^XMB(3.9,25,2,8966,0)=" ;remove this rpc before release;JAM 6/4/01"
^XMB(3.9,25,2,8967,0)="""RTN"",""ECUERPC"",130,0)"
^XMB(3.9,25,2,8968,0)=" ;This broker entry point returns an array of valid providers"
^XMB(3.9,25,2,8969,0)="""RTN"",""ECUERPC"",131,0)"
^XMB(3.9,25,2,8970,0)=" ;        RPC: EC GETPROVIDER"
^XMB(3.9,25,2,8971,0)="""RTN"",""ECUERPC"",132,0)"
^XMB(3.9,25,2,8972,0)=" ;INPUTS        ECARY  - Contains the following subscripted elements"
^XMB(3.9,25,2,8973,0)="""RTN"",""ECUERPC"",133,0)"
^XMB(3.9,25,2,8974,0)=" ;               ECDT  - Procedure date"
^XMB(3.9,25,2,8975,0)="""RTN"",""ECUERPC"",134,0)"
^XMB(3.9,25,2,8976,0)=" ;"
^XMB(3.9,25,2,8977,0)="""RTN"",""ECUERPC"",135,0)"
^XMB(3.9,25,2,8978,0)=" ;OUTPUTS        RESULTS - Array of providers. Data pieces as follows:-"
^XMB(3.9,25,2,8979,0)="""RTN"",""ECUERPC"",136,0)"
^XMB(3.9,25,2,8980,0)=" ;               PIECE - Description"
^XMB(3.9,25,2,8981,0)="""RTN"",""ECUERPC"",137,0)"
^XMB(3.9,25,2,8982,0)=" ;                IEN of file 200^Provider Name^occupation^specialty^"
^XMB(3.9,25,2,8983,0)="""RTN"",""ECUERPC"",138,0)"
^XMB(3.9,25,2,8984,0)=" ;                subspecialty"
^XMB(3.9,25,2,8985,0)="""RTN"",""ECUERPC"",139,0)"
^XMB(3.9,25,2,8986,0)=" ;"
^XMB(3.9,25,2,8987,0)="""RTN"",""ECUERPC"",140,0)"
^XMB(3.9,25,2,8988,0)=" N IEN,CNT,ECUTN,KEY,USR"
^XMB(3.9,25,2,8989,0)="""RTN"",""ECUERPC"",141,0)"
^XMB(3.9,25,2,8990,0)=" D SETENV^ECUMRPC"
^XMB(3.9,25,2,8991,0)="""RTN"",""ECUERPC"",142,0)"
^XMB(3.9,25,2,8992,0)=" S ECDT=$P($G(ECARY),U),ECDT=$S(ECDT="""":DT,1:ECDT)"
^XMB(3.9,25,2,8993,0)="""RTN"",""ECUERPC"",143,0)"
^XMB(3.9,25,2,8994,0)=" K ^TMP($J,""ECPRVDRS"") S CNT=0"
^XMB(3.9,25,2,8995,0)="""RTN"",""ECUERPC"",144,0)"
^XMB(3.9,25,2,8996,0)=" F KEY=""PROVIDER"" S IEN=0 D"
^XMB(3.9,25,2,8997,0)="""RTN"",""ECUERPC"",145,0)"
^XMB(3.9,25,2,8998,0)=" .F  S IEN=$O(^XUSEC(KEY,IEN)) Q:'IEN  S USR=$G(^VA(200,IEN,0)) D:USR'="""""
^XMB(3.9,25,2,8999,0)="""RTN"",""ECUERPC"",146,0)"
^XMB(3.9,25,2,9000,0)=" ..S ECUTN=$$GET^XUA4A72(IEN,ECDT) I +ECUTN'>0 Q"
^XMB(3.9,25,2,9001,0)="""RTN"",""ECUERPC"",147,0)"
^XMB(3.9,25,2,9002,0)=" ..S CNT=CNT+1,^TMP($J,""ECPRVDRS"",CNT)=IEN_U_$P(USR,U)_U_$P(ECUTN,2,4)"
^XMB(3.9,25,2,9003,0)="""RTN"",""ECUERPC"",148,0)"
^XMB(3.9,25,2,9004,0)=" S RESULTS=$NA(^TMP($J,""ECPRVDRS""))"
^XMB(3.9,25,2,9005,0)="""RTN"",""ECUERPC"",149,0)"
^XMB(3.9,25,2,9006,0)=" Q"
^XMB(3.9,25,2,9007,0)="""RTN"",""ECUERPC"",150,0)"
^XMB(3.9,25,2,9008,0)=" ;"
^XMB(3.9,25,2,9009,0)="""RTN"",""ECUERPC"",151,0)"
^XMB(3.9,25,2,9010,0)="ELIG(RESULTS,ECARY) ;"
^XMB(3.9,25,2,9011,0)="""RTN"",""ECUERPC"",152,0)"
^XMB(3.9,25,2,9012,0)=" ;"
^XMB(3.9,25,2,9013,0)="""RTN"",""ECUERPC"",153,0)"
^XMB(3.9,25,2,9014,0)=" ;Broker call returns a list of patient eligibilities"
^XMB(3.9,25,2,9015,0)="""RTN"",""ECUERPC"",154,0)"
^XMB(3.9,25,2,9016,0)=" ;        RPC: EC GETPATELIG"
^XMB(3.9,25,2,9017,0)="""RTN"",""ECUERPC"",155,0)"
^XMB(3.9,25,2,9018,0)=" ;INPUTS   ECARY  - Contains the following subscripted elements"
^XMB(3.9,25,2,9019,0)="""RTN"",""ECUERPC"",156,0)"
^XMB(3.9,25,2,9020,0)=" ;          DFN - Patient ien (file #2)"
^XMB(3.9,25,2,9021,0)="""RTN"",""ECUERPC"",157,0)"
^XMB(3.9,25,2,9022,0)=" ;"
^XMB(3.9,25,2,9023,0)="""RTN"",""ECUERPC"",158,0)"
^XMB(3.9,25,2,9024,0)=" ;OUTPUTS  RESULTS - Array of eligibilities"
^XMB(3.9,25,2,9025,0)="""RTN"",""ECUERPC"",159,0)"
^XMB(3.9,25,2,9026,0)=" ;          primary/secondary elig flag^elig ien^elig description"
^XMB(3.9,25,2,9027,0)="""RTN"",""ECUERPC"",160,0)"
^XMB(3.9,25,2,9028,0)=" ;"
^XMB(3.9,25,2,9029,0)="""RTN"",""ECUERPC"",161,0)"
^XMB(3.9,25,2,9030,0)=" N CNT,SUB,DFN,VAEL"
^XMB(3.9,25,2,9031,0)="""RTN"",""ECUERPC"",162,0)"
^XMB(3.9,25,2,9032,0)=" D SETENV^ECUMRPC"
^XMB(3.9,25,2,9033,0)="""RTN"",""ECUERPC"",163,0)"
^XMB(3.9,25,2,9034,0)=" S DFN=$P(ECARY,U) I DFN="""" Q"
^XMB(3.9,25,2,9035,0)="""RTN"",""ECUERPC"",164,0)"
^XMB(3.9,25,2,9036,0)=" K ^TMP($J,""ECPATELIG"")"
^XMB(3.9,25,2,9037,0)="""RTN"",""ECUERPC"",165,0)"
^XMB(3.9,25,2,9038,0)=" D ELIG^VADPT I $G(VAEL(1))="""" Q"
^XMB(3.9,25,2,9039,0)="""RTN"",""ECUERPC"",166,0)"
^XMB(3.9,25,2,9040,0)=" S ^TMP($J,""ECPATELIG"",1)=""1^""_VAEL(1),SUB=0,CNT=1"
^XMB(3.9,25,2,9041,0)="""RTN"",""ECUERPC"",167,0)"
^XMB(3.9,25,2,9042,0)=" F  S SUB=$O(VAEL(1,SUB)) Q:SUB=""""  D"
^XMB(3.9,25,2,9043,0)="""RTN"",""ECUERPC"",168,0)"
^XMB(3.9,25,2,9044,0)=" . S CNT=CNT+1,^TMP($J,""ECPATELIG"",CNT)=""0^""_VAEL(1,SUB)"
^XMB(3.9,25,2,9045,0)="""RTN"",""ECUERPC"",169,0)"
^XMB(3.9,25,2,9046,0)=" S RESULTS=$NA(^TMP($J,""ECPATELIG""))"
^XMB(3.9,25,2,9047,0)="""RTN"",""ECUERPC"",170,0)"
^XMB(3.9,25,2,9048,0)=" Q"
^XMB(3.9,25,2,9049,0)="""RTN"",""ECUERPC"",171,0)"
^XMB(3.9,25,2,9050,0)="PRDEFS(RESULTS,ECARY) ;"
^XMB(3.9,25,2,9051,0)="""RTN"",""ECUERPC"",172,0)"
^XMB(3.9,25,2,9052,0)=" ;"
^XMB(3.9,25,2,9053,0)="""RTN"",""ECUERPC"",173,0)"
^XMB(3.9,25,2,9054,0)=" ;This broker entry point returns the defaults for procedure data entry"
^XMB(3.9,25,2,9055,0)="""RTN"",""ECUERPC"",174,0)"
^XMB(3.9,25,2,9056,0)=" ;        RPC: EC GETPRODEFS"
^XMB(3.9,25,2,9057,0)="""RTN"",""ECUERPC"",175,0)"
^XMB(3.9,25,2,9058,0)=" ;INPUTS        ECARY  - Contains the following values separated by ""^"""
^XMB(3.9,25,2,9059,0)="""RTN"",""ECUERPC"",176,0)"
^XMB(3.9,25,2,9060,0)=" ;               ECL  - Location IEN"
^XMB(3.9,25,2,9061,0)="""RTN"",""ECUERPC"",177,0)"
^XMB(3.9,25,2,9062,0)=" ;               ECD  - DSS Unit IEN"
^XMB(3.9,25,2,9063,0)="""RTN"",""ECUERPC"",178,0)"
^XMB(3.9,25,2,9064,0)=" ;               ECC  - Category IEN"
^XMB(3.9,25,2,9065,0)="""RTN"",""ECUERPC"",179,0)"
^XMB(3.9,25,2,9066,0)=" ;"
^XMB(3.9,25,2,9067,0)="""RTN"",""ECUERPC"",180,0)"
^XMB(3.9,25,2,9068,0)=" ;OUTPUTS        RESULTS - Data pieces as follows:-"
^XMB(3.9,25,2,9069,0)="""RTN"",""ECUERPC"",181,0)"
^XMB(3.9,25,2,9070,0)=" ;               PIECE - Description"
^XMB(3.9,25,2,9071,0)="""RTN"",""ECUERPC"",182,0)"
^XMB(3.9,25,2,9072,0)=" ;                 1  - Associated Clinic IEN"
^XMB(3.9,25,2,9073,0)="""RTN"",""ECUERPC"",183,0)"
^XMB(3.9,25,2,9074,0)=" ;                 2  - Associated Clinic"
^XMB(3.9,25,2,9075,0)="""RTN"",""ECUERPC"",184,0)"
^XMB(3.9,25,2,9076,0)=" ;                 3  - Medical Specialty IEN"
^XMB(3.9,25,2,9077,0)="""RTN"",""ECUERPC"",185,0)"
^XMB(3.9,25,2,9078,0)=" ;                 4  - Medical Specialty"
^XMB(3.9,25,2,9079,0)="""RTN"",""ECUERPC"",186,0)"
^XMB(3.9,25,2,9080,0)=" ;"
^XMB(3.9,25,2,9081,0)="""RTN"",""ECUERPC"",187,0)"
^XMB(3.9,25,2,9082,0)=" N ECL,ECD,ECC,ECP,IEN,ASC,ASCNM,MEDSP,MEDSPNM,ECCH"
^XMB(3.9,25,2,9083,0)="""RTN"",""ECUERPC"",188,0)"
^XMB(3.9,25,2,9084,0)=" D SETENV^ECUMRPC"
^XMB(3.9,25,2,9085,0)="""RTN"",""ECUERPC"",189,0)"
^XMB(3.9,25,2,9086,0)=" S ECL=$P(ECARY,U),ECD=$P(ECARY,U,2),ECC=$P(ECARY,U,3),ECP=$P(ECARY,U,4)"
^XMB(3.9,25,2,9087,0)="""RTN"",""ECUERPC"",190,0)"
^XMB(3.9,25,2,9088,0)=" S:ECC="""" ECC=0 I (ECL="""")!(ECD="""") Q"
^XMB(3.9,25,2,9089,0)="""RTN"",""ECUERPC"",191,0)"
^XMB(3.9,25,2,9090,0)=" S (ASCNM,MEDSPNM)="""",ECCH=ECL_""-""_ECD_""-""_ECC_""-""_ECP"
^XMB(3.9,25,2,9091,0)="""RTN"",""ECUERPC"",192,0)"
^XMB(3.9,25,2,9092,0)=" I '$D(^ECJ(""B"",ECCH)) Q"
^XMB(3.9,25,2,9093,0)="""RTN"",""ECUERPC"",193,0)"
^XMB(3.9,25,2,9094,0)=" S IEN=$O(^ECJ(""B"",ECCH,0)) I IEN="""" Q"
^XMB(3.9,25,2,9095,0)="""RTN"",""ECUERPC"",194,0)"
^XMB(3.9,25,2,9096,0)=" S ASC=$P($G(^ECJ(IEN,""PRO"")),U,4) I ASC D"
^XMB(3.9,25,2,9097,0)="""RTN"",""ECUERPC"",195,0)"
^XMB(3.9,25,2,9098,0)=" .S ASCNM=$$GET1^DIQ(44,ASC,.01,""I"")"
^XMB(3.9,25,2,9099,0)="""RTN"",""ECUERPC"",196,0)"
^XMB(3.9,25,2,9100,0)=" S MEDSP=$P($G(^ECD(ECD,0)),U,3) I MEDSP D "
^XMB(3.9,25,2,9101,0)="""RTN"",""ECUERPC"",197,0)"
^XMB(3.9,25,2,9102,0)=" .S MEDSPNM=$$GET1^DIQ(723,MEDSP,.01,""I"")"
^XMB(3.9,25,2,9103,0)="""RTN"",""ECUERPC"",198,0)"
^XMB(3.9,25,2,9104,0)=" S RESULTS=ASC_U_ASCNM_U_MEDSP_U_MEDSPNM"
^XMB(3.9,25,2,9105,0)="""RTN"",""ECUERPC"",199,0)"
^XMB(3.9,25,2,9106,0)=" Q"
^XMB(3.9,25,2,9107,0)="""RTN"",""ECUERPC"",200,0)"
^XMB(3.9,25,2,9108,0)="PATPROC(RESULTS,ECARY) ;"
^XMB(3.9,25,2,9109,0)="""RTN"",""ECUERPC"",201,0)"
^XMB(3.9,25,2,9110,0)=" ;"
^XMB(3.9,25,2,9111,0)="""RTN"",""ECUERPC"",202,0)"
^XMB(3.9,25,2,9112,0)=" ;Broker call returns the entries from EVENT CAPTURE PATIENT FILE #721"
^XMB(3.9,25,2,9113,0)="""RTN"",""ECUERPC"",203,0)"
^XMB(3.9,25,2,9114,0)=" ;        RPC: EC GETPATPROCS"
^XMB(3.9,25,2,9115,0)="""RTN"",""ECUERPC"",204,0)"
^XMB(3.9,25,2,9116,0)=" ;INPUTS   ECARY - Contains the following values separated by ""^"""
^XMB(3.9,25,2,9117,0)="""RTN"",""ECUERPC"",205,0)"
^XMB(3.9,25,2,9118,0)=" ;          ECLOC - Location ien"
^XMB(3.9,25,2,9119,0)="""RTN"",""ECUERPC"",206,0)"
^XMB(3.9,25,2,9120,0)=" ;          ECPAT - Patient DFN ien"
^XMB(3.9,25,2,9121,0)="""RTN"",""ECUERPC"",207,0)"
^XMB(3.9,25,2,9122,0)=" ;          ECUNT - DSS unit ien"
^XMB(3.9,25,2,9123,0)="""RTN"",""ECUERPC"",208,0)"
^XMB(3.9,25,2,9124,0)=" ;          ECSD  - Start Date"
^XMB(3.9,25,2,9125,0)="""RTN"",""ECUERPC"",209,0)"
^XMB(3.9,25,2,9126,0)=" ;          ECED  - End Date"
^XMB(3.9,25,2,9127,0)="""RTN"",""ECUERPC"",210,0)"
^XMB(3.9,25,2,9128,0)=" ;"
^XMB(3.9,25,2,9129,0)="""RTN"",""ECUERPC"",211,0)"
^XMB(3.9,25,2,9130,0)=" ;OUTPUTS  RESULTS - Array of Event Capture Patient entries contain"
^XMB(3.9,25,2,9131,0)="""RTN"",""ECUERPC"",212,0)"
^XMB(3.9,25,2,9132,0)=" ;          721 IEN^Procedure date and time^Category^Procedure^Volume^"
^XMB(3.9,25,2,9133,0)="""RTN"",""ECUERPC"",213,0)"
^XMB(3.9,25,2,9134,0)=" ;          Provider^ordering section^associated clinic^primary diagnoses"
^XMB(3.9,25,2,9135,0)="""RTN"",""ECUERPC"",214,0)"
^XMB(3.9,25,2,9136,0)=" ;          ^Provider IEN"
^XMB(3.9,25,2,9137,0)="""RTN"",""ECUERPC"",215,0)"
^XMB(3.9,25,2,9138,0)=" ;"
^XMB(3.9,25,2,9139,0)="""RTN"",""ECUERPC"",216,0)"
^XMB(3.9,25,2,9140,0)=" N IEN,CNT,ECV,ECLOC,ECUNT,ECPAT,PX,NODE,DATA,PDT,PDX,PND,PDXD,CAT,ECI"
^XMB(3.9,25,2,9141,0)="""RTN"",""ECUERPC"",217,0)"
^XMB(3.9,25,2,9142,0)=" N ORS,PRV,PRO,PROV,ECU"
^XMB(3.9,25,2,9143,0)="""RTN"",""ECUERPC"",218,0)"
^XMB(3.9,25,2,9144,0)=" D SETENV^ECUMRPC"
^XMB(3.9,25,2,9145,0)="""RTN"",""ECUERPC"",219,0)"
^XMB(3.9,25,2,9146,0)=" S ECV=""ECLOC^ECPAT^ECUNT^ECSD^ECED"""
^XMB(3.9,25,2,9147,0)="""RTN"",""ECUERPC"",220,0)"
^XMB(3.9,25,2,9148,0)=" D PARSE(ECV,ECARY) I (ECLOC="""")!(ECPAT="""")!(ECUNT="""") Q"
^XMB(3.9,25,2,9149,0)="""RTN"",""ECUERPC"",221,0)"
^XMB(3.9,25,2,9150,0)=" K ^TMP($J,""ECPATPX"")"
^XMB(3.9,25,2,9151,0)="""RTN"",""ECUERPC"",222,0)"
^XMB(3.9,25,2,9152,0)=" S ECSD=$G(ECSD,DT),ECED=$G(ECED,DT)"
^XMB(3.9,25,2,9153,0)="""RTN"",""ECUERPC"",223,0)"
^XMB(3.9,25,2,9154,0)=" S %DT=""X"" F ECI=""ECSD"",""ECED"" S X=@ECI D ^%DT S @ECI=Y"
^XMB(3.9,25,2,9155,0)="""RTN"",""ECUERPC"",224,0)"
^XMB(3.9,25,2,9156,0)=" K X,Y"
^XMB(3.9,25,2,9157,0)="""RTN"",""ECUERPC"",225,0)"
^XMB(3.9,25,2,9158,0)=" S ECSD=$S(ECSD=-1:DT,1:ECSD)-.0001,ECED=$S(ECED=-1:DT,1:ECED)+.9999"
^XMB(3.9,25,2,9159,0)="""RTN"",""ECUERPC"",226,0)"
^XMB(3.9,25,2,9160,0)=" Q:ECED'>ECSD  S PDT=ECSD,CNT=0"
^XMB(3.9,25,2,9161,0)="""RTN"",""ECUERPC"",227,0)"
^XMB(3.9,25,2,9162,0)=" F  S PDT=$O(^ECH(""ADT"",ECLOC,ECPAT,ECUNT,PDT)) Q:'PDT!(PDT>ECED)  D"
^XMB(3.9,25,2,9163,0)="""RTN"",""ECUERPC"",228,0)"
^XMB(3.9,25,2,9164,0)=" . S IEN=0 F  S IEN=$O(^ECH(""ADT"",ECLOC,ECPAT,ECUNT,PDT,IEN)) Q:'IEN  D"
^XMB(3.9,25,2,9165,0)="""RTN"",""ECUERPC"",229,0)"
^XMB(3.9,25,2,9166,0)=" . . S NODE=$G(^ECH(IEN,0)),PND=$G(^ECH(IEN,""P"")),PX=$P(NODE,U,9)"
^XMB(3.9,25,2,9167,0)="""RTN"",""ECUERPC"",230,0)"
^XMB(3.9,25,2,9168,0)=" . . Q:NODE=""""  S (PRV,CAT,ORS,ASC,PDXD)="""",PDX=$P(PND,U,2)"
^XMB(3.9,25,2,9169,0)="""RTN"",""ECUERPC"",231,0)"
^XMB(3.9,25,2,9170,0)=" . . I PX[""EC"" D"
^XMB(3.9,25,2,9171,0)="""RTN"",""ECUERPC"",232,0)"
^XMB(3.9,25,2,9172,0)=" . . . S PRO=$G(^EC(725,$P(PX,"";""),0)),PX=$P(PRO,U,2)_"" ""_$P(PRO,U)"
^XMB(3.9,25,2,9173,0)="""RTN"",""ECUERPC"",233,0)"
^XMB(3.9,25,2,9174,0)=" . . E  S PRO=$$CPT^ICPTCOD($P(PX,"";""),PDT) S PX=$P(PRO,U,2)_"" ""_$P(PRO,U,3)"
^XMB(3.9,25,2,9175,0)="""RTN"",""ECUERPC"",234,0)"
^XMB(3.9,25,2,9176,0)=" . . S:$P(NODE,U,8) CAT=$$GET1^DIQ(726,$P(NODE,U,8),.01,""I"")"
^XMB(3.9,25,2,9177,0)="""RTN"",""ECUERPC"",235,0)"
^XMB(3.9,25,2,9178,0)=" . . K PROV S ECU=$$GETPPRV^ECPRVMUT(IEN,.PROV),PRV=$S(ECU:""UNKNOWN"",1:$P(PROV,""^"",2)),ECU=$S('ECU:+PROV,1:"""")"
^XMB(3.9,25,2,9179,0)="""RTN"",""ECUERPC"",236,0)"
^XMB(3.9,25,2,9180,0)=" . . S:$P(NODE,U,12) ORS=$$GET1^DIQ(723,$P(NODE,U,12),.01,""I"")"
^XMB(3.9,25,2,9181,0)="""RTN"",""ECUERPC"",237,0)"
^XMB(3.9,25,2,9182,0)=" . . S:$P(NODE,U,19) ASC=$$GET1^DIQ(44,$P(NODE,U,19),.01,""I"")"
^XMB(3.9,25,2,9183,0)="""RTN"",""ECUERPC"",238,0)"
^XMB(3.9,25,2,9184,0)=" . . S:PDX PDXD=$$ICDDX^ICDCODE(PDX,PDT),PDXD=$P(PDXD,U,2)_"" ""_$P(PDXD,U,4)"
^XMB(3.9,25,2,9185,0)="""RTN"",""ECUERPC"",239,0)"
^XMB(3.9,25,2,9186,0)=" . . S DATA=$P(NODE,U)_U_$$FMTE^XLFDT($P(NODE,U,3),""2F"")_U_CAT_U_PX"
^XMB(3.9,25,2,9187,0)="""RTN"",""ECUERPC"",240,0)"
^XMB(3.9,25,2,9188,0)=" . . S DATA=DATA_U_$P(NODE,U,10)_U_PRV_U_ORS_U_ASC_U_PDXD_U_ECU"
^XMB(3.9,25,2,9189,0)="""RTN"",""ECUERPC"",241,0)"
^XMB(3.9,25,2,9190,0)=" . . S CNT=CNT+1,^TMP($J,""ECPATPX"",CNT)=DATA"
^XMB(3.9,25,2,9191,0)="""RTN"",""ECUERPC"",242,0)"
^XMB(3.9,25,2,9192,0)=" S RESULTS=$NA(^TMP($J,""ECPATPX""))"
^XMB(3.9,25,2,9193,0)="""RTN"",""ECUERPC"",243,0)"
^XMB(3.9,25,2,9194,0)=" Q"
^XMB(3.9,25,2,9195,0)="""RTN"",""ECUERPC"",244,0)"
^XMB(3.9,25,2,9196,0)="PARSE(ECV,ECARY) ;Parse Variable"
^XMB(3.9,25,2,9197,0)="""RTN"",""ECUERPC"",245,0)"
^XMB(3.9,25,2,9198,0)=" N I"
^XMB(3.9,25,2,9199,0)="""RTN"",""ECUERPC"",246,0)"
^XMB(3.9,25,2,9200,0)=" F I=1:1:$L(ECARY,U) S @$P(ECV,U,I)=$P(ECARY,U,I)"
^XMB(3.9,25,2,9201,0)="""RTN"",""ECUERPC"",247,0)"
^XMB(3.9,25,2,9202,0)=" Q"
^XMB(3.9,25,2,9203,0)="""RTN"",""ECUERPC1"")"
^XMB(3.9,25,2,9204,0)="0^32^B52615700^B53629201"
^XMB(3.9,25,2,9205,0)="""RTN"",""ECUERPC1"",1,0)"
^XMB(3.9,25,2,9206,0)="ECUERPC1 ;ALB/JAM;Event Capture Data Entry Broker Util ; 5/21/01 7:30pm"
^XMB(3.9,25,2,9207,0)="""RTN"",""ECUERPC1"",2,0)"
^XMB(3.9,25,2,9208,0)=" ;;2.0; EVENT CAPTURE ;**25,33,42,46,47,54,72**;8 May 96"
^XMB(3.9,25,2,9209,0)="""RTN"",""ECUERPC1"",3,0)"
^XMB(3.9,25,2,9210,0)="PATINF(RESULTS,ECARY) ;"
^XMB(3.9,25,2,9211,0)="""RTN"",""ECUERPC1"",4,0)"
^XMB(3.9,25,2,9212,0)=" ;Broker entry point to get various types of data from EVENT CAPTURE "
^XMB(3.9,25,2,9213,0)="""RTN"",""ECUERPC1"",5,0)"
^XMB(3.9,25,2,9214,0)=" ;PATIENT FILE #721"
^XMB(3.9,25,2,9215,0)="""RTN"",""ECUERPC1"",6,0)"
^XMB(3.9,25,2,9216,0)=" ;        RPC: EC GETPATINFO"
^XMB(3.9,25,2,9217,0)="""RTN"",""ECUERPC1"",7,0)"
^XMB(3.9,25,2,9218,0)=" ;INPUTS   ECARY  - Contains the following subscripted elements"
^XMB(3.9,25,2,9219,0)="""RTN"",""ECUERPC1"",8,0)"
^XMB(3.9,25,2,9220,0)=" ;          ECIEN - Event Capture Patient ien"
^XMB(3.9,25,2,9221,0)="""RTN"",""ECUERPC1"",9,0)"
^XMB(3.9,25,2,9222,0)=" ;          ECTYP - Data type to return"
^XMB(3.9,25,2,9223,0)="""RTN"",""ECUERPC1"",10,0)"
^XMB(3.9,25,2,9224,0)=" ;"
^XMB(3.9,25,2,9225,0)="""RTN"",""ECUERPC1"",11,0)"
^XMB(3.9,25,2,9226,0)=" ;OUTPUTS  RESULTS - Array of Event Capture Patient data"
^XMB(3.9,25,2,9227,0)="""RTN"",""ECUERPC1"",12,0)"
^XMB(3.9,25,2,9228,0)=" ;"
^XMB(3.9,25,2,9229,0)="""RTN"",""ECUERPC1"",13,0)"
^XMB(3.9,25,2,9230,0)=" N ECTYP,ECIEN"
^XMB(3.9,25,2,9231,0)="""RTN"",""ECUERPC1"",14,0)"
^XMB(3.9,25,2,9232,0)=" S ECARY=$G(ECARY),ECIEN=$P(ECARY,U),ECTYP=$P(ECARY,U,2) I ECIEN="""" Q"
^XMB(3.9,25,2,9233,0)="""RTN"",""ECUERPC1"",15,0)"
^XMB(3.9,25,2,9234,0)=" I '$D(^ECH(ECIEN)) Q"
^XMB(3.9,25,2,9235,0)="""RTN"",""ECUERPC1"",16,0)"
^XMB(3.9,25,2,9236,0)=" D SETENV^ECUMRPC"
^XMB(3.9,25,2,9237,0)="""RTN"",""ECUERPC1"",17,0)"
^XMB(3.9,25,2,9238,0)=" I ECTYP=""DXS"" D PATDXS(ECIEN) Q"
^XMB(3.9,25,2,9239,0)="""RTN"",""ECUERPC1"",18,0)"
^XMB(3.9,25,2,9240,0)=" I ECTYP=""MOD"" D PATMOD(ECIEN) Q"
^XMB(3.9,25,2,9241,0)="""RTN"",""ECUERPC1"",19,0)"
^XMB(3.9,25,2,9242,0)=" I ECTYP=""CLASS"" D PATCLASS(ECIEN) Q"
^XMB(3.9,25,2,9243,0)="""RTN"",""ECUERPC1"",20,0)"
^XMB(3.9,25,2,9244,0)=" I ECTYP=""OTH"" D PATOTH(ECIEN) Q"
^XMB(3.9,25,2,9245,0)="""RTN"",""ECUERPC1"",21,0)"
^XMB(3.9,25,2,9246,0)=" I ECTYP=""PRV"" D PATPRV^ECUERPC2(ECIEN) Q"
^XMB(3.9,25,2,9247,0)="""RTN"",""ECUERPC1"",22,0)"
^XMB(3.9,25,2,9248,0)=" Q"
^XMB(3.9,25,2,9249,0)="""RTN"",""ECUERPC1"",23,0)"
^XMB(3.9,25,2,9250,0)="PATDXS(ECIEN) ;"
^XMB(3.9,25,2,9251,0)="""RTN"",""ECUERPC1"",24,0)"
^XMB(3.9,25,2,9252,0)=" ;Returns to broker a patient secondary DXs entries from EVENT "
^XMB(3.9,25,2,9253,0)="""RTN"",""ECUERPC1"",25,0)"
^XMB(3.9,25,2,9254,0)=" ;CAPTURE PATIENT FILE #721"
^XMB(3.9,25,2,9255,0)="""RTN"",""ECUERPC1"",26,0)"
^XMB(3.9,25,2,9256,0)=" ;INPUTS   ECIEN - Event Capture Patient ien"
^XMB(3.9,25,2,9257,0)="""RTN"",""ECUERPC1"",27,0)"
^XMB(3.9,25,2,9258,0)=" ;"
^XMB(3.9,25,2,9259,0)="""RTN"",""ECUERPC1"",28,0)"
^XMB(3.9,25,2,9260,0)=" ;OUTPUTS  RESULTS - Array of Event Capture Patient file contains"
^XMB(3.9,25,2,9261,0)="""RTN"",""ECUERPC1"",29,0)"
^XMB(3.9,25,2,9262,0)=" ;          721 IEN^secondary dx ien #80^secondary dx code^dx description"
^XMB(3.9,25,2,9263,0)="""RTN"",""ECUERPC1"",30,0)"
^XMB(3.9,25,2,9264,0)=" ;"
^XMB(3.9,25,2,9265,0)="""RTN"",""ECUERPC1"",31,0)"
^XMB(3.9,25,2,9266,0)=" N DXS,DXSIEN,DXSD,CNT"
^XMB(3.9,25,2,9267,0)="""RTN"",""ECUERPC1"",32,0)"
^XMB(3.9,25,2,9268,0)=" I '$D(^ECH(ECIEN,""DX"")) Q"
^XMB(3.9,25,2,9269,0)="""RTN"",""ECUERPC1"",33,0)"
^XMB(3.9,25,2,9270,0)=" K ^TMP($J,""ECDXS"")"
^XMB(3.9,25,2,9271,0)="""RTN"",""ECUERPC1"",34,0)"
^XMB(3.9,25,2,9272,0)=" S (CNT,DXS)=0 F  S DXS=$O(^ECH(ECIEN,""DX"",DXS)) Q:'DXS  D"
^XMB(3.9,25,2,9273,0)="""RTN"",""ECUERPC1"",35,0)"
^XMB(3.9,25,2,9274,0)=" . S DXSIEN=$G(^ECH(ECIEN,""DX"",DXS,0)) I DXSIEN="""" Q"
^XMB(3.9,25,2,9275,0)="""RTN"",""ECUERPC1"",36,0)"
^XMB(3.9,25,2,9276,0)=" . S DXSD=$$ICDDX^ICDCODE(DXSIEN,$P($G(^ECH(ECIEN,0)),U,3))"
^XMB(3.9,25,2,9277,0)="""RTN"",""ECUERPC1"",37,0)"
^XMB(3.9,25,2,9278,0)=" . S DXSD=$P(DXSD,U,2)_""   ""_$P(DXSD,U,4)"
^XMB(3.9,25,2,9279,0)="""RTN"",""ECUERPC1"",38,0)"
^XMB(3.9,25,2,9280,0)=" . S CNT=CNT+1,^TMP($J,""ECDXS"",CNT)=ECIEN_U_DXSIEN_U_DXSD"
^XMB(3.9,25,2,9281,0)="""RTN"",""ECUERPC1"",39,0)"
^XMB(3.9,25,2,9282,0)=" S RESULTS=$NA(^TMP($J,""ECDXS""))"
^XMB(3.9,25,2,9283,0)="""RTN"",""ECUERPC1"",40,0)"
^XMB(3.9,25,2,9284,0)=" Q"
^XMB(3.9,25,2,9285,0)="""RTN"",""ECUERPC1"",41,0)"
^XMB(3.9,25,2,9286,0)="PATMOD(ECIEN) ;"
^XMB(3.9,25,2,9287,0)="""RTN"",""ECUERPC1"",42,0)"
^XMB(3.9,25,2,9288,0)=" ;Returns to broker a patient procedure modifier from EVENT CAPTURE"
^XMB(3.9,25,2,9289,0)="""RTN"",""ECUERPC1"",43,0)"
^XMB(3.9,25,2,9290,0)=" ;PATIENT FILE #721"
^XMB(3.9,25,2,9291,0)="""RTN"",""ECUERPC1"",44,0)"
^XMB(3.9,25,2,9292,0)=" ;INPUTS   ECIEN - Event Capture Patient ien"
^XMB(3.9,25,2,9293,0)="""RTN"",""ECUERPC1"",45,0)"
^XMB(3.9,25,2,9294,0)=" ;"
^XMB(3.9,25,2,9295,0)="""RTN"",""ECUERPC1"",46,0)"
^XMB(3.9,25,2,9296,0)=" ;OUTPUTS  RESULTS - Array of procedure modifiers"
^XMB(3.9,25,2,9297,0)="""RTN"",""ECUERPC1"",47,0)"
^XMB(3.9,25,2,9298,0)=" ;          721 IEN^modifier ien #81.3^modifier^modifier name"
^XMB(3.9,25,2,9299,0)="""RTN"",""ECUERPC1"",48,0)"
^XMB(3.9,25,2,9300,0)=" ;"
^XMB(3.9,25,2,9301,0)="""RTN"",""ECUERPC1"",49,0)"
^XMB(3.9,25,2,9302,0)=" N MOD,MODIEN,CNT,MODS"
^XMB(3.9,25,2,9303,0)="""RTN"",""ECUERPC1"",50,0)"
^XMB(3.9,25,2,9304,0)=" I '$D(^ECH(ECIEN,""MOD"")) Q"
^XMB(3.9,25,2,9305,0)="""RTN"",""ECUERPC1"",51,0)"
^XMB(3.9,25,2,9306,0)=" K ^TMP($J,""ECMOD"")"
^XMB(3.9,25,2,9307,0)="""RTN"",""ECUERPC1"",52,0)"
^XMB(3.9,25,2,9308,0)=" S (CNT,MOD)=0 F  S MOD=$O(^ECH(ECIEN,""MOD"",MOD)) Q:'MOD  D"
^XMB(3.9,25,2,9309,0)="""RTN"",""ECUERPC1"",53,0)"
^XMB(3.9,25,2,9310,0)=" . S MODIEN=$G(^ECH(ECIEN,""MOD"",MOD,0)) I MODIEN="""" Q"
^XMB(3.9,25,2,9311,0)="""RTN"",""ECUERPC1"",54,0)"
^XMB(3.9,25,2,9312,0)=" . S MODS=$$MOD^ICPTMOD(MODIEN,""I"",$P($G(^ECH(ECIEN,0)),U,3)) I +MODS<0 Q"
^XMB(3.9,25,2,9313,0)="""RTN"",""ECUERPC1"",55,0)"
^XMB(3.9,25,2,9314,0)=" . S CNT=CNT+1"
^XMB(3.9,25,2,9315,0)="""RTN"",""ECUERPC1"",56,0)"
^XMB(3.9,25,2,9316,0)=" . S ^TMP($J,""ECMOD"",CNT)=ECIEN_U_$P(MODS,U,1,2)_""  ""_$P(MODS,U,3)"
^XMB(3.9,25,2,9317,0)="""RTN"",""ECUERPC1"",57,0)"
^XMB(3.9,25,2,9318,0)=" S RESULTS=$NA(^TMP($J,""ECMOD""))"
^XMB(3.9,25,2,9319,0)="""RTN"",""ECUERPC1"",58,0)"
^XMB(3.9,25,2,9320,0)=" Q"
^XMB(3.9,25,2,9321,0)="""RTN"",""ECUERPC1"",59,0)"
^XMB(3.9,25,2,9322,0)="PATCLASS(ECIEN) ;"
^XMB(3.9,25,2,9323,0)="""RTN"",""ECUERPC1"",60,0)"
^XMB(3.9,25,2,9324,0)=" ;Returns to broker a patient classification & eligibility data from "
^XMB(3.9,25,2,9325,0)="""RTN"",""ECUERPC1"",61,0)"
^XMB(3.9,25,2,9326,0)=" ;EVENT CAPTURE PATIENT FILE #721"
^XMB(3.9,25,2,9327,0)="""RTN"",""ECUERPC1"",62,0)"
^XMB(3.9,25,2,9328,0)=" ; INPUTS   ECIEN - Event Capture Patient ien"
^XMB(3.9,25,2,9329,0)="""RTN"",""ECUERPC1"",63,0)"
^XMB(3.9,25,2,9330,0)=" ; OUTPUTS  RESULTS - Array of procedure modifiers"
^XMB(3.9,25,2,9331,0)="""RTN"",""ECUERPC1"",64,0)"
^XMB(3.9,25,2,9332,0)=" ;  721 IEN^agent orange^radiation exposure^service connect^environmental"
^XMB(3.9,25,2,9333,0)="""RTN"",""ECUERPC1"",65,0)"
^XMB(3.9,25,2,9334,0)=" ;  contaminants^military sexual trauma^eligibility code #8^eligibility"
^XMB(3.9,25,2,9335,0)="""RTN"",""ECUERPC1"",66,0)"
^XMB(3.9,25,2,9336,0)=" ;  description^head/neck cancer^combat veteran"
^XMB(3.9,25,2,9337,0)="""RTN"",""ECUERPC1"",67,0)"
^XMB(3.9,25,2,9338,0)=" ;"
^XMB(3.9,25,2,9339,0)="""RTN"",""ECUERPC1"",68,0)"
^XMB(3.9,25,2,9340,0)=" N CLA,ELIG,ELCOD,ECAO,ECIR,ECEC,ECSC,ECMST,STR,ECHNC,ECCV"
^XMB(3.9,25,2,9341,0)="""RTN"",""ECUERPC1"",69,0)"
^XMB(3.9,25,2,9342,0)=" I '$D(^ECH(ECIEN,""P"")),'$D(^ECH(ECIEN,""PCE"")) Q"
^XMB(3.9,25,2,9343,0)="""RTN"",""ECUERPC1"",70,0)"
^XMB(3.9,25,2,9344,0)=" K ^TMP($J,""ECLASS"")"
^XMB(3.9,25,2,9345,0)="""RTN"",""ECUERPC1"",71,0)"
^XMB(3.9,25,2,9346,0)=" S ELIG=$P($G(^ECH(ECIEN,""PCE"")),""~"",17),ELCOD="""",CLA=$G(^ECH(ECIEN,""P""))"
^XMB(3.9,25,2,9347,0)="""RTN"",""ECUERPC1"",72,0)"
^XMB(3.9,25,2,9348,0)=" S:ELIG'="""" ELCOD=$P($G(^DIC(8,ELIG,0)),U)"
^XMB(3.9,25,2,9349,0)="""RTN"",""ECUERPC1"",73,0)"
^XMB(3.9,25,2,9350,0)=" S ECAO=$P(CLA,U,3),ECIR=$P(CLA,U,4),ECEC=$P(CLA,U,5),ECSC=$P(CLA,U,6)"
^XMB(3.9,25,2,9351,0)="""RTN"",""ECUERPC1"",74,0)"
^XMB(3.9,25,2,9352,0)=" S ECMST=$P(CLA,U,9),ECHNC=$P(CLA,U,10),ECCV=$P(CLA,U,11)"
^XMB(3.9,25,2,9353,0)="""RTN"",""ECUERPC1"",75,0)"
^XMB(3.9,25,2,9354,0)=" S STR=ECIEN_U_ECAO_U_ECIR_U_ECSC_U_ECEC_U_ECMST"
^XMB(3.9,25,2,9355,0)="""RTN"",""ECUERPC1"",76,0)"
^XMB(3.9,25,2,9356,0)=" S STR=STR_U_ELIG_U_ELCOD_U_ECHNC_U_ECCV,^TMP($J,""ECLASS"",1)=STR"
^XMB(3.9,25,2,9357,0)="""RTN"",""ECUERPC1"",77,0)"
^XMB(3.9,25,2,9358,0)=" S RESULTS=$NA(^TMP($J,""ECLASS""))"
^XMB(3.9,25,2,9359,0)="""RTN"",""ECUERPC1"",78,0)"
^XMB(3.9,25,2,9360,0)=" Q"
^XMB(3.9,25,2,9361,0)="""RTN"",""ECUERPC1"",79,0)"
^XMB(3.9,25,2,9362,0)="PATOTH(ECIEN) ;"
^XMB(3.9,25,2,9363,0)="""RTN"",""ECUERPC1"",80,0)"
^XMB(3.9,25,2,9364,0)=" ;Returns to broker a patient remaining data from EVENT CAPTURE"
^XMB(3.9,25,2,9365,0)="""RTN"",""ECUERPC1"",81,0)"
^XMB(3.9,25,2,9366,0)=" ;PATIENT FILE #721"
^XMB(3.9,25,2,9367,0)="""RTN"",""ECUERPC1"",82,0)"
^XMB(3.9,25,2,9368,0)=" ;INPUTS   ECIEN - Event Capture Patient ien"
^XMB(3.9,25,2,9369,0)="""RTN"",""ECUERPC1"",83,0)"
^XMB(3.9,25,2,9370,0)=" ;"
^XMB(3.9,25,2,9371,0)="""RTN"",""ECUERPC1"",84,0)"
^XMB(3.9,25,2,9372,0)=" ;OUTPUTS  RESULTS - "
^XMB(3.9,25,2,9373,0)="""RTN"",""ECUERPC1"",85,0)"
^XMB(3.9,25,2,9374,0)=" ;          721 IEN^procedure reason"
^XMB(3.9,25,2,9375,0)="""RTN"",""ECUERPC1"",86,0)"
^XMB(3.9,25,2,9376,0)=" ;"
^XMB(3.9,25,2,9377,0)="""RTN"",""ECUERPC1"",87,0)"
^XMB(3.9,25,2,9378,0)=" N REAS,ECX"
^XMB(3.9,25,2,9379,0)="""RTN"",""ECUERPC1"",88,0)"
^XMB(3.9,25,2,9380,0)=" K ^TMP($J,""ECOTH"")"
^XMB(3.9,25,2,9381,0)="""RTN"",""ECUERPC1"",89,0)"
^XMB(3.9,25,2,9382,0)=" S ECX=^ECH(ECIEN,0)"
^XMB(3.9,25,2,9383,0)="""RTN"",""ECUERPC1"",90,0)"
^XMB(3.9,25,2,9384,0)=" S REAS=$$GET1^DIQ(721,ECIEN,34,""E"")"
^XMB(3.9,25,2,9385,0)="""RTN"",""ECUERPC1"",91,0)"
^XMB(3.9,25,2,9386,0)=" S ^TMP($J,""ECOTH"",1)=REAS"
^XMB(3.9,25,2,9387,0)="""RTN"",""ECUERPC1"",92,0)"
^XMB(3.9,25,2,9388,0)=" S RESULTS=$NA(^TMP($J,""ECOTH""))"
^XMB(3.9,25,2,9389,0)="""RTN"",""ECUERPC1"",93,0)"
^XMB(3.9,25,2,9390,0)=" Q"
^XMB(3.9,25,2,9391,0)="""RTN"",""ECUERPC1"",94,0)"
^XMB(3.9,25,2,9392,0)="PATCLAST(RESULTS,ECARY) ;"
^XMB(3.9,25,2,9393,0)="""RTN"",""ECUERPC1"",95,0)"
^XMB(3.9,25,2,9394,0)=" ;Returns to broker a patient status (in/out) and classification"
^XMB(3.9,25,2,9395,0)="""RTN"",""ECUERPC1"",96,0)"
^XMB(3.9,25,2,9396,0)=" ;     RPC: EC GETPATCLASTAT"
^XMB(3.9,25,2,9397,0)="""RTN"",""ECUERPC1"",97,0)"
^XMB(3.9,25,2,9398,0)=" ;INPUTS  ECARY  - Contains the following subscripted elements  "
^XMB(3.9,25,2,9399,0)="""RTN"",""ECUERPC1"",98,0)"
^XMB(3.9,25,2,9400,0)=" ;         ECDFN - Patient ien (#2)"
^XMB(3.9,25,2,9401,0)="""RTN"",""ECUERPC1"",99,0)"
^XMB(3.9,25,2,9402,0)=" ;         ECD   - DSS Unit ien (#724)"
^XMB(3.9,25,2,9403,0)="""RTN"",""ECUERPC1"",100,0)"
^XMB(3.9,25,2,9404,0)=" ;         ECDT  - Procedure date and time (fileman format)"
^XMB(3.9,25,2,9405,0)="""RTN"",""ECUERPC1"",101,0)"
^XMB(3.9,25,2,9406,0)=" ;OUTPUTS  RESULTS - Patient status and classifications delimited by (^)"
^XMB(3.9,25,2,9407,0)="""RTN"",""ECUERPC1"",102,0)"
^XMB(3.9,25,2,9408,0)=" ;         Patient Status: I for inpatient or O for outpatient"
^XMB(3.9,25,2,9409,0)="""RTN"",""ECUERPC1"",103,0)"
^XMB(3.9,25,2,9410,0)=" ;         Classification: 2- Agent Orange, 3- Ionizing Radiation"
^XMB(3.9,25,2,9411,0)="""RTN"",""ECUERPC1"",104,0)"
^XMB(3.9,25,2,9412,0)=" ;          4- SC Condition, 5- Environmental Contaminants 6- Military"
^XMB(3.9,25,2,9413,0)="""RTN"",""ECUERPC1"",105,0)"
^XMB(3.9,25,2,9414,0)=" ;          Sexual Trauma    7- Head/Neck Cancer 8- Combat Veteran"
^XMB(3.9,25,2,9415,0)="""RTN"",""ECUERPC1"",106,0)"
^XMB(3.9,25,2,9416,0)=" ;         Data after the '~' refers to those class. that must be asked "
^XMB(3.9,25,2,9417,0)="""RTN"",""ECUERPC1"",107,0)"
^XMB(3.9,25,2,9418,0)=" ;         by Delphi appl. when the answer to SC=No."
^XMB(3.9,25,2,9419,0)="""RTN"",""ECUERPC1"",108,0)"
^XMB(3.9,25,2,9420,0)=" ;         Data after ""~""  1- Agent Orange  2- Ionizing Radi. 3- Env Cont"
^XMB(3.9,25,2,9421,0)="""RTN"",""ECUERPC1"",109,0)"
^XMB(3.9,25,2,9422,0)=" N ECDFN,ECDT,ECX,I,ECCLARY,SCDAT,PATSTAT"
^XMB(3.9,25,2,9423,0)="""RTN"",""ECUERPC1"",110,0)"
^XMB(3.9,25,2,9424,0)=" D SETENV^ECUMRPC"
^XMB(3.9,25,2,9425,0)="""RTN"",""ECUERPC1"",111,0)"
^XMB(3.9,25,2,9426,0)=" S ECDFN=$P(ECARY,U),ECD=$P(ECARY,U,2),ECDT=$P(ECARY,U,3) Q:ECDFN="""""
^XMB(3.9,25,2,9427,0)="""RTN"",""ECUERPC1"",112,0)"
^XMB(3.9,25,2,9428,0)=" I ECDT="""" D NOW^%DTC S ECDT=%"
^XMB(3.9,25,2,9429,0)="""RTN"",""ECUERPC1"",113,0)"
^XMB(3.9,25,2,9430,0)=" S PATSTAT=$$INOUTPT^ECUTL0(ECDFN,ECDT),RESULTS=""^^^^^^"",SCDAT="";;;"""
^XMB(3.9,25,2,9431,0)="""RTN"",""ECUERPC1"",114,0)"
^XMB(3.9,25,2,9432,0)=" I PATSTAT=""I"" D  Q  ;added to be consistent w roll-n-scroll 11/25/03 JAM"
^XMB(3.9,25,2,9433,0)="""RTN"",""ECUERPC1"",115,0)"
^XMB(3.9,25,2,9434,0)=" .S RESULTS=PATSTAT_""^""_RESULTS_$S(SCDAT'="""":""~""_SCDAT,1:"""")"
^XMB(3.9,25,2,9435,0)="""RTN"",""ECUERPC1"",116,0)"
^XMB(3.9,25,2,9436,0)=" I '$$CHKDSS^ECUTL0(+$G(ECD),PATSTAT) D  Q"
^XMB(3.9,25,2,9437,0)="""RTN"",""ECUERPC1"",117,0)"
^XMB(3.9,25,2,9438,0)=" .S RESULTS=PATSTAT_""^""_RESULTS_$S(SCDAT'="""":""~""_SCDAT,1:"""")"
^XMB(3.9,25,2,9439,0)="""RTN"",""ECUERPC1"",118,0)"
^XMB(3.9,25,2,9440,0)=" D CL^SDCO21(ECDFN,ECDT,"""",.ECCLARY) F ECX=3,1,2,4,5,6,7 D"
^XMB(3.9,25,2,9441,0)="""RTN"",""ECUERPC1"",119,0)"
^XMB(3.9,25,2,9442,0)=" .I ECX=1,$P($G(^DPT(ECDFN,.321)),""^"",2)'=""Y"" Q"
^XMB(3.9,25,2,9443,0)="""RTN"",""ECUERPC1"",120,0)"
^XMB(3.9,25,2,9444,0)=" .I ECX=2,$P($G(^DPT(ECDFN,.321)),""^"",3)'=""Y"" Q"
^XMB(3.9,25,2,9445,0)="""RTN"",""ECUERPC1"",121,0)"
^XMB(3.9,25,2,9446,0)=" .I ECX=4,$P($G(^DPT(ECDFN,.322)),""^"",13)'=""Y"",'$$EC^SDCO22(ECDFN,"""") Q"
^XMB(3.9,25,2,9447,0)="""RTN"",""ECUERPC1"",122,0)"
^XMB(3.9,25,2,9448,0)=" .I ECX=3,$D(ECCLARY(ECX)) F I=1,2,4 S ECCLARY(I)=""SC"""
^XMB(3.9,25,2,9449,0)="""RTN"",""ECUERPC1"",123,0)"
^XMB(3.9,25,2,9450,0)=" .I '$D(ECCLARY(ECX)) Q"
^XMB(3.9,25,2,9451,0)="""RTN"",""ECUERPC1"",124,0)"
^XMB(3.9,25,2,9452,0)=" .;Check SC, if answer to SC is NO then these questions will be asked"
^XMB(3.9,25,2,9453,0)="""RTN"",""ECUERPC1"",125,0)"
^XMB(3.9,25,2,9454,0)=" .I ECCLARY(ECX)=""SC"" S $P(SCDAT,"";"",ECX)=""E"""
^XMB(3.9,25,2,9455,0)="""RTN"",""ECUERPC1"",126,0)"
^XMB(3.9,25,2,9456,0)=" .E  S $P(RESULTS,""^"",ECX)=""E"""
^XMB(3.9,25,2,9457,0)="""RTN"",""ECUERPC1"",127,0)"
^XMB(3.9,25,2,9458,0)=" S RESULTS=PATSTAT_""^""_RESULTS_$S(SCDAT'="""":""~""_SCDAT,1:"""")"
^XMB(3.9,25,2,9459,0)="""RTN"",""ECUERPC1"",128,0)"
^XMB(3.9,25,2,9460,0)=" Q"
^XMB(3.9,25,2,9461,0)="""RTN"",""ECUERPC1"",129,0)"
^XMB(3.9,25,2,9462,0)="ENCDXS(RESULTS,ECARY) ;"
^XMB(3.9,25,2,9463,0)="""RTN"",""ECUERPC1"",130,0)"
^XMB(3.9,25,2,9464,0)=" ;Broker call returns a patient encounter primary & secondary dx (#721)"
^XMB(3.9,25,2,9465,0)="""RTN"",""ECUERPC1"",131,0)"
^XMB(3.9,25,2,9466,0)=" ;     RPC: EC GETENCDXS"
^XMB(3.9,25,2,9467,0)="""RTN"",""ECUERPC1"",132,0)"
^XMB(3.9,25,2,9468,0)=" ;INPUTS   ECDFN - Patient ien (#2)"
^XMB(3.9,25,2,9469,0)="""RTN"",""ECUERPC1"",133,0)"
^XMB(3.9,25,2,9470,0)=" ;         ECDT  - Procedure date and time (fileman format)"
^XMB(3.9,25,2,9471,0)="""RTN"",""ECUERPC1"",134,0)"
^XMB(3.9,25,2,9472,0)=" ;         ECL   - Location ien"
^XMB(3.9,25,2,9473,0)="""RTN"",""ECUERPC1"",135,0)"
^XMB(3.9,25,2,9474,0)=" ;         EC4   - Clinic ien"
^XMB(3.9,25,2,9475,0)="""RTN"",""ECUERPC1"",136,0)"
^XMB(3.9,25,2,9476,0)=" ;"
^XMB(3.9,25,2,9477,0)="""RTN"",""ECUERPC1"",137,0)"
^XMB(3.9,25,2,9478,0)=" ;OUTPUTS  RESULTS - array of patient encounter diagnosis"
^XMB(3.9,25,2,9479,0)="""RTN"",""ECUERPC1"",138,0)"
^XMB(3.9,25,2,9480,0)=" ;         primary/secondary flag^DX ien^DX code  DX description."
^XMB(3.9,25,2,9481,0)="""RTN"",""ECUERPC1"",139,0)"
^XMB(3.9,25,2,9482,0)=" ;"
^XMB(3.9,25,2,9483,0)="""RTN"",""ECUERPC1"",140,0)"
^XMB(3.9,25,2,9484,0)=" N ECDFN,ECDT,ECL,EC4,ECPDX,ECDX,ECDXN,ECDXS,CNT,STR,ECPDX,SDXCNT"
^XMB(3.9,25,2,9485,0)="""RTN"",""ECUERPC1"",141,0)"
^XMB(3.9,25,2,9486,0)=" D SETENV^ECUMRPC"
^XMB(3.9,25,2,9487,0)="""RTN"",""ECUERPC1"",142,0)"
^XMB(3.9,25,2,9488,0)=" K ^TMP($J,""ECENCDXS"")"
^XMB(3.9,25,2,9489,0)="""RTN"",""ECUERPC1"",143,0)"
^XMB(3.9,25,2,9490,0)=" S ECDFN=$P(ECARY,U),ECDT=+$P(ECARY,U,2),ECL=$P(ECARY,U,3)"
^XMB(3.9,25,2,9491,0)="""RTN"",""ECUERPC1"",144,0)"
^XMB(3.9,25,2,9492,0)=" S EC4=$P(ECARY,U,4) I ECDT="""" D NOW^%DTC S ECDT=%"
^XMB(3.9,25,2,9493,0)="""RTN"",""ECUERPC1"",145,0)"
^XMB(3.9,25,2,9494,0)=" I ECDFN=""""!(ECL="""")!(EC4="""") Q"
^XMB(3.9,25,2,9495,0)="""RTN"",""ECUERPC1"",146,0)"
^XMB(3.9,25,2,9496,0)=" S (ECDX,ECDXN)="""",ECPDX=$$PDXCK^ECUTL2(ECDFN,ECDT,ECL,EC4) I ECDX="""" Q"
^XMB(3.9,25,2,9497,0)="""RTN"",""ECUERPC1"",147,0)"
^XMB(3.9,25,2,9498,0)=" S IEN="""",STR=1_U_ECDX_U_ECDXN_""   ""_$P($$ICDDX^ICDCODE(ECDX,ECDT),U,4)"
^XMB(3.9,25,2,9499,0)="""RTN"",""ECUERPC1"",148,0)"
^XMB(3.9,25,2,9500,0)=" S CNT=1,^TMP($J,""ECENCDXS"",CNT)=STR"
^XMB(3.9,25,2,9501,0)="""RTN"",""ECUERPC1"",149,0)"
^XMB(3.9,25,2,9502,0)=" ;*ACS concat description to 2nd diag code, in the order entered by the user"
^XMB(3.9,25,2,9503,0)="""RTN"",""ECUERPC1"",150,0)"
^XMB(3.9,25,2,9504,0)=" F  S IEN=$O(ECDXS(IEN)) Q:IEN=""""  D"
^XMB(3.9,25,2,9505,0)="""RTN"",""ECUERPC1"",151,0)"
^XMB(3.9,25,2,9506,0)=" . S CNT=CNT+1,^TMP($J,""ECENCDXS"",CNT)=0_U_ECDXS(IEN)_U_IEN_""   ""_$P($$ICDDX^ICDCODE(ECDXS(IEN),ECDT),U,4)"
^XMB(3.9,25,2,9507,0)="""RTN"",""ECUERPC1"",152,0)"
^XMB(3.9,25,2,9508,0)=" S RESULTS=$NA(^TMP($J,""ECENCDXS""))"
^XMB(3.9,25,2,9509,0)="""RTN"",""ECUERPC1"",153,0)"
^XMB(3.9,25,2,9510,0)=" Q"
^XMB(3.9,25,2,9511,0)="""RTN"",""ECUERPC1"",154,0)"
^XMB(3.9,25,2,9512,0)=" ;"
^XMB(3.9,25,2,9513,0)="""RTN"",""ECUERPC1"",155,0)"
^XMB(3.9,25,2,9514,0)="PROCBAT(RESULTS,ECARY) ;"
^XMB(3.9,25,2,9515,0)="""RTN"",""ECUERPC1"",156,0)"
^XMB(3.9,25,2,9516,0)=" ;Broker call returns the entries from EVENT CAPTURE PATIENT FILE #721"
^XMB(3.9,25,2,9517,0)="""RTN"",""ECUERPC1"",157,0)"
^XMB(3.9,25,2,9518,0)=" ;for patients for a specific procedure"
^XMB(3.9,25,2,9519,0)="""RTN"",""ECUERPC1"",158,0)"
^XMB(3.9,25,2,9520,0)=" ;        RPC: EC GETBATPROCS"
^XMB(3.9,25,2,9521,0)="""RTN"",""ECUERPC1"",159,0)"
^XMB(3.9,25,2,9522,0)=" ;INPUTS   ECARY - Contains the following subscripted elements"
^XMB(3.9,25,2,9523,0)="""RTN"",""ECUERPC1"",160,0)"
^XMB(3.9,25,2,9524,0)=" ;          ECLOC - Location ien"
^XMB(3.9,25,2,9525,0)="""RTN"",""ECUERPC1"",161,0)"
^XMB(3.9,25,2,9526,0)=" ;          ECUNT - DSS unit ien"
^XMB(3.9,25,2,9527,0)="""RTN"",""ECUERPC1"",162,0)"
^XMB(3.9,25,2,9528,0)=" ;          ECC   - Category ien"
^XMB(3.9,25,2,9529,0)="""RTN"",""ECUERPC1"",163,0)"
^XMB(3.9,25,2,9530,0)=" ;          ECP   - Procedure ien"
^XMB(3.9,25,2,9531,0)="""RTN"",""ECUERPC1"",164,0)"
^XMB(3.9,25,2,9532,0)=" ;          ECSD  - Start Date"
^XMB(3.9,25,2,9533,0)="""RTN"",""ECUERPC1"",165,0)"
^XMB(3.9,25,2,9534,0)=" ;          ECED  - End Date"
^XMB(3.9,25,2,9535,0)="""RTN"",""ECUERPC1"",166,0)"
^XMB(3.9,25,2,9536,0)=" ;"
^XMB(3.9,25,2,9537,0)="""RTN"",""ECUERPC1"",167,0)"
^XMB(3.9,25,2,9538,0)=" ;OUTPUTS  RESULTS - Array of Event Capture Patient data containing:-"
^XMB(3.9,25,2,9539,0)="""RTN"",""ECUERPC1"",168,0)"
^XMB(3.9,25,2,9540,0)=" ;          721 IEN^Patient name^Procedure Date/Time^Primary Dx"
^XMB(3.9,25,2,9541,0)="""RTN"",""ECUERPC1"",169,0)"
^XMB(3.9,25,2,9542,0)=" ;          ^Ordering Section^Associated Clinic"
^XMB(3.9,25,2,9543,0)="""RTN"",""ECUERPC1"",170,0)"
^XMB(3.9,25,2,9544,0)=" ;^SSN^DOB^Procedure Date and Time"
^XMB(3.9,25,2,9545,0)="""RTN"",""ECUERPC1"",171,0)"
^XMB(3.9,25,2,9546,0)=" N IEN,CNT,ECLOC,ECUNT,NODE,DATA,PXDT,ECV,ECC,ECP,ECSD,ECED,DATE,DFN"
^XMB(3.9,25,2,9547,0)="""RTN"",""ECUERPC1"",172,0)"
^XMB(3.9,25,2,9548,0)=" N CAT,ECI,VADM,ORC,ASC,ECDX"
^XMB(3.9,25,2,9549,0)="""RTN"",""ECUERPC1"",173,0)"
^XMB(3.9,25,2,9550,0)=" S ECV=""ECLOC^ECUNT^ECC^ECP^ECSD^ECED"""
^XMB(3.9,25,2,9551,0)="""RTN"",""ECUERPC1"",174,0)"
^XMB(3.9,25,2,9552,0)=" D PARSE^ECUERPC(ECV,ECARY)"
^XMB(3.9,25,2,9553,0)="""RTN"",""ECUERPC1"",175,0)"
^XMB(3.9,25,2,9554,0)=" I (ECLOC="""")!(ECUNT="""")!(ECC="""")!(ECP="""") Q"
^XMB(3.9,25,2,9555,0)="""RTN"",""ECUERPC1"",176,0)"
^XMB(3.9,25,2,9556,0)=" D SETENV^ECUMRPC K ^TMP($J,""ECBATPX"") S CNT=0"
^XMB(3.9,25,2,9557,0)="""RTN"",""ECUERPC1"",177,0)"
^XMB(3.9,25,2,9558,0)=" S %DT=""STX"" F ECI=""ECSD"",""ECED"" S X=@ECI D ^%DT S @ECI=Y"
^XMB(3.9,25,2,9559,0)="""RTN"",""ECUERPC1"",178,0)"
^XMB(3.9,25,2,9560,0)=" S ECSD=$S(ECSD=-1:DT,1:ECSD)-.0001,ECED=$S(ECED=-1:DT,1:ECED)+.9999"
^XMB(3.9,25,2,9561,0)="""RTN"",""ECUERPC1"",179,0)"
^XMB(3.9,25,2,9562,0)=" Q:ECED'>ECSD  S DATE=ECSD"
^XMB(3.9,25,2,9563,0)="""RTN"",""ECUERPC1"",180,0)"
^XMB(3.9,25,2,9564,0)=" F  S DATE=$O(^ECH(""AC1"",ECLOC,DATE)) Q:'DATE!(DATE>ECED)  S IEN=0 D"
^XMB(3.9,25,2,9565,0)="""RTN"",""ECUERPC1"",181,0)"
^XMB(3.9,25,2,9566,0)=" . F  S IEN=$O(^ECH(""AC1"",ECLOC,DATE,IEN)) Q:'IEN  D"
^XMB(3.9,25,2,9567,0)="""RTN"",""ECUERPC1"",182,0)"
^XMB(3.9,25,2,9568,0)=" . . S NODE=$G(^ECH(IEN,0))  Q:NODE=""""  Q:$P(NODE,U,7)'=ECUNT"
^XMB(3.9,25,2,9569,0)="""RTN"",""ECUERPC1"",183,0)"
^XMB(3.9,25,2,9570,0)=" . . Q:$P(NODE,U,8)'=ECC  Q:$P(NODE,U,9)'=ECP"
^XMB(3.9,25,2,9571,0)="""RTN"",""ECUERPC1"",184,0)"
^XMB(3.9,25,2,9572,0)=" . . S ECDX=$P($G(^ECH(IEN,""P"")),U,2) I ECDX'="""" D"
^XMB(3.9,25,2,9573,0)="""RTN"",""ECUERPC1"",185,0)"
^XMB(3.9,25,2,9574,0)=" . . . S ECDX=$$ICDDX^ICDCODE(ECDX,DATE)"
^XMB(3.9,25,2,9575,0)="""RTN"",""ECUERPC1"",186,0)"
^XMB(3.9,25,2,9576,0)=" . . . S ECDX=$P(ECDX,U,2)_""  ""_$P(ECDX,U,4)"
^XMB(3.9,25,2,9577,0)="""RTN"",""ECUERPC1"",187,0)"
^XMB(3.9,25,2,9578,0)=" . . S ASC=$P(NODE,U,19) S:ASC'="""" ASC=$$GET1^DIQ(44,ASC,.01,""I"")"
^XMB(3.9,25,2,9579,0)="""RTN"",""ECUERPC1"",188,0)"
^XMB(3.9,25,2,9580,0)=" . . S ORC=$P(NODE,U,12) S:ORC'="""" ORC=$$GET1^DIQ(723,ORC,.01,""I"")"
^XMB(3.9,25,2,9581,0)="""RTN"",""ECUERPC1"",189,0)"
^XMB(3.9,25,2,9582,0)=" . . S Y=DATE X ^DD(""DD"") S PXDT=Y,DFN=$P(NODE,U,2) D DEM^VADPT"
^XMB(3.9,25,2,9583,0)="""RTN"",""ECUERPC1"",190,0)"
^XMB(3.9,25,2,9584,0)=" . . S DATA=$E(VADM(1),1,30)_U_PXDT_U_ECDX_U_ORC_U_ASC"
^XMB(3.9,25,2,9585,0)="""RTN"",""ECUERPC1"",191,0)"
^XMB(3.9,25,2,9586,0)=" . . S CNT=CNT+1,^TMP($J,""ECBATPX"",CNT)=IEN_U_DATA"
^XMB(3.9,25,2,9587,0)="""RTN"",""ECUERPC1"",192,0)"
^XMB(3.9,25,2,9588,0)=" S RESULTS=$NA(^TMP($J,""ECBATPX""))"
^XMB(3.9,25,2,9589,0)="""RTN"",""ECUERPC1"",193,0)"
^XMB(3.9,25,2,9590,0)=" Q"
^XMB(3.9,25,2,9591,0)="""RTN"",""ECUERPC1"",194,0)"
^XMB(3.9,25,2,9592,0)=" ;"
^XMB(3.9,25,2,9593,0)="""RTN"",""ECUERPC1"",195,0)"
^XMB(3.9,25,2,9594,0)="CLHLP(RESULTS,ECARY) ;RPC Broker entry point for classification help"
^XMB(3.9,25,2,9595,0)="""RTN"",""ECUERPC1"",196,0)"
^XMB(3.9,25,2,9596,0)=" ;        RPC: EC CLASHELP"
^XMB(3.9,25,2,9597,0)="""RTN"",""ECUERPC1"",197,0)"
^XMB(3.9,25,2,9598,0)=" ;INPUTS   ECARY - Contains the following elements for report printing"
^XMB(3.9,25,2,9599,0)="""RTN"",""ECUERPC1"",198,0)"
^XMB(3.9,25,2,9600,0)=" ;          ECDFN  - Patient DFN from file (#2)"
^XMB(3.9,25,2,9601,0)="""RTN"",""ECUERPC1"",199,0)"
^XMB(3.9,25,2,9602,0)=" ;          ECKY   - Key to provide help on"
^XMB(3.9,25,2,9603,0)="""RTN"",""ECUERPC1"",200,0)"
^XMB(3.9,25,2,9604,0)=" ;"
^XMB(3.9,25,2,9605,0)="""RTN"",""ECUERPC1"",201,0)"
^XMB(3.9,25,2,9606,0)=" ;OUTPUTS  RESULTS - Array of help text for classification"
^XMB(3.9,25,2,9607,0)="""RTN"",""ECUERPC1"",202,0)"
^XMB(3.9,25,2,9608,0)=" ;"
^XMB(3.9,25,2,9609,0)="""RTN"",""ECUERPC1"",203,0)"
^XMB(3.9,25,2,9610,0)=" N ECFILER,ECERR,ECDIRY,ECUFILE,ECDFN,ECKY,ECHNDL"
^XMB(3.9,25,2,9611,0)="""RTN"",""ECUERPC1"",204,0)"
^XMB(3.9,25,2,9612,0)=" D SETENV^ECUMRPC"
^XMB(3.9,25,2,9613,0)="""RTN"",""ECUERPC1"",205,0)"
^XMB(3.9,25,2,9614,0)=" K ^TMP(""ECMSG"",$J)"
^XMB(3.9,25,2,9615,0)="""RTN"",""ECUERPC1"",206,0)"
^XMB(3.9,25,2,9616,0)=" S ECERR=0,ECDFN=$P(ECARY,U),ECKY=$P(ECARY,U,2) D  I ECERR D CLEND Q"
^XMB(3.9,25,2,9617,0)="""RTN"",""ECUERPC1"",207,0)"
^XMB(3.9,25,2,9618,0)=" .I ECDFN="""" S ECERR=1,^TMP(""ECMSG"",$J,1)=""0^Patient IEN not defined"" Q"
^XMB(3.9,25,2,9619,0)="""RTN"",""ECUERPC1"",208,0)"
^XMB(3.9,25,2,9620,0)=" .I ECKY="""" S ECERR=1,^TMP(""ECMSG"",$J,1)=""0^Help Key not defined"" Q"
^XMB(3.9,25,2,9621,0)="""RTN"",""ECUERPC1"",209,0)"
^XMB(3.9,25,2,9622,0)=" .S DIC=2,DIC(0)=""NMZX"",X=ECDFN D ^DIC I Y<0 D"
^XMB(3.9,25,2,9623,0)="""RTN"",""ECUERPC1"",210,0)"
^XMB(3.9,25,2,9624,0)=" ..S ECERR=1,^TMP(""ECMSG"",$J,1)=""0^Patient IEN not found"""
^XMB(3.9,25,2,9625,0)="""RTN"",""ECUERPC1"",211,0)"
^XMB(3.9,25,2,9626,0)=" S ECHNDL=""ECLASHLP"" D HFSOPEN^ECRRPC(ECHNDL) I ECERR D CLEND Q"
^XMB(3.9,25,2,9627,0)="""RTN"",""ECUERPC1"",212,0)"
^XMB(3.9,25,2,9628,0)=" U IO"
^XMB(3.9,25,2,9629,0)="""RTN"",""ECUERPC1"",213,0)"
^XMB(3.9,25,2,9630,0)=" I ECKY=""SC"" D SC^SDCO23(ECDFN)"
^XMB(3.9,25,2,9631,0)="""RTN"",""ECUERPC1"",214,0)"
^XMB(3.9,25,2,9632,0)=" D HFSCLOSE^ECRRPC(ECFILER)"
^XMB(3.9,25,2,9633,0)="""RTN"",""ECUERPC1"",215,0)"
^XMB(3.9,25,2,9634,0)="CLEND ;"
^XMB(3.9,25,2,9635,0)="""RTN"",""ECUERPC1"",216,0)"
^XMB(3.9,25,2,9636,0)=" I $D(^TMP(""ECMSG"",$J)) S RESULTS=$NA(^TMP(""ECMSG"",$J)) Q"
^XMB(3.9,25,2,9637,0)="""RTN"",""ECUERPC1"",217,0)"
^XMB(3.9,25,2,9638,0)=" S RESULTS=$NA(^TMP($J))"
^XMB(3.9,25,2,9639,0)="""RTN"",""ECUERPC1"",218,0)"
^XMB(3.9,25,2,9640,0)=" Q"
^XMB(3.9,25,2,9641,0)="""RTN"",""ECUERPC1"",219,0)"
^XMB(3.9,25,2,9642,0)="ECDEF(RESULTS,ECARY) ;RPC Broker entry point to get a default for space bar"
^XMB(3.9,25,2,9643,0)="""RTN"",""ECUERPC1"",220,0)"
^XMB(3.9,25,2,9644,0)=" ;        RPC: EC SPACEBAR"
^XMB(3.9,25,2,9645,0)="""RTN"",""ECUERPC1"",221,0)"
^XMB(3.9,25,2,9646,0)=" ;INPUTS   ECARY - Contains the following elements for report printing"
^XMB(3.9,25,2,9647,0)="""RTN"",""ECUERPC1"",222,0)"
^XMB(3.9,25,2,9648,0)=" ;          ECFILE - File to obtain value from"
^XMB(3.9,25,2,9649,0)="""RTN"",""ECUERPC1"",223,0)"
^XMB(3.9,25,2,9650,0)=" ;"
^XMB(3.9,25,2,9651,0)="""RTN"",""ECUERPC1"",224,0)"
^XMB(3.9,25,2,9652,0)=" ;OUTPUTS  RESULTS - IEN^Description of Text"
^XMB(3.9,25,2,9653,0)="""RTN"",""ECUERPC1"",225,0)"
^XMB(3.9,25,2,9654,0)=" ;"
^XMB(3.9,25,2,9655,0)="""RTN"",""ECUERPC1"",226,0)"
^XMB(3.9,25,2,9656,0)=" N DIC,ECFILE,X,Y"
^XMB(3.9,25,2,9657,0)="""RTN"",""ECUERPC1"",227,0)"
^XMB(3.9,25,2,9658,0)=" D SETENV^ECUMRPC"
^XMB(3.9,25,2,9659,0)="""RTN"",""ECUERPC1"",228,0)"
^XMB(3.9,25,2,9660,0)=" S ECFILE=$P(ECARY,U)"
^XMB(3.9,25,2,9661,0)="""RTN"",""ECUERPC1"",229,0)"
^XMB(3.9,25,2,9662,0)=" I ECFILE="""" S ECERR=1,RESULTS=""0^File not defined"" Q"
^XMB(3.9,25,2,9663,0)="""RTN"",""ECUERPC1"",230,0)"
^XMB(3.9,25,2,9664,0)=" S X="" "",DIC(0)=""MZX"",DIC=ECFILE D ^DIC I Y<0 D  I ECERR Q"
^XMB(3.9,25,2,9665,0)="""RTN"",""ECUERPC1"",231,0)"
^XMB(3.9,25,2,9666,0)=" . S ECERR=1,RESULTS=""0^Nothing found"""
^XMB(3.9,25,2,9667,0)="""RTN"",""ECUERPC1"",232,0)"
^XMB(3.9,25,2,9668,0)=" S RESULTS=Y"
^XMB(3.9,25,2,9669,0)="""RTN"",""ECUERPC1"",233,0)"
^XMB(3.9,25,2,9670,0)=" Q"
^XMB(3.9,25,2,9671,0)="""RTN"",""ECUERPC2"")"
^XMB(3.9,25,2,9672,0)="0^39^B4379699^B3503395"
^XMB(3.9,25,2,9673,0)="""RTN"",""ECUERPC2"",1,0)"
^XMB(3.9,25,2,9674,0)="ECUERPC2 ;ALB/JAM;Event Capture Data Entry Broker Utilities ;Apr 24, 2002"
^XMB(3.9,25,2,9675,0)="""RTN"",""ECUERPC2"",2,0)"
^XMB(3.9,25,2,9676,0)=" ;;2.0; EVENT CAPTURE ;**41,39,50,72**;8 May 96"
^XMB(3.9,25,2,9677,0)="""RTN"",""ECUERPC2"",3,0)"
^XMB(3.9,25,2,9678,0)=" ;"
^XMB(3.9,25,2,9679,0)="""RTN"",""ECUERPC2"",4,0)"
^XMB(3.9,25,2,9680,0)="ECDOD(RESULTS,ECARY) ;RPC Broker entry point to get a patient's date of death"
^XMB(3.9,25,2,9681,0)="""RTN"",""ECUERPC2"",5,0)"
^XMB(3.9,25,2,9682,0)=" ;        RPC: EC DIEDON"
^XMB(3.9,25,2,9683,0)="""RTN"",""ECUERPC2"",6,0)"
^XMB(3.9,25,2,9684,0)=" ;INPUTS   ECARY - Contains the following elements as input"
^XMB(3.9,25,2,9685,0)="""RTN"",""ECUERPC2"",7,0)"
^XMB(3.9,25,2,9686,0)=" ;          ECDFN - Patient DFN"
^XMB(3.9,25,2,9687,0)="""RTN"",""ECUERPC2"",8,0)"
^XMB(3.9,25,2,9688,0)=" ;"
^XMB(3.9,25,2,9689,0)="""RTN"",""ECUERPC2"",9,0)"
^XMB(3.9,25,2,9690,0)=" ;OUTPUTS  RESULTS - Fileman Internal Date of Patient date of Death^"
^XMB(3.9,25,2,9691,0)="""RTN"",""ECUERPC2"",10,0)"
^XMB(3.9,25,2,9692,0)=" ;                   Message with Patient External Date of Death"
^XMB(3.9,25,2,9693,0)="""RTN"",""ECUERPC2"",11,0)"
^XMB(3.9,25,2,9694,0)=" ;"
^XMB(3.9,25,2,9695,0)="""RTN"",""ECUERPC2"",12,0)"
^XMB(3.9,25,2,9696,0)=" N ECDFN,DFN,VADM"
^XMB(3.9,25,2,9697,0)="""RTN"",""ECUERPC2"",13,0)"
^XMB(3.9,25,2,9698,0)=" D SETENV^ECUMRPC"
^XMB(3.9,25,2,9699,0)="""RTN"",""ECUERPC2"",14,0)"
^XMB(3.9,25,2,9700,0)=" S ECDFN=$P(ECARY,U),RESULTS=""^"""
^XMB(3.9,25,2,9701,0)="""RTN"",""ECUERPC2"",15,0)"
^XMB(3.9,25,2,9702,0)=" I ECDFN="""" S RESULTS=""0^Patient DFN not defined"" Q"
^XMB(3.9,25,2,9703,0)="""RTN"",""ECUERPC2"",16,0)"
^XMB(3.9,25,2,9704,0)=" ;NOIS MWV-0603-21781: line below changed by VMP"
^XMB(3.9,25,2,9705,0)="""RTN"",""ECUERPC2"",17,0)"
^XMB(3.9,25,2,9706,0)=" S DFN=ECDFN D 2^VADPT I +VADM(6) S RESULTS=$P(VADM(6),U)_""^""_""[PATIENT DIED ON ""_$P(VADM(6),U,2)_""]"""
^XMB(3.9,25,2,9707,0)="""RTN"",""ECUERPC2"",18,0)"
^XMB(3.9,25,2,9708,0)=" Q"
^XMB(3.9,25,2,9709,0)="""RTN"",""ECUERPC2"",19,0)"
^XMB(3.9,25,2,9710,0)="VISINFO(RESULTS,ECARY) ;"
^XMB(3.9,25,2,9711,0)="""RTN"",""ECUERPC2"",20,0)"
^XMB(3.9,25,2,9712,0)=" ;"
^XMB(3.9,25,2,9713,0)="""RTN"",""ECUERPC2"",21,0)"
^XMB(3.9,25,2,9714,0)=" ;Broker call returns the EC values based on a Visit Number"
^XMB(3.9,25,2,9715,0)="""RTN"",""ECUERPC2"",22,0)"
^XMB(3.9,25,2,9716,0)=" ;        RPC: EC GETVISITINFO"
^XMB(3.9,25,2,9717,0)="""RTN"",""ECUERPC2"",23,0)"
^XMB(3.9,25,2,9718,0)=" ;INPUTS   ECARY - Contains the following subscripted elements"
^XMB(3.9,25,2,9719,0)="""RTN"",""ECUERPC2"",24,0)"
^XMB(3.9,25,2,9720,0)=" ;          ECVSN - Visit Number, IEN in file (#9000010)"
^XMB(3.9,25,2,9721,0)="""RTN"",""ECUERPC2"",25,0)"
^XMB(3.9,25,2,9722,0)=" ;"
^XMB(3.9,25,2,9723,0)="""RTN"",""ECUERPC2"",26,0)"
^XMB(3.9,25,2,9724,0)=" ;OUTPUTS  RESULTS - Contains the following data:-"
^XMB(3.9,25,2,9725,0)="""RTN"",""ECUERPC2"",27,0)"
^XMB(3.9,25,2,9726,0)=" ;          Location IEN^DSS Unit IEN^Proc Date/Time Fileman^"
^XMB(3.9,25,2,9727,0)="""RTN"",""ECUERPC2"",28,0)"
^XMB(3.9,25,2,9728,0)=" ;           Procedure Date/Time Readable^Patient DFN"
^XMB(3.9,25,2,9729,0)="""RTN"",""ECUERPC2"",29,0)"
^XMB(3.9,25,2,9730,0)=" ;          0^Error Message (if error)"
^XMB(3.9,25,2,9731,0)="""RTN"",""ECUERPC2"",30,0)"
^XMB(3.9,25,2,9732,0)=" ;"
^XMB(3.9,25,2,9733,0)="""RTN"",""ECUERPC2"",31,0)"
^XMB(3.9,25,2,9734,0)=" N ECLOC,ECUNT,NODE,Y,ECPXDT,DA,ECVSN,ECDFN,DSSF,LOC,UNT"
^XMB(3.9,25,2,9735,0)="""RTN"",""ECUERPC2"",32,0)"
^XMB(3.9,25,2,9736,0)=" D SETENV^ECUMRPC"
^XMB(3.9,25,2,9737,0)="""RTN"",""ECUERPC2"",33,0)"
^XMB(3.9,25,2,9738,0)=" S ECVSN=$P(ECARY,U) I ECVSN="""" S RESULTS=0_""^Visit undefined"" Q"
^XMB(3.9,25,2,9739,0)="""RTN"",""ECUERPC2"",34,0)"
^XMB(3.9,25,2,9740,0)=" K ^TMP($J,""ECVISINFO"")"
^XMB(3.9,25,2,9741,0)="""RTN"",""ECUERPC2"",35,0)"
^XMB(3.9,25,2,9742,0)=" S DA=$O(^ECH(""C"",ECVSN,0)) I 'DA D  Q"
^XMB(3.9,25,2,9743,0)="""RTN"",""ECUERPC2"",36,0)"
^XMB(3.9,25,2,9744,0)=" . S RESULTS=0_""^Visit not on File"""
^XMB(3.9,25,2,9745,0)="""RTN"",""ECUERPC2"",37,0)"
^XMB(3.9,25,2,9746,0)=" S NODE=$G(^ECH(DA,0)) I NODE="""" D  Q"
^XMB(3.9,25,2,9747,0)="""RTN"",""ECUERPC2"",38,0)"
^XMB(3.9,25,2,9748,0)=" . S RESULTS=0_""No corresponding EC procedures found for Visit"""
^XMB(3.9,25,2,9749,0)="""RTN"",""ECUERPC2"",39,0)"
^XMB(3.9,25,2,9750,0)=" S ECLOC=$P(NODE,U,4),ECUNT=$P(NODE,U,7),ECPXDT=$P(NODE,U,3)"
^XMB(3.9,25,2,9751,0)="""RTN"",""ECUERPC2"",40,0)"
^XMB(3.9,25,2,9752,0)=" S LOC=$P($G(^DIC(4,ECLOC,0)),U),UNT=$G(^ECD(ECUNT,0)),DSSF=$P(UNT,U,14)"
^XMB(3.9,25,2,9753,0)="""RTN"",""ECUERPC2"",41,0)"
^XMB(3.9,25,2,9754,0)=" S UNT=$P(UNT,U) S:DSSF="""" DSSF=""N"""
^XMB(3.9,25,2,9755,0)="""RTN"",""ECUERPC2"",42,0)"
^XMB(3.9,25,2,9756,0)=" S ECDFN=$P(NODE,U,2),Y=ECPXDT X ^DD(""DD"")"
^XMB(3.9,25,2,9757,0)="""RTN"",""ECUERPC2"",43,0)"
^XMB(3.9,25,2,9758,0)=" S RESULTS=ECLOC_U_LOC_U_ECUNT_U_UNT_U_DSSF_U_ECPXDT_U_Y_U_ECDFN"
^XMB(3.9,25,2,9759,0)="""RTN"",""ECUERPC2"",44,0)"
^XMB(3.9,25,2,9760,0)=" Q"
^XMB(3.9,25,2,9761,0)="""RTN"",""ECUERPC2"",45,0)"
^XMB(3.9,25,2,9762,0)="PATPRV(ECIEN) ;"
^XMB(3.9,25,2,9763,0)="""RTN"",""ECUERPC2"",46,0)"
^XMB(3.9,25,2,9764,0)=" ;Returns to broker a patient providers (primary & secondary) entries "
^XMB(3.9,25,2,9765,0)="""RTN"",""ECUERPC2"",47,0)"
^XMB(3.9,25,2,9766,0)=" ;from EVENT CAPTURE PATIENT FILE #721"
^XMB(3.9,25,2,9767,0)="""RTN"",""ECUERPC2"",48,0)"
^XMB(3.9,25,2,9768,0)=" ;INPUTS   ECIEN - Event Capture Patient ien"
^XMB(3.9,25,2,9769,0)="""RTN"",""ECUERPC2"",49,0)"
^XMB(3.9,25,2,9770,0)=" ;"
^XMB(3.9,25,2,9771,0)="""RTN"",""ECUERPC2"",50,0)"
^XMB(3.9,25,2,9772,0)=" ;OUTPUTS  RESULTS - Array of Event Capture Patient file contains"
^XMB(3.9,25,2,9773,0)="""RTN"",""ECUERPC2"",51,0)"
^XMB(3.9,25,2,9774,0)=" ;          ^ECH IEN^provider ien^provider description^Primary/Secondary"
^XMB(3.9,25,2,9775,0)="""RTN"",""ECUERPC2"",52,0)"
^XMB(3.9,25,2,9776,0)=" ;           code^Primary/Secondary description"
^XMB(3.9,25,2,9777,0)="""RTN"",""ECUERPC2"",53,0)"
^XMB(3.9,25,2,9778,0)=" ;"
^XMB(3.9,25,2,9779,0)="""RTN"",""ECUERPC2"",54,0)"
^XMB(3.9,25,2,9780,0)=" N ECPRV,ECPROV"
^XMB(3.9,25,2,9781,0)="""RTN"",""ECUERPC2"",55,0)"
^XMB(3.9,25,2,9782,0)=" I '$D(^ECH(ECIEN,""PRV"")) Q"
^XMB(3.9,25,2,9783,0)="""RTN"",""ECUERPC2"",56,0)"
^XMB(3.9,25,2,9784,0)=" K ^TMP($J,""ECPRV"")"
^XMB(3.9,25,2,9785,0)="""RTN"",""ECUERPC2"",57,0)"
^XMB(3.9,25,2,9786,0)=" S ECPRV=$$GETPRV^ECPRVMUT(ECIEN,.ECPROV) I 'ECPRV D"
^XMB(3.9,25,2,9787,0)="""RTN"",""ECUERPC2"",58,0)"
^XMB(3.9,25,2,9788,0)=" .M ^TMP($J,""ECPRV"")=ECPROV"
^XMB(3.9,25,2,9789,0)="""RTN"",""ECUERPC2"",59,0)"
^XMB(3.9,25,2,9790,0)=" S RESULTS=$NA(^TMP($J,""ECPRV""))"
^XMB(3.9,25,2,9791,0)="""RTN"",""ECUERPC2"",60,0)"
^XMB(3.9,25,2,9792,0)=" Q"
^XMB(3.9,25,2,9793,0)="""RTN"",""ECUMRPC1"")"
^XMB(3.9,25,2,9794,0)="0^43^B61789202^B61005810"
^XMB(3.9,25,2,9795,0)="""RTN"",""ECUMRPC1"",1,0)"
^XMB(3.9,25,2,9796,0)="ECUMRPC1 ;ALB/JAM-Event Capture Management Broker Utilities ;28 Nov 00"
^XMB(3.9,25,2,9797,0)="""RTN"",""ECUMRPC1"",2,0)"
^XMB(3.9,25,2,9798,0)=" ;;2.0; EVENT CAPTURE ;**25,30,33,72**;8 May 96"
^XMB(3.9,25,2,9799,0)="""RTN"",""ECUMRPC1"",3,0)"
^XMB(3.9,25,2,9800,0)=" ;"
^XMB(3.9,25,2,9801,0)="""RTN"",""ECUMRPC1"",4,0)"
^XMB(3.9,25,2,9802,0)="DSSUNT(RESULTS,ECARY) ;"
^XMB(3.9,25,2,9803,0)="""RTN"",""ECUMRPC1"",5,0)"
^XMB(3.9,25,2,9804,0)=" ;"
^XMB(3.9,25,2,9805,0)="""RTN"",""ECUMRPC1"",6,0)"
^XMB(3.9,25,2,9806,0)=" ;This broker entry point returns DSS units from file 724"
^XMB(3.9,25,2,9807,0)="""RTN"",""ECUMRPC1"",7,0)"
^XMB(3.9,25,2,9808,0)=" ;        RPC: EC GETDSSUNIT"
^XMB(3.9,25,2,9809,0)="""RTN"",""ECUMRPC1"",8,0)"
^XMB(3.9,25,2,9810,0)=" ;INPUTS         ECARY - Contains the following subscripted elements"
^XMB(3.9,25,2,9811,0)="""RTN"",""ECUMRPC1"",9,0)"
^XMB(3.9,25,2,9812,0)=" ;               STAT   - Active or inactive DSS Units (optional)"
^XMB(3.9,25,2,9813,0)="""RTN"",""ECUMRPC1"",10,0)"
^XMB(3.9,25,2,9814,0)=" ;               A-ctive (default), I-nactive, B-oth"
^XMB(3.9,25,2,9815,0)="""RTN"",""ECUMRPC1"",11,0)"
^XMB(3.9,25,2,9816,0)=" ;"
^XMB(3.9,25,2,9817,0)="""RTN"",""ECUMRPC1"",12,0)"
^XMB(3.9,25,2,9818,0)=" ;OUTPUTS        RESULTS - Array of DSS units. Data pieces as follows:-"
^XMB(3.9,25,2,9819,0)="""RTN"",""ECUMRPC1"",13,0)"
^XMB(3.9,25,2,9820,0)=" ;               PIECE - Description"
^XMB(3.9,25,2,9821,0)="""RTN"",""ECUMRPC1"",14,0)"
^XMB(3.9,25,2,9822,0)=" ;                 1     IEN of DSS Unit"
^XMB(3.9,25,2,9823,0)="""RTN"",""ECUMRPC1"",15,0)"
^XMB(3.9,25,2,9824,0)=" ;                 2     Name of DSS Unit"
^XMB(3.9,25,2,9825,0)="""RTN"",""ECUMRPC1"",16,0)"
^XMB(3.9,25,2,9826,0)=" ;                 3     Service"
^XMB(3.9,25,2,9827,0)="""RTN"",""ECUMRPC1"",17,0)"
^XMB(3.9,25,2,9828,0)=" ;                 4     Medical Specialty"
^XMB(3.9,25,2,9829,0)="""RTN"",""ECUMRPC1"",18,0)"
^XMB(3.9,25,2,9830,0)=" ;                 5     Cost Center"
^XMB(3.9,25,2,9831,0)="""RTN"",""ECUMRPC1"",19,0)"
^XMB(3.9,25,2,9832,0)=" ;                 6     Unit Number"
^XMB(3.9,25,2,9833,0)="""RTN"",""ECUMRPC1"",20,0)"
^XMB(3.9,25,2,9834,0)=" ;                 7     Inactive Flag"
^XMB(3.9,25,2,9835,0)="""RTN"",""ECUMRPC1"",21,0)"
^XMB(3.9,25,2,9836,0)=" ;                 8     Associated Stop code (if not sending to PCE)"
^XMB(3.9,25,2,9837,0)="""RTN"",""ECUMRPC1"",22,0)"
^XMB(3.9,25,2,9838,0)=" ;                 9     Category flag"
^XMB(3.9,25,2,9839,0)="""RTN"",""ECUMRPC1"",23,0)"
^XMB(3.9,25,2,9840,0)=" ;                 10    Default date entry"
^XMB(3.9,25,2,9841,0)="""RTN"",""ECUMRPC1"",24,0)"
^XMB(3.9,25,2,9842,0)=" ;                 11    Send to PCE Flag"
^XMB(3.9,25,2,9843,0)="""RTN"",""ECUMRPC1"",25,0)"
^XMB(3.9,25,2,9844,0)=" ;"
^XMB(3.9,25,2,9845,0)="""RTN"",""ECUMRPC1"",26,0)"
^XMB(3.9,25,2,9846,0)=" N UNT,STAT,CNT,CAT,NODE,ECS,STR,SRV,MED,CST,UNO,INACT,ASC,PCE,ACT,NODE"
^XMB(3.9,25,2,9847,0)="""RTN"",""ECUMRPC1"",27,0)"
^XMB(3.9,25,2,9848,0)=" N DFD"
^XMB(3.9,25,2,9849,0)="""RTN"",""ECUMRPC1"",28,0)"
^XMB(3.9,25,2,9850,0)=" D SETENV^ECUMRPC"
^XMB(3.9,25,2,9851,0)="""RTN"",""ECUMRPC1"",29,0)"
^XMB(3.9,25,2,9852,0)=" K ^TMP($J,""ECDSSUNT"")"
^XMB(3.9,25,2,9853,0)="""RTN"",""ECUMRPC1"",30,0)"
^XMB(3.9,25,2,9854,0)=" S STAT=$P($G(ECARY),U),(CNT,UNT)=0 S:STAT="""" STAT=""A"""
^XMB(3.9,25,2,9855,0)="""RTN"",""ECUMRPC1"",31,0)"
^XMB(3.9,25,2,9856,0)=" F  S UNT=$O(^ECD(UNT)) Q:'UNT  S NODE=$G(^ECD(UNT,0)) I NODE'="""" D"
^XMB(3.9,25,2,9857,0)="""RTN"",""ECUMRPC1"",32,0)"
^XMB(3.9,25,2,9858,0)=" . S ECS=$P(NODE,U,8),ACT=$P(NODE,U,6),ACT=$S(ACT:1,1:0)"
^XMB(3.9,25,2,9859,0)="""RTN"",""ECUMRPC1"",33,0)"
^XMB(3.9,25,2,9860,0)=" . Q:'ECS  I $S(STAT=""A""&(ACT):1,STAT=""I""&('ACT):1,1:0) Q"
^XMB(3.9,25,2,9861,0)="""RTN"",""ECUMRPC1"",34,0)"
^XMB(3.9,25,2,9862,0)=" . S CNT=CNT+1,CAT=$P(NODE,U,11),CAT=$S(CAT:""Y"",1:""N""),UNO=$P(NODE,U,5)"
^XMB(3.9,25,2,9863,0)="""RTN"",""ECUMRPC1"",35,0)"
^XMB(3.9,25,2,9864,0)=" . S SRV=$$GET1^DIQ(49,$P(NODE,U,2),.01,""I"")"
^XMB(3.9,25,2,9865,0)="""RTN"",""ECUMRPC1"",36,0)"
^XMB(3.9,25,2,9866,0)=" . S MED=$$GET1^DIQ(723,$P(NODE,U,3),.01,""I"")"
^XMB(3.9,25,2,9867,0)="""RTN"",""ECUMRPC1"",37,0)"
^XMB(3.9,25,2,9868,0)=" . S CST=$$GET1^DIQ(420.1,$P(NODE,U,4),.01,""I"")"
^XMB(3.9,25,2,9869,0)="""RTN"",""ECUMRPC1"",38,0)"
^XMB(3.9,25,2,9870,0)=" . S INACT=$P(NODE,U,6),INACT=$S(INACT:""I"",1:""A""),ASC=$P(NODE,U,10)"
^XMB(3.9,25,2,9871,0)="""RTN"",""ECUMRPC1"",39,0)"
^XMB(3.9,25,2,9872,0)=" . S:ASC ASC=$$GET1^DIQ(40.7,ASC,.01,""I"")"
^XMB(3.9,25,2,9873,0)="""RTN"",""ECUMRPC1"",40,0)"
^XMB(3.9,25,2,9874,0)=" . S DFD=$S($P(NODE,U,12)=""N"":""N"",1:""X""),PCE=$P(NODE,U,14)"
^XMB(3.9,25,2,9875,0)="""RTN"",""ECUMRPC1"",41,0)"
^XMB(3.9,25,2,9876,0)=" . S PCE=$S(PCE=""A"":PCE,PCE=""O"":PCE,1:""N"")"
^XMB(3.9,25,2,9877,0)="""RTN"",""ECUMRPC1"",42,0)"
^XMB(3.9,25,2,9878,0)=" . S STR=UNT_U_$P(NODE,U)_U_SRV_U_MED_U_CST_U_UNO_U_INACT_U_ASC_U_CAT"
^XMB(3.9,25,2,9879,0)="""RTN"",""ECUMRPC1"",43,0)"
^XMB(3.9,25,2,9880,0)=" . S STR=STR_U_DFD_U_PCE,^TMP($J,""ECDSSUNT"",CNT)=STR"
^XMB(3.9,25,2,9881,0)="""RTN"",""ECUMRPC1"",44,0)"
^XMB(3.9,25,2,9882,0)=" S RESULTS=$NA(^TMP($J,""ECDSSUNT""))"
^XMB(3.9,25,2,9883,0)="""RTN"",""ECUMRPC1"",45,0)"
^XMB(3.9,25,2,9884,0)=" Q"
^XMB(3.9,25,2,9885,0)="""RTN"",""ECUMRPC1"",46,0)"
^XMB(3.9,25,2,9886,0)="CAT(RESULTS,ECARY) ;"
^XMB(3.9,25,2,9887,0)="""RTN"",""ECUMRPC1"",47,0)"
^XMB(3.9,25,2,9888,0)=" ;"
^XMB(3.9,25,2,9889,0)="""RTN"",""ECUMRPC1"",48,0)"
^XMB(3.9,25,2,9890,0)=" ;This broker entry point returns a list of categories from file 726"
^XMB(3.9,25,2,9891,0)="""RTN"",""ECUMRPC1"",49,0)"
^XMB(3.9,25,2,9892,0)=" ;        RPC: EC GETCAT"
^XMB(3.9,25,2,9893,0)="""RTN"",""ECUMRPC1"",50,0)"
^XMB(3.9,25,2,9894,0)=" ;INPUTS         ECARY - Contains the following subscripted elements"
^XMB(3.9,25,2,9895,0)="""RTN"",""ECUMRPC1"",51,0)"
^XMB(3.9,25,2,9896,0)=" ;                STAT - Active or inactive category (optional)"
^XMB(3.9,25,2,9897,0)="""RTN"",""ECUMRPC1"",52,0)"
^XMB(3.9,25,2,9898,0)=" ;                A-ctive (default), I-nactive, B-oth"
^XMB(3.9,25,2,9899,0)="""RTN"",""ECUMRPC1"",53,0)"
^XMB(3.9,25,2,9900,0)=" ;"
^XMB(3.9,25,2,9901,0)="""RTN"",""ECUMRPC1"",54,0)"
^XMB(3.9,25,2,9902,0)=" ;OUTPUTS        RESULTS - Array of category. Data pieces as follows:-"
^XMB(3.9,25,2,9903,0)="""RTN"",""ECUMRPC1"",55,0)"
^XMB(3.9,25,2,9904,0)=" ;               PIECE - Description"
^XMB(3.9,25,2,9905,0)="""RTN"",""ECUMRPC1"",56,0)"
^XMB(3.9,25,2,9906,0)=" ;                 1     IEN of Category"
^XMB(3.9,25,2,9907,0)="""RTN"",""ECUMRPC1"",57,0)"
^XMB(3.9,25,2,9908,0)=" ;                 2     Name of Category"
^XMB(3.9,25,2,9909,0)="""RTN"",""ECUMRPC1"",58,0)"
^XMB(3.9,25,2,9910,0)=" ;                 3     Creation Date"
^XMB(3.9,25,2,9911,0)="""RTN"",""ECUMRPC1"",59,0)"
^XMB(3.9,25,2,9912,0)=" ;                 4     Inactive Date"
^XMB(3.9,25,2,9913,0)="""RTN"",""ECUMRPC1"",60,0)"
^XMB(3.9,25,2,9914,0)=" ;"
^XMB(3.9,25,2,9915,0)="""RTN"",""ECUMRPC1"",61,0)"
^XMB(3.9,25,2,9916,0)=" N STAT,CNT,CAT,NODE,ECDT,INDT,CRDT"
^XMB(3.9,25,2,9917,0)="""RTN"",""ECUMRPC1"",62,0)"
^XMB(3.9,25,2,9918,0)=" D SETENV^ECUMRPC"
^XMB(3.9,25,2,9919,0)="""RTN"",""ECUMRPC1"",63,0)"
^XMB(3.9,25,2,9920,0)=" K ^TMP($J,""ECCAT"")"
^XMB(3.9,25,2,9921,0)="""RTN"",""ECUMRPC1"",64,0)"
^XMB(3.9,25,2,9922,0)=" S STAT=$P($G(ECARY),U),(CNT,CAT)=0 S:STAT="""" STAT=""A"""
^XMB(3.9,25,2,9923,0)="""RTN"",""ECUMRPC1"",65,0)"
^XMB(3.9,25,2,9924,0)=" F  S CAT=$O(^EC(726,CAT)) Q:'CAT  S NODE=$G(^EC(726,CAT,0)) I NODE'="""" D"
^XMB(3.9,25,2,9925,0)="""RTN"",""ECUMRPC1"",66,0)"
^XMB(3.9,25,2,9926,0)=" . S ECDT=$P(NODE,U,3)"
^XMB(3.9,25,2,9927,0)="""RTN"",""ECUMRPC1"",67,0)"
^XMB(3.9,25,2,9928,0)=" . I STAT=""A"",ECDT'="""",ECDT'>DT Q"
^XMB(3.9,25,2,9929,0)="""RTN"",""ECUMRPC1"",68,0)"
^XMB(3.9,25,2,9930,0)=" . I STAT=""I"",ECDT="""" Q"
^XMB(3.9,25,2,9931,0)="""RTN"",""ECUMRPC1"",69,0)"
^XMB(3.9,25,2,9932,0)=" . S CRDT=$$FMTE^XLFDT($P(NODE,U,2),""2F"")"
^XMB(3.9,25,2,9933,0)="""RTN"",""ECUMRPC1"",70,0)"
^XMB(3.9,25,2,9934,0)=" . S INDT=$$FMTE^XLFDT($P(NODE,U,3),""2F"")"
^XMB(3.9,25,2,9935,0)="""RTN"",""ECUMRPC1"",71,0)"
^XMB(3.9,25,2,9936,0)=" . S CNT=CNT+1,^TMP($J,""ECCAT"",CNT)=CAT_U_$P(NODE,U)_U_CRDT_U_INDT"
^XMB(3.9,25,2,9937,0)="""RTN"",""ECUMRPC1"",72,0)"
^XMB(3.9,25,2,9938,0)=" S RESULTS=$NA(^TMP($J,""ECCAT""))"
^XMB(3.9,25,2,9939,0)="""RTN"",""ECUMRPC1"",73,0)"
^XMB(3.9,25,2,9940,0)=" Q"
^XMB(3.9,25,2,9941,0)="""RTN"",""ECUMRPC1"",74,0)"
^XMB(3.9,25,2,9942,0)=" ;"
^XMB(3.9,25,2,9943,0)="""RTN"",""ECUMRPC1"",75,0)"
^XMB(3.9,25,2,9944,0)="CATCHK(RESULTS,ECARY) ;"
^XMB(3.9,25,2,9945,0)="""RTN"",""ECUMRPC1"",76,0)"
^XMB(3.9,25,2,9946,0)=" ;"
^XMB(3.9,25,2,9947,0)="""RTN"",""ECUMRPC1"",77,0)"
^XMB(3.9,25,2,9948,0)=" ;Broker call checks whether category is used in an Event Code Screen."
^XMB(3.9,25,2,9949,0)="""RTN"",""ECUMRPC1"",78,0)"
^XMB(3.9,25,2,9950,0)=" ;        RPC: EC DSSCATCHECK"
^XMB(3.9,25,2,9951,0)="""RTN"",""ECUMRPC1"",79,0)"
^XMB(3.9,25,2,9952,0)=" ;INPUTS   ECARY  - Contains the following subscripted elements"
^XMB(3.9,25,2,9953,0)="""RTN"",""ECUMRPC1"",80,0)"
^XMB(3.9,25,2,9954,0)=" ;          ECDA  - DSS Unit ien (file #724)"
^XMB(3.9,25,2,9955,0)="""RTN"",""ECUMRPC1"",81,0)"
^XMB(3.9,25,2,9956,0)=" ;"
^XMB(3.9,25,2,9957,0)="""RTN"",""ECUMRPC1"",82,0)"
^XMB(3.9,25,2,9958,0)=" ;OUTPUTS  RESULTS - Category used in Event Code Screen, 1-Yes or 0-No"
^XMB(3.9,25,2,9959,0)="""RTN"",""ECUMRPC1"",83,0)"
^XMB(3.9,25,2,9960,0)=" ;"
^XMB(3.9,25,2,9961,0)="""RTN"",""ECUMRPC1"",84,0)"
^XMB(3.9,25,2,9962,0)=" N ECDA,ECFLG,ECX"
^XMB(3.9,25,2,9963,0)="""RTN"",""ECUMRPC1"",85,0)"
^XMB(3.9,25,2,9964,0)=" D SETENV^ECUMRPC"
^XMB(3.9,25,2,9965,0)="""RTN"",""ECUMRPC1"",86,0)"
^XMB(3.9,25,2,9966,0)=" S ECDA=$P(ECARY,U) I ECDA="""" Q"
^XMB(3.9,25,2,9967,0)="""RTN"",""ECUMRPC1"",87,0)"
^XMB(3.9,25,2,9968,0)=" S (ECFLG,ECX)=0"
^XMB(3.9,25,2,9969,0)="""RTN"",""ECUMRPC1"",88,0)"
^XMB(3.9,25,2,9970,0)=" F  S ECX=$O(^ECJ(""AP"",ECX)) Q:'ECX!(ECFLG)  D"
^XMB(3.9,25,2,9971,0)="""RTN"",""ECUMRPC1"",89,0)"
^XMB(3.9,25,2,9972,0)=" . I $D(^ECJ(""AP"",ECX,ECDA)) S ECFLG=1"
^XMB(3.9,25,2,9973,0)="""RTN"",""ECUMRPC1"",90,0)"
^XMB(3.9,25,2,9974,0)=" S RESULTS=ECFLG"
^XMB(3.9,25,2,9975,0)="""RTN"",""ECUMRPC1"",91,0)"
^XMB(3.9,25,2,9976,0)=" Q"
^XMB(3.9,25,2,9977,0)="""RTN"",""ECUMRPC1"",92,0)"
^XMB(3.9,25,2,9978,0)="PXCHK(RESULTS,ECARY) ;"
^XMB(3.9,25,2,9979,0)="""RTN"",""ECUMRPC1"",93,0)"
^XMB(3.9,25,2,9980,0)=" ;"
^XMB(3.9,25,2,9981,0)="""RTN"",""ECUMRPC1"",94,0)"
^XMB(3.9,25,2,9982,0)=" ;Checks whether procedure description or national number exist"
^XMB(3.9,25,2,9983,0)="""RTN"",""ECUMRPC1"",95,0)"
^XMB(3.9,25,2,9984,0)=" ;INPUTS   ECARY  - Contains the following subscripted elements"
^XMB(3.9,25,2,9985,0)="""RTN"",""ECUMRPC1"",96,0)"
^XMB(3.9,25,2,9986,0)=" ;          ECP - Procedure description"
^XMB(3.9,25,2,9987,0)="""RTN"",""ECUMRPC1"",97,0)"
^XMB(3.9,25,2,9988,0)=" ;          ECN - EC National Number"
^XMB(3.9,25,2,9989,0)="""RTN"",""ECUMRPC1"",98,0)"
^XMB(3.9,25,2,9990,0)=" ;"
^XMB(3.9,25,2,9991,0)="""RTN"",""ECUMRPC1"",99,0)"
^XMB(3.9,25,2,9992,0)=" ;OUTPUTS  RESULTS - Px used^National # used, 1-Yes or 0-No ex. 1^0"
^XMB(3.9,25,2,9993,0)="""RTN"",""ECUMRPC1"",100,0)"
^XMB(3.9,25,2,9994,0)=" ;"
^XMB(3.9,25,2,9995,0)="""RTN"",""ECUMRPC1"",101,0)"
^XMB(3.9,25,2,9996,0)=" N ECX,ECP,ECN"
^XMB(3.9,25,2,9997,0)="""RTN"",""ECUMRPC1"",102,0)"
^XMB(3.9,25,2,9998,0)=" Q:$G(ECARY)"
^XMB(3.9,25,2,9999,0)="""RTN"",""ECUMRPC1"",103,0)"
^XMB(3.9,25,2,10000,0)=" D SETENV^ECUMRPC"
^XMB(3.9,25,2,10001,0)="""RTN"",""ECUMRPC1"",104,0)"
^XMB(3.9,25,2,10002,0)=" S ECP=$P(ECARY,U),ECN=$P(ECARY,U,2),RESULTS=""0^0"""
^XMB(3.9,25,2,10003,0)="""RTN"",""ECUMRPC1"",105,0)"
^XMB(3.9,25,2,10004,0)=" I ECP'="""",$D(^EC(725,""B"",ECP)) S $P(RESULTS,U)=1"
^XMB(3.9,25,2,10005,0)="""RTN"",""ECUMRPC1"",106,0)"
^XMB(3.9,25,2,10006,0)=" I ECN'="""" F ECX=""E"",""D"",""DL"" D  I $P(RESULTS,U,2) Q"
^XMB(3.9,25,2,10007,0)="""RTN"",""ECUMRPC1"",107,0)"
^XMB(3.9,25,2,10008,0)=" . I $D(^EC(725,ECX,ECN)) S $P(RESULTS,U,2)=1"
^XMB(3.9,25,2,10009,0)="""RTN"",""ECUMRPC1"",108,0)"
^XMB(3.9,25,2,10010,0)=" Q"
^XMB(3.9,25,2,10011,0)="""RTN"",""ECUMRPC1"",109,0)"
^XMB(3.9,25,2,10012,0)="SRCLST(RESULTS,ECARY) ;"
^XMB(3.9,25,2,10013,0)="""RTN"",""ECUMRPC1"",110,0)"
^XMB(3.9,25,2,10014,0)=" ;"
^XMB(3.9,25,2,10015,0)="""RTN"",""ECUMRPC1"",111,0)"
^XMB(3.9,25,2,10016,0)=" ;This broker entry returns an array of codes from a file based on a "
^XMB(3.9,25,2,10017,0)="""RTN"",""ECUMRPC1"",112,0)"
^XMB(3.9,25,2,10018,0)=" ;search string."
^XMB(3.9,25,2,10019,0)="""RTN"",""ECUMRPC1"",113,0)"
^XMB(3.9,25,2,10020,0)=" ;        RPC: EC GETLIST"
^XMB(3.9,25,2,10021,0)="""RTN"",""ECUMRPC1"",114,0)"
^XMB(3.9,25,2,10022,0)=" ;"
^XMB(3.9,25,2,10023,0)="""RTN"",""ECUMRPC1"",115,0)"
^XMB(3.9,25,2,10024,0)=" ;INPUTS      ECARY   - Contains the following subscripted elements"
^XMB(3.9,25,2,10025,0)="""RTN"",""ECUMRPC1"",116,0)"
^XMB(3.9,25,2,10026,0)=" ;             ECSTR  - Search string"
^XMB(3.9,25,2,10027,0)="""RTN"",""ECUMRPC1"",117,0)"
^XMB(3.9,25,2,10028,0)=" ;             ECFIL  - File to search"
^XMB(3.9,25,2,10029,0)="""RTN"",""ECUMRPC1"",118,0)"
^XMB(3.9,25,2,10030,0)=" ;             ECDIR  - Search order"
^XMB(3.9,25,2,10031,0)="""RTN"",""ECUMRPC1"",119,0)"
^XMB(3.9,25,2,10032,0)=" ;"
^XMB(3.9,25,2,10033,0)="""RTN"",""ECUMRPC1"",120,0)"
^XMB(3.9,25,2,10034,0)=" ;OUTPUTS     RESULTS - Array of values based on the search criteria."
^XMB(3.9,25,2,10035,0)="""RTN"",""ECUMRPC1"",121,0)"
^XMB(3.9,25,2,10036,0)=" ;"
^XMB(3.9,25,2,10037,0)="""RTN"",""ECUMRPC1"",122,0)"
^XMB(3.9,25,2,10038,0)=" N ECNT,DIC,ECSTR,ECFIL,ECORD,ECER,ECDI"
^XMB(3.9,25,2,10039,0)="""RTN"",""ECUMRPC1"",123,0)"
^XMB(3.9,25,2,10040,0)=" D SETENV^ECUMRPC"
^XMB(3.9,25,2,10041,0)="""RTN"",""ECUMRPC1"",124,0)"
^XMB(3.9,25,2,10042,0)=" S ECNT=0,ECFIL=$P(ECARY,U),ECSTR=$P(ECARY,U,2),ECDIR=$P(ECARY,U,3)"
^XMB(3.9,25,2,10043,0)="""RTN"",""ECUMRPC1"",125,0)"
^XMB(3.9,25,2,10044,0)=" S ECORD=$S(ECDIR=-1:""B"",1:""I"")"
^XMB(3.9,25,2,10045,0)="""RTN"",""ECUMRPC1"",126,0)"
^XMB(3.9,25,2,10046,0)=" K ^TMP($J,""ECFIND""),^TMP(""ECSRCH"",$J)"
^XMB(3.9,25,2,10047,0)="""RTN"",""ECUMRPC1"",127,0)"
^XMB(3.9,25,2,10048,0)=" I ECFIL="""" Q"
^XMB(3.9,25,2,10049,0)="""RTN"",""ECUMRPC1"",128,0)"
^XMB(3.9,25,2,10050,0)=" S ECNUM=44"
^XMB(3.9,25,2,10051,0)="""RTN"",""ECUMRPC1"",129,0)"
^XMB(3.9,25,2,10052,0)=" I ECFIL=420.1 D CSTCTR            ;Cost Center search"
^XMB(3.9,25,2,10053,0)="""RTN"",""ECUMRPC1"",130,0)"
^XMB(3.9,25,2,10054,0)=" I ECFIL=49 D SERVC                ;Service search"
^XMB(3.9,25,2,10055,0)="""RTN"",""ECUMRPC1"",131,0)"
^XMB(3.9,25,2,10056,0)=" I ECFIL=723 D MEDSPC              ;Medical specialty"
^XMB(3.9,25,2,10057,0)="""RTN"",""ECUMRPC1"",132,0)"
^XMB(3.9,25,2,10058,0)=" I ECFIL=40.7 D STPCDE G EXIT      ;Associated stop code"
^XMB(3.9,25,2,10059,0)="""RTN"",""ECUMRPC1"",133,0)"
^XMB(3.9,25,2,10060,0)=" I ECFIL=724 D DUNT G EXIT         ;DSS Unit"
^XMB(3.9,25,2,10061,0)="""RTN"",""ECUMRPC1"",134,0)"
^XMB(3.9,25,2,10062,0)=" I ECFIL=726 D ECAT                ;Category"
^XMB(3.9,25,2,10063,0)="""RTN"",""ECUMRPC1"",135,0)"
^XMB(3.9,25,2,10064,0)=" I ECFIL=4 D LOC                   ;Location"
^XMB(3.9,25,2,10065,0)="""RTN"",""ECUMRPC1"",136,0)"
^XMB(3.9,25,2,10066,0)=" I ECFIL=44 D ASCLN G EXIT         ;Associated clinic"
^XMB(3.9,25,2,10067,0)="""RTN"",""ECUMRPC1"",137,0)"
^XMB(3.9,25,2,10068,0)=" I ECFIL=757.01 D LEX^ECUMRPC2 G EXIT  ;Lex ICD code"
^XMB(3.9,25,2,10069,0)="""RTN"",""ECUMRPC1"",138,0)"
^XMB(3.9,25,2,10070,0)=" I ECFIL=200 D PROV^ECUMRPC2      ;Providers"
^XMB(3.9,25,2,10071,0)="""RTN"",""ECUMRPC1"",139,0)"
^XMB(3.9,25,2,10072,0)=" I $D(ECER) S ^TMP($J,""ECFIND"",1)=""0^Error occurred during search"" G EXIT"
^XMB(3.9,25,2,10073,0)="""RTN"",""ECUMRPC1"",140,0)"
^XMB(3.9,25,2,10074,0)=" D SORT"
^XMB(3.9,25,2,10075,0)="""RTN"",""ECUMRPC1"",141,0)"
^XMB(3.9,25,2,10076,0)="EXIT K ^TMP(""ECSRCH"",$J)"
^XMB(3.9,25,2,10077,0)="""RTN"",""ECUMRPC1"",142,0)"
^XMB(3.9,25,2,10078,0)=" S RESULTS=$NA(^TMP($J,""ECFIND""))"
^XMB(3.9,25,2,10079,0)="""RTN"",""ECUMRPC1"",143,0)"
^XMB(3.9,25,2,10080,0)=" Q"
^XMB(3.9,25,2,10081,0)="""RTN"",""ECUMRPC1"",144,0)"
^XMB(3.9,25,2,10082,0)="ASCLN ;Search for active associated clinics (file #44)"
^XMB(3.9,25,2,10083,0)="""RTN"",""ECUMRPC1"",145,0)"
^XMB(3.9,25,2,10084,0)=" N CNT,NOD,ECDT,INACT,REACT,ERR"
^XMB(3.9,25,2,10085,0)="""RTN"",""ECUMRPC1"",146,0)"
^XMB(3.9,25,2,10086,0)=" S CNT=0,ECDT=DT"
^XMB(3.9,25,2,10087,0)="""RTN"",""ECUMRPC1"",147,0)"
^XMB(3.9,25,2,10088,0)=" F  Q:CNT=ECNUM  S ECSTR=$O(^SC(""B"",ECSTR),ECDIR) Q:ECSTR=""""  S CLN="""" D"
^XMB(3.9,25,2,10089,0)="""RTN"",""ECUMRPC1"",148,0)"
^XMB(3.9,25,2,10090,0)=" .F  S CLN=$O(^SC(""B"",ECSTR,CLN),ECDIR) Q:CLN=""""  S NOD=$G(^SC(CLN,0)) D"
^XMB(3.9,25,2,10091,0)="""RTN"",""ECUMRPC1"",149,0)"
^XMB(3.9,25,2,10092,0)=" ..Q:NOD=""""  Q:$P(NOD,U,3)'=""C""  ;Q:+$G(^SC(CLN,""OOS""))"
^XMB(3.9,25,2,10093,0)="""RTN"",""ECUMRPC1"",150,0)"
^XMB(3.9,25,2,10094,0)=" ..S ERR=0 I $D(^SC(CLN,""I"")) D  I ERR Q"
^XMB(3.9,25,2,10095,0)="""RTN"",""ECUMRPC1"",151,0)"
^XMB(3.9,25,2,10096,0)=" ...S INACT=$P(^SC(CLN,""I""),U),REACT=$P(^SC(CLN,""I""),U,2)"
^XMB(3.9,25,2,10097,0)="""RTN"",""ECUMRPC1"",152,0)"
^XMB(3.9,25,2,10098,0)=" ...I INACT D  I ERR Q"
^XMB(3.9,25,2,10099,0)="""RTN"",""ECUMRPC1"",153,0)"
^XMB(3.9,25,2,10100,0)=" ....I REACT="""" S:ECDT'<INACT ERR=1 Q"
^XMB(3.9,25,2,10101,0)="""RTN"",""ECUMRPC1"",154,0)"
^XMB(3.9,25,2,10102,0)=" ....I ECDT'<INACT,ECDT<REACT S ERR=1 Q"
^XMB(3.9,25,2,10103,0)="""RTN"",""ECUMRPC1"",155,0)"
^XMB(3.9,25,2,10104,0)=" ...I REACT,ECDT<REACT S ERR=1"
^XMB(3.9,25,2,10105,0)="""RTN"",""ECUMRPC1"",156,0)"
^XMB(3.9,25,2,10106,0)=" ..S CNT=CNT+1,^TMP($J,""ECFIND"",CNT)=CLN_U_$P(NOD,U)"
^XMB(3.9,25,2,10107,0)="""RTN"",""ECUMRPC1"",157,0)"
^XMB(3.9,25,2,10108,0)=" Q"
^XMB(3.9,25,2,10109,0)="""RTN"",""ECUMRPC1"",158,0)"
^XMB(3.9,25,2,10110,0)="CSTCTR ;Search for cost centers (File #420.1)"
^XMB(3.9,25,2,10111,0)="""RTN"",""ECUMRPC1"",159,0)"
^XMB(3.9,25,2,10112,0)=" N ECNULL,INDX,STR,NSTR,I"
^XMB(3.9,25,2,10113,0)="""RTN"",""ECUMRPC1"",160,0)"
^XMB(3.9,25,2,10114,0)=" S $P(ECNULL,"" "",7)="" "",INDX=""B"""
^XMB(3.9,25,2,10115,0)="""RTN"",""ECUMRPC1"",161,0)"
^XMB(3.9,25,2,10116,0)=" I $E(ECSTR)?.N,$L(ECSTR)<7 S ECSTR=ECSTR_$E(ECNULL,1,7-$L(ECSTR))"
^XMB(3.9,25,2,10117,0)="""RTN"",""ECUMRPC1"",162,0)"
^XMB(3.9,25,2,10118,0)=" I $L($P(ECSTR,"" ""))=6,$P(ECSTR,"" "",2)?.A D   ;truncate for x-ref"
^XMB(3.9,25,2,10119,0)="""RTN"",""ECUMRPC1"",163,0)"
^XMB(3.9,25,2,10120,0)=" . S ECSTR=$P(ECSTR,"" "")_"" ""_$E($P(ECSTR,"" "",2,999),1,22)"
^XMB(3.9,25,2,10121,0)="""RTN"",""ECUMRPC1"",164,0)"
^XMB(3.9,25,2,10122,0)=" I $E(ECSTR)?.A S INDX=""C"",(STR,NSTR)="""" D  S ECSTR=NSTR"
^XMB(3.9,25,2,10123,0)="""RTN"",""ECUMRPC1"",165,0)"
^XMB(3.9,25,2,10124,0)=" .F I=1:1 S STR=$P(ECSTR,"" "",I) Q:STR=""""  D"
^XMB(3.9,25,2,10125,0)="""RTN"",""ECUMRPC1"",166,0)"
^XMB(3.9,25,2,10126,0)=" ..S STR=$E(STR)_$TR($E(STR,2,9999),""ABCDEFGHIJKLMNOPQRSTUVWXYZ"",""abcdefghijklmnopqrstuvwxyz"")"
^XMB(3.9,25,2,10127,0)="""RTN"",""ECUMRPC1"",167,0)"
^XMB(3.9,25,2,10128,0)=" ..S NSTR=NSTR_STR"
^XMB(3.9,25,2,10129,0)="""RTN"",""ECUMRPC1"",168,0)"
^XMB(3.9,25,2,10130,0)=" D LISTDIC(ECFIL,"""",.01,ECORD,ECNUM,ECSTR,"""",INDX,""I '$P(^(0),U,2)"","""",""^TMP(""""ECSRCH"""",$J)"",""ECER"")"
^XMB(3.9,25,2,10131,0)="""RTN"",""ECUMRPC1"",169,0)"
^XMB(3.9,25,2,10132,0)=" Q"
^XMB(3.9,25,2,10133,0)="""RTN"",""ECUMRPC1"",170,0)"
^XMB(3.9,25,2,10134,0)="SERVC ;Search for services (File #49)"
^XMB(3.9,25,2,10135,0)="""RTN"",""ECUMRPC1"",171,0)"
^XMB(3.9,25,2,10136,0)=" D LISTDIC(ECFIL,"""",.01,ECORD,ECNUM,ECSTR,"""","""","""","""",""^TMP(""""ECSRCH"""",$J)"",""ECER"")"
^XMB(3.9,25,2,10137,0)="""RTN"",""ECUMRPC1"",172,0)"
^XMB(3.9,25,2,10138,0)=" Q"
^XMB(3.9,25,2,10139,0)="""RTN"",""ECUMRPC1"",173,0)"
^XMB(3.9,25,2,10140,0)="MEDSPC ;Search for medical specialty (File #723)"
^XMB(3.9,25,2,10141,0)="""RTN"",""ECUMRPC1"",174,0)"
^XMB(3.9,25,2,10142,0)=" D LISTDIC(ECFIL,"""",.01,ECORD,ECNUM,ECSTR,"""","""","""","""",""^TMP(""""ECSRCH"""",$J)"",""ECER"")"
^XMB(3.9,25,2,10143,0)="""RTN"",""ECUMRPC1"",175,0)"
^XMB(3.9,25,2,10144,0)=" Q"
^XMB(3.9,25,2,10145,0)="""RTN"",""ECUMRPC1"",176,0)"
^XMB(3.9,25,2,10146,0)="STPCDE ;Search for associated stop code (File #40.7)"
^XMB(3.9,25,2,10147,0)="""RTN"",""ECUMRPC1"",177,0)"
^XMB(3.9,25,2,10148,0)=" N ECNT,INDX,ECNUL,STR,IEN"
^XMB(3.9,25,2,10149,0)="""RTN"",""ECUMRPC1"",178,0)"
^XMB(3.9,25,2,10150,0)=" S $P(ECNUL,""  "",30)="" "",INDX=""B"",ECNT=0,ECSTR=$P(ECSTR,""~"")"
^XMB(3.9,25,2,10151,0)="""RTN"",""ECUMRPC1"",179,0)"
^XMB(3.9,25,2,10152,0)=" I +ECSTR,+ECSTR?.N S INDX=""C"",IEN=0 D  Q"
^XMB(3.9,25,2,10153,0)="""RTN"",""ECUMRPC1"",180,0)"
^XMB(3.9,25,2,10154,0)=" .S ECSTR=$O(^DIC(40.7,INDX,+ECSTR)) I ECSTR="""" Q"
^XMB(3.9,25,2,10155,0)="""RTN"",""ECUMRPC1"",181,0)"
^XMB(3.9,25,2,10156,0)=" .F  S IEN=$O(^DIC(40.7,INDX,ECSTR,IEN)) Q:'IEN  D  I ECNT>(ECNUM-1) Q"
^XMB(3.9,25,2,10157,0)="""RTN"",""ECUMRPC1"",182,0)"
^XMB(3.9,25,2,10158,0)=" ..S STR=$G(^DIC(40.7,IEN,0)) I (STR="""")!($P(STR,U,3)'="""") Q"
^XMB(3.9,25,2,10159,0)="""RTN"",""ECUMRPC1"",183,0)"
^XMB(3.9,25,2,10160,0)=" ..S STR=$E($P(STR,U),1,30)_""  [""_$J($P(STR,U,2),3,0)_""]""_U_$P(STR,U,2)_U_IEN"
^XMB(3.9,25,2,10161,0)="""RTN"",""ECUMRPC1"",184,0)"
^XMB(3.9,25,2,10162,0)=" ..S ECNT=ECNT+1,^TMP($J,""ECFIND"",ECNT)=STR"
^XMB(3.9,25,2,10163,0)="""RTN"",""ECUMRPC1"",185,0)"
^XMB(3.9,25,2,10164,0)=" D LISTDIC(ECFIL,"""","".01;1"",ECORD,ECNUM,ECSTR,"""",INDX,""I $P(^(0),""""^"""",3)=""""""""!($P(^(0),U,3)'<DT)"","""",""^TMP(""""ECSRCH"""",$J)"",""ECER"")"
^XMB(3.9,25,2,10165,0)="""RTN"",""ECUMRPC1"",186,0)"
^XMB(3.9,25,2,10166,0)=" S ECNT=0"
^XMB(3.9,25,2,10167,0)="""RTN"",""ECUMRPC1"",187,0)"
^XMB(3.9,25,2,10168,0)=" F  S ECNT=$O(^TMP(""ECSRCH"",$J,""DILIST"",""ID"",ECNT)) Q:'ECNT  D"
^XMB(3.9,25,2,10169,0)="""RTN"",""ECUMRPC1"",188,0)"
^XMB(3.9,25,2,10170,0)=" .S STR=$G(^TMP(""ECSRCH"",$J,""DILIST"",""ID"",ECNT,.01))_U_$G(^(1))"
^XMB(3.9,25,2,10171,0)="""RTN"",""ECUMRPC1"",189,0)"
^XMB(3.9,25,2,10172,0)=" .S STR=$E($P(STR,U),1,30)_""  [""_$J($P(STR,U,2),3,0)_""]""_U_$P(STR,U,2)"
^XMB(3.9,25,2,10173,0)="""RTN"",""ECUMRPC1"",190,0)"
^XMB(3.9,25,2,10174,0)=" .S ^TMP($J,""ECFIND"",ECNT)=STR_U_^TMP(""ECSRCH"",$J,""DILIST"",2,ECNT)"
^XMB(3.9,25,2,10175,0)="""RTN"",""ECUMRPC1"",191,0)"
^XMB(3.9,25,2,10176,0)=" Q"
^XMB(3.9,25,2,10177,0)="""RTN"",""ECUMRPC1"",192,0)"
^XMB(3.9,25,2,10178,0)="DUNT ;Search for DSS unit (File #724)"
^XMB(3.9,25,2,10179,0)="""RTN"",""ECUMRPC1"",193,0)"
^XMB(3.9,25,2,10180,0)=" N ECNT,SNDPCE"
^XMB(3.9,25,2,10181,0)="""RTN"",""ECUMRPC1"",194,0)"
^XMB(3.9,25,2,10182,0)=" D LISTDIC(ECFIL,"""","".01;10;13"",ECORD,ECNUM,ECSTR,"""","""",""I '$P(^(0),""""^"""",6),$P(^(0),U,8)"","""",""^TMP(""""ECSRCH"""",$J)"",""ECER"")"
^XMB(3.9,25,2,10183,0)="""RTN"",""ECUMRPC1"",195,0)"
^XMB(3.9,25,2,10184,0)=" S ECNT=0"
^XMB(3.9,25,2,10185,0)="""RTN"",""ECUMRPC1"",196,0)"
^XMB(3.9,25,2,10186,0)=" F  S ECNT=$O(^TMP(""ECSRCH"",$J,""DILIST"",""ID"",ECNT)) Q:'ECNT  D"
^XMB(3.9,25,2,10187,0)="""RTN"",""ECUMRPC1"",197,0)"
^XMB(3.9,25,2,10188,0)=" .S SNDPCE=$G(^TMP(""ECSRCH"",$J,""DILIST"",""ID"",ECNT,13))"
^XMB(3.9,25,2,10189,0)="""RTN"",""ECUMRPC1"",198,0)"
^XMB(3.9,25,2,10190,0)=" .S SNDPCE=$S(SNDPCE=""O"":1,SNDPCE=""A"":1,1:0)"
^XMB(3.9,25,2,10191,0)="""RTN"",""ECUMRPC1"",199,0)"
^XMB(3.9,25,2,10192,0)=" .S ^TMP($J,""ECFIND"",ECNT)=$G(^TMP(""ECSRCH"",$J,""DILIST"",""ID"",ECNT,.01))_U_^TMP(""ECSRCH"",$J,""DILIST"",2,ECNT)_U_$G(^TMP(""ECSRCH"",$J,""DILIST"",""ID"",ECNT,10))_U_SNDPCE"
^XMB(3.9,25,2,10193,0)="""RTN"",""ECUMRPC1"",200,0)"
^XMB(3.9,25,2,10194,0)=" Q"
^XMB(3.9,25,2,10195,0)="""RTN"",""ECUMRPC1"",201,0)"
^XMB(3.9,25,2,10196,0)="ECAT ;Search for Category (File #726)"
^XMB(3.9,25,2,10197,0)="""RTN"",""ECUMRPC1"",202,0)"
^XMB(3.9,25,2,10198,0)=" D LISTDIC(ECFIL,"""",.01,ECORD,ECNUM,ECSTR,"""","""",""I $P(^(0),""""^"""",3)=""""""""!($P(^(0),U,3)>DT)"","""",""^TMP(""""ECSRCH"""",$J)"",""ECER"")"
^XMB(3.9,25,2,10199,0)="""RTN"",""ECUMRPC1"",203,0)"
^XMB(3.9,25,2,10200,0)=" Q"
^XMB(3.9,25,2,10201,0)="""RTN"",""ECUMRPC1"",204,0)"
^XMB(3.9,25,2,10202,0)="LOC ;Search for Location (File #4)"
^XMB(3.9,25,2,10203,0)="""RTN"",""ECUMRPC1"",205,0)"
^XMB(3.9,25,2,10204,0)=" D LISTDIC(ECFIL,"""",.01,ECORD,ECNUM,ECSTR,"""","""",""I $G(^(""""EC""""))"","""",""^TMP(""""ECSRCH"""",$J)"",""ECER"")"
^XMB(3.9,25,2,10205,0)="""RTN"",""ECUMRPC1"",206,0)"
^XMB(3.9,25,2,10206,0)=" Q"
^XMB(3.9,25,2,10207,0)="""RTN"",""ECUMRPC1"",207,0)"
^XMB(3.9,25,2,10208,0)="LISTDIC(ECFL,ECIEN,ECFLD,ECFLG,ECNUM,ECFRM,ECPRT,ECINDX,ECSCN,ECIND,ECTG,ECER) ;"
^XMB(3.9,25,2,10209,0)="""RTN"",""ECUMRPC1"",208,0)"
^XMB(3.9,25,2,10210,0)=" ;Produces a list of records in a file base on search string"
^XMB(3.9,25,2,10211,0)="""RTN"",""ECUMRPC1"",209,0)"
^XMB(3.9,25,2,10212,0)=" N DIC"
^XMB(3.9,25,2,10213,0)="""RTN"",""ECUMRPC1"",210,0)"
^XMB(3.9,25,2,10214,0)=" D LIST^DIC(ECFL,ECIEN,ECFLD,ECFLG,ECNUM,ECFRM,ECPRT,ECINDX,ECSCN,ECIND,ECTG,ECER)"
^XMB(3.9,25,2,10215,0)="""RTN"",""ECUMRPC1"",211,0)"
^XMB(3.9,25,2,10216,0)=" K ECFL,ECIEN,ECFLD,ECFLG,ECNUM,ECFRM,ECPRT,ECINDX,ECSCN,ECID"
^XMB(3.9,25,2,10217,0)="""RTN"",""ECUMRPC1"",212,0)"
^XMB(3.9,25,2,10218,0)=" Q"
^XMB(3.9,25,2,10219,0)="""RTN"",""ECUMRPC1"",213,0)"
^XMB(3.9,25,2,10220,0)="SORT ;Extracts data to be returned to broker"
^XMB(3.9,25,2,10221,0)="""RTN"",""ECUMRPC1"",214,0)"
^XMB(3.9,25,2,10222,0)=" N ECNT,STR"
^XMB(3.9,25,2,10223,0)="""RTN"",""ECUMRPC1"",215,0)"
^XMB(3.9,25,2,10224,0)=" S ECNT=0"
^XMB(3.9,25,2,10225,0)="""RTN"",""ECUMRPC1"",216,0)"
^XMB(3.9,25,2,10226,0)=" F  S ECNT=$O(^TMP(""ECSRCH"",$J,""DILIST"",""ID"",ECNT)) Q:'ECNT  D"
^XMB(3.9,25,2,10227,0)="""RTN"",""ECUMRPC1"",217,0)"
^XMB(3.9,25,2,10228,0)=" .S ^TMP($J,""ECFIND"",ECNT)=$G(^TMP(""ECSRCH"",$J,""DILIST"",""ID"",ECNT,.01))_U_^TMP(""ECSRCH"",$J,""DILIST"",2,ECNT)"
^XMB(3.9,25,2,10229,0)="""RTN"",""ECUMRPC1"",218,0)"
^XMB(3.9,25,2,10230,0)=" Q"
^XMB(3.9,25,2,10231,0)="""RTN"",""ECUMRPC2"")"
^XMB(3.9,25,2,10232,0)="0^41^B29933557^B19271367"
^XMB(3.9,25,2,10233,0)="""RTN"",""ECUMRPC2"",1,0)"
^XMB(3.9,25,2,10234,0)="ECUMRPC2 ;ALB/JAM;Event Capture Management Broker Utils ; 10/4/00 4:58pm"
^XMB(3.9,25,2,10235,0)="""RTN"",""ECUMRPC2"",2,0)"
^XMB(3.9,25,2,10236,0)=" ;;2.0; EVENT CAPTURE ;**25,30,42,46,47,49,75,72**;8 May 96"
^XMB(3.9,25,2,10237,0)="""RTN"",""ECUMRPC2"",3,0)"
^XMB(3.9,25,2,10238,0)="GLOC(RESULTS,ECARY) ;"
^XMB(3.9,25,2,10239,0)="""RTN"",""ECUMRPC2"",4,0)"
^XMB(3.9,25,2,10240,0)=" ;"
^XMB(3.9,25,2,10241,0)="""RTN"",""ECUMRPC2"",5,0)"
^XMB(3.9,25,2,10242,0)=" ;This broker entry point returns all active Event Capture locations"
^XMB(3.9,25,2,10243,0)="""RTN"",""ECUMRPC2"",6,0)"
^XMB(3.9,25,2,10244,0)=" ;        RPC: EC GETLOC"
^XMB(3.9,25,2,10245,0)="""RTN"",""ECUMRPC2"",7,0)"
^XMB(3.9,25,2,10246,0)=" ;INPUTS         ECARY - Contains the following subscripted elements"
^XMB(3.9,25,2,10247,0)="""RTN"",""ECUMRPC2"",8,0)"
^XMB(3.9,25,2,10248,0)=" ;               STAT   - Active or inactive locations (optional)"
^XMB(3.9,25,2,10249,0)="""RTN"",""ECUMRPC2"",9,0)"
^XMB(3.9,25,2,10250,0)=" ;               A-ctive (default), I-nactive, B-oth"
^XMB(3.9,25,2,10251,0)="""RTN"",""ECUMRPC2"",10,0)"
^XMB(3.9,25,2,10252,0)=" ;"
^XMB(3.9,25,2,10253,0)="""RTN"",""ECUMRPC2"",11,0)"
^XMB(3.9,25,2,10254,0)=" ;OUTPUTS        RESULTS - The array of active Event Capture locations."
^XMB(3.9,25,2,10255,0)="""RTN"",""ECUMRPC2"",12,0)"
^XMB(3.9,25,2,10256,0)=" ;               PIECE - Description"
^XMB(3.9,25,2,10257,0)="""RTN"",""ECUMRPC2"",13,0)"
^XMB(3.9,25,2,10258,0)=" ;                 1     Location IEN"
^XMB(3.9,25,2,10259,0)="""RTN"",""ECUMRPC2"",14,0)"
^XMB(3.9,25,2,10260,0)=" ;                 2     LOC description"
^XMB(3.9,25,2,10261,0)="""RTN"",""ECUMRPC2"",15,0)"
^XMB(3.9,25,2,10262,0)=" ;                 3     State Abbreviation"
^XMB(3.9,25,2,10263,0)="""RTN"",""ECUMRPC2"",16,0)"
^XMB(3.9,25,2,10264,0)=" ;                 4     Current Location Flag"
^XMB(3.9,25,2,10265,0)="""RTN"",""ECUMRPC2"",17,0)"
^XMB(3.9,25,2,10266,0)=" ;                 5     Facility Type"
^XMB(3.9,25,2,10267,0)="""RTN"",""ECUMRPC2"",18,0)"
^XMB(3.9,25,2,10268,0)=" ;                 6     Station Number"
^XMB(3.9,25,2,10269,0)="""RTN"",""ECUMRPC2"",19,0)"
^XMB(3.9,25,2,10270,0)=" N LOC,STAT,CNT,CLOC,ST,NODE,ACT,ECLOC,ELOC,ECFT,ECSN"
^XMB(3.9,25,2,10271,0)="""RTN"",""ECUMRPC2"",20,0)"
^XMB(3.9,25,2,10272,0)=" D SETENV^ECUMRPC"
^XMB(3.9,25,2,10273,0)="""RTN"",""ECUMRPC2"",21,0)"
^XMB(3.9,25,2,10274,0)=" K ^TMP($J,""ECLOCATION"")"
^XMB(3.9,25,2,10275,0)="""RTN"",""ECUMRPC2"",22,0)"
^XMB(3.9,25,2,10276,0)=" S STAT=$P($G(ECARY),U),(CNT,LOC)=0,ACT=0 S:STAT="""" STAT=""A"""
^XMB(3.9,25,2,10277,0)="""RTN"",""ECUMRPC2"",23,0)"
^XMB(3.9,25,2,10278,0)=" D GETLOC^ECL(.ECLOC)"
^XMB(3.9,25,2,10279,0)="""RTN"",""ECUMRPC2"",24,0)"
^XMB(3.9,25,2,10280,0)=" F  S LOC=$O(ECLOC(LOC)) Q:'LOC  S ELOC($P(ECLOC(LOC),U,2))="""""
^XMB(3.9,25,2,10281,0)="""RTN"",""ECUMRPC2"",25,0)"
^XMB(3.9,25,2,10282,0)=" S LOC=0"
^XMB(3.9,25,2,10283,0)="""RTN"",""ECUMRPC2"",26,0)"
^XMB(3.9,25,2,10284,0)=" F  S LOC=$O(^DIC(4,LOC)) Q:'LOC  S NODE=$G(^DIC(4,LOC,0)) I NODE'="""" D"
^XMB(3.9,25,2,10285,0)="""RTN"",""ECUMRPC2"",27,0)"
^XMB(3.9,25,2,10286,0)=" . I $P(NODE,U)="""" Q"
^XMB(3.9,25,2,10287,0)="""RTN"",""ECUMRPC2"",28,0)"
^XMB(3.9,25,2,10288,0)=" . I ($P(NODE,U,11)=""I"")!($P($G(^DIC(4,LOC,99)),U,4)) S ACT=1"
^XMB(3.9,25,2,10289,0)="""RTN"",""ECUMRPC2"",29,0)"
^XMB(3.9,25,2,10290,0)=" . I $S(STAT=""A""&(ACT):1,STAT=""I""&('ACT):1,1:0) Q"
^XMB(3.9,25,2,10291,0)="""RTN"",""ECUMRPC2"",30,0)"
^XMB(3.9,25,2,10292,0)=" . S CLOC=$D(ELOC(LOC)),CLOC=$S(CLOC:""YES"",1:"""")"
^XMB(3.9,25,2,10293,0)="""RTN"",""ECUMRPC2"",31,0)"
^XMB(3.9,25,2,10294,0)=" . S CNT=CNT+1,ST=$P(NODE,U,2) S:ST'="""" ST=$$GET1^DIQ(5,ST,1,""I"")"
^XMB(3.9,25,2,10295,0)="""RTN"",""ECUMRPC2"",32,0)"
^XMB(3.9,25,2,10296,0)=" . S ECFT=$P($G(^DIC(4.1,+$G(^DIC(4,LOC,3)),0)),U)"
^XMB(3.9,25,2,10297,0)="""RTN"",""ECUMRPC2"",33,0)"
^XMB(3.9,25,2,10298,0)=" . S ECSN=$P($G(^DIC(4,LOC,99)),U)"
^XMB(3.9,25,2,10299,0)="""RTN"",""ECUMRPC2"",34,0)"
^XMB(3.9,25,2,10300,0)=" . S ^TMP($J,""ECLOCATION"",CNT)=LOC_U_$P(NODE,U)_U_ST_U_CLOC_U_ECFT_U_ECSN"
^XMB(3.9,25,2,10301,0)="""RTN"",""ECUMRPC2"",35,0)"
^XMB(3.9,25,2,10302,0)=" S RESULTS=$NA(^TMP($J,""ECLOCATION""))"
^XMB(3.9,25,2,10303,0)="""RTN"",""ECUMRPC2"",36,0)"
^XMB(3.9,25,2,10304,0)=" Q"
^XMB(3.9,25,2,10305,0)="""RTN"",""ECUMRPC2"",37,0)"
^XMB(3.9,25,2,10306,0)="CPTFND(RESULTS,ECARY) ;"
^XMB(3.9,25,2,10307,0)="""RTN"",""ECUMRPC2"",38,0)"
^XMB(3.9,25,2,10308,0)=" ;"
^XMB(3.9,25,2,10309,0)="""RTN"",""ECUMRPC2"",39,0)"
^XMB(3.9,25,2,10310,0)=" ;This broker entry point does a search on a CPT string and returns"
^XMB(3.9,25,2,10311,0)="""RTN"",""ECUMRPC2"",40,0)"
^XMB(3.9,25,2,10312,0)=" ;a list of matches from file #81"
^XMB(3.9,25,2,10313,0)="""RTN"",""ECUMRPC2"",41,0)"
^XMB(3.9,25,2,10314,0)=" ;        RPC: EC GETCPTLST"
^XMB(3.9,25,2,10315,0)="""RTN"",""ECUMRPC2"",42,0)"
^XMB(3.9,25,2,10316,0)=" ;INPUTS      ECARY   - Contains the following subscripted elements"
^XMB(3.9,25,2,10317,0)="""RTN"",""ECUMRPC2"",43,0)"
^XMB(3.9,25,2,10318,0)=" ;             CPTSTR - CPT search string"
^XMB(3.9,25,2,10319,0)="""RTN"",""ECUMRPC2"",44,0)"
^XMB(3.9,25,2,10320,0)=" ;"
^XMB(3.9,25,2,10321,0)="""RTN"",""ECUMRPC2"",45,0)"
^XMB(3.9,25,2,10322,0)=" ;OUTPUTS     RESULTS - The array of cpt codes. Data pieces as follows:-"
^XMB(3.9,25,2,10323,0)="""RTN"",""ECUMRPC2"",46,0)"
^XMB(3.9,25,2,10324,0)=" ;             CPT ien^CPT code^Name"
^XMB(3.9,25,2,10325,0)="""RTN"",""ECUMRPC2"",47,0)"
^XMB(3.9,25,2,10326,0)=" ;"
^XMB(3.9,25,2,10327,0)="""RTN"",""ECUMRPC2"",48,0)"
^XMB(3.9,25,2,10328,0)=" N CPTSTR,ECNT,DIC,ECTG,ECER"
^XMB(3.9,25,2,10329,0)="""RTN"",""ECUMRPC2"",49,0)"
^XMB(3.9,25,2,10330,0)=" D SETENV^ECUMRPC"
^XMB(3.9,25,2,10331,0)="""RTN"",""ECUMRPC2"",50,0)"
^XMB(3.9,25,2,10332,0)=" S CPTSTR=$P(ECARY,U),ECNT=0 I CPTSTR="""" Q"
^XMB(3.9,25,2,10333,0)="""RTN"",""ECUMRPC2"",51,0)"
^XMB(3.9,25,2,10334,0)=" K ^TMP($J,""ECPTSRCH""),^TMP(""ECCPT"",$J)"
^XMB(3.9,25,2,10335,0)="""RTN"",""ECUMRPC2"",52,0)"
^XMB(3.9,25,2,10336,0)=" D CPTSRH(81,CPTSTR)"
^XMB(3.9,25,2,10337,0)="""RTN"",""ECUMRPC2"",53,0)"
^XMB(3.9,25,2,10338,0)=" F  S ECNT=$O(^TMP(""ECCPT"",$J,""DILIST"",""ID"",ECNT)) Q:'ECNT  D"
^XMB(3.9,25,2,10339,0)="""RTN"",""ECUMRPC2"",54,0)"
^XMB(3.9,25,2,10340,0)=" .S ^TMP($J,""ECPTSRCH"",ECNT)=$G(^TMP(""ECCPT"",$J,""DILIST"",2,ECNT))_U_^TMP(""ECCPT"",$J,""DILIST"",""ID"",ECNT,.01)_U_^TMP(""ECCPT"",$J,""DILIST"",""ID"",ECNT,2)"
^XMB(3.9,25,2,10341,0)="""RTN"",""ECUMRPC2"",55,0)"
^XMB(3.9,25,2,10342,0)=" K ^TMP(""ECCPT"",$J)"
^XMB(3.9,25,2,10343,0)="""RTN"",""ECUMRPC2"",56,0)"
^XMB(3.9,25,2,10344,0)=" S RESULTS=$NA(^TMP($J,""ECPTSRCH""))"
^XMB(3.9,25,2,10345,0)="""RTN"",""ECUMRPC2"",57,0)"
^XMB(3.9,25,2,10346,0)=" Q"
^XMB(3.9,25,2,10347,0)="""RTN"",""ECUMRPC2"",58,0)"
^XMB(3.9,25,2,10348,0)=" ;"
^XMB(3.9,25,2,10349,0)="""RTN"",""ECUMRPC2"",59,0)"
^XMB(3.9,25,2,10350,0)="PXFND(RESULTS,ECARY) ;"
^XMB(3.9,25,2,10351,0)="""RTN"",""ECUMRPC2"",60,0)"
^XMB(3.9,25,2,10352,0)=" ;"
^XMB(3.9,25,2,10353,0)="""RTN"",""ECUMRPC2"",61,0)"
^XMB(3.9,25,2,10354,0)=" ;This broker entry point does a search on a procedure string and returns"
^XMB(3.9,25,2,10355,0)="""RTN"",""ECUMRPC2"",62,0)"
^XMB(3.9,25,2,10356,0)=" ;a list of matches from file #81 and/or #725"
^XMB(3.9,25,2,10357,0)="""RTN"",""ECUMRPC2"",63,0)"
^XMB(3.9,25,2,10358,0)=" ;        RPC: EC GETPXLST"
^XMB(3.9,25,2,10359,0)="""RTN"",""ECUMRPC2"",64,0)"
^XMB(3.9,25,2,10360,0)=" ;INPUTS      ECARY   - Contains the following subscripted elements"
^XMB(3.9,25,2,10361,0)="""RTN"",""ECUMRPC2"",65,0)"
^XMB(3.9,25,2,10362,0)=" ;             PXSTR -  Procedure search string"
^XMB(3.9,25,2,10363,0)="""RTN"",""ECUMRPC2"",66,0)"
^XMB(3.9,25,2,10364,0)=" ;"
^XMB(3.9,25,2,10365,0)="""RTN"",""ECUMRPC2"",67,0)"
^XMB(3.9,25,2,10366,0)=" ;OUTPUTS     RESULTS - The array of procedures. Data pieces as follows:-"
^XMB(3.9,25,2,10367,0)="""RTN"",""ECUMRPC2"",68,0)"
^XMB(3.9,25,2,10368,0)=" ;             Procedure ien^Procedure code  Procedure Name"
^XMB(3.9,25,2,10369,0)="""RTN"",""ECUMRPC2"",69,0)"
^XMB(3.9,25,2,10370,0)=" ;"
^XMB(3.9,25,2,10371,0)="""RTN"",""ECUMRPC2"",70,0)"
^XMB(3.9,25,2,10372,0)=" N CPTSTR,ECNT,DIC,ECX,CNT,ECTG,ECER,PXSTR,ECSTR"
^XMB(3.9,25,2,10373,0)="""RTN"",""ECUMRPC2"",71,0)"
^XMB(3.9,25,2,10374,0)=" D SETENV^ECUMRPC"
^XMB(3.9,25,2,10375,0)="""RTN"",""ECUMRPC2"",72,0)"
^XMB(3.9,25,2,10376,0)=" S PXSTR=$P(ECARY,U),ECNT=0 I PXSTR="""" Q"
^XMB(3.9,25,2,10377,0)="""RTN"",""ECUMRPC2"",73,0)"
^XMB(3.9,25,2,10378,0)=" K ^TMP($J,""ECPXSRCH""),^TMP(""ECCPT"",$J),^TMP(""ECCPT1"",$J)"
^XMB(3.9,25,2,10379,0)="""RTN"",""ECUMRPC2"",74,0)"
^XMB(3.9,25,2,10380,0)=" D "
^XMB(3.9,25,2,10381,0)="""RTN"",""ECUMRPC2"",75,0)"
^XMB(3.9,25,2,10382,0)=" . I $P(PXSTR,""."")=""A"" D CPTSRH(81,$P(PXSTR,""."",2)) Q"
^XMB(3.9,25,2,10383,0)="""RTN"",""ECUMRPC2"",76,0)"
^XMB(3.9,25,2,10384,0)=" . I $P(PXSTR,""."")=""B"" D CPTSRH(725,$P(PXSTR,""."",2)) Q"
^XMB(3.9,25,2,10385,0)="""RTN"",""ECUMRPC2"",77,0)"
^XMB(3.9,25,2,10386,0)=" . F ECX=81,725 D CPTSRH(ECX,PXSTR)"
^XMB(3.9,25,2,10387,0)="""RTN"",""ECUMRPC2"",78,0)"
^XMB(3.9,25,2,10388,0)=" F  S ECNT=$O(^TMP(""ECCPT"",$J,""DILIST"",""ID"",ECNT)) Q:'ECNT  D"
^XMB(3.9,25,2,10389,0)="""RTN"",""ECUMRPC2"",79,0)"
^XMB(3.9,25,2,10390,0)=" .S ECID=$G(^TMP(""ECCPT"",$J,""DILIST"",2,ECNT))_"";ICPT("""
^XMB(3.9,25,2,10391,0)="""RTN"",""ECUMRPC2"",80,0)"
^XMB(3.9,25,2,10392,0)=" .S ECSTR=^TMP(""ECCPT"",$J,""DILIST"",""ID"",ECNT,.01)_""  ""_^(2)"
^XMB(3.9,25,2,10393,0)="""RTN"",""ECUMRPC2"",81,0)"
^XMB(3.9,25,2,10394,0)=" .S ^TMP($J,""ECPXSRCH"",ECNT)=ECID_U_ECSTR"
^XMB(3.9,25,2,10395,0)="""RTN"",""ECUMRPC2"",82,0)"
^XMB(3.9,25,2,10396,0)=" S ECNT=0,CNT=+$O(^TMP($J,""ECPXSRCH"",""A""),-1)"
^XMB(3.9,25,2,10397,0)="""RTN"",""ECUMRPC2"",83,0)"
^XMB(3.9,25,2,10398,0)=" F  S ECNT=$O(^TMP(""ECCPT1"",$J,""DILIST"",""ID"",ECNT)) Q:'ECNT  D"
^XMB(3.9,25,2,10399,0)="""RTN"",""ECUMRPC2"",84,0)"
^XMB(3.9,25,2,10400,0)=" .S CNT=CNT+1,ECID=$G(^TMP(""ECCPT1"",$J,""DILIST"",2,ECNT))_"";EC(725,"""
^XMB(3.9,25,2,10401,0)="""RTN"",""ECUMRPC2"",85,0)"
^XMB(3.9,25,2,10402,0)=" .S ECSTR=^TMP(""ECCPT1"",$J,""DILIST"",""ID"",ECNT,1)_""  ""_^(.01)"
^XMB(3.9,25,2,10403,0)="""RTN"",""ECUMRPC2"",86,0)"
^XMB(3.9,25,2,10404,0)=" .S ^TMP($J,""ECPXSRCH"",CNT)=ECID_U_ECSTR"
^XMB(3.9,25,2,10405,0)="""RTN"",""ECUMRPC2"",87,0)"
^XMB(3.9,25,2,10406,0)=" K ^TMP(""ECCPT"",$J),^TMP(""ECCPT1"",$J)"
^XMB(3.9,25,2,10407,0)="""RTN"",""ECUMRPC2"",88,0)"
^XMB(3.9,25,2,10408,0)=" S RESULTS=$NA(^TMP($J,""ECPXSRCH""))"
^XMB(3.9,25,2,10409,0)="""RTN"",""ECUMRPC2"",89,0)"
^XMB(3.9,25,2,10410,0)=" Q"
^XMB(3.9,25,2,10411,0)="""RTN"",""ECUMRPC2"",90,0)"
^XMB(3.9,25,2,10412,0)="CPTSRH(FILE,CPTSTR) ;Searches either file 81 or 725 for a CPT string"
^XMB(3.9,25,2,10413,0)="""RTN"",""ECUMRPC2"",91,0)"
^XMB(3.9,25,2,10414,0)=" I FILE=81 D"
^XMB(3.9,25,2,10415,0)="""RTN"",""ECUMRPC2"",92,0)"
^XMB(3.9,25,2,10416,0)=" .D FINDIC(81,"""","".01;2"",""M"",CPTSTR,100,"""",""I $P($$CPT^ICPTCOD(+Y),""""^"""",7)"","""",""^TMP(""""ECCPT"""",$J)"")"
^XMB(3.9,25,2,10417,0)="""RTN"",""ECUMRPC2"",93,0)"
^XMB(3.9,25,2,10418,0)=" I FILE=725 D"
^XMB(3.9,25,2,10419,0)="""RTN"",""ECUMRPC2"",94,0)"
^XMB(3.9,25,2,10420,0)=" .D FINDIC(725,"""","".01;1"",""M"",CPTSTR,100,"""",""I '$P(^(0),""""^"""",3)"","""",""^TMP(""""ECCPT1"""",$J)"")"
^XMB(3.9,25,2,10421,0)="""RTN"",""ECUMRPC2"",95,0)"
^XMB(3.9,25,2,10422,0)=" Q"
^XMB(3.9,25,2,10423,0)="""RTN"",""ECUMRPC2"",96,0)"
^XMB(3.9,25,2,10424,0)="FINDIC(ECFL,ECIEN,ECFLD,ECFLG,ECVAL,ECN,ECINDX,ECSCN,ECID,ECTG,ECER) ;"
^XMB(3.9,25,2,10425,0)="""RTN"",""ECUMRPC2"",97,0)"
^XMB(3.9,25,2,10426,0)=" ;Find records in a file base on search string"
^XMB(3.9,25,2,10427,0)="""RTN"",""ECUMRPC2"",98,0)"
^XMB(3.9,25,2,10428,0)=" S ECER=$G(ECER)"
^XMB(3.9,25,2,10429,0)="""RTN"",""ECUMRPC2"",99,0)"
^XMB(3.9,25,2,10430,0)=" D FIND^DIC(ECFL,ECIEN,ECFLD,ECFLG,ECVAL,ECN,ECINDX,ECSCN,ECID,ECTG,ECER)"
^XMB(3.9,25,2,10431,0)="""RTN"",""ECUMRPC2"",100,0)"
^XMB(3.9,25,2,10432,0)=" K ECFL,ECIEN,ECFLD,ECFLG,ECVAL,ECN,ECINDX,ECSCN,ECID"
^XMB(3.9,25,2,10433,0)="""RTN"",""ECUMRPC2"",101,0)"
^XMB(3.9,25,2,10434,0)=" Q"
^XMB(3.9,25,2,10435,0)="""RTN"",""ECUMRPC2"",102,0)"
^XMB(3.9,25,2,10436,0)="PROV ;Return a set of providers from the NEW PERSON file"
^XMB(3.9,25,2,10437,0)="""RTN"",""ECUMRPC2"",103,0)"
^XMB(3.9,25,2,10438,0)=" ;Input Variables:-"
^XMB(3.9,25,2,10439,0)="""RTN"",""ECUMRPC2"",104,0)"
^XMB(3.9,25,2,10440,0)=" ;  FROM   - text to $O from"
^XMB(3.9,25,2,10441,0)="""RTN"",""ECUMRPC2"",105,0)"
^XMB(3.9,25,2,10442,0)=" ;  DATE   - checks for an active person class on this date (optional)"
^XMB(3.9,25,2,10443,0)="""RTN"",""ECUMRPC2"",106,0)"
^XMB(3.9,25,2,10444,0)=" ;  ECDIR  - $O direction"
^XMB(3.9,25,2,10445,0)="""RTN"",""ECUMRPC2"",107,0)"
^XMB(3.9,25,2,10446,0)=" ;  KEY    - screen users by security key (optional)"
^XMB(3.9,25,2,10447,0)="""RTN"",""ECUMRPC2"",108,0)"
^XMB(3.9,25,2,10448,0)=" ;"
^XMB(3.9,25,2,10449,0)="""RTN"",""ECUMRPC2"",109,0)"
^XMB(3.9,25,2,10450,0)=" ;Output Variables:-"
^XMB(3.9,25,2,10451,0)="""RTN"",""ECUMRPC2"",110,0)"
^XMB(3.9,25,2,10452,0)=" ;  ^TMP($J,""ECFIND"",1..n - returned array"
^XMB(3.9,25,2,10453,0)="""RTN"",""ECUMRPC2"",111,0)"
^XMB(3.9,25,2,10454,0)=" ;     IEN of file 200^Provider Name^occupation^specialty^subspecialty"
^XMB(3.9,25,2,10455,0)="""RTN"",""ECUMRPC2"",112,0)"
^XMB(3.9,25,2,10456,0)=" ;"
^XMB(3.9,25,2,10457,0)="""RTN"",""ECUMRPC2"",113,0)"
^XMB(3.9,25,2,10458,0)=" N I,IEN,CNT,FROM,DATE,ECUTN S I=0,CNT=44  ;KEY=""PROVIDER"""
^XMB(3.9,25,2,10459,0)="""RTN"",""ECUMRPC2"",114,0)"
^XMB(3.9,25,2,10460,0)=" ;S FROM=$P(ECSTR,""|""),DATE=$P(ECSTR,""|"",2)"
^XMB(3.9,25,2,10461,0)="""RTN"",""ECUMRPC2"",115,0)"
^XMB(3.9,25,2,10462,0)=" S FROM=$P(ECSTR,""|""),DATE=$P(ECSTR,""|"",2),REPORT=$P(ECSTR,""|"",3)"
^XMB(3.9,25,2,10463,0)="""RTN"",""ECUMRPC2"",116,0)"
^XMB(3.9,25,2,10464,0)=" F  Q:I'<CNT  S FROM=$O(^VA(200,""B"",FROM),ECDIR) Q:FROM=""""  D"
^XMB(3.9,25,2,10465,0)="""RTN"",""ECUMRPC2"",117,0)"
^XMB(3.9,25,2,10466,0)=" . S IEN="""" F  S IEN=$O(^VA(200,""B"",FROM,IEN),ECDIR) Q:'IEN  D "
^XMB(3.9,25,2,10467,0)="""RTN"",""ECUMRPC2"",118,0)"
^XMB(3.9,25,2,10468,0)=" . . ;I $L(KEY),'$D(^XUSEC(KEY,+IEN)) Q"
^XMB(3.9,25,2,10469,0)="""RTN"",""ECUMRPC2"",119,0)"
^XMB(3.9,25,2,10470,0)=" . . ;I +$G(ALLUSERS)=0,'$$ACTIVE^XUSER(IEN) Q  ; terminated user"
^XMB(3.9,25,2,10471,0)="""RTN"",""ECUMRPC2"",120,0)"
^XMB(3.9,25,2,10472,0)=" . . I REPORT=""R"" S I=I+1,^TMP($J,""ECFIND"",I)=IEN_""^""_FROM_""^"" Q"
^XMB(3.9,25,2,10473,0)="""RTN"",""ECUMRPC2"",121,0)"
^XMB(3.9,25,2,10474,0)=" . . S ECUTN=$$GET^XUA4A72(IEN,DATE)"
^XMB(3.9,25,2,10475,0)="""RTN"",""ECUMRPC2"",122,0)"
^XMB(3.9,25,2,10476,0)=" . . I DATE>0,ECUTN<1 Q"
^XMB(3.9,25,2,10477,0)="""RTN"",""ECUMRPC2"",123,0)"
^XMB(3.9,25,2,10478,0)=" . . S I=I+1,^TMP($J,""ECFIND"",I)=IEN_""^""_FROM_""^""_$P(ECUTN,""^"",2,4)"
^XMB(3.9,25,2,10479,0)="""RTN"",""ECUMRPC2"",124,0)"
^XMB(3.9,25,2,10480,0)=" Q"
^XMB(3.9,25,2,10481,0)="""RTN"",""ECUMRPC2"",125,0)"
^XMB(3.9,25,2,10482,0)="LEX ; returns a list of ICD code from lexicon lookup; called from ECUMRPC1"
^XMB(3.9,25,2,10483,0)="""RTN"",""ECUMRPC2"",126,0)"
^XMB(3.9,25,2,10484,0)=" ;Input Variables:-"
^XMB(3.9,25,2,10485,0)="""RTN"",""ECUMRPC2"",127,0)"
^XMB(3.9,25,2,10486,0)=" ;  ECSTR  - APP|ECX|ECDT"
^XMB(3.9,25,2,10487,0)="""RTN"",""ECUMRPC2"",128,0)"
^XMB(3.9,25,2,10488,0)=" ;           application|Search string|procedure date"
^XMB(3.9,25,2,10489,0)="""RTN"",""ECUMRPC2"",129,0)"
^XMB(3.9,25,2,10490,0)=" ;"
^XMB(3.9,25,2,10491,0)="""RTN"",""ECUMRPC2"",130,0)"
^XMB(3.9,25,2,10492,0)=" ;Output Variables:-"
^XMB(3.9,25,2,10493,0)="""RTN"",""ECUMRPC2"",131,0)"
^XMB(3.9,25,2,10494,0)=" ;  ^TMP($J,""ECFIND"",1..n - returned array"
^XMB(3.9,25,2,10495,0)="""RTN"",""ECUMRPC2"",132,0)"
^XMB(3.9,25,2,10496,0)=" ;     ICD9 Code^LEX description^IEN of file 80^IEN of file 757.01"
^XMB(3.9,25,2,10497,0)="""RTN"",""ECUMRPC2"",133,0)"
^XMB(3.9,25,2,10498,0)=" ;"
^XMB(3.9,25,2,10499,0)="""RTN"",""ECUMRPC2"",134,0)"
^XMB(3.9,25,2,10500,0)=" N LEX,ILST,I,IEN,ECX,APP,ECDT,ICD9,ICDIEN,DIC,ECCD"
^XMB(3.9,25,2,10501,0)="""RTN"",""ECUMRPC2"",135,0)"
^XMB(3.9,25,2,10502,0)=" S APP=$P(ECSTR,""|""),ECX=$P(ECSTR,""|"",2),ECDT=$P(ECSTR,""|"",3)"
^XMB(3.9,25,2,10503,0)="""RTN"",""ECUMRPC2"",136,0)"
^XMB(3.9,25,2,10504,0)=" S ECDT=$G(ECDT,DT),DIC=""^ICD9("""
^XMB(3.9,25,2,10505,0)="""RTN"",""ECUMRPC2"",137,0)"
^XMB(3.9,25,2,10506,0)=" ;spacebar default for DUZ"
^XMB(3.9,25,2,10507,0)="""RTN"",""ECUMRPC2"",138,0)"
^XMB(3.9,25,2,10508,0)=" I ECX="" "",+($G(DUZ))>0 S IEN=$G(^DISV(DUZ,DIC)) I +IEN D"
^XMB(3.9,25,2,10509,0)="""RTN"",""ECUMRPC2"",139,0)"
^XMB(3.9,25,2,10510,0)=" .S ECCD=$$ICDDX^ICDCODE(IEN,ECDT) S:+ECCD>0 ECX=$P(ECCD,U,2)"
^XMB(3.9,25,2,10511,0)="""RTN"",""ECUMRPC2"",140,0)"
^XMB(3.9,25,2,10512,0)=" D CONFIG^LEXSET(APP,APP,ECDT)    ;LEX DBIA1577"
^XMB(3.9,25,2,10513,0)="""RTN"",""ECUMRPC2"",141,0)"
^XMB(3.9,25,2,10514,0)=" D LOOK^LEXA(ECX,APP,1,"""",ECDT)   ;LEX DBIA2950"
^XMB(3.9,25,2,10515,0)="""RTN"",""ECUMRPC2"",142,0)"
^XMB(3.9,25,2,10516,0)=" I '$D(LEX(""LIST"",1)) S ^TMP($J,""ECFIND"",1)=""0^No matches found."" Q"
^XMB(3.9,25,2,10517,0)="""RTN"",""ECUMRPC2"",143,0)"
^XMB(3.9,25,2,10518,0)=" ;LEX DBIA1573"
^XMB(3.9,25,2,10519,0)="""RTN"",""ECUMRPC2"",144,0)"
^XMB(3.9,25,2,10520,0)=" S ILST=1,IEN=+LEX(""LIST"",1)"
^XMB(3.9,25,2,10521,0)="""RTN"",""ECUMRPC2"",145,0)"
^XMB(3.9,25,2,10522,0)=" D ICD I ICDIEN<0 S ^TMP($J,""ECFIND"",1)=""0^No matches found."" Q"
^XMB(3.9,25,2,10523,0)="""RTN"",""ECUMRPC2"",146,0)"
^XMB(3.9,25,2,10524,0)=" S ^TMP($J,""ECFIND"",ILST)=ICD9_U_$P(LEX(""LIST"",1),U,2)_U_ICDIEN_U_LEX(""LIST"",1),I="""""
^XMB(3.9,25,2,10525,0)="""RTN"",""ECUMRPC2"",147,0)"
^XMB(3.9,25,2,10526,0)=" F  S I=$O(^TMP(""LEXFND"",$J,I)) Q:I'<0  D"
^XMB(3.9,25,2,10527,0)="""RTN"",""ECUMRPC2"",148,0)"
^XMB(3.9,25,2,10528,0)=" . S IEN=$O(^TMP(""LEXFND"",$J,I,0))"
^XMB(3.9,25,2,10529,0)="""RTN"",""ECUMRPC2"",149,0)"
^XMB(3.9,25,2,10530,0)=" . D ICD I ICDIEN<0 Q"
^XMB(3.9,25,2,10531,0)="""RTN"",""ECUMRPC2"",150,0)"
^XMB(3.9,25,2,10532,0)=" . S ILST=ILST+1"
^XMB(3.9,25,2,10533,0)="""RTN"",""ECUMRPC2"",151,0)"
^XMB(3.9,25,2,10534,0)=" . S ^TMP($J,""ECFIND"",ILST)=ICD9_U_^TMP(""LEXFND"",$J,I,IEN)_U_ICDIEN_U_IEN"
^XMB(3.9,25,2,10535,0)="""RTN"",""ECUMRPC2"",152,0)"
^XMB(3.9,25,2,10536,0)=" I $O(^TMP($J,""ECFIND"",0))="""" S ^TMP($J,""ECFIND"",1)=""0^No matches found."""
^XMB(3.9,25,2,10537,0)="""RTN"",""ECUMRPC2"",153,0)"
^XMB(3.9,25,2,10538,0)=" K ^TMP(""LEXFND"",$J),^TMP(""LEXHIT"",$J)"
^XMB(3.9,25,2,10539,0)="""RTN"",""ECUMRPC2"",154,0)"
^XMB(3.9,25,2,10540,0)=" Q"
^XMB(3.9,25,2,10541,0)="""RTN"",""ECUMRPC2"",155,0)"
^XMB(3.9,25,2,10542,0)="ICD ;ICD code"
^XMB(3.9,25,2,10543,0)="""RTN"",""ECUMRPC2"",156,0)"
^XMB(3.9,25,2,10544,0)=" S ICD9=$$ICDONE^LEXU(IEN,ECDT)"
^XMB(3.9,25,2,10545,0)="""RTN"",""ECUMRPC2"",157,0)"
^XMB(3.9,25,2,10546,0)=" S ICDIEN=+$$ICDDX^ICDCODE(ICD9,ECDT)"
^XMB(3.9,25,2,10547,0)="""RTN"",""ECUMRPC2"",158,0)"
^XMB(3.9,25,2,10548,0)=" Q"
^XMB(3.9,25,2,10549,0)="""RTN"",""ECUTL2"")"
^XMB(3.9,25,2,10550,0)="0^35^B26898243^B30517576"
^XMB(3.9,25,2,10551,0)="""RTN"",""ECUTL2"",1,0)"
^XMB(3.9,25,2,10552,0)="ECUTL2 ;ALB/JAM - Event Capture Diagnosis Code Selection ;11 Jan 2000"
^XMB(3.9,25,2,10553,0)="""RTN"",""ECUTL2"",2,0)"
^XMB(3.9,25,2,10554,0)=" ;;2.0; EVENT CAPTURE ;**23,33,47,63,72**;8 May 96"
^XMB(3.9,25,2,10555,0)="""RTN"",""ECUTL2"",3,0)"
^XMB(3.9,25,2,10556,0)="DIAG ;ask dx question (primary and multiple secondary) "
^XMB(3.9,25,2,10557,0)="""RTN"",""ECUTL2"",4,0)"
^XMB(3.9,25,2,10558,0)=" ;check for primary dx and display message"
^XMB(3.9,25,2,10559,0)="""RTN"",""ECUTL2"",5,0)"
^XMB(3.9,25,2,10560,0)=" D PDXMSG"
^XMB(3.9,25,2,10561,0)="""RTN"",""ECUTL2"",6,0)"
^XMB(3.9,25,2,10562,0)=" ;ask for primary dx"
^XMB(3.9,25,2,10563,0)="""RTN"",""ECUTL2"",7,0)"
^XMB(3.9,25,2,10564,0)=" D PDX I ECOUT Q"
^XMB(3.9,25,2,10565,0)="""RTN"",""ECUTL2"",8,0)"
^XMB(3.9,25,2,10566,0)=" ;ask for secondary dx"
^XMB(3.9,25,2,10567,0)="""RTN"",""ECUTL2"",9,0)"
^XMB(3.9,25,2,10568,0)=" D SDX I ECOUT Q"
^XMB(3.9,25,2,10569,0)="""RTN"",""ECUTL2"",10,0)"
^XMB(3.9,25,2,10570,0)=" I $D(DTOUT)!$D(DUOUT) W:$P(ECPCE,""~"",2)'=""N"" !!,""Please note that this record cannot be sent to PCE without a diagnosis."",!!"
^XMB(3.9,25,2,10571,0)="""RTN"",""ECUTL2"",11,0)"
^XMB(3.9,25,2,10572,0)=" Q"
^XMB(3.9,25,2,10573,0)="""RTN"",""ECUTL2"",12,0)"
^XMB(3.9,25,2,10574,0)="PDXMSG ; Check for existence of primary diagnoses and display message"
^XMB(3.9,25,2,10575,0)="""RTN"",""ECUTL2"",13,0)"
^XMB(3.9,25,2,10576,0)=" N TXT,ECPDX"
^XMB(3.9,25,2,10577,0)="""RTN"",""ECUTL2"",14,0)"
^XMB(3.9,25,2,10578,0)=" S (ECDX,ECDXN,ECDXO)="""" K ECDXS"
^XMB(3.9,25,2,10579,0)="""RTN"",""ECUTL2"",15,0)"
^XMB(3.9,25,2,10580,0)=" ;Check if primary dx exist in file #721"
^XMB(3.9,25,2,10581,0)="""RTN"",""ECUTL2"",16,0)"
^XMB(3.9,25,2,10582,0)=" S ECPDX=$$PDXCK(ECDFN,ECDT,ECL,EC4)"
^XMB(3.9,25,2,10583,0)="""RTN"",""ECUTL2"",17,0)"
^XMB(3.9,25,2,10584,0)=" I +ECPDX W ! D "
^XMB(3.9,25,2,10585,0)="""RTN"",""ECUTL2"",18,0)"
^XMB(3.9,25,2,10586,0)=" . W !?5,""WARNING: Primary Diagnoses already on File for this encounter."""
^XMB(3.9,25,2,10587,0)="""RTN"",""ECUTL2"",19,0)"
^XMB(3.9,25,2,10588,0)=" . W !?5,""If changed, all procedures will be updated. (""_ECDXN_"")"""
^XMB(3.9,25,2,10589,0)="""RTN"",""ECUTL2"",20,0)"
^XMB(3.9,25,2,10590,0)=" . S ECDXO=ECDX"
^XMB(3.9,25,2,10591,0)="""RTN"",""ECUTL2"",21,0)"
^XMB(3.9,25,2,10592,0)=" I $P(ECPDX,U,2) D"
^XMB(3.9,25,2,10593,0)="""RTN"",""ECUTL2"",22,0)"
^XMB(3.9,25,2,10594,0)=" . S TXT=""WARNING: Primary diagnoses already sent to PCE. If changed,"""
^XMB(3.9,25,2,10595,0)="""RTN"",""ECUTL2"",23,0)"
^XMB(3.9,25,2,10596,0)=" . S TXT=TXT_"" all procedures"""
^XMB(3.9,25,2,10597,0)="""RTN"",""ECUTL2"",24,0)"
^XMB(3.9,25,2,10598,0)=" . W !!?5,TXT"
^XMB(3.9,25,2,10599,0)="""RTN"",""ECUTL2"",25,0)"
^XMB(3.9,25,2,10600,0)=" . S TXT=""associated with this encounter will be updated and resent """
^XMB(3.9,25,2,10601,0)="""RTN"",""ECUTL2"",26,0)"
^XMB(3.9,25,2,10602,0)=" . S TXT=TXT_""to PCE."""
^XMB(3.9,25,2,10603,0)="""RTN"",""ECUTL2"",27,0)"
^XMB(3.9,25,2,10604,0)=" . W !?5,TXT"
^XMB(3.9,25,2,10605,0)="""RTN"",""ECUTL2"",28,0)"
^XMB(3.9,25,2,10606,0)=" Q"
^XMB(3.9,25,2,10607,0)="""RTN"",""ECUTL2"",29,0)"
^XMB(3.9,25,2,10608,0)="PDXCK(ECDFN,ECDTX,ECLX,EC4X) ;Get primary dx frm file #721 for pat encounter"
^XMB(3.9,25,2,10609,0)="""RTN"",""ECUTL2"",30,0)"
^XMB(3.9,25,2,10610,0)=" ;   Input:   ECDFN     = Patient ien"
^XMB(3.9,25,2,10611,0)="""RTN"",""ECUTL2"",31,0)"
^XMB(3.9,25,2,10612,0)=" ;            ECDTX     = Date/time of procedure"
^XMB(3.9,25,2,10613,0)="""RTN"",""ECUTL2"",32,0)"
^XMB(3.9,25,2,10614,0)=" ;            ECLX      = Location ien"
^XMB(3.9,25,2,10615,0)="""RTN"",""ECUTL2"",33,0)"
^XMB(3.9,25,2,10616,0)=" ;            EC4X      = Clinic ien"
^XMB(3.9,25,2,10617,0)="""RTN"",""ECUTL2"",34,0)"
^XMB(3.9,25,2,10618,0)=" ;"
^XMB(3.9,25,2,10619,0)="""RTN"",""ECUTL2"",35,0)"
^XMB(3.9,25,2,10620,0)=" ;   Output:  PDXF^PCEF = primary dx flag (1/0)^dx sent to PCE flag (1/0)"
^XMB(3.9,25,2,10621,0)="""RTN"",""ECUTL2"",36,0)"
^XMB(3.9,25,2,10622,0)=" ;            ECDX      = Primary diagnoses ien"
^XMB(3.9,25,2,10623,0)="""RTN"",""ECUTL2"",37,0)"
^XMB(3.9,25,2,10624,0)=" ;            ECDXN     = Primary diagnoses code"
^XMB(3.9,25,2,10625,0)="""RTN"",""ECUTL2"",38,0)"
^XMB(3.9,25,2,10626,0)=" ;            ECDXIEN   = Array of encounter IENs w primary dx"
^XMB(3.9,25,2,10627,0)="""RTN"",""ECUTL2"",39,0)"
^XMB(3.9,25,2,10628,0)=" ;"
^XMB(3.9,25,2,10629,0)="""RTN"",""ECUTL2"",40,0)"
^XMB(3.9,25,2,10630,0)=" N PDXF,PCEF,DA,DXIEN,DXS,DXN"
^XMB(3.9,25,2,10631,0)="""RTN"",""ECUTL2"",41,0)"
^XMB(3.9,25,2,10632,0)=" S (PDXF,PCEF)=0,DA="""" K ECDXIEN"
^XMB(3.9,25,2,10633,0)="""RTN"",""ECUTL2"",42,0)"
^XMB(3.9,25,2,10634,0)=" I $G(ECDFN)=""""!($G(ECDTX)="""")!($G(ECLX)="""")!($G(EC4X)="""") Q PDXF_U_PCEF"
^XMB(3.9,25,2,10635,0)="""RTN"",""ECUTL2"",43,0)"
^XMB(3.9,25,2,10636,0)=" I $O(^ECH(""APAT"",ECDFN,ECDTX,""""))="""" Q PDXF_U_PCEF"
^XMB(3.9,25,2,10637,0)="""RTN"",""ECUTL2"",44,0)"
^XMB(3.9,25,2,10638,0)=" F  S DA=$O(^ECH(""APAT"",ECDFN,ECDTX,DA)) Q:DA=""""  D"
^XMB(3.9,25,2,10639,0)="""RTN"",""ECUTL2"",45,0)"
^XMB(3.9,25,2,10640,0)=" . I EC4X'=$P($G(^ECH(DA,0)),U,19) Q"
^XMB(3.9,25,2,10641,0)="""RTN"",""ECUTL2"",46,0)"
^XMB(3.9,25,2,10642,0)=" . S ECDX=$P($G(^ECH(DA,""P"")),U,2) I ECDX="""" Q"
^XMB(3.9,25,2,10643,0)="""RTN"",""ECUTL2"",47,0)"
^XMB(3.9,25,2,10644,0)=" . S ECDXN=$P($$ICDDX^ICDCODE(ECDX,ECDTX),U,2)"
^XMB(3.9,25,2,10645,0)="""RTN"",""ECUTL2"",48,0)"
^XMB(3.9,25,2,10646,0)=" . S ECDXIEN(DA)=ECDXN_U_ECDX,PDXF=1"
^XMB(3.9,25,2,10647,0)="""RTN"",""ECUTL2"",49,0)"
^XMB(3.9,25,2,10648,0)=" . I $D(^ECH(DA,""SEND"")),^(""SEND"")="""" S PCEF=1"
^XMB(3.9,25,2,10649,0)="""RTN"",""ECUTL2"",50,0)"
^XMB(3.9,25,2,10650,0)=" . I $D(^ECH(DA,""DX"")) D"
^XMB(3.9,25,2,10651,0)="""RTN"",""ECUTL2"",51,0)"
^XMB(3.9,25,2,10652,0)=" . . S DXS=0 F  S DXS=$O(^ECH(DA,""DX"",DXS)) Q:'DXS  D"
^XMB(3.9,25,2,10653,0)="""RTN"",""ECUTL2"",52,0)"
^XMB(3.9,25,2,10654,0)=" ...S DXIEN=$P($G(^ECH(DA,""DX"",DXS,0)),U)"
^XMB(3.9,25,2,10655,0)="""RTN"",""ECUTL2"",53,0)"
^XMB(3.9,25,2,10656,0)=" ...S DXN=$P($$ICDDX^ICDCODE(DXIEN,ECDTX),U,2) S:DXN'="""" ECDXS(DXN)=DXIEN"
^XMB(3.9,25,2,10657,0)="""RTN"",""ECUTL2"",54,0)"
^XMB(3.9,25,2,10658,0)=" Q PDXF_U_PCEF"
^XMB(3.9,25,2,10659,0)="""RTN"",""ECUTL2"",55,0)"
^XMB(3.9,25,2,10660,0)="PDX ;Ask primary diagnoses code"
^XMB(3.9,25,2,10661,0)="""RTN"",""ECUTL2"",56,0)"
^XMB(3.9,25,2,10662,0)=" ;   Variables:   ECDX    = Primary diagnoses ien"
^XMB(3.9,25,2,10663,0)="""RTN"",""ECUTL2"",57,0)"
^XMB(3.9,25,2,10664,0)=" ;                ECDXN   = Primary diagnoses code, default if define"
^XMB(3.9,25,2,10665,0)="""RTN"",""ECUTL2"",58,0)"
^XMB(3.9,25,2,10666,0)=" ;                ECOUT   = Error flag (1/0)"
^XMB(3.9,25,2,10667,0)="""RTN"",""ECUTL2"",59,0)"
^XMB(3.9,25,2,10668,0)=" ;   "
^XMB(3.9,25,2,10669,0)="""RTN"",""ECUTL2"",60,0)"
^XMB(3.9,25,2,10670,0)=" N DIC,X,Y,DTOUT,DUOUT,DEFX,ECODE,PROMPT"
^XMB(3.9,25,2,10671,0)="""RTN"",""ECUTL2"",61,0)"
^XMB(3.9,25,2,10672,0)=" S ECDX=$G(ECDX),ECDXN=$G(ECDXN),PROMPT=""Primary ICD-9 Code: """
^XMB(3.9,25,2,10673,0)="""RTN"",""ECUTL2"",62,0)"
^XMB(3.9,25,2,10674,0)=" S:ECDXN'="""" DEFX=ECDXN"
^XMB(3.9,25,2,10675,0)="""RTN"",""ECUTL2"",63,0)"
^XMB(3.9,25,2,10676,0)=" F  D LEX Q:$G(ECOUT)  D  I $D(ECODE) Q"
^XMB(3.9,25,2,10677,0)="""RTN"",""ECUTL2"",64,0)"
^XMB(3.9,25,2,10678,0)=" .I X="""" W !,""This is a required response. Enter '^' to exit"" Q"
^XMB(3.9,25,2,10679,0)="""RTN"",""ECUTL2"",65,0)"
^XMB(3.9,25,2,10680,0)=" .S ECDXN=ECODE,ECDX=+$$ICDDX^ICDCODE(ECODE,$G(ECDT))"
^XMB(3.9,25,2,10681,0)="""RTN"",""ECUTL2"",66,0)"
^XMB(3.9,25,2,10682,0)=" Q"
^XMB(3.9,25,2,10683,0)="""RTN"",""ECUTL2"",67,0)"
^XMB(3.9,25,2,10684,0)="SDX ;Ask secondary diagnoses code"
^XMB(3.9,25,2,10685,0)="""RTN"",""ECUTL2"",68,0)"
^XMB(3.9,25,2,10686,0)=" ;   Variables:   ECDX    = Primary diagnoses ien, default if define"
^XMB(3.9,25,2,10687,0)="""RTN"",""ECUTL2"",69,0)"
^XMB(3.9,25,2,10688,0)=" ;                ECDXN   = Primary diagnoses code"
^XMB(3.9,25,2,10689,0)="""RTN"",""ECUTL2"",70,0)"
^XMB(3.9,25,2,10690,0)=" ;                ECOUT   = Error flag (1/0)"
^XMB(3.9,25,2,10691,0)="""RTN"",""ECUTL2"",71,0)"
^XMB(3.9,25,2,10692,0)=" ;                ECDXS   = Array with secondary diagnosis code"
^XMB(3.9,25,2,10693,0)="""RTN"",""ECUTL2"",72,0)"
^XMB(3.9,25,2,10694,0)=" ;                          subscript=dx code and set equal to dx ien"
^XMB(3.9,25,2,10695,0)="""RTN"",""ECUTL2"",73,0)"
^XMB(3.9,25,2,10696,0)=" ;"
^XMB(3.9,25,2,10697,0)="""RTN"",""ECUTL2"",74,0)"
^XMB(3.9,25,2,10698,0)=" N Y,X,DEFX,DIC,DTOUT,DUOUT,ECODE"
^XMB(3.9,25,2,10699,0)="""RTN"",""ECUTL2"",75,0)"
^XMB(3.9,25,2,10700,0)=" S ECOUT=$G(ECOUT),PROMPT=""Secondary ICD-9 Code: """
^XMB(3.9,25,2,10701,0)="""RTN"",""ECUTL2"",76,0)"
^XMB(3.9,25,2,10702,0)=" F  D LSTDXS,LEX Q:Y<0  D  I ECOUT Q"
^XMB(3.9,25,2,10703,0)="""RTN"",""ECUTL2"",77,0)"
^XMB(3.9,25,2,10704,0)=" .I ECODE="""" Q"
^XMB(3.9,25,2,10705,0)="""RTN"",""ECUTL2"",78,0)"
^XMB(3.9,25,2,10706,0)=" .I ECODE=$G(ECDXN) W ""  Already exist as primary dx."" Q"
^XMB(3.9,25,2,10707,0)="""RTN"",""ECUTL2"",79,0)"
^XMB(3.9,25,2,10708,0)=" .I $D(ECDXS(ECODE)) D DELDUP Q"
^XMB(3.9,25,2,10709,0)="""RTN"",""ECUTL2"",80,0)"
^XMB(3.9,25,2,10710,0)=" .S ECDXS(ECODE)=+$$ICDDX^ICDCODE(ECODE,$G(ECDT))"
^XMB(3.9,25,2,10711,0)="""RTN"",""ECUTL2"",81,0)"
^XMB(3.9,25,2,10712,0)=" Q"
^XMB(3.9,25,2,10713,0)="""RTN"",""ECUTL2"",82,0)"
^XMB(3.9,25,2,10714,0)="DELDUP ;Delete secondary diagnosis code from list"
^XMB(3.9,25,2,10715,0)="""RTN"",""ECUTL2"",83,0)"
^XMB(3.9,25,2,10716,0)=" N DIR,DIRUT,DTOUT,DUOUT,DIROUT"
^XMB(3.9,25,2,10717,0)="""RTN"",""ECUTL2"",84,0)"
^XMB(3.9,25,2,10718,0)=" S DIR(""A"")=""Delete ""_ECODE_"" Code from List"""
^XMB(3.9,25,2,10719,0)="""RTN"",""ECUTL2"",85,0)"
^XMB(3.9,25,2,10720,0)=" S DIR(0)=""Y"""
^XMB(3.9,25,2,10721,0)="""RTN"",""ECUTL2"",86,0)"
^XMB(3.9,25,2,10722,0)=" D ^DIR"
^XMB(3.9,25,2,10723,0)="""RTN"",""ECUTL2"",87,0)"
^XMB(3.9,25,2,10724,0)=" I $D(DIRUT)!($D(DIROUT)) S ECOUT=1 Q"
^XMB(3.9,25,2,10725,0)="""RTN"",""ECUTL2"",88,0)"
^XMB(3.9,25,2,10726,0)=" I Y K ECDXS(ECODE)"
^XMB(3.9,25,2,10727,0)="""RTN"",""ECUTL2"",89,0)"
^XMB(3.9,25,2,10728,0)=" Q"
^XMB(3.9,25,2,10729,0)="""RTN"",""ECUTL2"",90,0)"
^XMB(3.9,25,2,10730,0)="LEX ;ICD code from LEX database"
^XMB(3.9,25,2,10731,0)="""RTN"",""ECUTL2"",91,0)"
^XMB(3.9,25,2,10732,0)=" ;K X,Y"
^XMB(3.9,25,2,10733,0)="""RTN"",""ECUTL2"",92,0)"
^XMB(3.9,25,2,10734,0)=" S X=$G(DEFX)"
^XMB(3.9,25,2,10735,0)="""RTN"",""ECUTL2"",93,0)"
^XMB(3.9,25,2,10736,0)=" ;LEX DBIA1577"
^XMB(3.9,25,2,10737,0)="""RTN"",""ECUTL2"",94,0)"
^XMB(3.9,25,2,10738,0)=" D CONFIG^LEXSET(""ICD"",,$G(ECDT))"
^XMB(3.9,25,2,10739,0)="""RTN"",""ECUTL2"",95,0)"
^XMB(3.9,25,2,10740,0)=" S DIC=""757.01"",DIC(0)=$S('$L($G(X)):""A"",1:"""")_""EQM"",DIC(""A"")=PROMPT"
^XMB(3.9,25,2,10741,0)="""RTN"",""ECUTL2"",96,0)"
^XMB(3.9,25,2,10742,0)=" D ^DIC"
^XMB(3.9,25,2,10743,0)="""RTN"",""ECUTL2"",97,0)"
^XMB(3.9,25,2,10744,0)=" I $D(DTOUT)!$D(DUOUT) S ECOUT=1 Q"
^XMB(3.9,25,2,10745,0)="""RTN"",""ECUTL2"",98,0)"
^XMB(3.9,25,2,10746,0)=" I X="""" Q"
^XMB(3.9,25,2,10747,0)="""RTN"",""ECUTL2"",99,0)"
^XMB(3.9,25,2,10748,0)=" I Y<0 S ECOUT=1 Q"
^XMB(3.9,25,2,10749,0)="""RTN"",""ECUTL2"",100,0)"
^XMB(3.9,25,2,10750,0)=" S ECODE=$G(Y(1))"
^XMB(3.9,25,2,10751,0)="""RTN"",""ECUTL2"",101,0)"
^XMB(3.9,25,2,10752,0)=" Q"
^XMB(3.9,25,2,10753,0)="""RTN"",""ECUTL2"",102,0)"
^XMB(3.9,25,2,10754,0)="LSTDXS ;list icd9-code"
^XMB(3.9,25,2,10755,0)="""RTN"",""ECUTL2"",103,0)"
^XMB(3.9,25,2,10756,0)=" N DXS"
^XMB(3.9,25,2,10757,0)="""RTN"",""ECUTL2"",104,0)"
^XMB(3.9,25,2,10758,0)=" I $D(ECDXS) D"
^XMB(3.9,25,2,10759,0)="""RTN"",""ECUTL2"",105,0)"
^XMB(3.9,25,2,10760,0)=" . W !?1,""Secondary ICD-9 code entered:"""
^XMB(3.9,25,2,10761,0)="""RTN"",""ECUTL2"",106,0)"
^XMB(3.9,25,2,10762,0)=" . S DXS="""""
^XMB(3.9,25,2,10763,0)="""RTN"",""ECUTL2"",107,0)"
^XMB(3.9,25,2,10764,0)=" . F  S DXS=$O(ECDXS(DXS)) Q:DXS=""""  W !,?4,DXS,?15,$P($$ICDDX^ICDCODE(DXS,$G(ECDT)),""^"",4)"
^XMB(3.9,25,2,10765,0)="""RTN"",""ECUTL2"",108,0)"
^XMB(3.9,25,2,10766,0)=" Q"
^XMB(3.9,25,2,10767,0)="""RTN"",""ECUTL2"",109,0)"
^XMB(3.9,25,2,10768,0)="PXUPD(ECDFN,ECDT,ECL,EC4,ECDXP,ECDXX,ECXIEN) ; Update all associated"
^XMB(3.9,25,2,10769,0)="""RTN"",""ECUTL2"",110,0)"
^XMB(3.9,25,2,10770,0)=" ; procedures for an EC Patient encounter with the same primary and "
^XMB(3.9,25,2,10771,0)="""RTN"",""ECUTL2"",111,0)"
^XMB(3.9,25,2,10772,0)=" ; secondary dx codes"
^XMB(3.9,25,2,10773,0)="""RTN"",""ECUTL2"",112,0)"
^XMB(3.9,25,2,10774,0)=" ;"
^XMB(3.9,25,2,10775,0)="""RTN"",""ECUTL2"",113,0)"
^XMB(3.9,25,2,10776,0)=" ;   Input:   ECDFN     = Patient ien"
^XMB(3.9,25,2,10777,0)="""RTN"",""ECUTL2"",114,0)"
^XMB(3.9,25,2,10778,0)=" ;            ECDT      = Date/time of procedure"
^XMB(3.9,25,2,10779,0)="""RTN"",""ECUTL2"",115,0)"
^XMB(3.9,25,2,10780,0)=" ;            ECL       = Location ien"
^XMB(3.9,25,2,10781,0)="""RTN"",""ECUTL2"",116,0)"
^XMB(3.9,25,2,10782,0)=" ;            EC4       = Clinic ien"
^XMB(3.9,25,2,10783,0)="""RTN"",""ECUTL2"",117,0)"
^XMB(3.9,25,2,10784,0)=" ;            ECDXP     = Primary diagnoses code"
^XMB(3.9,25,2,10785,0)="""RTN"",""ECUTL2"",118,0)"
^XMB(3.9,25,2,10786,0)=" ;            ECDXX     = Array of secondary diagnoses codes"
^XMB(3.9,25,2,10787,0)="""RTN"",""ECUTL2"",119,0)"
^XMB(3.9,25,2,10788,0)=" ;            ECXIEN    = 721 ien, if define don't process"
^XMB(3.9,25,2,10789,0)="""RTN"",""ECUTL2"",120,0)"
^XMB(3.9,25,2,10790,0)=" ;"
^XMB(3.9,25,2,10791,0)="""RTN"",""ECUTL2"",121,0)"
^XMB(3.9,25,2,10792,0)=" ;  Output: ECERR  0 - Process completed"
^XMB(3.9,25,2,10793,0)="""RTN"",""ECUTL2"",122,0)"
^XMB(3.9,25,2,10794,0)=" ;"
^XMB(3.9,25,2,10795,0)="""RTN"",""ECUTL2"",123,0)"
^XMB(3.9,25,2,10796,0)=" N ECIEN,ECERR,DIE,DR,DA,DTOUT,DIROUT,ECDXIEN,ECPDX,ECDX,ECDXN,DIC,X"
^XMB(3.9,25,2,10797,0)="""RTN"",""ECUTL2"",124,0)"
^XMB(3.9,25,2,10798,0)=" N ECVST,ECVAR1,VALQUIET,DXN,DXSIEN,DIK,ECDXS"
^XMB(3.9,25,2,10799,0)="""RTN"",""ECUTL2"",125,0)"
^XMB(3.9,25,2,10800,0)=" S ECERR=0"
^XMB(3.9,25,2,10801,0)="""RTN"",""ECUTL2"",126,0)"
^XMB(3.9,25,2,10802,0)=" I $D(ECDXP)="""" Q ECERR"
^XMB(3.9,25,2,10803,0)="""RTN"",""ECUTL2"",127,0)"
^XMB(3.9,25,2,10804,0)=" S ECPDX=$$PDXCK(ECDFN,ECDT,ECL,EC4)"
^XMB(3.9,25,2,10805,0)="""RTN"",""ECUTL2"",128,0)"
^XMB(3.9,25,2,10806,0)=" I '$D(ECDXIEN) Q ECERR"
^XMB(3.9,25,2,10807,0)="""RTN"",""ECUTL2"",129,0)"
^XMB(3.9,25,2,10808,0)=" S ECIEN="""",DIE=""^ECH("""
^XMB(3.9,25,2,10809,0)="""RTN"",""ECUTL2"",130,0)"
^XMB(3.9,25,2,10810,0)=" F  S ECIEN=$O(ECDXIEN(ECIEN)) Q:ECIEN=""""  D"
^XMB(3.9,25,2,10811,0)="""RTN"",""ECUTL2"",131,0)"
^XMB(3.9,25,2,10812,0)=" . I $G(ECXIEN)'="""",ECXIEN=ECIEN Q"
^XMB(3.9,25,2,10813,0)="""RTN"",""ECUTL2"",132,0)"
^XMB(3.9,25,2,10814,0)=" . S ECNODE=$G(^ECH(ECIEN,""P"")) I ECNODE="""" Q"
^XMB(3.9,25,2,10815,0)="""RTN"",""ECUTL2"",133,0)"
^XMB(3.9,25,2,10816,0)=" . I ECDXP'=$P(ECNODE,U,2) D"
^XMB(3.9,25,2,10817,0)="""RTN"",""ECUTL2"",134,0)"
^XMB(3.9,25,2,10818,0)=" . . S DA=ECIEN,DR=""20////""_ECDXP D ^DIE"
^XMB(3.9,25,2,10819,0)="""RTN"",""ECUTL2"",135,0)"
^XMB(3.9,25,2,10820,0)=" . . S $P(^ECH(ECIEN,""PCE""),""~"",11)=ECDXP"
^XMB(3.9,25,2,10821,0)="""RTN"",""ECUTL2"",136,0)"
^XMB(3.9,25,2,10822,0)=" . ;delete all secondary diagnosis codes"
^XMB(3.9,25,2,10823,0)="""RTN"",""ECUTL2"",137,0)"
^XMB(3.9,25,2,10824,0)=" . S DA(1)=ECIEN,DIK=""^ECH(""_DA(1)_"",""""DX"""","",DA=0"
^XMB(3.9,25,2,10825,0)="""RTN"",""ECUTL2"",138,0)"
^XMB(3.9,25,2,10826,0)=" . F  S DA=$O(^ECH(ECIEN,""DX"",DA)) Q:'DA  D ^DIK"
^XMB(3.9,25,2,10827,0)="""RTN"",""ECUTL2"",139,0)"
^XMB(3.9,25,2,10828,0)=" . I $D(^ECH(ECIEN,""DX"")) K ^ECH(ECIEN,""DX"")"
^XMB(3.9,25,2,10829,0)="""RTN"",""ECUTL2"",140,0)"
^XMB(3.9,25,2,10830,0)=" . ;update secondary diagnosis codes on procedure"
^XMB(3.9,25,2,10831,0)="""RTN"",""ECUTL2"",141,0)"
^XMB(3.9,25,2,10832,0)=" . S DXN="""" F  S DXN=$O(ECDXX(DXN)) Q:DXN=""""  D"
^XMB(3.9,25,2,10833,0)="""RTN"",""ECUTL2"",142,0)"
^XMB(3.9,25,2,10834,0)=" . . S DXSIEN=$P(ECDXX(DXN),U) I DXSIEN<0 Q"
^XMB(3.9,25,2,10835,0)="""RTN"",""ECUTL2"",143,0)"
^XMB(3.9,25,2,10836,0)=" . . K DIC,DD,DO S DIC(0)=""L"",DA(1)=ECIEN,DIC(""P"")=$P(^DD(721,38,0),U,2)"
^XMB(3.9,25,2,10837,0)="""RTN"",""ECUTL2"",144,0)"
^XMB(3.9,25,2,10838,0)=" . . S X=DXSIEN,DIC=""^ECH(""_DA(1)_"",""_""""""DX""""""_"","" D FILE^DICN"
^XMB(3.9,25,2,10839,0)="""RTN"",""ECUTL2"",145,0)"
^XMB(3.9,25,2,10840,0)=" . ;delete visit and resend to PCE"
^XMB(3.9,25,2,10841,0)="""RTN"",""ECUTL2"",146,0)"
^XMB(3.9,25,2,10842,0)=" . S ECVST=+$P($G(^ECH(ECIEN,0)),""^"",21) I 'ECVST Q"
^XMB(3.9,25,2,10843,0)="""RTN"",""ECUTL2"",147,0)"
^XMB(3.9,25,2,10844,0)=" . ;* Prepare all EC records with same Visit file entry to resend to PCE"
^XMB(3.9,25,2,10845,0)="""RTN"",""ECUTL2"",148,0)"
^XMB(3.9,25,2,10846,0)=" . S ECVAR1=$$FNDVST^ECUTL(ECVST)"
^XMB(3.9,25,2,10847,0)="""RTN"",""ECUTL2"",149,0)"
^XMB(3.9,25,2,10848,0)=" . ;- Set VALQUIET to stop Amb Care validator from broadcasting to screen"
^XMB(3.9,25,2,10849,0)="""RTN"",""ECUTL2"",150,0)"
^XMB(3.9,25,2,10850,0)=" . S VALQUIET=1,ECVV=$$DELVFILE^PXAPI(""ALL"",ECVST)"
^XMB(3.9,25,2,10851,0)="""RTN"",""ECUTL2"",151,0)"
^XMB(3.9,25,2,10852,0)=" Q ECERR"
^XMB(3.9,25,2,10853,0)="""RTN"",""ECV3RPC"")"
^XMB(3.9,25,2,10854,0)="0^40^B45442290^B44536732"
^XMB(3.9,25,2,10855,0)="""RTN"",""ECV3RPC"",1,0)"
^XMB(3.9,25,2,10856,0)="ECV3RPC ;ALB/ACS;Event Capture Spreadsheet Data Validation ;Oct 13, 2000"
^XMB(3.9,25,2,10857,0)="""RTN"",""ECV3RPC"",2,0)"
^XMB(3.9,25,2,10858,0)=" ;;2.0; EVENT CAPTURE ;**25,47,49,61,72**;8 May 96"
^XMB(3.9,25,2,10859,0)="""RTN"",""ECV3RPC"",3,0)"
^XMB(3.9,25,2,10860,0)=" ;"
^XMB(3.9,25,2,10861,0)="""RTN"",""ECV3RPC"",4,0)"
^XMB(3.9,25,2,10862,0)=" ;-----------------------------------------------------------------------"
^XMB(3.9,25,2,10863,0)="""RTN"",""ECV3RPC"",5,0)"
^XMB(3.9,25,2,10864,0)=" ;  Validates the following Event Capture Spreadsheet Upload fields:"
^XMB(3.9,25,2,10865,0)="""RTN"",""ECV3RPC"",6,0)"
^XMB(3.9,25,2,10866,0)=" ;    1. DSS UNIT IEN, DSS UNIT NUMBER, DSS UNIT NAME"
^XMB(3.9,25,2,10867,0)="""RTN"",""ECV3RPC"",7,0)"
^XMB(3.9,25,2,10868,0)=" ;    2. ORDERING SECTION"
^XMB(3.9,25,2,10869,0)="""RTN"",""ECV3RPC"",8,0)"
^XMB(3.9,25,2,10870,0)=" ;    3. PROCEDURE CODE"
^XMB(3.9,25,2,10871,0)="""RTN"",""ECV3RPC"",9,0)"
^XMB(3.9,25,2,10872,0)=" ;    4. CATEGORY"
^XMB(3.9,25,2,10873,0)="""RTN"",""ECV3RPC"",10,0)"
^XMB(3.9,25,2,10874,0)=" ;"
^XMB(3.9,25,2,10875,0)="""RTN"",""ECV3RPC"",11,0)"
^XMB(3.9,25,2,10876,0)=" ;-----------------------------------------------------------------------"
^XMB(3.9,25,2,10877,0)="""RTN"",""ECV3RPC"",12,0)"
^XMB(3.9,25,2,10878,0)=" ;"
^XMB(3.9,25,2,10879,0)="""RTN"",""ECV3RPC"",13,0)"
^XMB(3.9,25,2,10880,0)=" ;--Set up error flag"
^XMB(3.9,25,2,10881,0)="""RTN"",""ECV3RPC"",14,0)"
^XMB(3.9,25,2,10882,0)=" S ECERRFLG=0"
^XMB(3.9,25,2,10883,0)="""RTN"",""ECV3RPC"",15,0)"
^XMB(3.9,25,2,10884,0)=" ;"
^XMB(3.9,25,2,10885,0)="""RTN"",""ECV3RPC"",16,0)"
^XMB(3.9,25,2,10886,0)=" ;--GET DSS Unit IEN--"
^XMB(3.9,25,2,10887,0)="""RTN"",""ECV3RPC"",17,0)"
^XMB(3.9,25,2,10888,0)=" S ECDSSIEN="""""
^XMB(3.9,25,2,10889,0)="""RTN"",""ECV3RPC"",18,0)"
^XMB(3.9,25,2,10890,0)=" ; -Check for DSS Unit IEN first"
^XMB(3.9,25,2,10891,0)="""RTN"",""ECV3RPC"",19,0)"
^XMB(3.9,25,2,10892,0)=" I ECUNITV'="""",(ECUNITV'=+ECUNITV) D"
^XMB(3.9,25,2,10893,0)="""RTN"",""ECV3RPC"",20,0)"
^XMB(3.9,25,2,10894,0)=" . S ECERRMSG=$P($T(DSS1^ECV3RPC),"";;"",2)"
^XMB(3.9,25,2,10895,0)="""RTN"",""ECV3RPC"",21,0)"
^XMB(3.9,25,2,10896,0)=" . S ECCOLERR=ECUNITPC"
^XMB(3.9,25,2,10897,0)="""RTN"",""ECV3RPC"",22,0)"
^XMB(3.9,25,2,10898,0)=" . D ERROR"
^XMB(3.9,25,2,10899,0)="""RTN"",""ECV3RPC"",23,0)"
^XMB(3.9,25,2,10900,0)=" I ECUNITV,'ECERRFLG,$D(^ECD(ECUNITV,0)) S ECDSSIEN=ECUNITV"
^XMB(3.9,25,2,10901,0)="""RTN"",""ECV3RPC"",24,0)"
^XMB(3.9,25,2,10902,0)=" I ECUNITV,'ECERRFLG,'$D(^ECD(ECUNITV,0)) D"
^XMB(3.9,25,2,10903,0)="""RTN"",""ECV3RPC"",25,0)"
^XMB(3.9,25,2,10904,0)=" . ; DSS unit ien not found on VistA"
^XMB(3.9,25,2,10905,0)="""RTN"",""ECV3RPC"",26,0)"
^XMB(3.9,25,2,10906,0)=" . S ECERRMSG=$P($T(DSS1^ECV3RPC),"";;"",2)"
^XMB(3.9,25,2,10907,0)="""RTN"",""ECV3RPC"",27,0)"
^XMB(3.9,25,2,10908,0)=" . S ECCOLERR=ECUNITPC"
^XMB(3.9,25,2,10909,0)="""RTN"",""ECV3RPC"",28,0)"
^XMB(3.9,25,2,10910,0)=" . D ERROR"
^XMB(3.9,25,2,10911,0)="""RTN"",""ECV3RPC"",29,0)"
^XMB(3.9,25,2,10912,0)=" . Q"
^XMB(3.9,25,2,10913,0)="""RTN"",""ECV3RPC"",30,0)"
^XMB(3.9,25,2,10914,0)=" ; -Check for DSS Unit Number"
^XMB(3.9,25,2,10915,0)="""RTN"",""ECV3RPC"",31,0)"
^XMB(3.9,25,2,10916,0)=" I ECDCMV'="""",'$D(^ECD(""C"",ECDCMV)) D"
^XMB(3.9,25,2,10917,0)="""RTN"",""ECV3RPC"",32,0)"
^XMB(3.9,25,2,10918,0)=" . ; DSS Unit Number not found on VistA"
^XMB(3.9,25,2,10919,0)="""RTN"",""ECV3RPC"",33,0)"
^XMB(3.9,25,2,10920,0)=" . S ECERRMSG=$P($T(DSS2^ECV3RPC),"";;"",2)"
^XMB(3.9,25,2,10921,0)="""RTN"",""ECV3RPC"",34,0)"
^XMB(3.9,25,2,10922,0)=" . S ECCOLERR=ECDCMPC"
^XMB(3.9,25,2,10923,0)="""RTN"",""ECV3RPC"",35,0)"
^XMB(3.9,25,2,10924,0)=" . D ERROR"
^XMB(3.9,25,2,10925,0)="""RTN"",""ECV3RPC"",36,0)"
^XMB(3.9,25,2,10926,0)=" I 'ECERRFLG,ECDCMV'="""",$D(^ECD(""C"",ECDCMV)) S ECDSSIEN=$O(^ECD(""C"",ECDCMV,0))"
^XMB(3.9,25,2,10927,0)="""RTN"",""ECV3RPC"",37,0)"
^XMB(3.9,25,2,10928,0)=" ;Check if the next record is a match"
^XMB(3.9,25,2,10929,0)="""RTN"",""ECV3RPC"",38,0)"
^XMB(3.9,25,2,10930,0)=" I 'ECERRFLG,'ECDSSIEN,ECDCMV'="""",$D(^ECD(""C"",ECDCMV)) D"
^XMB(3.9,25,2,10931,0)="""RTN"",""ECV3RPC"",39,0)"
^XMB(3.9,25,2,10932,0)=" . S ECDSSIEN=$O(^ECD(""C"",ECDCMV,0))"
^XMB(3.9,25,2,10933,0)="""RTN"",""ECV3RPC"",40,0)"
^XMB(3.9,25,2,10934,0)=" . I '$D(^ECD(""C"",ECDCMV)) D"
^XMB(3.9,25,2,10935,0)="""RTN"",""ECV3RPC"",41,0)"
^XMB(3.9,25,2,10936,0)=" . . ; DSS Unit Number not found on VistA"
^XMB(3.9,25,2,10937,0)="""RTN"",""ECV3RPC"",42,0)"
^XMB(3.9,25,2,10938,0)=" . . S ECERRMSG=$P($T(DSS2^ECV3RPC),"";;"",2)"
^XMB(3.9,25,2,10939,0)="""RTN"",""ECV3RPC"",43,0)"
^XMB(3.9,25,2,10940,0)=" . . S ECCOLERR=ECDCMPC"
^XMB(3.9,25,2,10941,0)="""RTN"",""ECV3RPC"",44,0)"
^XMB(3.9,25,2,10942,0)=" . . D ERROR"
^XMB(3.9,25,2,10943,0)="""RTN"",""ECV3RPC"",45,0)"
^XMB(3.9,25,2,10944,0)=" . . Q"
^XMB(3.9,25,2,10945,0)="""RTN"",""ECV3RPC"",46,0)"
^XMB(3.9,25,2,10946,0)=" ; -Check for DSS Unit Name"
^XMB(3.9,25,2,10947,0)="""RTN"",""ECV3RPC"",47,0)"
^XMB(3.9,25,2,10948,0)=" I ECDSSV'="""",'$D(^ECD(""B"",ECDSSV)) D"
^XMB(3.9,25,2,10949,0)="""RTN"",""ECV3RPC"",48,0)"
^XMB(3.9,25,2,10950,0)=" . S ECERRMSG=$P($T(DSS3^ECV3RPC),"";;"",2)"
^XMB(3.9,25,2,10951,0)="""RTN"",""ECV3RPC"",49,0)"
^XMB(3.9,25,2,10952,0)=" . S ECCOLERR=ECDSSPC"
^XMB(3.9,25,2,10953,0)="""RTN"",""ECV3RPC"",50,0)"
^XMB(3.9,25,2,10954,0)=" . D ERROR"
^XMB(3.9,25,2,10955,0)="""RTN"",""ECV3RPC"",51,0)"
^XMB(3.9,25,2,10956,0)=" ; "
^XMB(3.9,25,2,10957,0)="""RTN"",""ECV3RPC"",52,0)"
^XMB(3.9,25,2,10958,0)=" I 'ECERRFLG,'ECDSSIEN,ECDSSV'="""",$D(^ECD(""B"",ECDSSV)) S ECDSSIEN=$O(^ECD(""B"",ECDSSV,0))"
^XMB(3.9,25,2,10959,0)="""RTN"",""ECV3RPC"",53,0)"
^XMB(3.9,25,2,10960,0)=" I 'ECERRFLG,'ECDSSIEN,ECDSSV'="""",'$D(^ECD(""B"",ECDSSV)) D"
^XMB(3.9,25,2,10961,0)="""RTN"",""ECV3RPC"",54,0)"
^XMB(3.9,25,2,10962,0)=" . N ECNXTDSS"
^XMB(3.9,25,2,10963,0)="""RTN"",""ECV3RPC"",55,0)"
^XMB(3.9,25,2,10964,0)=" . S ECNXTDSS=$O(^ECD(""B"",ECDSSV))"
^XMB(3.9,25,2,10965,0)="""RTN"",""ECV3RPC"",56,0)"
^XMB(3.9,25,2,10966,0)=" . I ECDSSV=$E(ECNXTDSS,1,$L(ECDSSV)) S ECDSSIEN=$O(^ECD(""B"",ECNXTDSS,0))"
^XMB(3.9,25,2,10967,0)="""RTN"",""ECV3RPC"",57,0)"
^XMB(3.9,25,2,10968,0)=" . ;"
^XMB(3.9,25,2,10969,0)="""RTN"",""ECV3RPC"",58,0)"
^XMB(3.9,25,2,10970,0)=" . I ECDSSV'=$E(ECNXTDSS,1,$L(ECDSSV)) D"
^XMB(3.9,25,2,10971,0)="""RTN"",""ECV3RPC"",59,0)"
^XMB(3.9,25,2,10972,0)=" . . ; DSS unit name not found on VistA"
^XMB(3.9,25,2,10973,0)="""RTN"",""ECV3RPC"",60,0)"
^XMB(3.9,25,2,10974,0)=" . . S ECERRMSG=$P($T(DSS3^ECV3RPC),"";;"",2)"
^XMB(3.9,25,2,10975,0)="""RTN"",""ECV3RPC"",61,0)"
^XMB(3.9,25,2,10976,0)=" . . S ECCOLERR=ECDSSPC"
^XMB(3.9,25,2,10977,0)="""RTN"",""ECV3RPC"",62,0)"
^XMB(3.9,25,2,10978,0)=" . . D ERROR"
^XMB(3.9,25,2,10979,0)="""RTN"",""ECV3RPC"",63,0)"
^XMB(3.9,25,2,10980,0)=" . . Q"
^XMB(3.9,25,2,10981,0)="""RTN"",""ECV3RPC"",64,0)"
^XMB(3.9,25,2,10982,0)=" . Q"
^XMB(3.9,25,2,10983,0)="""RTN"",""ECV3RPC"",65,0)"
^XMB(3.9,25,2,10984,0)=" ;"
^XMB(3.9,25,2,10985,0)="""RTN"",""ECV3RPC"",66,0)"
^XMB(3.9,25,2,10986,0)=" ;--Validate Ordering section or derive from DSS Unit IEN--"
^XMB(3.9,25,2,10987,0)="""RTN"",""ECV3RPC"",67,0)"
^XMB(3.9,25,2,10988,0)=" I ECOSV'="""" D"
^XMB(3.9,25,2,10989,0)="""RTN"",""ECV3RPC"",68,0)"
^XMB(3.9,25,2,10990,0)=" . S ECOSIEN=$O(^ECC(723,""B"",ECOSV,0))"
^XMB(3.9,25,2,10991,0)="""RTN"",""ECV3RPC"",69,0)"
^XMB(3.9,25,2,10992,0)=" . I ECOSIEN="""" D"
^XMB(3.9,25,2,10993,0)="""RTN"",""ECV3RPC"",70,0)"
^XMB(3.9,25,2,10994,0)=" . . ; Ordering Section ""B"" x-ref doesn't exist"
^XMB(3.9,25,2,10995,0)="""RTN"",""ECV3RPC"",71,0)"
^XMB(3.9,25,2,10996,0)=" . . S ECERRMSG=$P($T(ORDSEC1^ECV3RPC),"";;"",2)"
^XMB(3.9,25,2,10997,0)="""RTN"",""ECV3RPC"",72,0)"
^XMB(3.9,25,2,10998,0)=" . . S ECCOLERR=ECOSPC"
^XMB(3.9,25,2,10999,0)="""RTN"",""ECV3RPC"",73,0)"
^XMB(3.9,25,2,11000,0)=" . . D ERROR"
^XMB(3.9,25,2,11001,0)="""RTN"",""ECV3RPC"",74,0)"
^XMB(3.9,25,2,11002,0)=" . . Q"
^XMB(3.9,25,2,11003,0)="""RTN"",""ECV3RPC"",75,0)"
^XMB(3.9,25,2,11004,0)=" . Q"
^XMB(3.9,25,2,11005,0)="""RTN"",""ECV3RPC"",76,0)"
^XMB(3.9,25,2,11006,0)=" I ECOSV="""" D"
^XMB(3.9,25,2,11007,0)="""RTN"",""ECV3RPC"",77,0)"
^XMB(3.9,25,2,11008,0)=" . I 'ECDSSIEN D"
^XMB(3.9,25,2,11009,0)="""RTN"",""ECV3RPC"",78,0)"
^XMB(3.9,25,2,11010,0)=" . . ; Unable to derive Ordering section from DSS Unit"
^XMB(3.9,25,2,11011,0)="""RTN"",""ECV3RPC"",79,0)"
^XMB(3.9,25,2,11012,0)=" . . S ECERRMSG=$P($T(ORDSEC2^ECV3RPC),"";;"",2)"
^XMB(3.9,25,2,11013,0)="""RTN"",""ECV3RPC"",80,0)"
^XMB(3.9,25,2,11014,0)=" . . S ECCOLERR=ECOSPC"
^XMB(3.9,25,2,11015,0)="""RTN"",""ECV3RPC"",81,0)"
^XMB(3.9,25,2,11016,0)=" . . D ERROR"
^XMB(3.9,25,2,11017,0)="""RTN"",""ECV3RPC"",82,0)"
^XMB(3.9,25,2,11018,0)=" . . Q"
^XMB(3.9,25,2,11019,0)="""RTN"",""ECV3RPC"",83,0)"
^XMB(3.9,25,2,11020,0)=" . I ECDSSIEN D"
^XMB(3.9,25,2,11021,0)="""RTN"",""ECV3RPC"",84,0)"
^XMB(3.9,25,2,11022,0)=" . . S ECOSIEN=$P(^ECD(ECDSSIEN,0),U,3)"
^XMB(3.9,25,2,11023,0)="""RTN"",""ECV3RPC"",85,0)"
^XMB(3.9,25,2,11024,0)=" . . I ECOSIEN="""" D"
^XMB(3.9,25,2,11025,0)="""RTN"",""ECV3RPC"",86,0)"
^XMB(3.9,25,2,11026,0)=" . . . ; Unable to derive Ordering section from DSS Unit"
^XMB(3.9,25,2,11027,0)="""RTN"",""ECV3RPC"",87,0)"
^XMB(3.9,25,2,11028,0)=" . . . S ECERRMSG=$P($T(ORDSEC2^ECV3RPC),"";;"",2)"
^XMB(3.9,25,2,11029,0)="""RTN"",""ECV3RPC"",88,0)"
^XMB(3.9,25,2,11030,0)=" . . . S ECCOLERR=ECOSPC"
^XMB(3.9,25,2,11031,0)="""RTN"",""ECV3RPC"",89,0)"
^XMB(3.9,25,2,11032,0)=" . . . D ERROR"
^XMB(3.9,25,2,11033,0)="""RTN"",""ECV3RPC"",90,0)"
^XMB(3.9,25,2,11034,0)=" . . . Q"
^XMB(3.9,25,2,11035,0)="""RTN"",""ECV3RPC"",91,0)"
^XMB(3.9,25,2,11036,0)=" . . Q"
^XMB(3.9,25,2,11037,0)="""RTN"",""ECV3RPC"",92,0)"
^XMB(3.9,25,2,11038,0)=" ;"
^XMB(3.9,25,2,11039,0)="""RTN"",""ECV3RPC"",93,0)"
^XMB(3.9,25,2,11040,0)=" ;--Procedure must be a National Procedure, Local Procedure,   --"
^XMB(3.9,25,2,11041,0)="""RTN"",""ECV3RPC"",94,0)"
^XMB(3.9,25,2,11042,0)=" ;--or a CPT code, and the EC Event Code Screen must be active --"
^XMB(3.9,25,2,11043,0)="""RTN"",""ECV3RPC"",95,0)"
^XMB(3.9,25,2,11044,0)=" N ECFOUND,ECPI,ECDT"
^XMB(3.9,25,2,11045,0)="""RTN"",""ECV3RPC"",96,0)"
^XMB(3.9,25,2,11046,0)=" S ECERRFLG=0,ECFOUND=0"
^XMB(3.9,25,2,11047,0)="""RTN"",""ECV3RPC"",97,0)"
^XMB(3.9,25,2,11048,0)=" S %DT=""XST"",X=$G(ECENCV,""NOW"") D ^%DT S ECDT=+Y"
^XMB(3.9,25,2,11049,0)="""RTN"",""ECV3RPC"",98,0)"
^XMB(3.9,25,2,11050,0)=" ; Check for National Procedure code (D x-ref)"
^XMB(3.9,25,2,11051,0)="""RTN"",""ECV3RPC"",99,0)"
^XMB(3.9,25,2,11052,0)=" I $D(^EC(725,""D"",ECPROCV)) D"
^XMB(3.9,25,2,11053,0)="""RTN"",""ECV3RPC"",100,0)"
^XMB(3.9,25,2,11054,0)=" . S ECPROCV=$O(^EC(725,""D"",ECPROCV,0))_"";EC(725,"""
^XMB(3.9,25,2,11055,0)="""RTN"",""ECV3RPC"",101,0)"
^XMB(3.9,25,2,11056,0)=" . S ECPI=$P($G(^EC(725,ECPROCV,0)),""^"",5)"
^XMB(3.9,25,2,11057,0)="""RTN"",""ECV3RPC"",102,0)"
^XMB(3.9,25,2,11058,0)=" . I ECPI="""" S ECFOUND=1 Q"
^XMB(3.9,25,2,11059,0)="""RTN"",""ECV3RPC"",103,0)"
^XMB(3.9,25,2,11060,0)=" . S ECPI=$$CPT^ICPTCOD(ECPI,ECDT) I +ECPI>0,$P(ECPI,""^"",7) S ECFOUND=1"
^XMB(3.9,25,2,11061,0)="""RTN"",""ECV3RPC"",104,0)"
^XMB(3.9,25,2,11062,0)=" ; Check for local procedure code (DL x-ref)"
^XMB(3.9,25,2,11063,0)="""RTN"",""ECV3RPC"",105,0)"
^XMB(3.9,25,2,11064,0)=" I 'ECFOUND,$D(^EC(725,""DL"",ECPROCV)) D"
^XMB(3.9,25,2,11065,0)="""RTN"",""ECV3RPC"",106,0)"
^XMB(3.9,25,2,11066,0)=" . S ECPROCV=$O(^EC(725,""DL"",ECPROCV,0))_"";EC(725,"""
^XMB(3.9,25,2,11067,0)="""RTN"",""ECV3RPC"",107,0)"
^XMB(3.9,25,2,11068,0)=" . S ECPI=$P($G(^EC(725,ECPROCV,0)),""^"",5)"
^XMB(3.9,25,2,11069,0)="""RTN"",""ECV3RPC"",108,0)"
^XMB(3.9,25,2,11070,0)=" . I ECPI="""" S ECFOUND=1 Q"
^XMB(3.9,25,2,11071,0)="""RTN"",""ECV3RPC"",109,0)"
^XMB(3.9,25,2,11072,0)=" . S ECPI=$$CPT^ICPTCOD(ECPI,ECDT) I +ECPI>0,$P(ECPI,""^"",7)  S ECFOUND=1"
^XMB(3.9,25,2,11073,0)="""RTN"",""ECV3RPC"",110,0)"
^XMB(3.9,25,2,11074,0)=" ; Check for CPT code (B x-ref)"
^XMB(3.9,25,2,11075,0)="""RTN"",""ECV3RPC"",111,0)"
^XMB(3.9,25,2,11076,0)=" I 'ECFOUND S ECPI=$$CPT^ICPTCOD(ECPROCV,ECDT) I +ECPI>0,$P(ECPI,""^"",7) D"
^XMB(3.9,25,2,11077,0)="""RTN"",""ECV3RPC"",112,0)"
^XMB(3.9,25,2,11078,0)=" . S ECPROCV=$P(ECPI,""^"")_"";ICPT("""
^XMB(3.9,25,2,11079,0)="""RTN"",""ECV3RPC"",113,0)"
^XMB(3.9,25,2,11080,0)=" . S ECFOUND=1"
^XMB(3.9,25,2,11081,0)="""RTN"",""ECV3RPC"",114,0)"
^XMB(3.9,25,2,11082,0)=" ;"
^XMB(3.9,25,2,11083,0)="""RTN"",""ECV3RPC"",115,0)"
^XMB(3.9,25,2,11084,0)=" I 'ECFOUND D"
^XMB(3.9,25,2,11085,0)="""RTN"",""ECV3RPC"",116,0)"
^XMB(3.9,25,2,11086,0)=" . ; Invalid procedure code"
^XMB(3.9,25,2,11087,0)="""RTN"",""ECV3RPC"",117,0)"
^XMB(3.9,25,2,11088,0)=" . S ECERRMSG=$P($T(PROC1^ECV3RPC),"";;"",2)"
^XMB(3.9,25,2,11089,0)="""RTN"",""ECV3RPC"",118,0)"
^XMB(3.9,25,2,11090,0)=" . S ECCOLERR=ECPROCPC"
^XMB(3.9,25,2,11091,0)="""RTN"",""ECV3RPC"",119,0)"
^XMB(3.9,25,2,11092,0)=" . D ERROR"
^XMB(3.9,25,2,11093,0)="""RTN"",""ECV3RPC"",120,0)"
^XMB(3.9,25,2,11094,0)=" . Q"
^XMB(3.9,25,2,11095,0)="""RTN"",""ECV3RPC"",121,0)"
^XMB(3.9,25,2,11096,0)=" ;"
^XMB(3.9,25,2,11097,0)="""RTN"",""ECV3RPC"",122,0)"
^XMB(3.9,25,2,11098,0)=" ; -Category must exist on the Event Capture Category file"
^XMB(3.9,25,2,11099,0)="""RTN"",""ECV3RPC"",123,0)"
^XMB(3.9,25,2,11100,0)=" I ECCATV="""" S ECCATIEN=0"
^XMB(3.9,25,2,11101,0)="""RTN"",""ECV3RPC"",124,0)"
^XMB(3.9,25,2,11102,0)=" I ECCATV'="""" D"
^XMB(3.9,25,2,11103,0)="""RTN"",""ECV3RPC"",125,0)"
^XMB(3.9,25,2,11104,0)=" . I $D(^EC(726,""B"",ECCATV)) S ECCATIEN=$O(^EC(726,""B"",ECCATV,0))"
^XMB(3.9,25,2,11105,0)="""RTN"",""ECV3RPC"",126,0)"
^XMB(3.9,25,2,11106,0)=" . I '$D(^EC(726,""B"",ECCATV)) D"
^XMB(3.9,25,2,11107,0)="""RTN"",""ECV3RPC"",127,0)"
^XMB(3.9,25,2,11108,0)=" . . ; B cross reference not found for category"
^XMB(3.9,25,2,11109,0)="""RTN"",""ECV3RPC"",128,0)"
^XMB(3.9,25,2,11110,0)=" . . S ECERRMSG=$P($T(CAT1^ECV3RPC),"";;"",2)"
^XMB(3.9,25,2,11111,0)="""RTN"",""ECV3RPC"",129,0)"
^XMB(3.9,25,2,11112,0)=" . . S ECCOLERR=ECCATPC"
^XMB(3.9,25,2,11113,0)="""RTN"",""ECV3RPC"",130,0)"
^XMB(3.9,25,2,11114,0)=" . . D ERROR"
^XMB(3.9,25,2,11115,0)="""RTN"",""ECV3RPC"",131,0)"
^XMB(3.9,25,2,11116,0)=" . . Q"
^XMB(3.9,25,2,11117,0)="""RTN"",""ECV3RPC"",132,0)"
^XMB(3.9,25,2,11118,0)=" ;"
^XMB(3.9,25,2,11119,0)="""RTN"",""ECV3RPC"",133,0)"
^XMB(3.9,25,2,11120,0)=" ; -check for active Event Code screen"
^XMB(3.9,25,2,11121,0)="""RTN"",""ECV3RPC"",134,0)"
^XMB(3.9,25,2,11122,0)=" N ECEVNT,ECSNODE,ECSDATA,ECSFOUND"
^XMB(3.9,25,2,11123,0)="""RTN"",""ECV3RPC"",135,0)"
^XMB(3.9,25,2,11124,0)=" I 'ECERRFLG D"
^XMB(3.9,25,2,11125,0)="""RTN"",""ECV3RPC"",136,0)"
^XMB(3.9,25,2,11126,0)=" . S ECEVNT=ECSTAV_""-""_ECDSSIEN_""-""_ECCATIEN_""-""_ECPROCV"
^XMB(3.9,25,2,11127,0)="""RTN"",""ECV3RPC"",137,0)"
^XMB(3.9,25,2,11128,0)=" . S (ECSNODE,ECSFOUND)=0"
^XMB(3.9,25,2,11129,0)="""RTN"",""ECV3RPC"",138,0)"
^XMB(3.9,25,2,11130,0)=" . F  S ECSNODE=$O(^ECJ(ECSNODE)) Q:ECSNODE=""""  D"
^XMB(3.9,25,2,11131,0)="""RTN"",""ECV3RPC"",139,0)"
^XMB(3.9,25,2,11132,0)=" . . S ECSDATA=$G(^ECJ(ECSNODE,0))"
^XMB(3.9,25,2,11133,0)="""RTN"",""ECV3RPC"",140,0)"
^XMB(3.9,25,2,11134,0)=" . . I ECEVNT=$P(ECSDATA,U,1) D"
^XMB(3.9,25,2,11135,0)="""RTN"",""ECV3RPC"",141,0)"
^XMB(3.9,25,2,11136,0)=" . . . S ECSFOUND=1"
^XMB(3.9,25,2,11137,0)="""RTN"",""ECV3RPC"",142,0)"
^XMB(3.9,25,2,11138,0)=" . . . I $P(ECSDATA,U,2)'="""" D"
^XMB(3.9,25,2,11139,0)="""RTN"",""ECV3RPC"",143,0)"
^XMB(3.9,25,2,11140,0)=" . . . . ; Event Code screen inactive"
^XMB(3.9,25,2,11141,0)="""RTN"",""ECV3RPC"",144,0)"
^XMB(3.9,25,2,11142,0)=" . . . . S ECERRMSG=$P($T(PROC2^ECV3RPC),"";;"",2)"
^XMB(3.9,25,2,11143,0)="""RTN"",""ECV3RPC"",145,0)"
^XMB(3.9,25,2,11144,0)=" . . . . S ECCOLERR=ECPROCPC"
^XMB(3.9,25,2,11145,0)="""RTN"",""ECV3RPC"",146,0)"
^XMB(3.9,25,2,11146,0)=" . . . . D ERROR"
^XMB(3.9,25,2,11147,0)="""RTN"",""ECV3RPC"",147,0)"
^XMB(3.9,25,2,11148,0)=" . . . . Q"
^XMB(3.9,25,2,11149,0)="""RTN"",""ECV3RPC"",148,0)"
^XMB(3.9,25,2,11150,0)=" . . . Q"
^XMB(3.9,25,2,11151,0)="""RTN"",""ECV3RPC"",149,0)"
^XMB(3.9,25,2,11152,0)=" . . Q"
^XMB(3.9,25,2,11153,0)="""RTN"",""ECV3RPC"",150,0)"
^XMB(3.9,25,2,11154,0)=" . Q"
^XMB(3.9,25,2,11155,0)="""RTN"",""ECV3RPC"",151,0)"
^XMB(3.9,25,2,11156,0)=" ;"
^XMB(3.9,25,2,11157,0)="""RTN"",""ECV3RPC"",152,0)"
^XMB(3.9,25,2,11158,0)=" ;Generate error if event code screen not found"
^XMB(3.9,25,2,11159,0)="""RTN"",""ECV3RPC"",153,0)"
^XMB(3.9,25,2,11160,0)=" I 'ECERRFLG,'ECSFOUND,ECDSSIEN D"
^XMB(3.9,25,2,11161,0)="""RTN"",""ECV3RPC"",154,0)"
^XMB(3.9,25,2,11162,0)=" . ; Event Code screen not found"
^XMB(3.9,25,2,11163,0)="""RTN"",""ECV3RPC"",155,0)"
^XMB(3.9,25,2,11164,0)=" . S ECERRMSG=$P($T(PROC3^ECV3RPC),"";;"",2)"
^XMB(3.9,25,2,11165,0)="""RTN"",""ECV3RPC"",156,0)"
^XMB(3.9,25,2,11166,0)=" . S ECCOLERR=ECPROCPC"
^XMB(3.9,25,2,11167,0)="""RTN"",""ECV3RPC"",157,0)"
^XMB(3.9,25,2,11168,0)=" . D ERROR"
^XMB(3.9,25,2,11169,0)="""RTN"",""ECV3RPC"",158,0)"
^XMB(3.9,25,2,11170,0)=" . Q"
^XMB(3.9,25,2,11171,0)="""RTN"",""ECV3RPC"",159,0)"
^XMB(3.9,25,2,11172,0)=" ;"
^XMB(3.9,25,2,11173,0)="""RTN"",""ECV3RPC"",160,0)"
^XMB(3.9,25,2,11174,0)=" I 'ECERRFLG,'ECFILDUP D"
^XMB(3.9,25,2,11175,0)="""RTN"",""ECV3RPC"",161,0)"
^XMB(3.9,25,2,11176,0)=" .;Check for duplicate uploaded record base on Loc_DSS Unit_Category_Proc"
^XMB(3.9,25,2,11177,0)="""RTN"",""ECV3RPC"",162,0)"
^XMB(3.9,25,2,11178,0)=" .;Date_Procedure"
^XMB(3.9,25,2,11179,0)="""RTN"",""ECV3RPC"",163,0)"
^XMB(3.9,25,2,11180,0)=" . N ECDUP,ECNAM,ECPNAM,ECI,ECX,Y,ECPRV,ECPROV"
^XMB(3.9,25,2,11181,0)="""RTN"",""ECV3RPC"",164,0)"
^XMB(3.9,25,2,11182,0)=" . S (ECDA,ECDUP)=0"
^XMB(3.9,25,2,11183,0)="""RTN"",""ECV3RPC"",165,0)"
^XMB(3.9,25,2,11184,0)=" . F  S ECDA=$O(^ECH(""ADT"",ECSTAV,ECSSNIEN,ECDSSIEN,ECDT,ECDA)) Q:'ECDA  D  I ECDUP Q"
^XMB(3.9,25,2,11185,0)="""RTN"",""ECV3RPC"",166,0)"
^XMB(3.9,25,2,11186,0)=" . . S ECX=$G(^ECH(ECDA,0)) I ECX="""" Q"
^XMB(3.9,25,2,11187,0)="""RTN"",""ECV3RPC"",167,0)"
^XMB(3.9,25,2,11188,0)=" . . I $P(ECX,U,8)'=ECCATIEN Q"
^XMB(3.9,25,2,11189,0)="""RTN"",""ECV3RPC"",168,0)"
^XMB(3.9,25,2,11190,0)=" . . I $P(ECX,U,9)'=ECPROCV Q"
^XMB(3.9,25,2,11191,0)="""RTN"",""ECV3RPC"",169,0)"
^XMB(3.9,25,2,11192,0)=" . . S ECPNAM="""",ECDUP=1"
^XMB(3.9,25,2,11193,0)="""RTN"",""ECV3RPC"",170,0)"
^XMB(3.9,25,2,11194,0)=" . . K ECPRV S ECPROV=$$GETPRV^ECPRVMUT(ECDA,.ECPRV)"
^XMB(3.9,25,2,11195,0)="""RTN"",""ECV3RPC"",171,0)"
^XMB(3.9,25,2,11196,0)=" . . F ECI=1:1:3 S Y=$O(ECPRV("""")) I Y'="""" D"
^XMB(3.9,25,2,11197,0)="""RTN"",""ECV3RPC"",172,0)"
^XMB(3.9,25,2,11198,0)=" . . . S ECNAM=$P(ECPRV(Y),U,2) K ECPRV(Y)"
^XMB(3.9,25,2,11199,0)="""RTN"",""ECV3RPC"",173,0)"
^XMB(3.9,25,2,11200,0)=" . . . S ECPNAM=ECPNAM_"" ""_$P(ECNAM,"","")_"",""_$E($P(ECNAM,"","",2))"
^XMB(3.9,25,2,11201,0)="""RTN"",""ECV3RPC"",174,0)"
^XMB(3.9,25,2,11202,0)=" . . S ECERRMSG=""**DUPLICATE** """
^XMB(3.9,25,2,11203,0)="""RTN"",""ECV3RPC"",175,0)"
^XMB(3.9,25,2,11204,0)=" . . S ECERRMSG=ECERRMSG_"" Clinic: ""_$$GET1^DIQ(44,$P(ECX,U,19),.01,""I"")"
^XMB(3.9,25,2,11205,0)="""RTN"",""ECV3RPC"",176,0)"
^XMB(3.9,25,2,11206,0)=" . . S ECERRMSG=ECERRMSG_"" Order Sect: ""_$$GET1^DIQ(723,$P(ECX,U,12),.01,""I"")"
^XMB(3.9,25,2,11207,0)="""RTN"",""ECV3RPC"",177,0)"
^XMB(3.9,25,2,11208,0)=" . . S ECERRMSG=ECERRMSG_"" Provider: ""_ECPNAM"
^XMB(3.9,25,2,11209,0)="""RTN"",""ECV3RPC"",178,0)"
^XMB(3.9,25,2,11210,0)=" . . S ECNAM=$$GET1^DIQ(200,$P(ECX,U,13),.01,""I"")"
^XMB(3.9,25,2,11211,0)="""RTN"",""ECV3RPC"",179,0)"
^XMB(3.9,25,2,11212,0)=" . . S ECERRMSG=ECERRMSG_"" Entered: ""_$P(ECNAM,"","")_"",""_$E($P(ECNAM,"","",2))"
^XMB(3.9,25,2,11213,0)="""RTN"",""ECV3RPC"",180,0)"
^XMB(3.9,25,2,11214,0)=" . . S ECCOLERR=ECSTAPC    ;(???)"
^XMB(3.9,25,2,11215,0)="""RTN"",""ECV3RPC"",181,0)"
^XMB(3.9,25,2,11216,0)=" . . D ERROR"
^XMB(3.9,25,2,11217,0)="""RTN"",""ECV3RPC"",182,0)"
^XMB(3.9,25,2,11218,0)=" Q"
^XMB(3.9,25,2,11219,0)="""RTN"",""ECV3RPC"",183,0)"
^XMB(3.9,25,2,11220,0)="ERROR ;--Set up array entry to contain the following:"
^XMB(3.9,25,2,11221,0)="""RTN"",""ECV3RPC"",184,0)"
^XMB(3.9,25,2,11222,0)=" ;1. record number"
^XMB(3.9,25,2,11223,0)="""RTN"",""ECV3RPC"",185,0)"
^XMB(3.9,25,2,11224,0)=" ;2. column number on spreadsheet containing the record number"
^XMB(3.9,25,2,11225,0)="""RTN"",""ECV3RPC"",186,0)"
^XMB(3.9,25,2,11226,0)=" ;3. column number on spreadsheet containing the data in error"
^XMB(3.9,25,2,11227,0)="""RTN"",""ECV3RPC"",187,0)"
^XMB(3.9,25,2,11228,0)=" ;4. error message"
^XMB(3.9,25,2,11229,0)="""RTN"",""ECV3RPC"",188,0)"
^XMB(3.9,25,2,11230,0)=" ;"
^XMB(3.9,25,2,11231,0)="""RTN"",""ECV3RPC"",189,0)"
^XMB(3.9,25,2,11232,0)=" S ECINDEX=ECINDEX+1"
^XMB(3.9,25,2,11233,0)="""RTN"",""ECV3RPC"",190,0)"
^XMB(3.9,25,2,11234,0)=" S RESULTS(ECINDEX)=ECRECV_""^""_ECRECPC_""^""_ECCOLERR_""^""_ECERRMSG_""^"""
^XMB(3.9,25,2,11235,0)="""RTN"",""ECV3RPC"",191,0)"
^XMB(3.9,25,2,11236,0)=" S ECERRFLG=1"
^XMB(3.9,25,2,11237,0)="""RTN"",""ECV3RPC"",192,0)"
^XMB(3.9,25,2,11238,0)=" Q"
^XMB(3.9,25,2,11239,0)="""RTN"",""ECV3RPC"",193,0)"
^XMB(3.9,25,2,11240,0)=" ;"
^XMB(3.9,25,2,11241,0)="""RTN"",""ECV3RPC"",194,0)"
^XMB(3.9,25,2,11242,0)="DSS1 ;;Invalid DSS Unit IEN"
^XMB(3.9,25,2,11243,0)="""RTN"",""ECV3RPC"",195,0)"
^XMB(3.9,25,2,11244,0)="DSS2 ;;Invalid DSS Unit Number"
^XMB(3.9,25,2,11245,0)="""RTN"",""ECV3RPC"",196,0)"
^XMB(3.9,25,2,11246,0)="DSS3 ;;Invalid DSS Unit Name"
^XMB(3.9,25,2,11247,0)="""RTN"",""ECV3RPC"",197,0)"
^XMB(3.9,25,2,11248,0)="ORDSEC1 ;;Ordering Section ""B"" x-ref not on Med Specialty file(#723)"
^XMB(3.9,25,2,11249,0)="""RTN"",""ECV3RPC"",198,0)"
^XMB(3.9,25,2,11250,0)="ORDSEC2 ;;Unable to derive Ordering Section from DSS Unit"
^XMB(3.9,25,2,11251,0)="""RTN"",""ECV3RPC"",199,0)"
^XMB(3.9,25,2,11252,0)="PROC1 ;;Procedure/CPT invalid"
^XMB(3.9,25,2,11253,0)="""RTN"",""ECV3RPC"",200,0)"
^XMB(3.9,25,2,11254,0)="PROC2 ;;Procedure/CPT invalid for this Station and DSS Unit"
^XMB(3.9,25,2,11255,0)="""RTN"",""ECV3RPC"",201,0)"
^XMB(3.9,25,2,11256,0)="PROC3 ;;Event Code screen not found"
^XMB(3.9,25,2,11257,0)="""RTN"",""ECV3RPC"",202,0)"
^XMB(3.9,25,2,11258,0)="CAT1 ;;Category ""B"" x-ref not on EC Category file(#726)"
^XMB(3.9,25,2,11259,0)="""UP"",721,721.042,-1)"
^XMB(3.9,25,2,11260,0)="721^PRV"
^XMB(3.9,25,2,11261,0)="""UP"",721,721.042,0)"
^XMB(3.9,25,2,11262,0)="721.042"
^XMB(3.9,25,2,11263,0)="""VER"")"
^XMB(3.9,25,2,11264,0)="8.0^22.0"
^XMB(3.9,25,2,11265,0)="""^DD"",721,721,10,0)"
^XMB(3.9,25,2,11266,0)="*PROVIDER^RP200'^VA(200,^0;11^Q"
^XMB(3.9,25,2,11267,0)="""^DD"",721,721,10,.1)"
^XMB(3.9,25,2,11268,0)="Provider"
^XMB(3.9,25,2,11269,0)="""^DD"",721,721,10,1,0)"
^XMB(3.9,25,2,11270,0)="^.1^^0"
^XMB(3.9,25,2,11271,0)="""^DD"",721,721,10,3)"
^XMB(3.9,25,2,11272,0)="Enter the name of the provider performing this procedure."
^XMB(3.9,25,2,11273,0)="""^DD"",721,721,10,21,0)"
^XMB(3.9,25,2,11274,0)="^^6^6^3051202^"
^XMB(3.9,25,2,11275,0)="""^DD"",721,721,10,21,1,0)"
^XMB(3.9,25,2,11276,0)="This is the name of the provider performing this procedure."
^XMB(3.9,25,2,11277,0)="""^DD"",721,721,10,21,2,0)"
^XMB(3.9,25,2,11278,0)="Provider can be selected from entries in the NEW PERSON"
^XMB(3.9,25,2,11279,0)="""^DD"",721,721,10,21,3,0)"
^XMB(3.9,25,2,11280,0)="file (#200)."
^XMB(3.9,25,2,11281,0)="""^DD"",721,721,10,21,4,0)"
^XMB(3.9,25,2,11282,0)=" "
^XMB(3.9,25,2,11283,0)="""^DD"",721,721,10,21,5,0)"
^XMB(3.9,25,2,11284,0)="Starred for inactivation with EC*2.0*72. Data converted and stored "
^XMB(3.9,25,2,11285,0)="""^DD"",721,721,10,21,6,0)"
^XMB(3.9,25,2,11286,0)="in Field #42 'PROVIDER MULTIPLE'."
^XMB(3.9,25,2,11287,0)="""^DD"",721,721,10,23,0)"
^XMB(3.9,25,2,11288,0)="^^4^4^3051202^"
^XMB(3.9,25,2,11289,0)="""^DD"",721,721,10,23,1,0)"
^XMB(3.9,25,2,11290,0)="A pointer to the NEW PERSON file (#200)."
^XMB(3.9,25,2,11291,0)="""^DD"",721,721,10,23,2,0)"
^XMB(3.9,25,2,11292,0)=" "
^XMB(3.9,25,2,11293,0)="""^DD"",721,721,10,23,3,0)"
^XMB(3.9,25,2,11294,0)="Starred for inactivation with EC*2.0*72. Data converted and stored"
^XMB(3.9,25,2,11295,0)="""^DD"",721,721,10,23,4,0)"
^XMB(3.9,25,2,11296,0)="in Field #42 'PROVIDER MULTIPLE'."
^XMB(3.9,25,2,11297,0)="""^DD"",721,721,10,""DT"")"
^XMB(3.9,25,2,11298,0)="3051202"
^XMB(3.9,25,2,11299,0)="""^DD"",721,721,15,0)"
^XMB(3.9,25,2,11300,0)="*PROVIDER #2^P200'^VA(200,^0;15^Q"
^XMB(3.9,25,2,11301,0)="""^DD"",721,721,15,.1)"
^XMB(3.9,25,2,11302,0)="Provider #2"
^XMB(3.9,25,2,11303,0)="""^DD"",721,721,15,1,0)"
^XMB(3.9,25,2,11304,0)="^.1^^0"
^XMB(3.9,25,2,11305,0)="""^DD"",721,721,15,3)"
^XMB(3.9,25,2,11306,0)="Enter the name of the person who assisted in performing this procedure."
^XMB(3.9,25,2,11307,0)="""^DD"",721,721,15,21,0)"
^XMB(3.9,25,2,11308,0)="^^6^6^3051202^"
^XMB(3.9,25,2,11309,0)="""^DD"",721,721,15,21,1,0)"
^XMB(3.9,25,2,11310,0)="This is the name of the person who assisted in performing"
^XMB(3.9,25,2,11311,0)="""^DD"",721,721,15,21,2,0)"
^XMB(3.9,25,2,11312,0)="this procedure. This name can be selected from entries in"
^XMB(3.9,25,2,11313,0)="""^DD"",721,721,15,21,3,0)"
^XMB(3.9,25,2,11314,0)="the NEW PERSON file (#200)."
^XMB(3.9,25,2,11315,0)="""^DD"",721,721,15,21,4,0)"
^XMB(3.9,25,2,11316,0)=" "
^XMB(3.9,25,2,11317,0)="""^DD"",721,721,15,21,5,0)"
^XMB(3.9,25,2,11318,0)="Starred for inactivation with EC*2.0*72. Data converted and stored"
^XMB(3.9,25,2,11319,0)="""^DD"",721,721,15,21,6,0)"
^XMB(3.9,25,2,11320,0)="in Field #42 'PROVIDER MULTIPLE'."
^XMB(3.9,25,2,11321,0)="""^DD"",721,721,15,23,0)"
^XMB(3.9,25,2,11322,0)="^^4^4^3051202^"
^XMB(3.9,25,2,11323,0)="""^DD"",721,721,15,23,1,0)"
^XMB(3.9,25,2,11324,0)="A pointer to the NEW PERSON file (#200)."
^XMB(3.9,25,2,11325,0)="""^DD"",721,721,15,23,2,0)"
^XMB(3.9,25,2,11326,0)=" "
^XMB(3.9,25,2,11327,0)="""^DD"",721,721,15,23,3,0)"
^XMB(3.9,25,2,11328,0)="Starred for inactivation with EC*2.0*72. Data converted and stored"
^XMB(3.9,25,2,11329,0)="""^DD"",721,721,15,23,4,0)"
^XMB(3.9,25,2,11330,0)="in Field #42 'PROVIDER MULTIPLE'."
^XMB(3.9,25,2,11331,0)="""^DD"",721,721,15,""DT"")"
^XMB(3.9,25,2,11332,0)="3051202"
^XMB(3.9,25,2,11333,0)="""^DD"",721,721,17,0)"
^XMB(3.9,25,2,11334,0)="*PROVIDER #3^P200'^VA(200,^0;17^Q"
^XMB(3.9,25,2,11335,0)="""^DD"",721,721,17,.1)"
^XMB(3.9,25,2,11336,0)="Provider #3"
^XMB(3.9,25,2,11337,0)="""^DD"",721,721,17,1,0)"
^XMB(3.9,25,2,11338,0)="^.1^^0"
^XMB(3.9,25,2,11339,0)="""^DD"",721,721,17,3)"
^XMB(3.9,25,2,11340,0)="Enter the name of the person who assisted in performing this procedure."
^XMB(3.9,25,2,11341,0)="""^DD"",721,721,17,21,0)"
^XMB(3.9,25,2,11342,0)="^^6^6^3051202^"
^XMB(3.9,25,2,11343,0)="""^DD"",721,721,17,21,1,0)"
^XMB(3.9,25,2,11344,0)="This is the name of the person who assisted in performing"
^XMB(3.9,25,2,11345,0)="""^DD"",721,721,17,21,2,0)"
^XMB(3.9,25,2,11346,0)="this procedure. This name can be selected from entries in"
^XMB(3.9,25,2,11347,0)="""^DD"",721,721,17,21,3,0)"
^XMB(3.9,25,2,11348,0)="the NEW PERSON file (#200)."
^XMB(3.9,25,2,11349,0)="""^DD"",721,721,17,21,4,0)"
^XMB(3.9,25,2,11350,0)=" "
^XMB(3.9,25,2,11351,0)="""^DD"",721,721,17,21,5,0)"
^XMB(3.9,25,2,11352,0)="Starred for inactivation with EC*2.0*72. Data converted and stored"
^XMB(3.9,25,2,11353,0)="""^DD"",721,721,17,21,6,0)"
^XMB(3.9,25,2,11354,0)="in Field #42 'PROVIDER MULTIPLE'."
^XMB(3.9,25,2,11355,0)="""^DD"",721,721,17,23,0)"
^XMB(3.9,25,2,11356,0)="^^4^4^3051202^"
^XMB(3.9,25,2,11357,0)="""^DD"",721,721,17,23,1,0)"
^XMB(3.9,25,2,11358,0)="A pointer to the NEW PERSON file (#200)."
^XMB(3.9,25,2,11359,0)="""^DD"",721,721,17,23,2,0)"
^XMB(3.9,25,2,11360,0)=" "
^XMB(3.9,25,2,11361,0)="""^DD"",721,721,17,23,3,0)"
^XMB(3.9,25,2,11362,0)="Starred for inactivation with EC*2.0*72. Data converted and stored"
^XMB(3.9,25,2,11363,0)="""^DD"",721,721,17,23,4,0)"
^XMB(3.9,25,2,11364,0)="in Field #42 'PROVIDER MULTIPLE'."
^XMB(3.9,25,2,11365,0)="""^DD"",721,721,17,""DT"")"
^XMB(3.9,25,2,11366,0)="3051202"
^XMB(3.9,25,2,11367,0)="""^DD"",721,721,30,0)"
^XMB(3.9,25,2,11368,0)="PCE DATA FEED^F^^PCE;1^K:$L(X)>240!($L(X)<1) X"
^XMB(3.9,25,2,11369,0)="""^DD"",721,721,30,3)"
^XMB(3.9,25,2,11370,0)="Answer must be 1-240 characters in length."
^XMB(3.9,25,2,11371,0)="""^DD"",721,721,30,21,0)"
^XMB(3.9,25,2,11372,0)="^.001^2^2^3051205^^^^"
^XMB(3.9,25,2,11373,0)="""^DD"",721,721,30,21,1,0)"
^XMB(3.9,25,2,11374,0)="The field contains the ECS data formatted to feed the Patient Care"
^XMB(3.9,25,2,11375,0)="""^DD"",721,721,30,21,2,0)"
^XMB(3.9,25,2,11376,0)="Encounter (PCE) software."
^XMB(3.9,25,2,11377,0)="""^DD"",721,721,30,23,0)"
^XMB(3.9,25,2,11378,0)="^^6^6^3051205^"
^XMB(3.9,25,2,11379,0)="""^DD"",721,721,30,23,1,0)"
^XMB(3.9,25,2,11380,0)="Data stored at this node is transmitted to PCE and contains the following:-"
^XMB(3.9,25,2,11381,0)="""^DD"",721,721,30,23,2,0)"
^XMB(3.9,25,2,11382,0)="date/time~patient dfn~hospital location~institution~dss id~provider #1 "
^XMB(3.9,25,2,11383,0)="""^DD"",721,721,30,23,3,0)"
^XMB(3.9,25,2,11384,0)="(no longer populated with EC*2.0*72)~provider 2 (not populated)~provider 3"
^XMB(3.9,25,2,11385,0)="""^DD"",721,721,30,23,4,0)"
^XMB(3.9,25,2,11386,0)="(not populated)~volume~cpt code~diagnosis~agent orange~radiation"
^XMB(3.9,25,2,11387,0)="""^DD"",721,721,30,23,5,0)"
^XMB(3.9,25,2,11388,0)="~enviromental contaminants~service connected~ecs national # & name"
^XMB(3.9,25,2,11389,0)="""^DD"",721,721,30,23,6,0)"
^XMB(3.9,25,2,11390,0)="~eligibility~military sexual trauma~head/neck cancer~combat veteran"
^XMB(3.9,25,2,11391,0)="""^DD"",721,721,30,""DT"")"
^XMB(3.9,25,2,11392,0)="2970116"
^XMB(3.9,25,2,11393,0)="""^DD"",721,721,42,0)"
^XMB(3.9,25,2,11394,0)="PROVIDER MULTIPLE^721.042PA^^PRV;0"
^XMB(3.9,25,2,11395,0)="""^DD"",721,721,42,21,0)"
^XMB(3.9,25,2,11396,0)="^.001^5^5^3060320^^"
^XMB(3.9,25,2,11397,0)="""^DD"",721,721,42,21,1,0)"
^XMB(3.9,25,2,11398,0)="This is the provider(s) giving patient care for this encounter."
^XMB(3.9,25,2,11399,0)="""^DD"",721,721,42,21,2,0)"
^XMB(3.9,25,2,11400,0)=" "
^XMB(3.9,25,2,11401,0)="""^DD"",721,721,42,21,3,0)"
^XMB(3.9,25,2,11402,0)="Prior to the installation of EC*2.0*72 provider data was stored in fields "
^XMB(3.9,25,2,11403,0)="""^DD"",721,721,42,21,4,0)"
^XMB(3.9,25,2,11404,0)="#10, #15 and #17.  EC*2.0*72 converted and stored these fields' data in "
^XMB(3.9,25,2,11405,0)="""^DD"",721,721,42,21,5,0)"
^XMB(3.9,25,2,11406,0)="this field #42,""PROVIDER MULTIPLE""."
^XMB(3.9,25,2,11407,0)="""^DD"",721,721,42,23,0)"
^XMB(3.9,25,2,11408,0)="^.001^1^1^3060320^^^^"
^XMB(3.9,25,2,11409,0)="""^DD"",721,721,42,23,1,0)"
^XMB(3.9,25,2,11410,0)="This is a pointer to the NEW PERSON file #200."
^XMB(3.9,25,2,11411,0)="""^DD"",721,721.042,0)"
^XMB(3.9,25,2,11412,0)="PROVIDER MULTIPLE SUB-FIELD^^.02^2"
^XMB(3.9,25,2,11413,0)="""^DD"",721,721.042,0,""DT"")"
^XMB(3.9,25,2,11414,0)="3050805"
^XMB(3.9,25,2,11415,0)="""^DD"",721,721.042,0,""IX"",""B"",721.042,.01)"
^XMB(3.9,25,2,11416,0)=""
^XMB(3.9,25,2,11417,0)="""^DD"",721,721.042,0,""NM"",""PROVIDER MULTIPLE"")"
^XMB(3.9,25,2,11418,0)=""
^XMB(3.9,25,2,11419,0)="""^DD"",721,721.042,0,""UP"")"
^XMB(3.9,25,2,11420,0)="721"
^XMB(3.9,25,2,11421,0)="""^DD"",721,721.042,.01,0)"
^XMB(3.9,25,2,11422,0)="PROVIDER^MRP200'^VA(200,^0;1^Q"
^XMB(3.9,25,2,11423,0)="""^DD"",721,721.042,.01,1,0)"
^XMB(3.9,25,2,11424,0)="^.1"
^XMB(3.9,25,2,11425,0)="""^DD"",721,721.042,.01,1,1,0)"
^XMB(3.9,25,2,11426,0)="721.042^B"
^XMB(3.9,25,2,11427,0)="""^DD"",721,721.042,.01,1,1,1)"
^XMB(3.9,25,2,11428,0)="S ^ECH(DA(1),""PRV"",""B"",$E(X,1,30),DA)="""""
^XMB(3.9,25,2,11429,0)="""^DD"",721,721.042,.01,1,1,2)"
^XMB(3.9,25,2,11430,0)="K ^ECH(DA(1),""PRV"",""B"",$E(X,1,30),DA)"
^XMB(3.9,25,2,11431,0)="""^DD"",721,721.042,.01,3)"
^XMB(3.9,25,2,11432,0)="Enter the name of the provider performing this procedure."
^XMB(3.9,25,2,11433,0)="""^DD"",721,721.042,.01,21,0)"
^XMB(3.9,25,2,11434,0)="^^8^8^3060320^"
^XMB(3.9,25,2,11435,0)="""^DD"",721,721.042,.01,21,1,0)"
^XMB(3.9,25,2,11436,0)="This field indicates whether the provider is the primary or secondary "
^XMB(3.9,25,2,11437,0)="""^DD"",721,721.042,.01,21,2,0)"
^XMB(3.9,25,2,11438,0)="caregiver for the encounter."
^XMB(3.9,25,2,11439,0)="""^DD"",721,721.042,.01,21,3,0)"
^XMB(3.9,25,2,11440,0)=" "
^XMB(3.9,25,2,11441,0)="""^DD"",721,721.042,.01,21,4,0)"
^XMB(3.9,25,2,11442,0)="The primary provider is usually the physician responsible for THIS"
^XMB(3.9,25,2,11443,0)="""^DD"",721,721.042,.01,21,5,0)"
^XMB(3.9,25,2,11444,0)="PARTICULAR encounter."
^XMB(3.9,25,2,11445,0)="""^DD"",721,721.042,.01,21,6,0)"
^XMB(3.9,25,2,11446,0)=" "
^XMB(3.9,25,2,11447,0)="""^DD"",721,721.042,.01,21,7,0)"
^XMB(3.9,25,2,11448,0)="Secondary providers are those providers who also provided care for this "
^XMB(3.9,25,2,11449,0)="""^DD"",721,721.042,.01,21,8,0)"
^XMB(3.9,25,2,11450,0)="encounter."
^XMB(3.9,25,2,11451,0)="""^DD"",721,721.042,.01,23,0)"
^XMB(3.9,25,2,11452,0)="^.001^1^1^3060320^^^^"
^XMB(3.9,25,2,11453,0)="""^DD"",721,721.042,.01,23,1,0)"
^XMB(3.9,25,2,11454,0)="A pointer to file #200."
^XMB(3.9,25,2,11455,0)="""^DD"",721,721.042,.01,""DT"")"
^XMB(3.9,25,2,11456,0)="3050805"
^XMB(3.9,25,2,11457,0)="""^DD"",721,721.042,.02,0)"
^XMB(3.9,25,2,11458,0)="PRIMARY/SECONDARY^S^P:PRIMARY;S:SECONDARY;^0;2^Q"
^XMB(3.9,25,2,11459,0)="""^DD"",721,721.042,.02,3)"
^XMB(3.9,25,2,11460,0)="Enter whether this is the primary or secondary provider."
^XMB(3.9,25,2,11461,0)="""^DD"",721,721.042,.02,21,0)"
^XMB(3.9,25,2,11462,0)="^.001^2^2^3060320^^"
^XMB(3.9,25,2,11463,0)="""^DD"",721,721.042,.02,21,1,0)"
^XMB(3.9,25,2,11464,0)="This field indicates whether the provider was the primary or secondary"
^XMB(3.9,25,2,11465,0)="""^DD"",721,721.042,.02,21,2,0)"
^XMB(3.9,25,2,11466,0)="caregiver for the encounter.                    "
^XMB(3.9,25,2,11467,0)="""^DD"",721,721.042,.02,""DT"")"
^XMB(3.9,25,2,11468,0)="3050805"
^XMB(3.9,25,2,11469,0)="""BLD"",6253,6)"
^XMB(3.9,25,2,11470,0)="^76"
^XMB(3.9,25,2,11471,0)="$END KID EC*2.0*72"
^XMB(3.9,25,6,0)="^3.911A^2^2"
^XMB(3.9,25,6,1,0)="POSTMASTER"
^XMB(3.9,25,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,25,6,"B","POSTMASTER",1)=""
^XMB(3.9,25,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,26,0)="ECX-3_SEQ-83_PAT-89.KID^.5^3061008.015733^^^^K"
^XMB(3.9,26,.6)="3061008"
^XMB(3.9,26,1,0)="^3.91A^2^2"
^XMB(3.9,26,1,1,0)=".5^0^3061008.015733^^^^^^^3061008.015733"
^XMB(3.9,26,1,2,0)="1^0^3061008.02304^^^^^^^3061008.02304"
^XMB(3.9,26,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,26,1,"C",.5,1)=""
^XMB(3.9,26,1,"C",1,2)=""
^XMB(3.9,26,2,0)="^^695^695^3061008"
^XMB(3.9,26,2,1,0)="$TXT Released ECX*3*89 SEQ #83"
^XMB(3.9,26,2,2,0)="Extracted from mail message"
^XMB(3.9,26,2,3,0)="$END TXT"
^XMB(3.9,26,2,4,0)="$KID ECX*3.0*89"
^XMB(3.9,26,2,5,0)="**INSTALL NAME**"
^XMB(3.9,26,2,6,0)="ECX*3.0*89"
^XMB(3.9,26,2,7,0)="""BLD"",6259,0)"
^XMB(3.9,26,2,8,0)="ECX*3.0*89^DSS EXTRACTS^0^3060502^y"
^XMB(3.9,26,2,9,0)="""BLD"",6259,4,0)"
^XMB(3.9,26,2,10,0)="^9.64PA^^"
^XMB(3.9,26,2,11,0)="""BLD"",6259,""KRN"",0)"
^XMB(3.9,26,2,12,0)="^9.67PA^8989.52^19"
^XMB(3.9,26,2,13,0)="""BLD"",6259,""KRN"",.4,0)"
^XMB(3.9,26,2,14,0)=".4"
^XMB(3.9,26,2,15,0)="""BLD"",6259,""KRN"",.401,0)"
^XMB(3.9,26,2,16,0)=".401"
^XMB(3.9,26,2,17,0)="""BLD"",6259,""KRN"",.402,0)"
^XMB(3.9,26,2,18,0)=".402"
^XMB(3.9,26,2,19,0)="""BLD"",6259,""KRN"",.403,0)"
^XMB(3.9,26,2,20,0)=".403"
^XMB(3.9,26,2,21,0)="""BLD"",6259,""KRN"",.5,0)"
^XMB(3.9,26,2,22,0)=".5"
^XMB(3.9,26,2,23,0)="""BLD"",6259,""KRN"",.84,0)"
^XMB(3.9,26,2,24,0)=".84"
^XMB(3.9,26,2,25,0)="""BLD"",6259,""KRN"",3.6,0)"
^XMB(3.9,26,2,26,0)="3.6"
^XMB(3.9,26,2,27,0)="""BLD"",6259,""KRN"",3.8,0)"
^XMB(3.9,26,2,28,0)="3.8"
^XMB(3.9,26,2,29,0)="""BLD"",6259,""KRN"",9.2,0)"
^XMB(3.9,26,2,30,0)="9.2"
^XMB(3.9,26,2,31,0)="""BLD"",6259,""KRN"",9.8,0)"
^XMB(3.9,26,2,32,0)="9.8"
^XMB(3.9,26,2,33,0)="""BLD"",6259,""KRN"",9.8,""NM"",0)"
^XMB(3.9,26,2,34,0)="^9.68A^3^3"
^XMB(3.9,26,2,35,0)="""BLD"",6259,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,26,2,36,0)="ECXKILL^^0^B6122463"
^XMB(3.9,26,2,37,0)="""BLD"",6259,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,26,2,38,0)="ECXKILL1^^0^B6954712"
^XMB(3.9,26,2,39,0)="""BLD"",6259,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,26,2,40,0)="ECXEC^^0^B34277990"
^XMB(3.9,26,2,41,0)="""BLD"",6259,""KRN"",9.8,""NM"",""B"",""ECXEC"",3)"
^XMB(3.9,26,2,42,0)=""
^XMB(3.9,26,2,43,0)="""BLD"",6259,""KRN"",9.8,""NM"",""B"",""ECXKILL"",1)"
^XMB(3.9,26,2,44,0)=""
^XMB(3.9,26,2,45,0)="""BLD"",6259,""KRN"",9.8,""NM"",""B"",""ECXKILL1"",2)"
^XMB(3.9,26,2,46,0)=""
^XMB(3.9,26,2,47,0)="""BLD"",6259,""KRN"",19,0)"
^XMB(3.9,26,2,48,0)="19"
^XMB(3.9,26,2,49,0)="""BLD"",6259,""KRN"",19.1,0)"
^XMB(3.9,26,2,50,0)="19.1"
^XMB(3.9,26,2,51,0)="""BLD"",6259,""KRN"",101,0)"
^XMB(3.9,26,2,52,0)="101"
^XMB(3.9,26,2,53,0)="""BLD"",6259,""KRN"",409.61,0)"
^XMB(3.9,26,2,54,0)="409.61"
^XMB(3.9,26,2,55,0)="""BLD"",6259,""KRN"",771,0)"
^XMB(3.9,26,2,56,0)="771"
^XMB(3.9,26,2,57,0)="""BLD"",6259,""KRN"",870,0)"
^XMB(3.9,26,2,58,0)="870"
^XMB(3.9,26,2,59,0)="""BLD"",6259,""KRN"",8989.51,0)"
^XMB(3.9,26,2,60,0)="8989.51"
^XMB(3.9,26,2,61,0)="""BLD"",6259,""KRN"",8989.52,0)"
^XMB(3.9,26,2,62,0)="8989.52"
^XMB(3.9,26,2,63,0)="""BLD"",6259,""KRN"",8994,0)"
^XMB(3.9,26,2,64,0)="8994"
^XMB(3.9,26,2,65,0)="""BLD"",6259,""KRN"",""B"",.4,.4)"
^XMB(3.9,26,2,66,0)=""
^XMB(3.9,26,2,67,0)="""BLD"",6259,""KRN"",""B"",.401,.401)"
^XMB(3.9,26,2,68,0)=""
^XMB(3.9,26,2,69,0)="""BLD"",6259,""KRN"",""B"",.402,.402)"
^XMB(3.9,26,2,70,0)=""
^XMB(3.9,26,2,71,0)="""BLD"",6259,""KRN"",""B"",.403,.403)"
^XMB(3.9,26,2,72,0)=""
^XMB(3.9,26,2,73,0)="""BLD"",6259,""KRN"",""B"",.5,.5)"
^XMB(3.9,26,2,74,0)=""
^XMB(3.9,26,2,75,0)="""BLD"",6259,""KRN"",""B"",.84,.84)"
^XMB(3.9,26,2,76,0)=""
^XMB(3.9,26,2,77,0)="""BLD"",6259,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,26,2,78,0)=""
^XMB(3.9,26,2,79,0)="""BLD"",6259,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,26,2,80,0)=""
^XMB(3.9,26,2,81,0)="""BLD"",6259,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,26,2,82,0)=""
^XMB(3.9,26,2,83,0)="""BLD"",6259,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,26,2,84,0)=""
^XMB(3.9,26,2,85,0)="""BLD"",6259,""KRN"",""B"",19,19)"
^XMB(3.9,26,2,86,0)=""
^XMB(3.9,26,2,87,0)="""BLD"",6259,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,26,2,88,0)=""
^XMB(3.9,26,2,89,0)="""BLD"",6259,""KRN"",""B"",101,101)"
^XMB(3.9,26,2,90,0)=""
^XMB(3.9,26,2,91,0)="""BLD"",6259,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,26,2,92,0)=""
^XMB(3.9,26,2,93,0)="""BLD"",6259,""KRN"",""B"",771,771)"
^XMB(3.9,26,2,94,0)=""
^XMB(3.9,26,2,95,0)="""BLD"",6259,""KRN"",""B"",870,870)"
^XMB(3.9,26,2,96,0)=""
^XMB(3.9,26,2,97,0)="""BLD"",6259,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,26,2,98,0)=""
^XMB(3.9,26,2,99,0)="""BLD"",6259,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,26,2,100,0)=""
^XMB(3.9,26,2,101,0)="""BLD"",6259,""KRN"",""B"",8994,8994)"
^XMB(3.9,26,2,102,0)=""
^XMB(3.9,26,2,103,0)="""BLD"",6259,""QUES"",0)"
^XMB(3.9,26,2,104,0)="^9.62^^"
^XMB(3.9,26,2,105,0)="""BLD"",6259,""REQB"",0)"
^XMB(3.9,26,2,106,0)="^9.611^3^3"
^XMB(3.9,26,2,107,0)="""BLD"",6259,""REQB"",1,0)"
^XMB(3.9,26,2,108,0)="ECX*3.0*84^2"
^XMB(3.9,26,2,109,0)="""BLD"",6259,""REQB"",2,0)"
^XMB(3.9,26,2,110,0)="ECX*3.0*71^2"
^XMB(3.9,26,2,111,0)="""BLD"",6259,""REQB"",3,0)"
^XMB(3.9,26,2,112,0)="EC*2.0*72^2"
^XMB(3.9,26,2,113,0)="""BLD"",6259,""REQB"",""B"",""EC*2.0*72"",3)"
^XMB(3.9,26,2,114,0)=""
^XMB(3.9,26,2,115,0)="""BLD"",6259,""REQB"",""B"",""ECX*3.0*71"",2)"
^XMB(3.9,26,2,116,0)=""
^XMB(3.9,26,2,117,0)="""BLD"",6259,""REQB"",""B"",""ECX*3.0*84"",1)"
^XMB(3.9,26,2,118,0)=""
^XMB(3.9,26,2,119,0)="""MBREQ"")"
^XMB(3.9,26,2,120,0)="0"
^XMB(3.9,26,2,121,0)="""PKG"",513,-1)"
^XMB(3.9,26,2,122,0)="1^1"
^XMB(3.9,26,2,123,0)="""PKG"",513,0)"
^XMB(3.9,26,2,124,0)="DSS EXTRACTS^ECX^Decision Support System. (DSS)"
^XMB(3.9,26,2,125,0)="""PKG"",513,20,0)"
^XMB(3.9,26,2,126,0)="^9.402P^^"
^XMB(3.9,26,2,127,0)="""PKG"",513,22,0)"
^XMB(3.9,26,2,128,0)="^9.49I^1^1"
^XMB(3.9,26,2,129,0)="""PKG"",513,22,1,0)"
^XMB(3.9,26,2,130,0)="3.0^3010618^2980112^11714"
^XMB(3.9,26,2,131,0)="""PKG"",513,22,1,""PAH"",1,0)"
^XMB(3.9,26,2,132,0)="89^3060502"
^XMB(3.9,26,2,133,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,26,2,134,0)="Y"
^XMB(3.9,26,2,135,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,26,2,136,0)="^D REP^XPDH"
^XMB(3.9,26,2,137,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,26,2,138,0)="Shall I write over your |FLAG| File"
^XMB(3.9,26,2,139,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,26,2,140,0)="YES"
^XMB(3.9,26,2,141,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,26,2,142,0)="D XPF1^XPDIQ"
^XMB(3.9,26,2,143,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,26,2,144,0)="Y"
^XMB(3.9,26,2,145,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,26,2,146,0)="^D DTA^XPDH"
^XMB(3.9,26,2,147,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,26,2,148,0)="Want my data |FLAG| yours"
^XMB(3.9,26,2,149,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,26,2,150,0)="YES"
^XMB(3.9,26,2,151,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,26,2,152,0)="D XPF2^XPDIQ"
^XMB(3.9,26,2,153,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,26,2,154,0)="YO"
^XMB(3.9,26,2,155,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,26,2,156,0)="^D INHIBIT^XPDH"
^XMB(3.9,26,2,157,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,26,2,158,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,26,2,159,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,26,2,160,0)="YES"
^XMB(3.9,26,2,161,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,26,2,162,0)="D XPI1^XPDIQ"
^XMB(3.9,26,2,163,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,26,2,164,0)="PO^VA(200,:EM"
^XMB(3.9,26,2,165,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,26,2,166,0)="^D MG^XPDH"
^XMB(3.9,26,2,167,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,26,2,168,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,26,2,169,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,26,2,170,0)=""
^XMB(3.9,26,2,171,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,26,2,172,0)="D XPM1^XPDIQ"
^XMB(3.9,26,2,173,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,26,2,174,0)="Y"
^XMB(3.9,26,2,175,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,26,2,176,0)="^D MENU^XPDH"
^XMB(3.9,26,2,177,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,26,2,178,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,26,2,179,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,26,2,180,0)="YES"
^XMB(3.9,26,2,181,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,26,2,182,0)="D XPO1^XPDIQ"
^XMB(3.9,26,2,183,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,26,2,184,0)="Y"
^XMB(3.9,26,2,185,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,26,2,186,0)="^D OPT^XPDH"
^XMB(3.9,26,2,187,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,26,2,188,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,26,2,189,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,26,2,190,0)="YES"
^XMB(3.9,26,2,191,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,26,2,192,0)="D XPZ1^XPDIQ"
^XMB(3.9,26,2,193,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,26,2,194,0)="Y"
^XMB(3.9,26,2,195,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,26,2,196,0)="^D RTN^XPDH"
^XMB(3.9,26,2,197,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,26,2,198,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,26,2,199,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,26,2,200,0)="NO"
^XMB(3.9,26,2,201,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,26,2,202,0)="D XPZ2^XPDIQ"
^XMB(3.9,26,2,203,0)="""RTN"")"
^XMB(3.9,26,2,204,0)="3"
^XMB(3.9,26,2,205,0)="""RTN"",""ECXEC"")"
^XMB(3.9,26,2,206,0)="0^3^B34277990^B33547078"
^XMB(3.9,26,2,207,0)="""RTN"",""ECXEC"",1,0)"
^XMB(3.9,26,2,208,0)="ECXEC ;ALB/JAP,BIR/JLP,PTD-DSS Event Capture Extract  [ 02/14/97   2:26 PM ] ; 12/2/04 12:35pm"
^XMB(3.9,26,2,209,0)="""RTN"",""ECXEC"",2,0)"
^XMB(3.9,26,2,210,0)=" ;;3.0;DSS EXTRACTS;**11,8,13,24,27,33,39,46,49,71,89**;Dec 22, 1997"
^XMB(3.9,26,2,211,0)="""RTN"",""ECXEC"",3,0)"
^XMB(3.9,26,2,212,0)="BEG ;entry point from option"
^XMB(3.9,26,2,213,0)="""RTN"",""ECXEC"",4,0)"
^XMB(3.9,26,2,214,0)=" I '$D(^ECH) W !,""Event Capture is not initialized"",!! Q"
^XMB(3.9,26,2,215,0)="""RTN"",""ECXEC"",5,0)"
^XMB(3.9,26,2,216,0)=" D SETUP I ECFILE="""" Q"
^XMB(3.9,26,2,217,0)="""RTN"",""ECXEC"",6,0)"
^XMB(3.9,26,2,218,0)=" D ^ECXTRAC,^ECXKILL"
^XMB(3.9,26,2,219,0)="""RTN"",""ECXEC"",7,0)"
^XMB(3.9,26,2,220,0)=" Q"
^XMB(3.9,26,2,221,0)="""RTN"",""ECXEC"",8,0)"
^XMB(3.9,26,2,222,0)="START ;begin EC extract"
^XMB(3.9,26,2,223,0)="""RTN"",""ECXEC"",9,0)"
^XMB(3.9,26,2,224,0)=" N X,Y,ECDCM,ECXNPRFI"
^XMB(3.9,26,2,225,0)="""RTN"",""ECXEC"",10,0)"
^XMB(3.9,26,2,226,0)=" S ECED=ECED+.3,ECLL=0"
^XMB(3.9,26,2,227,0)="""RTN"",""ECXEC"",11,0)"
^XMB(3.9,26,2,228,0)=" K ^TMP(""EC"",$J)"
^XMB(3.9,26,2,229,0)="""RTN"",""ECXEC"",12,0)"
^XMB(3.9,26,2,230,0)=" F  S ECLL=$O(^ECH(""AC1"",ECLL)),ECD=ECSD-.1 Q:'ECLL  D"
^XMB(3.9,26,2,231,0)="""RTN"",""ECXEC"",13,0)"
^XMB(3.9,26,2,232,0)=" .F  S ECD=$O(^ECH(""AC1"",ECLL,ECD)),ECDA=0 Q:(ECD>ECED)!('ECD)  D"
^XMB(3.9,26,2,233,0)="""RTN"",""ECXEC"",14,0)"
^XMB(3.9,26,2,234,0)=" ..F  S ECDA=$O(^ECH(""AC1"",ECLL,ECD,ECDA)) Q:'ECDA  D UPDATE"
^XMB(3.9,26,2,235,0)="""RTN"",""ECXEC"",15,0)"
^XMB(3.9,26,2,236,0)=" Q"
^XMB(3.9,26,2,237,0)="""RTN"",""ECXEC"",16,0)"
^XMB(3.9,26,2,238,0)=" ;"
^XMB(3.9,26,2,239,0)="""RTN"",""ECXEC"",17,0)"
^XMB(3.9,26,2,240,0)="UPDATE ;sets record and updates counters"
^XMB(3.9,26,2,241,0)="""RTN"",""ECXEC"",18,0)"
^XMB(3.9,26,2,242,0)=" S ECCH=^ECH(ECDA,0),ECL=$P(ECCH,U,4),ECXDFN=$P(ECCH,U,2)"
^XMB(3.9,26,2,243,0)="""RTN"",""ECXEC"",19,0)"
^XMB(3.9,26,2,244,0)=" S ECXPDIV=$$RADDIV^ECXDEPT(ECL)  ;Get production division from file 4"
^XMB(3.9,26,2,245,0)="""RTN"",""ECXEC"",20,0)"
^XMB(3.9,26,2,246,0)=" S ECDT=$P(ECCH,U,3),ECM=$P(ECCH,U,6),ECC=$P(ECCH,U,8)"
^XMB(3.9,26,2,247,0)="""RTN"",""ECXEC"",21,0)"
^XMB(3.9,26,2,248,0)=" Q:'$$PATDEM^ECXUTL2(ECXDFN,ECDT,""1;3;5;"")"
^XMB(3.9,26,2,249,0)="""RTN"",""ECXEC"",22,0)"
^XMB(3.9,26,2,250,0)=" S ECTM=$$ECXTIME^ECXUTL(ECDT),ECP=$P(ECCH,U,9)"
^XMB(3.9,26,2,251,0)="""RTN"",""ECXEC"",23,0)"
^XMB(3.9,26,2,252,0)=" Q:ECP']"""""
^XMB(3.9,26,2,253,0)="""RTN"",""ECXEC"",24,0)"
^XMB(3.9,26,2,254,0)=" S ECO=$P(ECCH,U,12),ECV=$P(ECCH,U,10),ECDU=$P(ECCH,U,7)"
^XMB(3.9,26,2,255,0)="""RTN"",""ECXEC"",25,0)"
^XMB(3.9,26,2,256,0)=" S ECXUNIT=$G(^ECD(ECDU,0)),ECCS=+$P(ECXUNIT,U,4),ECDCM=$P(ECXUNIT,U,5)"
^XMB(3.9,26,2,257,0)="""RTN"",""ECXEC"",26,0)"
^XMB(3.9,26,2,258,0)=" S ECXDSSP="""",ECXDSSD=$E(ECDCM,1,10),ECUSTOP=$P(ECXUNIT,U,10),ECUPCE=$P(ECXUNIT,U,14)"
^XMB(3.9,26,2,259,0)="""RTN"",""ECXEC"",27,0)"
^XMB(3.9,26,2,260,0)=" S ICD9=$P($G(^ECH(ECDA,""P"")),U,2) S:ICD9="""" ICD9="" """
^XMB(3.9,26,2,261,0)="""RTN"",""ECXEC"",28,0)"
^XMB(3.9,26,2,262,0)=" S ECXICD9=$P($G(^ICD9(ICD9,0)),U)"
^XMB(3.9,26,2,263,0)="""RTN"",""ECXEC"",29,0)"
^XMB(3.9,26,2,264,0)=" F I=1:1:4 S @(""ECXICD9""_I)="""""
^XMB(3.9,26,2,265,0)="""RTN"",""ECXEC"",30,0)"
^XMB(3.9,26,2,266,0)=" S (CNT,I)=0"
^XMB(3.9,26,2,267,0)="""RTN"",""ECXEC"",31,0)"
^XMB(3.9,26,2,268,0)=" F  S CNT=$O(^ECH(ECDA,""DX"",CNT)) Q:'CNT  D  Q:I>3"
^XMB(3.9,26,2,269,0)="""RTN"",""ECXEC"",32,0)"
^XMB(3.9,26,2,270,0)=" .S ICD9=$P($G(^ECH(ECDA,""DX"",CNT,0)),U) D:ICD9'="""""
^XMB(3.9,26,2,271,0)="""RTN"",""ECXEC"",33,0)"
^XMB(3.9,26,2,272,0)=" ..S I=I+1,@(""ECXICD9""_I)=$P($G(^ICD9(ICD9,0)),U)"
^XMB(3.9,26,2,273,0)="""RTN"",""ECXEC"",34,0)"
^XMB(3.9,26,2,274,0)=" ;derivation of dss identifier depends on whether dss unit is "
^XMB(3.9,26,2,275,0)="""RTN"",""ECXEC"",35,0)"
^XMB(3.9,26,2,276,0)=" ;set to send data to pce"
^XMB(3.9,26,2,277,0)="""RTN"",""ECXEC"",36,0)"
^XMB(3.9,26,2,278,0)=" S ECAC=$P($G(ECCH),U,19)"
^XMB(3.9,26,2,279,0)="""RTN"",""ECXEC"",37,0)"
^XMB(3.9,26,2,280,0)=" ;if this is a record that 'goes to pce', then get the dss identifier"
^XMB(3.9,26,2,281,0)="""RTN"",""ECXEC"",38,0)"
^XMB(3.9,26,2,282,0)=" ;from the clinic stop codes"
^XMB(3.9,26,2,283,0)="""RTN"",""ECXEC"",39,0)"
^XMB(3.9,26,2,284,0)=" S (ECAC1S,ECAC2S)=""000"""
^XMB(3.9,26,2,285,0)="""RTN"",""ECXEC"",40,0)"
^XMB(3.9,26,2,286,0)=" I ECUPCE=""A""!(ECUPCE=""O""&(ECXA=""O"")) D"
^XMB(3.9,26,2,287,0)="""RTN"",""ECXEC"",41,0)"
^XMB(3.9,26,2,288,0)=" .D:+ECAC"
^XMB(3.9,26,2,289,0)="""RTN"",""ECXEC"",42,0)"
^XMB(3.9,26,2,290,0)=" ..S ECAC1=$P($G(^SC(+ECAC,0)),U,7),ECAC2=$P($G(^(0)),U,18)"
^XMB(3.9,26,2,291,0)="""RTN"",""ECXEC"",43,0)"
^XMB(3.9,26,2,292,0)=" ..I 'ECAC2 S ECAC2S=""000"""
^XMB(3.9,26,2,293,0)="""RTN"",""ECXEC"",44,0)"
^XMB(3.9,26,2,294,0)=" ..I 'ECAC1 S (ECAC1S,ECAC2S)=""000"" Q"
^XMB(3.9,26,2,295,0)="""RTN"",""ECXEC"",45,0)"
^XMB(3.9,26,2,296,0)=" ..S ECAC1S=$P($G(^DIC(40.7,+ECAC1,0)),U,2)"
^XMB(3.9,26,2,297,0)="""RTN"",""ECXEC"",46,0)"
^XMB(3.9,26,2,298,0)=" ..S ECAC2S=$P($G(^DIC(40.7,+ECAC2,0)),U,2)"
^XMB(3.9,26,2,299,0)="""RTN"",""ECXEC"",47,0)"
^XMB(3.9,26,2,300,0)=" ..S ECAC1S=$$RJ^XLFSTR(ECAC1S,3,0),ECAC2S=$$RJ^XLFSTR(ECAC2S,3,0)"
^XMB(3.9,26,2,301,0)="""RTN"",""ECXEC"",48,0)"
^XMB(3.9,26,2,302,0)=" .S:'ECAC (ECAC1S,ECAC2S)=""000"""
^XMB(3.9,26,2,303,0)="""RTN"",""ECXEC"",49,0)"
^XMB(3.9,26,2,304,0)=" ;if this record doesn't go to pce, then get the dss identifier"
^XMB(3.9,26,2,305,0)="""RTN"",""ECXEC"",50,0)"
^XMB(3.9,26,2,306,0)=" ;from the dss unit"
^XMB(3.9,26,2,307,0)="""RTN"",""ECXEC"",51,0)"
^XMB(3.9,26,2,308,0)=" I ECUPCE=""""!(ECUPCE=""N"")!(ECUPCE=""O""&(ECXA=""I"")) D"
^XMB(3.9,26,2,309,0)="""RTN"",""ECXEC"",52,0)"
^XMB(3.9,26,2,310,0)=" .I +ECUSTOP D"
^XMB(3.9,26,2,311,0)="""RTN"",""ECXEC"",53,0)"
^XMB(3.9,26,2,312,0)=" ..S ECAC1S=$P($G(^DIC(40.7,+ECUSTOP,0)),U,2)"
^XMB(3.9,26,2,313,0)="""RTN"",""ECXEC"",54,0)"
^XMB(3.9,26,2,314,0)=" ..S ECAC1S=$$RJ^XLFSTR(ECAC1S,3,0),ECAC2S=""000"""
^XMB(3.9,26,2,315,0)="""RTN"",""ECXEC"",55,0)"
^XMB(3.9,26,2,316,0)=" .I 'ECUSTOP D"
^XMB(3.9,26,2,317,0)="""RTN"",""ECXEC"",56,0)"
^XMB(3.9,26,2,318,0)=" ..S (ECAC1S,ECAC2S)=""000"""
^XMB(3.9,26,2,319,0)="""RTN"",""ECXEC"",57,0)"
^XMB(3.9,26,2,320,0)=" S ECDSS=ECAC1S_ECAC2S"
^XMB(3.9,26,2,321,0)="""RTN"",""ECXEC"",58,0)"
^XMB(3.9,26,2,322,0)=" I ECXLOGIC>2003 I ""^18^23^24^36^41^65^94^""[(""^""_ECXTS_""^"") S ECDSS=$$TSMAP^ECXUTL4(ECXTS)"
^XMB(3.9,26,2,323,0)="""RTN"",""ECXEC"",59,0)"
^XMB(3.9,26,2,324,0)=" S ECXDIV="""""
^XMB(3.9,26,2,325,0)="""RTN"",""ECXEC"",60,0)"
^XMB(3.9,26,2,326,0)=" ;"
^XMB(3.9,26,2,327,0)="""RTN"",""ECXEC"",61,0)"
^XMB(3.9,26,2,328,0)=" ;- Ord Div, Contrct St/End Dates, Contrct Type placeholders for FY2002"
^XMB(3.9,26,2,329,0)="""RTN"",""ECXEC"",62,0)"
^XMB(3.9,26,2,330,0)=" S (ECXODIV,ECXCSDT,ECXCEDT,ECXCTYP)="""""
^XMB(3.9,26,2,331,0)="""RTN"",""ECXEC"",63,0)"
^XMB(3.9,26,2,332,0)=" ;setup provider(s) as'2'_ien"
^XMB(3.9,26,2,333,0)="""RTN"",""ECXEC"",64,0)"
^XMB(3.9,26,2,334,0)=" S (ECU1A,ECU2A,ECU3A,ECU1NPI,ECU2NPI,ECU3NPI,ECXPPC1,ECXPPC2,ECXPPC3)="""""
^XMB(3.9,26,2,335,0)="""RTN"",""ECXEC"",65,0)"
^XMB(3.9,26,2,336,0)=" S (ECU1,ECU2,ECU3)="""""
^XMB(3.9,26,2,337,0)="""RTN"",""ECXEC"",66,0)"
^XMB(3.9,26,2,338,0)=" K ECXPRV S ECXPROV=$$GETPRV^ECPRVMUT(ECDA,.ECXPRV) I ECXPROV Q"
^XMB(3.9,26,2,339,0)="""RTN"",""ECXEC"",67,0)"
^XMB(3.9,26,2,340,0)=" F I=1:1:3 S Y=$O(ECXPRV("""")) I Y'="""" S @(""ECU""_I)=+ECXPRV(Y) K ECXPRV(Y)"
^XMB(3.9,26,2,341,0)="""RTN"",""ECXEC"",68,0)"
^XMB(3.9,26,2,342,0)=" S:$L(ECU1) ECXPPC1=$$PRVCLASS^ECXUTL(ECU1,ECDT),ECU1A=""2""_$P(ECU1,"";"")"
^XMB(3.9,26,2,343,0)="""RTN"",""ECXEC"",69,0)"
^XMB(3.9,26,2,344,0)=" S:$L(ECU2) ECXPPC2=$$PRVCLASS^ECXUTL(ECU2,ECDT),ECU2A=""2""_$P(ECU2,"";"")"
^XMB(3.9,26,2,345,0)="""RTN"",""ECXEC"",70,0)"
^XMB(3.9,26,2,346,0)=" S:$L(ECU3) ECXPPC3=$$PRVCLASS^ECXUTL(ECU3,ECDT),ECU3A=""2""_$P(ECU3,"";"")"
^XMB(3.9,26,2,347,0)="""RTN"",""ECXEC"",71,0)"
^XMB(3.9,26,2,348,0)=" ;change for version 2 where ECP is a variable pointer and we want to"
^XMB(3.9,26,2,349,0)="""RTN"",""ECXEC"",72,0)"
^XMB(3.9,26,2,350,0)=" ;expand it category = category or null if stored as 0"
^XMB(3.9,26,2,351,0)="""RTN"",""ECXEC"",73,0)"
^XMB(3.9,26,2,352,0)=" D:ECP["";"""
^XMB(3.9,26,2,353,0)="""RTN"",""ECXEC"",74,0)"
^XMB(3.9,26,2,354,0)=" .S ECP=$S(ECP[""ICPT"":$P(^ICPT(+ECP,0),U)_""01"",ECP<90000:$P(^EC(725,+ECP,0),U,2)_""N"",1:$P(^EC(725,+ECP,0),U,2)_""L""),ECC=$S(ECC:ECC,1:"""")"
^XMB(3.9,26,2,355,0)="""RTN"",""ECXEC"",75,0)"
^XMB(3.9,26,2,356,0)=" ;pick up EC to PCE data from ""P"" in File 721"
^XMB(3.9,26,2,357,0)="""RTN"",""ECXEC"",76,0)"
^XMB(3.9,26,2,358,0)=" S ECPCE=$G(^ECH(ECDA,""P""))"
^XMB(3.9,26,2,359,0)="""RTN"",""ECXEC"",77,0)"
^XMB(3.9,26,2,360,0)=" S ECPCE1=$P(ECPCE,U),ECPCE2=$P(ECPCE,U,2),ECPCE3=$P(ECPCE,U,3)"
^XMB(3.9,26,2,361,0)="""RTN"",""ECXEC"",78,0)"
^XMB(3.9,26,2,362,0)=" S ECPCE4=$P(ECPCE,U,4),ECPCE5=$P(ECPCE,U,5),ECPCE6=$P(ECPCE,U,6)"
^XMB(3.9,26,2,363,0)="""RTN"",""ECXEC"",79,0)"
^XMB(3.9,26,2,364,0)=" S ECPCE7=$S($P(ECPCE,U,7)=1:""Y"",1:""N""),ECXMST=$P(ECPCE,U,9)"
^XMB(3.9,26,2,365,0)="""RTN"",""ECXEC"",80,0)"
^XMB(3.9,26,2,366,0)=" S ECXCMOD="""""
^XMB(3.9,26,2,367,0)="""RTN"",""ECXEC"",81,0)"
^XMB(3.9,26,2,368,0)=" I $D(^ECH(ECDA,""MOD"")) D"
^XMB(3.9,26,2,369,0)="""RTN"",""ECXEC"",82,0)"
^XMB(3.9,26,2,370,0)=" .S MOD=0,M="""""
^XMB(3.9,26,2,371,0)="""RTN"",""ECXEC"",83,0)"
^XMB(3.9,26,2,372,0)=" .F  S MOD=$O(^ECH(ECDA,""MOD"",MOD)) Q:'MOD  S M=$P(^(MOD,0),U) D"
^XMB(3.9,26,2,373,0)="""RTN"",""ECXEC"",84,0)"
^XMB(3.9,26,2,374,0)=" ..I M S ECXCMOD=ECXCMOD_M_"";"""
^XMB(3.9,26,2,375,0)="""RTN"",""ECXEC"",85,0)"
^XMB(3.9,26,2,376,0)=" .K MOD,M"
^XMB(3.9,26,2,377,0)="""RTN"",""ECXEC"",86,0)"
^XMB(3.9,26,2,378,0)=" S:ECP?1.N ECP=$$CPT^ECXUTL3($E(ECP,1,5),"""",ECV)"
^XMB(3.9,26,2,379,0)="""RTN"",""ECXEC"",87,0)"
^XMB(3.9,26,2,380,0)=" S ECXCPT=$$CPT^ECXUTL3(ECPCE1,ECXCMOD,ECV)"
^XMB(3.9,26,2,381,0)="""RTN"",""ECXEC"",88,0)"
^XMB(3.9,26,2,382,0)=" ;"
^XMB(3.9,26,2,383,0)="""RTN"",""ECXEC"",89,0)"
^XMB(3.9,26,2,384,0)=" ;- Observation Patient Indicator (YES/NO)"
^XMB(3.9,26,2,385,0)="""RTN"",""ECXEC"",90,0)"
^XMB(3.9,26,2,386,0)=" S ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXTS,ECDSS)"
^XMB(3.9,26,2,387,0)="""RTN"",""ECXEC"",91,0)"
^XMB(3.9,26,2,388,0)=" ;"
^XMB(3.9,26,2,389,0)="""RTN"",""ECXEC"",92,0)"
^XMB(3.9,26,2,390,0)=" ;- CNH status (YES/NO)"
^XMB(3.9,26,2,391,0)="""RTN"",""ECXEC"",93,0)"
^XMB(3.9,26,2,392,0)=" S ECXCNH=$$CNHSTAT^ECXUTL4(ECXDFN)"
^XMB(3.9,26,2,393,0)="""RTN"",""ECXEC"",94,0)"
^XMB(3.9,26,2,394,0)=" ;"
^XMB(3.9,26,2,395,0)="""RTN"",""ECXEC"",95,0)"
^XMB(3.9,26,2,396,0)=" ; - Head and Neck Cancer Indicator"
^XMB(3.9,26,2,397,0)="""RTN"",""ECXEC"",96,0)"
^XMB(3.9,26,2,398,0)=" S ECXHNCI=$$HNCI^ECXUTL4(ECXDFN)"
^XMB(3.9,26,2,399,0)="""RTN"",""ECXEC"",97,0)"
^XMB(3.9,26,2,400,0)=" ;"
^XMB(3.9,26,2,401,0)="""RTN"",""ECXEC"",98,0)"
^XMB(3.9,26,2,402,0)=" ; - Get national patient record flag Indicator if exist"
^XMB(3.9,26,2,403,0)="""RTN"",""ECXEC"",99,0)"
^XMB(3.9,26,2,404,0)=" D NPRF^ECXUTL5"
^XMB(3.9,26,2,405,0)="""RTN"",""ECXEC"",100,0)"
^XMB(3.9,26,2,406,0)=" ;"
^XMB(3.9,26,2,407,0)="""RTN"",""ECXEC"",101,0)"
^XMB(3.9,26,2,408,0)=" ; - If no encounter number don't file record"
^XMB(3.9,26,2,409,0)="""RTN"",""ECXEC"",102,0)"
^XMB(3.9,26,2,410,0)=" S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADMDT,ECDT,ECXTS,ECXOBS,ECHEAD,ECDSS,ECCS)"
^XMB(3.9,26,2,411,0)="""RTN"",""ECXEC"",103,0)"
^XMB(3.9,26,2,412,0)=" D:ECXENC'="""" FILE"
^XMB(3.9,26,2,413,0)="""RTN"",""ECXEC"",104,0)"
^XMB(3.9,26,2,414,0)=" Q"
^XMB(3.9,26,2,415,0)="""RTN"",""ECXEC"",105,0)"
^XMB(3.9,26,2,416,0)=" ;"
^XMB(3.9,26,2,417,0)="""RTN"",""ECXEC"",106,0)"
^XMB(3.9,26,2,418,0)="FILE ;file record in #727.815"
^XMB(3.9,26,2,419,0)="""RTN"",""ECXEC"",107,0)"
^XMB(3.9,26,2,420,0)=" ;node0"
^XMB(3.9,26,2,421,0)="""RTN"",""ECXEC"",108,0)"
^XMB(3.9,26,2,422,0)=" ;ecode=inst ECL^dfn ECXDFN^ssn ECXSSN^name^i/o status ECXA^day^"
^XMB(3.9,26,2,423,0)="""RTN"",""ECXEC"",109,0)"
^XMB(3.9,26,2,424,0)=" ;DSS unit ECDU^category ECC^procedure ECP^volume ECV^"
^XMB(3.9,26,2,425,0)="""RTN"",""ECXEC"",110,0)"
^XMB(3.9,26,2,426,0)=" ;cost center ECCS^ordering sec ECO^section ^"
^XMB(3.9,26,2,427,0)="""RTN"",""ECXEC"",111,0)"
^XMB(3.9,26,2,428,0)=" ;provider ECU1A^^prov 2 ECU2A^^prov 3 ECU3A^^^mov # ECXMN^"
^XMB(3.9,26,2,429,0)="""RTN"",""ECXEC"",112,0)"
^XMB(3.9,26,2,430,0)=" ;treat spec ECXTS^time ECTM^"
^XMB(3.9,26,2,431,0)="""RTN"",""ECXEC"",113,0)"
^XMB(3.9,26,2,432,0)=" ;primary care team^primary care provider^pce cpt code (ECXCPT)^"
^XMB(3.9,26,2,433,0)="""RTN"",""ECXEC"",114,0)"
^XMB(3.9,26,2,434,0)=" ;primary icd-9 code ICD9^secondary icd-9 ICD91^secondary icd-9 ICD92^"
^XMB(3.9,26,2,435,0)="""RTN"",""ECXEC"",115,0)"
^XMB(3.9,26,2,436,0)=" ;secondary icd-9 ICD93^secondary icd-9 ICD94^"
^XMB(3.9,26,2,437,0)="""RTN"",""ECXEC"",116,0)"
^XMB(3.9,26,2,438,0)=" ;agent orange^radiation exposure ECPCC3^"
^XMB(3.9,26,2,439,0)="""RTN"",""ECXEC"",117,0)"
^XMB(3.9,26,2,440,0)=" ;environmental contaminants ECPTTM^service connected ECPTPR^"
^XMB(3.9,26,2,441,0)="""RTN"",""ECXEC"",118,0)"
^XMB(3.9,26,2,442,0)=" ;sent to pce ECPCE^^dss identifier ECDSS^dss dept"
^XMB(3.9,26,2,443,0)="""RTN"",""ECXEC"",119,0)"
^XMB(3.9,26,2,444,0)=" ;node1"
^XMB(3.9,26,2,445,0)="""RTN"",""ECXEC"",120,0)"
^XMB(3.9,26,2,446,0)=" ;mpi ECXMPI^dss dept ECXDSSD^provider npi ECXPRV2^"
^XMB(3.9,26,2,447,0)="""RTN"",""ECXEC"",121,0)"
^XMB(3.9,26,2,448,0)=" ;provider #2 npi ECU2NPI^provider #3 npi ECU3NPI^^"
^XMB(3.9,26,2,449,0)="""RTN"",""ECXEC"",122,0)"
^XMB(3.9,26,2,450,0)=" ;pc provider npi ECPTNPI^pc prov person class ECCLAS^"
^XMB(3.9,26,2,451,0)="""RTN"",""ECXEC"",123,0)"
^XMB(3.9,26,2,452,0)=" ;assoc pc prov ECASPR^assoc pc prov person class ECCLAS2^"
^XMB(3.9,26,2,453,0)="""RTN"",""ECXEC"",124,0)"
^XMB(3.9,26,2,454,0)=" ;assoc pc prov npi ECASNPI^"
^XMB(3.9,26,2,455,0)="""RTN"",""ECXEC"",125,0)"
^XMB(3.9,26,2,456,0)=" ;divison ECXDIV^mst status ECXMST^dom ECXDOM^date of birth ECXDOB^"
^XMB(3.9,26,2,457,0)="""RTN"",""ECXEC"",126,0)"
^XMB(3.9,26,2,458,0)=" ;enrollment category ECXCAT^ enrollment status ECXSTAT^enrollment"
^XMB(3.9,26,2,459,0)="""RTN"",""ECXEC"",127,0)"
^XMB(3.9,26,2,460,0)=" ;priority ECXPRIOR^period of service ECXPOS^purple heart indicator"
^XMB(3.9,26,2,461,0)="""RTN"",""ECXEC"",128,0)"
^XMB(3.9,26,2,462,0)=" ;ECXPHI^observ pat ind ECXOBS^encounter num ECXENC^"
^XMB(3.9,26,2,463,0)="""RTN"",""ECXEC"",129,0)"
^XMB(3.9,26,2,464,0)=" ;ao loc ECXAOL^ord div ECXODIV^contr st dt ECXCSDT^"
^XMB(3.9,26,2,465,0)="""RTN"",""ECXEC"",130,0)"
^XMB(3.9,26,2,466,0)=" ;contr end dt ECXCEDT^contr typ ECXCTYP^CNH stat ECXCNH^"
^XMB(3.9,26,2,467,0)="""RTN"",""ECXEC"",131,0)"
^XMB(3.9,26,2,468,0)=" ;production division ECXPDIV^eligibility ECXELIG^"
^XMB(3.9,26,2,469,0)="""RTN"",""ECXEC"",132,0)"
^XMB(3.9,26,2,470,0)=" ;head & neck cancer ind. ECXHNCI^ethnicity ECXETH^race1 ECXRAC1"
^XMB(3.9,26,2,471,0)="""RTN"",""ECXEC"",133,0)"
^XMB(3.9,26,2,472,0)=" ;enrollment location ECXENRL^^enrollment priority"
^XMB(3.9,26,2,473,0)="""RTN"",""ECXEC"",134,0)"
^XMB(3.9,26,2,474,0)=" ;ECXPRIOR_enrollment subgroup ECXSBGRP^user enrollee ECXUESTA^patient"
^XMB(3.9,26,2,475,0)="""RTN"",""ECXEC"",135,0)"
^XMB(3.9,26,2,476,0)=" ;type ECXPTYPE^combat vet elig ECXCVE^combat vet elig end date"
^XMB(3.9,26,2,477,0)="""RTN"",""ECXEC"",136,0)"
^XMB(3.9,26,2,478,0)=" ;ECXCVEDT^enc cv eligible ECXCVENC^national patient record flag"
^XMB(3.9,26,2,479,0)="""RTN"",""ECXEC"",137,0)"
^XMB(3.9,26,2,480,0)=" ;ECXNPRFI"
^XMB(3.9,26,2,481,0)="""RTN"",""ECXEC"",138,0)"
^XMB(3.9,26,2,482,0)=" N DA,DIK"
^XMB(3.9,26,2,483,0)="""RTN"",""ECXEC"",139,0)"
^XMB(3.9,26,2,484,0)=" S EC7=$O(^ECX(ECFILE,999999999),-1),EC7=EC7+1"
^XMB(3.9,26,2,485,0)="""RTN"",""ECXEC"",140,0)"
^XMB(3.9,26,2,486,0)=" S ECODE=EC7_U_EC23_U_ECL_U_ECXDFN_U_ECXSSN_U_ECXPNM_U_ECXA_U"
^XMB(3.9,26,2,487,0)="""RTN"",""ECXEC"",141,0)"
^XMB(3.9,26,2,488,0)=" S ECODE=ECODE_$$ECXDATE^ECXUTL(ECDT,ECXYM)_U_ECDU_U_ECC_U"
^XMB(3.9,26,2,489,0)="""RTN"",""ECXEC"",142,0)"
^XMB(3.9,26,2,490,0)=" S ECODE=ECODE_ECP_U_ECV_U_ECCS_U_ECO_U_ECM_U_ECU1A_U_ECXPPC1_U"
^XMB(3.9,26,2,491,0)="""RTN"",""ECXEC"",143,0)"
^XMB(3.9,26,2,492,0)=" S ECODE=ECODE_ECU2A_U_ECXPPC2_U_ECU3A_U_ECXPPC3_U_U_ECXMN_U"
^XMB(3.9,26,2,493,0)="""RTN"",""ECXEC"",144,0)"
^XMB(3.9,26,2,494,0)=" S ECODE=ECODE_ECXTS_U_ECTM_U"
^XMB(3.9,26,2,495,0)="""RTN"",""ECXEC"",145,0)"
^XMB(3.9,26,2,496,0)=" S ECODE=ECODE_ECPTTM_U_ECPTPR_U_ECXCPT_U_ECXICD9_U"
^XMB(3.9,26,2,497,0)="""RTN"",""ECXEC"",146,0)"
^XMB(3.9,26,2,498,0)=" S ECODE=ECODE_ECXICD91_U_ECXICD92_U_ECXICD93_U"
^XMB(3.9,26,2,499,0)="""RTN"",""ECXEC"",147,0)"
^XMB(3.9,26,2,500,0)=" S ECODE=ECODE_ECXICD94_U_ECPCE3_U_ECPCE4_U_ECPCE5_U"
^XMB(3.9,26,2,501,0)="""RTN"",""ECXEC"",148,0)"
^XMB(3.9,26,2,502,0)=" S ECODE=ECODE_ECPCE6_U_ECPCE7_U_U_ECDSS_U_U"
^XMB(3.9,26,2,503,0)="""RTN"",""ECXEC"",149,0)"
^XMB(3.9,26,2,504,0)=" S ECODE1=ECXMPI_U_ECXDSSD_U_ECU1NPI_U_ECU2NPI_U_ECU3NPI_U_ECCLAS_U"
^XMB(3.9,26,2,505,0)="""RTN"",""ECXEC"",150,0)"
^XMB(3.9,26,2,506,0)=" S ECODE1=ECODE1_ECPTNPI_U_ECASPR_U_ECCLAS2_U_ECASNPI_U_ECXDIV_U"
^XMB(3.9,26,2,507,0)="""RTN"",""ECXEC"",151,0)"
^XMB(3.9,26,2,508,0)=" S ECODE1=ECODE1_ECXMST_U_ECXDOM_U_ECXDOB_U_ECXCAT_U_ECXSTAT_U"
^XMB(3.9,26,2,509,0)="""RTN"",""ECXEC"",152,0)"
^XMB(3.9,26,2,510,0)=" S ECODE1=ECODE1_$S(ECXLOGIC<2005:ECXPRIOR,1:"""")_U_ECXPOS_U_ECXPHI_U_ECXOBS_U_ECXENC_U_ECXAOL_U"
^XMB(3.9,26,2,511,0)="""RTN"",""ECXEC"",153,0)"
^XMB(3.9,26,2,512,0)=" S ECODE1=ECODE1_ECXODIV_U_ECXCSDT_U_ECXCEDT_U_ECXCTYP_U_ECXCNH_U_ECXPDIV_U"
^XMB(3.9,26,2,513,0)="""RTN"",""ECXEC"",154,0)"
^XMB(3.9,26,2,514,0)=" S ECODE1=ECODE1_ECXELIG_U_ECXHNCI_U_ECXETH_U_ECXRC1"
^XMB(3.9,26,2,515,0)="""RTN"",""ECXEC"",155,0)"
^XMB(3.9,26,2,516,0)=" I ECXLOGIC>2003 S ECODE1=ECODE1_U_ECXENRL_U"
^XMB(3.9,26,2,517,0)="""RTN"",""ECXEC"",156,0)"
^XMB(3.9,26,2,518,0)=" I ECXLOGIC>2004 S ECODE1=ECODE1_U_ECXPRIOR_ECXSBGRP_U_ECXUESTA_U_ECXPTYPE_U_ECXCVE_U"
^XMB(3.9,26,2,519,0)="""RTN"",""ECXEC"",157,0)"
^XMB(3.9,26,2,520,0)=" I ECXLOGIC>2004 S ECODE2=ECXCVEDT_U_ECXCVENC_U_ECXNPRFI"
^XMB(3.9,26,2,521,0)="""RTN"",""ECXEC"",158,0)"
^XMB(3.9,26,2,522,0)=" S ^ECX(ECFILE,EC7,0)=ECODE,^ECX(ECFILE,EC7,1)=ECODE1,^ECX(ECFILE,EC7,2)=$G(ECODE2),ECRN=ECRN+1"
^XMB(3.9,26,2,523,0)="""RTN"",""ECXEC"",159,0)"
^XMB(3.9,26,2,524,0)=" S DA=EC7,DIK=""^ECX(""_ECFILE_"","" D IX1^DIK K DIK,DA"
^XMB(3.9,26,2,525,0)="""RTN"",""ECXEC"",160,0)"
^XMB(3.9,26,2,526,0)=" I $D(ZTQUEUED),$$S^%ZTLOAD"
^XMB(3.9,26,2,527,0)="""RTN"",""ECXEC"",161,0)"
^XMB(3.9,26,2,528,0)=" Q"
^XMB(3.9,26,2,529,0)="""RTN"",""ECXEC"",162,0)"
^XMB(3.9,26,2,530,0)=" ;"
^XMB(3.9,26,2,531,0)="""RTN"",""ECXEC"",163,0)"
^XMB(3.9,26,2,532,0)="SETUP ;Set required input for ECXTRAC"
^XMB(3.9,26,2,533,0)="""RTN"",""ECXEC"",164,0)"
^XMB(3.9,26,2,534,0)=" S ECHEAD=""ECS"""
^XMB(3.9,26,2,535,0)="""RTN"",""ECXEC"",165,0)"
^XMB(3.9,26,2,536,0)=" D ECXDEF^ECXUTL2(ECHEAD,.ECPACK,.ECGRP,.ECFILE,.ECRTN,.ECPIECE,.ECVER)"
^XMB(3.9,26,2,537,0)="""RTN"",""ECXEC"",166,0)"
^XMB(3.9,26,2,538,0)=" Q"
^XMB(3.9,26,2,539,0)="""RTN"",""ECXEC"",167,0)"
^XMB(3.9,26,2,540,0)=" ;"
^XMB(3.9,26,2,541,0)="""RTN"",""ECXEC"",168,0)"
^XMB(3.9,26,2,542,0)="QUE ; entry point for the background requeuing handled by ECXTAUTO"
^XMB(3.9,26,2,543,0)="""RTN"",""ECXEC"",169,0)"
^XMB(3.9,26,2,544,0)=" D SETUP,QUE^ECXTAUTO,^ECXKILL Q"
^XMB(3.9,26,2,545,0)="""RTN"",""ECXKILL"")"
^XMB(3.9,26,2,546,0)="0^1^B6122463^B6107432"
^XMB(3.9,26,2,547,0)="""RTN"",""ECXKILL"",1,0)"
^XMB(3.9,26,2,548,0)="ECXKILL ;BIR/DMA,PTD-Kill Local Variables ; 9/13/05 10:24am"
^XMB(3.9,26,2,549,0)="""RTN"",""ECXKILL"",2,0)"
^XMB(3.9,26,2,550,0)=" ;;3.0;DSS EXTRACTS;**9,8,21,24,31,39,49,84,89**;Dec 22, 1997"
^XMB(3.9,26,2,551,0)="""RTN"",""ECXKILL"",3,0)"
^XMB(3.9,26,2,552,0)=" ;"
^XMB(3.9,26,2,553,0)="""RTN"",""ECXKILL"",4,0)"
^XMB(3.9,26,2,554,0)=" K %,%DT,%Y,%ZIS,A,A1,A2,ABR,B,BY,D,D0,D1,DA,DAT,DATA,DATA1,DATA2,DATA6"
^XMB(3.9,26,2,555,0)="""RTN"",""ECXKILL"",5,0)"
^XMB(3.9,26,2,556,0)=" K DATAOP,DD,DFN,DHDH,DIC,DIE,DIK,DINUM,DIQ"
^XMB(3.9,26,2,557,0)="""RTN"",""ECXKILL"",6,0)"
^XMB(3.9,26,2,558,0)=" K DIR,DIRUT,DO,DR,DTOUT,DUOUT,EC,EC0,EC1,EC10,EC11,EC16,EC2,EC23,EC2NODE"
^XMB(3.9,26,2,559,0)="""RTN"",""ECXKILL"",7,0)"
^XMB(3.9,26,2,560,0)=" K EC3,EC42,EC50,EC6,EC7,ECA,ECAC,ECACA,ECAD,ECADM,ECALL"
^XMB(3.9,26,2,561,0)="""RTN"",""ECXKILL"",8,0)"
^XMB(3.9,26,2,562,0)=" K ECANE,ECAO,ECARG,ECAS,ECAT,ECATSV,ECB,ECC,ECCA,ECCAN,ECCAT,ECCH,ECCN"
^XMB(3.9,26,2,563,0)="""RTN"",""ECXKILL"",9,0)"
^XMB(3.9,26,2,564,0)=" K ECCNT,ECCS,ECCSC,ECD,ECD0,ECD1,ECDA,ECDAL,ECDAT"
^XMB(3.9,26,2,565,0)="""RTN"",""ECXKILL"",10,0)"
^XMB(3.9,26,2,566,0)=" K ECDATA,ECDATA1,ECDATE,ECDEN,ECDEX,ECDF,ECDFN,ECDFN0,ECDI,ECDIA,ECDIF"
^XMB(3.9,26,2,567,0)="""RTN"",""ECXKILL"",11,0)"
^XMB(3.9,26,2,568,0)=" K ECDIV,ECDL,ECDN,ECDNEW,ECDO,ECDOC,ECDR,ECDRG,ECDS,ECDSSU,ECDT,ECDTTM"
^XMB(3.9,26,2,569,0)="""RTN"",""ECXKILL"",12,0)"
^XMB(3.9,26,2,570,0)=" K ECDU,ECEC0,ECED,ECED1,ECEDN,ECEDNEW,ECF,ECF1,ECFD,ECFDT,ECFILE,ECFK"
^XMB(3.9,26,2,571,0)="""RTN"",""ECXKILL"",13,0)"
^XMB(3.9,26,2,572,0)=" K ECFL,ECFR,ECGRP,ECH,ECHD,ECHEAD,ECI,ECID,ECIEN,ECIFN,ECIN"
^XMB(3.9,26,2,573,0)="""RTN"",""ECXKILL"",14,0)"
^XMB(3.9,26,2,574,0)=" K ECINST,ECINV,ECIV,ECJ,ECK,ECL,ECL1,ECLAN,ECLAST,ECLDT,ECLINK,ECLIST"
^XMB(3.9,26,2,575,0)="""RTN"",""ECXKILL"",15,0)"
^XMB(3.9,26,2,576,0)=" K ECLL,ECLN,ECLOC,ECLRN,ECLX,ECLY,ECM,ECMAX,ECMIN"
^XMB(3.9,26,2,577,0)="""RTN"",""ECXKILL"",16,0)"
^XMB(3.9,26,2,578,0)=" K ECXMISS,ECMN,ECMOD,ECMODS,ECMORE,ECMS,ECMSG,ECMSN,ECMT,ECMW,ECMY,ECN"
^XMB(3.9,26,2,579,0)="""RTN"",""ECXKILL"",17,0)"
^XMB(3.9,26,2,580,0)=" K ECNA,ECNDC,ECNDF,ECNFC,ECNL,ECNO,ECNODE,ECNOGO"
^XMB(3.9,26,2,581,0)="""RTN"",""ECXKILL"",18,0)"
^XMB(3.9,26,2,582,0)=" K ECNT,ECO,ECO0,ECO1,ECO2,ECOB,ECODE,ECODE0,ECODE1,ECOLD,ECONE,ECOPAY"
^XMB(3.9,26,2,583,0)="""RTN"",""ECXKILL"",19,0)"
^XMB(3.9,26,2,584,0)=" K ECOPAYT,ECORTY,ECOS,ECP,ECPACK,ECPCE,ECPCE1,ECPCE2,ECPCE3,ECPCE4"
^XMB(3.9,26,2,585,0)="""RTN"",""ECXKILL"",20,0)"
^XMB(3.9,26,2,586,0)=" K ECPCE5,ECPCE6,ECPCE7,ECPIECE,ECPN,ECPRC,ECPRO,ECODE2"
^XMB(3.9,26,2,587,0)="""RTN"",""ECXKILL"",21,0)"
^XMB(3.9,26,2,588,0)=" K ECPROF,ECPT,ECPTF,ECPTPR,ECPTTM,ECQ,ECQT,ECQTY,ECRD,ECRE,ECRED,ECREF"
^XMB(3.9,26,2,589,0)="""RTN"",""ECXKILL"",22,0)"
^XMB(3.9,26,2,590,0)=" K ECRFL,ECRN,ECROU,ECRR,ECRS,ECRSD,ECRTN,ECRX,ECS,ECSA,ECSC"
^XMB(3.9,26,2,591,0)="""RTN"",""ECXKILL"",23,0)"
^XMB(3.9,26,2,592,0)=" K ECSD,ECSD1,ECSDN,ECSN,ECSR,ECSS,ECST,ECSTOP,ECSU,ECT,ECT1,ECTD,ECTD1"
^XMB(3.9,26,2,593,0)="""RTN"",""ECXKILL"",24,0)"
^XMB(3.9,26,2,594,0)=" K ECTEMP,ECTM,ECTNTL,ECTOTAL,ECTREAT,ECTRT,ECTS,ECTY,ECXLOGIC,ECXDATES,ECXEST,ECXECE"
^XMB(3.9,26,2,595,0)="""RTN"",""ECXKILL"",25,0)"
^XMB(3.9,26,2,596,0)=" D ^ECXKILL1"
^XMB(3.9,26,2,597,0)="""RTN"",""ECXKILL"",26,0)"
^XMB(3.9,26,2,598,0)=" ;"
^XMB(3.9,26,2,599,0)="""RTN"",""ECXKILL"",27,0)"
^XMB(3.9,26,2,600,0)="AUDIT ;kill audit report variables, close slave printer"
^XMB(3.9,26,2,601,0)="""RTN"",""ECXKILL"",28,0)"
^XMB(3.9,26,2,602,0)=" K ECX,ECXARRAY,ECXACC,ECXALL,ECXAUD,ECXCODE,ECXD,ECXDEF,ECXDESC,ECXDIV"
^XMB(3.9,26,2,603,0)="""RTN"",""ECXKILL"",29,0)"
^XMB(3.9,26,2,604,0)=" K ECXRCST,ECXRQST,ECXEND,ECXERR,ECXEXT,ECXHEAD,ECXLOC,ECXPGM,ECXPHCPC"
^XMB(3.9,26,2,605,0)="""RTN"",""ECXKILL"",30,0)"
^XMB(3.9,26,2,606,0)=" K ECXPRIME,ECXPRO,ECXREPT,ECXRUN,ECXSAVE,ECXSTART,ECXSRCE"
^XMB(3.9,26,2,607,0)="""RTN"",""ECXKILL"",31,0)"
^XMB(3.9,26,2,608,0)=" K ECXCTAMT,ECXFEKEY,ECXFELOC,ECXFORM,ECXGRPR,ECXHCPC,ECXPHCPC,ECXHCPCS"
^XMB(3.9,26,2,609,0)="""RTN"",""ECXKILL"",32,0)"
^XMB(3.9,26,2,610,0)=" K ECXLAB,ECXLLC,ECXLMC,ECXQTY,ECXREQ,ECXSTAT,ECXTYPE"
^XMB(3.9,26,2,611,0)="""RTN"",""ECXKILL"",33,0)"
^XMB(3.9,26,2,612,0)=" K IO(""Q""),POP,DIR,DIC,DIE,DA,DR,DO,DIRUT,DUOUT,DTOUT"
^XMB(3.9,26,2,613,0)="""RTN"",""ECXKILL"",34,0)"
^XMB(3.9,26,2,614,0)=" K ^TMP($J)"
^XMB(3.9,26,2,615,0)="""RTN"",""ECXKILL"",35,0)"
^XMB(3.9,26,2,616,0)=" I IO=IO(0),IOST'=""C"" D ^%ZISC"
^XMB(3.9,26,2,617,0)="""RTN"",""ECXKILL"",36,0)"
^XMB(3.9,26,2,618,0)=" Q"
^XMB(3.9,26,2,619,0)="""RTN"",""ECXKILL1"")"
^XMB(3.9,26,2,620,0)="0^2^B6954712^B5873637"
^XMB(3.9,26,2,621,0)="""RTN"",""ECXKILL1"",1,0)"
^XMB(3.9,26,2,622,0)="ECXKILL1 ;ALB/ESD Kill Local DSS Variables (continued) ; 8/28/02 2:07pm"
^XMB(3.9,26,2,623,0)="""RTN"",""ECXKILL1"",2,0)"
^XMB(3.9,26,2,624,0)=" ;;3.0;DSS EXTRACTS;**39,46,89**;Dec 22, 1997"
^XMB(3.9,26,2,625,0)="""RTN"",""ECXKILL1"",3,0)"
^XMB(3.9,26,2,626,0)=" ;"
^XMB(3.9,26,2,627,0)="""RTN"",""ECXKILL1"",4,0)"
^XMB(3.9,26,2,628,0)=" K ECUD,ECUI,ECUN,ECUN1,ECUNIT,ECURG,ECUT,ECUT2,ECUT3,ECV,ECW,ECWC,ECWD"
^XMB(3.9,26,2,629,0)="""RTN"",""ECXKILL1"",5,0)"
^XMB(3.9,26,2,630,0)=" K ECX,ECXB,ECXLNCNT,ECXMDA,ECXMDT,ECXNOW,ECXQUEUE,ECXS,ECXSTART"
^XMB(3.9,26,2,631,0)="""RTN"",""ECXKILL1"",6,0)"
^XMB(3.9,26,2,632,0)=" K ECY,ECYM,ECZ,ECZNODE,ELIG,ENL,FAC,FLDS,FR,I,ID,IOP,J,K,L,LOC,LOS,LRDF"
^XMB(3.9,26,2,633,0)="""RTN"",""ECXKILL1"",7,0)"
^XMB(3.9,26,2,634,0)=" K OPC,P,P1,P11,P2,P3,POP,Q,RD,RESP,QFLG"
^XMB(3.9,26,2,635,0)="""RTN"",""ECXKILL1"",8,0)"
^XMB(3.9,26,2,636,0)=" K SC,SRDA,SRNM,STC,SU,TEN,TES,TIME,TO,TOT,VAERR,VAIP,W,X,X1,X2,XMDUZ"
^XMB(3.9,26,2,637,0)="""RTN"",""ECXKILL1"",9,0)"
^XMB(3.9,26,2,638,0)=" K XMER,XMFROM,XMREC,XMRG,XMSER,XMSUB"
^XMB(3.9,26,2,639,0)="""RTN"",""ECXKILL1"",10,0)"
^XMB(3.9,26,2,640,0)=" K XMTEXT,XMY,XMZ,XQMSG,XQSOP,XQSUB,XX,Y,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE"
^XMB(3.9,26,2,641,0)="""RTN"",""ECXKILL1"",11,0)"
^XMB(3.9,26,2,642,0)=" K ZTSK,ECSTA,ECCTY,STATE,COUNTY,ECVER"
^XMB(3.9,26,2,643,0)="""RTN"",""ECXKILL1"",12,0)"
^XMB(3.9,26,2,644,0)=" K ECCPT,ECEKG,ECICD,ECPROV,ECREC,ECVAL,ECVIS,NCNTR,PTADT,STOP,ECIVRM"
^XMB(3.9,26,2,645,0)="""RTN"",""ECXKILL1"",13,0)"
^XMB(3.9,26,2,646,0)=" K ECOR,ECWK,ECWKLD,LREDT,LRSDT,FD,ECHL,ECARSC,ECX2TME"
^XMB(3.9,26,2,647,0)="""RTN"",""ECXKILL1"",14,0)"
^XMB(3.9,26,2,648,0)=" K ECDTST,ECLTST,ECODE2,ECORDT,ECORTM,ECRDDT,ECRDTM,ECRES,ECWCDA,ECXINST"
^XMB(3.9,26,2,649,0)="""RTN"",""ECXKILL1"",15,0)"
^XMB(3.9,26,2,650,0)=" K ECXATT,ECXATTL,ECXATTN,ECXLOS,ECXLOSA,ECXLOSP,ECXPRV,ECXPRVL,ECXPRVN"
^XMB(3.9,26,2,651,0)="""RTN"",""ECXKILL1"",16,0)"
^XMB(3.9,26,2,652,0)=" K ECXTRT,ECXTRTL,ECXTRTN,ECXSPC,ECXSPCL,ECXSPCN,ECCSC,ECXSC,ECXP1"
^XMB(3.9,26,2,653,0)="""RTN"",""ECXKILL1"",17,0)"
^XMB(3.9,26,2,654,0)=" K ECXP2,ECXP3,ECXDSSI,ECXDSSD,ECXYM,ECXDIV,ECXDAY,ECXSSN,ECXDATE,ECXPNM"
^XMB(3.9,26,2,655,0)="""RTN"",""ECXKILL1"",18,0)"
^XMB(3.9,26,2,656,0)=" K ECXDFN,ECXA,ECPTNPI,ECCLAS,ECCLAS2,ECASPR,ECASNPI,ECSRNPI,ECATNPI"
^XMB(3.9,26,2,657,0)="""RTN"",""ECXKILL1"",19,0)"
^XMB(3.9,26,2,658,0)=" K ECSANPI,ECXCPT,ECXCMOD,ECXFAC,ECXMN,ECXTS,ECXENEL,ECXSAI,ECXPAYOR"
^XMB(3.9,26,2,659,0)="""RTN"",""ECXKILL1"",20,0)"
^XMB(3.9,26,2,660,0)=" K ECXAST,ECXEST,ECXRST,ECXMST,ECXMIL,ECXPST,ECXPLOC,ECXPOS,ECXSEX,ECXDOB"
^XMB(3.9,26,2,661,0)="""RTN"",""ECXKILL1"",21,0)"
^XMB(3.9,26,2,662,0)=" K ECXRELG,ECXEMP,ECXHI,ECXSTATE,ECXCNTY,ECXZIP,ECXMAR,ECXRACE,ECXVET"
^XMB(3.9,26,2,663,0)="""RTN"",""ECXKILL1"",22,0)"
^XMB(3.9,26,2,664,0)=" K ECXVNS,ECXELIG,ECXENRL,ECXPRNPI,ECXPRCLS,ECXWPRV,ECXW,ECXCNT,ECXCOST"
^XMB(3.9,26,2,665,0)="""RTN"",""ECXKILL1"",23,0)"
^XMB(3.9,26,2,666,0)=" K ECXADM,ECXPROV,ECXPROVP,ECXPROVN,ECXBILST,ECU1A,ECU2A,ECU3A,ECU1NPI"
^XMB(3.9,26,2,667,0)="""RTN"",""ECXKILL1"",24,0)"
^XMB(3.9,26,2,668,0)=" K ECU2NPI,ECU3NPI,ECDENNPI,ECXWRD,ECXWTO,ECXAO,ECXIR,ECXCLIN,ECXICD9"
^XMB(3.9,26,2,669,0)="""RTN"",""ECXKILL1"",25,0)"
^XMB(3.9,26,2,670,0)=" K ECXIEN,ECXKEY,ECXMPI,ECXSTOP,ECXSVC,ECXOBS,ECXADMDT,ECXAOL,ECXCEDT"
^XMB(3.9,26,2,671,0)="""RTN"",""ECXKILL1"",26,0)"
^XMB(3.9,26,2,672,0)=" K ECXCIEN,ECXCNH,ECXCSDT,ECXCTYP,ECXENC,ECXOBS,ECXODIV"
^XMB(3.9,26,2,673,0)="""RTN"",""ECXKILL1"",27,0)"
^XMB(3.9,26,2,674,0)=" K ECXORDDT,ECXORDPH,ECXORDPR,ECXORDST,ECXDAPR,ECXDPCT,ECXDPR,ECXRPHY"
^XMB(3.9,26,2,675,0)="""RTN"",""ECXKILL1"",28,0)"
^XMB(3.9,26,2,676,0)=" K ECXPDIV,ECXATYP,ECXPVST,ECXSADM,ECXMTST,ECXQ,ECXHNCI,ECXETH,ECXRC1"
^XMB(3.9,26,2,677,0)="""RTN"",""ECXKILL1"",29,0)"
^XMB(3.9,26,2,678,0)=" K ECXPHI,ECXCNHU,ECXCAT,ECXPRIOR,ECXOPNPI"
^XMB(3.9,26,2,679,0)="""RTN"",""ECXKILL1"",30,0)"
^XMB(3.9,26,2,680,0)=" K ECU,ECU1,ECU2,ECU3,ECAC1,ECAC1S,ECAC2,ECAC2S,ECDSS,ECUPCE,ECUSTOP"
^XMB(3.9,26,2,681,0)="""RTN"",""ECXKILL1"",31,0)"
^XMB(3.9,26,2,682,0)=" K ECXCVE,ECXCVEDT,ECXCVENC,ECXDOM,ECXDSSP,ECXEUSTA,ECXINP,ECXIO,ICD9"
^XMB(3.9,26,2,683,0)="""RTN"",""ECXKILL1"",32,0)"
^XMB(3.9,26,2,684,0)=" K ECXMEAN,ECXPPC1,ECXPPC2,ECXPPC3,ECXPTYPE,ECXREL,ECXSBGRP,ECXUESTA"
^XMB(3.9,26,2,685,0)="""RTN"",""ECXKILL1"",33,0)"
^XMB(3.9,26,2,686,0)=" F I=1:1:4 K @(""ECXICD9""_I)"
^XMB(3.9,26,2,687,0)="""RTN"",""ECXKILL1"",34,0)"
^XMB(3.9,26,2,688,0)=" K ECXUNIT,ECXVIET,CNT,I"
^XMB(3.9,26,2,689,0)="""RTN"",""ECXKILL1"",35,0)"
^XMB(3.9,26,2,690,0)=" Q"
^XMB(3.9,26,2,691,0)="""VER"")"
^XMB(3.9,26,2,692,0)="8.0^22.0"
^XMB(3.9,26,2,693,0)="""BLD"",6259,6)"
^XMB(3.9,26,2,694,0)="^83"
^XMB(3.9,26,2,695,0)="$END KID ECX*3.0*89"
^XMB(3.9,26,6,0)="^3.911A^2^2"
^XMB(3.9,26,6,1,0)="POSTMASTER"
^XMB(3.9,26,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,26,6,"B","POSTMASTER",1)=""
^XMB(3.9,26,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,27,0)="ECX-3_SEQ-84_PAT-94.KID^.5^3061008.015733^^^^K"
^XMB(3.9,27,.6)="3061008"
^XMB(3.9,27,1,0)="^3.91A^2^2"
^XMB(3.9,27,1,1,0)=".5^0^3061008.015733^^^^^^^3061008.015733"
^XMB(3.9,27,1,2,0)="1^0^3061008.023045^^^^^^^3061008.023045"
^XMB(3.9,27,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,27,1,"C",.5,1)=""
^XMB(3.9,27,1,"C",1,2)=""
^XMB(3.9,27,2,0)="^^559^559^3061008"
^XMB(3.9,27,2,1,0)="$TXT Released ECX*3*94 SEQ #84"
^XMB(3.9,27,2,2,0)="Extracted from mail message"
^XMB(3.9,27,2,3,0)="$END TXT"
^XMB(3.9,27,2,4,0)="$KID ECX*3.0*94"
^XMB(3.9,27,2,5,0)="**INSTALL NAME**"
^XMB(3.9,27,2,6,0)="ECX*3.0*94"
^XMB(3.9,27,2,7,0)="""BLD"",6719,0)"
^XMB(3.9,27,2,8,0)="ECX*3.0*94^DSS EXTRACTS^0^3060714^y"
^XMB(3.9,27,2,9,0)="""BLD"",6719,1,0)"
^XMB(3.9,27,2,10,0)="^^1^1^3060714^"
^XMB(3.9,27,2,11,0)="""BLD"",6719,1,1,0)"
^XMB(3.9,27,2,12,0)="This patch addes NYH--NPPD Categories to routine ECXAPRO3."
^XMB(3.9,27,2,13,0)="""BLD"",6719,4,0)"
^XMB(3.9,27,2,14,0)="^9.64PA^^"
^XMB(3.9,27,2,15,0)="""BLD"",6719,6)"
^XMB(3.9,27,2,16,0)="1^"
^XMB(3.9,27,2,17,0)="""BLD"",6719,""KRN"",0)"
^XMB(3.9,27,2,18,0)="^9.67PA^8989.52^19"
^XMB(3.9,27,2,19,0)="""BLD"",6719,""KRN"",.4,0)"
^XMB(3.9,27,2,20,0)=".4"
^XMB(3.9,27,2,21,0)="""BLD"",6719,""KRN"",.401,0)"
^XMB(3.9,27,2,22,0)=".401"
^XMB(3.9,27,2,23,0)="""BLD"",6719,""KRN"",.402,0)"
^XMB(3.9,27,2,24,0)=".402"
^XMB(3.9,27,2,25,0)="""BLD"",6719,""KRN"",.403,0)"
^XMB(3.9,27,2,26,0)=".403"
^XMB(3.9,27,2,27,0)="""BLD"",6719,""KRN"",.5,0)"
^XMB(3.9,27,2,28,0)=".5"
^XMB(3.9,27,2,29,0)="""BLD"",6719,""KRN"",.84,0)"
^XMB(3.9,27,2,30,0)=".84"
^XMB(3.9,27,2,31,0)="""BLD"",6719,""KRN"",3.6,0)"
^XMB(3.9,27,2,32,0)="3.6"
^XMB(3.9,27,2,33,0)="""BLD"",6719,""KRN"",3.8,0)"
^XMB(3.9,27,2,34,0)="3.8"
^XMB(3.9,27,2,35,0)="""BLD"",6719,""KRN"",9.2,0)"
^XMB(3.9,27,2,36,0)="9.2"
^XMB(3.9,27,2,37,0)="""BLD"",6719,""KRN"",9.8,0)"
^XMB(3.9,27,2,38,0)="9.8"
^XMB(3.9,27,2,39,0)="""BLD"",6719,""KRN"",9.8,""NM"",0)"
^XMB(3.9,27,2,40,0)="^9.68A^1^1"
^XMB(3.9,27,2,41,0)="""BLD"",6719,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,27,2,42,0)="ECXAPRO3^^0^B24620502"
^XMB(3.9,27,2,43,0)="""BLD"",6719,""KRN"",9.8,""NM"",""B"",""ECXAPRO3"",1)"
^XMB(3.9,27,2,44,0)=""
^XMB(3.9,27,2,45,0)="""BLD"",6719,""KRN"",19,0)"
^XMB(3.9,27,2,46,0)="19"
^XMB(3.9,27,2,47,0)="""BLD"",6719,""KRN"",19,""NM"",0)"
^XMB(3.9,27,2,48,0)="^9.68A^^"
^XMB(3.9,27,2,49,0)="""BLD"",6719,""KRN"",19.1,0)"
^XMB(3.9,27,2,50,0)="19.1"
^XMB(3.9,27,2,51,0)="""BLD"",6719,""KRN"",101,0)"
^XMB(3.9,27,2,52,0)="101"
^XMB(3.9,27,2,53,0)="""BLD"",6719,""KRN"",409.61,0)"
^XMB(3.9,27,2,54,0)="409.61"
^XMB(3.9,27,2,55,0)="""BLD"",6719,""KRN"",771,0)"
^XMB(3.9,27,2,56,0)="771"
^XMB(3.9,27,2,57,0)="""BLD"",6719,""KRN"",870,0)"
^XMB(3.9,27,2,58,0)="870"
^XMB(3.9,27,2,59,0)="""BLD"",6719,""KRN"",8989.51,0)"
^XMB(3.9,27,2,60,0)="8989.51"
^XMB(3.9,27,2,61,0)="""BLD"",6719,""KRN"",8989.52,0)"
^XMB(3.9,27,2,62,0)="8989.52"
^XMB(3.9,27,2,63,0)="""BLD"",6719,""KRN"",8994,0)"
^XMB(3.9,27,2,64,0)="8994"
^XMB(3.9,27,2,65,0)="""BLD"",6719,""KRN"",""B"",.4,.4)"
^XMB(3.9,27,2,66,0)=""
^XMB(3.9,27,2,67,0)="""BLD"",6719,""KRN"",""B"",.401,.401)"
^XMB(3.9,27,2,68,0)=""
^XMB(3.9,27,2,69,0)="""BLD"",6719,""KRN"",""B"",.402,.402)"
^XMB(3.9,27,2,70,0)=""
^XMB(3.9,27,2,71,0)="""BLD"",6719,""KRN"",""B"",.403,.403)"
^XMB(3.9,27,2,72,0)=""
^XMB(3.9,27,2,73,0)="""BLD"",6719,""KRN"",""B"",.5,.5)"
^XMB(3.9,27,2,74,0)=""
^XMB(3.9,27,2,75,0)="""BLD"",6719,""KRN"",""B"",.84,.84)"
^XMB(3.9,27,2,76,0)=""
^XMB(3.9,27,2,77,0)="""BLD"",6719,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,27,2,78,0)=""
^XMB(3.9,27,2,79,0)="""BLD"",6719,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,27,2,80,0)=""
^XMB(3.9,27,2,81,0)="""BLD"",6719,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,27,2,82,0)=""
^XMB(3.9,27,2,83,0)="""BLD"",6719,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,27,2,84,0)=""
^XMB(3.9,27,2,85,0)="""BLD"",6719,""KRN"",""B"",19,19)"
^XMB(3.9,27,2,86,0)=""
^XMB(3.9,27,2,87,0)="""BLD"",6719,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,27,2,88,0)=""
^XMB(3.9,27,2,89,0)="""BLD"",6719,""KRN"",""B"",101,101)"
^XMB(3.9,27,2,90,0)=""
^XMB(3.9,27,2,91,0)="""BLD"",6719,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,27,2,92,0)=""
^XMB(3.9,27,2,93,0)="""BLD"",6719,""KRN"",""B"",771,771)"
^XMB(3.9,27,2,94,0)=""
^XMB(3.9,27,2,95,0)="""BLD"",6719,""KRN"",""B"",870,870)"
^XMB(3.9,27,2,96,0)=""
^XMB(3.9,27,2,97,0)="""BLD"",6719,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,27,2,98,0)=""
^XMB(3.9,27,2,99,0)="""BLD"",6719,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,27,2,100,0)=""
^XMB(3.9,27,2,101,0)="""BLD"",6719,""KRN"",""B"",8994,8994)"
^XMB(3.9,27,2,102,0)=""
^XMB(3.9,27,2,103,0)="""BLD"",6719,""QUES"",0)"
^XMB(3.9,27,2,104,0)="^9.62^^"
^XMB(3.9,27,2,105,0)="""BLD"",6719,""REQB"",0)"
^XMB(3.9,27,2,106,0)="^9.611^1^1"
^XMB(3.9,27,2,107,0)="""BLD"",6719,""REQB"",1,0)"
^XMB(3.9,27,2,108,0)="ECX*3.0*76^2"
^XMB(3.9,27,2,109,0)="""BLD"",6719,""REQB"",""B"",""ECX*3.0*76"",1)"
^XMB(3.9,27,2,110,0)=""
^XMB(3.9,27,2,111,0)="""MBREQ"")"
^XMB(3.9,27,2,112,0)="0"
^XMB(3.9,27,2,113,0)="""PKG"",535,-1)"
^XMB(3.9,27,2,114,0)="1^1"
^XMB(3.9,27,2,115,0)="""PKG"",535,0)"
^XMB(3.9,27,2,116,0)="DSS EXTRACTS^ECX"
^XMB(3.9,27,2,117,0)="""PKG"",535,20,0)"
^XMB(3.9,27,2,118,0)="^9.402P^^"
^XMB(3.9,27,2,119,0)="""PKG"",535,22,0)"
^XMB(3.9,27,2,120,0)="^9.49I^1^1"
^XMB(3.9,27,2,121,0)="""PKG"",535,22,1,0)"
^XMB(3.9,27,2,122,0)="3.0^2971222^3000224^66481"
^XMB(3.9,27,2,123,0)="""PKG"",535,22,1,""PAH"",1,0)"
^XMB(3.9,27,2,124,0)="94^3060714^123456804"
^XMB(3.9,27,2,125,0)="""PKG"",535,22,1,""PAH"",1,1,0)"
^XMB(3.9,27,2,126,0)="^^1^1^3060714"
^XMB(3.9,27,2,127,0)="""PKG"",535,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,27,2,128,0)="This patch addes NYH--NPPD Categories to routine ECXAPRO3."
^XMB(3.9,27,2,129,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,27,2,130,0)="Y"
^XMB(3.9,27,2,131,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,27,2,132,0)="^D REP^XPDH"
^XMB(3.9,27,2,133,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,27,2,134,0)="Shall I write over your |FLAG| File"
^XMB(3.9,27,2,135,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,27,2,136,0)="YES"
^XMB(3.9,27,2,137,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,27,2,138,0)="D XPF1^XPDIQ"
^XMB(3.9,27,2,139,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,27,2,140,0)="Y"
^XMB(3.9,27,2,141,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,27,2,142,0)="^D DTA^XPDH"
^XMB(3.9,27,2,143,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,27,2,144,0)="Want my data |FLAG| yours"
^XMB(3.9,27,2,145,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,27,2,146,0)="YES"
^XMB(3.9,27,2,147,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,27,2,148,0)="D XPF2^XPDIQ"
^XMB(3.9,27,2,149,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,27,2,150,0)="YO"
^XMB(3.9,27,2,151,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,27,2,152,0)="^D INHIBIT^XPDH"
^XMB(3.9,27,2,153,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,27,2,154,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,27,2,155,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,27,2,156,0)="YES"
^XMB(3.9,27,2,157,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,27,2,158,0)="D XPI1^XPDIQ"
^XMB(3.9,27,2,159,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,27,2,160,0)="PO^VA(200,:EM"
^XMB(3.9,27,2,161,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,27,2,162,0)="^D MG^XPDH"
^XMB(3.9,27,2,163,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,27,2,164,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,27,2,165,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,27,2,166,0)=""
^XMB(3.9,27,2,167,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,27,2,168,0)="D XPM1^XPDIQ"
^XMB(3.9,27,2,169,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,27,2,170,0)="Y"
^XMB(3.9,27,2,171,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,27,2,172,0)="^D MENU^XPDH"
^XMB(3.9,27,2,173,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,27,2,174,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,27,2,175,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,27,2,176,0)="YES"
^XMB(3.9,27,2,177,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,27,2,178,0)="D XPO1^XPDIQ"
^XMB(3.9,27,2,179,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,27,2,180,0)="Y"
^XMB(3.9,27,2,181,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,27,2,182,0)="^D OPT^XPDH"
^XMB(3.9,27,2,183,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,27,2,184,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,27,2,185,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,27,2,186,0)="YES"
^XMB(3.9,27,2,187,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,27,2,188,0)="D XPZ1^XPDIQ"
^XMB(3.9,27,2,189,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,27,2,190,0)="Y"
^XMB(3.9,27,2,191,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,27,2,192,0)="^D RTN^XPDH"
^XMB(3.9,27,2,193,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,27,2,194,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,27,2,195,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,27,2,196,0)="NO"
^XMB(3.9,27,2,197,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,27,2,198,0)="D XPZ2^XPDIQ"
^XMB(3.9,27,2,199,0)="""RTN"")"
^XMB(3.9,27,2,200,0)="1"
^XMB(3.9,27,2,201,0)="""RTN"",""ECXAPRO3"")"
^XMB(3.9,27,2,202,0)="0^1^B24620502^B14802953"
^XMB(3.9,27,2,203,0)="""RTN"",""ECXAPRO3"",1,0)"
^XMB(3.9,27,2,204,0)="ECXAPRO3 ;ALB/JAP - PRO Extract Audit Report (cont) ; APR 25,2006"
^XMB(3.9,27,2,205,0)="""RTN"",""ECXAPRO3"",2,0)"
^XMB(3.9,27,2,206,0)=" ;;3.0;DSS EXTRACTS;**21,31,76,94**;Dec 22, 1997"
^XMB(3.9,27,2,207,0)="""RTN"",""ECXAPRO3"",3,0)"
^XMB(3.9,27,2,208,0)=" ;"
^XMB(3.9,27,2,209,0)="""RTN"",""ECXAPRO3"",4,0)"
^XMB(3.9,27,2,210,0)="TEXT ;description of line numbers as in des^rmprn62 plus summary headers"
^XMB(3.9,27,2,211,0)="""RTN"",""ECXAPRO3"",5,0)"
^XMB(3.9,27,2,212,0)=" ;;100;WHEELCHAIRS AND ACCESSORIES"
^XMB(3.9,27,2,213,0)="""RTN"",""ECXAPRO3"",6,0)"
^XMB(3.9,27,2,214,0)=" ;;100 A;MOTORIZED"
^XMB(3.9,27,2,215,0)="""RTN"",""ECXAPRO3"",7,0)"
^XMB(3.9,27,2,216,0)=" ;;100 A1;SCOOTERS"
^XMB(3.9,27,2,217,0)="""RTN"",""ECXAPRO3"",8,0)"
^XMB(3.9,27,2,218,0)=" ;;100 B;MANUAL CUSTOM"
^XMB(3.9,27,2,219,0)="""RTN"",""ECXAPRO3"",9,0)"
^XMB(3.9,27,2,220,0)=" ;;100 C;MANUAL A/O"
^XMB(3.9,27,2,221,0)="""RTN"",""ECXAPRO3"",10,0)"
^XMB(3.9,27,2,222,0)=" ;;100 D;ACCESSORIES"
^XMB(3.9,27,2,223,0)="""RTN"",""ECXAPRO3"",11,0)"
^XMB(3.9,27,2,224,0)=" ;;100 E;CUSHION FOAM"
^XMB(3.9,27,2,225,0)="""RTN"",""ECXAPRO3"",12,0)"
^XMB(3.9,27,2,226,0)=" ;;100 F;CUSHION SPEC"
^XMB(3.9,27,2,227,0)="""RTN"",""ECXAPRO3"",13,0)"
^XMB(3.9,27,2,228,0)=" ;;100 G;CARRIERS"
^XMB(3.9,27,2,229,0)="""RTN"",""ECXAPRO3"",14,0)"
^XMB(3.9,27,2,230,0)=" ;;100 H;NSC VAN MODS"
^XMB(3.9,27,2,231,0)="""RTN"",""ECXAPRO3"",15,0)"
^XMB(3.9,27,2,232,0)=" ;;100 I;SCOOTER ACCESSORIES"
^XMB(3.9,27,2,233,0)="""RTN"",""ECXAPRO3"",16,0)"
^XMB(3.9,27,2,234,0)=" ;;200;ARTIFICIAL LEGS"
^XMB(3.9,27,2,235,0)="""RTN"",""ECXAPRO3"",17,0)"
^XMB(3.9,27,2,236,0)=" ;;200 A;LEG IPOP"
^XMB(3.9,27,2,237,0)="""RTN"",""ECXAPRO3"",18,0)"
^XMB(3.9,27,2,238,0)=" ;;200 B;LEG TEM"
^XMB(3.9,27,2,239,0)="""RTN"",""ECXAPRO3"",19,0)"
^XMB(3.9,27,2,240,0)=" ;;200 C;LEG PART FOOT"
^XMB(3.9,27,2,241,0)="""RTN"",""ECXAPRO3"",20,0)"
^XMB(3.9,27,2,242,0)=" ;;200 E;LEG SYMES"
^XMB(3.9,27,2,243,0)="""RTN"",""ECXAPRO3"",21,0)"
^XMB(3.9,27,2,244,0)=" ;;200 F;LEG B/K"
^XMB(3.9,27,2,245,0)="""RTN"",""ECXAPRO3"",22,0)"
^XMB(3.9,27,2,246,0)=" ;;200 G;LEG A/O"
^XMB(3.9,27,2,247,0)="""RTN"",""ECXAPRO3"",23,0)"
^XMB(3.9,27,2,248,0)=" ;;200 H;LEG A/K"
^XMB(3.9,27,2,249,0)="""RTN"",""ECXAPRO3"",24,0)"
^XMB(3.9,27,2,250,0)=" ;;200 I;LEG COMPONENT"
^XMB(3.9,27,2,251,0)="""RTN"",""ECXAPRO3"",25,0)"
^XMB(3.9,27,2,252,0)=" ;;300;ARTIFICIAL ARMS AND TERMINAL DEVICES"
^XMB(3.9,27,2,253,0)="""RTN"",""ECXAPRO3"",26,0)"
^XMB(3.9,27,2,254,0)=" ;;300 A;ARM B/E"
^XMB(3.9,27,2,255,0)="""RTN"",""ECXAPRO3"",27,0)"
^XMB(3.9,27,2,256,0)=" ;;300 B;ARM, A/E"
^XMB(3.9,27,2,257,0)="""RTN"",""ECXAPRO3"",28,0)"
^XMB(3.9,27,2,258,0)=" ;;300 C;COSMETIC GLOVES"
^XMB(3.9,27,2,259,0)="""RTN"",""ECXAPRO3"",29,0)"
^XMB(3.9,27,2,260,0)=" ;;300 D;ARM, A/O"
^XMB(3.9,27,2,261,0)="""RTN"",""ECXAPRO3"",30,0)"
^XMB(3.9,27,2,262,0)=" ;;300 E;TERMINAL DEVICES"
^XMB(3.9,27,2,263,0)="""RTN"",""ECXAPRO3"",31,0)"
^XMB(3.9,27,2,264,0)=" ;;300 F;EXT. POWERED,ARM"
^XMB(3.9,27,2,265,0)="""RTN"",""ECXAPRO3"",32,0)"
^XMB(3.9,27,2,266,0)=" ;;400;BRACES AND ORTHOTICS"
^XMB(3.9,27,2,267,0)="""RTN"",""ECXAPRO3"",33,0)"
^XMB(3.9,27,2,268,0)=" ;;400 A;BRACE ANKLE"
^XMB(3.9,27,2,269,0)="""RTN"",""ECXAPRO3"",34,0)"
^XMB(3.9,27,2,270,0)=" ;;400 B;BRACE LEG AK"
^XMB(3.9,27,2,271,0)="""RTN"",""ECXAPRO3"",35,0)"
^XMB(3.9,27,2,272,0)=" ;;400 C;BRACE, SPINAL"
^XMB(3.9,27,2,273,0)="""RTN"",""ECXAPRO3"",36,0)"
^XMB(3.9,27,2,274,0)=" ;;400 D;BRACE AL/OTH"
^XMB(3.9,27,2,275,0)="""RTN"",""ECXAPRO3"",37,0)"
^XMB(3.9,27,2,276,0)=" ;;400 E;ELAS HOSE, EA"
^XMB(3.9,27,2,277,0)="""RTN"",""ECXAPRO3"",38,0)"
^XMB(3.9,27,2,278,0)=" ;;400 F;BRACES, KNEE"
^XMB(3.9,27,2,279,0)="""RTN"",""ECXAPRO3"",39,0)"
^XMB(3.9,27,2,280,0)=" ;;400 G;CORSET/BELT"
^XMB(3.9,27,2,281,0)="""RTN"",""ECXAPRO3"",40,0)"
^XMB(3.9,27,2,282,0)=" ;;400 H;ORTHOSIS WHO"
^XMB(3.9,27,2,283,0)="""RTN"",""ECXAPRO3"",41,0)"
^XMB(3.9,27,2,284,0)=" ;;400 X;ORTHOTICS UNKNOWN"
^XMB(3.9,27,2,285,0)="""RTN"",""ECXAPRO3"",42,0)"
^XMB(3.9,27,2,286,0)=" ;;500;SHOES/ORTHOTICS"
^XMB(3.9,27,2,287,0)="""RTN"",""ECXAPRO3"",43,0)"
^XMB(3.9,27,2,288,0)=" ;;500 A;ARCH SUPT, EA"
^XMB(3.9,27,2,289,0)="""RTN"",""ECXAPRO3"",44,0)"
^XMB(3.9,27,2,290,0)=" ;;500 B;SHOE INLAY, EA"
^XMB(3.9,27,2,291,0)="""RTN"",""ECXAPRO3"",45,0)"
^XMB(3.9,27,2,292,0)=" ;;500 C;SHOE MOLDED, EA"
^XMB(3.9,27,2,293,0)="""RTN"",""ECXAPRO3"",46,0)"
^XMB(3.9,27,2,294,0)=" ;;500 D;SHOE ORTH OTH"
^XMB(3.9,27,2,295,0)="""RTN"",""ECXAPRO3"",47,0)"
^XMB(3.9,27,2,296,0)=" ;;500 E;INSERTS, SHOE"
^XMB(3.9,27,2,297,0)="""RTN"",""ECXAPRO3"",48,0)"
^XMB(3.9,27,2,298,0)=" ;;500 F;SHOES A/O, EA"
^XMB(3.9,27,2,299,0)="""RTN"",""ECXAPRO3"",49,0)"
^XMB(3.9,27,2,300,0)=" ;;600;NEUROSENSORY AIDS"
^XMB(3.9,27,2,301,0)="""RTN"",""ECXAPRO3"",50,0)"
^XMB(3.9,27,2,302,0)=" ;;600 1;EYEGLASSES PR"
^XMB(3.9,27,2,303,0)="""RTN"",""ECXAPRO3"",51,0)"
^XMB(3.9,27,2,304,0)=" ;;600 A;SP OVER 2,500"
^XMB(3.9,27,2,305,0)="""RTN"",""ECXAPRO3"",52,0)"
^XMB(3.9,27,2,306,0)=" ;;600 B;HEARING AIDS"
^XMB(3.9,27,2,307,0)="""RTN"",""ECXAPRO3"",53,0)"
^XMB(3.9,27,2,308,0)=" ;;600 C;AID FOR BLIND"
^XMB(3.9,27,2,309,0)="""RTN"",""ECXAPRO3"",54,0)"
^XMB(3.9,27,2,310,0)=" ;;600 D;CONT LENS, EA."
^XMB(3.9,27,2,311,0)="""RTN"",""ECXAPRO3"",55,0)"
^XMB(3.9,27,2,312,0)=" ;;600 E;EAR INSERT"
^XMB(3.9,27,2,313,0)="""RTN"",""ECXAPRO3"",56,0)"
^XMB(3.9,27,2,314,0)=" ;;600 F;ASST LISTENING DEVICES"
^XMB(3.9,27,2,315,0)="""RTN"",""ECXAPRO3"",57,0)"
^XMB(3.9,27,2,316,0)=" ;;600 G;SPEECH DEVICES"
^XMB(3.9,27,2,317,0)="""RTN"",""ECXAPRO3"",58,0)"
^XMB(3.9,27,2,318,0)=" ;;700;RESTORATIONS"
^XMB(3.9,27,2,319,0)="""RTN"",""ECXAPRO3"",59,0)"
^XMB(3.9,27,2,320,0)=" ;;700 A;EYE"
^XMB(3.9,27,2,321,0)="""RTN"",""ECXAPRO3"",60,0)"
^XMB(3.9,27,2,322,0)=" ;;700 B;FACIAL"
^XMB(3.9,27,2,323,0)="""RTN"",""ECXAPRO3"",61,0)"
^XMB(3.9,27,2,324,0)=" ;;700 C;BODY, OTHER"
^XMB(3.9,27,2,325,0)="""RTN"",""ECXAPRO3"",62,0)"
^XMB(3.9,27,2,326,0)=" ;;800;OXYGEN AND RESPIRATORY"
^XMB(3.9,27,2,327,0)="""RTN"",""ECXAPRO3"",63,0)"
^XMB(3.9,27,2,328,0)=" ;;800 A;OXYGEN EQP"
^XMB(3.9,27,2,329,0)="""RTN"",""ECXAPRO3"",64,0)"
^XMB(3.9,27,2,330,0)=" ;;800 B;OXYGEN CONCEN"
^XMB(3.9,27,2,331,0)="""RTN"",""ECXAPRO3"",65,0)"
^XMB(3.9,27,2,332,0)=" ;;800 C;OXYGEN GAS"
^XMB(3.9,27,2,333,0)="""RTN"",""ECXAPRO3"",66,0)"
^XMB(3.9,27,2,334,0)=" ;;800 D;OXYGEN, SUPPLIES"
^XMB(3.9,27,2,335,0)="""RTN"",""ECXAPRO3"",67,0)"
^XMB(3.9,27,2,336,0)=" ;;800 E;OXYGEN LIQUID"
^XMB(3.9,27,2,337,0)="""RTN"",""ECXAPRO3"",68,0)"
^XMB(3.9,27,2,338,0)=" ;;800 F;VENTILATOR, A/O"
^XMB(3.9,27,2,339,0)="""RTN"",""ECXAPRO3"",69,0)"
^XMB(3.9,27,2,340,0)=" ;;800 G;RESPIRATORY EQUIPMENT"
^XMB(3.9,27,2,341,0)="""RTN"",""ECXAPRO3"",70,0)"
^XMB(3.9,27,2,342,0)=" ;;800 H;RESPIRATORY SUPPLIES"
^XMB(3.9,27,2,343,0)="""RTN"",""ECXAPRO3"",71,0)"
^XMB(3.9,27,2,344,0)=" ;;900;MEDICAL EQUIPMENT"
^XMB(3.9,27,2,345,0)="""RTN"",""ECXAPRO3"",72,0)"
^XMB(3.9,27,2,346,0)=" ;;900 A;WALKING AIDS"
^XMB(3.9,27,2,347,0)="""RTN"",""ECXAPRO3"",73,0)"
^XMB(3.9,27,2,348,0)=" ;;900 B;INVALID LIFT"
^XMB(3.9,27,2,349,0)="""RTN"",""ECXAPRO3"",74,0)"
^XMB(3.9,27,2,350,0)=" ;;900 C;BED HOSP STD"
^XMB(3.9,27,2,351,0)="""RTN"",""ECXAPRO3"",75,0)"
^XMB(3.9,27,2,352,0)=" ;;900 D;BED HOSP SPEC"
^XMB(3.9,27,2,353,0)="""RTN"",""ECXAPRO3"",76,0)"
^XMB(3.9,27,2,354,0)=" ;;900 E;MATTRESS STAN"
^XMB(3.9,27,2,355,0)="""RTN"",""ECXAPRO3"",77,0)"
^XMB(3.9,27,2,356,0)=" ;;900 F;MATTRESS SPEC"
^XMB(3.9,27,2,357,0)="""RTN"",""ECXAPRO3"",78,0)"
^XMB(3.9,27,2,358,0)=" ;;900 G;BED, ACCESSORIES"
^XMB(3.9,27,2,359,0)="""RTN"",""ECXAPRO3"",79,0)"
^XMB(3.9,27,2,360,0)=" ;;900 H;ENVIRON CONTR"
^XMB(3.9,27,2,361,0)="""RTN"",""ECXAPRO3"",80,0)"
^XMB(3.9,27,2,362,0)=" ;;900 I;SPEC HOME EQP (SAFETY)"
^XMB(3.9,27,2,363,0)="""RTN"",""ECXAPRO3"",81,0)"
^XMB(3.9,27,2,364,0)=" ;;900 J;TENS UNIT"
^XMB(3.9,27,2,365,0)="""RTN"",""ECXAPRO3"",82,0)"
^XMB(3.9,27,2,366,0)=" ;;900 K;MED EQP AL/OTH"
^XMB(3.9,27,2,367,0)="""RTN"",""ECXAPRO3"",83,0)"
^XMB(3.9,27,2,368,0)=" ;;900 L;EQP RENTAL"
^XMB(3.9,27,2,369,0)="""RTN"",""ECXAPRO3"",84,0)"
^XMB(3.9,27,2,370,0)=" ;;900 M;COMPUTER EQUIPMENT"
^XMB(3.9,27,2,371,0)="""RTN"",""ECXAPRO3"",85,0)"
^XMB(3.9,27,2,372,0)=" ;;900 N;TELEHEALTH"
^XMB(3.9,27,2,373,0)="""RTN"",""ECXAPRO3"",86,0)"
^XMB(3.9,27,2,374,0)=" ;;910;ALL OTHER SUPPLIES AND EQUIPMENT"
^XMB(3.9,27,2,375,0)="""RTN"",""ECXAPRO3"",87,0)"
^XMB(3.9,27,2,376,0)=" ;;910 A;MED SUP AL/OTH"
^XMB(3.9,27,2,377,0)="""RTN"",""ECXAPRO3"",88,0)"
^XMB(3.9,27,2,378,0)=" ;;920;HOME DIALYSIS PROGRAM"
^XMB(3.9,27,2,379,0)="""RTN"",""ECXAPRO3"",89,0)"
^XMB(3.9,27,2,380,0)=" ;;920 A;HOME DIAL EQP"
^XMB(3.9,27,2,381,0)="""RTN"",""ECXAPRO3"",90,0)"
^XMB(3.9,27,2,382,0)=" ;;920 B;HOME DIAL SUP"
^XMB(3.9,27,2,383,0)="""RTN"",""ECXAPRO3"",91,0)"
^XMB(3.9,27,2,384,0)=" ;;930;ADAPTIVE EQUIPMENT"
^XMB(3.9,27,2,385,0)="""RTN"",""ECXAPRO3"",92,0)"
^XMB(3.9,27,2,386,0)=" ;;930 A;MOD VANS"
^XMB(3.9,27,2,387,0)="""RTN"",""ECXAPRO3"",93,0)"
^XMB(3.9,27,2,388,0)=" ;;930 B;ADAPT EQP AL/OTH"
^XMB(3.9,27,2,389,0)="""RTN"",""ECXAPRO3"",94,0)"
^XMB(3.9,27,2,390,0)=" ;;940;HISA"
^XMB(3.9,27,2,391,0)="""RTN"",""ECXAPRO3"",95,0)"
^XMB(3.9,27,2,392,0)=" ;;940 A;HISA SC"
^XMB(3.9,27,2,393,0)="""RTN"",""ECXAPRO3"",96,0)"
^XMB(3.9,27,2,394,0)=" ;;940 B;HISA NSC"
^XMB(3.9,27,2,395,0)="""RTN"",""ECXAPRO3"",97,0)"
^XMB(3.9,27,2,396,0)=" ;;960;SURGICAL IMPLANTS"
^XMB(3.9,27,2,397,0)="""RTN"",""ECXAPRO3"",98,0)"
^XMB(3.9,27,2,398,0)=" ;;960 A;HEAD & NECK"
^XMB(3.9,27,2,399,0)="""RTN"",""ECXAPRO3"",99,0)"
^XMB(3.9,27,2,400,0)=" ;;960 A1;H&N INTRAOCULAR LENS"
^XMB(3.9,27,2,401,0)="""RTN"",""ECXAPRO3"",100,0)"
^XMB(3.9,27,2,402,0)=" ;;960 A2;H&N HEAD"
^XMB(3.9,27,2,403,0)="""RTN"",""ECXAPRO3"",101,0)"
^XMB(3.9,27,2,404,0)=" ;;960 A3;H&N NECK"
^XMB(3.9,27,2,405,0)="""RTN"",""ECXAPRO3"",102,0)"
^XMB(3.9,27,2,406,0)=" ;;960 A4;H&N EYES A/O"
^XMB(3.9,27,2,407,0)="""RTN"",""ECXAPRO3"",103,0)"
^XMB(3.9,27,2,408,0)=" ;;960 B;ABDOMEN"
^XMB(3.9,27,2,409,0)="""RTN"",""ECXAPRO3"",104,0)"
^XMB(3.9,27,2,410,0)=" ;;960 B1;ABDOMEN STENT"
^XMB(3.9,27,2,411,0)="""RTN"",""ECXAPRO3"",105,0)"
^XMB(3.9,27,2,412,0)=" ;;960 B2;ABDOMEN MESH"
^XMB(3.9,27,2,413,0)="""RTN"",""ECXAPRO3"",106,0)"
^XMB(3.9,27,2,414,0)=" ;;960 B3;ABDOMEN CATHETER"
^XMB(3.9,27,2,415,0)="""RTN"",""ECXAPRO3"",107,0)"
^XMB(3.9,27,2,416,0)=" ;;960 C;UPPER EXTREMITY"
^XMB(3.9,27,2,417,0)="""RTN"",""ECXAPRO3"",108,0)"
^XMB(3.9,27,2,418,0)=" ;;960 C1;UE ARM"
^XMB(3.9,27,2,419,0)="""RTN"",""ECXAPRO3"",109,0)"
^XMB(3.9,27,2,420,0)=" ;;960 C2;UE SHOULDER"
^XMB(3.9,27,2,421,0)="""RTN"",""ECXAPRO3"",110,0)"
^XMB(3.9,27,2,422,0)=" ;;960 C3;UE HAND"
^XMB(3.9,27,2,423,0)="""RTN"",""ECXAPRO3"",111,0)"
^XMB(3.9,27,2,424,0)=" ;;960 D;LOWER EXTREMITY"
^XMB(3.9,27,2,425,0)="""RTN"",""ECXAPRO3"",112,0)"
^XMB(3.9,27,2,426,0)=" ;;960 D1;LE HIP"
^XMB(3.9,27,2,427,0)="""RTN"",""ECXAPRO3"",113,0)"
^XMB(3.9,27,2,428,0)=" ;;960 D2;LE KNEE"
^XMB(3.9,27,2,429,0)="""RTN"",""ECXAPRO3"",114,0)"
^XMB(3.9,27,2,430,0)=" ;;960 D3;LE FOOT"
^XMB(3.9,27,2,431,0)="""RTN"",""ECXAPRO3"",115,0)"
^XMB(3.9,27,2,432,0)=" ;;960 E;THORACIC"
^XMB(3.9,27,2,433,0)="""RTN"",""ECXAPRO3"",116,0)"
^XMB(3.9,27,2,434,0)=" ;;960 E1;THOR PACEMAKER/LEADS"
^XMB(3.9,27,2,435,0)="""RTN"",""ECXAPRO3"",117,0)"
^XMB(3.9,27,2,436,0)=" ;;960 E2;THOR ICD/LEADS"
^XMB(3.9,27,2,437,0)="""RTN"",""ECXAPRO3"",118,0)"
^XMB(3.9,27,2,438,0)=" ;;960 E3;THOR STENTS"
^XMB(3.9,27,2,439,0)="""RTN"",""ECXAPRO3"",119,0)"
^XMB(3.9,27,2,440,0)=" ;;960 E4;THOR VALVE"
^XMB(3.9,27,2,441,0)="""RTN"",""ECXAPRO3"",120,0)"
^XMB(3.9,27,2,442,0)=" ;;960 F;DENTAL IMPLANT"
^XMB(3.9,27,2,443,0)="""RTN"",""ECXAPRO3"",121,0)"
^XMB(3.9,27,2,444,0)=" ;;960 G;ALL SCRWS,PLTS, ANCRS, ETC."
^XMB(3.9,27,2,445,0)="""RTN"",""ECXAPRO3"",122,0)"
^XMB(3.9,27,2,446,0)=" ;;960 X;SI UNKNOWNS (ALL)"
^XMB(3.9,27,2,447,0)="""RTN"",""ECXAPRO3"",123,0)"
^XMB(3.9,27,2,448,0)=" ;;999;MISC"
^XMB(3.9,27,2,449,0)="""RTN"",""ECXAPRO3"",124,0)"
^XMB(3.9,27,2,450,0)=" ;;999 A;AL/OTH ITEMS"
^XMB(3.9,27,2,451,0)="""RTN"",""ECXAPRO3"",125,0)"
^XMB(3.9,27,2,452,0)=" ;;999 X;HCPCS NOT GRP"
^XMB(3.9,27,2,453,0)="""RTN"",""ECXAPRO3"",126,0)"
^XMB(3.9,27,2,454,0)=" ;;999 Z;NO HCPCS"
^XMB(3.9,27,2,455,0)="""RTN"",""ECXAPRO3"",127,0)"
^XMB(3.9,27,2,456,0)=" ;;R07;HEARING AID, LOCAL REPAIRS"
^XMB(3.9,27,2,457,0)="""RTN"",""ECXAPRO3"",128,0)"
^XMB(3.9,27,2,458,0)=" ;;R10;WHEELCHAIRS AND ACCESSORIES"
^XMB(3.9,27,2,459,0)="""RTN"",""ECXAPRO3"",129,0)"
^XMB(3.9,27,2,460,0)=" ;;R10 A;WHEELCHAIR"
^XMB(3.9,27,2,461,0)="""RTN"",""ECXAPRO3"",130,0)"
^XMB(3.9,27,2,462,0)=" ;;R10 B;CARRIERS"
^XMB(3.9,27,2,463,0)="""RTN"",""ECXAPRO3"",131,0)"
^XMB(3.9,27,2,464,0)=" ;;R10 C;NSC VAN MODS"
^XMB(3.9,27,2,465,0)="""RTN"",""ECXAPRO3"",132,0)"
^XMB(3.9,27,2,466,0)=" ;;R10 ;WHEELCHAIR"
^XMB(3.9,27,2,467,0)="""RTN"",""ECXAPRO3"",133,0)"
^XMB(3.9,27,2,468,0)=" ;;R20;ARTIFICIAL LEGS"
^XMB(3.9,27,2,469,0)="""RTN"",""ECXAPRO3"",134,0)"
^XMB(3.9,27,2,470,0)=" ;;R20 A;LEG A/K"
^XMB(3.9,27,2,471,0)="""RTN"",""ECXAPRO3"",135,0)"
^XMB(3.9,27,2,472,0)=" ;;R20 B;LEG B/K, PTB"
^XMB(3.9,27,2,473,0)="""RTN"",""ECXAPRO3"",136,0)"
^XMB(3.9,27,2,474,0)=" ;;R20 C;LEG B/K, STD"
^XMB(3.9,27,2,475,0)="""RTN"",""ECXAPRO3"",137,0)"
^XMB(3.9,27,2,476,0)=" ;;R20 D;LEG ALL OTHER"
^XMB(3.9,27,2,477,0)="""RTN"",""ECXAPRO3"",138,0)"
^XMB(3.9,27,2,478,0)=" ;;R30;ARTIFICIAL ARMS AND TERMINAL DEVICES"
^XMB(3.9,27,2,479,0)="""RTN"",""ECXAPRO3"",139,0)"
^XMB(3.9,27,2,480,0)=" ;;R30 ;ART ARM,TOTAL"
^XMB(3.9,27,2,481,0)="""RTN"",""ECXAPRO3"",140,0)"
^XMB(3.9,27,2,482,0)=" ;;R40;BRACES AND ORTHOTICS"
^XMB(3.9,27,2,483,0)="""RTN"",""ECXAPRO3"",141,0)"
^XMB(3.9,27,2,484,0)=" ;;R40 ;BRACE TOTAL"
^XMB(3.9,27,2,485,0)="""RTN"",""ECXAPRO3"",142,0)"
^XMB(3.9,27,2,486,0)=" ;;R50;SHOES/ORTHOTICS"
^XMB(3.9,27,2,487,0)="""RTN"",""ECXAPRO3"",143,0)"
^XMB(3.9,27,2,488,0)=" ;;R50 A;ORTH SHOE ALL"
^XMB(3.9,27,2,489,0)="""RTN"",""ECXAPRO3"",144,0)"
^XMB(3.9,27,2,490,0)=" ;;R50 B;SHOE MOD"
^XMB(3.9,27,2,491,0)="""RTN"",""ECXAPRO3"",145,0)"
^XMB(3.9,27,2,492,0)=" ;;R50 C;A/O ITEM SERV"
^XMB(3.9,27,2,493,0)="""RTN"",""ECXAPRO3"",146,0)"
^XMB(3.9,27,2,494,0)=" ;;R60;NEUROSENSORY AIDS"
^XMB(3.9,27,2,495,0)="""RTN"",""ECXAPRO3"",147,0)"
^XMB(3.9,27,2,496,0)=" ;;R60 A;AID FOR BLIND"
^XMB(3.9,27,2,497,0)="""RTN"",""ECXAPRO3"",148,0)"
^XMB(3.9,27,2,498,0)=" ;;R60 B;EYEGLASS RPR"
^XMB(3.9,27,2,499,0)="""RTN"",""ECXAPRO3"",149,0)"
^XMB(3.9,27,2,500,0)=" ;;R60 C;HEARING AID"
^XMB(3.9,27,2,501,0)="""RTN"",""ECXAPRO3"",150,0)"
^XMB(3.9,27,2,502,0)=" ;;R60 D;ASST LISTENING DEVICE"
^XMB(3.9,27,2,503,0)="""RTN"",""ECXAPRO3"",151,0)"
^XMB(3.9,27,2,504,0)=" ;;R60 E;SPEECH DEVICES"
^XMB(3.9,27,2,505,0)="""RTN"",""ECXAPRO3"",152,0)"
^XMB(3.9,27,2,506,0)=" ;;R70;HOME DIALYSIS EQUIPMENT"
^XMB(3.9,27,2,507,0)="""RTN"",""ECXAPRO3"",153,0)"
^XMB(3.9,27,2,508,0)=" ;;R70 ;HOME DIAL EQU"
^XMB(3.9,27,2,509,0)="""RTN"",""ECXAPRO3"",154,0)"
^XMB(3.9,27,2,510,0)=" ;;R80;MEDICAL EQUIPMENT"
^XMB(3.9,27,2,511,0)="""RTN"",""ECXAPRO3"",155,0)"
^XMB(3.9,27,2,512,0)=" ;;R80 A;INVALID LIFTS"
^XMB(3.9,27,2,513,0)="""RTN"",""ECXAPRO3"",156,0)"
^XMB(3.9,27,2,514,0)=" ;;R80 B;REPAIR TO ECU"
^XMB(3.9,27,2,515,0)="""RTN"",""ECXAPRO3"",157,0)"
^XMB(3.9,27,2,516,0)=" ;;R80 C;MED EQUIP A/O"
^XMB(3.9,27,2,517,0)="""RTN"",""ECXAPRO3"",158,0)"
^XMB(3.9,27,2,518,0)=" ;;R80 D;HME DELIVERY/PICKUP"
^XMB(3.9,27,2,519,0)="""RTN"",""ECXAPRO3"",159,0)"
^XMB(3.9,27,2,520,0)=" ;;R80 E;TELEHEALTH"
^XMB(3.9,27,2,521,0)="""RTN"",""ECXAPRO3"",160,0)"
^XMB(3.9,27,2,522,0)=" ;;R90;ALL OTHER"
^XMB(3.9,27,2,523,0)="""RTN"",""ECXAPRO3"",161,0)"
^XMB(3.9,27,2,524,0)=" ;;R90 ;ALL OTHER"
^XMB(3.9,27,2,525,0)="""RTN"",""ECXAPRO3"",162,0)"
^XMB(3.9,27,2,526,0)=" ;;R90 A;SHIPPING"
^XMB(3.9,27,2,527,0)="""RTN"",""ECXAPRO3"",163,0)"
^XMB(3.9,27,2,528,0)=" ;;R90 B;TRAINING"
^XMB(3.9,27,2,529,0)="""RTN"",""ECXAPRO3"",164,0)"
^XMB(3.9,27,2,530,0)=" ;;R91;O2 & RESPIRATORY"
^XMB(3.9,27,2,531,0)="""RTN"",""ECXAPRO3"",165,0)"
^XMB(3.9,27,2,532,0)=" ;;R91 A;CONCENTRATOR"
^XMB(3.9,27,2,533,0)="""RTN"",""ECXAPRO3"",166,0)"
^XMB(3.9,27,2,534,0)=" ;;R91 B;VENTILATOR"
^XMB(3.9,27,2,535,0)="""RTN"",""ECXAPRO3"",167,0)"
^XMB(3.9,27,2,536,0)=" ;;R91 C;EQUIPMENT A/O"
^XMB(3.9,27,2,537,0)="""RTN"",""ECXAPRO3"",168,0)"
^XMB(3.9,27,2,538,0)=" ;;R91 D;SERVICE VISIT"
^XMB(3.9,27,2,539,0)="""RTN"",""ECXAPRO3"",169,0)"
^XMB(3.9,27,2,540,0)=" ;;R91 E;COMPRESSED O2"
^XMB(3.9,27,2,541,0)="""RTN"",""ECXAPRO3"",170,0)"
^XMB(3.9,27,2,542,0)=" ;;R91 F;LIQUID O2"
^XMB(3.9,27,2,543,0)="""RTN"",""ECXAPRO3"",171,0)"
^XMB(3.9,27,2,544,0)=" ;;R91 G;LIQUID DEL SYS"
^XMB(3.9,27,2,545,0)="""RTN"",""ECXAPRO3"",172,0)"
^XMB(3.9,27,2,546,0)=" ;;R91 H;RESPIRATORY EQUIP"
^XMB(3.9,27,2,547,0)="""RTN"",""ECXAPRO3"",173,0)"
^XMB(3.9,27,2,548,0)=" ;;R99 A;SHIPPING"
^XMB(3.9,27,2,549,0)="""RTN"",""ECXAPRO3"",174,0)"
^XMB(3.9,27,2,550,0)=" ;;R99 X;HCPCS NOT GRP"
^XMB(3.9,27,2,551,0)="""RTN"",""ECXAPRO3"",175,0)"
^XMB(3.9,27,2,552,0)=" ;;R99 Z;NO HCPCS"
^XMB(3.9,27,2,553,0)="""RTN"",""ECXAPRO3"",176,0)"
^XMB(3.9,27,2,554,0)=" ;;QUIT"
^XMB(3.9,27,2,555,0)="""VER"")"
^XMB(3.9,27,2,556,0)="8.0^22.0"
^XMB(3.9,27,2,557,0)="""BLD"",6719,6)"
^XMB(3.9,27,2,558,0)="^84"
^XMB(3.9,27,2,559,0)="$END KID ECX*3.0*94"
^XMB(3.9,27,6,0)="^3.911A^2^2"
^XMB(3.9,27,6,1,0)="POSTMASTER"
^XMB(3.9,27,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,27,6,"B","POSTMASTER",1)=""
^XMB(3.9,27,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,28,0)="ECX-3_SEQ-85_PAT-95.KID^.5^3061008.015733^^^^K"
^XMB(3.9,28,.6)="3061008"
^XMB(3.9,28,1,0)="^3.91A^2^2"
^XMB(3.9,28,1,1,0)=".5^0^3061008.015733^^^^^^^3061008.015733"
^XMB(3.9,28,1,2,0)="1^0^3061008.023049^^^^^^^3061008.023049"
^XMB(3.9,28,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,28,1,"C",.5,1)=""
^XMB(3.9,28,1,"C",1,2)=""
^XMB(3.9,28,2,0)="^^505^505^3061008"
^XMB(3.9,28,2,1,0)="$TXT Released ECX*3*95 SEQ #85"
^XMB(3.9,28,2,2,0)="Extracted from mail message"
^XMB(3.9,28,2,3,0)="$END TXT"
^XMB(3.9,28,2,4,0)="$KID ECX*3.0*95"
^XMB(3.9,28,2,5,0)="**INSTALL NAME**"
^XMB(3.9,28,2,6,0)="ECX*3.0*95"
^XMB(3.9,28,2,7,0)="""BLD"",6810,0)"
^XMB(3.9,28,2,8,0)="ECX*3.0*95^DSS EXTRACTS^0^3060726^y"
^XMB(3.9,28,2,9,0)="""BLD"",6810,1,0)"
^XMB(3.9,28,2,10,0)="^^1^1^3060615^"
^XMB(3.9,28,2,11,0)="""BLD"",6810,1,1,0)"
^XMB(3.9,28,2,12,0)="This patch provide a fix to ECX EXTRACT LOG SUMMARY routine and option."
^XMB(3.9,28,2,13,0)="""BLD"",6810,4,0)"
^XMB(3.9,28,2,14,0)="^9.64PA^^"
^XMB(3.9,28,2,15,0)="""BLD"",6810,6)"
^XMB(3.9,28,2,16,0)="1^"
^XMB(3.9,28,2,17,0)="""BLD"",6810,""KRN"",0)"
^XMB(3.9,28,2,18,0)="^9.67PA^8989.52^19"
^XMB(3.9,28,2,19,0)="""BLD"",6810,""KRN"",.4,0)"
^XMB(3.9,28,2,20,0)=".4"
^XMB(3.9,28,2,21,0)="""BLD"",6810,""KRN"",.401,0)"
^XMB(3.9,28,2,22,0)=".401"
^XMB(3.9,28,2,23,0)="""BLD"",6810,""KRN"",.402,0)"
^XMB(3.9,28,2,24,0)=".402"
^XMB(3.9,28,2,25,0)="""BLD"",6810,""KRN"",.403,0)"
^XMB(3.9,28,2,26,0)=".403"
^XMB(3.9,28,2,27,0)="""BLD"",6810,""KRN"",.5,0)"
^XMB(3.9,28,2,28,0)=".5"
^XMB(3.9,28,2,29,0)="""BLD"",6810,""KRN"",.84,0)"
^XMB(3.9,28,2,30,0)=".84"
^XMB(3.9,28,2,31,0)="""BLD"",6810,""KRN"",3.6,0)"
^XMB(3.9,28,2,32,0)="3.6"
^XMB(3.9,28,2,33,0)="""BLD"",6810,""KRN"",3.8,0)"
^XMB(3.9,28,2,34,0)="3.8"
^XMB(3.9,28,2,35,0)="""BLD"",6810,""KRN"",9.2,0)"
^XMB(3.9,28,2,36,0)="9.2"
^XMB(3.9,28,2,37,0)="""BLD"",6810,""KRN"",9.8,0)"
^XMB(3.9,28,2,38,0)="9.8"
^XMB(3.9,28,2,39,0)="""BLD"",6810,""KRN"",9.8,""NM"",0)"
^XMB(3.9,28,2,40,0)="^9.68A^1^1"
^XMB(3.9,28,2,41,0)="""BLD"",6810,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,28,2,42,0)="ECXLOG^^0^B20803539"
^XMB(3.9,28,2,43,0)="""BLD"",6810,""KRN"",9.8,""NM"",""B"",""ECXLOG"",1)"
^XMB(3.9,28,2,44,0)=""
^XMB(3.9,28,2,45,0)="""BLD"",6810,""KRN"",19,0)"
^XMB(3.9,28,2,46,0)="19"
^XMB(3.9,28,2,47,0)="""BLD"",6810,""KRN"",19,""NM"",0)"
^XMB(3.9,28,2,48,0)="^9.68A^1^1"
^XMB(3.9,28,2,49,0)="""BLD"",6810,""KRN"",19,""NM"",1,0)"
^XMB(3.9,28,2,50,0)="ECX EXTRACT LOG SUMMARY^^0"
^XMB(3.9,28,2,51,0)="""BLD"",6810,""KRN"",19,""NM"",""B"",""ECX EXTRACT LOG SUMMARY"",1)"
^XMB(3.9,28,2,52,0)=""
^XMB(3.9,28,2,53,0)="""BLD"",6810,""KRN"",19.1,0)"
^XMB(3.9,28,2,54,0)="19.1"
^XMB(3.9,28,2,55,0)="""BLD"",6810,""KRN"",101,0)"
^XMB(3.9,28,2,56,0)="101"
^XMB(3.9,28,2,57,0)="""BLD"",6810,""KRN"",409.61,0)"
^XMB(3.9,28,2,58,0)="409.61"
^XMB(3.9,28,2,59,0)="""BLD"",6810,""KRN"",771,0)"
^XMB(3.9,28,2,60,0)="771"
^XMB(3.9,28,2,61,0)="""BLD"",6810,""KRN"",870,0)"
^XMB(3.9,28,2,62,0)="870"
^XMB(3.9,28,2,63,0)="""BLD"",6810,""KRN"",8989.51,0)"
^XMB(3.9,28,2,64,0)="8989.51"
^XMB(3.9,28,2,65,0)="""BLD"",6810,""KRN"",8989.52,0)"
^XMB(3.9,28,2,66,0)="8989.52"
^XMB(3.9,28,2,67,0)="""BLD"",6810,""KRN"",8994,0)"
^XMB(3.9,28,2,68,0)="8994"
^XMB(3.9,28,2,69,0)="""BLD"",6810,""KRN"",""B"",.4,.4)"
^XMB(3.9,28,2,70,0)=""
^XMB(3.9,28,2,71,0)="""BLD"",6810,""KRN"",""B"",.401,.401)"
^XMB(3.9,28,2,72,0)=""
^XMB(3.9,28,2,73,0)="""BLD"",6810,""KRN"",""B"",.402,.402)"
^XMB(3.9,28,2,74,0)=""
^XMB(3.9,28,2,75,0)="""BLD"",6810,""KRN"",""B"",.403,.403)"
^XMB(3.9,28,2,76,0)=""
^XMB(3.9,28,2,77,0)="""BLD"",6810,""KRN"",""B"",.5,.5)"
^XMB(3.9,28,2,78,0)=""
^XMB(3.9,28,2,79,0)="""BLD"",6810,""KRN"",""B"",.84,.84)"
^XMB(3.9,28,2,80,0)=""
^XMB(3.9,28,2,81,0)="""BLD"",6810,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,28,2,82,0)=""
^XMB(3.9,28,2,83,0)="""BLD"",6810,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,28,2,84,0)=""
^XMB(3.9,28,2,85,0)="""BLD"",6810,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,28,2,86,0)=""
^XMB(3.9,28,2,87,0)="""BLD"",6810,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,28,2,88,0)=""
^XMB(3.9,28,2,89,0)="""BLD"",6810,""KRN"",""B"",19,19)"
^XMB(3.9,28,2,90,0)=""
^XMB(3.9,28,2,91,0)="""BLD"",6810,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,28,2,92,0)=""
^XMB(3.9,28,2,93,0)="""BLD"",6810,""KRN"",""B"",101,101)"
^XMB(3.9,28,2,94,0)=""
^XMB(3.9,28,2,95,0)="""BLD"",6810,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,28,2,96,0)=""
^XMB(3.9,28,2,97,0)="""BLD"",6810,""KRN"",""B"",771,771)"
^XMB(3.9,28,2,98,0)=""
^XMB(3.9,28,2,99,0)="""BLD"",6810,""KRN"",""B"",870,870)"
^XMB(3.9,28,2,100,0)=""
^XMB(3.9,28,2,101,0)="""BLD"",6810,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,28,2,102,0)=""
^XMB(3.9,28,2,103,0)="""BLD"",6810,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,28,2,104,0)=""
^XMB(3.9,28,2,105,0)="""BLD"",6810,""KRN"",""B"",8994,8994)"
^XMB(3.9,28,2,106,0)=""
^XMB(3.9,28,2,107,0)="""BLD"",6810,""QUES"",0)"
^XMB(3.9,28,2,108,0)="^9.62^^"
^XMB(3.9,28,2,109,0)="""BLD"",6810,""REQB"",0)"
^XMB(3.9,28,2,110,0)="^9.611^1^1"
^XMB(3.9,28,2,111,0)="""BLD"",6810,""REQB"",1,0)"
^XMB(3.9,28,2,112,0)="ECX*3.0*84^2"
^XMB(3.9,28,2,113,0)="""BLD"",6810,""REQB"",""B"",""ECX*3.0*84"",1)"
^XMB(3.9,28,2,114,0)=""
^XMB(3.9,28,2,115,0)="""KRN"",19,10184,-1)"
^XMB(3.9,28,2,116,0)="0^1"
^XMB(3.9,28,2,117,0)="""KRN"",19,10184,0)"
^XMB(3.9,28,2,118,0)="ECX EXTRACT LOG SUMMARY^Summary Report of Extract Logs^^R^^^^^^^^DSS EXTRACTS^^"
^XMB(3.9,28,2,119,0)="""KRN"",19,10184,1,0)"
^XMB(3.9,28,2,120,0)="^19.06^3^3^3060615^^^^"
^XMB(3.9,28,2,121,0)="""KRN"",19,10184,1,1,0)"
^XMB(3.9,28,2,122,0)="Using this option a summary report may be printed from the EXTRACT"
^XMB(3.9,28,2,123,0)="""KRN"",19,10184,1,2,0)"
^XMB(3.9,28,2,124,0)="LOG file (#727) displaying extract number, feeder system, data set"
^XMB(3.9,28,2,125,0)="""KRN"",19,10184,1,3,0)"
^XMB(3.9,28,2,126,0)="dates (date range), record count, date transmitted, and date purged."
^XMB(3.9,28,2,127,0)="""KRN"",19,10184,20)"
^XMB(3.9,28,2,128,0)=""
^XMB(3.9,28,2,129,0)="""KRN"",19,10184,25)"
^XMB(3.9,28,2,130,0)="EN^ECXLOG"
^XMB(3.9,28,2,131,0)="""KRN"",19,10184,60)"
^XMB(3.9,28,2,132,0)=""
^XMB(3.9,28,2,133,0)="""KRN"",19,10184,62)"
^XMB(3.9,28,2,134,0)="0"
^XMB(3.9,28,2,135,0)="""KRN"",19,10184,63)"
^XMB(3.9,28,2,136,0)=""
^XMB(3.9,28,2,137,0)="""KRN"",19,10184,64)"
^XMB(3.9,28,2,138,0)=""
^XMB(3.9,28,2,139,0)="""KRN"",19,10184,""U"")"
^XMB(3.9,28,2,140,0)="SUMMARY REPORT OF EXTRACT LOGS"
^XMB(3.9,28,2,141,0)="""MBREQ"")"
^XMB(3.9,28,2,142,0)="0"
^XMB(3.9,28,2,143,0)="""ORD"",18,19)"
^XMB(3.9,28,2,144,0)="19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA"
^XMB(3.9,28,2,145,0)="""ORD"",18,19,0)"
^XMB(3.9,28,2,146,0)="OPTION"
^XMB(3.9,28,2,147,0)="""PKG"",535,-1)"
^XMB(3.9,28,2,148,0)="1^1"
^XMB(3.9,28,2,149,0)="""PKG"",535,0)"
^XMB(3.9,28,2,150,0)="DSS EXTRACTS^ECX"
^XMB(3.9,28,2,151,0)="""PKG"",535,20,0)"
^XMB(3.9,28,2,152,0)="^9.402P^^"
^XMB(3.9,28,2,153,0)="""PKG"",535,22,0)"
^XMB(3.9,28,2,154,0)="^9.49I^1^1"
^XMB(3.9,28,2,155,0)="""PKG"",535,22,1,0)"
^XMB(3.9,28,2,156,0)="3.0^2971222^3000224^66481"
^XMB(3.9,28,2,157,0)="""PKG"",535,22,1,""PAH"",1,0)"
^XMB(3.9,28,2,158,0)="95^3060726^123456804"
^XMB(3.9,28,2,159,0)="""PKG"",535,22,1,""PAH"",1,1,0)"
^XMB(3.9,28,2,160,0)="^^1^1^3060726"
^XMB(3.9,28,2,161,0)="""PKG"",535,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,28,2,162,0)="This patch provide a fix to ECX EXTRACT LOG SUMMARY routine and option."
^XMB(3.9,28,2,163,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,28,2,164,0)="Y"
^XMB(3.9,28,2,165,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,28,2,166,0)="^D REP^XPDH"
^XMB(3.9,28,2,167,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,28,2,168,0)="Shall I write over your |FLAG| File"
^XMB(3.9,28,2,169,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,28,2,170,0)="YES"
^XMB(3.9,28,2,171,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,28,2,172,0)="D XPF1^XPDIQ"
^XMB(3.9,28,2,173,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,28,2,174,0)="Y"
^XMB(3.9,28,2,175,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,28,2,176,0)="^D DTA^XPDH"
^XMB(3.9,28,2,177,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,28,2,178,0)="Want my data |FLAG| yours"
^XMB(3.9,28,2,179,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,28,2,180,0)="YES"
^XMB(3.9,28,2,181,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,28,2,182,0)="D XPF2^XPDIQ"
^XMB(3.9,28,2,183,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,28,2,184,0)="YO"
^XMB(3.9,28,2,185,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,28,2,186,0)="^D INHIBIT^XPDH"
^XMB(3.9,28,2,187,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,28,2,188,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,28,2,189,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,28,2,190,0)="YES"
^XMB(3.9,28,2,191,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,28,2,192,0)="D XPI1^XPDIQ"
^XMB(3.9,28,2,193,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,28,2,194,0)="PO^VA(200,:EM"
^XMB(3.9,28,2,195,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,28,2,196,0)="^D MG^XPDH"
^XMB(3.9,28,2,197,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,28,2,198,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,28,2,199,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,28,2,200,0)=""
^XMB(3.9,28,2,201,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,28,2,202,0)="D XPM1^XPDIQ"
^XMB(3.9,28,2,203,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,28,2,204,0)="Y"
^XMB(3.9,28,2,205,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,28,2,206,0)="^D MENU^XPDH"
^XMB(3.9,28,2,207,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,28,2,208,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,28,2,209,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,28,2,210,0)="YES"
^XMB(3.9,28,2,211,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,28,2,212,0)="D XPO1^XPDIQ"
^XMB(3.9,28,2,213,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,28,2,214,0)="Y"
^XMB(3.9,28,2,215,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,28,2,216,0)="^D OPT^XPDH"
^XMB(3.9,28,2,217,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,28,2,218,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,28,2,219,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,28,2,220,0)="YES"
^XMB(3.9,28,2,221,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,28,2,222,0)="D XPZ1^XPDIQ"
^XMB(3.9,28,2,223,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,28,2,224,0)="Y"
^XMB(3.9,28,2,225,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,28,2,226,0)="^D RTN^XPDH"
^XMB(3.9,28,2,227,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,28,2,228,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,28,2,229,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,28,2,230,0)="NO"
^XMB(3.9,28,2,231,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,28,2,232,0)="D XPZ2^XPDIQ"
^XMB(3.9,28,2,233,0)="""RTN"")"
^XMB(3.9,28,2,234,0)="1"
^XMB(3.9,28,2,235,0)="""RTN"",""ECXLOG"")"
^XMB(3.9,28,2,236,0)="0^1^B20803539^B20540020"
^XMB(3.9,28,2,237,0)="""RTN"",""ECXLOG"",1,0)"
^XMB(3.9,28,2,238,0)="ECXLOG ;ALB/GTS - Extract Log Report for DSS ; 10/26/05 3:01pm"
^XMB(3.9,28,2,239,0)="""RTN"",""ECXLOG"",2,0)"
^XMB(3.9,28,2,240,0)=" ;;3.0;DSS EXTRACTS;**84,95**;Dec 22, 1997"
^XMB(3.9,28,2,241,0)="""RTN"",""ECXLOG"",3,0)"
^XMB(3.9,28,2,242,0)=" ;"
^XMB(3.9,28,2,243,0)="""RTN"",""ECXLOG"",4,0)"
^XMB(3.9,28,2,244,0)="EN ;entry point from option"
^XMB(3.9,28,2,245,0)="""RTN"",""ECXLOG"",5,0)"
^XMB(3.9,28,2,246,0)=" ;Initialize varables"
^XMB(3.9,28,2,247,0)="""RTN"",""ECXLOG"",6,0)"
^XMB(3.9,28,2,248,0)=" N DIR,ECSD1,ECED,X,Y"
^XMB(3.9,28,2,249,0)="""RTN"",""ECXLOG"",7,0)"
^XMB(3.9,28,2,250,0)=" ;Prompt for start date"
^XMB(3.9,28,2,251,0)="""RTN"",""ECXLOG"",8,0)"
^XMB(3.9,28,2,252,0)=" S DIR(0)=""D^::EX"""
^XMB(3.9,28,2,253,0)="""RTN"",""ECXLOG"",9,0)"
^XMB(3.9,28,2,254,0)=" S DIR(""A"")=""Enter Report Start Date"""
^XMB(3.9,28,2,255,0)="""RTN"",""ECXLOG"",10,0)"
^XMB(3.9,28,2,256,0)=" D ^DIR"
^XMB(3.9,28,2,257,0)="""RTN"",""ECXLOG"",11,0)"
^XMB(3.9,28,2,258,0)=" I $D(DIRUT) Q"
^XMB(3.9,28,2,259,0)="""RTN"",""ECXLOG"",12,0)"
^XMB(3.9,28,2,260,0)=" S ECSD1=Y"
^XMB(3.9,28,2,261,0)="""RTN"",""ECXLOG"",13,0)"
^XMB(3.9,28,2,262,0)=" ;Prompt for end date"
^XMB(3.9,28,2,263,0)="""RTN"",""ECXLOG"",14,0)"
^XMB(3.9,28,2,264,0)=" K DIR,X,Y"
^XMB(3.9,28,2,265,0)="""RTN"",""ECXLOG"",15,0)"
^XMB(3.9,28,2,266,0)=" S DIR(0)=""D^""_ECSD1_"":""_DT_"":EX"""
^XMB(3.9,28,2,267,0)="""RTN"",""ECXLOG"",16,0)"
^XMB(3.9,28,2,268,0)=" S DIR(""A"")=""Enter Report Ending Date"""
^XMB(3.9,28,2,269,0)="""RTN"",""ECXLOG"",17,0)"
^XMB(3.9,28,2,270,0)=" D ^DIR"
^XMB(3.9,28,2,271,0)="""RTN"",""ECXLOG"",18,0)"
^XMB(3.9,28,2,272,0)=" I $D(DIRUT) Q"
^XMB(3.9,28,2,273,0)="""RTN"",""ECXLOG"",19,0)"
^XMB(3.9,28,2,274,0)=" S ECED=Y"
^XMB(3.9,28,2,275,0)="""RTN"",""ECXLOG"",20,0)"
^XMB(3.9,28,2,276,0)=" ;Queue Report"
^XMB(3.9,28,2,277,0)="""RTN"",""ECXLOG"",21,0)"
^XMB(3.9,28,2,278,0)=" W !!,""** REPORT REQUIRES 132 COLUMNS TO PRINT CORRECTLY **"",!!"
^XMB(3.9,28,2,279,0)="""RTN"",""ECXLOG"",22,0)"
^XMB(3.9,28,2,280,0)=" N ZTDESC,ZTIO,ZTSAVE,I"
^XMB(3.9,28,2,281,0)="""RTN"",""ECXLOG"",23,0)"
^XMB(3.9,28,2,282,0)=" S ZTIO="""""
^XMB(3.9,28,2,283,0)="""RTN"",""ECXLOG"",24,0)"
^XMB(3.9,28,2,284,0)=" S ZTDESC=""DSS EXTRACT LOG STATISTICS"""
^XMB(3.9,28,2,285,0)="""RTN"",""ECXLOG"",25,0)"
^XMB(3.9,28,2,286,0)=" F I=""ECSD1"",""ECED"",""ECXNUM"",""ECXPKG"",""ECXSET"",""ECXCNT"",""ECXTXDT"",""ECXPURGE"",""ECXTRACT"",""ECXMONTH"",""ECXUCONF"" D"
^XMB(3.9,28,2,287,0)="""RTN"",""ECXLOG"",26,0)"
^XMB(3.9,28,2,288,0)=" .S ZTSAVE(I)="""""
^XMB(3.9,28,2,289,0)="""RTN"",""ECXLOG"",27,0)"
^XMB(3.9,28,2,290,0)=" D EN^XUTMDEVQ(""EN1^ECXLOG"",ZTDESC,.ZTSAVE)"
^XMB(3.9,28,2,291,0)="""RTN"",""ECXLOG"",28,0)"
^XMB(3.9,28,2,292,0)=" Q"
^XMB(3.9,28,2,293,0)="""RTN"",""ECXLOG"",29,0)"
^XMB(3.9,28,2,294,0)=" ;"
^XMB(3.9,28,2,295,0)="""RTN"",""ECXLOG"",30,0)"
^XMB(3.9,28,2,296,0)="EN1 ;Tasked entry point"
^XMB(3.9,28,2,297,0)="""RTN"",""ECXLOG"",31,0)"
^XMB(3.9,28,2,298,0)=" ;Input : ECSD1  -  FM format report start date"
^XMB(3.9,28,2,299,0)="""RTN"",""ECXLOG"",32,0)"
^XMB(3.9,28,2,300,0)=" ;        ECED   -  FM format report end date"
^XMB(3.9,28,2,301,0)="""RTN"",""ECXLOG"",33,0)"
^XMB(3.9,28,2,302,0)=" ;"
^XMB(3.9,28,2,303,0)="""RTN"",""ECXLOG"",34,0)"
^XMB(3.9,28,2,304,0)=" ;Output : None"
^XMB(3.9,28,2,305,0)="""RTN"",""ECXLOG"",35,0)"
^XMB(3.9,28,2,306,0)=" ;"
^XMB(3.9,28,2,307,0)="""RTN"",""ECXLOG"",36,0)"
^XMB(3.9,28,2,308,0)=" ;Declare variables"
^XMB(3.9,28,2,309,0)="""RTN"",""ECXLOG"",37,0)"
^XMB(3.9,28,2,310,0)=" N LN,PAGENUM,STOP,ECXCT,ECXDACT,ECXNUM,ECXPKG,ECXSET,ECXCOUNT,ECXTXDT"
^XMB(3.9,28,2,311,0)="""RTN"",""ECXLOG"",38,0)"
^XMB(3.9,28,2,312,0)=" N ECXPURGE,ECXTRACT,ECXUMSG,ECXUSER,ECXMONTH,MSGNUM,COUNT,DIC,ECX0,X"
^XMB(3.9,28,2,313,0)="""RTN"",""ECXLOG"",39,0)"
^XMB(3.9,28,2,314,0)=" N ECX1,ECXED1,QFLG,CNT"
^XMB(3.9,28,2,315,0)="""RTN"",""ECXLOG"",40,0)"
^XMB(3.9,28,2,316,0)=" S ECXED1=ECED+.9999,ECXCT=ECSD1-.0001,(CNT,QFLG,PAGENUM,STOP)=0"
^XMB(3.9,28,2,317,0)="""RTN"",""ECXLOG"",41,0)"
^XMB(3.9,28,2,318,0)=" D HEADER I STOP D EXIT Q"
^XMB(3.9,28,2,319,0)="""RTN"",""ECXLOG"",42,0)"
^XMB(3.9,28,2,320,0)=" D GETDATA"
^XMB(3.9,28,2,321,0)="""RTN"",""ECXLOG"",43,0)"
^XMB(3.9,28,2,322,0)=" I '$D(^TMP(""ECXDSS"",$J)) D  Q"
^XMB(3.9,28,2,323,0)="""RTN"",""ECXLOG"",44,0)"
^XMB(3.9,28,2,324,0)=" .W !"
^XMB(3.9,28,2,325,0)="""RTN"",""ECXLOG"",45,0)"
^XMB(3.9,28,2,326,0)=" .W !,""***********************************************"""
^XMB(3.9,28,2,327,0)="""RTN"",""ECXLOG"",46,0)"
^XMB(3.9,28,2,328,0)=" .W !,""*  NOTHING TO REPORT FOR SELECTED TIME FRAME  *"""
^XMB(3.9,28,2,329,0)="""RTN"",""ECXLOG"",47,0)"
^XMB(3.9,28,2,330,0)=" .W !,""***********************************************"""
^XMB(3.9,28,2,331,0)="""RTN"",""ECXLOG"",48,0)"
^XMB(3.9,28,2,332,0)=" .D WAIT"
^XMB(3.9,28,2,333,0)="""RTN"",""ECXLOG"",49,0)"
^XMB(3.9,28,2,334,0)=" D DETAIL I STOP D EXIT Q"
^XMB(3.9,28,2,335,0)="""RTN"",""ECXLOG"",50,0)"
^XMB(3.9,28,2,336,0)=" K ^TMP(""ECXDSS"",$J)"
^XMB(3.9,28,2,337,0)="""RTN"",""ECXLOG"",51,0)"
^XMB(3.9,28,2,338,0)=" Q"
^XMB(3.9,28,2,339,0)="""RTN"",""ECXLOG"",52,0)"
^XMB(3.9,28,2,340,0)=" ;"
^XMB(3.9,28,2,341,0)="""RTN"",""ECXLOG"",53,0)"
^XMB(3.9,28,2,342,0)="GETDATA ;Get data"
^XMB(3.9,28,2,343,0)="""RTN"",""ECXLOG"",54,0)"
^XMB(3.9,28,2,344,0)=" F  S ECXCT=$O(^ECX(727,""AE"",ECXCT)) Q:(ECXCT>ECXED1)!('ECXCT)!(QFLG=1)  D"
^XMB(3.9,28,2,345,0)="""RTN"",""ECXLOG"",55,0)"
^XMB(3.9,28,2,346,0)=" .S ECXDACT=0"
^XMB(3.9,28,2,347,0)="""RTN"",""ECXLOG"",56,0)"
^XMB(3.9,28,2,348,0)=" .F  S ECXDACT=$O(^ECX(727,""AE"",ECXCT,ECXDACT)) Q:('ECXDACT)!(QFLG=1)  D"
^XMB(3.9,28,2,349,0)="""RTN"",""ECXLOG"",57,0)"
^XMB(3.9,28,2,350,0)=" ..S CNT=CNT+1"
^XMB(3.9,28,2,351,0)="""RTN"",""ECXLOG"",58,0)"
^XMB(3.9,28,2,352,0)=" ..;Get data nodes"
^XMB(3.9,28,2,353,0)="""RTN"",""ECXLOG"",59,0)"
^XMB(3.9,28,2,354,0)=" ..S ECX0=$G(^ECX(727,ECXDACT,0)),ECX1=$G(^(1))"
^XMB(3.9,28,2,355,0)="""RTN"",""ECXLOG"",60,0)"
^XMB(3.9,28,2,356,0)=" ..Q:ECX0="""""
^XMB(3.9,28,2,357,0)="""RTN"",""ECXLOG"",61,0)"
^XMB(3.9,28,2,358,0)=" ..S ECXNUM=$P(ECX0,U,1),ECXPKG=$E($P(ECX0,U,3),1,13),ECXSET=$E($P(ECX0,U,4),2,7)_""-""_$E($P(ECX0,U,5),2,7),ECXCOUNT=$P(ECX0,U,6),ECXTXDT=$G(^ECX(727,ECXDACT,""TR"")),ECXPURGE=$G(^ECX(727,ECXDACT,""PURG"")),ECXTRACT=$P(ECX0,U,2),ECXUSER=$P(ECX0,U,7)"
^XMB(3.9,28,2,359,0)="""RTN"",""ECXLOG"",62,0)"
^XMB(3.9,28,2,360,0)=" ..S ECXMONTH=$P($$FMTE^XLFDT($P(ECX0,U,4),""D""),"" "",1)_"" ""_$P($$FMTE^XLFDT($P(ECX0,U,4),""D""),"" "",3)"
^XMB(3.9,28,2,361,0)="""RTN"",""ECXLOG"",63,0)"
^XMB(3.9,28,2,362,0)=" ..;Resolve external values for ECXUSER"
^XMB(3.9,28,2,363,0)="""RTN"",""ECXLOG"",64,0)"
^XMB(3.9,28,2,364,0)=" ..K DIC S DIC=""^VA(200,"",DIC(0)=""NZ"",X=ECXUSER D ^DIC"
^XMB(3.9,28,2,365,0)="""RTN"",""ECXLOG"",65,0)"
^XMB(3.9,28,2,366,0)=" ..S ECXUSER=$P($G(Y(0)),U,1)"
^XMB(3.9,28,2,367,0)="""RTN"",""ECXLOG"",66,0)"
^XMB(3.9,28,2,368,0)=" ..;Count number of UNCONF messages in Message number multiple"
^XMB(3.9,28,2,369,0)="""RTN"",""ECXLOG"",67,0)"
^XMB(3.9,28,2,370,0)=" ..S (MSGNUM,COUNT)=0 F  S MSGNUM=$O(^ECX(727,ECXDACT,1,MSGNUM)) Q:MSGNUM'>0  D"
^XMB(3.9,28,2,371,0)="""RTN"",""ECXLOG"",68,0)"
^XMB(3.9,28,2,372,0)=" ...S COUNT=COUNT+1"
^XMB(3.9,28,2,373,0)="""RTN"",""ECXLOG"",69,0)"
^XMB(3.9,28,2,374,0)=" ..S ECXUMSG=$G(COUNT)"
^XMB(3.9,28,2,375,0)="""RTN"",""ECXLOG"",70,0)"
^XMB(3.9,28,2,376,0)=" ..;Save for later"
^XMB(3.9,28,2,377,0)="""RTN"",""ECXLOG"",71,0)"
^XMB(3.9,28,2,378,0)=" ..S ^TMP(""ECXDSS"",$J,CNT)=ECXNUM_U_ECXPKG_U_ECXSET_U_ECXCOUNT_U_ECXTXDT_U_ECXPURGE_U_ECXTRACT_U_ECXMONTH_U_ECXUMSG_U_ECXUSER"
^XMB(3.9,28,2,379,0)="""RTN"",""ECXLOG"",72,0)"
^XMB(3.9,28,2,380,0)=" ..Q"
^XMB(3.9,28,2,381,0)="""RTN"",""ECXLOG"",73,0)"
^XMB(3.9,28,2,382,0)=" .Q"
^XMB(3.9,28,2,383,0)="""RTN"",""ECXLOG"",74,0)"
^XMB(3.9,28,2,384,0)=" Q"
^XMB(3.9,28,2,385,0)="""RTN"",""ECXLOG"",75,0)"
^XMB(3.9,28,2,386,0)=" ;"
^XMB(3.9,28,2,387,0)="""RTN"",""ECXLOG"",76,0)"
^XMB(3.9,28,2,388,0)="HEADER ;print header"
^XMB(3.9,28,2,389,0)="""RTN"",""ECXLOG"",77,0)"
^XMB(3.9,28,2,390,0)=" S PAGENUM=$G(PAGENUM)+1"
^XMB(3.9,28,2,391,0)="""RTN"",""ECXLOG"",78,0)"
^XMB(3.9,28,2,392,0)=" S $P(LN,""-"",132)="""""
^XMB(3.9,28,2,393,0)="""RTN"",""ECXLOG"",79,0)"
^XMB(3.9,28,2,394,0)=" W @IOF"
^XMB(3.9,28,2,395,0)="""RTN"",""ECXLOG"",80,0)"
^XMB(3.9,28,2,396,0)=" W !,?1,""DSS EXTRACT LOG STATISTICS"",?120,""Page: "",PAGENUM"
^XMB(3.9,28,2,397,0)="""RTN"",""ECXLOG"",81,0)"
^XMB(3.9,28,2,398,0)=" W !!,?1,""EXTRACT NUMBER"",?20,""VISTA PACKAGE"",?39,""DATA SET DATES"",?59,""RECORD COUNT"",?75,""DATE TRANSMITTED"",?98,""DATE PURGED"""
^XMB(3.9,28,2,399,0)="""RTN"",""ECXLOG"",82,0)"
^XMB(3.9,28,2,400,0)=" W !,?3,""DATE EXTRACTED"",?25,""DATA MONTH"",?40,""MSG UNCONF"""
^XMB(3.9,28,2,401,0)="""RTN"",""ECXLOG"",83,0)"
^XMB(3.9,28,2,402,0)=" W ?60,""REQUESTOR"""
^XMB(3.9,28,2,403,0)="""RTN"",""ECXLOG"",84,0)"
^XMB(3.9,28,2,404,0)=" W !?1,LN"
^XMB(3.9,28,2,405,0)="""RTN"",""ECXLOG"",85,0)"
^XMB(3.9,28,2,406,0)=" Q"
^XMB(3.9,28,2,407,0)="""RTN"",""ECXLOG"",86,0)"
^XMB(3.9,28,2,408,0)=" ;"
^XMB(3.9,28,2,409,0)="""RTN"",""ECXLOG"",87,0)"
^XMB(3.9,28,2,410,0)="DETAIL ;Print detailed line"
^XMB(3.9,28,2,411,0)="""RTN"",""ECXLOG"",88,0)"
^XMB(3.9,28,2,412,0)=" ;Input  :  ^TMP(""ECXDSS"",$J) full global reference"
^XMB(3.9,28,2,413,0)="""RTN"",""ECXLOG"",89,0)"
^XMB(3.9,28,2,414,0)=" ;          ECXNUM    -   Extract Number"
^XMB(3.9,28,2,415,0)="""RTN"",""ECXLOG"",90,0)"
^XMB(3.9,28,2,416,0)=" ;          ECXPKG    -   VistA Package"
^XMB(3.9,28,2,417,0)="""RTN"",""ECXLOG"",91,0)"
^XMB(3.9,28,2,418,0)=" ;          ECXDATA   -   Data Set"
^XMB(3.9,28,2,419,0)="""RTN"",""ECXLOG"",92,0)"
^XMB(3.9,28,2,420,0)=" ;          ECXCOUNT  -   Record Count"
^XMB(3.9,28,2,421,0)="""RTN"",""ECXLOG"",93,0)"
^XMB(3.9,28,2,422,0)=" ;          ECXTXDT   -   Transmission Date"
^XMB(3.9,28,2,423,0)="""RTN"",""ECXLOG"",94,0)"
^XMB(3.9,28,2,424,0)=" ;          ECXPURGE  -   Extract Purge Date"
^XMB(3.9,28,2,425,0)="""RTN"",""ECXLOG"",95,0)"
^XMB(3.9,28,2,426,0)=" ;          ECXTRACT  -   Extract Date"
^XMB(3.9,28,2,427,0)="""RTN"",""ECXLOG"",96,0)"
^XMB(3.9,28,2,428,0)=" ;          ECXMONTH  -   Data Month and Year"
^XMB(3.9,28,2,429,0)="""RTN"",""ECXLOG"",97,0)"
^XMB(3.9,28,2,430,0)=" ;          ECXUCONF  -   Unconfirmed Messages"
^XMB(3.9,28,2,431,0)="""RTN"",""ECXLOG"",98,0)"
^XMB(3.9,28,2,432,0)=" ;          ECXUSER   -   Requestor"
^XMB(3.9,28,2,433,0)="""RTN"",""ECXLOG"",99,0)"
^XMB(3.9,28,2,434,0)=" ;Output  : None"
^XMB(3.9,28,2,435,0)="""RTN"",""ECXLOG"",100,0)"
^XMB(3.9,28,2,436,0)=" ;"
^XMB(3.9,28,2,437,0)="""RTN"",""ECXLOG"",101,0)"
^XMB(3.9,28,2,438,0)=" N NODE,RECORD"
^XMB(3.9,28,2,439,0)="""RTN"",""ECXLOG"",102,0)"
^XMB(3.9,28,2,440,0)=" S RECORD=0 F  S RECORD=$O(^TMP(""ECXDSS"",$J,RECORD)) Q:'RECORD!(STOP)  D"
^XMB(3.9,28,2,441,0)="""RTN"",""ECXLOG"",103,0)"
^XMB(3.9,28,2,442,0)=" .S NODE=^TMP(""ECXDSS"",$J,RECORD)"
^XMB(3.9,28,2,443,0)="""RTN"",""ECXLOG"",104,0)"
^XMB(3.9,28,2,444,0)=" .W !!,?1,$P(NODE,U,1),?20,$P(NODE,U,2),?39,$P(NODE,U,3),?59,$P(NODE,U,4),?75,$$FMTE^XLFDT($P(NODE,U,5),""D""),?98,$$FMTE^XLFDT($P(NODE,U,6),""D"")"
^XMB(3.9,28,2,445,0)="""RTN"",""ECXLOG"",105,0)"
^XMB(3.9,28,2,446,0)=" .W !,?3,$$FMTE^XLFDT($P(NODE,U,7),""D""),?25,$P(NODE,U,8),?40,$P(NODE,U,9),?60,$P(NODE,U,10)"
^XMB(3.9,28,2,447,0)="""RTN"",""ECXLOG"",106,0)"
^XMB(3.9,28,2,448,0)=" .I $Y>(IOSL-5) D WAIT Q:STOP  D HEADER"
^XMB(3.9,28,2,449,0)="""RTN"",""ECXLOG"",107,0)"
^XMB(3.9,28,2,450,0)=" .Q"
^XMB(3.9,28,2,451,0)="""RTN"",""ECXLOG"",108,0)"
^XMB(3.9,28,2,452,0)=" Q"
^XMB(3.9,28,2,453,0)="""RTN"",""ECXLOG"",109,0)"
^XMB(3.9,28,2,454,0)=" ;"
^XMB(3.9,28,2,455,0)="""RTN"",""ECXLOG"",110,0)"
^XMB(3.9,28,2,456,0)="WAIT ;End of page logic"
^XMB(3.9,28,2,457,0)="""RTN"",""ECXLOG"",111,0)"
^XMB(3.9,28,2,458,0)=" ;Input   ; None"
^XMB(3.9,28,2,459,0)="""RTN"",""ECXLOG"",112,0)"
^XMB(3.9,28,2,460,0)=" ;Output  ; STOP - Flag inidcating if printing should continue"
^XMB(3.9,28,2,461,0)="""RTN"",""ECXLOG"",113,0)"
^XMB(3.9,28,2,462,0)=" ;                 1 = Stop     0 = Continue"
^XMB(3.9,28,2,463,0)="""RTN"",""ECXLOG"",114,0)"
^XMB(3.9,28,2,464,0)=" ;"
^XMB(3.9,28,2,465,0)="""RTN"",""ECXLOG"",115,0)"
^XMB(3.9,28,2,466,0)=" S STOP=0"
^XMB(3.9,28,2,467,0)="""RTN"",""ECXLOG"",116,0)"
^XMB(3.9,28,2,468,0)=" ;CRT - Prompt for continue"
^XMB(3.9,28,2,469,0)="""RTN"",""ECXLOG"",117,0)"
^XMB(3.9,28,2,470,0)=" I $E(IOST,1,2)=""C-""&(IOSL'>24) D  Q"
^XMB(3.9,28,2,471,0)="""RTN"",""ECXLOG"",118,0)"
^XMB(3.9,28,2,472,0)=" .F  Q:$Y>(IOSL-3)  W !"
^XMB(3.9,28,2,473,0)="""RTN"",""ECXLOG"",119,0)"
^XMB(3.9,28,2,474,0)=" .N DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT"
^XMB(3.9,28,2,475,0)="""RTN"",""ECXLOG"",120,0)"
^XMB(3.9,28,2,476,0)=" .S DIR(0)=""E"""
^XMB(3.9,28,2,477,0)="""RTN"",""ECXLOG"",121,0)"
^XMB(3.9,28,2,478,0)=" .D ^DIR"
^XMB(3.9,28,2,479,0)="""RTN"",""ECXLOG"",122,0)"
^XMB(3.9,28,2,480,0)=" .S STOP=$S(Y'=1:1,1:0)"
^XMB(3.9,28,2,481,0)="""RTN"",""ECXLOG"",123,0)"
^XMB(3.9,28,2,482,0)=" ;Background task - check taskman"
^XMB(3.9,28,2,483,0)="""RTN"",""ECXLOG"",124,0)"
^XMB(3.9,28,2,484,0)=" S STOP=$$S^%ZTLOAD()"
^XMB(3.9,28,2,485,0)="""RTN"",""ECXLOG"",125,0)"
^XMB(3.9,28,2,486,0)=" I STOP D"
^XMB(3.9,28,2,487,0)="""RTN"",""ECXLOG"",126,0)"
^XMB(3.9,28,2,488,0)=" .W !,""*********************************************"""
^XMB(3.9,28,2,489,0)="""RTN"",""ECXLOG"",127,0)"
^XMB(3.9,28,2,490,0)=" .W !,""*  PRINTING OF REPORT STOPPED AS REQUESTED  *"""
^XMB(3.9,28,2,491,0)="""RTN"",""ECXLOG"",128,0)"
^XMB(3.9,28,2,492,0)=" .W !,""*********************************************"""
^XMB(3.9,28,2,493,0)="""RTN"",""ECXLOG"",129,0)"
^XMB(3.9,28,2,494,0)=" Q"
^XMB(3.9,28,2,495,0)="""RTN"",""ECXLOG"",130,0)"
^XMB(3.9,28,2,496,0)="EXIT ;Kill temp global"
^XMB(3.9,28,2,497,0)="""RTN"",""ECXLOG"",131,0)"
^XMB(3.9,28,2,498,0)=" K ^TMP(""ECXDSS"",$J)"
^XMB(3.9,28,2,499,0)="""RTN"",""ECXLOG"",132,0)"
^XMB(3.9,28,2,500,0)=" Q"
^XMB(3.9,28,2,501,0)="""VER"")"
^XMB(3.9,28,2,502,0)="8.0^22.0"
^XMB(3.9,28,2,503,0)="""BLD"",6810,6)"
^XMB(3.9,28,2,504,0)="^85"
^XMB(3.9,28,2,505,0)="$END KID ECX*3.0*95"
^XMB(3.9,28,6,0)="^3.911A^2^2"
^XMB(3.9,28,6,1,0)="POSTMASTER"
^XMB(3.9,28,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,28,6,"B","POSTMASTER",1)=""
^XMB(3.9,28,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,29,0)="ECX-3_SEQ-86_PAT-97.KID^.5^3061008.015733^^^^K"
^XMB(3.9,29,.6)="3061008"
^XMB(3.9,29,1,0)="^3.91A^2^2"
^XMB(3.9,29,1,1,0)=".5^0^3061008.015733^^^^^^^3061008.015733"
^XMB(3.9,29,1,2,0)="1^0^3061008.023052^^^^^^^3061008.023052"
^XMB(3.9,29,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,29,1,"C",.5,1)=""
^XMB(3.9,29,1,"C",1,2)=""
^XMB(3.9,29,2,0)="^^301^301^3061008"
^XMB(3.9,29,2,1,0)="$TXT Released ECX*3*97 SEQ #86"
^XMB(3.9,29,2,2,0)="Extracted from mail message"
^XMB(3.9,29,2,3,0)="$END TXT"
^XMB(3.9,29,2,4,0)="$KID ECX*3.0*97"
^XMB(3.9,29,2,5,0)="**INSTALL NAME**"
^XMB(3.9,29,2,6,0)="ECX*3.0*97"
^XMB(3.9,29,2,7,0)="""BLD"",6838,0)"
^XMB(3.9,29,2,8,0)="ECX*3.0*97^DSS EXTRACTS^0^3060727^y"
^XMB(3.9,29,2,9,0)="""BLD"",6838,1,0)"
^XMB(3.9,29,2,10,0)="^^1^1^3060726^"
^XMB(3.9,29,2,11,0)="""BLD"",6838,1,1,0)"
^XMB(3.9,29,2,12,0)="This patch updates file 728.441."
^XMB(3.9,29,2,13,0)="""BLD"",6838,4,0)"
^XMB(3.9,29,2,14,0)="^9.64PA^^"
^XMB(3.9,29,2,15,0)="""BLD"",6838,""INIT"")"
^XMB(3.9,29,2,16,0)="ECXP97PT"
^XMB(3.9,29,2,17,0)="""BLD"",6838,""KRN"",0)"
^XMB(3.9,29,2,18,0)="^9.67PA^8989.52^19"
^XMB(3.9,29,2,19,0)="""BLD"",6838,""KRN"",.4,0)"
^XMB(3.9,29,2,20,0)=".4"
^XMB(3.9,29,2,21,0)="""BLD"",6838,""KRN"",.401,0)"
^XMB(3.9,29,2,22,0)=".401"
^XMB(3.9,29,2,23,0)="""BLD"",6838,""KRN"",.402,0)"
^XMB(3.9,29,2,24,0)=".402"
^XMB(3.9,29,2,25,0)="""BLD"",6838,""KRN"",.403,0)"
^XMB(3.9,29,2,26,0)=".403"
^XMB(3.9,29,2,27,0)="""BLD"",6838,""KRN"",.5,0)"
^XMB(3.9,29,2,28,0)=".5"
^XMB(3.9,29,2,29,0)="""BLD"",6838,""KRN"",.84,0)"
^XMB(3.9,29,2,30,0)=".84"
^XMB(3.9,29,2,31,0)="""BLD"",6838,""KRN"",3.6,0)"
^XMB(3.9,29,2,32,0)="3.6"
^XMB(3.9,29,2,33,0)="""BLD"",6838,""KRN"",3.8,0)"
^XMB(3.9,29,2,34,0)="3.8"
^XMB(3.9,29,2,35,0)="""BLD"",6838,""KRN"",9.2,0)"
^XMB(3.9,29,2,36,0)="9.2"
^XMB(3.9,29,2,37,0)="""BLD"",6838,""KRN"",9.8,0)"
^XMB(3.9,29,2,38,0)="9.8"
^XMB(3.9,29,2,39,0)="""BLD"",6838,""KRN"",9.8,""NM"",0)"
^XMB(3.9,29,2,40,0)="^9.68A^1^1"
^XMB(3.9,29,2,41,0)="""BLD"",6838,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,29,2,42,0)="ECXP97PT^^0^B4542126"
^XMB(3.9,29,2,43,0)="""BLD"",6838,""KRN"",9.8,""NM"",""B"",""ECXP97PT"",1)"
^XMB(3.9,29,2,44,0)=""
^XMB(3.9,29,2,45,0)="""BLD"",6838,""KRN"",19,0)"
^XMB(3.9,29,2,46,0)="19"
^XMB(3.9,29,2,47,0)="""BLD"",6838,""KRN"",19.1,0)"
^XMB(3.9,29,2,48,0)="19.1"
^XMB(3.9,29,2,49,0)="""BLD"",6838,""KRN"",101,0)"
^XMB(3.9,29,2,50,0)="101"
^XMB(3.9,29,2,51,0)="""BLD"",6838,""KRN"",409.61,0)"
^XMB(3.9,29,2,52,0)="409.61"
^XMB(3.9,29,2,53,0)="""BLD"",6838,""KRN"",771,0)"
^XMB(3.9,29,2,54,0)="771"
^XMB(3.9,29,2,55,0)="""BLD"",6838,""KRN"",870,0)"
^XMB(3.9,29,2,56,0)="870"
^XMB(3.9,29,2,57,0)="""BLD"",6838,""KRN"",8989.51,0)"
^XMB(3.9,29,2,58,0)="8989.51"
^XMB(3.9,29,2,59,0)="""BLD"",6838,""KRN"",8989.52,0)"
^XMB(3.9,29,2,60,0)="8989.52"
^XMB(3.9,29,2,61,0)="""BLD"",6838,""KRN"",8994,0)"
^XMB(3.9,29,2,62,0)="8994"
^XMB(3.9,29,2,63,0)="""BLD"",6838,""KRN"",""B"",.4,.4)"
^XMB(3.9,29,2,64,0)=""
^XMB(3.9,29,2,65,0)="""BLD"",6838,""KRN"",""B"",.401,.401)"
^XMB(3.9,29,2,66,0)=""
^XMB(3.9,29,2,67,0)="""BLD"",6838,""KRN"",""B"",.402,.402)"
^XMB(3.9,29,2,68,0)=""
^XMB(3.9,29,2,69,0)="""BLD"",6838,""KRN"",""B"",.403,.403)"
^XMB(3.9,29,2,70,0)=""
^XMB(3.9,29,2,71,0)="""BLD"",6838,""KRN"",""B"",.5,.5)"
^XMB(3.9,29,2,72,0)=""
^XMB(3.9,29,2,73,0)="""BLD"",6838,""KRN"",""B"",.84,.84)"
^XMB(3.9,29,2,74,0)=""
^XMB(3.9,29,2,75,0)="""BLD"",6838,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,29,2,76,0)=""
^XMB(3.9,29,2,77,0)="""BLD"",6838,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,29,2,78,0)=""
^XMB(3.9,29,2,79,0)="""BLD"",6838,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,29,2,80,0)=""
^XMB(3.9,29,2,81,0)="""BLD"",6838,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,29,2,82,0)=""
^XMB(3.9,29,2,83,0)="""BLD"",6838,""KRN"",""B"",19,19)"
^XMB(3.9,29,2,84,0)=""
^XMB(3.9,29,2,85,0)="""BLD"",6838,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,29,2,86,0)=""
^XMB(3.9,29,2,87,0)="""BLD"",6838,""KRN"",""B"",101,101)"
^XMB(3.9,29,2,88,0)=""
^XMB(3.9,29,2,89,0)="""BLD"",6838,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,29,2,90,0)=""
^XMB(3.9,29,2,91,0)="""BLD"",6838,""KRN"",""B"",771,771)"
^XMB(3.9,29,2,92,0)=""
^XMB(3.9,29,2,93,0)="""BLD"",6838,""KRN"",""B"",870,870)"
^XMB(3.9,29,2,94,0)=""
^XMB(3.9,29,2,95,0)="""BLD"",6838,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,29,2,96,0)=""
^XMB(3.9,29,2,97,0)="""BLD"",6838,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,29,2,98,0)=""
^XMB(3.9,29,2,99,0)="""BLD"",6838,""KRN"",""B"",8994,8994)"
^XMB(3.9,29,2,100,0)=""
^XMB(3.9,29,2,101,0)="""BLD"",6838,""QUES"",0)"
^XMB(3.9,29,2,102,0)="^9.62^^"
^XMB(3.9,29,2,103,0)="""BLD"",6838,""REQB"",0)"
^XMB(3.9,29,2,104,0)="^9.611^1^1"
^XMB(3.9,29,2,105,0)="""BLD"",6838,""REQB"",1,0)"
^XMB(3.9,29,2,106,0)="ECX*3.0*91^2"
^XMB(3.9,29,2,107,0)="""BLD"",6838,""REQB"",""B"",""ECX*3.0*91"",1)"
^XMB(3.9,29,2,108,0)=""
^XMB(3.9,29,2,109,0)="""INIT"")"
^XMB(3.9,29,2,110,0)="ECXP97PT"
^XMB(3.9,29,2,111,0)="""MBREQ"")"
^XMB(3.9,29,2,112,0)="0"
^XMB(3.9,29,2,113,0)="""PKG"",535,-1)"
^XMB(3.9,29,2,114,0)="1^1"
^XMB(3.9,29,2,115,0)="""PKG"",535,0)"
^XMB(3.9,29,2,116,0)="DSS EXTRACTS^ECX"
^XMB(3.9,29,2,117,0)="""PKG"",535,20,0)"
^XMB(3.9,29,2,118,0)="^9.402P^^"
^XMB(3.9,29,2,119,0)="""PKG"",535,22,0)"
^XMB(3.9,29,2,120,0)="^9.49I^1^1"
^XMB(3.9,29,2,121,0)="""PKG"",535,22,1,0)"
^XMB(3.9,29,2,122,0)="3.0^2971222^3000224^66481"
^XMB(3.9,29,2,123,0)="""PKG"",535,22,1,""PAH"",1,0)"
^XMB(3.9,29,2,124,0)="97^3060727"
^XMB(3.9,29,2,125,0)="""PKG"",535,22,1,""PAH"",1,1,0)"
^XMB(3.9,29,2,126,0)="^^1^1^3060727"
^XMB(3.9,29,2,127,0)="""PKG"",535,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,29,2,128,0)="This patch updates file 728.441."
^XMB(3.9,29,2,129,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,29,2,130,0)="Y"
^XMB(3.9,29,2,131,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,29,2,132,0)="^D REP^XPDH"
^XMB(3.9,29,2,133,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,29,2,134,0)="Shall I write over your |FLAG| File"
^XMB(3.9,29,2,135,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,29,2,136,0)="YES"
^XMB(3.9,29,2,137,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,29,2,138,0)="D XPF1^XPDIQ"
^XMB(3.9,29,2,139,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,29,2,140,0)="Y"
^XMB(3.9,29,2,141,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,29,2,142,0)="^D DTA^XPDH"
^XMB(3.9,29,2,143,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,29,2,144,0)="Want my data |FLAG| yours"
^XMB(3.9,29,2,145,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,29,2,146,0)="YES"
^XMB(3.9,29,2,147,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,29,2,148,0)="D XPF2^XPDIQ"
^XMB(3.9,29,2,149,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,29,2,150,0)="YO"
^XMB(3.9,29,2,151,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,29,2,152,0)="^D INHIBIT^XPDH"
^XMB(3.9,29,2,153,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,29,2,154,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,29,2,155,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,29,2,156,0)="YES"
^XMB(3.9,29,2,157,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,29,2,158,0)="D XPI1^XPDIQ"
^XMB(3.9,29,2,159,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,29,2,160,0)="PO^VA(200,:EM"
^XMB(3.9,29,2,161,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,29,2,162,0)="^D MG^XPDH"
^XMB(3.9,29,2,163,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,29,2,164,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,29,2,165,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,29,2,166,0)=""
^XMB(3.9,29,2,167,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,29,2,168,0)="D XPM1^XPDIQ"
^XMB(3.9,29,2,169,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,29,2,170,0)="Y"
^XMB(3.9,29,2,171,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,29,2,172,0)="^D MENU^XPDH"
^XMB(3.9,29,2,173,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,29,2,174,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,29,2,175,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,29,2,176,0)="YES"
^XMB(3.9,29,2,177,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,29,2,178,0)="D XPO1^XPDIQ"
^XMB(3.9,29,2,179,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,29,2,180,0)="Y"
^XMB(3.9,29,2,181,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,29,2,182,0)="^D OPT^XPDH"
^XMB(3.9,29,2,183,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,29,2,184,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,29,2,185,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,29,2,186,0)="YES"
^XMB(3.9,29,2,187,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,29,2,188,0)="D XPZ1^XPDIQ"
^XMB(3.9,29,2,189,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,29,2,190,0)="Y"
^XMB(3.9,29,2,191,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,29,2,192,0)="^D RTN^XPDH"
^XMB(3.9,29,2,193,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,29,2,194,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,29,2,195,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,29,2,196,0)="NO"
^XMB(3.9,29,2,197,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,29,2,198,0)="D XPZ2^XPDIQ"
^XMB(3.9,29,2,199,0)="""RTN"")"
^XMB(3.9,29,2,200,0)="1"
^XMB(3.9,29,2,201,0)="""RTN"",""ECXP97PT"")"
^XMB(3.9,29,2,202,0)="0^1^B4542126^n/a"
^XMB(3.9,29,2,203,0)="""RTN"",""ECXP97PT"",1,0)"
^XMB(3.9,29,2,204,0)="ECXP97PT ;ALB/ESD - PATCH ECX*3.0*47 Post-Init Rtn ; 07/26/06 1:00pm"
^XMB(3.9,29,2,205,0)="""RTN"",""ECXP97PT"",2,0)"
^XMB(3.9,29,2,206,0)=" ;;3.0;DSS EXTRACTS;**97**;Dec 22, 1997"
^XMB(3.9,29,2,207,0)="""RTN"",""ECXP97PT"",3,0)"
^XMB(3.9,29,2,208,0)=" ;"
^XMB(3.9,29,2,209,0)="""RTN"",""ECXP97PT"",4,0)"
^XMB(3.9,29,2,210,0)=" ;Post-init routine to add new entries to:"
^XMB(3.9,29,2,211,0)="""RTN"",""ECXP97PT"",5,0)"
^XMB(3.9,29,2,212,0)=" ;       "
^XMB(3.9,29,2,213,0)="""RTN"",""ECXP97PT"",6,0)"
^XMB(3.9,29,2,214,0)=" ;           NATIONAL CLINIC file (#728.441)"
^XMB(3.9,29,2,215,0)="""RTN"",""ECXP97PT"",7,0)"
^XMB(3.9,29,2,216,0)=" ;"
^XMB(3.9,29,2,217,0)="""RTN"",""ECXP97PT"",8,0)"
^XMB(3.9,29,2,218,0)=" ;"
^XMB(3.9,29,2,219,0)="""RTN"",""ECXP97PT"",9,0)"
^XMB(3.9,29,2,220,0)="EN D POST1"
^XMB(3.9,29,2,221,0)="""RTN"",""ECXP97PT"",10,0)"
^XMB(3.9,29,2,222,0)=" Q"
^XMB(3.9,29,2,223,0)="""RTN"",""ECXP97PT"",11,0)"
^XMB(3.9,29,2,224,0)=" ;"
^XMB(3.9,29,2,225,0)="""RTN"",""ECXP97PT"",12,0)"
^XMB(3.9,29,2,226,0)=" ;"
^XMB(3.9,29,2,227,0)="""RTN"",""ECXP97PT"",13,0)"
^XMB(3.9,29,2,228,0)="POST1 ;- Add new entry to file 728.441"
^XMB(3.9,29,2,229,0)="""RTN"",""ECXP97PT"",14,0)"
^XMB(3.9,29,2,230,0)=" ;      ECXREC is in format: code^short description"
^XMB(3.9,29,2,231,0)="""RTN"",""ECXP97PT"",15,0)"
^XMB(3.9,29,2,232,0)=" ;"
^XMB(3.9,29,2,233,0)="""RTN"",""ECXP97PT"",16,0)"
^XMB(3.9,29,2,234,0)=" ;"
^XMB(3.9,29,2,235,0)="""RTN"",""ECXP97PT"",17,0)"
^XMB(3.9,29,2,236,0)=" N ECXFDA,ECXERR,ECXCODE,ECXREC,I"
^XMB(3.9,29,2,237,0)="""RTN"",""ECXP97PT"",18,0)"
^XMB(3.9,29,2,238,0)=" D BMES^XPDUTL("">>> Adding entry to the NATIONAL CLINIC (#728.441) file..."")"
^XMB(3.9,29,2,239,0)="""RTN"",""ECXP97PT"",19,0)"
^XMB(3.9,29,2,240,0)=" ;"
^XMB(3.9,29,2,241,0)="""RTN"",""ECXP97PT"",20,0)"
^XMB(3.9,29,2,242,0)=" ;- Get NATIONAL CLINIC record"
^XMB(3.9,29,2,243,0)="""RTN"",""ECXP97PT"",21,0)"
^XMB(3.9,29,2,244,0)=" F I=1:1 S ECXREC=$P($T(NATCLIN+I),"";;"",2) Q:ECXREC=""QUIT""  D"
^XMB(3.9,29,2,245,0)="""RTN"",""ECXP97PT"",22,0)"
^XMB(3.9,29,2,246,0)=" .;"
^XMB(3.9,29,2,247,0)="""RTN"",""ECXP97PT"",23,0)"
^XMB(3.9,29,2,248,0)=" .;- National Clinic code"
^XMB(3.9,29,2,249,0)="""RTN"",""ECXP97PT"",24,0)"
^XMB(3.9,29,2,250,0)=" .S ECXCODE=$P(ECXREC,""^"")"
^XMB(3.9,29,2,251,0)="""RTN"",""ECXP97PT"",25,0)"
^XMB(3.9,29,2,252,0)=" .;"
^XMB(3.9,29,2,253,0)="""RTN"",""ECXP97PT"",26,0)"
^XMB(3.9,29,2,254,0)=" .;- Quit w/error message if entry already exists in file #728.441"
^XMB(3.9,29,2,255,0)="""RTN"",""ECXP97PT"",27,0)"
^XMB(3.9,29,2,256,0)=" .I $$FIND1^DIC(728.441,"""",""X"",ECXCODE) D  Q"
^XMB(3.9,29,2,257,0)="""RTN"",""ECXP97PT"",28,0)"
^XMB(3.9,29,2,258,0)=" ..D BMES^XPDUTL("">>>....""_ECXCODE_""  ""_$P(ECXREC,U,2)_""  not added, entry already exists."")"
^XMB(3.9,29,2,259,0)="""RTN"",""ECXP97PT"",29,0)"
^XMB(3.9,29,2,260,0)=" ..D BMES^XPDUTL("">>> Delete entries and reinstall patch if entries were not created by a"")"
^XMB(3.9,29,2,261,0)="""RTN"",""ECXP97PT"",30,0)"
^XMB(3.9,29,2,262,0)=" ..D MES^XPDUTL("">>> previous installation of this patch."")"
^XMB(3.9,29,2,263,0)="""RTN"",""ECXP97PT"",31,0)"
^XMB(3.9,29,2,264,0)=" .;"
^XMB(3.9,29,2,265,0)="""RTN"",""ECXP97PT"",32,0)"
^XMB(3.9,29,2,266,0)=" .;- Setup field values of new entry"
^XMB(3.9,29,2,267,0)="""RTN"",""ECXP97PT"",33,0)"
^XMB(3.9,29,2,268,0)=" .S ECXFDA(728.441,""+1,"",.01)=ECXCODE"
^XMB(3.9,29,2,269,0)="""RTN"",""ECXP97PT"",34,0)"
^XMB(3.9,29,2,270,0)=" .S ECXFDA(728.441,""+1,"",1)=$P(ECXREC,""^"",2)"
^XMB(3.9,29,2,271,0)="""RTN"",""ECXP97PT"",35,0)"
^XMB(3.9,29,2,272,0)=" .;"
^XMB(3.9,29,2,273,0)="""RTN"",""ECXP97PT"",36,0)"
^XMB(3.9,29,2,274,0)=" .;- Add new entry to file #728.441"
^XMB(3.9,29,2,275,0)="""RTN"",""ECXP97PT"",37,0)"
^XMB(3.9,29,2,276,0)=" .D UPDATE^DIE(""E"",""ECXFDA"","""",""ECXERR"")"
^XMB(3.9,29,2,277,0)="""RTN"",""ECXP97PT"",38,0)"
^XMB(3.9,29,2,278,0)=" .;"
^XMB(3.9,29,2,279,0)="""RTN"",""ECXP97PT"",39,0)"
^XMB(3.9,29,2,280,0)=" .I '$D(ECXERR) D BMES^XPDUTL("">>>....""_ECXCODE_""  ""_$P(ECXREC,U,2)_""  added to file."")"
^XMB(3.9,29,2,281,0)="""RTN"",""ECXP97PT"",40,0)"
^XMB(3.9,29,2,282,0)=" .I $D(ECXERR) D BMES^XPDUTL("">>>....Unable to add ""_ECXCODE_""  ""_$P(ECXREC,U,2)_"" to file."")"
^XMB(3.9,29,2,283,0)="""RTN"",""ECXP97PT"",41,0)"
^XMB(3.9,29,2,284,0)=" ;"
^XMB(3.9,29,2,285,0)="""RTN"",""ECXP97PT"",42,0)"
^XMB(3.9,29,2,286,0)=" Q"
^XMB(3.9,29,2,287,0)="""RTN"",""ECXP97PT"",43,0)"
^XMB(3.9,29,2,288,0)=" ;"
^XMB(3.9,29,2,289,0)="""RTN"",""ECXP97PT"",44,0)"
^XMB(3.9,29,2,290,0)="NATCLIN ;- Contains the NATIONAL CLINIC entry to be added"
^XMB(3.9,29,2,291,0)="""RTN"",""ECXP97PT"",45,0)"
^XMB(3.9,29,2,292,0)=" ;;PLCH^PALLIATIVE CHAPLAIN"
^XMB(3.9,29,2,293,0)="""RTN"",""ECXP97PT"",46,0)"
^XMB(3.9,29,2,294,0)=" ;;LIPD^LIPID"
^XMB(3.9,29,2,295,0)="""RTN"",""ECXP97PT"",47,0)"
^XMB(3.9,29,2,296,0)=" ;;QUIT"
^XMB(3.9,29,2,297,0)="""VER"")"
^XMB(3.9,29,2,298,0)="8.0^22.0"
^XMB(3.9,29,2,299,0)="""BLD"",6838,6)"
^XMB(3.9,29,2,300,0)="^86"
^XMB(3.9,29,2,301,0)="$END KID ECX*3.0*97"
^XMB(3.9,29,6,0)="^3.911A^2^2"
^XMB(3.9,29,6,1,0)="POSTMASTER"
^XMB(3.9,29,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,29,6,"B","POSTMASTER",1)=""
^XMB(3.9,29,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,30,0)="EN-7_SEQ-82_PAT-86.KID^.5^3061008.015733^^^^K"
^XMB(3.9,30,.6)="3061008"
^XMB(3.9,30,1,0)="^3.91A^2^2"
^XMB(3.9,30,1,1,0)=".5^0^3061008.015733^^^^^^^3061008.015733"
^XMB(3.9,30,1,2,0)="1^0^3061008.023059^^^^^^^3061008.023059"
^XMB(3.9,30,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,30,1,"C",.5,1)=""
^XMB(3.9,30,1,"C",1,2)=""
^XMB(3.9,30,2,0)="^^371^371^3061008"
^XMB(3.9,30,2,1,0)="$TXT Released EN*7*86 SEQ #82"
^XMB(3.9,30,2,2,0)="Extracted from mail message"
^XMB(3.9,30,2,3,0)="$END TXT"
^XMB(3.9,30,2,4,0)="$KID EN*7.0*86"
^XMB(3.9,30,2,5,0)="**INSTALL NAME**"
^XMB(3.9,30,2,6,0)="EN*7.0*86"
^XMB(3.9,30,2,7,0)="""BLD"",6672,0)"
^XMB(3.9,30,2,8,0)="EN*7.0*86^ENGINEERING^0^3060508^y"
^XMB(3.9,30,2,9,0)="""BLD"",6672,1,0)"
^XMB(3.9,30,2,10,0)="^^1^1^3060331^^"
^XMB(3.9,30,2,11,0)="""BLD"",6672,1,1,0)"
^XMB(3.9,30,2,12,0)="This patch adds fund code AMAFIT to the NX FUND (#6914.6) file."
^XMB(3.9,30,2,13,0)="""BLD"",6672,4,0)"
^XMB(3.9,30,2,14,0)="^9.64PA^6914.6^1"
^XMB(3.9,30,2,15,0)="""BLD"",6672,4,6914.6,0)"
^XMB(3.9,30,2,16,0)="6914.6"
^XMB(3.9,30,2,17,0)="""BLD"",6672,4,6914.6,222)"
^XMB(3.9,30,2,18,0)="n^n^f^^n^^y^r^n"
^XMB(3.9,30,2,19,0)="""BLD"",6672,4,6914.6,224)"
^XMB(3.9,30,2,20,0)="I $P(^ENG(6914.6,Y,0),""^"",1)=""AMAFIT"""
^XMB(3.9,30,2,21,0)="""BLD"",6672,4,""B"",6914.6,6914.6)"
^XMB(3.9,30,2,22,0)=""
^XMB(3.9,30,2,23,0)="""BLD"",6672,""KRN"",0)"
^XMB(3.9,30,2,24,0)="^9.67PA^8989.52^19"
^XMB(3.9,30,2,25,0)="""BLD"",6672,""KRN"",.4,0)"
^XMB(3.9,30,2,26,0)=".4"
^XMB(3.9,30,2,27,0)="""BLD"",6672,""KRN"",.401,0)"
^XMB(3.9,30,2,28,0)=".401"
^XMB(3.9,30,2,29,0)="""BLD"",6672,""KRN"",.402,0)"
^XMB(3.9,30,2,30,0)=".402"
^XMB(3.9,30,2,31,0)="""BLD"",6672,""KRN"",.403,0)"
^XMB(3.9,30,2,32,0)=".403"
^XMB(3.9,30,2,33,0)="""BLD"",6672,""KRN"",.5,0)"
^XMB(3.9,30,2,34,0)=".5"
^XMB(3.9,30,2,35,0)="""BLD"",6672,""KRN"",.84,0)"
^XMB(3.9,30,2,36,0)=".84"
^XMB(3.9,30,2,37,0)="""BLD"",6672,""KRN"",3.6,0)"
^XMB(3.9,30,2,38,0)="3.6"
^XMB(3.9,30,2,39,0)="""BLD"",6672,""KRN"",3.8,0)"
^XMB(3.9,30,2,40,0)="3.8"
^XMB(3.9,30,2,41,0)="""BLD"",6672,""KRN"",9.2,0)"
^XMB(3.9,30,2,42,0)="9.2"
^XMB(3.9,30,2,43,0)="""BLD"",6672,""KRN"",9.8,0)"
^XMB(3.9,30,2,44,0)="9.8"
^XMB(3.9,30,2,45,0)="""BLD"",6672,""KRN"",19,0)"
^XMB(3.9,30,2,46,0)="19"
^XMB(3.9,30,2,47,0)="""BLD"",6672,""KRN"",19.1,0)"
^XMB(3.9,30,2,48,0)="19.1"
^XMB(3.9,30,2,49,0)="""BLD"",6672,""KRN"",101,0)"
^XMB(3.9,30,2,50,0)="101"
^XMB(3.9,30,2,51,0)="""BLD"",6672,""KRN"",409.61,0)"
^XMB(3.9,30,2,52,0)="409.61"
^XMB(3.9,30,2,53,0)="""BLD"",6672,""KRN"",771,0)"
^XMB(3.9,30,2,54,0)="771"
^XMB(3.9,30,2,55,0)="""BLD"",6672,""KRN"",870,0)"
^XMB(3.9,30,2,56,0)="870"
^XMB(3.9,30,2,57,0)="""BLD"",6672,""KRN"",8989.51,0)"
^XMB(3.9,30,2,58,0)="8989.51"
^XMB(3.9,30,2,59,0)="""BLD"",6672,""KRN"",8989.52,0)"
^XMB(3.9,30,2,60,0)="8989.52"
^XMB(3.9,30,2,61,0)="""BLD"",6672,""KRN"",8994,0)"
^XMB(3.9,30,2,62,0)="8994"
^XMB(3.9,30,2,63,0)="""BLD"",6672,""KRN"",""B"",.4,.4)"
^XMB(3.9,30,2,64,0)=""
^XMB(3.9,30,2,65,0)="""BLD"",6672,""KRN"",""B"",.401,.401)"
^XMB(3.9,30,2,66,0)=""
^XMB(3.9,30,2,67,0)="""BLD"",6672,""KRN"",""B"",.402,.402)"
^XMB(3.9,30,2,68,0)=""
^XMB(3.9,30,2,69,0)="""BLD"",6672,""KRN"",""B"",.403,.403)"
^XMB(3.9,30,2,70,0)=""
^XMB(3.9,30,2,71,0)="""BLD"",6672,""KRN"",""B"",.5,.5)"
^XMB(3.9,30,2,72,0)=""
^XMB(3.9,30,2,73,0)="""BLD"",6672,""KRN"",""B"",.84,.84)"
^XMB(3.9,30,2,74,0)=""
^XMB(3.9,30,2,75,0)="""BLD"",6672,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,30,2,76,0)=""
^XMB(3.9,30,2,77,0)="""BLD"",6672,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,30,2,78,0)=""
^XMB(3.9,30,2,79,0)="""BLD"",6672,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,30,2,80,0)=""
^XMB(3.9,30,2,81,0)="""BLD"",6672,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,30,2,82,0)=""
^XMB(3.9,30,2,83,0)="""BLD"",6672,""KRN"",""B"",19,19)"
^XMB(3.9,30,2,84,0)=""
^XMB(3.9,30,2,85,0)="""BLD"",6672,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,30,2,86,0)=""
^XMB(3.9,30,2,87,0)="""BLD"",6672,""KRN"",""B"",101,101)"
^XMB(3.9,30,2,88,0)=""
^XMB(3.9,30,2,89,0)="""BLD"",6672,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,30,2,90,0)=""
^XMB(3.9,30,2,91,0)="""BLD"",6672,""KRN"",""B"",771,771)"
^XMB(3.9,30,2,92,0)=""
^XMB(3.9,30,2,93,0)="""BLD"",6672,""KRN"",""B"",870,870)"
^XMB(3.9,30,2,94,0)=""
^XMB(3.9,30,2,95,0)="""BLD"",6672,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,30,2,96,0)=""
^XMB(3.9,30,2,97,0)="""BLD"",6672,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,30,2,98,0)=""
^XMB(3.9,30,2,99,0)="""BLD"",6672,""KRN"",""B"",8994,8994)"
^XMB(3.9,30,2,100,0)=""
^XMB(3.9,30,2,101,0)="""BLD"",6672,""QUES"",0)"
^XMB(3.9,30,2,102,0)="^9.62^^"
^XMB(3.9,30,2,103,0)="""BLD"",6672,""REQB"",0)"
^XMB(3.9,30,2,104,0)="^9.611^^"
^XMB(3.9,30,2,105,0)="""DATA"",6914.6,22,0)"
^XMB(3.9,30,2,106,0)="AMAFIT^AMAF Info Tech Fund 0167^0^INFO TECH^^0167"
^XMB(3.9,30,2,107,0)="""FIA"",6914.6)"
^XMB(3.9,30,2,108,0)="NX FUND"
^XMB(3.9,30,2,109,0)="""FIA"",6914.6,0)"
^XMB(3.9,30,2,110,0)="^ENG(6914.6,"
^XMB(3.9,30,2,111,0)="""FIA"",6914.6,0,0)"
^XMB(3.9,30,2,112,0)="6914.6I"
^XMB(3.9,30,2,113,0)="""FIA"",6914.6,0,1)"
^XMB(3.9,30,2,114,0)="n^n^f^^n^^y^r^n"
^XMB(3.9,30,2,115,0)="""FIA"",6914.6,0,10)"
^XMB(3.9,30,2,116,0)=""
^XMB(3.9,30,2,117,0)="""FIA"",6914.6,0,11)"
^XMB(3.9,30,2,118,0)="I $P(^ENG(6914.6,Y,0),""^"",1)=""AMAFIT"""
^XMB(3.9,30,2,119,0)="""FIA"",6914.6,0,""RLRO"")"
^XMB(3.9,30,2,120,0)=""
^XMB(3.9,30,2,121,0)="""FIA"",6914.6,0,""VR"")"
^XMB(3.9,30,2,122,0)="7.0^EN"
^XMB(3.9,30,2,123,0)="""FIA"",6914.6,6914.6)"
^XMB(3.9,30,2,124,0)="0"
^XMB(3.9,30,2,125,0)="""MBREQ"")"
^XMB(3.9,30,2,126,0)="0"
^XMB(3.9,30,2,127,0)="""PKG"",33,-1)"
^XMB(3.9,30,2,128,0)="1^1"
^XMB(3.9,30,2,129,0)="""PKG"",33,0)"
^XMB(3.9,30,2,130,0)="ENGINEERING^EN^AUTOMATED ENGINEERING MANAGEMENT SYSTEM"
^XMB(3.9,30,2,131,0)="""PKG"",33,20,0)"
^XMB(3.9,30,2,132,0)="^9.402P^^"
^XMB(3.9,30,2,133,0)="""PKG"",33,22,0)"
^XMB(3.9,30,2,134,0)="^9.49I^1^1"
^XMB(3.9,30,2,135,0)="""PKG"",33,22,1,0)"
^XMB(3.9,30,2,136,0)="7.0^2930817^2960130"
^XMB(3.9,30,2,137,0)="""PKG"",33,22,1,""PAH"",1,0)"
^XMB(3.9,30,2,138,0)="86^3060508"
^XMB(3.9,30,2,139,0)="""PKG"",33,22,1,""PAH"",1,1,0)"
^XMB(3.9,30,2,140,0)="^^1^1^3060508"
^XMB(3.9,30,2,141,0)="""PKG"",33,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,30,2,142,0)="This patch adds fund code AMAFIT to the NX FUND (#6914.6) file."
^XMB(3.9,30,2,143,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,30,2,144,0)="Y"
^XMB(3.9,30,2,145,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,30,2,146,0)="^D REP^XPDH"
^XMB(3.9,30,2,147,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,30,2,148,0)="Shall I write over your |FLAG| File"
^XMB(3.9,30,2,149,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,30,2,150,0)="YES"
^XMB(3.9,30,2,151,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,30,2,152,0)="D XPF1^XPDIQ"
^XMB(3.9,30,2,153,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,30,2,154,0)="Y"
^XMB(3.9,30,2,155,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,30,2,156,0)="^D DTA^XPDH"
^XMB(3.9,30,2,157,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,30,2,158,0)="Want my data |FLAG| yours"
^XMB(3.9,30,2,159,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,30,2,160,0)="YES"
^XMB(3.9,30,2,161,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,30,2,162,0)="D XPF2^XPDIQ"
^XMB(3.9,30,2,163,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,30,2,164,0)="YO"
^XMB(3.9,30,2,165,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,30,2,166,0)="^D INHIBIT^XPDH"
^XMB(3.9,30,2,167,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,30,2,168,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,30,2,169,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,30,2,170,0)="YES"
^XMB(3.9,30,2,171,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,30,2,172,0)="D XPI1^XPDIQ"
^XMB(3.9,30,2,173,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,30,2,174,0)="PO^VA(200,:EM"
^XMB(3.9,30,2,175,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,30,2,176,0)="^D MG^XPDH"
^XMB(3.9,30,2,177,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,30,2,178,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,30,2,179,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,30,2,180,0)=""
^XMB(3.9,30,2,181,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,30,2,182,0)="D XPM1^XPDIQ"
^XMB(3.9,30,2,183,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,30,2,184,0)="Y"
^XMB(3.9,30,2,185,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,30,2,186,0)="^D MENU^XPDH"
^XMB(3.9,30,2,187,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,30,2,188,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,30,2,189,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,30,2,190,0)="YES"
^XMB(3.9,30,2,191,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,30,2,192,0)="D XPO1^XPDIQ"
^XMB(3.9,30,2,193,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,30,2,194,0)="Y"
^XMB(3.9,30,2,195,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,30,2,196,0)="^D OPT^XPDH"
^XMB(3.9,30,2,197,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,30,2,198,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,30,2,199,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,30,2,200,0)="YES"
^XMB(3.9,30,2,201,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,30,2,202,0)="D XPZ1^XPDIQ"
^XMB(3.9,30,2,203,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,30,2,204,0)="Y"
^XMB(3.9,30,2,205,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,30,2,206,0)="^D RTN^XPDH"
^XMB(3.9,30,2,207,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,30,2,208,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,30,2,209,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,30,2,210,0)="NO"
^XMB(3.9,30,2,211,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,30,2,212,0)="D XPZ2^XPDIQ"
^XMB(3.9,30,2,213,0)="""VER"")"
^XMB(3.9,30,2,214,0)="8.0^22.0"
^XMB(3.9,30,2,215,0)="""^DD"",6914.6,6914.6,0)"
^XMB(3.9,30,2,216,0)="FIELD^^5^6"
^XMB(3.9,30,2,217,0)="""^DD"",6914.6,6914.6,0,""DT"")"
^XMB(3.9,30,2,218,0)="3001113"
^XMB(3.9,30,2,219,0)="""^DD"",6914.6,6914.6,0,""ID"",1)"
^XMB(3.9,30,2,220,0)="W ""   "",$P(^(0),U,2)"
^XMB(3.9,30,2,221,0)="""^DD"",6914.6,6914.6,0,""IX"",""B"",6914.6,.01)"
^XMB(3.9,30,2,222,0)=""
^XMB(3.9,30,2,223,0)="""^DD"",6914.6,6914.6,0,""IX"",""C"",6914.6,1)"
^XMB(3.9,30,2,224,0)=""
^XMB(3.9,30,2,225,0)="""^DD"",6914.6,6914.6,0,""IX"",""D"",6914.6,.01)"
^XMB(3.9,30,2,226,0)=""
^XMB(3.9,30,2,227,0)="""^DD"",6914.6,6914.6,0,""IX"",""E"",6914.6,5)"
^XMB(3.9,30,2,228,0)=""
^XMB(3.9,30,2,229,0)="""^DD"",6914.6,6914.6,0,""NM"",""NX FUND"")"
^XMB(3.9,30,2,230,0)=""
^XMB(3.9,30,2,231,0)="""^DD"",6914.6,6914.6,0,""PT"",6914,62)"
^XMB(3.9,30,2,232,0)=""
^XMB(3.9,30,2,233,0)="""^DD"",6914.6,6914.6,0,""PT"",6915.6,101)"
^XMB(3.9,30,2,234,0)=""
^XMB(3.9,30,2,235,0)="""^DD"",6914.6,6914.6,0,""PT"",6915.91,.01)"
^XMB(3.9,30,2,236,0)=""
^XMB(3.9,30,2,237,0)="""^DD"",6914.6,6914.6,0,""VRPK"")"
^XMB(3.9,30,2,238,0)="EN"
^XMB(3.9,30,2,239,0)="""^DD"",6914.6,6914.6,.01,0)"
^XMB(3.9,30,2,240,0)="NX FUND CODE^RF^^0;1^K:$L(X)>6!($L(X)<4)!'(X?.NU) X"
^XMB(3.9,30,2,241,0)="""^DD"",6914.6,6914.6,.01,1,0)"
^XMB(3.9,30,2,242,0)="^.1"
^XMB(3.9,30,2,243,0)="""^DD"",6914.6,6914.6,.01,1,1,0)"
^XMB(3.9,30,2,244,0)="6914.6^B"
^XMB(3.9,30,2,245,0)="""^DD"",6914.6,6914.6,.01,1,1,1)"
^XMB(3.9,30,2,246,0)="S ^ENG(6914.6,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,30,2,247,0)="""^DD"",6914.6,6914.6,.01,1,1,2)"
^XMB(3.9,30,2,248,0)="K ^ENG(6914.6,""B"",$E(X,1,30),DA)"
^XMB(3.9,30,2,249,0)="""^DD"",6914.6,6914.6,.01,1,2,0)"
^XMB(3.9,30,2,250,0)="6914.6^D^MUMPS"
^XMB(3.9,30,2,251,0)="""^DD"",6914.6,6914.6,.01,1,2,1)"
^XMB(3.9,30,2,252,0)="S ^ENG(6914.6,""D"",$E(X_"" "",1,30),DA)="""""
^XMB(3.9,30,2,253,0)="""^DD"",6914.6,6914.6,.01,1,2,2)"
^XMB(3.9,30,2,254,0)="K ^ENG(6914.6,""D"",$E(X_"" "",1,30),DA)"
^XMB(3.9,30,2,255,0)="""^DD"",6914.6,6914.6,.01,1,2,""%D"",0)"
^XMB(3.9,30,2,256,0)="^^1^1^2960919^"
^XMB(3.9,30,2,257,0)="""^DD"",6914.6,6914.6,.01,1,2,""%D"",1,0)"
^XMB(3.9,30,2,258,0)="Added to improve lookups on numeric values."
^XMB(3.9,30,2,259,0)="""^DD"",6914.6,6914.6,.01,1,2,""DT"")"
^XMB(3.9,30,2,260,0)="2960919"
^XMB(3.9,30,2,261,0)="""^DD"",6914.6,6914.6,.01,3)"
^XMB(3.9,30,2,262,0)="Answer must be 4-6 characters in length."
^XMB(3.9,30,2,263,0)="""^DD"",6914.6,6914.6,.01,21,0)"
^XMB(3.9,30,2,264,0)="^^1^1^2960719^^"
^XMB(3.9,30,2,265,0)="""^DD"",6914.6,6914.6,.01,21,1,0)"
^XMB(3.9,30,2,266,0)="Fund code."
^XMB(3.9,30,2,267,0)="""^DD"",6914.6,6914.6,.01,""DT"")"
^XMB(3.9,30,2,268,0)="2960919"
^XMB(3.9,30,2,269,0)="""^DD"",6914.6,6914.6,1,0)"
^XMB(3.9,30,2,270,0)="BRIEF DESCRIPTION^RF^^0;2^K:$L(X)>40!($L(X)<3) X"
^XMB(3.9,30,2,271,0)="""^DD"",6914.6,6914.6,1,1,0)"
^XMB(3.9,30,2,272,0)="^.1"
^XMB(3.9,30,2,273,0)="""^DD"",6914.6,6914.6,1,1,1,0)"
^XMB(3.9,30,2,274,0)="6914.6^C"
^XMB(3.9,30,2,275,0)="""^DD"",6914.6,6914.6,1,1,1,1)"
^XMB(3.9,30,2,276,0)="S ^ENG(6914.6,""C"",$E(X,1,30),DA)="""""
^XMB(3.9,30,2,277,0)="""^DD"",6914.6,6914.6,1,1,1,2)"
^XMB(3.9,30,2,278,0)="K ^ENG(6914.6,""C"",$E(X,1,30),DA)"
^XMB(3.9,30,2,279,0)="""^DD"",6914.6,6914.6,1,1,1,""DT"")"
^XMB(3.9,30,2,280,0)="2950719"
^XMB(3.9,30,2,281,0)="""^DD"",6914.6,6914.6,1,3)"
^XMB(3.9,30,2,282,0)="Answer must be 3-40 characters in length."
^XMB(3.9,30,2,283,0)="""^DD"",6914.6,6914.6,1,21,0)"
^XMB(3.9,30,2,284,0)="^^1^1^2950719^"
^XMB(3.9,30,2,285,0)="""^DD"",6914.6,6914.6,1,21,1,0)"
^XMB(3.9,30,2,286,0)="Text description of fund code."
^XMB(3.9,30,2,287,0)="""^DD"",6914.6,6914.6,1,""DT"")"
^XMB(3.9,30,2,288,0)="2950719"
^XMB(3.9,30,2,289,0)="""^DD"",6914.6,6914.6,2,0)"
^XMB(3.9,30,2,290,0)="REVOVLING FUND?^S^0:NO;1:YES;^0;3^Q"
^XMB(3.9,30,2,291,0)="""^DD"",6914.6,6914.6,2,21,0)"
^XMB(3.9,30,2,292,0)="^^2^2^2950911^"
^XMB(3.9,30,2,293,0)="""^DD"",6914.6,6914.6,2,21,1,0)"
^XMB(3.9,30,2,294,0)="If REVOLVING FUND? is YES, then BEG_BUDGET_FY must be 94 when transmitting"
^XMB(3.9,30,2,295,0)="""^DD"",6914.6,6914.6,2,21,2,0)"
^XMB(3.9,30,2,296,0)="documents to FAP."
^XMB(3.9,30,2,297,0)="""^DD"",6914.6,6914.6,2,""DT"")"
^XMB(3.9,30,2,298,0)="2950911"
^XMB(3.9,30,2,299,0)="""^DD"",6914.6,6914.6,3,0)"
^XMB(3.9,30,2,300,0)="ABBREVIATION^F^^0;4^K:$L(X)>12!($L(X)<2) X"
^XMB(3.9,30,2,301,0)="""^DD"",6914.6,6914.6,3,3)"
^XMB(3.9,30,2,302,0)="Answer must be 2-12 characters in length."
^XMB(3.9,30,2,303,0)="""^DD"",6914.6,6914.6,3,21,0)"
^XMB(3.9,30,2,304,0)="^^2^2^2970103^"
^XMB(3.9,30,2,305,0)="""^DD"",6914.6,6914.6,3,21,1,0)"
^XMB(3.9,30,2,306,0)="Abbreviation for the fund that could be used to further identify the .01"
^XMB(3.9,30,2,307,0)="""^DD"",6914.6,6914.6,3,21,2,0)"
^XMB(3.9,30,2,308,0)="field when there is not room for the fullfund description."
^XMB(3.9,30,2,309,0)="""^DD"",6914.6,6914.6,3,""DT"")"
^XMB(3.9,30,2,310,0)="2970103"
^XMB(3.9,30,2,311,0)="""^DD"",6914.6,6914.6,4,0)"
^XMB(3.9,30,2,312,0)="DEACTIVATED DATE^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,30,2,313,0)="""^DD"",6914.6,6914.6,4,3)"
^XMB(3.9,30,2,314,0)="Date when FUND is no longer valid for new FA or FR Documents."
^XMB(3.9,30,2,315,0)="""^DD"",6914.6,6914.6,4,21,0)"
^XMB(3.9,30,2,316,0)="^^2^2^2971020^"
^XMB(3.9,30,2,317,0)="""^DD"",6914.6,6914.6,4,21,1,0)"
^XMB(3.9,30,2,318,0)="As of the date entered in this field, new FA or FR Documents can't be sent"
^XMB(3.9,30,2,319,0)="""^DD"",6914.6,6914.6,4,21,2,0)"
^XMB(3.9,30,2,320,0)="to Fixed Assets (Austin) with this FUND."
^XMB(3.9,30,2,321,0)="""^DD"",6914.6,6914.6,4,""DT"")"
^XMB(3.9,30,2,322,0)="2971020"
^XMB(3.9,30,2,323,0)="""^DD"",6914.6,6914.6,5,0)"
^XMB(3.9,30,2,324,0)="ASSOCIATED FUND^F^^0;6^K:$L(X)>4!($L(X)<4) X"
^XMB(3.9,30,2,325,0)="""^DD"",6914.6,6914.6,5,1,0)"
^XMB(3.9,30,2,326,0)="^.1"
^XMB(3.9,30,2,327,0)="""^DD"",6914.6,6914.6,5,1,1,0)"
^XMB(3.9,30,2,328,0)="6914.6^E"
^XMB(3.9,30,2,329,0)="""^DD"",6914.6,6914.6,5,1,1,1)"
^XMB(3.9,30,2,330,0)="S ^ENG(6914.6,""E"",$E(X,1,30),DA)="""""
^XMB(3.9,30,2,331,0)="""^DD"",6914.6,6914.6,5,1,1,2)"
^XMB(3.9,30,2,332,0)="K ^ENG(6914.6,""E"",$E(X,1,30),DA)"
^XMB(3.9,30,2,333,0)="""^DD"",6914.6,6914.6,5,1,1,""DT"")"
^XMB(3.9,30,2,334,0)="2980901"
^XMB(3.9,30,2,335,0)="""^DD"",6914.6,6914.6,5,3)"
^XMB(3.9,30,2,336,0)="Answer must be 4 characters in length."
^XMB(3.9,30,2,337,0)="""^DD"",6914.6,6914.6,5,21,0)"
^XMB(3.9,30,2,338,0)="^^8^8^2980902^"
^XMB(3.9,30,2,339,0)="""^DD"",6914.6,6914.6,5,21,1,0)"
^XMB(3.9,30,2,340,0)="This field can be used to link an inventory fund in this file with an"
^XMB(3.9,30,2,341,0)="""^DD"",6914.6,6914.6,5,21,2,0)"
^XMB(3.9,30,2,342,0)="associated acquisition fund when the first four characters of the"
^XMB(3.9,30,2,343,0)="""^DD"",6914.6,6914.6,5,21,3,0)"
^XMB(3.9,30,2,344,0)="associated funds are dissimilar. For example, this field provides a means"
^XMB(3.9,30,2,345,0)="""^DD"",6914.6,6914.6,5,21,4,0)"
^XMB(3.9,30,2,346,0)="to associate acquisition funds that start with 0160 (i.e. 0160A1, etc.)"
^XMB(3.9,30,2,347,0)="""^DD"",6914.6,6914.6,5,21,5,0)"
^XMB(3.9,30,2,348,0)="with the corresponding inventory fund AMAFMC by entering ""0161"" in this"
^XMB(3.9,30,2,349,0)="""^DD"",6914.6,6914.6,5,21,6,0)"
^XMB(3.9,30,2,350,0)="field for fund AMAFMC. This field is used when the system automatically"
^XMB(3.9,30,2,351,0)="""^DD"",6914.6,6914.6,5,21,7,0)"
^XMB(3.9,30,2,352,0)="populates the FUND field in the equipment file based on information from a"
^XMB(3.9,30,2,353,0)="""^DD"",6914.6,6914.6,5,21,8,0)"
^XMB(3.9,30,2,354,0)="purchase order/receiving report."
^XMB(3.9,30,2,355,0)="""^DD"",6914.6,6914.6,5,""DT"")"
^XMB(3.9,30,2,356,0)="2980902"
^XMB(3.9,30,2,357,0)="""^DIC"",6914.6,6914.6,0)"
^XMB(3.9,30,2,358,0)="NX FUND^6914.6I"
^XMB(3.9,30,2,359,0)="""^DIC"",6914.6,6914.6,0,""GL"")"
^XMB(3.9,30,2,360,0)="^ENG(6914.6,"
^XMB(3.9,30,2,361,0)="""^DIC"",6914.6,6914.6,""%D"",0)"
^XMB(3.9,30,2,362,0)="^^2^2^2960227^^"
^XMB(3.9,30,2,363,0)="""^DIC"",6914.6,6914.6,""%D"",1,0)"
^XMB(3.9,30,2,364,0)="File of Funds appropriate for capitalized non-expendable (NX) equipment."
^XMB(3.9,30,2,365,0)="""^DIC"",6914.6,6914.6,""%D"",2,0)"
^XMB(3.9,30,2,366,0)="This file should not be locally modified."
^XMB(3.9,30,2,367,0)="""^DIC"",6914.6,""B"",""NX FUND"",6914.6)"
^XMB(3.9,30,2,368,0)=""
^XMB(3.9,30,2,369,0)="""BLD"",6672,6)"
^XMB(3.9,30,2,370,0)="^82"
^XMB(3.9,30,2,371,0)="$END KID EN*7.0*86"
^XMB(3.9,30,6,0)="^3.911A^2^2"
^XMB(3.9,30,6,1,0)="POSTMASTER"
^XMB(3.9,30,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,30,6,"B","POSTMASTER",1)=""
^XMB(3.9,30,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,31,0)="FB-3P5_SEQ-89_PAT-97.KID^.5^3061008.015733^^^^K"
^XMB(3.9,31,.6)="3061008"
^XMB(3.9,31,1,0)="^3.91A^2^2"
^XMB(3.9,31,1,1,0)=".5^0^3061008.015733^^^^^^^3061008.015733"
^XMB(3.9,31,1,2,0)="1^0^3061008.023103^^^^^^^3061008.023103"
^XMB(3.9,31,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,31,1,"C",.5,1)=""
^XMB(3.9,31,1,"C",1,2)=""
^XMB(3.9,31,2,0)="^^429^429^3061008"
^XMB(3.9,31,2,1,0)="$TXT Released FB*3.5*97 SEQ #89"
^XMB(3.9,31,2,2,0)="Extracted from mail message"
^XMB(3.9,31,2,3,0)="$END TXT"
^XMB(3.9,31,2,4,0)="$KID FB*3.5*97"
^XMB(3.9,31,2,5,0)="**INSTALL NAME**"
^XMB(3.9,31,2,6,0)="FB*3.5*97"
^XMB(3.9,31,2,7,0)="""BLD"",6338,0)"
^XMB(3.9,31,2,8,0)="FB*3.5*97^FEE BASIS^0^3060530^y"
^XMB(3.9,31,2,9,0)="""BLD"",6338,1,0)"
^XMB(3.9,31,2,10,0)="^^6^6^3060524^"
^XMB(3.9,31,2,11,0)="""BLD"",6338,1,1,0)"
^XMB(3.9,31,2,12,0)=" "
^XMB(3.9,31,2,13,0)="""BLD"",6338,1,2,0)"
^XMB(3.9,31,2,14,0)=" "
^XMB(3.9,31,2,15,0)="""BLD"",6338,1,3,0)"
^XMB(3.9,31,2,16,0)="This patch is issued to compensate for the longer MRA message to be "
^XMB(3.9,31,2,17,0)="""BLD"",6338,1,4,0)"
^XMB(3.9,31,2,18,0)="received from Austin Central Fee.  Central fee will begin sending MRA "
^XMB(3.9,31,2,19,0)="""BLD"",6338,1,5,0)"
^XMB(3.9,31,2,20,0)="messages containing spaced for the NPI number before the NPI enhancement"
^XMB(3.9,31,2,21,0)="""BLD"",6338,1,6,0)"
^XMB(3.9,31,2,22,0)="patch (FB*3.5*98) is released."
^XMB(3.9,31,2,23,0)="""BLD"",6338,4,0)"
^XMB(3.9,31,2,24,0)="^9.64PA^^"
^XMB(3.9,31,2,25,0)="""BLD"",6338,""KRN"",0)"
^XMB(3.9,31,2,26,0)="^9.67PA^8989.52^19"
^XMB(3.9,31,2,27,0)="""BLD"",6338,""KRN"",.4,0)"
^XMB(3.9,31,2,28,0)=".4"
^XMB(3.9,31,2,29,0)="""BLD"",6338,""KRN"",.401,0)"
^XMB(3.9,31,2,30,0)=".401"
^XMB(3.9,31,2,31,0)="""BLD"",6338,""KRN"",.402,0)"
^XMB(3.9,31,2,32,0)=".402"
^XMB(3.9,31,2,33,0)="""BLD"",6338,""KRN"",.403,0)"
^XMB(3.9,31,2,34,0)=".403"
^XMB(3.9,31,2,35,0)="""BLD"",6338,""KRN"",.5,0)"
^XMB(3.9,31,2,36,0)=".5"
^XMB(3.9,31,2,37,0)="""BLD"",6338,""KRN"",.84,0)"
^XMB(3.9,31,2,38,0)=".84"
^XMB(3.9,31,2,39,0)="""BLD"",6338,""KRN"",3.6,0)"
^XMB(3.9,31,2,40,0)="3.6"
^XMB(3.9,31,2,41,0)="""BLD"",6338,""KRN"",3.8,0)"
^XMB(3.9,31,2,42,0)="3.8"
^XMB(3.9,31,2,43,0)="""BLD"",6338,""KRN"",9.2,0)"
^XMB(3.9,31,2,44,0)="9.2"
^XMB(3.9,31,2,45,0)="""BLD"",6338,""KRN"",9.8,0)"
^XMB(3.9,31,2,46,0)="9.8"
^XMB(3.9,31,2,47,0)="""BLD"",6338,""KRN"",9.8,""NM"",0)"
^XMB(3.9,31,2,48,0)="^9.68A^1^1"
^XMB(3.9,31,2,49,0)="""BLD"",6338,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,31,2,50,0)="FBMRASVR^^0^B31881185"
^XMB(3.9,31,2,51,0)="""BLD"",6338,""KRN"",9.8,""NM"",""B"",""FBMRASVR"",1)"
^XMB(3.9,31,2,52,0)=""
^XMB(3.9,31,2,53,0)="""BLD"",6338,""KRN"",19,0)"
^XMB(3.9,31,2,54,0)="19"
^XMB(3.9,31,2,55,0)="""BLD"",6338,""KRN"",19.1,0)"
^XMB(3.9,31,2,56,0)="19.1"
^XMB(3.9,31,2,57,0)="""BLD"",6338,""KRN"",101,0)"
^XMB(3.9,31,2,58,0)="101"
^XMB(3.9,31,2,59,0)="""BLD"",6338,""KRN"",409.61,0)"
^XMB(3.9,31,2,60,0)="409.61"
^XMB(3.9,31,2,61,0)="""BLD"",6338,""KRN"",771,0)"
^XMB(3.9,31,2,62,0)="771"
^XMB(3.9,31,2,63,0)="""BLD"",6338,""KRN"",870,0)"
^XMB(3.9,31,2,64,0)="870"
^XMB(3.9,31,2,65,0)="""BLD"",6338,""KRN"",8989.51,0)"
^XMB(3.9,31,2,66,0)="8989.51"
^XMB(3.9,31,2,67,0)="""BLD"",6338,""KRN"",8989.52,0)"
^XMB(3.9,31,2,68,0)="8989.52"
^XMB(3.9,31,2,69,0)="""BLD"",6338,""KRN"",8994,0)"
^XMB(3.9,31,2,70,0)="8994"
^XMB(3.9,31,2,71,0)="""BLD"",6338,""KRN"",""B"",.4,.4)"
^XMB(3.9,31,2,72,0)=""
^XMB(3.9,31,2,73,0)="""BLD"",6338,""KRN"",""B"",.401,.401)"
^XMB(3.9,31,2,74,0)=""
^XMB(3.9,31,2,75,0)="""BLD"",6338,""KRN"",""B"",.402,.402)"
^XMB(3.9,31,2,76,0)=""
^XMB(3.9,31,2,77,0)="""BLD"",6338,""KRN"",""B"",.403,.403)"
^XMB(3.9,31,2,78,0)=""
^XMB(3.9,31,2,79,0)="""BLD"",6338,""KRN"",""B"",.5,.5)"
^XMB(3.9,31,2,80,0)=""
^XMB(3.9,31,2,81,0)="""BLD"",6338,""KRN"",""B"",.84,.84)"
^XMB(3.9,31,2,82,0)=""
^XMB(3.9,31,2,83,0)="""BLD"",6338,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,31,2,84,0)=""
^XMB(3.9,31,2,85,0)="""BLD"",6338,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,31,2,86,0)=""
^XMB(3.9,31,2,87,0)="""BLD"",6338,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,31,2,88,0)=""
^XMB(3.9,31,2,89,0)="""BLD"",6338,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,31,2,90,0)=""
^XMB(3.9,31,2,91,0)="""BLD"",6338,""KRN"",""B"",19,19)"
^XMB(3.9,31,2,92,0)=""
^XMB(3.9,31,2,93,0)="""BLD"",6338,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,31,2,94,0)=""
^XMB(3.9,31,2,95,0)="""BLD"",6338,""KRN"",""B"",101,101)"
^XMB(3.9,31,2,96,0)=""
^XMB(3.9,31,2,97,0)="""BLD"",6338,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,31,2,98,0)=""
^XMB(3.9,31,2,99,0)="""BLD"",6338,""KRN"",""B"",771,771)"
^XMB(3.9,31,2,100,0)=""
^XMB(3.9,31,2,101,0)="""BLD"",6338,""KRN"",""B"",870,870)"
^XMB(3.9,31,2,102,0)=""
^XMB(3.9,31,2,103,0)="""BLD"",6338,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,31,2,104,0)=""
^XMB(3.9,31,2,105,0)="""BLD"",6338,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,31,2,106,0)=""
^XMB(3.9,31,2,107,0)="""BLD"",6338,""KRN"",""B"",8994,8994)"
^XMB(3.9,31,2,108,0)=""
^XMB(3.9,31,2,109,0)="""BLD"",6338,""QUES"",0)"
^XMB(3.9,31,2,110,0)="^9.62^^"
^XMB(3.9,31,2,111,0)="""BLD"",6338,""REQB"",0)"
^XMB(3.9,31,2,112,0)="^9.611^1^1"
^XMB(3.9,31,2,113,0)="""BLD"",6338,""REQB"",1,0)"
^XMB(3.9,31,2,114,0)="FB*3.5*50^2"
^XMB(3.9,31,2,115,0)="""BLD"",6338,""REQB"",""B"",""FB*3.5*50"",1)"
^XMB(3.9,31,2,116,0)=""
^XMB(3.9,31,2,117,0)="""MBREQ"")"
^XMB(3.9,31,2,118,0)="0"
^XMB(3.9,31,2,119,0)="""PKG"",60,-1)"
^XMB(3.9,31,2,120,0)="1^1"
^XMB(3.9,31,2,121,0)="""PKG"",60,0)"
^XMB(3.9,31,2,122,0)="FEE BASIS^FB"
^XMB(3.9,31,2,123,0)="""PKG"",60,20,0)"
^XMB(3.9,31,2,124,0)="^9.402P^1^1"
^XMB(3.9,31,2,125,0)="""PKG"",60,20,1,0)"
^XMB(3.9,31,2,126,0)="2^^FBPMRG"
^XMB(3.9,31,2,127,0)="""PKG"",60,20,1,1)"
^XMB(3.9,31,2,128,0)=""
^XMB(3.9,31,2,129,0)="""PKG"",60,20,""B"",2,1)"
^XMB(3.9,31,2,130,0)=""
^XMB(3.9,31,2,131,0)="""PKG"",60,22,0)"
^XMB(3.9,31,2,132,0)="^9.49I^1^1"
^XMB(3.9,31,2,133,0)="""PKG"",60,22,1,0)"
^XMB(3.9,31,2,134,0)="3.5"
^XMB(3.9,31,2,135,0)="""PKG"",60,22,1,""PAH"",1,0)"
^XMB(3.9,31,2,136,0)="97^3060530"
^XMB(3.9,31,2,137,0)="""PKG"",60,22,1,""PAH"",1,1,0)"
^XMB(3.9,31,2,138,0)="^^6^6^3060530"
^XMB(3.9,31,2,139,0)="""PKG"",60,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,31,2,140,0)=" "
^XMB(3.9,31,2,141,0)="""PKG"",60,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,31,2,142,0)=" "
^XMB(3.9,31,2,143,0)="""PKG"",60,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,31,2,144,0)="This patch is issued to compensate for the longer MRA message to be "
^XMB(3.9,31,2,145,0)="""PKG"",60,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,31,2,146,0)="received from Austin Central Fee.  Central fee will begin sending MRA "
^XMB(3.9,31,2,147,0)="""PKG"",60,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,31,2,148,0)="messages containing spaced for the NPI number before the NPI enhancement"
^XMB(3.9,31,2,149,0)="""PKG"",60,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,31,2,150,0)="patch (FB*3.5*98) is released."
^XMB(3.9,31,2,151,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,31,2,152,0)="Y"
^XMB(3.9,31,2,153,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,31,2,154,0)="^D REP^XPDH"
^XMB(3.9,31,2,155,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,31,2,156,0)="Shall I write over your |FLAG| File"
^XMB(3.9,31,2,157,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,31,2,158,0)="YES"
^XMB(3.9,31,2,159,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,31,2,160,0)="D XPF1^XPDIQ"
^XMB(3.9,31,2,161,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,31,2,162,0)="Y"
^XMB(3.9,31,2,163,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,31,2,164,0)="^D DTA^XPDH"
^XMB(3.9,31,2,165,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,31,2,166,0)="Want my data |FLAG| yours"
^XMB(3.9,31,2,167,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,31,2,168,0)="YES"
^XMB(3.9,31,2,169,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,31,2,170,0)="D XPF2^XPDIQ"
^XMB(3.9,31,2,171,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,31,2,172,0)="YO"
^XMB(3.9,31,2,173,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,31,2,174,0)="^D INHIBIT^XPDH"
^XMB(3.9,31,2,175,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,31,2,176,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,31,2,177,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,31,2,178,0)="YES"
^XMB(3.9,31,2,179,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,31,2,180,0)="D XPI1^XPDIQ"
^XMB(3.9,31,2,181,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,31,2,182,0)="PO^VA(200,:EM"
^XMB(3.9,31,2,183,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,31,2,184,0)="^D MG^XPDH"
^XMB(3.9,31,2,185,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,31,2,186,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,31,2,187,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,31,2,188,0)=""
^XMB(3.9,31,2,189,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,31,2,190,0)="D XPM1^XPDIQ"
^XMB(3.9,31,2,191,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,31,2,192,0)="Y"
^XMB(3.9,31,2,193,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,31,2,194,0)="^D MENU^XPDH"
^XMB(3.9,31,2,195,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,31,2,196,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,31,2,197,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,31,2,198,0)="YES"
^XMB(3.9,31,2,199,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,31,2,200,0)="D XPO1^XPDIQ"
^XMB(3.9,31,2,201,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,31,2,202,0)="Y"
^XMB(3.9,31,2,203,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,31,2,204,0)="^D OPT^XPDH"
^XMB(3.9,31,2,205,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,31,2,206,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,31,2,207,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,31,2,208,0)="YES"
^XMB(3.9,31,2,209,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,31,2,210,0)="D XPZ1^XPDIQ"
^XMB(3.9,31,2,211,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,31,2,212,0)="Y"
^XMB(3.9,31,2,213,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,31,2,214,0)="^D RTN^XPDH"
^XMB(3.9,31,2,215,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,31,2,216,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,31,2,217,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,31,2,218,0)="NO"
^XMB(3.9,31,2,219,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,31,2,220,0)="D XPZ2^XPDIQ"
^XMB(3.9,31,2,221,0)="""RTN"")"
^XMB(3.9,31,2,222,0)="1"
^XMB(3.9,31,2,223,0)="""RTN"",""FBMRASVR"")"
^XMB(3.9,31,2,224,0)="0^1^B31881185^B31269698"
^XMB(3.9,31,2,225,0)="""RTN"",""FBMRASVR"",1,0)"
^XMB(3.9,31,2,226,0)="FBMRASVR ;AISC/CMR-Server Routine for MRA Messages ;11/16/01"
^XMB(3.9,31,2,227,0)="""RTN"",""FBMRASVR"",2,0)"
^XMB(3.9,31,2,228,0)=" ;;3.5;FEE BASIS;**9,39,50,97**;JAN 30, 1995"
^XMB(3.9,31,2,229,0)="""RTN"",""FBMRASVR"",3,0)"
^XMB(3.9,31,2,230,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,31,2,231,0)="""RTN"",""FBMRASVR"",4,0)"
^XMB(3.9,31,2,232,0)=" S X=""TRAP^FBMRASV2"" S @^%ZOSF(""TRAP"")"
^XMB(3.9,31,2,233,0)="""RTN"",""FBMRASVR"",5,0)"
^XMB(3.9,31,2,234,0)=" ;K XMY S XMY(""G.FEE DEVELOPERS@ISC-ALBANY.VA.GOV"")="""" D ENT1^XMD"
^XMB(3.9,31,2,235,0)="""RTN"",""FBMRASVR"",6,0)"
^XMB(3.9,31,2,236,0)=" K ^TMP(""FBMRA"",$J),^TMP(""FBER"",$J)"
^XMB(3.9,31,2,237,0)="""RTN"",""FBMRASVR"",7,0)"
^XMB(3.9,31,2,238,0)=" F I=1:1 X XMREC Q:XMER<0   S:$S($E(XMRG,1)=1:1,$E(XMRG,1)=4:1,1:0)&($S($E(XMRG,2)=""C"":1,$E(XMRG,2)=""A"":1,$E(XMRG,2)=""Q"":1,$E(XMRG,2)=""F"":1,1:0)) ^TMP(""FBMRA"",$J,I)=XMRG"
^XMB(3.9,31,2,239,0)="""RTN"",""FBMRASVR"",8,0)"
^XMB(3.9,31,2,240,0)="TEST S (FBCNT,FBATOT,FBCTOT,FBFTOT,FBQTOT,FBI,FBID,FBER)=0 D STATION^FBAAUTL"
^XMB(3.9,31,2,241,0)="""RTN"",""FBMRASVR"",9,0)"
^XMB(3.9,31,2,242,0)=" F  S FBI=$O(^TMP(""FBMRA"",$J,FBI)) Q:'FBI  S FBERR=0,FBJ=^(FBI),FBRT=$E(FBJ,1),FBAC=$E(FBJ,2) D PARSE D"
^XMB(3.9,31,2,243,0)="""RTN"",""FBMRASVR"",10,0)"
^XMB(3.9,31,2,244,0)=" .I 'FBERR D EXTRACT S FBID=$$CKID(FBVID) S FBERR=$S('FBID:1,1:0) D:'FBERR ADD:FBAC=""A""!(FBAC=""Q""),CHANGE^FBMRASV1:FBAC=""C"",FPDS:FBAC=""F"" I FBERR D ER^FBMRASV2(1,FBJ,.FBER)"
^XMB(3.9,31,2,245,0)="""RTN"",""FBMRASVR"",11,0)"
^XMB(3.9,31,2,246,0)=" .S:FBAC=""A"" FBATOT=FBATOT+1 S:FBAC=""C"" FBCTOT=FBCTOT+1 S:FBAC=""Q"" FBQTOT=FBQTOT+1 S:FBAC=""F"" FBFTOT=FBFTOT+1"
^XMB(3.9,31,2,247,0)="""RTN"",""FBMRASVR"",12,0)"
^XMB(3.9,31,2,248,0)=" D MSG^FBMRASV2 Q"
^XMB(3.9,31,2,249,0)="""RTN"",""FBMRASVR"",13,0)"
^XMB(3.9,31,2,250,0)="PARSE ;Extracts pharmacy or medical mra data"
^XMB(3.9,31,2,251,0)="""RTN"",""FBMRASVR"",14,0)"
^XMB(3.9,31,2,252,0)=" D:FBRT=4  ;pharmacy record"
^XMB(3.9,31,2,253,0)="""RTN"",""FBMRASVR"",15,0)"
^XMB(3.9,31,2,254,0)=" .I $L(FBJ)>179 S FBJ=$E(FBJ,1,167)"
^XMB(3.9,31,2,255,0)="""RTN"",""FBMRASVR"",16,0)"
^XMB(3.9,31,2,256,0)=" .I $L(FBJ)=167 S FBJ=$E(FBJ,1,166)_""            $"""
^XMB(3.9,31,2,257,0)="""RTN"",""FBMRASVR"",17,0)"
^XMB(3.9,31,2,258,0)=" .I $L(FBJ)'=179 D ER^FBMRASV2(2,FBJ,.FBER) S FBERR=1 Q"
^XMB(3.9,31,2,259,0)="""RTN"",""FBMRASVR"",18,0)"
^XMB(3.9,31,2,260,0)=" .S FBVID=$E(FBJ,9,17),FBCHAIN=$E(FBJ,18,21),FBFEEO=$E(FBJ,22),FBVNAME=$E(FBJ,23,52),FBADD1=$E(FBJ,53,82),FBADD2=$E(FBJ,83,112),FBCITY=$E(FBJ,113,131),FBST=$E(FBJ,132,133),FBZIP=$E(FBJ,134,142),FBMRC=$E(FBJ,143,144)"
^XMB(3.9,31,2,261,0)="""RTN"",""FBMRASVR"",19,0)"
^XMB(3.9,31,2,262,0)=" .S FBCC=$E(FBJ,145,147),FBPC=$E(FBJ,148),FBTID=$E(FBJ,149),FB1099=$E(FBJ,150),FBVT=$E(FBJ,151),FBICN=$E(FBJ,152,166)"
^XMB(3.9,31,2,263,0)="""RTN"",""FBMRASVR"",20,0)"
^XMB(3.9,31,2,264,0)=" .S FBBT=$E(FBJ,167,168) F I=1:1:5 S FBSG(I)=$E(FBJ,I*2+167,I*2+168)"
^XMB(3.9,31,2,265,0)="""RTN"",""FBMRASVR"",21,0)"
^XMB(3.9,31,2,266,0)=" .S FBCHAIN=$$EXTRL(FBCHAIN,1),FBCHAIN=$S(FBCHAIN=0:"""",1:FBCHAIN)"
^XMB(3.9,31,2,267,0)="""RTN"",""FBMRASVR"",22,0)"
^XMB(3.9,31,2,268,0)=" D:FBRT=1  ;medical record"
^XMB(3.9,31,2,269,0)="""RTN"",""FBMRASVR"",23,0)"
^XMB(3.9,31,2,270,0)=" .I $L(FBJ)>183 S FBJ=$E(FBJ,1,171)"
^XMB(3.9,31,2,271,0)="""RTN"",""FBMRASVR"",24,0)"
^XMB(3.9,31,2,272,0)=" .I $L(FBJ)=171 S FBJ=$E(FBJ,1,170)_""            $"""
^XMB(3.9,31,2,273,0)="""RTN"",""FBMRASVR"",25,0)"
^XMB(3.9,31,2,274,0)=" .I $L(FBJ)'=183 D ER^FBMRASV2(2,FBJ,.FBER) S FBERR=1 Q"
^XMB(3.9,31,2,275,0)="""RTN"",""FBMRASVR"",26,0)"
^XMB(3.9,31,2,276,0)=" .S FBVID=$E(FBJ,9,19),FBFEEO=$E(FBJ,22),FBSC=$E(FBJ,23,24),FBPART=$E(FBJ,25,26),FBVNAME=$E(FBJ,27,56),FBADD1=$E(FBJ,57,86),FBADD2=$E(FBJ,87,116),FBCITY=$E(FBJ,117,135),FBST=$E(FBJ,136,137),FBZIP=$E(FBJ,138,146)"
^XMB(3.9,31,2,277,0)="""RTN"",""FBMRASVR"",27,0)"
^XMB(3.9,31,2,278,0)=" .S FBMRC=$E(FBJ,147,148),FBCC=$E(FBJ,149,151),FBPC=$E(FBJ,152),FBTID=$E(FBJ,153),FB1099=$E(FBJ,154),FBVT=$E(FBJ,155),FBICN=$E(FBJ,156,170)"
^XMB(3.9,31,2,279,0)="""RTN"",""FBMRASVR"",28,0)"
^XMB(3.9,31,2,280,0)=" .S FBBT=$E(FBJ,171,172) F I=1:1:5 S FBSG(I)=$E(FBJ,I*2+171,I*2+172)"
^XMB(3.9,31,2,281,0)="""RTN"",""FBMRASVR"",29,0)"
^XMB(3.9,31,2,282,0)=" .S FBSC=$S(FBSC=""  "":"""",$O(^FBAA(161.6,""C"",FBSC,0))>0:$O(^FBAA(161.6,""C"",FBSC,0)),1:""""),FBPART=$$EXTRL(FBPART),FBPART=$O(^FBAA(161.81,""C"",+FBPART,0))"
^XMB(3.9,31,2,283,0)="""RTN"",""FBMRASVR"",30,0)"
^XMB(3.9,31,2,284,0)=" Q"
^XMB(3.9,31,2,285,0)="""RTN"",""FBMRASVR"",31,0)"
^XMB(3.9,31,2,286,0)="EXTRACT ;Calls to remove leading/trailing spaces and zeros"
^XMB(3.9,31,2,287,0)="""RTN"",""FBMRASVR"",32,0)"
^XMB(3.9,31,2,288,0)=" D:$D(XRTL) T0^%ZOSV"
^XMB(3.9,31,2,289,0)="""RTN"",""FBMRASVR"",33,0)"
^XMB(3.9,31,2,290,0)=" S FBVID=$$EXTRT(FBVID),FBVNAME=$$EXTRT(FBVNAME),FBADD1=$$EXTRT(FBADD1),FBADD2=$$EXTRT(FBADD2),FBCITY=$$EXTRT(FBCITY),FBICN=$$EXTRL(FBICN,1),FBST=$$EXTRT(FBST),FBSTN=$E(FBICN,1,3)"
^XMB(3.9,31,2,291,0)="""RTN"",""FBMRASVR"",34,0)"
^XMB(3.9,31,2,292,0)=" S FBMRC=$$EXTRL(FBMRC)"
^XMB(3.9,31,2,293,0)="""RTN"",""FBMRASVR"",35,0)"
^XMB(3.9,31,2,294,0)=" S FBBT=$$EXTRT(FBBT)"
^XMB(3.9,31,2,295,0)="""RTN"",""FBMRASVR"",36,0)"
^XMB(3.9,31,2,296,0)=" F I=1:1 Q:'$D(FBSG(I))  S FBSG(I)=$$EXTRT(FBSG(I)) I FBSG(I)="""" K FBSG(I)"
^XMB(3.9,31,2,297,0)="""RTN"",""FBMRASVR"",37,0)"
^XMB(3.9,31,2,298,0)=" ;Conversion from external to internal format."
^XMB(3.9,31,2,299,0)="""RTN"",""FBMRASVR"",38,0)"
^XMB(3.9,31,2,300,0)=" S FBSTATE=$S(FBST']"""":"""",$D(^DIC(5,""C"",FBST)):$O(^DIC(5,""C"",FBST,0)),1:""""),FBZIP=$S($L(FBZIP)>5:$E(FBZIP,1,5)_""-""_$E(FBZIP,6,$L(FBZIP)),1:FBZIP),FBZIP1=$E(FBZIP,6,9) I '+FBZIP1 S FBZIP=$E(FBZIP,1,5)"
^XMB(3.9,31,2,301,0)="""RTN"",""FBMRASVR"",39,0)"
^XMB(3.9,31,2,302,0)=" S FBCC=$S(FBCC=""   "":"""",FBCC']"""":"""",FBCC=""000"":"""",$D(^DIC(5,+FBSTATE,1,""C"",FBCC)):$O(^(FBCC,0)),1:"""") I FBCC']"""" S FBCC=$P($G(^FBAAV(+FBICN,0)),""^"",13)"
^XMB(3.9,31,2,303,0)="""RTN"",""FBMRASVR"",40,0)"
^XMB(3.9,31,2,304,0)=" D:FBAC=""Q"" EDIT^FBMRASV2"
^XMB(3.9,31,2,305,0)="""RTN"",""FBMRASVR"",41,0)"
^XMB(3.9,31,2,306,0)=" I $D(XRT0) S XRTN=$T(+0) D T1^%ZOSV"
^XMB(3.9,31,2,307,0)="""RTN"",""FBMRASVR"",42,0)"
^XMB(3.9,31,2,308,0)=" Q"
^XMB(3.9,31,2,309,0)="""RTN"",""FBMRASVR"",43,0)"
^XMB(3.9,31,2,310,0)="CKID(X) ;determine if 1st 9 char of id is numeric"
^XMB(3.9,31,2,311,0)="""RTN"",""FBMRASVR"",44,0)"
^XMB(3.9,31,2,312,0)=" ;INPUT:  X = vendor id"
^XMB(3.9,31,2,313,0)="""RTN"",""FBMRASVR"",45,0)"
^XMB(3.9,31,2,314,0)=" ;OUTPUT: 1 if ok, 0 if not"
^XMB(3.9,31,2,315,0)="""RTN"",""FBMRASVR"",46,0)"
^XMB(3.9,31,2,316,0)=" Q $S('+$G(X):0,X'?9N.2AN:0,1:1) ;$E(X,1,9)?9N:1,1:0)"
^XMB(3.9,31,2,317,0)="""RTN"",""FBMRASVR"",47,0)"
^XMB(3.9,31,2,318,0)=" ;"
^XMB(3.9,31,2,319,0)="""RTN"",""FBMRASVR"",48,0)"
^XMB(3.9,31,2,320,0)="ADD ;Process Add or Unsolicted Add Record"
^XMB(3.9,31,2,321,0)="""RTN"",""FBMRASVR"",49,0)"
^XMB(3.9,31,2,322,0)=" I FBSTN'=FBSN D ER^FBMRASV2(3,FBJ,.FBER) Q"
^XMB(3.9,31,2,323,0)="""RTN"",""FBMRASVR"",50,0)"
^XMB(3.9,31,2,324,0)=" D GET D:FBMRA']"""" ER^FBMRASV2(5,FBJ,.FBER) I FBMRA]"""" S FBCNT=FBCNT+1 D FILEV,DELMRA"
^XMB(3.9,31,2,325,0)="""RTN"",""FBMRASVR"",51,0)"
^XMB(3.9,31,2,326,0)=" Q"
^XMB(3.9,31,2,327,0)="""RTN"",""FBMRASVR"",52,0)"
^XMB(3.9,31,2,328,0)="FPDS ;Process FPDS-Only or Unsolicated FPDS-Only Record"
^XMB(3.9,31,2,329,0)="""RTN"",""FBMRASVR"",53,0)"
^XMB(3.9,31,2,330,0)=" I FBSTN'=FBSN D"
^XMB(3.9,31,2,331,0)="""RTN"",""FBMRASVR"",54,0)"
^XMB(3.9,31,2,332,0)=" .N EC S (FBICN,FBOUT)=0,FBERR=1,EC="""" D"
^XMB(3.9,31,2,333,0)="""RTN"",""FBMRASVR"",55,0)"
^XMB(3.9,31,2,334,0)=" ..F  S FBICN=$O(^FBAAV(""C"",FBVID,FBICN)) Q:'FBICN!(FBOUT)  D"
^XMB(3.9,31,2,335,0)="""RTN"",""FBMRASVR"",56,0)"
^XMB(3.9,31,2,336,0)=" ...Q:$P($G(^FBAAV(FBICN,""ADEL"")),""^"")=""Y"""
^XMB(3.9,31,2,337,0)="""RTN"",""FBMRASVR"",57,0)"
^XMB(3.9,31,2,338,0)=" ...S EC="""" I FBRT=4 Q:$P(^FBAAV(FBICN,0),U,7)'=3  Q:$P(^FBAAV(FBICN,0),U,10)'=FBCHAIN"
^XMB(3.9,31,2,339,0)="""RTN"",""FBMRASVR"",58,0)"
^XMB(3.9,31,2,340,0)=" ...I FBRT=1 Q:$P($G(^FBAAV(FBICN,0)),U,7)=3"
^XMB(3.9,31,2,341,0)="""RTN"",""FBMRASVR"",59,0)"
^XMB(3.9,31,2,342,0)=" ...I $E(FBVNAME,1,5)'=$E($P($G(^FBAAV(FBICN,""AMS"")),U),1,5),'+$P($G(^FBAAV(FBICN,""ADEL"")),U,4) S EC=4 Q"
^XMB(3.9,31,2,343,0)="""RTN"",""FBMRASVR"",60,0)"
^XMB(3.9,31,2,344,0)=" ...S FBCNT=FBCNT+1,FBOUT=1,FBERR=0 D FILEV"
^XMB(3.9,31,2,345,0)="""RTN"",""FBMRASVR"",61,0)"
^XMB(3.9,31,2,346,0)=" .I FBERR S:EC']"""" EC=4.1 D ER^FBMRASV2(EC,FBJ,.FBER) S FBERR=0"
^XMB(3.9,31,2,347,0)="""RTN"",""FBMRASVR"",62,0)"
^XMB(3.9,31,2,348,0)=" Q:FBSTN'=FBSN"
^XMB(3.9,31,2,349,0)="""RTN"",""FBMRASVR"",63,0)"
^XMB(3.9,31,2,350,0)=" D GET D:FBMRA']"""" ER^FBMRASV2(5,FBJ,.FBER) I FBMRA]"""" S FBCNT=FBCNT+1 D FILEV,DELMRA"
^XMB(3.9,31,2,351,0)="""RTN"",""FBMRASVR"",64,0)"
^XMB(3.9,31,2,352,0)=" Q"
^XMB(3.9,31,2,353,0)="""RTN"",""FBMRASVR"",65,0)"
^XMB(3.9,31,2,354,0)="GET ;Get ICN and MRA entry from MRA file."
^XMB(3.9,31,2,355,0)="""RTN"",""FBMRASVR"",66,0)"
^XMB(3.9,31,2,356,0)=" S FBICN=$E(FBICN,4,$L(FBICN))"
^XMB(3.9,31,2,357,0)="""RTN"",""FBMRASVR"",67,0)"
^XMB(3.9,31,2,358,0)=" S FBMRA=$G(^FBAA(161.25,FBICN,0))"
^XMB(3.9,31,2,359,0)="""RTN"",""FBMRASVR"",68,0)"
^XMB(3.9,31,2,360,0)=" Q"
^XMB(3.9,31,2,361,0)="""RTN"",""FBMRASVR"",69,0)"
^XMB(3.9,31,2,362,0)="FILEV ;Files MRA fm Austin in Vendor file."
^XMB(3.9,31,2,363,0)="""RTN"",""FBMRASVR"",70,0)"
^XMB(3.9,31,2,364,0)=" Q:'$D(^FBAAV(FBICN,0))  N FBNAM S:'FBCC FBCC=$P(^(0),""^"",13) S:""ST""'[FBTID FBTID="""""
^XMB(3.9,31,2,365,0)="""RTN"",""FBMRASVR"",71,0)"
^XMB(3.9,31,2,366,0)=" I FBAC=""C"",($G(FBICN1)]""""),(FBICN1'=FBICN) S DIK=""^FBAAV("",DA=FBICN D ^DIK K DA,DIK S %X=""^FBAAV(FBICN1,"",%Y=""^FBAAV(FBICN,"" D %XY^%RCR K %X,%Y S DIK=""^FBAAV("",DA=FBICN D IX1^DIK K DIK,DA"
^XMB(3.9,31,2,367,0)="""RTN"",""FBMRASVR"",72,0)"
^XMB(3.9,31,2,368,0)=" S DIE=""^FBAAV("",DA=FBICN"
^XMB(3.9,31,2,369,0)="""RTN"",""FBMRASVR"",73,0)"
^XMB(3.9,31,2,370,0)=" S DR=""1////^S X=FBVID;2////^S X=FBADD1;2.5////@;2.5////^S X=FBADD2;3////^S X=FBCITY;4////^S X=FBSTATE;5////^S X=FBZIP;5.5////^S X=FBCC;5.18////^S X=FBMRC;""_$S(FBRT=1:"".05////^S X=FBSC;7////^S X=FBPART"",1:""8////^S X=FBCHAIN"")"
^XMB(3.9,31,2,371,0)="""RTN"",""FBMRASVR"",74,0)"
^XMB(3.9,31,2,372,0)=" S DR(1,161.2,1)=""12.1////^S X=DT;13.1////^S X=$S(FBSTN]"""""""":FBSTN,1:""""000"""");30.01////^S X=FBVNAME;30.03////^S X=FB1099;30.04////^S X=FBVT;30.05////^S X=FBPC;30.06////^S X=FBTID""_$S(FBBT]"""":"";24////^S X=FBBT"",1:"""")"
^XMB(3.9,31,2,373,0)="""RTN"",""FBMRASVR"",75,0)"
^XMB(3.9,31,2,374,0)=" L +^FBAAV(FBICN):1"
^XMB(3.9,31,2,375,0)="""RTN"",""FBMRASVR"",76,0)"
^XMB(3.9,31,2,376,0)=" D ^DIE K DIE,DA,DR"
^XMB(3.9,31,2,377,0)="""RTN"",""FBMRASVR"",77,0)"
^XMB(3.9,31,2,378,0)=" I $O(FBSG(0)) D UPDGRP^FBAAUTL6(FBICN)"
^XMB(3.9,31,2,379,0)="""RTN"",""FBMRASVR"",78,0)"
^XMB(3.9,31,2,380,0)=" L -^FBAAV(FBICN)"
^XMB(3.9,31,2,381,0)="""RTN"",""FBMRASVR"",79,0)"
^XMB(3.9,31,2,382,0)=" Q"
^XMB(3.9,31,2,383,0)="""RTN"",""FBMRASVR"",80,0)"
^XMB(3.9,31,2,384,0)="DELMRA ;Deletes MRA entry in FB Vendor Correction File."
^XMB(3.9,31,2,385,0)="""RTN"",""FBMRASVR"",81,0)"
^XMB(3.9,31,2,386,0)=" S FBVIEN=$S(FBAC=""C"":FBICN1,1:FBICN),DIE=""^FBAA(161.25,"""
^XMB(3.9,31,2,387,0)="""RTN"",""FBMRASVR"",82,0)"
^XMB(3.9,31,2,388,0)=" I FBAC=""C""!(FBAC=""Q""),$D(^FBAA(161.25,""AF"",FBVIEN)) S FB1=0 F  S FB1=$O(^FBAA(161.25,""AF"",FBVIEN,FB1)) Q:'FB1  S DA=FB1,FBLDA=$P($G(^FBAA(161.25,FBVIEN,0)),""^"",6),DR=""5////^S X=FBLDA"" D"
^XMB(3.9,31,2,389,0)="""RTN"",""FBMRASVR"",83,0)"
^XMB(3.9,31,2,390,0)=" .D LOCK^FBUCUTL(DIE,DA,1) I FBLOCK D ^DIE L -^FBAA(161.25,DA)"
^XMB(3.9,31,2,391,0)="""RTN"",""FBMRASVR"",84,0)"
^XMB(3.9,31,2,392,0)=" .K FBLOCK"
^XMB(3.9,31,2,393,0)="""RTN"",""FBMRASVR"",85,0)"
^XMB(3.9,31,2,394,0)=" S DA=FBVIEN,DIK=""^FBAA(161.25,"" D ^DIK K DA,DIK,FB1,FBLDA,FBVIEN"
^XMB(3.9,31,2,395,0)="""RTN"",""FBMRASVR"",86,0)"
^XMB(3.9,31,2,396,0)=" Q"
^XMB(3.9,31,2,397,0)="""RTN"",""FBMRASVR"",87,0)"
^XMB(3.9,31,2,398,0)="EXTRL(V,T) ;Removes leading spaces or zeros."
^XMB(3.9,31,2,399,0)="""RTN"",""FBMRASVR"",88,0)"
^XMB(3.9,31,2,400,0)=" ;V=variable to be parced"
^XMB(3.9,31,2,401,0)="""RTN"",""FBMRASVR"",89,0)"
^XMB(3.9,31,2,402,0)=" ;T=1 remove leading zeros, T="""" remove leading spaces"
^XMB(3.9,31,2,403,0)="""RTN"",""FBMRASVR"",90,0)"
^XMB(3.9,31,2,404,0)=" ;Q VAR"
^XMB(3.9,31,2,405,0)="""RTN"",""FBMRASVR"",91,0)"
^XMB(3.9,31,2,406,0)=" S T=$S($D(T):0,1:"" "")"
^XMB(3.9,31,2,407,0)="""RTN"",""FBMRASVR"",92,0)"
^XMB(3.9,31,2,408,0)=" F  Q:$E(V)'=T  S V=$E(V,2,$L(V))"
^XMB(3.9,31,2,409,0)="""RTN"",""FBMRASVR"",93,0)"
^XMB(3.9,31,2,410,0)=" Q V"
^XMB(3.9,31,2,411,0)="""RTN"",""FBMRASVR"",94,0)"
^XMB(3.9,31,2,412,0)="EXTRT(V,T) ;Removes trailing spaces or zeros."
^XMB(3.9,31,2,413,0)="""RTN"",""FBMRASVR"",95,0)"
^XMB(3.9,31,2,414,0)=" ;V=variable to be parced"
^XMB(3.9,31,2,415,0)="""RTN"",""FBMRASVR"",96,0)"
^XMB(3.9,31,2,416,0)=" ;T=1 remove trailing zeros, T="""" remove trailing spaces"
^XMB(3.9,31,2,417,0)="""RTN"",""FBMRASVR"",97,0)"
^XMB(3.9,31,2,418,0)=" N FBL"
^XMB(3.9,31,2,419,0)="""RTN"",""FBMRASVR"",98,0)"
^XMB(3.9,31,2,420,0)=" S T=$S($D(T):0,1:"" "")"
^XMB(3.9,31,2,421,0)="""RTN"",""FBMRASVR"",99,0)"
^XMB(3.9,31,2,422,0)=" F  S FBL=$L(V) Q:$E(V,FBL)'=T  S V=$E(V,1,FBL-1)"
^XMB(3.9,31,2,423,0)="""RTN"",""FBMRASVR"",100,0)"
^XMB(3.9,31,2,424,0)=" Q V"
^XMB(3.9,31,2,425,0)="""VER"")"
^XMB(3.9,31,2,426,0)="8.0^22.0"
^XMB(3.9,31,2,427,0)="""BLD"",6338,6)"
^XMB(3.9,31,2,428,0)="^89"
^XMB(3.9,31,2,429,0)="$END KID FB*3.5*97"
^XMB(3.9,31,6,0)="^3.911A^2^2"
^XMB(3.9,31,6,1,0)="POSTMASTER"
^XMB(3.9,31,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,31,6,"B","POSTMASTER",1)=""
^XMB(3.9,31,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,32,0)="FB-3P5_SEQ-90_PAT-100.KID^.5^3061008.015733^^^^K"
^XMB(3.9,32,.6)="3061008"
^XMB(3.9,32,1,0)="^3.91A^2^2"
^XMB(3.9,32,1,1,0)=".5^0^3061008.015733^^^^^^^3061008.015733"
^XMB(3.9,32,1,2,0)="1^0^3061008.023107^^^^^^^3061008.023107"
^XMB(3.9,32,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,32,1,"C",.5,1)=""
^XMB(3.9,32,1,"C",1,2)=""
^XMB(3.9,32,2,0)="^^283^283^3061008"
^XMB(3.9,32,2,1,0)="$TXT EMERGENCY Released FB*3.5*100 SEQ #90"
^XMB(3.9,32,2,2,0)="Extracted from mail message"
^XMB(3.9,32,2,3,0)="$END TXT"
^XMB(3.9,32,2,4,0)="$KID FB*3.5*100"
^XMB(3.9,32,2,5,0)="**INSTALL NAME**"
^XMB(3.9,32,2,6,0)="FB*3.5*100"
^XMB(3.9,32,2,7,0)="""BLD"",6840,0)"
^XMB(3.9,32,2,8,0)="FB*3.5*100^FEE BASIS^0^3060731^y"
^XMB(3.9,32,2,9,0)="""BLD"",6840,1,0)"
^XMB(3.9,32,2,10,0)="^^1^1^3060727^^"
^XMB(3.9,32,2,11,0)="""BLD"",6840,1,1,0)"
^XMB(3.9,32,2,12,0)="2006 RBRVS Conversion Factor update"
^XMB(3.9,32,2,13,0)="""BLD"",6840,4,0)"
^XMB(3.9,32,2,14,0)="^9.64PA^^"
^XMB(3.9,32,2,15,0)="""BLD"",6840,""ABPKG"")"
^XMB(3.9,32,2,16,0)="n"
^XMB(3.9,32,2,17,0)="""BLD"",6840,""INIT"")"
^XMB(3.9,32,2,18,0)="PS^FBXIP100"
^XMB(3.9,32,2,19,0)="""BLD"",6840,""KRN"",0)"
^XMB(3.9,32,2,20,0)="^9.67PA^8989.52^19"
^XMB(3.9,32,2,21,0)="""BLD"",6840,""KRN"",.4,0)"
^XMB(3.9,32,2,22,0)=".4"
^XMB(3.9,32,2,23,0)="""BLD"",6840,""KRN"",.401,0)"
^XMB(3.9,32,2,24,0)=".401"
^XMB(3.9,32,2,25,0)="""BLD"",6840,""KRN"",.402,0)"
^XMB(3.9,32,2,26,0)=".402"
^XMB(3.9,32,2,27,0)="""BLD"",6840,""KRN"",.403,0)"
^XMB(3.9,32,2,28,0)=".403"
^XMB(3.9,32,2,29,0)="""BLD"",6840,""KRN"",.5,0)"
^XMB(3.9,32,2,30,0)=".5"
^XMB(3.9,32,2,31,0)="""BLD"",6840,""KRN"",.84,0)"
^XMB(3.9,32,2,32,0)=".84"
^XMB(3.9,32,2,33,0)="""BLD"",6840,""KRN"",3.6,0)"
^XMB(3.9,32,2,34,0)="3.6"
^XMB(3.9,32,2,35,0)="""BLD"",6840,""KRN"",3.8,0)"
^XMB(3.9,32,2,36,0)="3.8"
^XMB(3.9,32,2,37,0)="""BLD"",6840,""KRN"",9.2,0)"
^XMB(3.9,32,2,38,0)="9.2"
^XMB(3.9,32,2,39,0)="""BLD"",6840,""KRN"",9.8,0)"
^XMB(3.9,32,2,40,0)="9.8"
^XMB(3.9,32,2,41,0)="""BLD"",6840,""KRN"",9.8,""NM"",0)"
^XMB(3.9,32,2,42,0)="^9.68A^1^1"
^XMB(3.9,32,2,43,0)="""BLD"",6840,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,32,2,44,0)="FBXIP100^^0^B1621732"
^XMB(3.9,32,2,45,0)="""BLD"",6840,""KRN"",9.8,""NM"",""B"",""FBXIP100"",1)"
^XMB(3.9,32,2,46,0)=""
^XMB(3.9,32,2,47,0)="""BLD"",6840,""KRN"",19,0)"
^XMB(3.9,32,2,48,0)="19"
^XMB(3.9,32,2,49,0)="""BLD"",6840,""KRN"",19.1,0)"
^XMB(3.9,32,2,50,0)="19.1"
^XMB(3.9,32,2,51,0)="""BLD"",6840,""KRN"",101,0)"
^XMB(3.9,32,2,52,0)="101"
^XMB(3.9,32,2,53,0)="""BLD"",6840,""KRN"",409.61,0)"
^XMB(3.9,32,2,54,0)="409.61"
^XMB(3.9,32,2,55,0)="""BLD"",6840,""KRN"",771,0)"
^XMB(3.9,32,2,56,0)="771"
^XMB(3.9,32,2,57,0)="""BLD"",6840,""KRN"",870,0)"
^XMB(3.9,32,2,58,0)="870"
^XMB(3.9,32,2,59,0)="""BLD"",6840,""KRN"",8989.51,0)"
^XMB(3.9,32,2,60,0)="8989.51"
^XMB(3.9,32,2,61,0)="""BLD"",6840,""KRN"",8989.52,0)"
^XMB(3.9,32,2,62,0)="8989.52"
^XMB(3.9,32,2,63,0)="""BLD"",6840,""KRN"",8994,0)"
^XMB(3.9,32,2,64,0)="8994"
^XMB(3.9,32,2,65,0)="""BLD"",6840,""KRN"",""B"",.4,.4)"
^XMB(3.9,32,2,66,0)=""
^XMB(3.9,32,2,67,0)="""BLD"",6840,""KRN"",""B"",.401,.401)"
^XMB(3.9,32,2,68,0)=""
^XMB(3.9,32,2,69,0)="""BLD"",6840,""KRN"",""B"",.402,.402)"
^XMB(3.9,32,2,70,0)=""
^XMB(3.9,32,2,71,0)="""BLD"",6840,""KRN"",""B"",.403,.403)"
^XMB(3.9,32,2,72,0)=""
^XMB(3.9,32,2,73,0)="""BLD"",6840,""KRN"",""B"",.5,.5)"
^XMB(3.9,32,2,74,0)=""
^XMB(3.9,32,2,75,0)="""BLD"",6840,""KRN"",""B"",.84,.84)"
^XMB(3.9,32,2,76,0)=""
^XMB(3.9,32,2,77,0)="""BLD"",6840,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,32,2,78,0)=""
^XMB(3.9,32,2,79,0)="""BLD"",6840,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,32,2,80,0)=""
^XMB(3.9,32,2,81,0)="""BLD"",6840,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,32,2,82,0)=""
^XMB(3.9,32,2,83,0)="""BLD"",6840,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,32,2,84,0)=""
^XMB(3.9,32,2,85,0)="""BLD"",6840,""KRN"",""B"",19,19)"
^XMB(3.9,32,2,86,0)=""
^XMB(3.9,32,2,87,0)="""BLD"",6840,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,32,2,88,0)=""
^XMB(3.9,32,2,89,0)="""BLD"",6840,""KRN"",""B"",101,101)"
^XMB(3.9,32,2,90,0)=""
^XMB(3.9,32,2,91,0)="""BLD"",6840,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,32,2,92,0)=""
^XMB(3.9,32,2,93,0)="""BLD"",6840,""KRN"",""B"",771,771)"
^XMB(3.9,32,2,94,0)=""
^XMB(3.9,32,2,95,0)="""BLD"",6840,""KRN"",""B"",870,870)"
^XMB(3.9,32,2,96,0)=""
^XMB(3.9,32,2,97,0)="""BLD"",6840,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,32,2,98,0)=""
^XMB(3.9,32,2,99,0)="""BLD"",6840,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,32,2,100,0)=""
^XMB(3.9,32,2,101,0)="""BLD"",6840,""KRN"",""B"",8994,8994)"
^XMB(3.9,32,2,102,0)=""
^XMB(3.9,32,2,103,0)="""BLD"",6840,""QUES"",0)"
^XMB(3.9,32,2,104,0)="^9.62^^"
^XMB(3.9,32,2,105,0)="""BLD"",6840,""REQB"",0)"
^XMB(3.9,32,2,106,0)="^9.611^1^1"
^XMB(3.9,32,2,107,0)="""BLD"",6840,""REQB"",1,0)"
^XMB(3.9,32,2,108,0)="FB*3.5*99^2"
^XMB(3.9,32,2,109,0)="""BLD"",6840,""REQB"",""B"",""FB*3.5*99"",1)"
^XMB(3.9,32,2,110,0)=""
^XMB(3.9,32,2,111,0)="""INIT"")"
^XMB(3.9,32,2,112,0)="PS^FBXIP100"
^XMB(3.9,32,2,113,0)="""MBREQ"")"
^XMB(3.9,32,2,114,0)="0"
^XMB(3.9,32,2,115,0)="""PKG"",60,-1)"
^XMB(3.9,32,2,116,0)="1^1"
^XMB(3.9,32,2,117,0)="""PKG"",60,0)"
^XMB(3.9,32,2,118,0)="FEE BASIS^FB^Used to pay private vendors"
^XMB(3.9,32,2,119,0)="""PKG"",60,20,0)"
^XMB(3.9,32,2,120,0)="^9.402P^1^1"
^XMB(3.9,32,2,121,0)="""PKG"",60,20,1,0)"
^XMB(3.9,32,2,122,0)="2^^FBPMRG"
^XMB(3.9,32,2,123,0)="""PKG"",60,20,1,1)"
^XMB(3.9,32,2,124,0)=""
^XMB(3.9,32,2,125,0)="""PKG"",60,20,""B"",2,1)"
^XMB(3.9,32,2,126,0)=""
^XMB(3.9,32,2,127,0)="""PKG"",60,22,0)"
^XMB(3.9,32,2,128,0)="^9.49I^1^1"
^XMB(3.9,32,2,129,0)="""PKG"",60,22,1,0)"
^XMB(3.9,32,2,130,0)="3.5^2950130^2950313"
^XMB(3.9,32,2,131,0)="""PKG"",60,22,1,""PAH"",1,0)"
^XMB(3.9,32,2,132,0)="100^3060731"
^XMB(3.9,32,2,133,0)="""PKG"",60,22,1,""PAH"",1,1,0)"
^XMB(3.9,32,2,134,0)="^^1^1^3060731"
^XMB(3.9,32,2,135,0)="""PKG"",60,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,32,2,136,0)="2006 RBRVS Conversion Factor update"
^XMB(3.9,32,2,137,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,32,2,138,0)="Y"
^XMB(3.9,32,2,139,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,32,2,140,0)="^D REP^XPDH"
^XMB(3.9,32,2,141,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,32,2,142,0)="Shall I write over your |FLAG| File"
^XMB(3.9,32,2,143,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,32,2,144,0)="YES"
^XMB(3.9,32,2,145,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,32,2,146,0)="D XPF1^XPDIQ"
^XMB(3.9,32,2,147,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,32,2,148,0)="Y"
^XMB(3.9,32,2,149,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,32,2,150,0)="^D DTA^XPDH"
^XMB(3.9,32,2,151,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,32,2,152,0)="Want my data |FLAG| yours"
^XMB(3.9,32,2,153,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,32,2,154,0)="YES"
^XMB(3.9,32,2,155,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,32,2,156,0)="D XPF2^XPDIQ"
^XMB(3.9,32,2,157,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,32,2,158,0)="YO"
^XMB(3.9,32,2,159,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,32,2,160,0)="^D INHIBIT^XPDH"
^XMB(3.9,32,2,161,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,32,2,162,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,32,2,163,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,32,2,164,0)="YES"
^XMB(3.9,32,2,165,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,32,2,166,0)="D XPI1^XPDIQ"
^XMB(3.9,32,2,167,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,32,2,168,0)="PO^VA(200,:EM"
^XMB(3.9,32,2,169,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,32,2,170,0)="^D MG^XPDH"
^XMB(3.9,32,2,171,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,32,2,172,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,32,2,173,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,32,2,174,0)=""
^XMB(3.9,32,2,175,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,32,2,176,0)="D XPM1^XPDIQ"
^XMB(3.9,32,2,177,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,32,2,178,0)="Y"
^XMB(3.9,32,2,179,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,32,2,180,0)="^D MENU^XPDH"
^XMB(3.9,32,2,181,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,32,2,182,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,32,2,183,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,32,2,184,0)="YES"
^XMB(3.9,32,2,185,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,32,2,186,0)="D XPO1^XPDIQ"
^XMB(3.9,32,2,187,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,32,2,188,0)="Y"
^XMB(3.9,32,2,189,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,32,2,190,0)="^D OPT^XPDH"
^XMB(3.9,32,2,191,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,32,2,192,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,32,2,193,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,32,2,194,0)="YES"
^XMB(3.9,32,2,195,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,32,2,196,0)="D XPZ1^XPDIQ"
^XMB(3.9,32,2,197,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,32,2,198,0)="Y"
^XMB(3.9,32,2,199,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,32,2,200,0)="^D RTN^XPDH"
^XMB(3.9,32,2,201,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,32,2,202,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,32,2,203,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,32,2,204,0)="NO"
^XMB(3.9,32,2,205,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,32,2,206,0)="D XPZ2^XPDIQ"
^XMB(3.9,32,2,207,0)="""RTN"")"
^XMB(3.9,32,2,208,0)="1"
^XMB(3.9,32,2,209,0)="""RTN"",""FBXIP100"")"
^XMB(3.9,32,2,210,0)="0^1^B1621732^n/a"
^XMB(3.9,32,2,211,0)="""RTN"",""FBXIP100"",1,0)"
^XMB(3.9,32,2,212,0)="FBXIP100 ;WCIOFO/TCK-PATCH INSTALL ROUTINE ;5/27/2006"
^XMB(3.9,32,2,213,0)="""RTN"",""FBXIP100"",2,0)"
^XMB(3.9,32,2,214,0)=" ;;3.5;FEE BASIS;**100**;JAN 30, 1995"
^XMB(3.9,32,2,215,0)="""RTN"",""FBXIP100"",3,0)"
^XMB(3.9,32,2,216,0)=" Q"
^XMB(3.9,32,2,217,0)="""RTN"",""FBXIP100"",4,0)"
^XMB(3.9,32,2,218,0)=" ;"
^XMB(3.9,32,2,219,0)="""RTN"",""FBXIP100"",5,0)"
^XMB(3.9,32,2,220,0)="PS ; post-install entry point"
^XMB(3.9,32,2,221,0)="""RTN"",""FBXIP100"",6,0)"
^XMB(3.9,32,2,222,0)=" ; create KIDS checkpoints with call backs"
^XMB(3.9,32,2,223,0)="""RTN"",""FBXIP100"",7,0)"
^XMB(3.9,32,2,224,0)=" N FBX"
^XMB(3.9,32,2,225,0)="""RTN"",""FBXIP100"",8,0)"
^XMB(3.9,32,2,226,0)=" F FBX=""CF"" D"
^XMB(3.9,32,2,227,0)="""RTN"",""FBXIP100"",9,0)"
^XMB(3.9,32,2,228,0)=" . S Y=$$NEWCP^XPDUTL(FBX,FBX_""^FBXIP100"")"
^XMB(3.9,32,2,229,0)="""RTN"",""FBXIP100"",10,0)"
^XMB(3.9,32,2,230,0)=" . I 'Y D BMES^XPDUTL(""ERROR Creating ""_FBX_"" Checkpoint."")"
^XMB(3.9,32,2,231,0)="""RTN"",""FBXIP100"",11,0)"
^XMB(3.9,32,2,232,0)=" Q"
^XMB(3.9,32,2,233,0)="""RTN"",""FBXIP100"",12,0)"
^XMB(3.9,32,2,234,0)=" ;"
^XMB(3.9,32,2,235,0)="""RTN"",""FBXIP100"",13,0)"
^XMB(3.9,32,2,236,0)="CF ; add conversion factors for calendar year 2006 RBRVS fee schedule"
^XMB(3.9,32,2,237,0)="""RTN"",""FBXIP100"",14,0)"
^XMB(3.9,32,2,238,0)=" ; File 162.99 is being updated in the post install because the Fee"
^XMB(3.9,32,2,239,0)="""RTN"",""FBXIP100"",15,0)"
^XMB(3.9,32,2,240,0)=" ; Basis software examines this file to determine the latest available"
^XMB(3.9,32,2,241,0)="""RTN"",""FBXIP100"",16,0)"
^XMB(3.9,32,2,242,0)=" ; fee schedule. By doing this at the end of the patch installation,"
^XMB(3.9,32,2,243,0)="""RTN"",""FBXIP100"",17,0)"
^XMB(3.9,32,2,244,0)=" ; users can continue to use the payment options during the install."
^XMB(3.9,32,2,245,0)="""RTN"",""FBXIP100"",18,0)"
^XMB(3.9,32,2,246,0)=" D BMES^XPDUTL(""  Filing conversion factor for RBRVS 2006 fee schedule."")"
^XMB(3.9,32,2,247,0)="""RTN"",""FBXIP100"",19,0)"
^XMB(3.9,32,2,248,0)=" N DD,DO,DA,DIE,DR,X,Y"
^XMB(3.9,32,2,249,0)="""RTN"",""FBXIP100"",20,0)"
^XMB(3.9,32,2,250,0)=" S DA(1)=0 F  S DA(1)=$O(^FB(162.99,DA(1))) Q:'DA(1)  D"
^XMB(3.9,32,2,251,0)="""RTN"",""FBXIP100"",21,0)"
^XMB(3.9,32,2,252,0)=" . S DA=$O(^FB(162.99,DA(1),""CY"",""B"",2006,0))"
^XMB(3.9,32,2,253,0)="""RTN"",""FBXIP100"",22,0)"
^XMB(3.9,32,2,254,0)=" . I DA'>0 D  Q:DA'>0"
^XMB(3.9,32,2,255,0)="""RTN"",""FBXIP100"",23,0)"
^XMB(3.9,32,2,256,0)=" . . S DIC=""^FB(162.99,""_DA(1)_"",""""CY"""","",DIC(0)=""L"",DIC(""P"")=""162.991A"",DLAYGO=162.991"
^XMB(3.9,32,2,257,0)="""RTN"",""FBXIP100"",24,0)"
^XMB(3.9,32,2,258,0)=" . . S X=2006"
^XMB(3.9,32,2,259,0)="""RTN"",""FBXIP100"",25,0)"
^XMB(3.9,32,2,260,0)=" . . K DD,DO D FILE^DICN"
^XMB(3.9,32,2,261,0)="""RTN"",""FBXIP100"",26,0)"
^XMB(3.9,32,2,262,0)=" . . K DIC,DLAYGO"
^XMB(3.9,32,2,263,0)="""RTN"",""FBXIP100"",27,0)"
^XMB(3.9,32,2,264,0)=" . . S DA=+Y"
^XMB(3.9,32,2,265,0)="""RTN"",""FBXIP100"",28,0)"
^XMB(3.9,32,2,266,0)=" . ;"
^XMB(3.9,32,2,267,0)="""RTN"",""FBXIP100"",29,0)"
^XMB(3.9,32,2,268,0)=" . S DIE=""^FB(162.99,""_DA(1)_"",""""CY"""","""
^XMB(3.9,32,2,269,0)="""RTN"",""FBXIP100"",30,0)"
^XMB(3.9,32,2,270,0)=" . S DR="".02///""_$S(DA(1)=1:"""",1:37.8975)"
^XMB(3.9,32,2,271,0)="""RTN"",""FBXIP100"",31,0)"
^XMB(3.9,32,2,272,0)=" . D ^DIE"
^XMB(3.9,32,2,273,0)="""RTN"",""FBXIP100"",32,0)"
^XMB(3.9,32,2,274,0)=" Q"
^XMB(3.9,32,2,275,0)="""RTN"",""FBXIP100"",33,0)"
^XMB(3.9,32,2,276,0)=" ;"
^XMB(3.9,32,2,277,0)="""RTN"",""FBXIP100"",34,0)"
^XMB(3.9,32,2,278,0)=" ;FBXIP100"
^XMB(3.9,32,2,279,0)="""VER"")"
^XMB(3.9,32,2,280,0)="8.0^22.0"
^XMB(3.9,32,2,281,0)="""BLD"",6840,6)"
^XMB(3.9,32,2,282,0)="^90"
^XMB(3.9,32,2,283,0)="$END KID FB*3.5*100"
^XMB(3.9,32,6,0)="^3.911A^2^2"
^XMB(3.9,32,6,1,0)="POSTMASTER"
^XMB(3.9,32,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,32,6,"B","POSTMASTER",1)=""
^XMB(3.9,32,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,33,0)="FH-5P5_SEQ-4_PAT-6.KID^.5^3061008.015733^^^^K"
^XMB(3.9,33,.6)="3061008"
^XMB(3.9,33,1,0)="^3.91A^2^2"
^XMB(3.9,33,1,1,0)=".5^0^3061008.015733^^^^^^^3061008.015733"
^XMB(3.9,33,1,2,0)="1^0^3061008.023114^^^^^^^3061008.023114"
^XMB(3.9,33,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,33,1,"C",.5,1)=""
^XMB(3.9,33,1,"C",1,2)=""
^XMB(3.9,33,2,0)="^^243^243^3061008"
^XMB(3.9,33,2,1,0)="$TXT Released FH*5.5*6 SEQ #4"
^XMB(3.9,33,2,2,0)="Extracted from mail message"
^XMB(3.9,33,2,3,0)="$END TXT"
^XMB(3.9,33,2,4,0)="$KID FH*5.5*6"
^XMB(3.9,33,2,5,0)="**INSTALL NAME**"
^XMB(3.9,33,2,6,0)="FH*5.5*6"
^XMB(3.9,33,2,7,0)="""BLD"",6007,0)"
^XMB(3.9,33,2,8,0)="FH*5.5*6^DIETETICS^0^3060329^y"
^XMB(3.9,33,2,9,0)="""BLD"",6007,4,0)"
^XMB(3.9,33,2,10,0)="^9.64PA^115^1"
^XMB(3.9,33,2,11,0)="""BLD"",6007,4,115,0)"
^XMB(3.9,33,2,12,0)="115"
^XMB(3.9,33,2,13,0)="""BLD"",6007,4,115,2,0)"
^XMB(3.9,33,2,14,0)="^9.641^115.02^1"
^XMB(3.9,33,2,15,0)="""BLD"",6007,4,115,2,115.02,0)"
^XMB(3.9,33,2,16,0)="DIET  (sub-file)"
^XMB(3.9,33,2,17,0)="""BLD"",6007,4,115,2,115.02,1,0)"
^XMB(3.9,33,2,18,0)="^9.6411^14^1"
^XMB(3.9,33,2,19,0)="""BLD"",6007,4,115,2,115.02,1,14,0)"
^XMB(3.9,33,2,20,0)="CURRENT OE/RR STATUS"
^XMB(3.9,33,2,21,0)="""BLD"",6007,4,115,222)"
^XMB(3.9,33,2,22,0)="y^y^p^^^^n^^n"
^XMB(3.9,33,2,23,0)="""BLD"",6007,4,115,224)"
^XMB(3.9,33,2,24,0)=""
^XMB(3.9,33,2,25,0)="""BLD"",6007,4,""APDD"",115,115.02)"
^XMB(3.9,33,2,26,0)=""
^XMB(3.9,33,2,27,0)="""BLD"",6007,4,""APDD"",115,115.02,14)"
^XMB(3.9,33,2,28,0)=""
^XMB(3.9,33,2,29,0)="""BLD"",6007,4,""B"",115,115)"
^XMB(3.9,33,2,30,0)=""
^XMB(3.9,33,2,31,0)="""BLD"",6007,6.3)"
^XMB(3.9,33,2,32,0)="3"
^XMB(3.9,33,2,33,0)="""BLD"",6007,""KRN"",0)"
^XMB(3.9,33,2,34,0)="^9.67PA^8989.52^19"
^XMB(3.9,33,2,35,0)="""BLD"",6007,""KRN"",.4,0)"
^XMB(3.9,33,2,36,0)=".4"
^XMB(3.9,33,2,37,0)="""BLD"",6007,""KRN"",.401,0)"
^XMB(3.9,33,2,38,0)=".401"
^XMB(3.9,33,2,39,0)="""BLD"",6007,""KRN"",.402,0)"
^XMB(3.9,33,2,40,0)=".402"
^XMB(3.9,33,2,41,0)="""BLD"",6007,""KRN"",.403,0)"
^XMB(3.9,33,2,42,0)=".403"
^XMB(3.9,33,2,43,0)="""BLD"",6007,""KRN"",.5,0)"
^XMB(3.9,33,2,44,0)=".5"
^XMB(3.9,33,2,45,0)="""BLD"",6007,""KRN"",.84,0)"
^XMB(3.9,33,2,46,0)=".84"
^XMB(3.9,33,2,47,0)="""BLD"",6007,""KRN"",3.6,0)"
^XMB(3.9,33,2,48,0)="3.6"
^XMB(3.9,33,2,49,0)="""BLD"",6007,""KRN"",3.8,0)"
^XMB(3.9,33,2,50,0)="3.8"
^XMB(3.9,33,2,51,0)="""BLD"",6007,""KRN"",9.2,0)"
^XMB(3.9,33,2,52,0)="9.2"
^XMB(3.9,33,2,53,0)="""BLD"",6007,""KRN"",9.8,0)"
^XMB(3.9,33,2,54,0)="9.8"
^XMB(3.9,33,2,55,0)="""BLD"",6007,""KRN"",19,0)"
^XMB(3.9,33,2,56,0)="19"
^XMB(3.9,33,2,57,0)="""BLD"",6007,""KRN"",19.1,0)"
^XMB(3.9,33,2,58,0)="19.1"
^XMB(3.9,33,2,59,0)="""BLD"",6007,""KRN"",101,0)"
^XMB(3.9,33,2,60,0)="101"
^XMB(3.9,33,2,61,0)="""BLD"",6007,""KRN"",409.61,0)"
^XMB(3.9,33,2,62,0)="409.61"
^XMB(3.9,33,2,63,0)="""BLD"",6007,""KRN"",771,0)"
^XMB(3.9,33,2,64,0)="771"
^XMB(3.9,33,2,65,0)="""BLD"",6007,""KRN"",870,0)"
^XMB(3.9,33,2,66,0)="870"
^XMB(3.9,33,2,67,0)="""BLD"",6007,""KRN"",8989.51,0)"
^XMB(3.9,33,2,68,0)="8989.51"
^XMB(3.9,33,2,69,0)="""BLD"",6007,""KRN"",8989.52,0)"
^XMB(3.9,33,2,70,0)="8989.52"
^XMB(3.9,33,2,71,0)="""BLD"",6007,""KRN"",8994,0)"
^XMB(3.9,33,2,72,0)="8994"
^XMB(3.9,33,2,73,0)="""BLD"",6007,""KRN"",""B"",.4,.4)"
^XMB(3.9,33,2,74,0)=""
^XMB(3.9,33,2,75,0)="""BLD"",6007,""KRN"",""B"",.401,.401)"
^XMB(3.9,33,2,76,0)=""
^XMB(3.9,33,2,77,0)="""BLD"",6007,""KRN"",""B"",.402,.402)"
^XMB(3.9,33,2,78,0)=""
^XMB(3.9,33,2,79,0)="""BLD"",6007,""KRN"",""B"",.403,.403)"
^XMB(3.9,33,2,80,0)=""
^XMB(3.9,33,2,81,0)="""BLD"",6007,""KRN"",""B"",.5,.5)"
^XMB(3.9,33,2,82,0)=""
^XMB(3.9,33,2,83,0)="""BLD"",6007,""KRN"",""B"",.84,.84)"
^XMB(3.9,33,2,84,0)=""
^XMB(3.9,33,2,85,0)="""BLD"",6007,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,33,2,86,0)=""
^XMB(3.9,33,2,87,0)="""BLD"",6007,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,33,2,88,0)=""
^XMB(3.9,33,2,89,0)="""BLD"",6007,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,33,2,90,0)=""
^XMB(3.9,33,2,91,0)="""BLD"",6007,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,33,2,92,0)=""
^XMB(3.9,33,2,93,0)="""BLD"",6007,""KRN"",""B"",19,19)"
^XMB(3.9,33,2,94,0)=""
^XMB(3.9,33,2,95,0)="""BLD"",6007,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,33,2,96,0)=""
^XMB(3.9,33,2,97,0)="""BLD"",6007,""KRN"",""B"",101,101)"
^XMB(3.9,33,2,98,0)=""
^XMB(3.9,33,2,99,0)="""BLD"",6007,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,33,2,100,0)=""
^XMB(3.9,33,2,101,0)="""BLD"",6007,""KRN"",""B"",771,771)"
^XMB(3.9,33,2,102,0)=""
^XMB(3.9,33,2,103,0)="""BLD"",6007,""KRN"",""B"",870,870)"
^XMB(3.9,33,2,104,0)=""
^XMB(3.9,33,2,105,0)="""BLD"",6007,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,33,2,106,0)=""
^XMB(3.9,33,2,107,0)="""BLD"",6007,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,33,2,108,0)=""
^XMB(3.9,33,2,109,0)="""BLD"",6007,""KRN"",""B"",8994,8994)"
^XMB(3.9,33,2,110,0)=""
^XMB(3.9,33,2,111,0)="""BLD"",6007,""QUES"",0)"
^XMB(3.9,33,2,112,0)="^9.62^^"
^XMB(3.9,33,2,113,0)="""FIA"",115)"
^XMB(3.9,33,2,114,0)="NUTRITION PERSON"
^XMB(3.9,33,2,115,0)="""FIA"",115,0)"
^XMB(3.9,33,2,116,0)="^FHPT("
^XMB(3.9,33,2,117,0)="""FIA"",115,0,0)"
^XMB(3.9,33,2,118,0)="115"
^XMB(3.9,33,2,119,0)="""FIA"",115,0,1)"
^XMB(3.9,33,2,120,0)="y^y^p^^^^n^^n"
^XMB(3.9,33,2,121,0)="""FIA"",115,0,10)"
^XMB(3.9,33,2,122,0)=""
^XMB(3.9,33,2,123,0)="""FIA"",115,0,11)"
^XMB(3.9,33,2,124,0)=""
^XMB(3.9,33,2,125,0)="""FIA"",115,0,""RLRO"")"
^XMB(3.9,33,2,126,0)=""
^XMB(3.9,33,2,127,0)="""FIA"",115,0,""VR"")"
^XMB(3.9,33,2,128,0)="5.5^FH"
^XMB(3.9,33,2,129,0)="""FIA"",115,115)"
^XMB(3.9,33,2,130,0)="1"
^XMB(3.9,33,2,131,0)="""FIA"",115,115.02)"
^XMB(3.9,33,2,132,0)="1"
^XMB(3.9,33,2,133,0)="""FIA"",115,115.02,14)"
^XMB(3.9,33,2,134,0)=""
^XMB(3.9,33,2,135,0)="""MBREQ"")"
^XMB(3.9,33,2,136,0)="0"
^XMB(3.9,33,2,137,0)="""PKG"",29,-1)"
^XMB(3.9,33,2,138,0)="1^1"
^XMB(3.9,33,2,139,0)="""PKG"",29,0)"
^XMB(3.9,33,2,140,0)="DIETETICS^FH^Dietetics/Nutrition & Food Service System"
^XMB(3.9,33,2,141,0)="""PKG"",29,20,0)"
^XMB(3.9,33,2,142,0)="^9.402P^^"
^XMB(3.9,33,2,143,0)="""PKG"",29,22,0)"
^XMB(3.9,33,2,144,0)="^9.49I^1^1"
^XMB(3.9,33,2,145,0)="""PKG"",29,22,1,0)"
^XMB(3.9,33,2,146,0)="5.5^3050202^3040621^4572"
^XMB(3.9,33,2,147,0)="""PKG"",29,22,1,""PAH"",1,0)"
^XMB(3.9,33,2,148,0)="6^3060329"
^XMB(3.9,33,2,149,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,33,2,150,0)="Y"
^XMB(3.9,33,2,151,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,33,2,152,0)="^D REP^XPDH"
^XMB(3.9,33,2,153,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,33,2,154,0)="Shall I write over your |FLAG| File"
^XMB(3.9,33,2,155,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,33,2,156,0)="YES"
^XMB(3.9,33,2,157,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,33,2,158,0)="D XPF1^XPDIQ"
^XMB(3.9,33,2,159,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,33,2,160,0)="Y"
^XMB(3.9,33,2,161,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,33,2,162,0)="^D DTA^XPDH"
^XMB(3.9,33,2,163,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,33,2,164,0)="Want my data |FLAG| yours"
^XMB(3.9,33,2,165,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,33,2,166,0)="YES"
^XMB(3.9,33,2,167,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,33,2,168,0)="D XPF2^XPDIQ"
^XMB(3.9,33,2,169,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,33,2,170,0)="YO"
^XMB(3.9,33,2,171,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,33,2,172,0)="^D INHIBIT^XPDH"
^XMB(3.9,33,2,173,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,33,2,174,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,33,2,175,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,33,2,176,0)="YES"
^XMB(3.9,33,2,177,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,33,2,178,0)="D XPI1^XPDIQ"
^XMB(3.9,33,2,179,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,33,2,180,0)="PO^VA(200,:EM"
^XMB(3.9,33,2,181,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,33,2,182,0)="^D MG^XPDH"
^XMB(3.9,33,2,183,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,33,2,184,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,33,2,185,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,33,2,186,0)=""
^XMB(3.9,33,2,187,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,33,2,188,0)="D XPM1^XPDIQ"
^XMB(3.9,33,2,189,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,33,2,190,0)="Y"
^XMB(3.9,33,2,191,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,33,2,192,0)="^D MENU^XPDH"
^XMB(3.9,33,2,193,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,33,2,194,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,33,2,195,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,33,2,196,0)="YES"
^XMB(3.9,33,2,197,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,33,2,198,0)="D XPO1^XPDIQ"
^XMB(3.9,33,2,199,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,33,2,200,0)="Y"
^XMB(3.9,33,2,201,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,33,2,202,0)="^D OPT^XPDH"
^XMB(3.9,33,2,203,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,33,2,204,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,33,2,205,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,33,2,206,0)="YES"
^XMB(3.9,33,2,207,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,33,2,208,0)="D XPZ1^XPDIQ"
^XMB(3.9,33,2,209,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,33,2,210,0)="Y"
^XMB(3.9,33,2,211,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,33,2,212,0)="^D RTN^XPDH"
^XMB(3.9,33,2,213,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,33,2,214,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,33,2,215,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,33,2,216,0)="NO"
^XMB(3.9,33,2,217,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,33,2,218,0)="D XPZ2^XPDIQ"
^XMB(3.9,33,2,219,0)="""UP"",115,115.02,-2)"
^XMB(3.9,33,2,220,0)="115^A"
^XMB(3.9,33,2,221,0)="""UP"",115,115.02,-1)"
^XMB(3.9,33,2,222,0)="115.01^DI"
^XMB(3.9,33,2,223,0)="""UP"",115,115.02,0)"
^XMB(3.9,33,2,224,0)="115.02"
^XMB(3.9,33,2,225,0)="""VER"")"
^XMB(3.9,33,2,226,0)="8.0^22.0"
^XMB(3.9,33,2,227,0)="""^DD"",115,115.02,14,0)"
^XMB(3.9,33,2,228,0)="CURRENT OE/RR STATUS^*P100.01'^ORD(100.01,^0;15^S DIC(""S"")=""I '$$SCREEN^XTID(100.01,,Y_"""","""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^XMB(3.9,33,2,229,0)="""^DD"",115,115.02,14,12)"
^XMB(3.9,33,2,230,0)="Data Standardization of Order Status file #100.01"
^XMB(3.9,33,2,231,0)="""^DD"",115,115.02,14,12.1)"
^XMB(3.9,33,2,232,0)="S DIC(""S"")=""I '$$SCREEN^XTID(100.01,,Y_"""","""")"""
^XMB(3.9,33,2,233,0)="""^DD"",115,115.02,14,21,0)"
^XMB(3.9,33,2,234,0)="^.001^2^2^3060329^^^^"
^XMB(3.9,33,2,235,0)="""^DD"",115,115.02,14,21,1,0)"
^XMB(3.9,33,2,236,0)="This field contains the current OE/RR status as passed to OE/RR."
^XMB(3.9,33,2,237,0)="""^DD"",115,115.02,14,21,2,0)"
^XMB(3.9,33,2,238,0)="It is a pointer to the OE/RR Status file (100.01)."
^XMB(3.9,33,2,239,0)="""^DD"",115,115.02,14,""DT"")"
^XMB(3.9,33,2,240,0)="3060329"
^XMB(3.9,33,2,241,0)="""BLD"",6007,6)"
^XMB(3.9,33,2,242,0)="^4"
^XMB(3.9,33,2,243,0)="$END KID FH*5.5*6"
^XMB(3.9,33,6,0)="^3.911A^2^2"
^XMB(3.9,33,6,1,0)="POSTMASTER"
^XMB(3.9,33,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,33,6,"B","POSTMASTER",1)=""
^XMB(3.9,33,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,34,0)="GMPL-2_SEQ-30_PAT-33.KID^.5^3061008.015733^^^^K"
^XMB(3.9,34,.6)="3061008"
^XMB(3.9,34,1,0)="^3.91A^2^2"
^XMB(3.9,34,1,1,0)=".5^0^3061008.015733^^^^^^^3061008.015733"
^XMB(3.9,34,1,2,0)="1^0^3061008.023117^^^^^^^3061008.023117"
^XMB(3.9,34,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,34,1,"C",.5,1)=""
^XMB(3.9,34,1,"C",1,2)=""
^XMB(3.9,34,2,0)="^^481^481^3061008"
^XMB(3.9,34,2,1,0)="$TXT Released GMPL*2*33 SEQ #30"
^XMB(3.9,34,2,2,0)="Extracted from mail message"
^XMB(3.9,34,2,3,0)="$END TXT"
^XMB(3.9,34,2,4,0)="$KID GMPL*2.0*33"
^XMB(3.9,34,2,5,0)="**INSTALL NAME**"
^XMB(3.9,34,2,6,0)="GMPL*2.0*33"
^XMB(3.9,34,2,7,0)="""BLD"",6572,0)"
^XMB(3.9,34,2,8,0)="GMPL*2.0*33^PROBLEM LIST^0^3060109^y"
^XMB(3.9,34,2,9,0)="""BLD"",6572,1,0)"
^XMB(3.9,34,2,10,0)="^^2^2^3060109^"
^XMB(3.9,34,2,11,0)="""BLD"",6572,1,1,0)"
^XMB(3.9,34,2,12,0)="This Patch addresses where users are unable to modify the "
^XMB(3.9,34,2,13,0)="""BLD"",6572,1,2,0)"
^XMB(3.9,34,2,14,0)="current Problem Category Lists to make it assignable to users."
^XMB(3.9,34,2,15,0)="""BLD"",6572,4,0)"
^XMB(3.9,34,2,16,0)="^9.64PA^^"
^XMB(3.9,34,2,17,0)="""BLD"",6572,""ABPKG"")"
^XMB(3.9,34,2,18,0)="n"
^XMB(3.9,34,2,19,0)="""BLD"",6572,""KRN"",0)"
^XMB(3.9,34,2,20,0)="^9.67PA^8989.52^19"
^XMB(3.9,34,2,21,0)="""BLD"",6572,""KRN"",.4,0)"
^XMB(3.9,34,2,22,0)=".4"
^XMB(3.9,34,2,23,0)="""BLD"",6572,""KRN"",.401,0)"
^XMB(3.9,34,2,24,0)=".401"
^XMB(3.9,34,2,25,0)="""BLD"",6572,""KRN"",.402,0)"
^XMB(3.9,34,2,26,0)=".402"
^XMB(3.9,34,2,27,0)="""BLD"",6572,""KRN"",.403,0)"
^XMB(3.9,34,2,28,0)=".403"
^XMB(3.9,34,2,29,0)="""BLD"",6572,""KRN"",.5,0)"
^XMB(3.9,34,2,30,0)=".5"
^XMB(3.9,34,2,31,0)="""BLD"",6572,""KRN"",.84,0)"
^XMB(3.9,34,2,32,0)=".84"
^XMB(3.9,34,2,33,0)="""BLD"",6572,""KRN"",3.6,0)"
^XMB(3.9,34,2,34,0)="3.6"
^XMB(3.9,34,2,35,0)="""BLD"",6572,""KRN"",3.8,0)"
^XMB(3.9,34,2,36,0)="3.8"
^XMB(3.9,34,2,37,0)="""BLD"",6572,""KRN"",9.2,0)"
^XMB(3.9,34,2,38,0)="9.2"
^XMB(3.9,34,2,39,0)="""BLD"",6572,""KRN"",9.8,0)"
^XMB(3.9,34,2,40,0)="9.8"
^XMB(3.9,34,2,41,0)="""BLD"",6572,""KRN"",9.8,""NM"",0)"
^XMB(3.9,34,2,42,0)="^9.68A^1^1"
^XMB(3.9,34,2,43,0)="""BLD"",6572,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,34,2,44,0)="GMPLBLD^^0^B38813778"
^XMB(3.9,34,2,45,0)="""BLD"",6572,""KRN"",9.8,""NM"",""B"",""GMPLBLD"",1)"
^XMB(3.9,34,2,46,0)=""
^XMB(3.9,34,2,47,0)="""BLD"",6572,""KRN"",19,0)"
^XMB(3.9,34,2,48,0)="19"
^XMB(3.9,34,2,49,0)="""BLD"",6572,""KRN"",19,""NM"",0)"
^XMB(3.9,34,2,50,0)="^9.68A^^"
^XMB(3.9,34,2,51,0)="""BLD"",6572,""KRN"",19.1,0)"
^XMB(3.9,34,2,52,0)="19.1"
^XMB(3.9,34,2,53,0)="""BLD"",6572,""KRN"",101,0)"
^XMB(3.9,34,2,54,0)="101"
^XMB(3.9,34,2,55,0)="""BLD"",6572,""KRN"",409.61,0)"
^XMB(3.9,34,2,56,0)="409.61"
^XMB(3.9,34,2,57,0)="""BLD"",6572,""KRN"",771,0)"
^XMB(3.9,34,2,58,0)="771"
^XMB(3.9,34,2,59,0)="""BLD"",6572,""KRN"",870,0)"
^XMB(3.9,34,2,60,0)="870"
^XMB(3.9,34,2,61,0)="""BLD"",6572,""KRN"",8989.51,0)"
^XMB(3.9,34,2,62,0)="8989.51"
^XMB(3.9,34,2,63,0)="""BLD"",6572,""KRN"",8989.52,0)"
^XMB(3.9,34,2,64,0)="8989.52"
^XMB(3.9,34,2,65,0)="""BLD"",6572,""KRN"",8994,0)"
^XMB(3.9,34,2,66,0)="8994"
^XMB(3.9,34,2,67,0)="""BLD"",6572,""KRN"",""B"",.4,.4)"
^XMB(3.9,34,2,68,0)=""
^XMB(3.9,34,2,69,0)="""BLD"",6572,""KRN"",""B"",.401,.401)"
^XMB(3.9,34,2,70,0)=""
^XMB(3.9,34,2,71,0)="""BLD"",6572,""KRN"",""B"",.402,.402)"
^XMB(3.9,34,2,72,0)=""
^XMB(3.9,34,2,73,0)="""BLD"",6572,""KRN"",""B"",.403,.403)"
^XMB(3.9,34,2,74,0)=""
^XMB(3.9,34,2,75,0)="""BLD"",6572,""KRN"",""B"",.5,.5)"
^XMB(3.9,34,2,76,0)=""
^XMB(3.9,34,2,77,0)="""BLD"",6572,""KRN"",""B"",.84,.84)"
^XMB(3.9,34,2,78,0)=""
^XMB(3.9,34,2,79,0)="""BLD"",6572,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,34,2,80,0)=""
^XMB(3.9,34,2,81,0)="""BLD"",6572,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,34,2,82,0)=""
^XMB(3.9,34,2,83,0)="""BLD"",6572,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,34,2,84,0)=""
^XMB(3.9,34,2,85,0)="""BLD"",6572,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,34,2,86,0)=""
^XMB(3.9,34,2,87,0)="""BLD"",6572,""KRN"",""B"",19,19)"
^XMB(3.9,34,2,88,0)=""
^XMB(3.9,34,2,89,0)="""BLD"",6572,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,34,2,90,0)=""
^XMB(3.9,34,2,91,0)="""BLD"",6572,""KRN"",""B"",101,101)"
^XMB(3.9,34,2,92,0)=""
^XMB(3.9,34,2,93,0)="""BLD"",6572,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,34,2,94,0)=""
^XMB(3.9,34,2,95,0)="""BLD"",6572,""KRN"",""B"",771,771)"
^XMB(3.9,34,2,96,0)=""
^XMB(3.9,34,2,97,0)="""BLD"",6572,""KRN"",""B"",870,870)"
^XMB(3.9,34,2,98,0)=""
^XMB(3.9,34,2,99,0)="""BLD"",6572,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,34,2,100,0)=""
^XMB(3.9,34,2,101,0)="""BLD"",6572,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,34,2,102,0)=""
^XMB(3.9,34,2,103,0)="""BLD"",6572,""KRN"",""B"",8994,8994)"
^XMB(3.9,34,2,104,0)=""
^XMB(3.9,34,2,105,0)="""BLD"",6572,""QUES"",0)"
^XMB(3.9,34,2,106,0)="^9.62^^"
^XMB(3.9,34,2,107,0)="""BLD"",6572,""REQB"",0)"
^XMB(3.9,34,2,108,0)="^9.611^1^1"
^XMB(3.9,34,2,109,0)="""BLD"",6572,""REQB"",1,0)"
^XMB(3.9,34,2,110,0)="GMPL*2.0*28^2"
^XMB(3.9,34,2,111,0)="""BLD"",6572,""REQB"",""B"",""GMPL*2.0*28"",1)"
^XMB(3.9,34,2,112,0)=""
^XMB(3.9,34,2,113,0)="""MBREQ"")"
^XMB(3.9,34,2,114,0)="0"
^XMB(3.9,34,2,115,0)="""PKG"",452,-1)"
^XMB(3.9,34,2,116,0)="1^1"
^XMB(3.9,34,2,117,0)="""PKG"",452,0)"
^XMB(3.9,34,2,118,0)="PROBLEM LIST^GMPL^Automated Patient Problem List"
^XMB(3.9,34,2,119,0)="""PKG"",452,20,0)"
^XMB(3.9,34,2,120,0)="^9.402P^^"
^XMB(3.9,34,2,121,0)="""PKG"",452,22,0)"
^XMB(3.9,34,2,122,0)="^9.49I^1^1"
^XMB(3.9,34,2,123,0)="""PKG"",452,22,1,0)"
^XMB(3.9,34,2,124,0)="2.0^2940825^2961022"
^XMB(3.9,34,2,125,0)="""PKG"",452,22,1,""PAH"",1,0)"
^XMB(3.9,34,2,126,0)="33^3060109"
^XMB(3.9,34,2,127,0)="""PKG"",452,22,1,""PAH"",1,1,0)"
^XMB(3.9,34,2,128,0)="^^2^2^3060109"
^XMB(3.9,34,2,129,0)="""PKG"",452,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,34,2,130,0)="This Patch addresses where users are unable to modify the "
^XMB(3.9,34,2,131,0)="""PKG"",452,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,34,2,132,0)="current Problem Category Lists to make it assignable to users."
^XMB(3.9,34,2,133,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,34,2,134,0)="Y"
^XMB(3.9,34,2,135,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,34,2,136,0)="^D REP^XPDH"
^XMB(3.9,34,2,137,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,34,2,138,0)="Shall I write over your |FLAG| File"
^XMB(3.9,34,2,139,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,34,2,140,0)="YES"
^XMB(3.9,34,2,141,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,34,2,142,0)="D XPF1^XPDIQ"
^XMB(3.9,34,2,143,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,34,2,144,0)="Y"
^XMB(3.9,34,2,145,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,34,2,146,0)="^D DTA^XPDH"
^XMB(3.9,34,2,147,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,34,2,148,0)="Want my data |FLAG| yours"
^XMB(3.9,34,2,149,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,34,2,150,0)="YES"
^XMB(3.9,34,2,151,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,34,2,152,0)="D XPF2^XPDIQ"
^XMB(3.9,34,2,153,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,34,2,154,0)="YO"
^XMB(3.9,34,2,155,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,34,2,156,0)="^D INHIBIT^XPDH"
^XMB(3.9,34,2,157,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,34,2,158,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,34,2,159,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,34,2,160,0)="YES"
^XMB(3.9,34,2,161,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,34,2,162,0)="D XPI1^XPDIQ"
^XMB(3.9,34,2,163,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,34,2,164,0)="PO^VA(200,:EM"
^XMB(3.9,34,2,165,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,34,2,166,0)="^D MG^XPDH"
^XMB(3.9,34,2,167,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,34,2,168,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,34,2,169,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,34,2,170,0)=""
^XMB(3.9,34,2,171,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,34,2,172,0)="D XPM1^XPDIQ"
^XMB(3.9,34,2,173,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,34,2,174,0)="Y"
^XMB(3.9,34,2,175,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,34,2,176,0)="^D MENU^XPDH"
^XMB(3.9,34,2,177,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,34,2,178,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,34,2,179,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,34,2,180,0)="YES"
^XMB(3.9,34,2,181,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,34,2,182,0)="D XPO1^XPDIQ"
^XMB(3.9,34,2,183,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,34,2,184,0)="Y"
^XMB(3.9,34,2,185,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,34,2,186,0)="^D OPT^XPDH"
^XMB(3.9,34,2,187,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,34,2,188,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,34,2,189,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,34,2,190,0)="YES"
^XMB(3.9,34,2,191,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,34,2,192,0)="D XPZ1^XPDIQ"
^XMB(3.9,34,2,193,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,34,2,194,0)="Y"
^XMB(3.9,34,2,195,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,34,2,196,0)="^D RTN^XPDH"
^XMB(3.9,34,2,197,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,34,2,198,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,34,2,199,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,34,2,200,0)="NO"
^XMB(3.9,34,2,201,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,34,2,202,0)="D XPZ2^XPDIQ"
^XMB(3.9,34,2,203,0)="""RTN"")"
^XMB(3.9,34,2,204,0)="1"
^XMB(3.9,34,2,205,0)="""RTN"",""GMPLBLD"")"
^XMB(3.9,34,2,206,0)="0^1^B38813778^B35403742"
^XMB(3.9,34,2,207,0)="""RTN"",""GMPLBLD"",1,0)"
^XMB(3.9,34,2,208,0)="GMPLBLD ; SLC/MKB -- Build Problem Selection Lists ; 3/12/03  9:31"
^XMB(3.9,34,2,209,0)="""RTN"",""GMPLBLD"",2,0)"
^XMB(3.9,34,2,210,0)=" ;;2.0;Problem List;**3,28,33**;Aug 25, 1994"
^XMB(3.9,34,2,211,0)="""RTN"",""GMPLBLD"",3,0)"
^XMB(3.9,34,2,212,0)=" ;"
^XMB(3.9,34,2,213,0)="""RTN"",""GMPLBLD"",4,0)"
^XMB(3.9,34,2,214,0)=" ;This routine invokes IA #3991"
^XMB(3.9,34,2,215,0)="""RTN"",""GMPLBLD"",5,0)"
^XMB(3.9,34,2,216,0)=" ;"
^XMB(3.9,34,2,217,0)="""RTN"",""GMPLBLD"",6,0)"
^XMB(3.9,34,2,218,0)="EN ; -- main entry point"
^XMB(3.9,34,2,219,0)="""RTN"",""GMPLBLD"",7,0)"
^XMB(3.9,34,2,220,0)=" D EN^VALM(""GMPL SELECTION LIST BUILD"")"
^XMB(3.9,34,2,221,0)="""RTN"",""GMPLBLD"",8,0)"
^XMB(3.9,34,2,222,0)=" Q"
^XMB(3.9,34,2,223,0)="""RTN"",""GMPLBLD"",9,0)"
^XMB(3.9,34,2,224,0)=" ;"
^XMB(3.9,34,2,225,0)="""RTN"",""GMPLBLD"",10,0)"
^XMB(3.9,34,2,226,0)="HDR ; -- header code"
^XMB(3.9,34,2,227,0)="""RTN"",""GMPLBLD"",11,0)"
^XMB(3.9,34,2,228,0)=" N NAME,NUM,DATE"
^XMB(3.9,34,2,229,0)="""RTN"",""GMPLBLD"",12,0)"
^XMB(3.9,34,2,230,0)=" S NUM=+^TMP(""GMPLST"",$J,0)_"" categor""_$S(+^TMP(""GMPLST"",$J,0)'=1:""ies"",1:""y"")"
^XMB(3.9,34,2,231,0)="""RTN"",""GMPLBLD"",13,0)"
^XMB(3.9,34,2,232,0)=" S DATE=""Last Modified: ""_$S(+$P(GMPLSLST,U,3):$$FMTE^XLFDT($P(GMPLSLST,U,3)),1:""<new list>"")"
^XMB(3.9,34,2,233,0)="""RTN"",""GMPLBLD"",14,0)"
^XMB(3.9,34,2,234,0)=" S VALMHDR(1)=DATE_$J(NUM,79-$L(DATE))"
^XMB(3.9,34,2,235,0)="""RTN"",""GMPLBLD"",15,0)"
^XMB(3.9,34,2,236,0)=" S NAME=$P(GMPLSLST,U,2),VALMHDR(2)=$J(NAME,$L(NAME)\2+41)"
^XMB(3.9,34,2,237,0)="""RTN"",""GMPLBLD"",16,0)"
^XMB(3.9,34,2,238,0)=" Q"
^XMB(3.9,34,2,239,0)="""RTN"",""GMPLBLD"",17,0)"
^XMB(3.9,34,2,240,0)=" ;"
^XMB(3.9,34,2,241,0)="""RTN"",""GMPLBLD"",18,0)"
^XMB(3.9,34,2,242,0)="INIT ; -- init variables and list array"
^XMB(3.9,34,2,243,0)="""RTN"",""GMPLBLD"",19,0)"
^XMB(3.9,34,2,244,0)=" S GMPLSLST=$$LIST^GMPLBLD2(""L"") I GMPLSLST=""^"" S VALMQUIT=1 Q"
^XMB(3.9,34,2,245,0)="""RTN"",""GMPLBLD"",20,0)"
^XMB(3.9,34,2,246,0)=" L +^GMPL(125,+GMPLSLST,0):1 I '$T D  G INIT"
^XMB(3.9,34,2,247,0)="""RTN"",""GMPLBLD"",21,0)"
^XMB(3.9,34,2,248,0)=" . W $C(7),!!,""This list is currently being edited by another user!"",!"
^XMB(3.9,34,2,249,0)="""RTN"",""GMPLBLD"",22,0)"
^XMB(3.9,34,2,250,0)=" S GMPLMODE=""E"",VALMSG=$$MSG^GMPLX"
^XMB(3.9,34,2,251,0)="""RTN"",""GMPLBLD"",23,0)"
^XMB(3.9,34,2,252,0)=" D GETLIST,BUILD(""^TMP(""""GMPLIST"""",$J)"",GMPLMODE)"
^XMB(3.9,34,2,253,0)="""RTN"",""GMPLBLD"",24,0)"
^XMB(3.9,34,2,254,0)=" D LENGTH"
^XMB(3.9,34,2,255,0)="""RTN"",""GMPLBLD"",25,0)"
^XMB(3.9,34,2,256,0)=" Q"
^XMB(3.9,34,2,257,0)="""RTN"",""GMPLBLD"",26,0)"
^XMB(3.9,34,2,258,0)=" ;"
^XMB(3.9,34,2,259,0)="""RTN"",""GMPLBLD"",27,0)"
^XMB(3.9,34,2,260,0)="GETLIST ; Build ^TMP(""GMPLIST"",$J,#)"
^XMB(3.9,34,2,261,0)="""RTN"",""GMPLBLD"",28,0)"
^XMB(3.9,34,2,262,0)=" N IFN,SEQ,GRP,ITEM,CNT K ^TMP(""GMPLIST"",$J) S CNT=0"
^XMB(3.9,34,2,263,0)="""RTN"",""GMPLBLD"",29,0)"
^XMB(3.9,34,2,264,0)=" W !,""Searching for the list ..."""
^XMB(3.9,34,2,265,0)="""RTN"",""GMPLBLD"",30,0)"
^XMB(3.9,34,2,266,0)=" F IFN=0:0 S IFN=$O(^GMPL(125.1,""B"",+GMPLSLST,IFN)) Q:IFN'>0  D"
^XMB(3.9,34,2,267,0)="""RTN"",""GMPLBLD"",31,0)"
^XMB(3.9,34,2,268,0)=" . S ITEM=$G(^GMPL(125.1,IFN,0)),SEQ=$P(ITEM,U,2),GRP=$P(ITEM,U,3)"
^XMB(3.9,34,2,269,0)="""RTN"",""GMPLBLD"",32,0)"
^XMB(3.9,34,2,270,0)=" . S ^TMP(""GMPLIST"",$J,IFN)=$P(ITEM,U,2,5),CNT=CNT+1 ; seq ^ group ^ subhdr ^ probs"
^XMB(3.9,34,2,271,0)="""RTN"",""GMPLBLD"",33,0)"
^XMB(3.9,34,2,272,0)=" . S (^TMP(""GMPLIST"",$J,""GRP"",GRP),^TMP(""GMPLIST"",$J,""SEQ"",SEQ))=IFN"
^XMB(3.9,34,2,273,0)="""RTN"",""GMPLBLD"",34,0)"
^XMB(3.9,34,2,274,0)=" S ^TMP(""GMPLIST"",$J,0)=CNT"
^XMB(3.9,34,2,275,0)="""RTN"",""GMPLBLD"",35,0)"
^XMB(3.9,34,2,276,0)=" Q"
^XMB(3.9,34,2,277,0)="""RTN"",""GMPLBLD"",36,0)"
^XMB(3.9,34,2,278,0)=" ;"
^XMB(3.9,34,2,279,0)="""RTN"",""GMPLBLD"",37,0)"
^XMB(3.9,34,2,280,0)="BUILD(LIST,MODE) ; Build ^TMP(""GMPLST"",$J,)"
^XMB(3.9,34,2,281,0)="""RTN"",""GMPLBLD"",38,0)"
^XMB(3.9,34,2,282,0)=" N SEQ,LCNT,NUM,HDR,GROUP,IFN,ITEM,PSEQ D CLEAN^VALM10"
^XMB(3.9,34,2,283,0)="""RTN"",""GMPLBLD"",39,0)"
^XMB(3.9,34,2,284,0)=" S:'$D(^TMP(""GMPLIST"",$J,0)) ^TMP(""GMPLIST"",$J,0)=0"
^XMB(3.9,34,2,285,0)="""RTN"",""GMPLBLD"",40,0)"
^XMB(3.9,34,2,286,0)=" I $P($G(^TMP(""GMPLIST"",$J,0)),U,1)'>0 S ^TMP(""GMPLST"",$J,1,0)=""   "",^TMP(""GMPLST"",$J,2,0)=""No items available."",^TMP(""GMPLST"",$J,0)=""0^2"",VALMCNT=2 Q"
^XMB(3.9,34,2,287,0)="""RTN"",""GMPLBLD"",41,0)"
^XMB(3.9,34,2,288,0)=" S (LCNT,NUM,SEQ)=0"
^XMB(3.9,34,2,289,0)="""RTN"",""GMPLBLD"",42,0)"
^XMB(3.9,34,2,290,0)=" F  S SEQ=$O(^TMP(""GMPLIST"",$J,""SEQ"",SEQ)) Q:SEQ'>0  D"
^XMB(3.9,34,2,291,0)="""RTN"",""GMPLBLD"",43,0)"
^XMB(3.9,34,2,292,0)=" . S IFN=^TMP(""GMPLIST"",$J,""SEQ"",SEQ),LCNT=LCNT+1,NUM=NUM+1"
^XMB(3.9,34,2,293,0)="""RTN"",""GMPLBLD"",44,0)"
^XMB(3.9,34,2,294,0)=" . S GROUP=$P(^TMP(""GMPLIST"",$J,IFN),U,2),HDR=$P(^TMP(""GMPLIST"",$J,IFN),U,3)"
^XMB(3.9,34,2,295,0)="""RTN"",""GMPLBLD"",45,0)"
^XMB(3.9,34,2,296,0)=" . S:'$L(HDR) HDR=""<no header>"""
^XMB(3.9,34,2,297,0)="""RTN"",""GMPLBLD"",46,0)"
^XMB(3.9,34,2,298,0)=" . I LCNT>1,+$P(^TMP(""GMPLIST"",$J,IFN),U,4),^TMP(""GMPLST"",$J,LCNT-1,0)'=""   "" S LCNT=LCNT+1,^TMP(""GMPLST"",$J,LCNT,0)=""   """
^XMB(3.9,34,2,299,0)="""RTN"",""GMPLBLD"",47,0)"
^XMB(3.9,34,2,300,0)=" . S ^TMP(""GMPLST"",$J,LCNT,0)=$S(MODE=""I"":$J(""<""_SEQ_"">"",8),1:""        "")_$J(NUM,4)_"" ""_HDR,^TMP(""GMPLST"",$J,""B"",NUM)=IFN"
^XMB(3.9,34,2,301,0)="""RTN"",""GMPLBLD"",48,0)"
^XMB(3.9,34,2,302,0)=" . D CNTRL^VALM10(LCNT,9,5,IOINHI,IOINORM)"
^XMB(3.9,34,2,303,0)="""RTN"",""GMPLBLD"",49,0)"
^XMB(3.9,34,2,304,0)=" . Q:'+$P(^TMP(""GMPLIST"",$J,IFN),U,4)"
^XMB(3.9,34,2,305,0)="""RTN"",""GMPLBLD"",50,0)"
^XMB(3.9,34,2,306,0)=" . D CNTRL^VALM10(LCNT,14,$L(HDR),IOUON,IOUOFF)"
^XMB(3.9,34,2,307,0)="""RTN"",""GMPLBLD"",51,0)"
^XMB(3.9,34,2,308,0)=" . F PSEQ=0:0 S PSEQ=$O(^GMPL(125.12,""C"",+GROUP,PSEQ)) Q:PSEQ'>0  D"
^XMB(3.9,34,2,309,0)="""RTN"",""GMPLBLD"",52,0)"
^XMB(3.9,34,2,310,0)=" . . S IFN=$O(^GMPL(125.12,""C"",+GROUP,PSEQ,0)),LCNT=LCNT+1"
^XMB(3.9,34,2,311,0)="""RTN"",""GMPLBLD"",53,0)"
^XMB(3.9,34,2,312,0)=" . . S ITEM=$G(^GMPL(125.12,IFN,0)),^TMP(""GMPLST"",$J,LCNT,0)=""             ""_$P(ITEM,U,4)"
^XMB(3.9,34,2,313,0)="""RTN"",""GMPLBLD"",54,0)"
^XMB(3.9,34,2,314,0)=" . . I $L($P(ITEM,U,5)) D"
^XMB(3.9,34,2,315,0)="""RTN"",""GMPLBLD"",55,0)"
^XMB(3.9,34,2,316,0)=" ... S ^TMP(""GMPLST"",$J,LCNT,0)=^TMP(""GMPLST"",$J,LCNT,0)_"" (""_$P(ITEM,U,5)_"")"""
^XMB(3.9,34,2,317,0)="""RTN"",""GMPLBLD"",56,0)"
^XMB(3.9,34,2,318,0)=" ... I $$STATCHK^ICDAPIU($P(ITEM,U,5),DT) Q  ; code is active"
^XMB(3.9,34,2,319,0)="""RTN"",""GMPLBLD"",57,0)"
^XMB(3.9,34,2,320,0)=" ... S ^TMP(""GMPLST"",$J,LCNT,0)=^TMP(""GMPLST"",$J,LCNT,0)_""    <INACTIVE CODE>"""
^XMB(3.9,34,2,321,0)="""RTN"",""GMPLBLD"",58,0)"
^XMB(3.9,34,2,322,0)=" . S LCNT=LCNT+1,^TMP(""GMPLST"",$J,LCNT,0)=""   """
^XMB(3.9,34,2,323,0)="""RTN"",""GMPLBLD"",59,0)"
^XMB(3.9,34,2,324,0)=" S ^TMP(""GMPLST"",$J,0)=NUM_U_LCNT,VALMCNT=LCNT"
^XMB(3.9,34,2,325,0)="""RTN"",""GMPLBLD"",60,0)"
^XMB(3.9,34,2,326,0)=" Q"
^XMB(3.9,34,2,327,0)="""RTN"",""GMPLBLD"",61,0)"
^XMB(3.9,34,2,328,0)=" ;"
^XMB(3.9,34,2,329,0)="""RTN"",""GMPLBLD"",62,0)"
^XMB(3.9,34,2,330,0)="HELP ; -- help code"
^XMB(3.9,34,2,331,0)="""RTN"",""GMPLBLD"",63,0)"
^XMB(3.9,34,2,332,0)=" N X"
^XMB(3.9,34,2,333,0)="""RTN"",""GMPLBLD"",64,0)"
^XMB(3.9,34,2,334,0)=" W !!?4,""You may take a variety of actions to update this selection list."""
^XMB(3.9,34,2,335,0)="""RTN"",""GMPLBLD"",65,0)"
^XMB(3.9,34,2,336,0)=" W !?4,""New categories may be added to this list, or an existing one"""
^XMB(3.9,34,2,337,0)="""RTN"",""GMPLBLD"",66,0)"
^XMB(3.9,34,2,338,0)=" W !?4,""removed; Edit Category will allow you to change the contents of"""
^XMB(3.9,34,2,339,0)="""RTN"",""GMPLBLD"",67,0)"
^XMB(3.9,34,2,340,0)=" W !?4,""a category, or create a new one that may be added to this list."""
^XMB(3.9,34,2,341,0)="""RTN"",""GMPLBLD"",68,0)"
^XMB(3.9,34,2,342,0)=" W !?4,""You may also change how each category appears in this list,"""
^XMB(3.9,34,2,343,0)="""RTN"",""GMPLBLD"",69,0)"
^XMB(3.9,34,2,344,0)=" W !?4,""view each category's sequence number to facilitate resequencing,"""
^XMB(3.9,34,2,345,0)="""RTN"",""GMPLBLD"",70,0)"
^XMB(3.9,34,2,346,0)=" W !?4,""assign this list to a clinic or user(s), or edit a different list."""
^XMB(3.9,34,2,347,0)="""RTN"",""GMPLBLD"",71,0)"
^XMB(3.9,34,2,348,0)=" W !!,""Press <return> to continue ..."" R X:DTIME"
^XMB(3.9,34,2,349,0)="""RTN"",""GMPLBLD"",72,0)"
^XMB(3.9,34,2,350,0)=" S VALMSG=$$MSG^GMPLX,VALMBCK=$S(VALMCC:"""",1:""R"")"
^XMB(3.9,34,2,351,0)="""RTN"",""GMPLBLD"",73,0)"
^XMB(3.9,34,2,352,0)=" Q"
^XMB(3.9,34,2,353,0)="""RTN"",""GMPLBLD"",74,0)"
^XMB(3.9,34,2,354,0)=" ;"
^XMB(3.9,34,2,355,0)="""RTN"",""GMPLBLD"",75,0)"
^XMB(3.9,34,2,356,0)="EXIT ; -- exit code"
^XMB(3.9,34,2,357,0)="""RTN"",""GMPLBLD"",76,0)"
^XMB(3.9,34,2,358,0)=" I $D(GMPLSAVE),$$CKSAVE^GMPLBLD2 D"
^XMB(3.9,34,2,359,0)="""RTN"",""GMPLBLD"",77,0)"
^XMB(3.9,34,2,360,0)=" . D SAVE^GMPLBLD2"
^XMB(3.9,34,2,361,0)="""RTN"",""GMPLBLD"",78,0)"
^XMB(3.9,34,2,362,0)=" . S ^GMPL(125,+GMPLSLST,0)=$P(GMPLSLST,U,2)_U_DT_U_$P(GMPLSLST,U,4)"
^XMB(3.9,34,2,363,0)="""RTN"",""GMPLBLD"",79,0)"
^XMB(3.9,34,2,364,0)=" L -^GMPL(125,+GMPLSLST,0)"
^XMB(3.9,34,2,365,0)="""RTN"",""GMPLBLD"",80,0)"
^XMB(3.9,34,2,366,0)=" K GMPLIST,GMPLST,GMPLMODE,GMPLSLST,GMPLSAVE,GMPREBLD,GMPQUIT,RT,TMPLST"
^XMB(3.9,34,2,367,0)="""RTN"",""GMPLBLD"",81,0)"
^XMB(3.9,34,2,368,0)=" K ^TMP(""GMPLIST"",$J),^TMP(""GMPLST"",$J)"
^XMB(3.9,34,2,369,0)="""RTN"",""GMPLBLD"",82,0)"
^XMB(3.9,34,2,370,0)=" Q"
^XMB(3.9,34,2,371,0)="""RTN"",""GMPLBLD"",83,0)"
^XMB(3.9,34,2,372,0)=" ;"
^XMB(3.9,34,2,373,0)="""RTN"",""GMPLBLD"",84,0)"
^XMB(3.9,34,2,374,0)="ADD ; Add group(s)"
^XMB(3.9,34,2,375,0)="""RTN"",""GMPLBLD"",85,0)"
^XMB(3.9,34,2,376,0)=" N SEQ,GROUP,HDR,IFN,GMPQUIT,GMPREBLD D FULL^VALM1"
^XMB(3.9,34,2,377,0)="""RTN"",""GMPLBLD"",86,0)"
^XMB(3.9,34,2,378,0)=" F  D  Q:$D(GMPQUIT)  W !"
^XMB(3.9,34,2,379,0)="""RTN"",""GMPLBLD"",87,0)"
^XMB(3.9,34,2,380,0)=" . S GROUP=$$GROUP^GMPLBLD2("""") I GROUP=""^"" S GMPQUIT=1 Q"
^XMB(3.9,34,2,381,0)="""RTN"",""GMPLBLD"",88,0)"
^XMB(3.9,34,2,382,0)=" . I $D(^TMP(""GMPLIST"",$J,""GRP"",+GROUP)) W !?4,"">>>  This category is already part of this list!"" Q"
^XMB(3.9,34,2,383,0)="""RTN"",""GMPLBLD"",89,0)"
^XMB(3.9,34,2,384,0)=" . I '$$VALGRP^GMPLBLD2(+GROUP) D  Q"
^XMB(3.9,34,2,385,0)="""RTN"",""GMPLBLD"",90,0)"
^XMB(3.9,34,2,386,0)=" .. D FULL^VALM1"
^XMB(3.9,34,2,387,0)="""RTN"",""GMPLBLD"",91,0)"
^XMB(3.9,34,2,388,0)=" .. W !!,$C(7),""This category contains one or more problems with inactive ICD-9 codes. """
^XMB(3.9,34,2,389,0)="""RTN"",""GMPLBLD"",92,0)"
^XMB(3.9,34,2,390,0)=" .. W !,""These codes must be updated before adding the category to a selection list."""
^XMB(3.9,34,2,391,0)="""RTN"",""GMPLBLD"",93,0)"
^XMB(3.9,34,2,392,0)=" .. N DIR,DTOUT,DIRUT,DUOUT,X,Y"
^XMB(3.9,34,2,393,0)="""RTN"",""GMPLBLD"",94,0)"
^XMB(3.9,34,2,394,0)=" .. S DIR(0)=""E"" D ^DIR"
^XMB(3.9,34,2,395,0)="""RTN"",""GMPLBLD"",95,0)"
^XMB(3.9,34,2,396,0)=" .. S VALMBCK=""R"""
^XMB(3.9,34,2,397,0)="""RTN"",""GMPLBLD"",96,0)"
^XMB(3.9,34,2,398,0)=" . S HDR=$$HDR^GMPLBLD1($P(GROUP,U,2)) I HDR=""^"" S GMPQUIT=1 Q"
^XMB(3.9,34,2,399,0)="""RTN"",""GMPLBLD"",97,0)"
^XMB(3.9,34,2,400,0)=" . S RT=""^TMP(""""GMPLIST"""",$J,""""SEQ"""","",SEQ=+$$LAST^GMPLBLD2(RT)+1"
^XMB(3.9,34,2,401,0)="""RTN"",""GMPLBLD"",98,0)"
^XMB(3.9,34,2,402,0)=" . S SEQ=$$SEQ^GMPLBLD1(SEQ) I SEQ=""^"" S GMPQUIT=1 Q"
^XMB(3.9,34,2,403,0)="""RTN"",""GMPLBLD"",99,0)"
^XMB(3.9,34,2,404,0)=" . S IFN=$$TMPIFN^GMPLBLD1,^TMP(""GMPLIST"",$J,IFN)=SEQ_U_+GROUP_U_HDR_""^1"""
^XMB(3.9,34,2,405,0)="""RTN"",""GMPLBLD"",100,0)"
^XMB(3.9,34,2,406,0)=" . S (^TMP(""GMPLIST"",$J,""GRP"",+GROUP),^TMP(""GMPLIST"",$J,""SEQ"",SEQ))=IFN,^TMP(""GMPLIST"",$J,0)=^TMP(""GMPLIST"",$J,0)+1,GMPREBLD=1"
^XMB(3.9,34,2,407,0)="""RTN"",""GMPLBLD"",101,0)"
^XMB(3.9,34,2,408,0)=" I $D(GMPREBLD) S VALMBCK=""R"",GMPLSAVE=1 D BUILD(""^TMP(""""GMPLIST"""",$J)"",GMPLMODE),HDR"
^XMB(3.9,34,2,409,0)="""RTN"",""GMPLBLD"",102,0)"
^XMB(3.9,34,2,410,0)=" S VALMBCK=""R"",VALMSG=$$MSG^GMPLX"
^XMB(3.9,34,2,411,0)="""RTN"",""GMPLBLD"",103,0)"
^XMB(3.9,34,2,412,0)=" Q"
^XMB(3.9,34,2,413,0)="""RTN"",""GMPLBLD"",104,0)"
^XMB(3.9,34,2,414,0)=" ;"
^XMB(3.9,34,2,415,0)="""RTN"",""GMPLBLD"",105,0)"
^XMB(3.9,34,2,416,0)="EDIT ; Edit category contents"
^XMB(3.9,34,2,417,0)="""RTN"",""GMPLBLD"",106,0)"
^XMB(3.9,34,2,418,0)=" N GMPLIST,GMPLST,GMPLMODE,GMPLGRP,GMPLSAVE"
^XMB(3.9,34,2,419,0)="""RTN"",""GMPLBLD"",107,0)"
^XMB(3.9,34,2,420,0)=" D EN^VALM(""GMPL SELECTION GROUP BUILD"")"
^XMB(3.9,34,2,421,0)="""RTN"",""GMPLBLD"",108,0)"
^XMB(3.9,34,2,422,0)=" S GMPLMODE=""E"""
^XMB(3.9,34,2,423,0)="""RTN"",""GMPLBLD"",109,0)"
^XMB(3.9,34,2,424,0)=" D GETLIST,BUILD(""TMP(""""GMPLIST"""",$J)"",GMPLMODE)"
^XMB(3.9,34,2,425,0)="""RTN"",""GMPLBLD"",110,0)"
^XMB(3.9,34,2,426,0)=" S VALMBCK=""R"",VALMSG=$$MSG^GMPLX"
^XMB(3.9,34,2,427,0)="""RTN"",""GMPLBLD"",111,0)"
^XMB(3.9,34,2,428,0)=" Q"
^XMB(3.9,34,2,429,0)="""RTN"",""GMPLBLD"",112,0)"
^XMB(3.9,34,2,430,0)=" ;"
^XMB(3.9,34,2,431,0)="""RTN"",""GMPLBLD"",113,0)"
^XMB(3.9,34,2,432,0)="REMOVE ; Remove group"
^XMB(3.9,34,2,433,0)="""RTN"",""GMPLBLD"",114,0)"
^XMB(3.9,34,2,434,0)=" N NUM,IFN,SEQ,GRP,DIR,X,Y S VALMBCK="""""
^XMB(3.9,34,2,435,0)="""RTN"",""GMPLBLD"",115,0)"
^XMB(3.9,34,2,436,0)=" S NUM=$$SEL1^GMPLBLD1 G:NUM=""^"" RMQ"
^XMB(3.9,34,2,437,0)="""RTN"",""GMPLBLD"",116,0)"
^XMB(3.9,34,2,438,0)=" S IFN=$G(^TMP(""GMPLST"",$J,""B"",NUM)) G:+IFN'>0 RMQ"
^XMB(3.9,34,2,439,0)="""RTN"",""GMPLBLD"",117,0)"
^XMB(3.9,34,2,440,0)=" I ""@""[$G(^TMP(""GMPLIST"",$J,IFN)) W $C(7),!!,""Category is not part of this list!"" H 2 G RMQ"
^XMB(3.9,34,2,441,0)="""RTN"",""GMPLBLD"",118,0)"
^XMB(3.9,34,2,442,0)=" S DIR(""A"")=""Are you sure you want to remove '""_$P(^TMP(""GMPLIST"",$J,IFN),U,3)_""'? """
^XMB(3.9,34,2,443,0)="""RTN"",""GMPLBLD"",119,0)"
^XMB(3.9,34,2,444,0)=" S DIR(""?"")=""Enter YES to delete this category from the current list; enter NO to exit."""
^XMB(3.9,34,2,445,0)="""RTN"",""GMPLBLD"",120,0)"
^XMB(3.9,34,2,446,0)=" S DIR(0)=""YA"",DIR(""B"")=""NO"" D ^DIR"
^XMB(3.9,34,2,447,0)="""RTN"",""GMPLBLD"",121,0)"
^XMB(3.9,34,2,448,0)=" I 'Y W !?5,""< Nothing removed! >"" H 1 G RMQ"
^XMB(3.9,34,2,449,0)="""RTN"",""GMPLBLD"",122,0)"
^XMB(3.9,34,2,450,0)=" D DELETE^GMPLBLD1(IFN) S VALMBCK=""R"",GMPLSAVE=1"
^XMB(3.9,34,2,451,0)="""RTN"",""GMPLBLD"",123,0)"
^XMB(3.9,34,2,452,0)=" D BUILD(""^TMP(""""GMPLIST"""",$J)"",GMPLMODE),HDR"
^XMB(3.9,34,2,453,0)="""RTN"",""GMPLBLD"",124,0)"
^XMB(3.9,34,2,454,0)="RMQ S:'VALMCC VALMBCK=""R"" S VALMSG=$$MSG^GMPLX"
^XMB(3.9,34,2,455,0)="""RTN"",""GMPLBLD"",125,0)"
^XMB(3.9,34,2,456,0)=" Q"
^XMB(3.9,34,2,457,0)="""RTN"",""GMPLBLD"",126,0)"
^XMB(3.9,34,2,458,0)=" ;"
^XMB(3.9,34,2,459,0)="""RTN"",""GMPLBLD"",127,0)"
^XMB(3.9,34,2,460,0)="LENGTH ;SHORTEN THE ICD9'S DESCRIPTION TO FIT SCREEN"
^XMB(3.9,34,2,461,0)="""RTN"",""GMPLBLD"",128,0)"
^XMB(3.9,34,2,462,0)=" S LLCNT=0"
^XMB(3.9,34,2,463,0)="""RTN"",""GMPLBLD"",129,0)"
^XMB(3.9,34,2,464,0)=" F  S LLCNT=$O(^TMP(""GMPLST"",$J,LLCNT)) Q:LLCNT=""""  Q:LLCNT'?1N.N  D"
^XMB(3.9,34,2,465,0)="""RTN"",""GMPLBLD"",130,0)"
^XMB(3.9,34,2,466,0)=" .; I '$D(^TMP(""GMPLST"",$J,LLCNT,O)) Q"
^XMB(3.9,34,2,467,0)="""RTN"",""GMPLBLD"",131,0)"
^XMB(3.9,34,2,468,0)=" . S ICD9VAR=^TMP(""GMPLST"",$J,LLCNT,0) I $L(ICD9VAR)>50 D"
^XMB(3.9,34,2,469,0)="""RTN"",""GMPLBLD"",132,0)"
^XMB(3.9,34,2,470,0)=" .. S ICD9VAR=$P(ICD9VAR,""("",1)"
^XMB(3.9,34,2,471,0)="""RTN"",""GMPLBLD"",133,0)"
^XMB(3.9,34,2,472,0)=" .. S ICD9VAR=$E(ICD9VAR,1,50)_"" (""_$P(^TMP(""GMPLST"",$J,LLCNT,0),""("",2)"
^XMB(3.9,34,2,473,0)="""RTN"",""GMPLBLD"",134,0)"
^XMB(3.9,34,2,474,0)=" .. S ^TMP(""GMPLST"",$J,LLCNT,0)=ICD9VAR"
^XMB(3.9,34,2,475,0)="""RTN"",""GMPLBLD"",135,0)"
^XMB(3.9,34,2,476,0)=" Q"
^XMB(3.9,34,2,477,0)="""VER"")"
^XMB(3.9,34,2,478,0)="8.0^22.0"
^XMB(3.9,34,2,479,0)="""BLD"",6572,6)"
^XMB(3.9,34,2,480,0)="^30"
^XMB(3.9,34,2,481,0)="$END KID GMPL*2.0*33"
^XMB(3.9,34,6,0)="^3.911A^2^2"
^XMB(3.9,34,6,1,0)="POSTMASTER"
^XMB(3.9,34,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,34,6,"B","POSTMASTER",1)=""
^XMB(3.9,34,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,35,0)="GMRA-4_SEQ-30_PAT-35.KID^.5^3061008.015733^^^^K"
^XMB(3.9,35,.6)="3061008"
^XMB(3.9,35,1,0)="^3.91A^2^2"
^XMB(3.9,35,1,1,0)=".5^0^3061008.015733^^^^^^^3061008.015733"
^XMB(3.9,35,1,2,0)="1^0^3061008.023121^^^^^^^3061008.023121"
^XMB(3.9,35,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,35,1,"C",.5,1)=""
^XMB(3.9,35,1,"C",1,2)=""
^XMB(3.9,35,2,0)="^^301^301^3061008"
^XMB(3.9,35,2,1,0)="$TXT Released GMRA*4*35 SEQ #30"
^XMB(3.9,35,2,2,0)="Extracted from mail message"
^XMB(3.9,35,2,3,0)="$END TXT"
^XMB(3.9,35,2,4,0)="$KID GMRA*4.0*35"
^XMB(3.9,35,2,5,0)="**INSTALL NAME**"
^XMB(3.9,35,2,6,0)="GMRA*4.0*35"
^XMB(3.9,35,2,7,0)="""BLD"",6345,0)"
^XMB(3.9,35,2,8,0)="GMRA*4.0*35^ADVERSE REACTION TRACKING^0^3060227^y"
^XMB(3.9,35,2,9,0)="""BLD"",6345,1,0)"
^XMB(3.9,35,2,10,0)="^^1^1^3060214^"
^XMB(3.9,35,2,11,0)="""BLD"",6345,1,1,0)"
^XMB(3.9,35,2,12,0)="POSSIBLE PROBLEM WITH LIST BY LOCATION UNASSESSED ALLERGIES."
^XMB(3.9,35,2,13,0)="""BLD"",6345,4,0)"
^XMB(3.9,35,2,14,0)="^9.64PA^^"
^XMB(3.9,35,2,15,0)="""BLD"",6345,""KRN"",0)"
^XMB(3.9,35,2,16,0)="^9.67PA^8989.52^19"
^XMB(3.9,35,2,17,0)="""BLD"",6345,""KRN"",.4,0)"
^XMB(3.9,35,2,18,0)=".4"
^XMB(3.9,35,2,19,0)="""BLD"",6345,""KRN"",.401,0)"
^XMB(3.9,35,2,20,0)=".401"
^XMB(3.9,35,2,21,0)="""BLD"",6345,""KRN"",.402,0)"
^XMB(3.9,35,2,22,0)=".402"
^XMB(3.9,35,2,23,0)="""BLD"",6345,""KRN"",.403,0)"
^XMB(3.9,35,2,24,0)=".403"
^XMB(3.9,35,2,25,0)="""BLD"",6345,""KRN"",.5,0)"
^XMB(3.9,35,2,26,0)=".5"
^XMB(3.9,35,2,27,0)="""BLD"",6345,""KRN"",.84,0)"
^XMB(3.9,35,2,28,0)=".84"
^XMB(3.9,35,2,29,0)="""BLD"",6345,""KRN"",3.6,0)"
^XMB(3.9,35,2,30,0)="3.6"
^XMB(3.9,35,2,31,0)="""BLD"",6345,""KRN"",3.8,0)"
^XMB(3.9,35,2,32,0)="3.8"
^XMB(3.9,35,2,33,0)="""BLD"",6345,""KRN"",9.2,0)"
^XMB(3.9,35,2,34,0)="9.2"
^XMB(3.9,35,2,35,0)="""BLD"",6345,""KRN"",9.8,0)"
^XMB(3.9,35,2,36,0)="9.8"
^XMB(3.9,35,2,37,0)="""BLD"",6345,""KRN"",9.8,""NM"",0)"
^XMB(3.9,35,2,38,0)="^9.68A^1^1"
^XMB(3.9,35,2,39,0)="""BLD"",6345,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,35,2,40,0)="GMRACMR^^0^B12829959"
^XMB(3.9,35,2,41,0)="""BLD"",6345,""KRN"",9.8,""NM"",""B"",""GMRACMR"",1)"
^XMB(3.9,35,2,42,0)=""
^XMB(3.9,35,2,43,0)="""BLD"",6345,""KRN"",19,0)"
^XMB(3.9,35,2,44,0)="19"
^XMB(3.9,35,2,45,0)="""BLD"",6345,""KRN"",19.1,0)"
^XMB(3.9,35,2,46,0)="19.1"
^XMB(3.9,35,2,47,0)="""BLD"",6345,""KRN"",101,0)"
^XMB(3.9,35,2,48,0)="101"
^XMB(3.9,35,2,49,0)="""BLD"",6345,""KRN"",409.61,0)"
^XMB(3.9,35,2,50,0)="409.61"
^XMB(3.9,35,2,51,0)="""BLD"",6345,""KRN"",771,0)"
^XMB(3.9,35,2,52,0)="771"
^XMB(3.9,35,2,53,0)="""BLD"",6345,""KRN"",870,0)"
^XMB(3.9,35,2,54,0)="870"
^XMB(3.9,35,2,55,0)="""BLD"",6345,""KRN"",8989.51,0)"
^XMB(3.9,35,2,56,0)="8989.51"
^XMB(3.9,35,2,57,0)="""BLD"",6345,""KRN"",8989.52,0)"
^XMB(3.9,35,2,58,0)="8989.52"
^XMB(3.9,35,2,59,0)="""BLD"",6345,""KRN"",8994,0)"
^XMB(3.9,35,2,60,0)="8994"
^XMB(3.9,35,2,61,0)="""BLD"",6345,""KRN"",""B"",.4,.4)"
^XMB(3.9,35,2,62,0)=""
^XMB(3.9,35,2,63,0)="""BLD"",6345,""KRN"",""B"",.401,.401)"
^XMB(3.9,35,2,64,0)=""
^XMB(3.9,35,2,65,0)="""BLD"",6345,""KRN"",""B"",.402,.402)"
^XMB(3.9,35,2,66,0)=""
^XMB(3.9,35,2,67,0)="""BLD"",6345,""KRN"",""B"",.403,.403)"
^XMB(3.9,35,2,68,0)=""
^XMB(3.9,35,2,69,0)="""BLD"",6345,""KRN"",""B"",.5,.5)"
^XMB(3.9,35,2,70,0)=""
^XMB(3.9,35,2,71,0)="""BLD"",6345,""KRN"",""B"",.84,.84)"
^XMB(3.9,35,2,72,0)=""
^XMB(3.9,35,2,73,0)="""BLD"",6345,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,35,2,74,0)=""
^XMB(3.9,35,2,75,0)="""BLD"",6345,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,35,2,76,0)=""
^XMB(3.9,35,2,77,0)="""BLD"",6345,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,35,2,78,0)=""
^XMB(3.9,35,2,79,0)="""BLD"",6345,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,35,2,80,0)=""
^XMB(3.9,35,2,81,0)="""BLD"",6345,""KRN"",""B"",19,19)"
^XMB(3.9,35,2,82,0)=""
^XMB(3.9,35,2,83,0)="""BLD"",6345,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,35,2,84,0)=""
^XMB(3.9,35,2,85,0)="""BLD"",6345,""KRN"",""B"",101,101)"
^XMB(3.9,35,2,86,0)=""
^XMB(3.9,35,2,87,0)="""BLD"",6345,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,35,2,88,0)=""
^XMB(3.9,35,2,89,0)="""BLD"",6345,""KRN"",""B"",771,771)"
^XMB(3.9,35,2,90,0)=""
^XMB(3.9,35,2,91,0)="""BLD"",6345,""KRN"",""B"",870,870)"
^XMB(3.9,35,2,92,0)=""
^XMB(3.9,35,2,93,0)="""BLD"",6345,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,35,2,94,0)=""
^XMB(3.9,35,2,95,0)="""BLD"",6345,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,35,2,96,0)=""
^XMB(3.9,35,2,97,0)="""BLD"",6345,""KRN"",""B"",8994,8994)"
^XMB(3.9,35,2,98,0)=""
^XMB(3.9,35,2,99,0)="""BLD"",6345,""QUES"",0)"
^XMB(3.9,35,2,100,0)="^9.62^^"
^XMB(3.9,35,2,101,0)="""BLD"",6345,""REQB"",0)"
^XMB(3.9,35,2,102,0)="^9.611^1^1"
^XMB(3.9,35,2,103,0)="""BLD"",6345,""REQB"",1,0)"
^XMB(3.9,35,2,104,0)="GMRA*4.0*8^2"
^XMB(3.9,35,2,105,0)="""BLD"",6345,""REQB"",""B"",""GMRA*4.0*8"",1)"
^XMB(3.9,35,2,106,0)=""
^XMB(3.9,35,2,107,0)="""MBREQ"")"
^XMB(3.9,35,2,108,0)="0"
^XMB(3.9,35,2,109,0)="""PKG"",392,-1)"
^XMB(3.9,35,2,110,0)="1^1"
^XMB(3.9,35,2,111,0)="""PKG"",392,0)"
^XMB(3.9,35,2,112,0)="ADVERSE REACTION TRACKING^GMRA^Adverse Reaction Tracking package"
^XMB(3.9,35,2,113,0)="""PKG"",392,22,0)"
^XMB(3.9,35,2,114,0)="^9.49I^1^1"
^XMB(3.9,35,2,115,0)="""PKG"",392,22,1,0)"
^XMB(3.9,35,2,116,0)="4.0^2960328^2960801^1"
^XMB(3.9,35,2,117,0)="""PKG"",392,22,1,""PAH"",1,0)"
^XMB(3.9,35,2,118,0)="35^3060227"
^XMB(3.9,35,2,119,0)="""PKG"",392,22,1,""PAH"",1,1,0)"
^XMB(3.9,35,2,120,0)="^^1^1^3060227"
^XMB(3.9,35,2,121,0)="""PKG"",392,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,35,2,122,0)="POSSIBLE PROBLEM WITH LIST BY LOCATION UNASSESSED ALLERGIES."
^XMB(3.9,35,2,123,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,35,2,124,0)="Y"
^XMB(3.9,35,2,125,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,35,2,126,0)="^D REP^XPDH"
^XMB(3.9,35,2,127,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,35,2,128,0)="Shall I write over your |FLAG| File"
^XMB(3.9,35,2,129,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,35,2,130,0)="YES"
^XMB(3.9,35,2,131,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,35,2,132,0)="D XPF1^XPDIQ"
^XMB(3.9,35,2,133,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,35,2,134,0)="Y"
^XMB(3.9,35,2,135,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,35,2,136,0)="^D DTA^XPDH"
^XMB(3.9,35,2,137,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,35,2,138,0)="Want my data |FLAG| yours"
^XMB(3.9,35,2,139,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,35,2,140,0)="YES"
^XMB(3.9,35,2,141,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,35,2,142,0)="D XPF2^XPDIQ"
^XMB(3.9,35,2,143,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,35,2,144,0)="YO"
^XMB(3.9,35,2,145,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,35,2,146,0)="^D INHIBIT^XPDH"
^XMB(3.9,35,2,147,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,35,2,148,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,35,2,149,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,35,2,150,0)="YES"
^XMB(3.9,35,2,151,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,35,2,152,0)="D XPI1^XPDIQ"
^XMB(3.9,35,2,153,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,35,2,154,0)="PO^VA(200,:EM"
^XMB(3.9,35,2,155,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,35,2,156,0)="^D MG^XPDH"
^XMB(3.9,35,2,157,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,35,2,158,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,35,2,159,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,35,2,160,0)=""
^XMB(3.9,35,2,161,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,35,2,162,0)="D XPM1^XPDIQ"
^XMB(3.9,35,2,163,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,35,2,164,0)="Y"
^XMB(3.9,35,2,165,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,35,2,166,0)="^D MENU^XPDH"
^XMB(3.9,35,2,167,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,35,2,168,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,35,2,169,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,35,2,170,0)="YES"
^XMB(3.9,35,2,171,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,35,2,172,0)="D XPO1^XPDIQ"
^XMB(3.9,35,2,173,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,35,2,174,0)="Y"
^XMB(3.9,35,2,175,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,35,2,176,0)="^D OPT^XPDH"
^XMB(3.9,35,2,177,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,35,2,178,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,35,2,179,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,35,2,180,0)="YES"
^XMB(3.9,35,2,181,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,35,2,182,0)="D XPZ1^XPDIQ"
^XMB(3.9,35,2,183,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,35,2,184,0)="Y"
^XMB(3.9,35,2,185,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,35,2,186,0)="^D RTN^XPDH"
^XMB(3.9,35,2,187,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,35,2,188,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,35,2,189,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,35,2,190,0)="NO"
^XMB(3.9,35,2,191,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,35,2,192,0)="D XPZ2^XPDIQ"
^XMB(3.9,35,2,193,0)="""RTN"")"
^XMB(3.9,35,2,194,0)="1"
^XMB(3.9,35,2,195,0)="""RTN"",""GMRACMR"")"
^XMB(3.9,35,2,196,0)="0^1^B12829959^B10622222"
^XMB(3.9,35,2,197,0)="""RTN"",""GMRACMR"",1,0)"
^XMB(3.9,35,2,198,0)="GMRACMR ;HIRMFO/WAA,RM-LIST Chart/ID Band mark report ;9/29/97  08:11"
^XMB(3.9,35,2,199,0)="""RTN"",""GMRACMR"",2,0)"
^XMB(3.9,35,2,200,0)=" ;;4.0;Adverse Reaction Tracking;**8,35**;Mar 29, 1996"
^XMB(3.9,35,2,201,0)="""RTN"",""GMRACMR"",3,0)"
^XMB(3.9,35,2,202,0)=" ;;"
^XMB(3.9,35,2,203,0)="""RTN"",""GMRACMR"",4,0)"
^XMB(3.9,35,2,204,0)="EN1 ;PRIMARY ENTRY POINT"
^XMB(3.9,35,2,205,0)="""RTN"",""GMRACMR"",5,0)"
^XMB(3.9,35,2,206,0)=" S GMRAOUT=0"
^XMB(3.9,35,2,207,0)="""RTN"",""GMRACMR"",6,0)"
^XMB(3.9,35,2,208,0)="QST K DIR S DIR(0)=""LAO^1:4"""
^XMB(3.9,35,2,209,0)="""RTN"",""GMRACMR"",7,0)"
^XMB(3.9,35,2,210,0)=" S DIR(0)=DIR(0)_""^I X[""""."""" W !,""""DO NOT USE DECIMAL VALUES."""",$C(7) K X Q"""
^XMB(3.9,35,2,211,0)="""RTN"",""GMRACMR"",8,0)"
^XMB(3.9,35,2,212,0)=" S DIR(""A"",1)=""     1 Current Inpatients"",DIR(""A"",2)=""     2 Outpatients over Date/Time range"",DIR(""A"",3)=""     3 New Admissions over Date/Time range"",DIR(""A"",4)=""     4 All of the above"""
^XMB(3.9,35,2,213,0)="""RTN"",""GMRACMR"",9,0)"
^XMB(3.9,35,2,214,0)=" S DIR(""A"")=""Enter the number(s) for those groups to be used in this report: (1-4):"""
^XMB(3.9,35,2,215,0)="""RTN"",""GMRACMR"",10,0)"
^XMB(3.9,35,2,216,0)=" S DIR(""?"",1)=""   ENTER THE NUMBER(S) FOR THOSE GROUPS TO BE INCLUDED IN THIS REPORT."",DIR(""?"")=""   THIS RESPONSE MUST BE A LIST OR RANGE, E.G., 1,3 OR 2-3"""
^XMB(3.9,35,2,217,0)="""RTN"",""GMRACMR"",11,0)"
^XMB(3.9,35,2,218,0)=" D ^DIR K DIR"
^XMB(3.9,35,2,219,0)="""RTN"",""GMRACMR"",12,0)"
^XMB(3.9,35,2,220,0)=" I ""^^""[Y S GMRAOUT=1 Q"
^XMB(3.9,35,2,221,0)="""RTN"",""GMRACMR"",13,0)"
^XMB(3.9,35,2,222,0)=" S GMRAQST="""""
^XMB(3.9,35,2,223,0)="""RTN"",""GMRACMR"",14,0)"
^XMB(3.9,35,2,224,0)=" S:Y[""4"" Y=""1,2,3"""
^XMB(3.9,35,2,225,0)="""RTN"",""GMRACMR"",15,0)"
^XMB(3.9,35,2,226,0)=" S GMRASEL=Y"
^XMB(3.9,35,2,227,0)="""RTN"",""GMRACMR"",16,0)"
^XMB(3.9,35,2,228,0)=" S:GMRASEL[""1"" GMRAQST=GMRAQST_""W"""
^XMB(3.9,35,2,229,0)="""RTN"",""GMRACMR"",17,0)"
^XMB(3.9,35,2,230,0)=" S:GMRASEL[""2"" GMRAQST=GMRAQST_""CM"""
^XMB(3.9,35,2,231,0)="""RTN"",""GMRACMR"",18,0)"
^XMB(3.9,35,2,232,0)=" S:GMRASEL[""3"" GMRAQST=GMRAQST_""W"""
^XMB(3.9,35,2,233,0)="""RTN"",""GMRACMR"",19,0)"
^XMB(3.9,35,2,234,0)=" D DATE Q:GMRAOUT"
^XMB(3.9,35,2,235,0)="""RTN"",""GMRACMR"",20,0)"
^XMB(3.9,35,2,236,0)=" ;Select the ward or clinic"
^XMB(3.9,35,2,237,0)="""RTN"",""GMRACMR"",21,0)"
^XMB(3.9,35,2,238,0)=" S Y=$$MDIC^GMRACMR1 I Y<1 S GMRAOUT=1"
^XMB(3.9,35,2,239,0)="""RTN"",""GMRACMR"",22,0)"
^XMB(3.9,35,2,240,0)=" Q:GMRAOUT"
^XMB(3.9,35,2,241,0)="""RTN"",""GMRACMR"",23,0)"
^XMB(3.9,35,2,242,0)=" Q"
^XMB(3.9,35,2,243,0)="""RTN"",""GMRACMR"",24,0)"
^XMB(3.9,35,2,244,0)="DATE ;DATE SELECTION"
^XMB(3.9,35,2,245,0)="""RTN"",""GMRACMR"",25,0)"
^XMB(3.9,35,2,246,0)=" ;FROM DATE"
^XMB(3.9,35,2,247,0)="""RTN"",""GMRACMR"",26,0)"
^XMB(3.9,35,2,248,0)=" Q:'(GMRASEL[""2""!(GMRASEL[""3""))"
^XMB(3.9,35,2,249,0)="""RTN"",""GMRACMR"",27,0)"
^XMB(3.9,35,2,250,0)=" W !,"" Enter date/time range in which patients were"",!,$S(GMRASEL[""3"":"" admitted into the hospital""_$S(GMRASEL[""2"":"" or"",1:""""),1:""""),$S(GMRASEL[""2"":"" seen at an outpatient clinic"",1:""""),""."""
^XMB(3.9,35,2,251,0)="""RTN"",""GMRACMR"",28,0)"
^XMB(3.9,35,2,252,0)=" W !!,"" Please note! This report will show patients as not having received an"""
^XMB(3.9,35,2,253,0)="""RTN"",""GMRACMR"",29,0)"
^XMB(3.9,35,2,254,0)=" W !,""assessment if the assessment was entered after the end date of"""
^XMB(3.9,35,2,255,0)="""RTN"",""GMRACMR"",30,0)"
^XMB(3.9,35,2,256,0)=" W !,""the range.  For this reason, it is recommended to end the range"""
^XMB(3.9,35,2,257,0)="""RTN"",""GMRACMR"",31,0)"
^XMB(3.9,35,2,258,0)=" W !,""with today. This can be done with an entry of 'T' (for Today) at"""
^XMB(3.9,35,2,259,0)="""RTN"",""GMRACMR"",32,0)"
^XMB(3.9,35,2,260,0)=" W !,""the 'Enter END Date (time optional): T//' prompt."""
^XMB(3.9,35,2,261,0)="""RTN"",""GMRACMR"",33,0)"
^XMB(3.9,35,2,262,0)=" W !!,""Enter START Date (time optional): "" R X:DTIME S:'$T X=""^^"" I ""^^""[X S GMRAOUT=1 Q"
^XMB(3.9,35,2,263,0)="""RTN"",""GMRACMR"",34,0)"
^XMB(3.9,35,2,264,0)=" I X?1""?"".E D  G DATE"
^XMB(3.9,35,2,265,0)="""RTN"",""GMRACMR"",35,0)"
^XMB(3.9,35,2,266,0)=" .   S %DT=""TEX"" D HELP^%DTC"
^XMB(3.9,35,2,267,0)="""RTN"",""GMRACMR"",36,0)"
^XMB(3.9,35,2,268,0)=" .   W !!?4,""ENTER THE START DATE/TIME OF RANGE TO SEE PATIENTS THAT WERE"",!?3,$S(GMRASEL[""3"":"" ADMITTED TO THE HOSPITAL""_$S(GMRASEL[""2"":"" OR"",1:""""),1:""""),$S(GMRASEL[""2"":"" SEEN AT AN OUTPATIENT CLINIC"",1:""""),""."",!"
^XMB(3.9,35,2,269,0)="""RTN"",""GMRACMR"",37,0)"
^XMB(3.9,35,2,270,0)=" .   Q"
^XMB(3.9,35,2,271,0)="""RTN"",""GMRACMR"",38,0)"
^XMB(3.9,35,2,272,0)=" S %DT=""TEX"" D ^%DT"
^XMB(3.9,35,2,273,0)="""RTN"",""GMRACMR"",39,0)"
^XMB(3.9,35,2,274,0)=" I +Y'>0 G DATE"
^XMB(3.9,35,2,275,0)="""RTN"",""GMRACMR"",40,0)"
^XMB(3.9,35,2,276,0)=" S GMRAST=Y K %DT,Y"
^XMB(3.9,35,2,277,0)="""RTN"",""GMRACMR"",41,0)"
^XMB(3.9,35,2,278,0)="END ;"
^XMB(3.9,35,2,279,0)="""RTN"",""GMRACMR"",42,0)"
^XMB(3.9,35,2,280,0)=" W !,""Enter END Date (time optional): T// "" R X:DTIME S:'$T X=""^^"" S:X="""" X=""T"" I ""^^""[X S GMRAOUT=1 Q"
^XMB(3.9,35,2,281,0)="""RTN"",""GMRACMR"",43,0)"
^XMB(3.9,35,2,282,0)=" I X?1""?"".E D  G END"
^XMB(3.9,35,2,283,0)="""RTN"",""GMRACMR"",44,0)"
^XMB(3.9,35,2,284,0)=" .   S %DT=""TEX"",%DT(0)=GMRAST D HELP^%DTC"
^XMB(3.9,35,2,285,0)="""RTN"",""GMRACMR"",45,0)"
^XMB(3.9,35,2,286,0)=" .   W !!?4,""ENTER THE END DATE/TIME OF RANGE TO SEE PATIENTS THAT WERE"",!?3,$S(GMRASEL[""3"":"" ADMITTED TO THE HOSPITAL""_$S(GMRASEL[""2"":"" OR"",1:""""),1:""""),$S(GMRASEL[""2"":"" SEEN AT AN OUTPATIENT CLINIC"",1:""""),""."",!"
^XMB(3.9,35,2,287,0)="""RTN"",""GMRACMR"",46,0)"
^XMB(3.9,35,2,288,0)=" .   Q"
^XMB(3.9,35,2,289,0)="""RTN"",""GMRACMR"",47,0)"
^XMB(3.9,35,2,290,0)=" S %DT(0)=GMRAST,%DT=""TEX"" D ^%DT"
^XMB(3.9,35,2,291,0)="""RTN"",""GMRACMR"",48,0)"
^XMB(3.9,35,2,292,0)=" I +Y'>0 G END"
^XMB(3.9,35,2,293,0)="""RTN"",""GMRACMR"",49,0)"
^XMB(3.9,35,2,294,0)=" S GMRAED=Y_$S(Y=(Y\1):"".24"",1:"""") K %DT,Y"
^XMB(3.9,35,2,295,0)="""RTN"",""GMRACMR"",50,0)"
^XMB(3.9,35,2,296,0)=" Q"
^XMB(3.9,35,2,297,0)="""VER"")"
^XMB(3.9,35,2,298,0)="8.0^22.0"
^XMB(3.9,35,2,299,0)="""BLD"",6345,6)"
^XMB(3.9,35,2,300,0)="^30"
^XMB(3.9,35,2,301,0)="$END KID GMRA*4.0*35"
^XMB(3.9,35,6,0)="^3.911A^2^2"
^XMB(3.9,35,6,1,0)="POSTMASTER"
^XMB(3.9,35,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,35,6,"B","POSTMASTER",1)=""
^XMB(3.9,35,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,36,0)="GMRA-4_SEQ-31_PAT-20.KID^.5^3061008.015734^^^^K"
^XMB(3.9,36,.6)="3061008"
^XMB(3.9,36,1,0)="^3.91A^2^2"
^XMB(3.9,36,1,1,0)=".5^0^3061008.015734^^^^^^^3061008.015734"
^XMB(3.9,36,1,2,0)="1^0^3061008.023124^^^^^^^3061008.023124"
^XMB(3.9,36,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,36,1,"C",.5,1)=""
^XMB(3.9,36,1,"C",1,2)=""
^XMB(3.9,36,2,0)="^^1957^1957^3061008"
^XMB(3.9,36,2,1,0)="$TXT Released GMRA*4*20 SEQ #31"
^XMB(3.9,36,2,2,0)="Extracted from mail message"
^XMB(3.9,36,2,3,0)="$END TXT"
^XMB(3.9,36,2,4,0)="$KID GMRA*4.0*20"
^XMB(3.9,36,2,5,0)="**INSTALL NAME**"
^XMB(3.9,36,2,6,0)="GMRA*4.0*20"
^XMB(3.9,36,2,7,0)="""BLD"",6071,0)"
^XMB(3.9,36,2,8,0)="GMRA*4.0*20^ADVERSE REACTION TRACKING^0^3060719^y"
^XMB(3.9,36,2,9,0)="""BLD"",6071,1,0)"
^XMB(3.9,36,2,10,0)="^^3^3^3060509^^"
^XMB(3.9,36,2,11,0)="""BLD"",6071,1,1,0)"
^XMB(3.9,36,2,12,0)="This patch updates the clean up utility to include ingredient based"
^XMB(3.9,36,2,13,0)="""BLD"",6071,1,2,0)"
^XMB(3.9,36,2,14,0)="and drug class based allergies.  Please see FORUM for the complete"
^XMB(3.9,36,2,15,0)="""BLD"",6071,1,3,0)"
^XMB(3.9,36,2,16,0)="description of this patch."
^XMB(3.9,36,2,17,0)="""BLD"",6071,4,0)"
^XMB(3.9,36,2,18,0)="^9.64PA^^"
^XMB(3.9,36,2,19,0)="""BLD"",6071,6.3)"
^XMB(3.9,36,2,20,0)="1"
^XMB(3.9,36,2,21,0)="""BLD"",6071,""ABPKG"")"
^XMB(3.9,36,2,22,0)="n"
^XMB(3.9,36,2,23,0)="""BLD"",6071,""INIT"")"
^XMB(3.9,36,2,24,0)="POST^GMRAY20"
^XMB(3.9,36,2,25,0)="""BLD"",6071,""KRN"",0)"
^XMB(3.9,36,2,26,0)="^9.67PA^8989.52^19"
^XMB(3.9,36,2,27,0)="""BLD"",6071,""KRN"",.4,0)"
^XMB(3.9,36,2,28,0)=".4"
^XMB(3.9,36,2,29,0)="""BLD"",6071,""KRN"",.401,0)"
^XMB(3.9,36,2,30,0)=".401"
^XMB(3.9,36,2,31,0)="""BLD"",6071,""KRN"",.402,0)"
^XMB(3.9,36,2,32,0)=".402"
^XMB(3.9,36,2,33,0)="""BLD"",6071,""KRN"",.403,0)"
^XMB(3.9,36,2,34,0)=".403"
^XMB(3.9,36,2,35,0)="""BLD"",6071,""KRN"",.5,0)"
^XMB(3.9,36,2,36,0)=".5"
^XMB(3.9,36,2,37,0)="""BLD"",6071,""KRN"",.84,0)"
^XMB(3.9,36,2,38,0)=".84"
^XMB(3.9,36,2,39,0)="""BLD"",6071,""KRN"",3.6,0)"
^XMB(3.9,36,2,40,0)="3.6"
^XMB(3.9,36,2,41,0)="""BLD"",6071,""KRN"",3.8,0)"
^XMB(3.9,36,2,42,0)="3.8"
^XMB(3.9,36,2,43,0)="""BLD"",6071,""KRN"",9.2,0)"
^XMB(3.9,36,2,44,0)="9.2"
^XMB(3.9,36,2,45,0)="""BLD"",6071,""KRN"",9.8,0)"
^XMB(3.9,36,2,46,0)="9.8"
^XMB(3.9,36,2,47,0)="""BLD"",6071,""KRN"",9.8,""NM"",0)"
^XMB(3.9,36,2,48,0)="^9.68A^6^6"
^XMB(3.9,36,2,49,0)="""BLD"",6071,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,36,2,50,0)="GMRAFX^^0^B82732558"
^XMB(3.9,36,2,51,0)="""BLD"",6071,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,36,2,52,0)="GMRAFX1^^0^B32262757"
^XMB(3.9,36,2,53,0)="""BLD"",6071,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,36,2,54,0)="GMRAFX3^^0^B68434515"
^XMB(3.9,36,2,55,0)="""BLD"",6071,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,36,2,56,0)="GMRAPES0^^0^B74006536"
^XMB(3.9,36,2,57,0)="""BLD"",6071,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,36,2,58,0)="GMRAY20^^0^B8283807"
^XMB(3.9,36,2,59,0)="""BLD"",6071,""KRN"",9.8,""NM"",6,0)"
^XMB(3.9,36,2,60,0)="GMRAPET0^^0^B31689941"
^XMB(3.9,36,2,61,0)="""BLD"",6071,""KRN"",9.8,""NM"",""B"",""GMRAFX"",1)"
^XMB(3.9,36,2,62,0)=""
^XMB(3.9,36,2,63,0)="""BLD"",6071,""KRN"",9.8,""NM"",""B"",""GMRAFX1"",2)"
^XMB(3.9,36,2,64,0)=""
^XMB(3.9,36,2,65,0)="""BLD"",6071,""KRN"",9.8,""NM"",""B"",""GMRAFX3"",3)"
^XMB(3.9,36,2,66,0)=""
^XMB(3.9,36,2,67,0)="""BLD"",6071,""KRN"",9.8,""NM"",""B"",""GMRAPES0"",4)"
^XMB(3.9,36,2,68,0)=""
^XMB(3.9,36,2,69,0)="""BLD"",6071,""KRN"",9.8,""NM"",""B"",""GMRAPET0"",6)"
^XMB(3.9,36,2,70,0)=""
^XMB(3.9,36,2,71,0)="""BLD"",6071,""KRN"",9.8,""NM"",""B"",""GMRAY20"",5)"
^XMB(3.9,36,2,72,0)=""
^XMB(3.9,36,2,73,0)="""BLD"",6071,""KRN"",19,0)"
^XMB(3.9,36,2,74,0)="19"
^XMB(3.9,36,2,75,0)="""BLD"",6071,""KRN"",19,""NM"",0)"
^XMB(3.9,36,2,76,0)="^9.68A^2^2"
^XMB(3.9,36,2,77,0)="""BLD"",6071,""KRN"",19,""NM"",1,0)"
^XMB(3.9,36,2,78,0)="GMRA FREE TEXT UTILITY^^0"
^XMB(3.9,36,2,79,0)="""BLD"",6071,""KRN"",19,""NM"",2,0)"
^XMB(3.9,36,2,80,0)="GMRA SITE FILE MENU^^2"
^XMB(3.9,36,2,81,0)="""BLD"",6071,""KRN"",19,""NM"",""B"",""GMRA FREE TEXT UTILITY"",1)"
^XMB(3.9,36,2,82,0)=""
^XMB(3.9,36,2,83,0)="""BLD"",6071,""KRN"",19,""NM"",""B"",""GMRA SITE FILE MENU"",2)"
^XMB(3.9,36,2,84,0)=""
^XMB(3.9,36,2,85,0)="""BLD"",6071,""KRN"",19.1,0)"
^XMB(3.9,36,2,86,0)="19.1"
^XMB(3.9,36,2,87,0)="""BLD"",6071,""KRN"",101,0)"
^XMB(3.9,36,2,88,0)="101"
^XMB(3.9,36,2,89,0)="""BLD"",6071,""KRN"",101,""NM"",0)"
^XMB(3.9,36,2,90,0)="^9.68A^3^3"
^XMB(3.9,36,2,91,0)="""BLD"",6071,""KRN"",101,""NM"",1,0)"
^XMB(3.9,36,2,92,0)="GMRA FIX FREE TEXT LIST^^3"
^XMB(3.9,36,2,93,0)="""BLD"",6071,""KRN"",101,""NM"",2,0)"
^XMB(3.9,36,2,94,0)="GMRA FIX DETAIL IN DETAIL^^0"
^XMB(3.9,36,2,95,0)="""BLD"",6071,""KRN"",101,""NM"",3,0)"
^XMB(3.9,36,2,96,0)="GMRA FIX DETAIL MENU^^2"
^XMB(3.9,36,2,97,0)="""BLD"",6071,""KRN"",101,""NM"",""B"",""GMRA FIX DETAIL IN DETAIL"",2)"
^XMB(3.9,36,2,98,0)=""
^XMB(3.9,36,2,99,0)="""BLD"",6071,""KRN"",101,""NM"",""B"",""GMRA FIX DETAIL MENU"",3)"
^XMB(3.9,36,2,100,0)=""
^XMB(3.9,36,2,101,0)="""BLD"",6071,""KRN"",101,""NM"",""B"",""GMRA FIX FREE TEXT LIST"",1)"
^XMB(3.9,36,2,102,0)=""
^XMB(3.9,36,2,103,0)="""BLD"",6071,""KRN"",409.61,0)"
^XMB(3.9,36,2,104,0)="409.61"
^XMB(3.9,36,2,105,0)="""BLD"",6071,""KRN"",409.61,""NM"",0)"
^XMB(3.9,36,2,106,0)="^9.68A^2^2"
^XMB(3.9,36,2,107,0)="""BLD"",6071,""KRN"",409.61,""NM"",1,0)"
^XMB(3.9,36,2,108,0)="GMRA FIX^^0"
^XMB(3.9,36,2,109,0)="""BLD"",6071,""KRN"",409.61,""NM"",2,0)"
^XMB(3.9,36,2,110,0)="GMRA FIX DETAIL^^0"
^XMB(3.9,36,2,111,0)="""BLD"",6071,""KRN"",409.61,""NM"",""B"",""GMRA FIX"",1)"
^XMB(3.9,36,2,112,0)=""
^XMB(3.9,36,2,113,0)="""BLD"",6071,""KRN"",409.61,""NM"",""B"",""GMRA FIX DETAIL"",2)"
^XMB(3.9,36,2,114,0)=""
^XMB(3.9,36,2,115,0)="""BLD"",6071,""KRN"",771,0)"
^XMB(3.9,36,2,116,0)="771"
^XMB(3.9,36,2,117,0)="""BLD"",6071,""KRN"",870,0)"
^XMB(3.9,36,2,118,0)="870"
^XMB(3.9,36,2,119,0)="""BLD"",6071,""KRN"",8989.51,0)"
^XMB(3.9,36,2,120,0)="8989.51"
^XMB(3.9,36,2,121,0)="""BLD"",6071,""KRN"",8989.52,0)"
^XMB(3.9,36,2,122,0)="8989.52"
^XMB(3.9,36,2,123,0)="""BLD"",6071,""KRN"",8994,0)"
^XMB(3.9,36,2,124,0)="8994"
^XMB(3.9,36,2,125,0)="""BLD"",6071,""KRN"",""B"",.4,.4)"
^XMB(3.9,36,2,126,0)=""
^XMB(3.9,36,2,127,0)="""BLD"",6071,""KRN"",""B"",.401,.401)"
^XMB(3.9,36,2,128,0)=""
^XMB(3.9,36,2,129,0)="""BLD"",6071,""KRN"",""B"",.402,.402)"
^XMB(3.9,36,2,130,0)=""
^XMB(3.9,36,2,131,0)="""BLD"",6071,""KRN"",""B"",.403,.403)"
^XMB(3.9,36,2,132,0)=""
^XMB(3.9,36,2,133,0)="""BLD"",6071,""KRN"",""B"",.5,.5)"
^XMB(3.9,36,2,134,0)=""
^XMB(3.9,36,2,135,0)="""BLD"",6071,""KRN"",""B"",.84,.84)"
^XMB(3.9,36,2,136,0)=""
^XMB(3.9,36,2,137,0)="""BLD"",6071,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,36,2,138,0)=""
^XMB(3.9,36,2,139,0)="""BLD"",6071,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,36,2,140,0)=""
^XMB(3.9,36,2,141,0)="""BLD"",6071,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,36,2,142,0)=""
^XMB(3.9,36,2,143,0)="""BLD"",6071,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,36,2,144,0)=""
^XMB(3.9,36,2,145,0)="""BLD"",6071,""KRN"",""B"",19,19)"
^XMB(3.9,36,2,146,0)=""
^XMB(3.9,36,2,147,0)="""BLD"",6071,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,36,2,148,0)=""
^XMB(3.9,36,2,149,0)="""BLD"",6071,""KRN"",""B"",101,101)"
^XMB(3.9,36,2,150,0)=""
^XMB(3.9,36,2,151,0)="""BLD"",6071,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,36,2,152,0)=""
^XMB(3.9,36,2,153,0)="""BLD"",6071,""KRN"",""B"",771,771)"
^XMB(3.9,36,2,154,0)=""
^XMB(3.9,36,2,155,0)="""BLD"",6071,""KRN"",""B"",870,870)"
^XMB(3.9,36,2,156,0)=""
^XMB(3.9,36,2,157,0)="""BLD"",6071,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,36,2,158,0)=""
^XMB(3.9,36,2,159,0)="""BLD"",6071,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,36,2,160,0)=""
^XMB(3.9,36,2,161,0)="""BLD"",6071,""KRN"",""B"",8994,8994)"
^XMB(3.9,36,2,162,0)=""
^XMB(3.9,36,2,163,0)="""BLD"",6071,""QUES"",0)"
^XMB(3.9,36,2,164,0)="^9.62^^"
^XMB(3.9,36,2,165,0)="""BLD"",6071,""REQB"",0)"
^XMB(3.9,36,2,166,0)="^9.611^1^1"
^XMB(3.9,36,2,167,0)="""BLD"",6071,""REQB"",1,0)"
^XMB(3.9,36,2,168,0)="GMRA*4.0*23^2"
^XMB(3.9,36,2,169,0)="""BLD"",6071,""REQB"",""B"",""GMRA*4.0*23"",1)"
^XMB(3.9,36,2,170,0)=""
^XMB(3.9,36,2,171,0)="""INIT"")"
^XMB(3.9,36,2,172,0)="POST^GMRAY20"
^XMB(3.9,36,2,173,0)="""KRN"",19,2455,-1)"
^XMB(3.9,36,2,174,0)="2^2"
^XMB(3.9,36,2,175,0)="""KRN"",19,2455,0)"
^XMB(3.9,36,2,176,0)="GMRA SITE FILE MENU^Enter/Edit Site Configurable Files^^M^10^^^^^^^140"
^XMB(3.9,36,2,177,0)="""KRN"",19,2455,10,0)"
^XMB(3.9,36,2,178,0)="^19.01IP^6^6"
^XMB(3.9,36,2,179,0)="""KRN"",19,2455,10,6,0)"
^XMB(3.9,36,2,180,0)="9207^6"
^XMB(3.9,36,2,181,0)="""KRN"",19,2455,10,6,""^"")"
^XMB(3.9,36,2,182,0)="GMRA FREE TEXT UTILITY"
^XMB(3.9,36,2,183,0)="""KRN"",19,2455,""U"")"
^XMB(3.9,36,2,184,0)="ENTER/EDIT SITE CONFIGURABLE F"
^XMB(3.9,36,2,185,0)="""KRN"",19,9207,-1)"
^XMB(3.9,36,2,186,0)="0^1"
^XMB(3.9,36,2,187,0)="""KRN"",19,9207,0)"
^XMB(3.9,36,2,188,0)="GMRA FREE TEXT UTILITY^Allergy clean up utility^^R^^^^^^^^"
^XMB(3.9,36,2,189,0)="""KRN"",19,9207,1,0)"
^XMB(3.9,36,2,190,0)="^^4^4^3060321^"
^XMB(3.9,36,2,191,0)="""KRN"",19,9207,1,1,0)"
^XMB(3.9,36,2,192,0)="This utility will identify either free text reactants, ingredient based "
^XMB(3.9,36,2,193,0)="""KRN"",19,9207,1,2,0)"
^XMB(3.9,36,2,194,0)="reactants or drug class based reactants.  The user will then be allowed "
^XMB(3.9,36,2,195,0)="""KRN"",19,9207,1,3,0)"
^XMB(3.9,36,2,196,0)="to either update the reactant to a more appropriate choice or they can "
^XMB(3.9,36,2,197,0)="""KRN"",19,9207,1,4,0)"
^XMB(3.9,36,2,198,0)="mark it as entered in error."
^XMB(3.9,36,2,199,0)="""KRN"",19,9207,25)"
^XMB(3.9,36,2,200,0)="GMRAFX"
^XMB(3.9,36,2,201,0)="""KRN"",19,9207,""U"")"
^XMB(3.9,36,2,202,0)="ALLERGY CLEAN UP UTILITY"
^XMB(3.9,36,2,203,0)="""KRN"",101,6274,-1)"
^XMB(3.9,36,2,204,0)="3^1"
^XMB(3.9,36,2,205,0)="""KRN"",101,6274,0)"
^XMB(3.9,36,2,206,0)="GMRA FIX FREE TEXT LIST^Free text entries^^M^^^^^^^^"
^XMB(3.9,36,2,207,0)="""KRN"",101,6274,4)"
^XMB(3.9,36,2,208,0)="25^4"
^XMB(3.9,36,2,209,0)="""KRN"",101,6274,10,0)"
^XMB(3.9,36,2,210,0)="^101.01PA^4^4"
^XMB(3.9,36,2,211,0)="""KRN"",101,6274,15)"
^XMB(3.9,36,2,212,0)=""
^XMB(3.9,36,2,213,0)="""KRN"",101,6274,20)"
^XMB(3.9,36,2,214,0)="D:'$D(^XTMP(""GMRAFX"",LTYPE,""IDX"")) LIST^GMRAFX D CHKSEL^GMRAFX"
^XMB(3.9,36,2,215,0)="""KRN"",101,6274,26)"
^XMB(3.9,36,2,216,0)="D PHDR^GMRAFX"
^XMB(3.9,36,2,217,0)="""KRN"",101,6274,99)"
^XMB(3.9,36,2,218,0)="59711,42032"
^XMB(3.9,36,2,219,0)="""KRN"",101,6314,-1)"
^XMB(3.9,36,2,220,0)="2^3"
^XMB(3.9,36,2,221,0)="""KRN"",101,6314,0)"
^XMB(3.9,36,2,222,0)="GMRA FIX DETAIL MENU^^^M^1326"
^XMB(3.9,36,2,223,0)="""KRN"",101,6314,10,0)"
^XMB(3.9,36,2,224,0)="^101.01PA^5^5"
^XMB(3.9,36,2,225,0)="""KRN"",101,6314,10,5,0)"
^XMB(3.9,36,2,226,0)="6485^DD^5^"
^XMB(3.9,36,2,227,0)="""KRN"",101,6314,10,5,""^"")"
^XMB(3.9,36,2,228,0)="GMRA FIX DETAIL IN DETAIL"
^XMB(3.9,36,2,229,0)="""KRN"",101,6485,-1)"
^XMB(3.9,36,2,230,0)="0^2"
^XMB(3.9,36,2,231,0)="""KRN"",101,6485,0)"
^XMB(3.9,36,2,232,0)="GMRA FIX DETAIL IN DETAIL^Allergy Detailed Display^^A^^^^^^^^"
^XMB(3.9,36,2,233,0)="""KRN"",101,6485,15)"
^XMB(3.9,36,2,234,0)="D DESELECT^GMRAFX1"
^XMB(3.9,36,2,235,0)="""KRN"",101,6485,20)"
^XMB(3.9,36,2,236,0)="D DSPREACT^GMRAFX3"
^XMB(3.9,36,2,237,0)="""KRN"",101,6485,99)"
^XMB(3.9,36,2,238,0)="60291,50768"
^XMB(3.9,36,2,239,0)="""KRN"",409.61,882,-1)"
^XMB(3.9,36,2,240,0)="0^1"
^XMB(3.9,36,2,241,0)="""KRN"",409.61,882,0)"
^XMB(3.9,36,2,242,0)="GMRA FIX^1^^80^4^20^0^1^^GMRA FIX FREE TEXT LIST^Allergy Tracking Update^1^^1"
^XMB(3.9,36,2,243,0)="""KRN"",409.61,882,1)"
^XMB(3.9,36,2,244,0)="^VALM HIDDEN ACTIONS"
^XMB(3.9,36,2,245,0)="""KRN"",409.61,882,""ARRAY"")"
^XMB(3.9,36,2,246,0)=" ^XTMP(""GMRAFX"",LTYPE)"
^XMB(3.9,36,2,247,0)="""KRN"",409.61,882,""COL"",0)"
^XMB(3.9,36,2,248,0)="^409.621^2^2"
^XMB(3.9,36,2,249,0)="""KRN"",409.61,882,""COL"",1,0)"
^XMB(3.9,36,2,250,0)="REACTANT^5^40^Reactant"
^XMB(3.9,36,2,251,0)="""KRN"",409.61,882,""COL"",2,0)"
^XMB(3.9,36,2,252,0)="ACTIVE^46^16^# Active Entries"
^XMB(3.9,36,2,253,0)="""KRN"",409.61,882,""COL"",""B"",""ACTIVE"",2)"
^XMB(3.9,36,2,254,0)=""
^XMB(3.9,36,2,255,0)="""KRN"",409.61,882,""COL"",""B"",""REACTANT"",1)"
^XMB(3.9,36,2,256,0)=""
^XMB(3.9,36,2,257,0)="""KRN"",409.61,882,""FNL"")"
^XMB(3.9,36,2,258,0)="D EXIT^GMRAFX"
^XMB(3.9,36,2,259,0)="""KRN"",409.61,882,""HDR"")"
^XMB(3.9,36,2,260,0)="D HDR^GMRAFX"
^XMB(3.9,36,2,261,0)="""KRN"",409.61,882,""HLP"")"
^XMB(3.9,36,2,262,0)="D HELP^GMRAFX"
^XMB(3.9,36,2,263,0)="""KRN"",409.61,882,""INIT"")"
^XMB(3.9,36,2,264,0)="D INIT^GMRAFX"
^XMB(3.9,36,2,265,0)="""KRN"",409.61,885,-1)"
^XMB(3.9,36,2,266,0)="0^2"
^XMB(3.9,36,2,267,0)="""KRN"",409.61,885,0)"
^XMB(3.9,36,2,268,0)="GMRA FIX DETAIL^1^^160^4^19^0^1^^GMRA FIX DETAIL MENU^Reactant Detailed Display^1^^1"
^XMB(3.9,36,2,269,0)="""KRN"",409.61,885,1)"
^XMB(3.9,36,2,270,0)="^VALM HIDDEN ACTIONS"
^XMB(3.9,36,2,271,0)="""KRN"",409.61,885,""ARRAY"")"
^XMB(3.9,36,2,272,0)=" ^TMP($J,LTYPE,""GMRADET"")"
^XMB(3.9,36,2,273,0)="""KRN"",409.61,885,""COL"",0)"
^XMB(3.9,36,2,274,0)="^409.621^2^2"
^XMB(3.9,36,2,275,0)="""KRN"",409.61,885,""COL"",1,0)"
^XMB(3.9,36,2,276,0)="NAME^5^30^Patient Name"
^XMB(3.9,36,2,277,0)="""KRN"",409.61,885,""COL"",2,0)"
^XMB(3.9,36,2,278,0)="SSN^36^6^Last 4"
^XMB(3.9,36,2,279,0)="""KRN"",409.61,885,""COL"",""B"",""NAME"",1)"
^XMB(3.9,36,2,280,0)=""
^XMB(3.9,36,2,281,0)="""KRN"",409.61,885,""COL"",""B"",""SSN"",2)"
^XMB(3.9,36,2,282,0)=""
^XMB(3.9,36,2,283,0)="""KRN"",409.61,885,""FNL"")"
^XMB(3.9,36,2,284,0)="D EXIT^GMRAFX1"
^XMB(3.9,36,2,285,0)="""KRN"",409.61,885,""HDR"")"
^XMB(3.9,36,2,286,0)="D HDR^GMRAFX1"
^XMB(3.9,36,2,287,0)="""KRN"",409.61,885,""HLP"")"
^XMB(3.9,36,2,288,0)="D HELP^GMRAFX1"
^XMB(3.9,36,2,289,0)="""KRN"",409.61,885,""INIT"")"
^XMB(3.9,36,2,290,0)="D INIT^GMRAFX1"
^XMB(3.9,36,2,291,0)="""MBREQ"")"
^XMB(3.9,36,2,292,0)="0"
^XMB(3.9,36,2,293,0)="""ORD"",15,101)"
^XMB(3.9,36,2,294,0)="101;15;;;PRO^XPDTA;PROF1^XPDIA;PROE1^XPDIA;PROF2^XPDIA;;PRODEL^XPDIA"
^XMB(3.9,36,2,295,0)="""ORD"",15,101,0)"
^XMB(3.9,36,2,296,0)="PROTOCOL"
^XMB(3.9,36,2,297,0)="""ORD"",17,409.61)"
^XMB(3.9,36,2,298,0)="409.61;17;1;;;;;;;LMDEL^XPDIA1"
^XMB(3.9,36,2,299,0)="""ORD"",17,409.61,0)"
^XMB(3.9,36,2,300,0)="LIST TEMPLATE"
^XMB(3.9,36,2,301,0)="""ORD"",18,19)"
^XMB(3.9,36,2,302,0)="19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA"
^XMB(3.9,36,2,303,0)="""ORD"",18,19,0)"
^XMB(3.9,36,2,304,0)="OPTION"
^XMB(3.9,36,2,305,0)="""PKG"",140,-1)"
^XMB(3.9,36,2,306,0)="1^1"
^XMB(3.9,36,2,307,0)="""PKG"",140,0)"
^XMB(3.9,36,2,308,0)="ADVERSE REACTION TRACKING^GMRA^Allergy Tracking System"
^XMB(3.9,36,2,309,0)="""PKG"",140,20,0)"
^XMB(3.9,36,2,310,0)="^9.402P^^"
^XMB(3.9,36,2,311,0)="""PKG"",140,22,0)"
^XMB(3.9,36,2,312,0)="^9.49I^1^1"
^XMB(3.9,36,2,313,0)="""PKG"",140,22,1,0)"
^XMB(3.9,36,2,314,0)="4.0^2960328^2960506^10"
^XMB(3.9,36,2,315,0)="""PKG"",140,22,1,""PAH"",1,0)"
^XMB(3.9,36,2,316,0)="20^3060719"
^XMB(3.9,36,2,317,0)="""PKG"",140,22,1,""PAH"",1,1,0)"
^XMB(3.9,36,2,318,0)="^^3^3^3060719"
^XMB(3.9,36,2,319,0)="""PKG"",140,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,36,2,320,0)="This patch updates the clean up utility to include ingredient based"
^XMB(3.9,36,2,321,0)="""PKG"",140,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,36,2,322,0)="and drug class based allergies.  Please see FORUM for the complete"
^XMB(3.9,36,2,323,0)="""PKG"",140,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,36,2,324,0)="description of this patch."
^XMB(3.9,36,2,325,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,36,2,326,0)="Y"
^XMB(3.9,36,2,327,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,36,2,328,0)="^D REP^XPDH"
^XMB(3.9,36,2,329,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,36,2,330,0)="Shall I write over your |FLAG| File"
^XMB(3.9,36,2,331,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,36,2,332,0)="YES"
^XMB(3.9,36,2,333,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,36,2,334,0)="D XPF1^XPDIQ"
^XMB(3.9,36,2,335,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,36,2,336,0)="Y"
^XMB(3.9,36,2,337,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,36,2,338,0)="^D DTA^XPDH"
^XMB(3.9,36,2,339,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,36,2,340,0)="Want my data |FLAG| yours"
^XMB(3.9,36,2,341,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,36,2,342,0)="YES"
^XMB(3.9,36,2,343,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,36,2,344,0)="D XPF2^XPDIQ"
^XMB(3.9,36,2,345,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,36,2,346,0)="YO"
^XMB(3.9,36,2,347,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,36,2,348,0)="^D INHIBIT^XPDH"
^XMB(3.9,36,2,349,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,36,2,350,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,36,2,351,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,36,2,352,0)="YES"
^XMB(3.9,36,2,353,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,36,2,354,0)="D XPI1^XPDIQ"
^XMB(3.9,36,2,355,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,36,2,356,0)="PO^VA(200,:EM"
^XMB(3.9,36,2,357,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,36,2,358,0)="^D MG^XPDH"
^XMB(3.9,36,2,359,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,36,2,360,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,36,2,361,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,36,2,362,0)=""
^XMB(3.9,36,2,363,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,36,2,364,0)="D XPM1^XPDIQ"
^XMB(3.9,36,2,365,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,36,2,366,0)="Y"
^XMB(3.9,36,2,367,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,36,2,368,0)="^D MENU^XPDH"
^XMB(3.9,36,2,369,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,36,2,370,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,36,2,371,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,36,2,372,0)="YES"
^XMB(3.9,36,2,373,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,36,2,374,0)="D XPO1^XPDIQ"
^XMB(3.9,36,2,375,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,36,2,376,0)="Y"
^XMB(3.9,36,2,377,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,36,2,378,0)="^D OPT^XPDH"
^XMB(3.9,36,2,379,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,36,2,380,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,36,2,381,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,36,2,382,0)="YES"
^XMB(3.9,36,2,383,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,36,2,384,0)="D XPZ1^XPDIQ"
^XMB(3.9,36,2,385,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,36,2,386,0)="Y"
^XMB(3.9,36,2,387,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,36,2,388,0)="^D RTN^XPDH"
^XMB(3.9,36,2,389,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,36,2,390,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,36,2,391,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,36,2,392,0)="NO"
^XMB(3.9,36,2,393,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,36,2,394,0)="D XPZ2^XPDIQ"
^XMB(3.9,36,2,395,0)="""RTN"")"
^XMB(3.9,36,2,396,0)="6"
^XMB(3.9,36,2,397,0)="""RTN"",""GMRAFX"")"
^XMB(3.9,36,2,398,0)="0^1^B82732558^B91485304"
^XMB(3.9,36,2,399,0)="""RTN"",""GMRAFX"",1,0)"
^XMB(3.9,36,2,400,0)="GMRAFX ;SLC/DAN Fix existing allergy entries ;3/2/06  13:46"
^XMB(3.9,36,2,401,0)="""RTN"",""GMRAFX"",2,0)"
^XMB(3.9,36,2,402,0)=" ;;4.0;Adverse Reaction Tracking;**17,19,23,20**;Mar 29, 1996;Build 1"
^XMB(3.9,36,2,403,0)="""RTN"",""GMRAFX"",3,0)"
^XMB(3.9,36,2,404,0)=" ;DBIA SECTION"
^XMB(3.9,36,2,405,0)="""RTN"",""GMRAFX"",4,0)"
^XMB(3.9,36,2,406,0)=" ;10118 - VALM"
^XMB(3.9,36,2,407,0)="""RTN"",""GMRAFX"",5,0)"
^XMB(3.9,36,2,408,0)=" ;2056  - DIQ"
^XMB(3.9,36,2,409,0)="""RTN"",""GMRAFX"",6,0)"
^XMB(3.9,36,2,410,0)=" ;3744  - $$TESTPAT^VADPT"
^XMB(3.9,36,2,411,0)="""RTN"",""GMRAFX"",7,0)"
^XMB(3.9,36,2,412,0)=" ;10006 - DIC"
^XMB(3.9,36,2,413,0)="""RTN"",""GMRAFX"",8,0)"
^XMB(3.9,36,2,414,0)=" ;10103 - XLFDT"
^XMB(3.9,36,2,415,0)="""RTN"",""GMRAFX"",9,0)"
^XMB(3.9,36,2,416,0)=" ;10102 - XQORM1"
^XMB(3.9,36,2,417,0)="""RTN"",""GMRAFX"",10,0)"
^XMB(3.9,36,2,418,0)=" ;10104 - XLFSTR"
^XMB(3.9,36,2,419,0)="""RTN"",""GMRAFX"",11,0)"
^XMB(3.9,36,2,420,0)=" ;10117 - VALM10"
^XMB(3.9,36,2,421,0)="""RTN"",""GMRAFX"",12,0)"
^XMB(3.9,36,2,422,0)=" ;10116 - VALM1"
^XMB(3.9,36,2,423,0)="""RTN"",""GMRAFX"",13,0)"
^XMB(3.9,36,2,424,0)=" ;10026 - DIR"
^XMB(3.9,36,2,425,0)="""RTN"",""GMRAFX"",14,0)"
^XMB(3.9,36,2,426,0)=" ;10018 - DIE"
^XMB(3.9,36,2,427,0)="""RTN"",""GMRAFX"",15,0)"
^XMB(3.9,36,2,428,0)=" ;10013 - DIK"
^XMB(3.9,36,2,429,0)="""RTN"",""GMRAFX"",16,0)"
^XMB(3.9,36,2,430,0)=" ;10061 - VADPT"
^XMB(3.9,36,2,431,0)="""RTN"",""GMRAFX"",17,0)"
^XMB(3.9,36,2,432,0)=" ;10101 - XQOR"
^XMB(3.9,36,2,433,0)="""RTN"",""GMRAFX"",18,0)"
^XMB(3.9,36,2,434,0)=" ;"
^XMB(3.9,36,2,435,0)="""RTN"",""GMRAFX"",19,0)"
^XMB(3.9,36,2,436,0)="EN ; -- main entry point for GMRA FIX"
^XMB(3.9,36,2,437,0)="""RTN"",""GMRAFX"",20,0)"
^XMB(3.9,36,2,438,0)=" N NMBR,REBLD,Y,DIR,I,LTYPE"
^XMB(3.9,36,2,439,0)="""RTN"",""GMRAFX"",21,0)"
^XMB(3.9,36,2,440,0)=" S LTYPE=$$GETTYPE^GMRAFX3(.LTYPE) Q:LTYPE=0"
^XMB(3.9,36,2,441,0)="""RTN"",""GMRAFX"",22,0)"
^XMB(3.9,36,2,442,0)=" I $D(^XTMP(""GMRAFX"",LTYPE,""B"")) W !,""The list is currently being built by another user so this option is"",!,""temporarily unavailable.  Please try again in a few minutes."" Q"
^XMB(3.9,36,2,443,0)="""RTN"",""GMRAFX"",23,0)"
^XMB(3.9,36,2,444,0)=" I $D(^XTMP(""GMRAFX"",LTYPE,""INUSE"")) D"
^XMB(3.9,36,2,445,0)="""RTN"",""GMRAFX"",24,0)"
^XMB(3.9,36,2,446,0)=" .W !,""The utility is currently in use by the following people:"",!"
^XMB(3.9,36,2,447,0)="""RTN"",""GMRAFX"",25,0)"
^XMB(3.9,36,2,448,0)=" .S I=0 F  S I=$O(^XTMP(""GMRAFX"",LTYPE,""INUSE"",I)) Q:'+I  W !,$$GET1^DIQ(200,I,.01)"
^XMB(3.9,36,2,449,0)="""RTN"",""GMRAFX"",26,0)"
^XMB(3.9,36,2,450,0)=" .W !!,""As a result, the existing ""_$S(LTYPE=""FREE"":""free text"",LTYPE=""ING"":""ingredient"",1:""drug class"")_"" list will be used."" D WAIT^GMRAFX3"
^XMB(3.9,36,2,451,0)="""RTN"",""GMRAFX"",27,0)"
^XMB(3.9,36,2,452,0)=" I $D(^XTMP(""GMRAFX"",LTYPE)),'$D(^XTMP(""GMRAFX"",LTYPE,""INUSE"")) D"
^XMB(3.9,36,2,453,0)="""RTN"",""GMRAFX"",28,0)"
^XMB(3.9,36,2,454,0)=" .W !,""The ""_$S(LTYPE=""FREE"":""free text"",LTYPE=""ING"":""ingredient"",1:""drug class"")_"" list was last built on "",$$FMTE^XLFDT($P(^XTMP(""GMRAFX"",LTYPE,0),U,2)),!"
^XMB(3.9,36,2,455,0)="""RTN"",""GMRAFX"",29,0)"
^XMB(3.9,36,2,456,0)=" .S DIR(0)=""Y"",DIR(""A"")=""Do you want to rebuild the list"",DIR(""B"")=""NO"",DIR(""?"")=""Enter yes to rebuild the list of entries.  Enter NO to use the currently existing list"""
^XMB(3.9,36,2,457,0)="""RTN"",""GMRAFX"",30,0)"
^XMB(3.9,36,2,458,0)=" .D ^DIR I Y=1 K ^XTMP(""GMRAFX"",LTYPE) S REBLD=1"
^XMB(3.9,36,2,459,0)="""RTN"",""GMRAFX"",31,0)"
^XMB(3.9,36,2,460,0)=" I $G(REBLD)!('$D(^XTMP(""GMRAFX"",LTYPE))) W !,""Building list of ""_$S(LTYPE=""FREE"":""free text"",LTYPE=""ING"":""ingredient"",1:""drug class"")_"" allergies...this may take a few minutes"",!"
^XMB(3.9,36,2,461,0)="""RTN"",""GMRAFX"",32,0)"
^XMB(3.9,36,2,462,0)=" S ^XTMP(""GMRAFX"",LTYPE,""INUSE"",+$G(DUZ))="""""
^XMB(3.9,36,2,463,0)="""RTN"",""GMRAFX"",33,0)"
^XMB(3.9,36,2,464,0)=" D EN^VALM(""GMRA FIX"")"
^XMB(3.9,36,2,465,0)="""RTN"",""GMRAFX"",34,0)"
^XMB(3.9,36,2,466,0)=" K ^XTMP(""GMRAFX"",LTYPE,""INUSE"",+$G(DUZ))"
^XMB(3.9,36,2,467,0)="""RTN"",""GMRAFX"",35,0)"
^XMB(3.9,36,2,468,0)=" Q"
^XMB(3.9,36,2,469,0)="""RTN"",""GMRAFX"",36,0)"
^XMB(3.9,36,2,470,0)=" ;"
^XMB(3.9,36,2,471,0)="""RTN"",""GMRAFX"",37,0)"
^XMB(3.9,36,2,472,0)="HDR ; -- header code"
^XMB(3.9,36,2,473,0)="""RTN"",""GMRAFX"",38,0)"
^XMB(3.9,36,2,474,0)=" S VALMHDR(1)=""Allergy Tracking ""_$S(LTYPE=""FREE"":""Free Text"",LTYPE=""ING"":""Ingredient"",1:""Drug CLass"")_"" Entries"""
^XMB(3.9,36,2,475,0)="""RTN"",""GMRAFX"",39,0)"
^XMB(3.9,36,2,476,0)=" Q"
^XMB(3.9,36,2,477,0)="""RTN"",""GMRAFX"",40,0)"
^XMB(3.9,36,2,478,0)="PHDR ;"
^XMB(3.9,36,2,479,0)="""RTN"",""GMRAFX"",41,0)"
^XMB(3.9,36,2,480,0)=" S VALMSG=""Select one or more entries"""
^XMB(3.9,36,2,481,0)="""RTN"",""GMRAFX"",42,0)"
^XMB(3.9,36,2,482,0)=" S XQORM(""#"")=$$FIND1^DIC(101,,""BX"",""GMRA FIX FREE TEXT LIST"") ;19"
^XMB(3.9,36,2,483,0)="""RTN"",""GMRAFX"",43,0)"
^XMB(3.9,36,2,484,0)=" D SHOW^VALM"
^XMB(3.9,36,2,485,0)="""RTN"",""GMRAFX"",44,0)"
^XMB(3.9,36,2,486,0)=" Q"
^XMB(3.9,36,2,487,0)="""RTN"",""GMRAFX"",45,0)"
^XMB(3.9,36,2,488,0)=" ;"
^XMB(3.9,36,2,489,0)="""RTN"",""GMRAFX"",46,0)"
^XMB(3.9,36,2,490,0)="INIT ;Initialize variables, etc"
^XMB(3.9,36,2,491,0)="""RTN"",""GMRAFX"",47,0)"
^XMB(3.9,36,2,492,0)=" S VALMBCK="""",VALMBG=$S($G(VALMBG)'="""":VALMBG,1:1),VALMCNT=$S($D(^XTMP(""GMRAFX"",LTYPE,0)):$P(^(0),U,3),1:0),VALMWD=80"
^XMB(3.9,36,2,493,0)="""RTN"",""GMRAFX"",48,0)"
^XMB(3.9,36,2,494,0)=" Q"
^XMB(3.9,36,2,495,0)="""RTN"",""GMRAFX"",49,0)"
^XMB(3.9,36,2,496,0)="LIST ; -- obtain and display list of free text allergies"
^XMB(3.9,36,2,497,0)="""RTN"",""GMRAFX"",50,0)"
^XMB(3.9,36,2,498,0)=" N GMRAIEN,GMRAOTH,GMRATXT,GMRAUTXT,SP1,SP2,SP3,UP,TXT"
^XMB(3.9,36,2,499,0)="""RTN"",""GMRAFX"",51,0)"
^XMB(3.9,36,2,500,0)=" S VALMBCK=""R"",VALMCNT=0"
^XMB(3.9,36,2,501,0)="""RTN"",""GMRAFX"",52,0)"
^XMB(3.9,36,2,502,0)=" K ^XTMP(""GMRAFX"",LTYPE) S ^XTMP(""GMRAFX"",LTYPE,""B"")="""",^XTMP(""GMRAFX"",LTYPE,""INUSE"",+$G(DUZ))="""""
^XMB(3.9,36,2,503,0)="""RTN"",""GMRAFX"",53,0)"
^XMB(3.9,36,2,504,0)=" S GMRAOTH=$O(^GMRD(120.82,""B"",""OTHER ALLERGY/ADVERSE REACTION"",0))_"";GMRD(120.82,"" ;Gets IEN;FILE ENTRY for free text entries"
^XMB(3.9,36,2,505,0)="""RTN"",""GMRAFX"",54,0)"
^XMB(3.9,36,2,506,0)=" S GMRAIEN=0 F  S GMRAIEN=$O(^GMR(120.8,GMRAIEN)) Q:'+GMRAIEN  D"
^XMB(3.9,36,2,507,0)="""RTN"",""GMRAFX"",55,0)"
^XMB(3.9,36,2,508,0)=" .I LTYPE=""FREE"" I $P($G(^GMR(120.8,GMRAIEN,0)),U,3)'=GMRAOTH Q"
^XMB(3.9,36,2,509,0)="""RTN"",""GMRAFX"",56,0)"
^XMB(3.9,36,2,510,0)=" .I LTYPE=""ING"" I $P($G(^GMR(120.8,GMRAIEN,0)),U,3)'[""50.416"" Q"
^XMB(3.9,36,2,511,0)="""RTN"",""GMRAFX"",57,0)"
^XMB(3.9,36,2,512,0)=" .I LTYPE=""DRUG"" I $P($G(^GMR(120.8,GMRAIEN,0)),U,3)'[""50.605"" Q"
^XMB(3.9,36,2,513,0)="""RTN"",""GMRAFX"",58,0)"
^XMB(3.9,36,2,514,0)=" .Q:+$G(^GMR(120.8,GMRAIEN,""ER""))  ;Quit if reactant entered in error"
^XMB(3.9,36,2,515,0)="""RTN"",""GMRAFX"",59,0)"
^XMB(3.9,36,2,516,0)=" .Q:$$DECEASED(+$P($G(^GMR(120.8,GMRAIEN,0)),U))  ;Don't report expired patients"
^XMB(3.9,36,2,517,0)="""RTN"",""GMRAFX"",60,0)"
^XMB(3.9,36,2,518,0)=" .Q:$$TESTPAT^VADPT($P($G(^GMR(120.8,GMRAIEN,0)),U))  ;Don't report test patients"
^XMB(3.9,36,2,519,0)="""RTN"",""GMRAFX"",61,0)"
^XMB(3.9,36,2,520,0)=" .S GMRATXT=$E($P($G(^GMR(120.8,GMRAIEN,0)),U,2),1,75) ;Get ""reactant"" text entry, no more than 75 characters"
^XMB(3.9,36,2,521,0)="""RTN"",""GMRAFX"",62,0)"
^XMB(3.9,36,2,522,0)=" .S GMRATXT=$TR(GMRATXT,"""""""","""") ;19 remove quote marks from text"
^XMB(3.9,36,2,523,0)="""RTN"",""GMRAFX"",63,0)"
^XMB(3.9,36,2,524,0)=" .S GMRAUTXT=$$UP^XLFSTR(GMRATXT) ;Convert to upper case"
^XMB(3.9,36,2,525,0)="""RTN"",""GMRAFX"",64,0)"
^XMB(3.9,36,2,526,0)=" .S ^XTMP(""GMRAFX"",LTYPE,""GMRAR"",GMRAUTXT,GMRATXT)=$G(^XTMP(""GMRAFX"",LTYPE,""GMRAR"",GMRAUTXT,GMRATXT))+1 ;# of active entries"
^XMB(3.9,36,2,527,0)="""RTN"",""GMRAFX"",65,0)"
^XMB(3.9,36,2,528,0)=" .S ^XTMP(""GMRAFX"",LTYPE,""GMRAR"",GMRAUTXT,GMRATXT,GMRAIEN)="""" ;Store entry number"
^XMB(3.9,36,2,529,0)="""RTN"",""GMRAFX"",66,0)"
^XMB(3.9,36,2,530,0)=" .Q"
^XMB(3.9,36,2,531,0)="""RTN"",""GMRAFX"",67,0)"
^XMB(3.9,36,2,532,0)=" S UP="""" F  S UP=$O(^XTMP(""GMRAFX"",LTYPE,""GMRAR"",UP)) Q:UP=""""  S TXT="""" F  S TXT=$O(^XTMP(""GMRAFX"",LTYPE,""GMRAR"",UP,TXT)) Q:TXT=""""  D"
^XMB(3.9,36,2,533,0)="""RTN"",""GMRAFX"",68,0)"
^XMB(3.9,36,2,534,0)=" .S VALMCNT=VALMCNT+1"
^XMB(3.9,36,2,535,0)="""RTN"",""GMRAFX"",69,0)"
^XMB(3.9,36,2,536,0)=" .S SP1=4-$L(VALMCNT),SP2=40-$L(TXT),SP3=16-$L(^XTMP(""GMRAFX"",LTYPE,""GMRAR"",UP,TXT))\2 ;Set up spacing before storing"
^XMB(3.9,36,2,537,0)="""RTN"",""GMRAFX"",70,0)"
^XMB(3.9,36,2,538,0)=" .D SET^VALM10(VALMCNT,VALMCNT_$$REPEAT^XLFSTR("" "",SP1)_TXT_$$REPEAT^XLFSTR("" "",SP2)_$$REPEAT^XLFSTR("" "",SP3)_^XTMP(""GMRAFX"",LTYPE,""GMRAR"",UP,TXT))"
^XMB(3.9,36,2,539,0)="""RTN"",""GMRAFX"",71,0)"
^XMB(3.9,36,2,540,0)=" .S ^XTMP(""GMRAFX"",LTYPE,""IDX"",VALMCNT)=UP_""^""_TXT"
^XMB(3.9,36,2,541,0)="""RTN"",""GMRAFX"",72,0)"
^XMB(3.9,36,2,542,0)=" K ^XTMP(""GMRAFX"",LTYPE,""B"") ;Done building"
^XMB(3.9,36,2,543,0)="""RTN"",""GMRAFX"",73,0)"
^XMB(3.9,36,2,544,0)=" S ^XTMP(""GMRAFX"",LTYPE,0)=$$FMADD^XLFDT(DT,30)_U_DT_U_$G(VALMCNT)"
^XMB(3.9,36,2,545,0)="""RTN"",""GMRAFX"",74,0)"
^XMB(3.9,36,2,546,0)=" Q"
^XMB(3.9,36,2,547,0)="""RTN"",""GMRAFX"",75,0)"
^XMB(3.9,36,2,548,0)=" ;"
^XMB(3.9,36,2,549,0)="""RTN"",""GMRAFX"",76,0)"
^XMB(3.9,36,2,550,0)="HELP ; -- help code"
^XMB(3.9,36,2,551,0)="""RTN"",""GMRAFX"",77,0)"
^XMB(3.9,36,2,552,0)=" D FULL^VALM1"
^XMB(3.9,36,2,553,0)="""RTN"",""GMRAFX"",78,0)"
^XMB(3.9,36,2,554,0)=" W !!,""Use AE to add local allergies to the GMR ALLERGY file.  This"",!,""should only be done if you're sure no existing reactant matches your needs."""
^XMB(3.9,36,2,555,0)="""RTN"",""GMRAFX"",79,0)"
^XMB(3.9,36,2,556,0)=" W !!,""Use EE to mark all entries within the selected group as entered"",!,""in error.  You may select multiple groups if you like."""
^XMB(3.9,36,2,557,0)="""RTN"",""GMRAFX"",80,0)"
^XMB(3.9,36,2,558,0)=" W !!,""Use DD to get a detailed display.  It's highly recommended that you"",!,""use the detailed display menu to make all changes."""
^XMB(3.9,36,2,559,0)="""RTN"",""GMRAFX"",81,0)"
^XMB(3.9,36,2,560,0)=" W !!,""Use UR to update the reactant.  Extreme caution should be used when doing"",!,""mass updates.  It would be better to do the updates from within"",!,""the detailed display menu."",!"
^XMB(3.9,36,2,561,0)="""RTN"",""GMRAFX"",82,0)"
^XMB(3.9,36,2,562,0)=" D WAIT^GMRAFX3 S VALMBCK=""R"""
^XMB(3.9,36,2,563,0)="""RTN"",""GMRAFX"",83,0)"
^XMB(3.9,36,2,564,0)=" Q"
^XMB(3.9,36,2,565,0)="""RTN"",""GMRAFX"",84,0)"
^XMB(3.9,36,2,566,0)=" ;"
^XMB(3.9,36,2,567,0)="""RTN"",""GMRAFX"",85,0)"
^XMB(3.9,36,2,568,0)="EXIT ; -- exit code"
^XMB(3.9,36,2,569,0)="""RTN"",""GMRAFX"",86,0)"
^XMB(3.9,36,2,570,0)=" D FULL^VALM1"
^XMB(3.9,36,2,571,0)="""RTN"",""GMRAFX"",87,0)"
^XMB(3.9,36,2,572,0)=" D DESELECT  ;Clear any remaining items"
^XMB(3.9,36,2,573,0)="""RTN"",""GMRAFX"",88,0)"
^XMB(3.9,36,2,574,0)=" Q"
^XMB(3.9,36,2,575,0)="""RTN"",""GMRAFX"",89,0)"
^XMB(3.9,36,2,576,0)=" ;"
^XMB(3.9,36,2,577,0)="""RTN"",""GMRAFX"",90,0)"
^XMB(3.9,36,2,578,0)="EXPND ; -- expand code"
^XMB(3.9,36,2,579,0)="""RTN"",""GMRAFX"",91,0)"
^XMB(3.9,36,2,580,0)=" Q"
^XMB(3.9,36,2,581,0)="""RTN"",""GMRAFX"",92,0)"
^XMB(3.9,36,2,582,0)=" ;"
^XMB(3.9,36,2,583,0)="""RTN"",""GMRAFX"",93,0)"
^XMB(3.9,36,2,584,0)="CHKSEL ;Evaluate selection if done by number"
^XMB(3.9,36,2,585,0)="""RTN"",""GMRAFX"",94,0)"
^XMB(3.9,36,2,586,0)=" N J,TMP,DIR,NUM,X,Y,TNMBR"
^XMB(3.9,36,2,587,0)="""RTN"",""GMRAFX"",95,0)"
^XMB(3.9,36,2,588,0)=" S VALMBCK=""R"""
^XMB(3.9,36,2,589,0)="""RTN"",""GMRAFX"",96,0)"
^XMB(3.9,36,2,590,0)=" S NUM=$P($G(XQORNOD(0)),""="",2) ;get currently selected entries"
^XMB(3.9,36,2,591,0)="""RTN"",""GMRAFX"",97,0)"
^XMB(3.9,36,2,592,0)=" I NUM'="""" D"
^XMB(3.9,36,2,593,0)="""RTN"",""GMRAFX"",98,0)"
^XMB(3.9,36,2,594,0)=" .I NUM=$G(NMBR) D DESELECT Q  ;If user selects same entry without taking an entry, unhighlight and stop processing"
^XMB(3.9,36,2,595,0)="""RTN"",""GMRAFX"",99,0)"
^XMB(3.9,36,2,596,0)=" .D DESELECT:$G(NMBR) ;If user previously selected entries but took no action, unhighlight before highlighting new choices"
^XMB(3.9,36,2,597,0)="""RTN"",""GMRAFX"",100,0)"
^XMB(3.9,36,2,598,0)=" .S NMBR=$P(XQORNOD(0),""="",2),DIR(0)=""L^""_""1:""_VALMCNT,X=NMBR,DIR(""V"")="""" D ^DIR K DIR"
^XMB(3.9,36,2,599,0)="""RTN"",""GMRAFX"",101,0)"
^XMB(3.9,36,2,600,0)=" .I Y="""" D FULL^VALM1 W !,""Invalid selection."" D WAIT^GMRAFX3 K NMBR Q  ;Selection out of range, stop processing"
^XMB(3.9,36,2,601,0)="""RTN"",""GMRAFX"",102,0)"
^XMB(3.9,36,2,602,0)=" .S TNMBR="""""
^XMB(3.9,36,2,603,0)="""RTN"",""GMRAFX"",103,0)"
^XMB(3.9,36,2,604,0)=" .F J=1:1:$L(NMBR,"","")-1 S TMP=$P(NMBR,"","",J) I $$LOCK^GMRAFX3(TMP) S TNMBR=TNMBR_TMP_"","" D CNTRL^VALM10(TMP,1,+$G(VALMWD),IORVON,IORVOFF)"
^XMB(3.9,36,2,605,0)="""RTN"",""GMRAFX"",104,0)"
^XMB(3.9,36,2,606,0)=" .I TNMBR="""" K NMBR Q"
^XMB(3.9,36,2,607,0)="""RTN"",""GMRAFX"",105,0)"
^XMB(3.9,36,2,608,0)=" .S NMBR=TNMBR"
^XMB(3.9,36,2,609,0)="""RTN"",""GMRAFX"",106,0)"
^XMB(3.9,36,2,610,0)=" Q"
^XMB(3.9,36,2,611,0)="""RTN"",""GMRAFX"",107,0)"
^XMB(3.9,36,2,612,0)=" ;"
^XMB(3.9,36,2,613,0)="""RTN"",""GMRAFX"",108,0)"
^XMB(3.9,36,2,614,0)="DESELECT ;Un-highlight selected choices"
^XMB(3.9,36,2,615,0)="""RTN"",""GMRAFX"",109,0)"
^XMB(3.9,36,2,616,0)=" N J,TMP"
^XMB(3.9,36,2,617,0)="""RTN"",""GMRAFX"",110,0)"
^XMB(3.9,36,2,618,0)=" F J=1:1:$L($G(NMBR),"","")-1 S TMP=$P(NMBR,"","",J) D CNTRL^VALM10(TMP,1,+$G(VALMWD),IORVOFF,IORVOFF) L -^XTMP(""GMRAFX"",""IDX"",TMP)"
^XMB(3.9,36,2,619,0)="""RTN"",""GMRAFX"",111,0)"
^XMB(3.9,36,2,620,0)=" K NMBR"
^XMB(3.9,36,2,621,0)="""RTN"",""GMRAFX"",112,0)"
^XMB(3.9,36,2,622,0)=" Q"
^XMB(3.9,36,2,623,0)="""RTN"",""GMRAFX"",113,0)"
^XMB(3.9,36,2,624,0)=" ;"
^XMB(3.9,36,2,625,0)="""RTN"",""GMRAFX"",114,0)"
^XMB(3.9,36,2,626,0)="AEA ; Entry for GMRA LOCAL ALLERGIES EDIT option"
^XMB(3.9,36,2,627,0)="""RTN"",""GMRAFX"",115,0)"
^XMB(3.9,36,2,628,0)=" S VALMBCK=""R"" D FULL^VALM1,PROCESS^GMRAFUT0,WAIT^GMRAFX3 Q  ;23"
^XMB(3.9,36,2,629,0)="""RTN"",""GMRAFX"",116,0)"
^XMB(3.9,36,2,630,0)=" N DLAYGO,DIC,Y,GMRAIEN,DA,GMRALN,DIE,GMRACT,DR,GMRAX,GMRAY,X"
^XMB(3.9,36,2,631,0)="""RTN"",""GMRAFX"",117,0)"
^XMB(3.9,36,2,632,0)=" S VALMBCK=""R"" D FULL^VALM1"
^XMB(3.9,36,2,633,0)="""RTN"",""GMRAFX"",118,0)"
^XMB(3.9,36,2,634,0)=" W ! S DLAYGO=120.82,DIC=""^GMRD(120.82,"",DIC(""A"")=""Select a LOCAL ALLERGY/ADVERSE REACTION: "",DIC(0)=""AEQML"",DIC(""DR"")=""1"" D ^DIC K DIC,DLAYGO Q:+Y'>0  S (DA,GMRAIEN)=+Y"
^XMB(3.9,36,2,635,0)="""RTN"",""GMRAFX"",119,0)"
^XMB(3.9,36,2,636,0)=" L +^GMRD(120.82,GMRAIEN):1 I '$T W !,""THIS ENTRY IS BEING EDITED BY SOMEONE ELSE"" Q"
^XMB(3.9,36,2,637,0)="""RTN"",""GMRAFX"",120,0)"
^XMB(3.9,36,2,638,0)=" S GMRALN=$G(^GMRD(120.82,GMRAIEN,0))"
^XMB(3.9,36,2,639,0)="""RTN"",""GMRAFX"",121,0)"
^XMB(3.9,36,2,640,0)=" S DIE=""^GMRD(120.82,"",DR="""",GMRACT=1"
^XMB(3.9,36,2,641,0)="""RTN"",""GMRAFX"",122,0)"
^XMB(3.9,36,2,642,0)=" I +$P(GMRALN,U,3) S DR(1,120.82,1)=""@1;W !!,$C(7),""""CANNOT EDIT NAME FIELD OF A NATIONAL ALLERGY."""",!;3;"""
^XMB(3.9,36,2,643,0)="""RTN"",""GMRAFX"",123,0)"
^XMB(3.9,36,2,644,0)=" E  D"
^XMB(3.9,36,2,645,0)="""RTN"",""GMRAFX"",124,0)"
^XMB(3.9,36,2,646,0)=" .S DR(1,120.82,1)="".01;3;"""
^XMB(3.9,36,2,647,0)="""RTN"",""GMRAFX"",125,0)"
^XMB(3.9,36,2,648,0)=" .S DR(1,120.82,2)=""S (GMRAY,GMRAX)=$P(GMRALN,U,2) D EDTTYPE^GMRAUTL(.GMRAX);"""
^XMB(3.9,36,2,649,0)="""RTN"",""GMRAFX"",126,0)"
^XMB(3.9,36,2,650,0)=" .S DR(1,120.82,3)=""S:GMRAX=GMRAY!(""""^^""""[GMRAX) X=GMRAX,Y=$S(""""^^""""[GMRAX:""""@3"""",1:""""@4"""");1///^S X=GMRAX;@4;4;5;@3;"""
^XMB(3.9,36,2,651,0)="""RTN"",""GMRAFX"",127,0)"
^XMB(3.9,36,2,652,0)=" .Q"
^XMB(3.9,36,2,653,0)="""RTN"",""GMRAFX"",128,0)"
^XMB(3.9,36,2,654,0)=" D ^DIE"
^XMB(3.9,36,2,655,0)="""RTN"",""GMRAFX"",129,0)"
^XMB(3.9,36,2,656,0)=" L -^GMRD(120.82,GMRAIEN)"
^XMB(3.9,36,2,657,0)="""RTN"",""GMRAFX"",130,0)"
^XMB(3.9,36,2,658,0)=" Q"
^XMB(3.9,36,2,659,0)="""RTN"",""GMRAFX"",131,0)"
^XMB(3.9,36,2,660,0)=" ;"
^XMB(3.9,36,2,661,0)="""RTN"",""GMRAFX"",132,0)"
^XMB(3.9,36,2,662,0)="PROCESS(TYPE) ;API to mark all entries as entered in error or update entries to new reactant"
^XMB(3.9,36,2,663,0)="""RTN"",""GMRAFX"",133,0)"
^XMB(3.9,36,2,664,0)=" N GMRAPA,GMRAI,GMRAJ,DIR,Y,ROOT,NUM,ENTRY,GMRADONE,STOP,J,TNMBR,GMRAAR,GMRASURE"
^XMB(3.9,36,2,665,0)="""RTN"",""GMRAFX"",134,0)"
^XMB(3.9,36,2,666,0)=" S VALMBCK=""R"" D FULL^VALM1"
^XMB(3.9,36,2,667,0)="""RTN"",""GMRAFX"",135,0)"
^XMB(3.9,36,2,668,0)=" I '$G(NMBR) S NMBR=$$GETNUM^GMRAFX3("""") Q:'+NMBR  D  Q:'+$G(NMBR)"
^XMB(3.9,36,2,669,0)="""RTN"",""GMRAFX"",136,0)"
^XMB(3.9,36,2,670,0)=" .S TNMBR="""""
^XMB(3.9,36,2,671,0)="""RTN"",""GMRAFX"",137,0)"
^XMB(3.9,36,2,672,0)=" .F J=1:1:$L(NMBR,"","")-1 S TMP=$P(NMBR,"","",J) I $$LOCK^GMRAFX3(TMP) S TNMBR=TNMBR_TMP_"","""
^XMB(3.9,36,2,673,0)="""RTN"",""GMRAFX"",138,0)"
^XMB(3.9,36,2,674,0)=" .I TNMBR="""" K NMBR Q"
^XMB(3.9,36,2,675,0)="""RTN"",""GMRAFX"",139,0)"
^XMB(3.9,36,2,676,0)=" .S NMBR=TNMBR"
^XMB(3.9,36,2,677,0)="""RTN"",""GMRAFX"",140,0)"
^XMB(3.9,36,2,678,0)=" I TYPE=""U"" W !!,""You should use the detailed display option to review entries in"",!,""this group before doing a mass update.  CHANGES CANNOT BE UN-DONE!"" D WAIT^GMRAFX3"
^XMB(3.9,36,2,679,0)="""RTN"",""GMRAFX"",141,0)"
^XMB(3.9,36,2,680,0)=" W !!,""You are about to "",$S(TYPE=""E"":""mark"",1:""update""),"" ALL allergies with the selected reactant "",!,$S(TYPE=""E"":""as entered in error."",1:""to a new reactant.""),!"
^XMB(3.9,36,2,681,0)="""RTN"",""GMRAFX"",142,0)"
^XMB(3.9,36,2,682,0)=" S DIR(0)=""Y"",DIR(""B"")=""NO"",DIR(""A"")=""ARE YOU SURE"""
^XMB(3.9,36,2,683,0)="""RTN"",""GMRAFX"",143,0)"
^XMB(3.9,36,2,684,0)=" S DIR(""?"")=""If you're unsure, use the 'detailed display' option to get a list of individual patients."""
^XMB(3.9,36,2,685,0)="""RTN"",""GMRAFX"",144,0)"
^XMB(3.9,36,2,686,0)=" S DIR(""?"",1)=""Answering YES to this prompt will cause all allergies associated with"""
^XMB(3.9,36,2,687,0)="""RTN"",""GMRAFX"",145,0)"
^XMB(3.9,36,2,688,0)=" S DIR(""?"",2)=""the selected reactant to be ""_$S(TYPE=""E"":""marked as entered in error."",1:""updated to the new reactant."")"
^XMB(3.9,36,2,689,0)="""RTN"",""GMRAFX"",146,0)"
^XMB(3.9,36,2,690,0)=" S DIR(""?"",3)="""""
^XMB(3.9,36,2,691,0)="""RTN"",""GMRAFX"",147,0)"
^XMB(3.9,36,2,692,0)=" S DIR(""?"",4)=""Be SURE this is what you want to do."""
^XMB(3.9,36,2,693,0)="""RTN"",""GMRAFX"",148,0)"
^XMB(3.9,36,2,694,0)=" D ^DIR Q:Y'=1  ;Stop if user doesn't answer yes"
^XMB(3.9,36,2,695,0)="""RTN"",""GMRAFX"",149,0)"
^XMB(3.9,36,2,696,0)=" F GMRAI=1:1:($L(NMBR,"","")-1) D"
^XMB(3.9,36,2,697,0)="""RTN"",""GMRAFX"",150,0)"
^XMB(3.9,36,2,698,0)=" .S NUM=$P(NMBR,"","",GMRAI),ENTRY=^XTMP(""GMRAFX"",LTYPE,""IDX"",NUM),STOP=0"
^XMB(3.9,36,2,699,0)="""RTN"",""GMRAFX"",151,0)"
^XMB(3.9,36,2,700,0)=" .S ROOT=""^XTMP(""""GMRAFX"""",LTYPE,""""GMRAR"""",""_""""""""_$P(ENTRY,""^"")_""""""""_"",""_""""""""_$P(ENTRY,""^"",2)_""""""""_"")"",GMRAJ=0 Q:'@ROOT"
^XMB(3.9,36,2,701,0)="""RTN"",""GMRAFX"",152,0)"
^XMB(3.9,36,2,702,0)=" .I TYPE=""U"" W !!,""Updating "",$P(ENTRY,U),"" reactions"""
^XMB(3.9,36,2,703,0)="""RTN"",""GMRAFX"",153,0)"
^XMB(3.9,36,2,704,0)=" .F  S GMRAJ=$O(@ROOT@(GMRAJ)) Q:GMRAJ=""""!($G(STOP))  I GMRAJ D"
^XMB(3.9,36,2,705,0)="""RTN"",""GMRAFX"",154,0)"
^XMB(3.9,36,2,706,0)=" ..S GMRAPA=GMRAJ,GMRADONE=1 D @$S(TYPE=""E"":""EIE"",1:""UIE^GMRAFX3"")"
^XMB(3.9,36,2,707,0)="""RTN"",""GMRAFX"",155,0)"
^XMB(3.9,36,2,708,0)=" ..D:GMRADONE UPDATE^GMRAFX3"
^XMB(3.9,36,2,709,0)="""RTN"",""GMRAFX"",156,0)"
^XMB(3.9,36,2,710,0)=" Q"
^XMB(3.9,36,2,711,0)="""RTN"",""GMRAFX"",157,0)"
^XMB(3.9,36,2,712,0)=" ;"
^XMB(3.9,36,2,713,0)="""RTN"",""GMRAFX"",158,0)"
^XMB(3.9,36,2,714,0)="EIE ;Mark individual entry as entered in error"
^XMB(3.9,36,2,715,0)="""RTN"",""GMRAFX"",159,0)"
^XMB(3.9,36,2,716,0)=" D EIE^GMRAFX3 ;Moved due to size limits"
^XMB(3.9,36,2,717,0)="""RTN"",""GMRAFX"",160,0)"
^XMB(3.9,36,2,718,0)=" Q"
^XMB(3.9,36,2,719,0)="""RTN"",""GMRAFX"",161,0)"
^XMB(3.9,36,2,720,0)=" ;"
^XMB(3.9,36,2,721,0)="""RTN"",""GMRAFX"",162,0)"
^XMB(3.9,36,2,722,0)="DECEASED(GMRAIFN) ;Function returns 1 if patient is deceased, 0 if living"
^XMB(3.9,36,2,723,0)="""RTN"",""GMRAFX"",163,0)"
^XMB(3.9,36,2,724,0)=" N DFN,VADM"
^XMB(3.9,36,2,725,0)="""RTN"",""GMRAFX"",164,0)"
^XMB(3.9,36,2,726,0)=" Q:GMRAIFN=0 1  ;If no patient entry return true"
^XMB(3.9,36,2,727,0)="""RTN"",""GMRAFX"",165,0)"
^XMB(3.9,36,2,728,0)=" S DFN=GMRAIFN"
^XMB(3.9,36,2,729,0)="""RTN"",""GMRAFX"",166,0)"
^XMB(3.9,36,2,730,0)=" D DEM^VADPT"
^XMB(3.9,36,2,731,0)="""RTN"",""GMRAFX"",167,0)"
^XMB(3.9,36,2,732,0)=" Q $S(+VADM(6):1,1:0)  ;VADM(6) holds date of death"
^XMB(3.9,36,2,733,0)="""RTN"",""GMRAFX"",168,0)"
^XMB(3.9,36,2,734,0)=" ;"
^XMB(3.9,36,2,735,0)="""RTN"",""GMRAFX"",169,0)"
^XMB(3.9,36,2,736,0)="ADCOM(ENTRY,TYPE,COM) ;Add comment to allergy"
^XMB(3.9,36,2,737,0)="""RTN"",""GMRAFX"",170,0)"
^XMB(3.9,36,2,738,0)=" N DIC,DIE,DR,DA,Y,X"
^XMB(3.9,36,2,739,0)="""RTN"",""GMRAFX"",171,0)"
^XMB(3.9,36,2,740,0)=" S DA(1)=ENTRY"
^XMB(3.9,36,2,741,0)="""RTN"",""GMRAFX"",172,0)"
^XMB(3.9,36,2,742,0)=" S DIC=""^GMR(120.8,""_DA(1)_"",26,"",DIC(0)=""L"" F  S X=$$NOW^XLFDT Q:'$D(^GMR(120.8,DA(1),26,""B"",X))  ;23 Don't allow duplicate entries"
^XMB(3.9,36,2,743,0)="""RTN"",""GMRAFX"",173,0)"
^XMB(3.9,36,2,744,0)=" D ^DIC Q:Y=-1  ;add new comment multiple"
^XMB(3.9,36,2,745,0)="""RTN"",""GMRAFX"",174,0)"
^XMB(3.9,36,2,746,0)=" S DA=+Y"
^XMB(3.9,36,2,747,0)="""RTN"",""GMRAFX"",175,0)"
^XMB(3.9,36,2,748,0)=" S DIE=DIC K DIC"
^XMB(3.9,36,2,749,0)="""RTN"",""GMRAFX"",176,0)"
^XMB(3.9,36,2,750,0)=" S DR=""1////""_$G(DUZ,.5)_"";1.5///""_TYPE_"";2///""_$TR(COM,"";"","" "") ;remove semi-colon from free text"
^XMB(3.9,36,2,751,0)="""RTN"",""GMRAFX"",177,0)"
^XMB(3.9,36,2,752,0)=" D ^DIE ;Comment added by user"
^XMB(3.9,36,2,753,0)="""RTN"",""GMRAFX"",178,0)"
^XMB(3.9,36,2,754,0)=" Q"
^XMB(3.9,36,2,755,0)="""RTN"",""GMRAFX1"")"
^XMB(3.9,36,2,756,0)="0^2^B32262757^B31454366"
^XMB(3.9,36,2,757,0)="""RTN"",""GMRAFX1"",1,0)"
^XMB(3.9,36,2,758,0)="GMRAFX1 ;SLC/DAN Fix existing allergy entries-continued ;10/6/05  11:42"
^XMB(3.9,36,2,759,0)="""RTN"",""GMRAFX1"",2,0)"
^XMB(3.9,36,2,760,0)=" ;;4.0;Adverse Reaction Tracking;**17,19,20**;Mar 29, 1996;Build 1"
^XMB(3.9,36,2,761,0)="""RTN"",""GMRAFX1"",3,0)"
^XMB(3.9,36,2,762,0)=" ;DBIA SECTION"
^XMB(3.9,36,2,763,0)="""RTN"",""GMRAFX1"",4,0)"
^XMB(3.9,36,2,764,0)=" ;10116 - VALM1"
^XMB(3.9,36,2,765,0)="""RTN"",""GMRAFX1"",5,0)"
^XMB(3.9,36,2,766,0)=" ;10102 - XQORM1"
^XMB(3.9,36,2,767,0)="""RTN"",""GMRAFX1"",6,0)"
^XMB(3.9,36,2,768,0)=" ;10104 - XLFSTR"
^XMB(3.9,36,2,769,0)="""RTN"",""GMRAFX1"",7,0)"
^XMB(3.9,36,2,770,0)=" ;10061 - VADPT"
^XMB(3.9,36,2,771,0)="""RTN"",""GMRAFX1"",8,0)"
^XMB(3.9,36,2,772,0)=" ;10017 - VALM10"
^XMB(3.9,36,2,773,0)="""RTN"",""GMRAFX1"",9,0)"
^XMB(3.9,36,2,774,0)=" ;10118 - VALM"
^XMB(3.9,36,2,775,0)="""RTN"",""GMRAFX1"",10,0)"
^XMB(3.9,36,2,776,0)=" ;10026 - DIR"
^XMB(3.9,36,2,777,0)="""RTN"",""GMRAFX1"",11,0)"
^XMB(3.9,36,2,778,0)=" ;"
^XMB(3.9,36,2,779,0)="""RTN"",""GMRAFX1"",12,0)"
^XMB(3.9,36,2,780,0)="DET ;Detailed listing of selected group"
^XMB(3.9,36,2,781,0)="""RTN"",""GMRAFX1"",13,0)"
^XMB(3.9,36,2,782,0)=" N DIR,Y,DTOUT,DUOUT,DIRUT,J,GMRAT,GMRAUT,DFN,GMRA,GMRAL,VADM,CNT,VAERR,K,LEN,NAME,ENTRY,NMBR2,ENMBR,GMRAR"
^XMB(3.9,36,2,783,0)="""RTN"",""GMRAFX1"",14,0)"
^XMB(3.9,36,2,784,0)=" S VALMBCK=""R"",CNT=0"
^XMB(3.9,36,2,785,0)="""RTN"",""GMRAFX1"",15,0)"
^XMB(3.9,36,2,786,0)=" K ^TMP($J,LTYPE,""GMRADET""),^TMP($J,LTYPE,""IDX2"")"
^XMB(3.9,36,2,787,0)="""RTN"",""GMRAFX1"",16,0)"
^XMB(3.9,36,2,788,0)=" S ENMBR=+NMBR ;get number portion of entry"
^XMB(3.9,36,2,789,0)="""RTN"",""GMRAFX1"",17,0)"
^XMB(3.9,36,2,790,0)=" S ENTRY=0"
^XMB(3.9,36,2,791,0)="""RTN"",""GMRAFX1"",18,0)"
^XMB(3.9,36,2,792,0)=" S GMRAUT=$P(^XTMP(""GMRAFX"",LTYPE,""IDX"",ENMBR),""^""),GMRAT=$P(^XTMP(""GMRAFX"",LTYPE,""IDX"",ENMBR),""^"",2)"
^XMB(3.9,36,2,793,0)="""RTN"",""GMRAFX1"",19,0)"
^XMB(3.9,36,2,794,0)=" S J=0 F  S J=$O(^XTMP(""GMRAFX"",LTYPE,""GMRAR"",GMRAUT,GMRAT,J)) Q:'+J  D"
^XMB(3.9,36,2,795,0)="""RTN"",""GMRAFX1"",20,0)"
^XMB(3.9,36,2,796,0)=" .S DFN=$P($G(^GMR(120.8,J,0)),""^""),GMRA=""0^0^111"" D ^GMRADPT ;Get patient allergies"
^XMB(3.9,36,2,797,0)="""RTN"",""GMRAFX1"",21,0)"
^XMB(3.9,36,2,798,0)=" .D DEM^VADPT ;Get patient information"
^XMB(3.9,36,2,799,0)="""RTN"",""GMRAFX1"",22,0)"
^XMB(3.9,36,2,800,0)=" .Q:$G(VAERR)  ;Quit if patient lookup produces an error"
^XMB(3.9,36,2,801,0)="""RTN"",""GMRAFX1"",23,0)"
^XMB(3.9,36,2,802,0)=" .S CNT=CNT+1,ENTRY=ENTRY+1"
^XMB(3.9,36,2,803,0)="""RTN"",""GMRAFX1"",24,0)"
^XMB(3.9,36,2,804,0)=" .S GMRAR(CNT)=VADM(1)_$$REPEAT^XLFSTR("" "",(32-$L(VADM(1))))_$E(VADM(2),6,9)_"" """
^XMB(3.9,36,2,805,0)="""RTN"",""GMRAFX1"",25,0)"
^XMB(3.9,36,2,806,0)=" .D SET^VALM10(CNT,ENTRY_$$REPEAT^XLFSTR("" "",(4-$L(ENTRY)))_GMRAR(CNT)) K GMRAR(CNT) ;19"
^XMB(3.9,36,2,807,0)="""RTN"",""GMRAFX1"",26,0)"
^XMB(3.9,36,2,808,0)=" .S ^TMP($J,LTYPE,""IDX2"",ENTRY)=CNT_""^""_J"
^XMB(3.9,36,2,809,0)="""RTN"",""GMRAFX1"",27,0)"
^XMB(3.9,36,2,810,0)=" .S CNT=CNT+1,LEN=0,GMRAR(CNT)=""Allergies: """
^XMB(3.9,36,2,811,0)="""RTN"",""GMRAFX1"",28,0)"
^XMB(3.9,36,2,812,0)=" .S K=0 F  S K=$O(GMRAL(K)) Q:'+K  D"
^XMB(3.9,36,2,813,0)="""RTN"",""GMRAFX1"",29,0)"
^XMB(3.9,36,2,814,0)=" ..S NAME=$P(GMRAL(K),""^"",2) ;Allergy name"
^XMB(3.9,36,2,815,0)="""RTN"",""GMRAFX1"",30,0)"
^XMB(3.9,36,2,816,0)=" ..S LEN=LEN+$L(NAME)+1"
^XMB(3.9,36,2,817,0)="""RTN"",""GMRAFX1"",31,0)"
^XMB(3.9,36,2,818,0)=" ..I LEN>70 D SET^VALM10(CNT,GMRAR(CNT)) K GMRAR(CNT) S CNT=CNT+1,LEN=$L(NAME)+1,GMRAR(CNT)=""   "" ;19"
^XMB(3.9,36,2,819,0)="""RTN"",""GMRAFX1"",32,0)"
^XMB(3.9,36,2,820,0)=" ..S GMRAR(CNT)=$G(GMRAR(CNT))_NAME_$S($O(GMRAL(K)):""~"",1:"""") D:'$O(GMRAL(K)) SET^VALM10(CNT,GMRAR(CNT)) ;19"
^XMB(3.9,36,2,821,0)="""RTN"",""GMRAFX1"",33,0)"
^XMB(3.9,36,2,822,0)=" S VALMCNT=CNT,^TMP($J,LTYPE,""IDX2"",0)=ENTRY"
^XMB(3.9,36,2,823,0)="""RTN"",""GMRAFX1"",34,0)"
^XMB(3.9,36,2,824,0)=" Q"
^XMB(3.9,36,2,825,0)="""RTN"",""GMRAFX1"",35,0)"
^XMB(3.9,36,2,826,0)=" ;"
^XMB(3.9,36,2,827,0)="""RTN"",""GMRAFX1"",36,0)"
^XMB(3.9,36,2,828,0)="HDR ; -- header code"
^XMB(3.9,36,2,829,0)="""RTN"",""GMRAFX1"",37,0)"
^XMB(3.9,36,2,830,0)=" S VALMHDR(1)=""Patient listing for reactant ""_$S(+$G(NMBR):$P(^XTMP(""GMRAFX"",LTYPE,""IDX"",+NMBR),""^""),1:"""")"
^XMB(3.9,36,2,831,0)="""RTN"",""GMRAFX1"",38,0)"
^XMB(3.9,36,2,832,0)=" Q"
^XMB(3.9,36,2,833,0)="""RTN"",""GMRAFX1"",39,0)"
^XMB(3.9,36,2,834,0)=" ;"
^XMB(3.9,36,2,835,0)="""RTN"",""GMRAFX1"",40,0)"
^XMB(3.9,36,2,836,0)="PHDR ;"
^XMB(3.9,36,2,837,0)="""RTN"",""GMRAFX1"",41,0)"
^XMB(3.9,36,2,838,0)=" S VALMSG=""Select a patient"""
^XMB(3.9,36,2,839,0)="""RTN"",""GMRAFX1"",42,0)"
^XMB(3.9,36,2,840,0)=" S XQORM(""#"")=$$FIND1^DIC(101,,""BX"",""GMRA FIX DETAIL MENU"") ;19"
^XMB(3.9,36,2,841,0)="""RTN"",""GMRAFX1"",43,0)"
^XMB(3.9,36,2,842,0)=" D SHOW^VALM"
^XMB(3.9,36,2,843,0)="""RTN"",""GMRAFX1"",44,0)"
^XMB(3.9,36,2,844,0)=" Q"
^XMB(3.9,36,2,845,0)="""RTN"",""GMRAFX1"",45,0)"
^XMB(3.9,36,2,846,0)=" ;"
^XMB(3.9,36,2,847,0)="""RTN"",""GMRAFX1"",46,0)"
^XMB(3.9,36,2,848,0)="INIT ; -- init variables and list array"
^XMB(3.9,36,2,849,0)="""RTN"",""GMRAFX1"",47,0)"
^XMB(3.9,36,2,850,0)=" N DIR"
^XMB(3.9,36,2,851,0)="""RTN"",""GMRAFX1"",48,0)"
^XMB(3.9,36,2,852,0)=" I '$G(NMBR) S NMBR=$$GETNUM^GMRAFX3(""DET"") S:'+NMBR VALMQUIT="""" Q:'+NMBR  I '$$LOCK^GMRAFX3(+NMBR) S VALMQUIT="""" Q"
^XMB(3.9,36,2,853,0)="""RTN"",""GMRAFX1"",49,0)"
^XMB(3.9,36,2,854,0)=" I $L($G(NMBR),"","")>2 D FULL^VALM1 W !,""Please select"",$S('$G(NMBR):"""",1:"" only""),"" one entry from the list."" S DIR(0)=""E"",DIR(""A"")=""Press enter to continue"" D ^DIR S VALMQUIT=1 Q"
^XMB(3.9,36,2,855,0)="""RTN"",""GMRAFX1"",50,0)"
^XMB(3.9,36,2,856,0)=" K ^TMP($J,LTYPE,""GMRADET""),^TMP($J,LTYPE,""IDX2"")"
^XMB(3.9,36,2,857,0)="""RTN"",""GMRAFX1"",51,0)"
^XMB(3.9,36,2,858,0)=" S VALMBCK="""",VALMBG=$G(VALMBG,1),VALMCNT=0,VALMWD=80"
^XMB(3.9,36,2,859,0)="""RTN"",""GMRAFX1"",52,0)"
^XMB(3.9,36,2,860,0)=" Q"
^XMB(3.9,36,2,861,0)="""RTN"",""GMRAFX1"",53,0)"
^XMB(3.9,36,2,862,0)=" ;"
^XMB(3.9,36,2,863,0)="""RTN"",""GMRAFX1"",54,0)"
^XMB(3.9,36,2,864,0)="CHKSEL ;Evaluate selection if done by number"
^XMB(3.9,36,2,865,0)="""RTN"",""GMRAFX1"",55,0)"
^XMB(3.9,36,2,866,0)=" N J,TMP,DIR,NUM,X,Y"
^XMB(3.9,36,2,867,0)="""RTN"",""GMRAFX1"",56,0)"
^XMB(3.9,36,2,868,0)=" S NUM=$P($G(XQORNOD(0)),""="",2) ;get currently selected entries"
^XMB(3.9,36,2,869,0)="""RTN"",""GMRAFX1"",57,0)"
^XMB(3.9,36,2,870,0)=" I NUM'="""" D"
^XMB(3.9,36,2,871,0)="""RTN"",""GMRAFX1"",58,0)"
^XMB(3.9,36,2,872,0)=" .I NUM=$G(NMBR2) D DESELECT Q  ;If user selects same entry without taking an entry, unhighlight and stop processing"
^XMB(3.9,36,2,873,0)="""RTN"",""GMRAFX1"",59,0)"
^XMB(3.9,36,2,874,0)=" .D DESELECT:$G(NMBR2) ;If user previously selected entries but took no action, unhighlight before highlighting new choices"
^XMB(3.9,36,2,875,0)="""RTN"",""GMRAFX1"",60,0)"
^XMB(3.9,36,2,876,0)=" .S NMBR2=$P(XQORNOD(0),""="",2),DIR(0)=""L^""_""1:""_$G(^TMP($J,LTYPE,""IDX2"",0)),X=NMBR2,DIR(""V"")="""" D ^DIR K DIR"
^XMB(3.9,36,2,877,0)="""RTN"",""GMRAFX1"",61,0)"
^XMB(3.9,36,2,878,0)=" .I Y="""" D FULL^VALM1 W !,""Invalid selection."" D WAIT^GMRAFX3 K NMBR2 Q  ;Selection out of range, stop processing"
^XMB(3.9,36,2,879,0)="""RTN"",""GMRAFX1"",62,0)"
^XMB(3.9,36,2,880,0)=" .F J=1:1:$L(NMBR2,"","")-1 S TMP=$P(NMBR2,"","",J) D CNTRL^VALM10(+^TMP($J,LTYPE,""IDX2"",TMP),1,+$G(VALMWD),IORVON,IORVOFF)"
^XMB(3.9,36,2,881,0)="""RTN"",""GMRAFX1"",63,0)"
^XMB(3.9,36,2,882,0)=" Q"
^XMB(3.9,36,2,883,0)="""RTN"",""GMRAFX1"",64,0)"
^XMB(3.9,36,2,884,0)=" ;"
^XMB(3.9,36,2,885,0)="""RTN"",""GMRAFX1"",65,0)"
^XMB(3.9,36,2,886,0)="DESELECT ;Un-highlight selected choices"
^XMB(3.9,36,2,887,0)="""RTN"",""GMRAFX1"",66,0)"
^XMB(3.9,36,2,888,0)=" N J,TMP"
^XMB(3.9,36,2,889,0)="""RTN"",""GMRAFX1"",67,0)"
^XMB(3.9,36,2,890,0)=" F J=1:1:$L($G(NMBR2),"","")-1 S TMP=$P(NMBR2,"","",J) D CNTRL^VALM10(+^TMP($J,LTYPE,""IDX2"",TMP),1,+$G(VALMWD),IORVOFF,IORVOFF)"
^XMB(3.9,36,2,891,0)="""RTN"",""GMRAFX1"",68,0)"
^XMB(3.9,36,2,892,0)=" K NMBR2"
^XMB(3.9,36,2,893,0)="""RTN"",""GMRAFX1"",69,0)"
^XMB(3.9,36,2,894,0)=" Q"
^XMB(3.9,36,2,895,0)="""RTN"",""GMRAFX1"",70,0)"
^XMB(3.9,36,2,896,0)="HELP ; -- help code"
^XMB(3.9,36,2,897,0)="""RTN"",""GMRAFX1"",71,0)"
^XMB(3.9,36,2,898,0)=" D FULL^VALM1"
^XMB(3.9,36,2,899,0)="""RTN"",""GMRAFX1"",72,0)"
^XMB(3.9,36,2,900,0)=" W !!,""Use AE to add local allergies to the GMR ALLERGY file.  This"",!,""should only be done if you're sure no existing reactant matches your needs."""
^XMB(3.9,36,2,901,0)="""RTN"",""GMRAFX1"",73,0)"
^XMB(3.9,36,2,902,0)=" W !!,""Use EE to mark all selected entries as entered"",!,""in error.  You may select multiple patients if you like."""
^XMB(3.9,36,2,903,0)="""RTN"",""GMRAFX1"",74,0)"
^XMB(3.9,36,2,904,0)=" W !!,""Use UR to update the reactant.  Extreme caution should be used when updating"",!,""reactants.  You may select multiple patients if you like,"""
^XMB(3.9,36,2,905,0)="""RTN"",""GMRAFX1"",75,0)"
^XMB(3.9,36,2,906,0)=" W !!,""Use PR to add new allergies for the selected patient in"",!,""addition to the ones listed here."""
^XMB(3.9,36,2,907,0)="""RTN"",""GMRAFX1"",76,0)"
^XMB(3.9,36,2,908,0)=" W !!,""Use DD to get details about the allergy entry that you're"",!,""currently working on for this patient."",!"
^XMB(3.9,36,2,909,0)="""RTN"",""GMRAFX1"",77,0)"
^XMB(3.9,36,2,910,0)=" D WAIT^GMRAFX3 S VALMBCK=""R"""
^XMB(3.9,36,2,911,0)="""RTN"",""GMRAFX1"",78,0)"
^XMB(3.9,36,2,912,0)=" Q"
^XMB(3.9,36,2,913,0)="""RTN"",""GMRAFX1"",79,0)"
^XMB(3.9,36,2,914,0)=" ;"
^XMB(3.9,36,2,915,0)="""RTN"",""GMRAFX1"",80,0)"
^XMB(3.9,36,2,916,0)="EXIT ; -- exit code"
^XMB(3.9,36,2,917,0)="""RTN"",""GMRAFX1"",81,0)"
^XMB(3.9,36,2,918,0)=" K ^TMP($J,LTYPE,""IDX2""),^TMP($J,LTYPE,""GMRADET"")"
^XMB(3.9,36,2,919,0)="""RTN"",""GMRAFX1"",82,0)"
^XMB(3.9,36,2,920,0)=" Q"
^XMB(3.9,36,2,921,0)="""RTN"",""GMRAFX1"",83,0)"
^XMB(3.9,36,2,922,0)=" ;"
^XMB(3.9,36,2,923,0)="""RTN"",""GMRAFX1"",84,0)"
^XMB(3.9,36,2,924,0)="EXPND ; -- expand code"
^XMB(3.9,36,2,925,0)="""RTN"",""GMRAFX1"",85,0)"
^XMB(3.9,36,2,926,0)=" Q"
^XMB(3.9,36,2,927,0)="""RTN"",""GMRAFX1"",86,0)"
^XMB(3.9,36,2,928,0)=" ;"
^XMB(3.9,36,2,929,0)="""RTN"",""GMRAFX1"",87,0)"
^XMB(3.9,36,2,930,0)="PROCESS(TYPE) ;API to mark selected entries from the detailed listing as entered in error or update to new reactant"
^XMB(3.9,36,2,931,0)="""RTN"",""GMRAFX1"",88,0)"
^XMB(3.9,36,2,932,0)=" N GMRAPA,GMRAJ,DIR,Y,NUM,GMRADONE,ENTRY,GMRAI,STOP,NUM2,GMRAAR"
^XMB(3.9,36,2,933,0)="""RTN"",""GMRAFX1"",89,0)"
^XMB(3.9,36,2,934,0)=" S VALMBCK=""R"" D FULL^VALM1"
^XMB(3.9,36,2,935,0)="""RTN"",""GMRAFX1"",90,0)"
^XMB(3.9,36,2,936,0)=" I '$G(NMBR2) S NMBR2=$$GETNUM^GMRAFX3("""") Q:'+NMBR2"
^XMB(3.9,36,2,937,0)="""RTN"",""GMRAFX1"",91,0)"
^XMB(3.9,36,2,938,0)=" W !!,""You are about to "",$S(TYPE=""E"":""mark"",1:""update""),"" the selected patient"",$S($L(NMBR2,"","")>2:""s'"",1:""'s""),!"
^XMB(3.9,36,2,939,0)="""RTN"",""GMRAFX1"",92,0)"
^XMB(3.9,36,2,940,0)=" S ENTRY=$G(^XTMP(""GMRAFX"",LTYPE,""IDX"",+NMBR))"
^XMB(3.9,36,2,941,0)="""RTN"",""GMRAFX1"",93,0)"
^XMB(3.9,36,2,942,0)=" W $P(ENTRY,""^"",2),"" allergy "",$S(TYPE=""E"":""as entered in error."",1:""to a new reactant.""),!"
^XMB(3.9,36,2,943,0)="""RTN"",""GMRAFX1"",94,0)"
^XMB(3.9,36,2,944,0)=" S DIR(0)=""Y"",DIR(""B"")=""NO"",DIR(""A"")=""ARE YOU SURE"""
^XMB(3.9,36,2,945,0)="""RTN"",""GMRAFX1"",95,0)"
^XMB(3.9,36,2,946,0)=" S DIR(""?"")=""Once allergies are updated or marked as entered in error it cannot be undone!"""
^XMB(3.9,36,2,947,0)="""RTN"",""GMRAFX1"",96,0)"
^XMB(3.9,36,2,948,0)=" S DIR(""?"",1)=""Be sure this is what you want to do."""
^XMB(3.9,36,2,949,0)="""RTN"",""GMRAFX1"",97,0)"
^XMB(3.9,36,2,950,0)=" D ^DIR Q:Y'=1  ;Stop if user doesn't answer yes"
^XMB(3.9,36,2,951,0)="""RTN"",""GMRAFX1"",98,0)"
^XMB(3.9,36,2,952,0)=" S NUM=+NMBR"
^XMB(3.9,36,2,953,0)="""RTN"",""GMRAFX1"",99,0)"
^XMB(3.9,36,2,954,0)=" F GMRAI=1:1:($L(NMBR2,"","")-1) D  Q:$G(STOP)"
^XMB(3.9,36,2,955,0)="""RTN"",""GMRAFX1"",100,0)"
^XMB(3.9,36,2,956,0)=" .S GMRADONE=1"
^XMB(3.9,36,2,957,0)="""RTN"",""GMRAFX1"",101,0)"
^XMB(3.9,36,2,958,0)=" .S NUM2=$P(NMBR2,"","",GMRAI)"
^XMB(3.9,36,2,959,0)="""RTN"",""GMRAFX1"",102,0)"
^XMB(3.9,36,2,960,0)=" .S (GMRAPA,GMRAJ)=$P(^TMP($J,LTYPE,""IDX2"",NUM2),U,2) Q:'GMRAPA"
^XMB(3.9,36,2,961,0)="""RTN"",""GMRAFX1"",103,0)"
^XMB(3.9,36,2,962,0)=" .D @$S(TYPE=""E"":""EIE^GMRAFX"",1:""UIE^GMRAFX3"")"
^XMB(3.9,36,2,963,0)="""RTN"",""GMRAFX1"",104,0)"
^XMB(3.9,36,2,964,0)=" .D:$G(GMRADONE) UPDATE^GMRAFX3"
^XMB(3.9,36,2,965,0)="""RTN"",""GMRAFX1"",105,0)"
^XMB(3.9,36,2,966,0)=" Q"
^XMB(3.9,36,2,967,0)="""RTN"",""GMRAFX3"")"
^XMB(3.9,36,2,968,0)="0^3^B68434515^B36523272"
^XMB(3.9,36,2,969,0)="""RTN"",""GMRAFX3"",1,0)"
^XMB(3.9,36,2,970,0)="GMRAFX3 ;SLC/DAN Update existing entries to new reactant ;6/28/06  10:23"
^XMB(3.9,36,2,971,0)="""RTN"",""GMRAFX3"",2,0)"
^XMB(3.9,36,2,972,0)=" ;;4.0;Adverse Reaction Tracking;**17,19,23,20**;Mar 29, 1996;Build 1"
^XMB(3.9,36,2,973,0)="""RTN"",""GMRAFX3"",3,0)"
^XMB(3.9,36,2,974,0)=" ;DBIA SECTION"
^XMB(3.9,36,2,975,0)="""RTN"",""GMRAFX3"",4,0)"
^XMB(3.9,36,2,976,0)=" ;10018 - DIE"
^XMB(3.9,36,2,977,0)="""RTN"",""GMRAFX3"",5,0)"
^XMB(3.9,36,2,978,0)=" ;2056  - DIQ"
^XMB(3.9,36,2,979,0)="""RTN"",""GMRAFX3"",6,0)"
^XMB(3.9,36,2,980,0)=" ;3154  - ORQ1"
^XMB(3.9,36,2,981,0)="""RTN"",""GMRAFX3"",7,0)"
^XMB(3.9,36,2,982,0)=" ;4134  - ORCHECK"
^XMB(3.9,36,2,983,0)="""RTN"",""GMRAFX3"",8,0)"
^XMB(3.9,36,2,984,0)=" ;4135  - ORKCHK"
^XMB(3.9,36,2,985,0)="""RTN"",""GMRAFX3"",9,0)"
^XMB(3.9,36,2,986,0)=" ;10026 - DIR"
^XMB(3.9,36,2,987,0)="""RTN"",""GMRAFX3"",10,0)"
^XMB(3.9,36,2,988,0)=" ;"
^XMB(3.9,36,2,989,0)="""RTN"",""GMRAFX3"",11,0)"
^XMB(3.9,36,2,990,0)="UIE ;Update individual entries"
^XMB(3.9,36,2,991,0)="""RTN"",""GMRAFX3"",12,0)"
^XMB(3.9,36,2,992,0)=" N DFN,GMRAOUT,GMRAING,GMRADRCL,DIE,DA,DR,AIFN,SIGN,TIME,SUB,ORX,GMRAORX,GMRAOC,GI,FND,COM,SIEN,DIR,Y"
^XMB(3.9,36,2,993,0)="""RTN"",""GMRAFX3"",13,0)"
^XMB(3.9,36,2,994,0)=" S GMRADONE=0 ;Flag to keep track of updated entries"
^XMB(3.9,36,2,995,0)="""RTN"",""GMRAFX3"",14,0)"
^XMB(3.9,36,2,996,0)=" S DFN=$P($G(^GMR(120.8,GMRAPA,0)),U) Q:'+DFN"
^XMB(3.9,36,2,997,0)="""RTN"",""GMRAFX3"",15,0)"
^XMB(3.9,36,2,998,0)=" W !!,""For patient "",$$GET1^DIQ(2,DFN_"","",.01),!"
^XMB(3.9,36,2,999,0)="""RTN"",""GMRAFX3"",16,0)"
^XMB(3.9,36,2,1000,0)=" I $D(GMRAAR) D"
^XMB(3.9,36,2,1001,0)="""RTN"",""GMRAFX3"",17,0)"
^XMB(3.9,36,2,1002,0)=" .S DIR(0)=""Y"",DIR(""A"")=""Use reactant ""_GMRAAR(0),DIR(""B"")=""Y"" D ^DIR"
^XMB(3.9,36,2,1003,0)="""RTN"",""GMRAFX3"",18,0)"
^XMB(3.9,36,2,1004,0)=" .K:'Y GMRAAR"
^XMB(3.9,36,2,1005,0)="""RTN"",""GMRAFX3"",19,0)"
^XMB(3.9,36,2,1006,0)=" .Q"
^XMB(3.9,36,2,1007,0)="""RTN"",""GMRAFX3"",20,0)"
^XMB(3.9,36,2,1008,0)=" I '$D(GMRAAR) D ^GMRAFX2 I $D(GMRAAR) D RUSURE(.GMRASURE) ;20 Get new reactant"
^XMB(3.9,36,2,1009,0)="""RTN"",""GMRAFX3"",21,0)"
^XMB(3.9,36,2,1010,0)=" I '$D(GMRAAR)!('$G(GMRASURE)) K GMRAAR Q  ;20 stop if no reactant selected or if user doesn't want to use selected reactant"
^XMB(3.9,36,2,1011,0)="""RTN"",""GMRAFX3"",22,0)"
^XMB(3.9,36,2,1012,0)=" S GMRAOUT=0"
^XMB(3.9,36,2,1013,0)="""RTN"",""GMRAFX3"",23,0)"
^XMB(3.9,36,2,1014,0)=" I $$DUP W !,""Patient already has an active allergy for this reactant."",!,""Duplicate not allowed."",! D WAIT Q"
^XMB(3.9,36,2,1015,0)="""RTN"",""GMRAFX3"",24,0)"
^XMB(3.9,36,2,1016,0)=" I $$DUPCHK^GMRAPES0(GMRAAR(0),DFN,GMRAPA) Q  ;Checks to see if reactant previously entered in error."
^XMB(3.9,36,2,1017,0)="""RTN"",""GMRAFX3"",25,0)"
^XMB(3.9,36,2,1018,0)=" ;Update reactant, allergy and signed off fields"
^XMB(3.9,36,2,1019,0)="""RTN"",""GMRAFX3"",26,0)"
^XMB(3.9,36,2,1020,0)=" S DIE=""^GMR(120.8,"",DA=GMRAPA,DR="".02////""_GMRAAR(0)_"";1////^S X=GMRAAR""_"";3.1////""_GMRAAR(""O"")_"";15///1"" D ^DIE"
^XMB(3.9,36,2,1021,0)="""RTN"",""GMRAFX3"",27,0)"
^XMB(3.9,36,2,1022,0)=" I $D(^GMR(120.85,""C"",GMRAPA)) D  ;Observed reaction, need to update data"
^XMB(3.9,36,2,1023,0)="""RTN"",""GMRAFX3"",28,0)"
^XMB(3.9,36,2,1024,0)=" .S AIFN=0"
^XMB(3.9,36,2,1025,0)="""RTN"",""GMRAFX3"",29,0)"
^XMB(3.9,36,2,1026,0)=" .F  S AIFN=$O(^GMR(120.85,""C"",GMRAPA,AIFN)) Q:'+AIFN  D"
^XMB(3.9,36,2,1027,0)="""RTN"",""GMRAFX3"",30,0)"
^XMB(3.9,36,2,1028,0)=" ..S SIEN=$O(^GMR(120.85,AIFN,3,""B"",$P(^XTMP(""GMRAFX"",LTYPE,""IDX"",+NMBR),""^""),0)) Q:'+SIEN  ;Was previous reactant stored as ""suspected agent"""
^XMB(3.9,36,2,1029,0)="""RTN"",""GMRAFX3"",31,0)"
^XMB(3.9,36,2,1030,0)=" ..S DA(1)=AIFN,DA=SIEN"
^XMB(3.9,36,2,1031,0)="""RTN"",""GMRAFX3"",32,0)"
^XMB(3.9,36,2,1032,0)=" ..S DIE=""^GMR(120.85,DA(1),3,"",DR="".01////^S X=GMRAAR(0)"" D ^DIE ;Update suspected agent to new value"
^XMB(3.9,36,2,1033,0)="""RTN"",""GMRAFX3"",33,0)"
^XMB(3.9,36,2,1034,0)=" D DELMUL(2),DELMUL(3) ;Delete drug ingredient/drug classes multiples"
^XMB(3.9,36,2,1035,0)="""RTN"",""GMRAFX3"",34,0)"
^XMB(3.9,36,2,1036,0)=" I GMRAAR(""O"")[""D"" D UPDATE^GMRAPES1 ;If reactant type is Drug then add appropriate ingredients and classes"
^XMB(3.9,36,2,1037,0)="""RTN"",""GMRAFX3"",35,0)"
^XMB(3.9,36,2,1038,0)=" S GMRADONE=1 ;Update complete"
^XMB(3.9,36,2,1039,0)="""RTN"",""GMRAFX3"",36,0)"
^XMB(3.9,36,2,1040,0)=" S COM=""Updated using clean up process.  Changed reactant from ""_$P(^XTMP(""GMRAFX"",LTYPE,""IDX"",+NMBR),""^"",2)_$S(LTYPE=""FREE"":"" (free text) "",LTYPE=""ING"":"" (ingredient) "",1:"" (drug class) "")_""to ""_GMRAAR(0)_""(file - ""_$P(GMRAAR,"";"",2)_"")"""
^XMB(3.9,36,2,1041,0)="""RTN"",""GMRAFX3"",37,0)"
^XMB(3.9,36,2,1042,0)=" D ADCOM^GMRAFX(GMRAPA,""O"",COM) ;Add a comment for this update"
^XMB(3.9,36,2,1043,0)="""RTN"",""GMRAFX3"",38,0)"
^XMB(3.9,36,2,1044,0)=" ;Do order checking here - compare existing orders against new allergy information."
^XMB(3.9,36,2,1045,0)="""RTN"",""GMRAFX3"",39,0)"
^XMB(3.9,36,2,1046,0)=" W !,""Performing order checking..."""
^XMB(3.9,36,2,1047,0)="""RTN"",""GMRAFX3"",40,0)"
^XMB(3.9,36,2,1048,0)=" K ^TMP(""ORR"",$J),GMRAOC,ORX"
^XMB(3.9,36,2,1049,0)="""RTN"",""GMRAFX3"",41,0)"
^XMB(3.9,36,2,1050,0)=" D EN^ORQ1(DFN_"";DPT("") ;Retrieve active orders"
^XMB(3.9,36,2,1051,0)="""RTN"",""GMRAFX3"",42,0)"
^XMB(3.9,36,2,1052,0)=" S TIME=$O(^TMP(""ORR"",$J,0))"
^XMB(3.9,36,2,1053,0)="""RTN"",""GMRAFX3"",43,0)"
^XMB(3.9,36,2,1054,0)=" I '^TMP(""ORR"",$J,TIME,""TOT"") W ""patient has no active orders."" Q  ;20 No orders found"
^XMB(3.9,36,2,1055,0)="""RTN"",""GMRAFX3"",44,0)"
^XMB(3.9,36,2,1056,0)=" S SUB=0 F  S SUB=$O(^TMP(""ORR"",$J,TIME,SUB)) Q:'+SUB  D"
^XMB(3.9,36,2,1057,0)="""RTN"",""GMRAFX3"",45,0)"
^XMB(3.9,36,2,1058,0)=" .D BLD^ORCHECK(+^TMP(""ORR"",$J,TIME,SUB)) ;Get ""order"" information in order checking format"
^XMB(3.9,36,2,1059,0)="""RTN"",""GMRAFX3"",46,0)"
^XMB(3.9,36,2,1060,0)=" M GMRAORX=ORX K ORX ;19"
^XMB(3.9,36,2,1061,0)="""RTN"",""GMRAFX3"",47,0)"
^XMB(3.9,36,2,1062,0)=" D EN^ORKCHK(.GMRAOC,DFN,.GMRAORX,""ACCEPT"")"
^XMB(3.9,36,2,1063,0)="""RTN"",""GMRAFX3"",48,0)"
^XMB(3.9,36,2,1064,0)=" S GI=0,FND=0 F  S GI=$O(GMRAOC(GI)) Q:'+GI  D"
^XMB(3.9,36,2,1065,0)="""RTN"",""GMRAFX3"",49,0)"
^XMB(3.9,36,2,1066,0)=" .Q:$P(GMRAOC(GI),U,2)'=3  ;Quit if not allergy related"
^XMB(3.9,36,2,1067,0)="""RTN"",""GMRAFX3"",50,0)"
^XMB(3.9,36,2,1068,0)=" .Q:$D(^OR(100,$P(GMRAOC(GI),U),9,""B"",3))  ;23 If order check exists can't be for this data"
^XMB(3.9,36,2,1069,0)="""RTN"",""GMRAFX3"",51,0)"
^XMB(3.9,36,2,1070,0)=" .W !,""Patient has a(n) "",$P($$STATUS^ORQOR2($P(GMRAOC(GI),U)),U,2),"" order for"",$P($P(GMRAOC(GI),U,4),"":"",2),"", order #"",$P(GMRAOC(GI),U)"
^XMB(3.9,36,2,1071,0)="""RTN"",""GMRAFX3"",52,0)"
^XMB(3.9,36,2,1072,0)=" .S FND=1"
^XMB(3.9,36,2,1073,0)="""RTN"",""GMRAFX3"",53,0)"
^XMB(3.9,36,2,1074,0)=" W:'FND ""No problems found"""
^XMB(3.9,36,2,1075,0)="""RTN"",""GMRAFX3"",54,0)"
^XMB(3.9,36,2,1076,0)=" D WAIT"
^XMB(3.9,36,2,1077,0)="""RTN"",""GMRAFX3"",55,0)"
^XMB(3.9,36,2,1078,0)=" Q"
^XMB(3.9,36,2,1079,0)="""RTN"",""GMRAFX3"",56,0)"
^XMB(3.9,36,2,1080,0)=" ;"
^XMB(3.9,36,2,1081,0)="""RTN"",""GMRAFX3"",57,0)"
^XMB(3.9,36,2,1082,0)="DELMUL(FIELD) ;Delete multiple FIELD from GMR ALLERGY file"
^XMB(3.9,36,2,1083,0)="""RTN"",""GMRAFX3"",58,0)"
^XMB(3.9,36,2,1084,0)=" N MIEN,DA,DIE,DR"
^XMB(3.9,36,2,1085,0)="""RTN"",""GMRAFX3"",59,0)"
^XMB(3.9,36,2,1086,0)=" S MIEN=0 F  S MIEN=$O(^GMR(120.8,GMRAPA,FIELD,MIEN)) Q:'+MIEN  D"
^XMB(3.9,36,2,1087,0)="""RTN"",""GMRAFX3"",60,0)"
^XMB(3.9,36,2,1088,0)=" .S DA(1)=GMRAPA,DA=MIEN"
^XMB(3.9,36,2,1089,0)="""RTN"",""GMRAFX3"",61,0)"
^XMB(3.9,36,2,1090,0)=" .S DIE=""^GMR(120.8,DA(1),FIELD,"",DR="".01///@"" D ^DIE ;Delete entry"
^XMB(3.9,36,2,1091,0)="""RTN"",""GMRAFX3"",62,0)"
^XMB(3.9,36,2,1092,0)=" Q"
^XMB(3.9,36,2,1093,0)="""RTN"",""GMRAFX3"",63,0)"
^XMB(3.9,36,2,1094,0)=" ;"
^XMB(3.9,36,2,1095,0)="""RTN"",""GMRAFX3"",64,0)"
^XMB(3.9,36,2,1096,0)="DUP() ;Function returns true (1) if selected reactant is a duplicate"
^XMB(3.9,36,2,1097,0)="""RTN"",""GMRAFX3"",65,0)"
^XMB(3.9,36,2,1098,0)=" N LOOP,FND"
^XMB(3.9,36,2,1099,0)="""RTN"",""GMRAFX3"",66,0)"
^XMB(3.9,36,2,1100,0)=" S LOOP=0,FND=0"
^XMB(3.9,36,2,1101,0)="""RTN"",""GMRAFX3"",67,0)"
^XMB(3.9,36,2,1102,0)=" F  S LOOP=$O(^GMR(120.8,""B"",DFN,LOOP)) Q:'+LOOP!(FND)  D"
^XMB(3.9,36,2,1103,0)="""RTN"",""GMRAFX3"",68,0)"
^XMB(3.9,36,2,1104,0)=" .I $P(^GMR(120.8,LOOP,0),U,3)=GMRAAR&('$D(^GMR(120.8,LOOP,""ER""))) S FND=1"
^XMB(3.9,36,2,1105,0)="""RTN"",""GMRAFX3"",69,0)"
^XMB(3.9,36,2,1106,0)=" Q FND"
^XMB(3.9,36,2,1107,0)="""RTN"",""GMRAFX3"",70,0)"
^XMB(3.9,36,2,1108,0)=" ;"
^XMB(3.9,36,2,1109,0)="""RTN"",""GMRAFX3"",71,0)"
^XMB(3.9,36,2,1110,0)="WAIT ;Issues press enter to return prompt"
^XMB(3.9,36,2,1111,0)="""RTN"",""GMRAFX3"",72,0)"
^XMB(3.9,36,2,1112,0)=" N DIR"
^XMB(3.9,36,2,1113,0)="""RTN"",""GMRAFX3"",73,0)"
^XMB(3.9,36,2,1114,0)=" S DIR(0)=""E"",DIR(""A"")=""Press enter to continue"" D ^DIR"
^XMB(3.9,36,2,1115,0)="""RTN"",""GMRAFX3"",74,0)"
^XMB(3.9,36,2,1116,0)=" Q"
^XMB(3.9,36,2,1117,0)="""RTN"",""GMRAFX3"",75,0)"
^XMB(3.9,36,2,1118,0)=" ;"
^XMB(3.9,36,2,1119,0)="""RTN"",""GMRAFX3"",76,0)"
^XMB(3.9,36,2,1120,0)="GETNUM(ACTION) ; -- Return numbers to act on, if action chosen first"
^XMB(3.9,36,2,1121,0)="""RTN"",""GMRAFX3"",77,0)"
^XMB(3.9,36,2,1122,0)=" N X,Y,DIR,MAX"
^XMB(3.9,36,2,1123,0)="""RTN"",""GMRAFX3"",78,0)"
^XMB(3.9,36,2,1124,0)=" S MAX=$S($D(^TMP($J,LTYPE,""IDX2"")):$G(^TMP($J,LTYPE,""IDX2"",0)),1:$G(VALMCNT)) Q:MAX'>0 """""
^XMB(3.9,36,2,1125,0)="""RTN"",""GMRAFX3"",79,0)"
^XMB(3.9,36,2,1126,0)=" I ACTION=""DET"" W !!,""Please choose only one entry for the detailed display."""
^XMB(3.9,36,2,1127,0)="""RTN"",""GMRAFX3"",80,0)"
^XMB(3.9,36,2,1128,0)=" S DIR(0)=""LAO^1:""_MAX,DIR(""A"")=""Select Entries from list: """
^XMB(3.9,36,2,1129,0)="""RTN"",""GMRAFX3"",81,0)"
^XMB(3.9,36,2,1130,0)=" S DIR(""?"")=""Enter the items you wish to act on, as a range or list of numbers."""
^XMB(3.9,36,2,1131,0)="""RTN"",""GMRAFX3"",82,0)"
^XMB(3.9,36,2,1132,0)=" D ^DIR S:$D(DTOUT) Y=""^"""
^XMB(3.9,36,2,1133,0)="""RTN"",""GMRAFX3"",83,0)"
^XMB(3.9,36,2,1134,0)=" I $D(Y(1)) W !,"">>>Too many entries selected, try using smaller ranges"" H 2 S Y=""^"""
^XMB(3.9,36,2,1135,0)="""RTN"",""GMRAFX3"",84,0)"
^XMB(3.9,36,2,1136,0)=" I $L($G(Y),"","")>2,ACTION=""DET"" W !,"">>You may only choose ONE group for detailed display."" H 2 S Y=""^"""
^XMB(3.9,36,2,1137,0)="""RTN"",""GMRAFX3"",85,0)"
^XMB(3.9,36,2,1138,0)=" Q Y"
^XMB(3.9,36,2,1139,0)="""RTN"",""GMRAFX3"",86,0)"
^XMB(3.9,36,2,1140,0)=" ;"
^XMB(3.9,36,2,1141,0)="""RTN"",""GMRAFX3"",87,0)"
^XMB(3.9,36,2,1142,0)="UPDATE ;Update display to account for changes to the list"
^XMB(3.9,36,2,1143,0)="""RTN"",""GMRAFX3"",88,0)"
^XMB(3.9,36,2,1144,0)=" N CNT,SP1,SP2,SP3"
^XMB(3.9,36,2,1145,0)="""RTN"",""GMRAFX3"",89,0)"
^XMB(3.9,36,2,1146,0)=" I VALMAR[""GMRADET"" N VALMAR S VALMAR=""^XTMP(""""GMRAFX"""",LTYPE)"""
^XMB(3.9,36,2,1147,0)="""RTN"",""GMRAFX3"",90,0)"
^XMB(3.9,36,2,1148,0)=" S CNT=^XTMP(""GMRAFX"",LTYPE,""GMRAR"",$P(ENTRY,U),$P(ENTRY,U,2))-1"
^XMB(3.9,36,2,1149,0)="""RTN"",""GMRAFX3"",91,0)"
^XMB(3.9,36,2,1150,0)=" S ^XTMP(""GMRAFX"",LTYPE,""GMRAR"",$P(ENTRY,U),$P(ENTRY,U,2))=CNT K ^($P(ENTRY,U,2),GMRAJ)"
^XMB(3.9,36,2,1151,0)="""RTN"",""GMRAFX3"",92,0)"
^XMB(3.9,36,2,1152,0)=" S SP1=4-$L(+NUM),SP2=40-$L($P(ENTRY,U)),SP3=$S(CNT:16-$L(CNT)\2,1:2)"
^XMB(3.9,36,2,1153,0)="""RTN"",""GMRAFX3"",93,0)"
^XMB(3.9,36,2,1154,0)=" D SET^VALM10(+NUM,+NUM_$$REPEAT^XLFSTR("" "",SP1)_$P(ENTRY,U,2)_$$REPEAT^XLFSTR("" "",(SP2+SP3))_$S(CNT:CNT,1:""** FIXED **""))"
^XMB(3.9,36,2,1155,0)="""RTN"",""GMRAFX3"",94,0)"
^XMB(3.9,36,2,1156,0)=" Q"
^XMB(3.9,36,2,1157,0)="""RTN"",""GMRAFX3"",95,0)"
^XMB(3.9,36,2,1158,0)=" ;"
^XMB(3.9,36,2,1159,0)="""RTN"",""GMRAFX3"",96,0)"
^XMB(3.9,36,2,1160,0)="LOCK(ENTRY) ;Lock entry in 120.8"
^XMB(3.9,36,2,1161,0)="""RTN"",""GMRAFX3"",97,0)"
^XMB(3.9,36,2,1162,0)=" N LOCK"
^XMB(3.9,36,2,1163,0)="""RTN"",""GMRAFX3"",98,0)"
^XMB(3.9,36,2,1164,0)=" S LOCK=1"
^XMB(3.9,36,2,1165,0)="""RTN"",""GMRAFX3"",99,0)"
^XMB(3.9,36,2,1166,0)=" L +^XTMP(""GMRAFX"",LTYPE,""IDX"",ENTRY):1"
^XMB(3.9,36,2,1167,0)="""RTN"",""GMRAFX3"",100,0)"
^XMB(3.9,36,2,1168,0)=" I '$T D FULL^VALM1 S VALMBCK=""R"" W !,""The "",$P(^XTMP(""GMRAFX"",LTYPE,""IDX"",ENTRY),U),"" group is being edited by another user"" D WAIT S LOCK=0"
^XMB(3.9,36,2,1169,0)="""RTN"",""GMRAFX3"",101,0)"
^XMB(3.9,36,2,1170,0)=" Q LOCK"
^XMB(3.9,36,2,1171,0)="""RTN"",""GMRAFX3"",102,0)"
^XMB(3.9,36,2,1172,0)=" ;"
^XMB(3.9,36,2,1173,0)="""RTN"",""GMRAFX3"",103,0)"
^XMB(3.9,36,2,1174,0)="AR ;Add/edit patient reactions"
^XMB(3.9,36,2,1175,0)="""RTN"",""GMRAFX3"",104,0)"
^XMB(3.9,36,2,1176,0)=" N LCV,DFN,SUB"
^XMB(3.9,36,2,1177,0)="""RTN"",""GMRAFX3"",105,0)"
^XMB(3.9,36,2,1178,0)=" S VALMBCK=""R"" D FULL^VALM1"
^XMB(3.9,36,2,1179,0)="""RTN"",""GMRAFX3"",106,0)"
^XMB(3.9,36,2,1180,0)=" W !!,""You should use this option to add NEW reactions only.  If you mark"""
^XMB(3.9,36,2,1181,0)="""RTN"",""GMRAFX3"",107,0)"
^XMB(3.9,36,2,1182,0)=" W !,""existing entries as entered in error from within this option it will"""
^XMB(3.9,36,2,1183,0)="""RTN"",""GMRAFX3"",108,0)"
^XMB(3.9,36,2,1184,0)=" W !,""not update the utility's display until the list is rebuilt upon re-entry"""
^XMB(3.9,36,2,1185,0)="""RTN"",""GMRAFX3"",109,0)"
^XMB(3.9,36,2,1186,0)=" W !,""of this option.  This could cause confusion as the list will no longer"""
^XMB(3.9,36,2,1187,0)="""RTN"",""GMRAFX3"",110,0)"
^XMB(3.9,36,2,1188,0)=" W !,""be accurate."",!"
^XMB(3.9,36,2,1189,0)="""RTN"",""GMRAFX3"",111,0)"
^XMB(3.9,36,2,1190,0)=" I '$G(NMBR2) D WAIT,EN1^GMRAPEM0 Q"
^XMB(3.9,36,2,1191,0)="""RTN"",""GMRAFX3"",112,0)"
^XMB(3.9,36,2,1192,0)=" F LCV=1:1:$L(NMBR2,"","")-1 S SUB=$P(NMBR2,"","",LCV) S DFN=+$P($G(^GMR(120.8,+$P($G(^TMP($J,LTYPE,""IDX2"",SUB)),U,2),0)),U) I DFN W !!,""Now working with patient "",$$GET1^DIQ(2,DFN,.01),! D WAIT D EN2^GMRAPEM0"
^XMB(3.9,36,2,1193,0)="""RTN"",""GMRAFX3"",113,0)"
^XMB(3.9,36,2,1194,0)=" Q"
^XMB(3.9,36,2,1195,0)="""RTN"",""GMRAFX3"",114,0)"
^XMB(3.9,36,2,1196,0)=" ;"
^XMB(3.9,36,2,1197,0)="""RTN"",""GMRAFX3"",115,0)"
^XMB(3.9,36,2,1198,0)="DSPREACT ;Display detailed information about the reactant"
^XMB(3.9,36,2,1199,0)="""RTN"",""GMRAFX3"",116,0)"
^XMB(3.9,36,2,1200,0)=" N DIC,DA,GMRAI,STOP,NUM2,DIR,Y"
^XMB(3.9,36,2,1201,0)="""RTN"",""GMRAFX3"",117,0)"
^XMB(3.9,36,2,1202,0)=" S VALMBCK=""R"" D FULL^VALM1"
^XMB(3.9,36,2,1203,0)="""RTN"",""GMRAFX3"",118,0)"
^XMB(3.9,36,2,1204,0)=" I '$G(NMBR2) S NMBR2=$$GETNUM("""") Q:'+NMBR2"
^XMB(3.9,36,2,1205,0)="""RTN"",""GMRAFX3"",119,0)"
^XMB(3.9,36,2,1206,0)=" F GMRAI=1:1:($L(NMBR2,"","")-1) D  Q:$G(STOP)"
^XMB(3.9,36,2,1207,0)="""RTN"",""GMRAFX3"",120,0)"
^XMB(3.9,36,2,1208,0)=" .S NUM2=$P(NMBR2,"","",GMRAI)"
^XMB(3.9,36,2,1209,0)="""RTN"",""GMRAFX3"",121,0)"
^XMB(3.9,36,2,1210,0)=" .S DA=$P(^TMP($J,LTYPE,""IDX2"",NUM2),U,2) Q:'DA"
^XMB(3.9,36,2,1211,0)="""RTN"",""GMRAFX3"",122,0)"
^XMB(3.9,36,2,1212,0)=" .S DIC=""^GMR(120.8,"""
^XMB(3.9,36,2,1213,0)="""RTN"",""GMRAFX3"",123,0)"
^XMB(3.9,36,2,1214,0)=" .W ! D EN^DIQ"
^XMB(3.9,36,2,1215,0)="""RTN"",""GMRAFX3"",124,0)"
^XMB(3.9,36,2,1216,0)=" .S DIR(0)=""E"",DIR(""A"")=""Press return to continue or '^' to stop"" D ^DIR"
^XMB(3.9,36,2,1217,0)="""RTN"",""GMRAFX3"",125,0)"
^XMB(3.9,36,2,1218,0)=" .S:$D(DIRUT) STOP=1"
^XMB(3.9,36,2,1219,0)="""RTN"",""GMRAFX3"",126,0)"
^XMB(3.9,36,2,1220,0)=" .Q"
^XMB(3.9,36,2,1221,0)="""RTN"",""GMRAFX3"",127,0)"
^XMB(3.9,36,2,1222,0)=" Q"
^XMB(3.9,36,2,1223,0)="""RTN"",""GMRAFX3"",128,0)"
^XMB(3.9,36,2,1224,0)=" ;"
^XMB(3.9,36,2,1225,0)="""RTN"",""GMRAFX3"",129,0)"
^XMB(3.9,36,2,1226,0)="GETTYPE(LTYPE) ;Function determines which list to work with"
^XMB(3.9,36,2,1227,0)="""RTN"",""GMRAFX3"",130,0)"
^XMB(3.9,36,2,1228,0)=" N DIR,X,Y"
^XMB(3.9,36,2,1229,0)="""RTN"",""GMRAFX3"",131,0)"
^XMB(3.9,36,2,1230,0)=" S DIR(0)=""SO^1:Free Text;2:Ingredient;3:Drug Class"""
^XMB(3.9,36,2,1231,0)="""RTN"",""GMRAFX3"",132,0)"
^XMB(3.9,36,2,1232,0)=" S DIR(""A"")=""Select the list you wish to work with"""
^XMB(3.9,36,2,1233,0)="""RTN"",""GMRAFX3"",133,0)"
^XMB(3.9,36,2,1234,0)=" D ^DIR K DIR"
^XMB(3.9,36,2,1235,0)="""RTN"",""GMRAFX3"",134,0)"
^XMB(3.9,36,2,1236,0)=" S LTYPE=$S(Y=1:""FREE"",Y=2:""ING"",Y=3:""DRUG"",1:0)"
^XMB(3.9,36,2,1237,0)="""RTN"",""GMRAFX3"",135,0)"
^XMB(3.9,36,2,1238,0)=" Q LTYPE"
^XMB(3.9,36,2,1239,0)="""RTN"",""GMRAFX3"",136,0)"
^XMB(3.9,36,2,1240,0)=" ;"
^XMB(3.9,36,2,1241,0)="""RTN"",""GMRAFX3"",137,0)"
^XMB(3.9,36,2,1242,0)="EIE ;Mark individual entry as entered in error"
^XMB(3.9,36,2,1243,0)="""RTN"",""GMRAFX3"",138,0)"
^XMB(3.9,36,2,1244,0)=" N DIE,DA,DR,Y,DIK,DFN,OROLD,VAIN,X,GMRAOUT"
^XMB(3.9,36,2,1245,0)="""RTN"",""GMRAFX3"",139,0)"
^XMB(3.9,36,2,1246,0)=" S DIE=""^GMR(120.8,"",DA=GMRAPA,DR=""15///1;22///1;23///NOW;24////""_$G(DUZ,.5) ;20"
^XMB(3.9,36,2,1247,0)="""RTN"",""GMRAFX3"",140,0)"
^XMB(3.9,36,2,1248,0)=" D ^DIE ;Entered in error on date/time by user"
^XMB(3.9,36,2,1249,0)="""RTN"",""GMRAFX3"",141,0)"
^XMB(3.9,36,2,1250,0)=" D ADCOM^GMRAFX(GMRAPA,""E"",""Marked Entered in Error during clean up process"")"
^XMB(3.9,36,2,1251,0)="""RTN"",""GMRAFX3"",142,0)"
^XMB(3.9,36,2,1252,0)=" I $$NKASCR^GMRANKA($P(^GMR(120.8,GMRAPA,0),U)) D"
^XMB(3.9,36,2,1253,0)="""RTN"",""GMRAFX3"",143,0)"
^XMB(3.9,36,2,1254,0)=" .S DIK=""^GMR(120.86,"",DA=$P(^GMR(120.8,GMRAPA,0),U)"
^XMB(3.9,36,2,1255,0)="""RTN"",""GMRAFX3"",144,0)"
^XMB(3.9,36,2,1256,0)=" .D ^DIK ;If patient's last allergy marked as entered in error then delete assessment"
^XMB(3.9,36,2,1257,0)="""RTN"",""GMRAFX3"",145,0)"
^XMB(3.9,36,2,1258,0)=" .W !!,""**NOTE: By marking this reaction as entered in error, "",$$GET1^DIQ(2,DA,.01,""E""),!,""no longer has an assessment on file.  You may reassess this patient"",!"
^XMB(3.9,36,2,1259,0)="""RTN"",""GMRAFX3"",146,0)"
^XMB(3.9,36,2,1260,0)=" .W ""now by answering the following prompt or hit return to do it later."",!"
^XMB(3.9,36,2,1261,0)="""RTN"",""GMRAFX3"",147,0)"
^XMB(3.9,36,2,1262,0)=" .D NKAASK^GMRANKA(DA)"
^XMB(3.9,36,2,1263,0)="""RTN"",""GMRAFX3"",148,0)"
^XMB(3.9,36,2,1264,0)=" S GMRAPA(0)=$G(^GMR(120.8,GMRAPA,0)) Q:GMRAPA(0)="""""
^XMB(3.9,36,2,1265,0)="""RTN"",""GMRAFX3"",149,0)"
^XMB(3.9,36,2,1266,0)=" S GMRAOUT=0"
^XMB(3.9,36,2,1267,0)="""RTN"",""GMRAFX3"",150,0)"
^XMB(3.9,36,2,1268,0)=" D EN1^GMRAEAB ;Sends entered in error bulletin to appropriate mail groups"
^XMB(3.9,36,2,1269,0)="""RTN"",""GMRAFX3"",151,0)"
^XMB(3.9,36,2,1270,0)=" S DFN=$P(GMRAPA(0),U)"
^XMB(3.9,36,2,1271,0)="""RTN"",""GMRAFX3"",152,0)"
^XMB(3.9,36,2,1272,0)=" D INP^VADPT S X=$$FIND1^DIC(101,,""BX"",""GMRA ENTERED IN ERROR"")_"";ORD(101,"" ;19"
^XMB(3.9,36,2,1273,0)="""RTN"",""GMRAFX3"",153,0)"
^XMB(3.9,36,2,1274,0)=" D:X EN^XQOR ;Process protocols hanging off of ""entered in error"" protocol"
^XMB(3.9,36,2,1275,0)="""RTN"",""GMRAFX3"",154,0)"
^XMB(3.9,36,2,1276,0)=" Q"
^XMB(3.9,36,2,1277,0)="""RTN"",""GMRAFX3"",155,0)"
^XMB(3.9,36,2,1278,0)=" ;"
^XMB(3.9,36,2,1279,0)="""RTN"",""GMRAFX3"",156,0)"
^XMB(3.9,36,2,1280,0)="RUSURE(GMRASURE) ;20 Make sure selection from ingredient or drug class file is ok"
^XMB(3.9,36,2,1281,0)="""RTN"",""GMRAFX3"",157,0)"
^XMB(3.9,36,2,1282,0)=" ;entire section added in patch 20"
^XMB(3.9,36,2,1283,0)="""RTN"",""GMRAFX3"",158,0)"
^XMB(3.9,36,2,1284,0)=" N DIR,Y,X"
^XMB(3.9,36,2,1285,0)="""RTN"",""GMRAFX3"",159,0)"
^XMB(3.9,36,2,1286,0)=" S GMRASURE=1"
^XMB(3.9,36,2,1287,0)="""RTN"",""GMRAFX3"",160,0)"
^XMB(3.9,36,2,1288,0)=" I $G(GMRAAR)[""50.416""!($G(GMRAAR)[""50.605"") D"
^XMB(3.9,36,2,1289,0)="""RTN"",""GMRAFX3"",161,0)"
^XMB(3.9,36,2,1290,0)=" .S DIR(""A"")=""Are you sure you want to use this reactant"""
^XMB(3.9,36,2,1291,0)="""RTN"",""GMRAFX3"",162,0)"
^XMB(3.9,36,2,1292,0)=" .S DIR(""A"",1)=""You are about to update the entry with a selection from"""
^XMB(3.9,36,2,1293,0)="""RTN"",""GMRAFX3"",163,0)"
^XMB(3.9,36,2,1294,0)=" .S DIR(""A"",2)=""the ""_$S($G(GMRAAR)[""50.416"":""INGREDIENT"",1:""VA DRUG CLASS"")_"" file.  By doing that you are"""
^XMB(3.9,36,2,1295,0)="""RTN"",""GMRAFX3"",164,0)"
^XMB(3.9,36,2,1296,0)=" .S DIR(""A"",3)=""limiting the information available for order checking."""
^XMB(3.9,36,2,1297,0)="""RTN"",""GMRAFX3"",165,0)"
^XMB(3.9,36,2,1298,0)=" .S DIR(""A"",4)="""""
^XMB(3.9,36,2,1299,0)="""RTN"",""GMRAFX3"",166,0)"
^XMB(3.9,36,2,1300,0)=" .S DIR(""A"",5)=""In general, it is better to choose from one of the drug related files"""
^XMB(3.9,36,2,1301,0)="""RTN"",""GMRAFX3"",167,0)"
^XMB(3.9,36,2,1302,0)=" .S DIR(""A"",6)=""as that ensures that drug class and ingredient information are part"""
^XMB(3.9,36,2,1303,0)="""RTN"",""GMRAFX3"",168,0)"
^XMB(3.9,36,2,1304,0)=" .S DIR(""A"",7)=""of the patient's allergy definition and will provide better allergy"""
^XMB(3.9,36,2,1305,0)="""RTN"",""GMRAFX3"",169,0)"
^XMB(3.9,36,2,1306,0)=" .S DIR(""A"",8)=""order checking."""
^XMB(3.9,36,2,1307,0)="""RTN"",""GMRAFX3"",170,0)"
^XMB(3.9,36,2,1308,0)=" .S DIR(""A"",9)="""""
^XMB(3.9,36,2,1309,0)="""RTN"",""GMRAFX3"",171,0)"
^XMB(3.9,36,2,1310,0)=" .S DIR(0)=""Y"",DIR(""B"")=""NO"""
^XMB(3.9,36,2,1311,0)="""RTN"",""GMRAFX3"",172,0)"
^XMB(3.9,36,2,1312,0)=" .D ^DIR S GMRASURE=+Y"
^XMB(3.9,36,2,1313,0)="""RTN"",""GMRAFX3"",173,0)"
^XMB(3.9,36,2,1314,0)=" Q"
^XMB(3.9,36,2,1315,0)="""RTN"",""GMRAPES0"")"
^XMB(3.9,36,2,1316,0)="0^4^B74006536^B72112674"
^XMB(3.9,36,2,1317,0)="""RTN"",""GMRAPES0"",1,0)"
^XMB(3.9,36,2,1318,0)="GMRAPES0 ;HIRMFO/RM-SELECT PATIENT ALLERGY TO EDIT ;4/5/06  14:30"
^XMB(3.9,36,2,1319,0)="""RTN"",""GMRAPES0"",2,0)"
^XMB(3.9,36,2,1320,0)=" ;;4.0;Adverse Reaction Tracking;**13,17,19,21,23,20**;Mar 29, 1996;Build 1"
^XMB(3.9,36,2,1321,0)="""RTN"",""GMRAPES0"",3,0)"
^XMB(3.9,36,2,1322,0)="EN1 ; GIVEN DFN, SELECT PATIENT ALLERGY"
^XMB(3.9,36,2,1323,0)="""RTN"",""GMRAPES0"",4,0)"
^XMB(3.9,36,2,1324,0)=" N GMRAGOUT,ROOT,CNT,LST,NAM,DIR,GMRAET"
^XMB(3.9,36,2,1325,0)="""RTN"",""GMRAPES0"",5,0)"
^XMB(3.9,36,2,1326,0)=" S GMRARET=0"
^XMB(3.9,36,2,1327,0)="""RTN"",""GMRAPES0"",6,0)"
^XMB(3.9,36,2,1328,0)=" S GMRAPA=-1,GMRANEW=0 R !!,""Enter Causative Agent: "",GMRALAR:DTIME S:'$T GMRALAR=""^^"" S:GMRALAR="""" GMRARET=1 I ""^^""[GMRALAR S GMRAOUT='$L(GMRALAR)+1 G Q1"
^XMB(3.9,36,2,1329,0)="""RTN"",""GMRAPES0"",7,0)"
^XMB(3.9,36,2,1330,0)=" I GMRALAR?1P.E!($L(GMRALAR)<3)!($L(GMRALAR)>30) S GMRAHLP=1 D EN1^GMRAHLP0 G EN1:'GMRAOUT,Q1"
^XMB(3.9,36,2,1331,0)="""RTN"",""GMRAPES0"",8,0)"
^XMB(3.9,36,2,1332,0)=" I GMRALAR?.E1L.E S GMRALAR=$$UP^XLFSTR(GMRALAR)"
^XMB(3.9,36,2,1333,0)="""RTN"",""GMRAPES0"",9,0)"
^XMB(3.9,36,2,1334,0)="PAL K Y,DTOUT,DUOUT S DGSENFLG="""",DIC=""^GMR(120.8,"",DIC(0)=""SEZ"",X=GMRANAM,DIC(""S"")=""I '+$G(^(""""ER"""")),$P(^(0),U,2)?@(""""1""""""""""""_GMRALAR_"""""""""""".E""""),$D(^GMR(120.8,""""B"""",DFN,+Y))"",DIC(""W"")=""W $P(^(0),U,2)"""
^XMB(3.9,36,2,1335,0)="""RTN"",""GMRAPES0"",10,0)"
^XMB(3.9,36,2,1336,0)=" W !!,""Checking existing PATIENT ALLERGIES (#120.8) file for matches..."",!"
^XMB(3.9,36,2,1337,0)="""RTN"",""GMRAPES0"",11,0)"
^XMB(3.9,36,2,1338,0)=" D ^DIC S X=$P($G(Y(0)),""^"",2) K DIC,DGSENFLG,DTOUT,DUOUT D DIC I GMRAOUT S GMRAOUT=GMRAOUT-1 G:GMRAOUT Q1 G EN1"
^XMB(3.9,36,2,1339,0)="""RTN"",""GMRAPES0"",12,0)"
^XMB(3.9,36,2,1340,0)=" S:+Y>0 GMRAPA=+Y G Q1:+Y>0!GMRAOUT,PAL:X?1""?"".E,EN1:Y=0"
^XMB(3.9,36,2,1341,0)="""RTN"",""GMRAPES0"",13,0)"
^XMB(3.9,36,2,1342,0)=" G Q1:'GMRALAGO"
^XMB(3.9,36,2,1343,0)="""RTN"",""GMRAPES0"",14,0)"
^XMB(3.9,36,2,1344,0)="NPA W !!,""Now checking GMR ALLERGIES (#120.82) file for matches..."",!"
^XMB(3.9,36,2,1345,0)="""RTN"",""GMRAPES0"",15,0)"
^XMB(3.9,36,2,1346,0)=" S DIC(""S"")=""I $P(^(0),U)'=""""OTHER ALLERGY/ADVERSE REACTION""""&($S($L($T(SCREEN^XTID)):'$$SCREEN^XTID(120.82,.01,Y_"""",""""),1:1))"" ;21,23"
^XMB(3.9,36,2,1347,0)="""RTN"",""GMRAPES0"",16,0)"
^XMB(3.9,36,2,1348,0)=" K Y,DTOUT,DUOUT S X=GMRALAR,DIC=""^GMRD(120.82,"",DIC(0)=""EZM"",DIC(""W"")="""" D ^DIC K DIC S:+Y>0 X=$P(Y,""^"",2) D DIC I GMRAOUT S GMRAOUT=GMRAOUT-1 G:GMRAOUT Q1 G EN1"
^XMB(3.9,36,2,1349,0)="""RTN"",""GMRAPES0"",17,0)"
^XMB(3.9,36,2,1350,0)=" I +Y>0 S GMRAAR=+Y_"";GMRD(120.82,"",GMRAAR(0)=$P(Y,""^"",2),GMRAAR(""O"")=$P(Y(0),""^"",2) D:'GMRAOUT ADAR^GMRAPES1 G EN1:GMRAPA'>0,Q1"
^XMB(3.9,36,2,1351,0)="""RTN"",""GMRAPES0"",18,0)"
^XMB(3.9,36,2,1352,0)=" G Q1:GMRAOUT,NPA:X?1""?"".E,EN1:Y=0"
^XMB(3.9,36,2,1353,0)="""RTN"",""GMRAPES0"",19,0)"
^XMB(3.9,36,2,1354,0)="NDF ;find partial matches and select from NDF"
^XMB(3.9,36,2,1355,0)="""RTN"",""GMRAPES0"",20,0)"
^XMB(3.9,36,2,1356,0)=" K Y,DTOUT,DUOUT"
^XMB(3.9,36,2,1357,0)="""RTN"",""GMRAPES0"",21,0)"
^XMB(3.9,36,2,1358,0)=" W !!,""Now checking the National Drug File - Generic Names (#50.6)"",!"
^XMB(3.9,36,2,1359,0)="""RTN"",""GMRAPES0"",22,0)"
^XMB(3.9,36,2,1360,0)=" S DIC=50.6,X=GMRALAR,DIC(0)=""EZM"",DIC(""S"")=""I $S($L($T(SCREEN^XTID)):'$$SCREEN^XTID(50.6,.01,Y_"""",""""),1:1)"" D ^DIC K DIC D DIC ;23"
^XMB(3.9,36,2,1361,0)="""RTN"",""GMRAPES0"",23,0)"
^XMB(3.9,36,2,1362,0)=" I +Y>0 S GMRAAR=+Y_"";PSNDF(50.6,"",GMRAAR(0)=$P(Y,U,2),GMRAAR(""O"")=""D"" D:'GMRAOUT ADAR^GMRAPES1 G EN1:GMRAPA'>0,Q1"
^XMB(3.9,36,2,1363,0)="""RTN"",""GMRAPES0"",24,0)"
^XMB(3.9,36,2,1364,0)=" W !!,""Now checking the National Drug File - Trade Names (#50.67)"",!"
^XMB(3.9,36,2,1365,0)="""RTN"",""GMRAPES0"",25,0)"
^XMB(3.9,36,2,1366,0)=" K DUOUT,DTOUT,Y"
^XMB(3.9,36,2,1367,0)="""RTN"",""GMRAPES0"",26,0)"
^XMB(3.9,36,2,1368,0)=" S ROOT=$$T^PSNAPIS,CNT=0,X=GMRALAR"
^XMB(3.9,36,2,1369,0)="""RTN"",""GMRAPES0"",27,0)"
^XMB(3.9,36,2,1370,0)=" I $D(@ROOT@(X)),$S($L($T(SCREEN^XTID)):'$$SCREEN^XTID(50.6,.01,$$TGTOG^PSNAPIS(X)_"",""),1:1) S CNT=CNT+1,LST(CNT)=$$TGTOG^PSNAPIS(X)_U_X ;23 Exact match stores IEN in 50.6 along with trade name"
^XMB(3.9,36,2,1371,0)="""RTN"",""GMRAPES0"",28,0)"
^XMB(3.9,36,2,1372,0)=" S NAM=X F  S NAM=$O(@ROOT@(NAM)) Q:NAM=""""!($E(NAM,1,$L(X))'=X)  D"
^XMB(3.9,36,2,1373,0)="""RTN"",""GMRAPES0"",29,0)"
^XMB(3.9,36,2,1374,0)=" .Q:$S($L($T(SCREEN^XTID)):$$SCREEN^XTID(50.6,.01,$$TGTOG^PSNAPIS(NAM)_"",""),1:0)  ;23"
^XMB(3.9,36,2,1375,0)="""RTN"",""GMRAPES0"",30,0)"
^XMB(3.9,36,2,1376,0)=" .S CNT=CNT+1,LST(CNT)=$$TGTOG^PSNAPIS(NAM)_U_NAM"
^XMB(3.9,36,2,1377,0)="""RTN"",""GMRAPES0"",31,0)"
^XMB(3.9,36,2,1378,0)=" I 'CNT S Y=-1 ;No matches found"
^XMB(3.9,36,2,1379,0)="""RTN"",""GMRAPES0"",32,0)"
^XMB(3.9,36,2,1380,0)=" I CNT=1 S Y(0)=LST(1),X=$P(Y(0),U,2),Y=+LST(1) ;Only one choice"
^XMB(3.9,36,2,1381,0)="""RTN"",""GMRAPES0"",33,0)"
^XMB(3.9,36,2,1382,0)=" I CNT>1 D"
^XMB(3.9,36,2,1383,0)="""RTN"",""GMRAPES0"",34,0)"
^XMB(3.9,36,2,1384,0)=" .D MATCHES"
^XMB(3.9,36,2,1385,0)="""RTN"",""GMRAPES0"",35,0)"
^XMB(3.9,36,2,1386,0)=" .S DIR(0)=""NAO^1:""_CNT,DIR(""A"")=""Select 1-""_CNT_"": """
^XMB(3.9,36,2,1387,0)="""RTN"",""GMRAPES0"",36,0)"
^XMB(3.9,36,2,1388,0)=" .S DIR(""?"")=""Select the number of desired causative agent"""
^XMB(3.9,36,2,1389,0)="""RTN"",""GMRAPES0"",37,0)"
^XMB(3.9,36,2,1390,0)=" .D ^DIR S Y=$S(+Y:+Y,1:-1) S:Y>0 Y(0)=LST(Y),X=$P(Y(0),U,2)"
^XMB(3.9,36,2,1391,0)="""RTN"",""GMRAPES0"",38,0)"
^XMB(3.9,36,2,1392,0)=" D DIC I GMRAOUT S GMRAOUT=GMRAOUT=1 G:GMRAOUT Q1 G EN1"
^XMB(3.9,36,2,1393,0)="""RTN"",""GMRAPES0"",39,0)"
^XMB(3.9,36,2,1394,0)=" I +Y>0 S GMRAAR=+Y(0)_"";PSNDF(50.6,"",GMRAAR(0)=$P(Y(0),U,2),GMRAAR(""O"")=""D"" D:'GMRAOUT ADAR^GMRAPES1 G EN1:GMRAPA'>0,Q1"
^XMB(3.9,36,2,1395,0)="""RTN"",""GMRAPES0"",40,0)"
^XMB(3.9,36,2,1396,0)=" ;Selection from file 50 removed in patch 23"
^XMB(3.9,36,2,1397,0)="""RTN"",""GMRAPES0"",41,0)"
^XMB(3.9,36,2,1398,0)="DRUG ;W !!,""Now checking the DRUG (#50) file for matches..."",! K Y,DTOUT,DUOUT"
^XMB(3.9,36,2,1399,0)="""RTN"",""GMRAPES0"",42,0)"
^XMB(3.9,36,2,1400,0)=" ;S CNT=0,X=GMRALAR K LST"
^XMB(3.9,36,2,1401,0)="""RTN"",""GMRAPES0"",43,0)"
^XMB(3.9,36,2,1402,0)=" ;F ROOT=""^PSDRUG(""""B"""")"",""^PSDRUG(""""C"""")"" D"
^XMB(3.9,36,2,1403,0)="""RTN"",""GMRAPES0"",44,0)"
^XMB(3.9,36,2,1404,0)=" ;.I $D(@ROOT@(X)) S CNT=CNT+1,LST(CNT)=$O(@ROOT@(X,0))_U_$S(ROOT[""C"":$$GET1^DIQ(50,$O(@ROOT@(X,0)),.01)_"" <""_X_"">"",1:X)"
^XMB(3.9,36,2,1405,0)="""RTN"",""GMRAPES0"",45,0)"
^XMB(3.9,36,2,1406,0)=" ;.S NAM=X F  S NAM=$O(@ROOT@(NAM)) Q:NAM=""""!($E(NAM,1,$L(X))'=X)  D"
^XMB(3.9,36,2,1407,0)="""RTN"",""GMRAPES0"",46,0)"
^XMB(3.9,36,2,1408,0)=" ;..S CNT=CNT+1,LST(CNT)=$O(@ROOT@(NAM,0))_U_$S(ROOT[""C"":$$GET1^DIQ(50,$O(@ROOT@(NAM,0)),.01)_"" <""_NAM_"">"",1:NAM)"
^XMB(3.9,36,2,1409,0)="""RTN"",""GMRAPES0"",47,0)"
^XMB(3.9,36,2,1410,0)=" ;I 'CNT S Y=-1 ;No matches found"
^XMB(3.9,36,2,1411,0)="""RTN"",""GMRAPES0"",48,0)"
^XMB(3.9,36,2,1412,0)=" ;I CNT=1 S Y(0)=LST(1),X=$P(Y(0),U,2),Y=+LST(1) ;Only one choice"
^XMB(3.9,36,2,1413,0)="""RTN"",""GMRAPES0"",49,0)"
^XMB(3.9,36,2,1414,0)=" ;I CNT>1 D"
^XMB(3.9,36,2,1415,0)="""RTN"",""GMRAPES0"",50,0)"
^XMB(3.9,36,2,1416,0)=" ;.D MATCHES"
^XMB(3.9,36,2,1417,0)="""RTN"",""GMRAPES0"",51,0)"
^XMB(3.9,36,2,1418,0)=" ;.S DIR(0)=""NAO^1:""_CNT,DIR(""A"")=""Select 1-""_CNT_"": """
^XMB(3.9,36,2,1419,0)="""RTN"",""GMRAPES0"",52,0)"
^XMB(3.9,36,2,1420,0)=" ;.S DIR(""?"")=""Select the number of desired causative agent"""
^XMB(3.9,36,2,1421,0)="""RTN"",""GMRAPES0"",53,0)"
^XMB(3.9,36,2,1422,0)=" ;.D ^DIR S Y=$S(+Y:+Y,1:-1) S:Y>0 Y(0)=LST(Y),X=$P(Y(0),U,2)"
^XMB(3.9,36,2,1423,0)="""RTN"",""GMRAPES0"",54,0)"
^XMB(3.9,36,2,1424,0)=" ;D DIC I GMRAOUT S GMRAOUT=GMRAOUT-1 G:GMRAOUT Q1 G EN1"
^XMB(3.9,36,2,1425,0)="""RTN"",""GMRAPES0"",55,0)"
^XMB(3.9,36,2,1426,0)=" ;I +Y>0 S GMRAAR=+Y(0)_"";PSDRUG("",GMRAAR(0)=$$GET1^DIQ(50,+Y(0),.01),GMRAAR(""O"")=""D"" D:'GMRAOUT ADAR^GMRAPES1 G EN1:GMRAPA'>0,Q1"
^XMB(3.9,36,2,1427,0)="""RTN"",""GMRAPES0"",56,0)"
^XMB(3.9,36,2,1428,0)=" ;19 - Moved ING and CLASS code here"
^XMB(3.9,36,2,1429,0)="""RTN"",""GMRAPES0"",57,0)"
^XMB(3.9,36,2,1430,0)="ING W !!,""Now checking the INGREDIENTS (#50.416) file for matches..."",!"
^XMB(3.9,36,2,1431,0)="""RTN"",""GMRAPES0"",58,0)"
^XMB(3.9,36,2,1432,0)=" K Y,DTOUT,DUOUT S D=""P"",DIC=""^PS(50.416,"",DIC(0)=""SEMZ"",DIC(""S"")=""I $S($L($T(SCREEN^XTID)):'$$SCREEN^XTID(50.416,.01,Y_"""",""""),1:1)"",X=GMRALAR D IX^DIC K DIC D DIC I GMRAOUT S GMRAOUT=GMRAOUT-1 G:GMRAOUT Q1 G EN1"
^XMB(3.9,36,2,1433,0)="""RTN"",""GMRAPES0"",59,0)"
^XMB(3.9,36,2,1434,0)=" I +Y>0 S GMRAAR=+Y_"";PS(50.416,"",GMRAAR(0)=$S(X?1A.E:X,1:$P(Y,""^"",2)),GMRAAR(""O"")=""D"" D:'GMRAOUT ADAR^GMRAPES1 G EN1:GMRAPA'>0,Q1"
^XMB(3.9,36,2,1435,0)="""RTN"",""GMRAPES0"",60,0)"
^XMB(3.9,36,2,1436,0)=" G Q1:GMRAOUT,ING:X?1""?"".E,EN1:Y=0"
^XMB(3.9,36,2,1437,0)="""RTN"",""GMRAPES0"",61,0)"
^XMB(3.9,36,2,1438,0)="CLASS W !!,""Now checking VA DRUG CLASS (50.605) file for matches..."",!"
^XMB(3.9,36,2,1439,0)="""RTN"",""GMRAPES0"",62,0)"
^XMB(3.9,36,2,1440,0)=" K Y,DTOUT,DUOUT S X=GMRALAR,DIC=""^PS(50.605,"",DIC(0)=""SEZ"",D=""C"",DIC(""S"")=""I $S($L($T(SCREEN^XTID)):'$$SCREEN^XTID(50.605,.01,Y_"""",""""),1:1)"" D IX^DIC K DIC D DIC I GMRAOUT S GMRAOUT=GMRAOUT-1 G:GMRAOUT Q1 G EN1"
^XMB(3.9,36,2,1441,0)="""RTN"",""GMRAPES0"",63,0)"
^XMB(3.9,36,2,1442,0)=" I +Y>0 S GMRAAR=+Y_"";PS(50.605,"",GMRAAR(0)=$S(X?1A.E:X,1:$P(Y,""^"",2)),GMRAAR(""O"")=""D"" D:'GMRAOUT ADAR^GMRAPES1 G EN1:GMRAPA'>0,Q1"
^XMB(3.9,36,2,1443,0)="""RTN"",""GMRAPES0"",64,0)"
^XMB(3.9,36,2,1444,0)=" G Q1:GMRAOUT,CLASS:X?1""?"".E,EN1:Y=0"
^XMB(3.9,36,2,1445,0)="""RTN"",""GMRAPES0"",65,0)"
^XMB(3.9,36,2,1446,0)="YNOTH W !!,""Could not find "",GMRALAR,"" in any files."""
^XMB(3.9,36,2,1447,0)="""RTN"",""GMRAPES0"",66,0)"
^XMB(3.9,36,2,1448,0)=" W !!,""Before sending an email requesting the addition of a new reactant, please"",!,""try entering the first 3 or 4 letters of the reactant to search for"",!,""the desired entry."",!"
^XMB(3.9,36,2,1449,0)="""RTN"",""GMRAPES0"",67,0)"
^XMB(3.9,36,2,1450,0)=" W !,""Would you like to send an email requesting "",GMRALAR,!,""be added as a causative agent?"""
^XMB(3.9,36,2,1451,0)="""RTN"",""GMRAPES0"",68,0)"
^XMB(3.9,36,2,1452,0)=" S DIR(""A"")=""Send email"""
^XMB(3.9,36,2,1453,0)="""RTN"",""GMRAPES0"",69,0)"
^XMB(3.9,36,2,1454,0)=" S DIR(0)=""Y"",DIR(""B"")=""NO"",DIR(""?"")=""^D MESS^GMRAPES0"""
^XMB(3.9,36,2,1455,0)="""RTN"",""GMRAPES0"",70,0)"
^XMB(3.9,36,2,1456,0)=" D ^DIR"
^XMB(3.9,36,2,1457,0)="""RTN"",""GMRAPES0"",71,0)"
^XMB(3.9,36,2,1458,0)=" I Y'=+Y S GMRAOUT=1 G Q1"
^XMB(3.9,36,2,1459,0)="""RTN"",""GMRAPES0"",72,0)"
^XMB(3.9,36,2,1460,0)=" I '+Y G EN1"
^XMB(3.9,36,2,1461,0)="""RTN"",""GMRAPES0"",73,0)"
^XMB(3.9,36,2,1462,0)="YNDRG ;"
^XMB(3.9,36,2,1463,0)="""RTN"",""GMRAPES0"",74,0)"
^XMB(3.9,36,2,1464,0)=" D GETINPUT(.GMRAET)"
^XMB(3.9,36,2,1465,0)="""RTN"",""GMRAPES0"",75,0)"
^XMB(3.9,36,2,1466,0)=" S X=$$SENDREQ(DUZ,DFN,GMRALAR,.GMRAET)"
^XMB(3.9,36,2,1467,0)="""RTN"",""GMRAPES0"",76,0)"
^XMB(3.9,36,2,1468,0)=" I '+X W !!,""Error - Message not sent - "",$P(X,U,2)"
^XMB(3.9,36,2,1469,0)="""RTN"",""GMRAPES0"",77,0)"
^XMB(3.9,36,2,1470,0)=" I +X W !!,""Message sent - NOTE: This reactant was NOT added for this patient."""
^XMB(3.9,36,2,1471,0)="""RTN"",""GMRAPES0"",78,0)"
^XMB(3.9,36,2,1472,0)=" W !"
^XMB(3.9,36,2,1473,0)="""RTN"",""GMRAPES0"",79,0)"
^XMB(3.9,36,2,1474,0)="Q1 ;"
^XMB(3.9,36,2,1475,0)="""RTN"",""GMRAPES0"",80,0)"
^XMB(3.9,36,2,1476,0)=" S:GMRAPA>0 GMRAPA(0)=$S($D(^GMR(120.8,+GMRAPA,0)):^(0),1:"""")"
^XMB(3.9,36,2,1477,0)="""RTN"",""GMRAPES0"",81,0)"
^XMB(3.9,36,2,1478,0)=" K %,D,DA,DIC,DTOUT,DUOUT,GMRAAR,GMRAHLP,GMRAING,GMRALAGO,GMRALAR,PSNDA,PSODA,X,Y"
^XMB(3.9,36,2,1479,0)="""RTN"",""GMRAPES0"",82,0)"
^XMB(3.9,36,2,1480,0)=" Q"
^XMB(3.9,36,2,1481,0)="""RTN"",""GMRAPES0"",83,0)"
^XMB(3.9,36,2,1482,0)="DIC ; VALIDATE LOOKUP FOR A/AR"
^XMB(3.9,36,2,1483,0)="""RTN"",""GMRAPES0"",84,0)"
^XMB(3.9,36,2,1484,0)=" S:$D(DTOUT) X=""^^"" I X=""^^"" S GMRAOUT=1 Q"
^XMB(3.9,36,2,1485,0)="""RTN"",""GMRAPES0"",85,0)"
^XMB(3.9,36,2,1486,0)=" S:$D(DUOUT) Y=0 Q:+Y'>0"
^XMB(3.9,36,2,1487,0)="""RTN"",""GMRAPES0"",86,0)"
^XMB(3.9,36,2,1488,0)="YNOK W !?3,X,""   OK"" S %=1 D YN^DICN S:%=-1 GMRAOUT=1,Y=-1 Q:GMRAOUT  S:%=2 Y=-1 Q:Y=-1  S:$$DUPCHK(X,DFN,Y) Y=-1 Q:GMRAOUT  I % W ! Q  ;19"
^XMB(3.9,36,2,1489,0)="""RTN"",""GMRAPES0"",87,0)"
^XMB(3.9,36,2,1490,0)=" W !?5,$C(7),""ANSWER YES IF THIS IS THE CORRECT ALLERGY/ADVERSE REACTION,"",!?5,""ELSE ANSWER NO."""
^XMB(3.9,36,2,1491,0)="""RTN"",""GMRAPES0"",88,0)"
^XMB(3.9,36,2,1492,0)=" G YNOK"
^XMB(3.9,36,2,1493,0)="""RTN"",""GMRAPES0"",89,0)"
^XMB(3.9,36,2,1494,0)="DUPCHK(X,Y,Z) ;CHECK FOR ENTERED IN ERROR"
^XMB(3.9,36,2,1495,0)="""RTN"",""GMRAPES0"",90,0)"
^XMB(3.9,36,2,1496,0)=" N GMRAPA,GMRAGOUT,%,%Y S GMRAGOUT=0"
^XMB(3.9,36,2,1497,0)="""RTN"",""GMRAPES0"",91,0)"
^XMB(3.9,36,2,1498,0)=" I $P($G(^GMR(120.8,+Z,0)),U,2)=X Q GMRAGOUT"
^XMB(3.9,36,2,1499,0)="""RTN"",""GMRAPES0"",92,0)"
^XMB(3.9,36,2,1500,0)=" I $O(^GMR(120.8,""B"",Y,0)) S GMRAPA=0 F  S GMRAPA=$O(^GMR(120.8,""B"",Y,GMRAPA)) Q:GMRAPA<1  D  Q:GMRAOUT!(GMRAGOUT)"
^XMB(3.9,36,2,1501,0)="""RTN"",""GMRAPES0"",93,0)"
^XMB(3.9,36,2,1502,0)=" .I $P(^GMR(120.8,GMRAPA,0),U,2)'=X Q"
^XMB(3.9,36,2,1503,0)="""RTN"",""GMRAPES0"",94,0)"
^XMB(3.9,36,2,1504,0)=" .I $D(^GMR(120.8,GMRAPA,""ER"")) D"
^XMB(3.9,36,2,1505,0)="""RTN"",""GMRAPES0"",95,0)"
^XMB(3.9,36,2,1506,0)=" ..F  S %=2 W !,?5,$C(7),""This Agent has been Entered in Error once before."",!,?5,""Are you sure you want to select this Agent again"" D  Q:%"
^XMB(3.9,36,2,1507,0)="""RTN"",""GMRAPES0"",96,0)"
^XMB(3.9,36,2,1508,0)=" ...D YN^DICN S:%'=1 %=2,GMRAOUT=1  S:%Y?2""^"" GMRAOUT=2"
^XMB(3.9,36,2,1509,0)="""RTN"",""GMRAPES0"",97,0)"
^XMB(3.9,36,2,1510,0)=" ...Q:%  W !,?10,""ENTER 'Y' FOR YES OR 'N' FOR NO"""
^XMB(3.9,36,2,1511,0)="""RTN"",""GMRAPES0"",98,0)"
^XMB(3.9,36,2,1512,0)=" ...Q"
^XMB(3.9,36,2,1513,0)="""RTN"",""GMRAPES0"",99,0)"
^XMB(3.9,36,2,1514,0)=" ..S GMRAGOUT=%"
^XMB(3.9,36,2,1515,0)="""RTN"",""GMRAPES0"",100,0)"
^XMB(3.9,36,2,1516,0)=" ..Q"
^XMB(3.9,36,2,1517,0)="""RTN"",""GMRAPES0"",101,0)"
^XMB(3.9,36,2,1518,0)=" .Q"
^XMB(3.9,36,2,1519,0)="""RTN"",""GMRAPES0"",102,0)"
^XMB(3.9,36,2,1520,0)=" I GMRAGOUT=0 S GMRAGOUT=1"
^XMB(3.9,36,2,1521,0)="""RTN"",""GMRAPES0"",103,0)"
^XMB(3.9,36,2,1522,0)=" Q (GMRAGOUT-1)"
^XMB(3.9,36,2,1523,0)="""RTN"",""GMRAPES0"",104,0)"
^XMB(3.9,36,2,1524,0)="MATCHES ; -- List matches for NDF"
^XMB(3.9,36,2,1525,0)="""RTN"",""GMRAPES0"",105,0)"
^XMB(3.9,36,2,1526,0)=" N I,J,QUIT"
^XMB(3.9,36,2,1527,0)="""RTN"",""GMRAPES0"",106,0)"
^XMB(3.9,36,2,1528,0)=" W !!,""Choose from the following ""_+$G(CNT)_"" matches:"""
^XMB(3.9,36,2,1529,0)="""RTN"",""GMRAPES0"",107,0)"
^XMB(3.9,36,2,1530,0)=" S (I,J,QUIT)=0 F  S I=$O(LST(I)) Q:I'>0  D  Q:QUIT"
^XMB(3.9,36,2,1531,0)="""RTN"",""GMRAPES0"",108,0)"
^XMB(3.9,36,2,1532,0)=" . S J=J+1 I '(J#(IOSL-5)) S:'$$MORE QUIT=1 Q:QUIT"
^XMB(3.9,36,2,1533,0)="""RTN"",""GMRAPES0"",109,0)"
^XMB(3.9,36,2,1534,0)=" . W !,J,""  "",$P(LST(I),""^"",2)"
^XMB(3.9,36,2,1535,0)="""RTN"",""GMRAPES0"",110,0)"
^XMB(3.9,36,2,1536,0)=" Q"
^XMB(3.9,36,2,1537,0)="""RTN"",""GMRAPES0"",111,0)"
^XMB(3.9,36,2,1538,0)=" ;"
^XMB(3.9,36,2,1539,0)="""RTN"",""GMRAPES0"",112,0)"
^XMB(3.9,36,2,1540,0)="MORE()  ; -- show more matches"
^XMB(3.9,36,2,1541,0)="""RTN"",""GMRAPES0"",113,0)"
^XMB(3.9,36,2,1542,0)=" N DIR,DTOUT,DUOUT,X,Y"
^XMB(3.9,36,2,1543,0)="""RTN"",""GMRAPES0"",114,0)"
^XMB(3.9,36,2,1544,0)=" S DIR(0)=""EA"",DIR(""A"")=""Press <return> to see more, or ^ to stop ..."""
^XMB(3.9,36,2,1545,0)="""RTN"",""GMRAPES0"",115,0)"
^XMB(3.9,36,2,1546,0)=" D ^DIR"
^XMB(3.9,36,2,1547,0)="""RTN"",""GMRAPES0"",116,0)"
^XMB(3.9,36,2,1548,0)=" Q +Y"
^XMB(3.9,36,2,1549,0)="""RTN"",""GMRAPES0"",117,0)"
^XMB(3.9,36,2,1550,0)=" ;"
^XMB(3.9,36,2,1551,0)="""RTN"",""GMRAPES0"",118,0)"
^XMB(3.9,36,2,1552,0)="SENDREQ(USER,PAT,TEXT,GMRAET) ;Send email to GMRA REQUEST NEW REACTANT indicating user's request for a new allergy"
^XMB(3.9,36,2,1553,0)="""RTN"",""GMRAPES0"",119,0)"
^XMB(3.9,36,2,1554,0)=" ;Returns 0^reason for error"
^XMB(3.9,36,2,1555,0)="""RTN"",""GMRAPES0"",120,0)"
^XMB(3.9,36,2,1556,0)=" ;        1 if successful"
^XMB(3.9,36,2,1557,0)="""RTN"",""GMRAPES0"",121,0)"
^XMB(3.9,36,2,1558,0)=" N XMDUZ,XMY,XMSUB,GMRATXT,XMTEXT,XMZ,XMMG,GMRAUI,GMRAPI,GMRAUS,GMRAPS,CNT,J"
^XMB(3.9,36,2,1559,0)="""RTN"",""GMRAPES0"",122,0)"
^XMB(3.9,36,2,1560,0)=" Q:'$G(USER)!('+$G(DUZ))!('$L(TEXT)) ""0^Required information missing"""
^XMB(3.9,36,2,1561,0)="""RTN"",""GMRAPES0"",123,0)"
^XMB(3.9,36,2,1562,0)=" S XMDUZ=""Allergy Package"",XMSUB=""Request to add new reactant"""
^XMB(3.9,36,2,1563,0)="""RTN"",""GMRAPES0"",124,0)"
^XMB(3.9,36,2,1564,0)=" S XMY(""G.GMRA REQUEST NEW REACTANT"")="""""
^XMB(3.9,36,2,1565,0)="""RTN"",""GMRAPES0"",125,0)"
^XMB(3.9,36,2,1566,0)=" S XMY(DUZ)="""" ;Include requestor in message"
^XMB(3.9,36,2,1567,0)="""RTN"",""GMRAPES0"",126,0)"
^XMB(3.9,36,2,1568,0)=" D GETS^DIQ(200,USER,"".01;.132;.138;8"",""E"",""GMRAUI""),GETS^DIQ(2,PAT,"".01;.09"",""IE"",""GMRAPI"") S GMRAUS=USER_"","",GMRAPS=PAT_"","""
^XMB(3.9,36,2,1569,0)="""RTN"",""GMRAPES0"",127,0)"
^XMB(3.9,36,2,1570,0)=" S CNT=1"
^XMB(3.9,36,2,1571,0)="""RTN"",""GMRAPES0"",128,0)"
^XMB(3.9,36,2,1572,0)=" S GMRATXT(CNT)=""A request to add ""_TEXT_"" as a new reactant was entered"",CNT=CNT+1"
^XMB(3.9,36,2,1573,0)="""RTN"",""GMRAPES0"",129,0)"
^XMB(3.9,36,2,1574,0)=" S GMRATXT(CNT)=""by ""_GMRAUI(200,GMRAUS,.01,""E"")_"" for patient ""_GMRAPI(2,GMRAPS,.01,""E"")_"" (""_$E(GMRAPI(2,GMRAPS,.09,""I""),6,9)_"")"",CNT=CNT+1"
^XMB(3.9,36,2,1575,0)="""RTN"",""GMRAPES0"",130,0)"
^XMB(3.9,36,2,1576,0)=" S GMRATXT(CNT)="""",CNT=CNT+1"
^XMB(3.9,36,2,1577,0)="""RTN"",""GMRAPES0"",131,0)"
^XMB(3.9,36,2,1578,0)=" S GMRATXT(CNT)=""User's contact information:"",CNT=CNT+1"
^XMB(3.9,36,2,1579,0)="""RTN"",""GMRAPES0"",132,0)"
^XMB(3.9,36,2,1580,0)=" S GMRATXT(CNT)=""Title        : ""_GMRAUI(200,GMRAUS,8,""E""),CNT=CNT+1"
^XMB(3.9,36,2,1581,0)="""RTN"",""GMRAPES0"",133,0)"
^XMB(3.9,36,2,1582,0)=" S GMRATXT(CNT)=""Office Phone : ""_GMRAUI(200,GMRAUS,.132,""E""),CNT=CNT+1"
^XMB(3.9,36,2,1583,0)="""RTN"",""GMRAPES0"",134,0)"
^XMB(3.9,36,2,1584,0)=" S GMRATXT(CNT)=""Digital Pager: ""_GMRAUI(200,GMRAUS,.138,""E""),CNT=CNT+1"
^XMB(3.9,36,2,1585,0)="""RTN"",""GMRAPES0"",135,0)"
^XMB(3.9,36,2,1586,0)=" S GMRATXT(CNT)="""",CNT=CNT+1"
^XMB(3.9,36,2,1587,0)="""RTN"",""GMRAPES0"",136,0)"
^XMB(3.9,36,2,1588,0)=" I $D(GMRAET) S GMRATXT(CNT)=""The user added the following comment:"",CNT=CNT+1,GMRATXT(CNT)="""",CNT=CNT+1 F J=1:1:$P(GMRAET(0),U,3) S GMRATXT(CNT)=GMRAET(J,0),CNT=CNT+1 ;20 Added blank line following comment"
^XMB(3.9,36,2,1589,0)="""RTN"",""GMRAPES0"",137,0)"
^XMB(3.9,36,2,1590,0)=" I $D(GMRAET) S GMRATXT(CNT)="""",CNT=CNT+1"
^XMB(3.9,36,2,1591,0)="""RTN"",""GMRAPES0"",138,0)"
^XMB(3.9,36,2,1592,0)=" S GMRATXT(CNT)=""Please verify with the user the intended reactant and then take the"",CNT=CNT+1"
^XMB(3.9,36,2,1593,0)="""RTN"",""GMRAPES0"",139,0)"
^XMB(3.9,36,2,1594,0)=" S GMRATXT(CNT)=""appropriate action.  Be sure to try alternate spellings, etc before"",CNT=CNT+1"
^XMB(3.9,36,2,1595,0)="""RTN"",""GMRAPES0"",140,0)"
^XMB(3.9,36,2,1596,0)=" S GMRATXT(CNT)=""requesting new reactants through NTRT (New Term Rapid Turnaround)."",CNT=CNT+1 ;23"
^XMB(3.9,36,2,1597,0)="""RTN"",""GMRAPES0"",141,0)"
^XMB(3.9,36,2,1598,0)=" S GMRATXT(CNT)="""",CNT=CNT+1"
^XMB(3.9,36,2,1599,0)="""RTN"",""GMRAPES0"",142,0)"
^XMB(3.9,36,2,1600,0)=" S GMRATXT(CNT)=""Please note, an allergy to ""_TEXT_"" was NOT entered for this patient!"",CNT=CNT+1 ;20"
^XMB(3.9,36,2,1601,0)="""RTN"",""GMRAPES0"",143,0)"
^XMB(3.9,36,2,1602,0)=" S XMTEXT=""GMRATXT("""
^XMB(3.9,36,2,1603,0)="""RTN"",""GMRAPES0"",144,0)"
^XMB(3.9,36,2,1604,0)=" D ^XMD"
^XMB(3.9,36,2,1605,0)="""RTN"",""GMRAPES0"",145,0)"
^XMB(3.9,36,2,1606,0)=" Q $S($D(XMMG):""0^Mail group GMRA REQUEST NEW REACTANT has no members - contact IRM"",1:1)"
^XMB(3.9,36,2,1607,0)="""RTN"",""GMRAPES0"",146,0)"
^XMB(3.9,36,2,1608,0)=" ;"
^XMB(3.9,36,2,1609,0)="""RTN"",""GMRAPES0"",147,0)"
^XMB(3.9,36,2,1610,0)="MESS ;Provide help for sending email message"
^XMB(3.9,36,2,1611,0)="""RTN"",""GMRAPES0"",148,0)"
^XMB(3.9,36,2,1612,0)=" W !,""Enter YES to send an email to the allergy coordinator(s) indicating that"",!,""Reactant--> "",GMRALAR,!,""was not found when you were trying to add it for this patient."",!,""Enter NO to try entering the reactant again."""
^XMB(3.9,36,2,1613,0)="""RTN"",""GMRAPES0"",149,0)"
^XMB(3.9,36,2,1614,0)=" Q"
^XMB(3.9,36,2,1615,0)="""RTN"",""GMRAPES0"",150,0)"
^XMB(3.9,36,2,1616,0)=" ;"
^XMB(3.9,36,2,1617,0)="""RTN"",""GMRAPES0"",151,0)"
^XMB(3.9,36,2,1618,0)="GETINPUT(GMRAET) ;Allow user to add comment to message"
^XMB(3.9,36,2,1619,0)="""RTN"",""GMRAPES0"",152,0)"
^XMB(3.9,36,2,1620,0)=" N DIC,DWLW,DWPK,DIWEPSE"
^XMB(3.9,36,2,1621,0)="""RTN"",""GMRAPES0"",153,0)"
^XMB(3.9,36,2,1622,0)=" S ^TMP($J,""TEXT"",0)="""""
^XMB(3.9,36,2,1623,0)="""RTN"",""GMRAPES0"",154,0)"
^XMB(3.9,36,2,1624,0)=" S DIC=""^TMP($J,""""TEXT"""","""
^XMB(3.9,36,2,1625,0)="""RTN"",""GMRAPES0"",155,0)"
^XMB(3.9,36,2,1626,0)=" S DWLW=70,DWPK=1,DIWEPSE="""""
^XMB(3.9,36,2,1627,0)="""RTN"",""GMRAPES0"",156,0)"
^XMB(3.9,36,2,1628,0)=" W !!,""You may now add any comments you may have to the message that"",!,""is going to be sent with the request to add this reactant."""
^XMB(3.9,36,2,1629,0)="""RTN"",""GMRAPES0"",157,0)"
^XMB(3.9,36,2,1630,0)=" W !,""You may want to add things like sign/symptoms, observed or historical, etc"",!,""that may be useful to the reviewer."",!"
^XMB(3.9,36,2,1631,0)="""RTN"",""GMRAPES0"",158,0)"
^XMB(3.9,36,2,1632,0)=" D EN^DIWE"
^XMB(3.9,36,2,1633,0)="""RTN"",""GMRAPES0"",159,0)"
^XMB(3.9,36,2,1634,0)=" I $O(^TMP($J,""TEXT"",0)) M GMRAET=^TMP($J,""TEXT"")"
^XMB(3.9,36,2,1635,0)="""RTN"",""GMRAPES0"",160,0)"
^XMB(3.9,36,2,1636,0)=" K ^TMP($J,""TEXT"")"
^XMB(3.9,36,2,1637,0)="""RTN"",""GMRAPES0"",161,0)"
^XMB(3.9,36,2,1638,0)=" Q"
^XMB(3.9,36,2,1639,0)="""RTN"",""GMRAPET0"")"
^XMB(3.9,36,2,1640,0)="0^6^B31689941^B26842733"
^XMB(3.9,36,2,1641,0)="""RTN"",""GMRAPET0"",1,0)"
^XMB(3.9,36,2,1642,0)="GMRAPET0 ;HIRMFO/RM-VERIFIED ALLERGY TASKS ;4/7/06  12:38"
^XMB(3.9,36,2,1643,0)="""RTN"",""GMRAPET0"",2,0)"
^XMB(3.9,36,2,1644,0)=" ;;4.0;Adverse Reaction Tracking;**6,17,21,20**;Mar 29, 1996;Build 1"
^XMB(3.9,36,2,1645,0)="""RTN"",""GMRAPET0"",3,0)"
^XMB(3.9,36,2,1646,0)="EN1(GMRADFN,GMRAPA,GMRACT,GMRAOUT) ;"
^XMB(3.9,36,2,1647,0)="""RTN"",""GMRAPET0"",4,0)"
^XMB(3.9,36,2,1648,0)=" ; ENTRY TO PERFORM ALL OF THE TASKS NECESSARY FOR"
^XMB(3.9,36,2,1649,0)="""RTN"",""GMRAPET0"",5,0)"
^XMB(3.9,36,2,1650,0)=" ;                 A PROGRESS NOTE TO BE ENTERED BY ART"
^XMB(3.9,36,2,1651,0)="""RTN"",""GMRAPET0"",6,0)"
^XMB(3.9,36,2,1652,0)=" ;     INPUT:"
^XMB(3.9,36,2,1653,0)="""RTN"",""GMRAPET0"",7,0)"
^XMB(3.9,36,2,1654,0)=" ;           GMRADFN = PATIENT IEN IN THE PATIENT FILE"
^XMB(3.9,36,2,1655,0)="""RTN"",""GMRAPET0"",8,0)"
^XMB(3.9,36,2,1656,0)=" ;           GMRAPA  = THE IEN IN THE PATIENT ALLERGY FILE"
^XMB(3.9,36,2,1657,0)="""RTN"",""GMRAPET0"",9,0)"
^XMB(3.9,36,2,1658,0)=" ;           GMRACT  = THE ACTION TO BE ENTERED FOR THIS REACTION"
^XMB(3.9,36,2,1659,0)="""RTN"",""GMRAPET0"",10,0)"
^XMB(3.9,36,2,1660,0)=" ;                   = ""V"" VERIFICATION OF A REACTION"
^XMB(3.9,36,2,1661,0)="""RTN"",""GMRAPET0"",11,0)"
^XMB(3.9,36,2,1662,0)=" ;                   = ""S"" SIGN OFF OF A REACTION"
^XMB(3.9,36,2,1663,0)="""RTN"",""GMRAPET0"",12,0)"
^XMB(3.9,36,2,1664,0)=" ;                   = ""M"" MEDWATCH FORM ENTERD"
^XMB(3.9,36,2,1665,0)="""RTN"",""GMRAPET0"",13,0)"
^XMB(3.9,36,2,1666,0)=" ;                   = ""E"" REACTION ENERED IN ERROR"
^XMB(3.9,36,2,1667,0)="""RTN"",""GMRAPET0"",14,0)"
^XMB(3.9,36,2,1668,0)=" ;      OUTPUT:"
^XMB(3.9,36,2,1669,0)="""RTN"",""GMRAPET0"",15,0)"
^XMB(3.9,36,2,1670,0)=" ;           GMRAOUT = REACTION ALL WAS PASSED"
^XMB(3.9,36,2,1671,0)="""RTN"",""GMRAPET0"",16,0)"
^XMB(3.9,36,2,1672,0)=" ;                   = 1 USER ABORT OR PN FAIL IN SOME WAY"
^XMB(3.9,36,2,1673,0)="""RTN"",""GMRAPET0"",17,0)"
^XMB(3.9,36,2,1674,0)=" ;                   = 0 PASSED"
^XMB(3.9,36,2,1675,0)="""RTN"",""GMRAPET0"",18,0)"
^XMB(3.9,36,2,1676,0)=" ;"
^XMB(3.9,36,2,1677,0)="""RTN"",""GMRAPET0"",19,0)"
^XMB(3.9,36,2,1678,0)=" ;      VARABLE LIST"
^XMB(3.9,36,2,1679,0)="""RTN"",""GMRAPET0"",20,0)"
^XMB(3.9,36,2,1680,0)=" ;        GMRACW = IS THE PROGRESS NOTE TITLE"
^XMB(3.9,36,2,1681,0)="""RTN"",""GMRAPET0"",21,0)"
^XMB(3.9,36,2,1682,0)=" ;       GMRALOC = IS THE LOCATION OF THE PATIENT"
^XMB(3.9,36,2,1683,0)="""RTN"",""GMRAPET0"",22,0)"
^XMB(3.9,36,2,1684,0)=" ;      GMRAHLOC = IS THE LOCATION IN FILE 44"
^XMB(3.9,36,2,1685,0)="""RTN"",""GMRAPET0"",23,0)"
^XMB(3.9,36,2,1686,0)=" ;       GMRADFN = IS THE PATIENT IEN"
^XMB(3.9,36,2,1687,0)="""RTN"",""GMRAPET0"",24,0)"
^XMB(3.9,36,2,1688,0)=" ;        GMRADT = IS THE DATE THE EVENT TOOK PLACE"
^XMB(3.9,36,2,1689,0)="""RTN"",""GMRAPET0"",25,0)"
^XMB(3.9,36,2,1690,0)=" ;       GMRADUZ = IS THE USER WHO ENTERED THE INFORMATION"
^XMB(3.9,36,2,1691,0)="""RTN"",""GMRAPET0"",26,0)"
^XMB(3.9,36,2,1692,0)=" ;        GMRAPN = IS THE IEN OF THE PROGRESS NOTE THAT WAS ENTERED"
^XMB(3.9,36,2,1693,0)="""RTN"",""GMRAPET0"",27,0)"
^XMB(3.9,36,2,1694,0)=" ;"
^XMB(3.9,36,2,1695,0)="""RTN"",""GMRAPET0"",28,0)"
^XMB(3.9,36,2,1696,0)=" ;CHECKING FOR A VALID TITLE"
^XMB(3.9,36,2,1697,0)="""RTN"",""GMRAPET0"",29,0)"
^XMB(3.9,36,2,1698,0)=" K ^TMP(""TIUP"",$J),GMRAPN"
^XMB(3.9,36,2,1699,0)="""RTN"",""GMRAPET0"",30,0)"
^XMB(3.9,36,2,1700,0)=" N GMRACW,GMRALOC,GMRAHLOC,GMRAXBOS ;21"
^XMB(3.9,36,2,1701,0)="""RTN"",""GMRAPET0"",31,0)"
^XMB(3.9,36,2,1702,0)=" S GMRAPN=-1,GMRAXBOS=$$BROKER^XWBLIB ;21 Got GUI?"
^XMB(3.9,36,2,1703,0)="""RTN"",""GMRAPET0"",32,0)"
^XMB(3.9,36,2,1704,0)=" I ""VSME""'[GMRACT S GMRAOUT=1 D EXIT Q"
^XMB(3.9,36,2,1705,0)="""RTN"",""GMRAPET0"",33,0)"
^XMB(3.9,36,2,1706,0)=" ; The following lines of code which reference Progress Notes files and"
^XMB(3.9,36,2,1707,0)="""RTN"",""GMRAPET0"",34,0)"
^XMB(3.9,36,2,1708,0)=" ; routines will have to change when TIU replaces Progress Notes."
^XMB(3.9,36,2,1709,0)="""RTN"",""GMRAPET0"",35,0)"
^XMB(3.9,36,2,1710,0)=" ;S GMRACW=0 F  S GMRACW=$O(^GMR(121.2,""B"",""ADVERSE REACTION/ALLERGY"",GMRACW)) Q:GMRACW<1  I $P($G(^GMR(121.1,$P($G(^GMR(121.2,GMRACW,0)),U,2),0)),U)=""GENERAL NOTE"" Q"
^XMB(3.9,36,2,1711,0)="""RTN"",""GMRAPET0"",36,0)"
^XMB(3.9,36,2,1712,0)=" ;-----ADDED BY VAUGHN 1/13/97 FOR TIU REPLACES LINE ABOVE----"
^XMB(3.9,36,2,1713,0)="""RTN"",""GMRAPET0"",37,0)"
^XMB(3.9,36,2,1714,0)=" S GMRACW=+$$WHATITLE^TIUPUTU(""ADVERSE REACTION/ALLERGY"")"
^XMB(3.9,36,2,1715,0)="""RTN"",""GMRAPET0"",38,0)"
^XMB(3.9,36,2,1716,0)=" ;------END---"
^XMB(3.9,36,2,1717,0)="""RTN"",""GMRAPET0"",39,0)"
^XMB(3.9,36,2,1718,0)=" ;-----CHANGED BY VAUGHN 1/13/97 FOR TIU---"
^XMB(3.9,36,2,1719,0)="""RTN"",""GMRAPET0"",40,0)"
^XMB(3.9,36,2,1720,0)=" I GMRACW<1!($T(NEW^TIUPNAPI)']"""")!('$$CANPICK^TIULP(GMRACW)) S GMRAOUT=1 D EXIT Q  ;21"
^XMB(3.9,36,2,1721,0)="""RTN"",""GMRAPET0"",41,0)"
^XMB(3.9,36,2,1722,0)=" ;I GMRACW<1!($T(PN^GMRPART)']"""") S GMRAOUT=1 D EXIT Q"
^XMB(3.9,36,2,1723,0)="""RTN"",""GMRAPET0"",42,0)"
^XMB(3.9,36,2,1724,0)=" ;-----END----"
^XMB(3.9,36,2,1725,0)="""RTN"",""GMRAPET0"",43,0)"
^XMB(3.9,36,2,1726,0)=" D @GMRACT I GMRAOUT D EXIT Q  ; THIS TELL'S THE PROGRAM WHERE TO GO"
^XMB(3.9,36,2,1727,0)="""RTN"",""GMRAPET0"",44,0)"
^XMB(3.9,36,2,1728,0)=" S GMRALOC="""""
^XMB(3.9,36,2,1729,0)="""RTN"",""GMRAPET0"",45,0)"
^XMB(3.9,36,2,1730,0)=" D VAD^GMRAUTL1(GMRADFN,"""",.GMRALOC,"""","""","""")"
^XMB(3.9,36,2,1731,0)="""RTN"",""GMRAPET0"",46,0)"
^XMB(3.9,36,2,1732,0)=" I GMRALOC'="""" S GMRAHLOC=+$G(^DIC(42,GMRALOC,44))"
^XMB(3.9,36,2,1733,0)="""RTN"",""GMRAPET0"",47,0)"
^XMB(3.9,36,2,1734,0)=" ;E  I '$G(GMRAXBOS) D ASK ;20"
^XMB(3.9,36,2,1735,0)="""RTN"",""GMRAPET0"",48,0)"
^XMB(3.9,36,2,1736,0)=" ; Call to Progress Notes"
^XMB(3.9,36,2,1737,0)="""RTN"",""GMRAPET0"",49,0)"
^XMB(3.9,36,2,1738,0)=" ; vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv"
^XMB(3.9,36,2,1739,0)="""RTN"",""GMRAPET0"",50,0)"
^XMB(3.9,36,2,1740,0)=" ;S:'GMRAOUT GMRAPN=+$$PN^GMRPART(GMRADFN,GMRADUZ,GMRADT,GMRACW,GMRAHLOC)"
^XMB(3.9,36,2,1741,0)="""RTN"",""GMRAPET0"",51,0)"
^XMB(3.9,36,2,1742,0)=" ;---REPLACED LINE ABOVE WITH LINE BELOW;1/13/97 VAUGHN---"
^XMB(3.9,36,2,1743,0)="""RTN"",""GMRAPET0"",52,0)"
^XMB(3.9,36,2,1744,0)=" I 'GMRAOUT D"
^XMB(3.9,36,2,1745,0)="""RTN"",""GMRAPET0"",53,0)"
^XMB(3.9,36,2,1746,0)=" .S GMRAPN=0 D NEW^TIUPNAPI(.GMRAPN,GMRADFN,GMRADUZ,GMRADT,GMRACW,$G(GMRAHLOC),$S($G(GMRAXBOS):0,1:1)) ;17,21 Allow editing if not in GUI"
^XMB(3.9,36,2,1747,0)="""RTN"",""GMRAPET0"",54,0)"
^XMB(3.9,36,2,1748,0)=" ;----------END-------"
^XMB(3.9,36,2,1749,0)="""RTN"",""GMRAPET0"",55,0)"
^XMB(3.9,36,2,1750,0)=" I GMRAPN=-1,'$G(GMRAXBOS) S GMRAOUT=1 W !,""No Progress Note was created."" ;21"
^XMB(3.9,36,2,1751,0)="""RTN"",""GMRAPET0"",56,0)"
^XMB(3.9,36,2,1752,0)=" I GMRAPN=0,'$G(GMRAXBOS) W !,""Progress note has not been signed."" ;21"
^XMB(3.9,36,2,1753,0)="""RTN"",""GMRAPET0"",57,0)"
^XMB(3.9,36,2,1754,0)=" D EXIT"
^XMB(3.9,36,2,1755,0)="""RTN"",""GMRAPET0"",58,0)"
^XMB(3.9,36,2,1756,0)=" Q"
^XMB(3.9,36,2,1757,0)="""RTN"",""GMRAPET0"",59,0)"
^XMB(3.9,36,2,1758,0)="EXIT ; Clean up of variables"
^XMB(3.9,36,2,1759,0)="""RTN"",""GMRAPET0"",60,0)"
^XMB(3.9,36,2,1760,0)=" K ^TMP(""TIUP"",$J),GMRAPN,GMRALOC,GMRAHLOC,GMRADUZ"
^XMB(3.9,36,2,1761,0)="""RTN"",""GMRAPET0"",61,0)"
^XMB(3.9,36,2,1762,0)=" Q"
^XMB(3.9,36,2,1763,0)="""RTN"",""GMRAPET0"",62,0)"
^XMB(3.9,36,2,1764,0)="ASK ; Simple file manager query for a location in file 44"
^XMB(3.9,36,2,1765,0)="""RTN"",""GMRAPET0"",63,0)"
^XMB(3.9,36,2,1766,0)=" N DIC"
^XMB(3.9,36,2,1767,0)="""RTN"",""GMRAPET0"",64,0)"
^XMB(3.9,36,2,1768,0)=" S X="""""
^XMB(3.9,36,2,1769,0)="""RTN"",""GMRAPET0"",65,0)"
^XMB(3.9,36,2,1770,0)=" S DIC=44,DIC(0)=""AEQ"",DIC(""A"")=""Select a Hospital Location: "",DIC(""S"")=""I """"CMW""""[$P(^(0),U,3)"" ;20"
^XMB(3.9,36,2,1771,0)="""RTN"",""GMRAPET0"",66,0)"
^XMB(3.9,36,2,1772,0)=" W !,""A progress note is being created because you ""_$S(GMRACT=""V"":""verified"",GMRACT=""E"":""inactivated"",GMRACT=""S"":""activated"",1:""entered a medwatch form for""),!,$P($G(^GMR(120.8,GMRAPA,0)),U,2),""."" ;20"
^XMB(3.9,36,2,1773,0)="""RTN"",""GMRAPET0"",67,0)"
^XMB(3.9,36,2,1774,0)=" W !,""Enter a hospital location to be associated with this note."" ;20"
^XMB(3.9,36,2,1775,0)="""RTN"",""GMRAPET0"",68,0)"
^XMB(3.9,36,2,1776,0)=" D ^DIC"
^XMB(3.9,36,2,1777,0)="""RTN"",""GMRAPET0"",69,0)"
^XMB(3.9,36,2,1778,0)=" I $D(DTOUT)!($D(DUOUT)) S GMRAOUT=1 Q"
^XMB(3.9,36,2,1779,0)="""RTN"",""GMRAPET0"",70,0)"
^XMB(3.9,36,2,1780,0)=" S GMRAHLOC=+Y"
^XMB(3.9,36,2,1781,0)="""RTN"",""GMRAPET0"",71,0)"
^XMB(3.9,36,2,1782,0)=" Q"
^XMB(3.9,36,2,1783,0)="""RTN"",""GMRAPET0"",72,0)"
^XMB(3.9,36,2,1784,0)="V ; Verified Reaction"
^XMB(3.9,36,2,1785,0)="""RTN"",""GMRAPET0"",73,0)"
^XMB(3.9,36,2,1786,0)=" N GMRAI ;21"
^XMB(3.9,36,2,1787,0)="""RTN"",""GMRAPET0"",74,0)"
^XMB(3.9,36,2,1788,0)=" S GMRAPA(0)=$G(^GMR(120.8,GMRAPA,0))"
^XMB(3.9,36,2,1789,0)="""RTN"",""GMRAPET0"",75,0)"
^XMB(3.9,36,2,1790,0)=" S GMRADT=$P(GMRAPA(0),U,17),GMRADUZ=$P(GMRAPA(0),U,18)"
^XMB(3.9,36,2,1791,0)="""RTN"",""GMRAPET0"",76,0)"
^XMB(3.9,36,2,1792,0)=" S:GMRADUZ="""" GMRADUZ=DUZ ; Autoverified reaction being reverified"
^XMB(3.9,36,2,1793,0)="""RTN"",""GMRAPET0"",77,0)"
^XMB(3.9,36,2,1794,0)=" S ^TMP(""TIUP"",$J,1,0)=""This patient has had an ""_$S($P(GMRAPA(0),""^"",14)=""P"":""adverse reaction reported for "",1:""allergy to "")_$P(GMRAPA(0),""^"",2)"
^XMB(3.9,36,2,1795,0)="""RTN"",""GMRAPET0"",78,0)"
^XMB(3.9,36,2,1796,0)=" S ^TMP(""TIUP"",$J,2,0)=""verified on ""_$$FMTE^XLFDT(GMRADT,1)_""."""
^XMB(3.9,36,2,1797,0)="""RTN"",""GMRAPET0"",79,0)"
^XMB(3.9,36,2,1798,0)=" S GMRAI=2 D ADDCOM(""V"",.GMRAI) ;21"
^XMB(3.9,36,2,1799,0)="""RTN"",""GMRAPET0"",80,0)"
^XMB(3.9,36,2,1800,0)=" S ^TMP(""TIUP"",$J,0)=U_U_GMRAI_U_GMRAI_U_GMRADT_""^^^"" ;21"
^XMB(3.9,36,2,1801,0)="""RTN"",""GMRAPET0"",81,0)"
^XMB(3.9,36,2,1802,0)=" Q"
^XMB(3.9,36,2,1803,0)="""RTN"",""GMRAPET0"",82,0)"
^XMB(3.9,36,2,1804,0)="S ; Signed Reaction"
^XMB(3.9,36,2,1805,0)="""RTN"",""GMRAPET0"",83,0)"
^XMB(3.9,36,2,1806,0)=" N GMRAI,GMRAREAC ;21"
^XMB(3.9,36,2,1807,0)="""RTN"",""GMRAPET0"",84,0)"
^XMB(3.9,36,2,1808,0)=" D NOW^%DTC"
^XMB(3.9,36,2,1809,0)="""RTN"",""GMRAPET0"",85,0)"
^XMB(3.9,36,2,1810,0)=" S GMRADT=%,GMRADUZ=DUZ"
^XMB(3.9,36,2,1811,0)="""RTN"",""GMRAPET0"",86,0)"
^XMB(3.9,36,2,1812,0)=" S GMRAREAC=0,GMRAI=3 F  S GMRAREAC=$O(GMRAPA(GMRAREAC)) Q:GMRAREAC<1  S GMRAI=GMRAI+1,^TMP(""TIUP"",$J,GMRAI,0)=$P($G(^GMR(120.8,GMRAREAC,0)),U,2) S GMRAPA=GMRAREAC D  ;21"
^XMB(3.9,36,2,1813,0)="""RTN"",""GMRAPET0"",87,0)"
^XMB(3.9,36,2,1814,0)=" .D ADDCOM(""O"",.GMRAI) ;21"
^XMB(3.9,36,2,1815,0)="""RTN"",""GMRAPET0"",88,0)"
^XMB(3.9,36,2,1816,0)=" .S GMRAI=GMRAI+1,^TMP(""TIUP"",$J,GMRAI,0)="""" ;21"
^XMB(3.9,36,2,1817,0)="""RTN"",""GMRAPET0"",89,0)"
^XMB(3.9,36,2,1818,0)=" S ^TMP(""TIUP"",$J,1,0)=""This patient has had the following reaction""_$S(GMRAI=3:"" "",1:""s "")"
^XMB(3.9,36,2,1819,0)="""RTN"",""GMRAPET0"",90,0)"
^XMB(3.9,36,2,1820,0)=" S ^TMP(""TIUP"",$J,2,0)=""signed-off on ""_$$FMTE^XLFDT(GMRADT,1)_""."""
^XMB(3.9,36,2,1821,0)="""RTN"",""GMRAPET0"",91,0)"
^XMB(3.9,36,2,1822,0)=" S ^TMP(""TIUP"",$J,3,0)="""" ;21"
^XMB(3.9,36,2,1823,0)="""RTN"",""GMRAPET0"",92,0)"
^XMB(3.9,36,2,1824,0)=" S ^TMP(""TIUP"",$J,0)=U_U_GMRAI_U_GMRAI_U_GMRADT_""^^^"""
^XMB(3.9,36,2,1825,0)="""RTN"",""GMRAPET0"",93,0)"
^XMB(3.9,36,2,1826,0)=" Q"
^XMB(3.9,36,2,1827,0)="""RTN"",""GMRAPET0"",94,0)"
^XMB(3.9,36,2,1828,0)="M ; MedWATCH data entered"
^XMB(3.9,36,2,1829,0)="""RTN"",""GMRAPET0"",95,0)"
^XMB(3.9,36,2,1830,0)=" N X"
^XMB(3.9,36,2,1831,0)="""RTN"",""GMRAPET0"",96,0)"
^XMB(3.9,36,2,1832,0)=" S GMRAPA(0)=$G(^GMR(120.8,GMRAPA,0))"
^XMB(3.9,36,2,1833,0)="""RTN"",""GMRAPET0"",97,0)"
^XMB(3.9,36,2,1834,0)=" D NOW^%DTC"
^XMB(3.9,36,2,1835,0)="""RTN"",""GMRAPET0"",98,0)"
^XMB(3.9,36,2,1836,0)=" S GMRADT=%,GMRADUZ=DUZ"
^XMB(3.9,36,2,1837,0)="""RTN"",""GMRAPET0"",99,0)"
^XMB(3.9,36,2,1838,0)=" S ^TMP(""TIUP"",$J,1,0)=""This patient has had a MEDWatch report completed on ""_$$FMTE^XLFDT(GMRADT,1)_"" for"""
^XMB(3.9,36,2,1839,0)="""RTN"",""GMRAPET0"",100,0)"
^XMB(3.9,36,2,1840,0)=" S ^TMP(""TIUP"",$J,2,0)=$S($P(GMRAPA(0),""^"",14)=""P"":""an adverse reaction to "",1:""allergy to "")_$P(GMRAPA(0),""^"",2)_""."""
^XMB(3.9,36,2,1841,0)="""RTN"",""GMRAPET0"",101,0)"
^XMB(3.9,36,2,1842,0)=" S ^TMP(""TIUP"",$J,0)=U_U_""2""_U_""2""_U_GMRADT_""^^^"""
^XMB(3.9,36,2,1843,0)="""RTN"",""GMRAPET0"",102,0)"
^XMB(3.9,36,2,1844,0)=" Q"
^XMB(3.9,36,2,1845,0)="""RTN"",""GMRAPET0"",103,0)"
^XMB(3.9,36,2,1846,0)="E ; Reaction Entered in Error"
^XMB(3.9,36,2,1847,0)="""RTN"",""GMRAPET0"",104,0)"
^XMB(3.9,36,2,1848,0)=" N GMRAER,GMRAI ;21"
^XMB(3.9,36,2,1849,0)="""RTN"",""GMRAPET0"",105,0)"
^XMB(3.9,36,2,1850,0)=" S GMRAPA(0)=$G(^GMR(120.8,GMRAPA,0))"
^XMB(3.9,36,2,1851,0)="""RTN"",""GMRAPET0"",106,0)"
^XMB(3.9,36,2,1852,0)=" S GMRAER=$G(^GMR(120.8,GMRAPA,""ER"")) I GMRAER="""" S GMRAOUT=1 Q"
^XMB(3.9,36,2,1853,0)="""RTN"",""GMRAPET0"",107,0)"
^XMB(3.9,36,2,1854,0)=" S GMRADT=$P(GMRAER,U,2),GMRADUZ=$P(GMRAER,U,3)"
^XMB(3.9,36,2,1855,0)="""RTN"",""GMRAPET0"",108,0)"
^XMB(3.9,36,2,1856,0)=" S ^TMP(""TIUP"",$J,1,0)=""The ""_$S($P(GMRAPA(0),""^"",14)=""P"":""adverse reaction "",1:""allergy "")_""to ""_$P(GMRAPA(0),""^"",2)_"" was removed on ""_$$FMTE^XLFDT($P(GMRADT,"".""),2)_""."" ;20"
^XMB(3.9,36,2,1857,0)="""RTN"",""GMRAPET0"",109,0)"
^XMB(3.9,36,2,1858,0)=" S ^TMP(""TIUP"",$J,2,0)=""This reaction was either an erroneous entry or was found"" ;20"
^XMB(3.9,36,2,1859,0)="""RTN"",""GMRAPET0"",110,0)"
^XMB(3.9,36,2,1860,0)=" S ^TMP(""TIUP"",$J,3,0)=""to no longer be a true ""_$S($P(GMRAPA(0),""^"",14)=""P"":""adverse reaction"",1:""allergy"")_""."" ;20"
^XMB(3.9,36,2,1861,0)="""RTN"",""GMRAPET0"",111,0)"
^XMB(3.9,36,2,1862,0)=" S GMRAI=3 D ADDCOM(""E"",.GMRAI) ;21,20"
^XMB(3.9,36,2,1863,0)="""RTN"",""GMRAPET0"",112,0)"
^XMB(3.9,36,2,1864,0)=" S ^TMP(""TIUP"",$J,0)=U_U_GMRAI_U_GMRAI_U_GMRADT_""^^^"" ;21"
^XMB(3.9,36,2,1865,0)="""RTN"",""GMRAPET0"",113,0)"
^XMB(3.9,36,2,1866,0)=" Q"
^XMB(3.9,36,2,1867,0)="""RTN"",""GMRAPET0"",114,0)"
^XMB(3.9,36,2,1868,0)=" ;"
^XMB(3.9,36,2,1869,0)="""RTN"",""GMRAPET0"",115,0)"
^XMB(3.9,36,2,1870,0)="ADDCOM(TYPE,CNT) ;Add any comments to progress note - section added in patch 21"
^XMB(3.9,36,2,1871,0)="""RTN"",""GMRAPET0"",116,0)"
^XMB(3.9,36,2,1872,0)=" N SUB,ENTRY"
^XMB(3.9,36,2,1873,0)="""RTN"",""GMRAPET0"",117,0)"
^XMB(3.9,36,2,1874,0)=" S ENTRY=$O(^GMR(120.8,GMRAPA,26,""AVER"",TYPE,0)) Q:'+ENTRY"
^XMB(3.9,36,2,1875,0)="""RTN"",""GMRAPET0"",118,0)"
^XMB(3.9,36,2,1876,0)=" S CNT=CNT+1,^TMP(""TIUP"",$J,CNT,0)="""",CNT=CNT+1,^TMP(""TIUP"",$J,CNT,0)=""Author's comments:"""
^XMB(3.9,36,2,1877,0)="""RTN"",""GMRAPET0"",119,0)"
^XMB(3.9,36,2,1878,0)=" S CNT=CNT+1,^TMP(""TIUP"",$J,CNT,0)="""""
^XMB(3.9,36,2,1879,0)="""RTN"",""GMRAPET0"",120,0)"
^XMB(3.9,36,2,1880,0)=" S SUB=0 F  S SUB=$O(^GMR(120.8,GMRAPA,26,ENTRY,2,SUB)) Q:'+SUB  S CNT=CNT+1,^TMP(""TIUP"",$J,CNT,0)=^GMR(120.8,GMRAPA,26,ENTRY,2,SUB,0)"
^XMB(3.9,36,2,1881,0)="""RTN"",""GMRAPET0"",121,0)"
^XMB(3.9,36,2,1882,0)=" Q"
^XMB(3.9,36,2,1883,0)="""RTN"",""GMRAY20"")"
^XMB(3.9,36,2,1884,0)="0^5^B8283807^n/a"
^XMB(3.9,36,2,1885,0)="""RTN"",""GMRAY20"",1,0)"
^XMB(3.9,36,2,1886,0)="GMRAY20 ;SLC/DAN Post-install for patch 20 ;6/22/06  10:09"
^XMB(3.9,36,2,1887,0)="""RTN"",""GMRAY20"",2,0)"
^XMB(3.9,36,2,1888,0)=" ;;4.0;Adverse Reaction Tracking;**20**;Mar 29, 1996;Build 1"
^XMB(3.9,36,2,1889,0)="""RTN"",""GMRAY20"",3,0)"
^XMB(3.9,36,2,1890,0)=" ;"
^XMB(3.9,36,2,1891,0)="""RTN"",""GMRAY20"",4,0)"
^XMB(3.9,36,2,1892,0)="POST ;Executed following installation of patch 20"
^XMB(3.9,36,2,1893,0)="""RTN"",""GMRAY20"",5,0)"
^XMB(3.9,36,2,1894,0)=" N SUB,TOP,DIK,DA"
^XMB(3.9,36,2,1895,0)="""RTN"",""GMRAY20"",6,0)"
^XMB(3.9,36,2,1896,0)=" K ^XTMP(""GMRAFX"") ;Remove existing free text allergy list - switching location and don't need old list"
^XMB(3.9,36,2,1897,0)="""RTN"",""GMRAY20"",7,0)"
^XMB(3.9,36,2,1898,0)=" S SUB=0 F  S SUB=$O(^GMRD(120.84,SUB)) Q:'+SUB  D"
^XMB(3.9,36,2,1899,0)="""RTN"",""GMRAY20"",8,0)"
^XMB(3.9,36,2,1900,0)=" .Q:'$D(^GMRD(120.84,SUB,1))  ;Stop if no top 10 list associated with this entry"
^XMB(3.9,36,2,1901,0)="""RTN"",""GMRAY20"",9,0)"
^XMB(3.9,36,2,1902,0)=" .S TOP=10 F  S TOP=$O(^GMRD(120.84,SUB,1,TOP)) Q:'+TOP  D"
^XMB(3.9,36,2,1903,0)="""RTN"",""GMRAY20"",10,0)"
^XMB(3.9,36,2,1904,0)=" ..S DA(1)=SUB,DA=TOP,DIK=""^GMRD(120.84,""_DA(1)_"",1,"" D ^DIK ;Delete any entries in multiple numbered above 10"
^XMB(3.9,36,2,1905,0)="""RTN"",""GMRAY20"",11,0)"
^XMB(3.9,36,2,1906,0)=" ;"
^XMB(3.9,36,2,1907,0)="""RTN"",""GMRAY20"",12,0)"
^XMB(3.9,36,2,1908,0)="FIXZERO ;Find varible pointers associated with IEN zero"
^XMB(3.9,36,2,1909,0)="""RTN"",""GMRAY20"",13,0)"
^XMB(3.9,36,2,1910,0)=" N TMP,IEN,FREE"
^XMB(3.9,36,2,1911,0)="""RTN"",""GMRAY20"",14,0)"
^XMB(3.9,36,2,1912,0)=" S FREE=$O(^GMRD(120.82,""B"",""OTHER ALLERGY/ADVERSE REACTION"",0)) Q:'FREE  S:FREE FREE=FREE_"";GMRD(120.82,"""
^XMB(3.9,36,2,1913,0)="""RTN"",""GMRAY20"",15,0)"
^XMB(3.9,36,2,1914,0)=" S IEN=0 F  S IEN=$O(^GMR(120.8,IEN)) Q:'+IEN  D"
^XMB(3.9,36,2,1915,0)="""RTN"",""GMRAY20"",16,0)"
^XMB(3.9,36,2,1916,0)=" .I $E($P($G(^GMR(120.8,IEN,0)),U,3),1,2)=""0;"" D"
^XMB(3.9,36,2,1917,0)="""RTN"",""GMRAY20"",17,0)"
^XMB(3.9,36,2,1918,0)=" ..S $P(^GMR(120.8,IEN,0),U,3)=FREE ;Update pointer to free text entry"
^XMB(3.9,36,2,1919,0)="""RTN"",""GMRAY20"",18,0)"
^XMB(3.9,36,2,1920,0)=" ..S TMP($P(^GMR(120.8,IEN,0),U),$P(^GMR(120.8,IEN,0),U,2))="""""
^XMB(3.9,36,2,1921,0)="""RTN"",""GMRAY20"",19,0)"
^XMB(3.9,36,2,1922,0)=" ;"
^XMB(3.9,36,2,1923,0)="""RTN"",""GMRAY20"",20,0)"
^XMB(3.9,36,2,1924,0)="MAIL ;Send message indicating post install is finished"
^XMB(3.9,36,2,1925,0)="""RTN"",""GMRAY20"",21,0)"
^XMB(3.9,36,2,1926,0)=" N XMSUB,XMTEXT,XMDUZ,XMY,XMZ,GMRATXT,CNT,VADM,DFN,REACTANT,LOOP,DIFROM"
^XMB(3.9,36,2,1927,0)="""RTN"",""GMRAY20"",22,0)"
^XMB(3.9,36,2,1928,0)=" S XMDUZ=""PATCH GMRA*4*20 POST-INSTALL"",XMY(.5)="""" S:$G(DUZ) XMY(DUZ)="""""
^XMB(3.9,36,2,1929,0)="""RTN"",""GMRAY20"",23,0)"
^XMB(3.9,36,2,1930,0)=" S GMRATXT(1)=""The post-install routine for patch GMRA*4*20"""
^XMB(3.9,36,2,1931,0)="""RTN"",""GMRAY20"",24,0)"
^XMB(3.9,36,2,1932,0)=" S GMRATXT(2)=""finished on ""_$$FMTE^XLFDT($$NOW^XLFDT)_""."""
^XMB(3.9,36,2,1933,0)="""RTN"",""GMRAY20"",25,0)"
^XMB(3.9,36,2,1934,0)=" S GMRATXT(3)="""""
^XMB(3.9,36,2,1935,0)="""RTN"",""GMRAY20"",26,0)"
^XMB(3.9,36,2,1936,0)=" S CNT=4"
^XMB(3.9,36,2,1937,0)="""RTN"",""GMRAY20"",27,0)"
^XMB(3.9,36,2,1938,0)=" I $D(TMP) D"
^XMB(3.9,36,2,1939,0)="""RTN"",""GMRAY20"",28,0)"
^XMB(3.9,36,2,1940,0)=" .S GMRATXT(CNT)=""The following patients had reactants updated to free text entries"",CNT=CNT+1,GMRATXT(CNT)=""because of a problem with the pointer data."",CNT=CNT+1"
^XMB(3.9,36,2,1941,0)="""RTN"",""GMRAY20"",29,0)"
^XMB(3.9,36,2,1942,0)=" .S GMRATXT(CNT)="""",CNT=CNT+1,GMRATXT(CNT)=""Please use the Allergy Update Utility to fix these entries."",CNT=CNT+1,GMRATXT(CNT)="""",CNT=CNT+1"
^XMB(3.9,36,2,1943,0)="""RTN"",""GMRAY20"",30,0)"
^XMB(3.9,36,2,1944,0)=" .S IEN=0 F  S IEN=$O(TMP(IEN)) Q:'+IEN  S NAME=$$GET1^DIQ(2,IEN,.01)_"" (""_$E($$GET1^DIQ(2,IEN,.09),6,9)_"")"" S REACT="""" F  S REACT=$O(TMP(IEN,REACT)) Q:REACT=""""  D"
^XMB(3.9,36,2,1945,0)="""RTN"",""GMRAY20"",31,0)"
^XMB(3.9,36,2,1946,0)=" ..S GMRATXT(CNT)=NAME_$$REPEAT^XLFSTR("" "",(38-$L(NAME)))_REACT,CNT=CNT+1"
^XMB(3.9,36,2,1947,0)="""RTN"",""GMRAY20"",32,0)"
^XMB(3.9,36,2,1948,0)=" S XMTEXT=""GMRATXT("",XMSUB=""PATCH GMRA*4*20 Post Install COMPLETED"""
^XMB(3.9,36,2,1949,0)="""RTN"",""GMRAY20"",33,0)"
^XMB(3.9,36,2,1950,0)=" D ^XMD"
^XMB(3.9,36,2,1951,0)="""RTN"",""GMRAY20"",34,0)"
^XMB(3.9,36,2,1952,0)=" Q"
^XMB(3.9,36,2,1953,0)="""VER"")"
^XMB(3.9,36,2,1954,0)="8.0^22.0"
^XMB(3.9,36,2,1955,0)="""BLD"",6071,6)"
^XMB(3.9,36,2,1956,0)="^31"
^XMB(3.9,36,2,1957,0)="$END KID GMRA*4.0*20"
^XMB(3.9,36,6,0)="^3.911A^2^2"
^XMB(3.9,36,6,1,0)="POSTMASTER"
^XMB(3.9,36,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,36,6,"B","POSTMASTER",1)=""
^XMB(3.9,36,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,37,0)="GMRC-3_SEQ-44_PAT-51.KID^.5^3061008.015734^^^^K"
^XMB(3.9,37,.6)="3061008"
^XMB(3.9,37,1,0)="^3.91A^2^2"
^XMB(3.9,37,1,1,0)=".5^0^3061008.015734^^^^^^^3061008.015734"
^XMB(3.9,37,1,2,0)="1^0^3061008.023128^^^^^^^3061008.023128"
^XMB(3.9,37,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,37,1,"C",.5,1)=""
^XMB(3.9,37,1,"C",1,2)=""
^XMB(3.9,37,2,0)="^^439^439^3061008"
^XMB(3.9,37,2,1,0)="$TXT Released GMRC*3*51 SEQ #44"
^XMB(3.9,37,2,2,0)="Extracted from mail message"
^XMB(3.9,37,2,3,0)="$END TXT"
^XMB(3.9,37,2,4,0)="$KID GMRC*3.0*51"
^XMB(3.9,37,2,5,0)="**INSTALL NAME**"
^XMB(3.9,37,2,6,0)="GMRC*3.0*51"
^XMB(3.9,37,2,7,0)="""BLD"",6628,0)"
^XMB(3.9,37,2,8,0)="GMRC*3.0*51^CONSULT/REQUEST TRACKING^0^3060518^y"
^XMB(3.9,37,2,9,0)="""BLD"",6628,1,0)"
^XMB(3.9,37,2,10,0)="^^2^2^3060316^"
^XMB(3.9,37,2,11,0)="""BLD"",6628,1,1,0)"
^XMB(3.9,37,2,12,0)="This patch adds a call to Imaging, at the request of the Imaging "
^XMB(3.9,37,2,13,0)="""BLD"",6628,1,2,0)"
^XMB(3.9,37,2,14,0)="package, to allow Imaging to process Consult HL7 messages."
^XMB(3.9,37,2,15,0)="""BLD"",6628,4,0)"
^XMB(3.9,37,2,16,0)="^9.64PA^^0"
^XMB(3.9,37,2,17,0)="""BLD"",6628,""KRN"",0)"
^XMB(3.9,37,2,18,0)="^9.67PA^8989.52^19"
^XMB(3.9,37,2,19,0)="""BLD"",6628,""KRN"",.4,0)"
^XMB(3.9,37,2,20,0)=".4"
^XMB(3.9,37,2,21,0)="""BLD"",6628,""KRN"",.401,0)"
^XMB(3.9,37,2,22,0)=".401"
^XMB(3.9,37,2,23,0)="""BLD"",6628,""KRN"",.402,0)"
^XMB(3.9,37,2,24,0)=".402"
^XMB(3.9,37,2,25,0)="""BLD"",6628,""KRN"",.403,0)"
^XMB(3.9,37,2,26,0)=".403"
^XMB(3.9,37,2,27,0)="""BLD"",6628,""KRN"",.5,0)"
^XMB(3.9,37,2,28,0)=".5"
^XMB(3.9,37,2,29,0)="""BLD"",6628,""KRN"",.84,0)"
^XMB(3.9,37,2,30,0)=".84"
^XMB(3.9,37,2,31,0)="""BLD"",6628,""KRN"",3.6,0)"
^XMB(3.9,37,2,32,0)="3.6"
^XMB(3.9,37,2,33,0)="""BLD"",6628,""KRN"",3.8,0)"
^XMB(3.9,37,2,34,0)="3.8"
^XMB(3.9,37,2,35,0)="""BLD"",6628,""KRN"",3.8,""NM"",0)"
^XMB(3.9,37,2,36,0)="^9.68A^^"
^XMB(3.9,37,2,37,0)="""BLD"",6628,""KRN"",9.2,0)"
^XMB(3.9,37,2,38,0)="9.2"
^XMB(3.9,37,2,39,0)="""BLD"",6628,""KRN"",9.2,""NM"",0)"
^XMB(3.9,37,2,40,0)="^9.68A^^"
^XMB(3.9,37,2,41,0)="""BLD"",6628,""KRN"",9.8,0)"
^XMB(3.9,37,2,42,0)="9.8"
^XMB(3.9,37,2,43,0)="""BLD"",6628,""KRN"",9.8,""NM"",0)"
^XMB(3.9,37,2,44,0)="^9.68A^1^1"
^XMB(3.9,37,2,45,0)="""BLD"",6628,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,37,2,46,0)="GMRCIMSG^^0^B23824401"
^XMB(3.9,37,2,47,0)="""BLD"",6628,""KRN"",9.8,""NM"",""B"",""GMRCIMSG"",1)"
^XMB(3.9,37,2,48,0)=""
^XMB(3.9,37,2,49,0)="""BLD"",6628,""KRN"",19,0)"
^XMB(3.9,37,2,50,0)="19"
^XMB(3.9,37,2,51,0)="""BLD"",6628,""KRN"",19.1,0)"
^XMB(3.9,37,2,52,0)="19.1"
^XMB(3.9,37,2,53,0)="""BLD"",6628,""KRN"",101,0)"
^XMB(3.9,37,2,54,0)="101"
^XMB(3.9,37,2,55,0)="""BLD"",6628,""KRN"",409.61,0)"
^XMB(3.9,37,2,56,0)="409.61"
^XMB(3.9,37,2,57,0)="""BLD"",6628,""KRN"",771,0)"
^XMB(3.9,37,2,58,0)="771"
^XMB(3.9,37,2,59,0)="""BLD"",6628,""KRN"",870,0)"
^XMB(3.9,37,2,60,0)="870"
^XMB(3.9,37,2,61,0)="""BLD"",6628,""KRN"",8989.51,0)"
^XMB(3.9,37,2,62,0)="8989.51"
^XMB(3.9,37,2,63,0)="""BLD"",6628,""KRN"",8989.52,0)"
^XMB(3.9,37,2,64,0)="8989.52"
^XMB(3.9,37,2,65,0)="""BLD"",6628,""KRN"",8994,0)"
^XMB(3.9,37,2,66,0)="8994"
^XMB(3.9,37,2,67,0)="""BLD"",6628,""KRN"",""B"",.4,.4)"
^XMB(3.9,37,2,68,0)=""
^XMB(3.9,37,2,69,0)="""BLD"",6628,""KRN"",""B"",.401,.401)"
^XMB(3.9,37,2,70,0)=""
^XMB(3.9,37,2,71,0)="""BLD"",6628,""KRN"",""B"",.402,.402)"
^XMB(3.9,37,2,72,0)=""
^XMB(3.9,37,2,73,0)="""BLD"",6628,""KRN"",""B"",.403,.403)"
^XMB(3.9,37,2,74,0)=""
^XMB(3.9,37,2,75,0)="""BLD"",6628,""KRN"",""B"",.5,.5)"
^XMB(3.9,37,2,76,0)=""
^XMB(3.9,37,2,77,0)="""BLD"",6628,""KRN"",""B"",.84,.84)"
^XMB(3.9,37,2,78,0)=""
^XMB(3.9,37,2,79,0)="""BLD"",6628,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,37,2,80,0)=""
^XMB(3.9,37,2,81,0)="""BLD"",6628,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,37,2,82,0)=""
^XMB(3.9,37,2,83,0)="""BLD"",6628,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,37,2,84,0)=""
^XMB(3.9,37,2,85,0)="""BLD"",6628,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,37,2,86,0)=""
^XMB(3.9,37,2,87,0)="""BLD"",6628,""KRN"",""B"",19,19)"
^XMB(3.9,37,2,88,0)=""
^XMB(3.9,37,2,89,0)="""BLD"",6628,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,37,2,90,0)=""
^XMB(3.9,37,2,91,0)="""BLD"",6628,""KRN"",""B"",101,101)"
^XMB(3.9,37,2,92,0)=""
^XMB(3.9,37,2,93,0)="""BLD"",6628,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,37,2,94,0)=""
^XMB(3.9,37,2,95,0)="""BLD"",6628,""KRN"",""B"",771,771)"
^XMB(3.9,37,2,96,0)=""
^XMB(3.9,37,2,97,0)="""BLD"",6628,""KRN"",""B"",870,870)"
^XMB(3.9,37,2,98,0)=""
^XMB(3.9,37,2,99,0)="""BLD"",6628,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,37,2,100,0)=""
^XMB(3.9,37,2,101,0)="""BLD"",6628,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,37,2,102,0)=""
^XMB(3.9,37,2,103,0)="""BLD"",6628,""KRN"",""B"",8994,8994)"
^XMB(3.9,37,2,104,0)=""
^XMB(3.9,37,2,105,0)="""BLD"",6628,""QUES"",0)"
^XMB(3.9,37,2,106,0)="^9.62^^"
^XMB(3.9,37,2,107,0)="""BLD"",6628,""REQB"",0)"
^XMB(3.9,37,2,108,0)="^9.611^1^1"
^XMB(3.9,37,2,109,0)="""BLD"",6628,""REQB"",1,0)"
^XMB(3.9,37,2,110,0)="GMRC*3.0*28^2"
^XMB(3.9,37,2,111,0)="""BLD"",6628,""REQB"",""B"",""GMRC*3.0*28"",1)"
^XMB(3.9,37,2,112,0)=""
^XMB(3.9,37,2,113,0)="""MBREQ"")"
^XMB(3.9,37,2,114,0)="0"
^XMB(3.9,37,2,115,0)="""PKG"",222,-1)"
^XMB(3.9,37,2,116,0)="1^1"
^XMB(3.9,37,2,117,0)="""PKG"",222,0)"
^XMB(3.9,37,2,118,0)="CONSULT/REQUEST TRACKING^GMRC^CONSULTS/REQUESTS"
^XMB(3.9,37,2,119,0)="""PKG"",222,22,0)"
^XMB(3.9,37,2,120,0)="^9.49I^1^1"
^XMB(3.9,37,2,121,0)="""PKG"",222,22,1,0)"
^XMB(3.9,37,2,122,0)="3.0^2980101^2990325^66481"
^XMB(3.9,37,2,123,0)="""PKG"",222,22,1,""PAH"",1,0)"
^XMB(3.9,37,2,124,0)="51^3060518^12463"
^XMB(3.9,37,2,125,0)="""PKG"",222,22,1,""PAH"",1,1,0)"
^XMB(3.9,37,2,126,0)="^^2^2^3060518"
^XMB(3.9,37,2,127,0)="""PKG"",222,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,37,2,128,0)="This patch adds a call to Imaging, at the request of the Imaging "
^XMB(3.9,37,2,129,0)="""PKG"",222,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,37,2,130,0)="package, to allow Imaging to process Consult HL7 messages."
^XMB(3.9,37,2,131,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,37,2,132,0)="Y"
^XMB(3.9,37,2,133,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,37,2,134,0)="^D REP^XPDH"
^XMB(3.9,37,2,135,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,37,2,136,0)="Shall I write over your |FLAG| File"
^XMB(3.9,37,2,137,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,37,2,138,0)="YES"
^XMB(3.9,37,2,139,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,37,2,140,0)="D XPF1^XPDIQ"
^XMB(3.9,37,2,141,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,37,2,142,0)="Y"
^XMB(3.9,37,2,143,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,37,2,144,0)="^D DTA^XPDH"
^XMB(3.9,37,2,145,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,37,2,146,0)="Want my data |FLAG| yours"
^XMB(3.9,37,2,147,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,37,2,148,0)="YES"
^XMB(3.9,37,2,149,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,37,2,150,0)="D XPF2^XPDIQ"
^XMB(3.9,37,2,151,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,37,2,152,0)="YO"
^XMB(3.9,37,2,153,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,37,2,154,0)="^D INHIBIT^XPDH"
^XMB(3.9,37,2,155,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,37,2,156,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,37,2,157,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,37,2,158,0)="YES"
^XMB(3.9,37,2,159,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,37,2,160,0)="D XPI1^XPDIQ"
^XMB(3.9,37,2,161,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,37,2,162,0)="PO^VA(200,:EM"
^XMB(3.9,37,2,163,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,37,2,164,0)="^D MG^XPDH"
^XMB(3.9,37,2,165,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,37,2,166,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,37,2,167,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,37,2,168,0)=""
^XMB(3.9,37,2,169,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,37,2,170,0)="D XPM1^XPDIQ"
^XMB(3.9,37,2,171,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,37,2,172,0)="Y"
^XMB(3.9,37,2,173,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,37,2,174,0)="^D MENU^XPDH"
^XMB(3.9,37,2,175,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,37,2,176,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,37,2,177,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,37,2,178,0)="YES"
^XMB(3.9,37,2,179,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,37,2,180,0)="D XPO1^XPDIQ"
^XMB(3.9,37,2,181,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,37,2,182,0)="Y"
^XMB(3.9,37,2,183,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,37,2,184,0)="^D OPT^XPDH"
^XMB(3.9,37,2,185,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,37,2,186,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,37,2,187,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,37,2,188,0)="YES"
^XMB(3.9,37,2,189,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,37,2,190,0)="D XPZ1^XPDIQ"
^XMB(3.9,37,2,191,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,37,2,192,0)="Y"
^XMB(3.9,37,2,193,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,37,2,194,0)="^D RTN^XPDH"
^XMB(3.9,37,2,195,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,37,2,196,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,37,2,197,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,37,2,198,0)="NO"
^XMB(3.9,37,2,199,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,37,2,200,0)="D XPZ2^XPDIQ"
^XMB(3.9,37,2,201,0)="""RTN"")"
^XMB(3.9,37,2,202,0)="1"
^XMB(3.9,37,2,203,0)="""RTN"",""GMRCIMSG"")"
^XMB(3.9,37,2,204,0)="0^1^B23824401^B22849846"
^XMB(3.9,37,2,205,0)="""RTN"",""GMRCIMSG"",1,0)"
^XMB(3.9,37,2,206,0)="GMRCIMSG ;SLC/JFR - IFC MESSAGE HANDLING ROUTINE; 09/26/02 00:23"
^XMB(3.9,37,2,207,0)="""RTN"",""GMRCIMSG"",2,0)"
^XMB(3.9,37,2,208,0)=" ;;3.0;CONSULT/REQUEST TRACKING;**22,28,51**;DEC 27, 1997"
^XMB(3.9,37,2,209,0)="""RTN"",""GMRCIMSG"",3,0)"
^XMB(3.9,37,2,210,0)=" ;"
^XMB(3.9,37,2,211,0)="""RTN"",""GMRCIMSG"",4,0)"
^XMB(3.9,37,2,212,0)=" Q  ;don't start at the top"
^XMB(3.9,37,2,213,0)="""RTN"",""GMRCIMSG"",5,0)"
^XMB(3.9,37,2,214,0)="IN ;process incoming message and save segments to ^TMP("
^XMB(3.9,37,2,215,0)="""RTN"",""GMRCIMSG"",6,0)"
^XMB(3.9,37,2,216,0)=" K ^TMP(""GMRCIF"",$J)"
^XMB(3.9,37,2,217,0)="""RTN"",""GMRCIMSG"",7,0)"
^XMB(3.9,37,2,218,0)=" N HLNODE,SEG,I,GMRCIER  ;production code"
^XMB(3.9,37,2,219,0)="""RTN"",""GMRCIMSG"",8,0)"
^XMB(3.9,37,2,220,0)=" F I=1:1 X HLNEXT Q:HLQUIT'>0  D"
^XMB(3.9,37,2,221,0)="""RTN"",""GMRCIMSG"",9,0)"
^XMB(3.9,37,2,222,0)=" . I $P(HLNODE,""|"")=""OBX"" D  ;multiple segs for OBX"
^XMB(3.9,37,2,223,0)="""RTN"",""GMRCIMSG"",10,0)"
^XMB(3.9,37,2,224,0)=" .. S ^TMP(""GMRCIF"",$J,""OBX"",$P(HLNODE,""|"",2),$P(HLNODE,""|"",5))=$E(HLNODE,5,999)"
^XMB(3.9,37,2,225,0)="""RTN"",""GMRCIMSG"",11,0)"
^XMB(3.9,37,2,226,0)=" . I $P(HLNODE,""|"")=""NTE"" D  ; may be multiple NTE's"
^XMB(3.9,37,2,227,0)="""RTN"",""GMRCIMSG"",12,0)"
^XMB(3.9,37,2,228,0)=" .. S ^TMP(""GMRCIF"",$J,""NTE"",$P(HLNODE,""|"",2))=$E(HLNODE,5,999)"
^XMB(3.9,37,2,229,0)="""RTN"",""GMRCIMSG"",13,0)"
^XMB(3.9,37,2,230,0)=" . I ""OBXNTE""'[$P(HLNODE,""|"") D  ;all other segs are single"
^XMB(3.9,37,2,231,0)="""RTN"",""GMRCIMSG"",14,0)"
^XMB(3.9,37,2,232,0)=" .. S ^TMP(""GMRCIF"",$J,$P(HLNODE,""|""))=$E(HLNODE,5,999)"
^XMB(3.9,37,2,233,0)="""RTN"",""GMRCIMSG"",15,0)"
^XMB(3.9,37,2,234,0)=" . Q"
^XMB(3.9,37,2,235,0)="""RTN"",""GMRCIMSG"",16,0)"
^XMB(3.9,37,2,236,0)=" ;"
^XMB(3.9,37,2,237,0)="""RTN"",""GMRCIMSG"",17,0)"
^XMB(3.9,37,2,238,0)=" I '$$VALMSG(^TMP(""GMRCIF"",$J,""ORC"")) D EX Q  ;chk msg for valid cslt #'s"
^XMB(3.9,37,2,239,0)="""RTN"",""GMRCIMSG"",18,0)"
^XMB(3.9,37,2,240,0)=" ;"
^XMB(3.9,37,2,241,0)="""RTN"",""GMRCIMSG"",19,0)"
^XMB(3.9,37,2,242,0)=" I $P(^TMP(""GMRCIF"",$J,""ORC""),""|"")=""NW"" D  D EX Q"
^XMB(3.9,37,2,243,0)="""RTN"",""GMRCIMSG"",20,0)"
^XMB(3.9,37,2,244,0)=" . I $P(^TMP(""GMRCIF"",$J,""ORC""),""|"",2)[""TST1234"" D  D EX Q  ;testing impl"
^XMB(3.9,37,2,245,0)="""RTN"",""GMRCIMSG"",21,0)"
^XMB(3.9,37,2,246,0)=" .. D TST^GMRCIAC2($NA(^TMP(""GMRCIF"",$J)))"
^XMB(3.9,37,2,247,0)="""RTN"",""GMRCIMSG"",22,0)"
^XMB(3.9,37,2,248,0)=" . D NW^GMRCIACT($NA(^TMP(""GMRCIF"",$J)))"
^XMB(3.9,37,2,249,0)="""RTN"",""GMRCIMSG"",23,0)"
^XMB(3.9,37,2,250,0)=" I $P(^TMP(""GMRCIF"",$J,""ORC""),""|"")=""XO"" D  D EX Q"
^XMB(3.9,37,2,251,0)="""RTN"",""GMRCIMSG"",24,0)"
^XMB(3.9,37,2,252,0)=" . D RESUB^GMRCIAC1($NA(^TMP(""GMRCIF"",$J)))"
^XMB(3.9,37,2,253,0)="""RTN"",""GMRCIMSG"",25,0)"
^XMB(3.9,37,2,254,0)=" I $P(^TMP(""GMRCIF"",$J,""ORC""),""|"")=""XX"" D  D EX Q"
^XMB(3.9,37,2,255,0)="""RTN"",""GMRCIMSG"",26,0)"
^XMB(3.9,37,2,256,0)=" . D FWD^GMRCIAC1($NA(^TMP(""GMRCIF"",$J)))"
^XMB(3.9,37,2,257,0)="""RTN"",""GMRCIMSG"",27,0)"
^XMB(3.9,37,2,258,0)=" I $P(^TMP(""GMRCIF"",$J,""ORC""),""|"")=""RE"" D  D EX Q"
^XMB(3.9,37,2,259,0)="""RTN"",""GMRCIMSG"",28,0)"
^XMB(3.9,37,2,260,0)=" . I $P($G(^TMP(""GMRCIF"",$J,""OBX"",4,1)),""|"",11)=""D"" D  Q"
^XMB(3.9,37,2,261,0)="""RTN"",""GMRCIMSG"",29,0)"
^XMB(3.9,37,2,262,0)=" .. D DIS^GMRCIACT($NA(^TMP(""GMRCIF"",$J))) ; dis-assoc. result"
^XMB(3.9,37,2,263,0)="""RTN"",""GMRCIMSG"",30,0)"
^XMB(3.9,37,2,264,0)=" . I $P($P(^TMP(""GMRCIF"",$J,""ORC""),""|"",16),U)=""S"" D  Q"
^XMB(3.9,37,2,265,0)="""RTN"",""GMRCIMSG"",31,0)"
^XMB(3.9,37,2,266,0)=" .. D SF^GMRCIAC1($NA(^TMP(""GMRCIF"",$J))) ; significant findings"
^XMB(3.9,37,2,267,0)="""RTN"",""GMRCIMSG"",32,0)"
^XMB(3.9,37,2,268,0)=" . D COMP^GMRCIAC1($NA(^TMP(""GMRCIF"",$J)))"
^XMB(3.9,37,2,269,0)="""RTN"",""GMRCIMSG"",33,0)"
^XMB(3.9,37,2,270,0)=" D OTHER^GMRCIACT($NA(^TMP(""GMRCIF"",$J)))"
^XMB(3.9,37,2,271,0)="""RTN"",""GMRCIMSG"",34,0)"
^XMB(3.9,37,2,272,0)=" D EX"
^XMB(3.9,37,2,273,0)="""RTN"",""GMRCIMSG"",35,0)"
^XMB(3.9,37,2,274,0)=" Q"
^XMB(3.9,37,2,275,0)="""RTN"",""GMRCIMSG"",36,0)"
^XMB(3.9,37,2,276,0)=" ;"
^XMB(3.9,37,2,277,0)="""RTN"",""GMRCIMSG"",37,0)"
^XMB(3.9,37,2,278,0)="EX ; clean up ^TMP("
^XMB(3.9,37,2,279,0)="""RTN"",""GMRCIMSG"",38,0)"
^XMB(3.9,37,2,280,0)=" K ^TMP(""GMRCIF"",$J)"
^XMB(3.9,37,2,281,0)="""RTN"",""GMRCIMSG"",39,0)"
^XMB(3.9,37,2,282,0)=" Q"
^XMB(3.9,37,2,283,0)="""RTN"",""GMRCIMSG"",40,0)"
^XMB(3.9,37,2,284,0)=" ;"
^XMB(3.9,37,2,285,0)="""RTN"",""GMRCIMSG"",41,0)"
^XMB(3.9,37,2,286,0)="ORRIN ;process IFC responses"
^XMB(3.9,37,2,287,0)="""RTN"",""GMRCIMSG"",42,0)"
^XMB(3.9,37,2,288,0)=" K ^TMP(""GMRCIF"",$J)"
^XMB(3.9,37,2,289,0)="""RTN"",""GMRCIMSG"",43,0)"
^XMB(3.9,37,2,290,0)=" N HLNODE,SEG,I  ;production code"
^XMB(3.9,37,2,291,0)="""RTN"",""GMRCIMSG"",44,0)"
^XMB(3.9,37,2,292,0)=" F I=1:1 X HLNEXT Q:HLQUIT'>0  D"
^XMB(3.9,37,2,293,0)="""RTN"",""GMRCIMSG"",45,0)"
^XMB(3.9,37,2,294,0)=" .S ^TMP(""GMRCIF"",$J,$P(HLNODE,""|""))=$E(HLNODE,5,999)"
^XMB(3.9,37,2,295,0)="""RTN"",""GMRCIMSG"",46,0)"
^XMB(3.9,37,2,296,0)=" I $D(^TMP(""GMRCIF"",$J,""ORC"")),$P(^(""ORC""),""|"")=""OK"" D"
^XMB(3.9,37,2,297,0)="""RTN"",""GMRCIMSG"",47,0)"
^XMB(3.9,37,2,298,0)=" . N GMRCFNUM,GMRCROUT,GMRCDA,FDA"
^XMB(3.9,37,2,299,0)="""RTN"",""GMRCIMSG"",48,0)"
^XMB(3.9,37,2,300,0)=" . S GMRCROUT=$$IEN^XUAF4($P($P(^TMP(""GMRCIF"",$J,""ORC""),""|"",3),U,2))"
^XMB(3.9,37,2,301,0)="""RTN"",""GMRCIMSG"",49,0)"
^XMB(3.9,37,2,302,0)=" . S GMRCDA=+$P(^TMP(""GMRCIF"",$J,""ORC""),""|"",2)"
^XMB(3.9,37,2,303,0)="""RTN"",""GMRCIMSG"",50,0)"
^XMB(3.9,37,2,304,0)=" . ;I GMRCROUT'=$P(^GMR(123,GMRCDA,0),U,23) Q"
^XMB(3.9,37,2,305,0)="""RTN"",""GMRCIMSG"",51,0)"
^XMB(3.9,37,2,306,0)=" . S GMRCFNUM=+$P(^TMP(""GMRCIF"",$J,""ORC""),""|"",3)"
^XMB(3.9,37,2,307,0)="""RTN"",""GMRCIMSG"",52,0)"
^XMB(3.9,37,2,308,0)=" . S FDA(1,123,GMRCDA_"","",.06)=GMRCFNUM"
^XMB(3.9,37,2,309,0)="""RTN"",""GMRCIMSG"",53,0)"
^XMB(3.9,37,2,310,0)=" . D UPDATE^DIE("""",""FDA(1)"",,""GMRCERR"")"
^XMB(3.9,37,2,311,0)="""RTN"",""GMRCIMSG"",54,0)"
^XMB(3.9,37,2,312,0)=" . Q"
^XMB(3.9,37,2,313,0)="""RTN"",""GMRCIMSG"",55,0)"
^XMB(3.9,37,2,314,0)=" I $P(^TMP(""GMRCIF"",$J,""MSA""),""|"")=""AA"" D"
^XMB(3.9,37,2,315,0)="""RTN"",""GMRCIMSG"",56,0)"
^XMB(3.9,37,2,316,0)=" . N MSGID,MSGLOG,FDA,GMRCDA,GMRCACT,GMRCLOG"
^XMB(3.9,37,2,317,0)="""RTN"",""GMRCIMSG"",57,0)"
^XMB(3.9,37,2,318,0)=" . S MSGID=$P(^TMP(""GMRCIF"",$J,""MSA""),""|"",2)"
^XMB(3.9,37,2,319,0)="""RTN"",""GMRCIMSG"",58,0)"
^XMB(3.9,37,2,320,0)=" . S MSGLOG=$O(^GMR(123.6,""AM"",MSGID,0)) Q:'MSGLOG"
^XMB(3.9,37,2,321,0)="""RTN"",""GMRCIMSG"",59,0)"
^XMB(3.9,37,2,322,0)=" . S FDA(1,123.6,MSGLOG_"","",.06)=""@"""
^XMB(3.9,37,2,323,0)="""RTN"",""GMRCIMSG"",60,0)"
^XMB(3.9,37,2,324,0)=" . S FDA(1,123.6,MSGLOG_"","",.08)=""@"""
^XMB(3.9,37,2,325,0)="""RTN"",""GMRCIMSG"",61,0)"
^XMB(3.9,37,2,326,0)=" . D UPDATE^DIE("""",""FDA(1)"",,""GMRCERR"")"
^XMB(3.9,37,2,327,0)="""RTN"",""GMRCIMSG"",62,0)"
^XMB(3.9,37,2,328,0)=" . S GMRCDA=$P(^GMR(123.6,MSGLOG,0),U,4) Q:'GMRCDA"
^XMB(3.9,37,2,329,0)="""RTN"",""GMRCIMSG"",63,0)"
^XMB(3.9,37,2,330,0)=" . S GMRCACT=$P(^GMR(123.6,MSGLOG,0),U,5) Q:'GMRCACT"
^XMB(3.9,37,2,331,0)="""RTN"",""GMRCIMSG"",64,0)"
^XMB(3.9,37,2,332,0)=" . S GMRCACT=$O(^GMR(123.6,""AC"",GMRCDA,GMRCACT)) D"
^XMB(3.9,37,2,333,0)="""RTN"",""GMRCIMSG"",65,0)"
^XMB(3.9,37,2,334,0)=" .. I 'GMRCACT Q"
^XMB(3.9,37,2,335,0)="""RTN"",""GMRCIMSG"",66,0)"
^XMB(3.9,37,2,336,0)=" .. S GMRCLOG=$O(^GMR(123.6,""AC"",GMRCDA,GMRCACT,1,0)) Q:'GMRCLOG"
^XMB(3.9,37,2,337,0)="""RTN"",""GMRCIMSG"",67,0)"
^XMB(3.9,37,2,338,0)=" .. I $P(^GMR(123.6,GMRCLOG,0),U,8)<900 Q  ;re-send 901 & 902 immed."
^XMB(3.9,37,2,339,0)="""RTN"",""GMRCIMSG"",68,0)"
^XMB(3.9,37,2,340,0)=" .. D TRIGR^GMRCIEVT(GMRCDA,GMRCACT)"
^XMB(3.9,37,2,341,0)="""RTN"",""GMRCIMSG"",69,0)"
^XMB(3.9,37,2,342,0)=" . Q"
^XMB(3.9,37,2,343,0)="""RTN"",""GMRCIMSG"",70,0)"
^XMB(3.9,37,2,344,0)=" I $P(^TMP(""GMRCIF"",$J,""MSA""),""|"")=""AR"" D"
^XMB(3.9,37,2,345,0)="""RTN"",""GMRCIMSG"",71,0)"
^XMB(3.9,37,2,346,0)=" . N MSGID,MSGLOG,FDA,GMRCERR,GMRCE"
^XMB(3.9,37,2,347,0)="""RTN"",""GMRCIMSG"",72,0)"
^XMB(3.9,37,2,348,0)=" . S MSGID=$P(^TMP(""GMRCIF"",$J,""MSA""),""|"",2)"
^XMB(3.9,37,2,349,0)="""RTN"",""GMRCIMSG"",73,0)"
^XMB(3.9,37,2,350,0)=" . S MSGLOG=$O(^GMR(123.6,""AM"",MSGID,0)) Q:'MSGLOG"
^XMB(3.9,37,2,351,0)="""RTN"",""GMRCIMSG"",74,0)"
^XMB(3.9,37,2,352,0)=" . S GMRCE=$P(^TMP(""GMRCIF"",$J,""MSA""),""|"",3)"
^XMB(3.9,37,2,353,0)="""RTN"",""GMRCIMSG"",75,0)"
^XMB(3.9,37,2,354,0)=" . S FDA(1,123.6,MSGLOG_"","",.08)=GMRCE"
^XMB(3.9,37,2,355,0)="""RTN"",""GMRCIMSG"",76,0)"
^XMB(3.9,37,2,356,0)=" . I GMRCE=802 S FDA(1,123.6,MSGLOG_"","",.06)=""@"""
^XMB(3.9,37,2,357,0)="""RTN"",""GMRCIMSG"",77,0)"
^XMB(3.9,37,2,358,0)=" . D UPDATE^DIE("""",""FDA(1)"",,""GMRCERR"")"
^XMB(3.9,37,2,359,0)="""RTN"",""GMRCIMSG"",78,0)"
^XMB(3.9,37,2,360,0)=" . I GMRCE=901!(GMRCE=902) Q  ;no alerts on these probs (yet)"
^XMB(3.9,37,2,361,0)="""RTN"",""GMRCIMSG"",79,0)"
^XMB(3.9,37,2,362,0)=" . I GMRCE=201 D  Q"
^XMB(3.9,37,2,363,0)="""RTN"",""GMRCIMSG"",80,0)"
^XMB(3.9,37,2,364,0)=" .. I '$$GET^XPAR(""SYS"",""GMRC IFC ALERT IMMED ON PT ERR"",1) Q"
^XMB(3.9,37,2,365,0)="""RTN"",""GMRCIMSG"",81,0)"
^XMB(3.9,37,2,366,0)=" .. D SNDALRT^GMRCIERR(MSGLOG,""C"",""IFC patient error at remote facility"")"
^XMB(3.9,37,2,367,0)="""RTN"",""GMRCIMSG"",82,0)"
^XMB(3.9,37,2,368,0)=" . D SNDALRT^GMRCIERR(MSGLOG,""C"")"
^XMB(3.9,37,2,369,0)="""RTN"",""GMRCIMSG"",83,0)"
^XMB(3.9,37,2,370,0)=" K ^TMP(""GMRCIF"",$J)"
^XMB(3.9,37,2,371,0)="""RTN"",""GMRCIMSG"",84,0)"
^XMB(3.9,37,2,372,0)=" I $T(ORRIN^MAGDTR01)'="""" D  ;invoke Imaging code if tag^routine exists"
^XMB(3.9,37,2,373,0)="""RTN"",""GMRCIMSG"",85,0)"
^XMB(3.9,37,2,374,0)=" . D ORRIN^MAGDTR01"
^XMB(3.9,37,2,375,0)="""RTN"",""GMRCIMSG"",86,0)"
^XMB(3.9,37,2,376,0)=" Q"
^XMB(3.9,37,2,377,0)="""RTN"",""GMRCIMSG"",87,0)"
^XMB(3.9,37,2,378,0)=" ;"
^XMB(3.9,37,2,379,0)="""RTN"",""GMRCIMSG"",88,0)"
^XMB(3.9,37,2,380,0)="VALMSG(GMRCORC) ;check to make sure placer and filler # match current entry"
^XMB(3.9,37,2,381,0)="""RTN"",""GMRCIMSG"",89,0)"
^XMB(3.9,37,2,382,0)=" ; Input: "
^XMB(3.9,37,2,383,0)="""RTN"",""GMRCIMSG"",90,0)"
^XMB(3.9,37,2,384,0)=" ;  GMRCORC = ORC segment from incoming HL7 msg"
^XMB(3.9,37,2,385,0)="""RTN"",""GMRCIMSG"",91,0)"
^XMB(3.9,37,2,386,0)=" ;"
^XMB(3.9,37,2,387,0)="""RTN"",""GMRCIMSG"",92,0)"
^XMB(3.9,37,2,388,0)=" I $P(GMRCORC,""|"")=""NW"" Q 1 ; no #'s to match on new order"
^XMB(3.9,37,2,389,0)="""RTN"",""GMRCIMSG"",93,0)"
^XMB(3.9,37,2,390,0)=" N GMRCPDA,GMRCFDA,GMRCPSIT,GMRCFSIT,GMRCROL,GMRCOK"
^XMB(3.9,37,2,391,0)="""RTN"",""GMRCIMSG"",94,0)"
^XMB(3.9,37,2,392,0)=" S GMRCPDA=+$P(GMRCORC,""|"",2)"
^XMB(3.9,37,2,393,0)="""RTN"",""GMRCIMSG"",95,0)"
^XMB(3.9,37,2,394,0)=" S GMRCPSIT=$$IEN^XUAF4($P($P(GMRCORC,""|"",2),U,2))"
^XMB(3.9,37,2,395,0)="""RTN"",""GMRCIMSG"",96,0)"
^XMB(3.9,37,2,396,0)=" S GMRCFDA=+$P(GMRCORC,""|"",3)"
^XMB(3.9,37,2,397,0)="""RTN"",""GMRCIMSG"",97,0)"
^XMB(3.9,37,2,398,0)=" S GMRCFSIT=$$IEN^XUAF4($P($P(GMRCORC,""|"",3),U,2))"
^XMB(3.9,37,2,399,0)="""RTN"",""GMRCIMSG"",98,0)"
^XMB(3.9,37,2,400,0)=" I $$KSP^XUPARAM(""INST"")=GMRCPSIT S GMRCROL=""P"""
^XMB(3.9,37,2,401,0)="""RTN"",""GMRCIMSG"",99,0)"
^XMB(3.9,37,2,402,0)=" I $$KSP^XUPARAM(""INST"")=GMRCFSIT S GMRCROL=""F"""
^XMB(3.9,37,2,403,0)="""RTN"",""GMRCIMSG"",100,0)"
^XMB(3.9,37,2,404,0)=" S GMRCOK=1"
^XMB(3.9,37,2,405,0)="""RTN"",""GMRCIMSG"",101,0)"
^XMB(3.9,37,2,406,0)=" I '$D(GMRCROL) S GMRCOK=0,GMRCROL="""" ;bad institutions in msg"
^XMB(3.9,37,2,407,0)="""RTN"",""GMRCIMSG"",102,0)"
^XMB(3.9,37,2,408,0)=" I GMRCROL=""P"" D"
^XMB(3.9,37,2,409,0)="""RTN"",""GMRCIMSG"",103,0)"
^XMB(3.9,37,2,410,0)=" . I '$D(^GMR(123,GMRCPDA,0)) S GMRCOK=0 Q  ;no such cslt #"
^XMB(3.9,37,2,411,0)="""RTN"",""GMRCIMSG"",104,0)"
^XMB(3.9,37,2,412,0)=" . I $P(^GMR(123,GMRCPDA,0),U,22)'=GMRCFDA S GMRCOK=0 Q  ;cslt # prob"
^XMB(3.9,37,2,413,0)="""RTN"",""GMRCIMSG"",105,0)"
^XMB(3.9,37,2,414,0)=" . I $P(^GMR(123,GMRCPDA,0),U,23)'=GMRCFSIT S GMRCOK=0 Q  ;routing facil."
^XMB(3.9,37,2,415,0)="""RTN"",""GMRCIMSG"",106,0)"
^XMB(3.9,37,2,416,0)=" I GMRCROL=""F"" D"
^XMB(3.9,37,2,417,0)="""RTN"",""GMRCIMSG"",107,0)"
^XMB(3.9,37,2,418,0)=" . I '$D(^GMR(123,GMRCFDA,0)) S GMRCOK=0 Q  ;no such cslt #"
^XMB(3.9,37,2,419,0)="""RTN"",""GMRCIMSG"",108,0)"
^XMB(3.9,37,2,420,0)=" . I $P(^GMR(123,GMRCFDA,0),U,22)'=GMRCPDA S GMRCOK=0 Q  ;cslt # prob"
^XMB(3.9,37,2,421,0)="""RTN"",""GMRCIMSG"",109,0)"
^XMB(3.9,37,2,422,0)=" . I $P(^GMR(123,GMRCFDA,0),U,23)'=GMRCPSIT S GMRCOK=0 Q  ;routing facil."
^XMB(3.9,37,2,423,0)="""RTN"",""GMRCIMSG"",110,0)"
^XMB(3.9,37,2,424,0)=" I 'GMRCOK D  ;return a 101 error to sending site"
^XMB(3.9,37,2,425,0)="""RTN"",""GMRCIMSG"",111,0)"
^XMB(3.9,37,2,426,0)=" . N GMRCRSLT"
^XMB(3.9,37,2,427,0)="""RTN"",""GMRCIMSG"",112,0)"
^XMB(3.9,37,2,428,0)=" . D RESP^GMRCIUTL(""AR"",HL(""MID""),,,101) ;build HLA("
^XMB(3.9,37,2,429,0)="""RTN"",""GMRCIMSG"",113,0)"
^XMB(3.9,37,2,430,0)=" . D GENACK^HLMA1(HL(""EID""),HLMTIENS,HL(""EIDS""),""LM"",1,.GMRCRSLT) ;-("
^XMB(3.9,37,2,431,0)="""RTN"",""GMRCIMSG"",114,0)"
^XMB(3.9,37,2,432,0)=" Q GMRCOK"
^XMB(3.9,37,2,433,0)="""RTN"",""GMRCIMSG"",115,0)"
^XMB(3.9,37,2,434,0)=" ;"
^XMB(3.9,37,2,435,0)="""VER"")"
^XMB(3.9,37,2,436,0)="8.0^22.0"
^XMB(3.9,37,2,437,0)="""BLD"",6628,6)"
^XMB(3.9,37,2,438,0)="^44"
^XMB(3.9,37,2,439,0)="$END KID GMRC*3.0*51"
^XMB(3.9,37,6,0)="^3.911A^2^2"
^XMB(3.9,37,6,1,0)="POSTMASTER"
^XMB(3.9,37,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,37,6,"B","POSTMASTER",1)=""
^XMB(3.9,37,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,38,0)="GMRC-3_SEQ-45_PAT-42.KID^.5^3061008.015734^^^^K"
^XMB(3.9,38,.6)="3061008"
^XMB(3.9,38,1,0)="^3.91A^2^2"
^XMB(3.9,38,1,1,0)=".5^0^3061008.015734^^^^^^^3061008.015734"
^XMB(3.9,38,1,2,0)="1^0^3061008.023133^^^^^^^3061008.023133"
^XMB(3.9,38,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,38,1,"C",.5,1)=""
^XMB(3.9,38,1,"C",1,2)=""
^XMB(3.9,38,2,0)="^^583^583^3061008"
^XMB(3.9,38,2,1,0)="$TXT Released GMRC*3*42 SEQ #45"
^XMB(3.9,38,2,2,0)="Extracted from mail message"
^XMB(3.9,38,2,3,0)="$END TXT"
^XMB(3.9,38,2,4,0)="$KID GMRC*3.0*42"
^XMB(3.9,38,2,5,0)="**INSTALL NAME**"
^XMB(3.9,38,2,6,0)="GMRC*3.0*42"
^XMB(3.9,38,2,7,0)="""BLD"",6049,0)"
^XMB(3.9,38,2,8,0)="GMRC*3.0*42^CONSULT/REQUEST TRACKING^0^3060113^y"
^XMB(3.9,38,2,9,0)="""BLD"",6049,1,0)"
^XMB(3.9,38,2,10,0)="^^5^5^3050309^^"
^XMB(3.9,38,2,11,0)="""BLD"",6049,1,1,0)"
^XMB(3.9,38,2,12,0)="This patch exports one consult service.  The service will create or "
^XMB(3.9,38,2,13,0)="""BLD"",6049,1,2,0)"
^XMB(3.9,38,2,14,0)="replace an entry in the REQUEST SERVICES (#123.5) file.  This patch also "
^XMB(3.9,38,2,15,0)="""BLD"",6049,1,3,0)"
^XMB(3.9,38,2,16,0)="modifies an API routine to accept the Service Name as well as the Service "
^XMB(3.9,38,2,17,0)="""BLD"",6049,1,4,0)"
^XMB(3.9,38,2,18,0)="IEN as input.  Thes changes are being made at the request of the Home "
^XMB(3.9,38,2,19,0)="""BLD"",6049,1,5,0)"
^XMB(3.9,38,2,20,0)="Telehealth Project group."
^XMB(3.9,38,2,21,0)="""BLD"",6049,4,0)"
^XMB(3.9,38,2,22,0)="^9.64PA^^0"
^XMB(3.9,38,2,23,0)="""BLD"",6049,""INI"")"
^XMB(3.9,38,2,24,0)="PRE^GMRCYP42"
^XMB(3.9,38,2,25,0)="""BLD"",6049,""INIT"")"
^XMB(3.9,38,2,26,0)="POST^GMRCYP42"
^XMB(3.9,38,2,27,0)="""BLD"",6049,""KRN"",0)"
^XMB(3.9,38,2,28,0)="^9.67PA^8989.52^19"
^XMB(3.9,38,2,29,0)="""BLD"",6049,""KRN"",.4,0)"
^XMB(3.9,38,2,30,0)=".4"
^XMB(3.9,38,2,31,0)="""BLD"",6049,""KRN"",.401,0)"
^XMB(3.9,38,2,32,0)=".401"
^XMB(3.9,38,2,33,0)="""BLD"",6049,""KRN"",.402,0)"
^XMB(3.9,38,2,34,0)=".402"
^XMB(3.9,38,2,35,0)="""BLD"",6049,""KRN"",.403,0)"
^XMB(3.9,38,2,36,0)=".403"
^XMB(3.9,38,2,37,0)="""BLD"",6049,""KRN"",.5,0)"
^XMB(3.9,38,2,38,0)=".5"
^XMB(3.9,38,2,39,0)="""BLD"",6049,""KRN"",.84,0)"
^XMB(3.9,38,2,40,0)=".84"
^XMB(3.9,38,2,41,0)="""BLD"",6049,""KRN"",3.6,0)"
^XMB(3.9,38,2,42,0)="3.6"
^XMB(3.9,38,2,43,0)="""BLD"",6049,""KRN"",3.8,0)"
^XMB(3.9,38,2,44,0)="3.8"
^XMB(3.9,38,2,45,0)="""BLD"",6049,""KRN"",9.2,0)"
^XMB(3.9,38,2,46,0)="9.2"
^XMB(3.9,38,2,47,0)="""BLD"",6049,""KRN"",9.8,0)"
^XMB(3.9,38,2,48,0)="9.8"
^XMB(3.9,38,2,49,0)="""BLD"",6049,""KRN"",9.8,""NM"",0)"
^XMB(3.9,38,2,50,0)="^9.68A^2^2"
^XMB(3.9,38,2,51,0)="""BLD"",6049,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,38,2,52,0)="GMRCASV1^^0^B4836288"
^XMB(3.9,38,2,53,0)="""BLD"",6049,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,38,2,54,0)="GMRCYP42^^0^B28654410"
^XMB(3.9,38,2,55,0)="""BLD"",6049,""KRN"",9.8,""NM"",""B"",""GMRCASV1"",1)"
^XMB(3.9,38,2,56,0)=""
^XMB(3.9,38,2,57,0)="""BLD"",6049,""KRN"",9.8,""NM"",""B"",""GMRCYP42"",2)"
^XMB(3.9,38,2,58,0)=""
^XMB(3.9,38,2,59,0)="""BLD"",6049,""KRN"",19,0)"
^XMB(3.9,38,2,60,0)="19"
^XMB(3.9,38,2,61,0)="""BLD"",6049,""KRN"",19.1,0)"
^XMB(3.9,38,2,62,0)="19.1"
^XMB(3.9,38,2,63,0)="""BLD"",6049,""KRN"",101,0)"
^XMB(3.9,38,2,64,0)="101"
^XMB(3.9,38,2,65,0)="""BLD"",6049,""KRN"",409.61,0)"
^XMB(3.9,38,2,66,0)="409.61"
^XMB(3.9,38,2,67,0)="""BLD"",6049,""KRN"",771,0)"
^XMB(3.9,38,2,68,0)="771"
^XMB(3.9,38,2,69,0)="""BLD"",6049,""KRN"",870,0)"
^XMB(3.9,38,2,70,0)="870"
^XMB(3.9,38,2,71,0)="""BLD"",6049,""KRN"",8989.51,0)"
^XMB(3.9,38,2,72,0)="8989.51"
^XMB(3.9,38,2,73,0)="""BLD"",6049,""KRN"",8989.52,0)"
^XMB(3.9,38,2,74,0)="8989.52"
^XMB(3.9,38,2,75,0)="""BLD"",6049,""KRN"",8994,0)"
^XMB(3.9,38,2,76,0)="8994"
^XMB(3.9,38,2,77,0)="""BLD"",6049,""KRN"",""B"",.4,.4)"
^XMB(3.9,38,2,78,0)=""
^XMB(3.9,38,2,79,0)="""BLD"",6049,""KRN"",""B"",.401,.401)"
^XMB(3.9,38,2,80,0)=""
^XMB(3.9,38,2,81,0)="""BLD"",6049,""KRN"",""B"",.402,.402)"
^XMB(3.9,38,2,82,0)=""
^XMB(3.9,38,2,83,0)="""BLD"",6049,""KRN"",""B"",.403,.403)"
^XMB(3.9,38,2,84,0)=""
^XMB(3.9,38,2,85,0)="""BLD"",6049,""KRN"",""B"",.5,.5)"
^XMB(3.9,38,2,86,0)=""
^XMB(3.9,38,2,87,0)="""BLD"",6049,""KRN"",""B"",.84,.84)"
^XMB(3.9,38,2,88,0)=""
^XMB(3.9,38,2,89,0)="""BLD"",6049,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,38,2,90,0)=""
^XMB(3.9,38,2,91,0)="""BLD"",6049,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,38,2,92,0)=""
^XMB(3.9,38,2,93,0)="""BLD"",6049,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,38,2,94,0)=""
^XMB(3.9,38,2,95,0)="""BLD"",6049,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,38,2,96,0)=""
^XMB(3.9,38,2,97,0)="""BLD"",6049,""KRN"",""B"",19,19)"
^XMB(3.9,38,2,98,0)=""
^XMB(3.9,38,2,99,0)="""BLD"",6049,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,38,2,100,0)=""
^XMB(3.9,38,2,101,0)="""BLD"",6049,""KRN"",""B"",101,101)"
^XMB(3.9,38,2,102,0)=""
^XMB(3.9,38,2,103,0)="""BLD"",6049,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,38,2,104,0)=""
^XMB(3.9,38,2,105,0)="""BLD"",6049,""KRN"",""B"",771,771)"
^XMB(3.9,38,2,106,0)=""
^XMB(3.9,38,2,107,0)="""BLD"",6049,""KRN"",""B"",870,870)"
^XMB(3.9,38,2,108,0)=""
^XMB(3.9,38,2,109,0)="""BLD"",6049,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,38,2,110,0)=""
^XMB(3.9,38,2,111,0)="""BLD"",6049,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,38,2,112,0)=""
^XMB(3.9,38,2,113,0)="""BLD"",6049,""KRN"",""B"",8994,8994)"
^XMB(3.9,38,2,114,0)=""
^XMB(3.9,38,2,115,0)="""BLD"",6049,""PRE"")"
^XMB(3.9,38,2,116,0)="GMRCYP42"
^XMB(3.9,38,2,117,0)="""BLD"",6049,""QUES"",0)"
^XMB(3.9,38,2,118,0)="^9.62^^"
^XMB(3.9,38,2,119,0)="""BLD"",6049,""REQB"",0)"
^XMB(3.9,38,2,120,0)="^9.611^1^1"
^XMB(3.9,38,2,121,0)="""BLD"",6049,""REQB"",1,0)"
^XMB(3.9,38,2,122,0)="GMRC*3.0*22^1"
^XMB(3.9,38,2,123,0)="""BLD"",6049,""REQB"",""B"",""GMRC*3.0*22"",1)"
^XMB(3.9,38,2,124,0)=""
^XMB(3.9,38,2,125,0)="""INI"")"
^XMB(3.9,38,2,126,0)="PRE^GMRCYP42"
^XMB(3.9,38,2,127,0)="""INIT"")"
^XMB(3.9,38,2,128,0)="POST^GMRCYP42"
^XMB(3.9,38,2,129,0)="""MBREQ"")"
^XMB(3.9,38,2,130,0)="0"
^XMB(3.9,38,2,131,0)="""PKG"",222,-1)"
^XMB(3.9,38,2,132,0)="1^1"
^XMB(3.9,38,2,133,0)="""PKG"",222,0)"
^XMB(3.9,38,2,134,0)="CONSULT/REQUEST TRACKING^GMRC^CONSULTS/REQUESTS"
^XMB(3.9,38,2,135,0)="""PKG"",222,22,0)"
^XMB(3.9,38,2,136,0)="^9.49I^1^1"
^XMB(3.9,38,2,137,0)="""PKG"",222,22,1,0)"
^XMB(3.9,38,2,138,0)="3.0^2980101^2990325^66481"
^XMB(3.9,38,2,139,0)="""PKG"",222,22,1,""PAH"",1,0)"
^XMB(3.9,38,2,140,0)="42^3060113"
^XMB(3.9,38,2,141,0)="""PKG"",222,22,1,""PAH"",1,1,0)"
^XMB(3.9,38,2,142,0)="^^5^5^3060113"
^XMB(3.9,38,2,143,0)="""PKG"",222,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,38,2,144,0)="This patch exports one consult service.  The service will create or "
^XMB(3.9,38,2,145,0)="""PKG"",222,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,38,2,146,0)="replace an entry in the REQUEST SERVICES (#123.5) file.  This patch also "
^XMB(3.9,38,2,147,0)="""PKG"",222,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,38,2,148,0)="modifies an API routine to accept the Service Name as well as the Service "
^XMB(3.9,38,2,149,0)="""PKG"",222,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,38,2,150,0)="IEN as input.  Thes changes are being made at the request of the Home "
^XMB(3.9,38,2,151,0)="""PKG"",222,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,38,2,152,0)="Telehealth Project group."
^XMB(3.9,38,2,153,0)="""PRE"")"
^XMB(3.9,38,2,154,0)="GMRCYP42"
^XMB(3.9,38,2,155,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,38,2,156,0)="Y"
^XMB(3.9,38,2,157,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,38,2,158,0)="^D REP^XPDH"
^XMB(3.9,38,2,159,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,38,2,160,0)="Shall I write over your |FLAG| File"
^XMB(3.9,38,2,161,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,38,2,162,0)="YES"
^XMB(3.9,38,2,163,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,38,2,164,0)="D XPF1^XPDIQ"
^XMB(3.9,38,2,165,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,38,2,166,0)="Y"
^XMB(3.9,38,2,167,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,38,2,168,0)="^D DTA^XPDH"
^XMB(3.9,38,2,169,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,38,2,170,0)="Want my data |FLAG| yours"
^XMB(3.9,38,2,171,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,38,2,172,0)="YES"
^XMB(3.9,38,2,173,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,38,2,174,0)="D XPF2^XPDIQ"
^XMB(3.9,38,2,175,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,38,2,176,0)="YO"
^XMB(3.9,38,2,177,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,38,2,178,0)="^D INHIBIT^XPDH"
^XMB(3.9,38,2,179,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,38,2,180,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,38,2,181,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,38,2,182,0)="YES"
^XMB(3.9,38,2,183,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,38,2,184,0)="D XPI1^XPDIQ"
^XMB(3.9,38,2,185,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,38,2,186,0)="PO^VA(200,:EM"
^XMB(3.9,38,2,187,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,38,2,188,0)="^D MG^XPDH"
^XMB(3.9,38,2,189,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,38,2,190,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,38,2,191,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,38,2,192,0)=""
^XMB(3.9,38,2,193,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,38,2,194,0)="D XPM1^XPDIQ"
^XMB(3.9,38,2,195,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,38,2,196,0)="Y"
^XMB(3.9,38,2,197,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,38,2,198,0)="^D MENU^XPDH"
^XMB(3.9,38,2,199,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,38,2,200,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,38,2,201,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,38,2,202,0)="YES"
^XMB(3.9,38,2,203,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,38,2,204,0)="D XPO1^XPDIQ"
^XMB(3.9,38,2,205,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,38,2,206,0)="Y"
^XMB(3.9,38,2,207,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,38,2,208,0)="^D OPT^XPDH"
^XMB(3.9,38,2,209,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,38,2,210,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,38,2,211,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,38,2,212,0)="YES"
^XMB(3.9,38,2,213,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,38,2,214,0)="D XPZ1^XPDIQ"
^XMB(3.9,38,2,215,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,38,2,216,0)="Y"
^XMB(3.9,38,2,217,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,38,2,218,0)="^D RTN^XPDH"
^XMB(3.9,38,2,219,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,38,2,220,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,38,2,221,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,38,2,222,0)="NO"
^XMB(3.9,38,2,223,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,38,2,224,0)="D XPZ2^XPDIQ"
^XMB(3.9,38,2,225,0)="""RTN"")"
^XMB(3.9,38,2,226,0)="2"
^XMB(3.9,38,2,227,0)="""RTN"",""GMRCASV1"")"
^XMB(3.9,38,2,228,0)="0^1^B4836288^B4425153"
^XMB(3.9,38,2,229,0)="""RTN"",""GMRCASV1"",1,0)"
^XMB(3.9,38,2,230,0)="GMRCASV1 ;SLC/JFR - HIERARCHY MGMT cont'd ; 01/10/02 21:34"
^XMB(3.9,38,2,231,0)="""RTN"",""GMRCASV1"",2,0)"
^XMB(3.9,38,2,232,0)=" ;;3.0;CONSULT/REQUEST TRACKING;**18,15,23,22,42**;DEC 27, 1997"
^XMB(3.9,38,2,233,0)="""RTN"",""GMRCASV1"",3,0)"
^XMB(3.9,38,2,234,0)=" ;"
^XMB(3.9,38,2,235,0)="""RTN"",""GMRCASV1"",4,0)"
^XMB(3.9,38,2,236,0)=" ; This routine invokes IA #3252"
^XMB(3.9,38,2,237,0)="""RTN"",""GMRCASV1"",5,0)"
^XMB(3.9,38,2,238,0)=" ;"
^XMB(3.9,38,2,239,0)="""RTN"",""GMRCASV1"",6,0)"
^XMB(3.9,38,2,240,0)=" Q  ; don't start at the top"
^XMB(3.9,38,2,241,0)="""RTN"",""GMRCASV1"",7,0)"
^XMB(3.9,38,2,242,0)="GUI(GMRCARR,GMRCSTRT,GMRCWHY,GMRCSYN,GMRCO) ;;return CSLT services for GUI"
^XMB(3.9,38,2,243,0)="""RTN"",""GMRCASV1"",8,0)"
^XMB(3.9,38,2,244,0)=" ;Input:"
^XMB(3.9,38,2,245,0)="""RTN"",""GMRCASV1"",9,0)"
^XMB(3.9,38,2,246,0)=" ; GMRCARR - passed in as the array to return results in"
^XMB(3.9,38,2,247,0)="""RTN"",""GMRCASV1"",10,0)"
^XMB(3.9,38,2,248,0)=" ; GMRCSTRT- service name or ien to begin building from"
^XMB(3.9,38,2,249,0)="""RTN"",""GMRCASV1"",11,0)"
^XMB(3.9,38,2,250,0)=" ; GMRCWHY - 0 for display, 1 for forwarding or ordering"
^XMB(3.9,38,2,251,0)="""RTN"",""GMRCASV1"",12,0)"
^XMB(3.9,38,2,252,0)=" ; GMRCSYN - Boolean: 1=return synonyms, 0=do not"
^XMB(3.9,38,2,253,0)="""RTN"",""GMRCASV1"",13,0)"
^XMB(3.9,38,2,254,0)=" ; GMRCO   - consult ien from file 123"
^XMB(3.9,38,2,255,0)="""RTN"",""GMRCASV1"",14,0)"
^XMB(3.9,38,2,256,0)=" ;Output: Array formatted as follows-"
^XMB(3.9,38,2,257,0)="""RTN"",""GMRCASV1"",15,0)"
^XMB(3.9,38,2,258,0)=" ;      svc ien^svc name or syn^parent^has children^svc usage"
^XMB(3.9,38,2,259,0)="""RTN"",""GMRCASV1"",16,0)"
^XMB(3.9,38,2,260,0)=" ;"
^XMB(3.9,38,2,261,0)="""RTN"",""GMRCASV1"",17,0)"
^XMB(3.9,38,2,262,0)=" N GMRCDG,GMRCGRP,GMRCTO"
^XMB(3.9,38,2,263,0)="""RTN"",""GMRCASV1"",18,0)"
^XMB(3.9,38,2,264,0)=" ;Following line modified to accept the Name as well as the IEN for a Service, TDP - 2/9/2005"
^XMB(3.9,38,2,265,0)="""RTN"",""GMRCASV1"",19,0)"
^XMB(3.9,38,2,266,0)=" S GMRCDG=$$FIND1^DIC(123.5,,""AX"",GMRCSTRT,""B"") I 'GMRCDG Q"
^XMB(3.9,38,2,267,0)="""RTN"",""GMRCASV1"",20,0)"
^XMB(3.9,38,2,268,0)=" S GMRCTO=GMRCWHY"
^XMB(3.9,38,2,269,0)="""RTN"",""GMRCASV1"",21,0)"
^XMB(3.9,38,2,270,0)=" D SERV1^GMRCASV I '$D(^TMP(""GMRCSLIST"",$J)) Q"
^XMB(3.9,38,2,271,0)="""RTN"",""GMRCASV1"",22,0)"
^XMB(3.9,38,2,272,0)=" I '$G(GMRCSYN) G GUIQ ;M @GMRCARR=^TMP(""GMRCSLIST"",$J) Q  ;no synonyms needed"
^XMB(3.9,38,2,273,0)="""RTN"",""GMRCASV1"",23,0)"
^XMB(3.9,38,2,274,0)=" N GMRC,GMRCSVC,GMRCS,NEXT,PIEC"
^XMB(3.9,38,2,275,0)="""RTN"",""GMRCASV1"",24,0)"
^XMB(3.9,38,2,276,0)=" S GMRC=0,NEXT=$O(^TMP(""GMRCSLIST"",$J,"" ""),-1)+1"
^XMB(3.9,38,2,277,0)="""RTN"",""GMRCASV1"",25,0)"
^XMB(3.9,38,2,278,0)=" F  S GMRC=$O(^TMP(""GMRCSLIST"",$J,GMRC)) Q:'GMRC  Q:$P(^TMP(""GMRCSLIST"",$J,GMRC),U,5)=""S""  D"
^XMB(3.9,38,2,279,0)="""RTN"",""GMRCASV1"",26,0)"
^XMB(3.9,38,2,280,0)=" . I $P(^TMP(""GMRCSLIST"",$J,GMRC),U,5)=1 Q"
^XMB(3.9,38,2,281,0)="""RTN"",""GMRCASV1"",27,0)"
^XMB(3.9,38,2,282,0)=" . S GMRCSVC=+^TMP(""GMRCSLIST"",$J,GMRC)"
^XMB(3.9,38,2,283,0)="""RTN"",""GMRCASV1"",28,0)"
^XMB(3.9,38,2,284,0)=" . S GMRCS=0"
^XMB(3.9,38,2,285,0)="""RTN"",""GMRCASV1"",29,0)"
^XMB(3.9,38,2,286,0)=" . F  S GMRCS=$O(^GMR(123.5,GMRCSVC,2,GMRCS)) Q:'GMRCS  D"
^XMB(3.9,38,2,287,0)="""RTN"",""GMRCASV1"",30,0)"
^XMB(3.9,38,2,288,0)=" .. S PIEC(1)=GMRCSVC"
^XMB(3.9,38,2,289,0)="""RTN"",""GMRCASV1"",31,0)"
^XMB(3.9,38,2,290,0)=" .. S PIEC(2)=$P(^GMR(123.5,GMRCSVC,0),U)"
^XMB(3.9,38,2,291,0)="""RTN"",""GMRCASV1"",32,0)"
^XMB(3.9,38,2,292,0)=" .. S PIEC(2)=^GMR(123.5,GMRCSVC,2,GMRCS,0)_""  <""_PIEC(2)_"">"""
^XMB(3.9,38,2,293,0)="""RTN"",""GMRCASV1"",33,0)"
^XMB(3.9,38,2,294,0)=" .. S ^TMP(""GMRCSLIST"",$J,NEXT)=PIEC(1)_""^""_PIEC(2)_""^^^S"""
^XMB(3.9,38,2,295,0)="""RTN"",""GMRCASV1"",34,0)"
^XMB(3.9,38,2,296,0)=" .. S NEXT=NEXT+1"
^XMB(3.9,38,2,297,0)="""RTN"",""GMRCASV1"",35,0)"
^XMB(3.9,38,2,298,0)=" .. Q"
^XMB(3.9,38,2,299,0)="""RTN"",""GMRCASV1"",36,0)"
^XMB(3.9,38,2,300,0)=" . Q"
^XMB(3.9,38,2,301,0)="""RTN"",""GMRCASV1"",37,0)"
^XMB(3.9,38,2,302,0)="GUIQ M @GMRCARR=^TMP(""GMRCSLIST"",$J)"
^XMB(3.9,38,2,303,0)="""RTN"",""GMRCASV1"",38,0)"
^XMB(3.9,38,2,304,0)=" K ^TMP(""GMRCS"",$J),^TMP(""GMRCSLIST"",$J)"
^XMB(3.9,38,2,305,0)="""RTN"",""GMRCASV1"",39,0)"
^XMB(3.9,38,2,306,0)=" Q"
^XMB(3.9,38,2,307,0)="""RTN"",""GMRCASV1"",40,0)"
^XMB(3.9,38,2,308,0)=" ;"
^XMB(3.9,38,2,309,0)="""RTN"",""GMRCASV1"",41,0)"
^XMB(3.9,38,2,310,0)="PAGE(PG) ;print header and increment page"
^XMB(3.9,38,2,311,0)="""RTN"",""GMRCASV1"",42,0)"
^XMB(3.9,38,2,312,0)=" S PG=PG+1"
^XMB(3.9,38,2,313,0)="""RTN"",""GMRCASV1"",43,0)"
^XMB(3.9,38,2,314,0)=" W !,""Consult Hierarchy list"",?30,$$HTE^XLFDT($H),?60,""Page: "",PG"
^XMB(3.9,38,2,315,0)="""RTN"",""GMRCASV1"",44,0)"
^XMB(3.9,38,2,316,0)=" W !,$$REPEAT^XLFSTR(""-"",78)"
^XMB(3.9,38,2,317,0)="""RTN"",""GMRCASV1"",45,0)"
^XMB(3.9,38,2,318,0)=" Q"
^XMB(3.9,38,2,319,0)="""RTN"",""GMRCASV1"",46,0)"
^XMB(3.9,38,2,320,0)=" ;"
^XMB(3.9,38,2,321,0)="""RTN"",""GMRCASV1"",47,0)"
^XMB(3.9,38,2,322,0)="QUEUE ; queue up the print"
^XMB(3.9,38,2,323,0)="""RTN"",""GMRCASV1"",48,0)"
^XMB(3.9,38,2,324,0)=" N ZTRTN,ZTSK,ZTIO,ZTDTH,ZTDESC"
^XMB(3.9,38,2,325,0)="""RTN"",""GMRCASV1"",49,0)"
^XMB(3.9,38,2,326,0)=" S ZTRTN=""PRTLST^GMRCASV"",ZTDESC=""Consult Service Hierarchy List"""
^XMB(3.9,38,2,327,0)="""RTN"",""GMRCASV1"",50,0)"
^XMB(3.9,38,2,328,0)=" S ZTIO=ION,ZTDTH=$H"
^XMB(3.9,38,2,329,0)="""RTN"",""GMRCASV1"",51,0)"
^XMB(3.9,38,2,330,0)=" D ^%ZTLOAD"
^XMB(3.9,38,2,331,0)="""RTN"",""GMRCASV1"",52,0)"
^XMB(3.9,38,2,332,0)=" I $G(ZTSK) W !,""Queued to Print, Task # "",ZTSK"
^XMB(3.9,38,2,333,0)="""RTN"",""GMRCASV1"",53,0)"
^XMB(3.9,38,2,334,0)=" E  W !,""Sorry, Try again Later"""
^XMB(3.9,38,2,335,0)="""RTN"",""GMRCASV1"",54,0)"
^XMB(3.9,38,2,336,0)=" Q"
^XMB(3.9,38,2,337,0)="""RTN"",""GMRCYP42"")"
^XMB(3.9,38,2,338,0)="0^2^B28654410^n/a"
^XMB(3.9,38,2,339,0)="""RTN"",""GMRCYP42"",1,0)"
^XMB(3.9,38,2,340,0)="GMRCYP42 ;ISP/TDP - PRE/POST INSTALL FOR GMRC*3*42; 3/9/2005"
^XMB(3.9,38,2,341,0)="""RTN"",""GMRCYP42"",2,0)"
^XMB(3.9,38,2,342,0)=" ;;3.0;CONSULT/REQUEST TRACKING;**42**;DEC 27, 1997"
^XMB(3.9,38,2,343,0)="""RTN"",""GMRCYP42"",3,0)"
^XMB(3.9,38,2,344,0)="ENV ;env check for service name conflict"
^XMB(3.9,38,2,345,0)="""RTN"",""GMRCYP42"",4,0)"
^XMB(3.9,38,2,346,0)=" N GMRCMSG,GMRCSVC,I"
^XMB(3.9,38,2,347,0)="""RTN"",""GMRCYP42"",5,0)"
^XMB(3.9,38,2,348,0)=" I $$PATCH^XPDUTL(""GMRC*3.0*42"") Q"
^XMB(3.9,38,2,349,0)="""RTN"",""GMRCYP42"",6,0)"
^XMB(3.9,38,2,350,0)=" K ^TMP(""GMRCYP42"",$J)"
^XMB(3.9,38,2,351,0)="""RTN"",""GMRCYP42"",7,0)"
^XMB(3.9,38,2,352,0)=" S GMRCSVC=0"
^XMB(3.9,38,2,353,0)="""RTN"",""GMRCYP42"",8,0)"
^XMB(3.9,38,2,354,0)=" F  S GMRCSVC=$O(^GMR(123.5,GMRCSVC)) Q:'GMRCSVC  D"
^XMB(3.9,38,2,355,0)="""RTN"",""GMRCYP42"",9,0)"
^XMB(3.9,38,2,356,0)=" . Q:'$D(^GMR(123.5,GMRCSVC,0))"
^XMB(3.9,38,2,357,0)="""RTN"",""GMRCYP42"",10,0)"
^XMB(3.9,38,2,358,0)=" . D CHK1235($P(^GMR(123.5,GMRCSVC,0),U))"
^XMB(3.9,38,2,359,0)="""RTN"",""GMRCYP42"",11,0)"
^XMB(3.9,38,2,360,0)=" I '$D(^TMP(""GMRCYP42"",$J)) D  Q"
^XMB(3.9,38,2,361,0)="""RTN"",""GMRCYP42"",12,0)"
^XMB(3.9,38,2,362,0)=" . D BMES^XPDUTL(""No conflicts with service being filed."")"
^XMB(3.9,38,2,363,0)="""RTN"",""GMRCYP42"",13,0)"
^XMB(3.9,38,2,364,0)=" D WARNING(.GMRCMSG),MES^XPDUTL(.GMRCMSG)"
^XMB(3.9,38,2,365,0)="""RTN"",""GMRCYP42"",14,0)"
^XMB(3.9,38,2,366,0)=" D BMES^XPDUTL("" "")"
^XMB(3.9,38,2,367,0)="""RTN"",""GMRCYP42"",15,0)"
^XMB(3.9,38,2,368,0)=" S I=0 F  S I=$O(^TMP(""GMRCYP42"",$J,I)) Q:'I  D"
^XMB(3.9,38,2,369,0)="""RTN"",""GMRCYP42"",16,0)"
^XMB(3.9,38,2,370,0)=" . D MES^XPDUTL(^TMP(""GMRCYP42"",$J,I,0))"
^XMB(3.9,38,2,371,0)="""RTN"",""GMRCYP42"",17,0)"
^XMB(3.9,38,2,372,0)=" K ^TMP(""GMRCYP42"",$J)"
^XMB(3.9,38,2,373,0)="""RTN"",""GMRCYP42"",18,0)"
^XMB(3.9,38,2,374,0)=" Q"
^XMB(3.9,38,2,375,0)="""RTN"",""GMRCYP42"",19,0)"
^XMB(3.9,38,2,376,0)="CHK1235(SERVNM) ;check service name against exact or possible conflicts"
^XMB(3.9,38,2,377,0)="""RTN"",""GMRCYP42"",20,0)"
^XMB(3.9,38,2,378,0)=" N X,Y"
^XMB(3.9,38,2,379,0)="""RTN"",""GMRCYP42"",21,0)"
^XMB(3.9,38,2,380,0)=" S X=SERVNM"
^XMB(3.9,38,2,381,0)="""RTN"",""GMRCYP42"",22,0)"
^XMB(3.9,38,2,382,0)=" X ^%ZOSF(""UPPERCASE"")"
^XMB(3.9,38,2,383,0)="""RTN"",""GMRCYP42"",23,0)"
^XMB(3.9,38,2,384,0)=" I Y=""CARE COORDINATION HOME TELEHEALTH SCREENING"" D MSG(SERVNM,0) Q"
^XMB(3.9,38,2,385,0)="""RTN"",""GMRCYP42"",24,0)"
^XMB(3.9,38,2,386,0)=" I Y[""TELEHEALTH"" D MSG(SERVNM,1) Q"
^XMB(3.9,38,2,387,0)="""RTN"",""GMRCYP42"",25,0)"
^XMB(3.9,38,2,388,0)=" I Y[""TELE HEALTH"" D MSG(SERVNM,1) Q"
^XMB(3.9,38,2,389,0)="""RTN"",""GMRCYP42"",26,0)"
^XMB(3.9,38,2,390,0)=" Q"
^XMB(3.9,38,2,391,0)="""RTN"",""GMRCYP42"",27,0)"
^XMB(3.9,38,2,392,0)="MSG(TEXT,FLG) ;write install message if exact or partial match"
^XMB(3.9,38,2,393,0)="""RTN"",""GMRCYP42"",28,0)"
^XMB(3.9,38,2,394,0)=" N MATCH,NEXT,MSG"
^XMB(3.9,38,2,395,0)="""RTN"",""GMRCYP42"",29,0)"
^XMB(3.9,38,2,396,0)=" S MATCH=$S(+FLG:"" partially "",1:"" exactly "")"
^XMB(3.9,38,2,397,0)="""RTN"",""GMRCYP42"",30,0)"
^XMB(3.9,38,2,398,0)=" S NEXT=$O(^TMP(""GMRCYP42"",$J,999),-1)+1"
^XMB(3.9,38,2,399,0)="""RTN"",""GMRCYP42"",31,0)"
^XMB(3.9,38,2,400,0)=" S MSG=TEXT_MATCH_""matches the service being imported."""
^XMB(3.9,38,2,401,0)="""RTN"",""GMRCYP42"",32,0)"
^XMB(3.9,38,2,402,0)=" S ^TMP(""GMRCYP42"",$J,NEXT,0)=MSG"
^XMB(3.9,38,2,403,0)="""RTN"",""GMRCYP42"",33,0)"
^XMB(3.9,38,2,404,0)=" Q"
^XMB(3.9,38,2,405,0)="""RTN"",""GMRCYP42"",34,0)"
^XMB(3.9,38,2,406,0)="WARNING(TXT) ;format warning statement for pre-install in case of conflicts"
^XMB(3.9,38,2,407,0)="""RTN"",""GMRCYP42"",35,0)"
^XMB(3.9,38,2,408,0)=" S TXT(1)=$$FMTE^XLFDT($$NOW^XLFDT)"
^XMB(3.9,38,2,409,0)="""RTN"",""GMRCYP42"",36,0)"
^XMB(3.9,38,2,410,0)=" S TXT(2)=""This patch imports data for 1 service in the REQUEST SERVICES (#123.5) file."""
^XMB(3.9,38,2,411,0)="""RTN"",""GMRCYP42"",37,0)"
^XMB(3.9,38,2,412,0)=" S TXT(3)=""If the service does not exist in your file, it will be created as a new"""
^XMB(3.9,38,2,413,0)="""RTN"",""GMRCYP42"",38,0)"
^XMB(3.9,38,2,414,0)=" S TXT(4)=""entry. If the service does exist on your system, some fields of data will"""
^XMB(3.9,38,2,415,0)="""RTN"",""GMRCYP42"",39,0)"
^XMB(3.9,38,2,416,0)=" S TXT(5)=""be overwritten."""
^XMB(3.9,38,2,417,0)="""RTN"",""GMRCYP42"",40,0)"
^XMB(3.9,38,2,418,0)=" ;S TXT(6)=""(#1.01) PROVISIONAL DX PROMPT, (#1.02) PROVISIONAL DX INPUT, and """
^XMB(3.9,38,2,419,0)="""RTN"",""GMRCYP42"",41,0)"
^XMB(3.9,38,2,420,0)=" ;S TXT(7)=""(#124) DEFAULT REASON FOR REQUEST. """
^XMB(3.9,38,2,421,0)="""RTN"",""GMRCYP42"",42,0)"
^XMB(3.9,38,2,422,0)=" S TXT(8)="" """
^XMB(3.9,38,2,423,0)="""RTN"",""GMRCYP42"",43,0)"
^XMB(3.9,38,2,424,0)=" S TXT(9)=""Following this warning message, there will be one or more lines that """
^XMB(3.9,38,2,425,0)="""RTN"",""GMRCYP42"",44,0)"
^XMB(3.9,38,2,426,0)=" S TXT(10)=""indicate that either an exact or partial match was found on your system."""
^XMB(3.9,38,2,427,0)="""RTN"",""GMRCYP42"",45,0)"
^XMB(3.9,38,2,428,0)=" S TXT(11)=""It is highly recommended that the install be aborted at this time until the"""
^XMB(3.9,38,2,429,0)="""RTN"",""GMRCYP42"",46,0)"
^XMB(3.9,38,2,430,0)=" S TXT(12)=""individual responsible for management of Consult/Request Tracking can """
^XMB(3.9,38,2,431,0)="""RTN"",""GMRCYP42"",47,0)"
^XMB(3.9,38,2,432,0)=" S TXT(13)=""review and verify that these changes will not adversely affect operations"""
^XMB(3.9,38,2,433,0)="""RTN"",""GMRCYP42"",48,0)"
^XMB(3.9,38,2,434,0)=" S TXT(14)=""of the package."""
^XMB(3.9,38,2,435,0)="""RTN"",""GMRCYP42"",49,0)"
^XMB(3.9,38,2,436,0)=" Q"
^XMB(3.9,38,2,437,0)="""RTN"",""GMRCYP42"",50,0)"
^XMB(3.9,38,2,438,0)=" ;"
^XMB(3.9,38,2,439,0)="""RTN"",""GMRCYP42"",51,0)"
^XMB(3.9,38,2,440,0)="PRE ; load service into REQUEST SERVICES (#123.5) file"
^XMB(3.9,38,2,441,0)="""RTN"",""GMRCYP42"",52,0)"
^XMB(3.9,38,2,442,0)=" N I,SVC"
^XMB(3.9,38,2,443,0)="""RTN"",""GMRCYP42"",53,0)"
^XMB(3.9,38,2,444,0)=" D BMES^XPDUTL(""Adding CARE COORDINATION HOME TELEHEALTH SCREENING as a new consult"")"
^XMB(3.9,38,2,445,0)="""RTN"",""GMRCYP42"",54,0)"
^XMB(3.9,38,2,446,0)=" D MES^XPDUTL(""   service in the REQUEST SERVICES (#123.5) file."")"
^XMB(3.9,38,2,447,0)="""RTN"",""GMRCYP42"",55,0)"
^XMB(3.9,38,2,448,0)=" S SVC=$$FIND1^DIC(123.5,,""QX"",""CARE COORDINATION HOME TELEHEALTH SCREENING"")"
^XMB(3.9,38,2,449,0)="""RTN"",""GMRCYP42"",56,0)"
^XMB(3.9,38,2,450,0)=" I +SVC D EDIT(SVC)"
^XMB(3.9,38,2,451,0)="""RTN"",""GMRCYP42"",57,0)"
^XMB(3.9,38,2,452,0)=" I '+SVC D ADD"
^XMB(3.9,38,2,453,0)="""RTN"",""GMRCYP42"",58,0)"
^XMB(3.9,38,2,454,0)=" D BMES^XPDUTL(""Pre-init complete."")"
^XMB(3.9,38,2,455,0)="""RTN"",""GMRCYP42"",59,0)"
^XMB(3.9,38,2,456,0)=" Q"
^XMB(3.9,38,2,457,0)="""RTN"",""GMRCYP42"",60,0)"
^XMB(3.9,38,2,458,0)="ADD ; add new REQUEST SERVICE"
^XMB(3.9,38,2,459,0)="""RTN"",""GMRCYP42"",61,0)"
^XMB(3.9,38,2,460,0)=" N DEFAULT,DIC,DXI,DXP,INTERNAL,OERR,PRINT,PROTOCOL,X"
^XMB(3.9,38,2,461,0)="""RTN"",""GMRCYP42"",62,0)"
^XMB(3.9,38,2,462,0)=" K DO"
^XMB(3.9,38,2,463,0)="""RTN"",""GMRCYP42"",63,0)"
^XMB(3.9,38,2,464,0)=" S DIC=""^GMR(123.5,"""
^XMB(3.9,38,2,465,0)="""RTN"",""GMRCYP42"",64,0)"
^XMB(3.9,38,2,466,0)=" S DIC(0)=""L"""
^XMB(3.9,38,2,467,0)="""RTN"",""GMRCYP42"",65,0)"
^XMB(3.9,38,2,468,0)=" S X=""CARE COORDINATION HOME TELEHEALTH SCREENING"""
^XMB(3.9,38,2,469,0)="""RTN"",""GMRCYP42"",66,0)"
^XMB(3.9,38,2,470,0)=" S INTERNAL=""CCHT SCREENING"""
^XMB(3.9,38,2,471,0)="""RTN"",""GMRCYP42"",67,0)"
^XMB(3.9,38,2,472,0)=" S PRINT=""CCHT SC"""
^XMB(3.9,38,2,473,0)="""RTN"",""GMRCYP42"",68,0)"
^XMB(3.9,38,2,474,0)=" S DXP=""O"""
^XMB(3.9,38,2,475,0)="""RTN"",""GMRCYP42"",69,0)"
^XMB(3.9,38,2,476,0)=" S DXI=""L"""
^XMB(3.9,38,2,477,0)="""RTN"",""GMRCYP42"",70,0)"
^XMB(3.9,38,2,478,0)=" S DEFAULT=""Initial Screening for Home Telehealth services."""
^XMB(3.9,38,2,479,0)="""RTN"",""GMRCYP42"",71,0)"
^XMB(3.9,38,2,480,0)=" S PROTOCOL=""GMRCACTM SERVICE ACTION MENU"""
^XMB(3.9,38,2,481,0)="""RTN"",""GMRCYP42"",72,0)"
^XMB(3.9,38,2,482,0)=" S OERR=""CONSULTS"""
^XMB(3.9,38,2,483,0)="""RTN"",""GMRCYP42"",73,0)"
^XMB(3.9,38,2,484,0)=" S DIC(""DR"")=""11////""_INTERNAL_"";1.11////""_PRINT_"";2////9;1.01////""_DXP_"";1.02////""_DXI_"";124///""_DEFAULT_"";1.03////0;1.1///""_PRINT_""RN;123.03///""_PROTOCOL_"";123.01///""_OERR"
^XMB(3.9,38,2,485,0)="""RTN"",""GMRCYP42"",74,0)"
^XMB(3.9,38,2,486,0)=" D FILE^DICN"
^XMB(3.9,38,2,487,0)="""RTN"",""GMRCYP42"",75,0)"
^XMB(3.9,38,2,488,0)=" I Y<0 D  Q"
^XMB(3.9,38,2,489,0)="""RTN"",""GMRCYP42"",76,0)"
^XMB(3.9,38,2,490,0)=" . D BMES^XPDUTL(""CARE COORDINATION HOME TELEHEALTH SCREENING failed to be added to the"")"
^XMB(3.9,38,2,491,0)="""RTN"",""GMRCYP42"",77,0)"
^XMB(3.9,38,2,492,0)=" . D MES^XPDUTL(""   REQUEST SERVICES (#123.5) file.  Follow the instructions in the patch"")"
^XMB(3.9,38,2,493,0)="""RTN"",""GMRCYP42"",78,0)"
^XMB(3.9,38,2,494,0)=" . D MES^XPDUTL(""   description for manually adding this service."")"
^XMB(3.9,38,2,495,0)="""RTN"",""GMRCYP42"",79,0)"
^XMB(3.9,38,2,496,0)=" K Y"
^XMB(3.9,38,2,497,0)="""RTN"",""GMRCYP42"",80,0)"
^XMB(3.9,38,2,498,0)=" Q"
^XMB(3.9,38,2,499,0)="""RTN"",""GMRCYP42"",81,0)"
^XMB(3.9,38,2,500,0)=" ;"
^XMB(3.9,38,2,501,0)="""RTN"",""GMRCYP42"",82,0)"
^XMB(3.9,38,2,502,0)="EDIT(SVIEN) ; edit existing REQUEST SERVICE"
^XMB(3.9,38,2,503,0)="""RTN"",""GMRCYP42"",83,0)"
^XMB(3.9,38,2,504,0)=" N DA,DEFAULT,DIE,DR,DXI,DXP,INTERNAL,OERR,PRINT,PROTOCOL,X"
^XMB(3.9,38,2,505,0)="""RTN"",""GMRCYP42"",84,0)"
^XMB(3.9,38,2,506,0)=" K DO"
^XMB(3.9,38,2,507,0)="""RTN"",""GMRCYP42"",85,0)"
^XMB(3.9,38,2,508,0)=" S DA=SVIEN"
^XMB(3.9,38,2,509,0)="""RTN"",""GMRCYP42"",86,0)"
^XMB(3.9,38,2,510,0)=" S DIE=""^GMR(123.5,"""
^XMB(3.9,38,2,511,0)="""RTN"",""GMRCYP42"",87,0)"
^XMB(3.9,38,2,512,0)=" S INTERNAL=""CCHT SCREENING"""
^XMB(3.9,38,2,513,0)="""RTN"",""GMRCYP42"",88,0)"
^XMB(3.9,38,2,514,0)=" S PRINT=""CCHT SC"""
^XMB(3.9,38,2,515,0)="""RTN"",""GMRCYP42"",89,0)"
^XMB(3.9,38,2,516,0)=" S DXP=""O"""
^XMB(3.9,38,2,517,0)="""RTN"",""GMRCYP42"",90,0)"
^XMB(3.9,38,2,518,0)=" S DXI=""L"""
^XMB(3.9,38,2,519,0)="""RTN"",""GMRCYP42"",91,0)"
^XMB(3.9,38,2,520,0)=" S DEFAULT=""Initial Screening for Home Telehealth services."""
^XMB(3.9,38,2,521,0)="""RTN"",""GMRCYP42"",92,0)"
^XMB(3.9,38,2,522,0)=" S PROTOCOL=""GMRCACTM SERVICE ACTION MENU"""
^XMB(3.9,38,2,523,0)="""RTN"",""GMRCYP42"",93,0)"
^XMB(3.9,38,2,524,0)=" S OERR=""CONSULTS"""
^XMB(3.9,38,2,525,0)="""RTN"",""GMRCYP42"",94,0)"
^XMB(3.9,38,2,526,0)=" S DR=""11////""_INTERNAL_"";1.11////""_PRINT_"";2////9;1.01////""_DXP_"";1.02////""_DXI_"";124///""_DEFAULT_"";1.03////0;I $D(^GMR(123.5,DA,2,""""B"""",""""CCHT SCRN"""")) S Y=123.03;1.1////""_PRINT_""RN;123.03///""_PROTOCOL_"";123.01///""_OERR"
^XMB(3.9,38,2,527,0)="""RTN"",""GMRCYP42"",95,0)"
^XMB(3.9,38,2,528,0)=" D ^DIE"
^XMB(3.9,38,2,529,0)="""RTN"",""GMRCYP42"",96,0)"
^XMB(3.9,38,2,530,0)=" K Y"
^XMB(3.9,38,2,531,0)="""RTN"",""GMRCYP42"",97,0)"
^XMB(3.9,38,2,532,0)=" Q"
^XMB(3.9,38,2,533,0)="""RTN"",""GMRCYP42"",98,0)"
^XMB(3.9,38,2,534,0)=" ;"
^XMB(3.9,38,2,535,0)="""RTN"",""GMRCYP42"",99,0)"
^XMB(3.9,38,2,536,0)="POST ; load services into SUB-SERVICE SPECIALTY of ALL SERVICES"
^XMB(3.9,38,2,537,0)="""RTN"",""GMRCYP42"",100,0)"
^XMB(3.9,38,2,538,0)=" N SVC"
^XMB(3.9,38,2,539,0)="""RTN"",""GMRCYP42"",101,0)"
^XMB(3.9,38,2,540,0)=" D BMES^XPDUTL(""Adding CARE COORDINATION HOME TELEHEALTH SCREENING as a sub-service"")"
^XMB(3.9,38,2,541,0)="""RTN"",""GMRCYP42"",102,0)"
^XMB(3.9,38,2,542,0)=" D MES^XPDUTL(""   to ALL SERVICES in the REQUEST SERVICES (#123.5) file."")"
^XMB(3.9,38,2,543,0)="""RTN"",""GMRCYP42"",103,0)"
^XMB(3.9,38,2,544,0)=" S SVC=$$FIND1^DIC(123.5,,""QX"",""CARE COORDINATION HOME TELEHEALTH SCREENING"") I +SVC D SUB(SVC)"
^XMB(3.9,38,2,545,0)="""RTN"",""GMRCYP42"",104,0)"
^XMB(3.9,38,2,546,0)=" D BMES^XPDUTL(""Post-init complete."")"
^XMB(3.9,38,2,547,0)="""RTN"",""GMRCYP42"",105,0)"
^XMB(3.9,38,2,548,0)=" Q"
^XMB(3.9,38,2,549,0)="""RTN"",""GMRCYP42"",106,0)"
^XMB(3.9,38,2,550,0)="SUB(SVIEN) ; add as sub of ALL SERVICES"
^XMB(3.9,38,2,551,0)="""RTN"",""GMRCYP42"",107,0)"
^XMB(3.9,38,2,552,0)=" I $D(^GMR(123.5,""APC"",SVIEN)) Q"
^XMB(3.9,38,2,553,0)="""RTN"",""GMRCYP42"",108,0)"
^XMB(3.9,38,2,554,0)=" N DIC,DA,X"
^XMB(3.9,38,2,555,0)="""RTN"",""GMRCYP42"",109,0)"
^XMB(3.9,38,2,556,0)=" K DO"
^XMB(3.9,38,2,557,0)="""RTN"",""GMRCYP42"",110,0)"
^XMB(3.9,38,2,558,0)=" S DA(1)=1"
^XMB(3.9,38,2,559,0)="""RTN"",""GMRCYP42"",111,0)"
^XMB(3.9,38,2,560,0)=" S DIC=""^GMR(123.5,""_DA(1)_"",10,"""
^XMB(3.9,38,2,561,0)="""RTN"",""GMRCYP42"",112,0)"
^XMB(3.9,38,2,562,0)=" S DIC(0)=""L"""
^XMB(3.9,38,2,563,0)="""RTN"",""GMRCYP42"",113,0)"
^XMB(3.9,38,2,564,0)=" S X=SVIEN Q:'$L(X)"
^XMB(3.9,38,2,565,0)="""RTN"",""GMRCYP42"",114,0)"
^XMB(3.9,38,2,566,0)=" D FILE^DICN"
^XMB(3.9,38,2,567,0)="""RTN"",""GMRCYP42"",115,0)"
^XMB(3.9,38,2,568,0)=" I Y<0 D"
^XMB(3.9,38,2,569,0)="""RTN"",""GMRCYP42"",116,0)"
^XMB(3.9,38,2,570,0)=" . D BMES^XPDUTL(""CARE COORDINATION HOME TELEHEALTH SCREENING failed to be added as a"")"
^XMB(3.9,38,2,571,0)="""RTN"",""GMRCYP42"",117,0)"
^XMB(3.9,38,2,572,0)=" . D MES^XPDUTL(""   sub-service to ALL SERVICES in the REQUEST SERVICES (#123.5) file."")"
^XMB(3.9,38,2,573,0)="""RTN"",""GMRCYP42"",118,0)"
^XMB(3.9,38,2,574,0)=" . D MES^XPDUTL(""   Follow the instructions in the patch description for manually adding"")"
^XMB(3.9,38,2,575,0)="""RTN"",""GMRCYP42"",119,0)"
^XMB(3.9,38,2,576,0)=" . D MES^XPDUTL(""   this sub-service."")"
^XMB(3.9,38,2,577,0)="""RTN"",""GMRCYP42"",120,0)"
^XMB(3.9,38,2,578,0)=" Q"
^XMB(3.9,38,2,579,0)="""VER"")"
^XMB(3.9,38,2,580,0)="8.0^22.0"
^XMB(3.9,38,2,581,0)="""BLD"",6049,6)"
^XMB(3.9,38,2,582,0)="^45"
^XMB(3.9,38,2,583,0)="$END KID GMRC*3.0*42"
^XMB(3.9,38,6,0)="^3.911A^2^2"
^XMB(3.9,38,6,1,0)="POSTMASTER"
^XMB(3.9,38,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,38,6,"B","POSTMASTER",1)=""
^XMB(3.9,38,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,39,0)="GMRV-5_SEQ-12_PAT-18.KID^.5^3061008.015734^^^^K"
^XMB(3.9,39,.6)="3061008"
^XMB(3.9,39,1,0)="^3.91A^2^2"
^XMB(3.9,39,1,1,0)=".5^0^3061008.015734^^^^^^^3061008.015734"
^XMB(3.9,39,1,2,0)="1^0^3061008.023143^^^^^^^3061008.023143"
^XMB(3.9,39,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,39,1,"C",.5,1)=""
^XMB(3.9,39,1,"C",1,2)=""
^XMB(3.9,39,2,0)="^^243^243^3061008"
^XMB(3.9,39,2,1,0)="$TXT Released GMRV*5*18 SEQ #12"
^XMB(3.9,39,2,2,0)="Extracted from mail message"
^XMB(3.9,39,2,3,0)="$END TXT"
^XMB(3.9,39,2,4,0)="$KID GMRV*5.0*18"
^XMB(3.9,39,2,5,0)="**INSTALL NAME**"
^XMB(3.9,39,2,6,0)="GMRV*5.0*18"
^XMB(3.9,39,2,7,0)="""BLD"",6167,0)"
^XMB(3.9,39,2,8,0)="GMRV*5.0*18^GEN. MED. REC. - VITALS^0^3060720^y"
^XMB(3.9,39,2,9,0)="""BLD"",6167,1,0)"
^XMB(3.9,39,2,10,0)="^^1^1^3060620^"
^XMB(3.9,39,2,11,0)="""BLD"",6167,1,1,0)"
^XMB(3.9,39,2,12,0)="VITALS GUI ERROR UPON CVP DATA ENTRY & GRID/GRAPH BLANKING ISSUE"
^XMB(3.9,39,2,13,0)="""BLD"",6167,4,0)"
^XMB(3.9,39,2,14,0)="^9.64PA^^"
^XMB(3.9,39,2,15,0)="""BLD"",6167,6.3)"
^XMB(3.9,39,2,16,0)="7"
^XMB(3.9,39,2,17,0)="""BLD"",6167,""ABPKG"")"
^XMB(3.9,39,2,18,0)="n"
^XMB(3.9,39,2,19,0)="""BLD"",6167,""INID"")"
^XMB(3.9,39,2,20,0)="^n"
^XMB(3.9,39,2,21,0)="""BLD"",6167,""INIT"")"
^XMB(3.9,39,2,22,0)="GMV18PST"
^XMB(3.9,39,2,23,0)="""BLD"",6167,""KRN"",0)"
^XMB(3.9,39,2,24,0)="^9.67PA^8989.52^19"
^XMB(3.9,39,2,25,0)="""BLD"",6167,""KRN"",.4,0)"
^XMB(3.9,39,2,26,0)=".4"
^XMB(3.9,39,2,27,0)="""BLD"",6167,""KRN"",.401,0)"
^XMB(3.9,39,2,28,0)=".401"
^XMB(3.9,39,2,29,0)="""BLD"",6167,""KRN"",.402,0)"
^XMB(3.9,39,2,30,0)=".402"
^XMB(3.9,39,2,31,0)="""BLD"",6167,""KRN"",.403,0)"
^XMB(3.9,39,2,32,0)=".403"
^XMB(3.9,39,2,33,0)="""BLD"",6167,""KRN"",.5,0)"
^XMB(3.9,39,2,34,0)=".5"
^XMB(3.9,39,2,35,0)="""BLD"",6167,""KRN"",.84,0)"
^XMB(3.9,39,2,36,0)=".84"
^XMB(3.9,39,2,37,0)="""BLD"",6167,""KRN"",3.6,0)"
^XMB(3.9,39,2,38,0)="3.6"
^XMB(3.9,39,2,39,0)="""BLD"",6167,""KRN"",3.8,0)"
^XMB(3.9,39,2,40,0)="3.8"
^XMB(3.9,39,2,41,0)="""BLD"",6167,""KRN"",9.2,0)"
^XMB(3.9,39,2,42,0)="9.2"
^XMB(3.9,39,2,43,0)="""BLD"",6167,""KRN"",9.8,0)"
^XMB(3.9,39,2,44,0)="9.8"
^XMB(3.9,39,2,45,0)="""BLD"",6167,""KRN"",19,0)"
^XMB(3.9,39,2,46,0)="19"
^XMB(3.9,39,2,47,0)="""BLD"",6167,""KRN"",19.1,0)"
^XMB(3.9,39,2,48,0)="19.1"
^XMB(3.9,39,2,49,0)="""BLD"",6167,""KRN"",101,0)"
^XMB(3.9,39,2,50,0)="101"
^XMB(3.9,39,2,51,0)="""BLD"",6167,""KRN"",409.61,0)"
^XMB(3.9,39,2,52,0)="409.61"
^XMB(3.9,39,2,53,0)="""BLD"",6167,""KRN"",771,0)"
^XMB(3.9,39,2,54,0)="771"
^XMB(3.9,39,2,55,0)="""BLD"",6167,""KRN"",870,0)"
^XMB(3.9,39,2,56,0)="870"
^XMB(3.9,39,2,57,0)="""BLD"",6167,""KRN"",8989.51,0)"
^XMB(3.9,39,2,58,0)="8989.51"
^XMB(3.9,39,2,59,0)="""BLD"",6167,""KRN"",8989.52,0)"
^XMB(3.9,39,2,60,0)="8989.52"
^XMB(3.9,39,2,61,0)="""BLD"",6167,""KRN"",8994,0)"
^XMB(3.9,39,2,62,0)="8994"
^XMB(3.9,39,2,63,0)="""BLD"",6167,""KRN"",""B"",.4,.4)"
^XMB(3.9,39,2,64,0)=""
^XMB(3.9,39,2,65,0)="""BLD"",6167,""KRN"",""B"",.401,.401)"
^XMB(3.9,39,2,66,0)=""
^XMB(3.9,39,2,67,0)="""BLD"",6167,""KRN"",""B"",.402,.402)"
^XMB(3.9,39,2,68,0)=""
^XMB(3.9,39,2,69,0)="""BLD"",6167,""KRN"",""B"",.403,.403)"
^XMB(3.9,39,2,70,0)=""
^XMB(3.9,39,2,71,0)="""BLD"",6167,""KRN"",""B"",.5,.5)"
^XMB(3.9,39,2,72,0)=""
^XMB(3.9,39,2,73,0)="""BLD"",6167,""KRN"",""B"",.84,.84)"
^XMB(3.9,39,2,74,0)=""
^XMB(3.9,39,2,75,0)="""BLD"",6167,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,39,2,76,0)=""
^XMB(3.9,39,2,77,0)="""BLD"",6167,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,39,2,78,0)=""
^XMB(3.9,39,2,79,0)="""BLD"",6167,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,39,2,80,0)=""
^XMB(3.9,39,2,81,0)="""BLD"",6167,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,39,2,82,0)=""
^XMB(3.9,39,2,83,0)="""BLD"",6167,""KRN"",""B"",19,19)"
^XMB(3.9,39,2,84,0)=""
^XMB(3.9,39,2,85,0)="""BLD"",6167,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,39,2,86,0)=""
^XMB(3.9,39,2,87,0)="""BLD"",6167,""KRN"",""B"",101,101)"
^XMB(3.9,39,2,88,0)=""
^XMB(3.9,39,2,89,0)="""BLD"",6167,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,39,2,90,0)=""
^XMB(3.9,39,2,91,0)="""BLD"",6167,""KRN"",""B"",771,771)"
^XMB(3.9,39,2,92,0)=""
^XMB(3.9,39,2,93,0)="""BLD"",6167,""KRN"",""B"",870,870)"
^XMB(3.9,39,2,94,0)=""
^XMB(3.9,39,2,95,0)="""BLD"",6167,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,39,2,96,0)=""
^XMB(3.9,39,2,97,0)="""BLD"",6167,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,39,2,98,0)=""
^XMB(3.9,39,2,99,0)="""BLD"",6167,""KRN"",""B"",8994,8994)"
^XMB(3.9,39,2,100,0)=""
^XMB(3.9,39,2,101,0)="""BLD"",6167,""QUES"",0)"
^XMB(3.9,39,2,102,0)="^9.62^^"
^XMB(3.9,39,2,103,0)="""BLD"",6167,""REQB"",0)"
^XMB(3.9,39,2,104,0)="^9.611^1^1"
^XMB(3.9,39,2,105,0)="""BLD"",6167,""REQB"",1,0)"
^XMB(3.9,39,2,106,0)="GMRV*5.0*3^1"
^XMB(3.9,39,2,107,0)="""BLD"",6167,""REQB"",""B"",""GMRV*5.0*3"",1)"
^XMB(3.9,39,2,108,0)=""
^XMB(3.9,39,2,109,0)="""INIT"")"
^XMB(3.9,39,2,110,0)="GMV18PST"
^XMB(3.9,39,2,111,0)="""MBREQ"")"
^XMB(3.9,39,2,112,0)="0"
^XMB(3.9,39,2,113,0)="""PKG"",44,-1)"
^XMB(3.9,39,2,114,0)="1^1"
^XMB(3.9,39,2,115,0)="""PKG"",44,0)"
^XMB(3.9,39,2,116,0)="GEN. MED. REC. - VITALS^GMRV^Vitals/Measurements Module of General Medical Record."
^XMB(3.9,39,2,117,0)="""PKG"",44,20,0)"
^XMB(3.9,39,2,118,0)="^9.402P^^"
^XMB(3.9,39,2,119,0)="""PKG"",44,22,0)"
^XMB(3.9,39,2,120,0)="^9.49I^1^1"
^XMB(3.9,39,2,121,0)="""PKG"",44,22,1,0)"
^XMB(3.9,39,2,122,0)="5.0^3021029"
^XMB(3.9,39,2,123,0)="""PKG"",44,22,1,""PAH"",1,0)"
^XMB(3.9,39,2,124,0)="18^3060720"
^XMB(3.9,39,2,125,0)="""PKG"",44,22,1,""PAH"",1,1,0)"
^XMB(3.9,39,2,126,0)="^^1^1^3060720"
^XMB(3.9,39,2,127,0)="""PKG"",44,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,39,2,128,0)="VITALS GUI ERROR UPON CVP DATA ENTRY & GRID/GRAPH BLANKING ISSUE"
^XMB(3.9,39,2,129,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,39,2,130,0)="Y"
^XMB(3.9,39,2,131,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,39,2,132,0)="^D REP^XPDH"
^XMB(3.9,39,2,133,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,39,2,134,0)="Shall I write over your |FLAG| File"
^XMB(3.9,39,2,135,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,39,2,136,0)="YES"
^XMB(3.9,39,2,137,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,39,2,138,0)="D XPF1^XPDIQ"
^XMB(3.9,39,2,139,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,39,2,140,0)="Y"
^XMB(3.9,39,2,141,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,39,2,142,0)="^D DTA^XPDH"
^XMB(3.9,39,2,143,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,39,2,144,0)="Want my data |FLAG| yours"
^XMB(3.9,39,2,145,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,39,2,146,0)="YES"
^XMB(3.9,39,2,147,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,39,2,148,0)="D XPF2^XPDIQ"
^XMB(3.9,39,2,149,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,39,2,150,0)="YO"
^XMB(3.9,39,2,151,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,39,2,152,0)="^D INHIBIT^XPDH"
^XMB(3.9,39,2,153,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,39,2,154,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,39,2,155,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,39,2,156,0)="YES"
^XMB(3.9,39,2,157,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,39,2,158,0)="D XPI1^XPDIQ"
^XMB(3.9,39,2,159,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,39,2,160,0)="PO^VA(200,:EM"
^XMB(3.9,39,2,161,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,39,2,162,0)="^D MG^XPDH"
^XMB(3.9,39,2,163,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,39,2,164,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,39,2,165,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,39,2,166,0)=""
^XMB(3.9,39,2,167,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,39,2,168,0)="D XPM1^XPDIQ"
^XMB(3.9,39,2,169,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,39,2,170,0)="Y"
^XMB(3.9,39,2,171,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,39,2,172,0)="^D MENU^XPDH"
^XMB(3.9,39,2,173,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,39,2,174,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,39,2,175,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,39,2,176,0)="YES"
^XMB(3.9,39,2,177,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,39,2,178,0)="D XPO1^XPDIQ"
^XMB(3.9,39,2,179,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,39,2,180,0)="Y"
^XMB(3.9,39,2,181,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,39,2,182,0)="^D OPT^XPDH"
^XMB(3.9,39,2,183,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,39,2,184,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,39,2,185,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,39,2,186,0)="YES"
^XMB(3.9,39,2,187,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,39,2,188,0)="D XPZ1^XPDIQ"
^XMB(3.9,39,2,189,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,39,2,190,0)="Y"
^XMB(3.9,39,2,191,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,39,2,192,0)="^D RTN^XPDH"
^XMB(3.9,39,2,193,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,39,2,194,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,39,2,195,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,39,2,196,0)="NO"
^XMB(3.9,39,2,197,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,39,2,198,0)="D XPZ2^XPDIQ"
^XMB(3.9,39,2,199,0)="""RTN"")"
^XMB(3.9,39,2,200,0)="1"
^XMB(3.9,39,2,201,0)="""RTN"",""GMV18PST"")"
^XMB(3.9,39,2,202,0)="0^^B939298^n/a"
^XMB(3.9,39,2,203,0)="""RTN"",""GMV18PST"",1,0)"
^XMB(3.9,39,2,204,0)="GMV18PST ;HOIFO/KAM-POST INSTALLATION FOR GMRV*5*18 ;5/16/06 1:35pm"
^XMB(3.9,39,2,205,0)="""RTN"",""GMV18PST"",2,0)"
^XMB(3.9,39,2,206,0)=" ;;5.0;GEN. MED. REC. - VITALS;**18**;Oct 31, 2002;Build 7"
^XMB(3.9,39,2,207,0)="""RTN"",""GMV18PST"",3,0)"
^XMB(3.9,39,2,208,0)=" ;"
^XMB(3.9,39,2,209,0)="""RTN"",""GMV18PST"",4,0)"
^XMB(3.9,39,2,210,0)=" ;"
^XMB(3.9,39,2,211,0)="""RTN"",""GMV18PST"",5,0)"
^XMB(3.9,39,2,212,0)="POST ; New private variables"
^XMB(3.9,39,2,213,0)="""RTN"",""GMV18PST"",6,0)"
^XMB(3.9,39,2,214,0)=" N GMV,GMVGUI,GMVLST"
^XMB(3.9,39,2,215,0)="""RTN"",""GMV18PST"",7,0)"
^XMB(3.9,39,2,216,0)=" ; Announce my intentions"
^XMB(3.9,39,2,217,0)="""RTN"",""GMV18PST"",8,0)"
^XMB(3.9,39,2,218,0)=" D BMES^XPDUTL(""Updating system parameters."")"
^XMB(3.9,39,2,219,0)="""RTN"",""GMV18PST"",9,0)"
^XMB(3.9,39,2,220,0)=" ; Set current client version"
^XMB(3.9,39,2,221,0)="""RTN"",""GMV18PST"",10,0)"
^XMB(3.9,39,2,222,0)=" S GMVGUI=""5.0.18.1"""
^XMB(3.9,39,2,223,0)="""RTN"",""GMV18PST"",11,0)"
^XMB(3.9,39,2,224,0)=" ; Deactivate all previous versions from XPAR"
^XMB(3.9,39,2,225,0)="""RTN"",""GMV18PST"",12,0)"
^XMB(3.9,39,2,226,0)=" D GETLST^XPAR(.GMVLST,""SYS"",""GMV GUI VERSION"")"
^XMB(3.9,39,2,227,0)="""RTN"",""GMV18PST"",13,0)"
^XMB(3.9,39,2,228,0)=" F GMV=0:0 S GMV=$O(GMVLST(GMV)) Q:'GMV  D"
^XMB(3.9,39,2,229,0)="""RTN"",""GMV18PST"",14,0)"
^XMB(3.9,39,2,230,0)=" .D EN^XPAR(""SYS"",""GMV GUI VERSION"",$P(GMVLST(GMV),""^"",1),0)"
^XMB(3.9,39,2,231,0)="""RTN"",""GMV18PST"",15,0)"
^XMB(3.9,39,2,232,0)=" ; Add and/or activate current client versions"
^XMB(3.9,39,2,233,0)="""RTN"",""GMV18PST"",16,0)"
^XMB(3.9,39,2,234,0)=" D EN^XPAR(""SYS"",""GMV GUI VERSION"",""VITALS.EXE:""_GMVGUI,1)"
^XMB(3.9,39,2,235,0)="""RTN"",""GMV18PST"",17,0)"
^XMB(3.9,39,2,236,0)=" D EN^XPAR(""SYS"",""GMV GUI VERSION"",""VITALSMANAGER.EXE:""_GMVGUI,1)"
^XMB(3.9,39,2,237,0)="""RTN"",""GMV18PST"",18,0)"
^XMB(3.9,39,2,238,0)=" Q"
^XMB(3.9,39,2,239,0)="""VER"")"
^XMB(3.9,39,2,240,0)="8.0^22.0"
^XMB(3.9,39,2,241,0)="""BLD"",6167,6)"
^XMB(3.9,39,2,242,0)="^12"
^XMB(3.9,39,2,243,0)="$END KID GMRV*5.0*18"
^XMB(3.9,39,6,0)="^3.911A^2^2"
^XMB(3.9,39,6,1,0)="POSTMASTER"
^XMB(3.9,39,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,39,6,"B","POSTMASTER",1)=""
^XMB(3.9,39,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,40,0)="HL-1P6_SEQ-100_PAT-118.KID^.5^3061008.015734^^^^K"
^XMB(3.9,40,.6)="3061008"
^XMB(3.9,40,1,0)="^3.91A^2^2"
^XMB(3.9,40,1,1,0)=".5^0^3061008.015734^^^^^^^3061008.015734"
^XMB(3.9,40,1,2,0)="1^0^3061008.023153^^^^^^^3061008.023153"
^XMB(3.9,40,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,40,1,"C",.5,1)=""
^XMB(3.9,40,1,"C",1,2)=""
^XMB(3.9,40,2,0)="^^1081^1081^3061008"
^XMB(3.9,40,2,1,0)="$TXT Released HL*1.6*118 SEQ #100"
^XMB(3.9,40,2,2,0)="Extracted from mail message"
^XMB(3.9,40,2,3,0)="$END TXT"
^XMB(3.9,40,2,4,0)="$KID HL*1.6*118"
^XMB(3.9,40,2,5,0)="**INSTALL NAME**"
^XMB(3.9,40,2,6,0)="HL*1.6*118"
^XMB(3.9,40,2,7,0)="""BLD"",828,0)"
^XMB(3.9,40,2,8,0)="HL*1.6*118^HEALTH LEVEL SEVEN^0^3050805^y"
^XMB(3.9,40,2,9,0)="""BLD"",828,1,0)"
^XMB(3.9,40,2,10,0)="^^1^1^3040701^"
^XMB(3.9,40,2,11,0)="""BLD"",828,1,1,0)"
^XMB(3.9,40,2,12,0)="HL7 parsing utilities."
^XMB(3.9,40,2,13,0)="""BLD"",828,4,0)"
^XMB(3.9,40,2,14,0)="^9.64PA^^"
^XMB(3.9,40,2,15,0)="""BLD"",828,""KRN"",0)"
^XMB(3.9,40,2,16,0)="^9.67PA^8989.52^19"
^XMB(3.9,40,2,17,0)="""BLD"",828,""KRN"",.4,0)"
^XMB(3.9,40,2,18,0)=".4"
^XMB(3.9,40,2,19,0)="""BLD"",828,""KRN"",.401,0)"
^XMB(3.9,40,2,20,0)=".401"
^XMB(3.9,40,2,21,0)="""BLD"",828,""KRN"",.402,0)"
^XMB(3.9,40,2,22,0)=".402"
^XMB(3.9,40,2,23,0)="""BLD"",828,""KRN"",.403,0)"
^XMB(3.9,40,2,24,0)=".403"
^XMB(3.9,40,2,25,0)="""BLD"",828,""KRN"",.5,0)"
^XMB(3.9,40,2,26,0)=".5"
^XMB(3.9,40,2,27,0)="""BLD"",828,""KRN"",.84,0)"
^XMB(3.9,40,2,28,0)=".84"
^XMB(3.9,40,2,29,0)="""BLD"",828,""KRN"",3.6,0)"
^XMB(3.9,40,2,30,0)="3.6"
^XMB(3.9,40,2,31,0)="""BLD"",828,""KRN"",3.8,0)"
^XMB(3.9,40,2,32,0)="3.8"
^XMB(3.9,40,2,33,0)="""BLD"",828,""KRN"",9.2,0)"
^XMB(3.9,40,2,34,0)="9.2"
^XMB(3.9,40,2,35,0)="""BLD"",828,""KRN"",9.8,0)"
^XMB(3.9,40,2,36,0)="9.8"
^XMB(3.9,40,2,37,0)="""BLD"",828,""KRN"",9.8,""NM"",0)"
^XMB(3.9,40,2,38,0)="^9.68A^4^4"
^XMB(3.9,40,2,39,0)="""BLD"",828,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,40,2,40,0)="HLPRS^^0^18693372"
^XMB(3.9,40,2,41,0)="""BLD"",828,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,40,2,42,0)="HLMSG^^0^9665720"
^XMB(3.9,40,2,43,0)="""BLD"",828,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,40,2,44,0)="HLOPRS^^0^30015761"
^XMB(3.9,40,2,45,0)="""BLD"",828,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,40,2,46,0)="HLOPRS1^^0^13347617"
^XMB(3.9,40,2,47,0)="""BLD"",828,""KRN"",9.8,""NM"",""B"",""HLMSG"",2)"
^XMB(3.9,40,2,48,0)=""
^XMB(3.9,40,2,49,0)="""BLD"",828,""KRN"",9.8,""NM"",""B"",""HLOPRS"",3)"
^XMB(3.9,40,2,50,0)=""
^XMB(3.9,40,2,51,0)="""BLD"",828,""KRN"",9.8,""NM"",""B"",""HLOPRS1"",4)"
^XMB(3.9,40,2,52,0)=""
^XMB(3.9,40,2,53,0)="""BLD"",828,""KRN"",9.8,""NM"",""B"",""HLPRS"",1)"
^XMB(3.9,40,2,54,0)=""
^XMB(3.9,40,2,55,0)="""BLD"",828,""KRN"",19,0)"
^XMB(3.9,40,2,56,0)="19"
^XMB(3.9,40,2,57,0)="""BLD"",828,""KRN"",19.1,0)"
^XMB(3.9,40,2,58,0)="19.1"
^XMB(3.9,40,2,59,0)="""BLD"",828,""KRN"",101,0)"
^XMB(3.9,40,2,60,0)="101"
^XMB(3.9,40,2,61,0)="""BLD"",828,""KRN"",409.61,0)"
^XMB(3.9,40,2,62,0)="409.61"
^XMB(3.9,40,2,63,0)="""BLD"",828,""KRN"",771,0)"
^XMB(3.9,40,2,64,0)="771"
^XMB(3.9,40,2,65,0)="""BLD"",828,""KRN"",870,0)"
^XMB(3.9,40,2,66,0)="870"
^XMB(3.9,40,2,67,0)="""BLD"",828,""KRN"",8989.51,0)"
^XMB(3.9,40,2,68,0)="8989.51"
^XMB(3.9,40,2,69,0)="""BLD"",828,""KRN"",8989.52,0)"
^XMB(3.9,40,2,70,0)="8989.52"
^XMB(3.9,40,2,71,0)="""BLD"",828,""KRN"",8994,0)"
^XMB(3.9,40,2,72,0)="8994"
^XMB(3.9,40,2,73,0)="""BLD"",828,""KRN"",""B"",.4,.4)"
^XMB(3.9,40,2,74,0)=""
^XMB(3.9,40,2,75,0)="""BLD"",828,""KRN"",""B"",.401,.401)"
^XMB(3.9,40,2,76,0)=""
^XMB(3.9,40,2,77,0)="""BLD"",828,""KRN"",""B"",.402,.402)"
^XMB(3.9,40,2,78,0)=""
^XMB(3.9,40,2,79,0)="""BLD"",828,""KRN"",""B"",.403,.403)"
^XMB(3.9,40,2,80,0)=""
^XMB(3.9,40,2,81,0)="""BLD"",828,""KRN"",""B"",.5,.5)"
^XMB(3.9,40,2,82,0)=""
^XMB(3.9,40,2,83,0)="""BLD"",828,""KRN"",""B"",.84,.84)"
^XMB(3.9,40,2,84,0)=""
^XMB(3.9,40,2,85,0)="""BLD"",828,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,40,2,86,0)=""
^XMB(3.9,40,2,87,0)="""BLD"",828,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,40,2,88,0)=""
^XMB(3.9,40,2,89,0)="""BLD"",828,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,40,2,90,0)=""
^XMB(3.9,40,2,91,0)="""BLD"",828,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,40,2,92,0)=""
^XMB(3.9,40,2,93,0)="""BLD"",828,""KRN"",""B"",19,19)"
^XMB(3.9,40,2,94,0)=""
^XMB(3.9,40,2,95,0)="""BLD"",828,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,40,2,96,0)=""
^XMB(3.9,40,2,97,0)="""BLD"",828,""KRN"",""B"",101,101)"
^XMB(3.9,40,2,98,0)=""
^XMB(3.9,40,2,99,0)="""BLD"",828,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,40,2,100,0)=""
^XMB(3.9,40,2,101,0)="""BLD"",828,""KRN"",""B"",771,771)"
^XMB(3.9,40,2,102,0)=""
^XMB(3.9,40,2,103,0)="""BLD"",828,""KRN"",""B"",870,870)"
^XMB(3.9,40,2,104,0)=""
^XMB(3.9,40,2,105,0)="""BLD"",828,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,40,2,106,0)=""
^XMB(3.9,40,2,107,0)="""BLD"",828,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,40,2,108,0)=""
^XMB(3.9,40,2,109,0)="""BLD"",828,""KRN"",""B"",8994,8994)"
^XMB(3.9,40,2,110,0)=""
^XMB(3.9,40,2,111,0)="""MBREQ"")"
^XMB(3.9,40,2,112,0)="0"
^XMB(3.9,40,2,113,0)="""PKG"",9,-1)"
^XMB(3.9,40,2,114,0)="1^1"
^XMB(3.9,40,2,115,0)="""PKG"",9,0)"
^XMB(3.9,40,2,116,0)="HEALTH LEVEL SEVEN^HL^DHCP IMPLEMENTATION OF HEALTH LEVEL SEVEN^"
^XMB(3.9,40,2,117,0)="""PKG"",9,20,0)"
^XMB(3.9,40,2,118,0)="^9.402P^^"
^XMB(3.9,40,2,119,0)="""PKG"",9,22,0)"
^XMB(3.9,40,2,120,0)="^9.49I^1^1"
^XMB(3.9,40,2,121,0)="""PKG"",9,22,1,0)"
^XMB(3.9,40,2,122,0)="1.6^2980130^2980130^6"
^XMB(3.9,40,2,123,0)="""PKG"",9,22,1,""PAH"",1,0)"
^XMB(3.9,40,2,124,0)="118^3050805"
^XMB(3.9,40,2,125,0)="""PKG"",9,22,1,""PAH"",1,1,0)"
^XMB(3.9,40,2,126,0)="^^1^1^3050805"
^XMB(3.9,40,2,127,0)="""PKG"",9,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,40,2,128,0)="HL7 parsing utilities."
^XMB(3.9,40,2,129,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,40,2,130,0)="Y"
^XMB(3.9,40,2,131,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,40,2,132,0)="^D REP^XPDH"
^XMB(3.9,40,2,133,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,40,2,134,0)="Shall I write over your |FLAG| File"
^XMB(3.9,40,2,135,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,40,2,136,0)="YES"
^XMB(3.9,40,2,137,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,40,2,138,0)="D XPF1^XPDIQ"
^XMB(3.9,40,2,139,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,40,2,140,0)="Y"
^XMB(3.9,40,2,141,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,40,2,142,0)="^D DTA^XPDH"
^XMB(3.9,40,2,143,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,40,2,144,0)="Want my data |FLAG| yours"
^XMB(3.9,40,2,145,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,40,2,146,0)="YES"
^XMB(3.9,40,2,147,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,40,2,148,0)="D XPF2^XPDIQ"
^XMB(3.9,40,2,149,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,40,2,150,0)="YO"
^XMB(3.9,40,2,151,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,40,2,152,0)="^D INHIBIT^XPDH"
^XMB(3.9,40,2,153,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,40,2,154,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,40,2,155,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,40,2,156,0)="YES"
^XMB(3.9,40,2,157,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,40,2,158,0)="D XPI1^XPDIQ"
^XMB(3.9,40,2,159,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,40,2,160,0)="PO^VA(200,:EM"
^XMB(3.9,40,2,161,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,40,2,162,0)="^D MG^XPDH"
^XMB(3.9,40,2,163,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,40,2,164,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,40,2,165,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,40,2,166,0)=""
^XMB(3.9,40,2,167,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,40,2,168,0)="D XPM1^XPDIQ"
^XMB(3.9,40,2,169,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,40,2,170,0)="Y"
^XMB(3.9,40,2,171,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,40,2,172,0)="^D MENU^XPDH"
^XMB(3.9,40,2,173,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,40,2,174,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,40,2,175,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,40,2,176,0)="YES"
^XMB(3.9,40,2,177,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,40,2,178,0)="D XPO1^XPDIQ"
^XMB(3.9,40,2,179,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,40,2,180,0)="Y"
^XMB(3.9,40,2,181,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,40,2,182,0)="^D OPT^XPDH"
^XMB(3.9,40,2,183,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,40,2,184,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,40,2,185,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,40,2,186,0)="YES"
^XMB(3.9,40,2,187,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,40,2,188,0)="D XPZ1^XPDIQ"
^XMB(3.9,40,2,189,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,40,2,190,0)="Y"
^XMB(3.9,40,2,191,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,40,2,192,0)="^D RTN^XPDH"
^XMB(3.9,40,2,193,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,40,2,194,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,40,2,195,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,40,2,196,0)="NO"
^XMB(3.9,40,2,197,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,40,2,198,0)="D XPZ2^XPDIQ"
^XMB(3.9,40,2,199,0)="""RTN"")"
^XMB(3.9,40,2,200,0)="4"
^XMB(3.9,40,2,201,0)="""RTN"",""HLMSG"")"
^XMB(3.9,40,2,202,0)="0^2^B9665720"
^XMB(3.9,40,2,203,0)="""RTN"",""HLMSG"",1,0)"
^XMB(3.9,40,2,204,0)="HLMSG ;ALB/CJM-HL7 - APIs for files 772/773 ;02/04/2004"
^XMB(3.9,40,2,205,0)="""RTN"",""HLMSG"",2,0)"
^XMB(3.9,40,2,206,0)=" ;;1.6;HEALTH LEVEL SEVEN;**118**;Oct 13, 1995"
^XMB(3.9,40,2,207,0)="""RTN"",""HLMSG"",3,0)"
^XMB(3.9,40,2,208,0)=" ;"
^XMB(3.9,40,2,209,0)="""RTN"",""HLMSG"",4,0)"
^XMB(3.9,40,2,210,0)="GETMSG(IEN,MSG) ;"
^XMB(3.9,40,2,211,0)="""RTN"",""HLMSG"",5,0)"
^XMB(3.9,40,2,212,0)=" ;Description: given the message ien=MSGIEN (required), it returns the MSG array containing information about the message, defined below."
^XMB(3.9,40,2,213,0)="""RTN"",""HLMSG"",6,0)"
^XMB(3.9,40,2,214,0)=" ;Input:"
^XMB(3.9,40,2,215,0)="""RTN"",""HLMSG"",7,0)"
^XMB(3.9,40,2,216,0)=" ;  IEN - the ien of the message in file 773"
^XMB(3.9,40,2,217,0)="""RTN"",""HLMSG"",8,0)"
^XMB(3.9,40,2,218,0)=" ;Output:"
^XMB(3.9,40,2,219,0)="""RTN"",""HLMSG"",9,0)"
^XMB(3.9,40,2,220,0)=" ;  Function returns 1 on success, 0 on failure"
^XMB(3.9,40,2,221,0)="""RTN"",""HLMSG"",10,0)"
^XMB(3.9,40,2,222,0)=" ;  MSG (pass by reference, required) These are the subscripts returned:"
^XMB(3.9,40,2,223,0)="""RTN"",""HLMSG"",11,0)"
^XMB(3.9,40,2,224,0)=" ;    ""BATCH""  = 1 if this is a batch message, 0  if not"
^XMB(3.9,40,2,225,0)="""RTN"",""HLMSG"",12,0)"
^XMB(3.9,40,2,226,0)=" ;       ""CURRENT MESSAGE"" - defined only for batch messages -  a counter used during building and parsing messages to indicate the current message.  It will be set to 0 initially."
^XMB(3.9,40,2,227,0)="""RTN"",""HLMSG"",13,0)"
^XMB(3.9,40,2,228,0)=" ;  ""BODY"" - ptr to file 772 which contains the body of the message."
^XMB(3.9,40,2,229,0)="""RTN"",""HLMSG"",14,0)"
^XMB(3.9,40,2,230,0)=" ;  ""CURRENT LINE"" -  a counter used during building and parsing of"
^XMB(3.9,40,2,231,0)="""RTN"",""HLMSG"",15,0)"
^XMB(3.9,40,2,232,0)=" ;     messages to indicate the current line within the message. For"
^XMB(3.9,40,2,233,0)="""RTN"",""HLMSG"",16,0)"
^XMB(3.9,40,2,234,0)=" ;     batch messages where each message within the batch is stored"
^XMB(3.9,40,2,235,0)="""RTN"",""HLMSG"",17,0)"
^XMB(3.9,40,2,236,0)=" ;     separately, this field indicates the position within the current"
^XMB(3.9,40,2,237,0)="""RTN"",""HLMSG"",18,0)"
^XMB(3.9,40,2,238,0)=" ;     individual message"
^XMB(3.9,40,2,239,0)="""RTN"",""HLMSG"",19,0)"
^XMB(3.9,40,2,240,0)=" ;  ""HDR"" - the header segment, NOT parsed, as a sequence of lines HDR(i)"
^XMB(3.9,40,2,241,0)="""RTN"",""HLMSG"",20,0)"
^XMB(3.9,40,2,242,0)=" ;  ""IEN"" - ien, file 773"
^XMB(3.9,40,2,243,0)="""RTN"",""HLMSG"",21,0)"
^XMB(3.9,40,2,244,0)=" ;"
^XMB(3.9,40,2,245,0)="""RTN"",""HLMSG"",22,0)"
^XMB(3.9,40,2,246,0)=" K MSG"
^XMB(3.9,40,2,247,0)="""RTN"",""HLMSG"",23,0)"
^XMB(3.9,40,2,248,0)=" Q:'$G(IEN) 0"
^XMB(3.9,40,2,249,0)="""RTN"",""HLMSG"",24,0)"
^XMB(3.9,40,2,250,0)=" N I"
^XMB(3.9,40,2,251,0)="""RTN"",""HLMSG"",25,0)"
^XMB(3.9,40,2,252,0)=" S MSG(""IEN"")=IEN"
^XMB(3.9,40,2,253,0)="""RTN"",""HLMSG"",26,0)"
^XMB(3.9,40,2,254,0)=" S MSG(""BODY"")=$P($G(^HLMA(IEN,0)),""^"")"
^XMB(3.9,40,2,255,0)="""RTN"",""HLMSG"",27,0)"
^XMB(3.9,40,2,256,0)=" Q:'MSG(""BODY"") 0"
^XMB(3.9,40,2,257,0)="""RTN"",""HLMSG"",28,0)"
^XMB(3.9,40,2,258,0)=" ;"
^XMB(3.9,40,2,259,0)="""RTN"",""HLMSG"",29,0)"
^XMB(3.9,40,2,260,0)=" S MSG(""BATCH"")=$S($P(^HL(772,MSG(""BODY""),0),""^"",14)=""B"":1,1:0)"
^XMB(3.9,40,2,261,0)="""RTN"",""HLMSG"",30,0)"
^XMB(3.9,40,2,262,0)=" I MSG(""BATCH"") S MSG(""BATCH"",""CURRENT MESSAGE"")=0"
^XMB(3.9,40,2,263,0)="""RTN"",""HLMSG"",31,0)"
^XMB(3.9,40,2,264,0)=" S MSG(""CURRENT LINE"")=0"
^XMB(3.9,40,2,265,0)="""RTN"",""HLMSG"",32,0)"
^XMB(3.9,40,2,266,0)=" S I=0"
^XMB(3.9,40,2,267,0)="""RTN"",""HLMSG"",33,0)"
^XMB(3.9,40,2,268,0)=" F  S I=$O(^HLMA(IEN,""MSH"",I)) Q:'I  S MSG(""HDR"",I)=$G(^HLMA(IEN,""MSH"",I,0))"
^XMB(3.9,40,2,269,0)="""RTN"",""HLMSG"",34,0)"
^XMB(3.9,40,2,270,0)=" Q 1"
^XMB(3.9,40,2,271,0)="""RTN"",""HLMSG"",35,0)"
^XMB(3.9,40,2,272,0)=" ;"
^XMB(3.9,40,2,273,0)="""RTN"",""HLMSG"",36,0)"
^XMB(3.9,40,2,274,0)="NEXTSEG(MSG,SEG) ;"
^XMB(3.9,40,2,275,0)="""RTN"",""HLMSG"",37,0)"
^XMB(3.9,40,2,276,0)=" ;Description:  Returns the next segment as a set of lines stored in SEG."
^XMB(3.9,40,2,277,0)="""RTN"",""HLMSG"",38,0)"
^XMB(3.9,40,2,278,0)=" ;Input:"
^XMB(3.9,40,2,279,0)="""RTN"",""HLMSG"",39,0)"
^XMB(3.9,40,2,280,0)=" ;  MSG (pass by reference, required)"
^XMB(3.9,40,2,281,0)="""RTN"",""HLMSG"",40,0)"
^XMB(3.9,40,2,282,0)=" ;Output:"
^XMB(3.9,40,2,283,0)="""RTN"",""HLMSG"",41,0)"
^XMB(3.9,40,2,284,0)=" ;  Function returns 1 on success, 0 on failure (no more segments)"
^XMB(3.9,40,2,285,0)="""RTN"",""HLMSG"",42,0)"
^XMB(3.9,40,2,286,0)=" ;  SEG (pass by reference, required)"
^XMB(3.9,40,2,287,0)="""RTN"",""HLMSG"",43,0)"
^XMB(3.9,40,2,288,0)=" ;"
^XMB(3.9,40,2,289,0)="""RTN"",""HLMSG"",44,0)"
^XMB(3.9,40,2,290,0)=" K SEG"
^XMB(3.9,40,2,291,0)="""RTN"",""HLMSG"",45,0)"
^XMB(3.9,40,2,292,0)=" Q:MSG(""CURRENT LINE"")=-1 0"
^XMB(3.9,40,2,293,0)="""RTN"",""HLMSG"",46,0)"
^XMB(3.9,40,2,294,0)=" I 'MSG(""BATCH"") D"
^XMB(3.9,40,2,295,0)="""RTN"",""HLMSG"",47,0)"
^XMB(3.9,40,2,296,0)=" .N I,J"
^XMB(3.9,40,2,297,0)="""RTN"",""HLMSG"",48,0)"
^XMB(3.9,40,2,298,0)=" .S J=1,I=MSG(""CURRENT LINE"")"
^XMB(3.9,40,2,299,0)="""RTN"",""HLMSG"",49,0)"
^XMB(3.9,40,2,300,0)=" .F  S I=$O(^HL(772,MSG(""BODY""),""IN"",I)) Q:'I  Q:$G(^HL(772,MSG(""BODY""),""IN"",I,0))=""""  S SEG(J)=^HL(772,MSG(""BODY""),""IN"",I,0),J=J+1"
^XMB(3.9,40,2,301,0)="""RTN"",""HLMSG"",50,0)"
^XMB(3.9,40,2,302,0)=" .I 'I S MSG(""CURRENT LINE"")=-1"
^XMB(3.9,40,2,303,0)="""RTN"",""HLMSG"",51,0)"
^XMB(3.9,40,2,304,0)=" .I I S MSG(""CURRENT LINE"")=I"
^XMB(3.9,40,2,305,0)="""RTN"",""HLMSG"",52,0)"
^XMB(3.9,40,2,306,0)=" I MSG(""BATCH"") D"
^XMB(3.9,40,2,307,0)="""RTN"",""HLMSG"",53,0)"
^XMB(3.9,40,2,308,0)=" .N I,J"
^XMB(3.9,40,2,309,0)="""RTN"",""HLMSG"",54,0)"
^XMB(3.9,40,2,310,0)=" .S I=MSG(""CURRENT LINE"")"
^XMB(3.9,40,2,311,0)="""RTN"",""HLMSG"",55,0)"
^XMB(3.9,40,2,312,0)=" .F  S I=$O(^HL(772,MSG(""BODY""),""IN"",I)) Q:'I  I $G(^HL(772,MSG(""BODY""),""IN"",I,0))'="""" D  Q"
^XMB(3.9,40,2,313,0)="""RTN"",""HLMSG"",56,0)"
^XMB(3.9,40,2,314,0)=" ..Q:$E($G(^HL(772,MSG(""BODY""),""IN"",I,0)),1,3)=""MSH"""
^XMB(3.9,40,2,315,0)="""RTN"",""HLMSG"",57,0)"
^XMB(3.9,40,2,316,0)=" ..I $E($G(^HL(772,MSG(""BODY""),""IN"",I,0)),1,3)=""BTS"" S MSG(""CURRENT LINE"")=-1,MSG(""BATCH"",""CURRENT MESSAGE"")=-1 Q"
^XMB(3.9,40,2,317,0)="""RTN"",""HLMSG"",58,0)"
^XMB(3.9,40,2,318,0)=" ..S SEG(1)=$G(^HL(772,MSG(""BODY""),""IN"",I,0))"
^XMB(3.9,40,2,319,0)="""RTN"",""HLMSG"",59,0)"
^XMB(3.9,40,2,320,0)=" ..S J=2"
^XMB(3.9,40,2,321,0)="""RTN"",""HLMSG"",60,0)"
^XMB(3.9,40,2,322,0)=" ..F  S I=$O(^HL(772,MSG(""BODY""),""IN"",I)) Q:'I  Q:$G(^HL(772,MSG(""BODY""),""IN"",I,0))=""""  S SEG(J)=^HL(772,MSG(""BODY""),""IN"",I,0),J=J+1"
^XMB(3.9,40,2,323,0)="""RTN"",""HLMSG"",61,0)"
^XMB(3.9,40,2,324,0)=" .I 'I S MSG(""CURRENT LINE"")=-1"
^XMB(3.9,40,2,325,0)="""RTN"",""HLMSG"",62,0)"
^XMB(3.9,40,2,326,0)=" .I I S MSG(""CURRENT LINE"")=I-1"
^XMB(3.9,40,2,327,0)="""RTN"",""HLMSG"",63,0)"
^XMB(3.9,40,2,328,0)=" Q $S($D(SEG):1,1:0)"
^XMB(3.9,40,2,329,0)="""RTN"",""HLMSG"",64,0)"
^XMB(3.9,40,2,330,0)=" ;"
^XMB(3.9,40,2,331,0)="""RTN"",""HLMSG"",65,0)"
^XMB(3.9,40,2,332,0)="NEXTMSG(MSG,HDR) ;"
^XMB(3.9,40,2,333,0)="""RTN"",""HLMSG"",66,0)"
^XMB(3.9,40,2,334,0)=" ;Advances to the next message in the batch"
^XMB(3.9,40,2,335,0)="""RTN"",""HLMSG"",67,0)"
^XMB(3.9,40,2,336,0)=" ;Input:"
^XMB(3.9,40,2,337,0)="""RTN"",""HLMSG"",68,0)"
^XMB(3.9,40,2,338,0)=" ;  MSG (pass by reference, required) - defined by $$GETMSG()"
^XMB(3.9,40,2,339,0)="""RTN"",""HLMSG"",69,0)"
^XMB(3.9,40,2,340,0)=" ;Output:"
^XMB(3.9,40,2,341,0)="""RTN"",""HLMSG"",70,0)"
^XMB(3.9,40,2,342,0)=" ;  Function returns 1 on success, 0 if no more messages"
^XMB(3.9,40,2,343,0)="""RTN"",""HLMSG"",71,0)"
^XMB(3.9,40,2,344,0)=" ;  MSH - updated with current position in the message"
^XMB(3.9,40,2,345,0)="""RTN"",""HLMSG"",72,0)"
^XMB(3.9,40,2,346,0)=" ;  HDR (pass by reference, required) returns the header as an array of 2lines HDR(1),HDR(2)"
^XMB(3.9,40,2,347,0)="""RTN"",""HLMSG"",73,0)"
^XMB(3.9,40,2,348,0)=" ;"
^XMB(3.9,40,2,349,0)="""RTN"",""HLMSG"",74,0)"
^XMB(3.9,40,2,350,0)=" K HDR"
^XMB(3.9,40,2,351,0)="""RTN"",""HLMSG"",75,0)"
^XMB(3.9,40,2,352,0)=" N ARY,I,J"
^XMB(3.9,40,2,353,0)="""RTN"",""HLMSG"",76,0)"
^XMB(3.9,40,2,354,0)=" S ARY=""^HL(772,""_MSG(""BODY"")_"",""""IN"""")"""
^XMB(3.9,40,2,355,0)="""RTN"",""HLMSG"",77,0)"
^XMB(3.9,40,2,356,0)=" S I=MSG(""CURRENT LINE"")"
^XMB(3.9,40,2,357,0)="""RTN"",""HLMSG"",78,0)"
^XMB(3.9,40,2,358,0)=" F  S I=$O(@ARY@(I)) Q:'I  D:$G(@ARY@(I,0))'=""""  Q:$D(HDR)  Q:MSG(""CURRENT LINE"")=-1"
^XMB(3.9,40,2,359,0)="""RTN"",""HLMSG"",79,0)"
^XMB(3.9,40,2,360,0)=" .I $E($G(@ARY@(I,0)),1,3)=""BTS"" S MSG(""CURRENT LINE"")=-1,MSG(""BATCH"",""CURRENT MESSAGE"")=-1 Q"
^XMB(3.9,40,2,361,0)="""RTN"",""HLMSG"",80,0)"
^XMB(3.9,40,2,362,0)=" .I $E($G(@ARY@(I,0)),1,3)=""MSH"" D"
^XMB(3.9,40,2,363,0)="""RTN"",""HLMSG"",81,0)"
^XMB(3.9,40,2,364,0)=" ..S J=1"
^XMB(3.9,40,2,365,0)="""RTN"",""HLMSG"",82,0)"
^XMB(3.9,40,2,366,0)=" ..S HDR(J)=$G(@ARY@(I,0)),MSG(""CURRENT LINE"")=I,MSG(""BATCH"",""CURRENT MESSAGE"")=$G(MSG(""BATCH"",""CURRENT MESSAGE""))+1"
^XMB(3.9,40,2,367,0)="""RTN"",""HLMSG"",83,0)"
^XMB(3.9,40,2,368,0)=" ..F  S I=$O(@ARY@(I)) Q:'I  Q:$G(@ARY@(I,0))=""""  S J=J+1,HDR(J)=$G(@ARY@(I,0))"
^XMB(3.9,40,2,369,0)="""RTN"",""HLMSG"",84,0)"
^XMB(3.9,40,2,370,0)=" .E  D"
^XMB(3.9,40,2,371,0)="""RTN"",""HLMSG"",85,0)"
^XMB(3.9,40,2,372,0)=" ..F  S I=$O(@ARY@(I)) Q:'I  Q:$G(@ARY@(I,0))="""""
^XMB(3.9,40,2,373,0)="""RTN"",""HLMSG"",86,0)"
^XMB(3.9,40,2,374,0)=" Q $S($D(HDR):1,1:0)"
^XMB(3.9,40,2,375,0)="""RTN"",""HLOPRS"")"
^XMB(3.9,40,2,376,0)="0^3^B30015761"
^XMB(3.9,40,2,377,0)="""RTN"",""HLOPRS"",1,0)"
^XMB(3.9,40,2,378,0)="HLOPRS ;IRMFO-ALB/CJM -RTNs for parsing messages;03/24/2004  14:43"
^XMB(3.9,40,2,379,0)="""RTN"",""HLOPRS"",2,0)"
^XMB(3.9,40,2,380,0)=" ;;1.6;HEALTH LEVEL SEVEN;**118**;Oct 13, 1995"
^XMB(3.9,40,2,381,0)="""RTN"",""HLOPRS"",3,0)"
^XMB(3.9,40,2,382,0)=" ;"
^XMB(3.9,40,2,383,0)="""RTN"",""HLOPRS"",4,0)"
^XMB(3.9,40,2,384,0)="STARTMSG(MSG,IEN,HDR) ;"
^XMB(3.9,40,2,385,0)="""RTN"",""HLOPRS"",5,0)"
^XMB(3.9,40,2,386,0)=" ;Description:  This function begins the parsing of the message, parsing"
^XMB(3.9,40,2,387,0)="""RTN"",""HLOPRS"",6,0)"
^XMB(3.9,40,2,388,0)=" ;the header and returning the individual values in the array HDR()."
^XMB(3.9,40,2,389,0)="""RTN"",""HLOPRS"",7,0)"
^XMB(3.9,40,2,390,0)=" ;Input: "
^XMB(3.9,40,2,391,0)="""RTN"",""HLOPRS"",8,0)"
^XMB(3.9,40,2,392,0)=" ;  IEN - The internal entry number of the message in file 778."
^XMB(3.9,40,2,393,0)="""RTN"",""HLOPRS"",9,0)"
^XMB(3.9,40,2,394,0)=" ;Output:"
^XMB(3.9,40,2,395,0)="""RTN"",""HLOPRS"",10,0)"
^XMB(3.9,40,2,396,0)=" ;  Function returns 1 on success, 0 on failure.  Failure would indicate that the message was not found."
^XMB(3.9,40,2,397,0)="""RTN"",""HLOPRS"",11,0)"
^XMB(3.9,40,2,398,0)=" ;  MSG - (pass by reference, required) This array is used by the HL7 package to track the progress of parsing the message.  The application MUST NOT touch it!"
^XMB(3.9,40,2,399,0)="""RTN"",""HLOPRS"",12,0)"
^XMB(3.9,40,2,400,0)=" ;  HDR (pass by reference, optional)   This array contains the results of parsing the message header."
^XMB(3.9,40,2,401,0)="""RTN"",""HLOPRS"",13,0)"
^XMB(3.9,40,2,402,0)=" K MSG,HDR"
^XMB(3.9,40,2,403,0)="""RTN"",""HLOPRS"",14,0)"
^XMB(3.9,40,2,404,0)=" Q:'$G(IEN) 0"
^XMB(3.9,40,2,405,0)="""RTN"",""HLOPRS"",15,0)"
^XMB(3.9,40,2,406,0)=" Q:'$$GETMSG^HLOMSG(IEN,.MSG) 0"
^XMB(3.9,40,2,407,0)="""RTN"",""HLOPRS"",16,0)"
^XMB(3.9,40,2,408,0)=" M HDR=MSG(""HDR"")"
^XMB(3.9,40,2,409,0)="""RTN"",""HLOPRS"",17,0)"
^XMB(3.9,40,2,410,0)=" Q:'$$PARSEHDR(.HDR) 0"
^XMB(3.9,40,2,411,0)="""RTN"",""HLOPRS"",18,0)"
^XMB(3.9,40,2,412,0)=" M MSG(""HDR"")=HDR"
^XMB(3.9,40,2,413,0)="""RTN"",""HLOPRS"",19,0)"
^XMB(3.9,40,2,414,0)=" Q 1"
^XMB(3.9,40,2,415,0)="""RTN"",""HLOPRS"",20,0)"
^XMB(3.9,40,2,416,0)=" ;"
^XMB(3.9,40,2,417,0)="""RTN"",""HLOPRS"",21,0)"
^XMB(3.9,40,2,418,0)="NEXTSEG(MSG,SEG) ;"
^XMB(3.9,40,2,419,0)="""RTN"",""HLOPRS"",22,0)"
^XMB(3.9,40,2,420,0)=" ;Description:  Advances parsing to the next segment and returns the parsed values from that segment."
^XMB(3.9,40,2,421,0)="""RTN"",""HLOPRS"",23,0)"
^XMB(3.9,40,2,422,0)=" ;Input:"
^XMB(3.9,40,2,423,0)="""RTN"",""HLOPRS"",24,0)"
^XMB(3.9,40,2,424,0)=" ;  MSG - (pass by reference, required) This array is used by the HL7 package to track the current position in the message.  The application MUST NOT touch it!"
^XMB(3.9,40,2,425,0)="""RTN"",""HLOPRS"",25,0)"
^XMB(3.9,40,2,426,0)=" ;Output:"
^XMB(3.9,40,2,427,0)="""RTN"",""HLOPRS"",26,0)"
^XMB(3.9,40,2,428,0)=" ;  Function  returns 1 on success, 0 if there are no more segments in this message.  For batch messages, a return value of 0 does not preclude the possibility that there are additional individual messages within the batch."
^XMB(3.9,40,2,429,0)="""RTN"",""HLOPRS"",27,0)"
^XMB(3.9,40,2,430,0)=" ;  MSG - (pass by reference, required)"
^XMB(3.9,40,2,431,0)="""RTN"",""HLOPRS"",28,0)"
^XMB(3.9,40,2,432,0)=" ;  SEG - (pass by reference, required)  The segment is returned in this array."
^XMB(3.9,40,2,433,0)="""RTN"",""HLOPRS"",29,0)"
^XMB(3.9,40,2,434,0)=" ;"
^XMB(3.9,40,2,435,0)="""RTN"",""HLOPRS"",30,0)"
^XMB(3.9,40,2,436,0)=" N TEMP,CODES"
^XMB(3.9,40,2,437,0)="""RTN"",""HLOPRS"",31,0)"
^XMB(3.9,40,2,438,0)=" K SEG"
^XMB(3.9,40,2,439,0)="""RTN"",""HLOPRS"",32,0)"
^XMB(3.9,40,2,440,0)=" I '$$HLNEXT^HLOMSG(.MSG,.TEMP) Q 0"
^XMB(3.9,40,2,441,0)="""RTN"",""HLOPRS"",33,0)"
^XMB(3.9,40,2,442,0)=" S CODES=MSG(""HDR"",""ENCODING CHARACTERS"")"
^XMB(3.9,40,2,443,0)="""RTN"",""HLOPRS"",34,0)"
^XMB(3.9,40,2,444,0)=" Q $$PARSE^HLOPRS1(MSG(""HDR"",""FIELD SEPARATOR""),$E(CODES,2),$E(CODES,1),$E(CODES,4),$E(CODES,3),.TEMP,.SEG)"
^XMB(3.9,40,2,445,0)="""RTN"",""HLOPRS"",35,0)"
^XMB(3.9,40,2,446,0)=" ;"
^XMB(3.9,40,2,447,0)="""RTN"",""HLOPRS"",36,0)"
^XMB(3.9,40,2,448,0)="NEXTMSG(MSG,MSH) ;"
^XMB(3.9,40,2,449,0)="""RTN"",""HLOPRS"",37,0)"
^XMB(3.9,40,2,450,0)=" ;Description:  Advances to the next message within the batch, with the MSH segment returned."
^XMB(3.9,40,2,451,0)="""RTN"",""HLOPRS"",38,0)"
^XMB(3.9,40,2,452,0)=" ;Input:"
^XMB(3.9,40,2,453,0)="""RTN"",""HLOPRS"",39,0)"
^XMB(3.9,40,2,454,0)=" ; MSG (pass by reference, required) This array is used by the HL7 package to track the current position in the message.  The application MUST NOT touch it!"
^XMB(3.9,40,2,455,0)="""RTN"",""HLOPRS"",40,0)"
^XMB(3.9,40,2,456,0)=" ;OUTPUT:"
^XMB(3.9,40,2,457,0)="""RTN"",""HLOPRS"",41,0)"
^XMB(3.9,40,2,458,0)=" ;  Function returns 1 on success, 0 if there are no more messages"
^XMB(3.9,40,2,459,0)="""RTN"",""HLOPRS"",42,0)"
^XMB(3.9,40,2,460,0)=" ;  MSG - (pass by reference)"
^XMB(3.9,40,2,461,0)="""RTN"",""HLOPRS"",43,0)"
^XMB(3.9,40,2,462,0)=" ;  MSH - (pass by reference, required) Returns the parsed message header"
^XMB(3.9,40,2,463,0)="""RTN"",""HLOPRS"",44,0)"
^XMB(3.9,40,2,464,0)=" ;"
^XMB(3.9,40,2,465,0)="""RTN"",""HLOPRS"",45,0)"
^XMB(3.9,40,2,466,0)=" K MSH"
^XMB(3.9,40,2,467,0)="""RTN"",""HLOPRS"",46,0)"
^XMB(3.9,40,2,468,0)=" N NODE"
^XMB(3.9,40,2,469,0)="""RTN"",""HLOPRS"",47,0)"
^XMB(3.9,40,2,470,0)=" Q:'$$NEXTMSG^HLOMSG(.MSG,.MSH) 0"
^XMB(3.9,40,2,471,0)="""RTN"",""HLOPRS"",48,0)"
^XMB(3.9,40,2,472,0)=" Q:'$$PARSEHDR(.MSH) 0"
^XMB(3.9,40,2,473,0)="""RTN"",""HLOPRS"",49,0)"
^XMB(3.9,40,2,474,0)=" S MSG(""BATCH"",""CURRENT MESSAGE"",""EVENT"")=MSH(""EVENT"")"
^XMB(3.9,40,2,475,0)="""RTN"",""HLOPRS"",50,0)"
^XMB(3.9,40,2,476,0)=" S MSG(""BATCH"",""CURRENT MESSAGE"",""MESSAGE CONTROL ID"")=MSH(""MESSAGE CONTROL ID"")"
^XMB(3.9,40,2,477,0)="""RTN"",""HLOPRS"",51,0)"
^XMB(3.9,40,2,478,0)=" S NODE=$G(^HLB(MSG(""IEN""),3,MSG(""BATCH"",""CURRENT MESSAGE""),0))"
^XMB(3.9,40,2,479,0)="""RTN"",""HLOPRS"",52,0)"
^XMB(3.9,40,2,480,0)=" S MSG(""BATCH"",""CURRENT MESSAGE"",""ACK TO"")=$P(NODE,""^"",3)"
^XMB(3.9,40,2,481,0)="""RTN"",""HLOPRS"",53,0)"
^XMB(3.9,40,2,482,0)=" S MSG(""BATCH"",""CURRENT MESSAGE"",""ACK BY"")=$P(NODE,""^"",4)"
^XMB(3.9,40,2,483,0)="""RTN"",""HLOPRS"",54,0)"
^XMB(3.9,40,2,484,0)=" ;"
^XMB(3.9,40,2,485,0)="""RTN"",""HLOPRS"",55,0)"
^XMB(3.9,40,2,486,0)=" I MSG(""BATCH"",""CURRENT MESSAGE"",""ACK TO"")]"""" S MSG(""BATCH"",""CURRENT MESSAGE"",""ACK TO IEN"")=$$ACKTOIEN^HLOMSG1(MSG(""MESSAGE CONTROL ID""),MSG(""BATCH"",""CURRENT MESSAGE"",""ACK TO""))"
^XMB(3.9,40,2,487,0)="""RTN"",""HLOPRS"",56,0)"
^XMB(3.9,40,2,488,0)=" I MSG(""BATCH"",""CURRENT MESSAGE"",""ACK BY"")]"""" S MSG(""BATCH"",""CURRENT MESSAGE"",""ACK BY IEN"")=$$ACKBYIEN^HLOMSG1(MSG(""MESSAGE CONTROL ID""),MSG(""BATCH"",""CURRENT MESSAGE"",""ACK BY""))"
^XMB(3.9,40,2,489,0)="""RTN"",""HLOPRS"",57,0)"
^XMB(3.9,40,2,490,0)=" ;"
^XMB(3.9,40,2,491,0)="""RTN"",""HLOPRS"",58,0)"
^XMB(3.9,40,2,492,0)=" Q 1"
^XMB(3.9,40,2,493,0)="""RTN"",""HLOPRS"",59,0)"
^XMB(3.9,40,2,494,0)=" ;"
^XMB(3.9,40,2,495,0)="""RTN"",""HLOPRS"",60,0)"
^XMB(3.9,40,2,496,0)="PARSEHDR(HDR) ;"
^XMB(3.9,40,2,497,0)="""RTN"",""HLOPRS"",61,0)"
^XMB(3.9,40,2,498,0)=" ;Parses the segment (HDR, pass by reference) into the HDR() array using meaningful subscripts."
^XMB(3.9,40,2,499,0)="""RTN"",""HLOPRS"",62,0)"
^XMB(3.9,40,2,500,0)=" ;Input:"
^XMB(3.9,40,2,501,0)="""RTN"",""HLOPRS"",63,0)"
^XMB(3.9,40,2,502,0)=" ;  HDR (pass by reference, required) contains the segment in the format HDR(1),HDR(2), etc.."
^XMB(3.9,40,2,503,0)="""RTN"",""HLOPRS"",64,0)"
^XMB(3.9,40,2,504,0)=" ;Output:"
^XMB(3.9,40,2,505,0)="""RTN"",""HLOPRS"",65,0)"
^XMB(3.9,40,2,506,0)=" ;  HDR (pass by reference, required) This array will contain all the individual values.  Also will contain HDR(1) with components 1-6 and HDR(2) with components 1-end"
^XMB(3.9,40,2,507,0)="""RTN"",""HLOPRS"",66,0)"
^XMB(3.9,40,2,508,0)=" ;  Function - returns 1 if the segment is indeed an MSH or BHS segment, 0 otherwise"
^XMB(3.9,40,2,509,0)="""RTN"",""HLOPRS"",67,0)"
^XMB(3.9,40,2,510,0)=" ;"
^XMB(3.9,40,2,511,0)="""RTN"",""HLOPRS"",68,0)"
^XMB(3.9,40,2,512,0)=" N VALUE,FS,CS,REP,SUBCOMP,ESCAPE"
^XMB(3.9,40,2,513,0)="""RTN"",""HLOPRS"",69,0)"
^XMB(3.9,40,2,514,0)=" S VALUE=$E(HDR(1),1,3)"
^XMB(3.9,40,2,515,0)="""RTN"",""HLOPRS"",70,0)"
^XMB(3.9,40,2,516,0)=" I VALUE'=""MSH"",VALUE'=""BHS"" Q 0"
^XMB(3.9,40,2,517,0)="""RTN"",""HLOPRS"",71,0)"
^XMB(3.9,40,2,518,0)=" S HDR(""SEGMENT TYPE"")=VALUE"
^XMB(3.9,40,2,519,0)="""RTN"",""HLOPRS"",72,0)"
^XMB(3.9,40,2,520,0)=" S FS=$E(HDR(1),4)"
^XMB(3.9,40,2,521,0)="""RTN"",""HLOPRS"",73,0)"
^XMB(3.9,40,2,522,0)=" S CS=$E(HDR(1),5)"
^XMB(3.9,40,2,523,0)="""RTN"",""HLOPRS"",74,0)"
^XMB(3.9,40,2,524,0)=" S REP=$E(HDR(1),6)"
^XMB(3.9,40,2,525,0)="""RTN"",""HLOPRS"",75,0)"
^XMB(3.9,40,2,526,0)=" S ESCAPE=$E(HDR(1),7)"
^XMB(3.9,40,2,527,0)="""RTN"",""HLOPRS"",76,0)"
^XMB(3.9,40,2,528,0)=" S SUBCOMP=$E(HDR(1),8)"
^XMB(3.9,40,2,529,0)="""RTN"",""HLOPRS"",77,0)"
^XMB(3.9,40,2,530,0)=" Q:$L(FS)'=1 0"
^XMB(3.9,40,2,531,0)="""RTN"",""HLOPRS"",78,0)"
^XMB(3.9,40,2,532,0)=" Q:$L(CS)'=1 0"
^XMB(3.9,40,2,533,0)="""RTN"",""HLOPRS"",79,0)"
^XMB(3.9,40,2,534,0)=" S HDR(""FIELD SEPARATOR"")=FS"
^XMB(3.9,40,2,535,0)="""RTN"",""HLOPRS"",80,0)"
^XMB(3.9,40,2,536,0)=" S HDR(""ENCODING CHARACTERS"")=$E(HDR(1),5,8)"
^XMB(3.9,40,2,537,0)="""RTN"",""HLOPRS"",81,0)"
^XMB(3.9,40,2,538,0)=" S HDR(""COMPONENT SEPARATOR"")=CS"
^XMB(3.9,40,2,539,0)="""RTN"",""HLOPRS"",82,0)"
^XMB(3.9,40,2,540,0)=" S HDR(""REPETITION SEPARATOR"")=$E(HDR(1),6)"
^XMB(3.9,40,2,541,0)="""RTN"",""HLOPRS"",83,0)"
^XMB(3.9,40,2,542,0)=" S HDR(""ESCAPE CHARACTER"")=$E(HDR(1),7)"
^XMB(3.9,40,2,543,0)="""RTN"",""HLOPRS"",84,0)"
^XMB(3.9,40,2,544,0)=" S HDR(""SUBCOMPONENT SEPARATOR"")=$E(HDR(1),8)"
^XMB(3.9,40,2,545,0)="""RTN"",""HLOPRS"",85,0)"
^XMB(3.9,40,2,546,0)=" S HDR(""SENDING APPLICATION"")=$$DESCAPE^HLOPRS1($P($P(HDR(1),FS,3),CS),FS,CS,SUBCOMP,REP,ESCAPE)"
^XMB(3.9,40,2,547,0)="""RTN"",""HLOPRS"",86,0)"
^XMB(3.9,40,2,548,0)=" S VALUE=$P(HDR(1),FS,4)"
^XMB(3.9,40,2,549,0)="""RTN"",""HLOPRS"",87,0)"
^XMB(3.9,40,2,550,0)=" S HDR(""SENDING FACILITY"",1)=$P(VALUE,CS)"
^XMB(3.9,40,2,551,0)="""RTN"",""HLOPRS"",88,0)"
^XMB(3.9,40,2,552,0)=" S HDR(""SENDING FACILITY"",2)=$$DESCAPE^HLOPRS1($P(VALUE,CS,2),FS,CS,SUBCOMP,REP,ESCAPE)"
^XMB(3.9,40,2,553,0)="""RTN"",""HLOPRS"",89,0)"
^XMB(3.9,40,2,554,0)=" S HDR(""SENDING FACILITY"",3)=$P(VALUE,CS,3)"
^XMB(3.9,40,2,555,0)="""RTN"",""HLOPRS"",90,0)"
^XMB(3.9,40,2,556,0)=" S HDR(""RECEIVING APPLICATION"")=$$DESCAPE^HLOPRS1($P($P(HDR(1),FS,5),CS),FS,CS,SUBCOMP,REP,ESCAPE)"
^XMB(3.9,40,2,557,0)="""RTN"",""HLOPRS"",91,0)"
^XMB(3.9,40,2,558,0)=" S VALUE=$P(HDR(1),FS,6)"
^XMB(3.9,40,2,559,0)="""RTN"",""HLOPRS"",92,0)"
^XMB(3.9,40,2,560,0)=" S HDR(""RECEIVING FACILITY"",1)=$P(VALUE,CS)"
^XMB(3.9,40,2,561,0)="""RTN"",""HLOPRS"",93,0)"
^XMB(3.9,40,2,562,0)=" S HDR(""RECEIVING FACILITY"",2)=$$DESCAPE^HLOPRS1($P(VALUE,CS,2),FS,CS,SUBCOMP,REP,ESCAPE)"
^XMB(3.9,40,2,563,0)="""RTN"",""HLOPRS"",94,0)"
^XMB(3.9,40,2,564,0)=" S HDR(""RECEIVING FACILITY"",3)=$P(VALUE,CS,3)"
^XMB(3.9,40,2,565,0)="""RTN"",""HLOPRS"",95,0)"
^XMB(3.9,40,2,566,0)=" S HDR(""DT/TM OF MESSAGE"")=$$FMDATE^HLFNC($P($P(HDR(2),FS,2),CS))"
^XMB(3.9,40,2,567,0)="""RTN"",""HLOPRS"",96,0)"
^XMB(3.9,40,2,568,0)=" S HDR(""SECURITY"")=$$DESCAPE^HLOPRS1($P($P(HDR(2),FS,3),CS),FS,CS,SUBCOMP,REP,ESCAPE)"
^XMB(3.9,40,2,569,0)="""RTN"",""HLOPRS"",97,0)"
^XMB(3.9,40,2,570,0)=" ;"
^XMB(3.9,40,2,571,0)="""RTN"",""HLOPRS"",98,0)"
^XMB(3.9,40,2,572,0)=" I HDR(""SEGMENT TYPE"")=""MSH"" D"
^XMB(3.9,40,2,573,0)="""RTN"",""HLOPRS"",99,0)"
^XMB(3.9,40,2,574,0)=" .S VALUE=$P(HDR(2),FS,4)"
^XMB(3.9,40,2,575,0)="""RTN"",""HLOPRS"",100,0)"
^XMB(3.9,40,2,576,0)=" .S HDR(""MESSAGE TYPE"")=$P(VALUE,CS)"
^XMB(3.9,40,2,577,0)="""RTN"",""HLOPRS"",101,0)"
^XMB(3.9,40,2,578,0)=" .S HDR(""EVENT"")=$P(VALUE,CS,2)"
^XMB(3.9,40,2,579,0)="""RTN"",""HLOPRS"",102,0)"
^XMB(3.9,40,2,580,0)=" .S HDR(""MESSAGE STRUCTURE"")=$P(VALUE,CS,3)"
^XMB(3.9,40,2,581,0)="""RTN"",""HLOPRS"",103,0)"
^XMB(3.9,40,2,582,0)=" .S HDR(""MESSAGE CONTROL ID"")=$P($P(HDR(2),FS,5),CS)"
^XMB(3.9,40,2,583,0)="""RTN"",""HLOPRS"",104,0)"
^XMB(3.9,40,2,584,0)=" .S VALUE=$P(HDR(2),FS,6)"
^XMB(3.9,40,2,585,0)="""RTN"",""HLOPRS"",105,0)"
^XMB(3.9,40,2,586,0)=" .S HDR(""PROCESSING ID"")=$P(VALUE,CS)"
^XMB(3.9,40,2,587,0)="""RTN"",""HLOPRS"",106,0)"
^XMB(3.9,40,2,588,0)=" .S HDR(""PROCESSING MODE"")=$P(VALUE,CS,2)"
^XMB(3.9,40,2,589,0)="""RTN"",""HLOPRS"",107,0)"
^XMB(3.9,40,2,590,0)=" .S HDR(""VERSION"")=$$DESCAPE^HLOPRS1($P($P(HDR(2),FS,7),CS),FS,CS,SUBCOMP,REP,ESCAPE)"
^XMB(3.9,40,2,591,0)="""RTN"",""HLOPRS"",108,0)"
^XMB(3.9,40,2,592,0)=" .S HDR(""CONTINUATION POINTER"")=$P($P(HDR(2),FS,9),CS)"
^XMB(3.9,40,2,593,0)="""RTN"",""HLOPRS"",109,0)"
^XMB(3.9,40,2,594,0)=" .S HDR(""ACCEPT ACK TYPE"")=$P($P(HDR(2),FS,10),CS)"
^XMB(3.9,40,2,595,0)="""RTN"",""HLOPRS"",110,0)"
^XMB(3.9,40,2,596,0)=" .S HDR(""APP ACK TYPE"")=$P($P(HDR(2),FS,11),CS)"
^XMB(3.9,40,2,597,0)="""RTN"",""HLOPRS"",111,0)"
^XMB(3.9,40,2,598,0)=" .S HDR(""COUNTRY"")=$P($P(HDR(2),FS,12),CS)"
^XMB(3.9,40,2,599,0)="""RTN"",""HLOPRS"",112,0)"
^XMB(3.9,40,2,600,0)=" ;"
^XMB(3.9,40,2,601,0)="""RTN"",""HLOPRS"",113,0)"
^XMB(3.9,40,2,602,0)=" I HDR(""SEGMENT TYPE"")=""BHS"" D"
^XMB(3.9,40,2,603,0)="""RTN"",""HLOPRS"",114,0)"
^XMB(3.9,40,2,604,0)=" .S VALUE=$P(HDR(2),FS,4)"
^XMB(3.9,40,2,605,0)="""RTN"",""HLOPRS"",115,0)"
^XMB(3.9,40,2,606,0)=" .S HDR(""BATCH NAME/ID/TYPE"")=$$DESCAPE^HLOPRS1(VALUE,FS,CS,SUBCOMP,REP,ESCAPE)"
^XMB(3.9,40,2,607,0)="""RTN"",""HLOPRS"",116,0)"
^XMB(3.9,40,2,608,0)=" .S HDR(""PROCESSING ID"")=$E($P(VALUE,""PROCESSING ID="",2),1)"
^XMB(3.9,40,2,609,0)="""RTN"",""HLOPRS"",117,0)"
^XMB(3.9,40,2,610,0)=" .S HDR(""ACCEPT ACK TYPE"")=$E($P(VALUE,""ACCEPT ACK TYPE="",2),1,2)"
^XMB(3.9,40,2,611,0)="""RTN"",""HLOPRS"",118,0)"
^XMB(3.9,40,2,612,0)=" .S HDR(""APP ACK TYPE"")=$E($P(VALUE,""APP ACK TYPE="",2),1,2)"
^XMB(3.9,40,2,613,0)="""RTN"",""HLOPRS"",119,0)"
^XMB(3.9,40,2,614,0)=" .S HDR(""BATCH COMMENT"")=$$DESCAPE^HLOPRS1($P(HDR(2),FS,5),FS,CS,SUBCOMP,REP,ESCAPE)"
^XMB(3.9,40,2,615,0)="""RTN"",""HLOPRS"",120,0)"
^XMB(3.9,40,2,616,0)=" .S HDR(""BATCH CONTROL ID"")=$P($P(HDR(2),FS,6),CS)"
^XMB(3.9,40,2,617,0)="""RTN"",""HLOPRS"",121,0)"
^XMB(3.9,40,2,618,0)=" .S HDR(""REFERENCE BATCH CONTROL ID"")=$P($P(HDR(2),FS,7),CS)"
^XMB(3.9,40,2,619,0)="""RTN"",""HLOPRS"",122,0)"
^XMB(3.9,40,2,620,0)=" .;"
^XMB(3.9,40,2,621,0)="""RTN"",""HLOPRS"",123,0)"
^XMB(3.9,40,2,622,0)=" Q 1"
^XMB(3.9,40,2,623,0)="""RTN"",""HLOPRS"",124,0)"
^XMB(3.9,40,2,624,0)=" ;"
^XMB(3.9,40,2,625,0)="""RTN"",""HLOPRS"",125,0)"
^XMB(3.9,40,2,626,0)="GET(SEG,FIELD,COMP,SUBCOMP,REP) ;"
^XMB(3.9,40,2,627,0)="""RTN"",""HLOPRS"",126,0)"
^XMB(3.9,40,2,628,0)=" ;This function gets a specified value from a segment that was parsed by"
^XMB(3.9,40,2,629,0)="""RTN"",""HLOPRS"",127,0)"
^XMB(3.9,40,2,630,0)=" ;$$NEXTSEG. The FIELD,COMP,SUBCOMP,REP parameters are optional - if not"
^XMB(3.9,40,2,631,0)="""RTN"",""HLOPRS"",128,0)"
^XMB(3.9,40,2,632,0)=" ;specified, they default to 1."
^XMB(3.9,40,2,633,0)="""RTN"",""HLOPRS"",129,0)"
^XMB(3.9,40,2,634,0)=" ;  Example:"
^XMB(3.9,40,2,635,0)="""RTN"",""HLOPRS"",130,0)"
^XMB(3.9,40,2,636,0)=" ;    $$GET^HLOPRS(.SEG,1) will return the value of the first field, first"
^XMB(3.9,40,2,637,0)="""RTN"",""HLOPRS"",131,0)"
^XMB(3.9,40,2,638,0)=" ;  component, first subcomponent, in the first occurrence of field #1.  "
^XMB(3.9,40,2,639,0)="""RTN"",""HLOPRS"",132,0)"
^XMB(3.9,40,2,640,0)=" ;Input:"
^XMB(3.9,40,2,641,0)="""RTN"",""HLOPRS"",133,0)"
^XMB(3.9,40,2,642,0)=" ;SEG - (required, pass by reference) - this is the array where the parsed segment was placed by $$NEXTSEG"
^XMB(3.9,40,2,643,0)="""RTN"",""HLOPRS"",134,0)"
^XMB(3.9,40,2,644,0)=" ;FIELD - the sequence # of the field (optional, defaults to 1)"
^XMB(3.9,40,2,645,0)="""RTN"",""HLOPRS"",135,0)"
^XMB(3.9,40,2,646,0)=" ;COMP - the # of the component (optional, defaults to 1)"
^XMB(3.9,40,2,647,0)="""RTN"",""HLOPRS"",136,0)"
^XMB(3.9,40,2,648,0)=" ;SUBCOMP - the # of the subcomponent (optional, defaults to 1)"
^XMB(3.9,40,2,649,0)="""RTN"",""HLOPRS"",137,0)"
^XMB(3.9,40,2,650,0)=" ;REP - the occurrence# (optional, defaults to 1)  For a non-repeating field, the occurrence # need not be provided, because it would be 1."
^XMB(3.9,40,2,651,0)="""RTN"",""HLOPRS"",138,0)"
^XMB(3.9,40,2,652,0)=" ;Output:"
^XMB(3.9,40,2,653,0)="""RTN"",""HLOPRS"",139,0)"
^XMB(3.9,40,2,654,0)=" ;  Function returns the requested value on success, """" if not valued."
^XMB(3.9,40,2,655,0)="""RTN"",""HLOPRS"",140,0)"
^XMB(3.9,40,2,656,0)=" ;"
^XMB(3.9,40,2,657,0)="""RTN"",""HLOPRS"",141,0)"
^XMB(3.9,40,2,658,0)=" ;allow the segment type to be obtained via field #0 (shorthand)"
^XMB(3.9,40,2,659,0)="""RTN"",""HLOPRS"",142,0)"
^XMB(3.9,40,2,660,0)=" I $D(FIELD),$G(FIELD)=0 Q $G(SEG(""SEGMENT TYPE""))"
^XMB(3.9,40,2,661,0)="""RTN"",""HLOPRS"",143,0)"
^XMB(3.9,40,2,662,0)=" S:'$G(FIELD) FIELD=1"
^XMB(3.9,40,2,663,0)="""RTN"",""HLOPRS"",144,0)"
^XMB(3.9,40,2,664,0)=" ;"
^XMB(3.9,40,2,665,0)="""RTN"",""HLOPRS"",145,0)"
^XMB(3.9,40,2,666,0)=" ;for MSH or BHS, SEQ#1 is the  field separator"
^XMB(3.9,40,2,667,0)="""RTN"",""HLOPRS"",146,0)"
^XMB(3.9,40,2,668,0)=" I FIELD=1,$G(SEG(""SEGMENT TYPE""))=""MSH""!$G(SEG(""SEGMENT TYPE""))=""BHS"",$G(REP)<2,$G(COMP)<2,$G(SUBCOMP)<2 Q SEG(""FIELD SEPARATOR"")"
^XMB(3.9,40,2,669,0)="""RTN"",""HLOPRS"",147,0)"
^XMB(3.9,40,2,670,0)=" I FIELD=1,$G(SEG(""SEGMENT TYPE""))=""MSH""!$G(SEG(""SEGMENT TYPE""))=""BHS"" Q """""
^XMB(3.9,40,2,671,0)="""RTN"",""HLOPRS"",148,0)"
^XMB(3.9,40,2,672,0)=" ;"
^XMB(3.9,40,2,673,0)="""RTN"",""HLOPRS"",149,0)"
^XMB(3.9,40,2,674,0)=" ;For segments other than MSH or BHS, the first subscript in the SEG array needs to be incremented by 1, because SEG(1,1,1,1) is taken by the segment type, which technically isn't a field. (for convenience,we call it SEQ=0).  "
^XMB(3.9,40,2,675,0)="""RTN"",""HLOPRS"",150,0)"
^XMB(3.9,40,2,676,0)=" I $G(SEG(""SEGMENT TYPE""))'=""BHS"",$G(SEG(""SEGMENT TYPE""))'=""MSH"" S FIELD=FIELD+1"
^XMB(3.9,40,2,677,0)="""RTN"",""HLOPRS"",151,0)"
^XMB(3.9,40,2,678,0)=" S:'$G(COMP) COMP=1"
^XMB(3.9,40,2,679,0)="""RTN"",""HLOPRS"",152,0)"
^XMB(3.9,40,2,680,0)=" S:'$G(SUBCOMP) SUBCOMP=1"
^XMB(3.9,40,2,681,0)="""RTN"",""HLOPRS"",153,0)"
^XMB(3.9,40,2,682,0)=" S:'$G(REP) REP=1"
^XMB(3.9,40,2,683,0)="""RTN"",""HLOPRS"",154,0)"
^XMB(3.9,40,2,684,0)=" Q $G(SEG(FIELD,REP,COMP,SUBCOMP))"
^XMB(3.9,40,2,685,0)="""RTN"",""HLOPRS"",155,0)"
^XMB(3.9,40,2,686,0)=" ;"
^XMB(3.9,40,2,687,0)="""RTN"",""HLOPRS1"")"
^XMB(3.9,40,2,688,0)="0^4^B13347617"
^XMB(3.9,40,2,689,0)="""RTN"",""HLOPRS1"",1,0)"
^XMB(3.9,40,2,690,0)="HLOPRS1 ;IRMFO-ALB/CJM -RTNs for parsing messages (continued);03/24/2004  14:43"
^XMB(3.9,40,2,691,0)="""RTN"",""HLOPRS1"",2,0)"
^XMB(3.9,40,2,692,0)=" ;;1.6;HEALTH LEVEL SEVEN;**118**;Oct 13, 1995"
^XMB(3.9,40,2,693,0)="""RTN"",""HLOPRS1"",3,0)"
^XMB(3.9,40,2,694,0)=" ;"
^XMB(3.9,40,2,695,0)="""RTN"",""HLOPRS1"",4,0)"
^XMB(3.9,40,2,696,0)="PARSE(FIELD,REP,COMP,SUBCOMP,ESCAPE,SEG,TO) ;"
^XMB(3.9,40,2,697,0)="""RTN"",""HLOPRS1"",5,0)"
^XMB(3.9,40,2,698,0)=" ;Parses the segment stored in SEG(1),SEG(2),... into TO()"
^XMB(3.9,40,2,699,0)="""RTN"",""HLOPRS1"",6,0)"
^XMB(3.9,40,2,700,0)=" ;Input:"
^XMB(3.9,40,2,701,0)="""RTN"",""HLOPRS1"",7,0)"
^XMB(3.9,40,2,702,0)=" ;  FIELD - field separator"
^XMB(3.9,40,2,703,0)="""RTN"",""HLOPRS1"",8,0)"
^XMB(3.9,40,2,704,0)=" ;  REP - field repetition separator"
^XMB(3.9,40,2,705,0)="""RTN"",""HLOPRS1"",9,0)"
^XMB(3.9,40,2,706,0)=" ;  COMP - component separator"
^XMB(3.9,40,2,707,0)="""RTN"",""HLOPRS1"",10,0)"
^XMB(3.9,40,2,708,0)=" ;  SUBCOMP - subcomponent separator"
^XMB(3.9,40,2,709,0)="""RTN"",""HLOPRS1"",11,0)"
^XMB(3.9,40,2,710,0)=" ;  ESCAPE - escape character"
^XMB(3.9,40,2,711,0)="""RTN"",""HLOPRS1"",12,0)"
^XMB(3.9,40,2,712,0)=" ;  SEG - (pass by reference) the array holding the unparsed segment."
^XMB(3.9,40,2,713,0)="""RTN"",""HLOPRS1"",13,0)"
^XMB(3.9,40,2,714,0)=" ;Output:"
^XMB(3.9,40,2,715,0)="""RTN"",""HLOPRS1"",14,0)"
^XMB(3.9,40,2,716,0)=" ;  Function returns 1 on success, 0 on failure"
^XMB(3.9,40,2,717,0)="""RTN"",""HLOPRS1"",15,0)"
^XMB(3.9,40,2,718,0)=" ;  TO - (pass by reference) - the parsed values"
^XMB(3.9,40,2,719,0)="""RTN"",""HLOPRS1"",16,0)"
^XMB(3.9,40,2,720,0)=" ;  SEG- This input variable is deleted during the processing.  If it is needs to be retained, pass in a copy!"
^XMB(3.9,40,2,721,0)="""RTN"",""HLOPRS1"",17,0)"
^XMB(3.9,40,2,722,0)=" ;"
^XMB(3.9,40,2,723,0)="""RTN"",""HLOPRS1"",18,0)"
^XMB(3.9,40,2,724,0)=" N VALUE,CHAR,COUNTS"
^XMB(3.9,40,2,725,0)="""RTN"",""HLOPRS1"",19,0)"
^XMB(3.9,40,2,726,0)=" K TO"
^XMB(3.9,40,2,727,0)="""RTN"",""HLOPRS1"",20,0)"
^XMB(3.9,40,2,728,0)=" Q:$L($G(FIELD))'=1 0"
^XMB(3.9,40,2,729,0)="""RTN"",""HLOPRS1"",21,0)"
^XMB(3.9,40,2,730,0)=" Q:$L($G(REP))'=1 0"
^XMB(3.9,40,2,731,0)="""RTN"",""HLOPRS1"",22,0)"
^XMB(3.9,40,2,732,0)=" Q:$L($G(COMP))'=1 0"
^XMB(3.9,40,2,733,0)="""RTN"",""HLOPRS1"",23,0)"
^XMB(3.9,40,2,734,0)=" Q:$L($G(SUBCOMP))'=1 0"
^XMB(3.9,40,2,735,0)="""RTN"",""HLOPRS1"",24,0)"
^XMB(3.9,40,2,736,0)=" Q:'$D(SEG) 0"
^XMB(3.9,40,2,737,0)="""RTN"",""HLOPRS1"",25,0)"
^XMB(3.9,40,2,738,0)=" S COUNTS(""FIELD"")=1"
^XMB(3.9,40,2,739,0)="""RTN"",""HLOPRS1"",26,0)"
^XMB(3.9,40,2,740,0)=" S COUNTS(""REP"")=1"
^XMB(3.9,40,2,741,0)="""RTN"",""HLOPRS1"",27,0)"
^XMB(3.9,40,2,742,0)=" S COUNTS(""COMP"")=1"
^XMB(3.9,40,2,743,0)="""RTN"",""HLOPRS1"",28,0)"
^XMB(3.9,40,2,744,0)=" S COUNTS(""SUBCOMP"")=1"
^XMB(3.9,40,2,745,0)="""RTN"",""HLOPRS1"",29,0)"
^XMB(3.9,40,2,746,0)=" S VALUE="""""
^XMB(3.9,40,2,747,0)="""RTN"",""HLOPRS1"",30,0)"
^XMB(3.9,40,2,748,0)=" S SEG(""LINE"")=$O(SEG(0)),SEG(""CHAR"")=0"
^XMB(3.9,40,2,749,0)="""RTN"",""HLOPRS1"",31,0)"
^XMB(3.9,40,2,750,0)=" F  S CHAR=$$NEXTCHAR(.SEG) D  Q:'$L(CHAR)"
^XMB(3.9,40,2,751,0)="""RTN"",""HLOPRS1"",32,0)"
^XMB(3.9,40,2,752,0)=" .I '$L(CHAR) D  Q"
^XMB(3.9,40,2,753,0)="""RTN"",""HLOPRS1"",33,0)"
^XMB(3.9,40,2,754,0)=" ..I $L(VALUE) S TO(COUNTS(""FIELD""),COUNTS(""REP""),COUNTS(""COMP""),COUNTS(""SUBCOMP""))=VALUE"
^XMB(3.9,40,2,755,0)="""RTN"",""HLOPRS1"",34,0)"
^XMB(3.9,40,2,756,0)=" .E  I CHAR=FIELD D  Q"
^XMB(3.9,40,2,757,0)="""RTN"",""HLOPRS1"",35,0)"
^XMB(3.9,40,2,758,0)=" ..I $L(VALUE) S TO(COUNTS(""FIELD""),COUNTS(""REP""),COUNTS(""COMP""),COUNTS(""SUBCOMP""))=$$DESCAPE(VALUE,.FIELD,.COMP,.SUBCOMP,.REP,.ESCAPE),VALUE="""""
^XMB(3.9,40,2,759,0)="""RTN"",""HLOPRS1"",36,0)"
^XMB(3.9,40,2,760,0)=" ..S COUNTS(""FIELD"")=COUNTS(""FIELD"")+1,COUNTS(""REP"")=1,COUNTS(""COMP"")=1,COUNTS(""SUBCOMP"")=1"
^XMB(3.9,40,2,761,0)="""RTN"",""HLOPRS1"",37,0)"
^XMB(3.9,40,2,762,0)=" .E  I CHAR=REP D  Q"
^XMB(3.9,40,2,763,0)="""RTN"",""HLOPRS1"",38,0)"
^XMB(3.9,40,2,764,0)=" ..I $L(VALUE) S TO(COUNTS(""FIELD""),COUNTS(""REP""),COUNTS(""COMP""),COUNTS(""SUBCOMP""))=$$DESCAPE(VALUE,.FIELD,.COMP,.SUBCOMP,.REP,.ESCAPE),VALUE="""""
^XMB(3.9,40,2,765,0)="""RTN"",""HLOPRS1"",39,0)"
^XMB(3.9,40,2,766,0)=" ..S COUNTS(""REP"")=COUNTS(""REP"")+1,COUNTS(""COMP"")=1,COUNTS(""SUBCOMP"")=1"
^XMB(3.9,40,2,767,0)="""RTN"",""HLOPRS1"",40,0)"
^XMB(3.9,40,2,768,0)=" .E  I CHAR=COMP D  Q"
^XMB(3.9,40,2,769,0)="""RTN"",""HLOPRS1"",41,0)"
^XMB(3.9,40,2,770,0)=" ..I $L(VALUE) S TO(COUNTS(""FIELD""),COUNTS(""REP""),COUNTS(""COMP""),COUNTS(""SUBCOMP""))=$$DESCAPE(VALUE,.FIELD,.COMP,.SUBCOMP,.REP,.ESCAPE),VALUE="""""
^XMB(3.9,40,2,771,0)="""RTN"",""HLOPRS1"",42,0)"
^XMB(3.9,40,2,772,0)=" ..S COUNTS(""COMP"")=COUNTS(""COMP"")+1,COUNTS(""SUBCOMP"")=1"
^XMB(3.9,40,2,773,0)="""RTN"",""HLOPRS1"",43,0)"
^XMB(3.9,40,2,774,0)=" .E  I CHAR=SUBCOMP D  Q"
^XMB(3.9,40,2,775,0)="""RTN"",""HLOPRS1"",44,0)"
^XMB(3.9,40,2,776,0)=" ..I $L(VALUE) S TO(COUNTS(""FIELD""),COUNTS(""REP""),COUNTS(""COMP""),COUNTS(""SUBCOMP""))=$$DESCAPE(VALUE,.FIELD,.COMP,.SUBCOMP,.REP,.ESCAPE),VALUE="""""
^XMB(3.9,40,2,777,0)="""RTN"",""HLOPRS1"",45,0)"
^XMB(3.9,40,2,778,0)=" ..S COUNTS(""SUBCOMP"")=COUNTS(""SUBCOMP"")+1"
^XMB(3.9,40,2,779,0)="""RTN"",""HLOPRS1"",46,0)"
^XMB(3.9,40,2,780,0)=" .E  S VALUE=VALUE_CHAR"
^XMB(3.9,40,2,781,0)="""RTN"",""HLOPRS1"",47,0)"
^XMB(3.9,40,2,782,0)=" S TO(""SEGMENT TYPE"")=$G(TO(1,1,1,1))"
^XMB(3.9,40,2,783,0)="""RTN"",""HLOPRS1"",48,0)"
^XMB(3.9,40,2,784,0)=" I (TO(""SEGMENT TYPE"")=""BHS"")!(TO(""SEGMENT TYPE"")=""MSH"") S TO(""FIELD SEPARATOR"")=FIELD"
^XMB(3.9,40,2,785,0)="""RTN"",""HLOPRS1"",49,0)"
^XMB(3.9,40,2,786,0)=" Q 1"
^XMB(3.9,40,2,787,0)="""RTN"",""HLOPRS1"",50,0)"
^XMB(3.9,40,2,788,0)=" ;"
^XMB(3.9,40,2,789,0)="""RTN"",""HLOPRS1"",51,0)"
^XMB(3.9,40,2,790,0)="NEXTCHAR(SEG) ;"
^XMB(3.9,40,2,791,0)="""RTN"",""HLOPRS1"",52,0)"
^XMB(3.9,40,2,792,0)=" ;returns the next character in the segment array"
^XMB(3.9,40,2,793,0)="""RTN"",""HLOPRS1"",53,0)"
^XMB(3.9,40,2,794,0)=" ;"
^XMB(3.9,40,2,795,0)="""RTN"",""HLOPRS1"",54,0)"
^XMB(3.9,40,2,796,0)=" Q:'SEG(""LINE"") """""
^XMB(3.9,40,2,797,0)="""RTN"",""HLOPRS1"",55,0)"
^XMB(3.9,40,2,798,0)=" N RET"
^XMB(3.9,40,2,799,0)="""RTN"",""HLOPRS1"",56,0)"
^XMB(3.9,40,2,800,0)=" S SEG(""CHAR"")=SEG(""CHAR"")+1"
^XMB(3.9,40,2,801,0)="""RTN"",""HLOPRS1"",57,0)"
^XMB(3.9,40,2,802,0)=" S RET=$E(SEG(SEG(""LINE"")),SEG(""CHAR""))"
^XMB(3.9,40,2,803,0)="""RTN"",""HLOPRS1"",58,0)"
^XMB(3.9,40,2,804,0)=" Q:RET]"""" RET"
^XMB(3.9,40,2,805,0)="""RTN"",""HLOPRS1"",59,0)"
^XMB(3.9,40,2,806,0)=" S SEG(""LINE"")=$O(SEG(SEG(""LINE"")))"
^XMB(3.9,40,2,807,0)="""RTN"",""HLOPRS1"",60,0)"
^XMB(3.9,40,2,808,0)=" I SEG(""LINE"") S SEG(""CHAR"")=1 Q $E(SEG(SEG(""LINE"")))"
^XMB(3.9,40,2,809,0)="""RTN"",""HLOPRS1"",61,0)"
^XMB(3.9,40,2,810,0)=" Q """""
^XMB(3.9,40,2,811,0)="""RTN"",""HLOPRS1"",62,0)"
^XMB(3.9,40,2,812,0)=" ;"
^XMB(3.9,40,2,813,0)="""RTN"",""HLOPRS1"",63,0)"
^XMB(3.9,40,2,814,0)="DESCAPE(VALUE,FIELD,COMP,SUBCOMP,REP,ESCAPE) ;"
^XMB(3.9,40,2,815,0)="""RTN"",""HLOPRS1"",64,0)"
^XMB(3.9,40,2,816,0)=" ;Replaces the escape sequences with the corresponding encoding character and returns the result as the function value"
^XMB(3.9,40,2,817,0)="""RTN"",""HLOPRS1"",65,0)"
^XMB(3.9,40,2,818,0)=" ;"
^XMB(3.9,40,2,819,0)="""RTN"",""HLOPRS1"",66,0)"
^XMB(3.9,40,2,820,0)=" N NEWSTRNG,SUBSTRNG,SET,LEN,I,SUBLEN,CHAR"
^XMB(3.9,40,2,821,0)="""RTN"",""HLOPRS1"",67,0)"
^XMB(3.9,40,2,822,0)=" S (NEWSTRNG,SUBSTRNG,SUBLEN)="""""
^XMB(3.9,40,2,823,0)="""RTN"",""HLOPRS1"",68,0)"
^XMB(3.9,40,2,824,0)=" S SET=""FSTRE"""
^XMB(3.9,40,2,825,0)="""RTN"",""HLOPRS1"",69,0)"
^XMB(3.9,40,2,826,0)=" S LEN=$L(VALUE)"
^XMB(3.9,40,2,827,0)="""RTN"",""HLOPRS1"",70,0)"
^XMB(3.9,40,2,828,0)=" F I=1:1:LEN S SUBSTRNG=SUBSTRNG_$E(VALUE,I),SUBLEN=SUBLEN+1 D:SUBLEN=3"
^XMB(3.9,40,2,829,0)="""RTN"",""HLOPRS1"",71,0)"
^XMB(3.9,40,2,830,0)=" .S CHAR=$E(SUBSTRNG,2)"
^XMB(3.9,40,2,831,0)="""RTN"",""HLOPRS1"",72,0)"
^XMB(3.9,40,2,832,0)=" .I $E(SUBSTRNG,1)=ESCAPE,$E(SUBSTRNG,3)=ESCAPE,SET[CHAR D"
^XMB(3.9,40,2,833,0)="""RTN"",""HLOPRS1"",73,0)"
^XMB(3.9,40,2,834,0)=" ..I CHAR=""F"" S NEWSTRNG=NEWSTRNG_FIELD,SUBSTRNG="""",SUBLEN=0 Q"
^XMB(3.9,40,2,835,0)="""RTN"",""HLOPRS1"",74,0)"
^XMB(3.9,40,2,836,0)=" ..I CHAR=""S"" S NEWSTRNG=NEWSTRNG_COMP,SUBSTRNG="""",SUBLEN=0 Q"
^XMB(3.9,40,2,837,0)="""RTN"",""HLOPRS1"",75,0)"
^XMB(3.9,40,2,838,0)=" ..I CHAR=""T"" S NEWSTRNG=NEWSTRNG_SUBCOMP,SUBSTRNG="""",SUBLEN=0 Q"
^XMB(3.9,40,2,839,0)="""RTN"",""HLOPRS1"",76,0)"
^XMB(3.9,40,2,840,0)=" ..I CHAR=""R"" S NEWSTRNG=NEWSTRNG_REP,SUBSTRNG="""",SUBLEN=0 Q"
^XMB(3.9,40,2,841,0)="""RTN"",""HLOPRS1"",77,0)"
^XMB(3.9,40,2,842,0)=" ..I CHAR=""E"" S NEWSTRNG=NEWSTRNG_ESCAPE,SUBSTRNG="""",SUBLEN=0 Q"
^XMB(3.9,40,2,843,0)="""RTN"",""HLOPRS1"",78,0)"
^XMB(3.9,40,2,844,0)=" .E  S NEWSTRNG=NEWSTRNG_$E(SUBSTRNG),SUBSTRNG=$E(SUBSTRNG,2,3),SUBLEN=2"
^XMB(3.9,40,2,845,0)="""RTN"",""HLOPRS1"",79,0)"
^XMB(3.9,40,2,846,0)=" Q NEWSTRNG_SUBSTRNG"
^XMB(3.9,40,2,847,0)="""RTN"",""HLPRS"")"
^XMB(3.9,40,2,848,0)="0^1^B18693372"
^XMB(3.9,40,2,849,0)="""RTN"",""HLPRS"",1,0)"
^XMB(3.9,40,2,850,0)="HLPRS ;IRMFO-ALB/CJM -RTNs for parsing messages;03/24/2004  14:43"
^XMB(3.9,40,2,851,0)="""RTN"",""HLPRS"",2,0)"
^XMB(3.9,40,2,852,0)=" ;;1.6;HEALTH LEVEL SEVEN;**118**;Oct 13, 1995"
^XMB(3.9,40,2,853,0)="""RTN"",""HLPRS"",3,0)"
^XMB(3.9,40,2,854,0)=" ;"
^XMB(3.9,40,2,855,0)="""RTN"",""HLPRS"",4,0)"
^XMB(3.9,40,2,856,0)="STARTMSG(MSG,IEN,HDR) ;"
^XMB(3.9,40,2,857,0)="""RTN"",""HLPRS"",5,0)"
^XMB(3.9,40,2,858,0)=" ;Description:  This function begins the parsing of the message, parsing"
^XMB(3.9,40,2,859,0)="""RTN"",""HLPRS"",6,0)"
^XMB(3.9,40,2,860,0)=" ;the header and returning the individual values in the array HDR()."
^XMB(3.9,40,2,861,0)="""RTN"",""HLPRS"",7,0)"
^XMB(3.9,40,2,862,0)=" ;Input: "
^XMB(3.9,40,2,863,0)="""RTN"",""HLPRS"",8,0)"
^XMB(3.9,40,2,864,0)=" ;  IEN - The internal entry number of the message in file 773."
^XMB(3.9,40,2,865,0)="""RTN"",""HLPRS"",9,0)"
^XMB(3.9,40,2,866,0)=" ;Output:"
^XMB(3.9,40,2,867,0)="""RTN"",""HLPRS"",10,0)"
^XMB(3.9,40,2,868,0)=" ;  Function returns 1 on success, 0 on failure.  Failure would indicate that the message was not found."
^XMB(3.9,40,2,869,0)="""RTN"",""HLPRS"",11,0)"
^XMB(3.9,40,2,870,0)=" ;  MSG - (pass by reference, required) This array is used by the HL7 package to track the progress of parsing the message.  The application MUST NOT touch it!"
^XMB(3.9,40,2,871,0)="""RTN"",""HLPRS"",12,0)"
^XMB(3.9,40,2,872,0)=" ;  HDR (pass by reference, optional)   This array contains the results of parsing the message header."
^XMB(3.9,40,2,873,0)="""RTN"",""HLPRS"",13,0)"
^XMB(3.9,40,2,874,0)=" K MSG,HDR"
^XMB(3.9,40,2,875,0)="""RTN"",""HLPRS"",14,0)"
^XMB(3.9,40,2,876,0)=" Q:'$G(IEN) 0"
^XMB(3.9,40,2,877,0)="""RTN"",""HLPRS"",15,0)"
^XMB(3.9,40,2,878,0)=" Q:'$$GETMSG^HLMSG(IEN,.MSG) 0"
^XMB(3.9,40,2,879,0)="""RTN"",""HLPRS"",16,0)"
^XMB(3.9,40,2,880,0)=" N SEG"
^XMB(3.9,40,2,881,0)="""RTN"",""HLPRS"",17,0)"
^XMB(3.9,40,2,882,0)=" M SEG=MSG(""HDR"")"
^XMB(3.9,40,2,883,0)="""RTN"",""HLPRS"",18,0)"
^XMB(3.9,40,2,884,0)=" Q:'$$PARSEHDR(.SEG,.HDR) 0"
^XMB(3.9,40,2,885,0)="""RTN"",""HLPRS"",19,0)"
^XMB(3.9,40,2,886,0)=" ;after parsing the header, reset these subscripts:"
^XMB(3.9,40,2,887,0)="""RTN"",""HLPRS"",20,0)"
^XMB(3.9,40,2,888,0)=" I HDR(""SEGMENT TYPE"")=""BHS"" D"
^XMB(3.9,40,2,889,0)="""RTN"",""HLPRS"",21,0)"
^XMB(3.9,40,2,890,0)=" .S MSG(""BATCH"")=1"
^XMB(3.9,40,2,891,0)="""RTN"",""HLPRS"",22,0)"
^XMB(3.9,40,2,892,0)=" .S MSG(""BATCH"",""CURRENT MESSAGE"")=0"
^XMB(3.9,40,2,893,0)="""RTN"",""HLPRS"",23,0)"
^XMB(3.9,40,2,894,0)=" E  D"
^XMB(3.9,40,2,895,0)="""RTN"",""HLPRS"",24,0)"
^XMB(3.9,40,2,896,0)=" .S MSG(""BATCH"")=0"
^XMB(3.9,40,2,897,0)="""RTN"",""HLPRS"",25,0)"
^XMB(3.9,40,2,898,0)=" ;"
^XMB(3.9,40,2,899,0)="""RTN"",""HLPRS"",26,0)"
^XMB(3.9,40,2,900,0)=" K MSG(""HDR"")"
^XMB(3.9,40,2,901,0)="""RTN"",""HLPRS"",27,0)"
^XMB(3.9,40,2,902,0)=" M MSG(""HDR"")=HDR"
^XMB(3.9,40,2,903,0)="""RTN"",""HLPRS"",28,0)"
^XMB(3.9,40,2,904,0)=" Q 1"
^XMB(3.9,40,2,905,0)="""RTN"",""HLPRS"",29,0)"
^XMB(3.9,40,2,906,0)=" ;"
^XMB(3.9,40,2,907,0)="""RTN"",""HLPRS"",30,0)"
^XMB(3.9,40,2,908,0)="NEXTSEG(MSG,SEG) ;"
^XMB(3.9,40,2,909,0)="""RTN"",""HLPRS"",31,0)"
^XMB(3.9,40,2,910,0)=" ;Description:  Advances parsing to the next segment and returns the parsed values from that segment."
^XMB(3.9,40,2,911,0)="""RTN"",""HLPRS"",32,0)"
^XMB(3.9,40,2,912,0)=" ;Input:"
^XMB(3.9,40,2,913,0)="""RTN"",""HLPRS"",33,0)"
^XMB(3.9,40,2,914,0)=" ;  MSG - (pass by reference, required) This array is used by the HL7 package to track the current position in the message.  The application MUST NOT touch it!"
^XMB(3.9,40,2,915,0)="""RTN"",""HLPRS"",34,0)"
^XMB(3.9,40,2,916,0)=" ;Output:"
^XMB(3.9,40,2,917,0)="""RTN"",""HLPRS"",35,0)"
^XMB(3.9,40,2,918,0)=" ;  Function  returns 1 on success, 0 if there are no more segments in this message.  For batch messages, a return value of 0 does not preclude the possibility that there are additional individual messages within the batch."
^XMB(3.9,40,2,919,0)="""RTN"",""HLPRS"",36,0)"
^XMB(3.9,40,2,920,0)=" ;  MSG - (pass by reference, required)"
^XMB(3.9,40,2,921,0)="""RTN"",""HLPRS"",37,0)"
^XMB(3.9,40,2,922,0)=" ;  SEG - (pass by reference, required)  The segment is returned in this array."
^XMB(3.9,40,2,923,0)="""RTN"",""HLPRS"",38,0)"
^XMB(3.9,40,2,924,0)=" ;"
^XMB(3.9,40,2,925,0)="""RTN"",""HLPRS"",39,0)"
^XMB(3.9,40,2,926,0)=" N TEMP,CODES"
^XMB(3.9,40,2,927,0)="""RTN"",""HLPRS"",40,0)"
^XMB(3.9,40,2,928,0)=" K SEG"
^XMB(3.9,40,2,929,0)="""RTN"",""HLPRS"",41,0)"
^XMB(3.9,40,2,930,0)=" I '$$NEXTSEG^HLMSG(.MSG,.TEMP) Q 0"
^XMB(3.9,40,2,931,0)="""RTN"",""HLPRS"",42,0)"
^XMB(3.9,40,2,932,0)=" S CODES=MSG(""HDR"",""ENCODING CHARACTERS"")"
^XMB(3.9,40,2,933,0)="""RTN"",""HLPRS"",43,0)"
^XMB(3.9,40,2,934,0)=" Q $$PARSE^HLOPRS1(MSG(""HDR"",""FIELD SEPARATOR""),$E(CODES,2),$E(CODES,1),$E(CODES,4),$E(CODES,3),.TEMP,.SEG)"
^XMB(3.9,40,2,935,0)="""RTN"",""HLPRS"",44,0)"
^XMB(3.9,40,2,936,0)=" ;"
^XMB(3.9,40,2,937,0)="""RTN"",""HLPRS"",45,0)"
^XMB(3.9,40,2,938,0)="NEXTMSG(MSG,MSH) ;"
^XMB(3.9,40,2,939,0)="""RTN"",""HLPRS"",46,0)"
^XMB(3.9,40,2,940,0)=" ;Description:  Advances to the next message within the batch, with the MSH segment returned."
^XMB(3.9,40,2,941,0)="""RTN"",""HLPRS"",47,0)"
^XMB(3.9,40,2,942,0)=" ;Input:"
^XMB(3.9,40,2,943,0)="""RTN"",""HLPRS"",48,0)"
^XMB(3.9,40,2,944,0)=" ; MSG (pass by reference, required) This array is used by the HL7 package to track the current position in the message.  The application MUST NOT touch it!"
^XMB(3.9,40,2,945,0)="""RTN"",""HLPRS"",49,0)"
^XMB(3.9,40,2,946,0)=" ;OUTPUT:"
^XMB(3.9,40,2,947,0)="""RTN"",""HLPRS"",50,0)"
^XMB(3.9,40,2,948,0)=" ;  Function returns 1 on success, 0 if there are no more messages"
^XMB(3.9,40,2,949,0)="""RTN"",""HLPRS"",51,0)"
^XMB(3.9,40,2,950,0)=" ;  MSG - (pass by reference) (remember, off limits to the application developer!)"
^XMB(3.9,40,2,951,0)="""RTN"",""HLPRS"",52,0)"
^XMB(3.9,40,2,952,0)=" ;  MSH - (pass by reference, required) Returns the parsed message header"
^XMB(3.9,40,2,953,0)="""RTN"",""HLPRS"",53,0)"
^XMB(3.9,40,2,954,0)=" ;"
^XMB(3.9,40,2,955,0)="""RTN"",""HLPRS"",54,0)"
^XMB(3.9,40,2,956,0)=" K MSH"
^XMB(3.9,40,2,957,0)="""RTN"",""HLPRS"",55,0)"
^XMB(3.9,40,2,958,0)=" N HDR"
^XMB(3.9,40,2,959,0)="""RTN"",""HLPRS"",56,0)"
^XMB(3.9,40,2,960,0)=" Q:'$$NEXTMSG^HLMSG(.MSG,.HDR) 0"
^XMB(3.9,40,2,961,0)="""RTN"",""HLPRS"",57,0)"
^XMB(3.9,40,2,962,0)=" Q:'$$PARSEHDR(.HDR,.MSH) 0"
^XMB(3.9,40,2,963,0)="""RTN"",""HLPRS"",58,0)"
^XMB(3.9,40,2,964,0)=" Q 1"
^XMB(3.9,40,2,965,0)="""RTN"",""HLPRS"",59,0)"
^XMB(3.9,40,2,966,0)=" ;"
^XMB(3.9,40,2,967,0)="""RTN"",""HLPRS"",60,0)"
^XMB(3.9,40,2,968,0)="PARSEHDR(SEG,HDR) ;"
^XMB(3.9,40,2,969,0)="""RTN"",""HLPRS"",61,0)"
^XMB(3.9,40,2,970,0)=" ;Parses the segment (SEG, pass by reference) into the HDR() array using meaningful subscripts."
^XMB(3.9,40,2,971,0)="""RTN"",""HLPRS"",62,0)"
^XMB(3.9,40,2,972,0)=" ;Input:"
^XMB(3.9,40,2,973,0)="""RTN"",""HLPRS"",63,0)"
^XMB(3.9,40,2,974,0)=" ;  SEG (pass by reference, required) contains the segment in the format SEG(1), SEG(2),..."
^XMB(3.9,40,2,975,0)="""RTN"",""HLPRS"",64,0)"
^XMB(3.9,40,2,976,0)=" ;Output:"
^XMB(3.9,40,2,977,0)="""RTN"",""HLPRS"",65,0)"
^XMB(3.9,40,2,978,0)=" ;  HDR (pass by reference, required) This array will contain all the individual values."
^XMB(3.9,40,2,979,0)="""RTN"",""HLPRS"",66,0)"
^XMB(3.9,40,2,980,0)=" ;  Function - returns 1 if the segment is indeed an MSH or BHS segment, 0 otherwise"
^XMB(3.9,40,2,981,0)="""RTN"",""HLPRS"",67,0)"
^XMB(3.9,40,2,982,0)=" ;"
^XMB(3.9,40,2,983,0)="""RTN"",""HLPRS"",68,0)"
^XMB(3.9,40,2,984,0)=" N VALUE,TO"
^XMB(3.9,40,2,985,0)="""RTN"",""HLPRS"",69,0)"
^XMB(3.9,40,2,986,0)=" K HDR"
^XMB(3.9,40,2,987,0)="""RTN"",""HLPRS"",70,0)"
^XMB(3.9,40,2,988,0)=" S VALUE=$E($G(SEG(1)),1,3)"
^XMB(3.9,40,2,989,0)="""RTN"",""HLPRS"",71,0)"
^XMB(3.9,40,2,990,0)=" I VALUE'=""MSH"",VALUE'=""BHS"" Q 0"
^XMB(3.9,40,2,991,0)="""RTN"",""HLPRS"",72,0)"
^XMB(3.9,40,2,992,0)=" S HDR(""SEGMENT TYPE"")=VALUE"
^XMB(3.9,40,2,993,0)="""RTN"",""HLPRS"",73,0)"
^XMB(3.9,40,2,994,0)=" S HDR(""FIELD SEPARATOR"")=$E(SEG(1),4)"
^XMB(3.9,40,2,995,0)="""RTN"",""HLPRS"",74,0)"
^XMB(3.9,40,2,996,0)=" Q:$L(HDR(""FIELD SEPARATOR""))'=1 0"
^XMB(3.9,40,2,997,0)="""RTN"",""HLPRS"",75,0)"
^XMB(3.9,40,2,998,0)=" S VALUE=$E(SEG(1),5,8)"
^XMB(3.9,40,2,999,0)="""RTN"",""HLPRS"",76,0)"
^XMB(3.9,40,2,1000,0)=" S HDR(""ENCODING CHARACTERS"")=VALUE"
^XMB(3.9,40,2,1001,0)="""RTN"",""HLPRS"",77,0)"
^XMB(3.9,40,2,1002,0)=" S HDR(""COMPONENT SEPARATOR"")=$E(VALUE,1)"
^XMB(3.9,40,2,1003,0)="""RTN"",""HLPRS"",78,0)"
^XMB(3.9,40,2,1004,0)=" S HDR(""REPETITION SEPARATOR"")=$E(VALUE,2)"
^XMB(3.9,40,2,1005,0)="""RTN"",""HLPRS"",79,0)"
^XMB(3.9,40,2,1006,0)=" S HDR(""ESCAPE CHARACTER"")=$E(VALUE,3)"
^XMB(3.9,40,2,1007,0)="""RTN"",""HLPRS"",80,0)"
^XMB(3.9,40,2,1008,0)=" S HDR(""SUBCOMPONENT SEPARATOR"")=$E(VALUE,4)"
^XMB(3.9,40,2,1009,0)="""RTN"",""HLPRS"",81,0)"
^XMB(3.9,40,2,1010,0)=" I $$PARSE^HLOPRS1(HDR(""FIELD SEPARATOR""),$E(VALUE,2),$E(VALUE,1),$E(VALUE,4),$E(VALUE,3),.SEG,.TO) D"
^XMB(3.9,40,2,1011,0)="""RTN"",""HLPRS"",82,0)"
^XMB(3.9,40,2,1012,0)=" .S HDR(""SENDING APPLICATION"")=$$GET^HLOPRS(.TO,3)"
^XMB(3.9,40,2,1013,0)="""RTN"",""HLPRS"",83,0)"
^XMB(3.9,40,2,1014,0)=" .S HDR(""SENDING FACILITY"",1)=$$GET^HLOPRS(.TO,4,1)"
^XMB(3.9,40,2,1015,0)="""RTN"",""HLPRS"",84,0)"
^XMB(3.9,40,2,1016,0)=" .S HDR(""SENDING FACILITY"",2)=$$GET^HLOPRS(.TO,4,2)"
^XMB(3.9,40,2,1017,0)="""RTN"",""HLPRS"",85,0)"
^XMB(3.9,40,2,1018,0)=" .S HDR(""SENDING FACILTY"",3)=$$GET^HLOPRS(.TO,4,3)"
^XMB(3.9,40,2,1019,0)="""RTN"",""HLPRS"",86,0)"
^XMB(3.9,40,2,1020,0)=" .S HDR(""RECEIVING APPLICATION"")=$$GET^HLOPRS(.TO,5)"
^XMB(3.9,40,2,1021,0)="""RTN"",""HLPRS"",87,0)"
^XMB(3.9,40,2,1022,0)=" .S HDR(""RECEIVING FACILITY"",1)=$$GET^HLOPRS(.TO,6,1)"
^XMB(3.9,40,2,1023,0)="""RTN"",""HLPRS"",88,0)"
^XMB(3.9,40,2,1024,0)=" .S HDR(""RECEIVING FACILITY"",2)=$$GET^HLOPRS(.TO,6,2)"
^XMB(3.9,40,2,1025,0)="""RTN"",""HLPRS"",89,0)"
^XMB(3.9,40,2,1026,0)=" .S HDR(""RECEIVING FACILITY"",3)=$$GET^HLOPRS(.TO,6,3)"
^XMB(3.9,40,2,1027,0)="""RTN"",""HLPRS"",90,0)"
^XMB(3.9,40,2,1028,0)=" .S HDR(""DT/TM OF MESSAGE"")=$$FMDATE^HLFNC($$GET^HLOPRS(.TO,7))"
^XMB(3.9,40,2,1029,0)="""RTN"",""HLPRS"",91,0)"
^XMB(3.9,40,2,1030,0)=" .S HDR(""SECURITY"")=$$GET^HLOPRS(.TO,8)"
^XMB(3.9,40,2,1031,0)="""RTN"",""HLPRS"",92,0)"
^XMB(3.9,40,2,1032,0)=" .I HDR(""SEGMENT TYPE"")=""MSH"" D"
^XMB(3.9,40,2,1033,0)="""RTN"",""HLPRS"",93,0)"
^XMB(3.9,40,2,1034,0)=" ..S HDR(""MESSAGE TYPE"")=$$GET^HLOPRS(.TO,9,1)"
^XMB(3.9,40,2,1035,0)="""RTN"",""HLPRS"",94,0)"
^XMB(3.9,40,2,1036,0)=" ..S HDR(""EVENT"")=$$GET^HLOPRS(.TO,9,2)"
^XMB(3.9,40,2,1037,0)="""RTN"",""HLPRS"",95,0)"
^XMB(3.9,40,2,1038,0)=" ..S HDR(""MESSAGE STRUCTURE"")=$$GET^HLOPRS(.TO,9,3)"
^XMB(3.9,40,2,1039,0)="""RTN"",""HLPRS"",96,0)"
^XMB(3.9,40,2,1040,0)=" ..S HDR(""MESSAGE CONTROL ID"")=$$GET^HLOPRS(.TO,10)"
^XMB(3.9,40,2,1041,0)="""RTN"",""HLPRS"",97,0)"
^XMB(3.9,40,2,1042,0)=" ..S HDR(""PROCESSING ID"")=$$GET^HLOPRS(.TO,11)"
^XMB(3.9,40,2,1043,0)="""RTN"",""HLPRS"",98,0)"
^XMB(3.9,40,2,1044,0)=" ..S HDR(""PROCESSING MODE"")=$$GET^HLOPRS(.TO,11,2)"
^XMB(3.9,40,2,1045,0)="""RTN"",""HLPRS"",99,0)"
^XMB(3.9,40,2,1046,0)=" ..S HDR(""VERSION"")=$$GET^HLOPRS(.TO,12)"
^XMB(3.9,40,2,1047,0)="""RTN"",""HLPRS"",100,0)"
^XMB(3.9,40,2,1048,0)=" ..S HDR(""CONTINUATION POINTER"")=$$GET^HLOPRS(.TO,14)"
^XMB(3.9,40,2,1049,0)="""RTN"",""HLPRS"",101,0)"
^XMB(3.9,40,2,1050,0)=" ..S HDR(""ACCEPT ACK TYPE"")=$$GET^HLOPRS(.TO,15)"
^XMB(3.9,40,2,1051,0)="""RTN"",""HLPRS"",102,0)"
^XMB(3.9,40,2,1052,0)=" ..S HDR(""APP ACK TYPE"")=$$GET^HLOPRS(.TO,16)"
^XMB(3.9,40,2,1053,0)="""RTN"",""HLPRS"",103,0)"
^XMB(3.9,40,2,1054,0)=" ..S HDR(""COUNTRY"")=$$GET^HLOPRS(.TO,17)"
^XMB(3.9,40,2,1055,0)="""RTN"",""HLPRS"",104,0)"
^XMB(3.9,40,2,1056,0)=" .I HDR(""SEGMENT TYPE"")=""BHS"" D"
^XMB(3.9,40,2,1057,0)="""RTN"",""HLPRS"",105,0)"
^XMB(3.9,40,2,1058,0)=" ..S VALUE=$$GET^HLOPRS(.TO,9)"
^XMB(3.9,40,2,1059,0)="""RTN"",""HLPRS"",106,0)"
^XMB(3.9,40,2,1060,0)=" ..S HDR(""BATCH NAME/ID/TYPE"")=VALUE"
^XMB(3.9,40,2,1061,0)="""RTN"",""HLPRS"",107,0)"
^XMB(3.9,40,2,1062,0)=" ..S HDR(""PROCESSING ID"")=$S((VALUE[""PROCESSING ID=""):$E($P(VALUE,""PROCESSING ID="",2),1),1:$$GET^HLOPRS(.TO,9,2))"
^XMB(3.9,40,2,1063,0)="""RTN"",""HLPRS"",108,0)"
^XMB(3.9,40,2,1064,0)=" ..S HDR(""ACCEPT ACK TYPE"")=$S((VALUE[""ACCEPT ACK TYPE=""):$E($P(VALUE,""ACCEPT ACK TYPE="",2),1,2),1:$$GET^HLOPRS(.TO,9,3,1,2))"
^XMB(3.9,40,2,1065,0)="""RTN"",""HLPRS"",109,0)"
^XMB(3.9,40,2,1066,0)=" ..S HDR(""APP ACK TYPE"")=$S((VALUE[""APP ACK TYPE=""):$E($P(VALUE,""APP ACK TYPE="",2),1,2),1:$$GET^HLOPRS(.TO,9,4,1,2))"
^XMB(3.9,40,2,1067,0)="""RTN"",""HLPRS"",110,0)"
^XMB(3.9,40,2,1068,0)=" ..S HDR(""BATCH COMMENT"")=$$GET^HLOPRS(.TO,10)"
^XMB(3.9,40,2,1069,0)="""RTN"",""HLPRS"",111,0)"
^XMB(3.9,40,2,1070,0)=" ..S HDR(""BATCH CONTROL ID"")=$$GET^HLOPRS(.TO,11)"
^XMB(3.9,40,2,1071,0)="""RTN"",""HLPRS"",112,0)"
^XMB(3.9,40,2,1072,0)=" ..S HDR(""REFERENCE BATCH CONTROL ID"")=$$GET^HLOPRS(.TO,12)"
^XMB(3.9,40,2,1073,0)="""RTN"",""HLPRS"",113,0)"
^XMB(3.9,40,2,1074,0)=" ..;"
^XMB(3.9,40,2,1075,0)="""RTN"",""HLPRS"",114,0)"
^XMB(3.9,40,2,1076,0)=" Q 1"
^XMB(3.9,40,2,1077,0)="""VER"")"
^XMB(3.9,40,2,1078,0)="8.0^22.0"
^XMB(3.9,40,2,1079,0)="""BLD"",828,6)"
^XMB(3.9,40,2,1080,0)="^SEQ #100"
^XMB(3.9,40,2,1081,0)="$END KID HL*1.6*118"
^XMB(3.9,40,6,0)="^3.911A^2^2"
^XMB(3.9,40,6,1,0)="POSTMASTER"
^XMB(3.9,40,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,40,6,"B","POSTMASTER",1)=""
^XMB(3.9,40,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,41,0)="HL-1P6_SEQ-101_PAT-126.KID^.5^3061008.015734^^^^K"
^XMB(3.9,41,.6)="3061008"
^XMB(3.9,41,1,0)="^3.91A^2^2"
^XMB(3.9,41,1,1,0)=".5^0^3061008.015734^^^^^^^3061008.015734"
^XMB(3.9,41,1,2,0)="1^0^3061008.023201^^^^^^^3061008.023201"
^XMB(3.9,41,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,41,1,"C",.5,1)=""
^XMB(3.9,41,1,"C",1,2)=""
^XMB(3.9,41,2,0)="^^15765^15765^3061008"
^XMB(3.9,41,2,1,0)="$TXT Released HL*1.6*126 SEQ #101"
^XMB(3.9,41,2,2,0)="Extracted from mail message"
^XMB(3.9,41,2,3,0)="$END TXT"
^XMB(3.9,41,2,4,0)="$KID HL*1.6*126"
^XMB(3.9,41,2,5,0)="**INSTALL NAME**"
^XMB(3.9,41,2,6,0)="HL*1.6*126"
^XMB(3.9,41,2,7,0)="""BLD"",838,0)"
^XMB(3.9,41,2,8,0)="HL*1.6*126^HEALTH LEVEL SEVEN^0^3050921^y"
^XMB(3.9,41,2,9,0)="""BLD"",838,1,0)"
^XMB(3.9,41,2,10,0)="^^1^1^3050131^^"
^XMB(3.9,41,2,11,0)="""BLD"",838,1,1,0)"
^XMB(3.9,41,2,12,0)="HL7 2.0"
^XMB(3.9,41,2,13,0)="""BLD"",838,4,0)"
^XMB(3.9,41,2,14,0)="^9.64PA^779.4^7"
^XMB(3.9,41,2,15,0)="""BLD"",838,4,777,0)"
^XMB(3.9,41,2,16,0)="777"
^XMB(3.9,41,2,17,0)="""BLD"",838,4,777,222)"
^XMB(3.9,41,2,18,0)="y^n^f^^^^n"
^XMB(3.9,41,2,19,0)="""BLD"",838,4,778,0)"
^XMB(3.9,41,2,20,0)="778"
^XMB(3.9,41,2,21,0)="""BLD"",838,4,778,222)"
^XMB(3.9,41,2,22,0)="y^n^f^^^^n"
^XMB(3.9,41,2,23,0)="""BLD"",838,4,779.1,0)"
^XMB(3.9,41,2,24,0)="779.1"
^XMB(3.9,41,2,25,0)="""BLD"",838,4,779.1,222)"
^XMB(3.9,41,2,26,0)="y^n^f^^^^n"
^XMB(3.9,41,2,27,0)="""BLD"",838,4,779.2,0)"
^XMB(3.9,41,2,28,0)="779.2"
^XMB(3.9,41,2,29,0)="""BLD"",838,4,779.2,222)"
^XMB(3.9,41,2,30,0)="y^n^f^^^^n"
^XMB(3.9,41,2,31,0)="""BLD"",838,4,779.3,0)"
^XMB(3.9,41,2,32,0)="779.3"
^XMB(3.9,41,2,33,0)="""BLD"",838,4,779.3,222)"
^XMB(3.9,41,2,34,0)="y^n^f^^y^^y^a^n"
^XMB(3.9,41,2,35,0)="""BLD"",838,4,779.4,0)"
^XMB(3.9,41,2,36,0)="779.4"
^XMB(3.9,41,2,37,0)="""BLD"",838,4,779.4,222)"
^XMB(3.9,41,2,38,0)="y^y^f^^^^n"
^XMB(3.9,41,2,39,0)="""BLD"",838,4,870,0)"
^XMB(3.9,41,2,40,0)="870"
^XMB(3.9,41,2,41,0)="""BLD"",838,4,870,222)"
^XMB(3.9,41,2,42,0)="y^n^f^^^^n"
^XMB(3.9,41,2,43,0)="""BLD"",838,4,""B"",777,777)"
^XMB(3.9,41,2,44,0)=""
^XMB(3.9,41,2,45,0)="""BLD"",838,4,""B"",778,778)"
^XMB(3.9,41,2,46,0)=""
^XMB(3.9,41,2,47,0)="""BLD"",838,4,""B"",779.1,779.1)"
^XMB(3.9,41,2,48,0)=""
^XMB(3.9,41,2,49,0)="""BLD"",838,4,""B"",779.2,779.2)"
^XMB(3.9,41,2,50,0)=""
^XMB(3.9,41,2,51,0)="""BLD"",838,4,""B"",779.3,779.3)"
^XMB(3.9,41,2,52,0)=""
^XMB(3.9,41,2,53,0)="""BLD"",838,4,""B"",779.4,779.4)"
^XMB(3.9,41,2,54,0)=""
^XMB(3.9,41,2,55,0)="""BLD"",838,4,""B"",870,870)"
^XMB(3.9,41,2,56,0)=""
^XMB(3.9,41,2,57,0)="""BLD"",838,""ABPKG"")"
^XMB(3.9,41,2,58,0)="n"
^XMB(3.9,41,2,59,0)="""BLD"",838,""INID"")"
^XMB(3.9,41,2,60,0)="^n"
^XMB(3.9,41,2,61,0)="""BLD"",838,""INIT"")"
^XMB(3.9,41,2,62,0)="HLOPOST"
^XMB(3.9,41,2,63,0)="""BLD"",838,""KRN"",0)"
^XMB(3.9,41,2,64,0)="^9.67PA^8989.52^19"
^XMB(3.9,41,2,65,0)="""BLD"",838,""KRN"",.4,0)"
^XMB(3.9,41,2,66,0)=".4"
^XMB(3.9,41,2,67,0)="""BLD"",838,""KRN"",.401,0)"
^XMB(3.9,41,2,68,0)=".401"
^XMB(3.9,41,2,69,0)="""BLD"",838,""KRN"",.402,0)"
^XMB(3.9,41,2,70,0)=".402"
^XMB(3.9,41,2,71,0)="""BLD"",838,""KRN"",.402,""NM"",0)"
^XMB(3.9,41,2,72,0)="^9.68A^1^1"
^XMB(3.9,41,2,73,0)="""BLD"",838,""KRN"",.402,""NM"",1,0)"
^XMB(3.9,41,2,74,0)="HLOAPREG    FILE #779.2^779.2^0"
^XMB(3.9,41,2,75,0)="""BLD"",838,""KRN"",.402,""NM"",""B"",""HLOAPREG    FILE #779.2"",1)"
^XMB(3.9,41,2,76,0)=""
^XMB(3.9,41,2,77,0)="""BLD"",838,""KRN"",.403,0)"
^XMB(3.9,41,2,78,0)=".403"
^XMB(3.9,41,2,79,0)="""BLD"",838,""KRN"",.403,""NM"",0)"
^XMB(3.9,41,2,80,0)="^9.68A^1^1"
^XMB(3.9,41,2,81,0)="""BLD"",838,""KRN"",.403,""NM"",1,0)"
^XMB(3.9,41,2,82,0)="HL7 LOGICAL LINK    FILE #870^870^0"
^XMB(3.9,41,2,83,0)="""BLD"",838,""KRN"",.403,""NM"",""B"",""HL7 LOGICAL LINK    FILE #870"",1)"
^XMB(3.9,41,2,84,0)=""
^XMB(3.9,41,2,85,0)="""BLD"",838,""KRN"",.5,0)"
^XMB(3.9,41,2,86,0)=".5"
^XMB(3.9,41,2,87,0)="""BLD"",838,""KRN"",.5,""NM"",0)"
^XMB(3.9,41,2,88,0)="^9.68A^^"
^XMB(3.9,41,2,89,0)="""BLD"",838,""KRN"",.84,0)"
^XMB(3.9,41,2,90,0)=".84"
^XMB(3.9,41,2,91,0)="""BLD"",838,""KRN"",3.6,0)"
^XMB(3.9,41,2,92,0)="3.6"
^XMB(3.9,41,2,93,0)="""BLD"",838,""KRN"",3.8,0)"
^XMB(3.9,41,2,94,0)="3.8"
^XMB(3.9,41,2,95,0)="""BLD"",838,""KRN"",9.2,0)"
^XMB(3.9,41,2,96,0)="9.2"
^XMB(3.9,41,2,97,0)="""BLD"",838,""KRN"",9.8,0)"
^XMB(3.9,41,2,98,0)="9.8"
^XMB(3.9,41,2,99,0)="""BLD"",838,""KRN"",9.8,""NM"",0)"
^XMB(3.9,41,2,100,0)="^9.68A^49^38"
^XMB(3.9,41,2,101,0)="""BLD"",838,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,41,2,102,0)="HLOAPI^^0^35456611"
^XMB(3.9,41,2,103,0)="""BLD"",838,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,41,2,104,0)="HLOAPI1^^0^47488160"
^XMB(3.9,41,2,105,0)="""BLD"",838,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,41,2,106,0)="HLOAPI2^^0^27708015"
^XMB(3.9,41,2,107,0)="""BLD"",838,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,41,2,108,0)="HLOAPI3^^0^30983602"
^XMB(3.9,41,2,109,0)="""BLD"",838,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,41,2,110,0)="HLOAPP^^0^4658819"
^XMB(3.9,41,2,111,0)="""BLD"",838,""KRN"",9.8,""NM"",6,0)"
^XMB(3.9,41,2,112,0)="HLOASUB^^0^20309588"
^XMB(3.9,41,2,113,0)="""BLD"",838,""KRN"",9.8,""NM"",7,0)"
^XMB(3.9,41,2,114,0)="HLOASUB1^^0^53189937"
^XMB(3.9,41,2,115,0)="""BLD"",838,""KRN"",9.8,""NM"",8,0)"
^XMB(3.9,41,2,116,0)="HLOCLNT^^0^65447935"
^XMB(3.9,41,2,117,0)="""BLD"",838,""KRN"",9.8,""NM"",9,0)"
^XMB(3.9,41,2,118,0)="HLOCLNT1^^0^25822354"
^XMB(3.9,41,2,119,0)="""BLD"",838,""KRN"",9.8,""NM"",10,0)"
^XMB(3.9,41,2,120,0)="HLOCLNT2^^0^12124771"
^XMB(3.9,41,2,121,0)="""BLD"",838,""KRN"",9.8,""NM"",11,0)"
^XMB(3.9,41,2,122,0)="HLOCLNT3^^0^3706254"
^XMB(3.9,41,2,123,0)="""BLD"",838,""KRN"",9.8,""NM"",20,0)"
^XMB(3.9,41,2,124,0)="HLOF777^^0^12330869"
^XMB(3.9,41,2,125,0)="""BLD"",838,""KRN"",9.8,""NM"",21,0)"
^XMB(3.9,41,2,126,0)="HLOF778^^0^26674072"
^XMB(3.9,41,2,127,0)="""BLD"",838,""KRN"",9.8,""NM"",22,0)"
^XMB(3.9,41,2,128,0)="HLOF778A^^0^35675106"
^XMB(3.9,41,2,129,0)="""BLD"",838,""KRN"",9.8,""NM"",23,0)"
^XMB(3.9,41,2,130,0)="HLOFILER^^0^18562276"
^XMB(3.9,41,2,131,0)="""BLD"",838,""KRN"",9.8,""NM"",24,0)"
^XMB(3.9,41,2,132,0)="HLOMSG^^0^44340349"
^XMB(3.9,41,2,133,0)="""BLD"",838,""KRN"",9.8,""NM"",25,0)"
^XMB(3.9,41,2,134,0)="HLOPBLD^^0^10420625"
^XMB(3.9,41,2,135,0)="""BLD"",838,""KRN"",9.8,""NM"",26,0)"
^XMB(3.9,41,2,136,0)="HLOPBLD1^^0^18903926"
^XMB(3.9,41,2,137,0)="""BLD"",838,""KRN"",9.8,""NM"",27,0)"
^XMB(3.9,41,2,138,0)="HLOPOST^^0^3878072"
^XMB(3.9,41,2,139,0)="""BLD"",838,""KRN"",9.8,""NM"",28,0)"
^XMB(3.9,41,2,140,0)="HLOPROC^^0^24878795"
^XMB(3.9,41,2,141,0)="""BLD"",838,""KRN"",9.8,""NM"",29,0)"
^XMB(3.9,41,2,142,0)="HLOPROC1^^0^37655107"
^XMB(3.9,41,2,143,0)="""BLD"",838,""KRN"",9.8,""NM"",32,0)"
^XMB(3.9,41,2,144,0)="HLOPURGE^^0^28987748"
^XMB(3.9,41,2,145,0)="""BLD"",838,""KRN"",9.8,""NM"",33,0)"
^XMB(3.9,41,2,146,0)="HLOQUE^^0^5007132"
^XMB(3.9,41,2,147,0)="""BLD"",838,""KRN"",9.8,""NM"",35,0)"
^XMB(3.9,41,2,148,0)="HLOSITE^^0^5183865"
^XMB(3.9,41,2,149,0)="""BLD"",838,""KRN"",9.8,""NM"",36,0)"
^XMB(3.9,41,2,150,0)="HLOSRVR^^0^67857069"
^XMB(3.9,41,2,151,0)="""BLD"",838,""KRN"",9.8,""NM"",37,0)"
^XMB(3.9,41,2,152,0)="HLOSRVR1^^0^62638202"
^XMB(3.9,41,2,153,0)="""BLD"",838,""KRN"",9.8,""NM"",38,0)"
^XMB(3.9,41,2,154,0)="HLOT^^0^2539193"
^XMB(3.9,41,2,155,0)="""BLD"",838,""KRN"",9.8,""NM"",39,0)"
^XMB(3.9,41,2,156,0)="HLOTCP^^0^43009690"
^XMB(3.9,41,2,157,0)="""BLD"",838,""KRN"",9.8,""NM"",40,0)"
^XMB(3.9,41,2,158,0)="HLOTLNK^^0^15931185"
^XMB(3.9,41,2,159,0)="""BLD"",838,""KRN"",9.8,""NM"",41,0)"
^XMB(3.9,41,2,160,0)="HLOUSR^^0^88426707"
^XMB(3.9,41,2,161,0)="""BLD"",838,""KRN"",9.8,""NM"",42,0)"
^XMB(3.9,41,2,162,0)="HLOUSR1^^0^64766610"
^XMB(3.9,41,2,163,0)="""BLD"",838,""KRN"",9.8,""NM"",43,0)"
^XMB(3.9,41,2,164,0)="HLOUSR2^^0^44072105"
^XMB(3.9,41,2,165,0)="""BLD"",838,""KRN"",9.8,""NM"",44,0)"
^XMB(3.9,41,2,166,0)="HLOMSG1^^0^6084209"
^XMB(3.9,41,2,167,0)="""BLD"",838,""KRN"",9.8,""NM"",45,0)"
^XMB(3.9,41,2,168,0)="HLOUSR3^^0^18658983"
^XMB(3.9,41,2,169,0)="""BLD"",838,""KRN"",9.8,""NM"",46,0)"
^XMB(3.9,41,2,170,0)="HLOCVU^^0^5066511"
^XMB(3.9,41,2,171,0)="""BLD"",838,""KRN"",9.8,""NM"",47,0)"
^XMB(3.9,41,2,172,0)="HLOCNRT^^0^4743338"
^XMB(3.9,41,2,173,0)="""BLD"",838,""KRN"",9.8,""NM"",48,0)"
^XMB(3.9,41,2,174,0)="HLMA3^^0^26373063"
^XMB(3.9,41,2,175,0)="""BLD"",838,""KRN"",9.8,""NM"",49,0)"
^XMB(3.9,41,2,176,0)="HLOPRS^^0^30060156"
^XMB(3.9,41,2,177,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLMA3"",48)"
^XMB(3.9,41,2,178,0)=""
^XMB(3.9,41,2,179,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOAPI"",1)"
^XMB(3.9,41,2,180,0)=""
^XMB(3.9,41,2,181,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOAPI1"",2)"
^XMB(3.9,41,2,182,0)=""
^XMB(3.9,41,2,183,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOAPI2"",3)"
^XMB(3.9,41,2,184,0)=""
^XMB(3.9,41,2,185,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOAPI3"",4)"
^XMB(3.9,41,2,186,0)=""
^XMB(3.9,41,2,187,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOAPP"",5)"
^XMB(3.9,41,2,188,0)=""
^XMB(3.9,41,2,189,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOASUB"",6)"
^XMB(3.9,41,2,190,0)=""
^XMB(3.9,41,2,191,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOASUB1"",7)"
^XMB(3.9,41,2,192,0)=""
^XMB(3.9,41,2,193,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOCLNT"",8)"
^XMB(3.9,41,2,194,0)=""
^XMB(3.9,41,2,195,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOCLNT1"",9)"
^XMB(3.9,41,2,196,0)=""
^XMB(3.9,41,2,197,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOCLNT2"",10)"
^XMB(3.9,41,2,198,0)=""
^XMB(3.9,41,2,199,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOCLNT3"",11)"
^XMB(3.9,41,2,200,0)=""
^XMB(3.9,41,2,201,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOCNRT"",47)"
^XMB(3.9,41,2,202,0)=""
^XMB(3.9,41,2,203,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOCVU"",46)"
^XMB(3.9,41,2,204,0)=""
^XMB(3.9,41,2,205,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOF777"",20)"
^XMB(3.9,41,2,206,0)=""
^XMB(3.9,41,2,207,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOF778"",21)"
^XMB(3.9,41,2,208,0)=""
^XMB(3.9,41,2,209,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOF778A"",22)"
^XMB(3.9,41,2,210,0)=""
^XMB(3.9,41,2,211,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOFILER"",23)"
^XMB(3.9,41,2,212,0)=""
^XMB(3.9,41,2,213,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOMSG"",24)"
^XMB(3.9,41,2,214,0)=""
^XMB(3.9,41,2,215,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOMSG1"",44)"
^XMB(3.9,41,2,216,0)=""
^XMB(3.9,41,2,217,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOPBLD"",25)"
^XMB(3.9,41,2,218,0)=""
^XMB(3.9,41,2,219,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOPBLD1"",26)"
^XMB(3.9,41,2,220,0)=""
^XMB(3.9,41,2,221,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOPOST"",27)"
^XMB(3.9,41,2,222,0)=""
^XMB(3.9,41,2,223,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOPROC"",28)"
^XMB(3.9,41,2,224,0)=""
^XMB(3.9,41,2,225,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOPROC1"",29)"
^XMB(3.9,41,2,226,0)=""
^XMB(3.9,41,2,227,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOPRS"",49)"
^XMB(3.9,41,2,228,0)=""
^XMB(3.9,41,2,229,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOPURGE"",32)"
^XMB(3.9,41,2,230,0)=""
^XMB(3.9,41,2,231,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOQUE"",33)"
^XMB(3.9,41,2,232,0)=""
^XMB(3.9,41,2,233,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOSITE"",35)"
^XMB(3.9,41,2,234,0)=""
^XMB(3.9,41,2,235,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOSRVR"",36)"
^XMB(3.9,41,2,236,0)=""
^XMB(3.9,41,2,237,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOSRVR1"",37)"
^XMB(3.9,41,2,238,0)=""
^XMB(3.9,41,2,239,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOT"",38)"
^XMB(3.9,41,2,240,0)=""
^XMB(3.9,41,2,241,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOTCP"",39)"
^XMB(3.9,41,2,242,0)=""
^XMB(3.9,41,2,243,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOTLNK"",40)"
^XMB(3.9,41,2,244,0)=""
^XMB(3.9,41,2,245,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOUSR"",41)"
^XMB(3.9,41,2,246,0)=""
^XMB(3.9,41,2,247,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOUSR1"",42)"
^XMB(3.9,41,2,248,0)=""
^XMB(3.9,41,2,249,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOUSR2"",43)"
^XMB(3.9,41,2,250,0)=""
^XMB(3.9,41,2,251,0)="""BLD"",838,""KRN"",9.8,""NM"",""B"",""HLOUSR3"",45)"
^XMB(3.9,41,2,252,0)=""
^XMB(3.9,41,2,253,0)="""BLD"",838,""KRN"",19,0)"
^XMB(3.9,41,2,254,0)="19"
^XMB(3.9,41,2,255,0)="""BLD"",838,""KRN"",19,""NM"",0)"
^XMB(3.9,41,2,256,0)="^9.68A^7^7"
^XMB(3.9,41,2,257,0)="""BLD"",838,""KRN"",19,""NM"",1,0)"
^XMB(3.9,41,2,258,0)="HLO APPLICATION REGISTRY^^0"
^XMB(3.9,41,2,259,0)="""BLD"",838,""KRN"",19,""NM"",2,0)"
^XMB(3.9,41,2,260,0)="HLO COUNT RECORDS^^0"
^XMB(3.9,41,2,261,0)="""BLD"",838,""KRN"",19,""NM"",3,0)"
^XMB(3.9,41,2,262,0)="HLO MAIN MENU^^0"
^XMB(3.9,41,2,263,0)="""BLD"",838,""KRN"",19,""NM"",4,0)"
^XMB(3.9,41,2,264,0)="HLO MESSAGE VIEWER^^0"
^XMB(3.9,41,2,265,0)="""BLD"",838,""KRN"",19,""NM"",5,0)"
^XMB(3.9,41,2,266,0)="HLO SYSTEM MONITOR^^0"
^XMB(3.9,41,2,267,0)="""BLD"",838,""KRN"",19,""NM"",6,0)"
^XMB(3.9,41,2,268,0)="HLO SYSTEM STARTUP^^0"
^XMB(3.9,41,2,269,0)="""BLD"",838,""KRN"",19,""NM"",7,0)"
^XMB(3.9,41,2,270,0)="HL MAIN MENU^^2"
^XMB(3.9,41,2,271,0)="""BLD"",838,""KRN"",19,""NM"",""B"",""HL MAIN MENU"",7)"
^XMB(3.9,41,2,272,0)=""
^XMB(3.9,41,2,273,0)="""BLD"",838,""KRN"",19,""NM"",""B"",""HLO APPLICATION REGISTRY"",1)"
^XMB(3.9,41,2,274,0)=""
^XMB(3.9,41,2,275,0)="""BLD"",838,""KRN"",19,""NM"",""B"",""HLO COUNT RECORDS"",2)"
^XMB(3.9,41,2,276,0)=""
^XMB(3.9,41,2,277,0)="""BLD"",838,""KRN"",19,""NM"",""B"",""HLO MAIN MENU"",3)"
^XMB(3.9,41,2,278,0)=""
^XMB(3.9,41,2,279,0)="""BLD"",838,""KRN"",19,""NM"",""B"",""HLO MESSAGE VIEWER"",4)"
^XMB(3.9,41,2,280,0)=""
^XMB(3.9,41,2,281,0)="""BLD"",838,""KRN"",19,""NM"",""B"",""HLO SYSTEM MONITOR"",5)"
^XMB(3.9,41,2,282,0)=""
^XMB(3.9,41,2,283,0)="""BLD"",838,""KRN"",19,""NM"",""B"",""HLO SYSTEM STARTUP"",6)"
^XMB(3.9,41,2,284,0)=""
^XMB(3.9,41,2,285,0)="""BLD"",838,""KRN"",19.1,0)"
^XMB(3.9,41,2,286,0)="19.1"
^XMB(3.9,41,2,287,0)="""BLD"",838,""KRN"",19.1,""NM"",0)"
^XMB(3.9,41,2,288,0)="^9.68A^^"
^XMB(3.9,41,2,289,0)="""BLD"",838,""KRN"",101,0)"
^XMB(3.9,41,2,290,0)="101"
^XMB(3.9,41,2,291,0)="""BLD"",838,""KRN"",101,""NM"",0)"
^XMB(3.9,41,2,292,0)="^9.68A^20^20"
^XMB(3.9,41,2,293,0)="""BLD"",838,""KRN"",101,""NM"",1,0)"
^XMB(3.9,41,2,294,0)="HLO APPLICATION ERRORED MESSAGES^^0"
^XMB(3.9,41,2,295,0)="""BLD"",838,""KRN"",101,""NM"",2,0)"
^XMB(3.9,41,2,296,0)="HLO BRIEF SYSTEM STATUS^^0"
^XMB(3.9,41,2,297,0)="""BLD"",838,""KRN"",101,""NM"",3,0)"
^XMB(3.9,41,2,298,0)="HLO DISPLAY OUT-GOING QUEUES^^0"
^XMB(3.9,41,2,299,0)="""BLD"",838,""KRN"",101,""NM"",4,0)"
^XMB(3.9,41,2,300,0)="HLO DISPLAY PROCESSES^^0"
^XMB(3.9,41,2,301,0)="""BLD"",838,""KRN"",101,""NM"",5,0)"
^XMB(3.9,41,2,302,0)="HLO DISPLAY SINGLE MESSAGE^^0"
^XMB(3.9,41,2,303,0)="""BLD"",838,""KRN"",101,""NM"",6,0)"
^XMB(3.9,41,2,304,0)="HLO DISPLAY SYSTEM ERRORED MESSAGES^^0"
^XMB(3.9,41,2,305,0)="""BLD"",838,""KRN"",101,""NM"",7,0)"
^XMB(3.9,41,2,306,0)="HLO DOWN LINKS^^0"
^XMB(3.9,41,2,307,0)="""BLD"",838,""KRN"",101,""NM"",8,0)"
^XMB(3.9,41,2,308,0)="HLO INCOMING QUEUES^^0"
^XMB(3.9,41,2,309,0)="""BLD"",838,""KRN"",101,""NM"",9,0)"
^XMB(3.9,41,2,310,0)="HLO MESSAGE VIEWER MENU^^0"
^XMB(3.9,41,2,311,0)="""BLD"",838,""KRN"",101,""NM"",10,0)"
^XMB(3.9,41,2,312,0)="HLO MONITOR MODE^^0"
^XMB(3.9,41,2,313,0)="""BLD"",838,""KRN"",101,""NM"",11,0)"
^XMB(3.9,41,2,314,0)="HLO SCROLL MODE^^0"
^XMB(3.9,41,2,315,0)="""BLD"",838,""KRN"",101,""NM"",12,0)"
^XMB(3.9,41,2,316,0)="HLO START MENU^^0"
^XMB(3.9,41,2,317,0)="""BLD"",838,""KRN"",101,""NM"",13,0)"
^XMB(3.9,41,2,318,0)="HLO START/STOP ONE QUEUE^^0"
^XMB(3.9,41,2,319,0)="""BLD"",838,""KRN"",101,""NM"",14,0)"
^XMB(3.9,41,2,320,0)="HLO STOP SYSTEM^^0"
^XMB(3.9,41,2,321,0)="""BLD"",838,""KRN"",101,""NM"",15,0)"
^XMB(3.9,41,2,322,0)="HLO SYSTEM MONITOR MENU^^0"
^XMB(3.9,41,2,323,0)="""BLD"",838,""KRN"",101,""NM"",16,0)"
^XMB(3.9,41,2,324,0)="HLO TEST LINK^^0"
^XMB(3.9,41,2,325,0)="""BLD"",838,""KRN"",101,""NM"",17,0)"
^XMB(3.9,41,2,326,0)="HLO TRANSMISSION FAILURES^^0"
^XMB(3.9,41,2,327,0)="""BLD"",838,""KRN"",101,""NM"",18,0)"
^XMB(3.9,41,2,328,0)="HLO VIEW A LINK^^0"
^XMB(3.9,41,2,329,0)="""BLD"",838,""KRN"",101,""NM"",19,0)"
^XMB(3.9,41,2,330,0)="HLO MESSAGE SEARCH^^0"
^XMB(3.9,41,2,331,0)="""BLD"",838,""KRN"",101,""NM"",20,0)"
^XMB(3.9,41,2,332,0)="HLO MESSAGE SEARCH MENU^^0"
^XMB(3.9,41,2,333,0)="""BLD"",838,""KRN"",101,""NM"",""B"",""HLO APPLICATION ERRORED MESSAGES"",1)"
^XMB(3.9,41,2,334,0)=""
^XMB(3.9,41,2,335,0)="""BLD"",838,""KRN"",101,""NM"",""B"",""HLO BRIEF SYSTEM STATUS"",2)"
^XMB(3.9,41,2,336,0)=""
^XMB(3.9,41,2,337,0)="""BLD"",838,""KRN"",101,""NM"",""B"",""HLO DISPLAY OUT-GOING QUEUES"",3)"
^XMB(3.9,41,2,338,0)=""
^XMB(3.9,41,2,339,0)="""BLD"",838,""KRN"",101,""NM"",""B"",""HLO DISPLAY PROCESSES"",4)"
^XMB(3.9,41,2,340,0)=""
^XMB(3.9,41,2,341,0)="""BLD"",838,""KRN"",101,""NM"",""B"",""HLO DISPLAY SINGLE MESSAGE"",5)"
^XMB(3.9,41,2,342,0)=""
^XMB(3.9,41,2,343,0)="""BLD"",838,""KRN"",101,""NM"",""B"",""HLO DISPLAY SYSTEM ERRORED MESSAGES"",6)"
^XMB(3.9,41,2,344,0)=""
^XMB(3.9,41,2,345,0)="""BLD"",838,""KRN"",101,""NM"",""B"",""HLO DOWN LINKS"",7)"
^XMB(3.9,41,2,346,0)=""
^XMB(3.9,41,2,347,0)="""BLD"",838,""KRN"",101,""NM"",""B"",""HLO INCOMING QUEUES"",8)"
^XMB(3.9,41,2,348,0)=""
^XMB(3.9,41,2,349,0)="""BLD"",838,""KRN"",101,""NM"",""B"",""HLO MESSAGE SEARCH"",19)"
^XMB(3.9,41,2,350,0)=""
^XMB(3.9,41,2,351,0)="""BLD"",838,""KRN"",101,""NM"",""B"",""HLO MESSAGE SEARCH MENU"",20)"
^XMB(3.9,41,2,352,0)=""
^XMB(3.9,41,2,353,0)="""BLD"",838,""KRN"",101,""NM"",""B"",""HLO MESSAGE VIEWER MENU"",9)"
^XMB(3.9,41,2,354,0)=""
^XMB(3.9,41,2,355,0)="""BLD"",838,""KRN"",101,""NM"",""B"",""HLO MONITOR MODE"",10)"
^XMB(3.9,41,2,356,0)=""
^XMB(3.9,41,2,357,0)="""BLD"",838,""KRN"",101,""NM"",""B"",""HLO SCROLL MODE"",11)"
^XMB(3.9,41,2,358,0)=""
^XMB(3.9,41,2,359,0)="""BLD"",838,""KRN"",101,""NM"",""B"",""HLO START MENU"",12)"
^XMB(3.9,41,2,360,0)=""
^XMB(3.9,41,2,361,0)="""BLD"",838,""KRN"",101,""NM"",""B"",""HLO START/STOP ONE QUEUE"",13)"
^XMB(3.9,41,2,362,0)=""
^XMB(3.9,41,2,363,0)="""BLD"",838,""KRN"",101,""NM"",""B"",""HLO STOP SYSTEM"",14)"
^XMB(3.9,41,2,364,0)=""
^XMB(3.9,41,2,365,0)="""BLD"",838,""KRN"",101,""NM"",""B"",""HLO SYSTEM MONITOR MENU"",15)"
^XMB(3.9,41,2,366,0)=""
^XMB(3.9,41,2,367,0)="""BLD"",838,""KRN"",101,""NM"",""B"",""HLO TEST LINK"",16)"
^XMB(3.9,41,2,368,0)=""
^XMB(3.9,41,2,369,0)="""BLD"",838,""KRN"",101,""NM"",""B"",""HLO TRANSMISSION FAILURES"",17)"
^XMB(3.9,41,2,370,0)=""
^XMB(3.9,41,2,371,0)="""BLD"",838,""KRN"",101,""NM"",""B"",""HLO VIEW A LINK"",18)"
^XMB(3.9,41,2,372,0)=""
^XMB(3.9,41,2,373,0)="""BLD"",838,""KRN"",409.61,0)"
^XMB(3.9,41,2,374,0)="409.61"
^XMB(3.9,41,2,375,0)="""BLD"",838,""KRN"",409.61,""NM"",0)"
^XMB(3.9,41,2,376,0)="^9.68A^4^4"
^XMB(3.9,41,2,377,0)="""BLD"",838,""KRN"",409.61,""NM"",1,0)"
^XMB(3.9,41,2,378,0)="HLO MESSAGE VIEWER^^0"
^XMB(3.9,41,2,379,0)="""BLD"",838,""KRN"",409.61,""NM"",2,0)"
^XMB(3.9,41,2,380,0)="HLO SYSTEM MONITOR^^0"
^XMB(3.9,41,2,381,0)="""BLD"",838,""KRN"",409.61,""NM"",3,0)"
^XMB(3.9,41,2,382,0)="HLO MESSAGE SEARCH^^0"
^XMB(3.9,41,2,383,0)="""BLD"",838,""KRN"",409.61,""NM"",4,0)"
^XMB(3.9,41,2,384,0)="HLO SINGLE MESSAGE DISPLAY^^0"
^XMB(3.9,41,2,385,0)="""BLD"",838,""KRN"",409.61,""NM"",""B"",""HLO MESSAGE SEARCH"",3)"
^XMB(3.9,41,2,386,0)=""
^XMB(3.9,41,2,387,0)="""BLD"",838,""KRN"",409.61,""NM"",""B"",""HLO MESSAGE VIEWER"",1)"
^XMB(3.9,41,2,388,0)=""
^XMB(3.9,41,2,389,0)="""BLD"",838,""KRN"",409.61,""NM"",""B"",""HLO SINGLE MESSAGE DISPLAY"",4)"
^XMB(3.9,41,2,390,0)=""
^XMB(3.9,41,2,391,0)="""BLD"",838,""KRN"",409.61,""NM"",""B"",""HLO SYSTEM MONITOR"",2)"
^XMB(3.9,41,2,392,0)=""
^XMB(3.9,41,2,393,0)="""BLD"",838,""KRN"",771,0)"
^XMB(3.9,41,2,394,0)="771"
^XMB(3.9,41,2,395,0)="""BLD"",838,""KRN"",870,0)"
^XMB(3.9,41,2,396,0)="870"
^XMB(3.9,41,2,397,0)="""BLD"",838,""KRN"",8989.51,0)"
^XMB(3.9,41,2,398,0)="8989.51"
^XMB(3.9,41,2,399,0)="""BLD"",838,""KRN"",8989.52,0)"
^XMB(3.9,41,2,400,0)="8989.52"
^XMB(3.9,41,2,401,0)="""BLD"",838,""KRN"",8994,0)"
^XMB(3.9,41,2,402,0)="8994"
^XMB(3.9,41,2,403,0)="""BLD"",838,""KRN"",""B"",.4,.4)"
^XMB(3.9,41,2,404,0)=""
^XMB(3.9,41,2,405,0)="""BLD"",838,""KRN"",""B"",.401,.401)"
^XMB(3.9,41,2,406,0)=""
^XMB(3.9,41,2,407,0)="""BLD"",838,""KRN"",""B"",.402,.402)"
^XMB(3.9,41,2,408,0)=""
^XMB(3.9,41,2,409,0)="""BLD"",838,""KRN"",""B"",.403,.403)"
^XMB(3.9,41,2,410,0)=""
^XMB(3.9,41,2,411,0)="""BLD"",838,""KRN"",""B"",.5,.5)"
^XMB(3.9,41,2,412,0)=""
^XMB(3.9,41,2,413,0)="""BLD"",838,""KRN"",""B"",.84,.84)"
^XMB(3.9,41,2,414,0)=""
^XMB(3.9,41,2,415,0)="""BLD"",838,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,41,2,416,0)=""
^XMB(3.9,41,2,417,0)="""BLD"",838,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,41,2,418,0)=""
^XMB(3.9,41,2,419,0)="""BLD"",838,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,41,2,420,0)=""
^XMB(3.9,41,2,421,0)="""BLD"",838,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,41,2,422,0)=""
^XMB(3.9,41,2,423,0)="""BLD"",838,""KRN"",""B"",19,19)"
^XMB(3.9,41,2,424,0)=""
^XMB(3.9,41,2,425,0)="""BLD"",838,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,41,2,426,0)=""
^XMB(3.9,41,2,427,0)="""BLD"",838,""KRN"",""B"",101,101)"
^XMB(3.9,41,2,428,0)=""
^XMB(3.9,41,2,429,0)="""BLD"",838,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,41,2,430,0)=""
^XMB(3.9,41,2,431,0)="""BLD"",838,""KRN"",""B"",771,771)"
^XMB(3.9,41,2,432,0)=""
^XMB(3.9,41,2,433,0)="""BLD"",838,""KRN"",""B"",870,870)"
^XMB(3.9,41,2,434,0)=""
^XMB(3.9,41,2,435,0)="""BLD"",838,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,41,2,436,0)=""
^XMB(3.9,41,2,437,0)="""BLD"",838,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,41,2,438,0)=""
^XMB(3.9,41,2,439,0)="""BLD"",838,""KRN"",""B"",8994,8994)"
^XMB(3.9,41,2,440,0)=""
^XMB(3.9,41,2,441,0)="""BLD"",838,""QUES"",0)"
^XMB(3.9,41,2,442,0)="^9.62^^0"
^XMB(3.9,41,2,443,0)="""BLD"",838,""REQB"",0)"
^XMB(3.9,41,2,444,0)="^9.611^3^3"
^XMB(3.9,41,2,445,0)="""BLD"",838,""REQB"",1,0)"
^XMB(3.9,41,2,446,0)="XU*8.0*388^2"
^XMB(3.9,41,2,447,0)="""BLD"",838,""REQB"",2,0)"
^XMB(3.9,41,2,448,0)="HL*1.6*84^2"
^XMB(3.9,41,2,449,0)="""BLD"",838,""REQB"",3,0)"
^XMB(3.9,41,2,450,0)="HL*1.6*118^2"
^XMB(3.9,41,2,451,0)="""BLD"",838,""REQB"",""B"",""HL*1.6*118"",3)"
^XMB(3.9,41,2,452,0)=""
^XMB(3.9,41,2,453,0)="""BLD"",838,""REQB"",""B"",""HL*1.6*84"",2)"
^XMB(3.9,41,2,454,0)=""
^XMB(3.9,41,2,455,0)="""BLD"",838,""REQB"",""B"",""XU*8.0*388"",1)"
^XMB(3.9,41,2,456,0)=""
^XMB(3.9,41,2,457,0)="""DATA"",779.3,1,0)"
^XMB(3.9,41,2,458,0)="PROCESS MANAGER^1^1^1^9999^3050601.121938^30^GETWORK^HLOPROC1^DOWORK^HLOPROC1^999^1^^0"
^XMB(3.9,41,2,459,0)="""DATA"",779.3,2,0)"
^XMB(3.9,41,2,460,0)="CHECK PROCESS COUNTS^1^0^1^15^3050601.121356^2^QUIT1^HLOPROC1^RECOUNT^HLOPROC1^1^0"
^XMB(3.9,41,2,461,0)="""DATA"",779.3,3,0)"
^XMB(3.9,41,2,462,0)="OUTGOING CLIENT LINK^1^2^10^10^3050601.121916^5^GETWORK^HLOCLNT^DOWORK^HLOCLNT^6^0"
^XMB(3.9,41,2,463,0)="""DATA"",779.3,4,0)"
^XMB(3.9,41,2,464,0)="TASKMAN MULTI-LISTENER^0^1^1^30^3050203.060705^0^GETWORK^HLOSRVR^DOWORKM^HLOSRVR^9999^0^^0"
^XMB(3.9,41,2,465,0)="""DATA"",779.3,5,0)"
^XMB(3.9,41,2,466,0)="VMS TCP LISTENER^0^1^1^9999^^1^ ^ ^^^0^0^^1"
^XMB(3.9,41,2,467,0)="""DATA"",779.3,6,0)"
^XMB(3.9,41,2,468,0)="INCOMING QUEUES^1^2^10^15^3050601.121917^5^GETWORK^HLOFILER^DOWORK^HLOFILER^6^0^^0"
^XMB(3.9,41,2,469,0)="""DATA"",779.3,7,0)"
^XMB(3.9,41,2,470,0)="PURGE OLD MESSAGES^1^0^3^20^3050601.1214^1^GETWORK^HLOPURGE^DOWORK^HLOPURGE^1^0"
^XMB(3.9,41,2,471,0)="""DATA"",779.3,8,0)"
^XMB(3.9,41,2,472,0)="REMOVE BAD MESSAGES^1^0^1^120^3050601.121431^1^QUIT1^HLOPROC1^BADMSGS^HLOCLNT1^1^0^^0"
^XMB(3.9,41,2,473,0)="""DATA"",779.3,9,0)"
^XMB(3.9,41,2,474,0)="CLIENT MESSAGE UPDATES^1^1^2^15^3050601.121913^2^GETWORK^HLOCLNT2^DOWORK^HLOCLNT2^7^0^^0"
^XMB(3.9,41,2,475,0)="""DATA"",779.3,10,0)"
^XMB(3.9,41,2,476,0)="REPORT MISSING APP ACKS^1^0^1^480^3050601.121404^1^QUIT1^HLOPROC1^DOWORK^HLOCLNT3^1^0^^0"
^XMB(3.9,41,2,477,0)="""DATA"",779.3,11,0)"
^XMB(3.9,41,2,478,0)="SET SEARCH X-REF^1^0^1^5^3050601.121408^2^GETWORK^HLOF778A^DOWORK^HLOF778A^2^0^^0"
^XMB(3.9,41,2,479,0)="""DATA"",779.3,12,0)"
^XMB(3.9,41,2,480,0)="SINGLE LISTENER^0^1^1^30^^0^GETWORK^HLOSRVR^DOWORKS^HLOSRVR^9999^0^^0"
^XMB(3.9,41,2,481,0)="""FIA"",777)"
^XMB(3.9,41,2,482,0)="HLO MESSAGE BODY"
^XMB(3.9,41,2,483,0)="""FIA"",777,0)"
^XMB(3.9,41,2,484,0)="^HLA("
^XMB(3.9,41,2,485,0)="""FIA"",777,0,0)"
^XMB(3.9,41,2,486,0)="777D"
^XMB(3.9,41,2,487,0)="""FIA"",777,0,1)"
^XMB(3.9,41,2,488,0)="y^n^f^^^^n"
^XMB(3.9,41,2,489,0)="""FIA"",777,0,10)"
^XMB(3.9,41,2,490,0)=""
^XMB(3.9,41,2,491,0)="""FIA"",777,0,11)"
^XMB(3.9,41,2,492,0)=""
^XMB(3.9,41,2,493,0)="""FIA"",777,0,""RLRO"")"
^XMB(3.9,41,2,494,0)=""
^XMB(3.9,41,2,495,0)="""FIA"",777,0,""VR"")"
^XMB(3.9,41,2,496,0)="1.6^HL"
^XMB(3.9,41,2,497,0)="""FIA"",777,777)"
^XMB(3.9,41,2,498,0)="0"
^XMB(3.9,41,2,499,0)="""FIA"",777,777.01)"
^XMB(3.9,41,2,500,0)="0"
^XMB(3.9,41,2,501,0)="""FIA"",777,777.02)"
^XMB(3.9,41,2,502,0)="0"
^XMB(3.9,41,2,503,0)="""FIA"",777,777.21)"
^XMB(3.9,41,2,504,0)="0"
^XMB(3.9,41,2,505,0)="""FIA"",778)"
^XMB(3.9,41,2,506,0)="HLO MESSAGES"
^XMB(3.9,41,2,507,0)="""FIA"",778,0)"
^XMB(3.9,41,2,508,0)="^HLB("
^XMB(3.9,41,2,509,0)="""FIA"",778,0,0)"
^XMB(3.9,41,2,510,0)="778O"
^XMB(3.9,41,2,511,0)="""FIA"",778,0,1)"
^XMB(3.9,41,2,512,0)="y^n^f^^^^n"
^XMB(3.9,41,2,513,0)="""FIA"",778,0,10)"
^XMB(3.9,41,2,514,0)=""
^XMB(3.9,41,2,515,0)="""FIA"",778,0,11)"
^XMB(3.9,41,2,516,0)=""
^XMB(3.9,41,2,517,0)="""FIA"",778,0,""RLRO"")"
^XMB(3.9,41,2,518,0)=""
^XMB(3.9,41,2,519,0)="""FIA"",778,0,""VR"")"
^XMB(3.9,41,2,520,0)="1.6^HL"
^XMB(3.9,41,2,521,0)="""FIA"",778,778)"
^XMB(3.9,41,2,522,0)="0"
^XMB(3.9,41,2,523,0)="""FIA"",778,778.03)"
^XMB(3.9,41,2,524,0)="0"
^XMB(3.9,41,2,525,0)="""FIA"",779.1)"
^XMB(3.9,41,2,526,0)="HLO SYSTEM PARAMETERS"
^XMB(3.9,41,2,527,0)="""FIA"",779.1,0)"
^XMB(3.9,41,2,528,0)="^HLD(779.1,"
^XMB(3.9,41,2,529,0)="""FIA"",779.1,0,0)"
^XMB(3.9,41,2,530,0)="779.1"
^XMB(3.9,41,2,531,0)="""FIA"",779.1,0,1)"
^XMB(3.9,41,2,532,0)="y^n^f^^^^n"
^XMB(3.9,41,2,533,0)="""FIA"",779.1,0,10)"
^XMB(3.9,41,2,534,0)=""
^XMB(3.9,41,2,535,0)="""FIA"",779.1,0,11)"
^XMB(3.9,41,2,536,0)=""
^XMB(3.9,41,2,537,0)="""FIA"",779.1,0,""RLRO"")"
^XMB(3.9,41,2,538,0)=""
^XMB(3.9,41,2,539,0)="""FIA"",779.1,0,""VR"")"
^XMB(3.9,41,2,540,0)="1.6^HL"
^XMB(3.9,41,2,541,0)="""FIA"",779.1,779.1)"
^XMB(3.9,41,2,542,0)="0"
^XMB(3.9,41,2,543,0)="""FIA"",779.2)"
^XMB(3.9,41,2,544,0)="HLO APPLICATION REGISTRY"
^XMB(3.9,41,2,545,0)="""FIA"",779.2,0)"
^XMB(3.9,41,2,546,0)="^HLD(779.2,"
^XMB(3.9,41,2,547,0)="""FIA"",779.2,0,0)"
^XMB(3.9,41,2,548,0)="779.2"
^XMB(3.9,41,2,549,0)="""FIA"",779.2,0,1)"
^XMB(3.9,41,2,550,0)="y^n^f^^^^n"
^XMB(3.9,41,2,551,0)="""FIA"",779.2,0,10)"
^XMB(3.9,41,2,552,0)=""
^XMB(3.9,41,2,553,0)="""FIA"",779.2,0,11)"
^XMB(3.9,41,2,554,0)=""
^XMB(3.9,41,2,555,0)="""FIA"",779.2,0,""RLRO"")"
^XMB(3.9,41,2,556,0)=""
^XMB(3.9,41,2,557,0)="""FIA"",779.2,0,""VR"")"
^XMB(3.9,41,2,558,0)="1.6^HL"
^XMB(3.9,41,2,559,0)="""FIA"",779.2,779.2)"
^XMB(3.9,41,2,560,0)="0"
^XMB(3.9,41,2,561,0)="""FIA"",779.2,779.21)"
^XMB(3.9,41,2,562,0)="0"
^XMB(3.9,41,2,563,0)="""FIA"",779.3)"
^XMB(3.9,41,2,564,0)="HLO PROCESS REGISTRY"
^XMB(3.9,41,2,565,0)="""FIA"",779.3,0)"
^XMB(3.9,41,2,566,0)="^HLD(779.3,"
^XMB(3.9,41,2,567,0)="""FIA"",779.3,0,0)"
^XMB(3.9,41,2,568,0)="779.3"
^XMB(3.9,41,2,569,0)="""FIA"",779.3,0,1)"
^XMB(3.9,41,2,570,0)="y^n^f^^y^^y^a^n"
^XMB(3.9,41,2,571,0)="""FIA"",779.3,0,10)"
^XMB(3.9,41,2,572,0)=""
^XMB(3.9,41,2,573,0)="""FIA"",779.3,0,11)"
^XMB(3.9,41,2,574,0)=""
^XMB(3.9,41,2,575,0)="""FIA"",779.3,0,""RLRO"")"
^XMB(3.9,41,2,576,0)=""
^XMB(3.9,41,2,577,0)="""FIA"",779.3,0,""VR"")"
^XMB(3.9,41,2,578,0)="1.6^HL"
^XMB(3.9,41,2,579,0)="""FIA"",779.3,779.3)"
^XMB(3.9,41,2,580,0)="0"
^XMB(3.9,41,2,581,0)="""FIA"",779.4)"
^XMB(3.9,41,2,582,0)="HLO SUBSCRIPTION REGISTRY"
^XMB(3.9,41,2,583,0)="""FIA"",779.4,0)"
^XMB(3.9,41,2,584,0)="^HLD(779.4,"
^XMB(3.9,41,2,585,0)="""FIA"",779.4,0,0)"
^XMB(3.9,41,2,586,0)="779.4"
^XMB(3.9,41,2,587,0)="""FIA"",779.4,0,1)"
^XMB(3.9,41,2,588,0)="y^y^f^^^^n"
^XMB(3.9,41,2,589,0)="""FIA"",779.4,0,10)"
^XMB(3.9,41,2,590,0)=""
^XMB(3.9,41,2,591,0)="""FIA"",779.4,0,11)"
^XMB(3.9,41,2,592,0)=""
^XMB(3.9,41,2,593,0)="""FIA"",779.4,0,""RLRO"")"
^XMB(3.9,41,2,594,0)=""
^XMB(3.9,41,2,595,0)="""FIA"",779.4,0,""VR"")"
^XMB(3.9,41,2,596,0)="1.6^HL"
^XMB(3.9,41,2,597,0)="""FIA"",779.4,779.4)"
^XMB(3.9,41,2,598,0)="0"
^XMB(3.9,41,2,599,0)="""FIA"",779.4,779.41)"
^XMB(3.9,41,2,600,0)="0"
^XMB(3.9,41,2,601,0)="""FIA"",870)"
^XMB(3.9,41,2,602,0)="HL LOGICAL LINK"
^XMB(3.9,41,2,603,0)="""FIA"",870,0)"
^XMB(3.9,41,2,604,0)="^HLCS(870,"
^XMB(3.9,41,2,605,0)="""FIA"",870,0,0)"
^XMB(3.9,41,2,606,0)="870"
^XMB(3.9,41,2,607,0)="""FIA"",870,0,1)"
^XMB(3.9,41,2,608,0)="y^n^f^^^^n"
^XMB(3.9,41,2,609,0)="""FIA"",870,0,10)"
^XMB(3.9,41,2,610,0)=""
^XMB(3.9,41,2,611,0)="""FIA"",870,0,11)"
^XMB(3.9,41,2,612,0)=""
^XMB(3.9,41,2,613,0)="""FIA"",870,0,""RLRO"")"
^XMB(3.9,41,2,614,0)=""
^XMB(3.9,41,2,615,0)="""FIA"",870,0,""VR"")"
^XMB(3.9,41,2,616,0)="1.6^HL"
^XMB(3.9,41,2,617,0)="""FIA"",870,870)"
^XMB(3.9,41,2,618,0)="0"
^XMB(3.9,41,2,619,0)="""FIA"",870,870.01)"
^XMB(3.9,41,2,620,0)="0"
^XMB(3.9,41,2,621,0)="""FIA"",870,870.019)"
^XMB(3.9,41,2,622,0)="0"
^XMB(3.9,41,2,623,0)="""FIA"",870,870.13)"
^XMB(3.9,41,2,624,0)="0"
^XMB(3.9,41,2,625,0)="""FIA"",870,870.193)"
^XMB(3.9,41,2,626,0)="0"
^XMB(3.9,41,2,627,0)="""INIT"")"
^XMB(3.9,41,2,628,0)="HLOPOST"
^XMB(3.9,41,2,629,0)="""IX"",779.2,779.2,""C"",0)"
^XMB(3.9,41,2,630,0)="779.2^C^Uniqueness Index for Key 'A' of File #779.2^R^^F^IR^I^779.2^^^^^LS"
^XMB(3.9,41,2,631,0)="""IX"",779.2,779.2,""C"",1)"
^XMB(3.9,41,2,632,0)="S ^HLD(779.2,""C"",X,DA)="""""
^XMB(3.9,41,2,633,0)="""IX"",779.2,779.2,""C"",2)"
^XMB(3.9,41,2,634,0)="K ^HLD(779.2,""C"",X,DA)"
^XMB(3.9,41,2,635,0)="""IX"",779.2,779.2,""C"",2.5)"
^XMB(3.9,41,2,636,0)="K ^HLD(779.2,""C"")"
^XMB(3.9,41,2,637,0)="""IX"",779.2,779.2,""C"",11.1,0)"
^XMB(3.9,41,2,638,0)="^.114IA^1^1"
^XMB(3.9,41,2,639,0)="""IX"",779.2,779.2,""C"",11.1,1,0)"
^XMB(3.9,41,2,640,0)="1^F^779.2^.01^^1"
^XMB(3.9,41,2,641,0)="""IX"",779.2,779.21,""C"",0)"
^XMB(3.9,41,2,642,0)="779.21^C^Uniqueness Index for Key 'A' of Subfile #779.21^R^^R^IR^I^779.21^^^^^LS"
^XMB(3.9,41,2,643,0)="""IX"",779.2,779.21,""C"",1)"
^XMB(3.9,41,2,644,0)="S ^HLD(779.2,DA(1),1,""C"",X(1),X(2),DA)="""""
^XMB(3.9,41,2,645,0)="""IX"",779.2,779.21,""C"",2)"
^XMB(3.9,41,2,646,0)="K ^HLD(779.2,DA(1),1,""C"",X(1),X(2),DA)"
^XMB(3.9,41,2,647,0)="""IX"",779.2,779.21,""C"",2.5)"
^XMB(3.9,41,2,648,0)="K ^HLD(779.2,DA(1),1,""C"")"
^XMB(3.9,41,2,649,0)="""IX"",779.2,779.21,""C"",11.1,0)"
^XMB(3.9,41,2,650,0)="^.114IA^2^2"
^XMB(3.9,41,2,651,0)="""IX"",779.2,779.21,""C"",11.1,1,0)"
^XMB(3.9,41,2,652,0)="1^F^779.21^.01^^1"
^XMB(3.9,41,2,653,0)="""IX"",779.2,779.21,""C"",11.1,2,0)"
^XMB(3.9,41,2,654,0)="2^F^779.21^.02^^2"
^XMB(3.9,41,2,655,0)="""IX"",779.3,779.3,""C"",0)"
^XMB(3.9,41,2,656,0)="779.3^C^Used to find active entries in the process registry.^R^^F^IR^I^779.3^^^^^LS"
^XMB(3.9,41,2,657,0)="""IX"",779.3,779.3,""C"",1)"
^XMB(3.9,41,2,658,0)="S ^HLD(779.3,""C"",X,DA)="""""
^XMB(3.9,41,2,659,0)="""IX"",779.3,779.3,""C"",1.4)"
^XMB(3.9,41,2,660,0)="S X=$S('X(1):0,1:1)"
^XMB(3.9,41,2,661,0)="""IX"",779.3,779.3,""C"",2)"
^XMB(3.9,41,2,662,0)="K ^HLD(779.3,""C"",X,DA)"
^XMB(3.9,41,2,663,0)="""IX"",779.3,779.3,""C"",2.5)"
^XMB(3.9,41,2,664,0)="K ^HLD(779.3,""C"")"
^XMB(3.9,41,2,665,0)="""IX"",779.3,779.3,""C"",11.1,0)"
^XMB(3.9,41,2,666,0)="^.114IA^1^1"
^XMB(3.9,41,2,667,0)="""IX"",779.3,779.3,""C"",11.1,1,0)"
^XMB(3.9,41,2,668,0)="1^F^779.3^.02^^1^F"
^XMB(3.9,41,2,669,0)="""IX"",779.3,779.3,""D"",0)"
^XMB(3.9,41,2,670,0)="779.3^D^Uniqueness Index for Key 'A' of File #779.3^R^^F^IR^I^779.3^^^^^LS"
^XMB(3.9,41,2,671,0)="""IX"",779.3,779.3,""D"",1)"
^XMB(3.9,41,2,672,0)="S ^HLD(779.3,""D"",X,DA)="""""
^XMB(3.9,41,2,673,0)="""IX"",779.3,779.3,""D"",2)"
^XMB(3.9,41,2,674,0)="K ^HLD(779.3,""D"",X,DA)"
^XMB(3.9,41,2,675,0)="""IX"",779.3,779.3,""D"",2.5)"
^XMB(3.9,41,2,676,0)="K ^HLD(779.3,""D"")"
^XMB(3.9,41,2,677,0)="""IX"",779.3,779.3,""D"",11.1,0)"
^XMB(3.9,41,2,678,0)="^.114IA^1^1"
^XMB(3.9,41,2,679,0)="""IX"",779.3,779.3,""D"",11.1,1,0)"
^XMB(3.9,41,2,680,0)="1^F^779.3^.01^^1"
^XMB(3.9,41,2,681,0)="""IX"",779.4,779.41,""AC"",0)"
^XMB(3.9,41,2,682,0)="779.41.^AC^Used to find recipients who have not been terminated.^MU^^R^IR^I^779.41^^^^^S"
^XMB(3.9,41,2,683,0)="""IX"",779.4,779.41,""AC"",1)"
^XMB(3.9,41,2,684,0)="S ^HLD(779.4,DA(1),2,""AC"",DA)="""""
^XMB(3.9,41,2,685,0)="""IX"",779.4,779.41,""AC"",1.4)"
^XMB(3.9,41,2,686,0)="S X=$S($G(X2(2)):0,1:1)"
^XMB(3.9,41,2,687,0)="""IX"",779.4,779.41,""AC"",2)"
^XMB(3.9,41,2,688,0)="K ^HLD(779.4,DA(1),2,""AC"",DA)"
^XMB(3.9,41,2,689,0)="""IX"",779.4,779.41,""AC"",2.4)"
^XMB(3.9,41,2,690,0)="S X=1"
^XMB(3.9,41,2,691,0)="""IX"",779.4,779.41,""AC"",11.1,0)"
^XMB(3.9,41,2,692,0)="^.114IA^2^2"
^XMB(3.9,41,2,693,0)="""IX"",779.4,779.41,""AC"",11.1,1,0)"
^XMB(3.9,41,2,694,0)="1^F^779.41^1.01^^1^F"
^XMB(3.9,41,2,695,0)="""IX"",779.4,779.41,""AC"",11.1,1,3)"
^XMB(3.9,41,2,696,0)=""
^XMB(3.9,41,2,697,0)="""IX"",779.4,779.41,""AC"",11.1,2,0)"
^XMB(3.9,41,2,698,0)="2^F^779.41^1.02^^^F"
^XMB(3.9,41,2,699,0)="""IX"",779.4,779.41,""AC"",11.1,2,3)"
^XMB(3.9,41,2,700,0)=""
^XMB(3.9,41,2,701,0)="""IX"",779.4,779.41,""AD"",0)"
^XMB(3.9,41,2,702,0)="779.41^AD^Used to determine if the recipient is already on the subscription list.^MU^^R^IR^I^779.41^^^^^S"
^XMB(3.9,41,2,703,0)="""IX"",779.4,779.41,""AD"",1)"
^XMB(3.9,41,2,704,0)="S ^HLD(779.4,DA(1),2,""AD"",X2(1),X2(2),X2(3)_X2(4)_X2(5),DA)="""""
^XMB(3.9,41,2,705,0)="""IX"",779.4,779.41,""AD"",2)"
^XMB(3.9,41,2,706,0)="K ^HLD(779.4,DA(1),2,""AD"",X1(1),X1(2),X1(3)_X1(4)_X1(5),DA)"
^XMB(3.9,41,2,707,0)="""IX"",779.4,779.41,""AD"",11.1,0)"
^XMB(3.9,41,2,708,0)="^.114IA^5^5"
^XMB(3.9,41,2,709,0)="""IX"",779.4,779.41,""AD"",11.1,1,0)"
^XMB(3.9,41,2,710,0)="1^F^779.41^.01^^1^F"
^XMB(3.9,41,2,711,0)="""IX"",779.4,779.41,""AD"",11.1,1,3)"
^XMB(3.9,41,2,712,0)=""
^XMB(3.9,41,2,713,0)="""IX"",779.4,779.41,""AD"",11.1,2,0)"
^XMB(3.9,41,2,714,0)="2^F^779.41^.02^^2^F"
^XMB(3.9,41,2,715,0)="""IX"",779.4,779.41,""AD"",11.1,2,3)"
^XMB(3.9,41,2,716,0)=""
^XMB(3.9,41,2,717,0)="""IX"",779.4,779.41,""AD"",11.1,3,0)"
^XMB(3.9,41,2,718,0)="3^F^779.41^.03^^^F"
^XMB(3.9,41,2,719,0)="""IX"",779.4,779.41,""AD"",11.1,3,3)"
^XMB(3.9,41,2,720,0)=""
^XMB(3.9,41,2,721,0)="""IX"",779.4,779.41,""AD"",11.1,4,0)"
^XMB(3.9,41,2,722,0)="4^F^779.41^.04^^^F"
^XMB(3.9,41,2,723,0)="""IX"",779.4,779.41,""AD"",11.1,4,3)"
^XMB(3.9,41,2,724,0)=""
^XMB(3.9,41,2,725,0)="""IX"",779.4,779.41,""AD"",11.1,5,0)"
^XMB(3.9,41,2,726,0)="5^F^779.41^.05^^^F"
^XMB(3.9,41,2,727,0)="""IX"",779.4,779.41,""AD"",11.1,5,3)"
^XMB(3.9,41,2,728,0)=""
^XMB(3.9,41,2,729,0)="""IX"",870,870,""AC"",0)"
^XMB(3.9,41,2,730,0)="870^AC^Sorts entries by <station number>,<link name>,<ien>^MU^^R^IR^I^870^^^^^S"
^XMB(3.9,41,2,731,0)="""IX"",870,870,""AC"",1)"
^XMB(3.9,41,2,732,0)="S ^HLCS(870,""AC"",$S($L($P($G(^DIC(4,+X2(1),99)),""^"")):$P($G(^DIC(4,+X2(1),99)),""^""),1:"" ""),X2(2),DA)="""""
^XMB(3.9,41,2,733,0)="""IX"",870,870,""AC"",2)"
^XMB(3.9,41,2,734,0)="K ^HLCS(870,""AC"",$S($L($P($G(^DIC(4,+X1(1),99)),""^"")):$P($G(^DIC(4,+X1(1),99)),""^""),1:"" ""),X1(2),DA)"
^XMB(3.9,41,2,735,0)="""IX"",870,870,""AC"",2.5)"
^XMB(3.9,41,2,736,0)="K ^HLCS(870,""AC"")"
^XMB(3.9,41,2,737,0)="""IX"",870,870,""AC"",11.1,0)"
^XMB(3.9,41,2,738,0)="^.114IA^2^2"
^XMB(3.9,41,2,739,0)="""IX"",870,870,""AC"",11.1,1,0)"
^XMB(3.9,41,2,740,0)="1^F^870^.02^^1^F"
^XMB(3.9,41,2,741,0)="""IX"",870,870,""AC"",11.1,1,1)"
^XMB(3.9,41,2,742,0)=""
^XMB(3.9,41,2,743,0)="""IX"",870,870,""AC"",11.1,1,1.5)"
^XMB(3.9,41,2,744,0)=""
^XMB(3.9,41,2,745,0)="""IX"",870,870,""AC"",11.1,1,3)"
^XMB(3.9,41,2,746,0)=""
^XMB(3.9,41,2,747,0)="""IX"",870,870,""AC"",11.1,2,0)"
^XMB(3.9,41,2,748,0)="2^F^870^.01^^^F"
^XMB(3.9,41,2,749,0)="""IX"",870,870,""AD"",0)"
^XMB(3.9,41,2,750,0)="870^AD^Used to find the link over which to send the application acknowledgment.^MU^^R^IR^I^870^^^^^A"
^XMB(3.9,41,2,751,0)="""IX"",870,870,""AD"",1)"
^XMB(3.9,41,2,752,0)="D SET1^HLOTLNK(X(1),X(3))"
^XMB(3.9,41,2,753,0)="""IX"",870,870,""AD"",1.4)"
^XMB(3.9,41,2,754,0)="S X=0 I X(4)=""C"",X(2),$P($G(^HLCS(869.1,X(2),0)),""^"")=""TCP"" S X=1"
^XMB(3.9,41,2,755,0)="""IX"",870,870,""AD"",2)"
^XMB(3.9,41,2,756,0)="D KILL1^HLOTLNK(X(1),X(3))"
^XMB(3.9,41,2,757,0)="""IX"",870,870,""AD"",2.4)"
^XMB(3.9,41,2,758,0)="S X=0 I X(4)=""C"",X(2),$P($G(^HLCS(869.1,X(2),0)),""^"")=""TCP"" S X=1"
^XMB(3.9,41,2,759,0)="""IX"",870,870,""AD"",2.5)"
^XMB(3.9,41,2,760,0)=""
^XMB(3.9,41,2,761,0)="""IX"",870,870,""AD"",11.1,0)"
^XMB(3.9,41,2,762,0)="^.114IA^5^4"
^XMB(3.9,41,2,763,0)="""IX"",870,870,""AD"",11.1,1,0)"
^XMB(3.9,41,2,764,0)="1^F^870^.01^30^1^F"
^XMB(3.9,41,2,765,0)="""IX"",870,870,""AD"",11.1,2,0)"
^XMB(3.9,41,2,766,0)="2^F^870^2^^2^F"
^XMB(3.9,41,2,767,0)="""IX"",870,870,""AD"",11.1,4,0)"
^XMB(3.9,41,2,768,0)="3^F^870^.03^^3^F"
^XMB(3.9,41,2,769,0)="""IX"",870,870,""AD"",11.1,5,0)"
^XMB(3.9,41,2,770,0)="4^F^870^400.03^^4^F"
^XMB(3.9,41,2,771,0)="""IX"",870,870,""AD"",11.1,5,3)"
^XMB(3.9,41,2,772,0)=""
^XMB(3.9,41,2,773,0)="""IX"",870,870,""AD1"",0)"
^XMB(3.9,41,2,774,0)="870^AD1^Used to find the link overwhich to send the application acknowledgment.^MU^^R^IR^I^870^^^^^A"
^XMB(3.9,41,2,775,0)="""IX"",870,870,""AD1"",1)"
^XMB(3.9,41,2,776,0)="D SET2^HLOTLNK(X(1),X(3))"
^XMB(3.9,41,2,777,0)="""IX"",870,870,""AD1"",1.4)"
^XMB(3.9,41,2,778,0)="S X=0 I X(4)=""C"",X(2),$P($G(^HLCS(869.1,X(2),0)),""^"")=""TCP"" S X=1"
^XMB(3.9,41,2,779,0)="""IX"",870,870,""AD1"",2)"
^XMB(3.9,41,2,780,0)="D KILL2^HLOTLNK(X(1),X(3))"
^XMB(3.9,41,2,781,0)="""IX"",870,870,""AD1"",2.4)"
^XMB(3.9,41,2,782,0)="S X=0 I X(4)=""C"",X(2),$P($G(^HLCS(869.1,X(2),0)),""^"")=""TCP"" S X=1"
^XMB(3.9,41,2,783,0)="""IX"",870,870,""AD1"",2.5)"
^XMB(3.9,41,2,784,0)=""
^XMB(3.9,41,2,785,0)="""IX"",870,870,""AD1"",11.1,0)"
^XMB(3.9,41,2,786,0)="^.114IA^4^4"
^XMB(3.9,41,2,787,0)="""IX"",870,870,""AD1"",11.1,1,0)"
^XMB(3.9,41,2,788,0)="1^F^870^.01^^1^F"
^XMB(3.9,41,2,789,0)="""IX"",870,870,""AD1"",11.1,2,0)"
^XMB(3.9,41,2,790,0)="2^F^870^2^^2^F"
^XMB(3.9,41,2,791,0)="""IX"",870,870,""AD1"",11.1,3,0)"
^XMB(3.9,41,2,792,0)="3^F^870^.08^^3^F"
^XMB(3.9,41,2,793,0)="""IX"",870,870,""AD1"",11.1,4,0)"
^XMB(3.9,41,2,794,0)="4^F^870^400.03^^4^F"
^XMB(3.9,41,2,795,0)="""IX"",870,870,""AD2"",0)"
^XMB(3.9,41,2,796,0)="870^AD2^Used to find the link overwhich to send an application acknowledgment.^MU^^R^IR^I^870^^^^^A"
^XMB(3.9,41,2,797,0)="""IX"",870,870,""AD2"",1)"
^XMB(3.9,41,2,798,0)="D SET3^HLOTLNK(X(1),X(3))"
^XMB(3.9,41,2,799,0)="""IX"",870,870,""AD2"",1.4)"
^XMB(3.9,41,2,800,0)="S X=0 I X(2),$P($G(^HLCS(869.1,X(2),0)),""^"")=""HLLP"" S X=1"
^XMB(3.9,41,2,801,0)="""IX"",870,870,""AD2"",2)"
^XMB(3.9,41,2,802,0)="D KILL3^HLOTLNK(X(1),X(3))"
^XMB(3.9,41,2,803,0)="""IX"",870,870,""AD2"",2.4)"
^XMB(3.9,41,2,804,0)="S X=0 I X(2),$P($G(^HLCS(869.1,X(2),0)),""^"")=""HLLP"" S X=1"
^XMB(3.9,41,2,805,0)="""IX"",870,870,""AD2"",2.5)"
^XMB(3.9,41,2,806,0)="K ^HLCS(870,""AD"",""HLLP"")"
^XMB(3.9,41,2,807,0)="""IX"",870,870,""AD2"",11.1,0)"
^XMB(3.9,41,2,808,0)="^.114IA^3^3"
^XMB(3.9,41,2,809,0)="""IX"",870,870,""AD2"",11.1,1,0)"
^XMB(3.9,41,2,810,0)="1^F^870^.01^^1^F"
^XMB(3.9,41,2,811,0)="""IX"",870,870,""AD2"",11.1,2,0)"
^XMB(3.9,41,2,812,0)="2^F^870^2^^2^F"
^XMB(3.9,41,2,813,0)="""IX"",870,870,""AD2"",11.1,3,0)"
^XMB(3.9,41,2,814,0)="3^F^870^200.01^^3^F"
^XMB(3.9,41,2,815,0)="""IX"",870,870,""DNS"",0)"
^XMB(3.9,41,2,816,0)="870^DNS^This is a regular index of new-style cross-reference on the DNS Domain field^R^^F^IR^I^870^^^^^LS"
^XMB(3.9,41,2,817,0)="""IX"",870,870,""DNS"",1)"
^XMB(3.9,41,2,818,0)="S ^HLCS(870,""DNS"",$E(X,1,70),DA)="""""
^XMB(3.9,41,2,819,0)="""IX"",870,870,""DNS"",2)"
^XMB(3.9,41,2,820,0)="K ^HLCS(870,""DNS"",$E(X,1,70),DA)"
^XMB(3.9,41,2,821,0)="""IX"",870,870,""DNS"",2.5)"
^XMB(3.9,41,2,822,0)="K ^HLCS(870,""DNS"")"
^XMB(3.9,41,2,823,0)="""IX"",870,870,""DNS"",11.1,0)"
^XMB(3.9,41,2,824,0)="^.114IA^1^1"
^XMB(3.9,41,2,825,0)="""IX"",870,870,""DNS"",11.1,1,0)"
^XMB(3.9,41,2,826,0)="1^F^870^.08^70^1^F"
^XMB(3.9,41,2,827,0)="""IX"",870,870,""DNS"",11.1,1,3)"
^XMB(3.9,41,2,828,0)=""
^XMB(3.9,41,2,829,0)="""IX"",870,870,""DNS2"",0)"
^XMB(3.9,41,2,830,0)="870^DNS2^Regular index of new-style x-ref on the DNS Domain and Node fields^R^^R^IR^I^870^^^^^LS"
^XMB(3.9,41,2,831,0)="""IX"",870,870,""DNS2"",1)"
^XMB(3.9,41,2,832,0)="S ^HLCS(870,""DNS2"",$E(X(1),1,70),$E(X(2),1,30),DA)="""""
^XMB(3.9,41,2,833,0)="""IX"",870,870,""DNS2"",2)"
^XMB(3.9,41,2,834,0)="K ^HLCS(870,""DNS2"",$E(X(1),1,70),$E(X(2),1,30),DA)"
^XMB(3.9,41,2,835,0)="""IX"",870,870,""DNS2"",2.5)"
^XMB(3.9,41,2,836,0)="K ^HLCS(870,""DNS2"")"
^XMB(3.9,41,2,837,0)="""IX"",870,870,""DNS2"",11.1,0)"
^XMB(3.9,41,2,838,0)="^.114IA^2^2"
^XMB(3.9,41,2,839,0)="""IX"",870,870,""DNS2"",11.1,1,0)"
^XMB(3.9,41,2,840,0)="1^F^870^.08^70^1^F"
^XMB(3.9,41,2,841,0)="""IX"",870,870,""DNS2"",11.1,1,3)"
^XMB(3.9,41,2,842,0)=""
^XMB(3.9,41,2,843,0)="""IX"",870,870,""DNS2"",11.1,2,0)"
^XMB(3.9,41,2,844,0)="2^F^870^.01^30^2^F"
^XMB(3.9,41,2,845,0)="""IX"",870,870,""DNS2"",11.1,2,3)"
^XMB(3.9,41,2,846,0)=""
^XMB(3.9,41,2,847,0)="""IX"",870,870,""IEN772IN"",0)"
^XMB(3.9,41,2,848,0)="870^IEN772IN^IEN772 whole file cross reference^R^^F^IR^W^870.019^^^^^LS"
^XMB(3.9,41,2,849,0)="""IX"",870,870,""IEN772IN"",1)"
^XMB(3.9,41,2,850,0)="S ^HLCS(870,""IEN772IN"",X,DA(1),DA)="""""
^XMB(3.9,41,2,851,0)="""IX"",870,870,""IEN772IN"",2)"
^XMB(3.9,41,2,852,0)="K ^HLCS(870,""IEN772IN"",X,DA(1),DA)"
^XMB(3.9,41,2,853,0)="""IX"",870,870,""IEN772IN"",2.5)"
^XMB(3.9,41,2,854,0)="K ^HLCS(870,""IEN772IN"")"
^XMB(3.9,41,2,855,0)="""IX"",870,870,""IEN772IN"",11.1,0)"
^XMB(3.9,41,2,856,0)="^.114IA^1^1"
^XMB(3.9,41,2,857,0)="""IX"",870,870,""IEN772IN"",11.1,1,0)"
^XMB(3.9,41,2,858,0)="1^F^870.019^9^^1^F"
^XMB(3.9,41,2,859,0)="""IX"",870,870,""IEN772IN"",11.1,1,3)"
^XMB(3.9,41,2,860,0)=""
^XMB(3.9,41,2,861,0)="""IX"",870,870,""IEN772OUT"",0)"
^XMB(3.9,41,2,862,0)="870^IEN772OUT^IEN772 whole file cross reference^R^^F^IR^W^870.01^^^^^LS"
^XMB(3.9,41,2,863,0)="""IX"",870,870,""IEN772OUT"",1)"
^XMB(3.9,41,2,864,0)="S ^HLCS(870,""IEN772OUT"",X,DA(1),DA)="""""
^XMB(3.9,41,2,865,0)="""IX"",870,870,""IEN772OUT"",2)"
^XMB(3.9,41,2,866,0)="K ^HLCS(870,""IEN772OUT"",X,DA(1),DA)"
^XMB(3.9,41,2,867,0)="""IX"",870,870,""IEN772OUT"",2.5)"
^XMB(3.9,41,2,868,0)="K ^HLCS(870,""IEN772OUT"")"
^XMB(3.9,41,2,869,0)="""IX"",870,870,""IEN772OUT"",11.1,0)"
^XMB(3.9,41,2,870,0)="^.114IA^1^1"
^XMB(3.9,41,2,871,0)="""IX"",870,870,""IEN772OUT"",11.1,1,0)"
^XMB(3.9,41,2,872,0)="1^F^870.01^6^^1^F"
^XMB(3.9,41,2,873,0)="""IX"",870,870,""IEN772OUT"",11.1,1,3)"
^XMB(3.9,41,2,874,0)=""
^XMB(3.9,41,2,875,0)="""IX"",870,870,""IP"",0)"
^XMB(3.9,41,2,876,0)="870^IP^IP Address cross reference^R^^F^IR^I^870^^^^^LS"
^XMB(3.9,41,2,877,0)="""IX"",870,870,""IP"",1)"
^XMB(3.9,41,2,878,0)="S ^HLCS(870,""IP"",$E(X,1,40),DA)="""""
^XMB(3.9,41,2,879,0)="""IX"",870,870,""IP"",2)"
^XMB(3.9,41,2,880,0)="K ^HLCS(870,""IP"",$E(X,1,40),DA)"
^XMB(3.9,41,2,881,0)="""IX"",870,870,""IP"",2.5)"
^XMB(3.9,41,2,882,0)="K ^HLCS(870,""IP"")"
^XMB(3.9,41,2,883,0)="""IX"",870,870,""IP"",11.1,0)"
^XMB(3.9,41,2,884,0)="^.114IA^1^1"
^XMB(3.9,41,2,885,0)="""IX"",870,870,""IP"",11.1,1,0)"
^XMB(3.9,41,2,886,0)="1^F^870^400.01^40^1^F"
^XMB(3.9,41,2,887,0)="""IX"",870,870,""IP"",11.1,1,3)"
^XMB(3.9,41,2,888,0)=""
^XMB(3.9,41,2,889,0)="""KEY"",779.2,779.2,""A"",0)"
^XMB(3.9,41,2,890,0)="779.2^A^P^68"
^XMB(3.9,41,2,891,0)="""KEY"",779.2,779.2,""A"",2,0)"
^XMB(3.9,41,2,892,0)="^.312IA^1^1"
^XMB(3.9,41,2,893,0)="""KEY"",779.2,779.2,""A"",2,1,0)"
^XMB(3.9,41,2,894,0)=".01^779.2^1"
^XMB(3.9,41,2,895,0)="""KEY"",779.2,779.21,""A"",0)"
^XMB(3.9,41,2,896,0)="779.21^A^P^69"
^XMB(3.9,41,2,897,0)="""KEY"",779.2,779.21,""A"",2,0)"
^XMB(3.9,41,2,898,0)="^.312IA^2^2"
^XMB(3.9,41,2,899,0)="""KEY"",779.2,779.21,""A"",2,1,0)"
^XMB(3.9,41,2,900,0)=".01^779.21^1"
^XMB(3.9,41,2,901,0)="""KEY"",779.2,779.21,""A"",2,2,0)"
^XMB(3.9,41,2,902,0)=".02^779.21^2"
^XMB(3.9,41,2,903,0)="""KEY"",779.3,779.3,""A"",0)"
^XMB(3.9,41,2,904,0)="779.3^A^P^83"
^XMB(3.9,41,2,905,0)="""KEY"",779.3,779.3,""A"",2,0)"
^XMB(3.9,41,2,906,0)="^.312IA^1^1"
^XMB(3.9,41,2,907,0)="""KEY"",779.3,779.3,""A"",2,1,0)"
^XMB(3.9,41,2,908,0)=".01^779.3^1"
^XMB(3.9,41,2,909,0)="""KEYPTR"",779.2,779.2,""A"")"
^XMB(3.9,41,2,910,0)="779.2^C"
^XMB(3.9,41,2,911,0)="""KEYPTR"",779.2,779.21,""A"")"
^XMB(3.9,41,2,912,0)="779.21^C"
^XMB(3.9,41,2,913,0)="""KEYPTR"",779.3,779.3,""A"")"
^XMB(3.9,41,2,914,0)="779.3^D"
^XMB(3.9,41,2,915,0)="""KRN"",.402,77,-1)"
^XMB(3.9,41,2,916,0)="0^1"
^XMB(3.9,41,2,917,0)="""KRN"",.402,77,0)"
^XMB(3.9,41,2,918,0)="HLOAPREG^3050527.1112^@^779.2^^@^3050527"
^XMB(3.9,41,2,919,0)="""KRN"",.402,77,""DIAB"",1,1,779.21,0)"
^XMB(3.9,41,2,920,0)="ALL"
^XMB(3.9,41,2,921,0)="""KRN"",.402,77,""DR"",1,779.2)"
^XMB(3.9,41,2,922,0)=".01;2;.09;.03;.06;.07;.08;.04;.05;1;"
^XMB(3.9,41,2,923,0)="""KRN"",.402,77,""DR"",2,779.21)"
^XMB(3.9,41,2,924,0)=".01:.05"
^XMB(3.9,41,2,925,0)="""KRN"",.403,30,-1)"
^XMB(3.9,41,2,926,0)="0^1"
^XMB(3.9,41,2,927,0)="""KRN"",.403,30,0)"
^XMB(3.9,41,2,928,0)="HL7 LOGICAL LINK^@^@^^2990706.1207^^^870^0^0^1"
^XMB(3.9,41,2,929,0)="""KRN"",.403,30,40,0)"
^XMB(3.9,41,2,930,0)="^.4031I^5^5"
^XMB(3.9,41,2,931,0)="""KRN"",.403,30,40,1,0)"
^XMB(3.9,41,2,932,0)="1^^1,1"
^XMB(3.9,41,2,933,0)="""KRN"",.403,30,40,1,1)"
^XMB(3.9,41,2,934,0)="Page 1"
^XMB(3.9,41,2,935,0)="""KRN"",.403,30,40,1,40,0)"
^XMB(3.9,41,2,936,0)="^.4032IP^144^2"
^XMB(3.9,41,2,937,0)="""KRN"",.403,30,40,1,40,143,0)"
^XMB(3.9,41,2,938,0)="HL7 LL HEADER1^1^1,1^d"
^XMB(3.9,41,2,939,0)="""KRN"",.403,30,40,1,40,144,0)"
^XMB(3.9,41,2,940,0)="HL7 LL BLK1^2^2,1^e"
^XMB(3.9,41,2,941,0)="""KRN"",.403,30,40,2,0)"
^XMB(3.9,41,2,942,0)="3^^3,3^^^1^14,77"
^XMB(3.9,41,2,943,0)="""KRN"",.403,30,40,2,1)"
^XMB(3.9,41,2,944,0)="Page 3"
^XMB(3.9,41,2,945,0)="""KRN"",.403,30,40,2,40,0)"
^XMB(3.9,41,2,946,0)="^.4032IP^145^1"
^XMB(3.9,41,2,947,0)="""KRN"",.403,30,40,2,40,145,0)"
^XMB(3.9,41,2,948,0)="HL7 LLP HLLP^1^1,2^e"
^XMB(3.9,41,2,949,0)="""KRN"",.403,30,40,2,40,145,1)"
^XMB(3.9,41,2,950,0)=""
^XMB(3.9,41,2,951,0)="""KRN"",.403,30,40,3,0)"
^XMB(3.9,41,2,952,0)="5^^3,3^^^1^17,77"
^XMB(3.9,41,2,953,0)="""KRN"",.403,30,40,3,1)"
^XMB(3.9,41,2,954,0)="Page 5"
^XMB(3.9,41,2,955,0)="""KRN"",.403,30,40,3,40,0)"
^XMB(3.9,41,2,956,0)="^.4032IP^146^1"
^XMB(3.9,41,2,957,0)="""KRN"",.403,30,40,3,40,146,0)"
^XMB(3.9,41,2,958,0)="HL7 LLP TCP^1^1,2^e"
^XMB(3.9,41,2,959,0)="""KRN"",.403,30,40,3,40,146,1)"
^XMB(3.9,41,2,960,0)=""
^XMB(3.9,41,2,961,0)="""KRN"",.403,30,40,4,0)"
^XMB(3.9,41,2,962,0)="2^^3,3^^^1^7,77"
^XMB(3.9,41,2,963,0)="""KRN"",.403,30,40,4,1)"
^XMB(3.9,41,2,964,0)="Page 2"
^XMB(3.9,41,2,965,0)="""KRN"",.403,30,40,4,40,0)"
^XMB(3.9,41,2,966,0)="^.4032IP^147^1"
^XMB(3.9,41,2,967,0)="""KRN"",.403,30,40,4,40,147,0)"
^XMB(3.9,41,2,968,0)="HL7 LLP MAIL^1^1,2^e"
^XMB(3.9,41,2,969,0)="""KRN"",.403,30,40,4,40,147,1)"
^XMB(3.9,41,2,970,0)=""
^XMB(3.9,41,2,971,0)="""KRN"",.403,30,40,5,0)"
^XMB(3.9,41,2,972,0)="4^^3,3^^^1^14,77"
^XMB(3.9,41,2,973,0)="""KRN"",.403,30,40,5,1)"
^XMB(3.9,41,2,974,0)="Page 4"
^XMB(3.9,41,2,975,0)="""KRN"",.403,30,40,5,40,0)"
^XMB(3.9,41,2,976,0)="^.4032IP^148^1"
^XMB(3.9,41,2,977,0)="""KRN"",.403,30,40,5,40,148,0)"
^XMB(3.9,41,2,978,0)="HL7 LLP X3.28^1^1,2^e"
^XMB(3.9,41,2,979,0)="""KRN"",.403,30,40,5,40,148,1)"
^XMB(3.9,41,2,980,0)=""
^XMB(3.9,41,2,981,0)="""KRN"",.404,143,0)"
^XMB(3.9,41,2,982,0)="HL7 LL HEADER1^870^"
^XMB(3.9,41,2,983,0)="""KRN"",.404,143,40,0)"
^XMB(3.9,41,2,984,0)="^.4044I^3^2"
^XMB(3.9,41,2,985,0)="""KRN"",.404,143,40,1,0)"
^XMB(3.9,41,2,986,0)="1^HL7 LOGICAL LINK^1"
^XMB(3.9,41,2,987,0)="""KRN"",.404,143,40,1,2)"
^XMB(3.9,41,2,988,0)="^^1,27"
^XMB(3.9,41,2,989,0)="""KRN"",.404,143,40,3,0)"
^XMB(3.9,41,2,990,0)="3^--------------------------------------------------------------------------------^1"
^XMB(3.9,41,2,991,0)="""KRN"",.404,143,40,3,2)"
^XMB(3.9,41,2,992,0)="^^2,1"
^XMB(3.9,41,2,993,0)="""KRN"",.404,144,0)"
^XMB(3.9,41,2,994,0)="HL7 LL BLK1^870"
^XMB(3.9,41,2,995,0)="""KRN"",.404,144,40,0)"
^XMB(3.9,41,2,996,0)="^.4044I^7^7"
^XMB(3.9,41,2,997,0)="""KRN"",.404,144,40,1,0)"
^XMB(3.9,41,2,998,0)="1^NODE^3"
^XMB(3.9,41,2,999,0)="""KRN"",.404,144,40,1,1)"
^XMB(3.9,41,2,1000,0)=".01"
^XMB(3.9,41,2,1001,0)="""KRN"",.404,144,40,1,2)"
^XMB(3.9,41,2,1002,0)="4,23^10^4,17"
^XMB(3.9,41,2,1003,0)="""KRN"",.404,144,40,1,4)"
^XMB(3.9,41,2,1004,0)="1"
^XMB(3.9,41,2,1005,0)="""KRN"",.404,144,40,2,0)"
^XMB(3.9,41,2,1006,0)="2^INSTITUTION^3"
^XMB(3.9,41,2,1007,0)="""KRN"",.404,144,40,2,1)"
^XMB(3.9,41,2,1008,0)=".02"
^XMB(3.9,41,2,1009,0)="""KRN"",.404,144,40,2,2)"
^XMB(3.9,41,2,1010,0)="6,23^30^6,10"
^XMB(3.9,41,2,1011,0)="""KRN"",.404,144,40,3,0)"
^XMB(3.9,41,2,1012,0)="3^MAILMAN DOMAIN^3"
^XMB(3.9,41,2,1013,0)="""KRN"",.404,144,40,3,1)"
^XMB(3.9,41,2,1014,0)=".03"
^XMB(3.9,41,2,1015,0)="""KRN"",.404,144,40,3,2)"
^XMB(3.9,41,2,1016,0)="8,23^30^8,7"
^XMB(3.9,41,2,1017,0)="""KRN"",.404,144,40,4,0)"
^XMB(3.9,41,2,1018,0)="6^LLP TYPE^3"
^XMB(3.9,41,2,1019,0)="""KRN"",.404,144,40,4,1)"
^XMB(3.9,41,2,1020,0)="2"
^XMB(3.9,41,2,1021,0)="""KRN"",.404,144,40,4,2)"
^XMB(3.9,41,2,1022,0)="14,23^30^14,13"
^XMB(3.9,41,2,1023,0)="""KRN"",.404,144,40,4,4)"
^XMB(3.9,41,2,1024,0)="1"
^XMB(3.9,41,2,1025,0)="""KRN"",.404,144,40,4,10)"
^XMB(3.9,41,2,1026,0)="S DDSSTACK=""PAGE ""_(1+X)"
^XMB(3.9,41,2,1027,0)="""KRN"",.404,144,40,5,0)"
^XMB(3.9,41,2,1028,0)="4^AUTOSTART^3"
^XMB(3.9,41,2,1029,0)="""KRN"",.404,144,40,5,1)"
^XMB(3.9,41,2,1030,0)="4.5"
^XMB(3.9,41,2,1031,0)="""KRN"",.404,144,40,5,2)"
^XMB(3.9,41,2,1032,0)="10,23^8^10,12"
^XMB(3.9,41,2,1033,0)="""KRN"",.404,144,40,6,0)"
^XMB(3.9,41,2,1034,0)="5^QUEUE SIZE^3"
^XMB(3.9,41,2,1035,0)="""KRN"",.404,144,40,6,1)"
^XMB(3.9,41,2,1036,0)="21"
^XMB(3.9,41,2,1037,0)="""KRN"",.404,144,40,6,2)"
^XMB(3.9,41,2,1038,0)="12,23^6^12,11"
^XMB(3.9,41,2,1039,0)="""KRN"",.404,144,40,6,3)"
^XMB(3.9,41,2,1040,0)="10"
^XMB(3.9,41,2,1041,0)="""KRN"",.404,144,40,7,0)"
^XMB(3.9,41,2,1042,0)="7^DNS DOMAIN^3"
^XMB(3.9,41,2,1043,0)="""KRN"",.404,144,40,7,1)"
^XMB(3.9,41,2,1044,0)=".08"
^XMB(3.9,41,2,1045,0)="""KRN"",.404,144,40,7,2)"
^XMB(3.9,41,2,1046,0)="16,23^30^16,11"
^XMB(3.9,41,2,1047,0)="""KRN"",.404,145,0)"
^XMB(3.9,41,2,1048,0)="HL7 LLP HLLP^870"
^XMB(3.9,41,2,1049,0)="""KRN"",.404,145,40,0)"
^XMB(3.9,41,2,1050,0)="^.4044I^11^10"
^XMB(3.9,41,2,1051,0)="""KRN"",.404,145,40,1,0)"
^XMB(3.9,41,2,1052,0)="1^HLLP LOWER LEVEL PARAMETERS^1"
^XMB(3.9,41,2,1053,0)="""KRN"",.404,145,40,1,2)"
^XMB(3.9,41,2,1054,0)="^^1,24"
^XMB(3.9,41,2,1055,0)="""KRN"",.404,145,40,2,0)"
^XMB(3.9,41,2,1056,0)="2^^3"
^XMB(3.9,41,2,1057,0)="""KRN"",.404,145,40,2,1)"
^XMB(3.9,41,2,1058,0)=".01"
^XMB(3.9,41,2,1059,0)="""KRN"",.404,145,40,2,2)"
^XMB(3.9,41,2,1060,0)="2,24^30"
^XMB(3.9,41,2,1061,0)="""KRN"",.404,145,40,2,4)"
^XMB(3.9,41,2,1062,0)="^^^1"
^XMB(3.9,41,2,1063,0)="""KRN"",.404,145,40,4,0)"
^XMB(3.9,41,2,1064,0)="9^BLOCK SIZE^3"
^XMB(3.9,41,2,1065,0)="""KRN"",.404,145,40,4,1)"
^XMB(3.9,41,2,1066,0)="200.03"
^XMB(3.9,41,2,1067,0)="""KRN"",.404,145,40,4,2)"
^XMB(3.9,41,2,1068,0)="11,15^3^11,3"
^XMB(3.9,41,2,1069,0)="""KRN"",.404,145,40,5,0)"
^XMB(3.9,41,2,1070,0)="3^HLLP DEVICE^3"
^XMB(3.9,41,2,1071,0)="""KRN"",.404,145,40,5,1)"
^XMB(3.9,41,2,1072,0)="200.01"
^XMB(3.9,41,2,1073,0)="""KRN"",.404,145,40,5,2)"
^XMB(3.9,41,2,1074,0)="5,15^30^5,2"
^XMB(3.9,41,2,1075,0)="""KRN"",.404,145,40,6,0)"
^XMB(3.9,41,2,1076,0)="6^RE-TRANSMISION ATTEMPTS^3"
^XMB(3.9,41,2,1077,0)="""KRN"",.404,145,40,6,1)"
^XMB(3.9,41,2,1078,0)="200.02"
^XMB(3.9,41,2,1079,0)="""KRN"",.404,145,40,6,2)"
^XMB(3.9,41,2,1080,0)="7,70^2^7,45"
^XMB(3.9,41,2,1081,0)="""KRN"",.404,145,40,7,0)"
^XMB(3.9,41,2,1082,0)="5^READ TIMEOUT^3"
^XMB(3.9,41,2,1083,0)="""KRN"",.404,145,40,7,1)"
^XMB(3.9,41,2,1084,0)="200.04"
^XMB(3.9,41,2,1085,0)="""KRN"",.404,145,40,7,2)"
^XMB(3.9,41,2,1086,0)="7,15^2^7,1"
^XMB(3.9,41,2,1087,0)="""KRN"",.404,145,40,8,0)"
^XMB(3.9,41,2,1088,0)="7^ACK TIMEOUT^3"
^XMB(3.9,41,2,1089,0)="""KRN"",.404,145,40,8,1)"
^XMB(3.9,41,2,1090,0)="200.05"
^XMB(3.9,41,2,1091,0)="""KRN"",.404,145,40,8,2)"
^XMB(3.9,41,2,1092,0)="9,15^3^9,2"
^XMB(3.9,41,2,1093,0)="""KRN"",.404,145,40,9,0)"
^XMB(3.9,41,2,1094,0)="8^LLP START BLOCK^3"
^XMB(3.9,41,2,1095,0)="""KRN"",.404,145,40,9,1)"
^XMB(3.9,41,2,1096,0)="200.06"
^XMB(3.9,41,2,1097,0)="""KRN"",.404,145,40,9,2)"
^XMB(3.9,41,2,1098,0)="9,70^2^9,53"
^XMB(3.9,41,2,1099,0)="""KRN"",.404,145,40,10,0)"
^XMB(3.9,41,2,1100,0)="10^LLP END BLOCK^3"
^XMB(3.9,41,2,1101,0)="""KRN"",.404,145,40,10,1)"
^XMB(3.9,41,2,1102,0)="200.07"
^XMB(3.9,41,2,1103,0)="""KRN"",.404,145,40,10,2)"
^XMB(3.9,41,2,1104,0)="11,70^2^11,55"
^XMB(3.9,41,2,1105,0)="""KRN"",.404,145,40,11,0)"
^XMB(3.9,41,2,1106,0)="4^PROTOCOL ID VERSION^3"
^XMB(3.9,41,2,1107,0)="""KRN"",.404,145,40,11,1)"
^XMB(3.9,41,2,1108,0)="200.08"
^XMB(3.9,41,2,1109,0)="""KRN"",.404,145,40,11,2)"
^XMB(3.9,41,2,1110,0)="5,70^3^5,49"
^XMB(3.9,41,2,1111,0)="""KRN"",.404,146,0)"
^XMB(3.9,41,2,1112,0)="HL7 LLP TCP^870"
^XMB(3.9,41,2,1113,0)="""KRN"",.404,146,40,0)"
^XMB(3.9,41,2,1114,0)="^.4044I^16^15"
^XMB(3.9,41,2,1115,0)="""KRN"",.404,146,40,1,0)"
^XMB(3.9,41,2,1116,0)="1^TCP LOWER LEVEL PARAMETERS^1"
^XMB(3.9,41,2,1117,0)="""KRN"",.404,146,40,1,2)"
^XMB(3.9,41,2,1118,0)="^^1,23"
^XMB(3.9,41,2,1119,0)="""KRN"",.404,146,40,2,0)"
^XMB(3.9,41,2,1120,0)="2^^3"
^XMB(3.9,41,2,1121,0)="""KRN"",.404,146,40,2,1)"
^XMB(3.9,41,2,1122,0)=".01"
^XMB(3.9,41,2,1123,0)="""KRN"",.404,146,40,2,2)"
^XMB(3.9,41,2,1124,0)="2,23^30"
^XMB(3.9,41,2,1125,0)="""KRN"",.404,146,40,2,4)"
^XMB(3.9,41,2,1126,0)="^^^1"
^XMB(3.9,41,2,1127,0)="""KRN"",.404,146,40,4,0)"
^XMB(3.9,41,2,1128,0)="7^RE-TRANSMISION ATTEMPTS^3"
^XMB(3.9,41,2,1129,0)="""KRN"",.404,146,40,4,1)"
^XMB(3.9,41,2,1130,0)="200.02"
^XMB(3.9,41,2,1131,0)="""KRN"",.404,146,40,4,2)"
^XMB(3.9,41,2,1132,0)="9,64^2^9,39"
^XMB(3.9,41,2,1133,0)="""KRN"",.404,146,40,5,0)"
^XMB(3.9,41,2,1134,0)="10^BLOCK SIZE^3"
^XMB(3.9,41,2,1135,0)="""KRN"",.404,146,40,5,1)"
^XMB(3.9,41,2,1136,0)="200.03"
^XMB(3.9,41,2,1137,0)="""KRN"",.404,146,40,5,2)"
^XMB(3.9,41,2,1138,0)="11,17^3^11,5"
^XMB(3.9,41,2,1139,0)="""KRN"",.404,146,40,6,0)"
^XMB(3.9,41,2,1140,0)="8^READ TIMEOUT^3"
^XMB(3.9,41,2,1141,0)="""KRN"",.404,146,40,6,1)"
^XMB(3.9,41,2,1142,0)="200.04"
^XMB(3.9,41,2,1143,0)="""KRN"",.404,146,40,6,2)"
^XMB(3.9,41,2,1144,0)="10,17^2^10,3"
^XMB(3.9,41,2,1145,0)="""KRN"",.404,146,40,7,0)"
^XMB(3.9,41,2,1146,0)="6^ACK TIMEOUT^3"
^XMB(3.9,41,2,1147,0)="""KRN"",.404,146,40,7,1)"
^XMB(3.9,41,2,1148,0)="200.05"
^XMB(3.9,41,2,1149,0)="""KRN"",.404,146,40,7,2)"
^XMB(3.9,41,2,1150,0)="9,17^3^9,4"
^XMB(3.9,41,2,1151,0)="""KRN"",.404,146,40,8,0)"
^XMB(3.9,41,2,1152,0)="15^UNI-DIRECTIONAL WAIT^3"
^XMB(3.9,41,2,1153,0)="""KRN"",.404,146,40,8,1)"
^XMB(3.9,41,2,1154,0)="200.09"
^XMB(3.9,41,2,1155,0)="""KRN"",.404,146,40,8,2)"
^XMB(3.9,41,2,1156,0)="14,64^2^14,42"
^XMB(3.9,41,2,1157,0)="""KRN"",.404,146,40,9,0)"
^XMB(3.9,41,2,1158,0)="4^TCP/IP ADDRESS^3"
^XMB(3.9,41,2,1159,0)="""KRN"",.404,146,40,9,1)"
^XMB(3.9,41,2,1160,0)="400.01"
^XMB(3.9,41,2,1161,0)="""KRN"",.404,146,40,9,2)"
^XMB(3.9,41,2,1162,0)="5,24^40^5,8"
^XMB(3.9,41,2,1163,0)="""KRN"",.404,146,40,10,0)"
^XMB(3.9,41,2,1164,0)="5^TCP/IP PORT^3"
^XMB(3.9,41,2,1165,0)="""KRN"",.404,146,40,10,1)"
^XMB(3.9,41,2,1166,0)="400.02"
^XMB(3.9,41,2,1167,0)="""KRN"",.404,146,40,10,2)"
^XMB(3.9,41,2,1168,0)="6,24^5^6,11"
^XMB(3.9,41,2,1169,0)="""KRN"",.404,146,40,11,0)"
^XMB(3.9,41,2,1170,0)="3^TCP/IP SERVICE TYPE^3"
^XMB(3.9,41,2,1171,0)="""KRN"",.404,146,40,11,1)"
^XMB(3.9,41,2,1172,0)="400.03"
^XMB(3.9,41,2,1173,0)="""KRN"",.404,146,40,11,2)"
^XMB(3.9,41,2,1174,0)="4,24^15^4,3"
^XMB(3.9,41,2,1175,0)="""KRN"",.404,146,40,11,13)"
^XMB(3.9,41,2,1176,0)="I X'=""C"" F HLI=200.02,200.09,400.04,400.05 D UNED^DDSUTL(HLI,"""","""",1)"
^XMB(3.9,41,2,1177,0)="""KRN"",.404,146,40,12,0)"
^XMB(3.9,41,2,1178,0)="13^PERSISTENT^3"
^XMB(3.9,41,2,1179,0)="""KRN"",.404,146,40,12,1)"
^XMB(3.9,41,2,1180,0)="400.04"
^XMB(3.9,41,2,1181,0)="""KRN"",.404,146,40,12,2)"
^XMB(3.9,41,2,1182,0)="13,64^3^13,52"
^XMB(3.9,41,2,1183,0)="""KRN"",.404,146,40,13,0)"
^XMB(3.9,41,2,1184,0)="14^RETENTION^3"
^XMB(3.9,41,2,1185,0)="""KRN"",.404,146,40,13,1)"
^XMB(3.9,41,2,1186,0)="400.05"
^XMB(3.9,41,2,1187,0)="""KRN"",.404,146,40,13,2)"
^XMB(3.9,41,2,1188,0)="14,15^6^14,4"
^XMB(3.9,41,2,1189,0)="""KRN"",.404,146,40,14,0)"
^XMB(3.9,41,2,1190,0)="12^STARTUP NODE^3"
^XMB(3.9,41,2,1191,0)="""KRN"",.404,146,40,14,1)"
^XMB(3.9,41,2,1192,0)="400.06"
^XMB(3.9,41,2,1193,0)="""KRN"",.404,146,40,14,2)"
^XMB(3.9,41,2,1194,0)="13,15^20^13,1"
^XMB(3.9,41,2,1195,0)="""KRN"",.404,146,40,15,0)"
^XMB(3.9,41,2,1196,0)="9^EXCEED RE-TRANSMIT ACTION^3"
^XMB(3.9,41,2,1197,0)="""KRN"",.404,146,40,15,1)"
^XMB(3.9,41,2,1198,0)="200.021"
^XMB(3.9,41,2,1199,0)="""KRN"",.404,146,40,15,2)"
^XMB(3.9,41,2,1200,0)="10,64^10^10,37"
^XMB(3.9,41,2,1201,0)="""KRN"",.404,146,40,15,4)"
^XMB(3.9,41,2,1202,0)="0"
^XMB(3.9,41,2,1203,0)="""KRN"",.404,146,40,16,0)"
^XMB(3.9,41,2,1204,0)="11^SAY HELO^3"
^XMB(3.9,41,2,1205,0)="""KRN"",.404,146,40,16,1)"
^XMB(3.9,41,2,1206,0)="400.07"
^XMB(3.9,41,2,1207,0)="""KRN"",.404,146,40,16,2)"
^XMB(3.9,41,2,1208,0)="11,64^3^11,54"
^XMB(3.9,41,2,1209,0)="""KRN"",.404,146,40,17,0)"
^XMB(3.9,41,2,1210,0)="5.1^TCP/IP PORT (OPTIMIZED)^3"
^XMB(3.9,41,2,1211,0)="""KRN"",.404,146,40,17,1)"
^XMB(3.9,41,2,1212,0)="400.08"
^XMB(3.9,41,2,1213,0)="""KRN"",.404,146,40,17,2)"
^XMB(3.9,41,2,1214,0)="7,36^5^7,11"
^XMB(3.9,41,2,1215,0)="""KRN"",.404,147,0)"
^XMB(3.9,41,2,1216,0)="HL7 LLP MAIL^870"
^XMB(3.9,41,2,1217,0)="""KRN"",.404,147,40,0)"
^XMB(3.9,41,2,1218,0)="^.4044I^5^3"
^XMB(3.9,41,2,1219,0)="""KRN"",.404,147,40,1,0)"
^XMB(3.9,41,2,1220,0)="1^MAILMAN LOWER LEVEL PARAMETERS^1"
^XMB(3.9,41,2,1221,0)="""KRN"",.404,147,40,1,2)"
^XMB(3.9,41,2,1222,0)="^^1,23"
^XMB(3.9,41,2,1223,0)="""KRN"",.404,147,40,4,0)"
^XMB(3.9,41,2,1224,0)="2^MAIL GROUP^3"
^XMB(3.9,41,2,1225,0)="""KRN"",.404,147,40,4,1)"
^XMB(3.9,41,2,1226,0)="100.01"
^XMB(3.9,41,2,1227,0)="""KRN"",.404,147,40,4,2)"
^XMB(3.9,41,2,1228,0)="4,23^30^4,11"
^XMB(3.9,41,2,1229,0)="""KRN"",.404,147,40,4,4)"
^XMB(3.9,41,2,1230,0)="0"
^XMB(3.9,41,2,1231,0)="""KRN"",.404,147,40,5,0)"
^XMB(3.9,41,2,1232,0)="3^^3"
^XMB(3.9,41,2,1233,0)="""KRN"",.404,147,40,5,1)"
^XMB(3.9,41,2,1234,0)=".01"
^XMB(3.9,41,2,1235,0)="""KRN"",.404,147,40,5,2)"
^XMB(3.9,41,2,1236,0)="2,23^30"
^XMB(3.9,41,2,1237,0)="""KRN"",.404,147,40,5,4)"
^XMB(3.9,41,2,1238,0)="^^^1"
^XMB(3.9,41,2,1239,0)="""KRN"",.404,148,0)"
^XMB(3.9,41,2,1240,0)="HL7 LLP X3.28^870"
^XMB(3.9,41,2,1241,0)="""KRN"",.404,148,40,0)"
^XMB(3.9,41,2,1242,0)="^.4044I^10^9"
^XMB(3.9,41,2,1243,0)="""KRN"",.404,148,40,1,0)"
^XMB(3.9,41,2,1244,0)="1^X3.28 LOWER LEVEL PARAMETERS^1"
^XMB(3.9,41,2,1245,0)="""KRN"",.404,148,40,1,2)"
^XMB(3.9,41,2,1246,0)="^^1,23"
^XMB(3.9,41,2,1247,0)="""KRN"",.404,148,40,2,0)"
^XMB(3.9,41,2,1248,0)="2^^3"
^XMB(3.9,41,2,1249,0)="""KRN"",.404,148,40,2,1)"
^XMB(3.9,41,2,1250,0)=".01"
^XMB(3.9,41,2,1251,0)="""KRN"",.404,148,40,2,2)"
^XMB(3.9,41,2,1252,0)="2,23^30"
^XMB(3.9,41,2,1253,0)="""KRN"",.404,148,40,2,4)"
^XMB(3.9,41,2,1254,0)="^^^1"
^XMB(3.9,41,2,1255,0)="""KRN"",.404,148,40,4,0)"
^XMB(3.9,41,2,1256,0)="3^X3.28 DEVICE^3"
^XMB(3.9,41,2,1257,0)="""KRN"",.404,148,40,4,1)"
^XMB(3.9,41,2,1258,0)="300.01"
^XMB(3.9,41,2,1259,0)="""KRN"",.404,148,40,4,2)"
^XMB(3.9,41,2,1260,0)="5,24^30^5,10"
^XMB(3.9,41,2,1261,0)="""KRN"",.404,148,40,5,0)"
^XMB(3.9,41,2,1262,0)="4^MAXIMUM MESSAGE SIZE^3"
^XMB(3.9,41,2,1263,0)="""KRN"",.404,148,40,5,1)"
^XMB(3.9,41,2,1264,0)="300.02"
^XMB(3.9,41,2,1265,0)="""KRN"",.404,148,40,5,2)"
^XMB(3.9,41,2,1266,0)="7,24^5^7,2"
^XMB(3.9,41,2,1267,0)="""KRN"",.404,148,40,6,0)"
^XMB(3.9,41,2,1268,0)="5^MAXIMUM BLOCK SIZE^3"
^XMB(3.9,41,2,1269,0)="""KRN"",.404,148,40,6,1)"
^XMB(3.9,41,2,1270,0)="300.03"
^XMB(3.9,41,2,1271,0)="""KRN"",.404,148,40,6,2)"
^XMB(3.9,41,2,1272,0)="7,69^3^7,49"
^XMB(3.9,41,2,1273,0)="""KRN"",.404,148,40,7,0)"
^XMB(3.9,41,2,1274,0)="6^TIMER A^3"
^XMB(3.9,41,2,1275,0)="""KRN"",.404,148,40,7,1)"
^XMB(3.9,41,2,1276,0)="300.04"
^XMB(3.9,41,2,1277,0)="""KRN"",.404,148,40,7,2)"
^XMB(3.9,41,2,1278,0)="9,24^2^9,15"
^XMB(3.9,41,2,1279,0)="""KRN"",.404,148,40,8,0)"
^XMB(3.9,41,2,1280,0)="8^TIMER B^3"
^XMB(3.9,41,2,1281,0)="""KRN"",.404,148,40,8,1)"
^XMB(3.9,41,2,1282,0)="300.05"
^XMB(3.9,41,2,1283,0)="""KRN"",.404,148,40,8,2)"
^XMB(3.9,41,2,1284,0)="11,24^2^11,15"
^XMB(3.9,41,2,1285,0)="""KRN"",.404,148,40,9,0)"
^XMB(3.9,41,2,1286,0)="7^TIMER D^3"
^XMB(3.9,41,2,1287,0)="""KRN"",.404,148,40,9,1)"
^XMB(3.9,41,2,1288,0)="300.06"
^XMB(3.9,41,2,1289,0)="""KRN"",.404,148,40,9,2)"
^XMB(3.9,41,2,1290,0)="9,69^2^9,60"
^XMB(3.9,41,2,1291,0)="""KRN"",.404,148,40,10,0)"
^XMB(3.9,41,2,1292,0)="9^TIMER E^3"
^XMB(3.9,41,2,1293,0)="""KRN"",.404,148,40,10,1)"
^XMB(3.9,41,2,1294,0)="300.07"
^XMB(3.9,41,2,1295,0)="""KRN"",.404,148,40,10,2)"
^XMB(3.9,41,2,1296,0)="11,69^3^11,60"
^XMB(3.9,41,2,1297,0)="""KRN"",19,634,-1)"
^XMB(3.9,41,2,1298,0)="2^7"
^XMB(3.9,41,2,1299,0)="""KRN"",19,634,0)"
^XMB(3.9,41,2,1300,0)="HL MAIN MENU^HL7 Main Menu^^M^6^^^^^^y^9^y"
^XMB(3.9,41,2,1301,0)="""KRN"",19,634,10,0)"
^XMB(3.9,41,2,1302,0)="^19.01IP^15^15"
^XMB(3.9,41,2,1303,0)="""KRN"",19,634,10,15,0)"
^XMB(3.9,41,2,1304,0)="1047^HLO^7"
^XMB(3.9,41,2,1305,0)="""KRN"",19,634,10,15,""^"")"
^XMB(3.9,41,2,1306,0)="HLO MAIN MENU"
^XMB(3.9,41,2,1307,0)="""KRN"",19,634,""U"")"
^XMB(3.9,41,2,1308,0)="HL7 MAIN MENU"
^XMB(3.9,41,2,1309,0)="""KRN"",19,1044,-1)"
^XMB(3.9,41,2,1310,0)="0^2"
^XMB(3.9,41,2,1311,0)="""KRN"",19,1044,0)"
^XMB(3.9,41,2,1312,0)="HLO COUNT RECORDS^COUNT HL7 MESSAGE RECORDS^^A^^^^^^^n^HEALTH LEVEL SEVEN^^1"
^XMB(3.9,41,2,1313,0)="""KRN"",19,1044,1,0)"
^XMB(3.9,41,2,1314,0)="^^1^1^3040928^"
^XMB(3.9,41,2,1315,0)="""KRN"",19,1044,1,1,0)"
^XMB(3.9,41,2,1316,0)="This option will run daily on off-hours to count records in files 777 & 778."
^XMB(3.9,41,2,1317,0)="""KRN"",19,1044,20)"
^XMB(3.9,41,2,1318,0)="D UPDCNTS^HLOSITE"
^XMB(3.9,41,2,1319,0)="""KRN"",19,1044,""U"")"
^XMB(3.9,41,2,1320,0)="COUNT HL7 MESSAGE RECORDS"
^XMB(3.9,41,2,1321,0)="""KRN"",19,1045,-1)"
^XMB(3.9,41,2,1322,0)="0^5"
^XMB(3.9,41,2,1323,0)="""KRN"",19,1045,0)"
^XMB(3.9,41,2,1324,0)="HLO SYSTEM MONITOR^HLO SYSTEM MONITOR^^A^^^^^^^y^HEALTH LEVEL SEVEN^^1"
^XMB(3.9,41,2,1325,0)="""KRN"",19,1045,1,0)"
^XMB(3.9,41,2,1326,0)="^19.06^1^1^3050801^^"
^XMB(3.9,41,2,1327,0)="""KRN"",19,1045,1,1,0)"
^XMB(3.9,41,2,1328,0)="This option is for IRM folks to monitor the operational aspects of HLO."
^XMB(3.9,41,2,1329,0)="""KRN"",19,1045,20)"
^XMB(3.9,41,2,1330,0)="D EN^HLOUSR"
^XMB(3.9,41,2,1331,0)="""KRN"",19,1045,""U"")"
^XMB(3.9,41,2,1332,0)="HLO SYSTEM MONITOR"
^XMB(3.9,41,2,1333,0)="""KRN"",19,1046,-1)"
^XMB(3.9,41,2,1334,0)="0^4"
^XMB(3.9,41,2,1335,0)="""KRN"",19,1046,0)"
^XMB(3.9,41,2,1336,0)="HLO MESSAGE VIEWER^HLO MESSAGE VIEWER^^A^^^^^^^y^HEALTH LEVEL SEVEN^^1"
^XMB(3.9,41,2,1337,0)="""KRN"",19,1046,1,0)"
^XMB(3.9,41,2,1338,0)="^19.06^2^2^3050418^^"
^XMB(3.9,41,2,1339,0)="""KRN"",19,1046,1,1,0)"
^XMB(3.9,41,2,1340,0)="This option is for viewing messages.  It is a ListManager interface that provides"
^XMB(3.9,41,2,1341,0)="""KRN"",19,1046,1,2,0)"
^XMB(3.9,41,2,1342,0)="a variety of methods for selecting messages for viewing."
^XMB(3.9,41,2,1343,0)="""KRN"",19,1046,20)"
^XMB(3.9,41,2,1344,0)="D EN^HLOUSR2"
^XMB(3.9,41,2,1345,0)="""KRN"",19,1046,""U"")"
^XMB(3.9,41,2,1346,0)="HLO MESSAGE VIEWER"
^XMB(3.9,41,2,1347,0)="""KRN"",19,1047,-1)"
^XMB(3.9,41,2,1348,0)="0^3"
^XMB(3.9,41,2,1349,0)="""KRN"",19,1047,0)"
^XMB(3.9,41,2,1350,0)="HLO MAIN MENU^HL7 (Optimized) MAIN MENU^^M^^^^^^^y^HEALTH LEVEL SEVEN"
^XMB(3.9,41,2,1351,0)="""KRN"",19,1047,1,0)"
^XMB(3.9,41,2,1352,0)="^19.06^1^1^3050801^^^^"
^XMB(3.9,41,2,1353,0)="""KRN"",19,1047,1,1,0)"
^XMB(3.9,41,2,1354,0)="This menu contains all the options developed for HLO."
^XMB(3.9,41,2,1355,0)="""KRN"",19,1047,10,0)"
^XMB(3.9,41,2,1356,0)="^19.01IP^3^3"
^XMB(3.9,41,2,1357,0)="""KRN"",19,1047,10,1,0)"
^XMB(3.9,41,2,1358,0)="1045^SM^1"
^XMB(3.9,41,2,1359,0)="""KRN"",19,1047,10,1,""^"")"
^XMB(3.9,41,2,1360,0)="HLO SYSTEM MONITOR"
^XMB(3.9,41,2,1361,0)="""KRN"",19,1047,10,2,0)"
^XMB(3.9,41,2,1362,0)="1046^MV^2"
^XMB(3.9,41,2,1363,0)="""KRN"",19,1047,10,2,""^"")"
^XMB(3.9,41,2,1364,0)="HLO MESSAGE VIEWER"
^XMB(3.9,41,2,1365,0)="""KRN"",19,1047,10,3,0)"
^XMB(3.9,41,2,1366,0)="1061^APPS^3"
^XMB(3.9,41,2,1367,0)="""KRN"",19,1047,10,3,""^"")"
^XMB(3.9,41,2,1368,0)="HLO APPLICATION REGISTRY"
^XMB(3.9,41,2,1369,0)="""KRN"",19,1047,99)"
^XMB(3.9,41,2,1370,0)="60162,30178"
^XMB(3.9,41,2,1371,0)="""KRN"",19,1047,""U"")"
^XMB(3.9,41,2,1372,0)="HL7 (OPTIMIZED) MAIN MENU"
^XMB(3.9,41,2,1373,0)="""KRN"",19,1048,-1)"
^XMB(3.9,41,2,1374,0)="0^6"
^XMB(3.9,41,2,1375,0)="""KRN"",19,1048,0)"
^XMB(3.9,41,2,1376,0)="HLO SYSTEM STARTUP^HL7 (Optimized) SYSTEM STARTUP^^A^^^^^^^n^HEALTH LEVEL SEVEN^^1"
^XMB(3.9,41,2,1377,0)="""KRN"",19,1048,1,0)"
^XMB(3.9,41,2,1378,0)="^19.06^2^2^3050801^^"
^XMB(3.9,41,2,1379,0)="""KRN"",19,1048,1,1,0)"
^XMB(3.9,41,2,1380,0)="This option should be scheduled upon system startup to start HLO"
^XMB(3.9,41,2,1381,0)="""KRN"",19,1048,1,2,0)"
^XMB(3.9,41,2,1382,0)="running."
^XMB(3.9,41,2,1383,0)="""KRN"",19,1048,20)"
^XMB(3.9,41,2,1384,0)="D:'$$CHKSTOP^HLOPROC STARTHL7^HLOPROC1"
^XMB(3.9,41,2,1385,0)="""KRN"",19,1048,""U"")"
^XMB(3.9,41,2,1386,0)="HL7 (OPTIMIZED) SYSTEM STARTUP"
^XMB(3.9,41,2,1387,0)="""KRN"",19,1061,-1)"
^XMB(3.9,41,2,1388,0)="0^1"
^XMB(3.9,41,2,1389,0)="""KRN"",19,1061,0)"
^XMB(3.9,41,2,1390,0)="HLO APPLICATION REGISTRY^HLO APPPLICATION REGISTRY^^E^^^^^^^^HEALTH LEVEL SEVEN^y"
^XMB(3.9,41,2,1391,0)="""KRN"",19,1061,1,0)"
^XMB(3.9,41,2,1392,0)="^19.06^2^2^3050801^^^^"
^XMB(3.9,41,2,1393,0)="""KRN"",19,1061,1,1,0)"
^XMB(3.9,41,2,1394,0)="This option allows the user to register an HL7 (Optimized) application in "
^XMB(3.9,41,2,1395,0)="""KRN"",19,1061,1,2,0)"
^XMB(3.9,41,2,1396,0)="the Application Registry File (779.2)."
^XMB(3.9,41,2,1397,0)="""KRN"",19,1061,30)"
^XMB(3.9,41,2,1398,0)="HLD(779.2,"
^XMB(3.9,41,2,1399,0)="""KRN"",19,1061,31)"
^XMB(3.9,41,2,1400,0)="AEMQL"
^XMB(3.9,41,2,1401,0)="""KRN"",19,1061,50)"
^XMB(3.9,41,2,1402,0)="HLD(779.2,"
^XMB(3.9,41,2,1403,0)="""KRN"",19,1061,51)"
^XMB(3.9,41,2,1404,0)="[HLOAPREG]"
^XMB(3.9,41,2,1405,0)="""KRN"",19,1061,""U"")"
^XMB(3.9,41,2,1406,0)="HLO APPPLICATION REGISTRY"
^XMB(3.9,41,2,1407,0)="""KRN"",101,412,-1)"
^XMB(3.9,41,2,1408,0)="0^15"
^XMB(3.9,41,2,1409,0)="""KRN"",101,412,0)"
^XMB(3.9,41,2,1410,0)="HLO SYSTEM MONITOR MENU^^^M^^^^^^^^HEALTH LEVEL SEVEN"
^XMB(3.9,41,2,1411,0)="""KRN"",101,412,1,0)"
^XMB(3.9,41,2,1412,0)="^101.06^1^1^3050215^^^^"
^XMB(3.9,41,2,1413,0)="""KRN"",101,412,1,1,0)"
^XMB(3.9,41,2,1414,0)="This is the menu for the HL7 (Optimized) System Monitor."
^XMB(3.9,41,2,1415,0)="""KRN"",101,412,4)"
^XMB(3.9,41,2,1416,0)="26^4"
^XMB(3.9,41,2,1417,0)="""KRN"",101,412,10,0)"
^XMB(3.9,41,2,1418,0)="^101.01PA^15^15"
^XMB(3.9,41,2,1419,0)="""KRN"",101,412,10,4,0)"
^XMB(3.9,41,2,1420,0)="413^LP^1^^^LIST PROCESSES"
^XMB(3.9,41,2,1421,0)="""KRN"",101,412,10,4,""^"")"
^XMB(3.9,41,2,1422,0)="HLO DISPLAY PROCESSES"
^XMB(3.9,41,2,1423,0)="""KRN"",101,412,10,5,0)"
^XMB(3.9,41,2,1424,0)="414^DL^2^^^DOWN LINKS"
^XMB(3.9,41,2,1425,0)="""KRN"",101,412,10,5,""^"")"
^XMB(3.9,41,2,1426,0)="HLO DOWN LINKS"
^XMB(3.9,41,2,1427,0)="""KRN"",101,412,10,6,0)"
^XMB(3.9,41,2,1428,0)="415^OQ^3^^^OUTGOING QUEUES"
^XMB(3.9,41,2,1429,0)="""KRN"",101,412,10,6,""^"")"
^XMB(3.9,41,2,1430,0)="HLO DISPLAY OUT-GOING QUEUES"
^XMB(3.9,41,2,1431,0)="""KRN"",101,412,10,7,0)"
^XMB(3.9,41,2,1432,0)="416^IQ^4^^^INCOMING QUEUES"
^XMB(3.9,41,2,1433,0)="""KRN"",101,412,10,7,""^"")"
^XMB(3.9,41,2,1434,0)="HLO INCOMING QUEUES"
^XMB(3.9,41,2,1435,0)="""KRN"",101,412,10,8,0)"
^XMB(3.9,41,2,1436,0)="417^BS^5^^^BRIEF STATUS"
^XMB(3.9,41,2,1437,0)="""KRN"",101,412,10,8,""^"")"
^XMB(3.9,41,2,1438,0)="HLO BRIEF SYSTEM STATUS"
^XMB(3.9,41,2,1439,0)="""KRN"",101,412,10,9,0)"
^XMB(3.9,41,2,1440,0)="418^ML^6^^^MONITOR LINK"
^XMB(3.9,41,2,1441,0)="""KRN"",101,412,10,9,""^"")"
^XMB(3.9,41,2,1442,0)="HLO VIEW A LINK"
^XMB(3.9,41,2,1443,0)="""KRN"",101,412,10,10,0)"
^XMB(3.9,41,2,1444,0)="419^^7^^^STOP HLO"
^XMB(3.9,41,2,1445,0)="""KRN"",101,412,10,10,""^"")"
^XMB(3.9,41,2,1446,0)="HLO STOP SYSTEM"
^XMB(3.9,41,2,1447,0)="""KRN"",101,412,10,11,0)"
^XMB(3.9,41,2,1448,0)="420^^8^^^START HLO"
^XMB(3.9,41,2,1449,0)="""KRN"",101,412,10,11,""^"")"
^XMB(3.9,41,2,1450,0)="HLO START MENU"
^XMB(3.9,41,2,1451,0)="""KRN"",101,412,10,12,0)"
^XMB(3.9,41,2,1452,0)="421^TL^9^^^TEST TCP LINK"
^XMB(3.9,41,2,1453,0)="""KRN"",101,412,10,12,""^"")"
^XMB(3.9,41,2,1454,0)="HLO TEST LINK"
^XMB(3.9,41,2,1455,0)="""KRN"",101,412,10,13,0)"
^XMB(3.9,41,2,1456,0)="427^RT^10^^^RealTime Mode"
^XMB(3.9,41,2,1457,0)="""KRN"",101,412,10,13,""^"")"
^XMB(3.9,41,2,1458,0)="HLO MONITOR MODE"
^XMB(3.9,41,2,1459,0)="""KRN"",101,412,10,14,0)"
^XMB(3.9,41,2,1460,0)="428^SM^11^^^Scroll Mode"
^XMB(3.9,41,2,1461,0)="""KRN"",101,412,10,14,""^"")"
^XMB(3.9,41,2,1462,0)="HLO SCROLL MODE"
^XMB(3.9,41,2,1463,0)="""KRN"",101,412,10,15,0)"
^XMB(3.9,41,2,1464,0)="429^SQ^12^^^STRT/STP QUE"
^XMB(3.9,41,2,1465,0)="""KRN"",101,412,10,15,""^"")"
^XMB(3.9,41,2,1466,0)="HLO START/STOP ONE QUEUE"
^XMB(3.9,41,2,1467,0)="""KRN"",101,412,26)"
^XMB(3.9,41,2,1468,0)="D SHOW^VALM"
^XMB(3.9,41,2,1469,0)="""KRN"",101,412,28)"
^XMB(3.9,41,2,1470,0)="Select Action:"
^XMB(3.9,41,2,1471,0)="""KRN"",101,412,99)"
^XMB(3.9,41,2,1472,0)="60162,30178"
^XMB(3.9,41,2,1473,0)="""KRN"",101,413,-1)"
^XMB(3.9,41,2,1474,0)="0^4"
^XMB(3.9,41,2,1475,0)="""KRN"",101,413,0)"
^XMB(3.9,41,2,1476,0)="HLO DISPLAY PROCESSES^VIEW PROCESSES^^A^^^^^^^^HEALTH LEVEL SEVEN"
^XMB(3.9,41,2,1477,0)="""KRN"",101,413,1,0)"
^XMB(3.9,41,2,1478,0)="^101.06^1^1^3040921^^"
^XMB(3.9,41,2,1479,0)="""KRN"",101,413,1,1,0)"
^XMB(3.9,41,2,1480,0)="Displays a list of the HL7 processes."
^XMB(3.9,41,2,1481,0)="""KRN"",101,413,2,0)"
^XMB(3.9,41,2,1482,0)="^101.02A^1^1"
^XMB(3.9,41,2,1483,0)="""KRN"",101,413,2,1,0)"
^XMB(3.9,41,2,1484,0)="VP"
^XMB(3.9,41,2,1485,0)="""KRN"",101,413,2,""B"",""VP"",1)"
^XMB(3.9,41,2,1486,0)=""
^XMB(3.9,41,2,1487,0)="""KRN"",101,413,20)"
^XMB(3.9,41,2,1488,0)="D PROCS^HLOUSR S (HLSCREEN,VALMSG)=""Running Processes"""
^XMB(3.9,41,2,1489,0)="""KRN"",101,413,99)"
^XMB(3.9,41,2,1490,0)="60162,30178"
^XMB(3.9,41,2,1491,0)="""KRN"",101,414,-1)"
^XMB(3.9,41,2,1492,0)="0^7"
^XMB(3.9,41,2,1493,0)="""KRN"",101,414,0)"
^XMB(3.9,41,2,1494,0)="HLO DOWN LINKS^DOWN LINKS^^A^^^^^^^^HEALTH LEVEL SEVEN"
^XMB(3.9,41,2,1495,0)="""KRN"",101,414,1,0)"
^XMB(3.9,41,2,1496,0)="^101.06^1^1^3050208^^^^"
^XMB(3.9,41,2,1497,0)="""KRN"",101,414,1,1,0)"
^XMB(3.9,41,2,1498,0)="This action lists the links that have been down for more than 5 minutes."
^XMB(3.9,41,2,1499,0)="""KRN"",101,414,2,0)"
^XMB(3.9,41,2,1500,0)="^101.02A^1^1"
^XMB(3.9,41,2,1501,0)="""KRN"",101,414,2,1,0)"
^XMB(3.9,41,2,1502,0)="DL"
^XMB(3.9,41,2,1503,0)="""KRN"",101,414,2,""B"",""DL"",1)"
^XMB(3.9,41,2,1504,0)=""
^XMB(3.9,41,2,1505,0)="""KRN"",101,414,20)"
^XMB(3.9,41,2,1506,0)="D DOWNLINK^HLOUSR"
^XMB(3.9,41,2,1507,0)="""KRN"",101,414,99)"
^XMB(3.9,41,2,1508,0)="60162,30178"
^XMB(3.9,41,2,1509,0)="""KRN"",101,415,-1)"
^XMB(3.9,41,2,1510,0)="0^3"
^XMB(3.9,41,2,1511,0)="""KRN"",101,415,0)"
^XMB(3.9,41,2,1512,0)="HLO DISPLAY OUT-GOING QUEUES^VIEW QUEUES^^A^^^^^^^^HEALTH LEVEL SEVEN"
^XMB(3.9,41,2,1513,0)="""KRN"",101,415,1,0)"
^XMB(3.9,41,2,1514,0)="^101.06^1^1^3040921^^^"
^XMB(3.9,41,2,1515,0)="""KRN"",101,415,1,1,0)"
^XMB(3.9,41,2,1516,0)="Displays all the client links and their queues with pending messages."
^XMB(3.9,41,2,1517,0)="""KRN"",101,415,2,0)"
^XMB(3.9,41,2,1518,0)="^101.02A^2^1"
^XMB(3.9,41,2,1519,0)="""KRN"",101,415,2,2,0)"
^XMB(3.9,41,2,1520,0)="VQ"
^XMB(3.9,41,2,1521,0)="""KRN"",101,415,2,""B"",""VQ"",2)"
^XMB(3.9,41,2,1522,0)=""
^XMB(3.9,41,2,1523,0)="""KRN"",101,415,20)"
^XMB(3.9,41,2,1524,0)="D OUTQUEUE^HLOUSR"
^XMB(3.9,41,2,1525,0)="""KRN"",101,415,99)"
^XMB(3.9,41,2,1526,0)="60162,30178"
^XMB(3.9,41,2,1527,0)="""KRN"",101,416,-1)"
^XMB(3.9,41,2,1528,0)="0^8"
^XMB(3.9,41,2,1529,0)="""KRN"",101,416,0)"
^XMB(3.9,41,2,1530,0)="HLO INCOMING QUEUES^INCOMING QUEUES^^A^^^^^^^^HEALTH LEVEL SEVEN"
^XMB(3.9,41,2,1531,0)="""KRN"",101,416,1,0)"
^XMB(3.9,41,2,1532,0)="^101.06^1^1^3041116^^"
^XMB(3.9,41,2,1533,0)="""KRN"",101,416,1,1,0)"
^XMB(3.9,41,2,1534,0)="Displays each incoming queue and a count of the messages on it."
^XMB(3.9,41,2,1535,0)="""KRN"",101,416,2,0)"
^XMB(3.9,41,2,1536,0)="^101.02A^1^1"
^XMB(3.9,41,2,1537,0)="""KRN"",101,416,2,1,0)"
^XMB(3.9,41,2,1538,0)="IQ"
^XMB(3.9,41,2,1539,0)="""KRN"",101,416,2,""B"",""IQ"",1)"
^XMB(3.9,41,2,1540,0)=""
^XMB(3.9,41,2,1541,0)="""KRN"",101,416,20)"
^XMB(3.9,41,2,1542,0)="D INQUEUE^HLOUSR"
^XMB(3.9,41,2,1543,0)="""KRN"",101,416,99)"
^XMB(3.9,41,2,1544,0)="60162,30178"
^XMB(3.9,41,2,1545,0)="""KRN"",101,417,-1)"
^XMB(3.9,41,2,1546,0)="0^2"
^XMB(3.9,41,2,1547,0)="""KRN"",101,417,0)"
^XMB(3.9,41,2,1548,0)="HLO BRIEF SYSTEM STATUS^BRIEF SYSTEM STATUS^^A^^^^^^^^HEALTH LEVEL SEVEN"
^XMB(3.9,41,2,1549,0)="""KRN"",101,417,1,0)"
^XMB(3.9,41,2,1550,0)="^^1^1^3040922^"
^XMB(3.9,41,2,1551,0)="""KRN"",101,417,1,1,0)"
^XMB(3.9,41,2,1552,0)="Provides an overview of the system operational status."
^XMB(3.9,41,2,1553,0)="""KRN"",101,417,2,0)"
^XMB(3.9,41,2,1554,0)="^101.02A^1^1"
^XMB(3.9,41,2,1555,0)="""KRN"",101,417,2,1,0)"
^XMB(3.9,41,2,1556,0)="BS"
^XMB(3.9,41,2,1557,0)="""KRN"",101,417,2,""B"",""BS"",1)"
^XMB(3.9,41,2,1558,0)=""
^XMB(3.9,41,2,1559,0)="""KRN"",101,417,20)"
^XMB(3.9,41,2,1560,0)="D BRIEF^HLOUSR S (HLSCREEN,VALMSG)=""Brief System Status"""
^XMB(3.9,41,2,1561,0)="""KRN"",101,417,99)"
^XMB(3.9,41,2,1562,0)="60162,30178"
^XMB(3.9,41,2,1563,0)="""KRN"",101,418,-1)"
^XMB(3.9,41,2,1564,0)="0^18"
^XMB(3.9,41,2,1565,0)="""KRN"",101,418,0)"
^XMB(3.9,41,2,1566,0)="HLO VIEW A LINK^VIEW LINK^^A^^^^^^^^HEALTH LEVEL SEVEN"
^XMB(3.9,41,2,1567,0)="""KRN"",101,418,1,0)"
^XMB(3.9,41,2,1568,0)="^^1^1^3040922^"
^XMB(3.9,41,2,1569,0)="""KRN"",101,418,1,1,0)"
^XMB(3.9,41,2,1570,0)="Used to monitor in real-time the count of messages on a single link."
^XMB(3.9,41,2,1571,0)="""KRN"",101,418,2,0)"
^XMB(3.9,41,2,1572,0)="^101.02A^1^1"
^XMB(3.9,41,2,1573,0)="""KRN"",101,418,2,1,0)"
^XMB(3.9,41,2,1574,0)="VL"
^XMB(3.9,41,2,1575,0)="""KRN"",101,418,2,""B"",""VL"",1)"
^XMB(3.9,41,2,1576,0)=""
^XMB(3.9,41,2,1577,0)="""KRN"",101,418,20)"
^XMB(3.9,41,2,1578,0)="D VIEWLINK^HLOUSR"
^XMB(3.9,41,2,1579,0)="""KRN"",101,418,99)"
^XMB(3.9,41,2,1580,0)="60162,30178"
^XMB(3.9,41,2,1581,0)="""KRN"",101,419,-1)"
^XMB(3.9,41,2,1582,0)="0^14"
^XMB(3.9,41,2,1583,0)="""KRN"",101,419,0)"
^XMB(3.9,41,2,1584,0)="HLO STOP SYSTEM^STOP HLO^^A^^^^^^^^HEALTH LEVEL SEVEN"
^XMB(3.9,41,2,1585,0)="""KRN"",101,419,1,0)"
^XMB(3.9,41,2,1586,0)="^101.06^1^1^3050318^^^"
^XMB(3.9,41,2,1587,0)="""KRN"",101,419,1,1,0)"
^XMB(3.9,41,2,1588,0)="Shuts down the HL7 (Optimized) message system."
^XMB(3.9,41,2,1589,0)="""KRN"",101,419,2,0)"
^XMB(3.9,41,2,1590,0)="^101.02A^^0"
^XMB(3.9,41,2,1591,0)="""KRN"",101,419,20)"
^XMB(3.9,41,2,1592,0)="D STOP^HLOUSR"
^XMB(3.9,41,2,1593,0)="""KRN"",101,419,99)"
^XMB(3.9,41,2,1594,0)="60162,30178"
^XMB(3.9,41,2,1595,0)="""KRN"",101,420,-1)"
^XMB(3.9,41,2,1596,0)="0^12"
^XMB(3.9,41,2,1597,0)="""KRN"",101,420,0)"
^XMB(3.9,41,2,1598,0)="HLO START MENU^START HLO^^A^^^^^^^^HEALTH LEVEL SEVEN"
^XMB(3.9,41,2,1599,0)="""KRN"",101,420,1,0)"
^XMB(3.9,41,2,1600,0)="^101.06^1^1^3050318^^^"
^XMB(3.9,41,2,1601,0)="""KRN"",101,420,1,1,0)"
^XMB(3.9,41,2,1602,0)="This action is used to start the HL7 (Optimized) message engine."
^XMB(3.9,41,2,1603,0)="""KRN"",101,420,20)"
^XMB(3.9,41,2,1604,0)="D STARTHL7^HLOPROC1 H 4 D:HLSCREEN=""Brief System Status"" BRIEF^HLOUSR D:HLSCREEN=""Running Processes"" PROCS^HLOUSR S VALMBCK=""R"",VALMSG=""HL7 (OPTIMIZED) has been started..."""
^XMB(3.9,41,2,1605,0)="""KRN"",101,420,99)"
^XMB(3.9,41,2,1606,0)="60162,30178"
^XMB(3.9,41,2,1607,0)="""KRN"",101,421,-1)"
^XMB(3.9,41,2,1608,0)="0^16"
^XMB(3.9,41,2,1609,0)="""KRN"",101,421,0)"
^XMB(3.9,41,2,1610,0)="HLO TEST LINK^TEST LINK^^A^^^^^^^^HEALTH LEVEL SEVEN"
^XMB(3.9,41,2,1611,0)="""KRN"",101,421,1,0)"
^XMB(3.9,41,2,1612,0)="^^3^3^3040926^"
^XMB(3.9,41,2,1613,0)="""KRN"",101,421,1,1,0)"
^XMB(3.9,41,2,1614,0)="This action allows the user to select a link.  The user is then informed"
^XMB(3.9,41,2,1615,0)="""KRN"",101,421,1,2,0)"
^XMB(3.9,41,2,1616,0)="as to whether or not connectivity can be established with the link."
^XMB(3.9,41,2,1617,0)="""KRN"",101,421,1,3,0)"
^XMB(3.9,41,2,1618,0)="Applies only to TCP links"
^XMB(3.9,41,2,1619,0)="""KRN"",101,421,2,0)"
^XMB(3.9,41,2,1620,0)="^101.02A^1^1"
^XMB(3.9,41,2,1621,0)="""KRN"",101,421,2,1,0)"
^XMB(3.9,41,2,1622,0)="TL"
^XMB(3.9,41,2,1623,0)="""KRN"",101,421,2,""B"",""TL"",1)"
^XMB(3.9,41,2,1624,0)=""
^XMB(3.9,41,2,1625,0)="""KRN"",101,421,20)"
^XMB(3.9,41,2,1626,0)="D TESTLINK^HLOUSR S VALMSG=HLSCREEN,VALMBCK=""R"""
^XMB(3.9,41,2,1627,0)="""KRN"",101,421,99)"
^XMB(3.9,41,2,1628,0)="60162,30178"
^XMB(3.9,41,2,1629,0)="""KRN"",101,422,-1)"
^XMB(3.9,41,2,1630,0)="0^9"
^XMB(3.9,41,2,1631,0)="""KRN"",101,422,0)"
^XMB(3.9,41,2,1632,0)="HLO MESSAGE VIEWER MENU^MESSAGE VIEWER MENU^^M^^^^^^^^HEALTH LEVEL SEVEN"
^XMB(3.9,41,2,1633,0)="""KRN"",101,422,1,0)"
^XMB(3.9,41,2,1634,0)="^101.06^1^1^3050314^^^^"
^XMB(3.9,41,2,1635,0)="""KRN"",101,422,1,1,0)"
^XMB(3.9,41,2,1636,0)="This is the action menu for the List Template 'HLO MESSAGE VIEWER'."
^XMB(3.9,41,2,1637,0)="""KRN"",101,422,4)"
^XMB(3.9,41,2,1638,0)="26^4"
^XMB(3.9,41,2,1639,0)="""KRN"",101,422,10,0)"
^XMB(3.9,41,2,1640,0)="^101.01PA^5^5"
^XMB(3.9,41,2,1641,0)="""KRN"",101,422,10,1,0)"
^XMB(3.9,41,2,1642,0)="423^DM^1^^^DISPLAY MSG"
^XMB(3.9,41,2,1643,0)="""KRN"",101,422,10,1,""^"")"
^XMB(3.9,41,2,1644,0)="HLO DISPLAY SINGLE MESSAGE"
^XMB(3.9,41,2,1645,0)="""KRN"",101,422,10,2,0)"
^XMB(3.9,41,2,1646,0)="424^SE^2^^^SYSTEM ERRORS"
^XMB(3.9,41,2,1647,0)="""KRN"",101,422,10,2,""^"")"
^XMB(3.9,41,2,1648,0)="HLO DISPLAY SYSTEM ERRORED MESSAGES"
^XMB(3.9,41,2,1649,0)="""KRN"",101,422,10,3,0)"
^XMB(3.9,41,2,1650,0)="425^AE^3^^^APPLICATION ERRORS"
^XMB(3.9,41,2,1651,0)="""KRN"",101,422,10,3,""^"")"
^XMB(3.9,41,2,1652,0)="HLO APPLICATION ERRORED MESSAGES"
^XMB(3.9,41,2,1653,0)="""KRN"",101,422,10,4,0)"
^XMB(3.9,41,2,1654,0)="426^TF^4^^^TRANSMISSION FAILURES"
^XMB(3.9,41,2,1655,0)="""KRN"",101,422,10,4,""^"")"
^XMB(3.9,41,2,1656,0)="HLO TRANSMISSION FAILURES"
^XMB(3.9,41,2,1657,0)="""KRN"",101,422,10,5,0)"
^XMB(3.9,41,2,1658,0)="432^MS^5^^^MESSAGE SEARCH"
^XMB(3.9,41,2,1659,0)="""KRN"",101,422,10,5,""^"")"
^XMB(3.9,41,2,1660,0)="HLO MESSAGE SEARCH"
^XMB(3.9,41,2,1661,0)="""KRN"",101,422,26)"
^XMB(3.9,41,2,1662,0)="D SHOW^VALM"
^XMB(3.9,41,2,1663,0)="""KRN"",101,422,28)"
^XMB(3.9,41,2,1664,0)="Select Action:"
^XMB(3.9,41,2,1665,0)="""KRN"",101,422,99)"
^XMB(3.9,41,2,1666,0)="60162,30178"
^XMB(3.9,41,2,1667,0)="""KRN"",101,423,-1)"
^XMB(3.9,41,2,1668,0)="0^5"
^XMB(3.9,41,2,1669,0)="""KRN"",101,423,0)"
^XMB(3.9,41,2,1670,0)="HLO DISPLAY SINGLE MESSAGE^DISPLAY A MESSAGE^^A^^^^^^^^HEALTH LEVEL SEVEN"
^XMB(3.9,41,2,1671,0)="""KRN"",101,423,1,0)"
^XMB(3.9,41,2,1672,0)="^101.06^1^1^3050413^^"
^XMB(3.9,41,2,1673,0)="""KRN"",101,423,1,1,0)"
^XMB(3.9,41,2,1674,0)="This action allows the user to select a message.  It is then displayed."
^XMB(3.9,41,2,1675,0)="""KRN"",101,423,2,0)"
^XMB(3.9,41,2,1676,0)="^101.02A^1^1"
^XMB(3.9,41,2,1677,0)="""KRN"",101,423,2,1,0)"
^XMB(3.9,41,2,1678,0)="DM"
^XMB(3.9,41,2,1679,0)="""KRN"",101,423,2,""B"",""DM"",1)"
^XMB(3.9,41,2,1680,0)=""
^XMB(3.9,41,2,1681,0)="""KRN"",101,423,20)"
^XMB(3.9,41,2,1682,0)="D EN^HLOUSR1"
^XMB(3.9,41,2,1683,0)="""KRN"",101,423,99)"
^XMB(3.9,41,2,1684,0)="60162,30178"
^XMB(3.9,41,2,1685,0)="""KRN"",101,424,-1)"
^XMB(3.9,41,2,1686,0)="0^6"
^XMB(3.9,41,2,1687,0)="""KRN"",101,424,0)"
^XMB(3.9,41,2,1688,0)="HLO DISPLAY SYSTEM ERRORED MESSAGES^SYSTEM ERRORED MESSAGES^^A^^^^^^^^HEALTH LEVEL SEVEN"
^XMB(3.9,41,2,1689,0)="""KRN"",101,424,1,0)"
^XMB(3.9,41,2,1690,0)="^101.06^3^3^3050203^^"
^XMB(3.9,41,2,1691,0)="""KRN"",101,424,1,1,0)"
^XMB(3.9,41,2,1692,0)="This ListManager action displays a list of messages from the Redesigned"
^XMB(3.9,41,2,1693,0)="""KRN"",101,424,1,2,0)"
^XMB(3.9,41,2,1694,0)="Optimized HL7 packagethat were determined to be in error by the receiving"
^XMB(3.9,41,2,1695,0)="""KRN"",101,424,1,3,0)"
^XMB(3.9,41,2,1696,0)="system."
^XMB(3.9,41,2,1697,0)="""KRN"",101,424,20)"
^XMB(3.9,41,2,1698,0)="D SHOWLIST^HLOUSR2(""SE"")"
^XMB(3.9,41,2,1699,0)="""KRN"",101,424,99)"
^XMB(3.9,41,2,1700,0)="60162,30178"
^XMB(3.9,41,2,1701,0)="""KRN"",101,425,-1)"
^XMB(3.9,41,2,1702,0)="0^1"
^XMB(3.9,41,2,1703,0)="""KRN"",101,425,0)"
^XMB(3.9,41,2,1704,0)="HLO APPLICATION ERRORED MESSAGES^HLO APPLICATION ERRORED MESSAGES^^A^^^^^^^^HEALTH LEVEL SEVEN"
^XMB(3.9,41,2,1705,0)="""KRN"",101,425,1,0)"
^XMB(3.9,41,2,1706,0)="^101.06^2^2^3050208^^^"
^XMB(3.9,41,2,1707,0)="""KRN"",101,425,1,1,0)"
^XMB(3.9,41,2,1708,0)="This ListManager action displays a list of messages from the HLRO HL7 package"
^XMB(3.9,41,2,1709,0)="""KRN"",101,425,1,2,0)"
^XMB(3.9,41,2,1710,0)="that were determined by the receiving application to be in error."
^XMB(3.9,41,2,1711,0)="""KRN"",101,425,20)"
^XMB(3.9,41,2,1712,0)="D SHOWLIST^HLOUSR2(""AE"")"
^XMB(3.9,41,2,1713,0)="""KRN"",101,425,99)"
^XMB(3.9,41,2,1714,0)="60162,30178"
^XMB(3.9,41,2,1715,0)="""KRN"",101,426,-1)"
^XMB(3.9,41,2,1716,0)="0^17"
^XMB(3.9,41,2,1717,0)="""KRN"",101,426,0)"
^XMB(3.9,41,2,1718,0)="HLO TRANSMISSION FAILURES^HLO TRANSMISSION FAILURES^^A^^^^^^^^HEALTH LEVEL SEVEN"
^XMB(3.9,41,2,1719,0)="""KRN"",101,426,1,0)"
^XMB(3.9,41,2,1720,0)="^101.06^2^2^3050203^^^^"
^XMB(3.9,41,2,1721,0)="""KRN"",101,426,1,1,0)"
^XMB(3.9,41,2,1722,0)="This ListManager action displays a list of messages from the Redesigned"
^XMB(3.9,41,2,1723,0)="""KRN"",101,426,1,2,0)"
^XMB(3.9,41,2,1724,0)="Optimized HL7 package that failed to be transmitted."
^XMB(3.9,41,2,1725,0)="""KRN"",101,426,20)"
^XMB(3.9,41,2,1726,0)="D SHOWLIST^HLOUSR2(""TF"")"
^XMB(3.9,41,2,1727,0)="""KRN"",101,426,99)"
^XMB(3.9,41,2,1728,0)="60162,30178"
^XMB(3.9,41,2,1729,0)="""KRN"",101,427,-1)"
^XMB(3.9,41,2,1730,0)="0^10"
^XMB(3.9,41,2,1731,0)="""KRN"",101,427,0)"
^XMB(3.9,41,2,1732,0)="HLO MONITOR MODE^MONITOR MODE^^A^^^^^^^^HL7 PERFORMANCE ENHANCMENTS"
^XMB(3.9,41,2,1733,0)="""KRN"",101,427,1,0)"
^XMB(3.9,41,2,1734,0)="^^3^3^3041009^"
^XMB(3.9,41,2,1735,0)="""KRN"",101,427,1,1,0)"
^XMB(3.9,41,2,1736,0)="This ListManager action allows the user to specify that the screen should "
^XMB(3.9,41,2,1737,0)="""KRN"",101,427,1,2,0)"
^XMB(3.9,41,2,1738,0)="operate in a dynamic mode where it is updated automatically every several"
^XMB(3.9,41,2,1739,0)="""KRN"",101,427,1,3,0)"
^XMB(3.9,41,2,1740,0)="seconds."
^XMB(3.9,41,2,1741,0)="""KRN"",101,427,2,0)"
^XMB(3.9,41,2,1742,0)="^101.02A^1^1"
^XMB(3.9,41,2,1743,0)="""KRN"",101,427,2,1,0)"
^XMB(3.9,41,2,1744,0)="MM"
^XMB(3.9,41,2,1745,0)="""KRN"",101,427,2,""B"",""MM"",1)"
^XMB(3.9,41,2,1746,0)=""
^XMB(3.9,41,2,1747,0)="""KRN"",101,427,20)"
^XMB(3.9,41,2,1748,0)="D UPDMODE^HLOUSR"
^XMB(3.9,41,2,1749,0)="""KRN"",101,427,99)"
^XMB(3.9,41,2,1750,0)="60162,30178"
^XMB(3.9,41,2,1751,0)="""KRN"",101,428,-1)"
^XMB(3.9,41,2,1752,0)="0^11"
^XMB(3.9,41,2,1753,0)="""KRN"",101,428,0)"
^XMB(3.9,41,2,1754,0)="HLO SCROLL MODE^SCROLL MODE^^A^^^^^^^^HEALTH LEVEL SEVEN"
^XMB(3.9,41,2,1755,0)="""KRN"",101,428,1,0)"
^XMB(3.9,41,2,1756,0)="^101.06^1^1^3041116^^"
^XMB(3.9,41,2,1757,0)="""KRN"",101,428,1,1,0)"
^XMB(3.9,41,2,1758,0)="This ListManager action is to switch the display to automatic scrolling mode."
^XMB(3.9,41,2,1759,0)="""KRN"",101,428,2,0)"
^XMB(3.9,41,2,1760,0)="^101.02A^1^1"
^XMB(3.9,41,2,1761,0)="""KRN"",101,428,2,1,0)"
^XMB(3.9,41,2,1762,0)="SM"
^XMB(3.9,41,2,1763,0)="""KRN"",101,428,2,""B"",""SM"",1)"
^XMB(3.9,41,2,1764,0)=""
^XMB(3.9,41,2,1765,0)="""KRN"",101,428,20)"
^XMB(3.9,41,2,1766,0)="D SCRLMODE^HLOUSR1"
^XMB(3.9,41,2,1767,0)="""KRN"",101,428,99)"
^XMB(3.9,41,2,1768,0)="60162,30178"
^XMB(3.9,41,2,1769,0)="""KRN"",101,429,-1)"
^XMB(3.9,41,2,1770,0)="0^13"
^XMB(3.9,41,2,1771,0)="""KRN"",101,429,0)"
^XMB(3.9,41,2,1772,0)="HLO START/STOP ONE QUEUE^STRT/STP QUEUE^^A^^^^^^^^HEALTH LEVEL SEVEN"
^XMB(3.9,41,2,1773,0)="""KRN"",101,429,1,0)"
^XMB(3.9,41,2,1774,0)="^^1^1^3041015^"
^XMB(3.9,41,2,1775,0)="""KRN"",101,429,1,1,0)"
^XMB(3.9,41,2,1776,0)="This ListManager action is used to start or stop a queue."
^XMB(3.9,41,2,1777,0)="""KRN"",101,429,20)"
^XMB(3.9,41,2,1778,0)="D STRTSTPQ^HLOUSR2"
^XMB(3.9,41,2,1779,0)="""KRN"",101,429,99)"
^XMB(3.9,41,2,1780,0)="60162,30178"
^XMB(3.9,41,2,1781,0)="""KRN"",101,432,-1)"
^XMB(3.9,41,2,1782,0)="0^19"
^XMB(3.9,41,2,1783,0)="""KRN"",101,432,0)"
^XMB(3.9,41,2,1784,0)="HLO MESSAGE SEARCH^MESSAGE SEARCH^^A^^^^^^^^HEALTH LEVEL SEVEN"
^XMB(3.9,41,2,1785,0)="""KRN"",101,432,1,0)"
^XMB(3.9,41,2,1786,0)="^101.06^2^2^3050315^^^"
^XMB(3.9,41,2,1787,0)="""KRN"",101,432,1,1,0)"
^XMB(3.9,41,2,1788,0)="This action allows the user to enter search criteria, then up to 200 messages"
^XMB(3.9,41,2,1789,0)="""KRN"",101,432,1,2,0)"
^XMB(3.9,41,2,1790,0)="that meet the criteria are displayed."
^XMB(3.9,41,2,1791,0)="""KRN"",101,432,2,0)"
^XMB(3.9,41,2,1792,0)="^101.02A^1^1"
^XMB(3.9,41,2,1793,0)="""KRN"",101,432,2,1,0)"
^XMB(3.9,41,2,1794,0)="MS"
^XMB(3.9,41,2,1795,0)="""KRN"",101,432,2,""B"",""MS"",1)"
^XMB(3.9,41,2,1796,0)=""
^XMB(3.9,41,2,1797,0)="""KRN"",101,432,20)"
^XMB(3.9,41,2,1798,0)="D EN^HLOUSR3"
^XMB(3.9,41,2,1799,0)="""KRN"",101,432,99)"
^XMB(3.9,41,2,1800,0)="60162,30178"
^XMB(3.9,41,2,1801,0)="""KRN"",101,441,-1)"
^XMB(3.9,41,2,1802,0)="0^20"
^XMB(3.9,41,2,1803,0)="""KRN"",101,441,0)"
^XMB(3.9,41,2,1804,0)="HLO MESSAGE SEARCH MENU^MESSAGE SEARCH^^M^^^^^^^^HEALTH LEVEL SEVEN"
^XMB(3.9,41,2,1805,0)="""KRN"",101,441,1,0)"
^XMB(3.9,41,2,1806,0)="^101.06^1^1^3050801^^^"
^XMB(3.9,41,2,1807,0)="""KRN"",101,441,1,1,0)"
^XMB(3.9,41,2,1808,0)="This is the protocol menu for the HLO Message Search Utility."
^XMB(3.9,41,2,1809,0)="""KRN"",101,441,4)"
^XMB(3.9,41,2,1810,0)="26^4"
^XMB(3.9,41,2,1811,0)="""KRN"",101,441,10,0)"
^XMB(3.9,41,2,1812,0)="^101.01PA^1^1"
^XMB(3.9,41,2,1813,0)="""KRN"",101,441,10,1,0)"
^XMB(3.9,41,2,1814,0)="423^DM^1^^^Display Message"
^XMB(3.9,41,2,1815,0)="""KRN"",101,441,10,1,""^"")"
^XMB(3.9,41,2,1816,0)="HLO DISPLAY SINGLE MESSAGE"
^XMB(3.9,41,2,1817,0)="""KRN"",101,441,26)"
^XMB(3.9,41,2,1818,0)="D SHOW^VALM"
^XMB(3.9,41,2,1819,0)="""KRN"",101,441,28)"
^XMB(3.9,41,2,1820,0)="Select Action:"
^XMB(3.9,41,2,1821,0)="""KRN"",101,441,99)"
^XMB(3.9,41,2,1822,0)="60162,30178"
^XMB(3.9,41,2,1823,0)="""KRN"",409.61,238,-1)"
^XMB(3.9,41,2,1824,0)="0^2"
^XMB(3.9,41,2,1825,0)="""KRN"",409.61,238,0)"
^XMB(3.9,41,2,1826,0)="HLO SYSTEM MONITOR^1^1^80^3^18^1^1^HLO HL7 SYSTEM MONITOR^HLO SYSTEM MONITOR MENU^HLO SYSTEM MONITOR^1^^1"
^XMB(3.9,41,2,1827,0)="""KRN"",409.61,238,1)"
^XMB(3.9,41,2,1828,0)="^VALM HIDDEN ACTIONS"
^XMB(3.9,41,2,1829,0)="""KRN"",409.61,238,""ARRAY"")"
^XMB(3.9,41,2,1830,0)=" ^TMP(""HLO SYSTEM MONITOR"",$J)"
^XMB(3.9,41,2,1831,0)="""KRN"",409.61,238,""COL"",0)"
^XMB(3.9,41,2,1832,0)="^409.621^1^1"
^XMB(3.9,41,2,1833,0)="""KRN"",409.61,238,""COL"",1,0)"
^XMB(3.9,41,2,1834,0)="COL 1^2^30^^RH^0"
^XMB(3.9,41,2,1835,0)="""KRN"",409.61,238,""COL"",""AIDENT"",0,1)"
^XMB(3.9,41,2,1836,0)=""
^XMB(3.9,41,2,1837,0)="""KRN"",409.61,238,""COL"",""B"",""COL 1"",1)"
^XMB(3.9,41,2,1838,0)=""
^XMB(3.9,41,2,1839,0)="""KRN"",409.61,238,""FNL"")"
^XMB(3.9,41,2,1840,0)="D EXIT^HLOUSR"
^XMB(3.9,41,2,1841,0)="""KRN"",409.61,238,""HDR"")"
^XMB(3.9,41,2,1842,0)=""
^XMB(3.9,41,2,1843,0)="""KRN"",409.61,238,""HLP"")"
^XMB(3.9,41,2,1844,0)="D HELP^HLOUSR"
^XMB(3.9,41,2,1845,0)="""KRN"",409.61,238,""INIT"")"
^XMB(3.9,41,2,1846,0)="D BRIEF^HLOUSR"
^XMB(3.9,41,2,1847,0)="""KRN"",409.61,239,-1)"
^XMB(3.9,41,2,1848,0)="0^1"
^XMB(3.9,41,2,1849,0)="""KRN"",409.61,239,0)"
^XMB(3.9,41,2,1850,0)="HLO MESSAGE VIEWER^1^1^90^3^20^1^1^HLO MESSAGE VIEWER^HLO MESSAGE VIEWER MENU^HLO MESSAGE VIEWER^1^^1"
^XMB(3.9,41,2,1851,0)="""KRN"",409.61,239,1)"
^XMB(3.9,41,2,1852,0)="^VALM HIDDEN ACTIONS"
^XMB(3.9,41,2,1853,0)="""KRN"",409.61,239,""ARRAY"")"
^XMB(3.9,41,2,1854,0)=" ^TMP(""HLO MESSAGE VIEWER"",$J)"
^XMB(3.9,41,2,1855,0)="""KRN"",409.61,239,""COL"",0)"
^XMB(3.9,41,2,1856,0)="^409.621^1^1"
^XMB(3.9,41,2,1857,0)="""KRN"",409.61,239,""COL"",1,0)"
^XMB(3.9,41,2,1858,0)="COL 1^2^78^ MsgID          MsgType  Dt/Tm                Error Text^RH^0"
^XMB(3.9,41,2,1859,0)="""KRN"",409.61,239,""COL"",""AIDENT"",0,1)"
^XMB(3.9,41,2,1860,0)=""
^XMB(3.9,41,2,1861,0)="""KRN"",409.61,239,""COL"",""B"",""COL 1"",1)"
^XMB(3.9,41,2,1862,0)=""
^XMB(3.9,41,2,1863,0)="""KRN"",409.61,239,""FNL"")"
^XMB(3.9,41,2,1864,0)="D EXIT^HLOUSR1"
^XMB(3.9,41,2,1865,0)="""KRN"",409.61,239,""HDR"")"
^XMB(3.9,41,2,1866,0)="D HEADER^HLOUSR2"
^XMB(3.9,41,2,1867,0)="""KRN"",409.61,239,""HLP"")"
^XMB(3.9,41,2,1868,0)="D HELP^HLOUSR1"
^XMB(3.9,41,2,1869,0)="""KRN"",409.61,239,""INIT"")"
^XMB(3.9,41,2,1870,0)="D BLANK^HLOUSR1"
^XMB(3.9,41,2,1871,0)="""KRN"",409.61,240,-1)"
^XMB(3.9,41,2,1872,0)="0^3"
^XMB(3.9,41,2,1873,0)="""KRN"",409.61,240,0)"
^XMB(3.9,41,2,1874,0)="HLO MESSAGE SEARCH^1^1^80^4^20^1^1^SEARCH LIST^HLO MESSAGE SEARCH MENU^Message Search^1"
^XMB(3.9,41,2,1875,0)="""KRN"",409.61,240,1)"
^XMB(3.9,41,2,1876,0)="^VALM HIDDEN ACTIONS"
^XMB(3.9,41,2,1877,0)="""KRN"",409.61,240,""ARRAY"")"
^XMB(3.9,41,2,1878,0)=" ^TMP($J,""HLO MSG SEARCH"")"
^XMB(3.9,41,2,1879,0)="""KRN"",409.61,240,""COL"",0)"
^XMB(3.9,41,2,1880,0)="^409.621^2^2"
^XMB(3.9,41,2,1881,0)="""KRN"",409.61,240,""COL"",1,0)"
^XMB(3.9,41,2,1882,0)="DT/TM^6^15^Dt/Tm^HR"
^XMB(3.9,41,2,1883,0)="""KRN"",409.61,240,""COL"",2,0)"
^XMB(3.9,41,2,1884,0)="FACILTITY^26^30^Facility^RH"
^XMB(3.9,41,2,1885,0)="""KRN"",409.61,240,""COL"",""B"",""DT/TM"",1)"
^XMB(3.9,41,2,1886,0)=""
^XMB(3.9,41,2,1887,0)="""KRN"",409.61,240,""COL"",""B"",""FACILTITY"",2)"
^XMB(3.9,41,2,1888,0)=""
^XMB(3.9,41,2,1889,0)="""KRN"",409.61,240,""FNL"")"
^XMB(3.9,41,2,1890,0)="D EXIT^HLOUSR3"
^XMB(3.9,41,2,1891,0)="""KRN"",409.61,240,""HDR"")"
^XMB(3.9,41,2,1892,0)="D HDR^HLOUSR3"
^XMB(3.9,41,2,1893,0)="""KRN"",409.61,240,""HLP"")"
^XMB(3.9,41,2,1894,0)="D HLP^HLOUSR3"
^XMB(3.9,41,2,1895,0)="""KRN"",409.61,240,""INIT"")"
^XMB(3.9,41,2,1896,0)="D SEARCH^HLOUSR3"
^XMB(3.9,41,2,1897,0)="""KRN"",409.61,241,-1)"
^XMB(3.9,41,2,1898,0)="0^4"
^XMB(3.9,41,2,1899,0)="""KRN"",409.61,241,0)"
^XMB(3.9,41,2,1900,0)="HLO SINGLE MESSAGE DISPLAY^2^1^80^3^20^1^1^MESSAGE^^Single Message Display^1"
^XMB(3.9,41,2,1901,0)="""KRN"",409.61,241,1)"
^XMB(3.9,41,2,1902,0)="^VALM HIDDEN ACTIONS"
^XMB(3.9,41,2,1903,0)="""KRN"",409.61,241,""ARRAY"")"
^XMB(3.9,41,2,1904,0)=" ^TMP($J,""HLO SINGLE MESSAGE DISPLAY"")"
^XMB(3.9,41,2,1905,0)="""KRN"",409.61,241,""FNL"")"
^XMB(3.9,41,2,1906,0)="D EXIT^HLOUSR3"
^XMB(3.9,41,2,1907,0)="""KRN"",409.61,241,""HDR"")"
^XMB(3.9,41,2,1908,0)="D HDR^HLOUSR1"
^XMB(3.9,41,2,1909,0)="""KRN"",409.61,241,""HLP"")"
^XMB(3.9,41,2,1910,0)="D HLP^HLOUSR1"
^XMB(3.9,41,2,1911,0)="""KRN"",409.61,241,""INIT"")"
^XMB(3.9,41,2,1912,0)="D DISPLAY^HLOUSR1"
^XMB(3.9,41,2,1913,0)="""MBREQ"")"
^XMB(3.9,41,2,1914,0)="0"
^XMB(3.9,41,2,1915,0)="""ORD"",7,.402)"
^XMB(3.9,41,2,1916,0)=".402;7;;;EDEOUT^DIFROMSO(.402,DA,"""",XPDA);FPRE^DIFROMSI(.402,"""",XPDA);EPRE^DIFROMSI(.402,DA,$E(""N"",$G(XPDNEW)),XPDA,"""",OLDA);;EPOST^DIFROMSI(.402,DA,"""",XPDA);DEL^DIFROMSK(.402,"""",%)"
^XMB(3.9,41,2,1917,0)="""ORD"",7,.402,0)"
^XMB(3.9,41,2,1918,0)="INPUT TEMPLATE"
^XMB(3.9,41,2,1919,0)="""ORD"",8,.403)"
^XMB(3.9,41,2,1920,0)=".403;8;;;EDEOUT^DIFROMSO(.403,DA,"""",XPDA);FPRE^DIFROMSI(.403,"""",XPDA);EPRE^DIFROMSI(.403,DA,$E(""N"",$G(XPDNEW)),XPDA,"""",OLDA);;EPOST^DIFROMSI(.403,DA,"""",XPDA);DEL^DIFROMSK(.403,"""",%)"
^XMB(3.9,41,2,1921,0)="""ORD"",8,.403,0)"
^XMB(3.9,41,2,1922,0)="FORM"
^XMB(3.9,41,2,1923,0)="""ORD"",15,101)"
^XMB(3.9,41,2,1924,0)="101;15;;;PRO^XPDTA;PROF1^XPDIA;PROE1^XPDIA;PROF2^XPDIA;;PRODEL^XPDIA"
^XMB(3.9,41,2,1925,0)="""ORD"",15,101,0)"
^XMB(3.9,41,2,1926,0)="PROTOCOL"
^XMB(3.9,41,2,1927,0)="""ORD"",17,409.61)"
^XMB(3.9,41,2,1928,0)="409.61;17;1;;;;;;;LMDEL^XPDIA1"
^XMB(3.9,41,2,1929,0)="""ORD"",17,409.61,0)"
^XMB(3.9,41,2,1930,0)="LIST TEMPLATE"
^XMB(3.9,41,2,1931,0)="""ORD"",18,19)"
^XMB(3.9,41,2,1932,0)="19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA"
^XMB(3.9,41,2,1933,0)="""ORD"",18,19,0)"
^XMB(3.9,41,2,1934,0)="OPTION"
^XMB(3.9,41,2,1935,0)="""PKG"",9,-1)"
^XMB(3.9,41,2,1936,0)="1^1"
^XMB(3.9,41,2,1937,0)="""PKG"",9,0)"
^XMB(3.9,41,2,1938,0)="HEALTH LEVEL SEVEN^HL^DHCP IMPLEMENTATION OF HEALTH LEVEL SEVEN^"
^XMB(3.9,41,2,1939,0)="""PKG"",9,20,0)"
^XMB(3.9,41,2,1940,0)="^9.402P^^"
^XMB(3.9,41,2,1941,0)="""PKG"",9,22,0)"
^XMB(3.9,41,2,1942,0)="^9.49I^1^1"
^XMB(3.9,41,2,1943,0)="""PKG"",9,22,1,0)"
^XMB(3.9,41,2,1944,0)="1.6^2980130^2980130^6"
^XMB(3.9,41,2,1945,0)="""PKG"",9,22,1,""PAH"",1,0)"
^XMB(3.9,41,2,1946,0)="126^3050921^1000061"
^XMB(3.9,41,2,1947,0)="""PKG"",9,22,1,""PAH"",1,1,0)"
^XMB(3.9,41,2,1948,0)="^^1^1^3050921"
^XMB(3.9,41,2,1949,0)="""PKG"",9,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,41,2,1950,0)="HL7 2.0"
^XMB(3.9,41,2,1951,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,41,2,1952,0)="Y"
^XMB(3.9,41,2,1953,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,41,2,1954,0)="^D REP^XPDH"
^XMB(3.9,41,2,1955,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,41,2,1956,0)="Shall I write over your |FLAG| File"
^XMB(3.9,41,2,1957,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,41,2,1958,0)="YES"
^XMB(3.9,41,2,1959,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,41,2,1960,0)="D XPF1^XPDIQ"
^XMB(3.9,41,2,1961,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,41,2,1962,0)="Y"
^XMB(3.9,41,2,1963,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,41,2,1964,0)="^D DTA^XPDH"
^XMB(3.9,41,2,1965,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,41,2,1966,0)="Want my data |FLAG| yours"
^XMB(3.9,41,2,1967,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,41,2,1968,0)="YES"
^XMB(3.9,41,2,1969,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,41,2,1970,0)="D XPF2^XPDIQ"
^XMB(3.9,41,2,1971,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,41,2,1972,0)="YO"
^XMB(3.9,41,2,1973,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,41,2,1974,0)="^D INHIBIT^XPDH"
^XMB(3.9,41,2,1975,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,41,2,1976,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,41,2,1977,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,41,2,1978,0)="YES"
^XMB(3.9,41,2,1979,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,41,2,1980,0)="D XPI1^XPDIQ"
^XMB(3.9,41,2,1981,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,41,2,1982,0)="PO^VA(200,:EM"
^XMB(3.9,41,2,1983,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,41,2,1984,0)="^D MG^XPDH"
^XMB(3.9,41,2,1985,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,41,2,1986,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,41,2,1987,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,41,2,1988,0)=""
^XMB(3.9,41,2,1989,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,41,2,1990,0)="D XPM1^XPDIQ"
^XMB(3.9,41,2,1991,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,41,2,1992,0)="Y"
^XMB(3.9,41,2,1993,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,41,2,1994,0)="^D MENU^XPDH"
^XMB(3.9,41,2,1995,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,41,2,1996,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,41,2,1997,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,41,2,1998,0)="YES"
^XMB(3.9,41,2,1999,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,41,2,2000,0)="D XPO1^XPDIQ"
^XMB(3.9,41,2,2001,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,41,2,2002,0)="Y"
^XMB(3.9,41,2,2003,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,41,2,2004,0)="^D OPT^XPDH"
^XMB(3.9,41,2,2005,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,41,2,2006,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,41,2,2007,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,41,2,2008,0)="YES"
^XMB(3.9,41,2,2009,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,41,2,2010,0)="D XPZ1^XPDIQ"
^XMB(3.9,41,2,2011,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,41,2,2012,0)="Y"
^XMB(3.9,41,2,2013,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,41,2,2014,0)="^D RTN^XPDH"
^XMB(3.9,41,2,2015,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,41,2,2016,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,41,2,2017,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,41,2,2018,0)="NO"
^XMB(3.9,41,2,2019,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,41,2,2020,0)="D XPZ2^XPDIQ"
^XMB(3.9,41,2,2021,0)="""RTN"")"
^XMB(3.9,41,2,2022,0)="38"
^XMB(3.9,41,2,2023,0)="""RTN"",""HLMA3"")"
^XMB(3.9,41,2,2024,0)="0^48^B26373063"
^XMB(3.9,41,2,2025,0)="""RTN"",""HLMA3"",1,0)"
^XMB(3.9,41,2,2026,0)="HLMA3 ;OIFO-O/RJH-API TO LOGICAL LINK FILE ;12/29/04  17:03"
^XMB(3.9,41,2,2027,0)="""RTN"",""HLMA3"",2,0)"
^XMB(3.9,41,2,2028,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995"
^XMB(3.9,41,2,2029,0)="""RTN"",""HLMA3"",3,0)"
^XMB(3.9,41,2,2030,0)=" Q"
^XMB(3.9,41,2,2031,0)="""RTN"",""HLMA3"",4,0)"
^XMB(3.9,41,2,2032,0)=" ;"
^XMB(3.9,41,2,2033,0)="""RTN"",""HLMA3"",5,0)"
^XMB(3.9,41,2,2034,0)="IEDOMAIN() ;"
^XMB(3.9,41,2,2035,0)="""RTN"",""HLMA3"",6,0)"
^XMB(3.9,41,2,2036,0)=" ; API for retrieving domain of site's local Interface Engine"
^XMB(3.9,41,2,2037,0)="""RTN"",""HLMA3"",7,0)"
^XMB(3.9,41,2,2038,0)=" ; from logical link VA-VIE"
^XMB(3.9,41,2,2039,0)="""RTN"",""HLMA3"",8,0)"
^XMB(3.9,41,2,2040,0)=" ; "
^XMB(3.9,41,2,2041,0)="""RTN"",""HLMA3"",9,0)"
^XMB(3.9,41,2,2042,0)=" ; no input"
^XMB(3.9,41,2,2043,0)="""RTN"",""HLMA3"",10,0)"
^XMB(3.9,41,2,2044,0)=" ; output:"
^XMB(3.9,41,2,2045,0)="""RTN"",""HLMA3"",11,0)"
^XMB(3.9,41,2,2046,0)=" ; return DNS domain if available, else return null string."
^XMB(3.9,41,2,2047,0)="""RTN"",""HLMA3"",12,0)"
^XMB(3.9,41,2,2048,0)=" ;"
^XMB(3.9,41,2,2049,0)="""RTN"",""HLMA3"",13,0)"
^XMB(3.9,41,2,2050,0)=" N HLTEMP"
^XMB(3.9,41,2,2051,0)="""RTN"",""HLMA3"",14,0)"
^XMB(3.9,41,2,2052,0)=" ; retrive data from DNS Domain field of file #870"
^XMB(3.9,41,2,2053,0)="""RTN"",""HLMA3"",15,0)"
^XMB(3.9,41,2,2054,0)=" S HLTEMP(""VA-VIE-IEN"")=$O(^HLCS(870,""B"",""VA-VIE"",0))"
^XMB(3.9,41,2,2055,0)="""RTN"",""HLMA3"",16,0)"
^XMB(3.9,41,2,2056,0)=" S HLTEMP(""DOMAIN"")=$P($G(^HLCS(870,+$G(HLTEMP(""VA-VIE-IEN"")),0)),""^"",8)"
^XMB(3.9,41,2,2057,0)="""RTN"",""HLMA3"",17,0)"
^XMB(3.9,41,2,2058,0)=" Q HLTEMP(""DOMAIN"")"
^XMB(3.9,41,2,2059,0)="""RTN"",""HLMA3"",18,0)"
^XMB(3.9,41,2,2060,0)=" ;"
^XMB(3.9,41,2,2061,0)="""RTN"",""HLMA3"",19,0)"
^XMB(3.9,41,2,2062,0)="LINKAPI(LINK,DOMAIN,AUTOSTAR) ;"
^XMB(3.9,41,2,2063,0)="""RTN"",""HLMA3"",20,0)"
^XMB(3.9,41,2,2064,0)=" ; API for updating fields, DNS Domain and Autostart, of logical link"
^XMB(3.9,41,2,2065,0)="""RTN"",""HLMA3"",21,0)"
^XMB(3.9,41,2,2066,0)=" ; the API may only be applied to production account."
^XMB(3.9,41,2,2067,0)="""RTN"",""HLMA3"",22,0)"
^XMB(3.9,41,2,2068,0)=" ; inputs: "
^XMB(3.9,41,2,2069,0)="""RTN"",""HLMA3"",23,0)"
^XMB(3.9,41,2,2070,0)=" ; LINK -     1. ien of HL Logical Link file (#870), or "
^XMB(3.9,41,2,2071,0)="""RTN"",""HLMA3"",24,0)"
^XMB(3.9,41,2,2072,0)=" ;            2. name (field 'Node'- #.01) of HL Logical Link file"
^XMB(3.9,41,2,2073,0)="""RTN"",""HLMA3"",25,0)"
^XMB(3.9,41,2,2074,0)=" ;               (#870)"
^XMB(3.9,41,2,2075,0)="""RTN"",""HLMA3"",26,0)"
^XMB(3.9,41,2,2076,0)=" ; DOMAIN -   data for DNS domain field (field #.08)"
^XMB(3.9,41,2,2077,0)="""RTN"",""HLMA3"",27,0)"
^XMB(3.9,41,2,2078,0)=" ; AUTOSTAR - data for Autostart field (field #4.5),"
^XMB(3.9,41,2,2079,0)="""RTN"",""HLMA3"",28,0)"
^XMB(3.9,41,2,2080,0)=" ;            0 for Disabled, 1 for Enabled. "
^XMB(3.9,41,2,2081,0)="""RTN"",""HLMA3"",29,0)"
^XMB(3.9,41,2,2082,0)=" ;            Otherwise, data won't be updated"
^XMB(3.9,41,2,2083,0)="""RTN"",""HLMA3"",30,0)"
^XMB(3.9,41,2,2084,0)=" ;"
^XMB(3.9,41,2,2085,0)="""RTN"",""HLMA3"",31,0)"
^XMB(3.9,41,2,2086,0)=" ; output could be either of the following:"
^XMB(3.9,41,2,2087,0)="""RTN"",""HLMA3"",32,0)"
^XMB(3.9,41,2,2088,0)=" ; 1^DOMAIN,AUTOSTART have been updated "
^XMB(3.9,41,2,2089,0)="""RTN"",""HLMA3"",33,0)"
^XMB(3.9,41,2,2090,0)=" ; 1^DOMAIN has been updated "
^XMB(3.9,41,2,2091,0)="""RTN"",""HLMA3"",34,0)"
^XMB(3.9,41,2,2092,0)=" ; 1^AUTOSTART has been updated "
^XMB(3.9,41,2,2093,0)="""RTN"",""HLMA3"",35,0)"
^XMB(3.9,41,2,2094,0)=" ; -1^none has been updated"
^XMB(3.9,41,2,2095,0)="""RTN"",""HLMA3"",36,0)"
^XMB(3.9,41,2,2096,0)=" ; -1^the api may not be applied to non-production account "
^XMB(3.9,41,2,2097,0)="""RTN"",""HLMA3"",37,0)"
^XMB(3.9,41,2,2098,0)=" ;"
^XMB(3.9,41,2,2099,0)="""RTN"",""HLMA3"",38,0)"
^XMB(3.9,41,2,2100,0)=" N HLTEMP,HLZ"
^XMB(3.9,41,2,2101,0)="""RTN"",""HLMA3"",39,0)"
^XMB(3.9,41,2,2102,0)=" ;retrieve data from HL Communication Server Parameter file (#869.3)"
^XMB(3.9,41,2,2103,0)="""RTN"",""HLMA3"",40,0)"
^XMB(3.9,41,2,2104,0)=" ; - Default Processing Id (#.03) "
^XMB(3.9,41,2,2105,0)="""RTN"",""HLMA3"",41,0)"
^XMB(3.9,41,2,2106,0)=" ;"
^XMB(3.9,41,2,2107,0)="""RTN"",""HLMA3"",42,0)"
^XMB(3.9,41,2,2108,0)=" S HLTEMP(""PARAM"")=$$PARAM^HLCS2"
^XMB(3.9,41,2,2109,0)="""RTN"",""HLMA3"",43,0)"
^XMB(3.9,41,2,2110,0)=" S HLTEMP(""DEFAULT-PROCESSING-ID"")=$P(HLTEMP(""PARAM""),""^"",3)"
^XMB(3.9,41,2,2111,0)="""RTN"",""HLMA3"",44,0)"
^XMB(3.9,41,2,2112,0)=" ;"
^XMB(3.9,41,2,2113,0)="""RTN"",""HLMA3"",45,0)"
^XMB(3.9,41,2,2114,0)=" ; quit if this is a non-production account"
^XMB(3.9,41,2,2115,0)="""RTN"",""HLMA3"",46,0)"
^XMB(3.9,41,2,2116,0)=" Q:HLTEMP(""DEFAULT-PROCESSING-ID"")'=""P"" ""-1^the api may not be applied to non-production account"""
^XMB(3.9,41,2,2117,0)="""RTN"",""HLMA3"",47,0)"
^XMB(3.9,41,2,2118,0)=" ;"
^XMB(3.9,41,2,2119,0)="""RTN"",""HLMA3"",48,0)"
^XMB(3.9,41,2,2120,0)=" ; get input data for link ien or name"
^XMB(3.9,41,2,2121,0)="""RTN"",""HLMA3"",49,0)"
^XMB(3.9,41,2,2122,0)=" S HLTEMP(""IEN"")=$G(LINK)"
^XMB(3.9,41,2,2123,0)="""RTN"",""HLMA3"",50,0)"
^XMB(3.9,41,2,2124,0)=" I 'HLTEMP(""IEN"")&($L(HLTEMP(""IEN""))) S HLTEMP(""IEN"")=+$O(^HLCS(870,""B"",HLTEMP(""IEN""),0))"
^XMB(3.9,41,2,2125,0)="""RTN"",""HLMA3"",51,0)"
^XMB(3.9,41,2,2126,0)=" ;"
^XMB(3.9,41,2,2127,0)="""RTN"",""HLMA3"",52,0)"
^XMB(3.9,41,2,2128,0)=" ; quit if no ien"
^XMB(3.9,41,2,2129,0)="""RTN"",""HLMA3"",53,0)"
^XMB(3.9,41,2,2130,0)=" Q:'HLTEMP(""IEN"") ""-1^none has been updated"""
^XMB(3.9,41,2,2131,0)="""RTN"",""HLMA3"",54,0)"
^XMB(3.9,41,2,2132,0)=" ;"
^XMB(3.9,41,2,2133,0)="""RTN"",""HLMA3"",55,0)"
^XMB(3.9,41,2,2134,0)=" ; get input data for DNS domain field"
^XMB(3.9,41,2,2135,0)="""RTN"",""HLMA3"",56,0)"
^XMB(3.9,41,2,2136,0)=" S HLTEMP(""DOMAIN"")=$G(DOMAIN)"
^XMB(3.9,41,2,2137,0)="""RTN"",""HLMA3"",57,0)"
^XMB(3.9,41,2,2138,0)=" ;"
^XMB(3.9,41,2,2139,0)="""RTN"",""HLMA3"",58,0)"
^XMB(3.9,41,2,2140,0)=" ; get IP address for the domain"
^XMB(3.9,41,2,2141,0)="""RTN"",""HLMA3"",59,0)"
^XMB(3.9,41,2,2142,0)=" I $L(HLTEMP(""DOMAIN"")) S HLTEMP(""IP"")=$$ADDRESS^XLFNSLK(HLTEMP(""DOMAIN""))"
^XMB(3.9,41,2,2143,0)="""RTN"",""HLMA3"",60,0)"
^XMB(3.9,41,2,2144,0)=" ;"
^XMB(3.9,41,2,2145,0)="""RTN"",""HLMA3"",61,0)"
^XMB(3.9,41,2,2146,0)=" ; invalid domain, set it to null"
^XMB(3.9,41,2,2147,0)="""RTN"",""HLMA3"",62,0)"
^XMB(3.9,41,2,2148,0)=" I $L(HLTEMP(""DOMAIN"")),'$G(HLTEMP(""IP"")) S HLTEMP(""DOMAIN"")="""""
^XMB(3.9,41,2,2149,0)="""RTN"",""HLMA3"",63,0)"
^XMB(3.9,41,2,2150,0)=" ;"
^XMB(3.9,41,2,2151,0)="""RTN"",""HLMA3"",64,0)"
^XMB(3.9,41,2,2152,0)=" ; get input data for Autostart field"
^XMB(3.9,41,2,2153,0)="""RTN"",""HLMA3"",65,0)"
^XMB(3.9,41,2,2154,0)=" S HLTEMP(""AUTOSTART"")=$G(AUTOSTAR)"
^XMB(3.9,41,2,2155,0)="""RTN"",""HLMA3"",66,0)"
^XMB(3.9,41,2,2156,0)=" ;"
^XMB(3.9,41,2,2157,0)="""RTN"",""HLMA3"",67,0)"
^XMB(3.9,41,2,2158,0)=" ; quit if invalid data for both fields"
^XMB(3.9,41,2,2159,0)="""RTN"",""HLMA3"",68,0)"
^XMB(3.9,41,2,2160,0)=" Q:($L(HLTEMP(""DOMAIN""),""."")'>2)&'((HLTEMP(""AUTOSTART"")=""0"")!(HLTEMP(""AUTOSTART"")=""1"")) ""-1^none has been updated"""
^XMB(3.9,41,2,2161,0)="""RTN"",""HLMA3"",69,0)"
^XMB(3.9,41,2,2162,0)=" I $L(HLTEMP(""DOMAIN""),""."")>2 D"
^XMB(3.9,41,2,2163,0)="""RTN"",""HLMA3"",70,0)"
^XMB(3.9,41,2,2164,0)=" . S HLZ(870,HLTEMP(""IEN"")_"","",.08)=HLTEMP(""DOMAIN"")"
^XMB(3.9,41,2,2165,0)="""RTN"",""HLMA3"",71,0)"
^XMB(3.9,41,2,2166,0)=" I (HLTEMP(""AUTOSTART"")=""0"")!(HLTEMP(""AUTOSTART"")=""1"") D"
^XMB(3.9,41,2,2167,0)="""RTN"",""HLMA3"",72,0)"
^XMB(3.9,41,2,2168,0)=" . S HLZ(870,HLTEMP(""IEN"")_"","",4.5)=HLTEMP(""AUTOSTART"")"
^XMB(3.9,41,2,2169,0)="""RTN"",""HLMA3"",73,0)"
^XMB(3.9,41,2,2170,0)=" D FILE^DIE(""S"",""HLZ"",""HLZ"")"
^XMB(3.9,41,2,2171,0)="""RTN"",""HLMA3"",74,0)"
^XMB(3.9,41,2,2172,0)=" ;"
^XMB(3.9,41,2,2173,0)="""RTN"",""HLMA3"",75,0)"
^XMB(3.9,41,2,2174,0)=" ; both fields are updated"
^XMB(3.9,41,2,2175,0)="""RTN"",""HLMA3"",76,0)"
^XMB(3.9,41,2,2176,0)=" Q:$D(HLZ(870,HLTEMP(""IEN"")_"","",.08))&($D(HLZ(870,HLTEMP(""IEN"")_"","",4.5))) ""1^DOMAIN,AUTOSTART have been updated"""
^XMB(3.9,41,2,2177,0)="""RTN"",""HLMA3"",77,0)"
^XMB(3.9,41,2,2178,0)=" ;"
^XMB(3.9,41,2,2179,0)="""RTN"",""HLMA3"",78,0)"
^XMB(3.9,41,2,2180,0)=" ; only update DNS Domain field"
^XMB(3.9,41,2,2181,0)="""RTN"",""HLMA3"",79,0)"
^XMB(3.9,41,2,2182,0)=" Q:$D(HLZ(870,HLTEMP(""IEN"")_"","",.08)) ""1^DOMAIN has been updated"""
^XMB(3.9,41,2,2183,0)="""RTN"",""HLMA3"",80,0)"
^XMB(3.9,41,2,2184,0)=" ;"
^XMB(3.9,41,2,2185,0)="""RTN"",""HLMA3"",81,0)"
^XMB(3.9,41,2,2186,0)=" ; only update Autostart field"
^XMB(3.9,41,2,2187,0)="""RTN"",""HLMA3"",82,0)"
^XMB(3.9,41,2,2188,0)=" Q:$D(HLZ(870,HLTEMP(""IEN"")_"","",4.5)) ""1^AUTOSTART has been updated"""
^XMB(3.9,41,2,2189,0)="""RTN"",""HLMA3"",83,0)"
^XMB(3.9,41,2,2190,0)=" ;"
^XMB(3.9,41,2,2191,0)="""RTN"",""HLMA3"",84,0)"
^XMB(3.9,41,2,2192,0)="IP(DA,HLIP) ;"
^XMB(3.9,41,2,2193,0)="""RTN"",""HLMA3"",85,0)"
^XMB(3.9,41,2,2194,0)=" ; 1. API to update field TCP/IP Address, #870,400.01."
^XMB(3.9,41,2,2195,0)="""RTN"",""HLMA3"",86,0)"
^XMB(3.9,41,2,2196,0)=" ; 2. called from input transform of #870,.08 DNS Domain to update"
^XMB(3.9,41,2,2197,0)="""RTN"",""HLMA3"",87,0)"
^XMB(3.9,41,2,2198,0)=" ;    field TCP/IP Address, #870,400.01."
^XMB(3.9,41,2,2199,0)="""RTN"",""HLMA3"",88,0)"
^XMB(3.9,41,2,2200,0)=" ;"
^XMB(3.9,41,2,2201,0)="""RTN"",""HLMA3"",89,0)"
^XMB(3.9,41,2,2202,0)=" ; input:"
^XMB(3.9,41,2,2203,0)="""RTN"",""HLMA3"",90,0)"
^XMB(3.9,41,2,2204,0)=" ; DA -   1. ien of HL Logical Link file (#870), or "
^XMB(3.9,41,2,2205,0)="""RTN"",""HLMA3"",91,0)"
^XMB(3.9,41,2,2206,0)=" ;        2. name (field 'Node'- #.01) of HL Logical Link file (#870)"
^XMB(3.9,41,2,2207,0)="""RTN"",""HLMA3"",92,0)"
^XMB(3.9,41,2,2208,0)=" ; HLIP - IP addresses"
^XMB(3.9,41,2,2209,0)="""RTN"",""HLMA3"",93,0)"
^XMB(3.9,41,2,2210,0)=" ; "
^XMB(3.9,41,2,2211,0)="""RTN"",""HLMA3"",94,0)"
^XMB(3.9,41,2,2212,0)=" ; output:"
^XMB(3.9,41,2,2213,0)="""RTN"",""HLMA3"",95,0)"
^XMB(3.9,41,2,2214,0)=" ; return IP address updated to the field if valid,"
^XMB(3.9,41,2,2215,0)="""RTN"",""HLMA3"",96,0)"
^XMB(3.9,41,2,2216,0)=" ; else return null string."
^XMB(3.9,41,2,2217,0)="""RTN"",""HLMA3"",97,0)"
^XMB(3.9,41,2,2218,0)=" ;"
^XMB(3.9,41,2,2219,0)="""RTN"",""HLMA3"",98,0)"
^XMB(3.9,41,2,2220,0)=" N HLZ,HLI,HLTEMP"
^XMB(3.9,41,2,2221,0)="""RTN"",""HLMA3"",99,0)"
^XMB(3.9,41,2,2222,0)=" ; "
^XMB(3.9,41,2,2223,0)="""RTN"",""HLMA3"",100,0)"
^XMB(3.9,41,2,2224,0)=" ; get input data"
^XMB(3.9,41,2,2225,0)="""RTN"",""HLMA3"",101,0)"
^XMB(3.9,41,2,2226,0)=" S DA=$G(DA)"
^XMB(3.9,41,2,2227,0)="""RTN"",""HLMA3"",102,0)"
^XMB(3.9,41,2,2228,0)=" I 'DA&($L(DA)) S DA=+$O(^HLCS(870,""B"",DA,0))"
^XMB(3.9,41,2,2229,0)="""RTN"",""HLMA3"",103,0)"
^XMB(3.9,41,2,2230,0)=" ;"
^XMB(3.9,41,2,2231,0)="""RTN"",""HLMA3"",104,0)"
^XMB(3.9,41,2,2232,0)=" ; invalid ien"
^XMB(3.9,41,2,2233,0)="""RTN"",""HLMA3"",105,0)"
^XMB(3.9,41,2,2234,0)=" Q:'DA """""
^XMB(3.9,41,2,2235,0)="""RTN"",""HLMA3"",106,0)"
^XMB(3.9,41,2,2236,0)=" ;"
^XMB(3.9,41,2,2237,0)="""RTN"",""HLMA3"",107,0)"
^XMB(3.9,41,2,2238,0)=" ; invalid ip"
^XMB(3.9,41,2,2239,0)="""RTN"",""HLMA3"",108,0)"
^XMB(3.9,41,2,2240,0)=" Q:('HLIP) """""
^XMB(3.9,41,2,2241,0)="""RTN"",""HLMA3"",109,0)"
^XMB(3.9,41,2,2242,0)=" ;"
^XMB(3.9,41,2,2243,0)="""RTN"",""HLMA3"",110,0)"
^XMB(3.9,41,2,2244,0)=" ; get port number"
^XMB(3.9,41,2,2245,0)="""RTN"",""HLMA3"",111,0)"
^XMB(3.9,41,2,2246,0)=" S HLTEMP(""PORT"")=+$P($G(^HLCS(870,DA,400)),""^"",2)"
^XMB(3.9,41,2,2247,0)="""RTN"",""HLMA3"",112,0)"
^XMB(3.9,41,2,2248,0)=" ;"
^XMB(3.9,41,2,2249,0)="""RTN"",""HLMA3"",113,0)"
^XMB(3.9,41,2,2250,0)=" ; invalid port"
^XMB(3.9,41,2,2251,0)="""RTN"",""HLMA3"",114,0)"
^XMB(3.9,41,2,2252,0)=" Q:'HLTEMP(""PORT"") """""
^XMB(3.9,41,2,2253,0)="""RTN"",""HLMA3"",115,0)"
^XMB(3.9,41,2,2254,0)=" ;"
^XMB(3.9,41,2,2255,0)="""RTN"",""HLMA3"",116,0)"
^XMB(3.9,41,2,2256,0)=" S HLTEMP(""IP"")="""""
^XMB(3.9,41,2,2257,0)="""RTN"",""HLMA3"",117,0)"
^XMB(3.9,41,2,2258,0)=" S HLTEMP(""IP-VALID"")=0"
^XMB(3.9,41,2,2259,0)="""RTN"",""HLMA3"",118,0)"
^XMB(3.9,41,2,2260,0)=" S HLTEMP(""IP-COUNT"")=$L($G(HLIP),"","")"
^XMB(3.9,41,2,2261,0)="""RTN"",""HLMA3"",119,0)"
^XMB(3.9,41,2,2262,0)=" F HLI=1:1:HLTEMP(""IP-COUNT"") D  Q:HLTEMP(""IP-VALID"")"
^XMB(3.9,41,2,2263,0)="""RTN"",""HLMA3"",120,0)"
^XMB(3.9,41,2,2264,0)=" . S HLTEMP(""IP"")=$P(HLIP,"","",HLI)"
^XMB(3.9,41,2,2265,0)="""RTN"",""HLMA3"",121,0)"
^XMB(3.9,41,2,2266,0)=" . D CALL^%ZISTCP(HLTEMP(""IP""),HLTEMP(""PORT""))"
^XMB(3.9,41,2,2267,0)="""RTN"",""HLMA3"",122,0)"
^XMB(3.9,41,2,2268,0)=" . I 'POP D"
^XMB(3.9,41,2,2269,0)="""RTN"",""HLMA3"",123,0)"
^XMB(3.9,41,2,2270,0)=" .. D CLOSE^%ZISTCP"
^XMB(3.9,41,2,2271,0)="""RTN"",""HLMA3"",124,0)"
^XMB(3.9,41,2,2272,0)=" .. S HLTEMP(""IP-VALID"")=HLTEMP(""IP"")"
^XMB(3.9,41,2,2273,0)="""RTN"",""HLMA3"",125,0)"
^XMB(3.9,41,2,2274,0)=" ;"
^XMB(3.9,41,2,2275,0)="""RTN"",""HLMA3"",126,0)"
^XMB(3.9,41,2,2276,0)=" ; invalid ip, return null"
^XMB(3.9,41,2,2277,0)="""RTN"",""HLMA3"",127,0)"
^XMB(3.9,41,2,2278,0)=" Q:'HLTEMP(""IP-VALID"") """""
^XMB(3.9,41,2,2279,0)="""RTN"",""HLMA3"",128,0)"
^XMB(3.9,41,2,2280,0)=" ;"
^XMB(3.9,41,2,2281,0)="""RTN"",""HLMA3"",129,0)"
^XMB(3.9,41,2,2282,0)=" ; valid data to update the field"
^XMB(3.9,41,2,2283,0)="""RTN"",""HLMA3"",130,0)"
^XMB(3.9,41,2,2284,0)=" S HLZ(870,DA_"","",400.01)=HLTEMP(""IP-VALID"")"
^XMB(3.9,41,2,2285,0)="""RTN"",""HLMA3"",131,0)"
^XMB(3.9,41,2,2286,0)=" D FILE^DIE(""E"",""HLZ"",""HLZ"")"
^XMB(3.9,41,2,2287,0)="""RTN"",""HLMA3"",132,0)"
^XMB(3.9,41,2,2288,0)=" ;"
^XMB(3.9,41,2,2289,0)="""RTN"",""HLMA3"",133,0)"
^XMB(3.9,41,2,2290,0)=" ; return the valid ip"
^XMB(3.9,41,2,2291,0)="""RTN"",""HLMA3"",134,0)"
^XMB(3.9,41,2,2292,0)=" Q HLTEMP(""IP-VALID"")"
^XMB(3.9,41,2,2293,0)="""RTN"",""HLMA3"",135,0)"
^XMB(3.9,41,2,2294,0)=" ;"
^XMB(3.9,41,2,2295,0)="""RTN"",""HLMA3"",136,0)"
^XMB(3.9,41,2,2296,0)="FACILITY(LINK,DELIMITR) ;"
^XMB(3.9,41,2,2297,0)="""RTN"",""HLMA3"",137,0)"
^XMB(3.9,41,2,2298,0)=" ; API for retrieving the station number and domain fields of logical"
^XMB(3.9,41,2,2299,0)="""RTN"",""HLMA3"",138,0)"
^XMB(3.9,41,2,2300,0)=" ; link (file #870) and to be usd for populating in field MSH-6 "
^XMB(3.9,41,2,2301,0)="""RTN"",""HLMA3"",139,0)"
^XMB(3.9,41,2,2302,0)=" ; (receiving facility) of message header."
^XMB(3.9,41,2,2303,0)="""RTN"",""HLMA3"",140,0)"
^XMB(3.9,41,2,2304,0)=" ;"
^XMB(3.9,41,2,2305,0)="""RTN"",""HLMA3"",141,0)"
^XMB(3.9,41,2,2306,0)=" ; output format: institution number<delimiter>domain<delimiter>DNS"
^XMB(3.9,41,2,2307,0)="""RTN"",""HLMA3"",142,0)"
^XMB(3.9,41,2,2308,0)=" ;"
^XMB(3.9,41,2,2309,0)="""RTN"",""HLMA3"",143,0)"
^XMB(3.9,41,2,2310,0)=" ; inputs:"
^XMB(3.9,41,2,2311,0)="""RTN"",""HLMA3"",144,0)"
^XMB(3.9,41,2,2312,0)=" ; LINK -       1. ien of HL Logical Link file (#870), or"
^XMB(3.9,41,2,2313,0)="""RTN"",""HLMA3"",145,0)"
^XMB(3.9,41,2,2314,0)=" ;              2. name (field 'Node'- #.01) of HL Logical Link file"
^XMB(3.9,41,2,2315,0)="""RTN"",""HLMA3"",146,0)"
^XMB(3.9,41,2,2316,0)=" ;               (#870)"
^XMB(3.9,41,2,2317,0)="""RTN"",""HLMA3"",147,0)"
^XMB(3.9,41,2,2318,0)=" ; DELIMITR -  such as ""~"", ""^"", etc."
^XMB(3.9,41,2,2319,0)="""RTN"",""HLMA3"",148,0)"
^XMB(3.9,41,2,2320,0)=" ;"
^XMB(3.9,41,2,2321,0)="""RTN"",""HLMA3"",149,0)"
^XMB(3.9,41,2,2322,0)=" ; output:"
^XMB(3.9,41,2,2323,0)="""RTN"",""HLMA3"",150,0)"
^XMB(3.9,41,2,2324,0)=" ;        1.  institution number<delimiter>domain<delimiter>DNS"
^XMB(3.9,41,2,2325,0)="""RTN"",""HLMA3"",151,0)"
^XMB(3.9,41,2,2326,0)=" ;        2.  <null> if input data is invalid"
^XMB(3.9,41,2,2327,0)="""RTN"",""HLMA3"",152,0)"
^XMB(3.9,41,2,2328,0)=" ;"
^XMB(3.9,41,2,2329,0)="""RTN"",""HLMA3"",153,0)"
^XMB(3.9,41,2,2330,0)=" ; note: if the domain retrieved from DNS domain field with ""HL7."""
^XMB(3.9,41,2,2331,0)="""RTN"",""HLMA3"",154,0)"
^XMB(3.9,41,2,2332,0)=" ;       or ""MPI."" prefixed at the beginning of the domain, the"
^XMB(3.9,41,2,2333,0)="""RTN"",""HLMA3"",155,0)"
^XMB(3.9,41,2,2334,0)=" ;       prifixed ""HL7."" or ""MPI."" will be removed, in order to"
^XMB(3.9,41,2,2335,0)="""RTN"",""HLMA3"",156,0)"
^XMB(3.9,41,2,2336,0)=" ;       meet the current implementation of Vista HL7.  Current"
^XMB(3.9,41,2,2337,0)="""RTN"",""HLMA3"",157,0)"
^XMB(3.9,41,2,2338,0)=" ;       VISTA HL7 domain is retrieved from MailMan domain field,"
^XMB(3.9,41,2,2339,0)="""RTN"",""HLMA3"",158,0)"
^XMB(3.9,41,2,2340,0)=" ;       the ""HL7."" or ""MPI."" is not prefixed at the beginning of"
^XMB(3.9,41,2,2341,0)="""RTN"",""HLMA3"",159,0)"
^XMB(3.9,41,2,2342,0)=" ;       the domain when it is populated in field MSH-6 (receiving"
^XMB(3.9,41,2,2343,0)="""RTN"",""HLMA3"",160,0)"
^XMB(3.9,41,2,2344,0)=" ;       facility) of message header. "
^XMB(3.9,41,2,2345,0)="""RTN"",""HLMA3"",161,0)"
^XMB(3.9,41,2,2346,0)=" ;"
^XMB(3.9,41,2,2347,0)="""RTN"",""HLMA3"",162,0)"
^XMB(3.9,41,2,2348,0)=" N HLLINK,HLCINS,HLCDOM"
^XMB(3.9,41,2,2349,0)="""RTN"",""HLMA3"",163,0)"
^XMB(3.9,41,2,2350,0)=" ;"
^XMB(3.9,41,2,2351,0)="""RTN"",""HLMA3"",164,0)"
^XMB(3.9,41,2,2352,0)=" ; get input data for link ien or name"
^XMB(3.9,41,2,2353,0)="""RTN"",""HLMA3"",165,0)"
^XMB(3.9,41,2,2354,0)=" S HLLINK=$G(LINK)"
^XMB(3.9,41,2,2355,0)="""RTN"",""HLMA3"",166,0)"
^XMB(3.9,41,2,2356,0)=" I 'HLLINK,HLLINK]"""" D"
^XMB(3.9,41,2,2357,0)="""RTN"",""HLMA3"",167,0)"
^XMB(3.9,41,2,2358,0)=" .S HLLINK=$O(^HLCS(870,""B"",HLLINK,0))"
^XMB(3.9,41,2,2359,0)="""RTN"",""HLMA3"",168,0)"
^XMB(3.9,41,2,2360,0)=" ;"
^XMB(3.9,41,2,2361,0)="""RTN"",""HLMA3"",169,0)"
^XMB(3.9,41,2,2362,0)=" ; quit if no ien"
^XMB(3.9,41,2,2363,0)="""RTN"",""HLMA3"",170,0)"
^XMB(3.9,41,2,2364,0)=" Q:'HLLINK """""
^XMB(3.9,41,2,2365,0)="""RTN"",""HLMA3"",171,0)"
^XMB(3.9,41,2,2366,0)=" ;"
^XMB(3.9,41,2,2367,0)="""RTN"",""HLMA3"",172,0)"
^XMB(3.9,41,2,2368,0)=" ; get DELIMITR"
^XMB(3.9,41,2,2369,0)="""RTN"",""HLMA3"",173,0)"
^XMB(3.9,41,2,2370,0)=" S DELIMITR=$G(DELIMITR)"
^XMB(3.9,41,2,2371,0)="""RTN"",""HLMA3"",174,0)"
^XMB(3.9,41,2,2372,0)=" ;"
^XMB(3.9,41,2,2373,0)="""RTN"",""HLMA3"",175,0)"
^XMB(3.9,41,2,2374,0)=" ; quit if invalid DELIMITR"
^XMB(3.9,41,2,2375,0)="""RTN"",""HLMA3"",176,0)"
^XMB(3.9,41,2,2376,0)=" Q:$L(DELIMITR)'=1 """""
^XMB(3.9,41,2,2377,0)="""RTN"",""HLMA3"",177,0)"
^XMB(3.9,41,2,2378,0)=" ;"
^XMB(3.9,41,2,2379,0)="""RTN"",""HLMA3"",178,0)"
^XMB(3.9,41,2,2380,0)=" ; retrive data from DNS Domain field of file #870"
^XMB(3.9,41,2,2381,0)="""RTN"",""HLMA3"",179,0)"
^XMB(3.9,41,2,2382,0)=" S HLCDOM(""DNS"")=$P($G(^HLCS(870,+HLLINK,0)),""^"",8)"
^XMB(3.9,41,2,2383,0)="""RTN"",""HLMA3"",180,0)"
^XMB(3.9,41,2,2384,0)=" ;"
^XMB(3.9,41,2,2385,0)="""RTN"",""HLMA3"",181,0)"
^XMB(3.9,41,2,2386,0)=" ; remove the first piece if the first piece is ""HL7"" or ""MPI"""
^XMB(3.9,41,2,2387,0)="""RTN"",""HLMA3"",182,0)"
^XMB(3.9,41,2,2388,0)=" I ($P(HLCDOM(""DNS""),""."")=""HL7"")!($P(HLCDOM(""DNS""),""."")=""MPI"") D"
^XMB(3.9,41,2,2389,0)="""RTN"",""HLMA3"",183,0)"
^XMB(3.9,41,2,2390,0)=" . S HLCDOM(""DNS"")=$P(HLCDOM(""DNS""),""."",2,99)"
^XMB(3.9,41,2,2391,0)="""RTN"",""HLMA3"",184,0)"
^XMB(3.9,41,2,2392,0)=" ;"
^XMB(3.9,41,2,2393,0)="""RTN"",""HLMA3"",185,0)"
^XMB(3.9,41,2,2394,0)=" S (HLCINS,HLCDOM)="""""
^XMB(3.9,41,2,2395,0)="""RTN"",""HLMA3"",186,0)"
^XMB(3.9,41,2,2396,0)=" S HLCINS=$P(^HLCS(870,HLLINK,0),U,2)"
^XMB(3.9,41,2,2397,0)="""RTN"",""HLMA3"",187,0)"
^XMB(3.9,41,2,2398,0)=" S HLCDOM=$P(^HLCS(870,HLLINK,0),U,7)"
^XMB(3.9,41,2,2399,0)="""RTN"",""HLMA3"",188,0)"
^XMB(3.9,41,2,2400,0)=" ;"
^XMB(3.9,41,2,2401,0)="""RTN"",""HLMA3"",189,0)"
^XMB(3.9,41,2,2402,0)=" ; quit if no data in institution and domain fields"
^XMB(3.9,41,2,2403,0)="""RTN"",""HLMA3"",190,0)"
^XMB(3.9,41,2,2404,0)=" Q:('HLCINS)&('HLCDOM)&('$L(HLCDOM(""DNS""))) """""
^XMB(3.9,41,2,2405,0)="""RTN"",""HLMA3"",191,0)"
^XMB(3.9,41,2,2406,0)=" ;"
^XMB(3.9,41,2,2407,0)="""RTN"",""HLMA3"",192,0)"
^XMB(3.9,41,2,2408,0)=" ; initialize result"
^XMB(3.9,41,2,2409,0)="""RTN"",""HLMA3"",193,0)"
^XMB(3.9,41,2,2410,0)=" S HLLINK(""RESULT"")="""""
^XMB(3.9,41,2,2411,0)="""RTN"",""HLMA3"",194,0)"
^XMB(3.9,41,2,2412,0)=" ;"
^XMB(3.9,41,2,2413,0)="""RTN"",""HLMA3"",195,0)"
^XMB(3.9,41,2,2414,0)=" ; if instition ien exists"
^XMB(3.9,41,2,2415,0)="""RTN"",""HLMA3"",196,0)"
^XMB(3.9,41,2,2416,0)=" I HLCINS D"
^XMB(3.9,41,2,2417,0)="""RTN"",""HLMA3"",197,0)"
^XMB(3.9,41,2,2418,0)=" . S HLCINS=$P($G(^DIC(4,HLCINS,99)),U)"
^XMB(3.9,41,2,2419,0)="""RTN"",""HLMA3"",198,0)"
^XMB(3.9,41,2,2420,0)=" . ;"
^XMB(3.9,41,2,2421,0)="""RTN"",""HLMA3"",199,0)"
^XMB(3.9,41,2,2422,0)=" . ; if valid station number exists"
^XMB(3.9,41,2,2423,0)="""RTN"",""HLMA3"",200,0)"
^XMB(3.9,41,2,2424,0)=" . I HLCINS D"
^XMB(3.9,41,2,2425,0)="""RTN"",""HLMA3"",201,0)"
^XMB(3.9,41,2,2426,0)=" .. ; set station number to the first piece of the result"
^XMB(3.9,41,2,2427,0)="""RTN"",""HLMA3"",202,0)"
^XMB(3.9,41,2,2428,0)=" .. S HLLINK(""RESULT"")=HLCINS"
^XMB(3.9,41,2,2429,0)="""RTN"",""HLMA3"",203,0)"
^XMB(3.9,41,2,2430,0)=" ;"
^XMB(3.9,41,2,2431,0)="""RTN"",""HLMA3"",204,0)"
^XMB(3.9,41,2,2432,0)=" ; if MailMan domain ien exists"
^XMB(3.9,41,2,2433,0)="""RTN"",""HLMA3"",205,0)"
^XMB(3.9,41,2,2434,0)=" I HLCDOM D"
^XMB(3.9,41,2,2435,0)="""RTN"",""HLMA3"",206,0)"
^XMB(3.9,41,2,2436,0)=" . ;get MailMan domain name"
^XMB(3.9,41,2,2437,0)="""RTN"",""HLMA3"",207,0)"
^XMB(3.9,41,2,2438,0)=" . S HLCDOM=$P(^DIC(4.2,HLCDOM,0),U)"
^XMB(3.9,41,2,2439,0)="""RTN"",""HLMA3"",208,0)"
^XMB(3.9,41,2,2440,0)=" ;"
^XMB(3.9,41,2,2441,0)="""RTN"",""HLMA3"",209,0)"
^XMB(3.9,41,2,2442,0)=" ; DNS domain overides MailMan domain"
^XMB(3.9,41,2,2443,0)="""RTN"",""HLMA3"",210,0)"
^XMB(3.9,41,2,2444,0)=" I ($L(HLCDOM(""DNS""),""."")>2) D"
^XMB(3.9,41,2,2445,0)="""RTN"",""HLMA3"",211,0)"
^XMB(3.9,41,2,2446,0)=" . S HLCDOM=HLCDOM(""DNS"")"
^XMB(3.9,41,2,2447,0)="""RTN"",""HLMA3"",212,0)"
^XMB(3.9,41,2,2448,0)=" ;"
^XMB(3.9,41,2,2449,0)="""RTN"",""HLMA3"",213,0)"
^XMB(3.9,41,2,2450,0)=" ; set third piece as ""DNS"" if domain is valid"
^XMB(3.9,41,2,2451,0)="""RTN"",""HLMA3"",214,0)"
^XMB(3.9,41,2,2452,0)=" I ($L(HLCDOM,""."")>2) D"
^XMB(3.9,41,2,2453,0)="""RTN"",""HLMA3"",215,0)"
^XMB(3.9,41,2,2454,0)=" . ; set domain to the 2nd and 3rd pieces of the result"
^XMB(3.9,41,2,2455,0)="""RTN"",""HLMA3"",216,0)"
^XMB(3.9,41,2,2456,0)=" . S HLLINK(""RESULT"")=HLLINK(""RESULT"")_DELIMITR_HLCDOM_DELIMITR_""DNS"""
^XMB(3.9,41,2,2457,0)="""RTN"",""HLMA3"",217,0)"
^XMB(3.9,41,2,2458,0)=" Q HLLINK(""RESULT"")"
^XMB(3.9,41,2,2459,0)="""RTN"",""HLMA3"",218,0)"
^XMB(3.9,41,2,2460,0)=" ;"
^XMB(3.9,41,2,2461,0)="""RTN"",""HLOAPI"")"
^XMB(3.9,41,2,2462,0)="0^1^B35456611"
^XMB(3.9,41,2,2463,0)="""RTN"",""HLOAPI"",1,0)"
^XMB(3.9,41,2,2464,0)="HLOAPI ;ALB/CJM-HL7 - Developer API's for sending & receiving messages ;02/04/2004"
^XMB(3.9,41,2,2465,0)="""RTN"",""HLOAPI"",2,0)"
^XMB(3.9,41,2,2466,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995"
^XMB(3.9,41,2,2467,0)="""RTN"",""HLOAPI"",3,0)"
^XMB(3.9,41,2,2468,0)=" ;"
^XMB(3.9,41,2,2469,0)="""RTN"",""HLOAPI"",4,0)"
^XMB(3.9,41,2,2470,0)="NEWMSG(PARMS,HLMSTATE,ERROR) ;"
^XMB(3.9,41,2,2471,0)="""RTN"",""HLOAPI"",5,0)"
^XMB(3.9,41,2,2472,0)=" ;Starts a new message.  "
^XMB(3.9,41,2,2473,0)="""RTN"",""HLOAPI"",6,0)"
^XMB(3.9,41,2,2474,0)=" ;Input: "
^XMB(3.9,41,2,2475,0)="""RTN"",""HLOAPI"",7,0)"
^XMB(3.9,41,2,2476,0)=" ;   PARMS( *pass by reference*"
^XMB(3.9,41,2,2477,0)="""RTN"",""HLOAPI"",8,0)"
^XMB(3.9,41,2,2478,0)=" ;     ""COUNTRY"")=3 character country code (optional)"
^XMB(3.9,41,2,2479,0)="""RTN"",""HLOAPI"",9,0)"
^XMB(3.9,41,2,2480,0)=" ;     ""CONTINUATION POINTER"" -indicates a fragmented message"
^XMB(3.9,41,2,2481,0)="""RTN"",""HLOAPI"",10,0)"
^XMB(3.9,41,2,2482,0)=" ;     ""EVENT"")=3 character event type (required)"
^XMB(3.9,41,2,2483,0)="""RTN"",""HLOAPI"",11,0)"
^XMB(3.9,41,2,2484,0)=" ;     ""FIELD SEPARATOR"")=field separator (optional, defaults to ""|"")"
^XMB(3.9,41,2,2485,0)="""RTN"",""HLOAPI"",12,0)"
^XMB(3.9,41,2,2486,0)=" ;     ""ENCODING CHARACTERS"")= 4 HL7 encoding characters (optional,defaults to ""^~\&"")"
^XMB(3.9,41,2,2487,0)="""RTN"",""HLOAPI"",13,0)"
^XMB(3.9,41,2,2488,0)=" ;     ""MESSAGE STRUCTURE"" - MSH 9, component 3 - a code from the standard HL7 table (optional)"
^XMB(3.9,41,2,2489,0)="""RTN"",""HLOAPI"",14,0)"
^XMB(3.9,41,2,2490,0)=" ;     ""MESSAGE TYPE"")=3 character message type (required)"
^XMB(3.9,41,2,2491,0)="""RTN"",""HLOAPI"",15,0)"
^XMB(3.9,41,2,2492,0)=" ;     ""PROCESSING MODE"" - MSH 11, component 2 - a 1 character code (optional)"
^XMB(3.9,41,2,2493,0)="""RTN"",""HLOAPI"",16,0)"
^XMB(3.9,41,2,2494,0)=" ;     ""VERSION"")=the HL7 Version ID, for example, ""2.4"" (optional, defaults to 2.4)"
^XMB(3.9,41,2,2495,0)="""RTN"",""HLOAPI"",17,0)"
^XMB(3.9,41,2,2496,0)=" ;Output:"
^XMB(3.9,41,2,2497,0)="""RTN"",""HLOAPI"",18,0)"
^XMB(3.9,41,2,2498,0)=" ;  Function- returns 1 on success, 0 on failure"
^XMB(3.9,41,2,2499,0)="""RTN"",""HLOAPI"",19,0)"
^XMB(3.9,41,2,2500,0)=" ;  HLMSTATE() - (pass by reference, required) This array is used by the HL7 package to track the progress of the message.  The application MUST NOT touch it!"
^XMB(3.9,41,2,2501,0)="""RTN"",""HLOAPI"",20,0)"
^XMB(3.9,41,2,2502,0)=" ;  PARMS - left defined when the function returns"
^XMB(3.9,41,2,2503,0)="""RTN"",""HLOAPI"",21,0)"
^XMB(3.9,41,2,2504,0)=" ;  ERROR (optional, pass by reference) - returns an error message on failure"
^XMB(3.9,41,2,2505,0)="""RTN"",""HLOAPI"",22,0)"
^XMB(3.9,41,2,2506,0)=" ;"
^XMB(3.9,41,2,2507,0)="""RTN"",""HLOAPI"",23,0)"
^XMB(3.9,41,2,2508,0)=" ;"
^XMB(3.9,41,2,2509,0)="""RTN"",""HLOAPI"",24,0)"
^XMB(3.9,41,2,2510,0)=" N DATA,I,SYSTEM,SUCCESS"
^XMB(3.9,41,2,2511,0)="""RTN"",""HLOAPI"",25,0)"
^XMB(3.9,41,2,2512,0)=" S SUCCESS=0"
^XMB(3.9,41,2,2513,0)="""RTN"",""HLOAPI"",26,0)"
^XMB(3.9,41,2,2514,0)=" K ERROR,HLMSTATE"
^XMB(3.9,41,2,2515,0)="""RTN"",""HLOAPI"",27,0)"
^XMB(3.9,41,2,2516,0)=" D"
^XMB(3.9,41,2,2517,0)="""RTN"",""HLOAPI"",28,0)"
^XMB(3.9,41,2,2518,0)=" .I $L($G(PARMS(""PROCESSING MODE""))),$L(PARMS(""PROCESSING MODE""))'=1 S ERROR=""INVALID PROCESSING MODE"" Q"
^XMB(3.9,41,2,2519,0)="""RTN"",""HLOAPI"",29,0)"
^XMB(3.9,41,2,2520,0)=" .I $L($G(PARMS(""COUNTRY""))),$L(PARMS(""COUNTRY""))'=3 S ERROR=""INVALID COUNTRY CODE"" Q"
^XMB(3.9,41,2,2521,0)="""RTN"",""HLOAPI"",30,0)"
^XMB(3.9,41,2,2522,0)=" .I $L($G(PARMS(""EVENT"")))'=3 S ERROR=""INVALID EVENT CODE"" Q"
^XMB(3.9,41,2,2523,0)="""RTN"",""HLOAPI"",31,0)"
^XMB(3.9,41,2,2524,0)=" .I $L($G(PARMS(""MESSAGE TYPE"")))'=3 S ERROR=""INVALID MESSAGE TYPE"" Q"
^XMB(3.9,41,2,2525,0)="""RTN"",""HLOAPI"",32,0)"
^XMB(3.9,41,2,2526,0)=" .I $L($G(PARMS(""ENCODING CHARACTERS""))),$L(PARMS(""ENCODING CHARACTERS""))'=4 S ERROR=""INVALID ENCODING CHARACTERS"" Q"
^XMB(3.9,41,2,2527,0)="""RTN"",""HLOAPI"",33,0)"
^XMB(3.9,41,2,2528,0)=" .I $L($G(PARMS(""FIELD SEPARATOR""))),$L(PARMS(""FIELD SEPARATOR""))'=1 S ERROR=""INVALID FIELD SEPARATOR"" Q"
^XMB(3.9,41,2,2529,0)="""RTN"",""HLOAPI"",34,0)"
^XMB(3.9,41,2,2530,0)=" .I '$L($G(PARMS(""FIELD SEPARATOR""))) S PARMS(""FIELD SEPARATOR"")=""|"""
^XMB(3.9,41,2,2531,0)="""RTN"",""HLOAPI"",35,0)"
^XMB(3.9,41,2,2532,0)=" .I '$L($G(PARMS(""ENCODING CHARACTERS""))) S PARMS(""ENCODING CHARACTERS"")=""^~\&"""
^XMB(3.9,41,2,2533,0)="""RTN"",""HLOAPI"",36,0)"
^XMB(3.9,41,2,2534,0)=" .I $G(PARMS(""VERSION""))="""" S PARMS(""VERSION"")=""2.4"""
^XMB(3.9,41,2,2535,0)="""RTN"",""HLOAPI"",37,0)"
^XMB(3.9,41,2,2536,0)=" .I ($L($G(PARMS(""VERSION"")))>20) S ERROR=""VERSION > 20 CHARACTERS"" Q"
^XMB(3.9,41,2,2537,0)="""RTN"",""HLOAPI"",38,0)"
^XMB(3.9,41,2,2538,0)=" .F I=""MESSAGE TYPE"",""EVENT"",""COUNTRY"",""FIELD SEPARATOR"",""ENCODING CHARACTERS"",""VERSION"",""CONTINUATION POINTER"",""MESSAGE STRUCTURE"",""PROCESSING MODE"" S HLMSTATE(""HDR"",I)=$G(PARMS(I))"
^XMB(3.9,41,2,2539,0)="""RTN"",""HLOAPI"",39,0)"
^XMB(3.9,41,2,2540,0)=" .S HLMSTATE(""BATCH"")=0 ;not a batch"
^XMB(3.9,41,2,2541,0)="""RTN"",""HLOAPI"",40,0)"
^XMB(3.9,41,2,2542,0)=" .S HLMSTATE(""DIRECTION"")=""OUT"""
^XMB(3.9,41,2,2543,0)="""RTN"",""HLOAPI"",41,0)"
^XMB(3.9,41,2,2544,0)=" .S HLMSTATE(""IEN"")="""""
^XMB(3.9,41,2,2545,0)="""RTN"",""HLOAPI"",42,0)"
^XMB(3.9,41,2,2546,0)=" .S HLMSTATE(""BODY"")="""" ;record not yet created"
^XMB(3.9,41,2,2547,0)="""RTN"",""HLOAPI"",43,0)"
^XMB(3.9,41,2,2548,0)=" .S HLMSTATE(""CURRENT SEGMENT"")=0 ;no segments cached"
^XMB(3.9,41,2,2549,0)="""RTN"",""HLOAPI"",44,0)"
^XMB(3.9,41,2,2550,0)=" .S HLMSTATE(""UNSTORED LINES"")=0 ;nothing in cache"
^XMB(3.9,41,2,2551,0)="""RTN"",""HLOAPI"",45,0)"
^XMB(3.9,41,2,2552,0)=" .S HLMSTATE(""LINE COUNT"")=0"
^XMB(3.9,41,2,2553,0)="""RTN"",""HLOAPI"",46,0)"
^XMB(3.9,41,2,2554,0)=" .D GETSYS(.HLMSTATE)"
^XMB(3.9,41,2,2555,0)="""RTN"",""HLOAPI"",47,0)"
^XMB(3.9,41,2,2556,0)=" .S SUCCESS=1"
^XMB(3.9,41,2,2557,0)="""RTN"",""HLOAPI"",48,0)"
^XMB(3.9,41,2,2558,0)=" Q SUCCESS"
^XMB(3.9,41,2,2559,0)="""RTN"",""HLOAPI"",49,0)"
^XMB(3.9,41,2,2560,0)=" ;"
^XMB(3.9,41,2,2561,0)="""RTN"",""HLOAPI"",50,0)"
^XMB(3.9,41,2,2562,0)="NEWBATCH(PARMS,HLMSTATE,ERROR) ;"
^XMB(3.9,41,2,2563,0)="""RTN"",""HLOAPI"",51,0)"
^XMB(3.9,41,2,2564,0)=" ;Starts a new batch message.  "
^XMB(3.9,41,2,2565,0)="""RTN"",""HLOAPI"",52,0)"
^XMB(3.9,41,2,2566,0)=" ;Input: "
^XMB(3.9,41,2,2567,0)="""RTN"",""HLOAPI"",53,0)"
^XMB(3.9,41,2,2568,0)=" ;  PARMS( *pass by reference*"
^XMB(3.9,41,2,2569,0)="""RTN"",""HLOAPI"",54,0)"
^XMB(3.9,41,2,2570,0)=" ;   ""COUNTRY"")=3 character country code (optional)"
^XMB(3.9,41,2,2571,0)="""RTN"",""HLOAPI"",55,0)"
^XMB(3.9,41,2,2572,0)=" ;   ""FIELD SEPARATOR"")=field separator (optional, defaults to ""|"")"
^XMB(3.9,41,2,2573,0)="""RTN"",""HLOAPI"",56,0)"
^XMB(3.9,41,2,2574,0)=" ;   ""ENCODING CHARACTERS"")= 4 HL7 encoding characters (optional,defaults to ""^~\&"") "
^XMB(3.9,41,2,2575,0)="""RTN"",""HLOAPI"",57,0)"
^XMB(3.9,41,2,2576,0)=" ;   ""VERSION"")=the HL7 Version ID, for example, ""2.4"" (optional, defaults to 2.4)"
^XMB(3.9,41,2,2577,0)="""RTN"",""HLOAPI"",58,0)"
^XMB(3.9,41,2,2578,0)=" ;Output:"
^XMB(3.9,41,2,2579,0)="""RTN"",""HLOAPI"",59,0)"
^XMB(3.9,41,2,2580,0)=" ;  Function - returns 1 on success, 0 on failure"
^XMB(3.9,41,2,2581,0)="""RTN"",""HLOAPI"",60,0)"
^XMB(3.9,41,2,2582,0)=" ;  PARMS - left defined when the function returns"
^XMB(3.9,41,2,2583,0)="""RTN"",""HLOAPI"",61,0)"
^XMB(3.9,41,2,2584,0)=" ;  HLMSTATE() - (pass by reference, required) This array is used by the HL7 package to track the progress of the message.  The application MUST NOT touch it!"
^XMB(3.9,41,2,2585,0)="""RTN"",""HLOAPI"",62,0)"
^XMB(3.9,41,2,2586,0)=" ;  ERROR (optional, pass by reference) - returns an error message on failure"
^XMB(3.9,41,2,2587,0)="""RTN"",""HLOAPI"",63,0)"
^XMB(3.9,41,2,2588,0)=" ;"
^XMB(3.9,41,2,2589,0)="""RTN"",""HLOAPI"",64,0)"
^XMB(3.9,41,2,2590,0)=" ;"
^XMB(3.9,41,2,2591,0)="""RTN"",""HLOAPI"",65,0)"
^XMB(3.9,41,2,2592,0)=" N DATA,I,SYSTEM,SUCCESS"
^XMB(3.9,41,2,2593,0)="""RTN"",""HLOAPI"",66,0)"
^XMB(3.9,41,2,2594,0)=" S SUCCESS=0"
^XMB(3.9,41,2,2595,0)="""RTN"",""HLOAPI"",67,0)"
^XMB(3.9,41,2,2596,0)=" K ERROR,HLMSTATE"
^XMB(3.9,41,2,2597,0)="""RTN"",""HLOAPI"",68,0)"
^XMB(3.9,41,2,2598,0)=" D"
^XMB(3.9,41,2,2599,0)="""RTN"",""HLOAPI"",69,0)"
^XMB(3.9,41,2,2600,0)=" .I $L($G(PARMS(""COUNTRY""))),$L(PARMS(""COUNTRY""))'=3 S ERROR=""INVALID COUNTRY CODE"" Q"
^XMB(3.9,41,2,2601,0)="""RTN"",""HLOAPI"",70,0)"
^XMB(3.9,41,2,2602,0)=" .I $L($G(PARMS(""ENCODING CHARACTERS""))),$L(PARMS(""ENCODING CHARACTERS""))'=4 S ERROR=""INVALID ENCODING CHARACTERS"" Q"
^XMB(3.9,41,2,2603,0)="""RTN"",""HLOAPI"",71,0)"
^XMB(3.9,41,2,2604,0)=" .I $L($G(PARMS(""FIELD SEPARATOR""))),$L(PARMS(""FIELD SEPARATOR""))'=1 S ERROR=""INVALID FIELD SEPARATOR"" Q"
^XMB(3.9,41,2,2605,0)="""RTN"",""HLOAPI"",72,0)"
^XMB(3.9,41,2,2606,0)=" .I '$L($G(PARMS(""FIELD SEPARATOR""))) S PARMS(""FIELD SEPARATOR"")=""|"""
^XMB(3.9,41,2,2607,0)="""RTN"",""HLOAPI"",73,0)"
^XMB(3.9,41,2,2608,0)=" .I '$L($G(PARMS(""ENCODING CHARACTERS""))) S PARMS(""ENCODING CHARACTERS"")=""^~\&"""
^XMB(3.9,41,2,2609,0)="""RTN"",""HLOAPI"",74,0)"
^XMB(3.9,41,2,2610,0)=" .I $G(PARMS(""VERSION""))="""" S PARMS(""VERSION"")=""2.4"""
^XMB(3.9,41,2,2611,0)="""RTN"",""HLOAPI"",75,0)"
^XMB(3.9,41,2,2612,0)=" .I ($L(PARMS(""VERSION""))>20) S ERROR=""VERSION > 20 CHARACTERS"" Q"
^XMB(3.9,41,2,2613,0)="""RTN"",""HLOAPI"",76,0)"
^XMB(3.9,41,2,2614,0)=" .F I=""COUNTRY"",""FIELD SEPARATOR"",""ENCODING CHARACTERS"",""VERSION"" S HLMSTATE(""HDR"",I)=$G(PARMS(I))"
^XMB(3.9,41,2,2615,0)="""RTN"",""HLOAPI"",77,0)"
^XMB(3.9,41,2,2616,0)=" .S HLMSTATE(""IEN"")="""""
^XMB(3.9,41,2,2617,0)="""RTN"",""HLOAPI"",78,0)"
^XMB(3.9,41,2,2618,0)=" .S HLMSTATE(""BODY"")="""" ;msg not yet stored"
^XMB(3.9,41,2,2619,0)="""RTN"",""HLOAPI"",79,0)"
^XMB(3.9,41,2,2620,0)=" .S HLMSTATE(""BATCH"")=1"
^XMB(3.9,41,2,2621,0)="""RTN"",""HLOAPI"",80,0)"
^XMB(3.9,41,2,2622,0)=" .S HLMSTATE(""DIRECTION"")=""OUT"""
^XMB(3.9,41,2,2623,0)="""RTN"",""HLOAPI"",81,0)"
^XMB(3.9,41,2,2624,0)=" .S HLMSTATE(""BATCH"",""CURRENT MESSAGE"")=0 ;no messages in batch"
^XMB(3.9,41,2,2625,0)="""RTN"",""HLOAPI"",82,0)"
^XMB(3.9,41,2,2626,0)=" .S HLMSTATE(""CURRENT SEGMENT"")=0 ;no segments in cache"
^XMB(3.9,41,2,2627,0)="""RTN"",""HLOAPI"",83,0)"
^XMB(3.9,41,2,2628,0)=" .S HLMSTATE(""UNSTORED LINES"")=0 ;nothing in cache"
^XMB(3.9,41,2,2629,0)="""RTN"",""HLOAPI"",84,0)"
^XMB(3.9,41,2,2630,0)=" .S HLMSTATE(""LINE COUNT"")=0 ;no lines within message stored"
^XMB(3.9,41,2,2631,0)="""RTN"",""HLOAPI"",85,0)"
^XMB(3.9,41,2,2632,0)=" .D GETSYS(.HLMSTATE)"
^XMB(3.9,41,2,2633,0)="""RTN"",""HLOAPI"",86,0)"
^XMB(3.9,41,2,2634,0)=" .S SUCCESS=1"
^XMB(3.9,41,2,2635,0)="""RTN"",""HLOAPI"",87,0)"
^XMB(3.9,41,2,2636,0)=" Q SUCCESS"
^XMB(3.9,41,2,2637,0)="""RTN"",""HLOAPI"",88,0)"
^XMB(3.9,41,2,2638,0)=" ;"
^XMB(3.9,41,2,2639,0)="""RTN"",""HLOAPI"",89,0)"
^XMB(3.9,41,2,2640,0)="SET(SEG,VALUE,FIELD,COMP,SUBCOMP,REP) ;"
^XMB(3.9,41,2,2641,0)="""RTN"",""HLOAPI"",90,0)"
^XMB(3.9,41,2,2642,0)=" ;Sets a value to the array SEG(), used for building segments."
^XMB(3.9,41,2,2643,0)="""RTN"",""HLOAPI"",91,0)"
^XMB(3.9,41,2,2644,0)=" ;Input:"
^XMB(3.9,41,2,2645,0)="""RTN"",""HLOAPI"",92,0)"
^XMB(3.9,41,2,2646,0)=" ; SEG - (required, pass by reference) - this is the array where the segment is being built."
^XMB(3.9,41,2,2647,0)="""RTN"",""HLOAPI"",93,0)"
^XMB(3.9,41,2,2648,0)=" ; VALUE - the individual value to be set into the segment"
^XMB(3.9,41,2,2649,0)="""RTN"",""HLOAPI"",94,0)"
^XMB(3.9,41,2,2650,0)=" ; FIELD - the sequence # of the field (optional, defaults to 0)"
^XMB(3.9,41,2,2651,0)="""RTN"",""HLOAPI"",95,0)"
^XMB(3.9,41,2,2652,0)=" ;     *NOTE: FIELD=0 is used to denote the segment type."
^XMB(3.9,41,2,2653,0)="""RTN"",""HLOAPI"",96,0)"
^XMB(3.9,41,2,2654,0)=" ; COMP - the # of the component (optional, defaults to 1)"
^XMB(3.9,41,2,2655,0)="""RTN"",""HLOAPI"",97,0)"
^XMB(3.9,41,2,2656,0)=" ; SUBCOMP - the # of the subcomponent (optional, defaults to 1)"
^XMB(3.9,41,2,2657,0)="""RTN"",""HLOAPI"",98,0)"
^XMB(3.9,41,2,2658,0)=" ; REP - the occurrence# (optional, defaults to 1)  For a non-repeating field, the occurrence # need not be provided, because it would be 1."
^XMB(3.9,41,2,2659,0)="""RTN"",""HLOAPI"",99,0)"
^XMB(3.9,41,2,2660,0)=" ;Output: "
^XMB(3.9,41,2,2661,0)="""RTN"",""HLOAPI"",100,0)"
^XMB(3.9,41,2,2662,0)=" ;  SEG array"
^XMB(3.9,41,2,2663,0)="""RTN"",""HLOAPI"",101,0)"
^XMB(3.9,41,2,2664,0)=" ;"
^XMB(3.9,41,2,2665,0)="""RTN"",""HLOAPI"",102,0)"
^XMB(3.9,41,2,2666,0)=" ;  Example:"
^XMB(3.9,41,2,2667,0)="""RTN"",""HLOAPI"",103,0)"
^XMB(3.9,41,2,2668,0)=" ;    D SET(.SEG,""MSA"",0) creates an MSA segment "
^XMB(3.9,41,2,2669,0)="""RTN"",""HLOAPI"",104,0)"
^XMB(3.9,41,2,2670,0)=" ;    D SET(.SEG,""AE"",1) will place the value into the array position"
^XMB(3.9,41,2,2671,0)="""RTN"",""HLOAPI"",105,0)"
^XMB(3.9,41,2,2672,0)=" ;    reserved for the 1st field,1st occurence,1st comp,1st subcomp"
^XMB(3.9,41,2,2673,0)="""RTN"",""HLOAPI"",106,0)"
^XMB(3.9,41,2,2674,0)=" ;"
^XMB(3.9,41,2,2675,0)="""RTN"",""HLOAPI"",107,0)"
^XMB(3.9,41,2,2676,0)=" ;Implementation Note - This format is used for the segment array built by calls to SET: SEGMENT(<SEQ #>,<occurrence #>,<component #>,<subcomponent #>)=<subcomponent value> "
^XMB(3.9,41,2,2677,0)="""RTN"",""HLOAPI"",108,0)"
^XMB(3.9,41,2,2678,0)=" ;"
^XMB(3.9,41,2,2679,0)="""RTN"",""HLOAPI"",109,0)"
^XMB(3.9,41,2,2680,0)=" S:'$G(FIELD) FIELD=0"
^XMB(3.9,41,2,2681,0)="""RTN"",""HLOAPI"",110,0)"
^XMB(3.9,41,2,2682,0)=" S:'$G(COMP) COMP=1"
^XMB(3.9,41,2,2683,0)="""RTN"",""HLOAPI"",111,0)"
^XMB(3.9,41,2,2684,0)=" S:'$G(SUBCOMP) SUBCOMP=1"
^XMB(3.9,41,2,2685,0)="""RTN"",""HLOAPI"",112,0)"
^XMB(3.9,41,2,2686,0)=" S:'$G(REP) REP=1"
^XMB(3.9,41,2,2687,0)="""RTN"",""HLOAPI"",113,0)"
^XMB(3.9,41,2,2688,0)=" S SEG(FIELD,REP,COMP,SUBCOMP)=$G(VALUE)"
^XMB(3.9,41,2,2689,0)="""RTN"",""HLOAPI"",114,0)"
^XMB(3.9,41,2,2690,0)=" Q"
^XMB(3.9,41,2,2691,0)="""RTN"",""HLOAPI"",115,0)"
^XMB(3.9,41,2,2692,0)=" ;"
^XMB(3.9,41,2,2693,0)="""RTN"",""HLOAPI"",116,0)"
^XMB(3.9,41,2,2694,0)="ADDSEG(HLMSTATE,SEG,ERROR) ;Adds a segment to the message."
^XMB(3.9,41,2,2695,0)="""RTN"",""HLOAPI"",117,0)"
^XMB(3.9,41,2,2696,0)=" ;Input:"
^XMB(3.9,41,2,2697,0)="""RTN"",""HLOAPI"",118,0)"
^XMB(3.9,41,2,2698,0)=" ;  HLMSTATE() - (pass by reference, required) This array is used by the HL7 package to track the progress of the message.  The application MUST NOT touch it!"
^XMB(3.9,41,2,2699,0)="""RTN"",""HLOAPI"",119,0)"
^XMB(3.9,41,2,2700,0)=" ;  SEG() - (pass by reference, required) Contains the data.  It must be built by calls to SET prior to calling $$ADDSEG."
^XMB(3.9,41,2,2701,0)="""RTN"",""HLOAPI"",120,0)"
^XMB(3.9,41,2,2702,0)=" ;"
^XMB(3.9,41,2,2703,0)="""RTN"",""HLOAPI"",121,0)"
^XMB(3.9,41,2,2704,0)=" ;Note#1:  The message control segments, including the MSH and BHS segments, are added automatically."
^XMB(3.9,41,2,2705,0)="""RTN"",""HLOAPI"",122,0)"
^XMB(3.9,41,2,2706,0)=" ;Note#2:  The 0th field must be a 3 character segment type"
^XMB(3.9,41,2,2707,0)="""RTN"",""HLOAPI"",123,0)"
^XMB(3.9,41,2,2708,0)=" ;Note#3: ***SEG is killed upon successfully adding the segment***"
^XMB(3.9,41,2,2709,0)="""RTN"",""HLOAPI"",124,0)"
^XMB(3.9,41,2,2710,0)=" ;"
^XMB(3.9,41,2,2711,0)="""RTN"",""HLOAPI"",125,0)"
^XMB(3.9,41,2,2712,0)=" ;Output:"
^XMB(3.9,41,2,2713,0)="""RTN"",""HLOAPI"",126,0)"
^XMB(3.9,41,2,2714,0)=" ;   HLMSTATE() - (pass by reference, required) This array is used by the HL7 package to track the progress of the message."
^XMB(3.9,41,2,2715,0)="""RTN"",""HLOAPI"",127,0)"
^XMB(3.9,41,2,2716,0)=" ;  FUNCTION - returns 1 on success, 0 on failure"
^XMB(3.9,41,2,2717,0)="""RTN"",""HLOAPI"",128,0)"
^XMB(3.9,41,2,2718,0)=" ;  ERROR (optional, pass by reference) - returns an error message on failure"
^XMB(3.9,41,2,2719,0)="""RTN"",""HLOAPI"",129,0)"
^XMB(3.9,41,2,2720,0)=" ;"
^XMB(3.9,41,2,2721,0)="""RTN"",""HLOAPI"",130,0)"
^XMB(3.9,41,2,2722,0)=" ;"
^XMB(3.9,41,2,2723,0)="""RTN"",""HLOAPI"",131,0)"
^XMB(3.9,41,2,2724,0)=" K ERROR"
^XMB(3.9,41,2,2725,0)="""RTN"",""HLOAPI"",132,0)"
^XMB(3.9,41,2,2726,0)=" N TOARY,TYPE"
^XMB(3.9,41,2,2727,0)="""RTN"",""HLOAPI"",133,0)"
^XMB(3.9,41,2,2728,0)=" ;"
^XMB(3.9,41,2,2729,0)="""RTN"",""HLOAPI"",134,0)"
^XMB(3.9,41,2,2730,0)=" S TYPE=$G(SEG(0,1,1,1)) ;segment type"
^XMB(3.9,41,2,2731,0)="""RTN"",""HLOAPI"",135,0)"
^XMB(3.9,41,2,2732,0)=" ;"
^XMB(3.9,41,2,2733,0)="""RTN"",""HLOAPI"",136,0)"
^XMB(3.9,41,2,2734,0)=" ;if a 'generic' app ack MSA was built, add it as the first segment before this one"
^XMB(3.9,41,2,2735,0)="""RTN"",""HLOAPI"",137,0)"
^XMB(3.9,41,2,2736,0)=" I $D(HLMSTATE(""MSA"")) D"
^XMB(3.9,41,2,2737,0)="""RTN"",""HLOAPI"",138,0)"
^XMB(3.9,41,2,2738,0)=" .I TYPE'=""MSA"" S TOARY(1)=HLMSTATE(""MSA"") D ADDSEG^HLOMSG(.HLMSTATE,.TOARY) K TOARY"
^XMB(3.9,41,2,2739,0)="""RTN"",""HLOAPI"",139,0)"
^XMB(3.9,41,2,2740,0)=" .K HLMSTATE(""MSA"")"
^XMB(3.9,41,2,2741,0)="""RTN"",""HLOAPI"",140,0)"
^XMB(3.9,41,2,2742,0)=" ;"
^XMB(3.9,41,2,2743,0)="""RTN"",""HLOAPI"",141,0)"
^XMB(3.9,41,2,2744,0)=" I ($L(TYPE)'=3) S ERROR=""INVALID SEGMENT TYPE"" Q 0"
^XMB(3.9,41,2,2745,0)="""RTN"",""HLOAPI"",142,0)"
^XMB(3.9,41,2,2746,0)=" I (TYPE=""MSH"")!(TYPE=""BHS"")!(TYPE=""BTS"")!(TYPE=""FHS"")!(TYPE=""FTS"") S ERROR=""INVALID SEGMENT TYPE"" Q 0"
^XMB(3.9,41,2,2747,0)="""RTN"",""HLOAPI"",143,0)"
^XMB(3.9,41,2,2748,0)=" I HLMSTATE(""BATCH""),'HLMSTATE(""BATCH"",""CURRENT MESSAGE"") S ERROR=""NO MESSAGES IN BATCH, SO SEGMENTS NOT ALLOWED"" Q 0"
^XMB(3.9,41,2,2749,0)="""RTN"",""HLOAPI"",144,0)"
^XMB(3.9,41,2,2750,0)=" I $$BUILDSEG^HLOPBLD(.HLMSTATE,.SEG,.TOARY,.ERROR) D ADDSEG^HLOMSG(.HLMSTATE,.TOARY) K SEG Q 1"
^XMB(3.9,41,2,2751,0)="""RTN"",""HLOAPI"",145,0)"
^XMB(3.9,41,2,2752,0)=" Q 0"
^XMB(3.9,41,2,2753,0)="""RTN"",""HLOAPI"",146,0)"
^XMB(3.9,41,2,2754,0)=" ;"
^XMB(3.9,41,2,2755,0)="""RTN"",""HLOAPI"",147,0)"
^XMB(3.9,41,2,2756,0)="ADDMSG(HLMSTATE,PARMS,ERROR) ;"
^XMB(3.9,41,2,2757,0)="""RTN"",""HLOAPI"",148,0)"
^XMB(3.9,41,2,2758,0)=" ;Begins a new message in the batch."
^XMB(3.9,41,2,2759,0)="""RTN"",""HLOAPI"",149,0)"
^XMB(3.9,41,2,2760,0)=" ;Input:"
^XMB(3.9,41,2,2761,0)="""RTN"",""HLOAPI"",150,0)"
^XMB(3.9,41,2,2762,0)=" ;  HLMSTATE() - (pass by reference, required) This array is used by the HL7 package to track the progress of the message.  The application MUST NOT touch it!"
^XMB(3.9,41,2,2763,0)="""RTN"",""HLOAPI"",151,0)"
^XMB(3.9,41,2,2764,0)=" ;  PARMS( *pass by reference*"
^XMB(3.9,41,2,2765,0)="""RTN"",""HLOAPI"",152,0)"
^XMB(3.9,41,2,2766,0)=" ;    ""EVENT"")=3 character event type (required)"
^XMB(3.9,41,2,2767,0)="""RTN"",""HLOAPI"",153,0)"
^XMB(3.9,41,2,2768,0)=" ;    ""MESSAGE TYPE"")=3 character message type (required)"
^XMB(3.9,41,2,2769,0)="""RTN"",""HLOAPI"",154,0)"
^XMB(3.9,41,2,2770,0)=" ;"
^XMB(3.9,41,2,2771,0)="""RTN"",""HLOAPI"",155,0)"
^XMB(3.9,41,2,2772,0)=" ;Output:"
^XMB(3.9,41,2,2773,0)="""RTN"",""HLOAPI"",156,0)"
^XMB(3.9,41,2,2774,0)=" ;   FUNCTION - returns 1 on success, 0 on failure"
^XMB(3.9,41,2,2775,0)="""RTN"",""HLOAPI"",157,0)"
^XMB(3.9,41,2,2776,0)=" ;   HLMSTATE() - (pass by reference, required) This array is used by the HL7 package to track the progress of the message."
^XMB(3.9,41,2,2777,0)="""RTN"",""HLOAPI"",158,0)"
^XMB(3.9,41,2,2778,0)=" ;   PARMS - left defined when this function returns"
^XMB(3.9,41,2,2779,0)="""RTN"",""HLOAPI"",159,0)"
^XMB(3.9,41,2,2780,0)=" ;   ERROR (optional, pass by reference) - returns an error message on failure"
^XMB(3.9,41,2,2781,0)="""RTN"",""HLOAPI"",160,0)"
^XMB(3.9,41,2,2782,0)=" ;"
^XMB(3.9,41,2,2783,0)="""RTN"",""HLOAPI"",161,0)"
^XMB(3.9,41,2,2784,0)=" N I"
^XMB(3.9,41,2,2785,0)="""RTN"",""HLOAPI"",162,0)"
^XMB(3.9,41,2,2786,0)=" K ERROR"
^XMB(3.9,41,2,2787,0)="""RTN"",""HLOAPI"",163,0)"
^XMB(3.9,41,2,2788,0)=" ;if a 'generic' app ack MSA was built, add it as the first segment before this one"
^XMB(3.9,41,2,2789,0)="""RTN"",""HLOAPI"",164,0)"
^XMB(3.9,41,2,2790,0)=" I $D(HLMSTATE(""MSA"")) D"
^XMB(3.9,41,2,2791,0)="""RTN"",""HLOAPI"",165,0)"
^XMB(3.9,41,2,2792,0)=" .I TYPE'=""MSA"" N TOARY M TOARY=HLMSTATE(""MSA"") D ADDSEG^HLOMSG(.HLMSTATE,.TOARY) K TOARY"
^XMB(3.9,41,2,2793,0)="""RTN"",""HLOAPI"",166,0)"
^XMB(3.9,41,2,2794,0)=" .K HLMSTATE(""MSA"")"
^XMB(3.9,41,2,2795,0)="""RTN"",""HLOAPI"",167,0)"
^XMB(3.9,41,2,2796,0)=" I $L($G(PARMS(""EVENT"")))'=3 S ERROR=""EVENT TYPE INVALID"" Q 0"
^XMB(3.9,41,2,2797,0)="""RTN"",""HLOAPI"",168,0)"
^XMB(3.9,41,2,2798,0)=" I $L($G(PARMS(""MESSAGE TYPE"")))'=3 S ERROR=""MESSAGE TYPE INVALID"" Q 0"
^XMB(3.9,41,2,2799,0)="""RTN"",""HLOAPI"",169,0)"
^XMB(3.9,41,2,2800,0)=" D ADDMSG^HLOMSG(.HLMSTATE,.PARMS)"
^XMB(3.9,41,2,2801,0)="""RTN"",""HLOAPI"",170,0)"
^XMB(3.9,41,2,2802,0)=" Q 1"
^XMB(3.9,41,2,2803,0)="""RTN"",""HLOAPI"",171,0)"
^XMB(3.9,41,2,2804,0)=" ;"
^XMB(3.9,41,2,2805,0)="""RTN"",""HLOAPI"",172,0)"
^XMB(3.9,41,2,2806,0)="GETSYS(HLMSTATE) ;"
^XMB(3.9,41,2,2807,0)="""RTN"",""HLOAPI"",173,0)"
^XMB(3.9,41,2,2808,0)=" N SYS,SUB"
^XMB(3.9,41,2,2809,0)="""RTN"",""HLOAPI"",174,0)"
^XMB(3.9,41,2,2810,0)=" D SYSPARMS^HLOSITE(.SYS)"
^XMB(3.9,41,2,2811,0)="""RTN"",""HLOAPI"",175,0)"
^XMB(3.9,41,2,2812,0)=" F SUB=""DOMAIN"",""STATION"",""PROCESSING ID"",""MAXSTRING"",""ERROR PURGE"",""NORMAL PURGE"",""PORT"" S HLMSTATE(""SYSTEM"",SUB)=SYS(SUB)"
^XMB(3.9,41,2,2813,0)="""RTN"",""HLOAPI"",176,0)"
^XMB(3.9,41,2,2814,0)=" S HLMSTATE(""SYSTEM"",""BUFFER"")=SYS(""USER BUFFER"")"
^XMB(3.9,41,2,2815,0)="""RTN"",""HLOAPI"",177,0)"
^XMB(3.9,41,2,2816,0)=" Q"
^XMB(3.9,41,2,2817,0)="""RTN"",""HLOAPI"",178,0)"
^XMB(3.9,41,2,2818,0)=" ;"
^XMB(3.9,41,2,2819,0)="""RTN"",""HLOAPI"",179,0)"
^XMB(3.9,41,2,2820,0)="MOVEMSG(HLMSTATE,ARY) ;"
^XMB(3.9,41,2,2821,0)="""RTN"",""HLOAPI"",180,0)"
^XMB(3.9,41,2,2822,0)=" ;If a message was built in the 'old' way, and resides in an array, this  routine will move it into file 777 (HL7 Message Body)"
^XMB(3.9,41,2,2823,0)="""RTN"",""HLOAPI"",181,0)"
^XMB(3.9,41,2,2824,0)=" ;Input:"
^XMB(3.9,41,2,2825,0)="""RTN"",""HLOAPI"",182,0)"
^XMB(3.9,41,2,2826,0)=" ;  HLMSTATE (pass by reference) the array created by calling $$NEWMSG or $$NEWBATCH"
^XMB(3.9,41,2,2827,0)="""RTN"",""HLOAPI"",183,0)"
^XMB(3.9,41,2,2828,0)=" ;  ARY - is the name of the array, local or global, where the message was built, used to reference the array by indirection."
^XMB(3.9,41,2,2829,0)="""RTN"",""HLOAPI"",184,0)"
^XMB(3.9,41,2,2830,0)=" ;"
^XMB(3.9,41,2,2831,0)="""RTN"",""HLOAPI"",185,0)"
^XMB(3.9,41,2,2832,0)=" N I S I=0"
^XMB(3.9,41,2,2833,0)="""RTN"",""HLOAPI"",186,0)"
^XMB(3.9,41,2,2834,0)=" F  S I=$O(@ARY@(I)) Q:'I  D"
^XMB(3.9,41,2,2835,0)="""RTN"",""HLOAPI"",187,0)"
^XMB(3.9,41,2,2836,0)=" .N SEG,J,J2"
^XMB(3.9,41,2,2837,0)="""RTN"",""HLOAPI"",188,0)"
^XMB(3.9,41,2,2838,0)=" .S J=0,J2=1"
^XMB(3.9,41,2,2839,0)="""RTN"",""HLOAPI"",189,0)"
^XMB(3.9,41,2,2840,0)=" .S SEG(J2)=@ARY@(I)"
^XMB(3.9,41,2,2841,0)="""RTN"",""HLOAPI"",190,0)"
^XMB(3.9,41,2,2842,0)=" .F  S J=$O(@ARY@(I,J)) Q:'J  S J2=J2+1,SEG(J2)=@ARY@(I,J)"
^XMB(3.9,41,2,2843,0)="""RTN"",""HLOAPI"",191,0)"
^XMB(3.9,41,2,2844,0)=" .I 'HLMSTATE(""BATCH"") D"
^XMB(3.9,41,2,2845,0)="""RTN"",""HLOAPI"",192,0)"
^XMB(3.9,41,2,2846,0)=" ..D ADDSEG^HLOMSG(.HLMSTATE,.SEG)"
^XMB(3.9,41,2,2847,0)="""RTN"",""HLOAPI"",193,0)"
^XMB(3.9,41,2,2848,0)=" .E  D"
^XMB(3.9,41,2,2849,0)="""RTN"",""HLOAPI"",194,0)"
^XMB(3.9,41,2,2850,0)=" ..I $E(SEG(1),1,3)=""MSH"" D"
^XMB(3.9,41,2,2851,0)="""RTN"",""HLOAPI"",195,0)"
^XMB(3.9,41,2,2852,0)=" ...D SPLITHDR^HLOSRVR1(.SEG)"
^XMB(3.9,41,2,2853,0)="""RTN"",""HLOAPI"",196,0)"
^XMB(3.9,41,2,2854,0)=" ...D ADDMSG2^HLOMSG(.HLMSTATE,.SEG)"
^XMB(3.9,41,2,2855,0)="""RTN"",""HLOAPI"",197,0)"
^XMB(3.9,41,2,2856,0)=" ..E  D ADDSEG^HLOMSG(.HLMSTATE,.SEG)"
^XMB(3.9,41,2,2857,0)="""RTN"",""HLOAPI"",198,0)"
^XMB(3.9,41,2,2858,0)=" Q"
^XMB(3.9,41,2,2859,0)="""RTN"",""HLOAPI1"")"
^XMB(3.9,41,2,2860,0)="0^2^B47488160"
^XMB(3.9,41,2,2861,0)="""RTN"",""HLOAPI1"",1,0)"
^XMB(3.9,41,2,2862,0)="HLOAPI1 ;ALB/CJM-HL7 - Developer API's for sending & receiving messages(continued) ;02/04/2004"
^XMB(3.9,41,2,2863,0)="""RTN"",""HLOAPI1"",2,0)"
^XMB(3.9,41,2,2864,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995"
^XMB(3.9,41,2,2865,0)="""RTN"",""HLOAPI1"",3,0)"
^XMB(3.9,41,2,2866,0)=" ;"
^XMB(3.9,41,2,2867,0)="""RTN"",""HLOAPI1"",4,0)"
^XMB(3.9,41,2,2868,0)="SENDONE(HLMSTATE,PARMS,WHOTO,ERROR) ;"
^XMB(3.9,41,2,2869,0)="""RTN"",""HLOAPI1"",5,0)"
^XMB(3.9,41,2,2870,0)=" ;Sends the message to a single receiving application."
^XMB(3.9,41,2,2871,0)="""RTN"",""HLOAPI1"",6,0)"
^XMB(3.9,41,2,2872,0)=" ;"
^XMB(3.9,41,2,2873,0)="""RTN"",""HLOAPI1"",7,0)"
^XMB(3.9,41,2,2874,0)=" ;Input:"
^XMB(3.9,41,2,2875,0)="""RTN"",""HLOAPI1"",8,0)"
^XMB(3.9,41,2,2876,0)=" ;HLMSTATE() - (pass by reference, required) This array is used by the HL7 package to track the progress of the message.  The application MUST NOT touch it"
^XMB(3.9,41,2,2877,0)="""RTN"",""HLOAPI1"",9,0)"
^XMB(3.9,41,2,2878,0)=" ;PARMS( *pass by reference*"
^XMB(3.9,41,2,2879,0)="""RTN"",""HLOAPI1"",10,0)"
^XMB(3.9,41,2,2880,0)=" ;  ""APP ACK RESPONSE"")=<tag^routine> to call when the app ack is received (optional)"
^XMB(3.9,41,2,2881,0)="""RTN"",""HLOAPI1"",11,0)"
^XMB(3.9,41,2,2882,0)=" ;    (NOTE: For batch messages, HLO best supports returning application"
^XMB(3.9,41,2,2883,0)="""RTN"",""HLOAPI1"",12,0)"
^XMB(3.9,41,2,2884,0)=" ;     acknowledgments via a batch response.  However, non-VistA systems"
^XMB(3.9,41,2,2885,0)="""RTN"",""HLOAPI1"",13,0)"
^XMB(3.9,41,2,2886,0)=" ;     may return individual messages as application acknowledgments to"
^XMB(3.9,41,2,2887,0)="""RTN"",""HLOAPI1"",14,0)"
^XMB(3.9,41,2,2888,0)=" ;     messages within the original batch message, so for applications"
^XMB(3.9,41,2,2889,0)="""RTN"",""HLOAPI1"",15,0)"
^XMB(3.9,41,2,2890,0)=" ;     sending batch messages might best code the ""APP ACK RESPONSE"""
^XMB(3.9,41,2,2891,0)="""RTN"",""HLOAPI1"",16,0)"
^XMB(3.9,41,2,2892,0)=" ;     routine to first check whether the response message is a batch."
^XMB(3.9,41,2,2893,0)="""RTN"",""HLOAPI1"",17,0)"
^XMB(3.9,41,2,2894,0)=" ; "
^XMB(3.9,41,2,2895,0)="""RTN"",""HLOAPI1"",18,0)"
^XMB(3.9,41,2,2896,0)=" ;  ""ACCEPT ACK RESPONSE"")=<tag^routine> to call when the commit ack is received (optional)"
^XMB(3.9,41,2,2897,0)="""RTN"",""HLOAPI1"",19,0)"
^XMB(3.9,41,2,2898,0)=" ;  ""ACCEPT ACK TYPE"") = <AL,NE> (optional, defaults to AL)"
^XMB(3.9,41,2,2899,0)="""RTN"",""HLOAPI1"",20,0)"
^XMB(3.9,41,2,2900,0)=" ;  ""APP ACK TYPE"") = <AL,NE> (optional, defaults to NE)"
^XMB(3.9,41,2,2901,0)="""RTN"",""HLOAPI1"",21,0)"
^XMB(3.9,41,2,2902,0)=" ;  ""FAILURE RESPONSE"" - <tag>^<routine> (optional) The sending application routine to execute when the transmission of the message fails, i.e., the message can not be sent or no commit ack is received."
^XMB(3.9,41,2,2903,0)="""RTN"",""HLOAPI1"",22,0)"
^XMB(3.9,41,2,2904,0)=" ;  ""QUEUE"" - (optional) An application can name its own private queue - just a string up to 20 characters, it should be namespaced."
^XMB(3.9,41,2,2905,0)="""RTN"",""HLOAPI1"",23,0)"
^XMB(3.9,41,2,2906,0)=" ;  ""SECURITY"")=security information to include in the header segment, SEQ 8 (optional)"
^XMB(3.9,41,2,2907,0)="""RTN"",""HLOAPI1"",24,0)"
^XMB(3.9,41,2,2908,0)=" ;  ""SENDING APPLICATION"")=name of sending app (required, 60 maximum length)"
^XMB(3.9,41,2,2909,0)="""RTN"",""HLOAPI1"",25,0)"
^XMB(3.9,41,2,2910,0)=" ;"
^XMB(3.9,41,2,2911,0)="""RTN"",""HLOAPI1"",26,0)"
^XMB(3.9,41,2,2912,0)=" ;  WHOTO (required,pass by reference) an array specifying a single recipient. These subscripts are allowed:"
^XMB(3.9,41,2,2913,0)="""RTN"",""HLOAPI1"",27,0)"
^XMB(3.9,41,2,2914,0)=" ;"
^XMB(3.9,41,2,2915,0)="""RTN"",""HLOAPI1"",28,0)"
^XMB(3.9,41,2,2916,0)=" ;    ""RECEIVING APPLICATION"" - (string, 60 char max, required)"
^XMB(3.9,41,2,2917,0)="""RTN"",""HLOAPI1"",29,0)"
^XMB(3.9,41,2,2918,0)=" ;"
^XMB(3.9,41,2,2919,0)="""RTN"",""HLOAPI1"",30,0)"
^XMB(3.9,41,2,2920,0)=" ;  EXACTLY ONE of these parameters must be provided to identify the Receiving Facility:"
^XMB(3.9,41,2,2921,0)="""RTN"",""HLOAPI1"",31,0)"
^XMB(3.9,41,2,2922,0)=" ;"
^XMB(3.9,41,2,2923,0)="""RTN"",""HLOAPI1"",32,0)"
^XMB(3.9,41,2,2924,0)=" ;   ""FACILITY LINK IEN"" - ien of the logical link "
^XMB(3.9,41,2,2925,0)="""RTN"",""HLOAPI1"",33,0)"
^XMB(3.9,41,2,2926,0)=" ;   ""FACILITY LINK NAME"" - name of the logical link "
^XMB(3.9,41,2,2927,0)="""RTN"",""HLOAPI1"",34,0)"
^XMB(3.9,41,2,2928,0)=" ;   ""INSTITUTION IEN"" - ptr to the INSTITUTION file"
^XMB(3.9,41,2,2929,0)="""RTN"",""HLOAPI1"",35,0)"
^XMB(3.9,41,2,2930,0)=" ;   ""STATION NUMBER"" -  station # with suffix"
^XMB(3.9,41,2,2931,0)="""RTN"",""HLOAPI1"",36,0)"
^XMB(3.9,41,2,2932,0)=" ;"
^XMB(3.9,41,2,2933,0)="""RTN"",""HLOAPI1"",37,0)"
^XMB(3.9,41,2,2934,0)=" ;  EXACTLY ONE of these MAY be provided - optionally - to identify the interface engine to route the message through:"
^XMB(3.9,41,2,2935,0)="""RTN"",""HLOAPI1"",38,0)"
^XMB(3.9,41,2,2936,0)=" ;"
^XMB(3.9,41,2,2937,0)="""RTN"",""HLOAPI1"",39,0)"
^XMB(3.9,41,2,2938,0)=" ;   ""IE LINK IEN"" -  ptr to a logical link for the interface engine "
^XMB(3.9,41,2,2939,0)="""RTN"",""HLOAPI1"",40,0)"
^XMB(3.9,41,2,2940,0)=" ;   ""IE LINK NAME"" - name of the logical link for the interface engine"
^XMB(3.9,41,2,2941,0)="""RTN"",""HLOAPI1"",41,0)"
^XMB(3.9,41,2,2942,0)=" ;"
^XMB(3.9,41,2,2943,0)="""RTN"",""HLOAPI1"",42,0)"
^XMB(3.9,41,2,2944,0)=" ;Output:"
^XMB(3.9,41,2,2945,0)="""RTN"",""HLOAPI1"",43,0)"
^XMB(3.9,41,2,2946,0)=" ;  Function returns the ien of the message in file 778 on success, 0 on failure"
^XMB(3.9,41,2,2947,0)="""RTN"",""HLOAPI1"",44,0)"
^XMB(3.9,41,2,2948,0)=" ;   HLMSTATE() - (pass by reference, required) This array is used by the HL7 package to track the progress of the message.  The application MUST NOT touch it!"
^XMB(3.9,41,2,2949,0)="""RTN"",""HLOAPI1"",45,0)"
^XMB(3.9,41,2,2950,0)=" ;   ERROR (pass by reference, optional) - on failure, will contain an error message"
^XMB(3.9,41,2,2951,0)="""RTN"",""HLOAPI1"",46,0)"
^XMB(3.9,41,2,2952,0)=" ;   PARMS - left undefined when the function returns"
^XMB(3.9,41,2,2953,0)="""RTN"",""HLOAPI1"",47,0)"
^XMB(3.9,41,2,2954,0)=" ;   WHOTO - left undefined when the function returns"
^XMB(3.9,41,2,2955,0)="""RTN"",""HLOAPI1"",48,0)"
^XMB(3.9,41,2,2956,0)=" ;"
^XMB(3.9,41,2,2957,0)="""RTN"",""HLOAPI1"",49,0)"
^XMB(3.9,41,2,2958,0)=" ;"
^XMB(3.9,41,2,2959,0)="""RTN"",""HLOAPI1"",50,0)"
^XMB(3.9,41,2,2960,0)=" N SUCCESS S SUCCESS=0"
^XMB(3.9,41,2,2961,0)="""RTN"",""HLOAPI1"",51,0)"
^XMB(3.9,41,2,2962,0)=" D"
^XMB(3.9,41,2,2963,0)="""RTN"",""HLOAPI1"",52,0)"
^XMB(3.9,41,2,2964,0)=" .I '$G(HLMSTATE(""BODY"")),'$G(HLMSTATE(""UNSTORED LINES"")) S ERROR=""MESSAGE NOT YET CREATED"" Q"
^XMB(3.9,41,2,2965,0)="""RTN"",""HLOAPI1"",53,0)"
^XMB(3.9,41,2,2966,0)=" .;"
^XMB(3.9,41,2,2967,0)="""RTN"",""HLOAPI1"",54,0)"
^XMB(3.9,41,2,2968,0)=" .I $$CHKPARMS^HLOAPI2(.HLMSTATE,.PARMS,.ERROR),$$CHKWHO(.HLMSTATE,.WHOTO,.ERROR) D"
^XMB(3.9,41,2,2969,0)="""RTN"",""HLOAPI1"",55,0)"
^XMB(3.9,41,2,2970,0)=" ..I $$SEND(.HLMSTATE,.ERROR) S SUCCESS=1"
^XMB(3.9,41,2,2971,0)="""RTN"",""HLOAPI1"",56,0)"
^XMB(3.9,41,2,2972,0)=" .E  D DONTSEND(.HLMSTATE,$G(ERROR))"
^XMB(3.9,41,2,2973,0)="""RTN"",""HLOAPI1"",57,0)"
^XMB(3.9,41,2,2974,0)=" K PARMS,WHOTO"
^XMB(3.9,41,2,2975,0)="""RTN"",""HLOAPI1"",58,0)"
^XMB(3.9,41,2,2976,0)=" Q $S(SUCCESS:HLMSTATE(""IEN""),1:0)"
^XMB(3.9,41,2,2977,0)="""RTN"",""HLOAPI1"",59,0)"
^XMB(3.9,41,2,2978,0)=" ;"
^XMB(3.9,41,2,2979,0)="""RTN"",""HLOAPI1"",60,0)"
^XMB(3.9,41,2,2980,0)="SENDMANY(HLMSTATE,PARMS,WHOTO) ;"
^XMB(3.9,41,2,2981,0)="""RTN"",""HLOAPI1"",61,0)"
^XMB(3.9,41,2,2982,0)=" ;Sends the message to a list of receiving applications"
^XMB(3.9,41,2,2983,0)="""RTN"",""HLOAPI1"",62,0)"
^XMB(3.9,41,2,2984,0)=" ;"
^XMB(3.9,41,2,2985,0)="""RTN"",""HLOAPI1"",63,0)"
^XMB(3.9,41,2,2986,0)=" ;Input: Same as for $$SENDONE, except WHOTO is a list."
^XMB(3.9,41,2,2987,0)="""RTN"",""HLOAPI1"",64,0)"
^XMB(3.9,41,2,2988,0)=" ;  WHOTO (pass by reference)"
^XMB(3.9,41,2,2989,0)="""RTN"",""HLOAPI1"",65,0)"
^XMB(3.9,41,2,2990,0)=" ;    Specifies a list of recipients.  Each recipient should be on the"
^XMB(3.9,41,2,2991,0)="""RTN"",""HLOAPI1"",66,0)"
^XMB(3.9,41,2,2992,0)=" ;    list as WHOTO(i), where i=1,2,3,4, etc. for as many messages as to"
^XMB(3.9,41,2,2993,0)="""RTN"",""HLOAPI1"",67,0)"
^XMB(3.9,41,2,2994,0)=" ;    send.  At each subscript WHOTO(i), the same lower level subscripts"
^XMB(3.9,41,2,2995,0)="""RTN"",""HLOAPI1"",68,0)"
^XMB(3.9,41,2,2996,0)=" ;    may be defined as in the $$SENDONE API.  For example:"
^XMB(3.9,41,2,2997,0)="""RTN"",""HLOAPI1"",69,0)"
^XMB(3.9,41,2,2998,0)=" ;"
^XMB(3.9,41,2,2999,0)="""RTN"",""HLOAPI1"",70,0)"
^XMB(3.9,41,2,3000,0)=" ;      WHOTO(1,""LINK NAME"")=""VAALB"""
^XMB(3.9,41,2,3001,0)="""RTN"",""HLOAPI1"",71,0)"
^XMB(3.9,41,2,3002,0)=" ;      WHOTO(1,""RECEIVING APPLICATION"")=""MPI"""
^XMB(3.9,41,2,3003,0)="""RTN"",""HLOAPI1"",72,0)"
^XMB(3.9,41,2,3004,0)=" ;      WHOTO(2,""STATION NUMBER"")=500"
^XMB(3.9,41,2,3005,0)="""RTN"",""HLOAPI1"",73,0)"
^XMB(3.9,41,2,3006,0)=" ;      WHOTO(2,""RECEIVING APPLICATION"")=""MPI"""
^XMB(3.9,41,2,3007,0)="""RTN"",""HLOAPI1"",74,0)"
^XMB(3.9,41,2,3008,0)=" ;"
^XMB(3.9,41,2,3009,0)="""RTN"",""HLOAPI1"",75,0)"
^XMB(3.9,41,2,3010,0)=" ;"
^XMB(3.9,41,2,3011,0)="""RTN"",""HLOAPI1"",76,0)"
^XMB(3.9,41,2,3012,0)=" ;Output:"
^XMB(3.9,41,2,3013,0)="""RTN"",""HLOAPI1"",77,0)"
^XMB(3.9,41,2,3014,0)=" ;  Function returns 1 if a message is queued to be sent to each intended recipient, 0 otherwise"
^XMB(3.9,41,2,3015,0)="""RTN"",""HLOAPI1"",78,0)"
^XMB(3.9,41,2,3016,0)=" ;  PARMS - left undefined when the function returns"
^XMB(3.9,41,2,3017,0)="""RTN"",""HLOAPI1"",79,0)"
^XMB(3.9,41,2,3018,0)=" ;  WHOTO (pass by reference) returns the status of each message to be sent in the format:"
^XMB(3.9,41,2,3019,0)="""RTN"",""HLOAPI1"",80,0)"
^XMB(3.9,41,2,3020,0)=" ;    (<i>,""QUEUED"")= <1 if queued to be sent, 0 otherwise)"
^XMB(3.9,41,2,3021,0)="""RTN"",""HLOAPI1"",81,0)"
^XMB(3.9,41,2,3022,0)=" ;   (<i>,""IEN"")=<ien, file 778>"
^XMB(3.9,41,2,3023,0)="""RTN"",""HLOAPI1"",82,0)"
^XMB(3.9,41,2,3024,0)=" ;   (<i>,""ERROR"")= error message if an error was encountered (status=0), not defined otherwise"
^XMB(3.9,41,2,3025,0)="""RTN"",""HLOAPI1"",83,0)"
^XMB(3.9,41,2,3026,0)=" ;"
^XMB(3.9,41,2,3027,0)="""RTN"",""HLOAPI1"",84,0)"
^XMB(3.9,41,2,3028,0)=" ;"
^XMB(3.9,41,2,3029,0)="""RTN"",""HLOAPI1"",85,0)"
^XMB(3.9,41,2,3030,0)=" N ERROR,RETURN,WHO,STATE,I"
^XMB(3.9,41,2,3031,0)="""RTN"",""HLOAPI1"",86,0)"
^XMB(3.9,41,2,3032,0)=" S RETURN=1"
^XMB(3.9,41,2,3033,0)="""RTN"",""HLOAPI1"",87,0)"
^XMB(3.9,41,2,3034,0)=" I '$G(HLMSTATE(""BODY"")),'$G(HLMSTATE(""UNSTORED LINES"")) D  K PARMS Q 0"
^XMB(3.9,41,2,3035,0)="""RTN"",""HLOAPI1"",88,0)"
^XMB(3.9,41,2,3036,0)=" .S ERROR=""MESSAGE NOT YET CREATED"""
^XMB(3.9,41,2,3037,0)="""RTN"",""HLOAPI1"",89,0)"
^XMB(3.9,41,2,3038,0)=" .S I=0 F  S I=$O(WHOTO(I)) Q:'I  S WHOTO(I,""QUEUED"")=0,WHOTO(I,""IEN"")=0,WHOTO(I,""ERROR"")=ERROR"
^XMB(3.9,41,2,3039,0)="""RTN"",""HLOAPI1"",90,0)"
^XMB(3.9,41,2,3040,0)=" ;"
^XMB(3.9,41,2,3041,0)="""RTN"",""HLOAPI1"",91,0)"
^XMB(3.9,41,2,3042,0)=" I '$$CHKPARMS^HLOAPI2(.HLMSTATE,.PARMS,.ERROR) D  K PARMS Q 0"
^XMB(3.9,41,2,3043,0)="""RTN"",""HLOAPI1"",92,0)"
^XMB(3.9,41,2,3044,0)=" .S I=0 F  S I=$O(WHOTO(I)) Q:'I  D"
^XMB(3.9,41,2,3045,0)="""RTN"",""HLOAPI1"",93,0)"
^XMB(3.9,41,2,3046,0)=" ..K WHO M WHO=WHOTO(I)"
^XMB(3.9,41,2,3047,0)="""RTN"",""HLOAPI1"",94,0)"
^XMB(3.9,41,2,3048,0)=" ..K STATE M STATE=HLMSTATE S STATE(""IEN"")="""""
^XMB(3.9,41,2,3049,0)="""RTN"",""HLOAPI1"",95,0)"
^XMB(3.9,41,2,3050,0)=" ..S WHOTO(I,""QUEUED"")=0"
^XMB(3.9,41,2,3051,0)="""RTN"",""HLOAPI1"",96,0)"
^XMB(3.9,41,2,3052,0)=" ..D DONTSEND(.STATE,$G(ERROR))"
^XMB(3.9,41,2,3053,0)="""RTN"",""HLOAPI1"",97,0)"
^XMB(3.9,41,2,3054,0)=" ..S WHOTO(I,""IEN"")=$G(STATE(""IEN""))"
^XMB(3.9,41,2,3055,0)="""RTN"",""HLOAPI1"",98,0)"
^XMB(3.9,41,2,3056,0)=" ..S WHOTO(I,""ERROR"")=ERROR"
^XMB(3.9,41,2,3057,0)="""RTN"",""HLOAPI1"",99,0)"
^XMB(3.9,41,2,3058,0)=" ;"
^XMB(3.9,41,2,3059,0)="""RTN"",""HLOAPI1"",100,0)"
^XMB(3.9,41,2,3060,0)=" S I=0 F  S I=$O(WHOTO(I)) Q:'I  D"
^XMB(3.9,41,2,3061,0)="""RTN"",""HLOAPI1"",101,0)"
^XMB(3.9,41,2,3062,0)=" .K WHO M WHO=WHOTO(I)"
^XMB(3.9,41,2,3063,0)="""RTN"",""HLOAPI1"",102,0)"
^XMB(3.9,41,2,3064,0)=" .K STATE M STATE=HLMSTATE S STATE(""IEN"")="""""
^XMB(3.9,41,2,3065,0)="""RTN"",""HLOAPI1"",103,0)"
^XMB(3.9,41,2,3066,0)=" .S ERROR="""""
^XMB(3.9,41,2,3067,0)="""RTN"",""HLOAPI1"",104,0)"
^XMB(3.9,41,2,3068,0)=" .I $$CHKWHO(.STATE,.WHO,.ERROR) D"
^XMB(3.9,41,2,3069,0)="""RTN"",""HLOAPI1"",105,0)"
^XMB(3.9,41,2,3070,0)=" ..I $$SEND(.STATE,.ERROR) D"
^XMB(3.9,41,2,3071,0)="""RTN"",""HLOAPI1"",106,0)"
^XMB(3.9,41,2,3072,0)=" ...S WHOTO(I,""QUEUED"")=1"
^XMB(3.9,41,2,3073,0)="""RTN"",""HLOAPI1"",107,0)"
^XMB(3.9,41,2,3074,0)=" ...S WHOTO(I,""IEN"")=STATE(""IEN"")"
^XMB(3.9,41,2,3075,0)="""RTN"",""HLOAPI1"",108,0)"
^XMB(3.9,41,2,3076,0)=" ...S WHOTO(I,""ERROR"")="""""
^XMB(3.9,41,2,3077,0)="""RTN"",""HLOAPI1"",109,0)"
^XMB(3.9,41,2,3078,0)=" ..E  D"
^XMB(3.9,41,2,3079,0)="""RTN"",""HLOAPI1"",110,0)"
^XMB(3.9,41,2,3080,0)=" ...S WHOTO(I,""QUEUED"")=0"
^XMB(3.9,41,2,3081,0)="""RTN"",""HLOAPI1"",111,0)"
^XMB(3.9,41,2,3082,0)=" ...S WHOTO(I,""IEN"")=$G(STATE(""IEN""))"
^XMB(3.9,41,2,3083,0)="""RTN"",""HLOAPI1"",112,0)"
^XMB(3.9,41,2,3084,0)=" ...S WHOTO(I,""ERROR"")=$G(ERROR)"
^XMB(3.9,41,2,3085,0)="""RTN"",""HLOAPI1"",113,0)"
^XMB(3.9,41,2,3086,0)=" ...S RETURN=0"
^XMB(3.9,41,2,3087,0)="""RTN"",""HLOAPI1"",114,0)"
^XMB(3.9,41,2,3088,0)=" .E  D  ;who not adequately determined"
^XMB(3.9,41,2,3089,0)="""RTN"",""HLOAPI1"",115,0)"
^XMB(3.9,41,2,3090,0)=" ..S WHOTO(I,""QUEUED"")=0,RETURN=0"
^XMB(3.9,41,2,3091,0)="""RTN"",""HLOAPI1"",116,0)"
^XMB(3.9,41,2,3092,0)=" ..D DONTSEND(.STATE,$G(ERROR))"
^XMB(3.9,41,2,3093,0)="""RTN"",""HLOAPI1"",117,0)"
^XMB(3.9,41,2,3094,0)=" ..S WHOTO(I,""IEN"")=$G(STATE(""IEN"")),WHOTO(I,""ERROR"")=$G(ERROR)"
^XMB(3.9,41,2,3095,0)="""RTN"",""HLOAPI1"",118,0)"
^XMB(3.9,41,2,3096,0)=" K PARMS"
^XMB(3.9,41,2,3097,0)="""RTN"",""HLOAPI1"",119,0)"
^XMB(3.9,41,2,3098,0)=" Q RETURN"
^XMB(3.9,41,2,3099,0)="""RTN"",""HLOAPI1"",120,0)"
^XMB(3.9,41,2,3100,0)=" ;"
^XMB(3.9,41,2,3101,0)="""RTN"",""HLOAPI1"",121,0)"
^XMB(3.9,41,2,3102,0)="SENDSUB(HLMSTATE,PARMS,MESSAGES) ;"
^XMB(3.9,41,2,3103,0)="""RTN"",""HLOAPI1"",122,0)"
^XMB(3.9,41,2,3104,0)=" ;Sends the message to a list of receiving applications based on the HL7 Subscription Registry"
^XMB(3.9,41,2,3105,0)="""RTN"",""HLOAPI1"",123,0)"
^XMB(3.9,41,2,3106,0)=" ;"
^XMB(3.9,41,2,3107,0)="""RTN"",""HLOAPI1"",124,0)"
^XMB(3.9,41,2,3108,0)=" ;Input:"
^XMB(3.9,41,2,3109,0)="""RTN"",""HLOAPI1"",125,0)"
^XMB(3.9,41,2,3110,0)=" ;  HLMSTATE (pass by reference, required) same as $$SENDMANY"
^XMB(3.9,41,2,3111,0)="""RTN"",""HLOAPI1"",126,0)"
^XMB(3.9,41,2,3112,0)=" ;  PARMS (pass by reference, required) same as $$SENDMANY, with one additional subscript:"
^XMB(3.9,41,2,3113,0)="""RTN"",""HLOAPI1"",127,0)"
^XMB(3.9,41,2,3114,0)=" ;    ""SUBSCRIPTION IEN"" - the ien of an entry in the HL7 Subscription Registry, defining the intended recipients of this message"
^XMB(3.9,41,2,3115,0)="""RTN"",""HLOAPI1"",128,0)"
^XMB(3.9,41,2,3116,0)=" ;"
^XMB(3.9,41,2,3117,0)="""RTN"",""HLOAPI1"",129,0)"
^XMB(3.9,41,2,3118,0)=" ;Output:"
^XMB(3.9,41,2,3119,0)="""RTN"",""HLOAPI1"",130,0)"
^XMB(3.9,41,2,3120,0)=" ;  Function returns 1 if a message is queued to be sent to each intended recipient, 0 otherwise"
^XMB(3.9,41,2,3121,0)="""RTN"",""HLOAPI1"",131,0)"
^XMB(3.9,41,2,3122,0)=" ;  PARMS - left undefined when the function returns"
^XMB(3.9,41,2,3123,0)="""RTN"",""HLOAPI1"",132,0)"
^XMB(3.9,41,2,3124,0)=" ;  MESSAGES (pass by reference) returns the status of each message to be sent in this format, where subien is the ien of the recipient in the RECIPEINTS subfile of the HL7 Subscription Registry"
^XMB(3.9,41,2,3125,0)="""RTN"",""HLOAPI1"",133,0)"
^XMB(3.9,41,2,3126,0)=" ;   (<subien>,""QUEUED"")= <1 if queued to be sent, 0 otherwise)"
^XMB(3.9,41,2,3127,0)="""RTN"",""HLOAPI1"",134,0)"
^XMB(3.9,41,2,3128,0)=" ;   (<subien>,""IEN"")=<ien, file 778>"
^XMB(3.9,41,2,3129,0)="""RTN"",""HLOAPI1"",135,0)"
^XMB(3.9,41,2,3130,0)=" ;   (<subien>,""ERROR"")= error message if an error was encountered (status=0), not defined otherwise"
^XMB(3.9,41,2,3131,0)="""RTN"",""HLOAPI1"",136,0)"
^XMB(3.9,41,2,3132,0)=" ;"
^XMB(3.9,41,2,3133,0)="""RTN"",""HLOAPI1"",137,0)"
^XMB(3.9,41,2,3134,0)=" ;"
^XMB(3.9,41,2,3135,0)="""RTN"",""HLOAPI1"",138,0)"
^XMB(3.9,41,2,3136,0)=" K MESSAGES"
^XMB(3.9,41,2,3137,0)="""RTN"",""HLOAPI1"",139,0)"
^XMB(3.9,41,2,3138,0)=" N ERROR,RETURN,STATE,SUBIEN,WHO"
^XMB(3.9,41,2,3139,0)="""RTN"",""HLOAPI1"",140,0)"
^XMB(3.9,41,2,3140,0)=" ;"
^XMB(3.9,41,2,3141,0)="""RTN"",""HLOAPI1"",141,0)"
^XMB(3.9,41,2,3142,0)=" S RETURN=1"
^XMB(3.9,41,2,3143,0)="""RTN"",""HLOAPI1"",142,0)"
^XMB(3.9,41,2,3144,0)=" ;"
^XMB(3.9,41,2,3145,0)="""RTN"",""HLOAPI1"",143,0)"
^XMB(3.9,41,2,3146,0)=" ;"
^XMB(3.9,41,2,3147,0)="""RTN"",""HLOAPI1"",144,0)"
^XMB(3.9,41,2,3148,0)=" I '$G(HLMSTATE(""BODY"")),'$G(HLMSTATE(""UNSTORED LINES"")) S ERROR=""MESSAGE NOT YET CREATED"" K PARMS Q 0"
^XMB(3.9,41,2,3149,0)="""RTN"",""HLOAPI1"",145,0)"
^XMB(3.9,41,2,3150,0)=" I '$G(PARMS(""SUBSCRIPTION IEN"")) S ERROR=""SUBSCRIPTION REGISTRY IEN NOT PROVIDED"" K PARMS Q 0"
^XMB(3.9,41,2,3151,0)="""RTN"",""HLOAPI1"",146,0)"
^XMB(3.9,41,2,3152,0)=" ;"
^XMB(3.9,41,2,3153,0)="""RTN"",""HLOAPI1"",147,0)"
^XMB(3.9,41,2,3154,0)=" I '$$CHKPARMS^HLOAPI2(.HLMSTATE,.PARMS,.ERROR) D  K PARMS Q 0"
^XMB(3.9,41,2,3155,0)="""RTN"",""HLOAPI1"",148,0)"
^XMB(3.9,41,2,3156,0)=" .S SUBIEN=0 F  S SUBIEN=$$NEXT^HLOASUB(PARMS(""SUBSCRIPTION IEN""),.WHO) Q:'SUBIEN  D"
^XMB(3.9,41,2,3157,0)="""RTN"",""HLOAPI1"",149,0)"
^XMB(3.9,41,2,3158,0)=" ..N SARY,HARY"
^XMB(3.9,41,2,3159,0)="""RTN"",""HLOAPI1"",150,0)"
^XMB(3.9,41,2,3160,0)=" ..S HARY=""STATE(""""HDR"""")"""
^XMB(3.9,41,2,3161,0)="""RTN"",""HLOAPI1"",151,0)"
^XMB(3.9,41,2,3162,0)=" ..S SARY=""STATE(""""STATUS"""")"""
^XMB(3.9,41,2,3163,0)="""RTN"",""HLOAPI1"",152,0)"
^XMB(3.9,41,2,3164,0)=" ..K STATE M STATE=HLMSTATE S STATE(""IEN"")="""""
^XMB(3.9,41,2,3165,0)="""RTN"",""HLOAPI1"",153,0)"
^XMB(3.9,41,2,3166,0)=" ..;move parameters into HLMSTATE"
^XMB(3.9,41,2,3167,0)="""RTN"",""HLOAPI1"",154,0)"
^XMB(3.9,41,2,3168,0)=" ..S @SARY@(""LINK IEN"")=WHO(""LINK IEN"")"
^XMB(3.9,41,2,3169,0)="""RTN"",""HLOAPI1"",155,0)"
^XMB(3.9,41,2,3170,0)=" ..S @SARY@(""LINK NAME"")=WHO(""LINK NAME"")"
^XMB(3.9,41,2,3171,0)="""RTN"",""HLOAPI1"",156,0)"
^XMB(3.9,41,2,3172,0)=" ..S @HARY@(""RECEIVING APPLICATION"")=WHO(""RECEIVING APPLICATION"")"
^XMB(3.9,41,2,3173,0)="""RTN"",""HLOAPI1"",157,0)"
^XMB(3.9,41,2,3174,0)=" ..M @HARY@(""RECEIVING FACILITY"")=WHO(""RECEIVING FACILITY"")"
^XMB(3.9,41,2,3175,0)="""RTN"",""HLOAPI1"",158,0)"
^XMB(3.9,41,2,3176,0)=" ..D DONTSEND(.STATE,$G(ERROR))"
^XMB(3.9,41,2,3177,0)="""RTN"",""HLOAPI1"",159,0)"
^XMB(3.9,41,2,3178,0)=" ..S MESSAGES(SUBIEN,""QUEUED"")=0"
^XMB(3.9,41,2,3179,0)="""RTN"",""HLOAPI1"",160,0)"
^XMB(3.9,41,2,3180,0)=" ..S MESSAGES(SUBIEN,""IEN"")=$G(STATE(""IEN""))"
^XMB(3.9,41,2,3181,0)="""RTN"",""HLOAPI1"",161,0)"
^XMB(3.9,41,2,3182,0)=" ..S MESSAGES(SUBIEN,""ERROR"")=$G(ERROR)"
^XMB(3.9,41,2,3183,0)="""RTN"",""HLOAPI1"",162,0)"
^XMB(3.9,41,2,3184,0)=" ;"
^XMB(3.9,41,2,3185,0)="""RTN"",""HLOAPI1"",163,0)"
^XMB(3.9,41,2,3186,0)=" F  S SUBIEN=$$NEXT^HLOASUB(PARMS(""SUBSCRIPTION IEN""),.WHO) Q:'SUBIEN  D"
^XMB(3.9,41,2,3187,0)="""RTN"",""HLOAPI1"",164,0)"
^XMB(3.9,41,2,3188,0)=" .N SARY,HARY"
^XMB(3.9,41,2,3189,0)="""RTN"",""HLOAPI1"",165,0)"
^XMB(3.9,41,2,3190,0)=" .S HARY=""STATE(""""HDR"""")"""
^XMB(3.9,41,2,3191,0)="""RTN"",""HLOAPI1"",166,0)"
^XMB(3.9,41,2,3192,0)=" .S SARY=""STATE(""""STATUS"""")"""
^XMB(3.9,41,2,3193,0)="""RTN"",""HLOAPI1"",167,0)"
^XMB(3.9,41,2,3194,0)=" .K STATE M STATE=HLMSTATE S STATE(""IEN"")="""""
^XMB(3.9,41,2,3195,0)="""RTN"",""HLOAPI1"",168,0)"
^XMB(3.9,41,2,3196,0)=" .;move parameters into HLMSTATE"
^XMB(3.9,41,2,3197,0)="""RTN"",""HLOAPI1"",169,0)"
^XMB(3.9,41,2,3198,0)=" .S @SARY@(""LINK IEN"")=WHO(""LINK IEN"")"
^XMB(3.9,41,2,3199,0)="""RTN"",""HLOAPI1"",170,0)"
^XMB(3.9,41,2,3200,0)=" .S @SARY@(""LINK NAME"")=WHO(""LINK NAME"")"
^XMB(3.9,41,2,3201,0)="""RTN"",""HLOAPI1"",171,0)"
^XMB(3.9,41,2,3202,0)=" .S @HARY@(""RECEIVING APPLICATION"")=WHO(""RECEIVING APPLICATION"")"
^XMB(3.9,41,2,3203,0)="""RTN"",""HLOAPI1"",172,0)"
^XMB(3.9,41,2,3204,0)=" .M @HARY@(""RECEIVING FACILITY"")=WHO(""RECEIVING FACILITY"")"
^XMB(3.9,41,2,3205,0)="""RTN"",""HLOAPI1"",173,0)"
^XMB(3.9,41,2,3206,0)=" .S ERROR="""""
^XMB(3.9,41,2,3207,0)="""RTN"",""HLOAPI1"",174,0)"
^XMB(3.9,41,2,3208,0)=" .I $$SEND(.STATE,.ERROR) D"
^XMB(3.9,41,2,3209,0)="""RTN"",""HLOAPI1"",175,0)"
^XMB(3.9,41,2,3210,0)=" ..S MESSAGES(SUBIEN,""QUEUED"")=1"
^XMB(3.9,41,2,3211,0)="""RTN"",""HLOAPI1"",176,0)"
^XMB(3.9,41,2,3212,0)=" .E  D"
^XMB(3.9,41,2,3213,0)="""RTN"",""HLOAPI1"",177,0)"
^XMB(3.9,41,2,3214,0)=" ..S MESSAGES(SUBIEN,""QUEUED"")=0,RETURN=0"
^XMB(3.9,41,2,3215,0)="""RTN"",""HLOAPI1"",178,0)"
^XMB(3.9,41,2,3216,0)=" .S MESSAGES(SUBIEN,""IEN"")=$G(STATE(""IEN"")),MESSAGES(SUBIEN,""ERROR"")=$G(ERROR)"
^XMB(3.9,41,2,3217,0)="""RTN"",""HLOAPI1"",179,0)"
^XMB(3.9,41,2,3218,0)=" K PARMS"
^XMB(3.9,41,2,3219,0)="""RTN"",""HLOAPI1"",180,0)"
^XMB(3.9,41,2,3220,0)=" Q RETURN"
^XMB(3.9,41,2,3221,0)="""RTN"",""HLOAPI1"",181,0)"
^XMB(3.9,41,2,3222,0)=" ;"
^XMB(3.9,41,2,3223,0)="""RTN"",""HLOAPI1"",182,0)"
^XMB(3.9,41,2,3224,0)="SEND(HLMSTATE,ERROR) ;"
^XMB(3.9,41,2,3225,0)="""RTN"",""HLOAPI1"",183,0)"
^XMB(3.9,41,2,3226,0)=" ;"
^XMB(3.9,41,2,3227,0)="""RTN"",""HLOAPI1"",184,0)"
^XMB(3.9,41,2,3228,0)=" K ERROR"
^XMB(3.9,41,2,3229,0)="""RTN"",""HLOAPI1"",185,0)"
^XMB(3.9,41,2,3230,0)=" I HLMSTATE(""UNSTORED LINES""),'$$SAVEMSG^HLOF777(.HLMSTATE) S ERROR=""$$SAVE^HLOF777 FAILED!"" Q 0"
^XMB(3.9,41,2,3231,0)="""RTN"",""HLOAPI1"",186,0)"
^XMB(3.9,41,2,3232,0)=" ;"
^XMB(3.9,41,2,3233,0)="""RTN"",""HLOAPI1"",187,0)"
^XMB(3.9,41,2,3234,0)=" I '$$SAVEMSG^HLOF778(.HLMSTATE) S ERROR=""$$SAVE^HLOF778 FAILED!"" Q 0"
^XMB(3.9,41,2,3235,0)="""RTN"",""HLOAPI1"",188,0)"
^XMB(3.9,41,2,3236,0)=" D OUTQUE^HLOQUE(HLMSTATE(""STATUS"",""LINK NAME""),$G(HLMSTATE(""STATUS"",""PORT"")),HLMSTATE(""STATUS"",""QUEUE""),HLMSTATE(""IEN""))"
^XMB(3.9,41,2,3237,0)="""RTN"",""HLOAPI1"",189,0)"
^XMB(3.9,41,2,3238,0)=" Q HLMSTATE(""IEN"")"
^XMB(3.9,41,2,3239,0)="""RTN"",""HLOAPI1"",190,0)"
^XMB(3.9,41,2,3240,0)=" ;"
^XMB(3.9,41,2,3241,0)="""RTN"",""HLOAPI1"",191,0)"
^XMB(3.9,41,2,3242,0)="DONTSEND(HLMSTATE,ERROR) ;"
^XMB(3.9,41,2,3243,0)="""RTN"",""HLOAPI1"",192,0)"
^XMB(3.9,41,2,3244,0)=" ;This procedure does NOT send a message.  Rather, it creates an entry in file 778 with the"
^XMB(3.9,41,2,3245,0)="""RTN"",""HLOAPI1"",193,0)"
^XMB(3.9,41,2,3246,0)=" ;of ""SE"".  "
^XMB(3.9,41,2,3247,0)="""RTN"",""HLOAPI1"",194,0)"
^XMB(3.9,41,2,3248,0)=" ;Input:"
^XMB(3.9,41,2,3249,0)="""RTN"",""HLOAPI1"",195,0)"
^XMB(3.9,41,2,3250,0)=" ;       HLMSTATE - pass-by-reference"
^XMB(3.9,41,2,3251,0)="""RTN"",""HLOAPI1"",196,0)"
^XMB(3.9,41,2,3252,0)=" ;       ERROR (optional, pass-by-value) error text to store with the message"
^XMB(3.9,41,2,3253,0)="""RTN"",""HLOAPI1"",197,0)"
^XMB(3.9,41,2,3254,0)=" ;Output: none"
^XMB(3.9,41,2,3255,0)="""RTN"",""HLOAPI1"",198,0)"
^XMB(3.9,41,2,3256,0)=" ;"
^XMB(3.9,41,2,3257,0)="""RTN"",""HLOAPI1"",199,0)"
^XMB(3.9,41,2,3258,0)=" I HLMSTATE(""UNSTORED LINES""),'$$SAVEMSG^HLOF777(.HLMSTATE) ; just continue"
^XMB(3.9,41,2,3259,0)="""RTN"",""HLOAPI1"",200,0)"
^XMB(3.9,41,2,3260,0)=" ;"
^XMB(3.9,41,2,3261,0)="""RTN"",""HLOAPI1"",201,0)"
^XMB(3.9,41,2,3262,0)=" S HLMSTATE(""STATUS"")=""SE"""
^XMB(3.9,41,2,3263,0)="""RTN"",""HLOAPI1"",202,0)"
^XMB(3.9,41,2,3264,0)=" S HLSTATE(""STATUS"",""PURGE"")=$$FMADD^XLFDT(HLMSTATE(""DT/TM CREATED""),HLMSTATE(""SYSTEM"",""ERROR PURGE""))"
^XMB(3.9,41,2,3265,0)="""RTN"",""HLOAPI1"",203,0)"
^XMB(3.9,41,2,3266,0)=" S HLMSTATE(""STATUS"",""ERROR TEXT"")=$G(ERROR)"
^XMB(3.9,41,2,3267,0)="""RTN"",""HLOAPI1"",204,0)"
^XMB(3.9,41,2,3268,0)=" I '$$SAVEMSG^HLOF778(.HLMSTATE) ;already reported an error to the app"
^XMB(3.9,41,2,3269,0)="""RTN"",""HLOAPI1"",205,0)"
^XMB(3.9,41,2,3270,0)=" Q"
^XMB(3.9,41,2,3271,0)="""RTN"",""HLOAPI1"",206,0)"
^XMB(3.9,41,2,3272,0)=" ;"
^XMB(3.9,41,2,3273,0)="""RTN"",""HLOAPI1"",207,0)"
^XMB(3.9,41,2,3274,0)="CHKWHO(HLMSTATE,WHOTO,ERROR) ;"
^XMB(3.9,41,2,3275,0)="""RTN"",""HLOAPI1"",208,0)"
^XMB(3.9,41,2,3276,0)=" N RETURN,I"
^XMB(3.9,41,2,3277,0)="""RTN"",""HLOAPI1"",209,0)"
^XMB(3.9,41,2,3278,0)=" S ERROR="""""
^XMB(3.9,41,2,3279,0)="""RTN"",""HLOAPI1"",210,0)"
^XMB(3.9,41,2,3280,0)=" S RETURN=1"
^XMB(3.9,41,2,3281,0)="""RTN"",""HLOAPI1"",211,0)"
^XMB(3.9,41,2,3282,0)=" I '$$CHECKWHO^HLOASUB1(.WHOTO,.RETURN,.ERROR) S RETURN=0"
^XMB(3.9,41,2,3283,0)="""RTN"",""HLOAPI1"",212,0)"
^XMB(3.9,41,2,3284,0)=" ;"
^XMB(3.9,41,2,3285,0)="""RTN"",""HLOAPI1"",213,0)"
^XMB(3.9,41,2,3286,0)=" ;move parameters into HLMSTATE"
^XMB(3.9,41,2,3287,0)="""RTN"",""HLOAPI1"",214,0)"
^XMB(3.9,41,2,3288,0)=" S HLMSTATE(""STATUS"",""LINK IEN"")=$G(RETURN(""LINK IEN""))"
^XMB(3.9,41,2,3289,0)="""RTN"",""HLOAPI1"",215,0)"
^XMB(3.9,41,2,3290,0)=" S HLMSTATE(""STATUS"",""LINK NAME"")=$G(RETURN(""LINK NAME""))"
^XMB(3.9,41,2,3291,0)="""RTN"",""HLOAPI1"",216,0)"
^XMB(3.9,41,2,3292,0)=" S HLMSTATE(""STATUS"",""PORT"")=$P($G(RETURN(""RECEIVING FACILITY"",2)),"":"",2)"
^XMB(3.9,41,2,3293,0)="""RTN"",""HLOAPI1"",217,0)"
^XMB(3.9,41,2,3294,0)=" S HLMSTATE(""HDR"",""RECEIVING APPLICATION"")=$G(RETURN(""RECEIVING APPLICATION""))"
^XMB(3.9,41,2,3295,0)="""RTN"",""HLOAPI1"",218,0)"
^XMB(3.9,41,2,3296,0)=" F I=1:1:3 S HLMSTATE(""HDR"",""RECEIVING FACILITY"",I)=$G(RETURN(""RECEIVING FACILITY"",I))"
^XMB(3.9,41,2,3297,0)="""RTN"",""HLOAPI1"",219,0)"
^XMB(3.9,41,2,3298,0)=" Q RETURN"
^XMB(3.9,41,2,3299,0)="""RTN"",""HLOAPI2"")"
^XMB(3.9,41,2,3300,0)="0^3^B27708015"
^XMB(3.9,41,2,3301,0)="""RTN"",""HLOAPI2"",1,0)"
^XMB(3.9,41,2,3302,0)="HLOAPI2 ;ALB/CJM-HL7 - Developer API's for sending application acks ;02/04/2004"
^XMB(3.9,41,2,3303,0)="""RTN"",""HLOAPI2"",2,0)"
^XMB(3.9,41,2,3304,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995"
^XMB(3.9,41,2,3305,0)="""RTN"",""HLOAPI2"",3,0)"
^XMB(3.9,41,2,3306,0)=" ;"
^XMB(3.9,41,2,3307,0)="""RTN"",""HLOAPI2"",4,0)"
^XMB(3.9,41,2,3308,0)="ACK(HLMSTATE,PARMS,ACK,ERROR) ;Default behavior is to return a general"
^XMB(3.9,41,2,3309,0)="""RTN"",""HLOAPI2"",5,0)"
^XMB(3.9,41,2,3310,0)=" ;application ack. The application may optionally specify the message"
^XMB(3.9,41,2,3311,0)="""RTN"",""HLOAPI2"",6,0)"
^XMB(3.9,41,2,3312,0)=" ;type and event or call $$ADDSEG^HLOAPI to add segments."
^XMB(3.9,41,2,3313,0)="""RTN"",""HLOAPI2"",7,0)"
^XMB(3.9,41,2,3314,0)=" ;A generic MSA segment (components 1-3) is added automatically IF the"
^XMB(3.9,41,2,3315,0)="""RTN"",""HLOAPI2"",8,0)"
^XMB(3.9,41,2,3316,0)=" ;application doesn't call $$ADDSEG^HLOAPI to add an MSA segment as the"
^XMB(3.9,41,2,3317,0)="""RTN"",""HLOAPI2"",9,0)"
^XMB(3.9,41,2,3318,0)=" ;FIRST segment following the header."
^XMB(3.9,41,2,3319,0)="""RTN"",""HLOAPI2"",10,0)"
^XMB(3.9,41,2,3320,0)=" ;$$SENDACK must be called when the ack is completed. The return"
^XMB(3.9,41,2,3321,0)="""RTN"",""HLOAPI2"",11,0)"
^XMB(3.9,41,2,3322,0)=" ;destination is determined automatically from the original message"
^XMB(3.9,41,2,3323,0)="""RTN"",""HLOAPI2"",12,0)"
^XMB(3.9,41,2,3324,0)=" ;"
^XMB(3.9,41,2,3325,0)="""RTN"",""HLOAPI2"",13,0)"
^XMB(3.9,41,2,3326,0)=" ;This API should NOT be called for batch messages, use $$BATCHACK instead."
^XMB(3.9,41,2,3327,0)="""RTN"",""HLOAPI2"",14,0)"
^XMB(3.9,41,2,3328,0)=" ;Input:"
^XMB(3.9,41,2,3329,0)="""RTN"",""HLOAPI2"",15,0)"
^XMB(3.9,41,2,3330,0)=" ;  HLMSTATE (pass by reference, required) the array obtained by calling $$STARTMSG^HLOPRS when parsing the original message "
^XMB(3.9,41,2,3331,0)="""RTN"",""HLOAPI2"",16,0)"
^XMB(3.9,41,2,3332,0)=" ;  PARMS (pass by reference) These subscripts may be defined:"
^XMB(3.9,41,2,3333,0)="""RTN"",""HLOAPI2"",17,0)"
^XMB(3.9,41,2,3334,0)=" ;    ""ACK CODE"" (required) MSA1[ {AA,AE,AR}"
^XMB(3.9,41,2,3335,0)="""RTN"",""HLOAPI2"",18,0)"
^XMB(3.9,41,2,3336,0)=" ;    ""ERROR MESSAGE"" - MSA3, should be used only if AE or AR"
^XMB(3.9,41,2,3337,0)="""RTN"",""HLOAPI2"",19,0)"
^XMB(3.9,41,2,3338,0)=" ;    ""ACCEPT ACK RESPONSE"" - the <tag^routine> to call when the commit ack is received (optional)"
^XMB(3.9,41,2,3339,0)="""RTN"",""HLOAPI2"",20,0)"
^XMB(3.9,41,2,3340,0)=" ;    ""ACCEPT ACK TYPE"" - {AL,NE} (optional, defaults to AL)"
^XMB(3.9,41,2,3341,0)="""RTN"",""HLOAPI2"",21,0)"
^XMB(3.9,41,2,3342,0)=" ;    ""CONTINUATION POINTER"" (optional)indicates a fragmented message"
^XMB(3.9,41,2,3343,0)="""RTN"",""HLOAPI2"",22,0)"
^XMB(3.9,41,2,3344,0)=" ;    ""COUNTRY"" - the 3 character country code (optional)"
^XMB(3.9,41,2,3345,0)="""RTN"",""HLOAPI2"",23,0)"
^XMB(3.9,41,2,3346,0)=" ;    ""EVENT"" - the 3 character event type (optional, defaults to the event code of the original message)"
^XMB(3.9,41,2,3347,0)="""RTN"",""HLOAPI2"",24,0)"
^XMB(3.9,41,2,3348,0)=" ;     ""ENCODING CHARACTERS"" - the four HL7 encoding characters (optional,defaults to ""^~\&"""
^XMB(3.9,41,2,3349,0)="""RTN"",""HLOAPI2"",25,0)"
^XMB(3.9,41,2,3350,0)=" ;    ""FAILURE RESPONSE"" (optional) the <tag>^<routine> that the sending application routine should execute if the transmission of the message fails, i.e., the message can not be sent or a requested commit ack is not received."
^XMB(3.9,41,2,3351,0)="""RTN"",""HLOAPI2"",26,0)"
^XMB(3.9,41,2,3352,0)=" ;    ""FIELD SEPARATOR"" - field separator (optional, defaults to ""|"")"
^XMB(3.9,41,2,3353,0)="""RTN"",""HLOAPI2"",27,0)"
^XMB(3.9,41,2,3354,0)=" ;    ""MESSAGE TYPE"" - if not defined, ACK is used"
^XMB(3.9,41,2,3355,0)="""RTN"",""HLOAPI2"",28,0)"
^XMB(3.9,41,2,3356,0)=" ;    ""MESSAGE STRUCTURE"" (optional)"
^XMB(3.9,41,2,3357,0)="""RTN"",""HLOAPI2"",29,0)"
^XMB(3.9,41,2,3358,0)=" ;    ""QUEUE"" - (optional) An application can name its own private queue (a string under 20 characters,namespaced). The default is the name of the queue of the original message"
^XMB(3.9,41,2,3359,0)="""RTN"",""HLOAPI2"",30,0)"
^XMB(3.9,41,2,3360,0)=" ;    ""SECURITY"" (optional) security information to include in the header segment, SEQ 8 (optional)"
^XMB(3.9,41,2,3361,0)="""RTN"",""HLOAPI2"",31,0)"
^XMB(3.9,41,2,3362,0)=" ;    ""VERSION"" - the HL7 Version ID (optional, defaults to 2.4)"
^XMB(3.9,41,2,3363,0)="""RTN"",""HLOAPI2"",32,0)"
^XMB(3.9,41,2,3364,0)=" ;Output:"
^XMB(3.9,41,2,3365,0)="""RTN"",""HLOAPI2"",33,0)"
^XMB(3.9,41,2,3366,0)=" ;  Function returns 1 on success, 0 on failure"
^XMB(3.9,41,2,3367,0)="""RTN"",""HLOAPI2"",34,0)"
^XMB(3.9,41,2,3368,0)=" ;  PARMS - left undefined when the function returns"
^XMB(3.9,41,2,3369,0)="""RTN"",""HLOAPI2"",35,0)"
^XMB(3.9,41,2,3370,0)=" ;  ACK (pass by reference, required) the acknowledgment message being built."
^XMB(3.9,41,2,3371,0)="""RTN"",""HLOAPI2"",36,0)"
^XMB(3.9,41,2,3372,0)=" ;  ERROR (pass by reference) error msg"
^XMB(3.9,41,2,3373,0)="""RTN"",""HLOAPI2"",37,0)"
^XMB(3.9,41,2,3374,0)=" N I,SEG,TOLINK,SUCCESS"
^XMB(3.9,41,2,3375,0)="""RTN"",""HLOAPI2"",38,0)"
^XMB(3.9,41,2,3376,0)=" S SUCCESS=0"
^XMB(3.9,41,2,3377,0)="""RTN"",""HLOAPI2"",39,0)"
^XMB(3.9,41,2,3378,0)=" ;"
^XMB(3.9,41,2,3379,0)="""RTN"",""HLOAPI2"",40,0)"
^XMB(3.9,41,2,3380,0)=" D"
^XMB(3.9,41,2,3381,0)="""RTN"",""HLOAPI2"",41,0)"
^XMB(3.9,41,2,3382,0)=" .N PORT"
^XMB(3.9,41,2,3383,0)="""RTN"",""HLOAPI2"",42,0)"
^XMB(3.9,41,2,3384,0)=" .I $G(PARMS(""ACK CODE""))'=""AA"",$G(PARMS(""ACK CODE""))'=""AE"",$G(PARMS(""ACK CODE""))'=""AR"" S ERROR=""INVALID ACK CODE"" Q"
^XMB(3.9,41,2,3385,0)="""RTN"",""HLOAPI2"",43,0)"
^XMB(3.9,41,2,3386,0)=" .;"
^XMB(3.9,41,2,3387,0)="""RTN"",""HLOAPI2"",44,0)"
^XMB(3.9,41,2,3388,0)=" .I '$G(HLMSTATE(""IEN"")) S ERROR=""ORIGINAL MESSAGE TO ACKNOWLEDGE IS NOT IDENTIFIED"" Q"
^XMB(3.9,41,2,3389,0)="""RTN"",""HLOAPI2"",45,0)"
^XMB(3.9,41,2,3390,0)=" .I $G(HLMSTATE(""BATCH"")) S ERROR=""BATCH ACKNOWLEDGMENTS MUST USE $$BATCHACK^HLOAPI3"" Q"
^XMB(3.9,41,2,3391,0)="""RTN"",""HLOAPI2"",46,0)"
^XMB(3.9,41,2,3392,0)=" .;"
^XMB(3.9,41,2,3393,0)="""RTN"",""HLOAPI2"",47,0)"
^XMB(3.9,41,2,3394,0)=" .I $G(HLMSTATE(""HDR"",""MESSAGE CONTROL ID""))="""" S ERROR=""MESSAGE CONTROL ID MUST EXIST TO RETURN AN APPLICATION ACK"" Q"
^XMB(3.9,41,2,3395,0)="""RTN"",""HLOAPI2"",48,0)"
^XMB(3.9,41,2,3396,0)=" .;"
^XMB(3.9,41,2,3397,0)="""RTN"",""HLOAPI2"",49,0)"
^XMB(3.9,41,2,3398,0)=" .;if the return link can not be determined, the HL Logical Link file has a problem that must be fixed at the site"
^XMB(3.9,41,2,3399,0)="""RTN"",""HLOAPI2"",50,0)"
^XMB(3.9,41,2,3400,0)=" .S TOLINK=$$ACKLINK(.HLMSTATE)"
^XMB(3.9,41,2,3401,0)="""RTN"",""HLOAPI2"",51,0)"
^XMB(3.9,41,2,3402,0)=" .I TOLINK="""" S ERROR=""TRANSMISSION LINK FOR APPLICATION ACK CANNOT BE DETERMINED"" Q"
^XMB(3.9,41,2,3403,0)="""RTN"",""HLOAPI2"",52,0)"
^XMB(3.9,41,2,3404,0)=" .S PORT=$P(HLMSTATE(""HDR"",""SENDING FACILITY"",2),"":"",2)"
^XMB(3.9,41,2,3405,0)="""RTN"",""HLOAPI2"",53,0)"
^XMB(3.9,41,2,3406,0)=" .I 'PORT S PORT=$$PORT2^HLOTLNK(TOLINK)"
^XMB(3.9,41,2,3407,0)="""RTN"",""HLOAPI2"",54,0)"
^XMB(3.9,41,2,3408,0)=" .;"
^XMB(3.9,41,2,3409,0)="""RTN"",""HLOAPI2"",55,0)"
^XMB(3.9,41,2,3410,0)=" .S PARMS(""MESSAGE TYPE"")=$G(PARMS(""MESSAGE TYPE""),""ACK"")"
^XMB(3.9,41,2,3411,0)="""RTN"",""HLOAPI2"",56,0)"
^XMB(3.9,41,2,3412,0)=" .S:PARMS(""MESSAGE TYPE"")=""ACK"" PARMS(""MESSAGE STRUCTURE"")=""ACK"""
^XMB(3.9,41,2,3413,0)="""RTN"",""HLOAPI2"",57,0)"
^XMB(3.9,41,2,3414,0)=" .S PARMS(""EVENT"")=$G(PARMS(""EVENT""),$G(HLMSTATE(""HDR"",""EVENT"")))"
^XMB(3.9,41,2,3415,0)="""RTN"",""HLOAPI2"",58,0)"
^XMB(3.9,41,2,3416,0)=" .I $$NEWMSG^HLOAPI(.PARMS,.ACK)  ;can't fail!"
^XMB(3.9,41,2,3417,0)="""RTN"",""HLOAPI2"",59,0)"
^XMB(3.9,41,2,3418,0)=" .S ACK(""STATUS"",""QUEUE"")=$G(PARMS(""QUEUE""),$G(HLMSTATE(""STATUS"",""QUEUE"")))"
^XMB(3.9,41,2,3419,0)="""RTN"",""HLOAPI2"",60,0)"
^XMB(3.9,41,2,3420,0)=" .S ACK(""STATUS"",""PORT"")=PORT"
^XMB(3.9,41,2,3421,0)="""RTN"",""HLOAPI2"",61,0)"
^XMB(3.9,41,2,3422,0)=" .S ACK(""HDR"",""SECURITY"")=$G(PARMS(""SECURITY""))"
^XMB(3.9,41,2,3423,0)="""RTN"",""HLOAPI2"",62,0)"
^XMB(3.9,41,2,3424,0)=" .S ACK(""HDR"",""SENDING APPLICATION"")=$G(HLMSTATE(""HDR"",""RECEIVING APPLICATION""))"
^XMB(3.9,41,2,3425,0)="""RTN"",""HLOAPI2"",63,0)"
^XMB(3.9,41,2,3426,0)=" .S ACK(""HDR"",""RECEIVING APPLICATION"")=$G(HLMSTATE(""HDR"",""SENDING APPLICATION""))"
^XMB(3.9,41,2,3427,0)="""RTN"",""HLOAPI2"",64,0)"
^XMB(3.9,41,2,3428,0)=" .F I=1:1:3 S ACK(""HDR"",""RECEIVING FACILITY"",I)=$G(HLMSTATE(""HDR"",""SENDING FACILITY"",I))"
^XMB(3.9,41,2,3429,0)="""RTN"",""HLOAPI2"",65,0)"
^XMB(3.9,41,2,3430,0)=" .S ACK(""HDR"",""APP ACK TYPE"")=""NE"""
^XMB(3.9,41,2,3431,0)="""RTN"",""HLOAPI2"",66,0)"
^XMB(3.9,41,2,3432,0)=" .S ACK(""HDR"",""ACCEPT ACK TYPE"")=$G(PARMS(""ACCEPT ACK TYPE""),""AL"")"
^XMB(3.9,41,2,3433,0)="""RTN"",""HLOAPI2"",67,0)"
^XMB(3.9,41,2,3434,0)=" .S ACK(""ACK TO"",""STATUS"")=$S(PARMS(""ACK CODE"")=""AA"":""SU"",1:""AE"")"
^XMB(3.9,41,2,3435,0)="""RTN"",""HLOAPI2"",68,0)"
^XMB(3.9,41,2,3436,0)=" .S ACK(""ACK TO"")=$G(HLMSTATE(""HDR"",""MESSAGE CONTROL ID""))"
^XMB(3.9,41,2,3437,0)="""RTN"",""HLOAPI2"",69,0)"
^XMB(3.9,41,2,3438,0)=" .S ACK(""ACK TO"",""IEN"")=HLMSTATE(""IEN"")"
^XMB(3.9,41,2,3439,0)="""RTN"",""HLOAPI2"",70,0)"
^XMB(3.9,41,2,3440,0)=" .S ACK(""STATUS"",""LINK NAME"")=TOLINK"
^XMB(3.9,41,2,3441,0)="""RTN"",""HLOAPI2"",71,0)"
^XMB(3.9,41,2,3442,0)=" .S ACK(""LINE COUNT"")=0"
^XMB(3.9,41,2,3443,0)="""RTN"",""HLOAPI2"",72,0)"
^XMB(3.9,41,2,3444,0)=" .S ACK(""MSA"")=""MSA|""_PARMS(""ACK CODE"")_""|""_$G(HLMSTATE(""HDR"",""MESSAGE CONTROL ID""))_""|""_$G(PARMS(""ERROR MESSAGE""))"
^XMB(3.9,41,2,3445,0)="""RTN"",""HLOAPI2"",73,0)"
^XMB(3.9,41,2,3446,0)=" .S SUCCESS=1"
^XMB(3.9,41,2,3447,0)="""RTN"",""HLOAPI2"",74,0)"
^XMB(3.9,41,2,3448,0)=" K PARMS"
^XMB(3.9,41,2,3449,0)="""RTN"",""HLOAPI2"",75,0)"
^XMB(3.9,41,2,3450,0)=" Q SUCCESS"
^XMB(3.9,41,2,3451,0)="""RTN"",""HLOAPI2"",76,0)"
^XMB(3.9,41,2,3452,0)=" ;"
^XMB(3.9,41,2,3453,0)="""RTN"",""HLOAPI2"",77,0)"
^XMB(3.9,41,2,3454,0)="SENDACK(ACK,ERROR) ;This is used to signal that an application acknowledgment is complete."
^XMB(3.9,41,2,3455,0)="""RTN"",""HLOAPI2"",78,0)"
^XMB(3.9,41,2,3456,0)=" ;Input:"
^XMB(3.9,41,2,3457,0)="""RTN"",""HLOAPI2"",79,0)"
^XMB(3.9,41,2,3458,0)=" ;  ACK (pass by reference,required) An array that contains the acknowledgment msg"
^XMB(3.9,41,2,3459,0)="""RTN"",""HLOAPI2"",80,0)"
^XMB(3.9,41,2,3460,0)=" ;Output:"
^XMB(3.9,41,2,3461,0)="""RTN"",""HLOAPI2"",81,0)"
^XMB(3.9,41,2,3462,0)=" ; Function returns 1 on success, 0 on failure"
^XMB(3.9,41,2,3463,0)="""RTN"",""HLOAPI2"",82,0)"
^XMB(3.9,41,2,3464,0)=" ; ERROR (pass by reference) error msg"
^XMB(3.9,41,2,3465,0)="""RTN"",""HLOAPI2"",83,0)"
^XMB(3.9,41,2,3466,0)=" ;"
^XMB(3.9,41,2,3467,0)="""RTN"",""HLOAPI2"",84,0)"
^XMB(3.9,41,2,3468,0)=" N SEG"
^XMB(3.9,41,2,3469,0)="""RTN"",""HLOAPI2"",85,0)"
^XMB(3.9,41,2,3470,0)=" ;if the application added its own MSA, then the ACK(""MSA"") node was killed"
^XMB(3.9,41,2,3471,0)="""RTN"",""HLOAPI2"",86,0)"
^XMB(3.9,41,2,3472,0)=" I $D(ACK(""MSA"")) S SEG(1)=ACK(""MSA"") D ADDSEG^HLOMSG(.ACK,.SEG)"
^XMB(3.9,41,2,3473,0)="""RTN"",""HLOAPI2"",87,0)"
^XMB(3.9,41,2,3474,0)=" ;"
^XMB(3.9,41,2,3475,0)="""RTN"",""HLOAPI2"",88,0)"
^XMB(3.9,41,2,3476,0)=" I $$SEND^HLOAPI1(.ACK,.ERROR) Q 1"
^XMB(3.9,41,2,3477,0)="""RTN"",""HLOAPI2"",89,0)"
^XMB(3.9,41,2,3478,0)=" Q 0"
^XMB(3.9,41,2,3479,0)="""RTN"",""HLOAPI2"",90,0)"
^XMB(3.9,41,2,3480,0)=" ;"
^XMB(3.9,41,2,3481,0)="""RTN"",""HLOAPI2"",91,0)"
^XMB(3.9,41,2,3482,0)="ACKLINK(HLMSTATE) ;"
^XMB(3.9,41,2,3483,0)="""RTN"",""HLOAPI2"",92,0)"
^XMB(3.9,41,2,3484,0)=" ;Finds the link to return the application ack to."
^XMB(3.9,41,2,3485,0)="""RTN"",""HLOAPI2"",93,0)"
^XMB(3.9,41,2,3486,0)=" N LINK"
^XMB(3.9,41,2,3487,0)="""RTN"",""HLOAPI2"",94,0)"
^XMB(3.9,41,2,3488,0)=" S LINK=$$RTRNLNK^HLOAPP($G(HLMSTATE(""HDR"",""RECEIVING APPLICATION"")))"
^XMB(3.9,41,2,3489,0)="""RTN"",""HLOAPI2"",95,0)"
^XMB(3.9,41,2,3490,0)=" Q:LINK]"""" LINK"
^XMB(3.9,41,2,3491,0)="""RTN"",""HLOAPI2"",96,0)"
^XMB(3.9,41,2,3492,0)=" S LINK=$$RTRNLNK^HLOTLNK($G(HLMSTATE(""HDR"",""SENDING FACILITY"",1)),$G(HLMSTATE(""HDR"",""SENDING FACILITY"",2)),$G(HLMSTATE(""HDR"",""SENDING FACILITY"",3)))"
^XMB(3.9,41,2,3493,0)="""RTN"",""HLOAPI2"",97,0)"
^XMB(3.9,41,2,3494,0)=" Q LINK"
^XMB(3.9,41,2,3495,0)="""RTN"",""HLOAPI2"",98,0)"
^XMB(3.9,41,2,3496,0)=" ;"
^XMB(3.9,41,2,3497,0)="""RTN"",""HLOAPI2"",99,0)"
^XMB(3.9,41,2,3498,0)="CHKPARMS(HLMSTATE,PARMS,ERROR) ;"
^XMB(3.9,41,2,3499,0)="""RTN"",""HLOAPI2"",100,0)"
^XMB(3.9,41,2,3500,0)=" N LEN,SARY,HARY"
^XMB(3.9,41,2,3501,0)="""RTN"",""HLOAPI2"",101,0)"
^XMB(3.9,41,2,3502,0)=" ;"
^XMB(3.9,41,2,3503,0)="""RTN"",""HLOAPI2"",102,0)"
^XMB(3.9,41,2,3504,0)=" ;shortcut to reference the header sub-array"
^XMB(3.9,41,2,3505,0)="""RTN"",""HLOAPI2"",103,0)"
^XMB(3.9,41,2,3506,0)=" S HARY=""HLMSTATE(""""HDR"""")"""
^XMB(3.9,41,2,3507,0)="""RTN"",""HLOAPI2"",104,0)"
^XMB(3.9,41,2,3508,0)=" ;"
^XMB(3.9,41,2,3509,0)="""RTN"",""HLOAPI2"",105,0)"
^XMB(3.9,41,2,3510,0)=" ;shortcut to reference the status sub-array"
^XMB(3.9,41,2,3511,0)="""RTN"",""HLOAPI2"",106,0)"
^XMB(3.9,41,2,3512,0)=" S SARY=""HLMSTATE(""""STATUS"""")"""
^XMB(3.9,41,2,3513,0)="""RTN"",""HLOAPI2"",107,0)"
^XMB(3.9,41,2,3514,0)=" ;"
^XMB(3.9,41,2,3515,0)="""RTN"",""HLOAPI2"",108,0)"
^XMB(3.9,41,2,3516,0)=" S ERROR="""""
^XMB(3.9,41,2,3517,0)="""RTN"",""HLOAPI2"",109,0)"
^XMB(3.9,41,2,3518,0)=" I $G(PARMS(""ACCEPT ACK TYPE""))="""" S PARMS(""ACCEPT ACK TYPE"")=""AL"""
^XMB(3.9,41,2,3519,0)="""RTN"",""HLOAPI2"",110,0)"
^XMB(3.9,41,2,3520,0)=" I $G(PARMS(""APP ACK TYPE""))="""" S PARMS(""APP ACK TYPE"")=""NE"""
^XMB(3.9,41,2,3521,0)="""RTN"",""HLOAPI2"",111,0)"
^XMB(3.9,41,2,3522,0)=" I PARMS(""ACCEPT ACK TYPE"")'=""NE"",PARMS(""ACCEPT ACK TYPE"")'=""AL"" S ERROR=""INVALID ACCEPT ACKNOWLEDGMENT TYPE"""
^XMB(3.9,41,2,3523,0)="""RTN"",""HLOAPI2"",112,0)"
^XMB(3.9,41,2,3524,0)=" I PARMS(""APP ACK TYPE"")'=""NE"",PARMS(""APP ACK TYPE"")'=""AL"" S ERROR=""INVALID APPLICATION ACKNOWLEDGMENT TYPE"""
^XMB(3.9,41,2,3525,0)="""RTN"",""HLOAPI2"",113,0)"
^XMB(3.9,41,2,3526,0)=" S LEN=$L($G(PARMS(""QUEUE"")))"
^XMB(3.9,41,2,3527,0)="""RTN"",""HLOAPI2"",114,0)"
^XMB(3.9,41,2,3528,0)=" I LEN>20 S ERROR=""QUEUE PARAMETER IS MAX 20 LENGTH"",PARMS(""QUEUE"")=$E(PARMS(""QUEUE""),1,20)"
^XMB(3.9,41,2,3529,0)="""RTN"",""HLOAPI2"",115,0)"
^XMB(3.9,41,2,3530,0)=" I 'LEN S PARMS(""QUEUE"")=""DEFAULT"""
^XMB(3.9,41,2,3531,0)="""RTN"",""HLOAPI2"",116,0)"
^XMB(3.9,41,2,3532,0)=" I $G(PARMS(""SENDING APPLICATION""))="""" D"
^XMB(3.9,41,2,3533,0)="""RTN"",""HLOAPI2"",117,0)"
^XMB(3.9,41,2,3534,0)=" .S ERROR=""SENDING APPLICATION IS REQUIRED"""
^XMB(3.9,41,2,3535,0)="""RTN"",""HLOAPI2"",118,0)"
^XMB(3.9,41,2,3536,0)=" .S PARMS(""SENDING APPLICATION"")="""""
^XMB(3.9,41,2,3537,0)="""RTN"",""HLOAPI2"",119,0)"
^XMB(3.9,41,2,3538,0)=" E  D"
^XMB(3.9,41,2,3539,0)="""RTN"",""HLOAPI2"",120,0)"
^XMB(3.9,41,2,3540,0)=" .I '$D(^HLD(779.2,""C"",PARMS(""SENDING APPLICATION""))) S ERROR=""SENDING APPLICATION NOT FOUND IN THE HLO APPLICATION REGISTRY"""
^XMB(3.9,41,2,3541,0)="""RTN"",""HLOAPI2"",121,0)"
^XMB(3.9,41,2,3542,0)=" ;"
^XMB(3.9,41,2,3543,0)="""RTN"",""HLOAPI2"",122,0)"
^XMB(3.9,41,2,3544,0)=" ;move parameters into HLMSTATE"
^XMB(3.9,41,2,3545,0)="""RTN"",""HLOAPI2"",123,0)"
^XMB(3.9,41,2,3546,0)=" S @HARY@(""ACCEPT ACK TYPE"")=PARMS(""ACCEPT ACK TYPE"")"
^XMB(3.9,41,2,3547,0)="""RTN"",""HLOAPI2"",124,0)"
^XMB(3.9,41,2,3548,0)=" S @HARY@(""APP ACK TYPE"")=PARMS(""APP ACK TYPE"")"
^XMB(3.9,41,2,3549,0)="""RTN"",""HLOAPI2"",125,0)"
^XMB(3.9,41,2,3550,0)=" S @HARY@(""SENDING APPLICATION"")=$E(PARMS(""SENDING APPLICATION""),1,60)"
^XMB(3.9,41,2,3551,0)="""RTN"",""HLOAPI2"",126,0)"
^XMB(3.9,41,2,3552,0)=" S @HARY@(""SECURITY"")=$G(PARMS(""SECURITY""))"
^XMB(3.9,41,2,3553,0)="""RTN"",""HLOAPI2"",127,0)"
^XMB(3.9,41,2,3554,0)=" S @SARY@(""APP ACK RESPONSE"")=$G(PARMS(""APP ACK RESPONSE""))"
^XMB(3.9,41,2,3555,0)="""RTN"",""HLOAPI2"",128,0)"
^XMB(3.9,41,2,3556,0)=" S @SARY@(""ACCEPT ACK RESPONSE"")=$G(PARMS(""ACCEPT ACK RESPONSE""))"
^XMB(3.9,41,2,3557,0)="""RTN"",""HLOAPI2"",129,0)"
^XMB(3.9,41,2,3558,0)=" S @SARY@(""FAILURE RESPONSE"")=$G(PARMS(""FAILURE RESPONSE""))"
^XMB(3.9,41,2,3559,0)="""RTN"",""HLOAPI2"",130,0)"
^XMB(3.9,41,2,3560,0)=" S @SARY@(""QUEUE"")=PARMS(""QUEUE"")"
^XMB(3.9,41,2,3561,0)="""RTN"",""HLOAPI2"",131,0)"
^XMB(3.9,41,2,3562,0)=" Q:$L(ERROR) 0"
^XMB(3.9,41,2,3563,0)="""RTN"",""HLOAPI2"",132,0)"
^XMB(3.9,41,2,3564,0)=" Q 1"
^XMB(3.9,41,2,3565,0)="""RTN"",""HLOAPI3"")"
^XMB(3.9,41,2,3566,0)="0^4^B30983602"
^XMB(3.9,41,2,3567,0)="""RTN"",""HLOAPI3"",1,0)"
^XMB(3.9,41,2,3568,0)="HLOAPI3 ;ALB/CJM-HL7 - Developer API's for sending application acks ;02/04/2004"
^XMB(3.9,41,2,3569,0)="""RTN"",""HLOAPI3"",2,0)"
^XMB(3.9,41,2,3570,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995"
^XMB(3.9,41,2,3571,0)="""RTN"",""HLOAPI3"",3,0)"
^XMB(3.9,41,2,3572,0)=" ;"
^XMB(3.9,41,2,3573,0)="""RTN"",""HLOAPI3"",4,0)"
^XMB(3.9,41,2,3574,0)="BATCHACK(HLMSTATE,PARMS,ACK,ERROR) ;This API begins the creation of a batch"
^XMB(3.9,41,2,3575,0)="""RTN"",""HLOAPI3"",5,0)"
^XMB(3.9,41,2,3576,0)=" ;message that is the response to a batch of messages. Individual acks"
^XMB(3.9,41,2,3577,0)="""RTN"",""HLOAPI3"",6,0)"
^XMB(3.9,41,2,3578,0)=" ;are placed in the batch by calling $$ADDACK. $$SENDACK^HLOAPI2 must be"
^XMB(3.9,41,2,3579,0)="""RTN"",""HLOAPI3"",7,0)"
^XMB(3.9,41,2,3580,0)=" ;called ;when the batch of acks is complete. The return destination is"
^XMB(3.9,41,2,3581,0)="""RTN"",""HLOAPI3"",8,0)"
^XMB(3.9,41,2,3582,0)=" ;determined automatically from the original message."
^XMB(3.9,41,2,3583,0)="""RTN"",""HLOAPI3"",9,0)"
^XMB(3.9,41,2,3584,0)=" ;"
^XMB(3.9,41,2,3585,0)="""RTN"",""HLOAPI3"",10,0)"
^XMB(3.9,41,2,3586,0)=" ;Input:"
^XMB(3.9,41,2,3587,0)="""RTN"",""HLOAPI3"",11,0)"
^XMB(3.9,41,2,3588,0)=" ;  HLMSTATE (pass by reference, required) the array obtained by calling $$STARTMSG^HLOPRS when parsing the original message "
^XMB(3.9,41,2,3589,0)="""RTN"",""HLOAPI3"",12,0)"
^XMB(3.9,41,2,3590,0)=" ;  PARMS (optional, pass by reference) These subscripts may be defined:"
^XMB(3.9,41,2,3591,0)="""RTN"",""HLOAPI3"",13,0)"
^XMB(3.9,41,2,3592,0)=" ;    ""ACCEPT ACK RESPONSE"")=<tag^routine> to call when the commit ack is received (optional)"
^XMB(3.9,41,2,3593,0)="""RTN"",""HLOAPI3"",14,0)"
^XMB(3.9,41,2,3594,0)=" ;    ""ACCEPT ACK TYPE"") = <AL,NE> (optional, defaults to AL)"
^XMB(3.9,41,2,3595,0)="""RTN"",""HLOAPI3"",15,0)"
^XMB(3.9,41,2,3596,0)=" ;    ""COUNTRY"") - a 3 character country code from the HL7 standard table (optional)"
^XMB(3.9,41,2,3597,0)="""RTN"",""HLOAPI3"",16,0)"
^XMB(3.9,41,2,3598,0)=" ;     ""ENCODING CHARACTERS"" - the 4 HL7 encoding characters (optional,defaults to ""^~\&"""
^XMB(3.9,41,2,3599,0)="""RTN"",""HLOAPI3"",17,0)"
^XMB(3.9,41,2,3600,0)=" ;    ""FAILURE RESPONSE"" (optional) the <tag>^<routine> that the sending application routine should execute if the transmission of the message fails, i.e., the message can not be sent or a requested commit ack is not received."
^XMB(3.9,41,2,3601,0)="""RTN"",""HLOAPI3"",18,0)"
^XMB(3.9,41,2,3602,0)=" ;     ""FIELD SEPARATOR"" - the field separator (optional, defaults to ""|"")"
^XMB(3.9,41,2,3603,0)="""RTN"",""HLOAPI3"",19,0)"
^XMB(3.9,41,2,3604,0)=" ;     ""QUEUE"" (optional) An application can name a private queue (a string under 20 characters, namespaced). The default is the name of the queue of the original message"
^XMB(3.9,41,2,3605,0)="""RTN"",""HLOAPI3"",20,0)"
^XMB(3.9,41,2,3606,0)=" ;     ""SECURITY"" - security information to include in the header segment, SEQ 8 (optional)"
^XMB(3.9,41,2,3607,0)="""RTN"",""HLOAPI3"",21,0)"
^XMB(3.9,41,2,3608,0)=" ;    ""VERSION"" - the HL7 Version ID (optional, defaults to 2.4)"
^XMB(3.9,41,2,3609,0)="""RTN"",""HLOAPI3"",22,0)"
^XMB(3.9,41,2,3610,0)=" ;Output:"
^XMB(3.9,41,2,3611,0)="""RTN"",""HLOAPI3"",23,0)"
^XMB(3.9,41,2,3612,0)=" ;  Function returns 1 on success, 0 on failure"
^XMB(3.9,41,2,3613,0)="""RTN"",""HLOAPI3"",24,0)"
^XMB(3.9,41,2,3614,0)=" ;  PARMS - left undefined upon completion"
^XMB(3.9,41,2,3615,0)="""RTN"",""HLOAPI3"",25,0)"
^XMB(3.9,41,2,3616,0)=" ;  ACK (pass by reference, required) the batch acknowledgment message being built."
^XMB(3.9,41,2,3617,0)="""RTN"",""HLOAPI3"",26,0)"
^XMB(3.9,41,2,3618,0)=" ;  ERROR (pass by reference) error message"
^XMB(3.9,41,2,3619,0)="""RTN"",""HLOAPI3"",27,0)"
^XMB(3.9,41,2,3620,0)=" N I,TOLINK,SUCCESS"
^XMB(3.9,41,2,3621,0)="""RTN"",""HLOAPI3"",28,0)"
^XMB(3.9,41,2,3622,0)=" S SUCCESS=0"
^XMB(3.9,41,2,3623,0)="""RTN"",""HLOAPI3"",29,0)"
^XMB(3.9,41,2,3624,0)=" ;"
^XMB(3.9,41,2,3625,0)="""RTN"",""HLOAPI3"",30,0)"
^XMB(3.9,41,2,3626,0)=" D"
^XMB(3.9,41,2,3627,0)="""RTN"",""HLOAPI3"",31,0)"
^XMB(3.9,41,2,3628,0)=" .N PORT"
^XMB(3.9,41,2,3629,0)="""RTN"",""HLOAPI3"",32,0)"
^XMB(3.9,41,2,3630,0)=" .I '$G(HLMSTATE(""IEN"")) S ERROR=""ORIGINAL MESSAGE TO ACKNOWLEDGMENT IS NOT IDENTIFIED"" Q"
^XMB(3.9,41,2,3631,0)="""RTN"",""HLOAPI3"",33,0)"
^XMB(3.9,41,2,3632,0)=" .;if the return link can not be determined, the HL Logical Link file has a problem"
^XMB(3.9,41,2,3633,0)="""RTN"",""HLOAPI3"",34,0)"
^XMB(3.9,41,2,3634,0)=" .S TOLINK=$$ACKLINK^HLOAPI2(.HLMSTATE)"
^XMB(3.9,41,2,3635,0)="""RTN"",""HLOAPI3"",35,0)"
^XMB(3.9,41,2,3636,0)=" .I TOLINK="""" S ERROR=""TRANSMISSION LINK FOR APPLICATION ACK CANNOT BE DETERMINED"" Q"
^XMB(3.9,41,2,3637,0)="""RTN"",""HLOAPI3"",36,0)"
^XMB(3.9,41,2,3638,0)=" .S PORT=$P(HLMSTATE(""HDR"",""SENDING FACILITY"",2),"":"",2)"
^XMB(3.9,41,2,3639,0)="""RTN"",""HLOAPI3"",37,0)"
^XMB(3.9,41,2,3640,0)=" .I 'PORT S PORT=$$PORT2^HLOTLNK(TOLINK)"
^XMB(3.9,41,2,3641,0)="""RTN"",""HLOAPI3"",38,0)"
^XMB(3.9,41,2,3642,0)=" .;"
^XMB(3.9,41,2,3643,0)="""RTN"",""HLOAPI3"",39,0)"
^XMB(3.9,41,2,3644,0)=" .I $$NEWBATCH^HLOAPI(.PARMS,.ACK)  ;can't fail!"
^XMB(3.9,41,2,3645,0)="""RTN"",""HLOAPI3"",40,0)"
^XMB(3.9,41,2,3646,0)=" .S ACK(""STATUS"",""QUEUE"")=$G(PARMS(""QUEUE""),$G(HLMSTATE(""STATUS"",""QUEUE"")))"
^XMB(3.9,41,2,3647,0)="""RTN"",""HLOAPI3"",41,0)"
^XMB(3.9,41,2,3648,0)=" .S ACK(""STATUS"",""PORT"")=PORT"
^XMB(3.9,41,2,3649,0)="""RTN"",""HLOAPI3"",42,0)"
^XMB(3.9,41,2,3650,0)=" .S ACK(""HDR"",""SECURITY"")=$G(PARMS(""SECURITY""))"
^XMB(3.9,41,2,3651,0)="""RTN"",""HLOAPI3"",43,0)"
^XMB(3.9,41,2,3652,0)=" .S ACK(""HDR"",""SENDING APPLICATION"")=$G(HLMSTATE(""HDR"",""RECEIVING APPLICATION""))"
^XMB(3.9,41,2,3653,0)="""RTN"",""HLOAPI3"",44,0)"
^XMB(3.9,41,2,3654,0)=" .S ACK(""HDR"",""RECEIVING APPLICATION"")=$G(HLMSTATE(""HDR"",""SENDING APPLICATION""))"
^XMB(3.9,41,2,3655,0)="""RTN"",""HLOAPI3"",45,0)"
^XMB(3.9,41,2,3656,0)=" .F I=1:1:3 S ACK(""HDR"",""RECEIVING FACILITY"",I)=$G(HLMSTATE(""HDR"",""SENDING FACILITY"",I))"
^XMB(3.9,41,2,3657,0)="""RTN"",""HLOAPI3"",46,0)"
^XMB(3.9,41,2,3658,0)=" .S ACK(""HDR"",""APP ACK TYPE"")=""NE"""
^XMB(3.9,41,2,3659,0)="""RTN"",""HLOAPI3"",47,0)"
^XMB(3.9,41,2,3660,0)=" .S ACK(""HDR"",""ACCEPT ACK TYPE"")=$G(PARMS(""ACCEPT ACK TYPE""),""AL"")"
^XMB(3.9,41,2,3661,0)="""RTN"",""HLOAPI3"",48,0)"
^XMB(3.9,41,2,3662,0)=" .S ACK(""ACK TO"")=$G(HLMSTATE(""HDR"",""BATCH CONTROL ID""))"
^XMB(3.9,41,2,3663,0)="""RTN"",""HLOAPI3"",49,0)"
^XMB(3.9,41,2,3664,0)=" .S ACK(""ACK TO"",""IEN"")=HLMSTATE(""IEN"")"
^XMB(3.9,41,2,3665,0)="""RTN"",""HLOAPI3"",50,0)"
^XMB(3.9,41,2,3666,0)=" .S ACK(""ACK TO"",""BODY"")=$G(HLMSTATE(""BODY""))"
^XMB(3.9,41,2,3667,0)="""RTN"",""HLOAPI3"",51,0)"
^XMB(3.9,41,2,3668,0)=" .S ACK(""STATUS"",""LINK NAME"")=TOLINK"
^XMB(3.9,41,2,3669,0)="""RTN"",""HLOAPI3"",52,0)"
^XMB(3.9,41,2,3670,0)=" .S ACK(""LINE COUNT"")=0"
^XMB(3.9,41,2,3671,0)="""RTN"",""HLOAPI3"",53,0)"
^XMB(3.9,41,2,3672,0)=" .S SUCCESS=1"
^XMB(3.9,41,2,3673,0)="""RTN"",""HLOAPI3"",54,0)"
^XMB(3.9,41,2,3674,0)=" K PARMS"
^XMB(3.9,41,2,3675,0)="""RTN"",""HLOAPI3"",55,0)"
^XMB(3.9,41,2,3676,0)=" Q SUCCESS"
^XMB(3.9,41,2,3677,0)="""RTN"",""HLOAPI3"",56,0)"
^XMB(3.9,41,2,3678,0)=" ;"
^XMB(3.9,41,2,3679,0)="""RTN"",""HLOAPI3"",57,0)"
^XMB(3.9,41,2,3680,0)="ADDACK(ACK,PARMS,ERROR) ;This API adds an application acknowledgment to a batch"
^XMB(3.9,41,2,3681,0)="""RTN"",""HLOAPI3"",58,0)"
^XMB(3.9,41,2,3682,0)=" ;of acknowledgments that was started by calling $$BATCHACK."
^XMB(3.9,41,2,3683,0)="""RTN"",""HLOAPI3"",59,0)"
^XMB(3.9,41,2,3684,0)=" ;The Default behavior is to return a general application ack."
^XMB(3.9,41,2,3685,0)="""RTN"",""HLOAPI3"",60,0)"
^XMB(3.9,41,2,3686,0)=" ;The application may optionally specify the message"
^XMB(3.9,41,2,3687,0)="""RTN"",""HLOAPI3"",61,0)"
^XMB(3.9,41,2,3688,0)=" ;type and event and/or call $$ADDSEG^HLOAPI to add segments."
^XMB(3.9,41,2,3689,0)="""RTN"",""HLOAPI3"",62,0)"
^XMB(3.9,41,2,3690,0)=" ;A generic MSA segment (components 1-3) will be added automatically"
^XMB(3.9,41,2,3691,0)="""RTN"",""HLOAPI3"",63,0)"
^XMB(3.9,41,2,3692,0)=" ;if the application doesn't call $$ADDSEG^HLOAPI to add an MSA segment"
^XMB(3.9,41,2,3693,0)="""RTN"",""HLOAPI3"",64,0)"
^XMB(3.9,41,2,3694,0)=" ;as the FIRST segment following the MSH segment."
^XMB(3.9,41,2,3695,0)="""RTN"",""HLOAPI3"",65,0)"
^XMB(3.9,41,2,3696,0)=" ;$$SENDACK^HLOAPI2 must be called when the batch is complete."
^XMB(3.9,41,2,3697,0)="""RTN"",""HLOAPI3"",66,0)"
^XMB(3.9,41,2,3698,0)=" ;"
^XMB(3.9,41,2,3699,0)="""RTN"",""HLOAPI3"",67,0)"
^XMB(3.9,41,2,3700,0)=" ;Input:"
^XMB(3.9,41,2,3701,0)="""RTN"",""HLOAPI3"",68,0)"
^XMB(3.9,41,2,3702,0)=" ;  ACK (pass by reference,required) the batch of acks that is being built "
^XMB(3.9,41,2,3703,0)="""RTN"",""HLOAPI3"",69,0)"
^XMB(3.9,41,2,3704,0)=" ;  PARMS (pass by reference) These subscripts may be defined:"
^XMB(3.9,41,2,3705,0)="""RTN"",""HLOAPI3"",70,0)"
^XMB(3.9,41,2,3706,0)=" ;    ""ACK CODE"" (required) MSA1[ {AA,AE,AR}"
^XMB(3.9,41,2,3707,0)="""RTN"",""HLOAPI3"",71,0)"
^XMB(3.9,41,2,3708,0)=" ;    ""ERROR MESSAGE"" (optional) MSA3, should be used only if AE or AR"
^XMB(3.9,41,2,3709,0)="""RTN"",""HLOAPI3"",72,0)"
^XMB(3.9,41,2,3710,0)=" ;    ""EVENT"" - 3 character event type (optional, defaults to the event code of the original message)"
^XMB(3.9,41,2,3711,0)="""RTN"",""HLOAPI3"",73,0)"
^XMB(3.9,41,2,3712,0)=" ;    ""MESSAGE CONTROL ID"" (required) this is the message control id of the original individual message within the batch which is being acknowledged"
^XMB(3.9,41,2,3713,0)="""RTN"",""HLOAPI3"",74,0)"
^XMB(3.9,41,2,3714,0)=" ;    ""MESSAGE STRUCTURE"" (optional)"
^XMB(3.9,41,2,3715,0)="""RTN"",""HLOAPI3"",75,0)"
^XMB(3.9,41,2,3716,0)=" ;    ""MESSAGE TYPE"" (optional, defaults to ACK)"
^XMB(3.9,41,2,3717,0)="""RTN"",""HLOAPI3"",76,0)"
^XMB(3.9,41,2,3718,0)=" ;    ""SECURITY"" (optional) security information to include in the header segment SEQ 8"
^XMB(3.9,41,2,3719,0)="""RTN"",""HLOAPI3"",77,0)"
^XMB(3.9,41,2,3720,0)=" ;Output:"
^XMB(3.9,41,2,3721,0)="""RTN"",""HLOAPI3"",78,0)"
^XMB(3.9,41,2,3722,0)=" ;  Function returns 1 on success, 0 on failure"
^XMB(3.9,41,2,3723,0)="""RTN"",""HLOAPI3"",79,0)"
^XMB(3.9,41,2,3724,0)=" ;  ACK (pass by reference, required) The batch, updated with another ack"
^XMB(3.9,41,2,3725,0)="""RTN"",""HLOAPI3"",80,0)"
^XMB(3.9,41,2,3726,0)=" ;  PARMS  - left undefined when this function returns"
^XMB(3.9,41,2,3727,0)="""RTN"",""HLOAPI3"",81,0)"
^XMB(3.9,41,2,3728,0)=" ;  ERROR (pass by reference) error msg"
^XMB(3.9,41,2,3729,0)="""RTN"",""HLOAPI3"",82,0)"
^XMB(3.9,41,2,3730,0)=" ;"
^XMB(3.9,41,2,3731,0)="""RTN"",""HLOAPI3"",83,0)"
^XMB(3.9,41,2,3732,0)=" N SUB,SUCCESS"
^XMB(3.9,41,2,3733,0)="""RTN"",""HLOAPI3"",84,0)"
^XMB(3.9,41,2,3734,0)=" S SUCCESS=0"
^XMB(3.9,41,2,3735,0)="""RTN"",""HLOAPI3"",85,0)"
^XMB(3.9,41,2,3736,0)=" D"
^XMB(3.9,41,2,3737,0)="""RTN"",""HLOAPI3"",86,0)"
^XMB(3.9,41,2,3738,0)=" .I $G(PARMS(""ACK CODE""))'=""AA"",$G(PARMS(""ACK CODE""))'=""AE"",$G(PARMS(""ACK CODE""))'=""AR"" S ERROR=""INVALID ACK CODE"" Q"
^XMB(3.9,41,2,3739,0)="""RTN"",""HLOAPI3"",87,0)"
^XMB(3.9,41,2,3740,0)=" .;"
^XMB(3.9,41,2,3741,0)="""RTN"",""HLOAPI3"",88,0)"
^XMB(3.9,41,2,3742,0)=" .I $G(PARMS(""MESSAGE CONTROL ID""))="""" S ERROR=""MESSAGE CONTROL ID MUST EXIST TO RETURN AN APPLICATION ACK"" Q"
^XMB(3.9,41,2,3743,0)="""RTN"",""HLOAPI3"",89,0)"
^XMB(3.9,41,2,3744,0)=" .S SUB="""""
^XMB(3.9,41,2,3745,0)="""RTN"",""HLOAPI3"",90,0)"
^XMB(3.9,41,2,3746,0)=" .F  S SUB=$O(^HLB(""AE"",PARMS(""MESSAGE CONTROL ID""),SUB)) Q:SUB=""""  I $P(SUB,""^"")=ACK(""ACK TO"",""IEN""),$P(SUB,""^"",2) S PARMS(""ACK TO"",""IEN"")=SUB Q"
^XMB(3.9,41,2,3747,0)="""RTN"",""HLOAPI3"",91,0)"
^XMB(3.9,41,2,3748,0)=" .S PARMS(""MESSAGE TYPE"")=$G(PARMS(""MESSAGE TYPE""),""ACK"")"
^XMB(3.9,41,2,3749,0)="""RTN"",""HLOAPI3"",92,0)"
^XMB(3.9,41,2,3750,0)=" .S:PARMS(""MESSAGE TYPE"")=""ACK"" PARMS(""MESSAGE STRUCTURE"")=""ACK"""
^XMB(3.9,41,2,3751,0)="""RTN"",""HLOAPI3"",93,0)"
^XMB(3.9,41,2,3752,0)=" .S PARMS(""EVENT"")=$G(PARMS(""EVENT""))"
^XMB(3.9,41,2,3753,0)="""RTN"",""HLOAPI3"",94,0)"
^XMB(3.9,41,2,3754,0)=" .I PARMS(""EVENT"")="""",ACK(""ACK TO"",""BODY""),$P(SUB,""^"",2) S PARMS(""EVENT"")=$P($G(^HLA(ACK(""ACK TO"",""BODY""),2,$P(SUB,""^"",2),0)),""^"",3)"
^XMB(3.9,41,2,3755,0)="""RTN"",""HLOAPI3"",95,0)"
^XMB(3.9,41,2,3756,0)=" .S PARMS(""ACK TO"")=PARMS(""MESSAGE CONTROL ID"")"
^XMB(3.9,41,2,3757,0)="""RTN"",""HLOAPI3"",96,0)"
^XMB(3.9,41,2,3758,0)=" .S PARMS(""ACK TO"",""STATUS"")=$S(PARMS(""ACK CODE"")=""AA"":""SU"",1:""AE"")"
^XMB(3.9,41,2,3759,0)="""RTN"",""HLOAPI3"",97,0)"
^XMB(3.9,41,2,3760,0)=" .Q:'$$ADDMSG^HLOAPI(.ACK,.PARMS,.ERROR)"
^XMB(3.9,41,2,3761,0)="""RTN"",""HLOAPI3"",98,0)"
^XMB(3.9,41,2,3762,0)=" .S ACK(""MSA"")=""MSA|""_PARMS(""ACK CODE"")_""|""_PARMS(""MESSAGE CONTROL ID"")_""|""_$G(PARMS(""ERROR MESSAGE""))"
^XMB(3.9,41,2,3763,0)="""RTN"",""HLOAPI3"",99,0)"
^XMB(3.9,41,2,3764,0)=" .S SUCCESS=1"
^XMB(3.9,41,2,3765,0)="""RTN"",""HLOAPI3"",100,0)"
^XMB(3.9,41,2,3766,0)=" K PARMS"
^XMB(3.9,41,2,3767,0)="""RTN"",""HLOAPI3"",101,0)"
^XMB(3.9,41,2,3768,0)=" Q SUCCESS"
^XMB(3.9,41,2,3769,0)="""RTN"",""HLOAPI3"",102,0)"
^XMB(3.9,41,2,3770,0)=" ;"
^XMB(3.9,41,2,3771,0)="""RTN"",""HLOAPI3"",103,0)"
^XMB(3.9,41,2,3772,0)="RESEND(MSGIEN,ERROR) ;"
^XMB(3.9,41,2,3773,0)="""RTN"",""HLOAPI3"",104,0)"
^XMB(3.9,41,2,3774,0)=" ;Description: This message will re-transmit an out-going message.  It"
^XMB(3.9,41,2,3775,0)="""RTN"",""HLOAPI3"",105,0)"
^XMB(3.9,41,2,3776,0)=" ;does this by making a copy of the message, reusing all the original"
^XMB(3.9,41,2,3777,0)="""RTN"",""HLOAPI3"",106,0)"
^XMB(3.9,41,2,3778,0)=" ;parameters. Then the message is placed on the same out-going queue."
^XMB(3.9,41,2,3779,0)="""RTN"",""HLOAPI3"",107,0)"
^XMB(3.9,41,2,3780,0)=" ;"
^XMB(3.9,41,2,3781,0)="""RTN"",""HLOAPI3"",108,0)"
^XMB(3.9,41,2,3782,0)=" ;Input:"
^XMB(3.9,41,2,3783,0)="""RTN"",""HLOAPI3"",109,0)"
^XMB(3.9,41,2,3784,0)=" ;  MSGIEN - the ien (file #778) of the message that is to be sent"
^XMB(3.9,41,2,3785,0)="""RTN"",""HLOAPI3"",110,0)"
^XMB(3.9,41,2,3786,0)=" ;Output:"
^XMB(3.9,41,2,3787,0)="""RTN"",""HLOAPI3"",111,0)"
^XMB(3.9,41,2,3788,0)=" ;  Function returns the ien of the message in file 778 on success, 0 on failure"
^XMB(3.9,41,2,3789,0)="""RTN"",""HLOAPI3"",112,0)"
^XMB(3.9,41,2,3790,0)=" ;  ERROR (pass by reference, optional) - on failure, will contain an error message"
^XMB(3.9,41,2,3791,0)="""RTN"",""HLOAPI3"",113,0)"
^XMB(3.9,41,2,3792,0)=" ;"
^XMB(3.9,41,2,3793,0)="""RTN"",""HLOAPI3"",114,0)"
^XMB(3.9,41,2,3794,0)=" N MSG,SUB,HDR"
^XMB(3.9,41,2,3795,0)="""RTN"",""HLOAPI3"",115,0)"
^XMB(3.9,41,2,3796,0)=" I '$$STARTMSG^HLOPRS(.MSG,MSGIEN) S ERROR=""MESSAGE NOT FOUND"" Q 0"
^XMB(3.9,41,2,3797,0)="""RTN"",""HLOAPI3"",116,0)"
^XMB(3.9,41,2,3798,0)=" I MSG(""DIRECTION"")'=""OUT"" S ERROR=""MESSAGE IS NOT OUTGOING"" Q 0"
^XMB(3.9,41,2,3799,0)="""RTN"",""HLOAPI3"",117,0)"
^XMB(3.9,41,2,3800,0)=" I MSG(""STATUS"",""LINK NAME"")="""" S ERROR=""LINK NOT DEFINED"" Q 0"
^XMB(3.9,41,2,3801,0)="""RTN"",""HLOAPI3"",118,0)"
^XMB(3.9,41,2,3802,0)=" F SUB=""ID"",""IEN"",""DT/TM"",""ACK BY"",""STATUS"" S MSG(SUB)="""""
^XMB(3.9,41,2,3803,0)="""RTN"",""HLOAPI3"",119,0)"
^XMB(3.9,41,2,3804,0)=" F SUB=""PURGE"" K MSG(""STATUS"",SUB)"
^XMB(3.9,41,2,3805,0)="""RTN"",""HLOAPI3"",120,0)"
^XMB(3.9,41,2,3806,0)=" D GETSYS^HLOAPI(.MSG)"
^XMB(3.9,41,2,3807,0)="""RTN"",""HLOAPI3"",121,0)"
^XMB(3.9,41,2,3808,0)=" I $$SAVEMSG^HLOF778(.MSG) D OUTQUE^HLOQUE(MSG(""STATUS"",""LINK NAME""),$G(MSG(""STATUS"",""PORT"")),MSG(""STATUS"",""QUEUE""),MSG(""IEN"")) Q +MSG(""IEN"")"
^XMB(3.9,41,2,3809,0)="""RTN"",""HLOAPI3"",122,0)"
^XMB(3.9,41,2,3810,0)=" Q 0"
^XMB(3.9,41,2,3811,0)="""RTN"",""HLOAPI3"",123,0)"
^XMB(3.9,41,2,3812,0)=" ;"
^XMB(3.9,41,2,3813,0)="""RTN"",""HLOAPI3"",124,0)"
^XMB(3.9,41,2,3814,0)="SETPURGE(MSGIEN,TIME) ;"
^XMB(3.9,41,2,3815,0)="""RTN"",""HLOAPI3"",125,0)"
^XMB(3.9,41,2,3816,0)=" ;Resets the purge date/time."
^XMB(3.9,41,2,3817,0)="""RTN"",""HLOAPI3"",126,0)"
^XMB(3.9,41,2,3818,0)=" ;Input:"
^XMB(3.9,41,2,3819,0)="""RTN"",""HLOAPI3"",127,0)"
^XMB(3.9,41,2,3820,0)=" ;   MSGIEN (required) ien of the message, file #778"
^XMB(3.9,41,2,3821,0)="""RTN"",""HLOAPI3"",128,0)"
^XMB(3.9,41,2,3822,0)=" ;   TIME (optional) dt/time to set the purge time to, defaults to NOW"
^XMB(3.9,41,2,3823,0)="""RTN"",""HLOAPI3"",129,0)"
^XMB(3.9,41,2,3824,0)=" ;Output:"
^XMB(3.9,41,2,3825,0)="""RTN"",""HLOAPI3"",130,0)"
^XMB(3.9,41,2,3826,0)=" ;   Function returns 1 on success, 0 on failure"
^XMB(3.9,41,2,3827,0)="""RTN"",""HLOAPI3"",131,0)"
^XMB(3.9,41,2,3828,0)=" N NODE,OLDTIME,HLDIR"
^XMB(3.9,41,2,3829,0)="""RTN"",""HLOAPI3"",132,0)"
^XMB(3.9,41,2,3830,0)=" Q:'$G(MSGIEN) 0"
^XMB(3.9,41,2,3831,0)="""RTN"",""HLOAPI3"",133,0)"
^XMB(3.9,41,2,3832,0)=" S NODE=$G(^HLB(MSGIEN,0))"
^XMB(3.9,41,2,3833,0)="""RTN"",""HLOAPI3"",134,0)"
^XMB(3.9,41,2,3834,0)=" Q:NODE="""" 0"
^XMB(3.9,41,2,3835,0)="""RTN"",""HLOAPI3"",135,0)"
^XMB(3.9,41,2,3836,0)=" S OLDTIME=$P(NODE,""^"",9)"
^XMB(3.9,41,2,3837,0)="""RTN"",""HLOAPI3"",136,0)"
^XMB(3.9,41,2,3838,0)=" S:'$G(TIME) TIME=$$NOW^XLFDT"
^XMB(3.9,41,2,3839,0)="""RTN"",""HLOAPI3"",137,0)"
^XMB(3.9,41,2,3840,0)=" S HLDIR=$S($E($P(NODE,""^"",4))=""I"":""IN"",1:""OUT"")"
^XMB(3.9,41,2,3841,0)="""RTN"",""HLOAPI3"",138,0)"
^XMB(3.9,41,2,3842,0)=" K:OLDTIME ^HLB(""AD"",HLDIR,OLDTIME,MSGIEN)"
^XMB(3.9,41,2,3843,0)="""RTN"",""HLOAPI3"",139,0)"
^XMB(3.9,41,2,3844,0)=" S $P(^HLB(MSGIEN,0),""^"",9)=TIME"
^XMB(3.9,41,2,3845,0)="""RTN"",""HLOAPI3"",140,0)"
^XMB(3.9,41,2,3846,0)=" S ^HLB(""AD"",HLDIR,TIME,MSGIEN)="""""
^XMB(3.9,41,2,3847,0)="""RTN"",""HLOAPI3"",141,0)"
^XMB(3.9,41,2,3848,0)=" Q 1"
^XMB(3.9,41,2,3849,0)="""RTN"",""HLOAPI3"",142,0)"
^XMB(3.9,41,2,3850,0)=" ;"
^XMB(3.9,41,2,3851,0)="""RTN"",""HLOAPI3"",143,0)"
^XMB(3.9,41,2,3852,0)="REPROC(MSGIEN,ERROR) ;"
^XMB(3.9,41,2,3853,0)="""RTN"",""HLOAPI3"",144,0)"
^XMB(3.9,41,2,3854,0)=" ;Description: This message will re-process an incoming message by placing it on the appropriate incoming queue. If successful the message is set to be purged."
^XMB(3.9,41,2,3855,0)="""RTN"",""HLOAPI3"",145,0)"
^XMB(3.9,41,2,3856,0)=" ;"
^XMB(3.9,41,2,3857,0)="""RTN"",""HLOAPI3"",146,0)"
^XMB(3.9,41,2,3858,0)=" ;Input:"
^XMB(3.9,41,2,3859,0)="""RTN"",""HLOAPI3"",147,0)"
^XMB(3.9,41,2,3860,0)=" ;  MSGIEN - the ien (file #778) of the message that is to be sent"
^XMB(3.9,41,2,3861,0)="""RTN"",""HLOAPI3"",148,0)"
^XMB(3.9,41,2,3862,0)=" ;Output:"
^XMB(3.9,41,2,3863,0)="""RTN"",""HLOAPI3"",149,0)"
^XMB(3.9,41,2,3864,0)=" ;  Function returns 1 on success, 0 on failure"
^XMB(3.9,41,2,3865,0)="""RTN"",""HLOAPI3"",150,0)"
^XMB(3.9,41,2,3866,0)=" ;  ERROR (pass by reference, optional) - on failure, will contain an error message"
^XMB(3.9,41,2,3867,0)="""RTN"",""HLOAPI3"",151,0)"
^XMB(3.9,41,2,3868,0)=" ;"
^XMB(3.9,41,2,3869,0)="""RTN"",""HLOAPI3"",152,0)"
^XMB(3.9,41,2,3870,0)=" N MSG,HDR,ACTION,QUEUE,FROM"
^XMB(3.9,41,2,3871,0)="""RTN"",""HLOAPI3"",153,0)"
^XMB(3.9,41,2,3872,0)=" ;"
^XMB(3.9,41,2,3873,0)="""RTN"",""HLOAPI3"",154,0)"
^XMB(3.9,41,2,3874,0)=" I '$$STARTMSG^HLOPRS(.MSG,MSGIEN) S ERROR=""MESSAGE NOT FOUND"" Q 0"
^XMB(3.9,41,2,3875,0)="""RTN"",""HLOAPI3"",155,0)"
^XMB(3.9,41,2,3876,0)=" I MSG(""DIRECTION"")'=""IN"" S ERROR=""MESSAGE IS NOT INCOMING"" Q 0"
^XMB(3.9,41,2,3877,0)="""RTN"",""HLOAPI3"",156,0)"
^XMB(3.9,41,2,3878,0)=" M HDR=MSG(""HDR"")"
^XMB(3.9,41,2,3879,0)="""RTN"",""HLOAPI3"",157,0)"
^XMB(3.9,41,2,3880,0)=" I '$$ACTION^HLOAPP(.HDR,.ACTION,.QUEUE),$G(MSG(""ACK TO""))="""" S ERROR=""RECEIVING APPLICATION NOT DEFINED"""
^XMB(3.9,41,2,3881,0)="""RTN"",""HLOAPI3"",158,0)"
^XMB(3.9,41,2,3882,0)=" ;If this message references an earlier message, get the action specified by the original message"
^XMB(3.9,41,2,3883,0)="""RTN"",""HLOAPI3"",159,0)"
^XMB(3.9,41,2,3884,0)=" I $G(MSG(""ACK TO""))]"""" D"
^XMB(3.9,41,2,3885,0)="""RTN"",""HLOAPI3"",160,0)"
^XMB(3.9,41,2,3886,0)=" .N NODE,IEN"
^XMB(3.9,41,2,3887,0)="""RTN"",""HLOAPI3"",161,0)"
^XMB(3.9,41,2,3888,0)=" .S IEN=$O(^HLB(""B"",$P(MSG(""ACK TO""),""-""),0))"
^XMB(3.9,41,2,3889,0)="""RTN"",""HLOAPI3"",162,0)"
^XMB(3.9,41,2,3890,0)=" .S:IEN NODE=$G(^HLB(IEN,0))"
^XMB(3.9,41,2,3891,0)="""RTN"",""HLOAPI3"",163,0)"
^XMB(3.9,41,2,3892,0)=" .I ($P(NODE,""^"",11)]"""") S ACTION=$P(NODE,""^"",10,11),QUEUE=$S($P(NODE,""^"",6)]"""":$P(NODE,""^"",6),1:""DEFAULT"")"
^XMB(3.9,41,2,3893,0)="""RTN"",""HLOAPI3"",164,0)"
^XMB(3.9,41,2,3894,0)=" I ACTION="""" S ERROR=""ORIGINAL MESSAGE NOT FOUND"" Q 0"
^XMB(3.9,41,2,3895,0)="""RTN"",""HLOAPI3"",165,0)"
^XMB(3.9,41,2,3896,0)=" S FROM=$S(MSG(""HDR"",""SENDING FACILITY"",2)]"""":MSG(""HDR"",""SENDING FACILITY"",2),1:MSG(""HDR"",""SENDING FACILITY"",1))"
^XMB(3.9,41,2,3897,0)="""RTN"",""HLOAPI3"",166,0)"
^XMB(3.9,41,2,3898,0)=" D INQUE^HLOQUE(FROM,QUEUE,MSGIEN,ACTION,1)"
^XMB(3.9,41,2,3899,0)="""RTN"",""HLOAPI3"",167,0)"
^XMB(3.9,41,2,3900,0)=" Q 1"
^XMB(3.9,41,2,3901,0)="""RTN"",""HLOAPP"")"
^XMB(3.9,41,2,3902,0)="0^5^B4658819"
^XMB(3.9,41,2,3903,0)="""RTN"",""HLOAPP"",1,0)"
^XMB(3.9,41,2,3904,0)="HLOAPP ;ALB/CJM-HL7 -Application Registry ;02/04/2004"
^XMB(3.9,41,2,3905,0)="""RTN"",""HLOAPP"",2,0)"
^XMB(3.9,41,2,3906,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995"
^XMB(3.9,41,2,3907,0)="""RTN"",""HLOAPP"",3,0)"
^XMB(3.9,41,2,3908,0)=" ;"
^XMB(3.9,41,2,3909,0)="""RTN"",""HLOAPP"",4,0)"
^XMB(3.9,41,2,3910,0)="GETIEN(NAME) ;given the application name, it finds the ien.  Returns 0 on failure"
^XMB(3.9,41,2,3911,0)="""RTN"",""HLOAPP"",5,0)"
^XMB(3.9,41,2,3912,0)=" Q:'$L($G(NAME)) 0"
^XMB(3.9,41,2,3913,0)="""RTN"",""HLOAPP"",6,0)"
^XMB(3.9,41,2,3914,0)=" N IEN,SUB"
^XMB(3.9,41,2,3915,0)="""RTN"",""HLOAPP"",7,0)"
^XMB(3.9,41,2,3916,0)=" S SUB=$E(NAME,1,60)"
^XMB(3.9,41,2,3917,0)="""RTN"",""HLOAPP"",8,0)"
^XMB(3.9,41,2,3918,0)=" S IEN=0"
^XMB(3.9,41,2,3919,0)="""RTN"",""HLOAPP"",9,0)"
^XMB(3.9,41,2,3920,0)=" F  S IEN=$O(^HLD(779.2,""B"",SUB,IEN)) Q:'IEN  Q:$P($G(^HLD(779.2,IEN,0)),""^"")=NAME"
^XMB(3.9,41,2,3921,0)="""RTN"",""HLOAPP"",10,0)"
^XMB(3.9,41,2,3922,0)=" Q +IEN"
^XMB(3.9,41,2,3923,0)="""RTN"",""HLOAPP"",11,0)"
^XMB(3.9,41,2,3924,0)=" ;"
^XMB(3.9,41,2,3925,0)="""RTN"",""HLOAPP"",12,0)"
^XMB(3.9,41,2,3926,0)="ACTION(HEADER,ACTION,QUEUE) ;Given the parsed header of a message it returns both the action that should be performed in response to the message and the incoming queue that it should be placed on."
^XMB(3.9,41,2,3927,0)="""RTN"",""HLOAPP"",13,0)"
^XMB(3.9,41,2,3928,0)=" ;"
^XMB(3.9,41,2,3929,0)="""RTN"",""HLOAPP"",14,0)"
^XMB(3.9,41,2,3930,0)=" ;Input:"
^XMB(3.9,41,2,3931,0)="""RTN"",""HLOAPP"",15,0)"
^XMB(3.9,41,2,3932,0)=" ;  HEADER() subscripts are used: ""RECEIVING APPLICATION"",""SEGMENT TYPE"", ""MESSAGE TYPE"", ""EVENT"""
^XMB(3.9,41,2,3933,0)="""RTN"",""HLOAPP"",16,0)"
^XMB(3.9,41,2,3934,0)=" ;Output:"
^XMB(3.9,41,2,3935,0)="""RTN"",""HLOAPP"",17,0)"
^XMB(3.9,41,2,3936,0)=" ;  Function returns 1 on success, 0 on failure"
^XMB(3.9,41,2,3937,0)="""RTN"",""HLOAPP"",18,0)"
^XMB(3.9,41,2,3938,0)=" ;  ACTION (pass by reference) <tag>^<rtn>"
^XMB(3.9,41,2,3939,0)="""RTN"",""HLOAPP"",19,0)"
^XMB(3.9,41,2,3940,0)=" ;  QUEUE (pass by reference) returns the named queue if there is one, else ""DEFAULT"""
^XMB(3.9,41,2,3941,0)="""RTN"",""HLOAPP"",20,0)"
^XMB(3.9,41,2,3942,0)=" ;"
^XMB(3.9,41,2,3943,0)="""RTN"",""HLOAPP"",21,0)"
^XMB(3.9,41,2,3944,0)=" N IEN"
^XMB(3.9,41,2,3945,0)="""RTN"",""HLOAPP"",22,0)"
^XMB(3.9,41,2,3946,0)=" S (ACTION,QUEUE)="""""
^XMB(3.9,41,2,3947,0)="""RTN"",""HLOAPP"",23,0)"
^XMB(3.9,41,2,3948,0)=" S IEN=$$GETIEN(HEADER(""RECEIVING APPLICATION""))"
^XMB(3.9,41,2,3949,0)="""RTN"",""HLOAPP"",24,0)"
^XMB(3.9,41,2,3950,0)=" Q:'$G(IEN) 0"
^XMB(3.9,41,2,3951,0)="""RTN"",""HLOAPP"",25,0)"
^XMB(3.9,41,2,3952,0)=" I $G(HEADER(""SEGMENT TYPE""))=""BHS"" D"
^XMB(3.9,41,2,3953,0)="""RTN"",""HLOAPP"",26,0)"
^XMB(3.9,41,2,3954,0)=" .S NODE=$G(^HLD(779.2,IEN,0))"
^XMB(3.9,41,2,3955,0)="""RTN"",""HLOAPP"",27,0)"
^XMB(3.9,41,2,3956,0)=" .I $P(NODE,""^"",5)]"""" D"
^XMB(3.9,41,2,3957,0)="""RTN"",""HLOAPP"",28,0)"
^XMB(3.9,41,2,3958,0)=" ..S ACTION=$P(NODE,""^"",4,5)"
^XMB(3.9,41,2,3959,0)="""RTN"",""HLOAPP"",29,0)"
^XMB(3.9,41,2,3960,0)=" .E  I $P(NODE,""^"",7)]"""" S ACTION=$P(NODE,""^"",6,7)"
^XMB(3.9,41,2,3961,0)="""RTN"",""HLOAPP"",30,0)"
^XMB(3.9,41,2,3962,0)=" .I $P(NODE,""^"",8)]"""" D"
^XMB(3.9,41,2,3963,0)="""RTN"",""HLOAPP"",31,0)"
^XMB(3.9,41,2,3964,0)=" ..S QUEUE=$P(NODE,""^"",8)"
^XMB(3.9,41,2,3965,0)="""RTN"",""HLOAPP"",32,0)"
^XMB(3.9,41,2,3966,0)=" .E  I $P(NODE,""^"",3)]"""" S QUEUE=$P(NODE,""^"",3)"
^XMB(3.9,41,2,3967,0)="""RTN"",""HLOAPP"",33,0)"
^XMB(3.9,41,2,3968,0)=" E  I HEADER(""SEGMENT TYPE"")=""MSH"" D"
^XMB(3.9,41,2,3969,0)="""RTN"",""HLOAPP"",34,0)"
^XMB(3.9,41,2,3970,0)=" .I HEADER(""MESSAGE TYPE"")'="""",HEADER(""EVENT"")'="""" D"
^XMB(3.9,41,2,3971,0)="""RTN"",""HLOAPP"",35,0)"
^XMB(3.9,41,2,3972,0)=" ..N SUBIEN,NODE"
^XMB(3.9,41,2,3973,0)="""RTN"",""HLOAPP"",36,0)"
^XMB(3.9,41,2,3974,0)=" ..S SUBIEN=$O(^HLD(779.2,IEN,1,""C"",HEADER(""MESSAGE TYPE""),HEADER(""EVENT""),0))"
^XMB(3.9,41,2,3975,0)="""RTN"",""HLOAPP"",37,0)"
^XMB(3.9,41,2,3976,0)=" ..I SUBIEN D"
^XMB(3.9,41,2,3977,0)="""RTN"",""HLOAPP"",38,0)"
^XMB(3.9,41,2,3978,0)=" ...S NODE=$G(^HLD(779.2,IEN,1,SUBIEN,0))"
^XMB(3.9,41,2,3979,0)="""RTN"",""HLOAPP"",39,0)"
^XMB(3.9,41,2,3980,0)=" ...I $P(NODE,""^"",5)]"""" S ACTION=$P(NODE,""^"",4,5)"
^XMB(3.9,41,2,3981,0)="""RTN"",""HLOAPP"",40,0)"
^XMB(3.9,41,2,3982,0)=" ...I $P(NODE,""^"",3)]"""" S QUEUE=$P(NODE,""^"",3)"
^XMB(3.9,41,2,3983,0)="""RTN"",""HLOAPP"",41,0)"
^XMB(3.9,41,2,3984,0)=" ..I ACTION="""" S NODE=$G(^HLD(779.2,IEN,0)) I $P(NODE,""^"",7)]"""" S ACTION=$P(NODE,""^"",6,7)"
^XMB(3.9,41,2,3985,0)="""RTN"",""HLOAPP"",42,0)"
^XMB(3.9,41,2,3986,0)=" ..I QUEUE="""" S NODE=$G(^HLD(779.2,IEN,0)) I $P(NODE,""^"",3)]"""" S QUEUE=$P(NODE,""^"",3)"
^XMB(3.9,41,2,3987,0)="""RTN"",""HLOAPP"",43,0)"
^XMB(3.9,41,2,3988,0)=" I QUEUE="""" S QUEUE=""DEFAULT"""
^XMB(3.9,41,2,3989,0)="""RTN"",""HLOAPP"",44,0)"
^XMB(3.9,41,2,3990,0)=" I ACTION="""" Q 0"
^XMB(3.9,41,2,3991,0)="""RTN"",""HLOAPP"",45,0)"
^XMB(3.9,41,2,3992,0)=" Q 1"
^XMB(3.9,41,2,3993,0)="""RTN"",""HLOAPP"",46,0)"
^XMB(3.9,41,2,3994,0)=" ;"
^XMB(3.9,41,2,3995,0)="""RTN"",""HLOAPP"",47,0)"
^XMB(3.9,41,2,3996,0)="RTRNLNK(APPNAME) ;"
^XMB(3.9,41,2,3997,0)="""RTN"",""HLOAPP"",48,0)"
^XMB(3.9,41,2,3998,0)=" ;given the name of a receiving application, this returns the return"
^XMB(3.9,41,2,3999,0)="""RTN"",""HLOAPP"",49,0)"
^XMB(3.9,41,2,4000,0)=" ;link for application acks if one is provided.  Otherwise, return"
^XMB(3.9,41,2,4001,0)="""RTN"",""HLOAPP"",50,0)"
^XMB(3.9,41,2,4002,0)=" ;acks are routed based on the information provide in the message hdr"
^XMB(3.9,41,2,4003,0)="""RTN"",""HLOAPP"",51,0)"
^XMB(3.9,41,2,4004,0)=" ;"
^XMB(3.9,41,2,4005,0)="""RTN"",""HLOAPP"",52,0)"
^XMB(3.9,41,2,4006,0)=" Q:(APPNAME="""") """""
^XMB(3.9,41,2,4007,0)="""RTN"",""HLOAPP"",53,0)"
^XMB(3.9,41,2,4008,0)=" N IEN"
^XMB(3.9,41,2,4009,0)="""RTN"",""HLOAPP"",54,0)"
^XMB(3.9,41,2,4010,0)=" S IEN=$$GETIEN(APPNAME)"
^XMB(3.9,41,2,4011,0)="""RTN"",""HLOAPP"",55,0)"
^XMB(3.9,41,2,4012,0)=" Q:IEN $P($G(^HLD(779.2,IEN,0)),""^"",2)"
^XMB(3.9,41,2,4013,0)="""RTN"",""HLOAPP"",56,0)"
^XMB(3.9,41,2,4014,0)=" Q """""
^XMB(3.9,41,2,4015,0)="""RTN"",""HLOAPP"",57,0)"
^XMB(3.9,41,2,4016,0)=" ;"
^XMB(3.9,41,2,4017,0)="""RTN"",""HLOAPP"",58,0)"
^XMB(3.9,41,2,4018,0)="RTRNPORT(APPNAME) ;"
^XMB(3.9,41,2,4019,0)="""RTN"",""HLOAPP"",59,0)"
^XMB(3.9,41,2,4020,0)=" ;Given the name of the sending application, IF the application has its"
^XMB(3.9,41,2,4021,0)="""RTN"",""HLOAPP"",60,0)"
^XMB(3.9,41,2,4022,0)=" ;own listener, its port # is returned.  Application acks should be"
^XMB(3.9,41,2,4023,0)="""RTN"",""HLOAPP"",61,0)"
^XMB(3.9,41,2,4024,0)=" ;returned using that port"
^XMB(3.9,41,2,4025,0)="""RTN"",""HLOAPP"",62,0)"
^XMB(3.9,41,2,4026,0)=" Q:(APPNAME="""") """""
^XMB(3.9,41,2,4027,0)="""RTN"",""HLOAPP"",63,0)"
^XMB(3.9,41,2,4028,0)=" N IEN,LINK"
^XMB(3.9,41,2,4029,0)="""RTN"",""HLOAPP"",64,0)"
^XMB(3.9,41,2,4030,0)=" S IEN=$$GETIEN(APPNAME)"
^XMB(3.9,41,2,4031,0)="""RTN"",""HLOAPP"",65,0)"
^XMB(3.9,41,2,4032,0)=" Q:'IEN """""
^XMB(3.9,41,2,4033,0)="""RTN"",""HLOAPP"",66,0)"
^XMB(3.9,41,2,4034,0)=" S LINK=$P($G(^HLD(779.2,IEN,0)),""^"",9)"
^XMB(3.9,41,2,4035,0)="""RTN"",""HLOAPP"",67,0)"
^XMB(3.9,41,2,4036,0)=" Q:'LINK """""
^XMB(3.9,41,2,4037,0)="""RTN"",""HLOAPP"",68,0)"
^XMB(3.9,41,2,4038,0)=" Q $$PORT^HLOTLNK(LINK)"
^XMB(3.9,41,2,4039,0)="""RTN"",""HLOASUB"")"
^XMB(3.9,41,2,4040,0)="0^6^B20309588"
^XMB(3.9,41,2,4041,0)="""RTN"",""HLOASUB"",1,0)"
^XMB(3.9,41,2,4042,0)="HLOASUB ;IRMFO-ALB/CJM - Subscription Registry ;03/24/2004  14:43"
^XMB(3.9,41,2,4043,0)="""RTN"",""HLOASUB"",2,0)"
^XMB(3.9,41,2,4044,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995"
^XMB(3.9,41,2,4045,0)="""RTN"",""HLOASUB"",3,0)"
^XMB(3.9,41,2,4046,0)=" ;"
^XMB(3.9,41,2,4047,0)="""RTN"",""HLOASUB"",4,0)"
^XMB(3.9,41,2,4048,0)="CREATE(OWNER,DESCRIP,ERROR) ;"
^XMB(3.9,41,2,4049,0)="""RTN"",""HLOASUB"",5,0)"
^XMB(3.9,41,2,4050,0)=" ;This API is used to create a new entry in the HLO Subscription Registry."
^XMB(3.9,41,2,4051,0)="""RTN"",""HLOASUB"",6,0)"
^XMB(3.9,41,2,4052,0)=" ;Input:"
^XMB(3.9,41,2,4053,0)="""RTN"",""HLOASUB"",7,0)"
^XMB(3.9,41,2,4054,0)=" ;  OWNER - (required) The name of the owning application. The name of the owner. It should be prefixed with the package namespace to ensure uniqueness."
^XMB(3.9,41,2,4055,0)="""RTN"",""HLOASUB"",8,0)"
^XMB(3.9,41,2,4056,0)=" ;  DESCRIPTION - (optional) a brief (1 line) description"
^XMB(3.9,41,2,4057,0)="""RTN"",""HLOASUB"",9,0)"
^XMB(3.9,41,2,4058,0)=" ;Output:"
^XMB(3.9,41,2,4059,0)="""RTN"",""HLOASUB"",10,0)"
^XMB(3.9,41,2,4060,0)=" ;  Function returns new file 779.4 ien, or 0 if error"
^XMB(3.9,41,2,4061,0)="""RTN"",""HLOASUB"",11,0)"
^XMB(3.9,41,2,4062,0)=" ;  ERROR (optional, pass by reference) an message on error"
^XMB(3.9,41,2,4063,0)="""RTN"",""HLOASUB"",12,0)"
^XMB(3.9,41,2,4064,0)=" ;"
^XMB(3.9,41,2,4065,0)="""RTN"",""HLOASUB"",13,0)"
^XMB(3.9,41,2,4066,0)=" N IEN,DATA"
^XMB(3.9,41,2,4067,0)="""RTN"",""HLOASUB"",14,0)"
^XMB(3.9,41,2,4068,0)=" K ERROR"
^XMB(3.9,41,2,4069,0)="""RTN"",""HLOASUB"",15,0)"
^XMB(3.9,41,2,4070,0)=" I '$L($G(OWNER)) S ERROR=""OWNER NOT SPECIFIED"" Q 0"
^XMB(3.9,41,2,4071,0)="""RTN"",""HLOASUB"",16,0)"
^XMB(3.9,41,2,4072,0)=" L +^HLD(779.4,0):60"
^XMB(3.9,41,2,4073,0)="""RTN"",""HLOASUB"",17,0)"
^XMB(3.9,41,2,4074,0)=" I '$T S ERROR=""UNABLE TO LOCK THE HL7 SUBSCRIPTION REGISTRY"" Q 0"
^XMB(3.9,41,2,4075,0)="""RTN"",""HLOASUB"",18,0)"
^XMB(3.9,41,2,4076,0)=" S IEN=$O(^HLD(779.4,"":""),-1),IEN=IEN+1"
^XMB(3.9,41,2,4077,0)="""RTN"",""HLOASUB"",19,0)"
^XMB(3.9,41,2,4078,0)=" L -^HLD(779.4,0)"
^XMB(3.9,41,2,4079,0)="""RTN"",""HLOASUB"",20,0)"
^XMB(3.9,41,2,4080,0)=" S DATA(.01)=IEN"
^XMB(3.9,41,2,4081,0)="""RTN"",""HLOASUB"",21,0)"
^XMB(3.9,41,2,4082,0)=" S DATA(.02)=OWNER"
^XMB(3.9,41,2,4083,0)="""RTN"",""HLOASUB"",22,0)"
^XMB(3.9,41,2,4084,0)=" S DATA(.03)=$G(DESCRIP)"
^XMB(3.9,41,2,4085,0)="""RTN"",""HLOASUB"",23,0)"
^XMB(3.9,41,2,4086,0)=" Q $$ADD^HLOASUB1(779.4,,.DATA,.ERROR,IEN)"
^XMB(3.9,41,2,4087,0)="""RTN"",""HLOASUB"",24,0)"
^XMB(3.9,41,2,4088,0)=" ;"
^XMB(3.9,41,2,4089,0)="""RTN"",""HLOASUB"",25,0)"
^XMB(3.9,41,2,4090,0)="ONLIST(IEN,LINKIEN,APPNAME,FAC1,FAC2,FAC3) ;"
^XMB(3.9,41,2,4091,0)="""RTN"",""HLOASUB"",26,0)"
^XMB(3.9,41,2,4092,0)=" ;Determines whether the recipient is already on the subscription list."
^XMB(3.9,41,2,4093,0)="""RTN"",""HLOASUB"",27,0)"
^XMB(3.9,41,2,4094,0)=" ;Input:"
^XMB(3.9,41,2,4095,0)="""RTN"",""HLOASUB"",28,0)"
^XMB(3.9,41,2,4096,0)=" ;  IEN - (required) ien of the subscription list"
^XMB(3.9,41,2,4097,0)="""RTN"",""HLOASUB"",29,0)"
^XMB(3.9,41,2,4098,0)=" ;  LINKIEN - ien of the logical link"
^XMB(3.9,41,2,4099,0)="""RTN"",""HLOASUB"",30,0)"
^XMB(3.9,41,2,4100,0)=" ;  APPNAME - receiving application"
^XMB(3.9,41,2,4101,0)="""RTN"",""HLOASUB"",31,0)"
^XMB(3.9,41,2,4102,0)=" ;  FAC1 -  component 1 of the receiving facility"
^XMB(3.9,41,2,4103,0)="""RTN"",""HLOASUB"",32,0)"
^XMB(3.9,41,2,4104,0)=" ;  FAC2 - component 2"
^XMB(3.9,41,2,4105,0)="""RTN"",""HLOASUB"",33,0)"
^XMB(3.9,41,2,4106,0)=" ;  FAC3 - component 3"
^XMB(3.9,41,2,4107,0)="""RTN"",""HLOASUB"",34,0)"
^XMB(3.9,41,2,4108,0)=" ;Output:"
^XMB(3.9,41,2,4109,0)="""RTN"",""HLOASUB"",35,0)"
^XMB(3.9,41,2,4110,0)=" ;  Function returns 0 if not found, otherwise the ien in the subfile"
^XMB(3.9,41,2,4111,0)="""RTN"",""HLOASUB"",36,0)"
^XMB(3.9,41,2,4112,0)=" ;"
^XMB(3.9,41,2,4113,0)="""RTN"",""HLOASUB"",37,0)"
^XMB(3.9,41,2,4114,0)=" Q +$O(^HLD(779.4,IEN,2,""AD"",APPNAME,LINKIEN,FAC1_FAC2_FAC3,0))"
^XMB(3.9,41,2,4115,0)="""RTN"",""HLOASUB"",38,0)"
^XMB(3.9,41,2,4116,0)=" ;"
^XMB(3.9,41,2,4117,0)="""RTN"",""HLOASUB"",39,0)"
^XMB(3.9,41,2,4118,0)="ADD(IEN,WHO,ERROR) ;"
^XMB(3.9,41,2,4119,0)="""RTN"",""HLOASUB"",40,0)"
^XMB(3.9,41,2,4120,0)=" ;Adds a new recipient to the list of recipients for this Subscription Registry Entry."
^XMB(3.9,41,2,4121,0)="""RTN"",""HLOASUB"",41,0)"
^XMB(3.9,41,2,4122,0)=" ;Input:"
^XMB(3.9,41,2,4123,0)="""RTN"",""HLOASUB"",42,0)"
^XMB(3.9,41,2,4124,0)=" ;  IEN- the ien of the entry in the HL7 SUBSCRIPTION REGISTRY file."
^XMB(3.9,41,2,4125,0)="""RTN"",""HLOASUB"",43,0)"
^XMB(3.9,41,2,4126,0)=" ;  WHO (pass by reference) an array containing the information for a single new"
^XMB(3.9,41,2,4127,0)="""RTN"",""HLOASUB"",44,0)"
^XMB(3.9,41,2,4128,0)=" ;    recipient to be added to the list. These subscripts are allowed:"
^XMB(3.9,41,2,4129,0)="""RTN"",""HLOASUB"",45,0)"
^XMB(3.9,41,2,4130,0)=" ;"
^XMB(3.9,41,2,4131,0)="""RTN"",""HLOASUB"",46,0)"
^XMB(3.9,41,2,4132,0)=" ;    ""RECEIVING APPLICATION"" - (string, 60 char max, required)"
^XMB(3.9,41,2,4133,0)="""RTN"",""HLOASUB"",47,0)"
^XMB(3.9,41,2,4134,0)=" ;"
^XMB(3.9,41,2,4135,0)="""RTN"",""HLOASUB"",48,0)"
^XMB(3.9,41,2,4136,0)=" ;  EXACTLY ONE of these parameters must be provided to identify the Receiving Facility:"
^XMB(3.9,41,2,4137,0)="""RTN"",""HLOASUB"",49,0)"
^XMB(3.9,41,2,4138,0)=" ;"
^XMB(3.9,41,2,4139,0)="""RTN"",""HLOASUB"",50,0)"
^XMB(3.9,41,2,4140,0)=" ;   ""FACILITY LINK IEN"" - ien of the logical link "
^XMB(3.9,41,2,4141,0)="""RTN"",""HLOASUB"",51,0)"
^XMB(3.9,41,2,4142,0)=" ;   ""FACILITY LINK NAME"" - name of the logical link "
^XMB(3.9,41,2,4143,0)="""RTN"",""HLOASUB"",52,0)"
^XMB(3.9,41,2,4144,0)=" ;   ""INSTITUTION IEN"" - ptr to the INSTITUTION file"
^XMB(3.9,41,2,4145,0)="""RTN"",""HLOASUB"",53,0)"
^XMB(3.9,41,2,4146,0)=" ;   ""STATION NUMBER"" -  station # with suffix"
^XMB(3.9,41,2,4147,0)="""RTN"",""HLOASUB"",54,0)"
^XMB(3.9,41,2,4148,0)=" ;"
^XMB(3.9,41,2,4149,0)="""RTN"",""HLOASUB"",55,0)"
^XMB(3.9,41,2,4150,0)=" ;  EXACTLY ONE of these MAY be provided - optionally - to identify the interface engine to route the message through:"
^XMB(3.9,41,2,4151,0)="""RTN"",""HLOASUB"",56,0)"
^XMB(3.9,41,2,4152,0)=" ;"
^XMB(3.9,41,2,4153,0)="""RTN"",""HLOASUB"",57,0)"
^XMB(3.9,41,2,4154,0)=" ;   ""IE LINK IEN"" -  ptr to a logical link for the interface engine "
^XMB(3.9,41,2,4155,0)="""RTN"",""HLOASUB"",58,0)"
^XMB(3.9,41,2,4156,0)=" ;   ""IE LINK NAME"" - name of the logical link for the interface engine"
^XMB(3.9,41,2,4157,0)="""RTN"",""HLOASUB"",59,0)"
^XMB(3.9,41,2,4158,0)=" ;"
^XMB(3.9,41,2,4159,0)="""RTN"",""HLOASUB"",60,0)"
^XMB(3.9,41,2,4160,0)=" ;"
^XMB(3.9,41,2,4161,0)="""RTN"",""HLOASUB"",61,0)"
^XMB(3.9,41,2,4162,0)=" ;Output:"
^XMB(3.9,41,2,4163,0)="""RTN"",""HLOASUB"",62,0)"
^XMB(3.9,41,2,4164,0)=" ;   Function returns on success the ien of the recipient on the RECIPIENTS multiple , or 0 on failure"
^XMB(3.9,41,2,4165,0)="""RTN"",""HLOASUB"",63,0)"
^XMB(3.9,41,2,4166,0)=" ;   WHO - left undefined when this function returns"
^XMB(3.9,41,2,4167,0)="""RTN"",""HLOASUB"",64,0)"
^XMB(3.9,41,2,4168,0)=" ;   ERROR (optional, pass by reference) These error messages may be returned:"
^XMB(3.9,41,2,4169,0)="""RTN"",""HLOASUB"",65,0)"
^XMB(3.9,41,2,4170,0)=" ;SUBSCRIPTION REGISTRY ENTRY NOT FOUND"
^XMB(3.9,41,2,4171,0)="""RTN"",""HLOASUB"",66,0)"
^XMB(3.9,41,2,4172,0)=" ;RECEIVING FACILTY LOGICAL LINK NOT FOUND"
^XMB(3.9,41,2,4173,0)="""RTN"",""HLOASUB"",67,0)"
^XMB(3.9,41,2,4174,0)=" ;RECEIVING APPLICATION NOT FOUND"
^XMB(3.9,41,2,4175,0)="""RTN"",""HLOASUB"",68,0)"
^XMB(3.9,41,2,4176,0)=" ;INTERFACE ENGINE LOGICAL LINK PROVIDED BUT NOT FOUND"
^XMB(3.9,41,2,4177,0)="""RTN"",""HLOASUB"",69,0)"
^XMB(3.9,41,2,4178,0)=" ;FAILED TO ACTIVATE SUBSCRIBER"
^XMB(3.9,41,2,4179,0)="""RTN"",""HLOASUB"",70,0)"
^XMB(3.9,41,2,4180,0)=" ;"
^XMB(3.9,41,2,4181,0)="""RTN"",""HLOASUB"",71,0)"
^XMB(3.9,41,2,4182,0)=" N PARMS,SUBIEN,DATA,DA,OK"
^XMB(3.9,41,2,4183,0)="""RTN"",""HLOASUB"",72,0)"
^XMB(3.9,41,2,4184,0)=" K ERROR"
^XMB(3.9,41,2,4185,0)="""RTN"",""HLOASUB"",73,0)"
^XMB(3.9,41,2,4186,0)=" S OK=0"
^XMB(3.9,41,2,4187,0)="""RTN"",""HLOASUB"",74,0)"
^XMB(3.9,41,2,4188,0)=" D"
^XMB(3.9,41,2,4189,0)="""RTN"",""HLOASUB"",75,0)"
^XMB(3.9,41,2,4190,0)=" .I '$G(IEN) S ERROR=""SUBSCRIPITION REGISTRY ENTRY NOT FOUND"" Q"
^XMB(3.9,41,2,4191,0)="""RTN"",""HLOASUB"",76,0)"
^XMB(3.9,41,2,4192,0)=" .Q:'$$CHECKWHO^HLOASUB1(.WHO,.PARMS,.ERROR)"
^XMB(3.9,41,2,4193,0)="""RTN"",""HLOASUB"",77,0)"
^XMB(3.9,41,2,4194,0)=" .S SUBIEN=$$ONLIST(IEN,PARMS(""LINK IEN""),PARMS(""RECEIVING APPLICATION""),PARMS(""RECEIVING FACILITY"",1),PARMS(""RECEIVING FACILITY"",2),PARMS(""RECEIVING FACILITY"",3))"
^XMB(3.9,41,2,4195,0)="""RTN"",""HLOASUB"",78,0)"
^XMB(3.9,41,2,4196,0)=" .I SUBIEN S OK=1 D  Q"
^XMB(3.9,41,2,4197,0)="""RTN"",""HLOASUB"",79,0)"
^XMB(3.9,41,2,4198,0)=" ..S DA=SUBIEN,DA(1)=IEN"
^XMB(3.9,41,2,4199,0)="""RTN"",""HLOASUB"",80,0)"
^XMB(3.9,41,2,4200,0)=" ..I $P(^HLD(779.4,IEN,2,SUBIEN,1),""^"",2) S DATA(1.01)=$$NOW^XLFDT,DATA(1.02)="""" S OK=$$UPD^HLOASUB1(779.41,.DA,.DATA) I 'OK S ERROR=""FAILED TO ACTIVATE SUBSCRIBER"""
^XMB(3.9,41,2,4201,0)="""RTN"",""HLOASUB"",81,0)"
^XMB(3.9,41,2,4202,0)=" .;"
^XMB(3.9,41,2,4203,0)="""RTN"",""HLOASUB"",82,0)"
^XMB(3.9,41,2,4204,0)=" .S DA(1)=IEN"
^XMB(3.9,41,2,4205,0)="""RTN"",""HLOASUB"",83,0)"
^XMB(3.9,41,2,4206,0)=" .S DATA(.01)=PARMS(""RECEIVING APPLICATION"")"
^XMB(3.9,41,2,4207,0)="""RTN"",""HLOASUB"",84,0)"
^XMB(3.9,41,2,4208,0)=" .S DATA(.02)=PARMS(""LINK IEN"")"
^XMB(3.9,41,2,4209,0)="""RTN"",""HLOASUB"",85,0)"
^XMB(3.9,41,2,4210,0)=" .S DATA(.03)=PARMS(""RECEIVING FACILITY"",1)"
^XMB(3.9,41,2,4211,0)="""RTN"",""HLOASUB"",86,0)"
^XMB(3.9,41,2,4212,0)=" .S DATA(.04)=PARMS(""RECEIVING FACILITY"",2)"
^XMB(3.9,41,2,4213,0)="""RTN"",""HLOASUB"",87,0)"
^XMB(3.9,41,2,4214,0)=" .S DATA(.05)=PARMS(""RECEIVING FACILITY"",3)"
^XMB(3.9,41,2,4215,0)="""RTN"",""HLOASUB"",88,0)"
^XMB(3.9,41,2,4216,0)=" .S DATA(1.01)=$$NOW^XLFDT"
^XMB(3.9,41,2,4217,0)="""RTN"",""HLOASUB"",89,0)"
^XMB(3.9,41,2,4218,0)=" .S OK=$$ADD^HLOASUB1(779.41,.DA,.DATA,.ERROR)"
^XMB(3.9,41,2,4219,0)="""RTN"",""HLOASUB"",90,0)"
^XMB(3.9,41,2,4220,0)=" K WHO"
^XMB(3.9,41,2,4221,0)="""RTN"",""HLOASUB"",91,0)"
^XMB(3.9,41,2,4222,0)=" Q OK"
^XMB(3.9,41,2,4223,0)="""RTN"",""HLOASUB"",92,0)"
^XMB(3.9,41,2,4224,0)=" ;"
^XMB(3.9,41,2,4225,0)="""RTN"",""HLOASUB"",93,0)"
^XMB(3.9,41,2,4226,0)="NEXT(IEN,RECIP) ;"
^XMB(3.9,41,2,4227,0)="""RTN"",""HLOASUB"",94,0)"
^XMB(3.9,41,2,4228,0)=" ;gets the next recipient on the list. It ignores recipients"
^XMB(3.9,41,2,4229,0)="""RTN"",""HLOASUB"",95,0)"
^XMB(3.9,41,2,4230,0)=" ;that have a value for the DT/TM DELETED field."
^XMB(3.9,41,2,4231,0)="""RTN"",""HLOASUB"",96,0)"
^XMB(3.9,41,2,4232,0)=" ;Input:"
^XMB(3.9,41,2,4233,0)="""RTN"",""HLOASUB"",97,0)"
^XMB(3.9,41,2,4234,0)=" ;  IEN (required) - the IEN assigned to this subscription"
^XMB(3.9,41,2,4235,0)="""RTN"",""HLOASUB"",98,0)"
^XMB(3.9,41,2,4236,0)=" ;  RECIP - if empty, it gets the first recipient on the list, else it uses the value of RECIP(""SUBIEN"") to find the next recipient"
^XMB(3.9,41,2,4237,0)="""RTN"",""HLOASUB"",99,0)"
^XMB(3.9,41,2,4238,0)=" ;Output:"
^XMB(3.9,41,2,4239,0)="""RTN"",""HLOASUB"",100,0)"
^XMB(3.9,41,2,4240,0)=" ;RECIP(pass by reference, required) - returns the next recipient on the list. These subscripts are returned:"
^XMB(3.9,41,2,4241,0)="""RTN"",""HLOASUB"",101,0)"
^XMB(3.9,41,2,4242,0)=" ;  ""LINK IEN"""
^XMB(3.9,41,2,4243,0)="""RTN"",""HLOASUB"",102,0)"
^XMB(3.9,41,2,4244,0)=" ;  ""LINK NAME"""
^XMB(3.9,41,2,4245,0)="""RTN"",""HLOASUB"",103,0)"
^XMB(3.9,41,2,4246,0)=" ;  ""RECEIVING APPLICATION"" "
^XMB(3.9,41,2,4247,0)="""RTN"",""HLOASUB"",104,0)"
^XMB(3.9,41,2,4248,0)=" ; (""RECEIVING FACILITY"",1)  - Component 1"
^XMB(3.9,41,2,4249,0)="""RTN"",""HLOASUB"",105,0)"
^XMB(3.9,41,2,4250,0)=" ; (""RECEIVING FACILITY"",2)  - Component 2"
^XMB(3.9,41,2,4251,0)="""RTN"",""HLOASUB"",106,0)"
^XMB(3.9,41,2,4252,0)=" ; (""RECEIVING FACILITY"",3)  - Component 2"
^XMB(3.9,41,2,4253,0)="""RTN"",""HLOASUB"",107,0)"
^XMB(3.9,41,2,4254,0)=" ;  ""SUBIEN"" - the ien in the multiple, used to find the next on the list.  "
^XMB(3.9,41,2,4255,0)="""RTN"",""HLOASUB"",108,0)"
^XMB(3.9,41,2,4256,0)=" ;Function Value - IEN in the subfile on success, 0 if there are no more recipients found on the list (in which case, set ""SUBIEN""=-1, set all other subscripts to """""
^XMB(3.9,41,2,4257,0)="""RTN"",""HLOASUB"",109,0)"
^XMB(3.9,41,2,4258,0)=" ;"
^XMB(3.9,41,2,4259,0)="""RTN"",""HLOASUB"",110,0)"
^XMB(3.9,41,2,4260,0)=" N LAST,NEXT,NODE"
^XMB(3.9,41,2,4261,0)="""RTN"",""HLOASUB"",111,0)"
^XMB(3.9,41,2,4262,0)=" S LAST=+$G(RECIP(""SUBIEN""))"
^XMB(3.9,41,2,4263,0)="""RTN"",""HLOASUB"",112,0)"
^XMB(3.9,41,2,4264,0)=" Q:(LAST=-1) 0"
^XMB(3.9,41,2,4265,0)="""RTN"",""HLOASUB"",113,0)"
^XMB(3.9,41,2,4266,0)=" Q:'$G(IEN) 0"
^XMB(3.9,41,2,4267,0)="""RTN"",""HLOASUB"",114,0)"
^XMB(3.9,41,2,4268,0)=" S NEXT=$O(^HLD(779.4,IEN,2,""AC"",LAST))"
^XMB(3.9,41,2,4269,0)="""RTN"",""HLOASUB"",115,0)"
^XMB(3.9,41,2,4270,0)=" I 'NEXT D  Q 0"
^XMB(3.9,41,2,4271,0)="""RTN"",""HLOASUB"",116,0)"
^XMB(3.9,41,2,4272,0)=" .S RECIP(""RECEIVING APPLICATION"")="""""
^XMB(3.9,41,2,4273,0)="""RTN"",""HLOASUB"",117,0)"
^XMB(3.9,41,2,4274,0)=" .S RECIP(""LINK IEN"")="""""
^XMB(3.9,41,2,4275,0)="""RTN"",""HLOASUB"",118,0)"
^XMB(3.9,41,2,4276,0)=" .S RECIP(""LINK NAME"")="""""
^XMB(3.9,41,2,4277,0)="""RTN"",""HLOASUB"",119,0)"
^XMB(3.9,41,2,4278,0)=" .S RECIP(""RECEIVING FACILITY"",1)="""""
^XMB(3.9,41,2,4279,0)="""RTN"",""HLOASUB"",120,0)"
^XMB(3.9,41,2,4280,0)=" .S RECIP(""RECEIVING FACILITY"",2)="""""
^XMB(3.9,41,2,4281,0)="""RTN"",""HLOASUB"",121,0)"
^XMB(3.9,41,2,4282,0)=" .S RECIP(""RECEIVING FACILITY"",3)="""""
^XMB(3.9,41,2,4283,0)="""RTN"",""HLOASUB"",122,0)"
^XMB(3.9,41,2,4284,0)=" .S RECIP(""SUBIEN"")=-1"
^XMB(3.9,41,2,4285,0)="""RTN"",""HLOASUB"",123,0)"
^XMB(3.9,41,2,4286,0)=" ;"
^XMB(3.9,41,2,4287,0)="""RTN"",""HLOASUB"",124,0)"
^XMB(3.9,41,2,4288,0)=" S RECIP(""SUBIEN"")=NEXT"
^XMB(3.9,41,2,4289,0)="""RTN"",""HLOASUB"",125,0)"
^XMB(3.9,41,2,4290,0)=" S NODE=$G(^HLD(779.4,IEN,2,NEXT,0))"
^XMB(3.9,41,2,4291,0)="""RTN"",""HLOASUB"",126,0)"
^XMB(3.9,41,2,4292,0)=" S RECIP(""LINK IEN"")=$P(NODE,""^"",2)"
^XMB(3.9,41,2,4293,0)="""RTN"",""HLOASUB"",127,0)"
^XMB(3.9,41,2,4294,0)=" S RECIP(""LINK NAME"")=$S($P(NODE,""^"",2):$P($G(^HLCS(870,$P(NODE,""^"",2),0)),""^""),1:"""")"
^XMB(3.9,41,2,4295,0)="""RTN"",""HLOASUB"",128,0)"
^XMB(3.9,41,2,4296,0)=" S RECIP(""RECEIVING APPLICATION"")=$P(NODE,""^"")"
^XMB(3.9,41,2,4297,0)="""RTN"",""HLOASUB"",129,0)"
^XMB(3.9,41,2,4298,0)=" S RECIP(""RECEIVING FACILITY"",1)=$P(NODE,""^"",3)"
^XMB(3.9,41,2,4299,0)="""RTN"",""HLOASUB"",130,0)"
^XMB(3.9,41,2,4300,0)=" S RECIP(""RECEIVING FACILITY"",2)=$P(NODE,""^"",4)"
^XMB(3.9,41,2,4301,0)="""RTN"",""HLOASUB"",131,0)"
^XMB(3.9,41,2,4302,0)=" S RECIP(""RECEIVING FACILITY"",3)=$P(NODE,""^"",5)"
^XMB(3.9,41,2,4303,0)="""RTN"",""HLOASUB"",132,0)"
^XMB(3.9,41,2,4304,0)=" Q NEXT"
^XMB(3.9,41,2,4305,0)="""RTN"",""HLOASUB"",133,0)"
^XMB(3.9,41,2,4306,0)=" ;"
^XMB(3.9,41,2,4307,0)="""RTN"",""HLOASUB"",134,0)"
^XMB(3.9,41,2,4308,0)="END(IEN,WHO) ;will terminate a recipient from the list.The sub-record isn't"
^XMB(3.9,41,2,4309,0)="""RTN"",""HLOASUB"",135,0)"
^XMB(3.9,41,2,4310,0)=" ;deleted, but the DATE/TIME TERMINATED field is entered with the current"
^XMB(3.9,41,2,4311,0)="""RTN"",""HLOASUB"",136,0)"
^XMB(3.9,41,2,4312,0)=" ; date/time"
^XMB(3.9,41,2,4313,0)="""RTN"",""HLOASUB"",137,0)"
^XMB(3.9,41,2,4314,0)=" ;Input:"
^XMB(3.9,41,2,4315,0)="""RTN"",""HLOASUB"",138,0)"
^XMB(3.9,41,2,4316,0)=" ;  IEN - the ien of the HL7 Subscription Registry entry (required)"
^XMB(3.9,41,2,4317,0)="""RTN"",""HLOASUB"",139,0)"
^XMB(3.9,41,2,4318,0)=" ;  WHO - (required, pass by reference)  If WHO(""SUBIEN"") is defined, then it should be the ien of the sub-record to be terminated.  Otherwise, set the parameters as per $$ADD."
^XMB(3.9,41,2,4319,0)="""RTN"",""HLOASUB"",140,0)"
^XMB(3.9,41,2,4320,0)=" ;Output: "
^XMB(3.9,41,2,4321,0)="""RTN"",""HLOASUB"",141,0)"
^XMB(3.9,41,2,4322,0)=" ;  Function returns 1 on success, 0 on failure"
^XMB(3.9,41,2,4323,0)="""RTN"",""HLOASUB"",142,0)"
^XMB(3.9,41,2,4324,0)=" ;  WHO - left undefined when the function returns"
^XMB(3.9,41,2,4325,0)="""RTN"",""HLOASUB"",143,0)"
^XMB(3.9,41,2,4326,0)=" ;"
^XMB(3.9,41,2,4327,0)="""RTN"",""HLOASUB"",144,0)"
^XMB(3.9,41,2,4328,0)=" N SUBIEN,DATA,DA,OK"
^XMB(3.9,41,2,4329,0)="""RTN"",""HLOASUB"",145,0)"
^XMB(3.9,41,2,4330,0)=" S OK=0"
^XMB(3.9,41,2,4331,0)="""RTN"",""HLOASUB"",146,0)"
^XMB(3.9,41,2,4332,0)=" D"
^XMB(3.9,41,2,4333,0)="""RTN"",""HLOASUB"",147,0)"
^XMB(3.9,41,2,4334,0)=" .S SUBIEN=0"
^XMB(3.9,41,2,4335,0)="""RTN"",""HLOASUB"",148,0)"
^XMB(3.9,41,2,4336,0)=" .Q:'$G(IEN)"
^XMB(3.9,41,2,4337,0)="""RTN"",""HLOASUB"",149,0)"
^XMB(3.9,41,2,4338,0)=" .I $G(WHO(""SUBIEN"")) D"
^XMB(3.9,41,2,4339,0)="""RTN"",""HLOASUB"",150,0)"
^XMB(3.9,41,2,4340,0)=" ..S SUBIEN=WHO(""SUBIEN"")"
^XMB(3.9,41,2,4341,0)="""RTN"",""HLOASUB"",151,0)"
^XMB(3.9,41,2,4342,0)=" .E  D"
^XMB(3.9,41,2,4343,0)="""RTN"",""HLOASUB"",152,0)"
^XMB(3.9,41,2,4344,0)=" ..N PARMS"
^XMB(3.9,41,2,4345,0)="""RTN"",""HLOASUB"",153,0)"
^XMB(3.9,41,2,4346,0)=" ..S:$$CHECKWHO^HLOASUB1(.WHO,.PARMS) SUBIEN=$$ONLIST(IEN,PARMS(""LINK IEN""),PARMS(""RECEIVING APPLICATION""),PARMS(""RECEIVING FACILITY"",1),PARMS(""RECEIVING FACILITY"",2),PARMS(""RECEIVING FACILITY"",3))"
^XMB(3.9,41,2,4347,0)="""RTN"",""HLOASUB"",154,0)"
^XMB(3.9,41,2,4348,0)=" .I 'SUBIEN S OK=1 Q"
^XMB(3.9,41,2,4349,0)="""RTN"",""HLOASUB"",155,0)"
^XMB(3.9,41,2,4350,0)=" .S DA(1)=IEN,DA=SUBIEN"
^XMB(3.9,41,2,4351,0)="""RTN"",""HLOASUB"",156,0)"
^XMB(3.9,41,2,4352,0)=" .S DATA(1.02)=$$NOW^XLFDT"
^XMB(3.9,41,2,4353,0)="""RTN"",""HLOASUB"",157,0)"
^XMB(3.9,41,2,4354,0)=" .S OK=$$UPD^HLOASUB1(779.41,.DA,.DATA)"
^XMB(3.9,41,2,4355,0)="""RTN"",""HLOASUB"",158,0)"
^XMB(3.9,41,2,4356,0)=" K WHO"
^XMB(3.9,41,2,4357,0)="""RTN"",""HLOASUB"",159,0)"
^XMB(3.9,41,2,4358,0)=" Q OK"
^XMB(3.9,41,2,4359,0)="""RTN"",""HLOASUB"",160,0)"
^XMB(3.9,41,2,4360,0)=" ;"
^XMB(3.9,41,2,4361,0)="""RTN"",""HLOASUB"",161,0)"
^XMB(3.9,41,2,4362,0)="DELETE(IEN) ;Deletes the entry in the HL7 Subscription Registry."
^XMB(3.9,41,2,4363,0)="""RTN"",""HLOASUB"",162,0)"
^XMB(3.9,41,2,4364,0)=" Q $$DELETE^HLOASUB1(779.4,$G(IEN))"
^XMB(3.9,41,2,4365,0)="""RTN"",""HLOASUB1"")"
^XMB(3.9,41,2,4366,0)="0^7^B53189937"
^XMB(3.9,41,2,4367,0)="""RTN"",""HLOASUB1"",1,0)"
^XMB(3.9,41,2,4368,0)="HLOASUB1 ;IRMFO-ALB/CJM - Subscription Registry (continued) ;03/24/2004  14:43"
^XMB(3.9,41,2,4369,0)="""RTN"",""HLOASUB1"",2,0)"
^XMB(3.9,41,2,4370,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995;"
^XMB(3.9,41,2,4371,0)="""RTN"",""HLOASUB1"",3,0)"
^XMB(3.9,41,2,4372,0)=" ;"
^XMB(3.9,41,2,4373,0)="""RTN"",""HLOASUB1"",4,0)"
^XMB(3.9,41,2,4374,0)="INDEX(IEN,PARMARY) ;"
^XMB(3.9,41,2,4375,0)="""RTN"",""HLOASUB1"",5,0)"
^XMB(3.9,41,2,4376,0)=" ;Description: This allows an application to build an index of its"
^XMB(3.9,41,2,4377,0)="""RTN"",""HLOASUB1"",6,0)"
^XMB(3.9,41,2,4378,0)=" ;subscriptions.  This is optional, but using this function allows the"
^XMB(3.9,41,2,4379,0)="""RTN"",""HLOASUB1"",7,0)"
^XMB(3.9,41,2,4380,0)=" ;application to easily find subscriptions without storing the ien."
^XMB(3.9,41,2,4381,0)="""RTN"",""HLOASUB1"",8,0)"
^XMB(3.9,41,2,4382,0)=" ;"
^XMB(3.9,41,2,4383,0)="""RTN"",""HLOASUB1"",9,0)"
^XMB(3.9,41,2,4384,0)=" ;Input:"
^XMB(3.9,41,2,4385,0)="""RTN"",""HLOASUB1"",10,0)"
^XMB(3.9,41,2,4386,0)=" ;  IEN - ien of the entry in the Subscription Registry"
^XMB(3.9,41,2,4387,0)="""RTN"",""HLOASUB1"",11,0)"
^XMB(3.9,41,2,4388,0)=" ;  PARMARY - **pass by reference** an array of parameters with which to build the index.  The format is: PARMARY(1)=<first parameter>, PARMARY(2)=<second parameter>  If PARMARY(i)=null, the parameter will be translated to a single space."
^XMB(3.9,41,2,4389,0)="""RTN"",""HLOASUB1"",12,0)"
^XMB(3.9,41,2,4390,0)=" ;Output:"
^XMB(3.9,41,2,4391,0)="""RTN"",""HLOASUB1"",13,0)"
^XMB(3.9,41,2,4392,0)=" ;  function returns 1 on success, 0 otherwise"
^XMB(3.9,41,2,4393,0)="""RTN"",""HLOASUB1"",14,0)"
^XMB(3.9,41,2,4394,0)=" ;  PARMARY - left undefined"
^XMB(3.9,41,2,4395,0)="""RTN"",""HLOASUB1"",15,0)"
^XMB(3.9,41,2,4396,0)=" ;"
^XMB(3.9,41,2,4397,0)="""RTN"",""HLOASUB1"",16,0)"
^XMB(3.9,41,2,4398,0)=" N OK S OK=0"
^XMB(3.9,41,2,4399,0)="""RTN"",""HLOASUB1"",17,0)"
^XMB(3.9,41,2,4400,0)=" D"
^XMB(3.9,41,2,4401,0)="""RTN"",""HLOASUB1"",18,0)"
^XMB(3.9,41,2,4402,0)=" .Q:'$G(IEN)"
^XMB(3.9,41,2,4403,0)="""RTN"",""HLOASUB1"",19,0)"
^XMB(3.9,41,2,4404,0)=" .N OWNER,INDEX,I"
^XMB(3.9,41,2,4405,0)="""RTN"",""HLOASUB1"",20,0)"
^XMB(3.9,41,2,4406,0)=" .S OWNER=$P($G(^HLD(779.4,IEN,0)),""^"",2)"
^XMB(3.9,41,2,4407,0)="""RTN"",""HLOASUB1"",21,0)"
^XMB(3.9,41,2,4408,0)=" .Q:'$L(OWNER)"
^XMB(3.9,41,2,4409,0)="""RTN"",""HLOASUB1"",22,0)"
^XMB(3.9,41,2,4410,0)=" .Q:'$D(PARMARY)"
^XMB(3.9,41,2,4411,0)="""RTN"",""HLOASUB1"",23,0)"
^XMB(3.9,41,2,4412,0)=" .S INDEX=""^HLD(779.4,""""AH"""",OWNER,"""
^XMB(3.9,41,2,4413,0)="""RTN"",""HLOASUB1"",24,0)"
^XMB(3.9,41,2,4414,0)=" .S I=0"
^XMB(3.9,41,2,4415,0)="""RTN"",""HLOASUB1"",25,0)"
^XMB(3.9,41,2,4416,0)=" .F  S I=$O(PARMARY(I)) Q:'I  S INDEX=INDEX_""""""""_$S($L(PARMARY(I)):PARMARY(I),1:"" "")_"""""","""
^XMB(3.9,41,2,4417,0)="""RTN"",""HLOASUB1"",26,0)"
^XMB(3.9,41,2,4418,0)=" .S INDEX=$E(INDEX,1,$L(INDEX)-1)_"")"""
^XMB(3.9,41,2,4419,0)="""RTN"",""HLOASUB1"",27,0)"
^XMB(3.9,41,2,4420,0)=" .S @INDEX=IEN"
^XMB(3.9,41,2,4421,0)="""RTN"",""HLOASUB1"",28,0)"
^XMB(3.9,41,2,4422,0)=" .S ^HLD(779.4,""AH KILL"",IEN,""""""""_OWNER_"""""",""_$P(INDEX,""^HLD(779.4,""""AH"""",OWNER,"",2))="""""
^XMB(3.9,41,2,4423,0)="""RTN"",""HLOASUB1"",29,0)"
^XMB(3.9,41,2,4424,0)=" .S OK=1"
^XMB(3.9,41,2,4425,0)="""RTN"",""HLOASUB1"",30,0)"
^XMB(3.9,41,2,4426,0)=" K PARMARY"
^XMB(3.9,41,2,4427,0)="""RTN"",""HLOASUB1"",31,0)"
^XMB(3.9,41,2,4428,0)=" Q OK"
^XMB(3.9,41,2,4429,0)="""RTN"",""HLOASUB1"",32,0)"
^XMB(3.9,41,2,4430,0)=" ;"
^XMB(3.9,41,2,4431,0)="""RTN"",""HLOASUB1"",33,0)"
^XMB(3.9,41,2,4432,0)="KILLAH(IEN) ;kills the AH x~ref on file 779.4 for a particular subscription registry entry=ien"
^XMB(3.9,41,2,4433,0)="""RTN"",""HLOASUB1"",34,0)"
^XMB(3.9,41,2,4434,0)=" Q:'$G(IEN)"
^XMB(3.9,41,2,4435,0)="""RTN"",""HLOASUB1"",35,0)"
^XMB(3.9,41,2,4436,0)=" N NEXT,LOCATION"
^XMB(3.9,41,2,4437,0)="""RTN"",""HLOASUB1"",36,0)"
^XMB(3.9,41,2,4438,0)=" S NEXT="""""
^XMB(3.9,41,2,4439,0)="""RTN"",""HLOASUB1"",37,0)"
^XMB(3.9,41,2,4440,0)=" F  S NEXT=$O(^HLD(779.4,""AH KILL"",IEN,NEXT)) Q:'$L(NEXT)  D"
^XMB(3.9,41,2,4441,0)="""RTN"",""HLOASUB1"",38,0)"
^XMB(3.9,41,2,4442,0)=" .S LOCATION=""^HLD(779.4,""""AH"""",""_NEXT"
^XMB(3.9,41,2,4443,0)="""RTN"",""HLOASUB1"",39,0)"
^XMB(3.9,41,2,4444,0)=" .K @LOCATION"
^XMB(3.9,41,2,4445,0)="""RTN"",""HLOASUB1"",40,0)"
^XMB(3.9,41,2,4446,0)=" K ^HLD(779.4,""AH KILL"",IEN)"
^XMB(3.9,41,2,4447,0)="""RTN"",""HLOASUB1"",41,0)"
^XMB(3.9,41,2,4448,0)=" Q"
^XMB(3.9,41,2,4449,0)="""RTN"",""HLOASUB1"",42,0)"
^XMB(3.9,41,2,4450,0)=" ;"
^XMB(3.9,41,2,4451,0)="""RTN"",""HLOASUB1"",43,0)"
^XMB(3.9,41,2,4452,0)="FIND(OWNER,PARMARY) ;"
^XMB(3.9,41,2,4453,0)="""RTN"",""HLOASUB1"",44,0)"
^XMB(3.9,41,2,4454,0)=" ;Description: This allows an application to find a subscription"
^XMB(3.9,41,2,4455,0)="""RTN"",""HLOASUB1"",45,0)"
^XMB(3.9,41,2,4456,0)=" ;list.  The application must maintain a private index in order to"
^XMB(3.9,41,2,4457,0)="""RTN"",""HLOASUB1"",46,0)"
^XMB(3.9,41,2,4458,0)=" ;utilize this function, via $$INDEX^HLOASUB()"
^XMB(3.9,41,2,4459,0)="""RTN"",""HLOASUB1"",47,0)"
^XMB(3.9,41,2,4460,0)=" ;"
^XMB(3.9,41,2,4461,0)="""RTN"",""HLOASUB1"",48,0)"
^XMB(3.9,41,2,4462,0)=" ;Input:"
^XMB(3.9,41,2,4463,0)="""RTN"",""HLOASUB1"",49,0)"
^XMB(3.9,41,2,4464,0)=" ;  OWNER - owning application name"
^XMB(3.9,41,2,4465,0)="""RTN"",""HLOASUB1"",50,0)"
^XMB(3.9,41,2,4466,0)=" ;  PARMARY  **pass by reference** an array of parameters with which the index was built.  The format is: PARMARY(1)=<first parameter>, PARMARY(2)=<second parameter>  If PARMARY(i)=null, the parameter will be translated to a single space."
^XMB(3.9,41,2,4467,0)="""RTN"",""HLOASUB1"",51,0)"
^XMB(3.9,41,2,4468,0)=" ;Output:"
^XMB(3.9,41,2,4469,0)="""RTN"",""HLOASUB1"",52,0)"
^XMB(3.9,41,2,4470,0)=" ;  function returns the ien of the subscription list if found, 0 otherwise"
^XMB(3.9,41,2,4471,0)="""RTN"",""HLOASUB1"",53,0)"
^XMB(3.9,41,2,4472,0)=" ; PARMARY - left undefined"
^XMB(3.9,41,2,4473,0)="""RTN"",""HLOASUB1"",54,0)"
^XMB(3.9,41,2,4474,0)=" ;"
^XMB(3.9,41,2,4475,0)="""RTN"",""HLOASUB1"",55,0)"
^XMB(3.9,41,2,4476,0)=" N OK S OK=0"
^XMB(3.9,41,2,4477,0)="""RTN"",""HLOASUB1"",56,0)"
^XMB(3.9,41,2,4478,0)=" ;"
^XMB(3.9,41,2,4479,0)="""RTN"",""HLOASUB1"",57,0)"
^XMB(3.9,41,2,4480,0)=" D"
^XMB(3.9,41,2,4481,0)="""RTN"",""HLOASUB1"",58,0)"
^XMB(3.9,41,2,4482,0)=" .Q:'$D(PARMARY)"
^XMB(3.9,41,2,4483,0)="""RTN"",""HLOASUB1"",59,0)"
^XMB(3.9,41,2,4484,0)=" .Q:'$L($G(OWNER))"
^XMB(3.9,41,2,4485,0)="""RTN"",""HLOASUB1"",60,0)"
^XMB(3.9,41,2,4486,0)=" .N INDEX,I"
^XMB(3.9,41,2,4487,0)="""RTN"",""HLOASUB1"",61,0)"
^XMB(3.9,41,2,4488,0)=" .S INDEX=""^HLD(779.4,""""AH"""",OWNER,"""
^XMB(3.9,41,2,4489,0)="""RTN"",""HLOASUB1"",62,0)"
^XMB(3.9,41,2,4490,0)=" .S I=0"
^XMB(3.9,41,2,4491,0)="""RTN"",""HLOASUB1"",63,0)"
^XMB(3.9,41,2,4492,0)=" .F  S I=$O(PARMARY(I)) Q:'I  S INDEX=INDEX_""""""""_$S($L(PARMARY(I)):PARMARY(I),1:"" "")_"""""","""
^XMB(3.9,41,2,4493,0)="""RTN"",""HLOASUB1"",64,0)"
^XMB(3.9,41,2,4494,0)=" .S INDEX=$E(INDEX,1,$L(INDEX)-1)_"")"""
^XMB(3.9,41,2,4495,0)="""RTN"",""HLOASUB1"",65,0)"
^XMB(3.9,41,2,4496,0)=" .S OK=+$G(@INDEX)"
^XMB(3.9,41,2,4497,0)="""RTN"",""HLOASUB1"",66,0)"
^XMB(3.9,41,2,4498,0)=" K PARMARY"
^XMB(3.9,41,2,4499,0)="""RTN"",""HLOASUB1"",67,0)"
^XMB(3.9,41,2,4500,0)=" Q OK"
^XMB(3.9,41,2,4501,0)="""RTN"",""HLOASUB1"",68,0)"
^XMB(3.9,41,2,4502,0)=" ;"
^XMB(3.9,41,2,4503,0)="""RTN"",""HLOASUB1"",69,0)"
^XMB(3.9,41,2,4504,0)="UPD(FILE,DA,DATA,ERROR) ;File data into an existing record."
^XMB(3.9,41,2,4505,0)="""RTN"",""HLOASUB1"",70,0)"
^XMB(3.9,41,2,4506,0)=" ; Input:"
^XMB(3.9,41,2,4507,0)="""RTN"",""HLOASUB1"",71,0)"
^XMB(3.9,41,2,4508,0)=" ;   FILE - File or sub-file number"
^XMB(3.9,41,2,4509,0)="""RTN"",""HLOASUB1"",72,0)"
^XMB(3.9,41,2,4510,0)=" ;   DA - Traditional DA array, with same meaning."
^XMB(3.9,41,2,4511,0)="""RTN"",""HLOASUB1"",73,0)"
^XMB(3.9,41,2,4512,0)=" ;            Pass by reference."
^XMB(3.9,41,2,4513,0)="""RTN"",""HLOASUB1"",74,0)"
^XMB(3.9,41,2,4514,0)=" ;   DATA - Data array to file (pass by reference)"
^XMB(3.9,41,2,4515,0)="""RTN"",""HLOASUB1"",75,0)"
^XMB(3.9,41,2,4516,0)=" ;          Format: DATA(<field #>)=<value>"
^XMB(3.9,41,2,4517,0)="""RTN"",""HLOASUB1"",76,0)"
^XMB(3.9,41,2,4518,0)=" ;"
^XMB(3.9,41,2,4519,0)="""RTN"",""HLOASUB1"",77,0)"
^XMB(3.9,41,2,4520,0)=" ; Output:"
^XMB(3.9,41,2,4521,0)="""RTN"",""HLOASUB1"",78,0)"
^XMB(3.9,41,2,4522,0)=" ;  Function Value -     0=error and 1=no error"
^XMB(3.9,41,2,4523,0)="""RTN"",""HLOASUB1"",79,0)"
^XMB(3.9,41,2,4524,0)=" ;  ERROR - optional error message - if needed, pass by reference"
^XMB(3.9,41,2,4525,0)="""RTN"",""HLOASUB1"",80,0)"
^XMB(3.9,41,2,4526,0)=" ;"
^XMB(3.9,41,2,4527,0)="""RTN"",""HLOASUB1"",81,0)"
^XMB(3.9,41,2,4528,0)=" ; Example: To update a record in subfile 2.0361 in record with ien=353,"
^XMB(3.9,41,2,4529,0)="""RTN"",""HLOASUB1"",82,0)"
^XMB(3.9,41,2,4530,0)=" ;          subrecord ien=68, with the field .01 value = 21:"
^XMB(3.9,41,2,4531,0)="""RTN"",""HLOASUB1"",83,0)"
^XMB(3.9,41,2,4532,0)=" ;    S DATA(.01)=21,DA=68,DA(1)=353 I $$UPDS(2.0361,.DA,.DATA,.ERROR) W !,""DONE"""
^XMB(3.9,41,2,4533,0)="""RTN"",""HLOASUB1"",84,0)"
^XMB(3.9,41,2,4534,0)=" ;"
^XMB(3.9,41,2,4535,0)="""RTN"",""HLOASUB1"",85,0)"
^XMB(3.9,41,2,4536,0)=" N FDA,FIELD,IENS,ERRORS"
^XMB(3.9,41,2,4537,0)="""RTN"",""HLOASUB1"",86,0)"
^XMB(3.9,41,2,4538,0)=" ;"
^XMB(3.9,41,2,4539,0)="""RTN"",""HLOASUB1"",87,0)"
^XMB(3.9,41,2,4540,0)=" ;IENS - Internal Entry Number String defined by FM"
^XMB(3.9,41,2,4541,0)="""RTN"",""HLOASUB1"",88,0)"
^XMB(3.9,41,2,4542,0)=" ;FDA - the FDA array as defined by FM"
^XMB(3.9,41,2,4543,0)="""RTN"",""HLOASUB1"",89,0)"
^XMB(3.9,41,2,4544,0)=" ;"
^XMB(3.9,41,2,4545,0)="""RTN"",""HLOASUB1"",90,0)"
^XMB(3.9,41,2,4546,0)=" I '$G(DA) S ERROR=""IEN OF RECORD TO BE UPDATED NOT SPECIFIED"" Q 0"
^XMB(3.9,41,2,4547,0)="""RTN"",""HLOASUB1"",91,0)"
^XMB(3.9,41,2,4548,0)=" S IENS=$$IENS^DILF(.DA)"
^XMB(3.9,41,2,4549,0)="""RTN"",""HLOASUB1"",92,0)"
^XMB(3.9,41,2,4550,0)=" S FIELD=0"
^XMB(3.9,41,2,4551,0)="""RTN"",""HLOASUB1"",93,0)"
^XMB(3.9,41,2,4552,0)=" F  S FIELD=$O(DATA(FIELD)) Q:'FIELD  D"
^XMB(3.9,41,2,4553,0)="""RTN"",""HLOASUB1"",94,0)"
^XMB(3.9,41,2,4554,0)=" .S FDA(FILE,IENS,FIELD)=$G(DATA(FIELD))"
^XMB(3.9,41,2,4555,0)="""RTN"",""HLOASUB1"",95,0)"
^XMB(3.9,41,2,4556,0)=" D FILE^DIE("""",""FDA"",""ERRORS(1)"")"
^XMB(3.9,41,2,4557,0)="""RTN"",""HLOASUB1"",96,0)"
^XMB(3.9,41,2,4558,0)=" I +$G(DIERR) D"
^XMB(3.9,41,2,4559,0)="""RTN"",""HLOASUB1"",97,0)"
^XMB(3.9,41,2,4560,0)=" .S ERROR=$G(ERRORS(1,""DIERR"",1,""TEXT"",1))"
^XMB(3.9,41,2,4561,0)="""RTN"",""HLOASUB1"",98,0)"
^XMB(3.9,41,2,4562,0)=" E  D"
^XMB(3.9,41,2,4563,0)="""RTN"",""HLOASUB1"",99,0)"
^XMB(3.9,41,2,4564,0)=" .S ERROR="""""
^XMB(3.9,41,2,4565,0)="""RTN"",""HLOASUB1"",100,0)"
^XMB(3.9,41,2,4566,0)=" ;"
^XMB(3.9,41,2,4567,0)="""RTN"",""HLOASUB1"",101,0)"
^XMB(3.9,41,2,4568,0)=" D CLEAN^DILF"
^XMB(3.9,41,2,4569,0)="""RTN"",""HLOASUB1"",102,0)"
^XMB(3.9,41,2,4570,0)=" Q $S(+$G(DIERR):0,1:1)"
^XMB(3.9,41,2,4571,0)="""RTN"",""HLOASUB1"",103,0)"
^XMB(3.9,41,2,4572,0)=" ;"
^XMB(3.9,41,2,4573,0)="""RTN"",""HLOASUB1"",104,0)"
^XMB(3.9,41,2,4574,0)="ADD(FILE,DA,DATA,ERROR,IEN) ;"
^XMB(3.9,41,2,4575,0)="""RTN"",""HLOASUB1"",105,0)"
^XMB(3.9,41,2,4576,0)=" ;Description: Creates a new record and files the data."
^XMB(3.9,41,2,4577,0)="""RTN"",""HLOASUB1"",106,0)"
^XMB(3.9,41,2,4578,0)=" ; Input:"
^XMB(3.9,41,2,4579,0)="""RTN"",""HLOASUB1"",107,0)"
^XMB(3.9,41,2,4580,0)=" ;   FILE - File or sub-file number"
^XMB(3.9,41,2,4581,0)="""RTN"",""HLOASUB1"",108,0)"
^XMB(3.9,41,2,4582,0)=" ;   DA - Traditional FileMan DA array with same"
^XMB(3.9,41,2,4583,0)="""RTN"",""HLOASUB1"",109,0)"
^XMB(3.9,41,2,4584,0)=" ;            meaning. Pass by reference.  Only needed if adding to a"
^XMB(3.9,41,2,4585,0)="""RTN"",""HLOASUB1"",110,0)"
^XMB(3.9,41,2,4586,0)=" ;            subfile."
^XMB(3.9,41,2,4587,0)="""RTN"",""HLOASUB1"",111,0)"
^XMB(3.9,41,2,4588,0)=" ;   DATA - Data array to file, pass by reference"
^XMB(3.9,41,2,4589,0)="""RTN"",""HLOASUB1"",112,0)"
^XMB(3.9,41,2,4590,0)=" ;          Format: DATA(<field #>)=<value>"
^XMB(3.9,41,2,4591,0)="""RTN"",""HLOASUB1"",113,0)"
^XMB(3.9,41,2,4592,0)=" ;   IEN - internal entry number to use (optional)"
^XMB(3.9,41,2,4593,0)="""RTN"",""HLOASUB1"",114,0)"
^XMB(3.9,41,2,4594,0)=" ;"
^XMB(3.9,41,2,4595,0)="""RTN"",""HLOASUB1"",115,0)"
^XMB(3.9,41,2,4596,0)=" ; Output:"
^XMB(3.9,41,2,4597,0)="""RTN"",""HLOASUB1"",116,0)"
^XMB(3.9,41,2,4598,0)=" ;   Function Value - If no error then it returns the ien of the created record, else returns NULL."
^XMB(3.9,41,2,4599,0)="""RTN"",""HLOASUB1"",117,0)"
^XMB(3.9,41,2,4600,0)=" ;  DA - returns the ien of the new record, NULL if none created.  If needed, pass by reference."
^XMB(3.9,41,2,4601,0)="""RTN"",""HLOASUB1"",118,0)"
^XMB(3.9,41,2,4602,0)=" ;  ERROR - optional error message - if needed, pass by reference"
^XMB(3.9,41,2,4603,0)="""RTN"",""HLOASUB1"",119,0)"
^XMB(3.9,41,2,4604,0)=" ;"
^XMB(3.9,41,2,4605,0)="""RTN"",""HLOASUB1"",120,0)"
^XMB(3.9,41,2,4606,0)=" ; Example: To add a record in subfile 2.0361 in the record with ien=353"
^XMB(3.9,41,2,4607,0)="""RTN"",""HLOASUB1"",121,0)"
^XMB(3.9,41,2,4608,0)=" ;          with the field .01 value = 21:"
^XMB(3.9,41,2,4609,0)="""RTN"",""HLOASUB1"",122,0)"
^XMB(3.9,41,2,4610,0)=" ;  S DATA(.01)=21,DA(1)=353 I $$ADD(2.0361,.DA,.DATA) W !,""DONE"""
^XMB(3.9,41,2,4611,0)="""RTN"",""HLOASUB1"",123,0)"
^XMB(3.9,41,2,4612,0)=" ;"
^XMB(3.9,41,2,4613,0)="""RTN"",""HLOASUB1"",124,0)"
^XMB(3.9,41,2,4614,0)=" ; Example: If creating a record not in a subfile, would look like this:"
^XMB(3.9,41,2,4615,0)="""RTN"",""HLOASUB1"",125,0)"
^XMB(3.9,41,2,4616,0)=" ;          S DATA(.01)=21 I $$ADD(867,,.DATA) W !,""DONE"""
^XMB(3.9,41,2,4617,0)="""RTN"",""HLOASUB1"",126,0)"
^XMB(3.9,41,2,4618,0)=" ;"
^XMB(3.9,41,2,4619,0)="""RTN"",""HLOASUB1"",127,0)"
^XMB(3.9,41,2,4620,0)=" N FDA,FIELD,IENA,IENS,ERRORS"
^XMB(3.9,41,2,4621,0)="""RTN"",""HLOASUB1"",128,0)"
^XMB(3.9,41,2,4622,0)=" ;"
^XMB(3.9,41,2,4623,0)="""RTN"",""HLOASUB1"",129,0)"
^XMB(3.9,41,2,4624,0)=" ;IENS - Internal Entry Number String defined by FM"
^XMB(3.9,41,2,4625,0)="""RTN"",""HLOASUB1"",130,0)"
^XMB(3.9,41,2,4626,0)=" ;IENA - the Internal Entry Number Array defined by FM"
^XMB(3.9,41,2,4627,0)="""RTN"",""HLOASUB1"",131,0)"
^XMB(3.9,41,2,4628,0)=" ;FDA - the FDA array defined by FM"
^XMB(3.9,41,2,4629,0)="""RTN"",""HLOASUB1"",132,0)"
^XMB(3.9,41,2,4630,0)=" ;IEN - the ien of the new record"
^XMB(3.9,41,2,4631,0)="""RTN"",""HLOASUB1"",133,0)"
^XMB(3.9,41,2,4632,0)=" ;"
^XMB(3.9,41,2,4633,0)="""RTN"",""HLOASUB1"",134,0)"
^XMB(3.9,41,2,4634,0)=" S DA=""+1"""
^XMB(3.9,41,2,4635,0)="""RTN"",""HLOASUB1"",135,0)"
^XMB(3.9,41,2,4636,0)=" S IENS=$$IENS^DILF(.DA)"
^XMB(3.9,41,2,4637,0)="""RTN"",""HLOASUB1"",136,0)"
^XMB(3.9,41,2,4638,0)=" S FIELD=0"
^XMB(3.9,41,2,4639,0)="""RTN"",""HLOASUB1"",137,0)"
^XMB(3.9,41,2,4640,0)=" F  S FIELD=$O(DATA(FIELD)) Q:'FIELD  D"
^XMB(3.9,41,2,4641,0)="""RTN"",""HLOASUB1"",138,0)"
^XMB(3.9,41,2,4642,0)=" .S FDA(FILE,IENS,FIELD)=$G(DATA(FIELD))"
^XMB(3.9,41,2,4643,0)="""RTN"",""HLOASUB1"",139,0)"
^XMB(3.9,41,2,4644,0)=" I $G(IEN) S IENA(1)=IEN"
^XMB(3.9,41,2,4645,0)="""RTN"",""HLOASUB1"",140,0)"
^XMB(3.9,41,2,4646,0)=" D UPDATE^DIE("""",""FDA"",""IENA"",""ERRORS(1)"")"
^XMB(3.9,41,2,4647,0)="""RTN"",""HLOASUB1"",141,0)"
^XMB(3.9,41,2,4648,0)=" I +$G(DIERR) D"
^XMB(3.9,41,2,4649,0)="""RTN"",""HLOASUB1"",142,0)"
^XMB(3.9,41,2,4650,0)=" .S ERROR=$G(ERRORS(1,""DIERR"",1,""TEXT"",1))"
^XMB(3.9,41,2,4651,0)="""RTN"",""HLOASUB1"",143,0)"
^XMB(3.9,41,2,4652,0)=" .S IEN="""""
^XMB(3.9,41,2,4653,0)="""RTN"",""HLOASUB1"",144,0)"
^XMB(3.9,41,2,4654,0)=" E  D"
^XMB(3.9,41,2,4655,0)="""RTN"",""HLOASUB1"",145,0)"
^XMB(3.9,41,2,4656,0)=" .S IEN=IENA(1)"
^XMB(3.9,41,2,4657,0)="""RTN"",""HLOASUB1"",146,0)"
^XMB(3.9,41,2,4658,0)=" .S ERROR="""""
^XMB(3.9,41,2,4659,0)="""RTN"",""HLOASUB1"",147,0)"
^XMB(3.9,41,2,4660,0)=" D CLEAN^DILF"
^XMB(3.9,41,2,4661,0)="""RTN"",""HLOASUB1"",148,0)"
^XMB(3.9,41,2,4662,0)=" S DA=IEN"
^XMB(3.9,41,2,4663,0)="""RTN"",""HLOASUB1"",149,0)"
^XMB(3.9,41,2,4664,0)=" Q IEN"
^XMB(3.9,41,2,4665,0)="""RTN"",""HLOASUB1"",150,0)"
^XMB(3.9,41,2,4666,0)=" ;"
^XMB(3.9,41,2,4667,0)="""RTN"",""HLOASUB1"",151,0)"
^XMB(3.9,41,2,4668,0)="DELETE(FILE,DA,ERROR)   ;Delete an existing record."
^XMB(3.9,41,2,4669,0)="""RTN"",""HLOASUB1"",152,0)"
^XMB(3.9,41,2,4670,0)=" N DATA"
^XMB(3.9,41,2,4671,0)="""RTN"",""HLOASUB1"",153,0)"
^XMB(3.9,41,2,4672,0)=" S DATA(.01)=""@"""
^XMB(3.9,41,2,4673,0)="""RTN"",""HLOASUB1"",154,0)"
^XMB(3.9,41,2,4674,0)=" Q $$UPD^HLEMU(FILE,.DA,.DATA,.ERROR)"
^XMB(3.9,41,2,4675,0)="""RTN"",""HLOASUB1"",155,0)"
^XMB(3.9,41,2,4676,0)=" Q"
^XMB(3.9,41,2,4677,0)="""RTN"",""HLOASUB1"",156,0)"
^XMB(3.9,41,2,4678,0)=" ;"
^XMB(3.9,41,2,4679,0)="""RTN"",""HLOASUB1"",157,0)"
^XMB(3.9,41,2,4680,0)="STATNUM(IEN) ;"
^XMB(3.9,41,2,4681,0)="""RTN"",""HLOASUB1"",158,0)"
^XMB(3.9,41,2,4682,0)=" ;Description:  Given an ien to the Institution file, returns as the function value the station number. If IEN is NOT passed in, it assumes the local site.  Returns """" on failure."
^XMB(3.9,41,2,4683,0)="""RTN"",""HLOASUB1"",159,0)"
^XMB(3.9,41,2,4684,0)=" ;"
^XMB(3.9,41,2,4685,0)="""RTN"",""HLOASUB1"",160,0)"
^XMB(3.9,41,2,4686,0)=" N STATION,RETURN"
^XMB(3.9,41,2,4687,0)="""RTN"",""HLOASUB1"",161,0)"
^XMB(3.9,41,2,4688,0)=" S RETURN="""""
^XMB(3.9,41,2,4689,0)="""RTN"",""HLOASUB1"",162,0)"
^XMB(3.9,41,2,4690,0)=" I $G(IEN) D"
^XMB(3.9,41,2,4691,0)="""RTN"",""HLOASUB1"",163,0)"
^XMB(3.9,41,2,4692,0)=" .Q:'$D(^DIC(4,IEN,0))"
^XMB(3.9,41,2,4693,0)="""RTN"",""HLOASUB1"",164,0)"
^XMB(3.9,41,2,4694,0)=" .S STATION=$P($$NNT^XUAF4(IEN),""^"",2)"
^XMB(3.9,41,2,4695,0)="""RTN"",""HLOASUB1"",165,0)"
^XMB(3.9,41,2,4696,0)=" .S RETURN=$S(+STATION:STATION,1:"""")"
^XMB(3.9,41,2,4697,0)="""RTN"",""HLOASUB1"",166,0)"
^XMB(3.9,41,2,4698,0)=" E  D"
^XMB(3.9,41,2,4699,0)="""RTN"",""HLOASUB1"",167,0)"
^XMB(3.9,41,2,4700,0)=" .S RETURN=$P($$SITE^VASITE(),""^"",3)"
^XMB(3.9,41,2,4701,0)="""RTN"",""HLOASUB1"",168,0)"
^XMB(3.9,41,2,4702,0)=" Q RETURN"
^XMB(3.9,41,2,4703,0)="""RTN"",""HLOASUB1"",169,0)"
^XMB(3.9,41,2,4704,0)=" ;"
^XMB(3.9,41,2,4705,0)="""RTN"",""HLOASUB1"",170,0)"
^XMB(3.9,41,2,4706,0)="CHECKWHO(WHO,PARMS,ERROR) ;"
^XMB(3.9,41,2,4707,0)="""RTN"",""HLOASUB1"",171,0)"
^XMB(3.9,41,2,4708,0)=" ;Checks the parameters provided in WHO() (see $$ADD).  They must resolve"
^XMB(3.9,41,2,4709,0)="""RTN"",""HLOASUB1"",172,0)"
^XMB(3.9,41,2,4710,0)=" ;the link, receiving app and receiving facility."
^XMB(3.9,41,2,4711,0)="""RTN"",""HLOASUB1"",173,0)"
^XMB(3.9,41,2,4712,0)=" ;INPUT:"
^XMB(3.9,41,2,4713,0)="""RTN"",""HLOASUB1"",174,0)"
^XMB(3.9,41,2,4714,0)=" ;  WHO - (required, pass by reference) - see $$ADD."
^XMB(3.9,41,2,4715,0)="""RTN"",""HLOASUB1"",175,0)"
^XMB(3.9,41,2,4716,0)=" ;"
^XMB(3.9,41,2,4717,0)="""RTN"",""HLOASUB1"",176,0)"
^XMB(3.9,41,2,4718,0)=" ;  WHO(""PORT"") - if this is valued, it will be used as the remote port"
^XMB(3.9,41,2,4719,0)="""RTN"",""HLOASUB1"",177,0)"
^XMB(3.9,41,2,4720,0)=" ;    to connect with rather than the port associated with the link"
^XMB(3.9,41,2,4721,0)="""RTN"",""HLOASUB1"",178,0)"
^XMB(3.9,41,2,4722,0)=" ;Output:"
^XMB(3.9,41,2,4723,0)="""RTN"",""HLOASUB1"",179,0)"
^XMB(3.9,41,2,4724,0)=" ;  Function returns 1 if the input is resolved successfully, 0 otherwise"
^XMB(3.9,41,2,4725,0)="""RTN"",""HLOASUB1"",180,0)"
^XMB(3.9,41,2,4726,0)=" ;    PARMS - (pass by reference)  These subscripts are returned:"
^XMB(3.9,41,2,4727,0)="""RTN"",""HLOASUB1"",181,0)"
^XMB(3.9,41,2,4728,0)=" ;     ""LINK IEN"" - ien of the link "
^XMB(3.9,41,2,4729,0)="""RTN"",""HLOASUB1"",182,0)"
^XMB(3.9,41,2,4730,0)=" ;     ""LINK NAME"" - name of the link"
^XMB(3.9,41,2,4731,0)="""RTN"",""HLOASUB1"",183,0)"
^XMB(3.9,41,2,4732,0)=" ;     ""RECEIVING APPLICATION""  - name of the receiving app"
^XMB(3.9,41,2,4733,0)="""RTN"",""HLOASUB1"",184,0)"
^XMB(3.9,41,2,4734,0)=" ;     ""RECEIVING FACILITY"",1)  - component 1"
^XMB(3.9,41,2,4735,0)="""RTN"",""HLOASUB1"",185,0)"
^XMB(3.9,41,2,4736,0)=" ;     ""RECEIVING FACILITY"",2) - component 2"
^XMB(3.9,41,2,4737,0)="""RTN"",""HLOASUB1"",186,0)"
^XMB(3.9,41,2,4738,0)=" ;     ""RECEIVING FACILITY"",3) - component 3"
^XMB(3.9,41,2,4739,0)="""RTN"",""HLOASUB1"",187,0)"
^XMB(3.9,41,2,4740,0)=" ;   ERROR - (pass by reference) - if unsuccessful, an error message is returned."
^XMB(3.9,41,2,4741,0)="""RTN"",""HLOASUB1"",188,0)"
^XMB(3.9,41,2,4742,0)=" ;"
^XMB(3.9,41,2,4743,0)="""RTN"",""HLOASUB1"",189,0)"
^XMB(3.9,41,2,4744,0)=" N OK"
^XMB(3.9,41,2,4745,0)="""RTN"",""HLOASUB1"",190,0)"
^XMB(3.9,41,2,4746,0)=" K ERROR"
^XMB(3.9,41,2,4747,0)="""RTN"",""HLOASUB1"",191,0)"
^XMB(3.9,41,2,4748,0)=" S OK=1"
^XMB(3.9,41,2,4749,0)="""RTN"",""HLOASUB1"",192,0)"
^XMB(3.9,41,2,4750,0)=" S PARMS(""LINK IEN"")="""",PARMS(""LINK NAME"")="""""
^XMB(3.9,41,2,4751,0)="""RTN"",""HLOASUB1"",193,0)"
^XMB(3.9,41,2,4752,0)=" ;must identify the receiving app"
^XMB(3.9,41,2,4753,0)="""RTN"",""HLOASUB1"",194,0)"
^XMB(3.9,41,2,4754,0)=" ;"
^XMB(3.9,41,2,4755,0)="""RTN"",""HLOASUB1"",195,0)"
^XMB(3.9,41,2,4756,0)=" D"
^XMB(3.9,41,2,4757,0)="""RTN"",""HLOASUB1"",196,0)"
^XMB(3.9,41,2,4758,0)=" .N LEN"
^XMB(3.9,41,2,4759,0)="""RTN"",""HLOASUB1"",197,0)"
^XMB(3.9,41,2,4760,0)=" .S LEN=$L($G(WHO(""RECEIVING APPLICATION"")))"
^XMB(3.9,41,2,4761,0)="""RTN"",""HLOASUB1"",198,0)"
^XMB(3.9,41,2,4762,0)=" .I 'LEN S OK=0"
^XMB(3.9,41,2,4763,0)="""RTN"",""HLOASUB1"",199,0)"
^XMB(3.9,41,2,4764,0)=" .E  I LEN>60 S OK=0"
^XMB(3.9,41,2,4765,0)="""RTN"",""HLOASUB1"",200,0)"
^XMB(3.9,41,2,4766,0)=" .S:'OK ERROR=""RECEIVING APPLICATION NOT VALID"""
^XMB(3.9,41,2,4767,0)="""RTN"",""HLOASUB1"",201,0)"
^XMB(3.9,41,2,4768,0)=" .S PARMS(""RECEIVING APPLICATION"")=$G(WHO(""RECEIVING APPLICATION""))"
^XMB(3.9,41,2,4769,0)="""RTN"",""HLOASUB1"",202,0)"
^XMB(3.9,41,2,4770,0)=" ;"
^XMB(3.9,41,2,4771,0)="""RTN"",""HLOASUB1"",203,0)"
^XMB(3.9,41,2,4772,0)=" ;find the station # if Institution ien known"
^XMB(3.9,41,2,4773,0)="""RTN"",""HLOASUB1"",204,0)"
^XMB(3.9,41,2,4774,0)=" S:$G(WHO(""INSTITUTION IEN"")) WHO(""STATION NUMBER"")=$$STATNUM^HLOASUB1(WHO(""INSTITUTION IEN""))"
^XMB(3.9,41,2,4775,0)="""RTN"",""HLOASUB1"",205,0)"
^XMB(3.9,41,2,4776,0)=" ;"
^XMB(3.9,41,2,4777,0)="""RTN"",""HLOASUB1"",206,0)"
^XMB(3.9,41,2,4778,0)=" ;if destination link specified by name, get its ien"
^XMB(3.9,41,2,4779,0)="""RTN"",""HLOASUB1"",207,0)"
^XMB(3.9,41,2,4780,0)=" I '$G(WHO(""FACILITY LINK IEN"")),$L($G(WHO(""FACILITY LINK NAME""))) S WHO(""FACILITY LINK IEN"")=$O(^HLCS(870,""B"",WHO(""FACILITY LINK NAME""),0))"
^XMB(3.9,41,2,4781,0)="""RTN"",""HLOASUB1"",208,0)"
^XMB(3.9,41,2,4782,0)=" ;"
^XMB(3.9,41,2,4783,0)="""RTN"",""HLOASUB1"",209,0)"
^XMB(3.9,41,2,4784,0)=" ;if destination link not specified, find it based on station #"
^XMB(3.9,41,2,4785,0)="""RTN"",""HLOASUB1"",210,0)"
^XMB(3.9,41,2,4786,0)=" I +$G(WHO(""STATION NUMBER"")),'$G(WHO(""FACILITY LINK IEN"")) S WHO(""FACILITY LINK IEN"")=$$FINDLINK^HLOTLNK(WHO(""STATION NUMBER""))"
^XMB(3.9,41,2,4787,0)="""RTN"",""HLOASUB1"",211,0)"
^XMB(3.9,41,2,4788,0)=" ;"
^XMB(3.9,41,2,4789,0)="""RTN"",""HLOASUB1"",212,0)"
^XMB(3.9,41,2,4790,0)=" ;if station # not known, find it based on destination link"
^XMB(3.9,41,2,4791,0)="""RTN"",""HLOASUB1"",213,0)"
^XMB(3.9,41,2,4792,0)=" I '$G(WHO(""STATION NUMBER"")),$G(WHO(""FACILITY LINK IEN"")) S WHO(""STATION NUMBER"")=$$STATNUM^HLOTLNK(WHO(""FACILITY LINK IEN""))"
^XMB(3.9,41,2,4793,0)="""RTN"",""HLOASUB1"",214,0)"
^XMB(3.9,41,2,4794,0)=" ;"
^XMB(3.9,41,2,4795,0)="""RTN"",""HLOASUB1"",215,0)"
^XMB(3.9,41,2,4796,0)=" S PARMS(""RECEIVING FACILITY"",1)=$G(WHO(""STATION NUMBER""))"
^XMB(3.9,41,2,4797,0)="""RTN"",""HLOASUB1"",216,0)"
^XMB(3.9,41,2,4798,0)=" ;"
^XMB(3.9,41,2,4799,0)="""RTN"",""HLOASUB1"",217,0)"
^XMB(3.9,41,2,4800,0)=" ;if the destination link is known, get the domain"
^XMB(3.9,41,2,4801,0)="""RTN"",""HLOASUB1"",218,0)"
^XMB(3.9,41,2,4802,0)=" S PARMS(""RECEIVING FACILITY"",2)=$S($G(WHO(""FACILITY LINK IEN"")):$$DOMAIN^HLOTLNK(WHO(""FACILITY LINK IEN"")),1:"""")"
^XMB(3.9,41,2,4803,0)="""RTN"",""HLOASUB1"",219,0)"
^XMB(3.9,41,2,4804,0)=" ;"
^XMB(3.9,41,2,4805,0)="""RTN"",""HLOASUB1"",220,0)"
^XMB(3.9,41,2,4806,0)=" S PARMS(""RECEIVING FACILITY"",3)=""DNS"""
^XMB(3.9,41,2,4807,0)="""RTN"",""HLOASUB1"",221,0)"
^XMB(3.9,41,2,4808,0)=" ;"
^XMB(3.9,41,2,4809,0)="""RTN"",""HLOASUB1"",222,0)"
^XMB(3.9,41,2,4810,0)=" ;find the link to send over - need name & ien"
^XMB(3.9,41,2,4811,0)="""RTN"",""HLOASUB1"",223,0)"
^XMB(3.9,41,2,4812,0)=" I $G(WHO(""IE LINK IEN"")) D"
^XMB(3.9,41,2,4813,0)="""RTN"",""HLOASUB1"",224,0)"
^XMB(3.9,41,2,4814,0)=" .S PARMS(""LINK IEN"")=WHO(""IE LINK IEN"")"
^XMB(3.9,41,2,4815,0)="""RTN"",""HLOASUB1"",225,0)"
^XMB(3.9,41,2,4816,0)=" .S PARMS(""LINK NAME"")=$P($G(^HLCS(870,PARMS(""LINK IEN""),0)),""^"")"
^XMB(3.9,41,2,4817,0)="""RTN"",""HLOASUB1"",226,0)"
^XMB(3.9,41,2,4818,0)=" .I OK,'$L(PARMS(""LINK NAME"")) S OK=0,ERROR=""INTERFACE ENGINE LOGICAL LINK PROVIDED BUT NOT FOUND"""
^XMB(3.9,41,2,4819,0)="""RTN"",""HLOASUB1"",227,0)"
^XMB(3.9,41,2,4820,0)=" E  I $L($G(WHO(""IE LINK NAME""))) D"
^XMB(3.9,41,2,4821,0)="""RTN"",""HLOASUB1"",228,0)"
^XMB(3.9,41,2,4822,0)=" .S PARMS(""LINK NAME"")=WHO(""IE LINK NAME"")"
^XMB(3.9,41,2,4823,0)="""RTN"",""HLOASUB1"",229,0)"
^XMB(3.9,41,2,4824,0)=" .S PARMS(""LINK IEN"")=$O(^HLCS(870,""B"",WHO(""IE LINK NAME""),0))"
^XMB(3.9,41,2,4825,0)="""RTN"",""HLOASUB1"",230,0)"
^XMB(3.9,41,2,4826,0)=" .I OK,'PARMS(""LINK IEN"") S OK=0,ERROR=""INTERFACE ENGINE LOGICAL LINK PROVIDED BUT NOT FOUND"""
^XMB(3.9,41,2,4827,0)="""RTN"",""HLOASUB1"",231,0)"
^XMB(3.9,41,2,4828,0)=" E  I $G(WHO(""FACILITY LINK IEN"")) D"
^XMB(3.9,41,2,4829,0)="""RTN"",""HLOASUB1"",232,0)"
^XMB(3.9,41,2,4830,0)=" .S PARMS(""LINK IEN"")=WHO(""FACILITY LINK IEN"")"
^XMB(3.9,41,2,4831,0)="""RTN"",""HLOASUB1"",233,0)"
^XMB(3.9,41,2,4832,0)=" .S PARMS(""LINK NAME"")=$P($G(^HLCS(870,PARMS(""LINK IEN""),0)),""^"")"
^XMB(3.9,41,2,4833,0)="""RTN"",""HLOASUB1"",234,0)"
^XMB(3.9,41,2,4834,0)=" .I OK,'$L(PARMS(""LINK NAME"")) S OK=0,ERROR=""RECEIVING FACILITY LOGICAL LINK NOT FOUND"""
^XMB(3.9,41,2,4835,0)="""RTN"",""HLOASUB1"",235,0)"
^XMB(3.9,41,2,4836,0)=" E  I $L($G(WHO(""FACILITY LINK NAME""))) D"
^XMB(3.9,41,2,4837,0)="""RTN"",""HLOASUB1"",236,0)"
^XMB(3.9,41,2,4838,0)=" .S PARMS(""LINK NAME"")=WHO(""FACILITY LINK NAME"")"
^XMB(3.9,41,2,4839,0)="""RTN"",""HLOASUB1"",237,0)"
^XMB(3.9,41,2,4840,0)=" .S PARMS(""LINK IEN"")=$O(^HLCS(870,""B"",WHO(""FACILITY LINK NAME""),0))"
^XMB(3.9,41,2,4841,0)="""RTN"",""HLOASUB1"",238,0)"
^XMB(3.9,41,2,4842,0)=" .I OK,'PARMS(""LINK IEN"") S OK=0,ERROR=""RECEIVING FACILITY LOGICAL LINK NOT FOUND"""
^XMB(3.9,41,2,4843,0)="""RTN"",""HLOASUB1"",239,0)"
^XMB(3.9,41,2,4844,0)=" I OK,(('PARMS(""LINK IEN""))!(PARMS(""LINK NAME"")="""")) S OK=0,ERROR=""LOGICAL LINK TO TRANSMIT OVER NOT SPECIFIED"""
^XMB(3.9,41,2,4845,0)="""RTN"",""HLOASUB1"",240,0)"
^XMB(3.9,41,2,4846,0)=" ;"
^XMB(3.9,41,2,4847,0)="""RTN"",""HLOASUB1"",241,0)"
^XMB(3.9,41,2,4848,0)=" ;need the station # or domain for msg header"
^XMB(3.9,41,2,4849,0)="""RTN"",""HLOASUB1"",242,0)"
^XMB(3.9,41,2,4850,0)=" I OK,'$L(PARMS(""RECEIVING FACILITY"",2)),'PARMS(""RECEIVING FACILITY"",1) S OK=0,ERROR=""RECEIVING FACILITY STATION # AND DOMAIN NOT SPECIFIED"""
^XMB(3.9,41,2,4851,0)="""RTN"",""HLOASUB1"",243,0)"
^XMB(3.9,41,2,4852,0)=" ;"
^XMB(3.9,41,2,4853,0)="""RTN"",""HLOASUB1"",244,0)"
^XMB(3.9,41,2,4854,0)=" ;append the port#"
^XMB(3.9,41,2,4855,0)="""RTN"",""HLOASUB1"",245,0)"
^XMB(3.9,41,2,4856,0)=" I '$G(WHO(""PORT"")) S PARMS(""RECEIVING FACILITY"",2)=PARMS(""RECEIVING FACILITY"",2)_"":""_$$PORT^HLOTLNK($G(WHO(""FACILITY LINK IEN"")))"
^XMB(3.9,41,2,4857,0)="""RTN"",""HLOASUB1"",246,0)"
^XMB(3.9,41,2,4858,0)=" E  S PARMS(""RECEIVING FACILITY"",2)=PARMS(""RECEIVING FACILITY"",2)_"":""_WHO(""PORT"")"
^XMB(3.9,41,2,4859,0)="""RTN"",""HLOASUB1"",247,0)"
^XMB(3.9,41,2,4860,0)=" ;"
^XMB(3.9,41,2,4861,0)="""RTN"",""HLOASUB1"",248,0)"
^XMB(3.9,41,2,4862,0)=" Q OK"
^XMB(3.9,41,2,4863,0)="""RTN"",""HLOCLNT"")"
^XMB(3.9,41,2,4864,0)="0^8^B65447935"
^XMB(3.9,41,2,4865,0)="""RTN"",""HLOCLNT"",1,0)"
^XMB(3.9,41,2,4866,0)="HLOCLNT ;ALB/CJM- Client for sending messages - 10/4/94 1pm"
^XMB(3.9,41,2,4867,0)="""RTN"",""HLOCLNT"",2,0)"
^XMB(3.9,41,2,4868,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995"
^XMB(3.9,41,2,4869,0)="""RTN"",""HLOCLNT"",3,0)"
^XMB(3.9,41,2,4870,0)=" ;"
^XMB(3.9,41,2,4871,0)="""RTN"",""HLOCLNT"",4,0)"
^XMB(3.9,41,2,4872,0)=" ;GET WORK function for the process running under the Process Manager"
^XMB(3.9,41,2,4873,0)="""RTN"",""HLOCLNT"",5,0)"
^XMB(3.9,41,2,4874,0)="GETWORK(QUE) ;"
^XMB(3.9,41,2,4875,0)="""RTN"",""HLOCLNT"",6,0)"
^XMB(3.9,41,2,4876,0)=" ;Input:"
^XMB(3.9,41,2,4877,0)="""RTN"",""HLOCLNT"",7,0)"
^XMB(3.9,41,2,4878,0)=" ;  QUE - (pass by reference) These subscripts are used:"
^XMB(3.9,41,2,4879,0)="""RTN"",""HLOCLNT"",8,0)"
^XMB(3.9,41,2,4880,0)=" ;    (""LINK"")  - <link name>_"":""_<port> last obtained"
^XMB(3.9,41,2,4881,0)="""RTN"",""HLOCLNT"",9,0)"
^XMB(3.9,41,2,4882,0)=" ;    (""QUEUE"") - name of the queue last obtained"
^XMB(3.9,41,2,4883,0)="""RTN"",""HLOCLNT"",10,0)"
^XMB(3.9,41,2,4884,0)=" ;Output:"
^XMB(3.9,41,2,4885,0)="""RTN"",""HLOCLNT"",11,0)"
^XMB(3.9,41,2,4886,0)=" ;  Function returns 1 if success, 0 if no more work"
^XMB(3.9,41,2,4887,0)="""RTN"",""HLOCLNT"",12,0)"
^XMB(3.9,41,2,4888,0)=" ;  QUE -  updated to identify next queue of messages to process."
^XMB(3.9,41,2,4889,0)="""RTN"",""HLOCLNT"",13,0)"
^XMB(3.9,41,2,4890,0)=" ;    (""LINK"") - <link name>_"":""_<port>"
^XMB(3.9,41,2,4891,0)="""RTN"",""HLOCLNT"",14,0)"
^XMB(3.9,41,2,4892,0)=" ;    (""QUEUE"") - the named queue on the link"
^XMB(3.9,41,2,4893,0)="""RTN"",""HLOCLNT"",15,0)"
^XMB(3.9,41,2,4894,0)=" ;    (""DOWN"") - =1 means that the last OPEN attempt failed"
^XMB(3.9,41,2,4895,0)="""RTN"",""HLOCLNT"",16,0)"
^XMB(3.9,41,2,4896,0)=" ;"
^XMB(3.9,41,2,4897,0)="""RTN"",""HLOCLNT"",17,0)"
^XMB(3.9,41,2,4898,0)=" N LINK,QUEUE"
^XMB(3.9,41,2,4899,0)="""RTN"",""HLOCLNT"",18,0)"
^XMB(3.9,41,2,4900,0)=" S LINK=$G(QUE(""LINK"")),QUEUE=$G(QUE(""QUEUE""))"
^XMB(3.9,41,2,4901,0)="""RTN"",""HLOCLNT"",19,0)"
^XMB(3.9,41,2,4902,0)=" I (LINK]""""),(QUEUE]"""") D"
^XMB(3.9,41,2,4903,0)="""RTN"",""HLOCLNT"",20,0)"
^XMB(3.9,41,2,4904,0)=" .L -^HLB(""QUEUE"",""OUT"",LINK,QUEUE)"
^XMB(3.9,41,2,4905,0)="""RTN"",""HLOCLNT"",21,0)"
^XMB(3.9,41,2,4906,0)=" .I '$$CNNCTD(LINK),$$FAILING(.LINK) S QUEUE="""" Q"
^XMB(3.9,41,2,4907,0)="""RTN"",""HLOCLNT"",22,0)"
^XMB(3.9,41,2,4908,0)=" .F  S QUEUE=$O(^HLB(""QUEUE"",""OUT"",LINK,QUEUE)) Q:(QUEUE="""")  I '$$STOPPED^HLOQUE(""OUT"",QUEUE) L +^HLB(""QUEUE"",""OUT"",LINK,QUEUE):0  Q:$T"
^XMB(3.9,41,2,4909,0)="""RTN"",""HLOCLNT"",23,0)"
^XMB(3.9,41,2,4910,0)=" I (LINK]""""),(QUEUE="""") D"
^XMB(3.9,41,2,4911,0)="""RTN"",""HLOCLNT"",24,0)"
^XMB(3.9,41,2,4912,0)=" .F  S LINK=$O(^HLB(""QUEUE"",""OUT"",LINK)) Q:LINK=""""  D  Q:$L(QUEUE)"
^XMB(3.9,41,2,4913,0)="""RTN"",""HLOCLNT"",25,0)"
^XMB(3.9,41,2,4914,0)=" ..I '$$CNNCTD(LINK),$$FAILING(.LINK) Q"
^XMB(3.9,41,2,4915,0)="""RTN"",""HLOCLNT"",26,0)"
^XMB(3.9,41,2,4916,0)=" ..S QUEUE="""" F  S QUEUE=$O(^HLB(""QUEUE"",""OUT"",LINK,QUEUE)) Q:(QUEUE="""")  I '$$STOPPED^HLOQUE(""OUT"",QUEUE) L +^HLB(""QUEUE"",""OUT"",LINK,QUEUE):0 Q:$T"
^XMB(3.9,41,2,4917,0)="""RTN"",""HLOCLNT"",27,0)"
^XMB(3.9,41,2,4918,0)=" I LINK="""" D"
^XMB(3.9,41,2,4919,0)="""RTN"",""HLOCLNT"",28,0)"
^XMB(3.9,41,2,4920,0)=" .F  S LINK=$O(^HLB(""QUEUE"",""OUT"",LINK)) Q:LINK=""""  D  Q:$L(QUEUE)"
^XMB(3.9,41,2,4921,0)="""RTN"",""HLOCLNT"",29,0)"
^XMB(3.9,41,2,4922,0)=" ..I '$$CNNCTD(LINK),$$FAILING(.LINK) Q"
^XMB(3.9,41,2,4923,0)="""RTN"",""HLOCLNT"",30,0)"
^XMB(3.9,41,2,4924,0)=" ..S QUEUE="""" F  S QUEUE=$O(^HLB(""QUEUE"",""OUT"",LINK,QUEUE)) Q:(QUEUE="""")  I '$$STOPPED^HLOQUE(""OUT"",QUEUE) L +^HLB(""QUEUE"",""OUT"",LINK,QUEUE):0 Q:$T"
^XMB(3.9,41,2,4925,0)="""RTN"",""HLOCLNT"",31,0)"
^XMB(3.9,41,2,4926,0)=" S QUE(""LINK"")=LINK,QUE(""QUEUE"")=QUEUE,QUE(""DOWN"")=$G(LINK(""DOWN""))"
^XMB(3.9,41,2,4927,0)="""RTN"",""HLOCLNT"",32,0)"
^XMB(3.9,41,2,4928,0)=" Q:$L(QUEUE) 1"
^XMB(3.9,41,2,4929,0)="""RTN"",""HLOCLNT"",33,0)"
^XMB(3.9,41,2,4930,0)=" D:$G(HLCSTATE(""CONNECTED"")) CLOSE^HLOT(.HLCSTATE)"
^XMB(3.9,41,2,4931,0)="""RTN"",""HLOCLNT"",34,0)"
^XMB(3.9,41,2,4932,0)=" Q 0"
^XMB(3.9,41,2,4933,0)="""RTN"",""HLOCLNT"",35,0)"
^XMB(3.9,41,2,4934,0)=" ;"
^XMB(3.9,41,2,4935,0)="""RTN"",""HLOCLNT"",36,0)"
^XMB(3.9,41,2,4936,0)="FAILING(LINK) ;"
^XMB(3.9,41,2,4937,0)="""RTN"",""HLOCLNT"",37,0)"
^XMB(3.9,41,2,4938,0)=" ;Returns 1 if the link has failed in the last 30 seconds, 0 otherwise"
^XMB(3.9,41,2,4939,0)="""RTN"",""HLOCLNT"",38,0)"
^XMB(3.9,41,2,4940,0)=" ;Also returns LINK(""DOWN"")=1 if the link was failing > 30 seconds ago, not yet known if its up"
^XMB(3.9,41,2,4941,0)="""RTN"",""HLOCLNT"",39,0)"
^XMB(3.9,41,2,4942,0)=" ;"
^XMB(3.9,41,2,4943,0)="""RTN"",""HLOCLNT"",40,0)"
^XMB(3.9,41,2,4944,0)=" N LASTTIME,SET"
^XMB(3.9,41,2,4945,0)="""RTN"",""HLOCLNT"",41,0)"
^XMB(3.9,41,2,4946,0)=" S LINK(""DOWN"")=0"
^XMB(3.9,41,2,4947,0)="""RTN"",""HLOCLNT"",42,0)"
^XMB(3.9,41,2,4948,0)=" S LASTTIME=$G(^HLB(""QUEUE"",""OUT"",LINK))"
^XMB(3.9,41,2,4949,0)="""RTN"",""HLOCLNT"",43,0)"
^XMB(3.9,41,2,4950,0)=" S SET=$S(LASTTIME]"""":1,1:0)"
^XMB(3.9,41,2,4951,0)="""RTN"",""HLOCLNT"",44,0)"
^XMB(3.9,41,2,4952,0)=" I SET D"
^XMB(3.9,41,2,4953,0)="""RTN"",""HLOCLNT"",45,0)"
^XMB(3.9,41,2,4954,0)=" .I $$HDIFF^XLFDT($H,LASTTIME,2)>30 S ^HLB(""QUEUE"",""OUT"",LINK)="""",SET=0,LINK(""DOWN"")=1"
^XMB(3.9,41,2,4955,0)="""RTN"",""HLOCLNT"",46,0)"
^XMB(3.9,41,2,4956,0)=" I $D(^HLTMP(""FAILING LINKS"",LINK)) S LINK(""DOWN"")=1"
^XMB(3.9,41,2,4957,0)="""RTN"",""HLOCLNT"",47,0)"
^XMB(3.9,41,2,4958,0)=" Q SET"
^XMB(3.9,41,2,4959,0)="""RTN"",""HLOCLNT"",48,0)"
^XMB(3.9,41,2,4960,0)=" ;"
^XMB(3.9,41,2,4961,0)="""RTN"",""HLOCLNT"",49,0)"
^XMB(3.9,41,2,4962,0)="LINKDOWN(HLCSTATE) ;"
^XMB(3.9,41,2,4963,0)="""RTN"",""HLOCLNT"",50,0)"
^XMB(3.9,41,2,4964,0)=" D:$G(HLCSTATE(""CONNECTED"")) CLOSE^HLOT(.HLCSTATE)"
^XMB(3.9,41,2,4965,0)="""RTN"",""HLOCLNT"",51,0)"
^XMB(3.9,41,2,4966,0)=" I $D(HLCSTATE(""LINK"",""NAME"")),$D(HLCSTATE(""LINK"",""PORT"")) D"
^XMB(3.9,41,2,4967,0)="""RTN"",""HLOCLNT"",52,0)"
^XMB(3.9,41,2,4968,0)=" .S TO=HLCSTATE(""LINK"",""NAME"")_"":""_HLCSTATE(""LINK"",""PORT"")"
^XMB(3.9,41,2,4969,0)="""RTN"",""HLOCLNT"",53,0)"
^XMB(3.9,41,2,4970,0)=" .S ^HLB(""QUEUE"",""OUT"",TO)=$H"
^XMB(3.9,41,2,4971,0)="""RTN"",""HLOCLNT"",54,0)"
^XMB(3.9,41,2,4972,0)=" .S:'$D(^HLTMP(""FAILING LINKS"",TO)) ^HLTMP(""FAILING LINKS"",TO)=$H"
^XMB(3.9,41,2,4973,0)="""RTN"",""HLOCLNT"",55,0)"
^XMB(3.9,41,2,4974,0)=" Q"
^XMB(3.9,41,2,4975,0)="""RTN"",""HLOCLNT"",56,0)"
^XMB(3.9,41,2,4976,0)=" ;"
^XMB(3.9,41,2,4977,0)="""RTN"",""HLOCLNT"",57,0)"
^XMB(3.9,41,2,4978,0)="ERROR ;error trap"
^XMB(3.9,41,2,4979,0)="""RTN"",""HLOCLNT"",58,0)"
^XMB(3.9,41,2,4980,0)=" S $ETRAP=""D UNWIND^%ZTER"""
^XMB(3.9,41,2,4981,0)="""RTN"",""HLOCLNT"",59,0)"
^XMB(3.9,41,2,4982,0)=" D DEQUE()"
^XMB(3.9,41,2,4983,0)="""RTN"",""HLOCLNT"",60,0)"
^XMB(3.9,41,2,4984,0)=" D LINKDOWN(.HLCSTATE)"
^XMB(3.9,41,2,4985,0)="""RTN"",""HLOCLNT"",61,0)"
^XMB(3.9,41,2,4986,0)=" ;"
^XMB(3.9,41,2,4987,0)="""RTN"",""HLOCLNT"",62,0)"
^XMB(3.9,41,2,4988,0)=" ;while debugging quit on all errors - this will return the process to the Process Manager error trap"
^XMB(3.9,41,2,4989,0)="""RTN"",""HLOCLNT"",63,0)"
^XMB(3.9,41,2,4990,0)=" I $G(^HLTMP(""LOG ALL ERRORS"")) QUIT"
^XMB(3.9,41,2,4991,0)="""RTN"",""HLOCLNT"",64,0)"
^XMB(3.9,41,2,4992,0)=" ;"
^XMB(3.9,41,2,4993,0)="""RTN"",""HLOCLNT"",65,0)"
^XMB(3.9,41,2,4994,0)=" ;don't log some common errors"
^XMB(3.9,41,2,4995,0)="""RTN"",""HLOCLNT"",66,0)"
^XMB(3.9,41,2,4996,0)=" I ($ECODE[""READ"")!($ECODE[""NOTOPEN"")!($ECODE[""DEVNOTOPN"")!($ECODE[""WRITE"")!($ECODE[""OPENERR"") D"
^XMB(3.9,41,2,4997,0)="""RTN"",""HLOCLNT"",67,0)"
^XMB(3.9,41,2,4998,0)=" .;"
^XMB(3.9,41,2,4999,0)="""RTN"",""HLOCLNT"",68,0)"
^XMB(3.9,41,2,5000,0)=" E  D"
^XMB(3.9,41,2,5001,0)="""RTN"",""HLOCLNT"",69,0)"
^XMB(3.9,41,2,5002,0)=" .D ^%ZTER"
^XMB(3.9,41,2,5003,0)="""RTN"",""HLOCLNT"",70,0)"
^XMB(3.9,41,2,5004,0)=" ;"
^XMB(3.9,41,2,5005,0)="""RTN"",""HLOCLNT"",71,0)"
^XMB(3.9,41,2,5006,0)=" ;a lot of errors of the same type may indicate an endless loop, so keep a count"
^XMB(3.9,41,2,5007,0)="""RTN"",""HLOCLNT"",72,0)"
^XMB(3.9,41,2,5008,0)=" S ^TMP(""HL7 ERRORS"",$J,$ECODE)=$G(^TMP(""HL7 ERRORS"",$J,$ECODE))+1"
^XMB(3.9,41,2,5009,0)="""RTN"",""HLOCLNT"",73,0)"
^XMB(3.9,41,2,5010,0)=" ;"
^XMB(3.9,41,2,5011,0)="""RTN"",""HLOCLNT"",74,0)"
^XMB(3.9,41,2,5012,0)=" QUIT:($G(^TMP(""HL7 ERRORS"",$J,$ECODE))>100)  ;return to the Process Manager error trap"
^XMB(3.9,41,2,5013,0)="""RTN"",""HLOCLNT"",75,0)"
^XMB(3.9,41,2,5014,0)=" D UNWIND^%ZTER"
^XMB(3.9,41,2,5015,0)="""RTN"",""HLOCLNT"",76,0)"
^XMB(3.9,41,2,5016,0)=" Q"
^XMB(3.9,41,2,5017,0)="""RTN"",""HLOCLNT"",77,0)"
^XMB(3.9,41,2,5018,0)=" ;"
^XMB(3.9,41,2,5019,0)="""RTN"",""HLOCLNT"",78,0)"
^XMB(3.9,41,2,5020,0)="DOWORK(QUEUE) ;sends the messages on the queue"
^XMB(3.9,41,2,5021,0)="""RTN"",""HLOCLNT"",79,0)"
^XMB(3.9,41,2,5022,0)=" N $ETRAP,$ESTACK S $ETRAP=""G ERROR^HLOCLNT"""
^XMB(3.9,41,2,5023,0)="""RTN"",""HLOCLNT"",80,0)"
^XMB(3.9,41,2,5024,0)=" N MSGIEN,DEQUE,SUCCESS,MSGCOUNT"
^XMB(3.9,41,2,5025,0)="""RTN"",""HLOCLNT"",81,0)"
^XMB(3.9,41,2,5026,0)=" S DEQUE=0"
^XMB(3.9,41,2,5027,0)="""RTN"",""HLOCLNT"",82,0)"
^XMB(3.9,41,2,5028,0)=" S SUCCESS=1"
^XMB(3.9,41,2,5029,0)="""RTN"",""HLOCLNT"",83,0)"
^XMB(3.9,41,2,5030,0)=" I '$$CNNCTD(QUEUE(""LINK"")),'$$CONNECT^HLOCLNT1($P(QUEUE(""LINK""),"":""),$P(QUEUE(""LINK""),"":"",2),.HLCSTATE) Q"
^XMB(3.9,41,2,5031,0)="""RTN"",""HLOCLNT"",84,0)"
^XMB(3.9,41,2,5032,0)=" ;"
^XMB(3.9,41,2,5033,0)="""RTN"",""HLOCLNT"",85,0)"
^XMB(3.9,41,2,5034,0)=" S (MSGCOUNT,MSGIEN)=0"
^XMB(3.9,41,2,5035,0)="""RTN"",""HLOCLNT"",86,0)"
^XMB(3.9,41,2,5036,0)=" F  S MSGIEN=$O(^HLB(""QUEUE"",""OUT"",QUEUE(""LINK""),QUEUE(""QUEUE""),MSGIEN)) Q:'MSGIEN  D  Q:'SUCCESS  Q:MSGCOUNT>1000"
^XMB(3.9,41,2,5037,0)="""RTN"",""HLOCLNT"",87,0)"
^XMB(3.9,41,2,5038,0)=" .N UPDATE"
^XMB(3.9,41,2,5039,0)="""RTN"",""HLOCLNT"",88,0)"
^XMB(3.9,41,2,5040,0)=" .I $$INC^HLOSITE($NA(^HLB(MSGIEN,""TRIES""))) S SUCCESS=0"
^XMB(3.9,41,2,5041,0)="""RTN"",""HLOCLNT"",89,0)"
^XMB(3.9,41,2,5042,0)=" .S:$$TRANSMIT(.HLCSTATE,MSGIEN,.UPDATE) SUCCESS=1"
^XMB(3.9,41,2,5043,0)="""RTN"",""HLOCLNT"",90,0)"
^XMB(3.9,41,2,5044,0)=" .Q:'SUCCESS"
^XMB(3.9,41,2,5045,0)="""RTN"",""HLOCLNT"",91,0)"
^XMB(3.9,41,2,5046,0)=" .D DEQUE(.UPDATE)"
^XMB(3.9,41,2,5047,0)="""RTN"",""HLOCLNT"",92,0)"
^XMB(3.9,41,2,5048,0)=" .S MSGCOUNT=MSGCOUNT+1"
^XMB(3.9,41,2,5049,0)="""RTN"",""HLOCLNT"",93,0)"
^XMB(3.9,41,2,5050,0)=" .;"
^XMB(3.9,41,2,5051,0)="""RTN"",""HLOCLNT"",94,0)"
^XMB(3.9,41,2,5052,0)=" .;if the queue was on the down list, mark it as up, since a message has been successfully transmitted across it"
^XMB(3.9,41,2,5053,0)="""RTN"",""HLOCLNT"",95,0)"
^XMB(3.9,41,2,5054,0)=" .I $G(QUEUE(""DOWN""))!$$FAILING(QUEUE(""LINK"")) S QUEUE(""DOWN"")=0,^HLB(""QUEUE"",""OUT"",QUEUE(""LINK""))="""" K ^HLTMP(""FAILING LINKS"",QUEUE(""LINK""))"
^XMB(3.9,41,2,5055,0)="""RTN"",""HLOCLNT"",96,0)"
^XMB(3.9,41,2,5056,0)=" ;"
^XMB(3.9,41,2,5057,0)="""RTN"",""HLOCLNT"",97,0)"
^XMB(3.9,41,2,5058,0)=" D DEQUE()"
^XMB(3.9,41,2,5059,0)="""RTN"",""HLOCLNT"",98,0)"
^XMB(3.9,41,2,5060,0)=" Q"
^XMB(3.9,41,2,5061,0)="""RTN"",""HLOCLNT"",99,0)"
^XMB(3.9,41,2,5062,0)="CNNCTD(LINK) ;"
^XMB(3.9,41,2,5063,0)="""RTN"",""HLOCLNT"",100,0)"
^XMB(3.9,41,2,5064,0)=" ;Connected to LINK?  HLCSTATE must be defined, LINK=<link name>:<port>"
^XMB(3.9,41,2,5065,0)="""RTN"",""HLOCLNT"",101,0)"
^XMB(3.9,41,2,5066,0)=" ;"
^XMB(3.9,41,2,5067,0)="""RTN"",""HLOCLNT"",102,0)"
^XMB(3.9,41,2,5068,0)=" I ($G(HLCSTATE(""LINK"",""NAME""))=$P(LINK,"":"")),($G(HLCSTATE(""LINK"",""PORT""))=$P(LINK,"":"",2)),$G(HLCSTATE(""CONNECTED"")) Q 1"
^XMB(3.9,41,2,5069,0)="""RTN"",""HLOCLNT"",103,0)"
^XMB(3.9,41,2,5070,0)=" Q 0"
^XMB(3.9,41,2,5071,0)="""RTN"",""HLOCLNT"",104,0)"
^XMB(3.9,41,2,5072,0)=" ;"
^XMB(3.9,41,2,5073,0)="""RTN"",""HLOCLNT"",105,0)"
^XMB(3.9,41,2,5074,0)="DEQUE(UPDATE) ;"
^XMB(3.9,41,2,5075,0)="""RTN"",""HLOCLNT"",106,0)"
^XMB(3.9,41,2,5076,0)=" I $D(UPDATE) S DEQUE=DEQUE+1,DEQUE(+UPDATE)=$P(UPDATE,""^"",2,99) S:$G(UPDATE(""MSA""))]"""" DEQUE(+UPDATE,""MSA"")=UPDATE(""MSA"") S:$G(UPDATE(""ACTION""))]"""" DEQUE(+UPDATE,""ACTION"")=UPDATE(""ACTION"")"
^XMB(3.9,41,2,5077,0)="""RTN"",""HLOCLNT"",107,0)"
^XMB(3.9,41,2,5078,0)=" I '$D(UPDATE)!(DEQUE>15) D"
^XMB(3.9,41,2,5079,0)="""RTN"",""HLOCLNT"",108,0)"
^XMB(3.9,41,2,5080,0)=" .N MSGIEN S MSGIEN=0"
^XMB(3.9,41,2,5081,0)="""RTN"",""HLOCLNT"",109,0)"
^XMB(3.9,41,2,5082,0)=" .F  S MSGIEN=$O(DEQUE(MSGIEN)) Q:'MSGIEN  D"
^XMB(3.9,41,2,5083,0)="""RTN"",""HLOCLNT"",110,0)"
^XMB(3.9,41,2,5084,0)=" ..N NODE,TIME"
^XMB(3.9,41,2,5085,0)="""RTN"",""HLOCLNT"",111,0)"
^XMB(3.9,41,2,5086,0)=" ..D DEQUE^HLOQUE(QUEUE(""LINK""),QUEUE(""QUEUE""),""OUT"",MSGIEN)"
^XMB(3.9,41,2,5087,0)="""RTN"",""HLOCLNT"",112,0)"
^XMB(3.9,41,2,5088,0)=" ..S TIME=$P(DEQUE(MSGIEN),""^"")"
^XMB(3.9,41,2,5089,0)="""RTN"",""HLOCLNT"",113,0)"
^XMB(3.9,41,2,5090,0)=" ..S NODE=QUEUE(""LINK"")_""^""_QUEUE(""QUEUE"")_""^""_$P(DEQUE(MSGIEN),""^"",2,99)"
^XMB(3.9,41,2,5091,0)="""RTN"",""HLOCLNT"",114,0)"
^XMB(3.9,41,2,5092,0)=" ..S ^HLTMP(""CLIENT UPDATES"",$J,TIME,MSGIEN)=NODE"
^XMB(3.9,41,2,5093,0)="""RTN"",""HLOCLNT"",115,0)"
^XMB(3.9,41,2,5094,0)=" ..S:$G(DEQUE(MSGIEN,""MSA""))]"""" ^HLTMP(""CLIENT UPDATES"",$J,TIME,MSGIEN,""MSA"")=DEQUE(MSGIEN,""MSA"")"
^XMB(3.9,41,2,5095,0)="""RTN"",""HLOCLNT"",116,0)"
^XMB(3.9,41,2,5096,0)=" ..S:$G(DEQUE(MSGIEN,""ACTION""))]"""" ^HLTMP(""CLIENT UPDATES"",$J,TIME,MSGIEN,""ACTION"")=DEQUE(MSGIEN,""ACTION"")"
^XMB(3.9,41,2,5097,0)="""RTN"",""HLOCLNT"",117,0)"
^XMB(3.9,41,2,5098,0)=" .K DEQUE S DEQUE=0"
^XMB(3.9,41,2,5099,0)="""RTN"",""HLOCLNT"",118,0)"
^XMB(3.9,41,2,5100,0)=" Q"
^XMB(3.9,41,2,5101,0)="""RTN"",""HLOCLNT"",119,0)"
^XMB(3.9,41,2,5102,0)=" ;"
^XMB(3.9,41,2,5103,0)="""RTN"",""HLOCLNT"",120,0)"
^XMB(3.9,41,2,5104,0)="TRANSMIT(HLCSTATE,MSGIEN,UPDATE) ;"
^XMB(3.9,41,2,5105,0)="""RTN"",""HLOCLNT"",121,0)"
^XMB(3.9,41,2,5106,0)=" ;Transmits a single message and if a commit ack was requested reads it.  Updates file 778 with the result.  Queues for the infiler the application accept action if one was requested."
^XMB(3.9,41,2,5107,0)="""RTN"",""HLOCLNT"",122,0)"
^XMB(3.9,41,2,5108,0)=" ;Input:"
^XMB(3.9,41,2,5109,0)="""RTN"",""HLOCLNT"",123,0)"
^XMB(3.9,41,2,5110,0)=" ;   HLCSTATE (pass by reference)"
^XMB(3.9,41,2,5111,0)="""RTN"",""HLOCLNT"",124,0)"
^XMB(3.9,41,2,5112,0)=" ;   MSGIEN - ien, file 778, of message to be transmitted"
^XMB(3.9,41,2,5113,0)="""RTN"",""HLOCLNT"",125,0)"
^XMB(3.9,41,2,5114,0)=" ;Output:"
^XMB(3.9,41,2,5115,0)="""RTN"",""HLOCLNT"",126,0)"
^XMB(3.9,41,2,5116,0)=" ;  Function returns 1 on success, 0 on failure"
^XMB(3.9,41,2,5117,0)="""RTN"",""HLOCLNT"",127,0)"
^XMB(3.9,41,2,5118,0)=" ;  UPDATE - (pass by reference) to contain updates needed for message"
^XMB(3.9,41,2,5119,0)="""RTN"",""HLOCLNT"",128,0)"
^XMB(3.9,41,2,5120,0)=" ;"
^XMB(3.9,41,2,5121,0)="""RTN"",""HLOCLNT"",129,0)"
^XMB(3.9,41,2,5122,0)=" N HLMSTATE,MSA,HDR,SUCCESS"
^XMB(3.9,41,2,5123,0)="""RTN"",""HLOCLNT"",130,0)"
^XMB(3.9,41,2,5124,0)=" ;get the message that is to be sent"
^XMB(3.9,41,2,5125,0)="""RTN"",""HLOCLNT"",131,0)"
^XMB(3.9,41,2,5126,0)=" S UPDATE=MSGIEN_""^""_$$NOW^XLFDT"
^XMB(3.9,41,2,5127,0)="""RTN"",""HLOCLNT"",132,0)"
^XMB(3.9,41,2,5128,0)=" ;"
^XMB(3.9,41,2,5129,0)="""RTN"",""HLOCLNT"",133,0)"
^XMB(3.9,41,2,5130,0)=" S SUCCESS=0"
^XMB(3.9,41,2,5131,0)="""RTN"",""HLOCLNT"",134,0)"
^XMB(3.9,41,2,5132,0)=" S HLCSTATE(""ATTEMPT"")=0"
^XMB(3.9,41,2,5133,0)="""RTN"",""HLOCLNT"",135,0)"
^XMB(3.9,41,2,5134,0)="RETRY ;"
^XMB(3.9,41,2,5135,0)="""RTN"",""HLOCLNT"",136,0)"
^XMB(3.9,41,2,5136,0)=" S HLCSTATE(""ATTEMPT"")=HLCSTATE(""ATTEMPT"")+1"
^XMB(3.9,41,2,5137,0)="""RTN"",""HLOCLNT"",137,0)"
^XMB(3.9,41,2,5138,0)=" I ('HLCSTATE(""CONNECTED""))!(HLCSTATE(""ATTEMPT"")>1) G GIVEUP"
^XMB(3.9,41,2,5139,0)="""RTN"",""HLOCLNT"",138,0)"
^XMB(3.9,41,2,5140,0)=" ;"
^XMB(3.9,41,2,5141,0)="""RTN"",""HLOCLNT"",139,0)"
^XMB(3.9,41,2,5142,0)=" Q:'$$GETMSG(MSGIEN,.HLMSTATE) 1  ;returns 1 so the message will be removed from the queue"
^XMB(3.9,41,2,5143,0)="""RTN"",""HLOCLNT"",140,0)"
^XMB(3.9,41,2,5144,0)=" I HLMSTATE(""DT/TM""),HLMSTATE(""STATUS"",""ACCEPTED"")!(HLMSTATE(""HDR"",""ACCEPT ACK TYPE"")=""NE"") Q 1"
^XMB(3.9,41,2,5145,0)="""RTN"",""HLOCLNT"",141,0)"
^XMB(3.9,41,2,5146,0)=" ;"
^XMB(3.9,41,2,5147,0)="""RTN"",""HLOCLNT"",142,0)"
^XMB(3.9,41,2,5148,0)=" ;try to send the message"
^XMB(3.9,41,2,5149,0)="""RTN"",""HLOCLNT"",143,0)"
^XMB(3.9,41,2,5150,0)=" Q:'$$WRITEMSG^HLOCLNT1(.HLCSTATE,.HLMSTATE) 0"
^XMB(3.9,41,2,5151,0)="""RTN"",""HLOCLNT"",144,0)"
^XMB(3.9,41,2,5152,0)=" ;does the message need an accept ack?"
^XMB(3.9,41,2,5153,0)="""RTN"",""HLOCLNT"",145,0)"
^XMB(3.9,41,2,5154,0)=" I HLMSTATE(""HDR"",""ACCEPT ACK TYPE"")=""AL"" D  G:'SUCCESS RETRY"
^XMB(3.9,41,2,5155,0)="""RTN"",""HLOCLNT"",146,0)"
^XMB(3.9,41,2,5156,0)=" .N FS"
^XMB(3.9,41,2,5157,0)="""RTN"",""HLOCLNT"",147,0)"
^XMB(3.9,41,2,5158,0)="READACK .;GOTO within a inside dotted DO is on purpose - if the read of ack fails, it will try again, discarding whatever was received.  The remote server must follow the protocol. "
^XMB(3.9,41,2,5159,0)="""RTN"",""HLOCLNT"",148,0)"
^XMB(3.9,41,2,5160,0)=" .Q:'$$READACK^HLOCLNT1(.HLCSTATE,.HDR,.MSA)"
^XMB(3.9,41,2,5161,0)="""RTN"",""HLOCLNT"",149,0)"
^XMB(3.9,41,2,5162,0)=" .;does the MSA refer to the correct control id?"
^XMB(3.9,41,2,5163,0)="""RTN"",""HLOCLNT"",150,0)"
^XMB(3.9,41,2,5164,0)=" .S FS=$E(HDR(1),4)"
^XMB(3.9,41,2,5165,0)="""RTN"",""HLOCLNT"",151,0)"
^XMB(3.9,41,2,5166,0)=" .I $P(MSA,FS,3)'=$S(HLMSTATE(""BATCH""):HLMSTATE(""HDR"",""BATCH CONTROL ID""),1:HLMSTATE(""HDR"",""MESSAGE CONTROL ID"")) G READACK"
^XMB(3.9,41,2,5167,0)="""RTN"",""HLOCLNT"",152,0)"
^XMB(3.9,41,2,5168,0)=" .N ACKID,ACKCODE"
^XMB(3.9,41,2,5169,0)="""RTN"",""HLOCLNT"",153,0)"
^XMB(3.9,41,2,5170,0)=" .S ACKCODE=$P(MSA,FS,2)"
^XMB(3.9,41,2,5171,0)="""RTN"",""HLOCLNT"",154,0)"
^XMB(3.9,41,2,5172,0)=" .S ACKID=$S($E(HDR(1),1,3)=""MSH"":$P(HDR(2),FS,5),1:$P(HDR(2),FS,6))"
^XMB(3.9,41,2,5173,0)="""RTN"",""HLOCLNT"",155,0)"
^XMB(3.9,41,2,5174,0)=" .S $P(UPDATE,""^"",5)=1"
^XMB(3.9,41,2,5175,0)="""RTN"",""HLOCLNT"",156,0)"
^XMB(3.9,41,2,5176,0)=" .S UPDATE(""MSA"")=ACKID_""^""_MSA"
^XMB(3.9,41,2,5177,0)="""RTN"",""HLOCLNT"",157,0)"
^XMB(3.9,41,2,5178,0)=" .I '(ACKCODE=""CA"") S $P(UPDATE,""^"",3)=""SE"",$P(UPDATE,""^"",4)=2"
^XMB(3.9,41,2,5179,0)="""RTN"",""HLOCLNT"",158,0)"
^XMB(3.9,41,2,5180,0)=" .I ACKCODE=""CA"",HLMSTATE(""HDR"",""APP ACK TYPE"")=""NE"" S $P(UPDATE,""^"",3)=""SU"",$P(UPDATE,""^"",4)=$S(HLMSTATE(""BATCH""):""2"",1:1)"
^XMB(3.9,41,2,5181,0)="""RTN"",""HLOCLNT"",159,0)"
^XMB(3.9,41,2,5182,0)=" .I ($P(UPDATE,""^"",3)=""SE"") S $P(UPDATE,""^"",6)=$P(HLMSTATE(""HDR"",1),FS,5) ;errors need the application for xref"
^XMB(3.9,41,2,5183,0)="""RTN"",""HLOCLNT"",160,0)"
^XMB(3.9,41,2,5184,0)=" .;"
^XMB(3.9,41,2,5185,0)="""RTN"",""HLOCLNT"",161,0)"
^XMB(3.9,41,2,5186,0)=" .;did the app request notification of accept ack?"
^XMB(3.9,41,2,5187,0)="""RTN"",""HLOCLNT"",162,0)"
^XMB(3.9,41,2,5188,0)=" .S UPDATE(""ACTION"")=HLMSTATE(""ACCEPT ACK RESPONSE"")"
^XMB(3.9,41,2,5189,0)="""RTN"",""HLOCLNT"",163,0)"
^XMB(3.9,41,2,5190,0)=" .S SUCCESS=1"
^XMB(3.9,41,2,5191,0)="""RTN"",""HLOCLNT"",164,0)"
^XMB(3.9,41,2,5192,0)=" E  D  ;accept ack wasn't requested"
^XMB(3.9,41,2,5193,0)="""RTN"",""HLOCLNT"",165,0)"
^XMB(3.9,41,2,5194,0)=" .S SUCCESS=1"
^XMB(3.9,41,2,5195,0)="""RTN"",""HLOCLNT"",166,0)"
^XMB(3.9,41,2,5196,0)=" .I HLMSTATE(""HDR"",""APP ACK TYPE"")=""NE"" S $P(UPDATE,""^"",3)=""SU"",$P(UPDATE,""^"",4)=$S(HLMSTATE(""BATCH""):2,1:1)"
^XMB(3.9,41,2,5197,0)="""RTN"",""HLOCLNT"",167,0)"
^XMB(3.9,41,2,5198,0)=" ;"
^XMB(3.9,41,2,5199,0)="""RTN"",""HLOCLNT"",168,0)"
^XMB(3.9,41,2,5200,0)=" G:'SUCCESS RETRY ;only executes if reading the ack failed"
^XMB(3.9,41,2,5201,0)="""RTN"",""HLOCLNT"",169,0)"
^XMB(3.9,41,2,5202,0)=" ;"
^XMB(3.9,41,2,5203,0)="""RTN"",""HLOCLNT"",170,0)"
^XMB(3.9,41,2,5204,0)="GIVEUP ;"
^XMB(3.9,41,2,5205,0)="""RTN"",""HLOCLNT"",171,0)"
^XMB(3.9,41,2,5206,0)=" I ('HLCSTATE(""CONNECTED""))!('SUCCESS) D LINKDOWN(.HLCSTATE)"
^XMB(3.9,41,2,5207,0)="""RTN"",""HLOCLNT"",172,0)"
^XMB(3.9,41,2,5208,0)=" Q SUCCESS"
^XMB(3.9,41,2,5209,0)="""RTN"",""HLOCLNT"",173,0)"
^XMB(3.9,41,2,5210,0)=" ;"
^XMB(3.9,41,2,5211,0)="""RTN"",""HLOCLNT"",174,0)"
^XMB(3.9,41,2,5212,0)="GETMSG(IEN,MSG) ;"
^XMB(3.9,41,2,5213,0)="""RTN"",""HLOCLNT"",175,0)"
^XMB(3.9,41,2,5214,0)=" ;Description: given the message ien=MSGIEN (required), it returns the MSG array containing information about the message, defined below."
^XMB(3.9,41,2,5215,0)="""RTN"",""HLOCLNT"",176,0)"
^XMB(3.9,41,2,5216,0)=" ;Input:"
^XMB(3.9,41,2,5217,0)="""RTN"",""HLOCLNT"",177,0)"
^XMB(3.9,41,2,5218,0)=" ;  IEN - the ien of the message in file 778"
^XMB(3.9,41,2,5219,0)="""RTN"",""HLOCLNT"",178,0)"
^XMB(3.9,41,2,5220,0)=" ;Output:"
^XMB(3.9,41,2,5221,0)="""RTN"",""HLOCLNT"",179,0)"
^XMB(3.9,41,2,5222,0)=" ;  Function returns 1 on success, 0 on failure"
^XMB(3.9,41,2,5223,0)="""RTN"",""HLOCLNT"",180,0)"
^XMB(3.9,41,2,5224,0)=" ;  MSG (pass by reference, required) These are the subscripts returned:"
^XMB(3.9,41,2,5225,0)="""RTN"",""HLOCLNT"",181,0)"
^XMB(3.9,41,2,5226,0)=" ;    ""BATCH""  = 1 if this is a batch message, 0  if not"
^XMB(3.9,41,2,5227,0)="""RTN"",""HLOCLNT"",182,0)"
^XMB(3.9,41,2,5228,0)=" ;       ""CURRENT MESSAGE"" - defined only for batch messages -  a counter used during building and parsing messages to indicate the current message.  It will be set to 0 initially."
^XMB(3.9,41,2,5229,0)="""RTN"",""HLOCLNT"",183,0)"
^XMB(3.9,41,2,5230,0)=" ;   ""BODY"" - ptr to file 778 which contains the body of the message."
^XMB(3.9,41,2,5231,0)="""RTN"",""HLOCLNT"",184,0)"
^XMB(3.9,41,2,5232,0)=" ;   ""ACCEPT ACK RESPONSE"" - if the sending app requested notification of the accept ack, this is the routine to perform"
^XMB(3.9,41,2,5233,0)="""RTN"",""HLOCLNT"",185,0)"
^XMB(3.9,41,2,5234,0)=" ;   ""LINE COUNT"" -  a counter used during writing of the"
^XMB(3.9,41,2,5235,0)="""RTN"",""HLOCLNT"",186,0)"
^XMB(3.9,41,2,5236,0)=" ;     messages to indicate the current line. For"
^XMB(3.9,41,2,5237,0)="""RTN"",""HLOCLNT"",187,0)"
^XMB(3.9,41,2,5238,0)=" ;     batch messages where each message within the batch is stored"
^XMB(3.9,41,2,5239,0)="""RTN"",""HLOCLNT"",188,0)"
^XMB(3.9,41,2,5240,0)=" ;     separately, this field indicates the position within the current"
^XMB(3.9,41,2,5241,0)="""RTN"",""HLOCLNT"",189,0)"
^XMB(3.9,41,2,5242,0)=" ;     individual message"
^XMB(3.9,41,2,5243,0)="""RTN"",""HLOCLNT"",190,0)"
^XMB(3.9,41,2,5244,0)=" ;   ""HDR"" at these lower subscripts:"
^XMB(3.9,41,2,5245,0)="""RTN"",""HLOCLNT"",191,0)"
^XMB(3.9,41,2,5246,0)=" ;       1    - components 1-6"
^XMB(3.9,41,2,5247,0)="""RTN"",""HLOCLNT"",192,0)"
^XMB(3.9,41,2,5248,0)=" ;       2    - components 7-end"
^XMB(3.9,41,2,5249,0)="""RTN"",""HLOCLNT"",193,0)"
^XMB(3.9,41,2,5250,0)=" ;       ""ACCEPT ACK TYPE"" = ""AL"" or ""NE"""
^XMB(3.9,41,2,5251,0)="""RTN"",""HLOCLNT"",194,0)"
^XMB(3.9,41,2,5252,0)=" ;       ""APP ACK TYPE"" = ""AL"" or ""NE"""
^XMB(3.9,41,2,5253,0)="""RTN"",""HLOCLNT"",195,0)"
^XMB(3.9,41,2,5254,0)=" ;       ""MESSAGE CONTROL ID"" - defined if NOT batch"
^XMB(3.9,41,2,5255,0)="""RTN"",""HLOCLNT"",196,0)"
^XMB(3.9,41,2,5256,0)=" ;       ""BATCH CONTROL ID"" - defined if batch"
^XMB(3.9,41,2,5257,0)="""RTN"",""HLOCLNT"",197,0)"
^XMB(3.9,41,2,5258,0)=" ;"
^XMB(3.9,41,2,5259,0)="""RTN"",""HLOCLNT"",198,0)"
^XMB(3.9,41,2,5260,0)=" ;"
^XMB(3.9,41,2,5261,0)="""RTN"",""HLOCLNT"",199,0)"
^XMB(3.9,41,2,5262,0)=" ;   ""IEN"" - ien, file 778"
^XMB(3.9,41,2,5263,0)="""RTN"",""HLOCLNT"",200,0)"
^XMB(3.9,41,2,5264,0)=" ;"
^XMB(3.9,41,2,5265,0)="""RTN"",""HLOCLNT"",201,0)"
^XMB(3.9,41,2,5266,0)=" K MSG"
^XMB(3.9,41,2,5267,0)="""RTN"",""HLOCLNT"",202,0)"
^XMB(3.9,41,2,5268,0)=" Q:'$G(IEN) 0"
^XMB(3.9,41,2,5269,0)="""RTN"",""HLOCLNT"",203,0)"
^XMB(3.9,41,2,5270,0)=" N NODE,FS"
^XMB(3.9,41,2,5271,0)="""RTN"",""HLOCLNT"",204,0)"
^XMB(3.9,41,2,5272,0)=" S MSG(""IEN"")=IEN"
^XMB(3.9,41,2,5273,0)="""RTN"",""HLOCLNT"",205,0)"
^XMB(3.9,41,2,5274,0)=" S NODE=$G(^HLB(IEN,0))"
^XMB(3.9,41,2,5275,0)="""RTN"",""HLOCLNT"",206,0)"
^XMB(3.9,41,2,5276,0)=" S MSG(""BODY"")=$P(NODE,""^"",2)"
^XMB(3.9,41,2,5277,0)="""RTN"",""HLOCLNT"",207,0)"
^XMB(3.9,41,2,5278,0)=" Q:'MSG(""BODY"") 0"
^XMB(3.9,41,2,5279,0)="""RTN"",""HLOCLNT"",208,0)"
^XMB(3.9,41,2,5280,0)=" S MSG(""STATUS"",""ACCEPTED"")=$P(NODE,""^"",17)"
^XMB(3.9,41,2,5281,0)="""RTN"",""HLOCLNT"",209,0)"
^XMB(3.9,41,2,5282,0)=" S MSG(""DT/TM"")=$P(NODE,""^"",16)"
^XMB(3.9,41,2,5283,0)="""RTN"",""HLOCLNT"",210,0)"
^XMB(3.9,41,2,5284,0)=" S MSG(""STATUS"",""QUEUE"")=$P(NODE,""^"",6)"
^XMB(3.9,41,2,5285,0)="""RTN"",""HLOCLNT"",211,0)"
^XMB(3.9,41,2,5286,0)=" I MSG(""STATUS"",""QUEUE"")="""" S MSG(""STATUS"",""QUEUE"")=""DEFAULT"""
^XMB(3.9,41,2,5287,0)="""RTN"",""HLOCLNT"",212,0)"
^XMB(3.9,41,2,5288,0)=" S MSG(""ACCEPT ACK RESPONSE"")=$P(NODE,""^"",12,13)"
^XMB(3.9,41,2,5289,0)="""RTN"",""HLOCLNT"",213,0)"
^XMB(3.9,41,2,5290,0)=" I MSG(""ACCEPT ACK RESPONSE"")=""^"" S MSG(""ACCEPT ACK RESPONSE"")="""""
^XMB(3.9,41,2,5291,0)="""RTN"",""HLOCLNT"",214,0)"
^XMB(3.9,41,2,5292,0)=" ;"
^XMB(3.9,41,2,5293,0)="""RTN"",""HLOCLNT"",215,0)"
^XMB(3.9,41,2,5294,0)=" S MSG(""BATCH"")=+$P($G(^HLA(MSG(""BODY""),0)),""^"",2)"
^XMB(3.9,41,2,5295,0)="""RTN"",""HLOCLNT"",216,0)"
^XMB(3.9,41,2,5296,0)=" I MSG(""BATCH"") S MSG(""BATCH"",""CURRENT MESSAGE"")=0"
^XMB(3.9,41,2,5297,0)="""RTN"",""HLOCLNT"",217,0)"
^XMB(3.9,41,2,5298,0)=" S MSG(""LINE COUNT"")=0"
^XMB(3.9,41,2,5299,0)="""RTN"",""HLOCLNT"",218,0)"
^XMB(3.9,41,2,5300,0)=" S MSG(""HDR"",1)=$G(^HLB(IEN,1))"
^XMB(3.9,41,2,5301,0)="""RTN"",""HLOCLNT"",219,0)"
^XMB(3.9,41,2,5302,0)=" S MSG(""HDR"",2)=$G(^HLB(IEN,2))"
^XMB(3.9,41,2,5303,0)="""RTN"",""HLOCLNT"",220,0)"
^XMB(3.9,41,2,5304,0)=" S FS=$E(MSG(""HDR"",1),4)"
^XMB(3.9,41,2,5305,0)="""RTN"",""HLOCLNT"",221,0)"
^XMB(3.9,41,2,5306,0)=" S MSG(""HDR"",""FIELD SEPARATOR"")=FS"
^XMB(3.9,41,2,5307,0)="""RTN"",""HLOCLNT"",222,0)"
^XMB(3.9,41,2,5308,0)=" I 'MSG(""BATCH"") D"
^XMB(3.9,41,2,5309,0)="""RTN"",""HLOCLNT"",223,0)"
^XMB(3.9,41,2,5310,0)=" .S MSG(""HDR"",""ACCEPT ACK TYPE"")=$E($P(MSG(""HDR"",2),FS,10),1,2)"
^XMB(3.9,41,2,5311,0)="""RTN"",""HLOCLNT"",224,0)"
^XMB(3.9,41,2,5312,0)=" .S MSG(""HDR"",""APP ACK TYPE"")=$E($P(MSG(""HDR"",2),FS,11),1,2)"
^XMB(3.9,41,2,5313,0)="""RTN"",""HLOCLNT"",225,0)"
^XMB(3.9,41,2,5314,0)=" .S MSG(""HDR"",""MESSAGE CONTROL ID"")=$P(MSG(""HDR"",2),FS,5)"
^XMB(3.9,41,2,5315,0)="""RTN"",""HLOCLNT"",226,0)"
^XMB(3.9,41,2,5316,0)=" E  D"
^XMB(3.9,41,2,5317,0)="""RTN"",""HLOCLNT"",227,0)"
^XMB(3.9,41,2,5318,0)=" .S MSG(""HDR"",""BATCH CONTROL ID"")=$P(MSG(""HDR"",2),FS,6)"
^XMB(3.9,41,2,5319,0)="""RTN"",""HLOCLNT"",228,0)"
^XMB(3.9,41,2,5320,0)=" .S MSG(""HDR"",""ACCEPT ACK TYPE"")=$E($P($P(MSG(""HDR"",2),FS,4),""ACCEPT ACK TYPE="",2),1,2)"
^XMB(3.9,41,2,5321,0)="""RTN"",""HLOCLNT"",229,0)"
^XMB(3.9,41,2,5322,0)=" .S MSG(""HDR"",""APP ACK TYPE"")=$E($P($P(MSG(""HDR"",2),FS,4),""APP ACK TYPE="",2),1,2)"
^XMB(3.9,41,2,5323,0)="""RTN"",""HLOCLNT"",230,0)"
^XMB(3.9,41,2,5324,0)=" Q 1"
^XMB(3.9,41,2,5325,0)="""RTN"",""HLOCLNT1"")"
^XMB(3.9,41,2,5326,0)="0^9^B25822354"
^XMB(3.9,41,2,5327,0)="""RTN"",""HLOCLNT1"",1,0)"
^XMB(3.9,41,2,5328,0)="HLOCLNT1 ;IRMFO-ALB/CJM - Writing messages, reading acks;03/24/2004  14:43"
^XMB(3.9,41,2,5329,0)="""RTN"",""HLOCLNT1"",2,0)"
^XMB(3.9,41,2,5330,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995"
^XMB(3.9,41,2,5331,0)="""RTN"",""HLOCLNT1"",3,0)"
^XMB(3.9,41,2,5332,0)=" ;"
^XMB(3.9,41,2,5333,0)="""RTN"",""HLOCLNT1"",4,0)"
^XMB(3.9,41,2,5334,0)=" ;"
^XMB(3.9,41,2,5335,0)="""RTN"",""HLOCLNT1"",5,0)"
^XMB(3.9,41,2,5336,0)="WRITEMSG(HLCSTATE,HLMSTATE) ;"
^XMB(3.9,41,2,5337,0)="""RTN"",""HLOCLNT1"",6,0)"
^XMB(3.9,41,2,5338,0)=" ;Description:  This function uses the services offered by the transport layer to send a message over an open communication channel."
^XMB(3.9,41,2,5339,0)="""RTN"",""HLOCLNT1"",7,0)"
^XMB(3.9,41,2,5340,0)=" ;"
^XMB(3.9,41,2,5341,0)="""RTN"",""HLOCLNT1"",8,0)"
^XMB(3.9,41,2,5342,0)=" ;Input:"
^XMB(3.9,41,2,5343,0)="""RTN"",""HLOCLNT1"",9,0)"
^XMB(3.9,41,2,5344,0)=" ;  HLCSTATE (pass by reference, required) Defines the communication channel and its state."
^XMB(3.9,41,2,5345,0)="""RTN"",""HLOCLNT1"",10,0)"
^XMB(3.9,41,2,5346,0)=" ;  HLMSTATE (pass by reference, required) Defines the message and its state."
^XMB(3.9,41,2,5347,0)="""RTN"",""HLOCLNT1"",11,0)"
^XMB(3.9,41,2,5348,0)=" ;Output:"
^XMB(3.9,41,2,5349,0)="""RTN"",""HLOCLNT1"",12,0)"
^XMB(3.9,41,2,5350,0)=" ;  Function returns 1 on success, 0 on failure"
^XMB(3.9,41,2,5351,0)="""RTN"",""HLOCLNT1"",13,0)"
^XMB(3.9,41,2,5352,0)=" ;"
^XMB(3.9,41,2,5353,0)="""RTN"",""HLOCLNT1"",14,0)"
^XMB(3.9,41,2,5354,0)=" N SEG,QUIT,HDR"
^XMB(3.9,41,2,5355,0)="""RTN"",""HLOCLNT1"",15,0)"
^XMB(3.9,41,2,5356,0)=" S QUIT=0"
^XMB(3.9,41,2,5357,0)="""RTN"",""HLOCLNT1"",16,0)"
^XMB(3.9,41,2,5358,0)=" Q:'$G(HLMSTATE(""IEN"")) 0"
^XMB(3.9,41,2,5359,0)="""RTN"",""HLOCLNT1"",17,0)"
^XMB(3.9,41,2,5360,0)=" S HDR(1)=HLMSTATE(""HDR"",1),HDR(2)=HLMSTATE(""HDR"",2)"
^XMB(3.9,41,2,5361,0)="""RTN"",""HLOCLNT1"",18,0)"
^XMB(3.9,41,2,5362,0)=" Q:'$$WRITEHDR^HLOT(.HLCSTATE,.HDR) 0"
^XMB(3.9,41,2,5363,0)="""RTN"",""HLOCLNT1"",19,0)"
^XMB(3.9,41,2,5364,0)=" I HLMSTATE(""BATCH"") D"
^XMB(3.9,41,2,5365,0)="""RTN"",""HLOCLNT1"",20,0)"
^XMB(3.9,41,2,5366,0)=" .N LAST S LAST=0"
^XMB(3.9,41,2,5367,0)="""RTN"",""HLOCLNT1"",21,0)"
^XMB(3.9,41,2,5368,0)=" .S HLMSTATE(""BATCH"",""CURRENT MESSAGE"")=0"
^XMB(3.9,41,2,5369,0)="""RTN"",""HLOCLNT1"",22,0)"
^XMB(3.9,41,2,5370,0)=" .F  Q:'$$NEXTMSG^HLOMSG(.HLMSTATE,.SEG)  D  Q:QUIT"
^XMB(3.9,41,2,5371,0)="""RTN"",""HLOCLNT1"",23,0)"
^XMB(3.9,41,2,5372,0)=" ..S LAST=HLMSTATE(""BATCH"",""CURRENT MESSAGE"")"
^XMB(3.9,41,2,5373,0)="""RTN"",""HLOCLNT1"",24,0)"
^XMB(3.9,41,2,5374,0)=" ..I '$$WRITESEG^HLOT(.HLCSTATE,.SEG) S QUIT=1 Q"
^XMB(3.9,41,2,5375,0)="""RTN"",""HLOCLNT1"",25,0)"
^XMB(3.9,41,2,5376,0)=" ..F  Q:'$$HLNEXT^HLOMSG(.HLMSTATE,.SEG)  D  Q:QUIT"
^XMB(3.9,41,2,5377,0)="""RTN"",""HLOCLNT1"",26,0)"
^XMB(3.9,41,2,5378,0)=" ...I '$$WRITESEG^HLOT(.HLCSTATE,.SEG) S QUIT=1 Q"
^XMB(3.9,41,2,5379,0)="""RTN"",""HLOCLNT1"",27,0)"
^XMB(3.9,41,2,5380,0)=" .K SEG S SEG(1)=""BTS""_HLMSTATE(""HDR"",""FIELD SEPARATOR"")_LAST"
^XMB(3.9,41,2,5381,0)="""RTN"",""HLOCLNT1"",28,0)"
^XMB(3.9,41,2,5382,0)=" .S:'$$WRITESEG^HLOT(.HLCSTATE,.SEG) QUIT=1"
^XMB(3.9,41,2,5383,0)="""RTN"",""HLOCLNT1"",29,0)"
^XMB(3.9,41,2,5384,0)=" E  D"
^XMB(3.9,41,2,5385,0)="""RTN"",""HLOCLNT1"",30,0)"
^XMB(3.9,41,2,5386,0)=" .F  Q:'$$HLNEXT^HLOMSG(.HLMSTATE,.SEG)  D  Q:QUIT"
^XMB(3.9,41,2,5387,0)="""RTN"",""HLOCLNT1"",31,0)"
^XMB(3.9,41,2,5388,0)=" ..S:'$$WRITESEG^HLOT(.HLCSTATE,.SEG) QUIT=1"
^XMB(3.9,41,2,5389,0)="""RTN"",""HLOCLNT1"",32,0)"
^XMB(3.9,41,2,5390,0)=" S:'$$ENDMSG^HLOT(.HLCSTATE) QUIT=1"
^XMB(3.9,41,2,5391,0)="""RTN"",""HLOCLNT1"",33,0)"
^XMB(3.9,41,2,5392,0)=" Q 'QUIT"
^XMB(3.9,41,2,5393,0)="""RTN"",""HLOCLNT1"",34,0)"
^XMB(3.9,41,2,5394,0)=" ;"
^XMB(3.9,41,2,5395,0)="""RTN"",""HLOCLNT1"",35,0)"
^XMB(3.9,41,2,5396,0)="READACK(HLCSTATE,HDR,MSA) ;"
^XMB(3.9,41,2,5397,0)="""RTN"",""HLOCLNT1"",36,0)"
^XMB(3.9,41,2,5398,0)=" ;Description:  This function uses the services offered by the transport layer to read an accept ack."
^XMB(3.9,41,2,5399,0)="""RTN"",""HLOCLNT1"",37,0)"
^XMB(3.9,41,2,5400,0)=" ;"
^XMB(3.9,41,2,5401,0)="""RTN"",""HLOCLNT1"",38,0)"
^XMB(3.9,41,2,5402,0)=" ;Input:"
^XMB(3.9,41,2,5403,0)="""RTN"",""HLOCLNT1"",39,0)"
^XMB(3.9,41,2,5404,0)=" ;  HLCSTATE (pass by reference, required) Defines the communication channel and its state."
^XMB(3.9,41,2,5405,0)="""RTN"",""HLOCLNT1"",40,0)"
^XMB(3.9,41,2,5406,0)=" ;Output:"
^XMB(3.9,41,2,5407,0)="""RTN"",""HLOCLNT1"",41,0)"
^XMB(3.9,41,2,5408,0)=" ;  Function returns 1 on success, 0 on failure"
^XMB(3.9,41,2,5409,0)="""RTN"",""HLOCLNT1"",42,0)"
^XMB(3.9,41,2,5410,0)=" ;  HDR (pass by reference) the message header:"
^XMB(3.9,41,2,5411,0)="""RTN"",""HLOCLNT1"",43,0)"
^XMB(3.9,41,2,5412,0)=" ;   HDR(1) is components 1-6"
^XMB(3.9,41,2,5413,0)="""RTN"",""HLOCLNT1"",44,0)"
^XMB(3.9,41,2,5414,0)=" ;   HDR(2) is components 7-end"
^XMB(3.9,41,2,5415,0)="""RTN"",""HLOCLNT1"",45,0)"
^XMB(3.9,41,2,5416,0)=" ;  MSA (pass by reference) the MSA segment as an unsubscripted variable"
^XMB(3.9,41,2,5417,0)="""RTN"",""HLOCLNT1"",46,0)"
^XMB(3.9,41,2,5418,0)=" ;"
^XMB(3.9,41,2,5419,0)="""RTN"",""HLOCLNT1"",47,0)"
^XMB(3.9,41,2,5420,0)=" N SEG"
^XMB(3.9,41,2,5421,0)="""RTN"",""HLOCLNT1"",48,0)"
^XMB(3.9,41,2,5422,0)=" K HDR,MSA,MAX,I"
^XMB(3.9,41,2,5423,0)="""RTN"",""HLOCLNT1"",49,0)"
^XMB(3.9,41,2,5424,0)=" S MAX=HLCSTATE(""SYSTEM"",""MAXSTRING"")-40 ;MAX is the maximum that can be safely stored on a node, leaving room for the other fields stored with MSA seg"
^XMB(3.9,41,2,5425,0)="""RTN"",""HLOCLNT1"",50,0)"
^XMB(3.9,41,2,5426,0)=" Q:'$$READHDR^HLOT(.HLCSTATE,.HDR) 0"
^XMB(3.9,41,2,5427,0)="""RTN"",""HLOCLNT1"",51,0)"
^XMB(3.9,41,2,5428,0)=" F  Q:'$$READSEG^HLOT(.HLCSTATE,.SEG)  D"
^XMB(3.9,41,2,5429,0)="""RTN"",""HLOCLNT1"",52,0)"
^XMB(3.9,41,2,5430,0)=" .I $E($E(SEG(1),1,3)_$E($G(SEG(2)),1,3),1,3)=""MSA"" D"
^XMB(3.9,41,2,5431,0)="""RTN"",""HLOCLNT1"",53,0)"
^XMB(3.9,41,2,5432,0)=" ..S MSA="""""
^XMB(3.9,41,2,5433,0)="""RTN"",""HLOCLNT1"",54,0)"
^XMB(3.9,41,2,5434,0)=" ..F I=1:1 Q:'$D(SEG(I))  S MSA=MSA_$S((MAX-$L(MSA))<1:"""",1:$E(SEG(I),1,MAX))"
^XMB(3.9,41,2,5435,0)="""RTN"",""HLOCLNT1"",55,0)"
^XMB(3.9,41,2,5436,0)=" I $D(MSA),HLCSTATE(""MESSAGE ENDED"") D SPLITHDR^HLOSRVR1(.HDR) Q 1"
^XMB(3.9,41,2,5437,0)="""RTN"",""HLOCLNT1"",56,0)"
^XMB(3.9,41,2,5438,0)=" Q 0"
^XMB(3.9,41,2,5439,0)="""RTN"",""HLOCLNT1"",57,0)"
^XMB(3.9,41,2,5440,0)=" ;"
^XMB(3.9,41,2,5441,0)="""RTN"",""HLOCLNT1"",58,0)"
^XMB(3.9,41,2,5442,0)="CONNECT(LINK,PORT,HLCSTATE) ;"
^XMB(3.9,41,2,5443,0)="""RTN"",""HLOCLNT1"",59,0)"
^XMB(3.9,41,2,5444,0)=" ;sets up HLCSTATE() and opens a client connection"
^XMB(3.9,41,2,5445,0)="""RTN"",""HLOCLNT1"",60,0)"
^XMB(3.9,41,2,5446,0)=" ;Input:"
^XMB(3.9,41,2,5447,0)="""RTN"",""HLOCLNT1"",61,0)"
^XMB(3.9,41,2,5448,0)=" ;  LINK - name of the link to connect to"
^XMB(3.9,41,2,5449,0)="""RTN"",""HLOCLNT1"",62,0)"
^XMB(3.9,41,2,5450,0)=" ;  PORT - port # to connect to (optional)"
^XMB(3.9,41,2,5451,0)="""RTN"",""HLOCLNT1"",63,0)"
^XMB(3.9,41,2,5452,0)=" ;Output:"
^XMB(3.9,41,2,5453,0)="""RTN"",""HLOCLNT1"",64,0)"
^XMB(3.9,41,2,5454,0)=" ;   HLCSTATE - array to hold the connection state"
^XMB(3.9,41,2,5455,0)="""RTN"",""HLOCLNT1"",65,0)"
^XMB(3.9,41,2,5456,0)=" ;"
^XMB(3.9,41,2,5457,0)="""RTN"",""HLOCLNT1"",66,0)"
^XMB(3.9,41,2,5458,0)=" I $G(HLCSTATE(""CONNECTED"")) D  Q:$G(HLCSTATE(""CONNECTED""))"
^XMB(3.9,41,2,5459,0)="""RTN"",""HLOCLNT1"",67,0)"
^XMB(3.9,41,2,5460,0)=" .I $G(HLCSTATE(""LINK"",""NAME""))]"""",($G(HLCSTATE(""LINK"",""NAME""))'=LINK) D CLOSE^HLOT(.HLCSTATE) Q"
^XMB(3.9,41,2,5461,0)="""RTN"",""HLOCLNT1"",68,0)"
^XMB(3.9,41,2,5462,0)=" .I $G(HLCSTATE(""LINK"",""NAME""))]"""",$G(PORT),($G(HLCSTATE(""LINK"",""PORT""))'=PORT) D CLOSE^HLOT(.HLCSTATE) Q"
^XMB(3.9,41,2,5463,0)="""RTN"",""HLOCLNT1"",69,0)"
^XMB(3.9,41,2,5464,0)=" .I (HLCSTATE(""SYSTEM"",""OS"")=""CACHE"") D  Q"
^XMB(3.9,41,2,5465,0)="""RTN"",""HLOCLNT1"",70,0)"
^XMB(3.9,41,2,5466,0)=" ..S HLCSTATE(""CONNECTED"")=($ZA\8192#2)"
^XMB(3.9,41,2,5467,0)="""RTN"",""HLOCLNT1"",71,0)"
^XMB(3.9,41,2,5468,0)=" ..I 'HLCSTATE(""CONNECTED"") D CLOSE^HLOT(.HLCSTATE)"
^XMB(3.9,41,2,5469,0)="""RTN"",""HLOCLNT1"",72,0)"
^XMB(3.9,41,2,5470,0)=" .D CLOSE^HLOT(.HLCSTATE)"
^XMB(3.9,41,2,5471,0)="""RTN"",""HLOCLNT1"",73,0)"
^XMB(3.9,41,2,5472,0)=" K HLCSTATE"
^XMB(3.9,41,2,5473,0)="""RTN"",""HLOCLNT1"",74,0)"
^XMB(3.9,41,2,5474,0)=" N ARY,NODE"
^XMB(3.9,41,2,5475,0)="""RTN"",""HLOCLNT1"",75,0)"
^XMB(3.9,41,2,5476,0)=" I '$$GETLINK^HLOTLNK(LINK,.ARY) S HLCSTATE(""LINK"",""NAME"")=LINK,HLCSTATE(""LINK"",""PORT"")=$G(PORT) D LINKDOWN^HLOCLNT(.HLCSTATE) Q 0"
^XMB(3.9,41,2,5477,0)="""RTN"",""HLOCLNT1"",76,0)"
^XMB(3.9,41,2,5478,0)=" M HLCSTATE(""LINK"")=ARY"
^XMB(3.9,41,2,5479,0)="""RTN"",""HLOCLNT1"",77,0)"
^XMB(3.9,41,2,5480,0)=" ;overlay the port if supplied from the queue"
^XMB(3.9,41,2,5481,0)="""RTN"",""HLOCLNT1"",78,0)"
^XMB(3.9,41,2,5482,0)=" S:$G(PORT) HLCSTATE(""LINK"",""PORT"")=PORT"
^XMB(3.9,41,2,5483,0)="""RTN"",""HLOCLNT1"",79,0)"
^XMB(3.9,41,2,5484,0)=" S HLCSTATE(""ATTEMPT"")=0"
^XMB(3.9,41,2,5485,0)="""RTN"",""HLOCLNT1"",80,0)"
^XMB(3.9,41,2,5486,0)=" S HLCSTATE(""READ"")="""" ;where the reads are stored"
^XMB(3.9,41,2,5487,0)="""RTN"",""HLOCLNT1"",81,0)"
^XMB(3.9,41,2,5488,0)=" ;"
^XMB(3.9,41,2,5489,0)="""RTN"",""HLOCLNT1"",82,0)"
^XMB(3.9,41,2,5490,0)=" ;HLCSTATE(""BUFFER"",<seg>,<line>) serves as a write buffer so that a lot can be written all at once"
^XMB(3.9,41,2,5491,0)="""RTN"",""HLOCLNT1"",83,0)"
^XMB(3.9,41,2,5492,0)=" S HLCSTATE(""BUFFER"",""BYTE COUNT"")=0 ;count of BYTES in buffer"
^XMB(3.9,41,2,5493,0)="""RTN"",""HLOCLNT1"",84,0)"
^XMB(3.9,41,2,5494,0)=" S HLCSTATE(""BUFFER"",""SEGMENT COUNT"")=0 ;count of segments in buffer"
^XMB(3.9,41,2,5495,0)="""RTN"",""HLOCLNT1"",85,0)"
^XMB(3.9,41,2,5496,0)=" ;"
^XMB(3.9,41,2,5497,0)="""RTN"",""HLOCLNT1"",86,0)"
^XMB(3.9,41,2,5498,0)=" S HLCSTATE(""MESSAGE ENDED"")=0 ;end of message flag"
^XMB(3.9,41,2,5499,0)="""RTN"",""HLOCLNT1"",87,0)"
^XMB(3.9,41,2,5500,0)=" S NODE=^%ZOSF(""OS"")"
^XMB(3.9,41,2,5501,0)="""RTN"",""HLOCLNT1"",88,0)"
^XMB(3.9,41,2,5502,0)=" S HLCSTATE(""SERVER"")=0"
^XMB(3.9,41,2,5503,0)="""RTN"",""HLOCLNT1"",89,0)"
^XMB(3.9,41,2,5504,0)=" S HLCSTATE(""SYSTEM"",""OS"")=$S(NODE[""DSM"":""DSM"",NODE[""OpenM"":""CACHE"",NODE[""G.TM"":""G.TM"",1:"""")"
^XMB(3.9,41,2,5505,0)="""RTN"",""HLOCLNT1"",90,0)"
^XMB(3.9,41,2,5506,0)=" I HLCSTATE(""SYSTEM"",""OS"")="""" D LINKDOWN^HLOCLNT(.HLCSTATE) Q 0"
^XMB(3.9,41,2,5507,0)="""RTN"",""HLOCLNT1"",91,0)"
^XMB(3.9,41,2,5508,0)=" D"
^XMB(3.9,41,2,5509,0)="""RTN"",""HLOCLNT1"",92,0)"
^XMB(3.9,41,2,5510,0)=" .N SYS"
^XMB(3.9,41,2,5511,0)="""RTN"",""HLOCLNT1"",93,0)"
^XMB(3.9,41,2,5512,0)=" .D SYSPARMS^HLOSITE(.SYS)"
^XMB(3.9,41,2,5513,0)="""RTN"",""HLOCLNT1"",94,0)"
^XMB(3.9,41,2,5514,0)=" .S HLCSTATE(""SYSTEM"",""BUFFER"")=SYS(""HL7 BUFFER"")"
^XMB(3.9,41,2,5515,0)="""RTN"",""HLOCLNT1"",95,0)"
^XMB(3.9,41,2,5516,0)=" .S HLCSTATE(""SYSTEM"",""MAXSTRING"")=SYS(""MAXSTRING"")"
^XMB(3.9,41,2,5517,0)="""RTN"",""HLOCLNT1"",96,0)"
^XMB(3.9,41,2,5518,0)=" .S HLCSTATE(""SYSTEM"",""NORMAL PURGE"")=SYS(""NORMAL PURGE"")"
^XMB(3.9,41,2,5519,0)="""RTN"",""HLOCLNT1"",97,0)"
^XMB(3.9,41,2,5520,0)=" .S HLCSTATE(""SYSTEM"",""ERROR PURGE"")=SYS(""ERROR PURGE"")"
^XMB(3.9,41,2,5521,0)="""RTN"",""HLOCLNT1"",98,0)"
^XMB(3.9,41,2,5522,0)=" I HLCSTATE(""LINK"",""LLP"")=""TCP"" D"
^XMB(3.9,41,2,5523,0)="""RTN"",""HLOCLNT1"",99,0)"
^XMB(3.9,41,2,5524,0)=" .D OPEN^HLOTCP(.HLCSTATE)"
^XMB(3.9,41,2,5525,0)="""RTN"",""HLOCLNT1"",100,0)"
^XMB(3.9,41,2,5526,0)=" E  I HLCSTATE(""LINK"",""LLP"")=""HLLP"" D  ;serial"
^XMB(3.9,41,2,5527,0)="""RTN"",""HLOCLNT1"",101,0)"
^XMB(3.9,41,2,5528,0)=" .;implementation of serial LLP has been deferred"
^XMB(3.9,41,2,5529,0)="""RTN"",""HLOCLNT1"",102,0)"
^XMB(3.9,41,2,5530,0)=" ;"
^XMB(3.9,41,2,5531,0)="""RTN"",""HLOCLNT1"",103,0)"
^XMB(3.9,41,2,5532,0)=" ;mark the failure time for the link so other processes know not to try for a while"
^XMB(3.9,41,2,5533,0)="""RTN"",""HLOCLNT1"",104,0)"
^XMB(3.9,41,2,5534,0)=" I 'HLCSTATE(""CONNECTED"") D LINKDOWN^HLOCLNT(.HLCSTATE)"
^XMB(3.9,41,2,5535,0)="""RTN"",""HLOCLNT1"",105,0)"
^XMB(3.9,41,2,5536,0)=" Q HLCSTATE(""CONNECTED"")"
^XMB(3.9,41,2,5537,0)="""RTN"",""HLOCLNT1"",106,0)"
^XMB(3.9,41,2,5538,0)=" ;"
^XMB(3.9,41,2,5539,0)="""RTN"",""HLOCLNT1"",107,0)"
^XMB(3.9,41,2,5540,0)="BADMSGS(WORK) ;"
^XMB(3.9,41,2,5541,0)="""RTN"",""HLOCLNT1"",108,0)"
^XMB(3.9,41,2,5542,0)=" ;finds messages that won't transmit and takes them off the outgoing queue"
^XMB(3.9,41,2,5543,0)="""RTN"",""HLOCLNT1"",109,0)"
^XMB(3.9,41,2,5544,0)=" N LINK"
^XMB(3.9,41,2,5545,0)="""RTN"",""HLOCLNT1"",110,0)"
^XMB(3.9,41,2,5546,0)=" S LINK="""""
^XMB(3.9,41,2,5547,0)="""RTN"",""HLOCLNT1"",111,0)"
^XMB(3.9,41,2,5548,0)=" F  S LINK=$O(^HLTMP(""FAILING LINKS"",LINK)) Q:LINK=""""  D"
^XMB(3.9,41,2,5549,0)="""RTN"",""HLOCLNT1"",112,0)"
^XMB(3.9,41,2,5550,0)=" .N TIME,QUE,COUNT"
^XMB(3.9,41,2,5551,0)="""RTN"",""HLOCLNT1"",113,0)"
^XMB(3.9,41,2,5552,0)=" .S TIME=$G(^HLTMP(""FAILING LINKS"",LINK)) Q:TIME="""""
^XMB(3.9,41,2,5553,0)="""RTN"",""HLOCLNT1"",114,0)"
^XMB(3.9,41,2,5554,0)=" .Q:$$HDIFF^XLFDT($H,TIME,2)<7200"
^XMB(3.9,41,2,5555,0)="""RTN"",""HLOCLNT1"",115,0)"
^XMB(3.9,41,2,5556,0)=" .Q:'$$IFOPEN^HLOUSR1(LINK)"
^XMB(3.9,41,2,5557,0)="""RTN"",""HLOCLNT1"",116,0)"
^XMB(3.9,41,2,5558,0)=" .L +^HLB(""QUEUE"",""OUT"",LINK):0"
^XMB(3.9,41,2,5559,0)="""RTN"",""HLOCLNT1"",117,0)"
^XMB(3.9,41,2,5560,0)=" .S QUE="""""
^XMB(3.9,41,2,5561,0)="""RTN"",""HLOCLNT1"",118,0)"
^XMB(3.9,41,2,5562,0)=" .F  S QUE=$O(^HLB(""QUEUE"",""OUT"",LINK,QUE)) Q:QUE=""""  D"
^XMB(3.9,41,2,5563,0)="""RTN"",""HLOCLNT1"",119,0)"
^XMB(3.9,41,2,5564,0)=" ..N MSG S MSG=0"
^XMB(3.9,41,2,5565,0)="""RTN"",""HLOCLNT1"",120,0)"
^XMB(3.9,41,2,5566,0)=" ..S MSG=$O(^HLB(""QUEUE"",""OUT"",LINK,QUE,MSG))"
^XMB(3.9,41,2,5567,0)="""RTN"",""HLOCLNT1"",121,0)"
^XMB(3.9,41,2,5568,0)=" ..Q:'MSG"
^XMB(3.9,41,2,5569,0)="""RTN"",""HLOCLNT1"",122,0)"
^XMB(3.9,41,2,5570,0)=" ..S COUNT=$G(^HLB(MSG,""TRIES""))"
^XMB(3.9,41,2,5571,0)="""RTN"",""HLOCLNT1"",123,0)"
^XMB(3.9,41,2,5572,0)=" ..I COUNT>20 D"
^XMB(3.9,41,2,5573,0)="""RTN"",""HLOCLNT1"",124,0)"
^XMB(3.9,41,2,5574,0)=" ...N NODE,TIME,APP,FS,ACTION"
^XMB(3.9,41,2,5575,0)="""RTN"",""HLOCLNT1"",125,0)"
^XMB(3.9,41,2,5576,0)=" ...S NODE=$G(^HLB(MSG,0))"
^XMB(3.9,41,2,5577,0)="""RTN"",""HLOCLNT1"",126,0)"
^XMB(3.9,41,2,5578,0)=" ...Q:'$P(NODE,""^"",2)"
^XMB(3.9,41,2,5579,0)="""RTN"",""HLOCLNT1"",127,0)"
^XMB(3.9,41,2,5580,0)=" ...S TIME=+$G(^HLA($P(NODE,""^"",2),0))"
^XMB(3.9,41,2,5581,0)="""RTN"",""HLOCLNT1"",128,0)"
^XMB(3.9,41,2,5582,0)=" ...S NODE=$G(^HLB(MSG,1))"
^XMB(3.9,41,2,5583,0)="""RTN"",""HLOCLNT1"",129,0)"
^XMB(3.9,41,2,5584,0)=" ...S FS=$E(NODE,4)"
^XMB(3.9,41,2,5585,0)="""RTN"",""HLOCLNT1"",130,0)"
^XMB(3.9,41,2,5586,0)=" ...Q:FS="""""
^XMB(3.9,41,2,5587,0)="""RTN"",""HLOCLNT1"",131,0)"
^XMB(3.9,41,2,5588,0)=" ...S APP=$P(NODE,FS,3)"
^XMB(3.9,41,2,5589,0)="""RTN"",""HLOCLNT1"",132,0)"
^XMB(3.9,41,2,5590,0)=" ...Q:APP="""""
^XMB(3.9,41,2,5591,0)="""RTN"",""HLOCLNT1"",133,0)"
^XMB(3.9,41,2,5592,0)=" ...S $P(^HLB(MSG,0),""^"",21)=COUNT_"" FAILED TRANSMISSIONS"""
^XMB(3.9,41,2,5593,0)="""RTN"",""HLOCLNT1"",134,0)"
^XMB(3.9,41,2,5594,0)=" ...S $P(^HLB(MSG,0),""^"",20)=""TF"""
^XMB(3.9,41,2,5595,0)="""RTN"",""HLOCLNT1"",135,0)"
^XMB(3.9,41,2,5596,0)=" ...S ^HLB(""ERRORS"",""TF"",APP,TIME,MSG)="""""
^XMB(3.9,41,2,5597,0)="""RTN"",""HLOCLNT1"",136,0)"
^XMB(3.9,41,2,5598,0)=" ...S ACTION=$P(NODE,""^"",14,15)"
^XMB(3.9,41,2,5599,0)="""RTN"",""HLOCLNT1"",137,0)"
^XMB(3.9,41,2,5600,0)=" ...I ACTION'=""^"",ACTION]"""" D INQUE^HLOQUE(LINK,QUE,MSG,ACTION,1)"
^XMB(3.9,41,2,5601,0)="""RTN"",""HLOCLNT1"",138,0)"
^XMB(3.9,41,2,5602,0)=" ...D DEQUE^HLOQUE(LINK,QUE,""OUT"",MSG)"
^XMB(3.9,41,2,5603,0)="""RTN"",""HLOCLNT1"",139,0)"
^XMB(3.9,41,2,5604,0)=" .L -^HLB(""QUEUE"",""OUT"",LINK)"
^XMB(3.9,41,2,5605,0)="""RTN"",""HLOCLNT1"",140,0)"
^XMB(3.9,41,2,5606,0)=" Q"
^XMB(3.9,41,2,5607,0)="""RTN"",""HLOCLNT2"")"
^XMB(3.9,41,2,5608,0)="0^10^B12124771"
^XMB(3.9,41,2,5609,0)="""RTN"",""HLOCLNT2"",1,0)"
^XMB(3.9,41,2,5610,0)="HLOCLNT2 ;ALB/CJM- Performs message updates for the client - 10/4/94 1pm"
^XMB(3.9,41,2,5611,0)="""RTN"",""HLOCLNT2"",2,0)"
^XMB(3.9,41,2,5612,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995"
^XMB(3.9,41,2,5613,0)="""RTN"",""HLOCLNT2"",3,0)"
^XMB(3.9,41,2,5614,0)=" ;"
^XMB(3.9,41,2,5615,0)="""RTN"",""HLOCLNT2"",4,0)"
^XMB(3.9,41,2,5616,0)="GETWORK(WORK) ;"
^XMB(3.9,41,2,5617,0)="""RTN"",""HLOCLNT2"",5,0)"
^XMB(3.9,41,2,5618,0)=" ;"
^XMB(3.9,41,2,5619,0)="""RTN"",""HLOCLNT2"",6,0)"
^XMB(3.9,41,2,5620,0)=" N OLD,DOLLARJ,SUCCESS,NOW"
^XMB(3.9,41,2,5621,0)="""RTN"",""HLOCLNT2"",7,0)"
^XMB(3.9,41,2,5622,0)=" S SUCCESS=0"
^XMB(3.9,41,2,5623,0)="""RTN"",""HLOCLNT2"",8,0)"
^XMB(3.9,41,2,5624,0)=" S NOW=$$NOW^XLFDT"
^XMB(3.9,41,2,5625,0)="""RTN"",""HLOCLNT2"",9,0)"
^XMB(3.9,41,2,5626,0)=" S (OLD,DOLLARJ)=$G(WORK(""DOLLARJ""))"
^XMB(3.9,41,2,5627,0)="""RTN"",""HLOCLNT2"",10,0)"
^XMB(3.9,41,2,5628,0)=" F  S DOLLARJ=$O(^HLTMP(""CLIENT UPDATES"",DOLLARJ)) Q:DOLLARJ=""""  D  Q:SUCCESS"
^XMB(3.9,41,2,5629,0)="""RTN"",""HLOCLNT2"",11,0)"
^XMB(3.9,41,2,5630,0)=" .L +^HLTMP(""CLIENT UPDATES"",DOLLARJ):0"
^XMB(3.9,41,2,5631,0)="""RTN"",""HLOCLNT2"",12,0)"
^XMB(3.9,41,2,5632,0)=" .Q:'$T"
^XMB(3.9,41,2,5633,0)="""RTN"",""HLOCLNT2"",13,0)"
^XMB(3.9,41,2,5634,0)=" .N TIME S TIME=$O(^HLTMP(""CLIENT UPDATES"",DOLLARJ,""""))"
^XMB(3.9,41,2,5635,0)="""RTN"",""HLOCLNT2"",14,0)"
^XMB(3.9,41,2,5636,0)=" .I $$FMDIFF^XLFDT(NOW,TIME,2)<2 L -^HLTMP(""CLIENT UPDATES"",DOLLARJ) Q"
^XMB(3.9,41,2,5637,0)="""RTN"",""HLOCLNT2"",15,0)"
^XMB(3.9,41,2,5638,0)=" .S SUCCESS=1"
^XMB(3.9,41,2,5639,0)="""RTN"",""HLOCLNT2"",16,0)"
^XMB(3.9,41,2,5640,0)=" ;"
^XMB(3.9,41,2,5641,0)="""RTN"",""HLOCLNT2"",17,0)"
^XMB(3.9,41,2,5642,0)=" I OLD'="""",'SUCCESS F  S DOLLARJ=$O(^HLTMP(""CLIENT UPDATES"",DOLLARJ)) Q:DOLLARJ=""""  Q:DOLLARJ>OLD  D  Q:SUCCESS"
^XMB(3.9,41,2,5643,0)="""RTN"",""HLOCLNT2"",18,0)"
^XMB(3.9,41,2,5644,0)=" .L +^HLTMP(""CLIENT UPDATES"",DOLLARJ):0"
^XMB(3.9,41,2,5645,0)="""RTN"",""HLOCLNT2"",19,0)"
^XMB(3.9,41,2,5646,0)=" .Q:'$T"
^XMB(3.9,41,2,5647,0)="""RTN"",""HLOCLNT2"",20,0)"
^XMB(3.9,41,2,5648,0)=" .N TIME S TIME=$O(^HLTMP(""CLIENT UPDATES"",DOLLARJ,""""))"
^XMB(3.9,41,2,5649,0)="""RTN"",""HLOCLNT2"",21,0)"
^XMB(3.9,41,2,5650,0)=" .I $$FMDIFF^XLFDT(NOW,TIME,2)<2 L -^HLTMP(""CLIENT UPDATES"",DOLLARJ) Q"
^XMB(3.9,41,2,5651,0)="""RTN"",""HLOCLNT2"",22,0)"
^XMB(3.9,41,2,5652,0)=" .S SUCCESS=1"
^XMB(3.9,41,2,5653,0)="""RTN"",""HLOCLNT2"",23,0)"
^XMB(3.9,41,2,5654,0)=" S WORK(""DOLLARJ"")=DOLLARJ,WORK(""NOW"")=NOW"
^XMB(3.9,41,2,5655,0)="""RTN"",""HLOCLNT2"",24,0)"
^XMB(3.9,41,2,5656,0)=" Q $S($L(WORK(""DOLLARJ"")):1,1:0)"
^XMB(3.9,41,2,5657,0)="""RTN"",""HLOCLNT2"",25,0)"
^XMB(3.9,41,2,5658,0)=" ;"
^XMB(3.9,41,2,5659,0)="""RTN"",""HLOCLNT2"",26,0)"
^XMB(3.9,41,2,5660,0)="DOWORK(WORK) ;"
^XMB(3.9,41,2,5661,0)="""RTN"",""HLOCLNT2"",27,0)"
^XMB(3.9,41,2,5662,0)=" ;"
^XMB(3.9,41,2,5663,0)="""RTN"",""HLOCLNT2"",28,0)"
^XMB(3.9,41,2,5664,0)=" N DOLLARJ,TIME,IEN,PARMS,SYSTEM"
^XMB(3.9,41,2,5665,0)="""RTN"",""HLOCLNT2"",29,0)"
^XMB(3.9,41,2,5666,0)=" S TIME="""""
^XMB(3.9,41,2,5667,0)="""RTN"",""HLOCLNT2"",30,0)"
^XMB(3.9,41,2,5668,0)=" S DOLLARJ=WORK(""DOLLARJ"")"
^XMB(3.9,41,2,5669,0)="""RTN"",""HLOCLNT2"",31,0)"
^XMB(3.9,41,2,5670,0)=" D SYSPARMS^HLOSITE(.SYSTEM)"
^XMB(3.9,41,2,5671,0)="""RTN"",""HLOCLNT2"",32,0)"
^XMB(3.9,41,2,5672,0)=" F  S TIME=$O(^HLTMP(""CLIENT UPDATES"",DOLLARJ,TIME)) Q:TIME=""""  Q:$$FMDIFF^XLFDT(WORK(""NOW""),TIME,2)<2  D"
^XMB(3.9,41,2,5673,0)="""RTN"",""HLOCLNT2"",33,0)"
^XMB(3.9,41,2,5674,0)=" .S IEN=0"
^XMB(3.9,41,2,5675,0)="""RTN"",""HLOCLNT2"",34,0)"
^XMB(3.9,41,2,5676,0)=" .F  S IEN=$O(^HLTMP(""CLIENT UPDATES"",DOLLARJ,TIME,IEN)) Q:'IEN  D"
^XMB(3.9,41,2,5677,0)="""RTN"",""HLOCLNT2"",35,0)"
^XMB(3.9,41,2,5678,0)=" ..N NODE"
^XMB(3.9,41,2,5679,0)="""RTN"",""HLOCLNT2"",36,0)"
^XMB(3.9,41,2,5680,0)=" ..S NODE=$G(^HLTMP(""CLIENT UPDATES"",DOLLARJ,TIME,IEN))"
^XMB(3.9,41,2,5681,0)="""RTN"",""HLOCLNT2"",37,0)"
^XMB(3.9,41,2,5682,0)=" ..S PARMS(""LINK"")=$P(NODE,""^"")"
^XMB(3.9,41,2,5683,0)="""RTN"",""HLOCLNT2"",38,0)"
^XMB(3.9,41,2,5684,0)=" ..S PARMS(""QUEUE"")=$P(NODE,""^"",2)"
^XMB(3.9,41,2,5685,0)="""RTN"",""HLOCLNT2"",39,0)"
^XMB(3.9,41,2,5686,0)=" ..S PARMS(""STATUS"")=$P(NODE,""^"",3)"
^XMB(3.9,41,2,5687,0)="""RTN"",""HLOCLNT2"",40,0)"
^XMB(3.9,41,2,5688,0)=" ..S PARMS(""PURGE TYPE"")=$P(NODE,""^"",4)"
^XMB(3.9,41,2,5689,0)="""RTN"",""HLOCLNT2"",41,0)"
^XMB(3.9,41,2,5690,0)=" ..S PARMS(""ACCEPT ACK"")=$P(NODE,""^"",5)"
^XMB(3.9,41,2,5691,0)="""RTN"",""HLOCLNT2"",42,0)"
^XMB(3.9,41,2,5692,0)=" ..S PARMS(""RECEIVING APP"")=$P(NODE,""^"",6)"
^XMB(3.9,41,2,5693,0)="""RTN"",""HLOCLNT2"",43,0)"
^XMB(3.9,41,2,5694,0)=" ..S:PARMS(""RECEIVING APP"")="""" PARMS(""RECEIVING APP"")=""UNKNOWN RECEIVING APPLICATION"""
^XMB(3.9,41,2,5695,0)="""RTN"",""HLOCLNT2"",44,0)"
^XMB(3.9,41,2,5696,0)=" ..S PARMS(""MSA"")=$G(^HLTMP(""CLIENT UPDATES"",DOLLARJ,TIME,IEN,""MSA""))"
^XMB(3.9,41,2,5697,0)="""RTN"",""HLOCLNT2"",45,0)"
^XMB(3.9,41,2,5698,0)=" ..S PARMS(""ACTION"")=$G(^HLTMP(""CLIENT UPDATES"",DOLLARJ,TIME,IEN,""ACTION""))"
^XMB(3.9,41,2,5699,0)="""RTN"",""HLOCLNT2"",46,0)"
^XMB(3.9,41,2,5700,0)=" ..D UPDATE(IEN,TIME,.PARMS)"
^XMB(3.9,41,2,5701,0)="""RTN"",""HLOCLNT2"",47,0)"
^XMB(3.9,41,2,5702,0)=" ..K ^HLTMP(""CLIENT UPDATES"",DOLLARJ,TIME,IEN)"
^XMB(3.9,41,2,5703,0)="""RTN"",""HLOCLNT2"",48,0)"
^XMB(3.9,41,2,5704,0)=" L -^HLTMP(""CLIENT UPDATES"",DOLLARJ)"
^XMB(3.9,41,2,5705,0)="""RTN"",""HLOCLNT2"",49,0)"
^XMB(3.9,41,2,5706,0)=" Q"
^XMB(3.9,41,2,5707,0)="""RTN"",""HLOCLNT2"",50,0)"
^XMB(3.9,41,2,5708,0)=" ;"
^XMB(3.9,41,2,5709,0)="""RTN"",""HLOCLNT2"",51,0)"
^XMB(3.9,41,2,5710,0)="UPDATE(MSGIEN,TIME,PARMS) ;"
^XMB(3.9,41,2,5711,0)="""RTN"",""HLOCLNT2"",52,0)"
^XMB(3.9,41,2,5712,0)=" S:PARMS(""STATUS"")]"""" $P(^HLB(MSGIEN,0),""^"",20)=PARMS(""STATUS"")"
^XMB(3.9,41,2,5713,0)="""RTN"",""HLOCLNT2"",53,0)"
^XMB(3.9,41,2,5714,0)=" S:PARMS(""STATUS"")=""SE"" ^HLB(""ERRORS"",""SE"",PARMS(""RECEIVING APP""),TIME,MSGIEN)="""""
^XMB(3.9,41,2,5715,0)="""RTN"",""HLOCLNT2"",54,0)"
^XMB(3.9,41,2,5716,0)=" S:PARMS(""STATUS"")=""AE"" ^HLB(""ERRORS"",""AE"",PARMS(""RECEIVING APP""),TIME,MSGIEN_""^"")="""""
^XMB(3.9,41,2,5717,0)="""RTN"",""HLOCLNT2"",55,0)"
^XMB(3.9,41,2,5718,0)=" S:PARMS(""ACCEPT ACK"") $P(^HLB(MSGIEN,0),""^"",17)=PARMS(""ACCEPT ACK"")"
^XMB(3.9,41,2,5719,0)="""RTN"",""HLOCLNT2"",56,0)"
^XMB(3.9,41,2,5720,0)=" S $P(^HLB(MSGIEN,0),""^"",16)=TIME"
^XMB(3.9,41,2,5721,0)="""RTN"",""HLOCLNT2"",57,0)"
^XMB(3.9,41,2,5722,0)=" S:PARMS(""MSA"")]"""" ^HLB(MSGIEN,4)=TIME_""^""_PARMS(""MSA"")"
^XMB(3.9,41,2,5723,0)="""RTN"",""HLOCLNT2"",58,0)"
^XMB(3.9,41,2,5724,0)=" I PARMS(""PURGE TYPE""),PARMS(""ACTION"")="""" D"
^XMB(3.9,41,2,5725,0)="""RTN"",""HLOCLNT2"",59,0)"
^XMB(3.9,41,2,5726,0)=" .;don't set purge if going on the infiler - let infiler do it"
^XMB(3.9,41,2,5727,0)="""RTN"",""HLOCLNT2"",60,0)"
^XMB(3.9,41,2,5728,0)=" .N PTIME"
^XMB(3.9,41,2,5729,0)="""RTN"",""HLOCLNT2"",61,0)"
^XMB(3.9,41,2,5730,0)=" .S:(PARMS(""PURGE TYPE"")=2) PTIME=$$FMADD^XLFDT(TIME,SYSTEM(""ERROR PURGE"")) ;error purge is in days"
^XMB(3.9,41,2,5731,0)="""RTN"",""HLOCLNT2"",62,0)"
^XMB(3.9,41,2,5732,0)=" .S:(PARMS(""PURGE TYPE"")'=2) PTIME=$$FMADD^XLFDT(TIME,,SYSTEM(""NORMAL PURGE"")) ;normal purge is in hours"
^XMB(3.9,41,2,5733,0)="""RTN"",""HLOCLNT2"",63,0)"
^XMB(3.9,41,2,5734,0)=" .S $P(^HLB(MSGIEN,0),""^"",9)=PTIME,^HLB(""AD"",""OUT"",PTIME,MSGIEN)="""""
^XMB(3.9,41,2,5735,0)="""RTN"",""HLOCLNT2"",64,0)"
^XMB(3.9,41,2,5736,0)=" D:PARMS(""ACTION"")]"""" INQUE^HLOQUE(PARMS(""LINK""),PARMS(""QUEUE""),MSGIEN,PARMS(""ACTION""),$S(PARMS(""PURGE TYPE""):1,1:0))"
^XMB(3.9,41,2,5737,0)="""RTN"",""HLOCLNT2"",65,0)"
^XMB(3.9,41,2,5738,0)=" Q"
^XMB(3.9,41,2,5739,0)="""RTN"",""HLOCLNT3"")"
^XMB(3.9,41,2,5740,0)="0^11^B3706254"
^XMB(3.9,41,2,5741,0)="""RTN"",""HLOCLNT3"",1,0)"
^XMB(3.9,41,2,5742,0)="HLOCLNT3 ;ALB/CJM- Updates messages missing application acks - 10/4/94 1pm"
^XMB(3.9,41,2,5743,0)="""RTN"",""HLOCLNT3"",2,0)"
^XMB(3.9,41,2,5744,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995"
^XMB(3.9,41,2,5745,0)="""RTN"",""HLOCLNT3"",3,0)"
^XMB(3.9,41,2,5746,0)=" ;"
^XMB(3.9,41,2,5747,0)="""RTN"",""HLOCLNT3"",4,0)"
^XMB(3.9,41,2,5748,0)="DOWORK(WORK) ;"
^XMB(3.9,41,2,5749,0)="""RTN"",""HLOCLNT3"",5,0)"
^XMB(3.9,41,2,5750,0)=" ;"
^XMB(3.9,41,2,5751,0)="""RTN"",""HLOCLNT3"",6,0)"
^XMB(3.9,41,2,5752,0)=" N CUTOFF,MSGIEN,QUIT"
^XMB(3.9,41,2,5753,0)="""RTN"",""HLOCLNT3"",7,0)"
^XMB(3.9,41,2,5754,0)=" S QUIT=0"
^XMB(3.9,41,2,5755,0)="""RTN"",""HLOCLNT3"",8,0)"
^XMB(3.9,41,2,5756,0)=" ;"
^XMB(3.9,41,2,5757,0)="""RTN"",""HLOCLNT3"",9,0)"
^XMB(3.9,41,2,5758,0)=" ;7 day wait for an application ack is more than reasonable"
^XMB(3.9,41,2,5759,0)="""RTN"",""HLOCLNT3"",10,0)"
^XMB(3.9,41,2,5760,0)=" S CUTOFF=$$FMADD^XLFDT($$NOW^XLFDT,-3)"
^XMB(3.9,41,2,5761,0)="""RTN"",""HLOCLNT3"",11,0)"
^XMB(3.9,41,2,5762,0)=" ;"
^XMB(3.9,41,2,5763,0)="""RTN"",""HLOCLNT3"",12,0)"
^XMB(3.9,41,2,5764,0)=" S MSGIEN=+$G(^HLTMP(""LAST IEN CHECKED FOR MISSING APPLICATION ACK""))"
^XMB(3.9,41,2,5765,0)="""RTN"",""HLOCLNT3"",13,0)"
^XMB(3.9,41,2,5766,0)=" F  S MSGIEN=$O(^HLB(MSGIEN)) Q:'MSGIEN  Q:MSGIEN>99999999999  D  Q:QUIT"
^XMB(3.9,41,2,5767,0)="""RTN"",""HLOCLNT3"",14,0)"
^XMB(3.9,41,2,5768,0)=" .N MSG,HDR"
^XMB(3.9,41,2,5769,0)="""RTN"",""HLOCLNT3"",15,0)"
^XMB(3.9,41,2,5770,0)=" .Q:'$$GETMSG^HLOMSG(MSGIEN,.MSG)"
^XMB(3.9,41,2,5771,0)="""RTN"",""HLOCLNT3"",16,0)"
^XMB(3.9,41,2,5772,0)=" .Q:'MSG(""DT/TM"")"
^XMB(3.9,41,2,5773,0)="""RTN"",""HLOCLNT3"",17,0)"
^XMB(3.9,41,2,5774,0)=" .Q:'MSG(""BODY"")"
^XMB(3.9,41,2,5775,0)="""RTN"",""HLOCLNT3"",18,0)"
^XMB(3.9,41,2,5776,0)=" .I MSG(""DT/TM"")>CUTOFF S:MSG(""DT/TM CREATED"")>CUTOFF QUIT=1,MSGIEN=MSGIEN-1 Q"
^XMB(3.9,41,2,5777,0)="""RTN"",""HLOCLNT3"",19,0)"
^XMB(3.9,41,2,5778,0)=" .Q:MSG(""STATUS"")'="""""
^XMB(3.9,41,2,5779,0)="""RTN"",""HLOCLNT3"",20,0)"
^XMB(3.9,41,2,5780,0)=" .Q:MSG(""DIRECTION"")'=""OUT"""
^XMB(3.9,41,2,5781,0)="""RTN"",""HLOCLNT3"",21,0)"
^XMB(3.9,41,2,5782,0)=" .Q:MSG(""BATCH"")"
^XMB(3.9,41,2,5783,0)="""RTN"",""HLOCLNT3"",22,0)"
^XMB(3.9,41,2,5784,0)=" .Q:MSG(""STATUS"",""APP ACK'D"")"
^XMB(3.9,41,2,5785,0)="""RTN"",""HLOCLNT3"",23,0)"
^XMB(3.9,41,2,5786,0)=" .;Q:MSG(""STATUS"",""APP ACK RESPONSE"")="""""
^XMB(3.9,41,2,5787,0)="""RTN"",""HLOCLNT3"",24,0)"
^XMB(3.9,41,2,5788,0)=" .;message has been in a non-complete status for a longtime, pending an application ack - set status to error"
^XMB(3.9,41,2,5789,0)="""RTN"",""HLOCLNT3"",25,0)"
^XMB(3.9,41,2,5790,0)=" .S $P(^HLB(MSGIEN,0),""^"",20)=""AE"""
^XMB(3.9,41,2,5791,0)="""RTN"",""HLOCLNT3"",26,0)"
^XMB(3.9,41,2,5792,0)=" .S $P(^HLB(MSGIEN,0),""^"",21)=""MISSING APPLICATION ACKNOWLEDGMENT"""
^XMB(3.9,41,2,5793,0)="""RTN"",""HLOCLNT3"",27,0)"
^XMB(3.9,41,2,5794,0)=" .M HDR=MSG(""HDR"")"
^XMB(3.9,41,2,5795,0)="""RTN"",""HLOCLNT3"",28,0)"
^XMB(3.9,41,2,5796,0)=" .Q:'$$PARSEHDR^HLOPRS(.HDR)"
^XMB(3.9,41,2,5797,0)="""RTN"",""HLOCLNT3"",29,0)"
^XMB(3.9,41,2,5798,0)=" .S ^HLB(""ERRORS"",""AE"",$S($L(HDR(""RECEIVING APPLICATION"")):HDR(""RECEIVING APPLICATION""),1:""UNKNOWN""),MSG(""DT/TM CREATED""),MSGIEN)="""""
^XMB(3.9,41,2,5799,0)="""RTN"",""HLOCLNT3"",30,0)"
^XMB(3.9,41,2,5800,0)=" S:MSGIEN>99999999999 MSGIEN=0"
^XMB(3.9,41,2,5801,0)="""RTN"",""HLOCLNT3"",31,0)"
^XMB(3.9,41,2,5802,0)=" S ^HLTMP(""LAST IEN CHECKED FOR MISSING APPLICATION ACK"")=MSGIEN"
^XMB(3.9,41,2,5803,0)="""RTN"",""HLOCLNT3"",32,0)"
^XMB(3.9,41,2,5804,0)=" Q"
^XMB(3.9,41,2,5805,0)="""RTN"",""HLOCNRT"")"
^XMB(3.9,41,2,5806,0)="0^47^B4743338"
^XMB(3.9,41,2,5807,0)="""RTN"",""HLOCNRT"",1,0)"
^XMB(3.9,41,2,5808,0)="HLOCNRT ;DAOU/ALA-Generate HL7 Optimized Message ; 17 Jun 2005  12:57 PM"
^XMB(3.9,41,2,5809,0)="""RTN"",""HLOCNRT"",2,0)"
^XMB(3.9,41,2,5810,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995"
^XMB(3.9,41,2,5811,0)="""RTN"",""HLOCNRT"",3,0)"
^XMB(3.9,41,2,5812,0)=" ;"
^XMB(3.9,41,2,5813,0)="""RTN"",""HLOCNRT"",4,0)"
^XMB(3.9,41,2,5814,0)=" ;**Program Description**"
^XMB(3.9,41,2,5815,0)="""RTN"",""HLOCNRT"",5,0)"
^XMB(3.9,41,2,5816,0)=" ;  This program takes a current HL7 1.6 message and converts"
^XMB(3.9,41,2,5817,0)="""RTN"",""HLOCNRT"",6,0)"
^XMB(3.9,41,2,5818,0)=" ;  it to use the new HL Optimized code if it follows the standard"
^XMB(3.9,41,2,5819,0)="""RTN"",""HLOCNRT"",7,0)"
^XMB(3.9,41,2,5820,0)=" ;  1.6 methodology of protocols."
^XMB(3.9,41,2,5821,0)="""RTN"",""HLOCNRT"",8,0)"
^XMB(3.9,41,2,5822,0)=" ;"
^XMB(3.9,41,2,5823,0)="""RTN"",""HLOCNRT"",9,0)"
^XMB(3.9,41,2,5824,0)=" ;  **If the VistA HL7 Protocol does not exist, calls to HL Optimized"
^XMB(3.9,41,2,5825,0)="""RTN"",""HLOCNRT"",10,0)"
^XMB(3.9,41,2,5826,0)=" ;  will have to be coded separately and this program cannot be used**"
^XMB(3.9,41,2,5827,0)="""RTN"",""HLOCNRT"",11,0)"
^XMB(3.9,41,2,5828,0)=" Q"
^XMB(3.9,41,2,5829,0)="""RTN"",""HLOCNRT"",12,0)"
^XMB(3.9,41,2,5830,0)=" ;"
^XMB(3.9,41,2,5831,0)="""RTN"",""HLOCNRT"",13,0)"
^XMB(3.9,41,2,5832,0)="EN(HLOPRTCL,ARYTYP,HLP) ;Entry Point"
^XMB(3.9,41,2,5833,0)="""RTN"",""HLOCNRT"",14,0)"
^XMB(3.9,41,2,5834,0)=" ;  Input Parameters"
^XMB(3.9,41,2,5835,0)="""RTN"",""HLOCNRT"",15,0)"
^XMB(3.9,41,2,5836,0)=" ;   HLOPRTCL = Protocol IEN or Protocol Name"
^XMB(3.9,41,2,5837,0)="""RTN"",""HLOCNRT"",16,0)"
^XMB(3.9,41,2,5838,0)=" ;   ARYTYP = The array where HL7 message resides"
^XMB(3.9,41,2,5839,0)="""RTN"",""HLOCNRT"",17,0)"
^XMB(3.9,41,2,5840,0)=" ;   HLP = Additional HL7 message parameters"
^XMB(3.9,41,2,5841,0)="""RTN"",""HLOCNRT"",18,0)"
^XMB(3.9,41,2,5842,0)=" ;"
^XMB(3.9,41,2,5843,0)="""RTN"",""HLOCNRT"",19,0)"
^XMB(3.9,41,2,5844,0)=" ;  Output"
^XMB(3.9,41,2,5845,0)="""RTN"",""HLOCNRT"",20,0)"
^XMB(3.9,41,2,5846,0)=" ;    ZTSTOP = Stop processing flag (used by HDR)"
^XMB(3.9,41,2,5847,0)="""RTN"",""HLOCNRT"",21,0)"
^XMB(3.9,41,2,5848,0)=" ;    HLORESL = Error parameter"
^XMB(3.9,41,2,5849,0)="""RTN"",""HLOCNRT"",22,0)"
^XMB(3.9,41,2,5850,0)=" ;"
^XMB(3.9,41,2,5851,0)="""RTN"",""HLOCNRT"",23,0)"
^XMB(3.9,41,2,5852,0)=" NEW HLORESL,HLMSTATE,APPARMS,WHOTO,WHO,ERROR,HLOMESG"
^XMB(3.9,41,2,5853,0)="""RTN"",""HLOCNRT"",24,0)"
^XMB(3.9,41,2,5854,0)=" S ZTSTOP=0,HLORESL=1"
^XMB(3.9,41,2,5855,0)="""RTN"",""HLOCNRT"",25,0)"
^XMB(3.9,41,2,5856,0)=" ;"
^XMB(3.9,41,2,5857,0)="""RTN"",""HLOCNRT"",26,0)"
^XMB(3.9,41,2,5858,0)=" ;  Get IEN of protocol if name is passed"
^XMB(3.9,41,2,5859,0)="""RTN"",""HLOCNRT"",27,0)"
^XMB(3.9,41,2,5860,0)=" I HLOPRTCL'?.N S HLOPRTCL=+$O(^ORD(101,""B"",HLOPRTCL,0))"
^XMB(3.9,41,2,5861,0)="""RTN"",""HLOCNRT"",28,0)"
^XMB(3.9,41,2,5862,0)=" I '$D(^ORD(101,HLOPRTCL)) S HLORESL=""^99^HL7 1.6 Protocol not found"",ZTSTOP=1 Q HLORESL"
^XMB(3.9,41,2,5863,0)="""RTN"",""HLOCNRT"",29,0)"
^XMB(3.9,41,2,5864,0)=" ;"
^XMB(3.9,41,2,5865,0)="""RTN"",""HLOCNRT"",30,0)"
^XMB(3.9,41,2,5866,0)=" ;  If the VistA HL7 Protocol exists, call the Conversion Utility"
^XMB(3.9,41,2,5867,0)="""RTN"",""HLOCNRT"",31,0)"
^XMB(3.9,41,2,5868,0)=" ;  to set up the APPARMS, WHO or WHOTO arrays from protocol"
^XMB(3.9,41,2,5869,0)="""RTN"",""HLOCNRT"",32,0)"
^XMB(3.9,41,2,5870,0)=" ;  logical link"
^XMB(3.9,41,2,5871,0)="""RTN"",""HLOCNRT"",33,0)"
^XMB(3.9,41,2,5872,0)=" D APAR^HLOCVU(HLOPRTCL,.APPARMS,.WHO,.WHOTO)"
^XMB(3.9,41,2,5873,0)="""RTN"",""HLOCNRT"",34,0)"
^XMB(3.9,41,2,5874,0)=" ;"
^XMB(3.9,41,2,5875,0)="""RTN"",""HLOCNRT"",35,0)"
^XMB(3.9,41,2,5876,0)=" ; If special HLP parameters are defined, convert them"
^XMB(3.9,41,2,5877,0)="""RTN"",""HLOCNRT"",36,0)"
^XMB(3.9,41,2,5878,0)=" I $D(HLP) D"
^XMB(3.9,41,2,5879,0)="""RTN"",""HLOCNRT"",37,0)"
^XMB(3.9,41,2,5880,0)=" . I $G(HLP(""SECURITY""))'="""" S APPARMS(""SECURITY"")=HLP(""SECURITY"")"
^XMB(3.9,41,2,5881,0)="""RTN"",""HLOCNRT"",38,0)"
^XMB(3.9,41,2,5882,0)=" . I $G(HLP(""CONTPTR""))'="""" S APPARMS(""CONTINUATION POINTER"")=HLP(""CONTPTR"")"
^XMB(3.9,41,2,5883,0)="""RTN"",""HLOCNRT"",39,0)"
^XMB(3.9,41,2,5884,0)=" . I $G(HLP(""QUEUE""))'="""" S APPARMS(""QUEUE"")=HLP(""QUEUE"")"
^XMB(3.9,41,2,5885,0)="""RTN"",""HLOCNRT"",40,0)"
^XMB(3.9,41,2,5886,0)=" ;"
^XMB(3.9,41,2,5887,0)="""RTN"",""HLOCNRT"",41,0)"
^XMB(3.9,41,2,5888,0)=" ;  Create HL Optimized message"
^XMB(3.9,41,2,5889,0)="""RTN"",""HLOCNRT"",42,0)"
^XMB(3.9,41,2,5890,0)=" I '$$NEWMSG^HLOAPI(.APPARMS,.HLMSTATE,.ERROR) S HLORESL=""^99^""_ERROR,ZTSTOP=1 Q HLORESL"
^XMB(3.9,41,2,5891,0)="""RTN"",""HLOCNRT"",43,0)"
^XMB(3.9,41,2,5892,0)=" I $E(ARYTYP,1)=""G"" S HLOMESG=""^TMP(""""HLS"""",$J)"""
^XMB(3.9,41,2,5893,0)="""RTN"",""HLOCNRT"",44,0)"
^XMB(3.9,41,2,5894,0)=" I $E(ARYTYP,1)=""L"" S HLOMESG=""HLA(""""HLS"""")"""
^XMB(3.9,41,2,5895,0)="""RTN"",""HLOCNRT"",45,0)"
^XMB(3.9,41,2,5896,0)=" ;"
^XMB(3.9,41,2,5897,0)="""RTN"",""HLOCNRT"",46,0)"
^XMB(3.9,41,2,5898,0)=" ;  Move the existing message from array into HL Optimized"
^XMB(3.9,41,2,5899,0)="""RTN"",""HLOCNRT"",47,0)"
^XMB(3.9,41,2,5900,0)=" D MOVEMSG^HLOAPI(.HLMSTATE,HLOMESG)"
^XMB(3.9,41,2,5901,0)="""RTN"",""HLOCNRT"",48,0)"
^XMB(3.9,41,2,5902,0)=" ; "
^XMB(3.9,41,2,5903,0)="""RTN"",""HLOCNRT"",49,0)"
^XMB(3.9,41,2,5904,0)=" ;  Send message via HL Optimized"
^XMB(3.9,41,2,5905,0)="""RTN"",""HLOCNRT"",50,0)"
^XMB(3.9,41,2,5906,0)=" I $D(WHOTO) D  Q HLORESL"
^XMB(3.9,41,2,5907,0)="""RTN"",""HLOCNRT"",51,0)"
^XMB(3.9,41,2,5908,0)=" . I '$$SENDMANY^HLOAPI1(.HLMSTATE,.APPARMS,.WHOTO) S HLORESL=""^99^Unable to send message"",ZTSTOP=1 Q"
^XMB(3.9,41,2,5909,0)="""RTN"",""HLOCNRT"",52,0)"
^XMB(3.9,41,2,5910,0)=" . S HLORESL=1"
^XMB(3.9,41,2,5911,0)="""RTN"",""HLOCNRT"",53,0)"
^XMB(3.9,41,2,5912,0)=" ;"
^XMB(3.9,41,2,5913,0)="""RTN"",""HLOCNRT"",54,0)"
^XMB(3.9,41,2,5914,0)=" I '$$SENDONE^HLOAPI1(.HLMSTATE,.APPARMS,.WHO,.ERROR) S HLORESL=""^99^""_ERROR,ZTSTOP=1 Q HLORESL"
^XMB(3.9,41,2,5915,0)="""RTN"",""HLOCNRT"",55,0)"
^XMB(3.9,41,2,5916,0)=" Q HLORESL"
^XMB(3.9,41,2,5917,0)="""RTN"",""HLOCVU"")"
^XMB(3.9,41,2,5918,0)="0^46^B5066511"
^XMB(3.9,41,2,5919,0)="""RTN"",""HLOCVU"",1,0)"
^XMB(3.9,41,2,5920,0)="HLOCVU ;DAOU/ALA-Conversion Utility ; 04 Aug 2005  4:26 PM"
^XMB(3.9,41,2,5921,0)="""RTN"",""HLOCVU"",2,0)"
^XMB(3.9,41,2,5922,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995"
^XMB(3.9,41,2,5923,0)="""RTN"",""HLOCVU"",3,0)"
^XMB(3.9,41,2,5924,0)=" ;"
^XMB(3.9,41,2,5925,0)="""RTN"",""HLOCVU"",4,0)"
^XMB(3.9,41,2,5926,0)=" Q"
^XMB(3.9,41,2,5927,0)="""RTN"",""HLOCVU"",5,0)"
^XMB(3.9,41,2,5928,0)=" ;"
^XMB(3.9,41,2,5929,0)="""RTN"",""HLOCVU"",6,0)"
^XMB(3.9,41,2,5930,0)="APAR(HLOEID,APPARMS,WHO,WHOTO) ;  Set up APPARMS array from Protocols"
^XMB(3.9,41,2,5931,0)="""RTN"",""HLOCVU"",7,0)"
^XMB(3.9,41,2,5932,0)=" ;"
^XMB(3.9,41,2,5933,0)="""RTN"",""HLOCVU"",8,0)"
^XMB(3.9,41,2,5934,0)=" ;  Input Parameter"
^XMB(3.9,41,2,5935,0)="""RTN"",""HLOCVU"",9,0)"
^XMB(3.9,41,2,5936,0)=" ;   HLOEID = IEN of the event protocol"
^XMB(3.9,41,2,5937,0)="""RTN"",""HLOCVU"",10,0)"
^XMB(3.9,41,2,5938,0)=" ;"
^XMB(3.9,41,2,5939,0)="""RTN"",""HLOCVU"",11,0)"
^XMB(3.9,41,2,5940,0)=" ;  Output"
^XMB(3.9,41,2,5941,0)="""RTN"",""HLOCVU"",12,0)"
^XMB(3.9,41,2,5942,0)=" ;    APPARMS array"
^XMB(3.9,41,2,5943,0)="""RTN"",""HLOCVU"",13,0)"
^XMB(3.9,41,2,5944,0)=" ;    WHO or WHOTO array"
^XMB(3.9,41,2,5945,0)="""RTN"",""HLOCVU"",14,0)"
^XMB(3.9,41,2,5946,0)=" NEW HLOTEXT,HLARY,FLDS,HLOSID,CT"
^XMB(3.9,41,2,5947,0)="""RTN"",""HLOCVU"",15,0)"
^XMB(3.9,41,2,5948,0)=" S FLDS=""770.1;770.3;770.4;770.8;770.9;770.95"""
^XMB(3.9,41,2,5949,0)="""RTN"",""HLOCVU"",16,0)"
^XMB(3.9,41,2,5950,0)=" D GETS^DIQ(101,HLOEID,FLDS,""R"",""HLOTEXT"")"
^XMB(3.9,41,2,5951,0)="""RTN"",""HLOCVU"",17,0)"
^XMB(3.9,41,2,5952,0)=" ;"
^XMB(3.9,41,2,5953,0)="""RTN"",""HLOCVU"",18,0)"
^XMB(3.9,41,2,5954,0)=" S APPARMS(""COUNTRY"")=""USA"""
^XMB(3.9,41,2,5955,0)="""RTN"",""HLOCVU"",19,0)"
^XMB(3.9,41,2,5956,0)=" S APPARMS(""EVENT"")=$G(HLOTEXT(101,HLOEID_"","",""EVENT TYPE""))"
^XMB(3.9,41,2,5957,0)="""RTN"",""HLOCVU"",20,0)"
^XMB(3.9,41,2,5958,0)=" S APPARMS(""MESSAGE TYPE"")=$G(HLOTEXT(101,HLOEID_"","",""TRANSACTION MESSAGE TYPE""))"
^XMB(3.9,41,2,5959,0)="""RTN"",""HLOCVU"",21,0)"
^XMB(3.9,41,2,5960,0)=" S APPARMS(""VERSION"")=$G(HLOTEXT(101,HLOEID_"","",""VERSION ID""))"
^XMB(3.9,41,2,5961,0)="""RTN"",""HLOCVU"",22,0)"
^XMB(3.9,41,2,5962,0)=" S APPARMS(""SENDING APPLICATION"")=$G(HLOTEXT(101,HLOEID_"","",""SENDING APPLICATION""))"
^XMB(3.9,41,2,5963,0)="""RTN"",""HLOCVU"",23,0)"
^XMB(3.9,41,2,5964,0)=" S APPARMS(""APP ACK TYPE"")=$G(HLOTEXT(101,HLOEID_"","",""APPLICATION ACK TYPE""))"
^XMB(3.9,41,2,5965,0)="""RTN"",""HLOCVU"",24,0)"
^XMB(3.9,41,2,5966,0)=" S APPARMS(""ACCEPT ACK TYPE"")=$G(HLOTEXT(101,HLOEID_"","",""ACCEPT ACK CODE""))"
^XMB(3.9,41,2,5967,0)="""RTN"",""HLOCVU"",25,0)"
^XMB(3.9,41,2,5968,0)=" I $G(HLFS)'="""" S APPARMS(""FIELD SEPARATOR"")=HLFS"
^XMB(3.9,41,2,5969,0)="""RTN"",""HLOCVU"",26,0)"
^XMB(3.9,41,2,5970,0)=" I $G(HLECH)'="""" S APPARMS(""ENCODING CHARACTERS"")=HLECH"
^XMB(3.9,41,2,5971,0)="""RTN"",""HLOCVU"",27,0)"
^XMB(3.9,41,2,5972,0)=" ;"
^XMB(3.9,41,2,5973,0)="""RTN"",""HLOCVU"",28,0)"
^XMB(3.9,41,2,5974,0)=" K HLOTEXT,FLDS"
^XMB(3.9,41,2,5975,0)="""RTN"",""HLOCVU"",29,0)"
^XMB(3.9,41,2,5976,0)=" D ITEM^HLUTIL2(HLOEID,""PTR"")"
^XMB(3.9,41,2,5977,0)="""RTN"",""HLOCVU"",30,0)"
^XMB(3.9,41,2,5978,0)=" I $G(HLARY(0))>1 D MANY Q"
^XMB(3.9,41,2,5979,0)="""RTN"",""HLOCVU"",31,0)"
^XMB(3.9,41,2,5980,0)=" S HLOSID=$O(HLARY(0))"
^XMB(3.9,41,2,5981,0)="""RTN"",""HLOCVU"",32,0)"
^XMB(3.9,41,2,5982,0)=" S FLDS=""770.2;770.4;770.7"""
^XMB(3.9,41,2,5983,0)="""RTN"",""HLOCVU"",33,0)"
^XMB(3.9,41,2,5984,0)=" D GETS^DIQ(101,HLOSID,FLDS,""R"",""HLOTEXT"")"
^XMB(3.9,41,2,5985,0)="""RTN"",""HLOCVU"",34,0)"
^XMB(3.9,41,2,5986,0)=" S WHO(""RECEIVING APPLICATION"")=$G(HLOTEXT(101,HLOSID_"","",""RECEIVING APPLICATION""))"
^XMB(3.9,41,2,5987,0)="""RTN"",""HLOCVU"",35,0)"
^XMB(3.9,41,2,5988,0)=" S WHO(""FACILITY LINK NAME"")=$G(HLOTEXT(101,HLOSID_"","",""LOGICAL LINK""))"
^XMB(3.9,41,2,5989,0)="""RTN"",""HLOCVU"",36,0)"
^XMB(3.9,41,2,5990,0)=" Q"
^XMB(3.9,41,2,5991,0)="""RTN"",""HLOCVU"",37,0)"
^XMB(3.9,41,2,5992,0)=" ;"
^XMB(3.9,41,2,5993,0)="""RTN"",""HLOCVU"",38,0)"
^XMB(3.9,41,2,5994,0)="MANY ;  If multiple subscribers"
^XMB(3.9,41,2,5995,0)="""RTN"",""HLOCVU"",39,0)"
^XMB(3.9,41,2,5996,0)=" S HLOSID=0,CT=0"
^XMB(3.9,41,2,5997,0)="""RTN"",""HLOCVU"",40,0)"
^XMB(3.9,41,2,5998,0)=" S FLDS=""770.2;770.4;770.7"""
^XMB(3.9,41,2,5999,0)="""RTN"",""HLOCVU"",41,0)"
^XMB(3.9,41,2,6000,0)=" F  S HLOSID=$O(HLARY(HLOSID)) Q:'HLOSID  D"
^XMB(3.9,41,2,6001,0)="""RTN"",""HLOCVU"",42,0)"
^XMB(3.9,41,2,6002,0)=" . K HLOTEXT"
^XMB(3.9,41,2,6003,0)="""RTN"",""HLOCVU"",43,0)"
^XMB(3.9,41,2,6004,0)=" . D GETS^DIQ(101,HLOSID,FLDS,""R"",""HLOTEXT"")"
^XMB(3.9,41,2,6005,0)="""RTN"",""HLOCVU"",44,0)"
^XMB(3.9,41,2,6006,0)=" . S CT=CT+1"
^XMB(3.9,41,2,6007,0)="""RTN"",""HLOCVU"",45,0)"
^XMB(3.9,41,2,6008,0)=" . S WHOTO(CT,""RECEIVING APPLICATION"")=$G(HLOTEXT(101,HLOSID_"","",""RECEIVING APPLICATION""))"
^XMB(3.9,41,2,6009,0)="""RTN"",""HLOCVU"",46,0)"
^XMB(3.9,41,2,6010,0)=" . S WHOTO(CT,""FACILITY LINK NAME"")=$G(HLOTEXT(101,HLOSID_"","",""LOGICAL LINK""))"
^XMB(3.9,41,2,6011,0)="""RTN"",""HLOCVU"",47,0)"
^XMB(3.9,41,2,6012,0)=" ;"
^XMB(3.9,41,2,6013,0)="""RTN"",""HLOCVU"",48,0)"
^XMB(3.9,41,2,6014,0)=" Q"
^XMB(3.9,41,2,6015,0)="""RTN"",""HLOF777"")"
^XMB(3.9,41,2,6016,0)="0^20^B12330869"
^XMB(3.9,41,2,6017,0)="""RTN"",""HLOF777"",1,0)"
^XMB(3.9,41,2,6018,0)="HLOF777  ;ALB/CJM-HL7 - API'S for saving data to file 777 ;02/04/2004"
^XMB(3.9,41,2,6019,0)="""RTN"",""HLOF777"",2,0)"
^XMB(3.9,41,2,6020,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995"
^XMB(3.9,41,2,6021,0)="""RTN"",""HLOF777"",3,0)"
^XMB(3.9,41,2,6022,0)=" ;"
^XMB(3.9,41,2,6023,0)="""RTN"",""HLOF777"",4,0)"
^XMB(3.9,41,2,6024,0)="SAVEMSG(HLMSTATE) ;"
^XMB(3.9,41,2,6025,0)="""RTN"",""HLOF777"",5,0)"
^XMB(3.9,41,2,6026,0)=" ;If a record has not yet been created in file 777, then it will be created.  Otherwise, it just stores the segments not yet stored."
^XMB(3.9,41,2,6027,0)="""RTN"",""HLOF777"",6,0)"
^XMB(3.9,41,2,6028,0)=" ;Input:"
^XMB(3.9,41,2,6029,0)="""RTN"",""HLOF777"",7,0)"
^XMB(3.9,41,2,6030,0)=" ;  HLMSTATE (pass by reference) - contains information about the message"
^XMB(3.9,41,2,6031,0)="""RTN"",""HLOF777"",8,0)"
^XMB(3.9,41,2,6032,0)=" ;    These subscripts must be defined:"
^XMB(3.9,41,2,6033,0)="""RTN"",""HLOF777"",9,0)"
^XMB(3.9,41,2,6034,0)=" ;    (""BATCH"")=1 if batch, 0 otherwise"
^XMB(3.9,41,2,6035,0)="""RTN"",""HLOF777"",10,0)"
^XMB(3.9,41,2,6036,0)=" ;    (""BODY"")=ien file 777"
^XMB(3.9,41,2,6037,0)="""RTN"",""HLOF777"",11,0)"
^XMB(3.9,41,2,6038,0)=" ;  (""UNSTORED LINES"") - count of lines to be stored. The lines are stored at a lower subscript <message#>,<segment#>,<line#>"
^XMB(3.9,41,2,6039,0)="""RTN"",""HLOF777"",12,0)"
^XMB(3.9,41,2,6040,0)=" ;Output:"
^XMB(3.9,41,2,6041,0)="""RTN"",""HLOF777"",13,0)"
^XMB(3.9,41,2,6042,0)=" ;  HLMSTATE(""UNSTORED LINES"")-set to 0"
^XMB(3.9,41,2,6043,0)="""RTN"",""HLOF777"",14,0)"
^XMB(3.9,41,2,6044,0)=" ;"
^XMB(3.9,41,2,6045,0)="""RTN"",""HLOF777"",15,0)"
^XMB(3.9,41,2,6046,0)=" ;if the record has not been created yet,then create it"
^XMB(3.9,41,2,6047,0)="""RTN"",""HLOF777"",16,0)"
^XMB(3.9,41,2,6048,0)=" I 'HLMSTATE(""BODY""),'$$NEW(.HLMSTATE) Q 0"
^XMB(3.9,41,2,6049,0)="""RTN"",""HLOF777"",17,0)"
^XMB(3.9,41,2,6050,0)=" ;"
^XMB(3.9,41,2,6051,0)="""RTN"",""HLOF777"",18,0)"
^XMB(3.9,41,2,6052,0)=" ;any segments to store to disk?"
^XMB(3.9,41,2,6053,0)="""RTN"",""HLOF777"",19,0)"
^XMB(3.9,41,2,6054,0)=" Q:'HLMSTATE(""UNSTORED LINES"") HLMSTATE(""BODY"")"
^XMB(3.9,41,2,6055,0)="""RTN"",""HLOF777"",20,0)"
^XMB(3.9,41,2,6056,0)=" ;"
^XMB(3.9,41,2,6057,0)="""RTN"",""HLOF777"",21,0)"
^XMB(3.9,41,2,6058,0)=" I 'HLMSTATE(""BATCH"") D"
^XMB(3.9,41,2,6059,0)="""RTN"",""HLOF777"",22,0)"
^XMB(3.9,41,2,6060,0)=" .N ARY,SEG,LINE"
^XMB(3.9,41,2,6061,0)="""RTN"",""HLOF777"",23,0)"
^XMB(3.9,41,2,6062,0)=" .S ARY=""^HLA(""_HLMSTATE(""BODY"")_"",1)"""
^XMB(3.9,41,2,6063,0)="""RTN"",""HLOF777"",24,0)"
^XMB(3.9,41,2,6064,0)=" .S SEG=0"
^XMB(3.9,41,2,6065,0)="""RTN"",""HLOF777"",25,0)"
^XMB(3.9,41,2,6066,0)=" .F  S SEG=$O(HLMSTATE(""UNSTORED LINES"",1,SEG)) Q:'SEG  D"
^XMB(3.9,41,2,6067,0)="""RTN"",""HLOF777"",26,0)"
^XMB(3.9,41,2,6068,0)=" ..S LINE=0"
^XMB(3.9,41,2,6069,0)="""RTN"",""HLOF777"",27,0)"
^XMB(3.9,41,2,6070,0)=" ..F  S LINE=$O(HLMSTATE(""UNSTORED LINES"",1,SEG,LINE)) Q:'LINE  S @ARY@(LINE,0)=HLMSTATE(""UNSTORED LINES"",1,SEG,LINE)"
^XMB(3.9,41,2,6071,0)="""RTN"",""HLOF777"",28,0)"
^XMB(3.9,41,2,6072,0)=" .;"
^XMB(3.9,41,2,6073,0)="""RTN"",""HLOF777"",29,0)"
^XMB(3.9,41,2,6074,0)=" I HLMSTATE(""BATCH"") D"
^XMB(3.9,41,2,6075,0)="""RTN"",""HLOF777"",30,0)"
^XMB(3.9,41,2,6076,0)=" .;NOTE: will not store any segments that come before the first MSH!"
^XMB(3.9,41,2,6077,0)="""RTN"",""HLOF777"",31,0)"
^XMB(3.9,41,2,6078,0)=" .N MSG S MSG=0"
^XMB(3.9,41,2,6079,0)="""RTN"",""HLOF777"",32,0)"
^XMB(3.9,41,2,6080,0)=" .F  S MSG=$O(HLMSTATE(""UNSTORED LINES"",MSG)) Q:'MSG  D"
^XMB(3.9,41,2,6081,0)="""RTN"",""HLOF777"",33,0)"
^XMB(3.9,41,2,6082,0)=" ..N ARY,SEG,LINE"
^XMB(3.9,41,2,6083,0)="""RTN"",""HLOF777"",34,0)"
^XMB(3.9,41,2,6084,0)=" ..S ARY=""^HLA(""_HLMSTATE(""BODY"")_"",2,""_MSG_"")"""
^XMB(3.9,41,2,6085,0)="""RTN"",""HLOF777"",35,0)"
^XMB(3.9,41,2,6086,0)=" ..;"
^XMB(3.9,41,2,6087,0)="""RTN"",""HLOF777"",36,0)"
^XMB(3.9,41,2,6088,0)=" ..;if starting a new message, add its 0 node.  The message type and event are stored in HLMSTATE(""UNSTORED LINES"",MSG)"
^XMB(3.9,41,2,6089,0)="""RTN"",""HLOF777"",37,0)"
^XMB(3.9,41,2,6090,0)=" ..I '$D(@ARY@(0)) D"
^XMB(3.9,41,2,6091,0)="""RTN"",""HLOF777"",38,0)"
^XMB(3.9,41,2,6092,0)=" ...S @ARY@(0)=MSG_""^""_$G(HLMSTATE(""UNSTORED LINES"",MSG))"
^XMB(3.9,41,2,6093,0)="""RTN"",""HLOF777"",39,0)"
^XMB(3.9,41,2,6094,0)=" ...;"
^XMB(3.9,41,2,6095,0)="""RTN"",""HLOF777"",40,0)"
^XMB(3.9,41,2,6096,0)=" ...S ^HLA(HLMSTATE(""BODY""),2,""B"",MSG,MSG)="""""
^XMB(3.9,41,2,6097,0)="""RTN"",""HLOF777"",41,0)"
^XMB(3.9,41,2,6098,0)=" ..;"
^XMB(3.9,41,2,6099,0)="""RTN"",""HLOF777"",42,0)"
^XMB(3.9,41,2,6100,0)=" ..S SEG=0"
^XMB(3.9,41,2,6101,0)="""RTN"",""HLOF777"",43,0)"
^XMB(3.9,41,2,6102,0)=" ..F  S SEG=$O(HLMSTATE(""UNSTORED LINES"",MSG,SEG)) Q:'SEG  D"
^XMB(3.9,41,2,6103,0)="""RTN"",""HLOF777"",44,0)"
^XMB(3.9,41,2,6104,0)=" ...S LINE=0"
^XMB(3.9,41,2,6105,0)="""RTN"",""HLOF777"",45,0)"
^XMB(3.9,41,2,6106,0)=" ...F  S LINE=$O(HLMSTATE(""UNSTORED LINES"",MSG,SEG,LINE)) Q:'LINE  S @ARY@(1,LINE,0)=HLMSTATE(""UNSTORED LINES"",MSG,SEG,LINE)"
^XMB(3.9,41,2,6107,0)="""RTN"",""HLOF777"",46,0)"
^XMB(3.9,41,2,6108,0)=" ;"
^XMB(3.9,41,2,6109,0)="""RTN"",""HLOF777"",47,0)"
^XMB(3.9,41,2,6110,0)=" ;clear the cache"
^XMB(3.9,41,2,6111,0)="""RTN"",""HLOF777"",48,0)"
^XMB(3.9,41,2,6112,0)=" K HLMSTATE(""UNSTORED LINES"")"
^XMB(3.9,41,2,6113,0)="""RTN"",""HLOF777"",49,0)"
^XMB(3.9,41,2,6114,0)=" S HLMSTATE(""UNSTORED LINES"")=0"
^XMB(3.9,41,2,6115,0)="""RTN"",""HLOF777"",50,0)"
^XMB(3.9,41,2,6116,0)=" ;S:HLMSTATE(""BATCH"") HLMSTATE(""BATCH"",""CURRENT MESSAGE"")=0"
^XMB(3.9,41,2,6117,0)="""RTN"",""HLOF777"",51,0)"
^XMB(3.9,41,2,6118,0)=" Q HLMSTATE(""BODY"")"
^XMB(3.9,41,2,6119,0)="""RTN"",""HLOF777"",52,0)"
^XMB(3.9,41,2,6120,0)=" ;"
^XMB(3.9,41,2,6121,0)="""RTN"",""HLOF777"",53,0)"
^XMB(3.9,41,2,6122,0)="NEW(HLMSTATE) ;"
^XMB(3.9,41,2,6123,0)="""RTN"",""HLOF777"",54,0)"
^XMB(3.9,41,2,6124,0)=" ;This function creates a new entry in file 777."
^XMB(3.9,41,2,6125,0)="""RTN"",""HLOF777"",55,0)"
^XMB(3.9,41,2,6126,0)=" ;Input:"
^XMB(3.9,41,2,6127,0)="""RTN"",""HLOF777"",56,0)"
^XMB(3.9,41,2,6128,0)=" ;   HLMSTATE (required, pass by reference) These subscripts are expected:"
^XMB(3.9,41,2,6129,0)="""RTN"",""HLOF777"",57,0)"
^XMB(3.9,41,2,6130,0)=" ;     ""DIRECTION"""
^XMB(3.9,41,2,6131,0)="""RTN"",""HLOF777"",58,0)"
^XMB(3.9,41,2,6132,0)=" ;     ""DT/TM""   (optional, $$NOW used as default)"
^XMB(3.9,41,2,6133,0)="""RTN"",""HLOF777"",59,0)"
^XMB(3.9,41,2,6134,0)=" ;     ""BATCH"""
^XMB(3.9,41,2,6135,0)="""RTN"",""HLOF777"",60,0)"
^XMB(3.9,41,2,6136,0)=" ;     ""HDR"",""ENCODING CHARACTERS"""
^XMB(3.9,41,2,6137,0)="""RTN"",""HLOF777"",61,0)"
^XMB(3.9,41,2,6138,0)=" ;     ""HDR"",""EVENT"""
^XMB(3.9,41,2,6139,0)="""RTN"",""HLOF777"",62,0)"
^XMB(3.9,41,2,6140,0)=" ;     ""HDR"",""FIELD SEPARATOR"""
^XMB(3.9,41,2,6141,0)="""RTN"",""HLOF777"",63,0)"
^XMB(3.9,41,2,6142,0)=" ;     ""HDR"",""MESSAGE TYPE"""
^XMB(3.9,41,2,6143,0)="""RTN"",""HLOF777"",64,0)"
^XMB(3.9,41,2,6144,0)=" ;     ""HDR"",""VERSION"""
^XMB(3.9,41,2,6145,0)="""RTN"",""HLOF777"",65,0)"
^XMB(3.9,41,2,6146,0)=" ;"
^XMB(3.9,41,2,6147,0)="""RTN"",""HLOF777"",66,0)"
^XMB(3.9,41,2,6148,0)=" ;Output - the function returns the ien of the newly created record"
^XMB(3.9,41,2,6149,0)="""RTN"",""HLOF777"",67,0)"
^XMB(3.9,41,2,6150,0)=" ;"
^XMB(3.9,41,2,6151,0)="""RTN"",""HLOF777"",68,0)"
^XMB(3.9,41,2,6152,0)=" N IEN,TIME,NODE"
^XMB(3.9,41,2,6153,0)="""RTN"",""HLOF777"",69,0)"
^XMB(3.9,41,2,6154,0)=" S IEN=$$NEWIEN(HLMSTATE(""DIRECTION""),$$TCP^HLOF778A)"
^XMB(3.9,41,2,6155,0)="""RTN"",""HLOF777"",70,0)"
^XMB(3.9,41,2,6156,0)=" Q:'IEN 0"
^XMB(3.9,41,2,6157,0)="""RTN"",""HLOF777"",71,0)"
^XMB(3.9,41,2,6158,0)=" K ^HLA(IEN)"
^XMB(3.9,41,2,6159,0)="""RTN"",""HLOF777"",72,0)"
^XMB(3.9,41,2,6160,0)=" S HLMSTATE(""DT/TM CREATED"")=$S($G(HLMSTATE(""DT/TM"")):HLMSTATE(""DT/TM""),1:$$NOW^XLFDT)"
^XMB(3.9,41,2,6161,0)="""RTN"",""HLOF777"",73,0)"
^XMB(3.9,41,2,6162,0)=" ;"
^XMB(3.9,41,2,6163,0)="""RTN"",""HLOF777"",74,0)"
^XMB(3.9,41,2,6164,0)=" S NODE=HLMSTATE(""DT/TM CREATED"")_""^""_HLMSTATE(""BATCH"")_""^^^""_$G(HLMSTATE(""HDR"",""VERSION""))"
^XMB(3.9,41,2,6165,0)="""RTN"",""HLOF777"",75,0)"
^XMB(3.9,41,2,6166,0)=" I 'HLMSTATE(""BATCH"") S $P(NODE,""^"",3)=HLMSTATE(""HDR"",""MESSAGE TYPE""),$P(NODE,""^"",4)=HLMSTATE(""HDR"",""EVENT"")"
^XMB(3.9,41,2,6167,0)="""RTN"",""HLOF777"",76,0)"
^XMB(3.9,41,2,6168,0)=" S $P(NODE,""^"",20)=HLMSTATE(""HDR"",""FIELD SEPARATOR"")_HLMSTATE(""HDR"",""ENCODING CHARACTERS"")"
^XMB(3.9,41,2,6169,0)="""RTN"",""HLOF777"",77,0)"
^XMB(3.9,41,2,6170,0)=" S ^HLA(IEN,0)=NODE"
^XMB(3.9,41,2,6171,0)="""RTN"",""HLOF777"",78,0)"
^XMB(3.9,41,2,6172,0)=" ;"
^XMB(3.9,41,2,6173,0)="""RTN"",""HLOF777"",79,0)"
^XMB(3.9,41,2,6174,0)=" ;for incoming msgs, set the ""B"" xref later"
^XMB(3.9,41,2,6175,0)="""RTN"",""HLOF777"",80,0)"
^XMB(3.9,41,2,6176,0)=" S:HLMSTATE(""DIRECTION"")=""OUT"" ^HLA(""B"",HLMSTATE(""DT/TM CREATED""),IEN)="""""
^XMB(3.9,41,2,6177,0)="""RTN"",""HLOF777"",81,0)"
^XMB(3.9,41,2,6178,0)=" ;"
^XMB(3.9,41,2,6179,0)="""RTN"",""HLOF777"",82,0)"
^XMB(3.9,41,2,6180,0)=" S HLMSTATE(""BODY"")=IEN"
^XMB(3.9,41,2,6181,0)="""RTN"",""HLOF777"",83,0)"
^XMB(3.9,41,2,6182,0)=" Q IEN"
^XMB(3.9,41,2,6183,0)="""RTN"",""HLOF777"",84,0)"
^XMB(3.9,41,2,6184,0)=" ;"
^XMB(3.9,41,2,6185,0)="""RTN"",""HLOF777"",85,0)"
^XMB(3.9,41,2,6186,0)="NEWIEN(DIR,TCP) ;"
^XMB(3.9,41,2,6187,0)="""RTN"",""HLOF777"",86,0)"
^XMB(3.9,41,2,6188,0)=" ;This function uses a counter to get the next available ien for file 777. There are 3 different counters, each assigned a specific number range, selected via the input parameters. It does not create a record."
^XMB(3.9,41,2,6189,0)="""RTN"",""HLOF777"",87,0)"
^XMB(3.9,41,2,6190,0)=" ;Inputs:"
^XMB(3.9,41,2,6191,0)="""RTN"",""HLOF777"",88,0)"
^XMB(3.9,41,2,6192,0)=" ;  DIR = ""IN"" or ""OUT"" (required)"
^XMB(3.9,41,2,6193,0)="""RTN"",""HLOF777"",89,0)"
^XMB(3.9,41,2,6194,0)=" ;  TCP = 1,0 (optional)"
^XMB(3.9,41,2,6195,0)="""RTN"",""HLOF777"",90,0)"
^XMB(3.9,41,2,6196,0)=" ;Output - the function returns the next available ien. Several counters are used:"
^XMB(3.9,41,2,6197,0)="""RTN"",""HLOF777"",91,0)"
^XMB(3.9,41,2,6198,0)=" ;   <""OUT"">"
^XMB(3.9,41,2,6199,0)="""RTN"",""HLOF777"",92,0)"
^XMB(3.9,41,2,6200,0)=" ;   <""IN"",""TCP"">"
^XMB(3.9,41,2,6201,0)="""RTN"",""HLOF777"",93,0)"
^XMB(3.9,41,2,6202,0)=" ;   <""IN"",""NOT TCP"">"
^XMB(3.9,41,2,6203,0)="""RTN"",""HLOF777"",94,0)"
^XMB(3.9,41,2,6204,0)=" ;"
^XMB(3.9,41,2,6205,0)="""RTN"",""HLOF777"",95,0)"
^XMB(3.9,41,2,6206,0)=" N IEN,COUNTER"
^XMB(3.9,41,2,6207,0)="""RTN"",""HLOF777"",96,0)"
^XMB(3.9,41,2,6208,0)=" S:DIR=""IN"" COUNTER=$NA(^HLC(""FILE777"",DIR,$S(+$G(TCP):""TCP"",1:""NOT TCP"")))"
^XMB(3.9,41,2,6209,0)="""RTN"",""HLOF777"",97,0)"
^XMB(3.9,41,2,6210,0)=" S:DIR=""OUT"" COUNTER=$NA(^HLC(""FILE777"",DIR))"
^XMB(3.9,41,2,6211,0)="""RTN"",""HLOF777"",98,0)"
^XMB(3.9,41,2,6212,0)="AGAIN ;"
^XMB(3.9,41,2,6213,0)="""RTN"",""HLOF777"",99,0)"
^XMB(3.9,41,2,6214,0)=" S IEN=$$INC^HLOSITE(COUNTER,1)"
^XMB(3.9,41,2,6215,0)="""RTN"",""HLOF777"",100,0)"
^XMB(3.9,41,2,6216,0)=" I IEN>100000000000 D"
^XMB(3.9,41,2,6217,0)="""RTN"",""HLOF777"",101,0)"
^XMB(3.9,41,2,6218,0)=" .L +@COUNTER:200"
^XMB(3.9,41,2,6219,0)="""RTN"",""HLOF777"",102,0)"
^XMB(3.9,41,2,6220,0)=" .I $T,@COUNTER>100000000000 S @COUNTER=1,IEN=1"
^XMB(3.9,41,2,6221,0)="""RTN"",""HLOF777"",103,0)"
^XMB(3.9,41,2,6222,0)=" .L -@COUNTER"
^XMB(3.9,41,2,6223,0)="""RTN"",""HLOF777"",104,0)"
^XMB(3.9,41,2,6224,0)=" I IEN>100000000000 G AGAIN"
^XMB(3.9,41,2,6225,0)="""RTN"",""HLOF777"",105,0)"
^XMB(3.9,41,2,6226,0)=" Q (IEN+$S(DIR=""OUT"":0,+$G(TCP):100000000000,1:200000000000))"
^XMB(3.9,41,2,6227,0)="""RTN"",""HLOF778"")"
^XMB(3.9,41,2,6228,0)="0^21^B26674072"
^XMB(3.9,41,2,6229,0)="""RTN"",""HLOF778"",1,0)"
^XMB(3.9,41,2,6230,0)="HLOF778 ;ALB/CJM-HL7 - Saving messages to file 778 ;02/04/2004"
^XMB(3.9,41,2,6231,0)="""RTN"",""HLOF778"",2,0)"
^XMB(3.9,41,2,6232,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995"
^XMB(3.9,41,2,6233,0)="""RTN"",""HLOF778"",3,0)"
^XMB(3.9,41,2,6234,0)=" ;"
^XMB(3.9,41,2,6235,0)="""RTN"",""HLOF778"",4,0)"
^XMB(3.9,41,2,6236,0)=" ;"
^XMB(3.9,41,2,6237,0)="""RTN"",""HLOF778"",5,0)"
^XMB(3.9,41,2,6238,0)="SAVEMSG(HLMSTATE) ;"
^XMB(3.9,41,2,6239,0)="""RTN"",""HLOF778"",6,0)"
^XMB(3.9,41,2,6240,0)=" ;If a record has not yet been created in file 778, then it will be created. Will file any segments into 777 not yet stored.  For batch messages, will store the MSH segments in 778 as the individual messages are stored in 777."
^XMB(3.9,41,2,6241,0)="""RTN"",""HLOF778"",7,0)"
^XMB(3.9,41,2,6242,0)=" ;Input:"
^XMB(3.9,41,2,6243,0)="""RTN"",""HLOF778"",8,0)"
^XMB(3.9,41,2,6244,0)=" ;  HLMSTATE (pass by reference) - contains information about the message"
^XMB(3.9,41,2,6245,0)="""RTN"",""HLOF778"",9,0)"
^XMB(3.9,41,2,6246,0)=" ;    These subscripts must be defined:"
^XMB(3.9,41,2,6247,0)="""RTN"",""HLOF778"",10,0)"
^XMB(3.9,41,2,6248,0)=" ;  (""BATCH"")=1 if batch, 0 otherwise"
^XMB(3.9,41,2,6249,0)="""RTN"",""HLOF778"",11,0)"
^XMB(3.9,41,2,6250,0)=" ;  (""BATCH"",""BTS"")=BTS segment if end of batch reached"
^XMB(3.9,41,2,6251,0)="""RTN"",""HLOF778"",12,0)"
^XMB(3.9,41,2,6252,0)=" ;  (""BODY"")=ien file 777 if stored"
^XMB(3.9,41,2,6253,0)="""RTN"",""HLOF778"",13,0)"
^XMB(3.9,41,2,6254,0)=" ;  (""DIRECTION"")=<""IN"" or ""OUT"">"
^XMB(3.9,41,2,6255,0)="""RTN"",""HLOF778"",14,0)"
^XMB(3.9,41,2,6256,0)=" ;  (""IEN"")=ien,file 778 if stored"
^XMB(3.9,41,2,6257,0)="""RTN"",""HLOF778"",15,0)"
^XMB(3.9,41,2,6258,0)=" ;  (""UNSTORED LINES"") - count of lines to be stored.  The lines are at the a lower subscript level <msg>,<segment>,<line>=<line to be stored>"
^XMB(3.9,41,2,6259,0)="""RTN"",""HLOF778"",16,0)"
^XMB(3.9,41,2,6260,0)=" ;  (""UNSTORED MSH"") For batch messages, set to 1 if there are MSH in cache. Cached MSH at (""UNSTORED MSH"",<subfile ien>,<1 & 2>)"
^XMB(3.9,41,2,6261,0)="""RTN"",""HLOF778"",17,0)"
^XMB(3.9,41,2,6262,0)=" ;"
^XMB(3.9,41,2,6263,0)="""RTN"",""HLOF778"",18,0)"
^XMB(3.9,41,2,6264,0)=" ;Output:"
^XMB(3.9,41,2,6265,0)="""RTN"",""HLOF778"",19,0)"
^XMB(3.9,41,2,6266,0)=" ;  Function - returns the ien of the msg (file 778)"
^XMB(3.9,41,2,6267,0)="""RTN"",""HLOF778"",20,0)"
^XMB(3.9,41,2,6268,0)=" ;  HLMSTATE"
^XMB(3.9,41,2,6269,0)="""RTN"",""HLOF778"",21,0)"
^XMB(3.9,41,2,6270,0)=" ;   (""BODY"") - set to ien, file 777 if newly created"
^XMB(3.9,41,2,6271,0)="""RTN"",""HLOF778"",22,0)"
^XMB(3.9,41,2,6272,0)=" ;   (""IEN"") - set to ien, file 778 if newly created"
^XMB(3.9,41,2,6273,0)="""RTN"",""HLOF778"",23,0)"
^XMB(3.9,41,2,6274,0)=" ;   (""UNSTORED LINES"")-set to 0 as this function will store them"
^XMB(3.9,41,2,6275,0)="""RTN"",""HLOF778"",24,0)"
^XMB(3.9,41,2,6276,0)=" ;   (""UNSTORED MSH"")- set to 0 as this function will store it"
^XMB(3.9,41,2,6277,0)="""RTN"",""HLOF778"",25,0)"
^XMB(3.9,41,2,6278,0)=" ;"
^XMB(3.9,41,2,6279,0)="""RTN"",""HLOF778"",26,0)"
^XMB(3.9,41,2,6280,0)=" ;"
^XMB(3.9,41,2,6281,0)="""RTN"",""HLOF778"",27,0)"
^XMB(3.9,41,2,6282,0)=" I '$D(HLMSTATE(""DT/TM"")) S HLMSTATE(""DT/TM"")=$S(HLMSTATE(""DIRECTION"")=""IN"":$$NOW^XLFDT,1:"""")"
^XMB(3.9,41,2,6283,0)="""RTN"",""HLOF778"",28,0)"
^XMB(3.9,41,2,6284,0)=" ;"
^XMB(3.9,41,2,6285,0)="""RTN"",""HLOF778"",29,0)"
^XMB(3.9,41,2,6286,0)=" ;insure that 777 entry created & all segments stored"
^XMB(3.9,41,2,6287,0)="""RTN"",""HLOF778"",30,0)"
^XMB(3.9,41,2,6288,0)=" I ('HLMSTATE(""BODY""))!($G(HLMSTATE(""UNSTORED LINES"")))!($L($G(HLMSTATE(""BATCH"",""BTS"")))),'$$SAVEMSG^HLOF777(.HLMSTATE) Q 0"
^XMB(3.9,41,2,6289,0)="""RTN"",""HLOF778"",31,0)"
^XMB(3.9,41,2,6290,0)=" ;"
^XMB(3.9,41,2,6291,0)="""RTN"",""HLOF778"",32,0)"
^XMB(3.9,41,2,6292,0)=" ;insure 778 entry created"
^XMB(3.9,41,2,6293,0)="""RTN"",""HLOF778"",33,0)"
^XMB(3.9,41,2,6294,0)=" I 'HLMSTATE(""IEN"") Q:'$$NEW^HLOF778A(.HLMSTATE) 0"
^XMB(3.9,41,2,6295,0)="""RTN"",""HLOF778"",34,0)"
^XMB(3.9,41,2,6296,0)=" ;"
^XMB(3.9,41,2,6297,0)="""RTN"",""HLOF778"",35,0)"
^XMB(3.9,41,2,6298,0)=" ;for batch messages, store MSH segments in 778"
^XMB(3.9,41,2,6299,0)="""RTN"",""HLOF778"",36,0)"
^XMB(3.9,41,2,6300,0)=" I HLMSTATE(""BATCH"") D"
^XMB(3.9,41,2,6301,0)="""RTN"",""HLOF778"",37,0)"
^XMB(3.9,41,2,6302,0)=" .N IEN S IEN=HLMSTATE(""IEN"")"
^XMB(3.9,41,2,6303,0)="""RTN"",""HLOF778"",38,0)"
^XMB(3.9,41,2,6304,0)=" .;"
^XMB(3.9,41,2,6305,0)="""RTN"",""HLOF778"",39,0)"
^XMB(3.9,41,2,6306,0)=" .;incoming messages cache the MSH segments in memory"
^XMB(3.9,41,2,6307,0)="""RTN"",""HLOF778"",40,0)"
^XMB(3.9,41,2,6308,0)=" .I HLMSTATE(""DIRECTION"")=""IN"",HLMSTATE(""UNSTORED MSH"") D"
^XMB(3.9,41,2,6309,0)="""RTN"",""HLOF778"",41,0)"
^XMB(3.9,41,2,6310,0)=" ..N ORDER S ORDER=0"
^XMB(3.9,41,2,6311,0)="""RTN"",""HLOF778"",42,0)"
^XMB(3.9,41,2,6312,0)=" ..F  S ORDER=$O(HLMSTATE(""UNSTORED MSH"",ORDER)) Q:'ORDER  D"
^XMB(3.9,41,2,6313,0)="""RTN"",""HLOF778"",43,0)"
^XMB(3.9,41,2,6314,0)=" ...N FS,MSGID"
^XMB(3.9,41,2,6315,0)="""RTN"",""HLOF778"",44,0)"
^XMB(3.9,41,2,6316,0)=" ...S FS=$E(HLMSTATE(""UNSTORED MSH"",ORDER,1),4)"
^XMB(3.9,41,2,6317,0)="""RTN"",""HLOF778"",45,0)"
^XMB(3.9,41,2,6318,0)=" ...S MSGID=$P(HLMSTATE(""UNSTORED MSH"",ORDER,2),FS,5)"
^XMB(3.9,41,2,6319,0)="""RTN"",""HLOF778"",46,0)"
^XMB(3.9,41,2,6320,0)=" ...S ^HLB(IEN,3,ORDER,0)=ORDER_""^""_MSGID_""^""_$G(HLMSTATE(""BATCH"",""ACK TO"",ORDER))"
^XMB(3.9,41,2,6321,0)="""RTN"",""HLOF778"",47,0)"
^XMB(3.9,41,2,6322,0)=" ...S ^HLB(IEN,3,ORDER,1)=HLMSTATE(""UNSTORED MSH"",ORDER,1)"
^XMB(3.9,41,2,6323,0)="""RTN"",""HLOF778"",48,0)"
^XMB(3.9,41,2,6324,0)=" ...S ^HLB(IEN,3,ORDER,2)=HLMSTATE(""UNSTORED MSH"",ORDER,2)"
^XMB(3.9,41,2,6325,0)="""RTN"",""HLOF778"",49,0)"
^XMB(3.9,41,2,6326,0)=" ...S ^HLB(IEN,3,""B"",ORDER,ORDER)="""""
^XMB(3.9,41,2,6327,0)="""RTN"",""HLOF778"",50,0)"
^XMB(3.9,41,2,6328,0)=" ...I MSGID]"""" S ^HLB(""AE"",MSGID,IEN_""^""_ORDER)="""" ;whole file index for individual message id"
^XMB(3.9,41,2,6329,0)="""RTN"",""HLOF778"",51,0)"
^XMB(3.9,41,2,6330,0)=" ..K HLMSTATE(""UNSTORED MSH"") S HLMSTATE(""UNSTORED MSH"")=0"
^XMB(3.9,41,2,6331,0)="""RTN"",""HLOF778"",52,0)"
^XMB(3.9,41,2,6332,0)=" .;"
^XMB(3.9,41,2,6333,0)="""RTN"",""HLOF778"",53,0)"
^XMB(3.9,41,2,6334,0)=" .;"
^XMB(3.9,41,2,6335,0)="""RTN"",""HLOF778"",54,0)"
^XMB(3.9,41,2,6336,0)=" .I HLMSTATE(""DIRECTION"")=""OUT"" D"
^XMB(3.9,41,2,6337,0)="""RTN"",""HLOF778"",55,0)"
^XMB(3.9,41,2,6338,0)=" ..;must build the MSH segments!"
^XMB(3.9,41,2,6339,0)="""RTN"",""HLOF778"",56,0)"
^XMB(3.9,41,2,6340,0)=" ..N HDR,FS,MSG,CS"
^XMB(3.9,41,2,6341,0)="""RTN"",""HLOF778"",57,0)"
^XMB(3.9,41,2,6342,0)=" ..S FS=HLMSTATE(""HDR"",""FIELD SEPARATOR"")"
^XMB(3.9,41,2,6343,0)="""RTN"",""HLOF778"",58,0)"
^XMB(3.9,41,2,6344,0)=" ..S CS=$E(HLMSTATE(""HDR"",""ENCODING CHARACTERS""),1)"
^XMB(3.9,41,2,6345,0)="""RTN"",""HLOF778"",59,0)"
^XMB(3.9,41,2,6346,0)=" ..S HLMSTATE(""HDR"",""MESSAGE TYPE"")=""   """
^XMB(3.9,41,2,6347,0)="""RTN"",""HLOF778"",60,0)"
^XMB(3.9,41,2,6348,0)=" ..S HLMSTATE(""HDR"",""EVENT"")=""   """
^XMB(3.9,41,2,6349,0)="""RTN"",""HLOF778"",61,0)"
^XMB(3.9,41,2,6350,0)=" ..D BUILDHDR^HLOPBLD1(.HLMSTATE,""MSH"",.HDR)"
^XMB(3.9,41,2,6351,0)="""RTN"",""HLOF778"",62,0)"
^XMB(3.9,41,2,6352,0)=" ..S HLMSTATE(""BATCH"",""CURRENT MESSAGE"")=$O(^HLB(HLMSTATE(""IEN""),3,""B"","";""),-1)"
^XMB(3.9,41,2,6353,0)="""RTN"",""HLOF778"",63,0)"
^XMB(3.9,41,2,6354,0)=" ..F  Q:'$$NEXTMSG(.HLMSTATE,.MSG)  D"
^XMB(3.9,41,2,6355,0)="""RTN"",""HLOF778"",64,0)"
^XMB(3.9,41,2,6356,0)=" ...N MSGID,CUR"
^XMB(3.9,41,2,6357,0)="""RTN"",""HLOF778"",65,0)"
^XMB(3.9,41,2,6358,0)=" ...S CUR=HLMSTATE(""BATCH"",""CURRENT MESSAGE"")"
^XMB(3.9,41,2,6359,0)="""RTN"",""HLOF778"",66,0)"
^XMB(3.9,41,2,6360,0)=" ...S MSGID=HLMSTATE(""HDR"",""BATCH CONTROL ID"")_""-""_CUR"
^XMB(3.9,41,2,6361,0)="""RTN"",""HLOF778"",67,0)"
^XMB(3.9,41,2,6362,0)=" ...S $P(HDR(2),FS,4)=MSG(""MESSAGE TYPE"")_CS_MSG(""EVENT"")"
^XMB(3.9,41,2,6363,0)="""RTN"",""HLOF778"",68,0)"
^XMB(3.9,41,2,6364,0)=" ...S $P(HDR(2),FS,5)=MSGID"
^XMB(3.9,41,2,6365,0)="""RTN"",""HLOF778"",69,0)"
^XMB(3.9,41,2,6366,0)=" ...S ^HLB(IEN,3,CUR,0)=CUR_""^""_MSGID_""^""_$G(HLMSTATE(""BATCH"",""ACK TO"",CUR))"
^XMB(3.9,41,2,6367,0)="""RTN"",""HLOF778"",70,0)"
^XMB(3.9,41,2,6368,0)=" ...S ^HLB(IEN,3,CUR,1)=HDR(1)"
^XMB(3.9,41,2,6369,0)="""RTN"",""HLOF778"",71,0)"
^XMB(3.9,41,2,6370,0)=" ...S ^HLB(IEN,3,CUR,2)=HDR(2)"
^XMB(3.9,41,2,6371,0)="""RTN"",""HLOF778"",72,0)"
^XMB(3.9,41,2,6372,0)=" ...S ^HLB(IEN,3,""B"",CUR,CUR)="""""
^XMB(3.9,41,2,6373,0)="""RTN"",""HLOF778"",73,0)"
^XMB(3.9,41,2,6374,0)=" ...S ^HLB(""AE"",MSGID,IEN_""^""_CUR)="""" ;whole file index for individual message id"
^XMB(3.9,41,2,6375,0)="""RTN"",""HLOF778"",74,0)"
^XMB(3.9,41,2,6376,0)=" ..;"
^XMB(3.9,41,2,6377,0)="""RTN"",""HLOF778"",75,0)"
^XMB(3.9,41,2,6378,0)=" .;if the messages are application acks, then update the original message"
^XMB(3.9,41,2,6379,0)="""RTN"",""HLOF778"",76,0)"
^XMB(3.9,41,2,6380,0)=" .N SUBIEN S SUBIEN=0"
^XMB(3.9,41,2,6381,0)="""RTN"",""HLOF778"",77,0)"
^XMB(3.9,41,2,6382,0)=" .F  S SUBIEN=$O(HLMSTATE(""BATCH"",""ACK TO"",SUBIEN)) Q:'SUBIEN  I $G(HLMSTATE(""BATCH"",""ACK TO"",SUBIEN,""IEN""))]"""" D"
^XMB(3.9,41,2,6383,0)="""RTN"",""HLOF778"",78,0)"
^XMB(3.9,41,2,6384,0)=" ..N ACKTO"
^XMB(3.9,41,2,6385,0)="""RTN"",""HLOF778"",79,0)"
^XMB(3.9,41,2,6386,0)=" ..M ACKTO=HLMSTATE(""BATCH"",""ACK TO"",SUBIEN)"
^XMB(3.9,41,2,6387,0)="""RTN"",""HLOF778"",80,0)"
^XMB(3.9,41,2,6388,0)=" ..;"
^XMB(3.9,41,2,6389,0)="""RTN"",""HLOF778"",81,0)"
^XMB(3.9,41,2,6390,0)=" ..;for outgoing msgs, we just created the msgid, for incoming msgs we already had it"
^XMB(3.9,41,2,6391,0)="""RTN"",""HLOF778"",82,0)"
^XMB(3.9,41,2,6392,0)=" ..S:HLMSTATE(""DIRECTION"")=""OUT"" ACKTO(""ACK BY"")=HLMSTATE(""HDR"",""BATCH CONTROL ID"")_""-""_SUBIEN"
^XMB(3.9,41,2,6393,0)="""RTN"",""HLOF778"",83,0)"
^XMB(3.9,41,2,6394,0)=" ..;"
^XMB(3.9,41,2,6395,0)="""RTN"",""HLOF778"",84,0)"
^XMB(3.9,41,2,6396,0)=" ..D ACKTO(.HLMSTATE,.ACKTO)"
^XMB(3.9,41,2,6397,0)="""RTN"",""HLOF778"",85,0)"
^XMB(3.9,41,2,6398,0)=" .K HLMSTATE(""BATCH"",""ACK TO"")"
^XMB(3.9,41,2,6399,0)="""RTN"",""HLOF778"",86,0)"
^XMB(3.9,41,2,6400,0)=" ;"
^XMB(3.9,41,2,6401,0)="""RTN"",""HLOF778"",87,0)"
^XMB(3.9,41,2,6402,0)=" ;if the msg is an app ack, update the original if not done already"
^XMB(3.9,41,2,6403,0)="""RTN"",""HLOF778"",88,0)"
^XMB(3.9,41,2,6404,0)=" I $G(HLMSTATE(""ACK TO"",""IEN""))]"""",'$G(HLMSTATE(""ACK TO"",""DONE"")) D"
^XMB(3.9,41,2,6405,0)="""RTN"",""HLOF778"",89,0)"
^XMB(3.9,41,2,6406,0)=" .N ACKTO"
^XMB(3.9,41,2,6407,0)="""RTN"",""HLOF778"",90,0)"
^XMB(3.9,41,2,6408,0)=" .M ACKTO=HLMSTATE(""ACK TO"")"
^XMB(3.9,41,2,6409,0)="""RTN"",""HLOF778"",91,0)"
^XMB(3.9,41,2,6410,0)=" .S ACKTO(""ACK BY"")=$S(HLMSTATE(""BATCH""):HLMSTATE(""HDR"",""BATCH CONTROL ID""),1:HLMSTATE(""HDR"",""MESSAGE CONTROL ID""))"
^XMB(3.9,41,2,6411,0)="""RTN"",""HLOF778"",92,0)"
^XMB(3.9,41,2,6412,0)=" .D ACKTO(.HLMSTATE,.ACKTO)"
^XMB(3.9,41,2,6413,0)="""RTN"",""HLOF778"",93,0)"
^XMB(3.9,41,2,6414,0)=" .S HLMSTATE(""ACK TO"",""DONE"")=1 ;so the update isn't done again"
^XMB(3.9,41,2,6415,0)="""RTN"",""HLOF778"",94,0)"
^XMB(3.9,41,2,6416,0)=" ;"
^XMB(3.9,41,2,6417,0)="""RTN"",""HLOF778"",95,0)"
^XMB(3.9,41,2,6418,0)=" Q HLMSTATE(""IEN"")"
^XMB(3.9,41,2,6419,0)="""RTN"",""HLOF778"",96,0)"
^XMB(3.9,41,2,6420,0)=" ;"
^XMB(3.9,41,2,6421,0)="""RTN"",""HLOF778"",97,0)"
^XMB(3.9,41,2,6422,0)="NEXTMSG(HLMSTATE,MSG) ;"
^XMB(3.9,41,2,6423,0)="""RTN"",""HLOF778"",98,0)"
^XMB(3.9,41,2,6424,0)=" ;Traverses file 777 to return the next message in the batch - as"
^XMB(3.9,41,2,6425,0)="""RTN"",""HLOF778"",99,0)"
^XMB(3.9,41,2,6426,0)=" ;indicated by HLMSTATE(""BATCH"",""CURRENT MESSAGE"")  Set to 0 to start,"
^XMB(3.9,41,2,6427,0)="""RTN"",""HLOF778"",100,0)"
^XMB(3.9,41,2,6428,0)=" ;returns 0 when there are no more messages"
^XMB(3.9,41,2,6429,0)="""RTN"",""HLOF778"",101,0)"
^XMB(3.9,41,2,6430,0)=" ;"
^XMB(3.9,41,2,6431,0)="""RTN"",""HLOF778"",102,0)"
^XMB(3.9,41,2,6432,0)=" ;Input:  HLMSTATE (pass by reference,required)"
^XMB(3.9,41,2,6433,0)="""RTN"",""HLOF778"",103,0)"
^XMB(3.9,41,2,6434,0)=" ;Output:"
^XMB(3.9,41,2,6435,0)="""RTN"",""HLOF778"",104,0)"
^XMB(3.9,41,2,6436,0)=" ;  HLMSTATE"
^XMB(3.9,41,2,6437,0)="""RTN"",""HLOF778"",105,0)"
^XMB(3.9,41,2,6438,0)=" ;     (""BATCH"",""CURRENT MESSAGE"")"
^XMB(3.9,41,2,6439,0)="""RTN"",""HLOF778"",106,0)"
^XMB(3.9,41,2,6440,0)=" ;  MSG -pass by reference:"
^XMB(3.9,41,2,6441,0)="""RTN"",""HLOF778"",107,0)"
^XMB(3.9,41,2,6442,0)=" ;     (""EVENT"")"
^XMB(3.9,41,2,6443,0)="""RTN"",""HLOF778"",108,0)"
^XMB(3.9,41,2,6444,0)=" ;     (""MESSAGE TYPE"")"
^XMB(3.9,41,2,6445,0)="""RTN"",""HLOF778"",109,0)"
^XMB(3.9,41,2,6446,0)=" ;"
^XMB(3.9,41,2,6447,0)="""RTN"",""HLOF778"",110,0)"
^XMB(3.9,41,2,6448,0)=" ;"
^XMB(3.9,41,2,6449,0)="""RTN"",""HLOF778"",111,0)"
^XMB(3.9,41,2,6450,0)=" N SUBIEN,NODE"
^XMB(3.9,41,2,6451,0)="""RTN"",""HLOF778"",112,0)"
^XMB(3.9,41,2,6452,0)=" K MSG"
^XMB(3.9,41,2,6453,0)="""RTN"",""HLOF778"",113,0)"
^XMB(3.9,41,2,6454,0)=" Q:'$G(HLMSTATE(""BODY"")) 0"
^XMB(3.9,41,2,6455,0)="""RTN"",""HLOF778"",114,0)"
^XMB(3.9,41,2,6456,0)=" S SUBIEN=$O(^HLA(HLMSTATE(""BODY""),2,HLMSTATE(""BATCH"",""CURRENT MESSAGE"")))"
^XMB(3.9,41,2,6457,0)="""RTN"",""HLOF778"",115,0)"
^XMB(3.9,41,2,6458,0)=" Q:'SUBIEN 0"
^XMB(3.9,41,2,6459,0)="""RTN"",""HLOF778"",116,0)"
^XMB(3.9,41,2,6460,0)=" S NODE=$G(^HLA(HLMSTATE(""BODY""),2,SUBIEN,0))"
^XMB(3.9,41,2,6461,0)="""RTN"",""HLOF778"",117,0)"
^XMB(3.9,41,2,6462,0)=" S MSG(""MESSAGE TYPE"")=$P(NODE,""^"",2)"
^XMB(3.9,41,2,6463,0)="""RTN"",""HLOF778"",118,0)"
^XMB(3.9,41,2,6464,0)=" S MSG(""EVENT"")=$P(NODE,""^"",3)"
^XMB(3.9,41,2,6465,0)="""RTN"",""HLOF778"",119,0)"
^XMB(3.9,41,2,6466,0)=" S HLMSTATE(""BATCH"",""CURRENT MESSAGE"")=SUBIEN"
^XMB(3.9,41,2,6467,0)="""RTN"",""HLOF778"",120,0)"
^XMB(3.9,41,2,6468,0)=" Q SUBIEN"
^XMB(3.9,41,2,6469,0)="""RTN"",""HLOF778"",121,0)"
^XMB(3.9,41,2,6470,0)=" ;"
^XMB(3.9,41,2,6471,0)="""RTN"",""HLOF778"",122,0)"
^XMB(3.9,41,2,6472,0)="ACKTO(HLMSTATE,ACKTO) ;if this is an application ack, update the original message"
^XMB(3.9,41,2,6473,0)="""RTN"",""HLOF778"",123,0)"
^XMB(3.9,41,2,6474,0)=" ;ACKTO = (msgid of msg being ack'd)"
^XMB(3.9,41,2,6475,0)="""RTN"",""HLOF778"",124,0)"
^XMB(3.9,41,2,6476,0)=" ;        uses these subscripts (""IEN""=ien^subien),(""ACK BY""=msgid of acking msg),(""STATUS""=status for the initial msg determined by the ack)"
^XMB(3.9,41,2,6477,0)="""RTN"",""HLOF778"",125,0)"
^XMB(3.9,41,2,6478,0)=" ;"
^XMB(3.9,41,2,6479,0)="""RTN"",""HLOF778"",126,0)"
^XMB(3.9,41,2,6480,0)=" N STATUS,IEN,SUBIEN,NODE"
^XMB(3.9,41,2,6481,0)="""RTN"",""HLOF778"",127,0)"
^XMB(3.9,41,2,6482,0)=" S STATUS=$G(ACKTO(""STATUS""))"
^XMB(3.9,41,2,6483,0)="""RTN"",""HLOF778"",128,0)"
^XMB(3.9,41,2,6484,0)=" S IEN=+ACKTO(""IEN""),SUBIEN=$P(ACKTO(""IEN""),""^"",2)"
^XMB(3.9,41,2,6485,0)="""RTN"",""HLOF778"",129,0)"
^XMB(3.9,41,2,6486,0)=" S NODE=$G(^HLB(IEN,0))"
^XMB(3.9,41,2,6487,0)="""RTN"",""HLOF778"",130,0)"
^XMB(3.9,41,2,6488,0)=" I 'SUBIEN D"
^XMB(3.9,41,2,6489,0)="""RTN"",""HLOF778"",131,0)"
^XMB(3.9,41,2,6490,0)=" .;ack is to a message NOT in a batch"
^XMB(3.9,41,2,6491,0)="""RTN"",""HLOF778"",132,0)"
^XMB(3.9,41,2,6492,0)=" .I STATUS="""" S STATUS=""SU"""
^XMB(3.9,41,2,6493,0)="""RTN"",""HLOF778"",133,0)"
^XMB(3.9,41,2,6494,0)=" .S $P(NODE,""^"",7)=ACKTO(""ACK BY"")"
^XMB(3.9,41,2,6495,0)="""RTN"",""HLOF778"",134,0)"
^XMB(3.9,41,2,6496,0)=" .S $P(NODE,""^"",20)=STATUS"
^XMB(3.9,41,2,6497,0)="""RTN"",""HLOF778"",135,0)"
^XMB(3.9,41,2,6498,0)=" .S ^HLB(IEN,0)=NODE"
^XMB(3.9,41,2,6499,0)="""RTN"",""HLOF778"",136,0)"
^XMB(3.9,41,2,6500,0)=" E  D"
^XMB(3.9,41,2,6501,0)="""RTN"",""HLOF778"",137,0)"
^XMB(3.9,41,2,6502,0)=" .;ack is to a message that IS in a batch"
^XMB(3.9,41,2,6503,0)="""RTN"",""HLOF778"",138,0)"
^XMB(3.9,41,2,6504,0)=" .S $P(^HLB(IEN,3,SUBIEN,0),""^"",4)=$G(ACKTO(""ACK BY""))"
^XMB(3.9,41,2,6505,0)="""RTN"",""HLOF778"",139,0)"
^XMB(3.9,41,2,6506,0)=" .S $P(^HLB(IEN,3,SUBIEN,0),""^"",5)=STATUS"
^XMB(3.9,41,2,6507,0)="""RTN"",""HLOF778"",140,0)"
^XMB(3.9,41,2,6508,0)=" I (STATUS=""AE""),HLMSTATE(""HDR"",""SENDING APPLICATION"")]"""" D"
^XMB(3.9,41,2,6509,0)="""RTN"",""HLOF778"",141,0)"
^XMB(3.9,41,2,6510,0)=" .N TIME,BODY"
^XMB(3.9,41,2,6511,0)="""RTN"",""HLOF778"",142,0)"
^XMB(3.9,41,2,6512,0)=" .S BODY=$P(NODE,""^"",2)"
^XMB(3.9,41,2,6513,0)="""RTN"",""HLOF778"",143,0)"
^XMB(3.9,41,2,6514,0)=" .S:BODY TIME=+$G(^HLA(BODY,0))"
^XMB(3.9,41,2,6515,0)="""RTN"",""HLOF778"",144,0)"
^XMB(3.9,41,2,6516,0)=" .I $G(TIME) S ^HLB(""ERRORS"",""AE"",HLMSTATE(""HDR"",""SENDING APPLICATION""),TIME,ACKTO(""IEN""))="""""
^XMB(3.9,41,2,6517,0)="""RTN"",""HLOF778"",145,0)"
^XMB(3.9,41,2,6518,0)=" Q"
^XMB(3.9,41,2,6519,0)="""RTN"",""HLOF778A"")"
^XMB(3.9,41,2,6520,0)="0^22^B35675106"
^XMB(3.9,41,2,6521,0)="""RTN"",""HLOF778A"",1,0)"
^XMB(3.9,41,2,6522,0)="HLOF778A ;ALB/CJM-HL7 - Saving messages to file 778 (continued) ;02/04/2004"
^XMB(3.9,41,2,6523,0)="""RTN"",""HLOF778A"",2,0)"
^XMB(3.9,41,2,6524,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995"
^XMB(3.9,41,2,6525,0)="""RTN"",""HLOF778A"",3,0)"
^XMB(3.9,41,2,6526,0)=" ;"
^XMB(3.9,41,2,6527,0)="""RTN"",""HLOF778A"",4,0)"
^XMB(3.9,41,2,6528,0)=" ;"
^XMB(3.9,41,2,6529,0)="""RTN"",""HLOF778A"",5,0)"
^XMB(3.9,41,2,6530,0)="NEW(HLMSTATE) ;"
^XMB(3.9,41,2,6531,0)="""RTN"",""HLOF778A"",6,0)"
^XMB(3.9,41,2,6532,0)=" ;This function creates a new entry in file 778."
^XMB(3.9,41,2,6533,0)="""RTN"",""HLOF778A"",7,0)"
^XMB(3.9,41,2,6534,0)=" ;Input:"
^XMB(3.9,41,2,6535,0)="""RTN"",""HLOF778A"",8,0)"
^XMB(3.9,41,2,6536,0)=" ;   HLMSTATE (required, pass by reference) These subscripts are expected:"
^XMB(3.9,41,2,6537,0)="""RTN"",""HLOF778A"",9,0)"
^XMB(3.9,41,2,6538,0)=" ;"
^XMB(3.9,41,2,6539,0)="""RTN"",""HLOF778A"",10,0)"
^XMB(3.9,41,2,6540,0)=" ;Output - the function returns the ien of the newly created record"
^XMB(3.9,41,2,6541,0)="""RTN"",""HLOF778A"",11,0)"
^XMB(3.9,41,2,6542,0)=" ;"
^XMB(3.9,41,2,6543,0)="""RTN"",""HLOF778A"",12,0)"
^XMB(3.9,41,2,6544,0)=" N IEN,NODE,ID,STAT"
^XMB(3.9,41,2,6545,0)="""RTN"",""HLOF778A"",13,0)"
^XMB(3.9,41,2,6546,0)=" S STAT=""HLMSTATE(""""STATUS"""")"""
^XMB(3.9,41,2,6547,0)="""RTN"",""HLOF778A"",14,0)"
^XMB(3.9,41,2,6548,0)=" S IEN=$$NEWIEN(HLMSTATE(""DIRECTION""),$$TCP)"
^XMB(3.9,41,2,6549,0)="""RTN"",""HLOF778A"",15,0)"
^XMB(3.9,41,2,6550,0)=" Q:'IEN 0"
^XMB(3.9,41,2,6551,0)="""RTN"",""HLOF778A"",16,0)"
^XMB(3.9,41,2,6552,0)=" S HLMSTATE(""IEN"")=IEN"
^XMB(3.9,41,2,6553,0)="""RTN"",""HLOF778A"",17,0)"
^XMB(3.9,41,2,6554,0)=" ;"
^XMB(3.9,41,2,6555,0)="""RTN"",""HLOF778A"",18,0)"
^XMB(3.9,41,2,6556,0)=" D  ;build the message header"
^XMB(3.9,41,2,6557,0)="""RTN"",""HLOF778A"",19,0)"
^XMB(3.9,41,2,6558,0)=" .N HDR"
^XMB(3.9,41,2,6559,0)="""RTN"",""HLOF778A"",20,0)"
^XMB(3.9,41,2,6560,0)=" .;for incoming messages the header segment should already exist"
^XMB(3.9,41,2,6561,0)="""RTN"",""HLOF778A"",21,0)"
^XMB(3.9,41,2,6562,0)=" .;for outgoing messages must build the header segment"
^XMB(3.9,41,2,6563,0)="""RTN"",""HLOF778A"",22,0)"
^XMB(3.9,41,2,6564,0)=" .I HLMSTATE(""DIRECTION"")=""OUT"" D  Q"
^XMB(3.9,41,2,6565,0)="""RTN"",""HLOF778A"",23,0)"
^XMB(3.9,41,2,6566,0)=" ..I HLMSTATE(""BATCH""),$G(HLMSTATE(""ACK TO""))]"""" S HLMSTATE(""HDR"",""REFERENCE BATCH CONTROL ID"")=HLMSTATE(""ACK TO"")"
^XMB(3.9,41,2,6567,0)="""RTN"",""HLOF778A"",24,0)"
^XMB(3.9,41,2,6568,0)=" ..D BUILDHDR^HLOPBLD1(.HLMSTATE,$S(HLMSTATE(""BATCH""):""BHS"",1:""MSH""),.HDR)"
^XMB(3.9,41,2,6569,0)="""RTN"",""HLOF778A"",25,0)"
^XMB(3.9,41,2,6570,0)=" ..S HLMSTATE(""HDR"",1)=HDR(1),HLMSTATE(""HDR"",2)=HDR(2)"
^XMB(3.9,41,2,6571,0)="""RTN"",""HLOF778A"",26,0)"
^XMB(3.9,41,2,6572,0)=" ;"
^XMB(3.9,41,2,6573,0)="""RTN"",""HLOF778A"",27,0)"
^XMB(3.9,41,2,6574,0)=" K ^HLB(IEN)"
^XMB(3.9,41,2,6575,0)="""RTN"",""HLOF778A"",28,0)"
^XMB(3.9,41,2,6576,0)=" S ID=$S(HLMSTATE(""BATCH""):HLMSTATE(""HDR"",""BATCH CONTROL ID""),1:HLMSTATE(""HDR"",""MESSAGE CONTROL ID""))"
^XMB(3.9,41,2,6577,0)="""RTN"",""HLOF778A"",29,0)"
^XMB(3.9,41,2,6578,0)=" S NODE=ID_""^""_HLMSTATE(""BODY"")_""^""_$G(HLMSTATE(""ACK TO""))_""^""_$S(HLMSTATE(""DIRECTION"")=""IN"":""I"",1:""O"")_""^"""
^XMB(3.9,41,2,6579,0)="""RTN"",""HLOF778A"",30,0)"
^XMB(3.9,41,2,6580,0)=" S $P(NODE,""^"",5)=$G(@STAT@(""LINK NAME""))"
^XMB(3.9,41,2,6581,0)="""RTN"",""HLOF778A"",31,0)"
^XMB(3.9,41,2,6582,0)=" S $P(NODE,""^"",6)=$G(@STAT@(""QUEUE""))"
^XMB(3.9,41,2,6583,0)="""RTN"",""HLOF778A"",32,0)"
^XMB(3.9,41,2,6584,0)=" S $P(NODE,""^"",8)=$G(@STAT@(""PORT""))"
^XMB(3.9,41,2,6585,0)="""RTN"",""HLOF778A"",33,0)"
^XMB(3.9,41,2,6586,0)=" S $P(NODE,""^"",20)=$G(@STAT)"
^XMB(3.9,41,2,6587,0)="""RTN"",""HLOF778A"",34,0)"
^XMB(3.9,41,2,6588,0)=" S $P(NODE,""^"",21)=$G(@STAT@(""ERROR TEXT""))"
^XMB(3.9,41,2,6589,0)="""RTN"",""HLOF778A"",35,0)"
^XMB(3.9,41,2,6590,0)=" S $P(NODE,""^"",16)=HLMSTATE(""DT/TM"")"
^XMB(3.9,41,2,6591,0)="""RTN"",""HLOF778A"",36,0)"
^XMB(3.9,41,2,6592,0)=" ;"
^XMB(3.9,41,2,6593,0)="""RTN"",""HLOF778A"",37,0)"
^XMB(3.9,41,2,6594,0)=" I HLMSTATE(""DIRECTION"")=""OUT"" D"
^XMB(3.9,41,2,6595,0)="""RTN"",""HLOF778A"",38,0)"
^XMB(3.9,41,2,6596,0)=" .S $P(NODE,""^"",10)=$P($G(@STAT@(""APP ACK RESPONSE"")),""^"")"
^XMB(3.9,41,2,6597,0)="""RTN"",""HLOF778A"",39,0)"
^XMB(3.9,41,2,6598,0)=" .S $P(NODE,""^"",11)=$P($G(@STAT@(""APP ACK RESPONSE"")),""^"",2)"
^XMB(3.9,41,2,6599,0)="""RTN"",""HLOF778A"",40,0)"
^XMB(3.9,41,2,6600,0)=" .S $P(NODE,""^"",12)=$P($G(@STAT@(""ACCEPT ACK RESPONSE"")),""^"")"
^XMB(3.9,41,2,6601,0)="""RTN"",""HLOF778A"",41,0)"
^XMB(3.9,41,2,6602,0)=" .S $P(NODE,""^"",13)=$P($G(@STAT@(""ACCEPT ACK RESPONSE"")),""^"",2)"
^XMB(3.9,41,2,6603,0)="""RTN"",""HLOF778A"",42,0)"
^XMB(3.9,41,2,6604,0)=" .S $P(NODE,""^"",14)=$P($G(@STAT@(""FAILURE RESPONSE"")),""^"")"
^XMB(3.9,41,2,6605,0)="""RTN"",""HLOF778A"",43,0)"
^XMB(3.9,41,2,6606,0)=" .S $P(NODE,""^"",15)=$P($G(@STAT@(""FAILURE RESPONSE"")),""^"",2)"
^XMB(3.9,41,2,6607,0)="""RTN"",""HLOF778A"",44,0)"
^XMB(3.9,41,2,6608,0)=" .;"
^XMB(3.9,41,2,6609,0)="""RTN"",""HLOF778A"",45,0)"
^XMB(3.9,41,2,6610,0)=" .;for outgoing set these x-refs now, for incoming msgs set them later"
^XMB(3.9,41,2,6611,0)="""RTN"",""HLOF778A"",46,0)"
^XMB(3.9,41,2,6612,0)=" .S ^HLB(""B"",ID,IEN)="""""
^XMB(3.9,41,2,6613,0)="""RTN"",""HLOF778A"",47,0)"
^XMB(3.9,41,2,6614,0)=" .S ^HLB(""C"",HLMSTATE(""BODY""),IEN)="""""
^XMB(3.9,41,2,6615,0)="""RTN"",""HLOF778A"",48,0)"
^XMB(3.9,41,2,6616,0)=" .I ($G(@STAT)=""SE"") S ^HLB(""ERRORS"",""SE"",$S($L($G(HLMSTATE(""HDR"",""RECEIVING APPLICATION""))):HLMSTATE(""HDR"",""RECEIVING APPLICATION""),1:""UNKNOWN""),HLMSTATE(""DT/TM CREATED""),IEN)="""""
^XMB(3.9,41,2,6617,0)="""RTN"",""HLOF778A"",49,0)"
^XMB(3.9,41,2,6618,0)=" .;"
^XMB(3.9,41,2,6619,0)="""RTN"",""HLOF778A"",50,0)"
^XMB(3.9,41,2,6620,0)=" .;save some space for the ack"
^XMB(3.9,41,2,6621,0)="""RTN"",""HLOF778A"",51,0)"
^XMB(3.9,41,2,6622,0)=" .S:($G(HLMSTATE(""HDR"",""ACCEPT ACK TYPE""))=""AL"") ^HLB(IEN,4)=""^^^                                                                 """
^XMB(3.9,41,2,6623,0)="""RTN"",""HLOF778A"",52,0)"
^XMB(3.9,41,2,6624,0)=" I $G(HLMSTATE(""STATUS"",""PURGE"")) S $P(NODE,""^"",9)=HLMSTATE(""STATUS"",""PURGE""),^HLB(""AD"",""OUT"",HLMSTATE(""STATUS"",""PURGE""),HLMSTATE(""IEN""))="""""
^XMB(3.9,41,2,6625,0)="""RTN"",""HLOF778A"",53,0)"
^XMB(3.9,41,2,6626,0)=" S ^HLB(IEN,0)=NODE"
^XMB(3.9,41,2,6627,0)="""RTN"",""HLOF778A"",54,0)"
^XMB(3.9,41,2,6628,0)=" ;"
^XMB(3.9,41,2,6629,0)="""RTN"",""HLOF778A"",55,0)"
^XMB(3.9,41,2,6630,0)=" ;store the message header"
^XMB(3.9,41,2,6631,0)="""RTN"",""HLOF778A"",56,0)"
^XMB(3.9,41,2,6632,0)=" S ^HLB(IEN,1)=HLMSTATE(""HDR"",1)"
^XMB(3.9,41,2,6633,0)="""RTN"",""HLOF778A"",57,0)"
^XMB(3.9,41,2,6634,0)=" S ^HLB(IEN,2)=HLMSTATE(""HDR"",2)"
^XMB(3.9,41,2,6635,0)="""RTN"",""HLOF778A"",58,0)"
^XMB(3.9,41,2,6636,0)=" ;"
^XMB(3.9,41,2,6637,0)="""RTN"",""HLOF778A"",59,0)"
^XMB(3.9,41,2,6638,0)=" ;if the msg is an app ack, update the original msg"
^XMB(3.9,41,2,6639,0)="""RTN"",""HLOF778A"",60,0)"
^XMB(3.9,41,2,6640,0)=" I $G(HLMSTATE(""ACK TO"",""IEN""))]"""" D"
^XMB(3.9,41,2,6641,0)="""RTN"",""HLOF778A"",61,0)"
^XMB(3.9,41,2,6642,0)=" .N ACKTO"
^XMB(3.9,41,2,6643,0)="""RTN"",""HLOF778A"",62,0)"
^XMB(3.9,41,2,6644,0)=" .M ACKTO=HLMSTATE(""ACK TO"")"
^XMB(3.9,41,2,6645,0)="""RTN"",""HLOF778A"",63,0)"
^XMB(3.9,41,2,6646,0)=" .S ACKTO(""ACK BY"")=$S(HLMSTATE(""BATCH""):HLMSTATE(""HDR"",""BATCH CONTROL ID""),1:HLMSTATE(""HDR"",""MESSAGE CONTROL ID""))"
^XMB(3.9,41,2,6647,0)="""RTN"",""HLOF778A"",64,0)"
^XMB(3.9,41,2,6648,0)=" .D ACKTO^HLOF778(.HLMSTATE,.ACKTO)"
^XMB(3.9,41,2,6649,0)="""RTN"",""HLOF778A"",65,0)"
^XMB(3.9,41,2,6650,0)=" .S HLMSTATE(""ACK TO"",""DONE"")=1 ;because the update was already done, otherwise it might be done again"
^XMB(3.9,41,2,6651,0)="""RTN"",""HLOF778A"",66,0)"
^XMB(3.9,41,2,6652,0)=" ;"
^XMB(3.9,41,2,6653,0)="""RTN"",""HLOF778A"",67,0)"
^XMB(3.9,41,2,6654,0)=" ;The ""SEARCH"" x-ref will be created asynchronously"
^XMB(3.9,41,2,6655,0)="""RTN"",""HLOF778A"",68,0)"
^XMB(3.9,41,2,6656,0)=" S ^HLTMP(""PENDING SEARCH X-REF"",$J,HLMSTATE(""DT/TM CREATED""),IEN)="""""
^XMB(3.9,41,2,6657,0)="""RTN"",""HLOF778A"",69,0)"
^XMB(3.9,41,2,6658,0)=" ;"
^XMB(3.9,41,2,6659,0)="""RTN"",""HLOF778A"",70,0)"
^XMB(3.9,41,2,6660,0)=" Q IEN"
^XMB(3.9,41,2,6661,0)="""RTN"",""HLOF778A"",71,0)"
^XMB(3.9,41,2,6662,0)=" ;"
^XMB(3.9,41,2,6663,0)="""RTN"",""HLOF778A"",72,0)"
^XMB(3.9,41,2,6664,0)="NEWIEN(DIR,TCP) ;"
^XMB(3.9,41,2,6665,0)="""RTN"",""HLOF778A"",73,0)"
^XMB(3.9,41,2,6666,0)=" ;This function uses a counter to get the next available ien for file 778. There are 4 different counters, each assigned as range of numbers, selected via the input parameters. It does not create a record."
^XMB(3.9,41,2,6667,0)="""RTN"",""HLOF778A"",74,0)"
^XMB(3.9,41,2,6668,0)=" ;Inputs:"
^XMB(3.9,41,2,6669,0)="""RTN"",""HLOF778A"",75,0)"
^XMB(3.9,41,2,6670,0)=" ;  DIR = ""IN"" or ""OUT"" (required)"
^XMB(3.9,41,2,6671,0)="""RTN"",""HLOF778A"",76,0)"
^XMB(3.9,41,2,6672,0)=" ;  TCP = 1,0 (optional)"
^XMB(3.9,41,2,6673,0)="""RTN"",""HLOF778A"",77,0)"
^XMB(3.9,41,2,6674,0)=" ;Output - the function returns the next available ien. Several counters are used:"
^XMB(3.9,41,2,6675,0)="""RTN"",""HLOF778A"",78,0)"
^XMB(3.9,41,2,6676,0)=" ;"
^XMB(3.9,41,2,6677,0)="""RTN"",""HLOF778A"",79,0)"
^XMB(3.9,41,2,6678,0)=" ;   <""OUT"",""TCP"">"
^XMB(3.9,41,2,6679,0)="""RTN"",""HLOF778A"",80,0)"
^XMB(3.9,41,2,6680,0)=" ;   <""OUT"",""NOT TCP"">"
^XMB(3.9,41,2,6681,0)="""RTN"",""HLOF778A"",81,0)"
^XMB(3.9,41,2,6682,0)=" ;   <""IN"",""TCP"">"
^XMB(3.9,41,2,6683,0)="""RTN"",""HLOF778A"",82,0)"
^XMB(3.9,41,2,6684,0)=" ;   <""IN"",""NOT TCP"">"
^XMB(3.9,41,2,6685,0)="""RTN"",""HLOF778A"",83,0)"
^XMB(3.9,41,2,6686,0)=" ;"
^XMB(3.9,41,2,6687,0)="""RTN"",""HLOF778A"",84,0)"
^XMB(3.9,41,2,6688,0)=" N IEN,COUNTER,INC"
^XMB(3.9,41,2,6689,0)="""RTN"",""HLOF778A"",85,0)"
^XMB(3.9,41,2,6690,0)=" I DIR=""OUT"" S INC=$S(+$G(TCP):0,1:100000000000)"
^XMB(3.9,41,2,6691,0)="""RTN"",""HLOF778A"",86,0)"
^XMB(3.9,41,2,6692,0)=" I DIR=""IN"" S INC=$S(+$G(TCP):200000000000,1:300000000000)"
^XMB(3.9,41,2,6693,0)="""RTN"",""HLOF778A"",87,0)"
^XMB(3.9,41,2,6694,0)=" S COUNTER=$NA(^HLC(""FILE778"",DIR,$S(+$G(TCP):""TCP"",1:""NOT TCP"")))"
^XMB(3.9,41,2,6695,0)="""RTN"",""HLOF778A"",88,0)"
^XMB(3.9,41,2,6696,0)="AGAIN ;"
^XMB(3.9,41,2,6697,0)="""RTN"",""HLOF778A"",89,0)"
^XMB(3.9,41,2,6698,0)=" S IEN=$$INC^HLOSITE(COUNTER,1)"
^XMB(3.9,41,2,6699,0)="""RTN"",""HLOF778A"",90,0)"
^XMB(3.9,41,2,6700,0)=" I IEN>100000000000 D"
^XMB(3.9,41,2,6701,0)="""RTN"",""HLOF778A"",91,0)"
^XMB(3.9,41,2,6702,0)=" .L +@COUNTER:200"
^XMB(3.9,41,2,6703,0)="""RTN"",""HLOF778A"",92,0)"
^XMB(3.9,41,2,6704,0)=" .I $T,@COUNTER>100000000000 S @COUNTER=1,IEN=1"
^XMB(3.9,41,2,6705,0)="""RTN"",""HLOF778A"",93,0)"
^XMB(3.9,41,2,6706,0)=" .L -@COUNTER"
^XMB(3.9,41,2,6707,0)="""RTN"",""HLOF778A"",94,0)"
^XMB(3.9,41,2,6708,0)=" I IEN>100000000000 G AGAIN"
^XMB(3.9,41,2,6709,0)="""RTN"",""HLOF778A"",95,0)"
^XMB(3.9,41,2,6710,0)=" Q (IEN+INC)"
^XMB(3.9,41,2,6711,0)="""RTN"",""HLOF778A"",96,0)"
^XMB(3.9,41,2,6712,0)=" ;"
^XMB(3.9,41,2,6713,0)="""RTN"",""HLOF778A"",97,0)"
^XMB(3.9,41,2,6714,0)="TCP() ;checks the link to see if its TCP, return 1 if yes, 0 if no or not defined"
^XMB(3.9,41,2,6715,0)="""RTN"",""HLOF778A"",98,0)"
^XMB(3.9,41,2,6716,0)=" N IEN,TCP"
^XMB(3.9,41,2,6717,0)="""RTN"",""HLOF778A"",99,0)"
^XMB(3.9,41,2,6718,0)=" S TCP=1"
^XMB(3.9,41,2,6719,0)="""RTN"",""HLOF778A"",100,0)"
^XMB(3.9,41,2,6720,0)=" S IEN=$G(HLMSTATE(""STATUS"",""LINK IEN""))"
^XMB(3.9,41,2,6721,0)="""RTN"",""HLOF778A"",101,0)"
^XMB(3.9,41,2,6722,0)=" I IEN,$P($G(^HLCS(869.1,+$P($G(^HLCS(870,IEN,0)),""^"",3),0)),""^"")'=""TCP"" S TCP=0"
^XMB(3.9,41,2,6723,0)="""RTN"",""HLOF778A"",102,0)"
^XMB(3.9,41,2,6724,0)=" Q TCP"
^XMB(3.9,41,2,6725,0)="""RTN"",""HLOF778A"",103,0)"
^XMB(3.9,41,2,6726,0)=" ;"
^XMB(3.9,41,2,6727,0)="""RTN"",""HLOF778A"",104,0)"
^XMB(3.9,41,2,6728,0)="GETWORK(WORK) ; Used by the Process Manager."
^XMB(3.9,41,2,6729,0)="""RTN"",""HLOF778A"",105,0)"
^XMB(3.9,41,2,6730,0)=" ;Are there any messages that need the ""SEARCH"" x-ref set?"
^XMB(3.9,41,2,6731,0)="""RTN"",""HLOF778A"",106,0)"
^XMB(3.9,41,2,6732,0)=" ;Inputs:"
^XMB(3.9,41,2,6733,0)="""RTN"",""HLOF778A"",107,0)"
^XMB(3.9,41,2,6734,0)=" ;  WORK (required, pass-by-reference)"
^XMB(3.9,41,2,6735,0)="""RTN"",""HLOF778A"",108,0)"
^XMB(3.9,41,2,6736,0)=" ;    (""DOLLARJ"")"
^XMB(3.9,41,2,6737,0)="""RTN"",""HLOF778A"",109,0)"
^XMB(3.9,41,2,6738,0)=" ;    (""NOW"") (required by the process manager, pass-by-reference)"
^XMB(3.9,41,2,6739,0)="""RTN"",""HLOF778A"",110,0)"
^XMB(3.9,41,2,6740,0)=" ;"
^XMB(3.9,41,2,6741,0)="""RTN"",""HLOF778A"",111,0)"
^XMB(3.9,41,2,6742,0)=" L +^HLTMP(""PENDING SEARCH X-REF""):0"
^XMB(3.9,41,2,6743,0)="""RTN"",""HLOF778A"",112,0)"
^XMB(3.9,41,2,6744,0)=" Q:'$T 0"
^XMB(3.9,41,2,6745,0)="""RTN"",""HLOF778A"",113,0)"
^XMB(3.9,41,2,6746,0)=" N OLD,DOLLARJ,SUCCESS,NOW"
^XMB(3.9,41,2,6747,0)="""RTN"",""HLOF778A"",114,0)"
^XMB(3.9,41,2,6748,0)=" S SUCCESS=0"
^XMB(3.9,41,2,6749,0)="""RTN"",""HLOF778A"",115,0)"
^XMB(3.9,41,2,6750,0)=" S NOW=$$SEC^XLFDT($H)"
^XMB(3.9,41,2,6751,0)="""RTN"",""HLOF778A"",116,0)"
^XMB(3.9,41,2,6752,0)=" S (OLD,DOLLARJ)=$G(WORK(""DOLLARJ""))"
^XMB(3.9,41,2,6753,0)="""RTN"",""HLOF778A"",117,0)"
^XMB(3.9,41,2,6754,0)=" F  S DOLLARJ=$O(^HLTMP(""PENDING SEARCH X-REF"",DOLLARJ)) Q:DOLLARJ=""""  D  Q:SUCCESS"
^XMB(3.9,41,2,6755,0)="""RTN"",""HLOF778A"",118,0)"
^XMB(3.9,41,2,6756,0)=" .N TIME S TIME=$O(^HLTMP(""PENDING SEARCH X-REF"",DOLLARJ,""""))"
^XMB(3.9,41,2,6757,0)="""RTN"",""HLOF778A"",119,0)"
^XMB(3.9,41,2,6758,0)=" .S:(NOW-$$SEC^XLFDT(TIME)>100) SUCCESS=1"
^XMB(3.9,41,2,6759,0)="""RTN"",""HLOF778A"",120,0)"
^XMB(3.9,41,2,6760,0)=" ;"
^XMB(3.9,41,2,6761,0)="""RTN"",""HLOF778A"",121,0)"
^XMB(3.9,41,2,6762,0)=" I OLD'="""",'SUCCESS F  S DOLLARJ=$O(^HLTMP(""PENDING SEARCH X-REF"",DOLLARJ)) Q:DOLLARJ=""""  Q:DOLLARJ>OLD  D  Q:SUCCESS"
^XMB(3.9,41,2,6763,0)="""RTN"",""HLOF778A"",122,0)"
^XMB(3.9,41,2,6764,0)=" .N TIME S TIME=$O(^HLTMP(""PENDING SEARCH X-REF"",DOLLARJ,""""))"
^XMB(3.9,41,2,6765,0)="""RTN"",""HLOF778A"",123,0)"
^XMB(3.9,41,2,6766,0)=" .S:(NOW-$$SEC^XLFDT(TIME)>100) SUCCESS=1"
^XMB(3.9,41,2,6767,0)="""RTN"",""HLOF778A"",124,0)"
^XMB(3.9,41,2,6768,0)=" S WORK(""DOLLARJ"")=DOLLARJ,WORK(""NOW"")=NOW"
^XMB(3.9,41,2,6769,0)="""RTN"",""HLOF778A"",125,0)"
^XMB(3.9,41,2,6770,0)=" Q:WORK(""DOLLARJ"")]"""" 1"
^XMB(3.9,41,2,6771,0)="""RTN"",""HLOF778A"",126,0)"
^XMB(3.9,41,2,6772,0)=" L -^HLTMP(""PENDING SEARCH X-REF"")"
^XMB(3.9,41,2,6773,0)="""RTN"",""HLOF778A"",127,0)"
^XMB(3.9,41,2,6774,0)=" Q 0"
^XMB(3.9,41,2,6775,0)="""RTN"",""HLOF778A"",128,0)"
^XMB(3.9,41,2,6776,0)=" ;"
^XMB(3.9,41,2,6777,0)="""RTN"",""HLOF778A"",129,0)"
^XMB(3.9,41,2,6778,0)="DOWORK(WORK) ;Used by the Process Manager"
^XMB(3.9,41,2,6779,0)="""RTN"",""HLOF778A"",130,0)"
^XMB(3.9,41,2,6780,0)=" ;Sets the ""SEARCH"" x-ref, running 100 seconds behind when the message record was created."
^XMB(3.9,41,2,6781,0)="""RTN"",""HLOF778A"",131,0)"
^XMB(3.9,41,2,6782,0)=" ;"
^XMB(3.9,41,2,6783,0)="""RTN"",""HLOF778A"",132,0)"
^XMB(3.9,41,2,6784,0)=" N MSGIEN,TIME"
^XMB(3.9,41,2,6785,0)="""RTN"",""HLOF778A"",133,0)"
^XMB(3.9,41,2,6786,0)=" S TIME=0"
^XMB(3.9,41,2,6787,0)="""RTN"",""HLOF778A"",134,0)"
^XMB(3.9,41,2,6788,0)=" F  S TIME=$O(^HLTMP(""PENDING SEARCH X-REF"",WORK(""DOLLARJ""),TIME)) Q:'TIME  Q:((WORK(""NOW"")-$$SEC^XLFDT(TIME))<100)  D"
^XMB(3.9,41,2,6789,0)="""RTN"",""HLOF778A"",135,0)"
^XMB(3.9,41,2,6790,0)=" .S MSGIEN=0"
^XMB(3.9,41,2,6791,0)="""RTN"",""HLOF778A"",136,0)"
^XMB(3.9,41,2,6792,0)=" .F  S MSGIEN=$O(^HLTMP(""PENDING SEARCH X-REF"",WORK(""DOLLARJ""),TIME,MSGIEN)) Q:'MSGIEN  D"
^XMB(3.9,41,2,6793,0)="""RTN"",""HLOF778A"",137,0)"
^XMB(3.9,41,2,6794,0)=" ..N MSG"
^XMB(3.9,41,2,6795,0)="""RTN"",""HLOF778A"",138,0)"
^XMB(3.9,41,2,6796,0)=" ..I $$GETMSG^HLOMSG(MSGIEN,.MSG) D"
^XMB(3.9,41,2,6797,0)="""RTN"",""HLOF778A"",139,0)"
^XMB(3.9,41,2,6798,0)=" ...Q:'MSG(""DT/TM CREATED"")"
^XMB(3.9,41,2,6799,0)="""RTN"",""HLOF778A"",140,0)"
^XMB(3.9,41,2,6800,0)=" ...I MSG(""BATCH"") D"
^XMB(3.9,41,2,6801,0)="""RTN"",""HLOF778A"",141,0)"
^XMB(3.9,41,2,6802,0)=" ....N HDR"
^XMB(3.9,41,2,6803,0)="""RTN"",""HLOF778A"",142,0)"
^XMB(3.9,41,2,6804,0)=" ....F  Q:'$$NEXTMSG^HLOMSG(.MSG,.HDR)  S MSG(""HDR"",1)=HDR(1),MSG(""HDR"",2)=HDR(2) D SET(.MSG)"
^XMB(3.9,41,2,6805,0)="""RTN"",""HLOF778A"",143,0)"
^XMB(3.9,41,2,6806,0)=" ...E  D"
^XMB(3.9,41,2,6807,0)="""RTN"",""HLOF778A"",144,0)"
^XMB(3.9,41,2,6808,0)=" ....D SET(.MSG)"
^XMB(3.9,41,2,6809,0)="""RTN"",""HLOF778A"",145,0)"
^XMB(3.9,41,2,6810,0)=" ..K ^HLTMP(""PENDING SEARCH X-REF"",WORK(""DOLLARJ""),TIME,MSGIEN)"
^XMB(3.9,41,2,6811,0)="""RTN"",""HLOF778A"",146,0)"
^XMB(3.9,41,2,6812,0)=" L -^HLTMP(""PENDING SEARCH X-REF"")"
^XMB(3.9,41,2,6813,0)="""RTN"",""HLOF778A"",147,0)"
^XMB(3.9,41,2,6814,0)=" Q"
^XMB(3.9,41,2,6815,0)="""RTN"",""HLOF778A"",148,0)"
^XMB(3.9,41,2,6816,0)=" ;"
^XMB(3.9,41,2,6817,0)="""RTN"",""HLOF778A"",149,0)"
^XMB(3.9,41,2,6818,0)="SET(MSG) ;"
^XMB(3.9,41,2,6819,0)="""RTN"",""HLOF778A"",150,0)"
^XMB(3.9,41,2,6820,0)=" ;sets the ^HLB(""SEARCH"") x-ref"
^XMB(3.9,41,2,6821,0)="""RTN"",""HLOF778A"",151,0)"
^XMB(3.9,41,2,6822,0)=" ;"
^XMB(3.9,41,2,6823,0)="""RTN"",""HLOF778A"",152,0)"
^XMB(3.9,41,2,6824,0)=" N APP,FS,CS,IEN"
^XMB(3.9,41,2,6825,0)="""RTN"",""HLOF778A"",153,0)"
^XMB(3.9,41,2,6826,0)=" I MSG(""DIRECTION"")'=""IN"",MSG(""DIRECTION"")'=""OUT"" Q"
^XMB(3.9,41,2,6827,0)="""RTN"",""HLOF778A"",154,0)"
^XMB(3.9,41,2,6828,0)=" S FS=$E(MSG(""HDR"",1),4)"
^XMB(3.9,41,2,6829,0)="""RTN"",""HLOF778A"",155,0)"
^XMB(3.9,41,2,6830,0)=" Q:FS="""""
^XMB(3.9,41,2,6831,0)="""RTN"",""HLOF778A"",156,0)"
^XMB(3.9,41,2,6832,0)=" S CS=$E(MSG(""HDR"",1),5)"
^XMB(3.9,41,2,6833,0)="""RTN"",""HLOF778A"",157,0)"
^XMB(3.9,41,2,6834,0)=" S APP=$S(MSG(""DIRECTION"")=""IN"":$P($P(MSG(""HDR"",1),FS,5),CS),1:$P($P(MSG(""HDR"",1),FS,3),CS))"
^XMB(3.9,41,2,6835,0)="""RTN"",""HLOF778A"",158,0)"
^XMB(3.9,41,2,6836,0)=" I APP="""" S APP=""UNKNOWN"""
^XMB(3.9,41,2,6837,0)="""RTN"",""HLOF778A"",159,0)"
^XMB(3.9,41,2,6838,0)=" I MSG(""BATCH"") D"
^XMB(3.9,41,2,6839,0)="""RTN"",""HLOF778A"",160,0)"
^XMB(3.9,41,2,6840,0)=" .N VALUE"
^XMB(3.9,41,2,6841,0)="""RTN"",""HLOF778A"",161,0)"
^XMB(3.9,41,2,6842,0)=" .S VALUE=$P(MSG(""HDR"",2),FS,4)"
^XMB(3.9,41,2,6843,0)="""RTN"",""HLOF778A"",162,0)"
^XMB(3.9,41,2,6844,0)=" .S MSG(""MESSAGE TYPE"")=$P(VALUE,CS)"
^XMB(3.9,41,2,6845,0)="""RTN"",""HLOF778A"",163,0)"
^XMB(3.9,41,2,6846,0)=" .S MSG(""EVENT"")=$P(VALUE,CS,2)"
^XMB(3.9,41,2,6847,0)="""RTN"",""HLOF778A"",164,0)"
^XMB(3.9,41,2,6848,0)=" Q:MSG(""MESSAGE TYPE"")="""""
^XMB(3.9,41,2,6849,0)="""RTN"",""HLOF778A"",165,0)"
^XMB(3.9,41,2,6850,0)=" Q:MSG(""EVENT"")="""""
^XMB(3.9,41,2,6851,0)="""RTN"",""HLOF778A"",166,0)"
^XMB(3.9,41,2,6852,0)=" S IEN=MSG(""IEN"")"
^XMB(3.9,41,2,6853,0)="""RTN"",""HLOF778A"",167,0)"
^XMB(3.9,41,2,6854,0)=" I MSG(""BATCH"") S IEN=IEN_""^""_MSG(""BATCH"",""CURRENT MESSAGE"")"
^XMB(3.9,41,2,6855,0)="""RTN"",""HLOF778A"",168,0)"
^XMB(3.9,41,2,6856,0)=" S ^HLB(""SEARCH"",MSG(""DIRECTION""),MSG(""DT/TM CREATED""),APP,MSG(""MESSAGE TYPE""),MSG(""EVENT""),IEN)="""""
^XMB(3.9,41,2,6857,0)="""RTN"",""HLOF778A"",169,0)"
^XMB(3.9,41,2,6858,0)=" Q"
^XMB(3.9,41,2,6859,0)="""RTN"",""HLOFILER"")"
^XMB(3.9,41,2,6860,0)="0^23^B18562276"
^XMB(3.9,41,2,6861,0)="""RTN"",""HLOFILER"",1,0)"
^XMB(3.9,41,2,6862,0)="HLOFILER ;ALB/CJM- Passes messages on the incoming queue to the applications - 10/4/94 1pm"
^XMB(3.9,41,2,6863,0)="""RTN"",""HLOFILER"",2,0)"
^XMB(3.9,41,2,6864,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995"
^XMB(3.9,41,2,6865,0)="""RTN"",""HLOFILER"",3,0)"
^XMB(3.9,41,2,6866,0)=" ;"
^XMB(3.9,41,2,6867,0)="""RTN"",""HLOFILER"",4,0)"
^XMB(3.9,41,2,6868,0)=" ;GET WORK function for the process running under the Process Manager"
^XMB(3.9,41,2,6869,0)="""RTN"",""HLOFILER"",5,0)"
^XMB(3.9,41,2,6870,0)="GETWORK(QUE) ;"
^XMB(3.9,41,2,6871,0)="""RTN"",""HLOFILER"",6,0)"
^XMB(3.9,41,2,6872,0)=" ;Input:"
^XMB(3.9,41,2,6873,0)="""RTN"",""HLOFILER"",7,0)"
^XMB(3.9,41,2,6874,0)=" ;  QUE - (pass by reference) These subscripts are used:"
^XMB(3.9,41,2,6875,0)="""RTN"",""HLOFILER"",8,0)"
^XMB(3.9,41,2,6876,0)=" ;    (""FROM"") - sending facility last obtained"
^XMB(3.9,41,2,6877,0)="""RTN"",""HLOFILER"",9,0)"
^XMB(3.9,41,2,6878,0)=" ;    (""QUEUE"") - name of the queue last obtained"
^XMB(3.9,41,2,6879,0)="""RTN"",""HLOFILER"",10,0)"
^XMB(3.9,41,2,6880,0)=" ;Output:"
^XMB(3.9,41,2,6881,0)="""RTN"",""HLOFILER"",11,0)"
^XMB(3.9,41,2,6882,0)=" ;  Function returns 1 if success, 0 if no more work"
^XMB(3.9,41,2,6883,0)="""RTN"",""HLOFILER"",12,0)"
^XMB(3.9,41,2,6884,0)=" ;  QUE-  updated to identify next queu of messages to process."
^XMB(3.9,41,2,6885,0)="""RTN"",""HLOFILER"",13,0)"
^XMB(3.9,41,2,6886,0)=" ;"
^XMB(3.9,41,2,6887,0)="""RTN"",""HLOFILER"",14,0)"
^XMB(3.9,41,2,6888,0)=" N FROM,QUEUE"
^XMB(3.9,41,2,6889,0)="""RTN"",""HLOFILER"",15,0)"
^XMB(3.9,41,2,6890,0)=" I '$D(QUE(""SYSTEM"")) D"
^XMB(3.9,41,2,6891,0)="""RTN"",""HLOFILER"",16,0)"
^XMB(3.9,41,2,6892,0)=" .N SYS"
^XMB(3.9,41,2,6893,0)="""RTN"",""HLOFILER"",17,0)"
^XMB(3.9,41,2,6894,0)=" .D SYSPARMS^HLOSITE(.SYS)"
^XMB(3.9,41,2,6895,0)="""RTN"",""HLOFILER"",18,0)"
^XMB(3.9,41,2,6896,0)=" .S QUE(""SYSTEM"",""NORMAL PURGE"")=SYS(""NORMAL PURGE"")"
^XMB(3.9,41,2,6897,0)="""RTN"",""HLOFILER"",19,0)"
^XMB(3.9,41,2,6898,0)=" .S QUE(""SYSTEM"",""ERROR PURGE"")=SYS(""ERROR PURGE"")"
^XMB(3.9,41,2,6899,0)="""RTN"",""HLOFILER"",20,0)"
^XMB(3.9,41,2,6900,0)=" S FROM=$G(QUE(""FROM"")),QUEUE=$G(QUE(""QUEUE""))"
^XMB(3.9,41,2,6901,0)="""RTN"",""HLOFILER"",21,0)"
^XMB(3.9,41,2,6902,0)=" I ($G(FROM)]""""),($G(QUEUE)]"""") D"
^XMB(3.9,41,2,6903,0)="""RTN"",""HLOFILER"",22,0)"
^XMB(3.9,41,2,6904,0)=" .L -^HLB(""QUEUE"",""IN"",FROM,QUEUE)"
^XMB(3.9,41,2,6905,0)="""RTN"",""HLOFILER"",23,0)"
^XMB(3.9,41,2,6906,0)=" .F  S QUEUE=$O(^HLB(""QUEUE"",""IN"",FROM,QUEUE)) Q:(QUEUE="""")  I '$$STOPPED^HLOQUE(""IN"",QUEUE) L +^HLB(""QUEUE"",""IN"",FROM,QUEUE):0  Q:$T"
^XMB(3.9,41,2,6907,0)="""RTN"",""HLOFILER"",24,0)"
^XMB(3.9,41,2,6908,0)=" I ($G(FROM)]""""),($G(QUEUE)="""") D"
^XMB(3.9,41,2,6909,0)="""RTN"",""HLOFILER"",25,0)"
^XMB(3.9,41,2,6910,0)=" .F  S FROM=$O(^HLB(""QUEUE"",""IN"",FROM)) Q:FROM=""""  D  Q:($G(QUEUE)]"""")"
^XMB(3.9,41,2,6911,0)="""RTN"",""HLOFILER"",26,0)"
^XMB(3.9,41,2,6912,0)=" ..S QUEUE="""" F  S QUEUE=$O(^HLB(""QUEUE"",""IN"",FROM,QUEUE)) Q:(QUEUE="""")  I '$$STOPPED^HLOQUE(""IN"",QUEUE) L +^HLB(""QUEUE"",""IN"",FROM,QUEUE):0 Q:$T"
^XMB(3.9,41,2,6913,0)="""RTN"",""HLOFILER"",27,0)"
^XMB(3.9,41,2,6914,0)=" I FROM="""" D"
^XMB(3.9,41,2,6915,0)="""RTN"",""HLOFILER"",28,0)"
^XMB(3.9,41,2,6916,0)=" .F  S FROM=$O(^HLB(""QUEUE"",""IN"",FROM)) Q:FROM=""""  D  Q:($G(QUEUE)]"""")"
^XMB(3.9,41,2,6917,0)="""RTN"",""HLOFILER"",29,0)"
^XMB(3.9,41,2,6918,0)=" ..S QUEUE="""" F  S QUEUE=$O(^HLB(""QUEUE"",""IN"",FROM,QUEUE)) Q:(QUEUE="""")  I '$$STOPPED^HLOQUE(""IN"",QUEUE) L +^HLB(""QUEUE"",""IN"",FROM,QUEUE):0 Q:$T"
^XMB(3.9,41,2,6919,0)="""RTN"",""HLOFILER"",30,0)"
^XMB(3.9,41,2,6920,0)=" S QUE(""FROM"")=FROM,QUE(""QUEUE"")=QUEUE"
^XMB(3.9,41,2,6921,0)="""RTN"",""HLOFILER"",31,0)"
^XMB(3.9,41,2,6922,0)=" Q:(QUEUE]"""") 1"
^XMB(3.9,41,2,6923,0)="""RTN"",""HLOFILER"",32,0)"
^XMB(3.9,41,2,6924,0)=" Q 0"
^XMB(3.9,41,2,6925,0)="""RTN"",""HLOFILER"",33,0)"
^XMB(3.9,41,2,6926,0)=" ;"
^XMB(3.9,41,2,6927,0)="""RTN"",""HLOFILER"",34,0)"
^XMB(3.9,41,2,6928,0)="DOWORK(QUEUE) ;sends the messages on the queue"
^XMB(3.9,41,2,6929,0)="""RTN"",""HLOFILER"",35,0)"
^XMB(3.9,41,2,6930,0)=" N $ETRAP,$ESTACK S $ETRAP=""G ERROR^HLOFILER"""
^XMB(3.9,41,2,6931,0)="""RTN"",""HLOFILER"",36,0)"
^XMB(3.9,41,2,6932,0)=" ;"
^XMB(3.9,41,2,6933,0)="""RTN"",""HLOFILER"",37,0)"
^XMB(3.9,41,2,6934,0)=" N MSGIEN,DEQUE,QUE"
^XMB(3.9,41,2,6935,0)="""RTN"",""HLOFILER"",38,0)"
^XMB(3.9,41,2,6936,0)=" M QUE=QUEUE"
^XMB(3.9,41,2,6937,0)="""RTN"",""HLOFILER"",39,0)"
^XMB(3.9,41,2,6938,0)=" S DEQUE=0"
^XMB(3.9,41,2,6939,0)="""RTN"",""HLOFILER"",40,0)"
^XMB(3.9,41,2,6940,0)=" S MSGIEN=0"
^XMB(3.9,41,2,6941,0)="""RTN"",""HLOFILER"",41,0)"
^XMB(3.9,41,2,6942,0)=" ;"
^XMB(3.9,41,2,6943,0)="""RTN"",""HLOFILER"",42,0)"
^XMB(3.9,41,2,6944,0)=" F  S MSGIEN=$O(^HLB(""QUEUE"",""IN"",QUEUE(""FROM""),QUEUE(""QUEUE""),MSGIEN)) Q:'MSGIEN  D  M QUEUE=QUE"
^XMB(3.9,41,2,6945,0)="""RTN"",""HLOFILER"",43,0)"
^XMB(3.9,41,2,6946,0)=" .N MCODE,ACTION,QUE,PURGE,ACKTOIEN,NODE"
^XMB(3.9,41,2,6947,0)="""RTN"",""HLOFILER"",44,0)"
^XMB(3.9,41,2,6948,0)=" .S NODE=$G(^HLB(""QUEUE"",""IN"",QUEUE(""FROM""),QUEUE(""QUEUE""),MSGIEN))"
^XMB(3.9,41,2,6949,0)="""RTN"",""HLOFILER"",45,0)"
^XMB(3.9,41,2,6950,0)=" .S ACTION=$P(NODE,""^"",1,2)"
^XMB(3.9,41,2,6951,0)="""RTN"",""HLOFILER"",46,0)"
^XMB(3.9,41,2,6952,0)=" .S PURGE=$P(NODE,""^"",3)"
^XMB(3.9,41,2,6953,0)="""RTN"",""HLOFILER"",47,0)"
^XMB(3.9,41,2,6954,0)=" .S ACKTOIEN=$P(NODE,""^"",4)"
^XMB(3.9,41,2,6955,0)="""RTN"",""HLOFILER"",48,0)"
^XMB(3.9,41,2,6956,0)=" .D DEQUE(MSGIEN,PURGE,ACKTOIEN)"
^XMB(3.9,41,2,6957,0)="""RTN"",""HLOFILER"",49,0)"
^XMB(3.9,41,2,6958,0)=" .I ACTION]"""" D"
^XMB(3.9,41,2,6959,0)="""RTN"",""HLOFILER"",50,0)"
^XMB(3.9,41,2,6960,0)=" ..N HLMSGIEN,MCODE,DEQUE,DUZ"
^XMB(3.9,41,2,6961,0)="""RTN"",""HLOFILER"",51,0)"
^XMB(3.9,41,2,6962,0)=" ..N $ETRAP,$ESTACK S $ETRAP=""G ERROR2^HLOFILER"""
^XMB(3.9,41,2,6963,0)="""RTN"",""HLOFILER"",52,0)"
^XMB(3.9,41,2,6964,0)=" ..S HLMSGIEN=MSGIEN"
^XMB(3.9,41,2,6965,0)="""RTN"",""HLOFILER"",53,0)"
^XMB(3.9,41,2,6966,0)=" ..S MCODE=""D ""_ACTION"
^XMB(3.9,41,2,6967,0)="""RTN"",""HLOFILER"",54,0)"
^XMB(3.9,41,2,6968,0)=" ..N MSGIEN,X"
^XMB(3.9,41,2,6969,0)="""RTN"",""HLOFILER"",55,0)"
^XMB(3.9,41,2,6970,0)=" ..D DUZ^XUP(.5)"
^XMB(3.9,41,2,6971,0)="""RTN"",""HLOFILER"",56,0)"
^XMB(3.9,41,2,6972,0)=" ..X MCODE"
^XMB(3.9,41,2,6973,0)="""RTN"",""HLOFILER"",57,0)"
^XMB(3.9,41,2,6974,0)=" ..;kill the apps variables"
^XMB(3.9,41,2,6975,0)="""RTN"",""HLOFILER"",58,0)"
^XMB(3.9,41,2,6976,0)=" ..D"
^XMB(3.9,41,2,6977,0)="""RTN"",""HLOFILER"",59,0)"
^XMB(3.9,41,2,6978,0)=" ...N ZTSK"
^XMB(3.9,41,2,6979,0)="""RTN"",""HLOFILER"",60,0)"
^XMB(3.9,41,2,6980,0)=" ...D KILL^XUSCLEAN"
^XMB(3.9,41,2,6981,0)="""RTN"",""HLOFILER"",61,0)"
^XMB(3.9,41,2,6982,0)=" ;"
^XMB(3.9,41,2,6983,0)="""RTN"",""HLOFILER"",62,0)"
^XMB(3.9,41,2,6984,0)="ENDWORK ;where the execution resumes upon an error"
^XMB(3.9,41,2,6985,0)="""RTN"",""HLOFILER"",63,0)"
^XMB(3.9,41,2,6986,0)=" D DEQUE()"
^XMB(3.9,41,2,6987,0)="""RTN"",""HLOFILER"",64,0)"
^XMB(3.9,41,2,6988,0)=" Q"
^XMB(3.9,41,2,6989,0)="""RTN"",""HLOFILER"",65,0)"
^XMB(3.9,41,2,6990,0)=" ;"
^XMB(3.9,41,2,6991,0)="""RTN"",""HLOFILER"",66,0)"
^XMB(3.9,41,2,6992,0)="DEQUE(MSGIEN,PURGE,ACKTOIEN) ;"
^XMB(3.9,41,2,6993,0)="""RTN"",""HLOFILER"",67,0)"
^XMB(3.9,41,2,6994,0)=" ;Dequeues the message.  Also sets up the purge dt/tm and the completion status."
^XMB(3.9,41,2,6995,0)="""RTN"",""HLOFILER"",68,0)"
^XMB(3.9,41,2,6996,0)=" S:$G(MSGIEN) DEQUE=$G(DEQUE)+1,DEQUE(MSGIEN)=PURGE_""^""_ACKTOIEN"
^XMB(3.9,41,2,6997,0)="""RTN"",""HLOFILER"",69,0)"
^XMB(3.9,41,2,6998,0)=" I '$G(MSGIEN)!(DEQUE>25) S MSGIEN=0 D"
^XMB(3.9,41,2,6999,0)="""RTN"",""HLOFILER"",70,0)"
^XMB(3.9,41,2,7000,0)=" .F  S MSGIEN=$O(DEQUE(MSGIEN)) Q:'MSGIEN  D"
^XMB(3.9,41,2,7001,0)="""RTN"",""HLOFILER"",71,0)"
^XMB(3.9,41,2,7002,0)=" ..N NODE,PURGE,ACKTOIEN"
^XMB(3.9,41,2,7003,0)="""RTN"",""HLOFILER"",72,0)"
^XMB(3.9,41,2,7004,0)=" ..S NODE=DEQUE(MSGIEN)"
^XMB(3.9,41,2,7005,0)="""RTN"",""HLOFILER"",73,0)"
^XMB(3.9,41,2,7006,0)=" ..S PURGE=$P(NODE,""^""),ACKTOIEN=$P(NODE,""^"",2)"
^XMB(3.9,41,2,7007,0)="""RTN"",""HLOFILER"",74,0)"
^XMB(3.9,41,2,7008,0)=" ..D DEQUE^HLOQUE(QUEUE(""FROM""),QUEUE(""QUEUE""),""IN"",MSGIEN)"
^XMB(3.9,41,2,7009,0)="""RTN"",""HLOFILER"",75,0)"
^XMB(3.9,41,2,7010,0)=" ..S NODE=$G(^HLB(MSGIEN,0))"
^XMB(3.9,41,2,7011,0)="""RTN"",""HLOFILER"",76,0)"
^XMB(3.9,41,2,7012,0)=" ..Q:NODE="""""
^XMB(3.9,41,2,7013,0)="""RTN"",""HLOFILER"",77,0)"
^XMB(3.9,41,2,7014,0)=" ..S $P(NODE,""^"",19)=1 ;sets the flag to show that the app handoff was done"
^XMB(3.9,41,2,7015,0)="""RTN"",""HLOFILER"",78,0)"
^XMB(3.9,41,2,7016,0)=" ..D:PURGE"
^XMB(3.9,41,2,7017,0)="""RTN"",""HLOFILER"",79,0)"
^XMB(3.9,41,2,7018,0)=" ...N STATUS"
^XMB(3.9,41,2,7019,0)="""RTN"",""HLOFILER"",80,0)"
^XMB(3.9,41,2,7020,0)=" ...S STATUS=$P(NODE,""^"",20)"
^XMB(3.9,41,2,7021,0)="""RTN"",""HLOFILER"",81,0)"
^XMB(3.9,41,2,7022,0)=" ...S:STATUS="""" $P(NODE,""^"",20)=""SU"",STATUS=""SU"""
^XMB(3.9,41,2,7023,0)="""RTN"",""HLOFILER"",82,0)"
^XMB(3.9,41,2,7024,0)=" ...S $P(NODE,""^"",9)=$$FMADD^XLFDT($$NOW^XLFDT,,$S(STATUS'=""SU"":24*QUEUE(""SYSTEM"",""ERROR PURGE""),$D(^HLB(MSGIEN,3,1,0)):24*QUEUE(""SYSTEM"",""ERROR PURGE""),1:QUEUE(""SYSTEM"",""NORMAL PURGE"")))"
^XMB(3.9,41,2,7025,0)="""RTN"",""HLOFILER"",83,0)"
^XMB(3.9,41,2,7026,0)=" ...S ^HLB(""AD"",$S($E($P(NODE,""^"",4))=""I"":""IN"",1:""OUT""),$P(NODE,""^"",9),MSGIEN)="""""
^XMB(3.9,41,2,7027,0)="""RTN"",""HLOFILER"",84,0)"
^XMB(3.9,41,2,7028,0)=" ...I ACKTOIEN,$D(^HLB(ACKTOIEN,0)) S $P(^HLB(ACKTOIEN,0),""^"",9)=$P(NODE,""^"",9),^HLB(""AD"",$S($E($P(NODE,""^"",4))=""I"":""OUT"",1:""IN""),$P(NODE,""^"",9),ACKTOIEN)="""""
^XMB(3.9,41,2,7029,0)="""RTN"",""HLOFILER"",85,0)"
^XMB(3.9,41,2,7030,0)=" ..S ^HLB(MSGIEN,0)=NODE"
^XMB(3.9,41,2,7031,0)="""RTN"",""HLOFILER"",86,0)"
^XMB(3.9,41,2,7032,0)=" .K DEQUE S DEQUE=0"
^XMB(3.9,41,2,7033,0)="""RTN"",""HLOFILER"",87,0)"
^XMB(3.9,41,2,7034,0)=" Q"
^XMB(3.9,41,2,7035,0)="""RTN"",""HLOFILER"",88,0)"
^XMB(3.9,41,2,7036,0)=" ;"
^XMB(3.9,41,2,7037,0)="""RTN"",""HLOFILER"",89,0)"
^XMB(3.9,41,2,7038,0)="ERROR ;error trap"
^XMB(3.9,41,2,7039,0)="""RTN"",""HLOFILER"",90,0)"
^XMB(3.9,41,2,7040,0)=" S $ETRAP=""D UNWIND^%ZTER"""
^XMB(3.9,41,2,7041,0)="""RTN"",""HLOFILER"",91,0)"
^XMB(3.9,41,2,7042,0)=" ;"
^XMB(3.9,41,2,7043,0)="""RTN"",""HLOFILER"",92,0)"
^XMB(3.9,41,2,7044,0)=" ;while debugging quit on all errors - returns to the Process Manager error trap"
^XMB(3.9,41,2,7045,0)="""RTN"",""HLOFILER"",93,0)"
^XMB(3.9,41,2,7046,0)=" I $G(^HLTMP(""LOG ALL ERRORS"")) QUIT"
^XMB(3.9,41,2,7047,0)="""RTN"",""HLOFILER"",94,0)"
^XMB(3.9,41,2,7048,0)=" ;"
^XMB(3.9,41,2,7049,0)="""RTN"",""HLOFILER"",95,0)"
^XMB(3.9,41,2,7050,0)=" D DEQUE()"
^XMB(3.9,41,2,7051,0)="""RTN"",""HLOFILER"",96,0)"
^XMB(3.9,41,2,7052,0)=" ;"
^XMB(3.9,41,2,7053,0)="""RTN"",""HLOFILER"",97,0)"
^XMB(3.9,41,2,7054,0)=" ;a lot of errors of the same type may indicate an endless loop, so keep  a count"
^XMB(3.9,41,2,7055,0)="""RTN"",""HLOFILER"",98,0)"
^XMB(3.9,41,2,7056,0)=" S ^TMP(""HL7 ERRORS"",$J,$ECODE)=$G(^TMP(""HL7 ERRORS"",$J,$ECODE))+1"
^XMB(3.9,41,2,7057,0)="""RTN"",""HLOFILER"",99,0)"
^XMB(3.9,41,2,7058,0)=" Q:($G(^TMP(""HL7 ERRORS"",$J,$ECODE))>100)  ;return to the Process Manager error trap"
^XMB(3.9,41,2,7059,0)="""RTN"",""HLOFILER"",100,0)"
^XMB(3.9,41,2,7060,0)=" ;"
^XMB(3.9,41,2,7061,0)="""RTN"",""HLOFILER"",101,0)"
^XMB(3.9,41,2,7062,0)=" D:'($ECODE["",HL7 APP,"") ^%ZTER"
^XMB(3.9,41,2,7063,0)="""RTN"",""HLOFILER"",102,0)"
^XMB(3.9,41,2,7064,0)=" D UNWIND^%ZTER"
^XMB(3.9,41,2,7065,0)="""RTN"",""HLOFILER"",103,0)"
^XMB(3.9,41,2,7066,0)=" Q"
^XMB(3.9,41,2,7067,0)="""RTN"",""HLOFILER"",104,0)"
^XMB(3.9,41,2,7068,0)=" ;"
^XMB(3.9,41,2,7069,0)="""RTN"",""HLOFILER"",105,0)"
^XMB(3.9,41,2,7070,0)="ERROR2 ;error trap for application context"
^XMB(3.9,41,2,7071,0)="""RTN"",""HLOFILER"",106,0)"
^XMB(3.9,41,2,7072,0)=" D ^%ZTER"
^XMB(3.9,41,2,7073,0)="""RTN"",""HLOFILER"",107,0)"
^XMB(3.9,41,2,7074,0)=" ;"
^XMB(3.9,41,2,7075,0)="""RTN"",""HLOFILER"",108,0)"
^XMB(3.9,41,2,7076,0)=" ;kill the apps variables"
^XMB(3.9,41,2,7077,0)="""RTN"",""HLOFILER"",109,0)"
^XMB(3.9,41,2,7078,0)=" D"
^XMB(3.9,41,2,7079,0)="""RTN"",""HLOFILER"",110,0)"
^XMB(3.9,41,2,7080,0)=" .N ZTSK"
^XMB(3.9,41,2,7081,0)="""RTN"",""HLOFILER"",111,0)"
^XMB(3.9,41,2,7082,0)=" .D KILL^XUSCLEAN"
^XMB(3.9,41,2,7083,0)="""RTN"",""HLOFILER"",112,0)"
^XMB(3.9,41,2,7084,0)=" ;"
^XMB(3.9,41,2,7085,0)="""RTN"",""HLOFILER"",113,0)"
^XMB(3.9,41,2,7086,0)=" ;release all the locks the app may have set, except Taskman lock"
^XMB(3.9,41,2,7087,0)="""RTN"",""HLOFILER"",114,0)"
^XMB(3.9,41,2,7088,0)=" L ^%ZTSCH(""TASK"",ZTSK):1"
^XMB(3.9,41,2,7089,0)="""RTN"",""HLOFILER"",115,0)"
^XMB(3.9,41,2,7090,0)=" ;reset HLO's lock"
^XMB(3.9,41,2,7091,0)="""RTN"",""HLOFILER"",116,0)"
^XMB(3.9,41,2,7092,0)=" L +^HLTMP(""HL7 RUNNING PROCESSES"",$J):0"
^XMB(3.9,41,2,7093,0)="""RTN"",""HLOFILER"",117,0)"
^XMB(3.9,41,2,7094,0)=" ;"
^XMB(3.9,41,2,7095,0)="""RTN"",""HLOFILER"",118,0)"
^XMB(3.9,41,2,7096,0)=" S $ETRAP=""G ERROR^HLOFILER"""
^XMB(3.9,41,2,7097,0)="""RTN"",""HLOFILER"",119,0)"
^XMB(3.9,41,2,7098,0)=" S $ECODE="",HL7 APP,"""
^XMB(3.9,41,2,7099,0)="""RTN"",""HLOFILER"",120,0)"
^XMB(3.9,41,2,7100,0)=" Q"
^XMB(3.9,41,2,7101,0)="""RTN"",""HLOMSG"")"
^XMB(3.9,41,2,7102,0)="0^24^B44340349"
^XMB(3.9,41,2,7103,0)="""RTN"",""HLOMSG"",1,0)"
^XMB(3.9,41,2,7104,0)="HLOMSG ;ALB/CJM-HL7 - APIs for files 777/778 ;02/04/2004"
^XMB(3.9,41,2,7105,0)="""RTN"",""HLOMSG"",2,0)"
^XMB(3.9,41,2,7106,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995"
^XMB(3.9,41,2,7107,0)="""RTN"",""HLOMSG"",3,0)"
^XMB(3.9,41,2,7108,0)=" ;"
^XMB(3.9,41,2,7109,0)="""RTN"",""HLOMSG"",4,0)"
^XMB(3.9,41,2,7110,0)="GETMSG(IEN,MSG) ;"
^XMB(3.9,41,2,7111,0)="""RTN"",""HLOMSG"",5,0)"
^XMB(3.9,41,2,7112,0)=" ;Description: given the message ien=MSGIEN (required), it returns the MSG array containing information about the message, defined below."
^XMB(3.9,41,2,7113,0)="""RTN"",""HLOMSG"",6,0)"
^XMB(3.9,41,2,7114,0)=" ;Input:"
^XMB(3.9,41,2,7115,0)="""RTN"",""HLOMSG"",7,0)"
^XMB(3.9,41,2,7116,0)=" ;  IEN - the ien of the message in file 778"
^XMB(3.9,41,2,7117,0)="""RTN"",""HLOMSG"",8,0)"
^XMB(3.9,41,2,7118,0)=" ;Output:"
^XMB(3.9,41,2,7119,0)="""RTN"",""HLOMSG"",9,0)"
^XMB(3.9,41,2,7120,0)=" ;  Function returns 1 on success, 0 on failure"
^XMB(3.9,41,2,7121,0)="""RTN"",""HLOMSG"",10,0)"
^XMB(3.9,41,2,7122,0)=" ;  MSG (pass by reference, required) These are the subscripts returned:"
^XMB(3.9,41,2,7123,0)="""RTN"",""HLOMSG"",11,0)"
^XMB(3.9,41,2,7124,0)=" ;"
^XMB(3.9,41,2,7125,0)="""RTN"",""HLOMSG"",12,0)"
^XMB(3.9,41,2,7126,0)=" ;   ""ACK BY"" - msg id of msg that acknowledges this one"
^XMB(3.9,41,2,7127,0)="""RTN"",""HLOMSG"",13,0)"
^XMB(3.9,41,2,7128,0)=" ;   ""ACK BY IEN"" - msg IEN of msg that acknowledges this one.  If the message is in the batch, the value is <ien>^<subien>"
^XMB(3.9,41,2,7129,0)="""RTN"",""HLOMSG"",14,0)"
^XMB(3.9,41,2,7130,0)=" ;   ""ACK TO"" - msg id of msg that this msg acknowledges"
^XMB(3.9,41,2,7131,0)="""RTN"",""HLOMSG"",15,0)"
^XMB(3.9,41,2,7132,0)=" ;   ""ACK TO IEN"" - msg IEN of msg that this msg acknowledges. If the message is in a batch, the value is <ien>^<subien>"
^XMB(3.9,41,2,7133,0)="""RTN"",""HLOMSG"",16,0)"
^XMB(3.9,41,2,7134,0)=" ;  ""BATCH""  = 1 if this is a batch message, 0  if not"
^XMB(3.9,41,2,7135,0)="""RTN"",""HLOMSG"",17,0)"
^XMB(3.9,41,2,7136,0)=" ;     ""CURRENT MESSAGE"" - defined only for batch messages -  a counter used during building and parsing messages to indicate the current message.  It will be set to 0 initially."
^XMB(3.9,41,2,7137,0)="""RTN"",""HLOMSG"",18,0)"
^XMB(3.9,41,2,7138,0)=" ;  ""BODY"" - ptr to file 778 which contains the body of the message."
^XMB(3.9,41,2,7139,0)="""RTN"",""HLOMSG"",19,0)"
^XMB(3.9,41,2,7140,0)=" ;  ""DIRECTION"" - ""IN"" if incoming, ""OUT"" if outgoing"
^XMB(3.9,41,2,7141,0)="""RTN"",""HLOMSG"",20,0)"
^XMB(3.9,41,2,7142,0)=" ;  ""DT/TM"" - date/time the message was sent or received"
^XMB(3.9,41,2,7143,0)="""RTN"",""HLOMSG"",21,0)"
^XMB(3.9,41,2,7144,0)=" ;  ""DT/TM CREATED"" - date/time the record was created (.01 field, file #777)"
^XMB(3.9,41,2,7145,0)="""RTN"",""HLOMSG"",22,0)"
^XMB(3.9,41,2,7146,0)=" ;  ""LINE COUNT"" -  a counter used during building and parsing of"
^XMB(3.9,41,2,7147,0)="""RTN"",""HLOMSG"",23,0)"
^XMB(3.9,41,2,7148,0)=" ;     messages to indicate the current line within the message. For"
^XMB(3.9,41,2,7149,0)="""RTN"",""HLOMSG"",24,0)"
^XMB(3.9,41,2,7150,0)=" ;     batch messages where each message within the batch is stored"
^XMB(3.9,41,2,7151,0)="""RTN"",""HLOMSG"",25,0)"
^XMB(3.9,41,2,7152,0)=" ;     separately, this field indicates the position within the current"
^XMB(3.9,41,2,7153,0)="""RTN"",""HLOMSG"",26,0)"
^XMB(3.9,41,2,7154,0)=" ;     individual message"
^XMB(3.9,41,2,7155,0)="""RTN"",""HLOMSG"",27,0)"
^XMB(3.9,41,2,7156,0)=" ;  ""HDR"" - the header segment, NOT parsed, as HDR(1) and HDR(2)"
^XMB(3.9,41,2,7157,0)="""RTN"",""HLOMSG"",28,0)"
^XMB(3.9,41,2,7158,0)=" ;  ""ID"" - Message Control ID for an individual message, Batch Control ID for a batch message"
^XMB(3.9,41,2,7159,0)="""RTN"",""HLOMSG"",29,0)"
^XMB(3.9,41,2,7160,0)=" ;  ""IEN"" - ien, file 778"
^XMB(3.9,41,2,7161,0)="""RTN"",""HLOMSG"",30,0)"
^XMB(3.9,41,2,7162,0)=" ;  ""EVENT"" - HL7 event, only defined if NOT batch"
^XMB(3.9,41,2,7163,0)="""RTN"",""HLOMSG"",31,0)"
^XMB(3.9,41,2,7164,0)=" ;  ""MESSAGE TYPE"" - HL7 message type, only defined if NOT batch"
^XMB(3.9,41,2,7165,0)="""RTN"",""HLOMSG"",32,0)"
^XMB(3.9,41,2,7166,0)=" ;  ""STATUS"" - the completion status"
^XMB(3.9,41,2,7167,0)="""RTN"",""HLOMSG"",33,0)"
^XMB(3.9,41,2,7168,0)=" ;"
^XMB(3.9,41,2,7169,0)="""RTN"",""HLOMSG"",34,0)"
^XMB(3.9,41,2,7170,0)=" ;     These are lower level subscripts of ""STATUS"":"
^XMB(3.9,41,2,7171,0)="""RTN"",""HLOMSG"",35,0)"
^XMB(3.9,41,2,7172,0)=" ;     ""ACCEPT ACK RESPONSE"" - the application's <tag>^<rtn> to Xecute when the accept ack is received"
^XMB(3.9,41,2,7173,0)="""RTN"",""HLOMSG"",36,0)"
^XMB(3.9,41,2,7174,0)=" ;     ""ACCEPT ACK'D"" - 1 if an accept ack was sent or received in response to this message"
^XMB(3.9,41,2,7175,0)="""RTN"",""HLOMSG"",37,0)"
^XMB(3.9,41,2,7176,0)=" ;     ""APP ACK RESPONSE"" - the application's <tag>^<rtn> to Xecute when app ack is received"
^XMB(3.9,41,2,7177,0)="""RTN"",""HLOMSG"",38,0)"
^XMB(3.9,41,2,7178,0)=" ;     ""APP ACK'D"" - 1 if an application ack was sent or received in response to this message"
^XMB(3.9,41,2,7179,0)="""RTN"",""HLOMSG"",39,0)"
^XMB(3.9,41,2,7180,0)=" ;     ""ERROR TEXT"" - if in error status, a description of the error"
^XMB(3.9,41,2,7181,0)="""RTN"",""HLOMSG"",40,0)"
^XMB(3.9,41,2,7182,0)=" ;     ""LINK NAME"" the link the message was transmitted through"
^XMB(3.9,41,2,7183,0)="""RTN"",""HLOMSG"",41,0)"
^XMB(3.9,41,2,7184,0)=" ;     ""PORT"" - remote port over which the message was transmitted"
^XMB(3.9,41,2,7185,0)="""RTN"",""HLOMSG"",42,0)"
^XMB(3.9,41,2,7186,0)=" ;     ""PURGE"" - scheduled purge dt/tm"
^XMB(3.9,41,2,7187,0)="""RTN"",""HLOMSG"",43,0)"
^XMB(3.9,41,2,7188,0)=" ;     ""QUEUE"" - the queue that the message was placed on"
^XMB(3.9,41,2,7189,0)="""RTN"",""HLOMSG"",44,0)"
^XMB(3.9,41,2,7190,0)=" ;"
^XMB(3.9,41,2,7191,0)="""RTN"",""HLOMSG"",45,0)"
^XMB(3.9,41,2,7192,0)=" K MSG"
^XMB(3.9,41,2,7193,0)="""RTN"",""HLOMSG"",46,0)"
^XMB(3.9,41,2,7194,0)=" Q:'$G(IEN) 0"
^XMB(3.9,41,2,7195,0)="""RTN"",""HLOMSG"",47,0)"
^XMB(3.9,41,2,7196,0)=" N NODE"
^XMB(3.9,41,2,7197,0)="""RTN"",""HLOMSG"",48,0)"
^XMB(3.9,41,2,7198,0)=" S MSG(""IEN"")=IEN"
^XMB(3.9,41,2,7199,0)="""RTN"",""HLOMSG"",49,0)"
^XMB(3.9,41,2,7200,0)=" S NODE=$G(^HLB(IEN,0))"
^XMB(3.9,41,2,7201,0)="""RTN"",""HLOMSG"",50,0)"
^XMB(3.9,41,2,7202,0)=" S MSG(""ID"")=$P(NODE,""^"")"
^XMB(3.9,41,2,7203,0)="""RTN"",""HLOMSG"",51,0)"
^XMB(3.9,41,2,7204,0)=" S MSG(""BODY"")=$P(NODE,""^"",2)"
^XMB(3.9,41,2,7205,0)="""RTN"",""HLOMSG"",52,0)"
^XMB(3.9,41,2,7206,0)=" Q:'MSG(""BODY"") 0"
^XMB(3.9,41,2,7207,0)="""RTN"",""HLOMSG"",53,0)"
^XMB(3.9,41,2,7208,0)=" S MSG(""DIRECTION"")=$S($E($P(NODE,""^"",4))=""O"":""OUT"",$E($P(NODE,""^"",4))=""I"":""IN"",1:"""")"
^XMB(3.9,41,2,7209,0)="""RTN"",""HLOMSG"",54,0)"
^XMB(3.9,41,2,7210,0)=" S MSG(""ACK TO"")=$P(NODE,""^"",3)"
^XMB(3.9,41,2,7211,0)="""RTN"",""HLOMSG"",55,0)"
^XMB(3.9,41,2,7212,0)=" S MSG(""ACK BY"")=$P(NODE,""^"",7)"
^XMB(3.9,41,2,7213,0)="""RTN"",""HLOMSG"",56,0)"
^XMB(3.9,41,2,7214,0)=" I MSG(""ACK TO"")]"""" S MSG(""ACK TO IEN"")=$$ACKTOIEN^HLOMSG1($P(NODE,""^""),MSG(""ACK TO""))"
^XMB(3.9,41,2,7215,0)="""RTN"",""HLOMSG"",57,0)"
^XMB(3.9,41,2,7216,0)=" I MSG(""ACK BY"")]"""" S MSG(""ACK BY IEN"")=$$ACKBYIEN^HLOMSG1($P(NODE,""^""),MSG(""ACK BY""))"
^XMB(3.9,41,2,7217,0)="""RTN"",""HLOMSG"",58,0)"
^XMB(3.9,41,2,7218,0)=" S MSG(""DT/TM"")=$P(NODE,""^"",16)"
^XMB(3.9,41,2,7219,0)="""RTN"",""HLOMSG"",59,0)"
^XMB(3.9,41,2,7220,0)=" S MSG(""STATUS"")=$P(NODE,""^"",20)"
^XMB(3.9,41,2,7221,0)="""RTN"",""HLOMSG"",60,0)"
^XMB(3.9,41,2,7222,0)=" ;"
^XMB(3.9,41,2,7223,0)="""RTN"",""HLOMSG"",61,0)"
^XMB(3.9,41,2,7224,0)=" D"
^XMB(3.9,41,2,7225,0)="""RTN"",""HLOMSG"",62,0)"
^XMB(3.9,41,2,7226,0)=" .N NODE4"
^XMB(3.9,41,2,7227,0)="""RTN"",""HLOMSG"",63,0)"
^XMB(3.9,41,2,7228,0)=" .S NODE4=$G(^HLB(IEN,4))"
^XMB(3.9,41,2,7229,0)="""RTN"",""HLOMSG"",64,0)"
^XMB(3.9,41,2,7230,0)=" .S MSG(""STATUS"",""QUEUE"")=$P(NODE,""^"",6)"
^XMB(3.9,41,2,7231,0)="""RTN"",""HLOMSG"",65,0)"
^XMB(3.9,41,2,7232,0)=" .S MSG(""STATUS"",""LINK NAME"")=$P(NODE,""^"",5)"
^XMB(3.9,41,2,7233,0)="""RTN"",""HLOMSG"",66,0)"
^XMB(3.9,41,2,7234,0)=" .S MSG(""STATUS"",""PORT"")=$P(NODE,""^"",8)"
^XMB(3.9,41,2,7235,0)="""RTN"",""HLOMSG"",67,0)"
^XMB(3.9,41,2,7236,0)=" .S MSG(""STATUS"",""PURGE"")=$P(NODE,""^"",9)"
^XMB(3.9,41,2,7237,0)="""RTN"",""HLOMSG"",68,0)"
^XMB(3.9,41,2,7238,0)=" .S MSG(""STATUS"",""ERROR TEXT"")=$P(NODE,""^"",21)"
^XMB(3.9,41,2,7239,0)="""RTN"",""HLOMSG"",69,0)"
^XMB(3.9,41,2,7240,0)=" .S MSG(""STATUS"",""APP ACK RESPONSE"")=$P(NODE,""^"",10,11)"
^XMB(3.9,41,2,7241,0)="""RTN"",""HLOMSG"",70,0)"
^XMB(3.9,41,2,7242,0)=" .I MSG(""STATUS"",""APP ACK RESPONSE"")=""^"" S MSG(""STATUS"",""APP ACK RESPONSE"")="""""
^XMB(3.9,41,2,7243,0)="""RTN"",""HLOMSG"",71,0)"
^XMB(3.9,41,2,7244,0)=" .S MSG(""STATUS"",""ACCEPT ACK RESPONSE"")=$P(NODE,""^"",12,13)"
^XMB(3.9,41,2,7245,0)="""RTN"",""HLOMSG"",72,0)"
^XMB(3.9,41,2,7246,0)=" .I MSG(""STATUS"",""ACCEPT ACK RESPONSE"")=""^"" S MSG(""STATUS"",""ACCEPT ACK RESPONSE"")="""""
^XMB(3.9,41,2,7247,0)="""RTN"",""HLOMSG"",73,0)"
^XMB(3.9,41,2,7248,0)=" .S MSG(""STATUS"",""ACCEPT ACK'D"")=$P(NODE,""^"",17)"
^XMB(3.9,41,2,7249,0)="""RTN"",""HLOMSG"",74,0)"
^XMB(3.9,41,2,7250,0)=" .S MSG(""STATUS"",""APP ACK'D"")=$P(NODE,""^"",18)"
^XMB(3.9,41,2,7251,0)="""RTN"",""HLOMSG"",75,0)"
^XMB(3.9,41,2,7252,0)=" .S MSG(""STATUS"")=$P(NODE,""^"",20)"
^XMB(3.9,41,2,7253,0)="""RTN"",""HLOMSG"",76,0)"
^XMB(3.9,41,2,7254,0)=" .S MSG(""STATUS"",""APP HANDOFF"")=$P(NODE,""^"",19)"
^XMB(3.9,41,2,7255,0)="""RTN"",""HLOMSG"",77,0)"
^XMB(3.9,41,2,7256,0)=" .S MSG(""STATUS"",""ACCEPT ACK DT/TM"")=$P(NODE4,""^"")"
^XMB(3.9,41,2,7257,0)="""RTN"",""HLOMSG"",78,0)"
^XMB(3.9,41,2,7258,0)=" .S MSG(""STATUS"",""ACCEPT ACK ID"")=$P(NODE4,""^"",2)"
^XMB(3.9,41,2,7259,0)="""RTN"",""HLOMSG"",79,0)"
^XMB(3.9,41,2,7260,0)=" .S MSG(""STATUS"",""ACCEPT ACK MSA"")=$P(NODE4,""^"",3,99)"
^XMB(3.9,41,2,7261,0)="""RTN"",""HLOMSG"",80,0)"
^XMB(3.9,41,2,7262,0)=" ;"
^XMB(3.9,41,2,7263,0)="""RTN"",""HLOMSG"",81,0)"
^XMB(3.9,41,2,7264,0)=" S NODE=$G(^HLA(MSG(""BODY""),0))"
^XMB(3.9,41,2,7265,0)="""RTN"",""HLOMSG"",82,0)"
^XMB(3.9,41,2,7266,0)=" S MSG(""DT/TM CREATED"")=+NODE"
^XMB(3.9,41,2,7267,0)="""RTN"",""HLOMSG"",83,0)"
^XMB(3.9,41,2,7268,0)=" S MSG(""BATCH"")=+$P(NODE,""^"",2)"
^XMB(3.9,41,2,7269,0)="""RTN"",""HLOMSG"",84,0)"
^XMB(3.9,41,2,7270,0)=" I MSG(""BATCH"") S MSG(""BATCH"",""CURRENT MESSAGE"")=0"
^XMB(3.9,41,2,7271,0)="""RTN"",""HLOMSG"",85,0)"
^XMB(3.9,41,2,7272,0)=" I 'MSG(""BATCH"") D"
^XMB(3.9,41,2,7273,0)="""RTN"",""HLOMSG"",86,0)"
^XMB(3.9,41,2,7274,0)=" .S MSG(""MESSAGE TYPE"")=$P(NODE,""^"",3)"
^XMB(3.9,41,2,7275,0)="""RTN"",""HLOMSG"",87,0)"
^XMB(3.9,41,2,7276,0)=" .S MSG(""EVENT"")=$P(NODE,""^"",4)"
^XMB(3.9,41,2,7277,0)="""RTN"",""HLOMSG"",88,0)"
^XMB(3.9,41,2,7278,0)=" S MSG(""LINE COUNT"")=0"
^XMB(3.9,41,2,7279,0)="""RTN"",""HLOMSG"",89,0)"
^XMB(3.9,41,2,7280,0)=" S MSG(""HDR"",1)=$G(^HLB(IEN,1))"
^XMB(3.9,41,2,7281,0)="""RTN"",""HLOMSG"",90,0)"
^XMB(3.9,41,2,7282,0)=" S MSG(""HDR"",2)=$G(^HLB(IEN,2))"
^XMB(3.9,41,2,7283,0)="""RTN"",""HLOMSG"",91,0)"
^XMB(3.9,41,2,7284,0)=" Q 1"
^XMB(3.9,41,2,7285,0)="""RTN"",""HLOMSG"",92,0)"
^XMB(3.9,41,2,7286,0)=" ;"
^XMB(3.9,41,2,7287,0)="""RTN"",""HLOMSG"",93,0)"
^XMB(3.9,41,2,7288,0)="HLNEXT(MSG,SEG) ;"
^XMB(3.9,41,2,7289,0)="""RTN"",""HLOMSG"",94,0)"
^XMB(3.9,41,2,7290,0)=" ;Description:  Returns the next segment as a set of lines stored in SEG."
^XMB(3.9,41,2,7291,0)="""RTN"",""HLOMSG"",95,0)"
^XMB(3.9,41,2,7292,0)=" ;Input:"
^XMB(3.9,41,2,7293,0)="""RTN"",""HLOMSG"",96,0)"
^XMB(3.9,41,2,7294,0)=" ;  MSG (pass by reference, required)"
^XMB(3.9,41,2,7295,0)="""RTN"",""HLOMSG"",97,0)"
^XMB(3.9,41,2,7296,0)=" ;Output:"
^XMB(3.9,41,2,7297,0)="""RTN"",""HLOMSG"",98,0)"
^XMB(3.9,41,2,7298,0)=" ;  Function returns 1 on success, 0 on failure (no more segments)"
^XMB(3.9,41,2,7299,0)="""RTN"",""HLOMSG"",99,0)"
^XMB(3.9,41,2,7300,0)=" ;  SEG (pass by reference, required)"
^XMB(3.9,41,2,7301,0)="""RTN"",""HLOMSG"",100,0)"
^XMB(3.9,41,2,7302,0)=" ;"
^XMB(3.9,41,2,7303,0)="""RTN"",""HLOMSG"",101,0)"
^XMB(3.9,41,2,7304,0)=" K SEG"
^XMB(3.9,41,2,7305,0)="""RTN"",""HLOMSG"",102,0)"
^XMB(3.9,41,2,7306,0)=" Q:MSG(""LINE COUNT"")=-1 0"
^XMB(3.9,41,2,7307,0)="""RTN"",""HLOMSG"",103,0)"
^XMB(3.9,41,2,7308,0)=" I 'MSG(""BATCH"") D"
^XMB(3.9,41,2,7309,0)="""RTN"",""HLOMSG"",104,0)"
^XMB(3.9,41,2,7310,0)=" .N I,J,NODE,START"
^XMB(3.9,41,2,7311,0)="""RTN"",""HLOMSG"",105,0)"
^XMB(3.9,41,2,7312,0)=" .S START=0"
^XMB(3.9,41,2,7313,0)="""RTN"",""HLOMSG"",106,0)"
^XMB(3.9,41,2,7314,0)=" .S J=1,I=MSG(""LINE COUNT"")"
^XMB(3.9,41,2,7315,0)="""RTN"",""HLOMSG"",107,0)"
^XMB(3.9,41,2,7316,0)=" .F  S I=$O(^HLA(MSG(""BODY""),1,I)) Q:'I  S NODE=$G(^HLA(MSG(""BODY""),1,I,0)) Q:(START&(NODE=""""))  I NODE'="""" S SEG(J)=NODE,J=J+1,START=1"
^XMB(3.9,41,2,7317,0)="""RTN"",""HLOMSG"",108,0)"
^XMB(3.9,41,2,7318,0)=" .I 'I D"
^XMB(3.9,41,2,7319,0)="""RTN"",""HLOMSG"",109,0)"
^XMB(3.9,41,2,7320,0)=" ..S MSG(""LINE COUNT"")=-1"
^XMB(3.9,41,2,7321,0)="""RTN"",""HLOMSG"",110,0)"
^XMB(3.9,41,2,7322,0)=" .E  S MSG(""LINE COUNT"")=I"
^XMB(3.9,41,2,7323,0)="""RTN"",""HLOMSG"",111,0)"
^XMB(3.9,41,2,7324,0)=" I MSG(""BATCH"") D"
^XMB(3.9,41,2,7325,0)="""RTN"",""HLOMSG"",112,0)"
^XMB(3.9,41,2,7326,0)=" .N I,J,NODE,START"
^XMB(3.9,41,2,7327,0)="""RTN"",""HLOMSG"",113,0)"
^XMB(3.9,41,2,7328,0)=" .S J=1,I=MSG(""LINE COUNT""),START=0"
^XMB(3.9,41,2,7329,0)="""RTN"",""HLOMSG"",114,0)"
^XMB(3.9,41,2,7330,0)=" .F  S I=$O(^HLA(MSG(""BODY""),2,MSG(""BATCH"",""CURRENT MESSAGE""),1,I)) Q:'I  S NODE=$G(^HLA(MSG(""BODY""),2,MSG(""BATCH"",""CURRENT MESSAGE""),1,I,0)) Q:(START&(NODE=""""))  I NODE'="""" S SEG(J)=NODE,J=J+1,START=1"
^XMB(3.9,41,2,7331,0)="""RTN"",""HLOMSG"",115,0)"
^XMB(3.9,41,2,7332,0)=" .I 'I D"
^XMB(3.9,41,2,7333,0)="""RTN"",""HLOMSG"",116,0)"
^XMB(3.9,41,2,7334,0)=" ..S MSG(""LINE COUNT"")=-1"
^XMB(3.9,41,2,7335,0)="""RTN"",""HLOMSG"",117,0)"
^XMB(3.9,41,2,7336,0)=" .E  S MSG(""LINE COUNT"")=I"
^XMB(3.9,41,2,7337,0)="""RTN"",""HLOMSG"",118,0)"
^XMB(3.9,41,2,7338,0)=" Q $S($D(SEG):1,1:0)"
^XMB(3.9,41,2,7339,0)="""RTN"",""HLOMSG"",119,0)"
^XMB(3.9,41,2,7340,0)=" ;"
^XMB(3.9,41,2,7341,0)="""RTN"",""HLOMSG"",120,0)"
^XMB(3.9,41,2,7342,0)="NEXTMSG(MSG,HDR) ;"
^XMB(3.9,41,2,7343,0)="""RTN"",""HLOMSG"",121,0)"
^XMB(3.9,41,2,7344,0)=" ;Advances to the next message in the batch"
^XMB(3.9,41,2,7345,0)="""RTN"",""HLOMSG"",122,0)"
^XMB(3.9,41,2,7346,0)=" ;Input:"
^XMB(3.9,41,2,7347,0)="""RTN"",""HLOMSG"",123,0)"
^XMB(3.9,41,2,7348,0)=" ;  MSG (pass by reference, required) - defined by $$GETMSG()"
^XMB(3.9,41,2,7349,0)="""RTN"",""HLOMSG"",124,0)"
^XMB(3.9,41,2,7350,0)=" ;Output:"
^XMB(3.9,41,2,7351,0)="""RTN"",""HLOMSG"",125,0)"
^XMB(3.9,41,2,7352,0)=" ;  Function returns 1 on success, 0 if no more messages"
^XMB(3.9,41,2,7353,0)="""RTN"",""HLOMSG"",126,0)"
^XMB(3.9,41,2,7354,0)=" ;  MSG - updated with current position in the message"
^XMB(3.9,41,2,7355,0)="""RTN"",""HLOMSG"",127,0)"
^XMB(3.9,41,2,7356,0)=" ;  HDR (pass by reference, required) returns the header as an array of lines"
^XMB(3.9,41,2,7357,0)="""RTN"",""HLOMSG"",128,0)"
^XMB(3.9,41,2,7358,0)=" ;"
^XMB(3.9,41,2,7359,0)="""RTN"",""HLOMSG"",129,0)"
^XMB(3.9,41,2,7360,0)=" ;"
^XMB(3.9,41,2,7361,0)="""RTN"",""HLOMSG"",130,0)"
^XMB(3.9,41,2,7362,0)=" K HDR"
^XMB(3.9,41,2,7363,0)="""RTN"",""HLOMSG"",131,0)"
^XMB(3.9,41,2,7364,0)=" S MSG(""LINE COUNT"")=0"
^XMB(3.9,41,2,7365,0)="""RTN"",""HLOMSG"",132,0)"
^XMB(3.9,41,2,7366,0)=" N SUBIEN,I"
^XMB(3.9,41,2,7367,0)="""RTN"",""HLOMSG"",133,0)"
^XMB(3.9,41,2,7368,0)=" ;"
^XMB(3.9,41,2,7369,0)="""RTN"",""HLOMSG"",134,0)"
^XMB(3.9,41,2,7370,0)=" ;if completed parsing, don't start over"
^XMB(3.9,41,2,7371,0)="""RTN"",""HLOMSG"",135,0)"
^XMB(3.9,41,2,7372,0)=" I MSG(""BATCH"",""CURRENT MESSAGE"")=-1 Q 0"
^XMB(3.9,41,2,7373,0)="""RTN"",""HLOMSG"",136,0)"
^XMB(3.9,41,2,7374,0)=" ;"
^XMB(3.9,41,2,7375,0)="""RTN"",""HLOMSG"",137,0)"
^XMB(3.9,41,2,7376,0)=" S I=$O(^HLB(MSG(""IEN""),3,""B"",MSG(""BATCH"",""CURRENT MESSAGE"")))"
^XMB(3.9,41,2,7377,0)="""RTN"",""HLOMSG"",138,0)"
^XMB(3.9,41,2,7378,0)=" I 'I S MSG(""BATCH"",""CURRENT MESSAGE"")=-1 Q 0"
^XMB(3.9,41,2,7379,0)="""RTN"",""HLOMSG"",139,0)"
^XMB(3.9,41,2,7380,0)=" S MSG(""BATCH"",""CURRENT MESSAGE"")=I"
^XMB(3.9,41,2,7381,0)="""RTN"",""HLOMSG"",140,0)"
^XMB(3.9,41,2,7382,0)=" S SUBIEN=$O(^HLB(MSG(""IEN""),3,""B"",I,0))"
^XMB(3.9,41,2,7383,0)="""RTN"",""HLOMSG"",141,0)"
^XMB(3.9,41,2,7384,0)=" S HDR(1)=$G(^HLB(MSG(""IEN""),3,SUBIEN,1))"
^XMB(3.9,41,2,7385,0)="""RTN"",""HLOMSG"",142,0)"
^XMB(3.9,41,2,7386,0)=" S HDR(2)=$G(^HLB(MSG(""IEN""),3,SUBIEN,2))"
^XMB(3.9,41,2,7387,0)="""RTN"",""HLOMSG"",143,0)"
^XMB(3.9,41,2,7388,0)=" Q $S($D(HDR):1,1:0)"
^XMB(3.9,41,2,7389,0)="""RTN"",""HLOMSG"",144,0)"
^XMB(3.9,41,2,7390,0)=" ;"
^XMB(3.9,41,2,7391,0)="""RTN"",""HLOMSG"",145,0)"
^XMB(3.9,41,2,7392,0)="ADDSEG(HLMSTATE,SEG) ;Adds a segment to the message."
^XMB(3.9,41,2,7393,0)="""RTN"",""HLOMSG"",146,0)"
^XMB(3.9,41,2,7394,0)=" ;Input:"
^XMB(3.9,41,2,7395,0)="""RTN"",""HLOMSG"",147,0)"
^XMB(3.9,41,2,7396,0)=" ;  HLMSTATE() - (pass by reference, required)"
^XMB(3.9,41,2,7397,0)="""RTN"",""HLOMSG"",148,0)"
^XMB(3.9,41,2,7398,0)=" ;  SEG() - (pass by reference, required) The segment as lines SEG(<i>)"
^XMB(3.9,41,2,7399,0)="""RTN"",""HLOMSG"",149,0)"
^XMB(3.9,41,2,7400,0)=" ;"
^XMB(3.9,41,2,7401,0)="""RTN"",""HLOMSG"",150,0)"
^XMB(3.9,41,2,7402,0)=" ;Output:"
^XMB(3.9,41,2,7403,0)="""RTN"",""HLOMSG"",151,0)"
^XMB(3.9,41,2,7404,0)=" ;   HLMSTATE()"
^XMB(3.9,41,2,7405,0)="""RTN"",""HLOMSG"",152,0)"
^XMB(3.9,41,2,7406,0)=" ;"
^XMB(3.9,41,2,7407,0)="""RTN"",""HLOMSG"",153,0)"
^XMB(3.9,41,2,7408,0)=" N I,J S I=0"
^XMB(3.9,41,2,7409,0)="""RTN"",""HLOMSG"",154,0)"
^XMB(3.9,41,2,7410,0)=" S J=HLMSTATE(""LINE COUNT"")"
^XMB(3.9,41,2,7411,0)="""RTN"",""HLOMSG"",155,0)"
^XMB(3.9,41,2,7412,0)=" ;"
^XMB(3.9,41,2,7413,0)="""RTN"",""HLOMSG"",156,0)"
^XMB(3.9,41,2,7414,0)=" ;insure a blank line between segments"
^XMB(3.9,41,2,7415,0)="""RTN"",""HLOMSG"",157,0)"
^XMB(3.9,41,2,7416,0)=" I J S J=J+1,HLMSTATE(""UNSTORED LINES"",$S(HLMSTATE(""BATCH""):HLMSTATE(""BATCH"",""CURRENT MESSAGE""),1:1),HLMSTATE(""CURRENT SEGMENT""),J)="""""
^XMB(3.9,41,2,7417,0)="""RTN"",""HLOMSG"",158,0)"
^XMB(3.9,41,2,7418,0)=" ;"
^XMB(3.9,41,2,7419,0)="""RTN"",""HLOMSG"",159,0)"
^XMB(3.9,41,2,7420,0)=" S HLMSTATE(""CURRENT SEGMENT"")=HLMSTATE(""CURRENT SEGMENT"")+1"
^XMB(3.9,41,2,7421,0)="""RTN"",""HLOMSG"",160,0)"
^XMB(3.9,41,2,7422,0)=" F  S I=$O(SEG(I)) Q:'I  D"
^XMB(3.9,41,2,7423,0)="""RTN"",""HLOMSG"",161,0)"
^XMB(3.9,41,2,7424,0)=" .S J=J+1"
^XMB(3.9,41,2,7425,0)="""RTN"",""HLOMSG"",162,0)"
^XMB(3.9,41,2,7426,0)=" .S HLMSTATE(""UNSTORED LINES"",$S(HLMSTATE(""BATCH""):HLMSTATE(""BATCH"",""CURRENT MESSAGE""),1:1),HLMSTATE(""CURRENT SEGMENT""),J)=SEG(I),HLMSTATE(""UNSTORED LINES"")=HLMSTATE(""UNSTORED LINES"")+$L(SEG(I))+50"
^XMB(3.9,41,2,7427,0)="""RTN"",""HLOMSG"",163,0)"
^XMB(3.9,41,2,7428,0)=" .I HLMSTATE(""UNSTORED LINES"")>HLMSTATE(""SYSTEM"",""BUFFER"") D"
^XMB(3.9,41,2,7429,0)="""RTN"",""HLOMSG"",164,0)"
^XMB(3.9,41,2,7430,0)=" ..I HLMSTATE(""DIRECTION"")=""IN"",$$SAVEMSG^HLOF778(.HLMSTATE) Q"
^XMB(3.9,41,2,7431,0)="""RTN"",""HLOMSG"",165,0)"
^XMB(3.9,41,2,7432,0)=" ..I HLMSTATE(""DIRECTION"")=""OUT"",$$SAVEMSG^HLOF777(.HLMSTATE)"
^XMB(3.9,41,2,7433,0)="""RTN"",""HLOMSG"",166,0)"
^XMB(3.9,41,2,7434,0)=" ;"
^XMB(3.9,41,2,7435,0)="""RTN"",""HLOMSG"",167,0)"
^XMB(3.9,41,2,7436,0)=" S HLMSTATE(""LINE COUNT"")=J"
^XMB(3.9,41,2,7437,0)="""RTN"",""HLOMSG"",168,0)"
^XMB(3.9,41,2,7438,0)=" Q"
^XMB(3.9,41,2,7439,0)="""RTN"",""HLOMSG"",169,0)"
^XMB(3.9,41,2,7440,0)=" ;"
^XMB(3.9,41,2,7441,0)="""RTN"",""HLOMSG"",170,0)"
^XMB(3.9,41,2,7442,0)="ADDMSG(HLMSTATE,PARMS) ;"
^XMB(3.9,41,2,7443,0)="""RTN"",""HLOMSG"",171,0)"
^XMB(3.9,41,2,7444,0)=" ;For outgoing messages, adds a message in the batch. There is no MSH yet, just the message type and event.  "
^XMB(3.9,41,2,7445,0)="""RTN"",""HLOMSG"",172,0)"
^XMB(3.9,41,2,7446,0)=" ;Input:"
^XMB(3.9,41,2,7447,0)="""RTN"",""HLOMSG"",173,0)"
^XMB(3.9,41,2,7448,0)=" ;  HLMSTATE() - (pass by reference, required)"
^XMB(3.9,41,2,7449,0)="""RTN"",""HLOMSG"",174,0)"
^XMB(3.9,41,2,7450,0)=" ;  PARMS(""EVENT"")"
^XMB(3.9,41,2,7451,0)="""RTN"",""HLOMSG"",175,0)"
^XMB(3.9,41,2,7452,0)=" ;  PARMS(""MESSAGE TYPE"")"
^XMB(3.9,41,2,7453,0)="""RTN"",""HLOMSG"",176,0)"
^XMB(3.9,41,2,7454,0)=" ;"
^XMB(3.9,41,2,7455,0)="""RTN"",""HLOMSG"",177,0)"
^XMB(3.9,41,2,7456,0)=" ;Output:"
^XMB(3.9,41,2,7457,0)="""RTN"",""HLOMSG"",178,0)"
^XMB(3.9,41,2,7458,0)=" ;   HLMSTATE() - (pass by reference, required)"
^XMB(3.9,41,2,7459,0)="""RTN"",""HLOMSG"",179,0)"
^XMB(3.9,41,2,7460,0)=" ;"
^XMB(3.9,41,2,7461,0)="""RTN"",""HLOMSG"",180,0)"
^XMB(3.9,41,2,7462,0)=" N I"
^XMB(3.9,41,2,7463,0)="""RTN"",""HLOMSG"",181,0)"
^XMB(3.9,41,2,7464,0)=" S I=HLMSTATE(""BATCH"",""CURRENT MESSAGE"")+1,HLMSTATE(""BATCH"",""CURRENT MESSAGE"")=I"
^XMB(3.9,41,2,7465,0)="""RTN"",""HLOMSG"",182,0)"
^XMB(3.9,41,2,7466,0)=" S HLMSTATE(""UNSTORED LINES"",I)=PARMS(""MESSAGE TYPE"")_""^""_PARMS(""EVENT"")"
^XMB(3.9,41,2,7467,0)="""RTN"",""HLOMSG"",183,0)"
^XMB(3.9,41,2,7468,0)=" M:$G(PARMS(""ACK TO""))]"""" HLMSTATE(""BATCH"",""ACK TO"",I)=PARMS(""ACK TO"")"
^XMB(3.9,41,2,7469,0)="""RTN"",""HLOMSG"",184,0)"
^XMB(3.9,41,2,7470,0)=" S HLMSTATE(""CURRENT SEGMENT"")=0"
^XMB(3.9,41,2,7471,0)="""RTN"",""HLOMSG"",185,0)"
^XMB(3.9,41,2,7472,0)=" S HLMSTATE(""LINE COUNT"")=0"
^XMB(3.9,41,2,7473,0)="""RTN"",""HLOMSG"",186,0)"
^XMB(3.9,41,2,7474,0)=" S HLMSTATE(""UNSTORED LINES"")=HLMSTATE(""UNSTORED LINES"")+100"
^XMB(3.9,41,2,7475,0)="""RTN"",""HLOMSG"",187,0)"
^XMB(3.9,41,2,7476,0)=" Q"
^XMB(3.9,41,2,7477,0)="""RTN"",""HLOMSG"",188,0)"
^XMB(3.9,41,2,7478,0)=" ;"
^XMB(3.9,41,2,7479,0)="""RTN"",""HLOMSG"",189,0)"
^XMB(3.9,41,2,7480,0)="ADDMSG2(HLMSTATE,MSH) ;"
^XMB(3.9,41,2,7481,0)="""RTN"",""HLOMSG"",190,0)"
^XMB(3.9,41,2,7482,0)=" ;For incoming messages adds a message to the batch. This differs from ADDMSG in that the MSH segment is passed in to be stored in file 778."
^XMB(3.9,41,2,7483,0)="""RTN"",""HLOMSG"",191,0)"
^XMB(3.9,41,2,7484,0)=" ;Input:"
^XMB(3.9,41,2,7485,0)="""RTN"",""HLOMSG"",192,0)"
^XMB(3.9,41,2,7486,0)=" ;  HLMSTATE() - (pass by reference, required)"
^XMB(3.9,41,2,7487,0)="""RTN"",""HLOMSG"",193,0)"
^XMB(3.9,41,2,7488,0)=" ;  MSH(<i>) - the MSH segment as a set of lines"
^XMB(3.9,41,2,7489,0)="""RTN"",""HLOMSG"",194,0)"
^XMB(3.9,41,2,7490,0)=" ;"
^XMB(3.9,41,2,7491,0)="""RTN"",""HLOMSG"",195,0)"
^XMB(3.9,41,2,7492,0)=" ;Output:"
^XMB(3.9,41,2,7493,0)="""RTN"",""HLOMSG"",196,0)"
^XMB(3.9,41,2,7494,0)=" ;   HLMSTATE() - (pass by reference, required)"
^XMB(3.9,41,2,7495,0)="""RTN"",""HLOMSG"",197,0)"
^XMB(3.9,41,2,7496,0)=" ;"
^XMB(3.9,41,2,7497,0)="""RTN"",""HLOMSG"",198,0)"
^XMB(3.9,41,2,7498,0)=" N FS,CS,VALUE"
^XMB(3.9,41,2,7499,0)="""RTN"",""HLOMSG"",199,0)"
^XMB(3.9,41,2,7500,0)=" S HLMSTATE(""BATCH"",""CURRENT MESSAGE"")=HLMSTATE(""BATCH"",""CURRENT MESSAGE"")+1"
^XMB(3.9,41,2,7501,0)="""RTN"",""HLOMSG"",200,0)"
^XMB(3.9,41,2,7502,0)=" S FS=$E(MSH(1),4)"
^XMB(3.9,41,2,7503,0)="""RTN"",""HLOMSG"",201,0)"
^XMB(3.9,41,2,7504,0)=" S CS=$E(MSH(1),5)"
^XMB(3.9,41,2,7505,0)="""RTN"",""HLOMSG"",202,0)"
^XMB(3.9,41,2,7506,0)=" S VALUE=$P(MSH(2),FS,4)"
^XMB(3.9,41,2,7507,0)="""RTN"",""HLOMSG"",203,0)"
^XMB(3.9,41,2,7508,0)=" S HLMSTATE(""UNSTORED LINES"",HLMSTATE(""BATCH"",""CURRENT MESSAGE""))=$P(VALUE,CS)_""^""_$P(VALUE,CS,2)"
^XMB(3.9,41,2,7509,0)="""RTN"",""HLOMSG"",204,0)"
^XMB(3.9,41,2,7510,0)=" S HLMSTATE(""UNSTORED MSH"")=1"
^XMB(3.9,41,2,7511,0)="""RTN"",""HLOMSG"",205,0)"
^XMB(3.9,41,2,7512,0)=" M HLMSTATE(""UNSTORED MSH"",HLMSTATE(""BATCH"",""CURRENT MESSAGE""))=MSH"
^XMB(3.9,41,2,7513,0)="""RTN"",""HLOMSG"",206,0)"
^XMB(3.9,41,2,7514,0)=" S HLMSTATE(""CURRENT SEGMENT"")=0"
^XMB(3.9,41,2,7515,0)="""RTN"",""HLOMSG"",207,0)"
^XMB(3.9,41,2,7516,0)=" S HLMSTATE(""LINE COUNT"")=0"
^XMB(3.9,41,2,7517,0)="""RTN"",""HLOMSG"",208,0)"
^XMB(3.9,41,2,7518,0)=" S HLMSTATE(""UNSTORED LINES"")=HLMSTATE(""UNSTORED LINES"")+200"
^XMB(3.9,41,2,7519,0)="""RTN"",""HLOMSG"",209,0)"
^XMB(3.9,41,2,7520,0)=" I HLMSTATE(""UNSTORED LINES"")>HLMSTATE(""SYSTEM"",""BUFFER""),$$SAVEMSG^HLOF778(.HLMSTATE) ;first stores stuff in 777, then headers in file 778"
^XMB(3.9,41,2,7521,0)="""RTN"",""HLOMSG"",210,0)"
^XMB(3.9,41,2,7522,0)=" Q"
^XMB(3.9,41,2,7523,0)="""RTN"",""HLOMSG1"")"
^XMB(3.9,41,2,7524,0)="0^44^B6084209"
^XMB(3.9,41,2,7525,0)="""RTN"",""HLOMSG1"",1,0)"
^XMB(3.9,41,2,7526,0)="HLOMSG1 ;ALB/CJM-HL7 - APIs for files 777/778 (CONTINUED) ;02/04/2004"
^XMB(3.9,41,2,7527,0)="""RTN"",""HLOMSG1"",2,0)"
^XMB(3.9,41,2,7528,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995"
^XMB(3.9,41,2,7529,0)="""RTN"",""HLOMSG1"",3,0)"
^XMB(3.9,41,2,7530,0)=" ;"
^XMB(3.9,41,2,7531,0)="""RTN"",""HLOMSG1"",4,0)"
^XMB(3.9,41,2,7532,0)="FINDMSG(MSGID,LIST) ;"
^XMB(3.9,41,2,7533,0)="""RTN"",""HLOMSG1"",5,0)"
^XMB(3.9,41,2,7534,0)=" ;Given a message id, this function finds the file 778 entries having that message id.  The count is returned as the function value. If the message"
^XMB(3.9,41,2,7535,0)="""RTN"",""HLOMSG1"",6,0)"
^XMB(3.9,41,2,7536,0)=" ;is within a batch, it might be in the subfile.  The list of found"
^XMB(3.9,41,2,7537,0)="""RTN"",""HLOMSG1"",7,0)"
^XMB(3.9,41,2,7538,0)=" ;records is in the format LIST(1)=<IEN>^<SUBIEN>,LIST(2)=<IEN>^<SUBIEN>,"
^XMB(3.9,41,2,7539,0)="""RTN"",""HLOMSG1"",8,0)"
^XMB(3.9,41,2,7540,0)=" ;etc., where SUBIEN="""" if the message is not within a batch."
^XMB(3.9,41,2,7541,0)="""RTN"",""HLOMSG1"",9,0)"
^XMB(3.9,41,2,7542,0)=" ;"
^XMB(3.9,41,2,7543,0)="""RTN"",""HLOMSG1"",10,0)"
^XMB(3.9,41,2,7544,0)=" N COUNT,MSG"
^XMB(3.9,41,2,7545,0)="""RTN"",""HLOMSG1"",11,0)"
^XMB(3.9,41,2,7546,0)=" K LIST"
^XMB(3.9,41,2,7547,0)="""RTN"",""HLOMSG1"",12,0)"
^XMB(3.9,41,2,7548,0)=" Q:$G(MSGID)="""" 0"
^XMB(3.9,41,2,7549,0)="""RTN"",""HLOMSG1"",13,0)"
^XMB(3.9,41,2,7550,0)=" S (MSG,COUNT)=0"
^XMB(3.9,41,2,7551,0)="""RTN"",""HLOMSG1"",14,0)"
^XMB(3.9,41,2,7552,0)=" F  S MSG=$O(^HLB(""B"",MSGID,MSG)) Q:'MSG  S COUNT=COUNT+1,LIST(COUNT)=MSG"
^XMB(3.9,41,2,7553,0)="""RTN"",""HLOMSG1"",15,0)"
^XMB(3.9,41,2,7554,0)=" S MSG="""""
^XMB(3.9,41,2,7555,0)="""RTN"",""HLOMSG1"",16,0)"
^XMB(3.9,41,2,7556,0)=" F  S MSG=$O(^HLB(""AE"",MSGID,MSG)) Q:MSG=""""  S COUNT=COUNT+1,LIST(COUNT)=MSG"
^XMB(3.9,41,2,7557,0)="""RTN"",""HLOMSG1"",17,0)"
^XMB(3.9,41,2,7558,0)=" Q COUNT"
^XMB(3.9,41,2,7559,0)="""RTN"",""HLOMSG1"",18,0)"
^XMB(3.9,41,2,7560,0)=" ;"
^XMB(3.9,41,2,7561,0)="""RTN"",""HLOMSG1"",19,0)"
^XMB(3.9,41,2,7562,0)="ACKTOIEN(MSGID,ACKTO) ;"
^XMB(3.9,41,2,7563,0)="""RTN"",""HLOMSG1"",20,0)"
^XMB(3.9,41,2,7564,0)=" ;finds the ien of the initial message"
^XMB(3.9,41,2,7565,0)="""RTN"",""HLOMSG1"",21,0)"
^XMB(3.9,41,2,7566,0)=" ;Input:"
^XMB(3.9,41,2,7567,0)="""RTN"",""HLOMSG1"",22,0)"
^XMB(3.9,41,2,7568,0)=" ;  MSGID - the msg id of the ack message"
^XMB(3.9,41,2,7569,0)="""RTN"",""HLOMSG1"",23,0)"
^XMB(3.9,41,2,7570,0)=" ;  ACKTO - msgid of the original message"
^XMB(3.9,41,2,7571,0)="""RTN"",""HLOMSG1"",24,0)"
^XMB(3.9,41,2,7572,0)=" ;Output: Function returns """" if not found, otherwise the IEN, or, if the message is in a batch, the <ien>^<subien>"
^XMB(3.9,41,2,7573,0)="""RTN"",""HLOMSG1"",25,0)"
^XMB(3.9,41,2,7574,0)=" ;"
^XMB(3.9,41,2,7575,0)="""RTN"",""HLOMSG1"",26,0)"
^XMB(3.9,41,2,7576,0)=" N LIST,RETURN"
^XMB(3.9,41,2,7577,0)="""RTN"",""HLOMSG1"",27,0)"
^XMB(3.9,41,2,7578,0)=" S RETURN="""""
^XMB(3.9,41,2,7579,0)="""RTN"",""HLOMSG1"",28,0)"
^XMB(3.9,41,2,7580,0)=" I $$FINDMSG(ACKTO,.LIST) D"
^XMB(3.9,41,2,7581,0)="""RTN"",""HLOMSG1"",29,0)"
^XMB(3.9,41,2,7582,0)=" .N COUNT"
^XMB(3.9,41,2,7583,0)="""RTN"",""HLOMSG1"",30,0)"
^XMB(3.9,41,2,7584,0)=" .S COUNT=0"
^XMB(3.9,41,2,7585,0)="""RTN"",""HLOMSG1"",31,0)"
^XMB(3.9,41,2,7586,0)=" .F  S COUNT=$O(LIST(COUNT)) Q:'COUNT  D  Q:RETURN"
^XMB(3.9,41,2,7587,0)="""RTN"",""HLOMSG1"",32,0)"
^XMB(3.9,41,2,7588,0)=" ..N IEN,SUBIEN"
^XMB(3.9,41,2,7589,0)="""RTN"",""HLOMSG1"",33,0)"
^XMB(3.9,41,2,7590,0)=" ..S IEN=$P(LIST(COUNT),""^""),SUBIEN=$P(LIST(COUNT),""^"",2)"
^XMB(3.9,41,2,7591,0)="""RTN"",""HLOMSG1"",34,0)"
^XMB(3.9,41,2,7592,0)=" ..I 'SUBIEN D"
^XMB(3.9,41,2,7593,0)="""RTN"",""HLOMSG1"",35,0)"
^XMB(3.9,41,2,7594,0)=" ...I $P($G(^HLB(IEN,0)),""^"",7)=MSGID S RETURN=IEN"
^XMB(3.9,41,2,7595,0)="""RTN"",""HLOMSG1"",36,0)"
^XMB(3.9,41,2,7596,0)=" ..E  D"
^XMB(3.9,41,2,7597,0)="""RTN"",""HLOMSG1"",37,0)"
^XMB(3.9,41,2,7598,0)=" ...I $P($G(^HLB(IEN,3,SUBIEN,0)),""^"",4)=MSGID S RETURN=IEN_""^""_SUBIEN"
^XMB(3.9,41,2,7599,0)="""RTN"",""HLOMSG1"",38,0)"
^XMB(3.9,41,2,7600,0)=" Q RETURN"
^XMB(3.9,41,2,7601,0)="""RTN"",""HLOMSG1"",39,0)"
^XMB(3.9,41,2,7602,0)=" ;"
^XMB(3.9,41,2,7603,0)="""RTN"",""HLOMSG1"",40,0)"
^XMB(3.9,41,2,7604,0)=" ;"
^XMB(3.9,41,2,7605,0)="""RTN"",""HLOMSG1"",41,0)"
^XMB(3.9,41,2,7606,0)="ACKBYIEN(MSGID,ACKBY) ;"
^XMB(3.9,41,2,7607,0)="""RTN"",""HLOMSG1"",42,0)"
^XMB(3.9,41,2,7608,0)=" ;finds the ien of the ack message"
^XMB(3.9,41,2,7609,0)="""RTN"",""HLOMSG1"",43,0)"
^XMB(3.9,41,2,7610,0)=" ;Input:"
^XMB(3.9,41,2,7611,0)="""RTN"",""HLOMSG1"",44,0)"
^XMB(3.9,41,2,7612,0)=" ;  MSGID - the msg id of the initial message"
^XMB(3.9,41,2,7613,0)="""RTN"",""HLOMSG1"",45,0)"
^XMB(3.9,41,2,7614,0)=" ;  ACKBY - msgid of the ack message"
^XMB(3.9,41,2,7615,0)="""RTN"",""HLOMSG1"",46,0)"
^XMB(3.9,41,2,7616,0)=" ;Output: Function returns """" if not found, otherwise the IEN, or, if the message is in a batch, the <ien>^<subien>"
^XMB(3.9,41,2,7617,0)="""RTN"",""HLOMSG1"",47,0)"
^XMB(3.9,41,2,7618,0)=" ;"
^XMB(3.9,41,2,7619,0)="""RTN"",""HLOMSG1"",48,0)"
^XMB(3.9,41,2,7620,0)=" N LIST,RETURN"
^XMB(3.9,41,2,7621,0)="""RTN"",""HLOMSG1"",49,0)"
^XMB(3.9,41,2,7622,0)=" S RETURN="""""
^XMB(3.9,41,2,7623,0)="""RTN"",""HLOMSG1"",50,0)"
^XMB(3.9,41,2,7624,0)=" I $$FINDMSG(ACKBY,.LIST) D"
^XMB(3.9,41,2,7625,0)="""RTN"",""HLOMSG1"",51,0)"
^XMB(3.9,41,2,7626,0)=" .N COUNT"
^XMB(3.9,41,2,7627,0)="""RTN"",""HLOMSG1"",52,0)"
^XMB(3.9,41,2,7628,0)=" .S COUNT=0"
^XMB(3.9,41,2,7629,0)="""RTN"",""HLOMSG1"",53,0)"
^XMB(3.9,41,2,7630,0)=" .F  S COUNT=$O(LIST(COUNT)) Q:'COUNT  D  Q:RETURN"
^XMB(3.9,41,2,7631,0)="""RTN"",""HLOMSG1"",54,0)"
^XMB(3.9,41,2,7632,0)=" ..N IEN,SUBIEN"
^XMB(3.9,41,2,7633,0)="""RTN"",""HLOMSG1"",55,0)"
^XMB(3.9,41,2,7634,0)=" ..S IEN=$P(LIST(COUNT),""^""),SUBIEN=$P(LIST(COUNT),""^"",2)"
^XMB(3.9,41,2,7635,0)="""RTN"",""HLOMSG1"",56,0)"
^XMB(3.9,41,2,7636,0)=" ..I 'SUBIEN D"
^XMB(3.9,41,2,7637,0)="""RTN"",""HLOMSG1"",57,0)"
^XMB(3.9,41,2,7638,0)=" ...I $P($G(^HLB(IEN,0)),""^"",3)=MSGID S RETURN=IEN"
^XMB(3.9,41,2,7639,0)="""RTN"",""HLOMSG1"",58,0)"
^XMB(3.9,41,2,7640,0)=" ..E  D"
^XMB(3.9,41,2,7641,0)="""RTN"",""HLOMSG1"",59,0)"
^XMB(3.9,41,2,7642,0)=" ...I $P($G(^HLB(IEN,3,SUBIEN,0)),""^"",3)=MSGID S RETURN=IEN_""^""_SUBIEN"
^XMB(3.9,41,2,7643,0)="""RTN"",""HLOMSG1"",60,0)"
^XMB(3.9,41,2,7644,0)=" Q RETURN"
^XMB(3.9,41,2,7645,0)="""RTN"",""HLOMSG1"",61,0)"
^XMB(3.9,41,2,7646,0)=" ;"
^XMB(3.9,41,2,7647,0)="""RTN"",""HLOMSG1"",62,0)"
^XMB(3.9,41,2,7648,0)="GETMSGB(MSG,SUBIEN,SUBMSG) ;"
^XMB(3.9,41,2,7649,0)="""RTN"",""HLOMSG1"",63,0)"
^XMB(3.9,41,2,7650,0)=" ;gets a message from within a batch"
^XMB(3.9,41,2,7651,0)="""RTN"",""HLOMSG1"",64,0)"
^XMB(3.9,41,2,7652,0)=" ;Input:"
^XMB(3.9,41,2,7653,0)="""RTN"",""HLOMSG1"",65,0)"
^XMB(3.9,41,2,7654,0)=" ;  MSG (required, pass by reference) from $$GETMSG"
^XMB(3.9,41,2,7655,0)="""RTN"",""HLOMSG1"",66,0)"
^XMB(3.9,41,2,7656,0)=" ;  SUBIEN - the subrecord #"
^XMB(3.9,41,2,7657,0)="""RTN"",""HLOMSG1"",67,0)"
^XMB(3.9,41,2,7658,0)=" ;Output:"
^XMB(3.9,41,2,7659,0)="""RTN"",""HLOMSG1"",68,0)"
^XMB(3.9,41,2,7660,0)=" ;  SUBMSG (pass by reference)  These subscripts are returned:"
^XMB(3.9,41,2,7661,0)="""RTN"",""HLOMSG1"",69,0)"
^XMB(3.9,41,2,7662,0)=" ;    ""ACK BY"" - if this msg was app acked, the msg id if this msg that was app"
^XMB(3.9,41,2,7663,0)="""RTN"",""HLOMSG1"",70,0)"
^XMB(3.9,41,2,7664,0)=" ;    ""ACK TO"" - if this msg is an app ack, the msg id of msg being acked"
^XMB(3.9,41,2,7665,0)="""RTN"",""HLOMSG1"",71,0)"
^XMB(3.9,41,2,7666,0)=" ;    ""EVENT"" - HL7 Event"
^XMB(3.9,41,2,7667,0)="""RTN"",""HLOMSG1"",72,0)"
^XMB(3.9,41,2,7668,0)=" ;    ""HDR"",1) - fields 1-6 of the header segment"
^XMB(3.9,41,2,7669,0)="""RTN"",""HLOMSG1"",73,0)"
^XMB(3.9,41,2,7670,0)=" ;    ""HDR"",2) - fields 7-End of the header segment"
^XMB(3.9,41,2,7671,0)="""RTN"",""HLOMSG1"",74,0)"
^XMB(3.9,41,2,7672,0)=" ;    ""ID"" - Message Control ID"
^XMB(3.9,41,2,7673,0)="""RTN"",""HLOMSG1"",75,0)"
^XMB(3.9,41,2,7674,0)=" ;    ""MESSAGE TYPE"" - HL7 Message Type"
^XMB(3.9,41,2,7675,0)="""RTN"",""HLOMSG1"",76,0)"
^XMB(3.9,41,2,7676,0)=" ;    ""STATUS"" - completion status for the individual message"
^XMB(3.9,41,2,7677,0)="""RTN"",""HLOMSG1"",77,0)"
^XMB(3.9,41,2,7678,0)=" ;"
^XMB(3.9,41,2,7679,0)="""RTN"",""HLOMSG1"",78,0)"
^XMB(3.9,41,2,7680,0)=" N NODE"
^XMB(3.9,41,2,7681,0)="""RTN"",""HLOMSG1"",79,0)"
^XMB(3.9,41,2,7682,0)=" S NODE=$G(^HLB(MSG(""IEN""),3,SUBIEN,0))"
^XMB(3.9,41,2,7683,0)="""RTN"",""HLOMSG1"",80,0)"
^XMB(3.9,41,2,7684,0)=" S SUBMSG(""ID"")=$P(NODE,""^"",2)"
^XMB(3.9,41,2,7685,0)="""RTN"",""HLOMSG1"",81,0)"
^XMB(3.9,41,2,7686,0)=" S SUBMSG(""ACK TO"")=$P(NODE,""^"",3)"
^XMB(3.9,41,2,7687,0)="""RTN"",""HLOMSG1"",82,0)"
^XMB(3.9,41,2,7688,0)=" S SUBMSG(""ACK BY"")=$P(NODE,""^"",4)"
^XMB(3.9,41,2,7689,0)="""RTN"",""HLOMSG1"",83,0)"
^XMB(3.9,41,2,7690,0)=" S SUBMSG(""STATUS"")=$P(NODE,""^"",5)"
^XMB(3.9,41,2,7691,0)="""RTN"",""HLOMSG1"",84,0)"
^XMB(3.9,41,2,7692,0)=" S SUBMSG(""HDR"",1)=$G(^HLB(MSG(""IEN""),3,SUBIEN,1)),SUBMSG(""HDR"",2)=$G(^(2))"
^XMB(3.9,41,2,7693,0)="""RTN"",""HLOMSG1"",85,0)"
^XMB(3.9,41,2,7694,0)=" S NODE=$G(^HLA(MSG(""BODY""),2,SUBIEN,0))"
^XMB(3.9,41,2,7695,0)="""RTN"",""HLOMSG1"",86,0)"
^XMB(3.9,41,2,7696,0)=" S SUBMSG(""MESSAGE TYPE"")=$P(NODE,""^"",2)"
^XMB(3.9,41,2,7697,0)="""RTN"",""HLOMSG1"",87,0)"
^XMB(3.9,41,2,7698,0)=" S SUBMSG(""EVENT"")=$P(NODE,""^"",3)"
^XMB(3.9,41,2,7699,0)="""RTN"",""HLOMSG1"",88,0)"
^XMB(3.9,41,2,7700,0)=" Q"
^XMB(3.9,41,2,7701,0)="""RTN"",""HLOPBLD"")"
^XMB(3.9,41,2,7702,0)="0^25^B10420625"
^XMB(3.9,41,2,7703,0)="""RTN"",""HLOPBLD"",1,0)"
^XMB(3.9,41,2,7704,0)="HLOPBLD ;ALB/CJM-HL7 - Building segments ;02/04/2004"
^XMB(3.9,41,2,7705,0)="""RTN"",""HLOPBLD"",2,0)"
^XMB(3.9,41,2,7706,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995"
^XMB(3.9,41,2,7707,0)="""RTN"",""HLOPBLD"",3,0)"
^XMB(3.9,41,2,7708,0)=" ;"
^XMB(3.9,41,2,7709,0)="""RTN"",""HLOPBLD"",4,0)"
^XMB(3.9,41,2,7710,0)="BUILDSEG(HLMSTATE,SEG,TOARY,ERROR) ;Builds the segment from the individual values"
^XMB(3.9,41,2,7711,0)="""RTN"",""HLOPBLD"",5,0)"
^XMB(3.9,41,2,7712,0)=" ;Input:"
^XMB(3.9,41,2,7713,0)="""RTN"",""HLOPBLD"",6,0)"
^XMB(3.9,41,2,7714,0)=" ;  HLMSTATE() - (pass by reference, required) Used to track the progress of the message. Uses these subscripts:"
^XMB(3.9,41,2,7715,0)="""RTN"",""HLOPBLD"",7,0)"
^XMB(3.9,41,2,7716,0)=" ;    (""HDR"",""FIELD SEPARATOR"")"
^XMB(3.9,41,2,7717,0)="""RTN"",""HLOPBLD"",8,0)"
^XMB(3.9,41,2,7718,0)=" ;    (""HDR"",""ENCODING CHARACTERS"")"
^XMB(3.9,41,2,7719,0)="""RTN"",""HLOPBLD"",9,0)"
^XMB(3.9,41,2,7720,0)=" ;  SEG() - (pass by reference, required) Contains the data.  It must be built by calls to SET^HLOAPI prior to calling $$BUILDSEG."
^XMB(3.9,41,2,7721,0)="""RTN"",""HLOPBLD"",10,0)"
^XMB(3.9,41,2,7722,0)=" ;"
^XMB(3.9,41,2,7723,0)="""RTN"",""HLOPBLD"",11,0)"
^XMB(3.9,41,2,7724,0)=" ;Note#1:  The '0' field must be a 3 character segment type"
^XMB(3.9,41,2,7725,0)="""RTN"",""HLOPBLD"",12,0)"
^XMB(3.9,41,2,7726,0)=" ;Note#2: ***SEG is killed upon successfully adding the segment***"
^XMB(3.9,41,2,7727,0)="""RTN"",""HLOPBLD"",13,0)"
^XMB(3.9,41,2,7728,0)=" ;"
^XMB(3.9,41,2,7729,0)="""RTN"",""HLOPBLD"",14,0)"
^XMB(3.9,41,2,7730,0)=" ;Output:"
^XMB(3.9,41,2,7731,0)="""RTN"",""HLOPBLD"",15,0)"
^XMB(3.9,41,2,7732,0)=" ;  Function - returns 1 on success, 0 on failure"
^XMB(3.9,41,2,7733,0)="""RTN"",""HLOPBLD"",16,0)"
^XMB(3.9,41,2,7734,0)=" ;  TOARY (pass by reference) This will return the segment in an array format TOARY(1),TOARY(2),... For segments that are shorter than the MUMPS maximum string length, there will be only TOARY(1)"
^XMB(3.9,41,2,7735,0)="""RTN"",""HLOPBLD"",17,0)"
^XMB(3.9,41,2,7736,0)=" ;  ERROR (optional, pass by reference) - returns an error message on failure"
^XMB(3.9,41,2,7737,0)="""RTN"",""HLOPBLD"",18,0)"
^XMB(3.9,41,2,7738,0)=" ;"
^XMB(3.9,41,2,7739,0)="""RTN"",""HLOPBLD"",19,0)"
^XMB(3.9,41,2,7740,0)=" ;"
^XMB(3.9,41,2,7741,0)="""RTN"",""HLOPBLD"",20,0)"
^XMB(3.9,41,2,7742,0)=" K ERROR,TOARY"
^XMB(3.9,41,2,7743,0)="""RTN"",""HLOPBLD"",21,0)"
^XMB(3.9,41,2,7744,0)=" N TEMP1,TEMP2,LINE,LAST,SEQ,MAX,COUNT,SEGTYPE"
^XMB(3.9,41,2,7745,0)="""RTN"",""HLOPBLD"",22,0)"
^XMB(3.9,41,2,7746,0)=" S COUNT=0"
^XMB(3.9,41,2,7747,0)="""RTN"",""HLOPBLD"",23,0)"
^XMB(3.9,41,2,7748,0)=" S MAX=HLMSTATE(""SYSTEM"",""MAXSTRING"")-1 ;save some room for the <CR>"
^XMB(3.9,41,2,7749,0)="""RTN"",""HLOPBLD"",24,0)"
^XMB(3.9,41,2,7750,0)=" S SEGTYPE=$G(SEG(0,1,1,1))"
^XMB(3.9,41,2,7751,0)="""RTN"",""HLOPBLD"",25,0)"
^XMB(3.9,41,2,7752,0)=" S LAST=0,(TEMP1,TEMP2)="""",LINE=SEGTYPE_HLMSTATE(""HDR"",""FIELD SEPARATOR"")"
^XMB(3.9,41,2,7753,0)="""RTN"",""HLOPBLD"",26,0)"
^XMB(3.9,41,2,7754,0)=" F  S SEQ=$O(SEG(LAST)) Q:'SEQ  D"
^XMB(3.9,41,2,7755,0)="""RTN"",""HLOPBLD"",27,0)"
^XMB(3.9,41,2,7756,0)=" .S TEMP2="""",$P(TEMP2,HLMSTATE(""HDR"",""FIELD SEPARATOR""),$S(LAST=0:SEQ,1:SEQ-LAST+1))="""""
^XMB(3.9,41,2,7757,0)="""RTN"",""HLOPBLD"",28,0)"
^XMB(3.9,41,2,7758,0)=" .S TEMP1=TEMP2"
^XMB(3.9,41,2,7759,0)="""RTN"",""HLOPBLD"",29,0)"
^XMB(3.9,41,2,7760,0)=" .S LAST=SEQ"
^XMB(3.9,41,2,7761,0)="""RTN"",""HLOPBLD"",30,0)"
^XMB(3.9,41,2,7762,0)=" .N REP,LAST"
^XMB(3.9,41,2,7763,0)="""RTN"",""HLOPBLD"",31,0)"
^XMB(3.9,41,2,7764,0)=" .S LAST=0"
^XMB(3.9,41,2,7765,0)="""RTN"",""HLOPBLD"",32,0)"
^XMB(3.9,41,2,7766,0)=" .F  S REP=$O(SEG(SEQ,LAST)) Q:'REP  D"
^XMB(3.9,41,2,7767,0)="""RTN"",""HLOPBLD"",33,0)"
^XMB(3.9,41,2,7768,0)=" ..S TEMP2="""",$P(TEMP2,$E(HLMSTATE(""HDR"",""ENCODING CHARACTERS""),2),$S(LAST=0:REP,1:REP-LAST+1))="""""
^XMB(3.9,41,2,7769,0)="""RTN"",""HLOPBLD"",34,0)"
^XMB(3.9,41,2,7770,0)=" ..S TEMP1=TEMP1_TEMP2"
^XMB(3.9,41,2,7771,0)="""RTN"",""HLOPBLD"",35,0)"
^XMB(3.9,41,2,7772,0)=" ..S LAST=REP"
^XMB(3.9,41,2,7773,0)="""RTN"",""HLOPBLD"",36,0)"
^XMB(3.9,41,2,7774,0)=" ..;"
^XMB(3.9,41,2,7775,0)="""RTN"",""HLOPBLD"",37,0)"
^XMB(3.9,41,2,7776,0)=" ..N COMP,LAST"
^XMB(3.9,41,2,7777,0)="""RTN"",""HLOPBLD"",38,0)"
^XMB(3.9,41,2,7778,0)=" ..S LAST=0"
^XMB(3.9,41,2,7779,0)="""RTN"",""HLOPBLD"",39,0)"
^XMB(3.9,41,2,7780,0)=" ..F  S COMP=$O(SEG(SEQ,REP,LAST)) Q:'COMP  D"
^XMB(3.9,41,2,7781,0)="""RTN"",""HLOPBLD"",40,0)"
^XMB(3.9,41,2,7782,0)=" ...S TEMP2="""",$P(TEMP2,$E(HLMSTATE(""HDR"",""ENCODING CHARACTERS""),1),$S(LAST=0:COMP,1:COMP-LAST+1))="""""
^XMB(3.9,41,2,7783,0)="""RTN"",""HLOPBLD"",41,0)"
^XMB(3.9,41,2,7784,0)=" ...S TEMP1=TEMP1_TEMP2"
^XMB(3.9,41,2,7785,0)="""RTN"",""HLOPBLD"",42,0)"
^XMB(3.9,41,2,7786,0)=" ...S LAST=COMP"
^XMB(3.9,41,2,7787,0)="""RTN"",""HLOPBLD"",43,0)"
^XMB(3.9,41,2,7788,0)=" ...;"
^XMB(3.9,41,2,7789,0)="""RTN"",""HLOPBLD"",44,0)"
^XMB(3.9,41,2,7790,0)=" ...N SUBCOMP,LAST"
^XMB(3.9,41,2,7791,0)="""RTN"",""HLOPBLD"",45,0)"
^XMB(3.9,41,2,7792,0)=" ...S LAST=0"
^XMB(3.9,41,2,7793,0)="""RTN"",""HLOPBLD"",46,0)"
^XMB(3.9,41,2,7794,0)=" ...F  S SUBCOMP=$O(SEG(SEQ,REP,COMP,LAST)) Q:'SUBCOMP  D"
^XMB(3.9,41,2,7795,0)="""RTN"",""HLOPBLD"",47,0)"
^XMB(3.9,41,2,7796,0)=" ....N VALUE"
^XMB(3.9,41,2,7797,0)="""RTN"",""HLOPBLD"",48,0)"
^XMB(3.9,41,2,7798,0)=" ....S TEMP2="""",$P(TEMP2,$E(HLMSTATE(""HDR"",""ENCODING CHARACTERS""),4),$S(LAST=0:SUBCOMP,1:SUBCOMP-LAST+1))="""""
^XMB(3.9,41,2,7799,0)="""RTN"",""HLOPBLD"",49,0)"
^XMB(3.9,41,2,7800,0)=" ....S VALUE=$G(SEG(SEQ,REP,COMP,SUBCOMP))"
^XMB(3.9,41,2,7801,0)="""RTN"",""HLOPBLD"",50,0)"
^XMB(3.9,41,2,7802,0)=" ....K SEG(SEQ,REP,COMP,SUBCOMP)"
^XMB(3.9,41,2,7803,0)="""RTN"",""HLOPBLD"",51,0)"
^XMB(3.9,41,2,7804,0)=" ....S:((SEGTYPE'=""MSH"")&(SEGTYPE'=""BHS""))!(SEQ'=2) VALUE=$$ESCAPE(.HLMSTATE,VALUE)"
^XMB(3.9,41,2,7805,0)="""RTN"",""HLOPBLD"",52,0)"
^XMB(3.9,41,2,7806,0)=" ....S TEMP2=TEMP2_VALUE"
^XMB(3.9,41,2,7807,0)="""RTN"",""HLOPBLD"",53,0)"
^XMB(3.9,41,2,7808,0)=" ....S TEMP1=TEMP1_TEMP2"
^XMB(3.9,41,2,7809,0)="""RTN"",""HLOPBLD"",54,0)"
^XMB(3.9,41,2,7810,0)=" ....I $L(LINE)+$L(TEMP1)<MAX D"
^XMB(3.9,41,2,7811,0)="""RTN"",""HLOPBLD"",55,0)"
^XMB(3.9,41,2,7812,0)=" .....S LINE=LINE_TEMP1"
^XMB(3.9,41,2,7813,0)="""RTN"",""HLOPBLD"",56,0)"
^XMB(3.9,41,2,7814,0)=" ....E  D"
^XMB(3.9,41,2,7815,0)="""RTN"",""HLOPBLD"",57,0)"
^XMB(3.9,41,2,7816,0)=" .....D ADDLINE(.TOARY,LINE_$E(TEMP1,1,MAX-$L(LINE)),.COUNT)"
^XMB(3.9,41,2,7817,0)="""RTN"",""HLOPBLD"",58,0)"
^XMB(3.9,41,2,7818,0)=" .....S LINE=$E(TEMP1,MAX-$L(LINE)+1,MAX+100)"
^XMB(3.9,41,2,7819,0)="""RTN"",""HLOPBLD"",59,0)"
^XMB(3.9,41,2,7820,0)=" ....S TEMP1="""""
^XMB(3.9,41,2,7821,0)="""RTN"",""HLOPBLD"",60,0)"
^XMB(3.9,41,2,7822,0)=" ....S LAST=SUBCOMP"
^XMB(3.9,41,2,7823,0)="""RTN"",""HLOPBLD"",61,0)"
^XMB(3.9,41,2,7824,0)=" I $L(LINE) D ADDLINE(.TOARY,LINE,.COUNT)"
^XMB(3.9,41,2,7825,0)="""RTN"",""HLOPBLD"",62,0)"
^XMB(3.9,41,2,7826,0)=" K SEG"
^XMB(3.9,41,2,7827,0)="""RTN"",""HLOPBLD"",63,0)"
^XMB(3.9,41,2,7828,0)=" Q 1"
^XMB(3.9,41,2,7829,0)="""RTN"",""HLOPBLD"",64,0)"
^XMB(3.9,41,2,7830,0)=" ;"
^XMB(3.9,41,2,7831,0)="""RTN"",""HLOPBLD"",65,0)"
^XMB(3.9,41,2,7832,0)="ADDLINE(TOARY,LINE,COUNT) ;"
^XMB(3.9,41,2,7833,0)="""RTN"",""HLOPBLD"",66,0)"
^XMB(3.9,41,2,7834,0)=" S COUNT=COUNT+1"
^XMB(3.9,41,2,7835,0)="""RTN"",""HLOPBLD"",67,0)"
^XMB(3.9,41,2,7836,0)=" S TOARY(COUNT)=LINE"
^XMB(3.9,41,2,7837,0)="""RTN"",""HLOPBLD"",68,0)"
^XMB(3.9,41,2,7838,0)=" Q"
^XMB(3.9,41,2,7839,0)="""RTN"",""HLOPBLD"",69,0)"
^XMB(3.9,41,2,7840,0)=" ;"
^XMB(3.9,41,2,7841,0)="""RTN"",""HLOPBLD"",70,0)"
^XMB(3.9,41,2,7842,0)="ESCAPE(HLMSTATE,VALUE) ;"
^XMB(3.9,41,2,7843,0)="""RTN"",""HLOPBLD"",71,0)"
^XMB(3.9,41,2,7844,0)=" ;Replaces the HL7 encoding characters with the corresponding escape sequences and returns the result as the function value"
^XMB(3.9,41,2,7845,0)="""RTN"",""HLOPBLD"",72,0)"
^XMB(3.9,41,2,7846,0)=" ;"
^XMB(3.9,41,2,7847,0)="""RTN"",""HLOPBLD"",73,0)"
^XMB(3.9,41,2,7848,0)=" N ESC,CHARS,I,NEWVALUE,LEN,CUR"
^XMB(3.9,41,2,7849,0)="""RTN"",""HLOPBLD"",74,0)"
^XMB(3.9,41,2,7850,0)=" S CHARS=HLMSTATE(""HDR"",""ENCODING CHARACTERS"")"
^XMB(3.9,41,2,7851,0)="""RTN"",""HLOPBLD"",75,0)"
^XMB(3.9,41,2,7852,0)=" S ESC=$E(CHARS,3)"
^XMB(3.9,41,2,7853,0)="""RTN"",""HLOPBLD"",76,0)"
^XMB(3.9,41,2,7854,0)=" S NEWVALUE="""",LEN=$L(VALUE)"
^XMB(3.9,41,2,7855,0)="""RTN"",""HLOPBLD"",77,0)"
^XMB(3.9,41,2,7856,0)=" F I=1:1:LEN D"
^XMB(3.9,41,2,7857,0)="""RTN"",""HLOPBLD"",78,0)"
^XMB(3.9,41,2,7858,0)=" .S CUR=$E(VALUE,I)"
^XMB(3.9,41,2,7859,0)="""RTN"",""HLOPBLD"",79,0)"
^XMB(3.9,41,2,7860,0)=" .S NEWVALUE=NEWVALUE_$S(CUR=ESC:ESC_""E""_ESC,CUR=$E(CHARS,1):ESC_""S""_ESC,CUR=$E(CHARS,4):ESC_""T""_ESC,CUR=$E(CHARS,2):ESC_""R""_ESC,1:CUR)"
^XMB(3.9,41,2,7861,0)="""RTN"",""HLOPBLD"",80,0)"
^XMB(3.9,41,2,7862,0)=" Q NEWVALUE"
^XMB(3.9,41,2,7863,0)="""RTN"",""HLOPBLD"",81,0)"
^XMB(3.9,41,2,7864,0)=" ;"
^XMB(3.9,41,2,7865,0)="""RTN"",""HLOPBLD"",82,0)"
^XMB(3.9,41,2,7866,0)="REPLACE(VALUE,CHAR,STRING) ;"
^XMB(3.9,41,2,7867,0)="""RTN"",""HLOPBLD"",83,0)"
^XMB(3.9,41,2,7868,0)=" ;Takes the input string=VALUE and replaces each instance of the character"
^XMB(3.9,41,2,7869,0)="""RTN"",""HLOPBLD"",84,0)"
^XMB(3.9,41,2,7870,0)=" ;=CHAR with the string=STRING and returns the resultant string"
^XMB(3.9,41,2,7871,0)="""RTN"",""HLOPBLD"",85,0)"
^XMB(3.9,41,2,7872,0)=" ;as the function value"
^XMB(3.9,41,2,7873,0)="""RTN"",""HLOPBLD"",86,0)"
^XMB(3.9,41,2,7874,0)=" ;"
^XMB(3.9,41,2,7875,0)="""RTN"",""HLOPBLD"",87,0)"
^XMB(3.9,41,2,7876,0)=" N I,NEWVALUE,CURCHAR"
^XMB(3.9,41,2,7877,0)="""RTN"",""HLOPBLD"",88,0)"
^XMB(3.9,41,2,7878,0)=" S NEWVALUE="""""
^XMB(3.9,41,2,7879,0)="""RTN"",""HLOPBLD"",89,0)"
^XMB(3.9,41,2,7880,0)=" F I=1:1:$L(VALUE) D"
^XMB(3.9,41,2,7881,0)="""RTN"",""HLOPBLD"",90,0)"
^XMB(3.9,41,2,7882,0)=" .S CURCHAR=$E(VALUE,I)"
^XMB(3.9,41,2,7883,0)="""RTN"",""HLOPBLD"",91,0)"
^XMB(3.9,41,2,7884,0)=" .S NEWVALUE=NEWVALUE_$S(CURCHAR=CHAR:STRING,1:CURCHAR)"
^XMB(3.9,41,2,7885,0)="""RTN"",""HLOPBLD"",92,0)"
^XMB(3.9,41,2,7886,0)=" Q NEWVALUE"
^XMB(3.9,41,2,7887,0)="""RTN"",""HLOPBLD1"")"
^XMB(3.9,41,2,7888,0)="0^26^B18903926"
^XMB(3.9,41,2,7889,0)="""RTN"",""HLOPBLD1"",1,0)"
^XMB(3.9,41,2,7890,0)="HLOPBLD1 ;ALB/CJM-HL7 - Building segments (CONTINUED) ;02/04/2004"
^XMB(3.9,41,2,7891,0)="""RTN"",""HLOPBLD1"",2,0)"
^XMB(3.9,41,2,7892,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995"
^XMB(3.9,41,2,7893,0)="""RTN"",""HLOPBLD1"",3,0)"
^XMB(3.9,41,2,7894,0)=" ;"
^XMB(3.9,41,2,7895,0)="""RTN"",""HLOPBLD1"",4,0)"
^XMB(3.9,41,2,7896,0)="BUILDHDR(HLMSTATE,TYPE,HDR) ;Builds the header segment in 2 lines, line 1 is components 1-6"
^XMB(3.9,41,2,7897,0)="""RTN"",""HLOPBLD1"",5,0)"
^XMB(3.9,41,2,7898,0)=" ;Input:"
^XMB(3.9,41,2,7899,0)="""RTN"",""HLOPBLD1"",6,0)"
^XMB(3.9,41,2,7900,0)=" ;  HLMSTATE(""HDR"") - (pass by reference, required) These subscripts are used:"
^XMB(3.9,41,2,7901,0)="""RTN"",""HLOPBLD1"",7,0)"
^XMB(3.9,41,2,7902,0)=" ;    ""FIELD SEPARATOR"""
^XMB(3.9,41,2,7903,0)="""RTN"",""HLOPBLD1"",8,0)"
^XMB(3.9,41,2,7904,0)=" ;    ""ENCODING CHARACTERS"""
^XMB(3.9,41,2,7905,0)="""RTN"",""HLOPBLD1"",9,0)"
^XMB(3.9,41,2,7906,0)=" ;    ""SENDING APPLICATION"""
^XMB(3.9,41,2,7907,0)="""RTN"",""HLOPBLD1"",10,0)"
^XMB(3.9,41,2,7908,0)=" ;    ""RECEIVING APPLICATION"""
^XMB(3.9,41,2,7909,0)="""RTN"",""HLOPBLD1"",11,0)"
^XMB(3.9,41,2,7910,0)=" ;    ""RECEIVING FACILITY"",1  and ,2  and ,3"
^XMB(3.9,41,2,7911,0)="""RTN"",""HLOPBLD1"",12,0)"
^XMB(3.9,41,2,7912,0)=" ;    ""DT/TM OF MESSAGE"""
^XMB(3.9,41,2,7913,0)="""RTN"",""HLOPBLD1"",13,0)"
^XMB(3.9,41,2,7914,0)=" ;    ""SECURITY"""
^XMB(3.9,41,2,7915,0)="""RTN"",""HLOPBLD1"",14,0)"
^XMB(3.9,41,2,7916,0)=" ;    ""ACCEPT ACK TYPE"""
^XMB(3.9,41,2,7917,0)="""RTN"",""HLOPBLD1"",15,0)"
^XMB(3.9,41,2,7918,0)=" ;    ""APP ACK TYPE"""
^XMB(3.9,41,2,7919,0)="""RTN"",""HLOPBLD1"",16,0)"
^XMB(3.9,41,2,7920,0)=" ;    ""PROCESSING ID"""
^XMB(3.9,41,2,7921,0)="""RTN"",""HLOPBLD1"",17,0)"
^XMB(3.9,41,2,7922,0)=" ;"
^XMB(3.9,41,2,7923,0)="""RTN"",""HLOPBLD1"",18,0)"
^XMB(3.9,41,2,7924,0)=" ;     *MSH ONLY*"
^XMB(3.9,41,2,7925,0)="""RTN"",""HLOPBLD1"",19,0)"
^XMB(3.9,41,2,7926,0)=" ;    ""CONTINUATION POINTER"""
^XMB(3.9,41,2,7927,0)="""RTN"",""HLOPBLD1"",20,0)"
^XMB(3.9,41,2,7928,0)=" ;    ""COUNTRY"""
^XMB(3.9,41,2,7929,0)="""RTN"",""HLOPBLD1"",21,0)"
^XMB(3.9,41,2,7930,0)=" ;    ""EVENT"""
^XMB(3.9,41,2,7931,0)="""RTN"",""HLOPBLD1"",22,0)"
^XMB(3.9,41,2,7932,0)=" ;    ""MESSAGE STRUCTURE"""
^XMB(3.9,41,2,7933,0)="""RTN"",""HLOPBLD1"",23,0)"
^XMB(3.9,41,2,7934,0)=" ;    ""MESSAGE TYPE"""
^XMB(3.9,41,2,7935,0)="""RTN"",""HLOPBLD1"",24,0)"
^XMB(3.9,41,2,7936,0)=" ;    ""PROCESSING MODE"""
^XMB(3.9,41,2,7937,0)="""RTN"",""HLOPBLD1"",25,0)"
^XMB(3.9,41,2,7938,0)=" ;    ""VERSION"""
^XMB(3.9,41,2,7939,0)="""RTN"",""HLOPBLD1"",26,0)"
^XMB(3.9,41,2,7940,0)=" ;"
^XMB(3.9,41,2,7941,0)="""RTN"",""HLOPBLD1"",27,0)"
^XMB(3.9,41,2,7942,0)=" ;    *BHS ONLY*"
^XMB(3.9,41,2,7943,0)="""RTN"",""HLOPBLD1"",28,0)"
^XMB(3.9,41,2,7944,0)=" ;    ""REFERENCE BATCH CONTROL ID"""
^XMB(3.9,41,2,7945,0)="""RTN"",""HLOPBLD1"",29,0)"
^XMB(3.9,41,2,7946,0)=" ;"
^XMB(3.9,41,2,7947,0)="""RTN"",""HLOPBLD1"",30,0)"
^XMB(3.9,41,2,7948,0)=" ;  HLMSTATE(""BATCH"")"
^XMB(3.9,41,2,7949,0)="""RTN"",""HLOPBLD1"",31,0)"
^XMB(3.9,41,2,7950,0)=" ;  HLMSTATE(""BATCH"",""CURRENT MESSAGE"") - batch messages only"
^XMB(3.9,41,2,7951,0)="""RTN"",""HLOPBLD1"",32,0)"
^XMB(3.9,41,2,7952,0)=" ;  HLMSTATE(""IEN"") - ien, file 778"
^XMB(3.9,41,2,7953,0)="""RTN"",""HLOPBLD1"",33,0)"
^XMB(3.9,41,2,7954,0)=" ;"
^XMB(3.9,41,2,7955,0)="""RTN"",""HLOPBLD1"",34,0)"
^XMB(3.9,41,2,7956,0)=" ;  TYPE - must be either ""MSH"" or ""BHS"""
^XMB(3.9,41,2,7957,0)="""RTN"",""HLOPBLD1"",35,0)"
^XMB(3.9,41,2,7958,0)=" ;"
^XMB(3.9,41,2,7959,0)="""RTN"",""HLOPBLD1"",36,0)"
^XMB(3.9,41,2,7960,0)=" ;Output:"
^XMB(3.9,41,2,7961,0)="""RTN"",""HLOPBLD1"",37,0)"
^XMB(3.9,41,2,7962,0)=" ;  HLMSTATE(""HDR"") - these subscripts will be added, unless building an MSH within a batch:"
^XMB(3.9,41,2,7963,0)="""RTN"",""HLOPBLD1"",38,0)"
^XMB(3.9,41,2,7964,0)=" ;     ""SENDING FACILITY"",1  and ,2   and ,3"
^XMB(3.9,41,2,7965,0)="""RTN"",""HLOPBLD1"",39,0)"
^XMB(3.9,41,2,7966,0)=" ;     ""PROCESSING ID"""
^XMB(3.9,41,2,7967,0)="""RTN"",""HLOPBLD1"",40,0)"
^XMB(3.9,41,2,7968,0)=" ;     ""MESSAGE CONTROL ID""   (MSH ONLY)"
^XMB(3.9,41,2,7969,0)="""RTN"",""HLOPBLD1"",41,0)"
^XMB(3.9,41,2,7970,0)=" ;     ""BATCH CONTROL ID""     (BHS ONLY)"
^XMB(3.9,41,2,7971,0)="""RTN"",""HLOPBLD1"",42,0)"
^XMB(3.9,41,2,7972,0)=" ;     ""DT/TM OF MESSAGE"""
^XMB(3.9,41,2,7973,0)="""RTN"",""HLOPBLD1"",43,0)"
^XMB(3.9,41,2,7974,0)=" ;  HDR (pass by reference) This will return the segment in an array form at HDR(1),HDR(2) (two lines)."
^XMB(3.9,41,2,7975,0)="""RTN"",""HLOPBLD1"",44,0)"
^XMB(3.9,41,2,7976,0)=" ;"
^XMB(3.9,41,2,7977,0)="""RTN"",""HLOPBLD1"",45,0)"
^XMB(3.9,41,2,7978,0)=" K HDR"
^XMB(3.9,41,2,7979,0)="""RTN"",""HLOPBLD1"",46,0)"
^XMB(3.9,41,2,7980,0)=" N SEG,BATCH,LEN,FS,CS"
^XMB(3.9,41,2,7981,0)="""RTN"",""HLOPBLD1"",47,0)"
^XMB(3.9,41,2,7982,0)=" ;"
^XMB(3.9,41,2,7983,0)="""RTN"",""HLOPBLD1"",48,0)"
^XMB(3.9,41,2,7984,0)=" ;shortcuts"
^XMB(3.9,41,2,7985,0)="""RTN"",""HLOPBLD1"",49,0)"
^XMB(3.9,41,2,7986,0)=" S HDR=""HLMSTATE(""""HDR"""")"""
^XMB(3.9,41,2,7987,0)="""RTN"",""HLOPBLD1"",50,0)"
^XMB(3.9,41,2,7988,0)=" S BATCH=HLMSTATE(""BATCH"")"
^XMB(3.9,41,2,7989,0)="""RTN"",""HLOPBLD1"",51,0)"
^XMB(3.9,41,2,7990,0)=" S FS=@HDR@(""FIELD SEPARATOR"")"
^XMB(3.9,41,2,7991,0)="""RTN"",""HLOPBLD1"",52,0)"
^XMB(3.9,41,2,7992,0)=" S CS=$E(@HDR@(""ENCODING CHARACTERS""),1)"
^XMB(3.9,41,2,7993,0)="""RTN"",""HLOPBLD1"",53,0)"
^XMB(3.9,41,2,7994,0)=" ;"
^XMB(3.9,41,2,7995,0)="""RTN"",""HLOPBLD1"",54,0)"
^XMB(3.9,41,2,7996,0)=" S HDR(1)=TYPE_FS_@HDR@(""ENCODING CHARACTERS"")_FS_$$ESCAPE^HLOPBLD(.HLMSTATE,$G(@HDR@(""SENDING APPLICATION"")))"
^XMB(3.9,41,2,7997,0)="""RTN"",""HLOPBLD1"",55,0)"
^XMB(3.9,41,2,7998,0)=" ;"
^XMB(3.9,41,2,7999,0)="""RTN"",""HLOPBLD1"",56,0)"
^XMB(3.9,41,2,8000,0)=" ;If building an MSH segment for a batch message, these parameters should already be determined"
^XMB(3.9,41,2,8001,0)="""RTN"",""HLOPBLD1"",57,0)"
^XMB(3.9,41,2,8002,0)=" D:(('HLMSTATE(""BATCH""))!(TYPE=""BHS""))"
^XMB(3.9,41,2,8003,0)="""RTN"",""HLOPBLD1"",58,0)"
^XMB(3.9,41,2,8004,0)=" .N PORT"
^XMB(3.9,41,2,8005,0)="""RTN"",""HLOPBLD1"",59,0)"
^XMB(3.9,41,2,8006,0)=" .S PORT=$$RTRNPORT^HLOAPP($G(@HDR@(""SENDING APPLICATION"")))"
^XMB(3.9,41,2,8007,0)="""RTN"",""HLOPBLD1"",60,0)"
^XMB(3.9,41,2,8008,0)=" .S:'PORT PORT=HLMSTATE(""SYSTEM"",""PORT"")"
^XMB(3.9,41,2,8009,0)="""RTN"",""HLOPBLD1"",61,0)"
^XMB(3.9,41,2,8010,0)=" .S @HDR@(""SENDING FACILITY"",1)=HLMSTATE(""SYSTEM"",""STATION"")"
^XMB(3.9,41,2,8011,0)="""RTN"",""HLOPBLD1"",62,0)"
^XMB(3.9,41,2,8012,0)=" .S @HDR@(""SENDING FACILITY"",2)=HLMSTATE(""SYSTEM"",""DOMAIN"")_"":""_PORT"
^XMB(3.9,41,2,8013,0)="""RTN"",""HLOPBLD1"",63,0)"
^XMB(3.9,41,2,8014,0)=" .S @HDR@(""SENDING FACILITY"",3)=""DNS"""
^XMB(3.9,41,2,8015,0)="""RTN"",""HLOPBLD1"",64,0)"
^XMB(3.9,41,2,8016,0)=" .;"
^XMB(3.9,41,2,8017,0)="""RTN"",""HLOPBLD1"",65,0)"
^XMB(3.9,41,2,8018,0)=" .;create the unique message ids, using the ien from file 778"
^XMB(3.9,41,2,8019,0)="""RTN"",""HLOPBLD1"",66,0)"
^XMB(3.9,41,2,8020,0)=" .S:TYPE=""BHS"" @HDR@(""BATCH CONTROL ID"")=HLMSTATE(""SYSTEM"",""STATION"")_"" ""_HLMSTATE(""IEN"")"
^XMB(3.9,41,2,8021,0)="""RTN"",""HLOPBLD1"",67,0)"
^XMB(3.9,41,2,8022,0)=" .S:TYPE=""MSH"" @HDR@(""MESSAGE CONTROL ID"")=HLMSTATE(""SYSTEM"",""STATION"")_"" ""_HLMSTATE(""IEN"")"
^XMB(3.9,41,2,8023,0)="""RTN"",""HLOPBLD1"",68,0)"
^XMB(3.9,41,2,8024,0)=" .;"
^XMB(3.9,41,2,8025,0)="""RTN"",""HLOPBLD1"",69,0)"
^XMB(3.9,41,2,8026,0)=" .S @HDR@(""PROCESSING ID"")=HLMSTATE(""SYSTEM"",""PROCESSING ID"")"
^XMB(3.9,41,2,8027,0)="""RTN"",""HLOPBLD1"",70,0)"
^XMB(3.9,41,2,8028,0)=" .S @HDR@(""DT/TM OF MESSAGE"")=$$HLDATE^HLFNC($$NOW^XLFDT,""TS"")"
^XMB(3.9,41,2,8029,0)="""RTN"",""HLOPBLD1"",71,0)"
^XMB(3.9,41,2,8030,0)=" ;"
^XMB(3.9,41,2,8031,0)="""RTN"",""HLOPBLD1"",72,0)"
^XMB(3.9,41,2,8032,0)=" S HDR(1)=HDR(1)_FS_$G(@HDR@(""SENDING FACILITY"",1))_CS_$$ESCAPE^HLOPBLD(.HLMSTATE,$G(@HDR@(""SENDING FACILITY"",2)))_CS_""DNS"""
^XMB(3.9,41,2,8033,0)="""RTN"",""HLOPBLD1"",73,0)"
^XMB(3.9,41,2,8034,0)=" S HDR(1)=HDR(1)_FS_$$ESCAPE^HLOPBLD(.HLMSTATE,@HDR@(""RECEIVING APPLICATION""))_FS_$G(@HDR@(""RECEIVING FACILITY"",1))_CS_$$ESCAPE^HLOPBLD(.HLMSTATE,@HDR@(""RECEIVING FACILITY"",2))_CS_@HDR@(""RECEIVING FACILITY"",3)"
^XMB(3.9,41,2,8035,0)="""RTN"",""HLOPBLD1"",74,0)"
^XMB(3.9,41,2,8036,0)=" S HDR(2)=FS_@HDR@(""DT/TM OF MESSAGE"")_FS_$$ESCAPE^HLOPBLD(.HLMSTATE,$G(@HDR@(""SECURITY"")))"
^XMB(3.9,41,2,8037,0)="""RTN"",""HLOPBLD1"",75,0)"
^XMB(3.9,41,2,8038,0)=" ;"
^XMB(3.9,41,2,8039,0)="""RTN"",""HLOPBLD1"",76,0)"
^XMB(3.9,41,2,8040,0)=" I TYPE=""MSH"" D"
^XMB(3.9,41,2,8041,0)="""RTN"",""HLOPBLD1"",77,0)"
^XMB(3.9,41,2,8042,0)=" .N ID"
^XMB(3.9,41,2,8043,0)="""RTN"",""HLOPBLD1"",78,0)"
^XMB(3.9,41,2,8044,0)=" .S HDR(2)=HDR(2)_FS_@HDR@(""MESSAGE TYPE"")_CS_@HDR@(""EVENT"")_CS_$G(@HDR@(""MESSAGE STRUCTURE""))"
^XMB(3.9,41,2,8045,0)="""RTN"",""HLOPBLD1"",79,0)"
^XMB(3.9,41,2,8046,0)=" .S:BATCH ID=@HDR@(""BATCH CONTROL ID"")_$$ESCAPE^HLOPBLD(.HLMSTATE,""-"")_$G(HLMSTATE(""BATCH"",""CURRENT MESSAGE""))"
^XMB(3.9,41,2,8047,0)="""RTN"",""HLOPBLD1"",80,0)"
^XMB(3.9,41,2,8048,0)=" .S:'BATCH ID=@HDR@(""MESSAGE CONTROL ID"")"
^XMB(3.9,41,2,8049,0)="""RTN"",""HLOPBLD1"",81,0)"
^XMB(3.9,41,2,8050,0)=" .S HDR(2)=HDR(2)_FS_ID_FS_@HDR@(""PROCESSING ID"")_CS_$G(@HDR@(""PROCESSING MODE""))_FS_$$ESCAPE^HLOPBLD(.HLMSTATE,@HDR@(""VERSION""))"
^XMB(3.9,41,2,8051,0)="""RTN"",""HLOPBLD1"",82,0)"
^XMB(3.9,41,2,8052,0)=" .S HDR(2)=HDR(2)_FS_FS_$G(@HDR@(""CONTINUATION POINTER""))_FS_@HDR@(""ACCEPT ACK TYPE"")_FS_@HDR@(""APP ACK TYPE"")_FS_$G(@HDR@(""COUNTRY""))"
^XMB(3.9,41,2,8053,0)="""RTN"",""HLOPBLD1"",83,0)"
^XMB(3.9,41,2,8054,0)=" ;"
^XMB(3.9,41,2,8055,0)="""RTN"",""HLOPBLD1"",84,0)"
^XMB(3.9,41,2,8056,0)=" I TYPE=""BHS"" D"
^XMB(3.9,41,2,8057,0)="""RTN"",""HLOPBLD1"",85,0)"
^XMB(3.9,41,2,8058,0)=" .N TEXT"
^XMB(3.9,41,2,8059,0)="""RTN"",""HLOPBLD1"",86,0)"
^XMB(3.9,41,2,8060,0)=" .S TEXT=""PROCESSING ID""_$$ESCAPE^HLOPBLD(.HLMSTATE,""="")_@HDR@(""PROCESSING ID"")_"" """
^XMB(3.9,41,2,8061,0)="""RTN"",""HLOPBLD1"",87,0)"
^XMB(3.9,41,2,8062,0)=" .I $L($G(@HDR@(""ACCEPT ACK TYPE""))) S TEXT=TEXT_""ACCEPT ACK TYPE""_$$ESCAPE^HLOPBLD(.HLMSTATE,""="")_@HDR@(""ACCEPT ACK TYPE"")_"" """
^XMB(3.9,41,2,8063,0)="""RTN"",""HLOPBLD1"",88,0)"
^XMB(3.9,41,2,8064,0)=" .I $L($G(@HDR@(""APP ACK TYPE""))) S TEXT=TEXT_""APP ACK TYPE""_$$ESCAPE^HLOPBLD(.HLMSTATE,""="")_@HDR@(""APP ACK TYPE"")_"" """
^XMB(3.9,41,2,8065,0)="""RTN"",""HLOPBLD1"",89,0)"
^XMB(3.9,41,2,8066,0)=" .S HDR(2)=HDR(2)_FS_TEXT_FS_FS_@HDR@(""BATCH CONTROL ID"")_FS_$G(@HDR@(""REFERENCE BATCH CONTROL ID""))"
^XMB(3.9,41,2,8067,0)="""RTN"",""HLOPBLD1"",90,0)"
^XMB(3.9,41,2,8068,0)=" Q"
^XMB(3.9,41,2,8069,0)="""RTN"",""HLOPOST"")"
^XMB(3.9,41,2,8070,0)="0^27^B3878072"
^XMB(3.9,41,2,8071,0)="""RTN"",""HLOPOST"",1,0)"
^XMB(3.9,41,2,8072,0)="HLOPOST ;IRMFO-ALB/CJM -Post-Install routine for HLO;03/24/2004  14:43"
^XMB(3.9,41,2,8073,0)="""RTN"",""HLOPOST"",2,0)"
^XMB(3.9,41,2,8074,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995"
^XMB(3.9,41,2,8075,0)="""RTN"",""HLOPOST"",3,0)"
^XMB(3.9,41,2,8076,0)=" ;"
^XMB(3.9,41,2,8077,0)="""RTN"",""HLOPOST"",4,0)"
^XMB(3.9,41,2,8078,0)=" N SYSTEM,DATA,VASITE,OLDSITE"
^XMB(3.9,41,2,8079,0)="""RTN"",""HLOPOST"",5,0)"
^XMB(3.9,41,2,8080,0)=" D IDXLINKS"
^XMB(3.9,41,2,8081,0)="""RTN"",""HLOPOST"",6,0)"
^XMB(3.9,41,2,8082,0)=" D SYSPARMS^HLOSITE(.SYSTEM)"
^XMB(3.9,41,2,8083,0)="""RTN"",""HLOPOST"",7,0)"
^XMB(3.9,41,2,8084,0)=" S VASITE=$$SITE^VASITE"
^XMB(3.9,41,2,8085,0)="""RTN"",""HLOPOST"",8,0)"
^XMB(3.9,41,2,8086,0)=" S OLDSITE=$G(^HLCS(869.3,1,0))"
^XMB(3.9,41,2,8087,0)="""RTN"",""HLOPOST"",9,0)"
^XMB(3.9,41,2,8088,0)=" S DATA(.01)=SYSTEM(""DOMAIN"")"
^XMB(3.9,41,2,8089,0)="""RTN"",""HLOPOST"",10,0)"
^XMB(3.9,41,2,8090,0)=" I DATA(.01)="""" D"
^XMB(3.9,41,2,8091,0)="""RTN"",""HLOPOST"",11,0)"
^XMB(3.9,41,2,8092,0)=" .I $P(OLDSITE,""^"",2) S DATA(.01)=""HL7.""_$P($G(^DIC(4.2,$P(OLDSITE,""^"",2),0)),""^"")"
^XMB(3.9,41,2,8093,0)="""RTN"",""HLOPOST"",12,0)"
^XMB(3.9,41,2,8094,0)=" I DATA(.01)="""" D"
^XMB(3.9,41,2,8095,0)="""RTN"",""HLOPOST"",13,0)"
^XMB(3.9,41,2,8096,0)=" .N INST,DOMAIN"
^XMB(3.9,41,2,8097,0)="""RTN"",""HLOPOST"",14,0)"
^XMB(3.9,41,2,8098,0)=" .S INST=$P(VASITE,""^"")"
^XMB(3.9,41,2,8099,0)="""RTN"",""HLOPOST"",15,0)"
^XMB(3.9,41,2,8100,0)=" .Q:'INST"
^XMB(3.9,41,2,8101,0)="""RTN"",""HLOPOST"",16,0)"
^XMB(3.9,41,2,8102,0)=" .S DOMAIN=$P($G(^DIC(4,INST,6)),""^"")"
^XMB(3.9,41,2,8103,0)="""RTN"",""HLOPOST"",17,0)"
^XMB(3.9,41,2,8104,0)=" .I DOMAIN S DOMAIN=$P($G(^DIC(4.2,DOMAIN,0)),""^"") I DOMAIN'="""" S DATA(.01)=""HL7.""_DOMAIN"
^XMB(3.9,41,2,8105,0)="""RTN"",""HLOPOST"",18,0)"
^XMB(3.9,41,2,8106,0)=" I DATA(.01)="""" D BMES^XPDUTL(""Post-Install failed, system missing INSTITUTION or DOMAIN file entry"") Q"
^XMB(3.9,41,2,8107,0)="""RTN"",""HLOPOST"",19,0)"
^XMB(3.9,41,2,8108,0)=" S DATA(.02)=SYSTEM(""STATION"")"
^XMB(3.9,41,2,8109,0)="""RTN"",""HLOPOST"",20,0)"
^XMB(3.9,41,2,8110,0)=" I DATA(.02)="""",$P(OLDSITE,""^"",4) S DATA(.02)=$P($G(^DIC(4,$P(OLDSITE,""^"",4),99)),""^"")"
^XMB(3.9,41,2,8111,0)="""RTN"",""HLOPOST"",21,0)"
^XMB(3.9,41,2,8112,0)=" I DATA(.02)="""" S DATA(.02)=$P(VASITE,""^"",3)"
^XMB(3.9,41,2,8113,0)="""RTN"",""HLOPOST"",22,0)"
^XMB(3.9,41,2,8114,0)=" S DATA(.03)=$P(OLDSITE,""^"",3)"
^XMB(3.9,41,2,8115,0)="""RTN"",""HLOPOST"",23,0)"
^XMB(3.9,41,2,8116,0)=" S DATA(.04)=SYSTEM(""MAXSTRING"")"
^XMB(3.9,41,2,8117,0)="""RTN"",""HLOPOST"",24,0)"
^XMB(3.9,41,2,8118,0)=" S DATA(.05)=SYSTEM(""HL7 BUFFER"")"
^XMB(3.9,41,2,8119,0)="""RTN"",""HLOPOST"",25,0)"
^XMB(3.9,41,2,8120,0)=" S DATA(.06)=SYSTEM(""USER BUFFER"")"
^XMB(3.9,41,2,8121,0)="""RTN"",""HLOPOST"",26,0)"
^XMB(3.9,41,2,8122,0)=" S DATA(.07)=SYSTEM(""NORMAL PURGE"")"
^XMB(3.9,41,2,8123,0)="""RTN"",""HLOPOST"",27,0)"
^XMB(3.9,41,2,8124,0)=" S DATA(.08)=SYSTEM(""ERROR PURGE"")"
^XMB(3.9,41,2,8125,0)="""RTN"",""HLOPOST"",28,0)"
^XMB(3.9,41,2,8126,0)=" I $D(^HLD(779.1,1,0)) D"
^XMB(3.9,41,2,8127,0)="""RTN"",""HLOPOST"",29,0)"
^XMB(3.9,41,2,8128,0)=" .N ERROR"
^XMB(3.9,41,2,8129,0)="""RTN"",""HLOPOST"",30,0)"
^XMB(3.9,41,2,8130,0)=" .I '$$UPD^HLOASUB1(779.1,1,.DATA,.ERROR) D BMES^XPDUTL(""Post-Install failed -""_$G(ERROR))"
^XMB(3.9,41,2,8131,0)="""RTN"",""HLOPOST"",31,0)"
^XMB(3.9,41,2,8132,0)=" E  D"
^XMB(3.9,41,2,8133,0)="""RTN"",""HLOPOST"",32,0)"
^XMB(3.9,41,2,8134,0)=" .N ERROR"
^XMB(3.9,41,2,8135,0)="""RTN"",""HLOPOST"",33,0)"
^XMB(3.9,41,2,8136,0)=" .I '$$ADD^HLOASUB1(779.1,,.DATA,.ERROR,1) D BMES^XPDUTL(""Post-Install failed -""_$G(ERROR))"
^XMB(3.9,41,2,8137,0)="""RTN"",""HLOPOST"",34,0)"
^XMB(3.9,41,2,8138,0)=" Q"
^XMB(3.9,41,2,8139,0)="""RTN"",""HLOPOST"",35,0)"
^XMB(3.9,41,2,8140,0)="IDXLINKS ;"
^XMB(3.9,41,2,8141,0)="""RTN"",""HLOPOST"",36,0)"
^XMB(3.9,41,2,8142,0)=" ;set the ""AC"" and ""AD"" indicies on the HL Logical Link file"
^XMB(3.9,41,2,8143,0)="""RTN"",""HLOPOST"",37,0)"
^XMB(3.9,41,2,8144,0)=" N DIK"
^XMB(3.9,41,2,8145,0)="""RTN"",""HLOPOST"",38,0)"
^XMB(3.9,41,2,8146,0)=" S DIK=""^HLCS(870,"""
^XMB(3.9,41,2,8147,0)="""RTN"",""HLOPOST"",39,0)"
^XMB(3.9,41,2,8148,0)=" S DIK(1)="".01^AC^AD^AD1^AD2"""
^XMB(3.9,41,2,8149,0)="""RTN"",""HLOPOST"",40,0)"
^XMB(3.9,41,2,8150,0)=" D ENALL^DIK"
^XMB(3.9,41,2,8151,0)="""RTN"",""HLOPOST"",41,0)"
^XMB(3.9,41,2,8152,0)=" Q"
^XMB(3.9,41,2,8153,0)="""RTN"",""HLOPROC"")"
^XMB(3.9,41,2,8154,0)="0^28^B24878795"
^XMB(3.9,41,2,8155,0)="""RTN"",""HLOPROC"",1,0)"
^XMB(3.9,41,2,8156,0)="HLOPROC ;ALB/CJM- Generic HL7 Process - 10/4/94 1pm"
^XMB(3.9,41,2,8157,0)="""RTN"",""HLOPROC"",2,0)"
^XMB(3.9,41,2,8158,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995"
^XMB(3.9,41,2,8159,0)="""RTN"",""HLOPROC"",3,0)"
^XMB(3.9,41,2,8160,0)=" ;"
^XMB(3.9,41,2,8161,0)="""RTN"",""HLOPROC"",4,0)"
^XMB(3.9,41,2,8162,0)="PROCESS ;queued entry point"
^XMB(3.9,41,2,8163,0)="""RTN"",""HLOPROC"",5,0)"
^XMB(3.9,41,2,8164,0)=" ;"
^XMB(3.9,41,2,8165,0)="""RTN"",""HLOPROC"",6,0)"
^XMB(3.9,41,2,8166,0)=" ;insure just one process manager"
^XMB(3.9,41,2,8167,0)="""RTN"",""HLOPROC"",7,0)"
^XMB(3.9,41,2,8168,0)=" I PROCNAME=""PROCESS MANAGER"" N RUNNING L +^HLTMP(PROCNAME):1 S RUNNING='$T D  Q:RUNNING"
^XMB(3.9,41,2,8169,0)="""RTN"",""HLOPROC"",8,0)"
^XMB(3.9,41,2,8170,0)=" .I 'RUNNING D"
^XMB(3.9,41,2,8171,0)="""RTN"",""HLOPROC"",9,0)"
^XMB(3.9,41,2,8172,0)=" ..D SETNM^%ZOSV($E(""HLOmgr:""_$J,1,17))"
^XMB(3.9,41,2,8173,0)="""RTN"",""HLOPROC"",10,0)"
^XMB(3.9,41,2,8174,0)=" .E  D"
^XMB(3.9,41,2,8175,0)="""RTN"",""HLOPROC"",11,0)"
^XMB(3.9,41,2,8176,0)=" ..L +HL7(""COUNTING PROCESSES""):20"
^XMB(3.9,41,2,8177,0)="""RTN"",""HLOPROC"",12,0)"
^XMB(3.9,41,2,8178,0)=" ..K:$D(ZTSK) ^HLTMP(""HL7 QUEUED PROCESSES"",ZTSK)"
^XMB(3.9,41,2,8179,0)="""RTN"",""HLOPROC"",13,0)"
^XMB(3.9,41,2,8180,0)=" ..S ^HLC(""HL7 PROCESS COUNTS"",""RUNNING"",""PROCESS MANAGER"")=1"
^XMB(3.9,41,2,8181,0)="""RTN"",""HLOPROC"",14,0)"
^XMB(3.9,41,2,8182,0)=" ..S ^HLC(""HL7 PROCESS COUNTS"",""QUEUED"",""PROCESS MANAGER"")=0"
^XMB(3.9,41,2,8183,0)="""RTN"",""HLOPROC"",15,0)"
^XMB(3.9,41,2,8184,0)=" ..L -HL7(""COUNTING PROCESSES"")"
^XMB(3.9,41,2,8185,0)="""RTN"",""HLOPROC"",16,0)"
^XMB(3.9,41,2,8186,0)=" ..S ZTREQ=""@"""
^XMB(3.9,41,2,8187,0)="""RTN"",""HLOPROC"",17,0)"
^XMB(3.9,41,2,8188,0)=" ;"
^XMB(3.9,41,2,8189,0)="""RTN"",""HLOPROC"",18,0)"
^XMB(3.9,41,2,8190,0)=" ;invoke the framework process"
^XMB(3.9,41,2,8191,0)="""RTN"",""HLOPROC"",19,0)"
^XMB(3.9,41,2,8192,0)=" D HL7PROC(PROCNAME)"
^XMB(3.9,41,2,8193,0)="""RTN"",""HLOPROC"",20,0)"
^XMB(3.9,41,2,8194,0)=" ;"
^XMB(3.9,41,2,8195,0)="""RTN"",""HLOPROC"",21,0)"
^XMB(3.9,41,2,8196,0)=" I PROCNAME=""PROCESS MANAGER"" L -^HLTMP(PROCNAME)"
^XMB(3.9,41,2,8197,0)="""RTN"",""HLOPROC"",22,0)"
^XMB(3.9,41,2,8198,0)=" S ZTREQ=""@"""
^XMB(3.9,41,2,8199,0)="""RTN"",""HLOPROC"",23,0)"
^XMB(3.9,41,2,8200,0)=" Q"
^XMB(3.9,41,2,8201,0)="""RTN"",""HLOPROC"",24,0)"
^XMB(3.9,41,2,8202,0)=" ;"
^XMB(3.9,41,2,8203,0)="""RTN"",""HLOPROC"",25,0)"
^XMB(3.9,41,2,8204,0)="HL7PROC(PROCNAME) ;"
^XMB(3.9,41,2,8205,0)="""RTN"",""HLOPROC"",26,0)"
^XMB(3.9,41,2,8206,0)=" ;This is the generic HL7 process used by all processes started under the HL7 Process Manager"
^XMB(3.9,41,2,8207,0)="""RTN"",""HLOPROC"",27,0)"
^XMB(3.9,41,2,8208,0)=" ;Input:"
^XMB(3.9,41,2,8209,0)="""RTN"",""HLOPROC"",28,0)"
^XMB(3.9,41,2,8210,0)=" ;  PROCNAME - the name of a process found in the HL7 Process Registry"
^XMB(3.9,41,2,8211,0)="""RTN"",""HLOPROC"",29,0)"
^XMB(3.9,41,2,8212,0)=" ;  OUTPUT - none"
^XMB(3.9,41,2,8213,0)="""RTN"",""HLOPROC"",30,0)"
^XMB(3.9,41,2,8214,0)=" ;"
^XMB(3.9,41,2,8215,0)="""RTN"",""HLOPROC"",31,0)"
^XMB(3.9,41,2,8216,0)=" N PROCESS,HL7STOP,WORK"
^XMB(3.9,41,2,8217,0)="""RTN"",""HLOPROC"",32,0)"
^XMB(3.9,41,2,8218,0)=" ;"
^XMB(3.9,41,2,8219,0)="""RTN"",""HLOPROC"",33,0)"
^XMB(3.9,41,2,8220,0)=" S ^HL7TMP(""HL7 PROCESS NAME"",$J)=PROCNAME"
^XMB(3.9,41,2,8221,0)="""RTN"",""HLOPROC"",34,0)"
^XMB(3.9,41,2,8222,0)=" ;"
^XMB(3.9,41,2,8223,0)="""RTN"",""HLOPROC"",35,0)"
^XMB(3.9,41,2,8224,0)=" L +HL7(""COUNTING PROCESSES""):20"
^XMB(3.9,41,2,8225,0)="""RTN"",""HLOPROC"",36,0)"
^XMB(3.9,41,2,8226,0)=" I $D(ZTQUEUED) D"
^XMB(3.9,41,2,8227,0)="""RTN"",""HLOPROC"",37,0)"
^XMB(3.9,41,2,8228,0)=" .K:$D(ZTSK) ^HLTMP(""HL7 QUEUED PROCESSES"",ZTSK)"
^XMB(3.9,41,2,8229,0)="""RTN"",""HLOPROC"",38,0)"
^XMB(3.9,41,2,8230,0)=" .I $$INC^HLOSITE($NA(^HLC(""HL7 PROCESS COUNTS"",""QUEUED"",PROCNAME)),-1)<0,$$INC^HLOSITE($NA(^HLC(""HL7 PROCESS COUNTS"",""QUEUED"",PROCNAME)))"
^XMB(3.9,41,2,8231,0)="""RTN"",""HLOPROC"",39,0)"
^XMB(3.9,41,2,8232,0)=" L +^HLTMP(""HL7 RUNNING PROCESSES"",$J):0"
^XMB(3.9,41,2,8233,0)="""RTN"",""HLOPROC"",40,0)"
^XMB(3.9,41,2,8234,0)=" I $$INC^HLOSITE($NA(^HLC(""HL7 PROCESS COUNTS"",""RUNNING"",PROCNAME)))"
^XMB(3.9,41,2,8235,0)="""RTN"",""HLOPROC"",41,0)"
^XMB(3.9,41,2,8236,0)=" S ^HLTMP(""HL7 RUNNING PROCESSES"",$J)=$H_""^""_$G(ZTSK)_""^""_PROCNAME"
^XMB(3.9,41,2,8237,0)="""RTN"",""HLOPROC"",42,0)"
^XMB(3.9,41,2,8238,0)=" L -HL7(""COUNTING PROCESSES"")"
^XMB(3.9,41,2,8239,0)="""RTN"",""HLOPROC"",43,0)"
^XMB(3.9,41,2,8240,0)=" ;"
^XMB(3.9,41,2,8241,0)="""RTN"",""HLOPROC"",44,0)"
^XMB(3.9,41,2,8242,0)=" ;"
^XMB(3.9,41,2,8243,0)="""RTN"",""HLOPROC"",45,0)"
^XMB(3.9,41,2,8244,0)=" I $$GETPROC(PROCNAME,.PROCESS),'$$CHK4STOP(.PROCESS) D"
^XMB(3.9,41,2,8245,0)="""RTN"",""HLOPROC"",46,0)"
^XMB(3.9,41,2,8246,0)=" .S $P(^HLD(779.3,PROCESS(""IEN""),0),""^"",6)=$$NOW^XLFDT"
^XMB(3.9,41,2,8247,0)="""RTN"",""HLOPROC"",47,0)"
^XMB(3.9,41,2,8248,0)=" .;"
^XMB(3.9,41,2,8249,0)="""RTN"",""HLOPROC"",48,0)"
^XMB(3.9,41,2,8250,0)=" .;should this task be made persistent?"
^XMB(3.9,41,2,8251,0)="""RTN"",""HLOPROC"",49,0)"
^XMB(3.9,41,2,8252,0)=" .I PROCESS(""PERSISTENT""),$G(ZTQUEUED),$$PSET^%ZTLOAD(ZTQUEUED)"
^XMB(3.9,41,2,8253,0)="""RTN"",""HLOPROC"",50,0)"
^XMB(3.9,41,2,8254,0)=" .;"
^XMB(3.9,41,2,8255,0)="""RTN"",""HLOPROC"",51,0)"
^XMB(3.9,41,2,8256,0)=" .S HL7STOP=0"
^XMB(3.9,41,2,8257,0)="""RTN"",""HLOPROC"",52,0)"
^XMB(3.9,41,2,8258,0)=" .F  D  Q:HL7STOP"
^XMB(3.9,41,2,8259,0)="""RTN"",""HLOPROC"",53,0)"
^XMB(3.9,41,2,8260,0)=" ..N $ETRAP,$ESTACK S $ETRAP=""G ERROR^HLOPROC"""
^XMB(3.9,41,2,8261,0)="""RTN"",""HLOPROC"",54,0)"
^XMB(3.9,41,2,8262,0)=" ..N HL7TRIES,GOTWORK"
^XMB(3.9,41,2,8263,0)="""RTN"",""HLOPROC"",55,0)"
^XMB(3.9,41,2,8264,0)=" ..F HL7TRIES=1:1 D  Q:GOTWORK  Q:HL7STOP"
^XMB(3.9,41,2,8265,0)="""RTN"",""HLOPROC"",56,0)"
^XMB(3.9,41,2,8266,0)=" ...S GOTWORK=$$GETWORK(.PROCESS,.WORK)"
^XMB(3.9,41,2,8267,0)="""RTN"",""HLOPROC"",57,0)"
^XMB(3.9,41,2,8268,0)=" ...Q:GOTWORK"
^XMB(3.9,41,2,8269,0)="""RTN"",""HLOPROC"",58,0)"
^XMB(3.9,41,2,8270,0)=" ...;since there is no work, don't want another process starting"
^XMB(3.9,41,2,8271,0)="""RTN"",""HLOPROC"",59,0)"
^XMB(3.9,41,2,8272,0)=" ...S $P(^HLD(779.3,PROCESS(""IEN""),0),""^"",6)=$$NOW^XLFDT"
^XMB(3.9,41,2,8273,0)="""RTN"",""HLOPROC"",60,0)"
^XMB(3.9,41,2,8274,0)=" ...H PROCESS(""HANG"")"
^XMB(3.9,41,2,8275,0)="""RTN"",""HLOPROC"",61,0)"
^XMB(3.9,41,2,8276,0)=" ...S HL7STOP=$$CHK4STOP(.PROCESS,HL7TRIES)"
^XMB(3.9,41,2,8277,0)="""RTN"",""HLOPROC"",62,0)"
^XMB(3.9,41,2,8278,0)=" ..Q:HL7STOP"
^XMB(3.9,41,2,8279,0)="""RTN"",""HLOPROC"",63,0)"
^XMB(3.9,41,2,8280,0)=" ..I GOTWORK D DOWORK(.PROCESS,.WORK) S HL7TRIES=0"
^XMB(3.9,41,2,8281,0)="""RTN"",""HLOPROC"",64,0)"
^XMB(3.9,41,2,8282,0)=" ..S:'$G(HL7STOP) HL7STOP=$$CHK4STOP(.PROCESS,.HL7TRIES)"
^XMB(3.9,41,2,8283,0)="""RTN"",""HLOPROC"",65,0)"
^XMB(3.9,41,2,8284,0)=" ;"
^XMB(3.9,41,2,8285,0)="""RTN"",""HLOPROC"",66,0)"
^XMB(3.9,41,2,8286,0)=" S $P(^HLD(779.3,PROCESS(""IEN""),0),""^"",6)=$$NOW^XLFDT"
^XMB(3.9,41,2,8287,0)="""RTN"",""HLOPROC"",67,0)"
^XMB(3.9,41,2,8288,0)=" ;"
^XMB(3.9,41,2,8289,0)="""RTN"",""HLOPROC"",68,0)"
^XMB(3.9,41,2,8290,0)="END ;"
^XMB(3.9,41,2,8291,0)="""RTN"",""HLOPROC"",69,0)"
^XMB(3.9,41,2,8292,0)=" S HL7STOP=1"
^XMB(3.9,41,2,8293,0)="""RTN"",""HLOPROC"",70,0)"
^XMB(3.9,41,2,8294,0)=" K ^HL7TMP(""HL7 PROCESS NAME"",$J)"
^XMB(3.9,41,2,8295,0)="""RTN"",""HLOPROC"",71,0)"
^XMB(3.9,41,2,8296,0)=" L +HL7(""COUNTING PROCESSES""):20"
^XMB(3.9,41,2,8297,0)="""RTN"",""HLOPROC"",72,0)"
^XMB(3.9,41,2,8298,0)=" K ^HLTMP(""HL7 RUNNING PROCESSES"",$J)"
^XMB(3.9,41,2,8299,0)="""RTN"",""HLOPROC"",73,0)"
^XMB(3.9,41,2,8300,0)=" I $$INC^HLOSITE($NA(^HLC(""HL7 PROCESS COUNTS"",""RUNNING"",PROCNAME)),-1)<0,$$INC^HLOSITE($NA(^HLC(""HL7 PROCESS COUNTS"",""RUNNING"",PROCNAME)),1)"
^XMB(3.9,41,2,8301,0)="""RTN"",""HLOPROC"",74,0)"
^XMB(3.9,41,2,8302,0)=" L -^HLTMP(""HL7 RUNNING PROCESSES"",$J)"
^XMB(3.9,41,2,8303,0)="""RTN"",""HLOPROC"",75,0)"
^XMB(3.9,41,2,8304,0)=" L -HL7(""COUNTING PROCESSES"")"
^XMB(3.9,41,2,8305,0)="""RTN"",""HLOPROC"",76,0)"
^XMB(3.9,41,2,8306,0)=" K ^TMP(""HL7 ERRORS"",$J)"
^XMB(3.9,41,2,8307,0)="""RTN"",""HLOPROC"",77,0)"
^XMB(3.9,41,2,8308,0)=" ;"
^XMB(3.9,41,2,8309,0)="""RTN"",""HLOPROC"",78,0)"
^XMB(3.9,41,2,8310,0)=" Q"
^XMB(3.9,41,2,8311,0)="""RTN"",""HLOPROC"",79,0)"
^XMB(3.9,41,2,8312,0)=" ;"
^XMB(3.9,41,2,8313,0)="""RTN"",""HLOPROC"",80,0)"
^XMB(3.9,41,2,8314,0)="ERROR ;error trap"
^XMB(3.9,41,2,8315,0)="""RTN"",""HLOPROC"",81,0)"
^XMB(3.9,41,2,8316,0)=" ;"
^XMB(3.9,41,2,8317,0)="""RTN"",""HLOPROC"",82,0)"
^XMB(3.9,41,2,8318,0)=" S $ETRAP=""D UNWIND^%ZTER"""
^XMB(3.9,41,2,8319,0)="""RTN"",""HLOPROC"",83,0)"
^XMB(3.9,41,2,8320,0)=" ;"
^XMB(3.9,41,2,8321,0)="""RTN"",""HLOPROC"",84,0)"
^XMB(3.9,41,2,8322,0)=" ;while debugging always quit on error"
^XMB(3.9,41,2,8323,0)="""RTN"",""HLOPROC"",85,0)"
^XMB(3.9,41,2,8324,0)=" I $G(^HLTMP(""LOG ALL ERRORS"")) D  QUIT"
^XMB(3.9,41,2,8325,0)="""RTN"",""HLOPROC"",86,0)"
^XMB(3.9,41,2,8326,0)=" .D ^%ZTER"
^XMB(3.9,41,2,8327,0)="""RTN"",""HLOPROC"",87,0)"
^XMB(3.9,41,2,8328,0)=" .S:'$D(PROCNAME) PROCNAME=$G(^HL7TMP(""HL7 PROCESS NAME"",$J))"
^XMB(3.9,41,2,8329,0)="""RTN"",""HLOPROC"",88,0)"
^XMB(3.9,41,2,8330,0)=" .D END"
^XMB(3.9,41,2,8331,0)="""RTN"",""HLOPROC"",89,0)"
^XMB(3.9,41,2,8332,0)=" ;"
^XMB(3.9,41,2,8333,0)="""RTN"",""HLOPROC"",90,0)"
^XMB(3.9,41,2,8334,0)=" ;a lot of errors of the same type may indicate an endless loop, so quit"
^XMB(3.9,41,2,8335,0)="""RTN"",""HLOPROC"",91,0)"
^XMB(3.9,41,2,8336,0)=" ;to be on the safe side.  Decrement the process count."
^XMB(3.9,41,2,8337,0)="""RTN"",""HLOPROC"",92,0)"
^XMB(3.9,41,2,8338,0)=" S $ECODE=$P($ECODE,"","",1,2)"
^XMB(3.9,41,2,8339,0)="""RTN"",""HLOPROC"",93,0)"
^XMB(3.9,41,2,8340,0)=" S ^TMP(""HL7 ERRORS"",$J,$ECODE)=$G(^TMP(""HL7 ERRORS"",$J,$ECODE))+1"
^XMB(3.9,41,2,8341,0)="""RTN"",""HLOPROC"",94,0)"
^XMB(3.9,41,2,8342,0)=" I $G(^TMP(""HL7 ERRORS"",$J,$ECODE))>100 D  QUIT"
^XMB(3.9,41,2,8343,0)="""RTN"",""HLOPROC"",95,0)"
^XMB(3.9,41,2,8344,0)=" .D ^%ZTER"
^XMB(3.9,41,2,8345,0)="""RTN"",""HLOPROC"",96,0)"
^XMB(3.9,41,2,8346,0)=" .S:'$D(PROCNAME) PROCNAME=$G(^HL7TMP(""HL7 PROCESS NAME"",$J))"
^XMB(3.9,41,2,8347,0)="""RTN"",""HLOPROC"",97,0)"
^XMB(3.9,41,2,8348,0)=" .D END"
^XMB(3.9,41,2,8349,0)="""RTN"",""HLOPROC"",98,0)"
^XMB(3.9,41,2,8350,0)=" ;"
^XMB(3.9,41,2,8351,0)="""RTN"",""HLOPROC"",99,0)"
^XMB(3.9,41,2,8352,0)=" D ^%ZTER"
^XMB(3.9,41,2,8353,0)="""RTN"",""HLOPROC"",100,0)"
^XMB(3.9,41,2,8354,0)=" D UNWIND^%ZTER"
^XMB(3.9,41,2,8355,0)="""RTN"",""HLOPROC"",101,0)"
^XMB(3.9,41,2,8356,0)=" Q"
^XMB(3.9,41,2,8357,0)="""RTN"",""HLOPROC"",102,0)"
^XMB(3.9,41,2,8358,0)=" ;"
^XMB(3.9,41,2,8359,0)="""RTN"",""HLOPROC"",103,0)"
^XMB(3.9,41,2,8360,0)="GETPROC(PROCNAME,PROCESS) ;"
^XMB(3.9,41,2,8361,0)="""RTN"",""HLOPROC"",104,0)"
^XMB(3.9,41,2,8362,0)=" ;using PROCNAME to find the entry in the HL7 Process Registry, returns the entry as a subscripted array in .PROCESS"
^XMB(3.9,41,2,8363,0)="""RTN"",""HLOPROC"",105,0)"
^XMB(3.9,41,2,8364,0)=" ;"
^XMB(3.9,41,2,8365,0)="""RTN"",""HLOPROC"",106,0)"
^XMB(3.9,41,2,8366,0)=" ;Output: Function returns 0 on failure, 1 on success"
^XMB(3.9,41,2,8367,0)="""RTN"",""HLOPROC"",107,0)"
^XMB(3.9,41,2,8368,0)=" ;"
^XMB(3.9,41,2,8369,0)="""RTN"",""HLOPROC"",108,0)"
^XMB(3.9,41,2,8370,0)=" N IEN,NODE"
^XMB(3.9,41,2,8371,0)="""RTN"",""HLOPROC"",109,0)"
^XMB(3.9,41,2,8372,0)=" S IEN=$O(^HLD(779.3,""B"",PROCNAME,0))"
^XMB(3.9,41,2,8373,0)="""RTN"",""HLOPROC"",110,0)"
^XMB(3.9,41,2,8374,0)=" Q:'IEN 0"
^XMB(3.9,41,2,8375,0)="""RTN"",""HLOPROC"",111,0)"
^XMB(3.9,41,2,8376,0)=" S PROCESS(""NAME"")=PROCNAME"
^XMB(3.9,41,2,8377,0)="""RTN"",""HLOPROC"",112,0)"
^XMB(3.9,41,2,8378,0)=" S PROCESS(""IEN"")=IEN"
^XMB(3.9,41,2,8379,0)="""RTN"",""HLOPROC"",113,0)"
^XMB(3.9,41,2,8380,0)=" S NODE=$G(^HLD(779.3,IEN,0))"
^XMB(3.9,41,2,8381,0)="""RTN"",""HLOPROC"",114,0)"
^XMB(3.9,41,2,8382,0)=" S PROCESS(""MINIMUM"")=+$P(NODE,""^"",3)"
^XMB(3.9,41,2,8383,0)="""RTN"",""HLOPROC"",115,0)"
^XMB(3.9,41,2,8384,0)=" S PROCESS(""MAXIMUM"")=+$P(NODE,""^"",4)"
^XMB(3.9,41,2,8385,0)="""RTN"",""HLOPROC"",116,0)"
^XMB(3.9,41,2,8386,0)=" S PROCESS(""HANG"")=+$P(NODE,""^"",7)"
^XMB(3.9,41,2,8387,0)="""RTN"",""HLOPROC"",117,0)"
^XMB(3.9,41,2,8388,0)=" I 'PROCESS(""HANG"") S PROCESS(""HANG"")=1"
^XMB(3.9,41,2,8389,0)="""RTN"",""HLOPROC"",118,0)"
^XMB(3.9,41,2,8390,0)=" S PROCESS(""GET WORK"")=$P(NODE,""^"",8,9)"
^XMB(3.9,41,2,8391,0)="""RTN"",""HLOPROC"",119,0)"
^XMB(3.9,41,2,8392,0)=" S PROCESS(""DO WORK"")=$P(NODE,""^"",10,11)"
^XMB(3.9,41,2,8393,0)="""RTN"",""HLOPROC"",120,0)"
^XMB(3.9,41,2,8394,0)=" S PROCESS(""MAX TRIES"")=$P(NODE,""^"",12)"
^XMB(3.9,41,2,8395,0)="""RTN"",""HLOPROC"",121,0)"
^XMB(3.9,41,2,8396,0)=" I 'PROCESS(""MAX TRIES"") S PROCESS(""MAX TRIES"")=999"
^XMB(3.9,41,2,8397,0)="""RTN"",""HLOPROC"",122,0)"
^XMB(3.9,41,2,8398,0)=" S PROCESS(""PERSISTENT"")=+$P(NODE,""^"",13)"
^XMB(3.9,41,2,8399,0)="""RTN"",""HLOPROC"",123,0)"
^XMB(3.9,41,2,8400,0)=" S PROCESS(""LINK"")=$P(NODE,""^"",14)"
^XMB(3.9,41,2,8401,0)="""RTN"",""HLOPROC"",124,0)"
^XMB(3.9,41,2,8402,0)=" Q 1"
^XMB(3.9,41,2,8403,0)="""RTN"",""HLOPROC"",125,0)"
^XMB(3.9,41,2,8404,0)=" ;"
^XMB(3.9,41,2,8405,0)="""RTN"",""HLOPROC"",126,0)"
^XMB(3.9,41,2,8406,0)="GETWORK(PROCESS,WORK) ;"
^XMB(3.9,41,2,8407,0)="""RTN"",""HLOPROC"",127,0)"
^XMB(3.9,41,2,8408,0)=" N RETURN,XECUTE"
^XMB(3.9,41,2,8409,0)="""RTN"",""HLOPROC"",128,0)"
^XMB(3.9,41,2,8410,0)=" I PROCESS(""LINK"")]"""" S WORK(""LINK"")=PROCESS(""LINK"")"
^XMB(3.9,41,2,8411,0)="""RTN"",""HLOPROC"",129,0)"
^XMB(3.9,41,2,8412,0)=" S XECUTE=""S RETURN=$$""_PROCESS(""GET WORK"")_""(.WORK)"""
^XMB(3.9,41,2,8413,0)="""RTN"",""HLOPROC"",130,0)"
^XMB(3.9,41,2,8414,0)=" D"
^XMB(3.9,41,2,8415,0)="""RTN"",""HLOPROC"",131,0)"
^XMB(3.9,41,2,8416,0)=" .N PROCESS"
^XMB(3.9,41,2,8417,0)="""RTN"",""HLOPROC"",132,0)"
^XMB(3.9,41,2,8418,0)=" .X XECUTE"
^XMB(3.9,41,2,8419,0)="""RTN"",""HLOPROC"",133,0)"
^XMB(3.9,41,2,8420,0)=" Q RETURN"
^XMB(3.9,41,2,8421,0)="""RTN"",""HLOPROC"",134,0)"
^XMB(3.9,41,2,8422,0)=" ;"
^XMB(3.9,41,2,8423,0)="""RTN"",""HLOPROC"",135,0)"
^XMB(3.9,41,2,8424,0)="DOWORK(PROCESS,WORK) ;"
^XMB(3.9,41,2,8425,0)="""RTN"",""HLOPROC"",136,0)"
^XMB(3.9,41,2,8426,0)=" N XECUTE"
^XMB(3.9,41,2,8427,0)="""RTN"",""HLOPROC"",137,0)"
^XMB(3.9,41,2,8428,0)=" M PARMS=WORK"
^XMB(3.9,41,2,8429,0)="""RTN"",""HLOPROC"",138,0)"
^XMB(3.9,41,2,8430,0)=" S XECUTE=""D ""_PROCESS(""DO WORK"")_""(.WORK)"""
^XMB(3.9,41,2,8431,0)="""RTN"",""HLOPROC"",139,0)"
^XMB(3.9,41,2,8432,0)=" D"
^XMB(3.9,41,2,8433,0)="""RTN"",""HLOPROC"",140,0)"
^XMB(3.9,41,2,8434,0)=" .N PROCESS,HL7TRIES,PARMS,PROCNAME"
^XMB(3.9,41,2,8435,0)="""RTN"",""HLOPROC"",141,0)"
^XMB(3.9,41,2,8436,0)=" .X XECUTE"
^XMB(3.9,41,2,8437,0)="""RTN"",""HLOPROC"",142,0)"
^XMB(3.9,41,2,8438,0)=" M WORK=PARMS"
^XMB(3.9,41,2,8439,0)="""RTN"",""HLOPROC"",143,0)"
^XMB(3.9,41,2,8440,0)=" Q"
^XMB(3.9,41,2,8441,0)="""RTN"",""HLOPROC"",144,0)"
^XMB(3.9,41,2,8442,0)=" ;"
^XMB(3.9,41,2,8443,0)="""RTN"",""HLOPROC"",145,0)"
^XMB(3.9,41,2,8444,0)="CHK4STOP(PROCESS,HL7TRIES) ;"
^XMB(3.9,41,2,8445,0)="""RTN"",""HLOPROC"",146,0)"
^XMB(3.9,41,2,8446,0)=" ;Determines if the process should stop, returns 1 if yes, 0 if no"
^XMB(3.9,41,2,8447,0)="""RTN"",""HLOPROC"",147,0)"
^XMB(3.9,41,2,8448,0)=" ;"
^XMB(3.9,41,2,8449,0)="""RTN"",""HLOPROC"",148,0)"
^XMB(3.9,41,2,8450,0)=" Q:$$CHKSTOP 1"
^XMB(3.9,41,2,8451,0)="""RTN"",""HLOPROC"",149,0)"
^XMB(3.9,41,2,8452,0)=" Q:'$P($G(^HLD(779.3,PROCESS(""IEN""),0)),""^"",2) 1"
^XMB(3.9,41,2,8453,0)="""RTN"",""HLOPROC"",150,0)"
^XMB(3.9,41,2,8454,0)=" I $G(HL7TRIES)>(PROCESS(""MAX TRIES"")-1),PROCESS(""MINIMUM"")<$G(^HLC(""HL7 PROCESS COUNTS"",""RUNNING"",PROCESS(""NAME""))) Q 1"
^XMB(3.9,41,2,8455,0)="""RTN"",""HLOPROC"",151,0)"
^XMB(3.9,41,2,8456,0)=" Q:$G(^HLC(""HL7 PROCESS COUNTS"",""RUNNING"",PROCESS(""NAME"")))>PROCESS(""MAXIMUM"") 1"
^XMB(3.9,41,2,8457,0)="""RTN"",""HLOPROC"",152,0)"
^XMB(3.9,41,2,8458,0)=" Q 0"
^XMB(3.9,41,2,8459,0)="""RTN"",""HLOPROC"",153,0)"
^XMB(3.9,41,2,8460,0)=" ;"
^XMB(3.9,41,2,8461,0)="""RTN"",""HLOPROC"",154,0)"
^XMB(3.9,41,2,8462,0)="CHKSTOP() ;has HL7 been requested to stop?"
^XMB(3.9,41,2,8463,0)="""RTN"",""HLOPROC"",155,0)"
^XMB(3.9,41,2,8464,0)=" Q '$P($G(^HLD(779.1,1,0)),""^"",9)"
^XMB(3.9,41,2,8465,0)="""RTN"",""HLOPROC1"")"
^XMB(3.9,41,2,8466,0)="0^29^B37655107"
^XMB(3.9,41,2,8467,0)="""RTN"",""HLOPROC1"",1,0)"
^XMB(3.9,41,2,8468,0)="HLOPROC1 ;ALB/CJM- Process Manager - 10/4/94 1pm"
^XMB(3.9,41,2,8469,0)="""RTN"",""HLOPROC1"",2,0)"
^XMB(3.9,41,2,8470,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995"
^XMB(3.9,41,2,8471,0)="""RTN"",""HLOPROC1"",3,0)"
^XMB(3.9,41,2,8472,0)=" ;"
^XMB(3.9,41,2,8473,0)="""RTN"",""HLOPROC1"",4,0)"
^XMB(3.9,41,2,8474,0)=" ;"
^XMB(3.9,41,2,8475,0)="""RTN"",""HLOPROC1"",5,0)"
^XMB(3.9,41,2,8476,0)="GETWORK(PROCESS) ;"
^XMB(3.9,41,2,8477,0)="""RTN"",""HLOPROC1"",6,0)"
^XMB(3.9,41,2,8478,0)=" ;finds a process that needs to be started"
^XMB(3.9,41,2,8479,0)="""RTN"",""HLOPROC1"",7,0)"
^XMB(3.9,41,2,8480,0)=" ;"
^XMB(3.9,41,2,8481,0)="""RTN"",""HLOPROC1"",8,0)"
^XMB(3.9,41,2,8482,0)=" N NAME,IEN,GOTWORK"
^XMB(3.9,41,2,8483,0)="""RTN"",""HLOPROC1"",9,0)"
^XMB(3.9,41,2,8484,0)=" ;this is how  HL7 can be stopped via Taskman"
^XMB(3.9,41,2,8485,0)="""RTN"",""HLOPROC1"",10,0)"
^XMB(3.9,41,2,8486,0)=" I $$S^%ZTLOAD D STOPHL7 Q 0"
^XMB(3.9,41,2,8487,0)="""RTN"",""HLOPROC1"",11,0)"
^XMB(3.9,41,2,8488,0)=" S GOTWORK=0"
^XMB(3.9,41,2,8489,0)="""RTN"",""HLOPROC1"",12,0)"
^XMB(3.9,41,2,8490,0)=" S IEN=+$G(PROCESS(""IEN""))"
^XMB(3.9,41,2,8491,0)="""RTN"",""HLOPROC1"",13,0)"
^XMB(3.9,41,2,8492,0)=" F  S IEN=$O(^HLD(779.3,""C"",1,IEN)) Q:IEN=$G(PROCESS(""IEN""))  I IEN D  Q:GOTWORK"
^XMB(3.9,41,2,8493,0)="""RTN"",""HLOPROC1"",14,0)"
^XMB(3.9,41,2,8494,0)=" .N PROC,COUNT,QUEUED,RUNNING"
^XMB(3.9,41,2,8495,0)="""RTN"",""HLOPROC1"",15,0)"
^XMB(3.9,41,2,8496,0)=" .Q:'$$GETPROC(IEN,.PROC)"
^XMB(3.9,41,2,8497,0)="""RTN"",""HLOPROC1"",16,0)"
^XMB(3.9,41,2,8498,0)=" .Q:PROC(""VMS SERVICE"")"
^XMB(3.9,41,2,8499,0)="""RTN"",""HLOPROC1"",17,0)"
^XMB(3.9,41,2,8500,0)=" .Q:PROC(""NAME"")=""PROCESS MANAGER"""
^XMB(3.9,41,2,8501,0)="""RTN"",""HLOPROC1"",18,0)"
^XMB(3.9,41,2,8502,0)=" .S PROCESS(""COUNT"")=1"
^XMB(3.9,41,2,8503,0)="""RTN"",""HLOPROC1"",19,0)"
^XMB(3.9,41,2,8504,0)=" .S QUEUED=+$G(^HLC(""HL7 PROCESS COUNTS"",""QUEUED"",PROC(""NAME"")))"
^XMB(3.9,41,2,8505,0)="""RTN"",""HLOPROC1"",20,0)"
^XMB(3.9,41,2,8506,0)=" .S:QUEUED<0 QUEUED=0"
^XMB(3.9,41,2,8507,0)="""RTN"",""HLOPROC1"",21,0)"
^XMB(3.9,41,2,8508,0)=" .S RUNNING=+$G(^HLC(""HL7 PROCESS COUNTS"",""RUNNING"",PROC(""NAME"")))"
^XMB(3.9,41,2,8509,0)="""RTN"",""HLOPROC1"",22,0)"
^XMB(3.9,41,2,8510,0)=" .S:RUNNING<0 RUNNING=0"
^XMB(3.9,41,2,8511,0)="""RTN"",""HLOPROC1"",23,0)"
^XMB(3.9,41,2,8512,0)=" .S COUNT=QUEUED+RUNNING"
^XMB(3.9,41,2,8513,0)="""RTN"",""HLOPROC1"",24,0)"
^XMB(3.9,41,2,8514,0)=" .I COUNT<PROC(""MINIMUM"") S GOTWORK=1,PROCESS(""IEN"")=IEN,PROCESS(""NAME"")=PROC(""NAME""),PROCESS(""COUNT"")=(PROC(""MINIMUM"")-COUNT) Q"
^XMB(3.9,41,2,8515,0)="""RTN"",""HLOPROC1"",25,0)"
^XMB(3.9,41,2,8516,0)=" .I COUNT<PROC(""MAXIMUM""),$$FMDIFF^XLFDT($$NOW^XLFDT,PROC(""LAST DT/TM""),2)>PROC(""WAIT SECONDS""),'QUEUED S GOTWORK=1,PROCESS(""IEN"")=IEN,PROCESS(""NAME"")=PROC(""NAME""),PROCESS(""COUNT"")=1 Q"
^XMB(3.9,41,2,8517,0)="""RTN"",""HLOPROC1"",26,0)"
^XMB(3.9,41,2,8518,0)=" I 'GOTWORK K PROCESS"
^XMB(3.9,41,2,8519,0)="""RTN"",""HLOPROC1"",27,0)"
^XMB(3.9,41,2,8520,0)=" Q GOTWORK"
^XMB(3.9,41,2,8521,0)="""RTN"",""HLOPROC1"",28,0)"
^XMB(3.9,41,2,8522,0)=" ;"
^XMB(3.9,41,2,8523,0)="""RTN"",""HLOPROC1"",29,0)"
^XMB(3.9,41,2,8524,0)="DOWORK(PROCESS) ;"
^XMB(3.9,41,2,8525,0)="""RTN"",""HLOPROC1"",30,0)"
^XMB(3.9,41,2,8526,0)=" ;starts a process"
^XMB(3.9,41,2,8527,0)="""RTN"",""HLOPROC1"",31,0)"
^XMB(3.9,41,2,8528,0)=" ;"
^XMB(3.9,41,2,8529,0)="""RTN"",""HLOPROC1"",32,0)"
^XMB(3.9,41,2,8530,0)=" ;don't start a new task if stopped"
^XMB(3.9,41,2,8531,0)="""RTN"",""HLOPROC1"",33,0)"
^XMB(3.9,41,2,8532,0)=" Q:$$CHKSTOP^HLOPROC"
^XMB(3.9,41,2,8533,0)="""RTN"",""HLOPROC1"",34,0)"
^XMB(3.9,41,2,8534,0)=" ;"
^XMB(3.9,41,2,8535,0)="""RTN"",""HLOPROC1"",35,0)"
^XMB(3.9,41,2,8536,0)=" N ZTRTN,ZTDESC,ZTSAVE,ZTIO,ZTSK,I,ZTDTH"
^XMB(3.9,41,2,8537,0)="""RTN"",""HLOPROC1"",36,0)"
^XMB(3.9,41,2,8538,0)=" S:'$G(PROCESS(""COUNT"")) PROCESS(""COUNT"")=1"
^XMB(3.9,41,2,8539,0)="""RTN"",""HLOPROC1"",37,0)"
^XMB(3.9,41,2,8540,0)=" F I=1:1:PROCESS(""COUNT"") D"
^XMB(3.9,41,2,8541,0)="""RTN"",""HLOPROC1"",38,0)"
^XMB(3.9,41,2,8542,0)=" .S ZTRTN=""PROCESS^HLOPROC"""
^XMB(3.9,41,2,8543,0)="""RTN"",""HLOPROC1"",39,0)"
^XMB(3.9,41,2,8544,0)=" .S ZTDESC=""HL7 - ""_PROCESS(""NAME"")"
^XMB(3.9,41,2,8545,0)="""RTN"",""HLOPROC1"",40,0)"
^XMB(3.9,41,2,8546,0)=" .S ZTIO="""""
^XMB(3.9,41,2,8547,0)="""RTN"",""HLOPROC1"",41,0)"
^XMB(3.9,41,2,8548,0)=" .S ZTSAVE(""PROCNAME"")=PROCESS(""NAME"")"
^XMB(3.9,41,2,8549,0)="""RTN"",""HLOPROC1"",42,0)"
^XMB(3.9,41,2,8550,0)=" .S ZTDTH=$H"
^XMB(3.9,41,2,8551,0)="""RTN"",""HLOPROC1"",43,0)"
^XMB(3.9,41,2,8552,0)=" .D ^%ZTLOAD"
^XMB(3.9,41,2,8553,0)="""RTN"",""HLOPROC1"",44,0)"
^XMB(3.9,41,2,8554,0)=" .I $D(ZTSK) D"
^XMB(3.9,41,2,8555,0)="""RTN"",""HLOPROC1"",45,0)"
^XMB(3.9,41,2,8556,0)=" ..;lock before changing counts"
^XMB(3.9,41,2,8557,0)="""RTN"",""HLOPROC1"",46,0)"
^XMB(3.9,41,2,8558,0)=" ..L +HL7(""COUNTING PROCESSES""):20"
^XMB(3.9,41,2,8559,0)="""RTN"",""HLOPROC1"",47,0)"
^XMB(3.9,41,2,8560,0)=" ..I $$INC^HLOSITE($NA(^HLC(""HL7 PROCESS COUNTS"",""QUEUED"",PROCESS(""NAME""))))"
^XMB(3.9,41,2,8561,0)="""RTN"",""HLOPROC1"",48,0)"
^XMB(3.9,41,2,8562,0)=" ..S $P(^HLD(779.3,PROCESS(""IEN""),0),""^"",6)=$$NOW^XLFDT,^HLTMP(""HL7 QUEUED PROCESSES"",ZTSK)=$H_""^""_PROCESS(""NAME"")"
^XMB(3.9,41,2,8563,0)="""RTN"",""HLOPROC1"",49,0)"
^XMB(3.9,41,2,8564,0)=" ..L -HL7(""COUNTING PROCESSES"")"
^XMB(3.9,41,2,8565,0)="""RTN"",""HLOPROC1"",50,0)"
^XMB(3.9,41,2,8566,0)=" Q"
^XMB(3.9,41,2,8567,0)="""RTN"",""HLOPROC1"",51,0)"
^XMB(3.9,41,2,8568,0)=" ;"
^XMB(3.9,41,2,8569,0)="""RTN"",""HLOPROC1"",52,0)"
^XMB(3.9,41,2,8570,0)="GETPROC(IEN,PROCESS) ;"
^XMB(3.9,41,2,8571,0)="""RTN"",""HLOPROC1"",53,0)"
^XMB(3.9,41,2,8572,0)=" ;given the ien of the HL7 Process Registry entry, returns the entry as a subscripted array in .PROCESS"
^XMB(3.9,41,2,8573,0)="""RTN"",""HLOPROC1"",54,0)"
^XMB(3.9,41,2,8574,0)=" ;"
^XMB(3.9,41,2,8575,0)="""RTN"",""HLOPROC1"",55,0)"
^XMB(3.9,41,2,8576,0)=" ;Output: Function returns 0 on failure, 1 on success"
^XMB(3.9,41,2,8577,0)="""RTN"",""HLOPROC1"",56,0)"
^XMB(3.9,41,2,8578,0)=" ;"
^XMB(3.9,41,2,8579,0)="""RTN"",""HLOPROC1"",57,0)"
^XMB(3.9,41,2,8580,0)=" N NODE"
^XMB(3.9,41,2,8581,0)="""RTN"",""HLOPROC1"",58,0)"
^XMB(3.9,41,2,8582,0)=" S NODE=$G(^HLD(779.3,IEN,0))"
^XMB(3.9,41,2,8583,0)="""RTN"",""HLOPROC1"",59,0)"
^XMB(3.9,41,2,8584,0)=" Q:NODE="""" 0"
^XMB(3.9,41,2,8585,0)="""RTN"",""HLOPROC1"",60,0)"
^XMB(3.9,41,2,8586,0)=" S PROCESS(""NAME"")=$P(NODE,""^"")"
^XMB(3.9,41,2,8587,0)="""RTN"",""HLOPROC1"",61,0)"
^XMB(3.9,41,2,8588,0)=" S PROCESS(""IEN"")=IEN"
^XMB(3.9,41,2,8589,0)="""RTN"",""HLOPROC1"",62,0)"
^XMB(3.9,41,2,8590,0)=" S PROCESS(""MINIMUM"")=+$P(NODE,""^"",3)"
^XMB(3.9,41,2,8591,0)="""RTN"",""HLOPROC1"",63,0)"
^XMB(3.9,41,2,8592,0)=" S PROCESS(""MAXIMUM"")=+$P(NODE,""^"",4)"
^XMB(3.9,41,2,8593,0)="""RTN"",""HLOPROC1"",64,0)"
^XMB(3.9,41,2,8594,0)=" S PROCESS(""WAIT SECONDS"")=+($P(NODE,""^"",5))*60"
^XMB(3.9,41,2,8595,0)="""RTN"",""HLOPROC1"",65,0)"
^XMB(3.9,41,2,8596,0)=" I 'PROCESS(""WAIT SECONDS"") S PROCESS(""WAIT SECONDS"")=1000"
^XMB(3.9,41,2,8597,0)="""RTN"",""HLOPROC1"",66,0)"
^XMB(3.9,41,2,8598,0)=" S PROCESS(""LAST DT/TM"")=$P(NODE,""^"",6)"
^XMB(3.9,41,2,8599,0)="""RTN"",""HLOPROC1"",67,0)"
^XMB(3.9,41,2,8600,0)=" S PROCESS(""VMS SERVICE"")=$P(NODE,""^"",15)"
^XMB(3.9,41,2,8601,0)="""RTN"",""HLOPROC1"",68,0)"
^XMB(3.9,41,2,8602,0)=" Q 1"
^XMB(3.9,41,2,8603,0)="""RTN"",""HLOPROC1"",69,0)"
^XMB(3.9,41,2,8604,0)=" ;"
^XMB(3.9,41,2,8605,0)="""RTN"",""HLOPROC1"",70,0)"
^XMB(3.9,41,2,8606,0)="STOPHL7 ;shut down HLO HL7"
^XMB(3.9,41,2,8607,0)="""RTN"",""HLOPROC1"",71,0)"
^XMB(3.9,41,2,8608,0)=" N ZTSK,DOLLARJ"
^XMB(3.9,41,2,8609,0)="""RTN"",""HLOPROC1"",72,0)"
^XMB(3.9,41,2,8610,0)=" ;let other processes know that starting/stopping is underway"
^XMB(3.9,41,2,8611,0)="""RTN"",""HLOPROC1"",73,0)"
^XMB(3.9,41,2,8612,0)=" S $P(^HLD(779.1,1,0),""^"",9)=0"
^XMB(3.9,41,2,8613,0)="""RTN"",""HLOPROC1"",74,0)"
^XMB(3.9,41,2,8614,0)=" S ZTSK="""""
^XMB(3.9,41,2,8615,0)="""RTN"",""HLOPROC1"",75,0)"
^XMB(3.9,41,2,8616,0)=" F  S ZTSK=$O(^HLTMP(""HL7 QUEUED PROCESSES"",ZTSK)) Q:ZTSK=""""  D DQ^%ZTLOAD"
^XMB(3.9,41,2,8617,0)="""RTN"",""HLOPROC1"",76,0)"
^XMB(3.9,41,2,8618,0)=" S DOLLARJ="""""
^XMB(3.9,41,2,8619,0)="""RTN"",""HLOPROC1"",77,0)"
^XMB(3.9,41,2,8620,0)=" F  S DOLLARJ=$O(^HLTMP(""HL7 RUNNING PROCESSES"",DOLLARJ)) Q:DOLLARJ=""""  S ZTSK=$P($G(^HLTMP(""HL7 RUNNING PROCESSES"",DOLLARJ)),""^"",2) I ZTSK]"""" D PCLEAR^%ZTLOAD(ZTSK) I $$ASKSTOP^%ZTLOAD(ZTSK)"
^XMB(3.9,41,2,8621,0)="""RTN"",""HLOPROC1"",78,0)"
^XMB(3.9,41,2,8622,0)=" D CHKQUED"
^XMB(3.9,41,2,8623,0)="""RTN"",""HLOPROC1"",79,0)"
^XMB(3.9,41,2,8624,0)=" Q"
^XMB(3.9,41,2,8625,0)="""RTN"",""HLOPROC1"",80,0)"
^XMB(3.9,41,2,8626,0)=" ;"
^XMB(3.9,41,2,8627,0)="""RTN"",""HLOPROC1"",81,0)"
^XMB(3.9,41,2,8628,0)="STARTHL7 ;start HL7 system, but first do some cleanup"
^XMB(3.9,41,2,8629,0)="""RTN"",""HLOPROC1"",82,0)"
^XMB(3.9,41,2,8630,0)=" ;"
^XMB(3.9,41,2,8631,0)="""RTN"",""HLOPROC1"",83,0)"
^XMB(3.9,41,2,8632,0)=" D RECOUNT()"
^XMB(3.9,41,2,8633,0)="""RTN"",""HLOPROC1"",84,0)"
^XMB(3.9,41,2,8634,0)=" ;"
^XMB(3.9,41,2,8635,0)="""RTN"",""HLOPROC1"",85,0)"
^XMB(3.9,41,2,8636,0)=" ;set the system status flag to active"
^XMB(3.9,41,2,8637,0)="""RTN"",""HLOPROC1"",86,0)"
^XMB(3.9,41,2,8638,0)=" S $P(^HLD(779.1,1,0),""^"",9)=1"
^XMB(3.9,41,2,8639,0)="""RTN"",""HLOPROC1"",87,0)"
^XMB(3.9,41,2,8640,0)=" ;"
^XMB(3.9,41,2,8641,0)="""RTN"",""HLOPROC1"",88,0)"
^XMB(3.9,41,2,8642,0)=" ;don't start a process manager if already running"
^XMB(3.9,41,2,8643,0)="""RTN"",""HLOPROC1"",89,0)"
^XMB(3.9,41,2,8644,0)=" L +^HLTMP(""PROCESS MANAGER""):1"
^XMB(3.9,41,2,8645,0)="""RTN"",""HLOPROC1"",90,0)"
^XMB(3.9,41,2,8646,0)=" Q:'$T"
^XMB(3.9,41,2,8647,0)="""RTN"",""HLOPROC1"",91,0)"
^XMB(3.9,41,2,8648,0)=" ;"
^XMB(3.9,41,2,8649,0)="""RTN"",""HLOPROC1"",92,0)"
^XMB(3.9,41,2,8650,0)=" ;start the HL7 Process Manager, which will start everything else"
^XMB(3.9,41,2,8651,0)="""RTN"",""HLOPROC1"",93,0)"
^XMB(3.9,41,2,8652,0)=" N PROCESS"
^XMB(3.9,41,2,8653,0)="""RTN"",""HLOPROC1"",94,0)"
^XMB(3.9,41,2,8654,0)=" S PROCESS(""NAME"")=""PROCESS MANAGER"""
^XMB(3.9,41,2,8655,0)="""RTN"",""HLOPROC1"",95,0)"
^XMB(3.9,41,2,8656,0)=" S PROCESS(""IEN"")=$O(^HLD(779.3,""B"",""PROCESS MANAGER"",0))"
^XMB(3.9,41,2,8657,0)="""RTN"",""HLOPROC1"",96,0)"
^XMB(3.9,41,2,8658,0)=" D DOWORK(.PROCESS)"
^XMB(3.9,41,2,8659,0)="""RTN"",""HLOPROC1"",97,0)"
^XMB(3.9,41,2,8660,0)=" L -^HLTMP(""PROCESS MANAGER"")"
^XMB(3.9,41,2,8661,0)="""RTN"",""HLOPROC1"",98,0)"
^XMB(3.9,41,2,8662,0)=" Q"
^XMB(3.9,41,2,8663,0)="""RTN"",""HLOPROC1"",99,0)"
^XMB(3.9,41,2,8664,0)=" ;"
^XMB(3.9,41,2,8665,0)="""RTN"",""HLOPROC1"",100,0)"
^XMB(3.9,41,2,8666,0)="QUIT1(COUNT) ;just returns 1 as function value first time around,then 0, insuring that the DO WORK function is called just once"
^XMB(3.9,41,2,8667,0)="""RTN"",""HLOPROC1"",101,0)"
^XMB(3.9,41,2,8668,0)=" I '$G(COUNT) S COUNT=1 Q 1"
^XMB(3.9,41,2,8669,0)="""RTN"",""HLOPROC1"",102,0)"
^XMB(3.9,41,2,8670,0)=" Q 0"
^XMB(3.9,41,2,8671,0)="""RTN"",""HLOPROC1"",103,0)"
^XMB(3.9,41,2,8672,0)=" ;"
^XMB(3.9,41,2,8673,0)="""RTN"",""HLOPROC1"",104,0)"
^XMB(3.9,41,2,8674,0)="CHKDEAD(WORK) ;"
^XMB(3.9,41,2,8675,0)="""RTN"",""HLOPROC1"",105,0)"
^XMB(3.9,41,2,8676,0)=" ;did any process terminate without erasing itself?"
^XMB(3.9,41,2,8677,0)="""RTN"",""HLOPROC1"",106,0)"
^XMB(3.9,41,2,8678,0)=" ;WORK (pass by reference, not required) by the Process Manager that is not used and not required"
^XMB(3.9,41,2,8679,0)="""RTN"",""HLOPROC1"",107,0)"
^XMB(3.9,41,2,8680,0)=" N DOLLARJ S DOLLARJ="""""
^XMB(3.9,41,2,8681,0)="""RTN"",""HLOPROC1"",108,0)"
^XMB(3.9,41,2,8682,0)=" L +HL7(""COUNTING PROCESSES""):20"
^XMB(3.9,41,2,8683,0)="""RTN"",""HLOPROC1"",109,0)"
^XMB(3.9,41,2,8684,0)=" Q:'$T"
^XMB(3.9,41,2,8685,0)="""RTN"",""HLOPROC1"",110,0)"
^XMB(3.9,41,2,8686,0)=" F  S DOLLARJ=$O(^HLTMP(""HL7 RUNNING PROCESSES"",DOLLARJ)) Q:DOLLARJ=""""  I DOLLARJ'=$J L +^HLTMP(""HL7 RUNNING PROCESSES"",DOLLARJ):0 D:$T"
^XMB(3.9,41,2,8687,0)="""RTN"",""HLOPROC1"",111,0)"
^XMB(3.9,41,2,8688,0)=" .L -^HLTMP(""HL7 RUNNING PROCESSES"",DOLLARJ)"
^XMB(3.9,41,2,8689,0)="""RTN"",""HLOPROC1"",112,0)"
^XMB(3.9,41,2,8690,0)=" .N PROC"
^XMB(3.9,41,2,8691,0)="""RTN"",""HLOPROC1"",113,0)"
^XMB(3.9,41,2,8692,0)=" .S PROC=$P($G(^HLTMP(""HL7 RUNNING PROCESSES"",DOLLARJ)),""^"",3)"
^XMB(3.9,41,2,8693,0)="""RTN"",""HLOPROC1"",114,0)"
^XMB(3.9,41,2,8694,0)=" .K ^HLTMP(""HL7 RUNNING PROCESSES"",DOLLARJ)"
^XMB(3.9,41,2,8695,0)="""RTN"",""HLOPROC1"",115,0)"
^XMB(3.9,41,2,8696,0)=" .Q:PROC="""""
^XMB(3.9,41,2,8697,0)="""RTN"",""HLOPROC1"",116,0)"
^XMB(3.9,41,2,8698,0)=" .I $$INC^HLOSITE($NA(^HLC(""HL7 PROCESS COUNTS"",""RUNNING"",PROC)),-1)<0,$$INC^HLOSITE($NA(^HLC(""HL7 PROCESS COUNTS"",""RUNNING"",PROC)),1)"
^XMB(3.9,41,2,8699,0)="""RTN"",""HLOPROC1"",117,0)"
^XMB(3.9,41,2,8700,0)=" L -HL7(""COUNTING PROCESSES"")"
^XMB(3.9,41,2,8701,0)="""RTN"",""HLOPROC1"",118,0)"
^XMB(3.9,41,2,8702,0)=" Q"
^XMB(3.9,41,2,8703,0)="""RTN"",""HLOPROC1"",119,0)"
^XMB(3.9,41,2,8704,0)="CHKQUED ;did any queued task get dequeued without being erased?"
^XMB(3.9,41,2,8705,0)="""RTN"",""HLOPROC1"",120,0)"
^XMB(3.9,41,2,8706,0)=" N PROC,JOB"
^XMB(3.9,41,2,8707,0)="""RTN"",""HLOPROC1"",121,0)"
^XMB(3.9,41,2,8708,0)=" L +HL7(""COUNTING PROCESSES""):20"
^XMB(3.9,41,2,8709,0)="""RTN"",""HLOPROC1"",122,0)"
^XMB(3.9,41,2,8710,0)=" Q:'$T"
^XMB(3.9,41,2,8711,0)="""RTN"",""HLOPROC1"",123,0)"
^XMB(3.9,41,2,8712,0)=" S JOB="""""
^XMB(3.9,41,2,8713,0)="""RTN"",""HLOPROC1"",124,0)"
^XMB(3.9,41,2,8714,0)=" F  S JOB=$O(^HLTMP(""HL7 QUEUED PROCESSES"",JOB)) Q:JOB=""""  I '$$QUEUED(JOB) D"
^XMB(3.9,41,2,8715,0)="""RTN"",""HLOPROC1"",125,0)"
^XMB(3.9,41,2,8716,0)=" .N PROC"
^XMB(3.9,41,2,8717,0)="""RTN"",""HLOPROC1"",126,0)"
^XMB(3.9,41,2,8718,0)=" .S PROC=$P($G(^HLTMP(""HL7 QUEUED PROCESSES"",JOB)),""^"",2)"
^XMB(3.9,41,2,8719,0)="""RTN"",""HLOPROC1"",127,0)"
^XMB(3.9,41,2,8720,0)=" .I PROC]"""",$$INC^HLOSITE($NA(^HLC(""HL7 PROCESS COUNTS"",""QUEUED"",PROC)),-1)<0,$$INC^HLOSITE($NA(^HLC(""HL7 PROCESS COUNTS"",""QUEUED"",PROC)),1)"
^XMB(3.9,41,2,8721,0)="""RTN"",""HLOPROC1"",128,0)"
^XMB(3.9,41,2,8722,0)=" .K ^HLTMP(""HL7 QUEUED PROCESSES"",JOB)"
^XMB(3.9,41,2,8723,0)="""RTN"",""HLOPROC1"",129,0)"
^XMB(3.9,41,2,8724,0)=" L -HL7(""COUNTING PROCESSES"")"
^XMB(3.9,41,2,8725,0)="""RTN"",""HLOPROC1"",130,0)"
^XMB(3.9,41,2,8726,0)=" Q"
^XMB(3.9,41,2,8727,0)="""RTN"",""HLOPROC1"",131,0)"
^XMB(3.9,41,2,8728,0)=" ;"
^XMB(3.9,41,2,8729,0)="""RTN"",""HLOPROC1"",132,0)"
^XMB(3.9,41,2,8730,0)="QUEUED(TASK) ;"
^XMB(3.9,41,2,8731,0)="""RTN"",""HLOPROC1"",133,0)"
^XMB(3.9,41,2,8732,0)=" ;function returns 0 if ZTSK is not queued to run, 1 if it is"
^XMB(3.9,41,2,8733,0)="""RTN"",""HLOPROC1"",134,0)"
^XMB(3.9,41,2,8734,0)=" N ZTSK"
^XMB(3.9,41,2,8735,0)="""RTN"",""HLOPROC1"",135,0)"
^XMB(3.9,41,2,8736,0)=" S ZTSK=TASK"
^XMB(3.9,41,2,8737,0)="""RTN"",""HLOPROC1"",136,0)"
^XMB(3.9,41,2,8738,0)=" D ISQED^%ZTLOAD"
^XMB(3.9,41,2,8739,0)="""RTN"",""HLOPROC1"",137,0)"
^XMB(3.9,41,2,8740,0)=" Q:ZTSK(0) 1"
^XMB(3.9,41,2,8741,0)="""RTN"",""HLOPROC1"",138,0)"
^XMB(3.9,41,2,8742,0)=" Q 0"
^XMB(3.9,41,2,8743,0)="""RTN"",""HLOPROC1"",139,0)"
^XMB(3.9,41,2,8744,0)=" ;"
^XMB(3.9,41,2,8745,0)="""RTN"",""HLOPROC1"",140,0)"
^XMB(3.9,41,2,8746,0)="CNTLIVE ;count the running processes"
^XMB(3.9,41,2,8747,0)="""RTN"",""HLOPROC1"",141,0)"
^XMB(3.9,41,2,8748,0)=" N JOB,COUNTS,PROC"
^XMB(3.9,41,2,8749,0)="""RTN"",""HLOPROC1"",142,0)"
^XMB(3.9,41,2,8750,0)=" L +HL7(""COUNTING PROCESSES""):20"
^XMB(3.9,41,2,8751,0)="""RTN"",""HLOPROC1"",143,0)"
^XMB(3.9,41,2,8752,0)=" Q:'$T"
^XMB(3.9,41,2,8753,0)="""RTN"",""HLOPROC1"",144,0)"
^XMB(3.9,41,2,8754,0)=" S JOB="""""
^XMB(3.9,41,2,8755,0)="""RTN"",""HLOPROC1"",145,0)"
^XMB(3.9,41,2,8756,0)=" F  S JOB=$O(^HLTMP(""HL7 RUNNING PROCESSES"",JOB)) Q:JOB=""""  S PROC=$P($G(^HLTMP(""HL7 RUNNING PROCESSES"",JOB)),""^"",3) I PROC]"""" S COUNTS(PROC)=$G(COUNTS(PROC))+1"
^XMB(3.9,41,2,8757,0)="""RTN"",""HLOPROC1"",146,0)"
^XMB(3.9,41,2,8758,0)=" S PROC="""" F  S PROC=$O(COUNTS(PROC)) Q:PROC=""""  S ^HLC(""HL7 PROCESS COUNTS"",""RUNNING"",PROC)=COUNTS(PROC)"
^XMB(3.9,41,2,8759,0)="""RTN"",""HLOPROC1"",147,0)"
^XMB(3.9,41,2,8760,0)=" S PROC="""" F  S PROC=$O(^HLC(""HL7 PROCESS COUNTS"",""RUNNING"",PROC)) Q:PROC=""""  S ^HLC(""HL7 PROCESS COUNTS"",""RUNNING"",PROC)=+$G(COUNTS(PROC))"
^XMB(3.9,41,2,8761,0)="""RTN"",""HLOPROC1"",148,0)"
^XMB(3.9,41,2,8762,0)=" L -HL7(""COUNTING PROCESSES"")"
^XMB(3.9,41,2,8763,0)="""RTN"",""HLOPROC1"",149,0)"
^XMB(3.9,41,2,8764,0)=" Q"
^XMB(3.9,41,2,8765,0)="""RTN"",""HLOPROC1"",150,0)"
^XMB(3.9,41,2,8766,0)=" ;"
^XMB(3.9,41,2,8767,0)="""RTN"",""HLOPROC1"",151,0)"
^XMB(3.9,41,2,8768,0)="CNTQUED ;count the queued tasks"
^XMB(3.9,41,2,8769,0)="""RTN"",""HLOPROC1"",152,0)"
^XMB(3.9,41,2,8770,0)=" N JOB,COUNTS,PROC"
^XMB(3.9,41,2,8771,0)="""RTN"",""HLOPROC1"",153,0)"
^XMB(3.9,41,2,8772,0)=" L +HL7(""COUNTING PROCESSES""):20"
^XMB(3.9,41,2,8773,0)="""RTN"",""HLOPROC1"",154,0)"
^XMB(3.9,41,2,8774,0)=" Q:'$T"
^XMB(3.9,41,2,8775,0)="""RTN"",""HLOPROC1"",155,0)"
^XMB(3.9,41,2,8776,0)=" S JOB="""""
^XMB(3.9,41,2,8777,0)="""RTN"",""HLOPROC1"",156,0)"
^XMB(3.9,41,2,8778,0)=" F  S JOB=$O(^HLTMP(""HL7 QUEUED PROCESSES"",JOB)) Q:JOB=""""  S PROC=$P($G(^HLTMP(""HL7 QUEUED PROCESSES"",JOB)),""^"",2) I PROC]"""" S COUNTS(PROC)=$G(COUNTS(PROC))+1"
^XMB(3.9,41,2,8779,0)="""RTN"",""HLOPROC1"",157,0)"
^XMB(3.9,41,2,8780,0)=" S PROC="""" F  S PROC=$O(COUNTS(PROC)) Q:PROC=""""  S ^HLC(""HL7 PROCESS COUNTS"",""QUEUED"",PROC)=COUNTS(PROC)"
^XMB(3.9,41,2,8781,0)="""RTN"",""HLOPROC1"",158,0)"
^XMB(3.9,41,2,8782,0)=" S PROC="""" F  S PROC=$O(^HLC(""HL7 PROCESS COUNTS"",""QUEUED"",PROC)) Q:PROC=""""  S ^HLC(""HL7 PROCESS COUNTS"",""QUEUED"",PROC)=+$G(COUNTS(PROC))"
^XMB(3.9,41,2,8783,0)="""RTN"",""HLOPROC1"",159,0)"
^XMB(3.9,41,2,8784,0)=" L -HL7(""COUNTING PROCESSES"")"
^XMB(3.9,41,2,8785,0)="""RTN"",""HLOPROC1"",160,0)"
^XMB(3.9,41,2,8786,0)=" Q"
^XMB(3.9,41,2,8787,0)="""RTN"",""HLOPROC1"",161,0)"
^XMB(3.9,41,2,8788,0)=" ;"
^XMB(3.9,41,2,8789,0)="""RTN"",""HLOPROC1"",162,0)"
^XMB(3.9,41,2,8790,0)="RECOUNT(RECOUNT) ;check that the processes that are supposed to be running actually are, same for the queued processes"
^XMB(3.9,41,2,8791,0)="""RTN"",""HLOPROC1"",163,0)"
^XMB(3.9,41,2,8792,0)=" ;Input:"
^XMB(3.9,41,2,8793,0)="""RTN"",""HLOPROC1"",164,0)"
^XMB(3.9,41,2,8794,0)=" ;  RECOUNT (pass by reference, optional) not used, but passed in by the process manager"
^XMB(3.9,41,2,8795,0)="""RTN"",""HLOPROC1"",165,0)"
^XMB(3.9,41,2,8796,0)=" ;"
^XMB(3.9,41,2,8797,0)="""RTN"",""HLOPROC1"",166,0)"
^XMB(3.9,41,2,8798,0)=" ;"
^XMB(3.9,41,2,8799,0)="""RTN"",""HLOPROC1"",167,0)"
^XMB(3.9,41,2,8800,0)=" ;check for processes that are supposed to be running or queued but aren't"
^XMB(3.9,41,2,8801,0)="""RTN"",""HLOPROC1"",168,0)"
^XMB(3.9,41,2,8802,0)=" D CHKDEAD(),CHKQUED"
^XMB(3.9,41,2,8803,0)="""RTN"",""HLOPROC1"",169,0)"
^XMB(3.9,41,2,8804,0)=" ;"
^XMB(3.9,41,2,8805,0)="""RTN"",""HLOPROC1"",170,0)"
^XMB(3.9,41,2,8806,0)=" ;recount the processes"
^XMB(3.9,41,2,8807,0)="""RTN"",""HLOPROC1"",171,0)"
^XMB(3.9,41,2,8808,0)=" D CNTLIVE,CNTQUED"
^XMB(3.9,41,2,8809,0)="""RTN"",""HLOPROC1"",172,0)"
^XMB(3.9,41,2,8810,0)=" Q"
^XMB(3.9,41,2,8811,0)="""RTN"",""HLOPRS"")"
^XMB(3.9,41,2,8812,0)="0^49^B30060156"
^XMB(3.9,41,2,8813,0)="""RTN"",""HLOPRS"",1,0)"
^XMB(3.9,41,2,8814,0)="HLOPRS ;IRMFO-ALB/CJM -RTNs for parsing messages;03/24/2004  14:43"
^XMB(3.9,41,2,8815,0)="""RTN"",""HLOPRS"",2,0)"
^XMB(3.9,41,2,8816,0)=" ;;1.6;HEALTH LEVEL SEVEN;**118,126**;Oct 13, 1995"
^XMB(3.9,41,2,8817,0)="""RTN"",""HLOPRS"",3,0)"
^XMB(3.9,41,2,8818,0)=" ;"
^XMB(3.9,41,2,8819,0)="""RTN"",""HLOPRS"",4,0)"
^XMB(3.9,41,2,8820,0)="STARTMSG(MSG,IEN,HDR) ;"
^XMB(3.9,41,2,8821,0)="""RTN"",""HLOPRS"",5,0)"
^XMB(3.9,41,2,8822,0)=" ;Description:  This function begins the parsing of the message, parsing"
^XMB(3.9,41,2,8823,0)="""RTN"",""HLOPRS"",6,0)"
^XMB(3.9,41,2,8824,0)=" ;the header and returning the individual values in the array HDR()."
^XMB(3.9,41,2,8825,0)="""RTN"",""HLOPRS"",7,0)"
^XMB(3.9,41,2,8826,0)=" ;Input: "
^XMB(3.9,41,2,8827,0)="""RTN"",""HLOPRS"",8,0)"
^XMB(3.9,41,2,8828,0)=" ;  IEN - The internal entry number of the message in file 778."
^XMB(3.9,41,2,8829,0)="""RTN"",""HLOPRS"",9,0)"
^XMB(3.9,41,2,8830,0)=" ;Output:"
^XMB(3.9,41,2,8831,0)="""RTN"",""HLOPRS"",10,0)"
^XMB(3.9,41,2,8832,0)=" ;  Function returns 1 on success, 0 on failure.  Failure would indicate that the message was not found."
^XMB(3.9,41,2,8833,0)="""RTN"",""HLOPRS"",11,0)"
^XMB(3.9,41,2,8834,0)=" ;  MSG - (pass by reference, required) This array is used by the HL7 package to track the progress of parsing the message.  The application MUST NOT touch it!"
^XMB(3.9,41,2,8835,0)="""RTN"",""HLOPRS"",12,0)"
^XMB(3.9,41,2,8836,0)=" ;  HDR (pass by reference, optional)   This array contains the results of parsing the message header."
^XMB(3.9,41,2,8837,0)="""RTN"",""HLOPRS"",13,0)"
^XMB(3.9,41,2,8838,0)=" K MSG,HDR"
^XMB(3.9,41,2,8839,0)="""RTN"",""HLOPRS"",14,0)"
^XMB(3.9,41,2,8840,0)=" Q:'$G(IEN) 0"
^XMB(3.9,41,2,8841,0)="""RTN"",""HLOPRS"",15,0)"
^XMB(3.9,41,2,8842,0)=" Q:'$$GETMSG^HLOMSG(IEN,.MSG) 0"
^XMB(3.9,41,2,8843,0)="""RTN"",""HLOPRS"",16,0)"
^XMB(3.9,41,2,8844,0)=" M HDR=MSG(""HDR"")"
^XMB(3.9,41,2,8845,0)="""RTN"",""HLOPRS"",17,0)"
^XMB(3.9,41,2,8846,0)=" Q:'$$PARSEHDR(.HDR) 0"
^XMB(3.9,41,2,8847,0)="""RTN"",""HLOPRS"",18,0)"
^XMB(3.9,41,2,8848,0)=" M MSG(""HDR"")=HDR"
^XMB(3.9,41,2,8849,0)="""RTN"",""HLOPRS"",19,0)"
^XMB(3.9,41,2,8850,0)=" Q 1"
^XMB(3.9,41,2,8851,0)="""RTN"",""HLOPRS"",20,0)"
^XMB(3.9,41,2,8852,0)=" ;"
^XMB(3.9,41,2,8853,0)="""RTN"",""HLOPRS"",21,0)"
^XMB(3.9,41,2,8854,0)="NEXTSEG(MSG,SEG) ;"
^XMB(3.9,41,2,8855,0)="""RTN"",""HLOPRS"",22,0)"
^XMB(3.9,41,2,8856,0)=" ;Description:  Advances parsing to the next segment and returns the parsed values from that segment."
^XMB(3.9,41,2,8857,0)="""RTN"",""HLOPRS"",23,0)"
^XMB(3.9,41,2,8858,0)=" ;Input:"
^XMB(3.9,41,2,8859,0)="""RTN"",""HLOPRS"",24,0)"
^XMB(3.9,41,2,8860,0)=" ;  MSG - (pass by reference, required) This array is used by the HL7 package to track the current position in the message.  The application MUST NOT touch it!"
^XMB(3.9,41,2,8861,0)="""RTN"",""HLOPRS"",25,0)"
^XMB(3.9,41,2,8862,0)=" ;Output:"
^XMB(3.9,41,2,8863,0)="""RTN"",""HLOPRS"",26,0)"
^XMB(3.9,41,2,8864,0)=" ;  Function  returns 1 on success, 0 if there are no more segments in this message.  For batch messages, a return value of 0 does not preclude the possibility that there are additional individual messages within the batch."
^XMB(3.9,41,2,8865,0)="""RTN"",""HLOPRS"",27,0)"
^XMB(3.9,41,2,8866,0)=" ;  MSG - (pass by reference, required)"
^XMB(3.9,41,2,8867,0)="""RTN"",""HLOPRS"",28,0)"
^XMB(3.9,41,2,8868,0)=" ;  SEG - (pass by reference, required)  The segment is returned in this array."
^XMB(3.9,41,2,8869,0)="""RTN"",""HLOPRS"",29,0)"
^XMB(3.9,41,2,8870,0)=" ;"
^XMB(3.9,41,2,8871,0)="""RTN"",""HLOPRS"",30,0)"
^XMB(3.9,41,2,8872,0)=" N TEMP,CODES"
^XMB(3.9,41,2,8873,0)="""RTN"",""HLOPRS"",31,0)"
^XMB(3.9,41,2,8874,0)=" K SEG"
^XMB(3.9,41,2,8875,0)="""RTN"",""HLOPRS"",32,0)"
^XMB(3.9,41,2,8876,0)=" I '$$HLNEXT^HLOMSG(.MSG,.TEMP) Q 0"
^XMB(3.9,41,2,8877,0)="""RTN"",""HLOPRS"",33,0)"
^XMB(3.9,41,2,8878,0)=" S CODES=MSG(""HDR"",""ENCODING CHARACTERS"")"
^XMB(3.9,41,2,8879,0)="""RTN"",""HLOPRS"",34,0)"
^XMB(3.9,41,2,8880,0)=" Q $$PARSE^HLOPRS1(MSG(""HDR"",""FIELD SEPARATOR""),$E(CODES,2),$E(CODES,1),$E(CODES,4),$E(CODES,3),.TEMP,.SEG)"
^XMB(3.9,41,2,8881,0)="""RTN"",""HLOPRS"",35,0)"
^XMB(3.9,41,2,8882,0)=" ;"
^XMB(3.9,41,2,8883,0)="""RTN"",""HLOPRS"",36,0)"
^XMB(3.9,41,2,8884,0)="NEXTMSG(MSG,MSH) ;"
^XMB(3.9,41,2,8885,0)="""RTN"",""HLOPRS"",37,0)"
^XMB(3.9,41,2,8886,0)=" ;Description:  Advances to the next message within the batch, with the MSH segment returned."
^XMB(3.9,41,2,8887,0)="""RTN"",""HLOPRS"",38,0)"
^XMB(3.9,41,2,8888,0)=" ;Input:"
^XMB(3.9,41,2,8889,0)="""RTN"",""HLOPRS"",39,0)"
^XMB(3.9,41,2,8890,0)=" ; MSG (pass by reference, required) This array is used by the HL7 package to track the current position in the message.  The application MUST NOT touch it!"
^XMB(3.9,41,2,8891,0)="""RTN"",""HLOPRS"",40,0)"
^XMB(3.9,41,2,8892,0)=" ;OUTPUT:"
^XMB(3.9,41,2,8893,0)="""RTN"",""HLOPRS"",41,0)"
^XMB(3.9,41,2,8894,0)=" ;  Function returns 1 on success, 0 if there are no more messages"
^XMB(3.9,41,2,8895,0)="""RTN"",""HLOPRS"",42,0)"
^XMB(3.9,41,2,8896,0)=" ;  MSG - (pass by reference)"
^XMB(3.9,41,2,8897,0)="""RTN"",""HLOPRS"",43,0)"
^XMB(3.9,41,2,8898,0)=" ;  MSH - (pass by reference, required) Returns the parsed message header"
^XMB(3.9,41,2,8899,0)="""RTN"",""HLOPRS"",44,0)"
^XMB(3.9,41,2,8900,0)=" ;"
^XMB(3.9,41,2,8901,0)="""RTN"",""HLOPRS"",45,0)"
^XMB(3.9,41,2,8902,0)=" K MSH"
^XMB(3.9,41,2,8903,0)="""RTN"",""HLOPRS"",46,0)"
^XMB(3.9,41,2,8904,0)=" N NODE"
^XMB(3.9,41,2,8905,0)="""RTN"",""HLOPRS"",47,0)"
^XMB(3.9,41,2,8906,0)=" Q:'$$NEXTMSG^HLOMSG(.MSG,.MSH) 0"
^XMB(3.9,41,2,8907,0)="""RTN"",""HLOPRS"",48,0)"
^XMB(3.9,41,2,8908,0)=" Q:'$$PARSEHDR(.MSH) 0"
^XMB(3.9,41,2,8909,0)="""RTN"",""HLOPRS"",49,0)"
^XMB(3.9,41,2,8910,0)=" S MSG(""BATCH"",""CURRENT MESSAGE"",""EVENT"")=MSH(""EVENT"")"
^XMB(3.9,41,2,8911,0)="""RTN"",""HLOPRS"",50,0)"
^XMB(3.9,41,2,8912,0)=" S MSG(""BATCH"",""CURRENT MESSAGE"",""MESSAGE CONTROL ID"")=MSH(""MESSAGE CONTROL ID"")"
^XMB(3.9,41,2,8913,0)="""RTN"",""HLOPRS"",51,0)"
^XMB(3.9,41,2,8914,0)=" S NODE=$G(^HLB(MSG(""IEN""),3,MSG(""BATCH"",""CURRENT MESSAGE""),0))"
^XMB(3.9,41,2,8915,0)="""RTN"",""HLOPRS"",52,0)"
^XMB(3.9,41,2,8916,0)=" S MSG(""BATCH"",""CURRENT MESSAGE"",""ACK TO"")=$P(NODE,""^"",3)"
^XMB(3.9,41,2,8917,0)="""RTN"",""HLOPRS"",53,0)"
^XMB(3.9,41,2,8918,0)=" S MSG(""BATCH"",""CURRENT MESSAGE"",""ACK BY"")=$P(NODE,""^"",4)"
^XMB(3.9,41,2,8919,0)="""RTN"",""HLOPRS"",54,0)"
^XMB(3.9,41,2,8920,0)=" ;"
^XMB(3.9,41,2,8921,0)="""RTN"",""HLOPRS"",55,0)"
^XMB(3.9,41,2,8922,0)=" I MSG(""BATCH"",""CURRENT MESSAGE"",""ACK TO"")]"""" S MSG(""BATCH"",""CURRENT MESSAGE"",""ACK TO IEN"")=$$ACKTOIEN^HLOMSG1(MSG(""MESSAGE CONTROL ID""),MSG(""BATCH"",""CURRENT MESSAGE"",""ACK TO""))"
^XMB(3.9,41,2,8923,0)="""RTN"",""HLOPRS"",56,0)"
^XMB(3.9,41,2,8924,0)=" I MSG(""BATCH"",""CURRENT MESSAGE"",""ACK BY"")]"""" S MSG(""BATCH"",""CURRENT MESSAGE"",""ACK BY IEN"")=$$ACKBYIEN^HLOMSG1(MSG(""MESSAGE CONTROL ID""),MSG(""BATCH"",""CURRENT MESSAGE"",""ACK BY""))"
^XMB(3.9,41,2,8925,0)="""RTN"",""HLOPRS"",57,0)"
^XMB(3.9,41,2,8926,0)=" ;"
^XMB(3.9,41,2,8927,0)="""RTN"",""HLOPRS"",58,0)"
^XMB(3.9,41,2,8928,0)=" Q 1"
^XMB(3.9,41,2,8929,0)="""RTN"",""HLOPRS"",59,0)"
^XMB(3.9,41,2,8930,0)=" ;"
^XMB(3.9,41,2,8931,0)="""RTN"",""HLOPRS"",60,0)"
^XMB(3.9,41,2,8932,0)="PARSEHDR(HDR) ;"
^XMB(3.9,41,2,8933,0)="""RTN"",""HLOPRS"",61,0)"
^XMB(3.9,41,2,8934,0)=" ;Parses the segment (HDR, pass by reference) into the HDR() array using meaningful subscripts."
^XMB(3.9,41,2,8935,0)="""RTN"",""HLOPRS"",62,0)"
^XMB(3.9,41,2,8936,0)=" ;Input:"
^XMB(3.9,41,2,8937,0)="""RTN"",""HLOPRS"",63,0)"
^XMB(3.9,41,2,8938,0)=" ;  HDR (pass by reference, required) contains the segment in the format HDR(1),HDR(2), etc.."
^XMB(3.9,41,2,8939,0)="""RTN"",""HLOPRS"",64,0)"
^XMB(3.9,41,2,8940,0)=" ;Output:"
^XMB(3.9,41,2,8941,0)="""RTN"",""HLOPRS"",65,0)"
^XMB(3.9,41,2,8942,0)=" ;  HDR (pass by reference, required) This array will contain all the individual values.  Also will contain HDR(1) with components 1-6 and HDR(2) with components 1-end"
^XMB(3.9,41,2,8943,0)="""RTN"",""HLOPRS"",66,0)"
^XMB(3.9,41,2,8944,0)=" ;  Function - returns 1 if the segment is indeed an MSH or BHS segment, 0 otherwise"
^XMB(3.9,41,2,8945,0)="""RTN"",""HLOPRS"",67,0)"
^XMB(3.9,41,2,8946,0)=" ;"
^XMB(3.9,41,2,8947,0)="""RTN"",""HLOPRS"",68,0)"
^XMB(3.9,41,2,8948,0)=" N VALUE,FS,CS,REP,SUBCOMP,ESCAPE"
^XMB(3.9,41,2,8949,0)="""RTN"",""HLOPRS"",69,0)"
^XMB(3.9,41,2,8950,0)=" S VALUE=$E(HDR(1),1,3)"
^XMB(3.9,41,2,8951,0)="""RTN"",""HLOPRS"",70,0)"
^XMB(3.9,41,2,8952,0)=" I VALUE'=""MSH"",VALUE'=""BHS"" Q 0"
^XMB(3.9,41,2,8953,0)="""RTN"",""HLOPRS"",71,0)"
^XMB(3.9,41,2,8954,0)=" S HDR(""SEGMENT TYPE"")=VALUE"
^XMB(3.9,41,2,8955,0)="""RTN"",""HLOPRS"",72,0)"
^XMB(3.9,41,2,8956,0)=" S FS=$E(HDR(1),4)"
^XMB(3.9,41,2,8957,0)="""RTN"",""HLOPRS"",73,0)"
^XMB(3.9,41,2,8958,0)=" S CS=$E(HDR(1),5)"
^XMB(3.9,41,2,8959,0)="""RTN"",""HLOPRS"",74,0)"
^XMB(3.9,41,2,8960,0)=" S REP=$E(HDR(1),6)"
^XMB(3.9,41,2,8961,0)="""RTN"",""HLOPRS"",75,0)"
^XMB(3.9,41,2,8962,0)=" S ESCAPE=$E(HDR(1),7)"
^XMB(3.9,41,2,8963,0)="""RTN"",""HLOPRS"",76,0)"
^XMB(3.9,41,2,8964,0)=" S SUBCOMP=$E(HDR(1),8)"
^XMB(3.9,41,2,8965,0)="""RTN"",""HLOPRS"",77,0)"
^XMB(3.9,41,2,8966,0)=" Q:$L(FS)'=1 0"
^XMB(3.9,41,2,8967,0)="""RTN"",""HLOPRS"",78,0)"
^XMB(3.9,41,2,8968,0)=" Q:$L(CS)'=1 0"
^XMB(3.9,41,2,8969,0)="""RTN"",""HLOPRS"",79,0)"
^XMB(3.9,41,2,8970,0)=" S HDR(""FIELD SEPARATOR"")=FS"
^XMB(3.9,41,2,8971,0)="""RTN"",""HLOPRS"",80,0)"
^XMB(3.9,41,2,8972,0)=" S HDR(""ENCODING CHARACTERS"")=$E(HDR(1),5,8)"
^XMB(3.9,41,2,8973,0)="""RTN"",""HLOPRS"",81,0)"
^XMB(3.9,41,2,8974,0)=" S HDR(""COMPONENT SEPARATOR"")=CS"
^XMB(3.9,41,2,8975,0)="""RTN"",""HLOPRS"",82,0)"
^XMB(3.9,41,2,8976,0)=" S HDR(""REPETITION SEPARATOR"")=$E(HDR(1),6)"
^XMB(3.9,41,2,8977,0)="""RTN"",""HLOPRS"",83,0)"
^XMB(3.9,41,2,8978,0)=" S HDR(""ESCAPE CHARACTER"")=$E(HDR(1),7)"
^XMB(3.9,41,2,8979,0)="""RTN"",""HLOPRS"",84,0)"
^XMB(3.9,41,2,8980,0)=" S HDR(""SUBCOMPONENT SEPARATOR"")=$E(HDR(1),8)"
^XMB(3.9,41,2,8981,0)="""RTN"",""HLOPRS"",85,0)"
^XMB(3.9,41,2,8982,0)=" S HDR(""SENDING APPLICATION"")=$$DESCAPE^HLOPRS1($P($P(HDR(1),FS,3),CS),FS,CS,SUBCOMP,REP,ESCAPE)"
^XMB(3.9,41,2,8983,0)="""RTN"",""HLOPRS"",86,0)"
^XMB(3.9,41,2,8984,0)=" S VALUE=$P(HDR(1),FS,4)"
^XMB(3.9,41,2,8985,0)="""RTN"",""HLOPRS"",87,0)"
^XMB(3.9,41,2,8986,0)=" S HDR(""SENDING FACILITY"",1)=$P(VALUE,CS)"
^XMB(3.9,41,2,8987,0)="""RTN"",""HLOPRS"",88,0)"
^XMB(3.9,41,2,8988,0)=" S HDR(""SENDING FACILITY"",2)=$$DESCAPE^HLOPRS1($P(VALUE,CS,2),FS,CS,SUBCOMP,REP,ESCAPE)"
^XMB(3.9,41,2,8989,0)="""RTN"",""HLOPRS"",89,0)"
^XMB(3.9,41,2,8990,0)=" S HDR(""SENDING FACILITY"",3)=$P(VALUE,CS,3)"
^XMB(3.9,41,2,8991,0)="""RTN"",""HLOPRS"",90,0)"
^XMB(3.9,41,2,8992,0)=" S HDR(""RECEIVING APPLICATION"")=$$DESCAPE^HLOPRS1($P($P(HDR(1),FS,5),CS),FS,CS,SUBCOMP,REP,ESCAPE)"
^XMB(3.9,41,2,8993,0)="""RTN"",""HLOPRS"",91,0)"
^XMB(3.9,41,2,8994,0)=" S VALUE=$P(HDR(1),FS,6)"
^XMB(3.9,41,2,8995,0)="""RTN"",""HLOPRS"",92,0)"
^XMB(3.9,41,2,8996,0)=" S HDR(""RECEIVING FACILITY"",1)=$P(VALUE,CS)"
^XMB(3.9,41,2,8997,0)="""RTN"",""HLOPRS"",93,0)"
^XMB(3.9,41,2,8998,0)=" S HDR(""RECEIVING FACILITY"",2)=$$DESCAPE^HLOPRS1($P(VALUE,CS,2),FS,CS,SUBCOMP,REP,ESCAPE)"
^XMB(3.9,41,2,8999,0)="""RTN"",""HLOPRS"",94,0)"
^XMB(3.9,41,2,9000,0)=" S HDR(""RECEIVING FACILITY"",3)=$P(VALUE,CS,3)"
^XMB(3.9,41,2,9001,0)="""RTN"",""HLOPRS"",95,0)"
^XMB(3.9,41,2,9002,0)=" S HDR(""DT/TM OF MESSAGE"")=$$FMDATE^HLFNC($P($P(HDR(2),FS,2),CS))"
^XMB(3.9,41,2,9003,0)="""RTN"",""HLOPRS"",96,0)"
^XMB(3.9,41,2,9004,0)=" S HDR(""SECURITY"")=$$DESCAPE^HLOPRS1($P($P(HDR(2),FS,3),CS),FS,CS,SUBCOMP,REP,ESCAPE)"
^XMB(3.9,41,2,9005,0)="""RTN"",""HLOPRS"",97,0)"
^XMB(3.9,41,2,9006,0)=" ;"
^XMB(3.9,41,2,9007,0)="""RTN"",""HLOPRS"",98,0)"
^XMB(3.9,41,2,9008,0)=" I HDR(""SEGMENT TYPE"")=""MSH"" D"
^XMB(3.9,41,2,9009,0)="""RTN"",""HLOPRS"",99,0)"
^XMB(3.9,41,2,9010,0)=" .S VALUE=$P(HDR(2),FS,4)"
^XMB(3.9,41,2,9011,0)="""RTN"",""HLOPRS"",100,0)"
^XMB(3.9,41,2,9012,0)=" .S HDR(""MESSAGE TYPE"")=$P(VALUE,CS)"
^XMB(3.9,41,2,9013,0)="""RTN"",""HLOPRS"",101,0)"
^XMB(3.9,41,2,9014,0)=" .S HDR(""EVENT"")=$P(VALUE,CS,2)"
^XMB(3.9,41,2,9015,0)="""RTN"",""HLOPRS"",102,0)"
^XMB(3.9,41,2,9016,0)=" .S HDR(""MESSAGE STRUCTURE"")=$P(VALUE,CS,3)"
^XMB(3.9,41,2,9017,0)="""RTN"",""HLOPRS"",103,0)"
^XMB(3.9,41,2,9018,0)=" .S HDR(""MESSAGE CONTROL ID"")=$P($P(HDR(2),FS,5),CS)"
^XMB(3.9,41,2,9019,0)="""RTN"",""HLOPRS"",104,0)"
^XMB(3.9,41,2,9020,0)=" .S VALUE=$P(HDR(2),FS,6)"
^XMB(3.9,41,2,9021,0)="""RTN"",""HLOPRS"",105,0)"
^XMB(3.9,41,2,9022,0)=" .S HDR(""PROCESSING ID"")=$P(VALUE,CS)"
^XMB(3.9,41,2,9023,0)="""RTN"",""HLOPRS"",106,0)"
^XMB(3.9,41,2,9024,0)=" .S HDR(""PROCESSING MODE"")=$P(VALUE,CS,2)"
^XMB(3.9,41,2,9025,0)="""RTN"",""HLOPRS"",107,0)"
^XMB(3.9,41,2,9026,0)=" .S HDR(""VERSION"")=$$DESCAPE^HLOPRS1($P($P(HDR(2),FS,7),CS),FS,CS,SUBCOMP,REP,ESCAPE)"
^XMB(3.9,41,2,9027,0)="""RTN"",""HLOPRS"",108,0)"
^XMB(3.9,41,2,9028,0)=" .S HDR(""CONTINUATION POINTER"")=$P($P(HDR(2),FS,9),CS)"
^XMB(3.9,41,2,9029,0)="""RTN"",""HLOPRS"",109,0)"
^XMB(3.9,41,2,9030,0)=" .S HDR(""ACCEPT ACK TYPE"")=$P($P(HDR(2),FS,10),CS)"
^XMB(3.9,41,2,9031,0)="""RTN"",""HLOPRS"",110,0)"
^XMB(3.9,41,2,9032,0)=" .S HDR(""APP ACK TYPE"")=$P($P(HDR(2),FS,11),CS)"
^XMB(3.9,41,2,9033,0)="""RTN"",""HLOPRS"",111,0)"
^XMB(3.9,41,2,9034,0)=" .S HDR(""COUNTRY"")=$P($P(HDR(2),FS,12),CS)"
^XMB(3.9,41,2,9035,0)="""RTN"",""HLOPRS"",112,0)"
^XMB(3.9,41,2,9036,0)=" ;"
^XMB(3.9,41,2,9037,0)="""RTN"",""HLOPRS"",113,0)"
^XMB(3.9,41,2,9038,0)=" I HDR(""SEGMENT TYPE"")=""BHS"" D"
^XMB(3.9,41,2,9039,0)="""RTN"",""HLOPRS"",114,0)"
^XMB(3.9,41,2,9040,0)=" .S VALUE=$P(HDR(2),FS,4)"
^XMB(3.9,41,2,9041,0)="""RTN"",""HLOPRS"",115,0)"
^XMB(3.9,41,2,9042,0)=" .S HDR(""BATCH NAME/ID/TYPE"")=$$DESCAPE^HLOPRS1(VALUE,FS,CS,SUBCOMP,REP,ESCAPE)"
^XMB(3.9,41,2,9043,0)="""RTN"",""HLOPRS"",116,0)"
^XMB(3.9,41,2,9044,0)=" .S HDR(""PROCESSING ID"")=$E($P(VALUE,""PROCESSING ID="",2),1)"
^XMB(3.9,41,2,9045,0)="""RTN"",""HLOPRS"",117,0)"
^XMB(3.9,41,2,9046,0)=" .S HDR(""ACCEPT ACK TYPE"")=$E($P(VALUE,""ACCEPT ACK TYPE="",2),1,2)"
^XMB(3.9,41,2,9047,0)="""RTN"",""HLOPRS"",118,0)"
^XMB(3.9,41,2,9048,0)=" .S HDR(""APP ACK TYPE"")=$E($P(VALUE,""APP ACK TYPE="",2),1,2)"
^XMB(3.9,41,2,9049,0)="""RTN"",""HLOPRS"",119,0)"
^XMB(3.9,41,2,9050,0)=" .S HDR(""BATCH COMMENT"")=$$DESCAPE^HLOPRS1($P(HDR(2),FS,5),FS,CS,SUBCOMP,REP,ESCAPE)"
^XMB(3.9,41,2,9051,0)="""RTN"",""HLOPRS"",120,0)"
^XMB(3.9,41,2,9052,0)=" .S HDR(""BATCH CONTROL ID"")=$P($P(HDR(2),FS,6),CS)"
^XMB(3.9,41,2,9053,0)="""RTN"",""HLOPRS"",121,0)"
^XMB(3.9,41,2,9054,0)=" .S HDR(""REFERENCE BATCH CONTROL ID"")=$P($P(HDR(2),FS,7),CS)"
^XMB(3.9,41,2,9055,0)="""RTN"",""HLOPRS"",122,0)"
^XMB(3.9,41,2,9056,0)=" .;"
^XMB(3.9,41,2,9057,0)="""RTN"",""HLOPRS"",123,0)"
^XMB(3.9,41,2,9058,0)=" Q 1"
^XMB(3.9,41,2,9059,0)="""RTN"",""HLOPRS"",124,0)"
^XMB(3.9,41,2,9060,0)=" ;"
^XMB(3.9,41,2,9061,0)="""RTN"",""HLOPRS"",125,0)"
^XMB(3.9,41,2,9062,0)="GET(SEG,FIELD,COMP,SUBCOMP,REP) ;"
^XMB(3.9,41,2,9063,0)="""RTN"",""HLOPRS"",126,0)"
^XMB(3.9,41,2,9064,0)=" ;This function gets a specified value from a segment that was parsed by"
^XMB(3.9,41,2,9065,0)="""RTN"",""HLOPRS"",127,0)"
^XMB(3.9,41,2,9066,0)=" ;$$NEXTSEG. The FIELD,COMP,SUBCOMP,REP parameters are optional - if not"
^XMB(3.9,41,2,9067,0)="""RTN"",""HLOPRS"",128,0)"
^XMB(3.9,41,2,9068,0)=" ;specified, they default to 1."
^XMB(3.9,41,2,9069,0)="""RTN"",""HLOPRS"",129,0)"
^XMB(3.9,41,2,9070,0)=" ;  Example:"
^XMB(3.9,41,2,9071,0)="""RTN"",""HLOPRS"",130,0)"
^XMB(3.9,41,2,9072,0)=" ;    $$GET^HLOPRS(.SEG,1) will return the value of the first field, first"
^XMB(3.9,41,2,9073,0)="""RTN"",""HLOPRS"",131,0)"
^XMB(3.9,41,2,9074,0)=" ;  component, first subcomponent, in the first occurrence of field #1.  "
^XMB(3.9,41,2,9075,0)="""RTN"",""HLOPRS"",132,0)"
^XMB(3.9,41,2,9076,0)=" ;Input:"
^XMB(3.9,41,2,9077,0)="""RTN"",""HLOPRS"",133,0)"
^XMB(3.9,41,2,9078,0)=" ;SEG - (required, pass by reference) - this is the array where the parsed segment was placed by $$NEXTSEG"
^XMB(3.9,41,2,9079,0)="""RTN"",""HLOPRS"",134,0)"
^XMB(3.9,41,2,9080,0)=" ;FIELD - the sequence # of the field (optional, defaults to 1)"
^XMB(3.9,41,2,9081,0)="""RTN"",""HLOPRS"",135,0)"
^XMB(3.9,41,2,9082,0)=" ;COMP - the # of the component (optional, defaults to 1)"
^XMB(3.9,41,2,9083,0)="""RTN"",""HLOPRS"",136,0)"
^XMB(3.9,41,2,9084,0)=" ;SUBCOMP - the # of the subcomponent (optional, defaults to 1)"
^XMB(3.9,41,2,9085,0)="""RTN"",""HLOPRS"",137,0)"
^XMB(3.9,41,2,9086,0)=" ;REP - the occurrence# (optional, defaults to 1)  For a non-repeating field, the occurrence # need not be provided, because it would be 1."
^XMB(3.9,41,2,9087,0)="""RTN"",""HLOPRS"",138,0)"
^XMB(3.9,41,2,9088,0)=" ;Output:"
^XMB(3.9,41,2,9089,0)="""RTN"",""HLOPRS"",139,0)"
^XMB(3.9,41,2,9090,0)=" ;  Function returns the requested value on success, """" if not valued."
^XMB(3.9,41,2,9091,0)="""RTN"",""HLOPRS"",140,0)"
^XMB(3.9,41,2,9092,0)=" ;"
^XMB(3.9,41,2,9093,0)="""RTN"",""HLOPRS"",141,0)"
^XMB(3.9,41,2,9094,0)=" ;allow the segment type to be obtained via field #0 (shorthand)"
^XMB(3.9,41,2,9095,0)="""RTN"",""HLOPRS"",142,0)"
^XMB(3.9,41,2,9096,0)=" I $D(FIELD),$G(FIELD)=0 Q $G(SEG(""SEGMENT TYPE""))"
^XMB(3.9,41,2,9097,0)="""RTN"",""HLOPRS"",143,0)"
^XMB(3.9,41,2,9098,0)=" S:'$G(FIELD) FIELD=1"
^XMB(3.9,41,2,9099,0)="""RTN"",""HLOPRS"",144,0)"
^XMB(3.9,41,2,9100,0)=" ;"
^XMB(3.9,41,2,9101,0)="""RTN"",""HLOPRS"",145,0)"
^XMB(3.9,41,2,9102,0)=" ;for MSH or BHS, SEQ#1 is the  field separator"
^XMB(3.9,41,2,9103,0)="""RTN"",""HLOPRS"",146,0)"
^XMB(3.9,41,2,9104,0)=" I FIELD=1,$G(SEG(""SEGMENT TYPE""))=""MSH""!($G(SEG(""SEGMENT TYPE""))=""BHS""),$G(REP)<2,$G(COMP)<2,$G(SUBCOMP)<2 Q SEG(""FIELD SEPARATOR"")"
^XMB(3.9,41,2,9105,0)="""RTN"",""HLOPRS"",147,0)"
^XMB(3.9,41,2,9106,0)=" I FIELD=1,$G(SEG(""SEGMENT TYPE""))=""MSH""!($G(SEG(""SEGMENT TYPE""))=""BHS"") Q """""
^XMB(3.9,41,2,9107,0)="""RTN"",""HLOPRS"",148,0)"
^XMB(3.9,41,2,9108,0)=" ;"
^XMB(3.9,41,2,9109,0)="""RTN"",""HLOPRS"",149,0)"
^XMB(3.9,41,2,9110,0)=" ;For segments other than MSH or BHS, the first subscript in the SEG array needs to be incremented by 1, because SEG(1,1,1,1) is taken by the segment type, which technically isn't a field. (for convenience,we call it SEQ=0).  "
^XMB(3.9,41,2,9111,0)="""RTN"",""HLOPRS"",150,0)"
^XMB(3.9,41,2,9112,0)=" I $G(SEG(""SEGMENT TYPE""))'=""BHS"",$G(SEG(""SEGMENT TYPE""))'=""MSH"" S FIELD=FIELD+1"
^XMB(3.9,41,2,9113,0)="""RTN"",""HLOPRS"",151,0)"
^XMB(3.9,41,2,9114,0)=" S:'$G(COMP) COMP=1"
^XMB(3.9,41,2,9115,0)="""RTN"",""HLOPRS"",152,0)"
^XMB(3.9,41,2,9116,0)=" S:'$G(SUBCOMP) SUBCOMP=1"
^XMB(3.9,41,2,9117,0)="""RTN"",""HLOPRS"",153,0)"
^XMB(3.9,41,2,9118,0)=" S:'$G(REP) REP=1"
^XMB(3.9,41,2,9119,0)="""RTN"",""HLOPRS"",154,0)"
^XMB(3.9,41,2,9120,0)=" Q $G(SEG(FIELD,REP,COMP,SUBCOMP))"
^XMB(3.9,41,2,9121,0)="""RTN"",""HLOPRS"",155,0)"
^XMB(3.9,41,2,9122,0)=" ;"
^XMB(3.9,41,2,9123,0)="""RTN"",""HLOPURGE"")"
^XMB(3.9,41,2,9124,0)="0^32^B28987748"
^XMB(3.9,41,2,9125,0)="""RTN"",""HLOPURGE"",1,0)"
^XMB(3.9,41,2,9126,0)="HLOPURGE ;IRMFO-ALB/CJM - Purging Old Messages;03/24/2004  14:43"
^XMB(3.9,41,2,9127,0)="""RTN"",""HLOPURGE"",2,0)"
^XMB(3.9,41,2,9128,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995"
^XMB(3.9,41,2,9129,0)="""RTN"",""HLOPURGE"",3,0)"
^XMB(3.9,41,2,9130,0)=" ;"
^XMB(3.9,41,2,9131,0)="""RTN"",""HLOPURGE"",4,0)"
^XMB(3.9,41,2,9132,0)="GETWORK(WORK) ;"
^XMB(3.9,41,2,9133,0)="""RTN"",""HLOPURGE"",5,0)"
^XMB(3.9,41,2,9134,0)=" ;"
^XMB(3.9,41,2,9135,0)="""RTN"",""HLOPURGE"",6,0)"
^XMB(3.9,41,2,9136,0)=" N OK S OK=0"
^XMB(3.9,41,2,9137,0)="""RTN"",""HLOPURGE"",7,0)"
^XMB(3.9,41,2,9138,0)=" I $G(WORK)]"""" L -HLPURGE(WORK)"
^XMB(3.9,41,2,9139,0)="""RTN"",""HLOPURGE"",8,0)"
^XMB(3.9,41,2,9140,0)=" F WORK=""IN"",""OUT"",""OLD778"",""OLD777"" I '$G(WORK(""DONE"",WORK)) L +HLPURGE(WORK):0 S OK=$T Q:OK"
^XMB(3.9,41,2,9141,0)="""RTN"",""HLOPURGE"",9,0)"
^XMB(3.9,41,2,9142,0)=" Q OK"
^XMB(3.9,41,2,9143,0)="""RTN"",""HLOPURGE"",10,0)"
^XMB(3.9,41,2,9144,0)=" ;"
^XMB(3.9,41,2,9145,0)="""RTN"",""HLOPURGE"",11,0)"
^XMB(3.9,41,2,9146,0)="DOWORK(WORK) ;"
^XMB(3.9,41,2,9147,0)="""RTN"",""HLOPURGE"",12,0)"
^XMB(3.9,41,2,9148,0)=" I WORK=""OLD778"" D OLD778"
^XMB(3.9,41,2,9149,0)="""RTN"",""HLOPURGE"",13,0)"
^XMB(3.9,41,2,9150,0)=" I WORK=""OLD777"" D OLD777"
^XMB(3.9,41,2,9151,0)="""RTN"",""HLOPURGE"",14,0)"
^XMB(3.9,41,2,9152,0)=" I (WORK=""IN"")!(WORK=""OUT"") D"
^XMB(3.9,41,2,9153,0)="""RTN"",""HLOPURGE"",15,0)"
^XMB(3.9,41,2,9154,0)=" .N TIME,NOW"
^XMB(3.9,41,2,9155,0)="""RTN"",""HLOPURGE"",16,0)"
^XMB(3.9,41,2,9156,0)=" .S NOW=$$NOW^XLFDT"
^XMB(3.9,41,2,9157,0)="""RTN"",""HLOPURGE"",17,0)"
^XMB(3.9,41,2,9158,0)=" .S TIME=0"
^XMB(3.9,41,2,9159,0)="""RTN"",""HLOPURGE"",18,0)"
^XMB(3.9,41,2,9160,0)=" .F  S TIME=$O(^HLB(""AD"",WORK,TIME)) Q:TIME=""""  Q:TIME>NOW  D"
^XMB(3.9,41,2,9161,0)="""RTN"",""HLOPURGE"",19,0)"
^XMB(3.9,41,2,9162,0)=" ..N MSGIEN"
^XMB(3.9,41,2,9163,0)="""RTN"",""HLOPURGE"",20,0)"
^XMB(3.9,41,2,9164,0)=" ..S MSGIEN=0"
^XMB(3.9,41,2,9165,0)="""RTN"",""HLOPURGE"",21,0)"
^XMB(3.9,41,2,9166,0)=" ..F  S MSGIEN=$O(^HLB(""AD"",WORK,TIME,MSGIEN)) Q:'MSGIEN  D"
^XMB(3.9,41,2,9167,0)="""RTN"",""HLOPURGE"",22,0)"
^XMB(3.9,41,2,9168,0)=" ...D DELETE(MSGIEN)"
^XMB(3.9,41,2,9169,0)="""RTN"",""HLOPURGE"",23,0)"
^XMB(3.9,41,2,9170,0)=" ...K ^HLB(""AD"",WORK,TIME,MSGIEN)"
^XMB(3.9,41,2,9171,0)="""RTN"",""HLOPURGE"",24,0)"
^XMB(3.9,41,2,9172,0)=" S WORK(""DONE"",WORK)=1"
^XMB(3.9,41,2,9173,0)="""RTN"",""HLOPURGE"",25,0)"
^XMB(3.9,41,2,9174,0)=" Q"
^XMB(3.9,41,2,9175,0)="""RTN"",""HLOPURGE"",26,0)"
^XMB(3.9,41,2,9176,0)="OLD778 ;"
^XMB(3.9,41,2,9177,0)="""RTN"",""HLOPURGE"",27,0)"
^XMB(3.9,41,2,9178,0)=" N OLD,START,END,APP,TYPE"
^XMB(3.9,41,2,9179,0)="""RTN"",""HLOPURGE"",28,0)"
^XMB(3.9,41,2,9180,0)=" S OLD=$$FMADD^XLFDT($$DT^XLFDT,-45)"
^XMB(3.9,41,2,9181,0)="""RTN"",""HLOPURGE"",29,0)"
^XMB(3.9,41,2,9182,0)=" F START=0,100000000000,200000000000,300000000000 D"
^XMB(3.9,41,2,9183,0)="""RTN"",""HLOPURGE"",30,0)"
^XMB(3.9,41,2,9184,0)=" .S END=(START+100000000000)-1"
^XMB(3.9,41,2,9185,0)="""RTN"",""HLOPURGE"",31,0)"
^XMB(3.9,41,2,9186,0)=" .N MSGIEN,QUIT"
^XMB(3.9,41,2,9187,0)="""RTN"",""HLOPURGE"",32,0)"
^XMB(3.9,41,2,9188,0)=" .S QUIT=0"
^XMB(3.9,41,2,9189,0)="""RTN"",""HLOPURGE"",33,0)"
^XMB(3.9,41,2,9190,0)=" .S MSGIEN=START"
^XMB(3.9,41,2,9191,0)="""RTN"",""HLOPURGE"",34,0)"
^XMB(3.9,41,2,9192,0)=" .F  S MSGIEN=$O(^HLB(MSGIEN)) Q:'MSGIEN  Q:(MSGIEN>END)  D  Q:QUIT"
^XMB(3.9,41,2,9193,0)="""RTN"",""HLOPURGE"",35,0)"
^XMB(3.9,41,2,9194,0)=" ..N WHEN,BODY,NODE"
^XMB(3.9,41,2,9195,0)="""RTN"",""HLOPURGE"",36,0)"
^XMB(3.9,41,2,9196,0)=" ..S NODE=$G(^HLB(MSGIEN,0))"
^XMB(3.9,41,2,9197,0)="""RTN"",""HLOPURGE"",37,0)"
^XMB(3.9,41,2,9198,0)=" ..S WHEN=$P(NODE,""^"",16)"
^XMB(3.9,41,2,9199,0)="""RTN"",""HLOPURGE"",38,0)"
^XMB(3.9,41,2,9200,0)=" ..I WHEN,WHEN<OLD D DELETE(MSGIEN) Q"
^XMB(3.9,41,2,9201,0)="""RTN"",""HLOPURGE"",39,0)"
^XMB(3.9,41,2,9202,0)=" ..I 'WHEN D"
^XMB(3.9,41,2,9203,0)="""RTN"",""HLOPURGE"",40,0)"
^XMB(3.9,41,2,9204,0)=" ...S BODY=$P(NODE,""^"",2)"
^XMB(3.9,41,2,9205,0)="""RTN"",""HLOPURGE"",41,0)"
^XMB(3.9,41,2,9206,0)=" ...Q:'BODY"
^XMB(3.9,41,2,9207,0)="""RTN"",""HLOPURGE"",42,0)"
^XMB(3.9,41,2,9208,0)=" ...S WHEN=+$G(^HLA(BODY,0))"
^XMB(3.9,41,2,9209,0)="""RTN"",""HLOPURGE"",43,0)"
^XMB(3.9,41,2,9210,0)=" ...I WHEN,WHEN<OLD D  Q"
^XMB(3.9,41,2,9211,0)="""RTN"",""HLOPURGE"",44,0)"
^XMB(3.9,41,2,9212,0)=" ....;I've seen messages sitting on outgoing queues forever, but it should never happen for incoming"
^XMB(3.9,41,2,9213,0)="""RTN"",""HLOPURGE"",45,0)"
^XMB(3.9,41,2,9214,0)=" ....I $E($P(NODE,""^"",4))=""O"",$P(NODE,""^"",5)]"""",$P(NODE,""^"",6)]"""" D"
^XMB(3.9,41,2,9215,0)="""RTN"",""HLOPURGE"",46,0)"
^XMB(3.9,41,2,9216,0)=" .....N FROM"
^XMB(3.9,41,2,9217,0)="""RTN"",""HLOPURGE"",47,0)"
^XMB(3.9,41,2,9218,0)=" .....S FROM=$P(NODE,""^"",5)"
^XMB(3.9,41,2,9219,0)="""RTN"",""HLOPURGE"",48,0)"
^XMB(3.9,41,2,9220,0)=" .....I $P(NODE,""^"",8) S FROM=FROM_"":""_$P(NODE,""^"",8)"
^XMB(3.9,41,2,9221,0)="""RTN"",""HLOPURGE"",49,0)"
^XMB(3.9,41,2,9222,0)=" .....Q:'$D(^HLB(""QUEUE"",""OUT"",FROM,$P(NODE,""^"",6),MSGIEN))"
^XMB(3.9,41,2,9223,0)="""RTN"",""HLOPURGE"",50,0)"
^XMB(3.9,41,2,9224,0)=" .....D DEQUE^HLOQUE(FROM,$P(NODE,""^"",6),""OUT"",MSGIEN)"
^XMB(3.9,41,2,9225,0)="""RTN"",""HLOPURGE"",51,0)"
^XMB(3.9,41,2,9226,0)=" ....D DELETE(MSGIEN) Q"
^XMB(3.9,41,2,9227,0)="""RTN"",""HLOPURGE"",52,0)"
^XMB(3.9,41,2,9228,0)=" ...;stop looking for old records?"
^XMB(3.9,41,2,9229,0)="""RTN"",""HLOPURGE"",53,0)"
^XMB(3.9,41,2,9230,0)=" ...I WHEN,WHEN>OLD S QUIT=1"
^XMB(3.9,41,2,9231,0)="""RTN"",""HLOPURGE"",54,0)"
^XMB(3.9,41,2,9232,0)=" ;"
^XMB(3.9,41,2,9233,0)="""RTN"",""HLOPURGE"",55,0)"
^XMB(3.9,41,2,9234,0)=" ;also kill old errors left lying around"
^XMB(3.9,41,2,9235,0)="""RTN"",""HLOPURGE"",56,0)"
^XMB(3.9,41,2,9236,0)=" F TYPE=""TF"",""AE"",""SE"" S APP="""" F  S APP=$O(^HLB(""ERRORS"",TYPE,APP)) Q:APP=""""  D"
^XMB(3.9,41,2,9237,0)="""RTN"",""HLOPURGE"",57,0)"
^XMB(3.9,41,2,9238,0)=" .N TIME"
^XMB(3.9,41,2,9239,0)="""RTN"",""HLOPURGE"",58,0)"
^XMB(3.9,41,2,9240,0)=" .S TIME=0"
^XMB(3.9,41,2,9241,0)="""RTN"",""HLOPURGE"",59,0)"
^XMB(3.9,41,2,9242,0)=" .F  S TIME=$O(^HLB(""ERRORS"",TYPE,APP,TIME)) Q:'TIME  Q:TIME>OLD  K ^HLB(""ERRORS"",TYPE,APP,TIME)"
^XMB(3.9,41,2,9243,0)="""RTN"",""HLOPURGE"",60,0)"
^XMB(3.9,41,2,9244,0)=" Q"
^XMB(3.9,41,2,9245,0)="""RTN"",""HLOPURGE"",61,0)"
^XMB(3.9,41,2,9246,0)="OLD777 ;"
^XMB(3.9,41,2,9247,0)="""RTN"",""HLOPURGE"",62,0)"
^XMB(3.9,41,2,9248,0)=" N OLD,TIME"
^XMB(3.9,41,2,9249,0)="""RTN"",""HLOPURGE"",63,0)"
^XMB(3.9,41,2,9250,0)=" S OLD=$$FMADD^XLFDT($$DT^XLFDT,-45)"
^XMB(3.9,41,2,9251,0)="""RTN"",""HLOPURGE"",64,0)"
^XMB(3.9,41,2,9252,0)=" S TIME=0"
^XMB(3.9,41,2,9253,0)="""RTN"",""HLOPURGE"",65,0)"
^XMB(3.9,41,2,9254,0)=" F  S TIME=$O(^HLA(""B"",TIME)) Q:'TIME  Q:TIME>OLD  D"
^XMB(3.9,41,2,9255,0)="""RTN"",""HLOPURGE"",66,0)"
^XMB(3.9,41,2,9256,0)=" .N MSGIEN"
^XMB(3.9,41,2,9257,0)="""RTN"",""HLOPURGE"",67,0)"
^XMB(3.9,41,2,9258,0)=" .S MSGIEN=0"
^XMB(3.9,41,2,9259,0)="""RTN"",""HLOPURGE"",68,0)"
^XMB(3.9,41,2,9260,0)=" .F  S MSGIEN=$O(^HLA(""B"",TIME,MSGIEN)) Q:'MSGIEN  D"
^XMB(3.9,41,2,9261,0)="""RTN"",""HLOPURGE"",69,0)"
^XMB(3.9,41,2,9262,0)=" ..N IEN778"
^XMB(3.9,41,2,9263,0)="""RTN"",""HLOPURGE"",70,0)"
^XMB(3.9,41,2,9264,0)=" ..S IEN778=0"
^XMB(3.9,41,2,9265,0)="""RTN"",""HLOPURGE"",71,0)"
^XMB(3.9,41,2,9266,0)=" ..F  S IEN778=$O(^HLB(""C"",MSGIEN,IEN778)) Q:'IEN778  D DELETE(IEN778,1)"
^XMB(3.9,41,2,9267,0)="""RTN"",""HLOPURGE"",72,0)"
^XMB(3.9,41,2,9268,0)=" ..K ^HLB(""C"",MSGIEN),^HLA(""B"",TIME,MSGIEN),^HLA(MSGIEN)"
^XMB(3.9,41,2,9269,0)="""RTN"",""HLOPURGE"",73,0)"
^XMB(3.9,41,2,9270,0)=" Q"
^XMB(3.9,41,2,9271,0)="""RTN"",""HLOPURGE"",74,0)"
^XMB(3.9,41,2,9272,0)=" ;"
^XMB(3.9,41,2,9273,0)="""RTN"",""HLOPURGE"",75,0)"
^XMB(3.9,41,2,9274,0)="DELETE(MSGIEN,FLAG) ;"
^XMB(3.9,41,2,9275,0)="""RTN"",""HLOPURGE"",76,0)"
^XMB(3.9,41,2,9276,0)=" ;Input:"
^XMB(3.9,41,2,9277,0)="""RTN"",""HLOPURGE"",77,0)"
^XMB(3.9,41,2,9278,0)=" ;  MSGIEN - IEN, file 778"
^XMB(3.9,41,2,9279,0)="""RTN"",""HLOPURGE"",78,0)"
^XMB(3.9,41,2,9280,0)=" ;  FLAG - if $G(FLAG), will not delete the pointed to record in file 777"
^XMB(3.9,41,2,9281,0)="""RTN"",""HLOPURGE"",79,0)"
^XMB(3.9,41,2,9282,0)=" N AC,SUBIEN,RAPP,SAPP,FS,CS"
^XMB(3.9,41,2,9283,0)="""RTN"",""HLOPURGE"",80,0)"
^XMB(3.9,41,2,9284,0)=" Q:'$$GETMSG^HLOMSG(MSGIEN,.MSG)"
^XMB(3.9,41,2,9285,0)="""RTN"",""HLOPURGE"",81,0)"
^XMB(3.9,41,2,9286,0)=" S (RAPP,SAPP)="""""
^XMB(3.9,41,2,9287,0)="""RTN"",""HLOPURGE"",82,0)"
^XMB(3.9,41,2,9288,0)=" D"
^XMB(3.9,41,2,9289,0)="""RTN"",""HLOPURGE"",83,0)"
^XMB(3.9,41,2,9290,0)=" .S FS=$E(MSG(""HDR"",1),4)"
^XMB(3.9,41,2,9291,0)="""RTN"",""HLOPURGE"",84,0)"
^XMB(3.9,41,2,9292,0)=" .Q:FS="""""
^XMB(3.9,41,2,9293,0)="""RTN"",""HLOPURGE"",85,0)"
^XMB(3.9,41,2,9294,0)=" .S CS=$E(MSG(""HDR"",1),5)"
^XMB(3.9,41,2,9295,0)="""RTN"",""HLOPURGE"",86,0)"
^XMB(3.9,41,2,9296,0)=" .S SAPP=$P($P(MSG(""HDR"",1),FS,3),CS)"
^XMB(3.9,41,2,9297,0)="""RTN"",""HLOPURGE"",87,0)"
^XMB(3.9,41,2,9298,0)=" .I SAPP="""" S SAPP=""UNKNOWN"""
^XMB(3.9,41,2,9299,0)="""RTN"",""HLOPURGE"",88,0)"
^XMB(3.9,41,2,9300,0)=" .S RAPP=$P($P(MSG(""HDR"",1),FS,5),CS)"
^XMB(3.9,41,2,9301,0)="""RTN"",""HLOPURGE"",89,0)"
^XMB(3.9,41,2,9302,0)=" .I RAPP="""" S RAPP=""UNKNOWN"""
^XMB(3.9,41,2,9303,0)="""RTN"",""HLOPURGE"",90,0)"
^XMB(3.9,41,2,9304,0)=" ;"
^XMB(3.9,41,2,9305,0)="""RTN"",""HLOPURGE"",91,0)"
^XMB(3.9,41,2,9306,0)=" I 'MSG(""BATCH"") D KSEARCH(.MSG,MSG(""MESSAGE TYPE""),MSG(""EVENT""),SAPP,RAPP,MSGIEN)"
^XMB(3.9,41,2,9307,0)="""RTN"",""HLOPURGE"",92,0)"
^XMB(3.9,41,2,9308,0)=" ;if an error status,take care of the ""ERRORS"" x-ref"
^XMB(3.9,41,2,9309,0)="""RTN"",""HLOPURGE"",93,0)"
^XMB(3.9,41,2,9310,0)=" I MSG(""STATUS"")'="""",MSG(""STATUS"")'=""SU"",MSG(""BODY"") D"
^XMB(3.9,41,2,9311,0)="""RTN"",""HLOPURGE"",94,0)"
^XMB(3.9,41,2,9312,0)=" .N APP"
^XMB(3.9,41,2,9313,0)="""RTN"",""HLOPURGE"",95,0)"
^XMB(3.9,41,2,9314,0)=" .S APP=$S(MSG(""STATUS"")=""TF"":SAPP,1:RAPP)"
^XMB(3.9,41,2,9315,0)="""RTN"",""HLOPURGE"",96,0)"
^XMB(3.9,41,2,9316,0)=" .K ^HLB(""ERRORS"",MSG(""STATUS""),APP,MSG(""DT/TM CREATED""),MSGIEN)"
^XMB(3.9,41,2,9317,0)="""RTN"",""HLOPURGE"",97,0)"
^XMB(3.9,41,2,9318,0)=" .I MSG(""STATUS"")=""AE"" D"
^XMB(3.9,41,2,9319,0)="""RTN"",""HLOPURGE"",98,0)"
^XMB(3.9,41,2,9320,0)=" ..N SUB"
^XMB(3.9,41,2,9321,0)="""RTN"",""HLOPURGE"",99,0)"
^XMB(3.9,41,2,9322,0)=" ..S SUB=MSGIEN_""^"""
^XMB(3.9,41,2,9323,0)="""RTN"",""HLOPURGE"",100,0)"
^XMB(3.9,41,2,9324,0)=" ..K ^HLB(""ERRORS"",""AE"",APP,MSG(""DT/TM CREATED""),SUB)"
^XMB(3.9,41,2,9325,0)="""RTN"",""HLOPURGE"",101,0)"
^XMB(3.9,41,2,9326,0)=" ..F  S SUB=$O(^HLB(""ERRORS"",""AE"",APP,MSG(""DT/TM CREATED""),SUB)) Q:SUB=""""  Q:+SUB'=MSGIEN  K ^HLB(""ERRORS"",""AE"",APP,MSG(""DT/TM CREATED""),SUB)"
^XMB(3.9,41,2,9327,0)="""RTN"",""HLOPURGE"",102,0)"
^XMB(3.9,41,2,9328,0)=" ;"
^XMB(3.9,41,2,9329,0)="""RTN"",""HLOPURGE"",103,0)"
^XMB(3.9,41,2,9330,0)=" ;kill the whole-file xrefs for the message ien within a batch"
^XMB(3.9,41,2,9331,0)="""RTN"",""HLOPURGE"",104,0)"
^XMB(3.9,41,2,9332,0)=" S SUBIEN=0"
^XMB(3.9,41,2,9333,0)="""RTN"",""HLOPURGE"",105,0)"
^XMB(3.9,41,2,9334,0)=" F  S SUBIEN=$O(^HLB(MSGIEN,3,SUBIEN)) Q:'SUBIEN  D"
^XMB(3.9,41,2,9335,0)="""RTN"",""HLOPURGE"",106,0)"
^XMB(3.9,41,2,9336,0)=" .N MSGID"
^XMB(3.9,41,2,9337,0)="""RTN"",""HLOPURGE"",107,0)"
^XMB(3.9,41,2,9338,0)=" .I FS]"""" D"
^XMB(3.9,41,2,9339,0)="""RTN"",""HLOPURGE"",108,0)"
^XMB(3.9,41,2,9340,0)=" ..N VALUE,HDR2,MSGTYPE,EVENT"
^XMB(3.9,41,2,9341,0)="""RTN"",""HLOPURGE"",109,0)"
^XMB(3.9,41,2,9342,0)=" ..S HDR2=$G(^HLB(MSGIEN,3,SUBIEN,2))"
^XMB(3.9,41,2,9343,0)="""RTN"",""HLOPURGE"",110,0)"
^XMB(3.9,41,2,9344,0)=" ..S VALUE=$P(HDR2,FS,4)"
^XMB(3.9,41,2,9345,0)="""RTN"",""HLOPURGE"",111,0)"
^XMB(3.9,41,2,9346,0)=" ..S MSGTYPE=$P(VALUE,CS)"
^XMB(3.9,41,2,9347,0)="""RTN"",""HLOPURGE"",112,0)"
^XMB(3.9,41,2,9348,0)=" ..S EVENT=$P(VALUE,CS,2)"
^XMB(3.9,41,2,9349,0)="""RTN"",""HLOPURGE"",113,0)"
^XMB(3.9,41,2,9350,0)=" ..D KSEARCH(.MSG,MSGTYPE,EVENT,SAPP,RAPP,MSGIEN_""^""_SUBIEN)"
^XMB(3.9,41,2,9351,0)="""RTN"",""HLOPURGE"",114,0)"
^XMB(3.9,41,2,9352,0)=" .S MSGID=$P($G(^HLB(MSGIEN,3,SUBIEN,0)),""^"",2)"
^XMB(3.9,41,2,9353,0)="""RTN"",""HLOPURGE"",115,0)"
^XMB(3.9,41,2,9354,0)=" .I MSGID]"""" K ^HLB(""AE"",MSGID,MSGIEN_""^""_SUBIEN)"
^XMB(3.9,41,2,9355,0)="""RTN"",""HLOPURGE"",116,0)"
^XMB(3.9,41,2,9356,0)=" ;"
^XMB(3.9,41,2,9357,0)="""RTN"",""HLOPURGE"",117,0)"
^XMB(3.9,41,2,9358,0)=" I MSG(""DIRECTION"")=""IN"" D"
^XMB(3.9,41,2,9359,0)="""RTN"",""HLOPURGE"",118,0)"
^XMB(3.9,41,2,9360,0)=" .Q:FS="""""
^XMB(3.9,41,2,9361,0)="""RTN"",""HLOPURGE"",119,0)"
^XMB(3.9,41,2,9362,0)=" .N VALUE,HDR"
^XMB(3.9,41,2,9363,0)="""RTN"",""HLOPURGE"",120,0)"
^XMB(3.9,41,2,9364,0)=" .S HDR(""SENDING APPLICATION"")=$P(MSG(""HDR"",1),FS,3)"
^XMB(3.9,41,2,9365,0)="""RTN"",""HLOPURGE"",121,0)"
^XMB(3.9,41,2,9366,0)=" .S VALUE=$P(MSG(""HDR"",1),FS,4)"
^XMB(3.9,41,2,9367,0)="""RTN"",""HLOPURGE"",122,0)"
^XMB(3.9,41,2,9368,0)=" .S HDR(""SENDING FACILITY"",1)=$P(VALUE,CS)"
^XMB(3.9,41,2,9369,0)="""RTN"",""HLOPURGE"",123,0)"
^XMB(3.9,41,2,9370,0)=" .S HDR(""SENDING FACILITY"",2)=$P(VALUE,CS,2)"
^XMB(3.9,41,2,9371,0)="""RTN"",""HLOPURGE"",124,0)"
^XMB(3.9,41,2,9372,0)=" .S HDR(""SENDING FACILITY"",3)=$P(VALUE,CS,3)"
^XMB(3.9,41,2,9373,0)="""RTN"",""HLOPURGE"",125,0)"
^XMB(3.9,41,2,9374,0)=" .S AC=$S(HDR(""SENDING FACILITY"",2)]"""":HDR(""SENDING FACILITY"",2),1:HDR(""SENDING FACILITY"",1))_HDR(""SENDING APPLICATION"")_MSG(""ID"")"
^XMB(3.9,41,2,9375,0)="""RTN"",""HLOPURGE"",126,0)"
^XMB(3.9,41,2,9376,0)=" K ^HLB(MSGIEN)"
^XMB(3.9,41,2,9377,0)="""RTN"",""HLOPURGE"",127,0)"
^XMB(3.9,41,2,9378,0)=" I MSG(""STATUS"",""PURGE""),MSG(""DIRECTION"")'="""" K ^HLB(""AD"",MSG(""DIRECTION""),MSG(""STATUS"",""PURGE""),MSGIEN)"
^XMB(3.9,41,2,9379,0)="""RTN"",""HLOPURGE"",128,0)"
^XMB(3.9,41,2,9380,0)=" K:(MSG(""ID"")]"""") ^HLB(""B"",MSG(""ID""),MSGIEN)"
^XMB(3.9,41,2,9381,0)="""RTN"",""HLOPURGE"",129,0)"
^XMB(3.9,41,2,9382,0)=" I MSG(""DIRECTION"")=""IN"" D"
^XMB(3.9,41,2,9383,0)="""RTN"",""HLOPURGE"",130,0)"
^XMB(3.9,41,2,9384,0)=" .K:(AC]"""") ^HLB(""AC"",AC,MSGIEN)"
^XMB(3.9,41,2,9385,0)="""RTN"",""HLOPURGE"",131,0)"
^XMB(3.9,41,2,9386,0)=" .I MSG(""BODY""),'$G(FLAG) D KILL777(MSG(""BODY""))"
^XMB(3.9,41,2,9387,0)="""RTN"",""HLOPURGE"",132,0)"
^XMB(3.9,41,2,9388,0)=" I MSG(""DIRECTION"")=""OUT"" D"
^XMB(3.9,41,2,9389,0)="""RTN"",""HLOPURGE"",133,0)"
^XMB(3.9,41,2,9390,0)=" .K ^HLB(""C"",+MSG(""BODY""),MSGIEN)"
^XMB(3.9,41,2,9391,0)="""RTN"",""HLOPURGE"",134,0)"
^XMB(3.9,41,2,9392,0)=" .I '$G(FLAG),'$O(^HLB(""C"",+MSG(""BODY""),0)) D KILL777(MSG(""BODY""))"
^XMB(3.9,41,2,9393,0)="""RTN"",""HLOPURGE"",135,0)"
^XMB(3.9,41,2,9394,0)=" Q"
^XMB(3.9,41,2,9395,0)="""RTN"",""HLOPURGE"",136,0)"
^XMB(3.9,41,2,9396,0)=" ;"
^XMB(3.9,41,2,9397,0)="""RTN"",""HLOPURGE"",137,0)"
^XMB(3.9,41,2,9398,0)="KILL777(BODY) ;"
^XMB(3.9,41,2,9399,0)="""RTN"",""HLOPURGE"",138,0)"
^XMB(3.9,41,2,9400,0)=" N TIME"
^XMB(3.9,41,2,9401,0)="""RTN"",""HLOPURGE"",139,0)"
^XMB(3.9,41,2,9402,0)=" S TIME=$P($G(^HLA(BODY,0)),""^"")"
^XMB(3.9,41,2,9403,0)="""RTN"",""HLOPURGE"",140,0)"
^XMB(3.9,41,2,9404,0)=" K ^HLA(BODY)"
^XMB(3.9,41,2,9405,0)="""RTN"",""HLOPURGE"",141,0)"
^XMB(3.9,41,2,9406,0)=" K:(TIME]"""") ^HLA(""B"",TIME,BODY)"
^XMB(3.9,41,2,9407,0)="""RTN"",""HLOPURGE"",142,0)"
^XMB(3.9,41,2,9408,0)=" Q"
^XMB(3.9,41,2,9409,0)="""RTN"",""HLOPURGE"",143,0)"
^XMB(3.9,41,2,9410,0)=" ;"
^XMB(3.9,41,2,9411,0)="""RTN"",""HLOPURGE"",144,0)"
^XMB(3.9,41,2,9412,0)="KSEARCH(MSG,MSGTYPE,EVENT,SAPP,RAPP,IEN) ;"
^XMB(3.9,41,2,9413,0)="""RTN"",""HLOPURGE"",145,0)"
^XMB(3.9,41,2,9414,0)=" ;Kills the ^HLB(""SEARCH"") x-ref"
^XMB(3.9,41,2,9415,0)="""RTN"",""HLOPURGE"",146,0)"
^XMB(3.9,41,2,9416,0)=" ;"
^XMB(3.9,41,2,9417,0)="""RTN"",""HLOPURGE"",147,0)"
^XMB(3.9,41,2,9418,0)=" N APP"
^XMB(3.9,41,2,9419,0)="""RTN"",""HLOPURGE"",148,0)"
^XMB(3.9,41,2,9420,0)=" Q:MSGTYPE="""""
^XMB(3.9,41,2,9421,0)="""RTN"",""HLOPURGE"",149,0)"
^XMB(3.9,41,2,9422,0)=" Q:EVENT="""""
^XMB(3.9,41,2,9423,0)="""RTN"",""HLOPURGE"",150,0)"
^XMB(3.9,41,2,9424,0)=" Q:'MSG(""DT/TM CREATED"")"
^XMB(3.9,41,2,9425,0)="""RTN"",""HLOPURGE"",151,0)"
^XMB(3.9,41,2,9426,0)=" I MSG(""DIRECTION"")'=""IN"",MSG(""DIRECTION"")'=""OUT"" Q"
^XMB(3.9,41,2,9427,0)="""RTN"",""HLOPURGE"",152,0)"
^XMB(3.9,41,2,9428,0)=" S APP=$S(MSG(""DIRECTION"")=""IN"":RAPP,1:SAPP)"
^XMB(3.9,41,2,9429,0)="""RTN"",""HLOPURGE"",153,0)"
^XMB(3.9,41,2,9430,0)=" K ^HLB(""SEARCH"",MSG(""DIRECTION""),MSG(""DT/TM CREATED""),APP,MSGTYPE,EVENT,IEN)"
^XMB(3.9,41,2,9431,0)="""RTN"",""HLOPURGE"",154,0)"
^XMB(3.9,41,2,9432,0)=" Q"
^XMB(3.9,41,2,9433,0)="""RTN"",""HLOQUE"")"
^XMB(3.9,41,2,9434,0)="0^33^B5007132"
^XMB(3.9,41,2,9435,0)="""RTN"",""HLOQUE"",1,0)"
^XMB(3.9,41,2,9436,0)="HLOQUE ;ALB/CJM- HL7 QUEUE MANAGEMENT - 10/4/94 1pm"
^XMB(3.9,41,2,9437,0)="""RTN"",""HLOQUE"",2,0)"
^XMB(3.9,41,2,9438,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995"
^XMB(3.9,41,2,9439,0)="""RTN"",""HLOQUE"",3,0)"
^XMB(3.9,41,2,9440,0)=" ;"
^XMB(3.9,41,2,9441,0)="""RTN"",""HLOQUE"",4,0)"
^XMB(3.9,41,2,9442,0)="INQUE(FROM,QNAME,IEN778,ACTION,PURGE) ;"
^XMB(3.9,41,2,9443,0)="""RTN"",""HLOQUE"",5,0)"
^XMB(3.9,41,2,9444,0)=" ;Will place the message=IEN778 on the IN queue, incoming"
^XMB(3.9,41,2,9445,0)="""RTN"",""HLOQUE"",6,0)"
^XMB(3.9,41,2,9446,0)=" ;Input:"
^XMB(3.9,41,2,9447,0)="""RTN"",""HLOQUE"",7,0)"
^XMB(3.9,41,2,9448,0)=" ;  FROM - sending facility from message header."
^XMB(3.9,41,2,9449,0)="""RTN"",""HLOQUE"",8,0)"
^XMB(3.9,41,2,9450,0)=" ;         For actions other than incoming messages, its the specified link."
^XMB(3.9,41,2,9451,0)="""RTN"",""HLOQUE"",9,0)"
^XMB(3.9,41,2,9452,0)=" ;  QNAME - queue named by the application"
^XMB(3.9,41,2,9453,0)="""RTN"",""HLOQUE"",10,0)"
^XMB(3.9,41,2,9454,0)=" ;  IEN778 = ien of the message in file 778"
^XMB(3.9,41,2,9455,0)="""RTN"",""HLOQUE"",11,0)"
^XMB(3.9,41,2,9456,0)=" ;  ACTION - <tag^routine> that should be executed for the application"
^XMB(3.9,41,2,9457,0)="""RTN"",""HLOQUE"",12,0)"
^XMB(3.9,41,2,9458,0)=" ;  PURGE (optional) - PURGE=1 indicates that the purge dt/tm needs to be set by the infiler"
^XMB(3.9,41,2,9459,0)="""RTN"",""HLOQUE"",13,0)"
^XMB(3.9,41,2,9460,0)=" ;     If PURGE(""ACKTOIEN"") is set, it indicates that the purge dt/tm of"
^XMB(3.9,41,2,9461,0)="""RTN"",""HLOQUE"",14,0)"
^XMB(3.9,41,2,9462,0)=" ;     the original message to this application ack also needs to be set."
^XMB(3.9,41,2,9463,0)="""RTN"",""HLOQUE"",15,0)"
^XMB(3.9,41,2,9464,0)=" ;Output: none"
^XMB(3.9,41,2,9465,0)="""RTN"",""HLOQUE"",16,0)"
^XMB(3.9,41,2,9466,0)=" ;"
^XMB(3.9,41,2,9467,0)="""RTN"",""HLOQUE"",17,0)"
^XMB(3.9,41,2,9468,0)=" I $G(FROM)="""" S FROM=""UNKNOWN"""
^XMB(3.9,41,2,9469,0)="""RTN"",""HLOQUE"",18,0)"
^XMB(3.9,41,2,9470,0)=" I '$L($G(QNAME)) S QNAME=""DEFAULT"""
^XMB(3.9,41,2,9471,0)="""RTN"",""HLOQUE"",19,0)"
^XMB(3.9,41,2,9472,0)=" S ^HLB(""QUEUE"",""IN"",FROM,QNAME,IEN778)=ACTION_""^""_$G(PURGE)_""^""_$G(PURGE(""ACKTOIEN""))"
^XMB(3.9,41,2,9473,0)="""RTN"",""HLOQUE"",20,0)"
^XMB(3.9,41,2,9474,0)=" I $$INC^HLOSITE($NA(^HLC(""QUEUECOUNT"",""IN"",FROM,QNAME)))"
^XMB(3.9,41,2,9475,0)="""RTN"",""HLOQUE"",21,0)"
^XMB(3.9,41,2,9476,0)=" Q"
^XMB(3.9,41,2,9477,0)="""RTN"",""HLOQUE"",22,0)"
^XMB(3.9,41,2,9478,0)=" ;"
^XMB(3.9,41,2,9479,0)="""RTN"",""HLOQUE"",23,0)"
^XMB(3.9,41,2,9480,0)="OUTQUE(LINKNAME,PORT,QNAME,IEN778) ;"
^XMB(3.9,41,2,9481,0)="""RTN"",""HLOQUE"",24,0)"
^XMB(3.9,41,2,9482,0)=" ;Will place the message=IEN778 on the out-going queue"
^XMB(3.9,41,2,9483,0)="""RTN"",""HLOQUE"",25,0)"
^XMB(3.9,41,2,9484,0)=" ;Input:"
^XMB(3.9,41,2,9485,0)="""RTN"",""HLOQUE"",26,0)"
^XMB(3.9,41,2,9486,0)=" ;  LINKNAME = name of (.01) the logical link"
^XMB(3.9,41,2,9487,0)="""RTN"",""HLOQUE"",27,0)"
^XMB(3.9,41,2,9488,0)=" ;  PORT (optional) the port to connect to"
^XMB(3.9,41,2,9489,0)="""RTN"",""HLOQUE"",28,0)"
^XMB(3.9,41,2,9490,0)=" ;  QNAME - queue named by the application"
^XMB(3.9,41,2,9491,0)="""RTN"",""HLOQUE"",29,0)"
^XMB(3.9,41,2,9492,0)=" ;  IEN778 = ien of the message in file 778"
^XMB(3.9,41,2,9493,0)="""RTN"",""HLOQUE"",30,0)"
^XMB(3.9,41,2,9494,0)=" ;Output: none"
^XMB(3.9,41,2,9495,0)="""RTN"",""HLOQUE"",31,0)"
^XMB(3.9,41,2,9496,0)=" ;"
^XMB(3.9,41,2,9497,0)="""RTN"",""HLOQUE"",32,0)"
^XMB(3.9,41,2,9498,0)=" N SUB"
^XMB(3.9,41,2,9499,0)="""RTN"",""HLOQUE"",33,0)"
^XMB(3.9,41,2,9500,0)=" S SUB=LINKNAME"
^XMB(3.9,41,2,9501,0)="""RTN"",""HLOQUE"",34,0)"
^XMB(3.9,41,2,9502,0)=" I PORT S SUB=SUB_"":""_PORT"
^XMB(3.9,41,2,9503,0)="""RTN"",""HLOQUE"",35,0)"
^XMB(3.9,41,2,9504,0)=" I '$L($G(QNAME)) S QNAME=""DEFAULT"""
^XMB(3.9,41,2,9505,0)="""RTN"",""HLOQUE"",36,0)"
^XMB(3.9,41,2,9506,0)=" S ^HLB(""QUEUE"",""OUT"",SUB,QNAME,IEN778)="""""
^XMB(3.9,41,2,9507,0)="""RTN"",""HLOQUE"",37,0)"
^XMB(3.9,41,2,9508,0)=" I $$INC^HLOSITE($NA(^HLC(""QUEUECOUNT"",""OUT"",SUB,QNAME)))"
^XMB(3.9,41,2,9509,0)="""RTN"",""HLOQUE"",38,0)"
^XMB(3.9,41,2,9510,0)=" Q"
^XMB(3.9,41,2,9511,0)="""RTN"",""HLOQUE"",39,0)"
^XMB(3.9,41,2,9512,0)=" ;"
^XMB(3.9,41,2,9513,0)="""RTN"",""HLOQUE"",40,0)"
^XMB(3.9,41,2,9514,0)="DEQUE(FROMORTO,QNAME,DIR,IEN778) ;"
^XMB(3.9,41,2,9515,0)="""RTN"",""HLOQUE"",41,0)"
^XMB(3.9,41,2,9516,0)=" ;This routine will remove the message=IEN778 from its queue"
^XMB(3.9,41,2,9517,0)="""RTN"",""HLOQUE"",42,0)"
^XMB(3.9,41,2,9518,0)=" ;Input:"
^XMB(3.9,41,2,9519,0)="""RTN"",""HLOQUE"",43,0)"
^XMB(3.9,41,2,9520,0)=" ;  DIR = ""IN"" or ""OUT"", denoting the direction that the message is going in"
^XMB(3.9,41,2,9521,0)="""RTN"",""HLOQUE"",44,0)"
^XMB(3.9,41,2,9522,0)=" ;  FROMORTO = for outgoing: the .01 field of the logical link"
^XMB(3.9,41,2,9523,0)="""RTN"",""HLOQUE"",45,0)"
^XMB(3.9,41,2,9524,0)=" ;         for incoming: sending facility"
^XMB(3.9,41,2,9525,0)="""RTN"",""HLOQUE"",46,0)"
^XMB(3.9,41,2,9526,0)=" ;  IEN778 = ien of the message in file 778"
^XMB(3.9,41,2,9527,0)="""RTN"",""HLOQUE"",47,0)"
^XMB(3.9,41,2,9528,0)=" ;Output: none"
^XMB(3.9,41,2,9529,0)="""RTN"",""HLOQUE"",48,0)"
^XMB(3.9,41,2,9530,0)=" ;"
^XMB(3.9,41,2,9531,0)="""RTN"",""HLOQUE"",49,0)"
^XMB(3.9,41,2,9532,0)=" Q:(FROMORTO="""")"
^XMB(3.9,41,2,9533,0)="""RTN"",""HLOQUE"",50,0)"
^XMB(3.9,41,2,9534,0)=" I ($G(QNAME)="""") S QNAME=""DEFAULT"""
^XMB(3.9,41,2,9535,0)="""RTN"",""HLOQUE"",51,0)"
^XMB(3.9,41,2,9536,0)=" D"
^XMB(3.9,41,2,9537,0)="""RTN"",""HLOQUE"",52,0)"
^XMB(3.9,41,2,9538,0)=" .I $E(DIR)=""I"" S DIR=""IN"" Q"
^XMB(3.9,41,2,9539,0)="""RTN"",""HLOQUE"",53,0)"
^XMB(3.9,41,2,9540,0)=" .I $E(DIR)=""O"" S DIR=""OUT"" Q"
^XMB(3.9,41,2,9541,0)="""RTN"",""HLOQUE"",54,0)"
^XMB(3.9,41,2,9542,0)=" I DIR'=""IN"",DIR'=""OUT"" Q"
^XMB(3.9,41,2,9543,0)="""RTN"",""HLOQUE"",55,0)"
^XMB(3.9,41,2,9544,0)=" Q:'$G(IEN778)"
^XMB(3.9,41,2,9545,0)="""RTN"",""HLOQUE"",56,0)"
^XMB(3.9,41,2,9546,0)=" I $D(^HLB(""QUEUE"",DIR,FROMORTO,QNAME,IEN778)) K ^HLB(""QUEUE"",DIR,FROMORTO,QNAME,IEN778) I $$INC^HLOSITE($NA(^HLC(""QUEUECOUNT"",DIR,FROMORTO,QNAME)),-1)"
^XMB(3.9,41,2,9547,0)="""RTN"",""HLOQUE"",57,0)"
^XMB(3.9,41,2,9548,0)=" Q"
^XMB(3.9,41,2,9549,0)="""RTN"",""HLOQUE"",58,0)"
^XMB(3.9,41,2,9550,0)=" ;"
^XMB(3.9,41,2,9551,0)="""RTN"",""HLOQUE"",59,0)"
^XMB(3.9,41,2,9552,0)="STOPQUE(DIR,QUEUE) ;"
^XMB(3.9,41,2,9553,0)="""RTN"",""HLOQUE"",60,0)"
^XMB(3.9,41,2,9554,0)=" ;This API is used to set a stop flag on a named queue."
^XMB(3.9,41,2,9555,0)="""RTN"",""HLOQUE"",61,0)"
^XMB(3.9,41,2,9556,0)=" ;DIR=<""IN"" or ""OUT"">"
^XMB(3.9,41,2,9557,0)="""RTN"",""HLOQUE"",62,0)"
^XMB(3.9,41,2,9558,0)=" ;QUEUE - the name of the queue to be stopped"
^XMB(3.9,41,2,9559,0)="""RTN"",""HLOQUE"",63,0)"
^XMB(3.9,41,2,9560,0)=" ;"
^XMB(3.9,41,2,9561,0)="""RTN"",""HLOQUE"",64,0)"
^XMB(3.9,41,2,9562,0)=" Q:$G(DIR)="""""
^XMB(3.9,41,2,9563,0)="""RTN"",""HLOQUE"",65,0)"
^XMB(3.9,41,2,9564,0)=" Q:$G(QUEUE)="""""
^XMB(3.9,41,2,9565,0)="""RTN"",""HLOQUE"",66,0)"
^XMB(3.9,41,2,9566,0)=" S ^HLTMP(""STOPPED QUEUES"",DIR,QUEUE)=1"
^XMB(3.9,41,2,9567,0)="""RTN"",""HLOQUE"",67,0)"
^XMB(3.9,41,2,9568,0)=" Q"
^XMB(3.9,41,2,9569,0)="""RTN"",""HLOQUE"",68,0)"
^XMB(3.9,41,2,9570,0)="STARTQUE(DIR,QUEUE) ;"
^XMB(3.9,41,2,9571,0)="""RTN"",""HLOQUE"",69,0)"
^XMB(3.9,41,2,9572,0)=" ;This API is used to REMOVE the stop flag on a named queue."
^XMB(3.9,41,2,9573,0)="""RTN"",""HLOQUE"",70,0)"
^XMB(3.9,41,2,9574,0)=" ;DIR=<""IN"" or ""OUT"">"
^XMB(3.9,41,2,9575,0)="""RTN"",""HLOQUE"",71,0)"
^XMB(3.9,41,2,9576,0)=" ;QUEUE - the name of the queue to be stopped"
^XMB(3.9,41,2,9577,0)="""RTN"",""HLOQUE"",72,0)"
^XMB(3.9,41,2,9578,0)=" ;"
^XMB(3.9,41,2,9579,0)="""RTN"",""HLOQUE"",73,0)"
^XMB(3.9,41,2,9580,0)=" Q:$G(DIR)="""""
^XMB(3.9,41,2,9581,0)="""RTN"",""HLOQUE"",74,0)"
^XMB(3.9,41,2,9582,0)=" Q:$G(QUEUE)="""""
^XMB(3.9,41,2,9583,0)="""RTN"",""HLOQUE"",75,0)"
^XMB(3.9,41,2,9584,0)=" K ^HLTMP(""STOPPED QUEUES"",DIR,QUEUE)"
^XMB(3.9,41,2,9585,0)="""RTN"",""HLOQUE"",76,0)"
^XMB(3.9,41,2,9586,0)=" Q"
^XMB(3.9,41,2,9587,0)="""RTN"",""HLOQUE"",77,0)"
^XMB(3.9,41,2,9588,0)="STOPPED(DIR,QUEUE) ;"
^XMB(3.9,41,2,9589,0)="""RTN"",""HLOQUE"",78,0)"
^XMB(3.9,41,2,9590,0)=" ;This API is used to DETERMINE if the stop flag on a named queue is set."
^XMB(3.9,41,2,9591,0)="""RTN"",""HLOQUE"",79,0)"
^XMB(3.9,41,2,9592,0)=" ;Input:"
^XMB(3.9,41,2,9593,0)="""RTN"",""HLOQUE"",80,0)"
^XMB(3.9,41,2,9594,0)=" ;  DIR=<""IN"" or ""OUT"">"
^XMB(3.9,41,2,9595,0)="""RTN"",""HLOQUE"",81,0)"
^XMB(3.9,41,2,9596,0)=" ;  QUEUE - the name of the queue to be checked"
^XMB(3.9,41,2,9597,0)="""RTN"",""HLOQUE"",82,0)"
^XMB(3.9,41,2,9598,0)=" ;Output:"
^XMB(3.9,41,2,9599,0)="""RTN"",""HLOQUE"",83,0)"
^XMB(3.9,41,2,9600,0)=" ;  Function returns 1 if the queue is stopped, 0 otherwise"
^XMB(3.9,41,2,9601,0)="""RTN"",""HLOQUE"",84,0)"
^XMB(3.9,41,2,9602,0)=" Q:$G(DIR)="""" 0"
^XMB(3.9,41,2,9603,0)="""RTN"",""HLOQUE"",85,0)"
^XMB(3.9,41,2,9604,0)=" Q:$G(QUEUE)="""" 0"
^XMB(3.9,41,2,9605,0)="""RTN"",""HLOQUE"",86,0)"
^XMB(3.9,41,2,9606,0)=" I $G(^HLTMP(""STOPPED QUEUES"",DIR,QUEUE)) Q 1"
^XMB(3.9,41,2,9607,0)="""RTN"",""HLOQUE"",87,0)"
^XMB(3.9,41,2,9608,0)=" Q 0"
^XMB(3.9,41,2,9609,0)="""RTN"",""HLOSITE"")"
^XMB(3.9,41,2,9610,0)="0^35^B5183865"
^XMB(3.9,41,2,9611,0)="""RTN"",""HLOSITE"",1,0)"
^XMB(3.9,41,2,9612,0)="HLOSITE ;ALB/CJM-HL7 - API for getting site parameters ;02/04/2004"
^XMB(3.9,41,2,9613,0)="""RTN"",""HLOSITE"",2,0)"
^XMB(3.9,41,2,9614,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995"
^XMB(3.9,41,2,9615,0)="""RTN"",""HLOSITE"",3,0)"
^XMB(3.9,41,2,9616,0)=" ;"
^XMB(3.9,41,2,9617,0)="""RTN"",""HLOSITE"",4,0)"
^XMB(3.9,41,2,9618,0)="SYSPARMS(SYSTEM) ;Gets system parameters from file 779.1"
^XMB(3.9,41,2,9619,0)="""RTN"",""HLOSITE"",5,0)"
^XMB(3.9,41,2,9620,0)=" ;Input: none"
^XMB(3.9,41,2,9621,0)="""RTN"",""HLOSITE"",6,0)"
^XMB(3.9,41,2,9622,0)=" ;Output:"
^XMB(3.9,41,2,9623,0)="""RTN"",""HLOSITE"",7,0)"
^XMB(3.9,41,2,9624,0)=" ;"
^XMB(3.9,41,2,9625,0)="""RTN"",""HLOSITE"",8,0)"
^XMB(3.9,41,2,9626,0)=" N NODE,LINK"
^XMB(3.9,41,2,9627,0)="""RTN"",""HLOSITE"",9,0)"
^XMB(3.9,41,2,9628,0)=" S NODE=$G(^HLD(779.1,1,0))"
^XMB(3.9,41,2,9629,0)="""RTN"",""HLOSITE"",10,0)"
^XMB(3.9,41,2,9630,0)=" S SYSTEM(""DOMAIN"")=$P(NODE,""^"")"
^XMB(3.9,41,2,9631,0)="""RTN"",""HLOSITE"",11,0)"
^XMB(3.9,41,2,9632,0)=" S SYSTEM(""STATION"")=$P(NODE,""^"",2)"
^XMB(3.9,41,2,9633,0)="""RTN"",""HLOSITE"",12,0)"
^XMB(3.9,41,2,9634,0)=" S SYSTEM(""PROCESSING ID"")=$P(NODE,""^"",3)"
^XMB(3.9,41,2,9635,0)="""RTN"",""HLOSITE"",13,0)"
^XMB(3.9,41,2,9636,0)=" S SYSTEM(""MAXSTRING"")=$P(NODE,""^"",4)"
^XMB(3.9,41,2,9637,0)="""RTN"",""HLOSITE"",14,0)"
^XMB(3.9,41,2,9638,0)=" I 'SYSTEM(""MAXSTRING"") D"
^XMB(3.9,41,2,9639,0)="""RTN"",""HLOSITE"",15,0)"
^XMB(3.9,41,2,9640,0)=" .N OS S OS=^%ZOSF(""OS"")"
^XMB(3.9,41,2,9641,0)="""RTN"",""HLOSITE"",16,0)"
^XMB(3.9,41,2,9642,0)=" .S SYSTEM(""MAXSTRING"")=$S(OS[""OpenM"":512,OS[""DSM"":512,1:256)"
^XMB(3.9,41,2,9643,0)="""RTN"",""HLOSITE"",17,0)"
^XMB(3.9,41,2,9644,0)=" S SYSTEM(""HL7 BUFFER"")=$P(NODE,""^"",5)"
^XMB(3.9,41,2,9645,0)="""RTN"",""HLOSITE"",18,0)"
^XMB(3.9,41,2,9646,0)=" S:'SYSTEM(""HL7 BUFFER"") SYSTEM(""HL7 BUFFER"")=15000"
^XMB(3.9,41,2,9647,0)="""RTN"",""HLOSITE"",19,0)"
^XMB(3.9,41,2,9648,0)=" S SYSTEM(""USER BUFFER"")=$P(NODE,""^"",6)"
^XMB(3.9,41,2,9649,0)="""RTN"",""HLOSITE"",20,0)"
^XMB(3.9,41,2,9650,0)=" S:'SYSTEM(""USER BUFFER"") SYSTEM(""USER BUFFER"")=5000"
^XMB(3.9,41,2,9651,0)="""RTN"",""HLOSITE"",21,0)"
^XMB(3.9,41,2,9652,0)=" S SYSTEM(""NORMAL PURGE"")=$P(NODE,""^"",7)"
^XMB(3.9,41,2,9653,0)="""RTN"",""HLOSITE"",22,0)"
^XMB(3.9,41,2,9654,0)=" I 'SYSTEM(""NORMAL PURGE"") S SYSTEM(""NORMAL PURGE"")=36"
^XMB(3.9,41,2,9655,0)="""RTN"",""HLOSITE"",23,0)"
^XMB(3.9,41,2,9656,0)=" S SYSTEM(""ERROR PURGE"")=$P(NODE,""^"",8)"
^XMB(3.9,41,2,9657,0)="""RTN"",""HLOSITE"",24,0)"
^XMB(3.9,41,2,9658,0)=" I 'SYSTEM(""ERROR PURGE"") S SYSTEM(""ERROR PURGE"")=7"
^XMB(3.9,41,2,9659,0)="""RTN"",""HLOSITE"",25,0)"
^XMB(3.9,41,2,9660,0)=" S LINK=$P(NODE,""^"",10)"
^XMB(3.9,41,2,9661,0)="""RTN"",""HLOSITE"",26,0)"
^XMB(3.9,41,2,9662,0)=" S:LINK SYSTEM(""PORT"")=$$PORT^HLOTLNK(LINK)"
^XMB(3.9,41,2,9663,0)="""RTN"",""HLOSITE"",27,0)"
^XMB(3.9,41,2,9664,0)=" S:'$G(SYSTEM(""PORT"")) SYSTEM(""PORT"")=$S(SYSTEM(""PROCESSING ID"")=""P"":5001,1:5026)"
^XMB(3.9,41,2,9665,0)="""RTN"",""HLOSITE"",28,0)"
^XMB(3.9,41,2,9666,0)=" Q"
^XMB(3.9,41,2,9667,0)="""RTN"",""HLOSITE"",29,0)"
^XMB(3.9,41,2,9668,0)=" ;"
^XMB(3.9,41,2,9669,0)="""RTN"",""HLOSITE"",30,0)"
^XMB(3.9,41,2,9670,0)="INC(VARIABLE,AMOUNT) ;"
^XMB(3.9,41,2,9671,0)="""RTN"",""HLOSITE"",31,0)"
^XMB(3.9,41,2,9672,0)=" ;Increments VARIABLE by AMOUNT, using $I if available, otherwise by locking."
^XMB(3.9,41,2,9673,0)="""RTN"",""HLOSITE"",32,0)"
^XMB(3.9,41,2,9674,0)=" ;"
^XMB(3.9,41,2,9675,0)="""RTN"",""HLOSITE"",33,0)"
^XMB(3.9,41,2,9676,0)=" N OS"
^XMB(3.9,41,2,9677,0)="""RTN"",""HLOSITE"",34,0)"
^XMB(3.9,41,2,9678,0)=" ;if HLCSTATE has been defined, then we have already checked the OS, so use it."
^XMB(3.9,41,2,9679,0)="""RTN"",""HLOSITE"",35,0)"
^XMB(3.9,41,2,9680,0)=" I $D(HLCSTATE(""SYSTEM"",""OS"")) D"
^XMB(3.9,41,2,9681,0)="""RTN"",""HLOSITE"",36,0)"
^XMB(3.9,41,2,9682,0)=" .S OS=HLCSTATE(""SYSTEM"",""OS"")"
^XMB(3.9,41,2,9683,0)="""RTN"",""HLOSITE"",37,0)"
^XMB(3.9,41,2,9684,0)=" E  D"
^XMB(3.9,41,2,9685,0)="""RTN"",""HLOSITE"",38,0)"
^XMB(3.9,41,2,9686,0)=" .S OS=^%ZOSF(""OS"")"
^XMB(3.9,41,2,9687,0)="""RTN"",""HLOSITE"",39,0)"
^XMB(3.9,41,2,9688,0)=" I '$G(AMOUNT) S AMOUNT=1"
^XMB(3.9,41,2,9689,0)="""RTN"",""HLOSITE"",40,0)"
^XMB(3.9,41,2,9690,0)=" I (OS[""OpenM"")!(OS[""DSM"")!(OS[""CACHE"") Q $I(@VARIABLE,AMOUNT)"
^XMB(3.9,41,2,9691,0)="""RTN"",""HLOSITE"",41,0)"
^XMB(3.9,41,2,9692,0)=" L +VARIABLE:100"
^XMB(3.9,41,2,9693,0)="""RTN"",""HLOSITE"",42,0)"
^XMB(3.9,41,2,9694,0)=" S @VARIABLE=@VARIABLE+AMOUNT"
^XMB(3.9,41,2,9695,0)="""RTN"",""HLOSITE"",43,0)"
^XMB(3.9,41,2,9696,0)=" L -VARIABLE"
^XMB(3.9,41,2,9697,0)="""RTN"",""HLOSITE"",44,0)"
^XMB(3.9,41,2,9698,0)=" Q @VARIABLE"
^XMB(3.9,41,2,9699,0)="""RTN"",""HLOSITE"",45,0)"
^XMB(3.9,41,2,9700,0)=" ;"
^XMB(3.9,41,2,9701,0)="""RTN"",""HLOSITE"",46,0)"
^XMB(3.9,41,2,9702,0)="COUNT778() ;"
^XMB(3.9,41,2,9703,0)="""RTN"",""HLOSITE"",47,0)"
^XMB(3.9,41,2,9704,0)=" ;This function returns the # of records in file 778."
^XMB(3.9,41,2,9705,0)="""RTN"",""HLOSITE"",48,0)"
^XMB(3.9,41,2,9706,0)=" N COUNT,IEN"
^XMB(3.9,41,2,9707,0)="""RTN"",""HLOSITE"",49,0)"
^XMB(3.9,41,2,9708,0)=" S (COUNT,IEN)=0"
^XMB(3.9,41,2,9709,0)="""RTN"",""HLOSITE"",50,0)"
^XMB(3.9,41,2,9710,0)=" F  S IEN=$O(^HLB(IEN)) Q:'IEN  S COUNT=COUNT+1"
^XMB(3.9,41,2,9711,0)="""RTN"",""HLOSITE"",51,0)"
^XMB(3.9,41,2,9712,0)=" Q COUNT"
^XMB(3.9,41,2,9713,0)="""RTN"",""HLOSITE"",52,0)"
^XMB(3.9,41,2,9714,0)="COUNT777() ;"
^XMB(3.9,41,2,9715,0)="""RTN"",""HLOSITE"",53,0)"
^XMB(3.9,41,2,9716,0)=" ;This function returns the # of records in file 777."
^XMB(3.9,41,2,9717,0)="""RTN"",""HLOSITE"",54,0)"
^XMB(3.9,41,2,9718,0)=" N COUNT,IEN"
^XMB(3.9,41,2,9719,0)="""RTN"",""HLOSITE"",55,0)"
^XMB(3.9,41,2,9720,0)=" S (COUNT,IEN)=0"
^XMB(3.9,41,2,9721,0)="""RTN"",""HLOSITE"",56,0)"
^XMB(3.9,41,2,9722,0)=" F  S IEN=$O(^HLA(IEN)) Q:'IEN  S COUNT=COUNT+1"
^XMB(3.9,41,2,9723,0)="""RTN"",""HLOSITE"",57,0)"
^XMB(3.9,41,2,9724,0)=" Q COUNT"
^XMB(3.9,41,2,9725,0)="""RTN"",""HLOSITE"",58,0)"
^XMB(3.9,41,2,9726,0)=" ;"
^XMB(3.9,41,2,9727,0)="""RTN"",""HLOSITE"",59,0)"
^XMB(3.9,41,2,9728,0)="UPDCNTS ;update the record counts for file 777,778"
^XMB(3.9,41,2,9729,0)="""RTN"",""HLOSITE"",60,0)"
^XMB(3.9,41,2,9730,0)=" N COUNT"
^XMB(3.9,41,2,9731,0)="""RTN"",""HLOSITE"",61,0)"
^XMB(3.9,41,2,9732,0)=" S COUNT=$$COUNT777^HLOSITE"
^XMB(3.9,41,2,9733,0)="""RTN"",""HLOSITE"",62,0)"
^XMB(3.9,41,2,9734,0)=" S $P(^HLA(0),""^"",4)=COUNT"
^XMB(3.9,41,2,9735,0)="""RTN"",""HLOSITE"",63,0)"
^XMB(3.9,41,2,9736,0)=" S ^HLTMP(""FILE 777 RECORD COUNT"")=COUNT_""^""_$$NOW^XLFDT"
^XMB(3.9,41,2,9737,0)="""RTN"",""HLOSITE"",64,0)"
^XMB(3.9,41,2,9738,0)=" S COUNT=$$COUNT778^HLOSITE"
^XMB(3.9,41,2,9739,0)="""RTN"",""HLOSITE"",65,0)"
^XMB(3.9,41,2,9740,0)=" S $P(^HLB(0),""^"",4)=COUNT"
^XMB(3.9,41,2,9741,0)="""RTN"",""HLOSITE"",66,0)"
^XMB(3.9,41,2,9742,0)=" S ^HLTMP(""FILE 778 RECORD COUNT"")=COUNT_""^""_$$NOW^XLFDT"
^XMB(3.9,41,2,9743,0)="""RTN"",""HLOSITE"",67,0)"
^XMB(3.9,41,2,9744,0)=" Q"
^XMB(3.9,41,2,9745,0)="""RTN"",""HLOSRVR"")"
^XMB(3.9,41,2,9746,0)="0^36^B67857069"
^XMB(3.9,41,2,9747,0)="""RTN"",""HLOSRVR"",1,0)"
^XMB(3.9,41,2,9748,0)="HLOSRVR ;ALB/CJM- Server for receiving messages - 10/4/94 1pm"
^XMB(3.9,41,2,9749,0)="""RTN"",""HLOSRVR"",2,0)"
^XMB(3.9,41,2,9750,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995"
^XMB(3.9,41,2,9751,0)="""RTN"",""HLOSRVR"",3,0)"
^XMB(3.9,41,2,9752,0)=" ;"
^XMB(3.9,41,2,9753,0)="""RTN"",""HLOSRVR"",4,0)"
^XMB(3.9,41,2,9754,0)="GETWORK(WORK) ;"
^XMB(3.9,41,2,9755,0)="""RTN"",""HLOSRVR"",5,0)"
^XMB(3.9,41,2,9756,0)=" ;GET WORK function for a single server OR Taskman multi-server"
^XMB(3.9,41,2,9757,0)="""RTN"",""HLOSRVR"",6,0)"
^XMB(3.9,41,2,9758,0)=" N LINK"
^XMB(3.9,41,2,9759,0)="""RTN"",""HLOSRVR"",7,0)"
^XMB(3.9,41,2,9760,0)=" I '$$CHKSTOP^HLOPROC,$G(WORK(""LINK""))]"""",$$GETLINK^HLOTLNK(WORK(""LINK""),.LINK),+LINK(""SERVER"") S WORK(""PORT"")=LINK(""PORT"") Q 1"
^XMB(3.9,41,2,9761,0)="""RTN"",""HLOSRVR"",8,0)"
^XMB(3.9,41,2,9762,0)=" Q 0"
^XMB(3.9,41,2,9763,0)="""RTN"",""HLOSRVR"",9,0)"
^XMB(3.9,41,2,9764,0)=" ;"
^XMB(3.9,41,2,9765,0)="""RTN"",""HLOSRVR"",10,0)"
^XMB(3.9,41,2,9766,0)="DOWORKS(WORK) ;"
^XMB(3.9,41,2,9767,0)="""RTN"",""HLOSRVR"",11,0)"
^XMB(3.9,41,2,9768,0)=" ;DO WORK rtn for a single server (non-concurrent)"
^XMB(3.9,41,2,9769,0)="""RTN"",""HLOSRVR"",12,0)"
^XMB(3.9,41,2,9770,0)=" D SERVER(WORK(""LINK""))"
^XMB(3.9,41,2,9771,0)="""RTN"",""HLOSRVR"",13,0)"
^XMB(3.9,41,2,9772,0)=" Q"
^XMB(3.9,41,2,9773,0)="""RTN"",""HLOSRVR"",14,0)"
^XMB(3.9,41,2,9774,0)="DOWORKM(WORK) ;"
^XMB(3.9,41,2,9775,0)="""RTN"",""HLOSRVR"",15,0)"
^XMB(3.9,41,2,9776,0)=" ;DO WORK rtn for a Taskman multi-server (Cache systems only)"
^XMB(3.9,41,2,9777,0)="""RTN"",""HLOSRVR"",16,0)"
^XMB(3.9,41,2,9778,0)=" D LISTEN^%ZISTCPS(WORK(""PORT""),""SERVER^HLOSRVR(""""""_WORK(""LINK"")_"""""")"")"
^XMB(3.9,41,2,9779,0)="""RTN"",""HLOSRVR"",17,0)"
^XMB(3.9,41,2,9780,0)=" Q"
^XMB(3.9,41,2,9781,0)="""RTN"",""HLOSRVR"",18,0)"
^XMB(3.9,41,2,9782,0)=" ;"
^XMB(3.9,41,2,9783,0)="""RTN"",""HLOSRVR"",19,0)"
^XMB(3.9,41,2,9784,0)="VMS ;called from VMS TCP Service once a connection request has been received"
^XMB(3.9,41,2,9785,0)="""RTN"",""HLOSRVR"",20,0)"
^XMB(3.9,41,2,9786,0)=" Q:$$CHKSTOP^HLOPROC"
^XMB(3.9,41,2,9787,0)="""RTN"",""HLOSRVR"",21,0)"
^XMB(3.9,41,2,9788,0)=" N LINKNAME,PROC"
^XMB(3.9,41,2,9789,0)="""RTN"",""HLOSRVR"",22,0)"
^XMB(3.9,41,2,9790,0)=" S PROC=$O(^HLD(779.3,""B"",""VMS TCP LISTENER"",0))"
^XMB(3.9,41,2,9791,0)="""RTN"",""HLOSRVR"",23,0)"
^XMB(3.9,41,2,9792,0)=" I 'PROC D ^%ZTER Q"
^XMB(3.9,41,2,9793,0)="""RTN"",""HLOSRVR"",24,0)"
^XMB(3.9,41,2,9794,0)=" S LINKNAME=$P($G(^HLD(779.3,PROC,0)),""^"",14)"
^XMB(3.9,41,2,9795,0)="""RTN"",""HLOSRVR"",25,0)"
^XMB(3.9,41,2,9796,0)=" I $G(LINKNAME)="""" D ^%ZTER Q"
^XMB(3.9,41,2,9797,0)="""RTN"",""HLOSRVR"",26,0)"
^XMB(3.9,41,2,9798,0)=" D SERVER(LINKNAME,""SYS$NET"")"
^XMB(3.9,41,2,9799,0)="""RTN"",""HLOSRVR"",27,0)"
^XMB(3.9,41,2,9800,0)=" Q"
^XMB(3.9,41,2,9801,0)="""RTN"",""HLOSRVR"",28,0)"
^XMB(3.9,41,2,9802,0)=" ;"
^XMB(3.9,41,2,9803,0)="""RTN"",""HLOSRVR"",29,0)"
^XMB(3.9,41,2,9804,0)="SERVER(LINKNAME,LOGICAL) ; LINKNAME identifies the logical link, which describes the communication channel to be used"
^XMB(3.9,41,2,9805,0)="""RTN"",""HLOSRVR"",30,0)"
^XMB(3.9,41,2,9806,0)=" N $ETRAP,$ESTACK S $ETRAP=""G ERROR^HLOSRVR1"""
^XMB(3.9,41,2,9807,0)="""RTN"",""HLOSRVR"",31,0)"
^XMB(3.9,41,2,9808,0)=" N HLCSTATE,INQUE"
^XMB(3.9,41,2,9809,0)="""RTN"",""HLOSRVR"",32,0)"
^XMB(3.9,41,2,9810,0)=" S INQUE=0"
^XMB(3.9,41,2,9811,0)="""RTN"",""HLOSRVR"",33,0)"
^XMB(3.9,41,2,9812,0)=" Q:'$$CONNECT(.HLCSTATE,LINKNAME,.LOGICAL)"
^XMB(3.9,41,2,9813,0)="""RTN"",""HLOSRVR"",34,0)"
^XMB(3.9,41,2,9814,0)=" K LINKNAME"
^XMB(3.9,41,2,9815,0)="""RTN"",""HLOSRVR"",35,0)"
^XMB(3.9,41,2,9816,0)=" F  Q:'HLCSTATE(""CONNECTED"")  D  Q:$$CHKSTOP^HLOPROC"
^XMB(3.9,41,2,9817,0)="""RTN"",""HLOSRVR"",36,0)"
^XMB(3.9,41,2,9818,0)=" .N HLMSTATE,SENT"
^XMB(3.9,41,2,9819,0)="""RTN"",""HLOSRVR"",37,0)"
^XMB(3.9,41,2,9820,0)=" .I $$READMSG^HLOSRVR1(.HLCSTATE,.HLMSTATE) D"
^XMB(3.9,41,2,9821,0)="""RTN"",""HLOSRVR"",38,0)"
^XMB(3.9,41,2,9822,0)=" ..;$$READMSG also parses the hdr and determines what to do - HLMSTATE(""MSA"",1) is the ack to return= <"""",""CA"",""CE"",""CR"",""AE"">"
^XMB(3.9,41,2,9823,0)="""RTN"",""HLOSRVR"",39,0)"
^XMB(3.9,41,2,9824,0)=" ..;send an ack if required and save the MSA segment"
^XMB(3.9,41,2,9825,0)="""RTN"",""HLOSRVR"",40,0)"
^XMB(3.9,41,2,9826,0)=" ..I (HLMSTATE(""MSA"",1)]"""") S SENT=$$WRITEACK(.HLCSTATE,.HLMSTATE) D:HLMSTATE(""IEN"") SAVEACK(.HLMSTATE,SENT)"
^XMB(3.9,41,2,9827,0)="""RTN"",""HLOSRVR"",41,0)"
^XMB(3.9,41,2,9828,0)=" ..I HLMSTATE(""IEN"") D UPDATE(.HLMSTATE,.HLCSTATE)"
^XMB(3.9,41,2,9829,0)="""RTN"",""HLOSRVR"",42,0)"
^XMB(3.9,41,2,9830,0)=" .E  D INQUE() H 1"
^XMB(3.9,41,2,9831,0)="""RTN"",""HLOSRVR"",43,0)"
^XMB(3.9,41,2,9832,0)=" ;"
^XMB(3.9,41,2,9833,0)="""RTN"",""HLOSRVR"",44,0)"
^XMB(3.9,41,2,9834,0)="END D CLOSE^HLOT(.HLCSTATE)"
^XMB(3.9,41,2,9835,0)="""RTN"",""HLOSRVR"",45,0)"
^XMB(3.9,41,2,9836,0)=" D INQUE()"
^XMB(3.9,41,2,9837,0)="""RTN"",""HLOSRVR"",46,0)"
^XMB(3.9,41,2,9838,0)=" Q"
^XMB(3.9,41,2,9839,0)="""RTN"",""HLOSRVR"",47,0)"
^XMB(3.9,41,2,9840,0)=" ;"
^XMB(3.9,41,2,9841,0)="""RTN"",""HLOSRVR"",48,0)"
^XMB(3.9,41,2,9842,0)="CONNECT(HLCSTATE,LINKNAME,LOGICAL) ;"
^XMB(3.9,41,2,9843,0)="""RTN"",""HLOSRVR"",49,0)"
^XMB(3.9,41,2,9844,0)=" ;sets up HLCSTATE() and opens a server connection"
^XMB(3.9,41,2,9845,0)="""RTN"",""HLOSRVR"",50,0)"
^XMB(3.9,41,2,9846,0)=" ;"
^XMB(3.9,41,2,9847,0)="""RTN"",""HLOSRVR"",51,0)"
^XMB(3.9,41,2,9848,0)=" N LINK,NODE"
^XMB(3.9,41,2,9849,0)="""RTN"",""HLOSRVR"",52,0)"
^XMB(3.9,41,2,9850,0)=" Q:'$$GETLINK^HLOTLNK(LINKNAME,.LINK) 0"
^XMB(3.9,41,2,9851,0)="""RTN"",""HLOSRVR"",53,0)"
^XMB(3.9,41,2,9852,0)=" Q:+LINK(""SERVER"")'=1 0"
^XMB(3.9,41,2,9853,0)="""RTN"",""HLOSRVR"",54,0)"
^XMB(3.9,41,2,9854,0)=" S HLCSTATE(""SERVER"")=LINK(""SERVER"")"
^XMB(3.9,41,2,9855,0)="""RTN"",""HLOSRVR"",55,0)"
^XMB(3.9,41,2,9856,0)=" M HLCSTATE(""LINK"")=LINK"
^XMB(3.9,41,2,9857,0)="""RTN"",""HLOSRVR"",56,0)"
^XMB(3.9,41,2,9858,0)=" S HLCSTATE(""ATTEMPT"")=1 ;count of #of read attempts, incremented if a message hdr is read but the read fails before the end"
^XMB(3.9,41,2,9859,0)="""RTN"",""HLOSRVR"",57,0)"
^XMB(3.9,41,2,9860,0)=" S HLCSTATE(""READ"")="""" ;where the reads are stored"
^XMB(3.9,41,2,9861,0)="""RTN"",""HLOSRVR"",58,0)"
^XMB(3.9,41,2,9862,0)=" ;"
^XMB(3.9,41,2,9863,0)="""RTN"",""HLOSRVR"",59,0)"
^XMB(3.9,41,2,9864,0)=" ;HLCSTATE(""BUFFER"",<seg>,<line>) serves as a write buffer so that a lot can be written all at once"
^XMB(3.9,41,2,9865,0)="""RTN"",""HLOSRVR"",60,0)"
^XMB(3.9,41,2,9866,0)=" S HLCSTATE(""BUFFER"",""BYTE COUNT"")=0 ;count of BYTES in buffer"
^XMB(3.9,41,2,9867,0)="""RTN"",""HLOSRVR"",61,0)"
^XMB(3.9,41,2,9868,0)=" S HLCSTATE(""BUFFER"",""SEGMENT COUNT"")=0 ;count of segments in buffer"
^XMB(3.9,41,2,9869,0)="""RTN"",""HLOSRVR"",62,0)"
^XMB(3.9,41,2,9870,0)=" ;"
^XMB(3.9,41,2,9871,0)="""RTN"",""HLOSRVR"",63,0)"
^XMB(3.9,41,2,9872,0)=" S HLCSTATE(""MESSAGE ENDED"")=0 ;end of message flag"
^XMB(3.9,41,2,9873,0)="""RTN"",""HLOSRVR"",64,0)"
^XMB(3.9,41,2,9874,0)=" S NODE=^%ZOSF(""OS"")"
^XMB(3.9,41,2,9875,0)="""RTN"",""HLOSRVR"",65,0)"
^XMB(3.9,41,2,9876,0)=" S HLCSTATE(""SYSTEM"",""OS"")=$S(NODE[""DSM"":""DSM"",NODE[""OpenM"":""CACHE"",NODE[""G.TM"":""G.TM"",1:"""")"
^XMB(3.9,41,2,9877,0)="""RTN"",""HLOSRVR"",66,0)"
^XMB(3.9,41,2,9878,0)=" Q:HLCSTATE(""SYSTEM"",""OS"")="""" 0"
^XMB(3.9,41,2,9879,0)="""RTN"",""HLOSRVR"",67,0)"
^XMB(3.9,41,2,9880,0)=" D  ;get necessary system parameters"
^XMB(3.9,41,2,9881,0)="""RTN"",""HLOSRVR"",68,0)"
^XMB(3.9,41,2,9882,0)=" .N SYS,SUB"
^XMB(3.9,41,2,9883,0)="""RTN"",""HLOSRVR"",69,0)"
^XMB(3.9,41,2,9884,0)=" .D SYSPARMS^HLOSITE(.SYS)"
^XMB(3.9,41,2,9885,0)="""RTN"",""HLOSRVR"",70,0)"
^XMB(3.9,41,2,9886,0)=" .F SUB=""MAXSTRING"",""DOMAIN"",""STATION"",""PROCESSING ID"",""NORMAL PURGE"",""ERROR PURGE"" S HLCSTATE(""SYSTEM"",SUB)=SYS(SUB)"
^XMB(3.9,41,2,9887,0)="""RTN"",""HLOSRVR"",71,0)"
^XMB(3.9,41,2,9888,0)=" .S HLCSTATE(""SYSTEM"",""BUFFER"")=SYS(""HL7 BUFFER"")"
^XMB(3.9,41,2,9889,0)="""RTN"",""HLOSRVR"",72,0)"
^XMB(3.9,41,2,9890,0)=" I HLCSTATE(""LINK"",""LLP"")=""TCP"" D"
^XMB(3.9,41,2,9891,0)="""RTN"",""HLOSRVR"",73,0)"
^XMB(3.9,41,2,9892,0)=" .D OPEN^HLOTCP(.HLCSTATE,.LOGICAL)"
^XMB(3.9,41,2,9893,0)="""RTN"",""HLOSRVR"",74,0)"
^XMB(3.9,41,2,9894,0)=" ;E  I HLCSTATE(""LINK"",""LLP"")=""HLLP"" D  ;serial"
^XMB(3.9,41,2,9895,0)="""RTN"",""HLOSRVR"",75,0)"
^XMB(3.9,41,2,9896,0)=" ;.;serial connections are deferred for later development"
^XMB(3.9,41,2,9897,0)="""RTN"",""HLOSRVR"",76,0)"
^XMB(3.9,41,2,9898,0)=" ;"
^XMB(3.9,41,2,9899,0)="""RTN"",""HLOSRVR"",77,0)"
^XMB(3.9,41,2,9900,0)=" Q HLCSTATE(""CONNECTED"")"
^XMB(3.9,41,2,9901,0)="""RTN"",""HLOSRVR"",78,0)"
^XMB(3.9,41,2,9902,0)=" ;"
^XMB(3.9,41,2,9903,0)="""RTN"",""HLOSRVR"",79,0)"
^XMB(3.9,41,2,9904,0)="INQUE(MSGIEN,PARMS) ;"
^XMB(3.9,41,2,9905,0)="""RTN"",""HLOSRVR"",80,0)"
^XMB(3.9,41,2,9906,0)=" ;puts received messages on the incoming queue and sets the B x-refs"
^XMB(3.9,41,2,9907,0)="""RTN"",""HLOSRVR"",81,0)"
^XMB(3.9,41,2,9908,0)=" I $G(MSGIEN) S INQUE=INQUE+1 M INQUE(MSGIEN)=PARMS"
^XMB(3.9,41,2,9909,0)="""RTN"",""HLOSRVR"",82,0)"
^XMB(3.9,41,2,9910,0)=" I ('$G(MSGIEN))!(INQUE>20) S MSGIEN=0 D"
^XMB(3.9,41,2,9911,0)="""RTN"",""HLOSRVR"",83,0)"
^XMB(3.9,41,2,9912,0)=" .F  S MSGIEN=$O(INQUE(MSGIEN)) Q:'MSGIEN  D"
^XMB(3.9,41,2,9913,0)="""RTN"",""HLOSRVR"",84,0)"
^XMB(3.9,41,2,9914,0)=" ..S ^HLB(""B"",INQUE(MSGIEN,""MSGID""),MSGIEN)="""""
^XMB(3.9,41,2,9915,0)="""RTN"",""HLOSRVR"",85,0)"
^XMB(3.9,41,2,9916,0)=" ..S ^HLA(""B"",INQUE(MSGIEN,""DT/TM""),INQUE(MSGIEN,""BODY""))="""""
^XMB(3.9,41,2,9917,0)="""RTN"",""HLOSRVR"",86,0)"
^XMB(3.9,41,2,9918,0)=" ..D:INQUE(MSGIEN,""PASS"")"
^XMB(3.9,41,2,9919,0)="""RTN"",""HLOSRVR"",87,0)"
^XMB(3.9,41,2,9920,0)=" ...N PURGE"
^XMB(3.9,41,2,9921,0)="""RTN"",""HLOSRVR"",88,0)"
^XMB(3.9,41,2,9922,0)=" ...S PURGE=+$G(INQUE(MSGIEN,""PURGE""))"
^XMB(3.9,41,2,9923,0)="""RTN"",""HLOSRVR"",89,0)"
^XMB(3.9,41,2,9924,0)=" ...S PURGE(""ACKTOIEN"")=$G(INQUE(MSGIEN,""ACKTOIEN""))"
^XMB(3.9,41,2,9925,0)="""RTN"",""HLOSRVR"",90,0)"
^XMB(3.9,41,2,9926,0)=" ...D INQUE^HLOQUE(INQUE(MSGIEN,""FROM""),INQUE(MSGIEN,""QUEUE""),MSGIEN,INQUE(MSGIEN,""ACTION""),.PURGE)"
^XMB(3.9,41,2,9927,0)="""RTN"",""HLOSRVR"",91,0)"
^XMB(3.9,41,2,9928,0)=" .K INQUE S INQUE=0"
^XMB(3.9,41,2,9929,0)="""RTN"",""HLOSRVR"",92,0)"
^XMB(3.9,41,2,9930,0)=" Q"
^XMB(3.9,41,2,9931,0)="""RTN"",""HLOSRVR"",93,0)"
^XMB(3.9,41,2,9932,0)=" ;"
^XMB(3.9,41,2,9933,0)="""RTN"",""HLOSRVR"",94,0)"
^XMB(3.9,41,2,9934,0)="SAVEACK(HLMSTATE,SENT) ;"
^XMB(3.9,41,2,9935,0)="""RTN"",""HLOSRVR"",95,0)"
^XMB(3.9,41,2,9936,0)=" ;Input:"
^XMB(3.9,41,2,9937,0)="""RTN"",""HLOSRVR"",96,0)"
^XMB(3.9,41,2,9938,0)=" ;  SENT - flag = 1 if transmission of ack succeeded, 0 otherwise"
^XMB(3.9,41,2,9939,0)="""RTN"",""HLOSRVR"",97,0)"
^XMB(3.9,41,2,9940,0)=" ;"
^XMB(3.9,41,2,9941,0)="""RTN"",""HLOSRVR"",98,0)"
^XMB(3.9,41,2,9942,0)=" N NODE,I"
^XMB(3.9,41,2,9943,0)="""RTN"",""HLOSRVR"",99,0)"
^XMB(3.9,41,2,9944,0)=" S $P(NODE,""^"")=HLMSTATE(""MSA"",""DT/TM OF MESSAGE"")"
^XMB(3.9,41,2,9945,0)="""RTN"",""HLOSRVR"",100,0)"
^XMB(3.9,41,2,9946,0)=" S $P(NODE,""^"",2)=HLMSTATE(""MSA"",""MESSAGE CONTROL ID"")"
^XMB(3.9,41,2,9947,0)="""RTN"",""HLOSRVR"",101,0)"
^XMB(3.9,41,2,9948,0)=" S $P(NODE,""^"",3)=""MSA"""
^XMB(3.9,41,2,9949,0)="""RTN"",""HLOSRVR"",102,0)"
^XMB(3.9,41,2,9950,0)=" F I=1:1:3 S NODE=NODE_""|""_$G(HLMSTATE(""MSA"",I))"
^XMB(3.9,41,2,9951,0)="""RTN"",""HLOSRVR"",103,0)"
^XMB(3.9,41,2,9952,0)=" S ^HLB(HLMSTATE(""IEN""),4)=NODE"
^XMB(3.9,41,2,9953,0)="""RTN"",""HLOSRVR"",104,0)"
^XMB(3.9,41,2,9954,0)=" S:SENT $P(^HLB(HLMSTATE(""IEN""),0),""^"",$S($E(HLMSTATE(""MSA"",1))=""A"":18,1:17))=1"
^XMB(3.9,41,2,9955,0)="""RTN"",""HLOSRVR"",105,0)"
^XMB(3.9,41,2,9956,0)=" Q"
^XMB(3.9,41,2,9957,0)="""RTN"",""HLOSRVR"",106,0)"
^XMB(3.9,41,2,9958,0)=" ;"
^XMB(3.9,41,2,9959,0)="""RTN"",""HLOSRVR"",107,0)"
^XMB(3.9,41,2,9960,0)="UPDATE(HLMSTATE,HLCSTATE) ;"
^XMB(3.9,41,2,9961,0)="""RTN"",""HLOSRVR"",108,0)"
^XMB(3.9,41,2,9962,0)=" ;Updates status and purge date when appropriate"
^XMB(3.9,41,2,9963,0)="""RTN"",""HLOSRVR"",109,0)"
^XMB(3.9,41,2,9964,0)=" ;Also, sets the ""B"" xrefs, files 777,778, and places message on the incoming queue"
^XMB(3.9,41,2,9965,0)="""RTN"",""HLOSRVR"",110,0)"
^XMB(3.9,41,2,9966,0)=" ;"
^XMB(3.9,41,2,9967,0)="""RTN"",""HLOSRVR"",111,0)"
^XMB(3.9,41,2,9968,0)=" N PARMS,PURGE,WAIT"
^XMB(3.9,41,2,9969,0)="""RTN"",""HLOSRVR"",112,0)"
^XMB(3.9,41,2,9970,0)=" S PARMS(""PASS"")=0"
^XMB(3.9,41,2,9971,0)="""RTN"",""HLOSRVR"",113,0)"
^XMB(3.9,41,2,9972,0)=" I HLMSTATE(""STATUS"",""ACTION"")]"""",HLMSTATE(""STATUS"")'=""SE"" S PARMS(""PASS"")=1,$P(^HLB(HLMSTATE(""IEN""),0),""^"",6)=HLMSTATE(""STATUS"",""QUEUE"")"
^XMB(3.9,41,2,9973,0)="""RTN"",""HLOSRVR"",114,0)"
^XMB(3.9,41,2,9974,0)=" D:'PARMS(""PASS"")  ;if not passing to the app, set the purge date"
^XMB(3.9,41,2,9975,0)="""RTN"",""HLOSRVR"",115,0)"
^XMB(3.9,41,2,9976,0)=" .I HLMSTATE(""STATUS"")="""" S HLMSTATE(""STATUS"")=""SU"""
^XMB(3.9,41,2,9977,0)="""RTN"",""HLOSRVR"",116,0)"
^XMB(3.9,41,2,9978,0)=" .S:HLMSTATE(""BATCH"") WAIT=HLCSTATE(""SYSTEM"",""ERROR PURGE"")"
^XMB(3.9,41,2,9979,0)="""RTN"",""HLOSRVR"",117,0)"
^XMB(3.9,41,2,9980,0)=" .S:'HLMSTATE(""BATCH"") WAIT=$S(HLMSTATE(""STATUS"")=""SE"":24*HLCSTATE(""SYSTEM"",""ERROR PURGE""),1:HLCSTATE(""SYSTEM"",""NORMAL PURGE""))"
^XMB(3.9,41,2,9981,0)="""RTN"",""HLOSRVR"",118,0)"
^XMB(3.9,41,2,9982,0)=" .S PURGE=$$FMADD^XLFDT($$NOW^XLFDT,,WAIT)"
^XMB(3.9,41,2,9983,0)="""RTN"",""HLOSRVR"",119,0)"
^XMB(3.9,41,2,9984,0)=" .S $P(^HLB(HLMSTATE(""IEN""),0),""^"",9)=PURGE"
^XMB(3.9,41,2,9985,0)="""RTN"",""HLOSRVR"",120,0)"
^XMB(3.9,41,2,9986,0)=" .S ^HLB(""AD"",""IN"",PURGE,HLMSTATE(""IEN""))="""""
^XMB(3.9,41,2,9987,0)="""RTN"",""HLOSRVR"",121,0)"
^XMB(3.9,41,2,9988,0)=" ;"
^XMB(3.9,41,2,9989,0)="""RTN"",""HLOSRVR"",122,0)"
^XMB(3.9,41,2,9990,0)=" ;if not waiting for an application ack, set the status now even if passing to the app - but don't set the purge until the infiler passes the message"
^XMB(3.9,41,2,9991,0)="""RTN"",""HLOSRVR"",123,0)"
^XMB(3.9,41,2,9992,0)=" I HLMSTATE(""STATUS"")="""",HLMSTATE(""HDR"",""APP ACK TYPE"")'=""AL"" S HLMSTATE(""STATUS"")=""SU"""
^XMB(3.9,41,2,9993,0)="""RTN"",""HLOSRVR"",124,0)"
^XMB(3.9,41,2,9994,0)=" I HLMSTATE(""STATUS"")'="""" S $P(^HLB(HLMSTATE(""IEN""),0),""^"",20)=HLMSTATE(""STATUS"") S:$G(HLMSTATE(""MSA"",3))]"""" $P(^HLB(HLMSTATE(""IEN""),0),""^"",21)=HLMSTATE(""MSA"",3) D:HLMSTATE(""STATUS"")=""SE"""
^XMB(3.9,41,2,9995,0)="""RTN"",""HLOSRVR"",125,0)"
^XMB(3.9,41,2,9996,0)=" .N APP"
^XMB(3.9,41,2,9997,0)="""RTN"",""HLOSRVR"",126,0)"
^XMB(3.9,41,2,9998,0)=" .S APP=HLMSTATE(""HDR"",""RECEIVING APPLICATION"") S:APP="""" APP=""UNKNOWN"" S ^HLB(""ERRORS"",""SE"",APP,HLMSTATE(""DT/TM""),HLMSTATE(""IEN""))="""""
^XMB(3.9,41,2,9999,0)="""RTN"",""HLOSRVR"",127,0)"
^XMB(3.9,41,2,10000,0)=" ;"
^XMB(3.9,41,2,10001,0)="""RTN"",""HLOSRVR"",128,0)"
^XMB(3.9,41,2,10002,0)=" ;set the necessary parms for passing the msg to the app via the infiler"
^XMB(3.9,41,2,10003,0)="""RTN"",""HLOSRVR"",129,0)"
^XMB(3.9,41,2,10004,0)=" D:PARMS(""PASS"")"
^XMB(3.9,41,2,10005,0)="""RTN"",""HLOSRVR"",130,0)"
^XMB(3.9,41,2,10006,0)=" .N I,FROM"
^XMB(3.9,41,2,10007,0)="""RTN"",""HLOSRVR"",131,0)"
^XMB(3.9,41,2,10008,0)=" .S FROM=HLMSTATE(""HDR"",""SENDING FACILITY"",1)"
^XMB(3.9,41,2,10009,0)="""RTN"",""HLOSRVR"",132,0)"
^XMB(3.9,41,2,10010,0)=" .I HLMSTATE(""HDR"",""SENDING FACILITY"",2)]"""" S FROM=FROM_""~""_HLMSTATE(""HDR"",""SENDING FACILITY"",2)_""~""_HLMSTATE(""HDR"",""SENDING FACILITY"",3)"
^XMB(3.9,41,2,10011,0)="""RTN"",""HLOSRVR"",133,0)"
^XMB(3.9,41,2,10012,0)=" .I FROM="""" S FROM=""UNKNOWN SENDING FACILITY"""
^XMB(3.9,41,2,10013,0)="""RTN"",""HLOSRVR"",134,0)"
^XMB(3.9,41,2,10014,0)=" .S PARMS(""FROM"")=FROM,PARMS(""QUEUE"")=HLMSTATE(""STATUS"",""QUEUE""),PARMS(""ACTION"")=HLMSTATE(""STATUS"",""ACTION"")"
^XMB(3.9,41,2,10015,0)="""RTN"",""HLOSRVR"",135,0)"
^XMB(3.9,41,2,10016,0)=" .I HLMSTATE(""STATUS"")'="""" S PARMS(""PURGE"")=1"
^XMB(3.9,41,2,10017,0)="""RTN"",""HLOSRVR"",136,0)"
^XMB(3.9,41,2,10018,0)=" .S:$G(HLMSTATE(""ACK TO"",""IEN"")) PARMS(""ACKTOIEN"")=HLMSTATE(""ACK TO"",""IEN"") ;to insure that the infiler will know to set the purge date at the same time as the initial message"
^XMB(3.9,41,2,10019,0)="""RTN"",""HLOSRVR"",137,0)"
^XMB(3.9,41,2,10020,0)=" ;"
^XMB(3.9,41,2,10021,0)="""RTN"",""HLOSRVR"",138,0)"
^XMB(3.9,41,2,10022,0)=" S PARMS(""BODY"")=HLMSTATE(""BODY"")"
^XMB(3.9,41,2,10023,0)="""RTN"",""HLOSRVR"",139,0)"
^XMB(3.9,41,2,10024,0)=" S PARMS(""DT/TM"")=HLMSTATE(""DT/TM"")"
^XMB(3.9,41,2,10025,0)="""RTN"",""HLOSRVR"",140,0)"
^XMB(3.9,41,2,10026,0)=" S PARMS(""MSGID"")=$S(HLMSTATE(""BATCH""):HLMSTATE(""HDR"",""BATCH CONTROL ID""),1:HLMSTATE(""HDR"",""MESSAGE CONTROL ID""))"
^XMB(3.9,41,2,10027,0)="""RTN"",""HLOSRVR"",141,0)"
^XMB(3.9,41,2,10028,0)=" D INQUE(HLMSTATE(""IEN""),.PARMS)"
^XMB(3.9,41,2,10029,0)="""RTN"",""HLOSRVR"",142,0)"
^XMB(3.9,41,2,10030,0)=" Q"
^XMB(3.9,41,2,10031,0)="""RTN"",""HLOSRVR"",143,0)"
^XMB(3.9,41,2,10032,0)=" ;"
^XMB(3.9,41,2,10033,0)="""RTN"",""HLOSRVR"",144,0)"
^XMB(3.9,41,2,10034,0)="WRITEACK(HLCSTATE,HLMSTATE) ;"
^XMB(3.9,41,2,10035,0)="""RTN"",""HLOSRVR"",145,0)"
^XMB(3.9,41,2,10036,0)=" ;Sends an accept ack"
^XMB(3.9,41,2,10037,0)="""RTN"",""HLOSRVR"",146,0)"
^XMB(3.9,41,2,10038,0)=" ;"
^XMB(3.9,41,2,10039,0)="""RTN"",""HLOSRVR"",147,0)"
^XMB(3.9,41,2,10040,0)=" ;Input:"
^XMB(3.9,41,2,10041,0)="""RTN"",""HLOSRVR"",148,0)"
^XMB(3.9,41,2,10042,0)=" ;  HLCSTATE (pass by reference) defines the communication channel"
^XMB(3.9,41,2,10043,0)="""RTN"",""HLOSRVR"",149,0)"
^XMB(3.9,41,2,10044,0)=" ;  HLMSTATE (pass by reference) the message being acked"
^XMB(3.9,41,2,10045,0)="""RTN"",""HLOSRVR"",150,0)"
^XMB(3.9,41,2,10046,0)=" ;     (""MSA"",1) - value to put in MSA-1"
^XMB(3.9,41,2,10047,0)="""RTN"",""HLOSRVR"",151,0)"
^XMB(3.9,41,2,10048,0)=" ;     (""MSA"",2) - value to put in MSA-2"
^XMB(3.9,41,2,10049,0)="""RTN"",""HLOSRVR"",152,0)"
^XMB(3.9,41,2,10050,0)=" ;     (""MSA"",3) - value to put in MSA-3"
^XMB(3.9,41,2,10051,0)="""RTN"",""HLOSRVR"",153,0)"
^XMB(3.9,41,2,10052,0)=" ;     (""HDR"") - parsed values for the message being ack'd"
^XMB(3.9,41,2,10053,0)="""RTN"",""HLOSRVR"",154,0)"
^XMB(3.9,41,2,10054,0)=" ;Output:"
^XMB(3.9,41,2,10055,0)="""RTN"",""HLOSRVR"",155,0)"
^XMB(3.9,41,2,10056,0)=" ;  Function returns 1 if successful, 0 otherwise"
^XMB(3.9,41,2,10057,0)="""RTN"",""HLOSRVR"",156,0)"
^XMB(3.9,41,2,10058,0)=" ;  HLMSTATE(""MSA"",""MESSAGE CONTROL ID"") - the msg id of the ack"
^XMB(3.9,41,2,10059,0)="""RTN"",""HLOSRVR"",157,0)"
^XMB(3.9,41,2,10060,0)=" ;  HLMSTATE(,""MSA"",""DT/TM OF MESSAGE"") - from the ack header"
^XMB(3.9,41,2,10061,0)="""RTN"",""HLOSRVR"",158,0)"
^XMB(3.9,41,2,10062,0)=" ;"
^XMB(3.9,41,2,10063,0)="""RTN"",""HLOSRVR"",159,0)"
^XMB(3.9,41,2,10064,0)=" N HDR,SUB,FS,CS,MSA,ACKID,TIME"
^XMB(3.9,41,2,10065,0)="""RTN"",""HLOSRVR"",160,0)"
^XMB(3.9,41,2,10066,0)=" ;for simplicity, hard-code the delimiters, the standard requires that the receiving system accept the delimiters listed in the header"
^XMB(3.9,41,2,10067,0)="""RTN"",""HLOSRVR"",161,0)"
^XMB(3.9,41,2,10068,0)=" S FS=""|"""
^XMB(3.9,41,2,10069,0)="""RTN"",""HLOSRVR"",162,0)"
^XMB(3.9,41,2,10070,0)=" S CS=""^"""
^XMB(3.9,41,2,10071,0)="""RTN"",""HLOSRVR"",163,0)"
^XMB(3.9,41,2,10072,0)=" S TIME=$$NOW^XLFDT"
^XMB(3.9,41,2,10073,0)="""RTN"",""HLOSRVR"",164,0)"
^XMB(3.9,41,2,10074,0)=" S HLMSTATE(""MSA"",""DT/TM OF MESSAGE"")=TIME"
^XMB(3.9,41,2,10075,0)="""RTN"",""HLOSRVR"",165,0)"
^XMB(3.9,41,2,10076,0)=" S ACKID=HLCSTATE(""SYSTEM"",""STATION"")_"" ""_$$NEWIEN^HLOF778A(""OUT"")"
^XMB(3.9,41,2,10077,0)="""RTN"",""HLOSRVR"",166,0)"
^XMB(3.9,41,2,10078,0)=" S HLMSTATE(""MSA"",""MESSAGE CONTROL ID"")=ACKID"
^XMB(3.9,41,2,10079,0)="""RTN"",""HLOSRVR"",167,0)"
^XMB(3.9,41,2,10080,0)=" ;"
^XMB(3.9,41,2,10081,0)="""RTN"",""HLOSRVR"",168,0)"
^XMB(3.9,41,2,10082,0)=" S HDR(1)=""MSH""_FS_""^~\&""_FS_HLMSTATE(""HDR"",""RECEIVING APPLICATION"")_FS_HLCSTATE(""SYSTEM"",""STATION"")_CS_HLCSTATE(""SYSTEM"",""DOMAIN"")_CS_""DNS""_FS"
^XMB(3.9,41,2,10083,0)="""RTN"",""HLOSRVR"",169,0)"
^XMB(3.9,41,2,10084,0)=" S HDR(1)=HDR(1)_HLMSTATE(""HDR"",""SENDING APPLICATION"")_FS_HLMSTATE(""HDR"",""SENDING FACILITY"",1)_CS_HLMSTATE(""HDR"",""SENDING FACILITY"",2)_CS_HLMSTATE(""HDR"",""SENDING FACILITY"",3)"
^XMB(3.9,41,2,10085,0)="""RTN"",""HLOSRVR"",170,0)"
^XMB(3.9,41,2,10086,0)=" ;"
^XMB(3.9,41,2,10087,0)="""RTN"",""HLOSRVR"",171,0)"
^XMB(3.9,41,2,10088,0)=" S HDR(2)=FS_$$HLDATE^HLFNC(TIME,""TS"")_FS_FS_""ACK""_FS_ACKID_FS_HLMSTATE(""HDR"",""PROCESSING ID"")_FS_""2.4""_FS_FS_FS_""NE""_FS_""NE"""
^XMB(3.9,41,2,10089,0)="""RTN"",""HLOSRVR"",172,0)"
^XMB(3.9,41,2,10090,0)=" ;"
^XMB(3.9,41,2,10091,0)="""RTN"",""HLOSRVR"",173,0)"
^XMB(3.9,41,2,10092,0)=" S MSA(1)=""MSA""_FS"
^XMB(3.9,41,2,10093,0)="""RTN"",""HLOSRVR"",174,0)"
^XMB(3.9,41,2,10094,0)=" F SUB=1:1:3 S MSA(1)=MSA(1)_HLMSTATE(""MSA"",SUB)_FS"
^XMB(3.9,41,2,10095,0)="""RTN"",""HLOSRVR"",175,0)"
^XMB(3.9,41,2,10096,0)=" I $$WRITEHDR^HLOT(.HLCSTATE,.HDR),$$WRITESEG^HLOT(.HLCSTATE,.MSA),$$ENDMSG^HLOT(.HLCSTATE) Q 1"
^XMB(3.9,41,2,10097,0)="""RTN"",""HLOSRVR"",176,0)"
^XMB(3.9,41,2,10098,0)=" S HLMSTATE(""MSA"",""DT/TM OF MESSAGE"")="""""
^XMB(3.9,41,2,10099,0)="""RTN"",""HLOSRVR"",177,0)"
^XMB(3.9,41,2,10100,0)=" Q 0"
^XMB(3.9,41,2,10101,0)="""RTN"",""HLOSRVR"",178,0)"
^XMB(3.9,41,2,10102,0)=" ;"
^XMB(3.9,41,2,10103,0)="""RTN"",""HLOSRVR"",179,0)"
^XMB(3.9,41,2,10104,0)="NEWSTATE(HLCSTATE,HLMSTATE,HDR,MSA) ;"
^XMB(3.9,41,2,10105,0)="""RTN"",""HLOSRVR"",180,0)"
^XMB(3.9,41,2,10106,0)=" ;Inputs:"
^XMB(3.9,41,2,10107,0)="""RTN"",""HLOSRVR"",181,0)"
^XMB(3.9,41,2,10108,0)=" ;  HLCSTATE (pass by reference)"
^XMB(3.9,41,2,10109,0)="""RTN"",""HLOSRVR"",182,0)"
^XMB(3.9,41,2,10110,0)=" ;  HDR (pass by reference) parsed header"
^XMB(3.9,41,2,10111,0)="""RTN"",""HLOSRVR"",183,0)"
^XMB(3.9,41,2,10112,0)=" ;  MSA - (pass by reference) the values to return in the accept ack"
^XMB(3.9,41,2,10113,0)="""RTN"",""HLOSRVR"",184,0)"
^XMB(3.9,41,2,10114,0)=" ;Output:"
^XMB(3.9,41,2,10115,0)="""RTN"",""HLOSRVR"",185,0)"
^XMB(3.9,41,2,10116,0)=" ;  HLMSTATE (pass by reference)"
^XMB(3.9,41,2,10117,0)="""RTN"",""HLOSRVR"",186,0)"
^XMB(3.9,41,2,10118,0)=" ;"
^XMB(3.9,41,2,10119,0)="""RTN"",""HLOSRVR"",187,0)"
^XMB(3.9,41,2,10120,0)=" ;initialize the HLMSTATE array with the header, in preparation for reading the rest of the message"
^XMB(3.9,41,2,10121,0)="""RTN"",""HLOSRVR"",188,0)"
^XMB(3.9,41,2,10122,0)=" S HLMSTATE(""IEN"")="""""
^XMB(3.9,41,2,10123,0)="""RTN"",""HLOSRVR"",189,0)"
^XMB(3.9,41,2,10124,0)=" S HLMSTATE(""BODY"")="""""
^XMB(3.9,41,2,10125,0)="""RTN"",""HLOSRVR"",190,0)"
^XMB(3.9,41,2,10126,0)=" S HLMSTATE(""DIRECTION"")=""IN"""
^XMB(3.9,41,2,10127,0)="""RTN"",""HLOSRVR"",191,0)"
^XMB(3.9,41,2,10128,0)=" S HLMSTATE(""CURRENT SEGMENT"")=0 ;no segments in cache"
^XMB(3.9,41,2,10129,0)="""RTN"",""HLOSRVR"",192,0)"
^XMB(3.9,41,2,10130,0)=" S HLMSTATE(""UNSTORED LINES"")=1 ;just the header in cache so far"
^XMB(3.9,41,2,10131,0)="""RTN"",""HLOSRVR"",193,0)"
^XMB(3.9,41,2,10132,0)=" S HLMSTATE(""LINE COUNT"")=0 ;no lines within message stored to disk"
^XMB(3.9,41,2,10133,0)="""RTN"",""HLOSRVR"",194,0)"
^XMB(3.9,41,2,10134,0)=" I HDR(""SEGMENT TYPE"")=""BHS"" D"
^XMB(3.9,41,2,10135,0)="""RTN"",""HLOSRVR"",195,0)"
^XMB(3.9,41,2,10136,0)=" .S HLMSTATE(""BATCH"")=1"
^XMB(3.9,41,2,10137,0)="""RTN"",""HLOSRVR"",196,0)"
^XMB(3.9,41,2,10138,0)=" .S HLMSTATE(""BATCH"",""CURRENT MESSAGE"")=0 ;no messages in batch"
^XMB(3.9,41,2,10139,0)="""RTN"",""HLOSRVR"",197,0)"
^XMB(3.9,41,2,10140,0)=" .S HLMSTATE(""UNSTORED MSH"")=0"
^XMB(3.9,41,2,10141,0)="""RTN"",""HLOSRVR"",198,0)"
^XMB(3.9,41,2,10142,0)=" E  S HLMSTATE(""BATCH"")=0"
^XMB(3.9,41,2,10143,0)="""RTN"",""HLOSRVR"",199,0)"
^XMB(3.9,41,2,10144,0)=" M HLMSTATE(""HDR"")=HDR"
^XMB(3.9,41,2,10145,0)="""RTN"",""HLOSRVR"",200,0)"
^XMB(3.9,41,2,10146,0)=" M HLMSTATE(""MSA"")=MSA"
^XMB(3.9,41,2,10147,0)="""RTN"",""HLOSRVR"",201,0)"
^XMB(3.9,41,2,10148,0)=" S HLMSTATE(""STATUS"")="""""
^XMB(3.9,41,2,10149,0)="""RTN"",""HLOSRVR"",202,0)"
^XMB(3.9,41,2,10150,0)=" M HLMSTATE(""SYSTEM"")=HLCSTATE(""SYSTEM"")"
^XMB(3.9,41,2,10151,0)="""RTN"",""HLOSRVR"",203,0)"
^XMB(3.9,41,2,10152,0)=" S HLMSTATE(""STATUS"",""LINK NAME"")=HLCSTATE(""LINK"",""NAME"")"
^XMB(3.9,41,2,10153,0)="""RTN"",""HLOSRVR"",204,0)"
^XMB(3.9,41,2,10154,0)=" S HLMSTATE(""STATUS"",""PORT"")=$P(HDR(""SENDING FACILITY"",2),"":"",2)"
^XMB(3.9,41,2,10155,0)="""RTN"",""HLOSRVR"",205,0)"
^XMB(3.9,41,2,10156,0)=" ;"
^XMB(3.9,41,2,10157,0)="""RTN"",""HLOSRVR"",206,0)"
^XMB(3.9,41,2,10158,0)=" ;if this is a batch, and it references another batch, assume it is a batch of application acks.  That is the only time HLO uses that field."
^XMB(3.9,41,2,10159,0)="""RTN"",""HLOSRVR"",207,0)"
^XMB(3.9,41,2,10160,0)=" I HLMSTATE(""BATCH""),HLMSTATE(""HDR"",""REFERENCE BATCH CONTROL ID"")]"""" D"
^XMB(3.9,41,2,10161,0)="""RTN"",""HLOSRVR"",208,0)"
^XMB(3.9,41,2,10162,0)=" .N IEN"
^XMB(3.9,41,2,10163,0)="""RTN"",""HLOSRVR"",209,0)"
^XMB(3.9,41,2,10164,0)=" .S HLMSTATE(""ACK TO"")=HLMSTATE(""HDR"",""REFERENCE BATCH CONTROL ID"")"
^XMB(3.9,41,2,10165,0)="""RTN"",""HLOSRVR"",210,0)"
^XMB(3.9,41,2,10166,0)=" .S HLMSTATE(""ACK TO"",""STATUS"")=""SU"""
^XMB(3.9,41,2,10167,0)="""RTN"",""HLOSRVR"",211,0)"
^XMB(3.9,41,2,10168,0)=" .S IEN=$O(^HLB(""B"",HLMSTATE(""HDR"",""REFERENCE BATCH CONTROL ID""),0))"
^XMB(3.9,41,2,10169,0)="""RTN"",""HLOSRVR"",212,0)"
^XMB(3.9,41,2,10170,0)=" .I IEN S HLMSTATE(""ACK TO"",""IEN"")=IEN_""^"""
^XMB(3.9,41,2,10171,0)="""RTN"",""HLOSRVR"",213,0)"
^XMB(3.9,41,2,10172,0)=" E  S HLMSTATE(""ACK TO"")="""""
^XMB(3.9,41,2,10173,0)="""RTN"",""HLOSRVR"",214,0)"
^XMB(3.9,41,2,10174,0)=" Q"
^XMB(3.9,41,2,10175,0)="""RTN"",""HLOSRVR1"")"
^XMB(3.9,41,2,10176,0)="0^37^B62638202"
^XMB(3.9,41,2,10177,0)="""RTN"",""HLOSRVR1"",1,0)"
^XMB(3.9,41,2,10178,0)="HLOSRVR1 ;IRMFO-ALB/CJM - Reading messages, sending acks;03/24/2004  14:43"
^XMB(3.9,41,2,10179,0)="""RTN"",""HLOSRVR1"",2,0)"
^XMB(3.9,41,2,10180,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995"
^XMB(3.9,41,2,10181,0)="""RTN"",""HLOSRVR1"",3,0)"
^XMB(3.9,41,2,10182,0)=" ;"
^XMB(3.9,41,2,10183,0)="""RTN"",""HLOSRVR1"",4,0)"
^XMB(3.9,41,2,10184,0)="READMSG(HLCSTATE,HLMSTATE) ;"
^XMB(3.9,41,2,10185,0)="""RTN"",""HLOSRVR1"",5,0)"
^XMB(3.9,41,2,10186,0)=" ;This function uses the services provided by the transport layer to receive a message.  The header is parsed. Does these checks:"
^XMB(3.9,41,2,10187,0)="""RTN"",""HLOSRVR1"",6,0)"
^XMB(3.9,41,2,10188,0)=" ; 1) Duplicate?"
^XMB(3.9,41,2,10189,0)="""RTN"",""HLOSRVR1"",7,0)"
^XMB(3.9,41,2,10190,0)=" ; 2) Wrong Receiving Facility?"
^XMB(3.9,41,2,10191,0)="""RTN"",""HLOSRVR1"",8,0)"
^XMB(3.9,41,2,10192,0)=" ; 3) Can the Receiving App accept this message, based on type of message & event?"
^XMB(3.9,41,2,10193,0)="""RTN"",""HLOSRVR1"",9,0)"
^XMB(3.9,41,2,10194,0)=" ; 4) Processing ID must match the receiving system"
^XMB(3.9,41,2,10195,0)="""RTN"",""HLOSRVR1"",10,0)"
^XMB(3.9,41,2,10196,0)=" ; 5) Must have a control ID"
^XMB(3.9,41,2,10197,0)="""RTN"",""HLOSRVR1"",11,0)"
^XMB(3.9,41,2,10198,0)=" ; 6) Header must be BHS or MSH"
^XMB(3.9,41,2,10199,0)="""RTN"",""HLOSRVR1"",12,0)"
^XMB(3.9,41,2,10200,0)=" ;"
^XMB(3.9,41,2,10201,0)="""RTN"",""HLOSRVR1"",13,0)"
^XMB(3.9,41,2,10202,0)=" ;Output:"
^XMB(3.9,41,2,10203,0)="""RTN"",""HLOSRVR1"",14,0)"
^XMB(3.9,41,2,10204,0)=" ;  Function returns 1 if the message was read fully, 0 otherwise"
^XMB(3.9,41,2,10205,0)="""RTN"",""HLOSRVR1"",15,0)"
^XMB(3.9,41,2,10206,0)=" ;  HLMSTATE (pass by reference) the message.  It will include the fields for the return ack in HLMSTATE(""MSA"")"
^XMB(3.9,41,2,10207,0)="""RTN"",""HLOSRVR1"",16,0)"
^XMB(3.9,41,2,10208,0)=" ;"
^XMB(3.9,41,2,10209,0)="""RTN"",""HLOSRVR1"",17,0)"
^XMB(3.9,41,2,10210,0)=" N ACK,SEG,STORE,MSA,I"
^XMB(3.9,41,2,10211,0)="""RTN"",""HLOSRVR1"",18,0)"
^XMB(3.9,41,2,10212,0)=" F I=1:1:3 S MSA(I)="""""
^XMB(3.9,41,2,10213,0)="""RTN"",""HLOSRVR1"",19,0)"
^XMB(3.9,41,2,10214,0)=" ;"
^XMB(3.9,41,2,10215,0)="""RTN"",""HLOSRVR1"",20,0)"
^XMB(3.9,41,2,10216,0)=" S STORE=1"
^XMB(3.9,41,2,10217,0)="""RTN"",""HLOSRVR1"",21,0)"
^XMB(3.9,41,2,10218,0)=" Q:'$$READHDR^HLOT(.HLCSTATE,.SEG) 0"
^XMB(3.9,41,2,10219,0)="""RTN"",""HLOSRVR1"",22,0)"
^XMB(3.9,41,2,10220,0)=" D SPLITHDR(.SEG)"
^XMB(3.9,41,2,10221,0)="""RTN"",""HLOSRVR1"",23,0)"
^XMB(3.9,41,2,10222,0)=" S:'$$PARSEHDR^HLOPRS(.SEG) STORE=0"
^XMB(3.9,41,2,10223,0)="""RTN"",""HLOSRVR1"",24,0)"
^XMB(3.9,41,2,10224,0)=" I STORE S MSA(2)=$S(SEG(""SEGMENT TYPE"")=""BHS"":SEG(""BATCH CONTROL ID""),1:SEG(""MESSAGE CONTROL ID"")) I MSA(2)="""" S STORE=0 I SEG(""ACCEPT ACK TYPE"")=""AL"" S MSA(1)=""CE"",MSA(""3"")=""CONTROL ID MISSING"""
^XMB(3.9,41,2,10225,0)="""RTN"",""HLOSRVR1"",25,0)"
^XMB(3.9,41,2,10226,0)=" I STORE,$$DUP(.SEG,.MSA) S STORE=0 ;$$DUP returns the prior MSA segment if this message is a duplicate"
^XMB(3.9,41,2,10227,0)="""RTN"",""HLOSRVR1"",26,0)"
^XMB(3.9,41,2,10228,0)=" D NEWSTATE^HLOSRVR(.HLCSTATE,.HLMSTATE,.SEG,.MSA)"
^XMB(3.9,41,2,10229,0)="""RTN"",""HLOSRVR1"",27,0)"
^XMB(3.9,41,2,10230,0)=" ;"
^XMB(3.9,41,2,10231,0)="""RTN"",""HLOSRVR1"",28,0)"
^XMB(3.9,41,2,10232,0)=" ;if the message is not to be stored, just read it and discard the segments"
^XMB(3.9,41,2,10233,0)="""RTN"",""HLOSRVR1"",29,0)"
^XMB(3.9,41,2,10234,0)=" I 'STORE D"
^XMB(3.9,41,2,10235,0)="""RTN"",""HLOSRVR1"",30,0)"
^XMB(3.9,41,2,10236,0)=" .F  Q:'$$READSEG^HLOT(.HLCSTATE,.SEG)"
^XMB(3.9,41,2,10237,0)="""RTN"",""HLOSRVR1"",31,0)"
^XMB(3.9,41,2,10238,0)=" ;"
^XMB(3.9,41,2,10239,0)="""RTN"",""HLOSRVR1"",32,0)"
^XMB(3.9,41,2,10240,0)=" ;else the message is to be stored"
^XMB(3.9,41,2,10241,0)="""RTN"",""HLOSRVR1"",33,0)"
^XMB(3.9,41,2,10242,0)=" E  D"
^XMB(3.9,41,2,10243,0)="""RTN"",""HLOSRVR1"",34,0)"
^XMB(3.9,41,2,10244,0)=" .N FS"
^XMB(3.9,41,2,10245,0)="""RTN"",""HLOSRVR1"",35,0)"
^XMB(3.9,41,2,10246,0)=" .S FS=HLMSTATE(""HDR"",""FIELD SEPARATOR"")"
^XMB(3.9,41,2,10247,0)="""RTN"",""HLOSRVR1"",36,0)"
^XMB(3.9,41,2,10248,0)=" .F  Q:'$$READSEG^HLOT(.HLCSTATE,.SEG)  D"
^XMB(3.9,41,2,10249,0)="""RTN"",""HLOSRVR1"",37,0)"
^XMB(3.9,41,2,10250,0)=" ..N MSA,SEGTYPE,OLDMSGID,CODE,IEN,NEWMSGID"
^XMB(3.9,41,2,10251,0)="""RTN"",""HLOSRVR1"",38,0)"
^XMB(3.9,41,2,10252,0)=" ..S SEGTYPE=$E($E(SEG(1),1,3)_$E($G(SEG(2)),1,2),1,3)"
^XMB(3.9,41,2,10253,0)="""RTN"",""HLOSRVR1"",39,0)"
^XMB(3.9,41,2,10254,0)=" ..I SEGTYPE=""MSA"" D"
^XMB(3.9,41,2,10255,0)="""RTN"",""HLOSRVR1"",40,0)"
^XMB(3.9,41,2,10256,0)=" ...S MSA=SEG(1)_$G(SEG(2))_$G(SEG(3))"
^XMB(3.9,41,2,10257,0)="""RTN"",""HLOSRVR1"",41,0)"
^XMB(3.9,41,2,10258,0)=" ...S OLDMSGID=$P(MSA,FS,3),CODE=$P(MSA,FS,2)"
^XMB(3.9,41,2,10259,0)="""RTN"",""HLOSRVR1"",42,0)"
^XMB(3.9,41,2,10260,0)=" ...I $E(CODE,1)'=""A"" S SEGTYPE="""" Q"
^XMB(3.9,41,2,10261,0)="""RTN"",""HLOSRVR1"",43,0)"
^XMB(3.9,41,2,10262,0)=" ...S:$P(OLDMSGID,""-"")]"""" IEN=$O(^HLB(""B"",$P(OLDMSGID,""-""),0))"
^XMB(3.9,41,2,10263,0)="""RTN"",""HLOSRVR1"",44,0)"
^XMB(3.9,41,2,10264,0)=" ...S:$G(IEN) IEN=IEN_""^""_$P(OLDMSGID,""-"",2)"
^XMB(3.9,41,2,10265,0)="""RTN"",""HLOSRVR1"",45,0)"
^XMB(3.9,41,2,10266,0)=" ..I 'HLMSTATE(""BATCH"") D"
^XMB(3.9,41,2,10267,0)="""RTN"",""HLOSRVR1"",46,0)"
^XMB(3.9,41,2,10268,0)=" ...D:SEGTYPE=""MSA"""
^XMB(3.9,41,2,10269,0)="""RTN"",""HLOSRVR1"",47,0)"
^XMB(3.9,41,2,10270,0)=" ....S HLMSTATE(""ACK TO"")=OLDMSGID"
^XMB(3.9,41,2,10271,0)="""RTN"",""HLOSRVR1"",48,0)"
^XMB(3.9,41,2,10272,0)=" ....S HLMSTATE(""ACK TO"",""ACK BY"")=HLMSTATE(""HDR"",""MESSAGE CONTROL ID"")"
^XMB(3.9,41,2,10273,0)="""RTN"",""HLOSRVR1"",49,0)"
^XMB(3.9,41,2,10274,0)=" ....S HLMSTATE(""ACK TO"",""STATUS"")=$S(CODE=""AA"":""SU"",1:""AE"")"
^XMB(3.9,41,2,10275,0)="""RTN"",""HLOSRVR1"",50,0)"
^XMB(3.9,41,2,10276,0)=" ....S:$D(IEN) HLMSTATE(""ACK TO"",""IEN"")=IEN"
^XMB(3.9,41,2,10277,0)="""RTN"",""HLOSRVR1"",51,0)"
^XMB(3.9,41,2,10278,0)=" ...D ADDSEG^HLOMSG(.HLMSTATE,.SEG)"
^XMB(3.9,41,2,10279,0)="""RTN"",""HLOSRVR1"",52,0)"
^XMB(3.9,41,2,10280,0)=" ..E  D  ;batch"
^XMB(3.9,41,2,10281,0)="""RTN"",""HLOSRVR1"",53,0)"
^XMB(3.9,41,2,10282,0)=" ...I SEGTYPE=""MSH"" D"
^XMB(3.9,41,2,10283,0)="""RTN"",""HLOSRVR1"",54,0)"
^XMB(3.9,41,2,10284,0)=" ....D SPLITHDR(.SEG)"
^XMB(3.9,41,2,10285,0)="""RTN"",""HLOSRVR1"",55,0)"
^XMB(3.9,41,2,10286,0)=" ....S NEWMSGID=$P(SEG(2),FS,5)"
^XMB(3.9,41,2,10287,0)="""RTN"",""HLOSRVR1"",56,0)"
^XMB(3.9,41,2,10288,0)=" ....D ADDMSG2^HLOMSG(.HLMSTATE,.SEG)"
^XMB(3.9,41,2,10289,0)="""RTN"",""HLOSRVR1"",57,0)"
^XMB(3.9,41,2,10290,0)=" ...E  D  ;not MSH"
^XMB(3.9,41,2,10291,0)="""RTN"",""HLOSRVR1"",58,0)"
^XMB(3.9,41,2,10292,0)=" ....D:SEGTYPE=""MSA"""
^XMB(3.9,41,2,10293,0)="""RTN"",""HLOSRVR1"",59,0)"
^XMB(3.9,41,2,10294,0)=" .....N SUBIEN S SUBIEN=HLMSTATE(""BATCH"",""CURRENT MESSAGE"")"
^XMB(3.9,41,2,10295,0)="""RTN"",""HLOSRVR1"",60,0)"
^XMB(3.9,41,2,10296,0)=" .....S HLMSTATE(""BATCH"",""ACK TO"",SUBIEN)=OLDMSGID"
^XMB(3.9,41,2,10297,0)="""RTN"",""HLOSRVR1"",61,0)"
^XMB(3.9,41,2,10298,0)=" .....S HLMSTATE(""BATCH"",""ACK TO"",SUBIEN,""ACK BY"")=NEWMSGID"
^XMB(3.9,41,2,10299,0)="""RTN"",""HLOSRVR1"",62,0)"
^XMB(3.9,41,2,10300,0)=" .....S HLMSTATE(""BATCH"",""ACK TO"",SUBIEN,""STATUS"")=$S(CODE=""AA"":""SU"",1:""AE"")"
^XMB(3.9,41,2,10301,0)="""RTN"",""HLOSRVR1"",63,0)"
^XMB(3.9,41,2,10302,0)=" .....S:$D(IEN) HLMSTATE(""BATCH"",""ACK TO"",SUBIEN,""IEN"")=IEN"
^XMB(3.9,41,2,10303,0)="""RTN"",""HLOSRVR1"",64,0)"
^XMB(3.9,41,2,10304,0)=" ....D ADDSEG^HLOMSG(.HLMSTATE,.SEG)"
^XMB(3.9,41,2,10305,0)="""RTN"",""HLOSRVR1"",65,0)"
^XMB(3.9,41,2,10306,0)=" .I HLMSTATE(""UNSTORED LINES""),HLCSTATE(""MESSAGE ENDED""),$$SAVEMSG^HLOF778(.HLMSTATE)"
^XMB(3.9,41,2,10307,0)="""RTN"",""HLOSRVR1"",66,0)"
^XMB(3.9,41,2,10308,0)=" ;"
^XMB(3.9,41,2,10309,0)="""RTN"",""HLOSRVR1"",67,0)"
^XMB(3.9,41,2,10310,0)=" I STORE,'HLCSTATE(""MESSAGE ENDED"") D"
^XMB(3.9,41,2,10311,0)="""RTN"",""HLOSRVR1"",68,0)"
^XMB(3.9,41,2,10312,0)=" .;reading failed before the end, there is no need to keep anything"
^XMB(3.9,41,2,10313,0)="""RTN"",""HLOSRVR1"",69,0)"
^XMB(3.9,41,2,10314,0)=" .D:HLMSTATE(""IEN"") DEL778(HLMSTATE(""IEN"")) D:HLMSTATE(""BODY"") DEL777(HLMSTATE(""BODY""))"
^XMB(3.9,41,2,10315,0)="""RTN"",""HLOSRVR1"",70,0)"
^XMB(3.9,41,2,10316,0)=" .S HLMSTATE(""IEN"")="""",HLMSTATE(""BODY"")="""""
^XMB(3.9,41,2,10317,0)="""RTN"",""HLOSRVR1"",71,0)"
^XMB(3.9,41,2,10318,0)=" E  D:STORE"
^XMB(3.9,41,2,10319,0)="""RTN"",""HLOSRVR1"",72,0)"
^XMB(3.9,41,2,10320,0)=" .D CHECKMSG(.HLMSTATE)"
^XMB(3.9,41,2,10321,0)="""RTN"",""HLOSRVR1"",73,0)"
^XMB(3.9,41,2,10322,0)=" .D ADDAC(.HLMSTATE) ;so that future duplicates can be detected"
^XMB(3.9,41,2,10323,0)="""RTN"",""HLOSRVR1"",74,0)"
^XMB(3.9,41,2,10324,0)=" ;"
^XMB(3.9,41,2,10325,0)="""RTN"",""HLOSRVR1"",75,0)"
^XMB(3.9,41,2,10326,0)=" I 'HLCSTATE(""MESSAGE ENDED"") D"
^XMB(3.9,41,2,10327,0)="""RTN"",""HLOSRVR1"",76,0)"
^XMB(3.9,41,2,10328,0)=" .S HLCSTATE(""ATTEMPT"")=HLCSTATE(""ATTEMPT"")+1"
^XMB(3.9,41,2,10329,0)="""RTN"",""HLOSRVR1"",77,0)"
^XMB(3.9,41,2,10330,0)=" .;read keeps failing, give up"
^XMB(3.9,41,2,10331,0)="""RTN"",""HLOSRVR1"",78,0)"
^XMB(3.9,41,2,10332,0)=" .I HLCSTATE(""ATTEMPT"")>4 D CLOSE^HLOT(.HLCSTATE) QUIT"
^XMB(3.9,41,2,10333,0)="""RTN"",""HLOSRVR1"",79,0)"
^XMB(3.9,41,2,10334,0)=" E  S HLCSTATE(""ATTEMPT"")=1"
^XMB(3.9,41,2,10335,0)="""RTN"",""HLOSRVR1"",80,0)"
^XMB(3.9,41,2,10336,0)=" Q HLCSTATE(""MESSAGE ENDED"")"
^XMB(3.9,41,2,10337,0)="""RTN"",""HLOSRVR1"",81,0)"
^XMB(3.9,41,2,10338,0)=" ;"
^XMB(3.9,41,2,10339,0)="""RTN"",""HLOSRVR1"",82,0)"
^XMB(3.9,41,2,10340,0)="ADDAC(HLMSTATE) ;adds the AC xref for the message that was just received"
^XMB(3.9,41,2,10341,0)="""RTN"",""HLOSRVR1"",83,0)"
^XMB(3.9,41,2,10342,0)=" ;The AC xref allows duplicates to be detected."
^XMB(3.9,41,2,10343,0)="""RTN"",""HLOSRVR1"",84,0)"
^XMB(3.9,41,2,10344,0)=" ;"
^XMB(3.9,41,2,10345,0)="""RTN"",""HLOSRVR1"",85,0)"
^XMB(3.9,41,2,10346,0)=" N FROM"
^XMB(3.9,41,2,10347,0)="""RTN"",""HLOSRVR1"",86,0)"
^XMB(3.9,41,2,10348,0)=" S FROM=$S(HLMSTATE(""HDR"",""SENDING FACILITY"",2)]"""":HLMSTATE(""HDR"",""SENDING FACILITY"",2),1:HLMSTATE(""HDR"",""SENDING FACILITY"",1))"
^XMB(3.9,41,2,10349,0)="""RTN"",""HLOSRVR1"",87,0)"
^XMB(3.9,41,2,10350,0)=" S ^HLB(""AC"",FROM_HLMSTATE(""HDR"",""SENDING APPLICATION"")_$S(HLMSTATE(""BATCH""):HLMSTATE(""HDR"",""BATCH CONTROL ID""),1:HLMSTATE(""HDR"",""MESSAGE CONTROL ID"")),HLMSTATE(""IEN""))="""""
^XMB(3.9,41,2,10351,0)="""RTN"",""HLOSRVR1"",88,0)"
^XMB(3.9,41,2,10352,0)=" Q"
^XMB(3.9,41,2,10353,0)="""RTN"",""HLOSRVR1"",89,0)"
^XMB(3.9,41,2,10354,0)=" ;"
^XMB(3.9,41,2,10355,0)="""RTN"",""HLOSRVR1"",90,0)"
^XMB(3.9,41,2,10356,0)="DUP(HDR,MSA) ;"
^XMB(3.9,41,2,10357,0)="""RTN"",""HLOSRVR1"",91,0)"
^XMB(3.9,41,2,10358,0)=" ;Function returns 1 if the message is a duplicate, 0 otherwise"
^XMB(3.9,41,2,10359,0)="""RTN"",""HLOSRVR1"",92,0)"
^XMB(3.9,41,2,10360,0)=" ;Input:"
^XMB(3.9,41,2,10361,0)="""RTN"",""HLOSRVR1"",93,0)"
^XMB(3.9,41,2,10362,0)=" ; HDR (pass by reference) the parsed header segment"
^XMB(3.9,41,2,10363,0)="""RTN"",""HLOSRVR1"",94,0)"
^XMB(3.9,41,2,10364,0)=" ;Output:"
^XMB(3.9,41,2,10365,0)="""RTN"",""HLOSRVR1"",95,0)"
^XMB(3.9,41,2,10366,0)=" ;  Function returns 1 if the message is a duplicate, 0 otherwise"
^XMB(3.9,41,2,10367,0)="""RTN"",""HLOSRVR1"",96,0)"
^XMB(3.9,41,2,10368,0)=" ;  MSA (pass by reference) IF the message is a duplicate, returns the prior MSA segment"
^XMB(3.9,41,2,10369,0)="""RTN"",""HLOSRVR1"",97,0)"
^XMB(3.9,41,2,10370,0)=" N MSGID,IEN,FROM,DUP"
^XMB(3.9,41,2,10371,0)="""RTN"",""HLOSRVR1"",98,0)"
^XMB(3.9,41,2,10372,0)=" S (IEN,DUP)=0"
^XMB(3.9,41,2,10373,0)="""RTN"",""HLOSRVR1"",99,0)"
^XMB(3.9,41,2,10374,0)=" S MSGID=$S(HDR(""SEGMENT TYPE"")=""BHS"":HDR(""BATCH CONTROL ID""),HDR(""SEGMENT TYPE"")=""MSH"":HDR(""MESSAGE CONTROL ID""),1:"""")"
^XMB(3.9,41,2,10375,0)="""RTN"",""HLOSRVR1"",100,0)"
^XMB(3.9,41,2,10376,0)=" Q:MSGID="""" 0  ;no way to determine!  Bad header will be rejected"
^XMB(3.9,41,2,10377,0)="""RTN"",""HLOSRVR1"",101,0)"
^XMB(3.9,41,2,10378,0)=" S FROM=$S(HDR(""SENDING FACILITY"",2)]"""":HDR(""SENDING FACILITY"",2),1:HDR(""SENDING FACILITY"",1))"
^XMB(3.9,41,2,10379,0)="""RTN"",""HLOSRVR1"",102,0)"
^XMB(3.9,41,2,10380,0)=" F  S IEN=$O(^HLB(""AC"",FROM_HDR(""SENDING APPLICATION"")_MSGID,IEN)) Q:'IEN  D  Q:DUP"
^XMB(3.9,41,2,10381,0)="""RTN"",""HLOSRVR1"",103,0)"
^XMB(3.9,41,2,10382,0)=" .I HDR(""ACCEPT ACK TYPE"")=""NE"" S DUP=1 Q"
^XMB(3.9,41,2,10383,0)="""RTN"",""HLOSRVR1"",104,0)"
^XMB(3.9,41,2,10384,0)=" .N NODE,I"
^XMB(3.9,41,2,10385,0)="""RTN"",""HLOSRVR1"",105,0)"
^XMB(3.9,41,2,10386,0)=" .S NODE=$P($G(^HLB(IEN,4)),""^"",3,10)"
^XMB(3.9,41,2,10387,0)="""RTN"",""HLOSRVR1"",106,0)"
^XMB(3.9,41,2,10388,0)=" .S MSA(1)=$P(NODE,""|"",2)"
^XMB(3.9,41,2,10389,0)="""RTN"",""HLOSRVR1"",107,0)"
^XMB(3.9,41,2,10390,0)=" .Q:$E(MSA(1))'=""C"""
^XMB(3.9,41,2,10391,0)="""RTN"",""HLOSRVR1"",108,0)"
^XMB(3.9,41,2,10392,0)=" .S MSA(2)=$P(NODE,""|"",3)"
^XMB(3.9,41,2,10393,0)="""RTN"",""HLOSRVR1"",109,0)"
^XMB(3.9,41,2,10394,0)=" .S MSA(3)=$P(NODE,""|"",4,10)"
^XMB(3.9,41,2,10395,0)="""RTN"",""HLOSRVR1"",110,0)"
^XMB(3.9,41,2,10396,0)=" .S DUP=1"
^XMB(3.9,41,2,10397,0)="""RTN"",""HLOSRVR1"",111,0)"
^XMB(3.9,41,2,10398,0)=" Q DUP"
^XMB(3.9,41,2,10399,0)="""RTN"",""HLOSRVR1"",112,0)"
^XMB(3.9,41,2,10400,0)=" ;"
^XMB(3.9,41,2,10401,0)="""RTN"",""HLOSRVR1"",113,0)"
^XMB(3.9,41,2,10402,0)="CHECKMSG(HLMSTATE) ;"
^XMB(3.9,41,2,10403,0)="""RTN"",""HLOSRVR1"",114,0)"
^XMB(3.9,41,2,10404,0)=" ;Checks the header & MSA segment, sets HLMSTATE(""STATUS"",""ACTION"") if the message needs to be passed, determines if completion status should be set"
^XMB(3.9,41,2,10405,0)="""RTN"",""HLOSRVR1"",115,0)"
^XMB(3.9,41,2,10406,0)=" ;Input:"
^XMB(3.9,41,2,10407,0)="""RTN"",""HLOSRVR1"",116,0)"
^XMB(3.9,41,2,10408,0)=" ;  HLMSTATE(""HDR"") - the parsed header segment"
^XMB(3.9,41,2,10409,0)="""RTN"",""HLOSRVR1"",117,0)"
^XMB(3.9,41,2,10410,0)=" ;Output:"
^XMB(3.9,41,2,10411,0)="""RTN"",""HLOSRVR1"",118,0)"
^XMB(3.9,41,2,10412,0)=" ;  HLMSTATE(""STATUS"")=""SE"" if an error is detected"
^XMB(3.9,41,2,10413,0)="""RTN"",""HLOSRVR1"",119,0)"
^XMB(3.9,41,2,10414,0)=" ;  HLMSTATE(""STATUS"",""QUEUE"") queue to put the message on"
^XMB(3.9,41,2,10415,0)="""RTN"",""HLOSRVR1"",120,0)"
^XMB(3.9,41,2,10416,0)=" ;  HLMSTATE(""STATUS"",""ACTION"")  <tag^rtn> that is the processing routine for the receiving application"
^XMB(3.9,41,2,10417,0)="""RTN"",""HLOSRVR1"",121,0)"
^XMB(3.9,41,2,10418,0)=" ;  HLMSTATE(""MSA"") - MSA(1)=accept code to be returned, MSA(3)= error txt"
^XMB(3.9,41,2,10419,0)="""RTN"",""HLOSRVR1"",122,0)"
^XMB(3.9,41,2,10420,0)=" ;"
^XMB(3.9,41,2,10421,0)="""RTN"",""HLOSRVR1"",123,0)"
^XMB(3.9,41,2,10422,0)=" N WANTACK,PASS,ACTION,QUEUE"
^XMB(3.9,41,2,10423,0)="""RTN"",""HLOSRVR1"",124,0)"
^XMB(3.9,41,2,10424,0)=" M HDR=HLMSTATE(""HDR"")"
^XMB(3.9,41,2,10425,0)="""RTN"",""HLOSRVR1"",125,0)"
^XMB(3.9,41,2,10426,0)=" S WANTACK=$S(HDR(""ACCEPT ACK TYPE"")=""AL"":1,1:0)"
^XMB(3.9,41,2,10427,0)="""RTN"",""HLOSRVR1"",126,0)"
^XMB(3.9,41,2,10428,0)=" S HLMSTATE(""MSA"",1)="""",HLMSTATE(""STATUS"")="""",HLMSTATE(""STATUS"",""QUEUE"")="""",HLMSTATE(""STATUS"",""ACTION"")="""""
^XMB(3.9,41,2,10429,0)="""RTN"",""HLOSRVR1"",127,0)"
^XMB(3.9,41,2,10430,0)=" ;"
^XMB(3.9,41,2,10431,0)="""RTN"",""HLOSRVR1"",128,0)"
^XMB(3.9,41,2,10432,0)=" I '$$ACTION^HLOAPP(.HDR,.ACTION,.QUEUE),$G(HLMSTATE(""ACK TO""))="""" S:WANTACK HLMSTATE(""MSA"",1)=""CR"" S HLMSTATE(""MSA"",3)=""RECEIVING APPLICATION NOT DEFINED"",HLMSTATE(""STATUS"")=""SE"" Q"
^XMB(3.9,41,2,10433,0)="""RTN"",""HLOSRVR1"",129,0)"
^XMB(3.9,41,2,10434,0)=" S HLMSTATE(""STATUS"",""ACTION"")=$G(ACTION),HLMSTATE(""STATUS"",""QUEUE"")=$G(QUEUE)"
^XMB(3.9,41,2,10435,0)="""RTN"",""HLOSRVR1"",130,0)"
^XMB(3.9,41,2,10436,0)=" ;"
^XMB(3.9,41,2,10437,0)="""RTN"",""HLOSRVR1"",131,0)"
^XMB(3.9,41,2,10438,0)=" I (HDR(""ACCEPT ACK TYPE"")=""""),(HDR(""APP ACK TYPE"")="""") S HLMSTATE(""MSA"",1)=""AE"",HLMSTATE(""MSA"",3)=""THIS INTERFACE DOES NOT IMPLEMENT ORIGINAL MODE APPLICATION ACKOWLEDGMENTS"",HLMSTATE(""STATUS"")=""SE"" Q"
^XMB(3.9,41,2,10439,0)="""RTN"",""HLOSRVR1"",132,0)"
^XMB(3.9,41,2,10440,0)=" ;"
^XMB(3.9,41,2,10441,0)="""RTN"",""HLOSRVR1"",133,0)"
^XMB(3.9,41,2,10442,0)=" ;If this is an application ack, does the original message exist?"
^XMB(3.9,41,2,10443,0)="""RTN"",""HLOSRVR1"",134,0)"
^XMB(3.9,41,2,10444,0)=" I $G(HLMSTATE(""ACK TO""))]"""" D  Q:HLMSTATE(""STATUS"")=""SE"""
^XMB(3.9,41,2,10445,0)="""RTN"",""HLOSRVR1"",135,0)"
^XMB(3.9,41,2,10446,0)=" .N NODE"
^XMB(3.9,41,2,10447,0)="""RTN"",""HLOSRVR1"",136,0)"
^XMB(3.9,41,2,10448,0)=" .S:+$G(HLMSTATE(""ACK TO"",""IEN"")) NODE=$G(^HLB(+HLMSTATE(""ACK TO"",""IEN""),0))"
^XMB(3.9,41,2,10449,0)="""RTN"",""HLOSRVR1"",137,0)"
^XMB(3.9,41,2,10450,0)=" .I $G(NODE)="""" S HLMSTATE(""STATUS"")=""SE"" S:WANTACK HLMSTATE(""MSA"",1)=""CE"" S HLMSTATE(""MSA"",3)=""INITIAL MESSAGE TO APPLICATION ACKNOWLEDGMENT NOT FOUND"" Q"
^XMB(3.9,41,2,10451,0)="""RTN"",""HLOSRVR1"",138,0)"
^XMB(3.9,41,2,10452,0)=" .I ($P(NODE,""^"",11)]"""") S HLMSTATE(""STATUS"",""ACTION"")=$P(NODE,""^"",10,11),HLMSTATE(""STATUS"",""QUEUE"")=$S($P(NODE,""^"",6)]"""":$P(NODE,""^"",6),1:""DEFAULT"")"
^XMB(3.9,41,2,10453,0)="""RTN"",""HLOSRVR1"",139,0)"
^XMB(3.9,41,2,10454,0)=" ;"
^XMB(3.9,41,2,10455,0)="""RTN"",""HLOSRVR1"",140,0)"
^XMB(3.9,41,2,10456,0)=" I HDR(""PROCESSING ID"")'=HLCSTATE(""SYSTEM"",""PROCESSING ID"") S:WANTACK HLMSTATE(""MSA"",1)=""CR"" S HLMSTATE(""STATUS"")=""SE"",HLMSTATE(""MSA"",3)=""SYSTEM PROCESSING ID=""_HLCSTATE(""SYSTEM"",""PROCESSING ID"") Q"
^XMB(3.9,41,2,10457,0)="""RTN"",""HLOSRVR1"",141,0)"
^XMB(3.9,41,2,10458,0)=" ;"
^XMB(3.9,41,2,10459,0)="""RTN"",""HLOSRVR1"",142,0)"
^XMB(3.9,41,2,10460,0)=" ;"
^XMB(3.9,41,2,10461,0)="""RTN"",""HLOSRVR1"",143,0)"
^XMB(3.9,41,2,10462,0)=" ;wrong receiving facility?  This is hard to check if the sender is not VistA, because the HL7 standard permits different coding systems to be used. This check is only for DNS or station number."
^XMB(3.9,41,2,10463,0)="""RTN"",""HLOSRVR1"",144,0)"
^XMB(3.9,41,2,10464,0)=" S PASS=0"
^XMB(3.9,41,2,10465,0)="""RTN"",""HLOSRVR1"",145,0)"
^XMB(3.9,41,2,10466,0)=" D"
^XMB(3.9,41,2,10467,0)="""RTN"",""HLOSRVR1"",146,0)"
^XMB(3.9,41,2,10468,0)=" .;if its an ack to an existing message, don't check the receiving facility"
^XMB(3.9,41,2,10469,0)="""RTN"",""HLOSRVR1"",147,0)"
^XMB(3.9,41,2,10470,0)=" .I $G(HLMSTATE(""ACK TO""))]"""" S PASS=1 Q"
^XMB(3.9,41,2,10471,0)="""RTN"",""HLOSRVR1"",148,0)"
^XMB(3.9,41,2,10472,0)=" .I HDR(""RECEIVING FACILITY"",1)=HLCSTATE(""SYSTEM"",""STATION"") S PASS=1 Q"
^XMB(3.9,41,2,10473,0)="""RTN"",""HLOSRVR1"",149,0)"
^XMB(3.9,41,2,10474,0)=" .I HDR(""RECEIVING FACILITY"",3)'=""DNS"" S PASS=1 Q"
^XMB(3.9,41,2,10475,0)="""RTN"",""HLOSRVR1"",150,0)"
^XMB(3.9,41,2,10476,0)=" .I HDR(""RECEIVING FACILITY"",2)="""" S PASS=1 Q"
^XMB(3.9,41,2,10477,0)="""RTN"",""HLOSRVR1"",151,0)"
^XMB(3.9,41,2,10478,0)=" .I $P(HDR(""RECEIVING FACILITY"",2),"":"")[HLCSTATE(""SYSTEM"",""DOMAIN"") S PASS=1 Q"
^XMB(3.9,41,2,10479,0)="""RTN"",""HLOSRVR1"",152,0)"
^XMB(3.9,41,2,10480,0)=" .I HLCSTATE(""SYSTEM"",""DOMAIN"")[$P(HDR(""RECEIVING FACILITY"",2),"":"") S PASS=1 Q"
^XMB(3.9,41,2,10481,0)="""RTN"",""HLOSRVR1"",153,0)"
^XMB(3.9,41,2,10482,0)=" I 'PASS S HLMSTATE(""STATUS"")=""SE"",HLMSTATE(""MSA"",3)=""RECEIVING FACILITY IS ""_HLCSTATE(""SYSTEM"",""DOMAIN"") S:WANTACK HLMSTATE(""MSA"",1)=""CE"""
^XMB(3.9,41,2,10483,0)="""RTN"",""HLOSRVR1"",154,0)"
^XMB(3.9,41,2,10484,0)=" I PASS,WANTACK S HLMSTATE(""MSA"",1)=""CA"""
^XMB(3.9,41,2,10485,0)="""RTN"",""HLOSRVR1"",155,0)"
^XMB(3.9,41,2,10486,0)=" Q"
^XMB(3.9,41,2,10487,0)="""RTN"",""HLOSRVR1"",156,0)"
^XMB(3.9,41,2,10488,0)=" ;"
^XMB(3.9,41,2,10489,0)="""RTN"",""HLOSRVR1"",157,0)"
^XMB(3.9,41,2,10490,0)="DEL777(IEN777) ;delete a record from file 777 where the read did not complete"
^XMB(3.9,41,2,10491,0)="""RTN"",""HLOSRVR1"",158,0)"
^XMB(3.9,41,2,10492,0)=" ;"
^XMB(3.9,41,2,10493,0)="""RTN"",""HLOSRVR1"",159,0)"
^XMB(3.9,41,2,10494,0)=" K ^HLA(IEN777,0)"
^XMB(3.9,41,2,10495,0)="""RTN"",""HLOSRVR1"",160,0)"
^XMB(3.9,41,2,10496,0)=" Q"
^XMB(3.9,41,2,10497,0)="""RTN"",""HLOSRVR1"",161,0)"
^XMB(3.9,41,2,10498,0)="DEL778(IEN778) ;delete a record from file 778 where the read did not complete"
^XMB(3.9,41,2,10499,0)="""RTN"",""HLOSRVR1"",162,0)"
^XMB(3.9,41,2,10500,0)=" ;"
^XMB(3.9,41,2,10501,0)="""RTN"",""HLOSRVR1"",163,0)"
^XMB(3.9,41,2,10502,0)=" K ^HLB(IEN778,0)"
^XMB(3.9,41,2,10503,0)="""RTN"",""HLOSRVR1"",164,0)"
^XMB(3.9,41,2,10504,0)=" Q"
^XMB(3.9,41,2,10505,0)="""RTN"",""HLOSRVR1"",165,0)"
^XMB(3.9,41,2,10506,0)=" ;"
^XMB(3.9,41,2,10507,0)="""RTN"",""HLOSRVR1"",166,0)"
^XMB(3.9,41,2,10508,0)="SPLITHDR(HDR) ;"
^XMB(3.9,41,2,10509,0)="""RTN"",""HLOSRVR1"",167,0)"
^XMB(3.9,41,2,10510,0)=" ;splits hdr segment into two lines, first being just components 1-6"
^XMB(3.9,41,2,10511,0)="""RTN"",""HLOSRVR1"",168,0)"
^XMB(3.9,41,2,10512,0)=" ;"
^XMB(3.9,41,2,10513,0)="""RTN"",""HLOSRVR1"",169,0)"
^XMB(3.9,41,2,10514,0)=" N TEMP,FS"
^XMB(3.9,41,2,10515,0)="""RTN"",""HLOSRVR1"",170,0)"
^XMB(3.9,41,2,10516,0)=" D SQUISH(.HDR)"
^XMB(3.9,41,2,10517,0)="""RTN"",""HLOSRVR1"",171,0)"
^XMB(3.9,41,2,10518,0)=" S FS=$E(HDR(1),4)"
^XMB(3.9,41,2,10519,0)="""RTN"",""HLOSRVR1"",172,0)"
^XMB(3.9,41,2,10520,0)=" S TEMP(1)=$P(HDR(1),FS,1,6)"
^XMB(3.9,41,2,10521,0)="""RTN"",""HLOSRVR1"",173,0)"
^XMB(3.9,41,2,10522,0)=" S TEMP(2)="""""
^XMB(3.9,41,2,10523,0)="""RTN"",""HLOSRVR1"",174,0)"
^XMB(3.9,41,2,10524,0)=" I $L(TEMP(1))<$L(HDR(1)) S TEMP(2)=FS_$P(HDR(1),FS,7,20)"
^XMB(3.9,41,2,10525,0)="""RTN"",""HLOSRVR1"",175,0)"
^XMB(3.9,41,2,10526,0)=" S HDR(2)=TEMP(2)_$G(HDR(2))"
^XMB(3.9,41,2,10527,0)="""RTN"",""HLOSRVR1"",176,0)"
^XMB(3.9,41,2,10528,0)=" S HDR(1)=TEMP(1)"
^XMB(3.9,41,2,10529,0)="""RTN"",""HLOSRVR1"",177,0)"
^XMB(3.9,41,2,10530,0)=" Q"
^XMB(3.9,41,2,10531,0)="""RTN"",""HLOSRVR1"",178,0)"
^XMB(3.9,41,2,10532,0)=" ;"
^XMB(3.9,41,2,10533,0)="""RTN"",""HLOSRVR1"",179,0)"
^XMB(3.9,41,2,10534,0)="SQUISH(SEG) ;"
^XMB(3.9,41,2,10535,0)="""RTN"",""HLOSRVR1"",180,0)"
^XMB(3.9,41,2,10536,0)=" ;squish the header segment =SEG(i) into at most 2 lines"
^XMB(3.9,41,2,10537,0)="""RTN"",""HLOSRVR1"",181,0)"
^XMB(3.9,41,2,10538,0)=" ;"
^XMB(3.9,41,2,10539,0)="""RTN"",""HLOSRVR1"",182,0)"
^XMB(3.9,41,2,10540,0)=" Q:'$O(SEG(1))"
^XMB(3.9,41,2,10541,0)="""RTN"",""HLOSRVR1"",183,0)"
^XMB(3.9,41,2,10542,0)=" I '$O(SEG(2)) D  Q"
^XMB(3.9,41,2,10543,0)="""RTN"",""HLOSRVR1"",184,0)"
^XMB(3.9,41,2,10544,0)=" .N LEN"
^XMB(3.9,41,2,10545,0)="""RTN"",""HLOSRVR1"",185,0)"
^XMB(3.9,41,2,10546,0)=" .S LEN=$L(SEG(1))"
^XMB(3.9,41,2,10547,0)="""RTN"",""HLOSRVR1"",186,0)"
^XMB(3.9,41,2,10548,0)=" .Q:LEN>255"
^XMB(3.9,41,2,10549,0)="""RTN"",""HLOSRVR1"",187,0)"
^XMB(3.9,41,2,10550,0)=" .S SEG(1)=SEG(1)_$E(SEG(2),1,256-LEN)"
^XMB(3.9,41,2,10551,0)="""RTN"",""HLOSRVR1"",188,0)"
^XMB(3.9,41,2,10552,0)=" .S SEG(2)=$E(SEG(2),257-LEN,99999)"
^XMB(3.9,41,2,10553,0)="""RTN"",""HLOSRVR1"",189,0)"
^XMB(3.9,41,2,10554,0)=" ;"
^XMB(3.9,41,2,10555,0)="""RTN"",""HLOSRVR1"",190,0)"
^XMB(3.9,41,2,10556,0)=" N A,DONE,I"
^XMB(3.9,41,2,10557,0)="""RTN"",""HLOSRVR1"",191,0)"
^XMB(3.9,41,2,10558,0)=" S (I,DONE)=0"
^XMB(3.9,41,2,10559,0)="""RTN"",""HLOSRVR1"",192,0)"
^XMB(3.9,41,2,10560,0)=" S A(1)=SEG(1) K SEG(1)"
^XMB(3.9,41,2,10561,0)="""RTN"",""HLOSRVR1"",193,0)"
^XMB(3.9,41,2,10562,0)=" F  S I=$O(SEG(I)) Q:'I  D  Q:DONE"
^XMB(3.9,41,2,10563,0)="""RTN"",""HLOSRVR1"",194,0)"
^XMB(3.9,41,2,10564,0)=" .N LEN"
^XMB(3.9,41,2,10565,0)="""RTN"",""HLOSRVR1"",195,0)"
^XMB(3.9,41,2,10566,0)=" .S LEN=$L(A(1))"
^XMB(3.9,41,2,10567,0)="""RTN"",""HLOSRVR1"",196,0)"
^XMB(3.9,41,2,10568,0)=" .I (LEN+$L(SEG(I)))>256 D"
^XMB(3.9,41,2,10569,0)="""RTN"",""HLOSRVR1"",197,0)"
^XMB(3.9,41,2,10570,0)=" ..S A(1)=A(1)_$E(SEG(I),1,256-LEN)"
^XMB(3.9,41,2,10571,0)="""RTN"",""HLOSRVR1"",198,0)"
^XMB(3.9,41,2,10572,0)=" ..S A(2)=$E(SEG(I),257-LEN,99999)"
^XMB(3.9,41,2,10573,0)="""RTN"",""HLOSRVR1"",199,0)"
^XMB(3.9,41,2,10574,0)=" ..S DONE=1"
^XMB(3.9,41,2,10575,0)="""RTN"",""HLOSRVR1"",200,0)"
^XMB(3.9,41,2,10576,0)=" .E  D"
^XMB(3.9,41,2,10577,0)="""RTN"",""HLOSRVR1"",201,0)"
^XMB(3.9,41,2,10578,0)=" ..S A(1)=A(1)_SEG(I)"
^XMB(3.9,41,2,10579,0)="""RTN"",""HLOSRVR1"",202,0)"
^XMB(3.9,41,2,10580,0)=" .K SEG(I)"
^XMB(3.9,41,2,10581,0)="""RTN"",""HLOSRVR1"",203,0)"
^XMB(3.9,41,2,10582,0)=" ;"
^XMB(3.9,41,2,10583,0)="""RTN"",""HLOSRVR1"",204,0)"
^XMB(3.9,41,2,10584,0)=" ;if there are any lines left in SEG(), put them in A(2)"
^XMB(3.9,41,2,10585,0)="""RTN"",""HLOSRVR1"",205,0)"
^XMB(3.9,41,2,10586,0)=" F  S I=$O(SEG(I)) Q:'I  D  Q:DONE"
^XMB(3.9,41,2,10587,0)="""RTN"",""HLOSRVR1"",206,0)"
^XMB(3.9,41,2,10588,0)=" .N LEN"
^XMB(3.9,41,2,10589,0)="""RTN"",""HLOSRVR1"",207,0)"
^XMB(3.9,41,2,10590,0)=" .S LEN=$L($G(A(2)))"
^XMB(3.9,41,2,10591,0)="""RTN"",""HLOSRVR1"",208,0)"
^XMB(3.9,41,2,10592,0)=" .I (LEN+$L(SEG(I)))>256 D"
^XMB(3.9,41,2,10593,0)="""RTN"",""HLOSRVR1"",209,0)"
^XMB(3.9,41,2,10594,0)=" ..S A(2)=A(2)_$E(SEG(I),1,256-LEN)"
^XMB(3.9,41,2,10595,0)="""RTN"",""HLOSRVR1"",210,0)"
^XMB(3.9,41,2,10596,0)=" ..S DONE=1"
^XMB(3.9,41,2,10597,0)="""RTN"",""HLOSRVR1"",211,0)"
^XMB(3.9,41,2,10598,0)=" .E  D"
^XMB(3.9,41,2,10599,0)="""RTN"",""HLOSRVR1"",212,0)"
^XMB(3.9,41,2,10600,0)=" ..S A(2)=$G(A(2))_SEG(I)"
^XMB(3.9,41,2,10601,0)="""RTN"",""HLOSRVR1"",213,0)"
^XMB(3.9,41,2,10602,0)=" .K SEG(I)"
^XMB(3.9,41,2,10603,0)="""RTN"",""HLOSRVR1"",214,0)"
^XMB(3.9,41,2,10604,0)=" K SEG"
^XMB(3.9,41,2,10605,0)="""RTN"",""HLOSRVR1"",215,0)"
^XMB(3.9,41,2,10606,0)=" M SEG=A"
^XMB(3.9,41,2,10607,0)="""RTN"",""HLOSRVR1"",216,0)"
^XMB(3.9,41,2,10608,0)=" Q"
^XMB(3.9,41,2,10609,0)="""RTN"",""HLOSRVR1"",217,0)"
^XMB(3.9,41,2,10610,0)=" ;"
^XMB(3.9,41,2,10611,0)="""RTN"",""HLOSRVR1"",218,0)"
^XMB(3.9,41,2,10612,0)="ERROR ;error trap"
^XMB(3.9,41,2,10613,0)="""RTN"",""HLOSRVR1"",219,0)"
^XMB(3.9,41,2,10614,0)=" S $ETRAP=""D UNWIND^%ZTER"""
^XMB(3.9,41,2,10615,0)="""RTN"",""HLOSRVR1"",220,0)"
^XMB(3.9,41,2,10616,0)=" D END^HLOSRVR"
^XMB(3.9,41,2,10617,0)="""RTN"",""HLOSRVR1"",221,0)"
^XMB(3.9,41,2,10618,0)=" ;"
^XMB(3.9,41,2,10619,0)="""RTN"",""HLOSRVR1"",222,0)"
^XMB(3.9,41,2,10620,0)=" ;while debugging quit on all errors"
^XMB(3.9,41,2,10621,0)="""RTN"",""HLOSRVR1"",223,0)"
^XMB(3.9,41,2,10622,0)=" I $G(^HLTMP(""LOG ALL ERRORS"")) D ^%ZTER QUIT"
^XMB(3.9,41,2,10623,0)="""RTN"",""HLOSRVR1"",224,0)"
^XMB(3.9,41,2,10624,0)=" ;"
^XMB(3.9,41,2,10625,0)="""RTN"",""HLOSRVR1"",225,0)"
^XMB(3.9,41,2,10626,0)=" ;don't log these common errors"
^XMB(3.9,41,2,10627,0)="""RTN"",""HLOSRVR1"",226,0)"
^XMB(3.9,41,2,10628,0)=" I ($ECODE[""READ"")!($ECODE[""NOTOPEN"")!($ECODE[""DEVNOTOPN"")!($ECODE[""WRITE"")!($ECODE[""OPENERR"") D"
^XMB(3.9,41,2,10629,0)="""RTN"",""HLOSRVR1"",227,0)"
^XMB(3.9,41,2,10630,0)=" .;"
^XMB(3.9,41,2,10631,0)="""RTN"",""HLOSRVR1"",228,0)"
^XMB(3.9,41,2,10632,0)=" E  D"
^XMB(3.9,41,2,10633,0)="""RTN"",""HLOSRVR1"",229,0)"
^XMB(3.9,41,2,10634,0)=" .D ^%ZTER"
^XMB(3.9,41,2,10635,0)="""RTN"",""HLOSRVR1"",230,0)"
^XMB(3.9,41,2,10636,0)=" ;"
^XMB(3.9,41,2,10637,0)="""RTN"",""HLOSRVR1"",231,0)"
^XMB(3.9,41,2,10638,0)=" ;concurrent server connections (multi-listener) should stop execution, only a single server may continue"
^XMB(3.9,41,2,10639,0)="""RTN"",""HLOSRVR1"",232,0)"
^XMB(3.9,41,2,10640,0)=" Q:$P($G(HLCSTATE(""LINK"",""SERVER"")),""^"",2)'=""S"""
^XMB(3.9,41,2,10641,0)="""RTN"",""HLOSRVR1"",233,0)"
^XMB(3.9,41,2,10642,0)=" ;"
^XMB(3.9,41,2,10643,0)="""RTN"",""HLOSRVR1"",234,0)"
^XMB(3.9,41,2,10644,0)=" ;a lot of errors of the same time may indicate an endless loop, so keep a count"
^XMB(3.9,41,2,10645,0)="""RTN"",""HLOSRVR1"",235,0)"
^XMB(3.9,41,2,10646,0)=" S ^TMP(""HL7 ERRORS"",$J,$ECODE)=$G(^TMP(""HL7 ERRORS"",$J,$ECODE))+1"
^XMB(3.9,41,2,10647,0)="""RTN"",""HLOSRVR1"",236,0)"
^XMB(3.9,41,2,10648,0)=" ;"
^XMB(3.9,41,2,10649,0)="""RTN"",""HLOSRVR1"",237,0)"
^XMB(3.9,41,2,10650,0)=" I ($G(^TMP(""HL7 ERRORS"",$J,$ECODE))>100) K ^TMP(""HL7 ERRORS"",$J) QUIT"
^XMB(3.9,41,2,10651,0)="""RTN"",""HLOSRVR1"",238,0)"
^XMB(3.9,41,2,10652,0)=" ;"
^XMB(3.9,41,2,10653,0)="""RTN"",""HLOSRVR1"",239,0)"
^XMB(3.9,41,2,10654,0)=" ;resume execution for the single listener"
^XMB(3.9,41,2,10655,0)="""RTN"",""HLOSRVR1"",240,0)"
^XMB(3.9,41,2,10656,0)=" D UNWIND^%ZTER"
^XMB(3.9,41,2,10657,0)="""RTN"",""HLOSRVR1"",241,0)"
^XMB(3.9,41,2,10658,0)=" Q"
^XMB(3.9,41,2,10659,0)="""RTN"",""HLOT"")"
^XMB(3.9,41,2,10660,0)="0^38^B2539193"
^XMB(3.9,41,2,10661,0)="""RTN"",""HLOT"",1,0)"
^XMB(3.9,41,2,10662,0)="HLOT ;IRMFO-ALB/CJM - Services provided by the transport layer;03/24/2004  14:43"
^XMB(3.9,41,2,10663,0)="""RTN"",""HLOT"",2,0)"
^XMB(3.9,41,2,10664,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995"
^XMB(3.9,41,2,10665,0)="""RTN"",""HLOT"",3,0)"
^XMB(3.9,41,2,10666,0)=" ;"
^XMB(3.9,41,2,10667,0)="""RTN"",""HLOT"",4,0)"
^XMB(3.9,41,2,10668,0)=" ;"
^XMB(3.9,41,2,10669,0)="""RTN"",""HLOT"",5,0)"
^XMB(3.9,41,2,10670,0)="READHDR(HLCSTATE,HDR) ;"
^XMB(3.9,41,2,10671,0)="""RTN"",""HLOT"",6,0)"
^XMB(3.9,41,2,10672,0)=" N SUCCESS,SEG"
^XMB(3.9,41,2,10673,0)="""RTN"",""HLOT"",7,0)"
^XMB(3.9,41,2,10674,0)=" N MCODE"
^XMB(3.9,41,2,10675,0)="""RTN"",""HLOT"",8,0)"
^XMB(3.9,41,2,10676,0)=" S HLCSTATE(""MESSAGE ENDED"")=0"
^XMB(3.9,41,2,10677,0)="""RTN"",""HLOT"",9,0)"
^XMB(3.9,41,2,10678,0)=" S MCODE=""S SUCCESS=$$""_HLCSTATE(""READ HEADER"")_""(.HLCSTATE,.HDR)"""
^XMB(3.9,41,2,10679,0)="""RTN"",""HLOT"",10,0)"
^XMB(3.9,41,2,10680,0)=" X MCODE"
^XMB(3.9,41,2,10681,0)="""RTN"",""HLOT"",11,0)"
^XMB(3.9,41,2,10682,0)=" Q SUCCESS"
^XMB(3.9,41,2,10683,0)="""RTN"",""HLOT"",12,0)"
^XMB(3.9,41,2,10684,0)=" ;"
^XMB(3.9,41,2,10685,0)="""RTN"",""HLOT"",13,0)"
^XMB(3.9,41,2,10686,0)="READSEG(HLCSTATE,SEG) ;"
^XMB(3.9,41,2,10687,0)="""RTN"",""HLOT"",14,0)"
^XMB(3.9,41,2,10688,0)=" N RETURN"
^XMB(3.9,41,2,10689,0)="""RTN"",""HLOT"",15,0)"
^XMB(3.9,41,2,10690,0)=" N MCODE"
^XMB(3.9,41,2,10691,0)="""RTN"",""HLOT"",16,0)"
^XMB(3.9,41,2,10692,0)=" S MCODE=""S RETURN=$$""_HLCSTATE(""READ SEGMENT"")_""(.HLCSTATE,.SEG)"""
^XMB(3.9,41,2,10693,0)="""RTN"",""HLOT"",17,0)"
^XMB(3.9,41,2,10694,0)=" X MCODE"
^XMB(3.9,41,2,10695,0)="""RTN"",""HLOT"",18,0)"
^XMB(3.9,41,2,10696,0)=" Q RETURN"
^XMB(3.9,41,2,10697,0)="""RTN"",""HLOT"",19,0)"
^XMB(3.9,41,2,10698,0)=" ;"
^XMB(3.9,41,2,10699,0)="""RTN"",""HLOT"",20,0)"
^XMB(3.9,41,2,10700,0)="OPEN(HLCSTATE) ;"
^XMB(3.9,41,2,10701,0)="""RTN"",""HLOT"",21,0)"
^XMB(3.9,41,2,10702,0)=" N MCODE"
^XMB(3.9,41,2,10703,0)="""RTN"",""HLOT"",22,0)"
^XMB(3.9,41,2,10704,0)=" S MCODE=""D ""_HLCSTATE(""OPEN"")_""(.HLCSTATE)"""
^XMB(3.9,41,2,10705,0)="""RTN"",""HLOT"",23,0)"
^XMB(3.9,41,2,10706,0)=" X MCODE"
^XMB(3.9,41,2,10707,0)="""RTN"",""HLOT"",24,0)"
^XMB(3.9,41,2,10708,0)=" Q"
^XMB(3.9,41,2,10709,0)="""RTN"",""HLOT"",25,0)"
^XMB(3.9,41,2,10710,0)=" ;"
^XMB(3.9,41,2,10711,0)="""RTN"",""HLOT"",26,0)"
^XMB(3.9,41,2,10712,0)="CLOSE(HLCSTATE) ;"
^XMB(3.9,41,2,10713,0)="""RTN"",""HLOT"",27,0)"
^XMB(3.9,41,2,10714,0)=" N MCODE"
^XMB(3.9,41,2,10715,0)="""RTN"",""HLOT"",28,0)"
^XMB(3.9,41,2,10716,0)=" S MCODE=""D ""_HLCSTATE(""CLOSE"")_""(.HLCSTATE)"""
^XMB(3.9,41,2,10717,0)="""RTN"",""HLOT"",29,0)"
^XMB(3.9,41,2,10718,0)=" X MCODE"
^XMB(3.9,41,2,10719,0)="""RTN"",""HLOT"",30,0)"
^XMB(3.9,41,2,10720,0)=" S HLCSTATE(""CONNECTED"")=0"
^XMB(3.9,41,2,10721,0)="""RTN"",""HLOT"",31,0)"
^XMB(3.9,41,2,10722,0)=" Q"
^XMB(3.9,41,2,10723,0)="""RTN"",""HLOT"",32,0)"
^XMB(3.9,41,2,10724,0)=" ;"
^XMB(3.9,41,2,10725,0)="""RTN"",""HLOT"",33,0)"
^XMB(3.9,41,2,10726,0)="WRITESEG(HLCSTATE,SEG) ;"
^XMB(3.9,41,2,10727,0)="""RTN"",""HLOT"",34,0)"
^XMB(3.9,41,2,10728,0)=" N RETURN"
^XMB(3.9,41,2,10729,0)="""RTN"",""HLOT"",35,0)"
^XMB(3.9,41,2,10730,0)=" N MCODE"
^XMB(3.9,41,2,10731,0)="""RTN"",""HLOT"",36,0)"
^XMB(3.9,41,2,10732,0)=" S MCODE=""S RETURN=$$""_HLCSTATE(""WRITE SEGMENT"")_""(.HLCSTATE,.SEG)"""
^XMB(3.9,41,2,10733,0)="""RTN"",""HLOT"",37,0)"
^XMB(3.9,41,2,10734,0)=" X MCODE"
^XMB(3.9,41,2,10735,0)="""RTN"",""HLOT"",38,0)"
^XMB(3.9,41,2,10736,0)=" Q RETURN"
^XMB(3.9,41,2,10737,0)="""RTN"",""HLOT"",39,0)"
^XMB(3.9,41,2,10738,0)=" ;"
^XMB(3.9,41,2,10739,0)="""RTN"",""HLOT"",40,0)"
^XMB(3.9,41,2,10740,0)="WRITEHDR(HLCSTATE,HDR) ;"
^XMB(3.9,41,2,10741,0)="""RTN"",""HLOT"",41,0)"
^XMB(3.9,41,2,10742,0)=" N SUCCESS"
^XMB(3.9,41,2,10743,0)="""RTN"",""HLOT"",42,0)"
^XMB(3.9,41,2,10744,0)=" N MCODE"
^XMB(3.9,41,2,10745,0)="""RTN"",""HLOT"",43,0)"
^XMB(3.9,41,2,10746,0)=" S MCODE=""S SUCCESS=$$""_HLCSTATE(""WRITE HEADER"")_""(.HLCSTATE,.HDR)"""
^XMB(3.9,41,2,10747,0)="""RTN"",""HLOT"",44,0)"
^XMB(3.9,41,2,10748,0)=" X MCODE"
^XMB(3.9,41,2,10749,0)="""RTN"",""HLOT"",45,0)"
^XMB(3.9,41,2,10750,0)=" Q SUCCESS"
^XMB(3.9,41,2,10751,0)="""RTN"",""HLOT"",46,0)"
^XMB(3.9,41,2,10752,0)=" ;"
^XMB(3.9,41,2,10753,0)="""RTN"",""HLOT"",47,0)"
^XMB(3.9,41,2,10754,0)="ENDMSG(HLCSTATE) ;"
^XMB(3.9,41,2,10755,0)="""RTN"",""HLOT"",48,0)"
^XMB(3.9,41,2,10756,0)=" N RETURN"
^XMB(3.9,41,2,10757,0)="""RTN"",""HLOT"",49,0)"
^XMB(3.9,41,2,10758,0)=" N MCODE"
^XMB(3.9,41,2,10759,0)="""RTN"",""HLOT"",50,0)"
^XMB(3.9,41,2,10760,0)=" S MCODE=""S RETURN=$$""_HLCSTATE(""END MESSAGE"")_""(.HLCSTATE)"""
^XMB(3.9,41,2,10761,0)="""RTN"",""HLOT"",51,0)"
^XMB(3.9,41,2,10762,0)=" X MCODE"
^XMB(3.9,41,2,10763,0)="""RTN"",""HLOT"",52,0)"
^XMB(3.9,41,2,10764,0)=" Q RETURN"
^XMB(3.9,41,2,10765,0)="""RTN"",""HLOTCP"")"
^XMB(3.9,41,2,10766,0)="0^39^B43009690"
^XMB(3.9,41,2,10767,0)="""RTN"",""HLOTCP"",1,0)"
^XMB(3.9,41,2,10768,0)="HLOTCP ;ALB/CJM- TCP/IP I/O - 10/4/94 1pm"
^XMB(3.9,41,2,10769,0)="""RTN"",""HLOTCP"",2,0)"
^XMB(3.9,41,2,10770,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995"
^XMB(3.9,41,2,10771,0)="""RTN"",""HLOTCP"",3,0)"
^XMB(3.9,41,2,10772,0)=" ;"
^XMB(3.9,41,2,10773,0)="""RTN"",""HLOTCP"",4,0)"
^XMB(3.9,41,2,10774,0)="OPEN(HLCSTATE,LOGICAL) ;"
^XMB(3.9,41,2,10775,0)="""RTN"",""HLOTCP"",5,0)"
^XMB(3.9,41,2,10776,0)=" ;This may be called either in the context of a client or a server."
^XMB(3.9,41,2,10777,0)="""RTN"",""HLOTCP"",6,0)"
^XMB(3.9,41,2,10778,0)=" ;For the server, there are 3 situations:"
^XMB(3.9,41,2,10779,0)="""RTN"",""HLOTCP"",7,0)"
^XMB(3.9,41,2,10780,0)=" ; 1) The server is not concurrent.  In this case the TCP device should be opened."
^XMB(3.9,41,2,10781,0)="""RTN"",""HLOTCP"",8,0)"
^XMB(3.9,41,2,10782,0)=" ; 2) The server is concurrent, but this process was spawned by the OS"
^XMB(3.9,41,2,10783,0)="""RTN"",""HLOTCP"",9,0)"
^XMB(3.9,41,2,10784,0)=" ;    (via a VMS TCP Service)  In this case, the device should be opened"
^XMB(3.9,41,2,10785,0)="""RTN"",""HLOTCP"",10,0)"
^XMB(3.9,41,2,10786,0)=" ;    via the LOGICAL that was passed in."
^XMB(3.9,41,2,10787,0)="""RTN"",""HLOTCP"",11,0)"
^XMB(3.9,41,2,10788,0)=" ;  3) The server is concurrent, but this process was spawned by the"
^XMB(3.9,41,2,10789,0)="""RTN"",""HLOTCP"",12,0)"
^XMB(3.9,41,2,10790,0)=" ;     TaskMan multi-listener.  In this case TaskMan already opened the"
^XMB(3.9,41,2,10791,0)="""RTN"",""HLOTCP"",13,0)"
^XMB(3.9,41,2,10792,0)=" ;     device.  This case can be determined by the absence of the LOGICAL"
^XMB(3.9,41,2,10793,0)="""RTN"",""HLOTCP"",14,0)"
^XMB(3.9,41,2,10794,0)=" ;     input parameter."
^XMB(3.9,41,2,10795,0)="""RTN"",""HLOTCP"",15,0)"
^XMB(3.9,41,2,10796,0)=" ;"
^XMB(3.9,41,2,10797,0)="""RTN"",""HLOTCP"",16,0)"
^XMB(3.9,41,2,10798,0)=" N IP,PORT,DNSFLAG"
^XMB(3.9,41,2,10799,0)="""RTN"",""HLOTCP"",17,0)"
^XMB(3.9,41,2,10800,0)=" ;"
^XMB(3.9,41,2,10801,0)="""RTN"",""HLOTCP"",18,0)"
^XMB(3.9,41,2,10802,0)=" S DNSFLAG=0 ;DNS has not been contacted for IP"
^XMB(3.9,41,2,10803,0)="""RTN"",""HLOTCP"",19,0)"
^XMB(3.9,41,2,10804,0)=" ;"
^XMB(3.9,41,2,10805,0)="""RTN"",""HLOTCP"",20,0)"
^XMB(3.9,41,2,10806,0)=" S:'$G(HLCSTATE(""SERVER"")) IP=HLCSTATE(""LINK"",""IP"")"
^XMB(3.9,41,2,10807,0)="""RTN"",""HLOTCP"",21,0)"
^XMB(3.9,41,2,10808,0)=" S PORT=HLCSTATE(""LINK"",""PORT"")"
^XMB(3.9,41,2,10809,0)="""RTN"",""HLOTCP"",22,0)"
^XMB(3.9,41,2,10810,0)=" S HLCSTATE(""CONNECTED"")=0"
^XMB(3.9,41,2,10811,0)="""RTN"",""HLOTCP"",23,0)"
^XMB(3.9,41,2,10812,0)=" S HLCSTATE(""READ HEADER"")=""READHDR^HLOTCP"""
^XMB(3.9,41,2,10813,0)="""RTN"",""HLOTCP"",24,0)"
^XMB(3.9,41,2,10814,0)=" S HLCSTATE(""WRITE HEADER"")=""WRITEHDR^HLOTCP"""
^XMB(3.9,41,2,10815,0)="""RTN"",""HLOTCP"",25,0)"
^XMB(3.9,41,2,10816,0)=" S HLCSTATE(""READ SEGMENT"")=""READSEG^HLOTCP"""
^XMB(3.9,41,2,10817,0)="""RTN"",""HLOTCP"",26,0)"
^XMB(3.9,41,2,10818,0)=" S HLCSTATE(""WRITE SEGMENT"")=""WRITESEG^HLOTCP"""
^XMB(3.9,41,2,10819,0)="""RTN"",""HLOTCP"",27,0)"
^XMB(3.9,41,2,10820,0)=" S HLCSTATE(""END MESSAGE"")=""ENDMSG^HLOTCP"""
^XMB(3.9,41,2,10821,0)="""RTN"",""HLOTCP"",28,0)"
^XMB(3.9,41,2,10822,0)=" S HLCSTATE(""CLOSE"")=""CLOSE^HLOTCP"""
^XMB(3.9,41,2,10823,0)="""RTN"",""HLOTCP"",29,0)"
^XMB(3.9,41,2,10824,0)=" ;"
^XMB(3.9,41,2,10825,0)="""RTN"",""HLOTCP"",30,0)"
^XMB(3.9,41,2,10826,0)=" ;spawned by TaskMan multi-listener? If so, the device has already been opened"
^XMB(3.9,41,2,10827,0)="""RTN"",""HLOTCP"",31,0)"
^XMB(3.9,41,2,10828,0)=" I $G(HLCSTATE(""SERVER"")),$G(HLCSTATE(""LINK"",""SERVER""))=""1^M"",$G(LOGICAL)="""" D  Q"
^XMB(3.9,41,2,10829,0)="""RTN"",""HLOTCP"",32,0)"
^XMB(3.9,41,2,10830,0)=" .S HLCSTATE(""DEVICE"")=IO(0),HLCSTATE(""FLUSH"")=""!"",HLCSTATE(""TCP BUFFER SIZE"")=510"
^XMB(3.9,41,2,10831,0)="""RTN"",""HLOTCP"",33,0)"
^XMB(3.9,41,2,10832,0)=" .S HLCSTATE(""CONNECTED"")=1"
^XMB(3.9,41,2,10833,0)="""RTN"",""HLOTCP"",34,0)"
^XMB(3.9,41,2,10834,0)=" ;"
^XMB(3.9,41,2,10835,0)="""RTN"",""HLOTCP"",35,0)"
^XMB(3.9,41,2,10836,0)=" ;if no IP, not a server, give DNS a shot"
^XMB(3.9,41,2,10837,0)="""RTN"",""HLOTCP"",36,0)"
^XMB(3.9,41,2,10838,0)=" I '$G(HLCSTATE(""SERVER"")),IP="""" S DNSFLAG=1,IP=$$DNS(HLCSTATE(""LINK"",""DOMAIN"")),HLCSTATE(""LINK"",""IP"")=IP Q:IP="""""
^XMB(3.9,41,2,10839,0)="""RTN"",""HLOTCP"",37,0)"
^XMB(3.9,41,2,10840,0)=" ;"
^XMB(3.9,41,2,10841,0)="""RTN"",""HLOTCP"",38,0)"
^XMB(3.9,41,2,10842,0)="RETRY I HLCSTATE(""SYSTEM"",""OS"")=""DSM"" D"
^XMB(3.9,41,2,10843,0)="""RTN"",""HLOTCP"",39,0)"
^XMB(3.9,41,2,10844,0)=" .S HLCSTATE(""TCP BUFFER SIZE"")=512"
^XMB(3.9,41,2,10845,0)="""RTN"",""HLOTCP"",40,0)"
^XMB(3.9,41,2,10846,0)=" .I $G(LOGICAL)]"""" S HLCSTATE(""DEVICE"")=LOGICAL"
^XMB(3.9,41,2,10847,0)="""RTN"",""HLOTCP"",41,0)"
^XMB(3.9,41,2,10848,0)=" .E  S HLCSTATE(""DEVICE"")=PORT"
^XMB(3.9,41,2,10849,0)="""RTN"",""HLOTCP"",42,0)"
^XMB(3.9,41,2,10850,0)=" .S HLCSTATE(""FLUSH"")=""!"""
^XMB(3.9,41,2,10851,0)="""RTN"",""HLOTCP"",43,0)"
^XMB(3.9,41,2,10852,0)=" .I $G(HLCSTATE(""SERVER"")) D"
^XMB(3.9,41,2,10853,0)="""RTN"",""HLOTCP"",44,0)"
^XMB(3.9,41,2,10854,0)=" ..O:$G(LOGICAL)]"""" HLCSTATE(""DEVICE""):(TCPDEV,BLOCKSIZE=512):30"
^XMB(3.9,41,2,10855,0)="""RTN"",""HLOTCP"",45,0)"
^XMB(3.9,41,2,10856,0)=" ..O:$G(LOGICAL)="""" HLCSTATE(""DEVICE""):(TCPCHAN,BLOCKSIZE=512):30"
^XMB(3.9,41,2,10857,0)="""RTN"",""HLOTCP"",46,0)"
^XMB(3.9,41,2,10858,0)=" ..I $T D"
^XMB(3.9,41,2,10859,0)="""RTN"",""HLOTCP"",47,0)"
^XMB(3.9,41,2,10860,0)=" ...S HLCSTATE(""CONNECTED"")=1"
^XMB(3.9,41,2,10861,0)="""RTN"",""HLOTCP"",48,0)"
^XMB(3.9,41,2,10862,0)=" ...U HLCSTATE(""DEVICE""):NOECHO"
^XMB(3.9,41,2,10863,0)="""RTN"",""HLOTCP"",49,0)"
^XMB(3.9,41,2,10864,0)=" .E  D  ;client"
^XMB(3.9,41,2,10865,0)="""RTN"",""HLOTCP"",50,0)"
^XMB(3.9,41,2,10866,0)=" ..O HLCSTATE(""DEVICE""):(TCPCHAN,ADDRESS=IP,BLOCKSIZE=512):30"
^XMB(3.9,41,2,10867,0)="""RTN"",""HLOTCP"",51,0)"
^XMB(3.9,41,2,10868,0)=" ..I $T D"
^XMB(3.9,41,2,10869,0)="""RTN"",""HLOTCP"",52,0)"
^XMB(3.9,41,2,10870,0)=" ...S HLCSTATE(""CONNECTED"")=1"
^XMB(3.9,41,2,10871,0)="""RTN"",""HLOTCP"",53,0)"
^XMB(3.9,41,2,10872,0)=" ...U HLCSTATE(""DEVICE""):NOECHO"
^XMB(3.9,41,2,10873,0)="""RTN"",""HLOTCP"",54,0)"
^XMB(3.9,41,2,10874,0)=" E  I HLCSTATE(""SYSTEM"",""OS"")=""CACHE"" D"
^XMB(3.9,41,2,10875,0)="""RTN"",""HLOTCP"",55,0)"
^XMB(3.9,41,2,10876,0)=" .S HLCSTATE(""FLUSH"")=""!"""
^XMB(3.9,41,2,10877,0)="""RTN"",""HLOTCP"",56,0)"
^XMB(3.9,41,2,10878,0)=" .I $G(LOGICAL)]"""" S HLCSTATE(""DEVICE"")=LOGICAL"
^XMB(3.9,41,2,10879,0)="""RTN"",""HLOTCP"",57,0)"
^XMB(3.9,41,2,10880,0)=" .E  S HLCSTATE(""DEVICE"")=""|TCP|""_PORT"
^XMB(3.9,41,2,10881,0)="""RTN"",""HLOTCP"",58,0)"
^XMB(3.9,41,2,10882,0)=" .S HLCSTATE(""TCP BUFFER SIZE"")=510"
^XMB(3.9,41,2,10883,0)="""RTN"",""HLOTCP"",59,0)"
^XMB(3.9,41,2,10884,0)=" .I $G(HLCSTATE(""SERVER"")) D"
^XMB(3.9,41,2,10885,0)="""RTN"",""HLOTCP"",60,0)"
^XMB(3.9,41,2,10886,0)=" ..I HLCSTATE(""SERVER"")=""1^S"" D  Q"
^XMB(3.9,41,2,10887,0)="""RTN"",""HLOTCP"",61,0)"
^XMB(3.9,41,2,10888,0)=" ...;single server (no concurrent connections)"
^XMB(3.9,41,2,10889,0)="""RTN"",""HLOTCP"",62,0)"
^XMB(3.9,41,2,10890,0)=" ...O HLCSTATE(""DEVICE""):(:PORT:""+A-S"":::):30"
^XMB(3.9,41,2,10891,0)="""RTN"",""HLOTCP"",63,0)"
^XMB(3.9,41,2,10892,0)=" ...I $T D"
^XMB(3.9,41,2,10893,0)="""RTN"",""HLOTCP"",64,0)"
^XMB(3.9,41,2,10894,0)=" ....N A"
^XMB(3.9,41,2,10895,0)="""RTN"",""HLOTCP"",65,0)"
^XMB(3.9,41,2,10896,0)=" ....S HLCSTATE(""CONNECTED"")=1"
^XMB(3.9,41,2,10897,0)="""RTN"",""HLOTCP"",66,0)"
^XMB(3.9,41,2,10898,0)=" ....U HLCSTATE(""DEVICE"")"
^XMB(3.9,41,2,10899,0)="""RTN"",""HLOTCP"",67,0)"
^XMB(3.9,41,2,10900,0)=" ....F  R *A:60 Q:$T  I $$CHKSTOP^HLOPROC S HLCSTATE(""CONNECTED"")=0 Q"
^XMB(3.9,41,2,10901,0)="""RTN"",""HLOTCP"",68,0)"
^XMB(3.9,41,2,10902,0)=" ..;"
^XMB(3.9,41,2,10903,0)="""RTN"",""HLOTCP"",69,0)"
^XMB(3.9,41,2,10904,0)=" ..;multi-server spawned by OS - VMS TCP Services"
^XMB(3.9,41,2,10905,0)="""RTN"",""HLOTCP"",70,0)"
^XMB(3.9,41,2,10906,0)=" ..O HLCSTATE(""DEVICE"")::5 I '$T S HLCSTATE(""CONNECTED"")=0 Q"
^XMB(3.9,41,2,10907,0)="""RTN"",""HLOTCP"",71,0)"
^XMB(3.9,41,2,10908,0)=" ..S HLCSTATE(""CONNECTED"")=1"
^XMB(3.9,41,2,10909,0)="""RTN"",""HLOTCP"",72,0)"
^XMB(3.9,41,2,10910,0)=" ..U HLCSTATE(""DEVICE""):(::""-S"")"
^XMB(3.9,41,2,10911,0)="""RTN"",""HLOTCP"",73,0)"
^XMB(3.9,41,2,10912,0)=" ..;"
^XMB(3.9,41,2,10913,0)="""RTN"",""HLOTCP"",74,0)"
^XMB(3.9,41,2,10914,0)=" .E  D  ;client"
^XMB(3.9,41,2,10915,0)="""RTN"",""HLOTCP"",75,0)"
^XMB(3.9,41,2,10916,0)=" ..S HLCSTATE(""TCP BUFFER SIZE"")=510"
^XMB(3.9,41,2,10917,0)="""RTN"",""HLOTCP"",76,0)"
^XMB(3.9,41,2,10918,0)=" ..O HLCSTATE(""DEVICE""):(IP:PORT:""-S"":::):30"
^XMB(3.9,41,2,10919,0)="""RTN"",""HLOTCP"",77,0)"
^XMB(3.9,41,2,10920,0)=" ..I $T D"
^XMB(3.9,41,2,10921,0)="""RTN"",""HLOTCP"",78,0)"
^XMB(3.9,41,2,10922,0)=" ...S HLCSTATE(""CONNECTED"")=1"
^XMB(3.9,41,2,10923,0)="""RTN"",""HLOTCP"",79,0)"
^XMB(3.9,41,2,10924,0)=" E  D  ;any other system but Cache or DSM"
^XMB(3.9,41,2,10925,0)="""RTN"",""HLOTCP"",80,0)"
^XMB(3.9,41,2,10926,0)=" .S HLCSTATE(""TCP BUFFER SIZE"")=256"
^XMB(3.9,41,2,10927,0)="""RTN"",""HLOTCP"",81,0)"
^XMB(3.9,41,2,10928,0)=" .D CALL^%ZISTCP(IP,PORT)"
^XMB(3.9,41,2,10929,0)="""RTN"",""HLOTCP"",82,0)"
^XMB(3.9,41,2,10930,0)=" .S HLCSTATE(""CONNECTED"")='POP"
^XMB(3.9,41,2,10931,0)="""RTN"",""HLOTCP"",83,0)"
^XMB(3.9,41,2,10932,0)=" .I HLCSTATE(""CONNECTED"") S HLCSTATE(""DEVICE"")=IO"
^XMB(3.9,41,2,10933,0)="""RTN"",""HLOTCP"",84,0)"
^XMB(3.9,41,2,10934,0)=" ;"
^XMB(3.9,41,2,10935,0)="""RTN"",""HLOTCP"",85,0)"
^XMB(3.9,41,2,10936,0)=" ;if not connected, not the server, give DNS a shot if not tried already"
^XMB(3.9,41,2,10937,0)="""RTN"",""HLOTCP"",86,0)"
^XMB(3.9,41,2,10938,0)=" I '$G(HLCSTATE(""SERVER"")),'HLCSTATE(""CONNECTED""),'DNSFLAG S DNSFLAG=1,IP=$$DNS(HLCSTATE(""LINK"",""DOMAIN"")) I IP]"""",IP'=HLCSTATE(""LINK"",""IP"") S HLCSTATE(""LINK"",""IP"")=IP G RETRY"
^XMB(3.9,41,2,10939,0)="""RTN"",""HLOTCP"",87,0)"
^XMB(3.9,41,2,10940,0)=" I HLCSTATE(""CONNECTED""),DNSFLAG S $P(^HLCS(870,HLCSTATE(""LINK"",""IEN""),400),""^"")=IP"
^XMB(3.9,41,2,10941,0)="""RTN"",""HLOTCP"",88,0)"
^XMB(3.9,41,2,10942,0)=" Q"
^XMB(3.9,41,2,10943,0)="""RTN"",""HLOTCP"",89,0)"
^XMB(3.9,41,2,10944,0)=" ;"
^XMB(3.9,41,2,10945,0)="""RTN"",""HLOTCP"",90,0)"
^XMB(3.9,41,2,10946,0)="DNS(DOMAIN) ;"
^XMB(3.9,41,2,10947,0)="""RTN"",""HLOTCP"",91,0)"
^XMB(3.9,41,2,10948,0)=" Q $P($$ADDRESS^XLFNSLK(DOMAIN),"","")"
^XMB(3.9,41,2,10949,0)="""RTN"",""HLOTCP"",92,0)"
^XMB(3.9,41,2,10950,0)=" ;"
^XMB(3.9,41,2,10951,0)="""RTN"",""HLOTCP"",93,0)"
^XMB(3.9,41,2,10952,0)="WRITEHDR(HLCSTATE,HDR) ;"
^XMB(3.9,41,2,10953,0)="""RTN"",""HLOTCP"",94,0)"
^XMB(3.9,41,2,10954,0)=" ;"
^XMB(3.9,41,2,10955,0)="""RTN"",""HLOTCP"",95,0)"
^XMB(3.9,41,2,10956,0)=" ;insure that package buffer is empty"
^XMB(3.9,41,2,10957,0)="""RTN"",""HLOTCP"",96,0)"
^XMB(3.9,41,2,10958,0)=" K HLCSTATE(""BUFFER"")"
^XMB(3.9,41,2,10959,0)="""RTN"",""HLOTCP"",97,0)"
^XMB(3.9,41,2,10960,0)=" S HLCSTATE(""BUFFER"",""BYTE COUNT"")=0"
^XMB(3.9,41,2,10961,0)="""RTN"",""HLOTCP"",98,0)"
^XMB(3.9,41,2,10962,0)=" S HLCSTATE(""BUFFER"",""SEGMENT COUNT"")=0"
^XMB(3.9,41,2,10963,0)="""RTN"",""HLOTCP"",99,0)"
^XMB(3.9,41,2,10964,0)=" S HLCSTATE(""FIRST WRITE"")=1 ;so that FLUSH knows $X should be 0"
^XMB(3.9,41,2,10965,0)="""RTN"",""HLOTCP"",100,0)"
^XMB(3.9,41,2,10966,0)=" ;"
^XMB(3.9,41,2,10967,0)="""RTN"",""HLOTCP"",101,0)"
^XMB(3.9,41,2,10968,0)=" ;Start the message with <SB>, then write the header"
^XMB(3.9,41,2,10969,0)="""RTN"",""HLOTCP"",102,0)"
^XMB(3.9,41,2,10970,0)=" N SEG"
^XMB(3.9,41,2,10971,0)="""RTN"",""HLOTCP"",103,0)"
^XMB(3.9,41,2,10972,0)=" S SEG(1)=$C(11)_HDR(1)"
^XMB(3.9,41,2,10973,0)="""RTN"",""HLOTCP"",104,0)"
^XMB(3.9,41,2,10974,0)=" S SEG(2)=HDR(2)"
^XMB(3.9,41,2,10975,0)="""RTN"",""HLOTCP"",105,0)"
^XMB(3.9,41,2,10976,0)=" Q $$WRITESEG(.HLCSTATE,.SEG)"
^XMB(3.9,41,2,10977,0)="""RTN"",""HLOTCP"",106,0)"
^XMB(3.9,41,2,10978,0)=" ;"
^XMB(3.9,41,2,10979,0)="""RTN"",""HLOTCP"",107,0)"
^XMB(3.9,41,2,10980,0)="WRITESEG(HLCSTATE,SEG) ;"
^XMB(3.9,41,2,10981,0)="""RTN"",""HLOTCP"",108,0)"
^XMB(3.9,41,2,10982,0)=" N I,LAST"
^XMB(3.9,41,2,10983,0)="""RTN"",""HLOTCP"",109,0)"
^XMB(3.9,41,2,10984,0)=" S HLCSTATE(""BUFFER"",""SEGMENT COUNT"")=HLCSTATE(""BUFFER"",""SEGMENT COUNT"")+1"
^XMB(3.9,41,2,10985,0)="""RTN"",""HLOTCP"",110,0)"
^XMB(3.9,41,2,10986,0)=" S I=0,LAST=$O(SEG(99999),-1)"
^XMB(3.9,41,2,10987,0)="""RTN"",""HLOTCP"",111,0)"
^XMB(3.9,41,2,10988,0)=" F  S I=$O(SEG(I)) Q:'I  D"
^XMB(3.9,41,2,10989,0)="""RTN"",""HLOTCP"",112,0)"
^XMB(3.9,41,2,10990,0)=" .I HLCSTATE(""BUFFER"",""BYTE COUNT"")>HLCSTATE(""SYSTEM"",""BUFFER"") D FLUSH"
^XMB(3.9,41,2,10991,0)="""RTN"",""HLOTCP"",113,0)"
^XMB(3.9,41,2,10992,0)=" .I I=LAST S SEG(I)=SEG(I)_$C(13)"
^XMB(3.9,41,2,10993,0)="""RTN"",""HLOTCP"",114,0)"
^XMB(3.9,41,2,10994,0)=" .S HLCSTATE(""BUFFER"",HLCSTATE(""BUFFER"",""SEGMENT COUNT""),I)=SEG(I),HLCSTATE(""BUFFER"",""BYTE COUNT"")=HLCSTATE(""BUFFER"",""BYTE COUNT"")+$L(SEG(I))+20"
^XMB(3.9,41,2,10995,0)="""RTN"",""HLOTCP"",115,0)"
^XMB(3.9,41,2,10996,0)=" Q 1"
^XMB(3.9,41,2,10997,0)="""RTN"",""HLOTCP"",116,0)"
^XMB(3.9,41,2,10998,0)=" ;"
^XMB(3.9,41,2,10999,0)="""RTN"",""HLOTCP"",117,0)"
^XMB(3.9,41,2,11000,0)="FLUSH ;flushes the HL7 package buffer, and the system TCP buffer when full"
^XMB(3.9,41,2,11001,0)="""RTN"",""HLOTCP"",118,0)"
^XMB(3.9,41,2,11002,0)=" N SEGMENT,MAX"
^XMB(3.9,41,2,11003,0)="""RTN"",""HLOTCP"",119,0)"
^XMB(3.9,41,2,11004,0)=" S SEGMENT=0"
^XMB(3.9,41,2,11005,0)="""RTN"",""HLOTCP"",120,0)"
^XMB(3.9,41,2,11006,0)=" S MAX=HLCSTATE(""TCP BUFFER SIZE"")"
^XMB(3.9,41,2,11007,0)="""RTN"",""HLOTCP"",121,0)"
^XMB(3.9,41,2,11008,0)=" U HLCSTATE(""DEVICE"")"
^XMB(3.9,41,2,11009,0)="""RTN"",""HLOTCP"",122,0)"
^XMB(3.9,41,2,11010,0)=" F  S SEGMENT=$O(HLCSTATE(""BUFFER"",SEGMENT)) Q:'SEGMENT  D"
^XMB(3.9,41,2,11011,0)="""RTN"",""HLOTCP"",123,0)"
^XMB(3.9,41,2,11012,0)=" .N I S I=0"
^XMB(3.9,41,2,11013,0)="""RTN"",""HLOTCP"",124,0)"
^XMB(3.9,41,2,11014,0)=" .F  S I=$O(HLCSTATE(""BUFFER"",SEGMENT,I)) Q:'I  D"
^XMB(3.9,41,2,11015,0)="""RTN"",""HLOTCP"",125,0)"
^XMB(3.9,41,2,11016,0)=" ..N LINE,J"
^XMB(3.9,41,2,11017,0)="""RTN"",""HLOTCP"",126,0)"
^XMB(3.9,41,2,11018,0)=" ..S J=$S(HLCSTATE(""FIRST WRITE""):0,1:$X)"
^XMB(3.9,41,2,11019,0)="""RTN"",""HLOTCP"",127,0)"
^XMB(3.9,41,2,11020,0)=" ..S HLCSTATE(""FIRST WRITE"")=0"
^XMB(3.9,41,2,11021,0)="""RTN"",""HLOTCP"",128,0)"
^XMB(3.9,41,2,11022,0)=" ..S LINE=HLCSTATE(""BUFFER"",SEGMENT,I)"
^XMB(3.9,41,2,11023,0)="""RTN"",""HLOTCP"",129,0)"
^XMB(3.9,41,2,11024,0)=" ..F  Q:'(J+$L(LINE)>MAX)  D"
^XMB(3.9,41,2,11025,0)="""RTN"",""HLOTCP"",130,0)"
^XMB(3.9,41,2,11026,0)=" ...W $E(LINE,1,MAX-J),@HLCSTATE(""FLUSH"")"
^XMB(3.9,41,2,11027,0)="""RTN"",""HLOTCP"",131,0)"
^XMB(3.9,41,2,11028,0)=" ...S LINE=$E(LINE,(MAX-J)+1,99999)"
^XMB(3.9,41,2,11029,0)="""RTN"",""HLOTCP"",132,0)"
^XMB(3.9,41,2,11030,0)=" ...S J=0"
^XMB(3.9,41,2,11031,0)="""RTN"",""HLOTCP"",133,0)"
^XMB(3.9,41,2,11032,0)=" ..W:(LINE]"""") LINE"
^XMB(3.9,41,2,11033,0)="""RTN"",""HLOTCP"",134,0)"
^XMB(3.9,41,2,11034,0)=" K HLCSTATE(""BUFFER"")"
^XMB(3.9,41,2,11035,0)="""RTN"",""HLOTCP"",135,0)"
^XMB(3.9,41,2,11036,0)=" S HLCSTATE(""BUFFER"",""SEGMENT COUNT"")=1"
^XMB(3.9,41,2,11037,0)="""RTN"",""HLOTCP"",136,0)"
^XMB(3.9,41,2,11038,0)=" S HLCSTATE(""BUFFER"",""BYTE COUNT"")=0"
^XMB(3.9,41,2,11039,0)="""RTN"",""HLOTCP"",137,0)"
^XMB(3.9,41,2,11040,0)=" S HLCSTATE(""FIRST WRITE"")=0"
^XMB(3.9,41,2,11041,0)="""RTN"",""HLOTCP"",138,0)"
^XMB(3.9,41,2,11042,0)=" Q"
^XMB(3.9,41,2,11043,0)="""RTN"",""HLOTCP"",139,0)"
^XMB(3.9,41,2,11044,0)=" ;"
^XMB(3.9,41,2,11045,0)="""RTN"",""HLOTCP"",140,0)"
^XMB(3.9,41,2,11046,0)="READSEG(HLCSTATE,SEG) ;"
^XMB(3.9,41,2,11047,0)="""RTN"",""HLOTCP"",141,0)"
^XMB(3.9,41,2,11048,0)=" ;"
^XMB(3.9,41,2,11049,0)="""RTN"",""HLOTCP"",142,0)"
^XMB(3.9,41,2,11050,0)=" ;Output:"
^XMB(3.9,41,2,11051,0)="""RTN"",""HLOTCP"",143,0)"
^XMB(3.9,41,2,11052,0)=" ;  SEG - returns the segment (pass by reference)"
^XMB(3.9,41,2,11053,0)="""RTN"",""HLOTCP"",144,0)"
^XMB(3.9,41,2,11054,0)=" ;  Function returns 1 on success, 0 on failure"
^XMB(3.9,41,2,11055,0)="""RTN"",""HLOTCP"",145,0)"
^XMB(3.9,41,2,11056,0)=" ;"
^XMB(3.9,41,2,11057,0)="""RTN"",""HLOTCP"",146,0)"
^XMB(3.9,41,2,11058,0)=" N SUCCESS,COUNT,BUF,TIMEOUT"
^XMB(3.9,41,2,11059,0)="""RTN"",""HLOTCP"",147,0)"
^XMB(3.9,41,2,11060,0)=" S TIMEOUT=8*HLCSTATE(""ATTEMPT"") ;start off at 8 seconds, and double each attempt"
^XMB(3.9,41,2,11061,0)="""RTN"",""HLOTCP"",148,0)"
^XMB(3.9,41,2,11062,0)=" S (COUNT,SUCCESS)=0"
^XMB(3.9,41,2,11063,0)="""RTN"",""HLOTCP"",149,0)"
^XMB(3.9,41,2,11064,0)=" K SEG"
^XMB(3.9,41,2,11065,0)="""RTN"",""HLOTCP"",150,0)"
^XMB(3.9,41,2,11066,0)=" ;"
^XMB(3.9,41,2,11067,0)="""RTN"",""HLOTCP"",151,0)"
^XMB(3.9,41,2,11068,0)=" ;anything left from last read?"
^XMB(3.9,41,2,11069,0)="""RTN"",""HLOTCP"",152,0)"
^XMB(3.9,41,2,11070,0)=" S BUF=HLCSTATE(""READ"")"
^XMB(3.9,41,2,11071,0)="""RTN"",""HLOTCP"",153,0)"
^XMB(3.9,41,2,11072,0)=" S HLCSTATE(""READ"")="""""
^XMB(3.9,41,2,11073,0)="""RTN"",""HLOTCP"",154,0)"
^XMB(3.9,41,2,11074,0)=" I BUF]"""" D  ;something was left!"
^XMB(3.9,41,2,11075,0)="""RTN"",""HLOTCP"",155,0)"
^XMB(3.9,41,2,11076,0)=" .S COUNT=1"
^XMB(3.9,41,2,11077,0)="""RTN"",""HLOTCP"",156,0)"
^XMB(3.9,41,2,11078,0)=" .I BUF[$C(13) D  Q"
^XMB(3.9,41,2,11079,0)="""RTN"",""HLOTCP"",157,0)"
^XMB(3.9,41,2,11080,0)=" ..S SEG(1)=$P(BUF,$C(13)),BUF=$P(BUF,$C(13),2,9999)"
^XMB(3.9,41,2,11081,0)="""RTN"",""HLOTCP"",158,0)"
^XMB(3.9,41,2,11082,0)=" ..S SUCCESS=1"
^XMB(3.9,41,2,11083,0)="""RTN"",""HLOTCP"",159,0)"
^XMB(3.9,41,2,11084,0)=" .S SEG(1)=BUF,BUF="""""
^XMB(3.9,41,2,11085,0)="""RTN"",""HLOTCP"",160,0)"
^XMB(3.9,41,2,11086,0)=" I 'SUCCESS U HLCSTATE(""DEVICE"") F  R BUF:TIMEOUT Q:'$T  D  Q:SUCCESS"
^XMB(3.9,41,2,11087,0)="""RTN"",""HLOTCP"",161,0)"
^XMB(3.9,41,2,11088,0)=" .I BUF[$C(13) S SUCCESS=1,COUNT=COUNT+1,SEG(COUNT)=$P(BUF,$C(13)),BUF=$P(BUF,$C(13),2,9999) Q"
^XMB(3.9,41,2,11089,0)="""RTN"",""HLOTCP"",162,0)"
^XMB(3.9,41,2,11090,0)=" .S COUNT=COUNT+1,SEG(COUNT)=BUF"
^XMB(3.9,41,2,11091,0)="""RTN"",""HLOTCP"",163,0)"
^XMB(3.9,41,2,11092,0)=" ;"
^XMB(3.9,41,2,11093,0)="""RTN"",""HLOTCP"",164,0)"
^XMB(3.9,41,2,11094,0)=" I SUCCESS D"
^XMB(3.9,41,2,11095,0)="""RTN"",""HLOTCP"",165,0)"
^XMB(3.9,41,2,11096,0)=" .S HLCSTATE(""READ"")=BUF ;save the leftover"
^XMB(3.9,41,2,11097,0)="""RTN"",""HLOTCP"",166,0)"
^XMB(3.9,41,2,11098,0)=" .I COUNT>1,SEG(COUNT)="""" K SEG(COUNT) S COUNT=COUNT-1"
^XMB(3.9,41,2,11099,0)="""RTN"",""HLOTCP"",167,0)"
^XMB(3.9,41,2,11100,0)=" ;Cache can return the connection status"
^XMB(3.9,41,2,11101,0)="""RTN"",""HLOTCP"",168,0)"
^XMB(3.9,41,2,11102,0)=" E  I (HLCSTATE(""SYSTEM"",""OS"")=""CACHE"") S HLCSTATE(""CONNECTED"")=($ZA\8192#2) I 'HLCSTATE(""CONNECTED"") D CLOSE(.HLCSTATE)"
^XMB(3.9,41,2,11103,0)="""RTN"",""HLOTCP"",169,0)"
^XMB(3.9,41,2,11104,0)=" ;"
^XMB(3.9,41,2,11105,0)="""RTN"",""HLOTCP"",170,0)"
^XMB(3.9,41,2,11106,0)=" ;if the <EB> character was encountered, then there are no more segments in the message, set the end of message flag"
^XMB(3.9,41,2,11107,0)="""RTN"",""HLOTCP"",171,0)"
^XMB(3.9,41,2,11108,0)=" I SUCCESS,SEG(COUNT)[$C(28) D"
^XMB(3.9,41,2,11109,0)="""RTN"",""HLOTCP"",172,0)"
^XMB(3.9,41,2,11110,0)=" .K SEG"
^XMB(3.9,41,2,11111,0)="""RTN"",""HLOTCP"",173,0)"
^XMB(3.9,41,2,11112,0)=" .S SUCCESS=0"
^XMB(3.9,41,2,11113,0)="""RTN"",""HLOTCP"",174,0)"
^XMB(3.9,41,2,11114,0)=" .S HLCSTATE(""MESSAGE ENDED"")=1"
^XMB(3.9,41,2,11115,0)="""RTN"",""HLOTCP"",175,0)"
^XMB(3.9,41,2,11116,0)=" Q SUCCESS"
^XMB(3.9,41,2,11117,0)="""RTN"",""HLOTCP"",176,0)"
^XMB(3.9,41,2,11118,0)=" ;"
^XMB(3.9,41,2,11119,0)="""RTN"",""HLOTCP"",177,0)"
^XMB(3.9,41,2,11120,0)="READHDR(HLCSTATE,HDR) ;"
^XMB(3.9,41,2,11121,0)="""RTN"",""HLOTCP"",178,0)"
^XMB(3.9,41,2,11122,0)=" ;reads the next header segment in the message stream, discarding everything that comes before it"
^XMB(3.9,41,2,11123,0)="""RTN"",""HLOTCP"",179,0)"
^XMB(3.9,41,2,11124,0)=" ;"
^XMB(3.9,41,2,11125,0)="""RTN"",""HLOTCP"",180,0)"
^XMB(3.9,41,2,11126,0)=" N SEG,SUCCESS,J,I"
^XMB(3.9,41,2,11127,0)="""RTN"",""HLOTCP"",181,0)"
^XMB(3.9,41,2,11128,0)=" S SUCCESS=0"
^XMB(3.9,41,2,11129,0)="""RTN"",""HLOTCP"",182,0)"
^XMB(3.9,41,2,11130,0)=" K HDR"
^XMB(3.9,41,2,11131,0)="""RTN"",""HLOTCP"",183,0)"
^XMB(3.9,41,2,11132,0)=" F  Q:'$$READSEG(.HLCSTATE,.SEG)  D  Q:SUCCESS"
^XMB(3.9,41,2,11133,0)="""RTN"",""HLOTCP"",184,0)"
^XMB(3.9,41,2,11134,0)=" .S I=0"
^XMB(3.9,41,2,11135,0)="""RTN"",""HLOTCP"",185,0)"
^XMB(3.9,41,2,11136,0)=" .;look for the <SB>"
^XMB(3.9,41,2,11137,0)="""RTN"",""HLOTCP"",186,0)"
^XMB(3.9,41,2,11138,0)=" .;perhaps the <SB> isn't in the first line"
^XMB(3.9,41,2,11139,0)="""RTN"",""HLOTCP"",187,0)"
^XMB(3.9,41,2,11140,0)=" .F  S I=$O(SEG(I)) Q:'I  D  Q:SUCCESS"
^XMB(3.9,41,2,11141,0)="""RTN"",""HLOTCP"",188,0)"
^XMB(3.9,41,2,11142,0)=" ..I (SEG(I)'[$C(11)) K SEG(I) Q"
^XMB(3.9,41,2,11143,0)="""RTN"",""HLOTCP"",189,0)"
^XMB(3.9,41,2,11144,0)=" ..S SEG(I)=$P(SEG(I),$C(11),2)"
^XMB(3.9,41,2,11145,0)="""RTN"",""HLOTCP"",190,0)"
^XMB(3.9,41,2,11146,0)=" ..S SUCCESS=1"
^XMB(3.9,41,2,11147,0)="""RTN"",""HLOTCP"",191,0)"
^XMB(3.9,41,2,11148,0)=" ..K:SEG(I)="""" SEG(I)"
^XMB(3.9,41,2,11149,0)="""RTN"",""HLOTCP"",192,0)"
^XMB(3.9,41,2,11150,0)=" I SUCCESS S (I,J)=0 F  S J=$O(SEG(J)) Q:'J  S I=I+1,HDR(I)=SEG(J)"
^XMB(3.9,41,2,11151,0)="""RTN"",""HLOTCP"",193,0)"
^XMB(3.9,41,2,11152,0)=" Q SUCCESS"
^XMB(3.9,41,2,11153,0)="""RTN"",""HLOTCP"",194,0)"
^XMB(3.9,41,2,11154,0)=" ;"
^XMB(3.9,41,2,11155,0)="""RTN"",""HLOTCP"",195,0)"
^XMB(3.9,41,2,11156,0)="CLOSE(HLCSTATE) ;"
^XMB(3.9,41,2,11157,0)="""RTN"",""HLOTCP"",196,0)"
^XMB(3.9,41,2,11158,0)=" CLOSE HLCSTATE(""DEVICE"")"
^XMB(3.9,41,2,11159,0)="""RTN"",""HLOTCP"",197,0)"
^XMB(3.9,41,2,11160,0)=" Q"
^XMB(3.9,41,2,11161,0)="""RTN"",""HLOTCP"",198,0)"
^XMB(3.9,41,2,11162,0)=" ;"
^XMB(3.9,41,2,11163,0)="""RTN"",""HLOTCP"",199,0)"
^XMB(3.9,41,2,11164,0)="ENDMSG(HLCSTATE)        ;"
^XMB(3.9,41,2,11165,0)="""RTN"",""HLOTCP"",200,0)"
^XMB(3.9,41,2,11166,0)=" N SEG"
^XMB(3.9,41,2,11167,0)="""RTN"",""HLOTCP"",201,0)"
^XMB(3.9,41,2,11168,0)=" S SEG(1)=$C(28)"
^XMB(3.9,41,2,11169,0)="""RTN"",""HLOTCP"",202,0)"
^XMB(3.9,41,2,11170,0)=" I $$WRITESEG(.HLCSTATE,.SEG) D  Q 1"
^XMB(3.9,41,2,11171,0)="""RTN"",""HLOTCP"",203,0)"
^XMB(3.9,41,2,11172,0)=" .D FLUSH"
^XMB(3.9,41,2,11173,0)="""RTN"",""HLOTCP"",204,0)"
^XMB(3.9,41,2,11174,0)=" .U HLCSTATE(""DEVICE"")"
^XMB(3.9,41,2,11175,0)="""RTN"",""HLOTCP"",205,0)"
^XMB(3.9,41,2,11176,0)=" .W:$X @HLCSTATE(""FLUSH"")"
^XMB(3.9,41,2,11177,0)="""RTN"",""HLOTCP"",206,0)"
^XMB(3.9,41,2,11178,0)=" Q 0"
^XMB(3.9,41,2,11179,0)="""RTN"",""HLOTLNK"")"
^XMB(3.9,41,2,11180,0)="0^40^B15931185"
^XMB(3.9,41,2,11181,0)="""RTN"",""HLOTLNK"",1,0)"
^XMB(3.9,41,2,11182,0)="HLOTLNK ;IRMFO-ALB/CJM - APIs for the HL Logical Link file;03/24/2004  14:43"
^XMB(3.9,41,2,11183,0)="""RTN"",""HLOTLNK"",2,0)"
^XMB(3.9,41,2,11184,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995"
^XMB(3.9,41,2,11185,0)="""RTN"",""HLOTLNK"",3,0)"
^XMB(3.9,41,2,11186,0)=" ;"
^XMB(3.9,41,2,11187,0)="""RTN"",""HLOTLNK"",4,0)"
^XMB(3.9,41,2,11188,0)="DOMAIN(LINKIEN) ;"
^XMB(3.9,41,2,11189,0)="""RTN"",""HLOTLNK"",5,0)"
^XMB(3.9,41,2,11190,0)=" ;Returns the domain associated with this link"
^XMB(3.9,41,2,11191,0)="""RTN"",""HLOTLNK"",6,0)"
^XMB(3.9,41,2,11192,0)=" ;"
^XMB(3.9,41,2,11193,0)="""RTN"",""HLOTLNK"",7,0)"
^XMB(3.9,41,2,11194,0)=" Q:'$G(LINKIEN) """""
^XMB(3.9,41,2,11195,0)="""RTN"",""HLOTLNK"",8,0)"
^XMB(3.9,41,2,11196,0)=" N NODE,DOMAIN"
^XMB(3.9,41,2,11197,0)="""RTN"",""HLOTLNK"",9,0)"
^XMB(3.9,41,2,11198,0)=" S DOMAIN="""""
^XMB(3.9,41,2,11199,0)="""RTN"",""HLOTLNK"",10,0)"
^XMB(3.9,41,2,11200,0)=" S NODE=$G(^HLCS(870,LINKIEN,0))"
^XMB(3.9,41,2,11201,0)="""RTN"",""HLOTLNK"",11,0)"
^XMB(3.9,41,2,11202,0)=" I $P(NODE,""^"",7) D"
^XMB(3.9,41,2,11203,0)="""RTN"",""HLOTLNK"",12,0)"
^XMB(3.9,41,2,11204,0)=" .S DOMAIN=$P($G(^DIC(4.2,$P(NODE,""^"",7),0)),""^"")"
^XMB(3.9,41,2,11205,0)="""RTN"",""HLOTLNK"",13,0)"
^XMB(3.9,41,2,11206,0)=" .S DOMAIN=$S($L(DOMAIN):""HL7.""_DOMAIN,1:"""")"
^XMB(3.9,41,2,11207,0)="""RTN"",""HLOTLNK"",14,0)"
^XMB(3.9,41,2,11208,0)=" I '$L(DOMAIN) S DOMAIN=$P(NODE,""^"",8)"
^XMB(3.9,41,2,11209,0)="""RTN"",""HLOTLNK"",15,0)"
^XMB(3.9,41,2,11210,0)=" Q DOMAIN"
^XMB(3.9,41,2,11211,0)="""RTN"",""HLOTLNK"",16,0)"
^XMB(3.9,41,2,11212,0)="PORT(LINKIEN) ;"
^XMB(3.9,41,2,11213,0)="""RTN"",""HLOTLNK"",17,0)"
^XMB(3.9,41,2,11214,0)=" ;Returns the HLO port associated with this link"
^XMB(3.9,41,2,11215,0)="""RTN"",""HLOTLNK"",18,0)"
^XMB(3.9,41,2,11216,0)=" ;"
^XMB(3.9,41,2,11217,0)="""RTN"",""HLOTLNK"",19,0)"
^XMB(3.9,41,2,11218,0)=" Q:'$G(LINKIEN) """""
^XMB(3.9,41,2,11219,0)="""RTN"",""HLOTLNK"",20,0)"
^XMB(3.9,41,2,11220,0)=" N NODE,PORT"
^XMB(3.9,41,2,11221,0)="""RTN"",""HLOTLNK"",21,0)"
^XMB(3.9,41,2,11222,0)=" S NODE=$G(^HLCS(870,LINKIEN,400))"
^XMB(3.9,41,2,11223,0)="""RTN"",""HLOTLNK"",22,0)"
^XMB(3.9,41,2,11224,0)=" S PORT=$P(NODE,""^"",8)"
^XMB(3.9,41,2,11225,0)="""RTN"",""HLOTLNK"",23,0)"
^XMB(3.9,41,2,11226,0)=" S:'PORT PORT=$S($P($G(^HLD(779.1,1,0)),""^"",3)=""P"":5001,1:5026)"
^XMB(3.9,41,2,11227,0)="""RTN"",""HLOTLNK"",24,0)"
^XMB(3.9,41,2,11228,0)=" Q PORT"
^XMB(3.9,41,2,11229,0)="""RTN"",""HLOTLNK"",25,0)"
^XMB(3.9,41,2,11230,0)=" ;"
^XMB(3.9,41,2,11231,0)="""RTN"",""HLOTLNK"",26,0)"
^XMB(3.9,41,2,11232,0)="PORT2(LINKNAME) ;given the name of the link, returns its HLO port"
^XMB(3.9,41,2,11233,0)="""RTN"",""HLOTLNK"",27,0)"
^XMB(3.9,41,2,11234,0)=" Q $$PORT($O(^HLCS(870,""B"",LINKNAME,0)))"
^XMB(3.9,41,2,11235,0)="""RTN"",""HLOTLNK"",28,0)"
^XMB(3.9,41,2,11236,0)=" ;"
^XMB(3.9,41,2,11237,0)="""RTN"",""HLOTLNK"",29,0)"
^XMB(3.9,41,2,11238,0)="STATNUM(LINKIEN) ;"
^XMB(3.9,41,2,11239,0)="""RTN"",""HLOTLNK"",30,0)"
^XMB(3.9,41,2,11240,0)=" ;Given the ien of the link, this function returns the station #."
^XMB(3.9,41,2,11241,0)="""RTN"",""HLOTLNK"",31,0)"
^XMB(3.9,41,2,11242,0)=" ;"
^XMB(3.9,41,2,11243,0)="""RTN"",""HLOTLNK"",32,0)"
^XMB(3.9,41,2,11244,0)=" Q:'$G(LINKIEN) """""
^XMB(3.9,41,2,11245,0)="""RTN"",""HLOTLNK"",33,0)"
^XMB(3.9,41,2,11246,0)=" N INST"
^XMB(3.9,41,2,11247,0)="""RTN"",""HLOTLNK"",34,0)"
^XMB(3.9,41,2,11248,0)=" S INST=$P($G(^HLCS(870,LINKIEN,0)),""^"",2)"
^XMB(3.9,41,2,11249,0)="""RTN"",""HLOTLNK"",35,0)"
^XMB(3.9,41,2,11250,0)=" Q:'INST """""
^XMB(3.9,41,2,11251,0)="""RTN"",""HLOTLNK"",36,0)"
^XMB(3.9,41,2,11252,0)=" Q $P($G(^DIC(4,INST,99)),""^"")"
^XMB(3.9,41,2,11253,0)="""RTN"",""HLOTLNK"",37,0)"
^XMB(3.9,41,2,11254,0)=" ;"
^XMB(3.9,41,2,11255,0)="""RTN"",""HLOTLNK"",38,0)"
^XMB(3.9,41,2,11256,0)="FINDLINK(STATN) ;"
^XMB(3.9,41,2,11257,0)="""RTN"",""HLOTLNK"",39,0)"
^XMB(3.9,41,2,11258,0)=" ;Returns the link ien based on the station # =STATN"
^XMB(3.9,41,2,11259,0)="""RTN"",""HLOTLNK"",40,0)"
^XMB(3.9,41,2,11260,0)=" ;The link found must have a name starting with ""VA"", as these are"
^XMB(3.9,41,2,11261,0)="""RTN"",""HLOTLNK"",41,0)"
^XMB(3.9,41,2,11262,0)=" ;reserved for officially released links associated with VHA institutions"
^XMB(3.9,41,2,11263,0)="""RTN"",""HLOTLNK"",42,0)"
^XMB(3.9,41,2,11264,0)=" ;** EXCEPTION** MPIVA is an official link associated with 200M"
^XMB(3.9,41,2,11265,0)="""RTN"",""HLOTLNK"",43,0)"
^XMB(3.9,41,2,11266,0)=" ;"
^XMB(3.9,41,2,11267,0)="""RTN"",""HLOTLNK"",44,0)"
^XMB(3.9,41,2,11268,0)=" Q:'$L($G(STATN)) 0"
^XMB(3.9,41,2,11269,0)="""RTN"",""HLOTLNK"",45,0)"
^XMB(3.9,41,2,11270,0)=" ;"
^XMB(3.9,41,2,11271,0)="""RTN"",""HLOTLNK"",46,0)"
^XMB(3.9,41,2,11272,0)=" N NAME,IEN"
^XMB(3.9,41,2,11273,0)="""RTN"",""HLOTLNK"",47,0)"
^XMB(3.9,41,2,11274,0)=" S (NAME,IEN)="""""
^XMB(3.9,41,2,11275,0)="""RTN"",""HLOTLNK"",48,0)"
^XMB(3.9,41,2,11276,0)=" F  S NAME=$O(^HLCS(870,""AC"",STATN,NAME)) Q:NAME=""""  I (NAME'=""VA-VIE""),($E(NAME,1,2)=""VA"")!(NAME=""MPIVA"") S IEN=$O(^HLCS(870,""AC"",STATN,NAME,0)) Q"
^XMB(3.9,41,2,11277,0)="""RTN"",""HLOTLNK"",49,0)"
^XMB(3.9,41,2,11278,0)=" Q IEN"
^XMB(3.9,41,2,11279,0)="""RTN"",""HLOTLNK"",50,0)"
^XMB(3.9,41,2,11280,0)=" ;"
^XMB(3.9,41,2,11281,0)="""RTN"",""HLOTLNK"",51,0)"
^XMB(3.9,41,2,11282,0)="GETLINK(LINKNAME,LINK) ;"
^XMB(3.9,41,2,11283,0)="""RTN"",""HLOTLNK"",52,0)"
^XMB(3.9,41,2,11284,0)=" N IEN"
^XMB(3.9,41,2,11285,0)="""RTN"",""HLOTLNK"",53,0)"
^XMB(3.9,41,2,11286,0)=" S IEN=$O(^HLCS(870,""B"",LINKNAME,0))"
^XMB(3.9,41,2,11287,0)="""RTN"",""HLOTLNK"",54,0)"
^XMB(3.9,41,2,11288,0)=" Q:'IEN 0"
^XMB(3.9,41,2,11289,0)="""RTN"",""HLOTLNK"",55,0)"
^XMB(3.9,41,2,11290,0)=" Q $$GET(IEN,.LINK)"
^XMB(3.9,41,2,11291,0)="""RTN"",""HLOTLNK"",56,0)"
^XMB(3.9,41,2,11292,0)="GET(IEN,LINK) ;"
^XMB(3.9,41,2,11293,0)="""RTN"",""HLOTLNK"",57,0)"
^XMB(3.9,41,2,11294,0)=" N NODE,PTR"
^XMB(3.9,41,2,11295,0)="""RTN"",""HLOTLNK"",58,0)"
^XMB(3.9,41,2,11296,0)=" K LINK"
^XMB(3.9,41,2,11297,0)="""RTN"",""HLOTLNK"",59,0)"
^XMB(3.9,41,2,11298,0)=" S NODE=$G(^HLCS(870,IEN,0))"
^XMB(3.9,41,2,11299,0)="""RTN"",""HLOTLNK"",60,0)"
^XMB(3.9,41,2,11300,0)=" Q:NODE="""" 0"
^XMB(3.9,41,2,11301,0)="""RTN"",""HLOTLNK"",61,0)"
^XMB(3.9,41,2,11302,0)=" S LINK(""NAME"")=$P(NODE,""^"")"
^XMB(3.9,41,2,11303,0)="""RTN"",""HLOTLNK"",62,0)"
^XMB(3.9,41,2,11304,0)=" S LINK(""IEN"")=IEN"
^XMB(3.9,41,2,11305,0)="""RTN"",""HLOTLNK"",63,0)"
^XMB(3.9,41,2,11306,0)=" I $P(NODE,""^"",7) D"
^XMB(3.9,41,2,11307,0)="""RTN"",""HLOTLNK"",64,0)"
^XMB(3.9,41,2,11308,0)=" .S LINK(""DOMAIN"")=$P(^DIC(4.2,$P(NODE,""^"",7),0),""^"")"
^XMB(3.9,41,2,11309,0)="""RTN"",""HLOTLNK"",65,0)"
^XMB(3.9,41,2,11310,0)=" .S LINK(""DOMAIN"")=$S($L(LINK(""DOMAIN"")):""HL7.""_LINK(""DOMAIN""),1:"""")"
^XMB(3.9,41,2,11311,0)="""RTN"",""HLOTLNK"",66,0)"
^XMB(3.9,41,2,11312,0)=" I $G(LINK(""DOMAIN""))="""" S LINK(""DOMAIN"")=$P(NODE,""^"",8)"
^XMB(3.9,41,2,11313,0)="""RTN"",""HLOTLNK"",67,0)"
^XMB(3.9,41,2,11314,0)=" S PTR=$P(NODE,""^"",3)"
^XMB(3.9,41,2,11315,0)="""RTN"",""HLOTLNK"",68,0)"
^XMB(3.9,41,2,11316,0)=" S LINK(""LLP"")=$S('PTR:"""",1:$P($G(^HLCS(869.1,PTR,0)),""^""))"
^XMB(3.9,41,2,11317,0)="""RTN"",""HLOTLNK"",69,0)"
^XMB(3.9,41,2,11318,0)=" S LINK(""SERVER"")="""""
^XMB(3.9,41,2,11319,0)="""RTN"",""HLOTLNK"",70,0)"
^XMB(3.9,41,2,11320,0)=" I LINK(""LLP"")=""TCP"" D"
^XMB(3.9,41,2,11321,0)="""RTN"",""HLOTLNK"",71,0)"
^XMB(3.9,41,2,11322,0)=" .S LINK(""SERVER"")=1"
^XMB(3.9,41,2,11323,0)="""RTN"",""HLOTLNK"",72,0)"
^XMB(3.9,41,2,11324,0)=" .S NODE=$G(^HLCS(870,IEN,400))"
^XMB(3.9,41,2,11325,0)="""RTN"",""HLOTLNK"",73,0)"
^XMB(3.9,41,2,11326,0)=" .S LINK(""IP"")=$P(NODE,""^"")"
^XMB(3.9,41,2,11327,0)="""RTN"",""HLOTLNK"",74,0)"
^XMB(3.9,41,2,11328,0)=" .S LINK(""PORT"")=$P(NODE,""^"",8)"
^XMB(3.9,41,2,11329,0)="""RTN"",""HLOTLNK"",75,0)"
^XMB(3.9,41,2,11330,0)=" .S:'LINK(""PORT"") LINK(""PORT"")=$S($P($G(^HLD(779.1,1,0)),""^"",3)=""P"":5001,1:5026)"
^XMB(3.9,41,2,11331,0)="""RTN"",""HLOTLNK"",76,0)"
^XMB(3.9,41,2,11332,0)=" .S:$P(NODE,""^"",3)=""C"" LINK(""SERVER"")=0"
^XMB(3.9,41,2,11333,0)="""RTN"",""HLOTLNK"",77,0)"
^XMB(3.9,41,2,11334,0)=" .I LINK(""SERVER"") S LINK(""SERVER"")=LINK(""SERVER"")_""^""_$P(NODE,""^"",3)"
^XMB(3.9,41,2,11335,0)="""RTN"",""HLOTLNK"",78,0)"
^XMB(3.9,41,2,11336,0)=" Q 1"
^XMB(3.9,41,2,11337,0)="""RTN"",""HLOTLNK"",79,0)"
^XMB(3.9,41,2,11338,0)=" ;"
^XMB(3.9,41,2,11339,0)="""RTN"",""HLOTLNK"",80,0)"
^XMB(3.9,41,2,11340,0)="SET1(LINK,MDOMAIN) ;"
^XMB(3.9,41,2,11341,0)="""RTN"",""HLOTLNK"",81,0)"
^XMB(3.9,41,2,11342,0)=" N DOMAIN"
^XMB(3.9,41,2,11343,0)="""RTN"",""HLOTLNK"",82,0)"
^XMB(3.9,41,2,11344,0)=" Q:'$L(MDOMAIN)"
^XMB(3.9,41,2,11345,0)="""RTN"",""HLOTLNK"",83,0)"
^XMB(3.9,41,2,11346,0)=" S DOMAIN=$P($G(^DIC(4.2,MDOMAIN,0)),""^"")"
^XMB(3.9,41,2,11347,0)="""RTN"",""HLOTLNK"",84,0)"
^XMB(3.9,41,2,11348,0)=" S DOMAIN=$S($L(DOMAIN):""HL7.""_DOMAIN,1:"""")"
^XMB(3.9,41,2,11349,0)="""RTN"",""HLOTLNK"",85,0)"
^XMB(3.9,41,2,11350,0)=" I DOMAIN'="""" S ^HLCS(870,""AD"",""TCP"",DOMAIN,LINK)="""""
^XMB(3.9,41,2,11351,0)="""RTN"",""HLOTLNK"",86,0)"
^XMB(3.9,41,2,11352,0)=" Q"
^XMB(3.9,41,2,11353,0)="""RTN"",""HLOTLNK"",87,0)"
^XMB(3.9,41,2,11354,0)="KILL1(LINK,MDOMAIN) ;"
^XMB(3.9,41,2,11355,0)="""RTN"",""HLOTLNK"",88,0)"
^XMB(3.9,41,2,11356,0)=" N DOMAIN"
^XMB(3.9,41,2,11357,0)="""RTN"",""HLOTLNK"",89,0)"
^XMB(3.9,41,2,11358,0)=" Q:'$L(MDOMAIN)"
^XMB(3.9,41,2,11359,0)="""RTN"",""HLOTLNK"",90,0)"
^XMB(3.9,41,2,11360,0)=" S DOMAIN=$P($G(^DIC(4.2,MDOMAIN,0)),""^"")"
^XMB(3.9,41,2,11361,0)="""RTN"",""HLOTLNK"",91,0)"
^XMB(3.9,41,2,11362,0)=" S DOMAIN=$S($L(DOMAIN):""HL7.""_DOMAIN,1:"""")"
^XMB(3.9,41,2,11363,0)="""RTN"",""HLOTLNK"",92,0)"
^XMB(3.9,41,2,11364,0)=" I DOMAIN'="""" K ^HLCS(870,""AD"",""TCP"",DOMAIN,LINK)"
^XMB(3.9,41,2,11365,0)="""RTN"",""HLOTLNK"",93,0)"
^XMB(3.9,41,2,11366,0)=" Q"
^XMB(3.9,41,2,11367,0)="""RTN"",""HLOTLNK"",94,0)"
^XMB(3.9,41,2,11368,0)="SET2(LINK,DOMAIN) ;"
^XMB(3.9,41,2,11369,0)="""RTN"",""HLOTLNK"",95,0)"
^XMB(3.9,41,2,11370,0)=" I DOMAIN'="""" S ^HLCS(870,""AD"",""TCP"",DOMAIN,LINK)="""""
^XMB(3.9,41,2,11371,0)="""RTN"",""HLOTLNK"",96,0)"
^XMB(3.9,41,2,11372,0)=" Q"
^XMB(3.9,41,2,11373,0)="""RTN"",""HLOTLNK"",97,0)"
^XMB(3.9,41,2,11374,0)="KILL2(LINK,DOMAIN) ;"
^XMB(3.9,41,2,11375,0)="""RTN"",""HLOTLNK"",98,0)"
^XMB(3.9,41,2,11376,0)=" I DOMAIN'="""" K ^HLCS(870,""AD"",""TCP"",DOMAIN,LINK)"
^XMB(3.9,41,2,11377,0)="""RTN"",""HLOTLNK"",99,0)"
^XMB(3.9,41,2,11378,0)=" Q"
^XMB(3.9,41,2,11379,0)="""RTN"",""HLOTLNK"",100,0)"
^XMB(3.9,41,2,11380,0)="SET3(LINK,DEVICE) ;"
^XMB(3.9,41,2,11381,0)="""RTN"",""HLOTLNK"",101,0)"
^XMB(3.9,41,2,11382,0)=" Q:'DEVICE"
^XMB(3.9,41,2,11383,0)="""RTN"",""HLOTLNK"",102,0)"
^XMB(3.9,41,2,11384,0)=" S ^HLCS(870,""AD"",""HLLP"",DEVICE,LINK)="""""
^XMB(3.9,41,2,11385,0)="""RTN"",""HLOTLNK"",103,0)"
^XMB(3.9,41,2,11386,0)=" Q"
^XMB(3.9,41,2,11387,0)="""RTN"",""HLOTLNK"",104,0)"
^XMB(3.9,41,2,11388,0)="KILL3(LINK,DEVICE) ;"
^XMB(3.9,41,2,11389,0)="""RTN"",""HLOTLNK"",105,0)"
^XMB(3.9,41,2,11390,0)=" Q:'DEVICE"
^XMB(3.9,41,2,11391,0)="""RTN"",""HLOTLNK"",106,0)"
^XMB(3.9,41,2,11392,0)=" S ^HLCS(870,""AD"",""HLLP"",DEVICE,LINK)="""""
^XMB(3.9,41,2,11393,0)="""RTN"",""HLOTLNK"",107,0)"
^XMB(3.9,41,2,11394,0)=" Q"
^XMB(3.9,41,2,11395,0)="""RTN"",""HLOTLNK"",108,0)"
^XMB(3.9,41,2,11396,0)="LLP(LINKNAME) ;"
^XMB(3.9,41,2,11397,0)="""RTN"",""HLOTLNK"",109,0)"
^XMB(3.9,41,2,11398,0)=" ;finds the type of LLP for a named link"
^XMB(3.9,41,2,11399,0)="""RTN"",""HLOTLNK"",110,0)"
^XMB(3.9,41,2,11400,0)=" N IEN,LLP"
^XMB(3.9,41,2,11401,0)="""RTN"",""HLOTLNK"",111,0)"
^XMB(3.9,41,2,11402,0)=" S IEN=$O(^HLCS(870,""B"",LINKNAME,0))"
^XMB(3.9,41,2,11403,0)="""RTN"",""HLOTLNK"",112,0)"
^XMB(3.9,41,2,11404,0)=" Q:'IEN """""
^XMB(3.9,41,2,11405,0)="""RTN"",""HLOTLNK"",113,0)"
^XMB(3.9,41,2,11406,0)=" S LLP=$P($G(^HLCS(870,IEN,0)),""^"",3)"
^XMB(3.9,41,2,11407,0)="""RTN"",""HLOTLNK"",114,0)"
^XMB(3.9,41,2,11408,0)=" Q:'LLP """""
^XMB(3.9,41,2,11409,0)="""RTN"",""HLOTLNK"",115,0)"
^XMB(3.9,41,2,11410,0)=" Q $P($G(^HLCS(869.1,LLP,0)),""^"")"
^XMB(3.9,41,2,11411,0)="""RTN"",""HLOTLNK"",116,0)"
^XMB(3.9,41,2,11412,0)=" ;"
^XMB(3.9,41,2,11413,0)="""RTN"",""HLOTLNK"",117,0)"
^XMB(3.9,41,2,11414,0)="DEVICE(LINKNAME) ;"
^XMB(3.9,41,2,11415,0)="""RTN"",""HLOTLNK"",118,0)"
^XMB(3.9,41,2,11416,0)=" N IEN"
^XMB(3.9,41,2,11417,0)="""RTN"",""HLOTLNK"",119,0)"
^XMB(3.9,41,2,11418,0)=" S IEN=$O(^HLCS(870,""B"",LINKNAME,0))"
^XMB(3.9,41,2,11419,0)="""RTN"",""HLOTLNK"",120,0)"
^XMB(3.9,41,2,11420,0)=" Q:'IEN """""
^XMB(3.9,41,2,11421,0)="""RTN"",""HLOTLNK"",121,0)"
^XMB(3.9,41,2,11422,0)=" Q $P($G(^HLCS(870,IEN,200)),""^"")"
^XMB(3.9,41,2,11423,0)="""RTN"",""HLOTLNK"",122,0)"
^XMB(3.9,41,2,11424,0)=" ;"
^XMB(3.9,41,2,11425,0)="""RTN"",""HLOTLNK"",123,0)"
^XMB(3.9,41,2,11426,0)="RTRNLNK(COMP1,COMP2,COMP3) ;"
^XMB(3.9,41,2,11427,0)="""RTN"",""HLOTLNK"",124,0)"
^XMB(3.9,41,2,11428,0)=" ;based on the sending facility from the original header, this function finds the return link, or """" if not successful"
^XMB(3.9,41,2,11429,0)="""RTN"",""HLOTLNK"",125,0)"
^XMB(3.9,41,2,11430,0)=" ;Inputs:"
^XMB(3.9,41,2,11431,0)="""RTN"",""HLOTLNK"",126,0)"
^XMB(3.9,41,2,11432,0)=" ;  COMP1,COMP2,COMP3 - 3 components of the sending facility from the original message"
^XMB(3.9,41,2,11433,0)="""RTN"",""HLOTLNK"",127,0)"
^XMB(3.9,41,2,11434,0)=" ;"
^XMB(3.9,41,2,11435,0)="""RTN"",""HLOTLNK"",128,0)"
^XMB(3.9,41,2,11436,0)=" N LINK,IEN"
^XMB(3.9,41,2,11437,0)="""RTN"",""HLOTLNK"",129,0)"
^XMB(3.9,41,2,11438,0)=" S LINK="""""
^XMB(3.9,41,2,11439,0)="""RTN"",""HLOTLNK"",130,0)"
^XMB(3.9,41,2,11440,0)=" I $G(COMP3)=""DNS"",$P($G(COMP2),"":"")]"""" S LINK=$O(^HLCS(870,""AD"",""TCP"",$P(COMP2,"":""),""""))"
^XMB(3.9,41,2,11441,0)="""RTN"",""HLOTLNK"",131,0)"
^XMB(3.9,41,2,11442,0)=" I LINK="""",$L($G(COMP1)) S IEN=$$FINDLINK(COMP1) S:IEN LINK=$P($G(^HLCS(870,IEN,0)),""^"")"
^XMB(3.9,41,2,11443,0)="""RTN"",""HLOTLNK"",132,0)"
^XMB(3.9,41,2,11444,0)=" Q LINK"
^XMB(3.9,41,2,11445,0)="""RTN"",""HLOTLNK"",133,0)"
^XMB(3.9,41,2,11446,0)=" ;"
^XMB(3.9,41,2,11447,0)="""RTN"",""HLOTLNK"",134,0)"
^XMB(3.9,41,2,11448,0)=" ;HLLP is not implemented in HLO"
^XMB(3.9,41,2,11449,0)="""RTN"",""HLOTLNK"",135,0)"
^XMB(3.9,41,2,11450,0)=" ;I LLP=""HLLP"" N DEVICE S DEVICE=$$DEVICE(FROMLINK) I DEVICE Q $O(^HLCS(870,""AD"",""TCP"",DEVICE,""""))"
^XMB(3.9,41,2,11451,0)="""RTN"",""HLOTLNK"",136,0)"
^XMB(3.9,41,2,11452,0)=" ;Q """""
^XMB(3.9,41,2,11453,0)="""RTN"",""HLOTLNK"",137,0)"
^XMB(3.9,41,2,11454,0)=" ;"
^XMB(3.9,41,2,11455,0)="""RTN"",""HLOTLNK"",138,0)"
^XMB(3.9,41,2,11456,0)="CHKLINK(LINK) ;"
^XMB(3.9,41,2,11457,0)="""RTN"",""HLOTLNK"",139,0)"
^XMB(3.9,41,2,11458,0)=" Q:'$L(LINK) 0"
^XMB(3.9,41,2,11459,0)="""RTN"",""HLOTLNK"",140,0)"
^XMB(3.9,41,2,11460,0)=" Q:'$O(^HLCS(870,""B"",LINK,0)) 0"
^XMB(3.9,41,2,11461,0)="""RTN"",""HLOTLNK"",141,0)"
^XMB(3.9,41,2,11462,0)=" Q 1"
^XMB(3.9,41,2,11463,0)="""RTN"",""HLOUSR"")"
^XMB(3.9,41,2,11464,0)="0^41^B88426707"
^XMB(3.9,41,2,11465,0)="""RTN"",""HLOUSR"",1,0)"
^XMB(3.9,41,2,11466,0)="HLOUSR ;ALB/CJM -ListManager Screen for viewing system status;12 JUN 1997 10:00 am"
^XMB(3.9,41,2,11467,0)="""RTN"",""HLOUSR"",2,0)"
^XMB(3.9,41,2,11468,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995"
^XMB(3.9,41,2,11469,0)="""RTN"",""HLOUSR"",3,0)"
^XMB(3.9,41,2,11470,0)=" ;"
^XMB(3.9,41,2,11471,0)="""RTN"",""HLOUSR"",4,0)"
^XMB(3.9,41,2,11472,0)="EN ;"
^XMB(3.9,41,2,11473,0)="""RTN"",""HLOUSR"",5,0)"
^XMB(3.9,41,2,11474,0)=" ;"
^XMB(3.9,41,2,11475,0)="""RTN"",""HLOUSR"",6,0)"
^XMB(3.9,41,2,11476,0)=" N HLSCREEN,TESTOPEN,HLRFRSH"
^XMB(3.9,41,2,11477,0)="""RTN"",""HLOUSR"",7,0)"
^XMB(3.9,41,2,11478,0)=" D WAIT^DICD"
^XMB(3.9,41,2,11479,0)="""RTN"",""HLOUSR"",8,0)"
^XMB(3.9,41,2,11480,0)=" D EN^VALM(""HLO SYSTEM MONITOR"")"
^XMB(3.9,41,2,11481,0)="""RTN"",""HLOUSR"",9,0)"
^XMB(3.9,41,2,11482,0)=" Q"
^XMB(3.9,41,2,11483,0)="""RTN"",""HLOUSR"",10,0)"
^XMB(3.9,41,2,11484,0)=" ;"
^XMB(3.9,41,2,11485,0)="""RTN"",""HLOUSR"",11,0)"
^XMB(3.9,41,2,11486,0)="BRIEF ;Init variables and list array"
^XMB(3.9,41,2,11487,0)="""RTN"",""HLOUSR"",12,0)"
^XMB(3.9,41,2,11488,0)=" N COUNT,LINK,QUE,FROM,TIME,STATUS,TEMP"
^XMB(3.9,41,2,11489,0)="""RTN"",""HLOUSR"",13,0)"
^XMB(3.9,41,2,11490,0)=" S HLRFRSH=""BRIEF^HLOUSR"""
^XMB(3.9,41,2,11491,0)="""RTN"",""HLOUSR"",14,0)"
^XMB(3.9,41,2,11492,0)=" S (HLSCREEN,VALMSG)=""Brief System Status"""
^XMB(3.9,41,2,11493,0)="""RTN"",""HLOUSR"",15,0)"
^XMB(3.9,41,2,11494,0)=" S VALMCNT=8"
^XMB(3.9,41,2,11495,0)="""RTN"",""HLOUSR"",16,0)"
^XMB(3.9,41,2,11496,0)=" ;K @VALMAR"
^XMB(3.9,41,2,11497,0)="""RTN"",""HLOUSR"",17,0)"
^XMB(3.9,41,2,11498,0)=" D CLEAN^VALM10"
^XMB(3.9,41,2,11499,0)="""RTN"",""HLOUSR"",18,0)"
^XMB(3.9,41,2,11500,0)=" S VALMBG=1"
^XMB(3.9,41,2,11501,0)="""RTN"",""HLOUSR"",19,0)"
^XMB(3.9,41,2,11502,0)=" S VALMBCK=""R"""
^XMB(3.9,41,2,11503,0)="""RTN"",""HLOUSR"",20,0)"
^XMB(3.9,41,2,11504,0)=" K VALMDDF(""COL 2""),VALMDDF(""COL 3""),VALMDDF(""COL 4""),VALMDDF(""COL 5"")"
^XMB(3.9,41,2,11505,0)="""RTN"",""HLOUSR"",21,0)"
^XMB(3.9,41,2,11506,0)=" D CHGCAP^VALM(""COL 1"",""Brief Operational Overview"")"
^XMB(3.9,41,2,11507,0)="""RTN"",""HLOUSR"",22,0)"
^XMB(3.9,41,2,11508,0)=" S @VALMAR@(1,0)=""SYSTEM STATUS:             ""_$S($$CHKSTOP^HLOPROC:""STOPPED"",1:""RUNNING"")"
^XMB(3.9,41,2,11509,0)="""RTN"",""HLOUSR"",23,0)"
^XMB(3.9,41,2,11510,0)=" S @VALMAR@(2,0)=""PROCESS MANAGER:           ""_$S($$RUNNING:""RUNNING"",1:""STOPPED"")"
^XMB(3.9,41,2,11511,0)="""RTN"",""HLOUSR"",24,0)"
^XMB(3.9,41,2,11512,0)=" ;"
^XMB(3.9,41,2,11513,0)="""RTN"",""HLOUSR"",25,0)"
^XMB(3.9,41,2,11514,0)=" S TIME=$P($G(TESTOPEN(""LISTENER"")),""^"",2)"
^XMB(3.9,41,2,11515,0)="""RTN"",""HLOUSR"",26,0)"
^XMB(3.9,41,2,11516,0)=" I TIME,$$FMDIFF^XLFDT($$NOW^XLFDT,TIME,2)<300 D"
^XMB(3.9,41,2,11517,0)="""RTN"",""HLOUSR"",27,0)"
^XMB(3.9,41,2,11518,0)=" .S STATUS=+TESTOPEN(""LISTENER"")"
^XMB(3.9,41,2,11519,0)="""RTN"",""HLOUSR"",28,0)"
^XMB(3.9,41,2,11520,0)=" E  D"
^XMB(3.9,41,2,11521,0)="""RTN"",""HLOUSR"",29,0)"
^XMB(3.9,41,2,11522,0)=" .S STATUS=0"
^XMB(3.9,41,2,11523,0)="""RTN"",""HLOUSR"",30,0)"
^XMB(3.9,41,2,11524,0)=" .S LINK=$P($G(^HLD(779.1,1,0)),""^"",10)"
^XMB(3.9,41,2,11525,0)="""RTN"",""HLOUSR"",31,0)"
^XMB(3.9,41,2,11526,0)=" .I LINK S LINK=$P($G(^HLCS(870,LINK,0)),""^"") Q:'$L(LINK)  S STATUS=$$IFOPEN^HLOUSR1(LINK)"
^XMB(3.9,41,2,11527,0)="""RTN"",""HLOUSR"",32,0)"
^XMB(3.9,41,2,11528,0)=" .S TESTOPEN(""LISTENER"")=STATUS_""^""_$$NOW^XLFDT"
^XMB(3.9,41,2,11529,0)="""RTN"",""HLOUSR"",33,0)"
^XMB(3.9,41,2,11530,0)=" ;"
^XMB(3.9,41,2,11531,0)="""RTN"",""HLOUSR"",34,0)"
^XMB(3.9,41,2,11532,0)=" S @VALMAR@(3,0)=""STANDARD LISTENER:         ""_$S(STATUS:""OPERATIONAL"",1:""NOT OPERATIONAL"")"
^XMB(3.9,41,2,11533,0)="""RTN"",""HLOUSR"",35,0)"
^XMB(3.9,41,2,11534,0)=" ;"
^XMB(3.9,41,2,11535,0)="""RTN"",""HLOUSR"",36,0)"
^XMB(3.9,41,2,11536,0)=" S TIME=$P($G(TESTOPEN(""IE"")),""^"",2)"
^XMB(3.9,41,2,11537,0)="""RTN"",""HLOUSR"",37,0)"
^XMB(3.9,41,2,11538,0)=" I TIME,$$FMDIFF^XLFDT($$NOW^XLFDT,TIME,2)<300 D"
^XMB(3.9,41,2,11539,0)="""RTN"",""HLOUSR"",38,0)"
^XMB(3.9,41,2,11540,0)=" .S STATUS=+TESTOPEN(""IE"")"
^XMB(3.9,41,2,11541,0)="""RTN"",""HLOUSR"",39,0)"
^XMB(3.9,41,2,11542,0)=" E  D"
^XMB(3.9,41,2,11543,0)="""RTN"",""HLOUSR"",40,0)"
^XMB(3.9,41,2,11544,0)=" .S STATUS=$$IFOPEN^HLOUSR1(""VA-VIE"")"
^XMB(3.9,41,2,11545,0)="""RTN"",""HLOUSR"",41,0)"
^XMB(3.9,41,2,11546,0)=" .S TESTOPEN(""IE"")=STATUS_""^""_$$NOW^XLFDT"
^XMB(3.9,41,2,11547,0)="""RTN"",""HLOUSR"",42,0)"
^XMB(3.9,41,2,11548,0)=" S @VALMAR@(4,0)=""INTERFACE ENGINE:          ""_$S(STATUS:""OPERATIONAL"",1:""NOT OPERATIONAL"")"
^XMB(3.9,41,2,11549,0)="""RTN"",""HLOUSR"",43,0)"
^XMB(3.9,41,2,11550,0)=" S @VALMAR@(5,0)=""TASKMAN:                   ""_$S($$TM^%ZTLOAD:""RUNNING"",1:""NOT RUNNING"")"
^XMB(3.9,41,2,11551,0)="""RTN"",""HLOUSR"",44,0)"
^XMB(3.9,41,2,11552,0)=" ;"
^XMB(3.9,41,2,11553,0)="""RTN"",""HLOUSR"",45,0)"
^XMB(3.9,41,2,11554,0)=" S COUNT=0,LINK="""""
^XMB(3.9,41,2,11555,0)="""RTN"",""HLOUSR"",46,0)"
^XMB(3.9,41,2,11556,0)=" F  S LINK=$O(^HLTMP(""FAILING LINKS"",LINK)) Q:LINK=""""  D"
^XMB(3.9,41,2,11557,0)="""RTN"",""HLOUSR"",47,0)"
^XMB(3.9,41,2,11558,0)=" .N TIME,QUE"
^XMB(3.9,41,2,11559,0)="""RTN"",""HLOUSR"",48,0)"
^XMB(3.9,41,2,11560,0)=" .S TIME=$G(^HLTMP(""FAILING LINKS"",LINK)) Q:TIME="""""
^XMB(3.9,41,2,11561,0)="""RTN"",""HLOUSR"",49,0)"
^XMB(3.9,41,2,11562,0)=" .Q:$$HDIFF^XLFDT($H,TIME,2)<300"
^XMB(3.9,41,2,11563,0)="""RTN"",""HLOUSR"",50,0)"
^XMB(3.9,41,2,11564,0)=" .S COUNT=COUNT+1"
^XMB(3.9,41,2,11565,0)="""RTN"",""HLOUSR"",51,0)"
^XMB(3.9,41,2,11566,0)=" S @VALMAR@(6,0)=""DOWN LINKS:                ""_+COUNT"
^XMB(3.9,41,2,11567,0)="""RTN"",""HLOUSR"",52,0)"
^XMB(3.9,41,2,11568,0)=" S @VALMAR@(7,0)=""CLIENT LINK PROCESSES:     ""_+$G(^HLC(""HL7 PROCESS COUNTS"",""RUNNING"",""OUTGOING CLIENT LINK""))"
^XMB(3.9,41,2,11569,0)="""RTN"",""HLOUSR"",53,0)"
^XMB(3.9,41,2,11570,0)=" S @VALMAR@(8,0)=""IN-FILER PROCESSES:        ""_+$G(^HLC(""HL7 PROCESS COUNTS"",""RUNNING"",""INCOMING QUEUES""))"
^XMB(3.9,41,2,11571,0)="""RTN"",""HLOUSR"",54,0)"
^XMB(3.9,41,2,11572,0)=" S COUNT=0,LINK="""""
^XMB(3.9,41,2,11573,0)="""RTN"",""HLOUSR"",55,0)"
^XMB(3.9,41,2,11574,0)=" F  S LINK=$O(^HLC(""QUEUECOUNT"",""OUT"",LINK)) Q:LINK=""""  S QUE=""""  F  S QUE=$O(^(LINK,QUE)) Q:QUE=""""  S COUNT=COUNT+$G(^(QUE))"
^XMB(3.9,41,2,11575,0)="""RTN"",""HLOUSR"",56,0)"
^XMB(3.9,41,2,11576,0)=" S @VALMAR@(9,0)=""MESSAGES PENDING TRANSMISSION:      ""_+COUNT"
^XMB(3.9,41,2,11577,0)="""RTN"",""HLOUSR"",57,0)"
^XMB(3.9,41,2,11578,0)=" S TEMP=""STOPPED OUTGOING QUEUES: """
^XMB(3.9,41,2,11579,0)="""RTN"",""HLOUSR"",58,0)"
^XMB(3.9,41,2,11580,0)=" S COUNT=0,QUE="""""
^XMB(3.9,41,2,11581,0)="""RTN"",""HLOUSR"",59,0)"
^XMB(3.9,41,2,11582,0)=" F  S QUE=$O(^HLTMP(""STOPPED QUEUES"",""OUT"",QUE)) Q:QUE=""""  S COUNT=COUNT+1 Q:COUNT>4  S:COUNT=1 TEMP=TEMP_QUE S:""23""[COUNT TEMP=TEMP_""; ""_QUE S:COUNT=4 TEMP=TEMP_"" ..."""
^XMB(3.9,41,2,11583,0)="""RTN"",""HLOUSR"",60,0)"
^XMB(3.9,41,2,11584,0)=" S @VALMAR@(10,0)=TEMP"
^XMB(3.9,41,2,11585,0)="""RTN"",""HLOUSR"",61,0)"
^XMB(3.9,41,2,11586,0)=" S COUNT=0,QUE="""""
^XMB(3.9,41,2,11587,0)="""RTN"",""HLOUSR"",62,0)"
^XMB(3.9,41,2,11588,0)=" F  S QUE=$O(^HLC(""QUEUECOUNT"",""IN"",QUE)) Q:QUE=""""  S FROM=""""  F  S FROM=$O(^(QUE,FROM)) Q:FROM=""""  S COUNT=COUNT+$G(^(FROM))"
^XMB(3.9,41,2,11589,0)="""RTN"",""HLOUSR"",63,0)"
^XMB(3.9,41,2,11590,0)=" S @VALMAR@(11,0)=""MESSAGES PENDING ON APPLICATIONS:   ""_+COUNT"
^XMB(3.9,41,2,11591,0)="""RTN"",""HLOUSR"",64,0)"
^XMB(3.9,41,2,11592,0)=" S TEMP=""STOPPED INCOMING QUEUES: """
^XMB(3.9,41,2,11593,0)="""RTN"",""HLOUSR"",65,0)"
^XMB(3.9,41,2,11594,0)=" S COUNT=0,QUE="""""
^XMB(3.9,41,2,11595,0)="""RTN"",""HLOUSR"",66,0)"
^XMB(3.9,41,2,11596,0)=" F  S QUE=$O(^HLTMP(""STOPPED QUEUES"",""IN"",QUE)) Q:QUE=""""  S COUNT=COUNT+1 Q:COUNT>4  S:COUNT=1 TEMP=TEMP_QUE S:""23""[COUNT TEMP=TEMP_""; ""_QUE S:COUNT=4 TEMP=TEMP_"" ..."""
^XMB(3.9,41,2,11597,0)="""RTN"",""HLOUSR"",67,0)"
^XMB(3.9,41,2,11598,0)=" S @VALMAR@(12,0)=TEMP"
^XMB(3.9,41,2,11599,0)="""RTN"",""HLOUSR"",68,0)"
^XMB(3.9,41,2,11600,0)=" S @VALMAR@(13,0)=""FILE 777 RECORD COUNT:              ""_$P($G(^HLTMP(""FILE 777 RECORD COUNT"")),""^"")_""     --> as of ""_$$FMTE^XLFDT($P($G(^HLTMP(""FILE 777 RECORD COUNT"")),""^"",2))"
^XMB(3.9,41,2,11601,0)="""RTN"",""HLOUSR"",69,0)"
^XMB(3.9,41,2,11602,0)=" S @VALMAR@(14,0)=""FILE 778 RECORD COUNT:              ""_$P($G(^HLTMP(""FILE 778 RECORD COUNT"")),""^"")_""     --> as of ""_$$FMTE^XLFDT($P($G(^HLTMP(""FILE 778 RECORD COUNT"")),""^"",2))"
^XMB(3.9,41,2,11603,0)="""RTN"",""HLOUSR"",70,0)"
^XMB(3.9,41,2,11604,0)=" Q"
^XMB(3.9,41,2,11605,0)="""RTN"",""HLOUSR"",71,0)"
^XMB(3.9,41,2,11606,0)=" ;"
^XMB(3.9,41,2,11607,0)="""RTN"",""HLOUSR"",72,0)"
^XMB(3.9,41,2,11608,0)=" ;"
^XMB(3.9,41,2,11609,0)="""RTN"",""HLOUSR"",73,0)"
^XMB(3.9,41,2,11610,0)="HELP ;Help code"
^XMB(3.9,41,2,11611,0)="""RTN"",""HLOUSR"",74,0)"
^XMB(3.9,41,2,11612,0)=" S X=""?"" D DISP^XQORM1 W !!"
^XMB(3.9,41,2,11613,0)="""RTN"",""HLOUSR"",75,0)"
^XMB(3.9,41,2,11614,0)=" Q"
^XMB(3.9,41,2,11615,0)="""RTN"",""HLOUSR"",76,0)"
^XMB(3.9,41,2,11616,0)=" ;"
^XMB(3.9,41,2,11617,0)="""RTN"",""HLOUSR"",77,0)"
^XMB(3.9,41,2,11618,0)="EXIT ;Exit code"
^XMB(3.9,41,2,11619,0)="""RTN"",""HLOUSR"",78,0)"
^XMB(3.9,41,2,11620,0)=" D CLEAN^VALM10"
^XMB(3.9,41,2,11621,0)="""RTN"",""HLOUSR"",79,0)"
^XMB(3.9,41,2,11622,0)=" D CLEAR^VALM1"
^XMB(3.9,41,2,11623,0)="""RTN"",""HLOUSR"",80,0)"
^XMB(3.9,41,2,11624,0)=" ;"
^XMB(3.9,41,2,11625,0)="""RTN"",""HLOUSR"",81,0)"
^XMB(3.9,41,2,11626,0)=" Q"
^XMB(3.9,41,2,11627,0)="""RTN"",""HLOUSR"",82,0)"
^XMB(3.9,41,2,11628,0)=" ;"
^XMB(3.9,41,2,11629,0)="""RTN"",""HLOUSR"",83,0)"
^XMB(3.9,41,2,11630,0)="EXPND ;Expand code"
^XMB(3.9,41,2,11631,0)="""RTN"",""HLOUSR"",84,0)"
^XMB(3.9,41,2,11632,0)=" Q"
^XMB(3.9,41,2,11633,0)="""RTN"",""HLOUSR"",85,0)"
^XMB(3.9,41,2,11634,0)=" ;"
^XMB(3.9,41,2,11635,0)="""RTN"",""HLOUSR"",86,0)"
^XMB(3.9,41,2,11636,0)="PROCS ;"
^XMB(3.9,41,2,11637,0)="""RTN"",""HLOUSR"",87,0)"
^XMB(3.9,41,2,11638,0)=" S HLRFRSH=""PROCS^HLOUSR"""
^XMB(3.9,41,2,11639,0)="""RTN"",""HLOUSR"",88,0)"
^XMB(3.9,41,2,11640,0)=" ;K @VALMAR"
^XMB(3.9,41,2,11641,0)="""RTN"",""HLOUSR"",89,0)"
^XMB(3.9,41,2,11642,0)=" D CLEAN^VALM10"
^XMB(3.9,41,2,11643,0)="""RTN"",""HLOUSR"",90,0)"
^XMB(3.9,41,2,11644,0)=" S VALMCNT=0"
^XMB(3.9,41,2,11645,0)="""RTN"",""HLOUSR"",91,0)"
^XMB(3.9,41,2,11646,0)=" S VALMBCK=""R"""
^XMB(3.9,41,2,11647,0)="""RTN"",""HLOUSR"",92,0)"
^XMB(3.9,41,2,11648,0)=" S VALMDDF(""COL 2"")=""COL 2^35^10^MIN^H"""
^XMB(3.9,41,2,11649,0)="""RTN"",""HLOUSR"",93,0)"
^XMB(3.9,41,2,11650,0)=" S VALMDDF(""COL 3"")=""COL 3^47^10^MAX^H"""
^XMB(3.9,41,2,11651,0)="""RTN"",""HLOUSR"",94,0)"
^XMB(3.9,41,2,11652,0)=" S VALMDDF(""COL 4"")=""COL 4^59^10^#RUNNING^H"""
^XMB(3.9,41,2,11653,0)="""RTN"",""HLOUSR"",95,0)"
^XMB(3.9,41,2,11654,0)=" S VALMDDF(""COL 5"")=""COL 5^71^10^#QUEUED^IOBON"""
^XMB(3.9,41,2,11655,0)="""RTN"",""HLOUSR"",96,0)"
^XMB(3.9,41,2,11656,0)=" D CHGCAP^VALM(""COL 1"",""Process Type"")"
^XMB(3.9,41,2,11657,0)="""RTN"",""HLOUSR"",97,0)"
^XMB(3.9,41,2,11658,0)=" N IEN"
^XMB(3.9,41,2,11659,0)="""RTN"",""HLOUSR"",98,0)"
^XMB(3.9,41,2,11660,0)=" S IEN=0"
^XMB(3.9,41,2,11661,0)="""RTN"",""HLOUSR"",99,0)"
^XMB(3.9,41,2,11662,0)=" F  S IEN=$O(^HLD(779.3,""C"",1,IEN)) Q:'IEN  D"
^XMB(3.9,41,2,11663,0)="""RTN"",""HLOUSR"",100,0)"
^XMB(3.9,41,2,11664,0)=" .N PROC"
^XMB(3.9,41,2,11665,0)="""RTN"",""HLOUSR"",101,0)"
^XMB(3.9,41,2,11666,0)=" .Q:'$$GETPROC^HLOPROC1(IEN,.PROC)"
^XMB(3.9,41,2,11667,0)="""RTN"",""HLOUSR"",102,0)"
^XMB(3.9,41,2,11668,0)=" .Q:PROC(""NAME"")=""VMS TCP LISTENER"""
^XMB(3.9,41,2,11669,0)="""RTN"",""HLOUSR"",103,0)"
^XMB(3.9,41,2,11670,0)=" .S VALMCNT=VALMCNT+1"
^XMB(3.9,41,2,11671,0)="""RTN"",""HLOUSR"",104,0)"
^XMB(3.9,41,2,11672,0)=" .S @VALMAR@(VALMCNT,0)=$$LJ(PROC(""NAME""),30)_$$RJ(PROC(""MINIMUM""),6)_$$RJ(PROC(""MAXIMUM""),12)_$$RJ(+$G(^HLC(""HL7 PROCESS COUNTS"",""RUNNING"",PROC(""NAME""))),14)_$$RJ(+$G(^HLC(""HL7 PROCESS COUNTS"",""QUEUED"",PROC(""NAME""))),12)"
^XMB(3.9,41,2,11673,0)="""RTN"",""HLOUSR"",105,0)"
^XMB(3.9,41,2,11674,0)=" S VALMCNT=VALMCNT+1,@VALMAR@(VALMCNT,0)="""""
^XMB(3.9,41,2,11675,0)="""RTN"",""HLOUSR"",106,0)"
^XMB(3.9,41,2,11676,0)=" S IEN="""""
^XMB(3.9,41,2,11677,0)="""RTN"",""HLOUSR"",107,0)"
^XMB(3.9,41,2,11678,0)=" F  S IEN=$O(^HLTMP(""HL7 RUNNING PROCESSES"",IEN)) Q:IEN=""""  D"
^XMB(3.9,41,2,11679,0)="""RTN"",""HLOUSR"",108,0)"
^XMB(3.9,41,2,11680,0)=" .N NODE"
^XMB(3.9,41,2,11681,0)="""RTN"",""HLOUSR"",109,0)"
^XMB(3.9,41,2,11682,0)=" .S NODE=$G(^HLTMP(""HL7 RUNNING PROCESSES"",IEN))"
^XMB(3.9,41,2,11683,0)="""RTN"",""HLOUSR"",110,0)"
^XMB(3.9,41,2,11684,0)=" .Q:NODE="""""
^XMB(3.9,41,2,11685,0)="""RTN"",""HLOUSR"",111,0)"
^XMB(3.9,41,2,11686,0)=" .S VALMCNT=VALMCNT+1"
^XMB(3.9,41,2,11687,0)="""RTN"",""HLOUSR"",112,0)"
^XMB(3.9,41,2,11688,0)=" .S @VALMAR@(VALMCNT,0)=""$J: ""_$$LJ(IEN,9)_"" ->""_$$CJ($P(NODE,""^"",3),28)_""<- started at ""_$$HTE^XLFDT($P(NODE,""^""))"
^XMB(3.9,41,2,11689,0)="""RTN"",""HLOUSR"",113,0)"
^XMB(3.9,41,2,11690,0)=" Q"
^XMB(3.9,41,2,11691,0)="""RTN"",""HLOUSR"",114,0)"
^XMB(3.9,41,2,11692,0)="DOWNLINK ;"
^XMB(3.9,41,2,11693,0)="""RTN"",""HLOUSR"",115,0)"
^XMB(3.9,41,2,11694,0)=" N LINK"
^XMB(3.9,41,2,11695,0)="""RTN"",""HLOUSR"",116,0)"
^XMB(3.9,41,2,11696,0)=" D CLEAN^VALM10"
^XMB(3.9,41,2,11697,0)="""RTN"",""HLOUSR"",117,0)"
^XMB(3.9,41,2,11698,0)=" ;K @VALMAR"
^XMB(3.9,41,2,11699,0)="""RTN"",""HLOUSR"",118,0)"
^XMB(3.9,41,2,11700,0)=" S (HLSCREEN,VALMSG)=""Down Client Links"""
^XMB(3.9,41,2,11701,0)="""RTN"",""HLOUSR"",119,0)"
^XMB(3.9,41,2,11702,0)=" S HLRFRSH=""DOWNLINK^HLOUSR"""
^XMB(3.9,41,2,11703,0)="""RTN"",""HLOUSR"",120,0)"
^XMB(3.9,41,2,11704,0)=" S VALMCNT=0"
^XMB(3.9,41,2,11705,0)="""RTN"",""HLOUSR"",121,0)"
^XMB(3.9,41,2,11706,0)=" S VALMBCK=""R"""
^XMB(3.9,41,2,11707,0)="""RTN"",""HLOUSR"",122,0)"
^XMB(3.9,41,2,11708,0)=" S VALMDDF(""COL 2"")=""COL 2^20^20^Pending Messages^H"""
^XMB(3.9,41,2,11709,0)="""RTN"",""HLOUSR"",123,0)"
^XMB(3.9,41,2,11710,0)=" S VALMDDF(""COL 3"")=""COL 3^47^20^Date/Time Down^H"""
^XMB(3.9,41,2,11711,0)="""RTN"",""HLOUSR"",124,0)"
^XMB(3.9,41,2,11712,0)=" K VALMDDF(""COL 4""),VALMDDF(""COL 5"")"
^XMB(3.9,41,2,11713,0)="""RTN"",""HLOUSR"",125,0)"
^XMB(3.9,41,2,11714,0)=" D CHGCAP^VALM(""COL 1"",""Client Link"")"
^XMB(3.9,41,2,11715,0)="""RTN"",""HLOUSR"",126,0)"
^XMB(3.9,41,2,11716,0)=" S LINK="""""
^XMB(3.9,41,2,11717,0)="""RTN"",""HLOUSR"",127,0)"
^XMB(3.9,41,2,11718,0)=" F  S LINK=$O(^HLTMP(""FAILING LINKS"",LINK)) Q:LINK=""""  D"
^XMB(3.9,41,2,11719,0)="""RTN"",""HLOUSR"",128,0)"
^XMB(3.9,41,2,11720,0)=" .N TIME,COUNT,QUE"
^XMB(3.9,41,2,11721,0)="""RTN"",""HLOUSR"",129,0)"
^XMB(3.9,41,2,11722,0)=" .S TIME=$G(^(LINK)) Q:TIME="""""
^XMB(3.9,41,2,11723,0)="""RTN"",""HLOUSR"",130,0)"
^XMB(3.9,41,2,11724,0)=" .Q:$$HDIFF^XLFDT($H,TIME,2)<300"
^XMB(3.9,41,2,11725,0)="""RTN"",""HLOUSR"",131,0)"
^XMB(3.9,41,2,11726,0)=" .S TIME=$$HTE^XLFDT(TIME)"
^XMB(3.9,41,2,11727,0)="""RTN"",""HLOUSR"",132,0)"
^XMB(3.9,41,2,11728,0)=" .S COUNT=0"
^XMB(3.9,41,2,11729,0)="""RTN"",""HLOUSR"",133,0)"
^XMB(3.9,41,2,11730,0)=" .S QUE="""""
^XMB(3.9,41,2,11731,0)="""RTN"",""HLOUSR"",134,0)"
^XMB(3.9,41,2,11732,0)=" .F  S QUE=$O(^HLC(""QUEUECOUNT"",""OUT"",LINK,QUE)) Q:QUE=""""  S COUNT=COUNT+$G(^(QUE))"
^XMB(3.9,41,2,11733,0)="""RTN"",""HLOUSR"",135,0)"
^XMB(3.9,41,2,11734,0)=" .S VALMCNT=VALMCNT+1"
^XMB(3.9,41,2,11735,0)="""RTN"",""HLOUSR"",136,0)"
^XMB(3.9,41,2,11736,0)=" .S @VALMAR@(VALMCNT,0)=$$LJ(LINK,15)_$$RJ(COUNT,15)_""    ""_$$RJ(TIME,30)"
^XMB(3.9,41,2,11737,0)="""RTN"",""HLOUSR"",137,0)"
^XMB(3.9,41,2,11738,0)=" Q"
^XMB(3.9,41,2,11739,0)="""RTN"",""HLOUSR"",138,0)"
^XMB(3.9,41,2,11740,0)=" ;"
^XMB(3.9,41,2,11741,0)="""RTN"",""HLOUSR"",139,0)"
^XMB(3.9,41,2,11742,0)="OUTQUEUE ;"
^XMB(3.9,41,2,11743,0)="""RTN"",""HLOUSR"",140,0)"
^XMB(3.9,41,2,11744,0)=" N LINK"
^XMB(3.9,41,2,11745,0)="""RTN"",""HLOUSR"",141,0)"
^XMB(3.9,41,2,11746,0)=" D CLEAN^VALM10"
^XMB(3.9,41,2,11747,0)="""RTN"",""HLOUSR"",142,0)"
^XMB(3.9,41,2,11748,0)=" ;K @VALMAR"
^XMB(3.9,41,2,11749,0)="""RTN"",""HLOUSR"",143,0)"
^XMB(3.9,41,2,11750,0)=" S HLRFRSH=""OUTQUEUE^HLOUSR"""
^XMB(3.9,41,2,11751,0)="""RTN"",""HLOUSR"",144,0)"
^XMB(3.9,41,2,11752,0)=" S (HLSCREEN,VALMSG)=""Outgoing Queues *down links !stopped queues"""
^XMB(3.9,41,2,11753,0)="""RTN"",""HLOUSR"",145,0)"
^XMB(3.9,41,2,11754,0)=" S VALMCNT=0"
^XMB(3.9,41,2,11755,0)="""RTN"",""HLOUSR"",146,0)"
^XMB(3.9,41,2,11756,0)=" S VALMBCK=""R"""
^XMB(3.9,41,2,11757,0)="""RTN"",""HLOUSR"",147,0)"
^XMB(3.9,41,2,11758,0)=" S VALMDDF(""COL 1"")=""COL 1^2^20^ Link^H"""
^XMB(3.9,41,2,11759,0)="""RTN"",""HLOUSR"",148,0)"
^XMB(3.9,41,2,11760,0)=" S VALMDDF(""COL 2"")=""COL 2^28^20^Queue^H"""
^XMB(3.9,41,2,11761,0)="""RTN"",""HLOUSR"",149,0)"
^XMB(3.9,41,2,11762,0)=" S VALMDDF(""COL 3"")=""COL 3^50^20^Count^H"""
^XMB(3.9,41,2,11763,0)="""RTN"",""HLOUSR"",150,0)"
^XMB(3.9,41,2,11764,0)=" K VALMDDF(""COL 4""),VALMDDF(""COL 5"")"
^XMB(3.9,41,2,11765,0)="""RTN"",""HLOUSR"",151,0)"
^XMB(3.9,41,2,11766,0)=" D CHGCAP^VALM(""COL 1"","" Link"")"
^XMB(3.9,41,2,11767,0)="""RTN"",""HLOUSR"",152,0)"
^XMB(3.9,41,2,11768,0)=" S LINK="""""
^XMB(3.9,41,2,11769,0)="""RTN"",""HLOUSR"",153,0)"
^XMB(3.9,41,2,11770,0)=" F  S LINK=$O(^HLC(""QUEUECOUNT"",""OUT"",LINK)) Q:LINK=""""  D"
^XMB(3.9,41,2,11771,0)="""RTN"",""HLOUSR"",154,0)"
^XMB(3.9,41,2,11772,0)=" .N COUNT,QUE,SHOW"
^XMB(3.9,41,2,11773,0)="""RTN"",""HLOUSR"",155,0)"
^XMB(3.9,41,2,11774,0)=" .S SHOW=LINK"
^XMB(3.9,41,2,11775,0)="""RTN"",""HLOUSR"",156,0)"
^XMB(3.9,41,2,11776,0)=" .I $D(^HLTMP(""FAILING LINKS"",SHOW)) S SHOW=""*""_SHOW"
^XMB(3.9,41,2,11777,0)="""RTN"",""HLOUSR"",157,0)"
^XMB(3.9,41,2,11778,0)=" .S QUE="""""
^XMB(3.9,41,2,11779,0)="""RTN"",""HLOUSR"",158,0)"
^XMB(3.9,41,2,11780,0)=" .F  S QUE=$O(^HLC(""QUEUECOUNT"",""OUT"",LINK,QUE)) Q:QUE=""""  D"
^XMB(3.9,41,2,11781,0)="""RTN"",""HLOUSR"",159,0)"
^XMB(3.9,41,2,11782,0)=" ..S COUNT=$G(^HLC(""QUEUECOUNT"",""OUT"",LINK,QUE))"
^XMB(3.9,41,2,11783,0)="""RTN"",""HLOUSR"",160,0)"
^XMB(3.9,41,2,11784,0)=" ..Q:'COUNT"
^XMB(3.9,41,2,11785,0)="""RTN"",""HLOUSR"",161,0)"
^XMB(3.9,41,2,11786,0)=" ..S VALMCNT=VALMCNT+1"
^XMB(3.9,41,2,11787,0)="""RTN"",""HLOUSR"",162,0)"
^XMB(3.9,41,2,11788,0)=" ..I $E(SHOW)=""*"" D"
^XMB(3.9,41,2,11789,0)="""RTN"",""HLOUSR"",163,0)"
^XMB(3.9,41,2,11790,0)=" ...S @VALMAR@(VALMCNT,0)=$$LJ(SHOW,20)_$$CJ($S($$STOPPED^HLOQUE(""OUT"",QUE):""!"",1:"""")_QUE,21)_""   ""_$$RJ(COUNT,10),SHOW="""""
^XMB(3.9,41,2,11791,0)="""RTN"",""HLOUSR"",164,0)"
^XMB(3.9,41,2,11792,0)=" ...D CNTRL^VALM10(VALMCNT,1,1,IOBON,IOBOFF)"
^XMB(3.9,41,2,11793,0)="""RTN"",""HLOUSR"",165,0)"
^XMB(3.9,41,2,11794,0)=" ..E  S @VALMAR@(VALMCNT,0)=$$LJ(SHOW,20)_$$CJ($S($$STOPPED^HLOQUE(""OUT"",QUE):""!"",1:"""")_QUE,21)_""   ""_$$RJ(COUNT,10),SHOW="""""
^XMB(3.9,41,2,11795,0)="""RTN"",""HLOUSR"",166,0)"
^XMB(3.9,41,2,11796,0)=" Q"
^XMB(3.9,41,2,11797,0)="""RTN"",""HLOUSR"",167,0)"
^XMB(3.9,41,2,11798,0)=" ;"
^XMB(3.9,41,2,11799,0)="""RTN"",""HLOUSR"",168,0)"
^XMB(3.9,41,2,11800,0)="INQUEUE ;"
^XMB(3.9,41,2,11801,0)="""RTN"",""HLOUSR"",169,0)"
^XMB(3.9,41,2,11802,0)=" N FROM"
^XMB(3.9,41,2,11803,0)="""RTN"",""HLOUSR"",170,0)"
^XMB(3.9,41,2,11804,0)=" D CLEAN^VALM10"
^XMB(3.9,41,2,11805,0)="""RTN"",""HLOUSR"",171,0)"
^XMB(3.9,41,2,11806,0)=" ;K @VALMAR"
^XMB(3.9,41,2,11807,0)="""RTN"",""HLOUSR"",172,0)"
^XMB(3.9,41,2,11808,0)=" S HLRFRSH=""INQUEUE^HLOUSR"""
^XMB(3.9,41,2,11809,0)="""RTN"",""HLOUSR"",173,0)"
^XMB(3.9,41,2,11810,0)=" S (HLSCREEN,VALMSG)=""Incoming Queues ('!' = stopped queues)"""
^XMB(3.9,41,2,11811,0)="""RTN"",""HLOUSR"",174,0)"
^XMB(3.9,41,2,11812,0)=" S VALMCNT=0"
^XMB(3.9,41,2,11813,0)="""RTN"",""HLOUSR"",175,0)"
^XMB(3.9,41,2,11814,0)=" S VALMBCK=""R"""
^XMB(3.9,41,2,11815,0)="""RTN"",""HLOUSR"",176,0)"
^XMB(3.9,41,2,11816,0)=" S VALMDDF(""COL 1"")=""COL 1^1^40^ From^H"""
^XMB(3.9,41,2,11817,0)="""RTN"",""HLOUSR"",177,0)"
^XMB(3.9,41,2,11818,0)=" S VALMDDF(""COL 2"")=""COL 2^45^20^Queue^H"""
^XMB(3.9,41,2,11819,0)="""RTN"",""HLOUSR"",178,0)"
^XMB(3.9,41,2,11820,0)=" S VALMDDF(""COL 3"")=""COL 3^70^10^Count^H"""
^XMB(3.9,41,2,11821,0)="""RTN"",""HLOUSR"",179,0)"
^XMB(3.9,41,2,11822,0)=" K VALMDDF(""COL 4""),VALMDDF(""COL 5"")"
^XMB(3.9,41,2,11823,0)="""RTN"",""HLOUSR"",180,0)"
^XMB(3.9,41,2,11824,0)=" D CHGCAP^VALM(""COL 1"","" From"")"
^XMB(3.9,41,2,11825,0)="""RTN"",""HLOUSR"",181,0)"
^XMB(3.9,41,2,11826,0)=" S FROM="""""
^XMB(3.9,41,2,11827,0)="""RTN"",""HLOUSR"",182,0)"
^XMB(3.9,41,2,11828,0)=" F  S FROM=$O(^HLC(""QUEUECOUNT"",""IN"",FROM)) Q:FROM=""""  D"
^XMB(3.9,41,2,11829,0)="""RTN"",""HLOUSR"",183,0)"
^XMB(3.9,41,2,11830,0)=" .N COUNT,QUE,SHOW"
^XMB(3.9,41,2,11831,0)="""RTN"",""HLOUSR"",184,0)"
^XMB(3.9,41,2,11832,0)=" .S SHOW=$$LJ(FROM,40)_""  """
^XMB(3.9,41,2,11833,0)="""RTN"",""HLOUSR"",185,0)"
^XMB(3.9,41,2,11834,0)=" .S QUE="""""
^XMB(3.9,41,2,11835,0)="""RTN"",""HLOUSR"",186,0)"
^XMB(3.9,41,2,11836,0)=" .F  S QUE=$O(^HLC(""QUEUECOUNT"",""IN"",FROM,QUE)) Q:QUE=""""  D"
^XMB(3.9,41,2,11837,0)="""RTN"",""HLOUSR"",187,0)"
^XMB(3.9,41,2,11838,0)=" ..S COUNT=$G(^HLC(""QUEUECOUNT"",""IN"",FROM,QUE))"
^XMB(3.9,41,2,11839,0)="""RTN"",""HLOUSR"",188,0)"
^XMB(3.9,41,2,11840,0)=" ..Q:'COUNT"
^XMB(3.9,41,2,11841,0)="""RTN"",""HLOUSR"",189,0)"
^XMB(3.9,41,2,11842,0)=" ..S VALMCNT=VALMCNT+1"
^XMB(3.9,41,2,11843,0)="""RTN"",""HLOUSR"",190,0)"
^XMB(3.9,41,2,11844,0)=" ..S @VALMAR@(VALMCNT,0)=SHOW_$$LJ($S($$STOPPED^HLOQUE(""IN"",QUE):""!"",1:"""")_QUE,21)_"" ""_$$RJ(COUNT,10)"
^XMB(3.9,41,2,11845,0)="""RTN"",""HLOUSR"",191,0)"
^XMB(3.9,41,2,11846,0)=" ..S SHOW=$$LJ("""",40)_""  """
^XMB(3.9,41,2,11847,0)="""RTN"",""HLOUSR"",192,0)"
^XMB(3.9,41,2,11848,0)=" Q"
^XMB(3.9,41,2,11849,0)="""RTN"",""HLOUSR"",193,0)"
^XMB(3.9,41,2,11850,0)="VIEWLINK ;"
^XMB(3.9,41,2,11851,0)="""RTN"",""HLOUSR"",194,0)"
^XMB(3.9,41,2,11852,0)=" N C,QUIT,LINK"
^XMB(3.9,41,2,11853,0)="""RTN"",""HLOUSR"",195,0)"
^XMB(3.9,41,2,11854,0)=" S (QUIT,C,LINK)="""""
^XMB(3.9,41,2,11855,0)="""RTN"",""HLOUSR"",196,0)"
^XMB(3.9,41,2,11856,0)=" S VALMBCK=""R"""
^XMB(3.9,41,2,11857,0)="""RTN"",""HLOUSR"",197,0)"
^XMB(3.9,41,2,11858,0)=" ;"
^XMB(3.9,41,2,11859,0)="""RTN"",""HLOUSR"",198,0)"
^XMB(3.9,41,2,11860,0)=" ;currently HL7 (Optimized) only does TCP, when serial added a change is needed here"
^XMB(3.9,41,2,11861,0)="""RTN"",""HLOUSR"",199,0)"
^XMB(3.9,41,2,11862,0)=" S LINK=$$ASKLINK"
^XMB(3.9,41,2,11863,0)="""RTN"",""HLOUSR"",200,0)"
^XMB(3.9,41,2,11864,0)=" Q:LINK="""""
^XMB(3.9,41,2,11865,0)="""RTN"",""HLOUSR"",201,0)"
^XMB(3.9,41,2,11866,0)=" W !,""Hit any key to stop..."",!"
^XMB(3.9,41,2,11867,0)="""RTN"",""HLOUSR"",202,0)"
^XMB(3.9,41,2,11868,0)=" F  D  Q:QUIT"
^XMB(3.9,41,2,11869,0)="""RTN"",""HLOUSR"",203,0)"
^XMB(3.9,41,2,11870,0)=" .N COUNT,QUE"
^XMB(3.9,41,2,11871,0)="""RTN"",""HLOUSR"",204,0)"
^XMB(3.9,41,2,11872,0)=" .S (COUNT,QUE)="""""
^XMB(3.9,41,2,11873,0)="""RTN"",""HLOUSR"",205,0)"
^XMB(3.9,41,2,11874,0)=" .F  S QUE=$O(^HLC(""QUEUECOUNT"",""OUT"",LINK,QUE)) Q:QUE=""""  S COUNT=COUNT+$G(^(QUE))"
^XMB(3.9,41,2,11875,0)="""RTN"",""HLOUSR"",206,0)"
^XMB(3.9,41,2,11876,0)=" .W $C(13),""                             "",$C(13),""MESSAGES PENDING TRANSMISSION: "",IOBON,$$RJ(COUNT,10),IOBOFF"
^XMB(3.9,41,2,11877,0)="""RTN"",""HLOUSR"",207,0)"
^XMB(3.9,41,2,11878,0)=" .R *C:1 I $T S QUIT=1"
^XMB(3.9,41,2,11879,0)="""RTN"",""HLOUSR"",208,0)"
^XMB(3.9,41,2,11880,0)=" Q"
^XMB(3.9,41,2,11881,0)="""RTN"",""HLOUSR"",209,0)"
^XMB(3.9,41,2,11882,0)=" ;"
^XMB(3.9,41,2,11883,0)="""RTN"",""HLOUSR"",210,0)"
^XMB(3.9,41,2,11884,0)="CJ(STRING,LEN) ;"
^XMB(3.9,41,2,11885,0)="""RTN"",""HLOUSR"",211,0)"
^XMB(3.9,41,2,11886,0)=" Q $$CJ^XLFSTR($E(STRING,1,LEN),LEN)"
^XMB(3.9,41,2,11887,0)="""RTN"",""HLOUSR"",212,0)"
^XMB(3.9,41,2,11888,0)="LJ(STRING,LEN) ;"
^XMB(3.9,41,2,11889,0)="""RTN"",""HLOUSR"",213,0)"
^XMB(3.9,41,2,11890,0)=" Q $$LJ^XLFSTR($E(STRING,1,LEN),LEN)"
^XMB(3.9,41,2,11891,0)="""RTN"",""HLOUSR"",214,0)"
^XMB(3.9,41,2,11892,0)="RJ(STRING,LEN) ;"
^XMB(3.9,41,2,11893,0)="""RTN"",""HLOUSR"",215,0)"
^XMB(3.9,41,2,11894,0)=" Q $$RJ^XLFSTR($E(STRING,1,LEN),LEN)"
^XMB(3.9,41,2,11895,0)="""RTN"",""HLOUSR"",216,0)"
^XMB(3.9,41,2,11896,0)=" ;"
^XMB(3.9,41,2,11897,0)="""RTN"",""HLOUSR"",217,0)"
^XMB(3.9,41,2,11898,0)="RUNNING() ;Is the Process Manager running?"
^XMB(3.9,41,2,11899,0)="""RTN"",""HLOUSR"",218,0)"
^XMB(3.9,41,2,11900,0)=" N RUNNING"
^XMB(3.9,41,2,11901,0)="""RTN"",""HLOUSR"",219,0)"
^XMB(3.9,41,2,11902,0)=" L +^HLTMP(""PROCESS MANAGER""):0"
^XMB(3.9,41,2,11903,0)="""RTN"",""HLOUSR"",220,0)"
^XMB(3.9,41,2,11904,0)=" S RUNNING='$T"
^XMB(3.9,41,2,11905,0)="""RTN"",""HLOUSR"",221,0)"
^XMB(3.9,41,2,11906,0)=" I 'RUNNING L -^HLTMP(""PROCESS MANAGER"")"
^XMB(3.9,41,2,11907,0)="""RTN"",""HLOUSR"",222,0)"
^XMB(3.9,41,2,11908,0)=" Q RUNNING"
^XMB(3.9,41,2,11909,0)="""RTN"",""HLOUSR"",223,0)"
^XMB(3.9,41,2,11910,0)=" ;"
^XMB(3.9,41,2,11911,0)="""RTN"",""HLOUSR"",224,0)"
^XMB(3.9,41,2,11912,0)="TESTLINK ;"
^XMB(3.9,41,2,11913,0)="""RTN"",""HLOUSR"",225,0)"
^XMB(3.9,41,2,11914,0)=" N LINK,LINKNAME,OK"
^XMB(3.9,41,2,11915,0)="""RTN"",""HLOUSR"",226,0)"
^XMB(3.9,41,2,11916,0)=" S VALMBCK=""R"""
^XMB(3.9,41,2,11917,0)="""RTN"",""HLOUSR"",227,0)"
^XMB(3.9,41,2,11918,0)=" S LINKNAME=$$ASKLINK"
^XMB(3.9,41,2,11919,0)="""RTN"",""HLOUSR"",228,0)"
^XMB(3.9,41,2,11920,0)=" Q:LINKNAME="""""
^XMB(3.9,41,2,11921,0)="""RTN"",""HLOUSR"",229,0)"
^XMB(3.9,41,2,11922,0)=" S OK=$$IFOPEN^HLOUSR1(LINKNAME)"
^XMB(3.9,41,2,11923,0)="""RTN"",""HLOUSR"",230,0)"
^XMB(3.9,41,2,11924,0)=" I OK W !,LINKNAME_"" IS operational..."""
^XMB(3.9,41,2,11925,0)="""RTN"",""HLOUSR"",231,0)"
^XMB(3.9,41,2,11926,0)=" E  W !,LINKNAME_"" is NOT operational..."""
^XMB(3.9,41,2,11927,0)="""RTN"",""HLOUSR"",232,0)"
^XMB(3.9,41,2,11928,0)=" W !,""Hit any key to continue..."""
^XMB(3.9,41,2,11929,0)="""RTN"",""HLOUSR"",233,0)"
^XMB(3.9,41,2,11930,0)=" R *C:DTIME"
^XMB(3.9,41,2,11931,0)="""RTN"",""HLOUSR"",234,0)"
^XMB(3.9,41,2,11932,0)=" Q"
^XMB(3.9,41,2,11933,0)="""RTN"",""HLOUSR"",235,0)"
^XMB(3.9,41,2,11934,0)=" ;"
^XMB(3.9,41,2,11935,0)="""RTN"",""HLOUSR"",236,0)"
^XMB(3.9,41,2,11936,0)="ASKLINK() ;"
^XMB(3.9,41,2,11937,0)="""RTN"",""HLOUSR"",237,0)"
^XMB(3.9,41,2,11938,0)=" N DIC,TCP,X,Y,DTOUT,DUOUT"
^XMB(3.9,41,2,11939,0)="""RTN"",""HLOUSR"",238,0)"
^XMB(3.9,41,2,11940,0)=" S DIC=870"
^XMB(3.9,41,2,11941,0)="""RTN"",""HLOUSR"",239,0)"
^XMB(3.9,41,2,11942,0)=" S DIC(0)=""AE"""
^XMB(3.9,41,2,11943,0)="""RTN"",""HLOUSR"",240,0)"
^XMB(3.9,41,2,11944,0)=" S TCP=$O(^HLCS(869.1,""B"",""TCP"",0))"
^XMB(3.9,41,2,11945,0)="""RTN"",""HLOUSR"",241,0)"
^XMB(3.9,41,2,11946,0)=" S DIC(""A"")=""Select a TCP link:"""
^XMB(3.9,41,2,11947,0)="""RTN"",""HLOUSR"",242,0)"
^XMB(3.9,41,2,11948,0)=" S DIC(""S"")=""I $P(^(0),U,3)=TCP"""
^XMB(3.9,41,2,11949,0)="""RTN"",""HLOUSR"",243,0)"
^XMB(3.9,41,2,11950,0)=" D FULL^VALM1"
^XMB(3.9,41,2,11951,0)="""RTN"",""HLOUSR"",244,0)"
^XMB(3.9,41,2,11952,0)=" D ^DIC"
^XMB(3.9,41,2,11953,0)="""RTN"",""HLOUSR"",245,0)"
^XMB(3.9,41,2,11954,0)=" I +Y'=-1,'$D(DTOUT),'$D(DUOUT) Q $P(Y,""^"",2)"
^XMB(3.9,41,2,11955,0)="""RTN"",""HLOUSR"",246,0)"
^XMB(3.9,41,2,11956,0)=" Q """""
^XMB(3.9,41,2,11957,0)="""RTN"",""HLOUSR"",247,0)"
^XMB(3.9,41,2,11958,0)=" ;"
^XMB(3.9,41,2,11959,0)="""RTN"",""HLOUSR"",248,0)"
^XMB(3.9,41,2,11960,0)="STOP ;"
^XMB(3.9,41,2,11961,0)="""RTN"",""HLOUSR"",249,0)"
^XMB(3.9,41,2,11962,0)=" I '$$ASKYESNO^HLOUSR2(""Are you SURE that you want to stop sending and receiving messages"",""NO"") S VALMBCK="""" Q"
^XMB(3.9,41,2,11963,0)="""RTN"",""HLOUSR"",250,0)"
^XMB(3.9,41,2,11964,0)=" ;"
^XMB(3.9,41,2,11965,0)="""RTN"",""HLOUSR"",251,0)"
^XMB(3.9,41,2,11966,0)=" D STOPHL7^HLOPROC1"
^XMB(3.9,41,2,11967,0)="""RTN"",""HLOUSR"",252,0)"
^XMB(3.9,41,2,11968,0)=" S VALMBCK=""R"",VALMSG=""HL7 (Optimized) has been stopped...."""
^XMB(3.9,41,2,11969,0)="""RTN"",""HLOUSR"",253,0)"
^XMB(3.9,41,2,11970,0)=" H 5"
^XMB(3.9,41,2,11971,0)="""RTN"",""HLOUSR"",254,0)"
^XMB(3.9,41,2,11972,0)=" D:HLSCREEN=""Brief System Status"" BRIEF^HLOUSR"
^XMB(3.9,41,2,11973,0)="""RTN"",""HLOUSR"",255,0)"
^XMB(3.9,41,2,11974,0)=" D:HLSCREEN=""Running Processes"" PROCS^HLOUSR"
^XMB(3.9,41,2,11975,0)="""RTN"",""HLOUSR"",256,0)"
^XMB(3.9,41,2,11976,0)=" Q"
^XMB(3.9,41,2,11977,0)="""RTN"",""HLOUSR"",257,0)"
^XMB(3.9,41,2,11978,0)=" ;"
^XMB(3.9,41,2,11979,0)="""RTN"",""HLOUSR"",258,0)"
^XMB(3.9,41,2,11980,0)="UPDMODE ;update mode"
^XMB(3.9,41,2,11981,0)="""RTN"",""HLOUSR"",259,0)"
^XMB(3.9,41,2,11982,0)=" Q:'$L(HLRFRSH)"
^XMB(3.9,41,2,11983,0)="""RTN"",""HLOUSR"",260,0)"
^XMB(3.9,41,2,11984,0)=" N QUIT,NEW,TOP,BOTTOM,DX,DY,IOTM,IOBM,I"
^XMB(3.9,41,2,11985,0)="""RTN"",""HLOUSR"",261,0)"
^XMB(3.9,41,2,11986,0)=" W !!,IOINHI,""Hit any key to escape realtime display mode..."",IOINORM"
^XMB(3.9,41,2,11987,0)="""RTN"",""HLOUSR"",262,0)"
^XMB(3.9,41,2,11988,0)=" S IOTM=3,IOBM=23"
^XMB(3.9,41,2,11989,0)="""RTN"",""HLOUSR"",263,0)"
^XMB(3.9,41,2,11990,0)=" W @IOSTBM"
^XMB(3.9,41,2,11991,0)="""RTN"",""HLOUSR"",264,0)"
^XMB(3.9,41,2,11992,0)=" S DX=1,DY=$S(VALMCNT<17:VALMCNT+1,1:17) X IOXY"
^XMB(3.9,41,2,11993,0)="""RTN"",""HLOUSR"",265,0)"
^XMB(3.9,41,2,11994,0)=" I VALMCNT>16 F I=17:1:$S(VALMCNT<22:VALMCNT,1:21) W !,@VALMAR@(I,0)"
^XMB(3.9,41,2,11995,0)="""RTN"",""HLOUSR"",266,0)"
^XMB(3.9,41,2,11996,0)=" S QUIT=0"
^XMB(3.9,41,2,11997,0)="""RTN"",""HLOUSR"",267,0)"
^XMB(3.9,41,2,11998,0)=" S TOP=VALMBG"
^XMB(3.9,41,2,11999,0)="""RTN"",""HLOUSR"",268,0)"
^XMB(3.9,41,2,12000,0)=" S BOTTOM=TOP+23"
^XMB(3.9,41,2,12001,0)="""RTN"",""HLOUSR"",269,0)"
^XMB(3.9,41,2,12002,0)=" S OLD=VALMAR"
^XMB(3.9,41,2,12003,0)="""RTN"",""HLOUSR"",270,0)"
^XMB(3.9,41,2,12004,0)=" S VALMAR=""NEW"""
^XMB(3.9,41,2,12005,0)="""RTN"",""HLOUSR"",271,0)"
^XMB(3.9,41,2,12006,0)=" S VALMCNT=0"
^XMB(3.9,41,2,12007,0)="""RTN"",""HLOUSR"",272,0)"
^XMB(3.9,41,2,12008,0)=" F  D  Q:QUIT"
^XMB(3.9,41,2,12009,0)="""RTN"",""HLOUSR"",273,0)"
^XMB(3.9,41,2,12010,0)=" .N LINE"
^XMB(3.9,41,2,12011,0)="""RTN"",""HLOUSR"",274,0)"
^XMB(3.9,41,2,12012,0)=" .R *C:3 I $T S QUIT=1"
^XMB(3.9,41,2,12013,0)="""RTN"",""HLOUSR"",275,0)"
^XMB(3.9,41,2,12014,0)=" .S (VALMCNT,I)=0"
^XMB(3.9,41,2,12015,0)="""RTN"",""HLOUSR"",276,0)"
^XMB(3.9,41,2,12016,0)=" .D @HLRFRSH"
^XMB(3.9,41,2,12017,0)="""RTN"",""HLOUSR"",277,0)"
^XMB(3.9,41,2,12018,0)=" .F LINE=TOP:1:BOTTOM IF $G(@OLD@(LINE,0))'=$G(@VALMAR@(LINE,0)) D WRITE^VALM10(LINE)"
^XMB(3.9,41,2,12019,0)="""RTN"",""HLOUSR"",278,0)"
^XMB(3.9,41,2,12020,0)=" K @OLD M @OLD=@VALMAR S VALMAR=OLD"
^XMB(3.9,41,2,12021,0)="""RTN"",""HLOUSR"",279,0)"
^XMB(3.9,41,2,12022,0)=" S VALMBCK=""R"""
^XMB(3.9,41,2,12023,0)="""RTN"",""HLOUSR"",280,0)"
^XMB(3.9,41,2,12024,0)=" Q"
^XMB(3.9,41,2,12025,0)="""RTN"",""HLOUSR1"")"
^XMB(3.9,41,2,12026,0)="0^42^B64766610"
^XMB(3.9,41,2,12027,0)="""RTN"",""HLOUSR1"",1,0)"
^XMB(3.9,41,2,12028,0)="HLOUSR1 ;ALB/CJM -ListManager Screen for viewing messages;12 JUN 1997 10:00 am ;03/14/2005  08:08"
^XMB(3.9,41,2,12029,0)="""RTN"",""HLOUSR1"",2,0)"
^XMB(3.9,41,2,12030,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995"
^XMB(3.9,41,2,12031,0)="""RTN"",""HLOUSR1"",3,0)"
^XMB(3.9,41,2,12032,0)=" ;"
^XMB(3.9,41,2,12033,0)="""RTN"",""HLOUSR1"",4,0)"
^XMB(3.9,41,2,12034,0)="EN ;"
^XMB(3.9,41,2,12035,0)="""RTN"",""HLOUSR1"",5,0)"
^XMB(3.9,41,2,12036,0)=" N MSGIEN"
^XMB(3.9,41,2,12037,0)="""RTN"",""HLOUSR1"",6,0)"
^XMB(3.9,41,2,12038,0)=" S MSGIEN=$$PICKMSG"
^XMB(3.9,41,2,12039,0)="""RTN"",""HLOUSR1"",7,0)"
^XMB(3.9,41,2,12040,0)=" I 'MSGIEN S VALMBCK=""R"" Q"
^XMB(3.9,41,2,12041,0)="""RTN"",""HLOUSR1"",8,0)"
^XMB(3.9,41,2,12042,0)=" D EN^VALM(""HLO SINGLE MESSAGE DISPLAY"")"
^XMB(3.9,41,2,12043,0)="""RTN"",""HLOUSR1"",9,0)"
^XMB(3.9,41,2,12044,0)=" Q"
^XMB(3.9,41,2,12045,0)="""RTN"",""HLOUSR1"",10,0)"
^XMB(3.9,41,2,12046,0)=" ;"
^XMB(3.9,41,2,12047,0)="""RTN"",""HLOUSR1"",11,0)"
^XMB(3.9,41,2,12048,0)="HDR ;"
^XMB(3.9,41,2,12049,0)="""RTN"",""HLOUSR1"",12,0)"
^XMB(3.9,41,2,12050,0)=" Q"
^XMB(3.9,41,2,12051,0)="""RTN"",""HLOUSR1"",13,0)"
^XMB(3.9,41,2,12052,0)=" ;"
^XMB(3.9,41,2,12053,0)="""RTN"",""HLOUSR1"",14,0)"
^XMB(3.9,41,2,12054,0)="BLANK ;"
^XMB(3.9,41,2,12055,0)="""RTN"",""HLOUSR1"",15,0)"
^XMB(3.9,41,2,12056,0)=" S VALMCNT=0"
^XMB(3.9,41,2,12057,0)="""RTN"",""HLOUSR1"",16,0)"
^XMB(3.9,41,2,12058,0)=" D EXIT"
^XMB(3.9,41,2,12059,0)="""RTN"",""HLOUSR1"",17,0)"
^XMB(3.9,41,2,12060,0)=" Q"
^XMB(3.9,41,2,12061,0)="""RTN"",""HLOUSR1"",18,0)"
^XMB(3.9,41,2,12062,0)="DISPLAY ;"
^XMB(3.9,41,2,12063,0)="""RTN"",""HLOUSR1"",19,0)"
^XMB(3.9,41,2,12064,0)=" K @VALMAR"
^XMB(3.9,41,2,12065,0)="""RTN"",""HLOUSR1"",20,0)"
^XMB(3.9,41,2,12066,0)=" S VALMBCK=""R"""
^XMB(3.9,41,2,12067,0)="""RTN"",""HLOUSR1"",21,0)"
^XMB(3.9,41,2,12068,0)=" N MSG"
^XMB(3.9,41,2,12069,0)="""RTN"",""HLOUSR1"",22,0)"
^XMB(3.9,41,2,12070,0)=" S VALMBG=1"
^XMB(3.9,41,2,12071,0)="""RTN"",""HLOUSR1"",23,0)"
^XMB(3.9,41,2,12072,0)=" Q:'MSGIEN"
^XMB(3.9,41,2,12073,0)="""RTN"",""HLOUSR1"",24,0)"
^XMB(3.9,41,2,12074,0)=" D SHOWMSG($P(MSGIEN,""^""),$P(MSGIEN,""^"",2))"
^XMB(3.9,41,2,12075,0)="""RTN"",""HLOUSR1"",25,0)"
^XMB(3.9,41,2,12076,0)=" Q"
^XMB(3.9,41,2,12077,0)="""RTN"",""HLOUSR1"",26,0)"
^XMB(3.9,41,2,12078,0)=" ;"
^XMB(3.9,41,2,12079,0)="""RTN"",""HLOUSR1"",27,0)"
^XMB(3.9,41,2,12080,0)="PICKMSG() ;"
^XMB(3.9,41,2,12081,0)="""RTN"",""HLOUSR1"",28,0)"
^XMB(3.9,41,2,12082,0)=" ;ask the user to select a message & return its ien"
^XMB(3.9,41,2,12083,0)="""RTN"",""HLOUSR1"",29,0)"
^XMB(3.9,41,2,12084,0)=" N MSGIEN,DIR,COUNT,LIST"
^XMB(3.9,41,2,12085,0)="""RTN"",""HLOUSR1"",30,0)"
^XMB(3.9,41,2,12086,0)=" D FULL^VALM1"
^XMB(3.9,41,2,12087,0)="""RTN"",""HLOUSR1"",31,0)"
^XMB(3.9,41,2,12088,0)=" S DIR(0)=""F3:30"""
^XMB(3.9,41,2,12089,0)="""RTN"",""HLOUSR1"",32,0)"
^XMB(3.9,41,2,12090,0)=" S DIR(""A"")=""Message ID"""
^XMB(3.9,41,2,12091,0)="""RTN"",""HLOUSR1"",33,0)"
^XMB(3.9,41,2,12092,0)=" S DIR(""?"")=""Enter the full Message Control ID or Batch Control ID of the message, or '^' to exit."""
^XMB(3.9,41,2,12093,0)="""RTN"",""HLOUSR1"",34,0)"
^XMB(3.9,41,2,12094,0)="PICK D ^DIR"
^XMB(3.9,41,2,12095,0)="""RTN"",""HLOUSR1"",35,0)"
^XMB(3.9,41,2,12096,0)=" I $D(DIRUT)!(Y="""") Q 0"
^XMB(3.9,41,2,12097,0)="""RTN"",""HLOUSR1"",36,0)"
^XMB(3.9,41,2,12098,0)=" I $G(@VALMAR@(""INDEX"",Y)) Q $G(@VALMAR@(""INDEX"",Y))"
^XMB(3.9,41,2,12099,0)="""RTN"",""HLOUSR1"",37,0)"
^XMB(3.9,41,2,12100,0)=" S COUNT=$$FINDMSG^HLOMSG1(Y,.LIST)"
^XMB(3.9,41,2,12101,0)="""RTN"",""HLOUSR1"",38,0)"
^XMB(3.9,41,2,12102,0)=" I COUNT=""0"" W !!,""That message can not be found! Try Again"",! G PICK"
^XMB(3.9,41,2,12103,0)="""RTN"",""HLOUSR1"",39,0)"
^XMB(3.9,41,2,12104,0)=" I COUNT=1 Q LIST(1)"
^XMB(3.9,41,2,12105,0)="""RTN"",""HLOUSR1"",40,0)"
^XMB(3.9,41,2,12106,0)=" I COUNT>1 D"
^XMB(3.9,41,2,12107,0)="""RTN"",""HLOUSR1"",41,0)"
^XMB(3.9,41,2,12108,0)=" .N ITEM"
^XMB(3.9,41,2,12109,0)="""RTN"",""HLOUSR1"",42,0)"
^XMB(3.9,41,2,12110,0)=" .W !,""There is more than one message with that ID! You must choose one to display."",1"
^XMB(3.9,41,2,12111,0)="""RTN"",""HLOUSR1"",43,0)"
^XMB(3.9,41,2,12112,0)=" .S ITEM=0"
^XMB(3.9,41,2,12113,0)="""RTN"",""HLOUSR1"",44,0)"
^XMB(3.9,41,2,12114,0)=" .F  S ITEM=$O(LIST(ITEM)) Q:'ITEM  D"
^XMB(3.9,41,2,12115,0)="""RTN"",""HLOUSR1"",45,0)"
^XMB(3.9,41,2,12116,0)=" ..N MSG"
^XMB(3.9,41,2,12117,0)="""RTN"",""HLOUSR1"",46,0)"
^XMB(3.9,41,2,12118,0)=" ..Q:'$$GETMSG^HLOMSG(+LIST(ITEM),.MSG)"
^XMB(3.9,41,2,12119,0)="""RTN"",""HLOUSR1"",47,0)"
^XMB(3.9,41,2,12120,0)=" ..W !,""["",ITEM,""]"",""  DT/TM: "",$$FMTE^XLFDT(MSG(""DT/TM CREATED""),2),""   STATUS: "",MSG(""STATUS"")"
^XMB(3.9,41,2,12121,0)="""RTN"",""HLOUSR1"",48,0)"
^XMB(3.9,41,2,12122,0)=" .S DIR(0)=""NO^1:""_COUNT,DIR(""A"")=""Choose"",DIR(""?"")=""Choose one message from the list"""
^XMB(3.9,41,2,12123,0)="""RTN"",""HLOUSR1"",49,0)"
^XMB(3.9,41,2,12124,0)=" .D ^DIR"
^XMB(3.9,41,2,12125,0)="""RTN"",""HLOUSR1"",50,0)"
^XMB(3.9,41,2,12126,0)=" .I Y S Y=LIST(Y)"
^XMB(3.9,41,2,12127,0)="""RTN"",""HLOUSR1"",51,0)"
^XMB(3.9,41,2,12128,0)=" Q Y"
^XMB(3.9,41,2,12129,0)="""RTN"",""HLOUSR1"",52,0)"
^XMB(3.9,41,2,12130,0)=" ;"
^XMB(3.9,41,2,12131,0)="""RTN"",""HLOUSR1"",53,0)"
^XMB(3.9,41,2,12132,0)="HELP ;Help code"
^XMB(3.9,41,2,12133,0)="""RTN"",""HLOUSR1"",54,0)"
^XMB(3.9,41,2,12134,0)=" S X=""?"" D DISP^XQORM1 W !!"
^XMB(3.9,41,2,12135,0)="""RTN"",""HLOUSR1"",55,0)"
^XMB(3.9,41,2,12136,0)=" Q"
^XMB(3.9,41,2,12137,0)="""RTN"",""HLOUSR1"",56,0)"
^XMB(3.9,41,2,12138,0)=" ;"
^XMB(3.9,41,2,12139,0)="""RTN"",""HLOUSR1"",57,0)"
^XMB(3.9,41,2,12140,0)="EXIT ;Exit code"
^XMB(3.9,41,2,12141,0)="""RTN"",""HLOUSR1"",58,0)"
^XMB(3.9,41,2,12142,0)=" D CLEAN^VALM10"
^XMB(3.9,41,2,12143,0)="""RTN"",""HLOUSR1"",59,0)"
^XMB(3.9,41,2,12144,0)=" D CLEAR^VALM1"
^XMB(3.9,41,2,12145,0)="""RTN"",""HLOUSR1"",60,0)"
^XMB(3.9,41,2,12146,0)=" S VALMBCK=""R"""
^XMB(3.9,41,2,12147,0)="""RTN"",""HLOUSR1"",61,0)"
^XMB(3.9,41,2,12148,0)=" ;"
^XMB(3.9,41,2,12149,0)="""RTN"",""HLOUSR1"",62,0)"
^XMB(3.9,41,2,12150,0)=" Q"
^XMB(3.9,41,2,12151,0)="""RTN"",""HLOUSR1"",63,0)"
^XMB(3.9,41,2,12152,0)=" ;"
^XMB(3.9,41,2,12153,0)="""RTN"",""HLOUSR1"",64,0)"
^XMB(3.9,41,2,12154,0)="EXPND ;Expand code"
^XMB(3.9,41,2,12155,0)="""RTN"",""HLOUSR1"",65,0)"
^XMB(3.9,41,2,12156,0)=" Q"
^XMB(3.9,41,2,12157,0)="""RTN"",""HLOUSR1"",66,0)"
^XMB(3.9,41,2,12158,0)=" ;"
^XMB(3.9,41,2,12159,0)="""RTN"",""HLOUSR1"",67,0)"
^XMB(3.9,41,2,12160,0)="CJ(STRING,LEN) ;"
^XMB(3.9,41,2,12161,0)="""RTN"",""HLOUSR1"",68,0)"
^XMB(3.9,41,2,12162,0)=" Q $$CJ^XLFSTR(STRING,LEN)"
^XMB(3.9,41,2,12163,0)="""RTN"",""HLOUSR1"",69,0)"
^XMB(3.9,41,2,12164,0)="LJ(STRING,LEN) ;"
^XMB(3.9,41,2,12165,0)="""RTN"",""HLOUSR1"",70,0)"
^XMB(3.9,41,2,12166,0)=" Q $$LJ^XLFSTR(STRING,LEN)"
^XMB(3.9,41,2,12167,0)="""RTN"",""HLOUSR1"",71,0)"
^XMB(3.9,41,2,12168,0)="SP(LEN,CHAR) ;"
^XMB(3.9,41,2,12169,0)="""RTN"",""HLOUSR1"",72,0)"
^XMB(3.9,41,2,12170,0)=" ;return padding - "" "" is the default pad character"
^XMB(3.9,41,2,12171,0)="""RTN"",""HLOUSR1"",73,0)"
^XMB(3.9,41,2,12172,0)=" N STR"
^XMB(3.9,41,2,12173,0)="""RTN"",""HLOUSR1"",74,0)"
^XMB(3.9,41,2,12174,0)=" S:$G(CHAR)="""" CHAR="" """
^XMB(3.9,41,2,12175,0)="""RTN"",""HLOUSR1"",75,0)"
^XMB(3.9,41,2,12176,0)=" S $P(STR,CHAR,LEN)=CHAR"
^XMB(3.9,41,2,12177,0)="""RTN"",""HLOUSR1"",76,0)"
^XMB(3.9,41,2,12178,0)=" Q STR"
^XMB(3.9,41,2,12179,0)="""RTN"",""HLOUSR1"",77,0)"
^XMB(3.9,41,2,12180,0)=" ;"
^XMB(3.9,41,2,12181,0)="""RTN"",""HLOUSR1"",78,0)"
^XMB(3.9,41,2,12182,0)="SHOWMSG(MSGIEN,SUBIEN) ;"
^XMB(3.9,41,2,12183,0)="""RTN"",""HLOUSR1"",79,0)"
^XMB(3.9,41,2,12184,0)=" ;Description:"
^XMB(3.9,41,2,12185,0)="""RTN"",""HLOUSR1"",80,0)"
^XMB(3.9,41,2,12186,0)=" ;"
^XMB(3.9,41,2,12187,0)="""RTN"",""HLOUSR1"",81,0)"
^XMB(3.9,41,2,12188,0)=" ;Input:"
^XMB(3.9,41,2,12189,0)="""RTN"",""HLOUSR1"",82,0)"
^XMB(3.9,41,2,12190,0)=" ;Output:"
^XMB(3.9,41,2,12191,0)="""RTN"",""HLOUSR1"",83,0)"
^XMB(3.9,41,2,12192,0)=" ;"
^XMB(3.9,41,2,12193,0)="""RTN"",""HLOUSR1"",84,0)"
^XMB(3.9,41,2,12194,0)=" N MSG,I,TEMP,LINE"
^XMB(3.9,41,2,12195,0)="""RTN"",""HLOUSR1"",85,0)"
^XMB(3.9,41,2,12196,0)=" S VALMCNT=0"
^XMB(3.9,41,2,12197,0)="""RTN"",""HLOUSR1"",86,0)"
^XMB(3.9,41,2,12198,0)=" S SUBIEN=+$G(SUBIEN)"
^XMB(3.9,41,2,12199,0)="""RTN"",""HLOUSR1"",87,0)"
^XMB(3.9,41,2,12200,0)=" I '$$GETMSG^HLOMSG(MSGIEN,.MSG) W !,""UNABLE TO DISPLAY THE MESSAGE"",!! Q"
^XMB(3.9,41,2,12201,0)="""RTN"",""HLOUSR1"",88,0)"
^XMB(3.9,41,2,12202,0)=" I SUBIEN D GETMSGB^HLOMSG1(.MSG,SUBIEN,.MSG)"
^XMB(3.9,41,2,12203,0)="""RTN"",""HLOUSR1"",89,0)"
^XMB(3.9,41,2,12204,0)=" ;"
^XMB(3.9,41,2,12205,0)="""RTN"",""HLOUSR1"",90,0)"
^XMB(3.9,41,2,12206,0)=" S I=0"
^XMB(3.9,41,2,12207,0)="""RTN"",""HLOUSR1"",91,0)"
^XMB(3.9,41,2,12208,0)=" ;** administrative information **"
^XMB(3.9,41,2,12209,0)="""RTN"",""HLOUSR1"",92,0)"
^XMB(3.9,41,2,12210,0)=" S @VALMAR@($$I,0)=$$CJ(""Administrative Information"",80)"
^XMB(3.9,41,2,12211,0)="""RTN"",""HLOUSR1"",93,0)"
^XMB(3.9,41,2,12212,0)=" D CNTRL^VALM10(VALMCNT,26,30,IORVON,IORVOFF)"
^XMB(3.9,41,2,12213,0)="""RTN"",""HLOUSR1"",94,0)"
^XMB(3.9,41,2,12214,0)=" S LINE=""MsgID: ""_$$LJ(MSG(""ID""),18)"
^XMB(3.9,41,2,12215,0)="""RTN"",""HLOUSR1"",95,0)"
^XMB(3.9,41,2,12216,0)=" S LINE=LINE_""Status: ""_$$LJ(MSG(""STATUS""),5)"
^XMB(3.9,41,2,12217,0)="""RTN"",""HLOUSR1"",96,0)"
^XMB(3.9,41,2,12218,0)=" S:MSG(""ACK TO"")]"""" LINE=LINE_$$LJ("" Ack To:"",14)_MSG(""ACK TO"")"
^XMB(3.9,41,2,12219,0)="""RTN"",""HLOUSR1"",97,0)"
^XMB(3.9,41,2,12220,0)=" S:MSG(""ACK BY"")]"""" LINE=LINE_$$LJ("" Ack'd By:"",14)_MSG(""ACK BY"")"
^XMB(3.9,41,2,12221,0)="""RTN"",""HLOUSR1"",98,0)"
^XMB(3.9,41,2,12222,0)=" S @VALMAR@($$I,0)=LINE"
^XMB(3.9,41,2,12223,0)="""RTN"",""HLOUSR1"",99,0)"
^XMB(3.9,41,2,12224,0)=" I MSG(""STATUS"",""ERROR TEXT"")]"""" S @VALMAR@($$I,0)=""Error: ""_""** ""_MSG(""STATUS"",""ERROR TEXT"")_"" **"""
^XMB(3.9,41,2,12225,0)="""RTN"",""HLOUSR1"",100,0)"
^XMB(3.9,41,2,12226,0)=" S @VALMAR@($$I,0)=""Dir:   ""_$$LJ($S(MSG(""DIRECTION"")=""IN"":""INCOMING"",1:""OUTGOING""),30)_$$LJ(""  Trans Dt/Tm: "",12)_$$FMTE^XLFDT(MSG(""DT/TM""),2)"
^XMB(3.9,41,2,12227,0)="""RTN"",""HLOUSR1"",101,0)"
^XMB(3.9,41,2,12228,0)=" S @VALMAR@($$I,0)=""Link:  ""_$$LJ(MSG(""STATUS"",""LINK NAME""),29)_""   ""_$$LJ(""Queue: "",13)_MSG(""STATUS"",""QUEUE"")"
^XMB(3.9,41,2,12229,0)="""RTN"",""HLOUSR1"",102,0)"
^XMB(3.9,41,2,12230,0)=" I MSG(""STATUS"",""ACCEPT ACK'D"") D"
^XMB(3.9,41,2,12231,0)="""RTN"",""HLOUSR1"",103,0)"
^XMB(3.9,41,2,12232,0)=" .S @VALMAR@($$I,0)=""Accept Ack: ""_$$LJ(MSG(""STATUS"",""ACCEPT ACK ID""),26)_$$LJ("" At: "",14)_$$FMTE^XLFDT(MSG(""STATUS"",""ACCEPT ACK DT/TM""),2)"
^XMB(3.9,41,2,12233,0)="""RTN"",""HLOUSR1"",104,0)"
^XMB(3.9,41,2,12234,0)=" .S @VALMAR@($$I,0)=""   ""_MSG(""STATUS"",""ACCEPT ACK MSA"")"
^XMB(3.9,41,2,12235,0)="""RTN"",""HLOUSR1"",105,0)"
^XMB(3.9,41,2,12236,0)=" I MSG(""DIRECTION"")=""IN"" D"
^XMB(3.9,41,2,12237,0)="""RTN"",""HLOUSR1"",106,0)"
^XMB(3.9,41,2,12238,0)=" .N ACTION,HDR"
^XMB(3.9,41,2,12239,0)="""RTN"",""HLOUSR1"",107,0)"
^XMB(3.9,41,2,12240,0)=" .S LINE=""App Response Rtn: """
^XMB(3.9,41,2,12241,0)="""RTN"",""HLOUSR1"",108,0)"
^XMB(3.9,41,2,12242,0)=" .M HDR=MSG(""HDR"")"
^XMB(3.9,41,2,12243,0)="""RTN"",""HLOUSR1"",109,0)"
^XMB(3.9,41,2,12244,0)=" .I $$PARSEHDR^HLOPRS(.HDR),$$ACTION^HLOAPP(.HDR,.ACTION) S LINE=$$LJ(LINE_ACTION,38)_"" Executed: ""_$S(MSG(""STATUS"",""APP HANDOFF""):""   YES"",1:""   NO"")"
^XMB(3.9,41,2,12245,0)="""RTN"",""HLOUSR1"",110,0)"
^XMB(3.9,41,2,12246,0)=" .S @VALMAR@($$I,0)=LINE"
^XMB(3.9,41,2,12247,0)="""RTN"",""HLOUSR1"",111,0)"
^XMB(3.9,41,2,12248,0)=" I MSG(""DIRECTION"")=""OUT"",(MSG(""STATUS"",""APP ACK'D"")!MSG(""STATUS"",""ACCEPT ACK'D"")) D"
^XMB(3.9,41,2,12249,0)="""RTN"",""HLOUSR1"",112,0)"
^XMB(3.9,41,2,12250,0)=" .S LINE="""""
^XMB(3.9,41,2,12251,0)="""RTN"",""HLOUSR1"",113,0)"
^XMB(3.9,41,2,12252,0)=" .I MSG(""STATUS"",""ACCEPT ACK'D"") D"
^XMB(3.9,41,2,12253,0)="""RTN"",""HLOUSR1"",114,0)"
^XMB(3.9,41,2,12254,0)=" ..I MSG(""STATUS"",""ACCEPT ACK RESPONSE"")="""" S MSG(""STATUS"",""ACCEPT ACK RESPONSE"")=""n/a"""
^XMB(3.9,41,2,12255,0)="""RTN"",""HLOUSR1"",115,0)"
^XMB(3.9,41,2,12256,0)=" ..S LINE=""Accept Ack Rtn: ""_MSG(""STATUS"",""ACCEPT ACK RESPONSE"")"
^XMB(3.9,41,2,12257,0)="""RTN"",""HLOUSR1"",116,0)"
^XMB(3.9,41,2,12258,0)=" .S LINE=$$LJ(LINE,39)"
^XMB(3.9,41,2,12259,0)="""RTN"",""HLOUSR1"",117,0)"
^XMB(3.9,41,2,12260,0)=" .I MSG(""STATUS"",""APP ACK'D"") D"
^XMB(3.9,41,2,12261,0)="""RTN"",""HLOUSR1"",118,0)"
^XMB(3.9,41,2,12262,0)=" ..I MSG(""STATUS"",""APP ACK RESPONSE"")="""" S MSG(""STATUS"",""APP ACK RESPONSE"")=""n/a"""
^XMB(3.9,41,2,12263,0)="""RTN"",""HLOUSR1"",119,0)"
^XMB(3.9,41,2,12264,0)=" ..S LINE=LINE_""App Ack Rtn: ""_MSG(""STATUS"",""APP ACK RESPONSE"")"
^XMB(3.9,41,2,12265,0)="""RTN"",""HLOUSR1"",120,0)"
^XMB(3.9,41,2,12266,0)=" .S @VALMAR@($$I,0)=LINE"
^XMB(3.9,41,2,12267,0)="""RTN"",""HLOUSR1"",121,0)"
^XMB(3.9,41,2,12268,0)=" ;"
^XMB(3.9,41,2,12269,0)="""RTN"",""HLOUSR1"",122,0)"
^XMB(3.9,41,2,12270,0)=" ;** the message text **"
^XMB(3.9,41,2,12271,0)="""RTN"",""HLOUSR1"",123,0)"
^XMB(3.9,41,2,12272,0)=" S @VALMAR@($$I,0)="""""
^XMB(3.9,41,2,12273,0)="""RTN"",""HLOUSR1"",124,0)"
^XMB(3.9,41,2,12274,0)=" I '$G(SUBIEN) D"
^XMB(3.9,41,2,12275,0)="""RTN"",""HLOUSR1"",125,0)"
^XMB(3.9,41,2,12276,0)=" .S @VALMAR@($$I,0)=$$CJ(""Message Text"",80)"
^XMB(3.9,41,2,12277,0)="""RTN"",""HLOUSR1"",126,0)"
^XMB(3.9,41,2,12278,0)=" .D CNTRL^VALM10(VALMCNT,33,16,IORVON,IORVOFF)"
^XMB(3.9,41,2,12279,0)="""RTN"",""HLOUSR1"",127,0)"
^XMB(3.9,41,2,12280,0)=" E  D"
^XMB(3.9,41,2,12281,0)="""RTN"",""HLOUSR1"",128,0)"
^XMB(3.9,41,2,12282,0)=" .S @VALMAR@($$I,0)=$$CJ(""Individual Message Text (Batched)"",80)"
^XMB(3.9,41,2,12283,0)="""RTN"",""HLOUSR1"",129,0)"
^XMB(3.9,41,2,12284,0)=" .D CNTRL^VALM10(VALMCNT,23,35,IORVON,IORVOFF)"
^XMB(3.9,41,2,12285,0)="""RTN"",""HLOUSR1"",130,0)"
^XMB(3.9,41,2,12286,0)=" D SHOWBODY(.MSG,$G(SUBIEN))"
^XMB(3.9,41,2,12287,0)="""RTN"",""HLOUSR1"",131,0)"
^XMB(3.9,41,2,12288,0)=" ;"
^XMB(3.9,41,2,12289,0)="""RTN"",""HLOUSR1"",132,0)"
^XMB(3.9,41,2,12290,0)=" ;** display its application acknowledgment **"
^XMB(3.9,41,2,12291,0)="""RTN"",""HLOUSR1"",133,0)"
^XMB(3.9,41,2,12292,0)=" I MSG(""ACK BY"")]"""",$$FINDMSG^HLOMSG1(MSG(""ACK BY""),.TEMP)=1 S MSGIEN=TEMP(1) D"
^XMB(3.9,41,2,12293,0)="""RTN"",""HLOUSR1"",134,0)"
^XMB(3.9,41,2,12294,0)=" .N MSG"
^XMB(3.9,41,2,12295,0)="""RTN"",""HLOUSR1"",135,0)"
^XMB(3.9,41,2,12296,0)=" .Q:'$$GETMSG^HLOMSG(+MSGIEN,.MSG)"
^XMB(3.9,41,2,12297,0)="""RTN"",""HLOUSR1"",136,0)"
^XMB(3.9,41,2,12298,0)=" .I $P(MSGIEN,""^"",2) D GETMSGB^HLOMSG1(.MSG,$P(MSGIEN,""^"",2),.MSG)"
^XMB(3.9,41,2,12299,0)="""RTN"",""HLOUSR1"",137,0)"
^XMB(3.9,41,2,12300,0)=" .S @VALMAR@($$I,0)="""""
^XMB(3.9,41,2,12301,0)="""RTN"",""HLOUSR1"",138,0)"
^XMB(3.9,41,2,12302,0)=" .S @VALMAR@($$I,0)=$$CJ(""Application Acknowledgment"",80)"
^XMB(3.9,41,2,12303,0)="""RTN"",""HLOUSR1"",139,0)"
^XMB(3.9,41,2,12304,0)=" .D CNTRL^VALM10(VALMCNT,26,30,IORVON,IORVOFF)"
^XMB(3.9,41,2,12305,0)="""RTN"",""HLOUSR1"",140,0)"
^XMB(3.9,41,2,12306,0)=" .D SHOWBODY(.MSG,$P(MSGIEN,""^"",2))"
^XMB(3.9,41,2,12307,0)="""RTN"",""HLOUSR1"",141,0)"
^XMB(3.9,41,2,12308,0)=" Q"
^XMB(3.9,41,2,12309,0)="""RTN"",""HLOUSR1"",142,0)"
^XMB(3.9,41,2,12310,0)=" ;"
^XMB(3.9,41,2,12311,0)="""RTN"",""HLOUSR1"",143,0)"
^XMB(3.9,41,2,12312,0)="SHOWBODY(MSG,SUBIEN) ;"
^XMB(3.9,41,2,12313,0)="""RTN"",""HLOUSR1"",144,0)"
^XMB(3.9,41,2,12314,0)=" N NODE,I,SEG,QUIT"
^XMB(3.9,41,2,12315,0)="""RTN"",""HLOUSR1"",145,0)"
^XMB(3.9,41,2,12316,0)=" S QUIT=0"
^XMB(3.9,41,2,12317,0)="""RTN"",""HLOUSR1"",146,0)"
^XMB(3.9,41,2,12318,0)=" M SEG=MSG(""HDR"")"
^XMB(3.9,41,2,12319,0)="""RTN"",""HLOUSR1"",147,0)"
^XMB(3.9,41,2,12320,0)=" D ADD(.SEG)"
^XMB(3.9,41,2,12321,0)="""RTN"",""HLOUSR1"",148,0)"
^XMB(3.9,41,2,12322,0)=" S MSG(""BATCH"",""CURRENT MESSAGE"")=0"
^XMB(3.9,41,2,12323,0)="""RTN"",""HLOUSR1"",149,0)"
^XMB(3.9,41,2,12324,0)=" I MSG(""BATCH"") D"
^XMB(3.9,41,2,12325,0)="""RTN"",""HLOUSR1"",150,0)"
^XMB(3.9,41,2,12326,0)=" .I $G(SUBIEN) D  Q"
^XMB(3.9,41,2,12327,0)="""RTN"",""HLOUSR1"",151,0)"
^XMB(3.9,41,2,12328,0)=" ..S MSG(""BATCH"",""CURRENT MESSAGE"")=SUBIEN"
^XMB(3.9,41,2,12329,0)="""RTN"",""HLOUSR1"",152,0)"
^XMB(3.9,41,2,12330,0)=" ..F  Q:'$$HLNEXT^HLOMSG(.MSG,.SEG)  D ADD(.SEG)"
^XMB(3.9,41,2,12331,0)="""RTN"",""HLOUSR1"",153,0)"
^XMB(3.9,41,2,12332,0)=" .S MSG(""BATCH"",""CURRENT MESSAGE"")=0"
^XMB(3.9,41,2,12333,0)="""RTN"",""HLOUSR1"",154,0)"
^XMB(3.9,41,2,12334,0)=" .N LAST S LAST=0"
^XMB(3.9,41,2,12335,0)="""RTN"",""HLOUSR1"",155,0)"
^XMB(3.9,41,2,12336,0)=" .F  Q:'$$NEXTMSG^HLOMSG(.MSG,.SEG)  D  Q:QUIT"
^XMB(3.9,41,2,12337,0)="""RTN"",""HLOUSR1"",156,0)"
^XMB(3.9,41,2,12338,0)=" ..D ADD(.SEG)"
^XMB(3.9,41,2,12339,0)="""RTN"",""HLOUSR1"",157,0)"
^XMB(3.9,41,2,12340,0)=" ..S LAST=MSG(""BATCH"",""CURRENT MESSAGE"")"
^XMB(3.9,41,2,12341,0)="""RTN"",""HLOUSR1"",158,0)"
^XMB(3.9,41,2,12342,0)=" ..F  Q:'$$HLNEXT^HLOMSG(.MSG,.SEG)  D ADD(.SEG)"
^XMB(3.9,41,2,12343,0)="""RTN"",""HLOUSR1"",159,0)"
^XMB(3.9,41,2,12344,0)=" .I MSG(""DIRECTION"")=""OUT"" K SEG S SEG(1)=""BTS""_$E($G(NODE(1)),4)_LAST D ADD(.SEG)"
^XMB(3.9,41,2,12345,0)="""RTN"",""HLOUSR1"",160,0)"
^XMB(3.9,41,2,12346,0)=" E  D"
^XMB(3.9,41,2,12347,0)="""RTN"",""HLOUSR1"",161,0)"
^XMB(3.9,41,2,12348,0)=" .F  Q:'$$HLNEXT^HLOMSG(.MSG,.SEG)  D  Q:QUIT"
^XMB(3.9,41,2,12349,0)="""RTN"",""HLOUSR1"",162,0)"
^XMB(3.9,41,2,12350,0)=" ..D ADD(.SEG)"
^XMB(3.9,41,2,12351,0)="""RTN"",""HLOUSR1"",163,0)"
^XMB(3.9,41,2,12352,0)=" Q"
^XMB(3.9,41,2,12353,0)="""RTN"",""HLOUSR1"",164,0)"
^XMB(3.9,41,2,12354,0)="I() ;"
^XMB(3.9,41,2,12355,0)="""RTN"",""HLOUSR1"",165,0)"
^XMB(3.9,41,2,12356,0)=" S VALMCNT=VALMCNT+1"
^XMB(3.9,41,2,12357,0)="""RTN"",""HLOUSR1"",166,0)"
^XMB(3.9,41,2,12358,0)=" Q VALMCNT"
^XMB(3.9,41,2,12359,0)="""RTN"",""HLOUSR1"",167,0)"
^XMB(3.9,41,2,12360,0)="ADD(SEG) ;"
^XMB(3.9,41,2,12361,0)="""RTN"",""HLOUSR1"",168,0)"
^XMB(3.9,41,2,12362,0)=" N QUIT,I,J,LINE"
^XMB(3.9,41,2,12363,0)="""RTN"",""HLOUSR1"",169,0)"
^XMB(3.9,41,2,12364,0)=" S QUIT=0"
^XMB(3.9,41,2,12365,0)="""RTN"",""HLOUSR1"",170,0)"
^XMB(3.9,41,2,12366,0)=" S (I,J)=1"
^XMB(3.9,41,2,12367,0)="""RTN"",""HLOUSR1"",171,0)"
^XMB(3.9,41,2,12368,0)=" S LINE(1)=$E(SEG(1),1,80),SEG(1)=$E(SEG(1),81,9999)"
^XMB(3.9,41,2,12369,0)="""RTN"",""HLOUSR1"",172,0)"
^XMB(3.9,41,2,12370,0)=" I SEG(1)="""" K SEG(1)"
^XMB(3.9,41,2,12371,0)="""RTN"",""HLOUSR1"",173,0)"
^XMB(3.9,41,2,12372,0)=" D SHIFT(.I,.J)"
^XMB(3.9,41,2,12373,0)="""RTN"",""HLOUSR1"",174,0)"
^XMB(3.9,41,2,12374,0)=" S @VALMAR@($$I,0)=LINE(1)"
^XMB(3.9,41,2,12375,0)="""RTN"",""HLOUSR1"",175,0)"
^XMB(3.9,41,2,12376,0)=" S I=1"
^XMB(3.9,41,2,12377,0)="""RTN"",""HLOUSR1"",176,0)"
^XMB(3.9,41,2,12378,0)=" F  S I=$O(LINE(I)) Q:'I  D"
^XMB(3.9,41,2,12379,0)="""RTN"",""HLOUSR1"",177,0)"
^XMB(3.9,41,2,12380,0)=" .S @VALMAR@($$I,0)=LINE(I)"
^XMB(3.9,41,2,12381,0)="""RTN"",""HLOUSR1"",178,0)"
^XMB(3.9,41,2,12382,0)=" .D CNTRL^VALM10(VALMCNT,1,1,IORVON,IORVOFF)"
^XMB(3.9,41,2,12383,0)="""RTN"",""HLOUSR1"",179,0)"
^XMB(3.9,41,2,12384,0)=" Q"
^XMB(3.9,41,2,12385,0)="""RTN"",""HLOUSR1"",180,0)"
^XMB(3.9,41,2,12386,0)=" ;"
^XMB(3.9,41,2,12387,0)="""RTN"",""HLOUSR1"",181,0)"
^XMB(3.9,41,2,12388,0)="SHIFT(I,J) ;"
^XMB(3.9,41,2,12389,0)="""RTN"",""HLOUSR1"",182,0)"
^XMB(3.9,41,2,12390,0)=" I '$D(SEG(I)) S I=$O(SEG(0)) Q:'I"
^XMB(3.9,41,2,12391,0)="""RTN"",""HLOUSR1"",183,0)"
^XMB(3.9,41,2,12392,0)=" I $L(LINE(J))<80 D"
^XMB(3.9,41,2,12393,0)="""RTN"",""HLOUSR1"",184,0)"
^XMB(3.9,41,2,12394,0)=" .N LEN"
^XMB(3.9,41,2,12395,0)="""RTN"",""HLOUSR1"",185,0)"
^XMB(3.9,41,2,12396,0)=" .S LEN=$L(LINE(J))"
^XMB(3.9,41,2,12397,0)="""RTN"",""HLOUSR1"",186,0)"
^XMB(3.9,41,2,12398,0)=" .S LINE(J)=LINE(J)_$E(SEG(I),1,80-LEN)"
^XMB(3.9,41,2,12399,0)="""RTN"",""HLOUSR1"",187,0)"
^XMB(3.9,41,2,12400,0)=" .S SEG(I)=$E(SEG(I),81-LEN,9999)"
^XMB(3.9,41,2,12401,0)="""RTN"",""HLOUSR1"",188,0)"
^XMB(3.9,41,2,12402,0)=" .I SEG(I)="""" K SEG(I)"
^XMB(3.9,41,2,12403,0)="""RTN"",""HLOUSR1"",189,0)"
^XMB(3.9,41,2,12404,0)=" E  D"
^XMB(3.9,41,2,12405,0)="""RTN"",""HLOUSR1"",190,0)"
^XMB(3.9,41,2,12406,0)=" .S J=J+1"
^XMB(3.9,41,2,12407,0)="""RTN"",""HLOUSR1"",191,0)"
^XMB(3.9,41,2,12408,0)=" .S LINE(J)=""-"""
^XMB(3.9,41,2,12409,0)="""RTN"",""HLOUSR1"",192,0)"
^XMB(3.9,41,2,12410,0)=" D SHIFT(.I,.J)"
^XMB(3.9,41,2,12411,0)="""RTN"",""HLOUSR1"",193,0)"
^XMB(3.9,41,2,12412,0)=" Q"
^XMB(3.9,41,2,12413,0)="""RTN"",""HLOUSR1"",194,0)"
^XMB(3.9,41,2,12414,0)=" ;"
^XMB(3.9,41,2,12415,0)="""RTN"",""HLOUSR1"",195,0)"
^XMB(3.9,41,2,12416,0)="SCRLMODE ;scroll mode"
^XMB(3.9,41,2,12417,0)="""RTN"",""HLOUSR1"",196,0)"
^XMB(3.9,41,2,12418,0)=" Q:'$L(HLRFRSH)"
^XMB(3.9,41,2,12419,0)="""RTN"",""HLOUSR1"",197,0)"
^XMB(3.9,41,2,12420,0)=" N QUIT,IOTM,IOBM,DX,DY,LINE,IOTM,IOBM"
^XMB(3.9,41,2,12421,0)="""RTN"",""HLOUSR1"",198,0)"
^XMB(3.9,41,2,12422,0)=" W !!,IOINHI,""Hit any key to escape scroll mode..."",IOINORM"
^XMB(3.9,41,2,12423,0)="""RTN"",""HLOUSR1"",199,0)"
^XMB(3.9,41,2,12424,0)=" S IOTM=3,IOBM=23"
^XMB(3.9,41,2,12425,0)="""RTN"",""HLOUSR1"",200,0)"
^XMB(3.9,41,2,12426,0)=" S QUIT=0"
^XMB(3.9,41,2,12427,0)="""RTN"",""HLOUSR1"",201,0)"
^XMB(3.9,41,2,12428,0)=" S LINE=$S(VALMCNT<17:1,1:17)"
^XMB(3.9,41,2,12429,0)="""RTN"",""HLOUSR1"",202,0)"
^XMB(3.9,41,2,12430,0)=" W @IOSTBM"
^XMB(3.9,41,2,12431,0)="""RTN"",""HLOUSR1"",203,0)"
^XMB(3.9,41,2,12432,0)=" S DX=1,DY=$S(VALMCNT<17:VALMCNT+1,1:17) X IOXY"
^XMB(3.9,41,2,12433,0)="""RTN"",""HLOUSR1"",204,0)"
^XMB(3.9,41,2,12434,0)=" F I=1:1 D  Q:QUIT"
^XMB(3.9,41,2,12435,0)="""RTN"",""HLOUSR1"",205,0)"
^XMB(3.9,41,2,12436,0)=" .;every 10 seconds refresh the data"
^XMB(3.9,41,2,12437,0)="""RTN"",""HLOUSR1"",206,0)"
^XMB(3.9,41,2,12438,0)=" .I I>42 D @HLRFRSH S I=0"
^XMB(3.9,41,2,12439,0)="""RTN"",""HLOUSR1"",207,0)"
^XMB(3.9,41,2,12440,0)=" .I LINE+1>VALMCNT D"
^XMB(3.9,41,2,12441,0)="""RTN"",""HLOUSR1"",208,0)"
^XMB(3.9,41,2,12442,0)=" ..S TEMP=$G(@VALMAR@(LINE,0))"
^XMB(3.9,41,2,12443,0)="""RTN"",""HLOUSR1"",209,0)"
^XMB(3.9,41,2,12444,0)=" ..W !,IOUON,TEMP_$$SP(80-$L(TEMP)),IOUOFF"
^XMB(3.9,41,2,12445,0)="""RTN"",""HLOUSR1"",210,0)"
^XMB(3.9,41,2,12446,0)=" .E  W !,$G(@VALMAR@(LINE,0))"
^XMB(3.9,41,2,12447,0)="""RTN"",""HLOUSR1"",211,0)"
^XMB(3.9,41,2,12448,0)=" .S LINE=LINE+1"
^XMB(3.9,41,2,12449,0)="""RTN"",""HLOUSR1"",212,0)"
^XMB(3.9,41,2,12450,0)=" .I LINE>VALMCNT S LINE=1"
^XMB(3.9,41,2,12451,0)="""RTN"",""HLOUSR1"",213,0)"
^XMB(3.9,41,2,12452,0)=" .I (I=22)!(I=43) R *C:5 I $T S QUIT=1 Q"
^XMB(3.9,41,2,12453,0)="""RTN"",""HLOUSR1"",214,0)"
^XMB(3.9,41,2,12454,0)=" S VALMBG=LINE-23 I VALMBG<0 S VALMBG=1"
^XMB(3.9,41,2,12455,0)="""RTN"",""HLOUSR1"",215,0)"
^XMB(3.9,41,2,12456,0)=" S VALMBCK=""R"""
^XMB(3.9,41,2,12457,0)="""RTN"",""HLOUSR1"",216,0)"
^XMB(3.9,41,2,12458,0)=" Q"
^XMB(3.9,41,2,12459,0)="""RTN"",""HLOUSR1"",217,0)"
^XMB(3.9,41,2,12460,0)="HLP ;"
^XMB(3.9,41,2,12461,0)="""RTN"",""HLOUSR1"",218,0)"
^XMB(3.9,41,2,12462,0)=" Q"
^XMB(3.9,41,2,12463,0)="""RTN"",""HLOUSR1"",219,0)"
^XMB(3.9,41,2,12464,0)=" ;"
^XMB(3.9,41,2,12465,0)="""RTN"",""HLOUSR1"",220,0)"
^XMB(3.9,41,2,12466,0)="IFOPEN(LINK) ;"
^XMB(3.9,41,2,12467,0)="""RTN"",""HLOUSR1"",221,0)"
^XMB(3.9,41,2,12468,0)=" ;returns 1 if the link can be opened, otherwise 0"
^XMB(3.9,41,2,12469,0)="""RTN"",""HLOUSR1"",222,0)"
^XMB(3.9,41,2,12470,0)=" ;"
^XMB(3.9,41,2,12471,0)="""RTN"",""HLOUSR1"",223,0)"
^XMB(3.9,41,2,12472,0)=" ;Inputs:"
^XMB(3.9,41,2,12473,0)="""RTN"",""HLOUSR1"",224,0)"
^XMB(3.9,41,2,12474,0)=" ;  LINK - name of the link (required), optionally post-fixed with "":""_<port #>, will default to that defined for link"
^XMB(3.9,41,2,12475,0)="""RTN"",""HLOUSR1"",225,0)"
^XMB(3.9,41,2,12476,0)=" ;"
^XMB(3.9,41,2,12477,0)="""RTN"",""HLOUSR1"",226,0)"
^XMB(3.9,41,2,12478,0)=" N LINKNAME,LINKARY,POP,IO,IOF,IOST,OPEN,PORT"
^XMB(3.9,41,2,12479,0)="""RTN"",""HLOUSR1"",227,0)"
^XMB(3.9,41,2,12480,0)=" S OPEN=0"
^XMB(3.9,41,2,12481,0)="""RTN"",""HLOUSR1"",228,0)"
^XMB(3.9,41,2,12482,0)=" S LINKNAME=$P(LINK,"":"")"
^XMB(3.9,41,2,12483,0)="""RTN"",""HLOUSR1"",229,0)"
^XMB(3.9,41,2,12484,0)=" S PORT=$P(LINK,"":"",2)"
^XMB(3.9,41,2,12485,0)="""RTN"",""HLOUSR1"",230,0)"
^XMB(3.9,41,2,12486,0)=" Q:LINKNAME="""" 0"
^XMB(3.9,41,2,12487,0)="""RTN"",""HLOUSR1"",231,0)"
^XMB(3.9,41,2,12488,0)=" Q:'$$GETLINK^HLOTLNK(LINKNAME,.LINKARY) 0"
^XMB(3.9,41,2,12489,0)="""RTN"",""HLOUSR1"",232,0)"
^XMB(3.9,41,2,12490,0)=" S:PORT LINKARY(""PORT"")=PORT"
^XMB(3.9,41,2,12491,0)="""RTN"",""HLOUSR1"",233,0)"
^XMB(3.9,41,2,12492,0)=" Q:'$G(LINKARY(""PORT"")) 0"
^XMB(3.9,41,2,12493,0)="""RTN"",""HLOUSR1"",234,0)"
^XMB(3.9,41,2,12494,0)=" I LINKARY(""IP"")="""",LINKARY(""DOMAIN"")="""",LINKARY(""LLP"")=""TCP"",LINKARY(""SERVER"") D"
^XMB(3.9,41,2,12495,0)="""RTN"",""HLOUSR1"",235,0)"
^XMB(3.9,41,2,12496,0)=" .N DATA"
^XMB(3.9,41,2,12497,0)="""RTN"",""HLOUSR1"",236,0)"
^XMB(3.9,41,2,12498,0)=" .S LINKARY(""DOMAIN"")=$P($G(^HLD(779.1,1,0)),""^"")"
^XMB(3.9,41,2,12499,0)="""RTN"",""HLOUSR1"",237,0)"
^XMB(3.9,41,2,12500,0)=" .Q:LINKARY(""DOMAIN"")="""""
^XMB(3.9,41,2,12501,0)="""RTN"",""HLOUSR1"",238,0)"
^XMB(3.9,41,2,12502,0)=" .S DATA(.08)=LINKARY(""DOMAIN"")"
^XMB(3.9,41,2,12503,0)="""RTN"",""HLOUSR1"",239,0)"
^XMB(3.9,41,2,12504,0)=" .Q:$$UPD^HLOASUB1(870,LINKARY(""IEN""),.DATA)"
^XMB(3.9,41,2,12505,0)="""RTN"",""HLOUSR1"",240,0)"
^XMB(3.9,41,2,12506,0)=" D:$G(LINKARY(""IP""))'="""""
^XMB(3.9,41,2,12507,0)="""RTN"",""HLOUSR1"",241,0)"
^XMB(3.9,41,2,12508,0)=" .D CALL^%ZISTCP(LINKARY(""IP""),LINKARY(""PORT""),15)"
^XMB(3.9,41,2,12509,0)="""RTN"",""HLOUSR1"",242,0)"
^XMB(3.9,41,2,12510,0)=" .S OPEN='POP"
^XMB(3.9,41,2,12511,0)="""RTN"",""HLOUSR1"",243,0)"
^XMB(3.9,41,2,12512,0)=" I 'OPEN,LINKARY(""DOMAIN"")'="""",$G(^HLTMP(""DNS LAST"",LINKARY(""IEN"")))<$$DT^XLFDT D"
^XMB(3.9,41,2,12513,0)="""RTN"",""HLOUSR1"",244,0)"
^XMB(3.9,41,2,12514,0)=" .N IP"
^XMB(3.9,41,2,12515,0)="""RTN"",""HLOUSR1"",245,0)"
^XMB(3.9,41,2,12516,0)=" .S ^HLTMP(""DNS LAST"",LINKARY(""IEN""))=$$DT^XLFDT"
^XMB(3.9,41,2,12517,0)="""RTN"",""HLOUSR1"",246,0)"
^XMB(3.9,41,2,12518,0)=" .S IP=$$DNS^HLOTCP(LINKARY(""DOMAIN""))"
^XMB(3.9,41,2,12519,0)="""RTN"",""HLOUSR1"",247,0)"
^XMB(3.9,41,2,12520,0)=" .I IP'="""",IP'=LINKARY(""IP"") D"
^XMB(3.9,41,2,12521,0)="""RTN"",""HLOUSR1"",248,0)"
^XMB(3.9,41,2,12522,0)=" ..N DATA"
^XMB(3.9,41,2,12523,0)="""RTN"",""HLOUSR1"",249,0)"
^XMB(3.9,41,2,12524,0)=" ..S DATA(400.01)=IP,LINKARY(""IP"")=IP"
^XMB(3.9,41,2,12525,0)="""RTN"",""HLOUSR1"",250,0)"
^XMB(3.9,41,2,12526,0)=" ..Q:$$UPD^HLOASUB1(870,LINKARY(""IEN""),.DATA)"
^XMB(3.9,41,2,12527,0)="""RTN"",""HLOUSR1"",251,0)"
^XMB(3.9,41,2,12528,0)=" ..D CALL^%ZISTCP(LINKARY(""IP""),LINKARY(""PORT""),15)"
^XMB(3.9,41,2,12529,0)="""RTN"",""HLOUSR1"",252,0)"
^XMB(3.9,41,2,12530,0)=" ..S OPEN='POP"
^XMB(3.9,41,2,12531,0)="""RTN"",""HLOUSR1"",253,0)"
^XMB(3.9,41,2,12532,0)=" C:OPEN IO"
^XMB(3.9,41,2,12533,0)="""RTN"",""HLOUSR1"",254,0)"
^XMB(3.9,41,2,12534,0)=" ;D CLOSE^%ZISTCP"
^XMB(3.9,41,2,12535,0)="""RTN"",""HLOUSR1"",255,0)"
^XMB(3.9,41,2,12536,0)=" Q OPEN"
^XMB(3.9,41,2,12537,0)="""RTN"",""HLOUSR2"")"
^XMB(3.9,41,2,12538,0)="0^43^B44072105"
^XMB(3.9,41,2,12539,0)="""RTN"",""HLOUSR2"",1,0)"
^XMB(3.9,41,2,12540,0)="HLOUSR2 ;ALB/CJM -ListManager Screen for viewing messages(continued);12 JUN 1997 10:00 am"
^XMB(3.9,41,2,12541,0)="""RTN"",""HLOUSR2"",2,0)"
^XMB(3.9,41,2,12542,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995"
^XMB(3.9,41,2,12543,0)="""RTN"",""HLOUSR2"",3,0)"
^XMB(3.9,41,2,12544,0)=" ;"
^XMB(3.9,41,2,12545,0)="""RTN"",""HLOUSR2"",4,0)"
^XMB(3.9,41,2,12546,0)="EN ;"
^XMB(3.9,41,2,12547,0)="""RTN"",""HLOUSR2"",5,0)"
^XMB(3.9,41,2,12548,0)=" D WAIT^DICD"
^XMB(3.9,41,2,12549,0)="""RTN"",""HLOUSR2"",6,0)"
^XMB(3.9,41,2,12550,0)=" D EN^VALM(""HLO MESSAGE VIEWER"")"
^XMB(3.9,41,2,12551,0)="""RTN"",""HLOUSR2"",7,0)"
^XMB(3.9,41,2,12552,0)=" Q"
^XMB(3.9,41,2,12553,0)="""RTN"",""HLOUSR2"",8,0)"
^XMB(3.9,41,2,12554,0)=" ;"
^XMB(3.9,41,2,12555,0)="""RTN"",""HLOUSR2"",9,0)"
^XMB(3.9,41,2,12556,0)="SHOWLIST(TYPE) ;"
^XMB(3.9,41,2,12557,0)="""RTN"",""HLOUSR2"",10,0)"
^XMB(3.9,41,2,12558,0)=" ;TYPE= ""SE"", ""AE"", ""TF"""
^XMB(3.9,41,2,12559,0)="""RTN"",""HLOUSR2"",11,0)"
^XMB(3.9,41,2,12560,0)=" N PARMS,I"
^XMB(3.9,41,2,12561,0)="""RTN"",""HLOUSR2"",12,0)"
^XMB(3.9,41,2,12562,0)=" S (VALMBG,VALMCNT,I)=0"
^XMB(3.9,41,2,12563,0)="""RTN"",""HLOUSR2"",13,0)"
^XMB(3.9,41,2,12564,0)=" D CLEAN^VALM10"
^XMB(3.9,41,2,12565,0)="""RTN"",""HLOUSR2"",14,0)"
^XMB(3.9,41,2,12566,0)=" S VALMBG=1"
^XMB(3.9,41,2,12567,0)="""RTN"",""HLOUSR2"",15,0)"
^XMB(3.9,41,2,12568,0)=" I '$$ASKPARMS(.PARMS) S VALMBCK="""" Q"
^XMB(3.9,41,2,12569,0)="""RTN"",""HLOUSR2"",16,0)"
^XMB(3.9,41,2,12570,0)=" I PARMS(""ALL"") D"
^XMB(3.9,41,2,12571,0)="""RTN"",""HLOUSR2"",17,0)"
^XMB(3.9,41,2,12572,0)=" .N APP"
^XMB(3.9,41,2,12573,0)="""RTN"",""HLOUSR2"",18,0)"
^XMB(3.9,41,2,12574,0)=" .S APP="""""
^XMB(3.9,41,2,12575,0)="""RTN"",""HLOUSR2"",19,0)"
^XMB(3.9,41,2,12576,0)=" .F  S APP=$O(^HLB(""ERRORS"",TYPE,APP)) Q:APP=""""  Q:I>500  D"
^XMB(3.9,41,2,12577,0)="""RTN"",""HLOUSR2"",20,0)"
^XMB(3.9,41,2,12578,0)=" ..N TIME,IEN"
^XMB(3.9,41,2,12579,0)="""RTN"",""HLOUSR2"",21,0)"
^XMB(3.9,41,2,12580,0)=" ..S TIME=PARMS(""START"")"
^XMB(3.9,41,2,12581,0)="""RTN"",""HLOUSR2"",22,0)"
^XMB(3.9,41,2,12582,0)=" ..Q:($O(^HLB(""ERRORS"",TYPE,APP,TIME))="""")"
^XMB(3.9,41,2,12583,0)="""RTN"",""HLOUSR2"",23,0)"
^XMB(3.9,41,2,12584,0)=" ..S @VALMAR@($$I,0)=""Application: ""_APP"
^XMB(3.9,41,2,12585,0)="""RTN"",""HLOUSR2"",24,0)"
^XMB(3.9,41,2,12586,0)=" ..D CNTRL^VALM10(VALMCNT,14,$L(APP),IOINHI,IOINORM)"
^XMB(3.9,41,2,12587,0)="""RTN"",""HLOUSR2"",25,0)"
^XMB(3.9,41,2,12588,0)=" ..F  S TIME=$O(^HLB(""ERRORS"",TYPE,APP,TIME)) Q:'TIME  Q:VALMCNT>500  S IEN="""" F  S IEN=$O(^HLB(""ERRORS"",TYPE,APP,TIME,IEN)) Q:IEN=""""  Q:VALMCNT>500  D ADDTO(TYPE,IEN,TIME)"
^XMB(3.9,41,2,12589,0)="""RTN"",""HLOUSR2"",26,0)"
^XMB(3.9,41,2,12590,0)=" E  D"
^XMB(3.9,41,2,12591,0)="""RTN"",""HLOUSR2"",27,0)"
^XMB(3.9,41,2,12592,0)=" .N APP"
^XMB(3.9,41,2,12593,0)="""RTN"",""HLOUSR2"",28,0)"
^XMB(3.9,41,2,12594,0)=" .S APP=PARMS(""APP"")"
^XMB(3.9,41,2,12595,0)="""RTN"",""HLOUSR2"",29,0)"
^XMB(3.9,41,2,12596,0)=" .N TIME,IEN"
^XMB(3.9,41,2,12597,0)="""RTN"",""HLOUSR2"",30,0)"
^XMB(3.9,41,2,12598,0)=" .S TIME=PARMS(""START"")"
^XMB(3.9,41,2,12599,0)="""RTN"",""HLOUSR2"",31,0)"
^XMB(3.9,41,2,12600,0)=" .Q:$O(^HLB(""ERRORS"",TYPE,APP,TIME))="""""
^XMB(3.9,41,2,12601,0)="""RTN"",""HLOUSR2"",32,0)"
^XMB(3.9,41,2,12602,0)=" .S @VALMAR@($$I,0)=""Application: ""_APP"
^XMB(3.9,41,2,12603,0)="""RTN"",""HLOUSR2"",33,0)"
^XMB(3.9,41,2,12604,0)=" .D CNTRL^VALM10(VALMCNT,14,$L(APP),IOINHI,IOINORM)"
^XMB(3.9,41,2,12605,0)="""RTN"",""HLOUSR2"",34,0)"
^XMB(3.9,41,2,12606,0)=" .F  S TIME=$O(^HLB(""ERRORS"",TYPE,APP,TIME)) Q:'TIME  Q:VALMCNT>500  S IEN="""" F  S IEN=$O(^HLB(""ERRORS"",TYPE,APP,TIME,IEN)) Q:IEN=""""  Q:VALMCNT>500  D ADDTO(TYPE,IEN,TIME)"
^XMB(3.9,41,2,12607,0)="""RTN"",""HLOUSR2"",35,0)"
^XMB(3.9,41,2,12608,0)=" ;"
^XMB(3.9,41,2,12609,0)="""RTN"",""HLOUSR2"",36,0)"
^XMB(3.9,41,2,12610,0)="SHOW S VALMBCK=""R"""
^XMB(3.9,41,2,12611,0)="""RTN"",""HLOUSR2"",37,0)"
^XMB(3.9,41,2,12612,0)=" ;"
^XMB(3.9,41,2,12613,0)="""RTN"",""HLOUSR2"",38,0)"
^XMB(3.9,41,2,12614,0)=" Q"
^XMB(3.9,41,2,12615,0)="""RTN"",""HLOUSR2"",39,0)"
^XMB(3.9,41,2,12616,0)="ADDTO(LTYPE,IEN,TIME) ;"
^XMB(3.9,41,2,12617,0)="""RTN"",""HLOUSR2"",40,0)"
^XMB(3.9,41,2,12618,0)=" N NODE,MSG"
^XMB(3.9,41,2,12619,0)="""RTN"",""HLOUSR2"",41,0)"
^XMB(3.9,41,2,12620,0)=" Q:'$$GETMSG^HLOMSG(+IEN,.MSG)"
^XMB(3.9,41,2,12621,0)="""RTN"",""HLOUSR2"",42,0)"
^XMB(3.9,41,2,12622,0)=" I LTYPE'=""AE"" D"
^XMB(3.9,41,2,12623,0)="""RTN"",""HLOUSR2"",43,0)"
^XMB(3.9,41,2,12624,0)=" .N TYPE"
^XMB(3.9,41,2,12625,0)="""RTN"",""HLOUSR2"",44,0)"
^XMB(3.9,41,2,12626,0)=" .S TYPE=$S(MSG(""BATCH""):""BATCH"",1:MSG(""MESSAGE TYPE"")_""~""_MSG(""EVENT""))"
^XMB(3.9,41,2,12627,0)="""RTN"",""HLOUSR2"",45,0)"
^XMB(3.9,41,2,12628,0)=" .S @VALMAR@($$I,0)=""  ""_$$LJ(MSG(""ID""),15)_$$LJ(TYPE,8)_$$LJ($$FMTE^XLFDT(TIME,2),20)_MSG(""STATUS"",""ERROR TEXT"")"
^XMB(3.9,41,2,12629,0)="""RTN"",""HLOUSR2"",46,0)"
^XMB(3.9,41,2,12630,0)=" .D CNTRL^VALM10(VALMCNT,3,15,IOINHI,IOINORM)"
^XMB(3.9,41,2,12631,0)="""RTN"",""HLOUSR2"",47,0)"
^XMB(3.9,41,2,12632,0)=" .S:MSG(""ID"")]"""" @VALMAR@(""INDEX"",MSG(""ID""))=IEN"
^XMB(3.9,41,2,12633,0)="""RTN"",""HLOUSR2"",48,0)"
^XMB(3.9,41,2,12634,0)=" E  D"
^XMB(3.9,41,2,12635,0)="""RTN"",""HLOUSR2"",49,0)"
^XMB(3.9,41,2,12636,0)=" .;application errors - could be an error to a msg within a batch"
^XMB(3.9,41,2,12637,0)="""RTN"",""HLOUSR2"",50,0)"
^XMB(3.9,41,2,12638,0)=" .;also, need to go to the ack msg to get the error text from the MSA segment"
^XMB(3.9,41,2,12639,0)="""RTN"",""HLOUSR2"",51,0)"
^XMB(3.9,41,2,12640,0)=" .;"
^XMB(3.9,41,2,12641,0)="""RTN"",""HLOUSR2"",52,0)"
^XMB(3.9,41,2,12642,0)=" .N SUBIEN,MSA,ERRTEXT"
^XMB(3.9,41,2,12643,0)="""RTN"",""HLOUSR2"",53,0)"
^XMB(3.9,41,2,12644,0)=" .S (ERRTEXT,MSA)="""""
^XMB(3.9,41,2,12645,0)="""RTN"",""HLOUSR2"",54,0)"
^XMB(3.9,41,2,12646,0)=" .S SUBIEN=$P(IEN,""^"",2)"
^XMB(3.9,41,2,12647,0)="""RTN"",""HLOUSR2"",55,0)"
^XMB(3.9,41,2,12648,0)=" .;within batch?"
^XMB(3.9,41,2,12649,0)="""RTN"",""HLOUSR2"",56,0)"
^XMB(3.9,41,2,12650,0)=" .D:SUBIEN GETMSGB^HLOMSG1(.MSG,SUBIEN,.MSG)"
^XMB(3.9,41,2,12651,0)="""RTN"",""HLOUSR2"",57,0)"
^XMB(3.9,41,2,12652,0)=" .I MSG(""ACK BY"")]"""",($$FINDMSG^HLOMSG1(MSG(""ACK BY""),.LIST)=1) D"
^XMB(3.9,41,2,12653,0)="""RTN"",""HLOUSR2"",58,0)"
^XMB(3.9,41,2,12654,0)=" ..N MSG,SEG,FS"
^XMB(3.9,41,2,12655,0)="""RTN"",""HLOUSR2"",59,0)"
^XMB(3.9,41,2,12656,0)=" ..S IEN=+LIST(1),SUBIEN=$P(LIST(1),""^"",2)"
^XMB(3.9,41,2,12657,0)="""RTN"",""HLOUSR2"",60,0)"
^XMB(3.9,41,2,12658,0)=" ..Q:'$$GETMSG^HLOMSG(IEN,.MSG)"
^XMB(3.9,41,2,12659,0)="""RTN"",""HLOUSR2"",61,0)"
^XMB(3.9,41,2,12660,0)=" ..I SUBIEN S MSG(""BATCH"",""CURRENT MESSAGE"")=SUBIEN,MSG(""LINE COUNT"")=0"
^XMB(3.9,41,2,12661,0)="""RTN"",""HLOUSR2"",62,0)"
^XMB(3.9,41,2,12662,0)=" ..F  Q:'$$HLNEXT^HLOMSG(.MSG,.SEG)  I $E(SEG(1),1,3)=""MSA"" S MSA=SEG(1),FS=$E(MSA,4),ERRTEXT=$P(MSA,FS,4) Q"
^XMB(3.9,41,2,12663,0)="""RTN"",""HLOUSR2"",63,0)"
^XMB(3.9,41,2,12664,0)=" .S:ERRTEXT="""" ERRTEXT=MSG(""STATUS"",""ERROR TEXT"")"
^XMB(3.9,41,2,12665,0)="""RTN"",""HLOUSR2"",64,0)"
^XMB(3.9,41,2,12666,0)=" .S @VALMAR@($$I,0)=""  ""_$$LJ(MSG(""ID""),15)_$$LJ(MSG(""MESSAGE TYPE"")_""~""_MSG(""EVENT""),8)_$$LJ($$FMTE^XLFDT(MSG(""DT/TM CREATED""),2),20)_$E(ERRTEXT,1,37)"
^XMB(3.9,41,2,12667,0)="""RTN"",""HLOUSR2"",65,0)"
^XMB(3.9,41,2,12668,0)=" .D CNTRL^VALM10(VALMCNT,3,15,IOINHI,IOINORM)"
^XMB(3.9,41,2,12669,0)="""RTN"",""HLOUSR2"",66,0)"
^XMB(3.9,41,2,12670,0)=" .I $L(ERRTEXT)>37 D"
^XMB(3.9,41,2,12671,0)="""RTN"",""HLOUSR2"",67,0)"
^XMB(3.9,41,2,12672,0)=" ..S @VALMAR@($$I,0)=""~""_$E(ERRTEXT,38,112)"
^XMB(3.9,41,2,12673,0)="""RTN"",""HLOUSR2"",68,0)"
^XMB(3.9,41,2,12674,0)=" ..D CNTRL^VALM10(VALMCNT,1,1,IORVON,IORVOFF)"
^XMB(3.9,41,2,12675,0)="""RTN"",""HLOUSR2"",69,0)"
^XMB(3.9,41,2,12676,0)=" .S:MSG(""ID"")]"""" @VALMAR@(""INDEX"",MSG(""ID""))=IEN"
^XMB(3.9,41,2,12677,0)="""RTN"",""HLOUSR2"",70,0)"
^XMB(3.9,41,2,12678,0)=" Q"
^XMB(3.9,41,2,12679,0)="""RTN"",""HLOUSR2"",71,0)"
^XMB(3.9,41,2,12680,0)=" ;"
^XMB(3.9,41,2,12681,0)="""RTN"",""HLOUSR2"",72,0)"
^XMB(3.9,41,2,12682,0)="ASKPARMS(PARMS) ;"
^XMB(3.9,41,2,12683,0)="""RTN"",""HLOUSR2"",73,0)"
^XMB(3.9,41,2,12684,0)=" K PARMS"
^XMB(3.9,41,2,12685,0)="""RTN"",""HLOUSR2"",74,0)"
^XMB(3.9,41,2,12686,0)=" S PARMS(""START"")=$$ASKBEGIN(""T-1"")"
^XMB(3.9,41,2,12687,0)="""RTN"",""HLOUSR2"",75,0)"
^XMB(3.9,41,2,12688,0)=" I 'PARMS(""START"") Q 0"
^XMB(3.9,41,2,12689,0)="""RTN"",""HLOUSR2"",76,0)"
^XMB(3.9,41,2,12690,0)=" S PARMS(""ALL"")=$$ASKYESNO(""Include ALL applications"",""YES"")"
^XMB(3.9,41,2,12691,0)="""RTN"",""HLOUSR2"",77,0)"
^XMB(3.9,41,2,12692,0)=" I PARMS(""ALL"") Q 1"
^XMB(3.9,41,2,12693,0)="""RTN"",""HLOUSR2"",78,0)"
^XMB(3.9,41,2,12694,0)=" I PARMS(""ALL"")="""" Q 0"
^XMB(3.9,41,2,12695,0)="""RTN"",""HLOUSR2"",79,0)"
^XMB(3.9,41,2,12696,0)=" S PARMS(""APP"")=$$ASKAPP"
^XMB(3.9,41,2,12697,0)="""RTN"",""HLOUSR2"",80,0)"
^XMB(3.9,41,2,12698,0)=" I PARMS(""APP"")="""" Q 0"
^XMB(3.9,41,2,12699,0)="""RTN"",""HLOUSR2"",81,0)"
^XMB(3.9,41,2,12700,0)=" Q 1"
^XMB(3.9,41,2,12701,0)="""RTN"",""HLOUSR2"",82,0)"
^XMB(3.9,41,2,12702,0)=" ;"
^XMB(3.9,41,2,12703,0)="""RTN"",""HLOUSR2"",83,0)"
^XMB(3.9,41,2,12704,0)="ASKAPP() ;"
^XMB(3.9,41,2,12705,0)="""RTN"",""HLOUSR2"",84,0)"
^XMB(3.9,41,2,12706,0)=" D FULL^VALM1"
^XMB(3.9,41,2,12707,0)="""RTN"",""HLOUSR2"",85,0)"
^XMB(3.9,41,2,12708,0)=" S VALMBCK=""R"""
^XMB(3.9,41,2,12709,0)="""RTN"",""HLOUSR2"",86,0)"
^XMB(3.9,41,2,12710,0)=" N DIR"
^XMB(3.9,41,2,12711,0)="""RTN"",""HLOUSR2"",87,0)"
^XMB(3.9,41,2,12712,0)=" S DIR(0)=""F^3:60"""
^XMB(3.9,41,2,12713,0)="""RTN"",""HLOUSR2"",88,0)"
^XMB(3.9,41,2,12714,0)=" S DIR(""A"")=""Application"""
^XMB(3.9,41,2,12715,0)="""RTN"",""HLOUSR2"",89,0)"
^XMB(3.9,41,2,12716,0)=" S DIR(""?"")=""Enter the full name of the application, or '^' to exit."""
^XMB(3.9,41,2,12717,0)="""RTN"",""HLOUSR2"",90,0)"
^XMB(3.9,41,2,12718,0)=" S DIR(""?"",1)=""For transmission failures, enter the sending application. """
^XMB(3.9,41,2,12719,0)="""RTN"",""HLOUSR2"",91,0)"
^XMB(3.9,41,2,12720,0)=" S DIR(""?"",2)=""For other errors, enter the name of the receiving application. """
^XMB(3.9,41,2,12721,0)="""RTN"",""HLOUSR2"",92,0)"
^XMB(3.9,41,2,12722,0)=" D ^DIR"
^XMB(3.9,41,2,12723,0)="""RTN"",""HLOUSR2"",93,0)"
^XMB(3.9,41,2,12724,0)=" I $D(DIRUT)!(Y="""") Q """""
^XMB(3.9,41,2,12725,0)="""RTN"",""HLOUSR2"",94,0)"
^XMB(3.9,41,2,12726,0)=" Q Y"
^XMB(3.9,41,2,12727,0)="""RTN"",""HLOUSR2"",95,0)"
^XMB(3.9,41,2,12728,0)=" ;"
^XMB(3.9,41,2,12729,0)="""RTN"",""HLOUSR2"",96,0)"
^XMB(3.9,41,2,12730,0)="ASKYESNO(PROMPT,DEFAULT) ;"
^XMB(3.9,41,2,12731,0)="""RTN"",""HLOUSR2"",97,0)"
^XMB(3.9,41,2,12732,0)=" ;Description: Displays PROMPT, appending '?'.  Expects a YES NO response"
^XMB(3.9,41,2,12733,0)="""RTN"",""HLOUSR2"",98,0)"
^XMB(3.9,41,2,12734,0)=" ;Input:"
^XMB(3.9,41,2,12735,0)="""RTN"",""HLOUSR2"",99,0)"
^XMB(3.9,41,2,12736,0)=" ;   PROMPT - text to display as prompt.  Appends '?'"
^XMB(3.9,41,2,12737,0)="""RTN"",""HLOUSR2"",100,0)"
^XMB(3.9,41,2,12738,0)=" ;   DEFAULT - (optional) YES or NO.  If not passed, defaults to YES"
^XMB(3.9,41,2,12739,0)="""RTN"",""HLOUSR2"",101,0)"
^XMB(3.9,41,2,12740,0)=" ;Output:"
^XMB(3.9,41,2,12741,0)="""RTN"",""HLOUSR2"",102,0)"
^XMB(3.9,41,2,12742,0)=" ;  Function value: 1 if yes, 0 if no, """" if '^' entered or timeout"
^XMB(3.9,41,2,12743,0)="""RTN"",""HLOUSR2"",103,0)"
^XMB(3.9,41,2,12744,0)=" ;"
^XMB(3.9,41,2,12745,0)="""RTN"",""HLOUSR2"",104,0)"
^XMB(3.9,41,2,12746,0)=" N DIR,Y"
^XMB(3.9,41,2,12747,0)="""RTN"",""HLOUSR2"",105,0)"
^XMB(3.9,41,2,12748,0)=" S DIR(0)=""Y"""
^XMB(3.9,41,2,12749,0)="""RTN"",""HLOUSR2"",106,0)"
^XMB(3.9,41,2,12750,0)=" S DIR(""A"")=PROMPT"
^XMB(3.9,41,2,12751,0)="""RTN"",""HLOUSR2"",107,0)"
^XMB(3.9,41,2,12752,0)=" S DIR(""B"")=$S($G(DEFAULT)=""NO"":""NO"",1:""YES"")"
^XMB(3.9,41,2,12753,0)="""RTN"",""HLOUSR2"",108,0)"
^XMB(3.9,41,2,12754,0)=" D ^DIR"
^XMB(3.9,41,2,12755,0)="""RTN"",""HLOUSR2"",109,0)"
^XMB(3.9,41,2,12756,0)=" Q:$D(DIRUT) """""
^XMB(3.9,41,2,12757,0)="""RTN"",""HLOUSR2"",110,0)"
^XMB(3.9,41,2,12758,0)=" Q Y"
^XMB(3.9,41,2,12759,0)="""RTN"",""HLOUSR2"",111,0)"
^XMB(3.9,41,2,12760,0)=" ;"
^XMB(3.9,41,2,12761,0)="""RTN"",""HLOUSR2"",112,0)"
^XMB(3.9,41,2,12762,0)="STRTSTPQ ;"
^XMB(3.9,41,2,12763,0)="""RTN"",""HLOUSR2"",113,0)"
^XMB(3.9,41,2,12764,0)=" ;action to start or stop a queue, either incoming or outgoing"
^XMB(3.9,41,2,12765,0)="""RTN"",""HLOUSR2"",114,0)"
^XMB(3.9,41,2,12766,0)=" ;"
^XMB(3.9,41,2,12767,0)="""RTN"",""HLOUSR2"",115,0)"
^XMB(3.9,41,2,12768,0)=" N STOP,INOROUT,QUE"
^XMB(3.9,41,2,12769,0)="""RTN"",""HLOUSR2"",116,0)"
^XMB(3.9,41,2,12770,0)=" S VALMBCK=""R"""
^XMB(3.9,41,2,12771,0)="""RTN"",""HLOUSR2"",117,0)"
^XMB(3.9,41,2,12772,0)=" D FULL^VALM1"
^XMB(3.9,41,2,12773,0)="""RTN"",""HLOUSR2"",118,0)"
^XMB(3.9,41,2,12774,0)=" ;ask if stop or start"
^XMB(3.9,41,2,12775,0)="""RTN"",""HLOUSR2"",119,0)"
^XMB(3.9,41,2,12776,0)=" D  Q:STOP="""""
^XMB(3.9,41,2,12777,0)="""RTN"",""HLOUSR2"",120,0)"
^XMB(3.9,41,2,12778,0)=" .N DIR"
^XMB(3.9,41,2,12779,0)="""RTN"",""HLOUSR2"",121,0)"
^XMB(3.9,41,2,12780,0)=" .S DIR(0)=""S^1:START;2:STOP"""
^XMB(3.9,41,2,12781,0)="""RTN"",""HLOUSR2"",122,0)"
^XMB(3.9,41,2,12782,0)=" .S DIR(""A"")=""Do you want to START or STOP a queue"""
^XMB(3.9,41,2,12783,0)="""RTN"",""HLOUSR2"",123,0)"
^XMB(3.9,41,2,12784,0)=" .S DIR(""B"")=""1"""
^XMB(3.9,41,2,12785,0)="""RTN"",""HLOUSR2"",124,0)"
^XMB(3.9,41,2,12786,0)=" .D ^DIR"
^XMB(3.9,41,2,12787,0)="""RTN"",""HLOUSR2"",125,0)"
^XMB(3.9,41,2,12788,0)=" .S STOP=$S(Y=1:0,Y=2:1,1:"""")"
^XMB(3.9,41,2,12789,0)="""RTN"",""HLOUSR2"",126,0)"
^XMB(3.9,41,2,12790,0)=" ;ask if in or out"
^XMB(3.9,41,2,12791,0)="""RTN"",""HLOUSR2"",127,0)"
^XMB(3.9,41,2,12792,0)=" D  Q:INOROUT="""""
^XMB(3.9,41,2,12793,0)="""RTN"",""HLOUSR2"",128,0)"
^XMB(3.9,41,2,12794,0)=" .N DIR"
^XMB(3.9,41,2,12795,0)="""RTN"",""HLOUSR2"",129,0)"
^XMB(3.9,41,2,12796,0)=" .S DIR(0)=""S^I:INCOMING;O:OUTGOING"""
^XMB(3.9,41,2,12797,0)="""RTN"",""HLOUSR2"",130,0)"
^XMB(3.9,41,2,12798,0)=" .S DIR(""A"")=""Do you want to ""_$S(STOP:""stop"",1:""start"")_"" an incoming queue or an outgoing queue"""
^XMB(3.9,41,2,12799,0)="""RTN"",""HLOUSR2"",131,0)"
^XMB(3.9,41,2,12800,0)=" .S DIR(""B"")=""I"""
^XMB(3.9,41,2,12801,0)="""RTN"",""HLOUSR2"",132,0)"
^XMB(3.9,41,2,12802,0)=" .D ^DIR"
^XMB(3.9,41,2,12803,0)="""RTN"",""HLOUSR2"",133,0)"
^XMB(3.9,41,2,12804,0)=" .S INOROUT=$S(Y=""I"":""IN"",Y=""O"":""OUT"",1:"""")"
^XMB(3.9,41,2,12805,0)="""RTN"",""HLOUSR2"",134,0)"
^XMB(3.9,41,2,12806,0)=" S QUE=$$ASKQUE(INOROUT)"
^XMB(3.9,41,2,12807,0)="""RTN"",""HLOUSR2"",135,0)"
^XMB(3.9,41,2,12808,0)=" Q:QUE="""""
^XMB(3.9,41,2,12809,0)="""RTN"",""HLOUSR2"",136,0)"
^XMB(3.9,41,2,12810,0)=" I STOP=$$STOPPED^HLOQUE(INOROUT,QUE) D"
^XMB(3.9,41,2,12811,0)="""RTN"",""HLOUSR2"",137,0)"
^XMB(3.9,41,2,12812,0)=" .N C"
^XMB(3.9,41,2,12813,0)="""RTN"",""HLOUSR2"",138,0)"
^XMB(3.9,41,2,12814,0)=" .I STOP D"
^XMB(3.9,41,2,12815,0)="""RTN"",""HLOUSR2"",139,0)"
^XMB(3.9,41,2,12816,0)=" ..W !,""That queue is already stopped!"""
^XMB(3.9,41,2,12817,0)="""RTN"",""HLOUSR2"",140,0)"
^XMB(3.9,41,2,12818,0)=" .E  W !,""That queue is not stopped!"""
^XMB(3.9,41,2,12819,0)="""RTN"",""HLOUSR2"",141,0)"
^XMB(3.9,41,2,12820,0)=" .W !,IOINHI,""Hit any key to continue..."",IOINORM"
^XMB(3.9,41,2,12821,0)="""RTN"",""HLOUSR2"",142,0)"
^XMB(3.9,41,2,12822,0)=" .R *C:DTIME"
^XMB(3.9,41,2,12823,0)="""RTN"",""HLOUSR2"",143,0)"
^XMB(3.9,41,2,12824,0)=" E  D"
^XMB(3.9,41,2,12825,0)="""RTN"",""HLOUSR2"",144,0)"
^XMB(3.9,41,2,12826,0)=" .N C"
^XMB(3.9,41,2,12827,0)="""RTN"",""HLOUSR2"",145,0)"
^XMB(3.9,41,2,12828,0)=" .D:STOP STOPQUE^HLOQUE(INOROUT,QUE)"
^XMB(3.9,41,2,12829,0)="""RTN"",""HLOUSR2"",146,0)"
^XMB(3.9,41,2,12830,0)=" .D:'STOP STARTQUE^HLOQUE(INOROUT,QUE)"
^XMB(3.9,41,2,12831,0)="""RTN"",""HLOUSR2"",147,0)"
^XMB(3.9,41,2,12832,0)=" .W !,""DONE!"""
^XMB(3.9,41,2,12833,0)="""RTN"",""HLOUSR2"",148,0)"
^XMB(3.9,41,2,12834,0)=" .W !,IOINHI,""Hit any key to continue..."",IOINORM"
^XMB(3.9,41,2,12835,0)="""RTN"",""HLOUSR2"",149,0)"
^XMB(3.9,41,2,12836,0)=" .R *C:DTIME"
^XMB(3.9,41,2,12837,0)="""RTN"",""HLOUSR2"",150,0)"
^XMB(3.9,41,2,12838,0)=" .D @HLRFRSH"
^XMB(3.9,41,2,12839,0)="""RTN"",""HLOUSR2"",151,0)"
^XMB(3.9,41,2,12840,0)=" Q"
^XMB(3.9,41,2,12841,0)="""RTN"",""HLOUSR2"",152,0)"
^XMB(3.9,41,2,12842,0)=" ;"
^XMB(3.9,41,2,12843,0)="""RTN"",""HLOUSR2"",153,0)"
^XMB(3.9,41,2,12844,0)="ASKQUE(DIR) ;"
^XMB(3.9,41,2,12845,0)="""RTN"",""HLOUSR2"",154,0)"
^XMB(3.9,41,2,12846,0)=" N QUEUE"
^XMB(3.9,41,2,12847,0)="""RTN"",""HLOUSR2"",155,0)"
^XMB(3.9,41,2,12848,0)="AGAIN W !,""Enter the full, exact name of queue:"""
^XMB(3.9,41,2,12849,0)="""RTN"",""HLOUSR2"",156,0)"
^XMB(3.9,41,2,12850,0)=" S QUEUE="""""
^XMB(3.9,41,2,12851,0)="""RTN"",""HLOUSR2"",157,0)"
^XMB(3.9,41,2,12852,0)=" R QUEUE:60 I '$T Q """""
^XMB(3.9,41,2,12853,0)="""RTN"",""HLOUSR2"",158,0)"
^XMB(3.9,41,2,12854,0)=" I $E(QUEUE)=""?"" W !,""Each message is placed on a queue that has an arbitrary name up to 20"",!,""characters long."" I $$ASKYESNO(""Would you like to see a list of the queues that currently exist"",""NO"") D  G AGAIN"
^XMB(3.9,41,2,12855,0)="""RTN"",""HLOUSR2"",159,0)"
^XMB(3.9,41,2,12856,0)=" .N SUB,QUE,QUIT,COUNT"
^XMB(3.9,41,2,12857,0)="""RTN"",""HLOUSR2"",160,0)"
^XMB(3.9,41,2,12858,0)=" .K ^TMP($J,""HLO QUEUES"")"
^XMB(3.9,41,2,12859,0)="""RTN"",""HLOUSR2"",161,0)"
^XMB(3.9,41,2,12860,0)=" .S SUB="""""
^XMB(3.9,41,2,12861,0)="""RTN"",""HLOUSR2"",162,0)"
^XMB(3.9,41,2,12862,0)=" .F  S SUB=$O(^HLB(""QUEUE"",DIR,SUB)) Q:SUB=""""  D"
^XMB(3.9,41,2,12863,0)="""RTN"",""HLOUSR2"",163,0)"
^XMB(3.9,41,2,12864,0)=" ..S QUE="""""
^XMB(3.9,41,2,12865,0)="""RTN"",""HLOUSR2"",164,0)"
^XMB(3.9,41,2,12866,0)=" ..F  S QUE=$O(^HLB(""QUEUE"",DIR,SUB,QUE)) Q:QUE=""""  S ^TMP($J,""HLO QUEUES"",QUE)="""""
^XMB(3.9,41,2,12867,0)="""RTN"",""HLOUSR2"",165,0)"
^XMB(3.9,41,2,12868,0)=" .S QUE="""""
^XMB(3.9,41,2,12869,0)="""RTN"",""HLOUSR2"",166,0)"
^XMB(3.9,41,2,12870,0)=" .S IOSL=$G(IOSL,20)"
^XMB(3.9,41,2,12871,0)="""RTN"",""HLOUSR2"",167,0)"
^XMB(3.9,41,2,12872,0)=" .S (COUNT,QUIT)=0"
^XMB(3.9,41,2,12873,0)="""RTN"",""HLOUSR2"",168,0)"
^XMB(3.9,41,2,12874,0)=" .W !"
^XMB(3.9,41,2,12875,0)="""RTN"",""HLOUSR2"",169,0)"
^XMB(3.9,41,2,12876,0)=" .F  S QUE=$O(^TMP($J,""HLO QUEUES"",QUE)) Q:QUE=""""  Q:QUIT  D"
^XMB(3.9,41,2,12877,0)="""RTN"",""HLOUSR2"",170,0)"
^XMB(3.9,41,2,12878,0)=" ..W !,QUE"
^XMB(3.9,41,2,12879,0)="""RTN"",""HLOUSR2"",171,0)"
^XMB(3.9,41,2,12880,0)=" ..S COUNT=COUNT+1"
^XMB(3.9,41,2,12881,0)="""RTN"",""HLOUSR2"",172,0)"
^XMB(3.9,41,2,12882,0)=" ..I COUNT>(IOSL-3) D"
^XMB(3.9,41,2,12883,0)="""RTN"",""HLOUSR2"",173,0)"
^XMB(3.9,41,2,12884,0)=" ...N Y"
^XMB(3.9,41,2,12885,0)="""RTN"",""HLOUSR2"",174,0)"
^XMB(3.9,41,2,12886,0)=" ...D PAUSE^VALM1"
^XMB(3.9,41,2,12887,0)="""RTN"",""HLOUSR2"",175,0)"
^XMB(3.9,41,2,12888,0)=" ...I 'Y S QUIT=1"
^XMB(3.9,41,2,12889,0)="""RTN"",""HLOUSR2"",176,0)"
^XMB(3.9,41,2,12890,0)=" ...S COUNT=0"
^XMB(3.9,41,2,12891,0)="""RTN"",""HLOUSR2"",177,0)"
^XMB(3.9,41,2,12892,0)=" .W !"
^XMB(3.9,41,2,12893,0)="""RTN"",""HLOUSR2"",178,0)"
^XMB(3.9,41,2,12894,0)=" .K ^TMP($J,""HLO QUEUES"")"
^XMB(3.9,41,2,12895,0)="""RTN"",""HLOUSR2"",179,0)"
^XMB(3.9,41,2,12896,0)=" Q:$E(QUEUE)=""?"" """""
^XMB(3.9,41,2,12897,0)="""RTN"",""HLOUSR2"",180,0)"
^XMB(3.9,41,2,12898,0)=" Q:$E(QUEUE)=""^"" """""
^XMB(3.9,41,2,12899,0)="""RTN"",""HLOUSR2"",181,0)"
^XMB(3.9,41,2,12900,0)=" Q QUEUE"
^XMB(3.9,41,2,12901,0)="""RTN"",""HLOUSR2"",182,0)"
^XMB(3.9,41,2,12902,0)=" ;"
^XMB(3.9,41,2,12903,0)="""RTN"",""HLOUSR2"",183,0)"
^XMB(3.9,41,2,12904,0)="ASKBEGIN(DEFAULT) ;"
^XMB(3.9,41,2,12905,0)="""RTN"",""HLOUSR2"",184,0)"
^XMB(3.9,41,2,12906,0)=" ;Description: Asks the user to enter a beginning date."
^XMB(3.9,41,2,12907,0)="""RTN"",""HLOUSR2"",185,0)"
^XMB(3.9,41,2,12908,0)=" ;Input: DEFAULT - the suggested default dt/time (optional)"
^XMB(3.9,41,2,12909,0)="""RTN"",""HLOUSR2"",186,0)"
^XMB(3.9,41,2,12910,0)=" ;Output: Returns the date as the function value, or 0 if the user does not select a date"
^XMB(3.9,41,2,12911,0)="""RTN"",""HLOUSR2"",187,0)"
^XMB(3.9,41,2,12912,0)=" ;"
^XMB(3.9,41,2,12913,0)="""RTN"",""HLOUSR2"",188,0)"
^XMB(3.9,41,2,12914,0)=" ;"
^XMB(3.9,41,2,12915,0)="""RTN"",""HLOUSR2"",189,0)"
^XMB(3.9,41,2,12916,0)=" N %DT"
^XMB(3.9,41,2,12917,0)="""RTN"",""HLOUSR2"",190,0)"
^XMB(3.9,41,2,12918,0)=" S %DT=""AEST"""
^XMB(3.9,41,2,12919,0)="""RTN"",""HLOUSR2"",191,0)"
^XMB(3.9,41,2,12920,0)=" S %DT(""A"")=""Enter the beginning date/time: """
^XMB(3.9,41,2,12921,0)="""RTN"",""HLOUSR2"",192,0)"
^XMB(3.9,41,2,12922,0)=" S %DT(""B"")=$$FMTE^XLFDT($S($L($G(DEFAULT)):DEFAULT,1:$$FMADD^XLFDT(DT,-1)))"
^XMB(3.9,41,2,12923,0)="""RTN"",""HLOUSR2"",193,0)"
^XMB(3.9,41,2,12924,0)=" S %DT(0)=""-NOW"""
^XMB(3.9,41,2,12925,0)="""RTN"",""HLOUSR2"",194,0)"
^XMB(3.9,41,2,12926,0)=" Q:$D(DTOUT) 0"
^XMB(3.9,41,2,12927,0)="""RTN"",""HLOUSR2"",195,0)"
^XMB(3.9,41,2,12928,0)=" D ^%DT"
^XMB(3.9,41,2,12929,0)="""RTN"",""HLOUSR2"",196,0)"
^XMB(3.9,41,2,12930,0)=" I Y=-1 Q 0"
^XMB(3.9,41,2,12931,0)="""RTN"",""HLOUSR2"",197,0)"
^XMB(3.9,41,2,12932,0)=" Q Y"
^XMB(3.9,41,2,12933,0)="""RTN"",""HLOUSR2"",198,0)"
^XMB(3.9,41,2,12934,0)=" ;"
^XMB(3.9,41,2,12935,0)="""RTN"",""HLOUSR2"",199,0)"
^XMB(3.9,41,2,12936,0)="ASKEND(BEGIN) ;"
^XMB(3.9,41,2,12937,0)="""RTN"",""HLOUSR2"",200,0)"
^XMB(3.9,41,2,12938,0)=" ;Description: Asks the user to enter an ending date/time"
^XMB(3.9,41,2,12939,0)="""RTN"",""HLOUSR2"",201,0)"
^XMB(3.9,41,2,12940,0)=" ;Input: BEGIN - the earliest date/time allowed"
^XMB(3.9,41,2,12941,0)="""RTN"",""HLOUSR2"",202,0)"
^XMB(3.9,41,2,12942,0)=" ;Output: Returns the date as the function value, or 0 if the user does not select a date/time"
^XMB(3.9,41,2,12943,0)="""RTN"",""HLOUSR2"",203,0)"
^XMB(3.9,41,2,12944,0)=" ;"
^XMB(3.9,41,2,12945,0)="""RTN"",""HLOUSR2"",204,0)"
^XMB(3.9,41,2,12946,0)=" N %DT"
^XMB(3.9,41,2,12947,0)="""RTN"",""HLOUSR2"",205,0)"
^XMB(3.9,41,2,12948,0)=" S %DT=""AEST"""
^XMB(3.9,41,2,12949,0)="""RTN"",""HLOUSR2"",206,0)"
^XMB(3.9,41,2,12950,0)=" S %DT(""A"")=""Enter the ending date/time: """
^XMB(3.9,41,2,12951,0)="""RTN"",""HLOUSR2"",207,0)"
^XMB(3.9,41,2,12952,0)=" S %DT(""B"")=""NOW"""
^XMB(3.9,41,2,12953,0)="""RTN"",""HLOUSR2"",208,0)"
^XMB(3.9,41,2,12954,0)=" S %DT(0)=BEGIN"
^XMB(3.9,41,2,12955,0)="""RTN"",""HLOUSR2"",209,0)"
^XMB(3.9,41,2,12956,0)=" Q:$D(DTOUT) 0"
^XMB(3.9,41,2,12957,0)="""RTN"",""HLOUSR2"",210,0)"
^XMB(3.9,41,2,12958,0)=" D ^%DT"
^XMB(3.9,41,2,12959,0)="""RTN"",""HLOUSR2"",211,0)"
^XMB(3.9,41,2,12960,0)=" I Y=-1 Q 0"
^XMB(3.9,41,2,12961,0)="""RTN"",""HLOUSR2"",212,0)"
^XMB(3.9,41,2,12962,0)=" Q Y"
^XMB(3.9,41,2,12963,0)="""RTN"",""HLOUSR2"",213,0)"
^XMB(3.9,41,2,12964,0)=" ;"
^XMB(3.9,41,2,12965,0)="""RTN"",""HLOUSR2"",214,0)"
^XMB(3.9,41,2,12966,0)="LJ(STRING,LEN) ;"
^XMB(3.9,41,2,12967,0)="""RTN"",""HLOUSR2"",215,0)"
^XMB(3.9,41,2,12968,0)=" Q $$LJ^XLFSTR(STRING,LEN)"
^XMB(3.9,41,2,12969,0)="""RTN"",""HLOUSR2"",216,0)"
^XMB(3.9,41,2,12970,0)=" ;"
^XMB(3.9,41,2,12971,0)="""RTN"",""HLOUSR2"",217,0)"
^XMB(3.9,41,2,12972,0)="I() ;"
^XMB(3.9,41,2,12973,0)="""RTN"",""HLOUSR2"",218,0)"
^XMB(3.9,41,2,12974,0)=" S VALMCNT=VALMCNT+1"
^XMB(3.9,41,2,12975,0)="""RTN"",""HLOUSR2"",219,0)"
^XMB(3.9,41,2,12976,0)=" Q VALMCNT"
^XMB(3.9,41,2,12977,0)="""RTN"",""HLOUSR2"",220,0)"
^XMB(3.9,41,2,12978,0)=" ;"
^XMB(3.9,41,2,12979,0)="""RTN"",""HLOUSR2"",221,0)"
^XMB(3.9,41,2,12980,0)="HEADER ;"
^XMB(3.9,41,2,12981,0)="""RTN"",""HLOUSR2"",222,0)"
^XMB(3.9,41,2,12982,0)=" Q"
^XMB(3.9,41,2,12983,0)="""RTN"",""HLOUSR3"")"
^XMB(3.9,41,2,12984,0)="0^45^B18658983"
^XMB(3.9,41,2,12985,0)="""RTN"",""HLOUSR3"",1,0)"
^XMB(3.9,41,2,12986,0)="HLOUSR3 ;ALB/CJM -ListManager Screen for viewing messages(continued);12 JUN 1997 10:00 am"
^XMB(3.9,41,2,12987,0)="""RTN"",""HLOUSR3"",2,0)"
^XMB(3.9,41,2,12988,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126**;Oct 13, 1995"
^XMB(3.9,41,2,12989,0)="""RTN"",""HLOUSR3"",3,0)"
^XMB(3.9,41,2,12990,0)=" ;"
^XMB(3.9,41,2,12991,0)="""RTN"",""HLOUSR3"",4,0)"
^XMB(3.9,41,2,12992,0)=" ;"
^XMB(3.9,41,2,12993,0)="""RTN"",""HLOUSR3"",5,0)"
^XMB(3.9,41,2,12994,0)="EN ;"
^XMB(3.9,41,2,12995,0)="""RTN"",""HLOUSR3"",6,0)"
^XMB(3.9,41,2,12996,0)=" N HLPARMS"
^XMB(3.9,41,2,12997,0)="""RTN"",""HLOUSR3"",7,0)"
^XMB(3.9,41,2,12998,0)=" D FULL^VALM1"
^XMB(3.9,41,2,12999,0)="""RTN"",""HLOUSR3"",8,0)"
^XMB(3.9,41,2,13000,0)=" I '$$ASK(.HLPARMS) S VALMBCK=""R"" Q"
^XMB(3.9,41,2,13001,0)="""RTN"",""HLOUSR3"",9,0)"
^XMB(3.9,41,2,13002,0)=" D WAIT^DICD"
^XMB(3.9,41,2,13003,0)="""RTN"",""HLOUSR3"",10,0)"
^XMB(3.9,41,2,13004,0)=" D EN^VALM(""HLO MESSAGE SEARCH"")"
^XMB(3.9,41,2,13005,0)="""RTN"",""HLOUSR3"",11,0)"
^XMB(3.9,41,2,13006,0)=" Q"
^XMB(3.9,41,2,13007,0)="""RTN"",""HLOUSR3"",12,0)"
^XMB(3.9,41,2,13008,0)="SEARCH ;"
^XMB(3.9,41,2,13009,0)="""RTN"",""HLOUSR3"",13,0)"
^XMB(3.9,41,2,13010,0)=" N I,APP,START,END,DIR,MSG,EVENT,TIME"
^XMB(3.9,41,2,13011,0)="""RTN"",""HLOUSR3"",14,0)"
^XMB(3.9,41,2,13012,0)=" D EXIT"
^XMB(3.9,41,2,13013,0)="""RTN"",""HLOUSR3"",15,0)"
^XMB(3.9,41,2,13014,0)=" S I="""""
^XMB(3.9,41,2,13015,0)="""RTN"",""HLOUSR3"",16,0)"
^XMB(3.9,41,2,13016,0)=" F  S I=$O(HLPARMS(I)) Q:I=""""  S @I=HLPARMS(I)"
^XMB(3.9,41,2,13017,0)="""RTN"",""HLOUSR3"",17,0)"
^XMB(3.9,41,2,13018,0)=" K HLPARMS"
^XMB(3.9,41,2,13019,0)="""RTN"",""HLOUSR3"",18,0)"
^XMB(3.9,41,2,13020,0)=" S (VALMCNT,I)=0"
^XMB(3.9,41,2,13021,0)="""RTN"",""HLOUSR3"",19,0)"
^XMB(3.9,41,2,13022,0)=" S TIME=START"
^XMB(3.9,41,2,13023,0)="""RTN"",""HLOUSR3"",20,0)"
^XMB(3.9,41,2,13024,0)=" F  S TIME=$O(^HLB(""SEARCH"",DIR,TIME)) Q:'TIME  Q:TIME>END  Q:VALMCNT>600  D"
^XMB(3.9,41,2,13025,0)="""RTN"",""HLOUSR3"",21,0)"
^XMB(3.9,41,2,13026,0)=" .N SAPP S SAPP="""""
^XMB(3.9,41,2,13027,0)="""RTN"",""HLOUSR3"",22,0)"
^XMB(3.9,41,2,13028,0)=" .S:APP'="""" SAPP=$O(^HLB(""SEARCH"",DIR,TIME,APP),-1)"
^XMB(3.9,41,2,13029,0)="""RTN"",""HLOUSR3"",23,0)"
^XMB(3.9,41,2,13030,0)=" .F  S SAPP=$O(^HLB(""SEARCH"",DIR,TIME,SAPP)) Q:SAPP=""""  Q:$E(SAPP,1,$L(APP))]APP  Q:VALMCNT>600  D:$E(SAPP,1,$L(APP))=APP"
^XMB(3.9,41,2,13031,0)="""RTN"",""HLOUSR3"",24,0)"
^XMB(3.9,41,2,13032,0)=" ..N SMSG S SMSG="""""
^XMB(3.9,41,2,13033,0)="""RTN"",""HLOUSR3"",25,0)"
^XMB(3.9,41,2,13034,0)=" ..S:MSG'="""" SMSG=$O(^HLB(""SEARCH"",DIR,TIME,SAPP,MSG),-1)"
^XMB(3.9,41,2,13035,0)="""RTN"",""HLOUSR3"",26,0)"
^XMB(3.9,41,2,13036,0)=" ..F  S SMSG=$O(^HLB(""SEARCH"",DIR,TIME,SAPP,SMSG)) Q:SMSG=""""  Q:$E(SMSG,1,$L(MSG))]MSG  Q:VALMCNT>600  D:$E(SMSG,1,$L(MSG))=MSG"
^XMB(3.9,41,2,13037,0)="""RTN"",""HLOUSR3"",27,0)"
^XMB(3.9,41,2,13038,0)=" ...N SEVENT S SEVENT="""""
^XMB(3.9,41,2,13039,0)="""RTN"",""HLOUSR3"",28,0)"
^XMB(3.9,41,2,13040,0)=" ...S:EVENT'="""" SEVENT=$O(^HLB(""SEARCH"",DIR,TIME,SAPP,SMSG,EVENT),-1)"
^XMB(3.9,41,2,13041,0)="""RTN"",""HLOUSR3"",29,0)"
^XMB(3.9,41,2,13042,0)=" ...F  S SEVENT=$O(^HLB(""SEARCH"",DIR,TIME,SAPP,SMSG,SEVENT)) Q:SEVENT=""""  Q:$E(SEVENT,1,$L(EVENT))]EVENT  Q:VALMCNT>600  D:$E(SEVENT,1,$L(EVENT))=EVENT"
^XMB(3.9,41,2,13043,0)="""RTN"",""HLOUSR3"",30,0)"
^XMB(3.9,41,2,13044,0)=" ....N IEN"
^XMB(3.9,41,2,13045,0)="""RTN"",""HLOUSR3"",31,0)"
^XMB(3.9,41,2,13046,0)=" ....S IEN="""""
^XMB(3.9,41,2,13047,0)="""RTN"",""HLOUSR3"",32,0)"
^XMB(3.9,41,2,13048,0)=" ....F  S IEN=$O(^HLB(""SEARCH"",DIR,TIME,SAPP,SMSG,SEVENT,IEN)) Q:IEN=""""  Q:VALMCNT>600  D ADDTO(DIR,TIME,SAPP,SMSG,SEVENT,IEN)"
^XMB(3.9,41,2,13049,0)="""RTN"",""HLOUSR3"",33,0)"
^XMB(3.9,41,2,13050,0)=" ;"
^XMB(3.9,41,2,13051,0)="""RTN"",""HLOUSR3"",34,0)"
^XMB(3.9,41,2,13052,0)=" ;"
^XMB(3.9,41,2,13053,0)="""RTN"",""HLOUSR3"",35,0)"
^XMB(3.9,41,2,13054,0)="END S VALMBCK=""R"""
^XMB(3.9,41,2,13055,0)="""RTN"",""HLOUSR3"",36,0)"
^XMB(3.9,41,2,13056,0)=" ;"
^XMB(3.9,41,2,13057,0)="""RTN"",""HLOUSR3"",37,0)"
^XMB(3.9,41,2,13058,0)=" Q"
^XMB(3.9,41,2,13059,0)="""RTN"",""HLOUSR3"",38,0)"
^XMB(3.9,41,2,13060,0)="ADDTO(DIR,TIME,APP,MSG,EVENT,IEN) ;"
^XMB(3.9,41,2,13061,0)="""RTN"",""HLOUSR3"",39,0)"
^XMB(3.9,41,2,13062,0)=" N HDR,FS,LOC,MSGID"
^XMB(3.9,41,2,13063,0)="""RTN"",""HLOUSR3"",40,0)"
^XMB(3.9,41,2,13064,0)=" S MSGID=$S($P(IEN,""^"",2):$P($G(^HLB(+IEN,3,$P(IEN,""^"",2),0)),""^"",2),1:$P($G(^HLB(IEN,0)),""^"",1))"
^XMB(3.9,41,2,13065,0)="""RTN"",""HLOUSR3"",41,0)"
^XMB(3.9,41,2,13066,0)=" S HDR=$G(^HLB(+IEN,1))"
^XMB(3.9,41,2,13067,0)="""RTN"",""HLOUSR3"",42,0)"
^XMB(3.9,41,2,13068,0)=" S FS=$E(HDR,4)"
^XMB(3.9,41,2,13069,0)="""RTN"",""HLOUSR3"",43,0)"
^XMB(3.9,41,2,13070,0)=" I FS'="""" D"
^XMB(3.9,41,2,13071,0)="""RTN"",""HLOUSR3"",44,0)"
^XMB(3.9,41,2,13072,0)=" .I DIR=""IN"" S LOC=$P(HDR,FS,4)"
^XMB(3.9,41,2,13073,0)="""RTN"",""HLOUSR3"",45,0)"
^XMB(3.9,41,2,13074,0)=" .I DIR'=""IN"" S LOC=$P(HDR,FS,6)"
^XMB(3.9,41,2,13075,0)="""RTN"",""HLOUSR3"",46,0)"
^XMB(3.9,41,2,13076,0)=" E  S LOC="""""
^XMB(3.9,41,2,13077,0)="""RTN"",""HLOUSR3"",47,0)"
^XMB(3.9,41,2,13078,0)=" S @VALMAR@($$I,0)=$$LJ(MSGID,25)_$$LJ(APP,30)_"" ""_MSG_""~""_EVENT"
^XMB(3.9,41,2,13079,0)="""RTN"",""HLOUSR3"",48,0)"
^XMB(3.9,41,2,13080,0)=" D CNTRL^VALM10(VALMCNT,1,25,IOINHI,IOINORM)"
^XMB(3.9,41,2,13081,0)="""RTN"",""HLOUSR3"",49,0)"
^XMB(3.9,41,2,13082,0)=" S @VALMAR@($$I,0)=""     ""_$$LJ($$FMTE^XLFDT(TIME,2),20)_$$LJ(LOC,60)"
^XMB(3.9,41,2,13083,0)="""RTN"",""HLOUSR3"",50,0)"
^XMB(3.9,41,2,13084,0)=" S @VALMAR@($$I,0)="""""
^XMB(3.9,41,2,13085,0)="""RTN"",""HLOUSR3"",51,0)"
^XMB(3.9,41,2,13086,0)=" Q"
^XMB(3.9,41,2,13087,0)="""RTN"",""HLOUSR3"",52,0)"
^XMB(3.9,41,2,13088,0)="LJ(STRING,LEN) ;"
^XMB(3.9,41,2,13089,0)="""RTN"",""HLOUSR3"",53,0)"
^XMB(3.9,41,2,13090,0)=" Q $$LJ^XLFSTR(STRING,LEN)"
^XMB(3.9,41,2,13091,0)="""RTN"",""HLOUSR3"",54,0)"
^XMB(3.9,41,2,13092,0)=" ;"
^XMB(3.9,41,2,13093,0)="""RTN"",""HLOUSR3"",55,0)"
^XMB(3.9,41,2,13094,0)="I() ;"
^XMB(3.9,41,2,13095,0)="""RTN"",""HLOUSR3"",56,0)"
^XMB(3.9,41,2,13096,0)=" S VALMCNT=VALMCNT+1"
^XMB(3.9,41,2,13097,0)="""RTN"",""HLOUSR3"",57,0)"
^XMB(3.9,41,2,13098,0)=" Q VALMCNT"
^XMB(3.9,41,2,13099,0)="""RTN"",""HLOUSR3"",58,0)"
^XMB(3.9,41,2,13100,0)=" ;"
^XMB(3.9,41,2,13101,0)="""RTN"",""HLOUSR3"",59,0)"
^XMB(3.9,41,2,13102,0)="ASK(PARMS) ;"
^XMB(3.9,41,2,13103,0)="""RTN"",""HLOUSR3"",60,0)"
^XMB(3.9,41,2,13104,0)=" N SUB"
^XMB(3.9,41,2,13105,0)="""RTN"",""HLOUSR3"",61,0)"
^XMB(3.9,41,2,13106,0)=" F SUB=""START"",""END"",""EVENT"",""APP"",""MSG"",""DIR"" S PARMS(SUB)="""""
^XMB(3.9,41,2,13107,0)="""RTN"",""HLOUSR3"",62,0)"
^XMB(3.9,41,2,13108,0)=" S PARMS(""START"")=$$ASKBEGIN^HLOUSR2()"
^XMB(3.9,41,2,13109,0)="""RTN"",""HLOUSR3"",63,0)"
^XMB(3.9,41,2,13110,0)=" Q:'PARMS(""START"") 0"
^XMB(3.9,41,2,13111,0)="""RTN"",""HLOUSR3"",64,0)"
^XMB(3.9,41,2,13112,0)=" S PARMS(""END"")=$$ASKEND^HLOUSR2(PARMS(""START""))"
^XMB(3.9,41,2,13113,0)="""RTN"",""HLOUSR3"",65,0)"
^XMB(3.9,41,2,13114,0)=" Q:'PARMS(""END"") 0"
^XMB(3.9,41,2,13115,0)="""RTN"",""HLOUSR3"",66,0)"
^XMB(3.9,41,2,13116,0)=" S PARMS(""APP"")=$$ASKAPP()"
^XMB(3.9,41,2,13117,0)="""RTN"",""HLOUSR3"",67,0)"
^XMB(3.9,41,2,13118,0)=" Q:PARMS(""APP"")=-1 0"
^XMB(3.9,41,2,13119,0)="""RTN"",""HLOUSR3"",68,0)"
^XMB(3.9,41,2,13120,0)=" S PARMS(""MSG"")=$$ASKMSG()"
^XMB(3.9,41,2,13121,0)="""RTN"",""HLOUSR3"",69,0)"
^XMB(3.9,41,2,13122,0)=" Q:PARMS(""MSG"")=-1 0"
^XMB(3.9,41,2,13123,0)="""RTN"",""HLOUSR3"",70,0)"
^XMB(3.9,41,2,13124,0)=" S PARMS(""EVENT"")=$$ASKEVENT()"
^XMB(3.9,41,2,13125,0)="""RTN"",""HLOUSR3"",71,0)"
^XMB(3.9,41,2,13126,0)=" Q:PARMS(""EVENT"")=-1 0"
^XMB(3.9,41,2,13127,0)="""RTN"",""HLOUSR3"",72,0)"
^XMB(3.9,41,2,13128,0)=" S PARMS(""DIR"")=$$ASKDIR()"
^XMB(3.9,41,2,13129,0)="""RTN"",""HLOUSR3"",73,0)"
^XMB(3.9,41,2,13130,0)=" Q:PARMS(""DIR"")=-1 0"
^XMB(3.9,41,2,13131,0)="""RTN"",""HLOUSR3"",74,0)"
^XMB(3.9,41,2,13132,0)=" S PARMS(""DIR"")=$S(PARMS(""DIR"")=""I"":""IN"",1:""OUT"")"
^XMB(3.9,41,2,13133,0)="""RTN"",""HLOUSR3"",75,0)"
^XMB(3.9,41,2,13134,0)=" Q 1"
^XMB(3.9,41,2,13135,0)="""RTN"",""HLOUSR3"",76,0)"
^XMB(3.9,41,2,13136,0)=" ;"
^XMB(3.9,41,2,13137,0)="""RTN"",""HLOUSR3"",77,0)"
^XMB(3.9,41,2,13138,0)="ASKAPP() ;"
^XMB(3.9,41,2,13139,0)="""RTN"",""HLOUSR3"",78,0)"
^XMB(3.9,41,2,13140,0)=" N DIR"
^XMB(3.9,41,2,13141,0)="""RTN"",""HLOUSR3"",79,0)"
^XMB(3.9,41,2,13142,0)=" S DIR(0)=""FO^0:60"""
^XMB(3.9,41,2,13143,0)="""RTN"",""HLOUSR3"",80,0)"
^XMB(3.9,41,2,13144,0)=" S DIR(""A"")=""Application"""
^XMB(3.9,41,2,13145,0)="""RTN"",""HLOUSR3"",81,0)"
^XMB(3.9,41,2,13146,0)=" S DIR(""?"",1)=""Enter the name of the application, or '^' to exit."""
^XMB(3.9,41,2,13147,0)="""RTN"",""HLOUSR3"",82,0)"
^XMB(3.9,41,2,13148,0)=" S DIR(""?"")=""You can enter just the first part of the name."""
^XMB(3.9,41,2,13149,0)="""RTN"",""HLOUSR3"",83,0)"
^XMB(3.9,41,2,13150,0)=" D ^DIR"
^XMB(3.9,41,2,13151,0)="""RTN"",""HLOUSR3"",84,0)"
^XMB(3.9,41,2,13152,0)=" Q:$D(DTOUT)!$D(DUOUT) -1"
^XMB(3.9,41,2,13153,0)="""RTN"",""HLOUSR3"",85,0)"
^XMB(3.9,41,2,13154,0)=" Q X"
^XMB(3.9,41,2,13155,0)="""RTN"",""HLOUSR3"",86,0)"
^XMB(3.9,41,2,13156,0)="ASKMSG() ;"
^XMB(3.9,41,2,13157,0)="""RTN"",""HLOUSR3"",87,0)"
^XMB(3.9,41,2,13158,0)=" N DIR"
^XMB(3.9,41,2,13159,0)="""RTN"",""HLOUSR3"",88,0)"
^XMB(3.9,41,2,13160,0)=" S DIR(0)=""FO^0:3"""
^XMB(3.9,41,2,13161,0)="""RTN"",""HLOUSR3"",89,0)"
^XMB(3.9,41,2,13162,0)=" S DIR(""A"")=""HL7 Message Type"""
^XMB(3.9,41,2,13163,0)="""RTN"",""HLOUSR3"",90,0)"
^XMB(3.9,41,2,13164,0)=" S DIR(""?"",1)=""Enter the 3 character message type (e.g. MFN, ADT), or '^' to exit."""
^XMB(3.9,41,2,13165,0)="""RTN"",""HLOUSR3"",91,0)"
^XMB(3.9,41,2,13166,0)=" S DIR(""?"")=""You can enter just the first character or two."""
^XMB(3.9,41,2,13167,0)="""RTN"",""HLOUSR3"",92,0)"
^XMB(3.9,41,2,13168,0)=" D ^DIR"
^XMB(3.9,41,2,13169,0)="""RTN"",""HLOUSR3"",93,0)"
^XMB(3.9,41,2,13170,0)=" Q:$D(DTOUT)!$D(DUOUT) -1"
^XMB(3.9,41,2,13171,0)="""RTN"",""HLOUSR3"",94,0)"
^XMB(3.9,41,2,13172,0)=" Q X"
^XMB(3.9,41,2,13173,0)="""RTN"",""HLOUSR3"",95,0)"
^XMB(3.9,41,2,13174,0)="ASKEVENT() ;"
^XMB(3.9,41,2,13175,0)="""RTN"",""HLOUSR3"",96,0)"
^XMB(3.9,41,2,13176,0)=" N DIR"
^XMB(3.9,41,2,13177,0)="""RTN"",""HLOUSR3"",97,0)"
^XMB(3.9,41,2,13178,0)=" S DIR(0)=""FO^0:3"""
^XMB(3.9,41,2,13179,0)="""RTN"",""HLOUSR3"",98,0)"
^XMB(3.9,41,2,13180,0)=" S DIR(""A"")=""HL7 Event"""
^XMB(3.9,41,2,13181,0)="""RTN"",""HLOUSR3"",99,0)"
^XMB(3.9,41,2,13182,0)=" S DIR(""?"",1)=""Enter the 3 character event type, or '^' to exit."""
^XMB(3.9,41,2,13183,0)="""RTN"",""HLOUSR3"",100,0)"
^XMB(3.9,41,2,13184,0)=" S DIR(""?"")=""You can enter just the first character or two."""
^XMB(3.9,41,2,13185,0)="""RTN"",""HLOUSR3"",101,0)"
^XMB(3.9,41,2,13186,0)=" D ^DIR"
^XMB(3.9,41,2,13187,0)="""RTN"",""HLOUSR3"",102,0)"
^XMB(3.9,41,2,13188,0)=" Q:$D(DTOUT)!$D(DUOUT) -1"
^XMB(3.9,41,2,13189,0)="""RTN"",""HLOUSR3"",103,0)"
^XMB(3.9,41,2,13190,0)=" Q X"
^XMB(3.9,41,2,13191,0)="""RTN"",""HLOUSR3"",104,0)"
^XMB(3.9,41,2,13192,0)="ASKDIR() ;"
^XMB(3.9,41,2,13193,0)="""RTN"",""HLOUSR3"",105,0)"
^XMB(3.9,41,2,13194,0)=" N DIR"
^XMB(3.9,41,2,13195,0)="""RTN"",""HLOUSR3"",106,0)"
^XMB(3.9,41,2,13196,0)=" S DIR(0)=""S^I:INCOMING;O:OUTGOING"""
^XMB(3.9,41,2,13197,0)="""RTN"",""HLOUSR3"",107,0)"
^XMB(3.9,41,2,13198,0)=" S DIR(""A"")=""Incoming or Outgoing"""
^XMB(3.9,41,2,13199,0)="""RTN"",""HLOUSR3"",108,0)"
^XMB(3.9,41,2,13200,0)=" S DIR(""?"",1)=""Are you searching for an incoming message or an outgoing message?"""
^XMB(3.9,41,2,13201,0)="""RTN"",""HLOUSR3"",109,0)"
^XMB(3.9,41,2,13202,0)=" S DIR(""?"")=""You can enter '^' to exit"""
^XMB(3.9,41,2,13203,0)="""RTN"",""HLOUSR3"",110,0)"
^XMB(3.9,41,2,13204,0)=" D ^DIR"
^XMB(3.9,41,2,13205,0)="""RTN"",""HLOUSR3"",111,0)"
^XMB(3.9,41,2,13206,0)=" Q:$D(DTOUT)!$D(DUOUT) -1"
^XMB(3.9,41,2,13207,0)="""RTN"",""HLOUSR3"",112,0)"
^XMB(3.9,41,2,13208,0)=" Q X"
^XMB(3.9,41,2,13209,0)="""RTN"",""HLOUSR3"",113,0)"
^XMB(3.9,41,2,13210,0)="HDR ;"
^XMB(3.9,41,2,13211,0)="""RTN"",""HLOUSR3"",114,0)"
^XMB(3.9,41,2,13212,0)=" S VALMHDR(1)=""MsgID                    Application                    MsgType"""
^XMB(3.9,41,2,13213,0)="""RTN"",""HLOUSR3"",115,0)"
^XMB(3.9,41,2,13214,0)=" Q"
^XMB(3.9,41,2,13215,0)="""RTN"",""HLOUSR3"",116,0)"
^XMB(3.9,41,2,13216,0)="HLP ;"
^XMB(3.9,41,2,13217,0)="""RTN"",""HLOUSR3"",117,0)"
^XMB(3.9,41,2,13218,0)=" Q"
^XMB(3.9,41,2,13219,0)="""RTN"",""HLOUSR3"",118,0)"
^XMB(3.9,41,2,13220,0)="EXIT ;"
^XMB(3.9,41,2,13221,0)="""RTN"",""HLOUSR3"",119,0)"
^XMB(3.9,41,2,13222,0)=" D CLEAN^VALM10"
^XMB(3.9,41,2,13223,0)="""RTN"",""HLOUSR3"",120,0)"
^XMB(3.9,41,2,13224,0)=" D CLEAR^VALM1"
^XMB(3.9,41,2,13225,0)="""RTN"",""HLOUSR3"",121,0)"
^XMB(3.9,41,2,13226,0)=" S VALMBCK=""R"""
^XMB(3.9,41,2,13227,0)="""RTN"",""HLOUSR3"",122,0)"
^XMB(3.9,41,2,13228,0)=" Q"
^XMB(3.9,41,2,13229,0)="""SEC"",""^DIC"",779.4,779.4,0,""AUDIT"")"
^XMB(3.9,41,2,13230,0)="@"
^XMB(3.9,41,2,13231,0)="""SEC"",""^DIC"",779.4,779.4,0,""DD"")"
^XMB(3.9,41,2,13232,0)="@"
^XMB(3.9,41,2,13233,0)="""SEC"",""^DIC"",779.4,779.4,0,""DEL"")"
^XMB(3.9,41,2,13234,0)="@"
^XMB(3.9,41,2,13235,0)="""SEC"",""^DIC"",779.4,779.4,0,""LAYGO"")"
^XMB(3.9,41,2,13236,0)="@"
^XMB(3.9,41,2,13237,0)="""SEC"",""^DIC"",779.4,779.4,0,""RD"")"
^XMB(3.9,41,2,13238,0)="@"
^XMB(3.9,41,2,13239,0)="""SEC"",""^DIC"",779.4,779.4,0,""WR"")"
^XMB(3.9,41,2,13240,0)="@"
^XMB(3.9,41,2,13241,0)="""VER"")"
^XMB(3.9,41,2,13242,0)="8.0^22.0"
^XMB(3.9,41,2,13243,0)="""^DD"",777,777,0)"
^XMB(3.9,41,2,13244,0)="FIELD^^3^9"
^XMB(3.9,41,2,13245,0)="""^DD"",777,777,0,""DDA"")"
^XMB(3.9,41,2,13246,0)="N"
^XMB(3.9,41,2,13247,0)="""^DD"",777,777,0,""DT"")"
^XMB(3.9,41,2,13248,0)="3040813"
^XMB(3.9,41,2,13249,0)="""^DD"",777,777,0,""IX"",""B"",777,.01)"
^XMB(3.9,41,2,13250,0)=""
^XMB(3.9,41,2,13251,0)="""^DD"",777,777,0,""NM"",""HLO MESSAGE BODY"")"
^XMB(3.9,41,2,13252,0)=""
^XMB(3.9,41,2,13253,0)="""^DD"",777,777,0,""PT"",778,.02)"
^XMB(3.9,41,2,13254,0)=""
^XMB(3.9,41,2,13255,0)="""^DD"",777,777,0,""VRPK"")"
^XMB(3.9,41,2,13256,0)="HL"
^XMB(3.9,41,2,13257,0)="""^DD"",777,777,.01,0)"
^XMB(3.9,41,2,13258,0)="DATE/TIME ENTERED^RD^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,41,2,13259,0)="""^DD"",777,777,.01,1,0)"
^XMB(3.9,41,2,13260,0)="^.1"
^XMB(3.9,41,2,13261,0)="""^DD"",777,777,.01,1,1,0)"
^XMB(3.9,41,2,13262,0)="777^B"
^XMB(3.9,41,2,13263,0)="""^DD"",777,777,.01,1,1,1)"
^XMB(3.9,41,2,13264,0)="S ^HLA(""B"",$E(X,1,30),DA)="""""
^XMB(3.9,41,2,13265,0)="""^DD"",777,777,.01,1,1,2)"
^XMB(3.9,41,2,13266,0)="K ^HLA(""B"",$E(X,1,30),DA)"
^XMB(3.9,41,2,13267,0)="""^DD"",777,777,.01,3)"
^XMB(3.9,41,2,13268,0)="Enter the exact time that this entry was created."
^XMB(3.9,41,2,13269,0)="""^DD"",777,777,.01,""DT"")"
^XMB(3.9,41,2,13270,0)="3040726"
^XMB(3.9,41,2,13271,0)="""^DD"",777,777,.02,0)"
^XMB(3.9,41,2,13272,0)="BATCH^S^0:NO;1:YES;^0;2^Q"
^XMB(3.9,41,2,13273,0)="""^DD"",777,777,.02,3)"
^XMB(3.9,41,2,13274,0)="Enter YES if this is a batch message."
^XMB(3.9,41,2,13275,0)="""^DD"",777,777,.02,""DT"")"
^XMB(3.9,41,2,13276,0)="3040726"
^XMB(3.9,41,2,13277,0)="""^DD"",777,777,.03,0)"
^XMB(3.9,41,2,13278,0)="MESSAGE TYPE^F^^0;3^K:$L(X)>3!($L(X)<3) X"
^XMB(3.9,41,2,13279,0)="""^DD"",777,777,.03,3)"
^XMB(3.9,41,2,13280,0)="Enter the 3 character HL7 message type."
^XMB(3.9,41,2,13281,0)="""^DD"",777,777,.03,""DT"")"
^XMB(3.9,41,2,13282,0)="3040726"
^XMB(3.9,41,2,13283,0)="""^DD"",777,777,.04,0)"
^XMB(3.9,41,2,13284,0)="EVENT^F^^0;4^K:$L(X)>3!($L(X)<3) X"
^XMB(3.9,41,2,13285,0)="""^DD"",777,777,.04,3)"
^XMB(3.9,41,2,13286,0)="Enter the 3 character HL7 event."
^XMB(3.9,41,2,13287,0)="""^DD"",777,777,.04,""DT"")"
^XMB(3.9,41,2,13288,0)="3040726"
^XMB(3.9,41,2,13289,0)="""^DD"",777,777,.05,0)"
^XMB(3.9,41,2,13290,0)="HL7 VERSION^RF^^0;5^K:$L(X)>20!($L(X)<1) X"
^XMB(3.9,41,2,13291,0)="""^DD"",777,777,.05,3)"
^XMB(3.9,41,2,13292,0)="Identify the version of the HL7 standard that this message conforms to."
^XMB(3.9,41,2,13293,0)="""^DD"",777,777,.05,""DT"")"
^XMB(3.9,41,2,13294,0)="3040726"
^XMB(3.9,41,2,13295,0)="""^DD"",777,777,.2,0)"
^XMB(3.9,41,2,13296,0)="HL7 ENCODING CHARACTERS^RF^^0;20^K:$L(X)>5!($L(X)<5) X"
^XMB(3.9,41,2,13297,0)="""^DD"",777,777,.2,3)"
^XMB(3.9,41,2,13298,0)="The 5 HL7 encoding characters in this order: Field Separator, Component Separator, Repetition Separator, Escape Character, Subcomponent Separator"
^XMB(3.9,41,2,13299,0)="""^DD"",777,777,.2,23,0)"
^XMB(3.9,41,2,13300,0)="^^1^1^3040726^"
^XMB(3.9,41,2,13301,0)="""^DD"",777,777,.2,23,1,0)"
^XMB(3.9,41,2,13302,0)="No other fields may follow this one on the 0 node!"
^XMB(3.9,41,2,13303,0)="""^DD"",777,777,.2,""DT"")"
^XMB(3.9,41,2,13304,0)="3050317"
^XMB(3.9,41,2,13305,0)="""^DD"",777,777,1,0)"
^XMB(3.9,41,2,13306,0)="SEGMENTS (NOT BATCHED)^777.01A^^1;0"
^XMB(3.9,41,2,13307,0)="""^DD"",777,777,2,0)"
^XMB(3.9,41,2,13308,0)="BATCHED MESSAGES^777.02A^^2;0"
^XMB(3.9,41,2,13309,0)="""^DD"",777,777,3,0)"
^XMB(3.9,41,2,13310,0)="BTS^F^^3;1^K:$L(X)>250!($L(X)<1) X"
^XMB(3.9,41,2,13311,0)="""^DD"",777,777,3,3)"
^XMB(3.9,41,2,13312,0)="Answer must be 1-250 characters in length."
^XMB(3.9,41,2,13313,0)="""^DD"",777,777,3,21,0)"
^XMB(3.9,41,2,13314,0)="^^2^2^3041116^^"
^XMB(3.9,41,2,13315,0)="""^DD"",777,777,3,21,1,0)"
^XMB(3.9,41,2,13316,0)="For incoming batch messages only, the BTS segment is stored in this field,"
^XMB(3.9,41,2,13317,0)="""^DD"",777,777,3,21,2,0)"
^XMB(3.9,41,2,13318,0)="which is a separate node."
^XMB(3.9,41,2,13319,0)="""^DD"",777,777,3,""DT"")"
^XMB(3.9,41,2,13320,0)="3041116"
^XMB(3.9,41,2,13321,0)="""^DD"",777,777.01,0)"
^XMB(3.9,41,2,13322,0)="SEGMENTS (NOT BATCHED) SUB-FIELD^^.01^1"
^XMB(3.9,41,2,13323,0)="""^DD"",777,777.01,0,""DT"")"
^XMB(3.9,41,2,13324,0)="3040726"
^XMB(3.9,41,2,13325,0)="""^DD"",777,777.01,0,""IX"",""B"",777.01,.01)"
^XMB(3.9,41,2,13326,0)=""
^XMB(3.9,41,2,13327,0)="""^DD"",777,777.01,0,""NM"",""SEGMENTS (NOT BATCHED)"")"
^XMB(3.9,41,2,13328,0)=""
^XMB(3.9,41,2,13329,0)="""^DD"",777,777.01,0,""UP"")"
^XMB(3.9,41,2,13330,0)="777"
^XMB(3.9,41,2,13331,0)="""^DD"",777,777.01,.01,0)"
^XMB(3.9,41,2,13332,0)="SEGMENTS^WL^^0;1^K:$L(X)>250!($L(X)<1) X"
^XMB(3.9,41,2,13333,0)="""^DD"",777,777.01,.01,1,0)"
^XMB(3.9,41,2,13334,0)="^.1"
^XMB(3.9,41,2,13335,0)="""^DD"",777,777.01,.01,1,1,0)"
^XMB(3.9,41,2,13336,0)="777.01^B"
^XMB(3.9,41,2,13337,0)="""^DD"",777,777.01,.01,1,1,1)"
^XMB(3.9,41,2,13338,0)="S ^HLA(DA(1),1,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,41,2,13339,0)="""^DD"",777,777.01,.01,1,1,2)"
^XMB(3.9,41,2,13340,0)="K ^HLA(DA(1),1,""B"",$E(X,1,30),DA)"
^XMB(3.9,41,2,13341,0)="""^DD"",777,777.01,.01,3)"
^XMB(3.9,41,2,13342,0)="Segments should be separated with an empty line."
^XMB(3.9,41,2,13343,0)="""^DD"",777,777.01,.01,""DT"")"
^XMB(3.9,41,2,13344,0)="3040726"
^XMB(3.9,41,2,13345,0)="""^DD"",777,777.02,0)"
^XMB(3.9,41,2,13346,0)="BATCHED MESSAGES SUB-FIELD^^1^4"
^XMB(3.9,41,2,13347,0)="""^DD"",777,777.02,0,""DT"")"
^XMB(3.9,41,2,13348,0)="3040726"
^XMB(3.9,41,2,13349,0)="""^DD"",777,777.02,0,""IX"",""B"",777.02,.01)"
^XMB(3.9,41,2,13350,0)=""
^XMB(3.9,41,2,13351,0)="""^DD"",777,777.02,0,""NM"",""BATCHED MESSAGES"")"
^XMB(3.9,41,2,13352,0)=""
^XMB(3.9,41,2,13353,0)="""^DD"",777,777.02,0,""UP"")"
^XMB(3.9,41,2,13354,0)="777"
^XMB(3.9,41,2,13355,0)="""^DD"",777,777.02,.01,0)"
^XMB(3.9,41,2,13356,0)="MESSAGE^NJ6,0^^0;1^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^XMB(3.9,41,2,13357,0)="""^DD"",777,777.02,.01,1,0)"
^XMB(3.9,41,2,13358,0)="^.1"
^XMB(3.9,41,2,13359,0)="""^DD"",777,777.02,.01,1,1,0)"
^XMB(3.9,41,2,13360,0)="777.02^B"
^XMB(3.9,41,2,13361,0)="""^DD"",777,777.02,.01,1,1,1)"
^XMB(3.9,41,2,13362,0)="S ^HLA(DA(1),2,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,41,2,13363,0)="""^DD"",777,777.02,.01,1,1,2)"
^XMB(3.9,41,2,13364,0)="K ^HLA(DA(1),2,""B"",$E(X,1,30),DA)"
^XMB(3.9,41,2,13365,0)="""^DD"",777,777.02,.01,3)"
^XMB(3.9,41,2,13366,0)="Enter a number to identify the sequence of this message within the batch, starting with 1, 2, 3, etc."
^XMB(3.9,41,2,13367,0)="""^DD"",777,777.02,.01,""DT"")"
^XMB(3.9,41,2,13368,0)="3040726"
^XMB(3.9,41,2,13369,0)="""^DD"",777,777.02,.02,0)"
^XMB(3.9,41,2,13370,0)="MESSAGE TYPE^RF^^0;2^K:$L(X)>3!($L(X)<3) X"
^XMB(3.9,41,2,13371,0)="""^DD"",777,777.02,.02,3)"
^XMB(3.9,41,2,13372,0)="Enter the 3 character HL7 message type."
^XMB(3.9,41,2,13373,0)="""^DD"",777,777.02,.02,""DT"")"
^XMB(3.9,41,2,13374,0)="3040726"
^XMB(3.9,41,2,13375,0)="""^DD"",777,777.02,.03,0)"
^XMB(3.9,41,2,13376,0)="EVENT^RF^^0;3^K:$L(X)>3!($L(X)<3) X"
^XMB(3.9,41,2,13377,0)="""^DD"",777,777.02,.03,3)"
^XMB(3.9,41,2,13378,0)="Enter the 3 character HL7 event type."
^XMB(3.9,41,2,13379,0)="""^DD"",777,777.02,.03,""DT"")"
^XMB(3.9,41,2,13380,0)="3040726"
^XMB(3.9,41,2,13381,0)="""^DD"",777,777.02,1,0)"
^XMB(3.9,41,2,13382,0)="MESSAGE SEGMENTS^777.21A^^1;0"
^XMB(3.9,41,2,13383,0)="""^DD"",777,777.21,0)"
^XMB(3.9,41,2,13384,0)="MESSAGE SEGMENTS SUB-FIELD^^.01^1"
^XMB(3.9,41,2,13385,0)="""^DD"",777,777.21,0,""DT"")"
^XMB(3.9,41,2,13386,0)="3040726"
^XMB(3.9,41,2,13387,0)="""^DD"",777,777.21,0,""IX"",""B"",777.21,.01)"
^XMB(3.9,41,2,13388,0)=""
^XMB(3.9,41,2,13389,0)="""^DD"",777,777.21,0,""NM"",""MESSAGE SEGMENTS"")"
^XMB(3.9,41,2,13390,0)=""
^XMB(3.9,41,2,13391,0)="""^DD"",777,777.21,0,""UP"")"
^XMB(3.9,41,2,13392,0)="777.02"
^XMB(3.9,41,2,13393,0)="""^DD"",777,777.21,.01,0)"
^XMB(3.9,41,2,13394,0)="SEGMENTS (BATCH)^WL^^0;E1,250^K:$L(X)>250!($L(X)<1) X"
^XMB(3.9,41,2,13395,0)="""^DD"",777,777.21,.01,1,0)"
^XMB(3.9,41,2,13396,0)="^.1"
^XMB(3.9,41,2,13397,0)="""^DD"",777,777.21,.01,1,1,0)"
^XMB(3.9,41,2,13398,0)="777.21^B"
^XMB(3.9,41,2,13399,0)="""^DD"",777,777.21,.01,1,1,1)"
^XMB(3.9,41,2,13400,0)="S ^HLA(DA(2),2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,41,2,13401,0)="""^DD"",777,777.21,.01,1,1,2)"
^XMB(3.9,41,2,13402,0)="K ^HLA(DA(2),2,DA(1),1,""B"",$E(X,1,30),DA)"
^XMB(3.9,41,2,13403,0)="""^DD"",777,777.21,.01,3)"
^XMB(3.9,41,2,13404,0)="Enter each segment as a sequence of lines, with each segment separated by a blank line."
^XMB(3.9,41,2,13405,0)="""^DD"",777,777.21,.01,""DT"")"
^XMB(3.9,41,2,13406,0)="3040812"
^XMB(3.9,41,2,13407,0)="""^DD"",778,778,0)"
^XMB(3.9,41,2,13408,0)="FIELD^^4.03^27"
^XMB(3.9,41,2,13409,0)="""^DD"",778,778,0,""DDA"")"
^XMB(3.9,41,2,13410,0)="N"
^XMB(3.9,41,2,13411,0)="""^DD"",778,778,0,""DT"")"
^XMB(3.9,41,2,13412,0)="3050504"
^XMB(3.9,41,2,13413,0)="""^DD"",778,778,0,""IX"",""AC"",778,.01)"
^XMB(3.9,41,2,13414,0)=""
^XMB(3.9,41,2,13415,0)="""^DD"",778,778,0,""IX"",""AD"",778,.09)"
^XMB(3.9,41,2,13416,0)=""
^XMB(3.9,41,2,13417,0)="""^DD"",778,778,0,""IX"",""AE"",778.03,.02)"
^XMB(3.9,41,2,13418,0)=""
^XMB(3.9,41,2,13419,0)="""^DD"",778,778,0,""IX"",""B"",778,.01)"
^XMB(3.9,41,2,13420,0)=""
^XMB(3.9,41,2,13421,0)="""^DD"",778,778,0,""IX"",""C"",778,.02)"
^XMB(3.9,41,2,13422,0)=""
^XMB(3.9,41,2,13423,0)="""^DD"",778,778,0,""NM"",""HLO MESSAGES"")"
^XMB(3.9,41,2,13424,0)=""
^XMB(3.9,41,2,13425,0)="""^DD"",778,778,0,""VRPK"")"
^XMB(3.9,41,2,13426,0)="HL"
^XMB(3.9,41,2,13427,0)="""^DD"",778,778,.01,0)"
^XMB(3.9,41,2,13428,0)="MESSAGE ID^RF^^0;1^K:$L(X)>20!($L(X)<3) X"
^XMB(3.9,41,2,13429,0)="""^DD"",778,778,.01,1,0)"
^XMB(3.9,41,2,13430,0)="^.1"
^XMB(3.9,41,2,13431,0)="""^DD"",778,778,.01,1,1,0)"
^XMB(3.9,41,2,13432,0)="778^B"
^XMB(3.9,41,2,13433,0)="""^DD"",778,778,.01,1,1,1)"
^XMB(3.9,41,2,13434,0)="S ^HLB(""B"",$E(X,1,30),DA)="""""
^XMB(3.9,41,2,13435,0)="""^DD"",778,778,.01,1,1,2)"
^XMB(3.9,41,2,13436,0)="K ^HLB(""B"",$E(X,1,30),DA)"
^XMB(3.9,41,2,13437,0)="""^DD"",778,778,.01,1,2,0)"
^XMB(3.9,41,2,13438,0)="778^AC^MUMPS"
^XMB(3.9,41,2,13439,0)="""^DD"",778,778,.01,1,2,1)"
^XMB(3.9,41,2,13440,0)="Q"
^XMB(3.9,41,2,13441,0)="""^DD"",778,778,.01,1,2,2)"
^XMB(3.9,41,2,13442,0)="Q"
^XMB(3.9,41,2,13443,0)="""^DD"",778,778,.01,1,2,""%D"",0)"
^XMB(3.9,41,2,13444,0)="^.101^3^3^3041116^^"
^XMB(3.9,41,2,13445,0)="""^DD"",778,778,.01,1,2,""%D"",1,0)"
^XMB(3.9,41,2,13446,0)="This x-ref is maintained by the HL7 package.  It is used to detect if an"
^XMB(3.9,41,2,13447,0)="""^DD"",778,778,.01,1,2,""%D"",2,0)"
^XMB(3.9,41,2,13448,0)="incoming message is a duplicate.  The format is:"
^XMB(3.9,41,2,13449,0)="""^DD"",778,778,.01,1,2,""%D"",3,0)"
^XMB(3.9,41,2,13450,0)="^HLB(""AC""sending facility>_<sending application>_<msg id>,ien)=0"
^XMB(3.9,41,2,13451,0)="""^DD"",778,778,.01,1,2,""DT"")"
^XMB(3.9,41,2,13452,0)="3040812"
^XMB(3.9,41,2,13453,0)="""^DD"",778,778,.01,3)"
^XMB(3.9,41,2,13454,0)="Answer must be 3-20 characters in length"
^XMB(3.9,41,2,13455,0)="""^DD"",778,778,.01,""DT"")"
^XMB(3.9,41,2,13456,0)="3050504"
^XMB(3.9,41,2,13457,0)="""^DD"",778,778,.02,0)"
^XMB(3.9,41,2,13458,0)="MESSAGE BODY^RP777'^HLA(^0;2^Q"
^XMB(3.9,41,2,13459,0)="""^DD"",778,778,.02,1,0)"
^XMB(3.9,41,2,13460,0)="^.1"
^XMB(3.9,41,2,13461,0)="""^DD"",778,778,.02,1,1,0)"
^XMB(3.9,41,2,13462,0)="778^C^MUMPS"
^XMB(3.9,41,2,13463,0)="""^DD"",778,778,.02,1,1,1)"
^XMB(3.9,41,2,13464,0)="S ^HLB(""C"",X,DA)="""""
^XMB(3.9,41,2,13465,0)="""^DD"",778,778,.02,1,1,2)"
^XMB(3.9,41,2,13466,0)="K ^HLB(""C"",X,DA)"
^XMB(3.9,41,2,13467,0)="""^DD"",778,778,.02,1,1,""%D"",0)"
^XMB(3.9,41,2,13468,0)="^.101^2^2^3050317^^"
^XMB(3.9,41,2,13469,0)="""^DD"",778,778,.02,1,1,""%D"",1,0)"
^XMB(3.9,41,2,13470,0)="Used to find all the messages that point to the same entry in file 777. Only"
^XMB(3.9,41,2,13471,0)="""^DD"",778,778,.02,1,1,""%D"",2,0)"
^XMB(3.9,41,2,13472,0)="set for outgoing messages."
^XMB(3.9,41,2,13473,0)="""^DD"",778,778,.02,1,1,""DT"")"
^XMB(3.9,41,2,13474,0)="3040815"
^XMB(3.9,41,2,13475,0)="""^DD"",778,778,.02,3)"
^XMB(3.9,41,2,13476,0)="Which record in file #777 contains the body of the message?"
^XMB(3.9,41,2,13477,0)="""^DD"",778,778,.02,""DT"")"
^XMB(3.9,41,2,13478,0)="3050317"
^XMB(3.9,41,2,13479,0)="""^DD"",778,778,.03,0)"
^XMB(3.9,41,2,13480,0)="APPLICATION ACKNOWLEDGMENT TO^F^^0;3^K:$L(X)>30!($L(X)<3) X"
^XMB(3.9,41,2,13481,0)="""^DD"",778,778,.03,3)"
^XMB(3.9,41,2,13482,0)="Enter the Message Control ID of the message to which this one is an acknowledgment."
^XMB(3.9,41,2,13483,0)="""^DD"",778,778,.03,21,0)"
^XMB(3.9,41,2,13484,0)="^^2^2^3050317^^"
^XMB(3.9,41,2,13485,0)="""^DD"",778,778,.03,21,1,0)"
^XMB(3.9,41,2,13486,0)="This is the Message Control ID of the original message to which this message"
^XMB(3.9,41,2,13487,0)="""^DD"",778,778,.03,21,2,0)"
^XMB(3.9,41,2,13488,0)="is an application acknowledgment."
^XMB(3.9,41,2,13489,0)="""^DD"",778,778,.03,""DT"")"
^XMB(3.9,41,2,13490,0)="3050317"
^XMB(3.9,41,2,13491,0)="""^DD"",778,778,.04,0)"
^XMB(3.9,41,2,13492,0)="DIRECTION^RS^I:INCOMING;O:OUTGOING;^0;4^Q"
^XMB(3.9,41,2,13493,0)="""^DD"",778,778,.04,3)"
^XMB(3.9,41,2,13494,0)="Is the message INCOMING or OUTGOING?"
^XMB(3.9,41,2,13495,0)="""^DD"",778,778,.04,""DT"")"
^XMB(3.9,41,2,13496,0)="3041116"
^XMB(3.9,41,2,13497,0)="""^DD"",778,778,.05,0)"
^XMB(3.9,41,2,13498,0)="LINK^RF^^0;5^K:$L(X)>10!($L(X)<3) X"
^XMB(3.9,41,2,13499,0)="""^DD"",778,778,.05,3)"
^XMB(3.9,41,2,13500,0)="Enter the name of the logical link over which the message is being transmitted."
^XMB(3.9,41,2,13501,0)="""^DD"",778,778,.05,""DT"")"
^XMB(3.9,41,2,13502,0)="3041116"
^XMB(3.9,41,2,13503,0)="""^DD"",778,778,.06,0)"
^XMB(3.9,41,2,13504,0)="QUEUE^F^^0;6^K:$L(X)>20!($L(X)<3) X"
^XMB(3.9,41,2,13505,0)="""^DD"",778,778,.06,3)"
^XMB(3.9,41,2,13506,0)="Is the queue on which this message was placed."
^XMB(3.9,41,2,13507,0)="""^DD"",778,778,.06,""DT"")"
^XMB(3.9,41,2,13508,0)="3040729"
^XMB(3.9,41,2,13509,0)="""^DD"",778,778,.07,0)"
^XMB(3.9,41,2,13510,0)="APPLICATION ACKNOWLEDGMENT BY^F^^0;7^K:$L(X)>30!($L(X)<3) X"
^XMB(3.9,41,2,13511,0)="""^DD"",778,778,.07,3)"
^XMB(3.9,41,2,13512,0)="If this message has received an application response then enter the responses Message Control ID."
^XMB(3.9,41,2,13513,0)="""^DD"",778,778,.07,""DT"")"
^XMB(3.9,41,2,13514,0)="3040930"
^XMB(3.9,41,2,13515,0)="""^DD"",778,778,.08,0)"
^XMB(3.9,41,2,13516,0)="REMOTE PORT^NJ5,0^^0;8^K:+X'=X!(X>65535)!(X<1)!(X?.E1"".""1.N) X"
^XMB(3.9,41,2,13517,0)="""^DD"",778,778,.08,3)"
^XMB(3.9,41,2,13518,0)="Enter the remote port indicated in the Facility field of the message header."
^XMB(3.9,41,2,13519,0)="""^DD"",778,778,.08,21,0)"
^XMB(3.9,41,2,13520,0)="^^4^4^3050504^^"
^XMB(3.9,41,2,13521,0)="""^DD"",778,778,.08,21,1,0)"
^XMB(3.9,41,2,13522,0)="This is the remote port # that may be found in the message header. For outgoing"
^XMB(3.9,41,2,13523,0)="""^DD"",778,778,.08,21,2,0)"
^XMB(3.9,41,2,13524,0)="messages, it is in the Receiving Facility field, for incoming messages it is"
^XMB(3.9,41,2,13525,0)="""^DD"",778,778,.08,21,3,0)"
^XMB(3.9,41,2,13526,0)="in tthe Sending Facility. For application acknowledgments, the port provided in"
^XMB(3.9,41,2,13527,0)="""^DD"",778,778,.08,21,4,0)"
^XMB(3.9,41,2,13528,0)="the original message is used to return the acknowledgment. "
^XMB(3.9,41,2,13529,0)="""^DD"",778,778,.08,""DT"")"
^XMB(3.9,41,2,13530,0)="3050504"
^XMB(3.9,41,2,13531,0)="""^DD"",778,778,.09,0)"
^XMB(3.9,41,2,13532,0)="SCHEDULED PURGE DATE/TIME^D^^0;9^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,41,2,13533,0)="""^DD"",778,778,.09,1,0)"
^XMB(3.9,41,2,13534,0)="^.1"
^XMB(3.9,41,2,13535,0)="""^DD"",778,778,.09,1,1,0)"
^XMB(3.9,41,2,13536,0)="778^AD^MUMPS"
^XMB(3.9,41,2,13537,0)="""^DD"",778,778,.09,1,1,1)"
^XMB(3.9,41,2,13538,0)="Q"
^XMB(3.9,41,2,13539,0)="""^DD"",778,778,.09,1,1,2)"
^XMB(3.9,41,2,13540,0)="Q"
^XMB(3.9,41,2,13541,0)="""^DD"",778,778,.09,1,1,3)"
^XMB(3.9,41,2,13542,0)="DO NOT DELETE!"
^XMB(3.9,41,2,13543,0)="""^DD"",778,778,.09,1,1,""%D"",0)"
^XMB(3.9,41,2,13544,0)="^.101^4^4^3040828^^"
^XMB(3.9,41,2,13545,0)="""^DD"",778,778,.09,1,1,""%D"",1,0)"
^XMB(3.9,41,2,13546,0)="This cross-reference will be used to control the purging process.  It will"
^XMB(3.9,41,2,13547,0)="""^DD"",778,778,.09,1,1,""%D"",2,0)"
^XMB(3.9,41,2,13548,0)="be maintained within the HL7 package and will not be set via Fileman."
^XMB(3.9,41,2,13549,0)="""^DD"",778,778,.09,1,1,""%D"",3,0)"
^XMB(3.9,41,2,13550,0)="The format is:"
^XMB(3.9,41,2,13551,0)="""^DD"",778,778,.09,1,1,""%D"",4,0)"
^XMB(3.9,41,2,13552,0)="^HLB(""AD"",<""IN"" or ""OUT"">,<dt/tm for purging>,<message ien>)="""
^XMB(3.9,41,2,13553,0)="""^DD"",778,778,.09,1,1,""DT"")"
^XMB(3.9,41,2,13554,0)="3040819"
^XMB(3.9,41,2,13555,0)="""^DD"",778,778,.09,3)"
^XMB(3.9,41,2,13556,0)="When can this message be purged?"
^XMB(3.9,41,2,13557,0)="""^DD"",778,778,.09,""DT"")"
^XMB(3.9,41,2,13558,0)="3040819"
^XMB(3.9,41,2,13559,0)="""^DD"",778,778,.1,0)"
^XMB(3.9,41,2,13560,0)="APPLICATION ACK RSPNS TAG^F^^0;10^K:$L(X)>8!($L(X)<1) X"
^XMB(3.9,41,2,13561,0)="""^DD"",778,778,.1,3)"
^XMB(3.9,41,2,13562,0)="Answer must be 1-8 characters in length."
^XMB(3.9,41,2,13563,0)="""^DD"",778,778,.1,21,0)"
^XMB(3.9,41,2,13564,0)="^^4^4^3040727^"
^XMB(3.9,41,2,13565,0)="""^DD"",778,778,.1,21,1,0)"
^XMB(3.9,41,2,13566,0)="The sending application routine to execute when the application ack is received."
^XMB(3.9,41,2,13567,0)="""^DD"",778,778,.1,21,2,0)"
^XMB(3.9,41,2,13568,0)=""
^XMB(3.9,41,2,13569,0)="""^DD"",778,778,.1,21,3,0)"
^XMB(3.9,41,2,13570,0)="This is part one of a two-part field which is the entry point.  The second part"
^XMB(3.9,41,2,13571,0)="""^DD"",778,778,.1,21,4,0)"
^XMB(3.9,41,2,13572,0)="names the routine.  "
^XMB(3.9,41,2,13573,0)="""^DD"",778,778,.1,""DT"")"
^XMB(3.9,41,2,13574,0)="3040727"
^XMB(3.9,41,2,13575,0)="""^DD"",778,778,.11,0)"
^XMB(3.9,41,2,13576,0)="APPLICATION ACK RSPNS RTN^F^^0;11^K:$L(X)>8!($L(X)<1) X"
^XMB(3.9,41,2,13577,0)="""^DD"",778,778,.11,3)"
^XMB(3.9,41,2,13578,0)="Answer must be 1-8 characters in length."
^XMB(3.9,41,2,13579,0)="""^DD"",778,778,.11,21,0)"
^XMB(3.9,41,2,13580,0)="^^7^7^3040727^"
^XMB(3.9,41,2,13581,0)="""^DD"",778,778,.11,21,1,0)"
^XMB(3.9,41,2,13582,0)="Answer must be 1-8 characters in length. "
^XMB(3.9,41,2,13583,0)="""^DD"",778,778,.11,21,2,0)"
^XMB(3.9,41,2,13584,0)="The sending application routine to execute when"
^XMB(3.9,41,2,13585,0)="""^DD"",778,778,.11,21,3,0)"
^XMB(3.9,41,2,13586,0)="the application ack is received.  "
^XMB(3.9,41,2,13587,0)="""^DD"",778,778,.11,21,4,0)"
^XMB(3.9,41,2,13588,0)=" "
^XMB(3.9,41,2,13589,0)="""^DD"",778,778,.11,21,5,0)"
^XMB(3.9,41,2,13590,0)="This is part two of a two-part field which is"
^XMB(3.9,41,2,13591,0)="""^DD"",778,778,.11,21,6,0)"
^XMB(3.9,41,2,13592,0)="the routine name.  The first part names the"
^XMB(3.9,41,2,13593,0)="""^DD"",778,778,.11,21,7,0)"
^XMB(3.9,41,2,13594,0)="entry point.  "
^XMB(3.9,41,2,13595,0)="""^DD"",778,778,.11,""DT"")"
^XMB(3.9,41,2,13596,0)="3040727"
^XMB(3.9,41,2,13597,0)="""^DD"",778,778,.12,0)"
^XMB(3.9,41,2,13598,0)="ACCEPT ACK RSPNS TAG^F^^0;12^K:$L(X)>8!($L(X)<1) X"
^XMB(3.9,41,2,13599,0)="""^DD"",778,778,.12,3)"
^XMB(3.9,41,2,13600,0)="Answer must be 1-8 characters in length."
^XMB(3.9,41,2,13601,0)="""^DD"",778,778,.12,21,0)"
^XMB(3.9,41,2,13602,0)="^.001^7^7^3041116^^^"
^XMB(3.9,41,2,13603,0)="""^DD"",778,778,.12,21,1,0)"
^XMB(3.9,41,2,13604,0)="The sending application's routine to execute when the transmission of the"
^XMB(3.9,41,2,13605,0)="""^DD"",778,778,.12,21,2,0)"
^XMB(3.9,41,2,13606,0)="message fails, i.e., the message cannot be sent or no acceptack is received.  "
^XMB(3.9,41,2,13607,0)="""^DD"",778,778,.12,21,3,0)"
^XMB(3.9,41,2,13608,0)=" "
^XMB(3.9,41,2,13609,0)="""^DD"",778,778,.12,21,4,0)"
^XMB(3.9,41,2,13610,0)="This is part one of a two-part field, naming the entry point of the routine to"
^XMB(3.9,41,2,13611,0)="""^DD"",778,778,.12,21,5,0)"
^XMB(3.9,41,2,13612,0)="be called.  The second part names the routine.  "
^XMB(3.9,41,2,13613,0)="""^DD"",778,778,.12,21,6,0)"
^XMB(3.9,41,2,13614,0)="  "
^XMB(3.9,41,2,13615,0)="""^DD"",778,778,.12,21,7,0)"
^XMB(3.9,41,2,13616,0)="  "
^XMB(3.9,41,2,13617,0)="""^DD"",778,778,.12,""DT"")"
^XMB(3.9,41,2,13618,0)="3041116"
^XMB(3.9,41,2,13619,0)="""^DD"",778,778,.13,0)"
^XMB(3.9,41,2,13620,0)="ACCEPT ACK RESPNS RTN^F^^0;13^K:$L(X)>8!($L(X)<1) X"
^XMB(3.9,41,2,13621,0)="""^DD"",778,778,.13,3)"
^XMB(3.9,41,2,13622,0)="Answer must be 1-8 characters in length."
^XMB(3.9,41,2,13623,0)="""^DD"",778,778,.13,21,0)"
^XMB(3.9,41,2,13624,0)="^.001^6^6^3041116^^^^"
^XMB(3.9,41,2,13625,0)="""^DD"",778,778,.13,21,1,0)"
^XMB(3.9,41,2,13626,0)="The sending application routine to execute whe the commit ack is received.     "
^XMB(3.9,41,2,13627,0)="""^DD"",778,778,.13,21,2,0)"
^XMB(3.9,41,2,13628,0)=" "
^XMB(3.9,41,2,13629,0)="""^DD"",778,778,.13,21,3,0)"
^XMB(3.9,41,2,13630,0)="This is part two of a two-part field, consisting of the routine name. The first"
^XMB(3.9,41,2,13631,0)="""^DD"",778,778,.13,21,4,0)"
^XMB(3.9,41,2,13632,0)="part names the entry point with the M routine."
^XMB(3.9,41,2,13633,0)="""^DD"",778,778,.13,21,5,0)"
^XMB(3.9,41,2,13634,0)="  "
^XMB(3.9,41,2,13635,0)="""^DD"",778,778,.13,21,6,0)"
^XMB(3.9,41,2,13636,0)="  "
^XMB(3.9,41,2,13637,0)="""^DD"",778,778,.13,""DT"")"
^XMB(3.9,41,2,13638,0)="3041116"
^XMB(3.9,41,2,13639,0)="""^DD"",778,778,.14,0)"
^XMB(3.9,41,2,13640,0)="TRANSMISSION FAILURE RSPNS TAG^F^^0;14^K:$L(X)>8!($L(X)<1) X"
^XMB(3.9,41,2,13641,0)="""^DD"",778,778,.14,3)"
^XMB(3.9,41,2,13642,0)="Answer must be 1-8 characters in length."
^XMB(3.9,41,2,13643,0)="""^DD"",778,778,.14,21,0)"
^XMB(3.9,41,2,13644,0)="^^8^8^3040727^"
^XMB(3.9,41,2,13645,0)="""^DD"",778,778,.14,21,1,0)"
^XMB(3.9,41,2,13646,0)="The sending application's routine to execute"
^XMB(3.9,41,2,13647,0)="""^DD"",778,778,.14,21,2,0)"
^XMB(3.9,41,2,13648,0)="when the transmission of the message fails,"
^XMB(3.9,41,2,13649,0)="""^DD"",778,778,.14,21,3,0)"
^XMB(3.9,41,2,13650,0)="i.e., the message can not be sent or no commit"
^XMB(3.9,41,2,13651,0)="""^DD"",778,778,.14,21,4,0)"
^XMB(3.9,41,2,13652,0)="ack is received.  "
^XMB(3.9,41,2,13653,0)="""^DD"",778,778,.14,21,5,0)"
^XMB(3.9,41,2,13654,0)=" "
^XMB(3.9,41,2,13655,0)="""^DD"",778,778,.14,21,6,0)"
^XMB(3.9,41,2,13656,0)="This is part one of a two-part field which is"
^XMB(3.9,41,2,13657,0)="""^DD"",778,778,.14,21,7,0)"
^XMB(3.9,41,2,13658,0)="the entry point.  The second part names the"
^XMB(3.9,41,2,13659,0)="""^DD"",778,778,.14,21,8,0)"
^XMB(3.9,41,2,13660,0)="routine.  "
^XMB(3.9,41,2,13661,0)="""^DD"",778,778,.14,""DT"")"
^XMB(3.9,41,2,13662,0)="3040727"
^XMB(3.9,41,2,13663,0)="""^DD"",778,778,.15,0)"
^XMB(3.9,41,2,13664,0)="TRANSMISSION FAILURE RSPNS RTN^F^^0;15^K:$L(X)>8!($L(X)<1) X"
^XMB(3.9,41,2,13665,0)="""^DD"",778,778,.15,3)"
^XMB(3.9,41,2,13666,0)="Answer must be 1-8 characters in length."
^XMB(3.9,41,2,13667,0)="""^DD"",778,778,.15,21,0)"
^XMB(3.9,41,2,13668,0)="^^8^8^3040727^"
^XMB(3.9,41,2,13669,0)="""^DD"",778,778,.15,21,1,0)"
^XMB(3.9,41,2,13670,0)="The sending application's routine to execute"
^XMB(3.9,41,2,13671,0)="""^DD"",778,778,.15,21,2,0)"
^XMB(3.9,41,2,13672,0)="when the transmission of the message fails,"
^XMB(3.9,41,2,13673,0)="""^DD"",778,778,.15,21,3,0)"
^XMB(3.9,41,2,13674,0)="i.e., the message can not be sent or no commit"
^XMB(3.9,41,2,13675,0)="""^DD"",778,778,.15,21,4,0)"
^XMB(3.9,41,2,13676,0)="ack is received.  "
^XMB(3.9,41,2,13677,0)="""^DD"",778,778,.15,21,5,0)"
^XMB(3.9,41,2,13678,0)=" "
^XMB(3.9,41,2,13679,0)="""^DD"",778,778,.15,21,6,0)"
^XMB(3.9,41,2,13680,0)="This is part two of a two-part field which is"
^XMB(3.9,41,2,13681,0)="""^DD"",778,778,.15,21,7,0)"
^XMB(3.9,41,2,13682,0)="the routine's name.  The first part names the"
^XMB(3.9,41,2,13683,0)="""^DD"",778,778,.15,21,8,0)"
^XMB(3.9,41,2,13684,0)="entry point.  "
^XMB(3.9,41,2,13685,0)="""^DD"",778,778,.15,""DT"")"
^XMB(3.9,41,2,13686,0)="3040727"
^XMB(3.9,41,2,13687,0)="""^DD"",778,778,.16,0)"
^XMB(3.9,41,2,13688,0)="TRANSMISSION DATE/TIME^D^^0;16^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,41,2,13689,0)="""^DD"",778,778,.16,3)"
^XMB(3.9,41,2,13690,0)=""
^XMB(3.9,41,2,13691,0)="""^DD"",778,778,.16,21,0)"
^XMB(3.9,41,2,13692,0)="^^1^1^3040728^"
^XMB(3.9,41,2,13693,0)="""^DD"",778,778,.16,21,1,0)"
^XMB(3.9,41,2,13694,0)="This is the date and time that the message was either received or sent."
^XMB(3.9,41,2,13695,0)="""^DD"",778,778,.16,""DT"")"
^XMB(3.9,41,2,13696,0)="3040728"
^XMB(3.9,41,2,13697,0)="""^DD"",778,778,.17,0)"
^XMB(3.9,41,2,13698,0)="ACCEPT ACK'D^S^1:YES;^0;17^Q"
^XMB(3.9,41,2,13699,0)="""^DD"",778,778,.17,3)"
^XMB(3.9,41,2,13700,0)="Enter 1 if an accept ack was sent or received."
^XMB(3.9,41,2,13701,0)="""^DD"",778,778,.17,""DT"")"
^XMB(3.9,41,2,13702,0)="3040823"
^XMB(3.9,41,2,13703,0)="""^DD"",778,778,.18,0)"
^XMB(3.9,41,2,13704,0)="APPLICATION ACK'D^S^1:YES;^0;18^Q"
^XMB(3.9,41,2,13705,0)="""^DD"",778,778,.18,21,0)"
^XMB(3.9,41,2,13706,0)="^.001^3^3^3041116^^^"
^XMB(3.9,41,2,13707,0)="""^DD"",778,778,.18,21,1,0)"
^XMB(3.9,41,2,13708,0)="For incoming messages, this flag indicates that an application ack was"
^XMB(3.9,41,2,13709,0)="""^DD"",778,778,.18,21,2,0)"
^XMB(3.9,41,2,13710,0)="returned.  For outgoing messages, this field indicates that the application"
^XMB(3.9,41,2,13711,0)="""^DD"",778,778,.18,21,3,0)"
^XMB(3.9,41,2,13712,0)="ack was sent."
^XMB(3.9,41,2,13713,0)="""^DD"",778,778,.18,""DT"")"
^XMB(3.9,41,2,13714,0)="3041116"
^XMB(3.9,41,2,13715,0)="""^DD"",778,778,.19,0)"
^XMB(3.9,41,2,13716,0)="APPLICATION HANDOFF^S^1:YES;^0;19^Q"
^XMB(3.9,41,2,13717,0)="""^DD"",778,778,.19,21,0)"
^XMB(3.9,41,2,13718,0)="^^4^4^3040728^"
^XMB(3.9,41,2,13719,0)="""^DD"",778,778,.19,21,1,0)"
^XMB(3.9,41,2,13720,0)="This flag indicates that this message was handed to the application.  That"
^XMB(3.9,41,2,13721,0)="""^DD"",778,778,.19,21,2,0)"
^XMB(3.9,41,2,13722,0)="may be for initial processing, or it may be in response to one of the other"
^XMB(3.9,41,2,13723,0)="""^DD"",778,778,.19,21,3,0)"
^XMB(3.9,41,2,13724,0)="conditions that an application may register its need to respond, such"
^XMB(3.9,41,2,13725,0)="""^DD"",778,778,.19,21,4,0)"
^XMB(3.9,41,2,13726,0)="as a failure of the remote system to accept the message."
^XMB(3.9,41,2,13727,0)="""^DD"",778,778,.19,""DT"")"
^XMB(3.9,41,2,13728,0)="3040728"
^XMB(3.9,41,2,13729,0)="""^DD"",778,778,.2,0)"
^XMB(3.9,41,2,13730,0)="COMPLETION STATUS^S^SU:SUCCESSFUL;TF:TRANSMISSION FAILURE;SE:RECEIVING SYSTEM DETERMINED ERROR;AE:RECEIVING APPLICATION DETERMINED ERROR;^0;20^Q"
^XMB(3.9,41,2,13731,0)="""^DD"",778,778,.2,3)"
^XMB(3.9,41,2,13732,0)="Enter the code that indicates the final status of the message."
^XMB(3.9,41,2,13733,0)="""^DD"",778,778,.2,21,0)"
^XMB(3.9,41,2,13734,0)="^.001^3^3^3040820^^^^"
^XMB(3.9,41,2,13735,0)="""^DD"",778,778,.2,21,1,0)"
^XMB(3.9,41,2,13736,0)="This field indicates the final status of the message."
^XMB(3.9,41,2,13737,0)="""^DD"",778,778,.2,21,2,0)"
^XMB(3.9,41,2,13738,0)="Any code but SU (SUCCESSFUL) indicates that an error occurred."
^XMB(3.9,41,2,13739,0)="""^DD"",778,778,.2,21,3,0)"
^XMB(3.9,41,2,13740,0)="No value indicates that the message has not completed."
^XMB(3.9,41,2,13741,0)="""^DD"",778,778,.2,""DT"")"
^XMB(3.9,41,2,13742,0)="3040820"
^XMB(3.9,41,2,13743,0)="""^DD"",778,778,.21,0)"
^XMB(3.9,41,2,13744,0)="ERROR TEXT^F^^0;21^K:$L(X)>30!($L(X)<1) X"
^XMB(3.9,41,2,13745,0)="""^DD"",778,778,.21,3)"
^XMB(3.9,41,2,13746,0)="Answer must be 1-30 characters in length."
^XMB(3.9,41,2,13747,0)="""^DD"",778,778,.21,21,0)"
^XMB(3.9,41,2,13748,0)="^^3^3^3040928^^"
^XMB(3.9,41,2,13749,0)="""^DD"",778,778,.21,21,1,0)"
^XMB(3.9,41,2,13750,0)="The HL7 package may use this field to document errors that prevent transmission."
^XMB(3.9,41,2,13751,0)="""^DD"",778,778,.21,21,2,0)"
^XMB(3.9,41,2,13752,0)="Errors determined by the remote system are contained in the MSA segment of the "
^XMB(3.9,41,2,13753,0)="""^DD"",778,778,.21,21,3,0)"
^XMB(3.9,41,2,13754,0)="response message."
^XMB(3.9,41,2,13755,0)="""^DD"",778,778,.21,""DT"")"
^XMB(3.9,41,2,13756,0)="3040928"
^XMB(3.9,41,2,13757,0)="""^DD"",778,778,1,0)"
^XMB(3.9,41,2,13758,0)="HDR SEGMENT,COMPONENTS 1-6^RF^^1;E1,250^K:$L(X)>250!($L(X)<8) X"
^XMB(3.9,41,2,13759,0)="""^DD"",778,778,1,3)"
^XMB(3.9,41,2,13760,0)="The first 6 components of the message header segment."
^XMB(3.9,41,2,13761,0)="""^DD"",778,778,1,""DT"")"
^XMB(3.9,41,2,13762,0)="3040729"
^XMB(3.9,41,2,13763,0)="""^DD"",778,778,2,0)"
^XMB(3.9,41,2,13764,0)="HDR SEGMENT,COMPONENTS 7-END^RF^^2;E1,250^K:$L(X)>250!($L(X)<15) X"
^XMB(3.9,41,2,13765,0)="""^DD"",778,778,2,3)"
^XMB(3.9,41,2,13766,0)="Enter the header segment begining with component 7"
^XMB(3.9,41,2,13767,0)="""^DD"",778,778,2,""DT"")"
^XMB(3.9,41,2,13768,0)="3041116"
^XMB(3.9,41,2,13769,0)="""^DD"",778,778,3,0)"
^XMB(3.9,41,2,13770,0)="MSH SEGMENTS FOR BATCH^778.03A^^3;0"
^XMB(3.9,41,2,13771,0)="""^DD"",778,778,4.01,0)"
^XMB(3.9,41,2,13772,0)="DATE/TIME OF ACCEPT ACK^D^^4;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,41,2,13773,0)="""^DD"",778,778,4.01,3)"
^XMB(3.9,41,2,13774,0)="Enter the date and time of the ack."
^XMB(3.9,41,2,13775,0)="""^DD"",778,778,4.01,21,0)"
^XMB(3.9,41,2,13776,0)="^^1^1^3040928^^"
^XMB(3.9,41,2,13777,0)="""^DD"",778,778,4.01,21,1,0)"
^XMB(3.9,41,2,13778,0)="This field will be used to record the accept ack."
^XMB(3.9,41,2,13779,0)="""^DD"",778,778,4.01,""DT"")"
^XMB(3.9,41,2,13780,0)="3040928"
^XMB(3.9,41,2,13781,0)="""^DD"",778,778,4.02,0)"
^XMB(3.9,41,2,13782,0)="ACCEPT ACK MESSAGE ID^F^^4;2^K:$L(X)>30!($L(X)<1) X"
^XMB(3.9,41,2,13783,0)="""^DD"",778,778,4.02,3)"
^XMB(3.9,41,2,13784,0)="Answer must be 1-30 characters in length."
^XMB(3.9,41,2,13785,0)="""^DD"",778,778,4.02,""DT"")"
^XMB(3.9,41,2,13786,0)="3040928"
^XMB(3.9,41,2,13787,0)="""^DD"",778,778,4.03,0)"
^XMB(3.9,41,2,13788,0)="ACCEPT ACK MSA SEGMENT^F^^4;3^K:$L(X)>210!($L(X)<3) X"
^XMB(3.9,41,2,13789,0)="""^DD"",778,778,4.03,3)"
^XMB(3.9,41,2,13790,0)="Answer must be 3-210 characters in length."
^XMB(3.9,41,2,13791,0)="""^DD"",778,778,4.03,""DT"")"
^XMB(3.9,41,2,13792,0)="3040928"
^XMB(3.9,41,2,13793,0)="""^DD"",778,778.03,0)"
^XMB(3.9,41,2,13794,0)="MSH SEGMENTS FOR BATCH SUB-FIELD^^2^7"
^XMB(3.9,41,2,13795,0)="""^DD"",778,778.03,0,""DT"")"
^XMB(3.9,41,2,13796,0)="3040930"
^XMB(3.9,41,2,13797,0)="""^DD"",778,778.03,0,""IX"",""B"",778.03,.01)"
^XMB(3.9,41,2,13798,0)=""
^XMB(3.9,41,2,13799,0)="""^DD"",778,778.03,0,""NM"",""MSH SEGMENTS FOR BATCH"")"
^XMB(3.9,41,2,13800,0)=""
^XMB(3.9,41,2,13801,0)="""^DD"",778,778.03,0,""UP"")"
^XMB(3.9,41,2,13802,0)="778"
^XMB(3.9,41,2,13803,0)="""^DD"",778,778.03,.01,0)"
^XMB(3.9,41,2,13804,0)="MESSAGE IN BATCH^NJ5,0^^0;1^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^XMB(3.9,41,2,13805,0)="""^DD"",778,778.03,.01,1,0)"
^XMB(3.9,41,2,13806,0)="^.1"
^XMB(3.9,41,2,13807,0)="""^DD"",778,778.03,.01,1,1,0)"
^XMB(3.9,41,2,13808,0)="778.03^B"
^XMB(3.9,41,2,13809,0)="""^DD"",778,778.03,.01,1,1,1)"
^XMB(3.9,41,2,13810,0)="S ^HLB(DA(1),3,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,41,2,13811,0)="""^DD"",778,778.03,.01,1,1,2)"
^XMB(3.9,41,2,13812,0)="K ^HLB(DA(1),3,""B"",$E(X,1,30),DA)"
^XMB(3.9,41,2,13813,0)="""^DD"",778,778.03,.01,3)"
^XMB(3.9,41,2,13814,0)="Enter a number to sequence each message within the batch, starting with 1,2,3,...etc."
^XMB(3.9,41,2,13815,0)="""^DD"",778,778.03,.01,""DT"")"
^XMB(3.9,41,2,13816,0)="3040726"
^XMB(3.9,41,2,13817,0)="""^DD"",778,778.03,.02,0)"
^XMB(3.9,41,2,13818,0)="MESSAGE ID^RF^^0;2^K:$L(X)>30!($L(X)<1) X"
^XMB(3.9,41,2,13819,0)="""^DD"",778,778.03,.02,1,0)"
^XMB(3.9,41,2,13820,0)="^.1"
^XMB(3.9,41,2,13821,0)="""^DD"",778,778.03,.02,1,1,0)"
^XMB(3.9,41,2,13822,0)="778^AE^MUMPS"
^XMB(3.9,41,2,13823,0)="""^DD"",778,778.03,.02,1,1,1)"
^XMB(3.9,41,2,13824,0)="Q"
^XMB(3.9,41,2,13825,0)="""^DD"",778,778.03,.02,1,1,2)"
^XMB(3.9,41,2,13826,0)="Q"
^XMB(3.9,41,2,13827,0)="""^DD"",778,778.03,.02,1,1,""%D"",0)"
^XMB(3.9,41,2,13828,0)="^.101^5^5^3041006^^"
^XMB(3.9,41,2,13829,0)="""^DD"",778,778.03,.02,1,1,""%D"",1,0)"
^XMB(3.9,41,2,13830,0)="This cross-reference is maintained outside of Fileman. It is for finding"
^XMB(3.9,41,2,13831,0)="""^DD"",778,778.03,.02,1,1,""%D"",2,0)"
^XMB(3.9,41,2,13832,0)="individual messages within a batch using the individual Message Control ID."
^XMB(3.9,41,2,13833,0)="""^DD"",778,778.03,.02,1,1,""%D"",3,0)"
^XMB(3.9,41,2,13834,0)="Its format is:"
^XMB(3.9,41,2,13835,0)="""^DD"",778,778.03,.02,1,1,""%D"",4,0)"
^XMB(3.9,41,2,13836,0)=""
^XMB(3.9,41,2,13837,0)="""^DD"",778,778.03,.02,1,1,""%D"",5,0)"
^XMB(3.9,41,2,13838,0)="""AE"",<Message Control ID>,<ien, file 778>^<subien>)="""""
^XMB(3.9,41,2,13839,0)="""^DD"",778,778.03,.02,1,1,""DT"")"
^XMB(3.9,41,2,13840,0)="3041006"
^XMB(3.9,41,2,13841,0)="""^DD"",778,778.03,.02,3)"
^XMB(3.9,41,2,13842,0)="Answer must be 1-30 characters in length."
^XMB(3.9,41,2,13843,0)="""^DD"",778,778.03,.02,""DT"")"
^XMB(3.9,41,2,13844,0)="3041006"
^XMB(3.9,41,2,13845,0)="""^DD"",778,778.03,.03,0)"
^XMB(3.9,41,2,13846,0)="APPLICATION ACKNOWLEDGMENT TO^F^^0;3^K:$L(X)>30!($L(X)<3) X"
^XMB(3.9,41,2,13847,0)="""^DD"",778,778.03,.03,3)"
^XMB(3.9,41,2,13848,0)="Enter the Message Control ID of the message to which this one is a response."
^XMB(3.9,41,2,13849,0)="""^DD"",778,778.03,.03,21,0)"
^XMB(3.9,41,2,13850,0)="^^1^1^3040928^"
^XMB(3.9,41,2,13851,0)="""^DD"",778,778.03,.03,21,1,0)"
^XMB(3.9,41,2,13852,0)="This field is completed only if this message is an application acknowledgment."
^XMB(3.9,41,2,13853,0)="""^DD"",778,778.03,.03,""DT"")"
^XMB(3.9,41,2,13854,0)="3040928"
^XMB(3.9,41,2,13855,0)="""^DD"",778,778.03,.04,0)"
^XMB(3.9,41,2,13856,0)="APPLICATION ACKNOWLEDGMENT BY^F^^0;4^K:$L(X)>30!($L(X)<3) X"
^XMB(3.9,41,2,13857,0)="""^DD"",778,778.03,.04,3)"
^XMB(3.9,41,2,13858,0)=" Enter the Message Control ID of the application response."
^XMB(3.9,41,2,13859,0)="""^DD"",778,778.03,.04,""DT"")"
^XMB(3.9,41,2,13860,0)="3040929"
^XMB(3.9,41,2,13861,0)="""^DD"",778,778.03,.05,0)"
^XMB(3.9,41,2,13862,0)="COMPLETION STATUS^S^SU:SUCCESS;AE:APPLICATION ERROR;^0;5^Q"
^XMB(3.9,41,2,13863,0)="""^DD"",778,778.03,.05,3)"
^XMB(3.9,41,2,13864,0)="Enter only if an application acknowledgment is received. SU is for successfully completed messages, AE if an error is returned."
^XMB(3.9,41,2,13865,0)="""^DD"",778,778.03,.05,""DT"")"
^XMB(3.9,41,2,13866,0)="3040930"
^XMB(3.9,41,2,13867,0)="""^DD"",778,778.03,1,0)"
^XMB(3.9,41,2,13868,0)="MSH SEGMENT, COMPONENTS 1-6^RF^^1;E1,250^K:$L(X)>250!($L(X)<8) X"
^XMB(3.9,41,2,13869,0)="""^DD"",778,778.03,1,3)"
^XMB(3.9,41,2,13870,0)="Answer must be 8-250 characters in length."
^XMB(3.9,41,2,13871,0)="""^DD"",778,778.03,1,""DT"")"
^XMB(3.9,41,2,13872,0)="3040729"
^XMB(3.9,41,2,13873,0)="""^DD"",778,778.03,2,0)"
^XMB(3.9,41,2,13874,0)="MSH SEGMENT, COMPONENTS 7-END^F^^2;E1,250^K:$L(X)>250!($L(X)<15) X"
^XMB(3.9,41,2,13875,0)="""^DD"",778,778.03,2,3)"
^XMB(3.9,41,2,13876,0)="Answer must be 15-250 characters in length."
^XMB(3.9,41,2,13877,0)="""^DD"",778,778.03,2,""DT"")"
^XMB(3.9,41,2,13878,0)="3040729"
^XMB(3.9,41,2,13879,0)="""^DD"",779.1,779.1,0)"
^XMB(3.9,41,2,13880,0)="FIELD^^.1^10"
^XMB(3.9,41,2,13881,0)="""^DD"",779.1,779.1,0,""DDA"")"
^XMB(3.9,41,2,13882,0)="N"
^XMB(3.9,41,2,13883,0)="""^DD"",779.1,779.1,0,""DT"")"
^XMB(3.9,41,2,13884,0)="3050601"
^XMB(3.9,41,2,13885,0)="""^DD"",779.1,779.1,0,""IX"",""B"",779.1,.01)"
^XMB(3.9,41,2,13886,0)=""
^XMB(3.9,41,2,13887,0)="""^DD"",779.1,779.1,0,""NM"",""HLO SYSTEM PARAMETERS"")"
^XMB(3.9,41,2,13888,0)=""
^XMB(3.9,41,2,13889,0)="""^DD"",779.1,779.1,0,""VRPK"")"
^XMB(3.9,41,2,13890,0)="HL"
^XMB(3.9,41,2,13891,0)="""^DD"",779.1,779.1,.01,0)"
^XMB(3.9,41,2,13892,0)="DOMAIN NAME^RF^^0;1^K:$L(X)>64!($L(X)<3)!'(X'?1P.E) X"
^XMB(3.9,41,2,13893,0)="""^DD"",779.1,779.1,.01,1,0)"
^XMB(3.9,41,2,13894,0)="^.1"
^XMB(3.9,41,2,13895,0)="""^DD"",779.1,779.1,.01,1,1,0)"
^XMB(3.9,41,2,13896,0)="779.1^B"
^XMB(3.9,41,2,13897,0)="""^DD"",779.1,779.1,.01,1,1,1)"
^XMB(3.9,41,2,13898,0)="S ^HLD(779.1,""B"",$E(X,1,60),DA)="""""
^XMB(3.9,41,2,13899,0)="""^DD"",779.1,779.1,.01,1,1,2)"
^XMB(3.9,41,2,13900,0)="K ^HLD(779.1,""B"",$E(X,1,60),DA)"
^XMB(3.9,41,2,13901,0)="""^DD"",779.1,779.1,.01,3)"
^XMB(3.9,41,2,13902,0)="The domain name for this system.  It will be used to populate component 2 of the Sending Facility field of the HL7 message header."
^XMB(3.9,41,2,13903,0)="""^DD"",779.1,779.1,.01,21,0)"
^XMB(3.9,41,2,13904,0)="^^2^2^3040805^"
^XMB(3.9,41,2,13905,0)="""^DD"",779.1,779.1,.01,21,1,0)"
^XMB(3.9,41,2,13906,0)="The domain name for this system.  It will be used to populate component 2"
^XMB(3.9,41,2,13907,0)="""^DD"",779.1,779.1,.01,21,2,0)"
^XMB(3.9,41,2,13908,0)="of the Sending Facility field of the HL7 message headers."
^XMB(3.9,41,2,13909,0)="""^DD"",779.1,779.1,.01,""DT"")"
^XMB(3.9,41,2,13910,0)="3040805"
^XMB(3.9,41,2,13911,0)="""^DD"",779.1,779.1,.02,0)"
^XMB(3.9,41,2,13912,0)="STATION NUMBER^F^^0;2^K:$L(X)>7!($L(X)<3) X"
^XMB(3.9,41,2,13913,0)="""^DD"",779.1,779.1,.02,3)"
^XMB(3.9,41,2,13914,0)="Enter the station number with suffix that this system belongs under.  It will be used in component 1 of the Sending Facility field of the HL7 message header."
^XMB(3.9,41,2,13915,0)="""^DD"",779.1,779.1,.02,""DT"")"
^XMB(3.9,41,2,13916,0)="3040805"
^XMB(3.9,41,2,13917,0)="""^DD"",779.1,779.1,.03,0)"
^XMB(3.9,41,2,13918,0)="PRODUCTION ID^RS^P:production;T:training;^0;3^Q"
^XMB(3.9,41,2,13919,0)="""^DD"",779.1,779.1,.03,3)"
^XMB(3.9,41,2,13920,0)="ENTER P if this is a production system, T otherwise."
^XMB(3.9,41,2,13921,0)="""^DD"",779.1,779.1,.03,""DT"")"
^XMB(3.9,41,2,13922,0)="3040805"
^XMB(3.9,41,2,13923,0)="""^DD"",779.1,779.1,.04,0)"
^XMB(3.9,41,2,13924,0)="MAXIMUM STRING LENGTH^NJ5,0^^0;4^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^XMB(3.9,41,2,13925,0)="""^DD"",779.1,779.1,.04,3)"
^XMB(3.9,41,2,13926,0)="This is the maximum length for strings built by HLO when local applications create new messages to send."
^XMB(3.9,41,2,13927,0)="""^DD"",779.1,779.1,.04,21,0)"
^XMB(3.9,41,2,13928,0)="^^4^4^3050706^"
^XMB(3.9,41,2,13929,0)="""^DD"",779.1,779.1,.04,21,1,0)"
^XMB(3.9,41,2,13930,0)="This parameter determines the maximum length for strings that HLO will create"
^XMB(3.9,41,2,13931,0)="""^DD"",779.1,779.1,.04,21,2,0)"
^XMB(3.9,41,2,13932,0)="when messages are being built.  It doesn't apply to servers, as the size of"
^XMB(3.9,41,2,13933,0)="""^DD"",779.1,779.1,.04,21,3,0)"
^XMB(3.9,41,2,13934,0)="input buffer used by TCP/IP determines the maximum string length created by a"
^XMB(3.9,41,2,13935,0)="""^DD"",779.1,779.1,.04,21,4,0)"
^XMB(3.9,41,2,13936,0)="single read."
^XMB(3.9,41,2,13937,0)="""^DD"",779.1,779.1,.04,""DT"")"
^XMB(3.9,41,2,13938,0)="3050706"
^XMB(3.9,41,2,13939,0)="""^DD"",779.1,779.1,.05,0)"
^XMB(3.9,41,2,13940,0)="BUFFER SIZE FOR HL7 (BYTES)^NJ5,0^^0;5^K:+X'=X!(X>20000)!(X<10000)!(X?.E1"".""1.N) X"
^XMB(3.9,41,2,13941,0)="""^DD"",779.1,779.1,.05,3)"
^XMB(3.9,41,2,13942,0)="This parameter represents the size of the buffer used by HLO for its background processes.  It defaults to 15000 bytes, but may be set from 10,000 bytes to 20,000 bytes."
^XMB(3.9,41,2,13943,0)="""^DD"",779.1,779.1,.05,""DT"")"
^XMB(3.9,41,2,13944,0)="3050805"
^XMB(3.9,41,2,13945,0)="""^DD"",779.1,779.1,.06,0)"
^XMB(3.9,41,2,13946,0)="BUFFER SIZE FOR USER (BYTES)^NJ5,0^^0;6^K:+X'=X!(X>10000)!(X<512)!(X?.E1"".""1.N) X"
^XMB(3.9,41,2,13947,0)="""^DD"",779.1,779.1,.06,3)"
^XMB(3.9,41,2,13948,0)="This parameter is the size of the buffer used by HLO in the context of an online user.  It defaults to 5000, but may be reset to between 512 and 10000 bytes."
^XMB(3.9,41,2,13949,0)="""^DD"",779.1,779.1,.06,""DT"")"
^XMB(3.9,41,2,13950,0)="3050805"
^XMB(3.9,41,2,13951,0)="""^DD"",779.1,779.1,.07,0)"
^XMB(3.9,41,2,13952,0)="NORMAL MSG RETENTION (HOURS)^NJ2,0^^0;7^K:+X'=X!(X>96)!(X<36)!(X?.E1"".""1.N) X"
^XMB(3.9,41,2,13953,0)="""^DD"",779.1,779.1,.07,3)"
^XMB(3.9,41,2,13954,0)="How many hours should successfully completed messages remain on your system? (36-96 hours, defaults to 36 hours) "
^XMB(3.9,41,2,13955,0)="""^DD"",779.1,779.1,.07,21,0)"
^XMB(3.9,41,2,13956,0)="^^7^7^3050317^^^"
^XMB(3.9,41,2,13957,0)="""^DD"",779.1,779.1,.07,21,1,0)"
^XMB(3.9,41,2,13958,0)="This field controls the purging of HL7 messages whose completion status"
^XMB(3.9,41,2,13959,0)="""^DD"",779.1,779.1,.07,21,2,0)"
^XMB(3.9,41,2,13960,0)="is SUCCESSFUL. It is in hours, since messages normally should be purged "
^XMB(3.9,41,2,13961,0)="""^DD"",779.1,779.1,.07,21,3,0)"
^XMB(3.9,41,2,13962,0)="very soon after completion, with an allowed range of 36 to 94 hours."
^XMB(3.9,41,2,13963,0)="""^DD"",779.1,779.1,.07,21,4,0)"
^XMB(3.9,41,2,13964,0)=" "
^XMB(3.9,41,2,13965,0)="""^DD"",779.1,779.1,.07,21,5,0)"
^XMB(3.9,41,2,13966,0)="36 is the default because this 1) will result in most messages being purged"
^XMB(3.9,41,2,13967,0)="""^DD"",779.1,779.1,.07,21,6,0)"
^XMB(3.9,41,2,13968,0)="at night and 2) provides sufficient time for the Capacity Planning statistics"
^XMB(3.9,41,2,13969,0)="""^DD"",779.1,779.1,.07,21,7,0)"
^XMB(3.9,41,2,13970,0)="to be extracted. "
^XMB(3.9,41,2,13971,0)="""^DD"",779.1,779.1,.07,""DT"")"
^XMB(3.9,41,2,13972,0)="3050317"
^XMB(3.9,41,2,13973,0)="""^DD"",779.1,779.1,.08,0)"
^XMB(3.9,41,2,13974,0)="BAD MESSAGE RETENTION (DAYS)^NJ2,0^^0;8^K:+X'=X!(X>45)!(X<5)!(X?.E1"".""1.N) X"
^XMB(3.9,41,2,13975,0)="""^DD"",779.1,779.1,.08,3)"
^XMB(3.9,41,2,13976,0)="How many days should message with errors remain on your system?  (7-45 days, defaults to 7 days)"
^XMB(3.9,41,2,13977,0)="""^DD"",779.1,779.1,.08,21,0)"
^XMB(3.9,41,2,13978,0)="^^4^4^3041115^"
^XMB(3.9,41,2,13979,0)="""^DD"",779.1,779.1,.08,21,1,0)"
^XMB(3.9,41,2,13980,0)="This field controls the purging of HL7 messages that do not complete"
^XMB(3.9,41,2,13981,0)="""^DD"",779.1,779.1,.08,21,2,0)"
^XMB(3.9,41,2,13982,0)="successfully.  The period should be reasonably long to allow"
^XMB(3.9,41,2,13983,0)="""^DD"",779.1,779.1,.08,21,3,0)"
^XMB(3.9,41,2,13984,0)="investigation, but because of the extremely high daily volume of"
^XMB(3.9,41,2,13985,0)="""^DD"",779.1,779.1,.08,21,4,0)"
^XMB(3.9,41,2,13986,0)="messages purging must occur quickly."
^XMB(3.9,41,2,13987,0)="""^DD"",779.1,779.1,.08,""DT"")"
^XMB(3.9,41,2,13988,0)="3041115"
^XMB(3.9,41,2,13989,0)="""^DD"",779.1,779.1,.09,0)"
^XMB(3.9,41,2,13990,0)="HLO ON/OFF SWITCH^S^0:OFF;1:ON;^0;9^Q"
^XMB(3.9,41,2,13991,0)="""^DD"",779.1,779.1,.09,3)"
^XMB(3.9,41,2,13992,0)="Set to 0 to turn off messaging and all HL7 processes."
^XMB(3.9,41,2,13993,0)="""^DD"",779.1,779.1,.09,""DT"")"
^XMB(3.9,41,2,13994,0)="3050503"
^XMB(3.9,41,2,13995,0)="""^DD"",779.1,779.1,.1,0)"
^XMB(3.9,41,2,13996,0)="HLO STANDARD LISTENER^*P870'^HLCS(870,^0;10^S DIC(""S"")=""I ($P($G(^HLCS(870,Y,400)),""""^"""",3)=""""M"""")!($P($G(^HLCS(870,Y,400)),""""^"""",3)=""""S"""")"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^XMB(3.9,41,2,13997,0)="""^DD"",779.1,779.1,.1,3)"
^XMB(3.9,41,2,13998,0)="Select an entry from the HL Logical Link file that is the listener that remote applications will normally connect to."
^XMB(3.9,41,2,13999,0)="""^DD"",779.1,779.1,.1,12)"
^XMB(3.9,41,2,14000,0)="This screen allows only server entries to be selected."
^XMB(3.9,41,2,14001,0)="""^DD"",779.1,779.1,.1,12.1)"
^XMB(3.9,41,2,14002,0)="S DIC(""S"")=""I ($P($G(^HLCS(870,Y,400)),""""^"""",3)=""""M"""")!($P($G(^HLCS(870,Y,400)),""""^"""",3)=""""S"""")"""
^XMB(3.9,41,2,14003,0)="""^DD"",779.1,779.1,.1,""DT"")"
^XMB(3.9,41,2,14004,0)="3050601"
^XMB(3.9,41,2,14005,0)="""^DD"",779.2,779.2,0)"
^XMB(3.9,41,2,14006,0)="FIELD^^2^11"
^XMB(3.9,41,2,14007,0)="""^DD"",779.2,779.2,0,""DDA"")"
^XMB(3.9,41,2,14008,0)="N"
^XMB(3.9,41,2,14009,0)="""^DD"",779.2,779.2,0,""DT"")"
^XMB(3.9,41,2,14010,0)="3050503"
^XMB(3.9,41,2,14011,0)="""^DD"",779.2,779.2,0,""IX"",""B"",779.2,.01)"
^XMB(3.9,41,2,14012,0)=""
^XMB(3.9,41,2,14013,0)="""^DD"",779.2,779.2,0,""NM"",""HLO APPLICATION REGISTRY"")"
^XMB(3.9,41,2,14014,0)=""
^XMB(3.9,41,2,14015,0)="""^DD"",779.2,779.2,0,""VRPK"")"
^XMB(3.9,41,2,14016,0)="HL"
^XMB(3.9,41,2,14017,0)="""^DD"",779.2,779.2,.01,0)"
^XMB(3.9,41,2,14018,0)="APPLICATION NAME^RF^^0;1^K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X"
^XMB(3.9,41,2,14019,0)="""^DD"",779.2,779.2,.01,1,0)"
^XMB(3.9,41,2,14020,0)="^.1"
^XMB(3.9,41,2,14021,0)="""^DD"",779.2,779.2,.01,1,1,0)"
^XMB(3.9,41,2,14022,0)="779.2^B"
^XMB(3.9,41,2,14023,0)="""^DD"",779.2,779.2,.01,1,1,1)"
^XMB(3.9,41,2,14024,0)="S ^HLD(779.2,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,41,2,14025,0)="""^DD"",779.2,779.2,.01,1,1,2)"
^XMB(3.9,41,2,14026,0)="K ^HLD(779.2,""B"",$E(X,1,30),DA)"
^XMB(3.9,41,2,14027,0)="""^DD"",779.2,779.2,.01,3)"
^XMB(3.9,41,2,14028,0)="Answer must be 3-60 characters in length. It must be unique and should be name-spaced."
^XMB(3.9,41,2,14029,0)="""^DD"",779.2,779.2,.01,""DT"")"
^XMB(3.9,41,2,14030,0)="3050125"
^XMB(3.9,41,2,14031,0)="""^DD"",779.2,779.2,.02,0)"
^XMB(3.9,41,2,14032,0)="RESPONSE LINK (OPTIONAL)^FX^^0;2^K:'$$CHKLINK^HLOTLNK(X) X"
^XMB(3.9,41,2,14033,0)="""^DD"",779.2,779.2,.02,3)"
^XMB(3.9,41,2,14034,0)="If the return link cannot be identified via the Sending Facility (i.e., sent via an IE), what link should the application ack be sent through?"
^XMB(3.9,41,2,14035,0)="""^DD"",779.2,779.2,.02,21,0)"
^XMB(3.9,41,2,14036,0)="^^5^5^3041116^^"
^XMB(3.9,41,2,14037,0)="""^DD"",779.2,779.2,.02,21,1,0)"
^XMB(3.9,41,2,14038,0)="This field applies only if: 1) The receiving application is expected to "
^XMB(3.9,41,2,14039,0)="""^DD"",779.2,779.2,.02,21,2,0)"
^XMB(3.9,41,2,14040,0)="return application acknowledgments.  2) The initial message is  received "
^XMB(3.9,41,2,14041,0)="""^DD"",779.2,779.2,.02,21,3,0)"
^XMB(3.9,41,2,14042,0)="indirectly through the IE, and the  receiving application in turn does "
^XMB(3.9,41,2,14043,0)="""^DD"",779.2,779.2,.02,21,4,0)"
^XMB(3.9,41,2,14044,0)="not want to send the application acknowledgment directly back to the "
^XMB(3.9,41,2,14045,0)="""^DD"",779.2,779.2,.02,21,5,0)"
^XMB(3.9,41,2,14046,0)="sending facility identified in the message header.  "
^XMB(3.9,41,2,14047,0)="""^DD"",779.2,779.2,.02,""DT"")"
^XMB(3.9,41,2,14048,0)="3041116"
^XMB(3.9,41,2,14049,0)="""^DD"",779.2,779.2,.03,0)"
^XMB(3.9,41,2,14050,0)="DEFAULT PRIVATE IN-QUEUE^F^^0;3^K:$L(X)>20!($L(X)<3) X"
^XMB(3.9,41,2,14051,0)="""^DD"",779.2,779.2,.03,3)"
^XMB(3.9,41,2,14052,0)="You may create an optional default private in-queue by entering a unique name up to 20 characters in length. Queues specified for specific message types take precedence."
^XMB(3.9,41,2,14053,0)="""^DD"",779.2,779.2,.03,""DT"")"
^XMB(3.9,41,2,14054,0)="3050317"
^XMB(3.9,41,2,14055,0)="""^DD"",779.2,779.2,.04,0)"
^XMB(3.9,41,2,14056,0)="BATCH ACTION TAG^F^^0;4^K:$L(X)>8!($L(X)<1) X"
^XMB(3.9,41,2,14057,0)="""^DD"",779.2,779.2,.04,3)"
^XMB(3.9,41,2,14058,0)="If the application utilizes batch messages, the action to perform upon receipt of the message should be entered in the BATCH ACTION TAG and BATCH ACTION ROUTINE fields as <tag>^<routine>."
^XMB(3.9,41,2,14059,0)="""^DD"",779.2,779.2,.04,""DT"")"
^XMB(3.9,41,2,14060,0)="3040814"
^XMB(3.9,41,2,14061,0)="""^DD"",779.2,779.2,.05,0)"
^XMB(3.9,41,2,14062,0)="BATCH ACTION ROUTINE^F^^0;5^K:$L(X)>8!($L(X)<3) X"
^XMB(3.9,41,2,14063,0)="""^DD"",779.2,779.2,.05,3)"
^XMB(3.9,41,2,14064,0)="If the application utilizes batch messages, the action to perform upon receipt of the message should be entered in the BATCH ACTION TAG and BATCH ACTION ROUTINE fields as <tag>^<routine>."
^XMB(3.9,41,2,14065,0)="""^DD"",779.2,779.2,.05,""DT"")"
^XMB(3.9,41,2,14066,0)="3040814"
^XMB(3.9,41,2,14067,0)="""^DD"",779.2,779.2,.06,0)"
^XMB(3.9,41,2,14068,0)="DEFAULT ACTION TAG^F^^0;6^K:$L(X)>8!($L(X)<1) X"
^XMB(3.9,41,2,14069,0)="""^DD"",779.2,779.2,.06,3)"
^XMB(3.9,41,2,14070,0)="You can enter the action to perform upon  receipt of a message where no other action applies by entering the DEFAULT ACTION TAG and DEFAULT ACTION ROUTINE fields as <tag>^<routine>. "
^XMB(3.9,41,2,14071,0)="""^DD"",779.2,779.2,.06,""DT"")"
^XMB(3.9,41,2,14072,0)="3040815"
^XMB(3.9,41,2,14073,0)="""^DD"",779.2,779.2,.07,0)"
^XMB(3.9,41,2,14074,0)="DEFAULT ACTION ROUTINE^F^^0;7^K:$L(X)>8!($L(X)<3) X"
^XMB(3.9,41,2,14075,0)="""^DD"",779.2,779.2,.07,3)"
^XMB(3.9,41,2,14076,0)="You can enter the action to perform upon receipt of a message where no other action applies by entering the DEFAULT ACTION TAG and DEFAULT ACTION ROUTINE fields as <tag>^<routine>."
^XMB(3.9,41,2,14077,0)="""^DD"",779.2,779.2,.07,""DT"")"
^XMB(3.9,41,2,14078,0)="3040814"
^XMB(3.9,41,2,14079,0)="""^DD"",779.2,779.2,.08,0)"
^XMB(3.9,41,2,14080,0)="BATCH PRIVATE IN-QUEUE^F^^0;8^K:$L(X)>20!($L(X)<3) X"
^XMB(3.9,41,2,14081,0)="""^DD"",779.2,779.2,.08,3)"
^XMB(3.9,41,2,14082,0)="You may establish a private queue for your batch messages by entering a unique name (name-spaced) up to 20 characters long."
^XMB(3.9,41,2,14083,0)="""^DD"",779.2,779.2,.08,""DT"")"
^XMB(3.9,41,2,14084,0)="3050317"
^XMB(3.9,41,2,14085,0)="""^DD"",779.2,779.2,.09,0)"
^XMB(3.9,41,2,14086,0)="APPLICATION SPECIFIC LISTENER^*P870'^HLCS(870,^0;9^S DIC(""S"")=""I $E($P(^HLCS(870,Y,0),""""^"""",4),2)=""""S"""""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^XMB(3.9,41,2,14087,0)="""^DD"",779.2,779.2,.09,3)"
^XMB(3.9,41,2,14088,0)="If your application requires its own listener (HIGHLY DISCOURAGED), enter it here."
^XMB(3.9,41,2,14089,0)="""^DD"",779.2,779.2,.09,12)"
^XMB(3.9,41,2,14090,0)="The link entered must be a listener."
^XMB(3.9,41,2,14091,0)="""^DD"",779.2,779.2,.09,12.1)"
^XMB(3.9,41,2,14092,0)="S DIC(""S"")=""I $E($P(^HLCS(870,Y,0),""""^"""",4),2)=""""S"""""""
^XMB(3.9,41,2,14093,0)="""^DD"",779.2,779.2,.09,21,0)"
^XMB(3.9,41,2,14094,0)="^^6^6^3050503^"
^XMB(3.9,41,2,14095,0)="""^DD"",779.2,779.2,.09,21,1,0)"
^XMB(3.9,41,2,14096,0)="Applications are highly discouraged from establishing their own listeners.  The"
^XMB(3.9,41,2,14097,0)="""^DD"",779.2,779.2,.09,21,2,0)"
^XMB(3.9,41,2,14098,0)="use of the multi-listeners provide concurrent processing of many connections"
^XMB(3.9,41,2,14099,0)="""^DD"",779.2,779.2,.09,21,3,0)"
^XMB(3.9,41,2,14100,0)="over the same port, so a dedicated listener will not provide an application"
^XMB(3.9,41,2,14101,0)="""^DD"",779.2,779.2,.09,21,4,0)"
^XMB(3.9,41,2,14102,0)="with a performance boost, while it will cause the site additional work to"
^XMB(3.9,41,2,14103,0)="""^DD"",779.2,779.2,.09,21,5,0)"
^XMB(3.9,41,2,14104,0)="maintain. So before establishing a dedicated listener, the application"
^XMB(3.9,41,2,14105,0)="""^DD"",779.2,779.2,.09,21,6,0)"
^XMB(3.9,41,2,14106,0)="developer should verify the need."
^XMB(3.9,41,2,14107,0)="""^DD"",779.2,779.2,.09,""DT"")"
^XMB(3.9,41,2,14108,0)="3050527"
^XMB(3.9,41,2,14109,0)="""^DD"",779.2,779.2,1,0)"
^XMB(3.9,41,2,14110,0)="MESSAGE TYPE ACTIONS^779.21^^1;0"
^XMB(3.9,41,2,14111,0)="""^DD"",779.2,779.2,2,0)"
^XMB(3.9,41,2,14112,0)="Package File Link^RP9.4'^DIC(9.4,^2;1^Q"
^XMB(3.9,41,2,14113,0)="""^DD"",779.2,779.2,2,3)"
^XMB(3.9,41,2,14114,0)="Enter the package responsible for these messages."
^XMB(3.9,41,2,14115,0)="""^DD"",779.2,779.2,2,21,0)"
^XMB(3.9,41,2,14116,0)="^^3^3^3050919^^"
^XMB(3.9,41,2,14117,0)="""^DD"",779.2,779.2,2,21,1,0)"
^XMB(3.9,41,2,14118,0)="This field holds a pointer to the Package File for the Package "
^XMB(3.9,41,2,14119,0)="""^DD"",779.2,779.2,2,21,2,0)"
^XMB(3.9,41,2,14120,0)="responsible for these messages."
^XMB(3.9,41,2,14121,0)="""^DD"",779.2,779.2,2,21,3,0)"
^XMB(3.9,41,2,14122,0)=""
^XMB(3.9,41,2,14123,0)="""^DD"",779.2,779.2,2,""DT"")"
^XMB(3.9,41,2,14124,0)="3050919"
^XMB(3.9,41,2,14125,0)="""^DD"",779.2,779.21,0)"
^XMB(3.9,41,2,14126,0)="MESSAGE TYPE ACTIONS SUB-FIELD^^.05^5"
^XMB(3.9,41,2,14127,0)="""^DD"",779.2,779.21,0,""DT"")"
^XMB(3.9,41,2,14128,0)="3040815"
^XMB(3.9,41,2,14129,0)="""^DD"",779.2,779.21,0,""IX"",""B"",779.21,.01)"
^XMB(3.9,41,2,14130,0)=""
^XMB(3.9,41,2,14131,0)="""^DD"",779.2,779.21,0,""NM"",""MESSAGE TYPE ACTIONS"")"
^XMB(3.9,41,2,14132,0)=""
^XMB(3.9,41,2,14133,0)="""^DD"",779.2,779.21,0,""UP"")"
^XMB(3.9,41,2,14134,0)="779.2"
^XMB(3.9,41,2,14135,0)="""^DD"",779.2,779.21,.01,0)"
^XMB(3.9,41,2,14136,0)="HL7 MESSAGE TYPE^MF^^0;1^K:$L(X)>3!($L(X)<3) X"
^XMB(3.9,41,2,14137,0)="""^DD"",779.2,779.21,.01,1,0)"
^XMB(3.9,41,2,14138,0)="^.1"
^XMB(3.9,41,2,14139,0)="""^DD"",779.2,779.21,.01,1,1,0)"
^XMB(3.9,41,2,14140,0)="779.21^B"
^XMB(3.9,41,2,14141,0)="""^DD"",779.2,779.21,.01,1,1,1)"
^XMB(3.9,41,2,14142,0)="S ^HLD(779.2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,41,2,14143,0)="""^DD"",779.2,779.21,.01,1,1,2)"
^XMB(3.9,41,2,14144,0)="K ^HLD(779.2,DA(1),1,""B"",$E(X,1,30),DA)"
^XMB(3.9,41,2,14145,0)="""^DD"",779.2,779.21,.01,3)"
^XMB(3.9,41,2,14146,0)="Enter the 3 character HL7 Message Type."
^XMB(3.9,41,2,14147,0)="""^DD"",779.2,779.21,.01,21,0)"
^XMB(3.9,41,2,14148,0)="^^3^3^3040814^"
^XMB(3.9,41,2,14149,0)="""^DD"",779.2,779.21,.01,21,1,0)"
^XMB(3.9,41,2,14150,0)="An application should use this multiple to define the action that the receiving"
^XMB(3.9,41,2,14151,0)="""^DD"",779.2,779.21,.01,21,2,0)"
^XMB(3.9,41,2,14152,0)="application needs to perform upon receipt of a specific type of HL7 message,"
^XMB(3.9,41,2,14153,0)="""^DD"",779.2,779.21,.01,21,3,0)"
^XMB(3.9,41,2,14154,0)="identified by the HL7 MESSAGE TYPE and HL7 EVENT fields."
^XMB(3.9,41,2,14155,0)="""^DD"",779.2,779.21,.01,""DT"")"
^XMB(3.9,41,2,14156,0)="3040815"
^XMB(3.9,41,2,14157,0)="""^DD"",779.2,779.21,.02,0)"
^XMB(3.9,41,2,14158,0)="HL7 EVENT^RF^^0;2^K:$L(X)>3!($L(X)<3) X"
^XMB(3.9,41,2,14159,0)="""^DD"",779.2,779.21,.02,3)"
^XMB(3.9,41,2,14160,0)="Enter the 3 character HL7 event type."
^XMB(3.9,41,2,14161,0)="""^DD"",779.2,779.21,.02,""DT"")"
^XMB(3.9,41,2,14162,0)="3040815"
^XMB(3.9,41,2,14163,0)="""^DD"",779.2,779.21,.03,0)"
^XMB(3.9,41,2,14164,0)="PRIVATE IN-QUEUE^F^^0;3^K:$L(X)>20!($L(X)<3) X"
^XMB(3.9,41,2,14165,0)="""^DD"",779.2,779.21,.03,3)"
^XMB(3.9,41,2,14166,0)="You may create a private in-queue for message of this type by entering a unique name up to 20 characters long."
^XMB(3.9,41,2,14167,0)="""^DD"",779.2,779.21,.03,""DT"")"
^XMB(3.9,41,2,14168,0)="3050919"
^XMB(3.9,41,2,14169,0)="""^DD"",779.2,779.21,.04,0)"
^XMB(3.9,41,2,14170,0)="ACTION TAG^F^^0;4^K:$L(X)>8!($L(X)<1) X"
^XMB(3.9,41,2,14171,0)="""^DD"",779.2,779.21,.04,3)"
^XMB(3.9,41,2,14172,0)="You must enter the action to perform upon receipt of this type by entering the ACTION TAG and ACTION ROUTINE fields as <tag>^<routine>. The tag is optional. "
^XMB(3.9,41,2,14173,0)="""^DD"",779.2,779.21,.04,""DT"")"
^XMB(3.9,41,2,14174,0)="3040815"
^XMB(3.9,41,2,14175,0)="""^DD"",779.2,779.21,.05,0)"
^XMB(3.9,41,2,14176,0)="ACTION ROUTINE^RF^^0;5^K:$L(X)>8!($L(X)<3) X"
^XMB(3.9,41,2,14177,0)="""^DD"",779.2,779.21,.05,3)"
^XMB(3.9,41,2,14178,0)="You must enter the action to perform upon receipt of this type by entering the ACTION TAG and ACTION ROUTINE fields as <tag>^<routine>."
^XMB(3.9,41,2,14179,0)="""^DD"",779.2,779.21,.05,""DT"")"
^XMB(3.9,41,2,14180,0)="3050919"
^XMB(3.9,41,2,14181,0)="""^DD"",779.3,779.3,0)"
^XMB(3.9,41,2,14182,0)="FIELD^^.15^15"
^XMB(3.9,41,2,14183,0)="""^DD"",779.3,779.3,0,""DDA"")"
^XMB(3.9,41,2,14184,0)="N"
^XMB(3.9,41,2,14185,0)="""^DD"",779.3,779.3,0,""DT"")"
^XMB(3.9,41,2,14186,0)="3041221"
^XMB(3.9,41,2,14187,0)="""^DD"",779.3,779.3,0,""IX"",""B"",779.3,.01)"
^XMB(3.9,41,2,14188,0)=""
^XMB(3.9,41,2,14189,0)="""^DD"",779.3,779.3,0,""NM"",""HLO PROCESS REGISTRY"")"
^XMB(3.9,41,2,14190,0)=""
^XMB(3.9,41,2,14191,0)="""^DD"",779.3,779.3,0,""VRPK"")"
^XMB(3.9,41,2,14192,0)="HL"
^XMB(3.9,41,2,14193,0)="""^DD"",779.3,779.3,.01,0)"
^XMB(3.9,41,2,14194,0)="PROCESS NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^XMB(3.9,41,2,14195,0)="""^DD"",779.3,779.3,.01,1,0)"
^XMB(3.9,41,2,14196,0)="^.1"
^XMB(3.9,41,2,14197,0)="""^DD"",779.3,779.3,.01,1,1,0)"
^XMB(3.9,41,2,14198,0)="779.3^B"
^XMB(3.9,41,2,14199,0)="""^DD"",779.3,779.3,.01,1,1,1)"
^XMB(3.9,41,2,14200,0)="S ^HLD(779.3,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,41,2,14201,0)="""^DD"",779.3,779.3,.01,1,1,2)"
^XMB(3.9,41,2,14202,0)="K ^HLD(779.3,""B"",$E(X,1,30),DA)"
^XMB(3.9,41,2,14203,0)="""^DD"",779.3,779.3,.01,3)"
^XMB(3.9,41,2,14204,0)="Give the type of process a unique name, 3-30 characters."
^XMB(3.9,41,2,14205,0)="""^DD"",779.3,779.3,.01,21,0)"
^XMB(3.9,41,2,14206,0)="^^1^1^3041115^"
^XMB(3.9,41,2,14207,0)="""^DD"",779.3,779.3,.01,21,1,0)"
^XMB(3.9,41,2,14208,0)="A unique name for the type of process."
^XMB(3.9,41,2,14209,0)="""^DD"",779.3,779.3,.01,""DT"")"
^XMB(3.9,41,2,14210,0)="3041115"
^XMB(3.9,41,2,14211,0)="""^DD"",779.3,779.3,.02,0)"
^XMB(3.9,41,2,14212,0)="ACTIVE^S^0:NO;1:YES;^0;2^Q"
^XMB(3.9,41,2,14213,0)="""^DD"",779.3,779.3,.02,3)"
^XMB(3.9,41,2,14214,0)="Enter 1 to activate these processes, 0 to inactivate."
^XMB(3.9,41,2,14215,0)="""^DD"",779.3,779.3,.02,21,0)"
^XMB(3.9,41,2,14216,0)="^^4^4^3050805^^^^"
^XMB(3.9,41,2,14217,0)="""^DD"",779.3,779.3,.02,21,1,0)"
^XMB(3.9,41,2,14218,0)="A flag that indicates whether or not this type of process is active under "
^XMB(3.9,41,2,14219,0)="""^DD"",779.3,779.3,.02,21,2,0)"
^XMB(3.9,41,2,14220,0)="the HLO Process Manager. Some processes may not apply to some "
^XMB(3.9,41,2,14221,0)="""^DD"",779.3,779.3,.02,21,3,0)"
^XMB(3.9,41,2,14222,0)="systems, for example, a particular site may not use the Taskman "
^XMB(3.9,41,2,14223,0)="""^DD"",779.3,779.3,.02,21,4,0)"
^XMB(3.9,41,2,14224,0)="multi-listener. "
^XMB(3.9,41,2,14225,0)="""^DD"",779.3,779.3,.02,""DT"")"
^XMB(3.9,41,2,14226,0)="3050805"
^XMB(3.9,41,2,14227,0)="""^DD"",779.3,779.3,.03,0)"
^XMB(3.9,41,2,14228,0)="MINIMUM ACTIVE PROCESSES^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1.N) X"
^XMB(3.9,41,2,14229,0)="""^DD"",779.3,779.3,.03,3)"
^XMB(3.9,41,2,14230,0)="How many of these processes should be running at a minimum when HL7 messaging is on?"
^XMB(3.9,41,2,14231,0)="""^DD"",779.3,779.3,.03,21,0)"
^XMB(3.9,41,2,14232,0)="^^3^3^3050805^^^"
^XMB(3.9,41,2,14233,0)="""^DD"",779.3,779.3,.03,21,1,0)"
^XMB(3.9,41,2,14234,0)="This field indicates the minimum number of concurrent processes of this "
^XMB(3.9,41,2,14235,0)="""^DD"",779.3,779.3,.03,21,2,0)"
^XMB(3.9,41,2,14236,0)="type.  The exact number changes as the HLO Process Manager starts and "
^XMB(3.9,41,2,14237,0)="""^DD"",779.3,779.3,.03,21,3,0)"
^XMB(3.9,41,2,14238,0)="stops processes in response to changes in workload."
^XMB(3.9,41,2,14239,0)="""^DD"",779.3,779.3,.03,""DT"")"
^XMB(3.9,41,2,14240,0)="3050805"
^XMB(3.9,41,2,14241,0)="""^DD"",779.3,779.3,.04,0)"
^XMB(3.9,41,2,14242,0)="MAXIMUM ACTIVE PROCESSES^NJ3,0^^0;4^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1.N) X"
^XMB(3.9,41,2,14243,0)="""^DD"",779.3,779.3,.04,3)"
^XMB(3.9,41,2,14244,0)="How many of these processes should be running at a maximum when the HL7 messaging system is on?"
^XMB(3.9,41,2,14245,0)="""^DD"",779.3,779.3,.04,""DT"")"
^XMB(3.9,41,2,14246,0)="3040907"
^XMB(3.9,41,2,14247,0)="""^DD"",779.3,779.3,.05,0)"
^XMB(3.9,41,2,14248,0)="SCHEDULING FREQUENCY (minutes)^NJ4,0^^0;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^XMB(3.9,41,2,14249,0)="""^DD"",779.3,779.3,.05,3)"
^XMB(3.9,41,2,14250,0)="This is how long the Process Manager should wait between checks to see if another process of this type should be started.  Enter 0 to 9999."
^XMB(3.9,41,2,14251,0)="""^DD"",779.3,779.3,.05,21,0)"
^XMB(3.9,41,2,14252,0)="^.001^2^2^3041221^^"
^XMB(3.9,41,2,14253,0)="""^DD"",779.3,779.3,.05,21,1,0)"
^XMB(3.9,41,2,14254,0)="This is how long the Process Manager should wait between checks to see if "
^XMB(3.9,41,2,14255,0)="""^DD"",779.3,779.3,.05,21,2,0)"
^XMB(3.9,41,2,14256,0)="another process of this type should be started."
^XMB(3.9,41,2,14257,0)="""^DD"",779.3,779.3,.05,""DT"")"
^XMB(3.9,41,2,14258,0)="3050919"
^XMB(3.9,41,2,14259,0)="""^DD"",779.3,779.3,.06,0)"
^XMB(3.9,41,2,14260,0)="DT/TM LAST STARTED OR STOPPED^D^^0;6^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,41,2,14261,0)="""^DD"",779.3,779.3,.06,3)"
^XMB(3.9,41,2,14262,0)="DT/TM the process manager last started or stopped one of these."
^XMB(3.9,41,2,14263,0)="""^DD"",779.3,779.3,.06,21,0)"
^XMB(3.9,41,2,14264,0)="^^2^2^3041115^"
^XMB(3.9,41,2,14265,0)="""^DD"",779.3,779.3,.06,21,1,0)"
^XMB(3.9,41,2,14266,0)="The date and time when a process of this type was last started or "
^XMB(3.9,41,2,14267,0)="""^DD"",779.3,779.3,.06,21,2,0)"
^XMB(3.9,41,2,14268,0)="stopped."
^XMB(3.9,41,2,14269,0)="""^DD"",779.3,779.3,.06,""DT"")"
^XMB(3.9,41,2,14270,0)="3041115"
^XMB(3.9,41,2,14271,0)="""^DD"",779.3,779.3,.07,0)"
^XMB(3.9,41,2,14272,0)="HANG TIME (seconds)^NJ3,0^^0;7^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1.N) X"
^XMB(3.9,41,2,14273,0)="""^DD"",779.3,779.3,.07,3)"
^XMB(3.9,41,2,14274,0)="If the process cannot find work, how many seconds should it hang before looking again?"
^XMB(3.9,41,2,14275,0)="""^DD"",779.3,779.3,.07,21,0)"
^XMB(3.9,41,2,14276,0)="^^2^2^3041115^"
^XMB(3.9,41,2,14277,0)="""^DD"",779.3,779.3,.07,21,1,0)"
^XMB(3.9,41,2,14278,0)="This is how long a process should wait between attempts to find work to "
^XMB(3.9,41,2,14279,0)="""^DD"",779.3,779.3,.07,21,2,0)"
^XMB(3.9,41,2,14280,0)="do."
^XMB(3.9,41,2,14281,0)="""^DD"",779.3,779.3,.07,""DT"")"
^XMB(3.9,41,2,14282,0)="3041115"
^XMB(3.9,41,2,14283,0)="""^DD"",779.3,779.3,.08,0)"
^XMB(3.9,41,2,14284,0)="GET WORK FUNCTION (TAG)^RF^^0;8^K:$L(X)>8!($L(X)<1) X"
^XMB(3.9,41,2,14285,0)="""^DD"",779.3,779.3,.08,3)"
^XMB(3.9,41,2,14286,0)="What function will this process call to find work (optional routine entry point)"
^XMB(3.9,41,2,14287,0)="""^DD"",779.3,779.3,.08,21,0)"
^XMB(3.9,41,2,14288,0)="^^1^1^3041115^"
^XMB(3.9,41,2,14289,0)="""^DD"",779.3,779.3,.08,21,1,0)"
^XMB(3.9,41,2,14290,0)="The M entry point to the GET WORK function for this process type."
^XMB(3.9,41,2,14291,0)="""^DD"",779.3,779.3,.08,""DT"")"
^XMB(3.9,41,2,14292,0)="3041115"
^XMB(3.9,41,2,14293,0)="""^DD"",779.3,779.3,.09,0)"
^XMB(3.9,41,2,14294,0)="GET WORK FUNCTION (ROUTINE)^RF^^0;9^K:$L(X)>8!($L(X)<1) X"
^XMB(3.9,41,2,14295,0)="""^DD"",779.3,779.3,.09,3)"
^XMB(3.9,41,2,14296,0)="What function should this process call to find work? (routine name only)"
^XMB(3.9,41,2,14297,0)="""^DD"",779.3,779.3,.09,21,0)"
^XMB(3.9,41,2,14298,0)="^^1^1^3041115^"
^XMB(3.9,41,2,14299,0)="""^DD"",779.3,779.3,.09,21,1,0)"
^XMB(3.9,41,2,14300,0)="The routine in which this process type has located its GET WORK function."
^XMB(3.9,41,2,14301,0)="""^DD"",779.3,779.3,.09,""DT"")"
^XMB(3.9,41,2,14302,0)="3041115"
^XMB(3.9,41,2,14303,0)="""^DD"",779.3,779.3,.1,0)"
^XMB(3.9,41,2,14304,0)="DO WORK FUNCTION (TAG)^F^^0;10^K:$L(X)>8!($L(X)<1) X"
^XMB(3.9,41,2,14305,0)="""^DD"",779.3,779.3,.1,3)"
^XMB(3.9,41,2,14306,0)="What function should this process call to do its work? Enter the optional entry point only in this field."
^XMB(3.9,41,2,14307,0)="""^DD"",779.3,779.3,.1,21,0)"
^XMB(3.9,41,2,14308,0)="^^1^1^3041115^"
^XMB(3.9,41,2,14309,0)="""^DD"",779.3,779.3,.1,21,1,0)"
^XMB(3.9,41,2,14310,0)="The M entry point for the process's DO WORK function."
^XMB(3.9,41,2,14311,0)="""^DD"",779.3,779.3,.1,""DT"")"
^XMB(3.9,41,2,14312,0)="3041115"
^XMB(3.9,41,2,14313,0)="""^DD"",779.3,779.3,.11,0)"
^XMB(3.9,41,2,14314,0)="DO WORK FUNCTION (ROUTINE)^F^^0;11^K:$L(X)>8!($L(X)<1) X"
^XMB(3.9,41,2,14315,0)="""^DD"",779.3,779.3,.11,3)"
^XMB(3.9,41,2,14316,0)="What function should this process call to do its work?  Enter the routine name only in this field."
^XMB(3.9,41,2,14317,0)="""^DD"",779.3,779.3,.11,21,0)"
^XMB(3.9,41,2,14318,0)="^^1^1^3041115^"
^XMB(3.9,41,2,14319,0)="""^DD"",779.3,779.3,.11,21,1,0)"
^XMB(3.9,41,2,14320,0)="The routine in which the process's DO WORK function is located."
^XMB(3.9,41,2,14321,0)="""^DD"",779.3,779.3,.11,""DT"")"
^XMB(3.9,41,2,14322,0)="3041115"
^XMB(3.9,41,2,14323,0)="""^DD"",779.3,779.3,.12,0)"
^XMB(3.9,41,2,14324,0)="MAX TRIES FINDING WORK^NJ4,0^^0;12^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1.N) X"
^XMB(3.9,41,2,14325,0)="""^DD"",779.3,779.3,.12,3)"
^XMB(3.9,41,2,14326,0)="How many times should the process look for work before giving up?"
^XMB(3.9,41,2,14327,0)="""^DD"",779.3,779.3,.12,21,0)"
^XMB(3.9,41,2,14328,0)="^^3^3^3041115^"
^XMB(3.9,41,2,14329,0)="""^DD"",779.3,779.3,.12,21,1,0)"
^XMB(3.9,41,2,14330,0)="How many times should the process look for work and then quit if it "
^XMB(3.9,41,2,14331,0)="""^DD"",779.3,779.3,.12,21,2,0)"
^XMB(3.9,41,2,14332,0)="cannot find anything to do?  It'll hang between attempts the specified "
^XMB(3.9,41,2,14333,0)="""^DD"",779.3,779.3,.12,21,3,0)"
^XMB(3.9,41,2,14334,0)="length of time."
^XMB(3.9,41,2,14335,0)="""^DD"",779.3,779.3,.12,""DT"")"
^XMB(3.9,41,2,14336,0)="3041115"
^XMB(3.9,41,2,14337,0)="""^DD"",779.3,779.3,.13,0)"
^XMB(3.9,41,2,14338,0)="PERSISTENT^S^0:NO;1:YES;^0;13^Q"
^XMB(3.9,41,2,14339,0)="""^DD"",779.3,779.3,.13,3)"
^XMB(3.9,41,2,14340,0)="Should processes of this type be restarted automatically if they die?"
^XMB(3.9,41,2,14341,0)="""^DD"",779.3,779.3,.13,21,0)"
^XMB(3.9,41,2,14342,0)="^^2^2^3041115^"
^XMB(3.9,41,2,14343,0)="""^DD"",779.3,779.3,.13,21,1,0)"
^XMB(3.9,41,2,14344,0)="Setting this field to YES results in the process being made persistent "
^XMB(3.9,41,2,14345,0)="""^DD"",779.3,779.3,.13,21,2,0)"
^XMB(3.9,41,2,14346,0)="via the Taskman persistent parameter."
^XMB(3.9,41,2,14347,0)="""^DD"",779.3,779.3,.13,""DT"")"
^XMB(3.9,41,2,14348,0)="3041115"
^XMB(3.9,41,2,14349,0)="""^DD"",779.3,779.3,.14,0)"
^XMB(3.9,41,2,14350,0)="DEDICATED LINK^FX^^0;14^K:$L(X)>10!($L(X)<3) X"
^XMB(3.9,41,2,14351,0)="""^DD"",779.3,779.3,.14,3)"
^XMB(3.9,41,2,14352,0)="If this process is a listener, you must enter the name of an HL LOGICAL LINK that is a listener and whose TCP/IP PORT (OPTIMIZED) field contains the correct port number."
^XMB(3.9,41,2,14353,0)="""^DD"",779.3,779.3,.14,4)"
^XMB(3.9,41,2,14354,0)=""
^XMB(3.9,41,2,14355,0)="""^DD"",779.3,779.3,.14,21,0)"
^XMB(3.9,41,2,14356,0)="^^4^4^3041115^"
^XMB(3.9,41,2,14357,0)="""^DD"",779.3,779.3,.14,21,1,0)"
^XMB(3.9,41,2,14358,0)="The primary use of this field is for TCP/IP listener processes, and "
^XMB(3.9,41,2,14359,0)="""^DD"",779.3,779.3,.14,21,2,0)"
^XMB(3.9,41,2,14360,0)="indicates which port (via the HL Logical Link) that the process should be "
^XMB(3.9,41,2,14361,0)="""^DD"",779.3,779.3,.14,21,3,0)"
^XMB(3.9,41,2,14362,0)="listening on.  However, it could be used to dedicate a client link "
^XMB(3.9,41,2,14363,0)="""^DD"",779.3,779.3,.14,21,4,0)"
^XMB(3.9,41,2,14364,0)="process to a particular link."
^XMB(3.9,41,2,14365,0)="""^DD"",779.3,779.3,.14,""DT"")"
^XMB(3.9,41,2,14366,0)="3050706"
^XMB(3.9,41,2,14367,0)="""^DD"",779.3,779.3,.15,0)"
^XMB(3.9,41,2,14368,0)="VMS TCP SERVICE^S^1:YES;0:NO;^0;15^Q"
^XMB(3.9,41,2,14369,0)="""^DD"",779.3,779.3,.15,3)"
^XMB(3.9,41,2,14370,0)="If this process is a listener, enter YES if it is a VMS TCP service rather than a Taskman process."
^XMB(3.9,41,2,14371,0)="""^DD"",779.3,779.3,.15,21,0)"
^XMB(3.9,41,2,14372,0)="^^5^5^3040923^"
^XMB(3.9,41,2,14373,0)="""^DD"",779.3,779.3,.15,21,1,0)"
^XMB(3.9,41,2,14374,0)="VMS services are not started or stopped via the HL7 Process Manager.  "
^XMB(3.9,41,2,14375,0)="""^DD"",779.3,779.3,.15,21,2,0)"
^XMB(3.9,41,2,14376,0)="However, on a VMS system, these services are an important part of the HL7"
^XMB(3.9,41,2,14377,0)="""^DD"",779.3,779.3,.15,21,3,0)"
^XMB(3.9,41,2,14378,0)="system, and so an entry in the HL7 Process Registry should be created for "
^XMB(3.9,41,2,14379,0)="""^DD"",779.3,779.3,.15,21,4,0)"
^XMB(3.9,41,2,14380,0)="them.  The Process Manager will use the PING functionality to verify that "
^XMB(3.9,41,2,14381,0)="""^DD"",779.3,779.3,.15,21,5,0)"
^XMB(3.9,41,2,14382,0)="the listener is running."
^XMB(3.9,41,2,14383,0)="""^DD"",779.3,779.3,.15,""DT"")"
^XMB(3.9,41,2,14384,0)="3040923"
^XMB(3.9,41,2,14385,0)="""^DD"",779.4,779.4,0)"
^XMB(3.9,41,2,14386,0)="FIELD^^20^4"
^XMB(3.9,41,2,14387,0)="""^DD"",779.4,779.4,0,""DDA"")"
^XMB(3.9,41,2,14388,0)="N"
^XMB(3.9,41,2,14389,0)="""^DD"",779.4,779.4,0,""DT"")"
^XMB(3.9,41,2,14390,0)="3050113"
^XMB(3.9,41,2,14391,0)="""^DD"",779.4,779.4,0,""IX"",""AH"",779.4,.02)"
^XMB(3.9,41,2,14392,0)=""
^XMB(3.9,41,2,14393,0)="""^DD"",779.4,779.4,0,""IX"",""B"",779.4,.01)"
^XMB(3.9,41,2,14394,0)=""
^XMB(3.9,41,2,14395,0)="""^DD"",779.4,779.4,0,""NM"",""HLO SUBSCRIPTION REGISTRY"")"
^XMB(3.9,41,2,14396,0)=""
^XMB(3.9,41,2,14397,0)="""^DD"",779.4,779.4,0,""VRPK"")"
^XMB(3.9,41,2,14398,0)="HL"
^XMB(3.9,41,2,14399,0)="""^DD"",779.4,779.4,.01,0)"
^XMB(3.9,41,2,14400,0)="NAME^RFX^^0;1^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^XMB(3.9,41,2,14401,0)="""^DD"",779.4,779.4,.01,1,0)"
^XMB(3.9,41,2,14402,0)="^.1"
^XMB(3.9,41,2,14403,0)="""^DD"",779.4,779.4,.01,1,1,0)"
^XMB(3.9,41,2,14404,0)="779.4^B"
^XMB(3.9,41,2,14405,0)="""^DD"",779.4,779.4,.01,1,1,1)"
^XMB(3.9,41,2,14406,0)="S ^HLD(779.4,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,41,2,14407,0)="""^DD"",779.4,779.4,.01,1,1,2)"
^XMB(3.9,41,2,14408,0)="K ^HLD(779.4,""B"",$E(X,1,30),DA)"
^XMB(3.9,41,2,14409,0)="""^DD"",779.4,779.4,.01,3)"
^XMB(3.9,41,2,14410,0)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^XMB(3.9,41,2,14411,0)="""^DD"",779.4,779.4,.01,21,0)"
^XMB(3.9,41,2,14412,0)="^^2^2^3050308^^^^"
^XMB(3.9,41,2,14413,0)="""^DD"",779.4,779.4,.01,21,1,0)"
^XMB(3.9,41,2,14414,0)="This file should not be used to edit this file. Instead, a set of developer"
^XMB(3.9,41,2,14415,0)="""^DD"",779.4,779.4,.01,21,2,0)"
^XMB(3.9,41,2,14416,0)="APIs that was released with this file should be used."
^XMB(3.9,41,2,14417,0)="""^DD"",779.4,779.4,.01,""DT"")"
^XMB(3.9,41,2,14418,0)="3050308"
^XMB(3.9,41,2,14419,0)="""^DD"",779.4,779.4,.02,0)"
^XMB(3.9,41,2,14420,0)="OWNER^F^^0;2^K:$L(X)>40!($L(X)<1) X"
^XMB(3.9,41,2,14421,0)="""^DD"",779.4,779.4,.02,1,0)"
^XMB(3.9,41,2,14422,0)="^.1"
^XMB(3.9,41,2,14423,0)="""^DD"",779.4,779.4,.02,1,1,0)"
^XMB(3.9,41,2,14424,0)="779.4^AH^MUMPS"
^XMB(3.9,41,2,14425,0)="""^DD"",779.4,779.4,.02,1,1,1)"
^XMB(3.9,41,2,14426,0)="Q"
^XMB(3.9,41,2,14427,0)="""^DD"",779.4,779.4,.02,1,1,2)"
^XMB(3.9,41,2,14428,0)="D KILLAH^HLOASUB1(DA)"
^XMB(3.9,41,2,14429,0)="""^DD"",779.4,779.4,.02,1,1,""%D"",0)"
^XMB(3.9,41,2,14430,0)="^.101^9^9^3041116^^"
^XMB(3.9,41,2,14431,0)="""^DD"",779.4,779.4,.02,1,1,""%D"",1,0)"
^XMB(3.9,41,2,14432,0)="The AH x-ref is maintained by the owner of the subscription.  It represents"
^XMB(3.9,41,2,14433,0)="""^DD"",779.4,779.4,.02,1,1,""%D"",2,0)"
^XMB(3.9,41,2,14434,0)="a private index by which the application my perform a lookup to find a"
^XMB(3.9,41,2,14435,0)="""^DD"",779.4,779.4,.02,1,1,""%D"",3,0)"
^XMB(3.9,41,2,14436,0)="subscription.  The use of a private index is optional, the alternative being"
^XMB(3.9,41,2,14437,0)="""^DD"",779.4,779.4,.02,1,1,""%D"",4,0)"
^XMB(3.9,41,2,14438,0)="that the owning application may store the ien of the subscription entry"
^XMB(3.9,41,2,14439,0)="""^DD"",779.4,779.4,.02,1,1,""%D"",5,0)"
^XMB(3.9,41,2,14440,0)="with the application's data."
^XMB(3.9,41,2,14441,0)="""^DD"",779.4,779.4,.02,1,1,""%D"",6,0)"
^XMB(3.9,41,2,14442,0)=""
^XMB(3.9,41,2,14443,0)="""^DD"",779.4,779.4,.02,1,1,""%D"",7,0)"
^XMB(3.9,41,2,14444,0)="The format of the index is as follows:"
^XMB(3.9,41,2,14445,0)="""^DD"",779.4,779.4,.02,1,1,""%D"",8,0)"
^XMB(3.9,41,2,14446,0)=""
^XMB(3.9,41,2,14447,0)="""^DD"",779.4,779.4,.02,1,1,""%D"",9,0)"
^XMB(3.9,41,2,14448,0)="^HLS(779.4,""AH"",<owner>,<list of lookup values....>,<DA>)="""""
^XMB(3.9,41,2,14449,0)="""^DD"",779.4,779.4,.02,1,1,""DT"")"
^XMB(3.9,41,2,14450,0)="3040601"
^XMB(3.9,41,2,14451,0)="""^DD"",779.4,779.4,.02,3)"
^XMB(3.9,41,2,14452,0)="Answer must be 1-40 characters in length."
^XMB(3.9,41,2,14453,0)="""^DD"",779.4,779.4,.02,21,0)"
^XMB(3.9,41,2,14454,0)="^^2^2^3040526^^"
^XMB(3.9,41,2,14455,0)="""^DD"",779.4,779.4,.02,21,1,0)"
^XMB(3.9,41,2,14456,0)="This is the application or package responsible for creating this"
^XMB(3.9,41,2,14457,0)="""^DD"",779.4,779.4,.02,21,2,0)"
^XMB(3.9,41,2,14458,0)="subscription."
^XMB(3.9,41,2,14459,0)="""^DD"",779.4,779.4,.02,""DT"")"
^XMB(3.9,41,2,14460,0)="3040601"
^XMB(3.9,41,2,14461,0)="""^DD"",779.4,779.4,.03,0)"
^XMB(3.9,41,2,14462,0)="DESCRIPTION^F^^1;1^K:$L(X)>75!($L(X)<1) X"
^XMB(3.9,41,2,14463,0)="""^DD"",779.4,779.4,.03,3)"
^XMB(3.9,41,2,14464,0)="Answer must be 1-75 characters in length"
^XMB(3.9,41,2,14465,0)="""^DD"",779.4,779.4,.03,""DT"")"
^XMB(3.9,41,2,14466,0)="2991207"
^XMB(3.9,41,2,14467,0)="""^DD"",779.4,779.4,20,0)"
^XMB(3.9,41,2,14468,0)="RECIPIENTS^779.41^^2;0"
^XMB(3.9,41,2,14469,0)="""^DD"",779.4,779.41,0)"
^XMB(3.9,41,2,14470,0)="RECIPIENTS SUB-FIELD^^1.02^7"
^XMB(3.9,41,2,14471,0)="""^DD"",779.4,779.41,0,""DT"")"
^XMB(3.9,41,2,14472,0)="3040817"
^XMB(3.9,41,2,14473,0)="""^DD"",779.4,779.41,0,""IX"",""B"",774.02,.01)"
^XMB(3.9,41,2,14474,0)=""
^XMB(3.9,41,2,14475,0)="""^DD"",779.4,779.41,0,""IX"",""B"",779.41,.01)"
^XMB(3.9,41,2,14476,0)=""
^XMB(3.9,41,2,14477,0)="""^DD"",779.4,779.41,0,""NM"",""RECIPIENTS"")"
^XMB(3.9,41,2,14478,0)=""
^XMB(3.9,41,2,14479,0)="""^DD"",779.4,779.41,0,""UP"")"
^XMB(3.9,41,2,14480,0)="779.4"
^XMB(3.9,41,2,14481,0)="""^DD"",779.4,779.41,.01,0)"
^XMB(3.9,41,2,14482,0)="RECEIVING APPLICATON^MRF^^0;1^K:$L(X)>60!($L(X)<1) X"
^XMB(3.9,41,2,14483,0)="""^DD"",779.4,779.41,.01,1,0)"
^XMB(3.9,41,2,14484,0)="^.1"
^XMB(3.9,41,2,14485,0)="""^DD"",779.4,779.41,.01,1,1,0)"
^XMB(3.9,41,2,14486,0)="779.41^B"
^XMB(3.9,41,2,14487,0)="""^DD"",779.4,779.41,.01,1,1,1)"
^XMB(3.9,41,2,14488,0)="S ^HLS(779.4,DA(1),2,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,41,2,14489,0)="""^DD"",779.4,779.41,.01,1,1,2)"
^XMB(3.9,41,2,14490,0)="K ^HLS(779.4,DA(1),2,""B"",$E(X,1,30),DA)"
^XMB(3.9,41,2,14491,0)="""^DD"",779.4,779.41,.01,3)"
^XMB(3.9,41,2,14492,0)="Enter the name of the application that will receive the message, up to 60 characters."
^XMB(3.9,41,2,14493,0)="""^DD"",779.4,779.41,.01,""DT"")"
^XMB(3.9,41,2,14494,0)="3040817"
^XMB(3.9,41,2,14495,0)="""^DD"",779.4,779.41,.02,0)"
^XMB(3.9,41,2,14496,0)="LOGICAL LINK^RP870'^HLCS(870,^0;2^Q"
^XMB(3.9,41,2,14497,0)="""^DD"",779.4,779.41,.02,3)"
^XMB(3.9,41,2,14498,0)="Over which communication link should the messages be sent?"
^XMB(3.9,41,2,14499,0)="""^DD"",779.4,779.41,.02,""DT"")"
^XMB(3.9,41,2,14500,0)="3040527"
^XMB(3.9,41,2,14501,0)="""^DD"",779.4,779.41,.03,0)"
^XMB(3.9,41,2,14502,0)="RECEIVING FACILITY COMPONENT 1^F^^0;3^K:$L(X)>50!($L(X)<1) X"
^XMB(3.9,41,2,14503,0)="""^DD"",779.4,779.41,.03,3)"
^XMB(3.9,41,2,14504,0)="Answer must be 1-50 characters in length"
^XMB(3.9,41,2,14505,0)="""^DD"",779.4,779.41,.03,21,0)"
^XMB(3.9,41,2,14506,0)="^^2^2^3040526^"
^XMB(3.9,41,2,14507,0)="""^DD"",779.4,779.41,.03,21,1,0)"
^XMB(3.9,41,2,14508,0)="This is the value that should be placed in component 1 of the receiving"
^XMB(3.9,41,2,14509,0)="""^DD"",779.4,779.41,.03,21,2,0)"
^XMB(3.9,41,2,14510,0)="facility field of the message header."
^XMB(3.9,41,2,14511,0)="""^DD"",779.4,779.41,.03,""DT"")"
^XMB(3.9,41,2,14512,0)="3040527"
^XMB(3.9,41,2,14513,0)="""^DD"",779.4,779.41,.04,0)"
^XMB(3.9,41,2,14514,0)="RECEIVING FACILITY COMPONENT 2^F^^0;4^K:$L(X)>50!($L(X)<1) X"
^XMB(3.9,41,2,14515,0)="""^DD"",779.4,779.41,.04,3)"
^XMB(3.9,41,2,14516,0)="Answer must be 1-50 characters in length"
^XMB(3.9,41,2,14517,0)="""^DD"",779.4,779.41,.04,21,0)"
^XMB(3.9,41,2,14518,0)="^^2^2^3040526^"
^XMB(3.9,41,2,14519,0)="""^DD"",779.4,779.41,.04,21,1,0)"
^XMB(3.9,41,2,14520,0)="This is the value that should be placed in component 2 of the receiving"
^XMB(3.9,41,2,14521,0)="""^DD"",779.4,779.41,.04,21,2,0)"
^XMB(3.9,41,2,14522,0)="facility field of the message header."
^XMB(3.9,41,2,14523,0)="""^DD"",779.4,779.41,.04,""DT"")"
^XMB(3.9,41,2,14524,0)="3040527"
^XMB(3.9,41,2,14525,0)="""^DD"",779.4,779.41,.05,0)"
^XMB(3.9,41,2,14526,0)="RECEIVING FACILITY COMPONENT 3^F^^0;5^K:$L(X)>10!($L(X)<1) X"
^XMB(3.9,41,2,14527,0)="""^DD"",779.4,779.41,.05,3)"
^XMB(3.9,41,2,14528,0)="Answer must be 1-10 characters in length"
^XMB(3.9,41,2,14529,0)="""^DD"",779.4,779.41,.05,21,0)"
^XMB(3.9,41,2,14530,0)="^^2^2^3041116^"
^XMB(3.9,41,2,14531,0)="""^DD"",779.4,779.41,.05,21,1,0)"
^XMB(3.9,41,2,14532,0)="This is the value that should be placed in component 3 of the receiving"
^XMB(3.9,41,2,14533,0)="""^DD"",779.4,779.41,.05,21,2,0)"
^XMB(3.9,41,2,14534,0)="facility field of the message header."
^XMB(3.9,41,2,14535,0)="""^DD"",779.4,779.41,.05,""DT"")"
^XMB(3.9,41,2,14536,0)="3041116"
^XMB(3.9,41,2,14537,0)="""^DD"",779.4,779.41,1.01,0)"
^XMB(3.9,41,2,14538,0)="DATE/TIME ADDED^RD^^1;1^S %DT=""ESTXR"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,41,2,14539,0)="""^DD"",779.4,779.41,1.01,3)"
^XMB(3.9,41,2,14540,0)="Enter the date and time that this recipient was added to the subscription list."
^XMB(3.9,41,2,14541,0)="""^DD"",779.4,779.41,1.01,""DT"")"
^XMB(3.9,41,2,14542,0)="3040526"
^XMB(3.9,41,2,14543,0)="""^DD"",779.4,779.41,1.02,0)"
^XMB(3.9,41,2,14544,0)="DATE/TIME TERMINATED^D^^1;2^S %DT=""ESTXR"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,41,2,14545,0)="""^DD"",779.4,779.41,1.02,3)"
^XMB(3.9,41,2,14546,0)="Enter the date and time that this recipient was dropped from the subscription list"
^XMB(3.9,41,2,14547,0)="""^DD"",779.4,779.41,1.02,""DT"")"
^XMB(3.9,41,2,14548,0)="3040526"
^XMB(3.9,41,2,14549,0)="""^DD"",870,870,0)"
^XMB(3.9,41,2,14550,0)="FIELD^^400.08^47"
^XMB(3.9,41,2,14551,0)="""^DD"",870,870,0,""DDA"")"
^XMB(3.9,41,2,14552,0)="N"
^XMB(3.9,41,2,14553,0)="""^DD"",870,870,0,""DT"")"
^XMB(3.9,41,2,14554,0)="3041221"
^XMB(3.9,41,2,14555,0)="""^DD"",870,870,0,""IX"",""AISTAT"",870.019,1)"
^XMB(3.9,41,2,14556,0)=""
^XMB(3.9,41,2,14557,0)="""^DD"",870,870,0,""IX"",""ALLP"",870,2)"
^XMB(3.9,41,2,14558,0)=""
^XMB(3.9,41,2,14559,0)="""^DD"",870,870,0,""IX"",""B"",870,.01)"
^XMB(3.9,41,2,14560,0)=""
^XMB(3.9,41,2,14561,0)="""^DD"",870,870,0,""IX"",""C"",870,.02)"
^XMB(3.9,41,2,14562,0)=""
^XMB(3.9,41,2,14563,0)="""^DD"",870,870,0,""IX"",""D"",870,.03)"
^XMB(3.9,41,2,14564,0)=""
^XMB(3.9,41,2,14565,0)="""^DD"",870,870,0,""IX"",""E"",870,400.03)"
^XMB(3.9,41,2,14566,0)=""
^XMB(3.9,41,2,14567,0)="""^DD"",870,870,0,""NM"",""HL LOGICAL LINK"")"
^XMB(3.9,41,2,14568,0)=""
^XMB(3.9,41,2,14569,0)="""^DD"",870,870,0,""PT"",101,770.7)"
^XMB(3.9,41,2,14570,0)=""
^XMB(3.9,41,2,14571,0)="""^DD"",870,870,0,""PT"",772,11)"
^XMB(3.9,41,2,14572,0)=""
^XMB(3.9,41,2,14573,0)="""^DD"",870,870,0,""PT"",773,7)"
^XMB(3.9,41,2,14574,0)=""
^XMB(3.9,41,2,14575,0)="""^DD"",870,870,0,""PT"",773,17)"
^XMB(3.9,41,2,14576,0)=""
^XMB(3.9,41,2,14577,0)="""^DD"",870,870,0,""PT"",774.01,3)"
^XMB(3.9,41,2,14578,0)=""
^XMB(3.9,41,2,14579,0)="""^DD"",870,870,0,""PT"",774.02,.02)"
^XMB(3.9,41,2,14580,0)=""
^XMB(3.9,41,2,14581,0)="""^DD"",870,870,0,""PT"",779.1,.1)"
^XMB(3.9,41,2,14582,0)=""
^XMB(3.9,41,2,14583,0)="""^DD"",870,870,0,""PT"",779.2,.09)"
^XMB(3.9,41,2,14584,0)=""
^XMB(3.9,41,2,14585,0)="""^DD"",870,870,0,""PT"",779.41,.02)"
^XMB(3.9,41,2,14586,0)=""
^XMB(3.9,41,2,14587,0)="""^DD"",870,870,0,""PT"",869.311,.01)"
^XMB(3.9,41,2,14588,0)=""
^XMB(3.9,41,2,14589,0)="""^DD"",870,870,0,""VRPK"")"
^XMB(3.9,41,2,14590,0)="HL"
^XMB(3.9,41,2,14591,0)="""^DD"",870,870,.01,0)"
^XMB(3.9,41,2,14592,0)="NODE^RF^^0;1^K:$L(X)>10!($L(X)<3)!'(X'?1P.E) X"
^XMB(3.9,41,2,14593,0)="""^DD"",870,870,.01,1,0)"
^XMB(3.9,41,2,14594,0)="^.1^^-1"
^XMB(3.9,41,2,14595,0)="""^DD"",870,870,.01,1,1,0)"
^XMB(3.9,41,2,14596,0)="870^B"
^XMB(3.9,41,2,14597,0)="""^DD"",870,870,.01,1,1,1)"
^XMB(3.9,41,2,14598,0)="S ^HLCS(870,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,41,2,14599,0)="""^DD"",870,870,.01,1,1,2)"
^XMB(3.9,41,2,14600,0)="K ^HLCS(870,""B"",$E(X,1,30),DA)"
^XMB(3.9,41,2,14601,0)="""^DD"",870,870,.01,3)"
^XMB(3.9,41,2,14602,0)="Enter the name of the logical link (3-10 characters)"
^XMB(3.9,41,2,14603,0)="""^DD"",870,870,.01,21,0)"
^XMB(3.9,41,2,14604,0)="^^5^5^2990217^^^^"
^XMB(3.9,41,2,14605,0)="""^DD"",870,870,.01,21,1,0)"
^XMB(3.9,41,2,14606,0)="This is the name of the logical link that data will be communicated on."
^XMB(3.9,41,2,14607,0)="""^DD"",870,870,.01,21,2,0)"
^XMB(3.9,41,2,14608,0)="It is this name that will be displayed in the ""NODE"" column of the"
^XMB(3.9,41,2,14609,0)="""^DD"",870,870,.01,21,3,0)"
^XMB(3.9,41,2,14610,0)="SYSTEMS LINK MONITOR display option."
^XMB(3.9,41,2,14611,0)="""^DD"",870,870,.01,21,4,0)"
^XMB(3.9,41,2,14612,0)="It is suggested that this name be the same name as the commercial"
^XMB(3.9,41,2,14613,0)="""^DD"",870,870,.01,21,5,0)"
^XMB(3.9,41,2,14614,0)="application e.g. KURZWEIL1,KURZWEIL2,COPATH, or SUNQUEST1."
^XMB(3.9,41,2,14615,0)="""^DD"",870,870,.01,""DT"")"
^XMB(3.9,41,2,14616,0)="3050308"
^XMB(3.9,41,2,14617,0)="""^DD"",870,870,.02,0)"
^XMB(3.9,41,2,14618,0)="INSTITUTION^P4'X^DIC(4,^0;2^K:$O(^HLCS(870,""C"",X,0)) X"
^XMB(3.9,41,2,14619,0)="""^DD"",870,870,.02,1,0)"
^XMB(3.9,41,2,14620,0)="^.1"
^XMB(3.9,41,2,14621,0)="""^DD"",870,870,.02,1,1,0)"
^XMB(3.9,41,2,14622,0)="870^C"
^XMB(3.9,41,2,14623,0)="""^DD"",870,870,.02,1,1,1)"
^XMB(3.9,41,2,14624,0)="S ^HLCS(870,""C"",$E(X,1,30),DA)="""""
^XMB(3.9,41,2,14625,0)="""^DD"",870,870,.02,1,1,2)"
^XMB(3.9,41,2,14626,0)="K ^HLCS(870,""C"",$E(X,1,30),DA)"
^XMB(3.9,41,2,14627,0)="""^DD"",870,870,.02,1,1,""DT"")"
^XMB(3.9,41,2,14628,0)="2970123"
^XMB(3.9,41,2,14629,0)="""^DD"",870,870,.02,3)"
^XMB(3.9,41,2,14630,0)="Select an institution that has not been associated with another link."
^XMB(3.9,41,2,14631,0)="""^DD"",870,870,.02,21,0)"
^XMB(3.9,41,2,14632,0)="^^5^5^2990804^"
^XMB(3.9,41,2,14633,0)="""^DD"",870,870,.02,21,1,0)"
^XMB(3.9,41,2,14634,0)="It may be necessary for an application to determine the appropriate link"
^XMB(3.9,41,2,14635,0)="""^DD"",870,870,.02,21,2,0)"
^XMB(3.9,41,2,14636,0)="to use when the only information it has is the institution. This field is"
^XMB(3.9,41,2,14637,0)="""^DD"",870,870,.02,21,3,0)"
^XMB(3.9,41,2,14638,0)="used to associate a link with that institution. There is a 1:1"
^XMB(3.9,41,2,14639,0)="""^DD"",870,870,.02,21,4,0)"
^XMB(3.9,41,2,14640,0)="correspondence between institution and logical link. An institution cannot"
^XMB(3.9,41,2,14641,0)="""^DD"",870,870,.02,21,5,0)"
^XMB(3.9,41,2,14642,0)="be associated with more than one logical link."
^XMB(3.9,41,2,14643,0)="""^DD"",870,870,.02,""DT"")"
^XMB(3.9,41,2,14644,0)="3040528"
^XMB(3.9,41,2,14645,0)="""^DD"",870,870,.03,0)"
^XMB(3.9,41,2,14646,0)="MAILMAN DOMAIN^P4.2'X^DIC(4.2,^0;7^K:$O(^HLCS(870,""D"",X,0)) X"
^XMB(3.9,41,2,14647,0)="""^DD"",870,870,.03,1,0)"
^XMB(3.9,41,2,14648,0)="^.1^^-1"
^XMB(3.9,41,2,14649,0)="""^DD"",870,870,.03,1,1,0)"
^XMB(3.9,41,2,14650,0)="870^D"
^XMB(3.9,41,2,14651,0)="""^DD"",870,870,.03,1,1,1)"
^XMB(3.9,41,2,14652,0)="S ^HLCS(870,""D"",$E(X,1,30),DA)="""""
^XMB(3.9,41,2,14653,0)="""^DD"",870,870,.03,1,1,2)"
^XMB(3.9,41,2,14654,0)="K ^HLCS(870,""D"",$E(X,1,30),DA)"
^XMB(3.9,41,2,14655,0)="""^DD"",870,870,.03,1,1,""DT"")"
^XMB(3.9,41,2,14656,0)="2980321"
^XMB(3.9,41,2,14657,0)="""^DD"",870,870,.03,3)"
^XMB(3.9,41,2,14658,0)="Enter the Mailman domain corresponding to this link."
^XMB(3.9,41,2,14659,0)="""^DD"",870,870,.03,21,0)"
^XMB(3.9,41,2,14660,0)="^^2^2^3040528^^"
^XMB(3.9,41,2,14661,0)="""^DD"",870,870,.03,21,1,0)"
^XMB(3.9,41,2,14662,0)="Either this field or the OTHER DOMAIN field should have a value.  The domain is"
^XMB(3.9,41,2,14663,0)="""^DD"",870,870,.03,21,2,0)"
^XMB(3.9,41,2,14664,0)="used to formulate the RECEIVING FACILITY field of the message header."
^XMB(3.9,41,2,14665,0)="""^DD"",870,870,.03,""DT"")"
^XMB(3.9,41,2,14666,0)="3050308"
^XMB(3.9,41,2,14667,0)="""^DD"",870,870,.08,0)"
^XMB(3.9,41,2,14668,0)="DNS DOMAIN^FX^^0;8^K:$L(X)>70!($L(X)<4) X S HLIP=$$ADDRESS^XLFNSLK(X) K:('HLIP)&($P($G(^HLCS(869.3,1,0)),""^"",3)=""P"")&($P($$SITE^VASITE,""^"",3)) X I HLIP S HLIP=$$IP^HLMA3(DA,HLIP)"
^XMB(3.9,41,2,14669,0)="""^DD"",870,870,.08,3)"
^XMB(3.9,41,2,14670,0)="Enter the full domain name as registered with DNS."
^XMB(3.9,41,2,14671,0)="""^DD"",870,870,.08,21,0)"
^XMB(3.9,41,2,14672,0)="^.001^1^1^3041221^^^"
^XMB(3.9,41,2,14673,0)="""^DD"",870,870,.08,21,1,0)"
^XMB(3.9,41,2,14674,0)="The domain name as registered with DNS."
^XMB(3.9,41,2,14675,0)="""^DD"",870,870,.08,""DT"")"
^XMB(3.9,41,2,14676,0)="3050309"
^XMB(3.9,41,2,14677,0)="""^DD"",870,870,2,0)"
^XMB(3.9,41,2,14678,0)="LLP TYPE^RP869.1'^HLCS(869.1,^0;3^Q"
^XMB(3.9,41,2,14679,0)="""^DD"",870,870,2,1,0)"
^XMB(3.9,41,2,14680,0)="^.1^^-1"
^XMB(3.9,41,2,14681,0)="""^DD"",870,870,2,1,1,0)"
^XMB(3.9,41,2,14682,0)="870^ALLP"
^XMB(3.9,41,2,14683,0)="""^DD"",870,870,2,1,1,1)"
^XMB(3.9,41,2,14684,0)="S ^HLCS(870,""ALLP"",$E(X,1,30),DA)="""""
^XMB(3.9,41,2,14685,0)="""^DD"",870,870,2,1,1,2)"
^XMB(3.9,41,2,14686,0)="K ^HLCS(870,""ALLP"",$E(X,1,30),DA)"
^XMB(3.9,41,2,14687,0)="""^DD"",870,870,2,1,1,""%D"",0)"
^XMB(3.9,41,2,14688,0)="^^3^3^2950227^"
^XMB(3.9,41,2,14689,0)="""^DD"",870,870,2,1,1,""%D"",1,0)"
^XMB(3.9,41,2,14690,0)="This cross-reference is used to link the HL Lower Layer Parameter"
^XMB(3.9,41,2,14691,0)="""^DD"",870,870,2,1,1,""%D"",2,0)"
^XMB(3.9,41,2,14692,0)="file (#869.2) with the HL Logical Link file. Using this x-ref you can"
^XMB(3.9,41,2,14693,0)="""^DD"",870,870,2,1,1,""%D"",3,0)"
^XMB(3.9,41,2,14694,0)="locate the parameter associated with this link."
^XMB(3.9,41,2,14695,0)="""^DD"",870,870,2,1,1,""DT"")"
^XMB(3.9,41,2,14696,0)="2950227"
^XMB(3.9,41,2,14697,0)="""^DD"",870,870,2,3)"
^XMB(3.9,41,2,14698,0)="Enter the  LLP used for this logical link."
^XMB(3.9,41,2,14699,0)="""^DD"",870,870,2,21,0)"
^XMB(3.9,41,2,14700,0)="^.001^4^4^3040826^^"
^XMB(3.9,41,2,14701,0)="""^DD"",870,870,2,21,1,0)"
^XMB(3.9,41,2,14702,0)="Enter the type of Lower Level Protocol for this logical link. Selection of"
^XMB(3.9,41,2,14703,0)="""^DD"",870,870,2,21,2,0)"
^XMB(3.9,41,2,14704,0)="TCP implies that the MLLP protocol will be used. Each of the supported"
^XMB(3.9,41,2,14705,0)="""^DD"",870,870,2,21,3,0)"
^XMB(3.9,41,2,14706,0)="LLP's are described in detail in Appendix C of the HL7 Implementation"
^XMB(3.9,41,2,14707,0)="""^DD"",870,870,2,21,4,0)"
^XMB(3.9,41,2,14708,0)="Guide."
^XMB(3.9,41,2,14709,0)="""^DD"",870,870,2,""DT"")"
^XMB(3.9,41,2,14710,0)="3050308"
^XMB(3.9,41,2,14711,0)="""^DD"",870,870,3,0)"
^XMB(3.9,41,2,14712,0)="DEVICE TYPE^S^PC:Persistent Client;NC:Non-Persistent Client;SS:Single-threaded Server;MS:Multi-threaded Server;SH:Serial HLLP;SX:Serial X3.28;MM:MailMan;^0;4^Q"
^XMB(3.9,41,2,14713,0)="""^DD"",870,870,3,1,0)"
^XMB(3.9,41,2,14714,0)="^.1^^0"
^XMB(3.9,41,2,14715,0)="""^DD"",870,870,3,3)"
^XMB(3.9,41,2,14716,0)="Not editable from any user option. See field description."
^XMB(3.9,41,2,14717,0)="""^DD"",870,870,3,21,0)"
^XMB(3.9,41,2,14718,0)="^.001^3^3^3040826^^^^"
^XMB(3.9,41,2,14719,0)="""^DD"",870,870,3,21,1,0)"
^XMB(3.9,41,2,14720,0)="This field is not editable from any user option. It is used purely"
^XMB(3.9,41,2,14721,0)="""^DD"",870,870,3,21,2,0)"
^XMB(3.9,41,2,14722,0)="for display purposes in the DEVICE TYPE column of the SYSTEMS LINK"
^XMB(3.9,41,2,14723,0)="""^DD"",870,870,3,21,3,0)"
^XMB(3.9,41,2,14724,0)="MONITOR display option."
^XMB(3.9,41,2,14725,0)="""^DD"",870,870,3,""DT"")"
^XMB(3.9,41,2,14726,0)="3030710"
^XMB(3.9,41,2,14727,0)="""^DD"",870,870,4,0)"
^XMB(3.9,41,2,14728,0)="STATE^F^^0;5^K:$L(X)>10!($L(X)<1) X"
^XMB(3.9,41,2,14729,0)="""^DD"",870,870,4,3)"
^XMB(3.9,41,2,14730,0)="Not editable from any user option. See field description."
^XMB(3.9,41,2,14731,0)="""^DD"",870,870,4,21,0)"
^XMB(3.9,41,2,14732,0)="^.001^3^3^3050118^^^^"
^XMB(3.9,41,2,14733,0)="""^DD"",870,870,4,21,1,0)"
^XMB(3.9,41,2,14734,0)="This field is not editable from any user option. It is used purely for"
^XMB(3.9,41,2,14735,0)="""^DD"",870,870,4,21,2,0)"
^XMB(3.9,41,2,14736,0)="display purposes in the STATE column of the SYSTEMS LINK MONITOR"
^XMB(3.9,41,2,14737,0)="""^DD"",870,870,4,21,3,0)"
^XMB(3.9,41,2,14738,0)="display option."
^XMB(3.9,41,2,14739,0)="""^DD"",870,870,4,""DT"")"
^XMB(3.9,41,2,14740,0)="2941006"
^XMB(3.9,41,2,14741,0)="""^DD"",870,870,4.5,0)"
^XMB(3.9,41,2,14742,0)="AUTOSTART^S^0:Disabled;1:Enabled;^0;6^Q"
^XMB(3.9,41,2,14743,0)="""^DD"",870,870,4.5,21,0)"
^XMB(3.9,41,2,14744,0)="^^2^2^2980831^^"
^XMB(3.9,41,2,14745,0)="""^DD"",870,870,4.5,21,1,0)"
^XMB(3.9,41,2,14746,0)="This field permits the link to be restarted by Taskman after a system"
^XMB(3.9,41,2,14747,0)="""^DD"",870,870,4.5,21,2,0)"
^XMB(3.9,41,2,14748,0)="reboot. If disabled, the link will not be restarted."
^XMB(3.9,41,2,14749,0)="""^DD"",870,870,4.5,""DT"")"
^XMB(3.9,41,2,14750,0)="2961120"
^XMB(3.9,41,2,14751,0)="""^DD"",870,870,5,0)"
^XMB(3.9,41,2,14752,0)="IN QUEUE FRONT POINTER^NJ14,0^^IN QUEUE FRONT POINTER;1^K:+X'=X!(X>99999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^XMB(3.9,41,2,14753,0)="""^DD"",870,870,5,3)"
^XMB(3.9,41,2,14754,0)="This field is not editable from any user option. See Field Description."
^XMB(3.9,41,2,14755,0)="""^DD"",870,870,5,21,0)"
^XMB(3.9,41,2,14756,0)="^^2^2^3041221^"
^XMB(3.9,41,2,14757,0)="""^DD"",870,870,5,21,1,0)"
^XMB(3.9,41,2,14758,0)="The queue structure relies on two queues, INcoming and OUTgoing."
^XMB(3.9,41,2,14759,0)="""^DD"",870,870,5,21,2,0)"
^XMB(3.9,41,2,14760,0)="This pointer is used to point to the first message in the FIFO queue."
^XMB(3.9,41,2,14761,0)="""^DD"",870,870,5,""DT"")"
^XMB(3.9,41,2,14762,0)="3041221"
^XMB(3.9,41,2,14763,0)="""^DD"",870,870,6,0)"
^XMB(3.9,41,2,14764,0)="IN QUEUE BACK POINTER^NJ14,0^^IN QUEUE BACK POINTER;1^K:+X'=X!(X>99999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^XMB(3.9,41,2,14765,0)="""^DD"",870,870,6,3)"
^XMB(3.9,41,2,14766,0)="Type a Number between 0 and 99999999999999, 0 Decimal Digits"
^XMB(3.9,41,2,14767,0)="""^DD"",870,870,6,21,0)"
^XMB(3.9,41,2,14768,0)="^^2^2^3041221^"
^XMB(3.9,41,2,14769,0)="""^DD"",870,870,6,21,1,0)"
^XMB(3.9,41,2,14770,0)="The queue structure relies on two queues-INcoming and OUTgoing."
^XMB(3.9,41,2,14771,0)="""^DD"",870,870,6,21,2,0)"
^XMB(3.9,41,2,14772,0)="This pointer points to the last message in the FIFO queue."
^XMB(3.9,41,2,14773,0)="""^DD"",870,870,6,""DT"")"
^XMB(3.9,41,2,14774,0)="3041221"
^XMB(3.9,41,2,14775,0)="""^DD"",870,870,7,0)"
^XMB(3.9,41,2,14776,0)="OUT QUEUE FRONT POINTER^NJ14,0^^OUT QUEUE FRONT POINTER;1^K:+X'=X!(X>99999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^XMB(3.9,41,2,14777,0)="""^DD"",870,870,7,3)"
^XMB(3.9,41,2,14778,0)="This field is not editable from any user option. See Field Description."
^XMB(3.9,41,2,14779,0)="""^DD"",870,870,7,21,0)"
^XMB(3.9,41,2,14780,0)="^^2^2^3041221^"
^XMB(3.9,41,2,14781,0)="""^DD"",870,870,7,21,1,0)"
^XMB(3.9,41,2,14782,0)="The queue structure relies on two queues-INcoming and OUTgoing."
^XMB(3.9,41,2,14783,0)="""^DD"",870,870,7,21,2,0)"
^XMB(3.9,41,2,14784,0)="This pointer points to the first message in the FIFO queue."
^XMB(3.9,41,2,14785,0)="""^DD"",870,870,7,""DT"")"
^XMB(3.9,41,2,14786,0)="3041221"
^XMB(3.9,41,2,14787,0)="""^DD"",870,870,8,0)"
^XMB(3.9,41,2,14788,0)="OUT QUEUE BACK POINTER^NJ14,0^^OUT QUEUE BACK POINTER;1^K:+X'=X!(X>99999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^XMB(3.9,41,2,14789,0)="""^DD"",870,870,8,3)"
^XMB(3.9,41,2,14790,0)="This field is not editable from any user option. See field description."
^XMB(3.9,41,2,14791,0)="""^DD"",870,870,8,21,0)"
^XMB(3.9,41,2,14792,0)="^^2^2^3041221^"
^XMB(3.9,41,2,14793,0)="""^DD"",870,870,8,21,1,0)"
^XMB(3.9,41,2,14794,0)="The queue structure relies on two queues, INcoming and OUTgoing."
^XMB(3.9,41,2,14795,0)="""^DD"",870,870,8,21,2,0)"
^XMB(3.9,41,2,14796,0)="This pointer points to the last message in the FIFO queue."
^XMB(3.9,41,2,14797,0)="""^DD"",870,870,8,""DT"")"
^XMB(3.9,41,2,14798,0)="3041221"
^XMB(3.9,41,2,14799,0)="""^DD"",870,870,9,0)"
^XMB(3.9,41,2,14800,0)="TIME STARTED^D^^0;10^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,41,2,14801,0)="""^DD"",870,870,9,3)"
^XMB(3.9,41,2,14802,0)="This field is not editable from any user option. See Field Description."
^XMB(3.9,41,2,14803,0)="""^DD"",870,870,9,21,0)"
^XMB(3.9,41,2,14804,0)="^^3^3^2950222^^^^"
^XMB(3.9,41,2,14805,0)="""^DD"",870,870,9,21,1,0)"
^XMB(3.9,41,2,14806,0)="This field contains the Date/Time the Lower Layer Protocol was"
^XMB(3.9,41,2,14807,0)="""^DD"",870,870,9,21,2,0)"
^XMB(3.9,41,2,14808,0)="last launched for the Logical Link. Only applicable to Lower Layer"
^XMB(3.9,41,2,14809,0)="""^DD"",870,870,9,21,3,0)"
^XMB(3.9,41,2,14810,0)="Protocols, not Mailman."
^XMB(3.9,41,2,14811,0)="""^DD"",870,870,9,""DT"")"
^XMB(3.9,41,2,14812,0)="2941006"
^XMB(3.9,41,2,14813,0)="""^DD"",870,870,10,0)"
^XMB(3.9,41,2,14814,0)="TIME STOPPED^D^^0;11^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,41,2,14815,0)="""^DD"",870,870,10,3)"
^XMB(3.9,41,2,14816,0)="This field is not editable from any user option. See Field Description."
^XMB(3.9,41,2,14817,0)="""^DD"",870,870,10,21,0)"
^XMB(3.9,41,2,14818,0)="^^3^3^2941212^^^"
^XMB(3.9,41,2,14819,0)="""^DD"",870,870,10,21,1,0)"
^XMB(3.9,41,2,14820,0)="This field contains the Date/Time the Lower Layer Protocol was"
^XMB(3.9,41,2,14821,0)="""^DD"",870,870,10,21,2,0)"
^XMB(3.9,41,2,14822,0)="last shutdown for the Logical Link. Only applicable to Lower Layer"
^XMB(3.9,41,2,14823,0)="""^DD"",870,870,10,21,3,0)"
^XMB(3.9,41,2,14824,0)="Protocols, not Mailman."
^XMB(3.9,41,2,14825,0)="""^DD"",870,870,10,""DT"")"
^XMB(3.9,41,2,14826,0)="2941006"
^XMB(3.9,41,2,14827,0)="""^DD"",870,870,11,0)"
^XMB(3.9,41,2,14828,0)="TASK NUMBER^NJ15,0^^0;12^K:+X'=X!(X>999999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^XMB(3.9,41,2,14829,0)="""^DD"",870,870,11,3)"
^XMB(3.9,41,2,14830,0)="This field is not editable from any user option. See Field Description."
^XMB(3.9,41,2,14831,0)="""^DD"",870,870,11,21,0)"
^XMB(3.9,41,2,14832,0)="^^2^2^2941212^^^"
^XMB(3.9,41,2,14833,0)="""^DD"",870,870,11,21,1,0)"
^XMB(3.9,41,2,14834,0)="This is the task number assigned by TaskMan when the Lower Layer Protocol"
^XMB(3.9,41,2,14835,0)="""^DD"",870,870,11,21,2,0)"
^XMB(3.9,41,2,14836,0)="is launched in the background."
^XMB(3.9,41,2,14837,0)="""^DD"",870,870,11,""DT"")"
^XMB(3.9,41,2,14838,0)="2941006"
^XMB(3.9,41,2,14839,0)="""^DD"",870,870,14,0)"
^XMB(3.9,41,2,14840,0)="SHUTDOWN LLP ?^S^0:NO;1:YES;^0;15^Q"
^XMB(3.9,41,2,14841,0)="""^DD"",870,870,14,3)"
^XMB(3.9,41,2,14842,0)="Setting this field to 'Y' through the STOP HYBRID LLP option, shuts down the lower layer protocol and closes the device."
^XMB(3.9,41,2,14843,0)="""^DD"",870,870,14,21,0)"
^XMB(3.9,41,2,14844,0)="^^3^3^2950222^^^^"
^XMB(3.9,41,2,14845,0)="""^DD"",870,870,14,21,1,0)"
^XMB(3.9,41,2,14846,0)="This field is editable through the STOP HYBRID LLP option. When the"
^XMB(3.9,41,2,14847,0)="""^DD"",870,870,14,21,2,0)"
^XMB(3.9,41,2,14848,0)="Lower Layer Protocol is running, and this field is set to 'Y' the"
^XMB(3.9,41,2,14849,0)="""^DD"",870,870,14,21,3,0)"
^XMB(3.9,41,2,14850,0)="Lower Layer Protocol will shutdown and close the device."
^XMB(3.9,41,2,14851,0)="""^DD"",870,870,14,""DT"")"
^XMB(3.9,41,2,14852,0)="2950222"
^XMB(3.9,41,2,14853,0)="""^DD"",870,870,16,0)"
^XMB(3.9,41,2,14854,0)="SHUTDOWN OUTGOING HLO MESSAGES^S^0:NO;1:YES;^0;16^Q"
^XMB(3.9,41,2,14855,0)="""^DD"",870,870,16,3)"
^XMB(3.9,41,2,14856,0)="Enter YES to stop HLO messages from being transmitted to this destinations."
^XMB(3.9,41,2,14857,0)="""^DD"",870,870,16,21,0)"
^XMB(3.9,41,2,14858,0)="^^2^2^3050914^"
^XMB(3.9,41,2,14859,0)="""^DD"",870,870,16,21,1,0)"
^XMB(3.9,41,2,14860,0)="This field affects only HLO messages."
^XMB(3.9,41,2,14861,0)="""^DD"",870,870,16,21,2,0)"
^XMB(3.9,41,2,14862,0)=""
^XMB(3.9,41,2,14863,0)="""^DD"",870,870,16,""DT"")"
^XMB(3.9,41,2,14864,0)="3050914"
^XMB(3.9,41,2,14865,0)="""^DD"",870,870,18,0)"
^XMB(3.9,41,2,14866,0)="GROSS COMMUNICATIONS ERROR^P771.7'^HL(771.7,^0;19^Q"
^XMB(3.9,41,2,14867,0)="""^DD"",870,870,18,3)"
^XMB(3.9,41,2,14868,0)="This field contains the most recent communications error which has occured on a particular link."
^XMB(3.9,41,2,14869,0)="""^DD"",870,870,18,21,0)"
^XMB(3.9,41,2,14870,0)="^^10^10^2941213^^^^"
^XMB(3.9,41,2,14871,0)="""^DD"",870,870,18,21,1,0)"
^XMB(3.9,41,2,14872,0)="This field contains the most recent gross communications error. It"
^XMB(3.9,41,2,14873,0)="""^DD"",870,870,18,21,2,0)"
^XMB(3.9,41,2,14874,0)="serves a two purposes. It is a flag for the SYSTEMS LINK MONITOR."
^XMB(3.9,41,2,14875,0)="""^DD"",870,870,18,21,3,0)"
^XMB(3.9,41,2,14876,0)="In other words, if this field is defined it means a communications"
^XMB(3.9,41,2,14877,0)="""^DD"",870,870,18,21,4,0)"
^XMB(3.9,41,2,14878,0)="error has occured on the link. This is indicated by the NODE field"
^XMB(3.9,41,2,14879,0)="""^DD"",870,870,18,21,5,0)"
^XMB(3.9,41,2,14880,0)="flashing on the SYSTEMS LINK MONITOR. "
^XMB(3.9,41,2,14881,0)="""^DD"",870,870,18,21,6,0)"
^XMB(3.9,41,2,14882,0)="The error can be viewed by using the SHOW COMMUNICATION ERROR option."
^XMB(3.9,41,2,14883,0)="""^DD"",870,870,18,21,7,0)"
^XMB(3.9,41,2,14884,0)="The error can be cleared by using the CLEAR COMMUNICATION ERROR option."
^XMB(3.9,41,2,14885,0)="""^DD"",870,870,18,21,8,0)"
^XMB(3.9,41,2,14886,0)="If set, an error occurred while transmitting (timeout for example)."
^XMB(3.9,41,2,14887,0)="""^DD"",870,870,18,21,9,0)"
^XMB(3.9,41,2,14888,0)="This field can be viewed using the 'Show Gross LLP Error' and cleared"
^XMB(3.9,41,2,14889,0)="""^DD"",870,870,18,21,10,0)"
^XMB(3.9,41,2,14890,0)="using the 'Clear Gross LLP Error' options."
^XMB(3.9,41,2,14891,0)="""^DD"",870,870,18,""DT"")"
^XMB(3.9,41,2,14892,0)="2941213"
^XMB(3.9,41,2,14893,0)="""^DD"",870,870,19,0)"
^XMB(3.9,41,2,14894,0)="IN QUEUE^870.019^^1;0"
^XMB(3.9,41,2,14895,0)="""^DD"",870,870,19,21,0)"
^XMB(3.9,41,2,14896,0)="^^1^1^3050414^"
^XMB(3.9,41,2,14897,0)="""^DD"",870,870,19,21,1,0)"
^XMB(3.9,41,2,14898,0)="This multiple contains the queue for incoming messages."
^XMB(3.9,41,2,14899,0)="""^DD"",870,870,19,""DT"")"
^XMB(3.9,41,2,14900,0)="3041012"
^XMB(3.9,41,2,14901,0)="""^DD"",870,870,20,0)"
^XMB(3.9,41,2,14902,0)="OUT QUEUE^870.01A^^2;0"
^XMB(3.9,41,2,14903,0)="""^DD"",870,870,20,21,0)"
^XMB(3.9,41,2,14904,0)="^^1^1^3050414^"
^XMB(3.9,41,2,14905,0)="""^DD"",870,870,20,21,1,0)"
^XMB(3.9,41,2,14906,0)="This multiple contains the queue for outgoing messages."
^XMB(3.9,41,2,14907,0)="""^DD"",870,870,20,""DT"")"
^XMB(3.9,41,2,14908,0)="3041012"
^XMB(3.9,41,2,14909,0)="""^DD"",870,870,21,0)"
^XMB(3.9,41,2,14910,0)="QUEUE SIZE^NJ6,0^^0;21^K:+X'=X!(X>100000)!(X<2)!(X?.E1"".""1N.N) X"
^XMB(3.9,41,2,14911,0)="""^DD"",870,870,21,3)"
^XMB(3.9,41,2,14912,0)="Type a Number between 2 and 100000, 0 Decimal Digits"
^XMB(3.9,41,2,14913,0)="""^DD"",870,870,21,21,0)"
^XMB(3.9,41,2,14914,0)="^^3^3^3041221^"
^XMB(3.9,41,2,14915,0)="""^DD"",870,870,21,21,1,0)"
^XMB(3.9,41,2,14916,0)="This is the steady-state size of the queue. The queue may dynamically"
^XMB(3.9,41,2,14917,0)="""^DD"",870,870,21,21,2,0)"
^XMB(3.9,41,2,14918,0)="grow beyond this size, under certain conditions. See Users Manual, for"
^XMB(3.9,41,2,14919,0)="""^DD"",870,870,21,21,3,0)"
^XMB(3.9,41,2,14920,0)="more information."
^XMB(3.9,41,2,14921,0)="""^DD"",870,870,21,""DT"")"
^XMB(3.9,41,2,14922,0)="3041221"
^XMB(3.9,41,2,14923,0)="""^DD"",870,870,100.01,0)"
^XMB(3.9,41,2,14924,0)="MAIL GROUP^P3.8^XMB(3.8,^100;1^Q"
^XMB(3.9,41,2,14925,0)="""^DD"",870,870,100.01,3)"
^XMB(3.9,41,2,14926,0)="Enter the mail group that messages should be sent to."
^XMB(3.9,41,2,14927,0)="""^DD"",870,870,100.01,21,0)"
^XMB(3.9,41,2,14928,0)="^^10^10^2990707^"
^XMB(3.9,41,2,14929,0)="""^DD"",870,870,100.01,21,1,0)"
^XMB(3.9,41,2,14930,0)="If you are building a logical link that will use Mailman as a transport,"
^XMB(3.9,41,2,14931,0)="""^DD"",870,870,100.01,21,2,0)"
^XMB(3.9,41,2,14932,0)="you must define a mail group that contains the remote member, "
^XMB(3.9,41,2,14933,0)="""^DD"",870,870,100.01,21,3,0)"
^XMB(3.9,41,2,14934,0)=" "
^XMB(3.9,41,2,14935,0)="""^DD"",870,870,100.01,21,4,0)"
^XMB(3.9,41,2,14936,0)="S.HL V16 SERVER@your target domain"
^XMB(3.9,41,2,14937,0)="""^DD"",870,870,100.01,21,5,0)"
^XMB(3.9,41,2,14938,0)=" "
^XMB(3.9,41,2,14939,0)="""^DD"",870,870,100.01,21,6,0)"
^XMB(3.9,41,2,14940,0)="The HL7 package will place outbound messages in file 870's outque. The"
^XMB(3.9,41,2,14941,0)="""^DD"",870,870,100.01,21,7,0)"
^XMB(3.9,41,2,14942,0)="link must be running for messages to be handed off to Mailman."
^XMB(3.9,41,2,14943,0)="""^DD"",870,870,100.01,21,8,0)"
^XMB(3.9,41,2,14944,0)=" "
^XMB(3.9,41,2,14945,0)="""^DD"",870,870,100.01,21,9,0)"
^XMB(3.9,41,2,14946,0)="Inbound messages that are received by the server option are placed"
^XMB(3.9,41,2,14947,0)="""^DD"",870,870,100.01,21,10,0)"
^XMB(3.9,41,2,14948,0)="directly in file 772."
^XMB(3.9,41,2,14949,0)="""^DD"",870,870,100.01,""DT"")"
^XMB(3.9,41,2,14950,0)="2990707"
^XMB(3.9,41,2,14951,0)="""^DD"",870,870,200.01,0)"
^XMB(3.9,41,2,14952,0)="HLLP DEVICE^P3.5'^%ZIS(1,^200;1^Q"
^XMB(3.9,41,2,14953,0)="""^DD"",870,870,200.01,3)"
^XMB(3.9,41,2,14954,0)="Enter the device to be used for the HLLP protocol."
^XMB(3.9,41,2,14955,0)="""^DD"",870,870,200.01,21,0)"
^XMB(3.9,41,2,14956,0)="^^3^3^2990707^"
^XMB(3.9,41,2,14957,0)="""^DD"",870,870,200.01,21,1,0)"
^XMB(3.9,41,2,14958,0)="This is an entry in the Device file (#3.5). It is opened when this logical"
^XMB(3.9,41,2,14959,0)="""^DD"",870,870,200.01,21,2,0)"
^XMB(3.9,41,2,14960,0)="link is started up and remains open until the link is shut down. Normally,"
^XMB(3.9,41,2,14961,0)="""^DD"",870,870,200.01,21,3,0)"
^XMB(3.9,41,2,14962,0)="Vista will initiate and the connection with this serial device."
^XMB(3.9,41,2,14963,0)="""^DD"",870,870,200.01,""DT"")"
^XMB(3.9,41,2,14964,0)="3050308"
^XMB(3.9,41,2,14965,0)="""^DD"",870,870,200.02,0)"
^XMB(3.9,41,2,14966,0)="RE-TRANSMISSION ATTEMPTS^NJ3,0^^200;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^XMB(3.9,41,2,14967,0)="""^DD"",870,870,200.02,3)"
^XMB(3.9,41,2,14968,0)="Type a Number between 0 and 999, 0 Decimal Digits"
^XMB(3.9,41,2,14969,0)="""^DD"",870,870,200.02,21,0)"
^XMB(3.9,41,2,14970,0)="^^3^3^2990707^"
^XMB(3.9,41,2,14971,0)="""^DD"",870,870,200.02,21,1,0)"
^XMB(3.9,41,2,14972,0)="Enter the number of times to re-try sending a message.  The default is 5"
^XMB(3.9,41,2,14973,0)="""^DD"",870,870,200.02,21,2,0)"
^XMB(3.9,41,2,14974,0)="tries if this field is left blank. If a single message exceeds this value"
^XMB(3.9,41,2,14975,0)="""^DD"",870,870,200.02,21,3,0)"
^XMB(3.9,41,2,14976,0)="an Alert is sent to the HL7 mail group and the link is shutdown."
^XMB(3.9,41,2,14977,0)="""^DD"",870,870,200.02,""DT"")"
^XMB(3.9,41,2,14978,0)="2990707"
^XMB(3.9,41,2,14979,0)="""^DD"",870,870,200.021,0)"
^XMB(3.9,41,2,14980,0)="EXCEED RE-TRANSMIT ACTION^S^I:ignore;R:restart;S:shutdown;^200;10^Q"
^XMB(3.9,41,2,14981,0)="""^DD"",870,870,200.021,21,0)"
^XMB(3.9,41,2,14982,0)="^^5^5^2990820^"
^XMB(3.9,41,2,14983,0)="""^DD"",870,870,200.021,21,1,0)"
^XMB(3.9,41,2,14984,0)="This field determines what to do when a message exceeds the number of"
^XMB(3.9,41,2,14985,0)="""^DD"",870,870,200.021,21,2,0)"
^XMB(3.9,41,2,14986,0)=" retry attempts for this Logical Link.  Actions are:"
^XMB(3.9,41,2,14987,0)="""^DD"",870,870,200.021,21,3,0)"
^XMB(3.9,41,2,14988,0)="  Ignore   = send alert once and keep trying to resend"
^XMB(3.9,41,2,14989,0)="""^DD"",870,870,200.021,21,4,0)"
^XMB(3.9,41,2,14990,0)="  Restart  = send alert once and shutdown link then start link"
^XMB(3.9,41,2,14991,0)="""^DD"",870,870,200.021,21,5,0)"
^XMB(3.9,41,2,14992,0)="  Shutdown = send alert once and shutdown link"
^XMB(3.9,41,2,14993,0)="""^DD"",870,870,200.021,""DT"")"
^XMB(3.9,41,2,14994,0)="2990820"
^XMB(3.9,41,2,14995,0)="""^DD"",870,870,200.03,0)"
^XMB(3.9,41,2,14996,0)="BLOCK SIZE^NJ3,0^^200;3^K:+X'=X!(X>512)!(X<9)!(X?.E1"".""1N.N) X"
^XMB(3.9,41,2,14997,0)="""^DD"",870,870,200.03,3)"
^XMB(3.9,41,2,14998,0)="Type a Number between 9 and 512, 0 Decimal Digits245 is the recommended default."
^XMB(3.9,41,2,14999,0)="""^DD"",870,870,200.03,""DT"")"
^XMB(3.9,41,2,15000,0)="2990707"
^XMB(3.9,41,2,15001,0)="""^DD"",870,870,200.04,0)"
^XMB(3.9,41,2,15002,0)="READ TIMEOUT^NJ3,0^^200;4^K:+X'=X!(X>600)!(X<1)!(X?.E1"".""1N.N) X"
^XMB(3.9,41,2,15003,0)="""^DD"",870,870,200.04,3)"
^XMB(3.9,41,2,15004,0)="Type a Number between 1 and 600, 0 Decimal Digits"
^XMB(3.9,41,2,15005,0)="""^DD"",870,870,200.04,21,0)"
^XMB(3.9,41,2,15006,0)="^^3^3^2990708^"
^XMB(3.9,41,2,15007,0)="""^DD"",870,870,200.04,21,1,0)"
^XMB(3.9,41,2,15008,0)="Enter the number of seconds the Lower Layer Protocol remains in a read"
^XMB(3.9,41,2,15009,0)="""^DD"",870,870,200.04,21,2,0)"
^XMB(3.9,41,2,15010,0)="state for data to come in on the link. The default is 10 seconds if this"
^XMB(3.9,41,2,15011,0)="""^DD"",870,870,200.04,21,3,0)"
^XMB(3.9,41,2,15012,0)="field is left blank."
^XMB(3.9,41,2,15013,0)="""^DD"",870,870,200.04,""DT"")"
^XMB(3.9,41,2,15014,0)="2990708"
^XMB(3.9,41,2,15015,0)="""^DD"",870,870,200.05,0)"
^XMB(3.9,41,2,15016,0)="ACK TIMEOUT^NJ3,0^^200;5^K:+X'=X!(X>600)!(X<0)!(X?.E1"".""1N.N) X"
^XMB(3.9,41,2,15017,0)="""^DD"",870,870,200.05,3)"
^XMB(3.9,41,2,15018,0)="Type a Number between 0 and 600, 0 Decimal Digits"
^XMB(3.9,41,2,15019,0)="""^DD"",870,870,200.05,21,0)"
^XMB(3.9,41,2,15020,0)="^^4^4^3000418^^"
^XMB(3.9,41,2,15021,0)="""^DD"",870,870,200.05,21,1,0)"
^XMB(3.9,41,2,15022,0)="The number of seconds the Lower Layer Protocol waits for an"
^XMB(3.9,41,2,15023,0)="""^DD"",870,870,200.05,21,2,0)"
^XMB(3.9,41,2,15024,0)="acknowledgement from the receiving application. The default"
^XMB(3.9,41,2,15025,0)="""^DD"",870,870,200.05,21,3,0)"
^XMB(3.9,41,2,15026,0)="is 60.  If this field is less than the READ TIMEOUT field, "
^XMB(3.9,41,2,15027,0)="""^DD"",870,870,200.05,21,4,0)"
^XMB(3.9,41,2,15028,0)="the READ TIMEOUT value will be used."
^XMB(3.9,41,2,15029,0)="""^DD"",870,870,200.05,""DT"")"
^XMB(3.9,41,2,15030,0)="3000418"
^XMB(3.9,41,2,15031,0)="""^DD"",870,870,200.06,0)"
^XMB(3.9,41,2,15032,0)="LLP START BLOCK^NJ3,0^^200;6^K:+X'=X!(X>300)!(X<1)!(X?.E1"".""1N.N) X"
^XMB(3.9,41,2,15033,0)="""^DD"",870,870,200.06,3)"
^XMB(3.9,41,2,15034,0)="Type a Number between 1 and 300, 0 Decimal Digits"
^XMB(3.9,41,2,15035,0)="""^DD"",870,870,200.06,21,0)"
^XMB(3.9,41,2,15036,0)="^^5^5^2990709^"
^XMB(3.9,41,2,15037,0)="""^DD"",870,870,200.06,21,1,0)"
^XMB(3.9,41,2,15038,0)="Enter the numeric value of the control character used by the HLLP"
^XMB(3.9,41,2,15039,0)="""^DD"",870,870,200.06,21,2,0)"
^XMB(3.9,41,2,15040,0)="communications protocol as a START BLOCK CHARACTER. While this character"
^XMB(3.9,41,2,15041,0)="""^DD"",870,870,200.06,21,3,0)"
^XMB(3.9,41,2,15042,0)="is negotiable, the HL7 implementation guide recommends the use of the 'VT'"
^XMB(3.9,41,2,15043,0)="""^DD"",870,870,200.06,21,4,0)"
^XMB(3.9,41,2,15044,0)="character. If this field is left blank, the default value of 11 will be"
^XMB(3.9,41,2,15045,0)="""^DD"",870,870,200.06,21,5,0)"
^XMB(3.9,41,2,15046,0)="used."
^XMB(3.9,41,2,15047,0)="""^DD"",870,870,200.06,""DT"")"
^XMB(3.9,41,2,15048,0)="2990709"
^XMB(3.9,41,2,15049,0)="""^DD"",870,870,200.07,0)"
^XMB(3.9,41,2,15050,0)="LLP END BLOCK^NJ3,0^^200;7^K:+X'=X!(X>300)!(X<1)!(X?.E1"".""1N.N) X"
^XMB(3.9,41,2,15051,0)="""^DD"",870,870,200.07,3)"
^XMB(3.9,41,2,15052,0)="Type a Number between 1 and 300, 0 Decimal Digits"
^XMB(3.9,41,2,15053,0)="""^DD"",870,870,200.07,21,0)"
^XMB(3.9,41,2,15054,0)="^^4^4^2990709^"
^XMB(3.9,41,2,15055,0)="""^DD"",870,870,200.07,21,1,0)"
^XMB(3.9,41,2,15056,0)="Enter the numeric value of the control character defined in the HLLP"
^XMB(3.9,41,2,15057,0)="""^DD"",870,870,200.07,21,2,0)"
^XMB(3.9,41,2,15058,0)="specification as the END BLOCK CHARACTER. The recommended value is 28. If"
^XMB(3.9,41,2,15059,0)="""^DD"",870,870,200.07,21,3,0)"
^XMB(3.9,41,2,15060,0)="this field is left blank, the default value will be 28 for the 'FS'"
^XMB(3.9,41,2,15061,0)="""^DD"",870,870,200.07,21,4,0)"
^XMB(3.9,41,2,15062,0)="character."
^XMB(3.9,41,2,15063,0)="""^DD"",870,870,200.07,""DT"")"
^XMB(3.9,41,2,15064,0)="2990709"
^XMB(3.9,41,2,15065,0)="""^DD"",870,870,200.08,0)"
^XMB(3.9,41,2,15066,0)="PROTOCOL ID VERSION^S^21:2.1;22:2.2;23:2.3;^200;8^Q"
^XMB(3.9,41,2,15067,0)="""^DD"",870,870,200.08,3)"
^XMB(3.9,41,2,15068,0)="Enter the version of HLLP as specified by the lates HL7 Implementation Guide"
^XMB(3.9,41,2,15069,0)="""^DD"",870,870,200.08,21,0)"
^XMB(3.9,41,2,15070,0)="^^3^3^2990709^"
^XMB(3.9,41,2,15071,0)="""^DD"",870,870,200.08,21,1,0)"
^XMB(3.9,41,2,15072,0)="The latest specification for the HLLP communications protocol is"
^XMB(3.9,41,2,15073,0)="""^DD"",870,870,200.08,21,2,0)"
^XMB(3.9,41,2,15074,0)="identified by a version number, which may be different from the HL7"
^XMB(3.9,41,2,15075,0)="""^DD"",870,870,200.08,21,3,0)"
^XMB(3.9,41,2,15076,0)="standard itself."
^XMB(3.9,41,2,15077,0)="""^DD"",870,870,200.08,""DT"")"
^XMB(3.9,41,2,15078,0)="2990805"
^XMB(3.9,41,2,15079,0)="""^DD"",870,870,200.09,0)"
^XMB(3.9,41,2,15080,0)="UNI-DIRECTIONAL WAIT^NJ2,0^^200;9^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X"
^XMB(3.9,41,2,15081,0)="""^DD"",870,870,200.09,3)"
^XMB(3.9,41,2,15082,0)="Type a Number between 0 and 10, 0 Decimal Digits"
^XMB(3.9,41,2,15083,0)="""^DD"",870,870,200.09,21,0)"
^XMB(3.9,41,2,15084,0)="^^3^3^2990709^"
^XMB(3.9,41,2,15085,0)="""^DD"",870,870,200.09,21,1,0)"
^XMB(3.9,41,2,15086,0)="The number of seconds the Lower Layer Protocol waits after sending a"
^XMB(3.9,41,2,15087,0)="""^DD"",870,870,200.09,21,2,0)"
^XMB(3.9,41,2,15088,0)="messages.  This is only used if the message doesn't want an"
^XMB(3.9,41,2,15089,0)="""^DD"",870,870,200.09,21,3,0)"
^XMB(3.9,41,2,15090,0)="acknowledgment.  "
^XMB(3.9,41,2,15091,0)="""^DD"",870,870,200.09,""DT"")"
^XMB(3.9,41,2,15092,0)="2990709"
^XMB(3.9,41,2,15093,0)="""^DD"",870,870,300.01,0)"
^XMB(3.9,41,2,15094,0)="X3.28 DEVICE^P3.5^%ZIS(1,^300;1^Q"
^XMB(3.9,41,2,15095,0)="""^DD"",870,870,300.01,3)"
^XMB(3.9,41,2,15096,0)="Enter the device from the Device File."
^XMB(3.9,41,2,15097,0)="""^DD"",870,870,300.01,21,0)"
^XMB(3.9,41,2,15098,0)="^^4^4^2990709^"
^XMB(3.9,41,2,15099,0)="""^DD"",870,870,300.01,21,1,0)"
^XMB(3.9,41,2,15100,0)="X3.28 is a serial protocol like HLLP. It requires the remote system be"
^XMB(3.9,41,2,15101,0)="""^DD"",870,870,300.01,21,2,0)"
^XMB(3.9,41,2,15102,0)="configured as a device (bi-directional) in the Device and terminal type"
^XMB(3.9,41,2,15103,0)="""^DD"",870,870,300.01,21,3,0)"
^XMB(3.9,41,2,15104,0)="files. The Vista system will normally open and maintain the connection."
^XMB(3.9,41,2,15105,0)="""^DD"",870,870,300.01,21,4,0)"
^XMB(3.9,41,2,15106,0)="See the HL7 Implementation Guide for details of this protocol."
^XMB(3.9,41,2,15107,0)="""^DD"",870,870,300.01,""DT"")"
^XMB(3.9,41,2,15108,0)="2990709"
^XMB(3.9,41,2,15109,0)="""^DD"",870,870,300.02,0)"
^XMB(3.9,41,2,15110,0)="MAXIMUM MESSAGE SIZE^NJ7,0^^300;2^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^XMB(3.9,41,2,15111,0)="""^DD"",870,870,300.02,3)"
^XMB(3.9,41,2,15112,0)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^XMB(3.9,41,2,15113,0)="""^DD"",870,870,300.02,21,0)"
^XMB(3.9,41,2,15114,0)="^^1^1^2990709^"
^XMB(3.9,41,2,15115,0)="""^DD"",870,870,300.02,21,1,0)"
^XMB(3.9,41,2,15116,0)="See the HL7 Implementation Guide for details of the x3.28 protcol."
^XMB(3.9,41,2,15117,0)="""^DD"",870,870,300.02,""DT"")"
^XMB(3.9,41,2,15118,0)="2990709"
^XMB(3.9,41,2,15119,0)="""^DD"",870,870,300.03,0)"
^XMB(3.9,41,2,15120,0)="MAXIMUM BLOCK SIZE^NJ3,0^^300;3^K:+X'=X!(X>245)!(X<9)!(X?.E1"".""1N.N) X"
^XMB(3.9,41,2,15121,0)="""^DD"",870,870,300.03,3)"
^XMB(3.9,41,2,15122,0)="Type a Number between 9 and 245, 0 Decimal Digits"
^XMB(3.9,41,2,15123,0)="""^DD"",870,870,300.03,21,0)"
^XMB(3.9,41,2,15124,0)="^.001^1^1^3010312^^"
^XMB(3.9,41,2,15125,0)="""^DD"",870,870,300.03,21,1,0)"
^XMB(3.9,41,2,15126,0)="See the HL7 Implementation Guide for details of the x3.28 protcol."
^XMB(3.9,41,2,15127,0)="""^DD"",870,870,300.03,""DT"")"
^XMB(3.9,41,2,15128,0)="2990709"
^XMB(3.9,41,2,15129,0)="""^DD"",870,870,300.04,0)"
^XMB(3.9,41,2,15130,0)="TIMER A^NJ2,0^^300;4^K:+X'=X!(X>60)!(X<1)!(X?.E1"".""1N.N) X"
^XMB(3.9,41,2,15131,0)="""^DD"",870,870,300.04,3)"
^XMB(3.9,41,2,15132,0)="Type a Number between 1 and 60, 0 Decimal Digits"
^XMB(3.9,41,2,15133,0)="""^DD"",870,870,300.04,21,0)"
^XMB(3.9,41,2,15134,0)="^^2^2^2990709^"
^XMB(3.9,41,2,15135,0)="""^DD"",870,870,300.04,21,1,0)"
^XMB(3.9,41,2,15136,0)="Enter the time in seconds for the Response Timer. The default is 6 seconds"
^XMB(3.9,41,2,15137,0)="""^DD"",870,870,300.04,21,2,0)"
^XMB(3.9,41,2,15138,0)="if no time is entered."
^XMB(3.9,41,2,15139,0)="""^DD"",870,870,300.04,""DT"")"
^XMB(3.9,41,2,15140,0)="2990709"
^XMB(3.9,41,2,15141,0)="""^DD"",870,870,300.05,0)"
^XMB(3.9,41,2,15142,0)="TIMER B^NJ2,0^^300;5^K:+X'=X!(X>60)!(X<1)!(X?.E1"".""1N.N) X"
^XMB(3.9,41,2,15143,0)="""^DD"",870,870,300.05,3)"
^XMB(3.9,41,2,15144,0)="Type a Number between 1 and 60, 0 Decimal Digits"
^XMB(3.9,41,2,15145,0)="""^DD"",870,870,300.05,21,0)"
^XMB(3.9,41,2,15146,0)="^^2^2^2990709^"
^XMB(3.9,41,2,15147,0)="""^DD"",870,870,300.05,21,1,0)"
^XMB(3.9,41,2,15148,0)="Enter the time in seconds for the Receive Timer. The default is 3 seconds"
^XMB(3.9,41,2,15149,0)="""^DD"",870,870,300.05,21,2,0)"
^XMB(3.9,41,2,15150,0)="if no time is entered."
^XMB(3.9,41,2,15151,0)="""^DD"",870,870,300.05,""DT"")"
^XMB(3.9,41,2,15152,0)="2990709"
^XMB(3.9,41,2,15153,0)="""^DD"",870,870,300.06,0)"
^XMB(3.9,41,2,15154,0)="TIMER D^NJ2,0^^300;6^K:+X'=X!(X>60)!(X<1)!(X?.E1"".""1N.N) X"
^XMB(3.9,41,2,15155,0)="""^DD"",870,870,300.06,3)"
^XMB(3.9,41,2,15156,0)="Type a Number between 1 and 60, 0 Decimal Digits"
^XMB(3.9,41,2,15157,0)="""^DD"",870,870,300.06,21,0)"
^XMB(3.9,41,2,15158,0)="^^2^2^2990709^"
^XMB(3.9,41,2,15159,0)="""^DD"",870,870,300.06,21,1,0)"
^XMB(3.9,41,2,15160,0)="Enter the time for the Inter-Block timer. The default is 30 seconds if no"
^XMB(3.9,41,2,15161,0)="""^DD"",870,870,300.06,21,2,0)"
^XMB(3.9,41,2,15162,0)="time is specified."
^XMB(3.9,41,2,15163,0)="""^DD"",870,870,300.06,""DT"")"
^XMB(3.9,41,2,15164,0)="2990709"
^XMB(3.9,41,2,15165,0)="""^DD"",870,870,300.07,0)"
^XMB(3.9,41,2,15166,0)="TIMER E^NJ3,0^^300;7^K:+X'=X!(X>600)!(X<1)!(X?.E1"".""1N.N) X"
^XMB(3.9,41,2,15167,0)="""^DD"",870,870,300.07,3)"
^XMB(3.9,41,2,15168,0)="Type a Number between 1 and 600, 0 Decimal Digits"
^XMB(3.9,41,2,15169,0)="""^DD"",870,870,300.07,21,0)"
^XMB(3.9,41,2,15170,0)="^^2^2^2990709^"
^XMB(3.9,41,2,15171,0)="""^DD"",870,870,300.07,21,1,0)"
^XMB(3.9,41,2,15172,0)="Enter the time for the Line Check Timer. The default is 180 seconds is no"
^XMB(3.9,41,2,15173,0)="""^DD"",870,870,300.07,21,2,0)"
^XMB(3.9,41,2,15174,0)="time is specified."
^XMB(3.9,41,2,15175,0)="""^DD"",870,870,300.07,""DT"")"
^XMB(3.9,41,2,15176,0)="2990709"
^XMB(3.9,41,2,15177,0)="""^DD"",870,870,400.01,0)"
^XMB(3.9,41,2,15178,0)="TCP/IP ADDRESS^F^^400;1^K:$L(X)>40!($L(X)<7) X"
^XMB(3.9,41,2,15179,0)="""^DD"",870,870,400.01,3)"
^XMB(3.9,41,2,15180,0)="Answer must be 7-40 characters in length."
^XMB(3.9,41,2,15181,0)="""^DD"",870,870,400.01,21,0)"
^XMB(3.9,41,2,15182,0)="^^1^1^2990709^"
^XMB(3.9,41,2,15183,0)="""^DD"",870,870,400.01,21,1,0)"
^XMB(3.9,41,2,15184,0)="Enter the numeric address of the remote site using the syntax, nn.nn.nn.nn"
^XMB(3.9,41,2,15185,0)="""^DD"",870,870,400.01,""DT"")"
^XMB(3.9,41,2,15186,0)="3041012"
^XMB(3.9,41,2,15187,0)="""^DD"",870,870,400.02,0)"
^XMB(3.9,41,2,15188,0)="TCP/IP PORT^NJ5,0^^400;2^K:+X'=X!(X>65535)!(X<1)!(X?.E1"".""1N.N) X"
^XMB(3.9,41,2,15189,0)="""^DD"",870,870,400.02,3)"
^XMB(3.9,41,2,15190,0)="Type a Number between 1 and 65535, 0 Decimal Digits"
^XMB(3.9,41,2,15191,0)="""^DD"",870,870,400.02,21,0)"
^XMB(3.9,41,2,15192,0)="^^3^3^2990709^"
^XMB(3.9,41,2,15193,0)="""^DD"",870,870,400.02,21,1,0)"
^XMB(3.9,41,2,15194,0)="This is the port over which the HL7 service will create a socket for"
^XMB(3.9,41,2,15195,0)="""^DD"",870,870,400.02,21,2,0)"
^XMB(3.9,41,2,15196,0)="message exchange. In VA, this port will be 5000 between production"
^XMB(3.9,41,2,15197,0)="""^DD"",870,870,400.02,21,3,0)"
^XMB(3.9,41,2,15198,0)="systems."
^XMB(3.9,41,2,15199,0)="""^DD"",870,870,400.02,""DT"")"
^XMB(3.9,41,2,15200,0)="2990709"
^XMB(3.9,41,2,15201,0)="""^DD"",870,870,400.03,0)"
^XMB(3.9,41,2,15202,0)="TCP/IP SERVICE TYPE^S^C:CLIENT (SENDER);S:SINGLE LISTENER;M:MULTI LISTENER;^400;3^Q"
^XMB(3.9,41,2,15203,0)="""^DD"",870,870,400.03,1,0)"
^XMB(3.9,41,2,15204,0)="^.1"
^XMB(3.9,41,2,15205,0)="""^DD"",870,870,400.03,1,1,0)"
^XMB(3.9,41,2,15206,0)="870^E"
^XMB(3.9,41,2,15207,0)="""^DD"",870,870,400.03,1,1,1)"
^XMB(3.9,41,2,15208,0)="S ^HLCS(870,""E"",$E(X,1,30),DA)="""""
^XMB(3.9,41,2,15209,0)="""^DD"",870,870,400.03,1,1,2)"
^XMB(3.9,41,2,15210,0)="K ^HLCS(870,""E"",$E(X,1,30),DA)"
^XMB(3.9,41,2,15211,0)="""^DD"",870,870,400.03,1,1,""DT"")"
^XMB(3.9,41,2,15212,0)="3030710"
^XMB(3.9,41,2,15213,0)="""^DD"",870,870,400.03,3)"
^XMB(3.9,41,2,15214,0)="Does this link send a connection request or receive connection requests?"
^XMB(3.9,41,2,15215,0)="""^DD"",870,870,400.03,21,0)"
^XMB(3.9,41,2,15216,0)="^.001^12^12^3040826^^"
^XMB(3.9,41,2,15217,0)="""^DD"",870,870,400.03,21,1,0)"
^XMB(3.9,41,2,15218,0)="This field determines if the Logical Link is the client (sender) or a"
^XMB(3.9,41,2,15219,0)="""^DD"",870,870,400.03,21,2,0)"
^XMB(3.9,41,2,15220,0)="listener (server) of a message.  Choose from:"
^XMB(3.9,41,2,15221,0)="""^DD"",870,870,400.03,21,3,0)"
^XMB(3.9,41,2,15222,0)=" "
^XMB(3.9,41,2,15223,0)="""^DD"",870,870,400.03,21,4,0)"
^XMB(3.9,41,2,15224,0)="                                "
^XMB(3.9,41,2,15225,0)="""^DD"",870,870,400.03,21,5,0)"
^XMB(3.9,41,2,15226,0)=" CLIENT (SENDER): Indicates that this Logical Link connects to a target"
^XMB(3.9,41,2,15227,0)="""^DD"",870,870,400.03,21,6,0)"
^XMB(3.9,41,2,15228,0)="system, with the current system acting as the sender."
^XMB(3.9,41,2,15229,0)="""^DD"",870,870,400.03,21,7,0)"
^XMB(3.9,41,2,15230,0)=" "
^XMB(3.9,41,2,15231,0)="""^DD"",870,870,400.03,21,8,0)"
^XMB(3.9,41,2,15232,0)=" SINGLE LISTENER: Designates that the current system is a server"
^XMB(3.9,41,2,15233,0)="""^DD"",870,870,400.03,21,9,0)"
^XMB(3.9,41,2,15234,0)="(listener), using a single M process to do the listening."
^XMB(3.9,41,2,15235,0)="""^DD"",870,870,400.03,21,10,0)"
^XMB(3.9,41,2,15236,0)="                                 "
^XMB(3.9,41,2,15237,0)="""^DD"",870,870,400.03,21,11,0)"
^XMB(3.9,41,2,15238,0)=" MULTI LISTENER: Designates that the current system is a server"
^XMB(3.9,41,2,15239,0)="""^DD"",870,870,400.03,21,12,0)"
^XMB(3.9,41,2,15240,0)="(listener), creating multiple background processes."
^XMB(3.9,41,2,15241,0)="""^DD"",870,870,400.03,""DT"")"
^XMB(3.9,41,2,15242,0)="3050308"
^XMB(3.9,41,2,15243,0)="""^DD"",870,870,400.04,0)"
^XMB(3.9,41,2,15244,0)="PERSISTENT^S^Y:YES;N:NO;^400;4^Q"
^XMB(3.9,41,2,15245,0)="""^DD"",870,870,400.04,21,0)"
^XMB(3.9,41,2,15246,0)="^^5^5^2990709^"
^XMB(3.9,41,2,15247,0)="""^DD"",870,870,400.04,21,1,0)"
^XMB(3.9,41,2,15248,0)="Enter 'YES' if this connection needs to remain open even if there are no"
^XMB(3.9,41,2,15249,0)="""^DD"",870,870,400.04,21,2,0)"
^XMB(3.9,41,2,15250,0)="messages to send. The connection will remain open until it is disconnected"
^XMB(3.9,41,2,15251,0)="""^DD"",870,870,400.04,21,3,0)"
^XMB(3.9,41,2,15252,0)="by either side via shutting-down the logical link.  A setting of 'YES' is"
^XMB(3.9,41,2,15253,0)="""^DD"",870,870,400.04,21,4,0)"
^XMB(3.9,41,2,15254,0)="appropriate for connecting to a COTS device with a high volume of"
^XMB(3.9,41,2,15255,0)="""^DD"",870,870,400.04,21,5,0)"
^XMB(3.9,41,2,15256,0)="messages.  "
^XMB(3.9,41,2,15257,0)="""^DD"",870,870,400.04,""DT"")"
^XMB(3.9,41,2,15258,0)="2990709"
^XMB(3.9,41,2,15259,0)="""^DD"",870,870,400.05,0)"
^XMB(3.9,41,2,15260,0)="RETENTION^NJ6,0^^400;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^XMB(3.9,41,2,15261,0)="""^DD"",870,870,400.05,3)"
^XMB(3.9,41,2,15262,0)="Type a Number between 0 and 999999, 0 Decimal Digits"
^XMB(3.9,41,2,15263,0)="""^DD"",870,870,400.05,21,0)"
^XMB(3.9,41,2,15264,0)="^^6^6^2990709^"
^XMB(3.9,41,2,15265,0)="""^DD"",870,870,400.05,21,1,0)"
^XMB(3.9,41,2,15266,0)="Retention is the maximum time in seconds in which a non-persistent LLP"
^XMB(3.9,41,2,15267,0)="""^DD"",870,870,400.05,21,2,0)"
^XMB(3.9,41,2,15268,0)="will wait after the associated queue has been emptied.  If further"
^XMB(3.9,41,2,15269,0)="""^DD"",870,870,400.05,21,3,0)"
^XMB(3.9,41,2,15270,0)="messages arrive in the queue before the retention time has expired, the"
^XMB(3.9,41,2,15271,0)="""^DD"",870,870,400.05,21,4,0)"
^XMB(3.9,41,2,15272,0)="LLP will continue to dequeue and send messages. Otherwise, the LLP will"
^XMB(3.9,41,2,15273,0)="""^DD"",870,870,400.05,21,5,0)"
^XMB(3.9,41,2,15274,0)="become inactive and will remain inactive until further messages are"
^XMB(3.9,41,2,15275,0)="""^DD"",870,870,400.05,21,6,0)"
^XMB(3.9,41,2,15276,0)="queued.  "
^XMB(3.9,41,2,15277,0)="""^DD"",870,870,400.05,""DT"")"
^XMB(3.9,41,2,15278,0)="2990709"
^XMB(3.9,41,2,15279,0)="""^DD"",870,870,400.06,0)"
^XMB(3.9,41,2,15280,0)="STARTUP NODE^P14.7'^%ZIS(14.7,^400;6^Q"
^XMB(3.9,41,2,15281,0)="""^DD"",870,870,400.06,3)"
^XMB(3.9,41,2,15282,0)="Enter the Taskman node to start this LLP on."
^XMB(3.9,41,2,15283,0)="""^DD"",870,870,400.06,21,0)"
^XMB(3.9,41,2,15284,0)="^^5^5^2990709^"
^XMB(3.9,41,2,15285,0)="""^DD"",870,870,400.06,21,1,0)"
^XMB(3.9,41,2,15286,0)="This field is ONLY for VMS sites running Dual Taskman in DCL. This field"
^XMB(3.9,41,2,15287,0)="""^DD"",870,870,400.06,21,2,0)"
^XMB(3.9,41,2,15288,0)="is used to specify what Taskman node you want to job the Lower Level"
^XMB(3.9,41,2,15289,0)="""^DD"",870,870,400.06,21,3,0)"
^XMB(3.9,41,2,15290,0)="Protocol. It should only be used if you have two Taskmans running and only"
^XMB(3.9,41,2,15291,0)="""^DD"",870,870,400.06,21,4,0)"
^XMB(3.9,41,2,15292,0)="want the LLP to run on a particular node.  It will only work if you are"
^XMB(3.9,41,2,15293,0)="""^DD"",870,870,400.06,21,5,0)"
^XMB(3.9,41,2,15294,0)="running the dual Taskmans in DCL context on a VMS system."
^XMB(3.9,41,2,15295,0)="""^DD"",870,870,400.06,""DT"")"
^XMB(3.9,41,2,15296,0)="2990709"
^XMB(3.9,41,2,15297,0)="""^DD"",870,870,400.07,0)"
^XMB(3.9,41,2,15298,0)="SAY HELO^S^Y:YES;N:NO;^400;7^Q"
^XMB(3.9,41,2,15299,0)="""^DD"",870,870,400.07,3)"
^XMB(3.9,41,2,15300,0)="Send initial HELO for Cache/NT TCP links?"
^XMB(3.9,41,2,15301,0)="""^DD"",870,870,400.07,21,0)"
^XMB(3.9,41,2,15302,0)="^.001^6^6^3001103^^^^"
^XMB(3.9,41,2,15303,0)="""^DD"",870,870,400.07,21,1,0)"
^XMB(3.9,41,2,15304,0)="This field is applicable only to Cache/NT sites with TCP links."
^XMB(3.9,41,2,15305,0)="""^DD"",870,870,400.07,21,2,0)"
^XMB(3.9,41,2,15306,0)="If you are not a Cache/NT site, or this is not a TCP link, this field"
^XMB(3.9,41,2,15307,0)="""^DD"",870,870,400.07,21,3,0)"
^XMB(3.9,41,2,15308,0)="does not apply, AND will be ignored."
^XMB(3.9,41,2,15309,0)="""^DD"",870,870,400.07,21,4,0)"
^XMB(3.9,41,2,15310,0)=""
^XMB(3.9,41,2,15311,0)="""^DD"",870,870,400.07,21,5,0)"
^XMB(3.9,41,2,15312,0)="If this TCP link is for a VA site, answer YES."
^XMB(3.9,41,2,15313,0)="""^DD"",870,870,400.07,21,6,0)"
^XMB(3.9,41,2,15314,0)="If this TCP link is for a COTS system, answer NO.  This is the default."
^XMB(3.9,41,2,15315,0)="""^DD"",870,870,400.07,23,0)"
^XMB(3.9,41,2,15316,0)="^.001^4^4^3001103^^^"
^XMB(3.9,41,2,15317,0)="""^DD"",870,870,400.07,23,1,0)"
^XMB(3.9,41,2,15318,0)="When sending HL7 transactions to other VA sites over TCP links, Cache/NT"
^XMB(3.9,41,2,15319,0)="""^DD"",870,870,400.07,23,2,0)"
^XMB(3.9,41,2,15320,0)="sites must send an initial HELO to overcome buffering issues.  However,"
^XMB(3.9,41,2,15321,0)="""^DD"",870,870,400.07,23,3,0)"
^XMB(3.9,41,2,15322,0)="the initial HELO is not part of the HL7 standard, and may cause a reject"
^XMB(3.9,41,2,15323,0)="""^DD"",870,870,400.07,23,4,0)"
^XMB(3.9,41,2,15324,0)="error when sent to a COTS system."
^XMB(3.9,41,2,15325,0)="""^DD"",870,870,400.07,""DT"")"
^XMB(3.9,41,2,15326,0)="3001102"
^XMB(3.9,41,2,15327,0)="""^DD"",870,870,400.08,0)"
^XMB(3.9,41,2,15328,0)="TCP/IP PORT (OPTIMIZED)^NJ5,0^^400;8^K:+X'=X!(X>65535)!(X<1)!(X?.E1"".""1N.N) X"
^XMB(3.9,41,2,15329,0)="""^DD"",870,870,400.08,3)"
^XMB(3.9,41,2,15330,0)="Enter the port to use for the new HL7 'optimized' server, a number between 1 and 65535. 5001 is the default."
^XMB(3.9,41,2,15331,0)="""^DD"",870,870,400.08,21,0)"
^XMB(3.9,41,2,15332,0)="^.001^4^4^3050216^^^"
^XMB(3.9,41,2,15333,0)="""^DD"",870,870,400.08,21,1,0)"
^XMB(3.9,41,2,15334,0)="The new HL7 'optimized' server will operate concurrently with the  old"
^XMB(3.9,41,2,15335,0)="""^DD"",870,870,400.08,21,2,0)"
^XMB(3.9,41,2,15336,0)="HL7 1.6 server.  To  enable that, the two servers are assigned different ports"
^XMB(3.9,41,2,15337,0)="""^DD"",870,870,400.08,21,3,0)"
^XMB(3.9,41,2,15338,0)="to listen on.  The default port for the old HL7 server is 5000, whereas "
^XMB(3.9,41,2,15339,0)="""^DD"",870,870,400.08,21,4,0)"
^XMB(3.9,41,2,15340,0)="the new optimized HL7 server uses port 5001."
^XMB(3.9,41,2,15341,0)="""^DD"",870,870,400.08,""DT"")"
^XMB(3.9,41,2,15342,0)="3050216"
^XMB(3.9,41,2,15343,0)="""^DD"",870,870.01,0)"
^XMB(3.9,41,2,15344,0)="OUT QUEUE SUB-FIELD^^6^7"
^XMB(3.9,41,2,15345,0)="""^DD"",870,870.01,0,""DIK"")"
^XMB(3.9,41,2,15346,0)="HL870"
^XMB(3.9,41,2,15347,0)="""^DD"",870,870.01,0,""DT"")"
^XMB(3.9,41,2,15348,0)="3041014"
^XMB(3.9,41,2,15349,0)="""^DD"",870,870.01,0,""IX"",""B"",870.01,.01)"
^XMB(3.9,41,2,15350,0)=""
^XMB(3.9,41,2,15351,0)="""^DD"",870,870.01,0,""NM"",""OUT QUEUE"")"
^XMB(3.9,41,2,15352,0)=""
^XMB(3.9,41,2,15353,0)="""^DD"",870,870.01,0,""UP"")"
^XMB(3.9,41,2,15354,0)="870"
^XMB(3.9,41,2,15355,0)="""^DD"",870,870.01,.01,0)"
^XMB(3.9,41,2,15356,0)="MESSAGE NUMBER^NJ15,0^^0;1^K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^XMB(3.9,41,2,15357,0)="""^DD"",870,870.01,.01,1,0)"
^XMB(3.9,41,2,15358,0)="^.1^^-1"
^XMB(3.9,41,2,15359,0)="""^DD"",870,870.01,.01,1,1,0)"
^XMB(3.9,41,2,15360,0)="870.01^B"
^XMB(3.9,41,2,15361,0)="""^DD"",870,870.01,.01,1,1,1)"
^XMB(3.9,41,2,15362,0)="S ^HLCS(870,DA(1),2,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,41,2,15363,0)="""^DD"",870,870.01,.01,1,1,2)"
^XMB(3.9,41,2,15364,0)="K ^HLCS(870,DA(1),2,""B"",$E(X,1,30),DA)"
^XMB(3.9,41,2,15365,0)="""^DD"",870,870.01,.01,3)"
^XMB(3.9,41,2,15366,0)="Not editable from any user option. See Field Description."
^XMB(3.9,41,2,15367,0)="""^DD"",870,870.01,.01,21,0)"
^XMB(3.9,41,2,15368,0)="^^2^2^2941213^"
^XMB(3.9,41,2,15369,0)="""^DD"",870,870.01,.01,21,1,0)"
^XMB(3.9,41,2,15370,0)="This is the number assigned to the message when it is enque'd into"
^XMB(3.9,41,2,15371,0)="""^DD"",870,870.01,.01,21,2,0)"
^XMB(3.9,41,2,15372,0)="the FIFO queue."
^XMB(3.9,41,2,15373,0)="""^DD"",870,870.01,.01,""DT"")"
^XMB(3.9,41,2,15374,0)="2941102"
^XMB(3.9,41,2,15375,0)="""^DD"",870,870.01,1,0)"
^XMB(3.9,41,2,15376,0)="STATUS^S^P:PENDING;D:DONE PROCESSING;S:STUB RECORD;^0;2^Q"
^XMB(3.9,41,2,15377,0)="""^DD"",870,870.01,1,1,0)"
^XMB(3.9,41,2,15378,0)="^.1^^0"
^XMB(3.9,41,2,15379,0)="""^DD"",870,870.01,1,3)"
^XMB(3.9,41,2,15380,0)="This is the status of an individual message in the queue. These statuses control the flow and processing of the message."
^XMB(3.9,41,2,15381,0)="""^DD"",870,870.01,1,21,0)"
^XMB(3.9,41,2,15382,0)="^^6^6^2941213^^"
^XMB(3.9,41,2,15383,0)="""^DD"",870,870.01,1,21,1,0)"
^XMB(3.9,41,2,15384,0)="Status of a particular message. Can be Stub, Pending, or Done. These"
^XMB(3.9,41,2,15385,0)="""^DD"",870,870.01,1,21,2,0)"
^XMB(3.9,41,2,15386,0)="statuses control the processing of a message. For example, a stub"
^XMB(3.9,41,2,15387,0)="""^DD"",870,870.01,1,21,3,0)"
^XMB(3.9,41,2,15388,0)="record is created when a message is enque'd, it cannot be processed"
^XMB(3.9,41,2,15389,0)="""^DD"",870,870.01,1,21,4,0)"
^XMB(3.9,41,2,15390,0)="until it's status is changed from a 'stub' to 'pending', this is"
^XMB(3.9,41,2,15391,0)="""^DD"",870,870.01,1,21,5,0)"
^XMB(3.9,41,2,15392,0)="the last thing HLCS1 does when dequeueing a message from file #772"
^XMB(3.9,41,2,15393,0)="""^DD"",870,870.01,1,21,6,0)"
^XMB(3.9,41,2,15394,0)="and enqueueing it into file #870."
^XMB(3.9,41,2,15395,0)="""^DD"",870,870.01,1,""DT"")"
^XMB(3.9,41,2,15396,0)="3000508"
^XMB(3.9,41,2,15397,0)="""^DD"",870,870.01,2,0)"
^XMB(3.9,41,2,15398,0)="ERROR^S^A:LLP ACKNOWLEDGED NO ERROR;C:LLP CHAR COUNT WRONG;X:LLP XOR WRONG;B:DATA TOO LONG;G:OTHER LLP ERROR;^0;3^Q"
^XMB(3.9,41,2,15399,0)="""^DD"",870,870.01,2,3)"
^XMB(3.9,41,2,15400,0)="This field is not editable from any user option. See field description."
^XMB(3.9,41,2,15401,0)="""^DD"",870,870.01,2,21,0)"
^XMB(3.9,41,2,15402,0)="^^3^3^2941213^"
^XMB(3.9,41,2,15403,0)="""^DD"",870,870.01,2,21,1,0)"
^XMB(3.9,41,2,15404,0)="If this field contains a ""C"",""X"",""B"", or a ""G"" it means an error has"
^XMB(3.9,41,2,15405,0)="""^DD"",870,870.01,2,21,2,0)"
^XMB(3.9,41,2,15406,0)="occured while attempting to send a message to another application."
^XMB(3.9,41,2,15407,0)="""^DD"",870,870.01,2,21,3,0)"
^XMB(3.9,41,2,15408,0)="This field is not editable from any user option."
^XMB(3.9,41,2,15409,0)="""^DD"",870,870.01,2,""DT"")"
^XMB(3.9,41,2,15410,0)="2941117"
^XMB(3.9,41,2,15411,0)="""^DD"",870,870.01,3,0)"
^XMB(3.9,41,2,15412,0)="MESSAGE TEXT^870.13^^1;0"
^XMB(3.9,41,2,15413,0)="""^DD"",870,870.01,3,21,0)"
^XMB(3.9,41,2,15414,0)="^^1^1^2941213^"
^XMB(3.9,41,2,15415,0)="""^DD"",870,870.01,3,21,1,0)"
^XMB(3.9,41,2,15416,0)="This field contains the text of the message."
^XMB(3.9,41,2,15417,0)="""^DD"",870,870.01,4,0)"
^XMB(3.9,41,2,15418,0)="dhcp-longtitudinal checksum^F^^0;4^K:$L(X)>5!($L(X)<1) X"
^XMB(3.9,41,2,15419,0)="""^DD"",870,870.01,4,3)"
^XMB(3.9,41,2,15420,0)="Answer must be 1-5 characters in length."
^XMB(3.9,41,2,15421,0)="""^DD"",870,870.01,4,""DT"")"
^XMB(3.9,41,2,15422,0)="2950113"
^XMB(3.9,41,2,15423,0)="""^DD"",870,870.01,5,0)"
^XMB(3.9,41,2,15424,0)="dhcp-xor checksum^F^^0;5^K:$L(X)>3!($L(X)<1) X"
^XMB(3.9,41,2,15425,0)="""^DD"",870,870.01,5,3)"
^XMB(3.9,41,2,15426,0)="Answer must be 1-3 characters in length."
^XMB(3.9,41,2,15427,0)="""^DD"",870,870.01,5,""DT"")"
^XMB(3.9,41,2,15428,0)="2950113"
^XMB(3.9,41,2,15429,0)="""^DD"",870,870.01,6,0)"
^XMB(3.9,41,2,15430,0)="IEN772 OutQ-Non-TCP^F^^0;6^K:$L(X)>30!($L(X)<1)!'(X?.N) X"
^XMB(3.9,41,2,15431,0)="""^DD"",870,870.01,6,3)"
^XMB(3.9,41,2,15432,0)="Answer must be 1-30 numeric digits in length."
^XMB(3.9,41,2,15433,0)="""^DD"",870,870.01,6,21,0)"
^XMB(3.9,41,2,15434,0)="^^1^1^3041221^"
^XMB(3.9,41,2,15435,0)="""^DD"",870,870.01,6,21,1,0)"
^XMB(3.9,41,2,15436,0)="The ien of file #772, where this sub-entry is copied from."
^XMB(3.9,41,2,15437,0)="""^DD"",870,870.01,6,""DT"")"
^XMB(3.9,41,2,15438,0)="3041221"
^XMB(3.9,41,2,15439,0)="""^DD"",870,870.019,0)"
^XMB(3.9,41,2,15440,0)="IN QUEUE SUB-FIELD^^9^10"
^XMB(3.9,41,2,15441,0)="""^DD"",870,870.019,0,""DIK"")"
^XMB(3.9,41,2,15442,0)="HL870"
^XMB(3.9,41,2,15443,0)="""^DD"",870,870.019,0,""DT"")"
^XMB(3.9,41,2,15444,0)="3041014"
^XMB(3.9,41,2,15445,0)="""^DD"",870,870.019,0,""IX"",""B"",870.019,.01)"
^XMB(3.9,41,2,15446,0)=""
^XMB(3.9,41,2,15447,0)="""^DD"",870,870.019,0,""NM"",""IN QUEUE"")"
^XMB(3.9,41,2,15448,0)=""
^XMB(3.9,41,2,15449,0)="""^DD"",870,870.019,0,""UP"")"
^XMB(3.9,41,2,15450,0)="870"
^XMB(3.9,41,2,15451,0)="""^DD"",870,870.019,.01,0)"
^XMB(3.9,41,2,15452,0)="MESSAGE NUMBER^NJ15,0^^0;1^K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^XMB(3.9,41,2,15453,0)="""^DD"",870,870.019,.01,1,0)"
^XMB(3.9,41,2,15454,0)="^.1^^-1"
^XMB(3.9,41,2,15455,0)="""^DD"",870,870.019,.01,1,1,0)"
^XMB(3.9,41,2,15456,0)="870.019^B"
^XMB(3.9,41,2,15457,0)="""^DD"",870,870.019,.01,1,1,1)"
^XMB(3.9,41,2,15458,0)="S ^HLCS(870,DA(1),1,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,41,2,15459,0)="""^DD"",870,870.019,.01,1,1,2)"
^XMB(3.9,41,2,15460,0)="K ^HLCS(870,DA(1),1,""B"",$E(X,1,30),DA)"
^XMB(3.9,41,2,15461,0)="""^DD"",870,870.019,.01,3)"
^XMB(3.9,41,2,15462,0)="Not editable from any user option. See field description."
^XMB(3.9,41,2,15463,0)="""^DD"",870,870.019,.01,21,0)"
^XMB(3.9,41,2,15464,0)="^^2^2^2941213^^^"
^XMB(3.9,41,2,15465,0)="""^DD"",870,870.019,.01,21,1,0)"
^XMB(3.9,41,2,15466,0)="This is the number assigned to the message when it is enqued into the"
^XMB(3.9,41,2,15467,0)="""^DD"",870,870.019,.01,21,2,0)"
^XMB(3.9,41,2,15468,0)="FIFO queue."
^XMB(3.9,41,2,15469,0)="""^DD"",870,870.019,.01,""DT"")"
^XMB(3.9,41,2,15470,0)="2941102"
^XMB(3.9,41,2,15471,0)="""^DD"",870,870.019,1,0)"
^XMB(3.9,41,2,15472,0)="STATUS^S^P:PENDING;D:DONE PROCESSING;S:STUB RECORD;^0;2^Q"
^XMB(3.9,41,2,15473,0)="""^DD"",870,870.019,1,1,0)"
^XMB(3.9,41,2,15474,0)="^.1"
^XMB(3.9,41,2,15475,0)="""^DD"",870,870.019,1,1,1,0)"
^XMB(3.9,41,2,15476,0)="870^AISTAT"
^XMB(3.9,41,2,15477,0)="""^DD"",870,870.019,1,1,1,1)"
^XMB(3.9,41,2,15478,0)="S ^HLCS(870,""AISTAT"",$E(X,1,30),DA(1),DA)="""""
^XMB(3.9,41,2,15479,0)="""^DD"",870,870.019,1,1,1,2)"
^XMB(3.9,41,2,15480,0)="K ^HLCS(870,""AISTAT"",$E(X,1,30),DA(1),DA)"
^XMB(3.9,41,2,15481,0)="""^DD"",870,870.019,1,1,1,""%D"",0)"
^XMB(3.9,41,2,15482,0)="^.101^2^2^3001115^^^"
^XMB(3.9,41,2,15483,0)="""^DD"",870,870.019,1,1,1,""%D"",1,0)"
^XMB(3.9,41,2,15484,0)="Used to quickly identify links with messages in any status,"
^XMB(3.9,41,2,15485,0)="""^DD"",870,870.019,1,1,1,""%D"",2,0)"
^XMB(3.9,41,2,15486,0)="thus improving performance."
^XMB(3.9,41,2,15487,0)="""^DD"",870,870.019,1,1,1,""DT"")"
^XMB(3.9,41,2,15488,0)="3000508"
^XMB(3.9,41,2,15489,0)="""^DD"",870,870.019,1,3)"
^XMB(3.9,41,2,15490,0)="This is the status of an individual message in the queue. These statuses control the flow and processing of the message."
^XMB(3.9,41,2,15491,0)="""^DD"",870,870.019,1,21,0)"
^XMB(3.9,41,2,15492,0)="^.001^7^7^3001115^^^^"
^XMB(3.9,41,2,15493,0)="""^DD"",870,870.019,1,21,1,0)"
^XMB(3.9,41,2,15494,0)="Status of a particular message. Can be Stub, Pending, or Done."
^XMB(3.9,41,2,15495,0)="""^DD"",870,870.019,1,21,2,0)"
^XMB(3.9,41,2,15496,0)="These statuses control the processing of a message. For example, a"
^XMB(3.9,41,2,15497,0)="""^DD"",870,870.019,1,21,3,0)"
^XMB(3.9,41,2,15498,0)="stub record is created when a message is enqueued, and cannot be"
^XMB(3.9,41,2,15499,0)="""^DD"",870,870.019,1,21,4,0)"
^XMB(3.9,41,2,15500,0)="processed until its status is changed from 'stub' to 'pending'."
^XMB(3.9,41,2,15501,0)="""^DD"",870,870.019,1,21,5,0)"
^XMB(3.9,41,2,15502,0)="Changing this status is the last thing the Low Layer Protocol does"
^XMB(3.9,41,2,15503,0)="""^DD"",870,870.019,1,21,6,0)"
^XMB(3.9,41,2,15504,0)="after reading in a message.  Finally, once the message has been"
^XMB(3.9,41,2,15505,0)="""^DD"",870,870.019,1,21,7,0)"
^XMB(3.9,41,2,15506,0)="processed, its status is changed to 'done'."
^XMB(3.9,41,2,15507,0)="""^DD"",870,870.019,1,""DT"")"
^XMB(3.9,41,2,15508,0)="3000508"
^XMB(3.9,41,2,15509,0)="""^DD"",870,870.019,2,0)"
^XMB(3.9,41,2,15510,0)="ERROR^S^A:LLP ACKNOWLEDGED NO ERROR;C:LLP CHAR COUNT WRONG;X:LLP XOR WRONG;B:DATA TOO LONG;G:OTHER LLP ERROR;^0;3^Q"
^XMB(3.9,41,2,15511,0)="""^DD"",870,870.019,2,3)"
^XMB(3.9,41,2,15512,0)="This field is not editable from any user option. See Field Description."
^XMB(3.9,41,2,15513,0)="""^DD"",870,870.019,2,21,0)"
^XMB(3.9,41,2,15514,0)="^^3^3^2941213^^"
^XMB(3.9,41,2,15515,0)="""^DD"",870,870.019,2,21,1,0)"
^XMB(3.9,41,2,15516,0)="If this field contains a ""C"",""X"",""B"", or a ""G"" it means an error has"
^XMB(3.9,41,2,15517,0)="""^DD"",870,870.019,2,21,2,0)"
^XMB(3.9,41,2,15518,0)="ocurred while reading in a message. This field is not editable from"
^XMB(3.9,41,2,15519,0)="""^DD"",870,870.019,2,21,3,0)"
^XMB(3.9,41,2,15520,0)="any user option."
^XMB(3.9,41,2,15521,0)="""^DD"",870,870.019,2,""DT"")"
^XMB(3.9,41,2,15522,0)="2941027"
^XMB(3.9,41,2,15523,0)="""^DD"",870,870.019,3,0)"
^XMB(3.9,41,2,15524,0)="MESSAGE TEXT^870.193^^1;0"
^XMB(3.9,41,2,15525,0)="""^DD"",870,870.019,3,21,0)"
^XMB(3.9,41,2,15526,0)="^^1^1^2941213^^"
^XMB(3.9,41,2,15527,0)="""^DD"",870,870.019,3,21,1,0)"
^XMB(3.9,41,2,15528,0)="This field contains the text of the message."
^XMB(3.9,41,2,15529,0)="""^DD"",870,870.019,4,0)"
^XMB(3.9,41,2,15530,0)="tvv^F^^0;4^K:$L(X)>3!($L(X)<3) X"
^XMB(3.9,41,2,15531,0)="""^DD"",870,870.019,4,3)"
^XMB(3.9,41,2,15532,0)="Answer must be 3 characters in length."
^XMB(3.9,41,2,15533,0)="""^DD"",870,870.019,4,""DT"")"
^XMB(3.9,41,2,15534,0)="2950112"
^XMB(3.9,41,2,15535,0)="""^DD"",870,870.019,5,0)"
^XMB(3.9,41,2,15536,0)="ccccc^F^^0;5^K:$L(X)>5!($L(X)<1) X"
^XMB(3.9,41,2,15537,0)="""^DD"",870,870.019,5,3)"
^XMB(3.9,41,2,15538,0)="Answer must be 1-5 characters in length."
^XMB(3.9,41,2,15539,0)="""^DD"",870,870.019,5,""DT"")"
^XMB(3.9,41,2,15540,0)="2950113"
^XMB(3.9,41,2,15541,0)="""^DD"",870,870.019,6,0)"
^XMB(3.9,41,2,15542,0)="xxx^F^^0;6^K:$L(X)>3!($L(X)<1) X"
^XMB(3.9,41,2,15543,0)="""^DD"",870,870.019,6,3)"
^XMB(3.9,41,2,15544,0)="Answer must be 1-3 characters in length."
^XMB(3.9,41,2,15545,0)="""^DD"",870,870.019,6,""DT"")"
^XMB(3.9,41,2,15546,0)="2950113"
^XMB(3.9,41,2,15547,0)="""^DD"",870,870.019,7,0)"
^XMB(3.9,41,2,15548,0)="dhcp-longtitudinal checksum^F^^0;7^K:$L(X)>5!($L(X)<1) X"
^XMB(3.9,41,2,15549,0)="""^DD"",870,870.019,7,3)"
^XMB(3.9,41,2,15550,0)="Answer must be 1-5 characters in length."
^XMB(3.9,41,2,15551,0)="""^DD"",870,870.019,7,""DT"")"
^XMB(3.9,41,2,15552,0)="2950113"
^XMB(3.9,41,2,15553,0)="""^DD"",870,870.019,8,0)"
^XMB(3.9,41,2,15554,0)="dhcp-xor checksum^F^^0;8^K:$L(X)>3!($L(X)<1) X"
^XMB(3.9,41,2,15555,0)="""^DD"",870,870.019,8,3)"
^XMB(3.9,41,2,15556,0)="Answer must be 1-3 characters in length."
^XMB(3.9,41,2,15557,0)="""^DD"",870,870.019,8,""DT"")"
^XMB(3.9,41,2,15558,0)="2950113"
^XMB(3.9,41,2,15559,0)="""^DD"",870,870.019,9,0)"
^XMB(3.9,41,2,15560,0)="IEN772 InQ-Non-TCP^F^^0;9^K:$L(X)>30!($L(X)<1)!'(X?.N) X"
^XMB(3.9,41,2,15561,0)="""^DD"",870,870.019,9,3)"
^XMB(3.9,41,2,15562,0)="Answer must be 1-30 numeric digits in length."
^XMB(3.9,41,2,15563,0)="""^DD"",870,870.019,9,21,0)"
^XMB(3.9,41,2,15564,0)="^^1^1^3041221^"
^XMB(3.9,41,2,15565,0)="""^DD"",870,870.019,9,21,1,0)"
^XMB(3.9,41,2,15566,0)="The ien of file #772, where this sub-entry is copied to. "
^XMB(3.9,41,2,15567,0)="""^DD"",870,870.019,9,""DT"")"
^XMB(3.9,41,2,15568,0)="3041221"
^XMB(3.9,41,2,15569,0)="""^DD"",870,870.13,0)"
^XMB(3.9,41,2,15570,0)="MESSAGE TEXT SUB-FIELD^^.01^1"
^XMB(3.9,41,2,15571,0)="""^DD"",870,870.13,0,""DT"")"
^XMB(3.9,41,2,15572,0)="2941006"
^XMB(3.9,41,2,15573,0)="""^DD"",870,870.13,0,""NM"",""MESSAGE TEXT"")"
^XMB(3.9,41,2,15574,0)=""
^XMB(3.9,41,2,15575,0)="""^DD"",870,870.13,0,""UP"")"
^XMB(3.9,41,2,15576,0)="870.01"
^XMB(3.9,41,2,15577,0)="""^DD"",870,870.13,.01,0)"
^XMB(3.9,41,2,15578,0)="MESSAGE TEXT^WL^^0;1^Q"
^XMB(3.9,41,2,15579,0)="""^DD"",870,870.13,.01,""DT"")"
^XMB(3.9,41,2,15580,0)="2941006"
^XMB(3.9,41,2,15581,0)="""^DD"",870,870.193,0)"
^XMB(3.9,41,2,15582,0)="MESSAGE TEXT SUB-FIELD^^.01^1"
^XMB(3.9,41,2,15583,0)="""^DD"",870,870.193,0,""DT"")"
^XMB(3.9,41,2,15584,0)="2941006"
^XMB(3.9,41,2,15585,0)="""^DD"",870,870.193,0,""NM"",""MESSAGE TEXT"")"
^XMB(3.9,41,2,15586,0)=""
^XMB(3.9,41,2,15587,0)="""^DD"",870,870.193,0,""UP"")"
^XMB(3.9,41,2,15588,0)="870.019"
^XMB(3.9,41,2,15589,0)="""^DD"",870,870.193,.01,0)"
^XMB(3.9,41,2,15590,0)="MESSAGE TEXT^WL^^0;1^Q"
^XMB(3.9,41,2,15591,0)="""^DD"",870,870.193,.01,3)"
^XMB(3.9,41,2,15592,0)="This field contains the actual text of the message."
^XMB(3.9,41,2,15593,0)="""^DD"",870,870.193,.01,""DT"")"
^XMB(3.9,41,2,15594,0)="2941006"
^XMB(3.9,41,2,15595,0)="""^DIC"",777,777,0)"
^XMB(3.9,41,2,15596,0)="HLO MESSAGE BODY^777"
^XMB(3.9,41,2,15597,0)="""^DIC"",777,777,0,""GL"")"
^XMB(3.9,41,2,15598,0)="^HLA("
^XMB(3.9,41,2,15599,0)="""^DIC"",777,777,""%"",0)"
^XMB(3.9,41,2,15600,0)="^1.005^^0"
^XMB(3.9,41,2,15601,0)="""^DIC"",777,777,""%D"",0)"
^XMB(3.9,41,2,15602,0)="^1.001^3^3^3050215^^^"
^XMB(3.9,41,2,15603,0)="""^DIC"",777,777,""%D"",1,0)"
^XMB(3.9,41,2,15604,0)="Contains the body of an HL7 message, which excludes the message header "
^XMB(3.9,41,2,15605,0)="""^DIC"",777,777,""%D"",2,0)"
^XMB(3.9,41,2,15606,0)="segment.  For batch messages, it does not include the individual message "
^XMB(3.9,41,2,15607,0)="""^DIC"",777,777,""%D"",3,0)"
^XMB(3.9,41,2,15608,0)="header segments or the batch trailer segment."
^XMB(3.9,41,2,15609,0)="""^DIC"",777,""B"",""HLO MESSAGE BODY"",777)"
^XMB(3.9,41,2,15610,0)=""
^XMB(3.9,41,2,15611,0)="""^DIC"",778,778,0)"
^XMB(3.9,41,2,15612,0)="HLO MESSAGES^778"
^XMB(3.9,41,2,15613,0)="""^DIC"",778,778,0,""GL"")"
^XMB(3.9,41,2,15614,0)="^HLB("
^XMB(3.9,41,2,15615,0)="""^DIC"",778,778,""%"",0)"
^XMB(3.9,41,2,15616,0)="^1.005^^0"
^XMB(3.9,41,2,15617,0)="""^DIC"",778,778,""%D"",0)"
^XMB(3.9,41,2,15618,0)="^1.001^3^3^3050317^^^"
^XMB(3.9,41,2,15619,0)="""^DIC"",778,778,""%D"",1,0)"
^XMB(3.9,41,2,15620,0)="Used to record each message as it is sent or received.  The content of the"
^XMB(3.9,41,2,15621,0)="""^DIC"",778,778,""%D"",2,0)"
^XMB(3.9,41,2,15622,0)="message is stored in a file #777, as it might be sent to multiple locations"
^XMB(3.9,41,2,15623,0)="""^DIC"",778,778,""%D"",3,0)"
^XMB(3.9,41,2,15624,0)="and applications."
^XMB(3.9,41,2,15625,0)="""^DIC"",778,""B"",""HLO MESSAGES"",778)"
^XMB(3.9,41,2,15626,0)=""
^XMB(3.9,41,2,15627,0)="""^DIC"",779.1,779.1,0)"
^XMB(3.9,41,2,15628,0)="HLO SYSTEM PARAMETERS^779.1"
^XMB(3.9,41,2,15629,0)="""^DIC"",779.1,779.1,0,""GL"")"
^XMB(3.9,41,2,15630,0)="^HLD(779.1,"
^XMB(3.9,41,2,15631,0)="""^DIC"",779.1,779.1,""%"",0)"
^XMB(3.9,41,2,15632,0)="^1.005^^0"
^XMB(3.9,41,2,15633,0)="""^DIC"",779.1,779.1,""%D"",0)"
^XMB(3.9,41,2,15634,0)="^1.001^2^2^3050801^^^^"
^XMB(3.9,41,2,15635,0)="""^DIC"",779.1,779.1,""%D"",1,0)"
^XMB(3.9,41,2,15636,0)="This file contains parameters used by the HLO (HL7 Optimized)"
^XMB(3.9,41,2,15637,0)="""^DIC"",779.1,779.1,""%D"",2,0)"
^XMB(3.9,41,2,15638,0)="that are specific to the system the software is installed on."
^XMB(3.9,41,2,15639,0)="""^DIC"",779.1,""B"",""HLO SYSTEM PARAMETERS"",779.1)"
^XMB(3.9,41,2,15640,0)=""
^XMB(3.9,41,2,15641,0)="""^DIC"",779.2,779.2,0)"
^XMB(3.9,41,2,15642,0)="HLO APPLICATION REGISTRY^779.2"
^XMB(3.9,41,2,15643,0)="""^DIC"",779.2,779.2,0,""GL"")"
^XMB(3.9,41,2,15644,0)="^HLD(779.2,"
^XMB(3.9,41,2,15645,0)="""^DIC"",779.2,779.2,""%"",0)"
^XMB(3.9,41,2,15646,0)="^1.005^^0"
^XMB(3.9,41,2,15647,0)="""^DIC"",779.2,779.2,""%D"",0)"
^XMB(3.9,41,2,15648,0)="^^12^12^3050801^^^^"
^XMB(3.9,41,2,15649,0)="""^DIC"",779.2,779.2,""%D"",1,0)"
^XMB(3.9,41,2,15650,0)="This file is used to register sending and receiving applications for HL7"
^XMB(3.9,41,2,15651,0)="""^DIC"",779.2,779.2,""%D"",2,0)"
^XMB(3.9,41,2,15652,0)="messaging. For receiving applications, the process of registration consists of"
^XMB(3.9,41,2,15653,0)="""^DIC"",779.2,779.2,""%D"",3,0)"
^XMB(3.9,41,2,15654,0)="registering what messages the application is prepared to receive."
^XMB(3.9,41,2,15655,0)="""^DIC"",779.2,779.2,""%D"",4,0)"
^XMB(3.9,41,2,15656,0)=""
^XMB(3.9,41,2,15657,0)="""^DIC"",779.2,779.2,""%D"",5,0)"
^XMB(3.9,41,2,15658,0)="For both sending and receiving applications, it is necessary to specify"
^XMB(3.9,41,2,15659,0)="""^DIC"",779.2,779.2,""%D"",6,0)"
^XMB(3.9,41,2,15660,0)="what package the application belongs to.  For sending applications, that is"
^XMB(3.9,41,2,15661,0)="""^DIC"",779.2,779.2,""%D"",7,0)"
^XMB(3.9,41,2,15662,0)="the only field that applies, other than the name of the sending application."
^XMB(3.9,41,2,15663,0)="""^DIC"",779.2,779.2,""%D"",8,0)"
^XMB(3.9,41,2,15664,0)=""
^XMB(3.9,41,2,15665,0)="""^DIC"",779.2,779.2,""%D"",9,0)"
^XMB(3.9,41,2,15666,0)="An application can be either a sender or a receiver of messages, or both. In "
^XMB(3.9,41,2,15667,0)="""^DIC"",779.2,779.2,""%D"",10,0)"
^XMB(3.9,41,2,15668,0)="order for an application to receive messages, it must specify an action "
^XMB(3.9,41,2,15669,0)="""^DIC"",779.2,779.2,""%D"",11,0)"
^XMB(3.9,41,2,15670,0)="(M tag^routine) for each type of message that it is capable of receiving, or a"
^XMB(3.9,41,2,15671,0)="""^DIC"",779.2,779.2,""%D"",12,0)"
^XMB(3.9,41,2,15672,0)="default action that applies when no messsage-specific action is defined."
^XMB(3.9,41,2,15673,0)="""^DIC"",779.2,""B"",""HLO APPLICATION REGISTRY"",779.2)"
^XMB(3.9,41,2,15674,0)=""
^XMB(3.9,41,2,15675,0)="""^DIC"",779.3,779.3,0)"
^XMB(3.9,41,2,15676,0)="HLO PROCESS REGISTRY^779.3"
^XMB(3.9,41,2,15677,0)="""^DIC"",779.3,779.3,0,""GL"")"
^XMB(3.9,41,2,15678,0)="^HLD(779.3,"
^XMB(3.9,41,2,15679,0)="""^DIC"",779.3,779.3,""%"",0)"
^XMB(3.9,41,2,15680,0)="^1.005^^0"
^XMB(3.9,41,2,15681,0)="""^DIC"",779.3,779.3,""%D"",0)"
^XMB(3.9,41,2,15682,0)="^^2^2^3050801^^^"
^XMB(3.9,41,2,15683,0)="""^DIC"",779.3,779.3,""%D"",1,0)"
^XMB(3.9,41,2,15684,0)="The process registry is used by the HLO process manager to start, stop, and"
^XMB(3.9,41,2,15685,0)="""^DIC"",779.3,779.3,""%D"",2,0)"
^XMB(3.9,41,2,15686,0)="manage all of the processes used by the HLO system."
^XMB(3.9,41,2,15687,0)="""^DIC"",779.3,""B"",""HLO PROCESS REGISTRY"",779.3)"
^XMB(3.9,41,2,15688,0)=""
^XMB(3.9,41,2,15689,0)="""^DIC"",779.4,779.4,0)"
^XMB(3.9,41,2,15690,0)="HLO SUBSCRIPTION REGISTRY^779.4"
^XMB(3.9,41,2,15691,0)="""^DIC"",779.4,779.4,0,""GL"")"
^XMB(3.9,41,2,15692,0)="^HLD(779.4,"
^XMB(3.9,41,2,15693,0)="""^DIC"",779.4,779.4,""%"",0)"
^XMB(3.9,41,2,15694,0)="^1.005^^0"
^XMB(3.9,41,2,15695,0)="""^DIC"",779.4,779.4,""%D"",0)"
^XMB(3.9,41,2,15696,0)="^1.001^6^6^3050215^^^"
^XMB(3.9,41,2,15697,0)="""^DIC"",779.4,779.4,""%D"",1,0)"
^XMB(3.9,41,2,15698,0)="This file is used to store static routing lists for messages.  "
^XMB(3.9,41,2,15699,0)="""^DIC"",779.4,779.4,""%D"",2,0)"
^XMB(3.9,41,2,15700,0)=" "
^XMB(3.9,41,2,15701,0)="""^DIC"",779.4,779.4,""%D"",3,0)"
^XMB(3.9,41,2,15702,0)="Static routing lists are lists of recipients that an application may create in"
^XMB(3.9,41,2,15703,0)="""^DIC"",779.4,779.4,""%D"",4,0)"
^XMB(3.9,41,2,15704,0)="advance for its messages.  The alternate routing method is dynamic routing, "
^XMB(3.9,41,2,15705,0)="""^DIC"",779.4,779.4,""%D"",5,0)"
^XMB(3.9,41,2,15706,0)="whereby the recipient list is created by the application at the time the "
^XMB(3.9,41,2,15707,0)="""^DIC"",779.4,779.4,""%D"",6,0)"
^XMB(3.9,41,2,15708,0)="message is created."
^XMB(3.9,41,2,15709,0)="""^DIC"",779.4,""B"",""HLO SUBSCRIPTION REGISTRY"",779.4)"
^XMB(3.9,41,2,15710,0)=""
^XMB(3.9,41,2,15711,0)="""^DIC"",870,870,0)"
^XMB(3.9,41,2,15712,0)="HL LOGICAL LINK^870"
^XMB(3.9,41,2,15713,0)="""^DIC"",870,870,0,""GL"")"
^XMB(3.9,41,2,15714,0)="^HLCS(870,"
^XMB(3.9,41,2,15715,0)="""^DIC"",870,870,""%"",0)"
^XMB(3.9,41,2,15716,0)="^1.005^^0"
^XMB(3.9,41,2,15717,0)="""^DIC"",870,870,""%D"",0)"
^XMB(3.9,41,2,15718,0)="^^21^21^2990607^^^^"
^XMB(3.9,41,2,15719,0)="""^DIC"",870,870,""%D"",1,0)"
^XMB(3.9,41,2,15720,0)="This file serves two purposes. It is a fileman-compatible transmission"
^XMB(3.9,41,2,15721,0)="""^DIC"",870,870,""%D"",2,0)"
^XMB(3.9,41,2,15722,0)="log. The Low Layer Protocols write and read directly from this file."
^XMB(3.9,41,2,15723,0)="""^DIC"",870,870,""%D"",3,0)"
^XMB(3.9,41,2,15724,0)="(See routines HLCSDR1 and HLCSDR2)"
^XMB(3.9,41,2,15725,0)="""^DIC"",870,870,""%D"",4,0)"
^XMB(3.9,41,2,15726,0)=" "
^XMB(3.9,41,2,15727,0)="""^DIC"",870,870,""%D"",5,0)"
^XMB(3.9,41,2,15728,0)="This file stores parameters that govern the behaviour of the Low Layer"
^XMB(3.9,41,2,15729,0)="""^DIC"",870,870,""%D"",6,0)"
^XMB(3.9,41,2,15730,0)="Protocols. Fields like: READ TIMEOUT, ACK TIMEOUT, LLP START BLOCK, and"
^XMB(3.9,41,2,15731,0)="""^DIC"",870,870,""%D"",7,0)"
^XMB(3.9,41,2,15732,0)="LLP END BLOCK, are fields that govern how long the finite state machine"
^XMB(3.9,41,2,15733,0)="""^DIC"",870,870,""%D"",8,0)"
^XMB(3.9,41,2,15734,0)="waits for data to come down the line (READ TIMEOUT), how long it waits"
^XMB(3.9,41,2,15735,0)="""^DIC"",870,870,""%D"",9,0)"
^XMB(3.9,41,2,15736,0)="for a lower level acknowledgement (ACK TIMEOUT), and which control"
^XMB(3.9,41,2,15737,0)="""^DIC"",870,870,""%D"",10,0)"
^XMB(3.9,41,2,15738,0)="characters define the beginning and end of a message (LLP START BLOCK"
^XMB(3.9,41,2,15739,0)="""^DIC"",870,870,""%D"",11,0)"
^XMB(3.9,41,2,15740,0)="and LLP END BLOCK)."
^XMB(3.9,41,2,15741,0)="""^DIC"",870,870,""%D"",12,0)"
^XMB(3.9,41,2,15742,0)=" "
^XMB(3.9,41,2,15743,0)="""^DIC"",870,870,""%D"",13,0)"
^XMB(3.9,41,2,15744,0)="This file also stores information that drives the SYSTEMS LINK MONITOR"
^XMB(3.9,41,2,15745,0)="""^DIC"",870,870,""%D"",14,0)"
^XMB(3.9,41,2,15746,0)="display option. Fields like, IN QUEUE FRONT POINTER, IN QUEUE BACK "
^XMB(3.9,41,2,15747,0)="""^DIC"",870,870,""%D"",15,0)"
^XMB(3.9,41,2,15748,0)="POINTER are used to manage the data flow in the queues but they are"
^XMB(3.9,41,2,15749,0)="""^DIC"",870,870,""%D"",16,0)"
^XMB(3.9,41,2,15750,0)="also displayed on the SYSTEMS LINK MONITOR under the alias's MESSAGES"
^XMB(3.9,41,2,15751,0)="""^DIC"",870,870,""%D"",17,0)"
^XMB(3.9,41,2,15752,0)="PROCESSED and MESSAGES RECEIVED. Fields like STATE and DEVICE TYPE"
^XMB(3.9,41,2,15753,0)="""^DIC"",870,870,""%D"",18,0)"
^XMB(3.9,41,2,15754,0)="are also used to drive the SYSTEMS LINK MONITOR. These fields are"
^XMB(3.9,41,2,15755,0)="""^DIC"",870,870,""%D"",19,0)"
^XMB(3.9,41,2,15756,0)="updated by the lower layer protocols in order to give real-time feedback"
^XMB(3.9,41,2,15757,0)="""^DIC"",870,870,""%D"",20,0)"
^XMB(3.9,41,2,15758,0)="as to what is ocurring on a link. For example, when a message is "
^XMB(3.9,41,2,15759,0)="""^DIC"",870,870,""%D"",21,0)"
^XMB(3.9,41,2,15760,0)="received (see HLCSDR1) the state transitions from ""IDLE"" to ""READING""."
^XMB(3.9,41,2,15761,0)="""^DIC"",870,""B"",""HL LOGICAL LINK"",870)"
^XMB(3.9,41,2,15762,0)=""
^XMB(3.9,41,2,15763,0)="""BLD"",838,6)"
^XMB(3.9,41,2,15764,0)="^SEQ #101"
^XMB(3.9,41,2,15765,0)="$END KID HL*1.6*126"
^XMB(3.9,41,6,0)="^3.911A^2^2"
^XMB(3.9,41,6,1,0)="POSTMASTER"
^XMB(3.9,41,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,41,6,"B","POSTMASTER",1)=""
^XMB(3.9,41,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,42,0)="HL-1P6_SEQ-102_PAT-130.KID^.5^3061008.015734^^^^K"
^XMB(3.9,42,.6)="3061008"
^XMB(3.9,42,1,0)="^3.91A^2^2"
^XMB(3.9,42,1,1,0)=".5^0^3061008.015734^^^^^^^3061008.015734"
^XMB(3.9,42,1,2,0)="1^0^3061008.023209^^^^^^^3061008.023209"
^XMB(3.9,42,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,42,1,"C",.5,1)=""
^XMB(3.9,42,1,"C",1,2)=""
^XMB(3.9,42,2,0)="^^4097^4097^3061008"
^XMB(3.9,42,2,1,0)="$TXT Released HL*1.6*130 SEQ #102"
^XMB(3.9,42,2,2,0)="Extracted from mail message"
^XMB(3.9,42,2,3,0)="$END TXT"
^XMB(3.9,42,2,4,0)="$KID HL*1.6*130"
^XMB(3.9,42,2,5,0)="**INSTALL NAME**"
^XMB(3.9,42,2,6,0)="HL*1.6*130"
^XMB(3.9,42,2,7,0)="""BLD"",908,0)"
^XMB(3.9,42,2,8,0)="HL*1.6*130^HEALTH LEVEL SEVEN^0^3051205^y"
^XMB(3.9,42,2,9,0)="""BLD"",908,1,0)"
^XMB(3.9,42,2,10,0)="^^2^2^3051019^"
^XMB(3.9,42,2,11,0)="""BLD"",908,1,1,0)"
^XMB(3.9,42,2,12,0)="Please see the NPM on Forum for a complete description."
^XMB(3.9,42,2,13,0)="""BLD"",908,1,2,0)"
^XMB(3.9,42,2,14,0)=""
^XMB(3.9,42,2,15,0)="""BLD"",908,4,0)"
^XMB(3.9,42,2,16,0)="^9.64PA^870^2"
^XMB(3.9,42,2,17,0)="""BLD"",908,4,779.3,0)"
^XMB(3.9,42,2,18,0)="779.3"
^XMB(3.9,42,2,19,0)="""BLD"",908,4,779.3,222)"
^XMB(3.9,42,2,20,0)="n^n^f^^n^^y^o^n"
^XMB(3.9,42,2,21,0)="""BLD"",908,4,779.3,224)"
^XMB(3.9,42,2,22,0)="I $P($G(^HLD(779.3,+Y,0)),""^"")=""TOTAL MESSAGE COUNTS"""
^XMB(3.9,42,2,23,0)="""BLD"",908,4,870,0)"
^XMB(3.9,42,2,24,0)="870"
^XMB(3.9,42,2,25,0)="""BLD"",908,4,870,2,0)"
^XMB(3.9,42,2,26,0)="^9.641^870^1"
^XMB(3.9,42,2,27,0)="""BLD"",908,4,870,2,870,0)"
^XMB(3.9,42,2,28,0)="HL LOGICAL LINK  (File-top level)"
^XMB(3.9,42,2,29,0)="""BLD"",908,4,870,2,870,1,0)"
^XMB(3.9,42,2,30,0)="^9.6411^16^1"
^XMB(3.9,42,2,31,0)="""BLD"",908,4,870,2,870,1,16,0)"
^XMB(3.9,42,2,32,0)="SHUTDOWN OUTGOING HLO MESSAGES"
^XMB(3.9,42,2,33,0)="""BLD"",908,4,870,222)"
^XMB(3.9,42,2,34,0)="y^n^p^^^^n^^n"
^XMB(3.9,42,2,35,0)="""BLD"",908,4,870,224)"
^XMB(3.9,42,2,36,0)=""
^XMB(3.9,42,2,37,0)="""BLD"",908,4,""APDD"",870,870)"
^XMB(3.9,42,2,38,0)=""
^XMB(3.9,42,2,39,0)="""BLD"",908,4,""APDD"",870,870,16)"
^XMB(3.9,42,2,40,0)=""
^XMB(3.9,42,2,41,0)="""BLD"",908,4,""B"",779.3,779.3)"
^XMB(3.9,42,2,42,0)=""
^XMB(3.9,42,2,43,0)="""BLD"",908,4,""B"",870,870)"
^XMB(3.9,42,2,44,0)=""
^XMB(3.9,42,2,45,0)="""BLD"",908,6.3)"
^XMB(3.9,42,2,46,0)="10"
^XMB(3.9,42,2,47,0)="""BLD"",908,""ABPKG"")"
^XMB(3.9,42,2,48,0)="n"
^XMB(3.9,42,2,49,0)="""BLD"",908,""KRN"",0)"
^XMB(3.9,42,2,50,0)="^9.67PA^8989.52^19"
^XMB(3.9,42,2,51,0)="""BLD"",908,""KRN"",.4,0)"
^XMB(3.9,42,2,52,0)=".4"
^XMB(3.9,42,2,53,0)="""BLD"",908,""KRN"",.401,0)"
^XMB(3.9,42,2,54,0)=".401"
^XMB(3.9,42,2,55,0)="""BLD"",908,""KRN"",.402,0)"
^XMB(3.9,42,2,56,0)=".402"
^XMB(3.9,42,2,57,0)="""BLD"",908,""KRN"",.403,0)"
^XMB(3.9,42,2,58,0)=".403"
^XMB(3.9,42,2,59,0)="""BLD"",908,""KRN"",.5,0)"
^XMB(3.9,42,2,60,0)=".5"
^XMB(3.9,42,2,61,0)="""BLD"",908,""KRN"",.84,0)"
^XMB(3.9,42,2,62,0)=".84"
^XMB(3.9,42,2,63,0)="""BLD"",908,""KRN"",3.6,0)"
^XMB(3.9,42,2,64,0)="3.6"
^XMB(3.9,42,2,65,0)="""BLD"",908,""KRN"",3.8,0)"
^XMB(3.9,42,2,66,0)="3.8"
^XMB(3.9,42,2,67,0)="""BLD"",908,""KRN"",9.2,0)"
^XMB(3.9,42,2,68,0)="9.2"
^XMB(3.9,42,2,69,0)="""BLD"",908,""KRN"",9.8,0)"
^XMB(3.9,42,2,70,0)="9.8"
^XMB(3.9,42,2,71,0)="""BLD"",908,""KRN"",9.8,""NM"",0)"
^XMB(3.9,42,2,72,0)="^9.68A^9^9"
^XMB(3.9,42,2,73,0)="""BLD"",908,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,42,2,74,0)="HLOCLNT^^0^55768085"
^XMB(3.9,42,2,75,0)="""BLD"",908,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,42,2,76,0)="HLOCLNT1^^0^27548481"
^XMB(3.9,42,2,77,0)="""BLD"",908,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,42,2,78,0)="HLOCLNT2^^0^23345410"
^XMB(3.9,42,2,79,0)="""BLD"",908,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,42,2,80,0)="HLOSRVR^^0^70554107"
^XMB(3.9,42,2,81,0)="""BLD"",908,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,42,2,82,0)="HLOSRVR1^^0^65124218"
^XMB(3.9,42,2,83,0)="""BLD"",908,""KRN"",9.8,""NM"",6,0)"
^XMB(3.9,42,2,84,0)="HLOSTAT^^0^55434883"
^XMB(3.9,42,2,85,0)="""BLD"",908,""KRN"",9.8,""NM"",7,0)"
^XMB(3.9,42,2,86,0)="HLOTLNK^^0^20724359"
^XMB(3.9,42,2,87,0)="""BLD"",908,""KRN"",9.8,""NM"",8,0)"
^XMB(3.9,42,2,88,0)="HLOUSR^^0^88410850"
^XMB(3.9,42,2,89,0)="""BLD"",908,""KRN"",9.8,""NM"",9,0)"
^XMB(3.9,42,2,90,0)="HLOUSRA^^0^10710992"
^XMB(3.9,42,2,91,0)="""BLD"",908,""KRN"",9.8,""NM"",""B"",""HLOCLNT"",1)"
^XMB(3.9,42,2,92,0)=""
^XMB(3.9,42,2,93,0)="""BLD"",908,""KRN"",9.8,""NM"",""B"",""HLOCLNT1"",2)"
^XMB(3.9,42,2,94,0)=""
^XMB(3.9,42,2,95,0)="""BLD"",908,""KRN"",9.8,""NM"",""B"",""HLOCLNT2"",3)"
^XMB(3.9,42,2,96,0)=""
^XMB(3.9,42,2,97,0)="""BLD"",908,""KRN"",9.8,""NM"",""B"",""HLOSRVR"",4)"
^XMB(3.9,42,2,98,0)=""
^XMB(3.9,42,2,99,0)="""BLD"",908,""KRN"",9.8,""NM"",""B"",""HLOSRVR1"",5)"
^XMB(3.9,42,2,100,0)=""
^XMB(3.9,42,2,101,0)="""BLD"",908,""KRN"",9.8,""NM"",""B"",""HLOSTAT"",6)"
^XMB(3.9,42,2,102,0)=""
^XMB(3.9,42,2,103,0)="""BLD"",908,""KRN"",9.8,""NM"",""B"",""HLOTLNK"",7)"
^XMB(3.9,42,2,104,0)=""
^XMB(3.9,42,2,105,0)="""BLD"",908,""KRN"",9.8,""NM"",""B"",""HLOUSR"",8)"
^XMB(3.9,42,2,106,0)=""
^XMB(3.9,42,2,107,0)="""BLD"",908,""KRN"",9.8,""NM"",""B"",""HLOUSRA"",9)"
^XMB(3.9,42,2,108,0)=""
^XMB(3.9,42,2,109,0)="""BLD"",908,""KRN"",19,0)"
^XMB(3.9,42,2,110,0)="19"
^XMB(3.9,42,2,111,0)="""BLD"",908,""KRN"",19,""NM"",0)"
^XMB(3.9,42,2,112,0)="^9.68A^2^2"
^XMB(3.9,42,2,113,0)="""BLD"",908,""KRN"",19,""NM"",1,0)"
^XMB(3.9,42,2,114,0)="HLO MAIN MENU^^2"
^XMB(3.9,42,2,115,0)="""BLD"",908,""KRN"",19,""NM"",2,0)"
^XMB(3.9,42,2,116,0)="HLO MESSAGE STATISTICS^^0"
^XMB(3.9,42,2,117,0)="""BLD"",908,""KRN"",19,""NM"",""B"",""HLO MAIN MENU"",1)"
^XMB(3.9,42,2,118,0)=""
^XMB(3.9,42,2,119,0)="""BLD"",908,""KRN"",19,""NM"",""B"",""HLO MESSAGE STATISTICS"",2)"
^XMB(3.9,42,2,120,0)=""
^XMB(3.9,42,2,121,0)="""BLD"",908,""KRN"",19.1,0)"
^XMB(3.9,42,2,122,0)="19.1"
^XMB(3.9,42,2,123,0)="""BLD"",908,""KRN"",101,0)"
^XMB(3.9,42,2,124,0)="101"
^XMB(3.9,42,2,125,0)="""BLD"",908,""KRN"",101,""NM"",0)"
^XMB(3.9,42,2,126,0)="^9.68A^4^4"
^XMB(3.9,42,2,127,0)="""BLD"",908,""KRN"",101,""NM"",1,0)"
^XMB(3.9,42,2,128,0)="HLO DOWN LINKS^^0"
^XMB(3.9,42,2,129,0)="""BLD"",908,""KRN"",101,""NM"",2,0)"
^XMB(3.9,42,2,130,0)="HLO DOWN LINKS MENU^^0"
^XMB(3.9,42,2,131,0)="""BLD"",908,""KRN"",101,""NM"",3,0)"
^XMB(3.9,42,2,132,0)="HLO SHUTDOWN LINK^^0"
^XMB(3.9,42,2,133,0)="""BLD"",908,""KRN"",101,""NM"",4,0)"
^XMB(3.9,42,2,134,0)="HLO RESTART LINK^^0"
^XMB(3.9,42,2,135,0)="""BLD"",908,""KRN"",101,""NM"",""B"",""HLO DOWN LINKS"",1)"
^XMB(3.9,42,2,136,0)=""
^XMB(3.9,42,2,137,0)="""BLD"",908,""KRN"",101,""NM"",""B"",""HLO DOWN LINKS MENU"",2)"
^XMB(3.9,42,2,138,0)=""
^XMB(3.9,42,2,139,0)="""BLD"",908,""KRN"",101,""NM"",""B"",""HLO RESTART LINK"",4)"
^XMB(3.9,42,2,140,0)=""
^XMB(3.9,42,2,141,0)="""BLD"",908,""KRN"",101,""NM"",""B"",""HLO SHUTDOWN LINK"",3)"
^XMB(3.9,42,2,142,0)=""
^XMB(3.9,42,2,143,0)="""BLD"",908,""KRN"",409.61,0)"
^XMB(3.9,42,2,144,0)="409.61"
^XMB(3.9,42,2,145,0)="""BLD"",908,""KRN"",409.61,""NM"",0)"
^XMB(3.9,42,2,146,0)="^9.68A^1^1"
^XMB(3.9,42,2,147,0)="""BLD"",908,""KRN"",409.61,""NM"",1,0)"
^XMB(3.9,42,2,148,0)="HLO DOWN LINKS^^0"
^XMB(3.9,42,2,149,0)="""BLD"",908,""KRN"",409.61,""NM"",""B"",""HLO DOWN LINKS"",1)"
^XMB(3.9,42,2,150,0)=""
^XMB(3.9,42,2,151,0)="""BLD"",908,""KRN"",771,0)"
^XMB(3.9,42,2,152,0)="771"
^XMB(3.9,42,2,153,0)="""BLD"",908,""KRN"",870,0)"
^XMB(3.9,42,2,154,0)="870"
^XMB(3.9,42,2,155,0)="""BLD"",908,""KRN"",8989.51,0)"
^XMB(3.9,42,2,156,0)="8989.51"
^XMB(3.9,42,2,157,0)="""BLD"",908,""KRN"",8989.52,0)"
^XMB(3.9,42,2,158,0)="8989.52"
^XMB(3.9,42,2,159,0)="""BLD"",908,""KRN"",8994,0)"
^XMB(3.9,42,2,160,0)="8994"
^XMB(3.9,42,2,161,0)="""BLD"",908,""KRN"",""B"",.4,.4)"
^XMB(3.9,42,2,162,0)=""
^XMB(3.9,42,2,163,0)="""BLD"",908,""KRN"",""B"",.401,.401)"
^XMB(3.9,42,2,164,0)=""
^XMB(3.9,42,2,165,0)="""BLD"",908,""KRN"",""B"",.402,.402)"
^XMB(3.9,42,2,166,0)=""
^XMB(3.9,42,2,167,0)="""BLD"",908,""KRN"",""B"",.403,.403)"
^XMB(3.9,42,2,168,0)=""
^XMB(3.9,42,2,169,0)="""BLD"",908,""KRN"",""B"",.5,.5)"
^XMB(3.9,42,2,170,0)=""
^XMB(3.9,42,2,171,0)="""BLD"",908,""KRN"",""B"",.84,.84)"
^XMB(3.9,42,2,172,0)=""
^XMB(3.9,42,2,173,0)="""BLD"",908,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,42,2,174,0)=""
^XMB(3.9,42,2,175,0)="""BLD"",908,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,42,2,176,0)=""
^XMB(3.9,42,2,177,0)="""BLD"",908,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,42,2,178,0)=""
^XMB(3.9,42,2,179,0)="""BLD"",908,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,42,2,180,0)=""
^XMB(3.9,42,2,181,0)="""BLD"",908,""KRN"",""B"",19,19)"
^XMB(3.9,42,2,182,0)=""
^XMB(3.9,42,2,183,0)="""BLD"",908,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,42,2,184,0)=""
^XMB(3.9,42,2,185,0)="""BLD"",908,""KRN"",""B"",101,101)"
^XMB(3.9,42,2,186,0)=""
^XMB(3.9,42,2,187,0)="""BLD"",908,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,42,2,188,0)=""
^XMB(3.9,42,2,189,0)="""BLD"",908,""KRN"",""B"",771,771)"
^XMB(3.9,42,2,190,0)=""
^XMB(3.9,42,2,191,0)="""BLD"",908,""KRN"",""B"",870,870)"
^XMB(3.9,42,2,192,0)=""
^XMB(3.9,42,2,193,0)="""BLD"",908,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,42,2,194,0)=""
^XMB(3.9,42,2,195,0)="""BLD"",908,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,42,2,196,0)=""
^XMB(3.9,42,2,197,0)="""BLD"",908,""KRN"",""B"",8994,8994)"
^XMB(3.9,42,2,198,0)=""
^XMB(3.9,42,2,199,0)="""BLD"",908,""QUES"",0)"
^XMB(3.9,42,2,200,0)="^9.62^^"
^XMB(3.9,42,2,201,0)="""BLD"",908,""REQB"",0)"
^XMB(3.9,42,2,202,0)="^9.611^1^1"
^XMB(3.9,42,2,203,0)="""BLD"",908,""REQB"",1,0)"
^XMB(3.9,42,2,204,0)="HL*1.6*126^2"
^XMB(3.9,42,2,205,0)="""BLD"",908,""REQB"",""B"",""HL*1.6*126"",1)"
^XMB(3.9,42,2,206,0)=""
^XMB(3.9,42,2,207,0)="""DATA"",779.3,13,0)"
^XMB(3.9,42,2,208,0)="TOTAL MESSAGE COUNTS^1^0^1^360^3051122.181458^0^QUIT1^HLOPROC1^TOTAL^HLOSTAT^1^0"
^XMB(3.9,42,2,209,0)="""FIA"",779.3)"
^XMB(3.9,42,2,210,0)="HLO PROCESS REGISTRY"
^XMB(3.9,42,2,211,0)="""FIA"",779.3,0)"
^XMB(3.9,42,2,212,0)="^HLD(779.3,"
^XMB(3.9,42,2,213,0)="""FIA"",779.3,0,0)"
^XMB(3.9,42,2,214,0)="779.3"
^XMB(3.9,42,2,215,0)="""FIA"",779.3,0,1)"
^XMB(3.9,42,2,216,0)="n^n^f^^n^^y^o^n"
^XMB(3.9,42,2,217,0)="""FIA"",779.3,0,10)"
^XMB(3.9,42,2,218,0)=""
^XMB(3.9,42,2,219,0)="""FIA"",779.3,0,11)"
^XMB(3.9,42,2,220,0)="I $P($G(^HLD(779.3,+Y,0)),""^"")=""TOTAL MESSAGE COUNTS"""
^XMB(3.9,42,2,221,0)="""FIA"",779.3,0,""RLRO"")"
^XMB(3.9,42,2,222,0)=""
^XMB(3.9,42,2,223,0)="""FIA"",779.3,0,""VR"")"
^XMB(3.9,42,2,224,0)="1.6^HL"
^XMB(3.9,42,2,225,0)="""FIA"",779.3,779.3)"
^XMB(3.9,42,2,226,0)="0"
^XMB(3.9,42,2,227,0)="""FIA"",870)"
^XMB(3.9,42,2,228,0)="HL LOGICAL LINK"
^XMB(3.9,42,2,229,0)="""FIA"",870,0)"
^XMB(3.9,42,2,230,0)="^HLCS(870,"
^XMB(3.9,42,2,231,0)="""FIA"",870,0,0)"
^XMB(3.9,42,2,232,0)="870"
^XMB(3.9,42,2,233,0)="""FIA"",870,0,1)"
^XMB(3.9,42,2,234,0)="y^n^p^^^^n^^n"
^XMB(3.9,42,2,235,0)="""FIA"",870,0,10)"
^XMB(3.9,42,2,236,0)=""
^XMB(3.9,42,2,237,0)="""FIA"",870,0,11)"
^XMB(3.9,42,2,238,0)=""
^XMB(3.9,42,2,239,0)="""FIA"",870,0,""RLRO"")"
^XMB(3.9,42,2,240,0)=""
^XMB(3.9,42,2,241,0)="""FIA"",870,0,""VR"")"
^XMB(3.9,42,2,242,0)="1.6^HL"
^XMB(3.9,42,2,243,0)="""FIA"",870,870)"
^XMB(3.9,42,2,244,0)="1"
^XMB(3.9,42,2,245,0)="""FIA"",870,870,16)"
^XMB(3.9,42,2,246,0)=""
^XMB(3.9,42,2,247,0)="""IX"",779.3,779.3,""C"",0)"
^XMB(3.9,42,2,248,0)="779.3^C^Used to find active entries in the process registry.^R^^F^IR^I^779.3^^^^^LS"
^XMB(3.9,42,2,249,0)="""IX"",779.3,779.3,""C"",1)"
^XMB(3.9,42,2,250,0)="S ^HLD(779.3,""C"",X,DA)="""""
^XMB(3.9,42,2,251,0)="""IX"",779.3,779.3,""C"",1.4)"
^XMB(3.9,42,2,252,0)="S X=$S('X(1):0,1:1)"
^XMB(3.9,42,2,253,0)="""IX"",779.3,779.3,""C"",2)"
^XMB(3.9,42,2,254,0)="K ^HLD(779.3,""C"",X,DA)"
^XMB(3.9,42,2,255,0)="""IX"",779.3,779.3,""C"",2.5)"
^XMB(3.9,42,2,256,0)="K ^HLD(779.3,""C"")"
^XMB(3.9,42,2,257,0)="""IX"",779.3,779.3,""C"",11.1,0)"
^XMB(3.9,42,2,258,0)="^.114IA^1^1"
^XMB(3.9,42,2,259,0)="""IX"",779.3,779.3,""C"",11.1,1,0)"
^XMB(3.9,42,2,260,0)="1^F^779.3^.02^^1^F"
^XMB(3.9,42,2,261,0)="""IX"",779.3,779.3,""D"",0)"
^XMB(3.9,42,2,262,0)="779.3^D^Uniqueness Index for Key 'A' of File #779.3^R^^F^IR^I^779.3^^^^^LS"
^XMB(3.9,42,2,263,0)="""IX"",779.3,779.3,""D"",1)"
^XMB(3.9,42,2,264,0)="S ^HLD(779.3,""D"",X,DA)="""""
^XMB(3.9,42,2,265,0)="""IX"",779.3,779.3,""D"",2)"
^XMB(3.9,42,2,266,0)="K ^HLD(779.3,""D"",X,DA)"
^XMB(3.9,42,2,267,0)="""IX"",779.3,779.3,""D"",2.5)"
^XMB(3.9,42,2,268,0)="K ^HLD(779.3,""D"")"
^XMB(3.9,42,2,269,0)="""IX"",779.3,779.3,""D"",11.1,0)"
^XMB(3.9,42,2,270,0)="^.114IA^1^1"
^XMB(3.9,42,2,271,0)="""IX"",779.3,779.3,""D"",11.1,1,0)"
^XMB(3.9,42,2,272,0)="1^F^779.3^.01^^1"
^XMB(3.9,42,2,273,0)="""KEY"",779.3,779.3,""A"",0)"
^XMB(3.9,42,2,274,0)="779.3^A^P^83"
^XMB(3.9,42,2,275,0)="""KEY"",779.3,779.3,""A"",2,0)"
^XMB(3.9,42,2,276,0)="^.312IA^1^1"
^XMB(3.9,42,2,277,0)="""KEY"",779.3,779.3,""A"",2,1,0)"
^XMB(3.9,42,2,278,0)=".01^779.3^1"
^XMB(3.9,42,2,279,0)="""KEYPTR"",779.3,779.3,""A"")"
^XMB(3.9,42,2,280,0)="779.3^D"
^XMB(3.9,42,2,281,0)="""KRN"",19,1047,-1)"
^XMB(3.9,42,2,282,0)="2^1"
^XMB(3.9,42,2,283,0)="""KRN"",19,1047,0)"
^XMB(3.9,42,2,284,0)="HLO MAIN MENU^HL7 (Optimized) MAIN MENU^^M^1000061^^^^^^y^9"
^XMB(3.9,42,2,285,0)="""KRN"",19,1047,10,0)"
^XMB(3.9,42,2,286,0)="^19.01IP^4^4"
^XMB(3.9,42,2,287,0)="""KRN"",19,1047,10,4,0)"
^XMB(3.9,42,2,288,0)="1151^STAT^4"
^XMB(3.9,42,2,289,0)="""KRN"",19,1047,10,4,""^"")"
^XMB(3.9,42,2,290,0)="HLO MESSAGE STATISTICS"
^XMB(3.9,42,2,291,0)="""KRN"",19,1047,""U"")"
^XMB(3.9,42,2,292,0)="HL7 (OPTIMIZED) MAIN MENU"
^XMB(3.9,42,2,293,0)="""KRN"",19,1151,-1)"
^XMB(3.9,42,2,294,0)="0^2"
^XMB(3.9,42,2,295,0)="""KRN"",19,1151,0)"
^XMB(3.9,42,2,296,0)="HLO MESSAGE STATISTICS^HLO MESSAGE STATISTICS^^A^^^^^^^y^HEALTH LEVEL SEVEN^^1"
^XMB(3.9,42,2,297,0)="""KRN"",19,1151,1,0)"
^XMB(3.9,42,2,298,0)="^^4^4^3051026^"
^XMB(3.9,42,2,299,0)="""KRN"",19,1151,1,1,0)"
^XMB(3.9,42,2,300,0)="This option is a report that displays by period the counts of messgages sent"
^XMB(3.9,42,2,301,0)="""KRN"",19,1151,1,2,0)"
^XMB(3.9,42,2,302,0)="and received via HLO.  The counts are sub-categorized by application and"
^XMB(3.9,42,2,303,0)="""KRN"",19,1151,1,3,0)"
^XMB(3.9,42,2,304,0)="message type."
^XMB(3.9,42,2,305,0)="""KRN"",19,1151,1,4,0)"
^XMB(3.9,42,2,306,0)=""
^XMB(3.9,42,2,307,0)="""KRN"",19,1151,10.1)"
^XMB(3.9,42,2,308,0)="HLO MESSAGE STATISTICS REPORT"
^XMB(3.9,42,2,309,0)="""KRN"",19,1151,20)"
^XMB(3.9,42,2,310,0)="D REPORT^HLOSTAT"
^XMB(3.9,42,2,311,0)="""KRN"",19,1151,""U"")"
^XMB(3.9,42,2,312,0)="HLO MESSAGE STATISTICS"
^XMB(3.9,42,2,313,0)="""KRN"",101,414,-1)"
^XMB(3.9,42,2,314,0)="0^1"
^XMB(3.9,42,2,315,0)="""KRN"",101,414,0)"
^XMB(3.9,42,2,316,0)="HLO DOWN LINKS^DOWN LINKS^^A^^^^^^^^HEALTH LEVEL SEVEN"
^XMB(3.9,42,2,317,0)="""KRN"",101,414,1,0)"
^XMB(3.9,42,2,318,0)="^101.06^1^1^3050208^^^^"
^XMB(3.9,42,2,319,0)="""KRN"",101,414,1,1,0)"
^XMB(3.9,42,2,320,0)="This action lists the links that have been down for more than 5 minutes."
^XMB(3.9,42,2,321,0)="""KRN"",101,414,2,0)"
^XMB(3.9,42,2,322,0)="^101.02A^1^1"
^XMB(3.9,42,2,323,0)="""KRN"",101,414,2,1,0)"
^XMB(3.9,42,2,324,0)="DL"
^XMB(3.9,42,2,325,0)="""KRN"",101,414,2,""B"",""DL"",1)"
^XMB(3.9,42,2,326,0)=""
^XMB(3.9,42,2,327,0)="""KRN"",101,414,20)"
^XMB(3.9,42,2,328,0)="D DOWNLINK^HLOUSRA"
^XMB(3.9,42,2,329,0)="""KRN"",101,414,99)"
^XMB(3.9,42,2,330,0)="60185,48281"
^XMB(3.9,42,2,331,0)="""KRN"",101,453,-1)"
^XMB(3.9,42,2,332,0)="0^2"
^XMB(3.9,42,2,333,0)="""KRN"",101,453,0)"
^XMB(3.9,42,2,334,0)="HLO DOWN LINKS MENU^HLO DOWN LINKS MENU^^M^^^^^^^^HEALTH LEVEL SEVEN"
^XMB(3.9,42,2,335,0)="""KRN"",101,453,1,0)"
^XMB(3.9,42,2,336,0)="^101.06^2^2^3050914^^^^"
^XMB(3.9,42,2,337,0)="""KRN"",101,453,1,1,0)"
^XMB(3.9,42,2,338,0)="This is the action menu for the List Template 'HLO DOWN LINKS'."
^XMB(3.9,42,2,339,0)="""KRN"",101,453,1,2,0)"
^XMB(3.9,42,2,340,0)=""
^XMB(3.9,42,2,341,0)="""KRN"",101,453,4)"
^XMB(3.9,42,2,342,0)="26^4"
^XMB(3.9,42,2,343,0)="""KRN"",101,453,10,0)"
^XMB(3.9,42,2,344,0)="^101.01PA^2^2"
^XMB(3.9,42,2,345,0)="""KRN"",101,453,10,1,0)"
^XMB(3.9,42,2,346,0)="454^SL^1^^^SHUTDOWN LINK"
^XMB(3.9,42,2,347,0)="""KRN"",101,453,10,1,""^"")"
^XMB(3.9,42,2,348,0)="HLO SHUTDOWN LINK"
^XMB(3.9,42,2,349,0)="""KRN"",101,453,10,2,0)"
^XMB(3.9,42,2,350,0)="455^RL^^^^RESTART LINK"
^XMB(3.9,42,2,351,0)="""KRN"",101,453,10,2,""^"")"
^XMB(3.9,42,2,352,0)="HLO RESTART LINK"
^XMB(3.9,42,2,353,0)="""KRN"",101,453,26)"
^XMB(3.9,42,2,354,0)="D SHOW^VALM"
^XMB(3.9,42,2,355,0)="""KRN"",101,453,28)"
^XMB(3.9,42,2,356,0)="Select Action:"
^XMB(3.9,42,2,357,0)="""KRN"",101,453,99)"
^XMB(3.9,42,2,358,0)="60185,48281"
^XMB(3.9,42,2,359,0)="""KRN"",101,454,-1)"
^XMB(3.9,42,2,360,0)="0^3"
^XMB(3.9,42,2,361,0)="""KRN"",101,454,0)"
^XMB(3.9,42,2,362,0)="HLO SHUTDOWN LINK^SHUTDOWN LINK^^A^^^^^^^^HL7 PERFORMANCE ENHANCMENTS"
^XMB(3.9,42,2,363,0)="""KRN"",101,454,1,0)"
^XMB(3.9,42,2,364,0)="^101.06^3^3^3050915^^"
^XMB(3.9,42,2,365,0)="""KRN"",101,454,1,1,0)"
^XMB(3.9,42,2,366,0)="This action is used to stop HLO messages from being transmitted to a particular"
^XMB(3.9,42,2,367,0)="""KRN"",101,454,1,2,0)"
^XMB(3.9,42,2,368,0)="the domain identified by an HL LOGICAL LINK file entry."
^XMB(3.9,42,2,369,0)="""KRN"",101,454,1,3,0)"
^XMB(3.9,42,2,370,0)=""
^XMB(3.9,42,2,371,0)="""KRN"",101,454,20)"
^XMB(3.9,42,2,372,0)="D STOPLINK^HLOUSRA"
^XMB(3.9,42,2,373,0)="""KRN"",101,454,99)"
^XMB(3.9,42,2,374,0)="60185,48281"
^XMB(3.9,42,2,375,0)="""KRN"",101,455,-1)"
^XMB(3.9,42,2,376,0)="0^4"
^XMB(3.9,42,2,377,0)="""KRN"",101,455,0)"
^XMB(3.9,42,2,378,0)="HLO RESTART LINK^HLO RESTART LINK^^A^^^^^^^^HL7 PERFORMANCE ENHANCMENTS"
^XMB(3.9,42,2,379,0)="""KRN"",101,455,1,0)"
^XMB(3.9,42,2,380,0)="^^3^3^3050915^"
^XMB(3.9,42,2,381,0)="""KRN"",101,455,1,1,0)"
^XMB(3.9,42,2,382,0)="This action protocol allows the user to select an entry from the HL Logical Link"
^XMB(3.9,42,2,383,0)="""KRN"",101,455,1,2,0)"
^XMB(3.9,42,2,384,0)="file and will restart HLO messages going to the IP identfied by the link"
^XMB(3.9,42,2,385,0)="""KRN"",101,455,1,3,0)"
^XMB(3.9,42,2,386,0)=""
^XMB(3.9,42,2,387,0)="""KRN"",101,455,20)"
^XMB(3.9,42,2,388,0)="D RESTART^HLOUSRA"
^XMB(3.9,42,2,389,0)="""KRN"",101,455,99)"
^XMB(3.9,42,2,390,0)="60185,48281"
^XMB(3.9,42,2,391,0)="""KRN"",409.61,244,-1)"
^XMB(3.9,42,2,392,0)="0^1"
^XMB(3.9,42,2,393,0)="""KRN"",409.61,244,0)"
^XMB(3.9,42,2,394,0)="HLO DOWN LINKS^1^1^80^3^20^1^1^DOWN LINKS^HLO DOWN LINKS MENU^Down HLO Links^1"
^XMB(3.9,42,2,395,0)="""KRN"",409.61,244,1)"
^XMB(3.9,42,2,396,0)="^VALM HIDDEN ACTIONS"
^XMB(3.9,42,2,397,0)="""KRN"",409.61,244,""ARRAY"")"
^XMB(3.9,42,2,398,0)=" ^TMP($J,""HLO DOWN LINKS"")"
^XMB(3.9,42,2,399,0)="""KRN"",409.61,244,""FNL"")"
^XMB(3.9,42,2,400,0)="D EXIT^HLOUSRA"
^XMB(3.9,42,2,401,0)="""KRN"",409.61,244,""HDR"")"
^XMB(3.9,42,2,402,0)="D HEADER^HLOUSRA"
^XMB(3.9,42,2,403,0)="""KRN"",409.61,244,""HLP"")"
^XMB(3.9,42,2,404,0)="D HELP^HLOUSRA"
^XMB(3.9,42,2,405,0)="""KRN"",409.61,244,""INIT"")"
^XMB(3.9,42,2,406,0)="D LISTDOWN^HLOUSRA"
^XMB(3.9,42,2,407,0)="""MBREQ"")"
^XMB(3.9,42,2,408,0)="0"
^XMB(3.9,42,2,409,0)="""ORD"",15,101)"
^XMB(3.9,42,2,410,0)="101;15;;;PRO^XPDTA;PROF1^XPDIA;PROE1^XPDIA;PROF2^XPDIA;;PRODEL^XPDIA"
^XMB(3.9,42,2,411,0)="""ORD"",15,101,0)"
^XMB(3.9,42,2,412,0)="PROTOCOL"
^XMB(3.9,42,2,413,0)="""ORD"",17,409.61)"
^XMB(3.9,42,2,414,0)="409.61;17;1;;;;;;;LMDEL^XPDIA1"
^XMB(3.9,42,2,415,0)="""ORD"",17,409.61,0)"
^XMB(3.9,42,2,416,0)="LIST TEMPLATE"
^XMB(3.9,42,2,417,0)="""ORD"",18,19)"
^XMB(3.9,42,2,418,0)="19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA"
^XMB(3.9,42,2,419,0)="""ORD"",18,19,0)"
^XMB(3.9,42,2,420,0)="OPTION"
^XMB(3.9,42,2,421,0)="""PKG"",9,-1)"
^XMB(3.9,42,2,422,0)="1^1"
^XMB(3.9,42,2,423,0)="""PKG"",9,0)"
^XMB(3.9,42,2,424,0)="HEALTH LEVEL SEVEN^HL^DHCP IMPLEMENTATION OF HEALTH LEVEL SEVEN^"
^XMB(3.9,42,2,425,0)="""PKG"",9,20,0)"
^XMB(3.9,42,2,426,0)="^9.402P^^"
^XMB(3.9,42,2,427,0)="""PKG"",9,22,0)"
^XMB(3.9,42,2,428,0)="^9.49I^1^1"
^XMB(3.9,42,2,429,0)="""PKG"",9,22,1,0)"
^XMB(3.9,42,2,430,0)="1.6^2980130^2980130^6"
^XMB(3.9,42,2,431,0)="""PKG"",9,22,1,""PAH"",1,0)"
^XMB(3.9,42,2,432,0)="130^3051205"
^XMB(3.9,42,2,433,0)="""PKG"",9,22,1,""PAH"",1,1,0)"
^XMB(3.9,42,2,434,0)="^^2^2^3051205"
^XMB(3.9,42,2,435,0)="""PKG"",9,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,42,2,436,0)="Please see the NPM on Forum for a complete description."
^XMB(3.9,42,2,437,0)="""PKG"",9,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,42,2,438,0)=""
^XMB(3.9,42,2,439,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,42,2,440,0)="Y"
^XMB(3.9,42,2,441,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,42,2,442,0)="^D REP^XPDH"
^XMB(3.9,42,2,443,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,42,2,444,0)="Shall I write over your |FLAG| File"
^XMB(3.9,42,2,445,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,42,2,446,0)="YES"
^XMB(3.9,42,2,447,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,42,2,448,0)="D XPF1^XPDIQ"
^XMB(3.9,42,2,449,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,42,2,450,0)="Y"
^XMB(3.9,42,2,451,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,42,2,452,0)="^D DTA^XPDH"
^XMB(3.9,42,2,453,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,42,2,454,0)="Want my data |FLAG| yours"
^XMB(3.9,42,2,455,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,42,2,456,0)="YES"
^XMB(3.9,42,2,457,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,42,2,458,0)="D XPF2^XPDIQ"
^XMB(3.9,42,2,459,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,42,2,460,0)="YO"
^XMB(3.9,42,2,461,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,42,2,462,0)="^D INHIBIT^XPDH"
^XMB(3.9,42,2,463,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,42,2,464,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,42,2,465,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,42,2,466,0)="YES"
^XMB(3.9,42,2,467,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,42,2,468,0)="D XPI1^XPDIQ"
^XMB(3.9,42,2,469,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,42,2,470,0)="PO^VA(200,:EM"
^XMB(3.9,42,2,471,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,42,2,472,0)="^D MG^XPDH"
^XMB(3.9,42,2,473,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,42,2,474,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,42,2,475,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,42,2,476,0)=""
^XMB(3.9,42,2,477,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,42,2,478,0)="D XPM1^XPDIQ"
^XMB(3.9,42,2,479,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,42,2,480,0)="Y"
^XMB(3.9,42,2,481,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,42,2,482,0)="^D MENU^XPDH"
^XMB(3.9,42,2,483,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,42,2,484,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,42,2,485,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,42,2,486,0)="YES"
^XMB(3.9,42,2,487,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,42,2,488,0)="D XPO1^XPDIQ"
^XMB(3.9,42,2,489,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,42,2,490,0)="Y"
^XMB(3.9,42,2,491,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,42,2,492,0)="^D OPT^XPDH"
^XMB(3.9,42,2,493,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,42,2,494,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,42,2,495,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,42,2,496,0)="YES"
^XMB(3.9,42,2,497,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,42,2,498,0)="D XPZ1^XPDIQ"
^XMB(3.9,42,2,499,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,42,2,500,0)="Y"
^XMB(3.9,42,2,501,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,42,2,502,0)="^D RTN^XPDH"
^XMB(3.9,42,2,503,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,42,2,504,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,42,2,505,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,42,2,506,0)="NO"
^XMB(3.9,42,2,507,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,42,2,508,0)="D XPZ2^XPDIQ"
^XMB(3.9,42,2,509,0)="""RTN"")"
^XMB(3.9,42,2,510,0)="9"
^XMB(3.9,42,2,511,0)="""RTN"",""HLOCLNT"")"
^XMB(3.9,42,2,512,0)="0^1^B55768085"
^XMB(3.9,42,2,513,0)="""RTN"",""HLOCLNT"",1,0)"
^XMB(3.9,42,2,514,0)="HLOCLNT ;ALB/CJM- Client for sending messages - 10/4/94 1pm"
^XMB(3.9,42,2,515,0)="""RTN"",""HLOCLNT"",2,0)"
^XMB(3.9,42,2,516,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126,130**;Oct 13, 1995;Build 10"
^XMB(3.9,42,2,517,0)="""RTN"",""HLOCLNT"",3,0)"
^XMB(3.9,42,2,518,0)=" ;"
^XMB(3.9,42,2,519,0)="""RTN"",""HLOCLNT"",4,0)"
^XMB(3.9,42,2,520,0)=" ;GET WORK function for the process running under the Process Manager"
^XMB(3.9,42,2,521,0)="""RTN"",""HLOCLNT"",5,0)"
^XMB(3.9,42,2,522,0)="GETWORK(QUE) ;"
^XMB(3.9,42,2,523,0)="""RTN"",""HLOCLNT"",6,0)"
^XMB(3.9,42,2,524,0)=" ;Input:"
^XMB(3.9,42,2,525,0)="""RTN"",""HLOCLNT"",7,0)"
^XMB(3.9,42,2,526,0)=" ;  QUE - (pass by reference) These subscripts are used:"
^XMB(3.9,42,2,527,0)="""RTN"",""HLOCLNT"",8,0)"
^XMB(3.9,42,2,528,0)=" ;    (""LINK"")  - <link name>_"":""_<port> last obtained"
^XMB(3.9,42,2,529,0)="""RTN"",""HLOCLNT"",9,0)"
^XMB(3.9,42,2,530,0)=" ;    (""QUEUE"") - name of the queue last obtained"
^XMB(3.9,42,2,531,0)="""RTN"",""HLOCLNT"",10,0)"
^XMB(3.9,42,2,532,0)=" ;Output:"
^XMB(3.9,42,2,533,0)="""RTN"",""HLOCLNT"",11,0)"
^XMB(3.9,42,2,534,0)=" ;  Function returns 1 if success, 0 if no more work"
^XMB(3.9,42,2,535,0)="""RTN"",""HLOCLNT"",12,0)"
^XMB(3.9,42,2,536,0)=" ;  QUE -  updated to identify next queue of messages to process."
^XMB(3.9,42,2,537,0)="""RTN"",""HLOCLNT"",13,0)"
^XMB(3.9,42,2,538,0)=" ;    (""LINK"") - <link name>_"":""_<port>"
^XMB(3.9,42,2,539,0)="""RTN"",""HLOCLNT"",14,0)"
^XMB(3.9,42,2,540,0)=" ;    (""QUEUE"") - the named queue on the link"
^XMB(3.9,42,2,541,0)="""RTN"",""HLOCLNT"",15,0)"
^XMB(3.9,42,2,542,0)=" ;    (""DOWN"") - =1 means that the last OPEN attempt failed"
^XMB(3.9,42,2,543,0)="""RTN"",""HLOCLNT"",16,0)"
^XMB(3.9,42,2,544,0)=" ;"
^XMB(3.9,42,2,545,0)="""RTN"",""HLOCLNT"",17,0)"
^XMB(3.9,42,2,546,0)=" N LINK,QUEUE"
^XMB(3.9,42,2,547,0)="""RTN"",""HLOCLNT"",18,0)"
^XMB(3.9,42,2,548,0)=" S LINK=$G(QUE(""LINK"")),QUEUE=$G(QUE(""QUEUE""))"
^XMB(3.9,42,2,549,0)="""RTN"",""HLOCLNT"",19,0)"
^XMB(3.9,42,2,550,0)=" I (LINK]""""),(QUEUE]"""") D"
^XMB(3.9,42,2,551,0)="""RTN"",""HLOCLNT"",20,0)"
^XMB(3.9,42,2,552,0)=" .L -^HLB(""QUEUE"",""OUT"",LINK,QUEUE)"
^XMB(3.9,42,2,553,0)="""RTN"",""HLOCLNT"",21,0)"
^XMB(3.9,42,2,554,0)=" .I '$$CNNCTD(LINK),$$FAILING(.LINK) S QUEUE="""" Q"
^XMB(3.9,42,2,555,0)="""RTN"",""HLOCLNT"",22,0)"
^XMB(3.9,42,2,556,0)=" .F  S QUEUE=$O(^HLB(""QUEUE"",""OUT"",LINK,QUEUE)) Q:(QUEUE="""")  I '$$STOPPED^HLOQUE(""OUT"",QUEUE) L +^HLB(""QUEUE"",""OUT"",LINK,QUEUE):0  Q:$T"
^XMB(3.9,42,2,557,0)="""RTN"",""HLOCLNT"",23,0)"
^XMB(3.9,42,2,558,0)=" I (LINK]""""),(QUEUE="""") D"
^XMB(3.9,42,2,559,0)="""RTN"",""HLOCLNT"",24,0)"
^XMB(3.9,42,2,560,0)=" .F  S LINK=$O(^HLB(""QUEUE"",""OUT"",LINK)) Q:LINK=""""  D  Q:$L(QUEUE)"
^XMB(3.9,42,2,561,0)="""RTN"",""HLOCLNT"",25,0)"
^XMB(3.9,42,2,562,0)=" ..I '$$CNNCTD(LINK),$$FAILING(.LINK) Q"
^XMB(3.9,42,2,563,0)="""RTN"",""HLOCLNT"",26,0)"
^XMB(3.9,42,2,564,0)=" ..S QUEUE="""" F  S QUEUE=$O(^HLB(""QUEUE"",""OUT"",LINK,QUEUE)) Q:(QUEUE="""")  I '$$STOPPED^HLOQUE(""OUT"",QUEUE) L +^HLB(""QUEUE"",""OUT"",LINK,QUEUE):0 Q:$T"
^XMB(3.9,42,2,565,0)="""RTN"",""HLOCLNT"",27,0)"
^XMB(3.9,42,2,566,0)=" I LINK="""" D"
^XMB(3.9,42,2,567,0)="""RTN"",""HLOCLNT"",28,0)"
^XMB(3.9,42,2,568,0)=" .F  S LINK=$O(^HLB(""QUEUE"",""OUT"",LINK)) Q:LINK=""""  D  Q:$L(QUEUE)"
^XMB(3.9,42,2,569,0)="""RTN"",""HLOCLNT"",29,0)"
^XMB(3.9,42,2,570,0)=" ..I '$$CNNCTD(LINK),$$FAILING(.LINK) Q"
^XMB(3.9,42,2,571,0)="""RTN"",""HLOCLNT"",30,0)"
^XMB(3.9,42,2,572,0)=" ..S QUEUE="""" F  S QUEUE=$O(^HLB(""QUEUE"",""OUT"",LINK,QUEUE)) Q:(QUEUE="""")  I '$$STOPPED^HLOQUE(""OUT"",QUEUE) L +^HLB(""QUEUE"",""OUT"",LINK,QUEUE):0 Q:$T"
^XMB(3.9,42,2,573,0)="""RTN"",""HLOCLNT"",31,0)"
^XMB(3.9,42,2,574,0)=" S QUE(""LINK"")=LINK,QUE(""QUEUE"")=QUEUE,QUE(""DOWN"")=$G(LINK(""DOWN""))"
^XMB(3.9,42,2,575,0)="""RTN"",""HLOCLNT"",32,0)"
^XMB(3.9,42,2,576,0)=" Q:$L(QUEUE) 1"
^XMB(3.9,42,2,577,0)="""RTN"",""HLOCLNT"",33,0)"
^XMB(3.9,42,2,578,0)=" D:$G(HLCSTATE(""CONNECTED"")) CLOSE^HLOT(.HLCSTATE)"
^XMB(3.9,42,2,579,0)="""RTN"",""HLOCLNT"",34,0)"
^XMB(3.9,42,2,580,0)=" Q 0"
^XMB(3.9,42,2,581,0)="""RTN"",""HLOCLNT"",35,0)"
^XMB(3.9,42,2,582,0)=" ;"
^XMB(3.9,42,2,583,0)="""RTN"",""HLOCLNT"",36,0)"
^XMB(3.9,42,2,584,0)="FAILING(LINK) ;"
^XMB(3.9,42,2,585,0)="""RTN"",""HLOCLNT"",37,0)"
^XMB(3.9,42,2,586,0)=" ;Returns 1 if the link has failed in the last 30 seconds, 0 otherwise"
^XMB(3.9,42,2,587,0)="""RTN"",""HLOCLNT"",38,0)"
^XMB(3.9,42,2,588,0)=" ;Also returns LINK(""DOWN"")=1 if the link was failing > 30 seconds ago, not yet known if its up"
^XMB(3.9,42,2,589,0)="""RTN"",""HLOCLNT"",39,0)"
^XMB(3.9,42,2,590,0)=" ;"
^XMB(3.9,42,2,591,0)="""RTN"",""HLOCLNT"",40,0)"
^XMB(3.9,42,2,592,0)=" N LASTTIME,SET"
^XMB(3.9,42,2,593,0)="""RTN"",""HLOCLNT"",41,0)"
^XMB(3.9,42,2,594,0)=" S LINK(""DOWN"")=0"
^XMB(3.9,42,2,595,0)="""RTN"",""HLOCLNT"",42,0)"
^XMB(3.9,42,2,596,0)=" S LASTTIME=$G(^HLB(""QUEUE"",""OUT"",LINK))"
^XMB(3.9,42,2,597,0)="""RTN"",""HLOCLNT"",43,0)"
^XMB(3.9,42,2,598,0)=" S SET=$S(LASTTIME]"""":1,1:0)"
^XMB(3.9,42,2,599,0)="""RTN"",""HLOCLNT"",44,0)"
^XMB(3.9,42,2,600,0)=" I SET D"
^XMB(3.9,42,2,601,0)="""RTN"",""HLOCLNT"",45,0)"
^XMB(3.9,42,2,602,0)=" .I $$HDIFF^XLFDT($H,LASTTIME,2)>30 S ^HLB(""QUEUE"",""OUT"",LINK)="""",SET=0,LINK(""DOWN"")=1"
^XMB(3.9,42,2,603,0)="""RTN"",""HLOCLNT"",46,0)"
^XMB(3.9,42,2,604,0)=" I $D(^HLTMP(""FAILING LINKS"",LINK)) S LINK(""DOWN"")=1"
^XMB(3.9,42,2,605,0)="""RTN"",""HLOCLNT"",47,0)"
^XMB(3.9,42,2,606,0)=" Q SET"
^XMB(3.9,42,2,607,0)="""RTN"",""HLOCLNT"",48,0)"
^XMB(3.9,42,2,608,0)=" ;"
^XMB(3.9,42,2,609,0)="""RTN"",""HLOCLNT"",49,0)"
^XMB(3.9,42,2,610,0)="LINKDOWN(HLCSTATE) ;"
^XMB(3.9,42,2,611,0)="""RTN"",""HLOCLNT"",50,0)"
^XMB(3.9,42,2,612,0)=" D:$G(HLCSTATE(""CONNECTED"")) CLOSE^HLOT(.HLCSTATE)"
^XMB(3.9,42,2,613,0)="""RTN"",""HLOCLNT"",51,0)"
^XMB(3.9,42,2,614,0)=" I $D(HLCSTATE(""LINK"",""NAME"")),$D(HLCSTATE(""LINK"",""PORT"")) D"
^XMB(3.9,42,2,615,0)="""RTN"",""HLOCLNT"",52,0)"
^XMB(3.9,42,2,616,0)=" .S TO=HLCSTATE(""LINK"",""NAME"")_"":""_HLCSTATE(""LINK"",""PORT"")"
^XMB(3.9,42,2,617,0)="""RTN"",""HLOCLNT"",53,0)"
^XMB(3.9,42,2,618,0)=" .S ^HLB(""QUEUE"",""OUT"",TO)=$H"
^XMB(3.9,42,2,619,0)="""RTN"",""HLOCLNT"",54,0)"
^XMB(3.9,42,2,620,0)=" .S:'$D(^HLTMP(""FAILING LINKS"",TO)) ^HLTMP(""FAILING LINKS"",TO)=$H"
^XMB(3.9,42,2,621,0)="""RTN"",""HLOCLNT"",55,0)"
^XMB(3.9,42,2,622,0)=" Q"
^XMB(3.9,42,2,623,0)="""RTN"",""HLOCLNT"",56,0)"
^XMB(3.9,42,2,624,0)=" ;"
^XMB(3.9,42,2,625,0)="""RTN"",""HLOCLNT"",57,0)"
^XMB(3.9,42,2,626,0)="ERROR ;error trap"
^XMB(3.9,42,2,627,0)="""RTN"",""HLOCLNT"",58,0)"
^XMB(3.9,42,2,628,0)=" S $ETRAP=""D UNWIND^%ZTER"""
^XMB(3.9,42,2,629,0)="""RTN"",""HLOCLNT"",59,0)"
^XMB(3.9,42,2,630,0)=" D END"
^XMB(3.9,42,2,631,0)="""RTN"",""HLOCLNT"",60,0)"
^XMB(3.9,42,2,632,0)=" D LINKDOWN(.HLCSTATE)"
^XMB(3.9,42,2,633,0)="""RTN"",""HLOCLNT"",61,0)"
^XMB(3.9,42,2,634,0)=" ;"
^XMB(3.9,42,2,635,0)="""RTN"",""HLOCLNT"",62,0)"
^XMB(3.9,42,2,636,0)=" ;while debugging quit on all errors - this will return the process to the Process Manager error trap"
^XMB(3.9,42,2,637,0)="""RTN"",""HLOCLNT"",63,0)"
^XMB(3.9,42,2,638,0)=" I $G(^HLTMP(""LOG ALL ERRORS"")) QUIT"
^XMB(3.9,42,2,639,0)="""RTN"",""HLOCLNT"",64,0)"
^XMB(3.9,42,2,640,0)=" ;"
^XMB(3.9,42,2,641,0)="""RTN"",""HLOCLNT"",65,0)"
^XMB(3.9,42,2,642,0)=" ;don't log some common errors"
^XMB(3.9,42,2,643,0)="""RTN"",""HLOCLNT"",66,0)"
^XMB(3.9,42,2,644,0)=" I ($ECODE[""READ"")!($ECODE[""NOTOPEN"")!($ECODE[""DEVNOTOPN"")!($ECODE[""WRITE"")!($ECODE[""OPENERR"") D"
^XMB(3.9,42,2,645,0)="""RTN"",""HLOCLNT"",67,0)"
^XMB(3.9,42,2,646,0)=" .;"
^XMB(3.9,42,2,647,0)="""RTN"",""HLOCLNT"",68,0)"
^XMB(3.9,42,2,648,0)=" E  D"
^XMB(3.9,42,2,649,0)="""RTN"",""HLOCLNT"",69,0)"
^XMB(3.9,42,2,650,0)=" .D ^%ZTER"
^XMB(3.9,42,2,651,0)="""RTN"",""HLOCLNT"",70,0)"
^XMB(3.9,42,2,652,0)=" ;"
^XMB(3.9,42,2,653,0)="""RTN"",""HLOCLNT"",71,0)"
^XMB(3.9,42,2,654,0)=" ;a lot of errors of the same type may indicate an endless loop, so keep a count"
^XMB(3.9,42,2,655,0)="""RTN"",""HLOCLNT"",72,0)"
^XMB(3.9,42,2,656,0)=" S ^TMP(""HL7 ERRORS"",$J,$ECODE)=$G(^TMP(""HL7 ERRORS"",$J,$ECODE))+1"
^XMB(3.9,42,2,657,0)="""RTN"",""HLOCLNT"",73,0)"
^XMB(3.9,42,2,658,0)=" ;"
^XMB(3.9,42,2,659,0)="""RTN"",""HLOCLNT"",74,0)"
^XMB(3.9,42,2,660,0)=" QUIT:($G(^TMP(""HL7 ERRORS"",$J,$ECODE))>100)  ;return to the Process Manager error trap"
^XMB(3.9,42,2,661,0)="""RTN"",""HLOCLNT"",75,0)"
^XMB(3.9,42,2,662,0)=" D UNWIND^%ZTER"
^XMB(3.9,42,2,663,0)="""RTN"",""HLOCLNT"",76,0)"
^XMB(3.9,42,2,664,0)=" Q"
^XMB(3.9,42,2,665,0)="""RTN"",""HLOCLNT"",77,0)"
^XMB(3.9,42,2,666,0)=" ;"
^XMB(3.9,42,2,667,0)="""RTN"",""HLOCLNT"",78,0)"
^XMB(3.9,42,2,668,0)="DOWORK(QUEUE) ;sends the messages on the queue"
^XMB(3.9,42,2,669,0)="""RTN"",""HLOCLNT"",79,0)"
^XMB(3.9,42,2,670,0)=" N $ETRAP,$ESTACK S $ETRAP=""G ERROR^HLOCLNT"""
^XMB(3.9,42,2,671,0)="""RTN"",""HLOCLNT"",80,0)"
^XMB(3.9,42,2,672,0)=" N MSGIEN,DEQUE,SUCCESS,MSGCOUNT"
^XMB(3.9,42,2,673,0)="""RTN"",""HLOCLNT"",81,0)"
^XMB(3.9,42,2,674,0)=" S DEQUE=0"
^XMB(3.9,42,2,675,0)="""RTN"",""HLOCLNT"",82,0)"
^XMB(3.9,42,2,676,0)=" S SUCCESS=1"
^XMB(3.9,42,2,677,0)="""RTN"",""HLOCLNT"",83,0)"
^XMB(3.9,42,2,678,0)=" I '$$CNNCTD(QUEUE(""LINK"")),'$$CONNECT^HLOCLNT1($P(QUEUE(""LINK""),"":""),$P(QUEUE(""LINK""),"":"",2),.HLCSTATE) Q"
^XMB(3.9,42,2,679,0)="""RTN"",""HLOCLNT"",84,0)"
^XMB(3.9,42,2,680,0)=" ;"
^XMB(3.9,42,2,681,0)="""RTN"",""HLOCLNT"",85,0)"
^XMB(3.9,42,2,682,0)=" S (MSGCOUNT,MSGIEN)=0"
^XMB(3.9,42,2,683,0)="""RTN"",""HLOCLNT"",86,0)"
^XMB(3.9,42,2,684,0)=" F  S MSGIEN=$O(^HLB(""QUEUE"",""OUT"",QUEUE(""LINK""),QUEUE(""QUEUE""),MSGIEN)) Q:'MSGIEN  D  Q:'SUCCESS  Q:MSGCOUNT>1000"
^XMB(3.9,42,2,685,0)="""RTN"",""HLOCLNT"",87,0)"
^XMB(3.9,42,2,686,0)=" .N UPDATE"
^XMB(3.9,42,2,687,0)="""RTN"",""HLOCLNT"",88,0)"
^XMB(3.9,42,2,688,0)=" .I $$INC^HLOSITE($NA(^HLB(MSGIEN,""TRIES""))) S SUCCESS=0"
^XMB(3.9,42,2,689,0)="""RTN"",""HLOCLNT"",89,0)"
^XMB(3.9,42,2,690,0)=" .S:$$TRANSMIT(.HLCSTATE,MSGIEN,.UPDATE) SUCCESS=1"
^XMB(3.9,42,2,691,0)="""RTN"",""HLOCLNT"",90,0)"
^XMB(3.9,42,2,692,0)=" .Q:'SUCCESS"
^XMB(3.9,42,2,693,0)="""RTN"",""HLOCLNT"",91,0)"
^XMB(3.9,42,2,694,0)=" .D DEQUE(.UPDATE)"
^XMB(3.9,42,2,695,0)="""RTN"",""HLOCLNT"",92,0)"
^XMB(3.9,42,2,696,0)=" .S MSGCOUNT=MSGCOUNT+1"
^XMB(3.9,42,2,697,0)="""RTN"",""HLOCLNT"",93,0)"
^XMB(3.9,42,2,698,0)=" .D:HLCSTATE(""COUNTS"")>4 SAVECNTS^HLOSTAT(.HLCSTATE)"
^XMB(3.9,42,2,699,0)="""RTN"",""HLOCLNT"",94,0)"
^XMB(3.9,42,2,700,0)=" .;"
^XMB(3.9,42,2,701,0)="""RTN"",""HLOCLNT"",95,0)"
^XMB(3.9,42,2,702,0)=" .;if the queue was on the down list, and not since shutdown, mark it as up, since a message has been successfully transmitted across it"
^XMB(3.9,42,2,703,0)="""RTN"",""HLOCLNT"",96,0)"
^XMB(3.9,42,2,704,0)=" .I $G(QUEUE(""DOWN""))!$$FAILING(QUEUE(""LINK"")),'$$IFSHUT^HLOTLNK(QUEUE(""LINK"")) S QUEUE(""DOWN"")=0,^HLB(""QUEUE"",""OUT"",QUEUE(""LINK""))="""" K ^HLTMP(""FAILING LINKS"",QUEUE(""LINK""))"
^XMB(3.9,42,2,705,0)="""RTN"",""HLOCLNT"",97,0)"
^XMB(3.9,42,2,706,0)=" ;"
^XMB(3.9,42,2,707,0)="""RTN"",""HLOCLNT"",98,0)"
^XMB(3.9,42,2,708,0)="END D DEQUE()"
^XMB(3.9,42,2,709,0)="""RTN"",""HLOCLNT"",99,0)"
^XMB(3.9,42,2,710,0)=" D SAVECNTS^HLOSTAT(.HLCSTATE)"
^XMB(3.9,42,2,711,0)="""RTN"",""HLOCLNT"",100,0)"
^XMB(3.9,42,2,712,0)=" Q"
^XMB(3.9,42,2,713,0)="""RTN"",""HLOCLNT"",101,0)"
^XMB(3.9,42,2,714,0)="CNNCTD(LINK) ;"
^XMB(3.9,42,2,715,0)="""RTN"",""HLOCLNT"",102,0)"
^XMB(3.9,42,2,716,0)=" ;Connected to LINK?  HLCSTATE must be defined, LINK=<link name>:<port>"
^XMB(3.9,42,2,717,0)="""RTN"",""HLOCLNT"",103,0)"
^XMB(3.9,42,2,718,0)=" ;"
^XMB(3.9,42,2,719,0)="""RTN"",""HLOCLNT"",104,0)"
^XMB(3.9,42,2,720,0)=" I ($G(HLCSTATE(""LINK"",""NAME""))=$P(LINK,"":"")),($G(HLCSTATE(""LINK"",""PORT""))=$P(LINK,"":"",2)),$G(HLCSTATE(""CONNECTED"")) Q 1"
^XMB(3.9,42,2,721,0)="""RTN"",""HLOCLNT"",105,0)"
^XMB(3.9,42,2,722,0)=" Q 0"
^XMB(3.9,42,2,723,0)="""RTN"",""HLOCLNT"",106,0)"
^XMB(3.9,42,2,724,0)=" ;"
^XMB(3.9,42,2,725,0)="""RTN"",""HLOCLNT"",107,0)"
^XMB(3.9,42,2,726,0)="DEQUE(UPDATE) ;"
^XMB(3.9,42,2,727,0)="""RTN"",""HLOCLNT"",108,0)"
^XMB(3.9,42,2,728,0)=" I $D(UPDATE) S DEQUE=DEQUE+1,DEQUE(+UPDATE)=$P(UPDATE,""^"",2,99) S:$G(UPDATE(""MSA""))]"""" DEQUE(+UPDATE,""MSA"")=UPDATE(""MSA"") S:$G(UPDATE(""ACTION""))]"""" DEQUE(+UPDATE,""ACTION"")=UPDATE(""ACTION"")"
^XMB(3.9,42,2,729,0)="""RTN"",""HLOCLNT"",109,0)"
^XMB(3.9,42,2,730,0)=" I '$D(UPDATE)!(DEQUE>15) D"
^XMB(3.9,42,2,731,0)="""RTN"",""HLOCLNT"",110,0)"
^XMB(3.9,42,2,732,0)=" .N MSGIEN S MSGIEN=0"
^XMB(3.9,42,2,733,0)="""RTN"",""HLOCLNT"",111,0)"
^XMB(3.9,42,2,734,0)=" .F  S MSGIEN=$O(DEQUE(MSGIEN)) Q:'MSGIEN  D"
^XMB(3.9,42,2,735,0)="""RTN"",""HLOCLNT"",112,0)"
^XMB(3.9,42,2,736,0)=" ..N NODE,TIME"
^XMB(3.9,42,2,737,0)="""RTN"",""HLOCLNT"",113,0)"
^XMB(3.9,42,2,738,0)=" ..D DEQUE^HLOQUE(QUEUE(""LINK""),QUEUE(""QUEUE""),""OUT"",MSGIEN)"
^XMB(3.9,42,2,739,0)="""RTN"",""HLOCLNT"",114,0)"
^XMB(3.9,42,2,740,0)=" ..S TIME=$P(DEQUE(MSGIEN),""^"")"
^XMB(3.9,42,2,741,0)="""RTN"",""HLOCLNT"",115,0)"
^XMB(3.9,42,2,742,0)=" ..S NODE=QUEUE(""LINK"")_""^""_QUEUE(""QUEUE"")_""^""_$P(DEQUE(MSGIEN),""^"",2,99)"
^XMB(3.9,42,2,743,0)="""RTN"",""HLOCLNT"",116,0)"
^XMB(3.9,42,2,744,0)=" ..S ^HLTMP(""CLIENT UPDATES"",$J,TIME,MSGIEN)=NODE"
^XMB(3.9,42,2,745,0)="""RTN"",""HLOCLNT"",117,0)"
^XMB(3.9,42,2,746,0)=" ..S:$G(DEQUE(MSGIEN,""MSA""))]"""" ^HLTMP(""CLIENT UPDATES"",$J,TIME,MSGIEN,""MSA"")=DEQUE(MSGIEN,""MSA"")"
^XMB(3.9,42,2,747,0)="""RTN"",""HLOCLNT"",118,0)"
^XMB(3.9,42,2,748,0)=" ..S:$G(DEQUE(MSGIEN,""ACTION""))]"""" ^HLTMP(""CLIENT UPDATES"",$J,TIME,MSGIEN,""ACTION"")=DEQUE(MSGIEN,""ACTION"")"
^XMB(3.9,42,2,749,0)="""RTN"",""HLOCLNT"",119,0)"
^XMB(3.9,42,2,750,0)=" .K DEQUE S DEQUE=0"
^XMB(3.9,42,2,751,0)="""RTN"",""HLOCLNT"",120,0)"
^XMB(3.9,42,2,752,0)=" Q"
^XMB(3.9,42,2,753,0)="""RTN"",""HLOCLNT"",121,0)"
^XMB(3.9,42,2,754,0)=" ;"
^XMB(3.9,42,2,755,0)="""RTN"",""HLOCLNT"",122,0)"
^XMB(3.9,42,2,756,0)="TRANSMIT(HLCSTATE,MSGIEN,UPDATE) ;"
^XMB(3.9,42,2,757,0)="""RTN"",""HLOCLNT"",123,0)"
^XMB(3.9,42,2,758,0)=" ;Transmits a single message and if a commit ack was requested reads it.  Updates file 778 with the result.  Queues for the infiler the application accept action if one was requested."
^XMB(3.9,42,2,759,0)="""RTN"",""HLOCLNT"",124,0)"
^XMB(3.9,42,2,760,0)=" ;Input:"
^XMB(3.9,42,2,761,0)="""RTN"",""HLOCLNT"",125,0)"
^XMB(3.9,42,2,762,0)=" ;   HLCSTATE (pass by reference)"
^XMB(3.9,42,2,763,0)="""RTN"",""HLOCLNT"",126,0)"
^XMB(3.9,42,2,764,0)=" ;   MSGIEN - ien, file 778, of message to be transmitted"
^XMB(3.9,42,2,765,0)="""RTN"",""HLOCLNT"",127,0)"
^XMB(3.9,42,2,766,0)=" ;Output:"
^XMB(3.9,42,2,767,0)="""RTN"",""HLOCLNT"",128,0)"
^XMB(3.9,42,2,768,0)=" ;  Function returns 1 on success, 0 on failure"
^XMB(3.9,42,2,769,0)="""RTN"",""HLOCLNT"",129,0)"
^XMB(3.9,42,2,770,0)=" ;  UPDATE - (pass by reference) to contain updates needed for message"
^XMB(3.9,42,2,771,0)="""RTN"",""HLOCLNT"",130,0)"
^XMB(3.9,42,2,772,0)=" ;"
^XMB(3.9,42,2,773,0)="""RTN"",""HLOCLNT"",131,0)"
^XMB(3.9,42,2,774,0)=" N HLMSTATE,MSA,HDR,SUCCESS"
^XMB(3.9,42,2,775,0)="""RTN"",""HLOCLNT"",132,0)"
^XMB(3.9,42,2,776,0)=" ;get the message that is to be sent"
^XMB(3.9,42,2,777,0)="""RTN"",""HLOCLNT"",133,0)"
^XMB(3.9,42,2,778,0)=" S UPDATE=MSGIEN_""^""_$$NOW^XLFDT"
^XMB(3.9,42,2,779,0)="""RTN"",""HLOCLNT"",134,0)"
^XMB(3.9,42,2,780,0)=" ;"
^XMB(3.9,42,2,781,0)="""RTN"",""HLOCLNT"",135,0)"
^XMB(3.9,42,2,782,0)=" S SUCCESS=0"
^XMB(3.9,42,2,783,0)="""RTN"",""HLOCLNT"",136,0)"
^XMB(3.9,42,2,784,0)=" S HLCSTATE(""ATTEMPT"")=0"
^XMB(3.9,42,2,785,0)="""RTN"",""HLOCLNT"",137,0)"
^XMB(3.9,42,2,786,0)="RETRY ;"
^XMB(3.9,42,2,787,0)="""RTN"",""HLOCLNT"",138,0)"
^XMB(3.9,42,2,788,0)=" S HLCSTATE(""ATTEMPT"")=HLCSTATE(""ATTEMPT"")+1"
^XMB(3.9,42,2,789,0)="""RTN"",""HLOCLNT"",139,0)"
^XMB(3.9,42,2,790,0)=" I ('HLCSTATE(""CONNECTED""))!(HLCSTATE(""ATTEMPT"")>1) G GIVEUP"
^XMB(3.9,42,2,791,0)="""RTN"",""HLOCLNT"",140,0)"
^XMB(3.9,42,2,792,0)=" ;"
^XMB(3.9,42,2,793,0)="""RTN"",""HLOCLNT"",141,0)"
^XMB(3.9,42,2,794,0)=" Q:'$$GETMSG^HLOCLNT2(MSGIEN,.HLMSTATE) 1  ;returns 1 so the message will be removed from the queue"
^XMB(3.9,42,2,795,0)="""RTN"",""HLOCLNT"",142,0)"
^XMB(3.9,42,2,796,0)=" I HLMSTATE(""DT/TM""),HLMSTATE(""STATUS"",""ACCEPTED"")!(HLMSTATE(""HDR"",""ACCEPT ACK TYPE"")=""NE"") Q 1"
^XMB(3.9,42,2,797,0)="""RTN"",""HLOCLNT"",143,0)"
^XMB(3.9,42,2,798,0)=" ;"
^XMB(3.9,42,2,799,0)="""RTN"",""HLOCLNT"",144,0)"
^XMB(3.9,42,2,800,0)=" ;try to send the message"
^XMB(3.9,42,2,801,0)="""RTN"",""HLOCLNT"",145,0)"
^XMB(3.9,42,2,802,0)=" Q:'$$WRITEMSG^HLOCLNT1(.HLCSTATE,.HLMSTATE) 0"
^XMB(3.9,42,2,803,0)="""RTN"",""HLOCLNT"",146,0)"
^XMB(3.9,42,2,804,0)=" ;does the message need an accept ack?"
^XMB(3.9,42,2,805,0)="""RTN"",""HLOCLNT"",147,0)"
^XMB(3.9,42,2,806,0)=" I HLMSTATE(""HDR"",""ACCEPT ACK TYPE"")=""AL"" D  G:'SUCCESS RETRY"
^XMB(3.9,42,2,807,0)="""RTN"",""HLOCLNT"",148,0)"
^XMB(3.9,42,2,808,0)=" .N FS"
^XMB(3.9,42,2,809,0)="""RTN"",""HLOCLNT"",149,0)"
^XMB(3.9,42,2,810,0)="READACK .;GOTO within a inside dotted DO is on purpose - if the read of ack fails, it will try again, discarding whatever was received.  The remote server must follow the protocol. "
^XMB(3.9,42,2,811,0)="""RTN"",""HLOCLNT"",150,0)"
^XMB(3.9,42,2,812,0)=" .Q:'$$READACK^HLOCLNT1(.HLCSTATE,.HDR,.MSA)"
^XMB(3.9,42,2,813,0)="""RTN"",""HLOCLNT"",151,0)"
^XMB(3.9,42,2,814,0)=" .;does the MSA refer to the correct control id?"
^XMB(3.9,42,2,815,0)="""RTN"",""HLOCLNT"",152,0)"
^XMB(3.9,42,2,816,0)=" .S FS=$E(HDR(1),4)"
^XMB(3.9,42,2,817,0)="""RTN"",""HLOCLNT"",153,0)"
^XMB(3.9,42,2,818,0)=" .I $P(MSA,FS,3)'=$S(HLMSTATE(""BATCH""):HLMSTATE(""HDR"",""BATCH CONTROL ID""),1:HLMSTATE(""HDR"",""MESSAGE CONTROL ID"")) G READACK"
^XMB(3.9,42,2,819,0)="""RTN"",""HLOCLNT"",154,0)"
^XMB(3.9,42,2,820,0)=" .N ACKID,ACKCODE"
^XMB(3.9,42,2,821,0)="""RTN"",""HLOCLNT"",155,0)"
^XMB(3.9,42,2,822,0)=" .S ACKCODE=$P(MSA,FS,2)"
^XMB(3.9,42,2,823,0)="""RTN"",""HLOCLNT"",156,0)"
^XMB(3.9,42,2,824,0)=" .S ACKID=$S($E(HDR(1),1,3)=""MSH"":$P(HDR(2),FS,5),1:$P(HDR(2),FS,6))"
^XMB(3.9,42,2,825,0)="""RTN"",""HLOCLNT"",157,0)"
^XMB(3.9,42,2,826,0)=" .S $P(UPDATE,""^"",5)=1"
^XMB(3.9,42,2,827,0)="""RTN"",""HLOCLNT"",158,0)"
^XMB(3.9,42,2,828,0)=" .S UPDATE(""MSA"")=ACKID_""^""_MSA"
^XMB(3.9,42,2,829,0)="""RTN"",""HLOCLNT"",159,0)"
^XMB(3.9,42,2,830,0)=" .I '(ACKCODE=""CA"") S $P(UPDATE,""^"",3)=""SE"",$P(UPDATE,""^"",4)=2"
^XMB(3.9,42,2,831,0)="""RTN"",""HLOCLNT"",160,0)"
^XMB(3.9,42,2,832,0)=" .I ACKCODE=""CA"",HLMSTATE(""HDR"",""APP ACK TYPE"")=""NE"" S $P(UPDATE,""^"",3)=""SU"",$P(UPDATE,""^"",4)=$S(HLMSTATE(""BATCH""):""2"",1:1)"
^XMB(3.9,42,2,833,0)="""RTN"",""HLOCLNT"",161,0)"
^XMB(3.9,42,2,834,0)=" .I ($P(UPDATE,""^"",3)=""SE"") S $P(UPDATE,""^"",6)=$P(HLMSTATE(""HDR"",1),FS,5) ;errors need the application for xref"
^XMB(3.9,42,2,835,0)="""RTN"",""HLOCLNT"",162,0)"
^XMB(3.9,42,2,836,0)=" .;"
^XMB(3.9,42,2,837,0)="""RTN"",""HLOCLNT"",163,0)"
^XMB(3.9,42,2,838,0)=" .;did the app request notification of accept ack?"
^XMB(3.9,42,2,839,0)="""RTN"",""HLOCLNT"",164,0)"
^XMB(3.9,42,2,840,0)=" .S UPDATE(""ACTION"")=HLMSTATE(""ACCEPT ACK RESPONSE"")"
^XMB(3.9,42,2,841,0)="""RTN"",""HLOCLNT"",165,0)"
^XMB(3.9,42,2,842,0)=" .S SUCCESS=1"
^XMB(3.9,42,2,843,0)="""RTN"",""HLOCLNT"",166,0)"
^XMB(3.9,42,2,844,0)=" E  D  ;accept ack wasn't requested"
^XMB(3.9,42,2,845,0)="""RTN"",""HLOCLNT"",167,0)"
^XMB(3.9,42,2,846,0)=" .S SUCCESS=1"
^XMB(3.9,42,2,847,0)="""RTN"",""HLOCLNT"",168,0)"
^XMB(3.9,42,2,848,0)=" .I HLMSTATE(""HDR"",""APP ACK TYPE"")=""NE"" S $P(UPDATE,""^"",3)=""SU"",$P(UPDATE,""^"",4)=$S(HLMSTATE(""BATCH""):2,1:1)"
^XMB(3.9,42,2,849,0)="""RTN"",""HLOCLNT"",169,0)"
^XMB(3.9,42,2,850,0)=" ;"
^XMB(3.9,42,2,851,0)="""RTN"",""HLOCLNT"",170,0)"
^XMB(3.9,42,2,852,0)=" G:'SUCCESS RETRY ;only executes if reading the ack failed"
^XMB(3.9,42,2,853,0)="""RTN"",""HLOCLNT"",171,0)"
^XMB(3.9,42,2,854,0)=" D:SUCCESS COUNT^HLOSTAT(.HLCSTATE,HLMSTATE(""HDR"",""RECEIVING APPLICATION""),HLMSTATE(""HDR"",""SENDING APPLICATION""),$S(HLMSTATE(""BATCH""):""BATCH"",1:HLMSTATE(""HDR"",""MESSAGE TYPE"")_""~""_HLMSTATE(""HDR"",""EVENT"")))"
^XMB(3.9,42,2,855,0)="""RTN"",""HLOCLNT"",172,0)"
^XMB(3.9,42,2,856,0)=" ;"
^XMB(3.9,42,2,857,0)="""RTN"",""HLOCLNT"",173,0)"
^XMB(3.9,42,2,858,0)="GIVEUP ;"
^XMB(3.9,42,2,859,0)="""RTN"",""HLOCLNT"",174,0)"
^XMB(3.9,42,2,860,0)=" I ('HLCSTATE(""CONNECTED""))!('SUCCESS) D LINKDOWN(.HLCSTATE)"
^XMB(3.9,42,2,861,0)="""RTN"",""HLOCLNT"",175,0)"
^XMB(3.9,42,2,862,0)=" Q SUCCESS"
^XMB(3.9,42,2,863,0)="""RTN"",""HLOCLNT1"")"
^XMB(3.9,42,2,864,0)="0^2^B27548481"
^XMB(3.9,42,2,865,0)="""RTN"",""HLOCLNT1"",1,0)"
^XMB(3.9,42,2,866,0)="HLOCLNT1 ;IRMFO-ALB/CJM - Writing messages, reading acks;03/24/2004  14:43"
^XMB(3.9,42,2,867,0)="""RTN"",""HLOCLNT1"",2,0)"
^XMB(3.9,42,2,868,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126,130**;Oct 13, 1995;Build 10"
^XMB(3.9,42,2,869,0)="""RTN"",""HLOCLNT1"",3,0)"
^XMB(3.9,42,2,870,0)=" ;"
^XMB(3.9,42,2,871,0)="""RTN"",""HLOCLNT1"",4,0)"
^XMB(3.9,42,2,872,0)=" ;"
^XMB(3.9,42,2,873,0)="""RTN"",""HLOCLNT1"",5,0)"
^XMB(3.9,42,2,874,0)="WRITEMSG(HLCSTATE,HLMSTATE) ;"
^XMB(3.9,42,2,875,0)="""RTN"",""HLOCLNT1"",6,0)"
^XMB(3.9,42,2,876,0)=" ;Description:  This function uses the services offered by the transport layer to send a message over an open communication channel."
^XMB(3.9,42,2,877,0)="""RTN"",""HLOCLNT1"",7,0)"
^XMB(3.9,42,2,878,0)=" ;"
^XMB(3.9,42,2,879,0)="""RTN"",""HLOCLNT1"",8,0)"
^XMB(3.9,42,2,880,0)=" ;Input:"
^XMB(3.9,42,2,881,0)="""RTN"",""HLOCLNT1"",9,0)"
^XMB(3.9,42,2,882,0)=" ;  HLCSTATE (pass by reference, required) Defines the communication channel and its state."
^XMB(3.9,42,2,883,0)="""RTN"",""HLOCLNT1"",10,0)"
^XMB(3.9,42,2,884,0)=" ;  HLMSTATE (pass by reference, required) Defines the message and its state."
^XMB(3.9,42,2,885,0)="""RTN"",""HLOCLNT1"",11,0)"
^XMB(3.9,42,2,886,0)=" ;Output:"
^XMB(3.9,42,2,887,0)="""RTN"",""HLOCLNT1"",12,0)"
^XMB(3.9,42,2,888,0)=" ;  Function returns 1 on success, 0 on failure"
^XMB(3.9,42,2,889,0)="""RTN"",""HLOCLNT1"",13,0)"
^XMB(3.9,42,2,890,0)=" ;"
^XMB(3.9,42,2,891,0)="""RTN"",""HLOCLNT1"",14,0)"
^XMB(3.9,42,2,892,0)=" N SEG,QUIT,HDR"
^XMB(3.9,42,2,893,0)="""RTN"",""HLOCLNT1"",15,0)"
^XMB(3.9,42,2,894,0)=" S QUIT=0"
^XMB(3.9,42,2,895,0)="""RTN"",""HLOCLNT1"",16,0)"
^XMB(3.9,42,2,896,0)=" Q:'$G(HLMSTATE(""IEN"")) 0"
^XMB(3.9,42,2,897,0)="""RTN"",""HLOCLNT1"",17,0)"
^XMB(3.9,42,2,898,0)=" S HDR(1)=HLMSTATE(""HDR"",1),HDR(2)=HLMSTATE(""HDR"",2)"
^XMB(3.9,42,2,899,0)="""RTN"",""HLOCLNT1"",18,0)"
^XMB(3.9,42,2,900,0)=" Q:'$$WRITEHDR^HLOT(.HLCSTATE,.HDR) 0"
^XMB(3.9,42,2,901,0)="""RTN"",""HLOCLNT1"",19,0)"
^XMB(3.9,42,2,902,0)=" I HLMSTATE(""BATCH"") D"
^XMB(3.9,42,2,903,0)="""RTN"",""HLOCLNT1"",20,0)"
^XMB(3.9,42,2,904,0)=" .N LAST S LAST=0"
^XMB(3.9,42,2,905,0)="""RTN"",""HLOCLNT1"",21,0)"
^XMB(3.9,42,2,906,0)=" .S HLMSTATE(""BATCH"",""CURRENT MESSAGE"")=0"
^XMB(3.9,42,2,907,0)="""RTN"",""HLOCLNT1"",22,0)"
^XMB(3.9,42,2,908,0)=" .F  Q:'$$NEXTMSG^HLOMSG(.HLMSTATE,.SEG)  D  Q:QUIT"
^XMB(3.9,42,2,909,0)="""RTN"",""HLOCLNT1"",23,0)"
^XMB(3.9,42,2,910,0)=" ..S LAST=HLMSTATE(""BATCH"",""CURRENT MESSAGE"")"
^XMB(3.9,42,2,911,0)="""RTN"",""HLOCLNT1"",24,0)"
^XMB(3.9,42,2,912,0)=" ..I '$$WRITESEG^HLOT(.HLCSTATE,.SEG) S QUIT=1 Q"
^XMB(3.9,42,2,913,0)="""RTN"",""HLOCLNT1"",25,0)"
^XMB(3.9,42,2,914,0)=" ..F  Q:'$$HLNEXT^HLOMSG(.HLMSTATE,.SEG)  D  Q:QUIT"
^XMB(3.9,42,2,915,0)="""RTN"",""HLOCLNT1"",26,0)"
^XMB(3.9,42,2,916,0)=" ...I '$$WRITESEG^HLOT(.HLCSTATE,.SEG) S QUIT=1 Q"
^XMB(3.9,42,2,917,0)="""RTN"",""HLOCLNT1"",27,0)"
^XMB(3.9,42,2,918,0)=" .K SEG S SEG(1)=""BTS""_HLMSTATE(""HDR"",""FIELD SEPARATOR"")_LAST"
^XMB(3.9,42,2,919,0)="""RTN"",""HLOCLNT1"",28,0)"
^XMB(3.9,42,2,920,0)=" .S:'$$WRITESEG^HLOT(.HLCSTATE,.SEG) QUIT=1"
^XMB(3.9,42,2,921,0)="""RTN"",""HLOCLNT1"",29,0)"
^XMB(3.9,42,2,922,0)=" E  D"
^XMB(3.9,42,2,923,0)="""RTN"",""HLOCLNT1"",30,0)"
^XMB(3.9,42,2,924,0)=" .F  Q:'$$HLNEXT^HLOMSG(.HLMSTATE,.SEG)  D  Q:QUIT"
^XMB(3.9,42,2,925,0)="""RTN"",""HLOCLNT1"",31,0)"
^XMB(3.9,42,2,926,0)=" ..S:'$$WRITESEG^HLOT(.HLCSTATE,.SEG) QUIT=1"
^XMB(3.9,42,2,927,0)="""RTN"",""HLOCLNT1"",32,0)"
^XMB(3.9,42,2,928,0)=" S:'$$ENDMSG^HLOT(.HLCSTATE) QUIT=1"
^XMB(3.9,42,2,929,0)="""RTN"",""HLOCLNT1"",33,0)"
^XMB(3.9,42,2,930,0)=" Q 'QUIT"
^XMB(3.9,42,2,931,0)="""RTN"",""HLOCLNT1"",34,0)"
^XMB(3.9,42,2,932,0)=" ;"
^XMB(3.9,42,2,933,0)="""RTN"",""HLOCLNT1"",35,0)"
^XMB(3.9,42,2,934,0)="READACK(HLCSTATE,HDR,MSA) ;"
^XMB(3.9,42,2,935,0)="""RTN"",""HLOCLNT1"",36,0)"
^XMB(3.9,42,2,936,0)=" ;Description:  This function uses the services offered by the transport layer to read an accept ack."
^XMB(3.9,42,2,937,0)="""RTN"",""HLOCLNT1"",37,0)"
^XMB(3.9,42,2,938,0)=" ;"
^XMB(3.9,42,2,939,0)="""RTN"",""HLOCLNT1"",38,0)"
^XMB(3.9,42,2,940,0)=" ;Input:"
^XMB(3.9,42,2,941,0)="""RTN"",""HLOCLNT1"",39,0)"
^XMB(3.9,42,2,942,0)=" ;  HLCSTATE (pass by reference, required) Defines the communication channel and its state."
^XMB(3.9,42,2,943,0)="""RTN"",""HLOCLNT1"",40,0)"
^XMB(3.9,42,2,944,0)=" ;Output:"
^XMB(3.9,42,2,945,0)="""RTN"",""HLOCLNT1"",41,0)"
^XMB(3.9,42,2,946,0)=" ;  Function returns 1 on success, 0 on failure"
^XMB(3.9,42,2,947,0)="""RTN"",""HLOCLNT1"",42,0)"
^XMB(3.9,42,2,948,0)=" ;  HDR (pass by reference) the message header:"
^XMB(3.9,42,2,949,0)="""RTN"",""HLOCLNT1"",43,0)"
^XMB(3.9,42,2,950,0)=" ;   HDR(1) is components 1-6"
^XMB(3.9,42,2,951,0)="""RTN"",""HLOCLNT1"",44,0)"
^XMB(3.9,42,2,952,0)=" ;   HDR(2) is components 7-end"
^XMB(3.9,42,2,953,0)="""RTN"",""HLOCLNT1"",45,0)"
^XMB(3.9,42,2,954,0)=" ;  MSA (pass by reference) the MSA segment as an unsubscripted variable"
^XMB(3.9,42,2,955,0)="""RTN"",""HLOCLNT1"",46,0)"
^XMB(3.9,42,2,956,0)=" ;"
^XMB(3.9,42,2,957,0)="""RTN"",""HLOCLNT1"",47,0)"
^XMB(3.9,42,2,958,0)=" N SEG"
^XMB(3.9,42,2,959,0)="""RTN"",""HLOCLNT1"",48,0)"
^XMB(3.9,42,2,960,0)=" K HDR,MSA,MAX,I"
^XMB(3.9,42,2,961,0)="""RTN"",""HLOCLNT1"",49,0)"
^XMB(3.9,42,2,962,0)=" S MAX=HLCSTATE(""SYSTEM"",""MAXSTRING"")-40 ;MAX is the maximum that can be safely stored on a node, leaving room for the other fields stored with MSA seg"
^XMB(3.9,42,2,963,0)="""RTN"",""HLOCLNT1"",50,0)"
^XMB(3.9,42,2,964,0)=" Q:'$$READHDR^HLOT(.HLCSTATE,.HDR) 0"
^XMB(3.9,42,2,965,0)="""RTN"",""HLOCLNT1"",51,0)"
^XMB(3.9,42,2,966,0)=" F  Q:'$$READSEG^HLOT(.HLCSTATE,.SEG)  D"
^XMB(3.9,42,2,967,0)="""RTN"",""HLOCLNT1"",52,0)"
^XMB(3.9,42,2,968,0)=" .I $E($E(SEG(1),1,3)_$E($G(SEG(2)),1,3),1,3)=""MSA"" D"
^XMB(3.9,42,2,969,0)="""RTN"",""HLOCLNT1"",53,0)"
^XMB(3.9,42,2,970,0)=" ..S MSA="""""
^XMB(3.9,42,2,971,0)="""RTN"",""HLOCLNT1"",54,0)"
^XMB(3.9,42,2,972,0)=" ..F I=1:1 Q:'$D(SEG(I))  S MSA=MSA_$S((MAX-$L(MSA))<1:"""",1:$E(SEG(I),1,MAX))"
^XMB(3.9,42,2,973,0)="""RTN"",""HLOCLNT1"",55,0)"
^XMB(3.9,42,2,974,0)=" I $D(MSA),HLCSTATE(""MESSAGE ENDED"") D  Q 1"
^XMB(3.9,42,2,975,0)="""RTN"",""HLOCLNT1"",56,0)"
^XMB(3.9,42,2,976,0)=" .D SPLITHDR^HLOSRVR1(.HDR)"
^XMB(3.9,42,2,977,0)="""RTN"",""HLOCLNT1"",57,0)"
^XMB(3.9,42,2,978,0)=" .S HLCSTATE(""COUNTS"",""ACKS"")=$G(HLCSTATE(""COUNTS"",""ACKS""))+1"
^XMB(3.9,42,2,979,0)="""RTN"",""HLOCLNT1"",58,0)"
^XMB(3.9,42,2,980,0)=" Q 0"
^XMB(3.9,42,2,981,0)="""RTN"",""HLOCLNT1"",59,0)"
^XMB(3.9,42,2,982,0)=" ;"
^XMB(3.9,42,2,983,0)="""RTN"",""HLOCLNT1"",60,0)"
^XMB(3.9,42,2,984,0)="CONNECT(LINK,PORT,HLCSTATE) ;"
^XMB(3.9,42,2,985,0)="""RTN"",""HLOCLNT1"",61,0)"
^XMB(3.9,42,2,986,0)=" ;sets up HLCSTATE() and opens a client connection"
^XMB(3.9,42,2,987,0)="""RTN"",""HLOCLNT1"",62,0)"
^XMB(3.9,42,2,988,0)=" ;Input:"
^XMB(3.9,42,2,989,0)="""RTN"",""HLOCLNT1"",63,0)"
^XMB(3.9,42,2,990,0)=" ;  LINK - name of the link to connect to"
^XMB(3.9,42,2,991,0)="""RTN"",""HLOCLNT1"",64,0)"
^XMB(3.9,42,2,992,0)=" ;  PORT - port # to connect to (optional)"
^XMB(3.9,42,2,993,0)="""RTN"",""HLOCLNT1"",65,0)"
^XMB(3.9,42,2,994,0)=" ;Output:"
^XMB(3.9,42,2,995,0)="""RTN"",""HLOCLNT1"",66,0)"
^XMB(3.9,42,2,996,0)=" ;   HLCSTATE - array to hold the connection state"
^XMB(3.9,42,2,997,0)="""RTN"",""HLOCLNT1"",67,0)"
^XMB(3.9,42,2,998,0)=" ;"
^XMB(3.9,42,2,999,0)="""RTN"",""HLOCLNT1"",68,0)"
^XMB(3.9,42,2,1000,0)=" I $G(HLCSTATE(""CONNECTED"")) D  Q:$G(HLCSTATE(""CONNECTED""))"
^XMB(3.9,42,2,1001,0)="""RTN"",""HLOCLNT1"",69,0)"
^XMB(3.9,42,2,1002,0)=" .I $G(HLCSTATE(""LINK"",""NAME""))]"""",($G(HLCSTATE(""LINK"",""NAME""))'=LINK) D CLOSE^HLOT(.HLCSTATE) Q"
^XMB(3.9,42,2,1003,0)="""RTN"",""HLOCLNT1"",70,0)"
^XMB(3.9,42,2,1004,0)=" .I $G(HLCSTATE(""LINK"",""NAME""))]"""",$G(PORT),($G(HLCSTATE(""LINK"",""PORT""))'=PORT) D CLOSE^HLOT(.HLCSTATE) Q"
^XMB(3.9,42,2,1005,0)="""RTN"",""HLOCLNT1"",71,0)"
^XMB(3.9,42,2,1006,0)=" .I (HLCSTATE(""SYSTEM"",""OS"")=""CACHE"") D  Q"
^XMB(3.9,42,2,1007,0)="""RTN"",""HLOCLNT1"",72,0)"
^XMB(3.9,42,2,1008,0)=" ..S HLCSTATE(""CONNECTED"")=($ZA\8192#2)"
^XMB(3.9,42,2,1009,0)="""RTN"",""HLOCLNT1"",73,0)"
^XMB(3.9,42,2,1010,0)=" ..I 'HLCSTATE(""CONNECTED"") D CLOSE^HLOT(.HLCSTATE)"
^XMB(3.9,42,2,1011,0)="""RTN"",""HLOCLNT1"",74,0)"
^XMB(3.9,42,2,1012,0)=" .D CLOSE^HLOT(.HLCSTATE)"
^XMB(3.9,42,2,1013,0)="""RTN"",""HLOCLNT1"",75,0)"
^XMB(3.9,42,2,1014,0)=" K HLCSTATE"
^XMB(3.9,42,2,1015,0)="""RTN"",""HLOCLNT1"",76,0)"
^XMB(3.9,42,2,1016,0)=" N ARY,NODE"
^XMB(3.9,42,2,1017,0)="""RTN"",""HLOCLNT1"",77,0)"
^XMB(3.9,42,2,1018,0)=" I '$$GETLINK^HLOTLNK(LINK,.ARY) S HLCSTATE(""LINK"",""NAME"")=LINK,HLCSTATE(""LINK"",""PORT"")=$G(PORT) D LINKDOWN^HLOCLNT(.HLCSTATE) Q 0"
^XMB(3.9,42,2,1019,0)="""RTN"",""HLOCLNT1"",78,0)"
^XMB(3.9,42,2,1020,0)=" M HLCSTATE(""LINK"")=ARY"
^XMB(3.9,42,2,1021,0)="""RTN"",""HLOCLNT1"",79,0)"
^XMB(3.9,42,2,1022,0)=" I HLCSTATE(""LINK"",""SHUTDOWN"") S HLCSTATE(""CONNECTED"")=0 D LINKDOWN^HLOCLNT(.HLCSTATE) Q 0"
^XMB(3.9,42,2,1023,0)="""RTN"",""HLOCLNT1"",80,0)"
^XMB(3.9,42,2,1024,0)=" ;overlay the port if supplied from the queue"
^XMB(3.9,42,2,1025,0)="""RTN"",""HLOCLNT1"",81,0)"
^XMB(3.9,42,2,1026,0)=" S:$G(PORT) HLCSTATE(""LINK"",""PORT"")=PORT"
^XMB(3.9,42,2,1027,0)="""RTN"",""HLOCLNT1"",82,0)"
^XMB(3.9,42,2,1028,0)=" S HLCSTATE(""ATTEMPT"")=0"
^XMB(3.9,42,2,1029,0)="""RTN"",""HLOCLNT1"",83,0)"
^XMB(3.9,42,2,1030,0)=" S HLCSTATE(""COUNTS"")=0"
^XMB(3.9,42,2,1031,0)="""RTN"",""HLOCLNT1"",84,0)"
^XMB(3.9,42,2,1032,0)=" S HLCSTATE(""READ"")="""" ;where the reads are stored"
^XMB(3.9,42,2,1033,0)="""RTN"",""HLOCLNT1"",85,0)"
^XMB(3.9,42,2,1034,0)=" ;"
^XMB(3.9,42,2,1035,0)="""RTN"",""HLOCLNT1"",86,0)"
^XMB(3.9,42,2,1036,0)=" ;HLCSTATE(""BUFFER"",<seg>,<line>) serves as a write buffer so that a lot can be written all at once"
^XMB(3.9,42,2,1037,0)="""RTN"",""HLOCLNT1"",87,0)"
^XMB(3.9,42,2,1038,0)=" S HLCSTATE(""BUFFER"",""BYTE COUNT"")=0 ;count of BYTES in buffer"
^XMB(3.9,42,2,1039,0)="""RTN"",""HLOCLNT1"",88,0)"
^XMB(3.9,42,2,1040,0)=" S HLCSTATE(""BUFFER"",""SEGMENT COUNT"")=0 ;count of segments in buffer"
^XMB(3.9,42,2,1041,0)="""RTN"",""HLOCLNT1"",89,0)"
^XMB(3.9,42,2,1042,0)=" ;"
^XMB(3.9,42,2,1043,0)="""RTN"",""HLOCLNT1"",90,0)"
^XMB(3.9,42,2,1044,0)=" S HLCSTATE(""MESSAGE ENDED"")=0 ;end of message flag"
^XMB(3.9,42,2,1045,0)="""RTN"",""HLOCLNT1"",91,0)"
^XMB(3.9,42,2,1046,0)=" S NODE=^%ZOSF(""OS"")"
^XMB(3.9,42,2,1047,0)="""RTN"",""HLOCLNT1"",92,0)"
^XMB(3.9,42,2,1048,0)=" S HLCSTATE(""SERVER"")=0"
^XMB(3.9,42,2,1049,0)="""RTN"",""HLOCLNT1"",93,0)"
^XMB(3.9,42,2,1050,0)=" S HLCSTATE(""SYSTEM"",""OS"")=$S(NODE[""DSM"":""DSM"",NODE[""OpenM"":""CACHE"",NODE[""G.TM"":""G.TM"",1:"""")"
^XMB(3.9,42,2,1051,0)="""RTN"",""HLOCLNT1"",94,0)"
^XMB(3.9,42,2,1052,0)=" I HLCSTATE(""SYSTEM"",""OS"")="""" D LINKDOWN^HLOCLNT(.HLCSTATE) Q 0"
^XMB(3.9,42,2,1053,0)="""RTN"",""HLOCLNT1"",95,0)"
^XMB(3.9,42,2,1054,0)=" D"
^XMB(3.9,42,2,1055,0)="""RTN"",""HLOCLNT1"",96,0)"
^XMB(3.9,42,2,1056,0)=" .N SYS"
^XMB(3.9,42,2,1057,0)="""RTN"",""HLOCLNT1"",97,0)"
^XMB(3.9,42,2,1058,0)=" .D SYSPARMS^HLOSITE(.SYS)"
^XMB(3.9,42,2,1059,0)="""RTN"",""HLOCLNT1"",98,0)"
^XMB(3.9,42,2,1060,0)=" .S HLCSTATE(""SYSTEM"",""BUFFER"")=SYS(""HL7 BUFFER"")"
^XMB(3.9,42,2,1061,0)="""RTN"",""HLOCLNT1"",99,0)"
^XMB(3.9,42,2,1062,0)=" .S HLCSTATE(""SYSTEM"",""MAXSTRING"")=SYS(""MAXSTRING"")"
^XMB(3.9,42,2,1063,0)="""RTN"",""HLOCLNT1"",100,0)"
^XMB(3.9,42,2,1064,0)=" .S HLCSTATE(""SYSTEM"",""NORMAL PURGE"")=SYS(""NORMAL PURGE"")"
^XMB(3.9,42,2,1065,0)="""RTN"",""HLOCLNT1"",101,0)"
^XMB(3.9,42,2,1066,0)=" .S HLCSTATE(""SYSTEM"",""ERROR PURGE"")=SYS(""ERROR PURGE"")"
^XMB(3.9,42,2,1067,0)="""RTN"",""HLOCLNT1"",102,0)"
^XMB(3.9,42,2,1068,0)=" I HLCSTATE(""LINK"",""LLP"")=""TCP"" D"
^XMB(3.9,42,2,1069,0)="""RTN"",""HLOCLNT1"",103,0)"
^XMB(3.9,42,2,1070,0)=" .D OPEN^HLOTCP(.HLCSTATE)"
^XMB(3.9,42,2,1071,0)="""RTN"",""HLOCLNT1"",104,0)"
^XMB(3.9,42,2,1072,0)=" E  I HLCSTATE(""LINK"",""LLP"")=""HLLP"" D  ;serial"
^XMB(3.9,42,2,1073,0)="""RTN"",""HLOCLNT1"",105,0)"
^XMB(3.9,42,2,1074,0)=" .;implementation of serial LLP has been deferred"
^XMB(3.9,42,2,1075,0)="""RTN"",""HLOCLNT1"",106,0)"
^XMB(3.9,42,2,1076,0)=" ;"
^XMB(3.9,42,2,1077,0)="""RTN"",""HLOCLNT1"",107,0)"
^XMB(3.9,42,2,1078,0)=" ;mark the failure time for the link so other processes know not to try for a while"
^XMB(3.9,42,2,1079,0)="""RTN"",""HLOCLNT1"",108,0)"
^XMB(3.9,42,2,1080,0)=" I 'HLCSTATE(""CONNECTED"") D LINKDOWN^HLOCLNT(.HLCSTATE)"
^XMB(3.9,42,2,1081,0)="""RTN"",""HLOCLNT1"",109,0)"
^XMB(3.9,42,2,1082,0)=" Q HLCSTATE(""CONNECTED"")"
^XMB(3.9,42,2,1083,0)="""RTN"",""HLOCLNT1"",110,0)"
^XMB(3.9,42,2,1084,0)=" ;"
^XMB(3.9,42,2,1085,0)="""RTN"",""HLOCLNT1"",111,0)"
^XMB(3.9,42,2,1086,0)="BADMSGS(WORK) ;"
^XMB(3.9,42,2,1087,0)="""RTN"",""HLOCLNT1"",112,0)"
^XMB(3.9,42,2,1088,0)=" ;finds messages that won't transmit and takes them off the outgoing queue"
^XMB(3.9,42,2,1089,0)="""RTN"",""HLOCLNT1"",113,0)"
^XMB(3.9,42,2,1090,0)=" N LINK"
^XMB(3.9,42,2,1091,0)="""RTN"",""HLOCLNT1"",114,0)"
^XMB(3.9,42,2,1092,0)=" S LINK="""""
^XMB(3.9,42,2,1093,0)="""RTN"",""HLOCLNT1"",115,0)"
^XMB(3.9,42,2,1094,0)=" F  S LINK=$O(^HLTMP(""FAILING LINKS"",LINK)) Q:LINK=""""  D"
^XMB(3.9,42,2,1095,0)="""RTN"",""HLOCLNT1"",116,0)"
^XMB(3.9,42,2,1096,0)=" .N TIME,QUE,COUNT"
^XMB(3.9,42,2,1097,0)="""RTN"",""HLOCLNT1"",117,0)"
^XMB(3.9,42,2,1098,0)=" .S TIME=$G(^HLTMP(""FAILING LINKS"",LINK)) Q:TIME="""""
^XMB(3.9,42,2,1099,0)="""RTN"",""HLOCLNT1"",118,0)"
^XMB(3.9,42,2,1100,0)=" .Q:$$HDIFF^XLFDT($H,TIME,2)<7200"
^XMB(3.9,42,2,1101,0)="""RTN"",""HLOCLNT1"",119,0)"
^XMB(3.9,42,2,1102,0)=" .Q:'$$IFOPEN^HLOUSR1(LINK)"
^XMB(3.9,42,2,1103,0)="""RTN"",""HLOCLNT1"",120,0)"
^XMB(3.9,42,2,1104,0)=" .L +^HLB(""QUEUE"",""OUT"",LINK):0"
^XMB(3.9,42,2,1105,0)="""RTN"",""HLOCLNT1"",121,0)"
^XMB(3.9,42,2,1106,0)=" .S QUE="""""
^XMB(3.9,42,2,1107,0)="""RTN"",""HLOCLNT1"",122,0)"
^XMB(3.9,42,2,1108,0)=" .F  S QUE=$O(^HLB(""QUEUE"",""OUT"",LINK,QUE)) Q:QUE=""""  D"
^XMB(3.9,42,2,1109,0)="""RTN"",""HLOCLNT1"",123,0)"
^XMB(3.9,42,2,1110,0)=" ..N MSG S MSG=0"
^XMB(3.9,42,2,1111,0)="""RTN"",""HLOCLNT1"",124,0)"
^XMB(3.9,42,2,1112,0)=" ..S MSG=$O(^HLB(""QUEUE"",""OUT"",LINK,QUE,MSG))"
^XMB(3.9,42,2,1113,0)="""RTN"",""HLOCLNT1"",125,0)"
^XMB(3.9,42,2,1114,0)=" ..Q:'MSG"
^XMB(3.9,42,2,1115,0)="""RTN"",""HLOCLNT1"",126,0)"
^XMB(3.9,42,2,1116,0)=" ..S COUNT=$G(^HLB(MSG,""TRIES""))"
^XMB(3.9,42,2,1117,0)="""RTN"",""HLOCLNT1"",127,0)"
^XMB(3.9,42,2,1118,0)=" ..I COUNT>20 D"
^XMB(3.9,42,2,1119,0)="""RTN"",""HLOCLNT1"",128,0)"
^XMB(3.9,42,2,1120,0)=" ...N NODE,TIME,APP,FS,ACTION"
^XMB(3.9,42,2,1121,0)="""RTN"",""HLOCLNT1"",129,0)"
^XMB(3.9,42,2,1122,0)=" ...S NODE=$G(^HLB(MSG,0))"
^XMB(3.9,42,2,1123,0)="""RTN"",""HLOCLNT1"",130,0)"
^XMB(3.9,42,2,1124,0)=" ...Q:'$P(NODE,""^"",2)"
^XMB(3.9,42,2,1125,0)="""RTN"",""HLOCLNT1"",131,0)"
^XMB(3.9,42,2,1126,0)=" ...S TIME=+$G(^HLA($P(NODE,""^"",2),0))"
^XMB(3.9,42,2,1127,0)="""RTN"",""HLOCLNT1"",132,0)"
^XMB(3.9,42,2,1128,0)=" ...S NODE=$G(^HLB(MSG,1))"
^XMB(3.9,42,2,1129,0)="""RTN"",""HLOCLNT1"",133,0)"
^XMB(3.9,42,2,1130,0)=" ...S FS=$E(NODE,4)"
^XMB(3.9,42,2,1131,0)="""RTN"",""HLOCLNT1"",134,0)"
^XMB(3.9,42,2,1132,0)=" ...Q:FS="""""
^XMB(3.9,42,2,1133,0)="""RTN"",""HLOCLNT1"",135,0)"
^XMB(3.9,42,2,1134,0)=" ...S APP=$P(NODE,FS,3)"
^XMB(3.9,42,2,1135,0)="""RTN"",""HLOCLNT1"",136,0)"
^XMB(3.9,42,2,1136,0)=" ...Q:APP="""""
^XMB(3.9,42,2,1137,0)="""RTN"",""HLOCLNT1"",137,0)"
^XMB(3.9,42,2,1138,0)=" ...S $P(^HLB(MSG,0),""^"",21)=COUNT_"" FAILED TRANSMISSIONS"""
^XMB(3.9,42,2,1139,0)="""RTN"",""HLOCLNT1"",138,0)"
^XMB(3.9,42,2,1140,0)=" ...S $P(^HLB(MSG,0),""^"",20)=""TF"""
^XMB(3.9,42,2,1141,0)="""RTN"",""HLOCLNT1"",139,0)"
^XMB(3.9,42,2,1142,0)=" ...S ^HLB(""ERRORS"",""TF"",APP,TIME,MSG)="""""
^XMB(3.9,42,2,1143,0)="""RTN"",""HLOCLNT1"",140,0)"
^XMB(3.9,42,2,1144,0)=" ...S ACTION=$P(NODE,""^"",14,15)"
^XMB(3.9,42,2,1145,0)="""RTN"",""HLOCLNT1"",141,0)"
^XMB(3.9,42,2,1146,0)=" ...I ACTION'=""^"",ACTION]"""" D INQUE^HLOQUE(LINK,QUE,MSG,ACTION,1)"
^XMB(3.9,42,2,1147,0)="""RTN"",""HLOCLNT1"",142,0)"
^XMB(3.9,42,2,1148,0)=" ...D DEQUE^HLOQUE(LINK,QUE,""OUT"",MSG)"
^XMB(3.9,42,2,1149,0)="""RTN"",""HLOCLNT1"",143,0)"
^XMB(3.9,42,2,1150,0)=" .L -^HLB(""QUEUE"",""OUT"",LINK)"
^XMB(3.9,42,2,1151,0)="""RTN"",""HLOCLNT1"",144,0)"
^XMB(3.9,42,2,1152,0)=" Q"
^XMB(3.9,42,2,1153,0)="""RTN"",""HLOCLNT2"")"
^XMB(3.9,42,2,1154,0)="0^3^B23345410"
^XMB(3.9,42,2,1155,0)="""RTN"",""HLOCLNT2"",1,0)"
^XMB(3.9,42,2,1156,0)="HLOCLNT2 ;ALB/CJM- Performs message updates for the client - 10/4/94 1pm"
^XMB(3.9,42,2,1157,0)="""RTN"",""HLOCLNT2"",2,0)"
^XMB(3.9,42,2,1158,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126,130**;Oct 13, 1995;Build 10"
^XMB(3.9,42,2,1159,0)="""RTN"",""HLOCLNT2"",3,0)"
^XMB(3.9,42,2,1160,0)=" ;"
^XMB(3.9,42,2,1161,0)="""RTN"",""HLOCLNT2"",4,0)"
^XMB(3.9,42,2,1162,0)="GETWORK(WORK) ;"
^XMB(3.9,42,2,1163,0)="""RTN"",""HLOCLNT2"",5,0)"
^XMB(3.9,42,2,1164,0)=" ;"
^XMB(3.9,42,2,1165,0)="""RTN"",""HLOCLNT2"",6,0)"
^XMB(3.9,42,2,1166,0)=" N OLD,DOLLARJ,SUCCESS,NOW"
^XMB(3.9,42,2,1167,0)="""RTN"",""HLOCLNT2"",7,0)"
^XMB(3.9,42,2,1168,0)=" S SUCCESS=0"
^XMB(3.9,42,2,1169,0)="""RTN"",""HLOCLNT2"",8,0)"
^XMB(3.9,42,2,1170,0)=" S NOW=$$NOW^XLFDT"
^XMB(3.9,42,2,1171,0)="""RTN"",""HLOCLNT2"",9,0)"
^XMB(3.9,42,2,1172,0)=" S (OLD,DOLLARJ)=$G(WORK(""DOLLARJ""))"
^XMB(3.9,42,2,1173,0)="""RTN"",""HLOCLNT2"",10,0)"
^XMB(3.9,42,2,1174,0)=" F  S DOLLARJ=$O(^HLTMP(""CLIENT UPDATES"",DOLLARJ)) Q:DOLLARJ=""""  D  Q:SUCCESS"
^XMB(3.9,42,2,1175,0)="""RTN"",""HLOCLNT2"",11,0)"
^XMB(3.9,42,2,1176,0)=" .L +^HLTMP(""CLIENT UPDATES"",DOLLARJ):0"
^XMB(3.9,42,2,1177,0)="""RTN"",""HLOCLNT2"",12,0)"
^XMB(3.9,42,2,1178,0)=" .Q:'$T"
^XMB(3.9,42,2,1179,0)="""RTN"",""HLOCLNT2"",13,0)"
^XMB(3.9,42,2,1180,0)=" .N TIME S TIME=$O(^HLTMP(""CLIENT UPDATES"",DOLLARJ,""""))"
^XMB(3.9,42,2,1181,0)="""RTN"",""HLOCLNT2"",14,0)"
^XMB(3.9,42,2,1182,0)=" .I $$FMDIFF^XLFDT(NOW,TIME,2)<2 L -^HLTMP(""CLIENT UPDATES"",DOLLARJ) Q"
^XMB(3.9,42,2,1183,0)="""RTN"",""HLOCLNT2"",15,0)"
^XMB(3.9,42,2,1184,0)=" .S SUCCESS=1"
^XMB(3.9,42,2,1185,0)="""RTN"",""HLOCLNT2"",16,0)"
^XMB(3.9,42,2,1186,0)=" ;"
^XMB(3.9,42,2,1187,0)="""RTN"",""HLOCLNT2"",17,0)"
^XMB(3.9,42,2,1188,0)=" I OLD'="""",'SUCCESS F  S DOLLARJ=$O(^HLTMP(""CLIENT UPDATES"",DOLLARJ)) Q:DOLLARJ=""""  Q:DOLLARJ>OLD  D  Q:SUCCESS"
^XMB(3.9,42,2,1189,0)="""RTN"",""HLOCLNT2"",18,0)"
^XMB(3.9,42,2,1190,0)=" .L +^HLTMP(""CLIENT UPDATES"",DOLLARJ):0"
^XMB(3.9,42,2,1191,0)="""RTN"",""HLOCLNT2"",19,0)"
^XMB(3.9,42,2,1192,0)=" .Q:'$T"
^XMB(3.9,42,2,1193,0)="""RTN"",""HLOCLNT2"",20,0)"
^XMB(3.9,42,2,1194,0)=" .N TIME S TIME=$O(^HLTMP(""CLIENT UPDATES"",DOLLARJ,""""))"
^XMB(3.9,42,2,1195,0)="""RTN"",""HLOCLNT2"",21,0)"
^XMB(3.9,42,2,1196,0)=" .I $$FMDIFF^XLFDT(NOW,TIME,2)<2 L -^HLTMP(""CLIENT UPDATES"",DOLLARJ) Q"
^XMB(3.9,42,2,1197,0)="""RTN"",""HLOCLNT2"",22,0)"
^XMB(3.9,42,2,1198,0)=" .S SUCCESS=1"
^XMB(3.9,42,2,1199,0)="""RTN"",""HLOCLNT2"",23,0)"
^XMB(3.9,42,2,1200,0)=" S WORK(""DOLLARJ"")=DOLLARJ,WORK(""NOW"")=NOW"
^XMB(3.9,42,2,1201,0)="""RTN"",""HLOCLNT2"",24,0)"
^XMB(3.9,42,2,1202,0)=" Q $S($L(WORK(""DOLLARJ"")):1,1:0)"
^XMB(3.9,42,2,1203,0)="""RTN"",""HLOCLNT2"",25,0)"
^XMB(3.9,42,2,1204,0)=" ;"
^XMB(3.9,42,2,1205,0)="""RTN"",""HLOCLNT2"",26,0)"
^XMB(3.9,42,2,1206,0)="DOWORK(WORK) ;"
^XMB(3.9,42,2,1207,0)="""RTN"",""HLOCLNT2"",27,0)"
^XMB(3.9,42,2,1208,0)=" ;"
^XMB(3.9,42,2,1209,0)="""RTN"",""HLOCLNT2"",28,0)"
^XMB(3.9,42,2,1210,0)=" N DOLLARJ,TIME,IEN,PARMS,SYSTEM"
^XMB(3.9,42,2,1211,0)="""RTN"",""HLOCLNT2"",29,0)"
^XMB(3.9,42,2,1212,0)=" S TIME="""""
^XMB(3.9,42,2,1213,0)="""RTN"",""HLOCLNT2"",30,0)"
^XMB(3.9,42,2,1214,0)=" S DOLLARJ=WORK(""DOLLARJ"")"
^XMB(3.9,42,2,1215,0)="""RTN"",""HLOCLNT2"",31,0)"
^XMB(3.9,42,2,1216,0)=" D SYSPARMS^HLOSITE(.SYSTEM)"
^XMB(3.9,42,2,1217,0)="""RTN"",""HLOCLNT2"",32,0)"
^XMB(3.9,42,2,1218,0)=" F  S TIME=$O(^HLTMP(""CLIENT UPDATES"",DOLLARJ,TIME)) Q:TIME=""""  Q:$$FMDIFF^XLFDT(WORK(""NOW""),TIME,2)<2  D"
^XMB(3.9,42,2,1219,0)="""RTN"",""HLOCLNT2"",33,0)"
^XMB(3.9,42,2,1220,0)=" .S IEN=0"
^XMB(3.9,42,2,1221,0)="""RTN"",""HLOCLNT2"",34,0)"
^XMB(3.9,42,2,1222,0)=" .F  S IEN=$O(^HLTMP(""CLIENT UPDATES"",DOLLARJ,TIME,IEN)) Q:'IEN  D"
^XMB(3.9,42,2,1223,0)="""RTN"",""HLOCLNT2"",35,0)"
^XMB(3.9,42,2,1224,0)=" ..N NODE"
^XMB(3.9,42,2,1225,0)="""RTN"",""HLOCLNT2"",36,0)"
^XMB(3.9,42,2,1226,0)=" ..S NODE=$G(^HLTMP(""CLIENT UPDATES"",DOLLARJ,TIME,IEN))"
^XMB(3.9,42,2,1227,0)="""RTN"",""HLOCLNT2"",37,0)"
^XMB(3.9,42,2,1228,0)=" ..S PARMS(""LINK"")=$P(NODE,""^"")"
^XMB(3.9,42,2,1229,0)="""RTN"",""HLOCLNT2"",38,0)"
^XMB(3.9,42,2,1230,0)=" ..S PARMS(""QUEUE"")=$P(NODE,""^"",2)"
^XMB(3.9,42,2,1231,0)="""RTN"",""HLOCLNT2"",39,0)"
^XMB(3.9,42,2,1232,0)=" ..S PARMS(""STATUS"")=$P(NODE,""^"",3)"
^XMB(3.9,42,2,1233,0)="""RTN"",""HLOCLNT2"",40,0)"
^XMB(3.9,42,2,1234,0)=" ..S PARMS(""PURGE TYPE"")=$P(NODE,""^"",4)"
^XMB(3.9,42,2,1235,0)="""RTN"",""HLOCLNT2"",41,0)"
^XMB(3.9,42,2,1236,0)=" ..S PARMS(""ACCEPT ACK"")=$P(NODE,""^"",5)"
^XMB(3.9,42,2,1237,0)="""RTN"",""HLOCLNT2"",42,0)"
^XMB(3.9,42,2,1238,0)=" ..S PARMS(""RECEIVING APP"")=$P(NODE,""^"",6)"
^XMB(3.9,42,2,1239,0)="""RTN"",""HLOCLNT2"",43,0)"
^XMB(3.9,42,2,1240,0)=" ..S:PARMS(""RECEIVING APP"")="""" PARMS(""RECEIVING APP"")=""UNKNOWN RECEIVING APPLICATION"""
^XMB(3.9,42,2,1241,0)="""RTN"",""HLOCLNT2"",44,0)"
^XMB(3.9,42,2,1242,0)=" ..S PARMS(""MSA"")=$G(^HLTMP(""CLIENT UPDATES"",DOLLARJ,TIME,IEN,""MSA""))"
^XMB(3.9,42,2,1243,0)="""RTN"",""HLOCLNT2"",45,0)"
^XMB(3.9,42,2,1244,0)=" ..S PARMS(""ACTION"")=$G(^HLTMP(""CLIENT UPDATES"",DOLLARJ,TIME,IEN,""ACTION""))"
^XMB(3.9,42,2,1245,0)="""RTN"",""HLOCLNT2"",46,0)"
^XMB(3.9,42,2,1246,0)=" ..D UPDATE(IEN,TIME,.PARMS)"
^XMB(3.9,42,2,1247,0)="""RTN"",""HLOCLNT2"",47,0)"
^XMB(3.9,42,2,1248,0)=" ..K ^HLTMP(""CLIENT UPDATES"",DOLLARJ,TIME,IEN)"
^XMB(3.9,42,2,1249,0)="""RTN"",""HLOCLNT2"",48,0)"
^XMB(3.9,42,2,1250,0)=" L -^HLTMP(""CLIENT UPDATES"",DOLLARJ)"
^XMB(3.9,42,2,1251,0)="""RTN"",""HLOCLNT2"",49,0)"
^XMB(3.9,42,2,1252,0)=" Q"
^XMB(3.9,42,2,1253,0)="""RTN"",""HLOCLNT2"",50,0)"
^XMB(3.9,42,2,1254,0)=" ;"
^XMB(3.9,42,2,1255,0)="""RTN"",""HLOCLNT2"",51,0)"
^XMB(3.9,42,2,1256,0)="UPDATE(MSGIEN,TIME,PARMS) ;"
^XMB(3.9,42,2,1257,0)="""RTN"",""HLOCLNT2"",52,0)"
^XMB(3.9,42,2,1258,0)=" S:PARMS(""STATUS"")]"""" $P(^HLB(MSGIEN,0),""^"",20)=PARMS(""STATUS"")"
^XMB(3.9,42,2,1259,0)="""RTN"",""HLOCLNT2"",53,0)"
^XMB(3.9,42,2,1260,0)=" S:PARMS(""STATUS"")=""SE"" ^HLB(""ERRORS"",""SE"",PARMS(""RECEIVING APP""),TIME,MSGIEN)="""""
^XMB(3.9,42,2,1261,0)="""RTN"",""HLOCLNT2"",54,0)"
^XMB(3.9,42,2,1262,0)=" S:PARMS(""STATUS"")=""AE"" ^HLB(""ERRORS"",""AE"",PARMS(""RECEIVING APP""),TIME,MSGIEN_""^"")="""""
^XMB(3.9,42,2,1263,0)="""RTN"",""HLOCLNT2"",55,0)"
^XMB(3.9,42,2,1264,0)=" S:PARMS(""ACCEPT ACK"") $P(^HLB(MSGIEN,0),""^"",17)=PARMS(""ACCEPT ACK"")"
^XMB(3.9,42,2,1265,0)="""RTN"",""HLOCLNT2"",56,0)"
^XMB(3.9,42,2,1266,0)=" S $P(^HLB(MSGIEN,0),""^"",16)=TIME"
^XMB(3.9,42,2,1267,0)="""RTN"",""HLOCLNT2"",57,0)"
^XMB(3.9,42,2,1268,0)=" S:PARMS(""MSA"")]"""" ^HLB(MSGIEN,4)=TIME_""^""_PARMS(""MSA"")"
^XMB(3.9,42,2,1269,0)="""RTN"",""HLOCLNT2"",58,0)"
^XMB(3.9,42,2,1270,0)=" I PARMS(""PURGE TYPE""),PARMS(""ACTION"")="""" D"
^XMB(3.9,42,2,1271,0)="""RTN"",""HLOCLNT2"",59,0)"
^XMB(3.9,42,2,1272,0)=" .;don't set purge if going on the infiler - let infiler do it"
^XMB(3.9,42,2,1273,0)="""RTN"",""HLOCLNT2"",60,0)"
^XMB(3.9,42,2,1274,0)=" .N PTIME"
^XMB(3.9,42,2,1275,0)="""RTN"",""HLOCLNT2"",61,0)"
^XMB(3.9,42,2,1276,0)=" .S:(PARMS(""PURGE TYPE"")=2) PTIME=$$FMADD^XLFDT(TIME,SYSTEM(""ERROR PURGE"")) ;error purge is in days"
^XMB(3.9,42,2,1277,0)="""RTN"",""HLOCLNT2"",62,0)"
^XMB(3.9,42,2,1278,0)=" .S:(PARMS(""PURGE TYPE"")'=2) PTIME=$$FMADD^XLFDT(TIME,,SYSTEM(""NORMAL PURGE"")) ;normal purge is in hours"
^XMB(3.9,42,2,1279,0)="""RTN"",""HLOCLNT2"",63,0)"
^XMB(3.9,42,2,1280,0)=" .S $P(^HLB(MSGIEN,0),""^"",9)=PTIME,^HLB(""AD"",""OUT"",PTIME,MSGIEN)="""""
^XMB(3.9,42,2,1281,0)="""RTN"",""HLOCLNT2"",64,0)"
^XMB(3.9,42,2,1282,0)=" D:PARMS(""ACTION"")]"""" INQUE^HLOQUE(PARMS(""LINK""),PARMS(""QUEUE""),MSGIEN,PARMS(""ACTION""),$S(PARMS(""PURGE TYPE""):1,1:0))"
^XMB(3.9,42,2,1283,0)="""RTN"",""HLOCLNT2"",65,0)"
^XMB(3.9,42,2,1284,0)=" Q"
^XMB(3.9,42,2,1285,0)="""RTN"",""HLOCLNT2"",66,0)"
^XMB(3.9,42,2,1286,0)=" ;"
^XMB(3.9,42,2,1287,0)="""RTN"",""HLOCLNT2"",67,0)"
^XMB(3.9,42,2,1288,0)="GETMSG(IEN,MSG) ;"
^XMB(3.9,42,2,1289,0)="""RTN"",""HLOCLNT2"",68,0)"
^XMB(3.9,42,2,1290,0)=" ;"
^XMB(3.9,42,2,1291,0)="""RTN"",""HLOCLNT2"",69,0)"
^XMB(3.9,42,2,1292,0)=" ;Description: given the message ien=MSGIEN (required), it returns the MSG array containing information about the message, defined below."
^XMB(3.9,42,2,1293,0)="""RTN"",""HLOCLNT2"",70,0)"
^XMB(3.9,42,2,1294,0)=" ;Input:"
^XMB(3.9,42,2,1295,0)="""RTN"",""HLOCLNT2"",71,0)"
^XMB(3.9,42,2,1296,0)=" ;  IEN - the ien of the message in file 778"
^XMB(3.9,42,2,1297,0)="""RTN"",""HLOCLNT2"",72,0)"
^XMB(3.9,42,2,1298,0)=" ;Output:"
^XMB(3.9,42,2,1299,0)="""RTN"",""HLOCLNT2"",73,0)"
^XMB(3.9,42,2,1300,0)=" ;  Function returns 1 on success, 0 on failure"
^XMB(3.9,42,2,1301,0)="""RTN"",""HLOCLNT2"",74,0)"
^XMB(3.9,42,2,1302,0)=" ;  MSG (pass by reference, required) These are the subscripts returned:"
^XMB(3.9,42,2,1303,0)="""RTN"",""HLOCLNT2"",75,0)"
^XMB(3.9,42,2,1304,0)=" ;    ""BATCH""  = 1 if this is a batch message, 0  if not"
^XMB(3.9,42,2,1305,0)="""RTN"",""HLOCLNT2"",76,0)"
^XMB(3.9,42,2,1306,0)=" ; ""CURRENT MESSAGE"" - defined only for batch messages -  a counterused during building and parsing messages to indicate the current message.  It will be set to 0 initially."
^XMB(3.9,42,2,1307,0)="""RTN"",""HLOCLNT2"",77,0)"
^XMB(3.9,42,2,1308,0)=" ;   ""BODY"" - ptr to file 778 which contains the body of the message."
^XMB(3.9,42,2,1309,0)="""RTN"",""HLOCLNT2"",78,0)"
^XMB(3.9,42,2,1310,0)=" ;   ""ACCEPT ACK RESPONSE"" - if the sending app requested notification of the accept ack, this is the routine to perform"
^XMB(3.9,42,2,1311,0)="""RTN"",""HLOCLNT2"",79,0)"
^XMB(3.9,42,2,1312,0)=" ;   ""LINE COUNT"" -  a counter used during writing of the"
^XMB(3.9,42,2,1313,0)="""RTN"",""HLOCLNT2"",80,0)"
^XMB(3.9,42,2,1314,0)=" ;     messages to indicate the current line. For"
^XMB(3.9,42,2,1315,0)="""RTN"",""HLOCLNT2"",81,0)"
^XMB(3.9,42,2,1316,0)=" ;     batch messages where each message within the batch is stored"
^XMB(3.9,42,2,1317,0)="""RTN"",""HLOCLNT2"",82,0)"
^XMB(3.9,42,2,1318,0)=" ;     separately, this field indicates the position within the current"
^XMB(3.9,42,2,1319,0)="""RTN"",""HLOCLNT2"",83,0)"
^XMB(3.9,42,2,1320,0)=" ;     individual message"
^XMB(3.9,42,2,1321,0)="""RTN"",""HLOCLNT2"",84,0)"
^XMB(3.9,42,2,1322,0)=" ;   ""HDR"" at these lower subscripts:"
^XMB(3.9,42,2,1323,0)="""RTN"",""HLOCLNT2"",85,0)"
^XMB(3.9,42,2,1324,0)=" ; 1    - components 1-6"
^XMB(3.9,42,2,1325,0)="""RTN"",""HLOCLNT2"",86,0)"
^XMB(3.9,42,2,1326,0)=" ; 2    - components 7-end"
^XMB(3.9,42,2,1327,0)="""RTN"",""HLOCLNT2"",87,0)"
^XMB(3.9,42,2,1328,0)=" ; ""ACCEPT ACK TYPE"" = ""AL"" or ""NE"""
^XMB(3.9,42,2,1329,0)="""RTN"",""HLOCLNT2"",88,0)"
^XMB(3.9,42,2,1330,0)=" ; ""APP ACK TYPE"" = ""AL"" or ""NE"""
^XMB(3.9,42,2,1331,0)="""RTN"",""HLOCLNT2"",89,0)"
^XMB(3.9,42,2,1332,0)=" ; ""MESSAGE CONTROL ID"" - defined if NOT batch"
^XMB(3.9,42,2,1333,0)="""RTN"",""HLOCLNT2"",90,0)"
^XMB(3.9,42,2,1334,0)=" ; ""BATCH CONTROL ID"" - defined if batch"
^XMB(3.9,42,2,1335,0)="""RTN"",""HLOCLNT2"",91,0)"
^XMB(3.9,42,2,1336,0)=" ;"
^XMB(3.9,42,2,1337,0)="""RTN"",""HLOCLNT2"",92,0)"
^XMB(3.9,42,2,1338,0)=" ;"
^XMB(3.9,42,2,1339,0)="""RTN"",""HLOCLNT2"",93,0)"
^XMB(3.9,42,2,1340,0)=" ;   ""IEN"" - ien, file 778"
^XMB(3.9,42,2,1341,0)="""RTN"",""HLOCLNT2"",94,0)"
^XMB(3.9,42,2,1342,0)=" ;"
^XMB(3.9,42,2,1343,0)="""RTN"",""HLOCLNT2"",95,0)"
^XMB(3.9,42,2,1344,0)=" K MSG"
^XMB(3.9,42,2,1345,0)="""RTN"",""HLOCLNT2"",96,0)"
^XMB(3.9,42,2,1346,0)=" Q:'$G(IEN) 0"
^XMB(3.9,42,2,1347,0)="""RTN"",""HLOCLNT2"",97,0)"
^XMB(3.9,42,2,1348,0)=" N NODE,FS,CS"
^XMB(3.9,42,2,1349,0)="""RTN"",""HLOCLNT2"",98,0)"
^XMB(3.9,42,2,1350,0)=" S MSG(""IEN"")=IEN"
^XMB(3.9,42,2,1351,0)="""RTN"",""HLOCLNT2"",99,0)"
^XMB(3.9,42,2,1352,0)=" S NODE=$G(^HLB(IEN,0))"
^XMB(3.9,42,2,1353,0)="""RTN"",""HLOCLNT2"",100,0)"
^XMB(3.9,42,2,1354,0)=" S MSG(""BODY"")=$P(NODE,""^"",2)"
^XMB(3.9,42,2,1355,0)="""RTN"",""HLOCLNT2"",101,0)"
^XMB(3.9,42,2,1356,0)=" Q:'MSG(""BODY"") 0"
^XMB(3.9,42,2,1357,0)="""RTN"",""HLOCLNT2"",102,0)"
^XMB(3.9,42,2,1358,0)=" S MSG(""STATUS"",""ACCEPTED"")=$P(NODE,""^"",17)"
^XMB(3.9,42,2,1359,0)="""RTN"",""HLOCLNT2"",103,0)"
^XMB(3.9,42,2,1360,0)=" S MSG(""DT/TM"")=$P(NODE,""^"",16)"
^XMB(3.9,42,2,1361,0)="""RTN"",""HLOCLNT2"",104,0)"
^XMB(3.9,42,2,1362,0)=" S MSG(""STATUS"",""QUEUE"")=$P(NODE,""^"",6)"
^XMB(3.9,42,2,1363,0)="""RTN"",""HLOCLNT2"",105,0)"
^XMB(3.9,42,2,1364,0)=" I MSG(""STATUS"",""QUEUE"")="""" S MSG(""STATUS"",""QUEUE"")=""DEFAULT"""
^XMB(3.9,42,2,1365,0)="""RTN"",""HLOCLNT2"",106,0)"
^XMB(3.9,42,2,1366,0)=" S MSG(""ACCEPT ACK RESPONSE"")=$P(NODE,""^"",12,13)"
^XMB(3.9,42,2,1367,0)="""RTN"",""HLOCLNT2"",107,0)"
^XMB(3.9,42,2,1368,0)=" I MSG(""ACCEPT ACK RESPONSE"")=""^"" S MSG(""ACCEPT ACK RESPONSE"")="""""
^XMB(3.9,42,2,1369,0)="""RTN"",""HLOCLNT2"",108,0)"
^XMB(3.9,42,2,1370,0)=" ;"
^XMB(3.9,42,2,1371,0)="""RTN"",""HLOCLNT2"",109,0)"
^XMB(3.9,42,2,1372,0)=" S MSG(""BATCH"")=+$P($G(^HLA(MSG(""BODY""),0)),""^"",2)"
^XMB(3.9,42,2,1373,0)="""RTN"",""HLOCLNT2"",110,0)"
^XMB(3.9,42,2,1374,0)=" I MSG(""BATCH"") S MSG(""BATCH"",""CURRENT MESSAGE"")=0"
^XMB(3.9,42,2,1375,0)="""RTN"",""HLOCLNT2"",111,0)"
^XMB(3.9,42,2,1376,0)=" S MSG(""LINE COUNT"")=0"
^XMB(3.9,42,2,1377,0)="""RTN"",""HLOCLNT2"",112,0)"
^XMB(3.9,42,2,1378,0)=" S MSG(""HDR"",1)=$G(^HLB(IEN,1))"
^XMB(3.9,42,2,1379,0)="""RTN"",""HLOCLNT2"",113,0)"
^XMB(3.9,42,2,1380,0)=" S MSG(""HDR"",2)=$G(^HLB(IEN,2))"
^XMB(3.9,42,2,1381,0)="""RTN"",""HLOCLNT2"",114,0)"
^XMB(3.9,42,2,1382,0)=" S FS=$E(MSG(""HDR"",1),4)"
^XMB(3.9,42,2,1383,0)="""RTN"",""HLOCLNT2"",115,0)"
^XMB(3.9,42,2,1384,0)=" S CS=$E(MSG(""HDR"",1),5)"
^XMB(3.9,42,2,1385,0)="""RTN"",""HLOCLNT2"",116,0)"
^XMB(3.9,42,2,1386,0)=" S MSG(""HDR"",""FIELD SEPARATOR"")=FS"
^XMB(3.9,42,2,1387,0)="""RTN"",""HLOCLNT2"",117,0)"
^XMB(3.9,42,2,1388,0)=" S MSG(""HDR"",""SENDING APPLICATION"")=$P($P(MSG(""HDR"",1),FS,3),CS)"
^XMB(3.9,42,2,1389,0)="""RTN"",""HLOCLNT2"",118,0)"
^XMB(3.9,42,2,1390,0)=" S MSG(""HDR"",""RECEIVING APPLICATION"")=$P($P(MSG(""HDR"",1),FS,5),CS)"
^XMB(3.9,42,2,1391,0)="""RTN"",""HLOCLNT2"",119,0)"
^XMB(3.9,42,2,1392,0)=" I 'MSG(""BATCH"") D"
^XMB(3.9,42,2,1393,0)="""RTN"",""HLOCLNT2"",120,0)"
^XMB(3.9,42,2,1394,0)=" .S MSG(""HDR"",""MESSAGE TYPE"")=$P($P(MSG(""HDR"",2),FS,4),CS)"
^XMB(3.9,42,2,1395,0)="""RTN"",""HLOCLNT2"",121,0)"
^XMB(3.9,42,2,1396,0)=" .S MSG(""HDR"",""EVENT"")=$P($P(MSG(""HDR"",2),FS,4),CS,2)"
^XMB(3.9,42,2,1397,0)="""RTN"",""HLOCLNT2"",122,0)"
^XMB(3.9,42,2,1398,0)=" .S MSG(""HDR"",""ACCEPT ACK TYPE"")=$E($P(MSG(""HDR"",2),FS,10),1,2)"
^XMB(3.9,42,2,1399,0)="""RTN"",""HLOCLNT2"",123,0)"
^XMB(3.9,42,2,1400,0)=" .S MSG(""HDR"",""APP ACK TYPE"")=$E($P(MSG(""HDR"",2),FS,11),1,2)"
^XMB(3.9,42,2,1401,0)="""RTN"",""HLOCLNT2"",124,0)"
^XMB(3.9,42,2,1402,0)=" .S MSG(""HDR"",""MESSAGE CONTROL ID"")=$P(MSG(""HDR"",2),FS,5)"
^XMB(3.9,42,2,1403,0)="""RTN"",""HLOCLNT2"",125,0)"
^XMB(3.9,42,2,1404,0)=" E  D"
^XMB(3.9,42,2,1405,0)="""RTN"",""HLOCLNT2"",126,0)"
^XMB(3.9,42,2,1406,0)=" .S MSG(""HDR"",""BATCH CONTROL ID"")=$P(MSG(""HDR"",2),FS,6)"
^XMB(3.9,42,2,1407,0)="""RTN"",""HLOCLNT2"",127,0)"
^XMB(3.9,42,2,1408,0)=" .S MSG(""HDR"",""ACCEPT ACK TYPE"")=$E($P($P(MSG(""HDR"",2),FS,4),""ACCEPT ACK TYPE="",2),1,2)"
^XMB(3.9,42,2,1409,0)="""RTN"",""HLOCLNT2"",128,0)"
^XMB(3.9,42,2,1410,0)=" .S MSG(""HDR"",""APP ACK TYPE"")=$E($P($P(MSG(""HDR"",2),FS,4),""APP ACK TYPE="",2),1,2)"
^XMB(3.9,42,2,1411,0)="""RTN"",""HLOCLNT2"",129,0)"
^XMB(3.9,42,2,1412,0)=" Q 1"
^XMB(3.9,42,2,1413,0)="""RTN"",""HLOSRVR"")"
^XMB(3.9,42,2,1414,0)="0^4^B70554107"
^XMB(3.9,42,2,1415,0)="""RTN"",""HLOSRVR"",1,0)"
^XMB(3.9,42,2,1416,0)="HLOSRVR ;ALB/CJM- Server for receiving messages - 10/4/94 1pm"
^XMB(3.9,42,2,1417,0)="""RTN"",""HLOSRVR"",2,0)"
^XMB(3.9,42,2,1418,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126,130**;Oct 13, 1995;Build 10"
^XMB(3.9,42,2,1419,0)="""RTN"",""HLOSRVR"",3,0)"
^XMB(3.9,42,2,1420,0)=" ;"
^XMB(3.9,42,2,1421,0)="""RTN"",""HLOSRVR"",4,0)"
^XMB(3.9,42,2,1422,0)="GETWORK(WORK) ;"
^XMB(3.9,42,2,1423,0)="""RTN"",""HLOSRVR"",5,0)"
^XMB(3.9,42,2,1424,0)=" ;GET WORK function for a single server OR Taskman multi-server"
^XMB(3.9,42,2,1425,0)="""RTN"",""HLOSRVR"",6,0)"
^XMB(3.9,42,2,1426,0)=" N LINK"
^XMB(3.9,42,2,1427,0)="""RTN"",""HLOSRVR"",7,0)"
^XMB(3.9,42,2,1428,0)=" I '$$CHKSTOP^HLOPROC,$G(WORK(""LINK""))]"""",$$GETLINK^HLOTLNK(WORK(""LINK""),.LINK),+LINK(""SERVER"") S WORK(""PORT"")=LINK(""PORT"") Q 1"
^XMB(3.9,42,2,1429,0)="""RTN"",""HLOSRVR"",8,0)"
^XMB(3.9,42,2,1430,0)=" Q 0"
^XMB(3.9,42,2,1431,0)="""RTN"",""HLOSRVR"",9,0)"
^XMB(3.9,42,2,1432,0)=" ;"
^XMB(3.9,42,2,1433,0)="""RTN"",""HLOSRVR"",10,0)"
^XMB(3.9,42,2,1434,0)="DOWORKS(WORK) ;"
^XMB(3.9,42,2,1435,0)="""RTN"",""HLOSRVR"",11,0)"
^XMB(3.9,42,2,1436,0)=" ;DO WORK rtn for a single server (non-concurrent)"
^XMB(3.9,42,2,1437,0)="""RTN"",""HLOSRVR"",12,0)"
^XMB(3.9,42,2,1438,0)=" D SERVER(WORK(""LINK""))"
^XMB(3.9,42,2,1439,0)="""RTN"",""HLOSRVR"",13,0)"
^XMB(3.9,42,2,1440,0)=" Q"
^XMB(3.9,42,2,1441,0)="""RTN"",""HLOSRVR"",14,0)"
^XMB(3.9,42,2,1442,0)="DOWORKM(WORK) ;"
^XMB(3.9,42,2,1443,0)="""RTN"",""HLOSRVR"",15,0)"
^XMB(3.9,42,2,1444,0)=" ;DO WORK rtn for a Taskman multi-server (Cache systems only)"
^XMB(3.9,42,2,1445,0)="""RTN"",""HLOSRVR"",16,0)"
^XMB(3.9,42,2,1446,0)=" D LISTEN^%ZISTCPS(WORK(""PORT""),""SERVER^HLOSRVR(""""""_WORK(""LINK"")_"""""")"")"
^XMB(3.9,42,2,1447,0)="""RTN"",""HLOSRVR"",17,0)"
^XMB(3.9,42,2,1448,0)=" Q"
^XMB(3.9,42,2,1449,0)="""RTN"",""HLOSRVR"",18,0)"
^XMB(3.9,42,2,1450,0)=" ;"
^XMB(3.9,42,2,1451,0)="""RTN"",""HLOSRVR"",19,0)"
^XMB(3.9,42,2,1452,0)="VMS ;called from VMS TCP Service once a connection request has been received"
^XMB(3.9,42,2,1453,0)="""RTN"",""HLOSRVR"",20,0)"
^XMB(3.9,42,2,1454,0)=" Q:$$CHKSTOP^HLOPROC"
^XMB(3.9,42,2,1455,0)="""RTN"",""HLOSRVR"",21,0)"
^XMB(3.9,42,2,1456,0)=" N LINKNAME,PROC"
^XMB(3.9,42,2,1457,0)="""RTN"",""HLOSRVR"",22,0)"
^XMB(3.9,42,2,1458,0)=" S PROC=$O(^HLD(779.3,""B"",""VMS TCP LISTENER"",0))"
^XMB(3.9,42,2,1459,0)="""RTN"",""HLOSRVR"",23,0)"
^XMB(3.9,42,2,1460,0)=" I 'PROC D ^%ZTER Q"
^XMB(3.9,42,2,1461,0)="""RTN"",""HLOSRVR"",24,0)"
^XMB(3.9,42,2,1462,0)=" S LINKNAME=$P($G(^HLD(779.3,PROC,0)),""^"",14)"
^XMB(3.9,42,2,1463,0)="""RTN"",""HLOSRVR"",25,0)"
^XMB(3.9,42,2,1464,0)=" I $G(LINKNAME)="""" D ^%ZTER Q"
^XMB(3.9,42,2,1465,0)="""RTN"",""HLOSRVR"",26,0)"
^XMB(3.9,42,2,1466,0)=" D SERVER(LINKNAME,""SYS$NET"")"
^XMB(3.9,42,2,1467,0)="""RTN"",""HLOSRVR"",27,0)"
^XMB(3.9,42,2,1468,0)=" Q"
^XMB(3.9,42,2,1469,0)="""RTN"",""HLOSRVR"",28,0)"
^XMB(3.9,42,2,1470,0)=" ;"
^XMB(3.9,42,2,1471,0)="""RTN"",""HLOSRVR"",29,0)"
^XMB(3.9,42,2,1472,0)="SERVER(LINKNAME,LOGICAL) ; LINKNAME identifies the logical link, which describes the communication channel to be used"
^XMB(3.9,42,2,1473,0)="""RTN"",""HLOSRVR"",30,0)"
^XMB(3.9,42,2,1474,0)=" N $ETRAP,$ESTACK S $ETRAP=""G ERROR^HLOSRVR1"""
^XMB(3.9,42,2,1475,0)="""RTN"",""HLOSRVR"",31,0)"
^XMB(3.9,42,2,1476,0)=" N HLCSTATE,INQUE"
^XMB(3.9,42,2,1477,0)="""RTN"",""HLOSRVR"",32,0)"
^XMB(3.9,42,2,1478,0)=" S INQUE=0"
^XMB(3.9,42,2,1479,0)="""RTN"",""HLOSRVR"",33,0)"
^XMB(3.9,42,2,1480,0)=" Q:'$$CONNECT(.HLCSTATE,LINKNAME,.LOGICAL)"
^XMB(3.9,42,2,1481,0)="""RTN"",""HLOSRVR"",34,0)"
^XMB(3.9,42,2,1482,0)=" K LINKNAME"
^XMB(3.9,42,2,1483,0)="""RTN"",""HLOSRVR"",35,0)"
^XMB(3.9,42,2,1484,0)=" F  Q:'HLCSTATE(""CONNECTED"")  D  Q:$$CHKSTOP^HLOPROC"
^XMB(3.9,42,2,1485,0)="""RTN"",""HLOSRVR"",36,0)"
^XMB(3.9,42,2,1486,0)=" .N HLMSTATE,SENT"
^XMB(3.9,42,2,1487,0)="""RTN"",""HLOSRVR"",37,0)"
^XMB(3.9,42,2,1488,0)=" .I $$READMSG^HLOSRVR1(.HLCSTATE,.HLMSTATE) D"
^XMB(3.9,42,2,1489,0)="""RTN"",""HLOSRVR"",38,0)"
^XMB(3.9,42,2,1490,0)=" ..;$$READMSG also parses the hdr and determines what to do - HLMSTATE(""MSA"",1) is the ack to return= <"""",""CA"",""CE"",""CR"",""AE"">"
^XMB(3.9,42,2,1491,0)="""RTN"",""HLOSRVR"",39,0)"
^XMB(3.9,42,2,1492,0)=" ..;send an ack if required and save the MSA segment"
^XMB(3.9,42,2,1493,0)="""RTN"",""HLOSRVR"",40,0)"
^XMB(3.9,42,2,1494,0)=" ..I (HLMSTATE(""MSA"",1)]"""") S SENT=$$WRITEACK(.HLCSTATE,.HLMSTATE) D:HLMSTATE(""IEN"") SAVEACK(.HLMSTATE,SENT)"
^XMB(3.9,42,2,1495,0)="""RTN"",""HLOSRVR"",41,0)"
^XMB(3.9,42,2,1496,0)=" ..D:HLMSTATE(""IEN"") UPDATE(.HLMSTATE,.HLCSTATE)"
^XMB(3.9,42,2,1497,0)="""RTN"",""HLOSRVR"",42,0)"
^XMB(3.9,42,2,1498,0)=" ..D:HLCSTATE(""COUNTS"")>4 SAVECNTS^HLOSTAT(.HLCSTATE)"
^XMB(3.9,42,2,1499,0)="""RTN"",""HLOSRVR"",43,0)"
^XMB(3.9,42,2,1500,0)=" .E  D INQUE() H 1"
^XMB(3.9,42,2,1501,0)="""RTN"",""HLOSRVR"",44,0)"
^XMB(3.9,42,2,1502,0)=" ;"
^XMB(3.9,42,2,1503,0)="""RTN"",""HLOSRVR"",45,0)"
^XMB(3.9,42,2,1504,0)="END D CLOSE^HLOT(.HLCSTATE)"
^XMB(3.9,42,2,1505,0)="""RTN"",""HLOSRVR"",46,0)"
^XMB(3.9,42,2,1506,0)=" D INQUE()"
^XMB(3.9,42,2,1507,0)="""RTN"",""HLOSRVR"",47,0)"
^XMB(3.9,42,2,1508,0)=" D SAVECNTS^HLOSTAT(.HLCSTATE)"
^XMB(3.9,42,2,1509,0)="""RTN"",""HLOSRVR"",48,0)"
^XMB(3.9,42,2,1510,0)=" Q"
^XMB(3.9,42,2,1511,0)="""RTN"",""HLOSRVR"",49,0)"
^XMB(3.9,42,2,1512,0)=" ;"
^XMB(3.9,42,2,1513,0)="""RTN"",""HLOSRVR"",50,0)"
^XMB(3.9,42,2,1514,0)="CONNECT(HLCSTATE,LINKNAME,LOGICAL) ;"
^XMB(3.9,42,2,1515,0)="""RTN"",""HLOSRVR"",51,0)"
^XMB(3.9,42,2,1516,0)=" ;sets up HLCSTATE() and opens a server connection"
^XMB(3.9,42,2,1517,0)="""RTN"",""HLOSRVR"",52,0)"
^XMB(3.9,42,2,1518,0)=" ;"
^XMB(3.9,42,2,1519,0)="""RTN"",""HLOSRVR"",53,0)"
^XMB(3.9,42,2,1520,0)=" N LINK,NODE"
^XMB(3.9,42,2,1521,0)="""RTN"",""HLOSRVR"",54,0)"
^XMB(3.9,42,2,1522,0)=" Q:'$$GETLINK^HLOTLNK(LINKNAME,.LINK) 0"
^XMB(3.9,42,2,1523,0)="""RTN"",""HLOSRVR"",55,0)"
^XMB(3.9,42,2,1524,0)=" Q:+LINK(""SERVER"")'=1 0"
^XMB(3.9,42,2,1525,0)="""RTN"",""HLOSRVR"",56,0)"
^XMB(3.9,42,2,1526,0)=" S HLCSTATE(""SERVER"")=LINK(""SERVER"")"
^XMB(3.9,42,2,1527,0)="""RTN"",""HLOSRVR"",57,0)"
^XMB(3.9,42,2,1528,0)=" M HLCSTATE(""LINK"")=LINK"
^XMB(3.9,42,2,1529,0)="""RTN"",""HLOSRVR"",58,0)"
^XMB(3.9,42,2,1530,0)=" S HLCSTATE(""ATTEMPT"")=1 ;count of #of read attempts, incremented if a message hdr is read but the read fails before the end"
^XMB(3.9,42,2,1531,0)="""RTN"",""HLOSRVR"",59,0)"
^XMB(3.9,42,2,1532,0)=" S HLCSTATE(""READ"")="""" ;where the reads are stored"
^XMB(3.9,42,2,1533,0)="""RTN"",""HLOSRVR"",60,0)"
^XMB(3.9,42,2,1534,0)=" ;"
^XMB(3.9,42,2,1535,0)="""RTN"",""HLOSRVR"",61,0)"
^XMB(3.9,42,2,1536,0)=" ;HLCSTATE(""BUFFER"",<seg>,<line>) serves as a write buffer so that a lot can be written all at once"
^XMB(3.9,42,2,1537,0)="""RTN"",""HLOSRVR"",62,0)"
^XMB(3.9,42,2,1538,0)=" S HLCSTATE(""BUFFER"",""BYTE COUNT"")=0 ;count of BYTES in buffer"
^XMB(3.9,42,2,1539,0)="""RTN"",""HLOSRVR"",63,0)"
^XMB(3.9,42,2,1540,0)=" S HLCSTATE(""BUFFER"",""SEGMENT COUNT"")=0 ;count of segments in buffer"
^XMB(3.9,42,2,1541,0)="""RTN"",""HLOSRVR"",64,0)"
^XMB(3.9,42,2,1542,0)=" ;"
^XMB(3.9,42,2,1543,0)="""RTN"",""HLOSRVR"",65,0)"
^XMB(3.9,42,2,1544,0)=" S HLCSTATE(""COUNTS"")=0"
^XMB(3.9,42,2,1545,0)="""RTN"",""HLOSRVR"",66,0)"
^XMB(3.9,42,2,1546,0)=" S HLCSTATE(""MESSAGE ENDED"")=0 ;end of message flag"
^XMB(3.9,42,2,1547,0)="""RTN"",""HLOSRVR"",67,0)"
^XMB(3.9,42,2,1548,0)=" S NODE=^%ZOSF(""OS"")"
^XMB(3.9,42,2,1549,0)="""RTN"",""HLOSRVR"",68,0)"
^XMB(3.9,42,2,1550,0)=" S HLCSTATE(""SYSTEM"",""OS"")=$S(NODE[""DSM"":""DSM"",NODE[""OpenM"":""CACHE"",NODE[""G.TM"":""G.TM"",1:"""")"
^XMB(3.9,42,2,1551,0)="""RTN"",""HLOSRVR"",69,0)"
^XMB(3.9,42,2,1552,0)=" Q:HLCSTATE(""SYSTEM"",""OS"")="""" 0"
^XMB(3.9,42,2,1553,0)="""RTN"",""HLOSRVR"",70,0)"
^XMB(3.9,42,2,1554,0)=" D  ;get necessary system parameters"
^XMB(3.9,42,2,1555,0)="""RTN"",""HLOSRVR"",71,0)"
^XMB(3.9,42,2,1556,0)=" .N SYS,SUB"
^XMB(3.9,42,2,1557,0)="""RTN"",""HLOSRVR"",72,0)"
^XMB(3.9,42,2,1558,0)=" .D SYSPARMS^HLOSITE(.SYS)"
^XMB(3.9,42,2,1559,0)="""RTN"",""HLOSRVR"",73,0)"
^XMB(3.9,42,2,1560,0)=" .F SUB=""MAXSTRING"",""DOMAIN"",""STATION"",""PROCESSING ID"",""NORMAL PURGE"",""ERROR PURGE"" S HLCSTATE(""SYSTEM"",SUB)=SYS(SUB)"
^XMB(3.9,42,2,1561,0)="""RTN"",""HLOSRVR"",74,0)"
^XMB(3.9,42,2,1562,0)=" .S HLCSTATE(""SYSTEM"",""BUFFER"")=SYS(""HL7 BUFFER"")"
^XMB(3.9,42,2,1563,0)="""RTN"",""HLOSRVR"",75,0)"
^XMB(3.9,42,2,1564,0)=" I HLCSTATE(""LINK"",""LLP"")=""TCP"" D"
^XMB(3.9,42,2,1565,0)="""RTN"",""HLOSRVR"",76,0)"
^XMB(3.9,42,2,1566,0)=" .D OPEN^HLOTCP(.HLCSTATE,.LOGICAL)"
^XMB(3.9,42,2,1567,0)="""RTN"",""HLOSRVR"",77,0)"
^XMB(3.9,42,2,1568,0)=" ;E  I HLCSTATE(""LINK"",""LLP"")=""HLLP"" D  ;serial"
^XMB(3.9,42,2,1569,0)="""RTN"",""HLOSRVR"",78,0)"
^XMB(3.9,42,2,1570,0)=" ;.;serial connections are deferred for later development"
^XMB(3.9,42,2,1571,0)="""RTN"",""HLOSRVR"",79,0)"
^XMB(3.9,42,2,1572,0)=" ;"
^XMB(3.9,42,2,1573,0)="""RTN"",""HLOSRVR"",80,0)"
^XMB(3.9,42,2,1574,0)=" Q HLCSTATE(""CONNECTED"")"
^XMB(3.9,42,2,1575,0)="""RTN"",""HLOSRVR"",81,0)"
^XMB(3.9,42,2,1576,0)=" ;"
^XMB(3.9,42,2,1577,0)="""RTN"",""HLOSRVR"",82,0)"
^XMB(3.9,42,2,1578,0)="INQUE(MSGIEN,PARMS) ;"
^XMB(3.9,42,2,1579,0)="""RTN"",""HLOSRVR"",83,0)"
^XMB(3.9,42,2,1580,0)=" ;puts received messages on the incoming queue and sets the B x-refs"
^XMB(3.9,42,2,1581,0)="""RTN"",""HLOSRVR"",84,0)"
^XMB(3.9,42,2,1582,0)=" I $G(MSGIEN) S INQUE=INQUE+1 M INQUE(MSGIEN)=PARMS"
^XMB(3.9,42,2,1583,0)="""RTN"",""HLOSRVR"",85,0)"
^XMB(3.9,42,2,1584,0)=" I ('$G(MSGIEN))!(INQUE>20) S MSGIEN=0 D"
^XMB(3.9,42,2,1585,0)="""RTN"",""HLOSRVR"",86,0)"
^XMB(3.9,42,2,1586,0)=" .F  S MSGIEN=$O(INQUE(MSGIEN)) Q:'MSGIEN  D"
^XMB(3.9,42,2,1587,0)="""RTN"",""HLOSRVR"",87,0)"
^XMB(3.9,42,2,1588,0)=" ..S ^HLB(""B"",INQUE(MSGIEN,""MSGID""),MSGIEN)="""""
^XMB(3.9,42,2,1589,0)="""RTN"",""HLOSRVR"",88,0)"
^XMB(3.9,42,2,1590,0)=" ..S ^HLA(""B"",INQUE(MSGIEN,""DT/TM""),INQUE(MSGIEN,""BODY""))="""""
^XMB(3.9,42,2,1591,0)="""RTN"",""HLOSRVR"",89,0)"
^XMB(3.9,42,2,1592,0)=" ..D:INQUE(MSGIEN,""PASS"")"
^XMB(3.9,42,2,1593,0)="""RTN"",""HLOSRVR"",90,0)"
^XMB(3.9,42,2,1594,0)=" ...N PURGE"
^XMB(3.9,42,2,1595,0)="""RTN"",""HLOSRVR"",91,0)"
^XMB(3.9,42,2,1596,0)=" ...S PURGE=+$G(INQUE(MSGIEN,""PURGE""))"
^XMB(3.9,42,2,1597,0)="""RTN"",""HLOSRVR"",92,0)"
^XMB(3.9,42,2,1598,0)=" ...S PURGE(""ACKTOIEN"")=$G(INQUE(MSGIEN,""ACKTOIEN""))"
^XMB(3.9,42,2,1599,0)="""RTN"",""HLOSRVR"",93,0)"
^XMB(3.9,42,2,1600,0)=" ...D INQUE^HLOQUE(INQUE(MSGIEN,""FROM""),INQUE(MSGIEN,""QUEUE""),MSGIEN,INQUE(MSGIEN,""ACTION""),.PURGE)"
^XMB(3.9,42,2,1601,0)="""RTN"",""HLOSRVR"",94,0)"
^XMB(3.9,42,2,1602,0)=" .K INQUE S INQUE=0"
^XMB(3.9,42,2,1603,0)="""RTN"",""HLOSRVR"",95,0)"
^XMB(3.9,42,2,1604,0)=" Q"
^XMB(3.9,42,2,1605,0)="""RTN"",""HLOSRVR"",96,0)"
^XMB(3.9,42,2,1606,0)=" ;"
^XMB(3.9,42,2,1607,0)="""RTN"",""HLOSRVR"",97,0)"
^XMB(3.9,42,2,1608,0)="SAVEACK(HLMSTATE,SENT) ;"
^XMB(3.9,42,2,1609,0)="""RTN"",""HLOSRVR"",98,0)"
^XMB(3.9,42,2,1610,0)=" ;Input:"
^XMB(3.9,42,2,1611,0)="""RTN"",""HLOSRVR"",99,0)"
^XMB(3.9,42,2,1612,0)=" ;  SENT - flag = 1 if transmission of ack succeeded, 0 otherwise"
^XMB(3.9,42,2,1613,0)="""RTN"",""HLOSRVR"",100,0)"
^XMB(3.9,42,2,1614,0)=" ;"
^XMB(3.9,42,2,1615,0)="""RTN"",""HLOSRVR"",101,0)"
^XMB(3.9,42,2,1616,0)=" N NODE,I"
^XMB(3.9,42,2,1617,0)="""RTN"",""HLOSRVR"",102,0)"
^XMB(3.9,42,2,1618,0)=" S $P(NODE,""^"")=HLMSTATE(""MSA"",""DT/TM OF MESSAGE"")"
^XMB(3.9,42,2,1619,0)="""RTN"",""HLOSRVR"",103,0)"
^XMB(3.9,42,2,1620,0)=" S $P(NODE,""^"",2)=HLMSTATE(""MSA"",""MESSAGE CONTROL ID"")"
^XMB(3.9,42,2,1621,0)="""RTN"",""HLOSRVR"",104,0)"
^XMB(3.9,42,2,1622,0)=" S $P(NODE,""^"",3)=""MSA"""
^XMB(3.9,42,2,1623,0)="""RTN"",""HLOSRVR"",105,0)"
^XMB(3.9,42,2,1624,0)=" F I=1:1:3 S NODE=NODE_""|""_$G(HLMSTATE(""MSA"",I))"
^XMB(3.9,42,2,1625,0)="""RTN"",""HLOSRVR"",106,0)"
^XMB(3.9,42,2,1626,0)=" S ^HLB(HLMSTATE(""IEN""),4)=NODE"
^XMB(3.9,42,2,1627,0)="""RTN"",""HLOSRVR"",107,0)"
^XMB(3.9,42,2,1628,0)=" S:SENT $P(^HLB(HLMSTATE(""IEN""),0),""^"",$S($E(HLMSTATE(""MSA"",1))=""A"":18,1:17))=1"
^XMB(3.9,42,2,1629,0)="""RTN"",""HLOSRVR"",108,0)"
^XMB(3.9,42,2,1630,0)=" Q"
^XMB(3.9,42,2,1631,0)="""RTN"",""HLOSRVR"",109,0)"
^XMB(3.9,42,2,1632,0)=" ;"
^XMB(3.9,42,2,1633,0)="""RTN"",""HLOSRVR"",110,0)"
^XMB(3.9,42,2,1634,0)="UPDATE(HLMSTATE,HLCSTATE) ;"
^XMB(3.9,42,2,1635,0)="""RTN"",""HLOSRVR"",111,0)"
^XMB(3.9,42,2,1636,0)=" ;Updates status and purge date when appropriate"
^XMB(3.9,42,2,1637,0)="""RTN"",""HLOSRVR"",112,0)"
^XMB(3.9,42,2,1638,0)=" ;Also, sets the ""B"" xrefs, files 777,778, and places message on the incoming queue"
^XMB(3.9,42,2,1639,0)="""RTN"",""HLOSRVR"",113,0)"
^XMB(3.9,42,2,1640,0)=" ;"
^XMB(3.9,42,2,1641,0)="""RTN"",""HLOSRVR"",114,0)"
^XMB(3.9,42,2,1642,0)=" N PARMS,PURGE,WAIT"
^XMB(3.9,42,2,1643,0)="""RTN"",""HLOSRVR"",115,0)"
^XMB(3.9,42,2,1644,0)=" S PARMS(""PASS"")=0"
^XMB(3.9,42,2,1645,0)="""RTN"",""HLOSRVR"",116,0)"
^XMB(3.9,42,2,1646,0)=" I HLMSTATE(""STATUS"",""ACTION"")]"""",HLMSTATE(""STATUS"")'=""SE"" S PARMS(""PASS"")=1,$P(^HLB(HLMSTATE(""IEN""),0),""^"",6)=HLMSTATE(""STATUS"",""QUEUE"")"
^XMB(3.9,42,2,1647,0)="""RTN"",""HLOSRVR"",117,0)"
^XMB(3.9,42,2,1648,0)=" D:'PARMS(""PASS"")  ;if not passing to the app, set the purge date"
^XMB(3.9,42,2,1649,0)="""RTN"",""HLOSRVR"",118,0)"
^XMB(3.9,42,2,1650,0)=" .I HLMSTATE(""STATUS"")="""" S HLMSTATE(""STATUS"")=""SU"""
^XMB(3.9,42,2,1651,0)="""RTN"",""HLOSRVR"",119,0)"
^XMB(3.9,42,2,1652,0)=" .S:HLMSTATE(""BATCH"") WAIT=HLCSTATE(""SYSTEM"",""ERROR PURGE"")"
^XMB(3.9,42,2,1653,0)="""RTN"",""HLOSRVR"",120,0)"
^XMB(3.9,42,2,1654,0)=" .S:'HLMSTATE(""BATCH"") WAIT=$S(HLMSTATE(""STATUS"")=""SE"":24*HLCSTATE(""SYSTEM"",""ERROR PURGE""),1:HLCSTATE(""SYSTEM"",""NORMAL PURGE""))"
^XMB(3.9,42,2,1655,0)="""RTN"",""HLOSRVR"",121,0)"
^XMB(3.9,42,2,1656,0)=" .S PURGE=$$FMADD^XLFDT($$NOW^XLFDT,,WAIT)"
^XMB(3.9,42,2,1657,0)="""RTN"",""HLOSRVR"",122,0)"
^XMB(3.9,42,2,1658,0)=" .S $P(^HLB(HLMSTATE(""IEN""),0),""^"",9)=PURGE"
^XMB(3.9,42,2,1659,0)="""RTN"",""HLOSRVR"",123,0)"
^XMB(3.9,42,2,1660,0)=" .S ^HLB(""AD"",""IN"",PURGE,HLMSTATE(""IEN""))="""""
^XMB(3.9,42,2,1661,0)="""RTN"",""HLOSRVR"",124,0)"
^XMB(3.9,42,2,1662,0)=" ;"
^XMB(3.9,42,2,1663,0)="""RTN"",""HLOSRVR"",125,0)"
^XMB(3.9,42,2,1664,0)=" ;if not waiting for an application ack, set the status now even if passing to the app - but don't set the purge until the infiler passes the message"
^XMB(3.9,42,2,1665,0)="""RTN"",""HLOSRVR"",126,0)"
^XMB(3.9,42,2,1666,0)=" I HLMSTATE(""STATUS"")="""",HLMSTATE(""HDR"",""APP ACK TYPE"")'=""AL"" S HLMSTATE(""STATUS"")=""SU"""
^XMB(3.9,42,2,1667,0)="""RTN"",""HLOSRVR"",127,0)"
^XMB(3.9,42,2,1668,0)=" I HLMSTATE(""STATUS"")'="""" S $P(^HLB(HLMSTATE(""IEN""),0),""^"",20)=HLMSTATE(""STATUS"") S:$G(HLMSTATE(""MSA"",3))]"""" $P(^HLB(HLMSTATE(""IEN""),0),""^"",21)=HLMSTATE(""MSA"",3) D:HLMSTATE(""STATUS"")=""SE"""
^XMB(3.9,42,2,1669,0)="""RTN"",""HLOSRVR"",128,0)"
^XMB(3.9,42,2,1670,0)=" .N APP"
^XMB(3.9,42,2,1671,0)="""RTN"",""HLOSRVR"",129,0)"
^XMB(3.9,42,2,1672,0)=" .S APP=HLMSTATE(""HDR"",""RECEIVING APPLICATION"") S:APP="""" APP=""UNKNOWN"" S ^HLB(""ERRORS"",""SE"",APP,HLMSTATE(""DT/TM""),HLMSTATE(""IEN""))="""""
^XMB(3.9,42,2,1673,0)="""RTN"",""HLOSRVR"",130,0)"
^XMB(3.9,42,2,1674,0)=" ;"
^XMB(3.9,42,2,1675,0)="""RTN"",""HLOSRVR"",131,0)"
^XMB(3.9,42,2,1676,0)=" ;set the necessary parms for passing the msg to the app via the infiler"
^XMB(3.9,42,2,1677,0)="""RTN"",""HLOSRVR"",132,0)"
^XMB(3.9,42,2,1678,0)=" D:PARMS(""PASS"")"
^XMB(3.9,42,2,1679,0)="""RTN"",""HLOSRVR"",133,0)"
^XMB(3.9,42,2,1680,0)=" .N I,FROM"
^XMB(3.9,42,2,1681,0)="""RTN"",""HLOSRVR"",134,0)"
^XMB(3.9,42,2,1682,0)=" .S FROM=HLMSTATE(""HDR"",""SENDING FACILITY"",1)"
^XMB(3.9,42,2,1683,0)="""RTN"",""HLOSRVR"",135,0)"
^XMB(3.9,42,2,1684,0)=" .I HLMSTATE(""HDR"",""SENDING FACILITY"",2)]"""" S FROM=FROM_""~""_HLMSTATE(""HDR"",""SENDING FACILITY"",2)_""~""_HLMSTATE(""HDR"",""SENDING FACILITY"",3)"
^XMB(3.9,42,2,1685,0)="""RTN"",""HLOSRVR"",136,0)"
^XMB(3.9,42,2,1686,0)=" .I FROM="""" S FROM=""UNKNOWN SENDING FACILITY"""
^XMB(3.9,42,2,1687,0)="""RTN"",""HLOSRVR"",137,0)"
^XMB(3.9,42,2,1688,0)=" .S PARMS(""FROM"")=FROM,PARMS(""QUEUE"")=HLMSTATE(""STATUS"",""QUEUE""),PARMS(""ACTION"")=HLMSTATE(""STATUS"",""ACTION"")"
^XMB(3.9,42,2,1689,0)="""RTN"",""HLOSRVR"",138,0)"
^XMB(3.9,42,2,1690,0)=" .I HLMSTATE(""STATUS"")'="""" S PARMS(""PURGE"")=1"
^XMB(3.9,42,2,1691,0)="""RTN"",""HLOSRVR"",139,0)"
^XMB(3.9,42,2,1692,0)=" .S:$G(HLMSTATE(""ACK TO"",""IEN"")) PARMS(""ACKTOIEN"")=HLMSTATE(""ACK TO"",""IEN"") ;to insure that the infiler will know to set the purge date at the same time as the initial message"
^XMB(3.9,42,2,1693,0)="""RTN"",""HLOSRVR"",140,0)"
^XMB(3.9,42,2,1694,0)=" ;"
^XMB(3.9,42,2,1695,0)="""RTN"",""HLOSRVR"",141,0)"
^XMB(3.9,42,2,1696,0)=" S PARMS(""BODY"")=HLMSTATE(""BODY"")"
^XMB(3.9,42,2,1697,0)="""RTN"",""HLOSRVR"",142,0)"
^XMB(3.9,42,2,1698,0)=" S PARMS(""DT/TM"")=HLMSTATE(""DT/TM"")"
^XMB(3.9,42,2,1699,0)="""RTN"",""HLOSRVR"",143,0)"
^XMB(3.9,42,2,1700,0)=" S PARMS(""MSGID"")=$S(HLMSTATE(""BATCH""):HLMSTATE(""HDR"",""BATCH CONTROL ID""),1:HLMSTATE(""HDR"",""MESSAGE CONTROL ID""))"
^XMB(3.9,42,2,1701,0)="""RTN"",""HLOSRVR"",144,0)"
^XMB(3.9,42,2,1702,0)=" D INQUE(HLMSTATE(""IEN""),.PARMS)"
^XMB(3.9,42,2,1703,0)="""RTN"",""HLOSRVR"",145,0)"
^XMB(3.9,42,2,1704,0)=" Q"
^XMB(3.9,42,2,1705,0)="""RTN"",""HLOSRVR"",146,0)"
^XMB(3.9,42,2,1706,0)=" ;"
^XMB(3.9,42,2,1707,0)="""RTN"",""HLOSRVR"",147,0)"
^XMB(3.9,42,2,1708,0)="WRITEACK(HLCSTATE,HLMSTATE) ;"
^XMB(3.9,42,2,1709,0)="""RTN"",""HLOSRVR"",148,0)"
^XMB(3.9,42,2,1710,0)=" ;Sends an accept ack"
^XMB(3.9,42,2,1711,0)="""RTN"",""HLOSRVR"",149,0)"
^XMB(3.9,42,2,1712,0)=" ;"
^XMB(3.9,42,2,1713,0)="""RTN"",""HLOSRVR"",150,0)"
^XMB(3.9,42,2,1714,0)=" ;Input:"
^XMB(3.9,42,2,1715,0)="""RTN"",""HLOSRVR"",151,0)"
^XMB(3.9,42,2,1716,0)=" ;  HLCSTATE (pass by reference) defines the communication channel"
^XMB(3.9,42,2,1717,0)="""RTN"",""HLOSRVR"",152,0)"
^XMB(3.9,42,2,1718,0)=" ;  HLMSTATE (pass by reference) the message being acked"
^XMB(3.9,42,2,1719,0)="""RTN"",""HLOSRVR"",153,0)"
^XMB(3.9,42,2,1720,0)=" ;     (""MSA"",1) - value to put in MSA-1"
^XMB(3.9,42,2,1721,0)="""RTN"",""HLOSRVR"",154,0)"
^XMB(3.9,42,2,1722,0)=" ;     (""MSA"",2) - value to put in MSA-2"
^XMB(3.9,42,2,1723,0)="""RTN"",""HLOSRVR"",155,0)"
^XMB(3.9,42,2,1724,0)=" ;     (""MSA"",3) - value to put in MSA-3"
^XMB(3.9,42,2,1725,0)="""RTN"",""HLOSRVR"",156,0)"
^XMB(3.9,42,2,1726,0)=" ;     (""HDR"") - parsed values for the message being ack'd"
^XMB(3.9,42,2,1727,0)="""RTN"",""HLOSRVR"",157,0)"
^XMB(3.9,42,2,1728,0)=" ;Output:"
^XMB(3.9,42,2,1729,0)="""RTN"",""HLOSRVR"",158,0)"
^XMB(3.9,42,2,1730,0)=" ;  Function returns 1 if successful, 0 otherwise"
^XMB(3.9,42,2,1731,0)="""RTN"",""HLOSRVR"",159,0)"
^XMB(3.9,42,2,1732,0)=" ;  HLMSTATE(""MSA"",""MESSAGE CONTROL ID"") - the msg id of the ack"
^XMB(3.9,42,2,1733,0)="""RTN"",""HLOSRVR"",160,0)"
^XMB(3.9,42,2,1734,0)=" ;  HLMSTATE(,""MSA"",""DT/TM OF MESSAGE"") - from the ack header"
^XMB(3.9,42,2,1735,0)="""RTN"",""HLOSRVR"",161,0)"
^XMB(3.9,42,2,1736,0)=" ;"
^XMB(3.9,42,2,1737,0)="""RTN"",""HLOSRVR"",162,0)"
^XMB(3.9,42,2,1738,0)=" N HDR,SUB,FS,CS,MSA,ACKID,TIME"
^XMB(3.9,42,2,1739,0)="""RTN"",""HLOSRVR"",163,0)"
^XMB(3.9,42,2,1740,0)=" ;for simplicity, hard-code the delimiters, the standard requires that the receiving system accept the delimiters listed in the header"
^XMB(3.9,42,2,1741,0)="""RTN"",""HLOSRVR"",164,0)"
^XMB(3.9,42,2,1742,0)=" S FS=""|"""
^XMB(3.9,42,2,1743,0)="""RTN"",""HLOSRVR"",165,0)"
^XMB(3.9,42,2,1744,0)=" S CS=""^"""
^XMB(3.9,42,2,1745,0)="""RTN"",""HLOSRVR"",166,0)"
^XMB(3.9,42,2,1746,0)=" S TIME=$$NOW^XLFDT"
^XMB(3.9,42,2,1747,0)="""RTN"",""HLOSRVR"",167,0)"
^XMB(3.9,42,2,1748,0)=" S HLMSTATE(""MSA"",""DT/TM OF MESSAGE"")=TIME"
^XMB(3.9,42,2,1749,0)="""RTN"",""HLOSRVR"",168,0)"
^XMB(3.9,42,2,1750,0)=" S ACKID=HLCSTATE(""SYSTEM"",""STATION"")_"" ""_$$NEWIEN^HLOF778A(""OUT"")"
^XMB(3.9,42,2,1751,0)="""RTN"",""HLOSRVR"",169,0)"
^XMB(3.9,42,2,1752,0)=" S HLMSTATE(""MSA"",""MESSAGE CONTROL ID"")=ACKID"
^XMB(3.9,42,2,1753,0)="""RTN"",""HLOSRVR"",170,0)"
^XMB(3.9,42,2,1754,0)=" ;"
^XMB(3.9,42,2,1755,0)="""RTN"",""HLOSRVR"",171,0)"
^XMB(3.9,42,2,1756,0)=" S HDR(1)=""MSH""_FS_""^~\&""_FS_HLMSTATE(""HDR"",""RECEIVING APPLICATION"")_FS_HLCSTATE(""SYSTEM"",""STATION"")_CS_HLCSTATE(""SYSTEM"",""DOMAIN"")_CS_""DNS""_FS"
^XMB(3.9,42,2,1757,0)="""RTN"",""HLOSRVR"",172,0)"
^XMB(3.9,42,2,1758,0)=" S HDR(1)=HDR(1)_HLMSTATE(""HDR"",""SENDING APPLICATION"")_FS_HLMSTATE(""HDR"",""SENDING FACILITY"",1)_CS_HLMSTATE(""HDR"",""SENDING FACILITY"",2)_CS_HLMSTATE(""HDR"",""SENDING FACILITY"",3)"
^XMB(3.9,42,2,1759,0)="""RTN"",""HLOSRVR"",173,0)"
^XMB(3.9,42,2,1760,0)=" ;"
^XMB(3.9,42,2,1761,0)="""RTN"",""HLOSRVR"",174,0)"
^XMB(3.9,42,2,1762,0)=" S HDR(2)=FS_$$HLDATE^HLFNC(TIME,""TS"")_FS_FS_""ACK""_FS_ACKID_FS_HLMSTATE(""HDR"",""PROCESSING ID"")_FS_""2.4""_FS_FS_FS_""NE""_FS_""NE"""
^XMB(3.9,42,2,1763,0)="""RTN"",""HLOSRVR"",175,0)"
^XMB(3.9,42,2,1764,0)=" ;"
^XMB(3.9,42,2,1765,0)="""RTN"",""HLOSRVR"",176,0)"
^XMB(3.9,42,2,1766,0)=" S MSA(1)=""MSA""_FS"
^XMB(3.9,42,2,1767,0)="""RTN"",""HLOSRVR"",177,0)"
^XMB(3.9,42,2,1768,0)=" F SUB=1:1:3 S MSA(1)=MSA(1)_HLMSTATE(""MSA"",SUB)_FS"
^XMB(3.9,42,2,1769,0)="""RTN"",""HLOSRVR"",178,0)"
^XMB(3.9,42,2,1770,0)=" I $$WRITEHDR^HLOT(.HLCSTATE,.HDR),$$WRITESEG^HLOT(.HLCSTATE,.MSA),$$ENDMSG^HLOT(.HLCSTATE) S HLCSTATE(""COUNTS"",""ACKS"")=$G(HLCSTATE(""COUNTS"",""ACKS""))+1 Q 1"
^XMB(3.9,42,2,1771,0)="""RTN"",""HLOSRVR"",179,0)"
^XMB(3.9,42,2,1772,0)=" S HLMSTATE(""MSA"",""DT/TM OF MESSAGE"")="""""
^XMB(3.9,42,2,1773,0)="""RTN"",""HLOSRVR"",180,0)"
^XMB(3.9,42,2,1774,0)=" Q 0"
^XMB(3.9,42,2,1775,0)="""RTN"",""HLOSRVR"",181,0)"
^XMB(3.9,42,2,1776,0)=" ;"
^XMB(3.9,42,2,1777,0)="""RTN"",""HLOSRVR"",182,0)"
^XMB(3.9,42,2,1778,0)="NEWSTATE(HLCSTATE,HLMSTATE,HDR,MSA) ;"
^XMB(3.9,42,2,1779,0)="""RTN"",""HLOSRVR"",183,0)"
^XMB(3.9,42,2,1780,0)=" ;Inputs:"
^XMB(3.9,42,2,1781,0)="""RTN"",""HLOSRVR"",184,0)"
^XMB(3.9,42,2,1782,0)=" ;  HLCSTATE (pass by reference)"
^XMB(3.9,42,2,1783,0)="""RTN"",""HLOSRVR"",185,0)"
^XMB(3.9,42,2,1784,0)=" ;  HDR (pass by reference) parsed header"
^XMB(3.9,42,2,1785,0)="""RTN"",""HLOSRVR"",186,0)"
^XMB(3.9,42,2,1786,0)=" ;  MSA - (pass by reference) the values to return in the accept ack"
^XMB(3.9,42,2,1787,0)="""RTN"",""HLOSRVR"",187,0)"
^XMB(3.9,42,2,1788,0)=" ;Output:"
^XMB(3.9,42,2,1789,0)="""RTN"",""HLOSRVR"",188,0)"
^XMB(3.9,42,2,1790,0)=" ;  HLMSTATE (pass by reference)"
^XMB(3.9,42,2,1791,0)="""RTN"",""HLOSRVR"",189,0)"
^XMB(3.9,42,2,1792,0)=" ;"
^XMB(3.9,42,2,1793,0)="""RTN"",""HLOSRVR"",190,0)"
^XMB(3.9,42,2,1794,0)=" ;initialize the HLMSTATE array with the header, in preparation for reading the rest of the message"
^XMB(3.9,42,2,1795,0)="""RTN"",""HLOSRVR"",191,0)"
^XMB(3.9,42,2,1796,0)=" S HLMSTATE(""IEN"")="""""
^XMB(3.9,42,2,1797,0)="""RTN"",""HLOSRVR"",192,0)"
^XMB(3.9,42,2,1798,0)=" S HLMSTATE(""BODY"")="""""
^XMB(3.9,42,2,1799,0)="""RTN"",""HLOSRVR"",193,0)"
^XMB(3.9,42,2,1800,0)=" S HLMSTATE(""DIRECTION"")=""IN"""
^XMB(3.9,42,2,1801,0)="""RTN"",""HLOSRVR"",194,0)"
^XMB(3.9,42,2,1802,0)=" S HLMSTATE(""CURRENT SEGMENT"")=0 ;no segments in cache"
^XMB(3.9,42,2,1803,0)="""RTN"",""HLOSRVR"",195,0)"
^XMB(3.9,42,2,1804,0)=" S HLMSTATE(""UNSTORED LINES"")=1 ;just the header in cache so far"
^XMB(3.9,42,2,1805,0)="""RTN"",""HLOSRVR"",196,0)"
^XMB(3.9,42,2,1806,0)=" S HLMSTATE(""LINE COUNT"")=0 ;no lines within message stored to disk"
^XMB(3.9,42,2,1807,0)="""RTN"",""HLOSRVR"",197,0)"
^XMB(3.9,42,2,1808,0)=" I HDR(""SEGMENT TYPE"")=""BHS"" D"
^XMB(3.9,42,2,1809,0)="""RTN"",""HLOSRVR"",198,0)"
^XMB(3.9,42,2,1810,0)=" .S HLMSTATE(""BATCH"")=1"
^XMB(3.9,42,2,1811,0)="""RTN"",""HLOSRVR"",199,0)"
^XMB(3.9,42,2,1812,0)=" .S HLMSTATE(""BATCH"",""CURRENT MESSAGE"")=0 ;no messages in batch"
^XMB(3.9,42,2,1813,0)="""RTN"",""HLOSRVR"",200,0)"
^XMB(3.9,42,2,1814,0)=" .S HLMSTATE(""UNSTORED MSH"")=0"
^XMB(3.9,42,2,1815,0)="""RTN"",""HLOSRVR"",201,0)"
^XMB(3.9,42,2,1816,0)=" E  S HLMSTATE(""BATCH"")=0"
^XMB(3.9,42,2,1817,0)="""RTN"",""HLOSRVR"",202,0)"
^XMB(3.9,42,2,1818,0)=" M HLMSTATE(""HDR"")=HDR"
^XMB(3.9,42,2,1819,0)="""RTN"",""HLOSRVR"",203,0)"
^XMB(3.9,42,2,1820,0)=" M HLMSTATE(""MSA"")=MSA"
^XMB(3.9,42,2,1821,0)="""RTN"",""HLOSRVR"",204,0)"
^XMB(3.9,42,2,1822,0)=" S HLMSTATE(""STATUS"")="""""
^XMB(3.9,42,2,1823,0)="""RTN"",""HLOSRVR"",205,0)"
^XMB(3.9,42,2,1824,0)=" M HLMSTATE(""SYSTEM"")=HLCSTATE(""SYSTEM"")"
^XMB(3.9,42,2,1825,0)="""RTN"",""HLOSRVR"",206,0)"
^XMB(3.9,42,2,1826,0)=" S HLMSTATE(""STATUS"",""LINK NAME"")=HLCSTATE(""LINK"",""NAME"")"
^XMB(3.9,42,2,1827,0)="""RTN"",""HLOSRVR"",207,0)"
^XMB(3.9,42,2,1828,0)=" S HLMSTATE(""STATUS"",""PORT"")=$P(HDR(""SENDING FACILITY"",2),"":"",2)"
^XMB(3.9,42,2,1829,0)="""RTN"",""HLOSRVR"",208,0)"
^XMB(3.9,42,2,1830,0)=" ;"
^XMB(3.9,42,2,1831,0)="""RTN"",""HLOSRVR"",209,0)"
^XMB(3.9,42,2,1832,0)=" ;if this is a batch, and it references another batch, assume it is a batch of application acks.  That is the only time HLO uses that field."
^XMB(3.9,42,2,1833,0)="""RTN"",""HLOSRVR"",210,0)"
^XMB(3.9,42,2,1834,0)=" I HLMSTATE(""BATCH""),HLMSTATE(""HDR"",""REFERENCE BATCH CONTROL ID"")]"""" D"
^XMB(3.9,42,2,1835,0)="""RTN"",""HLOSRVR"",211,0)"
^XMB(3.9,42,2,1836,0)=" .N IEN"
^XMB(3.9,42,2,1837,0)="""RTN"",""HLOSRVR"",212,0)"
^XMB(3.9,42,2,1838,0)=" .S HLMSTATE(""ACK TO"")=HLMSTATE(""HDR"",""REFERENCE BATCH CONTROL ID"")"
^XMB(3.9,42,2,1839,0)="""RTN"",""HLOSRVR"",213,0)"
^XMB(3.9,42,2,1840,0)=" .S HLMSTATE(""ACK TO"",""STATUS"")=""SU"""
^XMB(3.9,42,2,1841,0)="""RTN"",""HLOSRVR"",214,0)"
^XMB(3.9,42,2,1842,0)=" .S IEN=$O(^HLB(""B"",HLMSTATE(""HDR"",""REFERENCE BATCH CONTROL ID""),0))"
^XMB(3.9,42,2,1843,0)="""RTN"",""HLOSRVR"",215,0)"
^XMB(3.9,42,2,1844,0)=" .I IEN S HLMSTATE(""ACK TO"",""IEN"")=IEN_""^"""
^XMB(3.9,42,2,1845,0)="""RTN"",""HLOSRVR"",216,0)"
^XMB(3.9,42,2,1846,0)=" E  S HLMSTATE(""ACK TO"")="""""
^XMB(3.9,42,2,1847,0)="""RTN"",""HLOSRVR"",217,0)"
^XMB(3.9,42,2,1848,0)=" Q"
^XMB(3.9,42,2,1849,0)="""RTN"",""HLOSRVR1"")"
^XMB(3.9,42,2,1850,0)="0^5^B65124218"
^XMB(3.9,42,2,1851,0)="""RTN"",""HLOSRVR1"",1,0)"
^XMB(3.9,42,2,1852,0)="HLOSRVR1 ;IRMFO-ALB/CJM - Reading messages, sending acks;03/24/2004  14:43"
^XMB(3.9,42,2,1853,0)="""RTN"",""HLOSRVR1"",2,0)"
^XMB(3.9,42,2,1854,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126,130**;Oct 13, 1995;Build 10"
^XMB(3.9,42,2,1855,0)="""RTN"",""HLOSRVR1"",3,0)"
^XMB(3.9,42,2,1856,0)=" ;"
^XMB(3.9,42,2,1857,0)="""RTN"",""HLOSRVR1"",4,0)"
^XMB(3.9,42,2,1858,0)="READMSG(HLCSTATE,HLMSTATE) ;"
^XMB(3.9,42,2,1859,0)="""RTN"",""HLOSRVR1"",5,0)"
^XMB(3.9,42,2,1860,0)=" ;This function uses the services provided by the transport layer to receive a message.  The header is parsed. Does these checks:"
^XMB(3.9,42,2,1861,0)="""RTN"",""HLOSRVR1"",6,0)"
^XMB(3.9,42,2,1862,0)=" ; 1) Duplicate?"
^XMB(3.9,42,2,1863,0)="""RTN"",""HLOSRVR1"",7,0)"
^XMB(3.9,42,2,1864,0)=" ; 2) Wrong Receiving Facility?"
^XMB(3.9,42,2,1865,0)="""RTN"",""HLOSRVR1"",8,0)"
^XMB(3.9,42,2,1866,0)=" ; 3) Can the Receiving App accept this message, based on type of message & event?"
^XMB(3.9,42,2,1867,0)="""RTN"",""HLOSRVR1"",9,0)"
^XMB(3.9,42,2,1868,0)=" ; 4) Processing ID must match the receiving system"
^XMB(3.9,42,2,1869,0)="""RTN"",""HLOSRVR1"",10,0)"
^XMB(3.9,42,2,1870,0)=" ; 5) Must have a control ID"
^XMB(3.9,42,2,1871,0)="""RTN"",""HLOSRVR1"",11,0)"
^XMB(3.9,42,2,1872,0)=" ; 6) Header must be BHS or MSH"
^XMB(3.9,42,2,1873,0)="""RTN"",""HLOSRVR1"",12,0)"
^XMB(3.9,42,2,1874,0)=" ;"
^XMB(3.9,42,2,1875,0)="""RTN"",""HLOSRVR1"",13,0)"
^XMB(3.9,42,2,1876,0)=" ;Output:"
^XMB(3.9,42,2,1877,0)="""RTN"",""HLOSRVR1"",14,0)"
^XMB(3.9,42,2,1878,0)=" ;  Function returns 1 if the message was read fully, 0 otherwise"
^XMB(3.9,42,2,1879,0)="""RTN"",""HLOSRVR1"",15,0)"
^XMB(3.9,42,2,1880,0)=" ;  HLMSTATE (pass by reference) the message.  It will include the fields for the return ack in HLMSTATE(""MSA"")"
^XMB(3.9,42,2,1881,0)="""RTN"",""HLOSRVR1"",16,0)"
^XMB(3.9,42,2,1882,0)=" ;"
^XMB(3.9,42,2,1883,0)="""RTN"",""HLOSRVR1"",17,0)"
^XMB(3.9,42,2,1884,0)=" N ACK,SEG,STORE,MSA,I"
^XMB(3.9,42,2,1885,0)="""RTN"",""HLOSRVR1"",18,0)"
^XMB(3.9,42,2,1886,0)=" F I=1:1:3 S MSA(I)="""""
^XMB(3.9,42,2,1887,0)="""RTN"",""HLOSRVR1"",19,0)"
^XMB(3.9,42,2,1888,0)=" ;"
^XMB(3.9,42,2,1889,0)="""RTN"",""HLOSRVR1"",20,0)"
^XMB(3.9,42,2,1890,0)=" S STORE=1"
^XMB(3.9,42,2,1891,0)="""RTN"",""HLOSRVR1"",21,0)"
^XMB(3.9,42,2,1892,0)=" Q:'$$READHDR^HLOT(.HLCSTATE,.SEG) 0"
^XMB(3.9,42,2,1893,0)="""RTN"",""HLOSRVR1"",22,0)"
^XMB(3.9,42,2,1894,0)=" D SPLITHDR(.SEG)"
^XMB(3.9,42,2,1895,0)="""RTN"",""HLOSRVR1"",23,0)"
^XMB(3.9,42,2,1896,0)=" S:'$$PARSEHDR^HLOPRS(.SEG) STORE=0"
^XMB(3.9,42,2,1897,0)="""RTN"",""HLOSRVR1"",24,0)"
^XMB(3.9,42,2,1898,0)=" I STORE S MSA(2)=$S(SEG(""SEGMENT TYPE"")=""BHS"":SEG(""BATCH CONTROL ID""),1:SEG(""MESSAGE CONTROL ID"")) I MSA(2)="""" S STORE=0 I SEG(""ACCEPT ACK TYPE"")=""AL"" S MSA(1)=""CE"",MSA(""3"")=""CONTROL ID MISSING"""
^XMB(3.9,42,2,1899,0)="""RTN"",""HLOSRVR1"",25,0)"
^XMB(3.9,42,2,1900,0)=" I STORE,$$DUP(.SEG,.MSA) S STORE=0 ;$$DUP returns the prior MSA segment if this message is a duplicate"
^XMB(3.9,42,2,1901,0)="""RTN"",""HLOSRVR1"",26,0)"
^XMB(3.9,42,2,1902,0)=" D NEWSTATE^HLOSRVR(.HLCSTATE,.HLMSTATE,.SEG,.MSA)"
^XMB(3.9,42,2,1903,0)="""RTN"",""HLOSRVR1"",27,0)"
^XMB(3.9,42,2,1904,0)=" ;"
^XMB(3.9,42,2,1905,0)="""RTN"",""HLOSRVR1"",28,0)"
^XMB(3.9,42,2,1906,0)=" ;if the message is not to be stored, just read it and discard the segments"
^XMB(3.9,42,2,1907,0)="""RTN"",""HLOSRVR1"",29,0)"
^XMB(3.9,42,2,1908,0)=" I 'STORE D"
^XMB(3.9,42,2,1909,0)="""RTN"",""HLOSRVR1"",30,0)"
^XMB(3.9,42,2,1910,0)=" .F  Q:'$$READSEG^HLOT(.HLCSTATE,.SEG)"
^XMB(3.9,42,2,1911,0)="""RTN"",""HLOSRVR1"",31,0)"
^XMB(3.9,42,2,1912,0)=" ;"
^XMB(3.9,42,2,1913,0)="""RTN"",""HLOSRVR1"",32,0)"
^XMB(3.9,42,2,1914,0)=" ;else the message is to be stored"
^XMB(3.9,42,2,1915,0)="""RTN"",""HLOSRVR1"",33,0)"
^XMB(3.9,42,2,1916,0)=" E  D"
^XMB(3.9,42,2,1917,0)="""RTN"",""HLOSRVR1"",34,0)"
^XMB(3.9,42,2,1918,0)=" .N FS"
^XMB(3.9,42,2,1919,0)="""RTN"",""HLOSRVR1"",35,0)"
^XMB(3.9,42,2,1920,0)=" .S FS=HLMSTATE(""HDR"",""FIELD SEPARATOR"")"
^XMB(3.9,42,2,1921,0)="""RTN"",""HLOSRVR1"",36,0)"
^XMB(3.9,42,2,1922,0)=" .F  Q:'$$READSEG^HLOT(.HLCSTATE,.SEG)  D"
^XMB(3.9,42,2,1923,0)="""RTN"",""HLOSRVR1"",37,0)"
^XMB(3.9,42,2,1924,0)=" ..N MSA,SEGTYPE,OLDMSGID,CODE,IEN,NEWMSGID"
^XMB(3.9,42,2,1925,0)="""RTN"",""HLOSRVR1"",38,0)"
^XMB(3.9,42,2,1926,0)=" ..S SEGTYPE=$E($E(SEG(1),1,3)_$E($G(SEG(2)),1,2),1,3)"
^XMB(3.9,42,2,1927,0)="""RTN"",""HLOSRVR1"",39,0)"
^XMB(3.9,42,2,1928,0)=" ..I SEGTYPE=""MSA"" D"
^XMB(3.9,42,2,1929,0)="""RTN"",""HLOSRVR1"",40,0)"
^XMB(3.9,42,2,1930,0)=" ...S MSA=SEG(1)_$G(SEG(2))_$G(SEG(3))"
^XMB(3.9,42,2,1931,0)="""RTN"",""HLOSRVR1"",41,0)"
^XMB(3.9,42,2,1932,0)=" ...S OLDMSGID=$P(MSA,FS,3),CODE=$P(MSA,FS,2)"
^XMB(3.9,42,2,1933,0)="""RTN"",""HLOSRVR1"",42,0)"
^XMB(3.9,42,2,1934,0)=" ...I $E(CODE,1)'=""A"" S SEGTYPE="""" Q"
^XMB(3.9,42,2,1935,0)="""RTN"",""HLOSRVR1"",43,0)"
^XMB(3.9,42,2,1936,0)=" ...S:$P(OLDMSGID,""-"")]"""" IEN=$O(^HLB(""B"",$P(OLDMSGID,""-""),0))"
^XMB(3.9,42,2,1937,0)="""RTN"",""HLOSRVR1"",44,0)"
^XMB(3.9,42,2,1938,0)=" ...S:$G(IEN) IEN=IEN_""^""_$P(OLDMSGID,""-"",2)"
^XMB(3.9,42,2,1939,0)="""RTN"",""HLOSRVR1"",45,0)"
^XMB(3.9,42,2,1940,0)=" ..I 'HLMSTATE(""BATCH"") D"
^XMB(3.9,42,2,1941,0)="""RTN"",""HLOSRVR1"",46,0)"
^XMB(3.9,42,2,1942,0)=" ...D:SEGTYPE=""MSA"""
^XMB(3.9,42,2,1943,0)="""RTN"",""HLOSRVR1"",47,0)"
^XMB(3.9,42,2,1944,0)=" ....S HLMSTATE(""ACK TO"")=OLDMSGID"
^XMB(3.9,42,2,1945,0)="""RTN"",""HLOSRVR1"",48,0)"
^XMB(3.9,42,2,1946,0)=" ....S HLMSTATE(""ACK TO"",""ACK BY"")=HLMSTATE(""HDR"",""MESSAGE CONTROL ID"")"
^XMB(3.9,42,2,1947,0)="""RTN"",""HLOSRVR1"",49,0)"
^XMB(3.9,42,2,1948,0)=" ....S HLMSTATE(""ACK TO"",""STATUS"")=$S(CODE=""AA"":""SU"",1:""AE"")"
^XMB(3.9,42,2,1949,0)="""RTN"",""HLOSRVR1"",50,0)"
^XMB(3.9,42,2,1950,0)=" ....S:$D(IEN) HLMSTATE(""ACK TO"",""IEN"")=IEN"
^XMB(3.9,42,2,1951,0)="""RTN"",""HLOSRVR1"",51,0)"
^XMB(3.9,42,2,1952,0)=" ...D ADDSEG^HLOMSG(.HLMSTATE,.SEG)"
^XMB(3.9,42,2,1953,0)="""RTN"",""HLOSRVR1"",52,0)"
^XMB(3.9,42,2,1954,0)=" ..E  D  ;batch"
^XMB(3.9,42,2,1955,0)="""RTN"",""HLOSRVR1"",53,0)"
^XMB(3.9,42,2,1956,0)=" ...I SEGTYPE=""MSH"" D"
^XMB(3.9,42,2,1957,0)="""RTN"",""HLOSRVR1"",54,0)"
^XMB(3.9,42,2,1958,0)=" ....D SPLITHDR(.SEG)"
^XMB(3.9,42,2,1959,0)="""RTN"",""HLOSRVR1"",55,0)"
^XMB(3.9,42,2,1960,0)=" ....S NEWMSGID=$P(SEG(2),FS,5)"
^XMB(3.9,42,2,1961,0)="""RTN"",""HLOSRVR1"",56,0)"
^XMB(3.9,42,2,1962,0)=" ....D ADDMSG2^HLOMSG(.HLMSTATE,.SEG)"
^XMB(3.9,42,2,1963,0)="""RTN"",""HLOSRVR1"",57,0)"
^XMB(3.9,42,2,1964,0)=" ...E  D  ;not MSH"
^XMB(3.9,42,2,1965,0)="""RTN"",""HLOSRVR1"",58,0)"
^XMB(3.9,42,2,1966,0)=" ....D:SEGTYPE=""MSA"""
^XMB(3.9,42,2,1967,0)="""RTN"",""HLOSRVR1"",59,0)"
^XMB(3.9,42,2,1968,0)=" .....N SUBIEN S SUBIEN=HLMSTATE(""BATCH"",""CURRENT MESSAGE"")"
^XMB(3.9,42,2,1969,0)="""RTN"",""HLOSRVR1"",60,0)"
^XMB(3.9,42,2,1970,0)=" .....S HLMSTATE(""BATCH"",""ACK TO"",SUBIEN)=OLDMSGID"
^XMB(3.9,42,2,1971,0)="""RTN"",""HLOSRVR1"",61,0)"
^XMB(3.9,42,2,1972,0)=" .....S HLMSTATE(""BATCH"",""ACK TO"",SUBIEN,""ACK BY"")=NEWMSGID"
^XMB(3.9,42,2,1973,0)="""RTN"",""HLOSRVR1"",62,0)"
^XMB(3.9,42,2,1974,0)=" .....S HLMSTATE(""BATCH"",""ACK TO"",SUBIEN,""STATUS"")=$S(CODE=""AA"":""SU"",1:""AE"")"
^XMB(3.9,42,2,1975,0)="""RTN"",""HLOSRVR1"",63,0)"
^XMB(3.9,42,2,1976,0)=" .....S:$D(IEN) HLMSTATE(""BATCH"",""ACK TO"",SUBIEN,""IEN"")=IEN"
^XMB(3.9,42,2,1977,0)="""RTN"",""HLOSRVR1"",64,0)"
^XMB(3.9,42,2,1978,0)=" ....D ADDSEG^HLOMSG(.HLMSTATE,.SEG)"
^XMB(3.9,42,2,1979,0)="""RTN"",""HLOSRVR1"",65,0)"
^XMB(3.9,42,2,1980,0)=" .I HLMSTATE(""UNSTORED LINES""),HLCSTATE(""MESSAGE ENDED""),$$SAVEMSG^HLOF778(.HLMSTATE)"
^XMB(3.9,42,2,1981,0)="""RTN"",""HLOSRVR1"",66,0)"
^XMB(3.9,42,2,1982,0)=" ;"
^XMB(3.9,42,2,1983,0)="""RTN"",""HLOSRVR1"",67,0)"
^XMB(3.9,42,2,1984,0)=" I STORE,'HLCSTATE(""MESSAGE ENDED"") D"
^XMB(3.9,42,2,1985,0)="""RTN"",""HLOSRVR1"",68,0)"
^XMB(3.9,42,2,1986,0)=" .;reading failed before the end, there is no need to keep anything"
^XMB(3.9,42,2,1987,0)="""RTN"",""HLOSRVR1"",69,0)"
^XMB(3.9,42,2,1988,0)=" .D:HLMSTATE(""IEN"") DEL778(HLMSTATE(""IEN"")) D:HLMSTATE(""BODY"") DEL777(HLMSTATE(""BODY""))"
^XMB(3.9,42,2,1989,0)="""RTN"",""HLOSRVR1"",70,0)"
^XMB(3.9,42,2,1990,0)=" .S HLMSTATE(""IEN"")="""",HLMSTATE(""BODY"")="""""
^XMB(3.9,42,2,1991,0)="""RTN"",""HLOSRVR1"",71,0)"
^XMB(3.9,42,2,1992,0)=" E  D:STORE"
^XMB(3.9,42,2,1993,0)="""RTN"",""HLOSRVR1"",72,0)"
^XMB(3.9,42,2,1994,0)=" .D CHECKMSG(.HLMSTATE)"
^XMB(3.9,42,2,1995,0)="""RTN"",""HLOSRVR1"",73,0)"
^XMB(3.9,42,2,1996,0)=" .D ADDAC(.HLMSTATE) ;so that future duplicates can be detected"
^XMB(3.9,42,2,1997,0)="""RTN"",""HLOSRVR1"",74,0)"
^XMB(3.9,42,2,1998,0)=" .D COUNT^HLOSTAT(.HLCSTATE,HLMSTATE(""HDR"",""RECEIVING APPLICATION""),HLMSTATE(""HDR"",""SENDING APPLICATION""),$S(HLMSTATE(""BATCH""):""BATCH"",1:HLMSTATE(""HDR"",""MESSAGE TYPE"")_""~""_HLMSTATE(""HDR"",""EVENT"")))"
^XMB(3.9,42,2,1999,0)="""RTN"",""HLOSRVR1"",75,0)"
^XMB(3.9,42,2,2000,0)=" ;"
^XMB(3.9,42,2,2001,0)="""RTN"",""HLOSRVR1"",76,0)"
^XMB(3.9,42,2,2002,0)=" I 'HLCSTATE(""MESSAGE ENDED"") D"
^XMB(3.9,42,2,2003,0)="""RTN"",""HLOSRVR1"",77,0)"
^XMB(3.9,42,2,2004,0)=" .S HLCSTATE(""ATTEMPT"")=HLCSTATE(""ATTEMPT"")+1"
^XMB(3.9,42,2,2005,0)="""RTN"",""HLOSRVR1"",78,0)"
^XMB(3.9,42,2,2006,0)=" .;read keeps failing, give up"
^XMB(3.9,42,2,2007,0)="""RTN"",""HLOSRVR1"",79,0)"
^XMB(3.9,42,2,2008,0)=" .I HLCSTATE(""ATTEMPT"")>4 D CLOSE^HLOT(.HLCSTATE) QUIT"
^XMB(3.9,42,2,2009,0)="""RTN"",""HLOSRVR1"",80,0)"
^XMB(3.9,42,2,2010,0)=" E  S HLCSTATE(""ATTEMPT"")=1"
^XMB(3.9,42,2,2011,0)="""RTN"",""HLOSRVR1"",81,0)"
^XMB(3.9,42,2,2012,0)=" Q HLCSTATE(""MESSAGE ENDED"")"
^XMB(3.9,42,2,2013,0)="""RTN"",""HLOSRVR1"",82,0)"
^XMB(3.9,42,2,2014,0)=" ;"
^XMB(3.9,42,2,2015,0)="""RTN"",""HLOSRVR1"",83,0)"
^XMB(3.9,42,2,2016,0)="ADDAC(HLMSTATE) ;adds the AC xref for the message that was just received"
^XMB(3.9,42,2,2017,0)="""RTN"",""HLOSRVR1"",84,0)"
^XMB(3.9,42,2,2018,0)=" ;The AC xref allows duplicates to be detected."
^XMB(3.9,42,2,2019,0)="""RTN"",""HLOSRVR1"",85,0)"
^XMB(3.9,42,2,2020,0)=" ;"
^XMB(3.9,42,2,2021,0)="""RTN"",""HLOSRVR1"",86,0)"
^XMB(3.9,42,2,2022,0)=" N FROM"
^XMB(3.9,42,2,2023,0)="""RTN"",""HLOSRVR1"",87,0)"
^XMB(3.9,42,2,2024,0)=" S FROM=$S(HLMSTATE(""HDR"",""SENDING FACILITY"",2)]"""":HLMSTATE(""HDR"",""SENDING FACILITY"",2),1:HLMSTATE(""HDR"",""SENDING FACILITY"",1))"
^XMB(3.9,42,2,2025,0)="""RTN"",""HLOSRVR1"",88,0)"
^XMB(3.9,42,2,2026,0)=" S ^HLB(""AC"",FROM_HLMSTATE(""HDR"",""SENDING APPLICATION"")_$S(HLMSTATE(""BATCH""):HLMSTATE(""HDR"",""BATCH CONTROL ID""),1:HLMSTATE(""HDR"",""MESSAGE CONTROL ID"")),HLMSTATE(""IEN""))="""""
^XMB(3.9,42,2,2027,0)="""RTN"",""HLOSRVR1"",89,0)"
^XMB(3.9,42,2,2028,0)=" Q"
^XMB(3.9,42,2,2029,0)="""RTN"",""HLOSRVR1"",90,0)"
^XMB(3.9,42,2,2030,0)=" ;"
^XMB(3.9,42,2,2031,0)="""RTN"",""HLOSRVR1"",91,0)"
^XMB(3.9,42,2,2032,0)="DUP(HDR,MSA) ;"
^XMB(3.9,42,2,2033,0)="""RTN"",""HLOSRVR1"",92,0)"
^XMB(3.9,42,2,2034,0)=" ;Function returns 1 if the message is a duplicate, 0 otherwise"
^XMB(3.9,42,2,2035,0)="""RTN"",""HLOSRVR1"",93,0)"
^XMB(3.9,42,2,2036,0)=" ;Input:"
^XMB(3.9,42,2,2037,0)="""RTN"",""HLOSRVR1"",94,0)"
^XMB(3.9,42,2,2038,0)=" ; HDR (pass by reference) the parsed header segment"
^XMB(3.9,42,2,2039,0)="""RTN"",""HLOSRVR1"",95,0)"
^XMB(3.9,42,2,2040,0)=" ;Output:"
^XMB(3.9,42,2,2041,0)="""RTN"",""HLOSRVR1"",96,0)"
^XMB(3.9,42,2,2042,0)=" ;  Function returns 1 if the message is a duplicate, 0 otherwise"
^XMB(3.9,42,2,2043,0)="""RTN"",""HLOSRVR1"",97,0)"
^XMB(3.9,42,2,2044,0)=" ;  MSA (pass by reference) IF the message is a duplicate, returns the prior MSA segment"
^XMB(3.9,42,2,2045,0)="""RTN"",""HLOSRVR1"",98,0)"
^XMB(3.9,42,2,2046,0)=" N MSGID,IEN,FROM,DUP"
^XMB(3.9,42,2,2047,0)="""RTN"",""HLOSRVR1"",99,0)"
^XMB(3.9,42,2,2048,0)=" S (IEN,DUP)=0"
^XMB(3.9,42,2,2049,0)="""RTN"",""HLOSRVR1"",100,0)"
^XMB(3.9,42,2,2050,0)=" S MSGID=$S(HDR(""SEGMENT TYPE"")=""BHS"":HDR(""BATCH CONTROL ID""),HDR(""SEGMENT TYPE"")=""MSH"":HDR(""MESSAGE CONTROL ID""),1:"""")"
^XMB(3.9,42,2,2051,0)="""RTN"",""HLOSRVR1"",101,0)"
^XMB(3.9,42,2,2052,0)=" Q:MSGID="""" 0  ;no way to determine!  Bad header will be rejected"
^XMB(3.9,42,2,2053,0)="""RTN"",""HLOSRVR1"",102,0)"
^XMB(3.9,42,2,2054,0)=" S FROM=$S(HDR(""SENDING FACILITY"",2)]"""":HDR(""SENDING FACILITY"",2),1:HDR(""SENDING FACILITY"",1))"
^XMB(3.9,42,2,2055,0)="""RTN"",""HLOSRVR1"",103,0)"
^XMB(3.9,42,2,2056,0)=" F  S IEN=$O(^HLB(""AC"",FROM_HDR(""SENDING APPLICATION"")_MSGID,IEN)) Q:'IEN  D  Q:DUP"
^XMB(3.9,42,2,2057,0)="""RTN"",""HLOSRVR1"",104,0)"
^XMB(3.9,42,2,2058,0)=" .I HDR(""ACCEPT ACK TYPE"")=""NE"" S DUP=1 Q"
^XMB(3.9,42,2,2059,0)="""RTN"",""HLOSRVR1"",105,0)"
^XMB(3.9,42,2,2060,0)=" .N NODE,I"
^XMB(3.9,42,2,2061,0)="""RTN"",""HLOSRVR1"",106,0)"
^XMB(3.9,42,2,2062,0)=" .S NODE=$P($G(^HLB(IEN,4)),""^"",3,10)"
^XMB(3.9,42,2,2063,0)="""RTN"",""HLOSRVR1"",107,0)"
^XMB(3.9,42,2,2064,0)=" .S MSA(1)=$P(NODE,""|"",2)"
^XMB(3.9,42,2,2065,0)="""RTN"",""HLOSRVR1"",108,0)"
^XMB(3.9,42,2,2066,0)=" .Q:$E(MSA(1))'=""C"""
^XMB(3.9,42,2,2067,0)="""RTN"",""HLOSRVR1"",109,0)"
^XMB(3.9,42,2,2068,0)=" .S MSA(2)=$P(NODE,""|"",3)"
^XMB(3.9,42,2,2069,0)="""RTN"",""HLOSRVR1"",110,0)"
^XMB(3.9,42,2,2070,0)=" .S MSA(3)=$P(NODE,""|"",4,10)"
^XMB(3.9,42,2,2071,0)="""RTN"",""HLOSRVR1"",111,0)"
^XMB(3.9,42,2,2072,0)=" .S DUP=1"
^XMB(3.9,42,2,2073,0)="""RTN"",""HLOSRVR1"",112,0)"
^XMB(3.9,42,2,2074,0)=" Q DUP"
^XMB(3.9,42,2,2075,0)="""RTN"",""HLOSRVR1"",113,0)"
^XMB(3.9,42,2,2076,0)=" ;"
^XMB(3.9,42,2,2077,0)="""RTN"",""HLOSRVR1"",114,0)"
^XMB(3.9,42,2,2078,0)="CHECKMSG(HLMSTATE) ;"
^XMB(3.9,42,2,2079,0)="""RTN"",""HLOSRVR1"",115,0)"
^XMB(3.9,42,2,2080,0)=" ;Checks the header & MSA segment, sets HLMSTATE(""STATUS"",""ACTION"") if the message needs to be passed, determines if completion status should be set"
^XMB(3.9,42,2,2081,0)="""RTN"",""HLOSRVR1"",116,0)"
^XMB(3.9,42,2,2082,0)=" ;Input:"
^XMB(3.9,42,2,2083,0)="""RTN"",""HLOSRVR1"",117,0)"
^XMB(3.9,42,2,2084,0)=" ;  HLMSTATE(""HDR"") - the parsed header segment"
^XMB(3.9,42,2,2085,0)="""RTN"",""HLOSRVR1"",118,0)"
^XMB(3.9,42,2,2086,0)=" ;Output:"
^XMB(3.9,42,2,2087,0)="""RTN"",""HLOSRVR1"",119,0)"
^XMB(3.9,42,2,2088,0)=" ;  HLMSTATE(""STATUS"")=""SE"" if an error is detected"
^XMB(3.9,42,2,2089,0)="""RTN"",""HLOSRVR1"",120,0)"
^XMB(3.9,42,2,2090,0)=" ;  HLMSTATE(""STATUS"",""QUEUE"") queue to put the message on"
^XMB(3.9,42,2,2091,0)="""RTN"",""HLOSRVR1"",121,0)"
^XMB(3.9,42,2,2092,0)=" ;  HLMSTATE(""STATUS"",""ACTION"")  <tag^rtn> that is the processing routine for the receiving application"
^XMB(3.9,42,2,2093,0)="""RTN"",""HLOSRVR1"",122,0)"
^XMB(3.9,42,2,2094,0)=" ;  HLMSTATE(""MSA"") - MSA(1)=accept code to be returned, MSA(3)= error txt"
^XMB(3.9,42,2,2095,0)="""RTN"",""HLOSRVR1"",123,0)"
^XMB(3.9,42,2,2096,0)=" ;"
^XMB(3.9,42,2,2097,0)="""RTN"",""HLOSRVR1"",124,0)"
^XMB(3.9,42,2,2098,0)=" N WANTACK,PASS,ACTION,QUEUE"
^XMB(3.9,42,2,2099,0)="""RTN"",""HLOSRVR1"",125,0)"
^XMB(3.9,42,2,2100,0)=" M HDR=HLMSTATE(""HDR"")"
^XMB(3.9,42,2,2101,0)="""RTN"",""HLOSRVR1"",126,0)"
^XMB(3.9,42,2,2102,0)=" S WANTACK=$S(HDR(""ACCEPT ACK TYPE"")=""AL"":1,1:0)"
^XMB(3.9,42,2,2103,0)="""RTN"",""HLOSRVR1"",127,0)"
^XMB(3.9,42,2,2104,0)=" S HLMSTATE(""MSA"",1)="""",HLMSTATE(""STATUS"")="""",HLMSTATE(""STATUS"",""QUEUE"")="""",HLMSTATE(""STATUS"",""ACTION"")="""""
^XMB(3.9,42,2,2105,0)="""RTN"",""HLOSRVR1"",128,0)"
^XMB(3.9,42,2,2106,0)=" ;"
^XMB(3.9,42,2,2107,0)="""RTN"",""HLOSRVR1"",129,0)"
^XMB(3.9,42,2,2108,0)=" I '$$ACTION^HLOAPP(.HDR,.ACTION,.QUEUE),$G(HLMSTATE(""ACK TO""))="""" S:WANTACK HLMSTATE(""MSA"",1)=""CR"" S HLMSTATE(""MSA"",3)=""RECEIVING APPLICATION NOT DEFINED"",HLMSTATE(""STATUS"")=""SE"" Q"
^XMB(3.9,42,2,2109,0)="""RTN"",""HLOSRVR1"",130,0)"
^XMB(3.9,42,2,2110,0)=" S HLMSTATE(""STATUS"",""ACTION"")=$G(ACTION),HLMSTATE(""STATUS"",""QUEUE"")=$G(QUEUE)"
^XMB(3.9,42,2,2111,0)="""RTN"",""HLOSRVR1"",131,0)"
^XMB(3.9,42,2,2112,0)=" ;"
^XMB(3.9,42,2,2113,0)="""RTN"",""HLOSRVR1"",132,0)"
^XMB(3.9,42,2,2114,0)=" I (HDR(""ACCEPT ACK TYPE"")=""""),(HDR(""APP ACK TYPE"")="""") S HLMSTATE(""MSA"",1)=""AE"",HLMSTATE(""MSA"",3)=""THIS INTERFACE DOES NOT IMPLEMENT ORIGINAL MODE APPLICATION ACKOWLEDGMENTS"",HLMSTATE(""STATUS"")=""SE"" Q"
^XMB(3.9,42,2,2115,0)="""RTN"",""HLOSRVR1"",133,0)"
^XMB(3.9,42,2,2116,0)=" ;"
^XMB(3.9,42,2,2117,0)="""RTN"",""HLOSRVR1"",134,0)"
^XMB(3.9,42,2,2118,0)=" ;If this is an application ack, does the original message exist?"
^XMB(3.9,42,2,2119,0)="""RTN"",""HLOSRVR1"",135,0)"
^XMB(3.9,42,2,2120,0)=" I $G(HLMSTATE(""ACK TO""))]"""" D  Q:HLMSTATE(""STATUS"")=""SE"""
^XMB(3.9,42,2,2121,0)="""RTN"",""HLOSRVR1"",136,0)"
^XMB(3.9,42,2,2122,0)=" .N NODE"
^XMB(3.9,42,2,2123,0)="""RTN"",""HLOSRVR1"",137,0)"
^XMB(3.9,42,2,2124,0)=" .S:+$G(HLMSTATE(""ACK TO"",""IEN"")) NODE=$G(^HLB(+HLMSTATE(""ACK TO"",""IEN""),0))"
^XMB(3.9,42,2,2125,0)="""RTN"",""HLOSRVR1"",138,0)"
^XMB(3.9,42,2,2126,0)=" .I $G(NODE)="""" S HLMSTATE(""STATUS"")=""SE"" S:WANTACK HLMSTATE(""MSA"",1)=""CE"" S HLMSTATE(""MSA"",3)=""INITIAL MESSAGE TO APPLICATION ACKNOWLEDGMENT NOT FOUND"" Q"
^XMB(3.9,42,2,2127,0)="""RTN"",""HLOSRVR1"",139,0)"
^XMB(3.9,42,2,2128,0)=" .I ($P(NODE,""^"",11)]"""") S HLMSTATE(""STATUS"",""ACTION"")=$P(NODE,""^"",10,11),HLMSTATE(""STATUS"",""QUEUE"")=$S($P(NODE,""^"",6)]"""":$P(NODE,""^"",6),1:""DEFAULT"")"
^XMB(3.9,42,2,2129,0)="""RTN"",""HLOSRVR1"",140,0)"
^XMB(3.9,42,2,2130,0)=" ;"
^XMB(3.9,42,2,2131,0)="""RTN"",""HLOSRVR1"",141,0)"
^XMB(3.9,42,2,2132,0)=" I HDR(""PROCESSING ID"")'=HLCSTATE(""SYSTEM"",""PROCESSING ID"") S:WANTACK HLMSTATE(""MSA"",1)=""CR"" S HLMSTATE(""STATUS"")=""SE"",HLMSTATE(""MSA"",3)=""SYSTEM PROCESSING ID=""_HLCSTATE(""SYSTEM"",""PROCESSING ID"") Q"
^XMB(3.9,42,2,2133,0)="""RTN"",""HLOSRVR1"",142,0)"
^XMB(3.9,42,2,2134,0)=" ;"
^XMB(3.9,42,2,2135,0)="""RTN"",""HLOSRVR1"",143,0)"
^XMB(3.9,42,2,2136,0)=" ;"
^XMB(3.9,42,2,2137,0)="""RTN"",""HLOSRVR1"",144,0)"
^XMB(3.9,42,2,2138,0)=" ;wrong receiving facility?  This is hard to check if the sender is not VistA, because the HL7 standard permits different coding systems to be used. This check is only for DNS or station number."
^XMB(3.9,42,2,2139,0)="""RTN"",""HLOSRVR1"",145,0)"
^XMB(3.9,42,2,2140,0)=" S PASS=0"
^XMB(3.9,42,2,2141,0)="""RTN"",""HLOSRVR1"",146,0)"
^XMB(3.9,42,2,2142,0)=" D"
^XMB(3.9,42,2,2143,0)="""RTN"",""HLOSRVR1"",147,0)"
^XMB(3.9,42,2,2144,0)=" .;if its an ack to an existing message, don't check the receiving facility"
^XMB(3.9,42,2,2145,0)="""RTN"",""HLOSRVR1"",148,0)"
^XMB(3.9,42,2,2146,0)=" .I $G(HLMSTATE(""ACK TO""))]"""" S PASS=1 Q"
^XMB(3.9,42,2,2147,0)="""RTN"",""HLOSRVR1"",149,0)"
^XMB(3.9,42,2,2148,0)=" .I HDR(""RECEIVING FACILITY"",1)=HLCSTATE(""SYSTEM"",""STATION"") S PASS=1 Q"
^XMB(3.9,42,2,2149,0)="""RTN"",""HLOSRVR1"",150,0)"
^XMB(3.9,42,2,2150,0)=" .I HDR(""RECEIVING FACILITY"",3)'=""DNS"" S PASS=1 Q"
^XMB(3.9,42,2,2151,0)="""RTN"",""HLOSRVR1"",151,0)"
^XMB(3.9,42,2,2152,0)=" .I HDR(""RECEIVING FACILITY"",2)="""" S PASS=1 Q"
^XMB(3.9,42,2,2153,0)="""RTN"",""HLOSRVR1"",152,0)"
^XMB(3.9,42,2,2154,0)=" .I $P(HDR(""RECEIVING FACILITY"",2),"":"")[HLCSTATE(""SYSTEM"",""DOMAIN"") S PASS=1 Q"
^XMB(3.9,42,2,2155,0)="""RTN"",""HLOSRVR1"",153,0)"
^XMB(3.9,42,2,2156,0)=" .I HLCSTATE(""SYSTEM"",""DOMAIN"")[$P(HDR(""RECEIVING FACILITY"",2),"":"") S PASS=1 Q"
^XMB(3.9,42,2,2157,0)="""RTN"",""HLOSRVR1"",154,0)"
^XMB(3.9,42,2,2158,0)=" I 'PASS S HLMSTATE(""STATUS"")=""SE"",HLMSTATE(""MSA"",3)=""RECEIVING FACILITY IS ""_HLCSTATE(""SYSTEM"",""DOMAIN"") S:WANTACK HLMSTATE(""MSA"",1)=""CE"""
^XMB(3.9,42,2,2159,0)="""RTN"",""HLOSRVR1"",155,0)"
^XMB(3.9,42,2,2160,0)=" I PASS,WANTACK S HLMSTATE(""MSA"",1)=""CA"""
^XMB(3.9,42,2,2161,0)="""RTN"",""HLOSRVR1"",156,0)"
^XMB(3.9,42,2,2162,0)=" Q"
^XMB(3.9,42,2,2163,0)="""RTN"",""HLOSRVR1"",157,0)"
^XMB(3.9,42,2,2164,0)=" ;"
^XMB(3.9,42,2,2165,0)="""RTN"",""HLOSRVR1"",158,0)"
^XMB(3.9,42,2,2166,0)="DEL777(IEN777) ;delete a record from file 777 where the read did not complete"
^XMB(3.9,42,2,2167,0)="""RTN"",""HLOSRVR1"",159,0)"
^XMB(3.9,42,2,2168,0)=" ;"
^XMB(3.9,42,2,2169,0)="""RTN"",""HLOSRVR1"",160,0)"
^XMB(3.9,42,2,2170,0)=" K ^HLA(IEN777,0)"
^XMB(3.9,42,2,2171,0)="""RTN"",""HLOSRVR1"",161,0)"
^XMB(3.9,42,2,2172,0)=" Q"
^XMB(3.9,42,2,2173,0)="""RTN"",""HLOSRVR1"",162,0)"
^XMB(3.9,42,2,2174,0)="DEL778(IEN778) ;delete a record from file 778 where the read did not complete"
^XMB(3.9,42,2,2175,0)="""RTN"",""HLOSRVR1"",163,0)"
^XMB(3.9,42,2,2176,0)=" ;"
^XMB(3.9,42,2,2177,0)="""RTN"",""HLOSRVR1"",164,0)"
^XMB(3.9,42,2,2178,0)=" K ^HLB(IEN778,0)"
^XMB(3.9,42,2,2179,0)="""RTN"",""HLOSRVR1"",165,0)"
^XMB(3.9,42,2,2180,0)=" Q"
^XMB(3.9,42,2,2181,0)="""RTN"",""HLOSRVR1"",166,0)"
^XMB(3.9,42,2,2182,0)=" ;"
^XMB(3.9,42,2,2183,0)="""RTN"",""HLOSRVR1"",167,0)"
^XMB(3.9,42,2,2184,0)="SPLITHDR(HDR) ;"
^XMB(3.9,42,2,2185,0)="""RTN"",""HLOSRVR1"",168,0)"
^XMB(3.9,42,2,2186,0)=" ;splits hdr segment into two lines, first being just components 1-6"
^XMB(3.9,42,2,2187,0)="""RTN"",""HLOSRVR1"",169,0)"
^XMB(3.9,42,2,2188,0)=" ;"
^XMB(3.9,42,2,2189,0)="""RTN"",""HLOSRVR1"",170,0)"
^XMB(3.9,42,2,2190,0)=" N TEMP,FS"
^XMB(3.9,42,2,2191,0)="""RTN"",""HLOSRVR1"",171,0)"
^XMB(3.9,42,2,2192,0)=" D SQUISH(.HDR)"
^XMB(3.9,42,2,2193,0)="""RTN"",""HLOSRVR1"",172,0)"
^XMB(3.9,42,2,2194,0)=" S FS=$E(HDR(1),4)"
^XMB(3.9,42,2,2195,0)="""RTN"",""HLOSRVR1"",173,0)"
^XMB(3.9,42,2,2196,0)=" S TEMP(1)=$P(HDR(1),FS,1,6)"
^XMB(3.9,42,2,2197,0)="""RTN"",""HLOSRVR1"",174,0)"
^XMB(3.9,42,2,2198,0)=" S TEMP(2)="""""
^XMB(3.9,42,2,2199,0)="""RTN"",""HLOSRVR1"",175,0)"
^XMB(3.9,42,2,2200,0)=" I $L(TEMP(1))<$L(HDR(1)) S TEMP(2)=FS_$P(HDR(1),FS,7,20)"
^XMB(3.9,42,2,2201,0)="""RTN"",""HLOSRVR1"",176,0)"
^XMB(3.9,42,2,2202,0)=" S HDR(2)=TEMP(2)_$G(HDR(2))"
^XMB(3.9,42,2,2203,0)="""RTN"",""HLOSRVR1"",177,0)"
^XMB(3.9,42,2,2204,0)=" S HDR(1)=TEMP(1)"
^XMB(3.9,42,2,2205,0)="""RTN"",""HLOSRVR1"",178,0)"
^XMB(3.9,42,2,2206,0)=" Q"
^XMB(3.9,42,2,2207,0)="""RTN"",""HLOSRVR1"",179,0)"
^XMB(3.9,42,2,2208,0)=" ;"
^XMB(3.9,42,2,2209,0)="""RTN"",""HLOSRVR1"",180,0)"
^XMB(3.9,42,2,2210,0)="SQUISH(SEG) ;"
^XMB(3.9,42,2,2211,0)="""RTN"",""HLOSRVR1"",181,0)"
^XMB(3.9,42,2,2212,0)=" ;squish the header segment =SEG(i) into at most 2 lines"
^XMB(3.9,42,2,2213,0)="""RTN"",""HLOSRVR1"",182,0)"
^XMB(3.9,42,2,2214,0)=" ;"
^XMB(3.9,42,2,2215,0)="""RTN"",""HLOSRVR1"",183,0)"
^XMB(3.9,42,2,2216,0)=" Q:'$O(SEG(1))"
^XMB(3.9,42,2,2217,0)="""RTN"",""HLOSRVR1"",184,0)"
^XMB(3.9,42,2,2218,0)=" I '$O(SEG(2)) D  Q"
^XMB(3.9,42,2,2219,0)="""RTN"",""HLOSRVR1"",185,0)"
^XMB(3.9,42,2,2220,0)=" .N LEN"
^XMB(3.9,42,2,2221,0)="""RTN"",""HLOSRVR1"",186,0)"
^XMB(3.9,42,2,2222,0)=" .S LEN=$L(SEG(1))"
^XMB(3.9,42,2,2223,0)="""RTN"",""HLOSRVR1"",187,0)"
^XMB(3.9,42,2,2224,0)=" .Q:LEN>255"
^XMB(3.9,42,2,2225,0)="""RTN"",""HLOSRVR1"",188,0)"
^XMB(3.9,42,2,2226,0)=" .S SEG(1)=SEG(1)_$E(SEG(2),1,256-LEN)"
^XMB(3.9,42,2,2227,0)="""RTN"",""HLOSRVR1"",189,0)"
^XMB(3.9,42,2,2228,0)=" .S SEG(2)=$E(SEG(2),257-LEN,99999)"
^XMB(3.9,42,2,2229,0)="""RTN"",""HLOSRVR1"",190,0)"
^XMB(3.9,42,2,2230,0)=" ;"
^XMB(3.9,42,2,2231,0)="""RTN"",""HLOSRVR1"",191,0)"
^XMB(3.9,42,2,2232,0)=" N A,DONE,I"
^XMB(3.9,42,2,2233,0)="""RTN"",""HLOSRVR1"",192,0)"
^XMB(3.9,42,2,2234,0)=" S (I,DONE)=0"
^XMB(3.9,42,2,2235,0)="""RTN"",""HLOSRVR1"",193,0)"
^XMB(3.9,42,2,2236,0)=" S A(1)=SEG(1) K SEG(1)"
^XMB(3.9,42,2,2237,0)="""RTN"",""HLOSRVR1"",194,0)"
^XMB(3.9,42,2,2238,0)=" F  S I=$O(SEG(I)) Q:'I  D  Q:DONE"
^XMB(3.9,42,2,2239,0)="""RTN"",""HLOSRVR1"",195,0)"
^XMB(3.9,42,2,2240,0)=" .N LEN"
^XMB(3.9,42,2,2241,0)="""RTN"",""HLOSRVR1"",196,0)"
^XMB(3.9,42,2,2242,0)=" .S LEN=$L(A(1))"
^XMB(3.9,42,2,2243,0)="""RTN"",""HLOSRVR1"",197,0)"
^XMB(3.9,42,2,2244,0)=" .I (LEN+$L(SEG(I)))>256 D"
^XMB(3.9,42,2,2245,0)="""RTN"",""HLOSRVR1"",198,0)"
^XMB(3.9,42,2,2246,0)=" ..S A(1)=A(1)_$E(SEG(I),1,256-LEN)"
^XMB(3.9,42,2,2247,0)="""RTN"",""HLOSRVR1"",199,0)"
^XMB(3.9,42,2,2248,0)=" ..S A(2)=$E(SEG(I),257-LEN,99999)"
^XMB(3.9,42,2,2249,0)="""RTN"",""HLOSRVR1"",200,0)"
^XMB(3.9,42,2,2250,0)=" ..S DONE=1"
^XMB(3.9,42,2,2251,0)="""RTN"",""HLOSRVR1"",201,0)"
^XMB(3.9,42,2,2252,0)=" .E  D"
^XMB(3.9,42,2,2253,0)="""RTN"",""HLOSRVR1"",202,0)"
^XMB(3.9,42,2,2254,0)=" ..S A(1)=A(1)_SEG(I)"
^XMB(3.9,42,2,2255,0)="""RTN"",""HLOSRVR1"",203,0)"
^XMB(3.9,42,2,2256,0)=" .K SEG(I)"
^XMB(3.9,42,2,2257,0)="""RTN"",""HLOSRVR1"",204,0)"
^XMB(3.9,42,2,2258,0)=" ;"
^XMB(3.9,42,2,2259,0)="""RTN"",""HLOSRVR1"",205,0)"
^XMB(3.9,42,2,2260,0)=" ;if there are any lines left in SEG(), put them in A(2)"
^XMB(3.9,42,2,2261,0)="""RTN"",""HLOSRVR1"",206,0)"
^XMB(3.9,42,2,2262,0)=" F  S I=$O(SEG(I)) Q:'I  D  Q:DONE"
^XMB(3.9,42,2,2263,0)="""RTN"",""HLOSRVR1"",207,0)"
^XMB(3.9,42,2,2264,0)=" .N LEN"
^XMB(3.9,42,2,2265,0)="""RTN"",""HLOSRVR1"",208,0)"
^XMB(3.9,42,2,2266,0)=" .S LEN=$L($G(A(2)))"
^XMB(3.9,42,2,2267,0)="""RTN"",""HLOSRVR1"",209,0)"
^XMB(3.9,42,2,2268,0)=" .I (LEN+$L(SEG(I)))>256 D"
^XMB(3.9,42,2,2269,0)="""RTN"",""HLOSRVR1"",210,0)"
^XMB(3.9,42,2,2270,0)=" ..S A(2)=A(2)_$E(SEG(I),1,256-LEN)"
^XMB(3.9,42,2,2271,0)="""RTN"",""HLOSRVR1"",211,0)"
^XMB(3.9,42,2,2272,0)=" ..S DONE=1"
^XMB(3.9,42,2,2273,0)="""RTN"",""HLOSRVR1"",212,0)"
^XMB(3.9,42,2,2274,0)=" .E  D"
^XMB(3.9,42,2,2275,0)="""RTN"",""HLOSRVR1"",213,0)"
^XMB(3.9,42,2,2276,0)=" ..S A(2)=$G(A(2))_SEG(I)"
^XMB(3.9,42,2,2277,0)="""RTN"",""HLOSRVR1"",214,0)"
^XMB(3.9,42,2,2278,0)=" .K SEG(I)"
^XMB(3.9,42,2,2279,0)="""RTN"",""HLOSRVR1"",215,0)"
^XMB(3.9,42,2,2280,0)=" K SEG"
^XMB(3.9,42,2,2281,0)="""RTN"",""HLOSRVR1"",216,0)"
^XMB(3.9,42,2,2282,0)=" M SEG=A"
^XMB(3.9,42,2,2283,0)="""RTN"",""HLOSRVR1"",217,0)"
^XMB(3.9,42,2,2284,0)=" Q"
^XMB(3.9,42,2,2285,0)="""RTN"",""HLOSRVR1"",218,0)"
^XMB(3.9,42,2,2286,0)=" ;"
^XMB(3.9,42,2,2287,0)="""RTN"",""HLOSRVR1"",219,0)"
^XMB(3.9,42,2,2288,0)="ERROR ;error trap"
^XMB(3.9,42,2,2289,0)="""RTN"",""HLOSRVR1"",220,0)"
^XMB(3.9,42,2,2290,0)=" S $ETRAP=""D UNWIND^%ZTER"""
^XMB(3.9,42,2,2291,0)="""RTN"",""HLOSRVR1"",221,0)"
^XMB(3.9,42,2,2292,0)=" D END^HLOSRVR"
^XMB(3.9,42,2,2293,0)="""RTN"",""HLOSRVR1"",222,0)"
^XMB(3.9,42,2,2294,0)=" ;"
^XMB(3.9,42,2,2295,0)="""RTN"",""HLOSRVR1"",223,0)"
^XMB(3.9,42,2,2296,0)=" ;while debugging quit on all errors"
^XMB(3.9,42,2,2297,0)="""RTN"",""HLOSRVR1"",224,0)"
^XMB(3.9,42,2,2298,0)=" I $G(^HLTMP(""LOG ALL ERRORS"")) D ^%ZTER QUIT"
^XMB(3.9,42,2,2299,0)="""RTN"",""HLOSRVR1"",225,0)"
^XMB(3.9,42,2,2300,0)=" ;"
^XMB(3.9,42,2,2301,0)="""RTN"",""HLOSRVR1"",226,0)"
^XMB(3.9,42,2,2302,0)=" ;don't log these common errors"
^XMB(3.9,42,2,2303,0)="""RTN"",""HLOSRVR1"",227,0)"
^XMB(3.9,42,2,2304,0)=" I ($ECODE[""READ"")!($ECODE[""NOTOPEN"")!($ECODE[""DEVNOTOPN"")!($ECODE[""WRITE"")!($ECODE[""OPENERR"") D"
^XMB(3.9,42,2,2305,0)="""RTN"",""HLOSRVR1"",228,0)"
^XMB(3.9,42,2,2306,0)=" .;"
^XMB(3.9,42,2,2307,0)="""RTN"",""HLOSRVR1"",229,0)"
^XMB(3.9,42,2,2308,0)=" E  D"
^XMB(3.9,42,2,2309,0)="""RTN"",""HLOSRVR1"",230,0)"
^XMB(3.9,42,2,2310,0)=" .D ^%ZTER"
^XMB(3.9,42,2,2311,0)="""RTN"",""HLOSRVR1"",231,0)"
^XMB(3.9,42,2,2312,0)=" ;"
^XMB(3.9,42,2,2313,0)="""RTN"",""HLOSRVR1"",232,0)"
^XMB(3.9,42,2,2314,0)=" ;concurrent server connections (multi-listener) should stop execution, only a single server may continue"
^XMB(3.9,42,2,2315,0)="""RTN"",""HLOSRVR1"",233,0)"
^XMB(3.9,42,2,2316,0)=" Q:$P($G(HLCSTATE(""LINK"",""SERVER"")),""^"",2)'=""S"""
^XMB(3.9,42,2,2317,0)="""RTN"",""HLOSRVR1"",234,0)"
^XMB(3.9,42,2,2318,0)=" ;"
^XMB(3.9,42,2,2319,0)="""RTN"",""HLOSRVR1"",235,0)"
^XMB(3.9,42,2,2320,0)=" ;a lot of errors of the same time may indicate an endless loop, so keep a count"
^XMB(3.9,42,2,2321,0)="""RTN"",""HLOSRVR1"",236,0)"
^XMB(3.9,42,2,2322,0)=" S ^TMP(""HL7 ERRORS"",$J,$ECODE)=$G(^TMP(""HL7 ERRORS"",$J,$ECODE))+1"
^XMB(3.9,42,2,2323,0)="""RTN"",""HLOSRVR1"",237,0)"
^XMB(3.9,42,2,2324,0)=" ;"
^XMB(3.9,42,2,2325,0)="""RTN"",""HLOSRVR1"",238,0)"
^XMB(3.9,42,2,2326,0)=" I ($G(^TMP(""HL7 ERRORS"",$J,$ECODE))>100) K ^TMP(""HL7 ERRORS"",$J) QUIT"
^XMB(3.9,42,2,2327,0)="""RTN"",""HLOSRVR1"",239,0)"
^XMB(3.9,42,2,2328,0)=" ;"
^XMB(3.9,42,2,2329,0)="""RTN"",""HLOSRVR1"",240,0)"
^XMB(3.9,42,2,2330,0)=" ;resume execution for the single listener"
^XMB(3.9,42,2,2331,0)="""RTN"",""HLOSRVR1"",241,0)"
^XMB(3.9,42,2,2332,0)=" D UNWIND^%ZTER"
^XMB(3.9,42,2,2333,0)="""RTN"",""HLOSRVR1"",242,0)"
^XMB(3.9,42,2,2334,0)=" Q"
^XMB(3.9,42,2,2335,0)="""RTN"",""HLOSTAT"")"
^XMB(3.9,42,2,2336,0)="0^6^B55434883"
^XMB(3.9,42,2,2337,0)="""RTN"",""HLOSTAT"",1,0)"
^XMB(3.9,42,2,2338,0)="HLOSTAT ;ALB/CJM- HLO STATISTICS- 10/4/94 1pm"
^XMB(3.9,42,2,2339,0)="""RTN"",""HLOSTAT"",2,0)"
^XMB(3.9,42,2,2340,0)=" ;;1.6;HEALTH LEVEL SEVEN;**130**;Oct 13, 1995;Build 10"
^XMB(3.9,42,2,2341,0)="""RTN"",""HLOSTAT"",3,0)"
^XMB(3.9,42,2,2342,0)=" ;"
^XMB(3.9,42,2,2343,0)="""RTN"",""HLOSTAT"",4,0)"
^XMB(3.9,42,2,2344,0)=" ;"
^XMB(3.9,42,2,2345,0)="""RTN"",""HLOSTAT"",5,0)"
^XMB(3.9,42,2,2346,0)="COUNT(HLCSTATE,RAP,SAP,TYPE) ;"
^XMB(3.9,42,2,2347,0)="""RTN"",""HLOSTAT"",6,0)"
^XMB(3.9,42,2,2348,0)=" S:RAP="""" RAP=""UNKNOWN"""
^XMB(3.9,42,2,2349,0)="""RTN"",""HLOSTAT"",7,0)"
^XMB(3.9,42,2,2350,0)=" S:SAP="""" SAP=""UNKNOWN"""
^XMB(3.9,42,2,2351,0)="""RTN"",""HLOSTAT"",8,0)"
^XMB(3.9,42,2,2352,0)=" S:$L(TYPE)<2 TYPE=""UNKNOWN"""
^XMB(3.9,42,2,2353,0)="""RTN"",""HLOSTAT"",9,0)"
^XMB(3.9,42,2,2354,0)=" S HLCSTATE(""COUNTS"")=$G(HLCSTATE(""COUNTS""))+1,HLCSTATE(""COUNTS"",SAP,RAP,TYPE)=1+$G(HLCSTATE(""COUNTS"",SAP,RAP,TYPE))"
^XMB(3.9,42,2,2355,0)="""RTN"",""HLOSTAT"",10,0)"
^XMB(3.9,42,2,2356,0)=" Q"
^XMB(3.9,42,2,2357,0)="""RTN"",""HLOSTAT"",11,0)"
^XMB(3.9,42,2,2358,0)="SAVECNTS(HLCSTATE) ;"
^XMB(3.9,42,2,2359,0)="""RTN"",""HLOSTAT"",12,0)"
^XMB(3.9,42,2,2360,0)=" N TIME,DIR,RAP,SAP,TYPE,COUNT"
^XMB(3.9,42,2,2361,0)="""RTN"",""HLOSTAT"",13,0)"
^XMB(3.9,42,2,2362,0)=" Q:'HLCSTATE(""COUNTS"")"
^XMB(3.9,42,2,2363,0)="""RTN"",""HLOSTAT"",14,0)"
^XMB(3.9,42,2,2364,0)=" S TIME=$E($$NOW^XLFDT,1,10)"
^XMB(3.9,42,2,2365,0)="""RTN"",""HLOSTAT"",15,0)"
^XMB(3.9,42,2,2366,0)=" S DIR=$S(+$G(HLCSTATE(""SERVER"")):""IN"",1:""OUT"")"
^XMB(3.9,42,2,2367,0)="""RTN"",""HLOSTAT"",16,0)"
^XMB(3.9,42,2,2368,0)=" I $G(HLCSTATE(""COUNTS"",""ACKS"")) D"
^XMB(3.9,42,2,2369,0)="""RTN"",""HLOSTAT"",17,0)"
^XMB(3.9,42,2,2370,0)=" .I $$INC^HLOSITE($NA(^HLSTATS($S(DIR=""IN"":""OUT"",1:""IN""),""HOURLY"",+TIME,""ACCEPT ACK"")),HLCSTATE(""COUNTS"",""ACKS""))"
^XMB(3.9,42,2,2371,0)="""RTN"",""HLOSTAT"",18,0)"
^XMB(3.9,42,2,2372,0)=" S SAP="""""
^XMB(3.9,42,2,2373,0)="""RTN"",""HLOSTAT"",19,0)"
^XMB(3.9,42,2,2374,0)=" F  S SAP=$O(HLCSTATE(""COUNTS"",SAP)) Q:SAP=""""  D"
^XMB(3.9,42,2,2375,0)="""RTN"",""HLOSTAT"",20,0)"
^XMB(3.9,42,2,2376,0)=" .S RAP="""""
^XMB(3.9,42,2,2377,0)="""RTN"",""HLOSTAT"",21,0)"
^XMB(3.9,42,2,2378,0)=" .F  S RAP=$O(HLCSTATE(""COUNTS"",SAP,RAP)) Q:RAP=""""  D"
^XMB(3.9,42,2,2379,0)="""RTN"",""HLOSTAT"",22,0)"
^XMB(3.9,42,2,2380,0)=" ..S TYPE="""""
^XMB(3.9,42,2,2381,0)="""RTN"",""HLOSTAT"",23,0)"
^XMB(3.9,42,2,2382,0)=" ..F  S TYPE=$O(HLCSTATE(""COUNTS"",SAP,RAP,TYPE)) Q:TYPE=""""  D"
^XMB(3.9,42,2,2383,0)="""RTN"",""HLOSTAT"",24,0)"
^XMB(3.9,42,2,2384,0)=" ...S COUNT=HLCSTATE(""COUNTS"",SAP,RAP,TYPE)"
^XMB(3.9,42,2,2385,0)="""RTN"",""HLOSTAT"",25,0)"
^XMB(3.9,42,2,2386,0)=" ...I $$INC^HLOSITE($NA(^HLSTATS(DIR,""HOURLY"",+TIME,SAP,RAP,TYPE)),COUNT)"
^XMB(3.9,42,2,2387,0)="""RTN"",""HLOSTAT"",26,0)"
^XMB(3.9,42,2,2388,0)=" K HLCSTATE(""COUNTS"") S HLCSTATE(""COUNTS"")=0"
^XMB(3.9,42,2,2389,0)="""RTN"",""HLOSTAT"",27,0)"
^XMB(3.9,42,2,2390,0)=" Q"
^XMB(3.9,42,2,2391,0)="""RTN"",""HLOSTAT"",28,0)"
^XMB(3.9,42,2,2392,0)=" ;"
^XMB(3.9,42,2,2393,0)="""RTN"",""HLOSTAT"",29,0)"
^XMB(3.9,42,2,2394,0)="TOTAL(WORK) ;totals hours into days and days into months"
^XMB(3.9,42,2,2395,0)="""RTN"",""HLOSTAT"",30,0)"
^XMB(3.9,42,2,2396,0)=" ;"
^XMB(3.9,42,2,2397,0)="""RTN"",""HLOSTAT"",31,0)"
^XMB(3.9,42,2,2398,0)=" N RAP,SAP,TIME,LIMIT,DIR,COUNT,MONTH,START,END"
^XMB(3.9,42,2,2399,0)="""RTN"",""HLOSTAT"",32,0)"
^XMB(3.9,42,2,2400,0)=" ;"
^XMB(3.9,42,2,2401,0)="""RTN"",""HLOSTAT"",33,0)"
^XMB(3.9,42,2,2402,0)=" ;start totaling the next day after last date totaled"
^XMB(3.9,42,2,2403,0)="""RTN"",""HLOSTAT"",34,0)"
^XMB(3.9,42,2,2404,0)=" S START=$G(^HLSTATS(""END DATE""))"
^XMB(3.9,42,2,2405,0)="""RTN"",""HLOSTAT"",35,0)"
^XMB(3.9,42,2,2406,0)=" S:START START=$$FMADD^XLFDT(START,1)"
^XMB(3.9,42,2,2407,0)="""RTN"",""HLOSTAT"",36,0)"
^XMB(3.9,42,2,2408,0)=" ;"
^XMB(3.9,42,2,2409,0)="""RTN"",""HLOSTAT"",37,0)"
^XMB(3.9,42,2,2410,0)=" ;end totaling in the last hour of yesterday and save it so that the next run knows where to start"
^XMB(3.9,42,2,2411,0)="""RTN"",""HLOSTAT"",38,0)"
^XMB(3.9,42,2,2412,0)=" S END=$$FMADD^XLFDT($$DT^XLFDT,-1)"
^XMB(3.9,42,2,2413,0)="""RTN"",""HLOSTAT"",39,0)"
^XMB(3.9,42,2,2414,0)=" S ^HLSTATS(""END DATE"")=END"
^XMB(3.9,42,2,2415,0)="""RTN"",""HLOSTAT"",40,0)"
^XMB(3.9,42,2,2416,0)=" S END=END+.24"
^XMB(3.9,42,2,2417,0)="""RTN"",""HLOSTAT"",41,0)"
^XMB(3.9,42,2,2418,0)=" ;"
^XMB(3.9,42,2,2419,0)="""RTN"",""HLOSTAT"",42,0)"
^XMB(3.9,42,2,2420,0)=" ;total hours into days"
^XMB(3.9,42,2,2421,0)="""RTN"",""HLOSTAT"",43,0)"
^XMB(3.9,42,2,2422,0)=" S LIMIT=$$FMADD^XLFDT($$DT^XLFDT,,-48) ;save ~48 hours of hourly data"
^XMB(3.9,42,2,2423,0)="""RTN"",""HLOSTAT"",44,0)"
^XMB(3.9,42,2,2424,0)=" F DIR=""IN"",""OUT"" D"
^XMB(3.9,42,2,2425,0)="""RTN"",""HLOSTAT"",45,0)"
^XMB(3.9,42,2,2426,0)=" .S TIME=0"
^XMB(3.9,42,2,2427,0)="""RTN"",""HLOSTAT"",46,0)"
^XMB(3.9,42,2,2428,0)=" .F  S TIME=$O(^HLSTATS(DIR,""HOURLY"",TIME)) Q:'TIME  Q:(TIME>END)  D"
^XMB(3.9,42,2,2429,0)="""RTN"",""HLOSTAT"",47,0)"
^XMB(3.9,42,2,2430,0)=" ..D:'(TIME<START)"
^XMB(3.9,42,2,2431,0)="""RTN"",""HLOSTAT"",48,0)"
^XMB(3.9,42,2,2432,0)=" ...S ^HLSTATS(DIR,""DAILY"",$P(TIME,"".""),""ACCEPT ACK"")=$G(^HLSTATS(DIR,""DAILY"",$P(TIME,"".""),""ACCEPT ACK""))+$G(^HLSTATS(DIR,""HOURLY"",TIME,""ACCEPT ACK""))"
^XMB(3.9,42,2,2433,0)="""RTN"",""HLOSTAT"",49,0)"
^XMB(3.9,42,2,2434,0)=" ...S SAP="""""
^XMB(3.9,42,2,2435,0)="""RTN"",""HLOSTAT"",50,0)"
^XMB(3.9,42,2,2436,0)=" ...F  S SAP=$O(^HLSTATS(DIR,""HOURLY"",TIME,SAP)) Q:SAP=""""  D"
^XMB(3.9,42,2,2437,0)="""RTN"",""HLOSTAT"",51,0)"
^XMB(3.9,42,2,2438,0)=" ....S RAP="""""
^XMB(3.9,42,2,2439,0)="""RTN"",""HLOSTAT"",52,0)"
^XMB(3.9,42,2,2440,0)=" ....F  S RAP=$O(^HLSTATS(DIR,""HOURLY"",TIME,SAP,RAP)) Q:RAP=""""  D"
^XMB(3.9,42,2,2441,0)="""RTN"",""HLOSTAT"",53,0)"
^XMB(3.9,42,2,2442,0)=" .....S TYPE="""""
^XMB(3.9,42,2,2443,0)="""RTN"",""HLOSTAT"",54,0)"
^XMB(3.9,42,2,2444,0)=" .....F  S TYPE=$O(^HLSTATS(DIR,""HOURLY"",TIME,SAP,RAP,TYPE)) Q:TYPE=""""  D"
^XMB(3.9,42,2,2445,0)="""RTN"",""HLOSTAT"",55,0)"
^XMB(3.9,42,2,2446,0)=" ......S COUNT=$G(^HLSTATS(DIR,""HOURLY"",TIME,SAP,RAP,TYPE))"
^XMB(3.9,42,2,2447,0)="""RTN"",""HLOSTAT"",56,0)"
^XMB(3.9,42,2,2448,0)=" ......S ^HLSTATS(DIR,""DAILY"",$P(TIME,"".""),SAP,RAP,TYPE)=$G(^HLSTATS(DIR,""DAILY"",$P(TIME,"".""),SAP,RAP,TYPE))+COUNT"
^XMB(3.9,42,2,2449,0)="""RTN"",""HLOSTAT"",57,0)"
^XMB(3.9,42,2,2450,0)=" ..;get rid of old hourly stats"
^XMB(3.9,42,2,2451,0)="""RTN"",""HLOSTAT"",58,0)"
^XMB(3.9,42,2,2452,0)=" ..K:(TIME<LIMIT) ^HLSTATS(DIR,""HOURLY"",TIME)"
^XMB(3.9,42,2,2453,0)="""RTN"",""HLOSTAT"",59,0)"
^XMB(3.9,42,2,2454,0)=" ;"
^XMB(3.9,42,2,2455,0)="""RTN"",""HLOSTAT"",60,0)"
^XMB(3.9,42,2,2456,0)=" ;total days into months"
^XMB(3.9,42,2,2457,0)="""RTN"",""HLOSTAT"",61,0)"
^XMB(3.9,42,2,2458,0)=" S LIMIT=$$FMADD^XLFDT($$DT^XLFDT,-30) ;save ~30 days of daily data"
^XMB(3.9,42,2,2459,0)="""RTN"",""HLOSTAT"",62,0)"
^XMB(3.9,42,2,2460,0)=" F DIR=""IN"",""OUT"" D"
^XMB(3.9,42,2,2461,0)="""RTN"",""HLOSTAT"",63,0)"
^XMB(3.9,42,2,2462,0)=" .S TIME=0"
^XMB(3.9,42,2,2463,0)="""RTN"",""HLOSTAT"",64,0)"
^XMB(3.9,42,2,2464,0)=" .F  S TIME=$O(^HLSTATS(DIR,""DAILY"",TIME)) Q:'TIME  Q:(TIME>END)  D"
^XMB(3.9,42,2,2465,0)="""RTN"",""HLOSTAT"",65,0)"
^XMB(3.9,42,2,2466,0)=" ..D:'(TIME<START)"
^XMB(3.9,42,2,2467,0)="""RTN"",""HLOSTAT"",66,0)"
^XMB(3.9,42,2,2468,0)=" ...S MONTH=$E(TIME,1,5)"
^XMB(3.9,42,2,2469,0)="""RTN"",""HLOSTAT"",67,0)"
^XMB(3.9,42,2,2470,0)=" ...S ^HLSTATS(DIR,""MONTHLY"",MONTH,""ACCEPT ACK"")=$G(^HLSTATS(DIR,""MONTHLY"",MONTH,""ACCEPT ACK""))+$G(^HLSTATS(DIR,""DAILY"",TIME,""ACCEPT ACK""))"
^XMB(3.9,42,2,2471,0)="""RTN"",""HLOSTAT"",68,0)"
^XMB(3.9,42,2,2472,0)=" ...S SAP="""""
^XMB(3.9,42,2,2473,0)="""RTN"",""HLOSTAT"",69,0)"
^XMB(3.9,42,2,2474,0)=" ...F  S SAP=$O(^HLSTATS(DIR,""DAILY"",TIME,SAP)) Q:SAP=""""  D"
^XMB(3.9,42,2,2475,0)="""RTN"",""HLOSTAT"",70,0)"
^XMB(3.9,42,2,2476,0)=" ....S RAP="""""
^XMB(3.9,42,2,2477,0)="""RTN"",""HLOSTAT"",71,0)"
^XMB(3.9,42,2,2478,0)=" ....F  S RAP=$O(^HLSTATS(DIR,""DAILY"",TIME,SAP,RAP)) Q:RAP=""""  D"
^XMB(3.9,42,2,2479,0)="""RTN"",""HLOSTAT"",72,0)"
^XMB(3.9,42,2,2480,0)=" .....S TYPE="""""
^XMB(3.9,42,2,2481,0)="""RTN"",""HLOSTAT"",73,0)"
^XMB(3.9,42,2,2482,0)=" .....F  S TYPE=$O(^HLSTATS(DIR,""DAILY"",TIME,SAP,RAP,TYPE)) Q:TYPE=""""  D"
^XMB(3.9,42,2,2483,0)="""RTN"",""HLOSTAT"",74,0)"
^XMB(3.9,42,2,2484,0)=" ......S COUNT=$G(^HLSTATS(DIR,""DAILY"",TIME,SAP,RAP,TYPE))"
^XMB(3.9,42,2,2485,0)="""RTN"",""HLOSTAT"",75,0)"
^XMB(3.9,42,2,2486,0)=" ......S ^HLSTATS(DIR,""MONTHLY"",MONTH,SAP,RAP,TYPE)=$G(^HLSTATS(DIR,""MONTHLY"",MONTH,SAP,RAP,TYPE))+COUNT"
^XMB(3.9,42,2,2487,0)="""RTN"",""HLOSTAT"",76,0)"
^XMB(3.9,42,2,2488,0)=" ..K:(TIME<LIMIT) ^HLSTATS(DIR,""DAILY"",TIME)"
^XMB(3.9,42,2,2489,0)="""RTN"",""HLOSTAT"",77,0)"
^XMB(3.9,42,2,2490,0)=" Q"
^XMB(3.9,42,2,2491,0)="""RTN"",""HLOSTAT"",78,0)"
^XMB(3.9,42,2,2492,0)="REPORT ;Interactive option for printing the message statistics report"
^XMB(3.9,42,2,2493,0)="""RTN"",""HLOSTAT"",79,0)"
^XMB(3.9,42,2,2494,0)=" N DIR,TYPE,START,END"
^XMB(3.9,42,2,2495,0)="""RTN"",""HLOSTAT"",80,0)"
^XMB(3.9,42,2,2496,0)=" W !,""Hourly, daily, and monthly statistics are maintained."""
^XMB(3.9,42,2,2497,0)="""RTN"",""HLOSTAT"",81,0)"
^XMB(3.9,42,2,2498,0)=" W !,""Hourly statistics are available for approximately the last 24 hours."""
^XMB(3.9,42,2,2499,0)="""RTN"",""HLOSTAT"",82,0)"
^XMB(3.9,42,2,2500,0)=" W !,""Daily statistics are available for approximately the last 30 days."""
^XMB(3.9,42,2,2501,0)="""RTN"",""HLOSTAT"",83,0)"
^XMB(3.9,42,2,2502,0)=" W !,""Monthly statistics are kept indefinitely"""
^XMB(3.9,42,2,2503,0)="""RTN"",""HLOSTAT"",84,0)"
^XMB(3.9,42,2,2504,0)=" S DIR(0)=""S^h:HOURLY;d:DAILY;m:MONTHLY"""
^XMB(3.9,42,2,2505,0)="""RTN"",""HLOSTAT"",85,0)"
^XMB(3.9,42,2,2506,0)=" S DIR(""A"")=""Which type of statistics should be reported"""
^XMB(3.9,42,2,2507,0)="""RTN"",""HLOSTAT"",86,0)"
^XMB(3.9,42,2,2508,0)=" S DIR(""B"")=""MONTHLY"""
^XMB(3.9,42,2,2509,0)="""RTN"",""HLOSTAT"",87,0)"
^XMB(3.9,42,2,2510,0)=" D ^DIR"
^XMB(3.9,42,2,2511,0)="""RTN"",""HLOSTAT"",88,0)"
^XMB(3.9,42,2,2512,0)=" Q:$D(DIRUT)"
^XMB(3.9,42,2,2513,0)="""RTN"",""HLOSTAT"",89,0)"
^XMB(3.9,42,2,2514,0)=" I Y'=""h"",Y'=""d"",Y'=""m"" Q"
^XMB(3.9,42,2,2515,0)="""RTN"",""HLOSTAT"",90,0)"
^XMB(3.9,42,2,2516,0)=" S TYPE=$S(Y=""h"":""HOURLY"",Y=""d"":""DAILY"",1:""MONTHLY"")"
^XMB(3.9,42,2,2517,0)="""RTN"",""HLOSTAT"",91,0)"
^XMB(3.9,42,2,2518,0)=" S START=$S(TYPE=""HOURLY"":$E($$FMADD^XLFDT($$NOW^XLFDT,,-24),1,10),TYPE=""DAILY"":$$FMADD^XLFDT(DT,-7),1:$E($$FMADD^XLFDT(DT,-30),1,5)_""01"")"
^XMB(3.9,42,2,2519,0)="""RTN"",""HLOSTAT"",92,0)"
^XMB(3.9,42,2,2520,0)=" S START=$$ASKBEGIN^HLOUSR2(START)"
^XMB(3.9,42,2,2521,0)="""RTN"",""HLOSTAT"",93,0)"
^XMB(3.9,42,2,2522,0)=" Q:'START"
^XMB(3.9,42,2,2523,0)="""RTN"",""HLOSTAT"",94,0)"
^XMB(3.9,42,2,2524,0)=" S END=$$ASKEND^HLOUSR2(START)"
^XMB(3.9,42,2,2525,0)="""RTN"",""HLOSTAT"",95,0)"
^XMB(3.9,42,2,2526,0)=" Q:'END"
^XMB(3.9,42,2,2527,0)="""RTN"",""HLOSTAT"",96,0)"
^XMB(3.9,42,2,2528,0)=" S:TYPE=""MONTHLY"" START=$E(START,1,5)_""00"""
^XMB(3.9,42,2,2529,0)="""RTN"",""HLOSTAT"",97,0)"
^XMB(3.9,42,2,2530,0)=" S:TYPE=""DAILY"" START=$E(START,1,7)"
^XMB(3.9,42,2,2531,0)="""RTN"",""HLOSTAT"",98,0)"
^XMB(3.9,42,2,2532,0)=" S:TYPE=""HOURLY"" START=$E(START,1,10)"
^XMB(3.9,42,2,2533,0)="""RTN"",""HLOSTAT"",99,0)"
^XMB(3.9,42,2,2534,0)=" D:$$DEVICE() PRINT(TYPE,START,END)"
^XMB(3.9,42,2,2535,0)="""RTN"",""HLOSTAT"",100,0)"
^XMB(3.9,42,2,2536,0)=" Q"
^XMB(3.9,42,2,2537,0)="""RTN"",""HLOSTAT"",101,0)"
^XMB(3.9,42,2,2538,0)=" ;"
^XMB(3.9,42,2,2539,0)="""RTN"",""HLOSTAT"",102,0)"
^XMB(3.9,42,2,2540,0)="QUE ;entry point for queuing the message statistics report"
^XMB(3.9,42,2,2541,0)="""RTN"",""HLOSTAT"",103,0)"
^XMB(3.9,42,2,2542,0)=" ;"
^XMB(3.9,42,2,2543,0)="""RTN"",""HLOSTAT"",104,0)"
^XMB(3.9,42,2,2544,0)=" D PRINT($G(HLOPARMS(""STATISTICS TYPE"")),$G(HLOPARMS(""START DT/TM"")),$G(HLOPARMS(""END DT/TM"")))"
^XMB(3.9,42,2,2545,0)="""RTN"",""HLOSTAT"",105,0)"
^XMB(3.9,42,2,2546,0)=" Q"
^XMB(3.9,42,2,2547,0)="""RTN"",""HLOSTAT"",106,0)"
^XMB(3.9,42,2,2548,0)=" ;"
^XMB(3.9,42,2,2549,0)="""RTN"",""HLOSTAT"",107,0)"
^XMB(3.9,42,2,2550,0)="PRINT(STATTYPE,START,END) ;"
^XMB(3.9,42,2,2551,0)="""RTN"",""HLOSTAT"",108,0)"
^XMB(3.9,42,2,2552,0)=" ;"
^XMB(3.9,42,2,2553,0)="""RTN"",""HLOSTAT"",109,0)"
^XMB(3.9,42,2,2554,0)=" N RAP,SAP,TIME,DIR,COUNT,PAGE,CRT,QUIT"
^XMB(3.9,42,2,2555,0)="""RTN"",""HLOSTAT"",110,0)"
^XMB(3.9,42,2,2556,0)=" S QUIT=0"
^XMB(3.9,42,2,2557,0)="""RTN"",""HLOSTAT"",111,0)"
^XMB(3.9,42,2,2558,0)=" S CRT=$S($E(IOST,1,2)=""C-"":1,1:0)"
^XMB(3.9,42,2,2559,0)="""RTN"",""HLOSTAT"",112,0)"
^XMB(3.9,42,2,2560,0)=" ;"
^XMB(3.9,42,2,2561,0)="""RTN"",""HLOSTAT"",113,0)"
^XMB(3.9,42,2,2562,0)=" U IO"
^XMB(3.9,42,2,2563,0)="""RTN"",""HLOSTAT"",114,0)"
^XMB(3.9,42,2,2564,0)=" W:CRT @IOF"
^XMB(3.9,42,2,2565,0)="""RTN"",""HLOSTAT"",115,0)"
^XMB(3.9,42,2,2566,0)=" W ""HLO MESSAGING STATISTICS REPORT "",$$FMTE^XLFDT($$NOW^XLFDT),?70,""Page 1"""
^XMB(3.9,42,2,2567,0)="""RTN"",""HLOSTAT"",116,0)"
^XMB(3.9,42,2,2568,0)=" D LINE($$LJ(""Type:"",15)_STATTYPE)"
^XMB(3.9,42,2,2569,0)="""RTN"",""HLOSTAT"",117,0)"
^XMB(3.9,42,2,2570,0)=" D LINE($$LJ(""Beginning:"",15)_$S(STATTYPE=""MONTHLY"":$$FMTE^XLFDT(START),1:$$FMTE^XLFDT(START)))"
^XMB(3.9,42,2,2571,0)="""RTN"",""HLOSTAT"",118,0)"
^XMB(3.9,42,2,2572,0)=" D LINE($$LJ(""Ending:"",15)_$$FMTE^XLFDT(END))"
^XMB(3.9,42,2,2573,0)="""RTN"",""HLOSTAT"",119,0)"
^XMB(3.9,42,2,2574,0)=" S PAGE=1"
^XMB(3.9,42,2,2575,0)="""RTN"",""HLOSTAT"",120,0)"
^XMB(3.9,42,2,2576,0)=" ;"
^XMB(3.9,42,2,2577,0)="""RTN"",""HLOSTAT"",121,0)"
^XMB(3.9,42,2,2578,0)=" ;"
^XMB(3.9,42,2,2579,0)="""RTN"",""HLOSTAT"",122,0)"
^XMB(3.9,42,2,2580,0)=" F DIR=""IN"",""OUT"" D  Q:QUIT"
^XMB(3.9,42,2,2581,0)="""RTN"",""HLOSTAT"",123,0)"
^XMB(3.9,42,2,2582,0)=" .N TOTAL"
^XMB(3.9,42,2,2583,0)="""RTN"",""HLOSTAT"",124,0)"
^XMB(3.9,42,2,2584,0)=" .S TOTAL=0"
^XMB(3.9,42,2,2585,0)="""RTN"",""HLOSTAT"",125,0)"
^XMB(3.9,42,2,2586,0)=" .D LINE("" "")"
^XMB(3.9,42,2,2587,0)="""RTN"",""HLOSTAT"",126,0)"
^XMB(3.9,42,2,2588,0)=" .S TIME=START"
^XMB(3.9,42,2,2589,0)="""RTN"",""HLOSTAT"",127,0)"
^XMB(3.9,42,2,2590,0)=" .S:STATTYPE=""MONTHLY"" TIME=$E(TIME,1,5)"
^XMB(3.9,42,2,2591,0)="""RTN"",""HLOSTAT"",128,0)"
^XMB(3.9,42,2,2592,0)=" .S TIME=TIME-.0001"
^XMB(3.9,42,2,2593,0)="""RTN"",""HLOSTAT"",129,0)"
^XMB(3.9,42,2,2594,0)=" .D LINE($S(DIR=""IN"":""Incoming Messages:"",1:""Outgoing Messages:""))"
^XMB(3.9,42,2,2595,0)="""RTN"",""HLOSTAT"",130,0)"
^XMB(3.9,42,2,2596,0)=" .Q:QUIT"
^XMB(3.9,42,2,2597,0)="""RTN"",""HLOSTAT"",131,0)"
^XMB(3.9,42,2,2598,0)=" .F  S TIME=$O(^HLSTATS(DIR,STATTYPE,TIME)) Q:((TIME>$G(END))&$G(END))  Q:'TIME  D  Q:QUIT"
^XMB(3.9,42,2,2599,0)="""RTN"",""HLOSTAT"",132,0)"
^XMB(3.9,42,2,2600,0)=" ..N SUBTOTAL"
^XMB(3.9,42,2,2601,0)="""RTN"",""HLOSTAT"",133,0)"
^XMB(3.9,42,2,2602,0)=" ..S SUBTOTAL=0"
^XMB(3.9,42,2,2603,0)="""RTN"",""HLOSTAT"",134,0)"
^XMB(3.9,42,2,2604,0)=" ..D LINE("" "")"
^XMB(3.9,42,2,2605,0)="""RTN"",""HLOSTAT"",135,0)"
^XMB(3.9,42,2,2606,0)=" ..Q:QUIT"
^XMB(3.9,42,2,2607,0)="""RTN"",""HLOSTAT"",136,0)"
^XMB(3.9,42,2,2608,0)=" ..D LINE(""     Time Period: ""_$S(STATTYPE=""MONTHLY"":$$FMTE^XLFDT(TIME_""00""),1:$$FMTE^XLFDT(TIME)))"
^XMB(3.9,42,2,2609,0)="""RTN"",""HLOSTAT"",137,0)"
^XMB(3.9,42,2,2610,0)=" ..Q:QUIT"
^XMB(3.9,42,2,2611,0)="""RTN"",""HLOSTAT"",138,0)"
^XMB(3.9,42,2,2612,0)=" ..S COUNT=$G(^HLSTATS(DIR,STATTYPE,TIME,""ACCEPT ACK""))"
^XMB(3.9,42,2,2613,0)="""RTN"",""HLOSTAT"",139,0)"
^XMB(3.9,42,2,2614,0)=" ..I COUNT D  Q:QUIT"
^XMB(3.9,42,2,2615,0)="""RTN"",""HLOSTAT"",140,0)"
^XMB(3.9,42,2,2616,0)=" ...D LINE("" "")"
^XMB(3.9,42,2,2617,0)="""RTN"",""HLOSTAT"",141,0)"
^XMB(3.9,42,2,2618,0)=" ...Q:QUIT"
^XMB(3.9,42,2,2619,0)="""RTN"",""HLOSTAT"",142,0)"
^XMB(3.9,42,2,2620,0)=" ...D LINE(""          Accept Acknowledgments by All Applications          Count:""_$$RJ(COUNT,10))"
^XMB(3.9,42,2,2621,0)="""RTN"",""HLOSTAT"",143,0)"
^XMB(3.9,42,2,2622,0)=" ...Q:QUIT"
^XMB(3.9,42,2,2623,0)="""RTN"",""HLOSTAT"",144,0)"
^XMB(3.9,42,2,2624,0)=" ...D LINE("" "")"
^XMB(3.9,42,2,2625,0)="""RTN"",""HLOSTAT"",145,0)"
^XMB(3.9,42,2,2626,0)=" ..S SAP="""""
^XMB(3.9,42,2,2627,0)="""RTN"",""HLOSTAT"",146,0)"
^XMB(3.9,42,2,2628,0)=" ..F  S SAP=$O(^HLSTATS(DIR,STATTYPE,TIME,SAP)) Q:SAP=""""  D  Q:QUIT"
^XMB(3.9,42,2,2629,0)="""RTN"",""HLOSTAT"",147,0)"
^XMB(3.9,42,2,2630,0)=" ...Q:SAP=""ACCEPT ACK"""
^XMB(3.9,42,2,2631,0)="""RTN"",""HLOSTAT"",148,0)"
^XMB(3.9,42,2,2632,0)=" ...D LINE(""          Sending Application: ""_SAP)"
^XMB(3.9,42,2,2633,0)="""RTN"",""HLOSTAT"",149,0)"
^XMB(3.9,42,2,2634,0)=" ...Q:QUIT"
^XMB(3.9,42,2,2635,0)="""RTN"",""HLOSTAT"",150,0)"
^XMB(3.9,42,2,2636,0)=" ...S RAP="""""
^XMB(3.9,42,2,2637,0)="""RTN"",""HLOSTAT"",151,0)"
^XMB(3.9,42,2,2638,0)=" ...F  S RAP=$O(^HLSTATS(DIR,STATTYPE,TIME,SAP,RAP)) Q:RAP=""""  D  Q:QUIT"
^XMB(3.9,42,2,2639,0)="""RTN"",""HLOSTAT"",152,0)"
^XMB(3.9,42,2,2640,0)=" ....D LINE(""               Receiving Application: ""_RAP)"
^XMB(3.9,42,2,2641,0)="""RTN"",""HLOSTAT"",153,0)"
^XMB(3.9,42,2,2642,0)=" ....Q:QUIT"
^XMB(3.9,42,2,2643,0)="""RTN"",""HLOSTAT"",154,0)"
^XMB(3.9,42,2,2644,0)=" ....S TYPE="""""
^XMB(3.9,42,2,2645,0)="""RTN"",""HLOSTAT"",155,0)"
^XMB(3.9,42,2,2646,0)=" ....F  S TYPE=$O(^HLSTATS(DIR,STATTYPE,TIME,SAP,RAP,TYPE)) Q:TYPE=""""  D  Q:QUIT"
^XMB(3.9,42,2,2647,0)="""RTN"",""HLOSTAT"",156,0)"
^XMB(3.9,42,2,2648,0)=" .....S COUNT=$G(^HLSTATS(DIR,STATTYPE,TIME,SAP,RAP,TYPE))"
^XMB(3.9,42,2,2649,0)="""RTN"",""HLOSTAT"",157,0)"
^XMB(3.9,42,2,2650,0)=" .....S SUBTOTAL=SUBTOTAL+COUNT"
^XMB(3.9,42,2,2651,0)="""RTN"",""HLOSTAT"",158,0)"
^XMB(3.9,42,2,2652,0)=" .....D LINE(""                    Message Type: ""_$$LJ(TYPE,25)_""   Count:""_$$RJ(COUNT,10))"
^XMB(3.9,42,2,2653,0)="""RTN"",""HLOSTAT"",159,0)"
^XMB(3.9,42,2,2654,0)=" .....Q:QUIT"
^XMB(3.9,42,2,2655,0)="""RTN"",""HLOSTAT"",160,0)"
^XMB(3.9,42,2,2656,0)=" ..I 'QUIT D"
^XMB(3.9,42,2,2657,0)="""RTN"",""HLOSTAT"",161,0)"
^XMB(3.9,42,2,2658,0)=" ...S TOTAL=TOTAL+SUBTOTAL"
^XMB(3.9,42,2,2659,0)="""RTN"",""HLOSTAT"",162,0)"
^XMB(3.9,42,2,2660,0)=" ...D LINE("" ""),LINE($$RJ(""**""_STATTYPE_"" SUBTOTAL ** (excluding commit acks):"",68)_$$RJ(SUBTOTAL,10))"
^XMB(3.9,42,2,2661,0)="""RTN"",""HLOSTAT"",163,0)"
^XMB(3.9,42,2,2662,0)=" .D:'QUIT LINE("" ""),LINE($$RJ(""** TOTAL ""_$S(DIR=""IN"":""INCOMING"",1:""OUTGOING"")_"" MESSAGES ** (excluding commit acks):"",68)_$$RJ(TOTAL,10))"
^XMB(3.9,42,2,2663,0)="""RTN"",""HLOSTAT"",164,0)"
^XMB(3.9,42,2,2664,0)=" I CRT,'QUIT D PAUSE2"
^XMB(3.9,42,2,2665,0)="""RTN"",""HLOSTAT"",165,0)"
^XMB(3.9,42,2,2666,0)=" I $D(ZTQUEUED) S ZTREQ=""@"""
^XMB(3.9,42,2,2667,0)="""RTN"",""HLOSTAT"",166,0)"
^XMB(3.9,42,2,2668,0)=" D ^%ZISC"
^XMB(3.9,42,2,2669,0)="""RTN"",""HLOSTAT"",167,0)"
^XMB(3.9,42,2,2670,0)=" Q"
^XMB(3.9,42,2,2671,0)="""RTN"",""HLOSTAT"",168,0)"
^XMB(3.9,42,2,2672,0)=" ;"
^XMB(3.9,42,2,2673,0)="""RTN"",""HLOSTAT"",169,0)"
^XMB(3.9,42,2,2674,0)="DEVICE() ;"
^XMB(3.9,42,2,2675,0)="""RTN"",""HLOSTAT"",170,0)"
^XMB(3.9,42,2,2676,0)=" ;Description: allows the user to select a device."
^XMB(3.9,42,2,2677,0)="""RTN"",""HLOSTAT"",171,0)"
^XMB(3.9,42,2,2678,0)=" ;Input: none"
^XMB(3.9,42,2,2679,0)="""RTN"",""HLOSTAT"",172,0)"
^XMB(3.9,42,2,2680,0)=" ;"
^XMB(3.9,42,2,2681,0)="""RTN"",""HLOSTAT"",173,0)"
^XMB(3.9,42,2,2682,0)=" ;Output:"
^XMB(3.9,42,2,2683,0)="""RTN"",""HLOSTAT"",174,0)"
^XMB(3.9,42,2,2684,0)=" ;  Function Value - Returns 0 if the user decides not to print or to"
^XMB(3.9,42,2,2685,0)="""RTN"",""HLOSTAT"",175,0)"
^XMB(3.9,42,2,2686,0)=" ;    queue the report, 1 otherwise."
^XMB(3.9,42,2,2687,0)="""RTN"",""HLOSTAT"",176,0)"
^XMB(3.9,42,2,2688,0)=" ;"
^XMB(3.9,42,2,2689,0)="""RTN"",""HLOSTAT"",177,0)"
^XMB(3.9,42,2,2690,0)=" N OK,HLOPARMS"
^XMB(3.9,42,2,2691,0)="""RTN"",""HLOSTAT"",178,0)"
^XMB(3.9,42,2,2692,0)=" S OK=1"
^XMB(3.9,42,2,2693,0)="""RTN"",""HLOSTAT"",179,0)"
^XMB(3.9,42,2,2694,0)=" S %ZIS=""MQ"""
^XMB(3.9,42,2,2695,0)="""RTN"",""HLOSTAT"",180,0)"
^XMB(3.9,42,2,2696,0)=" D ^%ZIS"
^XMB(3.9,42,2,2697,0)="""RTN"",""HLOSTAT"",181,0)"
^XMB(3.9,42,2,2698,0)=" S:POP OK=0"
^XMB(3.9,42,2,2699,0)="""RTN"",""HLOSTAT"",182,0)"
^XMB(3.9,42,2,2700,0)=" D:OK&$D(IO(""Q""))"
^XMB(3.9,42,2,2701,0)="""RTN"",""HLOSTAT"",183,0)"
^XMB(3.9,42,2,2702,0)=" .S HLOPARMS(""STATISTICS TYPE"")=TYPE,HLOPARMS(""START DT/TM"")=START,HLOPARMS(""END DT/TM"")=END"
^XMB(3.9,42,2,2703,0)="""RTN"",""HLOSTAT"",184,0)"
^XMB(3.9,42,2,2704,0)=" .S ZTRTN=""QUE^HLOSTAT"",ZTDESC=""HLO MESSAGE STATISTICS REPORT"",ZTSAVE(""HLOPARMS("")="""""
^XMB(3.9,42,2,2705,0)="""RTN"",""HLOSTAT"",185,0)"
^XMB(3.9,42,2,2706,0)=" .D ^%ZTLOAD"
^XMB(3.9,42,2,2707,0)="""RTN"",""HLOSTAT"",186,0)"
^XMB(3.9,42,2,2708,0)=" .W !,$S($D(ZTSK):""REQUEST QUEUED TASK=""_ZTSK,1:""REQUEST CANCELLED"")"
^XMB(3.9,42,2,2709,0)="""RTN"",""HLOSTAT"",187,0)"
^XMB(3.9,42,2,2710,0)=" .D HOME^%ZIS"
^XMB(3.9,42,2,2711,0)="""RTN"",""HLOSTAT"",188,0)"
^XMB(3.9,42,2,2712,0)=" .S OK=0"
^XMB(3.9,42,2,2713,0)="""RTN"",""HLOSTAT"",189,0)"
^XMB(3.9,42,2,2714,0)=" Q OK"
^XMB(3.9,42,2,2715,0)="""RTN"",""HLOSTAT"",190,0)"
^XMB(3.9,42,2,2716,0)=" ;"
^XMB(3.9,42,2,2717,0)="""RTN"",""HLOSTAT"",191,0)"
^XMB(3.9,42,2,2718,0)="PAUSE ;"
^XMB(3.9,42,2,2719,0)="""RTN"",""HLOSTAT"",192,0)"
^XMB(3.9,42,2,2720,0)=" ;First scrolls to the bottome of the page, then does a screen pause.  Sets QUIT=1 if user decides to quit."
^XMB(3.9,42,2,2721,0)="""RTN"",""HLOSTAT"",193,0)"
^XMB(3.9,42,2,2722,0)=" ;"
^XMB(3.9,42,2,2723,0)="""RTN"",""HLOSTAT"",194,0)"
^XMB(3.9,42,2,2724,0)=" N DIR,X,Y"
^XMB(3.9,42,2,2725,0)="""RTN"",""HLOSTAT"",195,0)"
^XMB(3.9,42,2,2726,0)=" F  Q:$Y>(IOSL-3)  W !"
^XMB(3.9,42,2,2727,0)="""RTN"",""HLOSTAT"",196,0)"
^XMB(3.9,42,2,2728,0)=" S DIR(0)=""E"""
^XMB(3.9,42,2,2729,0)="""RTN"",""HLOSTAT"",197,0)"
^XMB(3.9,42,2,2730,0)=" D ^DIR"
^XMB(3.9,42,2,2731,0)="""RTN"",""HLOSTAT"",198,0)"
^XMB(3.9,42,2,2732,0)=" I ('(+Y))!$D(DIRUT) S QUIT=1"
^XMB(3.9,42,2,2733,0)="""RTN"",""HLOSTAT"",199,0)"
^XMB(3.9,42,2,2734,0)=" Q"
^XMB(3.9,42,2,2735,0)="""RTN"",""HLOSTAT"",200,0)"
^XMB(3.9,42,2,2736,0)="PAUSE2 ;"
^XMB(3.9,42,2,2737,0)="""RTN"",""HLOSTAT"",201,0)"
^XMB(3.9,42,2,2738,0)=" ;Screen pause without scrolling.  Sets QUIT=1 if user decides to quit."
^XMB(3.9,42,2,2739,0)="""RTN"",""HLOSTAT"",202,0)"
^XMB(3.9,42,2,2740,0)=" ;"
^XMB(3.9,42,2,2741,0)="""RTN"",""HLOSTAT"",203,0)"
^XMB(3.9,42,2,2742,0)=" N DIR,X,Y"
^XMB(3.9,42,2,2743,0)="""RTN"",""HLOSTAT"",204,0)"
^XMB(3.9,42,2,2744,0)=" S DIR(0)=""E"""
^XMB(3.9,42,2,2745,0)="""RTN"",""HLOSTAT"",205,0)"
^XMB(3.9,42,2,2746,0)=" D ^DIR"
^XMB(3.9,42,2,2747,0)="""RTN"",""HLOSTAT"",206,0)"
^XMB(3.9,42,2,2748,0)=" I ('(+Y))!$D(DIRUT) S QUIT=1"
^XMB(3.9,42,2,2749,0)="""RTN"",""HLOSTAT"",207,0)"
^XMB(3.9,42,2,2750,0)=" Q"
^XMB(3.9,42,2,2751,0)="""RTN"",""HLOSTAT"",208,0)"
^XMB(3.9,42,2,2752,0)=" ;"
^XMB(3.9,42,2,2753,0)="""RTN"",""HLOSTAT"",209,0)"
^XMB(3.9,42,2,2754,0)="LINE(LINE) ;Prints a line."
^XMB(3.9,42,2,2755,0)="""RTN"",""HLOSTAT"",210,0)"
^XMB(3.9,42,2,2756,0)=" ;"
^XMB(3.9,42,2,2757,0)="""RTN"",""HLOSTAT"",211,0)"
^XMB(3.9,42,2,2758,0)=" I CRT,($Y>(IOSL-4)) D"
^XMB(3.9,42,2,2759,0)="""RTN"",""HLOSTAT"",212,0)"
^XMB(3.9,42,2,2760,0)=" .D PAUSE"
^XMB(3.9,42,2,2761,0)="""RTN"",""HLOSTAT"",213,0)"
^XMB(3.9,42,2,2762,0)=" .Q:QUIT"
^XMB(3.9,42,2,2763,0)="""RTN"",""HLOSTAT"",214,0)"
^XMB(3.9,42,2,2764,0)=" .W @IOF"
^XMB(3.9,42,2,2765,0)="""RTN"",""HLOSTAT"",215,0)"
^XMB(3.9,42,2,2766,0)=" .W LINE"
^XMB(3.9,42,2,2767,0)="""RTN"",""HLOSTAT"",216,0)"
^XMB(3.9,42,2,2768,0)=" ;"
^XMB(3.9,42,2,2769,0)="""RTN"",""HLOSTAT"",217,0)"
^XMB(3.9,42,2,2770,0)=" E  I ('CRT),($Y>(IOSL-2)) D"
^XMB(3.9,42,2,2771,0)="""RTN"",""HLOSTAT"",218,0)"
^XMB(3.9,42,2,2772,0)=" .W @IOF"
^XMB(3.9,42,2,2773,0)="""RTN"",""HLOSTAT"",219,0)"
^XMB(3.9,42,2,2774,0)=" .W ?70,""Page: "",PAGE"
^XMB(3.9,42,2,2775,0)="""RTN"",""HLOSTAT"",220,0)"
^XMB(3.9,42,2,2776,0)=" .S PAGE=PAGE+1"
^XMB(3.9,42,2,2777,0)="""RTN"",""HLOSTAT"",221,0)"
^XMB(3.9,42,2,2778,0)=" .W LINE"
^XMB(3.9,42,2,2779,0)="""RTN"",""HLOSTAT"",222,0)"
^XMB(3.9,42,2,2780,0)=" ;"
^XMB(3.9,42,2,2781,0)="""RTN"",""HLOSTAT"",223,0)"
^XMB(3.9,42,2,2782,0)=" E  W !,LINE"
^XMB(3.9,42,2,2783,0)="""RTN"",""HLOSTAT"",224,0)"
^XMB(3.9,42,2,2784,0)=" Q"
^XMB(3.9,42,2,2785,0)="""RTN"",""HLOSTAT"",225,0)"
^XMB(3.9,42,2,2786,0)=" ;"
^XMB(3.9,42,2,2787,0)="""RTN"",""HLOSTAT"",226,0)"
^XMB(3.9,42,2,2788,0)="LJ(STRING,LEN) ;"
^XMB(3.9,42,2,2789,0)="""RTN"",""HLOSTAT"",227,0)"
^XMB(3.9,42,2,2790,0)=" Q $$LJ^XLFSTR($E(STRING,1,LEN),LEN)"
^XMB(3.9,42,2,2791,0)="""RTN"",""HLOSTAT"",228,0)"
^XMB(3.9,42,2,2792,0)="RJ(STRING,LEN) ;"
^XMB(3.9,42,2,2793,0)="""RTN"",""HLOSTAT"",229,0)"
^XMB(3.9,42,2,2794,0)=" Q $$RJ^XLFSTR($E(STRING,1,LEN),LEN)"
^XMB(3.9,42,2,2795,0)="""RTN"",""HLOTLNK"")"
^XMB(3.9,42,2,2796,0)="0^7^B20724359"
^XMB(3.9,42,2,2797,0)="""RTN"",""HLOTLNK"",1,0)"
^XMB(3.9,42,2,2798,0)="HLOTLNK ;IRMFO-ALB/CJM - APIs for the HL Logical Link file;03/24/2004  14:43"
^XMB(3.9,42,2,2799,0)="""RTN"",""HLOTLNK"",2,0)"
^XMB(3.9,42,2,2800,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126,130**;Oct 13, 1995;Build 10"
^XMB(3.9,42,2,2801,0)="""RTN"",""HLOTLNK"",3,0)"
^XMB(3.9,42,2,2802,0)=" ;"
^XMB(3.9,42,2,2803,0)="""RTN"",""HLOTLNK"",4,0)"
^XMB(3.9,42,2,2804,0)="SETSHUT(LINKIEN) ;"
^XMB(3.9,42,2,2805,0)="""RTN"",""HLOTLNK"",5,0)"
^XMB(3.9,42,2,2806,0)=" ;sets the shutdown flag (can not fail - if the link doesn't exist, by definition its shutdown)"
^XMB(3.9,42,2,2807,0)="""RTN"",""HLOTLNK"",6,0)"
^XMB(3.9,42,2,2808,0)=" Q:'$G(LINKIEN) 1"
^XMB(3.9,42,2,2809,0)="""RTN"",""HLOTLNK"",7,0)"
^XMB(3.9,42,2,2810,0)=" Q:'$D(^HLCS(870,LINKIEN,0)) 1"
^XMB(3.9,42,2,2811,0)="""RTN"",""HLOTLNK"",8,0)"
^XMB(3.9,42,2,2812,0)=" S $P(^HLCS(870,LINKIEN,0),""^"",16)=1"
^XMB(3.9,42,2,2813,0)="""RTN"",""HLOTLNK"",9,0)"
^XMB(3.9,42,2,2814,0)=" Q 1"
^XMB(3.9,42,2,2815,0)="""RTN"",""HLOTLNK"",10,0)"
^XMB(3.9,42,2,2816,0)="SETOPEN(LINKIEN) ;"
^XMB(3.9,42,2,2817,0)="""RTN"",""HLOTLNK"",11,0)"
^XMB(3.9,42,2,2818,0)=" ;clears the shutdown flag, returns 1 on success, 0 on failure"
^XMB(3.9,42,2,2819,0)="""RTN"",""HLOTLNK"",12,0)"
^XMB(3.9,42,2,2820,0)=" Q:'$G(LINKIEN) 0"
^XMB(3.9,42,2,2821,0)="""RTN"",""HLOTLNK"",13,0)"
^XMB(3.9,42,2,2822,0)=" Q:'$D(^HLCS(870,LINKIEN,0)) 0"
^XMB(3.9,42,2,2823,0)="""RTN"",""HLOTLNK"",14,0)"
^XMB(3.9,42,2,2824,0)=" S $P(^HLCS(870,LINKIEN,0),""^"",16)="""""
^XMB(3.9,42,2,2825,0)="""RTN"",""HLOTLNK"",15,0)"
^XMB(3.9,42,2,2826,0)=" Q 1"
^XMB(3.9,42,2,2827,0)="""RTN"",""HLOTLNK"",16,0)"
^XMB(3.9,42,2,2828,0)=" ;"
^XMB(3.9,42,2,2829,0)="""RTN"",""HLOTLNK"",17,0)"
^XMB(3.9,42,2,2830,0)="IFSHUT(LINKNAME) ;"
^XMB(3.9,42,2,2831,0)="""RTN"",""HLOTLNK"",18,0)"
^XMB(3.9,42,2,2832,0)=" ;returns 1 if the link was shut down to HLO"
^XMB(3.9,42,2,2833,0)="""RTN"",""HLOTLNK"",19,0)"
^XMB(3.9,42,2,2834,0)=" N IEN,LINK"
^XMB(3.9,42,2,2835,0)="""RTN"",""HLOTLNK"",20,0)"
^XMB(3.9,42,2,2836,0)=" S LINK=$P($G(LINKNAME),"":"")"
^XMB(3.9,42,2,2837,0)="""RTN"",""HLOTLNK"",21,0)"
^XMB(3.9,42,2,2838,0)=" Q:LINK="""""
^XMB(3.9,42,2,2839,0)="""RTN"",""HLOTLNK"",22,0)"
^XMB(3.9,42,2,2840,0)=" S IEN=$O(^HLCS(870,""B"",LINK,0))"
^XMB(3.9,42,2,2841,0)="""RTN"",""HLOTLNK"",23,0)"
^XMB(3.9,42,2,2842,0)=" Q:'IEN 1"
^XMB(3.9,42,2,2843,0)="""RTN"",""HLOTLNK"",24,0)"
^XMB(3.9,42,2,2844,0)=" Q:$P($G(^HLCS(870,IEN,0)),""^"",16) 1"
^XMB(3.9,42,2,2845,0)="""RTN"",""HLOTLNK"",25,0)"
^XMB(3.9,42,2,2846,0)=" Q 0"
^XMB(3.9,42,2,2847,0)="""RTN"",""HLOTLNK"",26,0)"
^XMB(3.9,42,2,2848,0)=" ;"
^XMB(3.9,42,2,2849,0)="""RTN"",""HLOTLNK"",27,0)"
^XMB(3.9,42,2,2850,0)="DOMAIN(LINKIEN) ;"
^XMB(3.9,42,2,2851,0)="""RTN"",""HLOTLNK"",28,0)"
^XMB(3.9,42,2,2852,0)=" ;Returns the domain associated with this link"
^XMB(3.9,42,2,2853,0)="""RTN"",""HLOTLNK"",29,0)"
^XMB(3.9,42,2,2854,0)=" ;"
^XMB(3.9,42,2,2855,0)="""RTN"",""HLOTLNK"",30,0)"
^XMB(3.9,42,2,2856,0)=" Q:'$G(LINKIEN) """""
^XMB(3.9,42,2,2857,0)="""RTN"",""HLOTLNK"",31,0)"
^XMB(3.9,42,2,2858,0)=" N NODE,DOMAIN"
^XMB(3.9,42,2,2859,0)="""RTN"",""HLOTLNK"",32,0)"
^XMB(3.9,42,2,2860,0)=" S DOMAIN="""""
^XMB(3.9,42,2,2861,0)="""RTN"",""HLOTLNK"",33,0)"
^XMB(3.9,42,2,2862,0)=" S NODE=$G(^HLCS(870,LINKIEN,0))"
^XMB(3.9,42,2,2863,0)="""RTN"",""HLOTLNK"",34,0)"
^XMB(3.9,42,2,2864,0)=" I $P(NODE,""^"",7) D"
^XMB(3.9,42,2,2865,0)="""RTN"",""HLOTLNK"",35,0)"
^XMB(3.9,42,2,2866,0)=" .S DOMAIN=$P($G(^DIC(4.2,$P(NODE,""^"",7),0)),""^"")"
^XMB(3.9,42,2,2867,0)="""RTN"",""HLOTLNK"",36,0)"
^XMB(3.9,42,2,2868,0)=" .S DOMAIN=$S($L(DOMAIN):""HL7.""_DOMAIN,1:"""")"
^XMB(3.9,42,2,2869,0)="""RTN"",""HLOTLNK"",37,0)"
^XMB(3.9,42,2,2870,0)=" I '$L(DOMAIN) S DOMAIN=$P(NODE,""^"",8)"
^XMB(3.9,42,2,2871,0)="""RTN"",""HLOTLNK"",38,0)"
^XMB(3.9,42,2,2872,0)=" Q DOMAIN"
^XMB(3.9,42,2,2873,0)="""RTN"",""HLOTLNK"",39,0)"
^XMB(3.9,42,2,2874,0)="PORT(LINKIEN) ;"
^XMB(3.9,42,2,2875,0)="""RTN"",""HLOTLNK"",40,0)"
^XMB(3.9,42,2,2876,0)=" ;Returns the HLO port associated with this link"
^XMB(3.9,42,2,2877,0)="""RTN"",""HLOTLNK"",41,0)"
^XMB(3.9,42,2,2878,0)=" ;"
^XMB(3.9,42,2,2879,0)="""RTN"",""HLOTLNK"",42,0)"
^XMB(3.9,42,2,2880,0)=" Q:'$G(LINKIEN) """""
^XMB(3.9,42,2,2881,0)="""RTN"",""HLOTLNK"",43,0)"
^XMB(3.9,42,2,2882,0)=" N NODE,PORT"
^XMB(3.9,42,2,2883,0)="""RTN"",""HLOTLNK"",44,0)"
^XMB(3.9,42,2,2884,0)=" S NODE=$G(^HLCS(870,LINKIEN,400))"
^XMB(3.9,42,2,2885,0)="""RTN"",""HLOTLNK"",45,0)"
^XMB(3.9,42,2,2886,0)=" S PORT=$P(NODE,""^"",8)"
^XMB(3.9,42,2,2887,0)="""RTN"",""HLOTLNK"",46,0)"
^XMB(3.9,42,2,2888,0)=" S:'PORT PORT=$S($P($G(^HLD(779.1,1,0)),""^"",3)=""P"":5001,1:5026)"
^XMB(3.9,42,2,2889,0)="""RTN"",""HLOTLNK"",47,0)"
^XMB(3.9,42,2,2890,0)=" Q PORT"
^XMB(3.9,42,2,2891,0)="""RTN"",""HLOTLNK"",48,0)"
^XMB(3.9,42,2,2892,0)=" ;"
^XMB(3.9,42,2,2893,0)="""RTN"",""HLOTLNK"",49,0)"
^XMB(3.9,42,2,2894,0)="PORT2(LINKNAME) ;given the name of the link, returns its HLO port"
^XMB(3.9,42,2,2895,0)="""RTN"",""HLOTLNK"",50,0)"
^XMB(3.9,42,2,2896,0)=" Q $$PORT($O(^HLCS(870,""B"",LINKNAME,0)))"
^XMB(3.9,42,2,2897,0)="""RTN"",""HLOTLNK"",51,0)"
^XMB(3.9,42,2,2898,0)=" ;"
^XMB(3.9,42,2,2899,0)="""RTN"",""HLOTLNK"",52,0)"
^XMB(3.9,42,2,2900,0)="STATNUM(LINKIEN) ;"
^XMB(3.9,42,2,2901,0)="""RTN"",""HLOTLNK"",53,0)"
^XMB(3.9,42,2,2902,0)=" ;Given the ien of the link, this function returns the station #."
^XMB(3.9,42,2,2903,0)="""RTN"",""HLOTLNK"",54,0)"
^XMB(3.9,42,2,2904,0)=" ;"
^XMB(3.9,42,2,2905,0)="""RTN"",""HLOTLNK"",55,0)"
^XMB(3.9,42,2,2906,0)=" Q:'$G(LINKIEN) """""
^XMB(3.9,42,2,2907,0)="""RTN"",""HLOTLNK"",56,0)"
^XMB(3.9,42,2,2908,0)=" N INST"
^XMB(3.9,42,2,2909,0)="""RTN"",""HLOTLNK"",57,0)"
^XMB(3.9,42,2,2910,0)=" S INST=$P($G(^HLCS(870,LINKIEN,0)),""^"",2)"
^XMB(3.9,42,2,2911,0)="""RTN"",""HLOTLNK"",58,0)"
^XMB(3.9,42,2,2912,0)=" Q:'INST """""
^XMB(3.9,42,2,2913,0)="""RTN"",""HLOTLNK"",59,0)"
^XMB(3.9,42,2,2914,0)=" Q $P($G(^DIC(4,INST,99)),""^"")"
^XMB(3.9,42,2,2915,0)="""RTN"",""HLOTLNK"",60,0)"
^XMB(3.9,42,2,2916,0)=" ;"
^XMB(3.9,42,2,2917,0)="""RTN"",""HLOTLNK"",61,0)"
^XMB(3.9,42,2,2918,0)="FINDLINK(STATN) ;"
^XMB(3.9,42,2,2919,0)="""RTN"",""HLOTLNK"",62,0)"
^XMB(3.9,42,2,2920,0)=" ;Returns the link ien based on the station # =STATN"
^XMB(3.9,42,2,2921,0)="""RTN"",""HLOTLNK"",63,0)"
^XMB(3.9,42,2,2922,0)=" ;The link found must have a name starting with ""VA"", as these are"
^XMB(3.9,42,2,2923,0)="""RTN"",""HLOTLNK"",64,0)"
^XMB(3.9,42,2,2924,0)=" ;reserved for officially released links associated with VHA institutions"
^XMB(3.9,42,2,2925,0)="""RTN"",""HLOTLNK"",65,0)"
^XMB(3.9,42,2,2926,0)=" ;** EXCEPTION** MPIVA is an official link associated with 200M"
^XMB(3.9,42,2,2927,0)="""RTN"",""HLOTLNK"",66,0)"
^XMB(3.9,42,2,2928,0)=" ;"
^XMB(3.9,42,2,2929,0)="""RTN"",""HLOTLNK"",67,0)"
^XMB(3.9,42,2,2930,0)=" Q:'$L($G(STATN)) 0"
^XMB(3.9,42,2,2931,0)="""RTN"",""HLOTLNK"",68,0)"
^XMB(3.9,42,2,2932,0)=" ;"
^XMB(3.9,42,2,2933,0)="""RTN"",""HLOTLNK"",69,0)"
^XMB(3.9,42,2,2934,0)=" N NAME,IEN"
^XMB(3.9,42,2,2935,0)="""RTN"",""HLOTLNK"",70,0)"
^XMB(3.9,42,2,2936,0)=" S (NAME,IEN)="""""
^XMB(3.9,42,2,2937,0)="""RTN"",""HLOTLNK"",71,0)"
^XMB(3.9,42,2,2938,0)=" F  S NAME=$O(^HLCS(870,""AC"",STATN,NAME)) Q:NAME=""""  I (NAME'=""VA-VIE""),($E(NAME,1,2)=""VA"")!(NAME=""MPIVA"") S IEN=$O(^HLCS(870,""AC"",STATN,NAME,0)) Q"
^XMB(3.9,42,2,2939,0)="""RTN"",""HLOTLNK"",72,0)"
^XMB(3.9,42,2,2940,0)=" Q IEN"
^XMB(3.9,42,2,2941,0)="""RTN"",""HLOTLNK"",73,0)"
^XMB(3.9,42,2,2942,0)=" ;"
^XMB(3.9,42,2,2943,0)="""RTN"",""HLOTLNK"",74,0)"
^XMB(3.9,42,2,2944,0)="GETLINK(LINKNAME,LINK) ;"
^XMB(3.9,42,2,2945,0)="""RTN"",""HLOTLNK"",75,0)"
^XMB(3.9,42,2,2946,0)=" N IEN"
^XMB(3.9,42,2,2947,0)="""RTN"",""HLOTLNK"",76,0)"
^XMB(3.9,42,2,2948,0)=" S IEN=$O(^HLCS(870,""B"",LINKNAME,0))"
^XMB(3.9,42,2,2949,0)="""RTN"",""HLOTLNK"",77,0)"
^XMB(3.9,42,2,2950,0)=" Q:'IEN 0"
^XMB(3.9,42,2,2951,0)="""RTN"",""HLOTLNK"",78,0)"
^XMB(3.9,42,2,2952,0)=" Q $$GET(IEN,.LINK)"
^XMB(3.9,42,2,2953,0)="""RTN"",""HLOTLNK"",79,0)"
^XMB(3.9,42,2,2954,0)="GET(IEN,LINK) ;"
^XMB(3.9,42,2,2955,0)="""RTN"",""HLOTLNK"",80,0)"
^XMB(3.9,42,2,2956,0)=" N NODE,PTR"
^XMB(3.9,42,2,2957,0)="""RTN"",""HLOTLNK"",81,0)"
^XMB(3.9,42,2,2958,0)=" K LINK"
^XMB(3.9,42,2,2959,0)="""RTN"",""HLOTLNK"",82,0)"
^XMB(3.9,42,2,2960,0)=" S NODE=$G(^HLCS(870,IEN,0))"
^XMB(3.9,42,2,2961,0)="""RTN"",""HLOTLNK"",83,0)"
^XMB(3.9,42,2,2962,0)=" Q:NODE="""" 0"
^XMB(3.9,42,2,2963,0)="""RTN"",""HLOTLNK"",84,0)"
^XMB(3.9,42,2,2964,0)=" S LINK(""NAME"")=$P(NODE,""^"")"
^XMB(3.9,42,2,2965,0)="""RTN"",""HLOTLNK"",85,0)"
^XMB(3.9,42,2,2966,0)=" S LINK(""IEN"")=IEN"
^XMB(3.9,42,2,2967,0)="""RTN"",""HLOTLNK"",86,0)"
^XMB(3.9,42,2,2968,0)=" S LINK(""SHUTDOWN"")=+$P(NODE,""^"",16)"
^XMB(3.9,42,2,2969,0)="""RTN"",""HLOTLNK"",87,0)"
^XMB(3.9,42,2,2970,0)=" I $P(NODE,""^"",7) D"
^XMB(3.9,42,2,2971,0)="""RTN"",""HLOTLNK"",88,0)"
^XMB(3.9,42,2,2972,0)=" .S LINK(""DOMAIN"")=$P(^DIC(4.2,$P(NODE,""^"",7),0),""^"")"
^XMB(3.9,42,2,2973,0)="""RTN"",""HLOTLNK"",89,0)"
^XMB(3.9,42,2,2974,0)=" .S LINK(""DOMAIN"")=$S($L(LINK(""DOMAIN"")):""HL7.""_LINK(""DOMAIN""),1:"""")"
^XMB(3.9,42,2,2975,0)="""RTN"",""HLOTLNK"",90,0)"
^XMB(3.9,42,2,2976,0)=" I $G(LINK(""DOMAIN""))="""" S LINK(""DOMAIN"")=$P(NODE,""^"",8)"
^XMB(3.9,42,2,2977,0)="""RTN"",""HLOTLNK"",91,0)"
^XMB(3.9,42,2,2978,0)=" S PTR=$P(NODE,""^"",3)"
^XMB(3.9,42,2,2979,0)="""RTN"",""HLOTLNK"",92,0)"
^XMB(3.9,42,2,2980,0)=" S LINK(""LLP"")=$S('PTR:"""",1:$P($G(^HLCS(869.1,PTR,0)),""^""))"
^XMB(3.9,42,2,2981,0)="""RTN"",""HLOTLNK"",93,0)"
^XMB(3.9,42,2,2982,0)=" S LINK(""SERVER"")="""""
^XMB(3.9,42,2,2983,0)="""RTN"",""HLOTLNK"",94,0)"
^XMB(3.9,42,2,2984,0)=" I LINK(""LLP"")=""TCP"" D"
^XMB(3.9,42,2,2985,0)="""RTN"",""HLOTLNK"",95,0)"
^XMB(3.9,42,2,2986,0)=" .S LINK(""SERVER"")=1"
^XMB(3.9,42,2,2987,0)="""RTN"",""HLOTLNK"",96,0)"
^XMB(3.9,42,2,2988,0)=" .S NODE=$G(^HLCS(870,IEN,400))"
^XMB(3.9,42,2,2989,0)="""RTN"",""HLOTLNK"",97,0)"
^XMB(3.9,42,2,2990,0)=" .S LINK(""IP"")=$P(NODE,""^"")"
^XMB(3.9,42,2,2991,0)="""RTN"",""HLOTLNK"",98,0)"
^XMB(3.9,42,2,2992,0)=" .S LINK(""PORT"")=$P(NODE,""^"",8)"
^XMB(3.9,42,2,2993,0)="""RTN"",""HLOTLNK"",99,0)"
^XMB(3.9,42,2,2994,0)=" .S:'LINK(""PORT"") LINK(""PORT"")=$S($P($G(^HLD(779.1,1,0)),""^"",3)=""P"":5001,1:5026)"
^XMB(3.9,42,2,2995,0)="""RTN"",""HLOTLNK"",100,0)"
^XMB(3.9,42,2,2996,0)=" .S:$P(NODE,""^"",3)=""C"" LINK(""SERVER"")=0"
^XMB(3.9,42,2,2997,0)="""RTN"",""HLOTLNK"",101,0)"
^XMB(3.9,42,2,2998,0)=" .I LINK(""SERVER"") S LINK(""SERVER"")=LINK(""SERVER"")_""^""_$P(NODE,""^"",3)"
^XMB(3.9,42,2,2999,0)="""RTN"",""HLOTLNK"",102,0)"
^XMB(3.9,42,2,3000,0)=" Q 1"
^XMB(3.9,42,2,3001,0)="""RTN"",""HLOTLNK"",103,0)"
^XMB(3.9,42,2,3002,0)=" ;"
^XMB(3.9,42,2,3003,0)="""RTN"",""HLOTLNK"",104,0)"
^XMB(3.9,42,2,3004,0)="SET1(LINK,MDOMAIN) ;"
^XMB(3.9,42,2,3005,0)="""RTN"",""HLOTLNK"",105,0)"
^XMB(3.9,42,2,3006,0)=" N DOMAIN"
^XMB(3.9,42,2,3007,0)="""RTN"",""HLOTLNK"",106,0)"
^XMB(3.9,42,2,3008,0)=" Q:'$L(MDOMAIN)"
^XMB(3.9,42,2,3009,0)="""RTN"",""HLOTLNK"",107,0)"
^XMB(3.9,42,2,3010,0)=" S DOMAIN=$P($G(^DIC(4.2,MDOMAIN,0)),""^"")"
^XMB(3.9,42,2,3011,0)="""RTN"",""HLOTLNK"",108,0)"
^XMB(3.9,42,2,3012,0)=" S DOMAIN=$S($L(DOMAIN):""HL7.""_DOMAIN,1:"""")"
^XMB(3.9,42,2,3013,0)="""RTN"",""HLOTLNK"",109,0)"
^XMB(3.9,42,2,3014,0)=" I DOMAIN'="""" S ^HLCS(870,""AD"",""TCP"",DOMAIN,LINK)="""""
^XMB(3.9,42,2,3015,0)="""RTN"",""HLOTLNK"",110,0)"
^XMB(3.9,42,2,3016,0)=" Q"
^XMB(3.9,42,2,3017,0)="""RTN"",""HLOTLNK"",111,0)"
^XMB(3.9,42,2,3018,0)="KILL1(LINK,MDOMAIN) ;"
^XMB(3.9,42,2,3019,0)="""RTN"",""HLOTLNK"",112,0)"
^XMB(3.9,42,2,3020,0)=" N DOMAIN"
^XMB(3.9,42,2,3021,0)="""RTN"",""HLOTLNK"",113,0)"
^XMB(3.9,42,2,3022,0)=" Q:'$L(MDOMAIN)"
^XMB(3.9,42,2,3023,0)="""RTN"",""HLOTLNK"",114,0)"
^XMB(3.9,42,2,3024,0)=" S DOMAIN=$P($G(^DIC(4.2,MDOMAIN,0)),""^"")"
^XMB(3.9,42,2,3025,0)="""RTN"",""HLOTLNK"",115,0)"
^XMB(3.9,42,2,3026,0)=" S DOMAIN=$S($L(DOMAIN):""HL7.""_DOMAIN,1:"""")"
^XMB(3.9,42,2,3027,0)="""RTN"",""HLOTLNK"",116,0)"
^XMB(3.9,42,2,3028,0)=" I DOMAIN'="""" K ^HLCS(870,""AD"",""TCP"",DOMAIN,LINK)"
^XMB(3.9,42,2,3029,0)="""RTN"",""HLOTLNK"",117,0)"
^XMB(3.9,42,2,3030,0)=" Q"
^XMB(3.9,42,2,3031,0)="""RTN"",""HLOTLNK"",118,0)"
^XMB(3.9,42,2,3032,0)="SET2(LINK,DOMAIN) ;"
^XMB(3.9,42,2,3033,0)="""RTN"",""HLOTLNK"",119,0)"
^XMB(3.9,42,2,3034,0)=" I DOMAIN'="""" S ^HLCS(870,""AD"",""TCP"",DOMAIN,LINK)="""""
^XMB(3.9,42,2,3035,0)="""RTN"",""HLOTLNK"",120,0)"
^XMB(3.9,42,2,3036,0)=" Q"
^XMB(3.9,42,2,3037,0)="""RTN"",""HLOTLNK"",121,0)"
^XMB(3.9,42,2,3038,0)="KILL2(LINK,DOMAIN) ;"
^XMB(3.9,42,2,3039,0)="""RTN"",""HLOTLNK"",122,0)"
^XMB(3.9,42,2,3040,0)=" I DOMAIN'="""" K ^HLCS(870,""AD"",""TCP"",DOMAIN,LINK)"
^XMB(3.9,42,2,3041,0)="""RTN"",""HLOTLNK"",123,0)"
^XMB(3.9,42,2,3042,0)=" Q"
^XMB(3.9,42,2,3043,0)="""RTN"",""HLOTLNK"",124,0)"
^XMB(3.9,42,2,3044,0)="SET3(LINK,DEVICE) ;"
^XMB(3.9,42,2,3045,0)="""RTN"",""HLOTLNK"",125,0)"
^XMB(3.9,42,2,3046,0)=" Q:'DEVICE"
^XMB(3.9,42,2,3047,0)="""RTN"",""HLOTLNK"",126,0)"
^XMB(3.9,42,2,3048,0)=" S ^HLCS(870,""AD"",""HLLP"",DEVICE,LINK)="""""
^XMB(3.9,42,2,3049,0)="""RTN"",""HLOTLNK"",127,0)"
^XMB(3.9,42,2,3050,0)=" Q"
^XMB(3.9,42,2,3051,0)="""RTN"",""HLOTLNK"",128,0)"
^XMB(3.9,42,2,3052,0)="KILL3(LINK,DEVICE) ;"
^XMB(3.9,42,2,3053,0)="""RTN"",""HLOTLNK"",129,0)"
^XMB(3.9,42,2,3054,0)=" Q:'DEVICE"
^XMB(3.9,42,2,3055,0)="""RTN"",""HLOTLNK"",130,0)"
^XMB(3.9,42,2,3056,0)=" S ^HLCS(870,""AD"",""HLLP"",DEVICE,LINK)="""""
^XMB(3.9,42,2,3057,0)="""RTN"",""HLOTLNK"",131,0)"
^XMB(3.9,42,2,3058,0)=" Q"
^XMB(3.9,42,2,3059,0)="""RTN"",""HLOTLNK"",132,0)"
^XMB(3.9,42,2,3060,0)="LLP(LINKNAME) ;"
^XMB(3.9,42,2,3061,0)="""RTN"",""HLOTLNK"",133,0)"
^XMB(3.9,42,2,3062,0)=" ;finds the type of LLP for a named link"
^XMB(3.9,42,2,3063,0)="""RTN"",""HLOTLNK"",134,0)"
^XMB(3.9,42,2,3064,0)=" N IEN,LLP"
^XMB(3.9,42,2,3065,0)="""RTN"",""HLOTLNK"",135,0)"
^XMB(3.9,42,2,3066,0)=" S IEN=$O(^HLCS(870,""B"",LINKNAME,0))"
^XMB(3.9,42,2,3067,0)="""RTN"",""HLOTLNK"",136,0)"
^XMB(3.9,42,2,3068,0)=" Q:'IEN """""
^XMB(3.9,42,2,3069,0)="""RTN"",""HLOTLNK"",137,0)"
^XMB(3.9,42,2,3070,0)=" S LLP=$P($G(^HLCS(870,IEN,0)),""^"",3)"
^XMB(3.9,42,2,3071,0)="""RTN"",""HLOTLNK"",138,0)"
^XMB(3.9,42,2,3072,0)=" Q:'LLP """""
^XMB(3.9,42,2,3073,0)="""RTN"",""HLOTLNK"",139,0)"
^XMB(3.9,42,2,3074,0)=" Q $P($G(^HLCS(869.1,LLP,0)),""^"")"
^XMB(3.9,42,2,3075,0)="""RTN"",""HLOTLNK"",140,0)"
^XMB(3.9,42,2,3076,0)=" ;"
^XMB(3.9,42,2,3077,0)="""RTN"",""HLOTLNK"",141,0)"
^XMB(3.9,42,2,3078,0)="DEVICE(LINKNAME) ;"
^XMB(3.9,42,2,3079,0)="""RTN"",""HLOTLNK"",142,0)"
^XMB(3.9,42,2,3080,0)=" N IEN"
^XMB(3.9,42,2,3081,0)="""RTN"",""HLOTLNK"",143,0)"
^XMB(3.9,42,2,3082,0)=" S IEN=$O(^HLCS(870,""B"",LINKNAME,0))"
^XMB(3.9,42,2,3083,0)="""RTN"",""HLOTLNK"",144,0)"
^XMB(3.9,42,2,3084,0)=" Q:'IEN """""
^XMB(3.9,42,2,3085,0)="""RTN"",""HLOTLNK"",145,0)"
^XMB(3.9,42,2,3086,0)=" Q $P($G(^HLCS(870,IEN,200)),""^"")"
^XMB(3.9,42,2,3087,0)="""RTN"",""HLOTLNK"",146,0)"
^XMB(3.9,42,2,3088,0)=" ;"
^XMB(3.9,42,2,3089,0)="""RTN"",""HLOTLNK"",147,0)"
^XMB(3.9,42,2,3090,0)="RTRNLNK(COMP1,COMP2,COMP3) ;"
^XMB(3.9,42,2,3091,0)="""RTN"",""HLOTLNK"",148,0)"
^XMB(3.9,42,2,3092,0)=" ;based on the sending facility from the original header, this function finds the return link, or """" if not successful"
^XMB(3.9,42,2,3093,0)="""RTN"",""HLOTLNK"",149,0)"
^XMB(3.9,42,2,3094,0)=" ;Inputs:"
^XMB(3.9,42,2,3095,0)="""RTN"",""HLOTLNK"",150,0)"
^XMB(3.9,42,2,3096,0)=" ;  COMP1,COMP2,COMP3 - 3 components of the sending facility from the original message"
^XMB(3.9,42,2,3097,0)="""RTN"",""HLOTLNK"",151,0)"
^XMB(3.9,42,2,3098,0)=" ;"
^XMB(3.9,42,2,3099,0)="""RTN"",""HLOTLNK"",152,0)"
^XMB(3.9,42,2,3100,0)=" N LINK,IEN"
^XMB(3.9,42,2,3101,0)="""RTN"",""HLOTLNK"",153,0)"
^XMB(3.9,42,2,3102,0)=" S LINK="""""
^XMB(3.9,42,2,3103,0)="""RTN"",""HLOTLNK"",154,0)"
^XMB(3.9,42,2,3104,0)=" I $G(COMP3)=""DNS"",$P($G(COMP2),"":"")]"""" S LINK=$O(^HLCS(870,""AD"",""TCP"",$P(COMP2,"":""),""""))"
^XMB(3.9,42,2,3105,0)="""RTN"",""HLOTLNK"",155,0)"
^XMB(3.9,42,2,3106,0)=" I LINK="""",$L($G(COMP1)) S IEN=$$FINDLINK(COMP1) S:IEN LINK=$P($G(^HLCS(870,IEN,0)),""^"")"
^XMB(3.9,42,2,3107,0)="""RTN"",""HLOTLNK"",156,0)"
^XMB(3.9,42,2,3108,0)=" Q LINK"
^XMB(3.9,42,2,3109,0)="""RTN"",""HLOTLNK"",157,0)"
^XMB(3.9,42,2,3110,0)=" ;"
^XMB(3.9,42,2,3111,0)="""RTN"",""HLOTLNK"",158,0)"
^XMB(3.9,42,2,3112,0)=" ;HLLP is not implemented in HLO"
^XMB(3.9,42,2,3113,0)="""RTN"",""HLOTLNK"",159,0)"
^XMB(3.9,42,2,3114,0)=" ;I LLP=""HLLP"" N DEVICE S DEVICE=$$DEVICE(FROMLINK) I DEVICE Q $O(^HLCS(870,""AD"",""TCP"",DEVICE,""""))"
^XMB(3.9,42,2,3115,0)="""RTN"",""HLOTLNK"",160,0)"
^XMB(3.9,42,2,3116,0)=" ;Q """""
^XMB(3.9,42,2,3117,0)="""RTN"",""HLOTLNK"",161,0)"
^XMB(3.9,42,2,3118,0)=" ;"
^XMB(3.9,42,2,3119,0)="""RTN"",""HLOTLNK"",162,0)"
^XMB(3.9,42,2,3120,0)="CHKLINK(LINK) ;"
^XMB(3.9,42,2,3121,0)="""RTN"",""HLOTLNK"",163,0)"
^XMB(3.9,42,2,3122,0)=" Q:'$L(LINK) 0"
^XMB(3.9,42,2,3123,0)="""RTN"",""HLOTLNK"",164,0)"
^XMB(3.9,42,2,3124,0)=" Q:'$O(^HLCS(870,""B"",LINK,0)) 0"
^XMB(3.9,42,2,3125,0)="""RTN"",""HLOTLNK"",165,0)"
^XMB(3.9,42,2,3126,0)=" Q 1"
^XMB(3.9,42,2,3127,0)="""RTN"",""HLOUSR"")"
^XMB(3.9,42,2,3128,0)="0^8^B88410850"
^XMB(3.9,42,2,3129,0)="""RTN"",""HLOUSR"",1,0)"
^XMB(3.9,42,2,3130,0)="HLOUSR ;ALB/CJM -ListManager Screen for viewing system status;12 JUN 1997 10:00 am"
^XMB(3.9,42,2,3131,0)="""RTN"",""HLOUSR"",2,0)"
^XMB(3.9,42,2,3132,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126,130**;Oct 13, 1995;Build 10"
^XMB(3.9,42,2,3133,0)="""RTN"",""HLOUSR"",3,0)"
^XMB(3.9,42,2,3134,0)=" ;"
^XMB(3.9,42,2,3135,0)="""RTN"",""HLOUSR"",4,0)"
^XMB(3.9,42,2,3136,0)="EN ;"
^XMB(3.9,42,2,3137,0)="""RTN"",""HLOUSR"",5,0)"
^XMB(3.9,42,2,3138,0)=" ;"
^XMB(3.9,42,2,3139,0)="""RTN"",""HLOUSR"",6,0)"
^XMB(3.9,42,2,3140,0)=" N HLSCREEN,TESTOPEN,HLRFRSH"
^XMB(3.9,42,2,3141,0)="""RTN"",""HLOUSR"",7,0)"
^XMB(3.9,42,2,3142,0)=" D WAIT^DICD"
^XMB(3.9,42,2,3143,0)="""RTN"",""HLOUSR"",8,0)"
^XMB(3.9,42,2,3144,0)=" D EN^VALM(""HLO SYSTEM MONITOR"")"
^XMB(3.9,42,2,3145,0)="""RTN"",""HLOUSR"",9,0)"
^XMB(3.9,42,2,3146,0)=" Q"
^XMB(3.9,42,2,3147,0)="""RTN"",""HLOUSR"",10,0)"
^XMB(3.9,42,2,3148,0)=" ;"
^XMB(3.9,42,2,3149,0)="""RTN"",""HLOUSR"",11,0)"
^XMB(3.9,42,2,3150,0)="BRIEF ;Init variables and list array"
^XMB(3.9,42,2,3151,0)="""RTN"",""HLOUSR"",12,0)"
^XMB(3.9,42,2,3152,0)=" N COUNT,LINK,QUE,FROM,TIME,STATUS,TEMP,DIR,TODAY,LIST"
^XMB(3.9,42,2,3153,0)="""RTN"",""HLOUSR"",13,0)"
^XMB(3.9,42,2,3154,0)=" S HLRFRSH=""BRIEF^HLOUSR"""
^XMB(3.9,42,2,3155,0)="""RTN"",""HLOUSR"",14,0)"
^XMB(3.9,42,2,3156,0)=" S (HLSCREEN,VALMSG)=""Brief System Status"""
^XMB(3.9,42,2,3157,0)="""RTN"",""HLOUSR"",15,0)"
^XMB(3.9,42,2,3158,0)=" S VALMCNT=8"
^XMB(3.9,42,2,3159,0)="""RTN"",""HLOUSR"",16,0)"
^XMB(3.9,42,2,3160,0)=" ;K @VALMAR"
^XMB(3.9,42,2,3161,0)="""RTN"",""HLOUSR"",17,0)"
^XMB(3.9,42,2,3162,0)=" D CLEAN^VALM10"
^XMB(3.9,42,2,3163,0)="""RTN"",""HLOUSR"",18,0)"
^XMB(3.9,42,2,3164,0)=" S VALMBG=1"
^XMB(3.9,42,2,3165,0)="""RTN"",""HLOUSR"",19,0)"
^XMB(3.9,42,2,3166,0)=" S VALMBCK=""R"""
^XMB(3.9,42,2,3167,0)="""RTN"",""HLOUSR"",20,0)"
^XMB(3.9,42,2,3168,0)=" K VALMDDF(""COL 2""),VALMDDF(""COL 3""),VALMDDF(""COL 4""),VALMDDF(""COL 5"")"
^XMB(3.9,42,2,3169,0)="""RTN"",""HLOUSR"",21,0)"
^XMB(3.9,42,2,3170,0)=" D CHGCAP^VALM(""COL 1"",""Brief Operational Overview"")"
^XMB(3.9,42,2,3171,0)="""RTN"",""HLOUSR"",22,0)"
^XMB(3.9,42,2,3172,0)=" S @VALMAR@(1,0)=""SYSTEM STATUS:             ""_$S($$CHKSTOP^HLOPROC:""STOPPED"",1:""RUNNING"")"
^XMB(3.9,42,2,3173,0)="""RTN"",""HLOUSR"",23,0)"
^XMB(3.9,42,2,3174,0)=" S @VALMAR@(2,0)=""PROCESS MANAGER:           ""_$S($$RUNNING:""RUNNING"",1:""STOPPED"")"
^XMB(3.9,42,2,3175,0)="""RTN"",""HLOUSR"",24,0)"
^XMB(3.9,42,2,3176,0)=" ;"
^XMB(3.9,42,2,3177,0)="""RTN"",""HLOUSR"",25,0)"
^XMB(3.9,42,2,3178,0)=" S TIME=$P($G(TESTOPEN(""LISTENER"")),""^"",2)"
^XMB(3.9,42,2,3179,0)="""RTN"",""HLOUSR"",26,0)"
^XMB(3.9,42,2,3180,0)=" I TIME,$$FMDIFF^XLFDT($$NOW^XLFDT,TIME,2)<300 D"
^XMB(3.9,42,2,3181,0)="""RTN"",""HLOUSR"",27,0)"
^XMB(3.9,42,2,3182,0)=" .S STATUS=+TESTOPEN(""LISTENER"")"
^XMB(3.9,42,2,3183,0)="""RTN"",""HLOUSR"",28,0)"
^XMB(3.9,42,2,3184,0)=" E  D"
^XMB(3.9,42,2,3185,0)="""RTN"",""HLOUSR"",29,0)"
^XMB(3.9,42,2,3186,0)=" .S STATUS=0"
^XMB(3.9,42,2,3187,0)="""RTN"",""HLOUSR"",30,0)"
^XMB(3.9,42,2,3188,0)=" .S LINK=$P($G(^HLD(779.1,1,0)),""^"",10)"
^XMB(3.9,42,2,3189,0)="""RTN"",""HLOUSR"",31,0)"
^XMB(3.9,42,2,3190,0)=" .I LINK S LINK=$P($G(^HLCS(870,LINK,0)),""^"") Q:'$L(LINK)  S STATUS=$$IFOPEN^HLOUSR1(LINK)"
^XMB(3.9,42,2,3191,0)="""RTN"",""HLOUSR"",32,0)"
^XMB(3.9,42,2,3192,0)=" .S TESTOPEN(""LISTENER"")=STATUS_""^""_$$NOW^XLFDT"
^XMB(3.9,42,2,3193,0)="""RTN"",""HLOUSR"",33,0)"
^XMB(3.9,42,2,3194,0)=" ;"
^XMB(3.9,42,2,3195,0)="""RTN"",""HLOUSR"",34,0)"
^XMB(3.9,42,2,3196,0)=" S @VALMAR@(3,0)=""STANDARD LISTENER:         ""_$S(STATUS:""OPERATIONAL"",1:""NOT OPERATIONAL"")"
^XMB(3.9,42,2,3197,0)="""RTN"",""HLOUSR"",35,0)"
^XMB(3.9,42,2,3198,0)=" ;"
^XMB(3.9,42,2,3199,0)="""RTN"",""HLOUSR"",36,0)"
^XMB(3.9,42,2,3200,0)=" S TIME=$P($G(TESTOPEN(""IE"")),""^"",2)"
^XMB(3.9,42,2,3201,0)="""RTN"",""HLOUSR"",37,0)"
^XMB(3.9,42,2,3202,0)=" I TIME,$$FMDIFF^XLFDT($$NOW^XLFDT,TIME,2)<300 D"
^XMB(3.9,42,2,3203,0)="""RTN"",""HLOUSR"",38,0)"
^XMB(3.9,42,2,3204,0)=" .S STATUS=+TESTOPEN(""IE"")"
^XMB(3.9,42,2,3205,0)="""RTN"",""HLOUSR"",39,0)"
^XMB(3.9,42,2,3206,0)=" E  D"
^XMB(3.9,42,2,3207,0)="""RTN"",""HLOUSR"",40,0)"
^XMB(3.9,42,2,3208,0)=" .S STATUS=$$IFOPEN^HLOUSR1(""VA-VIE"")"
^XMB(3.9,42,2,3209,0)="""RTN"",""HLOUSR"",41,0)"
^XMB(3.9,42,2,3210,0)=" .S TESTOPEN(""IE"")=STATUS_""^""_$$NOW^XLFDT"
^XMB(3.9,42,2,3211,0)="""RTN"",""HLOUSR"",42,0)"
^XMB(3.9,42,2,3212,0)=" S @VALMAR@(4,0)=""INTERFACE ENGINE:          ""_$S(STATUS:""OPERATIONAL"",1:""NOT OPERATIONAL"")"
^XMB(3.9,42,2,3213,0)="""RTN"",""HLOUSR"",43,0)"
^XMB(3.9,42,2,3214,0)=" S @VALMAR@(5,0)=""TASKMAN:                   ""_$S($$TM^%ZTLOAD:""RUNNING"",1:""NOT RUNNING"")"
^XMB(3.9,42,2,3215,0)="""RTN"",""HLOUSR"",44,0)"
^XMB(3.9,42,2,3216,0)=" ;"
^XMB(3.9,42,2,3217,0)="""RTN"",""HLOUSR"",45,0)"
^XMB(3.9,42,2,3218,0)=" S (LIST,LINK)="""""
^XMB(3.9,42,2,3219,0)="""RTN"",""HLOUSR"",46,0)"
^XMB(3.9,42,2,3220,0)=" F  S LINK=$O(^HLTMP(""FAILING LINKS"",LINK)) Q:LINK=""""  D  I $L(LIST)>60 S LIST=LIST_"",..."" Q"
^XMB(3.9,42,2,3221,0)="""RTN"",""HLOUSR"",47,0)"
^XMB(3.9,42,2,3222,0)=" .N TIME,QUE,LINKARY"
^XMB(3.9,42,2,3223,0)="""RTN"",""HLOUSR"",48,0)"
^XMB(3.9,42,2,3224,0)=" .I $$GETLINK^HLOTLNK($P(LINK,"":""),.LINKARY)"
^XMB(3.9,42,2,3225,0)="""RTN"",""HLOUSR"",49,0)"
^XMB(3.9,42,2,3226,0)=" .S TIME=$G(^HLTMP(""FAILING LINKS"",LINK)) Q:TIME="""""
^XMB(3.9,42,2,3227,0)="""RTN"",""HLOUSR"",50,0)"
^XMB(3.9,42,2,3228,0)=" .I '$G(LINKARY(""SHUTDOWN"")),TIME="""" Q"
^XMB(3.9,42,2,3229,0)="""RTN"",""HLOUSR"",51,0)"
^XMB(3.9,42,2,3230,0)=" .I '$G(LINKARY(""SHUTDOWN"")),($$HDIFF^XLFDT($H,TIME,2)<300) Q"
^XMB(3.9,42,2,3231,0)="""RTN"",""HLOUSR"",52,0)"
^XMB(3.9,42,2,3232,0)=" .S LIST=LIST_$S($L(LIST):"", "",1:"""")_$P(LINK,"":"")"
^XMB(3.9,42,2,3233,0)="""RTN"",""HLOUSR"",53,0)"
^XMB(3.9,42,2,3234,0)=" S @VALMAR@(6,0)=""DOWN LINKS: ""_LIST"
^XMB(3.9,42,2,3235,0)="""RTN"",""HLOUSR"",54,0)"
^XMB(3.9,42,2,3236,0)=" S @VALMAR@(7,0)=""CLIENT LINK PROCESSES:     ""_+$G(^HLC(""HL7 PROCESS COUNTS"",""RUNNING"",""OUTGOING CLIENT LINK""))"
^XMB(3.9,42,2,3237,0)="""RTN"",""HLOUSR"",55,0)"
^XMB(3.9,42,2,3238,0)=" S @VALMAR@(8,0)=""IN-FILER PROCESSES:        ""_+$G(^HLC(""HL7 PROCESS COUNTS"",""RUNNING"",""INCOMING QUEUES""))"
^XMB(3.9,42,2,3239,0)="""RTN"",""HLOUSR"",56,0)"
^XMB(3.9,42,2,3240,0)=" S COUNT=0,LINK="""""
^XMB(3.9,42,2,3241,0)="""RTN"",""HLOUSR"",57,0)"
^XMB(3.9,42,2,3242,0)=" F  S LINK=$O(^HLC(""QUEUECOUNT"",""OUT"",LINK)) Q:LINK=""""  S QUE=""""  F  S QUE=$O(^(LINK,QUE)) Q:QUE=""""  S COUNT=COUNT+$G(^(QUE))"
^XMB(3.9,42,2,3243,0)="""RTN"",""HLOUSR"",58,0)"
^XMB(3.9,42,2,3244,0)=" S @VALMAR@(9,0)=""MESSAGES PENDING TRANSMISSION:      ""_+COUNT"
^XMB(3.9,42,2,3245,0)="""RTN"",""HLOUSR"",59,0)"
^XMB(3.9,42,2,3246,0)=" S TEMP=""STOPPED OUTGOING QUEUES: """
^XMB(3.9,42,2,3247,0)="""RTN"",""HLOUSR"",60,0)"
^XMB(3.9,42,2,3248,0)=" S COUNT=0,QUE="""""
^XMB(3.9,42,2,3249,0)="""RTN"",""HLOUSR"",61,0)"
^XMB(3.9,42,2,3250,0)=" F  S QUE=$O(^HLTMP(""STOPPED QUEUES"",""OUT"",QUE)) Q:QUE=""""  S COUNT=COUNT+1 Q:COUNT>4  S:COUNT=1 TEMP=TEMP_QUE S:""23""[COUNT TEMP=TEMP_""; ""_QUE S:COUNT=4 TEMP=TEMP_"" ..."""
^XMB(3.9,42,2,3251,0)="""RTN"",""HLOUSR"",62,0)"
^XMB(3.9,42,2,3252,0)=" S @VALMAR@(10,0)=TEMP"
^XMB(3.9,42,2,3253,0)="""RTN"",""HLOUSR"",63,0)"
^XMB(3.9,42,2,3254,0)=" S COUNT=0,QUE="""""
^XMB(3.9,42,2,3255,0)="""RTN"",""HLOUSR"",64,0)"
^XMB(3.9,42,2,3256,0)=" F  S QUE=$O(^HLC(""QUEUECOUNT"",""IN"",QUE)) Q:QUE=""""  S FROM=""""  F  S FROM=$O(^(QUE,FROM)) Q:FROM=""""  S COUNT=COUNT+$G(^(FROM))"
^XMB(3.9,42,2,3257,0)="""RTN"",""HLOUSR"",65,0)"
^XMB(3.9,42,2,3258,0)=" S @VALMAR@(11,0)=""MESSAGES PENDING ON APPLICATIONS:   ""_+COUNT"
^XMB(3.9,42,2,3259,0)="""RTN"",""HLOUSR"",66,0)"
^XMB(3.9,42,2,3260,0)=" S TEMP=""STOPPED INCOMING QUEUES: """
^XMB(3.9,42,2,3261,0)="""RTN"",""HLOUSR"",67,0)"
^XMB(3.9,42,2,3262,0)=" S COUNT=0,QUE="""""
^XMB(3.9,42,2,3263,0)="""RTN"",""HLOUSR"",68,0)"
^XMB(3.9,42,2,3264,0)=" F  S QUE=$O(^HLTMP(""STOPPED QUEUES"",""IN"",QUE)) Q:QUE=""""  S COUNT=COUNT+1 Q:COUNT>4  S:COUNT=1 TEMP=TEMP_QUE S:""23""[COUNT TEMP=TEMP_""; ""_QUE S:COUNT=4 TEMP=TEMP_"" ..."""
^XMB(3.9,42,2,3265,0)="""RTN"",""HLOUSR"",69,0)"
^XMB(3.9,42,2,3266,0)=" S @VALMAR@(12,0)=TEMP"
^XMB(3.9,42,2,3267,0)="""RTN"",""HLOUSR"",70,0)"
^XMB(3.9,42,2,3268,0)=" S @VALMAR@(13,0)=""FILE 777 RECORD COUNT:         ""_$$RJ($P($G(^HLTMP(""FILE 777 RECORD COUNT"")),""^""),10)_""     --> as of ""_$$FMTE^XLFDT($P($G(^HLTMP(""FILE 777 RECORD COUNT"")),""^"",2))"
^XMB(3.9,42,2,3269,0)="""RTN"",""HLOUSR"",71,0)"
^XMB(3.9,42,2,3270,0)=" S @VALMAR@(14,0)=""FILE 778 RECORD COUNT:         ""_$$RJ($P($G(^HLTMP(""FILE 778 RECORD COUNT"")),""^""),10)_""     --> as of ""_$$FMTE^XLFDT($P($G(^HLTMP(""FILE 778 RECORD COUNT"")),""^"",2))"
^XMB(3.9,42,2,3271,0)="""RTN"",""HLOUSR"",72,0)"
^XMB(3.9,42,2,3272,0)=" S TODAY=$$DT^XLFDT"
^XMB(3.9,42,2,3273,0)="""RTN"",""HLOUSR"",73,0)"
^XMB(3.9,42,2,3274,0)=" F DIR=""IN"",""OUT"" D"
^XMB(3.9,42,2,3275,0)="""RTN"",""HLOUSR"",74,0)"
^XMB(3.9,42,2,3276,0)=" .N RAP,SAP,TIME,TOTAL"
^XMB(3.9,42,2,3277,0)="""RTN"",""HLOUSR"",75,0)"
^XMB(3.9,42,2,3278,0)=" .S TOTAL=0"
^XMB(3.9,42,2,3279,0)="""RTN"",""HLOUSR"",76,0)"
^XMB(3.9,42,2,3280,0)=" .S TIME=TODAY-.0001"
^XMB(3.9,42,2,3281,0)="""RTN"",""HLOUSR"",77,0)"
^XMB(3.9,42,2,3282,0)=" .F  S TIME=$O(^HLSTATS(DIR,""HOURLY"",TIME)) Q:'TIME  Q:((TIME\1)>TODAY)  D"
^XMB(3.9,42,2,3283,0)="""RTN"",""HLOUSR"",78,0)"
^XMB(3.9,42,2,3284,0)=" ..S SAP="""""
^XMB(3.9,42,2,3285,0)="""RTN"",""HLOUSR"",79,0)"
^XMB(3.9,42,2,3286,0)=" ..F  S SAP=$O(^HLSTATS(DIR,""HOURLY"",TIME,SAP)) Q:SAP=""""  D"
^XMB(3.9,42,2,3287,0)="""RTN"",""HLOUSR"",80,0)"
^XMB(3.9,42,2,3288,0)=" ...Q:SAP=""ACCEPT ACK"""
^XMB(3.9,42,2,3289,0)="""RTN"",""HLOUSR"",81,0)"
^XMB(3.9,42,2,3290,0)=" ...S RAP="""""
^XMB(3.9,42,2,3291,0)="""RTN"",""HLOUSR"",82,0)"
^XMB(3.9,42,2,3292,0)=" ...F  S RAP=$O(^HLSTATS(DIR,""HOURLY"",TIME,SAP,RAP)) Q:RAP=""""  D"
^XMB(3.9,42,2,3293,0)="""RTN"",""HLOUSR"",83,0)"
^XMB(3.9,42,2,3294,0)=" ....S TYPE="""""
^XMB(3.9,42,2,3295,0)="""RTN"",""HLOUSR"",84,0)"
^XMB(3.9,42,2,3296,0)=" ....F  S TYPE=$O(^HLSTATS(DIR,""HOURLY"",TIME,SAP,RAP,TYPE)) Q:TYPE=""""  D"
^XMB(3.9,42,2,3297,0)="""RTN"",""HLOUSR"",85,0)"
^XMB(3.9,42,2,3298,0)=" .....S TOTAL=TOTAL+$G(^HLSTATS(DIR,""HOURLY"",TIME,SAP,RAP,TYPE))"
^XMB(3.9,42,2,3299,0)="""RTN"",""HLOUSR"",86,0)"
^XMB(3.9,42,2,3300,0)=" .S:DIR=""OUT"" @VALMAR@(15,0)=""MESSAGES SENT TODAY:           ""_$$RJ(TOTAL,10)"
^XMB(3.9,42,2,3301,0)="""RTN"",""HLOUSR"",87,0)"
^XMB(3.9,42,2,3302,0)=" .S:DIR'=""OUT"" @VALMAR@(16,0)=""MESSAGES RECEIVED TODAY:       ""_$$RJ(TOTAL,10)"
^XMB(3.9,42,2,3303,0)="""RTN"",""HLOUSR"",88,0)"
^XMB(3.9,42,2,3304,0)=" Q"
^XMB(3.9,42,2,3305,0)="""RTN"",""HLOUSR"",89,0)"
^XMB(3.9,42,2,3306,0)=" ;"
^XMB(3.9,42,2,3307,0)="""RTN"",""HLOUSR"",90,0)"
^XMB(3.9,42,2,3308,0)="HELP ;Help code"
^XMB(3.9,42,2,3309,0)="""RTN"",""HLOUSR"",91,0)"
^XMB(3.9,42,2,3310,0)=" S X=""?"" D DISP^XQORM1 W !!"
^XMB(3.9,42,2,3311,0)="""RTN"",""HLOUSR"",92,0)"
^XMB(3.9,42,2,3312,0)=" Q"
^XMB(3.9,42,2,3313,0)="""RTN"",""HLOUSR"",93,0)"
^XMB(3.9,42,2,3314,0)=" ;"
^XMB(3.9,42,2,3315,0)="""RTN"",""HLOUSR"",94,0)"
^XMB(3.9,42,2,3316,0)="EXIT ;Exit code"
^XMB(3.9,42,2,3317,0)="""RTN"",""HLOUSR"",95,0)"
^XMB(3.9,42,2,3318,0)=" D CLEAN^VALM10"
^XMB(3.9,42,2,3319,0)="""RTN"",""HLOUSR"",96,0)"
^XMB(3.9,42,2,3320,0)=" D CLEAR^VALM1"
^XMB(3.9,42,2,3321,0)="""RTN"",""HLOUSR"",97,0)"
^XMB(3.9,42,2,3322,0)=" ;"
^XMB(3.9,42,2,3323,0)="""RTN"",""HLOUSR"",98,0)"
^XMB(3.9,42,2,3324,0)=" Q"
^XMB(3.9,42,2,3325,0)="""RTN"",""HLOUSR"",99,0)"
^XMB(3.9,42,2,3326,0)=" ;"
^XMB(3.9,42,2,3327,0)="""RTN"",""HLOUSR"",100,0)"
^XMB(3.9,42,2,3328,0)="EXPND ;Expand code"
^XMB(3.9,42,2,3329,0)="""RTN"",""HLOUSR"",101,0)"
^XMB(3.9,42,2,3330,0)=" Q"
^XMB(3.9,42,2,3331,0)="""RTN"",""HLOUSR"",102,0)"
^XMB(3.9,42,2,3332,0)=" ;"
^XMB(3.9,42,2,3333,0)="""RTN"",""HLOUSR"",103,0)"
^XMB(3.9,42,2,3334,0)="PROCS ;"
^XMB(3.9,42,2,3335,0)="""RTN"",""HLOUSR"",104,0)"
^XMB(3.9,42,2,3336,0)=" S HLRFRSH=""PROCS^HLOUSR"""
^XMB(3.9,42,2,3337,0)="""RTN"",""HLOUSR"",105,0)"
^XMB(3.9,42,2,3338,0)=" ;K @VALMAR"
^XMB(3.9,42,2,3339,0)="""RTN"",""HLOUSR"",106,0)"
^XMB(3.9,42,2,3340,0)=" D CLEAN^VALM10"
^XMB(3.9,42,2,3341,0)="""RTN"",""HLOUSR"",107,0)"
^XMB(3.9,42,2,3342,0)=" S VALMCNT=0"
^XMB(3.9,42,2,3343,0)="""RTN"",""HLOUSR"",108,0)"
^XMB(3.9,42,2,3344,0)=" S VALMBCK=""R"""
^XMB(3.9,42,2,3345,0)="""RTN"",""HLOUSR"",109,0)"
^XMB(3.9,42,2,3346,0)=" S VALMDDF(""COL 2"")=""COL 2^35^10^MIN^H"""
^XMB(3.9,42,2,3347,0)="""RTN"",""HLOUSR"",110,0)"
^XMB(3.9,42,2,3348,0)=" S VALMDDF(""COL 3"")=""COL 3^47^10^MAX^H"""
^XMB(3.9,42,2,3349,0)="""RTN"",""HLOUSR"",111,0)"
^XMB(3.9,42,2,3350,0)=" S VALMDDF(""COL 4"")=""COL 4^59^10^#RUNNING^H"""
^XMB(3.9,42,2,3351,0)="""RTN"",""HLOUSR"",112,0)"
^XMB(3.9,42,2,3352,0)=" S VALMDDF(""COL 5"")=""COL 5^71^10^#QUEUED^IOBON"""
^XMB(3.9,42,2,3353,0)="""RTN"",""HLOUSR"",113,0)"
^XMB(3.9,42,2,3354,0)=" D CHGCAP^VALM(""COL 1"",""Process Type"")"
^XMB(3.9,42,2,3355,0)="""RTN"",""HLOUSR"",114,0)"
^XMB(3.9,42,2,3356,0)=" N IEN"
^XMB(3.9,42,2,3357,0)="""RTN"",""HLOUSR"",115,0)"
^XMB(3.9,42,2,3358,0)=" S IEN=0"
^XMB(3.9,42,2,3359,0)="""RTN"",""HLOUSR"",116,0)"
^XMB(3.9,42,2,3360,0)=" F  S IEN=$O(^HLD(779.3,""C"",1,IEN)) Q:'IEN  D"
^XMB(3.9,42,2,3361,0)="""RTN"",""HLOUSR"",117,0)"
^XMB(3.9,42,2,3362,0)=" .N PROC"
^XMB(3.9,42,2,3363,0)="""RTN"",""HLOUSR"",118,0)"
^XMB(3.9,42,2,3364,0)=" .Q:'$$GETPROC^HLOPROC1(IEN,.PROC)"
^XMB(3.9,42,2,3365,0)="""RTN"",""HLOUSR"",119,0)"
^XMB(3.9,42,2,3366,0)=" .Q:PROC(""NAME"")=""VMS TCP LISTENER"""
^XMB(3.9,42,2,3367,0)="""RTN"",""HLOUSR"",120,0)"
^XMB(3.9,42,2,3368,0)=" .S VALMCNT=VALMCNT+1"
^XMB(3.9,42,2,3369,0)="""RTN"",""HLOUSR"",121,0)"
^XMB(3.9,42,2,3370,0)=" .S @VALMAR@(VALMCNT,0)=$$LJ(PROC(""NAME""),30)_$$RJ(PROC(""MINIMUM""),6)_$$RJ(PROC(""MAXIMUM""),12)_$$RJ(+$G(^HLC(""HL7 PROCESS COUNTS"",""RUNNING"",PROC(""NAME""))),14)_$$RJ(+$G(^HLC(""HL7 PROCESS COUNTS"",""QUEUED"",PROC(""NAME""))),12)"
^XMB(3.9,42,2,3371,0)="""RTN"",""HLOUSR"",122,0)"
^XMB(3.9,42,2,3372,0)=" S VALMCNT=VALMCNT+1,@VALMAR@(VALMCNT,0)="""""
^XMB(3.9,42,2,3373,0)="""RTN"",""HLOUSR"",123,0)"
^XMB(3.9,42,2,3374,0)=" S IEN="""""
^XMB(3.9,42,2,3375,0)="""RTN"",""HLOUSR"",124,0)"
^XMB(3.9,42,2,3376,0)=" F  S IEN=$O(^HLTMP(""HL7 RUNNING PROCESSES"",IEN)) Q:IEN=""""  D"
^XMB(3.9,42,2,3377,0)="""RTN"",""HLOUSR"",125,0)"
^XMB(3.9,42,2,3378,0)=" .N NODE"
^XMB(3.9,42,2,3379,0)="""RTN"",""HLOUSR"",126,0)"
^XMB(3.9,42,2,3380,0)=" .S NODE=$G(^HLTMP(""HL7 RUNNING PROCESSES"",IEN))"
^XMB(3.9,42,2,3381,0)="""RTN"",""HLOUSR"",127,0)"
^XMB(3.9,42,2,3382,0)=" .Q:NODE="""""
^XMB(3.9,42,2,3383,0)="""RTN"",""HLOUSR"",128,0)"
^XMB(3.9,42,2,3384,0)=" .S VALMCNT=VALMCNT+1"
^XMB(3.9,42,2,3385,0)="""RTN"",""HLOUSR"",129,0)"
^XMB(3.9,42,2,3386,0)=" .S @VALMAR@(VALMCNT,0)=""$J: ""_$$LJ(IEN,9)_"" ->""_$$CJ($P(NODE,""^"",3),28)_""<- started at ""_$$HTE^XLFDT($P(NODE,""^""))"
^XMB(3.9,42,2,3387,0)="""RTN"",""HLOUSR"",130,0)"
^XMB(3.9,42,2,3388,0)=" Q"
^XMB(3.9,42,2,3389,0)="""RTN"",""HLOUSR"",131,0)"
^XMB(3.9,42,2,3390,0)=" ;"
^XMB(3.9,42,2,3391,0)="""RTN"",""HLOUSR"",132,0)"
^XMB(3.9,42,2,3392,0)="OUTQUEUE ;"
^XMB(3.9,42,2,3393,0)="""RTN"",""HLOUSR"",133,0)"
^XMB(3.9,42,2,3394,0)=" N LINK"
^XMB(3.9,42,2,3395,0)="""RTN"",""HLOUSR"",134,0)"
^XMB(3.9,42,2,3396,0)=" D CLEAN^VALM10"
^XMB(3.9,42,2,3397,0)="""RTN"",""HLOUSR"",135,0)"
^XMB(3.9,42,2,3398,0)=" ;K @VALMAR"
^XMB(3.9,42,2,3399,0)="""RTN"",""HLOUSR"",136,0)"
^XMB(3.9,42,2,3400,0)=" S HLRFRSH=""OUTQUEUE^HLOUSR"""
^XMB(3.9,42,2,3401,0)="""RTN"",""HLOUSR"",137,0)"
^XMB(3.9,42,2,3402,0)=" S (HLSCREEN,VALMSG)=""Outgoing Queues *down links !stopped queues"""
^XMB(3.9,42,2,3403,0)="""RTN"",""HLOUSR"",138,0)"
^XMB(3.9,42,2,3404,0)=" S VALMCNT=0"
^XMB(3.9,42,2,3405,0)="""RTN"",""HLOUSR"",139,0)"
^XMB(3.9,42,2,3406,0)=" S VALMBCK=""R"""
^XMB(3.9,42,2,3407,0)="""RTN"",""HLOUSR"",140,0)"
^XMB(3.9,42,2,3408,0)=" S VALMDDF(""COL 1"")=""COL 1^2^20^ Link^H"""
^XMB(3.9,42,2,3409,0)="""RTN"",""HLOUSR"",141,0)"
^XMB(3.9,42,2,3410,0)=" S VALMDDF(""COL 2"")=""COL 2^28^20^Queue^H"""
^XMB(3.9,42,2,3411,0)="""RTN"",""HLOUSR"",142,0)"
^XMB(3.9,42,2,3412,0)=" S VALMDDF(""COL 3"")=""COL 3^50^20^Count^H"""
^XMB(3.9,42,2,3413,0)="""RTN"",""HLOUSR"",143,0)"
^XMB(3.9,42,2,3414,0)=" K VALMDDF(""COL 4""),VALMDDF(""COL 5"")"
^XMB(3.9,42,2,3415,0)="""RTN"",""HLOUSR"",144,0)"
^XMB(3.9,42,2,3416,0)=" D CHGCAP^VALM(""COL 1"","" Link"")"
^XMB(3.9,42,2,3417,0)="""RTN"",""HLOUSR"",145,0)"
^XMB(3.9,42,2,3418,0)=" S LINK="""""
^XMB(3.9,42,2,3419,0)="""RTN"",""HLOUSR"",146,0)"
^XMB(3.9,42,2,3420,0)=" F  S LINK=$O(^HLC(""QUEUECOUNT"",""OUT"",LINK)) Q:LINK=""""  D"
^XMB(3.9,42,2,3421,0)="""RTN"",""HLOUSR"",147,0)"
^XMB(3.9,42,2,3422,0)=" .N COUNT,QUE,SHOW"
^XMB(3.9,42,2,3423,0)="""RTN"",""HLOUSR"",148,0)"
^XMB(3.9,42,2,3424,0)=" .S SHOW=LINK"
^XMB(3.9,42,2,3425,0)="""RTN"",""HLOUSR"",149,0)"
^XMB(3.9,42,2,3426,0)=" .I $D(^HLTMP(""FAILING LINKS"",SHOW)) S SHOW=""*""_SHOW"
^XMB(3.9,42,2,3427,0)="""RTN"",""HLOUSR"",150,0)"
^XMB(3.9,42,2,3428,0)=" .S QUE="""""
^XMB(3.9,42,2,3429,0)="""RTN"",""HLOUSR"",151,0)"
^XMB(3.9,42,2,3430,0)=" .F  S QUE=$O(^HLC(""QUEUECOUNT"",""OUT"",LINK,QUE)) Q:QUE=""""  D"
^XMB(3.9,42,2,3431,0)="""RTN"",""HLOUSR"",152,0)"
^XMB(3.9,42,2,3432,0)=" ..S COUNT=$G(^HLC(""QUEUECOUNT"",""OUT"",LINK,QUE))"
^XMB(3.9,42,2,3433,0)="""RTN"",""HLOUSR"",153,0)"
^XMB(3.9,42,2,3434,0)=" ..Q:'COUNT"
^XMB(3.9,42,2,3435,0)="""RTN"",""HLOUSR"",154,0)"
^XMB(3.9,42,2,3436,0)=" ..S VALMCNT=VALMCNT+1"
^XMB(3.9,42,2,3437,0)="""RTN"",""HLOUSR"",155,0)"
^XMB(3.9,42,2,3438,0)=" ..I $E(SHOW)=""*"" D"
^XMB(3.9,42,2,3439,0)="""RTN"",""HLOUSR"",156,0)"
^XMB(3.9,42,2,3440,0)=" ...S @VALMAR@(VALMCNT,0)=$$LJ(SHOW,20)_$$CJ($S($$STOPPED^HLOQUE(""OUT"",QUE):""!"",1:"""")_QUE,21)_""   ""_$$RJ(COUNT,10),SHOW="""""
^XMB(3.9,42,2,3441,0)="""RTN"",""HLOUSR"",157,0)"
^XMB(3.9,42,2,3442,0)=" ...D CNTRL^VALM10(VALMCNT,1,1,IOBON,IOBOFF)"
^XMB(3.9,42,2,3443,0)="""RTN"",""HLOUSR"",158,0)"
^XMB(3.9,42,2,3444,0)=" ..E  S @VALMAR@(VALMCNT,0)=$$LJ(SHOW,20)_$$CJ($S($$STOPPED^HLOQUE(""OUT"",QUE):""!"",1:"""")_QUE,21)_""   ""_$$RJ(COUNT,10),SHOW="""""
^XMB(3.9,42,2,3445,0)="""RTN"",""HLOUSR"",159,0)"
^XMB(3.9,42,2,3446,0)=" Q"
^XMB(3.9,42,2,3447,0)="""RTN"",""HLOUSR"",160,0)"
^XMB(3.9,42,2,3448,0)=" ;"
^XMB(3.9,42,2,3449,0)="""RTN"",""HLOUSR"",161,0)"
^XMB(3.9,42,2,3450,0)="INQUEUE ;"
^XMB(3.9,42,2,3451,0)="""RTN"",""HLOUSR"",162,0)"
^XMB(3.9,42,2,3452,0)=" N FROM"
^XMB(3.9,42,2,3453,0)="""RTN"",""HLOUSR"",163,0)"
^XMB(3.9,42,2,3454,0)=" D CLEAN^VALM10"
^XMB(3.9,42,2,3455,0)="""RTN"",""HLOUSR"",164,0)"
^XMB(3.9,42,2,3456,0)=" ;K @VALMAR"
^XMB(3.9,42,2,3457,0)="""RTN"",""HLOUSR"",165,0)"
^XMB(3.9,42,2,3458,0)=" S HLRFRSH=""INQUEUE^HLOUSR"""
^XMB(3.9,42,2,3459,0)="""RTN"",""HLOUSR"",166,0)"
^XMB(3.9,42,2,3460,0)=" S (HLSCREEN,VALMSG)=""Incoming Queues ('!' = stopped queues)"""
^XMB(3.9,42,2,3461,0)="""RTN"",""HLOUSR"",167,0)"
^XMB(3.9,42,2,3462,0)=" S VALMCNT=0"
^XMB(3.9,42,2,3463,0)="""RTN"",""HLOUSR"",168,0)"
^XMB(3.9,42,2,3464,0)=" S VALMBCK=""R"""
^XMB(3.9,42,2,3465,0)="""RTN"",""HLOUSR"",169,0)"
^XMB(3.9,42,2,3466,0)=" S VALMDDF(""COL 1"")=""COL 1^1^40^ From^H"""
^XMB(3.9,42,2,3467,0)="""RTN"",""HLOUSR"",170,0)"
^XMB(3.9,42,2,3468,0)=" S VALMDDF(""COL 2"")=""COL 2^45^20^Queue^H"""
^XMB(3.9,42,2,3469,0)="""RTN"",""HLOUSR"",171,0)"
^XMB(3.9,42,2,3470,0)=" S VALMDDF(""COL 3"")=""COL 3^70^10^Count^H"""
^XMB(3.9,42,2,3471,0)="""RTN"",""HLOUSR"",172,0)"
^XMB(3.9,42,2,3472,0)=" K VALMDDF(""COL 4""),VALMDDF(""COL 5"")"
^XMB(3.9,42,2,3473,0)="""RTN"",""HLOUSR"",173,0)"
^XMB(3.9,42,2,3474,0)=" D CHGCAP^VALM(""COL 1"","" From"")"
^XMB(3.9,42,2,3475,0)="""RTN"",""HLOUSR"",174,0)"
^XMB(3.9,42,2,3476,0)=" S FROM="""""
^XMB(3.9,42,2,3477,0)="""RTN"",""HLOUSR"",175,0)"
^XMB(3.9,42,2,3478,0)=" F  S FROM=$O(^HLC(""QUEUECOUNT"",""IN"",FROM)) Q:FROM=""""  D"
^XMB(3.9,42,2,3479,0)="""RTN"",""HLOUSR"",176,0)"
^XMB(3.9,42,2,3480,0)=" .N COUNT,QUE,SHOW"
^XMB(3.9,42,2,3481,0)="""RTN"",""HLOUSR"",177,0)"
^XMB(3.9,42,2,3482,0)=" .S SHOW=$$LJ(FROM,40)_""  """
^XMB(3.9,42,2,3483,0)="""RTN"",""HLOUSR"",178,0)"
^XMB(3.9,42,2,3484,0)=" .S QUE="""""
^XMB(3.9,42,2,3485,0)="""RTN"",""HLOUSR"",179,0)"
^XMB(3.9,42,2,3486,0)=" .F  S QUE=$O(^HLC(""QUEUECOUNT"",""IN"",FROM,QUE)) Q:QUE=""""  D"
^XMB(3.9,42,2,3487,0)="""RTN"",""HLOUSR"",180,0)"
^XMB(3.9,42,2,3488,0)=" ..S COUNT=$G(^HLC(""QUEUECOUNT"",""IN"",FROM,QUE))"
^XMB(3.9,42,2,3489,0)="""RTN"",""HLOUSR"",181,0)"
^XMB(3.9,42,2,3490,0)=" ..Q:'COUNT"
^XMB(3.9,42,2,3491,0)="""RTN"",""HLOUSR"",182,0)"
^XMB(3.9,42,2,3492,0)=" ..S VALMCNT=VALMCNT+1"
^XMB(3.9,42,2,3493,0)="""RTN"",""HLOUSR"",183,0)"
^XMB(3.9,42,2,3494,0)=" ..S @VALMAR@(VALMCNT,0)=SHOW_$$LJ($S($$STOPPED^HLOQUE(""IN"",QUE):""!"",1:"""")_QUE,21)_"" ""_$$RJ(COUNT,10)"
^XMB(3.9,42,2,3495,0)="""RTN"",""HLOUSR"",184,0)"
^XMB(3.9,42,2,3496,0)=" ..S SHOW=$$LJ("""",40)_""  """
^XMB(3.9,42,2,3497,0)="""RTN"",""HLOUSR"",185,0)"
^XMB(3.9,42,2,3498,0)=" Q"
^XMB(3.9,42,2,3499,0)="""RTN"",""HLOUSR"",186,0)"
^XMB(3.9,42,2,3500,0)="VIEWLINK ;"
^XMB(3.9,42,2,3501,0)="""RTN"",""HLOUSR"",187,0)"
^XMB(3.9,42,2,3502,0)=" N C,QUIT,LINK,LINKARY"
^XMB(3.9,42,2,3503,0)="""RTN"",""HLOUSR"",188,0)"
^XMB(3.9,42,2,3504,0)=" S (QUIT,C,LINK)="""""
^XMB(3.9,42,2,3505,0)="""RTN"",""HLOUSR"",189,0)"
^XMB(3.9,42,2,3506,0)=" S VALMBCK=""R"""
^XMB(3.9,42,2,3507,0)="""RTN"",""HLOUSR"",190,0)"
^XMB(3.9,42,2,3508,0)=" ;"
^XMB(3.9,42,2,3509,0)="""RTN"",""HLOUSR"",191,0)"
^XMB(3.9,42,2,3510,0)=" ;currently HL7 (Optimized) only does TCP, when serial added a change is needed here"
^XMB(3.9,42,2,3511,0)="""RTN"",""HLOUSR"",192,0)"
^XMB(3.9,42,2,3512,0)=" S LINK=$$ASKLINK"
^XMB(3.9,42,2,3513,0)="""RTN"",""HLOUSR"",193,0)"
^XMB(3.9,42,2,3514,0)=" Q:LINK="""""
^XMB(3.9,42,2,3515,0)="""RTN"",""HLOUSR"",194,0)"
^XMB(3.9,42,2,3516,0)=" Q:'$$GETLINK^HLOTLNK(LINK,.LINKARY)"
^XMB(3.9,42,2,3517,0)="""RTN"",""HLOUSR"",195,0)"
^XMB(3.9,42,2,3518,0)=" S LINK=LINK_"":""_LINKARY(""PORT"")"
^XMB(3.9,42,2,3519,0)="""RTN"",""HLOUSR"",196,0)"
^XMB(3.9,42,2,3520,0)=" W !,""Hit any key to stop..."",!"
^XMB(3.9,42,2,3521,0)="""RTN"",""HLOUSR"",197,0)"
^XMB(3.9,42,2,3522,0)=" F  D  Q:QUIT"
^XMB(3.9,42,2,3523,0)="""RTN"",""HLOUSR"",198,0)"
^XMB(3.9,42,2,3524,0)=" .N COUNT,QUE"
^XMB(3.9,42,2,3525,0)="""RTN"",""HLOUSR"",199,0)"
^XMB(3.9,42,2,3526,0)=" .S (COUNT,QUE)="""""
^XMB(3.9,42,2,3527,0)="""RTN"",""HLOUSR"",200,0)"
^XMB(3.9,42,2,3528,0)=" .F  S QUE=$O(^HLC(""QUEUECOUNT"",""OUT"",LINK,QUE)) Q:QUE=""""  S COUNT=COUNT+$G(^(QUE))"
^XMB(3.9,42,2,3529,0)="""RTN"",""HLOUSR"",201,0)"
^XMB(3.9,42,2,3530,0)=" .W $C(13),""                             "",$C(13),""MESSAGES PENDING TRANSMISSION: "",IOBON,$$RJ(+COUNT,10),IOBOFF"
^XMB(3.9,42,2,3531,0)="""RTN"",""HLOUSR"",202,0)"
^XMB(3.9,42,2,3532,0)=" .R *C:1 I $T S QUIT=1"
^XMB(3.9,42,2,3533,0)="""RTN"",""HLOUSR"",203,0)"
^XMB(3.9,42,2,3534,0)=" Q"
^XMB(3.9,42,2,3535,0)="""RTN"",""HLOUSR"",204,0)"
^XMB(3.9,42,2,3536,0)=" ;"
^XMB(3.9,42,2,3537,0)="""RTN"",""HLOUSR"",205,0)"
^XMB(3.9,42,2,3538,0)="CJ(STRING,LEN) ;"
^XMB(3.9,42,2,3539,0)="""RTN"",""HLOUSR"",206,0)"
^XMB(3.9,42,2,3540,0)=" Q $$CJ^XLFSTR($E(STRING,1,LEN),LEN)"
^XMB(3.9,42,2,3541,0)="""RTN"",""HLOUSR"",207,0)"
^XMB(3.9,42,2,3542,0)="LJ(STRING,LEN) ;"
^XMB(3.9,42,2,3543,0)="""RTN"",""HLOUSR"",208,0)"
^XMB(3.9,42,2,3544,0)=" Q $$LJ^XLFSTR($E(STRING,1,LEN),LEN)"
^XMB(3.9,42,2,3545,0)="""RTN"",""HLOUSR"",209,0)"
^XMB(3.9,42,2,3546,0)="RJ(STRING,LEN) ;"
^XMB(3.9,42,2,3547,0)="""RTN"",""HLOUSR"",210,0)"
^XMB(3.9,42,2,3548,0)=" Q $$RJ^XLFSTR($E(STRING,1,LEN),LEN)"
^XMB(3.9,42,2,3549,0)="""RTN"",""HLOUSR"",211,0)"
^XMB(3.9,42,2,3550,0)=" ;"
^XMB(3.9,42,2,3551,0)="""RTN"",""HLOUSR"",212,0)"
^XMB(3.9,42,2,3552,0)="RUNNING() ;Is the Process Manager running?"
^XMB(3.9,42,2,3553,0)="""RTN"",""HLOUSR"",213,0)"
^XMB(3.9,42,2,3554,0)=" N RUNNING"
^XMB(3.9,42,2,3555,0)="""RTN"",""HLOUSR"",214,0)"
^XMB(3.9,42,2,3556,0)=" L +^HLTMP(""PROCESS MANAGER""):0"
^XMB(3.9,42,2,3557,0)="""RTN"",""HLOUSR"",215,0)"
^XMB(3.9,42,2,3558,0)=" S RUNNING='$T"
^XMB(3.9,42,2,3559,0)="""RTN"",""HLOUSR"",216,0)"
^XMB(3.9,42,2,3560,0)=" I 'RUNNING L -^HLTMP(""PROCESS MANAGER"")"
^XMB(3.9,42,2,3561,0)="""RTN"",""HLOUSR"",217,0)"
^XMB(3.9,42,2,3562,0)=" Q RUNNING"
^XMB(3.9,42,2,3563,0)="""RTN"",""HLOUSR"",218,0)"
^XMB(3.9,42,2,3564,0)=" ;"
^XMB(3.9,42,2,3565,0)="""RTN"",""HLOUSR"",219,0)"
^XMB(3.9,42,2,3566,0)="TESTLINK ;"
^XMB(3.9,42,2,3567,0)="""RTN"",""HLOUSR"",220,0)"
^XMB(3.9,42,2,3568,0)=" N LINK,LINKNAME,OK"
^XMB(3.9,42,2,3569,0)="""RTN"",""HLOUSR"",221,0)"
^XMB(3.9,42,2,3570,0)=" S VALMBCK=""R"""
^XMB(3.9,42,2,3571,0)="""RTN"",""HLOUSR"",222,0)"
^XMB(3.9,42,2,3572,0)=" S LINKNAME=$$ASKLINK"
^XMB(3.9,42,2,3573,0)="""RTN"",""HLOUSR"",223,0)"
^XMB(3.9,42,2,3574,0)=" Q:LINKNAME="""""
^XMB(3.9,42,2,3575,0)="""RTN"",""HLOUSR"",224,0)"
^XMB(3.9,42,2,3576,0)=" S OK=$$IFOPEN^HLOUSR1(LINKNAME)"
^XMB(3.9,42,2,3577,0)="""RTN"",""HLOUSR"",225,0)"
^XMB(3.9,42,2,3578,0)=" I OK W !,LINKNAME_"" IS operational..."""
^XMB(3.9,42,2,3579,0)="""RTN"",""HLOUSR"",226,0)"
^XMB(3.9,42,2,3580,0)=" E  W !,LINKNAME_"" is NOT operational..."""
^XMB(3.9,42,2,3581,0)="""RTN"",""HLOUSR"",227,0)"
^XMB(3.9,42,2,3582,0)=" W !,""Hit any key to continue..."""
^XMB(3.9,42,2,3583,0)="""RTN"",""HLOUSR"",228,0)"
^XMB(3.9,42,2,3584,0)=" R *C:DTIME"
^XMB(3.9,42,2,3585,0)="""RTN"",""HLOUSR"",229,0)"
^XMB(3.9,42,2,3586,0)=" Q"
^XMB(3.9,42,2,3587,0)="""RTN"",""HLOUSR"",230,0)"
^XMB(3.9,42,2,3588,0)=" ;"
^XMB(3.9,42,2,3589,0)="""RTN"",""HLOUSR"",231,0)"
^XMB(3.9,42,2,3590,0)="ASKLINK() ;"
^XMB(3.9,42,2,3591,0)="""RTN"",""HLOUSR"",232,0)"
^XMB(3.9,42,2,3592,0)=" N DIC,TCP,X,Y,DTOUT,DUOUT"
^XMB(3.9,42,2,3593,0)="""RTN"",""HLOUSR"",233,0)"
^XMB(3.9,42,2,3594,0)=" S DIC=870"
^XMB(3.9,42,2,3595,0)="""RTN"",""HLOUSR"",234,0)"
^XMB(3.9,42,2,3596,0)=" S DIC(0)=""AENQ"""
^XMB(3.9,42,2,3597,0)="""RTN"",""HLOUSR"",235,0)"
^XMB(3.9,42,2,3598,0)=" S TCP=$O(^HLCS(869.1,""B"",""TCP"",0))"
^XMB(3.9,42,2,3599,0)="""RTN"",""HLOUSR"",236,0)"
^XMB(3.9,42,2,3600,0)=" S DIC(""A"")=""Select a TCP link:"""
^XMB(3.9,42,2,3601,0)="""RTN"",""HLOUSR"",237,0)"
^XMB(3.9,42,2,3602,0)=" S DIC(""S"")=""I $P(^(0),U,3)=TCP"""
^XMB(3.9,42,2,3603,0)="""RTN"",""HLOUSR"",238,0)"
^XMB(3.9,42,2,3604,0)=" D FULL^VALM1"
^XMB(3.9,42,2,3605,0)="""RTN"",""HLOUSR"",239,0)"
^XMB(3.9,42,2,3606,0)=" D ^DIC"
^XMB(3.9,42,2,3607,0)="""RTN"",""HLOUSR"",240,0)"
^XMB(3.9,42,2,3608,0)=" I +Y'=-1,'$D(DTOUT),'$D(DUOUT) Q $P(Y,""^"",2)"
^XMB(3.9,42,2,3609,0)="""RTN"",""HLOUSR"",241,0)"
^XMB(3.9,42,2,3610,0)=" Q """""
^XMB(3.9,42,2,3611,0)="""RTN"",""HLOUSR"",242,0)"
^XMB(3.9,42,2,3612,0)=" ;"
^XMB(3.9,42,2,3613,0)="""RTN"",""HLOUSR"",243,0)"
^XMB(3.9,42,2,3614,0)="STOP ;"
^XMB(3.9,42,2,3615,0)="""RTN"",""HLOUSR"",244,0)"
^XMB(3.9,42,2,3616,0)=" I '$$ASKYESNO^HLOUSR2(""Are you SURE that you want to stop sending and receiving messages"",""NO"") S VALMBCK="""" Q"
^XMB(3.9,42,2,3617,0)="""RTN"",""HLOUSR"",245,0)"
^XMB(3.9,42,2,3618,0)=" ;"
^XMB(3.9,42,2,3619,0)="""RTN"",""HLOUSR"",246,0)"
^XMB(3.9,42,2,3620,0)=" D STOPHL7^HLOPROC1"
^XMB(3.9,42,2,3621,0)="""RTN"",""HLOUSR"",247,0)"
^XMB(3.9,42,2,3622,0)=" S VALMBCK=""R"",VALMSG=""HL7 (Optimized) has been stopped...."""
^XMB(3.9,42,2,3623,0)="""RTN"",""HLOUSR"",248,0)"
^XMB(3.9,42,2,3624,0)=" H 5"
^XMB(3.9,42,2,3625,0)="""RTN"",""HLOUSR"",249,0)"
^XMB(3.9,42,2,3626,0)=" D:HLSCREEN=""Brief System Status"" BRIEF^HLOUSR"
^XMB(3.9,42,2,3627,0)="""RTN"",""HLOUSR"",250,0)"
^XMB(3.9,42,2,3628,0)=" D:HLSCREEN=""Running Processes"" PROCS^HLOUSR"
^XMB(3.9,42,2,3629,0)="""RTN"",""HLOUSR"",251,0)"
^XMB(3.9,42,2,3630,0)=" Q"
^XMB(3.9,42,2,3631,0)="""RTN"",""HLOUSR"",252,0)"
^XMB(3.9,42,2,3632,0)=" ;"
^XMB(3.9,42,2,3633,0)="""RTN"",""HLOUSR"",253,0)"
^XMB(3.9,42,2,3634,0)="UPDMODE ;update mode"
^XMB(3.9,42,2,3635,0)="""RTN"",""HLOUSR"",254,0)"
^XMB(3.9,42,2,3636,0)=" Q:'$L(HLRFRSH)"
^XMB(3.9,42,2,3637,0)="""RTN"",""HLOUSR"",255,0)"
^XMB(3.9,42,2,3638,0)=" N QUIT,NEW,TOP,BOTTOM,DX,DY,IOTM,IOBM,I"
^XMB(3.9,42,2,3639,0)="""RTN"",""HLOUSR"",256,0)"
^XMB(3.9,42,2,3640,0)=" W !!,IOINHI,""Hit any key to escape realtime display mode..."",IOINORM"
^XMB(3.9,42,2,3641,0)="""RTN"",""HLOUSR"",257,0)"
^XMB(3.9,42,2,3642,0)=" S IOTM=3,IOBM=23"
^XMB(3.9,42,2,3643,0)="""RTN"",""HLOUSR"",258,0)"
^XMB(3.9,42,2,3644,0)=" W @IOSTBM"
^XMB(3.9,42,2,3645,0)="""RTN"",""HLOUSR"",259,0)"
^XMB(3.9,42,2,3646,0)=" S DX=1,DY=$S(VALMCNT<17:VALMCNT+1,1:17) X IOXY"
^XMB(3.9,42,2,3647,0)="""RTN"",""HLOUSR"",260,0)"
^XMB(3.9,42,2,3648,0)=" I VALMCNT>16 F I=17:1:$S(VALMCNT<22:VALMCNT,1:21) W !,@VALMAR@(I,0)"
^XMB(3.9,42,2,3649,0)="""RTN"",""HLOUSR"",261,0)"
^XMB(3.9,42,2,3650,0)=" S QUIT=0"
^XMB(3.9,42,2,3651,0)="""RTN"",""HLOUSR"",262,0)"
^XMB(3.9,42,2,3652,0)=" S TOP=VALMBG"
^XMB(3.9,42,2,3653,0)="""RTN"",""HLOUSR"",263,0)"
^XMB(3.9,42,2,3654,0)=" S BOTTOM=TOP+23"
^XMB(3.9,42,2,3655,0)="""RTN"",""HLOUSR"",264,0)"
^XMB(3.9,42,2,3656,0)=" S OLD=VALMAR"
^XMB(3.9,42,2,3657,0)="""RTN"",""HLOUSR"",265,0)"
^XMB(3.9,42,2,3658,0)=" S VALMAR=""NEW"""
^XMB(3.9,42,2,3659,0)="""RTN"",""HLOUSR"",266,0)"
^XMB(3.9,42,2,3660,0)=" S VALMCNT=0"
^XMB(3.9,42,2,3661,0)="""RTN"",""HLOUSR"",267,0)"
^XMB(3.9,42,2,3662,0)=" F  D  Q:QUIT"
^XMB(3.9,42,2,3663,0)="""RTN"",""HLOUSR"",268,0)"
^XMB(3.9,42,2,3664,0)=" .N LINE"
^XMB(3.9,42,2,3665,0)="""RTN"",""HLOUSR"",269,0)"
^XMB(3.9,42,2,3666,0)=" .R *C:3 I $T S QUIT=1"
^XMB(3.9,42,2,3667,0)="""RTN"",""HLOUSR"",270,0)"
^XMB(3.9,42,2,3668,0)=" .S (VALMCNT,I)=0"
^XMB(3.9,42,2,3669,0)="""RTN"",""HLOUSR"",271,0)"
^XMB(3.9,42,2,3670,0)=" .D @HLRFRSH"
^XMB(3.9,42,2,3671,0)="""RTN"",""HLOUSR"",272,0)"
^XMB(3.9,42,2,3672,0)=" .F LINE=TOP:1:BOTTOM IF $G(@OLD@(LINE,0))'=$G(@VALMAR@(LINE,0)) D WRITE^VALM10(LINE)"
^XMB(3.9,42,2,3673,0)="""RTN"",""HLOUSR"",273,0)"
^XMB(3.9,42,2,3674,0)=" K @OLD M @OLD=@VALMAR S VALMAR=OLD"
^XMB(3.9,42,2,3675,0)="""RTN"",""HLOUSR"",274,0)"
^XMB(3.9,42,2,3676,0)=" S VALMBCK=""R"""
^XMB(3.9,42,2,3677,0)="""RTN"",""HLOUSR"",275,0)"
^XMB(3.9,42,2,3678,0)=" Q"
^XMB(3.9,42,2,3679,0)="""RTN"",""HLOUSRA"")"
^XMB(3.9,42,2,3680,0)="0^9^B10710992"
^XMB(3.9,42,2,3681,0)="""RTN"",""HLOUSRA"",1,0)"
^XMB(3.9,42,2,3682,0)="HLOUSRA ;ALB/CJM -ListManager Screen for viewing downed links;12 JUN 1997 10:00 am"
^XMB(3.9,42,2,3683,0)="""RTN"",""HLOUSRA"",2,0)"
^XMB(3.9,42,2,3684,0)=" ;;1.6;HEALTH LEVEL SEVEN;**130**;Oct 13, 1995;Build 10"
^XMB(3.9,42,2,3685,0)="""RTN"",""HLOUSRA"",3,0)"
^XMB(3.9,42,2,3686,0)=" ;"
^XMB(3.9,42,2,3687,0)="""RTN"",""HLOUSRA"",4,0)"
^XMB(3.9,42,2,3688,0)="HEADER ;"
^XMB(3.9,42,2,3689,0)="""RTN"",""HLOUSRA"",5,0)"
^XMB(3.9,42,2,3690,0)=" S VALMSG=""Down Client Links"""
^XMB(3.9,42,2,3691,0)="""RTN"",""HLOUSRA"",6,0)"
^XMB(3.9,42,2,3692,0)=" S VALMDDF(""COL 2"")=""COL 2^20^20^Pending Messages^H"""
^XMB(3.9,42,2,3693,0)="""RTN"",""HLOUSRA"",7,0)"
^XMB(3.9,42,2,3694,0)=" S VALMDDF(""COL 3"")=""COL 3^47^20^Date/Time Down^H"""
^XMB(3.9,42,2,3695,0)="""RTN"",""HLOUSRA"",8,0)"
^XMB(3.9,42,2,3696,0)=" K VALMDDF(""COL 4""),VALMDDF(""COL 5"")"
^XMB(3.9,42,2,3697,0)="""RTN"",""HLOUSRA"",9,0)"
^XMB(3.9,42,2,3698,0)=" D CHGCAP^VALM(""COL 1"",""Client Link"")"
^XMB(3.9,42,2,3699,0)="""RTN"",""HLOUSRA"",10,0)"
^XMB(3.9,42,2,3700,0)=" Q"
^XMB(3.9,42,2,3701,0)="""RTN"",""HLOUSRA"",11,0)"
^XMB(3.9,42,2,3702,0)=" ;"
^XMB(3.9,42,2,3703,0)="""RTN"",""HLOUSRA"",12,0)"
^XMB(3.9,42,2,3704,0)="HELP ;Help code"
^XMB(3.9,42,2,3705,0)="""RTN"",""HLOUSRA"",13,0)"
^XMB(3.9,42,2,3706,0)=" S X=""?"" D DISP^XQORM1 W !!"
^XMB(3.9,42,2,3707,0)="""RTN"",""HLOUSRA"",14,0)"
^XMB(3.9,42,2,3708,0)=" Q"
^XMB(3.9,42,2,3709,0)="""RTN"",""HLOUSRA"",15,0)"
^XMB(3.9,42,2,3710,0)=" ;"
^XMB(3.9,42,2,3711,0)="""RTN"",""HLOUSRA"",16,0)"
^XMB(3.9,42,2,3712,0)="EXIT ;Exit code"
^XMB(3.9,42,2,3713,0)="""RTN"",""HLOUSRA"",17,0)"
^XMB(3.9,42,2,3714,0)=" D CLEAN^VALM10"
^XMB(3.9,42,2,3715,0)="""RTN"",""HLOUSRA"",18,0)"
^XMB(3.9,42,2,3716,0)=" D CLEAR^VALM1"
^XMB(3.9,42,2,3717,0)="""RTN"",""HLOUSRA"",19,0)"
^XMB(3.9,42,2,3718,0)=" S VALMBCK=""R"""
^XMB(3.9,42,2,3719,0)="""RTN"",""HLOUSRA"",20,0)"
^XMB(3.9,42,2,3720,0)=" ;"
^XMB(3.9,42,2,3721,0)="""RTN"",""HLOUSRA"",21,0)"
^XMB(3.9,42,2,3722,0)=" Q"
^XMB(3.9,42,2,3723,0)="""RTN"",""HLOUSRA"",22,0)"
^XMB(3.9,42,2,3724,0)=" ;"
^XMB(3.9,42,2,3725,0)="""RTN"",""HLOUSRA"",23,0)"
^XMB(3.9,42,2,3726,0)="DOWNLINK ;"
^XMB(3.9,42,2,3727,0)="""RTN"",""HLOUSRA"",24,0)"
^XMB(3.9,42,2,3728,0)=" D EN^VALM(""HLO DOWN LINKS"")"
^XMB(3.9,42,2,3729,0)="""RTN"",""HLOUSRA"",25,0)"
^XMB(3.9,42,2,3730,0)=" D:$L($G(HLRFRSH)) @HLRFRSH"
^XMB(3.9,42,2,3731,0)="""RTN"",""HLOUSRA"",26,0)"
^XMB(3.9,42,2,3732,0)=" Q"
^XMB(3.9,42,2,3733,0)="""RTN"",""HLOUSRA"",27,0)"
^XMB(3.9,42,2,3734,0)=" ;"
^XMB(3.9,42,2,3735,0)="""RTN"",""HLOUSRA"",28,0)"
^XMB(3.9,42,2,3736,0)="RESTART ;"
^XMB(3.9,42,2,3737,0)="""RTN"",""HLOUSRA"",29,0)"
^XMB(3.9,42,2,3738,0)=" ;Allows the user to select a link and restarts HLO messages flowing to that domain."
^XMB(3.9,42,2,3739,0)="""RTN"",""HLOUSRA"",30,0)"
^XMB(3.9,42,2,3740,0)=" N LINKARY"
^XMB(3.9,42,2,3741,0)="""RTN"",""HLOUSRA"",31,0)"
^XMB(3.9,42,2,3742,0)=" S VALMBCK=""R"""
^XMB(3.9,42,2,3743,0)="""RTN"",""HLOUSRA"",32,0)"
^XMB(3.9,42,2,3744,0)=" ;"
^XMB(3.9,42,2,3745,0)="""RTN"",""HLOUSRA"",33,0)"
^XMB(3.9,42,2,3746,0)=" S LINK=$$ASKLINK"
^XMB(3.9,42,2,3747,0)="""RTN"",""HLOUSRA"",34,0)"
^XMB(3.9,42,2,3748,0)=" Q:LINK="""""
^XMB(3.9,42,2,3749,0)="""RTN"",""HLOUSRA"",35,0)"
^XMB(3.9,42,2,3750,0)=" I $$GETLINK^HLOTLNK(LINK,.LINKARY) D"
^XMB(3.9,42,2,3751,0)="""RTN"",""HLOUSRA"",36,0)"
^XMB(3.9,42,2,3752,0)=" .I $$SETOPEN^HLOTLNK(LINKARY(""IEN"")) K ^HLTMP(""FAILING LINKS"",LINK_"":""_LINKARY(""PORT"")) S VALMSG=""HLO messages across ""_LINKARY(""NAME"")_"" have been started..."""
^XMB(3.9,42,2,3753,0)="""RTN"",""HLOUSRA"",37,0)"
^XMB(3.9,42,2,3754,0)=" .D LISTDOWN"
^XMB(3.9,42,2,3755,0)="""RTN"",""HLOUSRA"",38,0)"
^XMB(3.9,42,2,3756,0)=" Q"
^XMB(3.9,42,2,3757,0)="""RTN"",""HLOUSRA"",39,0)"
^XMB(3.9,42,2,3758,0)=" ;"
^XMB(3.9,42,2,3759,0)="""RTN"",""HLOUSRA"",40,0)"
^XMB(3.9,42,2,3760,0)="LISTDOWN ;"
^XMB(3.9,42,2,3761,0)="""RTN"",""HLOUSRA"",41,0)"
^XMB(3.9,42,2,3762,0)=" N LINK"
^XMB(3.9,42,2,3763,0)="""RTN"",""HLOUSRA"",42,0)"
^XMB(3.9,42,2,3764,0)=" D CLEAN^VALM10"
^XMB(3.9,42,2,3765,0)="""RTN"",""HLOUSRA"",43,0)"
^XMB(3.9,42,2,3766,0)=" S VALMCNT=0"
^XMB(3.9,42,2,3767,0)="""RTN"",""HLOUSRA"",44,0)"
^XMB(3.9,42,2,3768,0)=" S LINK="""""
^XMB(3.9,42,2,3769,0)="""RTN"",""HLOUSRA"",45,0)"
^XMB(3.9,42,2,3770,0)=" F  S LINK=$O(^HLTMP(""FAILING LINKS"",LINK)) Q:LINK=""""  D"
^XMB(3.9,42,2,3771,0)="""RTN"",""HLOUSRA"",46,0)"
^XMB(3.9,42,2,3772,0)=" .N TIME,COUNT,QUE,LINKARY"
^XMB(3.9,42,2,3773,0)="""RTN"",""HLOUSRA"",47,0)"
^XMB(3.9,42,2,3774,0)=" .I $$GETLINK^HLOTLNK($P(LINK,"":""),.LINKARY)"
^XMB(3.9,42,2,3775,0)="""RTN"",""HLOUSRA"",48,0)"
^XMB(3.9,42,2,3776,0)=" .S TIME=$G(^HLTMP(""FAILING LINKS"",LINK))"
^XMB(3.9,42,2,3777,0)="""RTN"",""HLOUSRA"",49,0)"
^XMB(3.9,42,2,3778,0)=" .I '$G(LINKARY(""SHUTDOWN"")),TIME="""" Q"
^XMB(3.9,42,2,3779,0)="""RTN"",""HLOUSRA"",50,0)"
^XMB(3.9,42,2,3780,0)=" .I '$G(LINKARY(""SHUTDOWN"")),($$HDIFF^XLFDT($H,TIME,2)<300) Q"
^XMB(3.9,42,2,3781,0)="""RTN"",""HLOUSRA"",51,0)"
^XMB(3.9,42,2,3782,0)=" .S TIME=$$HTE^XLFDT(TIME)"
^XMB(3.9,42,2,3783,0)="""RTN"",""HLOUSRA"",52,0)"
^XMB(3.9,42,2,3784,0)=" .S COUNT=0"
^XMB(3.9,42,2,3785,0)="""RTN"",""HLOUSRA"",53,0)"
^XMB(3.9,42,2,3786,0)=" .S QUE="""""
^XMB(3.9,42,2,3787,0)="""RTN"",""HLOUSRA"",54,0)"
^XMB(3.9,42,2,3788,0)=" .F  S QUE=$O(^HLC(""QUEUECOUNT"",""OUT"",LINK,QUE)) Q:QUE=""""  S COUNT=COUNT+$G(^HLC(""QUEUECOUNT"",""OUT"",LINK,QUE))"
^XMB(3.9,42,2,3789,0)="""RTN"",""HLOUSRA"",55,0)"
^XMB(3.9,42,2,3790,0)=" .S VALMCNT=VALMCNT+1"
^XMB(3.9,42,2,3791,0)="""RTN"",""HLOUSRA"",56,0)"
^XMB(3.9,42,2,3792,0)=" .S @VALMAR@(VALMCNT,0)=$$LJ(LINK,15)_$$RJ(COUNT,15)_""    ""_$$RJ(TIME,30)_""  ""_$S($G(LINKARY(""SHUTDOWN"")):""SHUTDOWN"",1:"""")"
^XMB(3.9,42,2,3793,0)="""RTN"",""HLOUSRA"",57,0)"
^XMB(3.9,42,2,3794,0)=" Q"
^XMB(3.9,42,2,3795,0)="""RTN"",""HLOUSRA"",58,0)"
^XMB(3.9,42,2,3796,0)=" ;"
^XMB(3.9,42,2,3797,0)="""RTN"",""HLOUSRA"",59,0)"
^XMB(3.9,42,2,3798,0)="STOPLINK ;"
^XMB(3.9,42,2,3799,0)="""RTN"",""HLOUSRA"",60,0)"
^XMB(3.9,42,2,3800,0)=" N LINK,LINKARY"
^XMB(3.9,42,2,3801,0)="""RTN"",""HLOUSRA"",61,0)"
^XMB(3.9,42,2,3802,0)=" S VALMBCK=""R"""
^XMB(3.9,42,2,3803,0)="""RTN"",""HLOUSRA"",62,0)"
^XMB(3.9,42,2,3804,0)=" ;"
^XMB(3.9,42,2,3805,0)="""RTN"",""HLOUSRA"",63,0)"
^XMB(3.9,42,2,3806,0)=" S LINK=$$ASKLINK"
^XMB(3.9,42,2,3807,0)="""RTN"",""HLOUSRA"",64,0)"
^XMB(3.9,42,2,3808,0)=" Q:LINK="""""
^XMB(3.9,42,2,3809,0)="""RTN"",""HLOUSRA"",65,0)"
^XMB(3.9,42,2,3810,0)=" I $$GETLINK^HLOTLNK(LINK,.LINKARY) D"
^XMB(3.9,42,2,3811,0)="""RTN"",""HLOUSRA"",66,0)"
^XMB(3.9,42,2,3812,0)=" .S LINK=LINK_"":""_LINKARY(""PORT"")"
^XMB(3.9,42,2,3813,0)="""RTN"",""HLOUSRA"",67,0)"
^XMB(3.9,42,2,3814,0)=" .I $$SETSHUT^HLOTLNK(LINKARY(""IEN"")) S VALMSG=""HLO messages across ""_LINKARY(""NAME"")_"" have been stopped..."""
^XMB(3.9,42,2,3815,0)="""RTN"",""HLOUSRA"",68,0)"
^XMB(3.9,42,2,3816,0)=" .S ^HLTMP(""FAILING LINKS"",LINK)=$G(^HLTMP(""FAILING LINKS"",LINK),$H)"
^XMB(3.9,42,2,3817,0)="""RTN"",""HLOUSRA"",69,0)"
^XMB(3.9,42,2,3818,0)=" .S ^HLB(""QUEUE"",""OUT"",LINK)=$H"
^XMB(3.9,42,2,3819,0)="""RTN"",""HLOUSRA"",70,0)"
^XMB(3.9,42,2,3820,0)=" .D LISTDOWN"
^XMB(3.9,42,2,3821,0)="""RTN"",""HLOUSRA"",71,0)"
^XMB(3.9,42,2,3822,0)=" Q"
^XMB(3.9,42,2,3823,0)="""RTN"",""HLOUSRA"",72,0)"
^XMB(3.9,42,2,3824,0)=" ;"
^XMB(3.9,42,2,3825,0)="""RTN"",""HLOUSRA"",73,0)"
^XMB(3.9,42,2,3826,0)="CJ(STRING,LEN) ;"
^XMB(3.9,42,2,3827,0)="""RTN"",""HLOUSRA"",74,0)"
^XMB(3.9,42,2,3828,0)=" Q $$CJ^XLFSTR($E(STRING,1,LEN),LEN)"
^XMB(3.9,42,2,3829,0)="""RTN"",""HLOUSRA"",75,0)"
^XMB(3.9,42,2,3830,0)="LJ(STRING,LEN) ;"
^XMB(3.9,42,2,3831,0)="""RTN"",""HLOUSRA"",76,0)"
^XMB(3.9,42,2,3832,0)=" Q $$LJ^XLFSTR($E(STRING,1,LEN),LEN)"
^XMB(3.9,42,2,3833,0)="""RTN"",""HLOUSRA"",77,0)"
^XMB(3.9,42,2,3834,0)="RJ(STRING,LEN) ;"
^XMB(3.9,42,2,3835,0)="""RTN"",""HLOUSRA"",78,0)"
^XMB(3.9,42,2,3836,0)=" Q $$RJ^XLFSTR($E(STRING,1,LEN),LEN)"
^XMB(3.9,42,2,3837,0)="""RTN"",""HLOUSRA"",79,0)"
^XMB(3.9,42,2,3838,0)=" ;"
^XMB(3.9,42,2,3839,0)="""RTN"",""HLOUSRA"",80,0)"
^XMB(3.9,42,2,3840,0)="ASKLINK() ;"
^XMB(3.9,42,2,3841,0)="""RTN"",""HLOUSRA"",81,0)"
^XMB(3.9,42,2,3842,0)=" ;returns the name"
^XMB(3.9,42,2,3843,0)="""RTN"",""HLOUSRA"",82,0)"
^XMB(3.9,42,2,3844,0)=" N DIC,TCP,X,Y,DTOUT,DUOUT"
^XMB(3.9,42,2,3845,0)="""RTN"",""HLOUSRA"",83,0)"
^XMB(3.9,42,2,3846,0)=" S DIC=870"
^XMB(3.9,42,2,3847,0)="""RTN"",""HLOUSRA"",84,0)"
^XMB(3.9,42,2,3848,0)=" S DIC(0)=""AENQ"""
^XMB(3.9,42,2,3849,0)="""RTN"",""HLOUSRA"",85,0)"
^XMB(3.9,42,2,3850,0)=" S TCP=$O(^HLCS(869.1,""B"",""TCP"",0))"
^XMB(3.9,42,2,3851,0)="""RTN"",""HLOUSRA"",86,0)"
^XMB(3.9,42,2,3852,0)=" S DIC(""A"")=""Select a TCP Client Link (Outgoing):"""
^XMB(3.9,42,2,3853,0)="""RTN"",""HLOUSRA"",87,0)"
^XMB(3.9,42,2,3854,0)=" S DIC(""S"")=""I $P(^(0),U,3)=TCP,$P(^(400),U,3)=""""C"""""""
^XMB(3.9,42,2,3855,0)="""RTN"",""HLOUSRA"",88,0)"
^XMB(3.9,42,2,3856,0)=" D FULL^VALM1"
^XMB(3.9,42,2,3857,0)="""RTN"",""HLOUSRA"",89,0)"
^XMB(3.9,42,2,3858,0)=" D ^DIC"
^XMB(3.9,42,2,3859,0)="""RTN"",""HLOUSRA"",90,0)"
^XMB(3.9,42,2,3860,0)=" I +Y'=-1,'$D(DTOUT),'$D(DUOUT) Q $P(Y,""^"",2)"
^XMB(3.9,42,2,3861,0)="""RTN"",""HLOUSRA"",91,0)"
^XMB(3.9,42,2,3862,0)=" Q """""
^XMB(3.9,42,2,3863,0)="""VER"")"
^XMB(3.9,42,2,3864,0)="8.0^22.0"
^XMB(3.9,42,2,3865,0)="""^DD"",779.3,779.3,0)"
^XMB(3.9,42,2,3866,0)="FIELD^^.15^15"
^XMB(3.9,42,2,3867,0)="""^DD"",779.3,779.3,0,""DDA"")"
^XMB(3.9,42,2,3868,0)="N"
^XMB(3.9,42,2,3869,0)="""^DD"",779.3,779.3,0,""DT"")"
^XMB(3.9,42,2,3870,0)="3041221"
^XMB(3.9,42,2,3871,0)="""^DD"",779.3,779.3,0,""IX"",""B"",779.3,.01)"
^XMB(3.9,42,2,3872,0)=""
^XMB(3.9,42,2,3873,0)="""^DD"",779.3,779.3,0,""NM"",""HLO PROCESS REGISTRY"")"
^XMB(3.9,42,2,3874,0)=""
^XMB(3.9,42,2,3875,0)="""^DD"",779.3,779.3,0,""VRPK"")"
^XMB(3.9,42,2,3876,0)="HL"
^XMB(3.9,42,2,3877,0)="""^DD"",779.3,779.3,.01,0)"
^XMB(3.9,42,2,3878,0)="PROCESS NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^XMB(3.9,42,2,3879,0)="""^DD"",779.3,779.3,.01,1,0)"
^XMB(3.9,42,2,3880,0)="^.1"
^XMB(3.9,42,2,3881,0)="""^DD"",779.3,779.3,.01,1,1,0)"
^XMB(3.9,42,2,3882,0)="779.3^B"
^XMB(3.9,42,2,3883,0)="""^DD"",779.3,779.3,.01,1,1,1)"
^XMB(3.9,42,2,3884,0)="S ^HLD(779.3,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,42,2,3885,0)="""^DD"",779.3,779.3,.01,1,1,2)"
^XMB(3.9,42,2,3886,0)="K ^HLD(779.3,""B"",$E(X,1,30),DA)"
^XMB(3.9,42,2,3887,0)="""^DD"",779.3,779.3,.01,3)"
^XMB(3.9,42,2,3888,0)="Give the type of process a unique name, 3-30 characters."
^XMB(3.9,42,2,3889,0)="""^DD"",779.3,779.3,.01,21,0)"
^XMB(3.9,42,2,3890,0)="^^1^1^3041115^"
^XMB(3.9,42,2,3891,0)="""^DD"",779.3,779.3,.01,21,1,0)"
^XMB(3.9,42,2,3892,0)="A unique name for the type of process."
^XMB(3.9,42,2,3893,0)="""^DD"",779.3,779.3,.01,""DT"")"
^XMB(3.9,42,2,3894,0)="3041115"
^XMB(3.9,42,2,3895,0)="""^DD"",779.3,779.3,.02,0)"
^XMB(3.9,42,2,3896,0)="ACTIVE^S^0:NO;1:YES;^0;2^Q"
^XMB(3.9,42,2,3897,0)="""^DD"",779.3,779.3,.02,3)"
^XMB(3.9,42,2,3898,0)="Enter 1 to activate these processes, 0 to inactivate."
^XMB(3.9,42,2,3899,0)="""^DD"",779.3,779.3,.02,21,0)"
^XMB(3.9,42,2,3900,0)="^^4^4^3050805^^^^"
^XMB(3.9,42,2,3901,0)="""^DD"",779.3,779.3,.02,21,1,0)"
^XMB(3.9,42,2,3902,0)="A flag that indicates whether or not this type of process is active under "
^XMB(3.9,42,2,3903,0)="""^DD"",779.3,779.3,.02,21,2,0)"
^XMB(3.9,42,2,3904,0)="the HLO Process Manager. Some processes may not apply to some "
^XMB(3.9,42,2,3905,0)="""^DD"",779.3,779.3,.02,21,3,0)"
^XMB(3.9,42,2,3906,0)="systems, for example, a particular site may not use the Taskman "
^XMB(3.9,42,2,3907,0)="""^DD"",779.3,779.3,.02,21,4,0)"
^XMB(3.9,42,2,3908,0)="multi-listener. "
^XMB(3.9,42,2,3909,0)="""^DD"",779.3,779.3,.02,""DT"")"
^XMB(3.9,42,2,3910,0)="3050805"
^XMB(3.9,42,2,3911,0)="""^DD"",779.3,779.3,.03,0)"
^XMB(3.9,42,2,3912,0)="MINIMUM ACTIVE PROCESSES^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1.N) X"
^XMB(3.9,42,2,3913,0)="""^DD"",779.3,779.3,.03,3)"
^XMB(3.9,42,2,3914,0)="How many of these processes should be running at a minimum when HL7 messaging is on?"
^XMB(3.9,42,2,3915,0)="""^DD"",779.3,779.3,.03,21,0)"
^XMB(3.9,42,2,3916,0)="^^3^3^3050805^^^"
^XMB(3.9,42,2,3917,0)="""^DD"",779.3,779.3,.03,21,1,0)"
^XMB(3.9,42,2,3918,0)="This field indicates the minimum number of concurrent processes of this "
^XMB(3.9,42,2,3919,0)="""^DD"",779.3,779.3,.03,21,2,0)"
^XMB(3.9,42,2,3920,0)="type.  The exact number changes as the HLO Process Manager starts and "
^XMB(3.9,42,2,3921,0)="""^DD"",779.3,779.3,.03,21,3,0)"
^XMB(3.9,42,2,3922,0)="stops processes in response to changes in workload."
^XMB(3.9,42,2,3923,0)="""^DD"",779.3,779.3,.03,""DT"")"
^XMB(3.9,42,2,3924,0)="3050805"
^XMB(3.9,42,2,3925,0)="""^DD"",779.3,779.3,.04,0)"
^XMB(3.9,42,2,3926,0)="MAXIMUM ACTIVE PROCESSES^NJ3,0^^0;4^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1.N) X"
^XMB(3.9,42,2,3927,0)="""^DD"",779.3,779.3,.04,3)"
^XMB(3.9,42,2,3928,0)="How many of these processes should be running at a maximum when the HL7 messaging system is on?"
^XMB(3.9,42,2,3929,0)="""^DD"",779.3,779.3,.04,""DT"")"
^XMB(3.9,42,2,3930,0)="3040907"
^XMB(3.9,42,2,3931,0)="""^DD"",779.3,779.3,.05,0)"
^XMB(3.9,42,2,3932,0)="SCHEDULING FREQUENCY (minutes)^NJ4,0^^0;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^XMB(3.9,42,2,3933,0)="""^DD"",779.3,779.3,.05,3)"
^XMB(3.9,42,2,3934,0)="This is how long the Process Manager should wait between checks to see if another process of this type should be started.  Enter 0 to 9999."
^XMB(3.9,42,2,3935,0)="""^DD"",779.3,779.3,.05,21,0)"
^XMB(3.9,42,2,3936,0)="^.001^2^2^3041221^^"
^XMB(3.9,42,2,3937,0)="""^DD"",779.3,779.3,.05,21,1,0)"
^XMB(3.9,42,2,3938,0)="This is how long the Process Manager should wait between checks to see if "
^XMB(3.9,42,2,3939,0)="""^DD"",779.3,779.3,.05,21,2,0)"
^XMB(3.9,42,2,3940,0)="another process of this type should be started."
^XMB(3.9,42,2,3941,0)="""^DD"",779.3,779.3,.05,""DT"")"
^XMB(3.9,42,2,3942,0)="3050919"
^XMB(3.9,42,2,3943,0)="""^DD"",779.3,779.3,.06,0)"
^XMB(3.9,42,2,3944,0)="DT/TM LAST STARTED OR STOPPED^D^^0;6^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,42,2,3945,0)="""^DD"",779.3,779.3,.06,3)"
^XMB(3.9,42,2,3946,0)="DT/TM the process manager last started or stopped one of these."
^XMB(3.9,42,2,3947,0)="""^DD"",779.3,779.3,.06,21,0)"
^XMB(3.9,42,2,3948,0)="^^2^2^3041115^"
^XMB(3.9,42,2,3949,0)="""^DD"",779.3,779.3,.06,21,1,0)"
^XMB(3.9,42,2,3950,0)="The date and time when a process of this type was last started or "
^XMB(3.9,42,2,3951,0)="""^DD"",779.3,779.3,.06,21,2,0)"
^XMB(3.9,42,2,3952,0)="stopped."
^XMB(3.9,42,2,3953,0)="""^DD"",779.3,779.3,.06,""DT"")"
^XMB(3.9,42,2,3954,0)="3041115"
^XMB(3.9,42,2,3955,0)="""^DD"",779.3,779.3,.07,0)"
^XMB(3.9,42,2,3956,0)="HANG TIME (seconds)^NJ3,0^^0;7^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1.N) X"
^XMB(3.9,42,2,3957,0)="""^DD"",779.3,779.3,.07,3)"
^XMB(3.9,42,2,3958,0)="If the process cannot find work, how many seconds should it hang before looking again?"
^XMB(3.9,42,2,3959,0)="""^DD"",779.3,779.3,.07,21,0)"
^XMB(3.9,42,2,3960,0)="^^2^2^3041115^"
^XMB(3.9,42,2,3961,0)="""^DD"",779.3,779.3,.07,21,1,0)"
^XMB(3.9,42,2,3962,0)="This is how long a process should wait between attempts to find work to "
^XMB(3.9,42,2,3963,0)="""^DD"",779.3,779.3,.07,21,2,0)"
^XMB(3.9,42,2,3964,0)="do."
^XMB(3.9,42,2,3965,0)="""^DD"",779.3,779.3,.07,""DT"")"
^XMB(3.9,42,2,3966,0)="3041115"
^XMB(3.9,42,2,3967,0)="""^DD"",779.3,779.3,.08,0)"
^XMB(3.9,42,2,3968,0)="GET WORK FUNCTION (TAG)^RF^^0;8^K:$L(X)>8!($L(X)<1) X"
^XMB(3.9,42,2,3969,0)="""^DD"",779.3,779.3,.08,3)"
^XMB(3.9,42,2,3970,0)="What function will this process call to find work (optional routine entry point)"
^XMB(3.9,42,2,3971,0)="""^DD"",779.3,779.3,.08,21,0)"
^XMB(3.9,42,2,3972,0)="^^1^1^3041115^"
^XMB(3.9,42,2,3973,0)="""^DD"",779.3,779.3,.08,21,1,0)"
^XMB(3.9,42,2,3974,0)="The M entry point to the GET WORK function for this process type."
^XMB(3.9,42,2,3975,0)="""^DD"",779.3,779.3,.08,""DT"")"
^XMB(3.9,42,2,3976,0)="3041115"
^XMB(3.9,42,2,3977,0)="""^DD"",779.3,779.3,.09,0)"
^XMB(3.9,42,2,3978,0)="GET WORK FUNCTION (ROUTINE)^RF^^0;9^K:$L(X)>8!($L(X)<1) X"
^XMB(3.9,42,2,3979,0)="""^DD"",779.3,779.3,.09,3)"
^XMB(3.9,42,2,3980,0)="What function should this process call to find work? (routine name only)"
^XMB(3.9,42,2,3981,0)="""^DD"",779.3,779.3,.09,21,0)"
^XMB(3.9,42,2,3982,0)="^^1^1^3041115^"
^XMB(3.9,42,2,3983,0)="""^DD"",779.3,779.3,.09,21,1,0)"
^XMB(3.9,42,2,3984,0)="The routine in which this process type has located its GET WORK function."
^XMB(3.9,42,2,3985,0)="""^DD"",779.3,779.3,.09,""DT"")"
^XMB(3.9,42,2,3986,0)="3041115"
^XMB(3.9,42,2,3987,0)="""^DD"",779.3,779.3,.1,0)"
^XMB(3.9,42,2,3988,0)="DO WORK FUNCTION (TAG)^F^^0;10^K:$L(X)>8!($L(X)<1) X"
^XMB(3.9,42,2,3989,0)="""^DD"",779.3,779.3,.1,3)"
^XMB(3.9,42,2,3990,0)="What function should this process call to do its work? Enter the optional entry point only in this field."
^XMB(3.9,42,2,3991,0)="""^DD"",779.3,779.3,.1,21,0)"
^XMB(3.9,42,2,3992,0)="^^1^1^3041115^"
^XMB(3.9,42,2,3993,0)="""^DD"",779.3,779.3,.1,21,1,0)"
^XMB(3.9,42,2,3994,0)="The M entry point for the process's DO WORK function."
^XMB(3.9,42,2,3995,0)="""^DD"",779.3,779.3,.1,""DT"")"
^XMB(3.9,42,2,3996,0)="3041115"
^XMB(3.9,42,2,3997,0)="""^DD"",779.3,779.3,.11,0)"
^XMB(3.9,42,2,3998,0)="DO WORK FUNCTION (ROUTINE)^F^^0;11^K:$L(X)>8!($L(X)<1) X"
^XMB(3.9,42,2,3999,0)="""^DD"",779.3,779.3,.11,3)"
^XMB(3.9,42,2,4000,0)="What function should this process call to do its work?  Enter the routine name only in this field."
^XMB(3.9,42,2,4001,0)="""^DD"",779.3,779.3,.11,21,0)"
^XMB(3.9,42,2,4002,0)="^^1^1^3041115^"
^XMB(3.9,42,2,4003,0)="""^DD"",779.3,779.3,.11,21,1,0)"
^XMB(3.9,42,2,4004,0)="The routine in which the process's DO WORK function is located."
^XMB(3.9,42,2,4005,0)="""^DD"",779.3,779.3,.11,""DT"")"
^XMB(3.9,42,2,4006,0)="3041115"
^XMB(3.9,42,2,4007,0)="""^DD"",779.3,779.3,.12,0)"
^XMB(3.9,42,2,4008,0)="MAX TRIES FINDING WORK^NJ4,0^^0;12^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1.N) X"
^XMB(3.9,42,2,4009,0)="""^DD"",779.3,779.3,.12,3)"
^XMB(3.9,42,2,4010,0)="How many times should the process look for work before giving up?"
^XMB(3.9,42,2,4011,0)="""^DD"",779.3,779.3,.12,21,0)"
^XMB(3.9,42,2,4012,0)="^^3^3^3041115^"
^XMB(3.9,42,2,4013,0)="""^DD"",779.3,779.3,.12,21,1,0)"
^XMB(3.9,42,2,4014,0)="How many times should the process look for work and then quit if it "
^XMB(3.9,42,2,4015,0)="""^DD"",779.3,779.3,.12,21,2,0)"
^XMB(3.9,42,2,4016,0)="cannot find anything to do?  It'll hang between attempts the specified "
^XMB(3.9,42,2,4017,0)="""^DD"",779.3,779.3,.12,21,3,0)"
^XMB(3.9,42,2,4018,0)="length of time."
^XMB(3.9,42,2,4019,0)="""^DD"",779.3,779.3,.12,""DT"")"
^XMB(3.9,42,2,4020,0)="3041115"
^XMB(3.9,42,2,4021,0)="""^DD"",779.3,779.3,.13,0)"
^XMB(3.9,42,2,4022,0)="PERSISTENT^S^0:NO;1:YES;^0;13^Q"
^XMB(3.9,42,2,4023,0)="""^DD"",779.3,779.3,.13,3)"
^XMB(3.9,42,2,4024,0)="Should processes of this type be restarted automatically if they die?"
^XMB(3.9,42,2,4025,0)="""^DD"",779.3,779.3,.13,21,0)"
^XMB(3.9,42,2,4026,0)="^^2^2^3041115^"
^XMB(3.9,42,2,4027,0)="""^DD"",779.3,779.3,.13,21,1,0)"
^XMB(3.9,42,2,4028,0)="Setting this field to YES results in the process being made persistent "
^XMB(3.9,42,2,4029,0)="""^DD"",779.3,779.3,.13,21,2,0)"
^XMB(3.9,42,2,4030,0)="via the Taskman persistent parameter."
^XMB(3.9,42,2,4031,0)="""^DD"",779.3,779.3,.13,""DT"")"
^XMB(3.9,42,2,4032,0)="3041115"
^XMB(3.9,42,2,4033,0)="""^DD"",779.3,779.3,.14,0)"
^XMB(3.9,42,2,4034,0)="DEDICATED LINK^FX^^0;14^K:$L(X)>10!($L(X)<3) X"
^XMB(3.9,42,2,4035,0)="""^DD"",779.3,779.3,.14,3)"
^XMB(3.9,42,2,4036,0)="If this process is a listener, you must enter the name of an HL LOGICAL LINK that is a listener and whose TCP/IP PORT (OPTIMIZED) field contains the correct port number."
^XMB(3.9,42,2,4037,0)="""^DD"",779.3,779.3,.14,4)"
^XMB(3.9,42,2,4038,0)=""
^XMB(3.9,42,2,4039,0)="""^DD"",779.3,779.3,.14,21,0)"
^XMB(3.9,42,2,4040,0)="^^4^4^3041115^"
^XMB(3.9,42,2,4041,0)="""^DD"",779.3,779.3,.14,21,1,0)"
^XMB(3.9,42,2,4042,0)="The primary use of this field is for TCP/IP listener processes, and "
^XMB(3.9,42,2,4043,0)="""^DD"",779.3,779.3,.14,21,2,0)"
^XMB(3.9,42,2,4044,0)="indicates which port (via the HL Logical Link) that the process should be "
^XMB(3.9,42,2,4045,0)="""^DD"",779.3,779.3,.14,21,3,0)"
^XMB(3.9,42,2,4046,0)="listening on.  However, it could be used to dedicate a client link "
^XMB(3.9,42,2,4047,0)="""^DD"",779.3,779.3,.14,21,4,0)"
^XMB(3.9,42,2,4048,0)="process to a particular link."
^XMB(3.9,42,2,4049,0)="""^DD"",779.3,779.3,.14,""DT"")"
^XMB(3.9,42,2,4050,0)="3050706"
^XMB(3.9,42,2,4051,0)="""^DD"",779.3,779.3,.15,0)"
^XMB(3.9,42,2,4052,0)="VMS TCP SERVICE^S^1:YES;0:NO;^0;15^Q"
^XMB(3.9,42,2,4053,0)="""^DD"",779.3,779.3,.15,3)"
^XMB(3.9,42,2,4054,0)="If this process is a listener, enter YES if it is a VMS TCP service rather than a Taskman process."
^XMB(3.9,42,2,4055,0)="""^DD"",779.3,779.3,.15,21,0)"
^XMB(3.9,42,2,4056,0)="^^5^5^3040923^"
^XMB(3.9,42,2,4057,0)="""^DD"",779.3,779.3,.15,21,1,0)"
^XMB(3.9,42,2,4058,0)="VMS services are not started or stopped via the HL7 Process Manager.  "
^XMB(3.9,42,2,4059,0)="""^DD"",779.3,779.3,.15,21,2,0)"
^XMB(3.9,42,2,4060,0)="However, on a VMS system, these services are an important part of the HL7"
^XMB(3.9,42,2,4061,0)="""^DD"",779.3,779.3,.15,21,3,0)"
^XMB(3.9,42,2,4062,0)="system, and so an entry in the HL7 Process Registry should be created for "
^XMB(3.9,42,2,4063,0)="""^DD"",779.3,779.3,.15,21,4,0)"
^XMB(3.9,42,2,4064,0)="them.  The Process Manager will use the PING functionality to verify that "
^XMB(3.9,42,2,4065,0)="""^DD"",779.3,779.3,.15,21,5,0)"
^XMB(3.9,42,2,4066,0)="the listener is running."
^XMB(3.9,42,2,4067,0)="""^DD"",779.3,779.3,.15,""DT"")"
^XMB(3.9,42,2,4068,0)="3040923"
^XMB(3.9,42,2,4069,0)="""^DD"",870,870,16,0)"
^XMB(3.9,42,2,4070,0)="SHUTDOWN OUTGOING HLO MESSAGES^S^0:NO;1:YES;^0;16^Q"
^XMB(3.9,42,2,4071,0)="""^DD"",870,870,16,3)"
^XMB(3.9,42,2,4072,0)="Enter YES to stop HLO messages from being transmitted to this destinations."
^XMB(3.9,42,2,4073,0)="""^DD"",870,870,16,21,0)"
^XMB(3.9,42,2,4074,0)="^^2^2^3050914^"
^XMB(3.9,42,2,4075,0)="""^DD"",870,870,16,21,1,0)"
^XMB(3.9,42,2,4076,0)="This field affects only HLO messages."
^XMB(3.9,42,2,4077,0)="""^DD"",870,870,16,21,2,0)"
^XMB(3.9,42,2,4078,0)=""
^XMB(3.9,42,2,4079,0)="""^DD"",870,870,16,""DT"")"
^XMB(3.9,42,2,4080,0)="3050914"
^XMB(3.9,42,2,4081,0)="""^DIC"",779.3,779.3,0)"
^XMB(3.9,42,2,4082,0)="HLO PROCESS REGISTRY^779.3"
^XMB(3.9,42,2,4083,0)="""^DIC"",779.3,779.3,0,""GL"")"
^XMB(3.9,42,2,4084,0)="^HLD(779.3,"
^XMB(3.9,42,2,4085,0)="""^DIC"",779.3,779.3,""%"",0)"
^XMB(3.9,42,2,4086,0)="^1.005^^0"
^XMB(3.9,42,2,4087,0)="""^DIC"",779.3,779.3,""%D"",0)"
^XMB(3.9,42,2,4088,0)="^^2^2^3050801^^^"
^XMB(3.9,42,2,4089,0)="""^DIC"",779.3,779.3,""%D"",1,0)"
^XMB(3.9,42,2,4090,0)="The process registry is used by the HLO process manager to start, stop, and"
^XMB(3.9,42,2,4091,0)="""^DIC"",779.3,779.3,""%D"",2,0)"
^XMB(3.9,42,2,4092,0)="manage all of the processes used by the HLO system."
^XMB(3.9,42,2,4093,0)="""^DIC"",779.3,""B"",""HLO PROCESS REGISTRY"",779.3)"
^XMB(3.9,42,2,4094,0)=""
^XMB(3.9,42,2,4095,0)="""BLD"",908,6)"
^XMB(3.9,42,2,4096,0)="^102"
^XMB(3.9,42,2,4097,0)="$END KID HL*1.6*130"
^XMB(3.9,42,6,0)="^3.911A^2^2"
^XMB(3.9,42,6,1,0)="POSTMASTER"
^XMB(3.9,42,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,42,6,"B","POSTMASTER",1)=""
^XMB(3.9,42,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,43,0)="HL-1P6_SEQ-103_PAT-120.KID^.5^3061008.015734^^^^K"
^XMB(3.9,43,.6)="3061008"
^XMB(3.9,43,1,0)="^3.91A^2^2"
^XMB(3.9,43,1,1,0)=".5^0^3061008.015734^^^^^^^3061008.015734"
^XMB(3.9,43,1,2,0)="1^0^3061008.023218^^^^^^^3061008.023218"
^XMB(3.9,43,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,43,1,"C",.5,1)=""
^XMB(3.9,43,1,"C",1,2)=""
^XMB(3.9,43,2,0)="^^7569^7569^3061008"
^XMB(3.9,43,2,1,0)="$TXT Released HL*1.6*120 SEQ #103"
^XMB(3.9,43,2,2,0)="Extracted from mail message"
^XMB(3.9,43,2,3,0)="$END TXT"
^XMB(3.9,43,2,4,0)="$KID HL*1.6*120"
^XMB(3.9,43,2,5,0)="**INSTALL NAME**"
^XMB(3.9,43,2,6,0)="HL*1.6*120"
^XMB(3.9,43,2,7,0)="""BLD"",926,0)"
^XMB(3.9,43,2,8,0)="HL*1.6*120^HEALTH LEVEL SEVEN^0^3060307^y"
^XMB(3.9,43,2,9,0)="""BLD"",926,4,0)"
^XMB(3.9,43,2,10,0)="^9.64PA^779.004^1"
^XMB(3.9,43,2,11,0)="""BLD"",926,4,779.004,0)"
^XMB(3.9,43,2,12,0)="779.004"
^XMB(3.9,43,2,13,0)="""BLD"",926,4,779.004,222)"
^XMB(3.9,43,2,14,0)="y^n^f^^y^^y^r^n"
^XMB(3.9,43,2,15,0)="""BLD"",926,4,""B"",779.004,779.004)"
^XMB(3.9,43,2,16,0)=""
^XMB(3.9,43,2,17,0)="""BLD"",926,6.3)"
^XMB(3.9,43,2,18,0)="12"
^XMB(3.9,43,2,19,0)="""BLD"",926,""INI"")"
^XMB(3.9,43,2,20,0)="PRE^HLPAT120"
^XMB(3.9,43,2,21,0)="""BLD"",926,""INID"")"
^XMB(3.9,43,2,22,0)="^y"
^XMB(3.9,43,2,23,0)="""BLD"",926,""INIT"")"
^XMB(3.9,43,2,24,0)="POST^HLPAT120"
^XMB(3.9,43,2,25,0)="""BLD"",926,""KRN"",0)"
^XMB(3.9,43,2,26,0)="^9.67PA^8989.52^19"
^XMB(3.9,43,2,27,0)="""BLD"",926,""KRN"",.4,0)"
^XMB(3.9,43,2,28,0)=".4"
^XMB(3.9,43,2,29,0)="""BLD"",926,""KRN"",.401,0)"
^XMB(3.9,43,2,30,0)=".401"
^XMB(3.9,43,2,31,0)="""BLD"",926,""KRN"",.402,0)"
^XMB(3.9,43,2,32,0)=".402"
^XMB(3.9,43,2,33,0)="""BLD"",926,""KRN"",.403,0)"
^XMB(3.9,43,2,34,0)=".403"
^XMB(3.9,43,2,35,0)="""BLD"",926,""KRN"",.5,0)"
^XMB(3.9,43,2,36,0)=".5"
^XMB(3.9,43,2,37,0)="""BLD"",926,""KRN"",.84,0)"
^XMB(3.9,43,2,38,0)=".84"
^XMB(3.9,43,2,39,0)="""BLD"",926,""KRN"",3.6,0)"
^XMB(3.9,43,2,40,0)="3.6"
^XMB(3.9,43,2,41,0)="""BLD"",926,""KRN"",3.8,0)"
^XMB(3.9,43,2,42,0)="3.8"
^XMB(3.9,43,2,43,0)="""BLD"",926,""KRN"",9.2,0)"
^XMB(3.9,43,2,44,0)="9.2"
^XMB(3.9,43,2,45,0)="""BLD"",926,""KRN"",9.8,0)"
^XMB(3.9,43,2,46,0)="9.8"
^XMB(3.9,43,2,47,0)="""BLD"",926,""KRN"",9.8,""NM"",0)"
^XMB(3.9,43,2,48,0)="^9.68A^13^13"
^XMB(3.9,43,2,49,0)="""BLD"",926,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,43,2,50,0)="HLPAT120^^0^B4889907"
^XMB(3.9,43,2,51,0)="""BLD"",926,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,43,2,52,0)="HLCSHDR1^^0^B53997699"
^XMB(3.9,43,2,53,0)="""BLD"",926,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,43,2,54,0)="HLMA2^^0^B40932802"
^XMB(3.9,43,2,55,0)="""BLD"",926,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,43,2,56,0)="HLCSAS^^0^B12656721"
^XMB(3.9,43,2,57,0)="""BLD"",926,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,43,2,58,0)="HLTPCK1^^0^B31754890"
^XMB(3.9,43,2,59,0)="""BLD"",926,""KRN"",9.8,""NM"",6,0)"
^XMB(3.9,43,2,60,0)="HLTPCK2^^0^B34416614"
^XMB(3.9,43,2,61,0)="""BLD"",926,""KRN"",9.8,""NM"",7,0)"
^XMB(3.9,43,2,62,0)="HLUTIL2^^0^B29544975"
^XMB(3.9,43,2,63,0)="""BLD"",926,""KRN"",9.8,""NM"",8,0)"
^XMB(3.9,43,2,64,0)="HLTF^^0^B49703549"
^XMB(3.9,43,2,65,0)="""BLD"",926,""KRN"",9.8,""NM"",9,0)"
^XMB(3.9,43,2,66,0)="HLTP3^^0^B72235579"
^XMB(3.9,43,2,67,0)="""BLD"",926,""KRN"",9.8,""NM"",10,0)"
^XMB(3.9,43,2,68,0)="HLTP31^^0^B13120490"
^XMB(3.9,43,2,69,0)="""BLD"",926,""KRN"",9.8,""NM"",11,0)"
^XMB(3.9,43,2,70,0)="HLTP4^^0^B45154182"
^XMB(3.9,43,2,71,0)="""BLD"",926,""KRN"",9.8,""NM"",12,0)"
^XMB(3.9,43,2,72,0)="HLTPCK2A^^0^B27212258"
^XMB(3.9,43,2,73,0)="""BLD"",926,""KRN"",9.8,""NM"",13,0)"
^XMB(3.9,43,2,74,0)="HLTPCK2B^^0^B63390233"
^XMB(3.9,43,2,75,0)="""BLD"",926,""KRN"",9.8,""NM"",""B"",""HLCSAS"",4)"
^XMB(3.9,43,2,76,0)=""
^XMB(3.9,43,2,77,0)="""BLD"",926,""KRN"",9.8,""NM"",""B"",""HLCSHDR1"",2)"
^XMB(3.9,43,2,78,0)=""
^XMB(3.9,43,2,79,0)="""BLD"",926,""KRN"",9.8,""NM"",""B"",""HLMA2"",3)"
^XMB(3.9,43,2,80,0)=""
^XMB(3.9,43,2,81,0)="""BLD"",926,""KRN"",9.8,""NM"",""B"",""HLPAT120"",1)"
^XMB(3.9,43,2,82,0)=""
^XMB(3.9,43,2,83,0)="""BLD"",926,""KRN"",9.8,""NM"",""B"",""HLTF"",8)"
^XMB(3.9,43,2,84,0)=""
^XMB(3.9,43,2,85,0)="""BLD"",926,""KRN"",9.8,""NM"",""B"",""HLTP3"",9)"
^XMB(3.9,43,2,86,0)=""
^XMB(3.9,43,2,87,0)="""BLD"",926,""KRN"",9.8,""NM"",""B"",""HLTP31"",10)"
^XMB(3.9,43,2,88,0)=""
^XMB(3.9,43,2,89,0)="""BLD"",926,""KRN"",9.8,""NM"",""B"",""HLTP4"",11)"
^XMB(3.9,43,2,90,0)=""
^XMB(3.9,43,2,91,0)="""BLD"",926,""KRN"",9.8,""NM"",""B"",""HLTPCK1"",5)"
^XMB(3.9,43,2,92,0)=""
^XMB(3.9,43,2,93,0)="""BLD"",926,""KRN"",9.8,""NM"",""B"",""HLTPCK2"",6)"
^XMB(3.9,43,2,94,0)=""
^XMB(3.9,43,2,95,0)="""BLD"",926,""KRN"",9.8,""NM"",""B"",""HLTPCK2A"",12)"
^XMB(3.9,43,2,96,0)=""
^XMB(3.9,43,2,97,0)="""BLD"",926,""KRN"",9.8,""NM"",""B"",""HLTPCK2B"",13)"
^XMB(3.9,43,2,98,0)=""
^XMB(3.9,43,2,99,0)="""BLD"",926,""KRN"",9.8,""NM"",""B"",""HLUTIL2"",7)"
^XMB(3.9,43,2,100,0)=""
^XMB(3.9,43,2,101,0)="""BLD"",926,""KRN"",19,0)"
^XMB(3.9,43,2,102,0)="19"
^XMB(3.9,43,2,103,0)="""BLD"",926,""KRN"",19.1,0)"
^XMB(3.9,43,2,104,0)="19.1"
^XMB(3.9,43,2,105,0)="""BLD"",926,""KRN"",101,0)"
^XMB(3.9,43,2,106,0)="101"
^XMB(3.9,43,2,107,0)="""BLD"",926,""KRN"",409.61,0)"
^XMB(3.9,43,2,108,0)="409.61"
^XMB(3.9,43,2,109,0)="""BLD"",926,""KRN"",771,0)"
^XMB(3.9,43,2,110,0)="771"
^XMB(3.9,43,2,111,0)="""BLD"",926,""KRN"",870,0)"
^XMB(3.9,43,2,112,0)="870"
^XMB(3.9,43,2,113,0)="""BLD"",926,""KRN"",8989.51,0)"
^XMB(3.9,43,2,114,0)="8989.51"
^XMB(3.9,43,2,115,0)="""BLD"",926,""KRN"",8989.52,0)"
^XMB(3.9,43,2,116,0)="8989.52"
^XMB(3.9,43,2,117,0)="""BLD"",926,""KRN"",8994,0)"
^XMB(3.9,43,2,118,0)="8994"
^XMB(3.9,43,2,119,0)="""BLD"",926,""KRN"",""B"",.4,.4)"
^XMB(3.9,43,2,120,0)=""
^XMB(3.9,43,2,121,0)="""BLD"",926,""KRN"",""B"",.401,.401)"
^XMB(3.9,43,2,122,0)=""
^XMB(3.9,43,2,123,0)="""BLD"",926,""KRN"",""B"",.402,.402)"
^XMB(3.9,43,2,124,0)=""
^XMB(3.9,43,2,125,0)="""BLD"",926,""KRN"",""B"",.403,.403)"
^XMB(3.9,43,2,126,0)=""
^XMB(3.9,43,2,127,0)="""BLD"",926,""KRN"",""B"",.5,.5)"
^XMB(3.9,43,2,128,0)=""
^XMB(3.9,43,2,129,0)="""BLD"",926,""KRN"",""B"",.84,.84)"
^XMB(3.9,43,2,130,0)=""
^XMB(3.9,43,2,131,0)="""BLD"",926,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,43,2,132,0)=""
^XMB(3.9,43,2,133,0)="""BLD"",926,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,43,2,134,0)=""
^XMB(3.9,43,2,135,0)="""BLD"",926,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,43,2,136,0)=""
^XMB(3.9,43,2,137,0)="""BLD"",926,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,43,2,138,0)=""
^XMB(3.9,43,2,139,0)="""BLD"",926,""KRN"",""B"",19,19)"
^XMB(3.9,43,2,140,0)=""
^XMB(3.9,43,2,141,0)="""BLD"",926,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,43,2,142,0)=""
^XMB(3.9,43,2,143,0)="""BLD"",926,""KRN"",""B"",101,101)"
^XMB(3.9,43,2,144,0)=""
^XMB(3.9,43,2,145,0)="""BLD"",926,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,43,2,146,0)=""
^XMB(3.9,43,2,147,0)="""BLD"",926,""KRN"",""B"",771,771)"
^XMB(3.9,43,2,148,0)=""
^XMB(3.9,43,2,149,0)="""BLD"",926,""KRN"",""B"",870,870)"
^XMB(3.9,43,2,150,0)=""
^XMB(3.9,43,2,151,0)="""BLD"",926,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,43,2,152,0)=""
^XMB(3.9,43,2,153,0)="""BLD"",926,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,43,2,154,0)=""
^XMB(3.9,43,2,155,0)="""BLD"",926,""KRN"",""B"",8994,8994)"
^XMB(3.9,43,2,156,0)=""
^XMB(3.9,43,2,157,0)="""BLD"",926,""QUES"",0)"
^XMB(3.9,43,2,158,0)="^9.62^^"
^XMB(3.9,43,2,159,0)="""BLD"",926,""REQB"",0)"
^XMB(3.9,43,2,160,0)="^9.611^5^5"
^XMB(3.9,43,2,161,0)="""BLD"",926,""REQB"",1,0)"
^XMB(3.9,43,2,162,0)="HL*1.6*89^0"
^XMB(3.9,43,2,163,0)="""BLD"",926,""REQB"",2,0)"
^XMB(3.9,43,2,164,0)="HL*1.6*93^2"
^XMB(3.9,43,2,165,0)="""BLD"",926,""REQB"",3,0)"
^XMB(3.9,43,2,166,0)="HL*1.6*109^2"
^XMB(3.9,43,2,167,0)="""BLD"",926,""REQB"",4,0)"
^XMB(3.9,43,2,168,0)="HL*1.6*125^2"
^XMB(3.9,43,2,169,0)="""BLD"",926,""REQB"",5,0)"
^XMB(3.9,43,2,170,0)="HL*1.6*108^2"
^XMB(3.9,43,2,171,0)="""BLD"",926,""REQB"",""B"",""HL*1.6*108"",5)"
^XMB(3.9,43,2,172,0)=""
^XMB(3.9,43,2,173,0)="""BLD"",926,""REQB"",""B"",""HL*1.6*109"",3)"
^XMB(3.9,43,2,174,0)=""
^XMB(3.9,43,2,175,0)="""BLD"",926,""REQB"",""B"",""HL*1.6*125"",4)"
^XMB(3.9,43,2,176,0)=""
^XMB(3.9,43,2,177,0)="""BLD"",926,""REQB"",""B"",""HL*1.6*89"",1)"
^XMB(3.9,43,2,178,0)=""
^XMB(3.9,43,2,179,0)="""BLD"",926,""REQB"",""B"",""HL*1.6*93"",2)"
^XMB(3.9,43,2,180,0)=""
^XMB(3.9,43,2,181,0)="""DATA"",779.004,2,0)"
^XMB(3.9,43,2,182,0)="USA^United States"
^XMB(3.9,43,2,183,0)="""DATA"",779.004,2,1,0)"
^XMB(3.9,43,2,184,0)="^779.00401P^2^4"
^XMB(3.9,43,2,185,0)="""DATA"",779.004,2,""SDS"")"
^XMB(3.9,43,2,186,0)="840^US^UNITED STATES"
^XMB(3.9,43,2,187,0)="""DATA"",779.004,2,""TERMSTATUS"",0)"
^XMB(3.9,43,2,188,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,189,0)="""DATA"",779.004,2,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,190,0)="3060119.165007^1"
^XMB(3.9,43,2,191,0)="""DATA"",779.004,2,""VUID"")"
^XMB(3.9,43,2,192,0)="1006840^1"
^XMB(3.9,43,2,193,0)="""DATA"",779.004,4,0)"
^XMB(3.9,43,2,194,0)="AFG^Afghanistan"
^XMB(3.9,43,2,195,0)="""DATA"",779.004,4,""SDS"")"
^XMB(3.9,43,2,196,0)="004^AF^AFGHANISTAN"
^XMB(3.9,43,2,197,0)="""DATA"",779.004,4,""TERMSTATUS"",0)"
^XMB(3.9,43,2,198,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,199,0)="""DATA"",779.004,4,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,200,0)="3060119.165006^1"
^XMB(3.9,43,2,201,0)="""DATA"",779.004,4,""VUID"")"
^XMB(3.9,43,2,202,0)="1006004^1"
^XMB(3.9,43,2,203,0)="""DATA"",779.004,5,0)"
^XMB(3.9,43,2,204,0)="ALB^Albania"
^XMB(3.9,43,2,205,0)="""DATA"",779.004,5,""SDS"")"
^XMB(3.9,43,2,206,0)="008^AL^ALBANIA"
^XMB(3.9,43,2,207,0)="""DATA"",779.004,5,""TERMSTATUS"",0)"
^XMB(3.9,43,2,208,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,209,0)="""DATA"",779.004,5,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,210,0)="3060119.165006^1"
^XMB(3.9,43,2,211,0)="""DATA"",779.004,5,""VUID"")"
^XMB(3.9,43,2,212,0)="1006008^1"
^XMB(3.9,43,2,213,0)="""DATA"",779.004,6,0)"
^XMB(3.9,43,2,214,0)="ATA^Antarctica"
^XMB(3.9,43,2,215,0)="""DATA"",779.004,6,""SDS"")"
^XMB(3.9,43,2,216,0)="010^AY^<NULL>"
^XMB(3.9,43,2,217,0)="""DATA"",779.004,6,""TERMSTATUS"",0)"
^XMB(3.9,43,2,218,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,219,0)="""DATA"",779.004,6,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,220,0)="3060119.165006^1"
^XMB(3.9,43,2,221,0)="""DATA"",779.004,6,""VUID"")"
^XMB(3.9,43,2,222,0)="1006010^1"
^XMB(3.9,43,2,223,0)="""DATA"",779.004,7,0)"
^XMB(3.9,43,2,224,0)="DZA^Algeria"
^XMB(3.9,43,2,225,0)="""DATA"",779.004,7,""SDS"")"
^XMB(3.9,43,2,226,0)="012^AG^ALGERIA"
^XMB(3.9,43,2,227,0)="""DATA"",779.004,7,""TERMSTATUS"",0)"
^XMB(3.9,43,2,228,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,229,0)="""DATA"",779.004,7,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,230,0)="3060119.165006^1"
^XMB(3.9,43,2,231,0)="""DATA"",779.004,7,""VUID"")"
^XMB(3.9,43,2,232,0)="1006012^1"
^XMB(3.9,43,2,233,0)="""DATA"",779.004,8,0)"
^XMB(3.9,43,2,234,0)="AND^Andorra"
^XMB(3.9,43,2,235,0)="""DATA"",779.004,8,""SDS"")"
^XMB(3.9,43,2,236,0)="020^AN^ANDORRA"
^XMB(3.9,43,2,237,0)="""DATA"",779.004,8,""TERMSTATUS"",0)"
^XMB(3.9,43,2,238,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,239,0)="""DATA"",779.004,8,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,240,0)="3060119.165006^1"
^XMB(3.9,43,2,241,0)="""DATA"",779.004,8,""VUID"")"
^XMB(3.9,43,2,242,0)="1006020^1"
^XMB(3.9,43,2,243,0)="""DATA"",779.004,9,0)"
^XMB(3.9,43,2,244,0)="AGO^Angola"
^XMB(3.9,43,2,245,0)="""DATA"",779.004,9,""SDS"")"
^XMB(3.9,43,2,246,0)="024^AO^ANGOLA"
^XMB(3.9,43,2,247,0)="""DATA"",779.004,9,""TERMSTATUS"",0)"
^XMB(3.9,43,2,248,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,249,0)="""DATA"",779.004,9,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,250,0)="3060119.165006^1"
^XMB(3.9,43,2,251,0)="""DATA"",779.004,9,""VUID"")"
^XMB(3.9,43,2,252,0)="1006024^1"
^XMB(3.9,43,2,253,0)="""DATA"",779.004,10,0)"
^XMB(3.9,43,2,254,0)="ATG^Antigua and Barbuda"
^XMB(3.9,43,2,255,0)="""DATA"",779.004,10,""SDS"")"
^XMB(3.9,43,2,256,0)="028^AC^ANTIGUA AND BARBUDA"
^XMB(3.9,43,2,257,0)="""DATA"",779.004,10,""TERMSTATUS"",0)"
^XMB(3.9,43,2,258,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,259,0)="""DATA"",779.004,10,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,260,0)="3060119.165006^1"
^XMB(3.9,43,2,261,0)="""DATA"",779.004,10,""VUID"")"
^XMB(3.9,43,2,262,0)="1006028^1"
^XMB(3.9,43,2,263,0)="""DATA"",779.004,11,0)"
^XMB(3.9,43,2,264,0)="AZE^Azerbaijan"
^XMB(3.9,43,2,265,0)="""DATA"",779.004,11,""SDS"")"
^XMB(3.9,43,2,266,0)="031^AJ^AZERBAIJAN"
^XMB(3.9,43,2,267,0)="""DATA"",779.004,11,""TERMSTATUS"",0)"
^XMB(3.9,43,2,268,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,269,0)="""DATA"",779.004,11,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,270,0)="3060119.165006^1"
^XMB(3.9,43,2,271,0)="""DATA"",779.004,11,""VUID"")"
^XMB(3.9,43,2,272,0)="1006031^1"
^XMB(3.9,43,2,273,0)="""DATA"",779.004,12,0)"
^XMB(3.9,43,2,274,0)="ARG^Argentina"
^XMB(3.9,43,2,275,0)="""DATA"",779.004,12,""SDS"")"
^XMB(3.9,43,2,276,0)="032^AR^ARGENTINA"
^XMB(3.9,43,2,277,0)="""DATA"",779.004,12,""TERMSTATUS"",0)"
^XMB(3.9,43,2,278,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,279,0)="""DATA"",779.004,12,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,280,0)="3060119.165006^1"
^XMB(3.9,43,2,281,0)="""DATA"",779.004,12,""VUID"")"
^XMB(3.9,43,2,282,0)="1006032^1"
^XMB(3.9,43,2,283,0)="""DATA"",779.004,13,0)"
^XMB(3.9,43,2,284,0)="AUS^Australia"
^XMB(3.9,43,2,285,0)="""DATA"",779.004,13,""SDS"")"
^XMB(3.9,43,2,286,0)="036^AS^AUSTRALIA"
^XMB(3.9,43,2,287,0)="""DATA"",779.004,13,""TERMSTATUS"",0)"
^XMB(3.9,43,2,288,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,289,0)="""DATA"",779.004,13,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,290,0)="3060119.165006^1"
^XMB(3.9,43,2,291,0)="""DATA"",779.004,13,""VUID"")"
^XMB(3.9,43,2,292,0)="1006036^1"
^XMB(3.9,43,2,293,0)="""DATA"",779.004,14,0)"
^XMB(3.9,43,2,294,0)="AUT^Austria"
^XMB(3.9,43,2,295,0)="""DATA"",779.004,14,""SDS"")"
^XMB(3.9,43,2,296,0)="040^AU^AUSTRIA"
^XMB(3.9,43,2,297,0)="""DATA"",779.004,14,""TERMSTATUS"",0)"
^XMB(3.9,43,2,298,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,299,0)="""DATA"",779.004,14,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,300,0)="3060119.165006^1"
^XMB(3.9,43,2,301,0)="""DATA"",779.004,14,""VUID"")"
^XMB(3.9,43,2,302,0)="1006040^1"
^XMB(3.9,43,2,303,0)="""DATA"",779.004,15,0)"
^XMB(3.9,43,2,304,0)="BHS^Bahamas"
^XMB(3.9,43,2,305,0)="""DATA"",779.004,15,""SDS"")"
^XMB(3.9,43,2,306,0)="044^BF^BAHAMAS"
^XMB(3.9,43,2,307,0)="""DATA"",779.004,15,""TERMSTATUS"",0)"
^XMB(3.9,43,2,308,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,309,0)="""DATA"",779.004,15,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,310,0)="3060119.165006^1"
^XMB(3.9,43,2,311,0)="""DATA"",779.004,15,""VUID"")"
^XMB(3.9,43,2,312,0)="1006044^1"
^XMB(3.9,43,2,313,0)="""DATA"",779.004,16,0)"
^XMB(3.9,43,2,314,0)="BHR^Bahrain"
^XMB(3.9,43,2,315,0)="""DATA"",779.004,16,""SDS"")"
^XMB(3.9,43,2,316,0)="048^BA^BAHRAIN"
^XMB(3.9,43,2,317,0)="""DATA"",779.004,16,""TERMSTATUS"",0)"
^XMB(3.9,43,2,318,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,319,0)="""DATA"",779.004,16,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,320,0)="3060119.165006^1"
^XMB(3.9,43,2,321,0)="""DATA"",779.004,16,""VUID"")"
^XMB(3.9,43,2,322,0)="1006048^1"
^XMB(3.9,43,2,323,0)="""DATA"",779.004,17,0)"
^XMB(3.9,43,2,324,0)="BGD^Bangladesh"
^XMB(3.9,43,2,325,0)="""DATA"",779.004,17,""SDS"")"
^XMB(3.9,43,2,326,0)="050^BG^BANGLADESH"
^XMB(3.9,43,2,327,0)="""DATA"",779.004,17,""TERMSTATUS"",0)"
^XMB(3.9,43,2,328,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,329,0)="""DATA"",779.004,17,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,330,0)="3060119.165006^1"
^XMB(3.9,43,2,331,0)="""DATA"",779.004,17,""VUID"")"
^XMB(3.9,43,2,332,0)="1006050^1"
^XMB(3.9,43,2,333,0)="""DATA"",779.004,18,0)"
^XMB(3.9,43,2,334,0)="ARM^Armenia"
^XMB(3.9,43,2,335,0)="""DATA"",779.004,18,""SDS"")"
^XMB(3.9,43,2,336,0)="051^AM^ARMENIA"
^XMB(3.9,43,2,337,0)="""DATA"",779.004,18,""TERMSTATUS"",0)"
^XMB(3.9,43,2,338,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,339,0)="""DATA"",779.004,18,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,340,0)="3060119.165006^1"
^XMB(3.9,43,2,341,0)="""DATA"",779.004,18,""VUID"")"
^XMB(3.9,43,2,342,0)="1006051^1"
^XMB(3.9,43,2,343,0)="""DATA"",779.004,19,0)"
^XMB(3.9,43,2,344,0)="BRB^Barbados"
^XMB(3.9,43,2,345,0)="""DATA"",779.004,19,""SDS"")"
^XMB(3.9,43,2,346,0)="052^BB^BARBADOS"
^XMB(3.9,43,2,347,0)="""DATA"",779.004,19,""TERMSTATUS"",0)"
^XMB(3.9,43,2,348,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,349,0)="""DATA"",779.004,19,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,350,0)="3060119.165006^1"
^XMB(3.9,43,2,351,0)="""DATA"",779.004,19,""VUID"")"
^XMB(3.9,43,2,352,0)="1006052^1"
^XMB(3.9,43,2,353,0)="""DATA"",779.004,20,0)"
^XMB(3.9,43,2,354,0)="BEL^Belgium"
^XMB(3.9,43,2,355,0)="""DATA"",779.004,20,""SDS"")"
^XMB(3.9,43,2,356,0)="056^BE^BELGIUM"
^XMB(3.9,43,2,357,0)="""DATA"",779.004,20,""TERMSTATUS"",0)"
^XMB(3.9,43,2,358,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,359,0)="""DATA"",779.004,20,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,360,0)="3060119.165006^1"
^XMB(3.9,43,2,361,0)="""DATA"",779.004,20,""VUID"")"
^XMB(3.9,43,2,362,0)="1006056^1"
^XMB(3.9,43,2,363,0)="""DATA"",779.004,21,0)"
^XMB(3.9,43,2,364,0)="BMU^Bermuda"
^XMB(3.9,43,2,365,0)="""DATA"",779.004,21,""SDS"")"
^XMB(3.9,43,2,366,0)="060^BD^BERMUDA"
^XMB(3.9,43,2,367,0)="""DATA"",779.004,21,""TERMSTATUS"",0)"
^XMB(3.9,43,2,368,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,369,0)="""DATA"",779.004,21,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,370,0)="3060119.165006^1"
^XMB(3.9,43,2,371,0)="""DATA"",779.004,21,""VUID"")"
^XMB(3.9,43,2,372,0)="1006060^1"
^XMB(3.9,43,2,373,0)="""DATA"",779.004,22,0)"
^XMB(3.9,43,2,374,0)="BTN^Bhutan"
^XMB(3.9,43,2,375,0)="""DATA"",779.004,22,""SDS"")"
^XMB(3.9,43,2,376,0)="064^BT^BHUTAN"
^XMB(3.9,43,2,377,0)="""DATA"",779.004,22,""TERMSTATUS"",0)"
^XMB(3.9,43,2,378,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,379,0)="""DATA"",779.004,22,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,380,0)="3060119.165006^1"
^XMB(3.9,43,2,381,0)="""DATA"",779.004,22,""VUID"")"
^XMB(3.9,43,2,382,0)="1006064^1"
^XMB(3.9,43,2,383,0)="""DATA"",779.004,23,0)"
^XMB(3.9,43,2,384,0)="BOL^Bolivia"
^XMB(3.9,43,2,385,0)="""DATA"",779.004,23,""SDS"")"
^XMB(3.9,43,2,386,0)="068^BL^BOLIVIA"
^XMB(3.9,43,2,387,0)="""DATA"",779.004,23,""TERMSTATUS"",0)"
^XMB(3.9,43,2,388,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,389,0)="""DATA"",779.004,23,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,390,0)="3060119.165006^1"
^XMB(3.9,43,2,391,0)="""DATA"",779.004,23,""VUID"")"
^XMB(3.9,43,2,392,0)="1006068^1"
^XMB(3.9,43,2,393,0)="""DATA"",779.004,24,0)"
^XMB(3.9,43,2,394,0)="BIH^Bosnia and Herzegovina"
^XMB(3.9,43,2,395,0)="""DATA"",779.004,24,""SDS"")"
^XMB(3.9,43,2,396,0)="070^BK^BOSNIA-HERZOGOVINA"
^XMB(3.9,43,2,397,0)="""DATA"",779.004,24,""TERMSTATUS"",0)"
^XMB(3.9,43,2,398,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,399,0)="""DATA"",779.004,24,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,400,0)="3060119.165006^1"
^XMB(3.9,43,2,401,0)="""DATA"",779.004,24,""VUID"")"
^XMB(3.9,43,2,402,0)="1006070^1"
^XMB(3.9,43,2,403,0)="""DATA"",779.004,25,0)"
^XMB(3.9,43,2,404,0)="BWA^Botswana"
^XMB(3.9,43,2,405,0)="""DATA"",779.004,25,""SDS"")"
^XMB(3.9,43,2,406,0)="072^BC^BOTSWANA"
^XMB(3.9,43,2,407,0)="""DATA"",779.004,25,""TERMSTATUS"",0)"
^XMB(3.9,43,2,408,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,409,0)="""DATA"",779.004,25,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,410,0)="3060119.165006^1"
^XMB(3.9,43,2,411,0)="""DATA"",779.004,25,""VUID"")"
^XMB(3.9,43,2,412,0)="1006072^1"
^XMB(3.9,43,2,413,0)="""DATA"",779.004,26,0)"
^XMB(3.9,43,2,414,0)="BVT^Bouvet Island"
^XMB(3.9,43,2,415,0)="""DATA"",779.004,26,""SDS"")"
^XMB(3.9,43,2,416,0)="074^BV^<NULL>"
^XMB(3.9,43,2,417,0)="""DATA"",779.004,26,""TERMSTATUS"",0)"
^XMB(3.9,43,2,418,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,419,0)="""DATA"",779.004,26,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,420,0)="3060119.165006^1"
^XMB(3.9,43,2,421,0)="""DATA"",779.004,26,""VUID"")"
^XMB(3.9,43,2,422,0)="1006074^1"
^XMB(3.9,43,2,423,0)="""DATA"",779.004,27,0)"
^XMB(3.9,43,2,424,0)="BRA^Brazil"
^XMB(3.9,43,2,425,0)="""DATA"",779.004,27,""SDS"")"
^XMB(3.9,43,2,426,0)="076^BR^BRAZIL"
^XMB(3.9,43,2,427,0)="""DATA"",779.004,27,""TERMSTATUS"",0)"
^XMB(3.9,43,2,428,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,429,0)="""DATA"",779.004,27,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,430,0)="3060119.165006^1"
^XMB(3.9,43,2,431,0)="""DATA"",779.004,27,""VUID"")"
^XMB(3.9,43,2,432,0)="1006076^1"
^XMB(3.9,43,2,433,0)="""DATA"",779.004,28,0)"
^XMB(3.9,43,2,434,0)="BLZ^Belize"
^XMB(3.9,43,2,435,0)="""DATA"",779.004,28,""SDS"")"
^XMB(3.9,43,2,436,0)="084^BH^BELIZE"
^XMB(3.9,43,2,437,0)="""DATA"",779.004,28,""TERMSTATUS"",0)"
^XMB(3.9,43,2,438,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,439,0)="""DATA"",779.004,28,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,440,0)="3060119.165006^1"
^XMB(3.9,43,2,441,0)="""DATA"",779.004,28,""VUID"")"
^XMB(3.9,43,2,442,0)="1006084^1"
^XMB(3.9,43,2,443,0)="""DATA"",779.004,29,0)"
^XMB(3.9,43,2,444,0)="IOT^British Indian Ocean Territory"
^XMB(3.9,43,2,445,0)="""DATA"",779.004,29,""SDS"")"
^XMB(3.9,43,2,446,0)="086^IO^<NULL>"
^XMB(3.9,43,2,447,0)="""DATA"",779.004,29,""TERMSTATUS"",0)"
^XMB(3.9,43,2,448,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,449,0)="""DATA"",779.004,29,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,450,0)="3060119.165006^1"
^XMB(3.9,43,2,451,0)="""DATA"",779.004,29,""VUID"")"
^XMB(3.9,43,2,452,0)="1006086^1"
^XMB(3.9,43,2,453,0)="""DATA"",779.004,30,0)"
^XMB(3.9,43,2,454,0)="SLB^Solomon Islands"
^XMB(3.9,43,2,455,0)="""DATA"",779.004,30,""SDS"")"
^XMB(3.9,43,2,456,0)="090^BP^SOLOMON ISLANDS"
^XMB(3.9,43,2,457,0)="""DATA"",779.004,30,""TERMSTATUS"",0)"
^XMB(3.9,43,2,458,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,459,0)="""DATA"",779.004,30,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,460,0)="3060119.165006^1"
^XMB(3.9,43,2,461,0)="""DATA"",779.004,30,""VUID"")"
^XMB(3.9,43,2,462,0)="1006090^1"
^XMB(3.9,43,2,463,0)="""DATA"",779.004,31,0)"
^XMB(3.9,43,2,464,0)="VGB^Virgin Islands, British"
^XMB(3.9,43,2,465,0)="""DATA"",779.004,31,""SDS"")"
^XMB(3.9,43,2,466,0)="092^VI^BRITISH VIRGIN ISLANDS"
^XMB(3.9,43,2,467,0)="""DATA"",779.004,31,""TERMSTATUS"",0)"
^XMB(3.9,43,2,468,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,469,0)="""DATA"",779.004,31,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,470,0)="3060119.165006^1"
^XMB(3.9,43,2,471,0)="""DATA"",779.004,31,""VUID"")"
^XMB(3.9,43,2,472,0)="1006092^1"
^XMB(3.9,43,2,473,0)="""DATA"",779.004,32,0)"
^XMB(3.9,43,2,474,0)="BRN^Brunei Darussalam"
^XMB(3.9,43,2,475,0)="""DATA"",779.004,32,""SDS"")"
^XMB(3.9,43,2,476,0)="096^BX^BRUNEI DARUSSALAM"
^XMB(3.9,43,2,477,0)="""DATA"",779.004,32,""TERMSTATUS"",0)"
^XMB(3.9,43,2,478,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,479,0)="""DATA"",779.004,32,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,480,0)="3060119.165006^1"
^XMB(3.9,43,2,481,0)="""DATA"",779.004,32,""VUID"")"
^XMB(3.9,43,2,482,0)="1006096^1"
^XMB(3.9,43,2,483,0)="""DATA"",779.004,33,0)"
^XMB(3.9,43,2,484,0)="BGR^Bulgaria"
^XMB(3.9,43,2,485,0)="""DATA"",779.004,33,""SDS"")"
^XMB(3.9,43,2,486,0)="100^BU^BULGARIA"
^XMB(3.9,43,2,487,0)="""DATA"",779.004,33,""TERMSTATUS"",0)"
^XMB(3.9,43,2,488,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,489,0)="""DATA"",779.004,33,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,490,0)="3060119.165006^1"
^XMB(3.9,43,2,491,0)="""DATA"",779.004,33,""VUID"")"
^XMB(3.9,43,2,492,0)="1006100^1"
^XMB(3.9,43,2,493,0)="""DATA"",779.004,34,0)"
^XMB(3.9,43,2,494,0)="MMR^Myanmar"
^XMB(3.9,43,2,495,0)="""DATA"",779.004,34,""SDS"")"
^XMB(3.9,43,2,496,0)="104^BM^BURMA"
^XMB(3.9,43,2,497,0)="""DATA"",779.004,34,""TERMSTATUS"",0)"
^XMB(3.9,43,2,498,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,499,0)="""DATA"",779.004,34,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,500,0)="3060119.165006^1"
^XMB(3.9,43,2,501,0)="""DATA"",779.004,34,""VUID"")"
^XMB(3.9,43,2,502,0)="1006104^1"
^XMB(3.9,43,2,503,0)="""DATA"",779.004,35,0)"
^XMB(3.9,43,2,504,0)="BDI^Burundi"
^XMB(3.9,43,2,505,0)="""DATA"",779.004,35,""SDS"")"
^XMB(3.9,43,2,506,0)="108^BY^BURUNDI"
^XMB(3.9,43,2,507,0)="""DATA"",779.004,35,""TERMSTATUS"",0)"
^XMB(3.9,43,2,508,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,509,0)="""DATA"",779.004,35,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,510,0)="3060119.165006^1"
^XMB(3.9,43,2,511,0)="""DATA"",779.004,35,""VUID"")"
^XMB(3.9,43,2,512,0)="1006108^1"
^XMB(3.9,43,2,513,0)="""DATA"",779.004,36,0)"
^XMB(3.9,43,2,514,0)="BLR^Belarus"
^XMB(3.9,43,2,515,0)="""DATA"",779.004,36,""SDS"")"
^XMB(3.9,43,2,516,0)="112^BO^BELARUS"
^XMB(3.9,43,2,517,0)="""DATA"",779.004,36,""TERMSTATUS"",0)"
^XMB(3.9,43,2,518,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,519,0)="""DATA"",779.004,36,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,520,0)="3060119.165006^1"
^XMB(3.9,43,2,521,0)="""DATA"",779.004,36,""VUID"")"
^XMB(3.9,43,2,522,0)="1006112^1"
^XMB(3.9,43,2,523,0)="""DATA"",779.004,37,0)"
^XMB(3.9,43,2,524,0)="KHM^Cambodia"
^XMB(3.9,43,2,525,0)="""DATA"",779.004,37,""SDS"")"
^XMB(3.9,43,2,526,0)="116^CB^CAMBODIA"
^XMB(3.9,43,2,527,0)="""DATA"",779.004,37,""TERMSTATUS"",0)"
^XMB(3.9,43,2,528,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,529,0)="""DATA"",779.004,37,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,530,0)="3060119.165006^1"
^XMB(3.9,43,2,531,0)="""DATA"",779.004,37,""VUID"")"
^XMB(3.9,43,2,532,0)="1006116^1"
^XMB(3.9,43,2,533,0)="""DATA"",779.004,38,0)"
^XMB(3.9,43,2,534,0)="CMR^Cameroon"
^XMB(3.9,43,2,535,0)="""DATA"",779.004,38,""SDS"")"
^XMB(3.9,43,2,536,0)="120^CM^CAMEROON"
^XMB(3.9,43,2,537,0)="""DATA"",779.004,38,""TERMSTATUS"",0)"
^XMB(3.9,43,2,538,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,539,0)="""DATA"",779.004,38,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,540,0)="3060119.165006^1"
^XMB(3.9,43,2,541,0)="""DATA"",779.004,38,""VUID"")"
^XMB(3.9,43,2,542,0)="1006120^1"
^XMB(3.9,43,2,543,0)="""DATA"",779.004,39,0)"
^XMB(3.9,43,2,544,0)="CAN^Canada"
^XMB(3.9,43,2,545,0)="""DATA"",779.004,39,""SDS"")"
^XMB(3.9,43,2,546,0)="124^CA^CANADA"
^XMB(3.9,43,2,547,0)="""DATA"",779.004,39,""TERMSTATUS"",0)"
^XMB(3.9,43,2,548,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,549,0)="""DATA"",779.004,39,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,550,0)="3060119.165006^1"
^XMB(3.9,43,2,551,0)="""DATA"",779.004,39,""VUID"")"
^XMB(3.9,43,2,552,0)="1006124^1"
^XMB(3.9,43,2,553,0)="""DATA"",779.004,40,0)"
^XMB(3.9,43,2,554,0)="CPV^Cape Verde"
^XMB(3.9,43,2,555,0)="""DATA"",779.004,40,""SDS"")"
^XMB(3.9,43,2,556,0)="132^CV^CAPE VERDE"
^XMB(3.9,43,2,557,0)="""DATA"",779.004,40,""TERMSTATUS"",0)"
^XMB(3.9,43,2,558,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,559,0)="""DATA"",779.004,40,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,560,0)="3060119.165006^1"
^XMB(3.9,43,2,561,0)="""DATA"",779.004,40,""VUID"")"
^XMB(3.9,43,2,562,0)="1006132^1"
^XMB(3.9,43,2,563,0)="""DATA"",779.004,41,0)"
^XMB(3.9,43,2,564,0)="CYM^Cayman Islands"
^XMB(3.9,43,2,565,0)="""DATA"",779.004,41,""SDS"")"
^XMB(3.9,43,2,566,0)="136^CJ^CAYMAN ISLANDS"
^XMB(3.9,43,2,567,0)="""DATA"",779.004,41,""TERMSTATUS"",0)"
^XMB(3.9,43,2,568,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,569,0)="""DATA"",779.004,41,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,570,0)="3060119.165006^1"
^XMB(3.9,43,2,571,0)="""DATA"",779.004,41,""VUID"")"
^XMB(3.9,43,2,572,0)="1006136^1"
^XMB(3.9,43,2,573,0)="""DATA"",779.004,42,0)"
^XMB(3.9,43,2,574,0)="CAF^Central African Republic"
^XMB(3.9,43,2,575,0)="""DATA"",779.004,42,""SDS"")"
^XMB(3.9,43,2,576,0)="140^CT^CENTRAL AFRICAN REPUBLIC"
^XMB(3.9,43,2,577,0)="""DATA"",779.004,42,""TERMSTATUS"",0)"
^XMB(3.9,43,2,578,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,579,0)="""DATA"",779.004,42,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,580,0)="3060119.165006^1"
^XMB(3.9,43,2,581,0)="""DATA"",779.004,42,""VUID"")"
^XMB(3.9,43,2,582,0)="1006140^1"
^XMB(3.9,43,2,583,0)="""DATA"",779.004,43,0)"
^XMB(3.9,43,2,584,0)="LKA^Sri Lanka"
^XMB(3.9,43,2,585,0)="""DATA"",779.004,43,""SDS"")"
^XMB(3.9,43,2,586,0)="144^CE^SRI LANKA"
^XMB(3.9,43,2,587,0)="""DATA"",779.004,43,""TERMSTATUS"",0)"
^XMB(3.9,43,2,588,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,589,0)="""DATA"",779.004,43,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,590,0)="3060119.165006^1"
^XMB(3.9,43,2,591,0)="""DATA"",779.004,43,""VUID"")"
^XMB(3.9,43,2,592,0)="1006144^1"
^XMB(3.9,43,2,593,0)="""DATA"",779.004,44,0)"
^XMB(3.9,43,2,594,0)="TCD^Chad"
^XMB(3.9,43,2,595,0)="""DATA"",779.004,44,""SDS"")"
^XMB(3.9,43,2,596,0)="148^CD^CHAD"
^XMB(3.9,43,2,597,0)="""DATA"",779.004,44,""TERMSTATUS"",0)"
^XMB(3.9,43,2,598,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,599,0)="""DATA"",779.004,44,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,600,0)="3060119.165006^1"
^XMB(3.9,43,2,601,0)="""DATA"",779.004,44,""VUID"")"
^XMB(3.9,43,2,602,0)="1006148^1"
^XMB(3.9,43,2,603,0)="""DATA"",779.004,45,0)"
^XMB(3.9,43,2,604,0)="CHL^Chile"
^XMB(3.9,43,2,605,0)="""DATA"",779.004,45,""SDS"")"
^XMB(3.9,43,2,606,0)="152^CI^CHILE"
^XMB(3.9,43,2,607,0)="""DATA"",779.004,45,""TERMSTATUS"",0)"
^XMB(3.9,43,2,608,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,609,0)="""DATA"",779.004,45,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,610,0)="3060119.165006^1"
^XMB(3.9,43,2,611,0)="""DATA"",779.004,45,""VUID"")"
^XMB(3.9,43,2,612,0)="1006152^1"
^XMB(3.9,43,2,613,0)="""DATA"",779.004,46,0)"
^XMB(3.9,43,2,614,0)="CHN^China"
^XMB(3.9,43,2,615,0)="""DATA"",779.004,46,""SDS"")"
^XMB(3.9,43,2,616,0)="156^CH^CHINA"
^XMB(3.9,43,2,617,0)="""DATA"",779.004,46,""TERMSTATUS"",0)"
^XMB(3.9,43,2,618,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,619,0)="""DATA"",779.004,46,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,620,0)="3060119.165006^1"
^XMB(3.9,43,2,621,0)="""DATA"",779.004,46,""VUID"")"
^XMB(3.9,43,2,622,0)="1006156^1"
^XMB(3.9,43,2,623,0)="""DATA"",779.004,47,0)"
^XMB(3.9,43,2,624,0)="TWN^Taiwan"
^XMB(3.9,43,2,625,0)="""DATA"",779.004,47,""SDS"")"
^XMB(3.9,43,2,626,0)="158^TW^TAIWAN"
^XMB(3.9,43,2,627,0)="""DATA"",779.004,47,""TERMSTATUS"",0)"
^XMB(3.9,43,2,628,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,629,0)="""DATA"",779.004,47,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,630,0)="3060119.165006^1"
^XMB(3.9,43,2,631,0)="""DATA"",779.004,47,""VUID"")"
^XMB(3.9,43,2,632,0)="1006158^1"
^XMB(3.9,43,2,633,0)="""DATA"",779.004,48,0)"
^XMB(3.9,43,2,634,0)="CXR^Christmas Island"
^XMB(3.9,43,2,635,0)="""DATA"",779.004,48,""SDS"")"
^XMB(3.9,43,2,636,0)="162^KT^<NULL>"
^XMB(3.9,43,2,637,0)="""DATA"",779.004,48,""TERMSTATUS"",0)"
^XMB(3.9,43,2,638,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,639,0)="""DATA"",779.004,48,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,640,0)="3060119.165006^1"
^XMB(3.9,43,2,641,0)="""DATA"",779.004,48,""VUID"")"
^XMB(3.9,43,2,642,0)="1006162^1"
^XMB(3.9,43,2,643,0)="""DATA"",779.004,49,0)"
^XMB(3.9,43,2,644,0)="CCK^Cocos (Keeling) Islands"
^XMB(3.9,43,2,645,0)="""DATA"",779.004,49,""SDS"")"
^XMB(3.9,43,2,646,0)="166^CK^<NULL>"
^XMB(3.9,43,2,647,0)="""DATA"",779.004,49,""TERMSTATUS"",0)"
^XMB(3.9,43,2,648,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,649,0)="""DATA"",779.004,49,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,650,0)="3060119.165006^1"
^XMB(3.9,43,2,651,0)="""DATA"",779.004,49,""VUID"")"
^XMB(3.9,43,2,652,0)="1006166^1"
^XMB(3.9,43,2,653,0)="""DATA"",779.004,50,0)"
^XMB(3.9,43,2,654,0)="COL^Colombia"
^XMB(3.9,43,2,655,0)="""DATA"",779.004,50,""SDS"")"
^XMB(3.9,43,2,656,0)="170^CO^COLOMBIA"
^XMB(3.9,43,2,657,0)="""DATA"",779.004,50,""TERMSTATUS"",0)"
^XMB(3.9,43,2,658,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,659,0)="""DATA"",779.004,50,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,660,0)="3060119.165006^1"
^XMB(3.9,43,2,661,0)="""DATA"",779.004,50,""VUID"")"
^XMB(3.9,43,2,662,0)="1006170^1"
^XMB(3.9,43,2,663,0)="""DATA"",779.004,51,0)"
^XMB(3.9,43,2,664,0)="COM^Comoros"
^XMB(3.9,43,2,665,0)="""DATA"",779.004,51,""SDS"")"
^XMB(3.9,43,2,666,0)="174^CN^COMOROS"
^XMB(3.9,43,2,667,0)="""DATA"",779.004,51,""TERMSTATUS"",0)"
^XMB(3.9,43,2,668,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,669,0)="""DATA"",779.004,51,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,670,0)="3060119.165006^1"
^XMB(3.9,43,2,671,0)="""DATA"",779.004,51,""VUID"")"
^XMB(3.9,43,2,672,0)="1006174^1"
^XMB(3.9,43,2,673,0)="""DATA"",779.004,52,0)"
^XMB(3.9,43,2,674,0)="MYT^Mayotte"
^XMB(3.9,43,2,675,0)="""DATA"",779.004,52,""SDS"")"
^XMB(3.9,43,2,676,0)="175^MF^FRANCE"
^XMB(3.9,43,2,677,0)="""DATA"",779.004,52,""TERMSTATUS"",0)"
^XMB(3.9,43,2,678,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,679,0)="""DATA"",779.004,52,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,680,0)="3060119.165006^1"
^XMB(3.9,43,2,681,0)="""DATA"",779.004,52,""VUID"")"
^XMB(3.9,43,2,682,0)="1006175^1"
^XMB(3.9,43,2,683,0)="""DATA"",779.004,53,0)"
^XMB(3.9,43,2,684,0)="COG^Congo (Brazzaville)"
^XMB(3.9,43,2,685,0)="""DATA"",779.004,53,""SDS"")"
^XMB(3.9,43,2,686,0)="178^CF^REPUBLIC OF THE CONGO (BRAZZAVILLE)"
^XMB(3.9,43,2,687,0)="""DATA"",779.004,53,""TERMSTATUS"",0)"
^XMB(3.9,43,2,688,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,689,0)="""DATA"",779.004,53,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,690,0)="3060119.165006^1"
^XMB(3.9,43,2,691,0)="""DATA"",779.004,53,""VUID"")"
^XMB(3.9,43,2,692,0)="1006178^1"
^XMB(3.9,43,2,693,0)="""DATA"",779.004,54,0)"
^XMB(3.9,43,2,694,0)="COD^Congo (Kinshasa)"
^XMB(3.9,43,2,695,0)="""DATA"",779.004,54,""SDS"")"
^XMB(3.9,43,2,696,0)="180^CG^DEMOCRATIC REPUBLIC OF THE CONGO"
^XMB(3.9,43,2,697,0)="""DATA"",779.004,54,""TERMSTATUS"",0)"
^XMB(3.9,43,2,698,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,699,0)="""DATA"",779.004,54,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,700,0)="3060119.165006^1"
^XMB(3.9,43,2,701,0)="""DATA"",779.004,54,""VUID"")"
^XMB(3.9,43,2,702,0)="1006180^1"
^XMB(3.9,43,2,703,0)="""DATA"",779.004,55,0)"
^XMB(3.9,43,2,704,0)="COK^Cook Islands"
^XMB(3.9,43,2,705,0)="""DATA"",779.004,55,""SDS"")"
^XMB(3.9,43,2,706,0)="184^CW^<NULL>"
^XMB(3.9,43,2,707,0)="""DATA"",779.004,55,""TERMSTATUS"",0)"
^XMB(3.9,43,2,708,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,709,0)="""DATA"",779.004,55,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,710,0)="3060119.165006^1"
^XMB(3.9,43,2,711,0)="""DATA"",779.004,55,""VUID"")"
^XMB(3.9,43,2,712,0)="1006184^1"
^XMB(3.9,43,2,713,0)="""DATA"",779.004,56,0)"
^XMB(3.9,43,2,714,0)="CRI^Costa Rica"
^XMB(3.9,43,2,715,0)="""DATA"",779.004,56,""SDS"")"
^XMB(3.9,43,2,716,0)="188^CS^COSTA RICA"
^XMB(3.9,43,2,717,0)="""DATA"",779.004,56,""TERMSTATUS"",0)"
^XMB(3.9,43,2,718,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,719,0)="""DATA"",779.004,56,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,720,0)="3060119.165006^1"
^XMB(3.9,43,2,721,0)="""DATA"",779.004,56,""VUID"")"
^XMB(3.9,43,2,722,0)="1006188^1"
^XMB(3.9,43,2,723,0)="""DATA"",779.004,57,0)"
^XMB(3.9,43,2,724,0)="HRV^Croatia"
^XMB(3.9,43,2,725,0)="""DATA"",779.004,57,""SDS"")"
^XMB(3.9,43,2,726,0)="191^HR^CROATIA"
^XMB(3.9,43,2,727,0)="""DATA"",779.004,57,""TERMSTATUS"",0)"
^XMB(3.9,43,2,728,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,729,0)="""DATA"",779.004,57,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,730,0)="3060119.165006^1"
^XMB(3.9,43,2,731,0)="""DATA"",779.004,57,""VUID"")"
^XMB(3.9,43,2,732,0)="1006191^1"
^XMB(3.9,43,2,733,0)="""DATA"",779.004,58,0)"
^XMB(3.9,43,2,734,0)="CUB^Cuba"
^XMB(3.9,43,2,735,0)="""DATA"",779.004,58,""SDS"")"
^XMB(3.9,43,2,736,0)="192^CU^CUBA"
^XMB(3.9,43,2,737,0)="""DATA"",779.004,58,""TERMSTATUS"",0)"
^XMB(3.9,43,2,738,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,739,0)="""DATA"",779.004,58,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,740,0)="3060119.165006^1"
^XMB(3.9,43,2,741,0)="""DATA"",779.004,58,""VUID"")"
^XMB(3.9,43,2,742,0)="1006192^1"
^XMB(3.9,43,2,743,0)="""DATA"",779.004,59,0)"
^XMB(3.9,43,2,744,0)="CYP^Cyprus"
^XMB(3.9,43,2,745,0)="""DATA"",779.004,59,""SDS"")"
^XMB(3.9,43,2,746,0)="196^CY^CYPRUS"
^XMB(3.9,43,2,747,0)="""DATA"",779.004,59,""TERMSTATUS"",0)"
^XMB(3.9,43,2,748,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,749,0)="""DATA"",779.004,59,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,750,0)="3060119.165006^1"
^XMB(3.9,43,2,751,0)="""DATA"",779.004,59,""VUID"")"
^XMB(3.9,43,2,752,0)="1006196^1"
^XMB(3.9,43,2,753,0)="""DATA"",779.004,60,0)"
^XMB(3.9,43,2,754,0)="CZE^Czech Republic"
^XMB(3.9,43,2,755,0)="""DATA"",779.004,60,""SDS"")"
^XMB(3.9,43,2,756,0)="203^EZ^CZECH REPUBLIC"
^XMB(3.9,43,2,757,0)="""DATA"",779.004,60,""TERMSTATUS"",0)"
^XMB(3.9,43,2,758,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,759,0)="""DATA"",779.004,60,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,760,0)="3060119.165006^1"
^XMB(3.9,43,2,761,0)="""DATA"",779.004,60,""VUID"")"
^XMB(3.9,43,2,762,0)="1006203^1"
^XMB(3.9,43,2,763,0)="""DATA"",779.004,61,0)"
^XMB(3.9,43,2,764,0)="BEN^Benin"
^XMB(3.9,43,2,765,0)="""DATA"",779.004,61,""SDS"")"
^XMB(3.9,43,2,766,0)="204^BN^BENIN"
^XMB(3.9,43,2,767,0)="""DATA"",779.004,61,""TERMSTATUS"",0)"
^XMB(3.9,43,2,768,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,769,0)="""DATA"",779.004,61,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,770,0)="3060119.165006^1"
^XMB(3.9,43,2,771,0)="""DATA"",779.004,61,""VUID"")"
^XMB(3.9,43,2,772,0)="1006204^1"
^XMB(3.9,43,2,773,0)="""DATA"",779.004,62,0)"
^XMB(3.9,43,2,774,0)="DNK^Denmark"
^XMB(3.9,43,2,775,0)="""DATA"",779.004,62,""SDS"")"
^XMB(3.9,43,2,776,0)="208^DA^DENMARK"
^XMB(3.9,43,2,777,0)="""DATA"",779.004,62,""TERMSTATUS"",0)"
^XMB(3.9,43,2,778,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,779,0)="""DATA"",779.004,62,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,780,0)="3060119.165006^1"
^XMB(3.9,43,2,781,0)="""DATA"",779.004,62,""VUID"")"
^XMB(3.9,43,2,782,0)="1006208^1"
^XMB(3.9,43,2,783,0)="""DATA"",779.004,63,0)"
^XMB(3.9,43,2,784,0)="DMA^Dominica"
^XMB(3.9,43,2,785,0)="""DATA"",779.004,63,""SDS"")"
^XMB(3.9,43,2,786,0)="212^DO^DOMINICA"
^XMB(3.9,43,2,787,0)="""DATA"",779.004,63,""TERMSTATUS"",0)"
^XMB(3.9,43,2,788,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,789,0)="""DATA"",779.004,63,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,790,0)="3060119.165006^1"
^XMB(3.9,43,2,791,0)="""DATA"",779.004,63,""VUID"")"
^XMB(3.9,43,2,792,0)="1006212^1"
^XMB(3.9,43,2,793,0)="""DATA"",779.004,64,0)"
^XMB(3.9,43,2,794,0)="DOM^Dominican Republic"
^XMB(3.9,43,2,795,0)="""DATA"",779.004,64,""SDS"")"
^XMB(3.9,43,2,796,0)="214^DR^DOMINICAN REPUBLIC"
^XMB(3.9,43,2,797,0)="""DATA"",779.004,64,""TERMSTATUS"",0)"
^XMB(3.9,43,2,798,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,799,0)="""DATA"",779.004,64,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,800,0)="3060119.165006^1"
^XMB(3.9,43,2,801,0)="""DATA"",779.004,64,""VUID"")"
^XMB(3.9,43,2,802,0)="1006214^1"
^XMB(3.9,43,2,803,0)="""DATA"",779.004,65,0)"
^XMB(3.9,43,2,804,0)="ECU^Ecuador"
^XMB(3.9,43,2,805,0)="""DATA"",779.004,65,""SDS"")"
^XMB(3.9,43,2,806,0)="218^EC^ECUADOR"
^XMB(3.9,43,2,807,0)="""DATA"",779.004,65,""TERMSTATUS"",0)"
^XMB(3.9,43,2,808,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,809,0)="""DATA"",779.004,65,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,810,0)="3060119.165006^1"
^XMB(3.9,43,2,811,0)="""DATA"",779.004,65,""VUID"")"
^XMB(3.9,43,2,812,0)="1006218^1"
^XMB(3.9,43,2,813,0)="""DATA"",779.004,66,0)"
^XMB(3.9,43,2,814,0)="SLV^El Salvador"
^XMB(3.9,43,2,815,0)="""DATA"",779.004,66,""SDS"")"
^XMB(3.9,43,2,816,0)="222^ES^EL SALVADOR"
^XMB(3.9,43,2,817,0)="""DATA"",779.004,66,""TERMSTATUS"",0)"
^XMB(3.9,43,2,818,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,819,0)="""DATA"",779.004,66,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,820,0)="3060119.165006^1"
^XMB(3.9,43,2,821,0)="""DATA"",779.004,66,""VUID"")"
^XMB(3.9,43,2,822,0)="1006222^1"
^XMB(3.9,43,2,823,0)="""DATA"",779.004,67,0)"
^XMB(3.9,43,2,824,0)="GNQ^Equatorial Guinea"
^XMB(3.9,43,2,825,0)="""DATA"",779.004,67,""SDS"")"
^XMB(3.9,43,2,826,0)="226^EK^EQUATORIAL GUINEA"
^XMB(3.9,43,2,827,0)="""DATA"",779.004,67,""TERMSTATUS"",0)"
^XMB(3.9,43,2,828,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,829,0)="""DATA"",779.004,67,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,830,0)="3060119.165006^1"
^XMB(3.9,43,2,831,0)="""DATA"",779.004,67,""VUID"")"
^XMB(3.9,43,2,832,0)="1006226^1"
^XMB(3.9,43,2,833,0)="""DATA"",779.004,68,0)"
^XMB(3.9,43,2,834,0)="ETH^Ethiopia"
^XMB(3.9,43,2,835,0)="""DATA"",779.004,68,""SDS"")"
^XMB(3.9,43,2,836,0)="231^ET^ETHIOPIA"
^XMB(3.9,43,2,837,0)="""DATA"",779.004,68,""TERMSTATUS"",0)"
^XMB(3.9,43,2,838,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,839,0)="""DATA"",779.004,68,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,840,0)="3060119.165006^1"
^XMB(3.9,43,2,841,0)="""DATA"",779.004,68,""VUID"")"
^XMB(3.9,43,2,842,0)="1006231^1"
^XMB(3.9,43,2,843,0)="""DATA"",779.004,69,0)"
^XMB(3.9,43,2,844,0)="ERI^Eritrea"
^XMB(3.9,43,2,845,0)="""DATA"",779.004,69,""SDS"")"
^XMB(3.9,43,2,846,0)="232^ER^ERITREA"
^XMB(3.9,43,2,847,0)="""DATA"",779.004,69,""TERMSTATUS"",0)"
^XMB(3.9,43,2,848,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,849,0)="""DATA"",779.004,69,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,850,0)="3060119.165006^1"
^XMB(3.9,43,2,851,0)="""DATA"",779.004,69,""VUID"")"
^XMB(3.9,43,2,852,0)="1006232^1"
^XMB(3.9,43,2,853,0)="""DATA"",779.004,70,0)"
^XMB(3.9,43,2,854,0)="EST^Estonia"
^XMB(3.9,43,2,855,0)="""DATA"",779.004,70,""SDS"")"
^XMB(3.9,43,2,856,0)="233^EN^ESTONIA"
^XMB(3.9,43,2,857,0)="""DATA"",779.004,70,""TERMSTATUS"",0)"
^XMB(3.9,43,2,858,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,859,0)="""DATA"",779.004,70,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,860,0)="3060119.165006^1"
^XMB(3.9,43,2,861,0)="""DATA"",779.004,70,""VUID"")"
^XMB(3.9,43,2,862,0)="1006233^1"
^XMB(3.9,43,2,863,0)="""DATA"",779.004,71,0)"
^XMB(3.9,43,2,864,0)="FRO^Faroe Islands"
^XMB(3.9,43,2,865,0)="""DATA"",779.004,71,""SDS"")"
^XMB(3.9,43,2,866,0)="234^FO^FAROE ISLANDS"
^XMB(3.9,43,2,867,0)="""DATA"",779.004,71,""TERMSTATUS"",0)"
^XMB(3.9,43,2,868,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,869,0)="""DATA"",779.004,71,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,870,0)="3060119.165006^1"
^XMB(3.9,43,2,871,0)="""DATA"",779.004,71,""VUID"")"
^XMB(3.9,43,2,872,0)="1006234^1"
^XMB(3.9,43,2,873,0)="""DATA"",779.004,72,0)"
^XMB(3.9,43,2,874,0)="FLK^Falkland Islands"
^XMB(3.9,43,2,875,0)="""DATA"",779.004,72,""SDS"")"
^XMB(3.9,43,2,876,0)="238^FK^FALKLAND ISLANDS"
^XMB(3.9,43,2,877,0)="""DATA"",779.004,72,""TERMSTATUS"",0)"
^XMB(3.9,43,2,878,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,879,0)="""DATA"",779.004,72,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,880,0)="3060119.165006^1"
^XMB(3.9,43,2,881,0)="""DATA"",779.004,72,""VUID"")"
^XMB(3.9,43,2,882,0)="1006238^1"
^XMB(3.9,43,2,883,0)="""DATA"",779.004,73,0)"
^XMB(3.9,43,2,884,0)="SGS^South Georgia and South Sandwich Islands"
^XMB(3.9,43,2,885,0)="""DATA"",779.004,73,""SDS"")"
^XMB(3.9,43,2,886,0)="239^SX^FALKLAND ISLANDS"
^XMB(3.9,43,2,887,0)="""DATA"",779.004,73,""TERMSTATUS"",0)"
^XMB(3.9,43,2,888,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,889,0)="""DATA"",779.004,73,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,890,0)="3060119.165006^1"
^XMB(3.9,43,2,891,0)="""DATA"",779.004,73,""VUID"")"
^XMB(3.9,43,2,892,0)="1006239^1"
^XMB(3.9,43,2,893,0)="""DATA"",779.004,74,0)"
^XMB(3.9,43,2,894,0)="FJI^Fiji"
^XMB(3.9,43,2,895,0)="""DATA"",779.004,74,""SDS"")"
^XMB(3.9,43,2,896,0)="242^FJ^FIJI"
^XMB(3.9,43,2,897,0)="""DATA"",779.004,74,""TERMSTATUS"",0)"
^XMB(3.9,43,2,898,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,899,0)="""DATA"",779.004,74,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,900,0)="3060119.165006^1"
^XMB(3.9,43,2,901,0)="""DATA"",779.004,74,""VUID"")"
^XMB(3.9,43,2,902,0)="1006242^1"
^XMB(3.9,43,2,903,0)="""DATA"",779.004,75,0)"
^XMB(3.9,43,2,904,0)="FIN^Finland"
^XMB(3.9,43,2,905,0)="""DATA"",779.004,75,""SDS"")"
^XMB(3.9,43,2,906,0)="246^FI^FINLAND"
^XMB(3.9,43,2,907,0)="""DATA"",779.004,75,""TERMSTATUS"",0)"
^XMB(3.9,43,2,908,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,909,0)="""DATA"",779.004,75,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,910,0)="3060119.165006^1"
^XMB(3.9,43,2,911,0)="""DATA"",779.004,75,""VUID"")"
^XMB(3.9,43,2,912,0)="1006246^1"
^XMB(3.9,43,2,913,0)="""DATA"",779.004,76,0)"
^XMB(3.9,43,2,914,0)="FRA^France"
^XMB(3.9,43,2,915,0)="""DATA"",779.004,76,""SDS"")"
^XMB(3.9,43,2,916,0)="250^FR^FRANCE"
^XMB(3.9,43,2,917,0)="""DATA"",779.004,76,""TERMSTATUS"",0)"
^XMB(3.9,43,2,918,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,919,0)="""DATA"",779.004,76,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,920,0)="3060119.165006^1"
^XMB(3.9,43,2,921,0)="""DATA"",779.004,76,""VUID"")"
^XMB(3.9,43,2,922,0)="1006250^1"
^XMB(3.9,43,2,923,0)="""DATA"",779.004,77,0)"
^XMB(3.9,43,2,924,0)="GUF^French Guiana"
^XMB(3.9,43,2,925,0)="""DATA"",779.004,77,""SDS"")"
^XMB(3.9,43,2,926,0)="254^FG^FRENCH GUIANA"
^XMB(3.9,43,2,927,0)="""DATA"",779.004,77,""TERMSTATUS"",0)"
^XMB(3.9,43,2,928,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,929,0)="""DATA"",779.004,77,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,930,0)="3060119.165006^1"
^XMB(3.9,43,2,931,0)="""DATA"",779.004,77,""VUID"")"
^XMB(3.9,43,2,932,0)="1006254^1"
^XMB(3.9,43,2,933,0)="""DATA"",779.004,78,0)"
^XMB(3.9,43,2,934,0)="PYF^French Polynesia"
^XMB(3.9,43,2,935,0)="""DATA"",779.004,78,""SDS"")"
^XMB(3.9,43,2,936,0)="258^FP^FRENCH POLYNESIA"
^XMB(3.9,43,2,937,0)="""DATA"",779.004,78,""TERMSTATUS"",0)"
^XMB(3.9,43,2,938,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,939,0)="""DATA"",779.004,78,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,940,0)="3060119.165006^1"
^XMB(3.9,43,2,941,0)="""DATA"",779.004,78,""VUID"")"
^XMB(3.9,43,2,942,0)="1006258^1"
^XMB(3.9,43,2,943,0)="""DATA"",779.004,79,0)"
^XMB(3.9,43,2,944,0)="ATF^French Southern Territories"
^XMB(3.9,43,2,945,0)="""DATA"",779.004,79,""SDS"")"
^XMB(3.9,43,2,946,0)="260^FS^<NULL>"
^XMB(3.9,43,2,947,0)="""DATA"",779.004,79,""TERMSTATUS"",0)"
^XMB(3.9,43,2,948,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,949,0)="""DATA"",779.004,79,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,950,0)="3060119.165006^1"
^XMB(3.9,43,2,951,0)="""DATA"",779.004,79,""VUID"")"
^XMB(3.9,43,2,952,0)="1006260^1"
^XMB(3.9,43,2,953,0)="""DATA"",779.004,80,0)"
^XMB(3.9,43,2,954,0)="DJI^Djibouti"
^XMB(3.9,43,2,955,0)="""DATA"",779.004,80,""SDS"")"
^XMB(3.9,43,2,956,0)="262^DJ^DJIBOUTI"
^XMB(3.9,43,2,957,0)="""DATA"",779.004,80,""TERMSTATUS"",0)"
^XMB(3.9,43,2,958,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,959,0)="""DATA"",779.004,80,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,960,0)="3060119.165006^1"
^XMB(3.9,43,2,961,0)="""DATA"",779.004,80,""VUID"")"
^XMB(3.9,43,2,962,0)="1006262^1"
^XMB(3.9,43,2,963,0)="""DATA"",779.004,81,0)"
^XMB(3.9,43,2,964,0)="GAB^Gabon"
^XMB(3.9,43,2,965,0)="""DATA"",779.004,81,""SDS"")"
^XMB(3.9,43,2,966,0)="266^GB^GABON"
^XMB(3.9,43,2,967,0)="""DATA"",779.004,81,""TERMSTATUS"",0)"
^XMB(3.9,43,2,968,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,969,0)="""DATA"",779.004,81,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,970,0)="3060119.165006^1"
^XMB(3.9,43,2,971,0)="""DATA"",779.004,81,""VUID"")"
^XMB(3.9,43,2,972,0)="1006266^1"
^XMB(3.9,43,2,973,0)="""DATA"",779.004,82,0)"
^XMB(3.9,43,2,974,0)="GEO^Georgia"
^XMB(3.9,43,2,975,0)="""DATA"",779.004,82,""SDS"")"
^XMB(3.9,43,2,976,0)="268^GG^REPUBLIC OF GEORGIA"
^XMB(3.9,43,2,977,0)="""DATA"",779.004,82,""TERMSTATUS"",0)"
^XMB(3.9,43,2,978,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,979,0)="""DATA"",779.004,82,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,980,0)="3060119.165006^1"
^XMB(3.9,43,2,981,0)="""DATA"",779.004,82,""VUID"")"
^XMB(3.9,43,2,982,0)="1006268^1"
^XMB(3.9,43,2,983,0)="""DATA"",779.004,83,0)"
^XMB(3.9,43,2,984,0)="GMB^Gambia"
^XMB(3.9,43,2,985,0)="""DATA"",779.004,83,""SDS"")"
^XMB(3.9,43,2,986,0)="270^GA^GAMBIA"
^XMB(3.9,43,2,987,0)="""DATA"",779.004,83,""TERMSTATUS"",0)"
^XMB(3.9,43,2,988,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,989,0)="""DATA"",779.004,83,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,990,0)="3060119.165006^1"
^XMB(3.9,43,2,991,0)="""DATA"",779.004,83,""VUID"")"
^XMB(3.9,43,2,992,0)="1006270^1"
^XMB(3.9,43,2,993,0)="""DATA"",779.004,84,0)"
^XMB(3.9,43,2,994,0)="DEU^Germany"
^XMB(3.9,43,2,995,0)="""DATA"",779.004,84,""SDS"")"
^XMB(3.9,43,2,996,0)="276^GM^GERMANY"
^XMB(3.9,43,2,997,0)="""DATA"",779.004,84,""TERMSTATUS"",0)"
^XMB(3.9,43,2,998,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,999,0)="""DATA"",779.004,84,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1000,0)="3060119.165006^1"
^XMB(3.9,43,2,1001,0)="""DATA"",779.004,84,""VUID"")"
^XMB(3.9,43,2,1002,0)="1006276^1"
^XMB(3.9,43,2,1003,0)="""DATA"",779.004,85,0)"
^XMB(3.9,43,2,1004,0)="GHA^Ghana"
^XMB(3.9,43,2,1005,0)="""DATA"",779.004,85,""SDS"")"
^XMB(3.9,43,2,1006,0)="288^GH^GHANA"
^XMB(3.9,43,2,1007,0)="""DATA"",779.004,85,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1008,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1009,0)="""DATA"",779.004,85,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1010,0)="3060119.165006^1"
^XMB(3.9,43,2,1011,0)="""DATA"",779.004,85,""VUID"")"
^XMB(3.9,43,2,1012,0)="1006288^1"
^XMB(3.9,43,2,1013,0)="""DATA"",779.004,86,0)"
^XMB(3.9,43,2,1014,0)="GIB^Gibraltar"
^XMB(3.9,43,2,1015,0)="""DATA"",779.004,86,""SDS"")"
^XMB(3.9,43,2,1016,0)="292^GI^GIBRALTAR"
^XMB(3.9,43,2,1017,0)="""DATA"",779.004,86,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1018,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1019,0)="""DATA"",779.004,86,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1020,0)="3060119.165006^1"
^XMB(3.9,43,2,1021,0)="""DATA"",779.004,86,""VUID"")"
^XMB(3.9,43,2,1022,0)="1006292^1"
^XMB(3.9,43,2,1023,0)="""DATA"",779.004,87,0)"
^XMB(3.9,43,2,1024,0)="KIR^Kiribati"
^XMB(3.9,43,2,1025,0)="""DATA"",779.004,87,""SDS"")"
^XMB(3.9,43,2,1026,0)="296^KR^KIRIBATI"
^XMB(3.9,43,2,1027,0)="""DATA"",779.004,87,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1028,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1029,0)="""DATA"",779.004,87,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1030,0)="3060119.165006^1"
^XMB(3.9,43,2,1031,0)="""DATA"",779.004,87,""VUID"")"
^XMB(3.9,43,2,1032,0)="1006296^1"
^XMB(3.9,43,2,1033,0)="""DATA"",779.004,88,0)"
^XMB(3.9,43,2,1034,0)="GRC^Greece"
^XMB(3.9,43,2,1035,0)="""DATA"",779.004,88,""SDS"")"
^XMB(3.9,43,2,1036,0)="300^GR^GREECE"
^XMB(3.9,43,2,1037,0)="""DATA"",779.004,88,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1038,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1039,0)="""DATA"",779.004,88,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1040,0)="3060119.165006^1"
^XMB(3.9,43,2,1041,0)="""DATA"",779.004,88,""VUID"")"
^XMB(3.9,43,2,1042,0)="1006300^1"
^XMB(3.9,43,2,1043,0)="""DATA"",779.004,89,0)"
^XMB(3.9,43,2,1044,0)="GRL^Greenland"
^XMB(3.9,43,2,1045,0)="""DATA"",779.004,89,""SDS"")"
^XMB(3.9,43,2,1046,0)="304^GL^GREENLAND"
^XMB(3.9,43,2,1047,0)="""DATA"",779.004,89,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1048,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1049,0)="""DATA"",779.004,89,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1050,0)="3060119.165006^1"
^XMB(3.9,43,2,1051,0)="""DATA"",779.004,89,""VUID"")"
^XMB(3.9,43,2,1052,0)="1006304^1"
^XMB(3.9,43,2,1053,0)="""DATA"",779.004,90,0)"
^XMB(3.9,43,2,1054,0)="GRD^Grenada"
^XMB(3.9,43,2,1055,0)="""DATA"",779.004,90,""SDS"")"
^XMB(3.9,43,2,1056,0)="308^GJ^GRENADA"
^XMB(3.9,43,2,1057,0)="""DATA"",779.004,90,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1058,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1059,0)="""DATA"",779.004,90,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1060,0)="3060119.165006^1"
^XMB(3.9,43,2,1061,0)="""DATA"",779.004,90,""VUID"")"
^XMB(3.9,43,2,1062,0)="1006308^1"
^XMB(3.9,43,2,1063,0)="""DATA"",779.004,91,0)"
^XMB(3.9,43,2,1064,0)="GLP^Guadeloupe"
^XMB(3.9,43,2,1065,0)="""DATA"",779.004,91,""SDS"")"
^XMB(3.9,43,2,1066,0)="312^GP^GUADELOUPE"
^XMB(3.9,43,2,1067,0)="""DATA"",779.004,91,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1068,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1069,0)="""DATA"",779.004,91,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1070,0)="3060119.165006^1"
^XMB(3.9,43,2,1071,0)="""DATA"",779.004,91,""VUID"")"
^XMB(3.9,43,2,1072,0)="1006312^1"
^XMB(3.9,43,2,1073,0)="""DATA"",779.004,92,0)"
^XMB(3.9,43,2,1074,0)="GTM^Guatemala"
^XMB(3.9,43,2,1075,0)="""DATA"",779.004,92,""SDS"")"
^XMB(3.9,43,2,1076,0)="320^GT^GUATEMALA"
^XMB(3.9,43,2,1077,0)="""DATA"",779.004,92,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1078,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1079,0)="""DATA"",779.004,92,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1080,0)="3060119.165006^1"
^XMB(3.9,43,2,1081,0)="""DATA"",779.004,92,""VUID"")"
^XMB(3.9,43,2,1082,0)="1006320^1"
^XMB(3.9,43,2,1083,0)="""DATA"",779.004,93,0)"
^XMB(3.9,43,2,1084,0)="GIN^Guinea"
^XMB(3.9,43,2,1085,0)="""DATA"",779.004,93,""SDS"")"
^XMB(3.9,43,2,1086,0)="324^GV^GUINEA"
^XMB(3.9,43,2,1087,0)="""DATA"",779.004,93,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1088,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1089,0)="""DATA"",779.004,93,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1090,0)="3060119.165006^1"
^XMB(3.9,43,2,1091,0)="""DATA"",779.004,93,""VUID"")"
^XMB(3.9,43,2,1092,0)="1006324^1"
^XMB(3.9,43,2,1093,0)="""DATA"",779.004,94,0)"
^XMB(3.9,43,2,1094,0)="GUY^Guyana"
^XMB(3.9,43,2,1095,0)="""DATA"",779.004,94,""SDS"")"
^XMB(3.9,43,2,1096,0)="328^GY^GUYANA"
^XMB(3.9,43,2,1097,0)="""DATA"",779.004,94,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1098,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1099,0)="""DATA"",779.004,94,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1100,0)="3060119.165006^1"
^XMB(3.9,43,2,1101,0)="""DATA"",779.004,94,""VUID"")"
^XMB(3.9,43,2,1102,0)="1006328^1"
^XMB(3.9,43,2,1103,0)="""DATA"",779.004,95,0)"
^XMB(3.9,43,2,1104,0)="HTI^Haiti"
^XMB(3.9,43,2,1105,0)="""DATA"",779.004,95,""SDS"")"
^XMB(3.9,43,2,1106,0)="332^HA^HAITI"
^XMB(3.9,43,2,1107,0)="""DATA"",779.004,95,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1108,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1109,0)="""DATA"",779.004,95,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1110,0)="3060119.165006^1"
^XMB(3.9,43,2,1111,0)="""DATA"",779.004,95,""VUID"")"
^XMB(3.9,43,2,1112,0)="1006332^1"
^XMB(3.9,43,2,1113,0)="""DATA"",779.004,96,0)"
^XMB(3.9,43,2,1114,0)="HMD^Heard and McDonald Islands"
^XMB(3.9,43,2,1115,0)="""DATA"",779.004,96,""SDS"")"
^XMB(3.9,43,2,1116,0)="334^HM^<NULL>"
^XMB(3.9,43,2,1117,0)="""DATA"",779.004,96,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1118,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1119,0)="""DATA"",779.004,96,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1120,0)="3060119.165006^1"
^XMB(3.9,43,2,1121,0)="""DATA"",779.004,96,""VUID"")"
^XMB(3.9,43,2,1122,0)="1006334^1"
^XMB(3.9,43,2,1123,0)="""DATA"",779.004,97,0)"
^XMB(3.9,43,2,1124,0)="VAT^Vatican City"
^XMB(3.9,43,2,1125,0)="""DATA"",779.004,97,""SDS"")"
^XMB(3.9,43,2,1126,0)="336^VT^VATICAN CITY"
^XMB(3.9,43,2,1127,0)="""DATA"",779.004,97,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1128,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1129,0)="""DATA"",779.004,97,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1130,0)="3060119.165006^1"
^XMB(3.9,43,2,1131,0)="""DATA"",779.004,97,""VUID"")"
^XMB(3.9,43,2,1132,0)="1006336^1"
^XMB(3.9,43,2,1133,0)="""DATA"",779.004,98,0)"
^XMB(3.9,43,2,1134,0)="HND^Honduras"
^XMB(3.9,43,2,1135,0)="""DATA"",779.004,98,""SDS"")"
^XMB(3.9,43,2,1136,0)="340^HO^HONDURAS"
^XMB(3.9,43,2,1137,0)="""DATA"",779.004,98,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1138,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1139,0)="""DATA"",779.004,98,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1140,0)="3060119.165006^1"
^XMB(3.9,43,2,1141,0)="""DATA"",779.004,98,""VUID"")"
^XMB(3.9,43,2,1142,0)="1006340^1"
^XMB(3.9,43,2,1143,0)="""DATA"",779.004,99,0)"
^XMB(3.9,43,2,1144,0)="HKG^Hong Kong"
^XMB(3.9,43,2,1145,0)="""DATA"",779.004,99,""SDS"")"
^XMB(3.9,43,2,1146,0)="344^HK^HONG KONG"
^XMB(3.9,43,2,1147,0)="""DATA"",779.004,99,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1148,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1149,0)="""DATA"",779.004,99,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1150,0)="3060119.165006^1"
^XMB(3.9,43,2,1151,0)="""DATA"",779.004,99,""VUID"")"
^XMB(3.9,43,2,1152,0)="1006344^1"
^XMB(3.9,43,2,1153,0)="""DATA"",779.004,100,0)"
^XMB(3.9,43,2,1154,0)="HUN^Hungary"
^XMB(3.9,43,2,1155,0)="""DATA"",779.004,100,""SDS"")"
^XMB(3.9,43,2,1156,0)="348^HU^HUNGARY"
^XMB(3.9,43,2,1157,0)="""DATA"",779.004,100,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1158,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1159,0)="""DATA"",779.004,100,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1160,0)="3060119.165006^1"
^XMB(3.9,43,2,1161,0)="""DATA"",779.004,100,""VUID"")"
^XMB(3.9,43,2,1162,0)="1006348^1"
^XMB(3.9,43,2,1163,0)="""DATA"",779.004,101,0)"
^XMB(3.9,43,2,1164,0)="ISL^Iceland"
^XMB(3.9,43,2,1165,0)="""DATA"",779.004,101,""SDS"")"
^XMB(3.9,43,2,1166,0)="352^IC^ICELAND"
^XMB(3.9,43,2,1167,0)="""DATA"",779.004,101,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1168,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1169,0)="""DATA"",779.004,101,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1170,0)="3060119.165006^1"
^XMB(3.9,43,2,1171,0)="""DATA"",779.004,101,""VUID"")"
^XMB(3.9,43,2,1172,0)="1006352^1"
^XMB(3.9,43,2,1173,0)="""DATA"",779.004,102,0)"
^XMB(3.9,43,2,1174,0)="IND^India"
^XMB(3.9,43,2,1175,0)="""DATA"",779.004,102,""SDS"")"
^XMB(3.9,43,2,1176,0)="356^IN^INDIA"
^XMB(3.9,43,2,1177,0)="""DATA"",779.004,102,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1178,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1179,0)="""DATA"",779.004,102,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1180,0)="3060119.165006^1"
^XMB(3.9,43,2,1181,0)="""DATA"",779.004,102,""VUID"")"
^XMB(3.9,43,2,1182,0)="1006356^1"
^XMB(3.9,43,2,1183,0)="""DATA"",779.004,103,0)"
^XMB(3.9,43,2,1184,0)="IDN^Indonesia"
^XMB(3.9,43,2,1185,0)="""DATA"",779.004,103,""SDS"")"
^XMB(3.9,43,2,1186,0)="360^ID^INDONESIA"
^XMB(3.9,43,2,1187,0)="""DATA"",779.004,103,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1188,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1189,0)="""DATA"",779.004,103,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1190,0)="3060119.165006^1"
^XMB(3.9,43,2,1191,0)="""DATA"",779.004,103,""VUID"")"
^XMB(3.9,43,2,1192,0)="1006360^1"
^XMB(3.9,43,2,1193,0)="""DATA"",779.004,104,0)"
^XMB(3.9,43,2,1194,0)="IRN^Iran"
^XMB(3.9,43,2,1195,0)="""DATA"",779.004,104,""SDS"")"
^XMB(3.9,43,2,1196,0)="364^IR^IRAN"
^XMB(3.9,43,2,1197,0)="""DATA"",779.004,104,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1198,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1199,0)="""DATA"",779.004,104,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1200,0)="3060119.165006^1"
^XMB(3.9,43,2,1201,0)="""DATA"",779.004,104,""VUID"")"
^XMB(3.9,43,2,1202,0)="1006364^1"
^XMB(3.9,43,2,1203,0)="""DATA"",779.004,105,0)"
^XMB(3.9,43,2,1204,0)="IRQ^Iraq"
^XMB(3.9,43,2,1205,0)="""DATA"",779.004,105,""SDS"")"
^XMB(3.9,43,2,1206,0)="368^IZ^IRAQ"
^XMB(3.9,43,2,1207,0)="""DATA"",779.004,105,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1208,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1209,0)="""DATA"",779.004,105,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1210,0)="3060119.165006^1"
^XMB(3.9,43,2,1211,0)="""DATA"",779.004,105,""VUID"")"
^XMB(3.9,43,2,1212,0)="1006368^1"
^XMB(3.9,43,2,1213,0)="""DATA"",779.004,106,0)"
^XMB(3.9,43,2,1214,0)="IRL^Ireland"
^XMB(3.9,43,2,1215,0)="""DATA"",779.004,106,""SDS"")"
^XMB(3.9,43,2,1216,0)="372^EI^IRELAND (EIRE)"
^XMB(3.9,43,2,1217,0)="""DATA"",779.004,106,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1218,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1219,0)="""DATA"",779.004,106,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1220,0)="3060119.165006^1"
^XMB(3.9,43,2,1221,0)="""DATA"",779.004,106,""VUID"")"
^XMB(3.9,43,2,1222,0)="1006372^1"
^XMB(3.9,43,2,1223,0)="""DATA"",779.004,107,0)"
^XMB(3.9,43,2,1224,0)="ISR^Israel"
^XMB(3.9,43,2,1225,0)="""DATA"",779.004,107,""SDS"")"
^XMB(3.9,43,2,1226,0)="376^IS^ISRAEL"
^XMB(3.9,43,2,1227,0)="""DATA"",779.004,107,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1228,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1229,0)="""DATA"",779.004,107,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1230,0)="3060119.165006^1"
^XMB(3.9,43,2,1231,0)="""DATA"",779.004,107,""VUID"")"
^XMB(3.9,43,2,1232,0)="1006376^1"
^XMB(3.9,43,2,1233,0)="""DATA"",779.004,108,0)"
^XMB(3.9,43,2,1234,0)="ITA^Italy"
^XMB(3.9,43,2,1235,0)="""DATA"",779.004,108,""SDS"")"
^XMB(3.9,43,2,1236,0)="380^IT^ITALY"
^XMB(3.9,43,2,1237,0)="""DATA"",779.004,108,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1238,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1239,0)="""DATA"",779.004,108,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1240,0)="3060119.165006^1"
^XMB(3.9,43,2,1241,0)="""DATA"",779.004,108,""VUID"")"
^XMB(3.9,43,2,1242,0)="1006380^1"
^XMB(3.9,43,2,1243,0)="""DATA"",779.004,109,0)"
^XMB(3.9,43,2,1244,0)="CIV^Côte d'Ivoire"
^XMB(3.9,43,2,1245,0)="""DATA"",779.004,109,""SDS"")"
^XMB(3.9,43,2,1246,0)="384^IV^CÔTE D'IVOIRE"
^XMB(3.9,43,2,1247,0)="""DATA"",779.004,109,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1248,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1249,0)="""DATA"",779.004,109,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1250,0)="3060119.165006^1"
^XMB(3.9,43,2,1251,0)="""DATA"",779.004,109,""VUID"")"
^XMB(3.9,43,2,1252,0)="1006384^1"
^XMB(3.9,43,2,1253,0)="""DATA"",779.004,110,0)"
^XMB(3.9,43,2,1254,0)="JAM^Jamaica"
^XMB(3.9,43,2,1255,0)="""DATA"",779.004,110,""SDS"")"
^XMB(3.9,43,2,1256,0)="388^JM^JAMAICA"
^XMB(3.9,43,2,1257,0)="""DATA"",779.004,110,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1258,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1259,0)="""DATA"",779.004,110,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1260,0)="3060119.165006^1"
^XMB(3.9,43,2,1261,0)="""DATA"",779.004,110,""VUID"")"
^XMB(3.9,43,2,1262,0)="1006388^1"
^XMB(3.9,43,2,1263,0)="""DATA"",779.004,111,0)"
^XMB(3.9,43,2,1264,0)="JPN^Japan"
^XMB(3.9,43,2,1265,0)="""DATA"",779.004,111,""SDS"")"
^XMB(3.9,43,2,1266,0)="392^JA^JAPAN"
^XMB(3.9,43,2,1267,0)="""DATA"",779.004,111,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1268,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1269,0)="""DATA"",779.004,111,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1270,0)="3060119.165006^1"
^XMB(3.9,43,2,1271,0)="""DATA"",779.004,111,""VUID"")"
^XMB(3.9,43,2,1272,0)="1006392^1"
^XMB(3.9,43,2,1273,0)="""DATA"",779.004,112,0)"
^XMB(3.9,43,2,1274,0)="KAZ^Kazakhstan"
^XMB(3.9,43,2,1275,0)="""DATA"",779.004,112,""SDS"")"
^XMB(3.9,43,2,1276,0)="398^KZ^KAZAKHSTAN"
^XMB(3.9,43,2,1277,0)="""DATA"",779.004,112,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1278,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1279,0)="""DATA"",779.004,112,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1280,0)="3060119.165006^1"
^XMB(3.9,43,2,1281,0)="""DATA"",779.004,112,""VUID"")"
^XMB(3.9,43,2,1282,0)="1006398^1"
^XMB(3.9,43,2,1283,0)="""DATA"",779.004,113,0)"
^XMB(3.9,43,2,1284,0)="JOR^Jordan"
^XMB(3.9,43,2,1285,0)="""DATA"",779.004,113,""SDS"")"
^XMB(3.9,43,2,1286,0)="400^JO^JORDAN"
^XMB(3.9,43,2,1287,0)="""DATA"",779.004,113,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1288,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1289,0)="""DATA"",779.004,113,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1290,0)="3060119.165006^1"
^XMB(3.9,43,2,1291,0)="""DATA"",779.004,113,""VUID"")"
^XMB(3.9,43,2,1292,0)="1006400^1"
^XMB(3.9,43,2,1293,0)="""DATA"",779.004,114,0)"
^XMB(3.9,43,2,1294,0)="KEN^Kenya"
^XMB(3.9,43,2,1295,0)="""DATA"",779.004,114,""SDS"")"
^XMB(3.9,43,2,1296,0)="404^KE^KENYA"
^XMB(3.9,43,2,1297,0)="""DATA"",779.004,114,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1298,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1299,0)="""DATA"",779.004,114,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1300,0)="3060119.165006^1"
^XMB(3.9,43,2,1301,0)="""DATA"",779.004,114,""VUID"")"
^XMB(3.9,43,2,1302,0)="1006404^1"
^XMB(3.9,43,2,1303,0)="""DATA"",779.004,115,0)"
^XMB(3.9,43,2,1304,0)="PRK^Korea, North"
^XMB(3.9,43,2,1305,0)="""DATA"",779.004,115,""SDS"")"
^XMB(3.9,43,2,1306,0)="408^KN^DEMOCRATIC PEOPLE'S REPUBLIC OF KOREA (NORTH KOREA)"
^XMB(3.9,43,2,1307,0)="""DATA"",779.004,115,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1308,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1309,0)="""DATA"",779.004,115,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1310,0)="3060119.165006^1"
^XMB(3.9,43,2,1311,0)="""DATA"",779.004,115,""VUID"")"
^XMB(3.9,43,2,1312,0)="1006408^1"
^XMB(3.9,43,2,1313,0)="""DATA"",779.004,116,0)"
^XMB(3.9,43,2,1314,0)="KOR^Korea, South"
^XMB(3.9,43,2,1315,0)="""DATA"",779.004,116,""SDS"")"
^XMB(3.9,43,2,1316,0)="410^KS^REPUBLIC OF KOREA (SOUTH KOREA)"
^XMB(3.9,43,2,1317,0)="""DATA"",779.004,116,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1318,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1319,0)="""DATA"",779.004,116,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1320,0)="3060119.165006^1"
^XMB(3.9,43,2,1321,0)="""DATA"",779.004,116,""VUID"")"
^XMB(3.9,43,2,1322,0)="1006410^1"
^XMB(3.9,43,2,1323,0)="""DATA"",779.004,117,0)"
^XMB(3.9,43,2,1324,0)="KWT^Kuwait"
^XMB(3.9,43,2,1325,0)="""DATA"",779.004,117,""SDS"")"
^XMB(3.9,43,2,1326,0)="414^KU^KUWAIT"
^XMB(3.9,43,2,1327,0)="""DATA"",779.004,117,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1328,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1329,0)="""DATA"",779.004,117,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1330,0)="3060119.165006^1"
^XMB(3.9,43,2,1331,0)="""DATA"",779.004,117,""VUID"")"
^XMB(3.9,43,2,1332,0)="1006414^1"
^XMB(3.9,43,2,1333,0)="""DATA"",779.004,118,0)"
^XMB(3.9,43,2,1334,0)="KGZ^Kyrgyzstan"
^XMB(3.9,43,2,1335,0)="""DATA"",779.004,118,""SDS"")"
^XMB(3.9,43,2,1336,0)="417^KG^KYRGYZSTAN"
^XMB(3.9,43,2,1337,0)="""DATA"",779.004,118,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1338,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1339,0)="""DATA"",779.004,118,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1340,0)="3060119.165006^1"
^XMB(3.9,43,2,1341,0)="""DATA"",779.004,118,""VUID"")"
^XMB(3.9,43,2,1342,0)="1006417^1"
^XMB(3.9,43,2,1343,0)="""DATA"",779.004,119,0)"
^XMB(3.9,43,2,1344,0)="LAO^Laos"
^XMB(3.9,43,2,1345,0)="""DATA"",779.004,119,""SDS"")"
^XMB(3.9,43,2,1346,0)="418^LA^LAOS"
^XMB(3.9,43,2,1347,0)="""DATA"",779.004,119,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1348,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1349,0)="""DATA"",779.004,119,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1350,0)="3060119.165006^1"
^XMB(3.9,43,2,1351,0)="""DATA"",779.004,119,""VUID"")"
^XMB(3.9,43,2,1352,0)="1006418^1"
^XMB(3.9,43,2,1353,0)="""DATA"",779.004,120,0)"
^XMB(3.9,43,2,1354,0)="LBN^Lebanon"
^XMB(3.9,43,2,1355,0)="""DATA"",779.004,120,""SDS"")"
^XMB(3.9,43,2,1356,0)="422^LE^LEBANON"
^XMB(3.9,43,2,1357,0)="""DATA"",779.004,120,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1358,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1359,0)="""DATA"",779.004,120,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1360,0)="3060119.165006^1"
^XMB(3.9,43,2,1361,0)="""DATA"",779.004,120,""VUID"")"
^XMB(3.9,43,2,1362,0)="1006422^1"
^XMB(3.9,43,2,1363,0)="""DATA"",779.004,121,0)"
^XMB(3.9,43,2,1364,0)="LSO^Lesotho"
^XMB(3.9,43,2,1365,0)="""DATA"",779.004,121,""SDS"")"
^XMB(3.9,43,2,1366,0)="426^LT^LESOTHO"
^XMB(3.9,43,2,1367,0)="""DATA"",779.004,121,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1368,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1369,0)="""DATA"",779.004,121,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1370,0)="3060119.165006^1"
^XMB(3.9,43,2,1371,0)="""DATA"",779.004,121,""VUID"")"
^XMB(3.9,43,2,1372,0)="1006426^1"
^XMB(3.9,43,2,1373,0)="""DATA"",779.004,122,0)"
^XMB(3.9,43,2,1374,0)="LVA^Latvia"
^XMB(3.9,43,2,1375,0)="""DATA"",779.004,122,""SDS"")"
^XMB(3.9,43,2,1376,0)="428^LG^LATVIA"
^XMB(3.9,43,2,1377,0)="""DATA"",779.004,122,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1378,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1379,0)="""DATA"",779.004,122,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1380,0)="3060119.165006^1"
^XMB(3.9,43,2,1381,0)="""DATA"",779.004,122,""VUID"")"
^XMB(3.9,43,2,1382,0)="1006428^1"
^XMB(3.9,43,2,1383,0)="""DATA"",779.004,123,0)"
^XMB(3.9,43,2,1384,0)="LBR^Liberia"
^XMB(3.9,43,2,1385,0)="""DATA"",779.004,123,""SDS"")"
^XMB(3.9,43,2,1386,0)="430^LI^LIBERIA"
^XMB(3.9,43,2,1387,0)="""DATA"",779.004,123,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1388,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1389,0)="""DATA"",779.004,123,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1390,0)="3060119.165006^1"
^XMB(3.9,43,2,1391,0)="""DATA"",779.004,123,""VUID"")"
^XMB(3.9,43,2,1392,0)="1006430^1"
^XMB(3.9,43,2,1393,0)="""DATA"",779.004,124,0)"
^XMB(3.9,43,2,1394,0)="LBY^Libya"
^XMB(3.9,43,2,1395,0)="""DATA"",779.004,124,""SDS"")"
^XMB(3.9,43,2,1396,0)="434^LY^LIBYA"
^XMB(3.9,43,2,1397,0)="""DATA"",779.004,124,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1398,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1399,0)="""DATA"",779.004,124,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1400,0)="3060119.165006^1"
^XMB(3.9,43,2,1401,0)="""DATA"",779.004,124,""VUID"")"
^XMB(3.9,43,2,1402,0)="1006434^1"
^XMB(3.9,43,2,1403,0)="""DATA"",779.004,125,0)"
^XMB(3.9,43,2,1404,0)="LIE^Liechtenstein"
^XMB(3.9,43,2,1405,0)="""DATA"",779.004,125,""SDS"")"
^XMB(3.9,43,2,1406,0)="438^LS^LIECHTENSTEIN"
^XMB(3.9,43,2,1407,0)="""DATA"",779.004,125,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1408,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1409,0)="""DATA"",779.004,125,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1410,0)="3060119.165007^1"
^XMB(3.9,43,2,1411,0)="""DATA"",779.004,125,""VUID"")"
^XMB(3.9,43,2,1412,0)="1006438^1"
^XMB(3.9,43,2,1413,0)="""DATA"",779.004,126,0)"
^XMB(3.9,43,2,1414,0)="LTU^Lithuania"
^XMB(3.9,43,2,1415,0)="""DATA"",779.004,126,""SDS"")"
^XMB(3.9,43,2,1416,0)="440^LH^LITHUANIA"
^XMB(3.9,43,2,1417,0)="""DATA"",779.004,126,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1418,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1419,0)="""DATA"",779.004,126,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1420,0)="3060119.165007^1"
^XMB(3.9,43,2,1421,0)="""DATA"",779.004,126,""VUID"")"
^XMB(3.9,43,2,1422,0)="1006440^1"
^XMB(3.9,43,2,1423,0)="""DATA"",779.004,127,0)"
^XMB(3.9,43,2,1424,0)="LUX^Luxembourg"
^XMB(3.9,43,2,1425,0)="""DATA"",779.004,127,""SDS"")"
^XMB(3.9,43,2,1426,0)="442^LU^LUXEMBOURG"
^XMB(3.9,43,2,1427,0)="""DATA"",779.004,127,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1428,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1429,0)="""DATA"",779.004,127,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1430,0)="3060119.165007^1"
^XMB(3.9,43,2,1431,0)="""DATA"",779.004,127,""VUID"")"
^XMB(3.9,43,2,1432,0)="1006442^1"
^XMB(3.9,43,2,1433,0)="""DATA"",779.004,128,0)"
^XMB(3.9,43,2,1434,0)="MAC^Macao"
^XMB(3.9,43,2,1435,0)="""DATA"",779.004,128,""SDS"")"
^XMB(3.9,43,2,1436,0)="446^MC^MACAO"
^XMB(3.9,43,2,1437,0)="""DATA"",779.004,128,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1438,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1439,0)="""DATA"",779.004,128,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1440,0)="3060119.165007^1"
^XMB(3.9,43,2,1441,0)="""DATA"",779.004,128,""VUID"")"
^XMB(3.9,43,2,1442,0)="1006446^1"
^XMB(3.9,43,2,1443,0)="""DATA"",779.004,129,0)"
^XMB(3.9,43,2,1444,0)="MDG^Madagascar"
^XMB(3.9,43,2,1445,0)="""DATA"",779.004,129,""SDS"")"
^XMB(3.9,43,2,1446,0)="450^MA^MADAGASCAR"
^XMB(3.9,43,2,1447,0)="""DATA"",779.004,129,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1448,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1449,0)="""DATA"",779.004,129,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1450,0)="3060119.165007^1"
^XMB(3.9,43,2,1451,0)="""DATA"",779.004,129,""VUID"")"
^XMB(3.9,43,2,1452,0)="1006450^1"
^XMB(3.9,43,2,1453,0)="""DATA"",779.004,130,0)"
^XMB(3.9,43,2,1454,0)="MWI^Malawi"
^XMB(3.9,43,2,1455,0)="""DATA"",779.004,130,""SDS"")"
^XMB(3.9,43,2,1456,0)="454^MI^MALAWI"
^XMB(3.9,43,2,1457,0)="""DATA"",779.004,130,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1458,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1459,0)="""DATA"",779.004,130,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1460,0)="3060119.165007^1"
^XMB(3.9,43,2,1461,0)="""DATA"",779.004,130,""VUID"")"
^XMB(3.9,43,2,1462,0)="1006454^1"
^XMB(3.9,43,2,1463,0)="""DATA"",779.004,131,0)"
^XMB(3.9,43,2,1464,0)="MYS^Malaysia"
^XMB(3.9,43,2,1465,0)="""DATA"",779.004,131,""SDS"")"
^XMB(3.9,43,2,1466,0)="458^MY^MALAYSIA"
^XMB(3.9,43,2,1467,0)="""DATA"",779.004,131,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1468,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1469,0)="""DATA"",779.004,131,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1470,0)="3060119.165007^1"
^XMB(3.9,43,2,1471,0)="""DATA"",779.004,131,""VUID"")"
^XMB(3.9,43,2,1472,0)="1006458^1"
^XMB(3.9,43,2,1473,0)="""DATA"",779.004,132,0)"
^XMB(3.9,43,2,1474,0)="MDV^Maldives"
^XMB(3.9,43,2,1475,0)="""DATA"",779.004,132,""SDS"")"
^XMB(3.9,43,2,1476,0)="462^MV^MALDIVES"
^XMB(3.9,43,2,1477,0)="""DATA"",779.004,132,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1478,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1479,0)="""DATA"",779.004,132,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1480,0)="3060119.165007^1"
^XMB(3.9,43,2,1481,0)="""DATA"",779.004,132,""VUID"")"
^XMB(3.9,43,2,1482,0)="1006462^1"
^XMB(3.9,43,2,1483,0)="""DATA"",779.004,133,0)"
^XMB(3.9,43,2,1484,0)="MLI^Mali"
^XMB(3.9,43,2,1485,0)="""DATA"",779.004,133,""SDS"")"
^XMB(3.9,43,2,1486,0)="466^ML^MALI"
^XMB(3.9,43,2,1487,0)="""DATA"",779.004,133,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1488,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1489,0)="""DATA"",779.004,133,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1490,0)="3060119.165007^1"
^XMB(3.9,43,2,1491,0)="""DATA"",779.004,133,""VUID"")"
^XMB(3.9,43,2,1492,0)="1006466^1"
^XMB(3.9,43,2,1493,0)="""DATA"",779.004,134,0)"
^XMB(3.9,43,2,1494,0)="MLT^Malta"
^XMB(3.9,43,2,1495,0)="""DATA"",779.004,134,""SDS"")"
^XMB(3.9,43,2,1496,0)="470^MT^MALTA"
^XMB(3.9,43,2,1497,0)="""DATA"",779.004,134,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1498,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1499,0)="""DATA"",779.004,134,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1500,0)="3060119.165007^1"
^XMB(3.9,43,2,1501,0)="""DATA"",779.004,134,""VUID"")"
^XMB(3.9,43,2,1502,0)="1006470^1"
^XMB(3.9,43,2,1503,0)="""DATA"",779.004,135,0)"
^XMB(3.9,43,2,1504,0)="MTQ^Martinique"
^XMB(3.9,43,2,1505,0)="""DATA"",779.004,135,""SDS"")"
^XMB(3.9,43,2,1506,0)="474^MB^MARTINIQUE"
^XMB(3.9,43,2,1507,0)="""DATA"",779.004,135,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1508,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1509,0)="""DATA"",779.004,135,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1510,0)="3060119.165007^1"
^XMB(3.9,43,2,1511,0)="""DATA"",779.004,135,""VUID"")"
^XMB(3.9,43,2,1512,0)="1006474^1"
^XMB(3.9,43,2,1513,0)="""DATA"",779.004,136,0)"
^XMB(3.9,43,2,1514,0)="MRT^Mauritania"
^XMB(3.9,43,2,1515,0)="""DATA"",779.004,136,""SDS"")"
^XMB(3.9,43,2,1516,0)="478^MR^MAURITANIA"
^XMB(3.9,43,2,1517,0)="""DATA"",779.004,136,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1518,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1519,0)="""DATA"",779.004,136,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1520,0)="3060119.165007^1"
^XMB(3.9,43,2,1521,0)="""DATA"",779.004,136,""VUID"")"
^XMB(3.9,43,2,1522,0)="1006478^1"
^XMB(3.9,43,2,1523,0)="""DATA"",779.004,137,0)"
^XMB(3.9,43,2,1524,0)="MUS^Mauritius"
^XMB(3.9,43,2,1525,0)="""DATA"",779.004,137,""SDS"")"
^XMB(3.9,43,2,1526,0)="480^MP^MAURITIUS"
^XMB(3.9,43,2,1527,0)="""DATA"",779.004,137,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1528,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1529,0)="""DATA"",779.004,137,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1530,0)="3060119.165007^1"
^XMB(3.9,43,2,1531,0)="""DATA"",779.004,137,""VUID"")"
^XMB(3.9,43,2,1532,0)="1006480^1"
^XMB(3.9,43,2,1533,0)="""DATA"",779.004,138,0)"
^XMB(3.9,43,2,1534,0)="MEX^Mexico"
^XMB(3.9,43,2,1535,0)="""DATA"",779.004,138,""SDS"")"
^XMB(3.9,43,2,1536,0)="484^MX^MEXICO"
^XMB(3.9,43,2,1537,0)="""DATA"",779.004,138,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1538,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1539,0)="""DATA"",779.004,138,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1540,0)="3060119.165007^1"
^XMB(3.9,43,2,1541,0)="""DATA"",779.004,138,""VUID"")"
^XMB(3.9,43,2,1542,0)="1006484^1"
^XMB(3.9,43,2,1543,0)="""DATA"",779.004,139,0)"
^XMB(3.9,43,2,1544,0)="MCO^Monaco"
^XMB(3.9,43,2,1545,0)="""DATA"",779.004,139,""SDS"")"
^XMB(3.9,43,2,1546,0)="492^MN^FRANCE"
^XMB(3.9,43,2,1547,0)="""DATA"",779.004,139,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1548,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1549,0)="""DATA"",779.004,139,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1550,0)="3060119.165007^1"
^XMB(3.9,43,2,1551,0)="""DATA"",779.004,139,""VUID"")"
^XMB(3.9,43,2,1552,0)="1006492^1"
^XMB(3.9,43,2,1553,0)="""DATA"",779.004,140,0)"
^XMB(3.9,43,2,1554,0)="MNG^Mongolia"
^XMB(3.9,43,2,1555,0)="""DATA"",779.004,140,""SDS"")"
^XMB(3.9,43,2,1556,0)="496^MG^MONGOLIA"
^XMB(3.9,43,2,1557,0)="""DATA"",779.004,140,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1558,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1559,0)="""DATA"",779.004,140,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1560,0)="3060119.165007^1"
^XMB(3.9,43,2,1561,0)="""DATA"",779.004,140,""VUID"")"
^XMB(3.9,43,2,1562,0)="1006496^1"
^XMB(3.9,43,2,1563,0)="""DATA"",779.004,141,0)"
^XMB(3.9,43,2,1564,0)="MDA^Moldova"
^XMB(3.9,43,2,1565,0)="""DATA"",779.004,141,""SDS"")"
^XMB(3.9,43,2,1566,0)="498^MD^MOLDOVA"
^XMB(3.9,43,2,1567,0)="""DATA"",779.004,141,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1568,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1569,0)="""DATA"",779.004,141,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1570,0)="3060119.165007^1"
^XMB(3.9,43,2,1571,0)="""DATA"",779.004,141,""VUID"")"
^XMB(3.9,43,2,1572,0)="1006498^1"
^XMB(3.9,43,2,1573,0)="""DATA"",779.004,142,0)"
^XMB(3.9,43,2,1574,0)="MSR^Montserrat"
^XMB(3.9,43,2,1575,0)="""DATA"",779.004,142,""SDS"")"
^XMB(3.9,43,2,1576,0)="500^MH^MONTSERRAT"
^XMB(3.9,43,2,1577,0)="""DATA"",779.004,142,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1578,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1579,0)="""DATA"",779.004,142,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1580,0)="3060119.165007^1"
^XMB(3.9,43,2,1581,0)="""DATA"",779.004,142,""VUID"")"
^XMB(3.9,43,2,1582,0)="1006500^1"
^XMB(3.9,43,2,1583,0)="""DATA"",779.004,143,0)"
^XMB(3.9,43,2,1584,0)="MAR^Morocco"
^XMB(3.9,43,2,1585,0)="""DATA"",779.004,143,""SDS"")"
^XMB(3.9,43,2,1586,0)="504^MO^MOROCCO"
^XMB(3.9,43,2,1587,0)="""DATA"",779.004,143,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1588,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1589,0)="""DATA"",779.004,143,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1590,0)="3060119.165007^1"
^XMB(3.9,43,2,1591,0)="""DATA"",779.004,143,""VUID"")"
^XMB(3.9,43,2,1592,0)="1006504^1"
^XMB(3.9,43,2,1593,0)="""DATA"",779.004,144,0)"
^XMB(3.9,43,2,1594,0)="MOZ^Mozambique"
^XMB(3.9,43,2,1595,0)="""DATA"",779.004,144,""SDS"")"
^XMB(3.9,43,2,1596,0)="508^MZ^MOZAMBIQUE"
^XMB(3.9,43,2,1597,0)="""DATA"",779.004,144,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1598,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1599,0)="""DATA"",779.004,144,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1600,0)="3060119.165007^1"
^XMB(3.9,43,2,1601,0)="""DATA"",779.004,144,""VUID"")"
^XMB(3.9,43,2,1602,0)="1006508^1"
^XMB(3.9,43,2,1603,0)="""DATA"",779.004,145,0)"
^XMB(3.9,43,2,1604,0)="OMN^Oman"
^XMB(3.9,43,2,1605,0)="""DATA"",779.004,145,""SDS"")"
^XMB(3.9,43,2,1606,0)="512^MU^OMAN"
^XMB(3.9,43,2,1607,0)="""DATA"",779.004,145,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1608,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1609,0)="""DATA"",779.004,145,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1610,0)="3060119.165007^1"
^XMB(3.9,43,2,1611,0)="""DATA"",779.004,145,""VUID"")"
^XMB(3.9,43,2,1612,0)="1006512^1"
^XMB(3.9,43,2,1613,0)="""DATA"",779.004,146,0)"
^XMB(3.9,43,2,1614,0)="NAM^Namibia"
^XMB(3.9,43,2,1615,0)="""DATA"",779.004,146,""SDS"")"
^XMB(3.9,43,2,1616,0)="516^WA^NAMIBIA"
^XMB(3.9,43,2,1617,0)="""DATA"",779.004,146,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1618,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1619,0)="""DATA"",779.004,146,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1620,0)="3060119.165007^1"
^XMB(3.9,43,2,1621,0)="""DATA"",779.004,146,""VUID"")"
^XMB(3.9,43,2,1622,0)="1006516^1"
^XMB(3.9,43,2,1623,0)="""DATA"",779.004,147,0)"
^XMB(3.9,43,2,1624,0)="NRU^Nauru"
^XMB(3.9,43,2,1625,0)="""DATA"",779.004,147,""SDS"")"
^XMB(3.9,43,2,1626,0)="520^NR^NAURU"
^XMB(3.9,43,2,1627,0)="""DATA"",779.004,147,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1628,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1629,0)="""DATA"",779.004,147,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1630,0)="3060119.165007^1"
^XMB(3.9,43,2,1631,0)="""DATA"",779.004,147,""VUID"")"
^XMB(3.9,43,2,1632,0)="1006520^1"
^XMB(3.9,43,2,1633,0)="""DATA"",779.004,148,0)"
^XMB(3.9,43,2,1634,0)="NPL^Nepal"
^XMB(3.9,43,2,1635,0)="""DATA"",779.004,148,""SDS"")"
^XMB(3.9,43,2,1636,0)="524^NP^NEPAL"
^XMB(3.9,43,2,1637,0)="""DATA"",779.004,148,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1638,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1639,0)="""DATA"",779.004,148,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1640,0)="3060119.165007^1"
^XMB(3.9,43,2,1641,0)="""DATA"",779.004,148,""VUID"")"
^XMB(3.9,43,2,1642,0)="1006524^1"
^XMB(3.9,43,2,1643,0)="""DATA"",779.004,149,0)"
^XMB(3.9,43,2,1644,0)="NLD^Netherlands"
^XMB(3.9,43,2,1645,0)="""DATA"",779.004,149,""SDS"")"
^XMB(3.9,43,2,1646,0)="528^NL^NETHERLANDS"
^XMB(3.9,43,2,1647,0)="""DATA"",779.004,149,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1648,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1649,0)="""DATA"",779.004,149,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1650,0)="3060119.165007^1"
^XMB(3.9,43,2,1651,0)="""DATA"",779.004,149,""VUID"")"
^XMB(3.9,43,2,1652,0)="1006528^1"
^XMB(3.9,43,2,1653,0)="""DATA"",779.004,150,0)"
^XMB(3.9,43,2,1654,0)="ANT^Netherlands Antilles"
^XMB(3.9,43,2,1655,0)="""DATA"",779.004,150,""SDS"")"
^XMB(3.9,43,2,1656,0)="530^NT^NETHERLANDS ANTILLES"
^XMB(3.9,43,2,1657,0)="""DATA"",779.004,150,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1658,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1659,0)="""DATA"",779.004,150,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1660,0)="3060119.165007^1"
^XMB(3.9,43,2,1661,0)="""DATA"",779.004,150,""VUID"")"
^XMB(3.9,43,2,1662,0)="1006530^1"
^XMB(3.9,43,2,1663,0)="""DATA"",779.004,151,0)"
^XMB(3.9,43,2,1664,0)="ABW^Aruba"
^XMB(3.9,43,2,1665,0)="""DATA"",779.004,151,""SDS"")"
^XMB(3.9,43,2,1666,0)="533^AA^ARUBA"
^XMB(3.9,43,2,1667,0)="""DATA"",779.004,151,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1668,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1669,0)="""DATA"",779.004,151,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1670,0)="3060119.165007^1"
^XMB(3.9,43,2,1671,0)="""DATA"",779.004,151,""VUID"")"
^XMB(3.9,43,2,1672,0)="1006533^1"
^XMB(3.9,43,2,1673,0)="""DATA"",779.004,152,0)"
^XMB(3.9,43,2,1674,0)="NCL^New Caledonia"
^XMB(3.9,43,2,1675,0)="""DATA"",779.004,152,""SDS"")"
^XMB(3.9,43,2,1676,0)="540^NC^NEW CALEDONIA"
^XMB(3.9,43,2,1677,0)="""DATA"",779.004,152,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1678,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1679,0)="""DATA"",779.004,152,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1680,0)="3060119.165007^1"
^XMB(3.9,43,2,1681,0)="""DATA"",779.004,152,""VUID"")"
^XMB(3.9,43,2,1682,0)="1006540^1"
^XMB(3.9,43,2,1683,0)="""DATA"",779.004,153,0)"
^XMB(3.9,43,2,1684,0)="VUT^Vanuatu"
^XMB(3.9,43,2,1685,0)="""DATA"",779.004,153,""SDS"")"
^XMB(3.9,43,2,1686,0)="548^NH^VANUATU"
^XMB(3.9,43,2,1687,0)="""DATA"",779.004,153,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1688,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1689,0)="""DATA"",779.004,153,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1690,0)="3060119.165007^1"
^XMB(3.9,43,2,1691,0)="""DATA"",779.004,153,""VUID"")"
^XMB(3.9,43,2,1692,0)="1006548^1"
^XMB(3.9,43,2,1693,0)="""DATA"",779.004,154,0)"
^XMB(3.9,43,2,1694,0)="NZL^New Zealand"
^XMB(3.9,43,2,1695,0)="""DATA"",779.004,154,""SDS"")"
^XMB(3.9,43,2,1696,0)="554^NZ^NEW ZEALAND"
^XMB(3.9,43,2,1697,0)="""DATA"",779.004,154,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1698,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1699,0)="""DATA"",779.004,154,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1700,0)="3060119.165007^1"
^XMB(3.9,43,2,1701,0)="""DATA"",779.004,154,""VUID"")"
^XMB(3.9,43,2,1702,0)="1006554^1"
^XMB(3.9,43,2,1703,0)="""DATA"",779.004,155,0)"
^XMB(3.9,43,2,1704,0)="NIC^Nicaragua"
^XMB(3.9,43,2,1705,0)="""DATA"",779.004,155,""SDS"")"
^XMB(3.9,43,2,1706,0)="558^NU^NICARAGUA"
^XMB(3.9,43,2,1707,0)="""DATA"",779.004,155,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1708,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1709,0)="""DATA"",779.004,155,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1710,0)="3060119.165007^1"
^XMB(3.9,43,2,1711,0)="""DATA"",779.004,155,""VUID"")"
^XMB(3.9,43,2,1712,0)="1006558^1"
^XMB(3.9,43,2,1713,0)="""DATA"",779.004,156,0)"
^XMB(3.9,43,2,1714,0)="NER^Niger"
^XMB(3.9,43,2,1715,0)="""DATA"",779.004,156,""SDS"")"
^XMB(3.9,43,2,1716,0)="562^NG^NIGER"
^XMB(3.9,43,2,1717,0)="""DATA"",779.004,156,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1718,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1719,0)="""DATA"",779.004,156,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1720,0)="3060119.165007^1"
^XMB(3.9,43,2,1721,0)="""DATA"",779.004,156,""VUID"")"
^XMB(3.9,43,2,1722,0)="1006562^1"
^XMB(3.9,43,2,1723,0)="""DATA"",779.004,157,0)"
^XMB(3.9,43,2,1724,0)="NGA^Nigeria"
^XMB(3.9,43,2,1725,0)="""DATA"",779.004,157,""SDS"")"
^XMB(3.9,43,2,1726,0)="566^NI^NIGERIA"
^XMB(3.9,43,2,1727,0)="""DATA"",779.004,157,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1728,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1729,0)="""DATA"",779.004,157,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1730,0)="3060119.165007^1"
^XMB(3.9,43,2,1731,0)="""DATA"",779.004,157,""VUID"")"
^XMB(3.9,43,2,1732,0)="1006566^1"
^XMB(3.9,43,2,1733,0)="""DATA"",779.004,158,0)"
^XMB(3.9,43,2,1734,0)="NIU^Niue"
^XMB(3.9,43,2,1735,0)="""DATA"",779.004,158,""SDS"")"
^XMB(3.9,43,2,1736,0)="570^NE^NEW ZEALAND"
^XMB(3.9,43,2,1737,0)="""DATA"",779.004,158,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1738,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1739,0)="""DATA"",779.004,158,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1740,0)="3060119.165007^1"
^XMB(3.9,43,2,1741,0)="""DATA"",779.004,158,""VUID"")"
^XMB(3.9,43,2,1742,0)="1006570^1"
^XMB(3.9,43,2,1743,0)="""DATA"",779.004,159,0)"
^XMB(3.9,43,2,1744,0)="NFK^Norfolk Island"
^XMB(3.9,43,2,1745,0)="""DATA"",779.004,159,""SDS"")"
^XMB(3.9,43,2,1746,0)="574^NF^AUSTRALIA"
^XMB(3.9,43,2,1747,0)="""DATA"",779.004,159,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1748,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1749,0)="""DATA"",779.004,159,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1750,0)="3060119.165007^1"
^XMB(3.9,43,2,1751,0)="""DATA"",779.004,159,""VUID"")"
^XMB(3.9,43,2,1752,0)="1006574^1"
^XMB(3.9,43,2,1753,0)="""DATA"",779.004,160,0)"
^XMB(3.9,43,2,1754,0)="NOR^Norway"
^XMB(3.9,43,2,1755,0)="""DATA"",779.004,160,""SDS"")"
^XMB(3.9,43,2,1756,0)="578^NO^NORWAY"
^XMB(3.9,43,2,1757,0)="""DATA"",779.004,160,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1758,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1759,0)="""DATA"",779.004,160,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1760,0)="3060119.165007^1"
^XMB(3.9,43,2,1761,0)="""DATA"",779.004,160,""VUID"")"
^XMB(3.9,43,2,1762,0)="1006578^1"
^XMB(3.9,43,2,1763,0)="""DATA"",779.004,161,0)"
^XMB(3.9,43,2,1764,0)="FSM^Micronesia"
^XMB(3.9,43,2,1765,0)="""DATA"",779.004,161,""SDS"")"
^XMB(3.9,43,2,1766,0)="583^FM^FEDERATED STATES OF MICRONESIA"
^XMB(3.9,43,2,1767,0)="""DATA"",779.004,161,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1768,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1769,0)="""DATA"",779.004,161,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1770,0)="3060119.165007^1"
^XMB(3.9,43,2,1771,0)="""DATA"",779.004,161,""VUID"")"
^XMB(3.9,43,2,1772,0)="1006583^1"
^XMB(3.9,43,2,1773,0)="""DATA"",779.004,162,0)"
^XMB(3.9,43,2,1774,0)="PAK^Pakistan"
^XMB(3.9,43,2,1775,0)="""DATA"",779.004,162,""SDS"")"
^XMB(3.9,43,2,1776,0)="586^PK^PAKISTAN"
^XMB(3.9,43,2,1777,0)="""DATA"",779.004,162,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1778,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1779,0)="""DATA"",779.004,162,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1780,0)="3060119.165007^1"
^XMB(3.9,43,2,1781,0)="""DATA"",779.004,162,""VUID"")"
^XMB(3.9,43,2,1782,0)="1006586^1"
^XMB(3.9,43,2,1783,0)="""DATA"",779.004,163,0)"
^XMB(3.9,43,2,1784,0)="PAN^Panama"
^XMB(3.9,43,2,1785,0)="""DATA"",779.004,163,""SDS"")"
^XMB(3.9,43,2,1786,0)="591^PM^PANAMA"
^XMB(3.9,43,2,1787,0)="""DATA"",779.004,163,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1788,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1789,0)="""DATA"",779.004,163,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1790,0)="3060119.165007^1"
^XMB(3.9,43,2,1791,0)="""DATA"",779.004,163,""VUID"")"
^XMB(3.9,43,2,1792,0)="1006591^1"
^XMB(3.9,43,2,1793,0)="""DATA"",779.004,164,0)"
^XMB(3.9,43,2,1794,0)="PNG^Papua New Guinea"
^XMB(3.9,43,2,1795,0)="""DATA"",779.004,164,""SDS"")"
^XMB(3.9,43,2,1796,0)="598^PP^PAPUA NEW GUINEA"
^XMB(3.9,43,2,1797,0)="""DATA"",779.004,164,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1798,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1799,0)="""DATA"",779.004,164,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1800,0)="3060119.165007^1"
^XMB(3.9,43,2,1801,0)="""DATA"",779.004,164,""VUID"")"
^XMB(3.9,43,2,1802,0)="1006598^1"
^XMB(3.9,43,2,1803,0)="""DATA"",779.004,165,0)"
^XMB(3.9,43,2,1804,0)="PRY^Paraguay"
^XMB(3.9,43,2,1805,0)="""DATA"",779.004,165,""SDS"")"
^XMB(3.9,43,2,1806,0)="600^PA^PARAGUAY"
^XMB(3.9,43,2,1807,0)="""DATA"",779.004,165,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1808,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1809,0)="""DATA"",779.004,165,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1810,0)="3060119.165007^1"
^XMB(3.9,43,2,1811,0)="""DATA"",779.004,165,""VUID"")"
^XMB(3.9,43,2,1812,0)="1006600^1"
^XMB(3.9,43,2,1813,0)="""DATA"",779.004,166,0)"
^XMB(3.9,43,2,1814,0)="PER^Peru"
^XMB(3.9,43,2,1815,0)="""DATA"",779.004,166,""SDS"")"
^XMB(3.9,43,2,1816,0)="604^PE^PERU"
^XMB(3.9,43,2,1817,0)="""DATA"",779.004,166,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1818,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1819,0)="""DATA"",779.004,166,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1820,0)="3060119.165007^1"
^XMB(3.9,43,2,1821,0)="""DATA"",779.004,166,""VUID"")"
^XMB(3.9,43,2,1822,0)="1006604^1"
^XMB(3.9,43,2,1823,0)="""DATA"",779.004,167,0)"
^XMB(3.9,43,2,1824,0)="PHL^Philippines"
^XMB(3.9,43,2,1825,0)="""DATA"",779.004,167,""SDS"")"
^XMB(3.9,43,2,1826,0)="608^RP^PHILIPPINES"
^XMB(3.9,43,2,1827,0)="""DATA"",779.004,167,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1828,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1829,0)="""DATA"",779.004,167,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1830,0)="3060119.165007^1"
^XMB(3.9,43,2,1831,0)="""DATA"",779.004,167,""VUID"")"
^XMB(3.9,43,2,1832,0)="1006608^1"
^XMB(3.9,43,2,1833,0)="""DATA"",779.004,168,0)"
^XMB(3.9,43,2,1834,0)="PCN^Pitcairn"
^XMB(3.9,43,2,1835,0)="""DATA"",779.004,168,""SDS"")"
^XMB(3.9,43,2,1836,0)="612^PC^PITCAIRN ISLAND"
^XMB(3.9,43,2,1837,0)="""DATA"",779.004,168,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1838,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1839,0)="""DATA"",779.004,168,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1840,0)="3060119.165007^1"
^XMB(3.9,43,2,1841,0)="""DATA"",779.004,168,""VUID"")"
^XMB(3.9,43,2,1842,0)="1006612^1"
^XMB(3.9,43,2,1843,0)="""DATA"",779.004,169,0)"
^XMB(3.9,43,2,1844,0)="POL^Poland"
^XMB(3.9,43,2,1845,0)="""DATA"",779.004,169,""SDS"")"
^XMB(3.9,43,2,1846,0)="616^PL^POLAND"
^XMB(3.9,43,2,1847,0)="""DATA"",779.004,169,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1848,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1849,0)="""DATA"",779.004,169,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1850,0)="3060119.165007^1"
^XMB(3.9,43,2,1851,0)="""DATA"",779.004,169,""VUID"")"
^XMB(3.9,43,2,1852,0)="1006616^1"
^XMB(3.9,43,2,1853,0)="""DATA"",779.004,170,0)"
^XMB(3.9,43,2,1854,0)="PRT^Portugal"
^XMB(3.9,43,2,1855,0)="""DATA"",779.004,170,""SDS"")"
^XMB(3.9,43,2,1856,0)="620^PO^PORTUGAL"
^XMB(3.9,43,2,1857,0)="""DATA"",779.004,170,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1858,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1859,0)="""DATA"",779.004,170,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1860,0)="3060119.165007^1"
^XMB(3.9,43,2,1861,0)="""DATA"",779.004,170,""VUID"")"
^XMB(3.9,43,2,1862,0)="1006620^1"
^XMB(3.9,43,2,1863,0)="""DATA"",779.004,171,0)"
^XMB(3.9,43,2,1864,0)="GNB^Guinea-Bissau"
^XMB(3.9,43,2,1865,0)="""DATA"",779.004,171,""SDS"")"
^XMB(3.9,43,2,1866,0)="624^PU^GUINEA-BISSAU"
^XMB(3.9,43,2,1867,0)="""DATA"",779.004,171,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1868,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1869,0)="""DATA"",779.004,171,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1870,0)="3060119.165007^1"
^XMB(3.9,43,2,1871,0)="""DATA"",779.004,171,""VUID"")"
^XMB(3.9,43,2,1872,0)="1006624^1"
^XMB(3.9,43,2,1873,0)="""DATA"",779.004,172,0)"
^XMB(3.9,43,2,1874,0)="TLS^Timor-Leste"
^XMB(3.9,43,2,1875,0)="""DATA"",779.004,172,""SDS"")"
^XMB(3.9,43,2,1876,0)="626^TT^INDONESIA"
^XMB(3.9,43,2,1877,0)="""DATA"",779.004,172,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1878,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1879,0)="""DATA"",779.004,172,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1880,0)="3060119.165007^1"
^XMB(3.9,43,2,1881,0)="""DATA"",779.004,172,""VUID"")"
^XMB(3.9,43,2,1882,0)="1006626^1"
^XMB(3.9,43,2,1883,0)="""DATA"",779.004,173,0)"
^XMB(3.9,43,2,1884,0)="QAT^Qatar"
^XMB(3.9,43,2,1885,0)="""DATA"",779.004,173,""SDS"")"
^XMB(3.9,43,2,1886,0)="634^QA^QATAR"
^XMB(3.9,43,2,1887,0)="""DATA"",779.004,173,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1888,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1889,0)="""DATA"",779.004,173,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1890,0)="3060119.165007^1"
^XMB(3.9,43,2,1891,0)="""DATA"",779.004,173,""VUID"")"
^XMB(3.9,43,2,1892,0)="1006634^1"
^XMB(3.9,43,2,1893,0)="""DATA"",779.004,174,0)"
^XMB(3.9,43,2,1894,0)="REU^Réunion"
^XMB(3.9,43,2,1895,0)="""DATA"",779.004,174,""SDS"")"
^XMB(3.9,43,2,1896,0)="638^RE^RÉUNION"
^XMB(3.9,43,2,1897,0)="""DATA"",779.004,174,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1898,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1899,0)="""DATA"",779.004,174,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1900,0)="3060119.165007^1"
^XMB(3.9,43,2,1901,0)="""DATA"",779.004,174,""VUID"")"
^XMB(3.9,43,2,1902,0)="1006638^1"
^XMB(3.9,43,2,1903,0)="""DATA"",779.004,175,0)"
^XMB(3.9,43,2,1904,0)="ROU^Romania"
^XMB(3.9,43,2,1905,0)="""DATA"",779.004,175,""SDS"")"
^XMB(3.9,43,2,1906,0)="642^RO^ROMANIA"
^XMB(3.9,43,2,1907,0)="""DATA"",779.004,175,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1908,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1909,0)="""DATA"",779.004,175,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1910,0)="3060119.165007^1"
^XMB(3.9,43,2,1911,0)="""DATA"",779.004,175,""VUID"")"
^XMB(3.9,43,2,1912,0)="1006642^1"
^XMB(3.9,43,2,1913,0)="""DATA"",779.004,176,0)"
^XMB(3.9,43,2,1914,0)="RUS^Russian Federation"
^XMB(3.9,43,2,1915,0)="""DATA"",779.004,176,""SDS"")"
^XMB(3.9,43,2,1916,0)="643^RS^RUSSIA"
^XMB(3.9,43,2,1917,0)="""DATA"",779.004,176,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1918,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1919,0)="""DATA"",779.004,176,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1920,0)="3060119.165007^1"
^XMB(3.9,43,2,1921,0)="""DATA"",779.004,176,""VUID"")"
^XMB(3.9,43,2,1922,0)="1006643^1"
^XMB(3.9,43,2,1923,0)="""DATA"",779.004,177,0)"
^XMB(3.9,43,2,1924,0)="RWA^Rwanda"
^XMB(3.9,43,2,1925,0)="""DATA"",779.004,177,""SDS"")"
^XMB(3.9,43,2,1926,0)="646^RW^RWANDA"
^XMB(3.9,43,2,1927,0)="""DATA"",779.004,177,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1928,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1929,0)="""DATA"",779.004,177,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1930,0)="3060119.165007^1"
^XMB(3.9,43,2,1931,0)="""DATA"",779.004,177,""VUID"")"
^XMB(3.9,43,2,1932,0)="1006646^1"
^XMB(3.9,43,2,1933,0)="""DATA"",779.004,178,0)"
^XMB(3.9,43,2,1934,0)="SHN^Saint Helena"
^XMB(3.9,43,2,1935,0)="""DATA"",779.004,178,""SDS"")"
^XMB(3.9,43,2,1936,0)="654^SH^SAINT HELENA"
^XMB(3.9,43,2,1937,0)="""DATA"",779.004,178,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1938,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1939,0)="""DATA"",779.004,178,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1940,0)="3060119.165007^1"
^XMB(3.9,43,2,1941,0)="""DATA"",779.004,178,""VUID"")"
^XMB(3.9,43,2,1942,0)="1006654^1"
^XMB(3.9,43,2,1943,0)="""DATA"",779.004,179,0)"
^XMB(3.9,43,2,1944,0)="KNA^Saint Kitts and Nevis"
^XMB(3.9,43,2,1945,0)="""DATA"",779.004,179,""SDS"")"
^XMB(3.9,43,2,1946,0)="659^SC^SAINT CHRISTOPHER (ST. KITTS) AND NEVIS"
^XMB(3.9,43,2,1947,0)="""DATA"",779.004,179,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1948,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1949,0)="""DATA"",779.004,179,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1950,0)="3060119.165007^1"
^XMB(3.9,43,2,1951,0)="""DATA"",779.004,179,""VUID"")"
^XMB(3.9,43,2,1952,0)="1006659^1"
^XMB(3.9,43,2,1953,0)="""DATA"",779.004,180,0)"
^XMB(3.9,43,2,1954,0)="AIA^Anguilla"
^XMB(3.9,43,2,1955,0)="""DATA"",779.004,180,""SDS"")"
^XMB(3.9,43,2,1956,0)="660^AV^ANGUILLA"
^XMB(3.9,43,2,1957,0)="""DATA"",779.004,180,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1958,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1959,0)="""DATA"",779.004,180,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1960,0)="3060119.165007^1"
^XMB(3.9,43,2,1961,0)="""DATA"",779.004,180,""VUID"")"
^XMB(3.9,43,2,1962,0)="1006660^1"
^XMB(3.9,43,2,1963,0)="""DATA"",779.004,181,0)"
^XMB(3.9,43,2,1964,0)="LCA^Saint Lucia"
^XMB(3.9,43,2,1965,0)="""DATA"",779.004,181,""SDS"")"
^XMB(3.9,43,2,1966,0)="662^ST^SAINT LUCIA"
^XMB(3.9,43,2,1967,0)="""DATA"",779.004,181,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1968,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1969,0)="""DATA"",779.004,181,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1970,0)="3060119.165007^1"
^XMB(3.9,43,2,1971,0)="""DATA"",779.004,181,""VUID"")"
^XMB(3.9,43,2,1972,0)="1006662^1"
^XMB(3.9,43,2,1973,0)="""DATA"",779.004,182,0)"
^XMB(3.9,43,2,1974,0)="SPM^Saint Pierre and Miquelon"
^XMB(3.9,43,2,1975,0)="""DATA"",779.004,182,""SDS"")"
^XMB(3.9,43,2,1976,0)="666^SB^SAINT PIERRE AND MIQUELON"
^XMB(3.9,43,2,1977,0)="""DATA"",779.004,182,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1978,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1979,0)="""DATA"",779.004,182,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1980,0)="3060119.165007^1"
^XMB(3.9,43,2,1981,0)="""DATA"",779.004,182,""VUID"")"
^XMB(3.9,43,2,1982,0)="1006666^1"
^XMB(3.9,43,2,1983,0)="""DATA"",779.004,183,0)"
^XMB(3.9,43,2,1984,0)="VCT^Saint Vincent and the Grenadines"
^XMB(3.9,43,2,1985,0)="""DATA"",779.004,183,""SDS"")"
^XMB(3.9,43,2,1986,0)="670^VC^SAINT VINCENT AND THE GRENADINES"
^XMB(3.9,43,2,1987,0)="""DATA"",779.004,183,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1988,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1989,0)="""DATA"",779.004,183,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,1990,0)="3060119.165007^1"
^XMB(3.9,43,2,1991,0)="""DATA"",779.004,183,""VUID"")"
^XMB(3.9,43,2,1992,0)="1006670^1"
^XMB(3.9,43,2,1993,0)="""DATA"",779.004,184,0)"
^XMB(3.9,43,2,1994,0)="SMR^San Marino"
^XMB(3.9,43,2,1995,0)="""DATA"",779.004,184,""SDS"")"
^XMB(3.9,43,2,1996,0)="674^SM^SAN MARINO"
^XMB(3.9,43,2,1997,0)="""DATA"",779.004,184,""TERMSTATUS"",0)"
^XMB(3.9,43,2,1998,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,1999,0)="""DATA"",779.004,184,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2000,0)="3060119.165007^1"
^XMB(3.9,43,2,2001,0)="""DATA"",779.004,184,""VUID"")"
^XMB(3.9,43,2,2002,0)="1006674^1"
^XMB(3.9,43,2,2003,0)="""DATA"",779.004,185,0)"
^XMB(3.9,43,2,2004,0)="STP^Sao Tome and Principe"
^XMB(3.9,43,2,2005,0)="""DATA"",779.004,185,""SDS"")"
^XMB(3.9,43,2,2006,0)="678^TP^SAO TOME AND PRINCIPE"
^XMB(3.9,43,2,2007,0)="""DATA"",779.004,185,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2008,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2009,0)="""DATA"",779.004,185,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2010,0)="3060119.165007^1"
^XMB(3.9,43,2,2011,0)="""DATA"",779.004,185,""VUID"")"
^XMB(3.9,43,2,2012,0)="1006678^1"
^XMB(3.9,43,2,2013,0)="""DATA"",779.004,186,0)"
^XMB(3.9,43,2,2014,0)="SAU^Saudi Arabia"
^XMB(3.9,43,2,2015,0)="""DATA"",779.004,186,""SDS"")"
^XMB(3.9,43,2,2016,0)="682^SA^SAUDI ARABIA"
^XMB(3.9,43,2,2017,0)="""DATA"",779.004,186,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2018,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2019,0)="""DATA"",779.004,186,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2020,0)="3060119.165007^1"
^XMB(3.9,43,2,2021,0)="""DATA"",779.004,186,""VUID"")"
^XMB(3.9,43,2,2022,0)="1006682^1"
^XMB(3.9,43,2,2023,0)="""DATA"",779.004,187,0)"
^XMB(3.9,43,2,2024,0)="SEN^Senegal"
^XMB(3.9,43,2,2025,0)="""DATA"",779.004,187,""SDS"")"
^XMB(3.9,43,2,2026,0)="686^SG^SENEGAL"
^XMB(3.9,43,2,2027,0)="""DATA"",779.004,187,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2028,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2029,0)="""DATA"",779.004,187,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2030,0)="3060119.165007^1"
^XMB(3.9,43,2,2031,0)="""DATA"",779.004,187,""VUID"")"
^XMB(3.9,43,2,2032,0)="1006686^1"
^XMB(3.9,43,2,2033,0)="""DATA"",779.004,188,0)"
^XMB(3.9,43,2,2034,0)="SYC^Seychelles"
^XMB(3.9,43,2,2035,0)="""DATA"",779.004,188,""SDS"")"
^XMB(3.9,43,2,2036,0)="690^SE^SEYCHELLES"
^XMB(3.9,43,2,2037,0)="""DATA"",779.004,188,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2038,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2039,0)="""DATA"",779.004,188,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2040,0)="3060119.165007^1"
^XMB(3.9,43,2,2041,0)="""DATA"",779.004,188,""VUID"")"
^XMB(3.9,43,2,2042,0)="1006690^1"
^XMB(3.9,43,2,2043,0)="""DATA"",779.004,189,0)"
^XMB(3.9,43,2,2044,0)="SLE^Sierra Leone"
^XMB(3.9,43,2,2045,0)="""DATA"",779.004,189,""SDS"")"
^XMB(3.9,43,2,2046,0)="694^SL^SIERRA LEONE"
^XMB(3.9,43,2,2047,0)="""DATA"",779.004,189,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2048,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2049,0)="""DATA"",779.004,189,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2050,0)="3060119.165007^1"
^XMB(3.9,43,2,2051,0)="""DATA"",779.004,189,""VUID"")"
^XMB(3.9,43,2,2052,0)="1006694^1"
^XMB(3.9,43,2,2053,0)="""DATA"",779.004,190,0)"
^XMB(3.9,43,2,2054,0)="SGP^Singapore"
^XMB(3.9,43,2,2055,0)="""DATA"",779.004,190,""SDS"")"
^XMB(3.9,43,2,2056,0)="702^SN^SINGAPORE"
^XMB(3.9,43,2,2057,0)="""DATA"",779.004,190,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2058,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2059,0)="""DATA"",779.004,190,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2060,0)="3060119.165007^1"
^XMB(3.9,43,2,2061,0)="""DATA"",779.004,190,""VUID"")"
^XMB(3.9,43,2,2062,0)="1006702^1"
^XMB(3.9,43,2,2063,0)="""DATA"",779.004,191,0)"
^XMB(3.9,43,2,2064,0)="SVK^Slovakia"
^XMB(3.9,43,2,2065,0)="""DATA"",779.004,191,""SDS"")"
^XMB(3.9,43,2,2066,0)="703^LO^SLOVAK REPUBLIC"
^XMB(3.9,43,2,2067,0)="""DATA"",779.004,191,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2068,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2069,0)="""DATA"",779.004,191,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2070,0)="3060119.165007^1"
^XMB(3.9,43,2,2071,0)="""DATA"",779.004,191,""VUID"")"
^XMB(3.9,43,2,2072,0)="1006703^1"
^XMB(3.9,43,2,2073,0)="""DATA"",779.004,192,0)"
^XMB(3.9,43,2,2074,0)="VNM^Viet Nam"
^XMB(3.9,43,2,2075,0)="""DATA"",779.004,192,""SDS"")"
^XMB(3.9,43,2,2076,0)="704^VM^VIETNAM"
^XMB(3.9,43,2,2077,0)="""DATA"",779.004,192,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2078,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2079,0)="""DATA"",779.004,192,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2080,0)="3060119.165007^1"
^XMB(3.9,43,2,2081,0)="""DATA"",779.004,192,""VUID"")"
^XMB(3.9,43,2,2082,0)="1006704^1"
^XMB(3.9,43,2,2083,0)="""DATA"",779.004,193,0)"
^XMB(3.9,43,2,2084,0)="SVN^Slovenia"
^XMB(3.9,43,2,2085,0)="""DATA"",779.004,193,""SDS"")"
^XMB(3.9,43,2,2086,0)="705^SI^SLOVENIA"
^XMB(3.9,43,2,2087,0)="""DATA"",779.004,193,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2088,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2089,0)="""DATA"",779.004,193,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2090,0)="3060119.165007^1"
^XMB(3.9,43,2,2091,0)="""DATA"",779.004,193,""VUID"")"
^XMB(3.9,43,2,2092,0)="1006705^1"
^XMB(3.9,43,2,2093,0)="""DATA"",779.004,194,0)"
^XMB(3.9,43,2,2094,0)="SOM^Somalia"
^XMB(3.9,43,2,2095,0)="""DATA"",779.004,194,""SDS"")"
^XMB(3.9,43,2,2096,0)="706^SO^<NULL>"
^XMB(3.9,43,2,2097,0)="""DATA"",779.004,194,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2098,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2099,0)="""DATA"",779.004,194,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2100,0)="3060119.165007^1"
^XMB(3.9,43,2,2101,0)="""DATA"",779.004,194,""VUID"")"
^XMB(3.9,43,2,2102,0)="1006706^1"
^XMB(3.9,43,2,2103,0)="""DATA"",779.004,195,0)"
^XMB(3.9,43,2,2104,0)="ZAF^South Africa"
^XMB(3.9,43,2,2105,0)="""DATA"",779.004,195,""SDS"")"
^XMB(3.9,43,2,2106,0)="710^SF^SOUTH AFRICA"
^XMB(3.9,43,2,2107,0)="""DATA"",779.004,195,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2108,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2109,0)="""DATA"",779.004,195,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2110,0)="3060119.165007^1"
^XMB(3.9,43,2,2111,0)="""DATA"",779.004,195,""VUID"")"
^XMB(3.9,43,2,2112,0)="1006710^1"
^XMB(3.9,43,2,2113,0)="""DATA"",779.004,196,0)"
^XMB(3.9,43,2,2114,0)="ZWE^Zimbabwe"
^XMB(3.9,43,2,2115,0)="""DATA"",779.004,196,""SDS"")"
^XMB(3.9,43,2,2116,0)="716^ZI^ZIMBABWE"
^XMB(3.9,43,2,2117,0)="""DATA"",779.004,196,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2118,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2119,0)="""DATA"",779.004,196,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2120,0)="3060119.165007^1"
^XMB(3.9,43,2,2121,0)="""DATA"",779.004,196,""VUID"")"
^XMB(3.9,43,2,2122,0)="1006716^1"
^XMB(3.9,43,2,2123,0)="""DATA"",779.004,197,0)"
^XMB(3.9,43,2,2124,0)="ESP^Spain"
^XMB(3.9,43,2,2125,0)="""DATA"",779.004,197,""SDS"")"
^XMB(3.9,43,2,2126,0)="724^SP^SPAIN"
^XMB(3.9,43,2,2127,0)="""DATA"",779.004,197,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2128,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2129,0)="""DATA"",779.004,197,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2130,0)="3060119.165007^1"
^XMB(3.9,43,2,2131,0)="""DATA"",779.004,197,""VUID"")"
^XMB(3.9,43,2,2132,0)="1006724^1"
^XMB(3.9,43,2,2133,0)="""DATA"",779.004,198,0)"
^XMB(3.9,43,2,2134,0)="ESH^Western Sahara"
^XMB(3.9,43,2,2135,0)="""DATA"",779.004,198,""SDS"")"
^XMB(3.9,43,2,2136,0)="732^WI^<NULL>"
^XMB(3.9,43,2,2137,0)="""DATA"",779.004,198,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2138,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2139,0)="""DATA"",779.004,198,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2140,0)="3060119.165007^1"
^XMB(3.9,43,2,2141,0)="""DATA"",779.004,198,""VUID"")"
^XMB(3.9,43,2,2142,0)="1006732^1"
^XMB(3.9,43,2,2143,0)="""DATA"",779.004,199,0)"
^XMB(3.9,43,2,2144,0)="SDN^Sudan"
^XMB(3.9,43,2,2145,0)="""DATA"",779.004,199,""SDS"")"
^XMB(3.9,43,2,2146,0)="736^SU^SUDAN"
^XMB(3.9,43,2,2147,0)="""DATA"",779.004,199,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2148,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2149,0)="""DATA"",779.004,199,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2150,0)="3060119.165007^1"
^XMB(3.9,43,2,2151,0)="""DATA"",779.004,199,""VUID"")"
^XMB(3.9,43,2,2152,0)="1006736^1"
^XMB(3.9,43,2,2153,0)="""DATA"",779.004,200,0)"
^XMB(3.9,43,2,2154,0)="SUR^Suriname"
^XMB(3.9,43,2,2155,0)="""DATA"",779.004,200,""SDS"")"
^XMB(3.9,43,2,2156,0)="740^NS^SURINAME"
^XMB(3.9,43,2,2157,0)="""DATA"",779.004,200,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2158,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2159,0)="""DATA"",779.004,200,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2160,0)="3060119.165007^1"
^XMB(3.9,43,2,2161,0)="""DATA"",779.004,200,""VUID"")"
^XMB(3.9,43,2,2162,0)="1006740^1"
^XMB(3.9,43,2,2163,0)="""DATA"",779.004,201,0)"
^XMB(3.9,43,2,2164,0)="SWZ^Swaziland"
^XMB(3.9,43,2,2165,0)="""DATA"",779.004,201,""SDS"")"
^XMB(3.9,43,2,2166,0)="748^WZ^SWAZILAND"
^XMB(3.9,43,2,2167,0)="""DATA"",779.004,201,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2168,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2169,0)="""DATA"",779.004,201,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2170,0)="3060119.165007^1"
^XMB(3.9,43,2,2171,0)="""DATA"",779.004,201,""VUID"")"
^XMB(3.9,43,2,2172,0)="1006748^1"
^XMB(3.9,43,2,2173,0)="""DATA"",779.004,202,0)"
^XMB(3.9,43,2,2174,0)="SWE^Sweden"
^XMB(3.9,43,2,2175,0)="""DATA"",779.004,202,""SDS"")"
^XMB(3.9,43,2,2176,0)="752^SW^SWEDEN"
^XMB(3.9,43,2,2177,0)="""DATA"",779.004,202,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2178,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2179,0)="""DATA"",779.004,202,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2180,0)="3060119.165007^1"
^XMB(3.9,43,2,2181,0)="""DATA"",779.004,202,""VUID"")"
^XMB(3.9,43,2,2182,0)="1006752^1"
^XMB(3.9,43,2,2183,0)="""DATA"",779.004,203,0)"
^XMB(3.9,43,2,2184,0)="CHE^Switzerland"
^XMB(3.9,43,2,2185,0)="""DATA"",779.004,203,""SDS"")"
^XMB(3.9,43,2,2186,0)="756^SZ^SWITZERLAND"
^XMB(3.9,43,2,2187,0)="""DATA"",779.004,203,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2188,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2189,0)="""DATA"",779.004,203,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2190,0)="3060119.165007^1"
^XMB(3.9,43,2,2191,0)="""DATA"",779.004,203,""VUID"")"
^XMB(3.9,43,2,2192,0)="1006756^1"
^XMB(3.9,43,2,2193,0)="""DATA"",779.004,204,0)"
^XMB(3.9,43,2,2194,0)="SYR^Syrian Arab Republic"
^XMB(3.9,43,2,2195,0)="""DATA"",779.004,204,""SDS"")"
^XMB(3.9,43,2,2196,0)="760^SY^SYRIAN ARAB REPUBLIC"
^XMB(3.9,43,2,2197,0)="""DATA"",779.004,204,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2198,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2199,0)="""DATA"",779.004,204,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2200,0)="3060119.165007^1"
^XMB(3.9,43,2,2201,0)="""DATA"",779.004,204,""VUID"")"
^XMB(3.9,43,2,2202,0)="1006760^1"
^XMB(3.9,43,2,2203,0)="""DATA"",779.004,205,0)"
^XMB(3.9,43,2,2204,0)="TJK^Tajikistan"
^XMB(3.9,43,2,2205,0)="""DATA"",779.004,205,""SDS"")"
^XMB(3.9,43,2,2206,0)="762^TI^TAJIKISTAN"
^XMB(3.9,43,2,2207,0)="""DATA"",779.004,205,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2208,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2209,0)="""DATA"",779.004,205,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2210,0)="3060119.165007^1"
^XMB(3.9,43,2,2211,0)="""DATA"",779.004,205,""VUID"")"
^XMB(3.9,43,2,2212,0)="1006762^1"
^XMB(3.9,43,2,2213,0)="""DATA"",779.004,206,0)"
^XMB(3.9,43,2,2214,0)="THA^Thailand"
^XMB(3.9,43,2,2215,0)="""DATA"",779.004,206,""SDS"")"
^XMB(3.9,43,2,2216,0)="764^TH^THAILAND"
^XMB(3.9,43,2,2217,0)="""DATA"",779.004,206,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2218,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2219,0)="""DATA"",779.004,206,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2220,0)="3060119.165007^1"
^XMB(3.9,43,2,2221,0)="""DATA"",779.004,206,""VUID"")"
^XMB(3.9,43,2,2222,0)="1006764^1"
^XMB(3.9,43,2,2223,0)="""DATA"",779.004,207,0)"
^XMB(3.9,43,2,2224,0)="TGO^Togo"
^XMB(3.9,43,2,2225,0)="""DATA"",779.004,207,""SDS"")"
^XMB(3.9,43,2,2226,0)="768^TO^TOGO"
^XMB(3.9,43,2,2227,0)="""DATA"",779.004,207,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2228,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2229,0)="""DATA"",779.004,207,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2230,0)="3060119.165007^1"
^XMB(3.9,43,2,2231,0)="""DATA"",779.004,207,""VUID"")"
^XMB(3.9,43,2,2232,0)="1006768^1"
^XMB(3.9,43,2,2233,0)="""DATA"",779.004,208,0)"
^XMB(3.9,43,2,2234,0)="TKL^Tokelau"
^XMB(3.9,43,2,2235,0)="""DATA"",779.004,208,""SDS"")"
^XMB(3.9,43,2,2236,0)="772^TL^WESTERN SAMOA"
^XMB(3.9,43,2,2237,0)="""DATA"",779.004,208,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2238,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2239,0)="""DATA"",779.004,208,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2240,0)="3060119.165007^1"
^XMB(3.9,43,2,2241,0)="""DATA"",779.004,208,""VUID"")"
^XMB(3.9,43,2,2242,0)="1006772^1"
^XMB(3.9,43,2,2243,0)="""DATA"",779.004,209,0)"
^XMB(3.9,43,2,2244,0)="TON^Tonga"
^XMB(3.9,43,2,2245,0)="""DATA"",779.004,209,""SDS"")"
^XMB(3.9,43,2,2246,0)="776^TN^TONGA"
^XMB(3.9,43,2,2247,0)="""DATA"",779.004,209,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2248,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2249,0)="""DATA"",779.004,209,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2250,0)="3060119.165007^1"
^XMB(3.9,43,2,2251,0)="""DATA"",779.004,209,""VUID"")"
^XMB(3.9,43,2,2252,0)="1006776^1"
^XMB(3.9,43,2,2253,0)="""DATA"",779.004,210,0)"
^XMB(3.9,43,2,2254,0)="TTO^Trinidad and Tobago"
^XMB(3.9,43,2,2255,0)="""DATA"",779.004,210,""SDS"")"
^XMB(3.9,43,2,2256,0)="780^TD^TRINIDAD AND TOBAGO"
^XMB(3.9,43,2,2257,0)="""DATA"",779.004,210,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2258,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2259,0)="""DATA"",779.004,210,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2260,0)="3060119.165007^1"
^XMB(3.9,43,2,2261,0)="""DATA"",779.004,210,""VUID"")"
^XMB(3.9,43,2,2262,0)="1006780^1"
^XMB(3.9,43,2,2263,0)="""DATA"",779.004,211,0)"
^XMB(3.9,43,2,2264,0)="ARE^United Arab Emirates"
^XMB(3.9,43,2,2265,0)="""DATA"",779.004,211,""SDS"")"
^XMB(3.9,43,2,2266,0)="784^AE^UNITED ARAB EMIRATES"
^XMB(3.9,43,2,2267,0)="""DATA"",779.004,211,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2268,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2269,0)="""DATA"",779.004,211,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2270,0)="3060119.165007^1"
^XMB(3.9,43,2,2271,0)="""DATA"",779.004,211,""VUID"")"
^XMB(3.9,43,2,2272,0)="1006784^1"
^XMB(3.9,43,2,2273,0)="""DATA"",779.004,212,0)"
^XMB(3.9,43,2,2274,0)="TUN^Tunisia"
^XMB(3.9,43,2,2275,0)="""DATA"",779.004,212,""SDS"")"
^XMB(3.9,43,2,2276,0)="788^TS^TUNISIA"
^XMB(3.9,43,2,2277,0)="""DATA"",779.004,212,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2278,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2279,0)="""DATA"",779.004,212,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2280,0)="3060119.165007^1"
^XMB(3.9,43,2,2281,0)="""DATA"",779.004,212,""VUID"")"
^XMB(3.9,43,2,2282,0)="1006788^1"
^XMB(3.9,43,2,2283,0)="""DATA"",779.004,213,0)"
^XMB(3.9,43,2,2284,0)="TUR^Turkey"
^XMB(3.9,43,2,2285,0)="""DATA"",779.004,213,""SDS"")"
^XMB(3.9,43,2,2286,0)="792^TU^TURKEY"
^XMB(3.9,43,2,2287,0)="""DATA"",779.004,213,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2288,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2289,0)="""DATA"",779.004,213,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2290,0)="3060119.165007^1"
^XMB(3.9,43,2,2291,0)="""DATA"",779.004,213,""VUID"")"
^XMB(3.9,43,2,2292,0)="1006792^1"
^XMB(3.9,43,2,2293,0)="""DATA"",779.004,214,0)"
^XMB(3.9,43,2,2294,0)="TKM^Turkmenistan"
^XMB(3.9,43,2,2295,0)="""DATA"",779.004,214,""SDS"")"
^XMB(3.9,43,2,2296,0)="795^TX^TURKMENISTAN"
^XMB(3.9,43,2,2297,0)="""DATA"",779.004,214,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2298,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2299,0)="""DATA"",779.004,214,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2300,0)="3060119.165007^1"
^XMB(3.9,43,2,2301,0)="""DATA"",779.004,214,""VUID"")"
^XMB(3.9,43,2,2302,0)="1006795^1"
^XMB(3.9,43,2,2303,0)="""DATA"",779.004,215,0)"
^XMB(3.9,43,2,2304,0)="TCA^Turks and Caicos Islands"
^XMB(3.9,43,2,2305,0)="""DATA"",779.004,215,""SDS"")"
^XMB(3.9,43,2,2306,0)="796^TK^TURKS AND CAICOS ISLANDS"
^XMB(3.9,43,2,2307,0)="""DATA"",779.004,215,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2308,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2309,0)="""DATA"",779.004,215,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2310,0)="3060119.165007^1"
^XMB(3.9,43,2,2311,0)="""DATA"",779.004,215,""VUID"")"
^XMB(3.9,43,2,2312,0)="1006796^1"
^XMB(3.9,43,2,2313,0)="""DATA"",779.004,216,0)"
^XMB(3.9,43,2,2314,0)="TUV^Tuvalu"
^XMB(3.9,43,2,2315,0)="""DATA"",779.004,216,""SDS"")"
^XMB(3.9,43,2,2316,0)="798^TV^TUVALU"
^XMB(3.9,43,2,2317,0)="""DATA"",779.004,216,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2318,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2319,0)="""DATA"",779.004,216,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2320,0)="3060119.165007^1"
^XMB(3.9,43,2,2321,0)="""DATA"",779.004,216,""VUID"")"
^XMB(3.9,43,2,2322,0)="1006798^1"
^XMB(3.9,43,2,2323,0)="""DATA"",779.004,217,0)"
^XMB(3.9,43,2,2324,0)="UGA^Uganda"
^XMB(3.9,43,2,2325,0)="""DATA"",779.004,217,""SDS"")"
^XMB(3.9,43,2,2326,0)="800^UG^UGANDA"
^XMB(3.9,43,2,2327,0)="""DATA"",779.004,217,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2328,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2329,0)="""DATA"",779.004,217,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2330,0)="3060119.165007^1"
^XMB(3.9,43,2,2331,0)="""DATA"",779.004,217,""VUID"")"
^XMB(3.9,43,2,2332,0)="1006800^1"
^XMB(3.9,43,2,2333,0)="""DATA"",779.004,218,0)"
^XMB(3.9,43,2,2334,0)="UKR^Ukraine"
^XMB(3.9,43,2,2335,0)="""DATA"",779.004,218,""SDS"")"
^XMB(3.9,43,2,2336,0)="804^UP^UKRAINE"
^XMB(3.9,43,2,2337,0)="""DATA"",779.004,218,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2338,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2339,0)="""DATA"",779.004,218,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2340,0)="3060119.165007^1"
^XMB(3.9,43,2,2341,0)="""DATA"",779.004,218,""VUID"")"
^XMB(3.9,43,2,2342,0)="1006804^1"
^XMB(3.9,43,2,2343,0)="""DATA"",779.004,219,0)"
^XMB(3.9,43,2,2344,0)="MKD^Macedonia"
^XMB(3.9,43,2,2345,0)="""DATA"",779.004,219,""SDS"")"
^XMB(3.9,43,2,2346,0)="807^MK^REPUBLIC OF MACEDONIA"
^XMB(3.9,43,2,2347,0)="""DATA"",779.004,219,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2348,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2349,0)="""DATA"",779.004,219,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2350,0)="3060119.165007^1"
^XMB(3.9,43,2,2351,0)="""DATA"",779.004,219,""VUID"")"
^XMB(3.9,43,2,2352,0)="1006807^1"
^XMB(3.9,43,2,2353,0)="""DATA"",779.004,220,0)"
^XMB(3.9,43,2,2354,0)="EGY^Egypt"
^XMB(3.9,43,2,2355,0)="""DATA"",779.004,220,""SDS"")"
^XMB(3.9,43,2,2356,0)="818^EG^EGYPT"
^XMB(3.9,43,2,2357,0)="""DATA"",779.004,220,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2358,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2359,0)="""DATA"",779.004,220,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2360,0)="3060119.165007^1"
^XMB(3.9,43,2,2361,0)="""DATA"",779.004,220,""VUID"")"
^XMB(3.9,43,2,2362,0)="1006818^1"
^XMB(3.9,43,2,2363,0)="""DATA"",779.004,221,0)"
^XMB(3.9,43,2,2364,0)="GBR^United Kingdom"
^XMB(3.9,43,2,2365,0)="""DATA"",779.004,221,""SDS"")"
^XMB(3.9,43,2,2366,0)="826^UK^UNITED KINGDOM"
^XMB(3.9,43,2,2367,0)="""DATA"",779.004,221,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2368,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2369,0)="""DATA"",779.004,221,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2370,0)="3060119.165007^1"
^XMB(3.9,43,2,2371,0)="""DATA"",779.004,221,""VUID"")"
^XMB(3.9,43,2,2372,0)="1006826^1"
^XMB(3.9,43,2,2373,0)="""DATA"",779.004,222,0)"
^XMB(3.9,43,2,2374,0)="TZA^Tanzania"
^XMB(3.9,43,2,2375,0)="""DATA"",779.004,222,""SDS"")"
^XMB(3.9,43,2,2376,0)="834^TZ^TANZANIA"
^XMB(3.9,43,2,2377,0)="""DATA"",779.004,222,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2378,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2379,0)="""DATA"",779.004,222,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2380,0)="3060119.165007^1"
^XMB(3.9,43,2,2381,0)="""DATA"",779.004,222,""VUID"")"
^XMB(3.9,43,2,2382,0)="1006834^1"
^XMB(3.9,43,2,2383,0)="""DATA"",779.004,223,0)"
^XMB(3.9,43,2,2384,0)="BFA^Burkina Faso"
^XMB(3.9,43,2,2385,0)="""DATA"",779.004,223,""SDS"")"
^XMB(3.9,43,2,2386,0)="854^UV^BURKINA FASO"
^XMB(3.9,43,2,2387,0)="""DATA"",779.004,223,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2388,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2389,0)="""DATA"",779.004,223,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2390,0)="3060119.165007^1"
^XMB(3.9,43,2,2391,0)="""DATA"",779.004,223,""VUID"")"
^XMB(3.9,43,2,2392,0)="1006854^1"
^XMB(3.9,43,2,2393,0)="""DATA"",779.004,224,0)"
^XMB(3.9,43,2,2394,0)="URY^Uruguay"
^XMB(3.9,43,2,2395,0)="""DATA"",779.004,224,""SDS"")"
^XMB(3.9,43,2,2396,0)="858^UY^URUGUAY"
^XMB(3.9,43,2,2397,0)="""DATA"",779.004,224,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2398,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2399,0)="""DATA"",779.004,224,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2400,0)="3060119.165007^1"
^XMB(3.9,43,2,2401,0)="""DATA"",779.004,224,""VUID"")"
^XMB(3.9,43,2,2402,0)="1006858^1"
^XMB(3.9,43,2,2403,0)="""DATA"",779.004,225,0)"
^XMB(3.9,43,2,2404,0)="UZB^Uzbekistan"
^XMB(3.9,43,2,2405,0)="""DATA"",779.004,225,""SDS"")"
^XMB(3.9,43,2,2406,0)="860^UZ^UZBEKISTAN"
^XMB(3.9,43,2,2407,0)="""DATA"",779.004,225,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2408,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2409,0)="""DATA"",779.004,225,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2410,0)="3060119.165007^1"
^XMB(3.9,43,2,2411,0)="""DATA"",779.004,225,""VUID"")"
^XMB(3.9,43,2,2412,0)="1006860^1"
^XMB(3.9,43,2,2413,0)="""DATA"",779.004,226,0)"
^XMB(3.9,43,2,2414,0)="VEN^Venezuela"
^XMB(3.9,43,2,2415,0)="""DATA"",779.004,226,""SDS"")"
^XMB(3.9,43,2,2416,0)="862^VE^VENEZUELA"
^XMB(3.9,43,2,2417,0)="""DATA"",779.004,226,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2418,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2419,0)="""DATA"",779.004,226,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2420,0)="3060119.165007^1"
^XMB(3.9,43,2,2421,0)="""DATA"",779.004,226,""VUID"")"
^XMB(3.9,43,2,2422,0)="1006862^1"
^XMB(3.9,43,2,2423,0)="""DATA"",779.004,227,0)"
^XMB(3.9,43,2,2424,0)="WLF^Wallis and Futuna Islands"
^XMB(3.9,43,2,2425,0)="""DATA"",779.004,227,""SDS"")"
^XMB(3.9,43,2,2426,0)="876^WF^WALLIS AND FUTUNA ISLANDS"
^XMB(3.9,43,2,2427,0)="""DATA"",779.004,227,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2428,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2429,0)="""DATA"",779.004,227,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2430,0)="3060119.165007^1"
^XMB(3.9,43,2,2431,0)="""DATA"",779.004,227,""VUID"")"
^XMB(3.9,43,2,2432,0)="1006876^1"
^XMB(3.9,43,2,2433,0)="""DATA"",779.004,228,0)"
^XMB(3.9,43,2,2434,0)="YEM^Yemen"
^XMB(3.9,43,2,2435,0)="""DATA"",779.004,228,""SDS"")"
^XMB(3.9,43,2,2436,0)="887^YM^YEMEN"
^XMB(3.9,43,2,2437,0)="""DATA"",779.004,228,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2438,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2439,0)="""DATA"",779.004,228,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2440,0)="3060119.165007^1"
^XMB(3.9,43,2,2441,0)="""DATA"",779.004,228,""VUID"")"
^XMB(3.9,43,2,2442,0)="1006887^1"
^XMB(3.9,43,2,2443,0)="""DATA"",779.004,229,0)"
^XMB(3.9,43,2,2444,0)="SCG^Serbia and Montenegro"
^XMB(3.9,43,2,2445,0)="""DATA"",779.004,229,""SDS"")"
^XMB(3.9,43,2,2446,0)="891^YI^SERBIA-MONTENEGRO"
^XMB(3.9,43,2,2447,0)="""DATA"",779.004,229,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2448,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2449,0)="""DATA"",779.004,229,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2450,0)="3060119.165007^1"
^XMB(3.9,43,2,2451,0)="""DATA"",779.004,229,""VUID"")"
^XMB(3.9,43,2,2452,0)="1006891^1"
^XMB(3.9,43,2,2453,0)="""DATA"",779.004,230,0)"
^XMB(3.9,43,2,2454,0)="ZMB^Zambia"
^XMB(3.9,43,2,2455,0)="""DATA"",779.004,230,""SDS"")"
^XMB(3.9,43,2,2456,0)="894^ZA^ZAMBIA"
^XMB(3.9,43,2,2457,0)="""DATA"",779.004,230,""TERMSTATUS"",0)"
^XMB(3.9,43,2,2458,0)="^779.00409DA^1^1"
^XMB(3.9,43,2,2459,0)="""DATA"",779.004,230,""TERMSTATUS"",1,0)"
^XMB(3.9,43,2,2460,0)="3060119.165007^1"
^XMB(3.9,43,2,2461,0)="""DATA"",779.004,230,""VUID"")"
^XMB(3.9,43,2,2462,0)="1006894^1"
^XMB(3.9,43,2,2463,0)="""FIA"",779.004)"
^XMB(3.9,43,2,2464,0)="COUNTRY CODE"
^XMB(3.9,43,2,2465,0)="""FIA"",779.004,0)"
^XMB(3.9,43,2,2466,0)="^HL(779.004,"
^XMB(3.9,43,2,2467,0)="""FIA"",779.004,0,0)"
^XMB(3.9,43,2,2468,0)="779.004I"
^XMB(3.9,43,2,2469,0)="""FIA"",779.004,0,1)"
^XMB(3.9,43,2,2470,0)="y^n^f^^y^^y^r^n"
^XMB(3.9,43,2,2471,0)="""FIA"",779.004,0,10)"
^XMB(3.9,43,2,2472,0)=""
^XMB(3.9,43,2,2473,0)="""FIA"",779.004,0,11)"
^XMB(3.9,43,2,2474,0)=""
^XMB(3.9,43,2,2475,0)="""FIA"",779.004,0,""RLRO"")"
^XMB(3.9,43,2,2476,0)=""
^XMB(3.9,43,2,2477,0)="""FIA"",779.004,0,""VR"")"
^XMB(3.9,43,2,2478,0)="1.6^HL"
^XMB(3.9,43,2,2479,0)="""FIA"",779.004,779.004)"
^XMB(3.9,43,2,2480,0)="0"
^XMB(3.9,43,2,2481,0)="""FIA"",779.004,779.00401)"
^XMB(3.9,43,2,2482,0)="0"
^XMB(3.9,43,2,2483,0)="""FIA"",779.004,779.00409)"
^XMB(3.9,43,2,2484,0)="0"
^XMB(3.9,43,2,2485,0)="""INI"")"
^XMB(3.9,43,2,2486,0)="PRE^HLPAT120"
^XMB(3.9,43,2,2487,0)="""INIT"")"
^XMB(3.9,43,2,2488,0)="POST^HLPAT120"
^XMB(3.9,43,2,2489,0)="""IX"",779.004,779.004,""AMASTERVUID"",0)"
^XMB(3.9,43,2,2490,0)="779.004^AMASTERVUID^This cross-reference identifies the Master entry for a VUID.^R^^R^IR^I^779.004^^^^^S"
^XMB(3.9,43,2,2491,0)="""IX"",779.004,779.004,""AMASTERVUID"",.1,0)"
^XMB(3.9,43,2,2492,0)="^^3^3^3060111"
^XMB(3.9,43,2,2493,0)="""IX"",779.004,779.004,""AMASTERVUID"",.1,1,0)"
^XMB(3.9,43,2,2494,0)="If multiple entries have the same VUID in the file, this cross-refernce "
^XMB(3.9,43,2,2495,0)="""IX"",779.004,779.004,""AMASTERVUID"",.1,2,0)"
^XMB(3.9,43,2,2496,0)="can be used to identify the Master entry for a VUID associated with a "
^XMB(3.9,43,2,2497,0)="""IX"",779.004,779.004,""AMASTERVUID"",.1,3,0)"
^XMB(3.9,43,2,2498,0)="Term/Concept."
^XMB(3.9,43,2,2499,0)="""IX"",779.004,779.004,""AMASTERVUID"",1)"
^XMB(3.9,43,2,2500,0)="S ^HL(779.004,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)="""""
^XMB(3.9,43,2,2501,0)="""IX"",779.004,779.004,""AMASTERVUID"",2)"
^XMB(3.9,43,2,2502,0)="K ^HL(779.004,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)"
^XMB(3.9,43,2,2503,0)="""IX"",779.004,779.004,""AMASTERVUID"",2.5)"
^XMB(3.9,43,2,2504,0)="K ^HL(779.004,""AMASTERVUID"")"
^XMB(3.9,43,2,2505,0)="""IX"",779.004,779.004,""AMASTERVUID"",11.1,0)"
^XMB(3.9,43,2,2506,0)="^.114IA^2^2"
^XMB(3.9,43,2,2507,0)="""IX"",779.004,779.004,""AMASTERVUID"",11.1,1,0)"
^XMB(3.9,43,2,2508,0)="1^F^779.004^99.99^30^1^F"
^XMB(3.9,43,2,2509,0)="""IX"",779.004,779.004,""AMASTERVUID"",11.1,2,0)"
^XMB(3.9,43,2,2510,0)="2^F^779.004^99.98^^2^F"
^XMB(3.9,43,2,2511,0)="""MBREQ"")"
^XMB(3.9,43,2,2512,0)="0"
^XMB(3.9,43,2,2513,0)="""PKG"",9,-1)"
^XMB(3.9,43,2,2514,0)="1^1"
^XMB(3.9,43,2,2515,0)="""PKG"",9,0)"
^XMB(3.9,43,2,2516,0)="HEALTH LEVEL SEVEN^HL^DHCP IMPLEMENTATION OF HEALTH LEVEL SEVEN^"
^XMB(3.9,43,2,2517,0)="""PKG"",9,20,0)"
^XMB(3.9,43,2,2518,0)="^9.402P^^"
^XMB(3.9,43,2,2519,0)="""PKG"",9,22,0)"
^XMB(3.9,43,2,2520,0)="^9.49I^1^1"
^XMB(3.9,43,2,2521,0)="""PKG"",9,22,1,0)"
^XMB(3.9,43,2,2522,0)="1.6^2980130^2980130^6"
^XMB(3.9,43,2,2523,0)="""PKG"",9,22,1,""PAH"",1,0)"
^XMB(3.9,43,2,2524,0)="120^3060307"
^XMB(3.9,43,2,2525,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,43,2,2526,0)="Y"
^XMB(3.9,43,2,2527,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,43,2,2528,0)="^D REP^XPDH"
^XMB(3.9,43,2,2529,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,43,2,2530,0)="Shall I write over your |FLAG| File"
^XMB(3.9,43,2,2531,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,43,2,2532,0)="YES"
^XMB(3.9,43,2,2533,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,43,2,2534,0)="D XPF1^XPDIQ"
^XMB(3.9,43,2,2535,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,43,2,2536,0)="Y"
^XMB(3.9,43,2,2537,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,43,2,2538,0)="^D DTA^XPDH"
^XMB(3.9,43,2,2539,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,43,2,2540,0)="Want my data |FLAG| yours"
^XMB(3.9,43,2,2541,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,43,2,2542,0)="YES"
^XMB(3.9,43,2,2543,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,43,2,2544,0)="D XPF2^XPDIQ"
^XMB(3.9,43,2,2545,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,43,2,2546,0)="YO"
^XMB(3.9,43,2,2547,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,43,2,2548,0)="^D INHIBIT^XPDH"
^XMB(3.9,43,2,2549,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,43,2,2550,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,43,2,2551,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,43,2,2552,0)="YES"
^XMB(3.9,43,2,2553,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,43,2,2554,0)="D XPI1^XPDIQ"
^XMB(3.9,43,2,2555,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,43,2,2556,0)="PO^VA(200,:EM"
^XMB(3.9,43,2,2557,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,43,2,2558,0)="^D MG^XPDH"
^XMB(3.9,43,2,2559,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,43,2,2560,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,43,2,2561,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,43,2,2562,0)=""
^XMB(3.9,43,2,2563,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,43,2,2564,0)="D XPM1^XPDIQ"
^XMB(3.9,43,2,2565,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,43,2,2566,0)="Y"
^XMB(3.9,43,2,2567,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,43,2,2568,0)="^D MENU^XPDH"
^XMB(3.9,43,2,2569,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,43,2,2570,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,43,2,2571,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,43,2,2572,0)="YES"
^XMB(3.9,43,2,2573,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,43,2,2574,0)="D XPO1^XPDIQ"
^XMB(3.9,43,2,2575,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,43,2,2576,0)="Y"
^XMB(3.9,43,2,2577,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,43,2,2578,0)="^D OPT^XPDH"
^XMB(3.9,43,2,2579,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,43,2,2580,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,43,2,2581,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,43,2,2582,0)="YES"
^XMB(3.9,43,2,2583,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,43,2,2584,0)="D XPZ1^XPDIQ"
^XMB(3.9,43,2,2585,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,43,2,2586,0)="Y"
^XMB(3.9,43,2,2587,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,43,2,2588,0)="^D RTN^XPDH"
^XMB(3.9,43,2,2589,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,43,2,2590,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,43,2,2591,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,43,2,2592,0)="NO"
^XMB(3.9,43,2,2593,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,43,2,2594,0)="D XPZ2^XPDIQ"
^XMB(3.9,43,2,2595,0)="""RTN"")"
^XMB(3.9,43,2,2596,0)="13"
^XMB(3.9,43,2,2597,0)="""RTN"",""HLCSAS"")"
^XMB(3.9,43,2,2598,0)="0^4^B12656721^B11637057"
^XMB(3.9,43,2,2599,0)="""RTN"",""HLCSAS"",1,0)"
^XMB(3.9,43,2,2600,0)="HLCSAS ;ISCSF/RWF - MPI direct connect server ;09/23/2005  14:36"
^XMB(3.9,43,2,2601,0)="""RTN"",""HLCSAS"",2,0)"
^XMB(3.9,43,2,2602,0)=" ;;1.6;HEALTH LEVEL SEVEN;**43,89,120**;Oct 13,1995;Build 12"
^XMB(3.9,43,2,2603,0)="""RTN"",""HLCSAS"",3,0)"
^XMB(3.9,43,2,2604,0)=" Q"
^XMB(3.9,43,2,2605,0)="""RTN"",""HLCSAS"",4,0)"
^XMB(3.9,43,2,2606,0)=" ;HLCS is used to pass data around."
^XMB(3.9,43,2,2607,0)="""RTN"",""HLCSAS"",5,0)"
^XMB(3.9,43,2,2608,0)=" ; 5500 is the standard VA port for the MPI_direct connect"
^XMB(3.9,43,2,2609,0)="""RTN"",""HLCSAS"",6,0)"
^XMB(3.9,43,2,2610,0)="LISTEN ;only for OpenM"
^XMB(3.9,43,2,2611,0)="""RTN"",""HLCSAS"",7,0)"
^XMB(3.9,43,2,2612,0)=" S $ETRAP=""D ^%ZTER H"""
^XMB(3.9,43,2,2613,0)="""RTN"",""HLCSAS"",8,0)"
^XMB(3.9,43,2,2614,0)=" D LISTEN^%ZISTCPS(5500,""ONT^HLCSAS"")"
^XMB(3.9,43,2,2615,0)="""RTN"",""HLCSAS"",9,0)"
^XMB(3.9,43,2,2616,0)=" Q"
^XMB(3.9,43,2,2617,0)="""RTN"",""HLCSAS"",10,0)"
^XMB(3.9,43,2,2618,0)="DSM ;%=device^HLDP"
^XMB(3.9,43,2,2619,0)="""RTN"",""HLCSAS"",11,0)"
^XMB(3.9,43,2,2620,0)=" S IO=$P(%,""^""),HLDP=$P(%,""^"",2)"
^XMB(3.9,43,2,2621,0)="""RTN"",""HLCSAS"",12,0)"
^XMB(3.9,43,2,2622,0)=" O IO:(SHARE) U IO ;Setup TCP port"
^XMB(3.9,43,2,2623,0)="""RTN"",""HLCSAS"",13,0)"
^XMB(3.9,43,2,2624,0)=" S IO(0)=""_NLA0:"" O IO(0) ;Setup null device"
^XMB(3.9,43,2,2625,0)="""RTN"",""HLCSAS"",14,0)"
^XMB(3.9,43,2,2626,0)=" D SVR"
^XMB(3.9,43,2,2627,0)="""RTN"",""HLCSAS"",15,0)"
^XMB(3.9,43,2,2628,0)=" Q"
^XMB(3.9,43,2,2629,0)="""RTN"",""HLCSAS"",16,0)"
^XMB(3.9,43,2,2630,0)="CACHE ;%=device^HLDP"
^XMB(3.9,43,2,2631,0)="""RTN"",""HLCSAS"",17,0)"
^XMB(3.9,43,2,2632,0)=" S (IO,IO(0))=""SYS$NET"""
^XMB(3.9,43,2,2633,0)="""RTN"",""HLCSAS"",18,0)"
^XMB(3.9,43,2,2634,0)=" S HLDP=$ZF(""GETSYM"",""HLDP"")"
^XMB(3.9,43,2,2635,0)="""RTN"",""HLCSAS"",19,0)"
^XMB(3.9,43,2,2636,0)=" O IO U IO:(::""-M"")  ;Setup TCP port"
^XMB(3.9,43,2,2637,0)="""RTN"",""HLCSAS"",20,0)"
^XMB(3.9,43,2,2638,0)=" S IO(0)=""_NLA0:"" O IO(0) ;Setup null device"
^XMB(3.9,43,2,2639,0)="""RTN"",""HLCSAS"",21,0)"
^XMB(3.9,43,2,2640,0)=" D SVR"
^XMB(3.9,43,2,2641,0)="""RTN"",""HLCSAS"",22,0)"
^XMB(3.9,43,2,2642,0)=" Q"
^XMB(3.9,43,2,2643,0)="""RTN"",""HLCSAS"",23,0)"
^XMB(3.9,43,2,2644,0)="MSM ;Entry point from MSERVER"
^XMB(3.9,43,2,2645,0)="""RTN"",""HLCSAS"",24,0)"
^XMB(3.9,43,2,2646,0)=" ;S HLDP=ien"
^XMB(3.9,43,2,2647,0)="""RTN"",""HLCSAS"",25,0)"
^XMB(3.9,43,2,2648,0)=" S IO=56,IO(0)=46"
^XMB(3.9,43,2,2649,0)="""RTN"",""HLCSAS"",26,0)"
^XMB(3.9,43,2,2650,0)=" O 46 ;Null device"
^XMB(3.9,43,2,2651,0)="""RTN"",""HLCSAS"",27,0)"
^XMB(3.9,43,2,2652,0)=" D SVR C IO"
^XMB(3.9,43,2,2653,0)="""RTN"",""HLCSAS"",28,0)"
^XMB(3.9,43,2,2654,0)=" Q"
^XMB(3.9,43,2,2655,0)="""RTN"",""HLCSAS"",29,0)"
^XMB(3.9,43,2,2656,0)="ONT ;Cache/OpenM"
^XMB(3.9,43,2,2657,0)="""RTN"",""HLCSAS"",30,0)"
^XMB(3.9,43,2,2658,0)=" ;S HLDP=ien"
^XMB(3.9,43,2,2659,0)="""RTN"",""HLCSAS"",31,0)"
^XMB(3.9,43,2,2660,0)=" S IO=$I,IO(0)=""//./nul"""
^XMB(3.9,43,2,2661,0)="""RTN"",""HLCSAS"",32,0)"
^XMB(3.9,43,2,2662,0)=" O IO(0)"
^XMB(3.9,43,2,2663,0)="""RTN"",""HLCSAS"",33,0)"
^XMB(3.9,43,2,2664,0)=" D SVR"
^XMB(3.9,43,2,2665,0)="""RTN"",""HLCSAS"",34,0)"
^XMB(3.9,43,2,2666,0)=" Q"
^XMB(3.9,43,2,2667,0)="""RTN"",""HLCSAS"",35,0)"
^XMB(3.9,43,2,2668,0)=" ;"
^XMB(3.9,43,2,2669,0)="""RTN"",""HLCSAS"",36,0)"
^XMB(3.9,43,2,2670,0)="SVR ;Entry point when we have a connect"
^XMB(3.9,43,2,2671,0)="""RTN"",""HLCSAS"",37,0)"
^XMB(3.9,43,2,2672,0)=" ;See that IO=TCP device, and IO(0) is Null device and Open."
^XMB(3.9,43,2,2673,0)="""RTN"",""HLCSAS"",38,0)"
^XMB(3.9,43,2,2674,0)=" ;HLDP=ien of Logical Link"
^XMB(3.9,43,2,2675,0)="""RTN"",""HLCSAS"",39,0)"
^XMB(3.9,43,2,2676,0)=" N HCSA1,HCSER,HCSEXIT,HCSCMD,HCSDAT"
^XMB(3.9,43,2,2677,0)="""RTN"",""HLCSAS"",40,0)"
^XMB(3.9,43,2,2678,0)=" D SETUP Q:HCSER"
^XMB(3.9,43,2,2679,0)="""RTN"",""HLCSAS"",41,0)"
^XMB(3.9,43,2,2680,0)=" N $ESTACK,$ETRAP S $ETRAP=""D ^%ZTER H"""
^XMB(3.9,43,2,2681,0)="""RTN"",""HLCSAS"",42,0)"
^XMB(3.9,43,2,2682,0)=" D UPDT^HLCSTCP(1)"
^XMB(3.9,43,2,2683,0)="""RTN"",""HLCSAS"",43,0)"
^XMB(3.9,43,2,2684,0)=" F  D CREAD Q:HCSEXIT  D  Q:HCSEXIT"
^XMB(3.9,43,2,2685,0)="""RTN"",""HLCSAS"",44,0)"
^XMB(3.9,43,2,2686,0)=" . I HCSCMD="""" S HCSA1(""TCNT"")=$G(HCSA1(""TCNT""))+1 S:$$STOP^HLCSTCP!(HCSA1(""TCNT"")>10) HCSEXIT=1 Q"
^XMB(3.9,43,2,2687,0)="""RTN"",""HLCSAS"",45,0)"
^XMB(3.9,43,2,2688,0)=" . I HCSCMD'?4A D SEND(""500 Bad CMD: ""_$E(HCSCMD,1,20)) Q"
^XMB(3.9,43,2,2689,0)="""RTN"",""HLCSAS"",46,0)"
^XMB(3.9,43,2,2690,0)=" . I $T(@HCSCMD)="""" D SEND(""500 "") Q"
^XMB(3.9,43,2,2691,0)="""RTN"",""HLCSAS"",47,0)"
^XMB(3.9,43,2,2692,0)=" . S HCSA1(""TCNT"")=0"
^XMB(3.9,43,2,2693,0)="""RTN"",""HLCSAS"",48,0)"
^XMB(3.9,43,2,2694,0)=" . D @HCSCMD I $G(HCSER) D TRACE(""ERROR: ""_HCSER)"
^XMB(3.9,43,2,2695,0)="""RTN"",""HLCSAS"",49,0)"
^XMB(3.9,43,2,2696,0)=" . Q"
^XMB(3.9,43,2,2697,0)="""RTN"",""HLCSAS"",50,0)"
^XMB(3.9,43,2,2698,0)=" S:HCSEXIT IO(""C"")=1"
^XMB(3.9,43,2,2699,0)="""RTN"",""HLCSAS"",51,0)"
^XMB(3.9,43,2,2700,0)=" D TRACE(""Exit""),UPDT^HLCSTCP(0)"
^XMB(3.9,43,2,2701,0)="""RTN"",""HLCSAS"",52,0)"
^XMB(3.9,43,2,2702,0)=" Q"
^XMB(3.9,43,2,2703,0)="""RTN"",""HLCSAS"",53,0)"
^XMB(3.9,43,2,2704,0)="HELO ;Process HELO"
^XMB(3.9,43,2,2705,0)="""RTN"",""HLCSAS"",54,0)"
^XMB(3.9,43,2,2706,0)=" S HCSA1(""SITE"")=$P(HCSDAT,"" "")"
^XMB(3.9,43,2,2707,0)="""RTN"",""HLCSAS"",55,0)"
^XMB(3.9,43,2,2708,0)=" ;Do any check on who is sending"
^XMB(3.9,43,2,2709,0)="""RTN"",""HLCSAS"",56,0)"
^XMB(3.9,43,2,2710,0)=" D SEND(""220 ""_$$KSP^XUPARAM(""WHERE"")_"" Ready for ""_HCSDAT)"
^XMB(3.9,43,2,2711,0)="""RTN"",""HLCSAS"",57,0)"
^XMB(3.9,43,2,2712,0)=" Q"
^XMB(3.9,43,2,2713,0)="""RTN"",""HLCSAS"",58,0)"
^XMB(3.9,43,2,2714,0)=" ;"
^XMB(3.9,43,2,2715,0)="""RTN"",""HLCSAS"",59,0)"
^XMB(3.9,43,2,2716,0)="NOOP ;"
^XMB(3.9,43,2,2717,0)="""RTN"",""HLCSAS"",60,0)"
^XMB(3.9,43,2,2718,0)=" D SEND(""250 OK"")"
^XMB(3.9,43,2,2719,0)="""RTN"",""HLCSAS"",61,0)"
^XMB(3.9,43,2,2720,0)=" Q"
^XMB(3.9,43,2,2721,0)="""RTN"",""HLCSAS"",62,0)"
^XMB(3.9,43,2,2722,0)=" ;"
^XMB(3.9,43,2,2723,0)="""RTN"",""HLCSAS"",63,0)"
^XMB(3.9,43,2,2724,0)="DATA ;Process DATA"
^XMB(3.9,43,2,2725,0)="""RTN"",""HLCSAS"",64,0)"
^XMB(3.9,43,2,2726,0)=" ; The DATA cmd can pass some parameters as well, this could be passed"
^XMB(3.9,43,2,2727,0)="""RTN"",""HLCSAS"",65,0)"
^XMB(3.9,43,2,2728,0)=" ; to the processing routine also."
^XMB(3.9,43,2,2729,0)="""RTN"",""HLCSAS"",66,0)"
^XMB(3.9,43,2,2730,0)=" N P,I,DUZ,HLMID,HLTIEN,HLDT"
^XMB(3.9,43,2,2731,0)="""RTN"",""HLCSAS"",67,0)"
^XMB(3.9,43,2,2732,0)=" ;S DUZ=0,DUZ(0)=""@"""
^XMB(3.9,43,2,2733,0)="""RTN"",""HLCSAS"",68,0)"
^XMB(3.9,43,2,2734,0)=" D TRACE(""Get Data"")"
^XMB(3.9,43,2,2735,0)="""RTN"",""HLCSAS"",69,0)"
^XMB(3.9,43,2,2736,0)=" S HCSA1(""DATA"")=HCSDAT,HCSIN=$NA(TMP(""HCSI"",$J)),HCSOUT=$NA(^TMP(""HCSO"",$J))"
^XMB(3.9,43,2,2737,0)="""RTN"",""HLCSAS"",70,0)"
^XMB(3.9,43,2,2738,0)=" K @HCSOUT"
^XMB(3.9,43,2,2739,0)="""RTN"",""HLCSAS"",71,0)"
^XMB(3.9,43,2,2740,0)=" D DATA^HLCSAS1(HCSIN,.HCSA1) QUIT:$G(HCSER)"
^XMB(3.9,43,2,2741,0)="""RTN"",""HLCSAS"",72,0)"
^XMB(3.9,43,2,2742,0)=" S P="""" F I=1:1 Q:'$D(HCSA1(""P""_I))  S P=P_""P""_I_""=""_HCSA1(""P""_I)_"", """
^XMB(3.9,43,2,2743,0)="""RTN"",""HLCSAS"",73,0)"
^XMB(3.9,43,2,2744,0)=" D TRACE(""PARAM ""_P)"
^XMB(3.9,43,2,2745,0)="""RTN"",""HLCSAS"",74,0)"
^XMB(3.9,43,2,2746,0)=" ;Use the Null Device"
^XMB(3.9,43,2,2747,0)="""RTN"",""HLCSAS"",75,0)"
^XMB(3.9,43,2,2748,0)=" U IO(0)"
^XMB(3.9,43,2,2749,0)="""RTN"",""HLCSAS"",76,0)"
^XMB(3.9,43,2,2750,0)=" ;Now call soneone to process the data"
^XMB(3.9,43,2,2751,0)="""RTN"",""HLCSAS"",77,0)"
^XMB(3.9,43,2,2752,0)=" I HCSA1(""P1"")=""MPI"" D ^MPIDIRQ(HCSIN,HCSOUT)"
^XMB(3.9,43,2,2753,0)="""RTN"",""HLCSAS"",78,0)"
^XMB(3.9,43,2,2754,0)=" I HCSA1(""P1"")=""PING"" M @HCSOUT=@HCSIN"
^XMB(3.9,43,2,2755,0)="""RTN"",""HLCSAS"",79,0)"
^XMB(3.9,43,2,2756,0)=" U IO ;Back to the TCP device"
^XMB(3.9,43,2,2757,0)="""RTN"",""HLCSAS"",80,0)"
^XMB(3.9,43,2,2758,0)=" D LLCNT^HLCSTCP(HLDP,2)"
^XMB(3.9,43,2,2759,0)="""RTN"",""HLCSAS"",81,0)"
^XMB(3.9,43,2,2760,0)=" Q"
^XMB(3.9,43,2,2761,0)="""RTN"",""HLCSAS"",82,0)"
^XMB(3.9,43,2,2762,0)="TURN ;Turn and send responce"
^XMB(3.9,43,2,2763,0)="""RTN"",""HLCSAS"",83,0)"
^XMB(3.9,43,2,2764,0)=" D SEND(""220 OK"")"
^XMB(3.9,43,2,2765,0)="""RTN"",""HLCSAS"",84,0)"
^XMB(3.9,43,2,2766,0)=" D SDATA^HLCSAS1(HCSOUT,HCSA1(""P1""))"
^XMB(3.9,43,2,2767,0)="""RTN"",""HLCSAS"",85,0)"
^XMB(3.9,43,2,2768,0)=" D CREAD,TRACE(""Data Sent "") ;Look for 220 ok"
^XMB(3.9,43,2,2769,0)="""RTN"",""HLCSAS"",86,0)"
^XMB(3.9,43,2,2770,0)=" Q"
^XMB(3.9,43,2,2771,0)="""RTN"",""HLCSAS"",87,0)"
^XMB(3.9,43,2,2772,0)="QUIT ;Process QUIT"
^XMB(3.9,43,2,2773,0)="""RTN"",""HLCSAS"",88,0)"
^XMB(3.9,43,2,2774,0)=" D TRACE(""QUIT"")"
^XMB(3.9,43,2,2775,0)="""RTN"",""HLCSAS"",89,0)"
^XMB(3.9,43,2,2776,0)=" S HCSMSG="""",HCSEXIT=1"
^XMB(3.9,43,2,2777,0)="""RTN"",""HLCSAS"",90,0)"
^XMB(3.9,43,2,2778,0)=" Q"
^XMB(3.9,43,2,2779,0)="""RTN"",""HLCSAS"",91,0)"
^XMB(3.9,43,2,2780,0)=" ;"
^XMB(3.9,43,2,2781,0)="""RTN"",""HLCSAS"",92,0)"
^XMB(3.9,43,2,2782,0)="CREAD ;Read a string"
^XMB(3.9,43,2,2783,0)="""RTN"",""HLCSAS"",93,0)"
^XMB(3.9,43,2,2784,0)=" N $ETRAP S $ETRAP=""S $EC="""""""" G CREX"""
^XMB(3.9,43,2,2785,0)="""RTN"",""HLCSAS"",94,0)"
^XMB(3.9,43,2,2786,0)=" N I S (Y,HCSDAT,HCSCMD)="""",HCSER=0"
^XMB(3.9,43,2,2787,0)="""RTN"",""HLCSAS"",95,0)"
^XMB(3.9,43,2,2788,0)=" F I=0:1:255 R X#1:HLDREAD S:'$T HCSER=1 Q:X=$C(10)!HCSER  S Y=Y_X"
^XMB(3.9,43,2,2789,0)="""RTN"",""HLCSAS"",96,0)"
^XMB(3.9,43,2,2790,0)=" S Y=$TR(Y,$C(13,10)),HCSCMD=$P(Y,"" ""),HCSDAT=$P(Y,"" "",2,99)"
^XMB(3.9,43,2,2791,0)="""RTN"",""HLCSAS"",97,0)"
^XMB(3.9,43,2,2792,0)=" D TRACE(""Cmd Read ""_Y)"
^XMB(3.9,43,2,2793,0)="""RTN"",""HLCSAS"",98,0)"
^XMB(3.9,43,2,2794,0)=" Q"
^XMB(3.9,43,2,2795,0)="""RTN"",""HLCSAS"",99,0)"
^XMB(3.9,43,2,2796,0)="CREX S HCSEXIT=1,HCSER=""1 Error"""
^XMB(3.9,43,2,2797,0)="""RTN"",""HLCSAS"",100,0)"
^XMB(3.9,43,2,2798,0)=" Q"
^XMB(3.9,43,2,2799,0)="""RTN"",""HLCSAS"",101,0)"
^XMB(3.9,43,2,2800,0)=" ;"
^XMB(3.9,43,2,2801,0)="""RTN"",""HLCSAS"",102,0)"
^XMB(3.9,43,2,2802,0)="SEND(MSG) ;Send a cmd MSG"
^XMB(3.9,43,2,2803,0)="""RTN"",""HLCSAS"",103,0)"
^XMB(3.9,43,2,2804,0)=" N $ETRAP S $ETRAP=""S $EC="""""""" D CREX"""
^XMB(3.9,43,2,2805,0)="""RTN"",""HLCSAS"",104,0)"
^XMB(3.9,43,2,2806,0)=" D TRACE(""Cmd Send ""_MSG)"
^XMB(3.9,43,2,2807,0)="""RTN"",""HLCSAS"",105,0)"
^XMB(3.9,43,2,2808,0)=" W MSG,$C(13,10),!"
^XMB(3.9,43,2,2809,0)="""RTN"",""HLCSAS"",106,0)"
^XMB(3.9,43,2,2810,0)=" Q"
^XMB(3.9,43,2,2811,0)="""RTN"",""HLCSAS"",107,0)"
^XMB(3.9,43,2,2812,0)=" ;"
^XMB(3.9,43,2,2813,0)="""RTN"",""HLCSAS"",108,0)"
^XMB(3.9,43,2,2814,0)="SETUP ;Setup needed variables"
^XMB(3.9,43,2,2815,0)="""RTN"",""HLCSAS"",109,0)"
^XMB(3.9,43,2,2816,0)=" K IO(""C"")"
^XMB(3.9,43,2,2817,0)="""RTN"",""HLCSAS"",110,0)"
^XMB(3.9,43,2,2818,0)=" S X=$$INIT^HLCSTCP"
^XMB(3.9,43,2,2819,0)="""RTN"",""HLCSAS"",111,0)"
^XMB(3.9,43,2,2820,0)=" I 'X D ^%ZTER S HCSER=1 Q"
^XMB(3.9,43,2,2821,0)="""RTN"",""HLCSAS"",112,0)"
^XMB(3.9,43,2,2822,0)=" S (HCSER,HCSEXIT)=0,HCSTRACE=""S: "",HCSA1(""P1"")=""TEXT"""
^XMB(3.9,43,2,2823,0)="""RTN"",""HLCSAS"",113,0)"
^XMB(3.9,43,2,2824,0)=" D TRACE(-1),TRACE(""Server Setup"")"
^XMB(3.9,43,2,2825,0)="""RTN"",""HLCSAS"",114,0)"
^XMB(3.9,43,2,2826,0)=" Q"
^XMB(3.9,43,2,2827,0)="""RTN"",""HLCSAS"",115,0)"
^XMB(3.9,43,2,2828,0)=" ;"
^XMB(3.9,43,2,2829,0)="""RTN"",""HLCSAS"",116,0)"
^XMB(3.9,43,2,2830,0)="TRACE(S1) ;"
^XMB(3.9,43,2,2831,0)="""RTN"",""HLCSAS"",117,0)"
^XMB(3.9,43,2,2832,0)=" Q"
^XMB(3.9,43,2,2833,0)="""RTN"",""HLCSAS"",118,0)"
^XMB(3.9,43,2,2834,0)=" N H,%"
^XMB(3.9,43,2,2835,0)="""RTN"",""HLCSAS"",119,0)"
^XMB(3.9,43,2,2836,0)=" I S1=-1 K ^TMP(""HCSA"",$J) Q"
^XMB(3.9,43,2,2837,0)="""RTN"",""HLCSAS"",120,0)"
^XMB(3.9,43,2,2838,0)=" S H=$P($H,"","",2),H=(H\3600)_"":""_(H#3600\60)_"":""_(H#60)_"" """
^XMB(3.9,43,2,2839,0)="""RTN"",""HLCSAS"",121,0)"
^XMB(3.9,43,2,2840,0)=" L +^TMP(""HCSA"",$J) S %=$G(^TMP(""HCSA"",$J,0))+1,^(0)=%,^(%)=H_$G(HCSTRACE)_S1 L -^TMP(""HCSA"",$J)"
^XMB(3.9,43,2,2841,0)="""RTN"",""HLCSAS"",122,0)"
^XMB(3.9,43,2,2842,0)=" Q"
^XMB(3.9,43,2,2843,0)="""RTN"",""HLCSAS"",123,0)"
^XMB(3.9,43,2,2844,0)=" ;"
^XMB(3.9,43,2,2845,0)="""RTN"",""HLCSHDR1"")"
^XMB(3.9,43,2,2846,0)="0^2^B53997699^B24058167"
^XMB(3.9,43,2,2847,0)="""RTN"",""HLCSHDR1"",1,0)"
^XMB(3.9,43,2,2848,0)="HLCSHDR1 ;SFIRMFO/RSD - Make HL7 header for TCP ;03/07/2006  09:23"
^XMB(3.9,43,2,2849,0)="""RTN"",""HLCSHDR1"",2,0)"
^XMB(3.9,43,2,2850,0)=" ;;1.6;HEALTH LEVEL SEVEN;**19,57,59,72,80,93,120**;Oct 13, 1995;Build 12"
^XMB(3.9,43,2,2851,0)="""RTN"",""HLCSHDR1"",3,0)"
^XMB(3.9,43,2,2852,0)="HEADER(IEN,CLIENT,HLERROR) ; Create an HL7 MSH segment"
^XMB(3.9,43,2,2853,0)="""RTN"",""HLCSHDR1"",4,0)"
^XMB(3.9,43,2,2854,0)=" ;"
^XMB(3.9,43,2,2855,0)="""RTN"",""HLCSHDR1"",5,0)"
^XMB(3.9,43,2,2856,0)=" ;Input  : IEN - Pointer to entry in Message Administration file (#773)"
^XMB(3.9,43,2,2857,0)="""RTN"",""HLCSHDR1"",6,0)"
^XMB(3.9,43,2,2858,0)=" ;               that HL7 MSH segment is being built for"
^XMB(3.9,43,2,2859,0)="""RTN"",""HLCSHDR1"",7,0)"
^XMB(3.9,43,2,2860,0)=" ;         CLIENT - IEN of the receiving application"
^XMB(3.9,43,2,2861,0)="""RTN"",""HLCSHDR1"",8,0)"
^XMB(3.9,43,2,2862,0)=" ;         HLERROR - Variable to return possible error text in"
^XMB(3.9,43,2,2863,0)="""RTN"",""HLCSHDR1"",9,0)"
^XMB(3.9,43,2,2864,0)=" ;                   (pass by reference - only used when needed)"
^XMB(3.9,43,2,2865,0)="""RTN"",""HLCSHDR1"",10,0)"
^XMB(3.9,43,2,2866,0)=" ;"
^XMB(3.9,43,2,2867,0)="""RTN"",""HLCSHDR1"",11,0)"
^XMB(3.9,43,2,2868,0)=" ;Output : HLHDR(1) - HL7 MSH segment"
^XMB(3.9,43,2,2869,0)="""RTN"",""HLCSHDR1"",12,0)"
^XMB(3.9,43,2,2870,0)=" ;         HLHDR(2) - Continuation of HL7 MSH segment (if needed)"
^XMB(3.9,43,2,2871,0)="""RTN"",""HLCSHDR1"",13,0)"
^XMB(3.9,43,2,2872,0)=" ;         HLHDR(3) - Continuation of HL7 MSH segment (if needed)"
^XMB(3.9,43,2,2873,0)="""RTN"",""HLCSHDR1"",14,0)"
^XMB(3.9,43,2,2874,0)=" ;"
^XMB(3.9,43,2,2875,0)="""RTN"",""HLCSHDR1"",15,0)"
^XMB(3.9,43,2,2876,0)=" ;Notes  : HLERROR will only be defined [on output] if an error occurs"
^XMB(3.9,43,2,2877,0)="""RTN"",""HLCSHDR1"",16,0)"
^XMB(3.9,43,2,2878,0)=" ;       : HLHDR() will not be defined [on output] if an error occurs"
^XMB(3.9,43,2,2879,0)="""RTN"",""HLCSHDR1"",17,0)"
^XMB(3.9,43,2,2880,0)=" ;       : HLHDR(2) & HLHDR(3) are continuation [or roll-over] nodes"
^XMB(3.9,43,2,2881,0)="""RTN"",""HLCSHDR1"",18,0)"
^XMB(3.9,43,2,2882,0)=" ;         and will only be used/defined when needed"
^XMB(3.9,43,2,2883,0)="""RTN"",""HLCSHDR1"",19,0)"
^XMB(3.9,43,2,2884,0)=" ;"
^XMB(3.9,43,2,2885,0)="""RTN"",""HLCSHDR1"",20,0)"
^XMB(3.9,43,2,2886,0)=" N ACKTO,ACCACK,APPACK,CHILD,CLNTAPP,CLNTFAC,CNTRY,EC,EVNTYPE,FS,HLDATE,HLHDRI,HLHDRL,HLID,HLPID,MSGTYPE,PROT,PROTS,SECURITY,SEND,SERAPP,SERFAC,TXTP,TXTP0,X,MSGEVN"
^XMB(3.9,43,2,2887,0)="""RTN"",""HLCSHDR1"",21,0)"
^XMB(3.9,43,2,2888,0)=" N COMFLAG ; patch HL*1.6*120"
^XMB(3.9,43,2,2889,0)="""RTN"",""HLCSHDR1"",22,0)"
^XMB(3.9,43,2,2890,0)=" S HLPARAM=$$PARAM^HLCS2"
^XMB(3.9,43,2,2891,0)="""RTN"",""HLCSHDR1"",23,0)"
^XMB(3.9,43,2,2892,0)=" D VAR Q:$G(HLERROR)]"""""
^XMB(3.9,43,2,2893,0)="""RTN"",""HLCSHDR1"",24,0)"
^XMB(3.9,43,2,2894,0)=" ; The following line commented by HL*1.6*72"
^XMB(3.9,43,2,2895,0)="""RTN"",""HLCSHDR1"",25,0)"
^XMB(3.9,43,2,2896,0)=" ;I $D(^HLMA(IEN)) S $P(^HLMA(IEN,0),U,13)=MSGTYPE,$P(^HLMA(IEN,0),U,14)=$G(EVNTYPE)"
^XMB(3.9,43,2,2897,0)="""RTN"",""HLCSHDR1"",26,0)"
^XMB(3.9,43,2,2898,0)=" ;Append event type"
^XMB(3.9,43,2,2899,0)="""RTN"",""HLCSHDR1"",27,0)"
^XMB(3.9,43,2,2900,0)=" I $G(EVNTYPE)]"""" S MSGTYPE=MSGTYPE_$E(EC,1)_EVNTYPE"
^XMB(3.9,43,2,2901,0)="""RTN"",""HLCSHDR1"",28,0)"
^XMB(3.9,43,2,2902,0)=" ;Append message structure component"
^XMB(3.9,43,2,2903,0)="""RTN"",""HLCSHDR1"",29,0)"
^XMB(3.9,43,2,2904,0)=" I $G(EVNTYPE)]"""",$G(MSGEVN)]"""" S MSGTYPE=MSGTYPE_$E(EC,1)_MSGEVN"
^XMB(3.9,43,2,2905,0)="""RTN"",""HLCSHDR1"",30,0)"
^XMB(3.9,43,2,2906,0)=" ;Build MSH array"
^XMB(3.9,43,2,2907,0)="""RTN"",""HLCSHDR1"",31,0)"
^XMB(3.9,43,2,2908,0)=" D RESET^HLCSHDR3 ;HL*1.6*93"
^XMB(3.9,43,2,2909,0)="""RTN"",""HLCSHDR1"",32,0)"
^XMB(3.9,43,2,2910,0)=" ;"
^XMB(3.9,43,2,2911,0)="""RTN"",""HLCSHDR1"",33,0)"
^XMB(3.9,43,2,2912,0)=" ; patch HL*1.6*120 start"
^XMB(3.9,43,2,2913,0)="""RTN"",""HLCSHDR1"",34,0)"
^XMB(3.9,43,2,2914,0)=" ; escape delimiters for SERAPP and CLNTAPP"
^XMB(3.9,43,2,2915,0)="""RTN"",""HLCSHDR1"",35,0)"
^XMB(3.9,43,2,2916,0)=" ; escape component separator if the field is not consisted"
^XMB(3.9,43,2,2917,0)="""RTN"",""HLCSHDR1"",36,0)"
^XMB(3.9,43,2,2918,0)=" ; of 3 components"
^XMB(3.9,43,2,2919,0)="""RTN"",""HLCSHDR1"",37,0)"
^XMB(3.9,43,2,2920,0)=" S EC(1)=$E(EC,1)"
^XMB(3.9,43,2,2921,0)="""RTN"",""HLCSHDR1"",38,0)"
^XMB(3.9,43,2,2922,0)=" S EC(2)=$E(EC,2)"
^XMB(3.9,43,2,2923,0)="""RTN"",""HLCSHDR1"",39,0)"
^XMB(3.9,43,2,2924,0)=" S EC(3)=$E(EC,3)"
^XMB(3.9,43,2,2925,0)="""RTN"",""HLCSHDR1"",40,0)"
^XMB(3.9,43,2,2926,0)=" S EC(4)=$E(EC,4)"
^XMB(3.9,43,2,2927,0)="""RTN"",""HLCSHDR1"",41,0)"
^XMB(3.9,43,2,2928,0)=" S COMFLAG=1"
^XMB(3.9,43,2,2929,0)="""RTN"",""HLCSHDR1"",42,0)"
^XMB(3.9,43,2,2930,0)=" I $L(SERAPP,$E(EC,1))=3 S COMFLAG=0"
^XMB(3.9,43,2,2931,0)="""RTN"",""HLCSHDR1"",43,0)"
^XMB(3.9,43,2,2932,0)=" I (SERAPP[FS)!(SERAPP[EC(1))!(SERAPP[EC(2))!(SERAPP[EC(3))!(SERAPP[EC(4)) D"
^XMB(3.9,43,2,2933,0)="""RTN"",""HLCSHDR1"",44,0)"
^XMB(3.9,43,2,2934,0)=" . S SERAPP=$$ESCAPE(SERAPP,COMFLAG)"
^XMB(3.9,43,2,2935,0)="""RTN"",""HLCSHDR1"",45,0)"
^XMB(3.9,43,2,2936,0)=" S COMFLAG=1"
^XMB(3.9,43,2,2937,0)="""RTN"",""HLCSHDR1"",46,0)"
^XMB(3.9,43,2,2938,0)=" I $L(CLNTAPP,$E(EC,1))=3 S COMFLAG=0"
^XMB(3.9,43,2,2939,0)="""RTN"",""HLCSHDR1"",47,0)"
^XMB(3.9,43,2,2940,0)=" I (CLNTAPP[FS)!(CLNTAPP[EC(1))!(CLNTAPP[EC(2))!(CLNTAPP[EC(3))!(CLNTAPP[EC(4)) D"
^XMB(3.9,43,2,2941,0)="""RTN"",""HLCSHDR1"",48,0)"
^XMB(3.9,43,2,2942,0)=" . S CLNTAPP=$$ESCAPE(CLNTAPP,COMFLAG)"
^XMB(3.9,43,2,2943,0)="""RTN"",""HLCSHDR1"",49,0)"
^XMB(3.9,43,2,2944,0)=" ; patch HL*1.6*120 end"
^XMB(3.9,43,2,2945,0)="""RTN"",""HLCSHDR1"",50,0)"
^XMB(3.9,43,2,2946,0)=" ;"
^XMB(3.9,43,2,2947,0)="""RTN"",""HLCSHDR1"",51,0)"
^XMB(3.9,43,2,2948,0)=" S HLHDRI=1,HLHDR(1)=""MSH""_FS_EC_FS_SERAPP,HLHDRL=$L(HLHDR(1))"
^XMB(3.9,43,2,2949,0)="""RTN"",""HLCSHDR1"",52,0)"
^XMB(3.9,43,2,2950,0)=" F X=SERFAC,CLNTAPP,CLNTFAC,HLDATE,SECURITY,MSGTYPE,HLID,HLPID,$P(PROT,U,9),"""",$G(^HL(772,TXTP,1)),ACCACK,APPACK,CNTRY D MSH(X)"
^XMB(3.9,43,2,2951,0)="""RTN"",""HLCSHDR1"",53,0)"
^XMB(3.9,43,2,2952,0)=" ;in preceeding line, """" is for sequence number - not supported"
^XMB(3.9,43,2,2953,0)="""RTN"",""HLCSHDR1"",54,0)"
^XMB(3.9,43,2,2954,0)=" Q"
^XMB(3.9,43,2,2955,0)="""RTN"",""HLCSHDR1"",55,0)"
^XMB(3.9,43,2,2956,0)=" ;"
^XMB(3.9,43,2,2957,0)="""RTN"",""HLCSHDR1"",56,0)"
^XMB(3.9,43,2,2958,0)="MSH(X) ;add X to HLHDR"
^XMB(3.9,43,2,2959,0)="""RTN"",""HLCSHDR1"",57,0)"
^XMB(3.9,43,2,2960,0)=" S:HLHDRL+$L(X)>245 HLHDRI=HLHDRI+1,HLHDR(HLHDRI)="""""
^XMB(3.9,43,2,2961,0)="""RTN"",""HLCSHDR1"",58,0)"
^XMB(3.9,43,2,2962,0)=" S HLHDR(HLHDRI)=HLHDR(HLHDRI)_FS_X,HLHDRL=$L(HLHDR(HLHDRI))"
^XMB(3.9,43,2,2963,0)="""RTN"",""HLCSHDR1"",59,0)"
^XMB(3.9,43,2,2964,0)=" Q"
^XMB(3.9,43,2,2965,0)="""RTN"",""HLCSHDR1"",60,0)"
^XMB(3.9,43,2,2966,0)="BHSHDR(IEN,CLIENT,HLERROR) ; Create Batch Header Segment"
^XMB(3.9,43,2,2967,0)="""RTN"",""HLCSHDR1"",61,0)"
^XMB(3.9,43,2,2968,0)=" ; The BHS has 12 segments, of which 4 are blank."
^XMB(3.9,43,2,2969,0)="""RTN"",""HLCSHDR1"",62,0)"
^XMB(3.9,43,2,2970,0)=" ; INPUT: IEN - IEN of entry in file #772"
^XMB(3.9,43,2,2971,0)="""RTN"",""HLCSHDR1"",63,0)"
^XMB(3.9,43,2,2972,0)=" ; OUTPUT: HLHDR(1) and HLHDR(2) - the two lines with the 12 segs."
^XMB(3.9,43,2,2973,0)="""RTN"",""HLCSHDR1"",64,0)"
^XMB(3.9,43,2,2974,0)=" ;   ready for adding to a message directly."
^XMB(3.9,43,2,2975,0)="""RTN"",""HLCSHDR1"",65,0)"
^XMB(3.9,43,2,2976,0)=" N ACKTO,ACCACK,ACKMID,APPACK,BNAME,BSTATUS,BTACK,CHILD,CLNTAPP ;HL*1.6*80"
^XMB(3.9,43,2,2977,0)="""RTN"",""HLCSHDR1"",66,0)"
^XMB(3.9,43,2,2978,0)=" N CLNTFAC,CNTRY,EC,EVNTYPE,FS,HLDATE,HLHDRI,HLHDRL,HLID,HLPID ;HL*1.6*80 - added HLPID"
^XMB(3.9,43,2,2979,0)="""RTN"",""HLCSHDR1"",67,0)"
^XMB(3.9,43,2,2980,0)=" N PROT,PROTS,SECURITY,SEND,SERAPP,SERFAC,TXTP,TXTP0,X ;HL*1.6*80"
^XMB(3.9,43,2,2981,0)="""RTN"",""HLCSHDR1"",68,0)"
^XMB(3.9,43,2,2982,0)=" N COMFLAG ; patch HL*1.6*120"
^XMB(3.9,43,2,2983,0)="""RTN"",""HLCSHDR1"",69,0)"
^XMB(3.9,43,2,2984,0)=" ;"
^XMB(3.9,43,2,2985,0)="""RTN"",""HLCSHDR1"",70,0)"
^XMB(3.9,43,2,2986,0)=" S HLPARAM=$$PARAM^HLCS2"
^XMB(3.9,43,2,2987,0)="""RTN"",""HLCSHDR1"",71,0)"
^XMB(3.9,43,2,2988,0)=" D VAR Q:$G(HLERROR)]"""""
^XMB(3.9,43,2,2989,0)="""RTN"",""HLCSHDR1"",72,0)"
^XMB(3.9,43,2,2990,0)=" ; The following line commented by HL*1.6*72"
^XMB(3.9,43,2,2991,0)="""RTN"",""HLCSHDR1"",73,0)"
^XMB(3.9,43,2,2992,0)=" ;I $D(^HLMA(IEN)) S $P(^HLMA(IEN,0),U,13)=MSGTYPE,$P(^HLMA(IEN,0),U,14)=$G(EVNTYPE)"
^XMB(3.9,43,2,2993,0)="""RTN"",""HLCSHDR1"",74,0)"
^XMB(3.9,43,2,2994,0)=" ;"
^XMB(3.9,43,2,2995,0)="""RTN"",""HLCSHDR1"",75,0)"
^XMB(3.9,43,2,2996,0)=" ;Append event type"
^XMB(3.9,43,2,2997,0)="""RTN"",""HLCSHDR1"",76,0)"
^XMB(3.9,43,2,2998,0)=" I $G(EVNTYPE)]"""" S MSGTYPE=MSGTYPE_$E(EC,2)_EVNTYPE,(ACKMID,BTACK)="""""
^XMB(3.9,43,2,2999,0)="""RTN"",""HLCSHDR1"",77,0)"
^XMB(3.9,43,2,3000,0)=" ;batch/name/id/type(#9)=null~process ID~msg type|evnt type~version~CA~AA"
^XMB(3.9,43,2,3001,0)="""RTN"",""HLCSHDR1"",78,0)"
^XMB(3.9,43,2,3002,0)=" S BNAME=$E(EC,1)_HLPID_$E(EC,1)_MSGTYPE_$E(EC,1)_$P(PROT,U,9)_$E(EC,1)_ACCACK_$E(EC,1)_APPACK ;HL*1.6*80"
^XMB(3.9,43,2,3003,0)="""RTN"",""HLCSHDR1"",79,0)"
^XMB(3.9,43,2,3004,0)=" ;for batch ACK"
^XMB(3.9,43,2,3005,0)="""RTN"",""HLCSHDR1"",80,0)"
^XMB(3.9,43,2,3006,0)=" I ACKTO D  S BTACK=X_$E(EC,1)_$P(BSTATUS,U,3)"
^XMB(3.9,43,2,3007,0)="""RTN"",""HLCSHDR1"",81,0)"
^XMB(3.9,43,2,3008,0)=" . ;get msg id and status of message that is being ACKed"
^XMB(3.9,43,2,3009,0)="""RTN"",""HLCSHDR1"",82,0)"
^XMB(3.9,43,2,3010,0)=" . S ACKMID=$P($G(^HLMA(ACKTO,0)),U,2),BSTATUS=$G(^HLMA(ACKTO,""P"")) ;HL*1.6*80"
^XMB(3.9,43,2,3011,0)="""RTN"",""HLCSHDR1"",83,0)"
^XMB(3.9,43,2,3012,0)=" . ;set type of ACK based on status"
^XMB(3.9,43,2,3013,0)="""RTN"",""HLCSHDR1"",84,0)"
^XMB(3.9,43,2,3014,0)=" . S X=$S(ACKMID="""":""AR"",(BSTATUS>3)&(BSTATUS<8):""AE"",1:""AA"")"
^XMB(3.9,43,2,3015,0)="""RTN"",""HLCSHDR1"",85,0)"
^XMB(3.9,43,2,3016,0)=" ;"
^XMB(3.9,43,2,3017,0)="""RTN"",""HLCSHDR1"",86,0)"
^XMB(3.9,43,2,3018,0)=" D RESET^HLCSHDR3 ;HL*1.6*93"
^XMB(3.9,43,2,3019,0)="""RTN"",""HLCSHDR1"",87,0)"
^XMB(3.9,43,2,3020,0)=" ;"
^XMB(3.9,43,2,3021,0)="""RTN"",""HLCSHDR1"",88,0)"
^XMB(3.9,43,2,3022,0)=" ; patch HL*1.6*120 start"
^XMB(3.9,43,2,3023,0)="""RTN"",""HLCSHDR1"",89,0)"
^XMB(3.9,43,2,3024,0)=" ; escape delimiters for SERAPP and CLNTAPP"
^XMB(3.9,43,2,3025,0)="""RTN"",""HLCSHDR1"",90,0)"
^XMB(3.9,43,2,3026,0)=" ; escape component separator if the field is not consisted"
^XMB(3.9,43,2,3027,0)="""RTN"",""HLCSHDR1"",91,0)"
^XMB(3.9,43,2,3028,0)=" ; of 3 components"
^XMB(3.9,43,2,3029,0)="""RTN"",""HLCSHDR1"",92,0)"
^XMB(3.9,43,2,3030,0)=" S EC(1)=$E(EC,1)"
^XMB(3.9,43,2,3031,0)="""RTN"",""HLCSHDR1"",93,0)"
^XMB(3.9,43,2,3032,0)=" S EC(2)=$E(EC,2)"
^XMB(3.9,43,2,3033,0)="""RTN"",""HLCSHDR1"",94,0)"
^XMB(3.9,43,2,3034,0)=" S EC(3)=$E(EC,3)"
^XMB(3.9,43,2,3035,0)="""RTN"",""HLCSHDR1"",95,0)"
^XMB(3.9,43,2,3036,0)=" S EC(4)=$E(EC,4)"
^XMB(3.9,43,2,3037,0)="""RTN"",""HLCSHDR1"",96,0)"
^XMB(3.9,43,2,3038,0)=" S COMFLAG=1"
^XMB(3.9,43,2,3039,0)="""RTN"",""HLCSHDR1"",97,0)"
^XMB(3.9,43,2,3040,0)=" I $L(SERAPP,$E(EC,1))=3 S COMFLAG=0"
^XMB(3.9,43,2,3041,0)="""RTN"",""HLCSHDR1"",98,0)"
^XMB(3.9,43,2,3042,0)=" I (SERAPP[FS)!(SERAPP[EC(1))!(SERAPP[EC(2))!(SERAPP[EC(3))!(SERAPP[EC(4)) D"
^XMB(3.9,43,2,3043,0)="""RTN"",""HLCSHDR1"",99,0)"
^XMB(3.9,43,2,3044,0)=" . S SERAPP=$$ESCAPE(SERAPP,COMFLAG)"
^XMB(3.9,43,2,3045,0)="""RTN"",""HLCSHDR1"",100,0)"
^XMB(3.9,43,2,3046,0)=" S COMFLAG=1"
^XMB(3.9,43,2,3047,0)="""RTN"",""HLCSHDR1"",101,0)"
^XMB(3.9,43,2,3048,0)=" I $L(CLNTAPP,$E(EC,1))=3 S COMFLAG=0"
^XMB(3.9,43,2,3049,0)="""RTN"",""HLCSHDR1"",102,0)"
^XMB(3.9,43,2,3050,0)=" I (CLNTAPP[FS)!(CLNTAPP[EC(1))!(CLNTAPP[EC(2))!(CLNTAPP[EC(3))!(CLNTAPP[EC(4)) D"
^XMB(3.9,43,2,3051,0)="""RTN"",""HLCSHDR1"",103,0)"
^XMB(3.9,43,2,3052,0)=" . S CLNTAPP=$$ESCAPE(CLNTAPP,COMFLAG)"
^XMB(3.9,43,2,3053,0)="""RTN"",""HLCSHDR1"",104,0)"
^XMB(3.9,43,2,3054,0)=" ; patch HL*1.6*120 end"
^XMB(3.9,43,2,3055,0)="""RTN"",""HLCSHDR1"",105,0)"
^XMB(3.9,43,2,3056,0)=" ;"
^XMB(3.9,43,2,3057,0)="""RTN"",""HLCSHDR1"",106,0)"
^XMB(3.9,43,2,3058,0)=" S HLHDRI=1,HLHDR(1)=""BHS""_FS_EC_FS_SERAPP,HLHDRL=$L(HLHDR(1))"
^XMB(3.9,43,2,3059,0)="""RTN"",""HLCSHDR1"",107,0)"
^XMB(3.9,43,2,3060,0)=" F X=SERFAC,CLNTAPP,CLNTFAC,HLDATE,SECURITY,BNAME,BTACK,HLID,ACKMID D MSH(X)"
^XMB(3.9,43,2,3061,0)="""RTN"",""HLCSHDR1"",108,0)"
^XMB(3.9,43,2,3062,0)=" Q"
^XMB(3.9,43,2,3063,0)="""RTN"",""HLCSHDR1"",109,0)"
^XMB(3.9,43,2,3064,0)="VAR ;Check input"
^XMB(3.9,43,2,3065,0)="""RTN"",""HLCSHDR1"",110,0)"
^XMB(3.9,43,2,3066,0)=" N APPPRM,HLPROTS,HLPROT"
^XMB(3.9,43,2,3067,0)="""RTN"",""HLCSHDR1"",111,0)"
^XMB(3.9,43,2,3068,0)=" S IEN=+$G(IEN)"
^XMB(3.9,43,2,3069,0)="""RTN"",""HLCSHDR1"",112,0)"
^XMB(3.9,43,2,3070,0)=" I '$G(^HLMA(IEN,0)) S HLERROR=""Valid pointer to Message Administration file (#772) not passed"" Q"
^XMB(3.9,43,2,3071,0)="""RTN"",""HLCSHDR1"",113,0)"
^XMB(3.9,43,2,3072,0)=" I '$G(CLIENT) S HLERROR=""Could not determine receiving application"" Q"
^XMB(3.9,43,2,3073,0)="""RTN"",""HLCSHDR1"",114,0)"
^XMB(3.9,43,2,3074,0)=" ;Get child, text pointer,text entry, and sending app."
^XMB(3.9,43,2,3075,0)="""RTN"",""HLCSHDR1"",115,0)"
^XMB(3.9,43,2,3076,0)=" S CHILD=$G(^HLMA(IEN,0)),SEND=+$P($G(^(0)),U,11),TXTP=+CHILD,TXTP0=$G(^HL(772,TXTP,0))"
^XMB(3.9,43,2,3077,0)="""RTN"",""HLCSHDR1"",116,0)"
^XMB(3.9,43,2,3078,0)=" I ('SEND) S HLERROR=""Could not determine sending application"" Q"
^XMB(3.9,43,2,3079,0)="""RTN"",""HLCSHDR1"",117,0)"
^XMB(3.9,43,2,3080,0)=" ;Get info for sending & receiving applications"
^XMB(3.9,43,2,3081,0)="""RTN"",""HLCSHDR1"",118,0)"
^XMB(3.9,43,2,3082,0)=" D APPPRM^HLUTIL2(CLIENT),APPPRM^HLUTIL2(SEND)"
^XMB(3.9,43,2,3083,0)="""RTN"",""HLCSHDR1"",119,0)"
^XMB(3.9,43,2,3084,0)=" ;Get name of sending application, facility, and country"
^XMB(3.9,43,2,3085,0)="""RTN"",""HLCSHDR1"",120,0)"
^XMB(3.9,43,2,3086,0)=" S SERAPP=$P(APPPRM(SEND,0),U),SERFAC=$P(APPPRM(SEND,0),U,2),CNTRY=$P(APPPRM(SEND,0),U,3)"
^XMB(3.9,43,2,3087,0)="""RTN"",""HLCSHDR1"",121,0)"
^XMB(3.9,43,2,3088,0)=" ;Get name of receiving application and facility"
^XMB(3.9,43,2,3089,0)="""RTN"",""HLCSHDR1"",122,0)"
^XMB(3.9,43,2,3090,0)=" S CLNTAPP=$P(APPPRM(CLIENT,0),U),CLNTFAC=$P(APPPRM(CLIENT,0),U,2)"
^XMB(3.9,43,2,3091,0)="""RTN"",""HLCSHDR1"",123,0)"
^XMB(3.9,43,2,3092,0)=" ;"
^XMB(3.9,43,2,3093,0)="""RTN"",""HLCSHDR1"",124,0)"
^XMB(3.9,43,2,3094,0)=" ; patch HL*1.6*120"
^XMB(3.9,43,2,3095,0)="""RTN"",""HLCSHDR1"",125,0)"
^XMB(3.9,43,2,3096,0)=" ; for dynamic addressing, overide the receiving facility from the"
^XMB(3.9,43,2,3097,0)="""RTN"",""HLCSHDR1"",126,0)"
^XMB(3.9,43,2,3098,0)=" ; 3rd component of HLL(""LINKS"") array"
^XMB(3.9,43,2,3099,0)="""RTN"",""HLCSHDR1"",127,0)"
^XMB(3.9,43,2,3100,0)=" I $G(HLP(""REC-FACILITY""))]"""" S CLNTFAC=HLP(""REC-FACILITY"")"
^XMB(3.9,43,2,3101,0)="""RTN"",""HLCSHDR1"",128,0)"
^XMB(3.9,43,2,3102,0)=" ;"
^XMB(3.9,43,2,3103,0)="""RTN"",""HLCSHDR1"",129,0)"
^XMB(3.9,43,2,3104,0)=" ;Get field separator & encoding characters"
^XMB(3.9,43,2,3105,0)="""RTN"",""HLCSHDR1"",130,0)"
^XMB(3.9,43,2,3106,0)=" S FS=APPPRM(SEND,""FS""),EC=APPPRM(SEND,""EC"")"
^XMB(3.9,43,2,3107,0)="""RTN"",""HLCSHDR1"",131,0)"
^XMB(3.9,43,2,3108,0)=" S:(EC="""") EC=""~|\&"" S:(FS="""") FS=""^"""
^XMB(3.9,43,2,3109,0)="""RTN"",""HLCSHDR1"",132,0)"
^XMB(3.9,43,2,3110,0)=" ;Determine if it's a response/ACK to another message"
^XMB(3.9,43,2,3111,0)="""RTN"",""HLCSHDR1"",133,0)"
^XMB(3.9,43,2,3112,0)=" S ACKTO=+$P(CHILD,U,10)"
^XMB(3.9,43,2,3113,0)="""RTN"",""HLCSHDR1"",134,0)"
^XMB(3.9,43,2,3114,0)=" ;subscriber protocol is from child (file 773)"
^XMB(3.9,43,2,3115,0)="""RTN"",""HLCSHDR1"",135,0)"
^XMB(3.9,43,2,3116,0)=" ;If response, get MType from subscriber"
^XMB(3.9,43,2,3117,0)="""RTN"",""HLCSHDR1"",136,0)"
^XMB(3.9,43,2,3118,0)=" S HLPROTS=+$P(CHILD,U,8)"
^XMB(3.9,43,2,3119,0)="""RTN"",""HLCSHDR1"",137,0)"
^XMB(3.9,43,2,3120,0)=" S PROTS=$$TYPE^HLUTIL2(HLPROTS)"
^XMB(3.9,43,2,3121,0)="""RTN"",""HLCSHDR1"",138,0)"
^XMB(3.9,43,2,3122,0)=" I ACKTO S MSGTYPE=$P(PROTS,U,10),EVNTYPE=$P(PROTS,U,3),MSGEVN=$P(PROTS,U,4)"
^XMB(3.9,43,2,3123,0)="""RTN"",""HLCSHDR1"",139,0)"
^XMB(3.9,43,2,3124,0)=" ;Get accept ack & application ack type (based on server protocol) it"
^XMB(3.9,43,2,3125,0)="""RTN"",""HLCSHDR1"",140,0)"
^XMB(3.9,43,2,3126,0)=" ; is always in file 772, TXPT0"
^XMB(3.9,43,2,3127,0)="""RTN"",""HLCSHDR1"",141,0)"
^XMB(3.9,43,2,3128,0)=" ;If original message, get MT from Event Driver Protocol"
^XMB(3.9,43,2,3129,0)="""RTN"",""HLCSHDR1"",142,0)"
^XMB(3.9,43,2,3130,0)=" S HLPROT=+$P(TXTP0,U,10)"
^XMB(3.9,43,2,3131,0)="""RTN"",""HLCSHDR1"",143,0)"
^XMB(3.9,43,2,3132,0)=" S PROT=$$TYPE^HLUTIL2(HLPROT)"
^XMB(3.9,43,2,3133,0)="""RTN"",""HLCSHDR1"",144,0)"
^XMB(3.9,43,2,3134,0)=" S:'ACKTO MSGTYPE=$P(PROT,U,2),EVNTYPE=$P(PROT,U,3),MSGEVN=$P(PROT,U,4)"
^XMB(3.9,43,2,3135,0)="""RTN"",""HLCSHDR1"",145,0)"
^XMB(3.9,43,2,3136,0)=" S ACCACK=$P(PROT,U,7),APPACK=$P(PROT,U,8)"
^XMB(3.9,43,2,3137,0)="""RTN"",""HLCSHDR1"",146,0)"
^XMB(3.9,43,2,3138,0)="PID ;Processing ID"
^XMB(3.9,43,2,3139,0)="""RTN"",""HLCSHDR1"",147,0)"
^XMB(3.9,43,2,3140,0)=" ;I PID not 'debug' get from site params"
^XMB(3.9,43,2,3141,0)="""RTN"",""HLCSHDR1"",148,0)"
^XMB(3.9,43,2,3142,0)=" ;If event driver set to 'debug' get from protocol"
^XMB(3.9,43,2,3143,0)="""RTN"",""HLCSHDR1"",149,0)"
^XMB(3.9,43,2,3144,0)=" ;'production' or 'training' comes from site params"
^XMB(3.9,43,2,3145,0)="""RTN"",""HLCSHDR1"",150,0)"
^XMB(3.9,43,2,3146,0)=" S HLPID=$P(PROT,U,5)"
^XMB(3.9,43,2,3147,0)="""RTN"",""HLCSHDR1"",151,0)"
^XMB(3.9,43,2,3148,0)=" I $G(HLPID)'=""D"" S HLPID=$P(HLPARAM,U,3)"
^XMB(3.9,43,2,3149,0)="""RTN"",""HLCSHDR1"",152,0)"
^XMB(3.9,43,2,3150,0)=" ;"
^XMB(3.9,43,2,3151,0)="""RTN"",""HLCSHDR1"",153,0)"
^XMB(3.9,43,2,3152,0)=" ; patch HL*1.6*120: to include processing mode"
^XMB(3.9,43,2,3153,0)="""RTN"",""HLCSHDR1"",154,0)"
^XMB(3.9,43,2,3154,0)=" I $G(HLP(""PMOD""))]"""",($G(HLTYPE)=""M"") D"
^XMB(3.9,43,2,3155,0)="""RTN"",""HLCSHDR1"",155,0)"
^XMB(3.9,43,2,3156,0)=" . S HLPID=HLPID_$E($G(EC),1)_HLP(""PMOD"")"
^XMB(3.9,43,2,3157,0)="""RTN"",""HLCSHDR1"",156,0)"
^XMB(3.9,43,2,3158,0)=" ;"
^XMB(3.9,43,2,3159,0)="""RTN"",""HLCSHDR1"",157,0)"
^XMB(3.9,43,2,3160,0)=" I $G(HLPID)="""" S HLERROR=""Missing processing ID Site parameter."""
^XMB(3.9,43,2,3161,0)="""RTN"",""HLCSHDR1"",158,0)"
^XMB(3.9,43,2,3162,0)=" ;acknowledgements have no application ack, link open no commit ack"
^XMB(3.9,43,2,3163,0)="""RTN"",""HLCSHDR1"",159,0)"
^XMB(3.9,43,2,3164,0)=" I ACKTO S:APPACK]"""" APPACK=""NE"" S:ACCACK]""""&$G(HLTCPO) ACCACK=""NE"""
^XMB(3.9,43,2,3165,0)="""RTN"",""HLCSHDR1"",160,0)"
^XMB(3.9,43,2,3166,0)=" ;Get date/time, Message ID, and security"
^XMB(3.9,43,2,3167,0)="""RTN"",""HLCSHDR1"",161,0)"
^XMB(3.9,43,2,3168,0)=" S HLDATE=+TXTP0,HLDATE=$$FMTHL7^XLFDT(HLDATE),HLID=$P(CHILD,U,2),SECURITY=$P(CHILD,U,9)"
^XMB(3.9,43,2,3169,0)="""RTN"",""HLCSHDR1"",162,0)"
^XMB(3.9,43,2,3170,0)="HDR23 ;generate extended facility field info based on 'facility required'"
^XMB(3.9,43,2,3171,0)="""RTN"",""HLCSHDR1"",163,0)"
^XMB(3.9,43,2,3172,0)=" ;default format is INSTITUTION_HLCS_DOMAIN_HLCS_'DNS'"
^XMB(3.9,43,2,3173,0)="""RTN"",""HLCSHDR1"",164,0)"
^XMB(3.9,43,2,3174,0)=" ;application parameter entry overrides default"
^XMB(3.9,43,2,3175,0)="""RTN"",""HLCSHDR1"",165,0)"
^XMB(3.9,43,2,3176,0)=" N HLEP773,HLS773"
^XMB(3.9,43,2,3177,0)="""RTN"",""HLCSHDR1"",166,0)"
^XMB(3.9,43,2,3178,0)=" S SERFAC=$G(SERFAC),CLNTFAC=$G(CLNTFAC)"
^XMB(3.9,43,2,3179,0)="""RTN"",""HLCSHDR1"",167,0)"
^XMB(3.9,43,2,3180,0)=" S HLEP773=+$G(^ORD(101,HLPROTS,773))"
^XMB(3.9,43,2,3181,0)="""RTN"",""HLCSHDR1"",168,0)"
^XMB(3.9,43,2,3182,0)=" S HLS773=+$P($G(^ORD(101,HLPROTS,773)),U,2)"
^XMB(3.9,43,2,3183,0)="""RTN"",""HLCSHDR1"",169,0)"
^XMB(3.9,43,2,3184,0)=" Q:'HLEP773&('HLS773)"
^XMB(3.9,43,2,3185,0)="""RTN"",""HLCSHDR1"",170,0)"
^XMB(3.9,43,2,3186,0)=" D GEN^HLCSHDR2"
^XMB(3.9,43,2,3187,0)="""RTN"",""HLCSHDR1"",171,0)"
^XMB(3.9,43,2,3188,0)=" I ACKTO D  Q"
^XMB(3.9,43,2,3189,0)="""RTN"",""HLCSHDR1"",172,0)"
^XMB(3.9,43,2,3190,0)=" .;Find original message"
^XMB(3.9,43,2,3191,0)="""RTN"",""HLCSHDR1"",173,0)"
^XMB(3.9,43,2,3192,0)=" .S X=$G(^HLMA(ACKTO,""MSH"",1,0)) ;Find header in TCP nodes"
^XMB(3.9,43,2,3193,0)="""RTN"",""HLCSHDR1"",174,0)"
^XMB(3.9,43,2,3194,0)=" .I X[""MSH"" D"
^XMB(3.9,43,2,3195,0)="""RTN"",""HLCSHDR1"",175,0)"
^XMB(3.9,43,2,3196,0)=" ..;"
^XMB(3.9,43,2,3197,0)="""RTN"",""HLCSHDR1"",176,0)"
^XMB(3.9,43,2,3198,0)=" ..; patch HL*1.6*120 start"
^XMB(3.9,43,2,3199,0)="""RTN"",""HLCSHDR1"",177,0)"
^XMB(3.9,43,2,3200,0)=" .. N HLEC"
^XMB(3.9,43,2,3201,0)="""RTN"",""HLCSHDR1"",178,0)"
^XMB(3.9,43,2,3202,0)=" ..S HLFS=$E(X,4),HLEC=$E(X,5)"
^XMB(3.9,43,2,3203,0)="""RTN"",""HLCSHDR1"",179,0)"
^XMB(3.9,43,2,3204,0)=" ..S SENDFAC=$P(X,HLFS,4),RECFAC=$P(X,HLFS,6) ;from original msg"
^XMB(3.9,43,2,3205,0)="""RTN"",""HLCSHDR1"",180,0)"
^XMB(3.9,43,2,3206,0)=" ..S CLNTFAC=SENDFAC,SERFAC=RECFAC ;reverse facility info"
^XMB(3.9,43,2,3207,0)="""RTN"",""HLCSHDR1"",181,0)"
^XMB(3.9,43,2,3208,0)=" ..S EC(""COMPONENT"")=$E($G(EC),1)"
^XMB(3.9,43,2,3209,0)="""RTN"",""HLCSHDR1"",182,0)"
^XMB(3.9,43,2,3210,0)=" ..I $L(EC(""COMPONENT""))=1,$L(HLEC)=1,EC(""COMPONENT"")'=HLEC D"
^XMB(3.9,43,2,3211,0)="""RTN"",""HLCSHDR1"",183,0)"
^XMB(3.9,43,2,3212,0)=" ... ; change the the component separator in the sending and"
^XMB(3.9,43,2,3213,0)="""RTN"",""HLCSHDR1"",184,0)"
^XMB(3.9,43,2,3214,0)=" ... ; receiving facilities for the outgoing message"
^XMB(3.9,43,2,3215,0)="""RTN"",""HLCSHDR1"",185,0)"
^XMB(3.9,43,2,3216,0)=" ... S CLNTFAC=$TR(CLNTFAC,HLEC,EC(""COMPONENT""))"
^XMB(3.9,43,2,3217,0)="""RTN"",""HLCSHDR1"",186,0)"
^XMB(3.9,43,2,3218,0)=" ... S SERFAC=$TR(SERFAC,HLEC,EC(""COMPONENT""))"
^XMB(3.9,43,2,3219,0)="""RTN"",""HLCSHDR1"",187,0)"
^XMB(3.9,43,2,3220,0)=" ; patch HL*1.6*120 end"
^XMB(3.9,43,2,3221,0)="""RTN"",""HLCSHDR1"",188,0)"
^XMB(3.9,43,2,3222,0)=" ;"
^XMB(3.9,43,2,3223,0)="""RTN"",""HLCSHDR1"",189,0)"
^XMB(3.9,43,2,3224,0)=" I HLEP773,SERFAC="""" D EP^HLCSHDR2"
^XMB(3.9,43,2,3225,0)="""RTN"",""HLCSHDR1"",190,0)"
^XMB(3.9,43,2,3226,0)=" I HLS773,CLNTFAC="""" D S^HLCSHDR2"
^XMB(3.9,43,2,3227,0)="""RTN"",""HLCSHDR1"",191,0)"
^XMB(3.9,43,2,3228,0)=" Q"
^XMB(3.9,43,2,3229,0)="""RTN"",""HLCSHDR1"",192,0)"
^XMB(3.9,43,2,3230,0)=" ;"
^XMB(3.9,43,2,3231,0)="""RTN"",""HLCSHDR1"",193,0)"
^XMB(3.9,43,2,3232,0)="ESCAPE(INPUT,COMPONET) ;"
^XMB(3.9,43,2,3233,0)="""RTN"",""HLCSHDR1"",194,0)"
^XMB(3.9,43,2,3234,0)=" ; patch HL*1.6*120 - escape delimiters:"
^XMB(3.9,43,2,3235,0)="""RTN"",""HLCSHDR1"",195,0)"
^XMB(3.9,43,2,3236,0)=" ; - field separator"
^XMB(3.9,43,2,3237,0)="""RTN"",""HLCSHDR1"",196,0)"
^XMB(3.9,43,2,3238,0)=" ; - component separator"
^XMB(3.9,43,2,3239,0)="""RTN"",""HLCSHDR1"",197,0)"
^XMB(3.9,43,2,3240,0)=" ; - repetition separator"
^XMB(3.9,43,2,3241,0)="""RTN"",""HLCSHDR1"",198,0)"
^XMB(3.9,43,2,3242,0)=" ; - escape character"
^XMB(3.9,43,2,3243,0)="""RTN"",""HLCSHDR1"",199,0)"
^XMB(3.9,43,2,3244,0)=" ; - subcomponent separator"
^XMB(3.9,43,2,3245,0)="""RTN"",""HLCSHDR1"",200,0)"
^XMB(3.9,43,2,3246,0)=" ;"
^XMB(3.9,43,2,3247,0)="""RTN"",""HLCSHDR1"",201,0)"
^XMB(3.9,43,2,3248,0)=" ; input: "
^XMB(3.9,43,2,3249,0)="""RTN"",""HLCSHDR1"",202,0)"
^XMB(3.9,43,2,3250,0)=" ;     INPUT - string data to be escaped"
^XMB(3.9,43,2,3251,0)="""RTN"",""HLCSHDR1"",203,0)"
^XMB(3.9,43,2,3252,0)=" ;  COMPONET - if 1, escape component separator"
^XMB(3.9,43,2,3253,0)="""RTN"",""HLCSHDR1"",204,0)"
^XMB(3.9,43,2,3254,0)=" ;             if 0, do not escape component separator"
^XMB(3.9,43,2,3255,0)="""RTN"",""HLCSHDR1"",205,0)"
^XMB(3.9,43,2,3256,0)=" ;        FS - field separator character"
^XMB(3.9,43,2,3257,0)="""RTN"",""HLCSHDR1"",206,0)"
^XMB(3.9,43,2,3258,0)=" ;        EC - encoding 4 characters "
^XMB(3.9,43,2,3259,0)="""RTN"",""HLCSHDR1"",207,0)"
^XMB(3.9,43,2,3260,0)=" ; result: return the escaped string"
^XMB(3.9,43,2,3261,0)="""RTN"",""HLCSHDR1"",208,0)"
^XMB(3.9,43,2,3262,0)=" ;"
^XMB(3.9,43,2,3263,0)="""RTN"",""HLCSHDR1"",209,0)"
^XMB(3.9,43,2,3264,0)=" N HLDATA,HLESCAPE,HLI,HLCHAR,HLEN,HLOUT,COMFLAG"
^XMB(3.9,43,2,3265,0)="""RTN"",""HLCSHDR1"",210,0)"
^XMB(3.9,43,2,3266,0)=" S HLDATA=$G(INPUT)"
^XMB(3.9,43,2,3267,0)="""RTN"",""HLCSHDR1"",211,0)"
^XMB(3.9,43,2,3268,0)=" S COMFLAG=$G(COMPONET)"
^XMB(3.9,43,2,3269,0)="""RTN"",""HLCSHDR1"",212,0)"
^XMB(3.9,43,2,3270,0)=" Q:$L($G(FS))'=1 HLDATA"
^XMB(3.9,43,2,3271,0)="""RTN"",""HLCSHDR1"",213,0)"
^XMB(3.9,43,2,3272,0)=" Q:$L($G(EC))'=4 HLDATA"
^XMB(3.9,43,2,3273,0)="""RTN"",""HLCSHDR1"",214,0)"
^XMB(3.9,43,2,3274,0)=" Q:HLDATA']"""" HLDATA"
^XMB(3.9,43,2,3275,0)="""RTN"",""HLCSHDR1"",215,0)"
^XMB(3.9,43,2,3276,0)=" ;"
^XMB(3.9,43,2,3277,0)="""RTN"",""HLCSHDR1"",216,0)"
^XMB(3.9,43,2,3278,0)=" S HLESCAPE=FS_EC"
^XMB(3.9,43,2,3279,0)="""RTN"",""HLCSHDR1"",217,0)"
^XMB(3.9,43,2,3280,0)=" S HLESCAPE(""F"")=FS"
^XMB(3.9,43,2,3281,0)="""RTN"",""HLCSHDR1"",218,0)"
^XMB(3.9,43,2,3282,0)=" S HLESCAPE(""S"")=$E(EC,1)"
^XMB(3.9,43,2,3283,0)="""RTN"",""HLCSHDR1"",219,0)"
^XMB(3.9,43,2,3284,0)=" S HLESCAPE(""R"")=$E(EC,2)"
^XMB(3.9,43,2,3285,0)="""RTN"",""HLCSHDR1"",220,0)"
^XMB(3.9,43,2,3286,0)=" S HLESCAPE(""E"")=$E(EC,3)"
^XMB(3.9,43,2,3287,0)="""RTN"",""HLCSHDR1"",221,0)"
^XMB(3.9,43,2,3288,0)=" S HLESCAPE(""T"")=$E(EC,4)"
^XMB(3.9,43,2,3289,0)="""RTN"",""HLCSHDR1"",222,0)"
^XMB(3.9,43,2,3290,0)=" S HLEN=$L(HLDATA)"
^XMB(3.9,43,2,3291,0)="""RTN"",""HLCSHDR1"",223,0)"
^XMB(3.9,43,2,3292,0)=" S HLOUT="""""
^XMB(3.9,43,2,3293,0)="""RTN"",""HLCSHDR1"",224,0)"
^XMB(3.9,43,2,3294,0)=" F HLI=1:1:HLEN D"
^XMB(3.9,43,2,3295,0)="""RTN"",""HLCSHDR1"",225,0)"
^XMB(3.9,43,2,3296,0)=" . S HLCHAR=$E(HLDATA,HLI)"
^XMB(3.9,43,2,3297,0)="""RTN"",""HLCSHDR1"",226,0)"
^XMB(3.9,43,2,3298,0)=" . I HLESCAPE[HLCHAR D  Q"
^XMB(3.9,43,2,3299,0)="""RTN"",""HLCSHDR1"",227,0)"
^XMB(3.9,43,2,3300,0)=" .. I HLCHAR=HLESCAPE(""F"") S HLOUT=HLOUT_""\F\"" Q"
^XMB(3.9,43,2,3301,0)="""RTN"",""HLCSHDR1"",228,0)"
^XMB(3.9,43,2,3302,0)=" .. I HLCHAR=HLESCAPE(""S"") D  Q"
^XMB(3.9,43,2,3303,0)="""RTN"",""HLCSHDR1"",229,0)"
^XMB(3.9,43,2,3304,0)=" ... I COMFLAG=1 S HLOUT=HLOUT_""\S\"" Q"
^XMB(3.9,43,2,3305,0)="""RTN"",""HLCSHDR1"",230,0)"
^XMB(3.9,43,2,3306,0)=" ... S HLOUT=HLOUT_HLCHAR"
^XMB(3.9,43,2,3307,0)="""RTN"",""HLCSHDR1"",231,0)"
^XMB(3.9,43,2,3308,0)=" .. I HLCHAR=HLESCAPE(""R"") S HLOUT=HLOUT_""\R\"" Q"
^XMB(3.9,43,2,3309,0)="""RTN"",""HLCSHDR1"",232,0)"
^XMB(3.9,43,2,3310,0)=" .. I HLCHAR=HLESCAPE(""E"") S HLOUT=HLOUT_""\E\"" Q"
^XMB(3.9,43,2,3311,0)="""RTN"",""HLCSHDR1"",233,0)"
^XMB(3.9,43,2,3312,0)=" .. I HLCHAR=HLESCAPE(""T"") S HLOUT=HLOUT_""\T\"" Q"
^XMB(3.9,43,2,3313,0)="""RTN"",""HLCSHDR1"",234,0)"
^XMB(3.9,43,2,3314,0)=" . ;"
^XMB(3.9,43,2,3315,0)="""RTN"",""HLCSHDR1"",235,0)"
^XMB(3.9,43,2,3316,0)=" . S HLOUT=HLOUT_HLCHAR"
^XMB(3.9,43,2,3317,0)="""RTN"",""HLCSHDR1"",236,0)"
^XMB(3.9,43,2,3318,0)=" Q HLOUT"
^XMB(3.9,43,2,3319,0)="""RTN"",""HLMA2"")"
^XMB(3.9,43,2,3320,0)="0^3^B40932802^B37613049"
^XMB(3.9,43,2,3321,0)="""RTN"",""HLMA2"",1,0)"
^XMB(3.9,43,2,3322,0)="HLMA2 ;AISC/SAW-Message Administration Module ;09/23/2005  17:45"
^XMB(3.9,43,2,3323,0)="""RTN"",""HLMA2"",2,0)"
^XMB(3.9,43,2,3324,0)=" ;;1.6;HEALTH LEVEL SEVEN;**19,43,57,58,64,65,76,82,91,94,109,120**;Oct 13, 1995;Build 12"
^XMB(3.9,43,2,3325,0)="""RTN"",""HLMA2"",3,0)"
^XMB(3.9,43,2,3326,0)=" ; References to ^ORD(101) supported by IA# 1373."
^XMB(3.9,43,2,3327,0)="""RTN"",""HLMA2"",4,0)"
^XMB(3.9,43,2,3328,0)=" ;"
^XMB(3.9,43,2,3329,0)="""RTN"",""HLMA2"",5,0)"
^XMB(3.9,43,2,3330,0)="SEND(EIDS,MTIEN,CLIENT,PRIORITY,MTIENS,LOGLINK) ;"
^XMB(3.9,43,2,3331,0)="""RTN"",""HLMA2"",6,0)"
^XMB(3.9,43,2,3332,0)=" ;Entry point to create"
^XMB(3.9,43,2,3333,0)="""RTN"",""HLMA2"",7,0)"
^XMB(3.9,43,2,3334,0)=" ;an entry in the Message Administrator and Message Text"
^XMB(3.9,43,2,3335,0)="""RTN"",""HLMA2"",8,0)"
^XMB(3.9,43,2,3336,0)=" ;files for a message that is about to be sent to a recipient"
^XMB(3.9,43,2,3337,0)="""RTN"",""HLMA2"",9,0)"
^XMB(3.9,43,2,3338,0)=" ;"
^XMB(3.9,43,2,3339,0)="""RTN"",""HLMA2"",10,0)"
^XMB(3.9,43,2,3340,0)=" ;This is a subroutine call with parameter passing.  It returns a value"
^XMB(3.9,43,2,3341,0)="""RTN"",""HLMA2"",11,0)"
^XMB(3.9,43,2,3342,0)=" ;in the variable MTIENS with 1 to 3 pieces separated by uparrows"
^XMB(3.9,43,2,3343,0)="""RTN"",""HLMA2"",12,0)"
^XMB(3.9,43,2,3344,0)=" ;as follows:  MTIENS^error code^error description"
^XMB(3.9,43,2,3345,0)="""RTN"",""HLMA2"",13,0)"
^XMB(3.9,43,2,3346,0)=" ;If no error occurs, only the first piece is returned equal to the IEN"
^XMB(3.9,43,2,3347,0)="""RTN"",""HLMA2"",14,0)"
^XMB(3.9,43,2,3348,0)=" ;the entry created in the Message Text or Administration file."
^XMB(3.9,43,2,3349,0)="""RTN"",""HLMA2"",15,0)"
^XMB(3.9,43,2,3350,0)=" ;Otherwise, three pieces are returned with the first piece equal to 0"
^XMB(3.9,43,2,3351,0)="""RTN"",""HLMA2"",16,0)"
^XMB(3.9,43,2,3352,0)=" ;"
^XMB(3.9,43,2,3353,0)="""RTN"",""HLMA2"",17,0)"
^XMB(3.9,43,2,3354,0)=" ;All the following input parameters are required"
^XMB(3.9,43,2,3355,0)="""RTN"",""HLMA2"",18,0)"
^XMB(3.9,43,2,3356,0)=" ;    EIDS = The IEN from the Protocol file of the subscriber event"
^XMB(3.9,43,2,3357,0)="""RTN"",""HLMA2"",19,0)"
^XMB(3.9,43,2,3358,0)=" ;   MTIEN = The IEN from the Message Text file created when the"
^XMB(3.9,43,2,3359,0)="""RTN"",""HLMA2"",20,0)"
^XMB(3.9,43,2,3360,0)=" ;           GENERATE^HLMA or GENACK^HLMA1 entry points were invoked"
^XMB(3.9,43,2,3361,0)="""RTN"",""HLMA2"",21,0)"
^XMB(3.9,43,2,3362,0)=" ;  CLIENT = The IEN of the client (subscriber) application from"
^XMB(3.9,43,2,3363,0)="""RTN"",""HLMA2"",22,0)"
^XMB(3.9,43,2,3364,0)=" ;             the Application Parameter file"
^XMB(3.9,43,2,3365,0)="""RTN"",""HLMA2"",23,0)"
^XMB(3.9,43,2,3366,0)=" ;PRIORITY = I for immediate or D for deferred"
^XMB(3.9,43,2,3367,0)="""RTN"",""HLMA2"",24,0)"
^XMB(3.9,43,2,3368,0)=" ;  MTIENS = The variable that will be returned to the calling"
^XMB(3.9,43,2,3369,0)="""RTN"",""HLMA2"",25,0)"
^XMB(3.9,43,2,3370,0)=" ;             application as described above"
^XMB(3.9,43,2,3371,0)="""RTN"",""HLMA2"",26,0)"
^XMB(3.9,43,2,3372,0)=" ;Optional parameter"
^XMB(3.9,43,2,3373,0)="""RTN"",""HLMA2"",27,0)"
^XMB(3.9,43,2,3374,0)=" ; LOGLINK = The IEN of the logical link from the Logical Link file"
^XMB(3.9,43,2,3375,0)="""RTN"",""HLMA2"",28,0)"
^XMB(3.9,43,2,3376,0)=" ;"
^XMB(3.9,43,2,3377,0)="""RTN"",""HLMA2"",29,0)"
^XMB(3.9,43,2,3378,0)=" ;     ACK = 1 or 0 to indicate if original message or response-passed"
^XMB(3.9,43,2,3379,0)="""RTN"",""HLMA2"",30,0)"
^XMB(3.9,43,2,3380,0)=" ;             by ^HLCS"
^XMB(3.9,43,2,3381,0)="""RTN"",""HLMA2"",31,0)"
^XMB(3.9,43,2,3382,0)=" ;"
^XMB(3.9,43,2,3383,0)="""RTN"",""HLMA2"",32,0)"
^XMB(3.9,43,2,3384,0)=" ; Save passed parameters for restore... HL*1.6*94"
^XMB(3.9,43,2,3385,0)="""RTN"",""HLMA2"",33,0)"
^XMB(3.9,43,2,3386,0)=" N HL94P"
^XMB(3.9,43,2,3387,0)="""RTN"",""HLMA2"",34,0)"
^XMB(3.9,43,2,3388,0)=" ;"
^XMB(3.9,43,2,3389,0)="""RTN"",""HLMA2"",35,0)"
^XMB(3.9,43,2,3390,0)=" ; patch HL*1.6*120 start"
^XMB(3.9,43,2,3391,0)="""RTN"",""HLMA2"",36,0)"
^XMB(3.9,43,2,3392,0)=" ; save the receiving facility from HLSUP(""S"") variable in routine ADD^HLCS2"
^XMB(3.9,43,2,3393,0)="""RTN"",""HLMA2"",37,0)"
^XMB(3.9,43,2,3394,0)=" I $G(MTIENS(""REC-FACILITY""))]"""" D"
^XMB(3.9,43,2,3395,0)="""RTN"",""HLMA2"",38,0)"
^XMB(3.9,43,2,3396,0)=" . S HLP(""REC-FACILITY"")=MTIENS(""REC-FACILITY"")"
^XMB(3.9,43,2,3397,0)="""RTN"",""HLMA2"",39,0)"
^XMB(3.9,43,2,3398,0)=" ; F HL94P=""CONTPTR"",""NAMESPACE"",""SECURITY"",""SUBSCRIBER"" D"
^XMB(3.9,43,2,3399,0)="""RTN"",""HLMA2"",40,0)"
^XMB(3.9,43,2,3400,0)=" F HL94P=""CONTPTR"",""NAMESPACE"",""SECURITY"",""SUBSCRIBER"",""PMOD"",""REC-FACILITY"" D"
^XMB(3.9,43,2,3401,0)="""RTN"",""HLMA2"",41,0)"
^XMB(3.9,43,2,3402,0)=" .  QUIT:'$D(HLP(HL94P))  ;->"
^XMB(3.9,43,2,3403,0)="""RTN"",""HLMA2"",42,0)"
^XMB(3.9,43,2,3404,0)=" .  MERGE HL94P(HL94P)=HLP(HL94P)"
^XMB(3.9,43,2,3405,0)="""RTN"",""HLMA2"",43,0)"
^XMB(3.9,43,2,3406,0)=" ; patch HL*1.6*120 end"
^XMB(3.9,43,2,3407,0)="""RTN"",""HLMA2"",44,0)"
^XMB(3.9,43,2,3408,0)=" ;"
^XMB(3.9,43,2,3409,0)="""RTN"",""HLMA2"",45,0)"
^XMB(3.9,43,2,3410,0)=" ;Check for required parameters"
^XMB(3.9,43,2,3411,0)="""RTN"",""HLMA2"",46,0)"
^XMB(3.9,43,2,3412,0)=" S MTIENS="""""
^XMB(3.9,43,2,3413,0)="""RTN"",""HLMA2"",47,0)"
^XMB(3.9,43,2,3414,0)=" I '$G(EIDS)!('$G(MTIEN))!('$G(CLIENT))!(""ID""'[$E($G(PRIORITY))) S MTIENS=""0^7^""_$G(^HL(771.7,7,0))_"" at SEND^HLMA entry point"" G EXIT"
^XMB(3.9,43,2,3415,0)="""RTN"",""HLMA2"",48,0)"
^XMB(3.9,43,2,3416,0)=" ;Get message ID and Message Text IEN"
^XMB(3.9,43,2,3417,0)="""RTN"",""HLMA2"",49,0)"
^XMB(3.9,43,2,3418,0)=" N HLJ,HLHDRBLD,HLMIDS,HLDTS,HLDT1S,HLP,REPLYTO,SERVER,X"
^XMB(3.9,43,2,3419,0)="""RTN"",""HLMA2"",50,0)"
^XMB(3.9,43,2,3420,0)=" ;"
^XMB(3.9,43,2,3421,0)="""RTN"",""HLMA2"",51,0)"
^XMB(3.9,43,2,3422,0)=" ; Restore parameters if needed... HL*1.6*94"
^XMB(3.9,43,2,3423,0)="""RTN"",""HLMA2"",52,0)"
^XMB(3.9,43,2,3424,0)=" S HL94P="""""
^XMB(3.9,43,2,3425,0)="""RTN"",""HLMA2"",53,0)"
^XMB(3.9,43,2,3426,0)=" F  S HL94P=$O(HL94P(HL94P)) Q:HL94P']""""  D"
^XMB(3.9,43,2,3427,0)="""RTN"",""HLMA2"",54,0)"
^XMB(3.9,43,2,3428,0)=" .  MERGE HLP(HL94P)=HL94P(HL94P)"
^XMB(3.9,43,2,3429,0)="""RTN"",""HLMA2"",55,0)"
^XMB(3.9,43,2,3430,0)=" ;"
^XMB(3.9,43,2,3431,0)="""RTN"",""HLMA2"",56,0)"
^XMB(3.9,43,2,3432,0)=" ;check if LL is TCP"
^XMB(3.9,43,2,3433,0)="""RTN"",""HLMA2"",57,0)"
^XMB(3.9,43,2,3434,0)=" I $G(LOGLINK) D  Q:MTIENS!($G(HLERROR)]"""")"
^XMB(3.9,43,2,3435,0)="""RTN"",""HLMA2"",58,0)"
^XMB(3.9,43,2,3436,0)=" . ;quit if it is not TCP"
^XMB(3.9,43,2,3437,0)="""RTN"",""HLMA2"",59,0)"
^XMB(3.9,43,2,3438,0)=" . Q:$P(^HLCS(870,LOGLINK,0),U,3)'=4"
^XMB(3.9,43,2,3439,0)="""RTN"",""HLMA2"",60,0)"
^XMB(3.9,43,2,3440,0)=" . ;create client in 773, MTIENS=ien in 773"
^XMB(3.9,43,2,3441,0)="""RTN"",""HLMA2"",61,0)"
^XMB(3.9,43,2,3442,0)=" . S (MTIENS,HLTCP)=$$MA^HLTF(MTIEN,.HLMIDS)"
^XMB(3.9,43,2,3443,0)="""RTN"",""HLMA2"",62,0)"
^XMB(3.9,43,2,3444,0)=" .;"
^XMB(3.9,43,2,3445,0)="""RTN"",""HLMA2"",63,0)"
^XMB(3.9,43,2,3446,0)=" .;**109"
^XMB(3.9,43,2,3447,0)="""RTN"",""HLMA2"",64,0)"
^XMB(3.9,43,2,3448,0)=" .; F  L +^HLMA(MTIENS):1 Q:$T  H 1"
^XMB(3.9,43,2,3449,0)="""RTN"",""HLMA2"",65,0)"
^XMB(3.9,43,2,3450,0)=" .;"
^XMB(3.9,43,2,3451,0)="""RTN"",""HLMA2"",66,0)"
^XMB(3.9,43,2,3452,0)=" . D MIDAR(HLMIDS)"
^XMB(3.9,43,2,3453,0)="""RTN"",""HLMA2"",67,0)"
^XMB(3.9,43,2,3454,0)=" . ;get info from parent (772)"
^XMB(3.9,43,2,3455,0)="""RTN"",""HLMA2"",68,0)"
^XMB(3.9,43,2,3456,0)=" . S X=^HL(772,MTIEN,0),HLTYPE=$P(X,U,14),SERVER=$P(X,U,2),REPLYTO=$P(X,U,7)"
^XMB(3.9,43,2,3457,0)="""RTN"",""HLMA2"",69,0)"
^XMB(3.9,43,2,3458,0)=" . ;get ack timeout override"
^XMB(3.9,43,2,3459,0)="""RTN"",""HLMA2"",70,0)"
^XMB(3.9,43,2,3460,0)=" . S:$P($G(^HL(772,MTIEN,""P"")),U,7) HLP(""ACKTIME"")=+$P(^(""P""),U,7)"
^XMB(3.9,43,2,3461,0)="""RTN"",""HLMA2"",71,0)"
^XMB(3.9,43,2,3462,0)=" . ;get message type and event type from protocol"
^XMB(3.9,43,2,3463,0)="""RTN"",""HLMA2"",72,0)"
^XMB(3.9,43,2,3464,0)=" . S X=$G(^ORD(101,EIDS,770)),HLP(""MTYPE"")=$P(X,U,11),HLP(""EVENT"")=$P(X,U,4),HLP(""HLTCPI"")=MTIENS"
^XMB(3.9,43,2,3465,0)="""RTN"",""HLMA2"",73,0)"
^XMB(3.9,43,2,3466,0)=" . S:$P(X,U,5) HLP(""MTYPE_EVENT"")=$P(X,U,5)"
^XMB(3.9,43,2,3467,0)="""RTN"",""HLMA2"",74,0)"
^XMB(3.9,43,2,3468,0)=" . ;update date in client (773)"
^XMB(3.9,43,2,3469,0)="""RTN"",""HLMA2"",75,0)"
^XMB(3.9,43,2,3470,0)=" . D UPDATE^HLTF0(MTIENS,"""",""O"",EIDS,CLIENT,SERVER,""D"",REPLYTO,"""",.HLP)"
^XMB(3.9,43,2,3471,0)="""RTN"",""HLMA2"",76,0)"
^XMB(3.9,43,2,3472,0)=" . ;create header for message in 773"
^XMB(3.9,43,2,3473,0)="""RTN"",""HLMA2"",77,0)"
^XMB(3.9,43,2,3474,0)=" . I (HLTYPE=""M"") D HEADER^HLCSHDR1(MTIENS,CLIENT,.HLERROR)"
^XMB(3.9,43,2,3475,0)="""RTN"",""HLMA2"",78,0)"
^XMB(3.9,43,2,3476,0)=" . I (HLTYPE'=""M"") D BHSHDR^HLCSHDR1(MTIENS,CLIENT,.HLERROR)"
^XMB(3.9,43,2,3477,0)="""RTN"",""HLMA2"",79,0)"
^XMB(3.9,43,2,3478,0)=" . ;if error set status to ERROR DURING TRANSMISSION"
^XMB(3.9,43,2,3479,0)="""RTN"",""HLMA2"",80,0)"
^XMB(3.9,43,2,3480,0)=" . I ($G(HLERROR)'="""") D  Q"
^XMB(3.9,43,2,3481,0)="""RTN"",""HLMA2"",81,0)"
^XMB(3.9,43,2,3482,0)=" ..;**109**"
^XMB(3.9,43,2,3483,0)="""RTN"",""HLMA2"",82,0)"
^XMB(3.9,43,2,3484,0)=" ..; D STATUS^HLTF0(MTIENS,4,12,HLERROR) L -^HLMA(MTIENS)"
^XMB(3.9,43,2,3485,0)="""RTN"",""HLMA2"",83,0)"
^XMB(3.9,43,2,3486,0)=" .. D STATUS^HLTF0(MTIENS,4,12,HLERROR)"
^XMB(3.9,43,2,3487,0)="""RTN"",""HLMA2"",84,0)"
^XMB(3.9,43,2,3488,0)=" ..;"
^XMB(3.9,43,2,3489,0)="""RTN"",""HLMA2"",85,0)"
^XMB(3.9,43,2,3490,0)=" .. S MTIENS=""0^12^""_$G(^HL(771.7,12,0))_"" in HLCSHDR1"""
^XMB(3.9,43,2,3491,0)="""RTN"",""HLMA2"",86,0)"
^XMB(3.9,43,2,3492,0)=" .. Q"
^XMB(3.9,43,2,3493,0)="""RTN"",""HLMA2"",87,0)"
^XMB(3.9,43,2,3494,0)=" . ;do we still need MTIEN=ien of file 772"
^XMB(3.9,43,2,3495,0)="""RTN"",""HLMA2"",88,0)"
^XMB(3.9,43,2,3496,0)=" . S MTIEN="""""
^XMB(3.9,43,2,3497,0)="""RTN"",""HLMA2"",89,0)"
^XMB(3.9,43,2,3498,0)=" . ;update status of 773 to PENDING TRANSMISSION"
^XMB(3.9,43,2,3499,0)="""RTN"",""HLMA2"",90,0)"
^XMB(3.9,43,2,3500,0)=" . D STATUS^HLTF0(MTIENS,1)"
^XMB(3.9,43,2,3501,0)="""RTN"",""HLMA2"",91,0)"
^XMB(3.9,43,2,3502,0)=" . ;set header, HLHDR and Logical Link in 773"
^XMB(3.9,43,2,3503,0)="""RTN"",""HLMA2"",92,0)"
^XMB(3.9,43,2,3504,0)=" . K HLJ"
^XMB(3.9,43,2,3505,0)="""RTN"",""HLMA2"",93,0)"
^XMB(3.9,43,2,3506,0)=" . S X=MTIENS_"","",HLJ(773,X,7)=LOGLINK,HLJ(773,X,200)=""HLHDR"""
^XMB(3.9,43,2,3507,0)="""RTN"",""HLMA2"",94,0)"
^XMB(3.9,43,2,3508,0)=" . D FILE^HLDIE("""",""HLJ"","""",""SEND"",""HLMA2"") ;HL*1.6*109"
^XMB(3.9,43,2,3509,0)="""RTN"",""HLMA2"",95,0)"
^XMB(3.9,43,2,3510,0)=" .D ENQUE^HLCSREP(LOGLINK,""O"",MTIENS)"
^XMB(3.9,43,2,3511,0)="""RTN"",""HLMA2"",96,0)"
^XMB(3.9,43,2,3512,0)=" .;"
^XMB(3.9,43,2,3513,0)="""RTN"",""HLMA2"",97,0)"
^XMB(3.9,43,2,3514,0)=" .;**109"
^XMB(3.9,43,2,3515,0)="""RTN"",""HLMA2"",98,0)"
^XMB(3.9,43,2,3516,0)=" .; L -^HLMA(MTIENS)"
^XMB(3.9,43,2,3517,0)="""RTN"",""HLMA2"",99,0)"
^XMB(3.9,43,2,3518,0)=" ;"
^XMB(3.9,43,2,3519,0)="""RTN"",""HLMA2"",100,0)"
^XMB(3.9,43,2,3520,0)=" ;if not TCP get msg. ID"
^XMB(3.9,43,2,3521,0)="""RTN"",""HLMA2"",101,0)"
^XMB(3.9,43,2,3522,0)=" S HLMIDS=$P($G(^HL(772,MTIEN,0)),""^"",6)"
^XMB(3.9,43,2,3523,0)="""RTN"",""HLMA2"",102,0)"
^XMB(3.9,43,2,3524,0)=" ;create child message"
^XMB(3.9,43,2,3525,0)="""RTN"",""HLMA2"",103,0)"
^XMB(3.9,43,2,3526,0)=" D CREATE^HLTF(.HLMIDS,.MTIENS,.HLDTS,.HLDT1S),MIDAR(HLMIDS)"
^XMB(3.9,43,2,3527,0)="""RTN"",""HLMA2"",104,0)"
^XMB(3.9,43,2,3528,0)=" ;Link new Message Text file entry to MTIENG entry and update fields"
^XMB(3.9,43,2,3529,0)="""RTN"",""HLMA2"",105,0)"
^XMB(3.9,43,2,3530,0)=" ;on zero node"
^XMB(3.9,43,2,3531,0)="""RTN"",""HLMA2"",106,0)"
^XMB(3.9,43,2,3532,0)=" D UPDATE^HLTF0(MTIENS,MTIEN,""O"",EIDS,CLIENT,"""",PRIORITY,"""",$S($G(LOGLINK):LOGLINK,1:""""))"
^XMB(3.9,43,2,3533,0)="""RTN"",""HLMA2"",107,0)"
^XMB(3.9,43,2,3534,0)="EXIT Q"
^XMB(3.9,43,2,3535,0)="""RTN"",""HLMA2"",108,0)"
^XMB(3.9,43,2,3536,0)=" ;"
^XMB(3.9,43,2,3537,0)="""RTN"",""HLMA2"",109,0)"
^XMB(3.9,43,2,3538,0)="MIDAR(X) ;update HLMIDAR array with X=message id"
^XMB(3.9,43,2,3539,0)="""RTN"",""HLMA2"",110,0)"
^XMB(3.9,43,2,3540,0)=" Q:$G(X)="""""
^XMB(3.9,43,2,3541,0)="""RTN"",""HLMA2"",111,0)"
^XMB(3.9,43,2,3542,0)=" I 'HLMIDAR S HLMIDAR(""N"")=1,HLMIDAR=X Q"
^XMB(3.9,43,2,3543,0)="""RTN"",""HLMA2"",112,0)"
^XMB(3.9,43,2,3544,0)=" S HLMIDAR(HLMIDAR(""N""))=X,HLMIDAR(""N"")=HLMIDAR(""N"")+1"
^XMB(3.9,43,2,3545,0)="""RTN"",""HLMA2"",113,0)"
^XMB(3.9,43,2,3546,0)=" Q"
^XMB(3.9,43,2,3547,0)="""RTN"",""HLMA2"",114,0)"
^XMB(3.9,43,2,3548,0)=" ;"
^XMB(3.9,43,2,3549,0)="""RTN"",""HLMA2"",115,0)"
^XMB(3.9,43,2,3550,0)="DC ;direct connect"
^XMB(3.9,43,2,3551,0)="""RTN"",""HLMA2"",116,0)"
^XMB(3.9,43,2,3552,0)=" N CLIENT,EIDS,HLMIDS,LOGLINK,MTIEN,MTIENS,POP,HLHDR,HLHDRO,HLMSA,REPLYTO,SERVER,X,HLTCPI"
^XMB(3.9,43,2,3553,0)="""RTN"",""HLMA2"",117,0)"
^XMB(3.9,43,2,3554,0)=" N HLCSOUT,HLDBACK,HLDBSIZE,HLDP,HLDREAD,HLDRETR,HLDWAIT,HLMSG,HLOS,HLPORT,HLTCPADD,HLTCPCS,HLTCPLNK,HLTCPO,HLTCPORT,HLRESP,HLTYPE,HLRETRA,HLRETRY,HLTCPRET"
^XMB(3.9,43,2,3555,0)="""RTN"",""HLMA2"",118,0)"
^XMB(3.9,43,2,3556,0)=" S (EIDS,LOGLINK)="""",MTIEN=HLMTIEN"
^XMB(3.9,43,2,3557,0)="""RTN"",""HLMA2"",119,0)"
^XMB(3.9,43,2,3558,0)=" I $D(HLL(""LINKS"")) D"
^XMB(3.9,43,2,3559,0)="""RTN"",""HLMA2"",120,0)"
^XMB(3.9,43,2,3560,0)=" . S EIDS=$P(HLL(""LINKS"",1),U),LOGLINK=$P(HLL(""LINKS"",1),U,2)"
^XMB(3.9,43,2,3561,0)="""RTN"",""HLMA2"",121,0)"
^XMB(3.9,43,2,3562,0)=" . K HLL(""LINKS"")"
^XMB(3.9,43,2,3563,0)="""RTN"",""HLMA2"",122,0)"
^XMB(3.9,43,2,3564,0)=" . Q:EIDS=""""  I EIDS<1 S EIDS=$O(^ORD(101,""B"",EIDS,0))"
^XMB(3.9,43,2,3565,0)="""RTN"",""HLMA2"",123,0)"
^XMB(3.9,43,2,3566,0)=" . Q:LOGLINK=""""  I LOGLINK<1 S LOGLINK=$O(^HLCS(870,""B"",LOGLINK,0))"
^XMB(3.9,43,2,3567,0)="""RTN"",""HLMA2"",124,0)"
^XMB(3.9,43,2,3568,0)=" . S CLIENT=+$$PTR^HLUTIL2(EIDS)"
^XMB(3.9,43,2,3569,0)="""RTN"",""HLMA2"",125,0)"
^XMB(3.9,43,2,3570,0)=" I 'LOGLINK!'EIDS D"
^XMB(3.9,43,2,3571,0)="""RTN"",""HLMA2"",126,0)"
^XMB(3.9,43,2,3572,0)=" . S EIDS=+$O(^ORD(101,HLEID,775,0)) Q:'EIDS  S EIDS=$P($G(^(EIDS,0)),U)"
^XMB(3.9,43,2,3573,0)="""RTN"",""HLMA2"",127,0)"
^XMB(3.9,43,2,3574,0)=" . S X=$$PTR^HLUTIL2(EIDS),CLIENT=$P(X,U),LOGLINK=$P(X,U,2)"
^XMB(3.9,43,2,3575,0)="""RTN"",""HLMA2"",128,0)"
^XMB(3.9,43,2,3576,0)=" I 'EIDS S HLERROR=""15^Invalid Subscriber for Immediate connection"" Q"
^XMB(3.9,43,2,3577,0)="""RTN"",""HLMA2"",129,0)"
^XMB(3.9,43,2,3578,0)=" I 'LOGLINK S HLERROR=""15^Invalid Logical Link for Immediate connection"" Q"
^XMB(3.9,43,2,3579,0)="""RTN"",""HLMA2"",130,0)"
^XMB(3.9,43,2,3580,0)=" I CLIENT<0 S HLERROR=""15^Invalid Subscriber Protocol for Immediate connection"" Q"
^XMB(3.9,43,2,3581,0)="""RTN"",""HLMA2"",131,0)"
^XMB(3.9,43,2,3582,0)=" ;open connection"
^XMB(3.9,43,2,3583,0)="""RTN"",""HLMA2"",132,0)"
^XMB(3.9,43,2,3584,0)=" I '$$DCOPEN^HLCSTCP(LOGLINK) S HLERROR=""15^Connection Failed"" Q"
^XMB(3.9,43,2,3585,0)="""RTN"",""HLMA2"",133,0)"
^XMB(3.9,43,2,3586,0)=" ;create client in 773"
^XMB(3.9,43,2,3587,0)="""RTN"",""HLMA2"",134,0)"
^XMB(3.9,43,2,3588,0)=" S HLDP=LOGLINK,(MTIENS,HLTCP,HLTCPI,HLMSG)=$$MA^HLTF(MTIEN,.HLMIDS)"
^XMB(3.9,43,2,3589,0)="""RTN"",""HLMA2"",135,0)"
^XMB(3.9,43,2,3590,0)=" ;"
^XMB(3.9,43,2,3591,0)="""RTN"",""HLMA2"",136,0)"
^XMB(3.9,43,2,3592,0)=" ; patch HL*1.6*120 start"
^XMB(3.9,43,2,3593,0)="""RTN"",""HLMA2"",137,0)"
^XMB(3.9,43,2,3594,0)=" S HLMIDAR(""HLMID"")=$G(HLMIDS)"
^XMB(3.9,43,2,3595,0)="""RTN"",""HLMA2"",138,0)"
^XMB(3.9,43,2,3596,0)=" S HLMIDAR(""IEN773"")=MTIENS"
^XMB(3.9,43,2,3597,0)="""RTN"",""HLMA2"",139,0)"
^XMB(3.9,43,2,3598,0)=" ; patch HL*1.6*120 end"
^XMB(3.9,43,2,3599,0)="""RTN"",""HLMA2"",140,0)"
^XMB(3.9,43,2,3600,0)=" ;"
^XMB(3.9,43,2,3601,0)="""RTN"",""HLMA2"",141,0)"
^XMB(3.9,43,2,3602,0)=" ;**109**"
^XMB(3.9,43,2,3603,0)="""RTN"",""HLMA2"",142,0)"
^XMB(3.9,43,2,3604,0)=" ;F  L +^HLMA(MTIENS):1 Q:$T  H 1"
^XMB(3.9,43,2,3605,0)="""RTN"",""HLMA2"",143,0)"
^XMB(3.9,43,2,3606,0)=" ;"
^XMB(3.9,43,2,3607,0)="""RTN"",""HLMA2"",144,0)"
^XMB(3.9,43,2,3608,0)=" ;get info from parent (772)"
^XMB(3.9,43,2,3609,0)="""RTN"",""HLMA2"",145,0)"
^XMB(3.9,43,2,3610,0)=" S X=^HL(772,MTIEN,0),HLTYPE=$P(X,U,14),SERVER=$P(X,U,2),REPLYTO=$P(X,U,7)"
^XMB(3.9,43,2,3611,0)="""RTN"",""HLMA2"",146,0)"
^XMB(3.9,43,2,3612,0)=" ;get ack timeout override"
^XMB(3.9,43,2,3613,0)="""RTN"",""HLMA2"",147,0)"
^XMB(3.9,43,2,3614,0)=" S:$P($G(^HL(772,MTIEN,""P"")),U,7) HLP(""ACKTIME"")=+$P(^(""P""),U,7)"
^XMB(3.9,43,2,3615,0)="""RTN"",""HLMA2"",148,0)"
^XMB(3.9,43,2,3616,0)=" ;get message type and event type from protocol"
^XMB(3.9,43,2,3617,0)="""RTN"",""HLMA2"",149,0)"
^XMB(3.9,43,2,3618,0)=" S X=$G(^ORD(101,EIDS,770)),HLP(""MTYPE"")=$P(X,U,11),HLP(""EVENT"")=$P(X,U,4),HLP(""HLTCPI"")=MTIENS"
^XMB(3.9,43,2,3619,0)="""RTN"",""HLMA2"",150,0)"
^XMB(3.9,43,2,3620,0)=" S:$P(X,U,5) HLP(""MTYPE_EVENT"")=$P(X,U,5)"
^XMB(3.9,43,2,3621,0)="""RTN"",""HLMA2"",151,0)"
^XMB(3.9,43,2,3622,0)=" ;update date in client (773)"
^XMB(3.9,43,2,3623,0)="""RTN"",""HLMA2"",152,0)"
^XMB(3.9,43,2,3624,0)=" D UPDATE^HLTF0(MTIENS,"""",""O"",EIDS,CLIENT,SERVER,""I"",REPLYTO,"""",.HLP)"
^XMB(3.9,43,2,3625,0)="""RTN"",""HLMA2"",153,0)"
^XMB(3.9,43,2,3626,0)=" ;create header for message in 773"
^XMB(3.9,43,2,3627,0)="""RTN"",""HLMA2"",154,0)"
^XMB(3.9,43,2,3628,0)=" I (HLTYPE=""M"") D HEADER^HLCSHDR1(MTIENS,CLIENT,.HLERROR)"
^XMB(3.9,43,2,3629,0)="""RTN"",""HLMA2"",155,0)"
^XMB(3.9,43,2,3630,0)=" I (HLTYPE'=""M"") D BHSHDR^HLCSHDR1(MTIENS,CLIENT,.HLERROR)"
^XMB(3.9,43,2,3631,0)="""RTN"",""HLMA2"",156,0)"
^XMB(3.9,43,2,3632,0)=" ;if error set status to ERROR DURING TRANSMISSION"
^XMB(3.9,43,2,3633,0)="""RTN"",""HLMA2"",157,0)"
^XMB(3.9,43,2,3634,0)=" I ($G(HLERROR)'="""") D  Q"
^XMB(3.9,43,2,3635,0)="""RTN"",""HLMA2"",158,0)"
^XMB(3.9,43,2,3636,0)=" .;"
^XMB(3.9,43,2,3637,0)="""RTN"",""HLMA2"",159,0)"
^XMB(3.9,43,2,3638,0)=" .;**109**"
^XMB(3.9,43,2,3639,0)="""RTN"",""HLMA2"",160,0)"
^XMB(3.9,43,2,3640,0)=" .; D STATUS^HLTF0(MTIENS,4,12,HLERROR) L -^HLMA(MTIENS)"
^XMB(3.9,43,2,3641,0)="""RTN"",""HLMA2"",161,0)"
^XMB(3.9,43,2,3642,0)=" . D STATUS^HLTF0(MTIENS,4,12,HLERROR)"
^XMB(3.9,43,2,3643,0)="""RTN"",""HLMA2"",162,0)"
^XMB(3.9,43,2,3644,0)=" .;"
^XMB(3.9,43,2,3645,0)="""RTN"",""HLMA2"",163,0)"
^XMB(3.9,43,2,3646,0)=" . S MTIENS=""0^12^""_$G(^HL(771.7,12,0))_"" in HLCSHDR1"""
^XMB(3.9,43,2,3647,0)="""RTN"",""HLMA2"",164,0)"
^XMB(3.9,43,2,3648,0)=" .;"
^XMB(3.9,43,2,3649,0)="""RTN"",""HLMA2"",165,0)"
^XMB(3.9,43,2,3650,0)=" .;**109**"
^XMB(3.9,43,2,3651,0)="""RTN"",""HLMA2"",166,0)"
^XMB(3.9,43,2,3652,0)=" .; L -^HLMA(HLMSG) D MON^HLCSTCP(""Idle"")"
^XMB(3.9,43,2,3653,0)="""RTN"",""HLMA2"",167,0)"
^XMB(3.9,43,2,3654,0)=" . D MON^HLCSTCP(""Idle"")"
^XMB(3.9,43,2,3655,0)="""RTN"",""HLMA2"",168,0)"
^XMB(3.9,43,2,3656,0)=" .;"
^XMB(3.9,43,2,3657,0)="""RTN"",""HLMA2"",169,0)"
^XMB(3.9,43,2,3658,0)=" . Q"
^XMB(3.9,43,2,3659,0)="""RTN"",""HLMA2"",170,0)"
^XMB(3.9,43,2,3660,0)=" ;set header, HLHDR and Logical Link in 773"
^XMB(3.9,43,2,3661,0)="""RTN"",""HLMA2"",171,0)"
^XMB(3.9,43,2,3662,0)=" K HLJ S X=MTIENS_"","",HLJ(773,X,7)=LOGLINK,HLJ(773,X,200)=""HLHDR"""
^XMB(3.9,43,2,3663,0)="""RTN"",""HLMA2"",172,0)"
^XMB(3.9,43,2,3664,0)=" ;"
^XMB(3.9,43,2,3665,0)="""RTN"",""HLMA2"",173,0)"
^XMB(3.9,43,2,3666,0)=" D FILE^HLDIE("""",""HLJ"","""",""DC"",""HLMA2"") ; HL*1.6*109"
^XMB(3.9,43,2,3667,0)="""RTN"",""HLMA2"",174,0)"
^XMB(3.9,43,2,3668,0)=" ;"
^XMB(3.9,43,2,3669,0)="""RTN"",""HLMA2"",175,0)"
^XMB(3.9,43,2,3670,0)=" ;**109**"
^XMB(3.9,43,2,3671,0)="""RTN"",""HLMA2"",176,0)"
^XMB(3.9,43,2,3672,0)=" D LLCNT^HLCSTCP(LOGLINK,3)"
^XMB(3.9,43,2,3673,0)="""RTN"",""HLMA2"",177,0)"
^XMB(3.9,43,2,3674,0)=" ;"
^XMB(3.9,43,2,3675,0)="""RTN"",""HLMA2"",178,0)"
^XMB(3.9,43,2,3676,0)=" D DCSEND^HLCSTCP2"
^XMB(3.9,43,2,3677,0)="""RTN"",""HLMA2"",179,0)"
^XMB(3.9,43,2,3678,0)=" G EXIT2:'$G(HLRESP)"
^XMB(3.9,43,2,3679,0)="""RTN"",""HLMA2"",180,0)"
^XMB(3.9,43,2,3680,0)=" ;X=ien in 773^ien in 772 for response"
^XMB(3.9,43,2,3681,0)="""RTN"",""HLMA2"",181,0)"
^XMB(3.9,43,2,3682,0)=" S X=HLRESP D INIT^HLTP3A  ;patch HL*1.6*109 - hltp3 routine split"
^XMB(3.9,43,2,3683,0)="""RTN"",""HLMA2"",182,0)"
^XMB(3.9,43,2,3684,0)=" D:'$G(HL) STATUS^HLTF0(HLMTIENS,3,,,1)"
^XMB(3.9,43,2,3685,0)="""RTN"",""HLMA2"",183,0)"
^XMB(3.9,43,2,3686,0)=" S HLMTIENR=HLMTIEN"
^XMB(3.9,43,2,3687,0)="""RTN"",""HLMA2"",184,0)"
^XMB(3.9,43,2,3688,0)=" D EXIT^HLTP3"
^XMB(3.9,43,2,3689,0)="""RTN"",""HLMA2"",185,0)"
^XMB(3.9,43,2,3690,0)="EXIT2 ;"
^XMB(3.9,43,2,3691,0)="""RTN"",""HLMA2"",186,0)"
^XMB(3.9,43,2,3692,0)=" ;**109**"
^XMB(3.9,43,2,3693,0)="""RTN"",""HLMA2"",187,0)"
^XMB(3.9,43,2,3694,0)=" ;L -^HLMA(HLMSG)"
^XMB(3.9,43,2,3695,0)="""RTN"",""HLMA2"",188,0)"
^XMB(3.9,43,2,3696,0)=" Q"
^XMB(3.9,43,2,3697,0)="""RTN"",""HLPAT120"")"
^XMB(3.9,43,2,3698,0)="0^1^B4889907"
^XMB(3.9,43,2,3699,0)="""RTN"",""HLPAT120"",1,0)"
^XMB(3.9,43,2,3700,0)="HLPAT120 ;OIFO-OAKLAND/RAM & RJH - HL7 PATCH 120 PRE&POST-INIT ;01/19/06  11:07"
^XMB(3.9,43,2,3701,0)="""RTN"",""HLPAT120"",2,0)"
^XMB(3.9,43,2,3702,0)=" ;;1.6;HEALTH LEVEL SEVEN;**120**;Oct 13, 1995;Build 12"
^XMB(3.9,43,2,3703,0)="""RTN"",""HLPAT120"",3,0)"
^XMB(3.9,43,2,3704,0)=" ;"
^XMB(3.9,43,2,3705,0)="""RTN"",""HLPAT120"",4,0)"
^XMB(3.9,43,2,3706,0)=" Q"
^XMB(3.9,43,2,3707,0)="""RTN"",""HLPAT120"",5,0)"
^XMB(3.9,43,2,3708,0)="PRE ;"
^XMB(3.9,43,2,3709,0)="""RTN"",""HLPAT120"",6,0)"
^XMB(3.9,43,2,3710,0)=" ; disable identifier for file #779.004 to prevent from duplicate"
^XMB(3.9,43,2,3711,0)="""RTN"",""HLPAT120"",7,0)"
^XMB(3.9,43,2,3712,0)=" ; caused by field #2 (Description)"
^XMB(3.9,43,2,3713,0)="""RTN"",""HLPAT120"",8,0)"
^XMB(3.9,43,2,3714,0)=" K ^DD(779.004,0,""ID"")"
^XMB(3.9,43,2,3715,0)="""RTN"",""HLPAT120"",9,0)"
^XMB(3.9,43,2,3716,0)=" ;"
^XMB(3.9,43,2,3717,0)="""RTN"",""HLPAT120"",10,0)"
^XMB(3.9,43,2,3718,0)=" N HLCCARY,HLAPPARY"
^XMB(3.9,43,2,3719,0)="""RTN"",""HLPAT120"",11,0)"
^XMB(3.9,43,2,3720,0)=" D CC"
^XMB(3.9,43,2,3721,0)="""RTN"",""HLPAT120"",12,0)"
^XMB(3.9,43,2,3722,0)=" D APP771"
^XMB(3.9,43,2,3723,0)="""RTN"",""HLPAT120"",13,0)"
^XMB(3.9,43,2,3724,0)=" Q:'$D(HLCCARY)"
^XMB(3.9,43,2,3725,0)="""RTN"",""HLPAT120"",14,0)"
^XMB(3.9,43,2,3726,0)=" ;"
^XMB(3.9,43,2,3727,0)="""RTN"",""HLPAT120"",15,0)"
^XMB(3.9,43,2,3728,0)=" I $D(^XTMP(""HLPAT120"")) K ^XTMP(""HLPAT120"")"
^XMB(3.9,43,2,3729,0)="""RTN"",""HLPAT120"",16,0)"
^XMB(3.9,43,2,3730,0)=" M ^XTMP(""HLPAT120"",""CC"")=HLCCARY"
^XMB(3.9,43,2,3731,0)="""RTN"",""HLPAT120"",17,0)"
^XMB(3.9,43,2,3732,0)=" S ^XTMP(""HLPAT120"",0)=$$FMADD^XLFDT(DT,90)_U_DT"
^XMB(3.9,43,2,3733,0)="""RTN"",""HLPAT120"",18,0)"
^XMB(3.9,43,2,3734,0)=" Q:'$D(HLAPPARY)"
^XMB(3.9,43,2,3735,0)="""RTN"",""HLPAT120"",19,0)"
^XMB(3.9,43,2,3736,0)=" ;"
^XMB(3.9,43,2,3737,0)="""RTN"",""HLPAT120"",20,0)"
^XMB(3.9,43,2,3738,0)=" M ^XTMP(""HLPAT120"",""APP"")=HLAPPARY"
^XMB(3.9,43,2,3739,0)="""RTN"",""HLPAT120"",21,0)"
^XMB(3.9,43,2,3740,0)=" Q"
^XMB(3.9,43,2,3741,0)="""RTN"",""HLPAT120"",22,0)"
^XMB(3.9,43,2,3742,0)="CC ;"
^XMB(3.9,43,2,3743,0)="""RTN"",""HLPAT120"",23,0)"
^XMB(3.9,43,2,3744,0)=" ; find entries US"" and ""USA"" in file #779.004"
^XMB(3.9,43,2,3745,0)="""RTN"",""HLPAT120"",24,0)"
^XMB(3.9,43,2,3746,0)=" N HLIEN,HLCC"
^XMB(3.9,43,2,3747,0)="""RTN"",""HLPAT120"",25,0)"
^XMB(3.9,43,2,3748,0)=" S HLIEN=0"
^XMB(3.9,43,2,3749,0)="""RTN"",""HLPAT120"",26,0)"
^XMB(3.9,43,2,3750,0)=" F  S HLIEN=$O(^HL(779.004,HLIEN)) Q:'HLIEN  D"
^XMB(3.9,43,2,3751,0)="""RTN"",""HLPAT120"",27,0)"
^XMB(3.9,43,2,3752,0)=" . I $D(^HL(779.004,HLIEN,0)) D"
^XMB(3.9,43,2,3753,0)="""RTN"",""HLPAT120"",28,0)"
^XMB(3.9,43,2,3754,0)=" .. S HLCC=$P(^HL(779.004,HLIEN,0),""^"")"
^XMB(3.9,43,2,3755,0)="""RTN"",""HLPAT120"",29,0)"
^XMB(3.9,43,2,3756,0)=" .. I (HLCC=""US"")!(HLCC=""USA"") D"
^XMB(3.9,43,2,3757,0)="""RTN"",""HLPAT120"",30,0)"
^XMB(3.9,43,2,3758,0)=" ... ; no duplicate country code is assumed"
^XMB(3.9,43,2,3759,0)="""RTN"",""HLPAT120"",31,0)"
^XMB(3.9,43,2,3760,0)=" ... S HLCCARY(HLCC)=HLIEN"
^XMB(3.9,43,2,3761,0)="""RTN"",""HLPAT120"",32,0)"
^XMB(3.9,43,2,3762,0)=" Q"
^XMB(3.9,43,2,3763,0)="""RTN"",""HLPAT120"",33,0)"
^XMB(3.9,43,2,3764,0)="APP771 ;"
^XMB(3.9,43,2,3765,0)="""RTN"",""HLPAT120"",34,0)"
^XMB(3.9,43,2,3766,0)=" ; find pointer in file #771, pointing to entries US"" in file #779.004"
^XMB(3.9,43,2,3767,0)="""RTN"",""HLPAT120"",35,0)"
^XMB(3.9,43,2,3768,0)=" N HLIEN,HLCCPTR,HLCCPNEW"
^XMB(3.9,43,2,3769,0)="""RTN"",""HLPAT120"",36,0)"
^XMB(3.9,43,2,3770,0)=" S HLIEN=0"
^XMB(3.9,43,2,3771,0)="""RTN"",""HLPAT120"",37,0)"
^XMB(3.9,43,2,3772,0)=" Q:'$G(HLCCARY(""US""))"
^XMB(3.9,43,2,3773,0)="""RTN"",""HLPAT120"",38,0)"
^XMB(3.9,43,2,3774,0)=" Q:'$G(HLCCARY(""USA""))"
^XMB(3.9,43,2,3775,0)="""RTN"",""HLPAT120"",39,0)"
^XMB(3.9,43,2,3776,0)=" ;"
^XMB(3.9,43,2,3777,0)="""RTN"",""HLPAT120"",40,0)"
^XMB(3.9,43,2,3778,0)=" F  S HLIEN=$O(^HL(771,HLIEN)) Q:'HLIEN  D"
^XMB(3.9,43,2,3779,0)="""RTN"",""HLPAT120"",41,0)"
^XMB(3.9,43,2,3780,0)=" . I $D(^HL(771,HLIEN,0)) D"
^XMB(3.9,43,2,3781,0)="""RTN"",""HLPAT120"",42,0)"
^XMB(3.9,43,2,3782,0)=" .. S HLCCPTR=$P(^HL(771,HLIEN,0),""^"",7)"
^XMB(3.9,43,2,3783,0)="""RTN"",""HLPAT120"",43,0)"
^XMB(3.9,43,2,3784,0)=" .. S HLCCPNEW=0"
^XMB(3.9,43,2,3785,0)="""RTN"",""HLPAT120"",44,0)"
^XMB(3.9,43,2,3786,0)=" .. I HLCCPTR>0,HLCCPTR=HLCCARY(""US"") D"
^XMB(3.9,43,2,3787,0)="""RTN"",""HLPAT120"",45,0)"
^XMB(3.9,43,2,3788,0)=" ... ;"
^XMB(3.9,43,2,3789,0)="""RTN"",""HLPAT120"",46,0)"
^XMB(3.9,43,2,3790,0)=" ... ; redirect pointer for field #771,7"
^XMB(3.9,43,2,3791,0)="""RTN"",""HLPAT120"",47,0)"
^XMB(3.9,43,2,3792,0)=" ... S $P(^HL(771,HLIEN,0),""^"",7)=HLCCARY(""USA"")"
^XMB(3.9,43,2,3793,0)="""RTN"",""HLPAT120"",48,0)"
^XMB(3.9,43,2,3794,0)=" ... S HLAPPARY(HLIEN,HLCCARY(""US""))=HLCCARY(""USA"")"
^XMB(3.9,43,2,3795,0)="""RTN"",""HLPAT120"",49,0)"
^XMB(3.9,43,2,3796,0)=" ;"
^XMB(3.9,43,2,3797,0)="""RTN"",""HLPAT120"",50,0)"
^XMB(3.9,43,2,3798,0)=" ; delete entry ""US"" from file #779.004"
^XMB(3.9,43,2,3799,0)="""RTN"",""HLPAT120"",51,0)"
^XMB(3.9,43,2,3800,0)=" N DA,DIK"
^XMB(3.9,43,2,3801,0)="""RTN"",""HLPAT120"",52,0)"
^XMB(3.9,43,2,3802,0)=" S DIK=""^HL(779.004,"""
^XMB(3.9,43,2,3803,0)="""RTN"",""HLPAT120"",53,0)"
^XMB(3.9,43,2,3804,0)=" S DA=HLCCARY(""US"")"
^XMB(3.9,43,2,3805,0)="""RTN"",""HLPAT120"",54,0)"
^XMB(3.9,43,2,3806,0)=" D ^DIK"
^XMB(3.9,43,2,3807,0)="""RTN"",""HLPAT120"",55,0)"
^XMB(3.9,43,2,3808,0)=" Q"
^XMB(3.9,43,2,3809,0)="""RTN"",""HLPAT120"",56,0)"
^XMB(3.9,43,2,3810,0)="POST ;"
^XMB(3.9,43,2,3811,0)="""RTN"",""HLPAT120"",57,0)"
^XMB(3.9,43,2,3812,0)=" ; enable identifier for file  #779.004"
^XMB(3.9,43,2,3813,0)="""RTN"",""HLPAT120"",58,0)"
^XMB(3.9,43,2,3814,0)=" S ^DD(779.004,0,""ID"",2)=""W ""_""""""""_""   ""_""""""""_"",$P(^(0),U,2)"""
^XMB(3.9,43,2,3815,0)="""RTN"",""HLPAT120"",59,0)"
^XMB(3.9,43,2,3816,0)=" ;"
^XMB(3.9,43,2,3817,0)="""RTN"",""HLPAT120"",60,0)"
^XMB(3.9,43,2,3818,0)=" N FDA,IEN,IENS,VUID,IFN"
^XMB(3.9,43,2,3819,0)="""RTN"",""HLPAT120"",61,0)"
^XMB(3.9,43,2,3820,0)=" ;"
^XMB(3.9,43,2,3821,0)="""RTN"",""HLPAT120"",62,0)"
^XMB(3.9,43,2,3822,0)=" S IFN=779.00409"
^XMB(3.9,43,2,3823,0)="""RTN"",""HLPAT120"",63,0)"
^XMB(3.9,43,2,3824,0)=" K FDA"
^XMB(3.9,43,2,3825,0)="""RTN"",""HLPAT120"",64,0)"
^XMB(3.9,43,2,3826,0)=" ;"
^XMB(3.9,43,2,3827,0)="""RTN"",""HLPAT120"",65,0)"
^XMB(3.9,43,2,3828,0)=" S VUID=0"
^XMB(3.9,43,2,3829,0)="""RTN"",""HLPAT120"",66,0)"
^XMB(3.9,43,2,3830,0)=" F  S VUID=$O(^HL(779.004,""AMASTERVUID"",VUID)) Q:'VUID  D"
^XMB(3.9,43,2,3831,0)="""RTN"",""HLPAT120"",67,0)"
^XMB(3.9,43,2,3832,0)=" .S IEN=$O(^HL(779.004,""AMASTERVUID"",VUID,1,0)) Q:'IEN"
^XMB(3.9,43,2,3833,0)="""RTN"",""HLPAT120"",68,0)"
^XMB(3.9,43,2,3834,0)=" .K ^HL(779.004,IEN,""TERMSTATUS"")"
^XMB(3.9,43,2,3835,0)="""RTN"",""HLPAT120"",69,0)"
^XMB(3.9,43,2,3836,0)=" .S IENS=IEN_"","""
^XMB(3.9,43,2,3837,0)="""RTN"",""HLPAT120"",70,0)"
^XMB(3.9,43,2,3838,0)=" .K FDA"
^XMB(3.9,43,2,3839,0)="""RTN"",""HLPAT120"",71,0)"
^XMB(3.9,43,2,3840,0)=" .S FDA(IFN,""?+1,""_IENS,.01)=$$NOW^XLFDT"
^XMB(3.9,43,2,3841,0)="""RTN"",""HLPAT120"",72,0)"
^XMB(3.9,43,2,3842,0)=" .S FDA(IFN,""?+1,""_IENS,.02)=1"
^XMB(3.9,43,2,3843,0)="""RTN"",""HLPAT120"",73,0)"
^XMB(3.9,43,2,3844,0)=" .D UPDATE^DIE(,""FDA"")"
^XMB(3.9,43,2,3845,0)="""RTN"",""HLPAT120"",74,0)"
^XMB(3.9,43,2,3846,0)=" ;"
^XMB(3.9,43,2,3847,0)="""RTN"",""HLPAT120"",75,0)"
^XMB(3.9,43,2,3848,0)=" Q"
^XMB(3.9,43,2,3849,0)="""RTN"",""HLPAT120"",76,0)"
^XMB(3.9,43,2,3850,0)=" ;"
^XMB(3.9,43,2,3851,0)="""RTN"",""HLTF"")"
^XMB(3.9,43,2,3852,0)="0^8^B49703549^B49383239"
^XMB(3.9,43,2,3853,0)="""RTN"",""HLTF"",1,0)"
^XMB(3.9,43,2,3854,0)="HLTF ;AISC/SAW,JRP-Create/Process Message Text File Entries ;01/23/06  12:56"
^XMB(3.9,43,2,3855,0)="""RTN"",""HLTF"",2,0)"
^XMB(3.9,43,2,3856,0)=" ;;1.6;HEALTH LEVEL SEVEN;**1,19,43,55,109,120**;Oct 13, 1995;Build 12"
^XMB(3.9,43,2,3857,0)="""RTN"",""HLTF"",3,0)"
^XMB(3.9,43,2,3858,0)="FILE ;Create Entries in files 772 and 773 for Version 1.5 Interface Only"
^XMB(3.9,43,2,3859,0)="""RTN"",""HLTF"",4,0)"
^XMB(3.9,43,2,3860,0)=" D CREATE(,.HLDA,.HLDT,.HLDT1)"
^XMB(3.9,43,2,3861,0)="""RTN"",""HLTF"",5,0)"
^XMB(3.9,43,2,3862,0)=" Q"
^XMB(3.9,43,2,3863,0)="""RTN"",""HLTF"",6,0)"
^XMB(3.9,43,2,3864,0)="CREATE(HLMID,MTIEN,HLDT,HLDT1) ;Create entries in Message Text (#772)"
^XMB(3.9,43,2,3865,0)="""RTN"",""HLTF"",7,0)"
^XMB(3.9,43,2,3866,0)=" ;"
^XMB(3.9,43,2,3867,0)="""RTN"",""HLTF"",8,0)"
^XMB(3.9,43,2,3868,0)=" ;Input  : HLMID = Variable in which value of message ID will be"
^XMB(3.9,43,2,3869,0)="""RTN"",""HLTF"",9,0)"
^XMB(3.9,43,2,3870,0)=" ;                 returned (pass by reference)"
^XMB(3.9,43,2,3871,0)="""RTN"",""HLTF"",10,0)"
^XMB(3.9,43,2,3872,0)=" ;         MTIEN = Variable in which IEN of Message Text file entry"
^XMB(3.9,43,2,3873,0)="""RTN"",""HLTF"",11,0)"
^XMB(3.9,43,2,3874,0)=" ;                 will be returned (pass by reference)"
^XMB(3.9,43,2,3875,0)="""RTN"",""HLTF"",12,0)"
^XMB(3.9,43,2,3876,0)=" ;         HLDT = Variable in which current date/time in FM internal"
^XMB(3.9,43,2,3877,0)="""RTN"",""HLTF"",13,0)"
^XMB(3.9,43,2,3878,0)=" ;                format will be returned (pass by reference)"
^XMB(3.9,43,2,3879,0)="""RTN"",""HLTF"",14,0)"
^XMB(3.9,43,2,3880,0)=" ;         HLDT1 = Variable in which current date/time in HL7 format"
^XMB(3.9,43,2,3881,0)="""RTN"",""HLTF"",15,0)"
^XMB(3.9,43,2,3882,0)=" ;                 will be returned (pass by reference)"
^XMB(3.9,43,2,3883,0)="""RTN"",""HLTF"",16,0)"
^XMB(3.9,43,2,3884,0)=" ;"
^XMB(3.9,43,2,3885,0)="""RTN"",""HLTF"",17,0)"
^XMB(3.9,43,2,3886,0)=" ;Output : See above"
^XMB(3.9,43,2,3887,0)="""RTN"",""HLTF"",18,0)"
^XMB(3.9,43,2,3888,0)=" ;"
^XMB(3.9,43,2,3889,0)="""RTN"",""HLTF"",19,0)"
^XMB(3.9,43,2,3890,0)=" ;Notes  : If HLDT has a value [upon entry], the created entries will"
^XMB(3.9,43,2,3891,0)="""RTN"",""HLTF"",20,0)"
^XMB(3.9,43,2,3892,0)=" ;         be given that value for their date/time (value of .01)"
^XMB(3.9,43,2,3893,0)="""RTN"",""HLTF"",21,0)"
^XMB(3.9,43,2,3894,0)=" ;       : Current date/time used if HLDT is not passed or invalid"
^XMB(3.9,43,2,3895,0)="""RTN"",""HLTF"",22,0)"
^XMB(3.9,43,2,3896,0)=" ;"
^XMB(3.9,43,2,3897,0)="""RTN"",""HLTF"",23,0)"
^XMB(3.9,43,2,3898,0)=" ;Make entry in Message Administration file"
^XMB(3.9,43,2,3899,0)="""RTN"",""HLTF"",24,0)"
^XMB(3.9,43,2,3900,0)=" N Y"
^XMB(3.9,43,2,3901,0)="""RTN"",""HLTF"",25,0)"
^XMB(3.9,43,2,3902,0)=" S HLDT=$G(HLDT)"
^XMB(3.9,43,2,3903,0)="""RTN"",""HLTF"",26,0)"
^XMB(3.9,43,2,3904,0)=" D MT(.HLDT)"
^XMB(3.9,43,2,3905,0)="""RTN"",""HLTF"",27,0)"
^XMB(3.9,43,2,3906,0)=" S Y=$$CHNGMID(MTIEN,.HLMID),HLDT1=$$HLDATE^HLFNC(HLDT)"
^XMB(3.9,43,2,3907,0)="""RTN"",""HLTF"",28,0)"
^XMB(3.9,43,2,3908,0)=" Q"
^XMB(3.9,43,2,3909,0)="""RTN"",""HLTF"",29,0)"
^XMB(3.9,43,2,3910,0)="TCP(HLMID,MTIEN,HLDT) ;create new message in 772 & 773 entries"
^XMB(3.9,43,2,3911,0)="""RTN"",""HLTF"",30,0)"
^XMB(3.9,43,2,3912,0)=" ;used for incoming messages and outgoing responses"
^XMB(3.9,43,2,3913,0)="""RTN"",""HLTF"",31,0)"
^XMB(3.9,43,2,3914,0)=" ;Input  : HLMID = Variable in which value of message ID will be"
^XMB(3.9,43,2,3915,0)="""RTN"",""HLTF"",32,0)"
^XMB(3.9,43,2,3916,0)=" ;                 returned (pass by reference)"
^XMB(3.9,43,2,3917,0)="""RTN"",""HLTF"",33,0)"
^XMB(3.9,43,2,3918,0)=" ;         MTIEN = Variable in which IEN of file 773 entry"
^XMB(3.9,43,2,3919,0)="""RTN"",""HLTF"",34,0)"
^XMB(3.9,43,2,3920,0)=" ;                 will be returned (pass by reference)"
^XMB(3.9,43,2,3921,0)="""RTN"",""HLTF"",35,0)"
^XMB(3.9,43,2,3922,0)=" ;         HLDT = Variable in which current date/time in FM internal"
^XMB(3.9,43,2,3923,0)="""RTN"",""HLTF"",36,0)"
^XMB(3.9,43,2,3924,0)=" ;                format will be returned (pass by reference)"
^XMB(3.9,43,2,3925,0)="""RTN"",""HLTF"",37,0)"
^XMB(3.9,43,2,3926,0)=" ;"
^XMB(3.9,43,2,3927,0)="""RTN"",""HLTF"",38,0)"
^XMB(3.9,43,2,3928,0)=" S HLDT=$G(HLDT),HLMID=$G(HLMID)"
^XMB(3.9,43,2,3929,0)="""RTN"",""HLTF"",39,0)"
^XMB(3.9,43,2,3930,0)=" D MT(.HLDT)"
^XMB(3.9,43,2,3931,0)="""RTN"",""HLTF"",40,0)"
^XMB(3.9,43,2,3932,0)=" S MTIEN=$$MA(MTIEN,.HLMID)"
^XMB(3.9,43,2,3933,0)="""RTN"",""HLTF"",41,0)"
^XMB(3.9,43,2,3934,0)=" Q"
^XMB(3.9,43,2,3935,0)="""RTN"",""HLTF"",42,0)"
^XMB(3.9,43,2,3936,0)=" ;"
^XMB(3.9,43,2,3937,0)="""RTN"",""HLTF"",43,0)"
^XMB(3.9,43,2,3938,0)="MT(HLX) ;Create entry in Message Text file (#772)"
^XMB(3.9,43,2,3939,0)="""RTN"",""HLTF"",44,0)"
^XMB(3.9,43,2,3940,0)=" ;"
^XMB(3.9,43,2,3941,0)="""RTN"",""HLTF"",45,0)"
^XMB(3.9,43,2,3942,0)=" ;Input  : HLX = Date/time entry in file should be given (value of .01)"
^XMB(3.9,43,2,3943,0)="""RTN"",""HLTF"",46,0)"
^XMB(3.9,43,2,3944,0)=" ;               Defaults to current date/time"
^XMB(3.9,43,2,3945,0)="""RTN"",""HLTF"",47,0)"
^XMB(3.9,43,2,3946,0)=" ;"
^XMB(3.9,43,2,3947,0)="""RTN"",""HLTF"",48,0)"
^XMB(3.9,43,2,3948,0)=" ;Output : HLDT = Date/time of created entry (value of .01)"
^XMB(3.9,43,2,3949,0)="""RTN"",""HLTF"",49,0)"
^XMB(3.9,43,2,3950,0)=" ;       : HLDT1 = HLDT in HL7 format"
^XMB(3.9,43,2,3951,0)="""RTN"",""HLTF"",50,0)"
^XMB(3.9,43,2,3952,0)=" ;"
^XMB(3.9,43,2,3953,0)="""RTN"",""HLTF"",51,0)"
^XMB(3.9,43,2,3954,0)=" ;Notes  : HLX must be in FileMan format (default value used if not)"
^XMB(3.9,43,2,3955,0)="""RTN"",""HLTF"",52,0)"
^XMB(3.9,43,2,3956,0)=" ;       : HLDT will be in FileMan format"
^XMB(3.9,43,2,3957,0)="""RTN"",""HLTF"",53,0)"
^XMB(3.9,43,2,3958,0)=" ;       : MTIEN is ien in file 772"
^XMB(3.9,43,2,3959,0)="""RTN"",""HLTF"",54,0)"
^XMB(3.9,43,2,3960,0)=" ;"
^XMB(3.9,43,2,3961,0)="""RTN"",""HLTF"",55,0)"
^XMB(3.9,43,2,3962,0)=" ;Check for input"
^XMB(3.9,43,2,3963,0)="""RTN"",""HLTF"",56,0)"
^XMB(3.9,43,2,3964,0)=" S HLX=$G(HLX)"
^XMB(3.9,43,2,3965,0)="""RTN"",""HLTF"",57,0)"
^XMB(3.9,43,2,3966,0)=" ;Declare variables"
^XMB(3.9,43,2,3967,0)="""RTN"",""HLTF"",58,0)"
^XMB(3.9,43,2,3968,0)=" N DIC,DD,DO,HLCNT,HLJ,X,Y"
^XMB(3.9,43,2,3969,0)="""RTN"",""HLTF"",59,0)"
^XMB(3.9,43,2,3970,0)=" F HLCNT=0:1 D  Q:Y>0  H HLCNT"
^XMB(3.9,43,2,3971,0)="""RTN"",""HLTF"",60,0)"
^XMB(3.9,43,2,3972,0)=" . I (HLX'?7N.1""."".6N) S HLX=$$NOW^XLFDT"
^XMB(3.9,43,2,3973,0)="""RTN"",""HLTF"",61,0)"
^XMB(3.9,43,2,3974,0)=" . S DIC=""^HL(772,"",DIC(0)=""L"",(HLDT,X)=HLX"
^XMB(3.9,43,2,3975,0)="""RTN"",""HLTF"",62,0)"
^XMB(3.9,43,2,3976,0)=" . S Y=$$STUB772(X) ; This call substituted for D FILE^DICN by HL*1.6*109"
^XMB(3.9,43,2,3977,0)="""RTN"",""HLTF"",63,0)"
^XMB(3.9,43,2,3978,0)=" . ;Entry not created - try again"
^XMB(3.9,43,2,3979,0)="""RTN"",""HLTF"",64,0)"
^XMB(3.9,43,2,3980,0)=" . I Y<0 S HLX="""" Q"
^XMB(3.9,43,2,3981,0)="""RTN"",""HLTF"",65,0)"
^XMB(3.9,43,2,3982,0)=" . S MTIEN=+Y"
^XMB(3.9,43,2,3983,0)="""RTN"",""HLTF"",66,0)"
^XMB(3.9,43,2,3984,0)=" ;***If we didn't get a record in 772, need to do something"
^XMB(3.9,43,2,3985,0)="""RTN"",""HLTF"",67,0)"
^XMB(3.9,43,2,3986,0)=" I Y<0 Q"
^XMB(3.9,43,2,3987,0)="""RTN"",""HLTF"",68,0)"
^XMB(3.9,43,2,3988,0)=" S HLDT1=$$HLDATE^HLFNC(HLDT)"
^XMB(3.9,43,2,3989,0)="""RTN"",""HLTF"",69,0)"
^XMB(3.9,43,2,3990,0)=" Q"
^XMB(3.9,43,2,3991,0)="""RTN"",""HLTF"",70,0)"
^XMB(3.9,43,2,3992,0)=" ;add to Message Admin file #773"
^XMB(3.9,43,2,3993,0)="""RTN"",""HLTF"",71,0)"
^XMB(3.9,43,2,3994,0)="MA(X,HLMID) ;X=ien in file 772, HLMID=msg. id (passed by ref.)"
^XMB(3.9,43,2,3995,0)="""RTN"",""HLTF"",72,0)"
^XMB(3.9,43,2,3996,0)=" ;return ien in file 773"
^XMB(3.9,43,2,3997,0)="""RTN"",""HLTF"",73,0)"
^XMB(3.9,43,2,3998,0)=" Q:'$G(^HL(772,X,0)) 0"
^XMB(3.9,43,2,3999,0)="""RTN"",""HLTF"",74,0)"
^XMB(3.9,43,2,4000,0)=" N DA,DD,DO,DIC,DIE,DR,HLDA,HLCNT,HLJ,Y"
^XMB(3.9,43,2,4001,0)="""RTN"",""HLTF"",75,0)"
^XMB(3.9,43,2,4002,0)=" S DIC=""^HLMA("",DIC(0)=""L"""
^XMB(3.9,43,2,4003,0)="""RTN"",""HLTF"",76,0)"
^XMB(3.9,43,2,4004,0)=" F HLCNT=0:1 D  Q:Y>0  H HLCNT"
^XMB(3.9,43,2,4005,0)="""RTN"",""HLTF"",77,0)"
^XMB(3.9,43,2,4006,0)=" . S Y=$$STUB773(X) ; This call substituted for D FILE^DICN by HL*1.6*109"
^XMB(3.9,43,2,4007,0)="""RTN"",""HLTF"",78,0)"
^XMB(3.9,43,2,4008,0)=" ;***If we didn't get a record in 773, need to do something"
^XMB(3.9,43,2,4009,0)="""RTN"",""HLTF"",79,0)"
^XMB(3.9,43,2,4010,0)=" I Y<0 Q 0"
^XMB(3.9,43,2,4011,0)="""RTN"",""HLTF"",80,0)"
^XMB(3.9,43,2,4012,0)=" S HLDA=+Y,HLMID=$$MAID(HLDA,$G(HLMID))"
^XMB(3.9,43,2,4013,0)="""RTN"",""HLTF"",81,0)"
^XMB(3.9,43,2,4014,0)=" Q HLDA"
^XMB(3.9,43,2,4015,0)="""RTN"",""HLTF"",82,0)"
^XMB(3.9,43,2,4016,0)=" ;"
^XMB(3.9,43,2,4017,0)="""RTN"",""HLTF"",83,0)"
^XMB(3.9,43,2,4018,0)="MAID(Y,HLMID) ;Determine message ID (if needed) & store message ID"
^XMB(3.9,43,2,4019,0)="""RTN"",""HLTF"",84,0)"
^XMB(3.9,43,2,4020,0)=" ;Y=ien in 773, HLMID=id,  Output message id"
^XMB(3.9,43,2,4021,0)="""RTN"",""HLTF"",85,0)"
^XMB(3.9,43,2,4022,0)=" N HLJ"
^XMB(3.9,43,2,4023,0)="""RTN"",""HLTF"",86,0)"
^XMB(3.9,43,2,4024,0)=" ;need to have id contain institution number to make unique"
^XMB(3.9,43,2,4025,0)="""RTN"",""HLTF"",87,0)"
^XMB(3.9,43,2,4026,0)=" S:$G(HLMID)="""" HLMID=+$P($$PARAM^HLCS2,U,6)_Y"
^XMB(3.9,43,2,4027,0)="""RTN"",""HLTF"",88,0)"
^XMB(3.9,43,2,4028,0)=" S HLJ(773,Y_"","",2)=HLMID"
^XMB(3.9,43,2,4029,0)="""RTN"",""HLTF"",89,0)"
^XMB(3.9,43,2,4030,0)=" D FILE^HLDIE("""",""HLJ"","""",""MAID"",""HLTF"") ;HL*1.6*109"
^XMB(3.9,43,2,4031,0)="""RTN"",""HLTF"",90,0)"
^XMB(3.9,43,2,4032,0)=" Q HLMID"
^XMB(3.9,43,2,4033,0)="""RTN"",""HLTF"",91,0)"
^XMB(3.9,43,2,4034,0)=" ;"
^XMB(3.9,43,2,4035,0)="""RTN"",""HLTF"",92,0)"
^XMB(3.9,43,2,4036,0)="CHNGMID(PTRMT,NEWID) ;Change message ID for entry in Message Text file"
^XMB(3.9,43,2,4037,0)="""RTN"",""HLTF"",93,0)"
^XMB(3.9,43,2,4038,0)=" ;Input  : PTRMT - Pointer to entry in Message Text file (#772)"
^XMB(3.9,43,2,4039,0)="""RTN"",""HLTF"",94,0)"
^XMB(3.9,43,2,4040,0)=" ;         NEWID - New message ID"
^XMB(3.9,43,2,4041,0)="""RTN"",""HLTF"",95,0)"
^XMB(3.9,43,2,4042,0)=" ;Output : 0 = Success"
^XMB(3.9,43,2,4043,0)="""RTN"",""HLTF"",96,0)"
^XMB(3.9,43,2,4044,0)=" ;         -1^ErrorText = Error/Bad input"
^XMB(3.9,43,2,4045,0)="""RTN"",""HLTF"",97,0)"
^XMB(3.9,43,2,4046,0)=" ;"
^XMB(3.9,43,2,4047,0)="""RTN"",""HLTF"",98,0)"
^XMB(3.9,43,2,4048,0)=" ;Check input"
^XMB(3.9,43,2,4049,0)="""RTN"",""HLTF"",99,0)"
^XMB(3.9,43,2,4050,0)=" S PTRMT=+$G(PTRMT)"
^XMB(3.9,43,2,4051,0)="""RTN"",""HLTF"",100,0)"
^XMB(3.9,43,2,4052,0)=" S NEWID=$G(NEWID)"
^XMB(3.9,43,2,4053,0)="""RTN"",""HLTF"",101,0)"
^XMB(3.9,43,2,4054,0)=" Q:('$D(^HL(772,PTRMT,0))) ""-1^Did not pass valid pointer to Message Text file (#772)"""
^XMB(3.9,43,2,4055,0)="""RTN"",""HLTF"",102,0)"
^XMB(3.9,43,2,4056,0)=" N HLJ"
^XMB(3.9,43,2,4057,0)="""RTN"",""HLTF"",103,0)"
^XMB(3.9,43,2,4058,0)=" I $G(NEWID)="""" S NEWID=+$P($$PARAM^HLCS2,U,6)_PTRMT"
^XMB(3.9,43,2,4059,0)="""RTN"",""HLTF"",104,0)"
^XMB(3.9,43,2,4060,0)=" S HLJ(772,PTRMT_"","",6)=NEWID"
^XMB(3.9,43,2,4061,0)="""RTN"",""HLTF"",105,0)"
^XMB(3.9,43,2,4062,0)=" D FILE^HLDIE("""",""HLJ"","""",""CHNGMID"",""HLTF"") ; HL*1.6*109"
^XMB(3.9,43,2,4063,0)="""RTN"",""HLTF"",106,0)"
^XMB(3.9,43,2,4064,0)=" Q 0"
^XMB(3.9,43,2,4065,0)="""RTN"",""HLTF"",107,0)"
^XMB(3.9,43,2,4066,0)=" ;"
^XMB(3.9,43,2,4067,0)="""RTN"",""HLTF"",108,0)"
^XMB(3.9,43,2,4068,0)="OUT(HLDA,HLMID,HLMTN) ;File Data in Message Text File for Outgoing Message"
^XMB(3.9,43,2,4069,0)="""RTN"",""HLTF"",109,0)"
^XMB(3.9,43,2,4070,0)=" ;Version 1.5 Interface Only"
^XMB(3.9,43,2,4071,0)="""RTN"",""HLTF"",110,0)"
^XMB(3.9,43,2,4072,0)=" Q:'$D(HLFS)"
^XMB(3.9,43,2,4073,0)="""RTN"",""HLTF"",111,0)"
^XMB(3.9,43,2,4074,0)=" ;"
^XMB(3.9,43,2,4075,0)="""RTN"",""HLTF"",112,0)"
^XMB(3.9,43,2,4076,0)=" I HLMTN=""ACK""!(HLMTN=""MCF"")!(HLMTN=""ORR"") Q:'$D(HLMSA)  D ACK(HLMSA,""I"") Q"
^XMB(3.9,43,2,4077,0)="""RTN"",""HLTF"",113,0)"
^XMB(3.9,43,2,4078,0)=" ;"
^XMB(3.9,43,2,4079,0)="""RTN"",""HLTF"",114,0)"
^XMB(3.9,43,2,4080,0)=" ;-- if message contained MSA find inbound message"
^XMB(3.9,43,2,4081,0)="""RTN"",""HLTF"",115,0)"
^XMB(3.9,43,2,4082,0)=" I $D(HLMSA),$D(HLNDAP),$P(HLMSA,HLFS,3)]"""" D"
^XMB(3.9,43,2,4083,0)="""RTN"",""HLTF"",116,0)"
^XMB(3.9,43,2,4084,0)=" . N HLDAI"
^XMB(3.9,43,2,4085,0)="""RTN"",""HLTF"",117,0)"
^XMB(3.9,43,2,4086,0)=" . S HLDAI=0"
^XMB(3.9,43,2,4087,0)="""RTN"",""HLTF"",118,0)"
^XMB(3.9,43,2,4088,0)=" . F  S HLDAI=$O(^HL(772,""AH"",+$P($G(HLNDAP0),U,12),$P(HLMSA,HLFS,3),HLDAI)) Q:'HLDAI!($P($G(^HL(772,+HLDAI,0)),U,4)=""I"")"
^XMB(3.9,43,2,4089,0)="""RTN"",""HLTF"",119,0)"
^XMB(3.9,43,2,4090,0)=" . I 'HLDAI K HLDAI"
^XMB(3.9,43,2,4091,0)="""RTN"",""HLTF"",120,0)"
^XMB(3.9,43,2,4092,0)=" ;"
^XMB(3.9,43,2,4093,0)="""RTN"",""HLTF"",121,0)"
^XMB(3.9,43,2,4094,0)=" D STUFF^HLTF0(""O"")"
^XMB(3.9,43,2,4095,0)="""RTN"",""HLTF"",122,0)"
^XMB(3.9,43,2,4096,0)=" ;"
^XMB(3.9,43,2,4097,0)="""RTN"",""HLTF"",123,0)"
^XMB(3.9,43,2,4098,0)=" N HLAC S HLAC=$S($D(HLERR):4,'$P(HLNDAP0,""^"",10):1,1:2) D STATUS^HLTF0(HLDA,HLAC,$G(HLMSG))"
^XMB(3.9,43,2,4099,0)="""RTN"",""HLTF"",124,0)"
^XMB(3.9,43,2,4100,0)=" D:$D(HLCHAR) STATS^HLTF0(HLDA,HLCHAR,$G(HLEVN))"
^XMB(3.9,43,2,4101,0)="""RTN"",""HLTF"",125,0)"
^XMB(3.9,43,2,4102,0)=" ;"
^XMB(3.9,43,2,4103,0)="""RTN"",""HLTF"",126,0)"
^XMB(3.9,43,2,4104,0)=" ;-- update status if MSA and found inbound message"
^XMB(3.9,43,2,4105,0)="""RTN"",""HLTF"",127,0)"
^XMB(3.9,43,2,4106,0)=" I $D(HLMSA),$D(HLDAI) D"
^XMB(3.9,43,2,4107,0)="""RTN"",""HLTF"",128,0)"
^XMB(3.9,43,2,4108,0)=" .N HLERR,HLMSG I $P(HLMSA,HLFS,4)]"""" S HLERR=$P(HLMSA,HLFS,4)"
^XMB(3.9,43,2,4109,0)="""RTN"",""HLTF"",129,0)"
^XMB(3.9,43,2,4110,0)=" .S HLAC=$P(HLMSA,HLFS,2)"
^XMB(3.9,43,2,4111,0)="""RTN"",""HLTF"",130,0)"
^XMB(3.9,43,2,4112,0)=" .I HLAC'=""AA"" S HLMSG=$S(HLAC=""AR"":""Application Reject"",HLAC=""AE"":""Application Error"",1:"""")_"" - ""_HLERR"
^XMB(3.9,43,2,4113,0)="""RTN"",""HLTF"",131,0)"
^XMB(3.9,43,2,4114,0)=" .S HLAC=$S(HLAC'=""AA"":4,1:3) D STATUS^HLTF0(HLDAI,HLAC,$G(HLMSG))"
^XMB(3.9,43,2,4115,0)="""RTN"",""HLTF"",132,0)"
^XMB(3.9,43,2,4116,0)=" Q"
^XMB(3.9,43,2,4117,0)="""RTN"",""HLTF"",133,0)"
^XMB(3.9,43,2,4118,0)=" ;"
^XMB(3.9,43,2,4119,0)="""RTN"",""HLTF"",134,0)"
^XMB(3.9,43,2,4120,0)="IN(HLMTN,HLMID,HLTIME) ;File Data in Message Text File for Incoming Message"
^XMB(3.9,43,2,4121,0)="""RTN"",""HLTF"",135,0)"
^XMB(3.9,43,2,4122,0)=" ;Version 1.5 Interface Only"
^XMB(3.9,43,2,4123,0)="""RTN"",""HLTF"",136,0)"
^XMB(3.9,43,2,4124,0)=" Q:'$D(HLFS)"
^XMB(3.9,43,2,4125,0)="""RTN"",""HLTF"",137,0)"
^XMB(3.9,43,2,4126,0)=" I HLMTN=""ACK""!(HLMTN=""MCF"")!(HLMTN=""ORR"") Q:'$D(HLMSA)  D ACK(HLMSA,""O"",$G(HLDA)) Q"
^XMB(3.9,43,2,4127,0)="""RTN"",""HLTF"",138,0)"
^XMB(3.9,43,2,4128,0)=" ;"
^XMB(3.9,43,2,4129,0)="""RTN"",""HLTF"",139,0)"
^XMB(3.9,43,2,4130,0)=" N HLDAI S HLDA=0"
^XMB(3.9,43,2,4131,0)="""RTN"",""HLTF"",140,0)"
^XMB(3.9,43,2,4132,0)=" I $D(HLNDAP),HLMID]"""" D"
^XMB(3.9,43,2,4133,0)="""RTN"",""HLTF"",141,0)"
^XMB(3.9,43,2,4134,0)=" .F  S HLDA=+$O(^HL(772,""AH"",+$P($G(HLNDAP0),U,12),HLMID,HLDA)) Q:'HLDA!($P($G(^HL(772,+HLDA,0)),U,4)=""I"")"
^XMB(3.9,43,2,4135,0)="""RTN"",""HLTF"",142,0)"
^XMB(3.9,43,2,4136,0)=" .I HLDA D"
^XMB(3.9,43,2,4137,0)="""RTN"",""HLTF"",143,0)"
^XMB(3.9,43,2,4138,0)=" ..S HLDT=+$P($G(^HL(772,HLDA,0)),""^""),HLDT1=$$HLDATE^HLFNC(HLDT)"
^XMB(3.9,43,2,4139,0)="""RTN"",""HLTF"",144,0)"
^XMB(3.9,43,2,4140,0)=" ..K ^HL(772,HLDA,""IN"")"
^XMB(3.9,43,2,4141,0)="""RTN"",""HLTF"",145,0)"
^XMB(3.9,43,2,4142,0)=" .I $D(HLMSA),$P(HLMSA,HLFS,3)]"""" D"
^XMB(3.9,43,2,4143,0)="""RTN"",""HLTF"",146,0)"
^XMB(3.9,43,2,4144,0)=" ..S HLDAI=0"
^XMB(3.9,43,2,4145,0)="""RTN"",""HLTF"",147,0)"
^XMB(3.9,43,2,4146,0)=" ..F  S HLDAI=$O(^HL(772,""AH"",+$P($G(HLNDAP0),U,12),$P(HLMSA,HLFS,3),HLDAI)) Q:'HLDAI!($P($G(^HL(772,+HLDAI,0)),U,4)=""O"")"
^XMB(3.9,43,2,4147,0)="""RTN"",""HLTF"",148,0)"
^XMB(3.9,43,2,4148,0)=" ..I 'HLDAI K HLDAI"
^XMB(3.9,43,2,4149,0)="""RTN"",""HLTF"",149,0)"
^XMB(3.9,43,2,4150,0)=" ;"
^XMB(3.9,43,2,4151,0)="""RTN"",""HLTF"",150,0)"
^XMB(3.9,43,2,4152,0)=" I 'HLDA D CREATE(.HLMID,.HLDA,.HLDT,.HLDT1) K HLZ"
^XMB(3.9,43,2,4153,0)="""RTN"",""HLTF"",151,0)"
^XMB(3.9,43,2,4154,0)=" ;"
^XMB(3.9,43,2,4155,0)="""RTN"",""HLTF"",152,0)"
^XMB(3.9,43,2,4156,0)=" D STUFF^HLTF0(""I"")"
^XMB(3.9,43,2,4157,0)="""RTN"",""HLTF"",153,0)"
^XMB(3.9,43,2,4158,0)=" N HLAC S HLAC=$S($D(HLERR):4,1:1) D STATUS^HLTF0(HLDA,HLAC,$G(HLMSG))"
^XMB(3.9,43,2,4159,0)="""RTN"",""HLTF"",154,0)"
^XMB(3.9,43,2,4160,0)=" ;"
^XMB(3.9,43,2,4161,0)="""RTN"",""HLTF"",155,0)"
^XMB(3.9,43,2,4162,0)=" D MERGE15^HLTF1(""G"",HLDA,""HLR"",HLTIME)"
^XMB(3.9,43,2,4163,0)="""RTN"",""HLTF"",156,0)"
^XMB(3.9,43,2,4164,0)=" ;"
^XMB(3.9,43,2,4165,0)="""RTN"",""HLTF"",157,0)"
^XMB(3.9,43,2,4166,0)=" I '$D(HLERR),$D(HLMSA),$D(HLDAI) D"
^XMB(3.9,43,2,4167,0)="""RTN"",""HLTF"",158,0)"
^XMB(3.9,43,2,4168,0)=" .N HLAC,HLERR,HLMSG I $P(HLMSA,HLFS,4)]"""" S HLERR=$P(HLMSA,HLFS,4)"
^XMB(3.9,43,2,4169,0)="""RTN"",""HLTF"",159,0)"
^XMB(3.9,43,2,4170,0)=" .S HLAC=$P(HLMSA,HLFS,2) I HLAC'=""AA"" S HLMSG=$S(HLAC=""AR"":""Application Reject"",1:""Application Error"")_"" - ""_HLERR"
^XMB(3.9,43,2,4171,0)="""RTN"",""HLTF"",160,0)"
^XMB(3.9,43,2,4172,0)=" .S HLAC=$S(HLAC'=""AA"":4,1:3) D STATUS^HLTF0(HLDAI,HLAC,$G(HLMSG))"
^XMB(3.9,43,2,4173,0)="""RTN"",""HLTF"",161,0)"
^XMB(3.9,43,2,4174,0)=" Q"
^XMB(3.9,43,2,4175,0)="""RTN"",""HLTF"",162,0)"
^XMB(3.9,43,2,4176,0)=" ;"
^XMB(3.9,43,2,4177,0)="""RTN"",""HLTF"",163,0)"
^XMB(3.9,43,2,4178,0)="ACK(HLMSA,HLIO,HLDA) ;Process 'ACK' Message Type - Version 1.5 Interface Only"
^XMB(3.9,43,2,4179,0)="""RTN"",""HLTF"",164,0)"
^XMB(3.9,43,2,4180,0)=" ; To determine the correct message to link the ACK, HLIO is used."
^XMB(3.9,43,2,4181,0)="""RTN"",""HLTF"",165,0)"
^XMB(3.9,43,2,4182,0)=" ; For an ack from DHCP (original message from remote system) then"
^XMB(3.9,43,2,4183,0)="""RTN"",""HLTF"",166,0)"
^XMB(3.9,43,2,4184,0)=" ; HLIO should be ""I"" so that the correct inbound message is ack-ed. For"
^XMB(3.9,43,2,4185,0)="""RTN"",""HLTF"",167,0)"
^XMB(3.9,43,2,4186,0)=" ; an inbound ack (original message outbound from DHCP) HLIO should be"
^XMB(3.9,43,2,4187,0)="""RTN"",""HLTF"",168,0)"
^XMB(3.9,43,2,4188,0)=" ; ""O"". This distinction must be made due to the possible duplicate"
^XMB(3.9,43,2,4189,0)="""RTN"",""HLTF"",169,0)"
^XMB(3.9,43,2,4190,0)=" ; message ids from a bi-direction interface."
^XMB(3.9,43,2,4191,0)="""RTN"",""HLTF"",170,0)"
^XMB(3.9,43,2,4192,0)=" ;"
^XMB(3.9,43,2,4193,0)="""RTN"",""HLTF"",171,0)"
^XMB(3.9,43,2,4194,0)=" ; Input : MSA - MSA from ACK message."
^XMB(3.9,43,2,4195,0)="""RTN"",""HLTF"",172,0)"
^XMB(3.9,43,2,4196,0)=" ;         HLIO - Either ""I"" or ""O"" : See note above."
^XMB(3.9,43,2,4197,0)="""RTN"",""HLTF"",173,0)"
^XMB(3.9,43,2,4198,0)=" ;Output : None"
^XMB(3.9,43,2,4199,0)="""RTN"",""HLTF"",174,0)"
^XMB(3.9,43,2,4200,0)=" ;"
^XMB(3.9,43,2,4201,0)="""RTN"",""HLTF"",175,0)"
^XMB(3.9,43,2,4202,0)=" N HLAC,HLMIDI"
^XMB(3.9,43,2,4203,0)="""RTN"",""HLTF"",176,0)"
^XMB(3.9,43,2,4204,0)=" ;-- set up required vars"
^XMB(3.9,43,2,4205,0)="""RTN"",""HLTF"",177,0)"
^XMB(3.9,43,2,4206,0)=" S HLAC=$P(HLMSA,HLFS,2),HLMIDI=$P(HLMSA,HLFS,3)"
^XMB(3.9,43,2,4207,0)="""RTN"",""HLTF"",178,0)"
^XMB(3.9,43,2,4208,0)=" ;-- quit"
^XMB(3.9,43,2,4209,0)="""RTN"",""HLTF"",179,0)"
^XMB(3.9,43,2,4210,0)=" Q:HLMIDI']""""!(HLAC']"""")!('$D(HLNDAP))"
^XMB(3.9,43,2,4211,0)="""RTN"",""HLTF"",180,0)"
^XMB(3.9,43,2,4212,0)=" ;-- find message to ack"
^XMB(3.9,43,2,4213,0)="""RTN"",""HLTF"",181,0)"
^XMB(3.9,43,2,4214,0)=" I '$G(HLDA) S HLDA=0 D"
^XMB(3.9,43,2,4215,0)="""RTN"",""HLTF"",182,0)"
^XMB(3.9,43,2,4216,0)=" . F  S HLDA=+$O(^HL(772,""AH"",+$P($G(HLNDAP0),U,12),HLMIDI,HLDA)) Q:'HLDA!($P($G(^HL(772,+HLDA,0)),U,4)=HLIO)"
^XMB(3.9,43,2,4217,0)="""RTN"",""HLTF"",183,0)"
^XMB(3.9,43,2,4218,0)=" ;-- quit if no message"
^XMB(3.9,43,2,4219,0)="""RTN"",""HLTF"",184,0)"
^XMB(3.9,43,2,4220,0)=" Q:'$D(^HL(772,+HLDA,0))"
^XMB(3.9,43,2,4221,0)="""RTN"",""HLTF"",185,0)"
^XMB(3.9,43,2,4222,0)=" ;-- check for error"
^XMB(3.9,43,2,4223,0)="""RTN"",""HLTF"",186,0)"
^XMB(3.9,43,2,4224,0)=" I $P(HLMSA,HLFS,4)]"""" N HLERR S HLERR=$P(HLMSA,HLFS,4)"
^XMB(3.9,43,2,4225,0)="""RTN"",""HLTF"",187,0)"
^XMB(3.9,43,2,4226,0)=" I $D(HLERR),'$D(HLMSG) N HLMSG S HLMSG=""Error During Receipt of Acknowledgement Message""_$S(HLAC=""AR"":"" - Application Reject"",HLAC=""AE"":"" - Application Error"",1:"""")_"" - ""_HLERR"
^XMB(3.9,43,2,4227,0)="""RTN"",""HLTF"",188,0)"
^XMB(3.9,43,2,4228,0)=" ;-- update status"
^XMB(3.9,43,2,4229,0)="""RTN"",""HLTF"",189,0)"
^XMB(3.9,43,2,4230,0)=" S HLAC=$S(HLMTN=""MCF"":2,HLAC'=""AA"":4,1:3)"
^XMB(3.9,43,2,4231,0)="""RTN"",""HLTF"",190,0)"
^XMB(3.9,43,2,4232,0)=" D STATUS^HLTF0(HLDA,HLAC,$G(HLMSG))"
^XMB(3.9,43,2,4233,0)="""RTN"",""HLTF"",191,0)"
^XMB(3.9,43,2,4234,0)=" Q"
^XMB(3.9,43,2,4235,0)="""RTN"",""HLTF"",192,0)"
^XMB(3.9,43,2,4236,0)=" ;"
^XMB(3.9,43,2,4237,0)="""RTN"",""HLTF"",193,0)"
^XMB(3.9,43,2,4238,0)="STUB772(FLD01,OS) ;"
^XMB(3.9,43,2,4239,0)="""RTN"",""HLTF"",194,0)"
^XMB(3.9,43,2,4240,0)=" ;This function creates a new stub record in file 772. The Stub record may consist of only the 0 node with a value of ""^"". If a value is passed in for the .01 field it will be included in the 0 node and its ""B"" x-ref set."
^XMB(3.9,43,2,4241,0)="""RTN"",""HLTF"",195,0)"
^XMB(3.9,43,2,4242,0)=" ;Inputs:"
^XMB(3.9,43,2,4243,0)="""RTN"",""HLTF"",196,0)"
^XMB(3.9,43,2,4244,0)=" ;  OS (optional), the value of ^%ZOSF(""OS"")"
^XMB(3.9,43,2,4245,0)="""RTN"",""HLTF"",197,0)"
^XMB(3.9,43,2,4246,0)=" ;  FLD01 (optional), the value for the .01 field"
^XMB(3.9,43,2,4247,0)="""RTN"",""HLTF"",198,0)"
^XMB(3.9,43,2,4248,0)=" ;Output - the function returns the ien of the newly created record"
^XMB(3.9,43,2,4249,0)="""RTN"",""HLTF"",199,0)"
^XMB(3.9,43,2,4250,0)=" ;"
^XMB(3.9,43,2,4251,0)="""RTN"",""HLTF"",200,0)"
^XMB(3.9,43,2,4252,0)=" N IEN"
^XMB(3.9,43,2,4253,0)="""RTN"",""HLTF"",201,0)"
^XMB(3.9,43,2,4254,0)=" I '$L($G(OS)) N OS S OS=$G(^%ZOSF(""OS""))"
^XMB(3.9,43,2,4255,0)="""RTN"",""HLTF"",202,0)"
^XMB(3.9,43,2,4256,0)=" ;"
^XMB(3.9,43,2,4257,0)="""RTN"",""HLTF"",203,0)"
^XMB(3.9,43,2,4258,0)=" ; patch HL*1.6*120, protect Else command"
^XMB(3.9,43,2,4259,0)="""RTN"",""HLTF"",204,0)"
^XMB(3.9,43,2,4260,0)=" ; I OS'[""DSM"",OS'[""OpenM"" D"
^XMB(3.9,43,2,4261,0)="""RTN"",""HLTF"",205,0)"
^XMB(3.9,43,2,4262,0)=" I OS'[""DSM"",OS'[""OpenM"" D  I 1"
^XMB(3.9,43,2,4263,0)="""RTN"",""HLTF"",206,0)"
^XMB(3.9,43,2,4264,0)=" .F  L +^HLCS(869.3,1,772):10 S IEN=+$G(^HLCS(869.3,1,772))+1,^HLCS(869.3,1,772)=IEN S:$D(^HL(772,IEN)) IEN=0,^HLCS(869.3,1,772)=($O(^HL(772,"":""),-1)\1) L -^HLCS(869.3,1,772) Q:IEN"
^XMB(3.9,43,2,4265,0)="""RTN"",""HLTF"",207,0)"
^XMB(3.9,43,2,4266,0)=" E  D"
^XMB(3.9,43,2,4267,0)="""RTN"",""HLTF"",208,0)"
^XMB(3.9,43,2,4268,0)=" .F  S IEN=$I(^HLCS(869.3,1,772),1) S:$D(^HL(772,IEN)) IEN=0,^HLCS(869.3,1,772)=($O(^HL(772,"":""),-1)\1) Q:IEN"
^XMB(3.9,43,2,4269,0)="""RTN"",""HLTF"",209,0)"
^XMB(3.9,43,2,4270,0)=" S ^HL(772,IEN,0)=$G(FLD01)_""^"""
^XMB(3.9,43,2,4271,0)="""RTN"",""HLTF"",210,0)"
^XMB(3.9,43,2,4272,0)=" I $L($G(FLD01)) S ^HL(772,""B"",FLD01,IEN)="""""
^XMB(3.9,43,2,4273,0)="""RTN"",""HLTF"",211,0)"
^XMB(3.9,43,2,4274,0)=" Q IEN"
^XMB(3.9,43,2,4275,0)="""RTN"",""HLTF"",212,0)"
^XMB(3.9,43,2,4276,0)=" ;"
^XMB(3.9,43,2,4277,0)="""RTN"",""HLTF"",213,0)"
^XMB(3.9,43,2,4278,0)="STUB773(FLD01,OS) ;"
^XMB(3.9,43,2,4279,0)="""RTN"",""HLTF"",214,0)"
^XMB(3.9,43,2,4280,0)=" ;This function creates a new stub record in file 772. The Stub record may consist of only the 0 node with a value of ""^"". If a value is passed in for the .01 field it will be included in the 0 node and its ""B"" x-ref set."
^XMB(3.9,43,2,4281,0)="""RTN"",""HLTF"",215,0)"
^XMB(3.9,43,2,4282,0)=" ;Inputs:"
^XMB(3.9,43,2,4283,0)="""RTN"",""HLTF"",216,0)"
^XMB(3.9,43,2,4284,0)=" ;  OS (optional), the value of ^%ZOSF(""OS"")"
^XMB(3.9,43,2,4285,0)="""RTN"",""HLTF"",217,0)"
^XMB(3.9,43,2,4286,0)=" ;  FLD01 (optional), the value for the .01 field"
^XMB(3.9,43,2,4287,0)="""RTN"",""HLTF"",218,0)"
^XMB(3.9,43,2,4288,0)=" ;Output - the function returns the ien of the newly created record"
^XMB(3.9,43,2,4289,0)="""RTN"",""HLTF"",219,0)"
^XMB(3.9,43,2,4290,0)=" ;"
^XMB(3.9,43,2,4291,0)="""RTN"",""HLTF"",220,0)"
^XMB(3.9,43,2,4292,0)=" N IEN"
^XMB(3.9,43,2,4293,0)="""RTN"",""HLTF"",221,0)"
^XMB(3.9,43,2,4294,0)=" I '$L($G(OS)) N OS S OS=$G(^%ZOSF(""OS""))"
^XMB(3.9,43,2,4295,0)="""RTN"",""HLTF"",222,0)"
^XMB(3.9,43,2,4296,0)=" ;"
^XMB(3.9,43,2,4297,0)="""RTN"",""HLTF"",223,0)"
^XMB(3.9,43,2,4298,0)=" ; patch HL*1.6*120, protect Else command"
^XMB(3.9,43,2,4299,0)="""RTN"",""HLTF"",224,0)"
^XMB(3.9,43,2,4300,0)=" ; I OS'[""DSM"",OS'[""OpenM"" D"
^XMB(3.9,43,2,4301,0)="""RTN"",""HLTF"",225,0)"
^XMB(3.9,43,2,4302,0)=" I OS'[""DSM"",OS'[""OpenM"" D  I 1"
^XMB(3.9,43,2,4303,0)="""RTN"",""HLTF"",226,0)"
^XMB(3.9,43,2,4304,0)=" .F  L +^HLCS(869.3,1,773):10 S IEN=+$G(^HLCS(869.3,1,773))+1,^HLCS(869.3,1,773)=IEN S:$D(^HLMA(IEN)) IEN=0,^HLCS(869.3,1,773)=($O(^HLMA("":""),-1)\1) L -^HLCS(869.3,1,773) Q:IEN"
^XMB(3.9,43,2,4305,0)="""RTN"",""HLTF"",227,0)"
^XMB(3.9,43,2,4306,0)=" E  D"
^XMB(3.9,43,2,4307,0)="""RTN"",""HLTF"",228,0)"
^XMB(3.9,43,2,4308,0)=" .F  S IEN=$I(^HLCS(869.3,1,773),1) S:$D(^HLMA(IEN)) IEN=0,^HLCS(869.3,1,773)=($O(^HLMA("":""),-1)\1) Q:IEN"
^XMB(3.9,43,2,4309,0)="""RTN"",""HLTF"",229,0)"
^XMB(3.9,43,2,4310,0)=" S ^HLMA(IEN,0)=$G(FLD01)_""^"""
^XMB(3.9,43,2,4311,0)="""RTN"",""HLTF"",230,0)"
^XMB(3.9,43,2,4312,0)=" I $L($G(FLD01)) S ^HLMA(""B"",FLD01,IEN)="""""
^XMB(3.9,43,2,4313,0)="""RTN"",""HLTF"",231,0)"
^XMB(3.9,43,2,4314,0)=" Q IEN"
^XMB(3.9,43,2,4315,0)="""RTN"",""HLTP3"")"
^XMB(3.9,43,2,4316,0)="0^9^B72235579^B58207834"
^XMB(3.9,43,2,4317,0)="""RTN"",""HLTP3"",1,0)"
^XMB(3.9,43,2,4318,0)="HLTP3 ;SFIRMFO/RSD - Transaction Processor for TCP ;03/02/2006  13:29"
^XMB(3.9,43,2,4319,0)="""RTN"",""HLTP3"",2,0)"
^XMB(3.9,43,2,4320,0)=" ;;1.6;HEALTH LEVEL SEVEN;**19,43,57,58,59,66,69,109,115,108,116,117,125,120**;Oct 13, 1995;Build 12"
^XMB(3.9,43,2,4321,0)="""RTN"",""HLTP3"",3,0)"
^XMB(3.9,43,2,4322,0)=" ;"
^XMB(3.9,43,2,4323,0)="""RTN"",""HLTP3"",4,0)"
^XMB(3.9,43,2,4324,0)=" Q"
^XMB(3.9,43,2,4325,0)="""RTN"",""HLTP3"",5,0)"
^XMB(3.9,43,2,4326,0)="NEW(X) ;process new msg. ien in 773^msg. ien in 772"
^XMB(3.9,43,2,4327,0)="""RTN"",""HLTP3"",6,0)"
^XMB(3.9,43,2,4328,0)=" ;HLMTIENS=ien in #773, msg header; HLMTIEN=ien in #772, msg text"
^XMB(3.9,43,2,4329,0)="""RTN"",""HLTP3"",7,0)"
^XMB(3.9,43,2,4330,0)=" ;HLHDRO=original header;  HLHDR=response header"
^XMB(3.9,43,2,4331,0)="""RTN"",""HLTP3"",8,0)"
^XMB(3.9,43,2,4332,0)=" ;set error trap"
^XMB(3.9,43,2,4333,0)="""RTN"",""HLTP3"",9,0)"
^XMB(3.9,43,2,4334,0)=" N $ETRAP,$ESTACK S $ETRAP=""D ERROR^HLTP3"""
^XMB(3.9,43,2,4335,0)="""RTN"",""HLTP3"",10,0)"
^XMB(3.9,43,2,4336,0)=" N HL,HLEID,HLEIDS,HLERR,HLHDR,HLHDRO,HLMTIEN,HLMTIENS,HLJ,HLMSA,HLQUIT,HLNODE,HLNEXT,HLRESLTA,HLDONE1,HLASTRSP"
^XMB(3.9,43,2,4337,0)="""RTN"",""HLTP3"",11,0)"
^XMB(3.9,43,2,4338,0)=" D INIT^HLTP3A"
^XMB(3.9,43,2,4339,0)="""RTN"",""HLTP3"",12,0)"
^XMB(3.9,43,2,4340,0)=" ;error with header, return commit/app reject"
^XMB(3.9,43,2,4341,0)="""RTN"",""HLTP3"",13,0)"
^XMB(3.9,43,2,4342,0)=" I $G(HLRESLT) D  Q"
^XMB(3.9,43,2,4343,0)="""RTN"",""HLTP3"",14,0)"
^XMB(3.9,43,2,4344,0)=" . ;set status & unlock record"
^XMB(3.9,43,2,4345,0)="""RTN"",""HLTP3"",15,0)"
^XMB(3.9,43,2,4346,0)=" . D STATUS^HLTF0(HLMTIENS,4,,,1),EXIT"
^XMB(3.9,43,2,4347,0)="""RTN"",""HLTP3"",16,0)"
^XMB(3.9,43,2,4348,0)=" . ;quit if no commit or app ack"
^XMB(3.9,43,2,4349,0)="""RTN"",""HLTP3"",17,0)"
^XMB(3.9,43,2,4350,0)=" . I $G(HL(""ACAT""))=""NE"",$G(HL(""APAT""))=""NE"" Q"
^XMB(3.9,43,2,4351,0)="""RTN"",""HLTP3"",18,0)"
^XMB(3.9,43,2,4352,0)=" . S X=$S($G(HL(""ACAT""))=""AL"":""CR"",1:""AR"")"
^XMB(3.9,43,2,4353,0)="""RTN"",""HLTP3"",19,0)"
^XMB(3.9,43,2,4354,0)=" . ;HLTCP=ien of acknowledgment msg. from ACK^HLTP4"
^XMB(3.9,43,2,4355,0)="""RTN"",""HLTP3"",20,0)"
^XMB(3.9,43,2,4356,0)=" . D ACK^HLTP4(X,$P(HLRESLT,U,2)) Q:'$G(HLTCP)"
^XMB(3.9,43,2,4357,0)="""RTN"",""HLTP3"",21,0)"
^XMB(3.9,43,2,4358,0)=" . ;write ack back over connection"
^XMB(3.9,43,2,4359,0)="""RTN"",""HLTP3"",22,0)"
^XMB(3.9,43,2,4360,0)=" . S X=$$WRITE^HLCSTCP2(HLTCP)"
^XMB(3.9,43,2,4361,0)="""RTN"",""HLTP3"",23,0)"
^XMB(3.9,43,2,4362,0)=" . ;update counter to sent"
^XMB(3.9,43,2,4363,0)="""RTN"",""HLTP3"",24,0)"
^XMB(3.9,43,2,4364,0)=" . D LLCNT^HLCSTCP(HLDP,4)"
^XMB(3.9,43,2,4365,0)="""RTN"",""HLTP3"",25,0)"
^XMB(3.9,43,2,4366,0)=" . ;update status of ack to complete"
^XMB(3.9,43,2,4367,0)="""RTN"",""HLTP3"",26,0)"
^XMB(3.9,43,2,4368,0)=" . D STATUS^HLTF0(HLTCP,3,,,1)"
^XMB(3.9,43,2,4369,0)="""RTN"",""HLTP3"",27,0)"
^XMB(3.9,43,2,4370,0)=" ;"
^XMB(3.9,43,2,4371,0)="""RTN"",""HLTP3"",28,0)"
^XMB(3.9,43,2,4372,0)=" ;check for duplicate msg., use rec. app and msg. id x-ref"
^XMB(3.9,43,2,4373,0)="""RTN"",""HLTP3"",29,0)"
^XMB(3.9,43,2,4374,0)=" ; patch HL*1.6*120"
^XMB(3.9,43,2,4375,0)="""RTN"",""HLTP3"",30,0)"
^XMB(3.9,43,2,4376,0)=" ; I $L($G(HL(""MID""))),$G(HL(""RAP"")) S X=$O(^HLMA(""AH"",HL(""RAP""),HL(""MID""),0)) D  Q:'$D(HLMTIENS)"
^XMB(3.9,43,2,4377,0)="""RTN"",""HLTP3"",31,0)"
^XMB(3.9,43,2,4378,0)=" I $G(HL(""MID""))]"""",$G(HL(""RAP"")) S X=$O(^HLMA(""AH"",HL(""RAP""),HL(""MID""),0)) D  Q:'$D(HLMTIENS)"
^XMB(3.9,43,2,4379,0)="""RTN"",""HLTP3"",32,0)"
^XMB(3.9,43,2,4380,0)=" . ;HLASTMSG=last ien received during this connection"
^XMB(3.9,43,2,4381,0)="""RTN"",""HLTP3"",33,0)"
^XMB(3.9,43,2,4382,0)=" . ;if no duplicate, save msg. ien and quit"
^XMB(3.9,43,2,4383,0)="""RTN"",""HLTP3"",34,0)"
^XMB(3.9,43,2,4384,0)=" . I X=HLMTIENS!'X S HLASTMSG=HLMTIENS Q"
^XMB(3.9,43,2,4385,0)="""RTN"",""HLTP3"",35,0)"
^XMB(3.9,43,2,4386,0)=" . N MSH,OIENS"
^XMB(3.9,43,2,4387,0)="""RTN"",""HLTP3"",36,0)"
^XMB(3.9,43,2,4388,0)=" . S (OIENS,Y)=X D  S Y=HLMTIENS D"
^XMB(3.9,43,2,4389,0)="""RTN"",""HLTP3"",37,0)"
^XMB(3.9,43,2,4390,0)=" .. ;combine MSH into single string"
^XMB(3.9,43,2,4391,0)="""RTN"",""HLTP3"",38,0)"
^XMB(3.9,43,2,4392,0)=" .. S MSH(Y)="""",I=0 F  S I=$O(^HLMA(Y,""MSH"",I)) Q:'I  S MSH(Y)=MSH(Y)_$G(^(I,0))"
^XMB(3.9,43,2,4393,0)="""RTN"",""HLTP3"",39,0)"
^XMB(3.9,43,2,4394,0)=" .; patch 117 & 125, check if identical"
^XMB(3.9,43,2,4395,0)="""RTN"",""HLTP3"",40,0)"
^XMB(3.9,43,2,4396,0)=" .I MSH(HLMTIENS)'=MSH(OIENS) S HLASTMSG=HLMTIENS Q"
^XMB(3.9,43,2,4397,0)="""RTN"",""HLTP3"",41,0)"
^XMB(3.9,43,2,4398,0)=" .;"
^XMB(3.9,43,2,4399,0)="""RTN"",""HLTP3"",42,0)"
^XMB(3.9,43,2,4400,0)=" . ;msg is duplicate, set status as duplicate"
^XMB(3.9,43,2,4401,0)="""RTN"",""HLTP3"",43,0)"
^XMB(3.9,43,2,4402,0)=" . D STATUS^HLTF0(HLMTIENS,4,109,""Duplicate with ien ""_OIENS,1),EXIT"
^XMB(3.9,43,2,4403,0)="""RTN"",""HLTP3"",44,0)"
^XMB(3.9,43,2,4404,0)=" . ;msg was resent during this connection, ignore it."
^XMB(3.9,43,2,4405,0)="""RTN"",""HLTP3"",45,0)"
^XMB(3.9,43,2,4406,0)=" . I HLASTMSG=HLMTIENS K HLMTIENS Q"
^XMB(3.9,43,2,4407,0)="""RTN"",""HLTP3"",46,0)"
^XMB(3.9,43,2,4408,0)=" . ;find original response and send back"
^XMB(3.9,43,2,4409,0)="""RTN"",""HLTP3"",47,0)"
^XMB(3.9,43,2,4410,0)=" . S HLASTRSP=$O(^HLMA(""AF"",OIENS,OIENS))"
^XMB(3.9,43,2,4411,0)="""RTN"",""HLTP3"",48,0)"
^XMB(3.9,43,2,4412,0)=" ;"
^XMB(3.9,43,2,4413,0)="""RTN"",""HLTP3"",49,0)"
^XMB(3.9,43,2,4414,0)=" ;Quit if this is acknowledgment to acknowledgement message"
^XMB(3.9,43,2,4415,0)="""RTN"",""HLTP3"",50,0)"
^XMB(3.9,43,2,4416,0)=" I $G(HL(""ACK"")) D  Q"
^XMB(3.9,43,2,4417,0)="""RTN"",""HLTP3"",51,0)"
^XMB(3.9,43,2,4418,0)=" . ;Update status of original acknowledgment message to successfully"
^XMB(3.9,43,2,4419,0)="""RTN"",""HLTP3"",52,0)"
^XMB(3.9,43,2,4420,0)=" . D STATUS^HLTF0(HL(""MTIENS""),3,,,1),STATUS^HLTF0(HLMTIENS,3,,,1)"
^XMB(3.9,43,2,4421,0)="""RTN"",""HLTP3"",53,0)"
^XMB(3.9,43,2,4422,0)=" . ;unlock record"
^XMB(3.9,43,2,4423,0)="""RTN"",""HLTP3"",54,0)"
^XMB(3.9,43,2,4424,0)=" . D EXIT"
^XMB(3.9,43,2,4425,0)="""RTN"",""HLTP3"",55,0)"
^XMB(3.9,43,2,4426,0)=" ;"
^XMB(3.9,43,2,4427,0)="""RTN"",""HLTP3"",56,0)"
^XMB(3.9,43,2,4428,0)=" ;enhance ack., send commit, quit if not an ack, msg will be processed by filer"
^XMB(3.9,43,2,4429,0)="""RTN"",""HLTP3"",57,0)"
^XMB(3.9,43,2,4430,0)=" I $G(HL(""ACAT""))=""AL"" D  Q:'$G(HL(""MTIENS""))"
^XMB(3.9,43,2,4431,0)="""RTN"",""HLTP3"",58,0)"
^XMB(3.9,43,2,4432,0)=" . ;msg is a resend, HLASTRSP=ien of original response"
^XMB(3.9,43,2,4433,0)="""RTN"",""HLTP3"",59,0)"
^XMB(3.9,43,2,4434,0)=" .I $G(HLASTRSP) D"
^XMB(3.9,43,2,4435,0)="""RTN"",""HLTP3"",60,0)"
^XMB(3.9,43,2,4436,0)=" ..S HLTCP=HLASTRSP"
^XMB(3.9,43,2,4437,0)="""RTN"",""HLTP3"",61,0)"
^XMB(3.9,43,2,4438,0)=" ..D LLCNT^HLCSTCP(HLDP,3)"
^XMB(3.9,43,2,4439,0)="""RTN"",""HLTP3"",62,0)"
^XMB(3.9,43,2,4440,0)=" . E  D  Q:'$G(HLTCP)"
^XMB(3.9,43,2,4441,0)="""RTN"",""HLTP3"",63,0)"
^XMB(3.9,43,2,4442,0)=" ..D ACK^HLTP4(""CA"") ;**109** LLCNT^HLCSTCP(HLDP,3) called in ACK^HLTP4"
^XMB(3.9,43,2,4443,0)="""RTN"",""HLTP3"",64,0)"
^XMB(3.9,43,2,4444,0)=" . S X=$$WRITE^HLCSTCP2(HLTCP)"
^XMB(3.9,43,2,4445,0)="""RTN"",""HLTP3"",65,0)"
^XMB(3.9,43,2,4446,0)=" . D LLCNT^HLCSTCP(HLDP,4),STATUS^HLTF0(HLTCP,3,,,1):'$G(HLASTRSP)"
^XMB(3.9,43,2,4447,0)="""RTN"",""HLTP3"",66,0)"
^XMB(3.9,43,2,4448,0)=" . S HLTCP="""""
^XMB(3.9,43,2,4449,0)="""RTN"",""HLTP3"",67,0)"
^XMB(3.9,43,2,4450,0)=" . ;if not an ack, set status to awaiting processing **109** and put on in queue"
^XMB(3.9,43,2,4451,0)="""RTN"",""HLTP3"",68,0)"
^XMB(3.9,43,2,4452,0)=" . I '$G(HL(""MTIENS"")),'$G(HLASTRSP) D STATUS^HLTF0(HLMTIENS,9),EXIT,SETINQUE^HLTP31"
^XMB(3.9,43,2,4453,0)="""RTN"",""HLTP3"",69,0)"
^XMB(3.9,43,2,4454,0)=" ;"
^XMB(3.9,43,2,4455,0)="""RTN"",""HLTP3"",70,0)"
^XMB(3.9,43,2,4456,0)=" ;enhance ack., no commit & no app ack"
^XMB(3.9,43,2,4457,0)="""RTN"",""HLTP3"",71,0)"
^XMB(3.9,43,2,4458,0)=" I $G(HL(""ACAT""))=""NE"",$G(HL(""APAT""))=""NE"" D  Q"
^XMB(3.9,43,2,4459,0)="""RTN"",""HLTP3"",72,0)"
^XMB(3.9,43,2,4460,0)=" . ;set status to awaiting processing, **109** and put on in queue"
^XMB(3.9,43,2,4461,0)="""RTN"",""HLTP3"",73,0)"
^XMB(3.9,43,2,4462,0)=" . I '$G(HLASTRSP) D STATUS^HLTF0(HLMTIENS,9),EXIT,SETINQUE^HLTP31"
^XMB(3.9,43,2,4463,0)="""RTN"",""HLTP3"",74,0)"
^XMB(3.9,43,2,4464,0)=" ;"
^XMB(3.9,43,2,4465,0)="""RTN"",""HLTP3"",75,0)"
^XMB(3.9,43,2,4466,0)=" ; patch HL*1.6*120 start"
^XMB(3.9,43,2,4467,0)="""RTN"",""HLTP3"",76,0)"
^XMB(3.9,43,2,4468,0)=" ;resending old response, msg is a resend"
^XMB(3.9,43,2,4469,0)="""RTN"",""HLTP3"",77,0)"
^XMB(3.9,43,2,4470,0)=" ; I $G(HLASTRSP) S HLTCP=HLASTRSP G ACK"
^XMB(3.9,43,2,4471,0)="""RTN"",""HLTP3"",78,0)"
^XMB(3.9,43,2,4472,0)=" ; do not re-send duplicate message when $G(HL(""ACAT""))=""AL"""
^XMB(3.9,43,2,4473,0)="""RTN"",""HLTP3"",79,0)"
^XMB(3.9,43,2,4474,0)=" I $G(HLASTRSP),$G(HL(""ACAT""))'=""AL"" S HLTCP=HLASTRSP G ACK"
^XMB(3.9,43,2,4475,0)="""RTN"",""HLTP3"",80,0)"
^XMB(3.9,43,2,4476,0)=" ; quit if duplicate"
^XMB(3.9,43,2,4477,0)="""RTN"",""HLTP3"",81,0)"
^XMB(3.9,43,2,4478,0)=" Q:$G(HLASTRSP)"
^XMB(3.9,43,2,4479,0)="""RTN"",""HLTP3"",82,0)"
^XMB(3.9,43,2,4480,0)=" ; patch HL*1.6*120 end"
^XMB(3.9,43,2,4481,0)="""RTN"",""HLTP3"",83,0)"
^XMB(3.9,43,2,4482,0)=" ;"
^XMB(3.9,43,2,4483,0)="""RTN"",""HLTP3"",84,0)"
^XMB(3.9,43,2,4484,0)="CONT ;continue processing an enhance ack msg. called from DEFACK"
^XMB(3.9,43,2,4485,0)="""RTN"",""HLTP3"",85,0)"
^XMB(3.9,43,2,4486,0)=" ;Set special HL variables for processing rtn"
^XMB(3.9,43,2,4487,0)="""RTN"",""HLTP3"",86,0)"
^XMB(3.9,43,2,4488,0)=" S HLQUIT=0,HLNODE="""",HLNEXT=""D HLNEXT^HLCSUTL"""
^XMB(3.9,43,2,4489,0)="""RTN"",""HLTP3"",87,0)"
^XMB(3.9,43,2,4490,0)=" ;"
^XMB(3.9,43,2,4491,0)="""RTN"",""HLTP3"",88,0)"
^XMB(3.9,43,2,4492,0)=" ; message is an acknowledgement, HLMSA=ack code^id^text"
^XMB(3.9,43,2,4493,0)="""RTN"",""HLTP3"",89,0)"
^XMB(3.9,43,2,4494,0)=" I ($G(HLMSA)]"""") D  Q"
^XMB(3.9,43,2,4495,0)="""RTN"",""HLTP3"",90,0)"
^XMB(3.9,43,2,4496,0)=" . ;X=1 if ack ok, 0=reject of error"
^XMB(3.9,43,2,4497,0)="""RTN"",""HLTP3"",91,0)"
^XMB(3.9,43,2,4498,0)=" . S X=$E(HLMSA,2)=""A"""
^XMB(3.9,43,2,4499,0)="""RTN"",""HLTP3"",92,0)"
^XMB(3.9,43,2,4500,0)=" . ;Update status of original subscriber message and remove it from the out-going queue"
^XMB(3.9,43,2,4501,0)="""RTN"",""HLTP3"",93,0)"
^XMB(3.9,43,2,4502,0)=" . D STATUS^HLTF0(HL(""MTIENS""),$S(X:3,1:4),"""",$S(X:"""",1:$P(HLMSA,HL(""FS""),3)),1)"
^XMB(3.9,43,2,4503,0)="""RTN"",""HLTP3"",94,0)"
^XMB(3.9,43,2,4504,0)=" . D DEQUE^HLCSREP($P($G(^HLMA(HL(""MTIENS""),0)),""^"",7),""O"",HL(""MTIENS""))"
^XMB(3.9,43,2,4505,0)="""RTN"",""HLTP3"",95,0)"
^XMB(3.9,43,2,4506,0)=" . D"
^XMB(3.9,43,2,4507,0)="""RTN"",""HLTP3"",96,0)"
^XMB(3.9,43,2,4508,0)=" .. N HLTCP ;New variable to update status in file #772."
^XMB(3.9,43,2,4509,0)="""RTN"",""HLTP3"",97,0)"
^XMB(3.9,43,2,4510,0)=" ..;"
^XMB(3.9,43,2,4511,0)="""RTN"",""HLTP3"",98,0)"
^XMB(3.9,43,2,4512,0)=" ..;**108**"
^XMB(3.9,43,2,4513,0)="""RTN"",""HLTP3"",99,0)"
^XMB(3.9,43,2,4514,0)=" .. N TEMP"
^XMB(3.9,43,2,4515,0)="""RTN"",""HLTP3"",100,0)"
^XMB(3.9,43,2,4516,0)=" .. S TEMP=HLMTIENS"
^XMB(3.9,43,2,4517,0)="""RTN"",""HLTP3"",101,0)"
^XMB(3.9,43,2,4518,0)=" .. N HLMTIENS"
^XMB(3.9,43,2,4519,0)="""RTN"",""HLTP3"",102,0)"
^XMB(3.9,43,2,4520,0)=" .. S HLMTIENS=TEMP"
^XMB(3.9,43,2,4521,0)="""RTN"",""HLTP3"",103,0)"
^XMB(3.9,43,2,4522,0)=" ..;**END 108**"
^XMB(3.9,43,2,4523,0)="""RTN"",""HLTP3"",104,0)"
^XMB(3.9,43,2,4524,0)=" ..;"
^XMB(3.9,43,2,4525,0)="""RTN"",""HLTP3"",105,0)"
^XMB(3.9,43,2,4526,0)=" .. D PROCACK^HLTP2(HLMTIEN,HL(""EID""),.HLRESLT,.HL)"
^XMB(3.9,43,2,4527,0)="""RTN"",""HLTP3"",106,0)"
^XMB(3.9,43,2,4528,0)=" . ;update status of incoming to complete & unlock"
^XMB(3.9,43,2,4529,0)="""RTN"",""HLTP3"",107,0)"
^XMB(3.9,43,2,4530,0)=" . D STATUS^HLTF0(HLMTIENS,$S($G(HLRESLT):4,1:3),$S($G(HLRESLT):+$G(HLRESLT),1:""""),$S($G(HLRESLT):$P(HLRESLT,U,2),1:""""),1),EXIT"
^XMB(3.9,43,2,4531,0)="""RTN"",""HLTP3"",108,0)"
^XMB(3.9,43,2,4532,0)=" ;"
^XMB(3.9,43,2,4533,0)="""RTN"",""HLTP3"",109,0)"
^XMB(3.9,43,2,4534,0)=" ;get entry action, exit action and processing routine"
^XMB(3.9,43,2,4535,0)="""RTN"",""HLTP3"",110,0)"
^XMB(3.9,43,2,4536,0)=" K HLHDR,HLLD0,HLLD1,HLMSA"
^XMB(3.9,43,2,4537,0)="""RTN"",""HLTP3"",111,0)"
^XMB(3.9,43,2,4538,0)=" I HL(""EIDS"")="""",$G(HLEIDS)]"""" S HL(""EIDS"")=HLEIDS ;**CIRN**"
^XMB(3.9,43,2,4539,0)="""RTN"",""HLTP3"",112,0)"
^XMB(3.9,43,2,4540,0)=" D EVENT^HLUTIL1(HL(""EIDS""),""15,20,771"",.HLN)"
^XMB(3.9,43,2,4541,0)="""RTN"",""HLTP3"",113,0)"
^XMB(3.9,43,2,4542,0)=" S HLENROU=$G(HLN(20)),HLEXROU=$G(HLN(15)),HLPROU=$G(HLN(771))"
^XMB(3.9,43,2,4543,0)="""RTN"",""HLTP3"",114,0)"
^XMB(3.9,43,2,4544,0)=" ;quit if no processing routine,update status and quit"
^XMB(3.9,43,2,4545,0)="""RTN"",""HLTP3"",115,0)"
^XMB(3.9,43,2,4546,0)=" I HLPROU']"""" S HLRESLT=""10^""_$G(^HL(771.7,10,0)) D STATUS^HLTF0(HLMTIENS,3,,,1),EXIT Q"
^XMB(3.9,43,2,4547,0)="""RTN"",""HLTP3"",116,0)"
^XMB(3.9,43,2,4548,0)=" ;HLORNOD=subscriber protocol for Fileman auditing, ien;global ref"
^XMB(3.9,43,2,4549,0)="""RTN"",""HLTP3"",117,0)"
^XMB(3.9,43,2,4550,0)=" N HLORNODD S HLORNOD=HL(""EIDS"")_"";ORD(101,"""
^XMB(3.9,43,2,4551,0)="""RTN"",""HLTP3"",118,0)"
^XMB(3.9,43,2,4552,0)=" ;Execute entry action of client protocol"
^XMB(3.9,43,2,4553,0)="""RTN"",""HLTP3"",119,0)"
^XMB(3.9,43,2,4554,0)=" X:HLENROU]"""" HLENROU K HLENROU,HLDONE1"
^XMB(3.9,43,2,4555,0)="""RTN"",""HLTP3"",120,0)"
^XMB(3.9,43,2,4556,0)=" ;"
^XMB(3.9,43,2,4557,0)="""RTN"",""HLTP3"",121,0)"
^XMB(3.9,43,2,4558,0)=" ;Execute processing routine"
^XMB(3.9,43,2,4559,0)="""RTN"",""HLTP3"",122,0)"
^XMB(3.9,43,2,4560,0)=" X HLPROU S HLRESLT=0 S:($D(HLERR)) HLRESLT=""9^""_HLERR"
^XMB(3.9,43,2,4561,0)="""RTN"",""HLTP3"",123,0)"
^XMB(3.9,43,2,4562,0)=" ;update status of incoming to complete & unlock"
^XMB(3.9,43,2,4563,0)="""RTN"",""HLTP3"",124,0)"
^XMB(3.9,43,2,4564,0)=" D STATUS^HLTF0(HLMTIENS,$S(HLRESLT:4,1:3),$S(HLRESLT:+HLRESLT,1:""""),$S(HLRESLT:$P(HLRESLT,U,2),1:""""),1,$S($G(HLERR(""SKIP_EVENT""))=1:1,1:0)),EXIT"
^XMB(3.9,43,2,4565,0)="""RTN"",""HLTP3"",125,0)"
^XMB(3.9,43,2,4566,0)=" ;HLTCPO=link open, HLTCP=ien of acknowledgment msg. from GENACK"
^XMB(3.9,43,2,4567,0)="""RTN"",""HLTP3"",126,0)"
^XMB(3.9,43,2,4568,0)="ACK I $G(HLTCPO),$G(HLTCP) D  Q"
^XMB(3.9,43,2,4569,0)="""RTN"",""HLTP3"",127,0)"
^XMB(3.9,43,2,4570,0)=" . D LLCNT^HLCSTCP(HLDP,3)"
^XMB(3.9,43,2,4571,0)="""RTN"",""HLTP3"",128,0)"
^XMB(3.9,43,2,4572,0)=" . ;write ack back over open tcp link"
^XMB(3.9,43,2,4573,0)="""RTN"",""HLTP3"",129,0)"
^XMB(3.9,43,2,4574,0)=" . S X=$$WRITE^HLCSTCP2(HLTCP)"
^XMB(3.9,43,2,4575,0)="""RTN"",""HLTP3"",130,0)"
^XMB(3.9,43,2,4576,0)=" . ;update status of ack to complete"
^XMB(3.9,43,2,4577,0)="""RTN"",""HLTP3"",131,0)"
^XMB(3.9,43,2,4578,0)=" . D:'$G(HLASTRSP) STATUS^HLTF0(HLTCP,3,,,1)"
^XMB(3.9,43,2,4579,0)="""RTN"",""HLTP3"",132,0)"
^XMB(3.9,43,2,4580,0)=" . D LLCNT^HLCSTCP(HLDP,4)"
^XMB(3.9,43,2,4581,0)="""RTN"",""HLTP3"",133,0)"
^XMB(3.9,43,2,4582,0)=" Q"
^XMB(3.9,43,2,4583,0)="""RTN"",""HLTP3"",134,0)"
^XMB(3.9,43,2,4584,0)=" ;"
^XMB(3.9,43,2,4585,0)="""RTN"",""HLTP3"",135,0)"
^XMB(3.9,43,2,4586,0)="DEFACK(HLDP,X) ;process the deferred application ack, called from HLCSIN"
^XMB(3.9,43,2,4587,0)="""RTN"",""HLTP3"",136,0)"
^XMB(3.9,43,2,4588,0)=" ;HLDP=logical link, X=ien in file 773"
^XMB(3.9,43,2,4589,0)="""RTN"",""HLTP3"",137,0)"
^XMB(3.9,43,2,4590,0)=" ;"
^XMB(3.9,43,2,4591,0)="""RTN"",""HLTP3"",138,0)"
^XMB(3.9,43,2,4592,0)=" ; patch HL*1.6*120 start"
^XMB(3.9,43,2,4593,0)="""RTN"",""HLTP3"",139,0)"
^XMB(3.9,43,2,4594,0)=" ; clean variables except Kernel related variables"
^XMB(3.9,43,2,4595,0)="""RTN"",""HLTP3"",140,0)"
^XMB(3.9,43,2,4596,0)=" D"
^XMB(3.9,43,2,4597,0)="""RTN"",""HLTP3"",141,0)"
^XMB(3.9,43,2,4598,0)=" . ; protect variables defined in STARTIN^HLCSIN"
^XMB(3.9,43,2,4599,0)="""RTN"",""HLTP3"",142,0)"
^XMB(3.9,43,2,4600,0)=" . N HLFLG,HLEXIT,HLPTRFLR"
^XMB(3.9,43,2,4601,0)="""RTN"",""HLTP3"",143,0)"
^XMB(3.9,43,2,4602,0)=" . ; protect variables defined in DEFACK^HLCSIN"
^XMB(3.9,43,2,4603,0)="""RTN"",""HLTP3"",144,0)"
^XMB(3.9,43,2,4604,0)=" . N HLXX,HLD0,HLPCT"
^XMB(3.9,43,2,4605,0)="""RTN"",""HLTP3"",145,0)"
^XMB(3.9,43,2,4606,0)=" . ; protect input parameters of this sub-routine"
^XMB(3.9,43,2,4607,0)="""RTN"",""HLTP3"",146,0)"
^XMB(3.9,43,2,4608,0)=" . N HLDP,X"
^XMB(3.9,43,2,4609,0)="""RTN"",""HLTP3"",147,0)"
^XMB(3.9,43,2,4610,0)=" . D KILL^XUSCLEAN"
^XMB(3.9,43,2,4611,0)="""RTN"",""HLTP3"",148,0)"
^XMB(3.9,43,2,4612,0)=" ; patch HL*1.6*120 end"
^XMB(3.9,43,2,4613,0)="""RTN"",""HLTP3"",149,0)"
^XMB(3.9,43,2,4614,0)=" ;"
^XMB(3.9,43,2,4615,0)="""RTN"",""HLTP3"",150,0)"
^XMB(3.9,43,2,4616,0)=" ;set error trap"
^XMB(3.9,43,2,4617,0)="""RTN"",""HLTP3"",151,0)"
^XMB(3.9,43,2,4618,0)=" N $ETRAP,$ESTACK S $ETRAP=""D ERROR^HLTP3"""
^XMB(3.9,43,2,4619,0)="""RTN"",""HLTP3"",152,0)"
^XMB(3.9,43,2,4620,0)=" N HLERR     ;patch HL*1.6*109"
^XMB(3.9,43,2,4621,0)="""RTN"",""HLTP3"",153,0)"
^XMB(3.9,43,2,4622,0)=" Q:'$G(HLDP)!'$G(X)  Q:'$G(^HLMA(X,0))"
^XMB(3.9,43,2,4623,0)="""RTN"",""HLTP3"",154,0)"
^XMB(3.9,43,2,4624,0)=" ;**109 START**"
^XMB(3.9,43,2,4625,0)="""RTN"",""HLTP3"",155,0)"
^XMB(3.9,43,2,4626,0)=" Q:'$D(^HLMA(""AC"",""I"",HLDP,X))"
^XMB(3.9,43,2,4627,0)="""RTN"",""HLTP3"",156,0)"
^XMB(3.9,43,2,4628,0)=" ;**109 END**"
^XMB(3.9,43,2,4629,0)="""RTN"",""HLTP3"",157,0)"
^XMB(3.9,43,2,4630,0)=" ;"
^XMB(3.9,43,2,4631,0)="""RTN"",""HLTP3"",158,0)"
^XMB(3.9,43,2,4632,0)=" N HL,HLA,HLD0,HLEID,HLEIDS,HLHDR,HLHDRO,HLMTIEN,HLMTIENS,HLJ,HLMSA,HLN,HLQUIT,HLNODE,HLNEXT,HLRESLT,HLRESLTA,HLTCP,HLXX,Z,HLDONE1"
^XMB(3.9,43,2,4633,0)="""RTN"",""HLTP3"",159,0)"
^XMB(3.9,43,2,4634,0)=" ;setup variables"
^XMB(3.9,43,2,4635,0)="""RTN"",""HLTP3"",160,0)"
^XMB(3.9,43,2,4636,0)=" S HLMTIENS=X,X=^HLMA(HLMTIENS,0),HLMTIEN=+$P(X,U),HL(""MID"")=$P(X,U,2),HL(""MTIENS"")=$P(X,U,10),HL(""LL"")=$P(X,U,7),HLTCP="""",HL(""Q"")="""""""""""""
^XMB(3.9,43,2,4637,0)="""RTN"",""HLTP3"",161,0)"
^XMB(3.9,43,2,4638,0)=" S HL(""EIDS"")=$P(X,U,8),HL(""SAP"")=$P(X,U,11),HL(""RAP"")=$P(X,U,12),HL(""MTP"")=$P(X,U,13),HL(""ETP"")=$P(X,U,14)"
^XMB(3.9,43,2,4639,0)="""RTN"",""HLTP3"",162,0)"
^XMB(3.9,43,2,4640,0)=" S:$P(X,U,15) HL(""MTP_ETP"")=$P(X,U,15)"
^XMB(3.9,43,2,4641,0)="""RTN"",""HLTP3"",163,0)"
^XMB(3.9,43,2,4642,0)=" S:HL(""SAP"") HL(""SAN"")=$P($G(^HL(771,HL(""SAP""),0)),U) S:HL(""RAP"") HL(""RAN"")=$P($G(^HL(771,HL(""RAP""),0)),U)"
^XMB(3.9,43,2,4643,0)="""RTN"",""HLTP3"",164,0)"
^XMB(3.9,43,2,4644,0)=" S:HL(""MTP"") HL(""MTN"")=$P($G(^HL(771.2,HL(""MTP""),0)),U) S:HL(""ETP"") HL(""ETN"")=$P($G(^HL(779.001,HL(""ETP""),0)),U)"
^XMB(3.9,43,2,4645,0)="""RTN"",""HLTP3"",165,0)"
^XMB(3.9,43,2,4646,0)=" S:$G(HL(""MTP_ETP"")) HL(""MTN_ETN"")=$P($G(^HL(779.005,HL(""MTP_ETP""),0)),U)"
^XMB(3.9,43,2,4647,0)="""RTN"",""HLTP3"",166,0)"
^XMB(3.9,43,2,4648,0)=" S HL(""EID"")=$P($G(^HL(772,HLMTIEN,0)),U,10)"
^XMB(3.9,43,2,4649,0)="""RTN"",""HLTP3"",167,0)"
^XMB(3.9,43,2,4650,0)=" M HLHDRO=^HLMA(HLMTIENS,""MSH"")"
^XMB(3.9,43,2,4651,0)="""RTN"",""HLTP3"",168,0)"
^XMB(3.9,43,2,4652,0)=" ; if no header quit"
^XMB(3.9,43,2,4653,0)="""RTN"",""HLTP3"",169,0)"
^XMB(3.9,43,2,4654,0)=" ;**109**"
^XMB(3.9,43,2,4655,0)="""RTN"",""HLTP3"",170,0)"
^XMB(3.9,43,2,4656,0)=" ;I '$O(HLHDRO(0)) L -^HLMA(HLMTIENS) Q"
^XMB(3.9,43,2,4657,0)="""RTN"",""HLTP3"",171,0)"
^XMB(3.9,43,2,4658,0)=" Q:'$O(HLHDRO(0))"
^XMB(3.9,43,2,4659,0)="""RTN"",""HLTP3"",172,0)"
^XMB(3.9,43,2,4660,0)=" ;"
^XMB(3.9,43,2,4661,0)="""RTN"",""HLTP3"",173,0)"
^XMB(3.9,43,2,4662,0)=" S HL(""FS"")=$E(HLHDRO(1,0),4),HL(""ECH"")=$$P^HLTPCK2(.HLHDRO,2),HL(""SFN"")=$$P^HLTPCK2(.HLHDRO,4),HL(""RFN"")=$$P^HLTPCK2(.HLHDRO,6),HL(""DTM"")=$$P^HLTPCK2(.HLHDRO,7)"
^XMB(3.9,43,2,4663,0)="""RTN"",""HLTP3"",174,0)"
^XMB(3.9,43,2,4664,0)=" ;"
^XMB(3.9,43,2,4665,0)="""RTN"",""HLTP3"",175,0)"
^XMB(3.9,43,2,4666,0)=" ; patch HL*1.6*109 start"
^XMB(3.9,43,2,4667,0)="""RTN"",""HLTP3"",176,0)"
^XMB(3.9,43,2,4668,0)=" ; quit if ien of #772 is not defined"
^XMB(3.9,43,2,4669,0)="""RTN"",""HLTP3"",177,0)"
^XMB(3.9,43,2,4670,0)=" Q:'HLMTIEN"
^XMB(3.9,43,2,4671,0)="""RTN"",""HLTP3"",178,0)"
^XMB(3.9,43,2,4672,0)=" ; quit if field separator is not defined"
^XMB(3.9,43,2,4673,0)="""RTN"",""HLTP3"",179,0)"
^XMB(3.9,43,2,4674,0)=" Q:HL(""FS"")="""""
^XMB(3.9,43,2,4675,0)="""RTN"",""HLTP3"",180,0)"
^XMB(3.9,43,2,4676,0)=" ; patch HL*1.6*109 end"
^XMB(3.9,43,2,4677,0)="""RTN"",""HLTP3"",181,0)"
^XMB(3.9,43,2,4678,0)=" ;"
^XMB(3.9,43,2,4679,0)="""RTN"",""HLTP3"",182,0)"
^XMB(3.9,43,2,4680,0)=" S X=$$P^HLTPCK2(.HLHDRO,1)"
^XMB(3.9,43,2,4681,0)="""RTN"",""HLTP3"",183,0)"
^XMB(3.9,43,2,4682,0)=" ;"
^XMB(3.9,43,2,4683,0)="""RTN"",""HLTP3"",184,0)"
^XMB(3.9,43,2,4684,0)=" ; patch HL*1.6*120 start"
^XMB(3.9,43,2,4685,0)="""RTN"",""HLTP3"",185,0)"
^XMB(3.9,43,2,4686,0)=" I X=""MSH"" D"
^XMB(3.9,43,2,4687,0)="""RTN"",""HLTP3"",186,0)"
^XMB(3.9,43,2,4688,0)=" . S HL(""PID"")=$$P^HLTPCK2(.HLHDRO,11),HL(""VER"")=$$P^HLTPCK2(.HLHDRO,12),HL(""APAT"")=$$P^HLTPCK2(.HLHDRO,16),HL(""CC"")=$$P^HLTPCK2(.HLHDRO,17)"
^XMB(3.9,43,2,4689,0)="""RTN"",""HLTP3"",187,0)"
^XMB(3.9,43,2,4690,0)=" . ;"
^XMB(3.9,43,2,4691,0)="""RTN"",""HLTP3"",188,0)"
^XMB(3.9,43,2,4692,0)=" . ; 2nd component is Processing mode"
^XMB(3.9,43,2,4693,0)="""RTN"",""HLTP3"",189,0)"
^XMB(3.9,43,2,4694,0)=" . S HL(""PMOD"")=$P(HL(""PID""),$E(HL(""ECH""),1),2)"
^XMB(3.9,43,2,4695,0)="""RTN"",""HLTP3"",190,0)"
^XMB(3.9,43,2,4696,0)=" . ; first component is Processing id"
^XMB(3.9,43,2,4697,0)="""RTN"",""HLTP3"",191,0)"
^XMB(3.9,43,2,4698,0)=" . S HL(""PID"")=$P(HL(""PID""),$E(HL(""ECH""),1))"
^XMB(3.9,43,2,4699,0)="""RTN"",""HLTP3"",192,0)"
^XMB(3.9,43,2,4700,0)=" ;"
^XMB(3.9,43,2,4701,0)="""RTN"",""HLTP3"",193,0)"
^XMB(3.9,43,2,4702,0)=" I X'=""MSH"" D"
^XMB(3.9,43,2,4703,0)="""RTN"",""HLTP3"",194,0)"
^XMB(3.9,43,2,4704,0)=" . S X=$$P^HLTPCK2(.HLHDRO,9),Z=$E(HL(""ECH"")),HL(""PID"")=$P(X,Z,2),HL(""VER"")=$P(X,Z,4)"
^XMB(3.9,43,2,4705,0)="""RTN"",""HLTP3"",195,0)"
^XMB(3.9,43,2,4706,0)=" . ;"
^XMB(3.9,43,2,4707,0)="""RTN"",""HLTP3"",196,0)"
^XMB(3.9,43,2,4708,0)=" . ; original implementation incorrectly treats repetition separator as"
^XMB(3.9,43,2,4709,0)="""RTN"",""HLTP3"",197,0)"
^XMB(3.9,43,2,4710,0)=" . ; subcomponent separator"
^XMB(3.9,43,2,4711,0)="""RTN"",""HLTP3"",198,0)"
^XMB(3.9,43,2,4712,0)=" . I X[$E(HL(""ECH""),2) S HL(""SUB-COMPONENT"")=$E(HL(""ECH""),2)"
^XMB(3.9,43,2,4713,0)="""RTN"",""HLTP3"",199,0)"
^XMB(3.9,43,2,4714,0)=" . ; if subcomponent separator is correctly applied"
^XMB(3.9,43,2,4715,0)="""RTN"",""HLTP3"",200,0)"
^XMB(3.9,43,2,4716,0)=" . I X[$E(HL(""ECH""),4) S HL(""SUB-COMPONENT"")=$E(HL(""ECH""),4)"
^XMB(3.9,43,2,4717,0)="""RTN"",""HLTP3"",201,0)"
^XMB(3.9,43,2,4718,0)=" . ;"
^XMB(3.9,43,2,4719,0)="""RTN"",""HLTP3"",202,0)"
^XMB(3.9,43,2,4720,0)=" . I $D(HL(""SUB-COMPONENT"")),HL(""PID"")[HL(""SUB-COMPONENT"") D"
^XMB(3.9,43,2,4721,0)="""RTN"",""HLTP3"",203,0)"
^XMB(3.9,43,2,4722,0)=" .. ; 2nd sub-component is Processing mode"
^XMB(3.9,43,2,4723,0)="""RTN"",""HLTP3"",204,0)"
^XMB(3.9,43,2,4724,0)=" .. S HL(""PMOD"")=$P(HL(""PID""),HL(""SUB-COMPONENT""),2)"
^XMB(3.9,43,2,4725,0)="""RTN"",""HLTP3"",205,0)"
^XMB(3.9,43,2,4726,0)=" .. ; first sub-component is Processing id"
^XMB(3.9,43,2,4727,0)="""RTN"",""HLTP3"",206,0)"
^XMB(3.9,43,2,4728,0)=" .. S HL(""PID"")=$P(HL(""PID""),HL(""SUB-COMPONENT""))"
^XMB(3.9,43,2,4729,0)="""RTN"",""HLTP3"",207,0)"
^XMB(3.9,43,2,4730,0)=" . ; patch HL*1.6*120 end"
^XMB(3.9,43,2,4731,0)="""RTN"",""HLTP3"",208,0)"
^XMB(3.9,43,2,4732,0)=" . ;"
^XMB(3.9,43,2,4733,0)="""RTN"",""HLTP3"",209,0)"
^XMB(3.9,43,2,4734,0)=" . Q:$$P^HLTPCK2(.HLHDRO,10)="""""
^XMB(3.9,43,2,4735,0)="""RTN"",""HLTP3"",210,0)"
^XMB(3.9,43,2,4736,0)=" . ;HLMSA=ack code^id^text"
^XMB(3.9,43,2,4737,0)="""RTN"",""HLTP3"",211,0)"
^XMB(3.9,43,2,4738,0)=" . S HLMSA=$P($$P^HLTPCK2(.HLHDRO,10),$E(HL(""ECH"")),1),$P(HLMSA,HL(""FS""),2)=$$P^HLTPCK2(.HLHDRO,12),$P(HLMSA,HL(""FS""),3)=$P($$P^HLTPCK2(.HLHDRO,10),$E(HL(""ECH"")),2),HL(""MSAID"")=$P(HLMSA,HL(""FS""),2)"
^XMB(3.9,43,2,4739,0)="""RTN"",""HLTP3"",212,0)"
^XMB(3.9,43,2,4740,0)=" ;"
^XMB(3.9,43,2,4741,0)="""RTN"",""HLTP3"",213,0)"
^XMB(3.9,43,2,4742,0)=" ; HL*1.6*108"
^XMB(3.9,43,2,4743,0)="""RTN"",""HLTP3"",214,0)"
^XMB(3.9,43,2,4744,0)=" ; quit if this is a commit ack"
^XMB(3.9,43,2,4745,0)="""RTN"",""HLTP3"",215,0)"
^XMB(3.9,43,2,4746,0)=" I $P($G(^HL(772,HLMTIEN,""IN"",1,0)),HL(""FS""),1)=""MSA"",$E($P($G(^HL(772,HLMTIEN,""IN"",1,0)),HL(""FS""),2))=""C"" Q"
^XMB(3.9,43,2,4747,0)="""RTN"",""HLTP3"",216,0)"
^XMB(3.9,43,2,4748,0)=" ; ** "
^XMB(3.9,43,2,4749,0)="""RTN"",""HLTP3"",217,0)"
^XMB(3.9,43,2,4750,0)=" ;"
^XMB(3.9,43,2,4751,0)="""RTN"",""HLTP3"",218,0)"
^XMB(3.9,43,2,4752,0)=" ;**  HL*1.6*117 **"
^XMB(3.9,43,2,4753,0)="""RTN"",""HLTP3"",219,0)"
^XMB(3.9,43,2,4754,0)=" K HLL(""SET FOR APP ACK""),HLL(""LINKS"")"
^XMB(3.9,43,2,4755,0)="""RTN"",""HLTP3"",220,0)"
^XMB(3.9,43,2,4756,0)=" ;** END HL*1.6*117 **"
^XMB(3.9,43,2,4757,0)="""RTN"",""HLTP3"",221,0)"
^XMB(3.9,43,2,4758,0)=" ;"
^XMB(3.9,43,2,4759,0)="""RTN"",""HLTP3"",222,0)"
^XMB(3.9,43,2,4760,0)=" D CONT"
^XMB(3.9,43,2,4761,0)="""RTN"",""HLTP3"",223,0)"
^XMB(3.9,43,2,4762,0)=" Q"
^XMB(3.9,43,2,4763,0)="""RTN"",""HLTP3"",224,0)"
^XMB(3.9,43,2,4764,0)=" ;"
^XMB(3.9,43,2,4765,0)="""RTN"",""HLTP3"",225,0)"
^XMB(3.9,43,2,4766,0)="MSA(Y) ;Y=ien in 772, returns MSA segment"
^XMB(3.9,43,2,4767,0)="""RTN"",""HLTP3"",226,0)"
^XMB(3.9,43,2,4768,0)=" ;ack code^msg being ack id^text"
^XMB(3.9,43,2,4769,0)="""RTN"",""HLTP3"",227,0)"
^XMB(3.9,43,2,4770,0)=" N X"
^XMB(3.9,43,2,4771,0)="""RTN"",""HLTP3"",228,0)"
^XMB(3.9,43,2,4772,0)=" S X=$G(^HL(772,Y,""IN"",1,0)),X=$S($E(X,1,3)=""MSA"":$E(X,5,999),1:"""")"
^XMB(3.9,43,2,4773,0)="""RTN"",""HLTP3"",229,0)"
^XMB(3.9,43,2,4774,0)=" Q X"
^XMB(3.9,43,2,4775,0)="""RTN"",""HLTP3"",230,0)"
^XMB(3.9,43,2,4776,0)=" ;"
^XMB(3.9,43,2,4777,0)="""RTN"",""HLTP3"",231,0)"
^XMB(3.9,43,2,4778,0)="ERROR ;error trap"
^XMB(3.9,43,2,4779,0)="""RTN"",""HLTP3"",232,0)"
^XMB(3.9,43,2,4780,0)=" D ^%ZTER"
^XMB(3.9,43,2,4781,0)="""RTN"",""HLTP3"",233,0)"
^XMB(3.9,43,2,4782,0)=" I $G(HLMTIENS),$D(^HLMA(HLMTIENS,0)) D STATUS^HLTF0(HLMTIENS,4,,,1),EXIT"
^XMB(3.9,43,2,4783,0)="""RTN"",""HLTP3"",234,0)"
^XMB(3.9,43,2,4784,0)=" ;*109* release all locks created by inbound filer"
^XMB(3.9,43,2,4785,0)="""RTN"",""HLTP3"",235,0)"
^XMB(3.9,43,2,4786,0)=" L -^HLMA(""AC"",""I"",+$G(HLXX))"
^XMB(3.9,43,2,4787,0)="""RTN"",""HLTP3"",236,0)"
^XMB(3.9,43,2,4788,0)=" G UNWIND^%ZTER"
^XMB(3.9,43,2,4789,0)="""RTN"",""HLTP3"",237,0)"
^XMB(3.9,43,2,4790,0)=" ;"
^XMB(3.9,43,2,4791,0)="""RTN"",""HLTP3"",238,0)"
^XMB(3.9,43,2,4792,0)=" ;"
^XMB(3.9,43,2,4793,0)="""RTN"",""HLTP3"",239,0)"
^XMB(3.9,43,2,4794,0)="EXIT ;unlock"
^XMB(3.9,43,2,4795,0)="""RTN"",""HLTP3"",240,0)"
^XMB(3.9,43,2,4796,0)=" I $G(HLMTIENS) L -^HLMA(HLMTIENS)"
^XMB(3.9,43,2,4797,0)="""RTN"",""HLTP3"",241,0)"
^XMB(3.9,43,2,4798,0)=" Q"
^XMB(3.9,43,2,4799,0)="""RTN"",""HLTP3"",242,0)"
^XMB(3.9,43,2,4800,0)=" ;"
^XMB(3.9,43,2,4801,0)="""RTN"",""HLTP3"",243,0)"
^XMB(3.9,43,2,4802,0)="ONAC(IEN773) ;"
^XMB(3.9,43,2,4803,0)="""RTN"",""HLTP3"",244,0)"
^XMB(3.9,43,2,4804,0)=" ;Returns 1 if the message is on the ""AC"",""I"" xref"
^XMB(3.9,43,2,4805,0)="""RTN"",""HLTP3"",245,0)"
^XMB(3.9,43,2,4806,0)=" ;Returns 0 otherwise"
^XMB(3.9,43,2,4807,0)="""RTN"",""HLTP3"",246,0)"
^XMB(3.9,43,2,4808,0)=" ;"
^XMB(3.9,43,2,4809,0)="""RTN"",""HLTP3"",247,0)"
^XMB(3.9,43,2,4810,0)=" N LINK"
^XMB(3.9,43,2,4811,0)="""RTN"",""HLTP3"",248,0)"
^XMB(3.9,43,2,4812,0)=" S LINK=$P($G(^HLMA(IEN773,0)),""^"",17)"
^XMB(3.9,43,2,4813,0)="""RTN"",""HLTP3"",249,0)"
^XMB(3.9,43,2,4814,0)=" Q:'LINK 0"
^XMB(3.9,43,2,4815,0)="""RTN"",""HLTP3"",250,0)"
^XMB(3.9,43,2,4816,0)=" Q $D(^HLMA(""AC"",""I"",LINK,IEN773))"
^XMB(3.9,43,2,4817,0)="""RTN"",""HLTP31"")"
^XMB(3.9,43,2,4818,0)="0^10^B13120490^B7900636"
^XMB(3.9,43,2,4819,0)="""RTN"",""HLTP31"",1,0)"
^XMB(3.9,43,2,4820,0)="HLTP31 ;SFIRMFO/RSD - Cont. Transaction Processor for TCP ;01/26/2006  15:50"
^XMB(3.9,43,2,4821,0)="""RTN"",""HLTP31"",2,0)"
^XMB(3.9,43,2,4822,0)=" ;;1.6;HEALTH LEVEL SEVEN;**57,58,66,109,120**;Oct 13, 1995;Build 12"
^XMB(3.9,43,2,4823,0)="""RTN"",""HLTP31"",3,0)"
^XMB(3.9,43,2,4824,0)=" ;"
^XMB(3.9,43,2,4825,0)="""RTN"",""HLTP31"",4,0)"
^XMB(3.9,43,2,4826,0)=" Q"
^XMB(3.9,43,2,4827,0)="""RTN"",""HLTP31"",5,0)"
^XMB(3.9,43,2,4828,0)="RSP(X,HLN) ;process response msg. X=ien in 773^msg. ien in 772"
^XMB(3.9,43,2,4829,0)="""RTN"",""HLTP31"",6,0)"
^XMB(3.9,43,2,4830,0)=" ;HLN=HL array for original message"
^XMB(3.9,43,2,4831,0)="""RTN"",""HLTP31"",7,0)"
^XMB(3.9,43,2,4832,0)=" ;HLMTIEN=ien in 772,  HLMTIENS=ien in 773"
^XMB(3.9,43,2,4833,0)="""RTN"",""HLTP31"",8,0)"
^XMB(3.9,43,2,4834,0)=" ;returns - 0=resend msg, 1=commit ack, 3=app ack success, 4=error"
^XMB(3.9,43,2,4835,0)="""RTN"",""HLTP31"",9,0)"
^XMB(3.9,43,2,4836,0)=" ;set error trap"
^XMB(3.9,43,2,4837,0)="""RTN"",""HLTP31"",10,0)"
^XMB(3.9,43,2,4838,0)=" N $ETRAP,$ESTACK S $ETRAP=""D ERROR^HLTP3"""
^XMB(3.9,43,2,4839,0)="""RTN"",""HLTP31"",11,0)"
^XMB(3.9,43,2,4840,0)=" N HLERR,HLHDR,HLMSA,HLMTIEN,HLMTIENS,HLQUIT,HLNODE,HLNEXT,HLRESLTA"
^XMB(3.9,43,2,4841,0)="""RTN"",""HLTP31"",12,0)"
^XMB(3.9,43,2,4842,0)=" D INIT^HLTP3A  ;patch HL*1.6*109: hltp3 routine split"
^XMB(3.9,43,2,4843,0)="""RTN"",""HLTP31"",13,0)"
^XMB(3.9,43,2,4844,0)=" ;Quit processing if error with header"
^XMB(3.9,43,2,4845,0)="""RTN"",""HLTP31"",14,0)"
^XMB(3.9,43,2,4846,0)=" I $G(HLRESLT) D EXIT Q 0"
^XMB(3.9,43,2,4847,0)="""RTN"",""HLTP31"",15,0)"
^XMB(3.9,43,2,4848,0)=" ;must have MSA segment"
^XMB(3.9,43,2,4849,0)="""RTN"",""HLTP31"",16,0)"
^XMB(3.9,43,2,4850,0)=" I '$L(HLMSA) D RSPER(4,108,""Missing MSA segment"") Q 0"
^XMB(3.9,43,2,4851,0)="""RTN"",""HLTP31"",17,0)"
^XMB(3.9,43,2,4852,0)=" ;msg. id in MSA must match original msg. id, if not reject"
^XMB(3.9,43,2,4853,0)="""RTN"",""HLTP31"",18,0)"
^XMB(3.9,43,2,4854,0)=" I $P(HLMSA,HL(""FS""),2)'=HLN(""MID"") D RSPER(4,108,""Incorrect msg. Id"") Q 0"
^XMB(3.9,43,2,4855,0)="""RTN"",""HLTP31"",19,0)"
^XMB(3.9,43,2,4856,0)=" ;rec. app. must match sending app. of original message."
^XMB(3.9,43,2,4857,0)="""RTN"",""HLTP31"",20,0)"
^XMB(3.9,43,2,4858,0)=" I HL(""RAN"")'=HLN(""SAN"") D RSPER(4,108,""Incorrect sending app."") Q 0"
^XMB(3.9,43,2,4859,0)="""RTN"",""HLTP31"",21,0)"
^XMB(3.9,43,2,4860,0)=" ;get ack code"
^XMB(3.9,43,2,4861,0)="""RTN"",""HLTP31"",22,0)"
^XMB(3.9,43,2,4862,0)=" S HL(""ACKCD"")=$P(HLMSA,HL(""FS""))"
^XMB(3.9,43,2,4863,0)="""RTN"",""HLTP31"",23,0)"
^XMB(3.9,43,2,4864,0)=" ;update LL, rec. 1 msg"
^XMB(3.9,43,2,4865,0)="""RTN"",""HLTP31"",24,0)"
^XMB(3.9,43,2,4866,0)=" D LLCNT^HLCSTCP(HLDP,1)"
^XMB(3.9,43,2,4867,0)="""RTN"",""HLTP31"",25,0)"
^XMB(3.9,43,2,4868,0)=" ;commit ack"
^XMB(3.9,43,2,4869,0)="""RTN"",""HLTP31"",26,0)"
^XMB(3.9,43,2,4870,0)=" I $E(HL(""ACKCD""))=""C"" D  Q X"
^XMB(3.9,43,2,4871,0)="""RTN"",""HLTP31"",27,0)"
^XMB(3.9,43,2,4872,0)=" . ;update LL, processed 1 msg"
^XMB(3.9,43,2,4873,0)="""RTN"",""HLTP31"",28,0)"
^XMB(3.9,43,2,4874,0)=" . D LLCNT^HLCSTCP(HLDP,2)"
^XMB(3.9,43,2,4875,0)="""RTN"",""HLTP31"",29,0)"
^XMB(3.9,43,2,4876,0)=" . ;received an error ack, return NAK"
^XMB(3.9,43,2,4877,0)="""RTN"",""HLTP31"",30,0)"
^XMB(3.9,43,2,4878,0)=" . S:$E(HL(""ACKCD""),2)'=""A"" HLRESLT=102_U_$P(HLMSA,HL(""FS""),3)"
^XMB(3.9,43,2,4879,0)="""RTN"",""HLTP31"",31,0)"
^XMB(3.9,43,2,4880,0)=" . D RSPER(3) S X=$S($E(HL(""ACKCD""),2)=""A"":1,1:4)"
^XMB(3.9,43,2,4881,0)="""RTN"",""HLTP31"",32,0)"
^XMB(3.9,43,2,4882,0)=" ;app. ack, received an error ack, NAK"
^XMB(3.9,43,2,4883,0)="""RTN"",""HLTP31"",33,0)"
^XMB(3.9,43,2,4884,0)=" S:$E(HL(""ACKCD""),2)'=""A"" HLRESLT=102_U_$P(HLMSA,HL(""FS""),3)"
^XMB(3.9,43,2,4885,0)="""RTN"",""HLTP31"",34,0)"
^XMB(3.9,43,2,4886,0)=" ;Set special HL variables"
^XMB(3.9,43,2,4887,0)="""RTN"",""HLTP31"",35,0)"
^XMB(3.9,43,2,4888,0)=" S HLQUIT=0,HLNODE="""",HLNEXT=""D HLNEXT^HLCSUTL"""
^XMB(3.9,43,2,4889,0)="""RTN"",""HLTP31"",36,0)"
^XMB(3.9,43,2,4890,0)=" ;HLORNOD=subscriber protocol for Fileman auditing, ien;global ref"
^XMB(3.9,43,2,4891,0)="""RTN"",""HLTP31"",37,0)"
^XMB(3.9,43,2,4892,0)=" N HLORNODD S HLORNOD=HL(""EIDS"")_"";ORD(101,"""
^XMB(3.9,43,2,4893,0)="""RTN"",""HLTP31"",38,0)"
^XMB(3.9,43,2,4894,0)=" ;process ack"
^XMB(3.9,43,2,4895,0)="""RTN"",""HLTP31"",39,0)"
^XMB(3.9,43,2,4896,0)=" D"
^XMB(3.9,43,2,4897,0)="""RTN"",""HLTP31"",40,0)"
^XMB(3.9,43,2,4898,0)=" . N HLTCP ;Newed variable to update status in 772."
^XMB(3.9,43,2,4899,0)="""RTN"",""HLTP31"",41,0)"
^XMB(3.9,43,2,4900,0)=" . D PROCACK^HLTP2(HLMTIEN,HL(""EID""),.HLRESLT,.HL)"
^XMB(3.9,43,2,4901,0)="""RTN"",""HLTP31"",42,0)"
^XMB(3.9,43,2,4902,0)=" ;update LL, processed 1 msg"
^XMB(3.9,43,2,4903,0)="""RTN"",""HLTP31"",43,0)"
^XMB(3.9,43,2,4904,0)=" D LLCNT^HLCSTCP(HLDP,2)"
^XMB(3.9,43,2,4905,0)="""RTN"",""HLTP31"",44,0)"
^XMB(3.9,43,2,4906,0)=" ;process ack successfully"
^XMB(3.9,43,2,4907,0)="""RTN"",""HLTP31"",45,0)"
^XMB(3.9,43,2,4908,0)=" D RSPER(3)"
^XMB(3.9,43,2,4909,0)="""RTN"",""HLTP31"",46,0)"
^XMB(3.9,43,2,4910,0)=" ;HLRESELT is defined for errors"
^XMB(3.9,43,2,4911,0)="""RTN"",""HLTP31"",47,0)"
^XMB(3.9,43,2,4912,0)=" Q $S($G(HLRESLT):4,1:3)"
^XMB(3.9,43,2,4913,0)="""RTN"",""HLTP31"",48,0)"
^XMB(3.9,43,2,4914,0)=" ;"
^XMB(3.9,43,2,4915,0)="""RTN"",""HLTP31"",49,0)"
^XMB(3.9,43,2,4916,0)="RSPER(HLST,HLER,HLERM) ;HLST=status, HLER=error type, HLERM=error msg."
^XMB(3.9,43,2,4917,0)="""RTN"",""HLTP31"",50,0)"
^XMB(3.9,43,2,4918,0)=" D STATUS^HLTF0(HLMTIENS,HLST,$G(HLER),$G(HLERM),1)"
^XMB(3.9,43,2,4919,0)="""RTN"",""HLTP31"",51,0)"
^XMB(3.9,43,2,4920,0)=" S:$G(HLER) HLRESLT=HLER_U_HLERM"
^XMB(3.9,43,2,4921,0)="""RTN"",""HLTP31"",52,0)"
^XMB(3.9,43,2,4922,0)=" D EXIT"
^XMB(3.9,43,2,4923,0)="""RTN"",""HLTP31"",53,0)"
^XMB(3.9,43,2,4924,0)=" Q"
^XMB(3.9,43,2,4925,0)="""RTN"",""HLTP31"",54,0)"
^XMB(3.9,43,2,4926,0)="EXIT ;unlock"
^XMB(3.9,43,2,4927,0)="""RTN"",""HLTP31"",55,0)"
^XMB(3.9,43,2,4928,0)=" ;**109**"
^XMB(3.9,43,2,4929,0)="""RTN"",""HLTP31"",56,0)"
^XMB(3.9,43,2,4930,0)=" ;I $G(HLMTIENS) L -^HLMA(HLMTIENS)"
^XMB(3.9,43,2,4931,0)="""RTN"",""HLTP31"",57,0)"
^XMB(3.9,43,2,4932,0)=" Q"
^XMB(3.9,43,2,4933,0)="""RTN"",""HLTP31"",58,0)"
^XMB(3.9,43,2,4934,0)=" ;"
^XMB(3.9,43,2,4935,0)="""RTN"",""HLTP31"",59,0)"
^XMB(3.9,43,2,4936,0)="SETINQUE ;"
^XMB(3.9,43,2,4937,0)="""RTN"",""HLTP31"",60,0)"
^XMB(3.9,43,2,4938,0)=" ;**HL*1.6*109***"
^XMB(3.9,43,2,4939,0)="""RTN"",""HLTP31"",61,0)"
^XMB(3.9,43,2,4940,0)=" ;Called from HLTP3 for message that utilize enhanced mode - NOT original mode"
^XMB(3.9,43,2,4941,0)="""RTN"",""HLTP31"",62,0)"
^XMB(3.9,43,2,4942,0)=" ;Sets the incoming message on the in queue."
^XMB(3.9,43,2,4943,0)="""RTN"",""HLTP31"",63,0)"
^XMB(3.9,43,2,4944,0)=" ;Does not use the listener, instead, arranges multiple in-queues"
^XMB(3.9,43,2,4945,0)="""RTN"",""HLTP31"",64,0)"
^XMB(3.9,43,2,4946,0)=" ;by using the sending link."
^XMB(3.9,43,2,4947,0)="""RTN"",""HLTP31"",65,0)"
^XMB(3.9,43,2,4948,0)=" ;"
^XMB(3.9,43,2,4949,0)="""RTN"",""HLTP31"",66,0)"
^XMB(3.9,43,2,4950,0)=" N HLI,HLINST,HLDOMAIN,HLLINK"
^XMB(3.9,43,2,4951,0)="""RTN"",""HLTP31"",67,0)"
^XMB(3.9,43,2,4952,0)=" ;"
^XMB(3.9,43,2,4953,0)="""RTN"",""HLTP31"",68,0)"
^XMB(3.9,43,2,4954,0)=" ;Override value of logical link based on sending facility to create"
^XMB(3.9,43,2,4955,0)="""RTN"",""HLTP31"",69,0)"
^XMB(3.9,43,2,4956,0)=" ;a queue (^HLMA(""AC"",""I"",llnk ien,msg ien)) different than that of the "
^XMB(3.9,43,2,4957,0)="""RTN"",""HLTP31"",70,0)"
^XMB(3.9,43,2,4958,0)=" ;listener"
^XMB(3.9,43,2,4959,0)="""RTN"",""HLTP31"",71,0)"
^XMB(3.9,43,2,4960,0)=" S HLINST=$P(HL(""SFN""),$E(HL(""ECH"")))"
^XMB(3.9,43,2,4961,0)="""RTN"",""HLTP31"",72,0)"
^XMB(3.9,43,2,4962,0)=" S HLDOMAIN=$P(HL(""SFN""),$E(HL(""ECH"")),2)"
^XMB(3.9,43,2,4963,0)="""RTN"",""HLTP31"",73,0)"
^XMB(3.9,43,2,4964,0)=" ;"
^XMB(3.9,43,2,4965,0)="""RTN"",""HLTP31"",74,0)"
^XMB(3.9,43,2,4966,0)=" ; patch HL*1.6*120 start"
^XMB(3.9,43,2,4967,0)="""RTN"",""HLTP31"",75,0)"
^XMB(3.9,43,2,4968,0)=" ; assume the format is <domain>:<port #>"
^XMB(3.9,43,2,4969,0)="""RTN"",""HLTP31"",76,0)"
^XMB(3.9,43,2,4970,0)=" I HLDOMAIN["":"" S HL(""PORT"")=$P(HLDOMAIN,"":"",2)"
^XMB(3.9,43,2,4971,0)="""RTN"",""HLTP31"",77,0)"
^XMB(3.9,43,2,4972,0)=" S HLDOMAIN=$P(HLDOMAIN,"":"")"
^XMB(3.9,43,2,4973,0)="""RTN"",""HLTP31"",78,0)"
^XMB(3.9,43,2,4974,0)=" S HL(""DOMAIN"")=HLDOMAIN"
^XMB(3.9,43,2,4975,0)="""RTN"",""HLTP31"",79,0)"
^XMB(3.9,43,2,4976,0)=" ; change from lower case to upper case"
^XMB(3.9,43,2,4977,0)="""RTN"",""HLTP31"",80,0)"
^XMB(3.9,43,2,4978,0)=" S HLDOMAIN=$$UP^XLFSTR(HLDOMAIN)"
^XMB(3.9,43,2,4979,0)="""RTN"",""HLTP31"",81,0)"
^XMB(3.9,43,2,4980,0)=" ; if first piece of domain is ""HL7."" or ""MPI."", remove it"
^XMB(3.9,43,2,4981,0)="""RTN"",""HLTP31"",82,0)"
^XMB(3.9,43,2,4982,0)=" I ($E(HLDOMAIN,1,4)=""HL7."")!($E(HLDOMAIN,1,4)=""MPI."") D"
^XMB(3.9,43,2,4983,0)="""RTN"",""HLTP31"",83,0)"
^XMB(3.9,43,2,4984,0)=" . S HLDOMAIN=$P(HLDOMAIN,""."",2,99)"
^XMB(3.9,43,2,4985,0)="""RTN"",""HLTP31"",84,0)"
^XMB(3.9,43,2,4986,0)=" ; patch HL*1.6*120 end"
^XMB(3.9,43,2,4987,0)="""RTN"",""HLTP31"",85,0)"
^XMB(3.9,43,2,4988,0)=" ;"
^XMB(3.9,43,2,4989,0)="""RTN"",""HLTP31"",86,0)"
^XMB(3.9,43,2,4990,0)=" I HLDOMAIN]"""" D    ;logical link lookup by domain"
^XMB(3.9,43,2,4991,0)="""RTN"",""HLTP31"",87,0)"
^XMB(3.9,43,2,4992,0)=" . D LINK^HLUTIL3(HLDOMAIN,.HLI,""D"")"
^XMB(3.9,43,2,4993,0)="""RTN"",""HLTP31"",88,0)"
^XMB(3.9,43,2,4994,0)=" . S HLLINK=$O(HLI(0)) ;client link for sending facility"
^XMB(3.9,43,2,4995,0)="""RTN"",""HLTP31"",89,0)"
^XMB(3.9,43,2,4996,0)=" ;logical link lookup by station number"
^XMB(3.9,43,2,4997,0)="""RTN"",""HLTP31"",90,0)"
^XMB(3.9,43,2,4998,0)=" I $G(HLLINK)']"""",HLINST]"""" D"
^XMB(3.9,43,2,4999,0)="""RTN"",""HLTP31"",91,0)"
^XMB(3.9,43,2,5000,0)=" . D LINK^HLUTIL3(HLINST,.HLI,""I"")"
^XMB(3.9,43,2,5001,0)="""RTN"",""HLTP31"",92,0)"
^XMB(3.9,43,2,5002,0)=" . S HLLINK=$O(HLI(0)) ;client link for sending facility"
^XMB(3.9,43,2,5003,0)="""RTN"",""HLTP31"",93,0)"
^XMB(3.9,43,2,5004,0)=" ;"
^XMB(3.9,43,2,5005,0)="""RTN"",""HLTP31"",94,0)"
^XMB(3.9,43,2,5006,0)=" ; patch HL*1.6*120 start"
^XMB(3.9,43,2,5007,0)="""RTN"",""HLTP31"",95,0)"
^XMB(3.9,43,2,5008,0)=" ;logical link lookup by DNS domain"
^XMB(3.9,43,2,5009,0)="""RTN"",""HLTP31"",96,0)"
^XMB(3.9,43,2,5010,0)=" I $G(HLLINK)']"""",HL(""DOMAIN"")]"""" D"
^XMB(3.9,43,2,5011,0)="""RTN"",""HLTP31"",97,0)"
^XMB(3.9,43,2,5012,0)=" . I $D(^HLCS(870,""DNS"",HL(""DOMAIN""))) D  Q"
^XMB(3.9,43,2,5013,0)="""RTN"",""HLTP31"",98,0)"
^XMB(3.9,43,2,5014,0)=" .. S HLLINK=+$O(^HLCS(870,""DNS"",HL(""DOMAIN""),0))"
^XMB(3.9,43,2,5015,0)="""RTN"",""HLTP31"",99,0)"
^XMB(3.9,43,2,5016,0)=" . I $D(^HLCS(870,""DNS"",$$UP^XLFSTR(HL(""DOMAIN"")))) D  Q"
^XMB(3.9,43,2,5017,0)="""RTN"",""HLTP31"",100,0)"
^XMB(3.9,43,2,5018,0)=" .. S HLLINK=+$O(^HLCS(870,""DNS"",$$UP^XLFSTR(HL(""DOMAIN"")),0))"
^XMB(3.9,43,2,5019,0)="""RTN"",""HLTP31"",101,0)"
^XMB(3.9,43,2,5020,0)=" . I $D(^HLCS(870,""DNS"",$$LOW^XLFSTR(HL(""DOMAIN"")))) D"
^XMB(3.9,43,2,5021,0)="""RTN"",""HLTP31"",102,0)"
^XMB(3.9,43,2,5022,0)=" .. S HLLINK=+$O(^HLCS(870,""DNS"",$$LOW^XLFSTR(HL(""DOMAIN"")),0))"
^XMB(3.9,43,2,5023,0)="""RTN"",""HLTP31"",103,0)"
^XMB(3.9,43,2,5024,0)=" ;"
^XMB(3.9,43,2,5025,0)="""RTN"",""HLTP31"",104,0)"
^XMB(3.9,43,2,5026,0)=" ;logical link lookup by ip address"
^XMB(3.9,43,2,5027,0)="""RTN"",""HLTP31"",105,0)"
^XMB(3.9,43,2,5028,0)=" I $G(HLLINK)']"""",HL(""DOMAIN"") D"
^XMB(3.9,43,2,5029,0)="""RTN"",""HLTP31"",106,0)"
^XMB(3.9,43,2,5030,0)=" . S HLLINK=$O(^HLCS(870,""IP"",HL(""DOMAIN""),0))"
^XMB(3.9,43,2,5031,0)="""RTN"",""HLTP31"",107,0)"
^XMB(3.9,43,2,5032,0)=" ; patch HL*1.6*120 end"
^XMB(3.9,43,2,5033,0)="""RTN"",""HLTP31"",108,0)"
^XMB(3.9,43,2,5034,0)=" ;"
^XMB(3.9,43,2,5035,0)="""RTN"",""HLTP31"",109,0)"
^XMB(3.9,43,2,5036,0)=" ; find the logical link of the subscriber protocol"
^XMB(3.9,43,2,5037,0)="""RTN"",""HLTP31"",110,0)"
^XMB(3.9,43,2,5038,0)=" ; then set the link field of this message to the link"
^XMB(3.9,43,2,5039,0)="""RTN"",""HLTP31"",111,0)"
^XMB(3.9,43,2,5040,0)=" I $G(HL(""EIDS"")),$P(^ORD(101,HL(""EIDS""),770),""^"",7) S HLLINK=$P(^ORD(101,HL(""EIDS""),770),""^"",7)"
^XMB(3.9,43,2,5041,0)="""RTN"",""HLTP31"",112,0)"
^XMB(3.9,43,2,5042,0)=" ;"
^XMB(3.9,43,2,5043,0)="""RTN"",""HLTP31"",113,0)"
^XMB(3.9,43,2,5044,0)=" I $L($G(HLLINK)) D"
^XMB(3.9,43,2,5045,0)="""RTN"",""HLTP31"",114,0)"
^XMB(3.9,43,2,5046,0)=" .D ENQUE^HLCSREP(HLLINK,""I"",HLMTIENS)"
^XMB(3.9,43,2,5047,0)="""RTN"",""HLTP31"",115,0)"
^XMB(3.9,43,2,5048,0)=" E  D"
^XMB(3.9,43,2,5049,0)="""RTN"",""HLTP31"",116,0)"
^XMB(3.9,43,2,5050,0)=" .D ENQUE^HLCSREP(HLDP,""I"",HLMTIENS)"
^XMB(3.9,43,2,5051,0)="""RTN"",""HLTP31"",117,0)"
^XMB(3.9,43,2,5052,0)=" Q"
^XMB(3.9,43,2,5053,0)="""RTN"",""HLTP4"")"
^XMB(3.9,43,2,5054,0)="0^11^B45154182^B32742130"
^XMB(3.9,43,2,5055,0)="""RTN"",""HLTP4"",1,0)"
^XMB(3.9,43,2,5056,0)="HLTP4 ;SFIRMFO/RSD - Transaction Processor for TCP ;01/26/2006  14:06"
^XMB(3.9,43,2,5057,0)="""RTN"",""HLTP4"",2,0)"
^XMB(3.9,43,2,5058,0)=" ;;1.6;HEALTH LEVEL SEVEN;**19,57,59,91,109,116,117,125,120**;Oct 13, 1995;Build 12"
^XMB(3.9,43,2,5059,0)="""RTN"",""HLTP4"",3,0)"
^XMB(3.9,43,2,5060,0)="GENACK ;called from HLMA1"
^XMB(3.9,43,2,5061,0)="""RTN"",""HLTP4"",4,0)"
^XMB(3.9,43,2,5062,0)=" ;Entry point to generate an acknowledgement message"
^XMB(3.9,43,2,5063,0)="""RTN"",""HLTP4"",5,0)"
^XMB(3.9,43,2,5064,0)=" ;for TCP"
^XMB(3.9,43,2,5065,0)="""RTN"",""HLTP4"",6,0)"
^XMB(3.9,43,2,5066,0)=" ;INPUT:"
^XMB(3.9,43,2,5067,0)="""RTN"",""HLTP4"",7,0)"
^XMB(3.9,43,2,5068,0)=" ;   HLMTIENS=original msg. ien #773"
^XMB(3.9,43,2,5069,0)="""RTN"",""HLTP4"",8,0)"
^XMB(3.9,43,2,5070,0)=" ;   HLEID=original msg. event protocol"
^XMB(3.9,43,2,5071,0)="""RTN"",""HLTP4"",9,0)"
^XMB(3.9,43,2,5072,0)=" ;   HLEIDS=original msg. subscriber protocol"
^XMB(3.9,43,2,5073,0)="""RTN"",""HLTP4"",10,0)"
^XMB(3.9,43,2,5074,0)=" ;   HLMTIENA=ien of ack in 772, for batch only"
^XMB(3.9,43,2,5075,0)="""RTN"",""HLTP4"",11,0)"
^XMB(3.9,43,2,5076,0)=" ;   Note:  if the HLP(...) array exists, it will be ""honored"" by"
^XMB(3.9,43,2,5077,0)="""RTN"",""HLTP4"",12,0)"
^XMB(3.9,43,2,5078,0)=" ;          UPDATE^HLTF0 below. This includes the HLP(""NAMESPACE"")"
^XMB(3.9,43,2,5079,0)="""RTN"",""HLTP4"",13,0)"
^XMB(3.9,43,2,5080,0)=" ;          variable. - HL*1.6*91"
^XMB(3.9,43,2,5081,0)="""RTN"",""HLTP4"",14,0)"
^XMB(3.9,43,2,5082,0)=" ;"
^XMB(3.9,43,2,5083,0)="""RTN"",""HLTP4"",15,0)"
^XMB(3.9,43,2,5084,0)=" ;OUTPUT: HLTCP=ien of response"
^XMB(3.9,43,2,5085,0)="""RTN"",""HLTP4"",16,0)"
^XMB(3.9,43,2,5086,0)=" N HLDT,HLDT1,HLQ,HLOGLINK,HLMIDA,HLMTIEN,HLREC,HLSAN,HLTYPE,X"
^XMB(3.9,43,2,5087,0)="""RTN"",""HLTP4"",17,0)"
^XMB(3.9,43,2,5088,0)=" ;Extract data from original message and store in separate variables"
^XMB(3.9,43,2,5089,0)="""RTN"",""HLTP4"",18,0)"
^XMB(3.9,43,2,5090,0)=" ;reverse sending and receiving application from original msg."
^XMB(3.9,43,2,5091,0)="""RTN"",""HLTP4"",19,0)"
^XMB(3.9,43,2,5092,0)=" S X=$G(^HLMA(HLMTIENS,0)),HLREC=$P(X,U,11),HLSAN=$P(X,U,12),HLOGLINK=$G(HLTCPO)"
^XMB(3.9,43,2,5093,0)="""RTN"",""HLTP4"",20,0)"
^XMB(3.9,43,2,5094,0)=" ;HLMTIENA defined, create msg in 773"
^XMB(3.9,43,2,5095,0)="""RTN"",""HLTP4"",21,0)"
^XMB(3.9,43,2,5096,0)=" I $G(HLMTIENA) S HLDT=+$G(^HL(772,HLMTIENA,0)),HLMTIENA=$$MA^HLTF(HLMTIENA,.HLMIDA)"
^XMB(3.9,43,2,5097,0)="""RTN"",""HLTP4"",22,0)"
^XMB(3.9,43,2,5098,0)=" ;create message in 772 & 773, HLMTIENA=new msg ien #773"
^XMB(3.9,43,2,5099,0)="""RTN"",""HLTP4"",23,0)"
^XMB(3.9,43,2,5100,0)=" I '$G(HLMTIENA) D TCP^HLTF(.HLMIDA,.HLMTIENA,.HLDT)"
^XMB(3.9,43,2,5101,0)="""RTN"",""HLTP4"",24,0)"
^XMB(3.9,43,2,5102,0)=" ;"
^XMB(3.9,43,2,5103,0)="""RTN"",""HLTP4"",25,0)"
^XMB(3.9,43,2,5104,0)=" ;**109**"
^XMB(3.9,43,2,5105,0)="""RTN"",""HLTP4"",26,0)"
^XMB(3.9,43,2,5106,0)=" ;lock new record"
^XMB(3.9,43,2,5107,0)="""RTN"",""HLTP4"",27,0)"
^XMB(3.9,43,2,5108,0)=" ;F  L +^HLMA(HLMTIENA):1 Q:$T  H 1"
^XMB(3.9,43,2,5109,0)="""RTN"",""HLTP4"",28,0)"
^XMB(3.9,43,2,5110,0)=" ;"
^XMB(3.9,43,2,5111,0)="""RTN"",""HLTP4"",29,0)"
^XMB(3.9,43,2,5112,0)=" ;HLMTIEN=ien in 772"
^XMB(3.9,43,2,5113,0)="""RTN"",""HLTP4"",30,0)"
^XMB(3.9,43,2,5114,0)=" S HLTCP=HLMTIENA,HLMTIEN=+^HLMA(HLMTIENA,0),HLDT1=$$HLDATE^HLFNC(HLDT),(HLTYPE,HLP(""MSGTYPE""))=$E(HLARYTYP,2)"
^XMB(3.9,43,2,5115,0)="""RTN"",""HLTP4"",31,0)"
^XMB(3.9,43,2,5116,0)=" ;"
^XMB(3.9,43,2,5117,0)="""RTN"",""HLTP4"",32,0)"
^XMB(3.9,43,2,5118,0)=" ;**** HL*1.6*116 ****"
^XMB(3.9,43,2,5119,0)="""RTN"",""HLTP4"",33,0)"
^XMB(3.9,43,2,5120,0)=" ;no open link, check dynamic routing of ack"
^XMB(3.9,43,2,5121,0)="""RTN"",""HLTP4"",34,0)"
^XMB(3.9,43,2,5122,0)=" S X=$G(^ORD(101,HLEIDS,770)),HLP(""MTYPE"")=$P(X,U,11),HLP(""EVENT"")=$P(X,U,4)"
^XMB(3.9,43,2,5123,0)="""RTN"",""HLTP4"",35,0)"
^XMB(3.9,43,2,5124,0)=" ;"
^XMB(3.9,43,2,5125,0)="""RTN"",""HLTP4"",36,0)"
^XMB(3.9,43,2,5126,0)=" ; patch HL*1.6*125- change from $G to $D"
^XMB(3.9,43,2,5127,0)="""RTN"",""HLTP4"",37,0)"
^XMB(3.9,43,2,5128,0)=" I '$D(HLL(""SET FOR APP ACK"")) D  Q:'HLOGLINK"
^XMB(3.9,43,2,5129,0)="""RTN"",""HLTP4"",38,0)"
^XMB(3.9,43,2,5130,0)=" .K HLL(""LINKS"")"
^XMB(3.9,43,2,5131,0)="""RTN"",""HLTP4"",39,0)"
^XMB(3.9,43,2,5132,0)=" .I 'HLOGLINK D"
^XMB(3.9,43,2,5133,0)="""RTN"",""HLTP4"",40,0)"
^XMB(3.9,43,2,5134,0)=" .. S HLOGLINK=$P(X,U,7)"
^XMB(3.9,43,2,5135,0)="""RTN"",""HLTP4"",41,0)"
^XMB(3.9,43,2,5136,0)=" .. Q:HLOGLINK"
^XMB(3.9,43,2,5137,0)="""RTN"",""HLTP4"",42,0)"
^XMB(3.9,43,2,5138,0)=" .. N DOMAIN,SFAC,MSH,FS,CS,HLI,INST"
^XMB(3.9,43,2,5139,0)="""RTN"",""HLTP4"",43,0)"
^XMB(3.9,43,2,5140,0)=" .. S MSH=$G(^HLMA(HLMTIENS,""MSH"",1,0))"
^XMB(3.9,43,2,5141,0)="""RTN"",""HLTP4"",44,0)"
^XMB(3.9,43,2,5142,0)=" .. Q:'$L(MSH)"
^XMB(3.9,43,2,5143,0)="""RTN"",""HLTP4"",45,0)"
^XMB(3.9,43,2,5144,0)=" .. S FS=$E(MSH,4)"
^XMB(3.9,43,2,5145,0)="""RTN"",""HLTP4"",46,0)"
^XMB(3.9,43,2,5146,0)=" .. Q:'$L(FS)"
^XMB(3.9,43,2,5147,0)="""RTN"",""HLTP4"",47,0)"
^XMB(3.9,43,2,5148,0)=" .. S CS=$E(MSH,5)"
^XMB(3.9,43,2,5149,0)="""RTN"",""HLTP4"",48,0)"
^XMB(3.9,43,2,5150,0)=" .. Q:'$L(CS)"
^XMB(3.9,43,2,5151,0)="""RTN"",""HLTP4"",49,0)"
^XMB(3.9,43,2,5152,0)=" .. S DOMAIN=$P($P(MSH,FS,4),CS,2)"
^XMB(3.9,43,2,5153,0)="""RTN"",""HLTP4"",50,0)"
^XMB(3.9,43,2,5154,0)=" .. ;"
^XMB(3.9,43,2,5155,0)="""RTN"",""HLTP4"",51,0)"
^XMB(3.9,43,2,5156,0)=" .. ; patch HL*1.6*120 start"
^XMB(3.9,43,2,5157,0)="""RTN"",""HLTP4"",52,0)"
^XMB(3.9,43,2,5158,0)=" .. ; assume the format is <domain>:<port #>"
^XMB(3.9,43,2,5159,0)="""RTN"",""HLTP4"",53,0)"
^XMB(3.9,43,2,5160,0)=" .. I DOMAIN["":"" S HLP(""PORT"")=$P(DOMAIN,"":"",2)"
^XMB(3.9,43,2,5161,0)="""RTN"",""HLTP4"",54,0)"
^XMB(3.9,43,2,5162,0)=" .. S DOMAIN=$P(DOMAIN,"":"")"
^XMB(3.9,43,2,5163,0)="""RTN"",""HLTP4"",55,0)"
^XMB(3.9,43,2,5164,0)=" .. S HLP(""DNS-DOMAIN"")=DOMAIN"
^XMB(3.9,43,2,5165,0)="""RTN"",""HLTP4"",56,0)"
^XMB(3.9,43,2,5166,0)=" .. ;"
^XMB(3.9,43,2,5167,0)="""RTN"",""HLTP4"",57,0)"
^XMB(3.9,43,2,5168,0)=" .. ; if first piece of domain is ""HL7."" or ""MPI."", remove it"
^XMB(3.9,43,2,5169,0)="""RTN"",""HLTP4"",58,0)"
^XMB(3.9,43,2,5170,0)=" .. I ($E(DOMAIN,1,4)=""HL7."")!($E(DOMAIN,1,4)=""MPI."") D"
^XMB(3.9,43,2,5171,0)="""RTN"",""HLTP4"",59,0)"
^XMB(3.9,43,2,5172,0)=" ... S DOMAIN=$P(DOMAIN,""."",2,99)"
^XMB(3.9,43,2,5173,0)="""RTN"",""HLTP4"",60,0)"
^XMB(3.9,43,2,5174,0)=" .. ;"
^XMB(3.9,43,2,5175,0)="""RTN"",""HLTP4"",61,0)"
^XMB(3.9,43,2,5176,0)=" .. ; lookup Mailman domain"
^XMB(3.9,43,2,5177,0)="""RTN"",""HLTP4"",62,0)"
^XMB(3.9,43,2,5178,0)=" .. I $L(DOMAIN) D"
^XMB(3.9,43,2,5179,0)="""RTN"",""HLTP4"",63,0)"
^XMB(3.9,43,2,5180,0)=" ... D LINK^HLUTIL3(DOMAIN,.HLI,""D"")"
^XMB(3.9,43,2,5181,0)="""RTN"",""HLTP4"",64,0)"
^XMB(3.9,43,2,5182,0)=" ... S HLOGLINK=$O(HLI(0))"
^XMB(3.9,43,2,5183,0)="""RTN"",""HLTP4"",65,0)"
^XMB(3.9,43,2,5184,0)=" .. Q:HLOGLINK"
^XMB(3.9,43,2,5185,0)="""RTN"",""HLTP4"",66,0)"
^XMB(3.9,43,2,5186,0)=" .. S INST=$P($P(MSH,FS,4),CS,1)"
^XMB(3.9,43,2,5187,0)="""RTN"",""HLTP4"",67,0)"
^XMB(3.9,43,2,5188,0)=" .. I $L(INST) D"
^XMB(3.9,43,2,5189,0)="""RTN"",""HLTP4"",68,0)"
^XMB(3.9,43,2,5190,0)=" .. .D LINK^HLUTIL3(INST,.HLI,""I"")"
^XMB(3.9,43,2,5191,0)="""RTN"",""HLTP4"",69,0)"
^XMB(3.9,43,2,5192,0)=" ... S HLOGLINK=$O(HLI(0))"
^XMB(3.9,43,2,5193,0)="""RTN"",""HLTP4"",70,0)"
^XMB(3.9,43,2,5194,0)=" .. Q:HLOGLINK"
^XMB(3.9,43,2,5195,0)="""RTN"",""HLTP4"",71,0)"
^XMB(3.9,43,2,5196,0)=" .. ;"
^XMB(3.9,43,2,5197,0)="""RTN"",""HLTP4"",72,0)"
^XMB(3.9,43,2,5198,0)=" .. ; check DNS domain and ip address"
^XMB(3.9,43,2,5199,0)="""RTN"",""HLTP4"",73,0)"
^XMB(3.9,43,2,5200,0)=" .. I $L(HLP(""DNS-DOMAIN"")) D"
^XMB(3.9,43,2,5201,0)="""RTN"",""HLTP4"",74,0)"
^XMB(3.9,43,2,5202,0)=" ... ;"
^XMB(3.9,43,2,5203,0)="""RTN"",""HLTP4"",75,0)"
^XMB(3.9,43,2,5204,0)=" ... ; match DNS domain"
^XMB(3.9,43,2,5205,0)="""RTN"",""HLTP4"",76,0)"
^XMB(3.9,43,2,5206,0)=" ... I $D(^HLCS(870,""DNS"",HLP(""DNS-DOMAIN""))) D"
^XMB(3.9,43,2,5207,0)="""RTN"",""HLTP4"",77,0)"
^XMB(3.9,43,2,5208,0)=" .... S HLOGLINK=+$O(^HLCS(870,""DNS"",HLP(""DNS-DOMAIN""),0))"
^XMB(3.9,43,2,5209,0)="""RTN"",""HLTP4"",78,0)"
^XMB(3.9,43,2,5210,0)=" ... Q:HLOGLINK"
^XMB(3.9,43,2,5211,0)="""RTN"",""HLTP4"",79,0)"
^XMB(3.9,43,2,5212,0)=" ... ;"
^XMB(3.9,43,2,5213,0)="""RTN"",""HLTP4"",80,0)"
^XMB(3.9,43,2,5214,0)=" ... I $D(^HLCS(870,""DNS"",$$UP^XLFSTR(HLP(""DNS-DOMAIN"")))) D"
^XMB(3.9,43,2,5215,0)="""RTN"",""HLTP4"",81,0)"
^XMB(3.9,43,2,5216,0)=" .... S HLOGLINK=+$O(^HLCS(870,""DNS"",$$UP^XLFSTR(HLP(""DNS-DOMAIN"")),0))"
^XMB(3.9,43,2,5217,0)="""RTN"",""HLTP4"",82,0)"
^XMB(3.9,43,2,5218,0)=" ... Q:HLOGLINK"
^XMB(3.9,43,2,5219,0)="""RTN"",""HLTP4"",83,0)"
^XMB(3.9,43,2,5220,0)=" ... ;"
^XMB(3.9,43,2,5221,0)="""RTN"",""HLTP4"",84,0)"
^XMB(3.9,43,2,5222,0)=" ... I $D(^HLCS(870,""DNS"",$$LOW^XLFSTR(HLP(""DNS-DOMAIN"")))) D"
^XMB(3.9,43,2,5223,0)="""RTN"",""HLTP4"",85,0)"
^XMB(3.9,43,2,5224,0)=" .... S HLOGLINK=+$O(^HLCS(870,""DNS"",$$LOW^XLFSTR(HLP(""DNS-DOMAIN"")),0))"
^XMB(3.9,43,2,5225,0)="""RTN"",""HLTP4"",86,0)"
^XMB(3.9,43,2,5226,0)=" ... Q:HLOGLINK"
^XMB(3.9,43,2,5227,0)="""RTN"",""HLTP4"",87,0)"
^XMB(3.9,43,2,5228,0)=" ... ;"
^XMB(3.9,43,2,5229,0)="""RTN"",""HLTP4"",88,0)"
^XMB(3.9,43,2,5230,0)=" ... ; match ip address"
^XMB(3.9,43,2,5231,0)="""RTN"",""HLTP4"",89,0)"
^XMB(3.9,43,2,5232,0)=" ... I $D(^HLCS(870,""IP"",HLP(""DNS-DOMAIN""))) D"
^XMB(3.9,43,2,5233,0)="""RTN"",""HLTP4"",90,0)"
^XMB(3.9,43,2,5234,0)=" .... S HLOGLINK=+$O(^HLCS(870,""IP"",HLP(""DNS-DOMAIN""),0))"
^XMB(3.9,43,2,5235,0)="""RTN"",""HLTP4"",91,0)"
^XMB(3.9,43,2,5236,0)=" .. ;"
^XMB(3.9,43,2,5237,0)="""RTN"",""HLTP4"",92,0)"
^XMB(3.9,43,2,5238,0)=" ; patch HL*1.6*116 and patch HL*1.6*120 end"
^XMB(3.9,43,2,5239,0)="""RTN"",""HLTP4"",93,0)"
^XMB(3.9,43,2,5240,0)=" ;"
^XMB(3.9,43,2,5241,0)="""RTN"",""HLTP4"",94,0)"
^XMB(3.9,43,2,5242,0)=" ;** HL*1.6*117 **"
^XMB(3.9,43,2,5243,0)="""RTN"",""HLTP4"",95,0)"
^XMB(3.9,43,2,5244,0)=" ; patch HL*1.6*125- change from $G to $D"
^XMB(3.9,43,2,5245,0)="""RTN"",""HLTP4"",96,0)"
^XMB(3.9,43,2,5246,0)=" I $D(HLL(""SET FOR APP ACK"")) D  Q:'HLOGLINK"
^XMB(3.9,43,2,5247,0)="""RTN"",""HLTP4"",97,0)"
^XMB(3.9,43,2,5248,0)=" .N I"
^XMB(3.9,43,2,5249,0)="""RTN"",""HLTP4"",98,0)"
^XMB(3.9,43,2,5250,0)=" .S I=$O(HLL(""LINKS"",0))"
^XMB(3.9,43,2,5251,0)="""RTN"",""HLTP4"",99,0)"
^XMB(3.9,43,2,5252,0)=" .I 'I S HLOGLINK="""" Q"
^XMB(3.9,43,2,5253,0)="""RTN"",""HLTP4"",100,0)"
^XMB(3.9,43,2,5254,0)=" .S HLOGLINK=$P(HLL(""LINKS"",I),""^"",2) Q:HLOGLINK="""""
^XMB(3.9,43,2,5255,0)="""RTN"",""HLTP4"",101,0)"
^XMB(3.9,43,2,5256,0)=" .I +HLOGLINK'=HLOGLINK S HLOGLINK=$O(^HLCS(870,""B"",HLOGLINK,0))"
^XMB(3.9,43,2,5257,0)="""RTN"",""HLTP4"",102,0)"
^XMB(3.9,43,2,5258,0)=" ;**END HL*1.6*117 **"
^XMB(3.9,43,2,5259,0)="""RTN"",""HLTP4"",103,0)"
^XMB(3.9,43,2,5260,0)=" ;"
^XMB(3.9,43,2,5261,0)="""RTN"",""HLTP4"",104,0)"
^XMB(3.9,43,2,5262,0)=" S:$P(X,U,5) HLP(""MTYPE_EVENT"")=$P(X,U,5)"
^XMB(3.9,43,2,5263,0)="""RTN"",""HLTP4"",105,0)"
^XMB(3.9,43,2,5264,0)=" ;HLTCPI=initial message"
^XMB(3.9,43,2,5265,0)="""RTN"",""HLTP4"",106,0)"
^XMB(3.9,43,2,5266,0)=" S:$G(HLTCPI) HLP(""HLTCPI"")=HLTCPI"
^XMB(3.9,43,2,5267,0)="""RTN"",""HLTP4"",107,0)"
^XMB(3.9,43,2,5268,0)=" ;Update zero node of Message Admin file #773"
^XMB(3.9,43,2,5269,0)="""RTN"",""HLTP4"",108,0)"
^XMB(3.9,43,2,5270,0)=" D UPDATE^HLTF0(HLTCP,,""O"",HLEIDS,HLREC,HLSAN,""I"",HLMTIENS,HLOGLINK,.HLP)"
^XMB(3.9,43,2,5271,0)="""RTN"",""HLTP4"",109,0)"
^XMB(3.9,43,2,5272,0)=" ;"
^XMB(3.9,43,2,5273,0)="""RTN"",""HLTP4"",110,0)"
^XMB(3.9,43,2,5274,0)=" ;Update status to Being Generated"
^XMB(3.9,43,2,5275,0)="""RTN"",""HLTP4"",111,0)"
^XMB(3.9,43,2,5276,0)=" D STATUS^HLTF0(HLTCP,8)"
^XMB(3.9,43,2,5277,0)="""RTN"",""HLTP4"",112,0)"
^XMB(3.9,43,2,5278,0)=" ;"
^XMB(3.9,43,2,5279,0)="""RTN"",""HLTP4"",113,0)"
^XMB(3.9,43,2,5280,0)=" ;**109**"
^XMB(3.9,43,2,5281,0)="""RTN"",""HLTP4"",114,0)"
^XMB(3.9,43,2,5282,0)=" ;tcp link is open, don't need x-ref, msg will be sent over link"
^XMB(3.9,43,2,5283,0)="""RTN"",""HLTP4"",115,0)"
^XMB(3.9,43,2,5284,0)=" ;I $G(HLTCPO) K ^HLMA(""AC"",""O"",HLOGLINK,HLTCP)"
^XMB(3.9,43,2,5285,0)="""RTN"",""HLTP4"",116,0)"
^XMB(3.9,43,2,5286,0)=" ;"
^XMB(3.9,43,2,5287,0)="""RTN"",""HLTP4"",117,0)"
^XMB(3.9,43,2,5288,0)=" ;update zero node of Message Text file #772"
^XMB(3.9,43,2,5289,0)="""RTN"",""HLTP4"",118,0)"
^XMB(3.9,43,2,5290,0)=" D"
^XMB(3.9,43,2,5291,0)="""RTN"",""HLTP4"",119,0)"
^XMB(3.9,43,2,5292,0)=" . N HLTCP D UPDATE^HLTF0(HLMTIEN,,""O"",HLEID)"
^XMB(3.9,43,2,5293,0)="""RTN"",""HLTP4"",120,0)"
^XMB(3.9,43,2,5294,0)=" ;"
^XMB(3.9,43,2,5295,0)="""RTN"",""HLTP4"",121,0)"
^XMB(3.9,43,2,5296,0)=" ;Execute entry action for subscriber protocol"
^XMB(3.9,43,2,5297,0)="""RTN"",""HLTP4"",122,0)"
^XMB(3.9,43,2,5298,0)=" I HLENROU]"""" X HLENROU"
^XMB(3.9,43,2,5299,0)="""RTN"",""HLTP4"",123,0)"
^XMB(3.9,43,2,5300,0)=" S HLQ="""""""""
^XMB(3.9,43,2,5301,0)="""RTN"",""HLTP4"",124,0)"
^XMB(3.9,43,2,5302,0)=" ;Check that local/global array exists and store in Message Text file"
^XMB(3.9,43,2,5303,0)="""RTN"",""HLTP4"",125,0)"
^XMB(3.9,43,2,5304,0)=" ; if pre-compiled"
^XMB(3.9,43,2,5305,0)="""RTN"",""HLTP4"",126,0)"
^XMB(3.9,43,2,5306,0)=" I HLFORMAT D  I (+$G(HLRESLTA)) D STATUS^HLTF0(HLMTIENA,4,+HLRESLTA) G ERR"
^XMB(3.9,43,2,5307,0)="""RTN"",""HLTP4"",127,0)"
^XMB(3.9,43,2,5308,0)=" . I $E(HLARYTYP)=""G"" D"
^XMB(3.9,43,2,5309,0)="""RTN"",""HLTP4"",128,0)"
^XMB(3.9,43,2,5310,0)=" .. I $O(^TMP(""HLA"",$J,0))']"""" S HLRESLTA=""8^""_$G(^HL(771.7,8,0)) Q"
^XMB(3.9,43,2,5311,0)="""RTN"",""HLTP4"",129,0)"
^XMB(3.9,43,2,5312,0)=" .. D MERGE^HLTF1(""G"",HLMTIEN,""HLA"")"
^XMB(3.9,43,2,5313,0)="""RTN"",""HLTP4"",130,0)"
^XMB(3.9,43,2,5314,0)=" . I $E(HLARYTYP)=""L"" D"
^XMB(3.9,43,2,5315,0)="""RTN"",""HLTP4"",131,0)"
^XMB(3.9,43,2,5316,0)=" .. I $O(HLA(""HLA"",0))']"""" S HLRESLTA=""8^""_$G(^HL(771.7,8,0)) Q"
^XMB(3.9,43,2,5317,0)="""RTN"",""HLTP4"",132,0)"
^XMB(3.9,43,2,5318,0)=" .. D MERGE^HLTF1(""L"",HLMTIEN,""HLA"")"
^XMB(3.9,43,2,5319,0)="""RTN"",""HLTP4"",133,0)"
^XMB(3.9,43,2,5320,0)=" ;If array is not pre-compiled, call message generation routine"
^XMB(3.9,43,2,5321,0)="""RTN"",""HLTP4"",134,0)"
^XMB(3.9,43,2,5322,0)=" I 'HLFORMAT N HLERR D  I $D(HLERR) S HLRESLTA=""9^""_HLERR D STATUS^HLTF0(HLMTIENA,4,9,HLERR) G ERR"
^XMB(3.9,43,2,5323,0)="""RTN"",""HLTP4"",135,0)"
^XMB(3.9,43,2,5324,0)=" .S HLP(""GROUTINE"")=HLP(""GROUTINE"")_""(""_HLMIDA_"",""_HLMTIENA_"",""_HLQ_HLARYTYP_HLQ_"",""_HLSAN_"",""_$P($G(^HL(771.2,$P(HLN(770),""^"",3),0)),""^"")_"",""_$P($G(^HL(779.001,$P(HLN(770),""^"",4),0)),""^"")_"",""_HLQ_$TR($P(HLN(770),""^"",6),""id"",""ID"")_HLQ_"")"""
^XMB(3.9,43,2,5325,0)="""RTN"",""HLTP4"",136,0)"
^XMB(3.9,43,2,5326,0)=" .X HLP(""GROUTINE"")"
^XMB(3.9,43,2,5327,0)="""RTN"",""HLTP4"",137,0)"
^XMB(3.9,43,2,5328,0)=" ;"
^XMB(3.9,43,2,5329,0)="""RTN"",""HLTP4"",138,0)"
^XMB(3.9,43,2,5330,0)=" ;create header for message in 773"
^XMB(3.9,43,2,5331,0)="""RTN"",""HLTP4"",139,0)"
^XMB(3.9,43,2,5332,0)=" I (HLTYPE=""M"") D HEADER^HLCSHDR1(HLTCP,HLREC,.HLRESLT)"
^XMB(3.9,43,2,5333,0)="""RTN"",""HLTP4"",140,0)"
^XMB(3.9,43,2,5334,0)=" I (HLTYPE'=""M"") D BHSHDR^HLCSHDR1(HLTCP,HLREC,.HLRESLT)"
^XMB(3.9,43,2,5335,0)="""RTN"",""HLTP4"",141,0)"
^XMB(3.9,43,2,5336,0)=" ;if error set status to ERROR DURING TRANSMISSION"
^XMB(3.9,43,2,5337,0)="""RTN"",""HLTP4"",142,0)"
^XMB(3.9,43,2,5338,0)=" I ($G(HLRESLT)'="""") D STATUS^HLTF0(HLTCP,4,12,HLRESLT) G ERR"
^XMB(3.9,43,2,5339,0)="""RTN"",""HLTP4"",143,0)"
^XMB(3.9,43,2,5340,0)=" ;set header, HLHDR in 773"
^XMB(3.9,43,2,5341,0)="""RTN"",""HLTP4"",144,0)"
^XMB(3.9,43,2,5342,0)=" K HLQ S X=HLTCP_"","",HLQ(773,X,200)=""HLHDR"""
^XMB(3.9,43,2,5343,0)="""RTN"",""HLTP4"",145,0)"
^XMB(3.9,43,2,5344,0)=" D FILE^HLDIE("""",""HLQ"","""",""GENACK"",""HLTP4"") ;HL*1.6*109"
^XMB(3.9,43,2,5345,0)="""RTN"",""HLTP4"",146,0)"
^XMB(3.9,43,2,5346,0)=" ;D FILE^DIE("""",""HLQ"")"
^XMB(3.9,43,2,5347,0)="""RTN"",""HLTP4"",147,0)"
^XMB(3.9,43,2,5348,0)=" ;update status of 773 to PENDING TRANSMISSION"
^XMB(3.9,43,2,5349,0)="""RTN"",""HLTP4"",148,0)"
^XMB(3.9,43,2,5350,0)=" D STATUS^HLTF0(HLTCP,1)"
^XMB(3.9,43,2,5351,0)="""RTN"",""HLTP4"",149,0)"
^XMB(3.9,43,2,5352,0)=" ;Execute exit action for subscriber protocol"
^XMB(3.9,43,2,5353,0)="""RTN"",""HLTP4"",150,0)"
^XMB(3.9,43,2,5354,0)=" X:HLEXROU]"""" HLEXROU"
^XMB(3.9,43,2,5355,0)="""RTN"",""HLTP4"",151,0)"
^XMB(3.9,43,2,5356,0)=" ;"
^XMB(3.9,43,2,5357,0)="""RTN"",""HLTP4"",152,0)"
^XMB(3.9,43,2,5358,0)=" ;**109**"
^XMB(3.9,43,2,5359,0)="""RTN"",""HLTP4"",153,0)"
^XMB(3.9,43,2,5360,0)=" ;tcp link is NOT open, need x-ref"
^XMB(3.9,43,2,5361,0)="""RTN"",""HLTP4"",154,0)"
^XMB(3.9,43,2,5362,0)=" I '$G(HLTCPO) D ENQUE^HLCSREP(HLOGLINK,""O"",HLTCP)"
^XMB(3.9,43,2,5363,0)="""RTN"",""HLTP4"",155,0)"
^XMB(3.9,43,2,5364,0)=" ;"
^XMB(3.9,43,2,5365,0)="""RTN"",""HLTP4"",156,0)"
^XMB(3.9,43,2,5366,0)="EXIT ;**109**"
^XMB(3.9,43,2,5367,0)="""RTN"",""HLTP4"",157,0)"
^XMB(3.9,43,2,5368,0)=" ;L -^HLMA(HLMTIENA)"
^XMB(3.9,43,2,5369,0)="""RTN"",""HLTP4"",158,0)"
^XMB(3.9,43,2,5370,0)=" Q"
^XMB(3.9,43,2,5371,0)="""RTN"",""HLTP4"",159,0)"
^XMB(3.9,43,2,5372,0)="ERR D EXIT S HLTCP="""""
^XMB(3.9,43,2,5373,0)="""RTN"",""HLTP4"",160,0)"
^XMB(3.9,43,2,5374,0)=" S:$G(HLRESLT) HLRESLTA=$G(HLRESLTA)_""^""_HLRESLT"
^XMB(3.9,43,2,5375,0)="""RTN"",""HLTP4"",161,0)"
^XMB(3.9,43,2,5376,0)=" Q"
^XMB(3.9,43,2,5377,0)="""RTN"",""HLTP4"",162,0)"
^XMB(3.9,43,2,5378,0)="ACK(HLTACK,HLMG) ;build response based on original msg header"
^XMB(3.9,43,2,5379,0)="""RTN"",""HLTP4"",163,0)"
^XMB(3.9,43,2,5380,0)=" ;for Bi-directional TCP"
^XMB(3.9,43,2,5381,0)="""RTN"",""HLTP4"",164,0)"
^XMB(3.9,43,2,5382,0)=" ;INPUT:"
^XMB(3.9,43,2,5383,0)="""RTN"",""HLTP4"",165,0)"
^XMB(3.9,43,2,5384,0)=" ;   HLTACK=type of ack. CA,CR, or AR"
^XMB(3.9,43,2,5385,0)="""RTN"",""HLTP4"",166,0)"
^XMB(3.9,43,2,5386,0)=" ;   HLMG=text for MSA segment"
^XMB(3.9,43,2,5387,0)="""RTN"",""HLTP4"",167,0)"
^XMB(3.9,43,2,5388,0)=" ;   HLMTIENS=original msg. ien #773"
^XMB(3.9,43,2,5389,0)="""RTN"",""HLTP4"",168,0)"
^XMB(3.9,43,2,5390,0)=" ;   HL(array) from original header"
^XMB(3.9,43,2,5391,0)="""RTN"",""HLTP4"",169,0)"
^XMB(3.9,43,2,5392,0)=" ;RETURNS:  HLTCP=ien of response msg. in 773"
^XMB(3.9,43,2,5393,0)="""RTN"",""HLTP4"",170,0)"
^XMB(3.9,43,2,5394,0)=" N HLDT,HLDT1,HLQ,HLFS,HLHDR,HLMIDA,HLMTIEN,HLMTIENA,HLP,HLREC,HLSAN,X"
^XMB(3.9,43,2,5395,0)="""RTN"",""HLTP4"",171,0)"
^XMB(3.9,43,2,5396,0)=" ;quit if we don't have enough to make a msg."
^XMB(3.9,43,2,5397,0)="""RTN"",""HLTP4"",172,0)"
^XMB(3.9,43,2,5398,0)=" I $G(HL(""ECH""))=""""!($G(HL(""FS""))="""")!($G(HL(""TYPE""))="""") Q"
^XMB(3.9,43,2,5399,0)="""RTN"",""HLTP4"",173,0)"
^XMB(3.9,43,2,5400,0)=" ;Extract data from original message and store in separate variables"
^XMB(3.9,43,2,5401,0)="""RTN"",""HLTP4"",174,0)"
^XMB(3.9,43,2,5402,0)=" ;reverse sending and receiving application from original msg."
^XMB(3.9,43,2,5403,0)="""RTN"",""HLTP4"",175,0)"
^XMB(3.9,43,2,5404,0)=" S HLFS=HL(""FS""),HLREC=$G(HL(""SAN"")),HLSAN=$G(HL(""RAN""))"
^XMB(3.9,43,2,5405,0)="""RTN"",""HLTP4"",176,0)"
^XMB(3.9,43,2,5406,0)=" ;create message in 772 & 773, HLMTIENA=new msg ien #773"
^XMB(3.9,43,2,5407,0)="""RTN"",""HLTP4"",177,0)"
^XMB(3.9,43,2,5408,0)=" D TCP^HLTF(.HLMIDA,.HLMTIENA,.HLDT)"
^XMB(3.9,43,2,5409,0)="""RTN"",""HLTP4"",178,0)"
^XMB(3.9,43,2,5410,0)=" ;lock new record"
^XMB(3.9,43,2,5411,0)="""RTN"",""HLTP4"",179,0)"
^XMB(3.9,43,2,5412,0)=" ;**109**"
^XMB(3.9,43,2,5413,0)="""RTN"",""HLTP4"",180,0)"
^XMB(3.9,43,2,5414,0)=" ;F  L +^HLMA(HLMTIENA):1 Q:$T  H 1"
^XMB(3.9,43,2,5415,0)="""RTN"",""HLTP4"",181,0)"
^XMB(3.9,43,2,5416,0)=" ;"
^XMB(3.9,43,2,5417,0)="""RTN"",""HLTP4"",182,0)"
^XMB(3.9,43,2,5418,0)=" ;HLMTIEN=ien in 772"
^XMB(3.9,43,2,5419,0)="""RTN"",""HLTP4"",183,0)"
^XMB(3.9,43,2,5420,0)=" S HLTCP=HLMTIENA,HLMTIEN=+^HLMA(HLMTIENA,0),HLDT1=$$FMTHL7^XLFDT(HLDT)"
^XMB(3.9,43,2,5421,0)="""RTN"",""HLTP4"",184,0)"
^XMB(3.9,43,2,5422,0)=" ;get 'msgtype'=B or M, message type and event type"
^XMB(3.9,43,2,5423,0)="""RTN"",""HLTP4"",185,0)"
^XMB(3.9,43,2,5424,0)=" S HLP(""MSGTYPE"")=$E(HL(""TYPE"")),HLP(""MTYPE"")=$G(HL(""MTP"")),HLP(""EVENT"")=$G(HL(""ETP"")),HLP(""HLTCPI"")=HLMTIENS"
^XMB(3.9,43,2,5425,0)="""RTN"",""HLTP4"",186,0)"
^XMB(3.9,43,2,5426,0)=" S:$G(HL(""MTP_ETP"")) HLP(""MTYPE_EVENT"")=$G(HL(""MTP_ETP""))"
^XMB(3.9,43,2,5427,0)="""RTN"",""HLTP4"",187,0)"
^XMB(3.9,43,2,5428,0)=" ; HL*1.6*117 start"
^XMB(3.9,43,2,5429,0)="""RTN"",""HLTP4"",188,0)"
^XMB(3.9,43,2,5430,0)=" ; change the order of when updates are done on file 773"
^XMB(3.9,43,2,5431,0)="""RTN"",""HLTP4"",189,0)"
^XMB(3.9,43,2,5432,0)=" ;Update zero node of Message Admin file #773"
^XMB(3.9,43,2,5433,0)="""RTN"",""HLTP4"",190,0)"
^XMB(3.9,43,2,5434,0)=" ;D UPDATE^HLTF0(HLTCP,,""O"",,HLREC,HLSAN,""I"",HLMTIENS,HLDP,.HLP)"
^XMB(3.9,43,2,5435,0)="""RTN"",""HLTP4"",191,0)"
^XMB(3.9,43,2,5436,0)=" ;"
^XMB(3.9,43,2,5437,0)="""RTN"",""HLTP4"",192,0)"
^XMB(3.9,43,2,5438,0)=" ;don't need x-ref, msg will be sent back over open tcp link"
^XMB(3.9,43,2,5439,0)="""RTN"",""HLTP4"",193,0)"
^XMB(3.9,43,2,5440,0)=" ;**109**"
^XMB(3.9,43,2,5441,0)="""RTN"",""HLTP4"",194,0)"
^XMB(3.9,43,2,5442,0)=" ;D LLCNT^HLCSTCP(HLDP,3)"
^XMB(3.9,43,2,5443,0)="""RTN"",""HLTP4"",195,0)"
^XMB(3.9,43,2,5444,0)=" ;K ^HLMA(""AC"",""O"",HLDP,HLTCP)"
^XMB(3.9,43,2,5445,0)="""RTN"",""HLTP4"",196,0)"
^XMB(3.9,43,2,5446,0)=" ;"
^XMB(3.9,43,2,5447,0)="""RTN"",""HLTP4"",197,0)"
^XMB(3.9,43,2,5448,0)=" ;Update status to Being Generated"
^XMB(3.9,43,2,5449,0)="""RTN"",""HLTP4"",198,0)"
^XMB(3.9,43,2,5450,0)=" ;D STATUS^HLTF0(HLTCP,8)"
^XMB(3.9,43,2,5451,0)="""RTN"",""HLTP4"",199,0)"
^XMB(3.9,43,2,5452,0)=" ; HL*1.6*117 end"
^XMB(3.9,43,2,5453,0)="""RTN"",""HLTP4"",200,0)"
^XMB(3.9,43,2,5454,0)=" ;update zero node of Message Text file #772"
^XMB(3.9,43,2,5455,0)="""RTN"",""HLTP4"",201,0)"
^XMB(3.9,43,2,5456,0)=" D"
^XMB(3.9,43,2,5457,0)="""RTN"",""HLTP4"",202,0)"
^XMB(3.9,43,2,5458,0)=" . N HLTCP D UPDATE^HLTF0(HLMTIEN,,""O"")"
^XMB(3.9,43,2,5459,0)="""RTN"",""HLTP4"",203,0)"
^XMB(3.9,43,2,5460,0)=" ;"
^XMB(3.9,43,2,5461,0)="""RTN"",""HLTP4"",204,0)"
^XMB(3.9,43,2,5462,0)=" ;build MSA segment"
^XMB(3.9,43,2,5463,0)="""RTN"",""HLTP4"",205,0)"
^XMB(3.9,43,2,5464,0)=" K HLA"
^XMB(3.9,43,2,5465,0)="""RTN"",""HLTP4"",206,0)"
^XMB(3.9,43,2,5466,0)=" S HLA(""HLS"",1)=""MSA""_HLFS_HLTACK_HLFS_$G(HL(""MID""))"
^XMB(3.9,43,2,5467,0)="""RTN"",""HLTP4"",207,0)"
^XMB(3.9,43,2,5468,0)=" S:$G(HLMG)]"""" HLA(""HLS"",1)=HLA(""HLS"",1)_HLFS_HLMG"
^XMB(3.9,43,2,5469,0)="""RTN"",""HLTP4"",208,0)"
^XMB(3.9,43,2,5470,0)=" ;update file 772 with msg text"
^XMB(3.9,43,2,5471,0)="""RTN"",""HLTP4"",209,0)"
^XMB(3.9,43,2,5472,0)=" D MERGE^HLTF1(""L"",HLMTIEN,""HLS"")"
^XMB(3.9,43,2,5473,0)="""RTN"",""HLTP4"",210,0)"
^XMB(3.9,43,2,5474,0)=" D HDR"
^XMB(3.9,43,2,5475,0)="""RTN"",""HLTP4"",211,0)"
^XMB(3.9,43,2,5476,0)=" ;update file 773 with msg header"
^XMB(3.9,43,2,5477,0)="""RTN"",""HLTP4"",212,0)"
^XMB(3.9,43,2,5478,0)=" K HLQ S HLQ(773,HLTCP_"","",200)=""HLHDR"""
^XMB(3.9,43,2,5479,0)="""RTN"",""HLTP4"",213,0)"
^XMB(3.9,43,2,5480,0)=" D FILE^HLDIE("""",""HLQ"","""",""ACK"",""HLTP4"") ; HL*1.6*109"
^XMB(3.9,43,2,5481,0)="""RTN"",""HLTP4"",214,0)"
^XMB(3.9,43,2,5482,0)=" ;D FILE^DIE("""",""HLQ"")"
^XMB(3.9,43,2,5483,0)="""RTN"",""HLTP4"",215,0)"
^XMB(3.9,43,2,5484,0)=" ; HL*1.6*117 start"
^XMB(3.9,43,2,5485,0)="""RTN"",""HLTP4"",216,0)"
^XMB(3.9,43,2,5486,0)=" ; finally commit updates to 773 that will affect behavior of messaging"
^XMB(3.9,43,2,5487,0)="""RTN"",""HLTP4"",217,0)"
^XMB(3.9,43,2,5488,0)=" ;Update status to Being Generated"
^XMB(3.9,43,2,5489,0)="""RTN"",""HLTP4"",218,0)"
^XMB(3.9,43,2,5490,0)=" D STATUS^HLTF0(HLTCP,8)"
^XMB(3.9,43,2,5491,0)="""RTN"",""HLTP4"",219,0)"
^XMB(3.9,43,2,5492,0)=" ;Update zero node of Message Admin file #773"
^XMB(3.9,43,2,5493,0)="""RTN"",""HLTP4"",220,0)"
^XMB(3.9,43,2,5494,0)=" D UPDATE^HLTF0(HLTCP,,""O"",,HLREC,HLSAN,""I"",HLMTIENS,HLDP,.HLP)"
^XMB(3.9,43,2,5495,0)="""RTN"",""HLTP4"",221,0)"
^XMB(3.9,43,2,5496,0)=" ; update message sent count"
^XMB(3.9,43,2,5497,0)="""RTN"",""HLTP4"",222,0)"
^XMB(3.9,43,2,5498,0)=" D LLCNT^HLCSTCP(HLDP,3)"
^XMB(3.9,43,2,5499,0)="""RTN"",""HLTP4"",223,0)"
^XMB(3.9,43,2,5500,0)=" ; HL*1.6*117 end"
^XMB(3.9,43,2,5501,0)="""RTN"",""HLTP4"",224,0)"
^XMB(3.9,43,2,5502,0)=" G EXIT"
^XMB(3.9,43,2,5503,0)="""RTN"",""HLTP4"",225,0)"
^XMB(3.9,43,2,5504,0)=" ;"
^XMB(3.9,43,2,5505,0)="""RTN"",""HLTP4"",226,0)"
^XMB(3.9,43,2,5506,0)="HDR ; build header for commit ack"
^XMB(3.9,43,2,5507,0)="""RTN"",""HLTP4"",227,0)"
^XMB(3.9,43,2,5508,0)=" K HLHDR"
^XMB(3.9,43,2,5509,0)="""RTN"",""HLTP4"",228,0)"
^XMB(3.9,43,2,5510,0)=" S HLHDR(1)=HL(""TYPE"")_HLFS_HL(""ECH"")_HLFS_HLSAN_HLFS_$G(HL(""RFN""))_HLFS_HLREC_HLFS_$G(HL(""SFN""))_HLFS_HLDT1_HLFS_HLFS"
^XMB(3.9,43,2,5511,0)="""RTN"",""HLTP4"",229,0)"
^XMB(3.9,43,2,5512,0)=" I HLP(""MSGTYPE"")=""M"" S HLHDR(1)=HLHDR(1)_""ACK""_HLFS_HLMIDA_HLFS_$G(HL(""PID""))_HLFS_$G(HL(""VER"")) Q"
^XMB(3.9,43,2,5513,0)="""RTN"",""HLTP4"",230,0)"
^XMB(3.9,43,2,5514,0)=" ;batch"
^XMB(3.9,43,2,5515,0)="""RTN"",""HLTP4"",231,0)"
^XMB(3.9,43,2,5516,0)=" S X=$E(HL(""ECH""))"
^XMB(3.9,43,2,5517,0)="""RTN"",""HLTP4"",232,0)"
^XMB(3.9,43,2,5518,0)=" S HLHDR(1)=HLHDR(1)_X_$G(HL(""PID""))_X_""ACK""_HLFS_HLTACK_HLFS_HLMIDA_HLFS_$G(HL(""MID""))"
^XMB(3.9,43,2,5519,0)="""RTN"",""HLTP4"",233,0)"
^XMB(3.9,43,2,5520,0)=" Q"
^XMB(3.9,43,2,5521,0)="""RTN"",""HLTPCK1"")"
^XMB(3.9,43,2,5522,0)="0^5^B31754890^B7916664"
^XMB(3.9,43,2,5523,0)="""RTN"",""HLTPCK1"",1,0)"
^XMB(3.9,43,2,5524,0)="HLTPCK1 ;AISC/SAW-Header Validation Routine (non-TCP link) ;07/19/2005  15:38"
^XMB(3.9,43,2,5525,0)="""RTN"",""HLTPCK1"",2,0)"
^XMB(3.9,43,2,5526,0)=" ;;1.6;HEALTH LEVEL SEVEN;**8,36,59,120**;Oct 13, 1995;Build 12"
^XMB(3.9,43,2,5527,0)="""RTN"",""HLTPCK1"",3,0)"
^XMB(3.9,43,2,5528,0)="CHK(HDR,ARY,MSA) ;Validate Data in Header Segment (MSH, BHS or FHS) of"
^XMB(3.9,43,2,5529,0)="""RTN"",""HLTPCK1"",4,0)"
^XMB(3.9,43,2,5530,0)=" ;an HL7 Message through non-TCP link"
^XMB(3.9,43,2,5531,0)="""RTN"",""HLTPCK1"",5,0)"
^XMB(3.9,43,2,5532,0)=" ;"
^XMB(3.9,43,2,5533,0)="""RTN"",""HLTPCK1"",6,0)"
^XMB(3.9,43,2,5534,0)=" ;This entry point is a subroutine call with parameter passing that"
^XMB(3.9,43,2,5535,0)="""RTN"",""HLTPCK1"",7,0)"
^XMB(3.9,43,2,5536,0)=" ;will return an array (ARY()) consisting of values extracted from"
^XMB(3.9,43,2,5537,0)="""RTN"",""HLTPCK1"",8,0)"
^XMB(3.9,43,2,5538,0)=" ;the message header segment subscripted by the mnemonics for each of"
^XMB(3.9,43,2,5539,0)="""RTN"",""HLTPCK1"",9,0)"
^XMB(3.9,43,2,5540,0)=" ;the message header fields and components"
^XMB(3.9,43,2,5541,0)="""RTN"",""HLTPCK1"",10,0)"
^XMB(3.9,43,2,5542,0)=" ;If an error is encountered during validation, the array parameter"
^XMB(3.9,43,2,5543,0)="""RTN"",""HLTPCK1"",11,0)"
^XMB(3.9,43,2,5544,0)=" ;(ARY) will be set equal to two pieces, error #^error text"
^XMB(3.9,43,2,5545,0)="""RTN"",""HLTPCK1"",12,0)"
^XMB(3.9,43,2,5546,0)=" ;"
^XMB(3.9,43,2,5547,0)="""RTN"",""HLTPCK1"",13,0)"
^XMB(3.9,43,2,5548,0)=" ;Required input parameters:"
^XMB(3.9,43,2,5549,0)="""RTN"",""HLTPCK1"",14,0)"
^XMB(3.9,43,2,5550,0)=" ;  HDR = Message header segment"
^XMB(3.9,43,2,5551,0)="""RTN"",""HLTPCK1"",15,0)"
^XMB(3.9,43,2,5552,0)=" ;"
^XMB(3.9,43,2,5553,0)="""RTN"",""HLTPCK1"",16,0)"
^XMB(3.9,43,2,5554,0)=" ;  ARY = The array in which the message header values will be"
^XMB(3.9,43,2,5555,0)="""RTN"",""HLTPCK1"",17,0)"
^XMB(3.9,43,2,5556,0)=" ;          returned"
^XMB(3.9,43,2,5557,0)="""RTN"",""HLTPCK1"",18,0)"
^XMB(3.9,43,2,5558,0)=" ;  Note:  The ARY parameter must be passed by reference"
^XMB(3.9,43,2,5559,0)="""RTN"",""HLTPCK1"",19,0)"
^XMB(3.9,43,2,5560,0)=" ;"
^XMB(3.9,43,2,5561,0)="""RTN"",""HLTPCK1"",20,0)"
^XMB(3.9,43,2,5562,0)=" ;Optional input parameter:"
^XMB(3.9,43,2,5563,0)="""RTN"",""HLTPCK1"",21,0)"
^XMB(3.9,43,2,5564,0)=" ;  MSA = A variable which contains the message acknowledgement values:"
^XMB(3.9,43,2,5565,0)="""RTN"",""HLTPCK1"",22,0)"
^XMB(3.9,43,2,5566,0)=" ;          acknowledgement code^message control ID^text message"
^XMB(3.9,43,2,5567,0)="""RTN"",""HLTPCK1"",23,0)"
^XMB(3.9,43,2,5568,0)=" ;"
^XMB(3.9,43,2,5569,0)="""RTN"",""HLTPCK1"",24,0)"
^XMB(3.9,43,2,5570,0)=" ;Check for required parameters"
^XMB(3.9,43,2,5571,0)="""RTN"",""HLTPCK1"",25,0)"
^XMB(3.9,43,2,5572,0)=" N ERR S ERR="""""
^XMB(3.9,43,2,5573,0)="""RTN"",""HLTPCK1"",26,0)"
^XMB(3.9,43,2,5574,0)=" I $G(HDR)']"""" S ERR=""7^""_$G(^HL(771.7,7,0))_"" at CHK^HLTPCK1 entry point"" G EXIT"
^XMB(3.9,43,2,5575,0)="""RTN"",""HLTPCK1"",27,0)"
^XMB(3.9,43,2,5576,0)=" N ECH,HLN,FS,X,X1,X2"
^XMB(3.9,43,2,5577,0)="""RTN"",""HLTPCK1"",28,0)"
^XMB(3.9,43,2,5578,0)=" S ARY="""",ARY(""Q"")="""""""""""""
^XMB(3.9,43,2,5579,0)="""RTN"",""HLTPCK1"",29,0)"
^XMB(3.9,43,2,5580,0)=" ;"
^XMB(3.9,43,2,5581,0)="""RTN"",""HLTPCK1"",30,0)"
^XMB(3.9,43,2,5582,0)=" ;Validate field separator and encoding characters"
^XMB(3.9,43,2,5583,0)="""RTN"",""HLTPCK1"",31,0)"
^XMB(3.9,43,2,5584,0)=" S (ARY(""FS""),FS)=$E(HDR,4)"
^XMB(3.9,43,2,5585,0)="""RTN"",""HLTPCK1"",32,0)"
^XMB(3.9,43,2,5586,0)=" I FS']"""" S ERR=""Field Separator Missing"" G EXIT"
^XMB(3.9,43,2,5587,0)="""RTN"",""HLTPCK1"",33,0)"
^XMB(3.9,43,2,5588,0)=" I FS?.C S ERR=""Invalid Field Separator"" G EXIT"
^XMB(3.9,43,2,5589,0)="""RTN"",""HLTPCK1"",34,0)"
^XMB(3.9,43,2,5590,0)=" S (ARY(""ECH""),ECH)=$P(HDR,FS,2)"
^XMB(3.9,43,2,5591,0)="""RTN"",""HLTPCK1"",35,0)"
^XMB(3.9,43,2,5592,0)=" I ECH']"""" S ERR=""Encoding Characters Missing"" G EXIT"
^XMB(3.9,43,2,5593,0)="""RTN"",""HLTPCK1"",36,0)"
^XMB(3.9,43,2,5594,0)=" I ECH?.C S ERR=""Invalid Encoding Characters"" G EXIT"
^XMB(3.9,43,2,5595,0)="""RTN"",""HLTPCK1"",37,0)"
^XMB(3.9,43,2,5596,0)=" ;"
^XMB(3.9,43,2,5597,0)="""RTN"",""HLTPCK1"",38,0)"
^XMB(3.9,43,2,5598,0)=" ; patch HL*1.6*120 start"
^XMB(3.9,43,2,5599,0)="""RTN"",""HLTPCK1"",39,0)"
^XMB(3.9,43,2,5600,0)=" I $L(ECH)'=4 S ERR=""Invalid Encoding Characters"" G EXIT"
^XMB(3.9,43,2,5601,0)="""RTN"",""HLTPCK1"",40,0)"
^XMB(3.9,43,2,5602,0)=" S ECH(1)=$E(ECH)"
^XMB(3.9,43,2,5603,0)="""RTN"",""HLTPCK1"",41,0)"
^XMB(3.9,43,2,5604,0)=" S ECH(2)=$E(ECH,2)"
^XMB(3.9,43,2,5605,0)="""RTN"",""HLTPCK1"",42,0)"
^XMB(3.9,43,2,5606,0)=" S ECH(4)=$E(ECH,4)"
^XMB(3.9,43,2,5607,0)="""RTN"",""HLTPCK1"",43,0)"
^XMB(3.9,43,2,5608,0)=" S ARY(""HDR"")=HDR"
^XMB(3.9,43,2,5609,0)="""RTN"",""HLTPCK1"",44,0)"
^XMB(3.9,43,2,5610,0)=" S ARY(""HDR-1"")=$E(HDR,1,3)"
^XMB(3.9,43,2,5611,0)="""RTN"",""HLTPCK1"",45,0)"
^XMB(3.9,43,2,5612,0)=" ;"
^XMB(3.9,43,2,5613,0)="""RTN"",""HLTPCK1"",46,0)"
^XMB(3.9,43,2,5614,0)=" ;Validate Message Header Type"
^XMB(3.9,43,2,5615,0)="""RTN"",""HLTPCK1"",47,0)"
^XMB(3.9,43,2,5616,0)=" ; I ""FHS,BHS,MSH""'[$E(HDR,1,3) S ERR=""Invalid Message Header Segment"" G EXIT"
^XMB(3.9,43,2,5617,0)="""RTN"",""HLTPCK1"",48,0)"
^XMB(3.9,43,2,5618,0)=" I ""FHS,BHS,MSH""'[ARY(""HDR-1"") S ERR=""Invalid Message Header"" G EXIT"
^XMB(3.9,43,2,5619,0)="""RTN"",""HLTPCK1"",49,0)"
^XMB(3.9,43,2,5620,0)=" ;"
^XMB(3.9,43,2,5621,0)="""RTN"",""HLTPCK1"",50,0)"
^XMB(3.9,43,2,5622,0)=" ;Extract data from message header segment"
^XMB(3.9,43,2,5623,0)="""RTN"",""HLTPCK1"",51,0)"
^XMB(3.9,43,2,5624,0)=" ; I $E(HDR,1,3)=""BHS""!($E(HDR,1,3)=""FHS"") D"
^XMB(3.9,43,2,5625,0)="""RTN"",""HLTPCK1"",52,0)"
^XMB(3.9,43,2,5626,0)=" I ARY(""HDR-1"")=""BHS""!(ARY(""HDR-1"")=""FHS"") D"
^XMB(3.9,43,2,5627,0)="""RTN"",""HLTPCK1"",53,0)"
^XMB(3.9,43,2,5628,0)=" . ;S ARY(""DTM"")=$P(HDR,FS,7),ARY(""MID"")=$P(HDR,FS,11),X=$P(HDR,FS,9),ARY(""PID"")=$P(X,$E(ECH),2),ARY(""MTN"")=$P($P(X,$E(ECH),3),$E(ECH,2)),ARY(""ETN"")=$P($P(X,$E(ECH),3),$E(ECH,2),2),ARY(""VER"")=$P(X,$E(ECH),4)"
^XMB(3.9,43,2,5629,0)="""RTN"",""HLTPCK1"",54,0)"
^XMB(3.9,43,2,5630,0)=" . S ARY(""DTM"")=$P(HDR,FS,7)"
^XMB(3.9,43,2,5631,0)="""RTN"",""HLTPCK1"",55,0)"
^XMB(3.9,43,2,5632,0)=" . S ARY(""MID"")=$P(HDR,FS,11)"
^XMB(3.9,43,2,5633,0)="""RTN"",""HLTPCK1"",56,0)"
^XMB(3.9,43,2,5634,0)=" . S ARY(""PID"")="""""
^XMB(3.9,43,2,5635,0)="""RTN"",""HLTPCK1"",57,0)"
^XMB(3.9,43,2,5636,0)=" . S ARY(""MTN"")="""""
^XMB(3.9,43,2,5637,0)="""RTN"",""HLTPCK1"",58,0)"
^XMB(3.9,43,2,5638,0)=" . S ARY(""ETN"")="""""
^XMB(3.9,43,2,5639,0)="""RTN"",""HLTPCK1"",59,0)"
^XMB(3.9,43,2,5640,0)=" . S ARY(""VER"")="""""
^XMB(3.9,43,2,5641,0)="""RTN"",""HLTPCK1"",60,0)"
^XMB(3.9,43,2,5642,0)=" . ;"
^XMB(3.9,43,2,5643,0)="""RTN"",""HLTPCK1"",61,0)"
^XMB(3.9,43,2,5644,0)=" . ; BHS-9, Batch name/ID/type:"
^XMB(3.9,43,2,5645,0)="""RTN"",""HLTPCK1"",62,0)"
^XMB(3.9,43,2,5646,0)=" . ; 2nd component: Processing id <sub> Processing mode"
^XMB(3.9,43,2,5647,0)="""RTN"",""HLTPCK1"",63,0)"
^XMB(3.9,43,2,5648,0)=" . ; 3rd component: message type <sub> event type"
^XMB(3.9,43,2,5649,0)="""RTN"",""HLTPCK1"",64,0)"
^XMB(3.9,43,2,5650,0)=" . ; 4th component: version"
^XMB(3.9,43,2,5651,0)="""RTN"",""HLTPCK1"",65,0)"
^XMB(3.9,43,2,5652,0)=" . S X=$P(HDR,FS,9)"
^XMB(3.9,43,2,5653,0)="""RTN"",""HLTPCK1"",66,0)"
^XMB(3.9,43,2,5654,0)=" . I X]"""" D"
^XMB(3.9,43,2,5655,0)="""RTN"",""HLTPCK1"",67,0)"
^XMB(3.9,43,2,5656,0)=" .. S ARY(""HDR-9"")=X"
^XMB(3.9,43,2,5657,0)="""RTN"",""HLTPCK1"",68,0)"
^XMB(3.9,43,2,5658,0)=" .. ; original implementation incorrectly treats repetition separator as"
^XMB(3.9,43,2,5659,0)="""RTN"",""HLTPCK1"",69,0)"
^XMB(3.9,43,2,5660,0)=" .. ; subcomponent separator"
^XMB(3.9,43,2,5661,0)="""RTN"",""HLTPCK1"",70,0)"
^XMB(3.9,43,2,5662,0)=" .. S ECH(""SUB-COMPONENT"")=ECH(2)"
^XMB(3.9,43,2,5663,0)="""RTN"",""HLTPCK1"",71,0)"
^XMB(3.9,43,2,5664,0)=" .. ; if subcomponent separator is correctly applied"
^XMB(3.9,43,2,5665,0)="""RTN"",""HLTPCK1"",72,0)"
^XMB(3.9,43,2,5666,0)=" .. I X[ECH(4) S ECH(""SUB-COMPONENT"")=ECH(4)"
^XMB(3.9,43,2,5667,0)="""RTN"",""HLTPCK1"",73,0)"
^XMB(3.9,43,2,5668,0)=" .. ;"
^XMB(3.9,43,2,5669,0)="""RTN"",""HLTPCK1"",74,0)"
^XMB(3.9,43,2,5670,0)=" .. S ARY(""PID"")=$P(X,ECH(1),2)"
^XMB(3.9,43,2,5671,0)="""RTN"",""HLTPCK1"",75,0)"
^XMB(3.9,43,2,5672,0)=" .. I ARY(""PID"")[ECH(""SUB-COMPONENT"") D"
^XMB(3.9,43,2,5673,0)="""RTN"",""HLTPCK1"",76,0)"
^XMB(3.9,43,2,5674,0)=" ... ; 2nd sub-component is Processing mode"
^XMB(3.9,43,2,5675,0)="""RTN"",""HLTPCK1"",77,0)"
^XMB(3.9,43,2,5676,0)=" ... S ARY(""PMOD"")=$P(ARY(""PID""),ECH(""SUB-COMPONENT""),2)"
^XMB(3.9,43,2,5677,0)="""RTN"",""HLTPCK1"",78,0)"
^XMB(3.9,43,2,5678,0)=" ... ; first sub-component is Processing id"
^XMB(3.9,43,2,5679,0)="""RTN"",""HLTPCK1"",79,0)"
^XMB(3.9,43,2,5680,0)=" ... S ARY(""PID"")=$P(ARY(""PID""),ECH(""SUB-COMPONENT""))"
^XMB(3.9,43,2,5681,0)="""RTN"",""HLTPCK1"",80,0)"
^XMB(3.9,43,2,5682,0)=" .. ;"
^XMB(3.9,43,2,5683,0)="""RTN"",""HLTPCK1"",81,0)"
^XMB(3.9,43,2,5684,0)=" .. S ARY(""MTN"")=$P(X,ECH(1),3)"
^XMB(3.9,43,2,5685,0)="""RTN"",""HLTPCK1"",82,0)"
^XMB(3.9,43,2,5686,0)=" .. ; 2nd sub-component is event type"
^XMB(3.9,43,2,5687,0)="""RTN"",""HLTPCK1"",83,0)"
^XMB(3.9,43,2,5688,0)=" .. S ARY(""ETN"")=$P(ARY(""MTN""),ECH(""SUB-COMPONENT""),2)"
^XMB(3.9,43,2,5689,0)="""RTN"",""HLTPCK1"",84,0)"
^XMB(3.9,43,2,5690,0)=" .. ; 1st sub-component is message type"
^XMB(3.9,43,2,5691,0)="""RTN"",""HLTPCK1"",85,0)"
^XMB(3.9,43,2,5692,0)=" .. S ARY(""MTN"")=$P(ARY(""MTN""),ECH(""SUB-COMPONENT""))"
^XMB(3.9,43,2,5693,0)="""RTN"",""HLTPCK1"",86,0)"
^XMB(3.9,43,2,5694,0)=" .. S ARY(""VER"")=$P(X,ECH(1),4)"
^XMB(3.9,43,2,5695,0)="""RTN"",""HLTPCK1"",87,0)"
^XMB(3.9,43,2,5696,0)=" . ;"
^XMB(3.9,43,2,5697,0)="""RTN"",""HLTPCK1"",88,0)"
^XMB(3.9,43,2,5698,0)=" . ; BHS-10, batch comment"
^XMB(3.9,43,2,5699,0)="""RTN"",""HLTPCK1"",89,0)"
^XMB(3.9,43,2,5700,0)=" . ; S:$P(HDR,FS,10)]"""" MSA=$P($P(HDR,FS,10),$E(ECH),1),$P(MSA,FS,2)=$P(HDR,FS,12),$P(MSA,FS,3)=$P($P(HDR,FS,10),$E(ECH),2)"
^XMB(3.9,43,2,5701,0)="""RTN"",""HLTPCK1"",90,0)"
^XMB(3.9,43,2,5702,0)=" . ; first component: MSA-1, acknowledgment code"
^XMB(3.9,43,2,5703,0)="""RTN"",""HLTPCK1"",91,0)"
^XMB(3.9,43,2,5704,0)=" . ; 2nd component: MSA-3, text message"
^XMB(3.9,43,2,5705,0)="""RTN"",""HLTPCK1"",92,0)"
^XMB(3.9,43,2,5706,0)=" . ;"
^XMB(3.9,43,2,5707,0)="""RTN"",""HLTPCK1"",93,0)"
^XMB(3.9,43,2,5708,0)=" . S X=$P(HDR,FS,10)"
^XMB(3.9,43,2,5709,0)="""RTN"",""HLTPCK1"",94,0)"
^XMB(3.9,43,2,5710,0)=" . I X]"""" D"
^XMB(3.9,43,2,5711,0)="""RTN"",""HLTPCK1"",95,0)"
^XMB(3.9,43,2,5712,0)=" .. S ARY(""HDR-10"")=X"
^XMB(3.9,43,2,5713,0)="""RTN"",""HLTPCK1"",96,0)"
^XMB(3.9,43,2,5714,0)=" .. ; MSA-1, acknowledgment code: AA,AE,AR,CA,CE,CR"
^XMB(3.9,43,2,5715,0)="""RTN"",""HLTPCK1"",97,0)"
^XMB(3.9,43,2,5716,0)=" .. S MSA=$P(X,ECH(1),1)"
^XMB(3.9,43,2,5717,0)="""RTN"",""HLTPCK1"",98,0)"
^XMB(3.9,43,2,5718,0)=" .. ; MSA-2 and BHS-12, reference batch control id"
^XMB(3.9,43,2,5719,0)="""RTN"",""HLTPCK1"",99,0)"
^XMB(3.9,43,2,5720,0)=" .. S $P(MSA,FS,2)=$P(HDR,FS,12)"
^XMB(3.9,43,2,5721,0)="""RTN"",""HLTPCK1"",100,0)"
^XMB(3.9,43,2,5722,0)=" .. ; MSA-3, text message"
^XMB(3.9,43,2,5723,0)="""RTN"",""HLTPCK1"",101,0)"
^XMB(3.9,43,2,5724,0)=" .. S $P(MSA,FS,3)=$P(X,ECH(1),2)"
^XMB(3.9,43,2,5725,0)="""RTN"",""HLTPCK1"",102,0)"
^XMB(3.9,43,2,5726,0)=" . ; Reference Batch Control ID"
^XMB(3.9,43,2,5727,0)="""RTN"",""HLTPCK1"",103,0)"
^XMB(3.9,43,2,5728,0)=" . S:$P(HDR,FS,12)]"""" ARY(""HDR-12"")=$P(HDR,FS,12)"
^XMB(3.9,43,2,5729,0)="""RTN"",""HLTPCK1"",104,0)"
^XMB(3.9,43,2,5730,0)=" ;"
^XMB(3.9,43,2,5731,0)="""RTN"",""HLTPCK1"",105,0)"
^XMB(3.9,43,2,5732,0)=" ; I $E(HDR,1,3)=""MSH"" D"
^XMB(3.9,43,2,5733,0)="""RTN"",""HLTPCK1"",106,0)"
^XMB(3.9,43,2,5734,0)=" I ARY(""HDR-1"")=""MSH"" D"
^XMB(3.9,43,2,5735,0)="""RTN"",""HLTPCK1"",107,0)"
^XMB(3.9,43,2,5736,0)=" . ;S ARY(""DTM"")=$P(HDR,FS,7),ARY(""MID"")=$P(HDR,FS,10),ARY(""PID"")=$P(HDR,FS,11),ARY(""MTN"")=$P($P(HDR,FS,9),$E(ECH)),ARY(""ETN"")=$P($P(HDR,FS,9),$E(ECH),2),ARY(""VER"")=$P(HDR,FS,12)"
^XMB(3.9,43,2,5737,0)="""RTN"",""HLTPCK1"",108,0)"
^XMB(3.9,43,2,5738,0)=" . S ARY(""DTM"")=$P(HDR,FS,7)"
^XMB(3.9,43,2,5739,0)="""RTN"",""HLTPCK1"",109,0)"
^XMB(3.9,43,2,5740,0)=" . S ARY(""MID"")=$P(HDR,FS,10)"
^XMB(3.9,43,2,5741,0)="""RTN"",""HLTPCK1"",110,0)"
^XMB(3.9,43,2,5742,0)=" . S ARY(""PID"")=$P(HDR,FS,11)"
^XMB(3.9,43,2,5743,0)="""RTN"",""HLTPCK1"",111,0)"
^XMB(3.9,43,2,5744,0)=" . S ARY(""MTN"")=$P($P(HDR,FS,9),ECH(1))"
^XMB(3.9,43,2,5745,0)="""RTN"",""HLTPCK1"",112,0)"
^XMB(3.9,43,2,5746,0)=" . S ARY(""ETN"")=$P($P(HDR,FS,9),ECH(1),2)"
^XMB(3.9,43,2,5747,0)="""RTN"",""HLTPCK1"",113,0)"
^XMB(3.9,43,2,5748,0)=" . S ARY(""VER"")=$P(HDR,FS,12)"
^XMB(3.9,43,2,5749,0)="""RTN"",""HLTPCK1"",114,0)"
^XMB(3.9,43,2,5750,0)=" . ;"
^XMB(3.9,43,2,5751,0)="""RTN"",""HLTPCK1"",115,0)"
^XMB(3.9,43,2,5752,0)=" . ; 2nd sub-component is Processing mode"
^XMB(3.9,43,2,5753,0)="""RTN"",""HLTPCK1"",116,0)"
^XMB(3.9,43,2,5754,0)=" . I ARY(""PID"")[ECH(1) D"
^XMB(3.9,43,2,5755,0)="""RTN"",""HLTPCK1"",117,0)"
^XMB(3.9,43,2,5756,0)=" .. S ARY(""PMOD"")=$P(ARY(""PID""),ECH(1),2)"
^XMB(3.9,43,2,5757,0)="""RTN"",""HLTPCK1"",118,0)"
^XMB(3.9,43,2,5758,0)=" .. ; first sub-component is Processing id"
^XMB(3.9,43,2,5759,0)="""RTN"",""HLTPCK1"",119,0)"
^XMB(3.9,43,2,5760,0)=" .. S ARY(""PID"")=$P(ARY(""PID""),ECH(1))"
^XMB(3.9,43,2,5761,0)="""RTN"",""HLTPCK1"",120,0)"
^XMB(3.9,43,2,5762,0)=" . ;"
^XMB(3.9,43,2,5763,0)="""RTN"",""HLTPCK1"",121,0)"
^XMB(3.9,43,2,5764,0)=" . ; S:$P($P(HDR,FS,9),$E(ECH),3)]"""" ARY(""MTN_ETN"")=$P($P(HDR,FS,9),$E(ECH),3)"
^XMB(3.9,43,2,5765,0)="""RTN"",""HLTPCK1"",122,0)"
^XMB(3.9,43,2,5766,0)=" .I $P($P(HDR,FS,9),ECH(1),3)]"""" D"
^XMB(3.9,43,2,5767,0)="""RTN"",""HLTPCK1"",123,0)"
^XMB(3.9,43,2,5768,0)=" .. S ARY(""MTN_ETN"")=$P($P(HDR,FS,9),ECH(1),3)"
^XMB(3.9,43,2,5769,0)="""RTN"",""HLTPCK1"",124,0)"
^XMB(3.9,43,2,5770,0)=" . ;"
^XMB(3.9,43,2,5771,0)="""RTN"",""HLTPCK1"",125,0)"
^XMB(3.9,43,2,5772,0)=" . ; fields 13 and 14"
^XMB(3.9,43,2,5773,0)="""RTN"",""HLTPCK1"",126,0)"
^XMB(3.9,43,2,5774,0)=" . S:$P(HDR,FS,13)]"""" ARY(""MSH-13"")=$P(HDR,FS,13)"
^XMB(3.9,43,2,5775,0)="""RTN"",""HLTPCK1"",127,0)"
^XMB(3.9,43,2,5776,0)=" . S:$P(HDR,FS,14)]"""" ARY(""MSH-14"")=$P(HDR,FS,14)"
^XMB(3.9,43,2,5777,0)="""RTN"",""HLTPCK1"",128,0)"
^XMB(3.9,43,2,5778,0)=" . ;"
^XMB(3.9,43,2,5779,0)="""RTN"",""HLTPCK1"",129,0)"
^XMB(3.9,43,2,5780,0)=" . ; S:$P(HDR,FS,15)]"""" ARY(""ACAT"")=$P(HDR,FS,15) S:$P(HDR,FS,16)]"""" ARY(""APAT"")=$P(HDR,FS,16) S:$P(HDR,FS,17)]"""" ARY(""CC"")=$P(HDR,FS,17)"
^XMB(3.9,43,2,5781,0)="""RTN"",""HLTPCK1"",130,0)"
^XMB(3.9,43,2,5782,0)=" . S:$P(HDR,FS,15)]"""" ARY(""ACAT"")=$P(HDR,FS,15)"
^XMB(3.9,43,2,5783,0)="""RTN"",""HLTPCK1"",131,0)"
^XMB(3.9,43,2,5784,0)=" . S:$P(HDR,FS,16)]"""" ARY(""APAT"")=$P(HDR,FS,16)"
^XMB(3.9,43,2,5785,0)="""RTN"",""HLTPCK1"",132,0)"
^XMB(3.9,43,2,5786,0)=" . S:$P(HDR,FS,17)]"""" ARY(""CC"")=$P(HDR,FS,17)"
^XMB(3.9,43,2,5787,0)="""RTN"",""HLTPCK1"",133,0)"
^XMB(3.9,43,2,5788,0)=" . ;"
^XMB(3.9,43,2,5789,0)="""RTN"",""HLTPCK1"",134,0)"
^XMB(3.9,43,2,5790,0)=" . ; fields 18,19,20 and 21"
^XMB(3.9,43,2,5791,0)="""RTN"",""HLTPCK1"",135,0)"
^XMB(3.9,43,2,5792,0)=" . S:$P(HDR,FS,18)]"""" ARY(""MSH-18"")=$P(HDR,FS,18)"
^XMB(3.9,43,2,5793,0)="""RTN"",""HLTPCK1"",136,0)"
^XMB(3.9,43,2,5794,0)=" . S:$P(HDR,FS,19)]"""" ARY(""MSH-19"")=$P(HDR,FS,19)"
^XMB(3.9,43,2,5795,0)="""RTN"",""HLTPCK1"",137,0)"
^XMB(3.9,43,2,5796,0)=" . S:$P(HDR,FS,20)]"""" ARY(""MSH-20"")=$P(HDR,FS,20)"
^XMB(3.9,43,2,5797,0)="""RTN"",""HLTPCK1"",138,0)"
^XMB(3.9,43,2,5798,0)=" . S:$P(HDR,FS,21)]"""" ARY(""MSH-21"")=$P(HDR,FS,21)"
^XMB(3.9,43,2,5799,0)="""RTN"",""HLTPCK1"",139,0)"
^XMB(3.9,43,2,5800,0)=" K:$G(MSA)']"""" MSA"
^XMB(3.9,43,2,5801,0)="""RTN"",""HLTPCK1"",140,0)"
^XMB(3.9,43,2,5802,0)=" ;"
^XMB(3.9,43,2,5803,0)="""RTN"",""HLTPCK1"",141,0)"
^XMB(3.9,43,2,5804,0)=" S ARY(""RAF"")=$P(HDR,FS,6)  ; receiving facility"
^XMB(3.9,43,2,5805,0)="""RTN"",""HLTPCK1"",142,0)"
^XMB(3.9,43,2,5806,0)=" S ARY(""SAF"")=$P(HDR,FS,4)  ; sending facility"
^XMB(3.9,43,2,5807,0)="""RTN"",""HLTPCK1"",143,0)"
^XMB(3.9,43,2,5808,0)=" ;"
^XMB(3.9,43,2,5809,0)="""RTN"",""HLTPCK1"",144,0)"
^XMB(3.9,43,2,5810,0)=" ;Invoke continuation routine to perform remaining validation checks"
^XMB(3.9,43,2,5811,0)="""RTN"",""HLTPCK1"",145,0)"
^XMB(3.9,43,2,5812,0)=" D ^HLTPCK1A"
^XMB(3.9,43,2,5813,0)="""RTN"",""HLTPCK1"",146,0)"
^XMB(3.9,43,2,5814,0)=" ;"
^XMB(3.9,43,2,5815,0)="""RTN"",""HLTPCK1"",147,0)"
^XMB(3.9,43,2,5816,0)="EXIT ;"
^XMB(3.9,43,2,5817,0)="""RTN"",""HLTPCK1"",148,0)"
^XMB(3.9,43,2,5818,0)=" ; the maximum length of field #772,22 (Error Message) is 200"
^XMB(3.9,43,2,5819,0)="""RTN"",""HLTPCK1"",149,0)"
^XMB(3.9,43,2,5820,0)=" I ERR]"""" D"
^XMB(3.9,43,2,5821,0)="""RTN"",""HLTPCK1"",150,0)"
^XMB(3.9,43,2,5822,0)=" . S ERR=$E(ERR,1,200)"
^XMB(3.9,43,2,5823,0)="""RTN"",""HLTPCK1"",151,0)"
^XMB(3.9,43,2,5824,0)=" . S ARY=$S('ERR:""13^""_ERR,1:ERR)"
^XMB(3.9,43,2,5825,0)="""RTN"",""HLTPCK1"",152,0)"
^XMB(3.9,43,2,5826,0)=" ; patch HL*1.6*120 end"
^XMB(3.9,43,2,5827,0)="""RTN"",""HLTPCK1"",153,0)"
^XMB(3.9,43,2,5828,0)=" Q"
^XMB(3.9,43,2,5829,0)="""RTN"",""HLTPCK2"")"
^XMB(3.9,43,2,5830,0)="0^6^B34416614^B8648558"
^XMB(3.9,43,2,5831,0)="""RTN"",""HLTPCK2"",1,0)"
^XMB(3.9,43,2,5832,0)="HLTPCK2 ;SF/RSD - Message Header Validation (TCP Link) ;07/21/2005  17:12"
^XMB(3.9,43,2,5833,0)="""RTN"",""HLTPCK2"",2,0)"
^XMB(3.9,43,2,5834,0)=" ;;1.6;HEALTH LEVEL SEVEN;**19,59,120**;Oct 13, 1995;Build 12"
^XMB(3.9,43,2,5835,0)="""RTN"",""HLTPCK2"",3,0)"
^XMB(3.9,43,2,5836,0)="CHK(HDR,ARY,MSA) ;"
^XMB(3.9,43,2,5837,0)="""RTN"",""HLTPCK2"",4,0)"
^XMB(3.9,43,2,5838,0)=" ;Validate Data in Header Segment (MSH, BHS or FHS) of an HL7 Message"
^XMB(3.9,43,2,5839,0)="""RTN"",""HLTPCK2"",5,0)"
^XMB(3.9,43,2,5840,0)=" ; through TCP link."
^XMB(3.9,43,2,5841,0)="""RTN"",""HLTPCK2"",6,0)"
^XMB(3.9,43,2,5842,0)=" ;"
^XMB(3.9,43,2,5843,0)="""RTN"",""HLTPCK2"",7,0)"
^XMB(3.9,43,2,5844,0)=" ;This entry point is a subroutine call with parameter passing that"
^XMB(3.9,43,2,5845,0)="""RTN"",""HLTPCK2"",8,0)"
^XMB(3.9,43,2,5846,0)=" ;will return an array (ARY()) consisting of values extracted from"
^XMB(3.9,43,2,5847,0)="""RTN"",""HLTPCK2"",9,0)"
^XMB(3.9,43,2,5848,0)=" ;the message header segment subscripted by the mnemonics for each of"
^XMB(3.9,43,2,5849,0)="""RTN"",""HLTPCK2"",10,0)"
^XMB(3.9,43,2,5850,0)=" ;the message header fields and components."
^XMB(3.9,43,2,5851,0)="""RTN"",""HLTPCK2"",11,0)"
^XMB(3.9,43,2,5852,0)=" ;The message header can be multiple line longer than 255 characters."
^XMB(3.9,43,2,5853,0)="""RTN"",""HLTPCK2"",12,0)"
^XMB(3.9,43,2,5854,0)=" ;HDR is an array that is passed by reference."
^XMB(3.9,43,2,5855,0)="""RTN"",""HLTPCK2"",13,0)"
^XMB(3.9,43,2,5856,0)=" ;If an error is encountered during validation, the array parameter"
^XMB(3.9,43,2,5857,0)="""RTN"",""HLTPCK2"",14,0)"
^XMB(3.9,43,2,5858,0)=" ;(ARY) will be set equal to two pieces, error #^error text."
^XMB(3.9,43,2,5859,0)="""RTN"",""HLTPCK2"",15,0)"
^XMB(3.9,43,2,5860,0)=" ;"
^XMB(3.9,43,2,5861,0)="""RTN"",""HLTPCK2"",16,0)"
^XMB(3.9,43,2,5862,0)=" ;Required input parameters"
^XMB(3.9,43,2,5863,0)="""RTN"",""HLTPCK2"",17,0)"
^XMB(3.9,43,2,5864,0)=" ;  HDR = Message header array, HDR(1,0)=segment (passed by reference)"
^XMB(3.9,43,2,5865,0)="""RTN"",""HLTPCK2"",18,0)"
^XMB(3.9,43,2,5866,0)=" ;"
^XMB(3.9,43,2,5867,0)="""RTN"",""HLTPCK2"",19,0)"
^XMB(3.9,43,2,5868,0)=" ;  ARY = The array in which the message header values will be"
^XMB(3.9,43,2,5869,0)="""RTN"",""HLTPCK2"",20,0)"
^XMB(3.9,43,2,5870,0)=" ;          returned (passed by reference)"
^XMB(3.9,43,2,5871,0)="""RTN"",""HLTPCK2"",21,0)"
^XMB(3.9,43,2,5872,0)=" ;"
^XMB(3.9,43,2,5873,0)="""RTN"",""HLTPCK2"",22,0)"
^XMB(3.9,43,2,5874,0)=" ;Optional input parameter"
^XMB(3.9,43,2,5875,0)="""RTN"",""HLTPCK2"",23,0)"
^XMB(3.9,43,2,5876,0)=" ;  MSA = A variable which contains the message acknowledgement values:"
^XMB(3.9,43,2,5877,0)="""RTN"",""HLTPCK2"",24,0)"
^XMB(3.9,43,2,5878,0)=" ;          acknowledgement code^message control ID^text message. Passed"
^XMB(3.9,43,2,5879,0)="""RTN"",""HLTPCK2"",25,0)"
^XMB(3.9,43,2,5880,0)=" ;          by reference so that Batch msg. can set this here."
^XMB(3.9,43,2,5881,0)="""RTN"",""HLTPCK2"",26,0)"
^XMB(3.9,43,2,5882,0)=" ;"
^XMB(3.9,43,2,5883,0)="""RTN"",""HLTPCK2"",27,0)"
^XMB(3.9,43,2,5884,0)=" ;Check for required parameters"
^XMB(3.9,43,2,5885,0)="""RTN"",""HLTPCK2"",28,0)"
^XMB(3.9,43,2,5886,0)=" N ERR S ERR="""""
^XMB(3.9,43,2,5887,0)="""RTN"",""HLTPCK2"",29,0)"
^XMB(3.9,43,2,5888,0)=" I $D(HDR)<10 S ERR=""7^""_$G(^HL(771.7,7,0))_"" at CHK^HLTPCK2"" G EXIT"
^XMB(3.9,43,2,5889,0)="""RTN"",""HLTPCK2"",30,0)"
^XMB(3.9,43,2,5890,0)=" N ECH,HLN,FS,X,X1,X2"
^XMB(3.9,43,2,5891,0)="""RTN"",""HLTPCK2"",31,0)"
^XMB(3.9,43,2,5892,0)=" S ARY="""",ARY(""Q"")="""""""""""""
^XMB(3.9,43,2,5893,0)="""RTN"",""HLTPCK2"",32,0)"
^XMB(3.9,43,2,5894,0)=" ;"
^XMB(3.9,43,2,5895,0)="""RTN"",""HLTPCK2"",33,0)"
^XMB(3.9,43,2,5896,0)=" ;Validate field separator and encoding characters"
^XMB(3.9,43,2,5897,0)="""RTN"",""HLTPCK2"",34,0)"
^XMB(3.9,43,2,5898,0)=" S (ARY(""FS""),FS)=$E(HDR(1,0),4)"
^XMB(3.9,43,2,5899,0)="""RTN"",""HLTPCK2"",35,0)"
^XMB(3.9,43,2,5900,0)=" I FS']"""" S ERR=""Field Separator Missing"" G EXIT"
^XMB(3.9,43,2,5901,0)="""RTN"",""HLTPCK2"",36,0)"
^XMB(3.9,43,2,5902,0)=" I FS?.C S ERR=""Invalid Field Separator"" G EXIT"
^XMB(3.9,43,2,5903,0)="""RTN"",""HLTPCK2"",37,0)"
^XMB(3.9,43,2,5904,0)=" S (ARY(""ECH""),ECH)=$$P(.HDR,2)"
^XMB(3.9,43,2,5905,0)="""RTN"",""HLTPCK2"",38,0)"
^XMB(3.9,43,2,5906,0)=" I ECH']"""" S ERR=""Encoding Characters Missing"" G EXIT"
^XMB(3.9,43,2,5907,0)="""RTN"",""HLTPCK2"",39,0)"
^XMB(3.9,43,2,5908,0)=" I ECH?.C S ERR=""Invalid Encoding Characters"" G EXIT"
^XMB(3.9,43,2,5909,0)="""RTN"",""HLTPCK2"",40,0)"
^XMB(3.9,43,2,5910,0)=" ;"
^XMB(3.9,43,2,5911,0)="""RTN"",""HLTPCK2"",41,0)"
^XMB(3.9,43,2,5912,0)=" ; patch HL*1.6*120 start"
^XMB(3.9,43,2,5913,0)="""RTN"",""HLTPCK2"",42,0)"
^XMB(3.9,43,2,5914,0)=" I $L(ECH)'=4 S ERR=""Invalid Encoding Characters"" G EXIT"
^XMB(3.9,43,2,5915,0)="""RTN"",""HLTPCK2"",43,0)"
^XMB(3.9,43,2,5916,0)=" S ECH(1)=$E(ECH)"
^XMB(3.9,43,2,5917,0)="""RTN"",""HLTPCK2"",44,0)"
^XMB(3.9,43,2,5918,0)=" S ECH(2)=$E(ECH,2)"
^XMB(3.9,43,2,5919,0)="""RTN"",""HLTPCK2"",45,0)"
^XMB(3.9,43,2,5920,0)=" S ECH(4)=$E(ECH,4)"
^XMB(3.9,43,2,5921,0)="""RTN"",""HLTPCK2"",46,0)"
^XMB(3.9,43,2,5922,0)=" M ARY(""HDR"")=HDR"
^XMB(3.9,43,2,5923,0)="""RTN"",""HLTPCK2"",47,0)"
^XMB(3.9,43,2,5924,0)=" ;"
^XMB(3.9,43,2,5925,0)="""RTN"",""HLTPCK2"",48,0)"
^XMB(3.9,43,2,5926,0)=" ;Validate Message Header Type"
^XMB(3.9,43,2,5927,0)="""RTN"",""HLTPCK2"",49,0)"
^XMB(3.9,43,2,5928,0)=" S (ARY(""TYPE""),X)=$$P(.HDR,1)"
^XMB(3.9,43,2,5929,0)="""RTN"",""HLTPCK2"",50,0)"
^XMB(3.9,43,2,5930,0)=" S ARY(""HDR-1"")=X"
^XMB(3.9,43,2,5931,0)="""RTN"",""HLTPCK2"",51,0)"
^XMB(3.9,43,2,5932,0)=" I X=""""!(""FHS,BHS,MSH""'[X) S ERR=""Invalid Message Header"" G EXIT"
^XMB(3.9,43,2,5933,0)="""RTN"",""HLTPCK2"",52,0)"
^XMB(3.9,43,2,5934,0)=" ;"
^XMB(3.9,43,2,5935,0)="""RTN"",""HLTPCK2"",53,0)"
^XMB(3.9,43,2,5936,0)=" ;Extract data from message header segment"
^XMB(3.9,43,2,5937,0)="""RTN"",""HLTPCK2"",54,0)"
^XMB(3.9,43,2,5938,0)=" ; S ARY(""SAN"")=$$P(.HDR,3),ARY(""SFN"")=$$P(.HDR,4),ARY(""RAN"")=$$P(.HDR,5),ARY(""RFN"")=$$P(.HDR,6),ARY(""DTM"")=$$P(.HDR,7)"
^XMB(3.9,43,2,5939,0)="""RTN"",""HLTPCK2"",55,0)"
^XMB(3.9,43,2,5940,0)=" S ARY(""SAN"")=$$P(.HDR,3)"
^XMB(3.9,43,2,5941,0)="""RTN"",""HLTPCK2"",56,0)"
^XMB(3.9,43,2,5942,0)=" S ARY(""SFN"")=$$P(.HDR,4)"
^XMB(3.9,43,2,5943,0)="""RTN"",""HLTPCK2"",57,0)"
^XMB(3.9,43,2,5944,0)=" S ARY(""RAN"")=$$P(.HDR,5)"
^XMB(3.9,43,2,5945,0)="""RTN"",""HLTPCK2"",58,0)"
^XMB(3.9,43,2,5946,0)=" S ARY(""RFN"")=$$P(.HDR,6)"
^XMB(3.9,43,2,5947,0)="""RTN"",""HLTPCK2"",59,0)"
^XMB(3.9,43,2,5948,0)=" S ARY(""DTM"")=$$P(.HDR,7)"
^XMB(3.9,43,2,5949,0)="""RTN"",""HLTPCK2"",60,0)"
^XMB(3.9,43,2,5950,0)=" ;"
^XMB(3.9,43,2,5951,0)="""RTN"",""HLTPCK2"",61,0)"
^XMB(3.9,43,2,5952,0)=" I X=""BHS""!(X=""FHS"") D"
^XMB(3.9,43,2,5953,0)="""RTN"",""HLTPCK2"",62,0)"
^XMB(3.9,43,2,5954,0)=" . ; S ARY(""MID"")=$$P(.HDR,11),X=$$P(.HDR,9),ARY(""PID"")=$P(X,$E(ECH),2)"
^XMB(3.9,43,2,5955,0)="""RTN"",""HLTPCK2"",63,0)"
^XMB(3.9,43,2,5956,0)=" . ;"
^XMB(3.9,43,2,5957,0)="""RTN"",""HLTPCK2"",64,0)"
^XMB(3.9,43,2,5958,0)=" . S ARY(""MID"")=$$P(.HDR,11)"
^XMB(3.9,43,2,5959,0)="""RTN"",""HLTPCK2"",65,0)"
^XMB(3.9,43,2,5960,0)=" . ;"
^XMB(3.9,43,2,5961,0)="""RTN"",""HLTPCK2"",66,0)"
^XMB(3.9,43,2,5962,0)=" . ; BHS-9, Batch name/ID/Type:"
^XMB(3.9,43,2,5963,0)="""RTN"",""HLTPCK2"",67,0)"
^XMB(3.9,43,2,5964,0)=" . ; 2nd component: Processing ID <sub> Processing Mode"
^XMB(3.9,43,2,5965,0)="""RTN"",""HLTPCK2"",68,0)"
^XMB(3.9,43,2,5966,0)=" . ; 3rd component: Message Type <sub> Event Type"
^XMB(3.9,43,2,5967,0)="""RTN"",""HLTPCK2"",69,0)"
^XMB(3.9,43,2,5968,0)=" . ; 4th component: Version ID"
^XMB(3.9,43,2,5969,0)="""RTN"",""HLTPCK2"",70,0)"
^XMB(3.9,43,2,5970,0)=" . ; 5th component: Accept Acknowledgment Type"
^XMB(3.9,43,2,5971,0)="""RTN"",""HLTPCK2"",71,0)"
^XMB(3.9,43,2,5972,0)=" . ; 6th component: Application Acknowledgment Type"
^XMB(3.9,43,2,5973,0)="""RTN"",""HLTPCK2"",72,0)"
^XMB(3.9,43,2,5974,0)=" . S X=$$P(.HDR,9)"
^XMB(3.9,43,2,5975,0)="""RTN"",""HLTPCK2"",73,0)"
^XMB(3.9,43,2,5976,0)=" . S:X]"""" ARY(""HDR-9"")=X"
^XMB(3.9,43,2,5977,0)="""RTN"",""HLTPCK2"",74,0)"
^XMB(3.9,43,2,5978,0)=" . ; original implementation incorrectly treats repetition separator as"
^XMB(3.9,43,2,5979,0)="""RTN"",""HLTPCK2"",75,0)"
^XMB(3.9,43,2,5980,0)=" . ; subcomponent separator"
^XMB(3.9,43,2,5981,0)="""RTN"",""HLTPCK2"",76,0)"
^XMB(3.9,43,2,5982,0)=" . S ECH(""SUB-COMPONENT"")=ECH(2)"
^XMB(3.9,43,2,5983,0)="""RTN"",""HLTPCK2"",77,0)"
^XMB(3.9,43,2,5984,0)=" . ; if subcomponent separator is correctly applied"
^XMB(3.9,43,2,5985,0)="""RTN"",""HLTPCK2"",78,0)"
^XMB(3.9,43,2,5986,0)=" . I X[ECH(4) S ECH(""SUB-COMPONENT"")=ECH(4)"
^XMB(3.9,43,2,5987,0)="""RTN"",""HLTPCK2"",79,0)"
^XMB(3.9,43,2,5988,0)=" . ;"
^XMB(3.9,43,2,5989,0)="""RTN"",""HLTPCK2"",80,0)"
^XMB(3.9,43,2,5990,0)=" . S ARY(""PID"")=$P(X,ECH(1),2)"
^XMB(3.9,43,2,5991,0)="""RTN"",""HLTPCK2"",81,0)"
^XMB(3.9,43,2,5992,0)=" . I ARY(""PID"")[ECH(""SUB-COMPONENT"") D"
^XMB(3.9,43,2,5993,0)="""RTN"",""HLTPCK2"",82,0)"
^XMB(3.9,43,2,5994,0)=" .. ; 2nd sub-component is Processing mode"
^XMB(3.9,43,2,5995,0)="""RTN"",""HLTPCK2"",83,0)"
^XMB(3.9,43,2,5996,0)=" .. S ARY(""PMOD"")=$P(ARY(""PID""),ECH(""SUB-COMPONENT""),2)"
^XMB(3.9,43,2,5997,0)="""RTN"",""HLTPCK2"",84,0)"
^XMB(3.9,43,2,5998,0)=" .. ; first sub-component is Processing id"
^XMB(3.9,43,2,5999,0)="""RTN"",""HLTPCK2"",85,0)"
^XMB(3.9,43,2,6000,0)=" .. S ARY(""PID"")=$P(ARY(""PID""),ECH(""SUB-COMPONENT""))"
^XMB(3.9,43,2,6001,0)="""RTN"",""HLTPCK2"",86,0)"
^XMB(3.9,43,2,6002,0)=" . ;"
^XMB(3.9,43,2,6003,0)="""RTN"",""HLTPCK2"",87,0)"
^XMB(3.9,43,2,6004,0)=" . ; S ARY(""MTN"")=$P($P(X,$E(ECH),3),$E(ECH,2)),ARY(""ETN"")=$P($P(X,$E(ECH),3),$E(ECH,2),2)"
^XMB(3.9,43,2,6005,0)="""RTN"",""HLTPCK2"",88,0)"
^XMB(3.9,43,2,6006,0)=" . ;"
^XMB(3.9,43,2,6007,0)="""RTN"",""HLTPCK2"",89,0)"
^XMB(3.9,43,2,6008,0)=" . S ARY(""MTN"")=$P(X,ECH(1),3)"
^XMB(3.9,43,2,6009,0)="""RTN"",""HLTPCK2"",90,0)"
^XMB(3.9,43,2,6010,0)=" . ; 2nd sub-component is event type"
^XMB(3.9,43,2,6011,0)="""RTN"",""HLTPCK2"",91,0)"
^XMB(3.9,43,2,6012,0)=" . S ARY(""ETN"")=$P(ARY(""MTN""),ECH(""SUB-COMPONENT""),2)"
^XMB(3.9,43,2,6013,0)="""RTN"",""HLTPCK2"",92,0)"
^XMB(3.9,43,2,6014,0)=" . ; 1st sub-component is message type"
^XMB(3.9,43,2,6015,0)="""RTN"",""HLTPCK2"",93,0)"
^XMB(3.9,43,2,6016,0)=" . S ARY(""MTN"")=$P(ARY(""MTN""),ECH(""SUB-COMPONENT""))"
^XMB(3.9,43,2,6017,0)="""RTN"",""HLTPCK2"",94,0)"
^XMB(3.9,43,2,6018,0)=" . ;"
^XMB(3.9,43,2,6019,0)="""RTN"",""HLTPCK2"",95,0)"
^XMB(3.9,43,2,6020,0)=" . ; S ARY(""VER"")=$P(X,$E(ECH),4),ARY(""ACAT"")=$P(X,$E(ECH),5),ARY(""APAT"")=$P(X,$E(ECH),6)"
^XMB(3.9,43,2,6021,0)="""RTN"",""HLTPCK2"",96,0)"
^XMB(3.9,43,2,6022,0)=" . S ARY(""VER"")=$P(X,ECH(1),4)"
^XMB(3.9,43,2,6023,0)="""RTN"",""HLTPCK2"",97,0)"
^XMB(3.9,43,2,6024,0)=" . S:$P(X,ECH(1),5)]"""" ARY(""ACAT"")=$P(X,ECH(1),5)"
^XMB(3.9,43,2,6025,0)="""RTN"",""HLTPCK2"",98,0)"
^XMB(3.9,43,2,6026,0)=" . S:$P(X,ECH(1),6)]"""" ARY(""APAT"")=$P(X,ECH(1),6)"
^XMB(3.9,43,2,6027,0)="""RTN"",""HLTPCK2"",99,0)"
^XMB(3.9,43,2,6028,0)=" . ;"
^XMB(3.9,43,2,6029,0)="""RTN"",""HLTPCK2"",100,0)"
^XMB(3.9,43,2,6030,0)=" . ; BHS-10, batch comment"
^XMB(3.9,43,2,6031,0)="""RTN"",""HLTPCK2"",101,0)"
^XMB(3.9,43,2,6032,0)=" . ; first component: MSA-1, acknowledgment code"
^XMB(3.9,43,2,6033,0)="""RTN"",""HLTPCK2"",102,0)"
^XMB(3.9,43,2,6034,0)=" . ; 2nd component: MSA-3, text message"
^XMB(3.9,43,2,6035,0)="""RTN"",""HLTPCK2"",103,0)"
^XMB(3.9,43,2,6036,0)=" . ; S:$$P(.HDR,10)]"""" MSA=$P($$P(.HDR,10),$E(ECH),1),$P(MSA,FS,2)=$$P(.HDR,12),$P(MSA,FS,3)=$P($$P(.HDR,10),$E(ECH),2)"
^XMB(3.9,43,2,6037,0)="""RTN"",""HLTPCK2"",104,0)"
^XMB(3.9,43,2,6038,0)=" . ;"
^XMB(3.9,43,2,6039,0)="""RTN"",""HLTPCK2"",105,0)"
^XMB(3.9,43,2,6040,0)=" . S X=$$P(.HDR,10)"
^XMB(3.9,43,2,6041,0)="""RTN"",""HLTPCK2"",106,0)"
^XMB(3.9,43,2,6042,0)=" . I X]"""" D"
^XMB(3.9,43,2,6043,0)="""RTN"",""HLTPCK2"",107,0)"
^XMB(3.9,43,2,6044,0)=" .. S ARY(""HDR-10"")=X"
^XMB(3.9,43,2,6045,0)="""RTN"",""HLTPCK2"",108,0)"
^XMB(3.9,43,2,6046,0)=" .. ; MSA-1, acknowledgment code: AA,AE,AR,CA,CE,or CR"
^XMB(3.9,43,2,6047,0)="""RTN"",""HLTPCK2"",109,0)"
^XMB(3.9,43,2,6048,0)=" .. S MSA=$P(X,ECH(1),1)"
^XMB(3.9,43,2,6049,0)="""RTN"",""HLTPCK2"",110,0)"
^XMB(3.9,43,2,6050,0)=" .. ; MSA-2 and BHS-12, reference batch control id"
^XMB(3.9,43,2,6051,0)="""RTN"",""HLTPCK2"",111,0)"
^XMB(3.9,43,2,6052,0)=" .. S $P(MSA,FS,2)=$$P(.HDR,12)"
^XMB(3.9,43,2,6053,0)="""RTN"",""HLTPCK2"",112,0)"
^XMB(3.9,43,2,6054,0)=" .. ; MSA-3, text message"
^XMB(3.9,43,2,6055,0)="""RTN"",""HLTPCK2"",113,0)"
^XMB(3.9,43,2,6056,0)=" .. S $P(MSA,FS,3)=$P(X,ECH(1),2)"
^XMB(3.9,43,2,6057,0)="""RTN"",""HLTPCK2"",114,0)"
^XMB(3.9,43,2,6058,0)=" . ;"
^XMB(3.9,43,2,6059,0)="""RTN"",""HLTPCK2"",115,0)"
^XMB(3.9,43,2,6060,0)=" . ; Reference Batch Control ID"
^XMB(3.9,43,2,6061,0)="""RTN"",""HLTPCK2"",116,0)"
^XMB(3.9,43,2,6062,0)=" . S:$$P(.HDR,12)]"""" ARY(""HDR-12"")=$$P(.HDR,12)"
^XMB(3.9,43,2,6063,0)="""RTN"",""HLTPCK2"",117,0)"
^XMB(3.9,43,2,6064,0)=" ;"
^XMB(3.9,43,2,6065,0)="""RTN"",""HLTPCK2"",118,0)"
^XMB(3.9,43,2,6066,0)=" ; I $$P(.HDR,1)=""MSH"" D"
^XMB(3.9,43,2,6067,0)="""RTN"",""HLTPCK2"",119,0)"
^XMB(3.9,43,2,6068,0)=" I ARY(""HDR-1"")=""MSH"" D"
^XMB(3.9,43,2,6069,0)="""RTN"",""HLTPCK2"",120,0)"
^XMB(3.9,43,2,6070,0)=" . ; S ARY(""MID"")=$$P(.HDR,10),ARY(""PID"")=$$P(.HDR,11),ARY(""MTN"")=$P($$P(.HDR,9),$E(ECH)),ARY(""ETN"")=$P($$P(.HDR,9),$E(ECH),2),ARY(""VER"")=$$P(.HDR,12)"
^XMB(3.9,43,2,6071,0)="""RTN"",""HLTPCK2"",121,0)"
^XMB(3.9,43,2,6072,0)=" . S ARY(""MID"")=$$P(.HDR,10)"
^XMB(3.9,43,2,6073,0)="""RTN"",""HLTPCK2"",122,0)"
^XMB(3.9,43,2,6074,0)=" . S ARY(""PID"")=$$P(.HDR,11)"
^XMB(3.9,43,2,6075,0)="""RTN"",""HLTPCK2"",123,0)"
^XMB(3.9,43,2,6076,0)=" . S X=$$P(.HDR,9)"
^XMB(3.9,43,2,6077,0)="""RTN"",""HLTPCK2"",124,0)"
^XMB(3.9,43,2,6078,0)=" . S ARY(""MTN"")=$P(X,ECH(1))"
^XMB(3.9,43,2,6079,0)="""RTN"",""HLTPCK2"",125,0)"
^XMB(3.9,43,2,6080,0)=" . S ARY(""ETN"")=$P(X,ECH(1),2)"
^XMB(3.9,43,2,6081,0)="""RTN"",""HLTPCK2"",126,0)"
^XMB(3.9,43,2,6082,0)=" . ;"
^XMB(3.9,43,2,6083,0)="""RTN"",""HLTPCK2"",127,0)"
^XMB(3.9,43,2,6084,0)=" . ; S:$P($$P(.HDR,9),$E(ECH),3)'="""" ARY(""MTN_ETN"")=$P($$P(.HDR,9),$E(ECH),3)"
^XMB(3.9,43,2,6085,0)="""RTN"",""HLTPCK2"",128,0)"
^XMB(3.9,43,2,6086,0)=" . S:$P(X,ECH(1),3)]"""" ARY(""MTN_ETN"")=$P(X,ECH(1),3)"
^XMB(3.9,43,2,6087,0)="""RTN"",""HLTPCK2"",129,0)"
^XMB(3.9,43,2,6088,0)=" . ;"
^XMB(3.9,43,2,6089,0)="""RTN"",""HLTPCK2"",130,0)"
^XMB(3.9,43,2,6090,0)=" . I ARY(""PID"")[ECH(1) D"
^XMB(3.9,43,2,6091,0)="""RTN"",""HLTPCK2"",131,0)"
^XMB(3.9,43,2,6092,0)=" .. ; 2nd component is Processing mode"
^XMB(3.9,43,2,6093,0)="""RTN"",""HLTPCK2"",132,0)"
^XMB(3.9,43,2,6094,0)=" .. S ARY(""PMOD"")=$P(ARY(""PID""),ECH(1),2)"
^XMB(3.9,43,2,6095,0)="""RTN"",""HLTPCK2"",133,0)"
^XMB(3.9,43,2,6096,0)=" .. ; first component is Processing id"
^XMB(3.9,43,2,6097,0)="""RTN"",""HLTPCK2"",134,0)"
^XMB(3.9,43,2,6098,0)=" .. S ARY(""PID"")=$P(ARY(""PID""),ECH(1))"
^XMB(3.9,43,2,6099,0)="""RTN"",""HLTPCK2"",135,0)"
^XMB(3.9,43,2,6100,0)=" . ;"
^XMB(3.9,43,2,6101,0)="""RTN"",""HLTPCK2"",136,0)"
^XMB(3.9,43,2,6102,0)=" . S ARY(""VER"")=$$P(.HDR,12)"
^XMB(3.9,43,2,6103,0)="""RTN"",""HLTPCK2"",137,0)"
^XMB(3.9,43,2,6104,0)=" . ;"
^XMB(3.9,43,2,6105,0)="""RTN"",""HLTPCK2"",138,0)"
^XMB(3.9,43,2,6106,0)=" . ; fields 13 and 14"
^XMB(3.9,43,2,6107,0)="""RTN"",""HLTPCK2"",139,0)"
^XMB(3.9,43,2,6108,0)=" . S:$$P(.HDR,13)]"""" ARY(""MSH-13"")=$$P(.HDR,13)"
^XMB(3.9,43,2,6109,0)="""RTN"",""HLTPCK2"",140,0)"
^XMB(3.9,43,2,6110,0)=" . S:$$P(.HDR,14)]"""" ARY(""MSH-14"")=$$P(.HDR,14)"
^XMB(3.9,43,2,6111,0)="""RTN"",""HLTPCK2"",141,0)"
^XMB(3.9,43,2,6112,0)=" . ;"
^XMB(3.9,43,2,6113,0)="""RTN"",""HLTPCK2"",142,0)"
^XMB(3.9,43,2,6114,0)=" . ; S:$$P(.HDR,15)]"""" ARY(""ACAT"")=$$P(.HDR,15) S:$$P(.HDR,16)]"""" ARY(""APAT"")=$$P(.HDR,16) S:$$P(.HDR,17)]"""" ARY(""CC"")=$$P(.HDR,17)"
^XMB(3.9,43,2,6115,0)="""RTN"",""HLTPCK2"",143,0)"
^XMB(3.9,43,2,6116,0)=" . S:$$P(.HDR,15)]"""" ARY(""ACAT"")=$$P(.HDR,15)"
^XMB(3.9,43,2,6117,0)="""RTN"",""HLTPCK2"",144,0)"
^XMB(3.9,43,2,6118,0)=" . S:$$P(.HDR,16)]"""" ARY(""APAT"")=$$P(.HDR,16)"
^XMB(3.9,43,2,6119,0)="""RTN"",""HLTPCK2"",145,0)"
^XMB(3.9,43,2,6120,0)=" . S:$$P(.HDR,17)]"""" ARY(""CC"")=$$P(.HDR,17)"
^XMB(3.9,43,2,6121,0)="""RTN"",""HLTPCK2"",146,0)"
^XMB(3.9,43,2,6122,0)=" . ;"
^XMB(3.9,43,2,6123,0)="""RTN"",""HLTPCK2"",147,0)"
^XMB(3.9,43,2,6124,0)=" . ; fields 18,19,20 and 21"
^XMB(3.9,43,2,6125,0)="""RTN"",""HLTPCK2"",148,0)"
^XMB(3.9,43,2,6126,0)=" . S:$$P(.HDR,18)]"""" ARY(""MSH-18"")=$$P(.HDR,18)"
^XMB(3.9,43,2,6127,0)="""RTN"",""HLTPCK2"",149,0)"
^XMB(3.9,43,2,6128,0)=" . S:$$P(.HDR,19)]"""" ARY(""MSH-19"")=$$P(.HDR,19)"
^XMB(3.9,43,2,6129,0)="""RTN"",""HLTPCK2"",150,0)"
^XMB(3.9,43,2,6130,0)=" . S:$$P(.HDR,20)]"""" ARY(""MSH-20"")=$$P(.HDR,20)"
^XMB(3.9,43,2,6131,0)="""RTN"",""HLTPCK2"",151,0)"
^XMB(3.9,43,2,6132,0)=" . S:$$P(.HDR,21)]"""" ARY(""MSH-21"")=$$P(.HDR,21)"
^XMB(3.9,43,2,6133,0)="""RTN"",""HLTPCK2"",152,0)"
^XMB(3.9,43,2,6134,0)=" ;"
^XMB(3.9,43,2,6135,0)="""RTN"",""HLTPCK2"",153,0)"
^XMB(3.9,43,2,6136,0)=" ;Invoke continuation routine to perform remaining validation checks"
^XMB(3.9,43,2,6137,0)="""RTN"",""HLTPCK2"",154,0)"
^XMB(3.9,43,2,6138,0)=" D ^HLTPCK2A"
^XMB(3.9,43,2,6139,0)="""RTN"",""HLTPCK2"",155,0)"
^XMB(3.9,43,2,6140,0)="EXIT ;"
^XMB(3.9,43,2,6141,0)="""RTN"",""HLTPCK2"",156,0)"
^XMB(3.9,43,2,6142,0)=" ; patch HL*1.6*120"
^XMB(3.9,43,2,6143,0)="""RTN"",""HLTPCK2"",157,0)"
^XMB(3.9,43,2,6144,0)=" ; the maximum length of field #773,22 (Error Message) is 200"
^XMB(3.9,43,2,6145,0)="""RTN"",""HLTPCK2"",158,0)"
^XMB(3.9,43,2,6146,0)=" I ERR]"""" D"
^XMB(3.9,43,2,6147,0)="""RTN"",""HLTPCK2"",159,0)"
^XMB(3.9,43,2,6148,0)=" . S ERR=$E(ERR,1,200)"
^XMB(3.9,43,2,6149,0)="""RTN"",""HLTPCK2"",160,0)"
^XMB(3.9,43,2,6150,0)=" . S ARY=$S('ERR:""13^""_ERR,1:ERR)"
^XMB(3.9,43,2,6151,0)="""RTN"",""HLTPCK2"",161,0)"
^XMB(3.9,43,2,6152,0)=" ; patch HL*1.6*120 end"
^XMB(3.9,43,2,6153,0)="""RTN"",""HLTPCK2"",162,0)"
^XMB(3.9,43,2,6154,0)=" Q"
^XMB(3.9,43,2,6155,0)="""RTN"",""HLTPCK2"",163,0)"
^XMB(3.9,43,2,6156,0)=" ;"
^XMB(3.9,43,2,6157,0)="""RTN"",""HLTPCK2"",164,0)"
^XMB(3.9,43,2,6158,0)="P(MSH,P) ;get piece P from MSH array (passed by ref.)"
^XMB(3.9,43,2,6159,0)="""RTN"",""HLTPCK2"",165,0)"
^XMB(3.9,43,2,6160,0)=" N FS,I,L,L1,L2,X,Y"
^XMB(3.9,43,2,6161,0)="""RTN"",""HLTPCK2"",166,0)"
^XMB(3.9,43,2,6162,0)=" S FS=$E(MSH(1,0),4),(L2,Y)=0,X="""""
^XMB(3.9,43,2,6163,0)="""RTN"",""HLTPCK2"",167,0)"
^XMB(3.9,43,2,6164,0)=" F I=1:1 S L1=$L($G(MSH(I,0)),FS),L=L1+Y-1 D  Q:$L(X)!'$D(MSH(I,0))"
^XMB(3.9,43,2,6165,0)="""RTN"",""HLTPCK2"",168,0)"
^XMB(3.9,43,2,6166,0)=" . S:L1=1 L=L+1"
^XMB(3.9,43,2,6167,0)="""RTN"",""HLTPCK2"",169,0)"
^XMB(3.9,43,2,6168,0)=" . S:P'>L X=$P($G(MSH(I-1,0)),FS,P-L2)_$P($G(MSH(I,0)),FS,(P-Y))"
^XMB(3.9,43,2,6169,0)="""RTN"",""HLTPCK2"",170,0)"
^XMB(3.9,43,2,6170,0)=" . S L2=Y,Y=L"
^XMB(3.9,43,2,6171,0)="""RTN"",""HLTPCK2"",171,0)"
^XMB(3.9,43,2,6172,0)=" Q X"
^XMB(3.9,43,2,6173,0)="""RTN"",""HLTPCK2"",172,0)"
^XMB(3.9,43,2,6174,0)=" ;"
^XMB(3.9,43,2,6175,0)="""RTN"",""HLTPCK2A"")"
^XMB(3.9,43,2,6176,0)="0^12^B27212258^B64758614"
^XMB(3.9,43,2,6177,0)="""RTN"",""HLTPCK2A"",1,0)"
^XMB(3.9,43,2,6178,0)="HLTPCK2A ;SF/RSD - Message Header Validation (Con't) ;03/07/2006  13:15"
^XMB(3.9,43,2,6179,0)="""RTN"",""HLTPCK2A"",2,0)"
^XMB(3.9,43,2,6180,0)=" ;;1.6;HEALTH LEVEL SEVEN;**19,57,59,66,108,120**;Oct 13, 1995;Build 12"
^XMB(3.9,43,2,6181,0)="""RTN"",""HLTPCK2A"",3,0)"
^XMB(3.9,43,2,6182,0)=" S ERR="""""
^XMB(3.9,43,2,6183,0)="""RTN"",""HLTPCK2A"",4,0)"
^XMB(3.9,43,2,6184,0)=" S HLPARAM=$$PARAM^HLCS2,HLDOM=$P(HLPARAM,U,2),HLINSTN=$P(HLPARAM,U,6)"
^XMB(3.9,43,2,6185,0)="""RTN"",""HLTPCK2A"",5,0)"
^XMB(3.9,43,2,6186,0)="MT ;Validate message type"
^XMB(3.9,43,2,6187,0)="""RTN"",""HLTPCK2A"",6,0)"
^XMB(3.9,43,2,6188,0)=" I (ARY(""MTN"")="""") S:(ERR="""") ERR=""Invalid Message Type"" Q"
^XMB(3.9,43,2,6189,0)="""RTN"",""HLTPCK2A"",7,0)"
^XMB(3.9,43,2,6190,0)=" S ARY(""MTP"")=0"
^XMB(3.9,43,2,6191,0)="""RTN"",""HLTPCK2A"",8,0)"
^XMB(3.9,43,2,6192,0)=" S:(ARY(""MTN"")'="""") ARY(""MTP"")=+$O(^HL(771.2,""B"",ARY(""MTN""),0))"
^XMB(3.9,43,2,6193,0)="""RTN"",""HLTPCK2A"",9,0)"
^XMB(3.9,43,2,6194,0)=" I ('ARY(""MTP"")) S:(ERR="""") ERR=""Invalid Message Type"" Q"
^XMB(3.9,43,2,6195,0)="""RTN"",""HLTPCK2A"",10,0)"
^XMB(3.9,43,2,6196,0)=" ;"
^XMB(3.9,43,2,6197,0)="""RTN"",""HLTPCK2A"",11,0)"
^XMB(3.9,43,2,6198,0)="AT ;Determine if message is an acknowledgement type"
^XMB(3.9,43,2,6199,0)="""RTN"",""HLTPCK2A"",12,0)"
^XMB(3.9,43,2,6200,0)=" I ((""ACK,ADR,MCF,MFK,MFR,ORF,ORR,RRA,RRD,RRE,RRG,TBR""[ARY(""MTN""))&($G(MSA)="""")) S:(ERR="""") ERR=""MSA Segment Missing"" Q"
^XMB(3.9,43,2,6201,0)="""RTN"",""HLTPCK2A"",13,0)"
^XMB(3.9,43,2,6202,0)=" ;commit ack, quit"
^XMB(3.9,43,2,6203,0)="""RTN"",""HLTPCK2A"",14,0)"
^XMB(3.9,43,2,6204,0)=" I $E($G(MSA))=""C"" D  Q"
^XMB(3.9,43,2,6205,0)="""RTN"",""HLTPCK2A"",15,0)"
^XMB(3.9,43,2,6206,0)=" . ;find original msg."
^XMB(3.9,43,2,6207,0)="""RTN"",""HLTPCK2A"",16,0)"
^XMB(3.9,43,2,6208,0)=" . S ARY(""MSAID"")=$P(MSA,FS,2),ARY(""MTIENS"")=0"
^XMB(3.9,43,2,6209,0)="""RTN"",""HLTPCK2A"",17,0)"
^XMB(3.9,43,2,6210,0)=" . I ARY(""MSAID"")="""" S:(ERR="""") ERR=""Invalid Message Control ID in MSA Segment"" Q"
^XMB(3.9,43,2,6211,0)="""RTN"",""HLTPCK2A"",18,0)"
^XMB(3.9,43,2,6212,0)=" . F  S ARY(""MTIENS"")=+$O(^HLMA(""C"",ARY(""MSAID""),ARY(""MTIENS""))) Q:'ARY(""MTIENS"")!($P($G(^HLMA(ARY(""MTIENS""),0)),U,3)=""O"")"
^XMB(3.9,43,2,6213,0)="""RTN"",""HLTPCK2A"",19,0)"
^XMB(3.9,43,2,6214,0)=" . I 'ARY(""MTIENS"") S:(ERR="""") ERR=""Invalid Message Control ID in MSA Segment"" Q"
^XMB(3.9,43,2,6215,0)="""RTN"",""HLTPCK2A"",20,0)"
^XMB(3.9,43,2,6216,0)=" . Q"
^XMB(3.9,43,2,6217,0)="""RTN"",""HLTPCK2A"",21,0)"
^XMB(3.9,43,2,6218,0)="AAT ;Validate accept ack type and application ack type"
^XMB(3.9,43,2,6219,0)="""RTN"",""HLTPCK2A"",22,0)"
^XMB(3.9,43,2,6220,0)=" I ($G(ARY(""ACAT""))'="""") I (""AL,NE,ER,SU""'[ARY(""ACAT"")) S:(ERR="""") ERR=""Invalid accept ack type"" Q"
^XMB(3.9,43,2,6221,0)="""RTN"",""HLTPCK2A"",23,0)"
^XMB(3.9,43,2,6222,0)=" I ($G(ARY(""APAT""))'="""") I (""AL,NE,ER,SU""'[ARY(""APAT"")) S:(ERR="""") ERR=""Invalid application ack type"" Q"
^XMB(3.9,43,2,6223,0)="""RTN"",""HLTPCK2A"",24,0)"
^XMB(3.9,43,2,6224,0)=" ;"
^XMB(3.9,43,2,6225,0)="""RTN"",""HLTPCK2A"",25,0)"
^XMB(3.9,43,2,6226,0)=" ;"
^XMB(3.9,43,2,6227,0)="""RTN"",""HLTPCK2A"",26,0)"
^XMB(3.9,43,2,6228,0)="RA ;Validate receiving application"
^XMB(3.9,43,2,6229,0)="""RTN"",""HLTPCK2A"",27,0)"
^XMB(3.9,43,2,6230,0)=" I (ARY(""RAN"")']"""") S:(ERR="""") ERR=""Invalid Receiving Application"" Q"
^XMB(3.9,43,2,6231,0)="""RTN"",""HLTPCK2A"",28,0)"
^XMB(3.9,43,2,6232,0)=" S ARY(""RAP"")=0"
^XMB(3.9,43,2,6233,0)="""RTN"",""HLTPCK2A"",29,0)"
^XMB(3.9,43,2,6234,0)=" S:ARY(""RAN"")]"""" ARY(""RAP"")=+$O(^HL(771,""B"",$E(ARY(""RAN""),1,30),0))"
^XMB(3.9,43,2,6235,0)="""RTN"",""HLTPCK2A"",30,0)"
^XMB(3.9,43,2,6236,0)=" I 'ARY(""RAP""),ARY(""RAN"")'="""" D"
^XMB(3.9,43,2,6237,0)="""RTN"",""HLTPCK2A"",31,0)"
^XMB(3.9,43,2,6238,0)=" .S X=$$UPPER^HLFNC(ARY(""RAN""))"
^XMB(3.9,43,2,6239,0)="""RTN"",""HLTPCK2A"",32,0)"
^XMB(3.9,43,2,6240,0)=" .S ARY(""RAP"")=+$O(^HL(771,""B"",$E(ARY(""RAN""),1,30),0))"
^XMB(3.9,43,2,6241,0)="""RTN"",""HLTPCK2A"",33,0)"
^XMB(3.9,43,2,6242,0)=" ;"
^XMB(3.9,43,2,6243,0)="""RTN"",""HLTPCK2A"",34,0)"
^XMB(3.9,43,2,6244,0)=" ; patch HL*1.6*120 start"
^XMB(3.9,43,2,6245,0)="""RTN"",""HLTPCK2A"",35,0)"
^XMB(3.9,43,2,6246,0)=" I ($L(ARY(""RAN""),ECH(1))>1) D"
^XMB(3.9,43,2,6247,0)="""RTN"",""HLTPCK2A"",36,0)"
^XMB(3.9,43,2,6248,0)=" . S ARY(""RAN-SUB1"")=$P(ARY(""RAN""),ECH(1))"
^XMB(3.9,43,2,6249,0)="""RTN"",""HLTPCK2A"",37,0)"
^XMB(3.9,43,2,6250,0)=" . S ARY(""RAN-SUB2"")=$P(ARY(""RAN""),ECH(1),2)"
^XMB(3.9,43,2,6251,0)="""RTN"",""HLTPCK2A"",38,0)"
^XMB(3.9,43,2,6252,0)=" . S ARY(""RAN-SUB3"")=$P(ARY(""RAN""),ECH(1),3)"
^XMB(3.9,43,2,6253,0)="""RTN"",""HLTPCK2A"",39,0)"
^XMB(3.9,43,2,6254,0)=" . I 'ARY(""RAP""),ARY(""RAN-SUB1"")]"""" D"
^XMB(3.9,43,2,6255,0)="""RTN"",""HLTPCK2A"",40,0)"
^XMB(3.9,43,2,6256,0)=" .. S ARY(""RAP"")=+$O(^HL(771,""B"",$E(ARY(""RAN-SUB1""),1,30),0))"
^XMB(3.9,43,2,6257,0)="""RTN"",""HLTPCK2A"",41,0)"
^XMB(3.9,43,2,6258,0)=" . I ARY(""RAN-SUB1"")[""\"" D"
^XMB(3.9,43,2,6259,0)="""RTN"",""HLTPCK2A"",42,0)"
^XMB(3.9,43,2,6260,0)=" .. S ARY(""RAN-SUB1-DEESCAPE"")=$$DEESCAPE(ARY(""RAN-SUB1""))"
^XMB(3.9,43,2,6261,0)="""RTN"",""HLTPCK2A"",43,0)"
^XMB(3.9,43,2,6262,0)=" . I ARY(""RAN-SUB2"")[""\"" D"
^XMB(3.9,43,2,6263,0)="""RTN"",""HLTPCK2A"",44,0)"
^XMB(3.9,43,2,6264,0)=" .. S ARY(""RAN-SUB2-DEESCAPE"")=$$DEESCAPE(ARY(""RAN-SUB2""))"
^XMB(3.9,43,2,6265,0)="""RTN"",""HLTPCK2A"",45,0)"
^XMB(3.9,43,2,6266,0)=" . I ARY(""RAN-SUB3"")[""\"" D"
^XMB(3.9,43,2,6267,0)="""RTN"",""HLTPCK2A"",46,0)"
^XMB(3.9,43,2,6268,0)=" .. S ARY(""RAN-SUB3-DEESCAPE"")=$$DEESCAPE(ARY(""RAN-SUB3""))"
^XMB(3.9,43,2,6269,0)="""RTN"",""HLTPCK2A"",47,0)"
^XMB(3.9,43,2,6270,0)=" . I 'ARY(""RAP""),$G(ARY(""RAN-SUB1-DEESCAPE""))]"""" D"
^XMB(3.9,43,2,6271,0)="""RTN"",""HLTPCK2A"",48,0)"
^XMB(3.9,43,2,6272,0)=" .. S ARY(""RAP"")=+$O(^HL(771,""B"",$E(ARY(""RAN-SUB1-DEESCAPE""),1,30),0))"
^XMB(3.9,43,2,6273,0)="""RTN"",""HLTPCK2A"",49,0)"
^XMB(3.9,43,2,6274,0)=" I ARY(""RAN"")[""\"" D"
^XMB(3.9,43,2,6275,0)="""RTN"",""HLTPCK2A"",50,0)"
^XMB(3.9,43,2,6276,0)=" . S ARY(""RAN-DEESCAPE"")=$$DEESCAPE(ARY(""RAN""))"
^XMB(3.9,43,2,6277,0)="""RTN"",""HLTPCK2A"",51,0)"
^XMB(3.9,43,2,6278,0)=" I 'ARY(""RAP""),$G(ARY(""RAN-DEESCAPE""))]"""" D"
^XMB(3.9,43,2,6279,0)="""RTN"",""HLTPCK2A"",52,0)"
^XMB(3.9,43,2,6280,0)=" . S ARY(""RAP"")=+$O(^HL(771,""B"",$E(ARY(""RAN-DEESCAPE""),1,30),0))"
^XMB(3.9,43,2,6281,0)="""RTN"",""HLTPCK2A"",53,0)"
^XMB(3.9,43,2,6282,0)=" ; patch HL*1.6*120 end"
^XMB(3.9,43,2,6283,0)="""RTN"",""HLTPCK2A"",54,0)"
^XMB(3.9,43,2,6284,0)=" ;"
^XMB(3.9,43,2,6285,0)="""RTN"",""HLTPCK2A"",55,0)"
^XMB(3.9,43,2,6286,0)=" I ('ARY(""RAP"")) S:(ERR="""") ERR=""Invalid Receiving Application"" Q"
^XMB(3.9,43,2,6287,0)="""RTN"",""HLTPCK2A"",56,0)"
^XMB(3.9,43,2,6288,0)=" S X2=$G(^HL(771,ARY(""RAP""),0))"
^XMB(3.9,43,2,6289,0)="""RTN"",""HLTPCK2A"",57,0)"
^XMB(3.9,43,2,6290,0)=" I (X2="""") S:(ERR="""") ERR=""Invalid Receiving Application"" Q"
^XMB(3.9,43,2,6291,0)="""RTN"",""HLTPCK2A"",58,0)"
^XMB(3.9,43,2,6292,0)=" I ($P(X2,""^"",2)'=""a"") S:(ERR="""") ERR=""Receiving Application is Inactive"" Q"
^XMB(3.9,43,2,6293,0)="""RTN"",""HLTPCK2A"",59,0)"
^XMB(3.9,43,2,6294,0)=" ;"
^XMB(3.9,43,2,6295,0)="""RTN"",""HLTPCK2A"",60,0)"
^XMB(3.9,43,2,6296,0)="SA ;Validate sending application"
^XMB(3.9,43,2,6297,0)="""RTN"",""HLTPCK2A"",61,0)"
^XMB(3.9,43,2,6298,0)=" I (ARY(""SAN"")']"""") S:(ERR="""") ERR=""Invalid Sending Application"" Q"
^XMB(3.9,43,2,6299,0)="""RTN"",""HLTPCK2A"",62,0)"
^XMB(3.9,43,2,6300,0)=" S ARY(""SAP"")=0"
^XMB(3.9,43,2,6301,0)="""RTN"",""HLTPCK2A"",63,0)"
^XMB(3.9,43,2,6302,0)=" S:(ARY(""SAN"")]"""") ARY(""SAP"")=+$O(^HL(771,""B"",$E(ARY(""SAN""),1,30),0))"
^XMB(3.9,43,2,6303,0)="""RTN"",""HLTPCK2A"",64,0)"
^XMB(3.9,43,2,6304,0)=" I (('ARY(""SAP""))&(ARY(""SAN"")'="""")) D"
^XMB(3.9,43,2,6305,0)="""RTN"",""HLTPCK2A"",65,0)"
^XMB(3.9,43,2,6306,0)=" .S X=$$UPPER^HLFNC(ARY(""SAN""))"
^XMB(3.9,43,2,6307,0)="""RTN"",""HLTPCK2A"",66,0)"
^XMB(3.9,43,2,6308,0)=" .S ARY(""SAP"")=+$O(^HL(771,""B"",$E(ARY(""SAN""),1,30),0))"
^XMB(3.9,43,2,6309,0)="""RTN"",""HLTPCK2A"",67,0)"
^XMB(3.9,43,2,6310,0)=" ;"
^XMB(3.9,43,2,6311,0)="""RTN"",""HLTPCK2A"",68,0)"
^XMB(3.9,43,2,6312,0)=" ; patch HL*1.6*120 start"
^XMB(3.9,43,2,6313,0)="""RTN"",""HLTPCK2A"",69,0)"
^XMB(3.9,43,2,6314,0)=" I ($L(ARY(""SAN""),ECH(1))>1) D"
^XMB(3.9,43,2,6315,0)="""RTN"",""HLTPCK2A"",70,0)"
^XMB(3.9,43,2,6316,0)=" . S ARY(""SAN-SUB1"")=$P(ARY(""SAN""),ECH(1))"
^XMB(3.9,43,2,6317,0)="""RTN"",""HLTPCK2A"",71,0)"
^XMB(3.9,43,2,6318,0)=" . S ARY(""SAN-SUB2"")=$P(ARY(""SAN""),ECH(1),2)"
^XMB(3.9,43,2,6319,0)="""RTN"",""HLTPCK2A"",72,0)"
^XMB(3.9,43,2,6320,0)=" . S ARY(""SAN-SUB3"")=$P(ARY(""SAN""),ECH(1),3)"
^XMB(3.9,43,2,6321,0)="""RTN"",""HLTPCK2A"",73,0)"
^XMB(3.9,43,2,6322,0)=" . I 'ARY(""SAP""),ARY(""SAN-SUB1"")]"""" D"
^XMB(3.9,43,2,6323,0)="""RTN"",""HLTPCK2A"",74,0)"
^XMB(3.9,43,2,6324,0)=" .. S ARY(""SAP"")=+$O(^HL(771,""B"",$E(ARY(""SAN-SUB1""),1,30),0))"
^XMB(3.9,43,2,6325,0)="""RTN"",""HLTPCK2A"",75,0)"
^XMB(3.9,43,2,6326,0)=" . I ARY(""SAN-SUB1"")[""\"" D"
^XMB(3.9,43,2,6327,0)="""RTN"",""HLTPCK2A"",76,0)"
^XMB(3.9,43,2,6328,0)=" .. S ARY(""SAN-SUB1-DEESCAPE"")=$$DEESCAPE(ARY(""SAN-SUB1""))"
^XMB(3.9,43,2,6329,0)="""RTN"",""HLTPCK2A"",77,0)"
^XMB(3.9,43,2,6330,0)=" . I ARY(""SAN-SUB2"")[""\"" D"
^XMB(3.9,43,2,6331,0)="""RTN"",""HLTPCK2A"",78,0)"
^XMB(3.9,43,2,6332,0)=" .. S ARY(""SAN-SUB2-DEESCAPE"")=$$DEESCAPE(ARY(""SAN-SUB2""))"
^XMB(3.9,43,2,6333,0)="""RTN"",""HLTPCK2A"",79,0)"
^XMB(3.9,43,2,6334,0)=" . I ARY(""SAN-SUB3"")[""\"" D"
^XMB(3.9,43,2,6335,0)="""RTN"",""HLTPCK2A"",80,0)"
^XMB(3.9,43,2,6336,0)=" .. S ARY(""SAN-SUB3-DEESCAPE"")=$$DEESCAPE(ARY(""SAN-SUB3""))"
^XMB(3.9,43,2,6337,0)="""RTN"",""HLTPCK2A"",81,0)"
^XMB(3.9,43,2,6338,0)=" . I 'ARY(""SAP""),$G(ARY(""SAN-SUB1-DEESCAPE""))]"""" D"
^XMB(3.9,43,2,6339,0)="""RTN"",""HLTPCK2A"",82,0)"
^XMB(3.9,43,2,6340,0)=" .. S ARY(""SAP"")=+$O(^HL(771,""B"",$E(ARY(""SAN-SUB1-DEESCAPE""),1,30),0))"
^XMB(3.9,43,2,6341,0)="""RTN"",""HLTPCK2A"",83,0)"
^XMB(3.9,43,2,6342,0)=" I ARY(""SAN"")[""\"" D"
^XMB(3.9,43,2,6343,0)="""RTN"",""HLTPCK2A"",84,0)"
^XMB(3.9,43,2,6344,0)=" . S ARY(""SAN-DEESCAPE"")=$$DEESCAPE(ARY(""SAN""))"
^XMB(3.9,43,2,6345,0)="""RTN"",""HLTPCK2A"",85,0)"
^XMB(3.9,43,2,6346,0)=" I 'ARY(""SAP""),$G(ARY(""SAN-DEESCAPE""))]"""" D"
^XMB(3.9,43,2,6347,0)="""RTN"",""HLTPCK2A"",86,0)"
^XMB(3.9,43,2,6348,0)=" . S ARY(""SAP"")=+$O(^HL(771,""B"",$E(ARY(""SAN-DEESCAPE""),1,30),0))"
^XMB(3.9,43,2,6349,0)="""RTN"",""HLTPCK2A"",87,0)"
^XMB(3.9,43,2,6350,0)=" ; patch HL*1.6*120 end"
^XMB(3.9,43,2,6351,0)="""RTN"",""HLTPCK2A"",88,0)"
^XMB(3.9,43,2,6352,0)=" ;"
^XMB(3.9,43,2,6353,0)="""RTN"",""HLTPCK2A"",89,0)"
^XMB(3.9,43,2,6354,0)=" I ('ARY(""SAP"")) S:(ERR="""") ERR=""Invalid Sending Application"" Q"
^XMB(3.9,43,2,6355,0)="""RTN"",""HLTPCK2A"",90,0)"
^XMB(3.9,43,2,6356,0)=" ;"
^XMB(3.9,43,2,6357,0)="""RTN"",""HLTPCK2A"",91,0)"
^XMB(3.9,43,2,6358,0)="VN ;Validate version number"
^XMB(3.9,43,2,6359,0)="""RTN"",""HLTPCK2A"",92,0)"
^XMB(3.9,43,2,6360,0)=" I (ARY(""VER"")="""") S:(ERR="""") ERR=""Missing HL7 Version"" Q"
^XMB(3.9,43,2,6361,0)="""RTN"",""HLTPCK2A"",93,0)"
^XMB(3.9,43,2,6362,0)=" S X=0"
^XMB(3.9,43,2,6363,0)="""RTN"",""HLTPCK2A"",94,0)"
^XMB(3.9,43,2,6364,0)=" S:(ARY(""VER"")'="""") X=+$O(^HL(771.5,""B"",ARY(""VER""),0))"
^XMB(3.9,43,2,6365,0)="""RTN"",""HLTPCK2A"",95,0)"
^XMB(3.9,43,2,6366,0)=" S ARY(""VEP"")=X"
^XMB(3.9,43,2,6367,0)="""RTN"",""HLTPCK2A"",96,0)"
^XMB(3.9,43,2,6368,0)=" I ('X) S:(ERR="""") ERR=""Invalid HL7 Version"" Q"
^XMB(3.9,43,2,6369,0)="""RTN"",""HLTPCK2A"",97,0)"
^XMB(3.9,43,2,6370,0)=" ;I (X'=$P($G(HLN(770)),""^"",10)) S:(ERR="""") ERR=""Invalid HL7 Version for Receiving Application"" Q"
^XMB(3.9,43,2,6371,0)="""RTN"",""HLTPCK2A"",98,0)"
^XMB(3.9,43,2,6372,0)=" ;"
^XMB(3.9,43,2,6373,0)="""RTN"",""HLTPCK2A"",99,0)"
^XMB(3.9,43,2,6374,0)="ET ;Event Type Checks"
^XMB(3.9,43,2,6375,0)="""RTN"",""HLTPCK2A"",100,0)"
^XMB(3.9,43,2,6376,0)=" ;"
^XMB(3.9,43,2,6377,0)="""RTN"",""HLTPCK2A"",101,0)"
^XMB(3.9,43,2,6378,0)=" ;I ARY(""ETN"")="""",ARY(""VER"")>2.1,$G(MSA)'="""" D"
^XMB(3.9,43,2,6379,0)="""RTN"",""HLTPCK2A"",102,0)"
^XMB(3.9,43,2,6380,0)=" ;. ;N Z,ZEP,ZP"
^XMB(3.9,43,2,6381,0)="""RTN"",""HLTPCK2A"",103,0)"
^XMB(3.9,43,2,6382,0)=" ;. ;S Z=0 I $P(MSA,FS,2)]"""" S Z=+$O(^HLMA(""C"",$P(MSA,FS,2),0))"
^XMB(3.9,43,2,6383,0)="""RTN"",""HLTPCK2A"",104,0)"
^XMB(3.9,43,2,6384,0)=" ;. ;I '$G(^HLMA(Z,0)) S:(ERR="""") ERR=""Original Outgoing Message not found"" Q"
^XMB(3.9,43,2,6385,0)="""RTN"",""HLTPCK2A"",105,0)"
^XMB(3.9,43,2,6386,0)=" ;. ;S ZEP=$P(^HLMA(Z,0),U,8)"
^XMB(3.9,43,2,6387,0)="""RTN"",""HLTPCK2A"",106,0)"
^XMB(3.9,43,2,6388,0)=" ;. ;I 'ZEP S:(ERR="""") ERR=""Event Protocol pointer (field #773,8) missing"" Q"
^XMB(3.9,43,2,6389,0)="""RTN"",""HLTPCK2A"",107,0)"
^XMB(3.9,43,2,6390,0)=" ;. ;S ZP=$G(^ORD(101,ZEP,770)),ARY(""ETN"")=$P($G(^HL(779.001,+$P(ZP,U,4),0)),U)"
^XMB(3.9,43,2,6391,0)="""RTN"",""HLTPCK2A"",108,0)"
^XMB(3.9,43,2,6392,0)=" ;"
^XMB(3.9,43,2,6393,0)="""RTN"",""HLTPCK2A"",109,0)"
^XMB(3.9,43,2,6394,0)=" ;Validate event type"
^XMB(3.9,43,2,6395,0)="""RTN"",""HLTPCK2A"",110,0)"
^XMB(3.9,43,2,6396,0)=" I (ARY(""ETN"")=""""),ARY(""VER"")>2.1,$G(MSA)="""" S ERR=""Event Type Required"" Q"
^XMB(3.9,43,2,6397,0)="""RTN"",""HLTPCK2A"",111,0)"
^XMB(3.9,43,2,6398,0)=" S ARY(""ETP"")=0"
^XMB(3.9,43,2,6399,0)="""RTN"",""HLTPCK2A"",112,0)"
^XMB(3.9,43,2,6400,0)=" S:(ARY(""ETN"")'="""") ARY(""ETP"")=+$O(^HL(779.001,""B"",ARY(""ETN""),0))"
^XMB(3.9,43,2,6401,0)="""RTN"",""HLTPCK2A"",113,0)"
^XMB(3.9,43,2,6402,0)=" I $G(MSA)="""",ARY(""VER"")>2.1,('ARY(""ETP"")) S ERR=""Invalid Event Type"" Q"
^XMB(3.9,43,2,6403,0)="""RTN"",""HLTPCK2A"",114,0)"
^XMB(3.9,43,2,6404,0)=" ;"
^XMB(3.9,43,2,6405,0)="""RTN"",""HLTPCK2A"",115,0)"
^XMB(3.9,43,2,6406,0)=" D ^HLTPCK2B"
^XMB(3.9,43,2,6407,0)="""RTN"",""HLTPCK2A"",116,0)"
^XMB(3.9,43,2,6408,0)=" Q"
^XMB(3.9,43,2,6409,0)="""RTN"",""HLTPCK2A"",117,0)"
^XMB(3.9,43,2,6410,0)="DEESCAPE(INPUT) ;"
^XMB(3.9,43,2,6411,0)="""RTN"",""HLTPCK2A"",118,0)"
^XMB(3.9,43,2,6412,0)=" ; patch HL*1.6*120 - de-escape delimiters:"
^XMB(3.9,43,2,6413,0)="""RTN"",""HLTPCK2A"",119,0)"
^XMB(3.9,43,2,6414,0)=" ; - field separator (de-escape from \F\)"
^XMB(3.9,43,2,6415,0)="""RTN"",""HLTPCK2A"",120,0)"
^XMB(3.9,43,2,6416,0)=" ; - component separator (de-escape from \S\)"
^XMB(3.9,43,2,6417,0)="""RTN"",""HLTPCK2A"",121,0)"
^XMB(3.9,43,2,6418,0)=" ; - repetition separator (de-escape from \R\)"
^XMB(3.9,43,2,6419,0)="""RTN"",""HLTPCK2A"",122,0)"
^XMB(3.9,43,2,6420,0)=" ; - escape character (de-escape from \E\)"
^XMB(3.9,43,2,6421,0)="""RTN"",""HLTPCK2A"",123,0)"
^XMB(3.9,43,2,6422,0)=" ; - subcomponent separator (de-escape from \T\)"
^XMB(3.9,43,2,6423,0)="""RTN"",""HLTPCK2A"",124,0)"
^XMB(3.9,43,2,6424,0)=" ; \F\ will be de-escaped only if the length of FS is 1."
^XMB(3.9,43,2,6425,0)="""RTN"",""HLTPCK2A"",125,0)"
^XMB(3.9,43,2,6426,0)=" ; \S\,\R\,\E\,and \T\ will be de-escaped only if the length"
^XMB(3.9,43,2,6427,0)="""RTN"",""HLTPCK2A"",126,0)"
^XMB(3.9,43,2,6428,0)=" ; of ECH is 4."
^XMB(3.9,43,2,6429,0)="""RTN"",""HLTPCK2A"",127,0)"
^XMB(3.9,43,2,6430,0)=" ;"
^XMB(3.9,43,2,6431,0)="""RTN"",""HLTPCK2A"",128,0)"
^XMB(3.9,43,2,6432,0)=" ; input:"
^XMB(3.9,43,2,6433,0)="""RTN"",""HLTPCK2A"",129,0)"
^XMB(3.9,43,2,6434,0)=" ; INPUT - input string to be de-escaped"
^XMB(3.9,43,2,6435,0)="""RTN"",""HLTPCK2A"",130,0)"
^XMB(3.9,43,2,6436,0)=" ; FS - field separator"
^XMB(3.9,43,2,6437,0)="""RTN"",""HLTPCK2A"",131,0)"
^XMB(3.9,43,2,6438,0)=" ; ECH - encoding 4 characters"
^XMB(3.9,43,2,6439,0)="""RTN"",""HLTPCK2A"",132,0)"
^XMB(3.9,43,2,6440,0)=" ; "
^XMB(3.9,43,2,6441,0)="""RTN"",""HLTPCK2A"",133,0)"
^XMB(3.9,43,2,6442,0)=" ; output: de-escaped string"
^XMB(3.9,43,2,6443,0)="""RTN"",""HLTPCK2A"",134,0)"
^XMB(3.9,43,2,6444,0)=" ;"
^XMB(3.9,43,2,6445,0)="""RTN"",""HLTPCK2A"",135,0)"
^XMB(3.9,43,2,6446,0)=" N HLDATA,HLESCAPE,HLI,HLCHAR,HLCHAR23,HLEN,HLOUT"
^XMB(3.9,43,2,6447,0)="""RTN"",""HLTPCK2A"",136,0)"
^XMB(3.9,43,2,6448,0)=" S HLDATA=$G(INPUT)"
^XMB(3.9,43,2,6449,0)="""RTN"",""HLTPCK2A"",137,0)"
^XMB(3.9,43,2,6450,0)=" I $L($G(ECH))=4 D"
^XMB(3.9,43,2,6451,0)="""RTN"",""HLTPCK2A"",138,0)"
^XMB(3.9,43,2,6452,0)=" . S ECH(1)=$E(ECH,1)"
^XMB(3.9,43,2,6453,0)="""RTN"",""HLTPCK2A"",139,0)"
^XMB(3.9,43,2,6454,0)=" . S ECH(2)=$E(ECH,2)"
^XMB(3.9,43,2,6455,0)="""RTN"",""HLTPCK2A"",140,0)"
^XMB(3.9,43,2,6456,0)=" . S ECH(3)=$E(ECH,3)"
^XMB(3.9,43,2,6457,0)="""RTN"",""HLTPCK2A"",141,0)"
^XMB(3.9,43,2,6458,0)=" . S ECH(4)=$E(ECH,4)"
^XMB(3.9,43,2,6459,0)="""RTN"",""HLTPCK2A"",142,0)"
^XMB(3.9,43,2,6460,0)=" Q:HLDATA']"""" HLDATA"
^XMB(3.9,43,2,6461,0)="""RTN"",""HLTPCK2A"",143,0)"
^XMB(3.9,43,2,6462,0)=" ;"
^XMB(3.9,43,2,6463,0)="""RTN"",""HLTPCK2A"",144,0)"
^XMB(3.9,43,2,6464,0)=" S HLEN=$L(HLDATA)"
^XMB(3.9,43,2,6465,0)="""RTN"",""HLTPCK2A"",145,0)"
^XMB(3.9,43,2,6466,0)=" S HLOUT="""""
^XMB(3.9,43,2,6467,0)="""RTN"",""HLTPCK2A"",146,0)"
^XMB(3.9,43,2,6468,0)=" F HLI=1:1:HLEN D"
^XMB(3.9,43,2,6469,0)="""RTN"",""HLTPCK2A"",147,0)"
^XMB(3.9,43,2,6470,0)=" . S HLCHAR=$E(HLDATA,HLI)"
^XMB(3.9,43,2,6471,0)="""RTN"",""HLTPCK2A"",148,0)"
^XMB(3.9,43,2,6472,0)=" . I HLCHAR=""\"" D"
^XMB(3.9,43,2,6473,0)="""RTN"",""HLTPCK2A"",149,0)"
^XMB(3.9,43,2,6474,0)=" . S HLCHAR23=$E(HLDATA,HLI+1,HLI+2)"
^XMB(3.9,43,2,6475,0)="""RTN"",""HLTPCK2A"",150,0)"
^XMB(3.9,43,2,6476,0)=" . I $L($G(FS))=1,(HLCHAR23=""F\"") D  Q"
^XMB(3.9,43,2,6477,0)="""RTN"",""HLTPCK2A"",151,0)"
^XMB(3.9,43,2,6478,0)=" .. S HLOUT=HLOUT_FS"
^XMB(3.9,43,2,6479,0)="""RTN"",""HLTPCK2A"",152,0)"
^XMB(3.9,43,2,6480,0)=" .. S HLI=HLI+2"
^XMB(3.9,43,2,6481,0)="""RTN"",""HLTPCK2A"",153,0)"
^XMB(3.9,43,2,6482,0)=" . I $L($G(ECH))=4,(HLCHAR23=""S\"") D  Q"
^XMB(3.9,43,2,6483,0)="""RTN"",""HLTPCK2A"",154,0)"
^XMB(3.9,43,2,6484,0)=" .. S HLOUT=HLOUT_ECH(1)"
^XMB(3.9,43,2,6485,0)="""RTN"",""HLTPCK2A"",155,0)"
^XMB(3.9,43,2,6486,0)=" .. S HLI=HLI+2"
^XMB(3.9,43,2,6487,0)="""RTN"",""HLTPCK2A"",156,0)"
^XMB(3.9,43,2,6488,0)=" . I $L($G(ECH))=4,(HLCHAR23=""R\"") D  Q"
^XMB(3.9,43,2,6489,0)="""RTN"",""HLTPCK2A"",157,0)"
^XMB(3.9,43,2,6490,0)=" .. S HLOUT=HLOUT_ECH(2)"
^XMB(3.9,43,2,6491,0)="""RTN"",""HLTPCK2A"",158,0)"
^XMB(3.9,43,2,6492,0)=" .. S HLI=HLI+2"
^XMB(3.9,43,2,6493,0)="""RTN"",""HLTPCK2A"",159,0)"
^XMB(3.9,43,2,6494,0)=" . I $L($G(ECH))=4,(HLCHAR23=""E\"") D  Q"
^XMB(3.9,43,2,6495,0)="""RTN"",""HLTPCK2A"",160,0)"
^XMB(3.9,43,2,6496,0)=" .. S HLOUT=HLOUT_ECH(3)"
^XMB(3.9,43,2,6497,0)="""RTN"",""HLTPCK2A"",161,0)"
^XMB(3.9,43,2,6498,0)=" .. S HLI=HLI+2"
^XMB(3.9,43,2,6499,0)="""RTN"",""HLTPCK2A"",162,0)"
^XMB(3.9,43,2,6500,0)=" . I $L($G(ECH))=4,(HLCHAR23=""T\"") D  Q"
^XMB(3.9,43,2,6501,0)="""RTN"",""HLTPCK2A"",163,0)"
^XMB(3.9,43,2,6502,0)=" .. S HLOUT=HLOUT_ECH(4)"
^XMB(3.9,43,2,6503,0)="""RTN"",""HLTPCK2A"",164,0)"
^XMB(3.9,43,2,6504,0)=" .. S HLI=HLI+2"
^XMB(3.9,43,2,6505,0)="""RTN"",""HLTPCK2A"",165,0)"
^XMB(3.9,43,2,6506,0)=" . S HLOUT=HLOUT_HLCHAR"
^XMB(3.9,43,2,6507,0)="""RTN"",""HLTPCK2A"",166,0)"
^XMB(3.9,43,2,6508,0)=" ;"
^XMB(3.9,43,2,6509,0)="""RTN"",""HLTPCK2A"",167,0)"
^XMB(3.9,43,2,6510,0)=" Q HLOUT"
^XMB(3.9,43,2,6511,0)="""RTN"",""HLTPCK2B"")"
^XMB(3.9,43,2,6512,0)="0^13^B63390233"
^XMB(3.9,43,2,6513,0)="""RTN"",""HLTPCK2B"",1,0)"
^XMB(3.9,43,2,6514,0)="HLTPCK2B ;OIFO-O/RJH - Message Header Validation (Con't) ;03/06/2006  15:48"
^XMB(3.9,43,2,6515,0)="""RTN"",""HLTPCK2B"",2,0)"
^XMB(3.9,43,2,6516,0)=" ;;1.6;HEALTH LEVEL SEVEN;**120**;Oct 13, 1995;Build 12"
^XMB(3.9,43,2,6517,0)="""RTN"",""HLTPCK2B"",3,0)"
^XMB(3.9,43,2,6518,0)=" ;"
^XMB(3.9,43,2,6519,0)="""RTN"",""HLTPCK2B"",4,0)"
^XMB(3.9,43,2,6520,0)=" ; splitted from HLTPCK2A"
^XMB(3.9,43,2,6521,0)="""RTN"",""HLTPCK2B"",5,0)"
^XMB(3.9,43,2,6522,0)=" ; to be called from HLTPCK2A"
^XMB(3.9,43,2,6523,0)="""RTN"",""HLTPCK2B"",6,0)"
^XMB(3.9,43,2,6524,0)=" ;"
^XMB(3.9,43,2,6525,0)="""RTN"",""HLTPCK2B"",7,0)"
^XMB(3.9,43,2,6526,0)="MS ;Check for Message Structure Code"
^XMB(3.9,43,2,6527,0)="""RTN"",""HLTPCK2B"",8,0)"
^XMB(3.9,43,2,6528,0)=" I $G(ARY(""MTN_ETN""))'="""" D"
^XMB(3.9,43,2,6529,0)="""RTN"",""HLTPCK2B"",9,0)"
^XMB(3.9,43,2,6530,0)=" . S ARY(""MTP_ETP"")=0"
^XMB(3.9,43,2,6531,0)="""RTN"",""HLTPCK2B"",10,0)"
^XMB(3.9,43,2,6532,0)=" . S ARY(""MTP_ETP"")=+$O(^HL(779.005,""B"",ARY(""MTN_ETN""),0))"
^XMB(3.9,43,2,6533,0)="""RTN"",""HLTPCK2B"",11,0)"
^XMB(3.9,43,2,6534,0)=" . I ('ARY(""MTP_ETP"")) S:(ERR="""") ERR=""Invalid Message Structure Code"" Q"
^XMB(3.9,43,2,6535,0)="""RTN"",""HLTPCK2B"",12,0)"
^XMB(3.9,43,2,6536,0)=" ;"
^XMB(3.9,43,2,6537,0)="""RTN"",""HLTPCK2B"",13,0)"
^XMB(3.9,43,2,6538,0)=" ;Get server and client Protocols"
^XMB(3.9,43,2,6539,0)="""RTN"",""HLTPCK2B"",14,0)"
^XMB(3.9,43,2,6540,0)="MSA ;if ack, then get information and quit, we don't need to respond"
^XMB(3.9,43,2,6541,0)="""RTN"",""HLTPCK2B"",15,0)"
^XMB(3.9,43,2,6542,0)=" I $G(MSA)]"""" D  Q"
^XMB(3.9,43,2,6543,0)="""RTN"",""HLTPCK2B"",16,0)"
^XMB(3.9,43,2,6544,0)=" . ;Message is an acknowledgement, find original message"
^XMB(3.9,43,2,6545,0)="""RTN"",""HLTPCK2B"",17,0)"
^XMB(3.9,43,2,6546,0)=" . S ARY(""MSAID"")=$P(MSA,FS,2),ARY(""MTIENS"")=0"
^XMB(3.9,43,2,6547,0)="""RTN"",""HLTPCK2B"",18,0)"
^XMB(3.9,43,2,6548,0)=" . I ARY(""MSAID"")="""" S:(ERR="""") ERR=""Invalid Message Control ID in MSA Segment "" Q"
^XMB(3.9,43,2,6549,0)="""RTN"",""HLTPCK2B"",19,0)"
^XMB(3.9,43,2,6550,0)=" . F  S ARY(""MTIENS"")=+$O(^HLMA(""AH"",ARY(""SAP""),ARY(""MSAID""),ARY(""MTIENS""))) Q:'ARY(""MTIENS"")!($P($G(^HLMA(ARY(""MTIENS""),0)),U,3)=""O"")"
^XMB(3.9,43,2,6551,0)="""RTN"",""HLTPCK2B"",20,0)"
^XMB(3.9,43,2,6552,0)=" . I 'ARY(""MTIENS"") S:(ERR="""") ERR=""Invalid Message Control ID in MSA Segment"" Q"
^XMB(3.9,43,2,6553,0)="""RTN"",""HLTPCK2B"",21,0)"
^XMB(3.9,43,2,6554,0)=" . ;get subscriber protocol and ack. to (show if this is an ack to an ack)"
^XMB(3.9,43,2,6555,0)="""RTN"",""HLTPCK2B"",22,0)"
^XMB(3.9,43,2,6556,0)=" . S X=$G(^HLMA(ARY(""MTIENS""),0)),ARY(""EIDS"")=$P(X,U,8),ARY(""ACK"")=$P(X,U,10)"
^XMB(3.9,43,2,6557,0)="""RTN"",""HLTPCK2B"",23,0)"
^XMB(3.9,43,2,6558,0)=" . ;if no subscriber protocol then response msg. is invalid"
^XMB(3.9,43,2,6559,0)="""RTN"",""HLTPCK2B"",24,0)"
^XMB(3.9,43,2,6560,0)=" . I ('ARY(""EIDS"")) S:(ERR="""") ERR=""Invalid Message Control ID in MSA Segment"" Q"
^XMB(3.9,43,2,6561,0)="""RTN"",""HLTPCK2B"",25,0)"
^XMB(3.9,43,2,6562,0)=" . ;get message text ien in file 772 and server protocol, 'EID'"
^XMB(3.9,43,2,6563,0)="""RTN"",""HLTPCK2B"",26,0)"
^XMB(3.9,43,2,6564,0)=" . S ARY(""MTIEN"")=+X,X=$G(^HL(772,+X,0)),ARY(""EID"")=$P(X,U,10)"
^XMB(3.9,43,2,6565,0)="""RTN"",""HLTPCK2B"",27,0)"
^XMB(3.9,43,2,6566,0)=" . I ('ARY(""EID"")) S:(ERR="""") ERR=""Event Protocol not found"" Q"
^XMB(3.9,43,2,6567,0)="""RTN"",""HLTPCK2B"",28,0)"
^XMB(3.9,43,2,6568,0)=" . D EVENT^HLUTIL1(ARY(""EIDS""),""770,773"",.HLN)"
^XMB(3.9,43,2,6569,0)="""RTN"",""HLTPCK2B"",29,0)"
^XMB(3.9,43,2,6570,0)=" ;"
^XMB(3.9,43,2,6571,0)="""RTN"",""HLTPCK2B"",30,0)"
^XMB(3.9,43,2,6572,0)=" ;Find Server Protocol - based on sending application, message type,"
^XMB(3.9,43,2,6573,0)="""RTN"",""HLTPCK2B"",31,0)"
^XMB(3.9,43,2,6574,0)=" ;event type and version ID"
^XMB(3.9,43,2,6575,0)="""RTN"",""HLTPCK2B"",32,0)"
^XMB(3.9,43,2,6576,0)=" I ARY(""ETP"") S ARY(""EID"")=+$O(^ORD(101,""AHL1"",ARY(""SAP""),ARY(""MTP""),ARY(""ETP""),ARY(""VEP""),0))"
^XMB(3.9,43,2,6577,0)="""RTN"",""HLTPCK2B"",33,0)"
^XMB(3.9,43,2,6578,0)=" ;"
^XMB(3.9,43,2,6579,0)="""RTN"",""HLTPCK2B"",34,0)"
^XMB(3.9,43,2,6580,0)=" ;Find Server Protocol - based on sending application, message type,"
^XMB(3.9,43,2,6581,0)="""RTN"",""HLTPCK2B"",35,0)"
^XMB(3.9,43,2,6582,0)=" ;and version ID"
^XMB(3.9,43,2,6583,0)="""RTN"",""HLTPCK2B"",36,0)"
^XMB(3.9,43,2,6584,0)=" I 'ARY(""ETP"") S ARY(""EID"")=+$O(^ORD(101,""AHL21"",ARY(""SAP""),ARY(""MTP""),ARY(""VEP""),0))"
^XMB(3.9,43,2,6585,0)="""RTN"",""HLTPCK2B"",37,0)"
^XMB(3.9,43,2,6586,0)=" ;"
^XMB(3.9,43,2,6587,0)="""RTN"",""HLTPCK2B"",38,0)"
^XMB(3.9,43,2,6588,0)=" I ('ARY(""EID"")) S:(ERR="""") ERR=""Event Protocol not found"" Q"
^XMB(3.9,43,2,6589,0)="""RTN"",""HLTPCK2B"",39,0)"
^XMB(3.9,43,2,6590,0)=" ;Find Client Protocol - in ITEM multiple of Server Protocol"
^XMB(3.9,43,2,6591,0)="""RTN"",""HLTPCK2B"",40,0)"
^XMB(3.9,43,2,6592,0)=" S ARY(""EIDS"")=0"
^XMB(3.9,43,2,6593,0)="""RTN"",""HLTPCK2B"",41,0)"
^XMB(3.9,43,2,6594,0)=" F  S ARY(""EIDS"")=+$O(^ORD(101,ARY(""EID""),775,""B"",ARY(""EIDS""))) Q:'ARY(""EIDS"")!($P($G(^ORD(101,ARY(""EIDS""),770)),U,2)=ARY(""RAP""))"
^XMB(3.9,43,2,6595,0)="""RTN"",""HLTPCK2B"",42,0)"
^XMB(3.9,43,2,6596,0)=" I 'ARY(""EIDS"") S ERR=""Invalid Receiving Application for this Event"" Q"
^XMB(3.9,43,2,6597,0)="""RTN"",""HLTPCK2B"",43,0)"
^XMB(3.9,43,2,6598,0)=" D EVENT^HLUTIL1(ARY(""EIDS""),""770,773"",.HLN)"
^XMB(3.9,43,2,6599,0)="""RTN"",""HLTPCK2B"",44,0)"
^XMB(3.9,43,2,6600,0)=" ;"
^XMB(3.9,43,2,6601,0)="""RTN"",""HLTPCK2B"",45,0)"
^XMB(3.9,43,2,6602,0)="LLP ;Get logical link pointer"
^XMB(3.9,43,2,6603,0)="""RTN"",""HLTPCK2B"",46,0)"
^XMB(3.9,43,2,6604,0)=" S ARY(""LL"")=$P($G(HLN(770)),""^"",7)"
^XMB(3.9,43,2,6605,0)="""RTN"",""HLTPCK2B"",47,0)"
^XMB(3.9,43,2,6606,0)=" ;"
^XMB(3.9,43,2,6607,0)="""RTN"",""HLTPCK2B"",48,0)"
^XMB(3.9,43,2,6608,0)="FAC ;Get sending/rec facility, validate if necessary"
^XMB(3.9,43,2,6609,0)="""RTN"",""HLTPCK2B"",49,0)"
^XMB(3.9,43,2,6610,0)=" ;"
^XMB(3.9,43,2,6611,0)="""RTN"",""HLTPCK2B"",50,0)"
^XMB(3.9,43,2,6612,0)=" S HLCS=$E(ECH,1) ;Get component separator"
^XMB(3.9,43,2,6613,0)="""RTN"",""HLTPCK2B"",51,0)"
^XMB(3.9,43,2,6614,0)=" S ARY(""RAF"")=$$P^HLTPCK2(.HDR,6) ;Receiving Facility"
^XMB(3.9,43,2,6615,0)="""RTN"",""HLTPCK2B"",52,0)"
^XMB(3.9,43,2,6616,0)=" S ARY(""SAF"")=$$P^HLTPCK2(.HDR,4) ;Sending Facility"
^XMB(3.9,43,2,6617,0)="""RTN"",""HLTPCK2B"",53,0)"
^XMB(3.9,43,2,6618,0)=" ;Get sending/receiving facility from Application Parameter file(771)"
^XMB(3.9,43,2,6619,0)="""RTN"",""HLTPCK2B"",54,0)"
^XMB(3.9,43,2,6620,0)=" S HL771SF=$P($G(^HL(771,ARY(""SAP""),0)),U,3)"
^XMB(3.9,43,2,6621,0)="""RTN"",""HLTPCK2B"",55,0)"
^XMB(3.9,43,2,6622,0)=" S HL771RF=$P($G(^HL(771,ARY(""RAP""),0)),U,3)"
^XMB(3.9,43,2,6623,0)="""RTN"",""HLTPCK2B"",56,0)"
^XMB(3.9,43,2,6624,0)=" ;Sending/Receiving facility required?"
^XMB(3.9,43,2,6625,0)="""RTN"",""HLTPCK2B"",57,0)"
^XMB(3.9,43,2,6626,0)=" S X=$G(^ORD(101,ARY(""EIDS""),773))"
^XMB(3.9,43,2,6627,0)="""RTN"",""HLTPCK2B"",58,0)"
^XMB(3.9,43,2,6628,0)=" S HLSFREQ=+X,HLRFREQ=+$P(X,U,2)"
^XMB(3.9,43,2,6629,0)="""RTN"",""HLTPCK2B"",59,0)"
^XMB(3.9,43,2,6630,0)="RF ;Validate Receiving Facility"
^XMB(3.9,43,2,6631,0)="""RTN"",""HLTPCK2B"",60,0)"
^XMB(3.9,43,2,6632,0)=" I HLRFREQ D"
^XMB(3.9,43,2,6633,0)="""RTN"",""HLTPCK2B"",61,0)"
^XMB(3.9,43,2,6634,0)=" .I ARY(""RAF"")="""" S:ERR="""" ERR=""Missing required receiving facility"""
^XMB(3.9,43,2,6635,0)="""RTN"",""HLTPCK2B"",62,0)"
^XMB(3.9,43,2,6636,0)=" .I HL771RF]"""" D  Q"
^XMB(3.9,43,2,6637,0)="""RTN"",""HLTPCK2B"",63,0)"
^XMB(3.9,43,2,6638,0)=" ..;Facility data in 771 overrides data in site paramter file"
^XMB(3.9,43,2,6639,0)="""RTN"",""HLTPCK2B"",64,0)"
^XMB(3.9,43,2,6640,0)=" ..Q"
^XMB(3.9,43,2,6641,0)="""RTN"",""HLTPCK2B"",65,0)"
^XMB(3.9,43,2,6642,0)=" .;Check against local default value (site parameters)"
^XMB(3.9,43,2,6643,0)="""RTN"",""HLTPCK2B"",66,0)"
^XMB(3.9,43,2,6644,0)=" .Q:ARY(""RAF"")=(HLINSTN_HLCS_HLDOM_HLCS_""DNS"")"
^XMB(3.9,43,2,6645,0)="""RTN"",""HLTPCK2B"",67,0)"
^XMB(3.9,43,2,6646,0)=" .;"
^XMB(3.9,43,2,6647,0)="""RTN"",""HLTPCK2B"",68,0)"
^XMB(3.9,43,2,6648,0)=" .; patch HL*1.6*120 start"
^XMB(3.9,43,2,6649,0)="""RTN"",""HLTPCK2B"",69,0)"
^XMB(3.9,43,2,6650,0)=" .; I $P(ARY(""RAF""),HLCS)=HLINSTN,$P(ARY(""RAF""),HLCS,3)=""DNS"" D  Q"
^XMB(3.9,43,2,6651,0)="""RTN"",""HLTPCK2B"",70,0)"
^XMB(3.9,43,2,6652,0)=" . I $P(ARY(""RAF""),HLCS,3)=""DNS"" D  Q"
^XMB(3.9,43,2,6653,0)="""RTN"",""HLTPCK2B"",71,0)"
^XMB(3.9,43,2,6654,0)=" .. N ERROR,HLDOMP1,HLDOMP2"
^XMB(3.9,43,2,6655,0)="""RTN"",""HLTPCK2B"",72,0)"
^XMB(3.9,43,2,6656,0)=" .. ; S HLDOMP1=$P(ARY(""RAF""),HLCS,2),HLDOMP1=$$FIND1^DIC(4.2,"""",""BMX"",HLDOMP1,""B^C"","""",""ERROR"")"
^XMB(3.9,43,2,6657,0)="""RTN"",""HLTPCK2B"",73,0)"
^XMB(3.9,43,2,6658,0)=" .. S HLDOMP1=$P(ARY(""RAF""),HLCS,2)"
^XMB(3.9,43,2,6659,0)="""RTN"",""HLTPCK2B"",74,0)"
^XMB(3.9,43,2,6660,0)=" .. ;"
^XMB(3.9,43,2,6661,0)="""RTN"",""HLTPCK2B"",75,0)"
^XMB(3.9,43,2,6662,0)=" .. ; assume the format is <domain>:<port #>"
^XMB(3.9,43,2,6663,0)="""RTN"",""HLTPCK2B"",76,0)"
^XMB(3.9,43,2,6664,0)=" .. I HLDOMP1["":"" S ARY(""RAF-PORT"")=$P(HLDOMP1,"":"",2)"
^XMB(3.9,43,2,6665,0)="""RTN"",""HLTPCK2B"",77,0)"
^XMB(3.9,43,2,6666,0)=" .. S HLDOMP1=$P(HLDOMP1,"":"")"
^XMB(3.9,43,2,6667,0)="""RTN"",""HLTPCK2B"",78,0)"
^XMB(3.9,43,2,6668,0)=" .. S ARY(""RAF-DOMAIN"")=HLDOMP1"
^XMB(3.9,43,2,6669,0)="""RTN"",""HLTPCK2B"",79,0)"
^XMB(3.9,43,2,6670,0)=" .. ;"
^XMB(3.9,43,2,6671,0)="""RTN"",""HLTPCK2B"",80,0)"
^XMB(3.9,43,2,6672,0)=" .. ; if first piece of domain is ""HL7."" or ""MPI."", remove it"
^XMB(3.9,43,2,6673,0)="""RTN"",""HLTPCK2B"",81,0)"
^XMB(3.9,43,2,6674,0)=" .. I ($E(HLDOMP1,1,4)=""HL7."")!($E(HLDOMP1,1,4)=""MPI."") D"
^XMB(3.9,43,2,6675,0)="""RTN"",""HLTPCK2B"",82,0)"
^XMB(3.9,43,2,6676,0)=" ... S HLDOMP1=$P(HLDOMP1,""."",2,99)"
^XMB(3.9,43,2,6677,0)="""RTN"",""HLTPCK2B"",83,0)"
^XMB(3.9,43,2,6678,0)=" .. S HLDOMP1=$$FIND1^DIC(4.2,"""",""BMX"",HLDOMP1,""B^C"","""",""ERROR"")"
^XMB(3.9,43,2,6679,0)="""RTN"",""HLTPCK2B"",84,0)"
^XMB(3.9,43,2,6680,0)=" .. S HLDOMP2=HLDOM,HLDOMP2=$$FIND1^DIC(4.2,"""",""BMX"",HLDOMP2,""B^C"","""",""ERROR"")"
^XMB(3.9,43,2,6681,0)="""RTN"",""HLTPCK2B"",85,0)"
^XMB(3.9,43,2,6682,0)=" .. I HLDOMP1&HLDOMP2&(HLDOMP1=HLDOMP2) Q"
^XMB(3.9,43,2,6683,0)="""RTN"",""HLTPCK2B"",86,0)"
^XMB(3.9,43,2,6684,0)=" .. ;"
^XMB(3.9,43,2,6685,0)="""RTN"",""HLTPCK2B"",87,0)"
^XMB(3.9,43,2,6686,0)=" .. ; check DNS domain and ip address"
^XMB(3.9,43,2,6687,0)="""RTN"",""HLTPCK2B"",88,0)"
^XMB(3.9,43,2,6688,0)=" .. ;initialize variable, HLDOMP(""FLAG"")"
^XMB(3.9,43,2,6689,0)="""RTN"",""HLTPCK2B"",89,0)"
^XMB(3.9,43,2,6690,0)=" .. S HLDOMP(""FLAG"")=0"
^XMB(3.9,43,2,6691,0)="""RTN"",""HLTPCK2B"",90,0)"
^XMB(3.9,43,2,6692,0)=" .. I ARY(""RAF-DOMAIN"")]"""" D"
^XMB(3.9,43,2,6693,0)="""RTN"",""HLTPCK2B"",91,0)"
^XMB(3.9,43,2,6694,0)=" ... ;"
^XMB(3.9,43,2,6695,0)="""RTN"",""HLTPCK2B"",92,0)"
^XMB(3.9,43,2,6696,0)=" ... ; match DNS domain"
^XMB(3.9,43,2,6697,0)="""RTN"",""HLTPCK2B"",93,0)"
^XMB(3.9,43,2,6698,0)=" ... I $D(^HLCS(870,""DNS"",ARY(""RAF-DOMAIN""))) D  Q"
^XMB(3.9,43,2,6699,0)="""RTN"",""HLTPCK2B"",94,0)"
^XMB(3.9,43,2,6700,0)=" .... S HLDOMP(""FLAG"")=1"
^XMB(3.9,43,2,6701,0)="""RTN"",""HLTPCK2B"",95,0)"
^XMB(3.9,43,2,6702,0)=" .... S ARY(""RAF-LL"")=+$O(^HLCS(870,""DNS"",ARY(""RAF-DOMAIN""),0))"
^XMB(3.9,43,2,6703,0)="""RTN"",""HLTPCK2B"",96,0)"
^XMB(3.9,43,2,6704,0)=" ... I $D(^HLCS(870,""DNS"",$$UP^XLFSTR(ARY(""RAF-DOMAIN"")))) D  Q"
^XMB(3.9,43,2,6705,0)="""RTN"",""HLTPCK2B"",97,0)"
^XMB(3.9,43,2,6706,0)=" .... S HLDOMP(""FLAG"")=1"
^XMB(3.9,43,2,6707,0)="""RTN"",""HLTPCK2B"",98,0)"
^XMB(3.9,43,2,6708,0)=" .... S ARY(""RAF-LL"")=+$O(^HLCS(870,""DNS"",$$UP^XLFSTR(ARY(""RAF-DOMAIN"")),0))"
^XMB(3.9,43,2,6709,0)="""RTN"",""HLTPCK2B"",99,0)"
^XMB(3.9,43,2,6710,0)=" ... I $D(^HLCS(870,""DNS"",$$LOW^XLFSTR(ARY(""RAF-DOMAIN"")))) D  Q"
^XMB(3.9,43,2,6711,0)="""RTN"",""HLTPCK2B"",100,0)"
^XMB(3.9,43,2,6712,0)=" .... S HLDOMP(""FLAG"")=1"
^XMB(3.9,43,2,6713,0)="""RTN"",""HLTPCK2B"",101,0)"
^XMB(3.9,43,2,6714,0)=" .... S ARY(""RAF-LL"")=+$O(^HLCS(870,""DNS"",$$LOW^XLFSTR(ARY(""RAF-DOMAIN"")),0))"
^XMB(3.9,43,2,6715,0)="""RTN"",""HLTPCK2B"",102,0)"
^XMB(3.9,43,2,6716,0)=" ... ;"
^XMB(3.9,43,2,6717,0)="""RTN"",""HLTPCK2B"",103,0)"
^XMB(3.9,43,2,6718,0)=" ... ; match ip address"
^XMB(3.9,43,2,6719,0)="""RTN"",""HLTPCK2B"",104,0)"
^XMB(3.9,43,2,6720,0)=" ... I $D(^HLCS(870,""IP"",ARY(""RAF-DOMAIN""))) D  Q"
^XMB(3.9,43,2,6721,0)="""RTN"",""HLTPCK2B"",105,0)"
^XMB(3.9,43,2,6722,0)=" .... S HLDOMP(""FLAG"")=1"
^XMB(3.9,43,2,6723,0)="""RTN"",""HLTPCK2B"",106,0)"
^XMB(3.9,43,2,6724,0)=" .... S ARY(""RAF-LL"")=+$O(^HLCS(870,""IP"",ARY(""RAF-DOMAIN""),0))"
^XMB(3.9,43,2,6725,0)="""RTN"",""HLTPCK2B"",107,0)"
^XMB(3.9,43,2,6726,0)=" .. Q:HLDOMP(""FLAG"")=1"
^XMB(3.9,43,2,6727,0)="""RTN"",""HLTPCK2B"",108,0)"
^XMB(3.9,43,2,6728,0)=" .. I $P(ARY(""RAF""),HLCS)=HLINSTN Q"
^XMB(3.9,43,2,6729,0)="""RTN"",""HLTPCK2B"",109,0)"
^XMB(3.9,43,2,6730,0)=" .. ;"
^XMB(3.9,43,2,6731,0)="""RTN"",""HLTPCK2B"",110,0)"
^XMB(3.9,43,2,6732,0)=" .. S:ERR="""" ERR=""Receiving Facility mismatch."""
^XMB(3.9,43,2,6733,0)="""RTN"",""HLTPCK2B"",111,0)"
^XMB(3.9,43,2,6734,0)=" . I $P(ARY(""RAF""),HLCS)=HLINSTN Q"
^XMB(3.9,43,2,6735,0)="""RTN"",""HLTPCK2B"",112,0)"
^XMB(3.9,43,2,6736,0)=" . S:ERR="""" ERR=""Receiving Facility mismatch."""
^XMB(3.9,43,2,6737,0)="""RTN"",""HLTPCK2B"",113,0)"
^XMB(3.9,43,2,6738,0)=" ; patch HL*1.6*120 end"
^XMB(3.9,43,2,6739,0)="""RTN"",""HLTPCK2B"",114,0)"
^XMB(3.9,43,2,6740,0)=" ;"
^XMB(3.9,43,2,6741,0)="""RTN"",""HLTPCK2B"",115,0)"
^XMB(3.9,43,2,6742,0)="SF ;Validate Sending Facility"
^XMB(3.9,43,2,6743,0)="""RTN"",""HLTPCK2B"",116,0)"
^XMB(3.9,43,2,6744,0)=" I HLSFREQ D"
^XMB(3.9,43,2,6745,0)="""RTN"",""HLTPCK2B"",117,0)"
^XMB(3.9,43,2,6746,0)=" .I ARY(""SAF"")="""" S:ERR="""" ERR=""Missing required sending facility"""
^XMB(3.9,43,2,6747,0)="""RTN"",""HLTPCK2B"",118,0)"
^XMB(3.9,43,2,6748,0)=" .I HL771SF]"""" D  Q"
^XMB(3.9,43,2,6749,0)="""RTN"",""HLTPCK2B"",119,0)"
^XMB(3.9,43,2,6750,0)=" ..;Check for facility data in 771"
^XMB(3.9,43,2,6751,0)="""RTN"",""HLTPCK2B"",120,0)"
^XMB(3.9,43,2,6752,0)=" ..Q"
^XMB(3.9,43,2,6753,0)="""RTN"",""HLTPCK2B"",121,0)"
^XMB(3.9,43,2,6754,0)=" .;If default value was sent, validate that DOMAIN RESOLVES TO LOGICAL LINK"
^XMB(3.9,43,2,6755,0)="""RTN"",""HLTPCK2B"",122,0)"
^XMB(3.9,43,2,6756,0)=" .;If so, use this instead of Protocol definition for return path"
^XMB(3.9,43,2,6757,0)="""RTN"",""HLTPCK2B"",123,0)"
^XMB(3.9,43,2,6758,0)=" .;"
^XMB(3.9,43,2,6759,0)="""RTN"",""HLTPCK2B"",124,0)"
^XMB(3.9,43,2,6760,0)=" .; patch HL*1.6*120 start"
^XMB(3.9,43,2,6761,0)="""RTN"",""HLTPCK2B"",125,0)"
^XMB(3.9,43,2,6762,0)=" . N HLDOMP"
^XMB(3.9,43,2,6763,0)="""RTN"",""HLTPCK2B"",126,0)"
^XMB(3.9,43,2,6764,0)=" . ; S HLDOMP=$P(ARY(""SAF""),HLCS,2),HLDOMP=$$FIND1^DIC(4.2,"""",""BMX"",HLDOMP,""B^C"","""",""ERROR"")"
^XMB(3.9,43,2,6765,0)="""RTN"",""HLTPCK2B"",127,0)"
^XMB(3.9,43,2,6766,0)=" . S HLDOMP=$P(ARY(""SAF""),HLCS,2)"
^XMB(3.9,43,2,6767,0)="""RTN"",""HLTPCK2B"",128,0)"
^XMB(3.9,43,2,6768,0)=" . ;"
^XMB(3.9,43,2,6769,0)="""RTN"",""HLTPCK2B"",129,0)"
^XMB(3.9,43,2,6770,0)=" . ; assume the format is <domain>:<port #>"
^XMB(3.9,43,2,6771,0)="""RTN"",""HLTPCK2B"",130,0)"
^XMB(3.9,43,2,6772,0)=" . I HLDOMP["":"" S ARY(""SAF-PORT"")=$P(HLDOMP,"":"",2)"
^XMB(3.9,43,2,6773,0)="""RTN"",""HLTPCK2B"",131,0)"
^XMB(3.9,43,2,6774,0)=" . S HLDOMP=$P(HLDOMP,"":"")"
^XMB(3.9,43,2,6775,0)="""RTN"",""HLTPCK2B"",132,0)"
^XMB(3.9,43,2,6776,0)=" . S ARY(""SAF-DOMAIN"")=HLDOMP"
^XMB(3.9,43,2,6777,0)="""RTN"",""HLTPCK2B"",133,0)"
^XMB(3.9,43,2,6778,0)=" . ;"
^XMB(3.9,43,2,6779,0)="""RTN"",""HLTPCK2B"",134,0)"
^XMB(3.9,43,2,6780,0)=" . ; if first piece of domain is ""HL7."" or ""MPI."", remove it"
^XMB(3.9,43,2,6781,0)="""RTN"",""HLTPCK2B"",135,0)"
^XMB(3.9,43,2,6782,0)=" . I ($E(HLDOMP,1,4)=""HL7."")!($E(HLDOMP,1,4)=""MPI."") D"
^XMB(3.9,43,2,6783,0)="""RTN"",""HLTPCK2B"",136,0)"
^XMB(3.9,43,2,6784,0)=" .. S HLDOMP=$P(HLDOMP,""."",2,99)"
^XMB(3.9,43,2,6785,0)="""RTN"",""HLTPCK2B"",137,0)"
^XMB(3.9,43,2,6786,0)=" . S HLDOMP=$$FIND1^DIC(4.2,"""",""BMX"",HLDOMP,""B^C"","""",""ERROR"")"
^XMB(3.9,43,2,6787,0)="""RTN"",""HLTPCK2B"",138,0)"
^XMB(3.9,43,2,6788,0)=" .;Note: This expects a unique domain in domain file. Multiple entries will fail"
^XMB(3.9,43,2,6789,0)="""RTN"",""HLTPCK2B"",139,0)"
^XMB(3.9,43,2,6790,0)=" . ; I 'HLDOMP S:ERR="""" ERR=""Unrecognized/ambiguous domain in sending facility"""
^XMB(3.9,43,2,6791,0)="""RTN"",""HLTPCK2B"",140,0)"
^XMB(3.9,43,2,6792,0)=" . ;"
^XMB(3.9,43,2,6793,0)="""RTN"",""HLTPCK2B"",141,0)"
^XMB(3.9,43,2,6794,0)=" . ; check DNS domain and ip address"
^XMB(3.9,43,2,6795,0)="""RTN"",""HLTPCK2B"",142,0)"
^XMB(3.9,43,2,6796,0)=" . I 'HLDOMP D"
^XMB(3.9,43,2,6797,0)="""RTN"",""HLTPCK2B"",143,0)"
^XMB(3.9,43,2,6798,0)=" .. ;"
^XMB(3.9,43,2,6799,0)="""RTN"",""HLTPCK2B"",144,0)"
^XMB(3.9,43,2,6800,0)=" .. ;initialize variable, HLDOMP(""FLAG"")"
^XMB(3.9,43,2,6801,0)="""RTN"",""HLTPCK2B"",145,0)"
^XMB(3.9,43,2,6802,0)=" .. S HLDOMP(""FLAG"")=0"
^XMB(3.9,43,2,6803,0)="""RTN"",""HLTPCK2B"",146,0)"
^XMB(3.9,43,2,6804,0)=" .. I ARY(""SAF-DOMAIN"")]"""" D"
^XMB(3.9,43,2,6805,0)="""RTN"",""HLTPCK2B"",147,0)"
^XMB(3.9,43,2,6806,0)=" ... ;"
^XMB(3.9,43,2,6807,0)="""RTN"",""HLTPCK2B"",148,0)"
^XMB(3.9,43,2,6808,0)=" ... ; match DNS domain"
^XMB(3.9,43,2,6809,0)="""RTN"",""HLTPCK2B"",149,0)"
^XMB(3.9,43,2,6810,0)=" ... I $D(^HLCS(870,""DNS"",ARY(""SAF-DOMAIN""))) D  Q"
^XMB(3.9,43,2,6811,0)="""RTN"",""HLTPCK2B"",150,0)"
^XMB(3.9,43,2,6812,0)=" .... S HLDOMP(""FLAG"")=1"
^XMB(3.9,43,2,6813,0)="""RTN"",""HLTPCK2B"",151,0)"
^XMB(3.9,43,2,6814,0)=" .... S ARY(""SAF-LL"")=+$O(^HLCS(870,""DNS"",ARY(""SAF-DOMAIN""),0))"
^XMB(3.9,43,2,6815,0)="""RTN"",""HLTPCK2B"",152,0)"
^XMB(3.9,43,2,6816,0)=" ... I $D(^HLCS(870,""DNS"",$$UP^XLFSTR(ARY(""SAF-DOMAIN"")))) D  Q"
^XMB(3.9,43,2,6817,0)="""RTN"",""HLTPCK2B"",153,0)"
^XMB(3.9,43,2,6818,0)=" .... S HLDOMP(""FLAG"")=1"
^XMB(3.9,43,2,6819,0)="""RTN"",""HLTPCK2B"",154,0)"
^XMB(3.9,43,2,6820,0)=" .... S ARY(""SAF-LL"")=+$O(^HLCS(870,""DNS"",$$UP^XLFSTR(ARY(""SAF-DOMAIN"")),0))"
^XMB(3.9,43,2,6821,0)="""RTN"",""HLTPCK2B"",155,0)"
^XMB(3.9,43,2,6822,0)=" ... I $D(^HLCS(870,""DNS"",$$LOW^XLFSTR(ARY(""SAF-DOMAIN"")))) D  Q"
^XMB(3.9,43,2,6823,0)="""RTN"",""HLTPCK2B"",156,0)"
^XMB(3.9,43,2,6824,0)=" .... S HLDOMP(""FLAG"")=1"
^XMB(3.9,43,2,6825,0)="""RTN"",""HLTPCK2B"",157,0)"
^XMB(3.9,43,2,6826,0)=" .... S ARY(""SAF-LL"")=+$O(^HLCS(870,""DNS"",$$LOW^XLFSTR(ARY(""SAF-DOMAIN"")),0))"
^XMB(3.9,43,2,6827,0)="""RTN"",""HLTPCK2B"",158,0)"
^XMB(3.9,43,2,6828,0)=" ... ;"
^XMB(3.9,43,2,6829,0)="""RTN"",""HLTPCK2B"",159,0)"
^XMB(3.9,43,2,6830,0)=" ... ; match ip address"
^XMB(3.9,43,2,6831,0)="""RTN"",""HLTPCK2B"",160,0)"
^XMB(3.9,43,2,6832,0)=" ... I $D(^HLCS(870,""IP"",ARY(""SAF-DOMAIN""))) D  Q"
^XMB(3.9,43,2,6833,0)="""RTN"",""HLTPCK2B"",161,0)"
^XMB(3.9,43,2,6834,0)=" .... S HLDOMP(""FLAG"")=1"
^XMB(3.9,43,2,6835,0)="""RTN"",""HLTPCK2B"",162,0)"
^XMB(3.9,43,2,6836,0)=" .... S ARY(""SAF-LL"")=+$O(^HLCS(870,""IP"",ARY(""SAF-DOMAIN""),0))"
^XMB(3.9,43,2,6837,0)="""RTN"",""HLTPCK2B"",163,0)"
^XMB(3.9,43,2,6838,0)=" .. Q:HLDOMP(""FLAG"")=1"
^XMB(3.9,43,2,6839,0)="""RTN"",""HLTPCK2B"",164,0)"
^XMB(3.9,43,2,6840,0)=" .. ; quit if 1st component defined"
^XMB(3.9,43,2,6841,0)="""RTN"",""HLTPCK2B"",165,0)"
^XMB(3.9,43,2,6842,0)=" .. S ARY(""SAF-COMPONENT1"")=$P(ARY(""SAF""),HLCS,1)"
^XMB(3.9,43,2,6843,0)="""RTN"",""HLTPCK2B"",166,0)"
^XMB(3.9,43,2,6844,0)=" .. Q:ARY(""SAF-COMPONENT1"")]"""""
^XMB(3.9,43,2,6845,0)="""RTN"",""HLTPCK2B"",167,0)"
^XMB(3.9,43,2,6846,0)=" .. S:ERR="""" ERR=""Receiving Facility mismatch."""
^XMB(3.9,43,2,6847,0)="""RTN"",""HLTPCK2B"",168,0)"
^XMB(3.9,43,2,6848,0)=" . ; patch HL*1.6*120 end"
^XMB(3.9,43,2,6849,0)="""RTN"",""HLTPCK2B"",169,0)"
^XMB(3.9,43,2,6850,0)=" . ;"
^XMB(3.9,43,2,6851,0)="""RTN"",""HLTPCK2B"",170,0)"
^XMB(3.9,43,2,6852,0)=" .Q:HLDOMP=$P(HLPARAM,U)  ;This is local app to app"
^XMB(3.9,43,2,6853,0)="""RTN"",""HLTPCK2B"",171,0)"
^XMB(3.9,43,2,6854,0)=" .I HLDOMP N HLNK S HLNK=+$O(^HLCS(870,""D"",HLDOMP,0))"
^XMB(3.9,43,2,6855,0)="""RTN"",""HLTPCK2B"",172,0)"
^XMB(3.9,43,2,6856,0)=" .I $G(HLNK) S ARY(""LL"")=HLNK"
^XMB(3.9,43,2,6857,0)="""RTN"",""HLTPCK2B"",173,0)"
^XMB(3.9,43,2,6858,0)=" ;"
^XMB(3.9,43,2,6859,0)="""RTN"",""HLTPCK2B"",174,0)"
^XMB(3.9,43,2,6860,0)="PID ;Validate processing ID"
^XMB(3.9,43,2,6861,0)="""RTN"",""HLTPCK2B"",175,0)"
^XMB(3.9,43,2,6862,0)=" I (""DTP""'[ARY(""PID"")) S:(ERR="""") ERR=""Invalid HL7 Processing ID"""
^XMB(3.9,43,2,6863,0)="""RTN"",""HLTPCK2B"",176,0)"
^XMB(3.9,43,2,6864,0)=" S HLPID=$P(HLPARAM,U,3) ;site param"
^XMB(3.9,43,2,6865,0)="""RTN"",""HLTPCK2B"",177,0)"
^XMB(3.9,43,2,6866,0)=" S X=$G(^ORD(101,ARY(""EID""),770)),X=$P(X,U,6) ;event driver"
^XMB(3.9,43,2,6867,0)="""RTN"",""HLTPCK2B"",178,0)"
^XMB(3.9,43,2,6868,0)=" ;If message is 'debug' then event driver must be 'debug.'"
^XMB(3.9,43,2,6869,0)="""RTN"",""HLTPCK2B"",179,0)"
^XMB(3.9,43,2,6870,0)=" ;If message is 'test' or 'production', then site param must match"
^XMB(3.9,43,2,6871,0)="""RTN"",""HLTPCK2B"",180,0)"
^XMB(3.9,43,2,6872,0)=" I ARY(""PID"")=""D""&(X'=""D"") S:ERR="""" ERR=""Processing ID Mismatch with Event Driver"""
^XMB(3.9,43,2,6873,0)="""RTN"",""HLTPCK2B"",181,0)"
^XMB(3.9,43,2,6874,0)=" I ARY(""PID"")'=""D""&(HLPID'=ARY(""PID"")) S:ERR="""" ERR=""Processing ID Mismatch with Site Parameters"""
^XMB(3.9,43,2,6875,0)="""RTN"",""HLTPCK2B"",182,0)"
^XMB(3.9,43,2,6876,0)=" ;"
^XMB(3.9,43,2,6877,0)="""RTN"",""HLTPCK2B"",183,0)"
^XMB(3.9,43,2,6878,0)="SEC ;Validate security field - access code and electronic signature"
^XMB(3.9,43,2,6879,0)="""RTN"",""HLTPCK2B"",184,0)"
^XMB(3.9,43,2,6880,0)=" I ($P($G(HLN(773)),""^"",3)) D"
^XMB(3.9,43,2,6881,0)="""RTN"",""HLTPCK2B"",185,0)"
^XMB(3.9,43,2,6882,0)=" .S X=$P($$P^HLTPCK2(.HDR,8),$E(ECH))"
^XMB(3.9,43,2,6883,0)="""RTN"",""HLTPCK2B"",186,0)"
^XMB(3.9,43,2,6884,0)=" .S X=$$UPPER^HLFNC(X)"
^XMB(3.9,43,2,6885,0)="""RTN"",""HLTPCK2B"",187,0)"
^XMB(3.9,43,2,6886,0)=" .D ^XUSHSH"
^XMB(3.9,43,2,6887,0)="""RTN"",""HLTPCK2B"",188,0)"
^XMB(3.9,43,2,6888,0)=" .I X="""",(MSA="""") S:(ERR="""") ERR=""Invalid access code"" Q"
^XMB(3.9,43,2,6889,0)="""RTN"",""HLTPCK2B"",189,0)"
^XMB(3.9,43,2,6890,0)=" .S ARY(""DUZ"")=0"
^XMB(3.9,43,2,6891,0)="""RTN"",""HLTPCK2B"",190,0)"
^XMB(3.9,43,2,6892,0)=" .S:(X'="""") ARY(""DUZ"")=+$O(^VA(200,""A"",X,0))"
^XMB(3.9,43,2,6893,0)="""RTN"",""HLTPCK2B"",191,0)"
^XMB(3.9,43,2,6894,0)=" .I ('ARY(""DUZ"")) S:(ERR="""") ERR=""Invalid access code"" Q"
^XMB(3.9,43,2,6895,0)="""RTN"",""HLTPCK2B"",192,0)"
^XMB(3.9,43,2,6896,0)=" .I (($P($G(^VA(200,ARY(""DUZ""),.1)),""^"")="""")&('$D(MSA))) S ARY(""DUZ"")=0 S:(ERR="""") ERR=""Invalid access code"" Q"
^XMB(3.9,43,2,6897,0)="""RTN"",""HLTPCK2B"",193,0)"
^XMB(3.9,43,2,6898,0)=" .S X=$P($$P^HLTPCK2(.HDR,8),$E(ECH),3) I (X'="""") D"
^XMB(3.9,43,2,6899,0)="""RTN"",""HLTPCK2B"",194,0)"
^XMB(3.9,43,2,6900,0)=" ..S X1=$G(^VA(200,ARY(""DUZ""),20))"
^XMB(3.9,43,2,6901,0)="""RTN"",""HLTPCK2B"",195,0)"
^XMB(3.9,43,2,6902,0)=" ..I (X1="""") S:(ERR="""") ERR=""No Signature Code on File"" Q"
^XMB(3.9,43,2,6903,0)="""RTN"",""HLTPCK2B"",196,0)"
^XMB(3.9,43,2,6904,0)=" ..S X=$$UPPER^HLFNC(X)"
^XMB(3.9,43,2,6905,0)="""RTN"",""HLTPCK2B"",197,0)"
^XMB(3.9,43,2,6906,0)=" ..D HASH^XUSHSHP"
^XMB(3.9,43,2,6907,0)="""RTN"",""HLTPCK2B"",198,0)"
^XMB(3.9,43,2,6908,0)=" ..I ((X'=$P(X1,""^"",4))!($P(X1,""^"",2)="""")) S:(ERR="""") ERR=""Invalid Electronic Signature Code"" Q"
^XMB(3.9,43,2,6909,0)="""RTN"",""HLTPCK2B"",199,0)"
^XMB(3.9,43,2,6910,0)=" ..S ARY(""ESIG"")=$P(X1,""^"",2)"
^XMB(3.9,43,2,6911,0)="""RTN"",""HLTPCK2B"",200,0)"
^XMB(3.9,43,2,6912,0)=" I $D(ARY) M HLREC=ARY"
^XMB(3.9,43,2,6913,0)="""RTN"",""HLTPCK2B"",201,0)"
^XMB(3.9,43,2,6914,0)=" Q"
^XMB(3.9,43,2,6915,0)="""RTN"",""HLUTIL2"")"
^XMB(3.9,43,2,6916,0)="0^7^B29544975^B29017820"
^XMB(3.9,43,2,6917,0)="""RTN"",""HLUTIL2"",1,0)"
^XMB(3.9,43,2,6918,0)="HLUTIL2 ;ALB/MFK/MTC/JC - VARIOUS HL7 UTILITIES ;01/13/2006  16:06"
^XMB(3.9,43,2,6919,0)="""RTN"",""HLUTIL2"",2,0)"
^XMB(3.9,43,2,6920,0)=" ;;1.6;HEALTH LEVEL SEVEN;**19,43,57,59,120**;;Build 12"
^XMB(3.9,43,2,6921,0)="""RTN"",""HLUTIL2"",3,0)"
^XMB(3.9,43,2,6922,0)="ITEM(IEN,ROUTINE) ; Return data from ITEM multiple in protocol file"
^XMB(3.9,43,2,6923,0)="""RTN"",""HLUTIL2"",4,0)"
^XMB(3.9,43,2,6924,0)=" ; INPUT : IEN - Internal Entry Number for 101 (Protocol) file."
^XMB(3.9,43,2,6925,0)="""RTN"",""HLUTIL2"",5,0)"
^XMB(3.9,43,2,6926,0)=" ;         ROUTINE - name of a routine to run (either PTR or TYPE)"
^XMB(3.9,43,2,6927,0)="""RTN"",""HLUTIL2"",6,0)"
^XMB(3.9,43,2,6928,0)=" ;OUTPUT : HLARY - Array of IENs from ITEM multiple"
^XMB(3.9,43,2,6929,0)="""RTN"",""HLUTIL2"",7,0)"
^XMB(3.9,43,2,6930,0)=" ;  HLARY is of the form:"
^XMB(3.9,43,2,6931,0)="""RTN"",""HLUTIL2"",8,0)"
^XMB(3.9,43,2,6932,0)=" ; HLARY(0)=Total number of items found"
^XMB(3.9,43,2,6933,0)="""RTN"",""HLUTIL2"",9,0)"
^XMB(3.9,43,2,6934,0)=" ; HLARY(IEN)=Results from function"
^XMB(3.9,43,2,6935,0)="""RTN"",""HLUTIL2"",10,0)"
^XMB(3.9,43,2,6936,0)=" N ITEM,LINE,MSG,PTR"
^XMB(3.9,43,2,6937,0)="""RTN"",""HLUTIL2"",11,0)"
^XMB(3.9,43,2,6938,0)=" S IEN=$G(IEN)"
^XMB(3.9,43,2,6939,0)="""RTN"",""HLUTIL2"",12,0)"
^XMB(3.9,43,2,6940,0)=" Q:(IEN="""")"
^XMB(3.9,43,2,6941,0)="""RTN"",""HLUTIL2"",13,0)"
^XMB(3.9,43,2,6942,0)=" S ROUTINE=$G(ROUTINE)"
^XMB(3.9,43,2,6943,0)="""RTN"",""HLUTIL2"",14,0)"
^XMB(3.9,43,2,6944,0)=" S ROUTINE=$S(ROUTINE=""PTR"":1,ROUTINE=""TYPE"":2,ROUTINE=1:1,ROUTINE=2:2,1:"""")"
^XMB(3.9,43,2,6945,0)="""RTN"",""HLUTIL2"",15,0)"
^XMB(3.9,43,2,6946,0)=" Q:(ROUTINE="""")"
^XMB(3.9,43,2,6947,0)="""RTN"",""HLUTIL2"",16,0)"
^XMB(3.9,43,2,6948,0)=" S ITEM="""",MSG=0"
^XMB(3.9,43,2,6949,0)="""RTN"",""HLUTIL2"",17,0)"
^XMB(3.9,43,2,6950,0)=" ;  Loop through IENs within Subscriber multiple"
^XMB(3.9,43,2,6951,0)="""RTN"",""HLUTIL2"",18,0)"
^XMB(3.9,43,2,6952,0)=" F  S ITEM=$O(^ORD(101,IEN,775,ITEM)) Q:(ITEM="""")  D"
^XMB(3.9,43,2,6953,0)="""RTN"",""HLUTIL2"",19,0)"
^XMB(3.9,43,2,6954,0)=" .S PTR=$P($G(^ORD(101,IEN,775,ITEM,0)),""^"",1)"
^XMB(3.9,43,2,6955,0)="""RTN"",""HLUTIL2"",20,0)"
^XMB(3.9,43,2,6956,0)=" .;  Call type to get info on that item"
^XMB(3.9,43,2,6957,0)="""RTN"",""HLUTIL2"",21,0)"
^XMB(3.9,43,2,6958,0)=" .S:(ROUTINE=1) LINE=$$PTR(PTR)"
^XMB(3.9,43,2,6959,0)="""RTN"",""HLUTIL2"",22,0)"
^XMB(3.9,43,2,6960,0)=" .S:(ROUTINE=2) LINE=$$TYPE(PTR)"
^XMB(3.9,43,2,6961,0)="""RTN"",""HLUTIL2"",23,0)"
^XMB(3.9,43,2,6962,0)=" .;  Make sure LINE isn't error code"
^XMB(3.9,43,2,6963,0)="""RTN"",""HLUTIL2"",24,0)"
^XMB(3.9,43,2,6964,0)=" .I ((+LINE)>(-1)) S MSG=MSG+1 S HLARY(PTR)=LINE"
^XMB(3.9,43,2,6965,0)="""RTN"",""HLUTIL2"",25,0)"
^XMB(3.9,43,2,6966,0)=" S HLARY(0)=MSG"
^XMB(3.9,43,2,6967,0)="""RTN"",""HLUTIL2"",26,0)"
^XMB(3.9,43,2,6968,0)=" K ROUTINE"
^XMB(3.9,43,2,6969,0)="""RTN"",""HLUTIL2"",27,0)"
^XMB(3.9,43,2,6970,0)=" Q"
^XMB(3.9,43,2,6971,0)="""RTN"",""HLUTIL2"",28,0)"
^XMB(3.9,43,2,6972,0)="PTR(IEN) ;  Return pointer information if subscriber"
^XMB(3.9,43,2,6973,0)="""RTN"",""HLUTIL2"",29,0)"
^XMB(3.9,43,2,6974,0)=" ; INPUT - IEN: IEN of protocol file"
^XMB(3.9,43,2,6975,0)="""RTN"",""HLUTIL2"",30,0)"
^XMB(3.9,43,2,6976,0)=" ;OUTPUT - Line from ^ORD(101,IEN,770):"
^XMB(3.9,43,2,6977,0)="""RTN"",""HLUTIL2"",31,0)"
^XMB(3.9,43,2,6978,0)=" ; CLIENT^LOGICAL_LINK (both pointers)"
^XMB(3.9,43,2,6979,0)="""RTN"",""HLUTIL2"",32,0)"
^XMB(3.9,43,2,6980,0)=" N RETURN,LINE,TYPE"
^XMB(3.9,43,2,6981,0)="""RTN"",""HLUTIL2"",33,0)"
^XMB(3.9,43,2,6982,0)=" S IEN=$G(IEN)"
^XMB(3.9,43,2,6983,0)="""RTN"",""HLUTIL2"",34,0)"
^XMB(3.9,43,2,6984,0)=" Q:(IEN="""") ""-1"""
^XMB(3.9,43,2,6985,0)="""RTN"",""HLUTIL2"",35,0)"
^XMB(3.9,43,2,6986,0)=" ;  Make sure this is a subscriber type"
^XMB(3.9,43,2,6987,0)="""RTN"",""HLUTIL2"",36,0)"
^XMB(3.9,43,2,6988,0)=" S TYPE=$P($G(^ORD(101,IEN,0)),""^"",4)"
^XMB(3.9,43,2,6989,0)="""RTN"",""HLUTIL2"",37,0)"
^XMB(3.9,43,2,6990,0)=" Q:(TYPE'=""S"") ""-2"""
^XMB(3.9,43,2,6991,0)="""RTN"",""HLUTIL2"",38,0)"
^XMB(3.9,43,2,6992,0)=" S LINE=$G(^ORD(101,IEN,770))"
^XMB(3.9,43,2,6993,0)="""RTN"",""HLUTIL2"",39,0)"
^XMB(3.9,43,2,6994,0)=" S RETURN=$P(LINE,""^"",2)_""^""_$P(LINE,""^"",7)"
^XMB(3.9,43,2,6995,0)="""RTN"",""HLUTIL2"",40,0)"
^XMB(3.9,43,2,6996,0)=" Q RETURN"
^XMB(3.9,43,2,6997,0)="""RTN"",""HLUTIL2"",41,0)"
^XMB(3.9,43,2,6998,0)="TYPE(IEN) ;  Return portions of protocol file"
^XMB(3.9,43,2,6999,0)="""RTN"",""HLUTIL2"",42,0)"
^XMB(3.9,43,2,7000,0)=" ; INPUT - IEN: IEN of protocol file"
^XMB(3.9,43,2,7001,0)="""RTN"",""HLUTIL2"",43,0)"
^XMB(3.9,43,2,7002,0)=" ;OUTPUT - Line containing the following information from the protocol"
^XMB(3.9,43,2,7003,0)="""RTN"",""HLUTIL2"",44,0)"
^XMB(3.9,43,2,7004,0)=" ;         file (#101)"
^XMB(3.9,43,2,7005,0)="""RTN"",""HLUTIL2"",45,0)"
^XMB(3.9,43,2,7006,0)=" ;"
^XMB(3.9,43,2,7007,0)="""RTN"",""HLUTIL2"",46,0)"
^XMB(3.9,43,2,7008,0)=" ; Client ^ Message Type Received ^ Event Type ^ Message Structure ^"
^XMB(3.9,43,2,7009,0)="""RTN"",""HLUTIL2"",47,0)"
^XMB(3.9,43,2,7010,0)=" ;  Processing ID ^ Logical Link Pointer ^ Accept Ack ^"
^XMB(3.9,43,2,7011,0)="""RTN"",""HLUTIL2"",48,0)"
^XMB(3.9,43,2,7012,0)=" ;  Application Ack ^ Version ^ Message Type Generated"
^XMB(3.9,43,2,7013,0)="""RTN"",""HLUTIL2"",49,0)"
^XMB(3.9,43,2,7014,0)=" ;"
^XMB(3.9,43,2,7015,0)="""RTN"",""HLUTIL2"",50,0)"
^XMB(3.9,43,2,7016,0)=" N RETURN,CLP,MTPR,ETP,LINE,TYPE,CLIENT,EVENT,MTPEVP"
^XMB(3.9,43,2,7017,0)="""RTN"",""HLUTIL2"",51,0)"
^XMB(3.9,43,2,7018,0)=" N ACCACK,APPACK,VERID,VERIDP,ACKP,ACKTYP,MTPG,MTNEVN"
^XMB(3.9,43,2,7019,0)="""RTN"",""HLUTIL2"",52,0)"
^XMB(3.9,43,2,7020,0)=" ;-- check if ien was passed in"
^XMB(3.9,43,2,7021,0)="""RTN"",""HLUTIL2"",53,0)"
^XMB(3.9,43,2,7022,0)=" S IEN=$G(IEN)"
^XMB(3.9,43,2,7023,0)="""RTN"",""HLUTIL2"",54,0)"
^XMB(3.9,43,2,7024,0)=" Q:(IEN="""") ""-1"""
^XMB(3.9,43,2,7025,0)="""RTN"",""HLUTIL2"",55,0)"
^XMB(3.9,43,2,7026,0)=" ;"
^XMB(3.9,43,2,7027,0)="""RTN"",""HLUTIL2"",56,0)"
^XMB(3.9,43,2,7028,0)=" ;  Null any variables in case they don't exist"
^XMB(3.9,43,2,7029,0)="""RTN"",""HLUTIL2"",57,0)"
^XMB(3.9,43,2,7030,0)=" S (CLIENT,TYPE,EVENT,ACCACK,APPACK,VERID,MTPG,MTNEVN)="""""
^XMB(3.9,43,2,7031,0)="""RTN"",""HLUTIL2"",58,0)"
^XMB(3.9,43,2,7032,0)=" ;  Get line from protocol file"
^XMB(3.9,43,2,7033,0)="""RTN"",""HLUTIL2"",59,0)"
^XMB(3.9,43,2,7034,0)=" S LINE=$G(^ORD(101,IEN,770))"
^XMB(3.9,43,2,7035,0)="""RTN"",""HLUTIL2"",60,0)"
^XMB(3.9,43,2,7036,0)=" ;"
^XMB(3.9,43,2,7037,0)="""RTN"",""HLUTIL2"",61,0)"
^XMB(3.9,43,2,7038,0)=" ;-- get client (application that will receive the message"
^XMB(3.9,43,2,7039,0)="""RTN"",""HLUTIL2"",62,0)"
^XMB(3.9,43,2,7040,0)=" S CLP=$P(LINE,U,2)"
^XMB(3.9,43,2,7041,0)="""RTN"",""HLUTIL2"",63,0)"
^XMB(3.9,43,2,7042,0)=" S:(CLP) CLIENT=$P($G(^HL(771,CLP,0)),U,1)"
^XMB(3.9,43,2,7043,0)="""RTN"",""HLUTIL2"",64,0)"
^XMB(3.9,43,2,7044,0)=" ;"
^XMB(3.9,43,2,7045,0)="""RTN"",""HLUTIL2"",65,0)"
^XMB(3.9,43,2,7046,0)=" ;-- get message type received & generated"
^XMB(3.9,43,2,7047,0)="""RTN"",""HLUTIL2"",66,0)"
^XMB(3.9,43,2,7048,0)=" S MTPR=$P(LINE,U,3)"
^XMB(3.9,43,2,7049,0)="""RTN"",""HLUTIL2"",67,0)"
^XMB(3.9,43,2,7050,0)=" S MTPG=$P(LINE,U,11)"
^XMB(3.9,43,2,7051,0)="""RTN"",""HLUTIL2"",68,0)"
^XMB(3.9,43,2,7052,0)=" S:(MTPR) MTPR=$P($G(^HL(771.2,MTPR,0)),U,1)"
^XMB(3.9,43,2,7053,0)="""RTN"",""HLUTIL2"",69,0)"
^XMB(3.9,43,2,7054,0)=" S:(MTPG) MTPG=$P($G(^HL(771.2,MTPG,0)),U,1)"
^XMB(3.9,43,2,7055,0)="""RTN"",""HLUTIL2"",70,0)"
^XMB(3.9,43,2,7056,0)=" ;"
^XMB(3.9,43,2,7057,0)="""RTN"",""HLUTIL2"",71,0)"
^XMB(3.9,43,2,7058,0)=" ;-- get event type"
^XMB(3.9,43,2,7059,0)="""RTN"",""HLUTIL2"",72,0)"
^XMB(3.9,43,2,7060,0)=" S ETP=$P(LINE,U,4)"
^XMB(3.9,43,2,7061,0)="""RTN"",""HLUTIL2"",73,0)"
^XMB(3.9,43,2,7062,0)=" S:(ETP) EVENT=$P($G(^HL(779.001,ETP,0)),U,1)"
^XMB(3.9,43,2,7063,0)="""RTN"",""HLUTIL2"",74,0)"
^XMB(3.9,43,2,7064,0)=" ;"
^XMB(3.9,43,2,7065,0)="""RTN"",""HLUTIL2"",75,0)"
^XMB(3.9,43,2,7066,0)=" ;-- get message structure code"
^XMB(3.9,43,2,7067,0)="""RTN"",""HLUTIL2"",76,0)"
^XMB(3.9,43,2,7068,0)=" S MTPEVP=$P(LINE,U,5)"
^XMB(3.9,43,2,7069,0)="""RTN"",""HLUTIL2"",77,0)"
^XMB(3.9,43,2,7070,0)=" S:(MTPEVP) MTNEVN=$P($G(^HL(779.005,MTPEVP,0)),U,1)"
^XMB(3.9,43,2,7071,0)="""RTN"",""HLUTIL2"",78,0)"
^XMB(3.9,43,2,7072,0)=" ;"
^XMB(3.9,43,2,7073,0)="""RTN"",""HLUTIL2"",79,0)"
^XMB(3.9,43,2,7074,0)=" ;-- accept acknowledgement"
^XMB(3.9,43,2,7075,0)="""RTN"",""HLUTIL2"",80,0)"
^XMB(3.9,43,2,7076,0)=" S ACKP=$P(LINE,U,8)"
^XMB(3.9,43,2,7077,0)="""RTN"",""HLUTIL2"",81,0)"
^XMB(3.9,43,2,7078,0)=" S:(ACKP) ACCACK=$P($G(^HL(779.003,ACKP,0)),U,1)"
^XMB(3.9,43,2,7079,0)="""RTN"",""HLUTIL2"",82,0)"
^XMB(3.9,43,2,7080,0)=" ;"
^XMB(3.9,43,2,7081,0)="""RTN"",""HLUTIL2"",83,0)"
^XMB(3.9,43,2,7082,0)=" ;-- application acknowledgement"
^XMB(3.9,43,2,7083,0)="""RTN"",""HLUTIL2"",84,0)"
^XMB(3.9,43,2,7084,0)=" S ACKTYP=$P(LINE,U,9)"
^XMB(3.9,43,2,7085,0)="""RTN"",""HLUTIL2"",85,0)"
^XMB(3.9,43,2,7086,0)=" S:(ACKTYP) APPACK=$P($G(^HL(779.003,ACKTYP,0)),U,1)"
^XMB(3.9,43,2,7087,0)="""RTN"",""HLUTIL2"",86,0)"
^XMB(3.9,43,2,7088,0)=" ;"
^XMB(3.9,43,2,7089,0)="""RTN"",""HLUTIL2"",87,0)"
^XMB(3.9,43,2,7090,0)=" ;-- version of HL7"
^XMB(3.9,43,2,7091,0)="""RTN"",""HLUTIL2"",88,0)"
^XMB(3.9,43,2,7092,0)=" S VERIDP=$P(LINE,U,10)"
^XMB(3.9,43,2,7093,0)="""RTN"",""HLUTIL2"",89,0)"
^XMB(3.9,43,2,7094,0)=" S:(VERIDP) VERID=$P($G(^HL(771.5,VERIDP,0)),U,1)"
^XMB(3.9,43,2,7095,0)="""RTN"",""HLUTIL2"",90,0)"
^XMB(3.9,43,2,7096,0)=" ;"
^XMB(3.9,43,2,7097,0)="""RTN"",""HLUTIL2"",91,0)"
^XMB(3.9,43,2,7098,0)=" ;-- build return string"
^XMB(3.9,43,2,7099,0)="""RTN"",""HLUTIL2"",92,0)"
^XMB(3.9,43,2,7100,0)=" S RETURN=CLIENT_U_MTPR_U_EVENT"
^XMB(3.9,43,2,7101,0)="""RTN"",""HLUTIL2"",93,0)"
^XMB(3.9,43,2,7102,0)=" ;-- 6 processing id, 7 logical link pointer"
^XMB(3.9,43,2,7103,0)="""RTN"",""HLUTIL2"",94,0)"
^XMB(3.9,43,2,7104,0)=" S RETURN=RETURN_U_MTNEVN_U_$P(LINE,U,6)_U_$P(LINE,U,7)"
^XMB(3.9,43,2,7105,0)="""RTN"",""HLUTIL2"",95,0)"
^XMB(3.9,43,2,7106,0)=" S RETURN=RETURN_U_ACCACK_U_APPACK_U_VERID_U_MTPG"
^XMB(3.9,43,2,7107,0)="""RTN"",""HLUTIL2"",96,0)"
^XMB(3.9,43,2,7108,0)=" Q RETURN"
^XMB(3.9,43,2,7109,0)="""RTN"",""HLUTIL2"",97,0)"
^XMB(3.9,43,2,7110,0)=" ;"
^XMB(3.9,43,2,7111,0)="""RTN"",""HLUTIL2"",98,0)"
^XMB(3.9,43,2,7112,0)="MSGADM(IEN) ; RETURN DATE/TIME ENTERED AND MSGID FROM FILE 773"
^XMB(3.9,43,2,7113,0)="""RTN"",""HLUTIL2"",99,0)"
^XMB(3.9,43,2,7114,0)=" N X"
^XMB(3.9,43,2,7115,0)="""RTN"",""HLUTIL2"",100,0)"
^XMB(3.9,43,2,7116,0)=" Q:'$G(^HLMA(+$G(IEN),0)) ""-1""  S X=^(0)"
^XMB(3.9,43,2,7117,0)="""RTN"",""HLUTIL2"",101,0)"
^XMB(3.9,43,2,7118,0)=" Q $P($G(^HL(772,+X,0)),""^"")_""^""_$P(X,""^"",2)"
^XMB(3.9,43,2,7119,0)="""RTN"",""HLUTIL2"",102,0)"
^XMB(3.9,43,2,7120,0)=" ;"
^XMB(3.9,43,2,7121,0)="""RTN"",""HLUTIL2"",103,0)"
^XMB(3.9,43,2,7122,0)="APPPRM(IEN) ; RETURN DATA FROM THE APPLICATION PARAMETER FILE"
^XMB(3.9,43,2,7123,0)="""RTN"",""HLUTIL2"",104,0)"
^XMB(3.9,43,2,7124,0)=" N LINE,COUNTRYP,COUNTRY"
^XMB(3.9,43,2,7125,0)="""RTN"",""HLUTIL2"",105,0)"
^XMB(3.9,43,2,7126,0)=" S IEN=$G(IEN)"
^XMB(3.9,43,2,7127,0)="""RTN"",""HLUTIL2"",106,0)"
^XMB(3.9,43,2,7128,0)=" Q:(IEN="""")"
^XMB(3.9,43,2,7129,0)="""RTN"",""HLUTIL2"",107,0)"
^XMB(3.9,43,2,7130,0)=" S LINE=$G(^HL(771,IEN,0))"
^XMB(3.9,43,2,7131,0)="""RTN"",""HLUTIL2"",108,0)"
^XMB(3.9,43,2,7132,0)=" S COUNTRYP=$P(LINE,""^"",7),COUNTRY="""""
^XMB(3.9,43,2,7133,0)="""RTN"",""HLUTIL2"",109,0)"
^XMB(3.9,43,2,7134,0)=" ;"
^XMB(3.9,43,2,7135,0)="""RTN"",""HLUTIL2"",110,0)"
^XMB(3.9,43,2,7136,0)=" ; patch HL*1.6*120 - for deleting ""US"" entry from #779.004"
^XMB(3.9,43,2,7137,0)="""RTN"",""HLUTIL2"",111,0)"
^XMB(3.9,43,2,7138,0)=" ; I COUNTRYP]"""" S COUNTRY=$P(^HL(779.004,COUNTRYP,0),""^"",1)"
^XMB(3.9,43,2,7139,0)="""RTN"",""HLUTIL2"",112,0)"
^XMB(3.9,43,2,7140,0)=" I COUNTRYP]"""" S COUNTRY=$P($G(^HL(779.004,COUNTRYP,0)),""^"",1)"
^XMB(3.9,43,2,7141,0)="""RTN"",""HLUTIL2"",113,0)"
^XMB(3.9,43,2,7142,0)=" ;"
^XMB(3.9,43,2,7143,0)="""RTN"",""HLUTIL2"",114,0)"
^XMB(3.9,43,2,7144,0)=" S APPPRM(IEN,0)=$P(LINE,""^"",1)_""^""_$P(LINE,""^"",3)_""^""_COUNTRY"
^XMB(3.9,43,2,7145,0)="""RTN"",""HLUTIL2"",115,0)"
^XMB(3.9,43,2,7146,0)=" S APPPRM(IEN,""EC"")=$G(^HL(771,IEN,""EC""))"
^XMB(3.9,43,2,7147,0)="""RTN"",""HLUTIL2"",116,0)"
^XMB(3.9,43,2,7148,0)=" S:(APPPRM(IEN,""EC"")="""") APPPRM(IEN,""EC"")=""~|\&"""
^XMB(3.9,43,2,7149,0)="""RTN"",""HLUTIL2"",117,0)"
^XMB(3.9,43,2,7150,0)=" S APPPRM(IEN,""FS"")=$G(^HL(771,IEN,""FS""))"
^XMB(3.9,43,2,7151,0)="""RTN"",""HLUTIL2"",118,0)"
^XMB(3.9,43,2,7152,0)=" S:(APPPRM(IEN,""FS"")="""") APPPRM(IEN,""FS"")=""^"""
^XMB(3.9,43,2,7153,0)="""RTN"",""HLUTIL2"",119,0)"
^XMB(3.9,43,2,7154,0)=" Q"
^XMB(3.9,43,2,7155,0)="""RTN"",""HLUTIL2"",120,0)"
^XMB(3.9,43,2,7156,0)="CLRQUE ; Clear a queue by menu option"
^XMB(3.9,43,2,7157,0)="""RTN"",""HLUTIL2"",121,0)"
^XMB(3.9,43,2,7158,0)=" N DIC,DIR,DIRUT,HLDIR,HLERR,HLIEN,HLL,HLLTC,X,Y"
^XMB(3.9,43,2,7159,0)="""RTN"",""HLUTIL2"",122,0)"
^XMB(3.9,43,2,7160,0)=" S DIC=""^HLCS(870,"",DIC(0)=""AEQMZ"""
^XMB(3.9,43,2,7161,0)="""RTN"",""HLUTIL2"",123,0)"
^XMB(3.9,43,2,7162,0)=" D ^DIC Q:Y<0"
^XMB(3.9,43,2,7163,0)="""RTN"",""HLUTIL2"",124,0)"
^XMB(3.9,43,2,7164,0)=" K DIC S HLIEN=+Y,HLL=$P(Y(0),U,3)"
^XMB(3.9,43,2,7165,0)="""RTN"",""HLUTIL2"",125,0)"
^XMB(3.9,43,2,7166,0)=" L +^HLCS(870,HLIEN):1 E  W !!,""Couldn't Lock Record, Try later."",! Q"
^XMB(3.9,43,2,7167,0)="""RTN"",""HLUTIL2"",126,0)"
^XMB(3.9,43,2,7168,0)=" S DIR(0)=""S^B:BOTH QUEUES;I:IN QUEUE;O:OUT QUEUE"",DIR(""?"")=""Select the queue (in, out, or both) you would like cleared"""
^XMB(3.9,43,2,7169,0)="""RTN"",""HLUTIL2"",127,0)"
^XMB(3.9,43,2,7170,0)=" S DIR(""A"")=""Enter which queue to clear"",DIR(""B"")=""B"""
^XMB(3.9,43,2,7171,0)="""RTN"",""HLUTIL2"",128,0)"
^XMB(3.9,43,2,7172,0)=" D ^DIR K DIR"
^XMB(3.9,43,2,7173,0)="""RTN"",""HLUTIL2"",129,0)"
^XMB(3.9,43,2,7174,0)=" S HLDIR=$S(Y=""I"":""IN"",Y=""O"":""OUT"",Y=""B"":""BOTH"",1:1)"
^XMB(3.9,43,2,7175,0)="""RTN"",""HLUTIL2"",130,0)"
^XMB(3.9,43,2,7176,0)=" I HLDIR=1!$D(DIRUT) L -^HLCS(870,HLIEN) Q"
^XMB(3.9,43,2,7177,0)="""RTN"",""HLUTIL2"",131,0)"
^XMB(3.9,43,2,7178,0)=" ;HLLTC= TCP service type"
^XMB(3.9,43,2,7179,0)="""RTN"",""HLUTIL2"",132,0)"
^XMB(3.9,43,2,7180,0)=" S:HLL HLLTC=$P($G(^HLCS(870,HLIEN,400)),U,3)"
^XMB(3.9,43,2,7181,0)="""RTN"",""HLUTIL2"",133,0)"
^XMB(3.9,43,2,7182,0)=" ;TCP link"
^XMB(3.9,43,2,7183,0)="""RTN"",""HLUTIL2"",134,0)"
^XMB(3.9,43,2,7184,0)=" I $G(HLLTC)]"""" D  L -^HLCS(870,HLIEN) Q"
^XMB(3.9,43,2,7185,0)="""RTN"",""HLUTIL2"",135,0)"
^XMB(3.9,43,2,7186,0)=" . ;multiple server, set STATE and SHUTDOWN LLP?"
^XMB(3.9,43,2,7187,0)="""RTN"",""HLUTIL2"",136,0)"
^XMB(3.9,43,2,7188,0)=" . S:HLLTC=""M"" X=^HLCS(870,HLIEN,0),$P(X,U,5)=""0 server"",$P(X,U,15)=0,^(0)=X"
^XMB(3.9,43,2,7189,0)="""RTN"",""HLUTIL2"",137,0)"
^XMB(3.9,43,2,7190,0)=" . I HLDIR=""BOTH"" D  Q"
^XMB(3.9,43,2,7191,0)="""RTN"",""HLUTIL2"",138,0)"
^XMB(3.9,43,2,7192,0)=" .. F X=""IN"",""OUT"" D CLRQUET(X)"
^XMB(3.9,43,2,7193,0)="""RTN"",""HLUTIL2"",139,0)"
^XMB(3.9,43,2,7194,0)=" . ;do one que"
^XMB(3.9,43,2,7195,0)="""RTN"",""HLUTIL2"",140,0)"
^XMB(3.9,43,2,7196,0)=" . D CLRQUET(HLDIR)"
^XMB(3.9,43,2,7197,0)="""RTN"",""HLUTIL2"",141,0)"
^XMB(3.9,43,2,7198,0)=" ;"
^XMB(3.9,43,2,7199,0)="""RTN"",""HLUTIL2"",142,0)"
^XMB(3.9,43,2,7200,0)=" I HLDIR=""BOTH"" D"
^XMB(3.9,43,2,7201,0)="""RTN"",""HLUTIL2"",143,0)"
^XMB(3.9,43,2,7202,0)=" . S HLERR=$$CLEARQUE^HLCSQUE(HLIEN,""OUT"")"
^XMB(3.9,43,2,7203,0)="""RTN"",""HLUTIL2"",144,0)"
^XMB(3.9,43,2,7204,0)=" . I HLERR W !,""Error in clearing out queue:"",$P(HLERR,""^"",2)"
^XMB(3.9,43,2,7205,0)="""RTN"",""HLUTIL2"",145,0)"
^XMB(3.9,43,2,7206,0)=" . S HLERR=$$CLEARQUE^HLCSQUE(HLIEN,""IN"")"
^XMB(3.9,43,2,7207,0)="""RTN"",""HLUTIL2"",146,0)"
^XMB(3.9,43,2,7208,0)=" . I HLERR W !,""Error in clearing in queue:"",$P(HLERR,""^"",2)"
^XMB(3.9,43,2,7209,0)="""RTN"",""HLUTIL2"",147,0)"
^XMB(3.9,43,2,7210,0)=" I HLDIR'=""BOTH"" S HLERR=$$CLEARQUE^HLCSQUE(HLIEN,HLDIR)"
^XMB(3.9,43,2,7211,0)="""RTN"",""HLUTIL2"",148,0)"
^XMB(3.9,43,2,7212,0)=" L -^HLCS(870,HLIEN)"
^XMB(3.9,43,2,7213,0)="""RTN"",""HLUTIL2"",149,0)"
^XMB(3.9,43,2,7214,0)=" Q"
^XMB(3.9,43,2,7215,0)="""RTN"",""HLUTIL2"",150,0)"
^XMB(3.9,43,2,7216,0)="CLRQUET(Y) ;subroutine for TCP links, Y=IN or OUT"
^XMB(3.9,43,2,7217,0)="""RTN"",""HLUTIL2"",151,0)"
^XMB(3.9,43,2,7218,0)=" Q:Y'=""IN""&(Y'=""OUT"")"
^XMB(3.9,43,2,7219,0)="""RTN"",""HLUTIL2"",152,0)"
^XMB(3.9,43,2,7220,0)=" N C,N,X"
^XMB(3.9,43,2,7221,0)="""RTN"",""HLUTIL2"",153,0)"
^XMB(3.9,43,2,7222,0)=" S N=$E(Y),X=0"
^XMB(3.9,43,2,7223,0)="""RTN"",""HLUTIL2"",154,0)"
^XMB(3.9,43,2,7224,0)=" ;get count of what is pending"
^XMB(3.9,43,2,7225,0)="""RTN"",""HLUTIL2"",155,0)"
^XMB(3.9,43,2,7226,0)=" F C=0:1 S X=$O(^HLMA(""AC"",N,HLIEN,X)) Q:'X"
^XMB(3.9,43,2,7227,0)="""RTN"",""HLUTIL2"",156,0)"
^XMB(3.9,43,2,7228,0)=" ;reset counters for messages"
^XMB(3.9,43,2,7229,0)="""RTN"",""HLUTIL2"",157,0)"
^XMB(3.9,43,2,7230,0)=" S ^HLCS(870,HLIEN,Y_"" QUEUE BACK POINTER"")=C,^(Y_"" QUEUE FRONT POINTER"")=0"
^XMB(3.9,43,2,7231,0)="""RTN"",""HLUTIL2"",158,0)"
^XMB(3.9,43,2,7232,0)=" Q"
^XMB(3.9,43,2,7233,0)="""RTN"",""HLUTIL2"",159,0)"
^XMB(3.9,43,2,7234,0)=" ;"
^XMB(3.9,43,2,7235,0)="""RTN"",""HLUTIL2"",160,0)"
^XMB(3.9,43,2,7236,0)="SHGLLP ; Show Gross LLP Error"
^XMB(3.9,43,2,7237,0)="""RTN"",""HLUTIL2"",161,0)"
^XMB(3.9,43,2,7238,0)=" N DIC,IEN,ERR"
^XMB(3.9,43,2,7239,0)="""RTN"",""HLUTIL2"",162,0)"
^XMB(3.9,43,2,7240,0)=" S DIC=""^HLCS(870,"""
^XMB(3.9,43,2,7241,0)="""RTN"",""HLUTIL2"",163,0)"
^XMB(3.9,43,2,7242,0)=" S DIC(0)=""AEQM"""
^XMB(3.9,43,2,7243,0)="""RTN"",""HLUTIL2"",164,0)"
^XMB(3.9,43,2,7244,0)=" D ^DIC K DIC"
^XMB(3.9,43,2,7245,0)="""RTN"",""HLUTIL2"",165,0)"
^XMB(3.9,43,2,7246,0)=" S IEN=$P(Y,""^"",1)"
^XMB(3.9,43,2,7247,0)="""RTN"",""HLUTIL2"",166,0)"
^XMB(3.9,43,2,7248,0)=" S ERR=$P($G(^HLCS(870,IEN,0)),""^"",19)"
^XMB(3.9,43,2,7249,0)="""RTN"",""HLUTIL2"",167,0)"
^XMB(3.9,43,2,7250,0)=" W:(ERR'="""") !,""Error: ""_$P($G(^HL(771.7,ERR,0)),""^"",1),!"
^XMB(3.9,43,2,7251,0)="""RTN"",""HLUTIL2"",168,0)"
^XMB(3.9,43,2,7252,0)=" W:(ERR="""") !,""No Gross LLP error found"",!"
^XMB(3.9,43,2,7253,0)="""RTN"",""HLUTIL2"",169,0)"
^XMB(3.9,43,2,7254,0)=" Q"
^XMB(3.9,43,2,7255,0)="""RTN"",""HLUTIL2"",170,0)"
^XMB(3.9,43,2,7256,0)="CLGLLP ; Clear Gross LLP error"
^XMB(3.9,43,2,7257,0)="""RTN"",""HLUTIL2"",171,0)"
^XMB(3.9,43,2,7258,0)=" N DIC,IEN,ERR,DA,DR"
^XMB(3.9,43,2,7259,0)="""RTN"",""HLUTIL2"",172,0)"
^XMB(3.9,43,2,7260,0)=" S DIC=""^HLCS(870,"""
^XMB(3.9,43,2,7261,0)="""RTN"",""HLUTIL2"",173,0)"
^XMB(3.9,43,2,7262,0)=" S DIC(0)=""AEQM"""
^XMB(3.9,43,2,7263,0)="""RTN"",""HLUTIL2"",174,0)"
^XMB(3.9,43,2,7264,0)=" D ^DIC K DIC"
^XMB(3.9,43,2,7265,0)="""RTN"",""HLUTIL2"",175,0)"
^XMB(3.9,43,2,7266,0)=" S IEN=$P(Y,""^"",1)"
^XMB(3.9,43,2,7267,0)="""RTN"",""HLUTIL2"",176,0)"
^XMB(3.9,43,2,7268,0)=" Q:(IEN<0)"
^XMB(3.9,43,2,7269,0)="""RTN"",""HLUTIL2"",177,0)"
^XMB(3.9,43,2,7270,0)=" S DIE=""^HLCS(870,"""
^XMB(3.9,43,2,7271,0)="""RTN"",""HLUTIL2"",178,0)"
^XMB(3.9,43,2,7272,0)=" S DA=IEN"
^XMB(3.9,43,2,7273,0)="""RTN"",""HLUTIL2"",179,0)"
^XMB(3.9,43,2,7274,0)=" S DR=""18///@"""
^XMB(3.9,43,2,7275,0)="""RTN"",""HLUTIL2"",180,0)"
^XMB(3.9,43,2,7276,0)=" D ^DIE K DIE"
^XMB(3.9,43,2,7277,0)="""RTN"",""HLUTIL2"",181,0)"
^XMB(3.9,43,2,7278,0)=" Q"
^XMB(3.9,43,2,7279,0)="""VER"")"
^XMB(3.9,43,2,7280,0)="8.0^22.0"
^XMB(3.9,43,2,7281,0)="""^DD"",779.004,779.004,0)"
^XMB(3.9,43,2,7282,0)="FIELD^^100^9"
^XMB(3.9,43,2,7283,0)="""^DD"",779.004,779.004,0,""DDA"")"
^XMB(3.9,43,2,7284,0)="N"
^XMB(3.9,43,2,7285,0)="""^DD"",779.004,779.004,0,""DT"")"
^XMB(3.9,43,2,7286,0)="3060111"
^XMB(3.9,43,2,7287,0)="""^DD"",779.004,779.004,0,""IX"",""AVUID"",779.004,99.99)"
^XMB(3.9,43,2,7288,0)=""
^XMB(3.9,43,2,7289,0)="""^DD"",779.004,779.004,0,""IX"",""B"",779.004,.01)"
^XMB(3.9,43,2,7290,0)=""
^XMB(3.9,43,2,7291,0)="""^DD"",779.004,779.004,0,""IX"",""C"",779.004,1.3)"
^XMB(3.9,43,2,7292,0)=""
^XMB(3.9,43,2,7293,0)="""^DD"",779.004,779.004,0,""IX"",""D"",779.004,2)"
^XMB(3.9,43,2,7294,0)=""
^XMB(3.9,43,2,7295,0)="""^DD"",779.004,779.004,0,""NM"",""COUNTRY CODE"")"
^XMB(3.9,43,2,7296,0)=""
^XMB(3.9,43,2,7297,0)="""^DD"",779.004,779.004,0,""PT"",771,7)"
^XMB(3.9,43,2,7298,0)=""
^XMB(3.9,43,2,7299,0)="""^DD"",779.004,779.004,0,""PT"",775,17)"
^XMB(3.9,43,2,7300,0)=""
^XMB(3.9,43,2,7301,0)="""^DD"",779.004,779.004,0,""VRPK"")"
^XMB(3.9,43,2,7302,0)="HL"
^XMB(3.9,43,2,7303,0)="""^DD"",779.004,779.004,.01,0)"
^XMB(3.9,43,2,7304,0)="CODE^RF^^0;1^K:$L(X)>3!($L(X)<1)!'(X'?1P.E) X"
^XMB(3.9,43,2,7305,0)="""^DD"",779.004,779.004,.01,1,0)"
^XMB(3.9,43,2,7306,0)="^.1"
^XMB(3.9,43,2,7307,0)="""^DD"",779.004,779.004,.01,1,1,0)"
^XMB(3.9,43,2,7308,0)="779.004^B"
^XMB(3.9,43,2,7309,0)="""^DD"",779.004,779.004,.01,1,1,1)"
^XMB(3.9,43,2,7310,0)="S ^HL(779.004,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,43,2,7311,0)="""^DD"",779.004,779.004,.01,1,1,2)"
^XMB(3.9,43,2,7312,0)="K ^HL(779.004,""B"",$E(X,1,30),DA)"
^XMB(3.9,43,2,7313,0)="""^DD"",779.004,779.004,.01,3)"
^XMB(3.9,43,2,7314,0)="The code for the country.  Answer must be 1-3 characters in length."
^XMB(3.9,43,2,7315,0)="""^DD"",779.004,779.004,.01,7.5)"
^XMB(3.9,43,2,7316,0)="I $G(DIC(0))[""L"",'$D(XUMF) K X D EN^DDIOL(""Entries must be edited via the Master File Server (MFS)."","""",""!?5,$C(7)"")"
^XMB(3.9,43,2,7317,0)="""^DD"",779.004,779.004,.01,9)"
^XMB(3.9,43,2,7318,0)="^"
^XMB(3.9,43,2,7319,0)="""^DD"",779.004,779.004,.01,21,0)"
^XMB(3.9,43,2,7320,0)="^^3^3^3060222^"
^XMB(3.9,43,2,7321,0)="""^DD"",779.004,779.004,.01,21,1,0)"
^XMB(3.9,43,2,7322,0)="The three-character alpha identifying code."
^XMB(3.9,43,2,7323,0)="""^DD"",779.004,779.004,.01,21,2,0)"
^XMB(3.9,43,2,7324,0)=" "
^XMB(3.9,43,2,7325,0)="""^DD"",779.004,779.004,.01,21,3,0)"
^XMB(3.9,43,2,7326,0)="The alpha 3 code for the USA is ""USA""."
^XMB(3.9,43,2,7327,0)="""^DD"",779.004,779.004,.01,""DEL"",1,0)"
^XMB(3.9,43,2,7328,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be inactivated via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^XMB(3.9,43,2,7329,0)="""^DD"",779.004,779.004,.01,""DT"")"
^XMB(3.9,43,2,7330,0)="3060111"
^XMB(3.9,43,2,7331,0)="""^DD"",779.004,779.004,.01,""LAYGO"",1,0)"
^XMB(3.9,43,2,7332,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be added via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^XMB(3.9,43,2,7333,0)="""^DD"",779.004,779.004,1.1,0)"
^XMB(3.9,43,2,7334,0)="NUMERIC CODE^RF^^SDS;1^K:$L(X)>3!($L(X)<3)!'(X?3N) X"
^XMB(3.9,43,2,7335,0)="""^DD"",779.004,779.004,1.1,3)"
^XMB(3.9,43,2,7336,0)="Answer must be 3 numeric digits."
^XMB(3.9,43,2,7337,0)="""^DD"",779.004,779.004,1.1,21,0)"
^XMB(3.9,43,2,7338,0)="^.001^3^3^3060111^^"
^XMB(3.9,43,2,7339,0)="""^DD"",779.004,779.004,1.1,21,1,0)"
^XMB(3.9,43,2,7340,0)="The three-digit numeric identifying code."
^XMB(3.9,43,2,7341,0)="""^DD"",779.004,779.004,1.1,21,2,0)"
^XMB(3.9,43,2,7342,0)=" "
^XMB(3.9,43,2,7343,0)="""^DD"",779.004,779.004,1.1,21,3,0)"
^XMB(3.9,43,2,7344,0)="The numeric code for the USA is ""840""."
^XMB(3.9,43,2,7345,0)="""^DD"",779.004,779.004,1.1,""DT"")"
^XMB(3.9,43,2,7346,0)="3060111"
^XMB(3.9,43,2,7347,0)="""^DD"",779.004,779.004,1.2,0)"
^XMB(3.9,43,2,7348,0)="FIPS CODE^RF^^SDS;2^K:$L(X)>2!($L(X)<2)!'(X?2A) X"
^XMB(3.9,43,2,7349,0)="""^DD"",779.004,779.004,1.2,3)"
^XMB(3.9,43,2,7350,0)="Answer must be 2 characters in length."
^XMB(3.9,43,2,7351,0)="""^DD"",779.004,779.004,1.2,21,0)"
^XMB(3.9,43,2,7352,0)="^^3^3^3060111^"
^XMB(3.9,43,2,7353,0)="""^DD"",779.004,779.004,1.2,21,1,0)"
^XMB(3.9,43,2,7354,0)="The code assigned to this nation by US Government standard FIPS 10-4."
^XMB(3.9,43,2,7355,0)="""^DD"",779.004,779.004,1.2,21,2,0)"
^XMB(3.9,43,2,7356,0)=" "
^XMB(3.9,43,2,7357,0)="""^DD"",779.004,779.004,1.2,21,3,0)"
^XMB(3.9,43,2,7358,0)="The FIPS code for the USA is ""US""."
^XMB(3.9,43,2,7359,0)="""^DD"",779.004,779.004,1.2,""DT"")"
^XMB(3.9,43,2,7360,0)="3060111"
^XMB(3.9,43,2,7361,0)="""^DD"",779.004,779.004,1.3,0)"
^XMB(3.9,43,2,7362,0)="POSTAL NAME^F^^SDS;3^K:$L(X)>100!($L(X)<3) X"
^XMB(3.9,43,2,7363,0)="""^DD"",779.004,779.004,1.3,1,0)"
^XMB(3.9,43,2,7364,0)="^.1"
^XMB(3.9,43,2,7365,0)="""^DD"",779.004,779.004,1.3,1,1,0)"
^XMB(3.9,43,2,7366,0)="779.004^C"
^XMB(3.9,43,2,7367,0)="""^DD"",779.004,779.004,1.3,1,1,1)"
^XMB(3.9,43,2,7368,0)="S ^HL(779.004,""C"",$E(X,1,30),DA)="""""
^XMB(3.9,43,2,7369,0)="""^DD"",779.004,779.004,1.3,1,1,2)"
^XMB(3.9,43,2,7370,0)="K ^HL(779.004,""C"",$E(X,1,30),DA)"
^XMB(3.9,43,2,7371,0)="""^DD"",779.004,779.004,1.3,1,1,""DT"")"
^XMB(3.9,43,2,7372,0)="3060126"
^XMB(3.9,43,2,7373,0)="""^DD"",779.004,779.004,1.3,3)"
^XMB(3.9,43,2,7374,0)="Answer must be 3-100 characters in length."
^XMB(3.9,43,2,7375,0)="""^DD"",779.004,779.004,1.3,21,0)"
^XMB(3.9,43,2,7376,0)="^.001^2^2^3060126^^"
^XMB(3.9,43,2,7377,0)="""^DD"",779.004,779.004,1.3,21,1,0)"
^XMB(3.9,43,2,7378,0)="The name used as the destination country for mail sent from the United"
^XMB(3.9,43,2,7379,0)="""^DD"",779.004,779.004,1.3,21,2,0)"
^XMB(3.9,43,2,7380,0)="States to this country."
^XMB(3.9,43,2,7381,0)="""^DD"",779.004,779.004,1.3,""DT"")"
^XMB(3.9,43,2,7382,0)="3060126"
^XMB(3.9,43,2,7383,0)="""^DD"",779.004,779.004,2,0)"
^XMB(3.9,43,2,7384,0)="DESCRIPTION^RF^^0;2^K:$L(X)>100!($L(X)<1) X"
^XMB(3.9,43,2,7385,0)="""^DD"",779.004,779.004,2,1,0)"
^XMB(3.9,43,2,7386,0)="^.1"
^XMB(3.9,43,2,7387,0)="""^DD"",779.004,779.004,2,1,1,0)"
^XMB(3.9,43,2,7388,0)="779.004^D^MUMPS"
^XMB(3.9,43,2,7389,0)="""^DD"",779.004,779.004,2,1,1,1)"
^XMB(3.9,43,2,7390,0)="S ^HL(779.004,""D"",$E($$UP^XLFSTR(X),1,30),DA)="""""
^XMB(3.9,43,2,7391,0)="""^DD"",779.004,779.004,2,1,1,2)"
^XMB(3.9,43,2,7392,0)="K ^HL(779.004,""D"",$E($$UP^XLFSTR(X),1,30),DA)"
^XMB(3.9,43,2,7393,0)="""^DD"",779.004,779.004,2,1,1,""DT"")"
^XMB(3.9,43,2,7394,0)="3060228"
^XMB(3.9,43,2,7395,0)="""^DD"",779.004,779.004,2,3)"
^XMB(3.9,43,2,7396,0)="The name of the country.  Answer must be 1-100 characters in length."
^XMB(3.9,43,2,7397,0)="""^DD"",779.004,779.004,2,9)"
^XMB(3.9,43,2,7398,0)="^"
^XMB(3.9,43,2,7399,0)="""^DD"",779.004,779.004,2,""DT"")"
^XMB(3.9,43,2,7400,0)="3060228"
^XMB(3.9,43,2,7401,0)="""^DD"",779.004,779.004,99.98,0)"
^XMB(3.9,43,2,7402,0)="MASTER ENTRY FOR VUID^RSI^0:NO;1:YES;^VUID;2^Q"
^XMB(3.9,43,2,7403,0)="""^DD"",779.004,779.004,99.98,9)"
^XMB(3.9,43,2,7404,0)="^"
^XMB(3.9,43,2,7405,0)="""^DD"",779.004,779.004,99.98,21,0)"
^XMB(3.9,43,2,7406,0)="^^2^2^3050210^"
^XMB(3.9,43,2,7407,0)="""^DD"",779.004,779.004,99.98,21,1,0)"
^XMB(3.9,43,2,7408,0)="This field identifies the Master entry for a VUID associated with a "
^XMB(3.9,43,2,7409,0)="""^DD"",779.004,779.004,99.98,21,2,0)"
^XMB(3.9,43,2,7410,0)="Term/Concept."
^XMB(3.9,43,2,7411,0)="""^DD"",779.004,779.004,99.98,""DT"")"
^XMB(3.9,43,2,7412,0)="3060111"
^XMB(3.9,43,2,7413,0)="""^DD"",779.004,779.004,99.99,0)"
^XMB(3.9,43,2,7414,0)="VUID^RFXI^^VUID;1^S X=+X K:$L(X)>20!($L(X)<1)!'(X?1.20N) X"
^XMB(3.9,43,2,7415,0)="""^DD"",779.004,779.004,99.99,1,0)"
^XMB(3.9,43,2,7416,0)="^.1"
^XMB(3.9,43,2,7417,0)="""^DD"",779.004,779.004,99.99,1,1,0)"
^XMB(3.9,43,2,7418,0)="779.004^AVUID"
^XMB(3.9,43,2,7419,0)="""^DD"",779.004,779.004,99.99,1,1,1)"
^XMB(3.9,43,2,7420,0)="S ^HL(779.004,""AVUID"",$E(X,1,30),DA)="""""
^XMB(3.9,43,2,7421,0)="""^DD"",779.004,779.004,99.99,1,1,2)"
^XMB(3.9,43,2,7422,0)="K ^HL(779.004,""AVUID"",$E(X,1,30),DA)"
^XMB(3.9,43,2,7423,0)="""^DD"",779.004,779.004,99.99,1,1,3)"
^XMB(3.9,43,2,7424,0)="This cross-reference is by VUID."
^XMB(3.9,43,2,7425,0)="""^DD"",779.004,779.004,99.99,1,1,""%D"",0)"
^XMB(3.9,43,2,7426,0)="^^1^1^3051026^"
^XMB(3.9,43,2,7427,0)="""^DD"",779.004,779.004,99.99,1,1,""%D"",1,0)"
^XMB(3.9,43,2,7428,0)="This cross-reference is by VUID."
^XMB(3.9,43,2,7429,0)="""^DD"",779.004,779.004,99.99,1,1,""DT"")"
^XMB(3.9,43,2,7430,0)="3041223"
^XMB(3.9,43,2,7431,0)="""^DD"",779.004,779.004,99.99,3)"
^XMB(3.9,43,2,7432,0)="Answer must be 1-20 digits in length."
^XMB(3.9,43,2,7433,0)="""^DD"",779.004,779.004,99.99,9)"
^XMB(3.9,43,2,7434,0)="^"
^XMB(3.9,43,2,7435,0)="""^DD"",779.004,779.004,99.99,21,0)"
^XMB(3.9,43,2,7436,0)="^.001^2^2^3050210^^"
^XMB(3.9,43,2,7437,0)="""^DD"",779.004,779.004,99.99,21,1,0)"
^XMB(3.9,43,2,7438,0)="VHA Unique ID (VUID). A unique meaningless integer assigned to reference"
^XMB(3.9,43,2,7439,0)="""^DD"",779.004,779.004,99.99,21,2,0)"
^XMB(3.9,43,2,7440,0)="terms VHA wide."
^XMB(3.9,43,2,7441,0)="""^DD"",779.004,779.004,99.99,""DT"")"
^XMB(3.9,43,2,7442,0)="3060111"
^XMB(3.9,43,2,7443,0)="""^DD"",779.004,779.004,99.991,0)"
^XMB(3.9,43,2,7444,0)="EFFECTIVE DATE/TIME^779.00409DA^^TERMSTATUS;0"
^XMB(3.9,43,2,7445,0)="""^DD"",779.004,779.004,99.991,9)"
^XMB(3.9,43,2,7446,0)="^"
^XMB(3.9,43,2,7447,0)="""^DD"",779.004,779.004,99.991,21,0)"
^XMB(3.9,43,2,7448,0)="^^1^1^3050201^"
^XMB(3.9,43,2,7449,0)="""^DD"",779.004,779.004,99.991,21,1,0)"
^XMB(3.9,43,2,7450,0)="Describes the pair Status and Effective Date/Time for each reference term."
^XMB(3.9,43,2,7451,0)="""^DD"",779.004,779.004,99.991,""DT"")"
^XMB(3.9,43,2,7452,0)="3060111"
^XMB(3.9,43,2,7453,0)="""^DD"",779.004,779.004,100,0)"
^XMB(3.9,43,2,7454,0)="VERSION^779.00401P^^1;0"
^XMB(3.9,43,2,7455,0)="""^DD"",779.004,779.004,100,9)"
^XMB(3.9,43,2,7456,0)="^"
^XMB(3.9,43,2,7457,0)="""^DD"",779.004,779.00401,0)"
^XMB(3.9,43,2,7458,0)="VERSION SUB-FIELD^^.01^1"
^XMB(3.9,43,2,7459,0)="""^DD"",779.004,779.00401,0,""DT"")"
^XMB(3.9,43,2,7460,0)="2940928"
^XMB(3.9,43,2,7461,0)="""^DD"",779.004,779.00401,0,""IX"",""B"",779.00401,.01)"
^XMB(3.9,43,2,7462,0)=""
^XMB(3.9,43,2,7463,0)="""^DD"",779.004,779.00401,0,""NM"",""VERSION"")"
^XMB(3.9,43,2,7464,0)=""
^XMB(3.9,43,2,7465,0)="""^DD"",779.004,779.00401,0,""UP"")"
^XMB(3.9,43,2,7466,0)="779.004"
^XMB(3.9,43,2,7467,0)="""^DD"",779.004,779.00401,.01,0)"
^XMB(3.9,43,2,7468,0)="VERSION^RP771.5'^HL(771.5,^0;1^Q"
^XMB(3.9,43,2,7469,0)="""^DD"",779.004,779.00401,.01,1,0)"
^XMB(3.9,43,2,7470,0)="^.1"
^XMB(3.9,43,2,7471,0)="""^DD"",779.004,779.00401,.01,1,1,0)"
^XMB(3.9,43,2,7472,0)="779.00401^B"
^XMB(3.9,43,2,7473,0)="""^DD"",779.004,779.00401,.01,1,1,1)"
^XMB(3.9,43,2,7474,0)="S ^HL(779.004,DA(1),1,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,43,2,7475,0)="""^DD"",779.004,779.00401,.01,1,1,2)"
^XMB(3.9,43,2,7476,0)="K ^HL(779.004,DA(1),1,""B"",$E(X,1,30),DA)"
^XMB(3.9,43,2,7477,0)="""^DD"",779.004,779.00401,.01,3)"
^XMB(3.9,43,2,7478,0)="The version(s) of the standard in which this country code is used."
^XMB(3.9,43,2,7479,0)="""^DD"",779.004,779.00401,.01,9)"
^XMB(3.9,43,2,7480,0)="^"
^XMB(3.9,43,2,7481,0)="""^DD"",779.004,779.00401,.01,""DT"")"
^XMB(3.9,43,2,7482,0)="2940928"
^XMB(3.9,43,2,7483,0)="""^DD"",779.004,779.00409,0)"
^XMB(3.9,43,2,7484,0)="EFFECTIVE DATE/TIME SUB-FIELD^^.02^2"
^XMB(3.9,43,2,7485,0)="""^DD"",779.004,779.00409,0,""DT"")"
^XMB(3.9,43,2,7486,0)="3050201"
^XMB(3.9,43,2,7487,0)="""^DD"",779.004,779.00409,0,""IX"",""B"",779.00409,.01)"
^XMB(3.9,43,2,7488,0)=""
^XMB(3.9,43,2,7489,0)="""^DD"",779.004,779.00409,0,""NM"",""EFFECTIVE DATE/TIME"")"
^XMB(3.9,43,2,7490,0)=" "
^XMB(3.9,43,2,7491,0)="""^DD"",779.004,779.00409,0,""UP"")"
^XMB(3.9,43,2,7492,0)="779.004"
^XMB(3.9,43,2,7493,0)="""^DD"",779.004,779.00409,.01,0)"
^XMB(3.9,43,2,7494,0)="EFFECTIVE DATE/TIME^RDI^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,43,2,7495,0)="""^DD"",779.004,779.00409,.01,1,0)"
^XMB(3.9,43,2,7496,0)="^.1"
^XMB(3.9,43,2,7497,0)="""^DD"",779.004,779.00409,.01,1,1,0)"
^XMB(3.9,43,2,7498,0)="779.00409^B"
^XMB(3.9,43,2,7499,0)="""^DD"",779.004,779.00409,.01,1,1,1)"
^XMB(3.9,43,2,7500,0)="S ^HL(779.004,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)="""""
^XMB(3.9,43,2,7501,0)="""^DD"",779.004,779.00409,.01,1,1,2)"
^XMB(3.9,43,2,7502,0)="K ^HL(779.004,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)"
^XMB(3.9,43,2,7503,0)="""^DD"",779.004,779.00409,.01,1,1,""%D"",0)"
^XMB(3.9,43,2,7504,0)="^^1^1^3050201^"
^XMB(3.9,43,2,7505,0)="""^DD"",779.004,779.00409,.01,1,1,""%D"",1,0)"
^XMB(3.9,43,2,7506,0)="This cross-reference is by Effective Date/Time."
^XMB(3.9,43,2,7507,0)="""^DD"",779.004,779.00409,.01,9)"
^XMB(3.9,43,2,7508,0)="^"
^XMB(3.9,43,2,7509,0)="""^DD"",779.004,779.00409,.01,21,0)"
^XMB(3.9,43,2,7510,0)="^^2^2^3050201^"
^XMB(3.9,43,2,7511,0)="""^DD"",779.004,779.00409,.01,21,1,0)"
^XMB(3.9,43,2,7512,0)="This is the date/time when the Status of the reference term was "
^XMB(3.9,43,2,7513,0)="""^DD"",779.004,779.00409,.01,21,2,0)"
^XMB(3.9,43,2,7514,0)="established."
^XMB(3.9,43,2,7515,0)="""^DD"",779.004,779.00409,.01,""DT"")"
^XMB(3.9,43,2,7516,0)="3060111"
^XMB(3.9,43,2,7517,0)="""^DD"",779.004,779.00409,.02,0)"
^XMB(3.9,43,2,7518,0)="STATUS^RSI^1:ACTIVE;0:INACTIVE;^0;2^Q"
^XMB(3.9,43,2,7519,0)="""^DD"",779.004,779.00409,.02,9)"
^XMB(3.9,43,2,7520,0)="^"
^XMB(3.9,43,2,7521,0)="""^DD"",779.004,779.00409,.02,21,0)"
^XMB(3.9,43,2,7522,0)="^^4^4^3050201^"
^XMB(3.9,43,2,7523,0)="""^DD"",779.004,779.00409,.02,21,1,0)"
^XMB(3.9,43,2,7524,0)="The Status of a reference term is either 'ACTIVE' or 'INACTIVE'. If "
^XMB(3.9,43,2,7525,0)="""^DD"",779.004,779.00409,.02,21,2,0)"
^XMB(3.9,43,2,7526,0)="'ACTIVE', then the term will be accessible by end-users to document a "
^XMB(3.9,43,2,7527,0)="""^DD"",779.004,779.00409,.02,21,3,0)"
^XMB(3.9,43,2,7528,0)="particular patient event. If 'INACTIVE', then the term will only be "
^XMB(3.9,43,2,7529,0)="""^DD"",779.004,779.00409,.02,21,4,0)"
^XMB(3.9,43,2,7530,0)="accessible by the application to display legacy data."
^XMB(3.9,43,2,7531,0)="""^DD"",779.004,779.00409,.02,""DT"")"
^XMB(3.9,43,2,7532,0)="3060111"
^XMB(3.9,43,2,7533,0)="""^DIC"",779.004,779.004,0)"
^XMB(3.9,43,2,7534,0)="COUNTRY CODE^779.004I"
^XMB(3.9,43,2,7535,0)="""^DIC"",779.004,779.004,0,""GL"")"
^XMB(3.9,43,2,7536,0)="^HL(779.004,"
^XMB(3.9,43,2,7537,0)="""^DIC"",779.004,779.004,""%D"",0)"
^XMB(3.9,43,2,7538,0)="^^13^13^3060111"
^XMB(3.9,43,2,7539,0)="""^DIC"",779.004,779.004,""%D"",1,0)"
^XMB(3.9,43,2,7540,0)="Per VHA Directive 2005-044, this file has been ""locked down"" by Data "
^XMB(3.9,43,2,7541,0)="""^DIC"",779.004,779.004,""%D"",2,0)"
^XMB(3.9,43,2,7542,0)="Standardization (DS).  The file definition (i.e. data dictionary) shall "
^XMB(3.9,43,2,7543,0)="""^DIC"",779.004,779.004,""%D"",3,0)"
^XMB(3.9,43,2,7544,0)="not be modified.  All additions, changes and deletions to entries in the "
^XMB(3.9,43,2,7545,0)="""^DIC"",779.004,779.004,""%D"",4,0)"
^XMB(3.9,43,2,7546,0)="file shall be done by Enterprise Reference Terminology (ERT) using the "
^XMB(3.9,43,2,7547,0)="""^DIC"",779.004,779.004,""%D"",5,0)"
^XMB(3.9,43,2,7548,0)="Master File Server (MFS), provided by Common Services (CS).  Creating "
^XMB(3.9,43,2,7549,0)="""^DIC"",779.004,779.004,""%D"",6,0)"
^XMB(3.9,43,2,7550,0)="and/or editing locally defined fields in the file are not permitted.  Use "
^XMB(3.9,43,2,7551,0)="""^DIC"",779.004,779.004,""%D"",7,0)"
^XMB(3.9,43,2,7552,0)="of locally defined fields that were created prior to the VHA Directive's "
^XMB(3.9,43,2,7553,0)="""^DIC"",779.004,779.004,""%D"",8,0)"
^XMB(3.9,43,2,7554,0)="2005-044 effective date shall not be supported."
^XMB(3.9,43,2,7555,0)="""^DIC"",779.004,779.004,""%D"",9,0)"
^XMB(3.9,43,2,7556,0)=""
^XMB(3.9,43,2,7557,0)="""^DIC"",779.004,779.004,""%D"",10,0)"
^XMB(3.9,43,2,7558,0)="This file is a table of country codes that are used by the Messaging"
^XMB(3.9,43,2,7559,0)="""^DIC"",779.004,779.004,""%D"",11,0)"
^XMB(3.9,43,2,7560,0)="System when building message header segments."
^XMB(3.9,43,2,7561,0)="""^DIC"",779.004,779.004,""%D"",12,0)"
^XMB(3.9,43,2,7562,0)=" "
^XMB(3.9,43,2,7563,0)="""^DIC"",779.004,779.004,""%D"",13,0)"
^XMB(3.9,43,2,7564,0)="This file should not be modified locally."
^XMB(3.9,43,2,7565,0)="""^DIC"",779.004,""B"",""COUNTRY CODE"",779.004)"
^XMB(3.9,43,2,7566,0)=""
^XMB(3.9,43,2,7567,0)="""BLD"",926,6)"
^XMB(3.9,43,2,7568,0)="^103"
^XMB(3.9,43,2,7569,0)="$END KID HL*1.6*120"
^XMB(3.9,43,6,0)="^3.911A^2^2"
^XMB(3.9,43,6,1,0)="POSTMASTER"
^XMB(3.9,43,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,43,6,"B","POSTMASTER",1)=""
^XMB(3.9,43,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,44,0)="HL-1P6_SEQ-104_PAT-131.KID^.5^3061008.015735^^^^K"
^XMB(3.9,44,.6)="3061008"
^XMB(3.9,44,1,0)="^3.91A^2^2"
^XMB(3.9,44,1,1,0)=".5^0^3061008.015735^^^^^^^3061008.015735"
^XMB(3.9,44,1,2,0)="1^0^3061008.023228^^^^^^^3061008.023228"
^XMB(3.9,44,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,44,1,"C",.5,1)=""
^XMB(3.9,44,1,"C",1,2)=""
^XMB(3.9,44,2,0)="^^5407^5407^3061008"
^XMB(3.9,44,2,1,0)="$TXT Released HL*1.6*131 SEQ #104"
^XMB(3.9,44,2,2,0)="Extracted from mail message"
^XMB(3.9,44,2,3,0)="$END TXT"
^XMB(3.9,44,2,4,0)="$KID HL*1.6*131"
^XMB(3.9,44,2,5,0)="**INSTALL NAME**"
^XMB(3.9,44,2,6,0)="HL*1.6*131"
^XMB(3.9,44,2,7,0)="""BLD"",925,0)"
^XMB(3.9,44,2,8,0)="HL*1.6*131^HEALTH LEVEL SEVEN^0^3060419^y"
^XMB(3.9,44,2,9,0)="""BLD"",925,1,0)"
^XMB(3.9,44,2,10,0)="^^3^3^3060404^^"
^XMB(3.9,44,2,11,0)="""BLD"",925,1,1,0)"
^XMB(3.9,44,2,12,0)=""
^XMB(3.9,44,2,13,0)="""BLD"",925,1,2,0)"
^XMB(3.9,44,2,14,0)=""
^XMB(3.9,44,2,15,0)="""BLD"",925,1,3,0)"
^XMB(3.9,44,2,16,0)=""
^XMB(3.9,44,2,17,0)="""BLD"",925,4,0)"
^XMB(3.9,44,2,18,0)="^9.64PA^^0"
^XMB(3.9,44,2,19,0)="""BLD"",925,6.3)"
^XMB(3.9,44,2,20,0)="10"
^XMB(3.9,44,2,21,0)="""BLD"",925,""ABPKG"")"
^XMB(3.9,44,2,22,0)="n"
^XMB(3.9,44,2,23,0)="""BLD"",925,""INID"")"
^XMB(3.9,44,2,24,0)="^"
^XMB(3.9,44,2,25,0)="""BLD"",925,""INIT"")"
^XMB(3.9,44,2,26,0)=""
^XMB(3.9,44,2,27,0)="""BLD"",925,""KRN"",0)"
^XMB(3.9,44,2,28,0)="^9.67PA^8989.52^19"
^XMB(3.9,44,2,29,0)="""BLD"",925,""KRN"",.4,0)"
^XMB(3.9,44,2,30,0)=".4"
^XMB(3.9,44,2,31,0)="""BLD"",925,""KRN"",.401,0)"
^XMB(3.9,44,2,32,0)=".401"
^XMB(3.9,44,2,33,0)="""BLD"",925,""KRN"",.402,0)"
^XMB(3.9,44,2,34,0)=".402"
^XMB(3.9,44,2,35,0)="""BLD"",925,""KRN"",.403,0)"
^XMB(3.9,44,2,36,0)=".403"
^XMB(3.9,44,2,37,0)="""BLD"",925,""KRN"",.5,0)"
^XMB(3.9,44,2,38,0)=".5"
^XMB(3.9,44,2,39,0)="""BLD"",925,""KRN"",.84,0)"
^XMB(3.9,44,2,40,0)=".84"
^XMB(3.9,44,2,41,0)="""BLD"",925,""KRN"",3.6,0)"
^XMB(3.9,44,2,42,0)="3.6"
^XMB(3.9,44,2,43,0)="""BLD"",925,""KRN"",3.8,0)"
^XMB(3.9,44,2,44,0)="3.8"
^XMB(3.9,44,2,45,0)="""BLD"",925,""KRN"",9.2,0)"
^XMB(3.9,44,2,46,0)="9.2"
^XMB(3.9,44,2,47,0)="""BLD"",925,""KRN"",9.8,0)"
^XMB(3.9,44,2,48,0)="9.8"
^XMB(3.9,44,2,49,0)="""BLD"",925,""KRN"",9.8,""NM"",0)"
^XMB(3.9,44,2,50,0)="^9.68A^15^15"
^XMB(3.9,44,2,51,0)="""BLD"",925,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,44,2,52,0)="HLOCLNT^^0^B57442573"
^XMB(3.9,44,2,53,0)="""BLD"",925,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,44,2,54,0)="HLOCLNT1^^0^B28062817"
^XMB(3.9,44,2,55,0)="""BLD"",925,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,44,2,56,0)="HLOCLNT2^^0^B30513205"
^XMB(3.9,44,2,57,0)="""BLD"",925,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,44,2,58,0)="HLOSRVR^^0^B62293420"
^XMB(3.9,44,2,59,0)="""BLD"",925,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,44,2,60,0)="HLOSRVR1^^0^B63396021"
^XMB(3.9,44,2,61,0)="""BLD"",925,""KRN"",9.8,""NM"",6,0)"
^XMB(3.9,44,2,62,0)="HLOTCP^^0^B45043587"
^XMB(3.9,44,2,63,0)="""BLD"",925,""KRN"",9.8,""NM"",7,0)"
^XMB(3.9,44,2,64,0)="HLOT^^0^B2729395"
^XMB(3.9,44,2,65,0)="""BLD"",925,""KRN"",9.8,""NM"",8,0)"
^XMB(3.9,44,2,66,0)="HLOPRS2^^0^B25178316"
^XMB(3.9,44,2,67,0)="""BLD"",925,""KRN"",9.8,""NM"",9,0)"
^XMB(3.9,44,2,68,0)="HLOAPI4^^0^B22068040"
^XMB(3.9,44,2,69,0)="""BLD"",925,""KRN"",9.8,""NM"",10,0)"
^XMB(3.9,44,2,70,0)="HLOAPI2^^0^B36169512"
^XMB(3.9,44,2,71,0)="""BLD"",925,""KRN"",9.8,""NM"",11,0)"
^XMB(3.9,44,2,72,0)="HLOTLNK^^0^B23891993"
^XMB(3.9,44,2,73,0)="""BLD"",925,""KRN"",9.8,""NM"",12,0)"
^XMB(3.9,44,2,74,0)="HLOSTAT^^0^B55442954"
^XMB(3.9,44,2,75,0)="""BLD"",925,""KRN"",9.8,""NM"",13,0)"
^XMB(3.9,44,2,76,0)="HLOSRVR2^^0^B13997562"
^XMB(3.9,44,2,77,0)="""BLD"",925,""KRN"",9.8,""NM"",14,0)"
^XMB(3.9,44,2,78,0)="HLOPRS1^^0^B19358044"
^XMB(3.9,44,2,79,0)="""BLD"",925,""KRN"",9.8,""NM"",15,0)"
^XMB(3.9,44,2,80,0)="HLOFILER^^0^B25709739"
^XMB(3.9,44,2,81,0)="""BLD"",925,""KRN"",9.8,""NM"",""B"",""HLOAPI2"",10)"
^XMB(3.9,44,2,82,0)=""
^XMB(3.9,44,2,83,0)="""BLD"",925,""KRN"",9.8,""NM"",""B"",""HLOAPI4"",9)"
^XMB(3.9,44,2,84,0)=""
^XMB(3.9,44,2,85,0)="""BLD"",925,""KRN"",9.8,""NM"",""B"",""HLOCLNT"",1)"
^XMB(3.9,44,2,86,0)=""
^XMB(3.9,44,2,87,0)="""BLD"",925,""KRN"",9.8,""NM"",""B"",""HLOCLNT1"",2)"
^XMB(3.9,44,2,88,0)=""
^XMB(3.9,44,2,89,0)="""BLD"",925,""KRN"",9.8,""NM"",""B"",""HLOCLNT2"",3)"
^XMB(3.9,44,2,90,0)=""
^XMB(3.9,44,2,91,0)="""BLD"",925,""KRN"",9.8,""NM"",""B"",""HLOFILER"",15)"
^XMB(3.9,44,2,92,0)=""
^XMB(3.9,44,2,93,0)="""BLD"",925,""KRN"",9.8,""NM"",""B"",""HLOPRS1"",14)"
^XMB(3.9,44,2,94,0)=""
^XMB(3.9,44,2,95,0)="""BLD"",925,""KRN"",9.8,""NM"",""B"",""HLOPRS2"",8)"
^XMB(3.9,44,2,96,0)=""
^XMB(3.9,44,2,97,0)="""BLD"",925,""KRN"",9.8,""NM"",""B"",""HLOSRVR"",4)"
^XMB(3.9,44,2,98,0)=""
^XMB(3.9,44,2,99,0)="""BLD"",925,""KRN"",9.8,""NM"",""B"",""HLOSRVR1"",5)"
^XMB(3.9,44,2,100,0)=""
^XMB(3.9,44,2,101,0)="""BLD"",925,""KRN"",9.8,""NM"",""B"",""HLOSRVR2"",13)"
^XMB(3.9,44,2,102,0)=""
^XMB(3.9,44,2,103,0)="""BLD"",925,""KRN"",9.8,""NM"",""B"",""HLOSTAT"",12)"
^XMB(3.9,44,2,104,0)=""
^XMB(3.9,44,2,105,0)="""BLD"",925,""KRN"",9.8,""NM"",""B"",""HLOT"",7)"
^XMB(3.9,44,2,106,0)=""
^XMB(3.9,44,2,107,0)="""BLD"",925,""KRN"",9.8,""NM"",""B"",""HLOTCP"",6)"
^XMB(3.9,44,2,108,0)=""
^XMB(3.9,44,2,109,0)="""BLD"",925,""KRN"",9.8,""NM"",""B"",""HLOTLNK"",11)"
^XMB(3.9,44,2,110,0)=""
^XMB(3.9,44,2,111,0)="""BLD"",925,""KRN"",19,0)"
^XMB(3.9,44,2,112,0)="19"
^XMB(3.9,44,2,113,0)="""BLD"",925,""KRN"",19,""NM"",0)"
^XMB(3.9,44,2,114,0)="^9.68A^^"
^XMB(3.9,44,2,115,0)="""BLD"",925,""KRN"",19.1,0)"
^XMB(3.9,44,2,116,0)="19.1"
^XMB(3.9,44,2,117,0)="""BLD"",925,""KRN"",101,0)"
^XMB(3.9,44,2,118,0)="101"
^XMB(3.9,44,2,119,0)="""BLD"",925,""KRN"",409.61,0)"
^XMB(3.9,44,2,120,0)="409.61"
^XMB(3.9,44,2,121,0)="""BLD"",925,""KRN"",771,0)"
^XMB(3.9,44,2,122,0)="771"
^XMB(3.9,44,2,123,0)="""BLD"",925,""KRN"",870,0)"
^XMB(3.9,44,2,124,0)="870"
^XMB(3.9,44,2,125,0)="""BLD"",925,""KRN"",8989.51,0)"
^XMB(3.9,44,2,126,0)="8989.51"
^XMB(3.9,44,2,127,0)="""BLD"",925,""KRN"",8989.52,0)"
^XMB(3.9,44,2,128,0)="8989.52"
^XMB(3.9,44,2,129,0)="""BLD"",925,""KRN"",8994,0)"
^XMB(3.9,44,2,130,0)="8994"
^XMB(3.9,44,2,131,0)="""BLD"",925,""KRN"",""B"",.4,.4)"
^XMB(3.9,44,2,132,0)=""
^XMB(3.9,44,2,133,0)="""BLD"",925,""KRN"",""B"",.401,.401)"
^XMB(3.9,44,2,134,0)=""
^XMB(3.9,44,2,135,0)="""BLD"",925,""KRN"",""B"",.402,.402)"
^XMB(3.9,44,2,136,0)=""
^XMB(3.9,44,2,137,0)="""BLD"",925,""KRN"",""B"",.403,.403)"
^XMB(3.9,44,2,138,0)=""
^XMB(3.9,44,2,139,0)="""BLD"",925,""KRN"",""B"",.5,.5)"
^XMB(3.9,44,2,140,0)=""
^XMB(3.9,44,2,141,0)="""BLD"",925,""KRN"",""B"",.84,.84)"
^XMB(3.9,44,2,142,0)=""
^XMB(3.9,44,2,143,0)="""BLD"",925,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,44,2,144,0)=""
^XMB(3.9,44,2,145,0)="""BLD"",925,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,44,2,146,0)=""
^XMB(3.9,44,2,147,0)="""BLD"",925,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,44,2,148,0)=""
^XMB(3.9,44,2,149,0)="""BLD"",925,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,44,2,150,0)=""
^XMB(3.9,44,2,151,0)="""BLD"",925,""KRN"",""B"",19,19)"
^XMB(3.9,44,2,152,0)=""
^XMB(3.9,44,2,153,0)="""BLD"",925,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,44,2,154,0)=""
^XMB(3.9,44,2,155,0)="""BLD"",925,""KRN"",""B"",101,101)"
^XMB(3.9,44,2,156,0)=""
^XMB(3.9,44,2,157,0)="""BLD"",925,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,44,2,158,0)=""
^XMB(3.9,44,2,159,0)="""BLD"",925,""KRN"",""B"",771,771)"
^XMB(3.9,44,2,160,0)=""
^XMB(3.9,44,2,161,0)="""BLD"",925,""KRN"",""B"",870,870)"
^XMB(3.9,44,2,162,0)=""
^XMB(3.9,44,2,163,0)="""BLD"",925,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,44,2,164,0)=""
^XMB(3.9,44,2,165,0)="""BLD"",925,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,44,2,166,0)=""
^XMB(3.9,44,2,167,0)="""BLD"",925,""KRN"",""B"",8994,8994)"
^XMB(3.9,44,2,168,0)=""
^XMB(3.9,44,2,169,0)="""BLD"",925,""QUES"",0)"
^XMB(3.9,44,2,170,0)="^9.62^^"
^XMB(3.9,44,2,171,0)="""BLD"",925,""REQB"",0)"
^XMB(3.9,44,2,172,0)="^9.611^1^1"
^XMB(3.9,44,2,173,0)="""BLD"",925,""REQB"",1,0)"
^XMB(3.9,44,2,174,0)="HL*1.6*130^2"
^XMB(3.9,44,2,175,0)="""BLD"",925,""REQB"",""B"",""HL*1.6*130"",1)"
^XMB(3.9,44,2,176,0)=""
^XMB(3.9,44,2,177,0)="""MBREQ"")"
^XMB(3.9,44,2,178,0)="0"
^XMB(3.9,44,2,179,0)="""PKG"",9,-1)"
^XMB(3.9,44,2,180,0)="1^1"
^XMB(3.9,44,2,181,0)="""PKG"",9,0)"
^XMB(3.9,44,2,182,0)="HEALTH LEVEL SEVEN^HL^DHCP IMPLEMENTATION OF HEALTH LEVEL SEVEN^"
^XMB(3.9,44,2,183,0)="""PKG"",9,20,0)"
^XMB(3.9,44,2,184,0)="^9.402P^^"
^XMB(3.9,44,2,185,0)="""PKG"",9,22,0)"
^XMB(3.9,44,2,186,0)="^9.49I^1^1"
^XMB(3.9,44,2,187,0)="""PKG"",9,22,1,0)"
^XMB(3.9,44,2,188,0)="1.6^2980130^2980130^6"
^XMB(3.9,44,2,189,0)="""PKG"",9,22,1,""PAH"",1,0)"
^XMB(3.9,44,2,190,0)="131^3060419^16"
^XMB(3.9,44,2,191,0)="""PKG"",9,22,1,""PAH"",1,1,0)"
^XMB(3.9,44,2,192,0)="^^3^3^3060419"
^XMB(3.9,44,2,193,0)="""PKG"",9,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,44,2,194,0)=""
^XMB(3.9,44,2,195,0)="""PKG"",9,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,44,2,196,0)=""
^XMB(3.9,44,2,197,0)="""PKG"",9,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,44,2,198,0)=""
^XMB(3.9,44,2,199,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,44,2,200,0)="Y"
^XMB(3.9,44,2,201,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,44,2,202,0)="^D REP^XPDH"
^XMB(3.9,44,2,203,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,44,2,204,0)="Shall I write over your |FLAG| File"
^XMB(3.9,44,2,205,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,44,2,206,0)="YES"
^XMB(3.9,44,2,207,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,44,2,208,0)="D XPF1^XPDIQ"
^XMB(3.9,44,2,209,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,44,2,210,0)="Y"
^XMB(3.9,44,2,211,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,44,2,212,0)="^D DTA^XPDH"
^XMB(3.9,44,2,213,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,44,2,214,0)="Want my data |FLAG| yours"
^XMB(3.9,44,2,215,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,44,2,216,0)="YES"
^XMB(3.9,44,2,217,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,44,2,218,0)="D XPF2^XPDIQ"
^XMB(3.9,44,2,219,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,44,2,220,0)="YO"
^XMB(3.9,44,2,221,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,44,2,222,0)="^D INHIBIT^XPDH"
^XMB(3.9,44,2,223,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,44,2,224,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,44,2,225,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,44,2,226,0)="YES"
^XMB(3.9,44,2,227,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,44,2,228,0)="D XPI1^XPDIQ"
^XMB(3.9,44,2,229,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,44,2,230,0)="PO^VA(200,:EM"
^XMB(3.9,44,2,231,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,44,2,232,0)="^D MG^XPDH"
^XMB(3.9,44,2,233,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,44,2,234,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,44,2,235,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,44,2,236,0)=""
^XMB(3.9,44,2,237,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,44,2,238,0)="D XPM1^XPDIQ"
^XMB(3.9,44,2,239,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,44,2,240,0)="Y"
^XMB(3.9,44,2,241,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,44,2,242,0)="^D MENU^XPDH"
^XMB(3.9,44,2,243,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,44,2,244,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,44,2,245,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,44,2,246,0)="YES"
^XMB(3.9,44,2,247,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,44,2,248,0)="D XPO1^XPDIQ"
^XMB(3.9,44,2,249,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,44,2,250,0)="Y"
^XMB(3.9,44,2,251,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,44,2,252,0)="^D OPT^XPDH"
^XMB(3.9,44,2,253,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,44,2,254,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,44,2,255,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,44,2,256,0)="YES"
^XMB(3.9,44,2,257,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,44,2,258,0)="D XPZ1^XPDIQ"
^XMB(3.9,44,2,259,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,44,2,260,0)="Y"
^XMB(3.9,44,2,261,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,44,2,262,0)="^D RTN^XPDH"
^XMB(3.9,44,2,263,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,44,2,264,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,44,2,265,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,44,2,266,0)="NO"
^XMB(3.9,44,2,267,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,44,2,268,0)="D XPZ2^XPDIQ"
^XMB(3.9,44,2,269,0)="""RTN"")"
^XMB(3.9,44,2,270,0)="15"
^XMB(3.9,44,2,271,0)="""RTN"",""HLOAPI2"")"
^XMB(3.9,44,2,272,0)="0^10^B36169512^B27708015"
^XMB(3.9,44,2,273,0)="""RTN"",""HLOAPI2"",1,0)"
^XMB(3.9,44,2,274,0)="HLOAPI2 ;ALB/CJM-HL7 - Developer API's for sending application acks ;02/04/2004"
^XMB(3.9,44,2,275,0)="""RTN"",""HLOAPI2"",2,0)"
^XMB(3.9,44,2,276,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126,131**;Oct 13, 1995;Build 10"
^XMB(3.9,44,2,277,0)="""RTN"",""HLOAPI2"",3,0)"
^XMB(3.9,44,2,278,0)=" ;"
^XMB(3.9,44,2,279,0)="""RTN"",""HLOAPI2"",4,0)"
^XMB(3.9,44,2,280,0)="ACK(HLMSTATE,PARMS,ACK,ERROR) ;Default behavior is to return a general"
^XMB(3.9,44,2,281,0)="""RTN"",""HLOAPI2"",5,0)"
^XMB(3.9,44,2,282,0)=" ;application ack. The application may optionally specify the message"
^XMB(3.9,44,2,283,0)="""RTN"",""HLOAPI2"",6,0)"
^XMB(3.9,44,2,284,0)=" ;type and event or call $$ADDSEG^HLOAPI to add segments."
^XMB(3.9,44,2,285,0)="""RTN"",""HLOAPI2"",7,0)"
^XMB(3.9,44,2,286,0)=" ;A generic MSA segment (components 1-3) is added automatically IF the"
^XMB(3.9,44,2,287,0)="""RTN"",""HLOAPI2"",8,0)"
^XMB(3.9,44,2,288,0)=" ;application doesn't call $$ADDSEG^HLOAPI to add an MSA segment as the"
^XMB(3.9,44,2,289,0)="""RTN"",""HLOAPI2"",9,0)"
^XMB(3.9,44,2,290,0)=" ;FIRST segment following the header."
^XMB(3.9,44,2,291,0)="""RTN"",""HLOAPI2"",10,0)"
^XMB(3.9,44,2,292,0)=" ;$$SENDACK must be called when the ack is completed. The return"
^XMB(3.9,44,2,293,0)="""RTN"",""HLOAPI2"",11,0)"
^XMB(3.9,44,2,294,0)=" ;destination is determined automatically from the original message"
^XMB(3.9,44,2,295,0)="""RTN"",""HLOAPI2"",12,0)"
^XMB(3.9,44,2,296,0)=" ;"
^XMB(3.9,44,2,297,0)="""RTN"",""HLOAPI2"",13,0)"
^XMB(3.9,44,2,298,0)=" ;This API should NOT be called for batch messages, use $$BATCHACK instead."
^XMB(3.9,44,2,299,0)="""RTN"",""HLOAPI2"",14,0)"
^XMB(3.9,44,2,300,0)=" ;Input:"
^XMB(3.9,44,2,301,0)="""RTN"",""HLOAPI2"",15,0)"
^XMB(3.9,44,2,302,0)=" ;  HLMSTATE (pass by reference, required) the array obtained by calling $$STARTMSG^HLOPRS when parsing the original message "
^XMB(3.9,44,2,303,0)="""RTN"",""HLOAPI2"",16,0)"
^XMB(3.9,44,2,304,0)=" ;  PARMS (pass by reference) These subscripts may be defined:"
^XMB(3.9,44,2,305,0)="""RTN"",""HLOAPI2"",17,0)"
^XMB(3.9,44,2,306,0)=" ;    ""ACK CODE"" (required) MSA1[ {AA,AE,AR}"
^XMB(3.9,44,2,307,0)="""RTN"",""HLOAPI2"",18,0)"
^XMB(3.9,44,2,308,0)=" ;    ""ERROR MESSAGE"" - MSA3, should be used only if AE or AR"
^XMB(3.9,44,2,309,0)="""RTN"",""HLOAPI2"",19,0)"
^XMB(3.9,44,2,310,0)=" ;    ""ACCEPT ACK RESPONSE"" - the <tag^routine> to call when the commit ack is received (optional)"
^XMB(3.9,44,2,311,0)="""RTN"",""HLOAPI2"",20,0)"
^XMB(3.9,44,2,312,0)=" ;    ""ACCEPT ACK TYPE"" - {AL,NE} (optional, defaults to AL)"
^XMB(3.9,44,2,313,0)="""RTN"",""HLOAPI2"",21,0)"
^XMB(3.9,44,2,314,0)=" ;    ""CONTINUATION POINTER"" (optional)indicates a fragmented message"
^XMB(3.9,44,2,315,0)="""RTN"",""HLOAPI2"",22,0)"
^XMB(3.9,44,2,316,0)=" ;    ""COUNTRY"" - the 3 character country code (optional)"
^XMB(3.9,44,2,317,0)="""RTN"",""HLOAPI2"",23,0)"
^XMB(3.9,44,2,318,0)=" ;    ""EVENT"" - the 3 character event type (optional, defaults to the event code of the original message)"
^XMB(3.9,44,2,319,0)="""RTN"",""HLOAPI2"",24,0)"
^XMB(3.9,44,2,320,0)=" ;     ""ENCODING CHARACTERS"" - the four HL7 encoding characters (optional,defaults to ""^~\&"""
^XMB(3.9,44,2,321,0)="""RTN"",""HLOAPI2"",25,0)"
^XMB(3.9,44,2,322,0)=" ;    ""FAILURE RESPONSE"" (optional) the <tag>^<routine> that the sending application routine should execute if the transmission of the message fails, i.e., the message can not be sent or a requested commit ack is not received."
^XMB(3.9,44,2,323,0)="""RTN"",""HLOAPI2"",26,0)"
^XMB(3.9,44,2,324,0)=" ;    ""FIELD SEPARATOR"" - field separator (optional, defaults to ""|"")"
^XMB(3.9,44,2,325,0)="""RTN"",""HLOAPI2"",27,0)"
^XMB(3.9,44,2,326,0)=" ;    ""MESSAGE TYPE"" - if not defined, ACK is used"
^XMB(3.9,44,2,327,0)="""RTN"",""HLOAPI2"",28,0)"
^XMB(3.9,44,2,328,0)=" ;    ""MESSAGE STRUCTURE"" (optional)"
^XMB(3.9,44,2,329,0)="""RTN"",""HLOAPI2"",29,0)"
^XMB(3.9,44,2,330,0)=" ;    ""QUEUE"" - (optional) An application can name its own private queue (a string under 20 characters,namespaced). The default is the name of the queue of the original message"
^XMB(3.9,44,2,331,0)="""RTN"",""HLOAPI2"",30,0)"
^XMB(3.9,44,2,332,0)=" ;    ""SECURITY"" (optional) security information to include in the header segment, SEQ 8 (optional)"
^XMB(3.9,44,2,333,0)="""RTN"",""HLOAPI2"",31,0)"
^XMB(3.9,44,2,334,0)=" ;    ""VERSION"" - the HL7 Version ID (optional, defaults to 2.4)"
^XMB(3.9,44,2,335,0)="""RTN"",""HLOAPI2"",32,0)"
^XMB(3.9,44,2,336,0)=" ;Output:"
^XMB(3.9,44,2,337,0)="""RTN"",""HLOAPI2"",33,0)"
^XMB(3.9,44,2,338,0)=" ;  Function returns 1 on success, 0 on failure"
^XMB(3.9,44,2,339,0)="""RTN"",""HLOAPI2"",34,0)"
^XMB(3.9,44,2,340,0)=" ;  PARMS - left undefined when the function returns"
^XMB(3.9,44,2,341,0)="""RTN"",""HLOAPI2"",35,0)"
^XMB(3.9,44,2,342,0)=" ;  ACK (pass by reference, required) the acknowledgment message being built."
^XMB(3.9,44,2,343,0)="""RTN"",""HLOAPI2"",36,0)"
^XMB(3.9,44,2,344,0)=" ;  ERROR (pass by reference) error msg"
^XMB(3.9,44,2,345,0)="""RTN"",""HLOAPI2"",37,0)"
^XMB(3.9,44,2,346,0)=" N I,SEG,TOLINK,SUCCESS"
^XMB(3.9,44,2,347,0)="""RTN"",""HLOAPI2"",38,0)"
^XMB(3.9,44,2,348,0)=" S SUCCESS=0,ERROR="""""
^XMB(3.9,44,2,349,0)="""RTN"",""HLOAPI2"",39,0)"
^XMB(3.9,44,2,350,0)=" ;"
^XMB(3.9,44,2,351,0)="""RTN"",""HLOAPI2"",40,0)"
^XMB(3.9,44,2,352,0)=" D"
^XMB(3.9,44,2,353,0)="""RTN"",""HLOAPI2"",41,0)"
^XMB(3.9,44,2,354,0)=" .N PORT"
^XMB(3.9,44,2,355,0)="""RTN"",""HLOAPI2"",42,0)"
^XMB(3.9,44,2,356,0)=" .I $G(PARMS(""ACK CODE""))'=""AA"",$G(PARMS(""ACK CODE""))'=""AE"",$G(PARMS(""ACK CODE""))'=""AR"" S ERROR=""INVALID ACK CODE"" Q"
^XMB(3.9,44,2,357,0)="""RTN"",""HLOAPI2"",43,0)"
^XMB(3.9,44,2,358,0)=" .;"
^XMB(3.9,44,2,359,0)="""RTN"",""HLOAPI2"",44,0)"
^XMB(3.9,44,2,360,0)=" .I '$G(HLMSTATE(""IEN"")) S ERROR=""ORIGINAL MESSAGE TO ACKNOWLEDGE IS NOT IDENTIFIED"" Q"
^XMB(3.9,44,2,361,0)="""RTN"",""HLOAPI2"",45,0)"
^XMB(3.9,44,2,362,0)=" .I $G(HLMSTATE(""BATCH"")) S ERROR=""BATCH ACKNOWLEDGMENTS MUST USE $$BATCHACK^HLOAPI3"" Q"
^XMB(3.9,44,2,363,0)="""RTN"",""HLOAPI2"",46,0)"
^XMB(3.9,44,2,364,0)=" .;"
^XMB(3.9,44,2,365,0)="""RTN"",""HLOAPI2"",47,0)"
^XMB(3.9,44,2,366,0)=" .I $G(HLMSTATE(""HDR"",""MESSAGE CONTROL ID""))="""" S ERROR=""MESSAGE CONTROL ID MUST EXIST TO RETURN AN APPLICATION ACK"" Q"
^XMB(3.9,44,2,367,0)="""RTN"",""HLOAPI2"",48,0)"
^XMB(3.9,44,2,368,0)=" .S PARMS(""MESSAGE TYPE"")=$G(PARMS(""MESSAGE TYPE""),""ACK"")"
^XMB(3.9,44,2,369,0)="""RTN"",""HLOAPI2"",49,0)"
^XMB(3.9,44,2,370,0)=" .S:PARMS(""MESSAGE TYPE"")=""ACK"" PARMS(""MESSAGE STRUCTURE"")=""ACK"""
^XMB(3.9,44,2,371,0)="""RTN"",""HLOAPI2"",50,0)"
^XMB(3.9,44,2,372,0)=" .S PARMS(""EVENT"")=$G(PARMS(""EVENT""),$G(HLMSTATE(""HDR"",""EVENT"")))"
^XMB(3.9,44,2,373,0)="""RTN"",""HLOAPI2"",51,0)"
^XMB(3.9,44,2,374,0)=" .I $$NEWMSG^HLOAPI(.PARMS,.ACK)  ;can't fail!"
^XMB(3.9,44,2,375,0)="""RTN"",""HLOAPI2"",52,0)"
^XMB(3.9,44,2,376,0)=" .;"
^XMB(3.9,44,2,377,0)="""RTN"",""HLOAPI2"",53,0)"
^XMB(3.9,44,2,378,0)=" .;if the return link can not be determined, the HL Logical Link file has a problem that must be fixed at the site"
^XMB(3.9,44,2,379,0)="""RTN"",""HLOAPI2"",54,0)"
^XMB(3.9,44,2,380,0)=" .S PORT=$P(HLMSTATE(""HDR"",""SENDING FACILITY"",2),"":"",2)"
^XMB(3.9,44,2,381,0)="""RTN"",""HLOAPI2"",55,0)"
^XMB(3.9,44,2,382,0)=" .S TOLINK=$$ACKLINK(.HLMSTATE)"
^XMB(3.9,44,2,383,0)="""RTN"",""HLOAPI2"",56,0)"
^XMB(3.9,44,2,384,0)=" .I TOLINK="""" S ERROR=""TRANSMISSION LINK FOR APPLICATION ACK CANNOT BE DETERMINED"" Q"
^XMB(3.9,44,2,385,0)="""RTN"",""HLOAPI2"",57,0)"
^XMB(3.9,44,2,386,0)=" .I 'PORT S PORT=$$PORT2^HLOTLNK(TOLINK)"
^XMB(3.9,44,2,387,0)="""RTN"",""HLOAPI2"",58,0)"
^XMB(3.9,44,2,388,0)=" .;"
^XMB(3.9,44,2,389,0)="""RTN"",""HLOAPI2"",59,0)"
^XMB(3.9,44,2,390,0)=" .S ACK(""HDR"",""APP ACK TYPE"")=""NE"""
^XMB(3.9,44,2,391,0)="""RTN"",""HLOAPI2"",60,0)"
^XMB(3.9,44,2,392,0)=" .S ACK(""HDR"",""ACCEPT ACK TYPE"")=$G(PARMS(""ACCEPT ACK TYPE""),""AL"")"
^XMB(3.9,44,2,393,0)="""RTN"",""HLOAPI2"",61,0)"
^XMB(3.9,44,2,394,0)=" .S ACK(""STATUS"",""QUEUE"")=$G(PARMS(""QUEUE""),$G(HLMSTATE(""STATUS"",""QUEUE"")))"
^XMB(3.9,44,2,395,0)="""RTN"",""HLOAPI2"",62,0)"
^XMB(3.9,44,2,396,0)=" .S ACK(""STATUS"",""PORT"")=PORT"
^XMB(3.9,44,2,397,0)="""RTN"",""HLOAPI2"",63,0)"
^XMB(3.9,44,2,398,0)=" .S ACK(""HDR"",""SECURITY"")=$G(PARMS(""SECURITY""))"
^XMB(3.9,44,2,399,0)="""RTN"",""HLOAPI2"",64,0)"
^XMB(3.9,44,2,400,0)=" .S ACK(""HDR"",""SENDING APPLICATION"")=$G(HLMSTATE(""HDR"",""RECEIVING APPLICATION""))"
^XMB(3.9,44,2,401,0)="""RTN"",""HLOAPI2"",65,0)"
^XMB(3.9,44,2,402,0)=" .S ACK(""HDR"",""RECEIVING APPLICATION"")=$G(HLMSTATE(""HDR"",""SENDING APPLICATION""))"
^XMB(3.9,44,2,403,0)="""RTN"",""HLOAPI2"",66,0)"
^XMB(3.9,44,2,404,0)=" .F I=1:1:3 S ACK(""HDR"",""RECEIVING FACILITY"",I)=$G(HLMSTATE(""HDR"",""SENDING FACILITY"",I))"
^XMB(3.9,44,2,405,0)="""RTN"",""HLOAPI2"",67,0)"
^XMB(3.9,44,2,406,0)=" .S ACK(""ACK TO"",""STATUS"")=$S(PARMS(""ACK CODE"")=""AA"":""SU"",1:""AE"")"
^XMB(3.9,44,2,407,0)="""RTN"",""HLOAPI2"",68,0)"
^XMB(3.9,44,2,408,0)=" .S ACK(""ACK TO"")=$G(HLMSTATE(""HDR"",""MESSAGE CONTROL ID""))"
^XMB(3.9,44,2,409,0)="""RTN"",""HLOAPI2"",69,0)"
^XMB(3.9,44,2,410,0)=" .S ACK(""ACK TO"",""IEN"")=HLMSTATE(""IEN"")"
^XMB(3.9,44,2,411,0)="""RTN"",""HLOAPI2"",70,0)"
^XMB(3.9,44,2,412,0)=" .S ACK(""STATUS"",""LINK NAME"")=TOLINK"
^XMB(3.9,44,2,413,0)="""RTN"",""HLOAPI2"",71,0)"
^XMB(3.9,44,2,414,0)=" .S ACK(""LINE COUNT"")=0"
^XMB(3.9,44,2,415,0)="""RTN"",""HLOAPI2"",72,0)"
^XMB(3.9,44,2,416,0)=" .S ACK(""MSA"")=""MSA|""_PARMS(""ACK CODE"")_""|""_$G(HLMSTATE(""HDR"",""MESSAGE CONTROL ID""))_""|""_$G(PARMS(""ERROR MESSAGE""))"
^XMB(3.9,44,2,417,0)="""RTN"",""HLOAPI2"",73,0)"
^XMB(3.9,44,2,418,0)=" .S SUCCESS=1"
^XMB(3.9,44,2,419,0)="""RTN"",""HLOAPI2"",74,0)"
^XMB(3.9,44,2,420,0)=" K PARMS"
^XMB(3.9,44,2,421,0)="""RTN"",""HLOAPI2"",75,0)"
^XMB(3.9,44,2,422,0)=" K:'SUCCESS ACK"
^XMB(3.9,44,2,423,0)="""RTN"",""HLOAPI2"",76,0)"
^XMB(3.9,44,2,424,0)=" Q SUCCESS"
^XMB(3.9,44,2,425,0)="""RTN"",""HLOAPI2"",77,0)"
^XMB(3.9,44,2,426,0)=" ;"
^XMB(3.9,44,2,427,0)="""RTN"",""HLOAPI2"",78,0)"
^XMB(3.9,44,2,428,0)="SENDACK(ACK,ERROR) ;This is used to signal that an application acknowledgment is complete."
^XMB(3.9,44,2,429,0)="""RTN"",""HLOAPI2"",79,0)"
^XMB(3.9,44,2,430,0)=" ;Input:"
^XMB(3.9,44,2,431,0)="""RTN"",""HLOAPI2"",80,0)"
^XMB(3.9,44,2,432,0)=" ;  ACK (pass by reference,required) An array that contains the acknowledgment msg"
^XMB(3.9,44,2,433,0)="""RTN"",""HLOAPI2"",81,0)"
^XMB(3.9,44,2,434,0)=" ;Output:"
^XMB(3.9,44,2,435,0)="""RTN"",""HLOAPI2"",82,0)"
^XMB(3.9,44,2,436,0)=" ; Function returns 1 on success, 0 on failure"
^XMB(3.9,44,2,437,0)="""RTN"",""HLOAPI2"",83,0)"
^XMB(3.9,44,2,438,0)=" ; ERROR (pass by reference) error msg"
^XMB(3.9,44,2,439,0)="""RTN"",""HLOAPI2"",84,0)"
^XMB(3.9,44,2,440,0)=" ;"
^XMB(3.9,44,2,441,0)="""RTN"",""HLOAPI2"",85,0)"
^XMB(3.9,44,2,442,0)=" N SEG"
^XMB(3.9,44,2,443,0)="""RTN"",""HLOAPI2"",86,0)"
^XMB(3.9,44,2,444,0)=" ;if the application added its own MSA, then the ACK(""MSA"") node was killed"
^XMB(3.9,44,2,445,0)="""RTN"",""HLOAPI2"",87,0)"
^XMB(3.9,44,2,446,0)=" I $D(ACK(""MSA"")) S SEG(1)=ACK(""MSA"") D ADDSEG^HLOMSG(.ACK,.SEG)"
^XMB(3.9,44,2,447,0)="""RTN"",""HLOAPI2"",88,0)"
^XMB(3.9,44,2,448,0)=" ;"
^XMB(3.9,44,2,449,0)="""RTN"",""HLOAPI2"",89,0)"
^XMB(3.9,44,2,450,0)=" I $$SEND^HLOAPI1(.ACK,.ERROR) Q 1"
^XMB(3.9,44,2,451,0)="""RTN"",""HLOAPI2"",90,0)"
^XMB(3.9,44,2,452,0)=" Q 0"
^XMB(3.9,44,2,453,0)="""RTN"",""HLOAPI2"",91,0)"
^XMB(3.9,44,2,454,0)=" ;"
^XMB(3.9,44,2,455,0)="""RTN"",""HLOAPI2"",92,0)"
^XMB(3.9,44,2,456,0)="ACKLINK(HLMSTATE) ;"
^XMB(3.9,44,2,457,0)="""RTN"",""HLOAPI2"",93,0)"
^XMB(3.9,44,2,458,0)=" ;Finds the link to return the application ack to."
^XMB(3.9,44,2,459,0)="""RTN"",""HLOAPI2"",94,0)"
^XMB(3.9,44,2,460,0)=" N LINK"
^XMB(3.9,44,2,461,0)="""RTN"",""HLOAPI2"",95,0)"
^XMB(3.9,44,2,462,0)=" S LINK=$$RTRNLNK^HLOAPP($G(HLMSTATE(""HDR"",""RECEIVING APPLICATION"")))"
^XMB(3.9,44,2,463,0)="""RTN"",""HLOAPI2"",96,0)"
^XMB(3.9,44,2,464,0)=" Q:LINK]"""" LINK"
^XMB(3.9,44,2,465,0)="""RTN"",""HLOAPI2"",97,0)"
^XMB(3.9,44,2,466,0)=" S LINK=$$RTRNLNK^HLOTLNK($G(HLMSTATE(""HDR"",""SENDING FACILITY"",1)),$G(HLMSTATE(""HDR"",""SENDING FACILITY"",2)),$G(HLMSTATE(""HDR"",""SENDING FACILITY"",3)))"
^XMB(3.9,44,2,467,0)="""RTN"",""HLOAPI2"",98,0)"
^XMB(3.9,44,2,468,0)=" Q LINK"
^XMB(3.9,44,2,469,0)="""RTN"",""HLOAPI2"",99,0)"
^XMB(3.9,44,2,470,0)=" ;"
^XMB(3.9,44,2,471,0)="""RTN"",""HLOAPI2"",100,0)"
^XMB(3.9,44,2,472,0)="CHKPARMS(HLMSTATE,PARMS,ERROR) ;"
^XMB(3.9,44,2,473,0)="""RTN"",""HLOAPI2"",101,0)"
^XMB(3.9,44,2,474,0)=" N LEN,SARY,HARY"
^XMB(3.9,44,2,475,0)="""RTN"",""HLOAPI2"",102,0)"
^XMB(3.9,44,2,476,0)=" ;"
^XMB(3.9,44,2,477,0)="""RTN"",""HLOAPI2"",103,0)"
^XMB(3.9,44,2,478,0)=" ;shortcut to reference the header sub-array"
^XMB(3.9,44,2,479,0)="""RTN"",""HLOAPI2"",104,0)"
^XMB(3.9,44,2,480,0)=" S HARY=""HLMSTATE(""""HDR"""")"""
^XMB(3.9,44,2,481,0)="""RTN"",""HLOAPI2"",105,0)"
^XMB(3.9,44,2,482,0)=" ;"
^XMB(3.9,44,2,483,0)="""RTN"",""HLOAPI2"",106,0)"
^XMB(3.9,44,2,484,0)=" ;shortcut to reference the status sub-array"
^XMB(3.9,44,2,485,0)="""RTN"",""HLOAPI2"",107,0)"
^XMB(3.9,44,2,486,0)=" S SARY=""HLMSTATE(""""STATUS"""")"""
^XMB(3.9,44,2,487,0)="""RTN"",""HLOAPI2"",108,0)"
^XMB(3.9,44,2,488,0)=" ;"
^XMB(3.9,44,2,489,0)="""RTN"",""HLOAPI2"",109,0)"
^XMB(3.9,44,2,490,0)=" S ERROR="""""
^XMB(3.9,44,2,491,0)="""RTN"",""HLOAPI2"",110,0)"
^XMB(3.9,44,2,492,0)=" I $G(PARMS(""ACCEPT ACK TYPE""))="""" S PARMS(""ACCEPT ACK TYPE"")=""AL"""
^XMB(3.9,44,2,493,0)="""RTN"",""HLOAPI2"",111,0)"
^XMB(3.9,44,2,494,0)=" I $G(PARMS(""APP ACK TYPE""))="""" S PARMS(""APP ACK TYPE"")=""NE"""
^XMB(3.9,44,2,495,0)="""RTN"",""HLOAPI2"",112,0)"
^XMB(3.9,44,2,496,0)=" I PARMS(""ACCEPT ACK TYPE"")'=""NE"",PARMS(""ACCEPT ACK TYPE"")'=""AL"" S ERROR=""INVALID ACCEPT ACKNOWLEDGMENT TYPE"""
^XMB(3.9,44,2,497,0)="""RTN"",""HLOAPI2"",113,0)"
^XMB(3.9,44,2,498,0)=" I PARMS(""APP ACK TYPE"")'=""NE"",PARMS(""APP ACK TYPE"")'=""AL"" S ERROR=""INVALID APPLICATION ACKNOWLEDGMENT TYPE"""
^XMB(3.9,44,2,499,0)="""RTN"",""HLOAPI2"",114,0)"
^XMB(3.9,44,2,500,0)=" S LEN=$L($G(PARMS(""QUEUE"")))"
^XMB(3.9,44,2,501,0)="""RTN"",""HLOAPI2"",115,0)"
^XMB(3.9,44,2,502,0)=" I $G(PARMS(""QUEUE""))[""^"" S ERROR=""QUEUE NAME MAY NOT CONTAIN '^'"""
^XMB(3.9,44,2,503,0)="""RTN"",""HLOAPI2"",116,0)"
^XMB(3.9,44,2,504,0)=" I LEN>20 S ERROR=""QUEUE PARAMETER IS MAX 20 LENGTH"",PARMS(""QUEUE"")=$E(PARMS(""QUEUE""),1,20)"
^XMB(3.9,44,2,505,0)="""RTN"",""HLOAPI2"",117,0)"
^XMB(3.9,44,2,506,0)=" I 'LEN S PARMS(""QUEUE"")=""DEFAULT"""
^XMB(3.9,44,2,507,0)="""RTN"",""HLOAPI2"",118,0)"
^XMB(3.9,44,2,508,0)=" I $G(PARMS(""SENDING APPLICATION""))="""" D"
^XMB(3.9,44,2,509,0)="""RTN"",""HLOAPI2"",119,0)"
^XMB(3.9,44,2,510,0)=" .S ERROR=""SENDING APPLICATION IS REQUIRED"""
^XMB(3.9,44,2,511,0)="""RTN"",""HLOAPI2"",120,0)"
^XMB(3.9,44,2,512,0)=" .S PARMS(""SENDING APPLICATION"")="""""
^XMB(3.9,44,2,513,0)="""RTN"",""HLOAPI2"",121,0)"
^XMB(3.9,44,2,514,0)=" E  D"
^XMB(3.9,44,2,515,0)="""RTN"",""HLOAPI2"",122,0)"
^XMB(3.9,44,2,516,0)=" .I '$D(^HLD(779.2,""C"",PARMS(""SENDING APPLICATION""))) S ERROR=""SENDING APPLICATION NOT FOUND IN THE HLO APPLICATION REGISTRY"""
^XMB(3.9,44,2,517,0)="""RTN"",""HLOAPI2"",123,0)"
^XMB(3.9,44,2,518,0)=" ;"
^XMB(3.9,44,2,519,0)="""RTN"",""HLOAPI2"",124,0)"
^XMB(3.9,44,2,520,0)=" ;move parameters into HLMSTATE"
^XMB(3.9,44,2,521,0)="""RTN"",""HLOAPI2"",125,0)"
^XMB(3.9,44,2,522,0)=" S @HARY@(""ACCEPT ACK TYPE"")=PARMS(""ACCEPT ACK TYPE"")"
^XMB(3.9,44,2,523,0)="""RTN"",""HLOAPI2"",126,0)"
^XMB(3.9,44,2,524,0)=" S @HARY@(""APP ACK TYPE"")=PARMS(""APP ACK TYPE"")"
^XMB(3.9,44,2,525,0)="""RTN"",""HLOAPI2"",127,0)"
^XMB(3.9,44,2,526,0)=" S @HARY@(""SENDING APPLICATION"")=$E(PARMS(""SENDING APPLICATION""),1,60)"
^XMB(3.9,44,2,527,0)="""RTN"",""HLOAPI2"",128,0)"
^XMB(3.9,44,2,528,0)=" S @HARY@(""SECURITY"")=$G(PARMS(""SECURITY""))"
^XMB(3.9,44,2,529,0)="""RTN"",""HLOAPI2"",129,0)"
^XMB(3.9,44,2,530,0)=" S @SARY@(""APP ACK RESPONSE"")=$G(PARMS(""APP ACK RESPONSE""))"
^XMB(3.9,44,2,531,0)="""RTN"",""HLOAPI2"",130,0)"
^XMB(3.9,44,2,532,0)=" S @SARY@(""ACCEPT ACK RESPONSE"")=$G(PARMS(""ACCEPT ACK RESPONSE""))"
^XMB(3.9,44,2,533,0)="""RTN"",""HLOAPI2"",131,0)"
^XMB(3.9,44,2,534,0)=" S @SARY@(""FAILURE RESPONSE"")=$G(PARMS(""FAILURE RESPONSE""))"
^XMB(3.9,44,2,535,0)="""RTN"",""HLOAPI2"",132,0)"
^XMB(3.9,44,2,536,0)=" S @SARY@(""QUEUE"")=PARMS(""QUEUE"")"
^XMB(3.9,44,2,537,0)="""RTN"",""HLOAPI2"",133,0)"
^XMB(3.9,44,2,538,0)=" Q:$L(ERROR) 0"
^XMB(3.9,44,2,539,0)="""RTN"",""HLOAPI2"",134,0)"
^XMB(3.9,44,2,540,0)=" Q 1"
^XMB(3.9,44,2,541,0)="""RTN"",""HLOAPI2"",135,0)"
^XMB(3.9,44,2,542,0)=" ;"
^XMB(3.9,44,2,543,0)="""RTN"",""HLOAPI2"",136,0)"
^XMB(3.9,44,2,544,0)="SETCODE(SEG,VALUE,FIELD,COMP,REP) ;"
^XMB(3.9,44,2,545,0)="""RTN"",""HLOAPI2"",137,0)"
^XMB(3.9,44,2,546,0)=" ;Implements SETCNE and SETCWE"
^XMB(3.9,44,2,547,0)="""RTN"",""HLOAPI2"",138,0)"
^XMB(3.9,44,2,548,0)=" ;"
^XMB(3.9,44,2,549,0)="""RTN"",""HLOAPI2"",139,0)"
^XMB(3.9,44,2,550,0)=" N SUB,VAR"
^XMB(3.9,44,2,551,0)="""RTN"",""HLOAPI2"",140,0)"
^XMB(3.9,44,2,552,0)=" Q:'$G(FIELD)"
^XMB(3.9,44,2,553,0)="""RTN"",""HLOAPI2"",141,0)"
^XMB(3.9,44,2,554,0)=" S:'$G(REP) REP=1"
^XMB(3.9,44,2,555,0)="""RTN"",""HLOAPI2"",142,0)"
^XMB(3.9,44,2,556,0)=" I '$G(COMP) D"
^XMB(3.9,44,2,557,0)="""RTN"",""HLOAPI2"",143,0)"
^XMB(3.9,44,2,558,0)=" .S VAR=""COMP"",SUB=1"
^XMB(3.9,44,2,559,0)="""RTN"",""HLOAPI2"",144,0)"
^XMB(3.9,44,2,560,0)=" E  D"
^XMB(3.9,44,2,561,0)="""RTN"",""HLOAPI2"",145,0)"
^XMB(3.9,44,2,562,0)=" .S VAR=""SUB"""
^XMB(3.9,44,2,563,0)="""RTN"",""HLOAPI2"",146,0)"
^XMB(3.9,44,2,564,0)=" S @VAR=1,SEG(FIELD+1,REP,COMP,SUB)=$G(VALUE(""ID""))"
^XMB(3.9,44,2,565,0)="""RTN"",""HLOAPI2"",147,0)"
^XMB(3.9,44,2,566,0)=" S @VAR=2,SEG(FIELD+1,REP,COMP,SUB)=$G(VALUE(""TEXT""))"
^XMB(3.9,44,2,567,0)="""RTN"",""HLOAPI2"",148,0)"
^XMB(3.9,44,2,568,0)=" S @VAR=3,SEG(FIELD+1,REP,COMP,SUB)=$G(VALUE(""SYSTEM""))"
^XMB(3.9,44,2,569,0)="""RTN"",""HLOAPI2"",149,0)"
^XMB(3.9,44,2,570,0)=" S @VAR=4,SEG(FIELD+1,REP,COMP,SUB)=$G(VALUE(""ALTERNATE ID""))"
^XMB(3.9,44,2,571,0)="""RTN"",""HLOAPI2"",150,0)"
^XMB(3.9,44,2,572,0)=" S @VAR=5,SEG(FIELD+1,REP,COMP,SUB)=$G(VALUE(""ALTERNATE TEXT""))"
^XMB(3.9,44,2,573,0)="""RTN"",""HLOAPI2"",151,0)"
^XMB(3.9,44,2,574,0)=" S @VAR=6,SEG(FIELD+1,REP,COMP,SUB)=$G(VALUE(""ALTERNATE SYSTEM""))"
^XMB(3.9,44,2,575,0)="""RTN"",""HLOAPI2"",152,0)"
^XMB(3.9,44,2,576,0)=" S @VAR=7,SEG(FIELD+1,REP,COMP,SUB)=$G(VALUE(""SYSTEM VERSION""))"
^XMB(3.9,44,2,577,0)="""RTN"",""HLOAPI2"",153,0)"
^XMB(3.9,44,2,578,0)=" S @VAR=8,SEG(FIELD+1,REP,COMP,SUB)=$G(VALUE(""ALTERNATE SYSTEM VERSION""))"
^XMB(3.9,44,2,579,0)="""RTN"",""HLOAPI2"",154,0)"
^XMB(3.9,44,2,580,0)=" S @VAR=9,SEG(FIELD+1,REP,COMP,SUB)=$G(VALUE(""ORIGINAL TEXT""))"
^XMB(3.9,44,2,581,0)="""RTN"",""HLOAPI2"",155,0)"
^XMB(3.9,44,2,582,0)=" Q"
^XMB(3.9,44,2,583,0)="""RTN"",""HLOAPI4"")"
^XMB(3.9,44,2,584,0)="0^9^B22068040"
^XMB(3.9,44,2,585,0)="""RTN"",""HLOAPI4"",1,0)"
^XMB(3.9,44,2,586,0)="HLOAPI4 ;ALB/CJM-HL7 - Developer API's for sending & receiving messages(continued) ;02/04/2004"
^XMB(3.9,44,2,587,0)="""RTN"",""HLOAPI4"",2,0)"
^XMB(3.9,44,2,588,0)=" ;;1.6;HEALTH LEVEL SEVEN;**131**;Oct 13, 1995;Build 10"
^XMB(3.9,44,2,589,0)="""RTN"",""HLOAPI4"",3,0)"
^XMB(3.9,44,2,590,0)=" ;"
^XMB(3.9,44,2,591,0)="""RTN"",""HLOAPI4"",4,0)"
^XMB(3.9,44,2,592,0)="SETTS(SEG,VALUE,FIELD,COMP,REP) ;"
^XMB(3.9,44,2,593,0)="""RTN"",""HLOAPI4"",5,0)"
^XMB(3.9,44,2,594,0)=" ;Sets a value that is a timestamp in FM format into the segment in HL7"
^XMB(3.9,44,2,595,0)="""RTN"",""HLOAPI4"",6,0)"
^XMB(3.9,44,2,596,0)=" ;format. The degree of precision may be optionally specified. The"
^XMB(3.9,44,2,597,0)="""RTN"",""HLOAPI4"",7,0)"
^XMB(3.9,44,2,598,0)=" ;inserted value will include the timezone if the input included the time."
^XMB(3.9,44,2,599,0)="""RTN"",""HLOAPI4"",8,0)"
^XMB(3.9,44,2,600,0)=" ;IF the component is specified, then the data type is 'demoted' to a component, and its components are 'demoted' to subcomponents."
^XMB(3.9,44,2,601,0)="""RTN"",""HLOAPI4"",9,0)"
^XMB(3.9,44,2,602,0)=" ;"
^XMB(3.9,44,2,603,0)="""RTN"",""HLOAPI4"",10,0)"
^XMB(3.9,44,2,604,0)=" ;Input:"
^XMB(3.9,44,2,605,0)="""RTN"",""HLOAPI4"",11,0)"
^XMB(3.9,44,2,606,0)=" ;  SEG - (required, pass by reference) The array where the seg is being built."
^XMB(3.9,44,2,607,0)="""RTN"",""HLOAPI4"",12,0)"
^XMB(3.9,44,2,608,0)=" ;  VALUE  (required)to be set into the segment"
^XMB(3.9,44,2,609,0)="""RTN"",""HLOAPI4"",13,0)"
^XMB(3.9,44,2,610,0)=" ;  VALUE(""PRECISION"") (optional) If included, VALUE must be passed by"
^XMB(3.9,44,2,611,0)="""RTN"",""HLOAPI4"",14,0)"
^XMB(3.9,44,2,612,0)=" ;       reference.  Allowed values are:"
^XMB(3.9,44,2,613,0)="""RTN"",""HLOAPI4"",15,0)"
^XMB(3.9,44,2,614,0)=" ;           ""S"" - seconds (default value)"
^XMB(3.9,44,2,615,0)="""RTN"",""HLOAPI4"",16,0)"
^XMB(3.9,44,2,616,0)=" ;           ""M"" - minutes"
^XMB(3.9,44,2,617,0)="""RTN"",""HLOAPI4"",17,0)"
^XMB(3.9,44,2,618,0)=" ;           ""H"" - hours"
^XMB(3.9,44,2,619,0)="""RTN"",""HLOAPI4"",18,0)"
^XMB(3.9,44,2,620,0)=" ;           ""D"" - days"
^XMB(3.9,44,2,621,0)="""RTN"",""HLOAPI4"",19,0)"
^XMB(3.9,44,2,622,0)=" ;  FIELD - the sequence # of the field"
^XMB(3.9,44,2,623,0)="""RTN"",""HLOAPI4"",20,0)"
^XMB(3.9,44,2,624,0)=" ;  COMP (optional) If specified, the data type is 'demoted' to a component value."
^XMB(3.9,44,2,625,0)="""RTN"",""HLOAPI4"",21,0)"
^XMB(3.9,44,2,626,0)=" ;  REP - the occurrence# (optional, defaults to 1)  For a non-repeating."
^XMB(3.9,44,2,627,0)="""RTN"",""HLOAPI4"",22,0)"
^XMB(3.9,44,2,628,0)=" ;Output: "
^XMB(3.9,44,2,629,0)="""RTN"",""HLOAPI4"",23,0)"
^XMB(3.9,44,2,630,0)=" ;   SEG array"
^XMB(3.9,44,2,631,0)="""RTN"",""HLOAPI4"",24,0)"
^XMB(3.9,44,2,632,0)=" ;"
^XMB(3.9,44,2,633,0)="""RTN"",""HLOAPI4"",25,0)"
^XMB(3.9,44,2,634,0)=" ;Example:"
^XMB(3.9,44,2,635,0)="""RTN"",""HLOAPI4"",26,0)"
^XMB(3.9,44,2,636,0)=" ;    D SETTS^HLOAPI4(.SEG,$$NOW^XLFDT,1) will place the current date/time into the segment in the 1st field,1st occurence.  The timezone is included."
^XMB(3.9,44,2,637,0)="""RTN"",""HLOAPI4"",27,0)"
^XMB(3.9,44,2,638,0)=" ;"
^XMB(3.9,44,2,639,0)="""RTN"",""HLOAPI4"",28,0)"
^XMB(3.9,44,2,640,0)=" ;"
^XMB(3.9,44,2,641,0)="""RTN"",""HLOAPI4"",29,0)"
^XMB(3.9,44,2,642,0)=" N TIME"
^XMB(3.9,44,2,643,0)="""RTN"",""HLOAPI4"",30,0)"
^XMB(3.9,44,2,644,0)=" Q:'$G(FIELD)"
^XMB(3.9,44,2,645,0)="""RTN"",""HLOAPI4"",31,0)"
^XMB(3.9,44,2,646,0)=" Q:'$G(VALUE)"
^XMB(3.9,44,2,647,0)="""RTN"",""HLOAPI4"",32,0)"
^XMB(3.9,44,2,648,0)=" S:'$G(REP) REP=1"
^XMB(3.9,44,2,649,0)="""RTN"",""HLOAPI4"",33,0)"
^XMB(3.9,44,2,650,0)=" S:'$G(COMP) COMP=1"
^XMB(3.9,44,2,651,0)="""RTN"",""HLOAPI4"",34,0)"
^XMB(3.9,44,2,652,0)=" S TIME=$$FMTHL7^XLFDT(VALUE)"
^XMB(3.9,44,2,653,0)="""RTN"",""HLOAPI4"",35,0)"
^XMB(3.9,44,2,654,0)=" I $D(VALUE(""PRECISION"")) D"
^XMB(3.9,44,2,655,0)="""RTN"",""HLOAPI4"",36,0)"
^XMB(3.9,44,2,656,0)=" .N TZ"
^XMB(3.9,44,2,657,0)="""RTN"",""HLOAPI4"",37,0)"
^XMB(3.9,44,2,658,0)=" .S TZ="""""
^XMB(3.9,44,2,659,0)="""RTN"",""HLOAPI4"",38,0)"
^XMB(3.9,44,2,660,0)=" .I TIME[""+"" S TZ=""+""_$P(TIME,""+"",2)"
^XMB(3.9,44,2,661,0)="""RTN"",""HLOAPI4"",39,0)"
^XMB(3.9,44,2,662,0)=" .E  I TIME[""-"" S TZ=""-""_$P(TIME,""-"",2)"
^XMB(3.9,44,2,663,0)="""RTN"",""HLOAPI4"",40,0)"
^XMB(3.9,44,2,664,0)=" .I VALUE(""PRECISION"")=""D"" D"
^XMB(3.9,44,2,665,0)="""RTN"",""HLOAPI4"",41,0)"
^XMB(3.9,44,2,666,0)=" ..S TIME=$E(TIME,1,8)_TZ"
^XMB(3.9,44,2,667,0)="""RTN"",""HLOAPI4"",42,0)"
^XMB(3.9,44,2,668,0)=" .E  I VALUE(""PRECISION"")=""H"" D"
^XMB(3.9,44,2,669,0)="""RTN"",""HLOAPI4"",43,0)"
^XMB(3.9,44,2,670,0)=" ..S TIME=$E($$LJ^XLFSTR(+TIME,10,0),1,10)_TZ"
^XMB(3.9,44,2,671,0)="""RTN"",""HLOAPI4"",44,0)"
^XMB(3.9,44,2,672,0)=" .E  I VALUE(""PRECISION"")=""M"" D"
^XMB(3.9,44,2,673,0)="""RTN"",""HLOAPI4"",45,0)"
^XMB(3.9,44,2,674,0)=" ..S TIME=$E($$LJ^XLFSTR(+TIME,12,0),1,12)_TZ"
^XMB(3.9,44,2,675,0)="""RTN"",""HLOAPI4"",46,0)"
^XMB(3.9,44,2,676,0)=" .E  I VALUE(""PRECISION"")=""S"" D"
^XMB(3.9,44,2,677,0)="""RTN"",""HLOAPI4"",47,0)"
^XMB(3.9,44,2,678,0)=" ..S TIME=$E($$LJ^XLFSTR(+TIME,14,0),1,14)_TZ"
^XMB(3.9,44,2,679,0)="""RTN"",""HLOAPI4"",48,0)"
^XMB(3.9,44,2,680,0)=" S SEG(FIELD+1,REP,COMP,1)=TIME"
^XMB(3.9,44,2,681,0)="""RTN"",""HLOAPI4"",49,0)"
^XMB(3.9,44,2,682,0)=" Q"
^XMB(3.9,44,2,683,0)="""RTN"",""HLOAPI4"",50,0)"
^XMB(3.9,44,2,684,0)=" ;"
^XMB(3.9,44,2,685,0)="""RTN"",""HLOAPI4"",51,0)"
^XMB(3.9,44,2,686,0)="SETDT(SEG,VALUE,FIELD,COMP,REP) ;"
^XMB(3.9,44,2,687,0)="""RTN"",""HLOAPI4"",52,0)"
^XMB(3.9,44,2,688,0)=" ;Sets a value that is a date in FM format into the segment in HL7 format.  The degree of precision may be optionally specified."
^XMB(3.9,44,2,689,0)="""RTN"",""HLOAPI4"",53,0)"
^XMB(3.9,44,2,690,0)=" ;IF the component is specified, then the data type is 'demoted' to a component, and its components are 'demoted' to subcomponents."
^XMB(3.9,44,2,691,0)="""RTN"",""HLOAPI4"",54,0)"
^XMB(3.9,44,2,692,0)=" ;"
^XMB(3.9,44,2,693,0)="""RTN"",""HLOAPI4"",55,0)"
^XMB(3.9,44,2,694,0)=" ;Input:"
^XMB(3.9,44,2,695,0)="""RTN"",""HLOAPI4"",56,0)"
^XMB(3.9,44,2,696,0)=" ;  SEG - (required, pass by reference) The array where the seg is being built."
^XMB(3.9,44,2,697,0)="""RTN"",""HLOAPI4"",57,0)"
^XMB(3.9,44,2,698,0)=" ;  VALUE  (required)the date to be set into the segment"
^XMB(3.9,44,2,699,0)="""RTN"",""HLOAPI4"",58,0)"
^XMB(3.9,44,2,700,0)=" ;  VALUE(""PRECISION"") (optional) If included, VALUE must be passed by"
^XMB(3.9,44,2,701,0)="""RTN"",""HLOAPI4"",59,0)"
^XMB(3.9,44,2,702,0)=" ;       reference.  Allowed values are:"
^XMB(3.9,44,2,703,0)="""RTN"",""HLOAPI4"",60,0)"
^XMB(3.9,44,2,704,0)=" ;           ""D"" - day (default value)"
^XMB(3.9,44,2,705,0)="""RTN"",""HLOAPI4"",61,0)"
^XMB(3.9,44,2,706,0)=" ;           ""L"" - month"
^XMB(3.9,44,2,707,0)="""RTN"",""HLOAPI4"",62,0)"
^XMB(3.9,44,2,708,0)=" ;           ""Y"" - year"
^XMB(3.9,44,2,709,0)="""RTN"",""HLOAPI4"",63,0)"
^XMB(3.9,44,2,710,0)=" ;  FIELD - the sequence # of the field"
^XMB(3.9,44,2,711,0)="""RTN"",""HLOAPI4"",64,0)"
^XMB(3.9,44,2,712,0)=" ;  COMP (optional) If specified, the data type is 'demoted' to a component value."
^XMB(3.9,44,2,713,0)="""RTN"",""HLOAPI4"",65,0)"
^XMB(3.9,44,2,714,0)=" ;  REP - the occurrence# (optional, defaults to 1)  For a non-repeating."
^XMB(3.9,44,2,715,0)="""RTN"",""HLOAPI4"",66,0)"
^XMB(3.9,44,2,716,0)=" ;Output:"
^XMB(3.9,44,2,717,0)="""RTN"",""HLOAPI4"",67,0)"
^XMB(3.9,44,2,718,0)=" ;   SEG - segment that is being built"
^XMB(3.9,44,2,719,0)="""RTN"",""HLOAPI4"",68,0)"
^XMB(3.9,44,2,720,0)=" ;"
^XMB(3.9,44,2,721,0)="""RTN"",""HLOAPI4"",69,0)"
^XMB(3.9,44,2,722,0)=" ;Example:"
^XMB(3.9,44,2,723,0)="""RTN"",""HLOAPI4"",70,0)"
^XMB(3.9,44,2,724,0)=" ;    D SETDT^HLOAPI4(.SEG,$$TODAY^XLFDT,1) will place the current date into segment in the 1st field,1st occurence."
^XMB(3.9,44,2,725,0)="""RTN"",""HLOAPI4"",71,0)"
^XMB(3.9,44,2,726,0)=" ;"
^XMB(3.9,44,2,727,0)="""RTN"",""HLOAPI4"",72,0)"
^XMB(3.9,44,2,728,0)=" ;"
^XMB(3.9,44,2,729,0)="""RTN"",""HLOAPI4"",73,0)"
^XMB(3.9,44,2,730,0)=" N TIME"
^XMB(3.9,44,2,731,0)="""RTN"",""HLOAPI4"",74,0)"
^XMB(3.9,44,2,732,0)=" Q:'$G(FIELD)"
^XMB(3.9,44,2,733,0)="""RTN"",""HLOAPI4"",75,0)"
^XMB(3.9,44,2,734,0)=" S:'$G(REP) REP=1"
^XMB(3.9,44,2,735,0)="""RTN"",""HLOAPI4"",76,0)"
^XMB(3.9,44,2,736,0)=" S:'$G(COMP) COMP=1"
^XMB(3.9,44,2,737,0)="""RTN"",""HLOAPI4"",77,0)"
^XMB(3.9,44,2,738,0)=" S TIME=$$FMTHL7^XLFDT(VALUE)"
^XMB(3.9,44,2,739,0)="""RTN"",""HLOAPI4"",78,0)"
^XMB(3.9,44,2,740,0)=" I $D(VALUE(""PRECISION"")) D"
^XMB(3.9,44,2,741,0)="""RTN"",""HLOAPI4"",79,0)"
^XMB(3.9,44,2,742,0)=" .I VALUE(""PRECISION"")=""Y"" D"
^XMB(3.9,44,2,743,0)="""RTN"",""HLOAPI4"",80,0)"
^XMB(3.9,44,2,744,0)=" ..S TIME=$E(TIME,1,4)"
^XMB(3.9,44,2,745,0)="""RTN"",""HLOAPI4"",81,0)"
^XMB(3.9,44,2,746,0)=" .E  I VALUE(""PRECISION"")=""L"" D"
^XMB(3.9,44,2,747,0)="""RTN"",""HLOAPI4"",82,0)"
^XMB(3.9,44,2,748,0)=" ..S TIME=$E(TIME,1,6)"
^XMB(3.9,44,2,749,0)="""RTN"",""HLOAPI4"",83,0)"
^XMB(3.9,44,2,750,0)=" .E  I VALUE(""PRECISION"")=""D"" D"
^XMB(3.9,44,2,751,0)="""RTN"",""HLOAPI4"",84,0)"
^XMB(3.9,44,2,752,0)=" ..S TIME=$E(TIME,1,8)"
^XMB(3.9,44,2,753,0)="""RTN"",""HLOAPI4"",85,0)"
^XMB(3.9,44,2,754,0)=" S SEG(FIELD+1,REP,COMP,1)=TIME"
^XMB(3.9,44,2,755,0)="""RTN"",""HLOAPI4"",86,0)"
^XMB(3.9,44,2,756,0)=" Q"
^XMB(3.9,44,2,757,0)="""RTN"",""HLOAPI4"",87,0)"
^XMB(3.9,44,2,758,0)=" ;"
^XMB(3.9,44,2,759,0)="""RTN"",""HLOAPI4"",88,0)"
^XMB(3.9,44,2,760,0)="SETCE(SEG,VALUE,FIELD,COMP,REP) ;"
^XMB(3.9,44,2,761,0)="""RTN"",""HLOAPI4"",89,0)"
^XMB(3.9,44,2,762,0)=" ;Sets a value that is an HL7 Coded Element data type (HL7 Section Reference 2.9.3) into the segment in the specified field."
^XMB(3.9,44,2,763,0)="""RTN"",""HLOAPI4"",90,0)"
^XMB(3.9,44,2,764,0)=" ;IF the component is specified, then the data type is 'demoted' to a component, and its components are 'demoted' to subcomponents."
^XMB(3.9,44,2,765,0)="""RTN"",""HLOAPI4"",91,0)"
^XMB(3.9,44,2,766,0)=" ;"
^XMB(3.9,44,2,767,0)="""RTN"",""HLOAPI4"",92,0)"
^XMB(3.9,44,2,768,0)=" ;Input:"
^XMB(3.9,44,2,769,0)="""RTN"",""HLOAPI4"",93,0)"
^XMB(3.9,44,2,770,0)=" ;  SEG - (required, pass by reference) The array where the seg is being built."
^XMB(3.9,44,2,771,0)="""RTN"",""HLOAPI4"",94,0)"
^XMB(3.9,44,2,772,0)=" ;  VALUE  (required, pass-by-reference) These subscripts may be passed:"
^XMB(3.9,44,2,773,0)="""RTN"",""HLOAPI4"",95,0)"
^XMB(3.9,44,2,774,0)=" ;    ""ID"" - the identifier"
^XMB(3.9,44,2,775,0)="""RTN"",""HLOAPI4"",96,0)"
^XMB(3.9,44,2,776,0)=" ;    ""TEXT"" - "
^XMB(3.9,44,2,777,0)="""RTN"",""HLOAPI4"",97,0)"
^XMB(3.9,44,2,778,0)=" ;    ""SYSTEM"" - name of the code system"
^XMB(3.9,44,2,779,0)="""RTN"",""HLOAPI4"",98,0)"
^XMB(3.9,44,2,780,0)=" ;    ""ALTERNATE ID"" - alternate identifier"
^XMB(3.9,44,2,781,0)="""RTN"",""HLOAPI4"",99,0)"
^XMB(3.9,44,2,782,0)=" ;    ""ALTERNATE TEXT"""
^XMB(3.9,44,2,783,0)="""RTN"",""HLOAPI4"",100,0)"
^XMB(3.9,44,2,784,0)=" ;    ""ALTERNATE SYSTEM"" - name of the alternate coding system"
^XMB(3.9,44,2,785,0)="""RTN"",""HLOAPI4"",101,0)"
^XMB(3.9,44,2,786,0)=" ;  FIELD (required) the sequence # of the field"
^XMB(3.9,44,2,787,0)="""RTN"",""HLOAPI4"",102,0)"
^XMB(3.9,44,2,788,0)=" ;  COMP (optional) If specified, the data type is 'demoted' to a component value."
^XMB(3.9,44,2,789,0)="""RTN"",""HLOAPI4"",103,0)"
^XMB(3.9,44,2,790,0)=" ;  REP - the occurrence# (optional, defaults to 1)  For a non-repeating fields, this parameter is not necessary."
^XMB(3.9,44,2,791,0)="""RTN"",""HLOAPI4"",104,0)"
^XMB(3.9,44,2,792,0)=" ;Output: "
^XMB(3.9,44,2,793,0)="""RTN"",""HLOAPI4"",105,0)"
^XMB(3.9,44,2,794,0)=" ;   SEG - segment that is being built"
^XMB(3.9,44,2,795,0)="""RTN"",""HLOAPI4"",106,0)"
^XMB(3.9,44,2,796,0)=" ;"
^XMB(3.9,44,2,797,0)="""RTN"",""HLOAPI4"",107,0)"
^XMB(3.9,44,2,798,0)=" N SUB,VAR"
^XMB(3.9,44,2,799,0)="""RTN"",""HLOAPI4"",108,0)"
^XMB(3.9,44,2,800,0)=" Q:'$G(FIELD)"
^XMB(3.9,44,2,801,0)="""RTN"",""HLOAPI4"",109,0)"
^XMB(3.9,44,2,802,0)=" S:'$G(REP) REP=1"
^XMB(3.9,44,2,803,0)="""RTN"",""HLOAPI4"",110,0)"
^XMB(3.9,44,2,804,0)=" I '$G(COMP) D"
^XMB(3.9,44,2,805,0)="""RTN"",""HLOAPI4"",111,0)"
^XMB(3.9,44,2,806,0)=" .S VAR=""COMP"",SUB=1"
^XMB(3.9,44,2,807,0)="""RTN"",""HLOAPI4"",112,0)"
^XMB(3.9,44,2,808,0)=" E  D"
^XMB(3.9,44,2,809,0)="""RTN"",""HLOAPI4"",113,0)"
^XMB(3.9,44,2,810,0)=" .S VAR=""SUB"""
^XMB(3.9,44,2,811,0)="""RTN"",""HLOAPI4"",114,0)"
^XMB(3.9,44,2,812,0)=" S @VAR=1,SEG(FIELD+1,REP,COMP,SUB)=$G(VALUE(""ID""))"
^XMB(3.9,44,2,813,0)="""RTN"",""HLOAPI4"",115,0)"
^XMB(3.9,44,2,814,0)=" S @VAR=2,SEG(FIELD+1,REP,COMP,SUB)=$G(VALUE(""TEXT""))"
^XMB(3.9,44,2,815,0)="""RTN"",""HLOAPI4"",116,0)"
^XMB(3.9,44,2,816,0)=" S @VAR=3,SEG(FIELD+1,REP,COMP,SUB)=$G(VALUE(""SYSTEM""))"
^XMB(3.9,44,2,817,0)="""RTN"",""HLOAPI4"",117,0)"
^XMB(3.9,44,2,818,0)=" S @VAR=4,SEG(FIELD+1,REP,COMP,SUB)=$G(VALUE(""ALTERNATE ID""))"
^XMB(3.9,44,2,819,0)="""RTN"",""HLOAPI4"",118,0)"
^XMB(3.9,44,2,820,0)=" S @VAR=5,SEG(FIELD+1,REP,COMP,SUB)=$G(VALUE(""ALTERNATE TEXT""))"
^XMB(3.9,44,2,821,0)="""RTN"",""HLOAPI4"",119,0)"
^XMB(3.9,44,2,822,0)=" S @VAR=6,SEG(FIELD+1,REP,COMP,SUB)=$G(VALUE(""ALTERNATE SYSTEM""))"
^XMB(3.9,44,2,823,0)="""RTN"",""HLOAPI4"",120,0)"
^XMB(3.9,44,2,824,0)=" Q"
^XMB(3.9,44,2,825,0)="""RTN"",""HLOAPI4"",121,0)"
^XMB(3.9,44,2,826,0)=" ;"
^XMB(3.9,44,2,827,0)="""RTN"",""HLOAPI4"",122,0)"
^XMB(3.9,44,2,828,0)="SETHD(SEG,VALUE,FIELD,COMP,REP) ;"
^XMB(3.9,44,2,829,0)="""RTN"",""HLOAPI4"",123,0)"
^XMB(3.9,44,2,830,0)=" ;Sets a value that is an HL7 Hierarchic Designator data type (HL7 Section Reference 2.9.21) into the segment in the specified field."
^XMB(3.9,44,2,831,0)="""RTN"",""HLOAPI4"",124,0)"
^XMB(3.9,44,2,832,0)=" ;IF the component is specified, then the data type is 'demoted' to a component, and its components are 'demoted' to subcomponents."
^XMB(3.9,44,2,833,0)="""RTN"",""HLOAPI4"",125,0)"
^XMB(3.9,44,2,834,0)=" ;"
^XMB(3.9,44,2,835,0)="""RTN"",""HLOAPI4"",126,0)"
^XMB(3.9,44,2,836,0)=" ;Input:"
^XMB(3.9,44,2,837,0)="""RTN"",""HLOAPI4"",127,0)"
^XMB(3.9,44,2,838,0)=" ;  SEG - (required, pass by reference) The array where the seg is being built."
^XMB(3.9,44,2,839,0)="""RTN"",""HLOAPI4"",128,0)"
^XMB(3.9,44,2,840,0)=" ;  VALUE  (required, pass-by-reference) These subscripts may be passed:"
^XMB(3.9,44,2,841,0)="""RTN"",""HLOAPI4"",129,0)"
^XMB(3.9,44,2,842,0)=" ;    ""NAMESPACE ID"""
^XMB(3.9,44,2,843,0)="""RTN"",""HLOAPI4"",130,0)"
^XMB(3.9,44,2,844,0)=" ;    ""UNIVERSAL ID"""
^XMB(3.9,44,2,845,0)="""RTN"",""HLOAPI4"",131,0)"
^XMB(3.9,44,2,846,0)=" ;    ""UNIVERSAL ID TYPE"""
^XMB(3.9,44,2,847,0)="""RTN"",""HLOAPI4"",132,0)"
^XMB(3.9,44,2,848,0)=" ;  FIELD (required) the sequence # of the field"
^XMB(3.9,44,2,849,0)="""RTN"",""HLOAPI4"",133,0)"
^XMB(3.9,44,2,850,0)=" ;  COMP (optional) If specified, the data type is 'demoted' to a component value."
^XMB(3.9,44,2,851,0)="""RTN"",""HLOAPI4"",134,0)"
^XMB(3.9,44,2,852,0)=" ;  REP - the occurrence# (optional, defaults to 1)  For a non-repeating fields, this parameter is not necessary."
^XMB(3.9,44,2,853,0)="""RTN"",""HLOAPI4"",135,0)"
^XMB(3.9,44,2,854,0)=" ;Output: "
^XMB(3.9,44,2,855,0)="""RTN"",""HLOAPI4"",136,0)"
^XMB(3.9,44,2,856,0)=" ;   SEG - segment that is being built"
^XMB(3.9,44,2,857,0)="""RTN"",""HLOAPI4"",137,0)"
^XMB(3.9,44,2,858,0)=" ;"
^XMB(3.9,44,2,859,0)="""RTN"",""HLOAPI4"",138,0)"
^XMB(3.9,44,2,860,0)=" N SUB,VAR"
^XMB(3.9,44,2,861,0)="""RTN"",""HLOAPI4"",139,0)"
^XMB(3.9,44,2,862,0)=" Q:'$G(FIELD)"
^XMB(3.9,44,2,863,0)="""RTN"",""HLOAPI4"",140,0)"
^XMB(3.9,44,2,864,0)=" S:'$G(REP) REP=1"
^XMB(3.9,44,2,865,0)="""RTN"",""HLOAPI4"",141,0)"
^XMB(3.9,44,2,866,0)=" I '$G(COMP) D"
^XMB(3.9,44,2,867,0)="""RTN"",""HLOAPI4"",142,0)"
^XMB(3.9,44,2,868,0)=" .S VAR=""COMP"",SUB=1"
^XMB(3.9,44,2,869,0)="""RTN"",""HLOAPI4"",143,0)"
^XMB(3.9,44,2,870,0)=" E  D"
^XMB(3.9,44,2,871,0)="""RTN"",""HLOAPI4"",144,0)"
^XMB(3.9,44,2,872,0)=" .S VAR=""SUB"""
^XMB(3.9,44,2,873,0)="""RTN"",""HLOAPI4"",145,0)"
^XMB(3.9,44,2,874,0)=" S @VAR=1,SEG(FIELD+1,REP,COMP,SUB)=$G(VALUE(""NAMESPACE ID""))"
^XMB(3.9,44,2,875,0)="""RTN"",""HLOAPI4"",146,0)"
^XMB(3.9,44,2,876,0)=" S @VAR=2,SEG(FIELD+1,REP,COMP,SUB)=$G(VALUE(""UNIVERSAL ID""))"
^XMB(3.9,44,2,877,0)="""RTN"",""HLOAPI4"",147,0)"
^XMB(3.9,44,2,878,0)=" S @VAR=3,SEG(FIELD+1,REP,COMP,SUB)=$G(VALUE(""UNIVERSAL ID TYPE""))"
^XMB(3.9,44,2,879,0)="""RTN"",""HLOAPI4"",148,0)"
^XMB(3.9,44,2,880,0)=" Q"
^XMB(3.9,44,2,881,0)="""RTN"",""HLOAPI4"",149,0)"
^XMB(3.9,44,2,882,0)=" ;"
^XMB(3.9,44,2,883,0)="""RTN"",""HLOAPI4"",150,0)"
^XMB(3.9,44,2,884,0)="SETCNE(SEG,VALUE,FIELD,COMP,REP) ;"
^XMB(3.9,44,2,885,0)="""RTN"",""HLOAPI4"",151,0)"
^XMB(3.9,44,2,886,0)=" ;Sets a value that is an HL7 Coded With No Exceptions  data type (HL7 Section Reference 2.9.8) into the segment in the specified field."
^XMB(3.9,44,2,887,0)="""RTN"",""HLOAPI4"",152,0)"
^XMB(3.9,44,2,888,0)=" ;IF the component is specified, then the data type is 'demoted' to a component, and its components are 'demoted' to subcomponents."
^XMB(3.9,44,2,889,0)="""RTN"",""HLOAPI4"",153,0)"
^XMB(3.9,44,2,890,0)=" ;"
^XMB(3.9,44,2,891,0)="""RTN"",""HLOAPI4"",154,0)"
^XMB(3.9,44,2,892,0)=" ;Input:"
^XMB(3.9,44,2,893,0)="""RTN"",""HLOAPI4"",155,0)"
^XMB(3.9,44,2,894,0)=" ;  SEG - (required, pass by reference) The array where the seg is being built."
^XMB(3.9,44,2,895,0)="""RTN"",""HLOAPI4"",156,0)"
^XMB(3.9,44,2,896,0)=" ;  VALUE  (required, pass-by-reference) These subscripts may be passed:"
^XMB(3.9,44,2,897,0)="""RTN"",""HLOAPI4"",157,0)"
^XMB(3.9,44,2,898,0)=" ;    ""ID"" - the identifier"
^XMB(3.9,44,2,899,0)="""RTN"",""HLOAPI4"",158,0)"
^XMB(3.9,44,2,900,0)=" ;    ""TEXT"" - "
^XMB(3.9,44,2,901,0)="""RTN"",""HLOAPI4"",159,0)"
^XMB(3.9,44,2,902,0)=" ;    ""SYSTEM"" - name of the code system"
^XMB(3.9,44,2,903,0)="""RTN"",""HLOAPI4"",160,0)"
^XMB(3.9,44,2,904,0)=" ;    ""ALTERNATE ID"" - alternate identifier"
^XMB(3.9,44,2,905,0)="""RTN"",""HLOAPI4"",161,0)"
^XMB(3.9,44,2,906,0)=" ;    ""ALTERNATE TEXT"""
^XMB(3.9,44,2,907,0)="""RTN"",""HLOAPI4"",162,0)"
^XMB(3.9,44,2,908,0)=" ;    ""ALTERNATE SYSTEM"" - name of the alternate coding system"
^XMB(3.9,44,2,909,0)="""RTN"",""HLOAPI4"",163,0)"
^XMB(3.9,44,2,910,0)=" ;    ""SYSTEM VERSION"" - version ID of the coding system"
^XMB(3.9,44,2,911,0)="""RTN"",""HLOAPI4"",164,0)"
^XMB(3.9,44,2,912,0)=" ;    ""ALTERNATE SYSTEM VERSION"" - version ID of the alternate coding system"
^XMB(3.9,44,2,913,0)="""RTN"",""HLOAPI4"",165,0)"
^XMB(3.9,44,2,914,0)=" ;    ""ORIGINAL TEXT"""
^XMB(3.9,44,2,915,0)="""RTN"",""HLOAPI4"",166,0)"
^XMB(3.9,44,2,916,0)=" ;  FIELD (required) the sequence # of the field"
^XMB(3.9,44,2,917,0)="""RTN"",""HLOAPI4"",167,0)"
^XMB(3.9,44,2,918,0)=" ;  COMP (optional) If specified, the data type is 'demoted' to a component value."
^XMB(3.9,44,2,919,0)="""RTN"",""HLOAPI4"",168,0)"
^XMB(3.9,44,2,920,0)=" ;  REP - the occurrence# (optional, defaults to 1)  For a non-repeating fields, this parameter is not necessary."
^XMB(3.9,44,2,921,0)="""RTN"",""HLOAPI4"",169,0)"
^XMB(3.9,44,2,922,0)=" ;Output: "
^XMB(3.9,44,2,923,0)="""RTN"",""HLOAPI4"",170,0)"
^XMB(3.9,44,2,924,0)=" ;   SEG - segment that is being built"
^XMB(3.9,44,2,925,0)="""RTN"",""HLOAPI4"",171,0)"
^XMB(3.9,44,2,926,0)=" D SETCODE^HLOAPI2(.SEG,.VALUE,.FIELD,.COMP,.REP)"
^XMB(3.9,44,2,927,0)="""RTN"",""HLOAPI4"",172,0)"
^XMB(3.9,44,2,928,0)=" Q"
^XMB(3.9,44,2,929,0)="""RTN"",""HLOAPI4"",173,0)"
^XMB(3.9,44,2,930,0)=" ;"
^XMB(3.9,44,2,931,0)="""RTN"",""HLOAPI4"",174,0)"
^XMB(3.9,44,2,932,0)="SETCWE(SEG,VALUE,FIELD,COMP,REP) ;"
^XMB(3.9,44,2,933,0)="""RTN"",""HLOAPI4"",175,0)"
^XMB(3.9,44,2,934,0)=" ;Sets a value that is an HL7 Coded With Exceptions  data type (HL7 Section Reference 2.9.11) into the segment in the specified field."
^XMB(3.9,44,2,935,0)="""RTN"",""HLOAPI4"",176,0)"
^XMB(3.9,44,2,936,0)=" ;IF the component is specified, then the data type is 'demoted' to a component, and its components are 'demoted' to subcomponents."
^XMB(3.9,44,2,937,0)="""RTN"",""HLOAPI4"",177,0)"
^XMB(3.9,44,2,938,0)=" ;"
^XMB(3.9,44,2,939,0)="""RTN"",""HLOAPI4"",178,0)"
^XMB(3.9,44,2,940,0)=" ;Input:"
^XMB(3.9,44,2,941,0)="""RTN"",""HLOAPI4"",179,0)"
^XMB(3.9,44,2,942,0)=" ;  SEG - (required, pass by reference) The array where the seg is being built."
^XMB(3.9,44,2,943,0)="""RTN"",""HLOAPI4"",180,0)"
^XMB(3.9,44,2,944,0)=" ;  VALUE  (required, pass-by-reference) These subscripts may be passed:"
^XMB(3.9,44,2,945,0)="""RTN"",""HLOAPI4"",181,0)"
^XMB(3.9,44,2,946,0)=" ;    ""ID"" - the identifier"
^XMB(3.9,44,2,947,0)="""RTN"",""HLOAPI4"",182,0)"
^XMB(3.9,44,2,948,0)=" ;    ""TEXT"" - "
^XMB(3.9,44,2,949,0)="""RTN"",""HLOAPI4"",183,0)"
^XMB(3.9,44,2,950,0)=" ;    ""SYSTEM"" - name of the code system"
^XMB(3.9,44,2,951,0)="""RTN"",""HLOAPI4"",184,0)"
^XMB(3.9,44,2,952,0)=" ;    ""ALTERNATE ID"" - alternate identifier"
^XMB(3.9,44,2,953,0)="""RTN"",""HLOAPI4"",185,0)"
^XMB(3.9,44,2,954,0)=" ;    ""ALTERNATE TEXT"""
^XMB(3.9,44,2,955,0)="""RTN"",""HLOAPI4"",186,0)"
^XMB(3.9,44,2,956,0)=" ;    ""ALTERNATE SYSTEM"" - name of the alternate coding system"
^XMB(3.9,44,2,957,0)="""RTN"",""HLOAPI4"",187,0)"
^XMB(3.9,44,2,958,0)=" ;    ""SYSTEM VERSION"" - version ID of the coding system"
^XMB(3.9,44,2,959,0)="""RTN"",""HLOAPI4"",188,0)"
^XMB(3.9,44,2,960,0)=" ;    ""ALTERNATE SYSTEM VERSION"" - version ID of the alternate coding system"
^XMB(3.9,44,2,961,0)="""RTN"",""HLOAPI4"",189,0)"
^XMB(3.9,44,2,962,0)=" ;    ""ORIGINAL TEXT"""
^XMB(3.9,44,2,963,0)="""RTN"",""HLOAPI4"",190,0)"
^XMB(3.9,44,2,964,0)=" ;  FIELD (required) the sequence # of the field"
^XMB(3.9,44,2,965,0)="""RTN"",""HLOAPI4"",191,0)"
^XMB(3.9,44,2,966,0)=" ;  COMP (optional) If specified, the data type is 'demoted' to a component value."
^XMB(3.9,44,2,967,0)="""RTN"",""HLOAPI4"",192,0)"
^XMB(3.9,44,2,968,0)=" ;  REP - the occurrence# (optional, defaults to 1)  For a non-repeating fields, this parameter is not necessary."
^XMB(3.9,44,2,969,0)="""RTN"",""HLOAPI4"",193,0)"
^XMB(3.9,44,2,970,0)=" ;Output: "
^XMB(3.9,44,2,971,0)="""RTN"",""HLOAPI4"",194,0)"
^XMB(3.9,44,2,972,0)=" ;   SEG - segment that is being built"
^XMB(3.9,44,2,973,0)="""RTN"",""HLOAPI4"",195,0)"
^XMB(3.9,44,2,974,0)=" D SETCODE^HLOAPI2(.SEG,.VALUE,.FIELD,.COMP,.REP)"
^XMB(3.9,44,2,975,0)="""RTN"",""HLOAPI4"",196,0)"
^XMB(3.9,44,2,976,0)=" Q"
^XMB(3.9,44,2,977,0)="""RTN"",""HLOAPI4"",197,0)"
^XMB(3.9,44,2,978,0)=" ;"
^XMB(3.9,44,2,979,0)="""RTN"",""HLOAPI4"",198,0)"
^XMB(3.9,44,2,980,0)="SETAD(SEG,VALUE,FIELD,COMP,REP) ;"
^XMB(3.9,44,2,981,0)="""RTN"",""HLOAPI4"",199,0)"
^XMB(3.9,44,2,982,0)=" ;Sets an AD data type (Address, HL7 Section Reference 2.9.1) into the segment in the specified field. It can also be used to set the 1st 8 components of the XAD (Extended Address) data type."
^XMB(3.9,44,2,983,0)="""RTN"",""HLOAPI4"",200,0)"
^XMB(3.9,44,2,984,0)=" ;IF the component is specified, then the data type is 'demoted' to a component, and its components are 'demoted' to subcomponents."
^XMB(3.9,44,2,985,0)="""RTN"",""HLOAPI4"",201,0)"
^XMB(3.9,44,2,986,0)=" ;"
^XMB(3.9,44,2,987,0)="""RTN"",""HLOAPI4"",202,0)"
^XMB(3.9,44,2,988,0)=" ;Input:"
^XMB(3.9,44,2,989,0)="""RTN"",""HLOAPI4"",203,0)"
^XMB(3.9,44,2,990,0)=" ;  SEG - (required, pass by reference) The array where the seg is being built."
^XMB(3.9,44,2,991,0)="""RTN"",""HLOAPI4"",204,0)"
^XMB(3.9,44,2,992,0)=" ;  VALUE  (required, pass-by-reference) These subscripts may be passed:"
^XMB(3.9,44,2,993,0)="""RTN"",""HLOAPI4"",205,0)"
^XMB(3.9,44,2,994,0)=" ;    ""STREET1"" -street address"
^XMB(3.9,44,2,995,0)="""RTN"",""HLOAPI4"",206,0)"
^XMB(3.9,44,2,996,0)=" ;    ""STREET2"" - other designation"
^XMB(3.9,44,2,997,0)="""RTN"",""HLOAPI4"",207,0)"
^XMB(3.9,44,2,998,0)=" ;    ""CITY"""
^XMB(3.9,44,2,999,0)="""RTN"",""HLOAPI4"",208,0)"
^XMB(3.9,44,2,1000,0)=" ;    ""STATE"" - state or province"
^XMB(3.9,44,2,1001,0)="""RTN"",""HLOAPI4"",209,0)"
^XMB(3.9,44,2,1002,0)=" ;    ""ZIP"" - zip or postal code"
^XMB(3.9,44,2,1003,0)="""RTN"",""HLOAPI4"",210,0)"
^XMB(3.9,44,2,1004,0)=" ;    ""COUNTRY"""
^XMB(3.9,44,2,1005,0)="""RTN"",""HLOAPI4"",211,0)"
^XMB(3.9,44,2,1006,0)=" ;    ""TYPE""  - address type"
^XMB(3.9,44,2,1007,0)="""RTN"",""HLOAPI4"",212,0)"
^XMB(3.9,44,2,1008,0)=" ;    ""OTHER"" - other geographic designation"
^XMB(3.9,44,2,1009,0)="""RTN"",""HLOAPI4"",213,0)"
^XMB(3.9,44,2,1010,0)=" ;  FIELD (required) the sequence # of the field"
^XMB(3.9,44,2,1011,0)="""RTN"",""HLOAPI4"",214,0)"
^XMB(3.9,44,2,1012,0)=" ;  COMP (optional) If specified, the data type is 'demoted' to a component value."
^XMB(3.9,44,2,1013,0)="""RTN"",""HLOAPI4"",215,0)"
^XMB(3.9,44,2,1014,0)=" ;  REP - the occurrence# (optional, defaults to 1)  For a non-repeating fields, this parameter is not necessary."
^XMB(3.9,44,2,1015,0)="""RTN"",""HLOAPI4"",216,0)"
^XMB(3.9,44,2,1016,0)=" ;Output: "
^XMB(3.9,44,2,1017,0)="""RTN"",""HLOAPI4"",217,0)"
^XMB(3.9,44,2,1018,0)=" ;   SEG - segment that is being built"
^XMB(3.9,44,2,1019,0)="""RTN"",""HLOAPI4"",218,0)"
^XMB(3.9,44,2,1020,0)=" ;"
^XMB(3.9,44,2,1021,0)="""RTN"",""HLOAPI4"",219,0)"
^XMB(3.9,44,2,1022,0)=" N SUB,VAR"
^XMB(3.9,44,2,1023,0)="""RTN"",""HLOAPI4"",220,0)"
^XMB(3.9,44,2,1024,0)=" Q:'$G(FIELD)"
^XMB(3.9,44,2,1025,0)="""RTN"",""HLOAPI4"",221,0)"
^XMB(3.9,44,2,1026,0)=" S:'$G(REP) REP=1"
^XMB(3.9,44,2,1027,0)="""RTN"",""HLOAPI4"",222,0)"
^XMB(3.9,44,2,1028,0)=" I '$G(COMP) D"
^XMB(3.9,44,2,1029,0)="""RTN"",""HLOAPI4"",223,0)"
^XMB(3.9,44,2,1030,0)=" .S VAR=""COMP"",SUB=1"
^XMB(3.9,44,2,1031,0)="""RTN"",""HLOAPI4"",224,0)"
^XMB(3.9,44,2,1032,0)=" E  D"
^XMB(3.9,44,2,1033,0)="""RTN"",""HLOAPI4"",225,0)"
^XMB(3.9,44,2,1034,0)=" .S VAR=""SUB"""
^XMB(3.9,44,2,1035,0)="""RTN"",""HLOAPI4"",226,0)"
^XMB(3.9,44,2,1036,0)=" S @VAR=1,SEG(FIELD+1,REP,COMP,SUB)=$G(VALUE(""STREET1""))"
^XMB(3.9,44,2,1037,0)="""RTN"",""HLOAPI4"",227,0)"
^XMB(3.9,44,2,1038,0)=" S @VAR=2,SEG(FIELD+1,REP,COMP,SUB)=$G(VALUE(""STREET2""))"
^XMB(3.9,44,2,1039,0)="""RTN"",""HLOAPI4"",228,0)"
^XMB(3.9,44,2,1040,0)=" S @VAR=3,SEG(FIELD+1,REP,COMP,SUB)=$G(VALUE(""CITY""))"
^XMB(3.9,44,2,1041,0)="""RTN"",""HLOAPI4"",229,0)"
^XMB(3.9,44,2,1042,0)=" S @VAR=4,SEG(FIELD+1,REP,COMP,SUB)=$G(VALUE(""STATE""))"
^XMB(3.9,44,2,1043,0)="""RTN"",""HLOAPI4"",230,0)"
^XMB(3.9,44,2,1044,0)=" S @VAR=5,SEG(FIELD+1,REP,COMP,SUB)=$G(VALUE(""ZIP""))"
^XMB(3.9,44,2,1045,0)="""RTN"",""HLOAPI4"",231,0)"
^XMB(3.9,44,2,1046,0)=" S @VAR=6,SEG(FIELD+1,REP,COMP,SUB)=$G(VALUE(""COUNTRY""))"
^XMB(3.9,44,2,1047,0)="""RTN"",""HLOAPI4"",232,0)"
^XMB(3.9,44,2,1048,0)=" S @VAR=7,SEG(FIELD+1,REP,COMP,SUB)=$G(VALUE(""TYPE""))"
^XMB(3.9,44,2,1049,0)="""RTN"",""HLOAPI4"",233,0)"
^XMB(3.9,44,2,1050,0)=" S @VAR=8,SEG(FIELD+1,REP,COMP,SUB)=$G(VALUE(""OTHER""))"
^XMB(3.9,44,2,1051,0)="""RTN"",""HLOAPI4"",234,0)"
^XMB(3.9,44,2,1052,0)=" Q"
^XMB(3.9,44,2,1053,0)="""RTN"",""HLOCLNT"")"
^XMB(3.9,44,2,1054,0)="0^1^B57442573^B55768085"
^XMB(3.9,44,2,1055,0)="""RTN"",""HLOCLNT"",1,0)"
^XMB(3.9,44,2,1056,0)="HLOCLNT ;ALB/CJM- Client for sending messages - 10/4/94 1pm"
^XMB(3.9,44,2,1057,0)="""RTN"",""HLOCLNT"",2,0)"
^XMB(3.9,44,2,1058,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126,130,131**;Oct 13, 1995;Build 10"
^XMB(3.9,44,2,1059,0)="""RTN"",""HLOCLNT"",3,0)"
^XMB(3.9,44,2,1060,0)=" ;"
^XMB(3.9,44,2,1061,0)="""RTN"",""HLOCLNT"",4,0)"
^XMB(3.9,44,2,1062,0)=" ;GET WORK function for the process running under the Process Manager"
^XMB(3.9,44,2,1063,0)="""RTN"",""HLOCLNT"",5,0)"
^XMB(3.9,44,2,1064,0)="GETWORK(QUE) ;"
^XMB(3.9,44,2,1065,0)="""RTN"",""HLOCLNT"",6,0)"
^XMB(3.9,44,2,1066,0)=" ;Input:"
^XMB(3.9,44,2,1067,0)="""RTN"",""HLOCLNT"",7,0)"
^XMB(3.9,44,2,1068,0)=" ;  QUE - (pass by reference) These subscripts are used:"
^XMB(3.9,44,2,1069,0)="""RTN"",""HLOCLNT"",8,0)"
^XMB(3.9,44,2,1070,0)=" ;    (""LINK"")  - <link name>_"":""_<port> last obtained"
^XMB(3.9,44,2,1071,0)="""RTN"",""HLOCLNT"",9,0)"
^XMB(3.9,44,2,1072,0)=" ;    (""QUEUE"") - name of the queue last obtained"
^XMB(3.9,44,2,1073,0)="""RTN"",""HLOCLNT"",10,0)"
^XMB(3.9,44,2,1074,0)=" ;Output:"
^XMB(3.9,44,2,1075,0)="""RTN"",""HLOCLNT"",11,0)"
^XMB(3.9,44,2,1076,0)=" ;  Function returns 1 if success, 0 if no more work"
^XMB(3.9,44,2,1077,0)="""RTN"",""HLOCLNT"",12,0)"
^XMB(3.9,44,2,1078,0)=" ;  QUE -  updated to identify next queue of messages to process."
^XMB(3.9,44,2,1079,0)="""RTN"",""HLOCLNT"",13,0)"
^XMB(3.9,44,2,1080,0)=" ;    (""LINK"") - <link name>_"":""_<port>"
^XMB(3.9,44,2,1081,0)="""RTN"",""HLOCLNT"",14,0)"
^XMB(3.9,44,2,1082,0)=" ;    (""QUEUE"") - the named queue on the link"
^XMB(3.9,44,2,1083,0)="""RTN"",""HLOCLNT"",15,0)"
^XMB(3.9,44,2,1084,0)=" ;    (""DOWN"") - =1 means that the last OPEN attempt failed"
^XMB(3.9,44,2,1085,0)="""RTN"",""HLOCLNT"",16,0)"
^XMB(3.9,44,2,1086,0)=" ;"
^XMB(3.9,44,2,1087,0)="""RTN"",""HLOCLNT"",17,0)"
^XMB(3.9,44,2,1088,0)=" N LINK,QUEUE"
^XMB(3.9,44,2,1089,0)="""RTN"",""HLOCLNT"",18,0)"
^XMB(3.9,44,2,1090,0)=" S LINK=$G(QUE(""LINK"")),QUEUE=$G(QUE(""QUEUE""))"
^XMB(3.9,44,2,1091,0)="""RTN"",""HLOCLNT"",19,0)"
^XMB(3.9,44,2,1092,0)=" I (LINK]""""),(QUEUE]"""") D"
^XMB(3.9,44,2,1093,0)="""RTN"",""HLOCLNT"",20,0)"
^XMB(3.9,44,2,1094,0)=" .L -^HLB(""QUEUE"",""OUT"",LINK,QUEUE)"
^XMB(3.9,44,2,1095,0)="""RTN"",""HLOCLNT"",21,0)"
^XMB(3.9,44,2,1096,0)=" .I '$$CNNCTD(LINK),$$FAILING(.LINK) S QUEUE="""" Q"
^XMB(3.9,44,2,1097,0)="""RTN"",""HLOCLNT"",22,0)"
^XMB(3.9,44,2,1098,0)=" .F  S QUEUE=$O(^HLB(""QUEUE"",""OUT"",LINK,QUEUE)) Q:(QUEUE="""")  I '$$STOPPED^HLOQUE(""OUT"",QUEUE) L +^HLB(""QUEUE"",""OUT"",LINK,QUEUE):0  Q:$T"
^XMB(3.9,44,2,1099,0)="""RTN"",""HLOCLNT"",23,0)"
^XMB(3.9,44,2,1100,0)=" I (LINK]""""),(QUEUE="""") D"
^XMB(3.9,44,2,1101,0)="""RTN"",""HLOCLNT"",24,0)"
^XMB(3.9,44,2,1102,0)=" .F  S LINK=$O(^HLB(""QUEUE"",""OUT"",LINK)) Q:LINK=""""  D  Q:$L(QUEUE)"
^XMB(3.9,44,2,1103,0)="""RTN"",""HLOCLNT"",25,0)"
^XMB(3.9,44,2,1104,0)=" ..I '$$CNNCTD(LINK),$$FAILING(.LINK) Q"
^XMB(3.9,44,2,1105,0)="""RTN"",""HLOCLNT"",26,0)"
^XMB(3.9,44,2,1106,0)=" ..S QUEUE="""" F  S QUEUE=$O(^HLB(""QUEUE"",""OUT"",LINK,QUEUE)) Q:(QUEUE="""")  I '$$STOPPED^HLOQUE(""OUT"",QUEUE) L +^HLB(""QUEUE"",""OUT"",LINK,QUEUE):0 Q:$T"
^XMB(3.9,44,2,1107,0)="""RTN"",""HLOCLNT"",27,0)"
^XMB(3.9,44,2,1108,0)=" I LINK="""" D"
^XMB(3.9,44,2,1109,0)="""RTN"",""HLOCLNT"",28,0)"
^XMB(3.9,44,2,1110,0)=" .F  S LINK=$O(^HLB(""QUEUE"",""OUT"",LINK)) Q:LINK=""""  D  Q:$L(QUEUE)"
^XMB(3.9,44,2,1111,0)="""RTN"",""HLOCLNT"",29,0)"
^XMB(3.9,44,2,1112,0)=" ..I '$$CNNCTD(LINK),$$FAILING(.LINK) Q"
^XMB(3.9,44,2,1113,0)="""RTN"",""HLOCLNT"",30,0)"
^XMB(3.9,44,2,1114,0)=" ..S QUEUE="""" F  S QUEUE=$O(^HLB(""QUEUE"",""OUT"",LINK,QUEUE)) Q:(QUEUE="""")  I '$$STOPPED^HLOQUE(""OUT"",QUEUE) L +^HLB(""QUEUE"",""OUT"",LINK,QUEUE):0 Q:$T"
^XMB(3.9,44,2,1115,0)="""RTN"",""HLOCLNT"",31,0)"
^XMB(3.9,44,2,1116,0)=" S QUE(""LINK"")=LINK,QUE(""QUEUE"")=QUEUE,QUE(""DOWN"")=$G(LINK(""DOWN""))"
^XMB(3.9,44,2,1117,0)="""RTN"",""HLOCLNT"",32,0)"
^XMB(3.9,44,2,1118,0)=" Q:$L(QUEUE) 1"
^XMB(3.9,44,2,1119,0)="""RTN"",""HLOCLNT"",33,0)"
^XMB(3.9,44,2,1120,0)=" D:$G(HLCSTATE(""CONNECTED"")) CLOSE^HLOT(.HLCSTATE)"
^XMB(3.9,44,2,1121,0)="""RTN"",""HLOCLNT"",34,0)"
^XMB(3.9,44,2,1122,0)=" Q 0"
^XMB(3.9,44,2,1123,0)="""RTN"",""HLOCLNT"",35,0)"
^XMB(3.9,44,2,1124,0)=" ;"
^XMB(3.9,44,2,1125,0)="""RTN"",""HLOCLNT"",36,0)"
^XMB(3.9,44,2,1126,0)="FAILING(LINK) ;"
^XMB(3.9,44,2,1127,0)="""RTN"",""HLOCLNT"",37,0)"
^XMB(3.9,44,2,1128,0)=" ;Returns 1 if the link has failed in the last 30 seconds, 0 otherwise"
^XMB(3.9,44,2,1129,0)="""RTN"",""HLOCLNT"",38,0)"
^XMB(3.9,44,2,1130,0)=" ;Also returns LINK(""DOWN"")=1 if the link was failing > 30 seconds ago, not yet known if its up"
^XMB(3.9,44,2,1131,0)="""RTN"",""HLOCLNT"",39,0)"
^XMB(3.9,44,2,1132,0)=" ;"
^XMB(3.9,44,2,1133,0)="""RTN"",""HLOCLNT"",40,0)"
^XMB(3.9,44,2,1134,0)=" N LASTTIME,SET"
^XMB(3.9,44,2,1135,0)="""RTN"",""HLOCLNT"",41,0)"
^XMB(3.9,44,2,1136,0)=" S LINK(""DOWN"")=0"
^XMB(3.9,44,2,1137,0)="""RTN"",""HLOCLNT"",42,0)"
^XMB(3.9,44,2,1138,0)=" S LASTTIME=$G(^HLB(""QUEUE"",""OUT"",LINK))"
^XMB(3.9,44,2,1139,0)="""RTN"",""HLOCLNT"",43,0)"
^XMB(3.9,44,2,1140,0)=" S SET=$S(LASTTIME]"""":1,1:0)"
^XMB(3.9,44,2,1141,0)="""RTN"",""HLOCLNT"",44,0)"
^XMB(3.9,44,2,1142,0)=" I SET D"
^XMB(3.9,44,2,1143,0)="""RTN"",""HLOCLNT"",45,0)"
^XMB(3.9,44,2,1144,0)=" .I $$HDIFF^XLFDT($H,LASTTIME,2)>30 S ^HLB(""QUEUE"",""OUT"",LINK)="""",SET=0,LINK(""DOWN"")=1"
^XMB(3.9,44,2,1145,0)="""RTN"",""HLOCLNT"",46,0)"
^XMB(3.9,44,2,1146,0)=" I $D(^HLTMP(""FAILING LINKS"",LINK)) S LINK(""DOWN"")=1"
^XMB(3.9,44,2,1147,0)="""RTN"",""HLOCLNT"",47,0)"
^XMB(3.9,44,2,1148,0)=" Q SET"
^XMB(3.9,44,2,1149,0)="""RTN"",""HLOCLNT"",48,0)"
^XMB(3.9,44,2,1150,0)=" ;"
^XMB(3.9,44,2,1151,0)="""RTN"",""HLOCLNT"",49,0)"
^XMB(3.9,44,2,1152,0)="LINKDOWN(HLCSTATE) ;"
^XMB(3.9,44,2,1153,0)="""RTN"",""HLOCLNT"",50,0)"
^XMB(3.9,44,2,1154,0)=" D:$G(HLCSTATE(""CONNECTED"")) CLOSE^HLOT(.HLCSTATE)"
^XMB(3.9,44,2,1155,0)="""RTN"",""HLOCLNT"",51,0)"
^XMB(3.9,44,2,1156,0)=" I $D(HLCSTATE(""LINK"",""NAME"")),$D(HLCSTATE(""LINK"",""PORT"")) D"
^XMB(3.9,44,2,1157,0)="""RTN"",""HLOCLNT"",52,0)"
^XMB(3.9,44,2,1158,0)=" .S TO=HLCSTATE(""LINK"",""NAME"")_"":""_HLCSTATE(""LINK"",""PORT"")"
^XMB(3.9,44,2,1159,0)="""RTN"",""HLOCLNT"",53,0)"
^XMB(3.9,44,2,1160,0)=" .S ^HLB(""QUEUE"",""OUT"",TO)=$H"
^XMB(3.9,44,2,1161,0)="""RTN"",""HLOCLNT"",54,0)"
^XMB(3.9,44,2,1162,0)=" .S:'$D(^HLTMP(""FAILING LINKS"",TO)) ^HLTMP(""FAILING LINKS"",TO)=$H"
^XMB(3.9,44,2,1163,0)="""RTN"",""HLOCLNT"",55,0)"
^XMB(3.9,44,2,1164,0)=" Q"
^XMB(3.9,44,2,1165,0)="""RTN"",""HLOCLNT"",56,0)"
^XMB(3.9,44,2,1166,0)=" ;"
^XMB(3.9,44,2,1167,0)="""RTN"",""HLOCLNT"",57,0)"
^XMB(3.9,44,2,1168,0)="ERROR ;error trap"
^XMB(3.9,44,2,1169,0)="""RTN"",""HLOCLNT"",58,0)"
^XMB(3.9,44,2,1170,0)=" S $ETRAP=""D UNWIND^%ZTER"""
^XMB(3.9,44,2,1171,0)="""RTN"",""HLOCLNT"",59,0)"
^XMB(3.9,44,2,1172,0)=" D END"
^XMB(3.9,44,2,1173,0)="""RTN"",""HLOCLNT"",60,0)"
^XMB(3.9,44,2,1174,0)=" D LINKDOWN(.HLCSTATE)"
^XMB(3.9,44,2,1175,0)="""RTN"",""HLOCLNT"",61,0)"
^XMB(3.9,44,2,1176,0)=" ;"
^XMB(3.9,44,2,1177,0)="""RTN"",""HLOCLNT"",62,0)"
^XMB(3.9,44,2,1178,0)=" ;while debugging quit on all errors - this will return the process to the Process Manager error trap"
^XMB(3.9,44,2,1179,0)="""RTN"",""HLOCLNT"",63,0)"
^XMB(3.9,44,2,1180,0)=" I $G(^HLTMP(""LOG ALL ERRORS"")) QUIT"
^XMB(3.9,44,2,1181,0)="""RTN"",""HLOCLNT"",64,0)"
^XMB(3.9,44,2,1182,0)=" ;"
^XMB(3.9,44,2,1183,0)="""RTN"",""HLOCLNT"",65,0)"
^XMB(3.9,44,2,1184,0)=" ;don't log some common errors"
^XMB(3.9,44,2,1185,0)="""RTN"",""HLOCLNT"",66,0)"
^XMB(3.9,44,2,1186,0)=" I ($ECODE[""READ"")!($ECODE[""NOTOPEN"")!($ECODE[""DEVNOTOPN"")!($ECODE[""WRITE"")!($ECODE[""OPENERR"") D"
^XMB(3.9,44,2,1187,0)="""RTN"",""HLOCLNT"",67,0)"
^XMB(3.9,44,2,1188,0)=" .;"
^XMB(3.9,44,2,1189,0)="""RTN"",""HLOCLNT"",68,0)"
^XMB(3.9,44,2,1190,0)=" E  D"
^XMB(3.9,44,2,1191,0)="""RTN"",""HLOCLNT"",69,0)"
^XMB(3.9,44,2,1192,0)=" .D ^%ZTER"
^XMB(3.9,44,2,1193,0)="""RTN"",""HLOCLNT"",70,0)"
^XMB(3.9,44,2,1194,0)=" ;"
^XMB(3.9,44,2,1195,0)="""RTN"",""HLOCLNT"",71,0)"
^XMB(3.9,44,2,1196,0)=" ;a lot of errors of the same type may indicate an endless loop, so keep a count"
^XMB(3.9,44,2,1197,0)="""RTN"",""HLOCLNT"",72,0)"
^XMB(3.9,44,2,1198,0)=" S ^TMP(""HL7 ERRORS"",$J,$ECODE)=$G(^TMP(""HL7 ERRORS"",$J,$ECODE))+1"
^XMB(3.9,44,2,1199,0)="""RTN"",""HLOCLNT"",73,0)"
^XMB(3.9,44,2,1200,0)=" ;"
^XMB(3.9,44,2,1201,0)="""RTN"",""HLOCLNT"",74,0)"
^XMB(3.9,44,2,1202,0)=" QUIT:($G(^TMP(""HL7 ERRORS"",$J,$ECODE))>100)  ;return to the Process Manager error trap"
^XMB(3.9,44,2,1203,0)="""RTN"",""HLOCLNT"",75,0)"
^XMB(3.9,44,2,1204,0)=" D UNWIND^%ZTER"
^XMB(3.9,44,2,1205,0)="""RTN"",""HLOCLNT"",76,0)"
^XMB(3.9,44,2,1206,0)=" Q"
^XMB(3.9,44,2,1207,0)="""RTN"",""HLOCLNT"",77,0)"
^XMB(3.9,44,2,1208,0)=" ;"
^XMB(3.9,44,2,1209,0)="""RTN"",""HLOCLNT"",78,0)"
^XMB(3.9,44,2,1210,0)="DOWORK(QUEUE) ;sends the messages on the queue"
^XMB(3.9,44,2,1211,0)="""RTN"",""HLOCLNT"",79,0)"
^XMB(3.9,44,2,1212,0)=" N $ETRAP,$ESTACK S $ETRAP=""G ERROR^HLOCLNT"""
^XMB(3.9,44,2,1213,0)="""RTN"",""HLOCLNT"",80,0)"
^XMB(3.9,44,2,1214,0)=" N MSGIEN,DEQUE,SUCCESS,MSGCOUNT"
^XMB(3.9,44,2,1215,0)="""RTN"",""HLOCLNT"",81,0)"
^XMB(3.9,44,2,1216,0)=" S DEQUE=0"
^XMB(3.9,44,2,1217,0)="""RTN"",""HLOCLNT"",82,0)"
^XMB(3.9,44,2,1218,0)=" S SUCCESS=1"
^XMB(3.9,44,2,1219,0)="""RTN"",""HLOCLNT"",83,0)"
^XMB(3.9,44,2,1220,0)=" I '$$CNNCTD(QUEUE(""LINK"")),'$$CONNECT^HLOCLNT1($P(QUEUE(""LINK""),"":""),$P(QUEUE(""LINK""),"":"",2),30,.HLCSTATE) Q"
^XMB(3.9,44,2,1221,0)="""RTN"",""HLOCLNT"",84,0)"
^XMB(3.9,44,2,1222,0)=" ;"
^XMB(3.9,44,2,1223,0)="""RTN"",""HLOCLNT"",85,0)"
^XMB(3.9,44,2,1224,0)=" S (MSGCOUNT,MSGIEN)=0"
^XMB(3.9,44,2,1225,0)="""RTN"",""HLOCLNT"",86,0)"
^XMB(3.9,44,2,1226,0)=" F  S MSGIEN=$O(^HLB(""QUEUE"",""OUT"",QUEUE(""LINK""),QUEUE(""QUEUE""),MSGIEN)) Q:'MSGIEN  D  Q:'SUCCESS  Q:MSGCOUNT>1000"
^XMB(3.9,44,2,1227,0)="""RTN"",""HLOCLNT"",87,0)"
^XMB(3.9,44,2,1228,0)=" .N UPDATE"
^XMB(3.9,44,2,1229,0)="""RTN"",""HLOCLNT"",88,0)"
^XMB(3.9,44,2,1230,0)=" .I $$INC^HLOSITE($NA(^HLB(MSGIEN,""TRIES""))) S SUCCESS=0"
^XMB(3.9,44,2,1231,0)="""RTN"",""HLOCLNT"",89,0)"
^XMB(3.9,44,2,1232,0)=" .S:$$TRANSMIT(.HLCSTATE,MSGIEN,.UPDATE) SUCCESS=1"
^XMB(3.9,44,2,1233,0)="""RTN"",""HLOCLNT"",90,0)"
^XMB(3.9,44,2,1234,0)=" .Q:('SUCCESS)!('$D(UPDATE))  ;'$D(UPDATE) with SUCCESS=1 means that the message is to be removed from the queue without actually being transmitted"
^XMB(3.9,44,2,1235,0)="""RTN"",""HLOCLNT"",91,0)"
^XMB(3.9,44,2,1236,0)=" .D DEQUE(.UPDATE)"
^XMB(3.9,44,2,1237,0)="""RTN"",""HLOCLNT"",92,0)"
^XMB(3.9,44,2,1238,0)=" .S MSGCOUNT=MSGCOUNT+1"
^XMB(3.9,44,2,1239,0)="""RTN"",""HLOCLNT"",93,0)"
^XMB(3.9,44,2,1240,0)=" .D:HLCSTATE(""COUNTS"")>4 SAVECNTS^HLOSTAT(.HLCSTATE)"
^XMB(3.9,44,2,1241,0)="""RTN"",""HLOCLNT"",94,0)"
^XMB(3.9,44,2,1242,0)=" .;"
^XMB(3.9,44,2,1243,0)="""RTN"",""HLOCLNT"",95,0)"
^XMB(3.9,44,2,1244,0)=" .;if the queue was on the down list, and not since shutdown, mark it as up, since a message has been successfully transmitted across it"
^XMB(3.9,44,2,1245,0)="""RTN"",""HLOCLNT"",96,0)"
^XMB(3.9,44,2,1246,0)=" .I $G(QUEUE(""DOWN""))!$$FAILING(QUEUE(""LINK"")),'$$IFSHUT^HLOTLNK(QUEUE(""LINK"")) S QUEUE(""DOWN"")=0,^HLB(""QUEUE"",""OUT"",QUEUE(""LINK""))="""" K ^HLTMP(""FAILING LINKS"",QUEUE(""LINK""))"
^XMB(3.9,44,2,1247,0)="""RTN"",""HLOCLNT"",97,0)"
^XMB(3.9,44,2,1248,0)=" ;"
^XMB(3.9,44,2,1249,0)="""RTN"",""HLOCLNT"",98,0)"
^XMB(3.9,44,2,1250,0)="END D DEQUE()"
^XMB(3.9,44,2,1251,0)="""RTN"",""HLOCLNT"",99,0)"
^XMB(3.9,44,2,1252,0)=" D SAVECNTS^HLOSTAT(.HLCSTATE)"
^XMB(3.9,44,2,1253,0)="""RTN"",""HLOCLNT"",100,0)"
^XMB(3.9,44,2,1254,0)=" Q"
^XMB(3.9,44,2,1255,0)="""RTN"",""HLOCLNT"",101,0)"
^XMB(3.9,44,2,1256,0)="CNNCTD(LINK) ;"
^XMB(3.9,44,2,1257,0)="""RTN"",""HLOCLNT"",102,0)"
^XMB(3.9,44,2,1258,0)=" ;Connected to LINK?  HLCSTATE must be defined, LINK=<link name>:<port>"
^XMB(3.9,44,2,1259,0)="""RTN"",""HLOCLNT"",103,0)"
^XMB(3.9,44,2,1260,0)=" ;"
^XMB(3.9,44,2,1261,0)="""RTN"",""HLOCLNT"",104,0)"
^XMB(3.9,44,2,1262,0)=" I ($G(HLCSTATE(""LINK"",""NAME""))=$P(LINK,"":"")),($G(HLCSTATE(""LINK"",""PORT""))=$P(LINK,"":"",2)),$G(HLCSTATE(""CONNECTED"")) Q 1"
^XMB(3.9,44,2,1263,0)="""RTN"",""HLOCLNT"",105,0)"
^XMB(3.9,44,2,1264,0)=" Q 0"
^XMB(3.9,44,2,1265,0)="""RTN"",""HLOCLNT"",106,0)"
^XMB(3.9,44,2,1266,0)=" ;"
^XMB(3.9,44,2,1267,0)="""RTN"",""HLOCLNT"",107,0)"
^XMB(3.9,44,2,1268,0)="DEQUE(UPDATE) ;"
^XMB(3.9,44,2,1269,0)="""RTN"",""HLOCLNT"",108,0)"
^XMB(3.9,44,2,1270,0)=" I $D(UPDATE) S DEQUE=DEQUE+1,DEQUE(+UPDATE)=$P(UPDATE,""^"",2,99) S:$G(UPDATE(""MSA""))]"""" DEQUE(+UPDATE,""MSA"")=UPDATE(""MSA"") S:$G(UPDATE(""ACTION""))]"""" DEQUE(+UPDATE,""ACTION"")=UPDATE(""ACTION"")"
^XMB(3.9,44,2,1271,0)="""RTN"",""HLOCLNT"",109,0)"
^XMB(3.9,44,2,1272,0)=" I '$D(UPDATE)!(DEQUE>15) D"
^XMB(3.9,44,2,1273,0)="""RTN"",""HLOCLNT"",110,0)"
^XMB(3.9,44,2,1274,0)=" .N MSGIEN S MSGIEN=0"
^XMB(3.9,44,2,1275,0)="""RTN"",""HLOCLNT"",111,0)"
^XMB(3.9,44,2,1276,0)=" .F  S MSGIEN=$O(DEQUE(MSGIEN)) Q:'MSGIEN  D"
^XMB(3.9,44,2,1277,0)="""RTN"",""HLOCLNT"",112,0)"
^XMB(3.9,44,2,1278,0)=" ..N NODE,TIME"
^XMB(3.9,44,2,1279,0)="""RTN"",""HLOCLNT"",113,0)"
^XMB(3.9,44,2,1280,0)=" ..D DEQUE^HLOQUE(QUEUE(""LINK""),QUEUE(""QUEUE""),""OUT"",MSGIEN)"
^XMB(3.9,44,2,1281,0)="""RTN"",""HLOCLNT"",114,0)"
^XMB(3.9,44,2,1282,0)=" ..S TIME=$P(DEQUE(MSGIEN),""^"")"
^XMB(3.9,44,2,1283,0)="""RTN"",""HLOCLNT"",115,0)"
^XMB(3.9,44,2,1284,0)=" ..S NODE=QUEUE(""LINK"")_""^""_QUEUE(""QUEUE"")_""^""_$P(DEQUE(MSGIEN),""^"",2,99)"
^XMB(3.9,44,2,1285,0)="""RTN"",""HLOCLNT"",116,0)"
^XMB(3.9,44,2,1286,0)=" ..S ^HLTMP(""CLIENT UPDATES"",$J,TIME,MSGIEN)=NODE"
^XMB(3.9,44,2,1287,0)="""RTN"",""HLOCLNT"",117,0)"
^XMB(3.9,44,2,1288,0)=" ..S:$G(DEQUE(MSGIEN,""MSA""))]"""" ^HLTMP(""CLIENT UPDATES"",$J,TIME,MSGIEN,""MSA"")=DEQUE(MSGIEN,""MSA"")"
^XMB(3.9,44,2,1289,0)="""RTN"",""HLOCLNT"",118,0)"
^XMB(3.9,44,2,1290,0)=" ..S:$G(DEQUE(MSGIEN,""ACTION""))]"""" ^HLTMP(""CLIENT UPDATES"",$J,TIME,MSGIEN,""ACTION"")=DEQUE(MSGIEN,""ACTION"")"
^XMB(3.9,44,2,1291,0)="""RTN"",""HLOCLNT"",119,0)"
^XMB(3.9,44,2,1292,0)=" .K DEQUE S DEQUE=0"
^XMB(3.9,44,2,1293,0)="""RTN"",""HLOCLNT"",120,0)"
^XMB(3.9,44,2,1294,0)=" Q"
^XMB(3.9,44,2,1295,0)="""RTN"",""HLOCLNT"",121,0)"
^XMB(3.9,44,2,1296,0)=" ;"
^XMB(3.9,44,2,1297,0)="""RTN"",""HLOCLNT"",122,0)"
^XMB(3.9,44,2,1298,0)="TRANSMIT(HLCSTATE,MSGIEN,UPDATE) ;"
^XMB(3.9,44,2,1299,0)="""RTN"",""HLOCLNT"",123,0)"
^XMB(3.9,44,2,1300,0)=" ;Transmits a single message and if a commit ack was requested reads it.  Updates file 778 with the result.  Queues for the infiler the application accept action if one was requested."
^XMB(3.9,44,2,1301,0)="""RTN"",""HLOCLNT"",124,0)"
^XMB(3.9,44,2,1302,0)=" ;Input:"
^XMB(3.9,44,2,1303,0)="""RTN"",""HLOCLNT"",125,0)"
^XMB(3.9,44,2,1304,0)=" ;   HLCSTATE (pass by reference)"
^XMB(3.9,44,2,1305,0)="""RTN"",""HLOCLNT"",126,0)"
^XMB(3.9,44,2,1306,0)=" ;   MSGIEN - ien, file 778, of message to be transmitted"
^XMB(3.9,44,2,1307,0)="""RTN"",""HLOCLNT"",127,0)"
^XMB(3.9,44,2,1308,0)=" ;Output:"
^XMB(3.9,44,2,1309,0)="""RTN"",""HLOCLNT"",128,0)"
^XMB(3.9,44,2,1310,0)=" ;  Function returns 1 on success, 0 on failure"
^XMB(3.9,44,2,1311,0)="""RTN"",""HLOCLNT"",129,0)"
^XMB(3.9,44,2,1312,0)=" ;  UPDATE - (pass by reference) to contain updates needed for message"
^XMB(3.9,44,2,1313,0)="""RTN"",""HLOCLNT"",130,0)"
^XMB(3.9,44,2,1314,0)=" ;"
^XMB(3.9,44,2,1315,0)="""RTN"",""HLOCLNT"",131,0)"
^XMB(3.9,44,2,1316,0)=" N HLMSTATE,MSA,HDR,SUCCESS"
^XMB(3.9,44,2,1317,0)="""RTN"",""HLOCLNT"",132,0)"
^XMB(3.9,44,2,1318,0)=" ;"
^XMB(3.9,44,2,1319,0)="""RTN"",""HLOCLNT"",133,0)"
^XMB(3.9,44,2,1320,0)=" S SUCCESS=0"
^XMB(3.9,44,2,1321,0)="""RTN"",""HLOCLNT"",134,0)"
^XMB(3.9,44,2,1322,0)=" S HLCSTATE(""ATTEMPT"")=0"
^XMB(3.9,44,2,1323,0)="""RTN"",""HLOCLNT"",135,0)"
^XMB(3.9,44,2,1324,0)=" ;"
^XMB(3.9,44,2,1325,0)="""RTN"",""HLOCLNT"",136,0)"
^XMB(3.9,44,2,1326,0)=" Q:'$$GETMSG^HLOCLNT2(MSGIEN,.HLMSTATE) 1  ;returns 1 so the message will be removed from the queue"
^XMB(3.9,44,2,1327,0)="""RTN"",""HLOCLNT"",137,0)"
^XMB(3.9,44,2,1328,0)=" I HLMSTATE(""DT/TM""),HLMSTATE(""STATUS"",""ACCEPTED"")!(HLMSTATE(""HDR"",""ACCEPT ACK TYPE"")=""NE"") Q 1  ;the message was already transmitted"
^XMB(3.9,44,2,1329,0)="""RTN"",""HLOCLNT"",138,0)"
^XMB(3.9,44,2,1330,0)=" ;"
^XMB(3.9,44,2,1331,0)="""RTN"",""HLOCLNT"",139,0)"
^XMB(3.9,44,2,1332,0)=" ;start saving updates needed after the message is transmitted"
^XMB(3.9,44,2,1333,0)="""RTN"",""HLOCLNT"",140,0)"
^XMB(3.9,44,2,1334,0)=" S UPDATE=MSGIEN_""^""_$$NOW^XLFDT"
^XMB(3.9,44,2,1335,0)="""RTN"",""HLOCLNT"",141,0)"
^XMB(3.9,44,2,1336,0)="RETRY D"
^XMB(3.9,44,2,1337,0)="""RTN"",""HLOCLNT"",142,0)"
^XMB(3.9,44,2,1338,0)=" .S HLCSTATE(""ATTEMPT"")=HLCSTATE(""ATTEMPT"")+1"
^XMB(3.9,44,2,1339,0)="""RTN"",""HLOCLNT"",143,0)"
^XMB(3.9,44,2,1340,0)=" .I 'HLCSTATE(""CONNECTED"") D OPEN^HLOT(.HLCSTATE)"
^XMB(3.9,44,2,1341,0)="""RTN"",""HLOCLNT"",144,0)"
^XMB(3.9,44,2,1342,0)=" .;"
^XMB(3.9,44,2,1343,0)="""RTN"",""HLOCLNT"",145,0)"
^XMB(3.9,44,2,1344,0)=" .;try to send the message"
^XMB(3.9,44,2,1345,0)="""RTN"",""HLOCLNT"",146,0)"
^XMB(3.9,44,2,1346,0)=" .Q:'$$WRITEMSG^HLOCLNT1(.HLCSTATE,.HLMSTATE)"
^XMB(3.9,44,2,1347,0)="""RTN"",""HLOCLNT"",147,0)"
^XMB(3.9,44,2,1348,0)=" .;does the message need an accept ack?"
^XMB(3.9,44,2,1349,0)="""RTN"",""HLOCLNT"",148,0)"
^XMB(3.9,44,2,1350,0)=" .I HLMSTATE(""HDR"",""ACCEPT ACK TYPE"")=""AL"" D"
^XMB(3.9,44,2,1351,0)="""RTN"",""HLOCLNT"",149,0)"
^XMB(3.9,44,2,1352,0)=" ..N FS"
^XMB(3.9,44,2,1353,0)="""RTN"",""HLOCLNT"",150,0)"
^XMB(3.9,44,2,1354,0)=" ..Q:'$$READACK^HLOCLNT1(.HLCSTATE,.HDR,.MSA)"
^XMB(3.9,44,2,1355,0)="""RTN"",""HLOCLNT"",151,0)"
^XMB(3.9,44,2,1356,0)=" ..;does the MSA refer to the correct control id?"
^XMB(3.9,44,2,1357,0)="""RTN"",""HLOCLNT"",152,0)"
^XMB(3.9,44,2,1358,0)=" ..S FS=$E(HDR(1),4)"
^XMB(3.9,44,2,1359,0)="""RTN"",""HLOCLNT"",153,0)"
^XMB(3.9,44,2,1360,0)=" ..Q:$P(MSA,FS,3)'=HLMSTATE(""ID"")"
^XMB(3.9,44,2,1361,0)="""RTN"",""HLOCLNT"",154,0)"
^XMB(3.9,44,2,1362,0)=" ..N ACKID,ACKCODE"
^XMB(3.9,44,2,1363,0)="""RTN"",""HLOCLNT"",155,0)"
^XMB(3.9,44,2,1364,0)=" ..S ACKCODE=$P(MSA,FS,2)"
^XMB(3.9,44,2,1365,0)="""RTN"",""HLOCLNT"",156,0)"
^XMB(3.9,44,2,1366,0)=" ..S ACKID=$S($E(HDR(1),1,3)=""MSH"":$P(HDR(2),FS,5),1:$P(HDR(2),FS,6))"
^XMB(3.9,44,2,1367,0)="""RTN"",""HLOCLNT"",157,0)"
^XMB(3.9,44,2,1368,0)=" ..S $P(UPDATE,""^"",5)=1"
^XMB(3.9,44,2,1369,0)="""RTN"",""HLOCLNT"",158,0)"
^XMB(3.9,44,2,1370,0)=" ..S UPDATE(""MSA"")=ACKID_""^""_MSA"
^XMB(3.9,44,2,1371,0)="""RTN"",""HLOCLNT"",159,0)"
^XMB(3.9,44,2,1372,0)=" ..I '(ACKCODE=""CA"") S $P(UPDATE,""^"",3)=""SE"",$P(UPDATE,""^"",4)=2"
^XMB(3.9,44,2,1373,0)="""RTN"",""HLOCLNT"",160,0)"
^XMB(3.9,44,2,1374,0)=" ..I ACKCODE=""CA"",HLMSTATE(""HDR"",""APP ACK TYPE"")=""NE"" S $P(UPDATE,""^"",3)=""SU"",$P(UPDATE,""^"",4)=$S(HLMSTATE(""BATCH""):""2"",1:1)"
^XMB(3.9,44,2,1375,0)="""RTN"",""HLOCLNT"",161,0)"
^XMB(3.9,44,2,1376,0)=" ..I ($P(UPDATE,""^"",3)=""SE"") S $P(UPDATE,""^"",6)=$P(HLMSTATE(""HDR"",1),FS,5) ;errors need the application for xref"
^XMB(3.9,44,2,1377,0)="""RTN"",""HLOCLNT"",162,0)"
^XMB(3.9,44,2,1378,0)=" ..;"
^XMB(3.9,44,2,1379,0)="""RTN"",""HLOCLNT"",163,0)"
^XMB(3.9,44,2,1380,0)=" ..;did the app request notification of accept ack?"
^XMB(3.9,44,2,1381,0)="""RTN"",""HLOCLNT"",164,0)"
^XMB(3.9,44,2,1382,0)=" ..S UPDATE(""ACTION"")=HLMSTATE(""ACCEPT ACK RESPONSE"")"
^XMB(3.9,44,2,1383,0)="""RTN"",""HLOCLNT"",165,0)"
^XMB(3.9,44,2,1384,0)=" ..S SUCCESS=1"
^XMB(3.9,44,2,1385,0)="""RTN"",""HLOCLNT"",166,0)"
^XMB(3.9,44,2,1386,0)=" .E  D  ;accept ack wasn't requested"
^XMB(3.9,44,2,1387,0)="""RTN"",""HLOCLNT"",167,0)"
^XMB(3.9,44,2,1388,0)=" ..S SUCCESS=1"
^XMB(3.9,44,2,1389,0)="""RTN"",""HLOCLNT"",168,0)"
^XMB(3.9,44,2,1390,0)=" ..I HLMSTATE(""HDR"",""APP ACK TYPE"")=""NE"" S $P(UPDATE,""^"",3)=""SU"",$P(UPDATE,""^"",4)=$S(HLMSTATE(""BATCH""):2,1:1)"
^XMB(3.9,44,2,1391,0)="""RTN"",""HLOCLNT"",169,0)"
^XMB(3.9,44,2,1392,0)=" ;"
^XMB(3.9,44,2,1393,0)="""RTN"",""HLOCLNT"",170,0)"
^XMB(3.9,44,2,1394,0)=" I 'SUCCESS,'HLCSTATE(""CONNECTED""),(HLCSTATE(""ATTEMPT"")<2) G RETRY"
^XMB(3.9,44,2,1395,0)="""RTN"",""HLOCLNT"",171,0)"
^XMB(3.9,44,2,1396,0)=" I SUCCESS D"
^XMB(3.9,44,2,1397,0)="""RTN"",""HLOCLNT"",172,0)"
^XMB(3.9,44,2,1398,0)=" .D COUNT^HLOSTAT(.HLCSTATE,HLMSTATE(""HDR"",""RECEIVING APPLICATION""),HLMSTATE(""HDR"",""SENDING APPLICATION""),$S(HLMSTATE(""BATCH""):""BATCH"",1:HLMSTATE(""HDR"",""MESSAGE TYPE"")_""~""_HLMSTATE(""HDR"",""EVENT"")))"
^XMB(3.9,44,2,1399,0)="""RTN"",""HLOCLNT"",173,0)"
^XMB(3.9,44,2,1400,0)=" .;if this is an ack to a message need to purge the original message, so store its ien with the purge date"
^XMB(3.9,44,2,1401,0)="""RTN"",""HLOCLNT"",174,0)"
^XMB(3.9,44,2,1402,0)=" .S:$G(HLMSTATE(""ACK TO IEN"")) $P(UPDATE,""^"",4)=$P(UPDATE,""^"",4)_""-""_HLMSTATE(""ACK TO IEN"")"
^XMB(3.9,44,2,1403,0)="""RTN"",""HLOCLNT"",175,0)"
^XMB(3.9,44,2,1404,0)=" I ('HLCSTATE(""CONNECTED""))!('SUCCESS) D LINKDOWN(.HLCSTATE)"
^XMB(3.9,44,2,1405,0)="""RTN"",""HLOCLNT"",176,0)"
^XMB(3.9,44,2,1406,0)=" Q SUCCESS"
^XMB(3.9,44,2,1407,0)="""RTN"",""HLOCLNT1"")"
^XMB(3.9,44,2,1408,0)="0^2^B28062817^B27548481"
^XMB(3.9,44,2,1409,0)="""RTN"",""HLOCLNT1"",1,0)"
^XMB(3.9,44,2,1410,0)="HLOCLNT1 ;IRMFO-ALB/CJM - Writing messages, reading acks;03/24/2004  14:43"
^XMB(3.9,44,2,1411,0)="""RTN"",""HLOCLNT1"",2,0)"
^XMB(3.9,44,2,1412,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126,130,131**;Oct 13, 1995;Build 10"
^XMB(3.9,44,2,1413,0)="""RTN"",""HLOCLNT1"",3,0)"
^XMB(3.9,44,2,1414,0)=" ;"
^XMB(3.9,44,2,1415,0)="""RTN"",""HLOCLNT1"",4,0)"
^XMB(3.9,44,2,1416,0)=" ;"
^XMB(3.9,44,2,1417,0)="""RTN"",""HLOCLNT1"",5,0)"
^XMB(3.9,44,2,1418,0)="WRITEMSG(HLCSTATE,HLMSTATE) ;"
^XMB(3.9,44,2,1419,0)="""RTN"",""HLOCLNT1"",6,0)"
^XMB(3.9,44,2,1420,0)=" ;Description:  This function uses the services offered by the transport layer to send a message over an open communication channel."
^XMB(3.9,44,2,1421,0)="""RTN"",""HLOCLNT1"",7,0)"
^XMB(3.9,44,2,1422,0)=" ;"
^XMB(3.9,44,2,1423,0)="""RTN"",""HLOCLNT1"",8,0)"
^XMB(3.9,44,2,1424,0)=" ;Input:"
^XMB(3.9,44,2,1425,0)="""RTN"",""HLOCLNT1"",9,0)"
^XMB(3.9,44,2,1426,0)=" ;  HLCSTATE (pass by reference, required) Defines the LLP & its state"
^XMB(3.9,44,2,1427,0)="""RTN"",""HLOCLNT1"",10,0)"
^XMB(3.9,44,2,1428,0)=" ;  HLMSTATE (pass by reference, required) The message"
^XMB(3.9,44,2,1429,0)="""RTN"",""HLOCLNT1"",11,0)"
^XMB(3.9,44,2,1430,0)=" ;Output:"
^XMB(3.9,44,2,1431,0)="""RTN"",""HLOCLNT1"",12,0)"
^XMB(3.9,44,2,1432,0)=" ;  Function returns 1 on success, 0 on failure"
^XMB(3.9,44,2,1433,0)="""RTN"",""HLOCLNT1"",13,0)"
^XMB(3.9,44,2,1434,0)=" ;"
^XMB(3.9,44,2,1435,0)="""RTN"",""HLOCLNT1"",14,0)"
^XMB(3.9,44,2,1436,0)=" N SEG,QUIT,HDR"
^XMB(3.9,44,2,1437,0)="""RTN"",""HLOCLNT1"",15,0)"
^XMB(3.9,44,2,1438,0)=" S QUIT=0"
^XMB(3.9,44,2,1439,0)="""RTN"",""HLOCLNT1"",16,0)"
^XMB(3.9,44,2,1440,0)=" Q:'$G(HLMSTATE(""IEN"")) 0"
^XMB(3.9,44,2,1441,0)="""RTN"",""HLOCLNT1"",17,0)"
^XMB(3.9,44,2,1442,0)=" S HDR(1)=HLMSTATE(""HDR"",1),HDR(2)=HLMSTATE(""HDR"",2)"
^XMB(3.9,44,2,1443,0)="""RTN"",""HLOCLNT1"",18,0)"
^XMB(3.9,44,2,1444,0)=" Q:'$$WRITEHDR^HLOT(.HLCSTATE,.HDR) 0"
^XMB(3.9,44,2,1445,0)="""RTN"",""HLOCLNT1"",19,0)"
^XMB(3.9,44,2,1446,0)=" I HLMSTATE(""BATCH"") D"
^XMB(3.9,44,2,1447,0)="""RTN"",""HLOCLNT1"",20,0)"
^XMB(3.9,44,2,1448,0)=" .N LAST S LAST=0"
^XMB(3.9,44,2,1449,0)="""RTN"",""HLOCLNT1"",21,0)"
^XMB(3.9,44,2,1450,0)=" .S HLMSTATE(""BATCH"",""CURRENT MESSAGE"")=0"
^XMB(3.9,44,2,1451,0)="""RTN"",""HLOCLNT1"",22,0)"
^XMB(3.9,44,2,1452,0)=" .F  Q:'$$NEXTMSG^HLOMSG(.HLMSTATE,.SEG)  D  Q:QUIT"
^XMB(3.9,44,2,1453,0)="""RTN"",""HLOCLNT1"",23,0)"
^XMB(3.9,44,2,1454,0)=" ..S LAST=HLMSTATE(""BATCH"",""CURRENT MESSAGE"")"
^XMB(3.9,44,2,1455,0)="""RTN"",""HLOCLNT1"",24,0)"
^XMB(3.9,44,2,1456,0)=" ..I '$$WRITESEG^HLOT(.HLCSTATE,.SEG) S QUIT=1 Q"
^XMB(3.9,44,2,1457,0)="""RTN"",""HLOCLNT1"",25,0)"
^XMB(3.9,44,2,1458,0)=" ..F  Q:'$$HLNEXT^HLOMSG(.HLMSTATE,.SEG)  D  Q:QUIT"
^XMB(3.9,44,2,1459,0)="""RTN"",""HLOCLNT1"",26,0)"
^XMB(3.9,44,2,1460,0)=" ...I '$$WRITESEG^HLOT(.HLCSTATE,.SEG) S QUIT=1 Q"
^XMB(3.9,44,2,1461,0)="""RTN"",""HLOCLNT1"",27,0)"
^XMB(3.9,44,2,1462,0)=" .K SEG S SEG(1)=""BTS""_HLMSTATE(""HDR"",""FIELD SEPARATOR"")_LAST"
^XMB(3.9,44,2,1463,0)="""RTN"",""HLOCLNT1"",28,0)"
^XMB(3.9,44,2,1464,0)=" .S:'$$WRITESEG^HLOT(.HLCSTATE,.SEG) QUIT=1"
^XMB(3.9,44,2,1465,0)="""RTN"",""HLOCLNT1"",29,0)"
^XMB(3.9,44,2,1466,0)=" E  D"
^XMB(3.9,44,2,1467,0)="""RTN"",""HLOCLNT1"",30,0)"
^XMB(3.9,44,2,1468,0)=" .F  Q:'$$HLNEXT^HLOMSG(.HLMSTATE,.SEG)  D  Q:QUIT"
^XMB(3.9,44,2,1469,0)="""RTN"",""HLOCLNT1"",31,0)"
^XMB(3.9,44,2,1470,0)=" ..S:'$$WRITESEG^HLOT(.HLCSTATE,.SEG) QUIT=1"
^XMB(3.9,44,2,1471,0)="""RTN"",""HLOCLNT1"",32,0)"
^XMB(3.9,44,2,1472,0)=" S:'$$ENDMSG^HLOT(.HLCSTATE) QUIT=1"
^XMB(3.9,44,2,1473,0)="""RTN"",""HLOCLNT1"",33,0)"
^XMB(3.9,44,2,1474,0)=" Q 'QUIT"
^XMB(3.9,44,2,1475,0)="""RTN"",""HLOCLNT1"",34,0)"
^XMB(3.9,44,2,1476,0)=" ;"
^XMB(3.9,44,2,1477,0)="""RTN"",""HLOCLNT1"",35,0)"
^XMB(3.9,44,2,1478,0)="READACK(HLCSTATE,HDR,MSA) ;"
^XMB(3.9,44,2,1479,0)="""RTN"",""HLOCLNT1"",36,0)"
^XMB(3.9,44,2,1480,0)=" ;Description:  This function uses the services offered by the transport layer to read an accept ack."
^XMB(3.9,44,2,1481,0)="""RTN"",""HLOCLNT1"",37,0)"
^XMB(3.9,44,2,1482,0)=" ;"
^XMB(3.9,44,2,1483,0)="""RTN"",""HLOCLNT1"",38,0)"
^XMB(3.9,44,2,1484,0)=" ;Input:"
^XMB(3.9,44,2,1485,0)="""RTN"",""HLOCLNT1"",39,0)"
^XMB(3.9,44,2,1486,0)=" ;  HLCSTATE (pass by reference, required) Defines the communication channel and its state."
^XMB(3.9,44,2,1487,0)="""RTN"",""HLOCLNT1"",40,0)"
^XMB(3.9,44,2,1488,0)=" ;Output:"
^XMB(3.9,44,2,1489,0)="""RTN"",""HLOCLNT1"",41,0)"
^XMB(3.9,44,2,1490,0)=" ;  Function returns 1 on success, 0 on failure"
^XMB(3.9,44,2,1491,0)="""RTN"",""HLOCLNT1"",42,0)"
^XMB(3.9,44,2,1492,0)=" ;  HDR (pass by reference) the message header:"
^XMB(3.9,44,2,1493,0)="""RTN"",""HLOCLNT1"",43,0)"
^XMB(3.9,44,2,1494,0)=" ;   HDR(1) is components 1-6"
^XMB(3.9,44,2,1495,0)="""RTN"",""HLOCLNT1"",44,0)"
^XMB(3.9,44,2,1496,0)=" ;   HDR(2) is components 7-end"
^XMB(3.9,44,2,1497,0)="""RTN"",""HLOCLNT1"",45,0)"
^XMB(3.9,44,2,1498,0)=" ;  MSA (pass by reference) the MSA segment as an unsubscripted variable"
^XMB(3.9,44,2,1499,0)="""RTN"",""HLOCLNT1"",46,0)"
^XMB(3.9,44,2,1500,0)=" ;"
^XMB(3.9,44,2,1501,0)="""RTN"",""HLOCLNT1"",47,0)"
^XMB(3.9,44,2,1502,0)=" N SEG"
^XMB(3.9,44,2,1503,0)="""RTN"",""HLOCLNT1"",48,0)"
^XMB(3.9,44,2,1504,0)=" K HDR,MSA,MAX,I"
^XMB(3.9,44,2,1505,0)="""RTN"",""HLOCLNT1"",49,0)"
^XMB(3.9,44,2,1506,0)=" S MAX=HLCSTATE(""SYSTEM"",""MAXSTRING"")-40 ;MAX is the maximum that can be safely stored on a node, leaving room for the other fields stored with MSA seg"
^XMB(3.9,44,2,1507,0)="""RTN"",""HLOCLNT1"",50,0)"
^XMB(3.9,44,2,1508,0)=" Q:'$$READHDR^HLOT(.HLCSTATE,.HDR) 0"
^XMB(3.9,44,2,1509,0)="""RTN"",""HLOCLNT1"",51,0)"
^XMB(3.9,44,2,1510,0)=" F  Q:'$$READSEG^HLOT(.HLCSTATE,.SEG)  D"
^XMB(3.9,44,2,1511,0)="""RTN"",""HLOCLNT1"",52,0)"
^XMB(3.9,44,2,1512,0)=" .I $E($E(SEG(1),1,3)_$E($G(SEG(2)),1,3),1,3)=""MSA"" D"
^XMB(3.9,44,2,1513,0)="""RTN"",""HLOCLNT1"",53,0)"
^XMB(3.9,44,2,1514,0)=" ..S MSA="""""
^XMB(3.9,44,2,1515,0)="""RTN"",""HLOCLNT1"",54,0)"
^XMB(3.9,44,2,1516,0)=" ..F I=1:1 Q:'$D(SEG(I))  S MSA=MSA_$S((MAX-$L(MSA))<1:"""",1:$E(SEG(I),1,MAX))"
^XMB(3.9,44,2,1517,0)="""RTN"",""HLOCLNT1"",55,0)"
^XMB(3.9,44,2,1518,0)=" I $D(MSA),HLCSTATE(""MESSAGE ENDED"") D  Q 1"
^XMB(3.9,44,2,1519,0)="""RTN"",""HLOCLNT1"",56,0)"
^XMB(3.9,44,2,1520,0)=" .D SPLITHDR^HLOSRVR1(.HDR)"
^XMB(3.9,44,2,1521,0)="""RTN"",""HLOCLNT1"",57,0)"
^XMB(3.9,44,2,1522,0)=" .S HLCSTATE(""COUNTS"",""ACKS"")=$G(HLCSTATE(""COUNTS"",""ACKS""))+1"
^XMB(3.9,44,2,1523,0)="""RTN"",""HLOCLNT1"",58,0)"
^XMB(3.9,44,2,1524,0)=" Q 0"
^XMB(3.9,44,2,1525,0)="""RTN"",""HLOCLNT1"",59,0)"
^XMB(3.9,44,2,1526,0)=" ;"
^XMB(3.9,44,2,1527,0)="""RTN"",""HLOCLNT1"",60,0)"
^XMB(3.9,44,2,1528,0)="CONNECT(LINK,PORT,TIMEOUT,HLCSTATE) ;"
^XMB(3.9,44,2,1529,0)="""RTN"",""HLOCLNT1"",61,0)"
^XMB(3.9,44,2,1530,0)=" ;sets up HLCSTATE() and opens a client connection"
^XMB(3.9,44,2,1531,0)="""RTN"",""HLOCLNT1"",62,0)"
^XMB(3.9,44,2,1532,0)=" ;Input:"
^XMB(3.9,44,2,1533,0)="""RTN"",""HLOCLNT1"",63,0)"
^XMB(3.9,44,2,1534,0)=" ;  LINK - name of the link to connect to"
^XMB(3.9,44,2,1535,0)="""RTN"",""HLOCLNT1"",64,0)"
^XMB(3.9,44,2,1536,0)=" ;  PORT (optional) port # to connect to, defaults to that specified by the link"
^XMB(3.9,44,2,1537,0)="""RTN"",""HLOCLNT1"",65,0)"
^XMB(3.9,44,2,1538,0)=" ;  TIMEOUT (optional) specifies the open timeout in seconds, defaults to 30"
^XMB(3.9,44,2,1539,0)="""RTN"",""HLOCLNT1"",66,0)"
^XMB(3.9,44,2,1540,0)=" ;Output:"
^XMB(3.9,44,2,1541,0)="""RTN"",""HLOCLNT1"",67,0)"
^XMB(3.9,44,2,1542,0)=" ;   HLCSTATE - array to hold the connection state"
^XMB(3.9,44,2,1543,0)="""RTN"",""HLOCLNT1"",68,0)"
^XMB(3.9,44,2,1544,0)=" ;"
^XMB(3.9,44,2,1545,0)="""RTN"",""HLOCLNT1"",69,0)"
^XMB(3.9,44,2,1546,0)=" I $G(HLCSTATE(""CONNECTED"")) D  Q:HLCSTATE(""CONNECTED"")"
^XMB(3.9,44,2,1547,0)="""RTN"",""HLOCLNT1"",70,0)"
^XMB(3.9,44,2,1548,0)=" .I $G(HLCSTATE(""LINK"",""NAME""))]"""",($G(HLCSTATE(""LINK"",""NAME""))'=LINK) D CLOSE^HLOT(.HLCSTATE) Q"
^XMB(3.9,44,2,1549,0)="""RTN"",""HLOCLNT1"",71,0)"
^XMB(3.9,44,2,1550,0)=" .I $G(HLCSTATE(""LINK"",""NAME""))]"""",$G(PORT),($G(HLCSTATE(""LINK"",""PORT""))'=PORT) D CLOSE^HLOT(.HLCSTATE) Q"
^XMB(3.9,44,2,1551,0)="""RTN"",""HLOCLNT1"",72,0)"
^XMB(3.9,44,2,1552,0)=" .I (HLCSTATE(""SYSTEM"",""OS"")=""CACHE"") D  Q"
^XMB(3.9,44,2,1553,0)="""RTN"",""HLOCLNT1"",73,0)"
^XMB(3.9,44,2,1554,0)=" ..U HLCSTATE(""DEVICE"") S HLCSTATE(""CONNECTED"")=($ZA\8192#2)"
^XMB(3.9,44,2,1555,0)="""RTN"",""HLOCLNT1"",74,0)"
^XMB(3.9,44,2,1556,0)=" ..I 'HLCSTATE(""CONNECTED"") D CLOSE^HLOT(.HLCSTATE)"
^XMB(3.9,44,2,1557,0)="""RTN"",""HLOCLNT1"",75,0)"
^XMB(3.9,44,2,1558,0)=" .;D CLOSE^HLOT(.HLCSTATE)"
^XMB(3.9,44,2,1559,0)="""RTN"",""HLOCLNT1"",76,0)"
^XMB(3.9,44,2,1560,0)=" K HLCSTATE"
^XMB(3.9,44,2,1561,0)="""RTN"",""HLOCLNT1"",77,0)"
^XMB(3.9,44,2,1562,0)=" N ARY,NODE"
^XMB(3.9,44,2,1563,0)="""RTN"",""HLOCLNT1"",78,0)"
^XMB(3.9,44,2,1564,0)=" I '$$GETLINK^HLOTLNK(LINK,.ARY) S HLCSTATE(""LINK"",""NAME"")=LINK,HLCSTATE(""LINK"",""PORT"")=$G(PORT) D LINKDOWN^HLOCLNT(.HLCSTATE) Q 0"
^XMB(3.9,44,2,1565,0)="""RTN"",""HLOCLNT1"",79,0)"
^XMB(3.9,44,2,1566,0)=" M HLCSTATE(""LINK"")=ARY"
^XMB(3.9,44,2,1567,0)="""RTN"",""HLOCLNT1"",80,0)"
^XMB(3.9,44,2,1568,0)=" I HLCSTATE(""LINK"",""SHUTDOWN"") S HLCSTATE(""CONNECTED"")=0 D LINKDOWN^HLOCLNT(.HLCSTATE) Q 0"
^XMB(3.9,44,2,1569,0)="""RTN"",""HLOCLNT1"",81,0)"
^XMB(3.9,44,2,1570,0)=" ;overlay the port if supplied from the queue"
^XMB(3.9,44,2,1571,0)="""RTN"",""HLOCLNT1"",82,0)"
^XMB(3.9,44,2,1572,0)=" S:$G(PORT) HLCSTATE(""LINK"",""PORT"")=PORT"
^XMB(3.9,44,2,1573,0)="""RTN"",""HLOCLNT1"",83,0)"
^XMB(3.9,44,2,1574,0)=" S HLCSTATE(""READ TIMEOUT"")=20"
^XMB(3.9,44,2,1575,0)="""RTN"",""HLOCLNT1"",84,0)"
^XMB(3.9,44,2,1576,0)=" S HLCSTATE(""OPEN TIMEOUT"")=$S($G(TIMEOUT):TIMEOUT,1:30)"
^XMB(3.9,44,2,1577,0)="""RTN"",""HLOCLNT1"",85,0)"
^XMB(3.9,44,2,1578,0)=" S HLCSTATE(""COUNTS"")=0"
^XMB(3.9,44,2,1579,0)="""RTN"",""HLOCLNT1"",86,0)"
^XMB(3.9,44,2,1580,0)=" S HLCSTATE(""READ"")="""" ;where the reads are stored"
^XMB(3.9,44,2,1581,0)="""RTN"",""HLOCLNT1"",87,0)"
^XMB(3.9,44,2,1582,0)=" ;"
^XMB(3.9,44,2,1583,0)="""RTN"",""HLOCLNT1"",88,0)"
^XMB(3.9,44,2,1584,0)=" ;HLCSTATE(""BUFFER"",<seg>,<line>) serves as a write buffer so that a lot can be written all at once"
^XMB(3.9,44,2,1585,0)="""RTN"",""HLOCLNT1"",89,0)"
^XMB(3.9,44,2,1586,0)=" S HLCSTATE(""BUFFER"",""BYTE COUNT"")=0 ;count of BYTES in buffer"
^XMB(3.9,44,2,1587,0)="""RTN"",""HLOCLNT1"",90,0)"
^XMB(3.9,44,2,1588,0)=" S HLCSTATE(""BUFFER"",""SEGMENT COUNT"")=0 ;count of segments in buffer"
^XMB(3.9,44,2,1589,0)="""RTN"",""HLOCLNT1"",91,0)"
^XMB(3.9,44,2,1590,0)=" ;"
^XMB(3.9,44,2,1591,0)="""RTN"",""HLOCLNT1"",92,0)"
^XMB(3.9,44,2,1592,0)=" S HLCSTATE(""MESSAGE ENDED"")=0 ;end of message flag"
^XMB(3.9,44,2,1593,0)="""RTN"",""HLOCLNT1"",93,0)"
^XMB(3.9,44,2,1594,0)=" S NODE=^%ZOSF(""OS"")"
^XMB(3.9,44,2,1595,0)="""RTN"",""HLOCLNT1"",94,0)"
^XMB(3.9,44,2,1596,0)=" S HLCSTATE(""SERVER"")=0"
^XMB(3.9,44,2,1597,0)="""RTN"",""HLOCLNT1"",95,0)"
^XMB(3.9,44,2,1598,0)=" S HLCSTATE(""SYSTEM"",""OS"")=$S(NODE[""DSM"":""DSM"",NODE[""OpenM"":""CACHE"",NODE[""G.TM"":""G.TM"",1:"""")"
^XMB(3.9,44,2,1599,0)="""RTN"",""HLOCLNT1"",96,0)"
^XMB(3.9,44,2,1600,0)=" I HLCSTATE(""SYSTEM"",""OS"")="""" D LINKDOWN^HLOCLNT(.HLCSTATE) Q 0"
^XMB(3.9,44,2,1601,0)="""RTN"",""HLOCLNT1"",97,0)"
^XMB(3.9,44,2,1602,0)=" D"
^XMB(3.9,44,2,1603,0)="""RTN"",""HLOCLNT1"",98,0)"
^XMB(3.9,44,2,1604,0)=" .N SYS"
^XMB(3.9,44,2,1605,0)="""RTN"",""HLOCLNT1"",99,0)"
^XMB(3.9,44,2,1606,0)=" .D SYSPARMS^HLOSITE(.SYS)"
^XMB(3.9,44,2,1607,0)="""RTN"",""HLOCLNT1"",100,0)"
^XMB(3.9,44,2,1608,0)=" .S HLCSTATE(""SYSTEM"",""BUFFER"")=SYS(""HL7 BUFFER"")"
^XMB(3.9,44,2,1609,0)="""RTN"",""HLOCLNT1"",101,0)"
^XMB(3.9,44,2,1610,0)=" .S HLCSTATE(""SYSTEM"",""MAXSTRING"")=SYS(""MAXSTRING"")"
^XMB(3.9,44,2,1611,0)="""RTN"",""HLOCLNT1"",102,0)"
^XMB(3.9,44,2,1612,0)=" .S HLCSTATE(""SYSTEM"",""NORMAL PURGE"")=SYS(""NORMAL PURGE"")"
^XMB(3.9,44,2,1613,0)="""RTN"",""HLOCLNT1"",103,0)"
^XMB(3.9,44,2,1614,0)=" .S HLCSTATE(""SYSTEM"",""ERROR PURGE"")=SYS(""ERROR PURGE"")"
^XMB(3.9,44,2,1615,0)="""RTN"",""HLOCLNT1"",104,0)"
^XMB(3.9,44,2,1616,0)=" I HLCSTATE(""LINK"",""LLP"")=""TCP"" D"
^XMB(3.9,44,2,1617,0)="""RTN"",""HLOCLNT1"",105,0)"
^XMB(3.9,44,2,1618,0)=" .S HLCSTATE(""OPEN"")=""OPEN^HLOTCP"""
^XMB(3.9,44,2,1619,0)="""RTN"",""HLOCLNT1"",106,0)"
^XMB(3.9,44,2,1620,0)=" E  ;no other LLP implemented"
^XMB(3.9,44,2,1621,0)="""RTN"",""HLOCLNT1"",107,0)"
^XMB(3.9,44,2,1622,0)=" D OPEN^HLOT(.HLCSTATE)"
^XMB(3.9,44,2,1623,0)="""RTN"",""HLOCLNT1"",108,0)"
^XMB(3.9,44,2,1624,0)=" ;"
^XMB(3.9,44,2,1625,0)="""RTN"",""HLOCLNT1"",109,0)"
^XMB(3.9,44,2,1626,0)=" ;mark the failure time for the link so other processes know not to try for a while"
^XMB(3.9,44,2,1627,0)="""RTN"",""HLOCLNT1"",110,0)"
^XMB(3.9,44,2,1628,0)=" I 'HLCSTATE(""CONNECTED"") D LINKDOWN^HLOCLNT(.HLCSTATE)"
^XMB(3.9,44,2,1629,0)="""RTN"",""HLOCLNT1"",111,0)"
^XMB(3.9,44,2,1630,0)=" Q HLCSTATE(""CONNECTED"")"
^XMB(3.9,44,2,1631,0)="""RTN"",""HLOCLNT1"",112,0)"
^XMB(3.9,44,2,1632,0)=" ;"
^XMB(3.9,44,2,1633,0)="""RTN"",""HLOCLNT1"",113,0)"
^XMB(3.9,44,2,1634,0)="BADMSGS(WORK) ;"
^XMB(3.9,44,2,1635,0)="""RTN"",""HLOCLNT1"",114,0)"
^XMB(3.9,44,2,1636,0)=" ;finds messages that won't transmit and takes them off the outgoing queue"
^XMB(3.9,44,2,1637,0)="""RTN"",""HLOCLNT1"",115,0)"
^XMB(3.9,44,2,1638,0)=" N LINK"
^XMB(3.9,44,2,1639,0)="""RTN"",""HLOCLNT1"",116,0)"
^XMB(3.9,44,2,1640,0)=" S LINK="""""
^XMB(3.9,44,2,1641,0)="""RTN"",""HLOCLNT1"",117,0)"
^XMB(3.9,44,2,1642,0)=" F  S LINK=$O(^HLTMP(""FAILING LINKS"",LINK)) Q:LINK=""""  D"
^XMB(3.9,44,2,1643,0)="""RTN"",""HLOCLNT1"",118,0)"
^XMB(3.9,44,2,1644,0)=" .N TIME,QUE,COUNT"
^XMB(3.9,44,2,1645,0)="""RTN"",""HLOCLNT1"",119,0)"
^XMB(3.9,44,2,1646,0)=" .S TIME=$G(^HLTMP(""FAILING LINKS"",LINK)) Q:TIME="""""
^XMB(3.9,44,2,1647,0)="""RTN"",""HLOCLNT1"",120,0)"
^XMB(3.9,44,2,1648,0)=" .Q:$$HDIFF^XLFDT($H,TIME,2)<7200"
^XMB(3.9,44,2,1649,0)="""RTN"",""HLOCLNT1"",121,0)"
^XMB(3.9,44,2,1650,0)=" .Q:'$$IFOPEN^HLOUSR1(LINK)"
^XMB(3.9,44,2,1651,0)="""RTN"",""HLOCLNT1"",122,0)"
^XMB(3.9,44,2,1652,0)=" .L +^HLB(""QUEUE"",""OUT"",LINK):0"
^XMB(3.9,44,2,1653,0)="""RTN"",""HLOCLNT1"",123,0)"
^XMB(3.9,44,2,1654,0)=" .S QUE="""""
^XMB(3.9,44,2,1655,0)="""RTN"",""HLOCLNT1"",124,0)"
^XMB(3.9,44,2,1656,0)=" .F  S QUE=$O(^HLB(""QUEUE"",""OUT"",LINK,QUE)) Q:QUE=""""  D"
^XMB(3.9,44,2,1657,0)="""RTN"",""HLOCLNT1"",125,0)"
^XMB(3.9,44,2,1658,0)=" ..N MSG S MSG=0"
^XMB(3.9,44,2,1659,0)="""RTN"",""HLOCLNT1"",126,0)"
^XMB(3.9,44,2,1660,0)=" ..S MSG=$O(^HLB(""QUEUE"",""OUT"",LINK,QUE,MSG))"
^XMB(3.9,44,2,1661,0)="""RTN"",""HLOCLNT1"",127,0)"
^XMB(3.9,44,2,1662,0)=" ..Q:'MSG"
^XMB(3.9,44,2,1663,0)="""RTN"",""HLOCLNT1"",128,0)"
^XMB(3.9,44,2,1664,0)=" ..S COUNT=$G(^HLB(MSG,""TRIES""))"
^XMB(3.9,44,2,1665,0)="""RTN"",""HLOCLNT1"",129,0)"
^XMB(3.9,44,2,1666,0)=" ..I COUNT>20 D"
^XMB(3.9,44,2,1667,0)="""RTN"",""HLOCLNT1"",130,0)"
^XMB(3.9,44,2,1668,0)=" ...N NODE,TIME,APP,FS,ACTION"
^XMB(3.9,44,2,1669,0)="""RTN"",""HLOCLNT1"",131,0)"
^XMB(3.9,44,2,1670,0)=" ...S NODE=$G(^HLB(MSG,0))"
^XMB(3.9,44,2,1671,0)="""RTN"",""HLOCLNT1"",132,0)"
^XMB(3.9,44,2,1672,0)=" ...Q:'$P(NODE,""^"",2)"
^XMB(3.9,44,2,1673,0)="""RTN"",""HLOCLNT1"",133,0)"
^XMB(3.9,44,2,1674,0)=" ...S TIME=+$G(^HLA($P(NODE,""^"",2),0))"
^XMB(3.9,44,2,1675,0)="""RTN"",""HLOCLNT1"",134,0)"
^XMB(3.9,44,2,1676,0)=" ...S NODE=$G(^HLB(MSG,1))"
^XMB(3.9,44,2,1677,0)="""RTN"",""HLOCLNT1"",135,0)"
^XMB(3.9,44,2,1678,0)=" ...S FS=$E(NODE,4)"
^XMB(3.9,44,2,1679,0)="""RTN"",""HLOCLNT1"",136,0)"
^XMB(3.9,44,2,1680,0)=" ...Q:FS="""""
^XMB(3.9,44,2,1681,0)="""RTN"",""HLOCLNT1"",137,0)"
^XMB(3.9,44,2,1682,0)=" ...S APP=$P(NODE,FS,3)"
^XMB(3.9,44,2,1683,0)="""RTN"",""HLOCLNT1"",138,0)"
^XMB(3.9,44,2,1684,0)=" ...Q:APP="""""
^XMB(3.9,44,2,1685,0)="""RTN"",""HLOCLNT1"",139,0)"
^XMB(3.9,44,2,1686,0)=" ...S $P(^HLB(MSG,0),""^"",21)=COUNT_"" FAILED TRANSMISSIONS"""
^XMB(3.9,44,2,1687,0)="""RTN"",""HLOCLNT1"",140,0)"
^XMB(3.9,44,2,1688,0)=" ...S $P(^HLB(MSG,0),""^"",20)=""TF"""
^XMB(3.9,44,2,1689,0)="""RTN"",""HLOCLNT1"",141,0)"
^XMB(3.9,44,2,1690,0)=" ...S ^HLB(""ERRORS"",""TF"",APP,TIME,MSG)="""""
^XMB(3.9,44,2,1691,0)="""RTN"",""HLOCLNT1"",142,0)"
^XMB(3.9,44,2,1692,0)=" ...S ACTION=$P(NODE,""^"",14,15)"
^XMB(3.9,44,2,1693,0)="""RTN"",""HLOCLNT1"",143,0)"
^XMB(3.9,44,2,1694,0)=" ...I ACTION'=""^"",ACTION]"""" D INQUE^HLOQUE(LINK,QUE,MSG,ACTION,1)"
^XMB(3.9,44,2,1695,0)="""RTN"",""HLOCLNT1"",144,0)"
^XMB(3.9,44,2,1696,0)=" ...D DEQUE^HLOQUE(LINK,QUE,""OUT"",MSG)"
^XMB(3.9,44,2,1697,0)="""RTN"",""HLOCLNT1"",145,0)"
^XMB(3.9,44,2,1698,0)=" .L -^HLB(""QUEUE"",""OUT"",LINK)"
^XMB(3.9,44,2,1699,0)="""RTN"",""HLOCLNT1"",146,0)"
^XMB(3.9,44,2,1700,0)=" Q"
^XMB(3.9,44,2,1701,0)="""RTN"",""HLOCLNT2"")"
^XMB(3.9,44,2,1702,0)="0^3^B30513205^B23345410"
^XMB(3.9,44,2,1703,0)="""RTN"",""HLOCLNT2"",1,0)"
^XMB(3.9,44,2,1704,0)="HLOCLNT2 ;ALB/CJM- Performs message updates for the client - 10/4/94 1pm"
^XMB(3.9,44,2,1705,0)="""RTN"",""HLOCLNT2"",2,0)"
^XMB(3.9,44,2,1706,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126,130,131**;Oct 13, 1995;Build 10"
^XMB(3.9,44,2,1707,0)="""RTN"",""HLOCLNT2"",3,0)"
^XMB(3.9,44,2,1708,0)=" ;"
^XMB(3.9,44,2,1709,0)="""RTN"",""HLOCLNT2"",4,0)"
^XMB(3.9,44,2,1710,0)="GETWORK(WORK) ;"
^XMB(3.9,44,2,1711,0)="""RTN"",""HLOCLNT2"",5,0)"
^XMB(3.9,44,2,1712,0)=" ;"
^XMB(3.9,44,2,1713,0)="""RTN"",""HLOCLNT2"",6,0)"
^XMB(3.9,44,2,1714,0)=" N OLD,DOLLARJ,SUCCESS,NOW"
^XMB(3.9,44,2,1715,0)="""RTN"",""HLOCLNT2"",7,0)"
^XMB(3.9,44,2,1716,0)=" S SUCCESS=0"
^XMB(3.9,44,2,1717,0)="""RTN"",""HLOCLNT2"",8,0)"
^XMB(3.9,44,2,1718,0)=" S NOW=$$NOW^XLFDT"
^XMB(3.9,44,2,1719,0)="""RTN"",""HLOCLNT2"",9,0)"
^XMB(3.9,44,2,1720,0)=" S (OLD,DOLLARJ)=$G(WORK(""DOLLARJ""))"
^XMB(3.9,44,2,1721,0)="""RTN"",""HLOCLNT2"",10,0)"
^XMB(3.9,44,2,1722,0)=" F  S DOLLARJ=$O(^HLTMP(""CLIENT UPDATES"",DOLLARJ)) Q:DOLLARJ=""""  D  Q:SUCCESS"
^XMB(3.9,44,2,1723,0)="""RTN"",""HLOCLNT2"",11,0)"
^XMB(3.9,44,2,1724,0)=" .L +^HLTMP(""CLIENT UPDATES"",DOLLARJ):0"
^XMB(3.9,44,2,1725,0)="""RTN"",""HLOCLNT2"",12,0)"
^XMB(3.9,44,2,1726,0)=" .Q:'$T"
^XMB(3.9,44,2,1727,0)="""RTN"",""HLOCLNT2"",13,0)"
^XMB(3.9,44,2,1728,0)=" .N TIME S TIME=$O(^HLTMP(""CLIENT UPDATES"",DOLLARJ,""""))"
^XMB(3.9,44,2,1729,0)="""RTN"",""HLOCLNT2"",14,0)"
^XMB(3.9,44,2,1730,0)=" .I $$FMDIFF^XLFDT(NOW,TIME,2)<2 L -^HLTMP(""CLIENT UPDATES"",DOLLARJ) Q"
^XMB(3.9,44,2,1731,0)="""RTN"",""HLOCLNT2"",15,0)"
^XMB(3.9,44,2,1732,0)=" .S SUCCESS=1"
^XMB(3.9,44,2,1733,0)="""RTN"",""HLOCLNT2"",16,0)"
^XMB(3.9,44,2,1734,0)=" ;"
^XMB(3.9,44,2,1735,0)="""RTN"",""HLOCLNT2"",17,0)"
^XMB(3.9,44,2,1736,0)=" I OLD'="""",'SUCCESS F  S DOLLARJ=$O(^HLTMP(""CLIENT UPDATES"",DOLLARJ)) Q:DOLLARJ=""""  Q:DOLLARJ>OLD  D  Q:SUCCESS"
^XMB(3.9,44,2,1737,0)="""RTN"",""HLOCLNT2"",18,0)"
^XMB(3.9,44,2,1738,0)=" .L +^HLTMP(""CLIENT UPDATES"",DOLLARJ):0"
^XMB(3.9,44,2,1739,0)="""RTN"",""HLOCLNT2"",19,0)"
^XMB(3.9,44,2,1740,0)=" .Q:'$T"
^XMB(3.9,44,2,1741,0)="""RTN"",""HLOCLNT2"",20,0)"
^XMB(3.9,44,2,1742,0)=" .N TIME S TIME=$O(^HLTMP(""CLIENT UPDATES"",DOLLARJ,""""))"
^XMB(3.9,44,2,1743,0)="""RTN"",""HLOCLNT2"",21,0)"
^XMB(3.9,44,2,1744,0)=" .I $$FMDIFF^XLFDT(NOW,TIME,2)<2 L -^HLTMP(""CLIENT UPDATES"",DOLLARJ) Q"
^XMB(3.9,44,2,1745,0)="""RTN"",""HLOCLNT2"",22,0)"
^XMB(3.9,44,2,1746,0)=" .S SUCCESS=1"
^XMB(3.9,44,2,1747,0)="""RTN"",""HLOCLNT2"",23,0)"
^XMB(3.9,44,2,1748,0)=" S WORK(""DOLLARJ"")=DOLLARJ,WORK(""NOW"")=NOW"
^XMB(3.9,44,2,1749,0)="""RTN"",""HLOCLNT2"",24,0)"
^XMB(3.9,44,2,1750,0)=" Q $S($L(WORK(""DOLLARJ"")):1,1:0)"
^XMB(3.9,44,2,1751,0)="""RTN"",""HLOCLNT2"",25,0)"
^XMB(3.9,44,2,1752,0)=" ;"
^XMB(3.9,44,2,1753,0)="""RTN"",""HLOCLNT2"",26,0)"
^XMB(3.9,44,2,1754,0)="DOWORK(WORK) ;"
^XMB(3.9,44,2,1755,0)="""RTN"",""HLOCLNT2"",27,0)"
^XMB(3.9,44,2,1756,0)=" ;"
^XMB(3.9,44,2,1757,0)="""RTN"",""HLOCLNT2"",28,0)"
^XMB(3.9,44,2,1758,0)=" N DOLLARJ,TIME,IEN,PARMS,SYSTEM"
^XMB(3.9,44,2,1759,0)="""RTN"",""HLOCLNT2"",29,0)"
^XMB(3.9,44,2,1760,0)=" S TIME="""""
^XMB(3.9,44,2,1761,0)="""RTN"",""HLOCLNT2"",30,0)"
^XMB(3.9,44,2,1762,0)=" S DOLLARJ=WORK(""DOLLARJ"")"
^XMB(3.9,44,2,1763,0)="""RTN"",""HLOCLNT2"",31,0)"
^XMB(3.9,44,2,1764,0)=" D SYSPARMS^HLOSITE(.SYSTEM)"
^XMB(3.9,44,2,1765,0)="""RTN"",""HLOCLNT2"",32,0)"
^XMB(3.9,44,2,1766,0)=" F  S TIME=$O(^HLTMP(""CLIENT UPDATES"",DOLLARJ,TIME)) Q:TIME=""""  Q:$$FMDIFF^XLFDT(WORK(""NOW""),TIME,2)<2  D"
^XMB(3.9,44,2,1767,0)="""RTN"",""HLOCLNT2"",33,0)"
^XMB(3.9,44,2,1768,0)=" .S IEN=0"
^XMB(3.9,44,2,1769,0)="""RTN"",""HLOCLNT2"",34,0)"
^XMB(3.9,44,2,1770,0)=" .F  S IEN=$O(^HLTMP(""CLIENT UPDATES"",DOLLARJ,TIME,IEN)) Q:'IEN  D"
^XMB(3.9,44,2,1771,0)="""RTN"",""HLOCLNT2"",35,0)"
^XMB(3.9,44,2,1772,0)=" ..N NODE"
^XMB(3.9,44,2,1773,0)="""RTN"",""HLOCLNT2"",36,0)"
^XMB(3.9,44,2,1774,0)=" ..S NODE=$G(^HLTMP(""CLIENT UPDATES"",DOLLARJ,TIME,IEN))"
^XMB(3.9,44,2,1775,0)="""RTN"",""HLOCLNT2"",37,0)"
^XMB(3.9,44,2,1776,0)=" ..S PARMS(""LINK"")=$P(NODE,""^"")"
^XMB(3.9,44,2,1777,0)="""RTN"",""HLOCLNT2"",38,0)"
^XMB(3.9,44,2,1778,0)=" ..S PARMS(""QUEUE"")=$P(NODE,""^"",2)"
^XMB(3.9,44,2,1779,0)="""RTN"",""HLOCLNT2"",39,0)"
^XMB(3.9,44,2,1780,0)=" ..S PARMS(""STATUS"")=$P(NODE,""^"",3)"
^XMB(3.9,44,2,1781,0)="""RTN"",""HLOCLNT2"",40,0)"
^XMB(3.9,44,2,1782,0)=" ..S PARMS(""PURGE TYPE"")=$P(NODE,""^"",4)"
^XMB(3.9,44,2,1783,0)="""RTN"",""HLOCLNT2"",41,0)"
^XMB(3.9,44,2,1784,0)=" ..S PARMS(""ACK TO IEN"")=+$P($P(NODE,""^"",4),""-"",2)"
^XMB(3.9,44,2,1785,0)="""RTN"",""HLOCLNT2"",42,0)"
^XMB(3.9,44,2,1786,0)=" ..S PARMS(""ACCEPT ACK"")=$P(NODE,""^"",5)"
^XMB(3.9,44,2,1787,0)="""RTN"",""HLOCLNT2"",43,0)"
^XMB(3.9,44,2,1788,0)=" ..S PARMS(""RECEIVING APP"")=$P(NODE,""^"",6)"
^XMB(3.9,44,2,1789,0)="""RTN"",""HLOCLNT2"",44,0)"
^XMB(3.9,44,2,1790,0)=" ..S:PARMS(""RECEIVING APP"")="""" PARMS(""RECEIVING APP"")=""UNKNOWN RECEIVING APPLICATION"""
^XMB(3.9,44,2,1791,0)="""RTN"",""HLOCLNT2"",45,0)"
^XMB(3.9,44,2,1792,0)=" ..S PARMS(""MSA"")=$G(^HLTMP(""CLIENT UPDATES"",DOLLARJ,TIME,IEN,""MSA""))"
^XMB(3.9,44,2,1793,0)="""RTN"",""HLOCLNT2"",46,0)"
^XMB(3.9,44,2,1794,0)=" ..S PARMS(""ACTION"")=$G(^HLTMP(""CLIENT UPDATES"",DOLLARJ,TIME,IEN,""ACTION""))"
^XMB(3.9,44,2,1795,0)="""RTN"",""HLOCLNT2"",47,0)"
^XMB(3.9,44,2,1796,0)=" ..D UPDATE(IEN,TIME,.PARMS)"
^XMB(3.9,44,2,1797,0)="""RTN"",""HLOCLNT2"",48,0)"
^XMB(3.9,44,2,1798,0)=" ..K ^HLTMP(""CLIENT UPDATES"",DOLLARJ,TIME,IEN)"
^XMB(3.9,44,2,1799,0)="""RTN"",""HLOCLNT2"",49,0)"
^XMB(3.9,44,2,1800,0)=" L -^HLTMP(""CLIENT UPDATES"",DOLLARJ)"
^XMB(3.9,44,2,1801,0)="""RTN"",""HLOCLNT2"",50,0)"
^XMB(3.9,44,2,1802,0)=" Q"
^XMB(3.9,44,2,1803,0)="""RTN"",""HLOCLNT2"",51,0)"
^XMB(3.9,44,2,1804,0)=" ;"
^XMB(3.9,44,2,1805,0)="""RTN"",""HLOCLNT2"",52,0)"
^XMB(3.9,44,2,1806,0)="UPDATE(MSGIEN,TIME,PARMS) ;"
^XMB(3.9,44,2,1807,0)="""RTN"",""HLOCLNT2"",53,0)"
^XMB(3.9,44,2,1808,0)=" S:PARMS(""STATUS"")]"""" $P(^HLB(MSGIEN,0),""^"",20)=PARMS(""STATUS"")"
^XMB(3.9,44,2,1809,0)="""RTN"",""HLOCLNT2"",54,0)"
^XMB(3.9,44,2,1810,0)=" S:PARMS(""STATUS"")=""SE"" ^HLB(""ERRORS"",""SE"",PARMS(""RECEIVING APP""),TIME,MSGIEN)="""""
^XMB(3.9,44,2,1811,0)="""RTN"",""HLOCLNT2"",55,0)"
^XMB(3.9,44,2,1812,0)=" S:PARMS(""STATUS"")=""AE"" ^HLB(""ERRORS"",""AE"",PARMS(""RECEIVING APP""),TIME,MSGIEN_""^"")="""""
^XMB(3.9,44,2,1813,0)="""RTN"",""HLOCLNT2"",56,0)"
^XMB(3.9,44,2,1814,0)=" S:PARMS(""ACCEPT ACK"") $P(^HLB(MSGIEN,0),""^"",17)=PARMS(""ACCEPT ACK"")"
^XMB(3.9,44,2,1815,0)="""RTN"",""HLOCLNT2"",57,0)"
^XMB(3.9,44,2,1816,0)=" S $P(^HLB(MSGIEN,0),""^"",16)=TIME"
^XMB(3.9,44,2,1817,0)="""RTN"",""HLOCLNT2"",58,0)"
^XMB(3.9,44,2,1818,0)=" S:PARMS(""MSA"")]"""" ^HLB(MSGIEN,4)=TIME_""^""_PARMS(""MSA"")"
^XMB(3.9,44,2,1819,0)="""RTN"",""HLOCLNT2"",59,0)"
^XMB(3.9,44,2,1820,0)=" I PARMS(""PURGE TYPE""),PARMS(""ACTION"")="""" D"
^XMB(3.9,44,2,1821,0)="""RTN"",""HLOCLNT2"",60,0)"
^XMB(3.9,44,2,1822,0)=" .;don't set purge if going on the infiler - let infiler do it"
^XMB(3.9,44,2,1823,0)="""RTN"",""HLOCLNT2"",61,0)"
^XMB(3.9,44,2,1824,0)=" .N PTIME"
^XMB(3.9,44,2,1825,0)="""RTN"",""HLOCLNT2"",62,0)"
^XMB(3.9,44,2,1826,0)=" .S:(PARMS(""PURGE TYPE"")=2) PTIME=$$FMADD^XLFDT(TIME,SYSTEM(""ERROR PURGE"")) ;error purge is in days"
^XMB(3.9,44,2,1827,0)="""RTN"",""HLOCLNT2"",63,0)"
^XMB(3.9,44,2,1828,0)=" .S:(PARMS(""PURGE TYPE"")'=2) PTIME=$$FMADD^XLFDT(TIME,,SYSTEM(""NORMAL PURGE"")) ;normal purge is in hours"
^XMB(3.9,44,2,1829,0)="""RTN"",""HLOCLNT2"",64,0)"
^XMB(3.9,44,2,1830,0)=" .S $P(^HLB(MSGIEN,0),""^"",9)=PTIME,^HLB(""AD"",""OUT"",PTIME,MSGIEN)="""""
^XMB(3.9,44,2,1831,0)="""RTN"",""HLOCLNT2"",65,0)"
^XMB(3.9,44,2,1832,0)=" .I PARMS(""ACK TO IEN""),$D(^HLB(PARMS(""ACK TO IEN""),0)) S $P(^HLB(PARMS(""ACK TO IEN""),0),""^"",9)=PTIME,^HLB(""AD"",""OUT"",PTIME,PARMS(""ACK TO IEN""))="""""
^XMB(3.9,44,2,1833,0)="""RTN"",""HLOCLNT2"",66,0)"
^XMB(3.9,44,2,1834,0)=" D:PARMS(""ACTION"")]"""""
^XMB(3.9,44,2,1835,0)="""RTN"",""HLOCLNT2"",67,0)"
^XMB(3.9,44,2,1836,0)=" .N PURGE"
^XMB(3.9,44,2,1837,0)="""RTN"",""HLOCLNT2"",68,0)"
^XMB(3.9,44,2,1838,0)=" .S PURGE=$S(PARMS(""PURGE TYPE""):1,1:0)"
^XMB(3.9,44,2,1839,0)="""RTN"",""HLOCLNT2"",69,0)"
^XMB(3.9,44,2,1840,0)=" .S:PARMS(""ACK TO IEN"") PURGE(""ACKTOIEN"")=PARMS(""ACK TO IEN"")"
^XMB(3.9,44,2,1841,0)="""RTN"",""HLOCLNT2"",70,0)"
^XMB(3.9,44,2,1842,0)=" .D INQUE^HLOQUE(PARMS(""LINK""),PARMS(""QUEUE""),MSGIEN,PARMS(""ACTION""),.PURGE)"
^XMB(3.9,44,2,1843,0)="""RTN"",""HLOCLNT2"",71,0)"
^XMB(3.9,44,2,1844,0)=" Q"
^XMB(3.9,44,2,1845,0)="""RTN"",""HLOCLNT2"",72,0)"
^XMB(3.9,44,2,1846,0)=" ;"
^XMB(3.9,44,2,1847,0)="""RTN"",""HLOCLNT2"",73,0)"
^XMB(3.9,44,2,1848,0)="GETMSG(IEN,MSG) ;"
^XMB(3.9,44,2,1849,0)="""RTN"",""HLOCLNT2"",74,0)"
^XMB(3.9,44,2,1850,0)=" ;"
^XMB(3.9,44,2,1851,0)="""RTN"",""HLOCLNT2"",75,0)"
^XMB(3.9,44,2,1852,0)=" ;Description: given the message ien=MSGIEN (required), it returns the MSG array containing information about the message, defined below."
^XMB(3.9,44,2,1853,0)="""RTN"",""HLOCLNT2"",76,0)"
^XMB(3.9,44,2,1854,0)=" ;Input:"
^XMB(3.9,44,2,1855,0)="""RTN"",""HLOCLNT2"",77,0)"
^XMB(3.9,44,2,1856,0)=" ;  IEN - the ien of the message in file 778"
^XMB(3.9,44,2,1857,0)="""RTN"",""HLOCLNT2"",78,0)"
^XMB(3.9,44,2,1858,0)=" ;Output:"
^XMB(3.9,44,2,1859,0)="""RTN"",""HLOCLNT2"",79,0)"
^XMB(3.9,44,2,1860,0)=" ;  Function returns 1 on success, 0 on failure"
^XMB(3.9,44,2,1861,0)="""RTN"",""HLOCLNT2"",80,0)"
^XMB(3.9,44,2,1862,0)=" ;  MSG (pass by reference, required) These are the subscripts returned:"
^XMB(3.9,44,2,1863,0)="""RTN"",""HLOCLNT2"",81,0)"
^XMB(3.9,44,2,1864,0)=" ;    ""ACCEPT ACK RESPONSE"" - if the sending app requested notification of the accept ack, this is the routine to perform"
^XMB(3.9,44,2,1865,0)="""RTN"",""HLOCLNT2"",82,0)"
^XMB(3.9,44,2,1866,0)=" ;    ""ACKTOIEN"" - if this is an app ack to a message not in a batch, this is the ien of the original message"
^XMB(3.9,44,2,1867,0)="""RTN"",""HLOCLNT2"",83,0)"
^XMB(3.9,44,2,1868,0)=" ;    ""BATCH""  = 1 if this is a batch message, 0  if not"
^XMB(3.9,44,2,1869,0)="""RTN"",""HLOCLNT2"",84,0)"
^XMB(3.9,44,2,1870,0)=" ;    ""CURRENT MESSAGE"" - defined only for batch messages -  a counterused during building and parsing messages to indicate the current message.  It will be set to 0 initially."
^XMB(3.9,44,2,1871,0)="""RTN"",""HLOCLNT2"",85,0)"
^XMB(3.9,44,2,1872,0)=" ;    ""BODY"" - ptr to file 778 which contains the body of the message."
^XMB(3.9,44,2,1873,0)="""RTN"",""HLOCLNT2"",86,0)"
^XMB(3.9,44,2,1874,0)=" ;    ""LINE COUNT"" -  a counter used during writing of the"
^XMB(3.9,44,2,1875,0)="""RTN"",""HLOCLNT2"",87,0)"
^XMB(3.9,44,2,1876,0)=" ;     messages to indicate the current line. For"
^XMB(3.9,44,2,1877,0)="""RTN"",""HLOCLNT2"",88,0)"
^XMB(3.9,44,2,1878,0)=" ;     batch messages where each message within the batch is stored"
^XMB(3.9,44,2,1879,0)="""RTN"",""HLOCLNT2"",89,0)"
^XMB(3.9,44,2,1880,0)=" ;     separately, this field indicates the position within the current"
^XMB(3.9,44,2,1881,0)="""RTN"",""HLOCLNT2"",90,0)"
^XMB(3.9,44,2,1882,0)=" ;     individual message"
^XMB(3.9,44,2,1883,0)="""RTN"",""HLOCLNT2"",91,0)"
^XMB(3.9,44,2,1884,0)=" ;    ""HDR"" at these lower subscripts:"
^XMB(3.9,44,2,1885,0)="""RTN"",""HLOCLNT2"",92,0)"
^XMB(3.9,44,2,1886,0)=" ;       1    - components 1-6"
^XMB(3.9,44,2,1887,0)="""RTN"",""HLOCLNT2"",93,0)"
^XMB(3.9,44,2,1888,0)=" ;       2    - components 7-end"
^XMB(3.9,44,2,1889,0)="""RTN"",""HLOCLNT2"",94,0)"
^XMB(3.9,44,2,1890,0)=" ;       ""ACCEPT ACK TYPE"" = ""AL"" or ""NE"""
^XMB(3.9,44,2,1891,0)="""RTN"",""HLOCLNT2"",95,0)"
^XMB(3.9,44,2,1892,0)=" ;       ""APP ACK TYPE"" = ""AL"" or ""NE"""
^XMB(3.9,44,2,1893,0)="""RTN"",""HLOCLNT2"",96,0)"
^XMB(3.9,44,2,1894,0)=" ;       ""MESSAGE CONTROL ID"" - defined if NOT batch"
^XMB(3.9,44,2,1895,0)="""RTN"",""HLOCLNT2"",97,0)"
^XMB(3.9,44,2,1896,0)=" ;       ""BATCH CONTROL ID"" - defined if batch"
^XMB(3.9,44,2,1897,0)="""RTN"",""HLOCLNT2"",98,0)"
^XMB(3.9,44,2,1898,0)=" ;"
^XMB(3.9,44,2,1899,0)="""RTN"",""HLOCLNT2"",99,0)"
^XMB(3.9,44,2,1900,0)=" ;    ""ID"" - message id from the header"
^XMB(3.9,44,2,1901,0)="""RTN"",""HLOCLNT2"",100,0)"
^XMB(3.9,44,2,1902,0)=" ;    ""IEN"" - ien, file 778"
^XMB(3.9,44,2,1903,0)="""RTN"",""HLOCLNT2"",101,0)"
^XMB(3.9,44,2,1904,0)=" ;"
^XMB(3.9,44,2,1905,0)="""RTN"",""HLOCLNT2"",102,0)"
^XMB(3.9,44,2,1906,0)=" K MSG"
^XMB(3.9,44,2,1907,0)="""RTN"",""HLOCLNT2"",103,0)"
^XMB(3.9,44,2,1908,0)=" Q:'$G(IEN) 0"
^XMB(3.9,44,2,1909,0)="""RTN"",""HLOCLNT2"",104,0)"
^XMB(3.9,44,2,1910,0)=" N NODE,FS,CS,REP,SUBCOMP,ESCAPE"
^XMB(3.9,44,2,1911,0)="""RTN"",""HLOCLNT2"",105,0)"
^XMB(3.9,44,2,1912,0)=" S MSG(""IEN"")=IEN"
^XMB(3.9,44,2,1913,0)="""RTN"",""HLOCLNT2"",106,0)"
^XMB(3.9,44,2,1914,0)=" S NODE=$G(^HLB(IEN,0))"
^XMB(3.9,44,2,1915,0)="""RTN"",""HLOCLNT2"",107,0)"
^XMB(3.9,44,2,1916,0)=" S MSG(""BODY"")=$P(NODE,""^"",2)"
^XMB(3.9,44,2,1917,0)="""RTN"",""HLOCLNT2"",108,0)"
^XMB(3.9,44,2,1918,0)=" Q:'MSG(""BODY"") 0"
^XMB(3.9,44,2,1919,0)="""RTN"",""HLOCLNT2"",109,0)"
^XMB(3.9,44,2,1920,0)=" S MSG(""STATUS"",""ACCEPTED"")=$P(NODE,""^"",17)"
^XMB(3.9,44,2,1921,0)="""RTN"",""HLOCLNT2"",110,0)"
^XMB(3.9,44,2,1922,0)=" S MSG(""DT/TM"")=$P(NODE,""^"",16)"
^XMB(3.9,44,2,1923,0)="""RTN"",""HLOCLNT2"",111,0)"
^XMB(3.9,44,2,1924,0)=" S MSG(""STATUS"",""QUEUE"")=$P(NODE,""^"",6)"
^XMB(3.9,44,2,1925,0)="""RTN"",""HLOCLNT2"",112,0)"
^XMB(3.9,44,2,1926,0)=" I MSG(""STATUS"",""QUEUE"")="""" S MSG(""STATUS"",""QUEUE"")=""DEFAULT"""
^XMB(3.9,44,2,1927,0)="""RTN"",""HLOCLNT2"",113,0)"
^XMB(3.9,44,2,1928,0)=" S MSG(""ACCEPT ACK RESPONSE"")=$P(NODE,""^"",12,13)"
^XMB(3.9,44,2,1929,0)="""RTN"",""HLOCLNT2"",114,0)"
^XMB(3.9,44,2,1930,0)=" I MSG(""ACCEPT ACK RESPONSE"")=""^"" S MSG(""ACCEPT ACK RESPONSE"")="""""
^XMB(3.9,44,2,1931,0)="""RTN"",""HLOCLNT2"",115,0)"
^XMB(3.9,44,2,1932,0)=" ;"
^XMB(3.9,44,2,1933,0)="""RTN"",""HLOCLNT2"",116,0)"
^XMB(3.9,44,2,1934,0)=" S MSG(""BATCH"")=+$P($G(^HLA(MSG(""BODY""),0)),""^"",2)"
^XMB(3.9,44,2,1935,0)="""RTN"",""HLOCLNT2"",117,0)"
^XMB(3.9,44,2,1936,0)=" I MSG(""BATCH"") D"
^XMB(3.9,44,2,1937,0)="""RTN"",""HLOCLNT2"",118,0)"
^XMB(3.9,44,2,1938,0)=" .S MSG(""BATCH"",""CURRENT MESSAGE"")=0"
^XMB(3.9,44,2,1939,0)="""RTN"",""HLOCLNT2"",119,0)"
^XMB(3.9,44,2,1940,0)=" E  D"
^XMB(3.9,44,2,1941,0)="""RTN"",""HLOCLNT2"",120,0)"
^XMB(3.9,44,2,1942,0)=" .N ACKTO"
^XMB(3.9,44,2,1943,0)="""RTN"",""HLOCLNT2"",121,0)"
^XMB(3.9,44,2,1944,0)=" .S ACKTO=$P(NODE,""^"",3)"
^XMB(3.9,44,2,1945,0)="""RTN"",""HLOCLNT2"",122,0)"
^XMB(3.9,44,2,1946,0)=" .I ACKTO]"""" S ACKTO=$$ACKTOIEN^HLOMSG1(MSG(""ID""),ACKTO)"
^XMB(3.9,44,2,1947,0)="""RTN"",""HLOCLNT2"",123,0)"
^XMB(3.9,44,2,1948,0)=" .I ACKTO,+ACKTO=ACKTO S MSG(""ACK TO IEN"")=ACKTO"
^XMB(3.9,44,2,1949,0)="""RTN"",""HLOCLNT2"",124,0)"
^XMB(3.9,44,2,1950,0)=" S MSG(""LINE COUNT"")=0"
^XMB(3.9,44,2,1951,0)="""RTN"",""HLOCLNT2"",125,0)"
^XMB(3.9,44,2,1952,0)=" S MSG(""HDR"",1)=$G(^HLB(IEN,1))"
^XMB(3.9,44,2,1953,0)="""RTN"",""HLOCLNT2"",126,0)"
^XMB(3.9,44,2,1954,0)=" S MSG(""HDR"",2)=$G(^HLB(IEN,2))"
^XMB(3.9,44,2,1955,0)="""RTN"",""HLOCLNT2"",127,0)"
^XMB(3.9,44,2,1956,0)=" S FS=$E(MSG(""HDR"",1),4)"
^XMB(3.9,44,2,1957,0)="""RTN"",""HLOCLNT2"",128,0)"
^XMB(3.9,44,2,1958,0)=" S CS=$E(MSG(""HDR"",1),5)"
^XMB(3.9,44,2,1959,0)="""RTN"",""HLOCLNT2"",129,0)"
^XMB(3.9,44,2,1960,0)=" S REP=$E(MSG(""HDR"",1),6)"
^XMB(3.9,44,2,1961,0)="""RTN"",""HLOCLNT2"",130,0)"
^XMB(3.9,44,2,1962,0)=" S ESCAPE=$E(MSG(""HDR"",1),7)"
^XMB(3.9,44,2,1963,0)="""RTN"",""HLOCLNT2"",131,0)"
^XMB(3.9,44,2,1964,0)=" S SUBCOMP=$E(MSG(""HDR"",1),8)"
^XMB(3.9,44,2,1965,0)="""RTN"",""HLOCLNT2"",132,0)"
^XMB(3.9,44,2,1966,0)=" S MSG(""HDR"",""FIELD SEPARATOR"")=FS"
^XMB(3.9,44,2,1967,0)="""RTN"",""HLOCLNT2"",133,0)"
^XMB(3.9,44,2,1968,0)=" S MSG(""HDR"",""SENDING APPLICATION"")=$$DESCAPE^HLOPRS1($P($P(MSG(""HDR"",1),FS,3),CS),FS,CS,SUBCOMP,REP,ESCAPE)"
^XMB(3.9,44,2,1969,0)="""RTN"",""HLOCLNT2"",134,0)"
^XMB(3.9,44,2,1970,0)=" S MSG(""HDR"",""RECEIVING APPLICATION"")=$$DESCAPE^HLOPRS1($P($P(MSG(""HDR"",1),FS,5),CS),FS,CS,SUBCOMP,REP,ESCAPE)"
^XMB(3.9,44,2,1971,0)="""RTN"",""HLOCLNT2"",135,0)"
^XMB(3.9,44,2,1972,0)=" I 'MSG(""BATCH"") D"
^XMB(3.9,44,2,1973,0)="""RTN"",""HLOCLNT2"",136,0)"
^XMB(3.9,44,2,1974,0)=" .S MSG(""HDR"",""MESSAGE TYPE"")=$P($P(MSG(""HDR"",2),FS,4),CS)"
^XMB(3.9,44,2,1975,0)="""RTN"",""HLOCLNT2"",137,0)"
^XMB(3.9,44,2,1976,0)=" .S MSG(""HDR"",""EVENT"")=$P($P(MSG(""HDR"",2),FS,4),CS,2)"
^XMB(3.9,44,2,1977,0)="""RTN"",""HLOCLNT2"",138,0)"
^XMB(3.9,44,2,1978,0)=" .S MSG(""HDR"",""ACCEPT ACK TYPE"")=$E($P(MSG(""HDR"",2),FS,10),1,2)"
^XMB(3.9,44,2,1979,0)="""RTN"",""HLOCLNT2"",139,0)"
^XMB(3.9,44,2,1980,0)=" .S MSG(""HDR"",""APP ACK TYPE"")=$E($P(MSG(""HDR"",2),FS,11),1,2)"
^XMB(3.9,44,2,1981,0)="""RTN"",""HLOCLNT2"",140,0)"
^XMB(3.9,44,2,1982,0)=" .S MSG(""HDR"",""MESSAGE CONTROL ID"")=$P(MSG(""HDR"",2),FS,5)"
^XMB(3.9,44,2,1983,0)="""RTN"",""HLOCLNT2"",141,0)"
^XMB(3.9,44,2,1984,0)=" .S MSG(""ID"")=MSG(""HDR"",""MESSAGE CONTROL ID"")"
^XMB(3.9,44,2,1985,0)="""RTN"",""HLOCLNT2"",142,0)"
^XMB(3.9,44,2,1986,0)=" E  D"
^XMB(3.9,44,2,1987,0)="""RTN"",""HLOCLNT2"",143,0)"
^XMB(3.9,44,2,1988,0)=" .S MSG(""HDR"",""BATCH CONTROL ID"")=$P(MSG(""HDR"",2),FS,6)"
^XMB(3.9,44,2,1989,0)="""RTN"",""HLOCLNT2"",144,0)"
^XMB(3.9,44,2,1990,0)=" .S MSG(""ID"")=MSG(""HDR"",""BATCH CONTROL ID"")"
^XMB(3.9,44,2,1991,0)="""RTN"",""HLOCLNT2"",145,0)"
^XMB(3.9,44,2,1992,0)=" .S MSG(""HDR"",""ACCEPT ACK TYPE"")=$E($P($P(MSG(""HDR"",2),FS,4),""ACCEPT ACK TYPE="",2),1,2)"
^XMB(3.9,44,2,1993,0)="""RTN"",""HLOCLNT2"",146,0)"
^XMB(3.9,44,2,1994,0)=" .S MSG(""HDR"",""APP ACK TYPE"")=$E($P($P(MSG(""HDR"",2),FS,4),""APP ACK TYPE="",2),1,2)"
^XMB(3.9,44,2,1995,0)="""RTN"",""HLOCLNT2"",147,0)"
^XMB(3.9,44,2,1996,0)=" Q 1"
^XMB(3.9,44,2,1997,0)="""RTN"",""HLOFILER"")"
^XMB(3.9,44,2,1998,0)="0^15^B25709739^B18562276"
^XMB(3.9,44,2,1999,0)="""RTN"",""HLOFILER"",1,0)"
^XMB(3.9,44,2,2000,0)="HLOFILER ;ALB/CJM- Passes messages on the incoming queue to the applications - 10/4/94 1pm"
^XMB(3.9,44,2,2001,0)="""RTN"",""HLOFILER"",2,0)"
^XMB(3.9,44,2,2002,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126,131**;Oct 13, 1995;Build 10"
^XMB(3.9,44,2,2003,0)="""RTN"",""HLOFILER"",3,0)"
^XMB(3.9,44,2,2004,0)=" ;"
^XMB(3.9,44,2,2005,0)="""RTN"",""HLOFILER"",4,0)"
^XMB(3.9,44,2,2006,0)=" ;GET WORK function for the process running under the Process Manager"
^XMB(3.9,44,2,2007,0)="""RTN"",""HLOFILER"",5,0)"
^XMB(3.9,44,2,2008,0)="GETWORK(QUE) ;"
^XMB(3.9,44,2,2009,0)="""RTN"",""HLOFILER"",6,0)"
^XMB(3.9,44,2,2010,0)=" ;Input:"
^XMB(3.9,44,2,2011,0)="""RTN"",""HLOFILER"",7,0)"
^XMB(3.9,44,2,2012,0)=" ;  QUE - (pass by reference) These subscripts are used:"
^XMB(3.9,44,2,2013,0)="""RTN"",""HLOFILER"",8,0)"
^XMB(3.9,44,2,2014,0)=" ;    (""FROM"") - sending facility last obtained"
^XMB(3.9,44,2,2015,0)="""RTN"",""HLOFILER"",9,0)"
^XMB(3.9,44,2,2016,0)=" ;    (""QUEUE"") - name of the queue last obtained"
^XMB(3.9,44,2,2017,0)="""RTN"",""HLOFILER"",10,0)"
^XMB(3.9,44,2,2018,0)=" ;Output:"
^XMB(3.9,44,2,2019,0)="""RTN"",""HLOFILER"",11,0)"
^XMB(3.9,44,2,2020,0)=" ;  Function returns 1 if success, 0 if no more work"
^XMB(3.9,44,2,2021,0)="""RTN"",""HLOFILER"",12,0)"
^XMB(3.9,44,2,2022,0)=" ;  QUE-  updated to identify next queu of messages to process."
^XMB(3.9,44,2,2023,0)="""RTN"",""HLOFILER"",13,0)"
^XMB(3.9,44,2,2024,0)=" ;"
^XMB(3.9,44,2,2025,0)="""RTN"",""HLOFILER"",14,0)"
^XMB(3.9,44,2,2026,0)=" N FROM,QUEUE"
^XMB(3.9,44,2,2027,0)="""RTN"",""HLOFILER"",15,0)"
^XMB(3.9,44,2,2028,0)=" I '$D(QUE(""SYSTEM"")) D"
^XMB(3.9,44,2,2029,0)="""RTN"",""HLOFILER"",16,0)"
^XMB(3.9,44,2,2030,0)=" .N SYS"
^XMB(3.9,44,2,2031,0)="""RTN"",""HLOFILER"",17,0)"
^XMB(3.9,44,2,2032,0)=" .D SYSPARMS^HLOSITE(.SYS)"
^XMB(3.9,44,2,2033,0)="""RTN"",""HLOFILER"",18,0)"
^XMB(3.9,44,2,2034,0)=" .S QUE(""SYSTEM"",""NORMAL PURGE"")=SYS(""NORMAL PURGE"")"
^XMB(3.9,44,2,2035,0)="""RTN"",""HLOFILER"",19,0)"
^XMB(3.9,44,2,2036,0)=" .S QUE(""SYSTEM"",""ERROR PURGE"")=SYS(""ERROR PURGE"")"
^XMB(3.9,44,2,2037,0)="""RTN"",""HLOFILER"",20,0)"
^XMB(3.9,44,2,2038,0)=" S FROM=$G(QUE(""FROM"")),QUEUE=$G(QUE(""QUEUE""))"
^XMB(3.9,44,2,2039,0)="""RTN"",""HLOFILER"",21,0)"
^XMB(3.9,44,2,2040,0)=" I ($G(FROM)]""""),($G(QUEUE)]"""") D"
^XMB(3.9,44,2,2041,0)="""RTN"",""HLOFILER"",22,0)"
^XMB(3.9,44,2,2042,0)=" .L -^HLB(""QUEUE"",""IN"",FROM,QUEUE)"
^XMB(3.9,44,2,2043,0)="""RTN"",""HLOFILER"",23,0)"
^XMB(3.9,44,2,2044,0)=" .F  S QUEUE=$O(^HLB(""QUEUE"",""IN"",FROM,QUEUE)) Q:(QUEUE="""")  I '$$STOPPED^HLOQUE(""IN"",QUEUE) L +^HLB(""QUEUE"",""IN"",FROM,QUEUE):0  Q:$T"
^XMB(3.9,44,2,2045,0)="""RTN"",""HLOFILER"",24,0)"
^XMB(3.9,44,2,2046,0)=" I ($G(FROM)]""""),($G(QUEUE)="""") D"
^XMB(3.9,44,2,2047,0)="""RTN"",""HLOFILER"",25,0)"
^XMB(3.9,44,2,2048,0)=" .F  S FROM=$O(^HLB(""QUEUE"",""IN"",FROM)) Q:FROM=""""  D  Q:($G(QUEUE)]"""")"
^XMB(3.9,44,2,2049,0)="""RTN"",""HLOFILER"",26,0)"
^XMB(3.9,44,2,2050,0)=" ..S QUEUE="""" F  S QUEUE=$O(^HLB(""QUEUE"",""IN"",FROM,QUEUE)) Q:(QUEUE="""")  I '$$STOPPED^HLOQUE(""IN"",QUEUE) L +^HLB(""QUEUE"",""IN"",FROM,QUEUE):0 Q:$T"
^XMB(3.9,44,2,2051,0)="""RTN"",""HLOFILER"",27,0)"
^XMB(3.9,44,2,2052,0)=" I FROM="""" D"
^XMB(3.9,44,2,2053,0)="""RTN"",""HLOFILER"",28,0)"
^XMB(3.9,44,2,2054,0)=" .F  S FROM=$O(^HLB(""QUEUE"",""IN"",FROM)) Q:FROM=""""  D  Q:($G(QUEUE)]"""")"
^XMB(3.9,44,2,2055,0)="""RTN"",""HLOFILER"",29,0)"
^XMB(3.9,44,2,2056,0)=" ..S QUEUE="""" F  S QUEUE=$O(^HLB(""QUEUE"",""IN"",FROM,QUEUE)) Q:(QUEUE="""")  I '$$STOPPED^HLOQUE(""IN"",QUEUE) L +^HLB(""QUEUE"",""IN"",FROM,QUEUE):0 Q:$T"
^XMB(3.9,44,2,2057,0)="""RTN"",""HLOFILER"",30,0)"
^XMB(3.9,44,2,2058,0)=" S QUE(""FROM"")=FROM,QUE(""QUEUE"")=QUEUE"
^XMB(3.9,44,2,2059,0)="""RTN"",""HLOFILER"",31,0)"
^XMB(3.9,44,2,2060,0)=" Q:(QUEUE]"""") 1"
^XMB(3.9,44,2,2061,0)="""RTN"",""HLOFILER"",32,0)"
^XMB(3.9,44,2,2062,0)=" Q 0"
^XMB(3.9,44,2,2063,0)="""RTN"",""HLOFILER"",33,0)"
^XMB(3.9,44,2,2064,0)=" ;"
^XMB(3.9,44,2,2065,0)="""RTN"",""HLOFILER"",34,0)"
^XMB(3.9,44,2,2066,0)="DOWORK(QUEUE) ;sends the messages on the queue"
^XMB(3.9,44,2,2067,0)="""RTN"",""HLOFILER"",35,0)"
^XMB(3.9,44,2,2068,0)=" N $ETRAP,$ESTACK S $ETRAP=""G ERROR^HLOFILER"""
^XMB(3.9,44,2,2069,0)="""RTN"",""HLOFILER"",36,0)"
^XMB(3.9,44,2,2070,0)=" ;"
^XMB(3.9,44,2,2071,0)="""RTN"",""HLOFILER"",37,0)"
^XMB(3.9,44,2,2072,0)=" N MSGIEN,DEQUE,QUE"
^XMB(3.9,44,2,2073,0)="""RTN"",""HLOFILER"",38,0)"
^XMB(3.9,44,2,2074,0)=" M QUE=QUEUE"
^XMB(3.9,44,2,2075,0)="""RTN"",""HLOFILER"",39,0)"
^XMB(3.9,44,2,2076,0)=" S DEQUE=0"
^XMB(3.9,44,2,2077,0)="""RTN"",""HLOFILER"",40,0)"
^XMB(3.9,44,2,2078,0)=" S MSGIEN=0"
^XMB(3.9,44,2,2079,0)="""RTN"",""HLOFILER"",41,0)"
^XMB(3.9,44,2,2080,0)=" ;"
^XMB(3.9,44,2,2081,0)="""RTN"",""HLOFILER"",42,0)"
^XMB(3.9,44,2,2082,0)=" F  S MSGIEN=$O(^HLB(""QUEUE"",""IN"",QUEUE(""FROM""),QUEUE(""QUEUE""),MSGIEN)) Q:'MSGIEN  D  M QUEUE=QUE"
^XMB(3.9,44,2,2083,0)="""RTN"",""HLOFILER"",43,0)"
^XMB(3.9,44,2,2084,0)=" .N MCODE,ACTION,QUE,PURGE,ACKTOIEN,NODE"
^XMB(3.9,44,2,2085,0)="""RTN"",""HLOFILER"",44,0)"
^XMB(3.9,44,2,2086,0)=" .N $ETRAP,$ESTACK S $ETRAP=""G ERROR2^HLOFILER"""
^XMB(3.9,44,2,2087,0)="""RTN"",""HLOFILER"",45,0)"
^XMB(3.9,44,2,2088,0)=" .S NODE=$G(^HLB(""QUEUE"",""IN"",QUEUE(""FROM""),QUEUE(""QUEUE""),MSGIEN))"
^XMB(3.9,44,2,2089,0)="""RTN"",""HLOFILER"",46,0)"
^XMB(3.9,44,2,2090,0)=" .S ACTION=$P(NODE,""^"",1,2)"
^XMB(3.9,44,2,2091,0)="""RTN"",""HLOFILER"",47,0)"
^XMB(3.9,44,2,2092,0)=" .S PURGE=$P(NODE,""^"",3)"
^XMB(3.9,44,2,2093,0)="""RTN"",""HLOFILER"",48,0)"
^XMB(3.9,44,2,2094,0)=" .S ACKTOIEN=$P(NODE,""^"",4)"
^XMB(3.9,44,2,2095,0)="""RTN"",""HLOFILER"",49,0)"
^XMB(3.9,44,2,2096,0)=" .D DEQUE(MSGIEN,PURGE,ACKTOIEN)"
^XMB(3.9,44,2,2097,0)="""RTN"",""HLOFILER"",50,0)"
^XMB(3.9,44,2,2098,0)=" .I ACTION]"""" D"
^XMB(3.9,44,2,2099,0)="""RTN"",""HLOFILER"",51,0)"
^XMB(3.9,44,2,2100,0)=" ..N HLMSGIEN,MCODE,DEQUE,DUZ"
^XMB(3.9,44,2,2101,0)="""RTN"",""HLOFILER"",52,0)"
^XMB(3.9,44,2,2102,0)=" ..N $ETRAP,$ESTACK S $ETRAP=""G ERROR3^HLOFILER"""
^XMB(3.9,44,2,2103,0)="""RTN"",""HLOFILER"",53,0)"
^XMB(3.9,44,2,2104,0)=" ..S HLMSGIEN=MSGIEN"
^XMB(3.9,44,2,2105,0)="""RTN"",""HLOFILER"",54,0)"
^XMB(3.9,44,2,2106,0)=" ..S MCODE=""D ""_ACTION"
^XMB(3.9,44,2,2107,0)="""RTN"",""HLOFILER"",55,0)"
^XMB(3.9,44,2,2108,0)=" ..N MSGIEN,X"
^XMB(3.9,44,2,2109,0)="""RTN"",""HLOFILER"",56,0)"
^XMB(3.9,44,2,2110,0)=" ..D DUZ^XUP(.5)"
^XMB(3.9,44,2,2111,0)="""RTN"",""HLOFILER"",57,0)"
^XMB(3.9,44,2,2112,0)=" ..X MCODE"
^XMB(3.9,44,2,2113,0)="""RTN"",""HLOFILER"",58,0)"
^XMB(3.9,44,2,2114,0)=" ..;kill the apps variables"
^XMB(3.9,44,2,2115,0)="""RTN"",""HLOFILER"",59,0)"
^XMB(3.9,44,2,2116,0)=" ..D"
^XMB(3.9,44,2,2117,0)="""RTN"",""HLOFILER"",60,0)"
^XMB(3.9,44,2,2118,0)=" ...N ZTSK"
^XMB(3.9,44,2,2119,0)="""RTN"",""HLOFILER"",61,0)"
^XMB(3.9,44,2,2120,0)=" ...D KILL^XUSCLEAN"
^XMB(3.9,44,2,2121,0)="""RTN"",""HLOFILER"",62,0)"
^XMB(3.9,44,2,2122,0)=" ;"
^XMB(3.9,44,2,2123,0)="""RTN"",""HLOFILER"",63,0)"
^XMB(3.9,44,2,2124,0)="ENDWORK ;where the execution resumes upon an error"
^XMB(3.9,44,2,2125,0)="""RTN"",""HLOFILER"",64,0)"
^XMB(3.9,44,2,2126,0)=" D DEQUE()"
^XMB(3.9,44,2,2127,0)="""RTN"",""HLOFILER"",65,0)"
^XMB(3.9,44,2,2128,0)=" Q"
^XMB(3.9,44,2,2129,0)="""RTN"",""HLOFILER"",66,0)"
^XMB(3.9,44,2,2130,0)=" ;"
^XMB(3.9,44,2,2131,0)="""RTN"",""HLOFILER"",67,0)"
^XMB(3.9,44,2,2132,0)="DEQUE(MSGIEN,PURGE,ACKTOIEN) ;"
^XMB(3.9,44,2,2133,0)="""RTN"",""HLOFILER"",68,0)"
^XMB(3.9,44,2,2134,0)=" ;Dequeues the message.  Also sets up the purge dt/tm and the completion status."
^XMB(3.9,44,2,2135,0)="""RTN"",""HLOFILER"",69,0)"
^XMB(3.9,44,2,2136,0)=" S:$G(MSGIEN) DEQUE=$G(DEQUE)+1,DEQUE(MSGIEN)=PURGE_""^""_ACKTOIEN"
^XMB(3.9,44,2,2137,0)="""RTN"",""HLOFILER"",70,0)"
^XMB(3.9,44,2,2138,0)=" I '$G(MSGIEN)!(DEQUE>25) S MSGIEN=0 D"
^XMB(3.9,44,2,2139,0)="""RTN"",""HLOFILER"",71,0)"
^XMB(3.9,44,2,2140,0)=" .F  S MSGIEN=$O(DEQUE(MSGIEN)) Q:'MSGIEN  D"
^XMB(3.9,44,2,2141,0)="""RTN"",""HLOFILER"",72,0)"
^XMB(3.9,44,2,2142,0)=" ..N NODE,PURGE,ACKTOIEN"
^XMB(3.9,44,2,2143,0)="""RTN"",""HLOFILER"",73,0)"
^XMB(3.9,44,2,2144,0)=" ..S NODE=DEQUE(MSGIEN)"
^XMB(3.9,44,2,2145,0)="""RTN"",""HLOFILER"",74,0)"
^XMB(3.9,44,2,2146,0)=" ..S PURGE=$P(NODE,""^""),ACKTOIEN=$P(NODE,""^"",2)"
^XMB(3.9,44,2,2147,0)="""RTN"",""HLOFILER"",75,0)"
^XMB(3.9,44,2,2148,0)=" ..D DEQUE^HLOQUE(QUEUE(""FROM""),QUEUE(""QUEUE""),""IN"",MSGIEN)"
^XMB(3.9,44,2,2149,0)="""RTN"",""HLOFILER"",76,0)"
^XMB(3.9,44,2,2150,0)=" ..S NODE=$G(^HLB(MSGIEN,0))"
^XMB(3.9,44,2,2151,0)="""RTN"",""HLOFILER"",77,0)"
^XMB(3.9,44,2,2152,0)=" ..Q:NODE="""""
^XMB(3.9,44,2,2153,0)="""RTN"",""HLOFILER"",78,0)"
^XMB(3.9,44,2,2154,0)=" ..S $P(NODE,""^"",19)=1 ;sets the flag to show that the app handoff was done"
^XMB(3.9,44,2,2155,0)="""RTN"",""HLOFILER"",79,0)"
^XMB(3.9,44,2,2156,0)=" ..D:PURGE"
^XMB(3.9,44,2,2157,0)="""RTN"",""HLOFILER"",80,0)"
^XMB(3.9,44,2,2158,0)=" ...N STATUS"
^XMB(3.9,44,2,2159,0)="""RTN"",""HLOFILER"",81,0)"
^XMB(3.9,44,2,2160,0)=" ...S STATUS=$P(NODE,""^"",20)"
^XMB(3.9,44,2,2161,0)="""RTN"",""HLOFILER"",82,0)"
^XMB(3.9,44,2,2162,0)=" ...S:STATUS="""" $P(NODE,""^"",20)=""SU"",STATUS=""SU"""
^XMB(3.9,44,2,2163,0)="""RTN"",""HLOFILER"",83,0)"
^XMB(3.9,44,2,2164,0)=" ...S $P(NODE,""^"",9)=$$FMADD^XLFDT($$NOW^XLFDT,,$S(STATUS'=""SU"":24*QUEUE(""SYSTEM"",""ERROR PURGE""),$D(^HLB(MSGIEN,3,1,0)):24*QUEUE(""SYSTEM"",""ERROR PURGE""),1:QUEUE(""SYSTEM"",""NORMAL PURGE"")))"
^XMB(3.9,44,2,2165,0)="""RTN"",""HLOFILER"",84,0)"
^XMB(3.9,44,2,2166,0)=" ...S ^HLB(""AD"",$S($E($P(NODE,""^"",4))=""I"":""IN"",1:""OUT""),$P(NODE,""^"",9),MSGIEN)="""""
^XMB(3.9,44,2,2167,0)="""RTN"",""HLOFILER"",85,0)"
^XMB(3.9,44,2,2168,0)=" ...I ACKTOIEN,$D(^HLB(ACKTOIEN,0)) S $P(^HLB(ACKTOIEN,0),""^"",9)=$P(NODE,""^"",9),^HLB(""AD"",$S($E($P(NODE,""^"",4))=""I"":""OUT"",1:""IN""),$P(NODE,""^"",9),ACKTOIEN)="""""
^XMB(3.9,44,2,2169,0)="""RTN"",""HLOFILER"",86,0)"
^XMB(3.9,44,2,2170,0)=" ..S ^HLB(MSGIEN,0)=NODE"
^XMB(3.9,44,2,2171,0)="""RTN"",""HLOFILER"",87,0)"
^XMB(3.9,44,2,2172,0)=" .K DEQUE S DEQUE=0"
^XMB(3.9,44,2,2173,0)="""RTN"",""HLOFILER"",88,0)"
^XMB(3.9,44,2,2174,0)=" Q"
^XMB(3.9,44,2,2175,0)="""RTN"",""HLOFILER"",89,0)"
^XMB(3.9,44,2,2176,0)=" ;"
^XMB(3.9,44,2,2177,0)="""RTN"",""HLOFILER"",90,0)"
^XMB(3.9,44,2,2178,0)="ERROR ;error trap"
^XMB(3.9,44,2,2179,0)="""RTN"",""HLOFILER"",91,0)"
^XMB(3.9,44,2,2180,0)=" S $ETRAP=""D UNWIND^%ZTER"""
^XMB(3.9,44,2,2181,0)="""RTN"",""HLOFILER"",92,0)"
^XMB(3.9,44,2,2182,0)=" ;"
^XMB(3.9,44,2,2183,0)="""RTN"",""HLOFILER"",93,0)"
^XMB(3.9,44,2,2184,0)=" D DEQUE()"
^XMB(3.9,44,2,2185,0)="""RTN"",""HLOFILER"",94,0)"
^XMB(3.9,44,2,2186,0)=" ;"
^XMB(3.9,44,2,2187,0)="""RTN"",""HLOFILER"",95,0)"
^XMB(3.9,44,2,2188,0)=" ;a lot of errors of the same type may indicate an endless loop, so keep  a count"
^XMB(3.9,44,2,2189,0)="""RTN"",""HLOFILER"",96,0)"
^XMB(3.9,44,2,2190,0)=" S ^TMP(""HL7 ERRORS"",$J,$ECODE)=$G(^TMP(""HL7 ERRORS"",$J,$ECODE))+1"
^XMB(3.9,44,2,2191,0)="""RTN"",""HLOFILER"",97,0)"
^XMB(3.9,44,2,2192,0)=" Q:($G(^TMP(""HL7 ERRORS"",$J,$ECODE))>100)  ;return to the Process Manager error trap"
^XMB(3.9,44,2,2193,0)="""RTN"",""HLOFILER"",98,0)"
^XMB(3.9,44,2,2194,0)=" ;"
^XMB(3.9,44,2,2195,0)="""RTN"",""HLOFILER"",99,0)"
^XMB(3.9,44,2,2196,0)=" ;while debugging quit on all errors - returns to the Process Manager error trap"
^XMB(3.9,44,2,2197,0)="""RTN"",""HLOFILER"",100,0)"
^XMB(3.9,44,2,2198,0)=" I $G(^HLTMP(""LOG ALL ERRORS"")) QUIT"
^XMB(3.9,44,2,2199,0)="""RTN"",""HLOFILER"",101,0)"
^XMB(3.9,44,2,2200,0)=" ;"
^XMB(3.9,44,2,2201,0)="""RTN"",""HLOFILER"",102,0)"
^XMB(3.9,44,2,2202,0)=" D ^%ZTER"
^XMB(3.9,44,2,2203,0)="""RTN"",""HLOFILER"",103,0)"
^XMB(3.9,44,2,2204,0)=" D UNWIND^%ZTER"
^XMB(3.9,44,2,2205,0)="""RTN"",""HLOFILER"",104,0)"
^XMB(3.9,44,2,2206,0)=" Q"
^XMB(3.9,44,2,2207,0)="""RTN"",""HLOFILER"",105,0)"
^XMB(3.9,44,2,2208,0)=" ;"
^XMB(3.9,44,2,2209,0)="""RTN"",""HLOFILER"",106,0)"
^XMB(3.9,44,2,2210,0)="ERROR2 ;"
^XMB(3.9,44,2,2211,0)="""RTN"",""HLOFILER"",107,0)"
^XMB(3.9,44,2,2212,0)=" S $ETRAP=""D UNWIND^%ZTER"""
^XMB(3.9,44,2,2213,0)="""RTN"",""HLOFILER"",108,0)"
^XMB(3.9,44,2,2214,0)=" ;"
^XMB(3.9,44,2,2215,0)="""RTN"",""HLOFILER"",109,0)"
^XMB(3.9,44,2,2216,0)=" D DEQUE()"
^XMB(3.9,44,2,2217,0)="""RTN"",""HLOFILER"",110,0)"
^XMB(3.9,44,2,2218,0)=" ;"
^XMB(3.9,44,2,2219,0)="""RTN"",""HLOFILER"",111,0)"
^XMB(3.9,44,2,2220,0)=" ;may need to change the status to Application Error"
^XMB(3.9,44,2,2221,0)="""RTN"",""HLOFILER"",112,0)"
^XMB(3.9,44,2,2222,0)=" D"
^XMB(3.9,44,2,2223,0)="""RTN"",""HLOFILER"",113,0)"
^XMB(3.9,44,2,2224,0)=" .N NODE,RAPP,FS,CS,HDR,TIME"
^XMB(3.9,44,2,2225,0)="""RTN"",""HLOFILER"",114,0)"
^XMB(3.9,44,2,2226,0)=" .S NODE=$G(^HLB(MSGIEN,0))"
^XMB(3.9,44,2,2227,0)="""RTN"",""HLOFILER"",115,0)"
^XMB(3.9,44,2,2228,0)=" .Q:NODE="""""
^XMB(3.9,44,2,2229,0)="""RTN"",""HLOFILER"",116,0)"
^XMB(3.9,44,2,2230,0)=" .Q:$P(NODE,""^"",20)=""AE"""
^XMB(3.9,44,2,2231,0)="""RTN"",""HLOFILER"",117,0)"
^XMB(3.9,44,2,2232,0)=" .S $P(NODE,""^"",20)=""AE"",$P(NODE,""^"",21)=""APPLICATION ROUTINE ERROR"""
^XMB(3.9,44,2,2233,0)="""RTN"",""HLOFILER"",118,0)"
^XMB(3.9,44,2,2234,0)=" .I $P(NODE,""^"",9) K ^HLB(""AD"",$S($E($P(NODE,""^"",4))=""I"":""IN"",1:""OUT""),$P(NODE,""^"",9),MSGIEN)"
^XMB(3.9,44,2,2235,0)="""RTN"",""HLOFILER"",119,0)"
^XMB(3.9,44,2,2236,0)=" .S $P(NODE,""^"",9)=$$FMADD^XLFDT($$NOW^XLFDT,,24*QUEUE(""SYSTEM"",""ERROR PURGE""))"
^XMB(3.9,44,2,2237,0)="""RTN"",""HLOFILER"",120,0)"
^XMB(3.9,44,2,2238,0)=" .S ^HLB(MSGIEN,0)=NODE"
^XMB(3.9,44,2,2239,0)="""RTN"",""HLOFILER"",121,0)"
^XMB(3.9,44,2,2240,0)=" .S ^HLB(""AD"",$S($E($P(NODE,""^"",4))=""I"":""IN"",1:""OUT""),$P(NODE,""^"",9),MSGIEN)="""""
^XMB(3.9,44,2,2241,0)="""RTN"",""HLOFILER"",122,0)"
^XMB(3.9,44,2,2242,0)=" .I $P(NODE,""^"",2) S TIME=+$G(^HLA($P(NODE,""^"",2),0))"
^XMB(3.9,44,2,2243,0)="""RTN"",""HLOFILER"",123,0)"
^XMB(3.9,44,2,2244,0)=" .Q:'$G(TIME)"
^XMB(3.9,44,2,2245,0)="""RTN"",""HLOFILER"",124,0)"
^XMB(3.9,44,2,2246,0)=" .S HDR=$G(^HLB(MSGIEN,1))"
^XMB(3.9,44,2,2247,0)="""RTN"",""HLOFILER"",125,0)"
^XMB(3.9,44,2,2248,0)=" .S FS=$E(HDR,4)"
^XMB(3.9,44,2,2249,0)="""RTN"",""HLOFILER"",126,0)"
^XMB(3.9,44,2,2250,0)=" .Q:FS="""""
^XMB(3.9,44,2,2251,0)="""RTN"",""HLOFILER"",127,0)"
^XMB(3.9,44,2,2252,0)=" .S CS=$E(HDR,5)"
^XMB(3.9,44,2,2253,0)="""RTN"",""HLOFILER"",128,0)"
^XMB(3.9,44,2,2254,0)=" .S RAPP=$P($P(HDR,FS,5),CS)"
^XMB(3.9,44,2,2255,0)="""RTN"",""HLOFILER"",129,0)"
^XMB(3.9,44,2,2256,0)=" .I RAPP="""" S RAPP=""UNKNOWN"""
^XMB(3.9,44,2,2257,0)="""RTN"",""HLOFILER"",130,0)"
^XMB(3.9,44,2,2258,0)=" .S ^HLB(""ERRORS"",""AE"",RAPP,TIME,MSGIEN)="""""
^XMB(3.9,44,2,2259,0)="""RTN"",""HLOFILER"",131,0)"
^XMB(3.9,44,2,2260,0)=" ;"
^XMB(3.9,44,2,2261,0)="""RTN"",""HLOFILER"",132,0)"
^XMB(3.9,44,2,2262,0)=" ;kill the apps variables"
^XMB(3.9,44,2,2263,0)="""RTN"",""HLOFILER"",133,0)"
^XMB(3.9,44,2,2264,0)=" D"
^XMB(3.9,44,2,2265,0)="""RTN"",""HLOFILER"",134,0)"
^XMB(3.9,44,2,2266,0)=" .N ZTSK,MSGIEN,QUEUE"
^XMB(3.9,44,2,2267,0)="""RTN"",""HLOFILER"",135,0)"
^XMB(3.9,44,2,2268,0)=" .D KILL^XUSCLEAN"
^XMB(3.9,44,2,2269,0)="""RTN"",""HLOFILER"",136,0)"
^XMB(3.9,44,2,2270,0)=" ;"
^XMB(3.9,44,2,2271,0)="""RTN"",""HLOFILER"",137,0)"
^XMB(3.9,44,2,2272,0)=" ;release all the locks the app may have set, except Taskman lock"
^XMB(3.9,44,2,2273,0)="""RTN"",""HLOFILER"",138,0)"
^XMB(3.9,44,2,2274,0)=" L:$D(ZTSK) ^%ZTSCH(""TASK"",ZTSK):1"
^XMB(3.9,44,2,2275,0)="""RTN"",""HLOFILER"",139,0)"
^XMB(3.9,44,2,2276,0)=" L:'$D(ZTSK)"
^XMB(3.9,44,2,2277,0)="""RTN"",""HLOFILER"",140,0)"
^XMB(3.9,44,2,2278,0)=" ;reset HLO's lock"
^XMB(3.9,44,2,2279,0)="""RTN"",""HLOFILER"",141,0)"
^XMB(3.9,44,2,2280,0)=" L +^HLTMP(""HL7 RUNNING PROCESSES"",$J):0"
^XMB(3.9,44,2,2281,0)="""RTN"",""HLOFILER"",142,0)"
^XMB(3.9,44,2,2282,0)=" ;return to processing the next message on the queue"
^XMB(3.9,44,2,2283,0)="""RTN"",""HLOFILER"",143,0)"
^XMB(3.9,44,2,2284,0)=" S $ECODE="""""
^XMB(3.9,44,2,2285,0)="""RTN"",""HLOFILER"",144,0)"
^XMB(3.9,44,2,2286,0)=" ;"
^XMB(3.9,44,2,2287,0)="""RTN"",""HLOFILER"",145,0)"
^XMB(3.9,44,2,2288,0)=" Q"
^XMB(3.9,44,2,2289,0)="""RTN"",""HLOFILER"",146,0)"
^XMB(3.9,44,2,2290,0)="ERROR3 ;error trap for application context"
^XMB(3.9,44,2,2291,0)="""RTN"",""HLOFILER"",147,0)"
^XMB(3.9,44,2,2292,0)=" S $ETRAP=""Q $ESTACK"""
^XMB(3.9,44,2,2293,0)="""RTN"",""HLOFILER"",148,0)"
^XMB(3.9,44,2,2294,0)=" D ^%ZTER"
^XMB(3.9,44,2,2295,0)="""RTN"",""HLOFILER"",149,0)"
^XMB(3.9,44,2,2296,0)=" S $ECODE="",UAPPLICATION ERROR,"""
^XMB(3.9,44,2,2297,0)="""RTN"",""HLOFILER"",150,0)"
^XMB(3.9,44,2,2298,0)=" ;"
^XMB(3.9,44,2,2299,0)="""RTN"",""HLOFILER"",151,0)"
^XMB(3.9,44,2,2300,0)=" ;drop to the ERROR2 error handler"
^XMB(3.9,44,2,2301,0)="""RTN"",""HLOFILER"",152,0)"
^XMB(3.9,44,2,2302,0)=" Q"
^XMB(3.9,44,2,2303,0)="""RTN"",""HLOPRS1"")"
^XMB(3.9,44,2,2304,0)="0^14^B19358044^B13347617"
^XMB(3.9,44,2,2305,0)="""RTN"",""HLOPRS1"",1,0)"
^XMB(3.9,44,2,2306,0)="HLOPRS1 ;IRMFO-ALB/CJM -RTNs for parsing messages (continued);03/24/2004  14:43"
^XMB(3.9,44,2,2307,0)="""RTN"",""HLOPRS1"",2,0)"
^XMB(3.9,44,2,2308,0)=" ;;1.6;HEALTH LEVEL SEVEN;**118,131**;Oct 13, 1995;Build 10"
^XMB(3.9,44,2,2309,0)="""RTN"",""HLOPRS1"",3,0)"
^XMB(3.9,44,2,2310,0)=" ;"
^XMB(3.9,44,2,2311,0)="""RTN"",""HLOPRS1"",4,0)"
^XMB(3.9,44,2,2312,0)="PARSE(FIELD,REP,COMP,SUBCOMP,ESCAPE,SEG,TO) ;"
^XMB(3.9,44,2,2313,0)="""RTN"",""HLOPRS1"",5,0)"
^XMB(3.9,44,2,2314,0)=" ;Parses the segment stored in SEG(1),SEG(2),... into TO()"
^XMB(3.9,44,2,2315,0)="""RTN"",""HLOPRS1"",6,0)"
^XMB(3.9,44,2,2316,0)=" ;Input:"
^XMB(3.9,44,2,2317,0)="""RTN"",""HLOPRS1"",7,0)"
^XMB(3.9,44,2,2318,0)=" ;  FIELD - field separator"
^XMB(3.9,44,2,2319,0)="""RTN"",""HLOPRS1"",8,0)"
^XMB(3.9,44,2,2320,0)=" ;  REP - field repetition separator"
^XMB(3.9,44,2,2321,0)="""RTN"",""HLOPRS1"",9,0)"
^XMB(3.9,44,2,2322,0)=" ;  COMP - component separator"
^XMB(3.9,44,2,2323,0)="""RTN"",""HLOPRS1"",10,0)"
^XMB(3.9,44,2,2324,0)=" ;  SUBCOMP - subcomponent separator"
^XMB(3.9,44,2,2325,0)="""RTN"",""HLOPRS1"",11,0)"
^XMB(3.9,44,2,2326,0)=" ;  ESCAPE - escape character"
^XMB(3.9,44,2,2327,0)="""RTN"",""HLOPRS1"",12,0)"
^XMB(3.9,44,2,2328,0)=" ;  SEG - (pass by reference) the array holding the unparsed segment."
^XMB(3.9,44,2,2329,0)="""RTN"",""HLOPRS1"",13,0)"
^XMB(3.9,44,2,2330,0)=" ;Output:"
^XMB(3.9,44,2,2331,0)="""RTN"",""HLOPRS1"",14,0)"
^XMB(3.9,44,2,2332,0)=" ;  Function returns 1 on success, 0 on failure"
^XMB(3.9,44,2,2333,0)="""RTN"",""HLOPRS1"",15,0)"
^XMB(3.9,44,2,2334,0)=" ;  TO - (pass by reference) - the parsed values"
^XMB(3.9,44,2,2335,0)="""RTN"",""HLOPRS1"",16,0)"
^XMB(3.9,44,2,2336,0)=" ;  SEG- This input variable is deleted during the processing.  If it is needs to be retained, pass in a copy!"
^XMB(3.9,44,2,2337,0)="""RTN"",""HLOPRS1"",17,0)"
^XMB(3.9,44,2,2338,0)=" ;"
^XMB(3.9,44,2,2339,0)="""RTN"",""HLOPRS1"",18,0)"
^XMB(3.9,44,2,2340,0)=" N VALUE,CHAR,COUNTS"
^XMB(3.9,44,2,2341,0)="""RTN"",""HLOPRS1"",19,0)"
^XMB(3.9,44,2,2342,0)=" K TO"
^XMB(3.9,44,2,2343,0)="""RTN"",""HLOPRS1"",20,0)"
^XMB(3.9,44,2,2344,0)=" Q:$L($G(FIELD))'=1 0"
^XMB(3.9,44,2,2345,0)="""RTN"",""HLOPRS1"",21,0)"
^XMB(3.9,44,2,2346,0)=" Q:$L($G(REP))'=1 0"
^XMB(3.9,44,2,2347,0)="""RTN"",""HLOPRS1"",22,0)"
^XMB(3.9,44,2,2348,0)=" Q:$L($G(COMP))'=1 0"
^XMB(3.9,44,2,2349,0)="""RTN"",""HLOPRS1"",23,0)"
^XMB(3.9,44,2,2350,0)=" Q:$L($G(SUBCOMP))'=1 0"
^XMB(3.9,44,2,2351,0)="""RTN"",""HLOPRS1"",24,0)"
^XMB(3.9,44,2,2352,0)=" Q:'$D(SEG) 0"
^XMB(3.9,44,2,2353,0)="""RTN"",""HLOPRS1"",25,0)"
^XMB(3.9,44,2,2354,0)=" S COUNTS(""FIELD"")=1"
^XMB(3.9,44,2,2355,0)="""RTN"",""HLOPRS1"",26,0)"
^XMB(3.9,44,2,2356,0)=" S COUNTS(""REP"")=1"
^XMB(3.9,44,2,2357,0)="""RTN"",""HLOPRS1"",27,0)"
^XMB(3.9,44,2,2358,0)=" S COUNTS(""COMP"")=1"
^XMB(3.9,44,2,2359,0)="""RTN"",""HLOPRS1"",28,0)"
^XMB(3.9,44,2,2360,0)=" S COUNTS(""SUBCOMP"")=1"
^XMB(3.9,44,2,2361,0)="""RTN"",""HLOPRS1"",29,0)"
^XMB(3.9,44,2,2362,0)=" S VALUE="""""
^XMB(3.9,44,2,2363,0)="""RTN"",""HLOPRS1"",30,0)"
^XMB(3.9,44,2,2364,0)=" S SEG(""LINE"")=$O(SEG(0)),SEG(""CHAR"")=0"
^XMB(3.9,44,2,2365,0)="""RTN"",""HLOPRS1"",31,0)"
^XMB(3.9,44,2,2366,0)=" F  S CHAR=$$NEXTCHAR(.SEG) D  Q:'$L(CHAR)"
^XMB(3.9,44,2,2367,0)="""RTN"",""HLOPRS1"",32,0)"
^XMB(3.9,44,2,2368,0)=" .I '$L(CHAR) D  Q"
^XMB(3.9,44,2,2369,0)="""RTN"",""HLOPRS1"",33,0)"
^XMB(3.9,44,2,2370,0)=" ..I $L(VALUE) S TO(COUNTS(""FIELD""),COUNTS(""REP""),COUNTS(""COMP""),COUNTS(""SUBCOMP""))=VALUE"
^XMB(3.9,44,2,2371,0)="""RTN"",""HLOPRS1"",34,0)"
^XMB(3.9,44,2,2372,0)=" .E  I CHAR=FIELD D  Q"
^XMB(3.9,44,2,2373,0)="""RTN"",""HLOPRS1"",35,0)"
^XMB(3.9,44,2,2374,0)=" ..I $L(VALUE) S TO(COUNTS(""FIELD""),COUNTS(""REP""),COUNTS(""COMP""),COUNTS(""SUBCOMP""))=$$DESCAPE(VALUE,.FIELD,.COMP,.SUBCOMP,.REP,.ESCAPE),VALUE="""""
^XMB(3.9,44,2,2375,0)="""RTN"",""HLOPRS1"",36,0)"
^XMB(3.9,44,2,2376,0)=" ..S COUNTS(""FIELD"")=COUNTS(""FIELD"")+1,COUNTS(""REP"")=1,COUNTS(""COMP"")=1,COUNTS(""SUBCOMP"")=1"
^XMB(3.9,44,2,2377,0)="""RTN"",""HLOPRS1"",37,0)"
^XMB(3.9,44,2,2378,0)=" .E  I CHAR=REP D  Q"
^XMB(3.9,44,2,2379,0)="""RTN"",""HLOPRS1"",38,0)"
^XMB(3.9,44,2,2380,0)=" ..I $L(VALUE) S TO(COUNTS(""FIELD""),COUNTS(""REP""),COUNTS(""COMP""),COUNTS(""SUBCOMP""))=$$DESCAPE(VALUE,.FIELD,.COMP,.SUBCOMP,.REP,.ESCAPE),VALUE="""""
^XMB(3.9,44,2,2381,0)="""RTN"",""HLOPRS1"",39,0)"
^XMB(3.9,44,2,2382,0)=" ..S COUNTS(""REP"")=COUNTS(""REP"")+1,COUNTS(""COMP"")=1,COUNTS(""SUBCOMP"")=1"
^XMB(3.9,44,2,2383,0)="""RTN"",""HLOPRS1"",40,0)"
^XMB(3.9,44,2,2384,0)=" .E  I CHAR=COMP D  Q"
^XMB(3.9,44,2,2385,0)="""RTN"",""HLOPRS1"",41,0)"
^XMB(3.9,44,2,2386,0)=" ..I $L(VALUE) S TO(COUNTS(""FIELD""),COUNTS(""REP""),COUNTS(""COMP""),COUNTS(""SUBCOMP""))=$$DESCAPE(VALUE,.FIELD,.COMP,.SUBCOMP,.REP,.ESCAPE),VALUE="""""
^XMB(3.9,44,2,2387,0)="""RTN"",""HLOPRS1"",42,0)"
^XMB(3.9,44,2,2388,0)=" ..S COUNTS(""COMP"")=COUNTS(""COMP"")+1,COUNTS(""SUBCOMP"")=1"
^XMB(3.9,44,2,2389,0)="""RTN"",""HLOPRS1"",43,0)"
^XMB(3.9,44,2,2390,0)=" .E  I CHAR=SUBCOMP D  Q"
^XMB(3.9,44,2,2391,0)="""RTN"",""HLOPRS1"",44,0)"
^XMB(3.9,44,2,2392,0)=" ..I $L(VALUE) S TO(COUNTS(""FIELD""),COUNTS(""REP""),COUNTS(""COMP""),COUNTS(""SUBCOMP""))=$$DESCAPE(VALUE,.FIELD,.COMP,.SUBCOMP,.REP,.ESCAPE),VALUE="""""
^XMB(3.9,44,2,2393,0)="""RTN"",""HLOPRS1"",45,0)"
^XMB(3.9,44,2,2394,0)=" ..S COUNTS(""SUBCOMP"")=COUNTS(""SUBCOMP"")+1"
^XMB(3.9,44,2,2395,0)="""RTN"",""HLOPRS1"",46,0)"
^XMB(3.9,44,2,2396,0)=" .E  S VALUE=VALUE_CHAR"
^XMB(3.9,44,2,2397,0)="""RTN"",""HLOPRS1"",47,0)"
^XMB(3.9,44,2,2398,0)=" S TO(""SEGMENT TYPE"")=$G(TO(1,1,1,1))"
^XMB(3.9,44,2,2399,0)="""RTN"",""HLOPRS1"",48,0)"
^XMB(3.9,44,2,2400,0)=" I (TO(""SEGMENT TYPE"")=""BHS"")!(TO(""SEGMENT TYPE"")=""MSH"") S TO(""FIELD SEPARATOR"")=FIELD"
^XMB(3.9,44,2,2401,0)="""RTN"",""HLOPRS1"",49,0)"
^XMB(3.9,44,2,2402,0)=" Q 1"
^XMB(3.9,44,2,2403,0)="""RTN"",""HLOPRS1"",50,0)"
^XMB(3.9,44,2,2404,0)=" ;"
^XMB(3.9,44,2,2405,0)="""RTN"",""HLOPRS1"",51,0)"
^XMB(3.9,44,2,2406,0)="NEXTCHAR(SEG) ;"
^XMB(3.9,44,2,2407,0)="""RTN"",""HLOPRS1"",52,0)"
^XMB(3.9,44,2,2408,0)=" ;returns the next character in the segment array"
^XMB(3.9,44,2,2409,0)="""RTN"",""HLOPRS1"",53,0)"
^XMB(3.9,44,2,2410,0)=" ;"
^XMB(3.9,44,2,2411,0)="""RTN"",""HLOPRS1"",54,0)"
^XMB(3.9,44,2,2412,0)=" Q:'SEG(""LINE"") """""
^XMB(3.9,44,2,2413,0)="""RTN"",""HLOPRS1"",55,0)"
^XMB(3.9,44,2,2414,0)=" N RET"
^XMB(3.9,44,2,2415,0)="""RTN"",""HLOPRS1"",56,0)"
^XMB(3.9,44,2,2416,0)=" S SEG(""CHAR"")=SEG(""CHAR"")+1"
^XMB(3.9,44,2,2417,0)="""RTN"",""HLOPRS1"",57,0)"
^XMB(3.9,44,2,2418,0)=" S RET=$E(SEG(SEG(""LINE"")),SEG(""CHAR""))"
^XMB(3.9,44,2,2419,0)="""RTN"",""HLOPRS1"",58,0)"
^XMB(3.9,44,2,2420,0)=" Q:RET]"""" RET"
^XMB(3.9,44,2,2421,0)="""RTN"",""HLOPRS1"",59,0)"
^XMB(3.9,44,2,2422,0)=" S SEG(""LINE"")=$O(SEG(SEG(""LINE"")))"
^XMB(3.9,44,2,2423,0)="""RTN"",""HLOPRS1"",60,0)"
^XMB(3.9,44,2,2424,0)=" I SEG(""LINE"") S SEG(""CHAR"")=1 Q $E(SEG(SEG(""LINE"")))"
^XMB(3.9,44,2,2425,0)="""RTN"",""HLOPRS1"",61,0)"
^XMB(3.9,44,2,2426,0)=" Q """""
^XMB(3.9,44,2,2427,0)="""RTN"",""HLOPRS1"",62,0)"
^XMB(3.9,44,2,2428,0)=" ;"
^XMB(3.9,44,2,2429,0)="""RTN"",""HLOPRS1"",63,0)"
^XMB(3.9,44,2,2430,0)="DESCAPE(VALUE,FIELD,COMP,SUBCOMP,REP,ESCAPE) ;"
^XMB(3.9,44,2,2431,0)="""RTN"",""HLOPRS1"",64,0)"
^XMB(3.9,44,2,2432,0)=" ;Replaces the escape sequences with the corresponding encoding character and returns the result as the function value"
^XMB(3.9,44,2,2433,0)="""RTN"",""HLOPRS1"",65,0)"
^XMB(3.9,44,2,2434,0)=" ;"
^XMB(3.9,44,2,2435,0)="""RTN"",""HLOPRS1"",66,0)"
^XMB(3.9,44,2,2436,0)=" N NEWSTRNG,SUBSTRNG,SET,LEN,I,SUBLEN,CHAR"
^XMB(3.9,44,2,2437,0)="""RTN"",""HLOPRS1"",67,0)"
^XMB(3.9,44,2,2438,0)=" S (NEWSTRNG,SUBSTRNG,SUBLEN)="""""
^XMB(3.9,44,2,2439,0)="""RTN"",""HLOPRS1"",68,0)"
^XMB(3.9,44,2,2440,0)=" S SET=""FSTRE"""
^XMB(3.9,44,2,2441,0)="""RTN"",""HLOPRS1"",69,0)"
^XMB(3.9,44,2,2442,0)=" S LEN=$L(VALUE)"
^XMB(3.9,44,2,2443,0)="""RTN"",""HLOPRS1"",70,0)"
^XMB(3.9,44,2,2444,0)=" F I=1:1:LEN S SUBSTRNG=SUBSTRNG_$E(VALUE,I),SUBLEN=SUBLEN+1 D:SUBLEN=3"
^XMB(3.9,44,2,2445,0)="""RTN"",""HLOPRS1"",71,0)"
^XMB(3.9,44,2,2446,0)=" .S CHAR=$E(SUBSTRNG,2)"
^XMB(3.9,44,2,2447,0)="""RTN"",""HLOPRS1"",72,0)"
^XMB(3.9,44,2,2448,0)=" .I $E(SUBSTRNG,1)=ESCAPE,$E(SUBSTRNG,3)=ESCAPE,SET[CHAR D"
^XMB(3.9,44,2,2449,0)="""RTN"",""HLOPRS1"",73,0)"
^XMB(3.9,44,2,2450,0)=" ..I CHAR=""F"" S NEWSTRNG=NEWSTRNG_FIELD,SUBSTRNG="""",SUBLEN=0 Q"
^XMB(3.9,44,2,2451,0)="""RTN"",""HLOPRS1"",74,0)"
^XMB(3.9,44,2,2452,0)=" ..I CHAR=""S"" S NEWSTRNG=NEWSTRNG_COMP,SUBSTRNG="""",SUBLEN=0 Q"
^XMB(3.9,44,2,2453,0)="""RTN"",""HLOPRS1"",75,0)"
^XMB(3.9,44,2,2454,0)=" ..I CHAR=""T"" S NEWSTRNG=NEWSTRNG_SUBCOMP,SUBSTRNG="""",SUBLEN=0 Q"
^XMB(3.9,44,2,2455,0)="""RTN"",""HLOPRS1"",76,0)"
^XMB(3.9,44,2,2456,0)=" ..I CHAR=""R"" S NEWSTRNG=NEWSTRNG_REP,SUBSTRNG="""",SUBLEN=0 Q"
^XMB(3.9,44,2,2457,0)="""RTN"",""HLOPRS1"",77,0)"
^XMB(3.9,44,2,2458,0)=" ..I CHAR=""E"" S NEWSTRNG=NEWSTRNG_ESCAPE,SUBSTRNG="""",SUBLEN=0 Q"
^XMB(3.9,44,2,2459,0)="""RTN"",""HLOPRS1"",78,0)"
^XMB(3.9,44,2,2460,0)=" .E  S NEWSTRNG=NEWSTRNG_$E(SUBSTRNG),SUBSTRNG=$E(SUBSTRNG,2,3),SUBLEN=2"
^XMB(3.9,44,2,2461,0)="""RTN"",""HLOPRS1"",79,0)"
^XMB(3.9,44,2,2462,0)=" Q NEWSTRNG_SUBSTRNG"
^XMB(3.9,44,2,2463,0)="""RTN"",""HLOPRS1"",80,0)"
^XMB(3.9,44,2,2464,0)=" ;"
^XMB(3.9,44,2,2465,0)="""RTN"",""HLOPRS1"",81,0)"
^XMB(3.9,44,2,2466,0)="GETCODE(SEG,VALUE,FIELD,COMP,REP) ;"
^XMB(3.9,44,2,2467,0)="""RTN"",""HLOPRS1"",82,0)"
^XMB(3.9,44,2,2468,0)=" ;Implements GETCNE and GETCWE"
^XMB(3.9,44,2,2469,0)="""RTN"",""HLOPRS1"",83,0)"
^XMB(3.9,44,2,2470,0)=" ;"
^XMB(3.9,44,2,2471,0)="""RTN"",""HLOPRS1"",84,0)"
^XMB(3.9,44,2,2472,0)=" N SUB,VAR"
^XMB(3.9,44,2,2473,0)="""RTN"",""HLOPRS1"",85,0)"
^XMB(3.9,44,2,2474,0)=" Q:'$G(FIELD)"
^XMB(3.9,44,2,2475,0)="""RTN"",""HLOPRS1"",86,0)"
^XMB(3.9,44,2,2476,0)=" I '$G(COMP) D"
^XMB(3.9,44,2,2477,0)="""RTN"",""HLOPRS1"",87,0)"
^XMB(3.9,44,2,2478,0)=" .S VAR=""COMP"",SUB=1"
^XMB(3.9,44,2,2479,0)="""RTN"",""HLOPRS1"",88,0)"
^XMB(3.9,44,2,2480,0)=" E  D"
^XMB(3.9,44,2,2481,0)="""RTN"",""HLOPRS1"",89,0)"
^XMB(3.9,44,2,2482,0)=" .S VAR=""SUB"""
^XMB(3.9,44,2,2483,0)="""RTN"",""HLOPRS1"",90,0)"
^XMB(3.9,44,2,2484,0)=" S:'$G(REP) REP=1"
^XMB(3.9,44,2,2485,0)="""RTN"",""HLOPRS1"",91,0)"
^XMB(3.9,44,2,2486,0)=" S @VAR=1,VALUE(""ID"")=$$GET^HLOPRS(.SEG,FIELD,COMP,SUB,REP)"
^XMB(3.9,44,2,2487,0)="""RTN"",""HLOPRS1"",92,0)"
^XMB(3.9,44,2,2488,0)=" S @VAR=2,VALUE(""TEXT"")=$$GET^HLOPRS(.SEG,FIELD,COMP,SUB,REP)"
^XMB(3.9,44,2,2489,0)="""RTN"",""HLOPRS1"",93,0)"
^XMB(3.9,44,2,2490,0)=" S @VAR=3,VALUE(""SYSTEM"")=$$GET^HLOPRS(.SEG,FIELD,COMP,SUB,REP)"
^XMB(3.9,44,2,2491,0)="""RTN"",""HLOPRS1"",94,0)"
^XMB(3.9,44,2,2492,0)=" S @VAR=4,VALUE(""ALTERNATE ID"")=$$GET^HLOPRS(.SEG,FIELD,COMP,SUB,REP)"
^XMB(3.9,44,2,2493,0)="""RTN"",""HLOPRS1"",95,0)"
^XMB(3.9,44,2,2494,0)=" S @VAR=5,VALUE(""ALTERNATE TEXT"")=$$GET^HLOPRS(.SEG,FIELD,COMP,SUB,REP)"
^XMB(3.9,44,2,2495,0)="""RTN"",""HLOPRS1"",96,0)"
^XMB(3.9,44,2,2496,0)=" S @VAR=6,VALUE(""ALTERNATE SYSTEM"")=$$GET^HLOPRS(.SEG,FIELD,COMP,SUB,RE)"
^XMB(3.9,44,2,2497,0)="""RTN"",""HLOPRS1"",97,0)"
^XMB(3.9,44,2,2498,0)=" S @VAR=7,VALUE(""SYSTEM VERSION"")=$$GET^HLOPRS(.SEG,FIELD,COMP,SUB,REP)"
^XMB(3.9,44,2,2499,0)="""RTN"",""HLOPRS1"",98,0)"
^XMB(3.9,44,2,2500,0)=" S @VAR=8,VALUE(""ALTERNATE SYSTEM VERSION"")=$$GET^HLOPRS(.SEG,FIELD,COM)"
^XMB(3.9,44,2,2501,0)="""RTN"",""HLOPRS1"",99,0)"
^XMB(3.9,44,2,2502,0)=" S @VAR=9,VALUE(""ORIGINAL TEXT"")=$$GET^HLOPRS(.SEG,FIELD,COMP,SUB,REP)"
^XMB(3.9,44,2,2503,0)="""RTN"",""HLOPRS1"",100,0)"
^XMB(3.9,44,2,2504,0)=" Q"
^XMB(3.9,44,2,2505,0)="""RTN"",""HLOPRS2"")"
^XMB(3.9,44,2,2506,0)="0^8^B25178316"
^XMB(3.9,44,2,2507,0)="""RTN"",""HLOPRS2"",1,0)"
^XMB(3.9,44,2,2508,0)="HLOPRS2 ;ALB/CJM-HL7 - Developer API's for parsing messages(continued) ;02/04/2004"
^XMB(3.9,44,2,2509,0)="""RTN"",""HLOPRS2"",2,0)"
^XMB(3.9,44,2,2510,0)=" ;;1.6;HEALTH LEVEL SEVEN;**131**;Oct 13, 1995;Build 10"
^XMB(3.9,44,2,2511,0)="""RTN"",""HLOPRS2"",3,0)"
^XMB(3.9,44,2,2512,0)=" ;"
^XMB(3.9,44,2,2513,0)="""RTN"",""HLOPRS2"",4,0)"
^XMB(3.9,44,2,2514,0)="GETTS(SEG,VALUE,FIELD,COMP,REP) ;"
^XMB(3.9,44,2,2515,0)="""RTN"",""HLOPRS2"",5,0)"
^XMB(3.9,44,2,2516,0)=" ;Gets a segment value that is a timestamp in HL7 format and converts it "
^XMB(3.9,44,2,2517,0)="""RTN"",""HLOPRS2"",6,0)"
^XMB(3.9,44,2,2518,0)=" ;to FileMan format. IF the segment value included the timezone, it is"
^XMB(3.9,44,2,2519,0)="""RTN"",""HLOPRS2"",7,0)"
^XMB(3.9,44,2,2520,0)=" ;the timestamp is converted to local time. The degree of precision"
^XMB(3.9,44,2,2521,0)="""RTN"",""HLOPRS2"",8,0)"
^XMB(3.9,44,2,2522,0)=" ;is optionally returned."
^XMB(3.9,44,2,2523,0)="""RTN"",""HLOPRS2"",9,0)"
^XMB(3.9,44,2,2524,0)=" ;"
^XMB(3.9,44,2,2525,0)="""RTN"",""HLOPRS2"",10,0)"
^XMB(3.9,44,2,2526,0)=" ;IF the component is specified, then the component is parsed for data type rather than at the higher field level."
^XMB(3.9,44,2,2527,0)="""RTN"",""HLOPRS2"",11,0)"
^XMB(3.9,44,2,2528,0)=" ;"
^XMB(3.9,44,2,2529,0)="""RTN"",""HLOPRS2"",12,0)"
^XMB(3.9,44,2,2530,0)=" ;"
^XMB(3.9,44,2,2531,0)="""RTN"",""HLOPRS2"",13,0)"
^XMB(3.9,44,2,2532,0)=" ;Input:"
^XMB(3.9,44,2,2533,0)="""RTN"",""HLOPRS2"",14,0)"
^XMB(3.9,44,2,2534,0)=" ;  SEG - (required, pass by reference) The array returned by a  call to $$NEXTSEG^HLOPRS."
^XMB(3.9,44,2,2535,0)="""RTN"",""HLOPRS2"",15,0)"
^XMB(3.9,44,2,2536,0)=" ;  FIELD - The sequence # of the field."
^XMB(3.9,44,2,2537,0)="""RTN"",""HLOPRS2"",16,0)"
^XMB(3.9,44,2,2538,0)=" ;  COMP (optional) If specified, the data type is parsed as a component  value."
^XMB(3.9,44,2,2539,0)="""RTN"",""HLOPRS2"",17,0)"
^XMB(3.9,44,2,2540,0)=" ;  REP - The occurrence # (optional, defaults to 1).  For a non-repeating fields, this parameter is not necessary."
^XMB(3.9,44,2,2541,0)="""RTN"",""HLOPRS2"",18,0)"
^XMB(3.9,44,2,2542,0)=" ;Output:"
^XMB(3.9,44,2,2543,0)="""RTN"",""HLOPRS2"",19,0)"
^XMB(3.9,44,2,2544,0)=" ;  VALUE  (required) The date/time in FileMan format."
^XMB(3.9,44,2,2545,0)="""RTN"",""HLOPRS2"",20,0)"
^XMB(3.9,44,2,2546,0)=" ;  VALUE(""PRECISION"") (optional) If needed, VALUE must be passed by"
^XMB(3.9,44,2,2547,0)="""RTN"",""HLOPRS2"",21,0)"
^XMB(3.9,44,2,2548,0)=" ;       reference.  Expected values are:"
^XMB(3.9,44,2,2549,0)="""RTN"",""HLOPRS2"",22,0)"
^XMB(3.9,44,2,2550,0)=" ;           ""S"" - second"
^XMB(3.9,44,2,2551,0)="""RTN"",""HLOPRS2"",23,0)"
^XMB(3.9,44,2,2552,0)=" ;           ""M"" - minute"
^XMB(3.9,44,2,2553,0)="""RTN"",""HLOPRS2"",24,0)"
^XMB(3.9,44,2,2554,0)=" ;           ""H"" - hour"
^XMB(3.9,44,2,2555,0)="""RTN"",""HLOPRS2"",25,0)"
^XMB(3.9,44,2,2556,0)=" ;           ""D"" - day"
^XMB(3.9,44,2,2557,0)="""RTN"",""HLOPRS2"",26,0)"
^XMB(3.9,44,2,2558,0)=" ;           ""L"" - month"
^XMB(3.9,44,2,2559,0)="""RTN"",""HLOPRS2"",27,0)"
^XMB(3.9,44,2,2560,0)=" ;           ""Y"" - year"
^XMB(3.9,44,2,2561,0)="""RTN"",""HLOPRS2"",28,0)"
^XMB(3.9,44,2,2562,0)=" ;           """" - precision not specified"
^XMB(3.9,44,2,2563,0)="""RTN"",""HLOPRS2"",29,0)"
^XMB(3.9,44,2,2564,0)=" ;   Note:  FM does not allow greater precision than seconds, so this API will round off to the second."
^XMB(3.9,44,2,2565,0)="""RTN"",""HLOPRS2"",30,0)"
^XMB(3.9,44,2,2566,0)=" ;"
^XMB(3.9,44,2,2567,0)="""RTN"",""HLOPRS2"",31,0)"
^XMB(3.9,44,2,2568,0)=" N TIME,PREC,VAR"
^XMB(3.9,44,2,2569,0)="""RTN"",""HLOPRS2"",32,0)"
^XMB(3.9,44,2,2570,0)=" Q:'$G(FIELD)"
^XMB(3.9,44,2,2571,0)="""RTN"",""HLOPRS2"",33,0)"
^XMB(3.9,44,2,2572,0)=" I '$G(COMP) D"
^XMB(3.9,44,2,2573,0)="""RTN"",""HLOPRS2"",34,0)"
^XMB(3.9,44,2,2574,0)=" .S VAR=""COMP"",SUB=1"
^XMB(3.9,44,2,2575,0)="""RTN"",""HLOPRS2"",35,0)"
^XMB(3.9,44,2,2576,0)=" E  D"
^XMB(3.9,44,2,2577,0)="""RTN"",""HLOPRS2"",36,0)"
^XMB(3.9,44,2,2578,0)=" .S VAR=""SUB"""
^XMB(3.9,44,2,2579,0)="""RTN"",""HLOPRS2"",37,0)"
^XMB(3.9,44,2,2580,0)=" S:'$G(REP) REP=1"
^XMB(3.9,44,2,2581,0)="""RTN"",""HLOPRS2"",38,0)"
^XMB(3.9,44,2,2582,0)=" S @VAR=1,TIME=$$GET^HLOPRS(.SEG,FIELD,COMP,SUB,REP)"
^XMB(3.9,44,2,2583,0)="""RTN"",""HLOPRS2"",39,0)"
^XMB(3.9,44,2,2584,0)=" S @VAR=2,PREC=$$GET^HLOPRS(.SEG,FIELD,COMP,SUB,REP)"
^XMB(3.9,44,2,2585,0)="""RTN"",""HLOPRS2"",40,0)"
^XMB(3.9,44,2,2586,0)=" S VALUE=$$HL7TFM^XLFDT(TIME)"
^XMB(3.9,44,2,2587,0)="""RTN"",""HLOPRS2"",41,0)"
^XMB(3.9,44,2,2588,0)=" I '$L(PREC) D"
^XMB(3.9,44,2,2589,0)="""RTN"",""HLOPRS2"",42,0)"
^XMB(3.9,44,2,2590,0)=" .I $L(+TIME)>12 S PREC=""S"" Q"
^XMB(3.9,44,2,2591,0)="""RTN"",""HLOPRS2"",43,0)"
^XMB(3.9,44,2,2592,0)=" .I $L(+TIME)>10 S PREC=""M"" Q"
^XMB(3.9,44,2,2593,0)="""RTN"",""HLOPRS2"",44,0)"
^XMB(3.9,44,2,2594,0)=" .I $L(+TIME)>8 S PREC=""H"" Q"
^XMB(3.9,44,2,2595,0)="""RTN"",""HLOPRS2"",45,0)"
^XMB(3.9,44,2,2596,0)=" .I $L(+TIME)>6 S PREC=""D"" Q"
^XMB(3.9,44,2,2597,0)="""RTN"",""HLOPRS2"",46,0)"
^XMB(3.9,44,2,2598,0)=" .I $L(+TIME)>4 S PREC=""L"" Q"
^XMB(3.9,44,2,2599,0)="""RTN"",""HLOPRS2"",47,0)"
^XMB(3.9,44,2,2600,0)=" .I $L(+TIME)=4 S PREC=""Y"" Q"
^XMB(3.9,44,2,2601,0)="""RTN"",""HLOPRS2"",48,0)"
^XMB(3.9,44,2,2602,0)=" S VALUE(""PRECISION"")=PREC"
^XMB(3.9,44,2,2603,0)="""RTN"",""HLOPRS2"",49,0)"
^XMB(3.9,44,2,2604,0)=" Q"
^XMB(3.9,44,2,2605,0)="""RTN"",""HLOPRS2"",50,0)"
^XMB(3.9,44,2,2606,0)=" ;"
^XMB(3.9,44,2,2607,0)="""RTN"",""HLOPRS2"",51,0)"
^XMB(3.9,44,2,2608,0)="GETDT(SEG,VALUE,FIELD,COMP,REP) ;"
^XMB(3.9,44,2,2609,0)="""RTN"",""HLOPRS2"",52,0)"
^XMB(3.9,44,2,2610,0)=" ;Gets a segment value that is a date in HL7 format and converts it to FileMan format. The degree of precision is optionally returned."
^XMB(3.9,44,2,2611,0)="""RTN"",""HLOPRS2"",53,0)"
^XMB(3.9,44,2,2612,0)=" ;IF the component is specified, then the component is parsed for data type rather than at the higher field level."
^XMB(3.9,44,2,2613,0)="""RTN"",""HLOPRS2"",54,0)"
^XMB(3.9,44,2,2614,0)=" ;"
^XMB(3.9,44,2,2615,0)="""RTN"",""HLOPRS2"",55,0)"
^XMB(3.9,44,2,2616,0)=" ;Input:"
^XMB(3.9,44,2,2617,0)="""RTN"",""HLOPRS2"",56,0)"
^XMB(3.9,44,2,2618,0)=" ;  SEG - (required, pass by reference) The array returned by a  call to $$NEXTSEG^HLOPRS."
^XMB(3.9,44,2,2619,0)="""RTN"",""HLOPRS2"",57,0)"
^XMB(3.9,44,2,2620,0)=" ;  FIELD - The sequence # of the field."
^XMB(3.9,44,2,2621,0)="""RTN"",""HLOPRS2"",58,0)"
^XMB(3.9,44,2,2622,0)=" ;  COMP (optional) If specified, the data type is parsed as a component  value."
^XMB(3.9,44,2,2623,0)="""RTN"",""HLOPRS2"",59,0)"
^XMB(3.9,44,2,2624,0)=" ;  REP - the occurrence# (optional, defaults to 1)  For a non-repeating fields, this parameter is not necessary."
^XMB(3.9,44,2,2625,0)="""RTN"",""HLOPRS2"",60,0)"
^XMB(3.9,44,2,2626,0)=" ;Output:"
^XMB(3.9,44,2,2627,0)="""RTN"",""HLOPRS2"",61,0)"
^XMB(3.9,44,2,2628,0)=" ;  VALUE  (required) The date/time in FileMan format."
^XMB(3.9,44,2,2629,0)="""RTN"",""HLOPRS2"",62,0)"
^XMB(3.9,44,2,2630,0)=" ;  VALUE(""PRECISION"") (optional) If needed, VALUE must be passed by"
^XMB(3.9,44,2,2631,0)="""RTN"",""HLOPRS2"",63,0)"
^XMB(3.9,44,2,2632,0)=" ;       reference.  Expected values are:"
^XMB(3.9,44,2,2633,0)="""RTN"",""HLOPRS2"",64,0)"
^XMB(3.9,44,2,2634,0)=" ;           ""S"" - second (not valid for DT)"
^XMB(3.9,44,2,2635,0)="""RTN"",""HLOPRS2"",65,0)"
^XMB(3.9,44,2,2636,0)=" ;           ""M"" - minute (not valid for DT)"
^XMB(3.9,44,2,2637,0)="""RTN"",""HLOPRS2"",66,0)"
^XMB(3.9,44,2,2638,0)=" ;           ""H"" - hour (not valid for DT)"
^XMB(3.9,44,2,2639,0)="""RTN"",""HLOPRS2"",67,0)"
^XMB(3.9,44,2,2640,0)=" ;           ""D"" - day"
^XMB(3.9,44,2,2641,0)="""RTN"",""HLOPRS2"",68,0)"
^XMB(3.9,44,2,2642,0)=" ;           ""L"" - month"
^XMB(3.9,44,2,2643,0)="""RTN"",""HLOPRS2"",69,0)"
^XMB(3.9,44,2,2644,0)=" ;           ""Y"" - year"
^XMB(3.9,44,2,2645,0)="""RTN"",""HLOPRS2"",70,0)"
^XMB(3.9,44,2,2646,0)=" ;           """" - not specified"
^XMB(3.9,44,2,2647,0)="""RTN"",""HLOPRS2"",71,0)"
^XMB(3.9,44,2,2648,0)=" ;"
^XMB(3.9,44,2,2649,0)="""RTN"",""HLOPRS2"",72,0)"
^XMB(3.9,44,2,2650,0)=" N TIME,PREC,VAR"
^XMB(3.9,44,2,2651,0)="""RTN"",""HLOPRS2"",73,0)"
^XMB(3.9,44,2,2652,0)=" Q:'$G(FIELD)"
^XMB(3.9,44,2,2653,0)="""RTN"",""HLOPRS2"",74,0)"
^XMB(3.9,44,2,2654,0)=" I '$G(COMP) D"
^XMB(3.9,44,2,2655,0)="""RTN"",""HLOPRS2"",75,0)"
^XMB(3.9,44,2,2656,0)=" .S VAR=""COMP"",SUB=1"
^XMB(3.9,44,2,2657,0)="""RTN"",""HLOPRS2"",76,0)"
^XMB(3.9,44,2,2658,0)=" E  D"
^XMB(3.9,44,2,2659,0)="""RTN"",""HLOPRS2"",77,0)"
^XMB(3.9,44,2,2660,0)=" .S VAR=""SUB"""
^XMB(3.9,44,2,2661,0)="""RTN"",""HLOPRS2"",78,0)"
^XMB(3.9,44,2,2662,0)=" S:'$G(REP) REP=1"
^XMB(3.9,44,2,2663,0)="""RTN"",""HLOPRS2"",79,0)"
^XMB(3.9,44,2,2664,0)=" S @VAR=1,TIME=$$GET^HLOPRS(.SEG,FIELD,COMP,SUB,REP)"
^XMB(3.9,44,2,2665,0)="""RTN"",""HLOPRS2"",80,0)"
^XMB(3.9,44,2,2666,0)=" S VALUE=$$HL7TFM^XLFDT(TIME)"
^XMB(3.9,44,2,2667,0)="""RTN"",""HLOPRS2"",81,0)"
^XMB(3.9,44,2,2668,0)=" S PREC="""""
^XMB(3.9,44,2,2669,0)="""RTN"",""HLOPRS2"",82,0)"
^XMB(3.9,44,2,2670,0)=" D"
^XMB(3.9,44,2,2671,0)="""RTN"",""HLOPRS2"",83,0)"
^XMB(3.9,44,2,2672,0)=" .I $L(+TIME)>12 S PREC=""S"" Q"
^XMB(3.9,44,2,2673,0)="""RTN"",""HLOPRS2"",84,0)"
^XMB(3.9,44,2,2674,0)=" .I $L(+TIME)>10 S PREC=""M"" Q"
^XMB(3.9,44,2,2675,0)="""RTN"",""HLOPRS2"",85,0)"
^XMB(3.9,44,2,2676,0)=" .I $L(+TIME)>8 S PREC=""H"" Q"
^XMB(3.9,44,2,2677,0)="""RTN"",""HLOPRS2"",86,0)"
^XMB(3.9,44,2,2678,0)=" .I $L(+TIME)>6 S PREC=""D"" Q"
^XMB(3.9,44,2,2679,0)="""RTN"",""HLOPRS2"",87,0)"
^XMB(3.9,44,2,2680,0)=" .I $L(+TIME)>4 S PREC=""L"" Q"
^XMB(3.9,44,2,2681,0)="""RTN"",""HLOPRS2"",88,0)"
^XMB(3.9,44,2,2682,0)=" .I $L(+TIME)=4 S PREC=""Y"" Q"
^XMB(3.9,44,2,2683,0)="""RTN"",""HLOPRS2"",89,0)"
^XMB(3.9,44,2,2684,0)=" S VALUE(""PRECISION"")=PREC"
^XMB(3.9,44,2,2685,0)="""RTN"",""HLOPRS2"",90,0)"
^XMB(3.9,44,2,2686,0)=" Q"
^XMB(3.9,44,2,2687,0)="""RTN"",""HLOPRS2"",91,0)"
^XMB(3.9,44,2,2688,0)=" ;"
^XMB(3.9,44,2,2689,0)="""RTN"",""HLOPRS2"",92,0)"
^XMB(3.9,44,2,2690,0)="GETCE(SEG,VALUE,FIELD,COMP,REP) ;"
^XMB(3.9,44,2,2691,0)="""RTN"",""HLOPRS2"",93,0)"
^XMB(3.9,44,2,2692,0)=" ;Gets an CE data type(Coded Element, HL7 Section Reference 2.9.8) from the specified field."
^XMB(3.9,44,2,2693,0)="""RTN"",""HLOPRS2"",94,0)"
^XMB(3.9,44,2,2694,0)=" ;IF the component is specified, then the component is parsed for data type rather than at the higher field level."
^XMB(3.9,44,2,2695,0)="""RTN"",""HLOPRS2"",95,0)"
^XMB(3.9,44,2,2696,0)=" ;"
^XMB(3.9,44,2,2697,0)="""RTN"",""HLOPRS2"",96,0)"
^XMB(3.9,44,2,2698,0)=" ;Input:"
^XMB(3.9,44,2,2699,0)="""RTN"",""HLOPRS2"",97,0)"
^XMB(3.9,44,2,2700,0)=" ;  SEG - (required, pass by reference) The array returned by a call to NEXTSEG^HLOPRS."
^XMB(3.9,44,2,2701,0)="""RTN"",""HLOPRS2"",98,0)"
^XMB(3.9,44,2,2702,0)=" ;  FIELD (required) The sequence # of the field."
^XMB(3.9,44,2,2703,0)="""RTN"",""HLOPRS2"",99,0)"
^XMB(3.9,44,2,2704,0)=" ;  COMP (optional) If specified, the data type is parsed as a component  value."
^XMB(3.9,44,2,2705,0)="""RTN"",""HLOPRS2"",100,0)"
^XMB(3.9,44,2,2706,0)=" ;  REP - The occurrence # (optional, defaults to 1).  For a non-repeating fields, this parameter is not necessary."
^XMB(3.9,44,2,2707,0)="""RTN"",""HLOPRS2"",101,0)"
^XMB(3.9,44,2,2708,0)=" ;Output:"
^XMB(3.9,44,2,2709,0)="""RTN"",""HLOPRS2"",102,0)"
^XMB(3.9,44,2,2710,0)=" ;  VALUE  (required, pass-by-reference) These subscripts are returned:"
^XMB(3.9,44,2,2711,0)="""RTN"",""HLOPRS2"",103,0)"
^XMB(3.9,44,2,2712,0)=" ;    ""ID"" - the identifier"
^XMB(3.9,44,2,2713,0)="""RTN"",""HLOPRS2"",104,0)"
^XMB(3.9,44,2,2714,0)=" ;    ""TEXT"" - "
^XMB(3.9,44,2,2715,0)="""RTN"",""HLOPRS2"",105,0)"
^XMB(3.9,44,2,2716,0)=" ;    ""SYSTEM"" - name of the code system"
^XMB(3.9,44,2,2717,0)="""RTN"",""HLOPRS2"",106,0)"
^XMB(3.9,44,2,2718,0)=" ;    ""ALTERNATE ID"" - alternate identifier"
^XMB(3.9,44,2,2719,0)="""RTN"",""HLOPRS2"",107,0)"
^XMB(3.9,44,2,2720,0)=" ;    ""ALTERNATE TEXT"""
^XMB(3.9,44,2,2721,0)="""RTN"",""HLOPRS2"",108,0)"
^XMB(3.9,44,2,2722,0)=" ;    ""ALTERNATE SYSTEM"" - name of the alternate coding system"
^XMB(3.9,44,2,2723,0)="""RTN"",""HLOPRS2"",109,0)"
^XMB(3.9,44,2,2724,0)=" ;"
^XMB(3.9,44,2,2725,0)="""RTN"",""HLOPRS2"",110,0)"
^XMB(3.9,44,2,2726,0)=" N SUB,VAR"
^XMB(3.9,44,2,2727,0)="""RTN"",""HLOPRS2"",111,0)"
^XMB(3.9,44,2,2728,0)=" Q:'$G(FIELD)"
^XMB(3.9,44,2,2729,0)="""RTN"",""HLOPRS2"",112,0)"
^XMB(3.9,44,2,2730,0)=" S:'$G(REP) REP=1"
^XMB(3.9,44,2,2731,0)="""RTN"",""HLOPRS2"",113,0)"
^XMB(3.9,44,2,2732,0)=" I '$G(COMP) D"
^XMB(3.9,44,2,2733,0)="""RTN"",""HLOPRS2"",114,0)"
^XMB(3.9,44,2,2734,0)=" .S VAR=""COMP"",SUB=1"
^XMB(3.9,44,2,2735,0)="""RTN"",""HLOPRS2"",115,0)"
^XMB(3.9,44,2,2736,0)=" E  D"
^XMB(3.9,44,2,2737,0)="""RTN"",""HLOPRS2"",116,0)"
^XMB(3.9,44,2,2738,0)=" .S VAR=""SUB"""
^XMB(3.9,44,2,2739,0)="""RTN"",""HLOPRS2"",117,0)"
^XMB(3.9,44,2,2740,0)=" S @VAR=1,VALUE(""ID"")=$$GET^HLOPRS(.SEG,FIELD,COMP,SUB,REP)"
^XMB(3.9,44,2,2741,0)="""RTN"",""HLOPRS2"",118,0)"
^XMB(3.9,44,2,2742,0)=" S @VAR=2,VALUE(""TEXT"")=$$GET^HLOPRS(.SEG,FIELD,COMP,SUB,REP)"
^XMB(3.9,44,2,2743,0)="""RTN"",""HLOPRS2"",119,0)"
^XMB(3.9,44,2,2744,0)=" S @VAR=3,VALUE(""SYSTEM"")=$$GET^HLOPRS(.SEG,FIELD,COMP,SUB,REP)"
^XMB(3.9,44,2,2745,0)="""RTN"",""HLOPRS2"",120,0)"
^XMB(3.9,44,2,2746,0)=" S @VAR=4,VALUE(""ALTERNATE ID"")=$$GET^HLOPRS(.SEG,FIELD,COMP,SUB,REP)"
^XMB(3.9,44,2,2747,0)="""RTN"",""HLOPRS2"",121,0)"
^XMB(3.9,44,2,2748,0)=" S @VAR=5,VALUE(""ALTERNATE TEXT"")=$$GET^HLOPRS(.SEG,FIELD,COMP,SUB,REP)"
^XMB(3.9,44,2,2749,0)="""RTN"",""HLOPRS2"",122,0)"
^XMB(3.9,44,2,2750,0)=" S @VAR=6,VALUE(""ALTERNATE SYSTEM"")=$$GET^HLOPRS(.SEG,FIELD,COMP,SUB,REP)"
^XMB(3.9,44,2,2751,0)="""RTN"",""HLOPRS2"",123,0)"
^XMB(3.9,44,2,2752,0)=" Q"
^XMB(3.9,44,2,2753,0)="""RTN"",""HLOPRS2"",124,0)"
^XMB(3.9,44,2,2754,0)=" ;"
^XMB(3.9,44,2,2755,0)="""RTN"",""HLOPRS2"",125,0)"
^XMB(3.9,44,2,2756,0)="GETHD(SEG,VALUE,FIELD,COMP,REP) ;"
^XMB(3.9,44,2,2757,0)="""RTN"",""HLOPRS2"",126,0)"
^XMB(3.9,44,2,2758,0)=" ;Gets an HD data type (Hierarchic Designator, HL7 Section Reference 2.9.21) from the specified field."
^XMB(3.9,44,2,2759,0)="""RTN"",""HLOPRS2"",127,0)"
^XMB(3.9,44,2,2760,0)=" ;IF the component is specified, then the component is parsed for data type rather than at the higher field level."
^XMB(3.9,44,2,2761,0)="""RTN"",""HLOPRS2"",128,0)"
^XMB(3.9,44,2,2762,0)=" ;"
^XMB(3.9,44,2,2763,0)="""RTN"",""HLOPRS2"",129,0)"
^XMB(3.9,44,2,2764,0)=" ;Input:"
^XMB(3.9,44,2,2765,0)="""RTN"",""HLOPRS2"",130,0)"
^XMB(3.9,44,2,2766,0)=" ;  SEG - (required, pass by reference) The array returned by a call to NEXTSEG^HLOPRS."
^XMB(3.9,44,2,2767,0)="""RTN"",""HLOPRS2"",131,0)"
^XMB(3.9,44,2,2768,0)=" ;  FIELD (required) The sequence # of the field."
^XMB(3.9,44,2,2769,0)="""RTN"",""HLOPRS2"",132,0)"
^XMB(3.9,44,2,2770,0)=" ;  COMP (optional) If specified, the data type is parsed as a component  value."
^XMB(3.9,44,2,2771,0)="""RTN"",""HLOPRS2"",133,0)"
^XMB(3.9,44,2,2772,0)=" ;  REP - The occurrence # (optional, defaults to 1).  For a non-repeating fields, this parameter is not necessary."
^XMB(3.9,44,2,2773,0)="""RTN"",""HLOPRS2"",134,0)"
^XMB(3.9,44,2,2774,0)=" ;Output:"
^XMB(3.9,44,2,2775,0)="""RTN"",""HLOPRS2"",135,0)"
^XMB(3.9,44,2,2776,0)=" ;  VALUE  (required, pass-by-reference) These subscripts are returned:"
^XMB(3.9,44,2,2777,0)="""RTN"",""HLOPRS2"",136,0)"
^XMB(3.9,44,2,2778,0)=" ;    ""NAMESPACE ID"""
^XMB(3.9,44,2,2779,0)="""RTN"",""HLOPRS2"",137,0)"
^XMB(3.9,44,2,2780,0)=" ;    ""UNIVERSAL ID"""
^XMB(3.9,44,2,2781,0)="""RTN"",""HLOPRS2"",138,0)"
^XMB(3.9,44,2,2782,0)=" ;    ""UNIVERSAL ID TYPE"""
^XMB(3.9,44,2,2783,0)="""RTN"",""HLOPRS2"",139,0)"
^XMB(3.9,44,2,2784,0)=" ;"
^XMB(3.9,44,2,2785,0)="""RTN"",""HLOPRS2"",140,0)"
^XMB(3.9,44,2,2786,0)=" N SUB,VAR"
^XMB(3.9,44,2,2787,0)="""RTN"",""HLOPRS2"",141,0)"
^XMB(3.9,44,2,2788,0)=" Q:'$G(FIELD)"
^XMB(3.9,44,2,2789,0)="""RTN"",""HLOPRS2"",142,0)"
^XMB(3.9,44,2,2790,0)=" S:'$G(REP) REP=1"
^XMB(3.9,44,2,2791,0)="""RTN"",""HLOPRS2"",143,0)"
^XMB(3.9,44,2,2792,0)=" I '$G(COMP) D"
^XMB(3.9,44,2,2793,0)="""RTN"",""HLOPRS2"",144,0)"
^XMB(3.9,44,2,2794,0)=" .S VAR=""COMP"",SUB=1"
^XMB(3.9,44,2,2795,0)="""RTN"",""HLOPRS2"",145,0)"
^XMB(3.9,44,2,2796,0)=" E  D"
^XMB(3.9,44,2,2797,0)="""RTN"",""HLOPRS2"",146,0)"
^XMB(3.9,44,2,2798,0)=" .S VAR=""SUB"""
^XMB(3.9,44,2,2799,0)="""RTN"",""HLOPRS2"",147,0)"
^XMB(3.9,44,2,2800,0)=" S @VAR=1,VALUE(""NAMESPACE ID"")=$$GET^HLOPRS(.SEG,FIELD,COMP,SUB,REP)"
^XMB(3.9,44,2,2801,0)="""RTN"",""HLOPRS2"",148,0)"
^XMB(3.9,44,2,2802,0)=" S @VAR=2,VALUE(""UNIVERSAL ID"")=$$GET^HLOPRS(.SEG,FIELD,COMP,SUB,REP)"
^XMB(3.9,44,2,2803,0)="""RTN"",""HLOPRS2"",149,0)"
^XMB(3.9,44,2,2804,0)=" S @VAR=3,VALUE(""UNIVERSAL ID TYPE"")=$$GET^HLOPRS(.SEG,FIELD,COMP,SUB,REP)"
^XMB(3.9,44,2,2805,0)="""RTN"",""HLOPRS2"",150,0)"
^XMB(3.9,44,2,2806,0)=" Q"
^XMB(3.9,44,2,2807,0)="""RTN"",""HLOPRS2"",151,0)"
^XMB(3.9,44,2,2808,0)=" ;"
^XMB(3.9,44,2,2809,0)="""RTN"",""HLOPRS2"",152,0)"
^XMB(3.9,44,2,2810,0)="GETCNE(SEG,VALUE,FIELD,COMP,REP) ;"
^XMB(3.9,44,2,2811,0)="""RTN"",""HLOPRS2"",153,0)"
^XMB(3.9,44,2,2812,0)=" ;Gets an CNE data type (Coded With No Exceptions, HL7 Section Reference 2.9.8) from the specified field."
^XMB(3.9,44,2,2813,0)="""RTN"",""HLOPRS2"",154,0)"
^XMB(3.9,44,2,2814,0)=" ;IF the component is specified, then the component is parsed for data type rather than at the higher field level."
^XMB(3.9,44,2,2815,0)="""RTN"",""HLOPRS2"",155,0)"
^XMB(3.9,44,2,2816,0)=" ;"
^XMB(3.9,44,2,2817,0)="""RTN"",""HLOPRS2"",156,0)"
^XMB(3.9,44,2,2818,0)=" ;Input:"
^XMB(3.9,44,2,2819,0)="""RTN"",""HLOPRS2"",157,0)"
^XMB(3.9,44,2,2820,0)=" ;  SEG - (required, pass by reference) The array returned by a call to NEXTSEG^HLOPRS."
^XMB(3.9,44,2,2821,0)="""RTN"",""HLOPRS2"",158,0)"
^XMB(3.9,44,2,2822,0)=" ;  FIELD (required) The sequence # of the field."
^XMB(3.9,44,2,2823,0)="""RTN"",""HLOPRS2"",159,0)"
^XMB(3.9,44,2,2824,0)=" ;  COMP (optional) If specified, the data type is parsed as a component  value."
^XMB(3.9,44,2,2825,0)="""RTN"",""HLOPRS2"",160,0)"
^XMB(3.9,44,2,2826,0)=" ;  REP - The occurrence # (optional, defaults to 1).  For a non-repeating fields, this parameter is not necessary."
^XMB(3.9,44,2,2827,0)="""RTN"",""HLOPRS2"",161,0)"
^XMB(3.9,44,2,2828,0)=" ;Output:"
^XMB(3.9,44,2,2829,0)="""RTN"",""HLOPRS2"",162,0)"
^XMB(3.9,44,2,2830,0)=" ;  VALUE  (required, pass-by-reference) These subscripts are returned:"
^XMB(3.9,44,2,2831,0)="""RTN"",""HLOPRS2"",163,0)"
^XMB(3.9,44,2,2832,0)=" ;    ""ID"" - the identifier"
^XMB(3.9,44,2,2833,0)="""RTN"",""HLOPRS2"",164,0)"
^XMB(3.9,44,2,2834,0)=" ;    ""TEXT"" - "
^XMB(3.9,44,2,2835,0)="""RTN"",""HLOPRS2"",165,0)"
^XMB(3.9,44,2,2836,0)=" ;    ""SYSTEM"" - name of the code system"
^XMB(3.9,44,2,2837,0)="""RTN"",""HLOPRS2"",166,0)"
^XMB(3.9,44,2,2838,0)=" ;    ""ALTERNATE ID"" - alternate identifier"
^XMB(3.9,44,2,2839,0)="""RTN"",""HLOPRS2"",167,0)"
^XMB(3.9,44,2,2840,0)=" ;    ""ALTERNATE TEXT"""
^XMB(3.9,44,2,2841,0)="""RTN"",""HLOPRS2"",168,0)"
^XMB(3.9,44,2,2842,0)=" ;    ""ALTERNATE SYSTEM"" - name of the alternate coding system"
^XMB(3.9,44,2,2843,0)="""RTN"",""HLOPRS2"",169,0)"
^XMB(3.9,44,2,2844,0)=" ;    ""SYSTEM VERSION"" - version ID of the coding system"
^XMB(3.9,44,2,2845,0)="""RTN"",""HLOPRS2"",170,0)"
^XMB(3.9,44,2,2846,0)=" ;    ""ALTERNATE SYSTEM VERSION"" - version ID of the alternate coding system"
^XMB(3.9,44,2,2847,0)="""RTN"",""HLOPRS2"",171,0)"
^XMB(3.9,44,2,2848,0)=" ;    ""ORIGINAL TEXT"""
^XMB(3.9,44,2,2849,0)="""RTN"",""HLOPRS2"",172,0)"
^XMB(3.9,44,2,2850,0)=" ;"
^XMB(3.9,44,2,2851,0)="""RTN"",""HLOPRS2"",173,0)"
^XMB(3.9,44,2,2852,0)=" D GETCODE^HLOPRS1(.SEG,.VALUE,.FIELD,.COMP,.REP)"
^XMB(3.9,44,2,2853,0)="""RTN"",""HLOPRS2"",174,0)"
^XMB(3.9,44,2,2854,0)=" Q"
^XMB(3.9,44,2,2855,0)="""RTN"",""HLOPRS2"",175,0)"
^XMB(3.9,44,2,2856,0)=" ;"
^XMB(3.9,44,2,2857,0)="""RTN"",""HLOPRS2"",176,0)"
^XMB(3.9,44,2,2858,0)="GETCWE(SEG,VALUE,FIELD,COMP,REP) ;"
^XMB(3.9,44,2,2859,0)="""RTN"",""HLOPRS2"",177,0)"
^XMB(3.9,44,2,2860,0)=" ;Gets an CWE data type (Coded With Exceptions, HL7 Section Reference 2.9.11) from the specified field."
^XMB(3.9,44,2,2861,0)="""RTN"",""HLOPRS2"",178,0)"
^XMB(3.9,44,2,2862,0)=" ;IF the component is specified, then the component is parsed for the data type rather than at the higher field level."
^XMB(3.9,44,2,2863,0)="""RTN"",""HLOPRS2"",179,0)"
^XMB(3.9,44,2,2864,0)=" ;"
^XMB(3.9,44,2,2865,0)="""RTN"",""HLOPRS2"",180,0)"
^XMB(3.9,44,2,2866,0)=" ;Input:"
^XMB(3.9,44,2,2867,0)="""RTN"",""HLOPRS2"",181,0)"
^XMB(3.9,44,2,2868,0)=" ;  SEG - (required, pass by reference) The array returned by a call to NEXTSEG^HLOPRS."
^XMB(3.9,44,2,2869,0)="""RTN"",""HLOPRS2"",182,0)"
^XMB(3.9,44,2,2870,0)=" ;  FIELD (required) The sequence # of the field."
^XMB(3.9,44,2,2871,0)="""RTN"",""HLOPRS2"",183,0)"
^XMB(3.9,44,2,2872,0)=" ;  COMP (optional) If specified, the data type is parsed as a component  value."
^XMB(3.9,44,2,2873,0)="""RTN"",""HLOPRS2"",184,0)"
^XMB(3.9,44,2,2874,0)=" ;  REP - The occurrence # (optional, defaults to 1).  For a non-repeating fields, this parameter is not necessary."
^XMB(3.9,44,2,2875,0)="""RTN"",""HLOPRS2"",185,0)"
^XMB(3.9,44,2,2876,0)=" ;Output:"
^XMB(3.9,44,2,2877,0)="""RTN"",""HLOPRS2"",186,0)"
^XMB(3.9,44,2,2878,0)=" ;  VALUE  (required, pass-by-reference) These subscripts are returned:"
^XMB(3.9,44,2,2879,0)="""RTN"",""HLOPRS2"",187,0)"
^XMB(3.9,44,2,2880,0)=" ;    ""ID"" - the identifier"
^XMB(3.9,44,2,2881,0)="""RTN"",""HLOPRS2"",188,0)"
^XMB(3.9,44,2,2882,0)=" ;    ""TEXT"" - "
^XMB(3.9,44,2,2883,0)="""RTN"",""HLOPRS2"",189,0)"
^XMB(3.9,44,2,2884,0)=" ;    ""SYSTEM"" - name of the code system"
^XMB(3.9,44,2,2885,0)="""RTN"",""HLOPRS2"",190,0)"
^XMB(3.9,44,2,2886,0)=" ;    ""ALTERNATE ID"" - alternate identifier"
^XMB(3.9,44,2,2887,0)="""RTN"",""HLOPRS2"",191,0)"
^XMB(3.9,44,2,2888,0)=" ;    ""ALTERNATE TEXT"""
^XMB(3.9,44,2,2889,0)="""RTN"",""HLOPRS2"",192,0)"
^XMB(3.9,44,2,2890,0)=" ;    ""ALTERNATE SYSTEM"" - name of the alternate coding system"
^XMB(3.9,44,2,2891,0)="""RTN"",""HLOPRS2"",193,0)"
^XMB(3.9,44,2,2892,0)=" ;    ""SYSTEM VERSION"" - version ID of the coding system"
^XMB(3.9,44,2,2893,0)="""RTN"",""HLOPRS2"",194,0)"
^XMB(3.9,44,2,2894,0)=" ;    ""ALTERNATE SYSTEM VERSION"" - version ID of the alternate coding system"
^XMB(3.9,44,2,2895,0)="""RTN"",""HLOPRS2"",195,0)"
^XMB(3.9,44,2,2896,0)=" ;    ""ORIGINAL TEXT"""
^XMB(3.9,44,2,2897,0)="""RTN"",""HLOPRS2"",196,0)"
^XMB(3.9,44,2,2898,0)=" D GETCODE^HLOPRS1(.SEG,.VALUE,.FIELD,.COMP,.REP)"
^XMB(3.9,44,2,2899,0)="""RTN"",""HLOPRS2"",197,0)"
^XMB(3.9,44,2,2900,0)=" Q"
^XMB(3.9,44,2,2901,0)="""RTN"",""HLOPRS2"",198,0)"
^XMB(3.9,44,2,2902,0)=" ;"
^XMB(3.9,44,2,2903,0)="""RTN"",""HLOPRS2"",199,0)"
^XMB(3.9,44,2,2904,0)="GETAD(SEG,VALUE,FIELD,COMP,REP) ;"
^XMB(3.9,44,2,2905,0)="""RTN"",""HLOPRS2"",200,0)"
^XMB(3.9,44,2,2906,0)=" ;Gets an AD data type (Address, HL7 Section Reference 2.9.1) from the specified field. It can also be used to get the 1st 8 components of the XAD (Extended Address) data type."
^XMB(3.9,44,2,2907,0)="""RTN"",""HLOPRS2"",201,0)"
^XMB(3.9,44,2,2908,0)=" ;IF the component is specified, then the component is parsed for the address rather than at the higher field level."
^XMB(3.9,44,2,2909,0)="""RTN"",""HLOPRS2"",202,0)"
^XMB(3.9,44,2,2910,0)=" ;"
^XMB(3.9,44,2,2911,0)="""RTN"",""HLOPRS2"",203,0)"
^XMB(3.9,44,2,2912,0)=" ;Input:"
^XMB(3.9,44,2,2913,0)="""RTN"",""HLOPRS2"",204,0)"
^XMB(3.9,44,2,2914,0)=" ;  SEG - (required, pass by reference) The array returned by a call to NEXTSEG^HLOPRS."
^XMB(3.9,44,2,2915,0)="""RTN"",""HLOPRS2"",205,0)"
^XMB(3.9,44,2,2916,0)=" ;  FIELD (required) The sequence # of the field."
^XMB(3.9,44,2,2917,0)="""RTN"",""HLOPRS2"",206,0)"
^XMB(3.9,44,2,2918,0)=" ;  COMP (optional) If specified, the data type is parsed as a component  value."
^XMB(3.9,44,2,2919,0)="""RTN"",""HLOPRS2"",207,0)"
^XMB(3.9,44,2,2920,0)=" ;  REP - The occurrence # (optional, defaults to 1).  For a non-repeating fields, this parameter is not necessary."
^XMB(3.9,44,2,2921,0)="""RTN"",""HLOPRS2"",208,0)"
^XMB(3.9,44,2,2922,0)=" ;Output:"
^XMB(3.9,44,2,2923,0)="""RTN"",""HLOPRS2"",209,0)"
^XMB(3.9,44,2,2924,0)=" ;  VALUE  (required, pass-by-reference) These subscripts are returned:"
^XMB(3.9,44,2,2925,0)="""RTN"",""HLOPRS2"",210,0)"
^XMB(3.9,44,2,2926,0)=" ;    ""STREET1"" -street address"
^XMB(3.9,44,2,2927,0)="""RTN"",""HLOPRS2"",211,0)"
^XMB(3.9,44,2,2928,0)=" ;    ""STREET2"" - other designation"
^XMB(3.9,44,2,2929,0)="""RTN"",""HLOPRS2"",212,0)"
^XMB(3.9,44,2,2930,0)=" ;    ""CITY"""
^XMB(3.9,44,2,2931,0)="""RTN"",""HLOPRS2"",213,0)"
^XMB(3.9,44,2,2932,0)=" ;    ""STATE"" - state or province"
^XMB(3.9,44,2,2933,0)="""RTN"",""HLOPRS2"",214,0)"
^XMB(3.9,44,2,2934,0)=" ;    ""ZIP"" - zip or postal code"
^XMB(3.9,44,2,2935,0)="""RTN"",""HLOPRS2"",215,0)"
^XMB(3.9,44,2,2936,0)=" ;    ""COUNTRY"""
^XMB(3.9,44,2,2937,0)="""RTN"",""HLOPRS2"",216,0)"
^XMB(3.9,44,2,2938,0)=" ;    ""TYPE""  - address type"
^XMB(3.9,44,2,2939,0)="""RTN"",""HLOPRS2"",217,0)"
^XMB(3.9,44,2,2940,0)=" ;    ""OTHER"" - other geographic designation"
^XMB(3.9,44,2,2941,0)="""RTN"",""HLOPRS2"",218,0)"
^XMB(3.9,44,2,2942,0)=" ;"
^XMB(3.9,44,2,2943,0)="""RTN"",""HLOPRS2"",219,0)"
^XMB(3.9,44,2,2944,0)=" N SUB,VAR"
^XMB(3.9,44,2,2945,0)="""RTN"",""HLOPRS2"",220,0)"
^XMB(3.9,44,2,2946,0)=" Q:'$G(FIELD)"
^XMB(3.9,44,2,2947,0)="""RTN"",""HLOPRS2"",221,0)"
^XMB(3.9,44,2,2948,0)=" I '$G(COMP) D"
^XMB(3.9,44,2,2949,0)="""RTN"",""HLOPRS2"",222,0)"
^XMB(3.9,44,2,2950,0)=" .S VAR=""COMP"",SUB=1"
^XMB(3.9,44,2,2951,0)="""RTN"",""HLOPRS2"",223,0)"
^XMB(3.9,44,2,2952,0)=" E  D"
^XMB(3.9,44,2,2953,0)="""RTN"",""HLOPRS2"",224,0)"
^XMB(3.9,44,2,2954,0)=" .S VAR=""SUB"""
^XMB(3.9,44,2,2955,0)="""RTN"",""HLOPRS2"",225,0)"
^XMB(3.9,44,2,2956,0)=" S:'$G(REP) REP=1"
^XMB(3.9,44,2,2957,0)="""RTN"",""HLOPRS2"",226,0)"
^XMB(3.9,44,2,2958,0)=" S @VAR=1,VALUE(""STREET1"")=$$GET^HLOPRS(.SEG,FIELD,COMP,SUB,REP)"
^XMB(3.9,44,2,2959,0)="""RTN"",""HLOPRS2"",227,0)"
^XMB(3.9,44,2,2960,0)=" S @VAR=2,VALUE(""STREET2"")=$$GET^HLOPRS(.SEG,FIELD,COMP,SUB,REP)"
^XMB(3.9,44,2,2961,0)="""RTN"",""HLOPRS2"",228,0)"
^XMB(3.9,44,2,2962,0)=" S @VAR=3,VALUE(""CITY"")=$$GET^HLOPRS(.SEG,FIELD,COMP,SUB,REP)"
^XMB(3.9,44,2,2963,0)="""RTN"",""HLOPRS2"",229,0)"
^XMB(3.9,44,2,2964,0)=" S @VAR=4,VALUE(""STATE"")=$$GET^HLOPRS(.SEG,FIELD,COMP,SUB,REP)"
^XMB(3.9,44,2,2965,0)="""RTN"",""HLOPRS2"",230,0)"
^XMB(3.9,44,2,2966,0)=" S @VAR=5,VALUE(""ZIP"")=$$GET^HLOPRS(.SEG,FIELD,COMP,SUB,REP)"
^XMB(3.9,44,2,2967,0)="""RTN"",""HLOPRS2"",231,0)"
^XMB(3.9,44,2,2968,0)=" S @VAR=6,VALUE(""COUNTRY"")=$$GET^HLOPRS(.SEG,FIELD,COMP,SUB,REP)"
^XMB(3.9,44,2,2969,0)="""RTN"",""HLOPRS2"",232,0)"
^XMB(3.9,44,2,2970,0)=" S @VAR=7,VALUE(""TYPE"")=$$GET^HLOPRS(.SEG,FIELD,COMP,SUB,REP)"
^XMB(3.9,44,2,2971,0)="""RTN"",""HLOPRS2"",233,0)"
^XMB(3.9,44,2,2972,0)=" S @VAR=8,VALUE(""OTHER"")=$$GET^HLOPRS(.SEG,FIELD,COMP,SUB,REP)"
^XMB(3.9,44,2,2973,0)="""RTN"",""HLOPRS2"",234,0)"
^XMB(3.9,44,2,2974,0)=" Q"
^XMB(3.9,44,2,2975,0)="""RTN"",""HLOSRVR"")"
^XMB(3.9,44,2,2976,0)="0^4^B62293420^B70554107"
^XMB(3.9,44,2,2977,0)="""RTN"",""HLOSRVR"",1,0)"
^XMB(3.9,44,2,2978,0)="HLOSRVR ;ALB/CJM- Server for receiving messages - 10/4/94 1pm"
^XMB(3.9,44,2,2979,0)="""RTN"",""HLOSRVR"",2,0)"
^XMB(3.9,44,2,2980,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126,130,131**;Oct 13, 1995;Build 10"
^XMB(3.9,44,2,2981,0)="""RTN"",""HLOSRVR"",3,0)"
^XMB(3.9,44,2,2982,0)=" ;"
^XMB(3.9,44,2,2983,0)="""RTN"",""HLOSRVR"",4,0)"
^XMB(3.9,44,2,2984,0)="GETWORK(WORK) ;"
^XMB(3.9,44,2,2985,0)="""RTN"",""HLOSRVR"",5,0)"
^XMB(3.9,44,2,2986,0)=" ;GET WORK function for a single server OR Taskman multi-server"
^XMB(3.9,44,2,2987,0)="""RTN"",""HLOSRVR"",6,0)"
^XMB(3.9,44,2,2988,0)=" N LINK"
^XMB(3.9,44,2,2989,0)="""RTN"",""HLOSRVR"",7,0)"
^XMB(3.9,44,2,2990,0)=" I '$$CHKSTOP^HLOPROC,$G(WORK(""LINK""))]"""",$$GETLINK^HLOTLNK(WORK(""LINK""),.LINK),+LINK(""SERVER"") S WORK(""PORT"")=LINK(""PORT"") Q 1"
^XMB(3.9,44,2,2991,0)="""RTN"",""HLOSRVR"",8,0)"
^XMB(3.9,44,2,2992,0)=" Q 0"
^XMB(3.9,44,2,2993,0)="""RTN"",""HLOSRVR"",9,0)"
^XMB(3.9,44,2,2994,0)=" ;"
^XMB(3.9,44,2,2995,0)="""RTN"",""HLOSRVR"",10,0)"
^XMB(3.9,44,2,2996,0)="DOWORKS(WORK) ;"
^XMB(3.9,44,2,2997,0)="""RTN"",""HLOSRVR"",11,0)"
^XMB(3.9,44,2,2998,0)=" ;DO WORK rtn for a single server (non-concurrent)"
^XMB(3.9,44,2,2999,0)="""RTN"",""HLOSRVR"",12,0)"
^XMB(3.9,44,2,3000,0)=" D SERVER(WORK(""LINK""))"
^XMB(3.9,44,2,3001,0)="""RTN"",""HLOSRVR"",13,0)"
^XMB(3.9,44,2,3002,0)=" Q"
^XMB(3.9,44,2,3003,0)="""RTN"",""HLOSRVR"",14,0)"
^XMB(3.9,44,2,3004,0)="DOWORKM(WORK) ;"
^XMB(3.9,44,2,3005,0)="""RTN"",""HLOSRVR"",15,0)"
^XMB(3.9,44,2,3006,0)=" ;DO WORK rtn for a Taskman multi-server (Cache systems only)"
^XMB(3.9,44,2,3007,0)="""RTN"",""HLOSRVR"",16,0)"
^XMB(3.9,44,2,3008,0)=" D LISTEN^%ZISTCPS(WORK(""PORT""),""SERVER^HLOSRVR(""""""_WORK(""LINK"")_"""""")"")"
^XMB(3.9,44,2,3009,0)="""RTN"",""HLOSRVR"",17,0)"
^XMB(3.9,44,2,3010,0)=" Q"
^XMB(3.9,44,2,3011,0)="""RTN"",""HLOSRVR"",18,0)"
^XMB(3.9,44,2,3012,0)=" ;"
^XMB(3.9,44,2,3013,0)="""RTN"",""HLOSRVR"",19,0)"
^XMB(3.9,44,2,3014,0)="VMS2(LINKNAME) ;called from a VMS TCP Service once a connection request has been received.  This entry point should be used only if an additional VMS TCPIP Services are being created for HLO."
^XMB(3.9,44,2,3015,0)="""RTN"",""HLOSRVR"",20,0)"
^XMB(3.9,44,2,3016,0)=" ;Input:"
^XMB(3.9,44,2,3017,0)="""RTN"",""HLOSRVR"",21,0)"
^XMB(3.9,44,2,3018,0)=" ;   LINKNAME - only pass it in if an additional service is being created on a different port"
^XMB(3.9,44,2,3019,0)="""RTN"",""HLOSRVR"",22,0)"
^XMB(3.9,44,2,3020,0)=" Q:'$L(LINKNAME)"
^XMB(3.9,44,2,3021,0)="""RTN"",""HLOSRVR"",23,0)"
^XMB(3.9,44,2,3022,0)=" D VMS"
^XMB(3.9,44,2,3023,0)="""RTN"",""HLOSRVR"",24,0)"
^XMB(3.9,44,2,3024,0)=" Q"
^XMB(3.9,44,2,3025,0)="""RTN"",""HLOSRVR"",25,0)"
^XMB(3.9,44,2,3026,0)=" ;"
^XMB(3.9,44,2,3027,0)="""RTN"",""HLOSRVR"",26,0)"
^XMB(3.9,44,2,3028,0)="VMS ;Called from VMS TCP Service once a connection request has been received. This entry point should be used only by the standard HLO service that runs on the standard HLO port."
^XMB(3.9,44,2,3029,0)="""RTN"",""HLOSRVR"",27,0)"
^XMB(3.9,44,2,3030,0)=" Q:$$CHKSTOP^HLOPROC"
^XMB(3.9,44,2,3031,0)="""RTN"",""HLOSRVR"",28,0)"
^XMB(3.9,44,2,3032,0)=" D"
^XMB(3.9,44,2,3033,0)="""RTN"",""HLOSRVR"",29,0)"
^XMB(3.9,44,2,3034,0)=" .Q:$L($G(LINKNAME))"
^XMB(3.9,44,2,3035,0)="""RTN"",""HLOSRVR"",30,0)"
^XMB(3.9,44,2,3036,0)=" .;"
^XMB(3.9,44,2,3037,0)="""RTN"",""HLOSRVR"",31,0)"
^XMB(3.9,44,2,3038,0)=" .N PROC,NODE"
^XMB(3.9,44,2,3039,0)="""RTN"",""HLOSRVR"",32,0)"
^XMB(3.9,44,2,3040,0)=" .S PROC=$O(^HLD(779.3,""B"",""VMS TCP LISTENER"",0))"
^XMB(3.9,44,2,3041,0)="""RTN"",""HLOSRVR"",33,0)"
^XMB(3.9,44,2,3042,0)=" .I PROC S LINKNAME=$P($G(^HLD(779.3,PROC,0)),""^"",14) Q:$L(LINKNAME)"
^XMB(3.9,44,2,3043,0)="""RTN"",""HLOSRVR"",34,0)"
^XMB(3.9,44,2,3044,0)=" .S NODE=$G(^HLD(779.1,1,0)) I $P(NODE,""^"",10) S LINKNAME=$P($G(^HLCS(870,$P(NODE,""^"",10),0)),""^"") Q:$L(LINKNAME) "
^XMB(3.9,44,2,3045,0)="""RTN"",""HLOSRVR"",35,0)"
^XMB(3.9,44,2,3046,0)=" .S LINKNAME=""HLO DEFAULT LISTENER"""
^XMB(3.9,44,2,3047,0)="""RTN"",""HLOSRVR"",36,0)"
^XMB(3.9,44,2,3048,0)=" ;"
^XMB(3.9,44,2,3049,0)="""RTN"",""HLOSRVR"",37,0)"
^XMB(3.9,44,2,3050,0)=" D SERVER(LINKNAME,""SYS$NET"")"
^XMB(3.9,44,2,3051,0)="""RTN"",""HLOSRVR"",38,0)"
^XMB(3.9,44,2,3052,0)=" Q"
^XMB(3.9,44,2,3053,0)="""RTN"",""HLOSRVR"",39,0)"
^XMB(3.9,44,2,3054,0)=" ;"
^XMB(3.9,44,2,3055,0)="""RTN"",""HLOSRVR"",40,0)"
^XMB(3.9,44,2,3056,0)="SERVER(LINKNAME,LOGICAL) ; LINKNAME identifies the logical link, which describes the communication channel to be used"
^XMB(3.9,44,2,3057,0)="""RTN"",""HLOSRVR"",41,0)"
^XMB(3.9,44,2,3058,0)=" N $ETRAP,$ESTACK S $ETRAP=""G ERROR^HLOSRVR1"""
^XMB(3.9,44,2,3059,0)="""RTN"",""HLOSRVR"",42,0)"
^XMB(3.9,44,2,3060,0)=" N HLCSTATE,INQUE"
^XMB(3.9,44,2,3061,0)="""RTN"",""HLOSRVR"",43,0)"
^XMB(3.9,44,2,3062,0)=" S INQUE=0"
^XMB(3.9,44,2,3063,0)="""RTN"",""HLOSRVR"",44,0)"
^XMB(3.9,44,2,3064,0)=" Q:'$$CONNECT(.HLCSTATE,LINKNAME,.LOGICAL)"
^XMB(3.9,44,2,3065,0)="""RTN"",""HLOSRVR"",45,0)"
^XMB(3.9,44,2,3066,0)=" K LINKNAME"
^XMB(3.9,44,2,3067,0)="""RTN"",""HLOSRVR"",46,0)"
^XMB(3.9,44,2,3068,0)=" F  Q:'HLCSTATE(""CONNECTED"")  D  Q:$$CHKSTOP^HLOPROC"
^XMB(3.9,44,2,3069,0)="""RTN"",""HLOSRVR"",47,0)"
^XMB(3.9,44,2,3070,0)=" .N HLMSTATE,SENT"
^XMB(3.9,44,2,3071,0)="""RTN"",""HLOSRVR"",48,0)"
^XMB(3.9,44,2,3072,0)=" .;"
^XMB(3.9,44,2,3073,0)="""RTN"",""HLOSRVR"",49,0)"
^XMB(3.9,44,2,3074,0)=" .;read msg and parse the hdr"
^XMB(3.9,44,2,3075,0)="""RTN"",""HLOSRVR"",50,0)"
^XMB(3.9,44,2,3076,0)=" .;HLMSTATE(""MSA"",1) is set with type of ack to return"
^XMB(3.9,44,2,3077,0)="""RTN"",""HLOSRVR"",51,0)"
^XMB(3.9,44,2,3078,0)=" .I $$READMSG^HLOSRVR1(.HLCSTATE,.HLMSTATE) D"
^XMB(3.9,44,2,3079,0)="""RTN"",""HLOSRVR"",52,0)"
^XMB(3.9,44,2,3080,0)=" ..;"
^XMB(3.9,44,2,3081,0)="""RTN"",""HLOSRVR"",53,0)"
^XMB(3.9,44,2,3082,0)=" ..;send an ack if required and save the MSA segment"
^XMB(3.9,44,2,3083,0)="""RTN"",""HLOSRVR"",54,0)"
^XMB(3.9,44,2,3084,0)=" ..I (HLMSTATE(""MSA"",1)]"""") S SENT=$$WRITEACK(.HLCSTATE,.HLMSTATE) D:HLMSTATE(""IEN"") SAVEACK(.HLMSTATE,SENT)"
^XMB(3.9,44,2,3085,0)="""RTN"",""HLOSRVR"",55,0)"
^XMB(3.9,44,2,3086,0)=" ..D:HLMSTATE(""IEN"") UPDATE(.HLMSTATE,.HLCSTATE)"
^XMB(3.9,44,2,3087,0)="""RTN"",""HLOSRVR"",56,0)"
^XMB(3.9,44,2,3088,0)=" ..D:HLCSTATE(""COUNTS"")>4 SAVECNTS^HLOSTAT(.HLCSTATE)"
^XMB(3.9,44,2,3089,0)="""RTN"",""HLOSRVR"",57,0)"
^XMB(3.9,44,2,3090,0)=" .E  D INQUE() H:HLCSTATE(""CONNECTED"") 1"
^XMB(3.9,44,2,3091,0)="""RTN"",""HLOSRVR"",58,0)"
^XMB(3.9,44,2,3092,0)=" ;"
^XMB(3.9,44,2,3093,0)="""RTN"",""HLOSRVR"",59,0)"
^XMB(3.9,44,2,3094,0)="END D CLOSE^HLOT(.HLCSTATE)"
^XMB(3.9,44,2,3095,0)="""RTN"",""HLOSRVR"",60,0)"
^XMB(3.9,44,2,3096,0)=" D INQUE()"
^XMB(3.9,44,2,3097,0)="""RTN"",""HLOSRVR"",61,0)"
^XMB(3.9,44,2,3098,0)=" D SAVECNTS^HLOSTAT(.HLCSTATE)"
^XMB(3.9,44,2,3099,0)="""RTN"",""HLOSRVR"",62,0)"
^XMB(3.9,44,2,3100,0)=" Q"
^XMB(3.9,44,2,3101,0)="""RTN"",""HLOSRVR"",63,0)"
^XMB(3.9,44,2,3102,0)=" ;"
^XMB(3.9,44,2,3103,0)="""RTN"",""HLOSRVR"",64,0)"
^XMB(3.9,44,2,3104,0)="CONNECT(HLCSTATE,LINKNAME,LOGICAL) ;"
^XMB(3.9,44,2,3105,0)="""RTN"",""HLOSRVR"",65,0)"
^XMB(3.9,44,2,3106,0)=" ;sets up HLCSTATE() and opens a server connection"
^XMB(3.9,44,2,3107,0)="""RTN"",""HLOSRVR"",66,0)"
^XMB(3.9,44,2,3108,0)=" ;"
^XMB(3.9,44,2,3109,0)="""RTN"",""HLOSRVR"",67,0)"
^XMB(3.9,44,2,3110,0)=" N LINK,NODE"
^XMB(3.9,44,2,3111,0)="""RTN"",""HLOSRVR"",68,0)"
^XMB(3.9,44,2,3112,0)=" S HLCSTATE(""CONNECTED"")=0"
^XMB(3.9,44,2,3113,0)="""RTN"",""HLOSRVR"",69,0)"
^XMB(3.9,44,2,3114,0)=" Q:'$$GETLINK^HLOTLNK(LINKNAME,.LINK) 0"
^XMB(3.9,44,2,3115,0)="""RTN"",""HLOSRVR"",70,0)"
^XMB(3.9,44,2,3116,0)=" Q:+LINK(""SERVER"")'=1 0"
^XMB(3.9,44,2,3117,0)="""RTN"",""HLOSRVR"",71,0)"
^XMB(3.9,44,2,3118,0)=" S HLCSTATE(""SERVER"")=LINK(""SERVER"")"
^XMB(3.9,44,2,3119,0)="""RTN"",""HLOSRVR"",72,0)"
^XMB(3.9,44,2,3120,0)=" M HLCSTATE(""LINK"")=LINK"
^XMB(3.9,44,2,3121,0)="""RTN"",""HLOSRVR"",73,0)"
^XMB(3.9,44,2,3122,0)=" S HLCSTATE(""READ TIMEOUT"")=20"
^XMB(3.9,44,2,3123,0)="""RTN"",""HLOSRVR"",74,0)"
^XMB(3.9,44,2,3124,0)=" S HLCSTATE(""OPEN TIMEOUT"")=30"
^XMB(3.9,44,2,3125,0)="""RTN"",""HLOSRVR"",75,0)"
^XMB(3.9,44,2,3126,0)=" S HLCSTATE(""READ"")="""" ;buffer for reads"
^XMB(3.9,44,2,3127,0)="""RTN"",""HLOSRVR"",76,0)"
^XMB(3.9,44,2,3128,0)=" ;"
^XMB(3.9,44,2,3129,0)="""RTN"",""HLOSRVR"",77,0)"
^XMB(3.9,44,2,3130,0)=" ;HLCSTATE(""BUFFER"",<seg>,<line>)  write buffer"
^XMB(3.9,44,2,3131,0)="""RTN"",""HLOSRVR"",78,0)"
^XMB(3.9,44,2,3132,0)=" S HLCSTATE(""BUFFER"",""BYTE COUNT"")=0 ;count of bytes in buffer"
^XMB(3.9,44,2,3133,0)="""RTN"",""HLOSRVR"",79,0)"
^XMB(3.9,44,2,3134,0)=" S HLCSTATE(""BUFFER"",""SEGMENT COUNT"")=0 ;count of segments in buffer"
^XMB(3.9,44,2,3135,0)="""RTN"",""HLOSRVR"",80,0)"
^XMB(3.9,44,2,3136,0)=" ;"
^XMB(3.9,44,2,3137,0)="""RTN"",""HLOSRVR"",81,0)"
^XMB(3.9,44,2,3138,0)=" S HLCSTATE(""COUNTS"")=0"
^XMB(3.9,44,2,3139,0)="""RTN"",""HLOSRVR"",82,0)"
^XMB(3.9,44,2,3140,0)=" S HLCSTATE(""MESSAGE ENDED"")=0 ;end of message flag"
^XMB(3.9,44,2,3141,0)="""RTN"",""HLOSRVR"",83,0)"
^XMB(3.9,44,2,3142,0)=" S NODE=^%ZOSF(""OS"")"
^XMB(3.9,44,2,3143,0)="""RTN"",""HLOSRVR"",84,0)"
^XMB(3.9,44,2,3144,0)=" S HLCSTATE(""SYSTEM"",""OS"")=$S(NODE[""DSM"":""DSM"",NODE[""OpenM"":""CACHE"",NODE[""G.TM"":""G.TM"",1:"""")"
^XMB(3.9,44,2,3145,0)="""RTN"",""HLOSRVR"",85,0)"
^XMB(3.9,44,2,3146,0)=" Q:HLCSTATE(""SYSTEM"",""OS"")="""" 0"
^XMB(3.9,44,2,3147,0)="""RTN"",""HLOSRVR"",86,0)"
^XMB(3.9,44,2,3148,0)=" D  ;get necessary system parameters"
^XMB(3.9,44,2,3149,0)="""RTN"",""HLOSRVR"",87,0)"
^XMB(3.9,44,2,3150,0)=" .N SYS,SUB"
^XMB(3.9,44,2,3151,0)="""RTN"",""HLOSRVR"",88,0)"
^XMB(3.9,44,2,3152,0)=" .D SYSPARMS^HLOSITE(.SYS)"
^XMB(3.9,44,2,3153,0)="""RTN"",""HLOSRVR"",89,0)"
^XMB(3.9,44,2,3154,0)=" .F SUB=""MAXSTRING"",""DOMAIN"",""STATION"",""PROCESSING ID"",""NORMAL PURGE"",""ERROR PURGE"" S HLCSTATE(""SYSTEM"",SUB)=SYS(SUB)"
^XMB(3.9,44,2,3155,0)="""RTN"",""HLOSRVR"",90,0)"
^XMB(3.9,44,2,3156,0)=" .S HLCSTATE(""SYSTEM"",""BUFFER"")=SYS(""HL7 BUFFER"")"
^XMB(3.9,44,2,3157,0)="""RTN"",""HLOSRVR"",91,0)"
^XMB(3.9,44,2,3158,0)=" I HLCSTATE(""LINK"",""LLP"")=""TCP"" D"
^XMB(3.9,44,2,3159,0)="""RTN"",""HLOSRVR"",92,0)"
^XMB(3.9,44,2,3160,0)=" .D OPEN^HLOTCP(.HLCSTATE,.LOGICAL)"
^XMB(3.9,44,2,3161,0)="""RTN"",""HLOSRVR"",93,0)"
^XMB(3.9,44,2,3162,0)=" E  ;no other LLP implemented"
^XMB(3.9,44,2,3163,0)="""RTN"",""HLOSRVR"",94,0)"
^XMB(3.9,44,2,3164,0)=" ;"
^XMB(3.9,44,2,3165,0)="""RTN"",""HLOSRVR"",95,0)"
^XMB(3.9,44,2,3166,0)=" Q HLCSTATE(""CONNECTED"")"
^XMB(3.9,44,2,3167,0)="""RTN"",""HLOSRVR"",96,0)"
^XMB(3.9,44,2,3168,0)=" ;"
^XMB(3.9,44,2,3169,0)="""RTN"",""HLOSRVR"",97,0)"
^XMB(3.9,44,2,3170,0)="INQUE(MSGIEN,PARMS) ;"
^XMB(3.9,44,2,3171,0)="""RTN"",""HLOSRVR"",98,0)"
^XMB(3.9,44,2,3172,0)=" ;puts received messages on the incoming queue and sets the B x-refs"
^XMB(3.9,44,2,3173,0)="""RTN"",""HLOSRVR"",99,0)"
^XMB(3.9,44,2,3174,0)=" I $G(MSGIEN) S INQUE=INQUE+1 M INQUE(MSGIEN)=PARMS"
^XMB(3.9,44,2,3175,0)="""RTN"",""HLOSRVR"",100,0)"
^XMB(3.9,44,2,3176,0)=" I ('$G(MSGIEN))!(INQUE>20) S MSGIEN=0 D"
^XMB(3.9,44,2,3177,0)="""RTN"",""HLOSRVR"",101,0)"
^XMB(3.9,44,2,3178,0)=" .F  S MSGIEN=$O(INQUE(MSGIEN)) Q:'MSGIEN  D"
^XMB(3.9,44,2,3179,0)="""RTN"",""HLOSRVR"",102,0)"
^XMB(3.9,44,2,3180,0)=" ..S ^HLB(""B"",INQUE(MSGIEN,""MSGID""),MSGIEN)="""""
^XMB(3.9,44,2,3181,0)="""RTN"",""HLOSRVR"",103,0)"
^XMB(3.9,44,2,3182,0)=" ..S ^HLA(""B"",INQUE(MSGIEN,""DT/TM""),INQUE(MSGIEN,""BODY""))="""""
^XMB(3.9,44,2,3183,0)="""RTN"",""HLOSRVR"",104,0)"
^XMB(3.9,44,2,3184,0)=" ..D:INQUE(MSGIEN,""PASS"")"
^XMB(3.9,44,2,3185,0)="""RTN"",""HLOSRVR"",105,0)"
^XMB(3.9,44,2,3186,0)=" ...N PURGE"
^XMB(3.9,44,2,3187,0)="""RTN"",""HLOSRVR"",106,0)"
^XMB(3.9,44,2,3188,0)=" ...S PURGE=+$G(INQUE(MSGIEN,""PURGE""))"
^XMB(3.9,44,2,3189,0)="""RTN"",""HLOSRVR"",107,0)"
^XMB(3.9,44,2,3190,0)=" ...S PURGE(""ACKTOIEN"")=$G(INQUE(MSGIEN,""ACKTOIEN""))"
^XMB(3.9,44,2,3191,0)="""RTN"",""HLOSRVR"",108,0)"
^XMB(3.9,44,2,3192,0)=" ...D INQUE^HLOQUE(INQUE(MSGIEN,""FROM""),INQUE(MSGIEN,""QUEUE""),MSGIEN,INQUE(MSGIEN,""ACTION""),.PURGE)"
^XMB(3.9,44,2,3193,0)="""RTN"",""HLOSRVR"",109,0)"
^XMB(3.9,44,2,3194,0)=" .K INQUE S INQUE=0"
^XMB(3.9,44,2,3195,0)="""RTN"",""HLOSRVR"",110,0)"
^XMB(3.9,44,2,3196,0)=" Q"
^XMB(3.9,44,2,3197,0)="""RTN"",""HLOSRVR"",111,0)"
^XMB(3.9,44,2,3198,0)=" ;"
^XMB(3.9,44,2,3199,0)="""RTN"",""HLOSRVR"",112,0)"
^XMB(3.9,44,2,3200,0)="SAVEACK(HLMSTATE,SENT) ;"
^XMB(3.9,44,2,3201,0)="""RTN"",""HLOSRVR"",113,0)"
^XMB(3.9,44,2,3202,0)=" ;Input:"
^XMB(3.9,44,2,3203,0)="""RTN"",""HLOSRVR"",114,0)"
^XMB(3.9,44,2,3204,0)=" ;  SENT - flag = 1 if transmission of ack succeeded, 0 otherwise"
^XMB(3.9,44,2,3205,0)="""RTN"",""HLOSRVR"",115,0)"
^XMB(3.9,44,2,3206,0)=" ;"
^XMB(3.9,44,2,3207,0)="""RTN"",""HLOSRVR"",116,0)"
^XMB(3.9,44,2,3208,0)=" N NODE,I"
^XMB(3.9,44,2,3209,0)="""RTN"",""HLOSRVR"",117,0)"
^XMB(3.9,44,2,3210,0)=" S $P(NODE,""^"")=HLMSTATE(""MSA"",""DT/TM OF MESSAGE"")"
^XMB(3.9,44,2,3211,0)="""RTN"",""HLOSRVR"",118,0)"
^XMB(3.9,44,2,3212,0)=" S $P(NODE,""^"",2)=HLMSTATE(""MSA"",""MESSAGE CONTROL ID"")"
^XMB(3.9,44,2,3213,0)="""RTN"",""HLOSRVR"",119,0)"
^XMB(3.9,44,2,3214,0)=" S $P(NODE,""^"",3)=""MSA"""
^XMB(3.9,44,2,3215,0)="""RTN"",""HLOSRVR"",120,0)"
^XMB(3.9,44,2,3216,0)=" F I=1:1:3 S NODE=NODE_""|""_$G(HLMSTATE(""MSA"",I))"
^XMB(3.9,44,2,3217,0)="""RTN"",""HLOSRVR"",121,0)"
^XMB(3.9,44,2,3218,0)=" S ^HLB(HLMSTATE(""IEN""),4)=NODE"
^XMB(3.9,44,2,3219,0)="""RTN"",""HLOSRVR"",122,0)"
^XMB(3.9,44,2,3220,0)=" S:SENT $P(^HLB(HLMSTATE(""IEN""),0),""^"",$S($E(HLMSTATE(""MSA"",1))=""A"":18,1:17))=1"
^XMB(3.9,44,2,3221,0)="""RTN"",""HLOSRVR"",123,0)"
^XMB(3.9,44,2,3222,0)=" Q"
^XMB(3.9,44,2,3223,0)="""RTN"",""HLOSRVR"",124,0)"
^XMB(3.9,44,2,3224,0)=" ;"
^XMB(3.9,44,2,3225,0)="""RTN"",""HLOSRVR"",125,0)"
^XMB(3.9,44,2,3226,0)="UPDATE(HLMSTATE,HLCSTATE) ;"
^XMB(3.9,44,2,3227,0)="""RTN"",""HLOSRVR"",126,0)"
^XMB(3.9,44,2,3228,0)=" ;Updates status and purge date when appropriate"
^XMB(3.9,44,2,3229,0)="""RTN"",""HLOSRVR"",127,0)"
^XMB(3.9,44,2,3230,0)=" ;Also, sets the ""B"" xrefs, files 777,778, and places message on the incoming queue"
^XMB(3.9,44,2,3231,0)="""RTN"",""HLOSRVR"",128,0)"
^XMB(3.9,44,2,3232,0)=" ;"
^XMB(3.9,44,2,3233,0)="""RTN"",""HLOSRVR"",129,0)"
^XMB(3.9,44,2,3234,0)=" N PARMS,PURGE,WAIT"
^XMB(3.9,44,2,3235,0)="""RTN"",""HLOSRVR"",130,0)"
^XMB(3.9,44,2,3236,0)=" S PARMS(""PASS"")=0"
^XMB(3.9,44,2,3237,0)="""RTN"",""HLOSRVR"",131,0)"
^XMB(3.9,44,2,3238,0)=" I HLMSTATE(""STATUS"",""ACTION"")]"""",HLMSTATE(""STATUS"")'=""SE"" S PARMS(""PASS"")=1,$P(^HLB(HLMSTATE(""IEN""),0),""^"",6)=HLMSTATE(""STATUS"",""QUEUE"")"
^XMB(3.9,44,2,3239,0)="""RTN"",""HLOSRVR"",132,0)"
^XMB(3.9,44,2,3240,0)=" D:'PARMS(""PASS"")  ;if not passing to the app, set the purge date"
^XMB(3.9,44,2,3241,0)="""RTN"",""HLOSRVR"",133,0)"
^XMB(3.9,44,2,3242,0)=" .I HLMSTATE(""STATUS"")="""" S HLMSTATE(""STATUS"")=""SU"""
^XMB(3.9,44,2,3243,0)="""RTN"",""HLOSRVR"",134,0)"
^XMB(3.9,44,2,3244,0)=" .S:HLMSTATE(""BATCH"") WAIT=HLCSTATE(""SYSTEM"",""ERROR PURGE"")"
^XMB(3.9,44,2,3245,0)="""RTN"",""HLOSRVR"",135,0)"
^XMB(3.9,44,2,3246,0)=" .S:'HLMSTATE(""BATCH"") WAIT=$S(HLMSTATE(""STATUS"")=""SE"":24*HLCSTATE(""SYSTEM"",""ERROR PURGE""),1:HLCSTATE(""SYSTEM"",""NORMAL PURGE""))"
^XMB(3.9,44,2,3247,0)="""RTN"",""HLOSRVR"",136,0)"
^XMB(3.9,44,2,3248,0)=" .S PURGE=$$FMADD^XLFDT($$NOW^XLFDT,,WAIT)"
^XMB(3.9,44,2,3249,0)="""RTN"",""HLOSRVR"",137,0)"
^XMB(3.9,44,2,3250,0)=" .S $P(^HLB(HLMSTATE(""IEN""),0),""^"",9)=PURGE"
^XMB(3.9,44,2,3251,0)="""RTN"",""HLOSRVR"",138,0)"
^XMB(3.9,44,2,3252,0)=" .S ^HLB(""AD"",""IN"",PURGE,HLMSTATE(""IEN""))="""""
^XMB(3.9,44,2,3253,0)="""RTN"",""HLOSRVR"",139,0)"
^XMB(3.9,44,2,3254,0)=" .;if this is an app ack, purge the original message at the same time"
^XMB(3.9,44,2,3255,0)="""RTN"",""HLOSRVR"",140,0)"
^XMB(3.9,44,2,3256,0)=" .I $G(HLMSTATE(""ACK TO"",""IEN"")),'HLMSTATE(""BATCH"") D"
^XMB(3.9,44,2,3257,0)="""RTN"",""HLOSRVR"",141,0)"
^XMB(3.9,44,2,3258,0)=" ..S $P(^HLB(+HLMSTATE(""ACK TO"",""IEN""),0),""^"",9)=PURGE"
^XMB(3.9,44,2,3259,0)="""RTN"",""HLOSRVR"",142,0)"
^XMB(3.9,44,2,3260,0)=" ..S ^HLB(""AD"",""IN"",PURGE,+HLMSTATE(""ACK TO"",""IEN""))="""""
^XMB(3.9,44,2,3261,0)="""RTN"",""HLOSRVR"",143,0)"
^XMB(3.9,44,2,3262,0)=" ;"
^XMB(3.9,44,2,3263,0)="""RTN"",""HLOSRVR"",144,0)"
^XMB(3.9,44,2,3264,0)=" ;if not waiting for an application ack, set the status now even if passing to the app - but don't set the purge until the infiler passes the message"
^XMB(3.9,44,2,3265,0)="""RTN"",""HLOSRVR"",145,0)"
^XMB(3.9,44,2,3266,0)=" I HLMSTATE(""STATUS"")="""",HLMSTATE(""HDR"",""APP ACK TYPE"")'=""AL"" S HLMSTATE(""STATUS"")=""SU"""
^XMB(3.9,44,2,3267,0)="""RTN"",""HLOSRVR"",146,0)"
^XMB(3.9,44,2,3268,0)=" I HLMSTATE(""STATUS"")'="""" S $P(^HLB(HLMSTATE(""IEN""),0),""^"",20)=HLMSTATE(""STATUS"") S:$G(HLMSTATE(""MSA"",3))]"""" $P(^HLB(HLMSTATE(""IEN""),0),""^"",21)=HLMSTATE(""MSA"",3) D:HLMSTATE(""STATUS"")=""SE"""
^XMB(3.9,44,2,3269,0)="""RTN"",""HLOSRVR"",147,0)"
^XMB(3.9,44,2,3270,0)=" .N APP"
^XMB(3.9,44,2,3271,0)="""RTN"",""HLOSRVR"",148,0)"
^XMB(3.9,44,2,3272,0)=" .S APP=HLMSTATE(""HDR"",""RECEIVING APPLICATION"") S:APP="""" APP=""UNKNOWN"" S ^HLB(""ERRORS"",""SE"",APP,HLMSTATE(""DT/TM""),HLMSTATE(""IEN""))="""""
^XMB(3.9,44,2,3273,0)="""RTN"",""HLOSRVR"",149,0)"
^XMB(3.9,44,2,3274,0)=" ;"
^XMB(3.9,44,2,3275,0)="""RTN"",""HLOSRVR"",150,0)"
^XMB(3.9,44,2,3276,0)=" ;set the necessary parms for passing the msg to the app via the infiler"
^XMB(3.9,44,2,3277,0)="""RTN"",""HLOSRVR"",151,0)"
^XMB(3.9,44,2,3278,0)=" D:PARMS(""PASS"")"
^XMB(3.9,44,2,3279,0)="""RTN"",""HLOSRVR"",152,0)"
^XMB(3.9,44,2,3280,0)=" .N I,FROM"
^XMB(3.9,44,2,3281,0)="""RTN"",""HLOSRVR"",153,0)"
^XMB(3.9,44,2,3282,0)=" .S FROM=HLMSTATE(""HDR"",""SENDING FACILITY"",1)"
^XMB(3.9,44,2,3283,0)="""RTN"",""HLOSRVR"",154,0)"
^XMB(3.9,44,2,3284,0)=" .I HLMSTATE(""HDR"",""SENDING FACILITY"",2)]"""" S FROM=FROM_""~""_HLMSTATE(""HDR"",""SENDING FACILITY"",2)_""~""_HLMSTATE(""HDR"",""SENDING FACILITY"",3)"
^XMB(3.9,44,2,3285,0)="""RTN"",""HLOSRVR"",155,0)"
^XMB(3.9,44,2,3286,0)=" .I FROM="""" S FROM=""UNKNOWN SENDING FACILITY"""
^XMB(3.9,44,2,3287,0)="""RTN"",""HLOSRVR"",156,0)"
^XMB(3.9,44,2,3288,0)=" .S PARMS(""FROM"")=FROM,PARMS(""QUEUE"")=HLMSTATE(""STATUS"",""QUEUE""),PARMS(""ACTION"")=HLMSTATE(""STATUS"",""ACTION"")"
^XMB(3.9,44,2,3289,0)="""RTN"",""HLOSRVR"",157,0)"
^XMB(3.9,44,2,3290,0)=" .I HLMSTATE(""STATUS"")'="""" S PARMS(""PURGE"")=1"
^XMB(3.9,44,2,3291,0)="""RTN"",""HLOSRVR"",158,0)"
^XMB(3.9,44,2,3292,0)=" .S:$G(HLMSTATE(""ACK TO"",""IEN"")) PARMS(""ACKTOIEN"")=HLMSTATE(""ACK TO"",""IEN"") ;to insure that the infiler will know to set the purge date at the same time as the initial message"
^XMB(3.9,44,2,3293,0)="""RTN"",""HLOSRVR"",159,0)"
^XMB(3.9,44,2,3294,0)=" ;"
^XMB(3.9,44,2,3295,0)="""RTN"",""HLOSRVR"",160,0)"
^XMB(3.9,44,2,3296,0)=" S PARMS(""BODY"")=HLMSTATE(""BODY"")"
^XMB(3.9,44,2,3297,0)="""RTN"",""HLOSRVR"",161,0)"
^XMB(3.9,44,2,3298,0)=" S PARMS(""DT/TM"")=HLMSTATE(""DT/TM"")"
^XMB(3.9,44,2,3299,0)="""RTN"",""HLOSRVR"",162,0)"
^XMB(3.9,44,2,3300,0)=" S PARMS(""MSGID"")=HLMSTATE(""ID"")"
^XMB(3.9,44,2,3301,0)="""RTN"",""HLOSRVR"",163,0)"
^XMB(3.9,44,2,3302,0)=" D INQUE(HLMSTATE(""IEN""),.PARMS)"
^XMB(3.9,44,2,3303,0)="""RTN"",""HLOSRVR"",164,0)"
^XMB(3.9,44,2,3304,0)=" Q"
^XMB(3.9,44,2,3305,0)="""RTN"",""HLOSRVR"",165,0)"
^XMB(3.9,44,2,3306,0)=" ;"
^XMB(3.9,44,2,3307,0)="""RTN"",""HLOSRVR"",166,0)"
^XMB(3.9,44,2,3308,0)="WRITEACK(HLCSTATE,HLMSTATE) ;"
^XMB(3.9,44,2,3309,0)="""RTN"",""HLOSRVR"",167,0)"
^XMB(3.9,44,2,3310,0)=" ;Sends an accept ack"
^XMB(3.9,44,2,3311,0)="""RTN"",""HLOSRVR"",168,0)"
^XMB(3.9,44,2,3312,0)=" ;"
^XMB(3.9,44,2,3313,0)="""RTN"",""HLOSRVR"",169,0)"
^XMB(3.9,44,2,3314,0)=" ;Input:"
^XMB(3.9,44,2,3315,0)="""RTN"",""HLOSRVR"",170,0)"
^XMB(3.9,44,2,3316,0)=" ;  HLCSTATE (pass by reference) defines the communication channel"
^XMB(3.9,44,2,3317,0)="""RTN"",""HLOSRVR"",171,0)"
^XMB(3.9,44,2,3318,0)=" ;  HLMSTATE (pass by reference) the message being acked"
^XMB(3.9,44,2,3319,0)="""RTN"",""HLOSRVR"",172,0)"
^XMB(3.9,44,2,3320,0)=" ;     (""MSA"",1) - value for MSA-1"
^XMB(3.9,44,2,3321,0)="""RTN"",""HLOSRVR"",173,0)"
^XMB(3.9,44,2,3322,0)=" ;     (""MSA"",2) - value for MSA-2"
^XMB(3.9,44,2,3323,0)="""RTN"",""HLOSRVR"",174,0)"
^XMB(3.9,44,2,3324,0)=" ;     (""MSA"",3) - value for MSA-3"
^XMB(3.9,44,2,3325,0)="""RTN"",""HLOSRVR"",175,0)"
^XMB(3.9,44,2,3326,0)=" ;     (""HDR"") - parsed values for the message being ack'd"
^XMB(3.9,44,2,3327,0)="""RTN"",""HLOSRVR"",176,0)"
^XMB(3.9,44,2,3328,0)=" ;Output:"
^XMB(3.9,44,2,3329,0)="""RTN"",""HLOSRVR"",177,0)"
^XMB(3.9,44,2,3330,0)=" ;  Function returns 1 if successful, 0 otherwise"
^XMB(3.9,44,2,3331,0)="""RTN"",""HLOSRVR"",178,0)"
^XMB(3.9,44,2,3332,0)=" ;  HLMSTATE(""MSA"",""MESSAGE CONTROL ID"") - the msg id of the ack"
^XMB(3.9,44,2,3333,0)="""RTN"",""HLOSRVR"",179,0)"
^XMB(3.9,44,2,3334,0)=" ;  HLMSTATE(,""MSA"",""DT/TM OF MESSAGE"") - from the ack header"
^XMB(3.9,44,2,3335,0)="""RTN"",""HLOSRVR"",180,0)"
^XMB(3.9,44,2,3336,0)=" ;"
^XMB(3.9,44,2,3337,0)="""RTN"",""HLOSRVR"",181,0)"
^XMB(3.9,44,2,3338,0)=" N HDR,SUB,FS,CS,MSA,ACKID,TIME"
^XMB(3.9,44,2,3339,0)="""RTN"",""HLOSRVR"",182,0)"
^XMB(3.9,44,2,3340,0)=" ;Hard-code the delimiters, the standard requires that the receiving system accept the delimiters listed in the header"
^XMB(3.9,44,2,3341,0)="""RTN"",""HLOSRVR"",183,0)"
^XMB(3.9,44,2,3342,0)=" S FS=""|"""
^XMB(3.9,44,2,3343,0)="""RTN"",""HLOSRVR"",184,0)"
^XMB(3.9,44,2,3344,0)=" S CS=""^"""
^XMB(3.9,44,2,3345,0)="""RTN"",""HLOSRVR"",185,0)"
^XMB(3.9,44,2,3346,0)=" S TIME=$$NOW^XLFDT"
^XMB(3.9,44,2,3347,0)="""RTN"",""HLOSRVR"",186,0)"
^XMB(3.9,44,2,3348,0)=" S HLMSTATE(""MSA"",""DT/TM OF MESSAGE"")=TIME"
^XMB(3.9,44,2,3349,0)="""RTN"",""HLOSRVR"",187,0)"
^XMB(3.9,44,2,3350,0)=" S ACKID=HLCSTATE(""SYSTEM"",""STATION"")_"" ""_$$NEWIEN^HLOF778A(""OUT"")"
^XMB(3.9,44,2,3351,0)="""RTN"",""HLOSRVR"",188,0)"
^XMB(3.9,44,2,3352,0)=" S HLMSTATE(""MSA"",""MESSAGE CONTROL ID"")=ACKID"
^XMB(3.9,44,2,3353,0)="""RTN"",""HLOSRVR"",189,0)"
^XMB(3.9,44,2,3354,0)=" ;"
^XMB(3.9,44,2,3355,0)="""RTN"",""HLOSRVR"",190,0)"
^XMB(3.9,44,2,3356,0)=" S HDR(1)=""MSH""_FS_""^~\&""_FS_HLMSTATE(""HDR"",""RECEIVING APPLICATION"")_FS_HLCSTATE(""SYSTEM"",""STATION"")_CS_HLCSTATE(""SYSTEM"",""DOMAIN"")_CS_""DNS""_FS"
^XMB(3.9,44,2,3357,0)="""RTN"",""HLOSRVR"",191,0)"
^XMB(3.9,44,2,3358,0)=" S HDR(1)=HDR(1)_HLMSTATE(""HDR"",""SENDING APPLICATION"")_FS_HLMSTATE(""HDR"",""SENDING FACILITY"",1)_CS_HLMSTATE(""HDR"",""SENDING FACILITY"",2)_CS_HLMSTATE(""HDR"",""SENDING FACILITY"",3)"
^XMB(3.9,44,2,3359,0)="""RTN"",""HLOSRVR"",192,0)"
^XMB(3.9,44,2,3360,0)=" ;"
^XMB(3.9,44,2,3361,0)="""RTN"",""HLOSRVR"",193,0)"
^XMB(3.9,44,2,3362,0)=" S HDR(2)=FS_$$HLDATE^HLFNC(TIME,""TS"")_FS_FS_""ACK""_FS_ACKID_FS_HLMSTATE(""HDR"",""PROCESSING ID"")_FS_""2.4""_FS_FS_FS_""NE""_FS_""NE"""
^XMB(3.9,44,2,3363,0)="""RTN"",""HLOSRVR"",194,0)"
^XMB(3.9,44,2,3364,0)=" ;"
^XMB(3.9,44,2,3365,0)="""RTN"",""HLOSRVR"",195,0)"
^XMB(3.9,44,2,3366,0)=" S MSA(1)=""MSA""_FS"
^XMB(3.9,44,2,3367,0)="""RTN"",""HLOSRVR"",196,0)"
^XMB(3.9,44,2,3368,0)=" F SUB=1:1:3 S MSA(1)=MSA(1)_HLMSTATE(""MSA"",SUB)_FS"
^XMB(3.9,44,2,3369,0)="""RTN"",""HLOSRVR"",197,0)"
^XMB(3.9,44,2,3370,0)=" I $$WRITEHDR^HLOT(.HLCSTATE,.HDR),$$WRITESEG^HLOT(.HLCSTATE,.MSA),$$ENDMSG^HLOT(.HLCSTATE) S HLCSTATE(""COUNTS"",""ACKS"")=$G(HLCSTATE(""COUNTS"",""ACKS""))+1 Q 1"
^XMB(3.9,44,2,3371,0)="""RTN"",""HLOSRVR"",198,0)"
^XMB(3.9,44,2,3372,0)=" S HLMSTATE(""MSA"",""DT/TM OF MESSAGE"")="""""
^XMB(3.9,44,2,3373,0)="""RTN"",""HLOSRVR"",199,0)"
^XMB(3.9,44,2,3374,0)=" Q 0"
^XMB(3.9,44,2,3375,0)="""RTN"",""HLOSRVR1"")"
^XMB(3.9,44,2,3376,0)="0^5^B63396021^B65124218"
^XMB(3.9,44,2,3377,0)="""RTN"",""HLOSRVR1"",1,0)"
^XMB(3.9,44,2,3378,0)="HLOSRVR1 ;IRMFO-ALB/CJM - Reading messages, sending acks;03/24/2004  14:43"
^XMB(3.9,44,2,3379,0)="""RTN"",""HLOSRVR1"",2,0)"
^XMB(3.9,44,2,3380,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126,130,131**;Oct 13, 1995;Build 10"
^XMB(3.9,44,2,3381,0)="""RTN"",""HLOSRVR1"",3,0)"
^XMB(3.9,44,2,3382,0)=" ;"
^XMB(3.9,44,2,3383,0)="""RTN"",""HLOSRVR1"",4,0)"
^XMB(3.9,44,2,3384,0)="READMSG(HLCSTATE,HLMSTATE) ;"
^XMB(3.9,44,2,3385,0)="""RTN"",""HLOSRVR1"",5,0)"
^XMB(3.9,44,2,3386,0)=" ;This function uses the services provided by the transport layer to receive a message.  The header is parsed. Does these checks:"
^XMB(3.9,44,2,3387,0)="""RTN"",""HLOSRVR1"",6,0)"
^XMB(3.9,44,2,3388,0)=" ; 1) Duplicate?"
^XMB(3.9,44,2,3389,0)="""RTN"",""HLOSRVR1"",7,0)"
^XMB(3.9,44,2,3390,0)=" ; 2) Wrong Receiving Facility?"
^XMB(3.9,44,2,3391,0)="""RTN"",""HLOSRVR1"",8,0)"
^XMB(3.9,44,2,3392,0)=" ; 3) Can the Receiving App accept this message, based message type & event?"
^XMB(3.9,44,2,3393,0)="""RTN"",""HLOSRVR1"",9,0)"
^XMB(3.9,44,2,3394,0)=" ; 4) Processing ID must match the receiving system"
^XMB(3.9,44,2,3395,0)="""RTN"",""HLOSRVR1"",10,0)"
^XMB(3.9,44,2,3396,0)=" ; 5) Must have an ID"
^XMB(3.9,44,2,3397,0)="""RTN"",""HLOSRVR1"",11,0)"
^XMB(3.9,44,2,3398,0)=" ; 6) Header must be BHS or MSH"
^XMB(3.9,44,2,3399,0)="""RTN"",""HLOSRVR1"",12,0)"
^XMB(3.9,44,2,3400,0)=" ;"
^XMB(3.9,44,2,3401,0)="""RTN"",""HLOSRVR1"",13,0)"
^XMB(3.9,44,2,3402,0)=" ;Output:"
^XMB(3.9,44,2,3403,0)="""RTN"",""HLOSRVR1"",14,0)"
^XMB(3.9,44,2,3404,0)=" ;  Function returns 1 if the message was read fully, 0 otherwise"
^XMB(3.9,44,2,3405,0)="""RTN"",""HLOSRVR1"",15,0)"
^XMB(3.9,44,2,3406,0)=" ;  HLMSTATE (pass by reference) the message.  It will include the fields for the return ack in HLMSTATE(""MSA"")"
^XMB(3.9,44,2,3407,0)="""RTN"",""HLOSRVR1"",16,0)"
^XMB(3.9,44,2,3408,0)=" ;"
^XMB(3.9,44,2,3409,0)="""RTN"",""HLOSRVR1"",17,0)"
^XMB(3.9,44,2,3410,0)=" N ACK,SEG,STORE,I"
^XMB(3.9,44,2,3411,0)="""RTN"",""HLOSRVR1"",18,0)"
^XMB(3.9,44,2,3412,0)=" ;"
^XMB(3.9,44,2,3413,0)="""RTN"",""HLOSRVR1"",19,0)"
^XMB(3.9,44,2,3414,0)=" S STORE=1"
^XMB(3.9,44,2,3415,0)="""RTN"",""HLOSRVR1"",20,0)"
^XMB(3.9,44,2,3416,0)=" Q:'$$READHDR^HLOT(.HLCSTATE,.SEG) 0"
^XMB(3.9,44,2,3417,0)="""RTN"",""HLOSRVR1"",21,0)"
^XMB(3.9,44,2,3418,0)=" D SPLITHDR(.SEG)"
^XMB(3.9,44,2,3419,0)="""RTN"",""HLOSRVR1"",22,0)"
^XMB(3.9,44,2,3420,0)=" ;"
^XMB(3.9,44,2,3421,0)="""RTN"",""HLOSRVR1"",23,0)"
^XMB(3.9,44,2,3422,0)=" ;parse the header, stop if unsuccessful because the server cannot know what to do next"
^XMB(3.9,44,2,3423,0)="""RTN"",""HLOSRVR1"",24,0)"
^XMB(3.9,44,2,3424,0)=" I '$$PARSEHDR^HLOPRS(.SEG) D  Q 0"
^XMB(3.9,44,2,3425,0)="""RTN"",""HLOSRVR1"",25,0)"
^XMB(3.9,44,2,3426,0)=" .S HLCSTATE(""MESSAGE ENDED"")=0"
^XMB(3.9,44,2,3427,0)="""RTN"",""HLOSRVR1"",26,0)"
^XMB(3.9,44,2,3428,0)=" .D CLOSE^HLOT(.HLCSTATE)"
^XMB(3.9,44,2,3429,0)="""RTN"",""HLOSRVR1"",27,0)"
^XMB(3.9,44,2,3430,0)=" D NEWMSG^HLOSRVR2(.HLCSTATE,.HLMSTATE,.SEG)"
^XMB(3.9,44,2,3431,0)="""RTN"",""HLOSRVR1"",28,0)"
^XMB(3.9,44,2,3432,0)=" I HLMSTATE(""ID"")="""" D"
^XMB(3.9,44,2,3433,0)="""RTN"",""HLOSRVR1"",29,0)"
^XMB(3.9,44,2,3434,0)=" .S STORE=0"
^XMB(3.9,44,2,3435,0)="""RTN"",""HLOSRVR1"",30,0)"
^XMB(3.9,44,2,3436,0)=" .I HLMSTATE(""HDR"",""ACCEPT ACK TYPE"")=""AL"" S HLMSTATE(""MSA"",1)=""CE"",HLMSTATE(""MSA"",3)=""CONTROL ID MISSING"""
^XMB(3.9,44,2,3437,0)="""RTN"",""HLOSRVR1"",31,0)"
^XMB(3.9,44,2,3438,0)=" I STORE,$$DUP(.HLMSTATE) S STORE=0"
^XMB(3.9,44,2,3439,0)="""RTN"",""HLOSRVR1"",32,0)"
^XMB(3.9,44,2,3440,0)=" ;"
^XMB(3.9,44,2,3441,0)="""RTN"",""HLOSRVR1"",33,0)"
^XMB(3.9,44,2,3442,0)=" ;if the message is not to be stored, just read it and discard the segments"
^XMB(3.9,44,2,3443,0)="""RTN"",""HLOSRVR1"",34,0)"
^XMB(3.9,44,2,3444,0)=" I 'STORE D"
^XMB(3.9,44,2,3445,0)="""RTN"",""HLOSRVR1"",35,0)"
^XMB(3.9,44,2,3446,0)=" .F  Q:'$$READSEG^HLOT(.HLCSTATE,.SEG)"
^XMB(3.9,44,2,3447,0)="""RTN"",""HLOSRVR1"",36,0)"
^XMB(3.9,44,2,3448,0)=" ;"
^XMB(3.9,44,2,3449,0)="""RTN"",""HLOSRVR1"",37,0)"
^XMB(3.9,44,2,3450,0)=" ;else the message is to be stored"
^XMB(3.9,44,2,3451,0)="""RTN"",""HLOSRVR1"",38,0)"
^XMB(3.9,44,2,3452,0)=" E  D"
^XMB(3.9,44,2,3453,0)="""RTN"",""HLOSRVR1"",39,0)"
^XMB(3.9,44,2,3454,0)=" .N FS"
^XMB(3.9,44,2,3455,0)="""RTN"",""HLOSRVR1"",40,0)"
^XMB(3.9,44,2,3456,0)=" .S FS=HLMSTATE(""HDR"",""FIELD SEPARATOR"")"
^XMB(3.9,44,2,3457,0)="""RTN"",""HLOSRVR1"",41,0)"
^XMB(3.9,44,2,3458,0)=" .F  Q:'$$READSEG^HLOT(.HLCSTATE,.SEG)  D"
^XMB(3.9,44,2,3459,0)="""RTN"",""HLOSRVR1"",42,0)"
^XMB(3.9,44,2,3460,0)=" ..N MSA,SEGTYPE,OLDMSGID,CODE,IEN,NEWMSGID"
^XMB(3.9,44,2,3461,0)="""RTN"",""HLOSRVR1"",43,0)"
^XMB(3.9,44,2,3462,0)=" ..S SEGTYPE=$E($E(SEG(1),1,3)_$E($G(SEG(2)),1,2),1,3)"
^XMB(3.9,44,2,3463,0)="""RTN"",""HLOSRVR1"",44,0)"
^XMB(3.9,44,2,3464,0)=" ..I SEGTYPE=""MSA"" D"
^XMB(3.9,44,2,3465,0)="""RTN"",""HLOSRVR1"",45,0)"
^XMB(3.9,44,2,3466,0)=" ...S MSA=SEG(1)_$G(SEG(2))_$G(SEG(3))"
^XMB(3.9,44,2,3467,0)="""RTN"",""HLOSRVR1"",46,0)"
^XMB(3.9,44,2,3468,0)=" ...S OLDMSGID=$P(MSA,FS,3),CODE=$P(MSA,FS,2)"
^XMB(3.9,44,2,3469,0)="""RTN"",""HLOSRVR1"",47,0)"
^XMB(3.9,44,2,3470,0)=" ...I $E(CODE,1)'=""A"" S SEGTYPE="""" Q"
^XMB(3.9,44,2,3471,0)="""RTN"",""HLOSRVR1"",48,0)"
^XMB(3.9,44,2,3472,0)=" ...S:$P(OLDMSGID,""-"")]"""" IEN=$O(^HLB(""B"",$P(OLDMSGID,""-""),0))"
^XMB(3.9,44,2,3473,0)="""RTN"",""HLOSRVR1"",49,0)"
^XMB(3.9,44,2,3474,0)=" ...S:$G(IEN) IEN=IEN_""^""_$P(OLDMSGID,""-"",2)"
^XMB(3.9,44,2,3475,0)="""RTN"",""HLOSRVR1"",50,0)"
^XMB(3.9,44,2,3476,0)=" ..I 'HLMSTATE(""BATCH"") D"
^XMB(3.9,44,2,3477,0)="""RTN"",""HLOSRVR1"",51,0)"
^XMB(3.9,44,2,3478,0)=" ...D:SEGTYPE=""MSA"""
^XMB(3.9,44,2,3479,0)="""RTN"",""HLOSRVR1"",52,0)"
^XMB(3.9,44,2,3480,0)=" ....S HLMSTATE(""ACK TO"")=OLDMSGID"
^XMB(3.9,44,2,3481,0)="""RTN"",""HLOSRVR1"",53,0)"
^XMB(3.9,44,2,3482,0)=" ....S HLMSTATE(""ACK TO"",""ACK BY"")=HLMSTATE(""ID"")"
^XMB(3.9,44,2,3483,0)="""RTN"",""HLOSRVR1"",54,0)"
^XMB(3.9,44,2,3484,0)=" ....S HLMSTATE(""ACK TO"",""STATUS"")=$S(CODE=""AA"":""SU"",1:""AE"")"
^XMB(3.9,44,2,3485,0)="""RTN"",""HLOSRVR1"",55,0)"
^XMB(3.9,44,2,3486,0)=" ....S:$D(IEN) HLMSTATE(""ACK TO"",""IEN"")=IEN"
^XMB(3.9,44,2,3487,0)="""RTN"",""HLOSRVR1"",56,0)"
^XMB(3.9,44,2,3488,0)=" ...D ADDSEG^HLOMSG(.HLMSTATE,.SEG)"
^XMB(3.9,44,2,3489,0)="""RTN"",""HLOSRVR1"",57,0)"
^XMB(3.9,44,2,3490,0)=" ..E  D  ;batch"
^XMB(3.9,44,2,3491,0)="""RTN"",""HLOSRVR1"",58,0)"
^XMB(3.9,44,2,3492,0)=" ...I SEGTYPE=""MSH"" D"
^XMB(3.9,44,2,3493,0)="""RTN"",""HLOSRVR1"",59,0)"
^XMB(3.9,44,2,3494,0)=" ....D SPLITHDR(.SEG)"
^XMB(3.9,44,2,3495,0)="""RTN"",""HLOSRVR1"",60,0)"
^XMB(3.9,44,2,3496,0)=" ....S NEWMSGID=$P(SEG(2),FS,5)"
^XMB(3.9,44,2,3497,0)="""RTN"",""HLOSRVR1"",61,0)"
^XMB(3.9,44,2,3498,0)=" ....D ADDMSG2^HLOMSG(.HLMSTATE,.SEG)"
^XMB(3.9,44,2,3499,0)="""RTN"",""HLOSRVR1"",62,0)"
^XMB(3.9,44,2,3500,0)=" ...E  D  ;not MSH"
^XMB(3.9,44,2,3501,0)="""RTN"",""HLOSRVR1"",63,0)"
^XMB(3.9,44,2,3502,0)=" ....D:SEGTYPE=""MSA"""
^XMB(3.9,44,2,3503,0)="""RTN"",""HLOSRVR1"",64,0)"
^XMB(3.9,44,2,3504,0)=" .....N SUBIEN S SUBIEN=HLMSTATE(""BATCH"",""CURRENT MESSAGE"")"
^XMB(3.9,44,2,3505,0)="""RTN"",""HLOSRVR1"",65,0)"
^XMB(3.9,44,2,3506,0)=" .....S HLMSTATE(""BATCH"",""ACK TO"",SUBIEN)=OLDMSGID"
^XMB(3.9,44,2,3507,0)="""RTN"",""HLOSRVR1"",66,0)"
^XMB(3.9,44,2,3508,0)=" .....S HLMSTATE(""BATCH"",""ACK TO"",SUBIEN,""ACK BY"")=NEWMSGID"
^XMB(3.9,44,2,3509,0)="""RTN"",""HLOSRVR1"",67,0)"
^XMB(3.9,44,2,3510,0)=" .....S HLMSTATE(""BATCH"",""ACK TO"",SUBIEN,""STATUS"")=$S(CODE=""AA"":""SU"",1:""AE"")"
^XMB(3.9,44,2,3511,0)="""RTN"",""HLOSRVR1"",68,0)"
^XMB(3.9,44,2,3512,0)=" .....S:$D(IEN) HLMSTATE(""BATCH"",""ACK TO"",SUBIEN,""IEN"")=IEN"
^XMB(3.9,44,2,3513,0)="""RTN"",""HLOSRVR1"",69,0)"
^XMB(3.9,44,2,3514,0)=" ....D ADDSEG^HLOMSG(.HLMSTATE,.SEG)"
^XMB(3.9,44,2,3515,0)="""RTN"",""HLOSRVR1"",70,0)"
^XMB(3.9,44,2,3516,0)=" .I HLMSTATE(""UNSTORED LINES""),HLCSTATE(""MESSAGE ENDED""),$$SAVEMSG^HLOF778(.HLMSTATE)"
^XMB(3.9,44,2,3517,0)="""RTN"",""HLOSRVR1"",71,0)"
^XMB(3.9,44,2,3518,0)=" ;"
^XMB(3.9,44,2,3519,0)="""RTN"",""HLOSRVR1"",72,0)"
^XMB(3.9,44,2,3520,0)=" I STORE,'HLCSTATE(""MESSAGE ENDED"") D"
^XMB(3.9,44,2,3521,0)="""RTN"",""HLOSRVR1"",73,0)"
^XMB(3.9,44,2,3522,0)=" .;reading failed before the end, there is no need to keep anything"
^XMB(3.9,44,2,3523,0)="""RTN"",""HLOSRVR1"",74,0)"
^XMB(3.9,44,2,3524,0)=" .D:HLMSTATE(""IEN"") DEL778(HLMSTATE(""IEN"")) D:HLMSTATE(""BODY"") DEL777(HLMSTATE(""BODY""))"
^XMB(3.9,44,2,3525,0)="""RTN"",""HLOSRVR1"",75,0)"
^XMB(3.9,44,2,3526,0)=" .S HLMSTATE(""IEN"")="""",HLMSTATE(""BODY"")="""""
^XMB(3.9,44,2,3527,0)="""RTN"",""HLOSRVR1"",76,0)"
^XMB(3.9,44,2,3528,0)=" E  D:STORE"
^XMB(3.9,44,2,3529,0)="""RTN"",""HLOSRVR1"",77,0)"
^XMB(3.9,44,2,3530,0)=" .D CHECKMSG(.HLMSTATE)"
^XMB(3.9,44,2,3531,0)="""RTN"",""HLOSRVR1"",78,0)"
^XMB(3.9,44,2,3532,0)=" .D ADDAC(.HLMSTATE) ;so that future duplicates can be detected"
^XMB(3.9,44,2,3533,0)="""RTN"",""HLOSRVR1"",79,0)"
^XMB(3.9,44,2,3534,0)=" .D COUNT^HLOSTAT(.HLCSTATE,HLMSTATE(""HDR"",""RECEIVING APPLICATION""),HLMSTATE(""HDR"",""SENDING APPLICATION""),$S(HLMSTATE(""BATCH""):""BATCH"",1:HLMSTATE(""HDR"",""MESSAGE TYPE"")_""~""_HLMSTATE(""HDR"",""EVENT"")))"
^XMB(3.9,44,2,3535,0)="""RTN"",""HLOSRVR1"",80,0)"
^XMB(3.9,44,2,3536,0)=" ;"
^XMB(3.9,44,2,3537,0)="""RTN"",""HLOSRVR1"",81,0)"
^XMB(3.9,44,2,3538,0)=" D:'HLCSTATE(""MESSAGE ENDED"") CLOSE^HLOT(.HLCSTATE)"
^XMB(3.9,44,2,3539,0)="""RTN"",""HLOSRVR1"",82,0)"
^XMB(3.9,44,2,3540,0)=" Q HLCSTATE(""MESSAGE ENDED"")"
^XMB(3.9,44,2,3541,0)="""RTN"",""HLOSRVR1"",83,0)"
^XMB(3.9,44,2,3542,0)=" ;"
^XMB(3.9,44,2,3543,0)="""RTN"",""HLOSRVR1"",84,0)"
^XMB(3.9,44,2,3544,0)="ADDAC(HLMSTATE) ;adds the AC xref for the message that was just received"
^XMB(3.9,44,2,3545,0)="""RTN"",""HLOSRVR1"",85,0)"
^XMB(3.9,44,2,3546,0)=" ;The AC xref allows duplicates to be detected."
^XMB(3.9,44,2,3547,0)="""RTN"",""HLOSRVR1"",86,0)"
^XMB(3.9,44,2,3548,0)=" ;"
^XMB(3.9,44,2,3549,0)="""RTN"",""HLOSRVR1"",87,0)"
^XMB(3.9,44,2,3550,0)=" N FROM"
^XMB(3.9,44,2,3551,0)="""RTN"",""HLOSRVR1"",88,0)"
^XMB(3.9,44,2,3552,0)=" S FROM=$S(HLMSTATE(""HDR"",""SENDING FACILITY"",2)]"""":HLMSTATE(""HDR"",""SENDING FACILITY"",2),1:HLMSTATE(""HDR"",""SENDING FACILITY"",1))"
^XMB(3.9,44,2,3553,0)="""RTN"",""HLOSRVR1"",89,0)"
^XMB(3.9,44,2,3554,0)=" S ^HLB(""AC"",FROM_HLMSTATE(""HDR"",""SENDING APPLICATION"")_HLMSTATE(""ID""),HLMSTATE(""IEN""))="""""
^XMB(3.9,44,2,3555,0)="""RTN"",""HLOSRVR1"",90,0)"
^XMB(3.9,44,2,3556,0)=" Q"
^XMB(3.9,44,2,3557,0)="""RTN"",""HLOSRVR1"",91,0)"
^XMB(3.9,44,2,3558,0)=" ;"
^XMB(3.9,44,2,3559,0)="""RTN"",""HLOSRVR1"",92,0)"
^XMB(3.9,44,2,3560,0)="DUP(HLMSTATE) ;"
^XMB(3.9,44,2,3561,0)="""RTN"",""HLOSRVR1"",93,0)"
^XMB(3.9,44,2,3562,0)=" ;Function returns 1 if the message is a duplicate and its ack (if requested) is found, 0 otherwise"
^XMB(3.9,44,2,3563,0)="""RTN"",""HLOSRVR1"",94,0)"
^XMB(3.9,44,2,3564,0)=" ;Input:"
^XMB(3.9,44,2,3565,0)="""RTN"",""HLOSRVR1"",95,0)"
^XMB(3.9,44,2,3566,0)=" ; HLMSTATE (pass by reference) the message being read"
^XMB(3.9,44,2,3567,0)="""RTN"",""HLOSRVR1"",96,0)"
^XMB(3.9,44,2,3568,0)=" ;Output:"
^XMB(3.9,44,2,3569,0)="""RTN"",""HLOSRVR1"",97,0)"
^XMB(3.9,44,2,3570,0)=" ;  Function returns 1 if the message is a duplicate, 0 otherwise"
^XMB(3.9,44,2,3571,0)="""RTN"",""HLOSRVR1"",98,0)"
^XMB(3.9,44,2,3572,0)=" ;  HLMSTATE (pass by reference) IF the message is a duplicate:"
^XMB(3.9,44,2,3573,0)="""RTN"",""HLOSRVR1"",99,0)"
^XMB(3.9,44,2,3574,0)=" ;     returns the prior MSA segment in HLMSTATE(""MSA"")"
^XMB(3.9,44,2,3575,0)="""RTN"",""HLOSRVR1"",100,0)"
^XMB(3.9,44,2,3576,0)=" ;!!!! put back if original mode implemented"
^XMB(3.9,44,2,3577,0)="""RTN"",""HLOSRVR1"",101,0)"
^XMB(3.9,44,2,3578,0)=" ;     If original mode returns the ien of the app ack in HLMSTATE(""ACK BY IEN"")"
^XMB(3.9,44,2,3579,0)="""RTN"",""HLOSRVR1"",102,0)"
^XMB(3.9,44,2,3580,0)=" ;"
^XMB(3.9,44,2,3581,0)="""RTN"",""HLOSRVR1"",103,0)"
^XMB(3.9,44,2,3582,0)=" N IEN,FROM,DUP"
^XMB(3.9,44,2,3583,0)="""RTN"",""HLOSRVR1"",104,0)"
^XMB(3.9,44,2,3584,0)=" S (IEN,DUP)=0"
^XMB(3.9,44,2,3585,0)="""RTN"",""HLOSRVR1"",105,0)"
^XMB(3.9,44,2,3586,0)=" ;"
^XMB(3.9,44,2,3587,0)="""RTN"",""HLOSRVR1"",106,0)"
^XMB(3.9,44,2,3588,0)=" ;no way to determine!  Bad header will be rejected"
^XMB(3.9,44,2,3589,0)="""RTN"",""HLOSRVR1"",107,0)"
^XMB(3.9,44,2,3590,0)=" Q:(HLMSTATE(""ID"")="""") 0"
^XMB(3.9,44,2,3591,0)="""RTN"",""HLOSRVR1"",108,0)"
^XMB(3.9,44,2,3592,0)=" ;"
^XMB(3.9,44,2,3593,0)="""RTN"",""HLOSRVR1"",109,0)"
^XMB(3.9,44,2,3594,0)=" S FROM=$S(HLMSTATE(""HDR"",""SENDING FACILITY"",2)]"""":HLMSTATE(""HDR"",""SENDING FACILITY"",2),1:HLMSTATE(""HDR"",""SENDING FACILITY"",1))"
^XMB(3.9,44,2,3595,0)="""RTN"",""HLOSRVR1"",110,0)"
^XMB(3.9,44,2,3596,0)=" F  S IEN=$O(^HLB(""AC"",FROM_HLMSTATE(""HDR"",""SENDING APPLICATION"")_HLMSTATE(""ID""),IEN)) Q:'IEN  D  Q:DUP"
^XMB(3.9,44,2,3597,0)="""RTN"",""HLOSRVR1"",111,0)"
^XMB(3.9,44,2,3598,0)=" .I HLMSTATE(""HDR"",""ACCEPT ACK TYPE"")=""NE"" S DUP=1 Q"
^XMB(3.9,44,2,3599,0)="""RTN"",""HLOSRVR1"",112,0)"
^XMB(3.9,44,2,3600,0)=" .;need the MSA to return"
^XMB(3.9,44,2,3601,0)="""RTN"",""HLOSRVR1"",113,0)"
^XMB(3.9,44,2,3602,0)=" .D  Q"
^XMB(3.9,44,2,3603,0)="""RTN"",""HLOSRVR1"",114,0)"
^XMB(3.9,44,2,3604,0)=" ..N NODE"
^XMB(3.9,44,2,3605,0)="""RTN"",""HLOSRVR1"",115,0)"
^XMB(3.9,44,2,3606,0)=" ..S NODE=$P($G(^HLB(IEN,4)),""^"",3,10)"
^XMB(3.9,44,2,3607,0)="""RTN"",""HLOSRVR1"",116,0)"
^XMB(3.9,44,2,3608,0)=" ..S HLMSTATE(""MSA"",1)=$P(NODE,""|"",2)"
^XMB(3.9,44,2,3609,0)="""RTN"",""HLOSRVR1"",117,0)"
^XMB(3.9,44,2,3610,0)=" ..Q:$L(HLMSTATE(""MSA"",1))'=2"
^XMB(3.9,44,2,3611,0)="""RTN"",""HLOSRVR1"",118,0)"
^XMB(3.9,44,2,3612,0)=" ..S HLMSTATE(""MSA"",2)=$P(NODE,""|"",3)"
^XMB(3.9,44,2,3613,0)="""RTN"",""HLOSRVR1"",119,0)"
^XMB(3.9,44,2,3614,0)=" ..S HLMSTATE(""MSA"",3)=$P(NODE,""|"",4,10)"
^XMB(3.9,44,2,3615,0)="""RTN"",""HLOSRVR1"",120,0)"
^XMB(3.9,44,2,3616,0)=" ..S DUP=1"
^XMB(3.9,44,2,3617,0)="""RTN"",""HLOSRVR1"",121,0)"
^XMB(3.9,44,2,3618,0)=" ;"
^XMB(3.9,44,2,3619,0)="""RTN"",""HLOSRVR1"",122,0)"
^XMB(3.9,44,2,3620,0)=" Q DUP"
^XMB(3.9,44,2,3621,0)="""RTN"",""HLOSRVR1"",123,0)"
^XMB(3.9,44,2,3622,0)=" ;"
^XMB(3.9,44,2,3623,0)="""RTN"",""HLOSRVR1"",124,0)"
^XMB(3.9,44,2,3624,0)="CHECKMSG(HLMSTATE) ;"
^XMB(3.9,44,2,3625,0)="""RTN"",""HLOSRVR1"",125,0)"
^XMB(3.9,44,2,3626,0)=" ;Checks the header & MSA segment, sets HLMSTATE(""STATUS"",""ACTION"") if the message needs to be passed, determines if completion status should be set"
^XMB(3.9,44,2,3627,0)="""RTN"",""HLOSRVR1"",126,0)"
^XMB(3.9,44,2,3628,0)=" ;Input:"
^XMB(3.9,44,2,3629,0)="""RTN"",""HLOSRVR1"",127,0)"
^XMB(3.9,44,2,3630,0)=" ;  HLMSTATE(""HDR"") - the parsed header segment"
^XMB(3.9,44,2,3631,0)="""RTN"",""HLOSRVR1"",128,0)"
^XMB(3.9,44,2,3632,0)=" ;Output:"
^XMB(3.9,44,2,3633,0)="""RTN"",""HLOSRVR1"",129,0)"
^XMB(3.9,44,2,3634,0)=" ;  HLMSTATE(""STATUS"")=""SE"" if an error is detected"
^XMB(3.9,44,2,3635,0)="""RTN"",""HLOSRVR1"",130,0)"
^XMB(3.9,44,2,3636,0)=" ;  HLMSTATE(""STATUS"",""QUEUE"") queue to put the message on"
^XMB(3.9,44,2,3637,0)="""RTN"",""HLOSRVR1"",131,0)"
^XMB(3.9,44,2,3638,0)=" ;  HLMSTATE(""STATUS"",""ACTION"")  <tag^rtn> that is the processing routine for the receiving application"
^XMB(3.9,44,2,3639,0)="""RTN"",""HLOSRVR1"",132,0)"
^XMB(3.9,44,2,3640,0)=" ;  HLMSTATE(""MSA"") - MSA(1)=accept code to be returned, MSA(3)= error txt"
^XMB(3.9,44,2,3641,0)="""RTN"",""HLOSRVR1"",133,0)"
^XMB(3.9,44,2,3642,0)=" ;"
^XMB(3.9,44,2,3643,0)="""RTN"",""HLOSRVR1"",134,0)"
^XMB(3.9,44,2,3644,0)=" N WANTACK,PASS,ACTION,QUEUE"
^XMB(3.9,44,2,3645,0)="""RTN"",""HLOSRVR1"",135,0)"
^XMB(3.9,44,2,3646,0)=" M HDR=HLMSTATE(""HDR"")"
^XMB(3.9,44,2,3647,0)="""RTN"",""HLOSRVR1"",136,0)"
^XMB(3.9,44,2,3648,0)=" I HDR(""ACCEPT ACK TYPE"")=""NE"",'HLMSTATE(""ORIGINAL MODE"") D"
^XMB(3.9,44,2,3649,0)="""RTN"",""HLOSRVR1"",137,0)"
^XMB(3.9,44,2,3650,0)=" .S WANTACK=0"
^XMB(3.9,44,2,3651,0)="""RTN"",""HLOSRVR1"",138,0)"
^XMB(3.9,44,2,3652,0)=" E  D"
^XMB(3.9,44,2,3653,0)="""RTN"",""HLOSRVR1"",139,0)"
^XMB(3.9,44,2,3654,0)=" .S WANTACK=1"
^XMB(3.9,44,2,3655,0)="""RTN"",""HLOSRVR1"",140,0)"
^XMB(3.9,44,2,3656,0)=" I HLMSTATE(""ORIGINAL MODE"") S HLMSTATE(""MSA"",1)=""AE"",HLMSTATE(""MSA"",3)=""THIS INTERFACE DOES NOT IMPLEMENT ORIGINAL MODE APPLICATION ACKOWLEDGMENTS"",HLMSTATE(""STATUS"")=""SE"" Q"
^XMB(3.9,44,2,3657,0)="""RTN"",""HLOSRVR1"",141,0)"
^XMB(3.9,44,2,3658,0)=" I '$$ACTION^HLOAPP(.HDR,.ACTION,.QUEUE),$G(HLMSTATE(""ACK TO""))="""" S:WANTACK HLMSTATE(""MSA"",1)=""CR"" S HLMSTATE(""MSA"",3)=""RECEIVING APPLICATION NOT DEFINED"",HLMSTATE(""STATUS"")=""SE"" Q"
^XMB(3.9,44,2,3659,0)="""RTN"",""HLOSRVR1"",142,0)"
^XMB(3.9,44,2,3660,0)=" S HLMSTATE(""STATUS"",""ACTION"")=$G(ACTION),HLMSTATE(""STATUS"",""QUEUE"")=$G(QUEUE)"
^XMB(3.9,44,2,3661,0)="""RTN"",""HLOSRVR1"",143,0)"
^XMB(3.9,44,2,3662,0)=" ;"
^XMB(3.9,44,2,3663,0)="""RTN"",""HLOSRVR1"",144,0)"
^XMB(3.9,44,2,3664,0)=" ;If this is an application ack, does the original message exist?"
^XMB(3.9,44,2,3665,0)="""RTN"",""HLOSRVR1"",145,0)"
^XMB(3.9,44,2,3666,0)=" I $G(HLMSTATE(""ACK TO""))]"""" D  Q:HLMSTATE(""STATUS"")=""SE"""
^XMB(3.9,44,2,3667,0)="""RTN"",""HLOSRVR1"",146,0)"
^XMB(3.9,44,2,3668,0)=" .N NODE"
^XMB(3.9,44,2,3669,0)="""RTN"",""HLOSRVR1"",147,0)"
^XMB(3.9,44,2,3670,0)=" .S:+$G(HLMSTATE(""ACK TO"",""IEN"")) NODE=$G(^HLB(+HLMSTATE(""ACK TO"",""IEN""),0))"
^XMB(3.9,44,2,3671,0)="""RTN"",""HLOSRVR1"",148,0)"
^XMB(3.9,44,2,3672,0)=" .I $G(NODE)="""" S HLMSTATE(""STATUS"")=""SE"",HLMSTATE(""ACK TO"",""IEN"")=""""  S:WANTACK HLMSTATE(""MSA"",1)=""CE"" S HLMSTATE(""MSA"",3)=""INITIAL MESSAGE TO APPLICATION ACKNOWLEDGMENT NOT FOUND"" Q"
^XMB(3.9,44,2,3673,0)="""RTN"",""HLOSRVR1"",149,0)"
^XMB(3.9,44,2,3674,0)=" .I ($P(NODE,""^"",11)]"""") S HLMSTATE(""STATUS"",""ACTION"")=$P(NODE,""^"",10,11),HLMSTATE(""STATUS"",""QUEUE"")=$S($P(NODE,""^"",6)]"""":$P(NODE,""^"",6),1:""DEFAULT"")"
^XMB(3.9,44,2,3675,0)="""RTN"",""HLOSRVR1"",150,0)"
^XMB(3.9,44,2,3676,0)=" ;"
^XMB(3.9,44,2,3677,0)="""RTN"",""HLOSRVR1"",151,0)"
^XMB(3.9,44,2,3678,0)=" I HDR(""PROCESSING ID"")'=HLCSTATE(""SYSTEM"",""PROCESSING ID"") S:WANTACK HLMSTATE(""MSA"",1)=""CR"" S HLMSTATE(""STATUS"")=""SE"",HLMSTATE(""MSA"",3)=""SYSTEM PROCESSING ID=""_HLCSTATE(""SYSTEM"",""PROCESSING ID"") Q"
^XMB(3.9,44,2,3679,0)="""RTN"",""HLOSRVR1"",152,0)"
^XMB(3.9,44,2,3680,0)=" ;"
^XMB(3.9,44,2,3681,0)="""RTN"",""HLOSRVR1"",153,0)"
^XMB(3.9,44,2,3682,0)=" ;"
^XMB(3.9,44,2,3683,0)="""RTN"",""HLOSRVR1"",154,0)"
^XMB(3.9,44,2,3684,0)=" ;wrong receiving facility?  This is hard to check if the sender is not VistA, because the HL7 standard permits different coding systems to be used. This check is only for DNS or station number."
^XMB(3.9,44,2,3685,0)="""RTN"",""HLOSRVR1"",155,0)"
^XMB(3.9,44,2,3686,0)=" S PASS=0"
^XMB(3.9,44,2,3687,0)="""RTN"",""HLOSRVR1"",156,0)"
^XMB(3.9,44,2,3688,0)=" D"
^XMB(3.9,44,2,3689,0)="""RTN"",""HLOSRVR1"",157,0)"
^XMB(3.9,44,2,3690,0)=" .;if its an ack to an existing message, don't check the receiving facility"
^XMB(3.9,44,2,3691,0)="""RTN"",""HLOSRVR1"",158,0)"
^XMB(3.9,44,2,3692,0)=" .I $G(HLMSTATE(""ACK TO""))]"""" S PASS=1 Q"
^XMB(3.9,44,2,3693,0)="""RTN"",""HLOSRVR1"",159,0)"
^XMB(3.9,44,2,3694,0)=" .I HDR(""RECEIVING FACILITY"",1)=HLCSTATE(""SYSTEM"",""STATION"") S PASS=1 Q"
^XMB(3.9,44,2,3695,0)="""RTN"",""HLOSRVR1"",160,0)"
^XMB(3.9,44,2,3696,0)=" .I HDR(""RECEIVING FACILITY"",3)'=""DNS"" S PASS=1 Q"
^XMB(3.9,44,2,3697,0)="""RTN"",""HLOSRVR1"",161,0)"
^XMB(3.9,44,2,3698,0)=" .I HDR(""RECEIVING FACILITY"",2)="""" S PASS=1 Q"
^XMB(3.9,44,2,3699,0)="""RTN"",""HLOSRVR1"",162,0)"
^XMB(3.9,44,2,3700,0)=" .I $P(HDR(""RECEIVING FACILITY"",2),"":"")[HLCSTATE(""SYSTEM"",""DOMAIN"") S PASS=1 Q"
^XMB(3.9,44,2,3701,0)="""RTN"",""HLOSRVR1"",163,0)"
^XMB(3.9,44,2,3702,0)=" .I HLCSTATE(""SYSTEM"",""DOMAIN"")[$P(HDR(""RECEIVING FACILITY"",2),"":"") S PASS=1 Q"
^XMB(3.9,44,2,3703,0)="""RTN"",""HLOSRVR1"",164,0)"
^XMB(3.9,44,2,3704,0)=" I 'PASS S HLMSTATE(""STATUS"")=""SE"",HLMSTATE(""MSA"",3)=""RECEIVING FACILITY IS ""_HLCSTATE(""SYSTEM"",""DOMAIN"") S:WANTACK HLMSTATE(""MSA"",1)=""CE"""
^XMB(3.9,44,2,3705,0)="""RTN"",""HLOSRVR1"",165,0)"
^XMB(3.9,44,2,3706,0)=" I PASS,WANTACK S HLMSTATE(""MSA"",1)=""CA"""
^XMB(3.9,44,2,3707,0)="""RTN"",""HLOSRVR1"",166,0)"
^XMB(3.9,44,2,3708,0)=" Q"
^XMB(3.9,44,2,3709,0)="""RTN"",""HLOSRVR1"",167,0)"
^XMB(3.9,44,2,3710,0)=" ;"
^XMB(3.9,44,2,3711,0)="""RTN"",""HLOSRVR1"",168,0)"
^XMB(3.9,44,2,3712,0)="DEL777(IEN777) ;delete a record from file 777 where the read did not complete"
^XMB(3.9,44,2,3713,0)="""RTN"",""HLOSRVR1"",169,0)"
^XMB(3.9,44,2,3714,0)=" ;"
^XMB(3.9,44,2,3715,0)="""RTN"",""HLOSRVR1"",170,0)"
^XMB(3.9,44,2,3716,0)=" K ^HLA(IEN777,0)"
^XMB(3.9,44,2,3717,0)="""RTN"",""HLOSRVR1"",171,0)"
^XMB(3.9,44,2,3718,0)=" Q"
^XMB(3.9,44,2,3719,0)="""RTN"",""HLOSRVR1"",172,0)"
^XMB(3.9,44,2,3720,0)="DEL778(IEN778) ;delete a record from file 778 where the read did not complete"
^XMB(3.9,44,2,3721,0)="""RTN"",""HLOSRVR1"",173,0)"
^XMB(3.9,44,2,3722,0)=" ;"
^XMB(3.9,44,2,3723,0)="""RTN"",""HLOSRVR1"",174,0)"
^XMB(3.9,44,2,3724,0)=" K ^HLB(IEN778,0)"
^XMB(3.9,44,2,3725,0)="""RTN"",""HLOSRVR1"",175,0)"
^XMB(3.9,44,2,3726,0)=" Q"
^XMB(3.9,44,2,3727,0)="""RTN"",""HLOSRVR1"",176,0)"
^XMB(3.9,44,2,3728,0)=" ;"
^XMB(3.9,44,2,3729,0)="""RTN"",""HLOSRVR1"",177,0)"
^XMB(3.9,44,2,3730,0)="SPLITHDR(HDR) ;"
^XMB(3.9,44,2,3731,0)="""RTN"",""HLOSRVR1"",178,0)"
^XMB(3.9,44,2,3732,0)=" ;splits hdr segment into two lines, first being just components 1-6"
^XMB(3.9,44,2,3733,0)="""RTN"",""HLOSRVR1"",179,0)"
^XMB(3.9,44,2,3734,0)=" ;"
^XMB(3.9,44,2,3735,0)="""RTN"",""HLOSRVR1"",180,0)"
^XMB(3.9,44,2,3736,0)=" N TEMP,FS"
^XMB(3.9,44,2,3737,0)="""RTN"",""HLOSRVR1"",181,0)"
^XMB(3.9,44,2,3738,0)=" D SQUISH(.HDR)"
^XMB(3.9,44,2,3739,0)="""RTN"",""HLOSRVR1"",182,0)"
^XMB(3.9,44,2,3740,0)=" S FS=$E(HDR(1),4)"
^XMB(3.9,44,2,3741,0)="""RTN"",""HLOSRVR1"",183,0)"
^XMB(3.9,44,2,3742,0)=" S TEMP(1)=$P(HDR(1),FS,1,6)"
^XMB(3.9,44,2,3743,0)="""RTN"",""HLOSRVR1"",184,0)"
^XMB(3.9,44,2,3744,0)=" S TEMP(2)="""""
^XMB(3.9,44,2,3745,0)="""RTN"",""HLOSRVR1"",185,0)"
^XMB(3.9,44,2,3746,0)=" I $L(TEMP(1))<$L(HDR(1)) S TEMP(2)=FS_$P(HDR(1),FS,7,20)"
^XMB(3.9,44,2,3747,0)="""RTN"",""HLOSRVR1"",186,0)"
^XMB(3.9,44,2,3748,0)=" S HDR(2)=TEMP(2)_$G(HDR(2))"
^XMB(3.9,44,2,3749,0)="""RTN"",""HLOSRVR1"",187,0)"
^XMB(3.9,44,2,3750,0)=" S HDR(1)=TEMP(1)"
^XMB(3.9,44,2,3751,0)="""RTN"",""HLOSRVR1"",188,0)"
^XMB(3.9,44,2,3752,0)=" Q"
^XMB(3.9,44,2,3753,0)="""RTN"",""HLOSRVR1"",189,0)"
^XMB(3.9,44,2,3754,0)=" ;"
^XMB(3.9,44,2,3755,0)="""RTN"",""HLOSRVR1"",190,0)"
^XMB(3.9,44,2,3756,0)="SQUISH(SEG) ;"
^XMB(3.9,44,2,3757,0)="""RTN"",""HLOSRVR1"",191,0)"
^XMB(3.9,44,2,3758,0)=" ;squish the header segment =SEG(i) into at most 2 lines"
^XMB(3.9,44,2,3759,0)="""RTN"",""HLOSRVR1"",192,0)"
^XMB(3.9,44,2,3760,0)=" ;"
^XMB(3.9,44,2,3761,0)="""RTN"",""HLOSRVR1"",193,0)"
^XMB(3.9,44,2,3762,0)=" Q:'$O(SEG(1))"
^XMB(3.9,44,2,3763,0)="""RTN"",""HLOSRVR1"",194,0)"
^XMB(3.9,44,2,3764,0)=" I '$O(SEG(2)) D  Q"
^XMB(3.9,44,2,3765,0)="""RTN"",""HLOSRVR1"",195,0)"
^XMB(3.9,44,2,3766,0)=" .N LEN"
^XMB(3.9,44,2,3767,0)="""RTN"",""HLOSRVR1"",196,0)"
^XMB(3.9,44,2,3768,0)=" .S LEN=$L(SEG(1))"
^XMB(3.9,44,2,3769,0)="""RTN"",""HLOSRVR1"",197,0)"
^XMB(3.9,44,2,3770,0)=" .Q:LEN>255"
^XMB(3.9,44,2,3771,0)="""RTN"",""HLOSRVR1"",198,0)"
^XMB(3.9,44,2,3772,0)=" .S SEG(1)=SEG(1)_$E(SEG(2),1,256-LEN)"
^XMB(3.9,44,2,3773,0)="""RTN"",""HLOSRVR1"",199,0)"
^XMB(3.9,44,2,3774,0)=" .S SEG(2)=$E(SEG(2),257-LEN,99999)"
^XMB(3.9,44,2,3775,0)="""RTN"",""HLOSRVR1"",200,0)"
^XMB(3.9,44,2,3776,0)=" ;"
^XMB(3.9,44,2,3777,0)="""RTN"",""HLOSRVR1"",201,0)"
^XMB(3.9,44,2,3778,0)=" N A,DONE,I"
^XMB(3.9,44,2,3779,0)="""RTN"",""HLOSRVR1"",202,0)"
^XMB(3.9,44,2,3780,0)=" S (I,DONE)=0"
^XMB(3.9,44,2,3781,0)="""RTN"",""HLOSRVR1"",203,0)"
^XMB(3.9,44,2,3782,0)=" S A(1)=SEG(1) K SEG(1)"
^XMB(3.9,44,2,3783,0)="""RTN"",""HLOSRVR1"",204,0)"
^XMB(3.9,44,2,3784,0)=" F  S I=$O(SEG(I)) Q:'I  D  Q:DONE"
^XMB(3.9,44,2,3785,0)="""RTN"",""HLOSRVR1"",205,0)"
^XMB(3.9,44,2,3786,0)=" .N LEN"
^XMB(3.9,44,2,3787,0)="""RTN"",""HLOSRVR1"",206,0)"
^XMB(3.9,44,2,3788,0)=" .S LEN=$L(A(1))"
^XMB(3.9,44,2,3789,0)="""RTN"",""HLOSRVR1"",207,0)"
^XMB(3.9,44,2,3790,0)=" .I (LEN+$L(SEG(I)))>256 D"
^XMB(3.9,44,2,3791,0)="""RTN"",""HLOSRVR1"",208,0)"
^XMB(3.9,44,2,3792,0)=" ..S A(1)=A(1)_$E(SEG(I),1,256-LEN)"
^XMB(3.9,44,2,3793,0)="""RTN"",""HLOSRVR1"",209,0)"
^XMB(3.9,44,2,3794,0)=" ..S A(2)=$E(SEG(I),257-LEN,99999)"
^XMB(3.9,44,2,3795,0)="""RTN"",""HLOSRVR1"",210,0)"
^XMB(3.9,44,2,3796,0)=" ..S DONE=1"
^XMB(3.9,44,2,3797,0)="""RTN"",""HLOSRVR1"",211,0)"
^XMB(3.9,44,2,3798,0)=" .E  D"
^XMB(3.9,44,2,3799,0)="""RTN"",""HLOSRVR1"",212,0)"
^XMB(3.9,44,2,3800,0)=" ..S A(1)=A(1)_SEG(I)"
^XMB(3.9,44,2,3801,0)="""RTN"",""HLOSRVR1"",213,0)"
^XMB(3.9,44,2,3802,0)=" .K SEG(I)"
^XMB(3.9,44,2,3803,0)="""RTN"",""HLOSRVR1"",214,0)"
^XMB(3.9,44,2,3804,0)=" ;"
^XMB(3.9,44,2,3805,0)="""RTN"",""HLOSRVR1"",215,0)"
^XMB(3.9,44,2,3806,0)=" ;if there are any lines left in SEG(), put them in A(2)"
^XMB(3.9,44,2,3807,0)="""RTN"",""HLOSRVR1"",216,0)"
^XMB(3.9,44,2,3808,0)=" F  S I=$O(SEG(I)) Q:'I  D  Q:DONE"
^XMB(3.9,44,2,3809,0)="""RTN"",""HLOSRVR1"",217,0)"
^XMB(3.9,44,2,3810,0)=" .N LEN"
^XMB(3.9,44,2,3811,0)="""RTN"",""HLOSRVR1"",218,0)"
^XMB(3.9,44,2,3812,0)=" .S LEN=$L($G(A(2)))"
^XMB(3.9,44,2,3813,0)="""RTN"",""HLOSRVR1"",219,0)"
^XMB(3.9,44,2,3814,0)=" .I (LEN+$L(SEG(I)))>256 D"
^XMB(3.9,44,2,3815,0)="""RTN"",""HLOSRVR1"",220,0)"
^XMB(3.9,44,2,3816,0)=" ..S A(2)=A(2)_$E(SEG(I),1,256-LEN)"
^XMB(3.9,44,2,3817,0)="""RTN"",""HLOSRVR1"",221,0)"
^XMB(3.9,44,2,3818,0)=" ..S DONE=1"
^XMB(3.9,44,2,3819,0)="""RTN"",""HLOSRVR1"",222,0)"
^XMB(3.9,44,2,3820,0)=" .E  D"
^XMB(3.9,44,2,3821,0)="""RTN"",""HLOSRVR1"",223,0)"
^XMB(3.9,44,2,3822,0)=" ..S A(2)=$G(A(2))_SEG(I)"
^XMB(3.9,44,2,3823,0)="""RTN"",""HLOSRVR1"",224,0)"
^XMB(3.9,44,2,3824,0)=" .K SEG(I)"
^XMB(3.9,44,2,3825,0)="""RTN"",""HLOSRVR1"",225,0)"
^XMB(3.9,44,2,3826,0)=" K SEG"
^XMB(3.9,44,2,3827,0)="""RTN"",""HLOSRVR1"",226,0)"
^XMB(3.9,44,2,3828,0)=" M SEG=A"
^XMB(3.9,44,2,3829,0)="""RTN"",""HLOSRVR1"",227,0)"
^XMB(3.9,44,2,3830,0)=" Q"
^XMB(3.9,44,2,3831,0)="""RTN"",""HLOSRVR1"",228,0)"
^XMB(3.9,44,2,3832,0)=" ;"
^XMB(3.9,44,2,3833,0)="""RTN"",""HLOSRVR1"",229,0)"
^XMB(3.9,44,2,3834,0)="ERROR ;error trap"
^XMB(3.9,44,2,3835,0)="""RTN"",""HLOSRVR1"",230,0)"
^XMB(3.9,44,2,3836,0)=" S $ETRAP=""D UNWIND^%ZTER"""
^XMB(3.9,44,2,3837,0)="""RTN"",""HLOSRVR1"",231,0)"
^XMB(3.9,44,2,3838,0)=" D END^HLOSRVR"
^XMB(3.9,44,2,3839,0)="""RTN"",""HLOSRVR1"",232,0)"
^XMB(3.9,44,2,3840,0)=" ;"
^XMB(3.9,44,2,3841,0)="""RTN"",""HLOSRVR1"",233,0)"
^XMB(3.9,44,2,3842,0)=" ;while debugging quit on all errors"
^XMB(3.9,44,2,3843,0)="""RTN"",""HLOSRVR1"",234,0)"
^XMB(3.9,44,2,3844,0)=" I $G(^HLTMP(""LOG ALL ERRORS"")) D ^%ZTER QUIT"
^XMB(3.9,44,2,3845,0)="""RTN"",""HLOSRVR1"",235,0)"
^XMB(3.9,44,2,3846,0)=" ;"
^XMB(3.9,44,2,3847,0)="""RTN"",""HLOSRVR1"",236,0)"
^XMB(3.9,44,2,3848,0)=" ;don't log these common errors"
^XMB(3.9,44,2,3849,0)="""RTN"",""HLOSRVR1"",237,0)"
^XMB(3.9,44,2,3850,0)=" I ($ECODE[""READ"")!($ECODE[""NOTOPEN"")!($ECODE[""DEVNOTOPN"")!($ECODE[""WRITE"")!($ECODE[""OPENERR"") D"
^XMB(3.9,44,2,3851,0)="""RTN"",""HLOSRVR1"",238,0)"
^XMB(3.9,44,2,3852,0)=" .;"
^XMB(3.9,44,2,3853,0)="""RTN"",""HLOSRVR1"",239,0)"
^XMB(3.9,44,2,3854,0)=" E  D"
^XMB(3.9,44,2,3855,0)="""RTN"",""HLOSRVR1"",240,0)"
^XMB(3.9,44,2,3856,0)=" .D ^%ZTER"
^XMB(3.9,44,2,3857,0)="""RTN"",""HLOSRVR1"",241,0)"
^XMB(3.9,44,2,3858,0)=" ;"
^XMB(3.9,44,2,3859,0)="""RTN"",""HLOSRVR1"",242,0)"
^XMB(3.9,44,2,3860,0)=" ;concurrent server connections (multi-listener) should stop execution, only a single server may continue"
^XMB(3.9,44,2,3861,0)="""RTN"",""HLOSRVR1"",243,0)"
^XMB(3.9,44,2,3862,0)=" Q:$P($G(HLCSTATE(""LINK"",""SERVER"")),""^"",2)'=""S"""
^XMB(3.9,44,2,3863,0)="""RTN"",""HLOSRVR1"",244,0)"
^XMB(3.9,44,2,3864,0)=" ;"
^XMB(3.9,44,2,3865,0)="""RTN"",""HLOSRVR1"",245,0)"
^XMB(3.9,44,2,3866,0)=" ;a lot of errors of the same time may indicate an endless loop, so keep a count"
^XMB(3.9,44,2,3867,0)="""RTN"",""HLOSRVR1"",246,0)"
^XMB(3.9,44,2,3868,0)=" S ^TMP(""HL7 ERRORS"",$J,$ECODE)=$G(^TMP(""HL7 ERRORS"",$J,$ECODE))+1"
^XMB(3.9,44,2,3869,0)="""RTN"",""HLOSRVR1"",247,0)"
^XMB(3.9,44,2,3870,0)=" ;"
^XMB(3.9,44,2,3871,0)="""RTN"",""HLOSRVR1"",248,0)"
^XMB(3.9,44,2,3872,0)=" I ($G(^TMP(""HL7 ERRORS"",$J,$ECODE))>100) K ^TMP(""HL7 ERRORS"",$J) QUIT"
^XMB(3.9,44,2,3873,0)="""RTN"",""HLOSRVR1"",249,0)"
^XMB(3.9,44,2,3874,0)=" ;"
^XMB(3.9,44,2,3875,0)="""RTN"",""HLOSRVR1"",250,0)"
^XMB(3.9,44,2,3876,0)=" ;resume execution for the single listener"
^XMB(3.9,44,2,3877,0)="""RTN"",""HLOSRVR1"",251,0)"
^XMB(3.9,44,2,3878,0)=" D UNWIND^%ZTER"
^XMB(3.9,44,2,3879,0)="""RTN"",""HLOSRVR1"",252,0)"
^XMB(3.9,44,2,3880,0)=" Q"
^XMB(3.9,44,2,3881,0)="""RTN"",""HLOSRVR2"")"
^XMB(3.9,44,2,3882,0)="0^13^B13997562"
^XMB(3.9,44,2,3883,0)="""RTN"",""HLOSRVR2"",1,0)"
^XMB(3.9,44,2,3884,0)="HLOSRVR2 ;ALB/CJM-HL7 - Sends an application ack over an open connection, for original mode ;02/04/2004"
^XMB(3.9,44,2,3885,0)="""RTN"",""HLOSRVR2"",2,0)"
^XMB(3.9,44,2,3886,0)=" ;;1.6;HEALTH LEVEL SEVEN;**131**;Oct 13, 1995;Build 10"
^XMB(3.9,44,2,3887,0)="""RTN"",""HLOSRVR2"",3,0)"
^XMB(3.9,44,2,3888,0)=" ;"
^XMB(3.9,44,2,3889,0)="""RTN"",""HLOSRVR2"",4,0)"
^XMB(3.9,44,2,3890,0)="NEWMSG(HLCSTATE,HLMSTATE,HDR) ;"
^XMB(3.9,44,2,3891,0)="""RTN"",""HLOSRVR2"",5,0)"
^XMB(3.9,44,2,3892,0)=" ;initialize the HLMSTATE array after reading the header"
^XMB(3.9,44,2,3893,0)="""RTN"",""HLOSRVR2"",6,0)"
^XMB(3.9,44,2,3894,0)=" ;Inputs:"
^XMB(3.9,44,2,3895,0)="""RTN"",""HLOSRVR2"",7,0)"
^XMB(3.9,44,2,3896,0)=" ;  HLCSTATE (pass by reference)"
^XMB(3.9,44,2,3897,0)="""RTN"",""HLOSRVR2"",8,0)"
^XMB(3.9,44,2,3898,0)=" ;  HDR (pass by reference) parsed header"
^XMB(3.9,44,2,3899,0)="""RTN"",""HLOSRVR2"",9,0)"
^XMB(3.9,44,2,3900,0)=" ;Output:"
^XMB(3.9,44,2,3901,0)="""RTN"",""HLOSRVR2"",10,0)"
^XMB(3.9,44,2,3902,0)=" ;  HLMSTATE (pass by reference)"
^XMB(3.9,44,2,3903,0)="""RTN"",""HLOSRVR2"",11,0)"
^XMB(3.9,44,2,3904,0)=" ;"
^XMB(3.9,44,2,3905,0)="""RTN"",""HLOSRVR2"",12,0)"
^XMB(3.9,44,2,3906,0)=" K HLMSTATE"
^XMB(3.9,44,2,3907,0)="""RTN"",""HLOSRVR2"",13,0)"
^XMB(3.9,44,2,3908,0)=" S HLMSTATE(""IEN"")="""""
^XMB(3.9,44,2,3909,0)="""RTN"",""HLOSRVR2"",14,0)"
^XMB(3.9,44,2,3910,0)=" S HLMSTATE(""BODY"")="""""
^XMB(3.9,44,2,3911,0)="""RTN"",""HLOSRVR2"",15,0)"
^XMB(3.9,44,2,3912,0)=" S HLMSTATE(""DIRECTION"")=""IN"""
^XMB(3.9,44,2,3913,0)="""RTN"",""HLOSRVR2"",16,0)"
^XMB(3.9,44,2,3914,0)=" S HLMSTATE(""CURRENT SEGMENT"")=0 ;no segments in cache"
^XMB(3.9,44,2,3915,0)="""RTN"",""HLOSRVR2"",17,0)"
^XMB(3.9,44,2,3916,0)=" S HLMSTATE(""UNSTORED LINES"")=1 ;just the header in cache so far"
^XMB(3.9,44,2,3917,0)="""RTN"",""HLOSRVR2"",18,0)"
^XMB(3.9,44,2,3918,0)=" S HLMSTATE(""LINE COUNT"")=0 ;no lines within message stored to disk"
^XMB(3.9,44,2,3919,0)="""RTN"",""HLOSRVR2"",19,0)"
^XMB(3.9,44,2,3920,0)=" I HDR(""SEGMENT TYPE"")=""BHS"" D"
^XMB(3.9,44,2,3921,0)="""RTN"",""HLOSRVR2"",20,0)"
^XMB(3.9,44,2,3922,0)=" .S HLMSTATE(""BATCH"")=1"
^XMB(3.9,44,2,3923,0)="""RTN"",""HLOSRVR2"",21,0)"
^XMB(3.9,44,2,3924,0)=" .S HLMSTATE(""ID"")=HDR(""BATCH CONTROL ID"")"
^XMB(3.9,44,2,3925,0)="""RTN"",""HLOSRVR2"",22,0)"
^XMB(3.9,44,2,3926,0)=" .S HLMSTATE(""BATCH"",""CURRENT MESSAGE"")=0 ;no messages in batch"
^XMB(3.9,44,2,3927,0)="""RTN"",""HLOSRVR2"",23,0)"
^XMB(3.9,44,2,3928,0)=" .S HLMSTATE(""UNSTORED MSH"")=0"
^XMB(3.9,44,2,3929,0)="""RTN"",""HLOSRVR2"",24,0)"
^XMB(3.9,44,2,3930,0)=" E  D"
^XMB(3.9,44,2,3931,0)="""RTN"",""HLOSRVR2"",25,0)"
^XMB(3.9,44,2,3932,0)=" .S HLMSTATE(""BATCH"")=0"
^XMB(3.9,44,2,3933,0)="""RTN"",""HLOSRVR2"",26,0)"
^XMB(3.9,44,2,3934,0)=" .S HLMSTATE(""ID"")=HDR(""MESSAGE CONTROL ID"")"
^XMB(3.9,44,2,3935,0)="""RTN"",""HLOSRVR2"",27,0)"
^XMB(3.9,44,2,3936,0)=" M HLMSTATE(""HDR"")=HDR"
^XMB(3.9,44,2,3937,0)="""RTN"",""HLOSRVR2"",28,0)"
^XMB(3.9,44,2,3938,0)=" M HLMSTATE(""SYSTEM"")=HLCSTATE(""SYSTEM"")"
^XMB(3.9,44,2,3939,0)="""RTN"",""HLOSRVR2"",29,0)"
^XMB(3.9,44,2,3940,0)=" S HLMSTATE(""STATUS"")="""""
^XMB(3.9,44,2,3941,0)="""RTN"",""HLOSRVR2"",30,0)"
^XMB(3.9,44,2,3942,0)=" S HLMSTATE(""STATUS"",""QUEUE"")="""""
^XMB(3.9,44,2,3943,0)="""RTN"",""HLOSRVR2"",31,0)"
^XMB(3.9,44,2,3944,0)=" S HLMSTATE(""STATUS"",""ACTION"")="""""
^XMB(3.9,44,2,3945,0)="""RTN"",""HLOSRVR2"",32,0)"
^XMB(3.9,44,2,3946,0)=" S HLMSTATE(""STATUS"",""LINK NAME"")=HLCSTATE(""LINK"",""NAME"")"
^XMB(3.9,44,2,3947,0)="""RTN"",""HLOSRVR2"",33,0)"
^XMB(3.9,44,2,3948,0)=" S HLMSTATE(""STATUS"",""PORT"")=$P(HDR(""SENDING FACILITY"",2),"":"",2)"
^XMB(3.9,44,2,3949,0)="""RTN"",""HLOSRVR2"",34,0)"
^XMB(3.9,44,2,3950,0)=" ;"
^XMB(3.9,44,2,3951,0)="""RTN"",""HLOSRVR2"",35,0)"
^XMB(3.9,44,2,3952,0)=" ;if this is a batch, and it references another batch, assume it is a b."
^XMB(3.9,44,2,3953,0)="""RTN"",""HLOSRVR2"",36,0)"
^XMB(3.9,44,2,3954,0)=" I HLMSTATE(""BATCH""),HLMSTATE(""ID"")]"""" D"
^XMB(3.9,44,2,3955,0)="""RTN"",""HLOSRVR2"",37,0)"
^XMB(3.9,44,2,3956,0)=" .N IEN"
^XMB(3.9,44,2,3957,0)="""RTN"",""HLOSRVR2"",38,0)"
^XMB(3.9,44,2,3958,0)=" .S HLMSTATE(""ACK TO"")=HLMSTATE(""ID"")"
^XMB(3.9,44,2,3959,0)="""RTN"",""HLOSRVR2"",39,0)"
^XMB(3.9,44,2,3960,0)=" .S HLMSTATE(""ACK TO"",""STATUS"")=""SU"""
^XMB(3.9,44,2,3961,0)="""RTN"",""HLOSRVR2"",40,0)"
^XMB(3.9,44,2,3962,0)=" .S IEN=$O(^HLB(""B"",HLMSTATE(""ID""),0))"
^XMB(3.9,44,2,3963,0)="""RTN"",""HLOSRVR2"",41,0)"
^XMB(3.9,44,2,3964,0)=" .I IEN S HLMSTATE(""ACK TO"",""IEN"")=IEN_""^"""
^XMB(3.9,44,2,3965,0)="""RTN"",""HLOSRVR2"",42,0)"
^XMB(3.9,44,2,3966,0)=" E  S HLMSTATE(""ACK TO"")="""""
^XMB(3.9,44,2,3967,0)="""RTN"",""HLOSRVR2"",43,0)"
^XMB(3.9,44,2,3968,0)=" I 'HLMSTATE(""BATCH""),HDR(""ACCEPT ACK TYPE"")="""",HDR(""APP ACK TYPE"")="""" D"
^XMB(3.9,44,2,3969,0)="""RTN"",""HLOSRVR2"",44,0)"
^XMB(3.9,44,2,3970,0)=" .S HLMSTATE(""ORIGINAL MODE"")=1"
^XMB(3.9,44,2,3971,0)="""RTN"",""HLOSRVR2"",45,0)"
^XMB(3.9,44,2,3972,0)=" E  D"
^XMB(3.9,44,2,3973,0)="""RTN"",""HLOSRVR2"",46,0)"
^XMB(3.9,44,2,3974,0)=" .S HLMSTATE(""ORIGINAL MODE"")=0"
^XMB(3.9,44,2,3975,0)="""RTN"",""HLOSRVR2"",47,0)"
^XMB(3.9,44,2,3976,0)=" N I F I=1,3 S HLMSTATE(""MSA"",I)="""""
^XMB(3.9,44,2,3977,0)="""RTN"",""HLOSRVR2"",48,0)"
^XMB(3.9,44,2,3978,0)=" S HLMSTATE(""MSA"",2)=HLMSTATE(""ID"")"
^XMB(3.9,44,2,3979,0)="""RTN"",""HLOSRVR2"",49,0)"
^XMB(3.9,44,2,3980,0)=" Q"
^XMB(3.9,44,2,3981,0)="""RTN"",""HLOSRVR2"",50,0)"
^XMB(3.9,44,2,3982,0)=" ;"
^XMB(3.9,44,2,3983,0)="""RTN"",""HLOSRVR2"",51,0)"
^XMB(3.9,44,2,3984,0)="ACKNOW(MSG,ERROR) ;"
^XMB(3.9,44,2,3985,0)="""RTN"",""HLOSRVR2"",52,0)"
^XMB(3.9,44,2,3986,0)=" ;Sends the messge immediately if there is an open connection, otherwise"
^XMB(3.9,44,2,3987,0)="""RTN"",""HLOSRVR2"",53,0)"
^XMB(3.9,44,2,3988,0)=" ;will return an error."
^XMB(3.9,44,2,3989,0)="""RTN"",""HLOSRVR2"",54,0)"
^XMB(3.9,44,2,3990,0)=" ;"
^XMB(3.9,44,2,3991,0)="""RTN"",""HLOSRVR2"",55,0)"
^XMB(3.9,44,2,3992,0)=" N $ETRAP,$ESTACK S $ETRAP=""G ERROR^HLOSRVR2"""
^XMB(3.9,44,2,3993,0)="""RTN"",""HLOSRVR2"",56,0)"
^XMB(3.9,44,2,3994,0)=" N SENT"
^XMB(3.9,44,2,3995,0)="""RTN"",""HLOSRVR2"",57,0)"
^XMB(3.9,44,2,3996,0)=" S SENT=0,ERROR="""""
^XMB(3.9,44,2,3997,0)="""RTN"",""HLOSRVR2"",58,0)"
^XMB(3.9,44,2,3998,0)=" I '$G(HLCSTATE(""CONNECTED"")) D"
^XMB(3.9,44,2,3999,0)="""RTN"",""HLOSRVR2"",59,0)"
^XMB(3.9,44,2,4000,0)=" .S ERROR=""NOT CONNECTED"""
^XMB(3.9,44,2,4001,0)="""RTN"",""HLOSRVR2"",60,0)"
^XMB(3.9,44,2,4002,0)=" .S MSG(""STATUS"")=""TF"""
^XMB(3.9,44,2,4003,0)="""RTN"",""HLOSRVR2"",61,0)"
^XMB(3.9,44,2,4004,0)=" E  S MSG(""STATUS"")=""SU"""
^XMB(3.9,44,2,4005,0)="""RTN"",""HLOSRVR2"",62,0)"
^XMB(3.9,44,2,4006,0)=" S:'$G(MSG(""DT/TM CREATED"")) MSG(""DT/TM CREATED"")=$$NOW^XLFDT"
^XMB(3.9,44,2,4007,0)="""RTN"",""HLOSRVR2"",63,0)"
^XMB(3.9,44,2,4008,0)=" S MSG(""STATUS"",""PURGE"")=$$FMADD^XLFDT(MSG(""DT/TM CREATED""),$S($G(HLCSTATE(""ERROR PURGE"")):HLCSTATE(""ERROR PURGE""),1:7))"
^XMB(3.9,44,2,4009,0)="""RTN"",""HLOSRVR2"",64,0)"
^XMB(3.9,44,2,4010,0)=" D"
^XMB(3.9,44,2,4011,0)="""RTN"",""HLOSRVR2"",65,0)"
^XMB(3.9,44,2,4012,0)=" .I $G(MSG(""UNSTORED LINES"")),'$$SAVEMSG^HLOF777(.MSG) S ERROR=""$$SAVE^HLOF777 FAILED!"" Q"
^XMB(3.9,44,2,4013,0)="""RTN"",""HLOSRVR2"",66,0)"
^XMB(3.9,44,2,4014,0)=" .I '$$SAVEMSG^HLOF778(.MSG) S ERROR=""$$SAVE^HLOF778 FAILED!"" Q"
^XMB(3.9,44,2,4015,0)="""RTN"",""HLOSRVR2"",67,0)"
^XMB(3.9,44,2,4016,0)=" .Q:MSG(""STATUS"")'=""SU"""
^XMB(3.9,44,2,4017,0)="""RTN"",""HLOSRVR2"",68,0)"
^XMB(3.9,44,2,4018,0)=" .I '$$WRITEMSG^HLOCLNT1(.HLCSTATE,.MSG) S ERROR=""TRANSMISSION FAILURE"" Q"
^XMB(3.9,44,2,4019,0)="""RTN"",""HLOSRVR2"",69,0)"
^XMB(3.9,44,2,4020,0)=" .S SENT=1"
^XMB(3.9,44,2,4021,0)="""RTN"",""HLOSRVR2"",70,0)"
^XMB(3.9,44,2,4022,0)=" .D COUNT^HLOSTAT(.HLCSTATE,ACK(""HDR"",""RECEIVING APPLICATION""),ACK(""HDR"",""SENDING APPLICATION""),ACK(""HDR"",""MESSAGE TYPE"")_""~""_ACK(""HDR"",""EVENT""))"
^XMB(3.9,44,2,4023,0)="""RTN"",""HLOSRVR2"",71,0)"
^XMB(3.9,44,2,4024,0)=" ;"
^XMB(3.9,44,2,4025,0)="""RTN"",""HLOSRVR2"",72,0)"
^XMB(3.9,44,2,4026,0)="END ;"
^XMB(3.9,44,2,4027,0)="""RTN"",""HLOSRVR2"",73,0)"
^XMB(3.9,44,2,4028,0)=" I 'SENT,MSG(""STATUS"")=""SU"",$G(MSG(""IEN"")) D"
^XMB(3.9,44,2,4029,0)="""RTN"",""HLOSRVR2"",74,0)"
^XMB(3.9,44,2,4030,0)=" .Q:'$D(^HLB(MSG(""IEN""),0))"
^XMB(3.9,44,2,4031,0)="""RTN"",""HLOSRVR2"",75,0)"
^XMB(3.9,44,2,4032,0)=" .S MSG(""STATUS"")=""TF"""
^XMB(3.9,44,2,4033,0)="""RTN"",""HLOSRVR2"",76,0)"
^XMB(3.9,44,2,4034,0)=" .S MSG(""STATUS"",""ERROR TEXT"")=ERROR"
^XMB(3.9,44,2,4035,0)="""RTN"",""HLOSRVR2"",77,0)"
^XMB(3.9,44,2,4036,0)=" .S $P(^HLB(MSG(""IEN""),0),""^"",20)=MSG(""STATUS"")"
^XMB(3.9,44,2,4037,0)="""RTN"",""HLOSRVR2"",78,0)"
^XMB(3.9,44,2,4038,0)=" .S $P(^HLB(MSG(""IEN""),0),""^"",21)=MSG(""STATUS"",""ERROR TEXT"")"
^XMB(3.9,44,2,4039,0)="""RTN"",""HLOSRVR2"",79,0)"
^XMB(3.9,44,2,4040,0)=" .S ^HLB(""ERRORS"",""TF"",$S($L($G(MSG(""HDR"",""RECEIVING APPLICATION""))):MSG(""HDR"",""RECEIVING APPLICATION""),1:""UNKNOWN""),MSG(""DT/TM CREATED""),IEN)="""""
^XMB(3.9,44,2,4041,0)="""RTN"",""HLOSRVR2"",80,0)"
^XMB(3.9,44,2,4042,0)=" ;"
^XMB(3.9,44,2,4043,0)="""RTN"",""HLOSRVR2"",81,0)"
^XMB(3.9,44,2,4044,0)=" Q SENT"
^XMB(3.9,44,2,4045,0)="""RTN"",""HLOSRVR2"",82,0)"
^XMB(3.9,44,2,4046,0)=" ;"
^XMB(3.9,44,2,4047,0)="""RTN"",""HLOSRVR2"",83,0)"
^XMB(3.9,44,2,4048,0)="ERROR ;error trap for ACKNOW"
^XMB(3.9,44,2,4049,0)="""RTN"",""HLOSRVR2"",84,0)"
^XMB(3.9,44,2,4050,0)=" S SENT=0,ERROR=""TRANSMISSION FAILURE:""_$P($ECODE,"","",1,2)"
^XMB(3.9,44,2,4051,0)="""RTN"",""HLOSRVR2"",85,0)"
^XMB(3.9,44,2,4052,0)=" S $ETRAP=""D UNWIND^%ZTER"""
^XMB(3.9,44,2,4053,0)="""RTN"",""HLOSRVR2"",86,0)"
^XMB(3.9,44,2,4054,0)=" ;"
^XMB(3.9,44,2,4055,0)="""RTN"",""HLOSRVR2"",87,0)"
^XMB(3.9,44,2,4056,0)=" ;don't log some common errors"
^XMB(3.9,44,2,4057,0)="""RTN"",""HLOSRVR2"",88,0)"
^XMB(3.9,44,2,4058,0)=" I ($ECODE[""READ"")!($ECODE[""NOTOPEN"")!($ECODE[""DEVNOTOPN"")!($ECODE[""WRITE"")!($ECODE[""OPENERR"") D"
^XMB(3.9,44,2,4059,0)="""RTN"",""HLOSRVR2"",89,0)"
^XMB(3.9,44,2,4060,0)=" .;nothing!"
^XMB(3.9,44,2,4061,0)="""RTN"",""HLOSRVR2"",90,0)"
^XMB(3.9,44,2,4062,0)=" E  D"
^XMB(3.9,44,2,4063,0)="""RTN"",""HLOSRVR2"",91,0)"
^XMB(3.9,44,2,4064,0)=" .D ^%ZTER"
^XMB(3.9,44,2,4065,0)="""RTN"",""HLOSRVR2"",92,0)"
^XMB(3.9,44,2,4066,0)=" G END^HLOSRVR2"
^XMB(3.9,44,2,4067,0)="""RTN"",""HLOSRVR2"",93,0)"
^XMB(3.9,44,2,4068,0)=" Q"
^XMB(3.9,44,2,4069,0)="""RTN"",""HLOSTAT"")"
^XMB(3.9,44,2,4070,0)="0^12^B55442954^B55434883"
^XMB(3.9,44,2,4071,0)="""RTN"",""HLOSTAT"",1,0)"
^XMB(3.9,44,2,4072,0)="HLOSTAT ;ALB/CJM- HLO STATISTICS- 10/4/94 1pm"
^XMB(3.9,44,2,4073,0)="""RTN"",""HLOSTAT"",2,0)"
^XMB(3.9,44,2,4074,0)=" ;;1.6;HEALTH LEVEL SEVEN;**130,131**;Oct 13, 1995;Build 10"
^XMB(3.9,44,2,4075,0)="""RTN"",""HLOSTAT"",3,0)"
^XMB(3.9,44,2,4076,0)=" ;"
^XMB(3.9,44,2,4077,0)="""RTN"",""HLOSTAT"",4,0)"
^XMB(3.9,44,2,4078,0)=" ;"
^XMB(3.9,44,2,4079,0)="""RTN"",""HLOSTAT"",5,0)"
^XMB(3.9,44,2,4080,0)="COUNT(HLCSTATE,RAP,SAP,TYPE) ;"
^XMB(3.9,44,2,4081,0)="""RTN"",""HLOSTAT"",6,0)"
^XMB(3.9,44,2,4082,0)=" S:RAP="""" RAP=""UNKNOWN"""
^XMB(3.9,44,2,4083,0)="""RTN"",""HLOSTAT"",7,0)"
^XMB(3.9,44,2,4084,0)=" S:SAP="""" SAP=""UNKNOWN"""
^XMB(3.9,44,2,4085,0)="""RTN"",""HLOSTAT"",8,0)"
^XMB(3.9,44,2,4086,0)=" S:$L(TYPE)<2 TYPE=""UNKNOWN"""
^XMB(3.9,44,2,4087,0)="""RTN"",""HLOSTAT"",9,0)"
^XMB(3.9,44,2,4088,0)=" S HLCSTATE(""COUNTS"")=$G(HLCSTATE(""COUNTS""))+1,HLCSTATE(""COUNTS"",SAP,RAP,TYPE)=1+$G(HLCSTATE(""COUNTS"",SAP,RAP,TYPE))"
^XMB(3.9,44,2,4089,0)="""RTN"",""HLOSTAT"",10,0)"
^XMB(3.9,44,2,4090,0)=" Q"
^XMB(3.9,44,2,4091,0)="""RTN"",""HLOSTAT"",11,0)"
^XMB(3.9,44,2,4092,0)="SAVECNTS(HLCSTATE) ;"
^XMB(3.9,44,2,4093,0)="""RTN"",""HLOSTAT"",12,0)"
^XMB(3.9,44,2,4094,0)=" N TIME,DIR,RAP,SAP,TYPE,COUNT"
^XMB(3.9,44,2,4095,0)="""RTN"",""HLOSTAT"",13,0)"
^XMB(3.9,44,2,4096,0)=" Q:'$G(HLCSTATE(""COUNTS""))"
^XMB(3.9,44,2,4097,0)="""RTN"",""HLOSTAT"",14,0)"
^XMB(3.9,44,2,4098,0)=" S TIME=$E($$NOW^XLFDT,1,10)"
^XMB(3.9,44,2,4099,0)="""RTN"",""HLOSTAT"",15,0)"
^XMB(3.9,44,2,4100,0)=" S DIR=$S(+$G(HLCSTATE(""SERVER"")):""IN"",1:""OUT"")"
^XMB(3.9,44,2,4101,0)="""RTN"",""HLOSTAT"",16,0)"
^XMB(3.9,44,2,4102,0)=" I $G(HLCSTATE(""COUNTS"",""ACKS"")) D"
^XMB(3.9,44,2,4103,0)="""RTN"",""HLOSTAT"",17,0)"
^XMB(3.9,44,2,4104,0)=" .I $$INC^HLOSITE($NA(^HLSTATS($S(DIR=""IN"":""OUT"",1:""IN""),""HOURLY"",+TIME,""ACCEPT ACK"")),HLCSTATE(""COUNTS"",""ACKS""))"
^XMB(3.9,44,2,4105,0)="""RTN"",""HLOSTAT"",18,0)"
^XMB(3.9,44,2,4106,0)=" S SAP="""""
^XMB(3.9,44,2,4107,0)="""RTN"",""HLOSTAT"",19,0)"
^XMB(3.9,44,2,4108,0)=" F  S SAP=$O(HLCSTATE(""COUNTS"",SAP)) Q:SAP=""""  D"
^XMB(3.9,44,2,4109,0)="""RTN"",""HLOSTAT"",20,0)"
^XMB(3.9,44,2,4110,0)=" .S RAP="""""
^XMB(3.9,44,2,4111,0)="""RTN"",""HLOSTAT"",21,0)"
^XMB(3.9,44,2,4112,0)=" .F  S RAP=$O(HLCSTATE(""COUNTS"",SAP,RAP)) Q:RAP=""""  D"
^XMB(3.9,44,2,4113,0)="""RTN"",""HLOSTAT"",22,0)"
^XMB(3.9,44,2,4114,0)=" ..S TYPE="""""
^XMB(3.9,44,2,4115,0)="""RTN"",""HLOSTAT"",23,0)"
^XMB(3.9,44,2,4116,0)=" ..F  S TYPE=$O(HLCSTATE(""COUNTS"",SAP,RAP,TYPE)) Q:TYPE=""""  D"
^XMB(3.9,44,2,4117,0)="""RTN"",""HLOSTAT"",24,0)"
^XMB(3.9,44,2,4118,0)=" ...S COUNT=HLCSTATE(""COUNTS"",SAP,RAP,TYPE)"
^XMB(3.9,44,2,4119,0)="""RTN"",""HLOSTAT"",25,0)"
^XMB(3.9,44,2,4120,0)=" ...I $$INC^HLOSITE($NA(^HLSTATS(DIR,""HOURLY"",+TIME,SAP,RAP,TYPE)),COUNT)"
^XMB(3.9,44,2,4121,0)="""RTN"",""HLOSTAT"",26,0)"
^XMB(3.9,44,2,4122,0)=" K HLCSTATE(""COUNTS"") S HLCSTATE(""COUNTS"")=0"
^XMB(3.9,44,2,4123,0)="""RTN"",""HLOSTAT"",27,0)"
^XMB(3.9,44,2,4124,0)=" Q"
^XMB(3.9,44,2,4125,0)="""RTN"",""HLOSTAT"",28,0)"
^XMB(3.9,44,2,4126,0)=" ;"
^XMB(3.9,44,2,4127,0)="""RTN"",""HLOSTAT"",29,0)"
^XMB(3.9,44,2,4128,0)="TOTAL(WORK) ;totals hours into days and days into months"
^XMB(3.9,44,2,4129,0)="""RTN"",""HLOSTAT"",30,0)"
^XMB(3.9,44,2,4130,0)=" ;"
^XMB(3.9,44,2,4131,0)="""RTN"",""HLOSTAT"",31,0)"
^XMB(3.9,44,2,4132,0)=" N RAP,SAP,TIME,LIMIT,DIR,COUNT,MONTH,START,END"
^XMB(3.9,44,2,4133,0)="""RTN"",""HLOSTAT"",32,0)"
^XMB(3.9,44,2,4134,0)=" ;"
^XMB(3.9,44,2,4135,0)="""RTN"",""HLOSTAT"",33,0)"
^XMB(3.9,44,2,4136,0)=" ;start totaling the next day after last date totaled"
^XMB(3.9,44,2,4137,0)="""RTN"",""HLOSTAT"",34,0)"
^XMB(3.9,44,2,4138,0)=" S START=$G(^HLSTATS(""END DATE""))"
^XMB(3.9,44,2,4139,0)="""RTN"",""HLOSTAT"",35,0)"
^XMB(3.9,44,2,4140,0)=" S:START START=$$FMADD^XLFDT(START,1)"
^XMB(3.9,44,2,4141,0)="""RTN"",""HLOSTAT"",36,0)"
^XMB(3.9,44,2,4142,0)=" ;"
^XMB(3.9,44,2,4143,0)="""RTN"",""HLOSTAT"",37,0)"
^XMB(3.9,44,2,4144,0)=" ;end totaling in the last hour of yesterday and save it so that the next run knows where to start"
^XMB(3.9,44,2,4145,0)="""RTN"",""HLOSTAT"",38,0)"
^XMB(3.9,44,2,4146,0)=" S END=$$FMADD^XLFDT($$DT^XLFDT,-1)"
^XMB(3.9,44,2,4147,0)="""RTN"",""HLOSTAT"",39,0)"
^XMB(3.9,44,2,4148,0)=" S ^HLSTATS(""END DATE"")=END"
^XMB(3.9,44,2,4149,0)="""RTN"",""HLOSTAT"",40,0)"
^XMB(3.9,44,2,4150,0)=" S END=END+.24"
^XMB(3.9,44,2,4151,0)="""RTN"",""HLOSTAT"",41,0)"
^XMB(3.9,44,2,4152,0)=" ;"
^XMB(3.9,44,2,4153,0)="""RTN"",""HLOSTAT"",42,0)"
^XMB(3.9,44,2,4154,0)=" ;total hours into days"
^XMB(3.9,44,2,4155,0)="""RTN"",""HLOSTAT"",43,0)"
^XMB(3.9,44,2,4156,0)=" S LIMIT=$$FMADD^XLFDT($$DT^XLFDT,,-48) ;save ~48 hours of hourly data"
^XMB(3.9,44,2,4157,0)="""RTN"",""HLOSTAT"",44,0)"
^XMB(3.9,44,2,4158,0)=" F DIR=""IN"",""OUT"" D"
^XMB(3.9,44,2,4159,0)="""RTN"",""HLOSTAT"",45,0)"
^XMB(3.9,44,2,4160,0)=" .S TIME=0"
^XMB(3.9,44,2,4161,0)="""RTN"",""HLOSTAT"",46,0)"
^XMB(3.9,44,2,4162,0)=" .F  S TIME=$O(^HLSTATS(DIR,""HOURLY"",TIME)) Q:'TIME  Q:(TIME>END)  D"
^XMB(3.9,44,2,4163,0)="""RTN"",""HLOSTAT"",47,0)"
^XMB(3.9,44,2,4164,0)=" ..D:'(TIME<START)"
^XMB(3.9,44,2,4165,0)="""RTN"",""HLOSTAT"",48,0)"
^XMB(3.9,44,2,4166,0)=" ...S ^HLSTATS(DIR,""DAILY"",$P(TIME,"".""),""ACCEPT ACK"")=$G(^HLSTATS(DIR,""DAILY"",$P(TIME,"".""),""ACCEPT ACK""))+$G(^HLSTATS(DIR,""HOURLY"",TIME,""ACCEPT ACK""))"
^XMB(3.9,44,2,4167,0)="""RTN"",""HLOSTAT"",49,0)"
^XMB(3.9,44,2,4168,0)=" ...S SAP="""""
^XMB(3.9,44,2,4169,0)="""RTN"",""HLOSTAT"",50,0)"
^XMB(3.9,44,2,4170,0)=" ...F  S SAP=$O(^HLSTATS(DIR,""HOURLY"",TIME,SAP)) Q:SAP=""""  D"
^XMB(3.9,44,2,4171,0)="""RTN"",""HLOSTAT"",51,0)"
^XMB(3.9,44,2,4172,0)=" ....S RAP="""""
^XMB(3.9,44,2,4173,0)="""RTN"",""HLOSTAT"",52,0)"
^XMB(3.9,44,2,4174,0)=" ....F  S RAP=$O(^HLSTATS(DIR,""HOURLY"",TIME,SAP,RAP)) Q:RAP=""""  D"
^XMB(3.9,44,2,4175,0)="""RTN"",""HLOSTAT"",53,0)"
^XMB(3.9,44,2,4176,0)=" .....S TYPE="""""
^XMB(3.9,44,2,4177,0)="""RTN"",""HLOSTAT"",54,0)"
^XMB(3.9,44,2,4178,0)=" .....F  S TYPE=$O(^HLSTATS(DIR,""HOURLY"",TIME,SAP,RAP,TYPE)) Q:TYPE=""""  D"
^XMB(3.9,44,2,4179,0)="""RTN"",""HLOSTAT"",55,0)"
^XMB(3.9,44,2,4180,0)=" ......S COUNT=$G(^HLSTATS(DIR,""HOURLY"",TIME,SAP,RAP,TYPE))"
^XMB(3.9,44,2,4181,0)="""RTN"",""HLOSTAT"",56,0)"
^XMB(3.9,44,2,4182,0)=" ......S ^HLSTATS(DIR,""DAILY"",$P(TIME,"".""),SAP,RAP,TYPE)=$G(^HLSTATS(DIR,""DAILY"",$P(TIME,"".""),SAP,RAP,TYPE))+COUNT"
^XMB(3.9,44,2,4183,0)="""RTN"",""HLOSTAT"",57,0)"
^XMB(3.9,44,2,4184,0)=" ..;get rid of old hourly stats"
^XMB(3.9,44,2,4185,0)="""RTN"",""HLOSTAT"",58,0)"
^XMB(3.9,44,2,4186,0)=" ..K:(TIME<LIMIT) ^HLSTATS(DIR,""HOURLY"",TIME)"
^XMB(3.9,44,2,4187,0)="""RTN"",""HLOSTAT"",59,0)"
^XMB(3.9,44,2,4188,0)=" ;"
^XMB(3.9,44,2,4189,0)="""RTN"",""HLOSTAT"",60,0)"
^XMB(3.9,44,2,4190,0)=" ;total days into months"
^XMB(3.9,44,2,4191,0)="""RTN"",""HLOSTAT"",61,0)"
^XMB(3.9,44,2,4192,0)=" S LIMIT=$$FMADD^XLFDT($$DT^XLFDT,-30) ;save ~30 days of daily data"
^XMB(3.9,44,2,4193,0)="""RTN"",""HLOSTAT"",62,0)"
^XMB(3.9,44,2,4194,0)=" F DIR=""IN"",""OUT"" D"
^XMB(3.9,44,2,4195,0)="""RTN"",""HLOSTAT"",63,0)"
^XMB(3.9,44,2,4196,0)=" .S TIME=0"
^XMB(3.9,44,2,4197,0)="""RTN"",""HLOSTAT"",64,0)"
^XMB(3.9,44,2,4198,0)=" .F  S TIME=$O(^HLSTATS(DIR,""DAILY"",TIME)) Q:'TIME  Q:(TIME>END)  D"
^XMB(3.9,44,2,4199,0)="""RTN"",""HLOSTAT"",65,0)"
^XMB(3.9,44,2,4200,0)=" ..D:'(TIME<START)"
^XMB(3.9,44,2,4201,0)="""RTN"",""HLOSTAT"",66,0)"
^XMB(3.9,44,2,4202,0)=" ...S MONTH=$E(TIME,1,5)"
^XMB(3.9,44,2,4203,0)="""RTN"",""HLOSTAT"",67,0)"
^XMB(3.9,44,2,4204,0)=" ...S ^HLSTATS(DIR,""MONTHLY"",MONTH,""ACCEPT ACK"")=$G(^HLSTATS(DIR,""MONTHLY"",MONTH,""ACCEPT ACK""))+$G(^HLSTATS(DIR,""DAILY"",TIME,""ACCEPT ACK""))"
^XMB(3.9,44,2,4205,0)="""RTN"",""HLOSTAT"",68,0)"
^XMB(3.9,44,2,4206,0)=" ...S SAP="""""
^XMB(3.9,44,2,4207,0)="""RTN"",""HLOSTAT"",69,0)"
^XMB(3.9,44,2,4208,0)=" ...F  S SAP=$O(^HLSTATS(DIR,""DAILY"",TIME,SAP)) Q:SAP=""""  D"
^XMB(3.9,44,2,4209,0)="""RTN"",""HLOSTAT"",70,0)"
^XMB(3.9,44,2,4210,0)=" ....S RAP="""""
^XMB(3.9,44,2,4211,0)="""RTN"",""HLOSTAT"",71,0)"
^XMB(3.9,44,2,4212,0)=" ....F  S RAP=$O(^HLSTATS(DIR,""DAILY"",TIME,SAP,RAP)) Q:RAP=""""  D"
^XMB(3.9,44,2,4213,0)="""RTN"",""HLOSTAT"",72,0)"
^XMB(3.9,44,2,4214,0)=" .....S TYPE="""""
^XMB(3.9,44,2,4215,0)="""RTN"",""HLOSTAT"",73,0)"
^XMB(3.9,44,2,4216,0)=" .....F  S TYPE=$O(^HLSTATS(DIR,""DAILY"",TIME,SAP,RAP,TYPE)) Q:TYPE=""""  D"
^XMB(3.9,44,2,4217,0)="""RTN"",""HLOSTAT"",74,0)"
^XMB(3.9,44,2,4218,0)=" ......S COUNT=$G(^HLSTATS(DIR,""DAILY"",TIME,SAP,RAP,TYPE))"
^XMB(3.9,44,2,4219,0)="""RTN"",""HLOSTAT"",75,0)"
^XMB(3.9,44,2,4220,0)=" ......S ^HLSTATS(DIR,""MONTHLY"",MONTH,SAP,RAP,TYPE)=$G(^HLSTATS(DIR,""MONTHLY"",MONTH,SAP,RAP,TYPE))+COUNT"
^XMB(3.9,44,2,4221,0)="""RTN"",""HLOSTAT"",76,0)"
^XMB(3.9,44,2,4222,0)=" ..K:(TIME<LIMIT) ^HLSTATS(DIR,""DAILY"",TIME)"
^XMB(3.9,44,2,4223,0)="""RTN"",""HLOSTAT"",77,0)"
^XMB(3.9,44,2,4224,0)=" Q"
^XMB(3.9,44,2,4225,0)="""RTN"",""HLOSTAT"",78,0)"
^XMB(3.9,44,2,4226,0)="REPORT ;Interactive option for printing the message statistics report"
^XMB(3.9,44,2,4227,0)="""RTN"",""HLOSTAT"",79,0)"
^XMB(3.9,44,2,4228,0)=" N DIR,TYPE,START,END"
^XMB(3.9,44,2,4229,0)="""RTN"",""HLOSTAT"",80,0)"
^XMB(3.9,44,2,4230,0)=" W !,""Hourly, daily, and monthly statistics are maintained."""
^XMB(3.9,44,2,4231,0)="""RTN"",""HLOSTAT"",81,0)"
^XMB(3.9,44,2,4232,0)=" W !,""Hourly statistics are available for approximately the last 24 hours."""
^XMB(3.9,44,2,4233,0)="""RTN"",""HLOSTAT"",82,0)"
^XMB(3.9,44,2,4234,0)=" W !,""Daily statistics are available for approximately the last 30 days."""
^XMB(3.9,44,2,4235,0)="""RTN"",""HLOSTAT"",83,0)"
^XMB(3.9,44,2,4236,0)=" W !,""Monthly statistics are kept indefinitely"""
^XMB(3.9,44,2,4237,0)="""RTN"",""HLOSTAT"",84,0)"
^XMB(3.9,44,2,4238,0)=" S DIR(0)=""S^h:HOURLY;d:DAILY;m:MONTHLY"""
^XMB(3.9,44,2,4239,0)="""RTN"",""HLOSTAT"",85,0)"
^XMB(3.9,44,2,4240,0)=" S DIR(""A"")=""Which type of statistics should be reported"""
^XMB(3.9,44,2,4241,0)="""RTN"",""HLOSTAT"",86,0)"
^XMB(3.9,44,2,4242,0)=" S DIR(""B"")=""MONTHLY"""
^XMB(3.9,44,2,4243,0)="""RTN"",""HLOSTAT"",87,0)"
^XMB(3.9,44,2,4244,0)=" D ^DIR"
^XMB(3.9,44,2,4245,0)="""RTN"",""HLOSTAT"",88,0)"
^XMB(3.9,44,2,4246,0)=" Q:$D(DIRUT)"
^XMB(3.9,44,2,4247,0)="""RTN"",""HLOSTAT"",89,0)"
^XMB(3.9,44,2,4248,0)=" I Y'=""h"",Y'=""d"",Y'=""m"" Q"
^XMB(3.9,44,2,4249,0)="""RTN"",""HLOSTAT"",90,0)"
^XMB(3.9,44,2,4250,0)=" S TYPE=$S(Y=""h"":""HOURLY"",Y=""d"":""DAILY"",1:""MONTHLY"")"
^XMB(3.9,44,2,4251,0)="""RTN"",""HLOSTAT"",91,0)"
^XMB(3.9,44,2,4252,0)=" S START=$S(TYPE=""HOURLY"":$E($$FMADD^XLFDT($$NOW^XLFDT,,-24),1,10),TYPE=""DAILY"":$$FMADD^XLFDT(DT,-7),1:$E($$FMADD^XLFDT(DT,-30),1,5)_""01"")"
^XMB(3.9,44,2,4253,0)="""RTN"",""HLOSTAT"",92,0)"
^XMB(3.9,44,2,4254,0)=" S START=$$ASKBEGIN^HLOUSR2(START)"
^XMB(3.9,44,2,4255,0)="""RTN"",""HLOSTAT"",93,0)"
^XMB(3.9,44,2,4256,0)=" Q:'START"
^XMB(3.9,44,2,4257,0)="""RTN"",""HLOSTAT"",94,0)"
^XMB(3.9,44,2,4258,0)=" S END=$$ASKEND^HLOUSR2(START)"
^XMB(3.9,44,2,4259,0)="""RTN"",""HLOSTAT"",95,0)"
^XMB(3.9,44,2,4260,0)=" Q:'END"
^XMB(3.9,44,2,4261,0)="""RTN"",""HLOSTAT"",96,0)"
^XMB(3.9,44,2,4262,0)=" S:TYPE=""MONTHLY"" START=$E(START,1,5)_""00"""
^XMB(3.9,44,2,4263,0)="""RTN"",""HLOSTAT"",97,0)"
^XMB(3.9,44,2,4264,0)=" S:TYPE=""DAILY"" START=$E(START,1,7)"
^XMB(3.9,44,2,4265,0)="""RTN"",""HLOSTAT"",98,0)"
^XMB(3.9,44,2,4266,0)=" S:TYPE=""HOURLY"" START=$E(START,1,10)"
^XMB(3.9,44,2,4267,0)="""RTN"",""HLOSTAT"",99,0)"
^XMB(3.9,44,2,4268,0)=" D:$$DEVICE() PRINT(TYPE,START,END)"
^XMB(3.9,44,2,4269,0)="""RTN"",""HLOSTAT"",100,0)"
^XMB(3.9,44,2,4270,0)=" Q"
^XMB(3.9,44,2,4271,0)="""RTN"",""HLOSTAT"",101,0)"
^XMB(3.9,44,2,4272,0)=" ;"
^XMB(3.9,44,2,4273,0)="""RTN"",""HLOSTAT"",102,0)"
^XMB(3.9,44,2,4274,0)="QUE ;entry point for queuing the message statistics report"
^XMB(3.9,44,2,4275,0)="""RTN"",""HLOSTAT"",103,0)"
^XMB(3.9,44,2,4276,0)=" ;"
^XMB(3.9,44,2,4277,0)="""RTN"",""HLOSTAT"",104,0)"
^XMB(3.9,44,2,4278,0)=" D PRINT($G(HLOPARMS(""STATISTICS TYPE"")),$G(HLOPARMS(""START DT/TM"")),$G(HLOPARMS(""END DT/TM"")))"
^XMB(3.9,44,2,4279,0)="""RTN"",""HLOSTAT"",105,0)"
^XMB(3.9,44,2,4280,0)=" Q"
^XMB(3.9,44,2,4281,0)="""RTN"",""HLOSTAT"",106,0)"
^XMB(3.9,44,2,4282,0)=" ;"
^XMB(3.9,44,2,4283,0)="""RTN"",""HLOSTAT"",107,0)"
^XMB(3.9,44,2,4284,0)="PRINT(STATTYPE,START,END) ;"
^XMB(3.9,44,2,4285,0)="""RTN"",""HLOSTAT"",108,0)"
^XMB(3.9,44,2,4286,0)=" ;"
^XMB(3.9,44,2,4287,0)="""RTN"",""HLOSTAT"",109,0)"
^XMB(3.9,44,2,4288,0)=" N RAP,SAP,TIME,DIR,COUNT,PAGE,CRT,QUIT"
^XMB(3.9,44,2,4289,0)="""RTN"",""HLOSTAT"",110,0)"
^XMB(3.9,44,2,4290,0)=" S QUIT=0"
^XMB(3.9,44,2,4291,0)="""RTN"",""HLOSTAT"",111,0)"
^XMB(3.9,44,2,4292,0)=" S CRT=$S($E(IOST,1,2)=""C-"":1,1:0)"
^XMB(3.9,44,2,4293,0)="""RTN"",""HLOSTAT"",112,0)"
^XMB(3.9,44,2,4294,0)=" ;"
^XMB(3.9,44,2,4295,0)="""RTN"",""HLOSTAT"",113,0)"
^XMB(3.9,44,2,4296,0)=" U IO"
^XMB(3.9,44,2,4297,0)="""RTN"",""HLOSTAT"",114,0)"
^XMB(3.9,44,2,4298,0)=" W:CRT @IOF"
^XMB(3.9,44,2,4299,0)="""RTN"",""HLOSTAT"",115,0)"
^XMB(3.9,44,2,4300,0)=" W ""HLO MESSAGING STATISTICS REPORT "",$$FMTE^XLFDT($$NOW^XLFDT),?70,""Page 1"""
^XMB(3.9,44,2,4301,0)="""RTN"",""HLOSTAT"",116,0)"
^XMB(3.9,44,2,4302,0)=" D LINE($$LJ(""Type:"",15)_STATTYPE)"
^XMB(3.9,44,2,4303,0)="""RTN"",""HLOSTAT"",117,0)"
^XMB(3.9,44,2,4304,0)=" D LINE($$LJ(""Beginning:"",15)_$S(STATTYPE=""MONTHLY"":$$FMTE^XLFDT(START),1:$$FMTE^XLFDT(START)))"
^XMB(3.9,44,2,4305,0)="""RTN"",""HLOSTAT"",118,0)"
^XMB(3.9,44,2,4306,0)=" D LINE($$LJ(""Ending:"",15)_$$FMTE^XLFDT(END))"
^XMB(3.9,44,2,4307,0)="""RTN"",""HLOSTAT"",119,0)"
^XMB(3.9,44,2,4308,0)=" S PAGE=1"
^XMB(3.9,44,2,4309,0)="""RTN"",""HLOSTAT"",120,0)"
^XMB(3.9,44,2,4310,0)=" ;"
^XMB(3.9,44,2,4311,0)="""RTN"",""HLOSTAT"",121,0)"
^XMB(3.9,44,2,4312,0)=" ;"
^XMB(3.9,44,2,4313,0)="""RTN"",""HLOSTAT"",122,0)"
^XMB(3.9,44,2,4314,0)=" F DIR=""IN"",""OUT"" D  Q:QUIT"
^XMB(3.9,44,2,4315,0)="""RTN"",""HLOSTAT"",123,0)"
^XMB(3.9,44,2,4316,0)=" .N TOTAL"
^XMB(3.9,44,2,4317,0)="""RTN"",""HLOSTAT"",124,0)"
^XMB(3.9,44,2,4318,0)=" .S TOTAL=0"
^XMB(3.9,44,2,4319,0)="""RTN"",""HLOSTAT"",125,0)"
^XMB(3.9,44,2,4320,0)=" .D LINE("" "")"
^XMB(3.9,44,2,4321,0)="""RTN"",""HLOSTAT"",126,0)"
^XMB(3.9,44,2,4322,0)=" .S TIME=START"
^XMB(3.9,44,2,4323,0)="""RTN"",""HLOSTAT"",127,0)"
^XMB(3.9,44,2,4324,0)=" .S:STATTYPE=""MONTHLY"" TIME=$E(TIME,1,5)"
^XMB(3.9,44,2,4325,0)="""RTN"",""HLOSTAT"",128,0)"
^XMB(3.9,44,2,4326,0)=" .S TIME=TIME-.0001"
^XMB(3.9,44,2,4327,0)="""RTN"",""HLOSTAT"",129,0)"
^XMB(3.9,44,2,4328,0)=" .D LINE($S(DIR=""IN"":""Incoming Messages:"",1:""Outgoing Messages:""))"
^XMB(3.9,44,2,4329,0)="""RTN"",""HLOSTAT"",130,0)"
^XMB(3.9,44,2,4330,0)=" .Q:QUIT"
^XMB(3.9,44,2,4331,0)="""RTN"",""HLOSTAT"",131,0)"
^XMB(3.9,44,2,4332,0)=" .F  S TIME=$O(^HLSTATS(DIR,STATTYPE,TIME)) Q:((TIME>$G(END))&$G(END))  Q:'TIME  D  Q:QUIT"
^XMB(3.9,44,2,4333,0)="""RTN"",""HLOSTAT"",132,0)"
^XMB(3.9,44,2,4334,0)=" ..N SUBTOTAL"
^XMB(3.9,44,2,4335,0)="""RTN"",""HLOSTAT"",133,0)"
^XMB(3.9,44,2,4336,0)=" ..S SUBTOTAL=0"
^XMB(3.9,44,2,4337,0)="""RTN"",""HLOSTAT"",134,0)"
^XMB(3.9,44,2,4338,0)=" ..D LINE("" "")"
^XMB(3.9,44,2,4339,0)="""RTN"",""HLOSTAT"",135,0)"
^XMB(3.9,44,2,4340,0)=" ..Q:QUIT"
^XMB(3.9,44,2,4341,0)="""RTN"",""HLOSTAT"",136,0)"
^XMB(3.9,44,2,4342,0)=" ..D LINE(""     Time Period: ""_$S(STATTYPE=""MONTHLY"":$$FMTE^XLFDT(TIME_""00""),1:$$FMTE^XLFDT(TIME)))"
^XMB(3.9,44,2,4343,0)="""RTN"",""HLOSTAT"",137,0)"
^XMB(3.9,44,2,4344,0)=" ..Q:QUIT"
^XMB(3.9,44,2,4345,0)="""RTN"",""HLOSTAT"",138,0)"
^XMB(3.9,44,2,4346,0)=" ..S COUNT=$G(^HLSTATS(DIR,STATTYPE,TIME,""ACCEPT ACK""))"
^XMB(3.9,44,2,4347,0)="""RTN"",""HLOSTAT"",139,0)"
^XMB(3.9,44,2,4348,0)=" ..I COUNT D  Q:QUIT"
^XMB(3.9,44,2,4349,0)="""RTN"",""HLOSTAT"",140,0)"
^XMB(3.9,44,2,4350,0)=" ...D LINE("" "")"
^XMB(3.9,44,2,4351,0)="""RTN"",""HLOSTAT"",141,0)"
^XMB(3.9,44,2,4352,0)=" ...Q:QUIT"
^XMB(3.9,44,2,4353,0)="""RTN"",""HLOSTAT"",142,0)"
^XMB(3.9,44,2,4354,0)=" ...D LINE(""          Accept Acknowledgments by All Applications          Count:""_$$RJ(COUNT,10))"
^XMB(3.9,44,2,4355,0)="""RTN"",""HLOSTAT"",143,0)"
^XMB(3.9,44,2,4356,0)=" ...Q:QUIT"
^XMB(3.9,44,2,4357,0)="""RTN"",""HLOSTAT"",144,0)"
^XMB(3.9,44,2,4358,0)=" ...D LINE("" "")"
^XMB(3.9,44,2,4359,0)="""RTN"",""HLOSTAT"",145,0)"
^XMB(3.9,44,2,4360,0)=" ..S SAP="""""
^XMB(3.9,44,2,4361,0)="""RTN"",""HLOSTAT"",146,0)"
^XMB(3.9,44,2,4362,0)=" ..F  S SAP=$O(^HLSTATS(DIR,STATTYPE,TIME,SAP)) Q:SAP=""""  D  Q:QUIT"
^XMB(3.9,44,2,4363,0)="""RTN"",""HLOSTAT"",147,0)"
^XMB(3.9,44,2,4364,0)=" ...Q:SAP=""ACCEPT ACK"""
^XMB(3.9,44,2,4365,0)="""RTN"",""HLOSTAT"",148,0)"
^XMB(3.9,44,2,4366,0)=" ...D LINE(""          Sending Application: ""_SAP)"
^XMB(3.9,44,2,4367,0)="""RTN"",""HLOSTAT"",149,0)"
^XMB(3.9,44,2,4368,0)=" ...Q:QUIT"
^XMB(3.9,44,2,4369,0)="""RTN"",""HLOSTAT"",150,0)"
^XMB(3.9,44,2,4370,0)=" ...S RAP="""""
^XMB(3.9,44,2,4371,0)="""RTN"",""HLOSTAT"",151,0)"
^XMB(3.9,44,2,4372,0)=" ...F  S RAP=$O(^HLSTATS(DIR,STATTYPE,TIME,SAP,RAP)) Q:RAP=""""  D  Q:QUIT"
^XMB(3.9,44,2,4373,0)="""RTN"",""HLOSTAT"",152,0)"
^XMB(3.9,44,2,4374,0)=" ....D LINE(""               Receiving Application: ""_RAP)"
^XMB(3.9,44,2,4375,0)="""RTN"",""HLOSTAT"",153,0)"
^XMB(3.9,44,2,4376,0)=" ....Q:QUIT"
^XMB(3.9,44,2,4377,0)="""RTN"",""HLOSTAT"",154,0)"
^XMB(3.9,44,2,4378,0)=" ....S TYPE="""""
^XMB(3.9,44,2,4379,0)="""RTN"",""HLOSTAT"",155,0)"
^XMB(3.9,44,2,4380,0)=" ....F  S TYPE=$O(^HLSTATS(DIR,STATTYPE,TIME,SAP,RAP,TYPE)) Q:TYPE=""""  D  Q:QUIT"
^XMB(3.9,44,2,4381,0)="""RTN"",""HLOSTAT"",156,0)"
^XMB(3.9,44,2,4382,0)=" .....S COUNT=$G(^HLSTATS(DIR,STATTYPE,TIME,SAP,RAP,TYPE))"
^XMB(3.9,44,2,4383,0)="""RTN"",""HLOSTAT"",157,0)"
^XMB(3.9,44,2,4384,0)=" .....S SUBTOTAL=SUBTOTAL+COUNT"
^XMB(3.9,44,2,4385,0)="""RTN"",""HLOSTAT"",158,0)"
^XMB(3.9,44,2,4386,0)=" .....D LINE(""                    Message Type: ""_$$LJ(TYPE,25)_""   Count:""_$$RJ(COUNT,10))"
^XMB(3.9,44,2,4387,0)="""RTN"",""HLOSTAT"",159,0)"
^XMB(3.9,44,2,4388,0)=" .....Q:QUIT"
^XMB(3.9,44,2,4389,0)="""RTN"",""HLOSTAT"",160,0)"
^XMB(3.9,44,2,4390,0)=" ..I 'QUIT D"
^XMB(3.9,44,2,4391,0)="""RTN"",""HLOSTAT"",161,0)"
^XMB(3.9,44,2,4392,0)=" ...S TOTAL=TOTAL+SUBTOTAL"
^XMB(3.9,44,2,4393,0)="""RTN"",""HLOSTAT"",162,0)"
^XMB(3.9,44,2,4394,0)=" ...D LINE("" ""),LINE($$RJ(""**""_STATTYPE_"" SUBTOTAL ** (excluding commit acks):"",68)_$$RJ(SUBTOTAL,10))"
^XMB(3.9,44,2,4395,0)="""RTN"",""HLOSTAT"",163,0)"
^XMB(3.9,44,2,4396,0)=" .D:'QUIT LINE("" ""),LINE($$RJ(""** TOTAL ""_$S(DIR=""IN"":""INCOMING"",1:""OUTGOING"")_"" MESSAGES ** (excluding commit acks):"",68)_$$RJ(TOTAL,10))"
^XMB(3.9,44,2,4397,0)="""RTN"",""HLOSTAT"",164,0)"
^XMB(3.9,44,2,4398,0)=" I CRT,'QUIT D PAUSE2"
^XMB(3.9,44,2,4399,0)="""RTN"",""HLOSTAT"",165,0)"
^XMB(3.9,44,2,4400,0)=" I $D(ZTQUEUED) S ZTREQ=""@"""
^XMB(3.9,44,2,4401,0)="""RTN"",""HLOSTAT"",166,0)"
^XMB(3.9,44,2,4402,0)=" D ^%ZISC"
^XMB(3.9,44,2,4403,0)="""RTN"",""HLOSTAT"",167,0)"
^XMB(3.9,44,2,4404,0)=" Q"
^XMB(3.9,44,2,4405,0)="""RTN"",""HLOSTAT"",168,0)"
^XMB(3.9,44,2,4406,0)=" ;"
^XMB(3.9,44,2,4407,0)="""RTN"",""HLOSTAT"",169,0)"
^XMB(3.9,44,2,4408,0)="DEVICE() ;"
^XMB(3.9,44,2,4409,0)="""RTN"",""HLOSTAT"",170,0)"
^XMB(3.9,44,2,4410,0)=" ;Description: allows the user to select a device."
^XMB(3.9,44,2,4411,0)="""RTN"",""HLOSTAT"",171,0)"
^XMB(3.9,44,2,4412,0)=" ;Input: none"
^XMB(3.9,44,2,4413,0)="""RTN"",""HLOSTAT"",172,0)"
^XMB(3.9,44,2,4414,0)=" ;"
^XMB(3.9,44,2,4415,0)="""RTN"",""HLOSTAT"",173,0)"
^XMB(3.9,44,2,4416,0)=" ;Output:"
^XMB(3.9,44,2,4417,0)="""RTN"",""HLOSTAT"",174,0)"
^XMB(3.9,44,2,4418,0)=" ;  Function Value - Returns 0 if the user decides not to print or to"
^XMB(3.9,44,2,4419,0)="""RTN"",""HLOSTAT"",175,0)"
^XMB(3.9,44,2,4420,0)=" ;    queue the report, 1 otherwise."
^XMB(3.9,44,2,4421,0)="""RTN"",""HLOSTAT"",176,0)"
^XMB(3.9,44,2,4422,0)=" ;"
^XMB(3.9,44,2,4423,0)="""RTN"",""HLOSTAT"",177,0)"
^XMB(3.9,44,2,4424,0)=" N OK,HLOPARMS"
^XMB(3.9,44,2,4425,0)="""RTN"",""HLOSTAT"",178,0)"
^XMB(3.9,44,2,4426,0)=" S OK=1"
^XMB(3.9,44,2,4427,0)="""RTN"",""HLOSTAT"",179,0)"
^XMB(3.9,44,2,4428,0)=" S %ZIS=""MQ"""
^XMB(3.9,44,2,4429,0)="""RTN"",""HLOSTAT"",180,0)"
^XMB(3.9,44,2,4430,0)=" D ^%ZIS"
^XMB(3.9,44,2,4431,0)="""RTN"",""HLOSTAT"",181,0)"
^XMB(3.9,44,2,4432,0)=" S:POP OK=0"
^XMB(3.9,44,2,4433,0)="""RTN"",""HLOSTAT"",182,0)"
^XMB(3.9,44,2,4434,0)=" D:OK&$D(IO(""Q""))"
^XMB(3.9,44,2,4435,0)="""RTN"",""HLOSTAT"",183,0)"
^XMB(3.9,44,2,4436,0)=" .S HLOPARMS(""STATISTICS TYPE"")=TYPE,HLOPARMS(""START DT/TM"")=START,HLOPARMS(""END DT/TM"")=END"
^XMB(3.9,44,2,4437,0)="""RTN"",""HLOSTAT"",184,0)"
^XMB(3.9,44,2,4438,0)=" .S ZTRTN=""QUE^HLOSTAT"",ZTDESC=""HLO MESSAGE STATISTICS REPORT"",ZTSAVE(""HLOPARMS("")="""""
^XMB(3.9,44,2,4439,0)="""RTN"",""HLOSTAT"",185,0)"
^XMB(3.9,44,2,4440,0)=" .D ^%ZTLOAD"
^XMB(3.9,44,2,4441,0)="""RTN"",""HLOSTAT"",186,0)"
^XMB(3.9,44,2,4442,0)=" .W !,$S($D(ZTSK):""REQUEST QUEUED TASK=""_ZTSK,1:""REQUEST CANCELLED"")"
^XMB(3.9,44,2,4443,0)="""RTN"",""HLOSTAT"",187,0)"
^XMB(3.9,44,2,4444,0)=" .D HOME^%ZIS"
^XMB(3.9,44,2,4445,0)="""RTN"",""HLOSTAT"",188,0)"
^XMB(3.9,44,2,4446,0)=" .S OK=0"
^XMB(3.9,44,2,4447,0)="""RTN"",""HLOSTAT"",189,0)"
^XMB(3.9,44,2,4448,0)=" Q OK"
^XMB(3.9,44,2,4449,0)="""RTN"",""HLOSTAT"",190,0)"
^XMB(3.9,44,2,4450,0)=" ;"
^XMB(3.9,44,2,4451,0)="""RTN"",""HLOSTAT"",191,0)"
^XMB(3.9,44,2,4452,0)="PAUSE ;"
^XMB(3.9,44,2,4453,0)="""RTN"",""HLOSTAT"",192,0)"
^XMB(3.9,44,2,4454,0)=" ;First scrolls to the bottome of the page, then does a screen pause.  Sets QUIT=1 if user decides to quit."
^XMB(3.9,44,2,4455,0)="""RTN"",""HLOSTAT"",193,0)"
^XMB(3.9,44,2,4456,0)=" ;"
^XMB(3.9,44,2,4457,0)="""RTN"",""HLOSTAT"",194,0)"
^XMB(3.9,44,2,4458,0)=" N DIR,X,Y"
^XMB(3.9,44,2,4459,0)="""RTN"",""HLOSTAT"",195,0)"
^XMB(3.9,44,2,4460,0)=" F  Q:$Y>(IOSL-3)  W !"
^XMB(3.9,44,2,4461,0)="""RTN"",""HLOSTAT"",196,0)"
^XMB(3.9,44,2,4462,0)=" S DIR(0)=""E"""
^XMB(3.9,44,2,4463,0)="""RTN"",""HLOSTAT"",197,0)"
^XMB(3.9,44,2,4464,0)=" D ^DIR"
^XMB(3.9,44,2,4465,0)="""RTN"",""HLOSTAT"",198,0)"
^XMB(3.9,44,2,4466,0)=" I ('(+Y))!$D(DIRUT) S QUIT=1"
^XMB(3.9,44,2,4467,0)="""RTN"",""HLOSTAT"",199,0)"
^XMB(3.9,44,2,4468,0)=" Q"
^XMB(3.9,44,2,4469,0)="""RTN"",""HLOSTAT"",200,0)"
^XMB(3.9,44,2,4470,0)="PAUSE2 ;"
^XMB(3.9,44,2,4471,0)="""RTN"",""HLOSTAT"",201,0)"
^XMB(3.9,44,2,4472,0)=" ;Screen pause without scrolling.  Sets QUIT=1 if user decides to quit."
^XMB(3.9,44,2,4473,0)="""RTN"",""HLOSTAT"",202,0)"
^XMB(3.9,44,2,4474,0)=" ;"
^XMB(3.9,44,2,4475,0)="""RTN"",""HLOSTAT"",203,0)"
^XMB(3.9,44,2,4476,0)=" N DIR,X,Y"
^XMB(3.9,44,2,4477,0)="""RTN"",""HLOSTAT"",204,0)"
^XMB(3.9,44,2,4478,0)=" S DIR(0)=""E"""
^XMB(3.9,44,2,4479,0)="""RTN"",""HLOSTAT"",205,0)"
^XMB(3.9,44,2,4480,0)=" D ^DIR"
^XMB(3.9,44,2,4481,0)="""RTN"",""HLOSTAT"",206,0)"
^XMB(3.9,44,2,4482,0)=" I ('(+Y))!$D(DIRUT) S QUIT=1"
^XMB(3.9,44,2,4483,0)="""RTN"",""HLOSTAT"",207,0)"
^XMB(3.9,44,2,4484,0)=" Q"
^XMB(3.9,44,2,4485,0)="""RTN"",""HLOSTAT"",208,0)"
^XMB(3.9,44,2,4486,0)=" ;"
^XMB(3.9,44,2,4487,0)="""RTN"",""HLOSTAT"",209,0)"
^XMB(3.9,44,2,4488,0)="LINE(LINE) ;Prints a line."
^XMB(3.9,44,2,4489,0)="""RTN"",""HLOSTAT"",210,0)"
^XMB(3.9,44,2,4490,0)=" ;"
^XMB(3.9,44,2,4491,0)="""RTN"",""HLOSTAT"",211,0)"
^XMB(3.9,44,2,4492,0)=" I CRT,($Y>(IOSL-4)) D"
^XMB(3.9,44,2,4493,0)="""RTN"",""HLOSTAT"",212,0)"
^XMB(3.9,44,2,4494,0)=" .D PAUSE"
^XMB(3.9,44,2,4495,0)="""RTN"",""HLOSTAT"",213,0)"
^XMB(3.9,44,2,4496,0)=" .Q:QUIT"
^XMB(3.9,44,2,4497,0)="""RTN"",""HLOSTAT"",214,0)"
^XMB(3.9,44,2,4498,0)=" .W @IOF"
^XMB(3.9,44,2,4499,0)="""RTN"",""HLOSTAT"",215,0)"
^XMB(3.9,44,2,4500,0)=" .W LINE"
^XMB(3.9,44,2,4501,0)="""RTN"",""HLOSTAT"",216,0)"
^XMB(3.9,44,2,4502,0)=" ;"
^XMB(3.9,44,2,4503,0)="""RTN"",""HLOSTAT"",217,0)"
^XMB(3.9,44,2,4504,0)=" E  I ('CRT),($Y>(IOSL-2)) D"
^XMB(3.9,44,2,4505,0)="""RTN"",""HLOSTAT"",218,0)"
^XMB(3.9,44,2,4506,0)=" .W @IOF"
^XMB(3.9,44,2,4507,0)="""RTN"",""HLOSTAT"",219,0)"
^XMB(3.9,44,2,4508,0)=" .W ?70,""Page: "",PAGE"
^XMB(3.9,44,2,4509,0)="""RTN"",""HLOSTAT"",220,0)"
^XMB(3.9,44,2,4510,0)=" .S PAGE=PAGE+1"
^XMB(3.9,44,2,4511,0)="""RTN"",""HLOSTAT"",221,0)"
^XMB(3.9,44,2,4512,0)=" .W LINE"
^XMB(3.9,44,2,4513,0)="""RTN"",""HLOSTAT"",222,0)"
^XMB(3.9,44,2,4514,0)=" ;"
^XMB(3.9,44,2,4515,0)="""RTN"",""HLOSTAT"",223,0)"
^XMB(3.9,44,2,4516,0)=" E  W !,LINE"
^XMB(3.9,44,2,4517,0)="""RTN"",""HLOSTAT"",224,0)"
^XMB(3.9,44,2,4518,0)=" Q"
^XMB(3.9,44,2,4519,0)="""RTN"",""HLOSTAT"",225,0)"
^XMB(3.9,44,2,4520,0)=" ;"
^XMB(3.9,44,2,4521,0)="""RTN"",""HLOSTAT"",226,0)"
^XMB(3.9,44,2,4522,0)="LJ(STRING,LEN) ;"
^XMB(3.9,44,2,4523,0)="""RTN"",""HLOSTAT"",227,0)"
^XMB(3.9,44,2,4524,0)=" Q $$LJ^XLFSTR($E(STRING,1,LEN),LEN)"
^XMB(3.9,44,2,4525,0)="""RTN"",""HLOSTAT"",228,0)"
^XMB(3.9,44,2,4526,0)="RJ(STRING,LEN) ;"
^XMB(3.9,44,2,4527,0)="""RTN"",""HLOSTAT"",229,0)"
^XMB(3.9,44,2,4528,0)=" Q $$RJ^XLFSTR($E(STRING,1,LEN),LEN)"
^XMB(3.9,44,2,4529,0)="""RTN"",""HLOT"")"
^XMB(3.9,44,2,4530,0)="0^7^B2729395^B2539193"
^XMB(3.9,44,2,4531,0)="""RTN"",""HLOT"",1,0)"
^XMB(3.9,44,2,4532,0)="HLOT ;IRMFO-ALB/CJM - Services provided by the transport layer;03/24/2004  14:43"
^XMB(3.9,44,2,4533,0)="""RTN"",""HLOT"",2,0)"
^XMB(3.9,44,2,4534,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126,131**;Oct 13, 1995;Build 10"
^XMB(3.9,44,2,4535,0)="""RTN"",""HLOT"",3,0)"
^XMB(3.9,44,2,4536,0)=" ;"
^XMB(3.9,44,2,4537,0)="""RTN"",""HLOT"",4,0)"
^XMB(3.9,44,2,4538,0)=" ;"
^XMB(3.9,44,2,4539,0)="""RTN"",""HLOT"",5,0)"
^XMB(3.9,44,2,4540,0)="READHDR(HLCSTATE,HDR) ;"
^XMB(3.9,44,2,4541,0)="""RTN"",""HLOT"",6,0)"
^XMB(3.9,44,2,4542,0)=" N SUCCESS,SEG"
^XMB(3.9,44,2,4543,0)="""RTN"",""HLOT"",7,0)"
^XMB(3.9,44,2,4544,0)=" N MCODE"
^XMB(3.9,44,2,4545,0)="""RTN"",""HLOT"",8,0)"
^XMB(3.9,44,2,4546,0)=" S HLCSTATE(""MESSAGE ENDED"")=0"
^XMB(3.9,44,2,4547,0)="""RTN"",""HLOT"",9,0)"
^XMB(3.9,44,2,4548,0)=" S MCODE=""S SUCCESS=$$""_HLCSTATE(""READ HEADER"")_""(.HLCSTATE,.HDR)"""
^XMB(3.9,44,2,4549,0)="""RTN"",""HLOT"",10,0)"
^XMB(3.9,44,2,4550,0)=" X MCODE"
^XMB(3.9,44,2,4551,0)="""RTN"",""HLOT"",11,0)"
^XMB(3.9,44,2,4552,0)=" Q SUCCESS"
^XMB(3.9,44,2,4553,0)="""RTN"",""HLOT"",12,0)"
^XMB(3.9,44,2,4554,0)=" ;"
^XMB(3.9,44,2,4555,0)="""RTN"",""HLOT"",13,0)"
^XMB(3.9,44,2,4556,0)="READSEG(HLCSTATE,SEG) ;"
^XMB(3.9,44,2,4557,0)="""RTN"",""HLOT"",14,0)"
^XMB(3.9,44,2,4558,0)=" N RETURN"
^XMB(3.9,44,2,4559,0)="""RTN"",""HLOT"",15,0)"
^XMB(3.9,44,2,4560,0)=" N MCODE"
^XMB(3.9,44,2,4561,0)="""RTN"",""HLOT"",16,0)"
^XMB(3.9,44,2,4562,0)=" S MCODE=""S RETURN=$$""_HLCSTATE(""READ SEGMENT"")_""(.HLCSTATE,.SEG)"""
^XMB(3.9,44,2,4563,0)="""RTN"",""HLOT"",17,0)"
^XMB(3.9,44,2,4564,0)=" X MCODE"
^XMB(3.9,44,2,4565,0)="""RTN"",""HLOT"",18,0)"
^XMB(3.9,44,2,4566,0)=" Q RETURN"
^XMB(3.9,44,2,4567,0)="""RTN"",""HLOT"",19,0)"
^XMB(3.9,44,2,4568,0)=" ;"
^XMB(3.9,44,2,4569,0)="""RTN"",""HLOT"",20,0)"
^XMB(3.9,44,2,4570,0)="OPEN(HLCSTATE) ;"
^XMB(3.9,44,2,4571,0)="""RTN"",""HLOT"",21,0)"
^XMB(3.9,44,2,4572,0)=" N MCODE"
^XMB(3.9,44,2,4573,0)="""RTN"",""HLOT"",22,0)"
^XMB(3.9,44,2,4574,0)=" I '$L(HLCSTATE(""OPEN"")) S HLCSTATE(""CONNECTED"")=0 Q"
^XMB(3.9,44,2,4575,0)="""RTN"",""HLOT"",23,0)"
^XMB(3.9,44,2,4576,0)=" S MCODE=""D ""_HLCSTATE(""OPEN"")_""(.HLCSTATE)"""
^XMB(3.9,44,2,4577,0)="""RTN"",""HLOT"",24,0)"
^XMB(3.9,44,2,4578,0)=" X MCODE"
^XMB(3.9,44,2,4579,0)="""RTN"",""HLOT"",25,0)"
^XMB(3.9,44,2,4580,0)=" Q"
^XMB(3.9,44,2,4581,0)="""RTN"",""HLOT"",26,0)"
^XMB(3.9,44,2,4582,0)=" ;"
^XMB(3.9,44,2,4583,0)="""RTN"",""HLOT"",27,0)"
^XMB(3.9,44,2,4584,0)="CLOSE(HLCSTATE) ;"
^XMB(3.9,44,2,4585,0)="""RTN"",""HLOT"",28,0)"
^XMB(3.9,44,2,4586,0)=" N MCODE"
^XMB(3.9,44,2,4587,0)="""RTN"",""HLOT"",29,0)"
^XMB(3.9,44,2,4588,0)=" S MCODE=""D ""_HLCSTATE(""CLOSE"")_""(.HLCSTATE)"""
^XMB(3.9,44,2,4589,0)="""RTN"",""HLOT"",30,0)"
^XMB(3.9,44,2,4590,0)=" X MCODE"
^XMB(3.9,44,2,4591,0)="""RTN"",""HLOT"",31,0)"
^XMB(3.9,44,2,4592,0)=" S HLCSTATE(""CONNECTED"")=0"
^XMB(3.9,44,2,4593,0)="""RTN"",""HLOT"",32,0)"
^XMB(3.9,44,2,4594,0)=" Q"
^XMB(3.9,44,2,4595,0)="""RTN"",""HLOT"",33,0)"
^XMB(3.9,44,2,4596,0)=" ;"
^XMB(3.9,44,2,4597,0)="""RTN"",""HLOT"",34,0)"
^XMB(3.9,44,2,4598,0)="WRITESEG(HLCSTATE,SEG) ;"
^XMB(3.9,44,2,4599,0)="""RTN"",""HLOT"",35,0)"
^XMB(3.9,44,2,4600,0)=" N RETURN"
^XMB(3.9,44,2,4601,0)="""RTN"",""HLOT"",36,0)"
^XMB(3.9,44,2,4602,0)=" N MCODE"
^XMB(3.9,44,2,4603,0)="""RTN"",""HLOT"",37,0)"
^XMB(3.9,44,2,4604,0)=" S MCODE=""S RETURN=$$""_HLCSTATE(""WRITE SEGMENT"")_""(.HLCSTATE,.SEG)"""
^XMB(3.9,44,2,4605,0)="""RTN"",""HLOT"",38,0)"
^XMB(3.9,44,2,4606,0)=" X MCODE"
^XMB(3.9,44,2,4607,0)="""RTN"",""HLOT"",39,0)"
^XMB(3.9,44,2,4608,0)=" Q RETURN"
^XMB(3.9,44,2,4609,0)="""RTN"",""HLOT"",40,0)"
^XMB(3.9,44,2,4610,0)=" ;"
^XMB(3.9,44,2,4611,0)="""RTN"",""HLOT"",41,0)"
^XMB(3.9,44,2,4612,0)="WRITEHDR(HLCSTATE,HDR) ;"
^XMB(3.9,44,2,4613,0)="""RTN"",""HLOT"",42,0)"
^XMB(3.9,44,2,4614,0)=" N SUCCESS"
^XMB(3.9,44,2,4615,0)="""RTN"",""HLOT"",43,0)"
^XMB(3.9,44,2,4616,0)=" N MCODE"
^XMB(3.9,44,2,4617,0)="""RTN"",""HLOT"",44,0)"
^XMB(3.9,44,2,4618,0)=" S MCODE=""S SUCCESS=$$""_HLCSTATE(""WRITE HEADER"")_""(.HLCSTATE,.HDR)"""
^XMB(3.9,44,2,4619,0)="""RTN"",""HLOT"",45,0)"
^XMB(3.9,44,2,4620,0)=" X MCODE"
^XMB(3.9,44,2,4621,0)="""RTN"",""HLOT"",46,0)"
^XMB(3.9,44,2,4622,0)=" Q SUCCESS"
^XMB(3.9,44,2,4623,0)="""RTN"",""HLOT"",47,0)"
^XMB(3.9,44,2,4624,0)=" ;"
^XMB(3.9,44,2,4625,0)="""RTN"",""HLOT"",48,0)"
^XMB(3.9,44,2,4626,0)="ENDMSG(HLCSTATE) ;"
^XMB(3.9,44,2,4627,0)="""RTN"",""HLOT"",49,0)"
^XMB(3.9,44,2,4628,0)=" N RETURN"
^XMB(3.9,44,2,4629,0)="""RTN"",""HLOT"",50,0)"
^XMB(3.9,44,2,4630,0)=" N MCODE"
^XMB(3.9,44,2,4631,0)="""RTN"",""HLOT"",51,0)"
^XMB(3.9,44,2,4632,0)=" S MCODE=""S RETURN=$$""_HLCSTATE(""END MESSAGE"")_""(.HLCSTATE)"""
^XMB(3.9,44,2,4633,0)="""RTN"",""HLOT"",52,0)"
^XMB(3.9,44,2,4634,0)=" X MCODE"
^XMB(3.9,44,2,4635,0)="""RTN"",""HLOT"",53,0)"
^XMB(3.9,44,2,4636,0)=" Q RETURN"
^XMB(3.9,44,2,4637,0)="""RTN"",""HLOTCP"")"
^XMB(3.9,44,2,4638,0)="0^6^B45043587^B43009690"
^XMB(3.9,44,2,4639,0)="""RTN"",""HLOTCP"",1,0)"
^XMB(3.9,44,2,4640,0)="HLOTCP ;ALB/CJM- TCP/IP I/O - 10/4/94 1pm"
^XMB(3.9,44,2,4641,0)="""RTN"",""HLOTCP"",2,0)"
^XMB(3.9,44,2,4642,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126,131**;Oct 13, 1995;Build 10"
^XMB(3.9,44,2,4643,0)="""RTN"",""HLOTCP"",3,0)"
^XMB(3.9,44,2,4644,0)=" ;"
^XMB(3.9,44,2,4645,0)="""RTN"",""HLOTCP"",4,0)"
^XMB(3.9,44,2,4646,0)="OPEN(HLCSTATE,LOGICAL) ;"
^XMB(3.9,44,2,4647,0)="""RTN"",""HLOTCP"",5,0)"
^XMB(3.9,44,2,4648,0)=" ;This may be called either in the context of a client or a server."
^XMB(3.9,44,2,4649,0)="""RTN"",""HLOTCP"",6,0)"
^XMB(3.9,44,2,4650,0)=" ;For the server, there are 3 situations:"
^XMB(3.9,44,2,4651,0)="""RTN"",""HLOTCP"",7,0)"
^XMB(3.9,44,2,4652,0)=" ; 1) The server is not concurrent.  In this case the TCP device should be opened."
^XMB(3.9,44,2,4653,0)="""RTN"",""HLOTCP"",8,0)"
^XMB(3.9,44,2,4654,0)=" ; 2) The server is concurrent, but this process was spawned by the OS"
^XMB(3.9,44,2,4655,0)="""RTN"",""HLOTCP"",9,0)"
^XMB(3.9,44,2,4656,0)=" ;    (via a VMS TCP Service)  In this case, the device should be opened"
^XMB(3.9,44,2,4657,0)="""RTN"",""HLOTCP"",10,0)"
^XMB(3.9,44,2,4658,0)=" ;    via the LOGICAL that was passed in."
^XMB(3.9,44,2,4659,0)="""RTN"",""HLOTCP"",11,0)"
^XMB(3.9,44,2,4660,0)=" ;  3) The server is concurrent, but this process was spawned by the"
^XMB(3.9,44,2,4661,0)="""RTN"",""HLOTCP"",12,0)"
^XMB(3.9,44,2,4662,0)=" ;     TaskMan multi-listener.  In this case TaskMan already opened the"
^XMB(3.9,44,2,4663,0)="""RTN"",""HLOTCP"",13,0)"
^XMB(3.9,44,2,4664,0)=" ;     device.  This case can be determined by the absence of the LOGICAL"
^XMB(3.9,44,2,4665,0)="""RTN"",""HLOTCP"",14,0)"
^XMB(3.9,44,2,4666,0)=" ;     input parameter."
^XMB(3.9,44,2,4667,0)="""RTN"",""HLOTCP"",15,0)"
^XMB(3.9,44,2,4668,0)=" ;"
^XMB(3.9,44,2,4669,0)="""RTN"",""HLOTCP"",16,0)"
^XMB(3.9,44,2,4670,0)=" N IP,PORT,DNSFLAG"
^XMB(3.9,44,2,4671,0)="""RTN"",""HLOTCP"",17,0)"
^XMB(3.9,44,2,4672,0)=" ;"
^XMB(3.9,44,2,4673,0)="""RTN"",""HLOTCP"",18,0)"
^XMB(3.9,44,2,4674,0)=" S DNSFLAG=0 ;DNS has not been contacted for IP"
^XMB(3.9,44,2,4675,0)="""RTN"",""HLOTCP"",19,0)"
^XMB(3.9,44,2,4676,0)=" ;"
^XMB(3.9,44,2,4677,0)="""RTN"",""HLOTCP"",20,0)"
^XMB(3.9,44,2,4678,0)=" S:'$G(HLCSTATE(""SERVER"")) IP=HLCSTATE(""LINK"",""IP"")"
^XMB(3.9,44,2,4679,0)="""RTN"",""HLOTCP"",21,0)"
^XMB(3.9,44,2,4680,0)=" S PORT=HLCSTATE(""LINK"",""PORT"")"
^XMB(3.9,44,2,4681,0)="""RTN"",""HLOTCP"",22,0)"
^XMB(3.9,44,2,4682,0)=" S HLCSTATE(""CONNECTED"")=0"
^XMB(3.9,44,2,4683,0)="""RTN"",""HLOTCP"",23,0)"
^XMB(3.9,44,2,4684,0)=" S HLCSTATE(""READ HEADER"")=""READHDR^HLOTCP"""
^XMB(3.9,44,2,4685,0)="""RTN"",""HLOTCP"",24,0)"
^XMB(3.9,44,2,4686,0)=" S HLCSTATE(""WRITE HEADER"")=""WRITEHDR^HLOTCP"""
^XMB(3.9,44,2,4687,0)="""RTN"",""HLOTCP"",25,0)"
^XMB(3.9,44,2,4688,0)=" S HLCSTATE(""READ SEGMENT"")=""READSEG^HLOTCP"""
^XMB(3.9,44,2,4689,0)="""RTN"",""HLOTCP"",26,0)"
^XMB(3.9,44,2,4690,0)=" S HLCSTATE(""WRITE SEGMENT"")=""WRITESEG^HLOTCP"""
^XMB(3.9,44,2,4691,0)="""RTN"",""HLOTCP"",27,0)"
^XMB(3.9,44,2,4692,0)=" S HLCSTATE(""END MESSAGE"")=""ENDMSG^HLOTCP"""
^XMB(3.9,44,2,4693,0)="""RTN"",""HLOTCP"",28,0)"
^XMB(3.9,44,2,4694,0)=" S HLCSTATE(""CLOSE"")=""CLOSE^HLOTCP"""
^XMB(3.9,44,2,4695,0)="""RTN"",""HLOTCP"",29,0)"
^XMB(3.9,44,2,4696,0)=" ;"
^XMB(3.9,44,2,4697,0)="""RTN"",""HLOTCP"",30,0)"
^XMB(3.9,44,2,4698,0)=" ;spawned by TaskMan multi-listener? If so, the device has already been opened"
^XMB(3.9,44,2,4699,0)="""RTN"",""HLOTCP"",31,0)"
^XMB(3.9,44,2,4700,0)=" I $G(HLCSTATE(""SERVER"")),$G(HLCSTATE(""LINK"",""SERVER""))=""1^M"",$G(LOGICAL)="""" D  Q"
^XMB(3.9,44,2,4701,0)="""RTN"",""HLOTCP"",32,0)"
^XMB(3.9,44,2,4702,0)=" .S HLCSTATE(""DEVICE"")=IO(0),HLCSTATE(""FLUSH"")=""!"",HLCSTATE(""TCP BUFFER SIZE"")=510"
^XMB(3.9,44,2,4703,0)="""RTN"",""HLOTCP"",33,0)"
^XMB(3.9,44,2,4704,0)=" .S HLCSTATE(""CONNECTED"")=1"
^XMB(3.9,44,2,4705,0)="""RTN"",""HLOTCP"",34,0)"
^XMB(3.9,44,2,4706,0)=" ;"
^XMB(3.9,44,2,4707,0)="""RTN"",""HLOTCP"",35,0)"
^XMB(3.9,44,2,4708,0)=" ;if no IP, not a server, give DNS a shot"
^XMB(3.9,44,2,4709,0)="""RTN"",""HLOTCP"",36,0)"
^XMB(3.9,44,2,4710,0)=" I '$G(HLCSTATE(""SERVER"")),IP="""" S DNSFLAG=1,IP=$$DNS(HLCSTATE(""LINK"",""DOMAIN"")),HLCSTATE(""LINK"",""IP"")=IP Q:IP="""""
^XMB(3.9,44,2,4711,0)="""RTN"",""HLOTCP"",37,0)"
^XMB(3.9,44,2,4712,0)=" ;"
^XMB(3.9,44,2,4713,0)="""RTN"",""HLOTCP"",38,0)"
^XMB(3.9,44,2,4714,0)="RETRY I HLCSTATE(""SYSTEM"",""OS"")=""DSM"" D"
^XMB(3.9,44,2,4715,0)="""RTN"",""HLOTCP"",39,0)"
^XMB(3.9,44,2,4716,0)=" .S HLCSTATE(""TCP BUFFER SIZE"")=512"
^XMB(3.9,44,2,4717,0)="""RTN"",""HLOTCP"",40,0)"
^XMB(3.9,44,2,4718,0)=" .I $G(LOGICAL)]"""" S HLCSTATE(""DEVICE"")=LOGICAL"
^XMB(3.9,44,2,4719,0)="""RTN"",""HLOTCP"",41,0)"
^XMB(3.9,44,2,4720,0)=" .E  S HLCSTATE(""DEVICE"")=PORT"
^XMB(3.9,44,2,4721,0)="""RTN"",""HLOTCP"",42,0)"
^XMB(3.9,44,2,4722,0)=" .S HLCSTATE(""FLUSH"")=""!"""
^XMB(3.9,44,2,4723,0)="""RTN"",""HLOTCP"",43,0)"
^XMB(3.9,44,2,4724,0)=" .I $G(HLCSTATE(""SERVER"")) D"
^XMB(3.9,44,2,4725,0)="""RTN"",""HLOTCP"",44,0)"
^XMB(3.9,44,2,4726,0)=" ..O:$G(LOGICAL)]"""" HLCSTATE(""DEVICE""):(TCPDEV,BLOCKSIZE=512):HLCSTATE(""OPEN TIMEOUT"")"
^XMB(3.9,44,2,4727,0)="""RTN"",""HLOTCP"",45,0)"
^XMB(3.9,44,2,4728,0)=" ..O:$G(LOGICAL)="""" HLCSTATE(""DEVICE""):(TCPCHAN,BLOCKSIZE=512):HLCSTATE(""OPEN TIMEOUT"")"
^XMB(3.9,44,2,4729,0)="""RTN"",""HLOTCP"",46,0)"
^XMB(3.9,44,2,4730,0)=" ..I $T D"
^XMB(3.9,44,2,4731,0)="""RTN"",""HLOTCP"",47,0)"
^XMB(3.9,44,2,4732,0)=" ...S HLCSTATE(""CONNECTED"")=1"
^XMB(3.9,44,2,4733,0)="""RTN"",""HLOTCP"",48,0)"
^XMB(3.9,44,2,4734,0)=" ...U HLCSTATE(""DEVICE""):NOECHO"
^XMB(3.9,44,2,4735,0)="""RTN"",""HLOTCP"",49,0)"
^XMB(3.9,44,2,4736,0)=" .E  D  ;client"
^XMB(3.9,44,2,4737,0)="""RTN"",""HLOTCP"",50,0)"
^XMB(3.9,44,2,4738,0)=" ..O HLCSTATE(""DEVICE""):(TCPCHAN,ADDRESS=IP,BLOCKSIZE=512):HLCSTATE(""OPEN TIMEOUT"")"
^XMB(3.9,44,2,4739,0)="""RTN"",""HLOTCP"",51,0)"
^XMB(3.9,44,2,4740,0)=" ..I $T D"
^XMB(3.9,44,2,4741,0)="""RTN"",""HLOTCP"",52,0)"
^XMB(3.9,44,2,4742,0)=" ...S HLCSTATE(""CONNECTED"")=1"
^XMB(3.9,44,2,4743,0)="""RTN"",""HLOTCP"",53,0)"
^XMB(3.9,44,2,4744,0)=" ...U HLCSTATE(""DEVICE""):NOECHO"
^XMB(3.9,44,2,4745,0)="""RTN"",""HLOTCP"",54,0)"
^XMB(3.9,44,2,4746,0)=" E  I HLCSTATE(""SYSTEM"",""OS"")=""CACHE"" D"
^XMB(3.9,44,2,4747,0)="""RTN"",""HLOTCP"",55,0)"
^XMB(3.9,44,2,4748,0)=" .S HLCSTATE(""FLUSH"")=""!"""
^XMB(3.9,44,2,4749,0)="""RTN"",""HLOTCP"",56,0)"
^XMB(3.9,44,2,4750,0)=" .I $G(LOGICAL)]"""" S HLCSTATE(""DEVICE"")=LOGICAL"
^XMB(3.9,44,2,4751,0)="""RTN"",""HLOTCP"",57,0)"
^XMB(3.9,44,2,4752,0)=" .E  S HLCSTATE(""DEVICE"")=""|TCP|""_PORT"
^XMB(3.9,44,2,4753,0)="""RTN"",""HLOTCP"",58,0)"
^XMB(3.9,44,2,4754,0)=" .S HLCSTATE(""TCP BUFFER SIZE"")=510"
^XMB(3.9,44,2,4755,0)="""RTN"",""HLOTCP"",59,0)"
^XMB(3.9,44,2,4756,0)=" .I $G(HLCSTATE(""SERVER"")) D"
^XMB(3.9,44,2,4757,0)="""RTN"",""HLOTCP"",60,0)"
^XMB(3.9,44,2,4758,0)=" ..I HLCSTATE(""SERVER"")=""1^S"" D  Q"
^XMB(3.9,44,2,4759,0)="""RTN"",""HLOTCP"",61,0)"
^XMB(3.9,44,2,4760,0)=" ...;single server (no concurrent connections)"
^XMB(3.9,44,2,4761,0)="""RTN"",""HLOTCP"",62,0)"
^XMB(3.9,44,2,4762,0)=" ...O HLCSTATE(""DEVICE""):(:PORT:""+A-S"":::):HLCSTATE(""OPEN TIMEOUT"")"
^XMB(3.9,44,2,4763,0)="""RTN"",""HLOTCP"",63,0)"
^XMB(3.9,44,2,4764,0)=" ...I $T D"
^XMB(3.9,44,2,4765,0)="""RTN"",""HLOTCP"",64,0)"
^XMB(3.9,44,2,4766,0)=" ....N A"
^XMB(3.9,44,2,4767,0)="""RTN"",""HLOTCP"",65,0)"
^XMB(3.9,44,2,4768,0)=" ....S HLCSTATE(""CONNECTED"")=1"
^XMB(3.9,44,2,4769,0)="""RTN"",""HLOTCP"",66,0)"
^XMB(3.9,44,2,4770,0)=" ....U HLCSTATE(""DEVICE"")"
^XMB(3.9,44,2,4771,0)="""RTN"",""HLOTCP"",67,0)"
^XMB(3.9,44,2,4772,0)=" ....F  R *A:HLCSTATE(""READ TIMEOUT"") Q:$T  I $$CHKSTOP^HLOPROC S HLCSTATE(""CONNECTED"")=0 Q"
^XMB(3.9,44,2,4773,0)="""RTN"",""HLOTCP"",68,0)"
^XMB(3.9,44,2,4774,0)=" ..;"
^XMB(3.9,44,2,4775,0)="""RTN"",""HLOTCP"",69,0)"
^XMB(3.9,44,2,4776,0)=" ..;multi-server spawned by OS - VMS TCP Services"
^XMB(3.9,44,2,4777,0)="""RTN"",""HLOTCP"",70,0)"
^XMB(3.9,44,2,4778,0)=" ..O HLCSTATE(""DEVICE"")::HLCSTATE(""OPEN TIMEOUT"") I '$T S HLCSTATE(""CONNECTED"")=0 Q"
^XMB(3.9,44,2,4779,0)="""RTN"",""HLOTCP"",71,0)"
^XMB(3.9,44,2,4780,0)=" ..S HLCSTATE(""CONNECTED"")=1"
^XMB(3.9,44,2,4781,0)="""RTN"",""HLOTCP"",72,0)"
^XMB(3.9,44,2,4782,0)=" ..U HLCSTATE(""DEVICE""):(::""-S"")"
^XMB(3.9,44,2,4783,0)="""RTN"",""HLOTCP"",73,0)"
^XMB(3.9,44,2,4784,0)=" ..;"
^XMB(3.9,44,2,4785,0)="""RTN"",""HLOTCP"",74,0)"
^XMB(3.9,44,2,4786,0)=" .E  D  ;client"
^XMB(3.9,44,2,4787,0)="""RTN"",""HLOTCP"",75,0)"
^XMB(3.9,44,2,4788,0)=" ..S HLCSTATE(""TCP BUFFER SIZE"")=510"
^XMB(3.9,44,2,4789,0)="""RTN"",""HLOTCP"",76,0)"
^XMB(3.9,44,2,4790,0)=" ..O HLCSTATE(""DEVICE""):(IP:PORT:""-S"":::):HLCSTATE(""OPEN TIMEOUT"")"
^XMB(3.9,44,2,4791,0)="""RTN"",""HLOTCP"",77,0)"
^XMB(3.9,44,2,4792,0)=" ..I $T D"
^XMB(3.9,44,2,4793,0)="""RTN"",""HLOTCP"",78,0)"
^XMB(3.9,44,2,4794,0)=" ...S HLCSTATE(""CONNECTED"")=1"
^XMB(3.9,44,2,4795,0)="""RTN"",""HLOTCP"",79,0)"
^XMB(3.9,44,2,4796,0)=" E  D  ;any other system but Cache or DSM"
^XMB(3.9,44,2,4797,0)="""RTN"",""HLOTCP"",80,0)"
^XMB(3.9,44,2,4798,0)=" .S HLCSTATE(""TCP BUFFER SIZE"")=256"
^XMB(3.9,44,2,4799,0)="""RTN"",""HLOTCP"",81,0)"
^XMB(3.9,44,2,4800,0)=" .D CALL^%ZISTCP(IP,PORT,HLCSTATE(""OPEN TIMEOUT""))"
^XMB(3.9,44,2,4801,0)="""RTN"",""HLOTCP"",82,0)"
^XMB(3.9,44,2,4802,0)=" .S HLCSTATE(""CONNECTED"")='POP"
^XMB(3.9,44,2,4803,0)="""RTN"",""HLOTCP"",83,0)"
^XMB(3.9,44,2,4804,0)=" .I HLCSTATE(""CONNECTED"") S HLCSTATE(""DEVICE"")=IO"
^XMB(3.9,44,2,4805,0)="""RTN"",""HLOTCP"",84,0)"
^XMB(3.9,44,2,4806,0)=" ;"
^XMB(3.9,44,2,4807,0)="""RTN"",""HLOTCP"",85,0)"
^XMB(3.9,44,2,4808,0)=" ;if not connected, not the server, give DNS a shot if not tried already"
^XMB(3.9,44,2,4809,0)="""RTN"",""HLOTCP"",86,0)"
^XMB(3.9,44,2,4810,0)=" I '$G(HLCSTATE(""SERVER"")),'HLCSTATE(""CONNECTED""),'DNSFLAG S DNSFLAG=1,IP=$$DNS(HLCSTATE(""LINK"",""DOMAIN"")) I IP]"""",IP'=HLCSTATE(""LINK"",""IP"") S HLCSTATE(""LINK"",""IP"")=IP G RETRY"
^XMB(3.9,44,2,4811,0)="""RTN"",""HLOTCP"",87,0)"
^XMB(3.9,44,2,4812,0)=" I HLCSTATE(""CONNECTED""),DNSFLAG S $P(^HLCS(870,HLCSTATE(""LINK"",""IEN""),400),""^"")=IP"
^XMB(3.9,44,2,4813,0)="""RTN"",""HLOTCP"",88,0)"
^XMB(3.9,44,2,4814,0)=" Q"
^XMB(3.9,44,2,4815,0)="""RTN"",""HLOTCP"",89,0)"
^XMB(3.9,44,2,4816,0)=" ;"
^XMB(3.9,44,2,4817,0)="""RTN"",""HLOTCP"",90,0)"
^XMB(3.9,44,2,4818,0)="DNS(DOMAIN) ;"
^XMB(3.9,44,2,4819,0)="""RTN"",""HLOTCP"",91,0)"
^XMB(3.9,44,2,4820,0)=" Q $P($$ADDRESS^XLFNSLK(DOMAIN),"","")"
^XMB(3.9,44,2,4821,0)="""RTN"",""HLOTCP"",92,0)"
^XMB(3.9,44,2,4822,0)=" ;"
^XMB(3.9,44,2,4823,0)="""RTN"",""HLOTCP"",93,0)"
^XMB(3.9,44,2,4824,0)="WRITEHDR(HLCSTATE,HDR) ;"
^XMB(3.9,44,2,4825,0)="""RTN"",""HLOTCP"",94,0)"
^XMB(3.9,44,2,4826,0)=" ;"
^XMB(3.9,44,2,4827,0)="""RTN"",""HLOTCP"",95,0)"
^XMB(3.9,44,2,4828,0)=" ;insure that package buffer is empty"
^XMB(3.9,44,2,4829,0)="""RTN"",""HLOTCP"",96,0)"
^XMB(3.9,44,2,4830,0)=" K HLCSTATE(""BUFFER"")"
^XMB(3.9,44,2,4831,0)="""RTN"",""HLOTCP"",97,0)"
^XMB(3.9,44,2,4832,0)=" S HLCSTATE(""BUFFER"",""BYTE COUNT"")=0"
^XMB(3.9,44,2,4833,0)="""RTN"",""HLOTCP"",98,0)"
^XMB(3.9,44,2,4834,0)=" S HLCSTATE(""BUFFER"",""SEGMENT COUNT"")=0"
^XMB(3.9,44,2,4835,0)="""RTN"",""HLOTCP"",99,0)"
^XMB(3.9,44,2,4836,0)=" S HLCSTATE(""FIRST WRITE"")=1 ;so that FLUSH knows $X should be 0"
^XMB(3.9,44,2,4837,0)="""RTN"",""HLOTCP"",100,0)"
^XMB(3.9,44,2,4838,0)=" ;"
^XMB(3.9,44,2,4839,0)="""RTN"",""HLOTCP"",101,0)"
^XMB(3.9,44,2,4840,0)=" ;Start the message with <SB>, then write the header"
^XMB(3.9,44,2,4841,0)="""RTN"",""HLOTCP"",102,0)"
^XMB(3.9,44,2,4842,0)=" N SEG"
^XMB(3.9,44,2,4843,0)="""RTN"",""HLOTCP"",103,0)"
^XMB(3.9,44,2,4844,0)=" S SEG(1)=$C(11)_HDR(1)"
^XMB(3.9,44,2,4845,0)="""RTN"",""HLOTCP"",104,0)"
^XMB(3.9,44,2,4846,0)=" S SEG(2)=HDR(2)"
^XMB(3.9,44,2,4847,0)="""RTN"",""HLOTCP"",105,0)"
^XMB(3.9,44,2,4848,0)=" Q $$WRITESEG(.HLCSTATE,.SEG)"
^XMB(3.9,44,2,4849,0)="""RTN"",""HLOTCP"",106,0)"
^XMB(3.9,44,2,4850,0)=" ;"
^XMB(3.9,44,2,4851,0)="""RTN"",""HLOTCP"",107,0)"
^XMB(3.9,44,2,4852,0)="WRITESEG(HLCSTATE,SEG) ;"
^XMB(3.9,44,2,4853,0)="""RTN"",""HLOTCP"",108,0)"
^XMB(3.9,44,2,4854,0)=" N I,LAST"
^XMB(3.9,44,2,4855,0)="""RTN"",""HLOTCP"",109,0)"
^XMB(3.9,44,2,4856,0)=" S HLCSTATE(""BUFFER"",""SEGMENT COUNT"")=HLCSTATE(""BUFFER"",""SEGMENT COUNT"")+1"
^XMB(3.9,44,2,4857,0)="""RTN"",""HLOTCP"",110,0)"
^XMB(3.9,44,2,4858,0)=" S I=0,LAST=$O(SEG(99999),-1)"
^XMB(3.9,44,2,4859,0)="""RTN"",""HLOTCP"",111,0)"
^XMB(3.9,44,2,4860,0)=" F  S I=$O(SEG(I)) Q:'I  D"
^XMB(3.9,44,2,4861,0)="""RTN"",""HLOTCP"",112,0)"
^XMB(3.9,44,2,4862,0)=" .I HLCSTATE(""BUFFER"",""BYTE COUNT"")>HLCSTATE(""SYSTEM"",""BUFFER"") D FLUSH"
^XMB(3.9,44,2,4863,0)="""RTN"",""HLOTCP"",113,0)"
^XMB(3.9,44,2,4864,0)=" .I I=LAST S SEG(I)=SEG(I)_$C(13)"
^XMB(3.9,44,2,4865,0)="""RTN"",""HLOTCP"",114,0)"
^XMB(3.9,44,2,4866,0)=" .S HLCSTATE(""BUFFER"",HLCSTATE(""BUFFER"",""SEGMENT COUNT""),I)=SEG(I),HLCSTATE(""BUFFER"",""BYTE COUNT"")=HLCSTATE(""BUFFER"",""BYTE COUNT"")+$L(SEG(I))+20"
^XMB(3.9,44,2,4867,0)="""RTN"",""HLOTCP"",115,0)"
^XMB(3.9,44,2,4868,0)=" Q HLCSTATE(""CONNECTED"")"
^XMB(3.9,44,2,4869,0)="""RTN"",""HLOTCP"",116,0)"
^XMB(3.9,44,2,4870,0)=" ;"
^XMB(3.9,44,2,4871,0)="""RTN"",""HLOTCP"",117,0)"
^XMB(3.9,44,2,4872,0)="FLUSH ;flushes the HL7 package buffer, and the system TCP buffer when full"
^XMB(3.9,44,2,4873,0)="""RTN"",""HLOTCP"",118,0)"
^XMB(3.9,44,2,4874,0)=" N SEGMENT,MAX"
^XMB(3.9,44,2,4875,0)="""RTN"",""HLOTCP"",119,0)"
^XMB(3.9,44,2,4876,0)=" S SEGMENT=0"
^XMB(3.9,44,2,4877,0)="""RTN"",""HLOTCP"",120,0)"
^XMB(3.9,44,2,4878,0)=" S MAX=HLCSTATE(""TCP BUFFER SIZE"")"
^XMB(3.9,44,2,4879,0)="""RTN"",""HLOTCP"",121,0)"
^XMB(3.9,44,2,4880,0)=" U HLCSTATE(""DEVICE"") I (HLCSTATE(""SYSTEM"",""OS"")=""CACHE"") S HLCSTATE(""CONNECTED"")=($ZA\8192#2) I 'HLCSTATE(""CONNECTED"") D CLOSE(.HLCSTATE)"
^XMB(3.9,44,2,4881,0)="""RTN"",""HLOTCP"",122,0)"
^XMB(3.9,44,2,4882,0)=" F  S SEGMENT=$O(HLCSTATE(""BUFFER"",SEGMENT)) Q:'SEGMENT  D"
^XMB(3.9,44,2,4883,0)="""RTN"",""HLOTCP"",123,0)"
^XMB(3.9,44,2,4884,0)=" .N I S I=0"
^XMB(3.9,44,2,4885,0)="""RTN"",""HLOTCP"",124,0)"
^XMB(3.9,44,2,4886,0)=" .F  S I=$O(HLCSTATE(""BUFFER"",SEGMENT,I)) Q:'I  D"
^XMB(3.9,44,2,4887,0)="""RTN"",""HLOTCP"",125,0)"
^XMB(3.9,44,2,4888,0)=" ..N LINE,J"
^XMB(3.9,44,2,4889,0)="""RTN"",""HLOTCP"",126,0)"
^XMB(3.9,44,2,4890,0)=" ..S J=$S(HLCSTATE(""FIRST WRITE""):0,1:$X)"
^XMB(3.9,44,2,4891,0)="""RTN"",""HLOTCP"",127,0)"
^XMB(3.9,44,2,4892,0)=" ..S HLCSTATE(""FIRST WRITE"")=0"
^XMB(3.9,44,2,4893,0)="""RTN"",""HLOTCP"",128,0)"
^XMB(3.9,44,2,4894,0)=" ..S LINE=HLCSTATE(""BUFFER"",SEGMENT,I)"
^XMB(3.9,44,2,4895,0)="""RTN"",""HLOTCP"",129,0)"
^XMB(3.9,44,2,4896,0)=" ..F  Q:'(J+$L(LINE)>MAX)  D"
^XMB(3.9,44,2,4897,0)="""RTN"",""HLOTCP"",130,0)"
^XMB(3.9,44,2,4898,0)=" ...W $E(LINE,1,MAX-J),@HLCSTATE(""FLUSH"")"
^XMB(3.9,44,2,4899,0)="""RTN"",""HLOTCP"",131,0)"
^XMB(3.9,44,2,4900,0)=" ...S LINE=$E(LINE,(MAX-J)+1,99999)"
^XMB(3.9,44,2,4901,0)="""RTN"",""HLOTCP"",132,0)"
^XMB(3.9,44,2,4902,0)=" ...S J=0"
^XMB(3.9,44,2,4903,0)="""RTN"",""HLOTCP"",133,0)"
^XMB(3.9,44,2,4904,0)=" ..W:(LINE]"""") LINE"
^XMB(3.9,44,2,4905,0)="""RTN"",""HLOTCP"",134,0)"
^XMB(3.9,44,2,4906,0)=" K HLCSTATE(""BUFFER"")"
^XMB(3.9,44,2,4907,0)="""RTN"",""HLOTCP"",135,0)"
^XMB(3.9,44,2,4908,0)=" S HLCSTATE(""BUFFER"",""SEGMENT COUNT"")=1"
^XMB(3.9,44,2,4909,0)="""RTN"",""HLOTCP"",136,0)"
^XMB(3.9,44,2,4910,0)=" S HLCSTATE(""BUFFER"",""BYTE COUNT"")=0"
^XMB(3.9,44,2,4911,0)="""RTN"",""HLOTCP"",137,0)"
^XMB(3.9,44,2,4912,0)=" S HLCSTATE(""FIRST WRITE"")=0"
^XMB(3.9,44,2,4913,0)="""RTN"",""HLOTCP"",138,0)"
^XMB(3.9,44,2,4914,0)=" Q"
^XMB(3.9,44,2,4915,0)="""RTN"",""HLOTCP"",139,0)"
^XMB(3.9,44,2,4916,0)=" ;"
^XMB(3.9,44,2,4917,0)="""RTN"",""HLOTCP"",140,0)"
^XMB(3.9,44,2,4918,0)="READSEG(HLCSTATE,SEG) ;"
^XMB(3.9,44,2,4919,0)="""RTN"",""HLOTCP"",141,0)"
^XMB(3.9,44,2,4920,0)=" ;"
^XMB(3.9,44,2,4921,0)="""RTN"",""HLOTCP"",142,0)"
^XMB(3.9,44,2,4922,0)=" ;Output:"
^XMB(3.9,44,2,4923,0)="""RTN"",""HLOTCP"",143,0)"
^XMB(3.9,44,2,4924,0)=" ;  SEG - returns the segment (pass by reference)"
^XMB(3.9,44,2,4925,0)="""RTN"",""HLOTCP"",144,0)"
^XMB(3.9,44,2,4926,0)=" ;  Function returns 1 on success, 0 on failure"
^XMB(3.9,44,2,4927,0)="""RTN"",""HLOTCP"",145,0)"
^XMB(3.9,44,2,4928,0)=" ;"
^XMB(3.9,44,2,4929,0)="""RTN"",""HLOTCP"",146,0)"
^XMB(3.9,44,2,4930,0)=" N SUCCESS,COUNT,BUF"
^XMB(3.9,44,2,4931,0)="""RTN"",""HLOTCP"",147,0)"
^XMB(3.9,44,2,4932,0)=" S (COUNT,SUCCESS)=0"
^XMB(3.9,44,2,4933,0)="""RTN"",""HLOTCP"",148,0)"
^XMB(3.9,44,2,4934,0)=" K SEG"
^XMB(3.9,44,2,4935,0)="""RTN"",""HLOTCP"",149,0)"
^XMB(3.9,44,2,4936,0)=" ;"
^XMB(3.9,44,2,4937,0)="""RTN"",""HLOTCP"",150,0)"
^XMB(3.9,44,2,4938,0)=" ;anything left from last read?"
^XMB(3.9,44,2,4939,0)="""RTN"",""HLOTCP"",151,0)"
^XMB(3.9,44,2,4940,0)=" S BUF=HLCSTATE(""READ"")"
^XMB(3.9,44,2,4941,0)="""RTN"",""HLOTCP"",152,0)"
^XMB(3.9,44,2,4942,0)=" S HLCSTATE(""READ"")="""""
^XMB(3.9,44,2,4943,0)="""RTN"",""HLOTCP"",153,0)"
^XMB(3.9,44,2,4944,0)=" I BUF]"""" D  ;something was left!"
^XMB(3.9,44,2,4945,0)="""RTN"",""HLOTCP"",154,0)"
^XMB(3.9,44,2,4946,0)=" .S COUNT=1"
^XMB(3.9,44,2,4947,0)="""RTN"",""HLOTCP"",155,0)"
^XMB(3.9,44,2,4948,0)=" .I BUF[$C(13) D  Q"
^XMB(3.9,44,2,4949,0)="""RTN"",""HLOTCP"",156,0)"
^XMB(3.9,44,2,4950,0)=" ..S SEG(1)=$P(BUF,$C(13)),BUF=$P(BUF,$C(13),2,9999)"
^XMB(3.9,44,2,4951,0)="""RTN"",""HLOTCP"",157,0)"
^XMB(3.9,44,2,4952,0)=" ..S SUCCESS=1"
^XMB(3.9,44,2,4953,0)="""RTN"",""HLOTCP"",158,0)"
^XMB(3.9,44,2,4954,0)=" .S SEG(1)=BUF,BUF="""""
^XMB(3.9,44,2,4955,0)="""RTN"",""HLOTCP"",159,0)"
^XMB(3.9,44,2,4956,0)=" I 'SUCCESS U HLCSTATE(""DEVICE"") F  R BUF:HLCSTATE(""READ TIMEOUT"") Q:'$T  D  Q:SUCCESS"
^XMB(3.9,44,2,4957,0)="""RTN"",""HLOTCP"",160,0)"
^XMB(3.9,44,2,4958,0)=" .I BUF[$C(13) S SUCCESS=1,COUNT=COUNT+1,SEG(COUNT)=$P(BUF,$C(13)),BUF=$P(BUF,$C(13),2,9999) Q"
^XMB(3.9,44,2,4959,0)="""RTN"",""HLOTCP"",161,0)"
^XMB(3.9,44,2,4960,0)=" .S COUNT=COUNT+1,SEG(COUNT)=BUF"
^XMB(3.9,44,2,4961,0)="""RTN"",""HLOTCP"",162,0)"
^XMB(3.9,44,2,4962,0)=" ;"
^XMB(3.9,44,2,4963,0)="""RTN"",""HLOTCP"",163,0)"
^XMB(3.9,44,2,4964,0)=" I SUCCESS D"
^XMB(3.9,44,2,4965,0)="""RTN"",""HLOTCP"",164,0)"
^XMB(3.9,44,2,4966,0)=" .S HLCSTATE(""READ"")=BUF ;save the leftover"
^XMB(3.9,44,2,4967,0)="""RTN"",""HLOTCP"",165,0)"
^XMB(3.9,44,2,4968,0)=" .I COUNT>1,SEG(COUNT)="""" K SEG(COUNT) S COUNT=COUNT-1"
^XMB(3.9,44,2,4969,0)="""RTN"",""HLOTCP"",166,0)"
^XMB(3.9,44,2,4970,0)=" ;Cache can return the connection status"
^XMB(3.9,44,2,4971,0)="""RTN"",""HLOTCP"",167,0)"
^XMB(3.9,44,2,4972,0)=" E  I (HLCSTATE(""SYSTEM"",""OS"")=""CACHE"") S HLCSTATE(""CONNECTED"")=($ZA\8192#2) I 'HLCSTATE(""CONNECTED"") D CLOSE(.HLCSTATE)"
^XMB(3.9,44,2,4973,0)="""RTN"",""HLOTCP"",168,0)"
^XMB(3.9,44,2,4974,0)=" ;"
^XMB(3.9,44,2,4975,0)="""RTN"",""HLOTCP"",169,0)"
^XMB(3.9,44,2,4976,0)=" ;if the <EB> character was encountered, then there are no more segments in the message, set the end of message flag"
^XMB(3.9,44,2,4977,0)="""RTN"",""HLOTCP"",170,0)"
^XMB(3.9,44,2,4978,0)=" I SUCCESS,SEG(COUNT)[$C(28) D"
^XMB(3.9,44,2,4979,0)="""RTN"",""HLOTCP"",171,0)"
^XMB(3.9,44,2,4980,0)=" .K SEG"
^XMB(3.9,44,2,4981,0)="""RTN"",""HLOTCP"",172,0)"
^XMB(3.9,44,2,4982,0)=" .S SUCCESS=0"
^XMB(3.9,44,2,4983,0)="""RTN"",""HLOTCP"",173,0)"
^XMB(3.9,44,2,4984,0)=" .S HLCSTATE(""MESSAGE ENDED"")=1"
^XMB(3.9,44,2,4985,0)="""RTN"",""HLOTCP"",174,0)"
^XMB(3.9,44,2,4986,0)=" Q SUCCESS"
^XMB(3.9,44,2,4987,0)="""RTN"",""HLOTCP"",175,0)"
^XMB(3.9,44,2,4988,0)=" ;"
^XMB(3.9,44,2,4989,0)="""RTN"",""HLOTCP"",176,0)"
^XMB(3.9,44,2,4990,0)="READHDR(HLCSTATE,HDR) ;"
^XMB(3.9,44,2,4991,0)="""RTN"",""HLOTCP"",177,0)"
^XMB(3.9,44,2,4992,0)=" ;reads the next header segment in the message stream, discarding everything that comes before it"
^XMB(3.9,44,2,4993,0)="""RTN"",""HLOTCP"",178,0)"
^XMB(3.9,44,2,4994,0)=" ;"
^XMB(3.9,44,2,4995,0)="""RTN"",""HLOTCP"",179,0)"
^XMB(3.9,44,2,4996,0)=" N SEG,SUCCESS,J,I"
^XMB(3.9,44,2,4997,0)="""RTN"",""HLOTCP"",180,0)"
^XMB(3.9,44,2,4998,0)=" S SUCCESS=0"
^XMB(3.9,44,2,4999,0)="""RTN"",""HLOTCP"",181,0)"
^XMB(3.9,44,2,5000,0)=" K HDR"
^XMB(3.9,44,2,5001,0)="""RTN"",""HLOTCP"",182,0)"
^XMB(3.9,44,2,5002,0)=" F  Q:'$$READSEG(.HLCSTATE,.SEG)  D  Q:SUCCESS"
^XMB(3.9,44,2,5003,0)="""RTN"",""HLOTCP"",183,0)"
^XMB(3.9,44,2,5004,0)=" .S I=0"
^XMB(3.9,44,2,5005,0)="""RTN"",""HLOTCP"",184,0)"
^XMB(3.9,44,2,5006,0)=" .;look for the <SB>"
^XMB(3.9,44,2,5007,0)="""RTN"",""HLOTCP"",185,0)"
^XMB(3.9,44,2,5008,0)=" .;perhaps the <SB> isn't in the first line"
^XMB(3.9,44,2,5009,0)="""RTN"",""HLOTCP"",186,0)"
^XMB(3.9,44,2,5010,0)=" .F  S I=$O(SEG(I)) Q:'I  D  Q:SUCCESS"
^XMB(3.9,44,2,5011,0)="""RTN"",""HLOTCP"",187,0)"
^XMB(3.9,44,2,5012,0)=" ..I (SEG(I)'[$C(11)) K SEG(I) Q"
^XMB(3.9,44,2,5013,0)="""RTN"",""HLOTCP"",188,0)"
^XMB(3.9,44,2,5014,0)=" ..S SEG(I)=$P(SEG(I),$C(11),2)"
^XMB(3.9,44,2,5015,0)="""RTN"",""HLOTCP"",189,0)"
^XMB(3.9,44,2,5016,0)=" ..S SUCCESS=1"
^XMB(3.9,44,2,5017,0)="""RTN"",""HLOTCP"",190,0)"
^XMB(3.9,44,2,5018,0)=" ..K:SEG(I)="""" SEG(I)"
^XMB(3.9,44,2,5019,0)="""RTN"",""HLOTCP"",191,0)"
^XMB(3.9,44,2,5020,0)=" I SUCCESS S (I,J)=0 F  S J=$O(SEG(J)) Q:'J  S I=I+1,HDR(I)=SEG(J)"
^XMB(3.9,44,2,5021,0)="""RTN"",""HLOTCP"",192,0)"
^XMB(3.9,44,2,5022,0)=" Q SUCCESS"
^XMB(3.9,44,2,5023,0)="""RTN"",""HLOTCP"",193,0)"
^XMB(3.9,44,2,5024,0)=" ;"
^XMB(3.9,44,2,5025,0)="""RTN"",""HLOTCP"",194,0)"
^XMB(3.9,44,2,5026,0)="CLOSE(HLCSTATE) ;"
^XMB(3.9,44,2,5027,0)="""RTN"",""HLOTCP"",195,0)"
^XMB(3.9,44,2,5028,0)=" CLOSE HLCSTATE(""DEVICE"")"
^XMB(3.9,44,2,5029,0)="""RTN"",""HLOTCP"",196,0)"
^XMB(3.9,44,2,5030,0)=" Q"
^XMB(3.9,44,2,5031,0)="""RTN"",""HLOTCP"",197,0)"
^XMB(3.9,44,2,5032,0)=" ;"
^XMB(3.9,44,2,5033,0)="""RTN"",""HLOTCP"",198,0)"
^XMB(3.9,44,2,5034,0)="ENDMSG(HLCSTATE)        ;"
^XMB(3.9,44,2,5035,0)="""RTN"",""HLOTCP"",199,0)"
^XMB(3.9,44,2,5036,0)=" N SEG"
^XMB(3.9,44,2,5037,0)="""RTN"",""HLOTCP"",200,0)"
^XMB(3.9,44,2,5038,0)=" S SEG(1)=$C(28)"
^XMB(3.9,44,2,5039,0)="""RTN"",""HLOTCP"",201,0)"
^XMB(3.9,44,2,5040,0)=" I $$WRITESEG(.HLCSTATE,.SEG) D  Q 1"
^XMB(3.9,44,2,5041,0)="""RTN"",""HLOTCP"",202,0)"
^XMB(3.9,44,2,5042,0)=" .D FLUSH"
^XMB(3.9,44,2,5043,0)="""RTN"",""HLOTCP"",203,0)"
^XMB(3.9,44,2,5044,0)=" .U HLCSTATE(""DEVICE"")"
^XMB(3.9,44,2,5045,0)="""RTN"",""HLOTCP"",204,0)"
^XMB(3.9,44,2,5046,0)=" .W:$X @HLCSTATE(""FLUSH"")"
^XMB(3.9,44,2,5047,0)="""RTN"",""HLOTCP"",205,0)"
^XMB(3.9,44,2,5048,0)=" Q 0"
^XMB(3.9,44,2,5049,0)="""RTN"",""HLOTLNK"")"
^XMB(3.9,44,2,5050,0)="0^11^B23891993^B20724359"
^XMB(3.9,44,2,5051,0)="""RTN"",""HLOTLNK"",1,0)"
^XMB(3.9,44,2,5052,0)="HLOTLNK ;IRMFO-ALB/CJM - APIs for the HL Logical Link file;03/24/2004  14:43"
^XMB(3.9,44,2,5053,0)="""RTN"",""HLOTLNK"",2,0)"
^XMB(3.9,44,2,5054,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126,130,131**;Oct 13, 1995;Build 10"
^XMB(3.9,44,2,5055,0)="""RTN"",""HLOTLNK"",3,0)"
^XMB(3.9,44,2,5056,0)=" ;"
^XMB(3.9,44,2,5057,0)="""RTN"",""HLOTLNK"",4,0)"
^XMB(3.9,44,2,5058,0)="SETSHUT(LINKIEN) ;"
^XMB(3.9,44,2,5059,0)="""RTN"",""HLOTLNK"",5,0)"
^XMB(3.9,44,2,5060,0)=" ;sets the shutdown flag (can not fail - if the link doesn't exist, by definition its shutdown)"
^XMB(3.9,44,2,5061,0)="""RTN"",""HLOTLNK"",6,0)"
^XMB(3.9,44,2,5062,0)=" Q:'$G(LINKIEN) 1"
^XMB(3.9,44,2,5063,0)="""RTN"",""HLOTLNK"",7,0)"
^XMB(3.9,44,2,5064,0)=" Q:'$D(^HLCS(870,LINKIEN,0)) 1"
^XMB(3.9,44,2,5065,0)="""RTN"",""HLOTLNK"",8,0)"
^XMB(3.9,44,2,5066,0)=" S $P(^HLCS(870,LINKIEN,0),""^"",16)=1"
^XMB(3.9,44,2,5067,0)="""RTN"",""HLOTLNK"",9,0)"
^XMB(3.9,44,2,5068,0)=" Q 1"
^XMB(3.9,44,2,5069,0)="""RTN"",""HLOTLNK"",10,0)"
^XMB(3.9,44,2,5070,0)="SETOPEN(LINKIEN) ;"
^XMB(3.9,44,2,5071,0)="""RTN"",""HLOTLNK"",11,0)"
^XMB(3.9,44,2,5072,0)=" ;clears the shutdown flag, returns 1 on success, 0 on failure"
^XMB(3.9,44,2,5073,0)="""RTN"",""HLOTLNK"",12,0)"
^XMB(3.9,44,2,5074,0)=" Q:'$G(LINKIEN) 0"
^XMB(3.9,44,2,5075,0)="""RTN"",""HLOTLNK"",13,0)"
^XMB(3.9,44,2,5076,0)=" Q:'$D(^HLCS(870,LINKIEN,0)) 0"
^XMB(3.9,44,2,5077,0)="""RTN"",""HLOTLNK"",14,0)"
^XMB(3.9,44,2,5078,0)=" S $P(^HLCS(870,LINKIEN,0),""^"",16)="""""
^XMB(3.9,44,2,5079,0)="""RTN"",""HLOTLNK"",15,0)"
^XMB(3.9,44,2,5080,0)=" Q 1"
^XMB(3.9,44,2,5081,0)="""RTN"",""HLOTLNK"",16,0)"
^XMB(3.9,44,2,5082,0)=" ;"
^XMB(3.9,44,2,5083,0)="""RTN"",""HLOTLNK"",17,0)"
^XMB(3.9,44,2,5084,0)="IFSHUT(LINKNAME) ;"
^XMB(3.9,44,2,5085,0)="""RTN"",""HLOTLNK"",18,0)"
^XMB(3.9,44,2,5086,0)=" ;returns 1 if the link was shut down to HLO"
^XMB(3.9,44,2,5087,0)="""RTN"",""HLOTLNK"",19,0)"
^XMB(3.9,44,2,5088,0)=" N IEN,LINK"
^XMB(3.9,44,2,5089,0)="""RTN"",""HLOTLNK"",20,0)"
^XMB(3.9,44,2,5090,0)=" S LINK=$P($G(LINKNAME),"":"")"
^XMB(3.9,44,2,5091,0)="""RTN"",""HLOTLNK"",21,0)"
^XMB(3.9,44,2,5092,0)=" Q:LINK="""""
^XMB(3.9,44,2,5093,0)="""RTN"",""HLOTLNK"",22,0)"
^XMB(3.9,44,2,5094,0)=" S IEN=$O(^HLCS(870,""B"",LINK,0))"
^XMB(3.9,44,2,5095,0)="""RTN"",""HLOTLNK"",23,0)"
^XMB(3.9,44,2,5096,0)=" Q:'IEN 1"
^XMB(3.9,44,2,5097,0)="""RTN"",""HLOTLNK"",24,0)"
^XMB(3.9,44,2,5098,0)=" Q:$P($G(^HLCS(870,IEN,0)),""^"",16) 1"
^XMB(3.9,44,2,5099,0)="""RTN"",""HLOTLNK"",25,0)"
^XMB(3.9,44,2,5100,0)=" Q 0"
^XMB(3.9,44,2,5101,0)="""RTN"",""HLOTLNK"",26,0)"
^XMB(3.9,44,2,5102,0)=" ;"
^XMB(3.9,44,2,5103,0)="""RTN"",""HLOTLNK"",27,0)"
^XMB(3.9,44,2,5104,0)="DOMAIN(LINKIEN) ;"
^XMB(3.9,44,2,5105,0)="""RTN"",""HLOTLNK"",28,0)"
^XMB(3.9,44,2,5106,0)=" ;Returns the domain associated with this link"
^XMB(3.9,44,2,5107,0)="""RTN"",""HLOTLNK"",29,0)"
^XMB(3.9,44,2,5108,0)=" ;"
^XMB(3.9,44,2,5109,0)="""RTN"",""HLOTLNK"",30,0)"
^XMB(3.9,44,2,5110,0)=" Q:'$G(LINKIEN) """""
^XMB(3.9,44,2,5111,0)="""RTN"",""HLOTLNK"",31,0)"
^XMB(3.9,44,2,5112,0)=" N NODE,DOMAIN"
^XMB(3.9,44,2,5113,0)="""RTN"",""HLOTLNK"",32,0)"
^XMB(3.9,44,2,5114,0)=" S DOMAIN="""""
^XMB(3.9,44,2,5115,0)="""RTN"",""HLOTLNK"",33,0)"
^XMB(3.9,44,2,5116,0)=" S NODE=$G(^HLCS(870,LINKIEN,0))"
^XMB(3.9,44,2,5117,0)="""RTN"",""HLOTLNK"",34,0)"
^XMB(3.9,44,2,5118,0)=" I $P(NODE,""^"",7) D"
^XMB(3.9,44,2,5119,0)="""RTN"",""HLOTLNK"",35,0)"
^XMB(3.9,44,2,5120,0)=" .S DOMAIN=$P($G(^DIC(4.2,$P(NODE,""^"",7),0)),""^"")"
^XMB(3.9,44,2,5121,0)="""RTN"",""HLOTLNK"",36,0)"
^XMB(3.9,44,2,5122,0)=" .S DOMAIN=$S($L(DOMAIN):""HL7.""_DOMAIN,1:"""")"
^XMB(3.9,44,2,5123,0)="""RTN"",""HLOTLNK"",37,0)"
^XMB(3.9,44,2,5124,0)=" I '$L(DOMAIN) S DOMAIN=$P(NODE,""^"",8)"
^XMB(3.9,44,2,5125,0)="""RTN"",""HLOTLNK"",38,0)"
^XMB(3.9,44,2,5126,0)=" Q DOMAIN"
^XMB(3.9,44,2,5127,0)="""RTN"",""HLOTLNK"",39,0)"
^XMB(3.9,44,2,5128,0)="PORT(LINKIEN) ;"
^XMB(3.9,44,2,5129,0)="""RTN"",""HLOTLNK"",40,0)"
^XMB(3.9,44,2,5130,0)=" ;Returns the HLO port associated with this link"
^XMB(3.9,44,2,5131,0)="""RTN"",""HLOTLNK"",41,0)"
^XMB(3.9,44,2,5132,0)=" ;"
^XMB(3.9,44,2,5133,0)="""RTN"",""HLOTLNK"",42,0)"
^XMB(3.9,44,2,5134,0)=" Q:'$G(LINKIEN) """""
^XMB(3.9,44,2,5135,0)="""RTN"",""HLOTLNK"",43,0)"
^XMB(3.9,44,2,5136,0)=" N NODE,PORT"
^XMB(3.9,44,2,5137,0)="""RTN"",""HLOTLNK"",44,0)"
^XMB(3.9,44,2,5138,0)=" S NODE=$G(^HLCS(870,LINKIEN,400))"
^XMB(3.9,44,2,5139,0)="""RTN"",""HLOTLNK"",45,0)"
^XMB(3.9,44,2,5140,0)=" S PORT=$P(NODE,""^"",8)"
^XMB(3.9,44,2,5141,0)="""RTN"",""HLOTLNK"",46,0)"
^XMB(3.9,44,2,5142,0)=" S:'PORT PORT=$S($P($G(^HLD(779.1,1,0)),""^"",3)=""P"":5001,1:5026)"
^XMB(3.9,44,2,5143,0)="""RTN"",""HLOTLNK"",47,0)"
^XMB(3.9,44,2,5144,0)=" Q PORT"
^XMB(3.9,44,2,5145,0)="""RTN"",""HLOTLNK"",48,0)"
^XMB(3.9,44,2,5146,0)=" ;"
^XMB(3.9,44,2,5147,0)="""RTN"",""HLOTLNK"",49,0)"
^XMB(3.9,44,2,5148,0)="PORT2(LINKNAME) ;given the name of the link, returns its HLO port"
^XMB(3.9,44,2,5149,0)="""RTN"",""HLOTLNK"",50,0)"
^XMB(3.9,44,2,5150,0)=" Q $$PORT($O(^HLCS(870,""B"",LINKNAME,0)))"
^XMB(3.9,44,2,5151,0)="""RTN"",""HLOTLNK"",51,0)"
^XMB(3.9,44,2,5152,0)=" ;"
^XMB(3.9,44,2,5153,0)="""RTN"",""HLOTLNK"",52,0)"
^XMB(3.9,44,2,5154,0)="STATNUM(LINKIEN) ;"
^XMB(3.9,44,2,5155,0)="""RTN"",""HLOTLNK"",53,0)"
^XMB(3.9,44,2,5156,0)=" ;Given the ien of the link, this function returns the station #."
^XMB(3.9,44,2,5157,0)="""RTN"",""HLOTLNK"",54,0)"
^XMB(3.9,44,2,5158,0)=" ;"
^XMB(3.9,44,2,5159,0)="""RTN"",""HLOTLNK"",55,0)"
^XMB(3.9,44,2,5160,0)=" Q:'$G(LINKIEN) """""
^XMB(3.9,44,2,5161,0)="""RTN"",""HLOTLNK"",56,0)"
^XMB(3.9,44,2,5162,0)=" N INST"
^XMB(3.9,44,2,5163,0)="""RTN"",""HLOTLNK"",57,0)"
^XMB(3.9,44,2,5164,0)=" S INST=$P($G(^HLCS(870,LINKIEN,0)),""^"",2)"
^XMB(3.9,44,2,5165,0)="""RTN"",""HLOTLNK"",58,0)"
^XMB(3.9,44,2,5166,0)=" Q:'INST """""
^XMB(3.9,44,2,5167,0)="""RTN"",""HLOTLNK"",59,0)"
^XMB(3.9,44,2,5168,0)=" Q $P($G(^DIC(4,INST,99)),""^"")"
^XMB(3.9,44,2,5169,0)="""RTN"",""HLOTLNK"",60,0)"
^XMB(3.9,44,2,5170,0)=" ;"
^XMB(3.9,44,2,5171,0)="""RTN"",""HLOTLNK"",61,0)"
^XMB(3.9,44,2,5172,0)="FINDLINK(STATN) ;"
^XMB(3.9,44,2,5173,0)="""RTN"",""HLOTLNK"",62,0)"
^XMB(3.9,44,2,5174,0)=" ;Returns the link ien based on the station # =STATN"
^XMB(3.9,44,2,5175,0)="""RTN"",""HLOTLNK"",63,0)"
^XMB(3.9,44,2,5176,0)=" ;The link found must have a name starting with ""VA"", as these are"
^XMB(3.9,44,2,5177,0)="""RTN"",""HLOTLNK"",64,0)"
^XMB(3.9,44,2,5178,0)=" ;reserved for officially released links associated with VHA institutions"
^XMB(3.9,44,2,5179,0)="""RTN"",""HLOTLNK"",65,0)"
^XMB(3.9,44,2,5180,0)=" ;** EXCEPTION** MPIVA is an official link associated with 200M"
^XMB(3.9,44,2,5181,0)="""RTN"",""HLOTLNK"",66,0)"
^XMB(3.9,44,2,5182,0)=" ;"
^XMB(3.9,44,2,5183,0)="""RTN"",""HLOTLNK"",67,0)"
^XMB(3.9,44,2,5184,0)=" Q:'$L($G(STATN)) 0"
^XMB(3.9,44,2,5185,0)="""RTN"",""HLOTLNK"",68,0)"
^XMB(3.9,44,2,5186,0)=" ;"
^XMB(3.9,44,2,5187,0)="""RTN"",""HLOTLNK"",69,0)"
^XMB(3.9,44,2,5188,0)=" N NAME,IEN"
^XMB(3.9,44,2,5189,0)="""RTN"",""HLOTLNK"",70,0)"
^XMB(3.9,44,2,5190,0)=" S (NAME,IEN)="""""
^XMB(3.9,44,2,5191,0)="""RTN"",""HLOTLNK"",71,0)"
^XMB(3.9,44,2,5192,0)=" F  S NAME=$O(^HLCS(870,""AC"",STATN,NAME)) Q:NAME=""""  I (NAME'=""VA-VIE""),($E(NAME,1,2)=""VA"")!(NAME=""MPIVA"") S IEN=$O(^HLCS(870,""AC"",STATN,NAME,0)) Q"
^XMB(3.9,44,2,5193,0)="""RTN"",""HLOTLNK"",72,0)"
^XMB(3.9,44,2,5194,0)=" Q IEN"
^XMB(3.9,44,2,5195,0)="""RTN"",""HLOTLNK"",73,0)"
^XMB(3.9,44,2,5196,0)=" ;"
^XMB(3.9,44,2,5197,0)="""RTN"",""HLOTLNK"",74,0)"
^XMB(3.9,44,2,5198,0)="GETLINK(LINKNAME,LINK) ;"
^XMB(3.9,44,2,5199,0)="""RTN"",""HLOTLNK"",75,0)"
^XMB(3.9,44,2,5200,0)=" N IEN"
^XMB(3.9,44,2,5201,0)="""RTN"",""HLOTLNK"",76,0)"
^XMB(3.9,44,2,5202,0)=" S IEN=$O(^HLCS(870,""B"",LINKNAME,0))"
^XMB(3.9,44,2,5203,0)="""RTN"",""HLOTLNK"",77,0)"
^XMB(3.9,44,2,5204,0)=" I IEN Q $$GET(IEN,.LINK)"
^XMB(3.9,44,2,5205,0)="""RTN"",""HLOTLNK"",78,0)"
^XMB(3.9,44,2,5206,0)=" I LINKNAME=""HLO DEFAULT LISTENER"" D  Q 1"
^XMB(3.9,44,2,5207,0)="""RTN"",""HLOTLNK"",79,0)"
^XMB(3.9,44,2,5208,0)=" .N NODE"
^XMB(3.9,44,2,5209,0)="""RTN"",""HLOTLNK"",80,0)"
^XMB(3.9,44,2,5210,0)=" .S LINK(""NAME"")=LINKNAME"
^XMB(3.9,44,2,5211,0)="""RTN"",""HLOTLNK"",81,0)"
^XMB(3.9,44,2,5212,0)=" .S LINK(""IEN"")=0"
^XMB(3.9,44,2,5213,0)="""RTN"",""HLOTLNK"",82,0)"
^XMB(3.9,44,2,5214,0)=" .S LINK(""SHUTDOWN"")="""""
^XMB(3.9,44,2,5215,0)="""RTN"",""HLOTLNK"",83,0)"
^XMB(3.9,44,2,5216,0)=" .S LINK(""LLP"")=""TCP"""
^XMB(3.9,44,2,5217,0)="""RTN"",""HLOTLNK"",84,0)"
^XMB(3.9,44,2,5218,0)=" .S LINK(""SERVER"")=""1^""_""M"""
^XMB(3.9,44,2,5219,0)="""RTN"",""HLOTLNK"",85,0)"
^XMB(3.9,44,2,5220,0)=" .S NODE=$G(^HLD(779.1,1,0))"
^XMB(3.9,44,2,5221,0)="""RTN"",""HLOTLNK"",86,0)"
^XMB(3.9,44,2,5222,0)=" .S LINK(""DOMAIN"")=$P(NODE,""^"",1)"
^XMB(3.9,44,2,5223,0)="""RTN"",""HLOTLNK"",87,0)"
^XMB(3.9,44,2,5224,0)=" .S LINK(""PORT"")=$S($P(NODE,""^"",3)=""P"":5001,$P(NODE,""^"",3)=""T"":5026,1:"""")"
^XMB(3.9,44,2,5225,0)="""RTN"",""HLOTLNK"",88,0)"
^XMB(3.9,44,2,5226,0)=" .S LINK(""IP"")="""""
^XMB(3.9,44,2,5227,0)="""RTN"",""HLOTLNK"",89,0)"
^XMB(3.9,44,2,5228,0)=" Q 0"
^XMB(3.9,44,2,5229,0)="""RTN"",""HLOTLNK"",90,0)"
^XMB(3.9,44,2,5230,0)="GET(IEN,LINK) ;"
^XMB(3.9,44,2,5231,0)="""RTN"",""HLOTLNK"",91,0)"
^XMB(3.9,44,2,5232,0)=" N NODE,PTR"
^XMB(3.9,44,2,5233,0)="""RTN"",""HLOTLNK"",92,0)"
^XMB(3.9,44,2,5234,0)=" K LINK"
^XMB(3.9,44,2,5235,0)="""RTN"",""HLOTLNK"",93,0)"
^XMB(3.9,44,2,5236,0)=" S NODE=$G(^HLCS(870,IEN,0))"
^XMB(3.9,44,2,5237,0)="""RTN"",""HLOTLNK"",94,0)"
^XMB(3.9,44,2,5238,0)=" Q:NODE="""" 0"
^XMB(3.9,44,2,5239,0)="""RTN"",""HLOTLNK"",95,0)"
^XMB(3.9,44,2,5240,0)=" S LINK(""NAME"")=$P(NODE,""^"")"
^XMB(3.9,44,2,5241,0)="""RTN"",""HLOTLNK"",96,0)"
^XMB(3.9,44,2,5242,0)=" S LINK(""IEN"")=IEN"
^XMB(3.9,44,2,5243,0)="""RTN"",""HLOTLNK"",97,0)"
^XMB(3.9,44,2,5244,0)=" S LINK(""SHUTDOWN"")=+$P(NODE,""^"",16)"
^XMB(3.9,44,2,5245,0)="""RTN"",""HLOTLNK"",98,0)"
^XMB(3.9,44,2,5246,0)=" I $P(NODE,""^"",7) D"
^XMB(3.9,44,2,5247,0)="""RTN"",""HLOTLNK"",99,0)"
^XMB(3.9,44,2,5248,0)=" .S LINK(""DOMAIN"")=$P(^DIC(4.2,$P(NODE,""^"",7),0),""^"")"
^XMB(3.9,44,2,5249,0)="""RTN"",""HLOTLNK"",100,0)"
^XMB(3.9,44,2,5250,0)=" .S LINK(""DOMAIN"")=$S($L(LINK(""DOMAIN"")):""HL7.""_LINK(""DOMAIN""),1:"""")"
^XMB(3.9,44,2,5251,0)="""RTN"",""HLOTLNK"",101,0)"
^XMB(3.9,44,2,5252,0)=" I $G(LINK(""DOMAIN""))="""" S LINK(""DOMAIN"")=$P(NODE,""^"",8)"
^XMB(3.9,44,2,5253,0)="""RTN"",""HLOTLNK"",102,0)"
^XMB(3.9,44,2,5254,0)=" S PTR=$P(NODE,""^"",3)"
^XMB(3.9,44,2,5255,0)="""RTN"",""HLOTLNK"",103,0)"
^XMB(3.9,44,2,5256,0)=" S LINK(""LLP"")=$S('PTR:"""",1:$P($G(^HLCS(869.1,PTR,0)),""^""))"
^XMB(3.9,44,2,5257,0)="""RTN"",""HLOTLNK"",104,0)"
^XMB(3.9,44,2,5258,0)=" S LINK(""SERVER"")="""""
^XMB(3.9,44,2,5259,0)="""RTN"",""HLOTLNK"",105,0)"
^XMB(3.9,44,2,5260,0)=" I LINK(""LLP"")=""TCP"" D"
^XMB(3.9,44,2,5261,0)="""RTN"",""HLOTLNK"",106,0)"
^XMB(3.9,44,2,5262,0)=" .S LINK(""SERVER"")=1"
^XMB(3.9,44,2,5263,0)="""RTN"",""HLOTLNK"",107,0)"
^XMB(3.9,44,2,5264,0)=" .S NODE=$G(^HLCS(870,IEN,400))"
^XMB(3.9,44,2,5265,0)="""RTN"",""HLOTLNK"",108,0)"
^XMB(3.9,44,2,5266,0)=" .S LINK(""IP"")=$P(NODE,""^"")"
^XMB(3.9,44,2,5267,0)="""RTN"",""HLOTLNK"",109,0)"
^XMB(3.9,44,2,5268,0)=" .S LINK(""PORT"")=$P(NODE,""^"",8)"
^XMB(3.9,44,2,5269,0)="""RTN"",""HLOTLNK"",110,0)"
^XMB(3.9,44,2,5270,0)=" .S:'LINK(""PORT"") LINK(""PORT"")=$S($P($G(^HLD(779.1,1,0)),""^"",3)=""P"":5001,1:5026)"
^XMB(3.9,44,2,5271,0)="""RTN"",""HLOTLNK"",111,0)"
^XMB(3.9,44,2,5272,0)=" .S:$P(NODE,""^"",3)=""C"" LINK(""SERVER"")=0"
^XMB(3.9,44,2,5273,0)="""RTN"",""HLOTLNK"",112,0)"
^XMB(3.9,44,2,5274,0)=" .I LINK(""SERVER"") S LINK(""SERVER"")=LINK(""SERVER"")_""^""_$P(NODE,""^"",3)"
^XMB(3.9,44,2,5275,0)="""RTN"",""HLOTLNK"",113,0)"
^XMB(3.9,44,2,5276,0)=" Q 1"
^XMB(3.9,44,2,5277,0)="""RTN"",""HLOTLNK"",114,0)"
^XMB(3.9,44,2,5278,0)=" ;"
^XMB(3.9,44,2,5279,0)="""RTN"",""HLOTLNK"",115,0)"
^XMB(3.9,44,2,5280,0)="SET1(LINK,MDOMAIN) ;"
^XMB(3.9,44,2,5281,0)="""RTN"",""HLOTLNK"",116,0)"
^XMB(3.9,44,2,5282,0)=" N DOMAIN"
^XMB(3.9,44,2,5283,0)="""RTN"",""HLOTLNK"",117,0)"
^XMB(3.9,44,2,5284,0)=" Q:'$L(MDOMAIN)"
^XMB(3.9,44,2,5285,0)="""RTN"",""HLOTLNK"",118,0)"
^XMB(3.9,44,2,5286,0)=" S DOMAIN=$P($G(^DIC(4.2,MDOMAIN,0)),""^"")"
^XMB(3.9,44,2,5287,0)="""RTN"",""HLOTLNK"",119,0)"
^XMB(3.9,44,2,5288,0)=" S DOMAIN=$S($L(DOMAIN):""HL7.""_DOMAIN,1:"""")"
^XMB(3.9,44,2,5289,0)="""RTN"",""HLOTLNK"",120,0)"
^XMB(3.9,44,2,5290,0)=" I DOMAIN'="""" S ^HLCS(870,""AD"",""TCP"",DOMAIN,LINK)="""""
^XMB(3.9,44,2,5291,0)="""RTN"",""HLOTLNK"",121,0)"
^XMB(3.9,44,2,5292,0)=" Q"
^XMB(3.9,44,2,5293,0)="""RTN"",""HLOTLNK"",122,0)"
^XMB(3.9,44,2,5294,0)="KILL1(LINK,MDOMAIN) ;"
^XMB(3.9,44,2,5295,0)="""RTN"",""HLOTLNK"",123,0)"
^XMB(3.9,44,2,5296,0)=" N DOMAIN"
^XMB(3.9,44,2,5297,0)="""RTN"",""HLOTLNK"",124,0)"
^XMB(3.9,44,2,5298,0)=" Q:'$L(MDOMAIN)"
^XMB(3.9,44,2,5299,0)="""RTN"",""HLOTLNK"",125,0)"
^XMB(3.9,44,2,5300,0)=" S DOMAIN=$P($G(^DIC(4.2,MDOMAIN,0)),""^"")"
^XMB(3.9,44,2,5301,0)="""RTN"",""HLOTLNK"",126,0)"
^XMB(3.9,44,2,5302,0)=" S DOMAIN=$S($L(DOMAIN):""HL7.""_DOMAIN,1:"""")"
^XMB(3.9,44,2,5303,0)="""RTN"",""HLOTLNK"",127,0)"
^XMB(3.9,44,2,5304,0)=" I DOMAIN'="""" K ^HLCS(870,""AD"",""TCP"",DOMAIN,LINK)"
^XMB(3.9,44,2,5305,0)="""RTN"",""HLOTLNK"",128,0)"
^XMB(3.9,44,2,5306,0)=" Q"
^XMB(3.9,44,2,5307,0)="""RTN"",""HLOTLNK"",129,0)"
^XMB(3.9,44,2,5308,0)="SET2(LINK,DOMAIN) ;"
^XMB(3.9,44,2,5309,0)="""RTN"",""HLOTLNK"",130,0)"
^XMB(3.9,44,2,5310,0)=" I DOMAIN'="""" S ^HLCS(870,""AD"",""TCP"",DOMAIN,LINK)="""""
^XMB(3.9,44,2,5311,0)="""RTN"",""HLOTLNK"",131,0)"
^XMB(3.9,44,2,5312,0)=" Q"
^XMB(3.9,44,2,5313,0)="""RTN"",""HLOTLNK"",132,0)"
^XMB(3.9,44,2,5314,0)="KILL2(LINK,DOMAIN) ;"
^XMB(3.9,44,2,5315,0)="""RTN"",""HLOTLNK"",133,0)"
^XMB(3.9,44,2,5316,0)=" I DOMAIN'="""" K ^HLCS(870,""AD"",""TCP"",DOMAIN,LINK)"
^XMB(3.9,44,2,5317,0)="""RTN"",""HLOTLNK"",134,0)"
^XMB(3.9,44,2,5318,0)=" Q"
^XMB(3.9,44,2,5319,0)="""RTN"",""HLOTLNK"",135,0)"
^XMB(3.9,44,2,5320,0)="SET3(LINK,DEVICE) ;"
^XMB(3.9,44,2,5321,0)="""RTN"",""HLOTLNK"",136,0)"
^XMB(3.9,44,2,5322,0)=" Q:'DEVICE"
^XMB(3.9,44,2,5323,0)="""RTN"",""HLOTLNK"",137,0)"
^XMB(3.9,44,2,5324,0)=" S ^HLCS(870,""AD"",""HLLP"",DEVICE,LINK)="""""
^XMB(3.9,44,2,5325,0)="""RTN"",""HLOTLNK"",138,0)"
^XMB(3.9,44,2,5326,0)=" Q"
^XMB(3.9,44,2,5327,0)="""RTN"",""HLOTLNK"",139,0)"
^XMB(3.9,44,2,5328,0)="KILL3(LINK,DEVICE) ;"
^XMB(3.9,44,2,5329,0)="""RTN"",""HLOTLNK"",140,0)"
^XMB(3.9,44,2,5330,0)=" Q:'DEVICE"
^XMB(3.9,44,2,5331,0)="""RTN"",""HLOTLNK"",141,0)"
^XMB(3.9,44,2,5332,0)=" S ^HLCS(870,""AD"",""HLLP"",DEVICE,LINK)="""""
^XMB(3.9,44,2,5333,0)="""RTN"",""HLOTLNK"",142,0)"
^XMB(3.9,44,2,5334,0)=" Q"
^XMB(3.9,44,2,5335,0)="""RTN"",""HLOTLNK"",143,0)"
^XMB(3.9,44,2,5336,0)="LLP(LINKNAME) ;"
^XMB(3.9,44,2,5337,0)="""RTN"",""HLOTLNK"",144,0)"
^XMB(3.9,44,2,5338,0)=" ;finds the type of LLP for a named link"
^XMB(3.9,44,2,5339,0)="""RTN"",""HLOTLNK"",145,0)"
^XMB(3.9,44,2,5340,0)=" N IEN,LLP"
^XMB(3.9,44,2,5341,0)="""RTN"",""HLOTLNK"",146,0)"
^XMB(3.9,44,2,5342,0)=" S IEN=$O(^HLCS(870,""B"",LINKNAME,0))"
^XMB(3.9,44,2,5343,0)="""RTN"",""HLOTLNK"",147,0)"
^XMB(3.9,44,2,5344,0)=" Q:'IEN """""
^XMB(3.9,44,2,5345,0)="""RTN"",""HLOTLNK"",148,0)"
^XMB(3.9,44,2,5346,0)=" S LLP=$P($G(^HLCS(870,IEN,0)),""^"",3)"
^XMB(3.9,44,2,5347,0)="""RTN"",""HLOTLNK"",149,0)"
^XMB(3.9,44,2,5348,0)=" Q:'LLP """""
^XMB(3.9,44,2,5349,0)="""RTN"",""HLOTLNK"",150,0)"
^XMB(3.9,44,2,5350,0)=" Q $P($G(^HLCS(869.1,LLP,0)),""^"")"
^XMB(3.9,44,2,5351,0)="""RTN"",""HLOTLNK"",151,0)"
^XMB(3.9,44,2,5352,0)=" ;"
^XMB(3.9,44,2,5353,0)="""RTN"",""HLOTLNK"",152,0)"
^XMB(3.9,44,2,5354,0)="DEVICE(LINKNAME) ;"
^XMB(3.9,44,2,5355,0)="""RTN"",""HLOTLNK"",153,0)"
^XMB(3.9,44,2,5356,0)=" N IEN"
^XMB(3.9,44,2,5357,0)="""RTN"",""HLOTLNK"",154,0)"
^XMB(3.9,44,2,5358,0)=" S IEN=$O(^HLCS(870,""B"",LINKNAME,0))"
^XMB(3.9,44,2,5359,0)="""RTN"",""HLOTLNK"",155,0)"
^XMB(3.9,44,2,5360,0)=" Q:'IEN """""
^XMB(3.9,44,2,5361,0)="""RTN"",""HLOTLNK"",156,0)"
^XMB(3.9,44,2,5362,0)=" Q $P($G(^HLCS(870,IEN,200)),""^"")"
^XMB(3.9,44,2,5363,0)="""RTN"",""HLOTLNK"",157,0)"
^XMB(3.9,44,2,5364,0)=" ;"
^XMB(3.9,44,2,5365,0)="""RTN"",""HLOTLNK"",158,0)"
^XMB(3.9,44,2,5366,0)="RTRNLNK(COMP1,COMP2,COMP3) ;"
^XMB(3.9,44,2,5367,0)="""RTN"",""HLOTLNK"",159,0)"
^XMB(3.9,44,2,5368,0)=" ;based on the sending facility from the original header, this function finds the return link, or """" if not successful"
^XMB(3.9,44,2,5369,0)="""RTN"",""HLOTLNK"",160,0)"
^XMB(3.9,44,2,5370,0)=" ;Inputs:"
^XMB(3.9,44,2,5371,0)="""RTN"",""HLOTLNK"",161,0)"
^XMB(3.9,44,2,5372,0)=" ;  COMP1,COMP2,COMP3 - 3 components of the sending facility from the original message"
^XMB(3.9,44,2,5373,0)="""RTN"",""HLOTLNK"",162,0)"
^XMB(3.9,44,2,5374,0)=" ;"
^XMB(3.9,44,2,5375,0)="""RTN"",""HLOTLNK"",163,0)"
^XMB(3.9,44,2,5376,0)=" N LINK,IEN"
^XMB(3.9,44,2,5377,0)="""RTN"",""HLOTLNK"",164,0)"
^XMB(3.9,44,2,5378,0)=" S LINK="""""
^XMB(3.9,44,2,5379,0)="""RTN"",""HLOTLNK"",165,0)"
^XMB(3.9,44,2,5380,0)=" I $G(COMP3)=""DNS"",$P($G(COMP2),"":"")]"""" S LINK=$O(^HLCS(870,""AD"",""TCP"",$P(COMP2,"":""),""""))"
^XMB(3.9,44,2,5381,0)="""RTN"",""HLOTLNK"",166,0)"
^XMB(3.9,44,2,5382,0)=" I LINK="""",$L($G(COMP1)) S IEN=$$FINDLINK(COMP1) S:IEN LINK=$P($G(^HLCS(870,IEN,0)),""^"")"
^XMB(3.9,44,2,5383,0)="""RTN"",""HLOTLNK"",167,0)"
^XMB(3.9,44,2,5384,0)=" Q LINK"
^XMB(3.9,44,2,5385,0)="""RTN"",""HLOTLNK"",168,0)"
^XMB(3.9,44,2,5386,0)=" ;"
^XMB(3.9,44,2,5387,0)="""RTN"",""HLOTLNK"",169,0)"
^XMB(3.9,44,2,5388,0)=" ;HLLP is not implemented in HLO"
^XMB(3.9,44,2,5389,0)="""RTN"",""HLOTLNK"",170,0)"
^XMB(3.9,44,2,5390,0)=" ;I LLP=""HLLP"" N DEVICE S DEVICE=$$DEVICE(FROMLINK) I DEVICE Q $O(^HLCS(870,""AD"",""TCP"",DEVICE,""""))"
^XMB(3.9,44,2,5391,0)="""RTN"",""HLOTLNK"",171,0)"
^XMB(3.9,44,2,5392,0)=" ;Q """""
^XMB(3.9,44,2,5393,0)="""RTN"",""HLOTLNK"",172,0)"
^XMB(3.9,44,2,5394,0)=" ;"
^XMB(3.9,44,2,5395,0)="""RTN"",""HLOTLNK"",173,0)"
^XMB(3.9,44,2,5396,0)="CHKLINK(LINK) ;"
^XMB(3.9,44,2,5397,0)="""RTN"",""HLOTLNK"",174,0)"
^XMB(3.9,44,2,5398,0)=" Q:'$L(LINK) 0"
^XMB(3.9,44,2,5399,0)="""RTN"",""HLOTLNK"",175,0)"
^XMB(3.9,44,2,5400,0)=" Q:'$O(^HLCS(870,""B"",LINK,0)) 0"
^XMB(3.9,44,2,5401,0)="""RTN"",""HLOTLNK"",176,0)"
^XMB(3.9,44,2,5402,0)=" Q 1"
^XMB(3.9,44,2,5403,0)="""VER"")"
^XMB(3.9,44,2,5404,0)="8.0^22.0"
^XMB(3.9,44,2,5405,0)="""BLD"",925,6)"
^XMB(3.9,44,2,5406,0)="^104"
^XMB(3.9,44,2,5407,0)="$END KID HL*1.6*131"
^XMB(3.9,44,6,0)="^3.911A^2^2"
^XMB(3.9,44,6,1,0)="POSTMASTER"
^XMB(3.9,44,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,44,6,"B","POSTMASTER",1)=""
^XMB(3.9,44,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,45,0)="HL-1P6_SEQ-105_PAT-133.KID^.5^3061008.015735^^^^K"
^XMB(3.9,45,.6)="3061008"
^XMB(3.9,45,1,0)="^3.91A^2^2"
^XMB(3.9,45,1,1,0)=".5^0^3061008.015735^^^^^^^3061008.015735"
^XMB(3.9,45,1,2,0)="1^0^3061008.023245^^^^^^^3061008.023245"
^XMB(3.9,45,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,45,1,"C",.5,1)=""
^XMB(3.9,45,1,"C",1,2)=""
^XMB(3.9,45,2,0)="^^7439^7439^3061008"
^XMB(3.9,45,2,1,0)="$TXT Released HL*1.6*133 SEQ #105"
^XMB(3.9,45,2,2,0)="Extracted from mail message"
^XMB(3.9,45,2,3,0)="$END TXT"
^XMB(3.9,45,2,4,0)="$KID HL*1.6*133"
^XMB(3.9,45,2,5,0)="**INSTALL NAME**"
^XMB(3.9,45,2,6,0)="HL*1.6*133"
^XMB(3.9,45,2,7,0)="""BLD"",955,0)"
^XMB(3.9,45,2,8,0)="HL*1.6*133^HEALTH LEVEL SEVEN^0^3060913^y"
^XMB(3.9,45,2,9,0)="""BLD"",955,1,0)"
^XMB(3.9,45,2,10,0)="^^2^2^3060627^"
^XMB(3.9,45,2,11,0)="""BLD"",955,1,1,0)"
^XMB(3.9,45,2,12,0)="See the NPM for a complete description of this patch."
^XMB(3.9,45,2,13,0)="""BLD"",955,1,2,0)"
^XMB(3.9,45,2,14,0)=""
^XMB(3.9,45,2,15,0)="""BLD"",955,4,0)"
^XMB(3.9,45,2,16,0)="^9.64PA^870^1"
^XMB(3.9,45,2,17,0)="""BLD"",955,4,870,0)"
^XMB(3.9,45,2,18,0)="870"
^XMB(3.9,45,2,19,0)="""BLD"",955,4,870,2,0)"
^XMB(3.9,45,2,20,0)="^9.641^870^1"
^XMB(3.9,45,2,21,0)="""BLD"",955,4,870,2,870,0)"
^XMB(3.9,45,2,22,0)="HL LOGICAL LINK  (File-top level)"
^XMB(3.9,45,2,23,0)="""BLD"",955,4,870,2,870,1,0)"
^XMB(3.9,45,2,24,0)="^9.6411^200.022^1"
^XMB(3.9,45,2,25,0)="""BLD"",955,4,870,2,870,1,200.022,0)"
^XMB(3.9,45,2,26,0)="CLOSE BEFORE RE-TRANSMISSION"
^XMB(3.9,45,2,27,0)="""BLD"",955,4,870,222)"
^XMB(3.9,45,2,28,0)="y^n^p^^^^n^^n"
^XMB(3.9,45,2,29,0)="""BLD"",955,4,870,224)"
^XMB(3.9,45,2,30,0)=""
^XMB(3.9,45,2,31,0)="""BLD"",955,4,""APDD"",870,870)"
^XMB(3.9,45,2,32,0)=""
^XMB(3.9,45,2,33,0)="""BLD"",955,4,""APDD"",870,870,200.022)"
^XMB(3.9,45,2,34,0)=""
^XMB(3.9,45,2,35,0)="""BLD"",955,4,""B"",870,870)"
^XMB(3.9,45,2,36,0)=""
^XMB(3.9,45,2,37,0)="""BLD"",955,6.3)"
^XMB(3.9,45,2,38,0)="13"
^XMB(3.9,45,2,39,0)="""BLD"",955,""KRN"",0)"
^XMB(3.9,45,2,40,0)="^9.67PA^8989.52^19"
^XMB(3.9,45,2,41,0)="""BLD"",955,""KRN"",.4,0)"
^XMB(3.9,45,2,42,0)=".4"
^XMB(3.9,45,2,43,0)="""BLD"",955,""KRN"",.4,""NM"",0)"
^XMB(3.9,45,2,44,0)="^9.68A^^"
^XMB(3.9,45,2,45,0)="""BLD"",955,""KRN"",.401,0)"
^XMB(3.9,45,2,46,0)=".401"
^XMB(3.9,45,2,47,0)="""BLD"",955,""KRN"",.402,0)"
^XMB(3.9,45,2,48,0)=".402"
^XMB(3.9,45,2,49,0)="""BLD"",955,""KRN"",.403,0)"
^XMB(3.9,45,2,50,0)=".403"
^XMB(3.9,45,2,51,0)="""BLD"",955,""KRN"",.5,0)"
^XMB(3.9,45,2,52,0)=".5"
^XMB(3.9,45,2,53,0)="""BLD"",955,""KRN"",.84,0)"
^XMB(3.9,45,2,54,0)=".84"
^XMB(3.9,45,2,55,0)="""BLD"",955,""KRN"",3.6,0)"
^XMB(3.9,45,2,56,0)="3.6"
^XMB(3.9,45,2,57,0)="""BLD"",955,""KRN"",3.8,0)"
^XMB(3.9,45,2,58,0)="3.8"
^XMB(3.9,45,2,59,0)="""BLD"",955,""KRN"",9.2,0)"
^XMB(3.9,45,2,60,0)="9.2"
^XMB(3.9,45,2,61,0)="""BLD"",955,""KRN"",9.8,0)"
^XMB(3.9,45,2,62,0)="9.8"
^XMB(3.9,45,2,63,0)="""BLD"",955,""KRN"",9.8,""NM"",0)"
^XMB(3.9,45,2,64,0)="^9.68A^22^21"
^XMB(3.9,45,2,65,0)="""BLD"",955,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,45,2,66,0)="HLMA^^0^B41676692"
^XMB(3.9,45,2,67,0)="""BLD"",955,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,45,2,68,0)="HLMA1^^0^B8748290"
^XMB(3.9,45,2,69,0)="""BLD"",955,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,45,2,70,0)="HLCSHDR1^^0^B57541761"
^XMB(3.9,45,2,71,0)="""BLD"",955,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,45,2,72,0)="HLCSTCP3^^0^B4549114"
^XMB(3.9,45,2,73,0)="""BLD"",955,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,45,2,74,0)="HLTP^^0^B8013244"
^XMB(3.9,45,2,75,0)="""BLD"",955,""KRN"",9.8,""NM"",6,0)"
^XMB(3.9,45,2,76,0)="HLTP1^^0^B8076588"
^XMB(3.9,45,2,77,0)="""BLD"",955,""KRN"",9.8,""NM"",7,0)"
^XMB(3.9,45,2,78,0)="HLTP3^^0^B73884339"
^XMB(3.9,45,2,79,0)="""BLD"",955,""KRN"",9.8,""NM"",8,0)"
^XMB(3.9,45,2,80,0)="HLOAPI^^0^B35965894"
^XMB(3.9,45,2,81,0)="""BLD"",955,""KRN"",9.8,""NM"",9,0)"
^XMB(3.9,45,2,82,0)="HLOAPI2^^0^B37578775"
^XMB(3.9,45,2,83,0)="""BLD"",955,""KRN"",9.8,""NM"",10,0)"
^XMB(3.9,45,2,84,0)="HLCSTCP^^0^B33765852"
^XMB(3.9,45,2,85,0)="""BLD"",955,""KRN"",9.8,""NM"",11,0)"
^XMB(3.9,45,2,86,0)="HLCSTCP1^^0^B31809732"
^XMB(3.9,45,2,87,0)="""BLD"",955,""KRN"",9.8,""NM"",12,0)"
^XMB(3.9,45,2,88,0)="HLCSTCP2^^0^B63043745"
^XMB(3.9,45,2,89,0)="""BLD"",955,""KRN"",9.8,""NM"",14,0)"
^XMB(3.9,45,2,90,0)="HLTPCK1^^0^B37602285"
^XMB(3.9,45,2,91,0)="""BLD"",955,""KRN"",9.8,""NM"",15,0)"
^XMB(3.9,45,2,92,0)="HLTPCK2^^0^B40614402"
^XMB(3.9,45,2,93,0)="""BLD"",955,""KRN"",9.8,""NM"",16,0)"
^XMB(3.9,45,2,94,0)="HLTPCK2A^^0^B28058257"
^XMB(3.9,45,2,95,0)="""BLD"",955,""KRN"",9.8,""NM"",17,0)"
^XMB(3.9,45,2,96,0)="HLOPRS^^0^B30775930"
^XMB(3.9,45,2,97,0)="""BLD"",955,""KRN"",9.8,""NM"",18,0)"
^XMB(3.9,45,2,98,0)="HLOPRS1^^0^B19727557"
^XMB(3.9,45,2,99,0)="""BLD"",955,""KRN"",9.8,""NM"",19,0)"
^XMB(3.9,45,2,100,0)="HLOAPI3^^0^B43853464"
^XMB(3.9,45,2,101,0)="""BLD"",955,""KRN"",9.8,""NM"",20,0)"
^XMB(3.9,45,2,102,0)="HLTPCK2B^^0^B64470063"
^XMB(3.9,45,2,103,0)="""BLD"",955,""KRN"",9.8,""NM"",21,0)"
^XMB(3.9,45,2,104,0)="HLOCLNT2^^0^B29898713"
^XMB(3.9,45,2,105,0)="""BLD"",955,""KRN"",9.8,""NM"",22,0)"
^XMB(3.9,45,2,106,0)="HLOSRVR1^^0^B60360938"
^XMB(3.9,45,2,107,0)="""BLD"",955,""KRN"",9.8,""NM"",""B"",""HLCSHDR1"",3)"
^XMB(3.9,45,2,108,0)=""
^XMB(3.9,45,2,109,0)="""BLD"",955,""KRN"",9.8,""NM"",""B"",""HLCSTCP"",10)"
^XMB(3.9,45,2,110,0)=""
^XMB(3.9,45,2,111,0)="""BLD"",955,""KRN"",9.8,""NM"",""B"",""HLCSTCP1"",11)"
^XMB(3.9,45,2,112,0)=""
^XMB(3.9,45,2,113,0)="""BLD"",955,""KRN"",9.8,""NM"",""B"",""HLCSTCP2"",12)"
^XMB(3.9,45,2,114,0)=""
^XMB(3.9,45,2,115,0)="""BLD"",955,""KRN"",9.8,""NM"",""B"",""HLCSTCP3"",4)"
^XMB(3.9,45,2,116,0)=""
^XMB(3.9,45,2,117,0)="""BLD"",955,""KRN"",9.8,""NM"",""B"",""HLMA"",1)"
^XMB(3.9,45,2,118,0)=""
^XMB(3.9,45,2,119,0)="""BLD"",955,""KRN"",9.8,""NM"",""B"",""HLMA1"",2)"
^XMB(3.9,45,2,120,0)=""
^XMB(3.9,45,2,121,0)="""BLD"",955,""KRN"",9.8,""NM"",""B"",""HLOAPI"",8)"
^XMB(3.9,45,2,122,0)=""
^XMB(3.9,45,2,123,0)="""BLD"",955,""KRN"",9.8,""NM"",""B"",""HLOAPI2"",9)"
^XMB(3.9,45,2,124,0)=""
^XMB(3.9,45,2,125,0)="""BLD"",955,""KRN"",9.8,""NM"",""B"",""HLOAPI3"",19)"
^XMB(3.9,45,2,126,0)=""
^XMB(3.9,45,2,127,0)="""BLD"",955,""KRN"",9.8,""NM"",""B"",""HLOCLNT2"",21)"
^XMB(3.9,45,2,128,0)=""
^XMB(3.9,45,2,129,0)="""BLD"",955,""KRN"",9.8,""NM"",""B"",""HLOPRS"",17)"
^XMB(3.9,45,2,130,0)=""
^XMB(3.9,45,2,131,0)="""BLD"",955,""KRN"",9.8,""NM"",""B"",""HLOPRS1"",18)"
^XMB(3.9,45,2,132,0)=""
^XMB(3.9,45,2,133,0)="""BLD"",955,""KRN"",9.8,""NM"",""B"",""HLOSRVR1"",22)"
^XMB(3.9,45,2,134,0)=""
^XMB(3.9,45,2,135,0)="""BLD"",955,""KRN"",9.8,""NM"",""B"",""HLTP"",5)"
^XMB(3.9,45,2,136,0)=""
^XMB(3.9,45,2,137,0)="""BLD"",955,""KRN"",9.8,""NM"",""B"",""HLTP1"",6)"
^XMB(3.9,45,2,138,0)=""
^XMB(3.9,45,2,139,0)="""BLD"",955,""KRN"",9.8,""NM"",""B"",""HLTP3"",7)"
^XMB(3.9,45,2,140,0)=""
^XMB(3.9,45,2,141,0)="""BLD"",955,""KRN"",9.8,""NM"",""B"",""HLTPCK1"",14)"
^XMB(3.9,45,2,142,0)=""
^XMB(3.9,45,2,143,0)="""BLD"",955,""KRN"",9.8,""NM"",""B"",""HLTPCK2"",15)"
^XMB(3.9,45,2,144,0)=""
^XMB(3.9,45,2,145,0)="""BLD"",955,""KRN"",9.8,""NM"",""B"",""HLTPCK2A"",16)"
^XMB(3.9,45,2,146,0)=""
^XMB(3.9,45,2,147,0)="""BLD"",955,""KRN"",9.8,""NM"",""B"",""HLTPCK2B"",20)"
^XMB(3.9,45,2,148,0)=""
^XMB(3.9,45,2,149,0)="""BLD"",955,""KRN"",19,0)"
^XMB(3.9,45,2,150,0)="19"
^XMB(3.9,45,2,151,0)="""BLD"",955,""KRN"",19,""NM"",0)"
^XMB(3.9,45,2,152,0)="^9.68A^^"
^XMB(3.9,45,2,153,0)="""BLD"",955,""KRN"",19.1,0)"
^XMB(3.9,45,2,154,0)="19.1"
^XMB(3.9,45,2,155,0)="""BLD"",955,""KRN"",101,0)"
^XMB(3.9,45,2,156,0)="101"
^XMB(3.9,45,2,157,0)="""BLD"",955,""KRN"",409.61,0)"
^XMB(3.9,45,2,158,0)="409.61"
^XMB(3.9,45,2,159,0)="""BLD"",955,""KRN"",771,0)"
^XMB(3.9,45,2,160,0)="771"
^XMB(3.9,45,2,161,0)="""BLD"",955,""KRN"",870,0)"
^XMB(3.9,45,2,162,0)="870"
^XMB(3.9,45,2,163,0)="""BLD"",955,""KRN"",8989.51,0)"
^XMB(3.9,45,2,164,0)="8989.51"
^XMB(3.9,45,2,165,0)="""BLD"",955,""KRN"",8989.52,0)"
^XMB(3.9,45,2,166,0)="8989.52"
^XMB(3.9,45,2,167,0)="""BLD"",955,""KRN"",8994,0)"
^XMB(3.9,45,2,168,0)="8994"
^XMB(3.9,45,2,169,0)="""BLD"",955,""KRN"",""B"",.4,.4)"
^XMB(3.9,45,2,170,0)=""
^XMB(3.9,45,2,171,0)="""BLD"",955,""KRN"",""B"",.401,.401)"
^XMB(3.9,45,2,172,0)=""
^XMB(3.9,45,2,173,0)="""BLD"",955,""KRN"",""B"",.402,.402)"
^XMB(3.9,45,2,174,0)=""
^XMB(3.9,45,2,175,0)="""BLD"",955,""KRN"",""B"",.403,.403)"
^XMB(3.9,45,2,176,0)=""
^XMB(3.9,45,2,177,0)="""BLD"",955,""KRN"",""B"",.5,.5)"
^XMB(3.9,45,2,178,0)=""
^XMB(3.9,45,2,179,0)="""BLD"",955,""KRN"",""B"",.84,.84)"
^XMB(3.9,45,2,180,0)=""
^XMB(3.9,45,2,181,0)="""BLD"",955,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,45,2,182,0)=""
^XMB(3.9,45,2,183,0)="""BLD"",955,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,45,2,184,0)=""
^XMB(3.9,45,2,185,0)="""BLD"",955,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,45,2,186,0)=""
^XMB(3.9,45,2,187,0)="""BLD"",955,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,45,2,188,0)=""
^XMB(3.9,45,2,189,0)="""BLD"",955,""KRN"",""B"",19,19)"
^XMB(3.9,45,2,190,0)=""
^XMB(3.9,45,2,191,0)="""BLD"",955,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,45,2,192,0)=""
^XMB(3.9,45,2,193,0)="""BLD"",955,""KRN"",""B"",101,101)"
^XMB(3.9,45,2,194,0)=""
^XMB(3.9,45,2,195,0)="""BLD"",955,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,45,2,196,0)=""
^XMB(3.9,45,2,197,0)="""BLD"",955,""KRN"",""B"",771,771)"
^XMB(3.9,45,2,198,0)=""
^XMB(3.9,45,2,199,0)="""BLD"",955,""KRN"",""B"",870,870)"
^XMB(3.9,45,2,200,0)=""
^XMB(3.9,45,2,201,0)="""BLD"",955,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,45,2,202,0)=""
^XMB(3.9,45,2,203,0)="""BLD"",955,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,45,2,204,0)=""
^XMB(3.9,45,2,205,0)="""BLD"",955,""KRN"",""B"",8994,8994)"
^XMB(3.9,45,2,206,0)=""
^XMB(3.9,45,2,207,0)="""BLD"",955,""QUES"",0)"
^XMB(3.9,45,2,208,0)="^9.62^^"
^XMB(3.9,45,2,209,0)="""BLD"",955,""REQB"",0)"
^XMB(3.9,45,2,210,0)="^9.611^4^2"
^XMB(3.9,45,2,211,0)="""BLD"",955,""REQB"",3,0)"
^XMB(3.9,45,2,212,0)="HL*1.6*120^2"
^XMB(3.9,45,2,213,0)="""BLD"",955,""REQB"",4,0)"
^XMB(3.9,45,2,214,0)="HL*1.6*131^2"
^XMB(3.9,45,2,215,0)="""BLD"",955,""REQB"",""B"",""HL*1.6*120"",3)"
^XMB(3.9,45,2,216,0)=""
^XMB(3.9,45,2,217,0)="""BLD"",955,""REQB"",""B"",""HL*1.6*131"",4)"
^XMB(3.9,45,2,218,0)=""
^XMB(3.9,45,2,219,0)="""FIA"",870)"
^XMB(3.9,45,2,220,0)="HL LOGICAL LINK"
^XMB(3.9,45,2,221,0)="""FIA"",870,0)"
^XMB(3.9,45,2,222,0)="^HLCS(870,"
^XMB(3.9,45,2,223,0)="""FIA"",870,0,0)"
^XMB(3.9,45,2,224,0)="870"
^XMB(3.9,45,2,225,0)="""FIA"",870,0,1)"
^XMB(3.9,45,2,226,0)="y^n^p^^^^n^^n"
^XMB(3.9,45,2,227,0)="""FIA"",870,0,10)"
^XMB(3.9,45,2,228,0)=""
^XMB(3.9,45,2,229,0)="""FIA"",870,0,11)"
^XMB(3.9,45,2,230,0)=""
^XMB(3.9,45,2,231,0)="""FIA"",870,0,""RLRO"")"
^XMB(3.9,45,2,232,0)=""
^XMB(3.9,45,2,233,0)="""FIA"",870,0,""VR"")"
^XMB(3.9,45,2,234,0)="1.6^HL"
^XMB(3.9,45,2,235,0)="""FIA"",870,870)"
^XMB(3.9,45,2,236,0)="1"
^XMB(3.9,45,2,237,0)="""FIA"",870,870,200.022)"
^XMB(3.9,45,2,238,0)=""
^XMB(3.9,45,2,239,0)="""MBREQ"")"
^XMB(3.9,45,2,240,0)="0"
^XMB(3.9,45,2,241,0)="""PKG"",9,-1)"
^XMB(3.9,45,2,242,0)="1^1"
^XMB(3.9,45,2,243,0)="""PKG"",9,0)"
^XMB(3.9,45,2,244,0)="HEALTH LEVEL SEVEN^HL^DHCP IMPLEMENTATION OF HEALTH LEVEL SEVEN^"
^XMB(3.9,45,2,245,0)="""PKG"",9,20,0)"
^XMB(3.9,45,2,246,0)="^9.402P^^"
^XMB(3.9,45,2,247,0)="""PKG"",9,22,0)"
^XMB(3.9,45,2,248,0)="^9.49I^1^1"
^XMB(3.9,45,2,249,0)="""PKG"",9,22,1,0)"
^XMB(3.9,45,2,250,0)="1.6^2980130^2980130^6"
^XMB(3.9,45,2,251,0)="""PKG"",9,22,1,""PAH"",1,0)"
^XMB(3.9,45,2,252,0)="133^3060913"
^XMB(3.9,45,2,253,0)="""PKG"",9,22,1,""PAH"",1,1,0)"
^XMB(3.9,45,2,254,0)="^^2^2^3060913"
^XMB(3.9,45,2,255,0)="""PKG"",9,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,45,2,256,0)="See the NPM for a complete description of this patch."
^XMB(3.9,45,2,257,0)="""PKG"",9,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,45,2,258,0)=""
^XMB(3.9,45,2,259,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,45,2,260,0)="Y"
^XMB(3.9,45,2,261,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,45,2,262,0)="^D REP^XPDH"
^XMB(3.9,45,2,263,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,45,2,264,0)="Shall I write over your |FLAG| File"
^XMB(3.9,45,2,265,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,45,2,266,0)="YES"
^XMB(3.9,45,2,267,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,45,2,268,0)="D XPF1^XPDIQ"
^XMB(3.9,45,2,269,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,45,2,270,0)="Y"
^XMB(3.9,45,2,271,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,45,2,272,0)="^D DTA^XPDH"
^XMB(3.9,45,2,273,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,45,2,274,0)="Want my data |FLAG| yours"
^XMB(3.9,45,2,275,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,45,2,276,0)="YES"
^XMB(3.9,45,2,277,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,45,2,278,0)="D XPF2^XPDIQ"
^XMB(3.9,45,2,279,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,45,2,280,0)="YO"
^XMB(3.9,45,2,281,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,45,2,282,0)="^D INHIBIT^XPDH"
^XMB(3.9,45,2,283,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,45,2,284,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,45,2,285,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,45,2,286,0)="YES"
^XMB(3.9,45,2,287,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,45,2,288,0)="D XPI1^XPDIQ"
^XMB(3.9,45,2,289,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,45,2,290,0)="PO^VA(200,:EM"
^XMB(3.9,45,2,291,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,45,2,292,0)="^D MG^XPDH"
^XMB(3.9,45,2,293,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,45,2,294,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,45,2,295,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,45,2,296,0)=""
^XMB(3.9,45,2,297,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,45,2,298,0)="D XPM1^XPDIQ"
^XMB(3.9,45,2,299,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,45,2,300,0)="Y"
^XMB(3.9,45,2,301,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,45,2,302,0)="^D MENU^XPDH"
^XMB(3.9,45,2,303,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,45,2,304,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,45,2,305,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,45,2,306,0)="YES"
^XMB(3.9,45,2,307,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,45,2,308,0)="D XPO1^XPDIQ"
^XMB(3.9,45,2,309,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,45,2,310,0)="Y"
^XMB(3.9,45,2,311,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,45,2,312,0)="^D OPT^XPDH"
^XMB(3.9,45,2,313,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,45,2,314,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,45,2,315,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,45,2,316,0)="YES"
^XMB(3.9,45,2,317,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,45,2,318,0)="D XPZ1^XPDIQ"
^XMB(3.9,45,2,319,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,45,2,320,0)="Y"
^XMB(3.9,45,2,321,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,45,2,322,0)="^D RTN^XPDH"
^XMB(3.9,45,2,323,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,45,2,324,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,45,2,325,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,45,2,326,0)="NO"
^XMB(3.9,45,2,327,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,45,2,328,0)="D XPZ2^XPDIQ"
^XMB(3.9,45,2,329,0)="""RTN"")"
^XMB(3.9,45,2,330,0)="21"
^XMB(3.9,45,2,331,0)="""RTN"",""HLCSHDR1"")"
^XMB(3.9,45,2,332,0)="0^3^B57541761^B53997699"
^XMB(3.9,45,2,333,0)="""RTN"",""HLCSHDR1"",1,0)"
^XMB(3.9,45,2,334,0)="HLCSHDR1 ;SFIRMFO/RSD - Make HL7 header for TCP ;09/13/2006"
^XMB(3.9,45,2,335,0)="""RTN"",""HLCSHDR1"",2,0)"
^XMB(3.9,45,2,336,0)=" ;;1.6;HEALTH LEVEL SEVEN;**19,57,59,72,80,93,120,133**;Oct 13, 1995;Build 13"
^XMB(3.9,45,2,337,0)="""RTN"",""HLCSHDR1"",3,0)"
^XMB(3.9,45,2,338,0)=" ;Per VHA Directive 2004-038, this routine should not be modified."
^XMB(3.9,45,2,339,0)="""RTN"",""HLCSHDR1"",4,0)"
^XMB(3.9,45,2,340,0)="HEADER(IEN,CLIENT,HLERROR) ; Create an HL7 MSH segment"
^XMB(3.9,45,2,341,0)="""RTN"",""HLCSHDR1"",5,0)"
^XMB(3.9,45,2,342,0)=" ;"
^XMB(3.9,45,2,343,0)="""RTN"",""HLCSHDR1"",6,0)"
^XMB(3.9,45,2,344,0)=" ;Input  : IEN - Pointer to entry in Message Administration file (#773)"
^XMB(3.9,45,2,345,0)="""RTN"",""HLCSHDR1"",7,0)"
^XMB(3.9,45,2,346,0)=" ;               that HL7 MSH segment is being built for"
^XMB(3.9,45,2,347,0)="""RTN"",""HLCSHDR1"",8,0)"
^XMB(3.9,45,2,348,0)=" ;         CLIENT - IEN of the receiving application"
^XMB(3.9,45,2,349,0)="""RTN"",""HLCSHDR1"",9,0)"
^XMB(3.9,45,2,350,0)=" ;         HLERROR - Variable to return possible error text in"
^XMB(3.9,45,2,351,0)="""RTN"",""HLCSHDR1"",10,0)"
^XMB(3.9,45,2,352,0)=" ;                   (pass by reference - only used when needed)"
^XMB(3.9,45,2,353,0)="""RTN"",""HLCSHDR1"",11,0)"
^XMB(3.9,45,2,354,0)=" ;"
^XMB(3.9,45,2,355,0)="""RTN"",""HLCSHDR1"",12,0)"
^XMB(3.9,45,2,356,0)=" ;Output : HLHDR(1) - HL7 MSH segment"
^XMB(3.9,45,2,357,0)="""RTN"",""HLCSHDR1"",13,0)"
^XMB(3.9,45,2,358,0)=" ;         HLHDR(2) - Continuation of HL7 MSH segment (if needed)"
^XMB(3.9,45,2,359,0)="""RTN"",""HLCSHDR1"",14,0)"
^XMB(3.9,45,2,360,0)=" ;         HLHDR(3) - Continuation of HL7 MSH segment (if needed)"
^XMB(3.9,45,2,361,0)="""RTN"",""HLCSHDR1"",15,0)"
^XMB(3.9,45,2,362,0)=" ;"
^XMB(3.9,45,2,363,0)="""RTN"",""HLCSHDR1"",16,0)"
^XMB(3.9,45,2,364,0)=" ;Notes  : HLERROR will only be defined [on output] if an error occurs"
^XMB(3.9,45,2,365,0)="""RTN"",""HLCSHDR1"",17,0)"
^XMB(3.9,45,2,366,0)=" ;       : HLHDR() will not be defined [on output] if an error occurs"
^XMB(3.9,45,2,367,0)="""RTN"",""HLCSHDR1"",18,0)"
^XMB(3.9,45,2,368,0)=" ;       : HLHDR(2) & HLHDR(3) are continuation [or roll-over] nodes"
^XMB(3.9,45,2,369,0)="""RTN"",""HLCSHDR1"",19,0)"
^XMB(3.9,45,2,370,0)=" ;         and will only be used/defined when needed"
^XMB(3.9,45,2,371,0)="""RTN"",""HLCSHDR1"",20,0)"
^XMB(3.9,45,2,372,0)=" ;"
^XMB(3.9,45,2,373,0)="""RTN"",""HLCSHDR1"",21,0)"
^XMB(3.9,45,2,374,0)=" N ACKTO,ACCACK,APPACK,CHILD,CLNTAPP,CLNTFAC,CNTRY,EC,EVNTYPE,FS,HLDATE,HLHDRI,HLHDRL,HLID,HLPID,MSGTYPE,PROT,PROTS,SECURITY,SEND,SERAPP,SERFAC,TXTP,TXTP0,X,MSGEVN"
^XMB(3.9,45,2,375,0)="""RTN"",""HLCSHDR1"",22,0)"
^XMB(3.9,45,2,376,0)=" N COMFLAG ; patch HL*1.6*120"
^XMB(3.9,45,2,377,0)="""RTN"",""HLCSHDR1"",23,0)"
^XMB(3.9,45,2,378,0)=" S HLERROR="""""
^XMB(3.9,45,2,379,0)="""RTN"",""HLCSHDR1"",24,0)"
^XMB(3.9,45,2,380,0)=" S HLPARAM=$$PARAM^HLCS2"
^XMB(3.9,45,2,381,0)="""RTN"",""HLCSHDR1"",25,0)"
^XMB(3.9,45,2,382,0)=" D VAR Q:$G(HLERROR)]"""""
^XMB(3.9,45,2,383,0)="""RTN"",""HLCSHDR1"",26,0)"
^XMB(3.9,45,2,384,0)=" ; The following line commented by HL*1.6*72"
^XMB(3.9,45,2,385,0)="""RTN"",""HLCSHDR1"",27,0)"
^XMB(3.9,45,2,386,0)=" ;I $D(^HLMA(IEN)) S $P(^HLMA(IEN,0),U,13)=MSGTYPE,$P(^HLMA(IEN,0),U,14)=$G(EVNTYPE)"
^XMB(3.9,45,2,387,0)="""RTN"",""HLCSHDR1"",28,0)"
^XMB(3.9,45,2,388,0)=" ;Append event type"
^XMB(3.9,45,2,389,0)="""RTN"",""HLCSHDR1"",29,0)"
^XMB(3.9,45,2,390,0)=" I $G(EVNTYPE)]"""" S MSGTYPE=MSGTYPE_$E(EC,1)_EVNTYPE"
^XMB(3.9,45,2,391,0)="""RTN"",""HLCSHDR1"",30,0)"
^XMB(3.9,45,2,392,0)=" ;Append message structure component"
^XMB(3.9,45,2,393,0)="""RTN"",""HLCSHDR1"",31,0)"
^XMB(3.9,45,2,394,0)=" I $G(EVNTYPE)]"""",$G(MSGEVN)]"""" S MSGTYPE=MSGTYPE_$E(EC,1)_MSGEVN"
^XMB(3.9,45,2,395,0)="""RTN"",""HLCSHDR1"",32,0)"
^XMB(3.9,45,2,396,0)=" ;Build MSH array"
^XMB(3.9,45,2,397,0)="""RTN"",""HLCSHDR1"",33,0)"
^XMB(3.9,45,2,398,0)=" D RESET^HLCSHDR3 ;HL*1.6*93"
^XMB(3.9,45,2,399,0)="""RTN"",""HLCSHDR1"",34,0)"
^XMB(3.9,45,2,400,0)=" ;"
^XMB(3.9,45,2,401,0)="""RTN"",""HLCSHDR1"",35,0)"
^XMB(3.9,45,2,402,0)=" ; patch HL*1.6*120 start"
^XMB(3.9,45,2,403,0)="""RTN"",""HLCSHDR1"",36,0)"
^XMB(3.9,45,2,404,0)=" ; escape delimiters for SERAPP and CLNTAPP"
^XMB(3.9,45,2,405,0)="""RTN"",""HLCSHDR1"",37,0)"
^XMB(3.9,45,2,406,0)=" ; escape component separator if the field is not consisted"
^XMB(3.9,45,2,407,0)="""RTN"",""HLCSHDR1"",38,0)"
^XMB(3.9,45,2,408,0)=" ; of 3 components"
^XMB(3.9,45,2,409,0)="""RTN"",""HLCSHDR1"",39,0)"
^XMB(3.9,45,2,410,0)=" S EC(1)=$E(EC,1)"
^XMB(3.9,45,2,411,0)="""RTN"",""HLCSHDR1"",40,0)"
^XMB(3.9,45,2,412,0)=" S EC(2)=$E(EC,2)"
^XMB(3.9,45,2,413,0)="""RTN"",""HLCSHDR1"",41,0)"
^XMB(3.9,45,2,414,0)=" S EC(3)=$E(EC,3)"
^XMB(3.9,45,2,415,0)="""RTN"",""HLCSHDR1"",42,0)"
^XMB(3.9,45,2,416,0)=" S EC(4)=$E(EC,4)"
^XMB(3.9,45,2,417,0)="""RTN"",""HLCSHDR1"",43,0)"
^XMB(3.9,45,2,418,0)=" S COMFLAG=1"
^XMB(3.9,45,2,419,0)="""RTN"",""HLCSHDR1"",44,0)"
^XMB(3.9,45,2,420,0)=" I $L(SERAPP,$E(EC,1))=3 S COMFLAG=0"
^XMB(3.9,45,2,421,0)="""RTN"",""HLCSHDR1"",45,0)"
^XMB(3.9,45,2,422,0)=" I (SERAPP[FS)!(SERAPP[EC(1))!(SERAPP[EC(2))!(SERAPP[EC(3))!(SERAPP[EC(4)) D"
^XMB(3.9,45,2,423,0)="""RTN"",""HLCSHDR1"",46,0)"
^XMB(3.9,45,2,424,0)=" . S SERAPP=$$ESCAPE(SERAPP,COMFLAG)"
^XMB(3.9,45,2,425,0)="""RTN"",""HLCSHDR1"",47,0)"
^XMB(3.9,45,2,426,0)=" S COMFLAG=1"
^XMB(3.9,45,2,427,0)="""RTN"",""HLCSHDR1"",48,0)"
^XMB(3.9,45,2,428,0)=" I $L(CLNTAPP,$E(EC,1))=3 S COMFLAG=0"
^XMB(3.9,45,2,429,0)="""RTN"",""HLCSHDR1"",49,0)"
^XMB(3.9,45,2,430,0)=" I (CLNTAPP[FS)!(CLNTAPP[EC(1))!(CLNTAPP[EC(2))!(CLNTAPP[EC(3))!(CLNTAPP[EC(4)) D"
^XMB(3.9,45,2,431,0)="""RTN"",""HLCSHDR1"",50,0)"
^XMB(3.9,45,2,432,0)=" . S CLNTAPP=$$ESCAPE(CLNTAPP,COMFLAG)"
^XMB(3.9,45,2,433,0)="""RTN"",""HLCSHDR1"",51,0)"
^XMB(3.9,45,2,434,0)=" ; patch HL*1.6*120 end"
^XMB(3.9,45,2,435,0)="""RTN"",""HLCSHDR1"",52,0)"
^XMB(3.9,45,2,436,0)=" ;"
^XMB(3.9,45,2,437,0)="""RTN"",""HLCSHDR1"",53,0)"
^XMB(3.9,45,2,438,0)=" S HLHDRI=1,HLHDR(1)=""MSH""_FS_EC_FS_SERAPP,HLHDRL=$L(HLHDR(1))"
^XMB(3.9,45,2,439,0)="""RTN"",""HLCSHDR1"",54,0)"
^XMB(3.9,45,2,440,0)=" F X=SERFAC,CLNTAPP,CLNTFAC,HLDATE,SECURITY,MSGTYPE,HLID,HLPID,$P(PROT,U,9),"""",$G(^HL(772,TXTP,1)),ACCACK,APPACK,CNTRY D MSH(X)"
^XMB(3.9,45,2,441,0)="""RTN"",""HLCSHDR1"",55,0)"
^XMB(3.9,45,2,442,0)=" ;in preceeding line, """" is for sequence number - not supported"
^XMB(3.9,45,2,443,0)="""RTN"",""HLCSHDR1"",56,0)"
^XMB(3.9,45,2,444,0)=" Q"
^XMB(3.9,45,2,445,0)="""RTN"",""HLCSHDR1"",57,0)"
^XMB(3.9,45,2,446,0)=" ;"
^XMB(3.9,45,2,447,0)="""RTN"",""HLCSHDR1"",58,0)"
^XMB(3.9,45,2,448,0)="MSH(X) ;add X to HLHDR"
^XMB(3.9,45,2,449,0)="""RTN"",""HLCSHDR1"",59,0)"
^XMB(3.9,45,2,450,0)=" S:HLHDRL+$L(X)>245 HLHDRI=HLHDRI+1,HLHDR(HLHDRI)="""""
^XMB(3.9,45,2,451,0)="""RTN"",""HLCSHDR1"",60,0)"
^XMB(3.9,45,2,452,0)=" S HLHDR(HLHDRI)=HLHDR(HLHDRI)_FS_X,HLHDRL=$L(HLHDR(HLHDRI))"
^XMB(3.9,45,2,453,0)="""RTN"",""HLCSHDR1"",61,0)"
^XMB(3.9,45,2,454,0)=" Q"
^XMB(3.9,45,2,455,0)="""RTN"",""HLCSHDR1"",62,0)"
^XMB(3.9,45,2,456,0)="BHSHDR(IEN,CLIENT,HLERROR) ; Create Batch Header Segment"
^XMB(3.9,45,2,457,0)="""RTN"",""HLCSHDR1"",63,0)"
^XMB(3.9,45,2,458,0)=" ; The BHS has 12 segments, of which 4 are blank."
^XMB(3.9,45,2,459,0)="""RTN"",""HLCSHDR1"",64,0)"
^XMB(3.9,45,2,460,0)=" ; INPUT: IEN - IEN of entry in file #772"
^XMB(3.9,45,2,461,0)="""RTN"",""HLCSHDR1"",65,0)"
^XMB(3.9,45,2,462,0)=" ; OUTPUT: HLHDR(1) and HLHDR(2) - the two lines with the 12 segs."
^XMB(3.9,45,2,463,0)="""RTN"",""HLCSHDR1"",66,0)"
^XMB(3.9,45,2,464,0)=" ;   ready for adding to a message directly."
^XMB(3.9,45,2,465,0)="""RTN"",""HLCSHDR1"",67,0)"
^XMB(3.9,45,2,466,0)=" N ACKTO,ACCACK,ACKMID,APPACK,BNAME,BSTATUS,BTACK,CHILD,CLNTAPP ;HL*1.6*80"
^XMB(3.9,45,2,467,0)="""RTN"",""HLCSHDR1"",68,0)"
^XMB(3.9,45,2,468,0)=" N CLNTFAC,CNTRY,EC,EVNTYPE,FS,HLDATE,HLHDRI,HLHDRL,HLID,HLPID ;HL*1.6*80 - added HLPID"
^XMB(3.9,45,2,469,0)="""RTN"",""HLCSHDR1"",69,0)"
^XMB(3.9,45,2,470,0)=" N PROT,PROTS,SECURITY,SEND,SERAPP,SERFAC,TXTP,TXTP0,X ;HL*1.6*80"
^XMB(3.9,45,2,471,0)="""RTN"",""HLCSHDR1"",70,0)"
^XMB(3.9,45,2,472,0)=" N COMFLAG ; patch HL*1.6*120"
^XMB(3.9,45,2,473,0)="""RTN"",""HLCSHDR1"",71,0)"
^XMB(3.9,45,2,474,0)=" S HLERROR="""""
^XMB(3.9,45,2,475,0)="""RTN"",""HLCSHDR1"",72,0)"
^XMB(3.9,45,2,476,0)=" ;"
^XMB(3.9,45,2,477,0)="""RTN"",""HLCSHDR1"",73,0)"
^XMB(3.9,45,2,478,0)=" S HLPARAM=$$PARAM^HLCS2"
^XMB(3.9,45,2,479,0)="""RTN"",""HLCSHDR1"",74,0)"
^XMB(3.9,45,2,480,0)=" D VAR Q:$G(HLERROR)]"""""
^XMB(3.9,45,2,481,0)="""RTN"",""HLCSHDR1"",75,0)"
^XMB(3.9,45,2,482,0)=" ; The following line commented by HL*1.6*72"
^XMB(3.9,45,2,483,0)="""RTN"",""HLCSHDR1"",76,0)"
^XMB(3.9,45,2,484,0)=" ;I $D(^HLMA(IEN)) S $P(^HLMA(IEN,0),U,13)=MSGTYPE,$P(^HLMA(IEN,0),U,14)=$G(EVNTYPE)"
^XMB(3.9,45,2,485,0)="""RTN"",""HLCSHDR1"",77,0)"
^XMB(3.9,45,2,486,0)=" ;"
^XMB(3.9,45,2,487,0)="""RTN"",""HLCSHDR1"",78,0)"
^XMB(3.9,45,2,488,0)=" ;Append event type"
^XMB(3.9,45,2,489,0)="""RTN"",""HLCSHDR1"",79,0)"
^XMB(3.9,45,2,490,0)=" I $G(EVNTYPE)]"""" S MSGTYPE=MSGTYPE_$E(EC,2)_EVNTYPE,(ACKMID,BTACK)="""""
^XMB(3.9,45,2,491,0)="""RTN"",""HLCSHDR1"",80,0)"
^XMB(3.9,45,2,492,0)=" ;batch/name/id/type(#9)=null~process ID~msg type|evnt type~version~CA~AA"
^XMB(3.9,45,2,493,0)="""RTN"",""HLCSHDR1"",81,0)"
^XMB(3.9,45,2,494,0)=" S BNAME=$E(EC,1)_HLPID_$E(EC,1)_MSGTYPE_$E(EC,1)_$P(PROT,U,9)_$E(EC,1)_ACCACK_$E(EC,1)_APPACK ;HL*1.6*80"
^XMB(3.9,45,2,495,0)="""RTN"",""HLCSHDR1"",82,0)"
^XMB(3.9,45,2,496,0)=" ;for batch ACK"
^XMB(3.9,45,2,497,0)="""RTN"",""HLCSHDR1"",83,0)"
^XMB(3.9,45,2,498,0)=" I ACKTO D  S BTACK=X_$E(EC,1)_$P(BSTATUS,U,3)"
^XMB(3.9,45,2,499,0)="""RTN"",""HLCSHDR1"",84,0)"
^XMB(3.9,45,2,500,0)=" . ;get msg id and status of message that is being ACKed"
^XMB(3.9,45,2,501,0)="""RTN"",""HLCSHDR1"",85,0)"
^XMB(3.9,45,2,502,0)=" . S ACKMID=$P($G(^HLMA(ACKTO,0)),U,2),BSTATUS=$G(^HLMA(ACKTO,""P"")) ;HL*1.6*80"
^XMB(3.9,45,2,503,0)="""RTN"",""HLCSHDR1"",86,0)"
^XMB(3.9,45,2,504,0)=" . ;set type of ACK based on status"
^XMB(3.9,45,2,505,0)="""RTN"",""HLCSHDR1"",87,0)"
^XMB(3.9,45,2,506,0)=" . S X=$S(ACKMID="""":""AR"",(BSTATUS>3)&(BSTATUS<8):""AE"",1:""AA"")"
^XMB(3.9,45,2,507,0)="""RTN"",""HLCSHDR1"",88,0)"
^XMB(3.9,45,2,508,0)=" ;"
^XMB(3.9,45,2,509,0)="""RTN"",""HLCSHDR1"",89,0)"
^XMB(3.9,45,2,510,0)=" D RESET^HLCSHDR3 ;HL*1.6*93"
^XMB(3.9,45,2,511,0)="""RTN"",""HLCSHDR1"",90,0)"
^XMB(3.9,45,2,512,0)=" ;"
^XMB(3.9,45,2,513,0)="""RTN"",""HLCSHDR1"",91,0)"
^XMB(3.9,45,2,514,0)=" ; patch HL*1.6*120 start"
^XMB(3.9,45,2,515,0)="""RTN"",""HLCSHDR1"",92,0)"
^XMB(3.9,45,2,516,0)=" ; escape delimiters for SERAPP and CLNTAPP"
^XMB(3.9,45,2,517,0)="""RTN"",""HLCSHDR1"",93,0)"
^XMB(3.9,45,2,518,0)=" ; escape component separator if the field is not consisted"
^XMB(3.9,45,2,519,0)="""RTN"",""HLCSHDR1"",94,0)"
^XMB(3.9,45,2,520,0)=" ; of 3 components"
^XMB(3.9,45,2,521,0)="""RTN"",""HLCSHDR1"",95,0)"
^XMB(3.9,45,2,522,0)=" S EC(1)=$E(EC,1)"
^XMB(3.9,45,2,523,0)="""RTN"",""HLCSHDR1"",96,0)"
^XMB(3.9,45,2,524,0)=" S EC(2)=$E(EC,2)"
^XMB(3.9,45,2,525,0)="""RTN"",""HLCSHDR1"",97,0)"
^XMB(3.9,45,2,526,0)=" S EC(3)=$E(EC,3)"
^XMB(3.9,45,2,527,0)="""RTN"",""HLCSHDR1"",98,0)"
^XMB(3.9,45,2,528,0)=" S EC(4)=$E(EC,4)"
^XMB(3.9,45,2,529,0)="""RTN"",""HLCSHDR1"",99,0)"
^XMB(3.9,45,2,530,0)=" S COMFLAG=1"
^XMB(3.9,45,2,531,0)="""RTN"",""HLCSHDR1"",100,0)"
^XMB(3.9,45,2,532,0)=" I $L(SERAPP,$E(EC,1))=3 S COMFLAG=0"
^XMB(3.9,45,2,533,0)="""RTN"",""HLCSHDR1"",101,0)"
^XMB(3.9,45,2,534,0)=" I (SERAPP[FS)!(SERAPP[EC(1))!(SERAPP[EC(2))!(SERAPP[EC(3))!(SERAPP[EC(4)) D"
^XMB(3.9,45,2,535,0)="""RTN"",""HLCSHDR1"",102,0)"
^XMB(3.9,45,2,536,0)=" . S SERAPP=$$ESCAPE(SERAPP,COMFLAG)"
^XMB(3.9,45,2,537,0)="""RTN"",""HLCSHDR1"",103,0)"
^XMB(3.9,45,2,538,0)=" S COMFLAG=1"
^XMB(3.9,45,2,539,0)="""RTN"",""HLCSHDR1"",104,0)"
^XMB(3.9,45,2,540,0)=" I $L(CLNTAPP,$E(EC,1))=3 S COMFLAG=0"
^XMB(3.9,45,2,541,0)="""RTN"",""HLCSHDR1"",105,0)"
^XMB(3.9,45,2,542,0)=" I (CLNTAPP[FS)!(CLNTAPP[EC(1))!(CLNTAPP[EC(2))!(CLNTAPP[EC(3))!(CLNTAPP[EC(4)) D"
^XMB(3.9,45,2,543,0)="""RTN"",""HLCSHDR1"",106,0)"
^XMB(3.9,45,2,544,0)=" . S CLNTAPP=$$ESCAPE(CLNTAPP,COMFLAG)"
^XMB(3.9,45,2,545,0)="""RTN"",""HLCSHDR1"",107,0)"
^XMB(3.9,45,2,546,0)=" ; patch HL*1.6*120 end"
^XMB(3.9,45,2,547,0)="""RTN"",""HLCSHDR1"",108,0)"
^XMB(3.9,45,2,548,0)=" ;"
^XMB(3.9,45,2,549,0)="""RTN"",""HLCSHDR1"",109,0)"
^XMB(3.9,45,2,550,0)=" S HLHDRI=1,HLHDR(1)=""BHS""_FS_EC_FS_SERAPP,HLHDRL=$L(HLHDR(1))"
^XMB(3.9,45,2,551,0)="""RTN"",""HLCSHDR1"",110,0)"
^XMB(3.9,45,2,552,0)=" F X=SERFAC,CLNTAPP,CLNTFAC,HLDATE,SECURITY,BNAME,BTACK,HLID,ACKMID D MSH(X)"
^XMB(3.9,45,2,553,0)="""RTN"",""HLCSHDR1"",111,0)"
^XMB(3.9,45,2,554,0)=" Q"
^XMB(3.9,45,2,555,0)="""RTN"",""HLCSHDR1"",112,0)"
^XMB(3.9,45,2,556,0)="VAR ;Check input"
^XMB(3.9,45,2,557,0)="""RTN"",""HLCSHDR1"",113,0)"
^XMB(3.9,45,2,558,0)=" N APPPRM,HLPROTS,HLPROT"
^XMB(3.9,45,2,559,0)="""RTN"",""HLCSHDR1"",114,0)"
^XMB(3.9,45,2,560,0)=" S IEN=+$G(IEN)"
^XMB(3.9,45,2,561,0)="""RTN"",""HLCSHDR1"",115,0)"
^XMB(3.9,45,2,562,0)=" I '$G(^HLMA(IEN,0)) S HLERROR=""Valid pointer to Message Administration file (#772) not passed"" Q"
^XMB(3.9,45,2,563,0)="""RTN"",""HLCSHDR1"",116,0)"
^XMB(3.9,45,2,564,0)=" I '$G(CLIENT) S HLERROR=""Could not determine receiving application"" Q"
^XMB(3.9,45,2,565,0)="""RTN"",""HLCSHDR1"",117,0)"
^XMB(3.9,45,2,566,0)=" ;Get child, text pointer,text entry, and sending app."
^XMB(3.9,45,2,567,0)="""RTN"",""HLCSHDR1"",118,0)"
^XMB(3.9,45,2,568,0)=" S CHILD=$G(^HLMA(IEN,0)),SEND=+$P($G(^(0)),U,11),TXTP=+CHILD,TXTP0=$G(^HL(772,TXTP,0))"
^XMB(3.9,45,2,569,0)="""RTN"",""HLCSHDR1"",119,0)"
^XMB(3.9,45,2,570,0)=" I ('SEND) S HLERROR=""Could not determine sending application"" Q"
^XMB(3.9,45,2,571,0)="""RTN"",""HLCSHDR1"",120,0)"
^XMB(3.9,45,2,572,0)=" ;Get info for sending & receiving applications"
^XMB(3.9,45,2,573,0)="""RTN"",""HLCSHDR1"",121,0)"
^XMB(3.9,45,2,574,0)=" D APPPRM^HLUTIL2(CLIENT),APPPRM^HLUTIL2(SEND)"
^XMB(3.9,45,2,575,0)="""RTN"",""HLCSHDR1"",122,0)"
^XMB(3.9,45,2,576,0)=" ;Get name of sending application, facility, and country"
^XMB(3.9,45,2,577,0)="""RTN"",""HLCSHDR1"",123,0)"
^XMB(3.9,45,2,578,0)=" S SERAPP=$P(APPPRM(SEND,0),U),SERFAC=$P(APPPRM(SEND,0),U,2),CNTRY=$P(APPPRM(SEND,0),U,3)"
^XMB(3.9,45,2,579,0)="""RTN"",""HLCSHDR1"",124,0)"
^XMB(3.9,45,2,580,0)=" ;Get name of receiving application and facility"
^XMB(3.9,45,2,581,0)="""RTN"",""HLCSHDR1"",125,0)"
^XMB(3.9,45,2,582,0)=" S CLNTAPP=$P(APPPRM(CLIENT,0),U),CLNTFAC=$P(APPPRM(CLIENT,0),U,2)"
^XMB(3.9,45,2,583,0)="""RTN"",""HLCSHDR1"",126,0)"
^XMB(3.9,45,2,584,0)=" ;"
^XMB(3.9,45,2,585,0)="""RTN"",""HLCSHDR1"",127,0)"
^XMB(3.9,45,2,586,0)=" ; patch HL*1.6*120"
^XMB(3.9,45,2,587,0)="""RTN"",""HLCSHDR1"",128,0)"
^XMB(3.9,45,2,588,0)=" ; for dynamic addressing, overide the receiving facility from the"
^XMB(3.9,45,2,589,0)="""RTN"",""HLCSHDR1"",129,0)"
^XMB(3.9,45,2,590,0)=" ; 3rd component of HLL(""LINKS"") array"
^XMB(3.9,45,2,591,0)="""RTN"",""HLCSHDR1"",130,0)"
^XMB(3.9,45,2,592,0)=" I $G(HLP(""REC-FACILITY""))]"""" S CLNTFAC=HLP(""REC-FACILITY"")"
^XMB(3.9,45,2,593,0)="""RTN"",""HLCSHDR1"",131,0)"
^XMB(3.9,45,2,594,0)=" ;"
^XMB(3.9,45,2,595,0)="""RTN"",""HLCSHDR1"",132,0)"
^XMB(3.9,45,2,596,0)=" ;Get field separator & encoding characters"
^XMB(3.9,45,2,597,0)="""RTN"",""HLCSHDR1"",133,0)"
^XMB(3.9,45,2,598,0)=" S FS=APPPRM(SEND,""FS""),EC=APPPRM(SEND,""EC"")"
^XMB(3.9,45,2,599,0)="""RTN"",""HLCSHDR1"",134,0)"
^XMB(3.9,45,2,600,0)=" S:(EC="""") EC=""~|\&"" S:(FS="""") FS=""^"""
^XMB(3.9,45,2,601,0)="""RTN"",""HLCSHDR1"",135,0)"
^XMB(3.9,45,2,602,0)=" ;Determine if it's a response/ACK to another message"
^XMB(3.9,45,2,603,0)="""RTN"",""HLCSHDR1"",136,0)"
^XMB(3.9,45,2,604,0)=" S ACKTO=+$P(CHILD,U,10)"
^XMB(3.9,45,2,605,0)="""RTN"",""HLCSHDR1"",137,0)"
^XMB(3.9,45,2,606,0)=" ;subscriber protocol is from child (file 773)"
^XMB(3.9,45,2,607,0)="""RTN"",""HLCSHDR1"",138,0)"
^XMB(3.9,45,2,608,0)=" ;If response, get MType from subscriber"
^XMB(3.9,45,2,609,0)="""RTN"",""HLCSHDR1"",139,0)"
^XMB(3.9,45,2,610,0)=" S HLPROTS=+$P(CHILD,U,8)"
^XMB(3.9,45,2,611,0)="""RTN"",""HLCSHDR1"",140,0)"
^XMB(3.9,45,2,612,0)=" S PROTS=$$TYPE^HLUTIL2(HLPROTS)"
^XMB(3.9,45,2,613,0)="""RTN"",""HLCSHDR1"",141,0)"
^XMB(3.9,45,2,614,0)=" I ACKTO S MSGTYPE=$P(PROTS,U,10),EVNTYPE=$P(PROTS,U,3),MSGEVN=$P(PROTS,U,4)"
^XMB(3.9,45,2,615,0)="""RTN"",""HLCSHDR1"",142,0)"
^XMB(3.9,45,2,616,0)=" ;Get accept ack & application ack type (based on server protocol) it"
^XMB(3.9,45,2,617,0)="""RTN"",""HLCSHDR1"",143,0)"
^XMB(3.9,45,2,618,0)=" ; is always in file 772, TXPT0"
^XMB(3.9,45,2,619,0)="""RTN"",""HLCSHDR1"",144,0)"
^XMB(3.9,45,2,620,0)=" ;If original message, get MT from Event Driver Protocol"
^XMB(3.9,45,2,621,0)="""RTN"",""HLCSHDR1"",145,0)"
^XMB(3.9,45,2,622,0)=" S HLPROT=+$P(TXTP0,U,10)"
^XMB(3.9,45,2,623,0)="""RTN"",""HLCSHDR1"",146,0)"
^XMB(3.9,45,2,624,0)=" S PROT=$$TYPE^HLUTIL2(HLPROT)"
^XMB(3.9,45,2,625,0)="""RTN"",""HLCSHDR1"",147,0)"
^XMB(3.9,45,2,626,0)=" S:'ACKTO MSGTYPE=$P(PROT,U,2),EVNTYPE=$P(PROT,U,3),MSGEVN=$P(PROT,U,4)"
^XMB(3.9,45,2,627,0)="""RTN"",""HLCSHDR1"",148,0)"
^XMB(3.9,45,2,628,0)=" S ACCACK=$P(PROT,U,7),APPACK=$P(PROT,U,8)"
^XMB(3.9,45,2,629,0)="""RTN"",""HLCSHDR1"",149,0)"
^XMB(3.9,45,2,630,0)="PID ;Processing ID"
^XMB(3.9,45,2,631,0)="""RTN"",""HLCSHDR1"",150,0)"
^XMB(3.9,45,2,632,0)=" ;I PID not 'debug' get from site params"
^XMB(3.9,45,2,633,0)="""RTN"",""HLCSHDR1"",151,0)"
^XMB(3.9,45,2,634,0)=" ;If event driver set to 'debug' get from protocol"
^XMB(3.9,45,2,635,0)="""RTN"",""HLCSHDR1"",152,0)"
^XMB(3.9,45,2,636,0)=" ;'production' or 'training' comes from site params"
^XMB(3.9,45,2,637,0)="""RTN"",""HLCSHDR1"",153,0)"
^XMB(3.9,45,2,638,0)=" S HLPID=$P(PROT,U,5)"
^XMB(3.9,45,2,639,0)="""RTN"",""HLCSHDR1"",154,0)"
^XMB(3.9,45,2,640,0)=" I $G(HLPID)'=""D"" S HLPID=$P(HLPARAM,U,3)"
^XMB(3.9,45,2,641,0)="""RTN"",""HLCSHDR1"",155,0)"
^XMB(3.9,45,2,642,0)=" ;"
^XMB(3.9,45,2,643,0)="""RTN"",""HLCSHDR1"",156,0)"
^XMB(3.9,45,2,644,0)=" ; patch HL*1.6*120: to include processing mode"
^XMB(3.9,45,2,645,0)="""RTN"",""HLCSHDR1"",157,0)"
^XMB(3.9,45,2,646,0)=" I $G(HLP(""PMOD""))]"""",($G(HLTYPE)=""M"") D"
^XMB(3.9,45,2,647,0)="""RTN"",""HLCSHDR1"",158,0)"
^XMB(3.9,45,2,648,0)=" . S HLPID=HLPID_$E($G(EC),1)_HLP(""PMOD"")"
^XMB(3.9,45,2,649,0)="""RTN"",""HLCSHDR1"",159,0)"
^XMB(3.9,45,2,650,0)=" ;"
^XMB(3.9,45,2,651,0)="""RTN"",""HLCSHDR1"",160,0)"
^XMB(3.9,45,2,652,0)=" I $G(HLPID)="""" S HLERROR=""Missing processing ID Site parameter."""
^XMB(3.9,45,2,653,0)="""RTN"",""HLCSHDR1"",161,0)"
^XMB(3.9,45,2,654,0)=" ;acknowledgements have no application ack, link open no commit ack"
^XMB(3.9,45,2,655,0)="""RTN"",""HLCSHDR1"",162,0)"
^XMB(3.9,45,2,656,0)=" I ACKTO S:APPACK]"""" APPACK=""NE"" S:ACCACK]""""&$G(HLTCPO) ACCACK=""NE"""
^XMB(3.9,45,2,657,0)="""RTN"",""HLCSHDR1"",163,0)"
^XMB(3.9,45,2,658,0)=" ;Get date/time, Message ID, and security"
^XMB(3.9,45,2,659,0)="""RTN"",""HLCSHDR1"",164,0)"
^XMB(3.9,45,2,660,0)=" S HLDATE=+TXTP0,HLDATE=$$FMTHL7^XLFDT(HLDATE),HLID=$P(CHILD,U,2),SECURITY=$P(CHILD,U,9)"
^XMB(3.9,45,2,661,0)="""RTN"",""HLCSHDR1"",165,0)"
^XMB(3.9,45,2,662,0)="HDR23 ;generate extended facility field info based on 'facility required'"
^XMB(3.9,45,2,663,0)="""RTN"",""HLCSHDR1"",166,0)"
^XMB(3.9,45,2,664,0)=" ;default format is INSTITUTION_HLCS_DOMAIN_HLCS_'DNS'"
^XMB(3.9,45,2,665,0)="""RTN"",""HLCSHDR1"",167,0)"
^XMB(3.9,45,2,666,0)=" ;application parameter entry overrides default"
^XMB(3.9,45,2,667,0)="""RTN"",""HLCSHDR1"",168,0)"
^XMB(3.9,45,2,668,0)=" N HLEP773,HLS773"
^XMB(3.9,45,2,669,0)="""RTN"",""HLCSHDR1"",169,0)"
^XMB(3.9,45,2,670,0)=" S SERFAC=$G(SERFAC),CLNTFAC=$G(CLNTFAC)"
^XMB(3.9,45,2,671,0)="""RTN"",""HLCSHDR1"",170,0)"
^XMB(3.9,45,2,672,0)=" S HLEP773=+$G(^ORD(101,HLPROTS,773))"
^XMB(3.9,45,2,673,0)="""RTN"",""HLCSHDR1"",171,0)"
^XMB(3.9,45,2,674,0)=" S HLS773=+$P($G(^ORD(101,HLPROTS,773)),U,2)"
^XMB(3.9,45,2,675,0)="""RTN"",""HLCSHDR1"",172,0)"
^XMB(3.9,45,2,676,0)=" Q:'HLEP773&('HLS773)"
^XMB(3.9,45,2,677,0)="""RTN"",""HLCSHDR1"",173,0)"
^XMB(3.9,45,2,678,0)=" D GEN^HLCSHDR2"
^XMB(3.9,45,2,679,0)="""RTN"",""HLCSHDR1"",174,0)"
^XMB(3.9,45,2,680,0)=" I ACKTO D  Q"
^XMB(3.9,45,2,681,0)="""RTN"",""HLCSHDR1"",175,0)"
^XMB(3.9,45,2,682,0)=" .;Find original message"
^XMB(3.9,45,2,683,0)="""RTN"",""HLCSHDR1"",176,0)"
^XMB(3.9,45,2,684,0)=" .S X=$G(^HLMA(ACKTO,""MSH"",1,0)) ;Find header in TCP nodes"
^XMB(3.9,45,2,685,0)="""RTN"",""HLCSHDR1"",177,0)"
^XMB(3.9,45,2,686,0)=" .I X[""MSH"" D"
^XMB(3.9,45,2,687,0)="""RTN"",""HLCSHDR1"",178,0)"
^XMB(3.9,45,2,688,0)=" ..;"
^XMB(3.9,45,2,689,0)="""RTN"",""HLCSHDR1"",179,0)"
^XMB(3.9,45,2,690,0)=" ..; patch HL*1.6*120 start"
^XMB(3.9,45,2,691,0)="""RTN"",""HLCSHDR1"",180,0)"
^XMB(3.9,45,2,692,0)=" .. N HLEC"
^XMB(3.9,45,2,693,0)="""RTN"",""HLCSHDR1"",181,0)"
^XMB(3.9,45,2,694,0)=" ..S HLFS=$E(X,4),HLEC=$E(X,5)"
^XMB(3.9,45,2,695,0)="""RTN"",""HLCSHDR1"",182,0)"
^XMB(3.9,45,2,696,0)=" ..S SENDFAC=$P(X,HLFS,4),RECFAC=$P(X,HLFS,6) ;from original msg"
^XMB(3.9,45,2,697,0)="""RTN"",""HLCSHDR1"",183,0)"
^XMB(3.9,45,2,698,0)=" ..S CLNTFAC=SENDFAC,SERFAC=RECFAC ;reverse facility info"
^XMB(3.9,45,2,699,0)="""RTN"",""HLCSHDR1"",184,0)"
^XMB(3.9,45,2,700,0)=" ..S EC(""COMPONENT"")=$E($G(EC),1)"
^XMB(3.9,45,2,701,0)="""RTN"",""HLCSHDR1"",185,0)"
^XMB(3.9,45,2,702,0)=" ..I $L(EC(""COMPONENT""))=1,$L(HLEC)=1,EC(""COMPONENT"")'=HLEC D"
^XMB(3.9,45,2,703,0)="""RTN"",""HLCSHDR1"",186,0)"
^XMB(3.9,45,2,704,0)=" ... ; change the the component separator in the sending and"
^XMB(3.9,45,2,705,0)="""RTN"",""HLCSHDR1"",187,0)"
^XMB(3.9,45,2,706,0)=" ... ; receiving facilities for the outgoing message"
^XMB(3.9,45,2,707,0)="""RTN"",""HLCSHDR1"",188,0)"
^XMB(3.9,45,2,708,0)=" ... S CLNTFAC=$TR(CLNTFAC,HLEC,EC(""COMPONENT""))"
^XMB(3.9,45,2,709,0)="""RTN"",""HLCSHDR1"",189,0)"
^XMB(3.9,45,2,710,0)=" ... S SERFAC=$TR(SERFAC,HLEC,EC(""COMPONENT""))"
^XMB(3.9,45,2,711,0)="""RTN"",""HLCSHDR1"",190,0)"
^XMB(3.9,45,2,712,0)=" ; patch HL*1.6*120 end"
^XMB(3.9,45,2,713,0)="""RTN"",""HLCSHDR1"",191,0)"
^XMB(3.9,45,2,714,0)=" ;"
^XMB(3.9,45,2,715,0)="""RTN"",""HLCSHDR1"",192,0)"
^XMB(3.9,45,2,716,0)=" I HLEP773,SERFAC="""" D EP^HLCSHDR2"
^XMB(3.9,45,2,717,0)="""RTN"",""HLCSHDR1"",193,0)"
^XMB(3.9,45,2,718,0)=" I HLS773,CLNTFAC="""" D S^HLCSHDR2"
^XMB(3.9,45,2,719,0)="""RTN"",""HLCSHDR1"",194,0)"
^XMB(3.9,45,2,720,0)=" Q"
^XMB(3.9,45,2,721,0)="""RTN"",""HLCSHDR1"",195,0)"
^XMB(3.9,45,2,722,0)=" ;"
^XMB(3.9,45,2,723,0)="""RTN"",""HLCSHDR1"",196,0)"
^XMB(3.9,45,2,724,0)="ESCAPE(INPUT,COMPONET) ;"
^XMB(3.9,45,2,725,0)="""RTN"",""HLCSHDR1"",197,0)"
^XMB(3.9,45,2,726,0)=" ; patch HL*1.6*120 - escape delimiters:"
^XMB(3.9,45,2,727,0)="""RTN"",""HLCSHDR1"",198,0)"
^XMB(3.9,45,2,728,0)=" ; - field separator"
^XMB(3.9,45,2,729,0)="""RTN"",""HLCSHDR1"",199,0)"
^XMB(3.9,45,2,730,0)=" ; - component separator"
^XMB(3.9,45,2,731,0)="""RTN"",""HLCSHDR1"",200,0)"
^XMB(3.9,45,2,732,0)=" ; - repetition separator"
^XMB(3.9,45,2,733,0)="""RTN"",""HLCSHDR1"",201,0)"
^XMB(3.9,45,2,734,0)=" ; - escape character"
^XMB(3.9,45,2,735,0)="""RTN"",""HLCSHDR1"",202,0)"
^XMB(3.9,45,2,736,0)=" ; - subcomponent separator"
^XMB(3.9,45,2,737,0)="""RTN"",""HLCSHDR1"",203,0)"
^XMB(3.9,45,2,738,0)=" ;"
^XMB(3.9,45,2,739,0)="""RTN"",""HLCSHDR1"",204,0)"
^XMB(3.9,45,2,740,0)=" ; input: "
^XMB(3.9,45,2,741,0)="""RTN"",""HLCSHDR1"",205,0)"
^XMB(3.9,45,2,742,0)=" ;     INPUT - string data to be escaped"
^XMB(3.9,45,2,743,0)="""RTN"",""HLCSHDR1"",206,0)"
^XMB(3.9,45,2,744,0)=" ;  COMPONET - if 1, escape component separator"
^XMB(3.9,45,2,745,0)="""RTN"",""HLCSHDR1"",207,0)"
^XMB(3.9,45,2,746,0)=" ;             if 0, do not escape component separator"
^XMB(3.9,45,2,747,0)="""RTN"",""HLCSHDR1"",208,0)"
^XMB(3.9,45,2,748,0)=" ;        FS - field separator character"
^XMB(3.9,45,2,749,0)="""RTN"",""HLCSHDR1"",209,0)"
^XMB(3.9,45,2,750,0)=" ;        EC - encoding characters "
^XMB(3.9,45,2,751,0)="""RTN"",""HLCSHDR1"",210,0)"
^XMB(3.9,45,2,752,0)=" ; result: return the escaped string"
^XMB(3.9,45,2,753,0)="""RTN"",""HLCSHDR1"",211,0)"
^XMB(3.9,45,2,754,0)=" ;"
^XMB(3.9,45,2,755,0)="""RTN"",""HLCSHDR1"",212,0)"
^XMB(3.9,45,2,756,0)=" N HLDATA,HLESCAPE,HLI,HLCHAR,HLEN,HLOUT,COMFLAG"
^XMB(3.9,45,2,757,0)="""RTN"",""HLCSHDR1"",213,0)"
^XMB(3.9,45,2,758,0)=" S HLDATA=$G(INPUT)"
^XMB(3.9,45,2,759,0)="""RTN"",""HLCSHDR1"",214,0)"
^XMB(3.9,45,2,760,0)=" S COMFLAG=$G(COMPONET)"
^XMB(3.9,45,2,761,0)="""RTN"",""HLCSHDR1"",215,0)"
^XMB(3.9,45,2,762,0)=" Q:$L($G(FS))'=1 HLDATA"
^XMB(3.9,45,2,763,0)="""RTN"",""HLCSHDR1"",216,0)"
^XMB(3.9,45,2,764,0)=" ;"
^XMB(3.9,45,2,765,0)="""RTN"",""HLCSHDR1"",217,0)"
^XMB(3.9,45,2,766,0)=" ; patch HL*1.6*133"
^XMB(3.9,45,2,767,0)="""RTN"",""HLCSHDR1"",218,0)"
^XMB(3.9,45,2,768,0)=" ; Q:$L($G(EC))'=4 HLDATA"
^XMB(3.9,45,2,769,0)="""RTN"",""HLCSHDR1"",219,0)"
^XMB(3.9,45,2,770,0)=" Q:($L($G(EC))<3) HLDATA"
^XMB(3.9,45,2,771,0)="""RTN"",""HLCSHDR1"",220,0)"
^XMB(3.9,45,2,772,0)=" Q:HLDATA']"""" HLDATA"
^XMB(3.9,45,2,773,0)="""RTN"",""HLCSHDR1"",221,0)"
^XMB(3.9,45,2,774,0)=" ;"
^XMB(3.9,45,2,775,0)="""RTN"",""HLCSHDR1"",222,0)"
^XMB(3.9,45,2,776,0)=" S HLESCAPE=FS_EC"
^XMB(3.9,45,2,777,0)="""RTN"",""HLCSHDR1"",223,0)"
^XMB(3.9,45,2,778,0)=" S HLESCAPE(""F"")=FS"
^XMB(3.9,45,2,779,0)="""RTN"",""HLCSHDR1"",224,0)"
^XMB(3.9,45,2,780,0)=" S HLESCAPE(""S"")=$E(EC,1)"
^XMB(3.9,45,2,781,0)="""RTN"",""HLCSHDR1"",225,0)"
^XMB(3.9,45,2,782,0)=" S HLESCAPE(""R"")=$E(EC,2)"
^XMB(3.9,45,2,783,0)="""RTN"",""HLCSHDR1"",226,0)"
^XMB(3.9,45,2,784,0)=" S HLESCAPE(""E"")=$E(EC,3)"
^XMB(3.9,45,2,785,0)="""RTN"",""HLCSHDR1"",227,0)"
^XMB(3.9,45,2,786,0)=" S HLESCAPE(""T"")=$E(EC,4)"
^XMB(3.9,45,2,787,0)="""RTN"",""HLCSHDR1"",228,0)"
^XMB(3.9,45,2,788,0)=" S HLEN=$L(HLDATA)"
^XMB(3.9,45,2,789,0)="""RTN"",""HLCSHDR1"",229,0)"
^XMB(3.9,45,2,790,0)=" S HLOUT="""""
^XMB(3.9,45,2,791,0)="""RTN"",""HLCSHDR1"",230,0)"
^XMB(3.9,45,2,792,0)=" F HLI=1:1:HLEN D"
^XMB(3.9,45,2,793,0)="""RTN"",""HLCSHDR1"",231,0)"
^XMB(3.9,45,2,794,0)=" . S HLCHAR=$E(HLDATA,HLI)"
^XMB(3.9,45,2,795,0)="""RTN"",""HLCSHDR1"",232,0)"
^XMB(3.9,45,2,796,0)=" . I HLESCAPE[HLCHAR D  Q"
^XMB(3.9,45,2,797,0)="""RTN"",""HLCSHDR1"",233,0)"
^XMB(3.9,45,2,798,0)=" .. I HLCHAR=HLESCAPE(""F"") S HLOUT=HLOUT_HLESCAPE(""E"")_""F""_HLESCAPE(""E"") Q"
^XMB(3.9,45,2,799,0)="""RTN"",""HLCSHDR1"",234,0)"
^XMB(3.9,45,2,800,0)=" .. I HLCHAR=HLESCAPE(""S"") D  Q"
^XMB(3.9,45,2,801,0)="""RTN"",""HLCSHDR1"",235,0)"
^XMB(3.9,45,2,802,0)=" ... I COMFLAG=1 S HLOUT=HLOUT_HLESCAPE(""E"")_""S""_HLESCAPE(""E"") Q"
^XMB(3.9,45,2,803,0)="""RTN"",""HLCSHDR1"",236,0)"
^XMB(3.9,45,2,804,0)=" ... S HLOUT=HLOUT_HLCHAR"
^XMB(3.9,45,2,805,0)="""RTN"",""HLCSHDR1"",237,0)"
^XMB(3.9,45,2,806,0)=" .. I HLCHAR=HLESCAPE(""R"") S HLOUT=HLOUT_HLESCAPE(""E"")_""R""_HLESCAPE(""E"") Q"
^XMB(3.9,45,2,807,0)="""RTN"",""HLCSHDR1"",238,0)"
^XMB(3.9,45,2,808,0)=" .. I HLCHAR=HLESCAPE(""E"") S HLOUT=HLOUT_HLESCAPE(""E"")_""E""_HLESCAPE(""E"") Q"
^XMB(3.9,45,2,809,0)="""RTN"",""HLCSHDR1"",239,0)"
^XMB(3.9,45,2,810,0)=" .. I HLCHAR=HLESCAPE(""T"") S HLOUT=HLOUT_HLESCAPE(""E"")_""T""_HLESCAPE(""E"") Q"
^XMB(3.9,45,2,811,0)="""RTN"",""HLCSHDR1"",240,0)"
^XMB(3.9,45,2,812,0)=" . ;"
^XMB(3.9,45,2,813,0)="""RTN"",""HLCSHDR1"",241,0)"
^XMB(3.9,45,2,814,0)=" . S HLOUT=HLOUT_HLCHAR"
^XMB(3.9,45,2,815,0)="""RTN"",""HLCSHDR1"",242,0)"
^XMB(3.9,45,2,816,0)=" Q HLOUT"
^XMB(3.9,45,2,817,0)="""RTN"",""HLCSTCP"")"
^XMB(3.9,45,2,818,0)="0^10^B33765852^B32053075"
^XMB(3.9,45,2,819,0)="""RTN"",""HLCSTCP"",1,0)"
^XMB(3.9,45,2,820,0)="HLCSTCP ;SFIRMFO/TNV-ALB/JFP,PKE - (TCP/IP) MLLP ;09/13/2006"
^XMB(3.9,45,2,821,0)="""RTN"",""HLCSTCP"",2,0)"
^XMB(3.9,45,2,822,0)=" ;;1.6;HEALTH LEVEL SEVEN;**19,43,49,57,58,64,84,109,133**;Oct 13, 1995;Build 13"
^XMB(3.9,45,2,823,0)="""RTN"",""HLCSTCP"",3,0)"
^XMB(3.9,45,2,824,0)=" ;Per VHA Directive 2004-038, this routine should not be modified."
^XMB(3.9,45,2,825,0)="""RTN"",""HLCSTCP"",4,0)"
^XMB(3.9,45,2,826,0)=" ; "
^XMB(3.9,45,2,827,0)="""RTN"",""HLCSTCP"",5,0)"
^XMB(3.9,45,2,828,0)=" ; This is an implementation of the HL7 Minimal Lower Layer Protocol"
^XMB(3.9,45,2,829,0)="""RTN"",""HLCSTCP"",6,0)"
^XMB(3.9,45,2,830,0)=" ;"
^XMB(3.9,45,2,831,0)="""RTN"",""HLCSTCP"",7,0)"
^XMB(3.9,45,2,832,0)=" ;taskman entry/startup option, HLDP defined in menu entry,"
^XMB(3.9,45,2,833,0)="""RTN"",""HLCSTCP"",8,0)"
^XMB(3.9,45,2,834,0)=" Q:'$D(HLDP)"
^XMB(3.9,45,2,835,0)="""RTN"",""HLCSTCP"",9,0)"
^XMB(3.9,45,2,836,0)=" N HLCSOUT,HLDBACK,HLDBSIZE,HLDREAD,HLDRETR,HLRETRA,HLDWAIT,HLOS,HLTCPADD,HLTCPCS,HLTCPLNK,HLTCPORT,HLTCPRET,HLCSFAIL"
^XMB(3.9,45,2,837,0)="""RTN"",""HLCSTCP"",10,0)"
^XMB(3.9,45,2,838,0)=" ;HLCSOUT= 1-error"
^XMB(3.9,45,2,839,0)="""RTN"",""HLCSTCP"",11,0)"
^XMB(3.9,45,2,840,0)=" I '$$INIT D EXITS(""Init Error"") Q"
^XMB(3.9,45,2,841,0)="""RTN"",""HLCSTCP"",12,0)"
^XMB(3.9,45,2,842,0)=" ; Start the client"
^XMB(3.9,45,2,843,0)="""RTN"",""HLCSTCP"",13,0)"
^XMB(3.9,45,2,844,0)=" I $G(HLTCPCS)=""C"" D  Q"
^XMB(3.9,45,2,845,0)="""RTN"",""HLCSTCP"",14,0)"
^XMB(3.9,45,2,846,0)=" . ; identify process for ^%SY"
^XMB(3.9,45,2,847,0)="""RTN"",""HLCSTCP"",15,0)"
^XMB(3.9,45,2,848,0)=" . D SETNM^%ZOSV($E(""HLClnt:""_HLDP,1,15))"
^XMB(3.9,45,2,849,0)="""RTN"",""HLCSTCP"",16,0)"
^XMB(3.9,45,2,850,0)=" . D ST1"
^XMB(3.9,45,2,851,0)="""RTN"",""HLCSTCP"",17,0)"
^XMB(3.9,45,2,852,0)=" . F  D ^HLCSTCP2 Q:$$STOP!$G(HLCSOUT)"
^XMB(3.9,45,2,853,0)="""RTN"",""HLCSTCP"",18,0)"
^XMB(3.9,45,2,854,0)=" . I $G(HLCSOUT)=1 D MON(""Error"") H 1 Q"
^XMB(3.9,45,2,855,0)="""RTN"",""HLCSTCP"",19,0)"
^XMB(3.9,45,2,856,0)=" . I $G(HLCSOUT)=2 D EXITS(""Inactive"") Q"
^XMB(3.9,45,2,857,0)="""RTN"",""HLCSTCP"",20,0)"
^XMB(3.9,45,2,858,0)=" . D EXITS(""Shutdown"")"
^XMB(3.9,45,2,859,0)="""RTN"",""HLCSTCP"",21,0)"
^XMB(3.9,45,2,860,0)=" ;"
^XMB(3.9,45,2,861,0)="""RTN"",""HLCSTCP"",22,0)"
^XMB(3.9,45,2,862,0)=" ; identify process for ^%SY"
^XMB(3.9,45,2,863,0)="""RTN"",""HLCSTCP"",23,0)"
^XMB(3.9,45,2,864,0)=" D SETNM^%ZOSV($E(""HLSrv:""_HLDP,1,15))"
^XMB(3.9,45,2,865,0)="""RTN"",""HLCSTCP"",24,0)"
^XMB(3.9,45,2,866,0)=" ;HLCSFAIL=1 port failed to open"
^XMB(3.9,45,2,867,0)="""RTN"",""HLCSTCP"",25,0)"
^XMB(3.9,45,2,868,0)=" S HLCSFAIL=1"
^XMB(3.9,45,2,869,0)="""RTN"",""HLCSTCP"",26,0)"
^XMB(3.9,45,2,870,0)=" ;single threaded listener"
^XMB(3.9,45,2,871,0)="""RTN"",""HLCSTCP"",27,0)"
^XMB(3.9,45,2,872,0)=" I $G(HLTCPCS)=""S"" D  Q"
^XMB(3.9,45,2,873,0)="""RTN"",""HLCSTCP"",28,0)"
^XMB(3.9,45,2,874,0)=" . D ST1,MON(""Listen""),LISTEN^%ZISTCP(HLTCPORT,""SERVER^HLCSTCP(""""""_HLDP_"""""")"")"
^XMB(3.9,45,2,875,0)="""RTN"",""HLCSTCP"",29,0)"
^XMB(3.9,45,2,876,0)=" . ;couldn't open listener port"
^XMB(3.9,45,2,877,0)="""RTN"",""HLCSTCP"",30,0)"
^XMB(3.9,45,2,878,0)=" . I HLCSFAIL D EXITS(""Openfail"") Q"
^XMB(3.9,45,2,879,0)="""RTN"",""HLCSTCP"",31,0)"
^XMB(3.9,45,2,880,0)=" ;"
^XMB(3.9,45,2,881,0)="""RTN"",""HLCSTCP"",32,0)"
^XMB(3.9,45,2,882,0)=" ;multi-threaded listener (OpenM)"
^XMB(3.9,45,2,883,0)="""RTN"",""HLCSTCP"",33,0)"
^XMB(3.9,45,2,884,0)=" I $G(HLTCPCS)=""M"",^%ZOSF(""OS"")[""OpenM"" D  Q"
^XMB(3.9,45,2,885,0)="""RTN"",""HLCSTCP"",34,0)"
^XMB(3.9,45,2,886,0)=" . D ST1,MON(""Listen""),LISTEN^%ZISTCPS(HLTCPORT,""SERVERS^HLCSTCP(""""""_HLDP_"""""")"")"
^XMB(3.9,45,2,887,0)="""RTN"",""HLCSTCP"",35,0)"
^XMB(3.9,45,2,888,0)=" Q"
^XMB(3.9,45,2,889,0)="""RTN"",""HLCSTCP"",36,0)"
^XMB(3.9,45,2,890,0)=" ;"
^XMB(3.9,45,2,891,0)="""RTN"",""HLCSTCP"",37,0)"
^XMB(3.9,45,2,892,0)="SERVER(HLDP) ; single server using Taskman"
^XMB(3.9,45,2,893,0)="""RTN"",""HLCSTCP"",38,0)"
^XMB(3.9,45,2,894,0)=" S HLCSFAIL=0"
^XMB(3.9,45,2,895,0)="""RTN"",""HLCSTCP"",39,0)"
^XMB(3.9,45,2,896,0)=" I '$$INIT D EXITS(""Init error"") Q"
^XMB(3.9,45,2,897,0)="""RTN"",""HLCSTCP"",40,0)"
^XMB(3.9,45,2,898,0)=" D ^HLCSTCP1"
^XMB(3.9,45,2,899,0)="""RTN"",""HLCSTCP"",41,0)"
^XMB(3.9,45,2,900,0)=" I $$STOP D CLOSE^%ZISTCP,EXITS(""Shutdown"") S IO(""C"")="""" Q"
^XMB(3.9,45,2,901,0)="""RTN"",""HLCSTCP"",42,0)"
^XMB(3.9,45,2,902,0)=" Q:$G(HLCSOUT)=1"
^XMB(3.9,45,2,903,0)="""RTN"",""HLCSTCP"",43,0)"
^XMB(3.9,45,2,904,0)=" D MON(""Idle"")"
^XMB(3.9,45,2,905,0)="""RTN"",""HLCSTCP"",44,0)"
^XMB(3.9,45,2,906,0)=" Q"
^XMB(3.9,45,2,907,0)="""RTN"",""HLCSTCP"",45,0)"
^XMB(3.9,45,2,908,0)=" ;"
^XMB(3.9,45,2,909,0)="""RTN"",""HLCSTCP"",46,0)"
^XMB(3.9,45,2,910,0)="SERVERS(HLDP) ; Multi-threaded server using Taskman"
^XMB(3.9,45,2,911,0)="""RTN"",""HLCSTCP"",47,0)"
^XMB(3.9,45,2,912,0)=" I '$$INIT D EXITS(""Init error"") Q"
^XMB(3.9,45,2,913,0)="""RTN"",""HLCSTCP"",48,0)"
^XMB(3.9,45,2,914,0)=" G LISTEN"
^XMB(3.9,45,2,915,0)="""RTN"",""HLCSTCP"",49,0)"
^XMB(3.9,45,2,916,0)=" ;"
^XMB(3.9,45,2,917,0)="""RTN"",""HLCSTCP"",50,0)"
^XMB(3.9,45,2,918,0)=" ;multiple process servers, called from an external utility"
^XMB(3.9,45,2,919,0)="""RTN"",""HLCSTCP"",51,0)"
^XMB(3.9,45,2,920,0)="MSM ;MSM entry point, called from User-Defined Services"
^XMB(3.9,45,2,921,0)="""RTN"",""HLCSTCP"",52,0)"
^XMB(3.9,45,2,922,0)=" ;HLDP=ien in the HL LOWER LEVEL PROTOCOL PARAMETER file for the"
^XMB(3.9,45,2,923,0)="""RTN"",""HLCSTCP"",53,0)"
^XMB(3.9,45,2,924,0)=" ;HL7 Multi-Threaded SERVER"
^XMB(3.9,45,2,925,0)="""RTN"",""HLCSTCP"",54,0)"
^XMB(3.9,45,2,926,0)=" S (IO,IO(0))=$P"
^XMB(3.9,45,2,927,0)="""RTN"",""HLCSTCP"",55,0)"
^XMB(3.9,45,2,928,0)=" G LISTEN"
^XMB(3.9,45,2,929,0)="""RTN"",""HLCSTCP"",56,0)"
^XMB(3.9,45,2,930,0)=" ;"
^XMB(3.9,45,2,931,0)="""RTN"",""HLCSTCP"",57,0)"
^XMB(3.9,45,2,932,0)="CACHEVMS(%) ;Cache'/VMS tcpip/ucx entry point, called from HLSEVEN.COM file,"
^XMB(3.9,45,2,933,0)="""RTN"",""HLCSTCP"",58,0)"
^XMB(3.9,45,2,934,0)=" ;listener,  % = HLDP"
^XMB(3.9,45,2,935,0)="""RTN"",""HLCSTCP"",59,0)"
^XMB(3.9,45,2,936,0)=" I $G(%)="""" D ^%ZTER Q"
^XMB(3.9,45,2,937,0)="""RTN"",""HLCSTCP"",60,0)"
^XMB(3.9,45,2,938,0)=" S IO=""SYS$NET"",HLDP=%"
^XMB(3.9,45,2,939,0)="""RTN"",""HLCSTCP"",61,0)"
^XMB(3.9,45,2,940,0)=" S IO(0)=""_NLA0:"" O IO(0) ;Setup null device"
^XMB(3.9,45,2,941,0)="""RTN"",""HLCSTCP"",62,0)"
^XMB(3.9,45,2,942,0)=" ; **Cache'/VMS specific code**"
^XMB(3.9,45,2,943,0)="""RTN"",""HLCSTCP"",63,0)"
^XMB(3.9,45,2,944,0)=" O IO::5 E  D MON(""Openfail"") Q"
^XMB(3.9,45,2,945,0)="""RTN"",""HLCSTCP"",64,0)"
^XMB(3.9,45,2,946,0)=" X ""U IO:(::""""-M"""")"" ;Packet mode like DSM"
^XMB(3.9,45,2,947,0)="""RTN"",""HLCSTCP"",65,0)"
^XMB(3.9,45,2,948,0)=" D LISTEN C IO Q"
^XMB(3.9,45,2,949,0)="""RTN"",""HLCSTCP"",66,0)"
^XMB(3.9,45,2,950,0)=" ;"
^XMB(3.9,45,2,951,0)="""RTN"",""HLCSTCP"",67,0)"
^XMB(3.9,45,2,952,0)="EN ;vms ucx entry point, called from HLSEVEN.COM file,"
^XMB(3.9,45,2,953,0)="""RTN"",""HLCSTCP"",68,0)"
^XMB(3.9,45,2,954,0)=" ;listener,  % = device^HLDP"
^XMB(3.9,45,2,955,0)="""RTN"",""HLCSTCP"",69,0)"
^XMB(3.9,45,2,956,0)=" I $G(%)="""" D ^%ZTER Q"
^XMB(3.9,45,2,957,0)="""RTN"",""HLCSTCP"",70,0)"
^XMB(3.9,45,2,958,0)=" S IO=""SYS$NET"",U=""^"",HLDP=$P(%,U,2)"
^XMB(3.9,45,2,959,0)="""RTN"",""HLCSTCP"",71,0)"
^XMB(3.9,45,2,960,0)=" S IO(0)=""_NLA0:"" O IO(0) ;Setup null device"
^XMB(3.9,45,2,961,0)="""RTN"",""HLCSTCP"",72,0)"
^XMB(3.9,45,2,962,0)=" ; **VMS specific code, need to share device**"
^XMB(3.9,45,2,963,0)="""RTN"",""HLCSTCP"",73,0)"
^XMB(3.9,45,2,964,0)=" O IO:(TCPDEV):60 E  D MON(""Openfail"") Q"
^XMB(3.9,45,2,965,0)="""RTN"",""HLCSTCP"",74,0)"
^XMB(3.9,45,2,966,0)="LISTEN ;"
^XMB(3.9,45,2,967,0)="""RTN"",""HLCSTCP"",75,0)"
^XMB(3.9,45,2,968,0)=" N HLLSTN,HLCSOUT,HLDBACK,HLDBSIZE,HLDREAD,HLDRETR,HLRETRA,HLDWAIT,HLOS,HLTCPADD,HLTCPCS,HLTCPLNK,HLTCPORT,HLTCPRET,HLCSFAIL"
^XMB(3.9,45,2,969,0)="""RTN"",""HLCSTCP"",76,0)"
^XMB(3.9,45,2,970,0)=" I '$$INIT D ^%ZTER Q"
^XMB(3.9,45,2,971,0)="""RTN"",""HLCSTCP"",77,0)"
^XMB(3.9,45,2,972,0)=" ; identify process for ^%SY"
^XMB(3.9,45,2,973,0)="""RTN"",""HLCSTCP"",78,0)"
^XMB(3.9,45,2,974,0)=" D SETNM^%ZOSV($E(""HLSrv:""_HLDP,1,15))"
^XMB(3.9,45,2,975,0)="""RTN"",""HLCSTCP"",79,0)"
^XMB(3.9,45,2,976,0)=" ;HLLSTN used to identify a listener to tag MON"
^XMB(3.9,45,2,977,0)="""RTN"",""HLCSTCP"",80,0)"
^XMB(3.9,45,2,978,0)=" S HLLSTN=1"
^XMB(3.9,45,2,979,0)="""RTN"",""HLCSTCP"",81,0)"
^XMB(3.9,45,2,980,0)=" ;increment job count, run server"
^XMB(3.9,45,2,981,0)="""RTN"",""HLCSTCP"",82,0)"
^XMB(3.9,45,2,982,0)=" D UPDT(1),^HLCSTCP1,EXITM"
^XMB(3.9,45,2,983,0)="""RTN"",""HLCSTCP"",83,0)"
^XMB(3.9,45,2,984,0)=" Q"
^XMB(3.9,45,2,985,0)="""RTN"",""HLCSTCP"",84,0)"
^XMB(3.9,45,2,986,0)=" ;"
^XMB(3.9,45,2,987,0)="""RTN"",""HLCSTCP"",85,0)"
^XMB(3.9,45,2,988,0)="DCOPEN(HLDP) ;open direct connect - called from HLMA2"
^XMB(3.9,45,2,989,0)="""RTN"",""HLCSTCP"",86,0)"
^XMB(3.9,45,2,990,0)=" Q:'$$INIT 0"
^XMB(3.9,45,2,991,0)="""RTN"",""HLCSTCP"",87,0)"
^XMB(3.9,45,2,992,0)=" Q:HLTCPADD=""""!(HLTCPORT="""") 0"
^XMB(3.9,45,2,993,0)="""RTN"",""HLCSTCP"",88,0)"
^XMB(3.9,45,2,994,0)=" Q:'$$OPEN^HLCSTCP2 0"
^XMB(3.9,45,2,995,0)="""RTN"",""HLCSTCP"",89,0)"
^XMB(3.9,45,2,996,0)=" Q 1"
^XMB(3.9,45,2,997,0)="""RTN"",""HLCSTCP"",90,0)"
^XMB(3.9,45,2,998,0)=" ;"
^XMB(3.9,45,2,999,0)="""RTN"",""HLCSTCP"",91,0)"
^XMB(3.9,45,2,1000,0)="INIT() ; Initialize Variables"
^XMB(3.9,45,2,1001,0)="""RTN"",""HLCSTCP"",92,0)"
^XMB(3.9,45,2,1002,0)=" ; HLDP should be set to the IEN or name of Logical Link, file 870"
^XMB(3.9,45,2,1003,0)="""RTN"",""HLCSTCP"",93,0)"
^XMB(3.9,45,2,1004,0)=" S HLOS=$P($G(^%ZOSF(""OS"")),""^"")"
^XMB(3.9,45,2,1005,0)="""RTN"",""HLCSTCP"",94,0)"
^XMB(3.9,45,2,1006,0)=" N DA,DIQUIET,DR,TMP,X,Y"
^XMB(3.9,45,2,1007,0)="""RTN"",""HLCSTCP"",95,0)"
^XMB(3.9,45,2,1008,0)=" S DIQUIET=1"
^XMB(3.9,45,2,1009,0)="""RTN"",""HLCSTCP"",96,0)"
^XMB(3.9,45,2,1010,0)=" D DT^DICRW"
^XMB(3.9,45,2,1011,0)="""RTN"",""HLCSTCP"",97,0)"
^XMB(3.9,45,2,1012,0)=" I 'HLDP S HLDP=$O(^HLCS(870,""B"",HLDP,0)) I 'HLDP Q 0"
^XMB(3.9,45,2,1013,0)="""RTN"",""HLCSTCP"",98,0)"
^XMB(3.9,45,2,1014,0)=" S DA=HLDP"
^XMB(3.9,45,2,1015,0)="""RTN"",""HLCSTCP"",99,0)"
^XMB(3.9,45,2,1016,0)=" S DR=""200.02;200.021;200.022;200.03;200.04;200.05;200.09;400.01;400.02;400.03;400.04;400.05"""
^XMB(3.9,45,2,1017,0)="""RTN"",""HLCSTCP"",100,0)"
^XMB(3.9,45,2,1018,0)=" D GETS^DIQ(870,DA,DR,""IN"",""TMP"",""TMP"")"
^XMB(3.9,45,2,1019,0)="""RTN"",""HLCSTCP"",101,0)"
^XMB(3.9,45,2,1020,0)=" ;"
^XMB(3.9,45,2,1021,0)="""RTN"",""HLCSTCP"",102,0)"
^XMB(3.9,45,2,1022,0)=" I $D(TMP(""DIERR"")) QUIT 0"
^XMB(3.9,45,2,1023,0)="""RTN"",""HLCSTCP"",103,0)"
^XMB(3.9,45,2,1024,0)=" ; -- re-transmit attempts"
^XMB(3.9,45,2,1025,0)="""RTN"",""HLCSTCP"",104,0)"
^XMB(3.9,45,2,1026,0)=" S HLDRETR=+$G(TMP(870,DA_"","",200.02,""I""))"
^XMB(3.9,45,2,1027,0)="""RTN"",""HLCSTCP"",105,0)"
^XMB(3.9,45,2,1028,0)=" S HLDRETR(""CLOSE"")=+$G(TMP(870,DA_"","",200.022,""I""))"
^XMB(3.9,45,2,1029,0)="""RTN"",""HLCSTCP"",106,0)"
^XMB(3.9,45,2,1030,0)=" ; -- exceed re-transmit action"
^XMB(3.9,45,2,1031,0)="""RTN"",""HLCSTCP"",107,0)"
^XMB(3.9,45,2,1032,0)=" S HLRETRA=$G(TMP(870,DA_"","",200.021,""I""))"
^XMB(3.9,45,2,1033,0)="""RTN"",""HLCSTCP"",108,0)"
^XMB(3.9,45,2,1034,0)=" ; -- block size"
^XMB(3.9,45,2,1035,0)="""RTN"",""HLCSTCP"",109,0)"
^XMB(3.9,45,2,1036,0)=" S HLDBSIZE=+$G(TMP(870,DA_"","",200.03,""I""))"
^XMB(3.9,45,2,1037,0)="""RTN"",""HLCSTCP"",110,0)"
^XMB(3.9,45,2,1038,0)=" ; -- read timeout"
^XMB(3.9,45,2,1039,0)="""RTN"",""HLCSTCP"",111,0)"
^XMB(3.9,45,2,1040,0)=" S HLDREAD=+$G(TMP(870,DA_"","",200.04,""I""))"
^XMB(3.9,45,2,1041,0)="""RTN"",""HLCSTCP"",112,0)"
^XMB(3.9,45,2,1042,0)=" ; -- ack timeout"
^XMB(3.9,45,2,1043,0)="""RTN"",""HLCSTCP"",113,0)"
^XMB(3.9,45,2,1044,0)=" S HLDBACK=+$G(TMP(870,DA_"","",200.05,""I""))"
^XMB(3.9,45,2,1045,0)="""RTN"",""HLCSTCP"",114,0)"
^XMB(3.9,45,2,1046,0)=" ; -- uni-directional wait"
^XMB(3.9,45,2,1047,0)="""RTN"",""HLCSTCP"",115,0)"
^XMB(3.9,45,2,1048,0)=" S HLDWAIT=$G(TMP(870,DA_"","",200.09,""I""))"
^XMB(3.9,45,2,1049,0)="""RTN"",""HLCSTCP"",116,0)"
^XMB(3.9,45,2,1050,0)=" ; -- tcp address"
^XMB(3.9,45,2,1051,0)="""RTN"",""HLCSTCP"",117,0)"
^XMB(3.9,45,2,1052,0)=" S HLTCPADD=$G(TMP(870,DA_"","",400.01,""I""))"
^XMB(3.9,45,2,1053,0)="""RTN"",""HLCSTCP"",118,0)"
^XMB(3.9,45,2,1054,0)=" ; -- tcp port"
^XMB(3.9,45,2,1055,0)="""RTN"",""HLCSTCP"",119,0)"
^XMB(3.9,45,2,1056,0)=" S HLTCPORT=$G(TMP(870,DA_"","",400.02,""I""))"
^XMB(3.9,45,2,1057,0)="""RTN"",""HLCSTCP"",120,0)"
^XMB(3.9,45,2,1058,0)=" ; -- tcp/ip service type"
^XMB(3.9,45,2,1059,0)="""RTN"",""HLCSTCP"",121,0)"
^XMB(3.9,45,2,1060,0)=" S HLTCPCS=$G(TMP(870,DA_"","",400.03,""I""))"
^XMB(3.9,45,2,1061,0)="""RTN"",""HLCSTCP"",122,0)"
^XMB(3.9,45,2,1062,0)=" ; -- link persistence"
^XMB(3.9,45,2,1063,0)="""RTN"",""HLCSTCP"",123,0)"
^XMB(3.9,45,2,1064,0)=" S HLTCPLNK=$G(TMP(870,DA_"","",400.04,""I""))"
^XMB(3.9,45,2,1065,0)="""RTN"",""HLCSTCP"",124,0)"
^XMB(3.9,45,2,1066,0)=" ; -- retention"
^XMB(3.9,45,2,1067,0)="""RTN"",""HLCSTCP"",125,0)"
^XMB(3.9,45,2,1068,0)=" S HLTCPRET=$G(TMP(870,DA_"","",400.05,""I""))"
^XMB(3.9,45,2,1069,0)="""RTN"",""HLCSTCP"",126,0)"
^XMB(3.9,45,2,1070,0)=" ;"
^XMB(3.9,45,2,1071,0)="""RTN"",""HLCSTCP"",127,0)"
^XMB(3.9,45,2,1072,0)=" ; -- set defaults in case something's not set"
^XMB(3.9,45,2,1073,0)="""RTN"",""HLCSTCP"",128,0)"
^XMB(3.9,45,2,1074,0)=" S:HLDREAD=0 HLDREAD=10"
^XMB(3.9,45,2,1075,0)="""RTN"",""HLCSTCP"",129,0)"
^XMB(3.9,45,2,1076,0)=" S:HLDBACK=0 HLDBACK=60"
^XMB(3.9,45,2,1077,0)="""RTN"",""HLCSTCP"",130,0)"
^XMB(3.9,45,2,1078,0)=" S:HLDBSIZE=0 HLDBSIZE=245"
^XMB(3.9,45,2,1079,0)="""RTN"",""HLCSTCP"",131,0)"
^XMB(3.9,45,2,1080,0)=" S:HLDRETR=0 HLDRETR=5"
^XMB(3.9,45,2,1081,0)="""RTN"",""HLCSTCP"",132,0)"
^XMB(3.9,45,2,1082,0)=" S:HLTCPRET="""" X=$P($$PARAM^HLCS2,U,12),HLTCPRET=$S(X:X,1:15)"
^XMB(3.9,45,2,1083,0)="""RTN"",""HLCSTCP"",133,0)"
^XMB(3.9,45,2,1084,0)=" ;"
^XMB(3.9,45,2,1085,0)="""RTN"",""HLCSTCP"",134,0)"
^XMB(3.9,45,2,1086,0)=" Q 1"
^XMB(3.9,45,2,1087,0)="""RTN"",""HLCSTCP"",135,0)"
^XMB(3.9,45,2,1088,0)=" ;"
^XMB(3.9,45,2,1089,0)="""RTN"",""HLCSTCP"",136,0)"
^XMB(3.9,45,2,1090,0)="ST1 ;record startup in 870 for single server"
^XMB(3.9,45,2,1091,0)="""RTN"",""HLCSTCP"",137,0)"
^XMB(3.9,45,2,1092,0)=" ;4=status 9=Time Started, 10=Time Stopped, 11=Task Number "
^XMB(3.9,45,2,1093,0)="""RTN"",""HLCSTCP"",138,0)"
^XMB(3.9,45,2,1094,0)=" ;14=Shutdown LLP, 3=LLP Online, 18=Gross Errors"
^XMB(3.9,45,2,1095,0)="""RTN"",""HLCSTCP"",139,0)"
^XMB(3.9,45,2,1096,0)=" N HLJ,X"
^XMB(3.9,45,2,1097,0)="""RTN"",""HLCSTCP"",140,0)"
^XMB(3.9,45,2,1098,0)=" F  L +^HLCS(870,HLDP,0):2 Q:$T"
^XMB(3.9,45,2,1099,0)="""RTN"",""HLCSTCP"",141,0)"
^XMB(3.9,45,2,1100,0)=" S X=""HLJ(870,""""""_HLDP_"","""")"""
^XMB(3.9,45,2,1101,0)="""RTN"",""HLCSTCP"",142,0)"
^XMB(3.9,45,2,1102,0)=" S @X@(4)=""Init"",(@X@(10),@X@(18))=""@"",@X@(14)=0"
^XMB(3.9,45,2,1103,0)="""RTN"",""HLCSTCP"",143,0)"
^XMB(3.9,45,2,1104,0)=" I HLTCPCS[""C"" S @X@(3)=$S(HLTCPLNK[""Y"":""PC"",1:""NC"")"
^XMB(3.9,45,2,1105,0)="""RTN"",""HLCSTCP"",144,0)"
^XMB(3.9,45,2,1106,0)=" E  S @X@(3)=$S(HLTCPCS[""S"":""SS"",HLTCPCS[""M"":""MS"",1:"""")"
^XMB(3.9,45,2,1107,0)="""RTN"",""HLCSTCP"",145,0)"
^XMB(3.9,45,2,1108,0)=" I @X@(3)'=""NC"" S @X@(9)=$$NOW^XLFDT"
^XMB(3.9,45,2,1109,0)="""RTN"",""HLCSTCP"",146,0)"
^XMB(3.9,45,2,1110,0)=" S:$G(ZTSK) @X@(11)=ZTSK"
^XMB(3.9,45,2,1111,0)="""RTN"",""HLCSTCP"",147,0)"
^XMB(3.9,45,2,1112,0)=" D FILE^HLDIE("""",""HLJ"","""",""ST1"",""HLCSTCP"") ;HL*1.6*109"
^XMB(3.9,45,2,1113,0)="""RTN"",""HLCSTCP"",148,0)"
^XMB(3.9,45,2,1114,0)=" L -^HLCS(870,HLDP,0)"
^XMB(3.9,45,2,1115,0)="""RTN"",""HLCSTCP"",149,0)"
^XMB(3.9,45,2,1116,0)=" Q"
^XMB(3.9,45,2,1117,0)="""RTN"",""HLCSTCP"",150,0)"
^XMB(3.9,45,2,1118,0)=" ;"
^XMB(3.9,45,2,1119,0)="""RTN"",""HLCSTCP"",151,0)"
^XMB(3.9,45,2,1120,0)="MON(Y) ;Display current state & check for shutdown"
^XMB(3.9,45,2,1121,0)="""RTN"",""HLCSTCP"",152,0)"
^XMB(3.9,45,2,1122,0)=" ;don't display for multiple server"
^XMB(3.9,45,2,1123,0)="""RTN"",""HLCSTCP"",153,0)"
^XMB(3.9,45,2,1124,0)=" Q:$G(HLLSTN)"
^XMB(3.9,45,2,1125,0)="""RTN"",""HLCSTCP"",154,0)"
^XMB(3.9,45,2,1126,0)=" F  L +^HLCS(870,HLDP,0):2 Q:$T"
^XMB(3.9,45,2,1127,0)="""RTN"",""HLCSTCP"",155,0)"
^XMB(3.9,45,2,1128,0)=" S $P(^HLCS(870,HLDP,0),U,5)=Y"
^XMB(3.9,45,2,1129,0)="""RTN"",""HLCSTCP"",156,0)"
^XMB(3.9,45,2,1130,0)=" L -^HLCS(870,HLDP,0)"
^XMB(3.9,45,2,1131,0)="""RTN"",""HLCSTCP"",157,0)"
^XMB(3.9,45,2,1132,0)=" Q:'$D(HLTRACE)"
^XMB(3.9,45,2,1133,0)="""RTN"",""HLCSTCP"",158,0)"
^XMB(3.9,45,2,1134,0)=" N X U IO(0)"
^XMB(3.9,45,2,1135,0)="""RTN"",""HLCSTCP"",159,0)"
^XMB(3.9,45,2,1136,0)=" W !,""IN State: "",Y"
^XMB(3.9,45,2,1137,0)="""RTN"",""HLCSTCP"",160,0)"
^XMB(3.9,45,2,1138,0)=" I '$$STOP D"
^XMB(3.9,45,2,1139,0)="""RTN"",""HLCSTCP"",161,0)"
^XMB(3.9,45,2,1140,0)=" . R !,""Type Q to Quit: "",X#1:1"
^XMB(3.9,45,2,1141,0)="""RTN"",""HLCSTCP"",162,0)"
^XMB(3.9,45,2,1142,0)=" . I $L(X),""Qq""[X S $P(^HLCS(870,HLDP,0),U,15)=1"
^XMB(3.9,45,2,1143,0)="""RTN"",""HLCSTCP"",163,0)"
^XMB(3.9,45,2,1144,0)=" U IO"
^XMB(3.9,45,2,1145,0)="""RTN"",""HLCSTCP"",164,0)"
^XMB(3.9,45,2,1146,0)=" Q"
^XMB(3.9,45,2,1147,0)="""RTN"",""HLCSTCP"",165,0)"
^XMB(3.9,45,2,1148,0)="UPDT(Y) ;update job count for multiple servers,X=1 increment"
^XMB(3.9,45,2,1149,0)="""RTN"",""HLCSTCP"",166,0)"
^XMB(3.9,45,2,1150,0)=" N HLJ,X"
^XMB(3.9,45,2,1151,0)="""RTN"",""HLCSTCP"",167,0)"
^XMB(3.9,45,2,1152,0)=" F  L +^HLCS(870,HLDP,0):2 Q:$T"
^XMB(3.9,45,2,1153,0)="""RTN"",""HLCSTCP"",168,0)"
^XMB(3.9,45,2,1154,0)=" S X=+$P(^HLCS(870,HLDP,0),U,5),$P(^(0),U,5)=$S(Y:X+1,1:X-1)_"" server"""
^XMB(3.9,45,2,1155,0)="""RTN"",""HLCSTCP"",169,0)"
^XMB(3.9,45,2,1156,0)=" ;if incrementing, set the Device Type field to Multi-Server"
^XMB(3.9,45,2,1157,0)="""RTN"",""HLCSTCP"",170,0)"
^XMB(3.9,45,2,1158,0)=" I X S HLJ(870,HLDP_"","",3)=""MS"" D FILE^HLDIE("""",""HLJ"","""",""UPDT"",""HLCSTCP"") ;HL*1.6*109"
^XMB(3.9,45,2,1159,0)="""RTN"",""HLCSTCP"",171,0)"
^XMB(3.9,45,2,1160,0)=" L -^HLCS(870,HLDP,0)"
^XMB(3.9,45,2,1161,0)="""RTN"",""HLCSTCP"",172,0)"
^XMB(3.9,45,2,1162,0)=" Q"
^XMB(3.9,45,2,1163,0)="""RTN"",""HLCSTCP"",173,0)"
^XMB(3.9,45,2,1164,0)="STOP() ;stop flag set"
^XMB(3.9,45,2,1165,0)="""RTN"",""HLCSTCP"",174,0)"
^XMB(3.9,45,2,1166,0)=" N X"
^XMB(3.9,45,2,1167,0)="""RTN"",""HLCSTCP"",175,0)"
^XMB(3.9,45,2,1168,0)=" F  L +^HLCS(870,HLDP,0):2 Q:$T"
^XMB(3.9,45,2,1169,0)="""RTN"",""HLCSTCP"",176,0)"
^XMB(3.9,45,2,1170,0)=" S X=+$P(^HLCS(870,HLDP,0),U,15)"
^XMB(3.9,45,2,1171,0)="""RTN"",""HLCSTCP"",177,0)"
^XMB(3.9,45,2,1172,0)=" L -^HLCS(870,HLDP,0)"
^XMB(3.9,45,2,1173,0)="""RTN"",""HLCSTCP"",178,0)"
^XMB(3.9,45,2,1174,0)=" Q X"
^XMB(3.9,45,2,1175,0)="""RTN"",""HLCSTCP"",179,0)"
^XMB(3.9,45,2,1176,0)=" ;"
^XMB(3.9,45,2,1177,0)="""RTN"",""HLCSTCP"",180,0)"
^XMB(3.9,45,2,1178,0)="LLCNT(DP,Y,Z) ;update Logical Link counters"
^XMB(3.9,45,2,1179,0)="""RTN"",""HLCSTCP"",181,0)"
^XMB(3.9,45,2,1180,0)=" ;DP=ien of Logical Link in file 870"
^XMB(3.9,45,2,1181,0)="""RTN"",""HLCSTCP"",182,0)"
^XMB(3.9,45,2,1182,0)=" ;Y: 1=msg rec, 2=msg proc, 3=msg to send, 4=msg sent"
^XMB(3.9,45,2,1183,0)="""RTN"",""HLCSTCP"",183,0)"
^XMB(3.9,45,2,1184,0)=" ;Z: """"=add to counter, 1=subtract from counter"
^XMB(3.9,45,2,1185,0)="""RTN"",""HLCSTCP"",184,0)"
^XMB(3.9,45,2,1186,0)=" Q:'$D(^HLCS(870,+$G(DP),0))!('$G(Y))"
^XMB(3.9,45,2,1187,0)="""RTN"",""HLCSTCP"",185,0)"
^XMB(3.9,45,2,1188,0)=" N P,X"
^XMB(3.9,45,2,1189,0)="""RTN"",""HLCSTCP"",186,0)"
^XMB(3.9,45,2,1190,0)=" S P=$S(Y<3:""IN"",1:""OUT"")_"" QUEUE ""_$S(Y#2:""BACK"",1:""FRONT"")_"" POINTER"""
^XMB(3.9,45,2,1191,0)="""RTN"",""HLCSTCP"",187,0)"
^XMB(3.9,45,2,1192,0)=" F  L +^HLCS(870,DP,P):2 Q:$T"
^XMB(3.9,45,2,1193,0)="""RTN"",""HLCSTCP"",188,0)"
^XMB(3.9,45,2,1194,0)=" S X=+$G(^HLCS(870,DP,P)),^(P)=X+$S($G(Z):-1,1:1)"
^XMB(3.9,45,2,1195,0)="""RTN"",""HLCSTCP"",189,0)"
^XMB(3.9,45,2,1196,0)=" L -^HLCS(870,DP,P)"
^XMB(3.9,45,2,1197,0)="""RTN"",""HLCSTCP"",190,0)"
^XMB(3.9,45,2,1198,0)=" Q"
^XMB(3.9,45,2,1199,0)="""RTN"",""HLCSTCP"",191,0)"
^XMB(3.9,45,2,1200,0)="SDFLD ; set Shutdown? field to yes"
^XMB(3.9,45,2,1201,0)="""RTN"",""HLCSTCP"",192,0)"
^XMB(3.9,45,2,1202,0)=" Q:'$G(HLDP)"
^XMB(3.9,45,2,1203,0)="""RTN"",""HLCSTCP"",193,0)"
^XMB(3.9,45,2,1204,0)=" N HLJ,X"
^XMB(3.9,45,2,1205,0)="""RTN"",""HLCSTCP"",194,0)"
^XMB(3.9,45,2,1206,0)=" F  L +^HLCS(870,HLDP,0):2 Q:$T"
^XMB(3.9,45,2,1207,0)="""RTN"",""HLCSTCP"",195,0)"
^XMB(3.9,45,2,1208,0)=" ;14=Shutdown LLP?"
^XMB(3.9,45,2,1209,0)="""RTN"",""HLCSTCP"",196,0)"
^XMB(3.9,45,2,1210,0)=" S HLJ(870,HLDP_"","",14)=1"
^XMB(3.9,45,2,1211,0)="""RTN"",""HLCSTCP"",197,0)"
^XMB(3.9,45,2,1212,0)=" D FILE^HLDIE("""",""HLJ"","""",""SDFLD"",""HLCSTCP"") ;HL*1.6*109"
^XMB(3.9,45,2,1213,0)="""RTN"",""HLCSTCP"",198,0)"
^XMB(3.9,45,2,1214,0)=" L -^HLCS(870,HLDP,0)"
^XMB(3.9,45,2,1215,0)="""RTN"",""HLCSTCP"",199,0)"
^XMB(3.9,45,2,1216,0)=" Q"
^XMB(3.9,45,2,1217,0)="""RTN"",""HLCSTCP"",200,0)"
^XMB(3.9,45,2,1218,0)=" ;"
^XMB(3.9,45,2,1219,0)="""RTN"",""HLCSTCP"",201,0)"
^XMB(3.9,45,2,1220,0)="EXITS(Y) ; Single service shutdown and cleans up"
^XMB(3.9,45,2,1221,0)="""RTN"",""HLCSTCP"",202,0)"
^XMB(3.9,45,2,1222,0)=" N HLJ,X"
^XMB(3.9,45,2,1223,0)="""RTN"",""HLCSTCP"",203,0)"
^XMB(3.9,45,2,1224,0)=" F  L +^HLCS(870,HLDP,0):2 Q:$T"
^XMB(3.9,45,2,1225,0)="""RTN"",""HLCSTCP"",204,0)"
^XMB(3.9,45,2,1226,0)=" ;4=status,10=Time Stopped,9=Time Started,11=Task Number"
^XMB(3.9,45,2,1227,0)="""RTN"",""HLCSTCP"",205,0)"
^XMB(3.9,45,2,1228,0)=" S X=""HLJ(870,""""""_HLDP_"","""")"""
^XMB(3.9,45,2,1229,0)="""RTN"",""HLCSTCP"",206,0)"
^XMB(3.9,45,2,1230,0)=" S @X@(4)=Y,@X@(11)=""@"""
^XMB(3.9,45,2,1231,0)="""RTN"",""HLCSTCP"",207,0)"
^XMB(3.9,45,2,1232,0)=" S:$G(HLCSOUT)'=2 @X@(10)=$$NOW^XLFDT,@X@(9)=""@"""
^XMB(3.9,45,2,1233,0)="""RTN"",""HLCSTCP"",208,0)"
^XMB(3.9,45,2,1234,0)=" D FILE^HLDIE("""",""HLJ"","""",""EXITS"",""HLCSTCP"") ; HL*1.6*109"
^XMB(3.9,45,2,1235,0)="""RTN"",""HLCSTCP"",209,0)"
^XMB(3.9,45,2,1236,0)=" L -^HLCS(870,HLDP,0)"
^XMB(3.9,45,2,1237,0)="""RTN"",""HLCSTCP"",210,0)"
^XMB(3.9,45,2,1238,0)=" I $D(ZTQUEUED) S ZTREQ=""@"""
^XMB(3.9,45,2,1239,0)="""RTN"",""HLCSTCP"",211,0)"
^XMB(3.9,45,2,1240,0)=" Q"
^XMB(3.9,45,2,1241,0)="""RTN"",""HLCSTCP"",212,0)"
^XMB(3.9,45,2,1242,0)=" ;"
^XMB(3.9,45,2,1243,0)="""RTN"",""HLCSTCP"",213,0)"
^XMB(3.9,45,2,1244,0)="EXITM ;Multiple service shutdown and clean up"
^XMB(3.9,45,2,1245,0)="""RTN"",""HLCSTCP"",214,0)"
^XMB(3.9,45,2,1246,0)=" D UPDT(0)"
^XMB(3.9,45,2,1247,0)="""RTN"",""HLCSTCP"",215,0)"
^XMB(3.9,45,2,1248,0)=" I $D(ZTQUEUED) S ZTREQ=""@"""
^XMB(3.9,45,2,1249,0)="""RTN"",""HLCSTCP"",216,0)"
^XMB(3.9,45,2,1250,0)=" Q"
^XMB(3.9,45,2,1251,0)="""RTN"",""HLCSTCP1"")"
^XMB(3.9,45,2,1252,0)="0^11^B31809732^B29359116"
^XMB(3.9,45,2,1253,0)="""RTN"",""HLCSTCP1"",1,0)"
^XMB(3.9,45,2,1254,0)="HLCSTCP1 ;SFIRMFO/RSD - BI-DIRECTIONAL TCP ;09/13/2006"
^XMB(3.9,45,2,1255,0)="""RTN"",""HLCSTCP1"",2,0)"
^XMB(3.9,45,2,1256,0)=" ;;1.6;HEALTH LEVEL SEVEN;**19,43,57,64,71,133**;JUL 17,1995;Build 13"
^XMB(3.9,45,2,1257,0)="""RTN"",""HLCSTCP1"",3,0)"
^XMB(3.9,45,2,1258,0)=" ;Per VHA Directive 2004-038, this routine should not be modified."
^XMB(3.9,45,2,1259,0)="""RTN"",""HLCSTCP1"",4,0)"
^XMB(3.9,45,2,1260,0)=" ;Receiver"
^XMB(3.9,45,2,1261,0)="""RTN"",""HLCSTCP1"",5,0)"
^XMB(3.9,45,2,1262,0)=" ;connection is initiated by sender and listener accepts connection"
^XMB(3.9,45,2,1263,0)="""RTN"",""HLCSTCP1"",6,0)"
^XMB(3.9,45,2,1264,0)=" ;and calls this routine"
^XMB(3.9,45,2,1265,0)="""RTN"",""HLCSTCP1"",7,0)"
^XMB(3.9,45,2,1266,0)=" ;"
^XMB(3.9,45,2,1267,0)="""RTN"",""HLCSTCP1"",8,0)"
^XMB(3.9,45,2,1268,0)=" N $ETRAP,$ESTACK S $ETRAP=""D ERROR^HLCSTCP1"""
^XMB(3.9,45,2,1269,0)="""RTN"",""HLCSTCP1"",9,0)"
^XMB(3.9,45,2,1270,0)=" N HLMIEN,HLASTMSG"
^XMB(3.9,45,2,1271,0)="""RTN"",""HLCSTCP1"",10,0)"
^XMB(3.9,45,2,1272,0)=" D MON^HLCSTCP(""Open"")"
^XMB(3.9,45,2,1273,0)="""RTN"",""HLCSTCP1"",11,0)"
^XMB(3.9,45,2,1274,0)=" K ^TMP(""HLCSTCP"",$J,0)"
^XMB(3.9,45,2,1275,0)="""RTN"",""HLCSTCP1"",12,0)"
^XMB(3.9,45,2,1276,0)=" S HLMIEN=0,HLASTMSG="""""
^XMB(3.9,45,2,1277,0)="""RTN"",""HLCSTCP1"",13,0)"
^XMB(3.9,45,2,1278,0)=" F  D  Q:$$STOP^HLCSTCP  I 'HLMIEN D MON^HLCSTCP(""Idle"") H 3"
^XMB(3.9,45,2,1279,0)="""RTN"",""HLCSTCP1"",14,0)"
^XMB(3.9,45,2,1280,0)=" . S HLMIEN=$$READ"
^XMB(3.9,45,2,1281,0)="""RTN"",""HLCSTCP1"",15,0)"
^XMB(3.9,45,2,1282,0)=" . Q:'HLMIEN"
^XMB(3.9,45,2,1283,0)="""RTN"",""HLCSTCP1"",16,0)"
^XMB(3.9,45,2,1284,0)=" . D PROCESS"
^XMB(3.9,45,2,1285,0)="""RTN"",""HLCSTCP1"",17,0)"
^XMB(3.9,45,2,1286,0)=" Q"
^XMB(3.9,45,2,1287,0)="""RTN"",""HLCSTCP1"",18,0)"
^XMB(3.9,45,2,1288,0)=" ;"
^XMB(3.9,45,2,1289,0)="""RTN"",""HLCSTCP1"",19,0)"
^XMB(3.9,45,2,1290,0)="PROCESS ;check message and reply"
^XMB(3.9,45,2,1291,0)="""RTN"",""HLCSTCP1"",20,0)"
^XMB(3.9,45,2,1292,0)=" ;HLDP=LL in 870, update monitor, received msg."
^XMB(3.9,45,2,1293,0)="""RTN"",""HLCSTCP1"",21,0)"
^XMB(3.9,45,2,1294,0)=" N HLTCP,HLTCPI,HLTCPO"
^XMB(3.9,45,2,1295,0)="""RTN"",""HLCSTCP1"",22,0)"
^XMB(3.9,45,2,1296,0)=" S HLTCP="""",HLTCPO=HLDP,HLTCPI=+HLMIEN"
^XMB(3.9,45,2,1297,0)="""RTN"",""HLCSTCP1"",23,0)"
^XMB(3.9,45,2,1298,0)=" ;update monitor, msg. received"
^XMB(3.9,45,2,1299,0)="""RTN"",""HLCSTCP1"",24,0)"
^XMB(3.9,45,2,1300,0)=" D LLCNT^HLCSTCP(HLDP,1)"
^XMB(3.9,45,2,1301,0)="""RTN"",""HLCSTCP1"",25,0)"
^XMB(3.9,45,2,1302,0)=" D NEW^HLTP3(HLMIEN)"
^XMB(3.9,45,2,1303,0)="""RTN"",""HLCSTCP1"",26,0)"
^XMB(3.9,45,2,1304,0)=" ;update monitor, msg. processed"
^XMB(3.9,45,2,1305,0)="""RTN"",""HLCSTCP1"",27,0)"
^XMB(3.9,45,2,1306,0)=" D LLCNT^HLCSTCP(HLDP,2)"
^XMB(3.9,45,2,1307,0)="""RTN"",""HLCSTCP1"",28,0)"
^XMB(3.9,45,2,1308,0)=" Q"
^XMB(3.9,45,2,1309,0)="""RTN"",""HLCSTCP1"",29,0)"
^XMB(3.9,45,2,1310,0)=" ;"
^XMB(3.9,45,2,1311,0)="""RTN"",""HLCSTCP1"",30,0)"
^XMB(3.9,45,2,1312,0)="READ() ;read 1 message, returns ien in 773^ien in 772 for message"
^XMB(3.9,45,2,1313,0)="""RTN"",""HLCSTCP1"",31,0)"
^XMB(3.9,45,2,1314,0)=" D MON^HLCSTCP(""Reading"")"
^XMB(3.9,45,2,1315,0)="""RTN"",""HLCSTCP1"",32,0)"
^XMB(3.9,45,2,1316,0)=" N HLDB,HLDT,HLDEND,HLACKWT,HLDSTRT,HLHDR,HLIND1,HLINE,HLMSG,HLRDOUT,HLRS,HLX,X"
^XMB(3.9,45,2,1317,0)="""RTN"",""HLCSTCP1"",33,0)"
^XMB(3.9,45,2,1318,0)=" ;HLDSTRT=start char., HLDEND=end char., HLRS=record seperator"
^XMB(3.9,45,2,1319,0)="""RTN"",""HLCSTCP1"",34,0)"
^XMB(3.9,45,2,1320,0)=" S HLDSTRT=$C(11),HLDEND=$C(28),HLRS=$C(13)"
^XMB(3.9,45,2,1321,0)="""RTN"",""HLCSTCP1"",35,0)"
^XMB(3.9,45,2,1322,0)=" ;HLRDOUT=exit read loop, HLINE=line count, HLIND1=ien 773^ien 772"
^XMB(3.9,45,2,1323,0)="""RTN"",""HLCSTCP1"",36,0)"
^XMB(3.9,45,2,1324,0)=" ;HLHDR=have a header, ^TMP(...)=excess from last read, HLACKWT=wait for ack"
^XMB(3.9,45,2,1325,0)="""RTN"",""HLCSTCP1"",37,0)"
^XMB(3.9,45,2,1326,0)=" S (HLRDOUT,HLINE,HLIND1,HLHDR)=0,HLX=$G(^TMP(""HLCSTCP"",$J,0)),HLACKWT=HLDBACK"
^XMB(3.9,45,2,1327,0)="""RTN"",""HLCSTCP1"",38,0)"
^XMB(3.9,45,2,1328,0)=" K ^TMP(""HLCSTCP"",$J,0)"
^XMB(3.9,45,2,1329,0)="""RTN"",""HLCSTCP1"",39,0)"
^XMB(3.9,45,2,1330,0)=" F  D RDBLK Q:HLRDOUT"
^XMB(3.9,45,2,1331,0)="""RTN"",""HLCSTCP1"",40,0)"
^XMB(3.9,45,2,1332,0)=" ;save any excess for next time"
^XMB(3.9,45,2,1333,0)="""RTN"",""HLCSTCP1"",41,0)"
^XMB(3.9,45,2,1334,0)=" S:$L(HLX) ^TMP(""HLCSTCP"",$J,0)=HLX"
^XMB(3.9,45,2,1335,0)="""RTN"",""HLCSTCP1"",42,0)"
^XMB(3.9,45,2,1336,0)=" I +HLIND1,'$P(HLIND1,U,3) D DELMSG(HLIND1) S HLIND1=0"
^XMB(3.9,45,2,1337,0)="""RTN"",""HLCSTCP1"",43,0)"
^XMB(3.9,45,2,1338,0)=" Q HLIND1"
^XMB(3.9,45,2,1339,0)="""RTN"",""HLCSTCP1"",44,0)"
^XMB(3.9,45,2,1340,0)=" ;"
^XMB(3.9,45,2,1341,0)="""RTN"",""HLCSTCP1"",45,0)"
^XMB(3.9,45,2,1342,0)="RDBLK S HLDB=HLDBSIZE-$L(HLX)"
^XMB(3.9,45,2,1343,0)="""RTN"",""HLCSTCP1"",46,0)"
^XMB(3.9,45,2,1344,0)=" U IO R X#HLDB:HLDREAD"
^XMB(3.9,45,2,1345,0)="""RTN"",""HLCSTCP1"",47,0)"
^XMB(3.9,45,2,1346,0)=" ;switch to null device if opened to prevent 'leakage'"
^XMB(3.9,45,2,1347,0)="""RTN"",""HLCSTCP1"",48,0)"
^XMB(3.9,45,2,1348,0)=" I $G(IO(0))'="""",$G(IO(0))'=IO U IO(0)"
^XMB(3.9,45,2,1349,0)="""RTN"",""HLCSTCP1"",49,0)"
^XMB(3.9,45,2,1350,0)=" ; timedout, check ack timeout, clean up"
^XMB(3.9,45,2,1351,0)="""RTN"",""HLCSTCP1"",50,0)"
^XMB(3.9,45,2,1352,0)=" I '$T,X="""",HLX="""" S HLACKWT=HLACKWT-HLDREAD D:HLACKWT<0&'HLHDR CLEAN Q"
^XMB(3.9,45,2,1353,0)="""RTN"",""HLCSTCP1"",51,0)"
^XMB(3.9,45,2,1354,0)=" ;data stream: <sb>dddd<cr><eb><cr>"
^XMB(3.9,45,2,1355,0)="""RTN"",""HLCSTCP1"",52,0)"
^XMB(3.9,45,2,1356,0)=" ;add incoming line to what wasn't processed in last read"
^XMB(3.9,45,2,1357,0)="""RTN"",""HLCSTCP1"",53,0)"
^XMB(3.9,45,2,1358,0)=" S HLX=$G(HLX)_X"
^XMB(3.9,45,2,1359,0)="""RTN"",""HLCSTCP1"",54,0)"
^XMB(3.9,45,2,1360,0)=" ; look for segment= <CR>"
^XMB(3.9,45,2,1361,0)="""RTN"",""HLCSTCP1"",55,0)"
^XMB(3.9,45,2,1362,0)=" F  Q:HLX'[HLRS  D  Q:HLRDOUT"
^XMB(3.9,45,2,1363,0)="""RTN"",""HLCSTCP1"",56,0)"
^XMB(3.9,45,2,1364,0)=" . ; Get the first piece, save the rest of the line"
^XMB(3.9,45,2,1365,0)="""RTN"",""HLCSTCP1"",57,0)"
^XMB(3.9,45,2,1366,0)=" . S HLINE=HLINE+1,HLMSG(HLINE,0)=$P(HLX,HLRS),HLX=$P(HLX,HLRS,2,999)"
^XMB(3.9,45,2,1367,0)="""RTN"",""HLCSTCP1"",58,0)"
^XMB(3.9,45,2,1368,0)=" . ; check for start block, Quit if no ien"
^XMB(3.9,45,2,1369,0)="""RTN"",""HLCSTCP1"",59,0)"
^XMB(3.9,45,2,1370,0)=" . I HLMSG(HLINE,0)[HLDSTRT!HLHDR D  Q"
^XMB(3.9,45,2,1371,0)="""RTN"",""HLCSTCP1"",60,0)"
^XMB(3.9,45,2,1372,0)=" .. D:HLMSG(HLINE,0)[HLDSTRT"
^XMB(3.9,45,2,1373,0)="""RTN"",""HLCSTCP1"",61,0)"
^XMB(3.9,45,2,1374,0)=" ... S X=$L(HLMSG(HLINE,0),HLDSTRT)"
^XMB(3.9,45,2,1375,0)="""RTN"",""HLCSTCP1"",62,0)"
^XMB(3.9,45,2,1376,0)=" ... S:X>2 HLMSG(HLINE,0)=HLDSTRT_$P(HLMSG(HLINE,0),HLDSTRT,X)"
^XMB(3.9,45,2,1377,0)="""RTN"",""HLCSTCP1"",63,0)"
^XMB(3.9,45,2,1378,0)=" ... S HLMSG(HLINE,0)=$P(HLMSG(HLINE,0),HLDSTRT,2)"
^XMB(3.9,45,2,1379,0)="""RTN"",""HLCSTCP1"",64,0)"
^XMB(3.9,45,2,1380,0)=" ... D RESET:(HLINE>1)"
^XMB(3.9,45,2,1381,0)="""RTN"",""HLCSTCP1"",65,0)"
^XMB(3.9,45,2,1382,0)=" .. ;ping message"
^XMB(3.9,45,2,1383,0)="""RTN"",""HLCSTCP1"",66,0)"
^XMB(3.9,45,2,1384,0)=" .. I $E(HLMSG(1,0),1,9)=""MSH^PING^"" D PING Q"
^XMB(3.9,45,2,1385,0)="""RTN"",""HLCSTCP1"",67,0)"
^XMB(3.9,45,2,1386,0)=" .. ; get next ien to store"
^XMB(3.9,45,2,1387,0)="""RTN"",""HLCSTCP1"",68,0)"
^XMB(3.9,45,2,1388,0)=" .. D MIEN"
^XMB(3.9,45,2,1389,0)="""RTN"",""HLCSTCP1"",69,0)"
^XMB(3.9,45,2,1390,0)=" .. K HLMSG"
^XMB(3.9,45,2,1391,0)="""RTN"",""HLCSTCP1"",70,0)"
^XMB(3.9,45,2,1392,0)=" .. S (HLINE,HLHDR)=0"
^XMB(3.9,45,2,1393,0)="""RTN"",""HLCSTCP1"",71,0)"
^XMB(3.9,45,2,1394,0)=" . ; check for end block; HLMSG(HLINE) = <eb><cr>"
^XMB(3.9,45,2,1395,0)="""RTN"",""HLCSTCP1"",72,0)"
^XMB(3.9,45,2,1396,0)=" . I HLMSG(HLINE,0)[HLDEND D"
^XMB(3.9,45,2,1397,0)="""RTN"",""HLCSTCP1"",73,0)"
^XMB(3.9,45,2,1398,0)=" .. ;no msg. ien"
^XMB(3.9,45,2,1399,0)="""RTN"",""HLCSTCP1"",74,0)"
^XMB(3.9,45,2,1400,0)=" .. Q:'HLIND1"
^XMB(3.9,45,2,1401,0)="""RTN"",""HLCSTCP1"",75,0)"
^XMB(3.9,45,2,1402,0)=" .. ; Kill just the last line"
^XMB(3.9,45,2,1403,0)="""RTN"",""HLCSTCP1"",76,0)"
^XMB(3.9,45,2,1404,0)=" .. K HLMSG(HLINE,0) S HLINE=HLINE-1"
^XMB(3.9,45,2,1405,0)="""RTN"",""HLCSTCP1"",77,0)"
^XMB(3.9,45,2,1406,0)=" .. ; move into 772"
^XMB(3.9,45,2,1407,0)="""RTN"",""HLCSTCP1"",78,0)"
^XMB(3.9,45,2,1408,0)=" .. D SAVE(.HLMSG,""^HL(772,""_+$P(HLIND1,U,2)_"",""""IN"""")"")"
^XMB(3.9,45,2,1409,0)="""RTN"",""HLCSTCP1"",79,0)"
^XMB(3.9,45,2,1410,0)=" .. ;mark that end block has been received"
^XMB(3.9,45,2,1411,0)="""RTN"",""HLCSTCP1"",80,0)"
^XMB(3.9,45,2,1412,0)=" .. ;HLIND1=ien in 773^ien in 772^1 if end block was received"
^XMB(3.9,45,2,1413,0)="""RTN"",""HLCSTCP1"",81,0)"
^XMB(3.9,45,2,1414,0)=" .. S $P(HLIND1,U,3)=1"
^XMB(3.9,45,2,1415,0)="""RTN"",""HLCSTCP1"",82,0)"
^XMB(3.9,45,2,1416,0)=" .. ;reset variables for next message"
^XMB(3.9,45,2,1417,0)="""RTN"",""HLCSTCP1"",83,0)"
^XMB(3.9,45,2,1418,0)=" .. D CLEAN"
^XMB(3.9,45,2,1419,0)="""RTN"",""HLCSTCP1"",84,0)"
^XMB(3.9,45,2,1420,0)=" . ;add blank line for carriage return"
^XMB(3.9,45,2,1421,0)="""RTN"",""HLCSTCP1"",85,0)"
^XMB(3.9,45,2,1422,0)=" . I HLINE'=0,HLMSG(HLINE,0)]"""" S HLINE=HLINE+1,HLMSG(HLINE,0)="""""
^XMB(3.9,45,2,1423,0)="""RTN"",""HLCSTCP1"",86,0)"
^XMB(3.9,45,2,1424,0)=" Q:HLRDOUT"
^XMB(3.9,45,2,1425,0)="""RTN"",""HLCSTCP1"",87,0)"
^XMB(3.9,45,2,1426,0)=" ;If the line is long and no <CR> move it into the array. "
^XMB(3.9,45,2,1427,0)="""RTN"",""HLCSTCP1"",88,0)"
^XMB(3.9,45,2,1428,0)=" I ($L(HLX)=HLDBSIZE),(HLX'[HLRS),(HLX'[HLDEND),(HLX'[HLDSTRT) D  Q"
^XMB(3.9,45,2,1429,0)="""RTN"",""HLCSTCP1"",89,0)"
^XMB(3.9,45,2,1430,0)=" . S HLINE=HLINE+1,HLMSG(HLINE,0)=HLX,HLX="""""
^XMB(3.9,45,2,1431,0)="""RTN"",""HLCSTCP1"",90,0)"
^XMB(3.9,45,2,1432,0)=" ;have start block but no record seperator"
^XMB(3.9,45,2,1433,0)="""RTN"",""HLCSTCP1"",91,0)"
^XMB(3.9,45,2,1434,0)=" I HLX[HLDSTRT D  Q"
^XMB(3.9,45,2,1435,0)="""RTN"",""HLCSTCP1"",92,0)"
^XMB(3.9,45,2,1436,0)=" . ;check for more than 1 start block"
^XMB(3.9,45,2,1437,0)="""RTN"",""HLCSTCP1"",93,0)"
^XMB(3.9,45,2,1438,0)=" . S X=$L(HLX,HLDSTRT) S:X>2 HLX=HLDSTRT_$P(HLX,HLDSTRT,X)"
^XMB(3.9,45,2,1439,0)="""RTN"",""HLCSTCP1"",94,0)"
^XMB(3.9,45,2,1440,0)=" . S:$L($P(HLX,HLDSTRT,2))>8 HLINE=HLINE+1,HLMSG(HLINE,0)=$P(HLX,HLDSTRT,2),HLX="""",HLHDR=1"
^XMB(3.9,45,2,1441,0)="""RTN"",""HLCSTCP1"",95,0)"
^XMB(3.9,45,2,1442,0)=" . D RESET:(HLHDR&(HLINE>1))"
^XMB(3.9,45,2,1443,0)="""RTN"",""HLCSTCP1"",96,0)"
^XMB(3.9,45,2,1444,0)=" ;if no ien, then we don't have start block, reset"
^XMB(3.9,45,2,1445,0)="""RTN"",""HLCSTCP1"",97,0)"
^XMB(3.9,45,2,1446,0)=" I 'HLIND1 D CLEAN Q"
^XMB(3.9,45,2,1447,0)="""RTN"",""HLCSTCP1"",98,0)"
^XMB(3.9,45,2,1448,0)=" ; big message-merge from local to global every 100 lines"
^XMB(3.9,45,2,1449,0)="""RTN"",""HLCSTCP1"",99,0)"
^XMB(3.9,45,2,1450,0)=" I (HLINE-$O(HLMSG(0)))>100 D"
^XMB(3.9,45,2,1451,0)="""RTN"",""HLCSTCP1"",100,0)"
^XMB(3.9,45,2,1452,0)=" . M ^HL(772,+$P(HLIND1,U,2),""IN"")=HLMSG"
^XMB(3.9,45,2,1453,0)="""RTN"",""HLCSTCP1"",101,0)"
^XMB(3.9,45,2,1454,0)=" . ; reset working array"
^XMB(3.9,45,2,1455,0)="""RTN"",""HLCSTCP1"",102,0)"
^XMB(3.9,45,2,1456,0)=" . K HLMSG"
^XMB(3.9,45,2,1457,0)="""RTN"",""HLCSTCP1"",103,0)"
^XMB(3.9,45,2,1458,0)=" Q"
^XMB(3.9,45,2,1459,0)="""RTN"",""HLCSTCP1"",104,0)"
^XMB(3.9,45,2,1460,0)=" ;"
^XMB(3.9,45,2,1461,0)="""RTN"",""HLCSTCP1"",105,0)"
^XMB(3.9,45,2,1462,0)="SAVE(SRC,DEST) ;save into global & set top node"
^XMB(3.9,45,2,1463,0)="""RTN"",""HLCSTCP1"",106,0)"
^XMB(3.9,45,2,1464,0)=" ;SRC=source array (passed by ref.), DEST=destination global"
^XMB(3.9,45,2,1465,0)="""RTN"",""HLCSTCP1"",107,0)"
^XMB(3.9,45,2,1466,0)=" M @DEST=SRC"
^XMB(3.9,45,2,1467,0)="""RTN"",""HLCSTCP1"",108,0)"
^XMB(3.9,45,2,1468,0)=" S @DEST@(0)=""^^""_HLINE_""^""_HLINE_""^""_DT_""^"""
^XMB(3.9,45,2,1469,0)="""RTN"",""HLCSTCP1"",109,0)"
^XMB(3.9,45,2,1470,0)=" Q"
^XMB(3.9,45,2,1471,0)="""RTN"",""HLCSTCP1"",110,0)"
^XMB(3.9,45,2,1472,0)=" ;"
^XMB(3.9,45,2,1473,0)="""RTN"",""HLCSTCP1"",111,0)"
^XMB(3.9,45,2,1474,0)="DELMSG(HLMAMT) ;delete message from Message Administration/Message Text files."
^XMB(3.9,45,2,1475,0)="""RTN"",""HLCSTCP1"",112,0)"
^XMB(3.9,45,2,1476,0)=" N DIK,DA"
^XMB(3.9,45,2,1477,0)="""RTN"",""HLCSTCP1"",113,0)"
^XMB(3.9,45,2,1478,0)=" S DA=+HLMAMT,DIK=""^HLMA("""
^XMB(3.9,45,2,1479,0)="""RTN"",""HLCSTCP1"",114,0)"
^XMB(3.9,45,2,1480,0)=" D ^DIK"
^XMB(3.9,45,2,1481,0)="""RTN"",""HLCSTCP1"",115,0)"
^XMB(3.9,45,2,1482,0)=" S DA=$P(HLMAMT,U,2),DIK=""^HL(772,"""
^XMB(3.9,45,2,1483,0)="""RTN"",""HLCSTCP1"",116,0)"
^XMB(3.9,45,2,1484,0)=" D ^DIK"
^XMB(3.9,45,2,1485,0)="""RTN"",""HLCSTCP1"",117,0)"
^XMB(3.9,45,2,1486,0)=" Q"
^XMB(3.9,45,2,1487,0)="""RTN"",""HLCSTCP1"",118,0)"
^XMB(3.9,45,2,1488,0)="MIEN ; sets HLIND1=ien in 773^ien in 772 for message"
^XMB(3.9,45,2,1489,0)="""RTN"",""HLCSTCP1"",119,0)"
^XMB(3.9,45,2,1490,0)=" N HLMID,X"
^XMB(3.9,45,2,1491,0)="""RTN"",""HLCSTCP1"",120,0)"
^XMB(3.9,45,2,1492,0)=" I HLIND1 D"
^XMB(3.9,45,2,1493,0)="""RTN"",""HLCSTCP1"",121,0)"
^XMB(3.9,45,2,1494,0)=" . S:'$G(^HLMA(+HLIND1,0)) HLIND1=0"
^XMB(3.9,45,2,1495,0)="""RTN"",""HLCSTCP1"",122,0)"
^XMB(3.9,45,2,1496,0)=" . S:'$G(^HL(772,+$P(HLIND1,U,2),0)) HLIND1=0"
^XMB(3.9,45,2,1497,0)="""RTN"",""HLCSTCP1"",123,0)"
^XMB(3.9,45,2,1498,0)=" ;msg. id is 10th of MSH & 11th for BSH or FSH"
^XMB(3.9,45,2,1499,0)="""RTN"",""HLCSTCP1"",124,0)"
^XMB(3.9,45,2,1500,0)=" S X=10+($E(HLMSG(1,0),1,3)'=""MSH""),HLMID=$$PMSH(.HLMSG,X)"
^XMB(3.9,45,2,1501,0)="""RTN"",""HLCSTCP1"",125,0)"
^XMB(3.9,45,2,1502,0)=" ;if HLIND1 is set, kill old message, use HLIND1 for new"
^XMB(3.9,45,2,1503,0)="""RTN"",""HLCSTCP1"",126,0)"
^XMB(3.9,45,2,1504,0)=" ;message, it means we never got end block for 1st msg."
^XMB(3.9,45,2,1505,0)="""RTN"",""HLCSTCP1"",127,0)"
^XMB(3.9,45,2,1506,0)=" I HLIND1 D  Q"
^XMB(3.9,45,2,1507,0)="""RTN"",""HLCSTCP1"",128,0)"
^XMB(3.9,45,2,1508,0)=" . ;get pointer to 772, kill header"
^XMB(3.9,45,2,1509,0)="""RTN"",""HLCSTCP1"",129,0)"
^XMB(3.9,45,2,1510,0)=" . K ^HLMA(+HLIND1,""MSH"")"
^XMB(3.9,45,2,1511,0)="""RTN"",""HLCSTCP1"",130,0)"
^XMB(3.9,45,2,1512,0)=" . I $D(^HL(772,+$P(HLIND1,U,2),""IN"")) K ^(""IN"")"
^XMB(3.9,45,2,1513,0)="""RTN"",""HLCSTCP1"",131,0)"
^XMB(3.9,45,2,1514,0)=" . S X=$$MAID^HLTF(+HLIND1,HLMID)"
^XMB(3.9,45,2,1515,0)="""RTN"",""HLCSTCP1"",132,0)"
^XMB(3.9,45,2,1516,0)=" . D SAVE(.HLMSG,""^HLMA(""_+HLIND1_"",""""MSH"""")"")"
^XMB(3.9,45,2,1517,0)="""RTN"",""HLCSTCP1"",133,0)"
^XMB(3.9,45,2,1518,0)=" . S:$P(HLIND1,U,3) $P(HLIND1,U,3)="""""
^XMB(3.9,45,2,1519,0)="""RTN"",""HLCSTCP1"",134,0)"
^XMB(3.9,45,2,1520,0)=" D TCP^HLTF(.HLMID,.X,.HLDT)"
^XMB(3.9,45,2,1521,0)="""RTN"",""HLCSTCP1"",135,0)"
^XMB(3.9,45,2,1522,0)=" I 'X D  Q"
^XMB(3.9,45,2,1523,0)="""RTN"",""HLCSTCP1"",136,0)"
^XMB(3.9,45,2,1524,0)=" . ;error - record and reset array"
^XMB(3.9,45,2,1525,0)="""RTN"",""HLCSTCP1"",137,0)"
^XMB(3.9,45,2,1526,0)=" . ;killing HLLSTN will allow MON^HLCSTCP to work with multi-server"
^XMB(3.9,45,2,1527,0)="""RTN"",""HLCSTCP1"",138,0)"
^XMB(3.9,45,2,1528,0)=" . D CLEAN K HLLSTN"
^XMB(3.9,45,2,1529,0)="""RTN"",""HLCSTCP1"",139,0)"
^XMB(3.9,45,2,1530,0)=" . ;error 100=LLP Could not Enqueue the Message, reset array"
^XMB(3.9,45,2,1531,0)="""RTN"",""HLCSTCP1"",140,0)"
^XMB(3.9,45,2,1532,0)=" . D MONITOR^HLCSDR2(100,19,HLDP),MON^HLCSTCP(""ERROR"") H 30"
^XMB(3.9,45,2,1533,0)="""RTN"",""HLCSTCP1"",141,0)"
^XMB(3.9,45,2,1534,0)=" ;HLIND1=ien in 773^ien in 772"
^XMB(3.9,45,2,1535,0)="""RTN"",""HLCSTCP1"",142,0)"
^XMB(3.9,45,2,1536,0)=" S HLIND1=X_U_+$G(^HLMA(X,0))"
^XMB(3.9,45,2,1537,0)="""RTN"",""HLCSTCP1"",143,0)"
^XMB(3.9,45,2,1538,0)=" ;save MSH into 773"
^XMB(3.9,45,2,1539,0)="""RTN"",""HLCSTCP1"",144,0)"
^XMB(3.9,45,2,1540,0)=" D SAVE(.HLMSG,""^HLMA(""_+HLIND1_"",""""MSH"""")"")"
^XMB(3.9,45,2,1541,0)="""RTN"",""HLCSTCP1"",145,0)"
^XMB(3.9,45,2,1542,0)=" Q"
^XMB(3.9,45,2,1543,0)="""RTN"",""HLCSTCP1"",146,0)"
^XMB(3.9,45,2,1544,0)=" ;"
^XMB(3.9,45,2,1545,0)="""RTN"",""HLCSTCP1"",147,0)"
^XMB(3.9,45,2,1546,0)="PMSH(MSH,P) ;get piece P from MSH array (passed by ref.)"
^XMB(3.9,45,2,1547,0)="""RTN"",""HLCSTCP1"",148,0)"
^XMB(3.9,45,2,1548,0)=" N FS,I,L,L1,L2,X,Y"
^XMB(3.9,45,2,1549,0)="""RTN"",""HLCSTCP1"",149,0)"
^XMB(3.9,45,2,1550,0)=" S FS=$E(MSH(1,0),4),(L2,Y)=0,X="""""
^XMB(3.9,45,2,1551,0)="""RTN"",""HLCSTCP1"",150,0)"
^XMB(3.9,45,2,1552,0)=" F I=1:1 S L1=$L($G(MSH(I,0)),FS),L=L1+Y-1 D  Q:$L(X)!'$D(MSH(I,0))"
^XMB(3.9,45,2,1553,0)="""RTN"",""HLCSTCP1"",151,0)"
^XMB(3.9,45,2,1554,0)=" . S:L1=1 L=L+1"
^XMB(3.9,45,2,1555,0)="""RTN"",""HLCSTCP1"",152,0)"
^XMB(3.9,45,2,1556,0)=" . S:P'>L X=$P($G(MSH(I-1,0)),FS,P-L2)_$P($G(MSH(I,0)),FS,(P-Y))"
^XMB(3.9,45,2,1557,0)="""RTN"",""HLCSTCP1"",153,0)"
^XMB(3.9,45,2,1558,0)=" . S L2=Y,Y=L"
^XMB(3.9,45,2,1559,0)="""RTN"",""HLCSTCP1"",154,0)"
^XMB(3.9,45,2,1560,0)=" Q X"
^XMB(3.9,45,2,1561,0)="""RTN"",""HLCSTCP1"",155,0)"
^XMB(3.9,45,2,1562,0)=" ;"
^XMB(3.9,45,2,1563,0)="""RTN"",""HLCSTCP1"",156,0)"
^XMB(3.9,45,2,1564,0)="PING ;process PING message"
^XMB(3.9,45,2,1565,0)="""RTN"",""HLCSTCP1"",157,0)"
^XMB(3.9,45,2,1566,0)=" S X=HLMSG(1,0)"
^XMB(3.9,45,2,1567,0)="""RTN"",""HLCSTCP1"",158,0)"
^XMB(3.9,45,2,1568,0)=" I X[HLDEND U IO W X,! I $G(IO(0))'="""",$G(IO(0))'=IO U IO(0) ;switch to null device if opened to prevent 'leakage'"
^XMB(3.9,45,2,1569,0)="""RTN"",""HLCSTCP1"",159,0)"
^XMB(3.9,45,2,1570,0)=" ;"
^XMB(3.9,45,2,1571,0)="""RTN"",""HLCSTCP1"",160,0)"
^XMB(3.9,45,2,1572,0)="CLEAN ;reset var. for next message"
^XMB(3.9,45,2,1573,0)="""RTN"",""HLCSTCP1"",161,0)"
^XMB(3.9,45,2,1574,0)=" K HLMSG"
^XMB(3.9,45,2,1575,0)="""RTN"",""HLCSTCP1"",162,0)"
^XMB(3.9,45,2,1576,0)=" S HLINE=0,HLRDOUT=1"
^XMB(3.9,45,2,1577,0)="""RTN"",""HLCSTCP1"",163,0)"
^XMB(3.9,45,2,1578,0)=" Q"
^XMB(3.9,45,2,1579,0)="""RTN"",""HLCSTCP1"",164,0)"
^XMB(3.9,45,2,1580,0)=" ;"
^XMB(3.9,45,2,1581,0)="""RTN"",""HLCSTCP1"",165,0)"
^XMB(3.9,45,2,1582,0)="ERROR ; Error trap for disconnect error and return back to the read loop."
^XMB(3.9,45,2,1583,0)="""RTN"",""HLCSTCP1"",166,0)"
^XMB(3.9,45,2,1584,0)=" S $ETRAP=""D UNWIND^%ZTER"""
^XMB(3.9,45,2,1585,0)="""RTN"",""HLCSTCP1"",167,0)"
^XMB(3.9,45,2,1586,0)=" I $$EC^%ZOSV[""READ""!($$EC^%ZOSV[""NOTOPEN"")!($$EC^%ZOSV[""DEVNOTOPN"") D UNWIND^%ZTER Q"
^XMB(3.9,45,2,1587,0)="""RTN"",""HLCSTCP1"",168,0)"
^XMB(3.9,45,2,1588,0)=" I $$EC^%ZOSV[""WRITE"" D CC(""Wr-err"") D UNWIND^%ZTER Q"
^XMB(3.9,45,2,1589,0)="""RTN"",""HLCSTCP1"",169,0)"
^XMB(3.9,45,2,1590,0)=" S HLCSOUT=1 D ^%ZTER,CC(""Error"")"
^XMB(3.9,45,2,1591,0)="""RTN"",""HLCSTCP1"",170,0)"
^XMB(3.9,45,2,1592,0)=" D UNWIND^%ZTER"
^XMB(3.9,45,2,1593,0)="""RTN"",""HLCSTCP1"",171,0)"
^XMB(3.9,45,2,1594,0)=" Q"
^XMB(3.9,45,2,1595,0)="""RTN"",""HLCSTCP1"",172,0)"
^XMB(3.9,45,2,1596,0)=" ;"
^XMB(3.9,45,2,1597,0)="""RTN"",""HLCSTCP1"",173,0)"
^XMB(3.9,45,2,1598,0)="CC(X) ;cleanup and close"
^XMB(3.9,45,2,1599,0)="""RTN"",""HLCSTCP1"",174,0)"
^XMB(3.9,45,2,1600,0)=" D MON^HLCSTCP(X)"
^XMB(3.9,45,2,1601,0)="""RTN"",""HLCSTCP1"",175,0)"
^XMB(3.9,45,2,1602,0)=" H 2"
^XMB(3.9,45,2,1603,0)="""RTN"",""HLCSTCP1"",176,0)"
^XMB(3.9,45,2,1604,0)=" Q"
^XMB(3.9,45,2,1605,0)="""RTN"",""HLCSTCP1"",177,0)"
^XMB(3.9,45,2,1606,0)="RESET ;reset info as a result of no end block"
^XMB(3.9,45,2,1607,0)="""RTN"",""HLCSTCP1"",178,0)"
^XMB(3.9,45,2,1608,0)=" N %"
^XMB(3.9,45,2,1609,0)="""RTN"",""HLCSTCP1"",179,0)"
^XMB(3.9,45,2,1610,0)=" S HLMSG(1,0)=HLMSG(HLINE,0)"
^XMB(3.9,45,2,1611,0)="""RTN"",""HLCSTCP1"",180,0)"
^XMB(3.9,45,2,1612,0)=" F %=2:1:HLINE K HLMSG(%,0)"
^XMB(3.9,45,2,1613,0)="""RTN"",""HLCSTCP1"",181,0)"
^XMB(3.9,45,2,1614,0)=" S HLINE=1"
^XMB(3.9,45,2,1615,0)="""RTN"",""HLCSTCP1"",182,0)"
^XMB(3.9,45,2,1616,0)=" Q"
^XMB(3.9,45,2,1617,0)="""RTN"",""HLCSTCP2"")"
^XMB(3.9,45,2,1618,0)="0^12^B63043745^B55298525"
^XMB(3.9,45,2,1619,0)="""RTN"",""HLCSTCP2"",1,0)"
^XMB(3.9,45,2,1620,0)="HLCSTCP2 ;SFIRMFO/RSD - BI-DIRECTIONAL TCP ;09/13/2006"
^XMB(3.9,45,2,1621,0)="""RTN"",""HLCSTCP2"",2,0)"
^XMB(3.9,45,2,1622,0)=" ;;1.6;HEALTH LEVEL SEVEN;**19,43,49,57,63,64,66,67,76,77,87,109,133**;Oct 13,1995;Build 13"
^XMB(3.9,45,2,1623,0)="""RTN"",""HLCSTCP2"",3,0)"
^XMB(3.9,45,2,1624,0)=" ;Per VHA Directive 2004-038, this routine should not be modified."
^XMB(3.9,45,2,1625,0)="""RTN"",""HLCSTCP2"",4,0)"
^XMB(3.9,45,2,1626,0)=" ;Sender "
^XMB(3.9,45,2,1627,0)="""RTN"",""HLCSTCP2"",5,0)"
^XMB(3.9,45,2,1628,0)=" ;Request connection, send outbound message(s) delimited by MLLP"
^XMB(3.9,45,2,1629,0)="""RTN"",""HLCSTCP2"",6,0)"
^XMB(3.9,45,2,1630,0)=" ;Input : HLDP=Logical Link to use"
^XMB(3.9,45,2,1631,0)="""RTN"",""HLCSTCP2"",7,0)"
^XMB(3.9,45,2,1632,0)=" ; Set up error trap"
^XMB(3.9,45,2,1633,0)="""RTN"",""HLCSTCP2"",8,0)"
^XMB(3.9,45,2,1634,0)=" N $ETRAP,$ESTACK S $ETRAP=""D ERROR^HLCSTCP2"""
^XMB(3.9,45,2,1635,0)="""RTN"",""HLCSTCP2"",9,0)"
^XMB(3.9,45,2,1636,0)=" N HLMSG,HLPORT,HLRETRY,HLRETMG,HLTCPO,POP"
^XMB(3.9,45,2,1637,0)="""RTN"",""HLCSTCP2"",10,0)"
^XMB(3.9,45,2,1638,0)=" ;HLRETRY=number of retranmission for this link,HLRETMG=alert sent"
^XMB(3.9,45,2,1639,0)="""RTN"",""HLCSTCP2"",11,0)"
^XMB(3.9,45,2,1640,0)=" S HLTCPO=HLDP,HLMSG="""",(HLRETRY,HLRETMG)=0"
^XMB(3.9,45,2,1641,0)="""RTN"",""HLCSTCP2"",12,0)"
^XMB(3.9,45,2,1642,0)=" ;"
^XMB(3.9,45,2,1643,0)="""RTN"",""HLCSTCP2"",13,0)"
^XMB(3.9,45,2,1644,0)=" ;set IO(0) to the null device"
^XMB(3.9,45,2,1645,0)="""RTN"",""HLCSTCP2"",14,0)"
^XMB(3.9,45,2,1646,0)=" S IO(0)=$S(^%ZOSF(""OS"")[""OpenM"":$S($$OS^%ZOSV()[""VMS"":""_NLA0:"",$$OS^%ZOSV()[""UNIX"":""/dev/null"",1:$P),^%ZOSF(""OS"")[""DSM"":""_NLA0:"",1:$P)"
^XMB(3.9,45,2,1647,0)="""RTN"",""HLCSTCP2"",15,0)"
^XMB(3.9,45,2,1648,0)=" O IO(0) U IO(0)"
^XMB(3.9,45,2,1649,0)="""RTN"",""HLCSTCP2"",16,0)"
^XMB(3.9,45,2,1650,0)=" ;"
^XMB(3.9,45,2,1651,0)="""RTN"",""HLCSTCP2"",17,0)"
^XMB(3.9,45,2,1652,0)=" ;persistent conection, open connection first, HLPORT=open port"
^XMB(3.9,45,2,1653,0)="""RTN"",""HLCSTCP2"",18,0)"
^XMB(3.9,45,2,1654,0)=" I $G(HLTCPLNK)[""Y"" F  Q:$$OPEN  G EXIT:$$STOP^HLCSTCP H 1"
^XMB(3.9,45,2,1655,0)="""RTN"",""HLCSTCP2"",19,0)"
^XMB(3.9,45,2,1656,0)=" F  D QUE Q:$$STOP^HLCSTCP  D:'HLMSG  Q:$G(HLCSOUT)"
^XMB(3.9,45,2,1657,0)="""RTN"",""HLCSTCP2"",20,0)"
^XMB(3.9,45,2,1658,0)=" . ;no messages to send"
^XMB(3.9,45,2,1659,0)="""RTN"",""HLCSTCP2"",21,0)"
^XMB(3.9,45,2,1660,0)=" . D MON^HLCSTCP(""Idle"") H 3"
^XMB(3.9,45,2,1661,0)="""RTN"",""HLCSTCP2"",22,0)"
^XMB(3.9,45,2,1662,0)=" . ;persistent connection, no retention"
^XMB(3.9,45,2,1663,0)="""RTN"",""HLCSTCP2"",23,0)"
^XMB(3.9,45,2,1664,0)=" . Q:$G(HLTCPLNK)[""Y"""
^XMB(3.9,45,2,1665,0)="""RTN"",""HLCSTCP2"",24,0)"
^XMB(3.9,45,2,1666,0)=" . D MON^HLCSTCP(""Retention"")"
^XMB(3.9,45,2,1667,0)="""RTN"",""HLCSTCP2"",25,0)"
^XMB(3.9,45,2,1668,0)=" . N % I 0"
^XMB(3.9,45,2,1669,0)="""RTN"",""HLCSTCP2"",26,0)"
^XMB(3.9,45,2,1670,0)=" . ;if message comes in or ask to stop"
^XMB(3.9,45,2,1671,0)="""RTN"",""HLCSTCP2"",27,0)"
^XMB(3.9,45,2,1672,0)=" . F %=1:1:HLTCPRET H 1 I $$STOP^HLCSTCP!$O(^HLMA(""AC"",""O"",HLDP,0)) Q"
^XMB(3.9,45,2,1673,0)="""RTN"",""HLCSTCP2"",28,0)"
^XMB(3.9,45,2,1674,0)=" . E  S HLCSOUT=2 Q"
^XMB(3.9,45,2,1675,0)="""RTN"",""HLCSTCP2"",29,0)"
^XMB(3.9,45,2,1676,0)=" . Q:$$STOP^HLCSTCP"
^XMB(3.9,45,2,1677,0)="""RTN"",""HLCSTCP2"",30,0)"
^XMB(3.9,45,2,1678,0)=" . D MON^HLCSTCP(""Idle"")"
^XMB(3.9,45,2,1679,0)="""RTN"",""HLCSTCP2"",31,0)"
^XMB(3.9,45,2,1680,0)=" ;Close port"
^XMB(3.9,45,2,1681,0)="""RTN"",""HLCSTCP2"",32,0)"
^XMB(3.9,45,2,1682,0)=" I $D(HLPORT) D CLOSE^%ZISTCP K HLPORT"
^XMB(3.9,45,2,1683,0)="""RTN"",""HLCSTCP2"",33,0)"
^XMB(3.9,45,2,1684,0)="EXIT Q"
^XMB(3.9,45,2,1685,0)="""RTN"",""HLCSTCP2"",34,0)"
^XMB(3.9,45,2,1686,0)=" ;"
^XMB(3.9,45,2,1687,0)="""RTN"",""HLCSTCP2"",35,0)"
^XMB(3.9,45,2,1688,0)="QUE ; -- Check ""OUT"" queue for processing IF there is a message do it"
^XMB(3.9,45,2,1689,0)="""RTN"",""HLCSTCP2"",36,0)"
^XMB(3.9,45,2,1690,0)=" ; and then check the link if it open or not"
^XMB(3.9,45,2,1691,0)="""RTN"",""HLCSTCP2"",37,0)"
^XMB(3.9,45,2,1692,0)=" N HL,HLN,HLARR,HLHDR,HLI,HLJ,HLMSA,HLRESP,HLRESLT,HLRETRM,HLTCP,HLTCPI,X,Z,HLREREAD"
^XMB(3.9,45,2,1693,0)="""RTN"",""HLCSTCP2"",38,0)"
^XMB(3.9,45,2,1694,0)=" D MON^HLCSTCP(""Check out"")"
^XMB(3.9,45,2,1695,0)="""RTN"",""HLCSTCP2"",39,0)"
^XMB(3.9,45,2,1696,0)=" ;HLMSG=next msg, set at tag DONE"
^XMB(3.9,45,2,1697,0)="""RTN"",""HLCSTCP2"",40,0)"
^XMB(3.9,45,2,1698,0)=" I 'HLMSG S HLMSG=+$O(^HLMA(""AC"",""O"",HLDP,0)),HLRETRY=0 Q:'HLMSG"
^XMB(3.9,45,2,1699,0)="""RTN"",""HLCSTCP2"",41,0)"
^XMB(3.9,45,2,1700,0)=" ;"
^XMB(3.9,45,2,1701,0)="""RTN"",""HLCSTCP2"",42,0)"
^XMB(3.9,45,2,1702,0)=" ;**109**"
^XMB(3.9,45,2,1703,0)="""RTN"",""HLCSTCP2"",43,0)"
^XMB(3.9,45,2,1704,0)=" ;Temporarily lock ^HLMA to flush buffer and ensure edits are complete"
^XMB(3.9,45,2,1705,0)="""RTN"",""HLCSTCP2"",44,0)"
^XMB(3.9,45,2,1706,0)=" ;L +^HLMA(HLMSG):1 I '$T S HLMSG=0 Q"
^XMB(3.9,45,2,1707,0)="""RTN"",""HLCSTCP2"",45,0)"
^XMB(3.9,45,2,1708,0)=" ;L -^HLMA(HLMSG)"
^XMB(3.9,45,2,1709,0)="""RTN"",""HLCSTCP2"",46,0)"
^XMB(3.9,45,2,1710,0)=" ;"
^XMB(3.9,45,2,1711,0)="""RTN"",""HLCSTCP2"",47,0)"
^XMB(3.9,45,2,1712,0)=" S HLI=+$G(^HLMA(HLMSG,0)),HLJ=$O(^(""MSH"",0)),HLTCP="""""
^XMB(3.9,45,2,1713,0)="""RTN"",""HLCSTCP2"",48,0)"
^XMB(3.9,45,2,1714,0)=" ;don't have message text or MSH, kill x-ref and decrement 'to send'"
^XMB(3.9,45,2,1715,0)="""RTN"",""HLCSTCP2"",49,0)"
^XMB(3.9,45,2,1716,0)=" I 'HLI!'HLJ K ^HLMA(""AC"",""O"",HLDP,HLMSG) D LLCNT^HLCSTCP(HLDP,3,1) S HLMSG=0 Q"
^XMB(3.9,45,2,1717,0)="""RTN"",""HLCSTCP2"",50,0)"
^XMB(3.9,45,2,1718,0)=" ;update msg status to 'being transmitted'; if cancelled decrement link and quit"
^XMB(3.9,45,2,1719,0)="""RTN"",""HLCSTCP2"",51,0)"
^XMB(3.9,45,2,1720,0)=" I '$$CHKMSG(1.5) D LLCNT^HLCSTCP(HLDP,3,1) S HLMSG=0 Q"
^XMB(3.9,45,2,1721,0)="""RTN"",""HLCSTCP2"",52,0)"
^XMB(3.9,45,2,1722,0)=" ;number of retransmissions for message"
^XMB(3.9,45,2,1723,0)="""RTN"",""HLCSTCP2"",53,0)"
^XMB(3.9,45,2,1724,0)=" S HLRETRM=+$P(^HLMA(HLMSG,""P""),U,5)"
^XMB(3.9,45,2,1725,0)="""RTN"",""HLCSTCP2"",54,0)"
^XMB(3.9,45,2,1726,0)=" ;retries exceeded, HLRETRA:action i=ignore, r=restart, s=shutdown"
^XMB(3.9,45,2,1727,0)="""RTN"",""HLCSTCP2"",55,0)"
^XMB(3.9,45,2,1728,0)=" ;quit if restart or shutdown, link is going down"
^XMB(3.9,45,2,1729,0)="""RTN"",""HLCSTCP2"",56,0)"
^XMB(3.9,45,2,1730,0)=" I HLRETRY>HLDRETR D  Q:""I""'[HLRETRA"
^XMB(3.9,45,2,1731,0)="""RTN"",""HLCSTCP2"",57,0)"
^XMB(3.9,45,2,1732,0)=" . D MON^HLCSTCP(""Error"")"
^XMB(3.9,45,2,1733,0)="""RTN"",""HLCSTCP2"",58,0)"
^XMB(3.9,45,2,1734,0)=" . ;only 1 alert per link up time, don't send if restart"
^XMB(3.9,45,2,1735,0)="""RTN"",""HLCSTCP2"",59,0)"
^XMB(3.9,45,2,1736,0)=" . D:'HLRETMG&(HLRETRA'=""R"")"
^XMB(3.9,45,2,1737,0)="""RTN"",""HLCSTCP2"",60,0)"
^XMB(3.9,45,2,1738,0)=" .. ;send alert"
^XMB(3.9,45,2,1739,0)="""RTN"",""HLCSTCP2"",61,0)"
^XMB(3.9,45,2,1740,0)=" .. N XQA,XQAMSG,XQAOPT,XQAROU,XQAID,Z"
^XMB(3.9,45,2,1741,0)="""RTN"",""HLCSTCP2"",62,0)"
^XMB(3.9,45,2,1742,0)=" .. ;get mailgroup from file 869.3"
^XMB(3.9,45,2,1743,0)="""RTN"",""HLCSTCP2"",63,0)"
^XMB(3.9,45,2,1744,0)=" .. S HLRETMG=1,Z=$P($$PARAM^HLCS2,U,8) Q:Z="""""
^XMB(3.9,45,2,1745,0)="""RTN"",""HLCSTCP2"",64,0)"
^XMB(3.9,45,2,1746,0)=" .. S XQA(""G.""_Z)="""",XQAMSG=$$HTE^XLFDT($H,2)_"" HL7 LL ""_$P(^HLCS(870,HLDP,0),U)_"" exceeded retries. LL will ""_$S(HLRETRA=""S"":""shutdown."",HLRETRA=""R"":""restart."",1:""keep trying."")"
^XMB(3.9,45,2,1747,0)="""RTN"",""HLCSTCP2"",65,0)"
^XMB(3.9,45,2,1748,0)=" .. D SETUP^XQALERT"
^XMB(3.9,45,2,1749,0)="""RTN"",""HLCSTCP2"",66,0)"
^XMB(3.9,45,2,1750,0)=" . ;quit if action is ignore"
^XMB(3.9,45,2,1751,0)="""RTN"",""HLCSTCP2"",67,0)"
^XMB(3.9,45,2,1752,0)=" . Q:""I""[HLRETRA"
^XMB(3.9,45,2,1753,0)="""RTN"",""HLCSTCP2"",68,0)"
^XMB(3.9,45,2,1754,0)=" . ;this will shutdown this link"
^XMB(3.9,45,2,1755,0)="""RTN"",""HLCSTCP2"",69,0)"
^XMB(3.9,45,2,1756,0)=" . S HLCSOUT=1"
^XMB(3.9,45,2,1757,0)="""RTN"",""HLCSTCP2"",70,0)"
^XMB(3.9,45,2,1758,0)=" . ;action is shutdown, set shutdown flag so LM won't restart"
^XMB(3.9,45,2,1759,0)="""RTN"",""HLCSTCP2"",71,0)"
^XMB(3.9,45,2,1760,0)=" . S:HLRETRA=""S"" $P(^HLCS(870,HLDP,0),U,15)=1"
^XMB(3.9,45,2,1761,0)="""RTN"",""HLCSTCP2"",72,0)"
^XMB(3.9,45,2,1762,0)=" . D STATUS^HLTF0(HLMSG,4,103,""LLP Exceeded Retry Param"")"
^XMB(3.9,45,2,1763,0)="""RTN"",""HLCSTCP2"",73,0)"
^XMB(3.9,45,2,1764,0)=" I '$$OPEN Q"
^XMB(3.9,45,2,1765,0)="""RTN"",""HLCSTCP2"",74,0)"
^XMB(3.9,45,2,1766,0)=" D MON^HLCSTCP(""Send"")"
^XMB(3.9,45,2,1767,0)="""RTN"",""HLCSTCP2"",75,0)"
^XMB(3.9,45,2,1768,0)=" ; -- data passed in global array, success=1"
^XMB(3.9,45,2,1769,0)="""RTN"",""HLCSTCP2"",76,0)"
^XMB(3.9,45,2,1770,0)=" I $$WRITE(HLMSG)<0 Q"
^XMB(3.9,45,2,1771,0)="""RTN"",""HLCSTCP2"",77,0)"
^XMB(3.9,45,2,1772,0)=" S (HLTCP,HLTCPI)=HLMSG,HLRETRY=HLRETRY+1,HLRETRM=HLRETRM+1"
^XMB(3.9,45,2,1773,0)="""RTN"",""HLCSTCP2"",78,0)"
^XMB(3.9,45,2,1774,0)=" ;update status to awaiting response, decrement link if cancelled"
^XMB(3.9,45,2,1775,0)="""RTN"",""HLCSTCP2"",79,0)"
^XMB(3.9,45,2,1776,0)=" I '$$CHKMSG(1.7) D LLCNT^HLCSTCP(HLDP,3,1) S HLMSG=0 Q"
^XMB(3.9,45,2,1777,0)="""RTN"",""HLCSTCP2"",80,0)"
^XMB(3.9,45,2,1778,0)=" ;set transmission count, get ACKTIMEOUT override"
^XMB(3.9,45,2,1779,0)="""RTN"",""HLCSTCP2"",81,0)"
^XMB(3.9,45,2,1780,0)=" S $P(^HLMA(HLMSG,""P""),U,5)=HLRETRM I $P(^(""P""),U,7) S HLN(""ACKTIME"")=+$P(^(""P""),U,7)"
^XMB(3.9,45,2,1781,0)="""RTN"",""HLCSTCP2"",82,0)"
^XMB(3.9,45,2,1782,0)=" ;get header of message just sent"
^XMB(3.9,45,2,1783,0)="""RTN"",""HLCSTCP2"",83,0)"
^XMB(3.9,45,2,1784,0)=" K HLJ M HLJ=^HLMA(HLMSG,""MSH"")"
^XMB(3.9,45,2,1785,0)="""RTN"",""HLCSTCP2"",84,0)"
^XMB(3.9,45,2,1786,0)=" ;first component of sending app."
^XMB(3.9,45,2,1787,0)="""RTN"",""HLCSTCP2"",85,0)"
^XMB(3.9,45,2,1788,0)=" S HLN(""ECH"")=$$P^HLTPCK2(.HLJ,2),HLN(""SAN"")=$P($$P^HLTPCK2(.HLJ,3),$E(HLN(""ECH"")))"
^XMB(3.9,45,2,1789,0)="""RTN"",""HLCSTCP2"",86,0)"
^XMB(3.9,45,2,1790,0)=" ;msg type, msg. id, commit ack, and app. ack parameter"
^XMB(3.9,45,2,1791,0)="""RTN"",""HLCSTCP2"",87,0)"
^XMB(3.9,45,2,1792,0)=" S HLN(""TYPE"")=$$P^HLTPCK2(.HLJ,1),HLN(""MID"")=$$P^HLTPCK2(.HLJ,10),HLN(""ACAT"")=$$P^HLTPCK2(.HLJ,15),HLN(""APAT"")=$$P^HLTPCK2(.HLJ,16)"
^XMB(3.9,45,2,1793,0)="""RTN"",""HLCSTCP2"",88,0)"
^XMB(3.9,45,2,1794,0)=" ;MSA segment, message is a response, can't have an a. ack."
^XMB(3.9,45,2,1795,0)="""RTN"",""HLCSTCP2"",89,0)"
^XMB(3.9,45,2,1796,0)=" S Z=$$MSA^HLTP3(+^HLMA(HLMSG,0)) I Z]"""" S:HLN(""ACAT"")="""" HLN(""ACAT"")=""NE"" S HLN(""APAT"")=""NE"""
^XMB(3.9,45,2,1797,0)="""RTN"",""HLCSTCP2"",90,0)"
^XMB(3.9,45,2,1798,0)=" ;for batch/file with commit ack, reset c. ack and a. ack variables"
^XMB(3.9,45,2,1799,0)="""RTN"",""HLCSTCP2"",91,0)"
^XMB(3.9,45,2,1800,0)=" I ""BHS,FHS""[HLN(""TYPE"") S Z=$E(HLJ(1,0),5),X=$$P^HLTPCK2(.HLJ,9),HLN(""ACAT"")=$P(X,Z,5),HLN(""APAT"")=$P(X,Z,6),HLN(""MID"")=$$P^HLTPCK2(.HLJ,11)"
^XMB(3.9,45,2,1801,0)="""RTN"",""HLCSTCP2"",92,0)"
^XMB(3.9,45,2,1802,0)=" ;get event protocol"
^XMB(3.9,45,2,1803,0)="""RTN"",""HLCSTCP2"",93,0)"
^XMB(3.9,45,2,1804,0)=" S HLN(""EID"")=+$P(^HLMA(HLMSG,0),U,8),X=$G(^ORD(101,HLN(""EID""),770))"
^XMB(3.9,45,2,1805,0)="""RTN"",""HLCSTCP2"",94,0)"
^XMB(3.9,45,2,1806,0)=" ;set link counter to msg sent"
^XMB(3.9,45,2,1807,0)="""RTN"",""HLCSTCP2"",95,0)"
^XMB(3.9,45,2,1808,0)=" D LLCNT^HLCSTCP(HLDP,4)"
^XMB(3.9,45,2,1809,0)="""RTN"",""HLCSTCP2"",96,0)"
^XMB(3.9,45,2,1810,0)=" ;commit and app. ack is never, update status to complete and hang UNI-DIRECTIONAL WAIT"
^XMB(3.9,45,2,1811,0)="""RTN"",""HLCSTCP2"",97,0)"
^XMB(3.9,45,2,1812,0)=" I HLN(""ACAT"")=""NE"",HLN(""APAT"")=""NE"" D  Q"
^XMB(3.9,45,2,1813,0)="""RTN"",""HLCSTCP2"",98,0)"
^XMB(3.9,45,2,1814,0)=" .D DONE(3)"
^XMB(3.9,45,2,1815,0)="""RTN"",""HLCSTCP2"",99,0)"
^XMB(3.9,45,2,1816,0)=" .;"
^XMB(3.9,45,2,1817,0)="""RTN"",""HLCSTCP2"",100,0)"
^XMB(3.9,45,2,1818,0)=" .;"
^XMB(3.9,45,2,1819,0)="""RTN"",""HLCSTCP2"",101,0)"
^XMB(3.9,45,2,1820,0)=" .H $G(HLDWAIT)"
^XMB(3.9,45,2,1821,0)="""RTN"",""HLCSTCP2"",102,0)"
^XMB(3.9,45,2,1822,0)=" ;"
^XMB(3.9,45,2,1823,0)="""RTN"",""HLCSTCP2"",103,0)"
^XMB(3.9,45,2,1824,0)=" ;do structure is to stack error"
^XMB(3.9,45,2,1825,0)="""RTN"",""HLCSTCP2"",104,0)"
^XMB(3.9,45,2,1826,0)=" D"
^XMB(3.9,45,2,1827,0)="""RTN"",""HLCSTCP2"",105,0)"
^XMB(3.9,45,2,1828,0)=" . N $ETRAP,$ESTACK S $ETRAP=""D RDERR^HLCSTCP2"""
^XMB(3.9,45,2,1829,0)="""RTN"",""HLCSTCP2"",106,0)"
^XMB(3.9,45,2,1830,0)=" . ;HL*1.6*87: Read acknowledgement.  "
^XMB(3.9,45,2,1831,0)="""RTN"",""HLCSTCP2"",107,0)"
^XMB(3.9,45,2,1832,0)=" . ;Loop to re-read from buffer when receiving incorrect ack."
^XMB(3.9,45,2,1833,0)="""RTN"",""HLCSTCP2"",108,0)"
^XMB(3.9,45,2,1834,0)=" . F  D  Q:'+$G(HLREREAD)"
^XMB(3.9,45,2,1835,0)="""RTN"",""HLCSTCP2"",109,0)"
^XMB(3.9,45,2,1836,0)=" .. S HLREREAD=1"
^XMB(3.9,45,2,1837,0)="""RTN"",""HLCSTCP2"",110,0)"
^XMB(3.9,45,2,1838,0)=" .. ;override ack timeout"
^XMB(3.9,45,2,1839,0)="""RTN"",""HLCSTCP2"",111,0)"
^XMB(3.9,45,2,1840,0)=" .. I $G(HLN(""ACKTIME"")) N HLDBACK S HLDBACK=HLN(""ACKTIME"")"
^XMB(3.9,45,2,1841,0)="""RTN"",""HLCSTCP2"",112,0)"
^XMB(3.9,45,2,1842,0)=" .. ;check for response, quit if no-response, msg will be resent"
^XMB(3.9,45,2,1843,0)="""RTN"",""HLCSTCP2"",113,0)"
^XMB(3.9,45,2,1844,0)=" .. ;HLRESP=ien 773^ien 772 for response message"
^XMB(3.9,45,2,1845,0)="""RTN"",""HLCSTCP2"",114,0)"
^XMB(3.9,45,2,1846,0)=" .. S HLRESP=$$READ^HLCSTCP1()"
^XMB(3.9,45,2,1847,0)="""RTN"",""HLCSTCP2"",115,0)"
^XMB(3.9,45,2,1848,0)=" .. ;if no response, decrement counter and quit"
^XMB(3.9,45,2,1849,0)="""RTN"",""HLCSTCP2"",116,0)"
^XMB(3.9,45,2,1850,0)=" .. I 'HLRESP D  Q"
^XMB(3.9,45,2,1851,0)="""RTN"",""HLCSTCP2"",117,0)"
^XMB(3.9,45,2,1852,0)=" ...D LLCNT^HLCSTCP(HLDP,4,1)"
^XMB(3.9,45,2,1853,0)="""RTN"",""HLCSTCP2"",118,0)"
^XMB(3.9,45,2,1854,0)=" ...S HLREREAD=""0^No Response"""
^XMB(3.9,45,2,1855,0)="""RTN"",""HLCSTCP2"",119,0)"
^XMB(3.9,45,2,1856,0)=" ...;check if the port needs to be closed and re-opened before the next re-transmission attempt"
^XMB(3.9,45,2,1857,0)="""RTN"",""HLCSTCP2"",120,0)"
^XMB(3.9,45,2,1858,0)=" ...I $G(HLDRETRY(""CLOSE"")) D CLOSE^%ZISTCP K HLPORT"
^XMB(3.9,45,2,1859,0)="""RTN"",""HLCSTCP2"",121,0)"
^XMB(3.9,45,2,1860,0)=" .. ;X 0=re-read msg, 1=commit ack, 3=app ack success, 4=error"
^XMB(3.9,45,2,1861,0)="""RTN"",""HLCSTCP2"",122,0)"
^XMB(3.9,45,2,1862,0)=" .. S X=$$RSP^HLTP31(HLRESP,.HLN)"
^XMB(3.9,45,2,1863,0)="""RTN"",""HLCSTCP2"",123,0)"
^XMB(3.9,45,2,1864,0)=" .. ;X=0, re-read msg. Incorrect ack (bad MSH,MSA,msg id,or sending app)"
^XMB(3.9,45,2,1865,0)="""RTN"",""HLCSTCP2"",124,0)"
^XMB(3.9,45,2,1866,0)=" .. Q:'X "
^XMB(3.9,45,2,1867,0)="""RTN"",""HLCSTCP2"",125,0)"
^XMB(3.9,45,2,1868,0)=" .. ;commit ack - done"
^XMB(3.9,45,2,1869,0)="""RTN"",""HLCSTCP2"",126,0)"
^XMB(3.9,45,2,1870,0)=" .. I X=1 D  S HLREREAD=""0^Commit Ack"" Q"
^XMB(3.9,45,2,1871,0)="""RTN"",""HLCSTCP2"",127,0)"
^XMB(3.9,45,2,1872,0)=" ... ;don't need app. ack, set status to complete"
^XMB(3.9,45,2,1873,0)="""RTN"",""HLCSTCP2"",128,0)"
^XMB(3.9,45,2,1874,0)=" ... I ""NE""[HLN(""APAT"") D  Q"
^XMB(3.9,45,2,1875,0)="""RTN"",""HLCSTCP2"",129,0)"
^XMB(3.9,45,2,1876,0)=" ....D DONE(3)"
^XMB(3.9,45,2,1877,0)="""RTN"",""HLCSTCP2"",130,0)"
^XMB(3.9,45,2,1878,0)=" ....;"
^XMB(3.9,45,2,1879,0)="""RTN"",""HLCSTCP2"",131,0)"
^XMB(3.9,45,2,1880,0)=" ... ;response is deferred, set status to awaiting ack"
^XMB(3.9,45,2,1881,0)="""RTN"",""HLCSTCP2"",132,0)"
^XMB(3.9,45,2,1882,0)=" ... D DONE(2)"
^XMB(3.9,45,2,1883,0)="""RTN"",""HLCSTCP2"",133,0)"
^XMB(3.9,45,2,1884,0)=" ...;"
^XMB(3.9,45,2,1885,0)="""RTN"",""HLCSTCP2"",134,0)"
^XMB(3.9,45,2,1886,0)=" .. ;Error, HLRESLT=error number^error message from HLTP3"
^XMB(3.9,45,2,1887,0)="""RTN"",""HLCSTCP2"",135,0)"
^XMB(3.9,45,2,1888,0)=" .. I X=4 D  Q"
^XMB(3.9,45,2,1889,0)="""RTN"",""HLCSTCP2"",136,0)"
^XMB(3.9,45,2,1890,0)=" ... D DONE(4,+$G(HLRESLT),$P($G(HLRESLT),U,2))"
^XMB(3.9,45,2,1891,0)="""RTN"",""HLCSTCP2"",137,0)"
^XMB(3.9,45,2,1892,0)=" ...;"
^XMB(3.9,45,2,1893,0)="""RTN"",""HLCSTCP2"",138,0)"
^XMB(3.9,45,2,1894,0)=" ... S HLREREAD=""0^Error"""
^XMB(3.9,45,2,1895,0)="""RTN"",""HLCSTCP2"",139,0)"
^XMB(3.9,45,2,1896,0)=" .. ;app ack was successful"
^XMB(3.9,45,2,1897,0)="""RTN"",""HLCSTCP2"",140,0)"
^XMB(3.9,45,2,1898,0)=" .. D DONE(3) S HLREREAD=""0^App Ack"""
^XMB(3.9,45,2,1899,0)="""RTN"",""HLCSTCP2"",141,0)"
^XMB(3.9,45,2,1900,0)=" ..;"
^XMB(3.9,45,2,1901,0)="""RTN"",""HLCSTCP2"",142,0)"
^XMB(3.9,45,2,1902,0)=" Q"
^XMB(3.9,45,2,1903,0)="""RTN"",""HLCSTCP2"",143,0)"
^XMB(3.9,45,2,1904,0)=" ;"
^XMB(3.9,45,2,1905,0)="""RTN"",""HLCSTCP2"",144,0)"
^XMB(3.9,45,2,1906,0)="DCSEND ;direct connect"
^XMB(3.9,45,2,1907,0)="""RTN"",""HLCSTCP2"",145,0)"
^XMB(3.9,45,2,1908,0)=" ; Set up error trap"
^XMB(3.9,45,2,1909,0)="""RTN"",""HLCSTCP2"",146,0)"
^XMB(3.9,45,2,1910,0)=" N $ETRAP,$ESTACK S $ETRAP=""D ERROR^HLCSTCP2"""
^XMB(3.9,45,2,1911,0)="""RTN"",""HLCSTCP2"",147,0)"
^XMB(3.9,45,2,1912,0)=" ;override ack timeout"
^XMB(3.9,45,2,1913,0)="""RTN"",""HLCSTCP2"",148,0)"
^XMB(3.9,45,2,1914,0)=" I $G(HLP(""ACKTIME"")) N HLDBACK S HLDBACK=HLP(""ACKTIME"")"
^XMB(3.9,45,2,1915,0)="""RTN"",""HLCSTCP2"",149,0)"
^XMB(3.9,45,2,1916,0)=" I $$WRITE(HLMSG)<0 D:$G(HLERROR)]""""  Q  ;HL*1.6*77"
^XMB(3.9,45,2,1917,0)="""RTN"",""HLCSTCP2"",150,0)"
^XMB(3.9,45,2,1918,0)=" .  D STATUS^HLTF0(HLMSG,4,$P(HLERROR,""^""),$P(HLERROR,""^"",2),1) ;HL*1.6*77"
^XMB(3.9,45,2,1919,0)="""RTN"",""HLCSTCP2"",151,0)"
^XMB(3.9,45,2,1920,0)=" .  D LLCNT^HLCSTCP(HLDP,3,1)"
^XMB(3.9,45,2,1921,0)="""RTN"",""HLCSTCP2"",152,0)"
^XMB(3.9,45,2,1922,0)=" D LLCNT^HLCSTCP(HLDP,4)"
^XMB(3.9,45,2,1923,0)="""RTN"",""HLCSTCP2"",153,0)"
^XMB(3.9,45,2,1924,0)=" ;do structure is to stack error"
^XMB(3.9,45,2,1925,0)="""RTN"",""HLCSTCP2"",154,0)"
^XMB(3.9,45,2,1926,0)=" D"
^XMB(3.9,45,2,1927,0)="""RTN"",""HLCSTCP2"",155,0)"
^XMB(3.9,45,2,1928,0)=" . N $ETRAP,$ESTACK S $ETRAP=""D RDERR^HLCSTCP2"""
^XMB(3.9,45,2,1929,0)="""RTN"",""HLCSTCP2"",156,0)"
^XMB(3.9,45,2,1930,0)=" . ;HLRESP=ien 773^ien 772 for response message"
^XMB(3.9,45,2,1931,0)="""RTN"",""HLCSTCP2"",157,0)"
^XMB(3.9,45,2,1932,0)=" . S HLRESP=$$READ^HLCSTCP1()"
^XMB(3.9,45,2,1933,0)="""RTN"",""HLCSTCP2"",158,0)"
^XMB(3.9,45,2,1934,0)=" ;"
^XMB(3.9,45,2,1935,0)="""RTN"",""HLCSTCP2"",159,0)"
^XMB(3.9,45,2,1936,0)=" D DONE(3):$G(HLRESP),DONE(4,108,$S($G(HLERROR)]"""":$P(HLERROR,""^"",2),1:""No response"")):'$G(HLRESP)"
^XMB(3.9,45,2,1937,0)="""RTN"",""HLCSTCP2"",160,0)"
^XMB(3.9,45,2,1938,0)=" I $G(HLERROR)']"""" D"
^XMB(3.9,45,2,1939,0)="""RTN"",""HLCSTCP2"",161,0)"
^XMB(3.9,45,2,1940,0)=" .D MON^HLCSTCP(""Idle"")"
^XMB(3.9,45,2,1941,0)="""RTN"",""HLCSTCP2"",162,0)"
^XMB(3.9,45,2,1942,0)=" .I '$G(HLRESP) S HLERROR=""108^No response"""
^XMB(3.9,45,2,1943,0)="""RTN"",""HLCSTCP2"",163,0)"
^XMB(3.9,45,2,1944,0)=" ;Close port"
^XMB(3.9,45,2,1945,0)="""RTN"",""HLCSTCP2"",164,0)"
^XMB(3.9,45,2,1946,0)=" I $D(HLPORT) D CLOSE^%ZISTCP K HLPORT"
^XMB(3.9,45,2,1947,0)="""RTN"",""HLCSTCP2"",165,0)"
^XMB(3.9,45,2,1948,0)=" Q"
^XMB(3.9,45,2,1949,0)="""RTN"",""HLCSTCP2"",166,0)"
^XMB(3.9,45,2,1950,0)=" ;"
^XMB(3.9,45,2,1951,0)="""RTN"",""HLCSTCP2"",167,0)"
^XMB(3.9,45,2,1952,0)="DONE(ST,ERR,ERRMSG) ;set status to complete"
^XMB(3.9,45,2,1953,0)="""RTN"",""HLCSTCP2"",168,0)"
^XMB(3.9,45,2,1954,0)=" ;ST=status, ERR=error ien, ERRMSG=error msg"
^XMB(3.9,45,2,1955,0)="""RTN"",""HLCSTCP2"",169,0)"
^XMB(3.9,45,2,1956,0)=" D STATUS^HLTF0(HLMSG,ST,$G(ERR),$G(ERRMSG),1)"
^XMB(3.9,45,2,1957,0)="""RTN"",""HLCSTCP2"",170,0)"
^XMB(3.9,45,2,1958,0)=" ;"
^XMB(3.9,45,2,1959,0)="""RTN"",""HLCSTCP2"",171,0)"
^XMB(3.9,45,2,1960,0)=" ;**109**"
^XMB(3.9,45,2,1961,0)="""RTN"",""HLCSTCP2"",172,0)"
^XMB(3.9,45,2,1962,0)=" D DEQUE^HLCSREP(HLDP,""O"",HLMSG)"
^XMB(3.9,45,2,1963,0)="""RTN"",""HLCSTCP2"",173,0)"
^XMB(3.9,45,2,1964,0)=" ;"
^XMB(3.9,45,2,1965,0)="""RTN"",""HLCSTCP2"",174,0)"
^XMB(3.9,45,2,1966,0)=" ;check for more msg."
^XMB(3.9,45,2,1967,0)="""RTN"",""HLCSTCP2"",175,0)"
^XMB(3.9,45,2,1968,0)=" I $G(HLPRIO)'=""I"" S HLMSG=+$O(^HLMA(""AC"",""O"",HLDP,0)),HLRETRY=0"
^XMB(3.9,45,2,1969,0)="""RTN"",""HLCSTCP2"",176,0)"
^XMB(3.9,45,2,1970,0)=" Q"
^XMB(3.9,45,2,1971,0)="""RTN"",""HLCSTCP2"",177,0)"
^XMB(3.9,45,2,1972,0)=" ;"
^XMB(3.9,45,2,1973,0)="""RTN"",""HLCSTCP2"",178,0)"
^XMB(3.9,45,2,1974,0)="CHKMSG(HLI) ;check status of message and update if not cancelled"
^XMB(3.9,45,2,1975,0)="""RTN"",""HLCSTCP2"",179,0)"
^XMB(3.9,45,2,1976,0)=" ;input: HLI=new status, HLMSG=ien of msg in 773"
^XMB(3.9,45,2,1977,0)="""RTN"",""HLCSTCP2"",180,0)"
^XMB(3.9,45,2,1978,0)=" ;returns 1=msg was updated, 0=msg has been canceled"
^XMB(3.9,45,2,1979,0)="""RTN"",""HLCSTCP2"",181,0)"
^XMB(3.9,45,2,1980,0)=" N X"
^XMB(3.9,45,2,1981,0)="""RTN"",""HLCSTCP2"",182,0)"
^XMB(3.9,45,2,1982,0)=" ;"
^XMB(3.9,45,2,1983,0)="""RTN"",""HLCSTCP2"",183,0)"
^XMB(3.9,45,2,1984,0)=" ;**109**"
^XMB(3.9,45,2,1985,0)="""RTN"",""HLCSTCP2"",184,0)"
^XMB(3.9,45,2,1986,0)=" ;F  L +^HLMA(HLMSG,""P""):1 Q:$T  H 1"
^XMB(3.9,45,2,1987,0)="""RTN"",""HLCSTCP2"",185,0)"
^XMB(3.9,45,2,1988,0)=" ;"
^XMB(3.9,45,2,1989,0)="""RTN"",""HLCSTCP2"",186,0)"
^XMB(3.9,45,2,1990,0)=" ;"
^XMB(3.9,45,2,1991,0)="""RTN"",""HLCSTCP2"",187,0)"
^XMB(3.9,45,2,1992,0)=" ; New HL*1.6*77 code starting here..."
^XMB(3.9,45,2,1993,0)="""RTN"",""HLCSTCP2"",188,0)"
^XMB(3.9,45,2,1994,0)=" I '$D(^HLMA(HLMSG,""P"")) D  Q 0"
^XMB(3.9,45,2,1995,0)="""RTN"",""HLCSTCP2"",189,0)"
^XMB(3.9,45,2,1996,0)=" .  S HLERROR=""2^Missing status field"""
^XMB(3.9,45,2,1997,0)="""RTN"",""HLCSTCP2"",190,0)"
^XMB(3.9,45,2,1998,0)=" .  D STATUS^HLTF0(HLMSG,4,$P(HLERROR,U),$P(HLERROR,U,2),1)"
^XMB(3.9,45,2,1999,0)="""RTN"",""HLCSTCP2"",191,0)"
^XMB(3.9,45,2,2000,0)=" .;"
^XMB(3.9,45,2,2001,0)="""RTN"",""HLCSTCP2"",192,0)"
^XMB(3.9,45,2,2002,0)=" .;**109**"
^XMB(3.9,45,2,2003,0)="""RTN"",""HLCSTCP2"",193,0)"
^XMB(3.9,45,2,2004,0)=" . D DEQUE^HLCSREP(HLDP,""O"",HLMSG)"
^XMB(3.9,45,2,2005,0)="""RTN"",""HLCSTCP2"",194,0)"
^XMB(3.9,45,2,2006,0)=" .;L -^HLMA(HLMSG,""P"")"
^XMB(3.9,45,2,2007,0)="""RTN"",""HLCSTCP2"",195,0)"
^XMB(3.9,45,2,2008,0)=" ;**end 109**"
^XMB(3.9,45,2,2009,0)="""RTN"",""HLCSTCP2"",196,0)"
^XMB(3.9,45,2,2010,0)=" ;"
^XMB(3.9,45,2,2011,0)="""RTN"",""HLCSTCP2"",197,0)"
^XMB(3.9,45,2,2012,0)=" ; End of HL*1.6*77 modifications"
^XMB(3.9,45,2,2013,0)="""RTN"",""HLCSTCP2"",198,0)"
^XMB(3.9,45,2,2014,0)=" ;"
^XMB(3.9,45,2,2015,0)="""RTN"",""HLCSTCP2"",199,0)"
^XMB(3.9,45,2,2016,0)=" ;get status, quit if msg was cancelled"
^XMB(3.9,45,2,2017,0)="""RTN"",""HLCSTCP2"",200,0)"
^XMB(3.9,45,2,2018,0)=" ;"
^XMB(3.9,45,2,2019,0)="""RTN"",""HLCSTCP2"",201,0)"
^XMB(3.9,45,2,2020,0)=" ;**109**"
^XMB(3.9,45,2,2021,0)="""RTN"",""HLCSTCP2"",202,0)"
^XMB(3.9,45,2,2022,0)=" ;S X=+^HLMA(HLMSG,""P"") I X=3 L -^HLMA(HLMSG,""P"") Q 0"
^XMB(3.9,45,2,2023,0)="""RTN"",""HLCSTCP2"",203,0)"
^XMB(3.9,45,2,2024,0)=" S X=+^HLMA(HLMSG,""P"") Q:X=3 0"
^XMB(3.9,45,2,2025,0)="""RTN"",""HLCSTCP2"",204,0)"
^XMB(3.9,45,2,2026,0)=" ;"
^XMB(3.9,45,2,2027,0)="""RTN"",""HLCSTCP2"",205,0)"
^XMB(3.9,45,2,2028,0)=" ;update status if it is different"
^XMB(3.9,45,2,2029,0)="""RTN"",""HLCSTCP2"",206,0)"
^XMB(3.9,45,2,2030,0)=" I $G(HLI),HLI'=X D STATUS^HLTF0(HLMSG,HLI)"
^XMB(3.9,45,2,2031,0)="""RTN"",""HLCSTCP2"",207,0)"
^XMB(3.9,45,2,2032,0)=" ;"
^XMB(3.9,45,2,2033,0)="""RTN"",""HLCSTCP2"",208,0)"
^XMB(3.9,45,2,2034,0)=" ;**109**"
^XMB(3.9,45,2,2035,0)="""RTN"",""HLCSTCP2"",209,0)"
^XMB(3.9,45,2,2036,0)=" ;L -^HLMA(HLMSG,""P"")"
^XMB(3.9,45,2,2037,0)="""RTN"",""HLCSTCP2"",210,0)"
^XMB(3.9,45,2,2038,0)=" ;"
^XMB(3.9,45,2,2039,0)="""RTN"",""HLCSTCP2"",211,0)"
^XMB(3.9,45,2,2040,0)=" Q 1"
^XMB(3.9,45,2,2041,0)="""RTN"",""HLCSTCP2"",212,0)"
^XMB(3.9,45,2,2042,0)=" ;"
^XMB(3.9,45,2,2043,0)="""RTN"",""HLCSTCP2"",213,0)"
^XMB(3.9,45,2,2044,0)="WRITE(HLDA) ; write message in HL7 format"
^XMB(3.9,45,2,2045,0)="""RTN"",""HLCSTCP2"",214,0)"
^XMB(3.9,45,2,2046,0)=" ;  HLDA       - ien of message in 773"
^XMB(3.9,45,2,2047,0)="""RTN"",""HLCSTCP2"",215,0)"
^XMB(3.9,45,2,2048,0)=" ;             - start block $C(11)"
^XMB(3.9,45,2,2049,0)="""RTN"",""HLCSTCP2"",216,0)"
^XMB(3.9,45,2,2050,0)=" ;             - end block $C(28)"
^XMB(3.9,45,2,2051,0)="""RTN"",""HLCSTCP2"",217,0)"
^XMB(3.9,45,2,2052,0)=" ;             - record separator $C(13)"
^XMB(3.9,45,2,2053,0)="""RTN"",""HLCSTCP2"",218,0)"
^XMB(3.9,45,2,2054,0)=" ;Output(s): 1 - Successful"
^XMB(3.9,45,2,2055,0)="""RTN"",""HLCSTCP2"",219,0)"
^XMB(3.9,45,2,2056,0)=" ;           -1 - Unsuccessful"
^XMB(3.9,45,2,2057,0)="""RTN"",""HLCSTCP2"",220,0)"
^XMB(3.9,45,2,2058,0)=" ;"
^XMB(3.9,45,2,2059,0)="""RTN"",""HLCSTCP2"",221,0)"
^XMB(3.9,45,2,2060,0)=" N HLDA2,HLAR,HLI,LINENO,X"
^XMB(3.9,45,2,2061,0)="""RTN"",""HLCSTCP2"",222,0)"
^XMB(3.9,45,2,2062,0)=" ;set error trap, used when called from HLTP3"
^XMB(3.9,45,2,2063,0)="""RTN"",""HLCSTCP2"",223,0)"
^XMB(3.9,45,2,2064,0)=" ;"
^XMB(3.9,45,2,2065,0)="""RTN"",""HLCSTCP2"",224,0)"
^XMB(3.9,45,2,2066,0)=" ; New HL*1.6*77 code starts here..."
^XMB(3.9,45,2,2067,0)="""RTN"",""HLCSTCP2"",225,0)"
^XMB(3.9,45,2,2068,0)=" N $ETRAP,$ESTACK S $ETRAP=""D ERROR^HLCSTCP2"""
^XMB(3.9,45,2,2069,0)="""RTN"",""HLCSTCP2"",226,0)"
^XMB(3.9,45,2,2070,0)=" I $G(^HLMA(HLDA,0))'>0 D  Q -1"
^XMB(3.9,45,2,2071,0)="""RTN"",""HLCSTCP2"",227,0)"
^XMB(3.9,45,2,2072,0)=" .  S HLERROR=""2^Message Text pointer missing"""
^XMB(3.9,45,2,2073,0)="""RTN"",""HLCSTCP2"",228,0)"
^XMB(3.9,45,2,2074,0)=" S HLDA2=+$G(^HLMA(HLDA,0))"
^XMB(3.9,45,2,2075,0)="""RTN"",""HLCSTCP2"",229,0)"
^XMB(3.9,45,2,2076,0)=" ; End of HL*1.6*77 modifications..."
^XMB(3.9,45,2,2077,0)="""RTN"",""HLCSTCP2"",230,0)"
^XMB(3.9,45,2,2078,0)=" ;"
^XMB(3.9,45,2,2079,0)="""RTN"",""HLCSTCP2"",231,0)"
^XMB(3.9,45,2,2080,0)=" Q:'$G(^HLMA(HLDA,0)) -1 ;HL*1.6*77"
^XMB(3.9,45,2,2081,0)="""RTN"",""HLCSTCP2"",232,0)"
^XMB(3.9,45,2,2082,0)=" ; header is in ^HLMA(, message is in ^HL(772,"
^XMB(3.9,45,2,2083,0)="""RTN"",""HLCSTCP2"",233,0)"
^XMB(3.9,45,2,2084,0)=" S LINENO=1,HLI=0,HLAR=""^HLMA(HLDA,""""MSH"""")"""
^XMB(3.9,45,2,2085,0)="""RTN"",""HLCSTCP2"",234,0)"
^XMB(3.9,45,2,2086,0)=" U IO"
^XMB(3.9,45,2,2087,0)="""RTN"",""HLCSTCP2"",235,0)"
^XMB(3.9,45,2,2088,0)=" D  W $C(13) S HLAR=""^HL(772,HLDA2,""""IN"""")"",HLI=0 D"
^XMB(3.9,45,2,2089,0)="""RTN"",""HLCSTCP2"",236,0)"
^XMB(3.9,45,2,2090,0)=" . F  S HLI=$O(@HLAR@(HLI)) Q:'HLI  S X=$G(^(HLI,0)) D"
^XMB(3.9,45,2,2091,0)="""RTN"",""HLCSTCP2"",237,0)"
^XMB(3.9,45,2,2092,0)=" .. ;first line, need start block char."
^XMB(3.9,45,2,2093,0)="""RTN"",""HLCSTCP2"",238,0)"
^XMB(3.9,45,2,2094,0)=" .. S:LINENO=1 X=$C(11)_X"
^XMB(3.9,45,2,2095,0)="""RTN"",""HLCSTCP2"",239,0)"
^XMB(3.9,45,2,2096,0)=" .. I X]"""" W X,!"
^XMB(3.9,45,2,2097,0)="""RTN"",""HLCSTCP2"",240,0)"
^XMB(3.9,45,2,2098,0)=" .. ;send CR for blank lines"
^XMB(3.9,45,2,2099,0)="""RTN"",""HLCSTCP2"",241,0)"
^XMB(3.9,45,2,2100,0)=" .. I X="""" W $C(13)"
^XMB(3.9,45,2,2101,0)="""RTN"",""HLCSTCP2"",242,0)"
^XMB(3.9,45,2,2102,0)=" .. S LINENO=LINENO+1"
^XMB(3.9,45,2,2103,0)="""RTN"",""HLCSTCP2"",243,0)"
^XMB(3.9,45,2,2104,0)=" ; Sends end block for this message"
^XMB(3.9,45,2,2105,0)="""RTN"",""HLCSTCP2"",244,0)"
^XMB(3.9,45,2,2106,0)=" S X=$C(28)_$C(13)"
^XMB(3.9,45,2,2107,0)="""RTN"",""HLCSTCP2"",245,0)"
^XMB(3.9,45,2,2108,0)=" U IO W X,!"
^XMB(3.9,45,2,2109,0)="""RTN"",""HLCSTCP2"",246,0)"
^XMB(3.9,45,2,2110,0)=" I $G(IO(0))'="""",$G(IO(0))'=IO U IO(0) ;switch to null device if opened to prevent 'leakage'"
^XMB(3.9,45,2,2111,0)="""RTN"",""HLCSTCP2"",247,0)"
^XMB(3.9,45,2,2112,0)=" Q 1"
^XMB(3.9,45,2,2113,0)="""RTN"",""HLCSTCP2"",248,0)"
^XMB(3.9,45,2,2114,0)=" ;"
^XMB(3.9,45,2,2115,0)="""RTN"",""HLCSTCP2"",249,0)"
^XMB(3.9,45,2,2116,0)="OPEN() ; -- Open TCP/IP device (Client)"
^XMB(3.9,45,2,2117,0)="""RTN"",""HLCSTCP2"",250,0)"
^XMB(3.9,45,2,2118,0)=" ;HLPORT=port, defined only if port is open"
^XMB(3.9,45,2,2119,0)="""RTN"",""HLCSTCP2"",251,0)"
^XMB(3.9,45,2,2120,0)=" ;HLPORTA=number of attempted opens"
^XMB(3.9,45,2,2121,0)="""RTN"",""HLCSTCP2"",252,0)"
^XMB(3.9,45,2,2122,0)=" I $D(HLPORT) S IO=HLPORT D  Q 1"
^XMB(3.9,45,2,2123,0)="""RTN"",""HLCSTCP2"",253,0)"
^XMB(3.9,45,2,2124,0)=" . U IO"
^XMB(3.9,45,2,2125,0)="""RTN"",""HLCSTCP2"",254,0)"
^XMB(3.9,45,2,2126,0)=" . I HLOS[""OpenM"" X ""U IO:(::""""-M"""")"" ;use packet mode on Cache'"
^XMB(3.9,45,2,2127,0)="""RTN"",""HLCSTCP2"",255,0)"
^XMB(3.9,45,2,2128,0)=" N HLDOM,HLI,HLIP,HLPORTA"
^XMB(3.9,45,2,2129,0)="""RTN"",""HLCSTCP2"",256,0)"
^XMB(3.9,45,2,2130,0)=" G OPENA^HLCSTCP3"
^XMB(3.9,45,2,2131,0)="""RTN"",""HLCSTCP2"",257,0)"
^XMB(3.9,45,2,2132,0)=" ;"
^XMB(3.9,45,2,2133,0)="""RTN"",""HLCSTCP2"",258,0)"
^XMB(3.9,45,2,2134,0)="RDERR D RDERR^HLCSTCP4 Q  ; Exceeded 10,000 bytes, so split on 12/2/03-LJA"
^XMB(3.9,45,2,2135,0)="""RTN"",""HLCSTCP2"",259,0)"
^XMB(3.9,45,2,2136,0)="ERROR D ERROR^HLCSTCP4 Q  ; Exceeded 10,000 bytes, so split on 12/2/03-LJA"
^XMB(3.9,45,2,2137,0)="""RTN"",""HLCSTCP2"",260,0)"
^XMB(3.9,45,2,2138,0)=" ;"
^XMB(3.9,45,2,2139,0)="""RTN"",""HLCSTCP2"",261,0)"
^XMB(3.9,45,2,2140,0)="CC(X) ;cleanup and close"
^XMB(3.9,45,2,2141,0)="""RTN"",""HLCSTCP2"",262,0)"
^XMB(3.9,45,2,2142,0)=" D MON^HLCSTCP(X)"
^XMB(3.9,45,2,2143,0)="""RTN"",""HLCSTCP2"",263,0)"
^XMB(3.9,45,2,2144,0)=" I $D(HLPORT) D CLOSE^%ZISTCP K HLPORT"
^XMB(3.9,45,2,2145,0)="""RTN"",""HLCSTCP2"",264,0)"
^XMB(3.9,45,2,2146,0)=" H 2"
^XMB(3.9,45,2,2147,0)="""RTN"",""HLCSTCP2"",265,0)"
^XMB(3.9,45,2,2148,0)=" Q"
^XMB(3.9,45,2,2149,0)="""RTN"",""HLCSTCP3"")"
^XMB(3.9,45,2,2150,0)="0^4^B4549114^B3590592"
^XMB(3.9,45,2,2151,0)="""RTN"",""HLCSTCP3"",1,0)"
^XMB(3.9,45,2,2152,0)="HLCSTCP3 ;SFIRMFO/RSD - BI-DIRECTIONAL TCP ;09/13/2006"
^XMB(3.9,45,2,2153,0)="""RTN"",""HLCSTCP3"",2,0)"
^XMB(3.9,45,2,2154,0)=" ;;1.6;HEALTH LEVEL SEVEN;**76,77,133**;OCT 13, 1995;Build 13"
^XMB(3.9,45,2,2155,0)="""RTN"",""HLCSTCP3"",3,0)"
^XMB(3.9,45,2,2156,0)=" ;Per VHA Directive 2004-038, this routine should not be modified."
^XMB(3.9,45,2,2157,0)="""RTN"",""HLCSTCP3"",4,0)"
^XMB(3.9,45,2,2158,0)=" ;"
^XMB(3.9,45,2,2159,0)="""RTN"",""HLCSTCP3"",5,0)"
^XMB(3.9,45,2,2160,0)="OPENA I $G(HLMSG),$D(^HLMA(HLMSG,""P"")) S HLPORTA=+$P(^(""P""),U,6)"
^XMB(3.9,45,2,2161,0)="""RTN"",""HLCSTCP3"",6,0)"
^XMB(3.9,45,2,2162,0)=" D MON^HLCSTCP(""Open"")"
^XMB(3.9,45,2,2163,0)="""RTN"",""HLCSTCP3"",7,0)"
^XMB(3.9,45,2,2164,0)=" S POP=1"
^XMB(3.9,45,2,2165,0)="""RTN"",""HLCSTCP3"",8,0)"
^XMB(3.9,45,2,2166,0)=" I $G(HLDIRECT(""OPEN TIMEOUT"")) D"
^XMB(3.9,45,2,2167,0)="""RTN"",""HLCSTCP3"",9,0)"
^XMB(3.9,45,2,2168,0)=" .S HLI=1"
^XMB(3.9,45,2,2169,0)="""RTN"",""HLCSTCP3"",10,0)"
^XMB(3.9,45,2,2170,0)=" .D CALL^%ZISTCP(HLTCPADD,HLTCPORT,HLDIRECT(""OPEN TIMEOUT""))"
^XMB(3.9,45,2,2171,0)="""RTN"",""HLCSTCP3"",11,0)"
^XMB(3.9,45,2,2172,0)=" E  D"
^XMB(3.9,45,2,2173,0)="""RTN"",""HLCSTCP3"",12,0)"
^XMB(3.9,45,2,2174,0)=" .F HLI=1:1:HLDRETR D CALL^%ZISTCP(HLTCPADD,HLTCPORT) Q:'POP"
^XMB(3.9,45,2,2175,0)="""RTN"",""HLCSTCP3"",13,0)"
^XMB(3.9,45,2,2176,0)=" ;set # of opens back in msg"
^XMB(3.9,45,2,2177,0)="""RTN"",""HLCSTCP3"",14,0)"
^XMB(3.9,45,2,2178,0)=" I $G(HLMSG),$D(^HLMA(HLMSG,""P"")) S $P(^(""P""),U,6)=HLPORTA+HLI"
^XMB(3.9,45,2,2179,0)="""RTN"",""HLCSTCP3"",15,0)"
^XMB(3.9,45,2,2180,0)=" ;device open"
^XMB(3.9,45,2,2181,0)="""RTN"",""HLCSTCP3"",16,0)"
^XMB(3.9,45,2,2182,0)=" I 'POP S HLPORT=IO D  Q $S($G(HLERROR)]"""":0,1:1)"
^XMB(3.9,45,2,2183,0)="""RTN"",""HLCSTCP3"",17,0)"
^XMB(3.9,45,2,2184,0)=" . N $ETRAP,$ESTACK S $ETRAP=""D ERROR^HLCSTCP2"" ;HL*1.6*77"
^XMB(3.9,45,2,2185,0)="""RTN"",""HLCSTCP3"",18,0)"
^XMB(3.9,45,2,2186,0)=" . ;if address came from DNS, set back into LL"
^XMB(3.9,45,2,2187,0)="""RTN"",""HLCSTCP3"",19,0)"
^XMB(3.9,45,2,2188,0)=" . I $D(HLIP) S $P(^HLCS(870,HLDP,400),U)=HLTCPADD"
^XMB(3.9,45,2,2189,0)="""RTN"",""HLCSTCP3"",20,0)"
^XMB(3.9,45,2,2190,0)=" . ; write and read to check if still open"
^XMB(3.9,45,2,2191,0)="""RTN"",""HLCSTCP3"",21,0)"
^XMB(3.9,45,2,2192,0)=" . Q:HLOS'[""OpenM""  X ""U IO:(::""""-M"""")"" ; must be Cache/NT + use packet mode"
^XMB(3.9,45,2,2193,0)="""RTN"",""HLCSTCP3"",22,0)"
^XMB(3.9,45,2,2194,0)=" . Q:$P(^HLCS(870,HLDP,400),U,7)'=""Y""  ; must want to SAY HELO"
^XMB(3.9,45,2,2195,0)="""RTN"",""HLCSTCP3"",23,0)"
^XMB(3.9,45,2,2196,0)=" . U IO W ""HELO ""_$$KSP^XUPARAM(""WHERE""),! R X:1"
^XMB(3.9,45,2,2197,0)="""RTN"",""HLCSTCP3"",24,0)"
^XMB(3.9,45,2,2198,0)=" ;openfail-try DNS lookup"
^XMB(3.9,45,2,2199,0)="""RTN"",""HLCSTCP3"",25,0)"
^XMB(3.9,45,2,2200,0)=" I '$D(HLDOM) S HLDOM=+$P(^HLCS(870,HLDP,0),U,7),HLDOM=$P($G(^DIC(4.2,HLDOM,0)),U) D:HLDOM]"""" DNS"
^XMB(3.9,45,2,2201,0)="""RTN"",""HLCSTCP3"",26,0)"
^XMB(3.9,45,2,2202,0)=" ;HLIP=ip add. from DNS call, get first one and try open again"
^XMB(3.9,45,2,2203,0)="""RTN"",""HLCSTCP3"",27,0)"
^XMB(3.9,45,2,2204,0)=" I $D(HLIP) S HLTCPADD=$P(HLIP,"",""),HLIP=$P(HLIP,"","",2,99) G:HLTCPADD OPENA"
^XMB(3.9,45,2,2205,0)="""RTN"",""HLCSTCP3"",28,0)"
^XMB(3.9,45,2,2206,0)=" ;open error"
^XMB(3.9,45,2,2207,0)="""RTN"",""HLCSTCP3"",29,0)"
^XMB(3.9,45,2,2208,0)=" I $G(HLDIRECT(""OPEN TIMEOUT"")) D"
^XMB(3.9,45,2,2209,0)="""RTN"",""HLCSTCP3"",30,0)"
^XMB(3.9,45,2,2210,0)=" .D MON^HLCSTCP(""Openfail"")"
^XMB(3.9,45,2,2211,0)="""RTN"",""HLCSTCP3"",31,0)"
^XMB(3.9,45,2,2212,0)=" .I $D(HLPORT) D CLOSE^%ZISTCP K HLPORT"
^XMB(3.9,45,2,2213,0)="""RTN"",""HLCSTCP3"",32,0)"
^XMB(3.9,45,2,2214,0)=" E  D"
^XMB(3.9,45,2,2215,0)="""RTN"",""HLCSTCP3"",33,0)"
^XMB(3.9,45,2,2216,0)=" .D CC^HLCSTCP2(""Openfail"") H 3"
^XMB(3.9,45,2,2217,0)="""RTN"",""HLCSTCP3"",34,0)"
^XMB(3.9,45,2,2218,0)=" Q 0"
^XMB(3.9,45,2,2219,0)="""RTN"",""HLCSTCP3"",35,0)"
^XMB(3.9,45,2,2220,0)=" ;"
^XMB(3.9,45,2,2221,0)="""RTN"",""HLCSTCP3"",36,0)"
^XMB(3.9,45,2,2222,0)=" ;following code was removed, site's complained of to many alerts"
^XMB(3.9,45,2,2223,0)="""RTN"",""HLCSTCP3"",37,0)"
^XMB(3.9,45,2,2224,0)=" ;couldn't open, send 1 alert"
^XMB(3.9,45,2,2225,0)="""RTN"",""HLCSTCP3"",38,0)"
^XMB(3.9,45,2,2226,0)=" ;I '$G(HLPORTA) D"
^XMB(3.9,45,2,2227,0)="""RTN"",""HLCSTCP3"",39,0)"
^XMB(3.9,45,2,2228,0)=" ;. ;send alert"
^XMB(3.9,45,2,2229,0)="""RTN"",""HLCSTCP3"",40,0)"
^XMB(3.9,45,2,2230,0)=" ;. N XQA,XQAMSG,XQAOPT,XQAROU,XQAID,Z"
^XMB(3.9,45,2,2231,0)="""RTN"",""HLCSTCP3"",41,0)"
^XMB(3.9,45,2,2232,0)=" ;. ;get mailgroup from file 869.3"
^XMB(3.9,45,2,2233,0)="""RTN"",""HLCSTCP3"",42,0)"
^XMB(3.9,45,2,2234,0)=" ;. S Z=$P($$PARAM^HLCS2,U,8),HLPORTA="""" Q:Z="""""
^XMB(3.9,45,2,2235,0)="""RTN"",""HLCSTCP3"",43,0)"
^XMB(3.9,45,2,2236,0)=" ;. S XQA(""G.""_Z)="""",XQAMSG=$$HTE^XLFDT($H,2)_"" Logical Link ""_$P(^HLCS(870,HLDP,0),U)_"" exceeded Open Retries."""
^XMB(3.9,45,2,2237,0)="""RTN"",""HLCSTCP3"",44,0)"
^XMB(3.9,45,2,2238,0)=" ;. D SETUP^XQALERT"
^XMB(3.9,45,2,2239,0)="""RTN"",""HLCSTCP3"",45,0)"
^XMB(3.9,45,2,2240,0)=" ;open error"
^XMB(3.9,45,2,2241,0)="""RTN"",""HLCSTCP3"",46,0)"
^XMB(3.9,45,2,2242,0)=" ;D CC(""Openfail"") H 3"
^XMB(3.9,45,2,2243,0)="""RTN"",""HLCSTCP3"",47,0)"
^XMB(3.9,45,2,2244,0)=" ;Q 0"
^XMB(3.9,45,2,2245,0)="""RTN"",""HLCSTCP3"",48,0)"
^XMB(3.9,45,2,2246,0)=" ;"
^XMB(3.9,45,2,2247,0)="""RTN"",""HLCSTCP3"",49,0)"
^XMB(3.9,45,2,2248,0)=" ;"
^XMB(3.9,45,2,2249,0)="""RTN"",""HLCSTCP3"",50,0)"
^XMB(3.9,45,2,2250,0)="DNS ;VA domains must have ""med"" inserted."
^XMB(3.9,45,2,2251,0)="""RTN"",""HLCSTCP3"",51,0)"
^XMB(3.9,45,2,2252,0)=" ;All domains must use port 5000 and are prepended with ""HL7"""
^XMB(3.9,45,2,2253,0)="""RTN"",""HLCSTCP3"",52,0)"
^XMB(3.9,45,2,2254,0)=" ;non-VA DNS lookups will succeed if site uses port 5000 and "
^XMB(3.9,45,2,2255,0)="""RTN"",""HLCSTCP3"",53,0)"
^XMB(3.9,45,2,2256,0)=" ;configure their local DNS with ""HL7.yourdomain.com"" and entries"
^XMB(3.9,45,2,2257,0)="""RTN"",""HLCSTCP3"",54,0)"
^XMB(3.9,45,2,2258,0)=" ;are created in the logical link file and domain file."
^XMB(3.9,45,2,2259,0)="""RTN"",""HLCSTCP3"",55,0)"
^XMB(3.9,45,2,2260,0)=" D MON^HLCSTCP(""DNS Lkup"")"
^XMB(3.9,45,2,2261,0)="""RTN"",""HLCSTCP3"",56,0)"
^XMB(3.9,45,2,2262,0)=" I HLDOM[""VA.GOV""&(HLDOM'["".MED."") S HLDOM=$P(HLDOM,"".VA.GOV"")_"".MED.VA.GOV"""
^XMB(3.9,45,2,2263,0)="""RTN"",""HLCSTCP3"",57,0)"
^XMB(3.9,45,2,2264,0)=" I HLTCPORT=5000 S HLDOM=""HL7.""_HLDOM"
^XMB(3.9,45,2,2265,0)="""RTN"",""HLCSTCP3"",58,0)"
^XMB(3.9,45,2,2266,0)=" I HLTCPORT=5500 S HLDOM=""MPI.""_HLDOM"
^XMB(3.9,45,2,2267,0)="""RTN"",""HLCSTCP3"",59,0)"
^XMB(3.9,45,2,2268,0)=" S HLIP=$$ADDRESS^XLFNSLK(HLDOM)"
^XMB(3.9,45,2,2269,0)="""RTN"",""HLCSTCP3"",60,0)"
^XMB(3.9,45,2,2270,0)=" K:HLIP="""" HLIP"
^XMB(3.9,45,2,2271,0)="""RTN"",""HLCSTCP3"",61,0)"
^XMB(3.9,45,2,2272,0)=" Q"
^XMB(3.9,45,2,2273,0)="""RTN"",""HLCSTCP3"",62,0)"
^XMB(3.9,45,2,2274,0)=" ;"
^XMB(3.9,45,2,2275,0)="""RTN"",""HLMA"")"
^XMB(3.9,45,2,2276,0)="0^1^B41676692^B36491876"
^XMB(3.9,45,2,2277,0)="""RTN"",""HLMA"",1,0)"
^XMB(3.9,45,2,2278,0)="HLMA ;AISC/SAW-Message Administration Module ;09/13/2006"
^XMB(3.9,45,2,2279,0)="""RTN"",""HLMA"",2,0)"
^XMB(3.9,45,2,2280,0)=" ;;1.6;HEALTH LEVEL SEVEN;**19,43,58,63,66,82,91,109,115,133**;Oct 13, 1995;Build 13"
^XMB(3.9,45,2,2281,0)="""RTN"",""HLMA"",3,0)"
^XMB(3.9,45,2,2282,0)=" ;Per VHA Directive 2004-038, this routine should not be modified."
^XMB(3.9,45,2,2283,0)="""RTN"",""HLMA"",4,0)"
^XMB(3.9,45,2,2284,0)="GENERATE(HLEID,HLARYTYP,HLFORMAT,HLRESLT,HLMTIEN,HLP) ;"
^XMB(3.9,45,2,2285,0)="""RTN"",""HLMA"",5,0)"
^XMB(3.9,45,2,2286,0)=" ;Entry point to generate a deferred message"
^XMB(3.9,45,2,2287,0)="""RTN"",""HLMA"",6,0)"
^XMB(3.9,45,2,2288,0)=" ;"
^XMB(3.9,45,2,2289,0)="""RTN"",""HLMA"",7,0)"
^XMB(3.9,45,2,2290,0)=" ;This is a subroutine call with parameter passing.  It returns a"
^XMB(3.9,45,2,2291,0)="""RTN"",""HLMA"",8,0)"
^XMB(3.9,45,2,2292,0)=" ;value in the variable HLRESLT with 1 to 3 pieces separated by uparrows"
^XMB(3.9,45,2,2293,0)="""RTN"",""HLMA"",9,0)"
^XMB(3.9,45,2,2294,0)=" ;as follows:  1st message ID^error code^error description"
^XMB(3.9,45,2,2295,0)="""RTN"",""HLMA"",10,0)"
^XMB(3.9,45,2,2296,0)=" ;If no error occurs, only the first piece is returned equal to a unique"
^XMB(3.9,45,2,2297,0)="""RTN"",""HLMA"",11,0)"
^XMB(3.9,45,2,2298,0)=" ;ID for the 1st message.  If message was sent to more than 1 subscriber"
^XMB(3.9,45,2,2299,0)="""RTN"",""HLMA"",12,0)"
^XMB(3.9,45,2,2300,0)=" ;than the other message IDs will be in the array HLRESLT(n)=ID"
^XMB(3.9,45,2,2301,0)="""RTN"",""HLMA"",13,0)"
^XMB(3.9,45,2,2302,0)=" ;Otherwise, three pieces are returned with the"
^XMB(3.9,45,2,2303,0)="""RTN"",""HLMA"",14,0)"
^XMB(3.9,45,2,2304,0)=" ;first piece equal to the message ID, if one was assigned, otherwise 0"
^XMB(3.9,45,2,2305,0)="""RTN"",""HLMA"",15,0)"
^XMB(3.9,45,2,2306,0)=" ;"
^XMB(3.9,45,2,2307,0)="""RTN"",""HLMA"",16,0)"
^XMB(3.9,45,2,2308,0)=" ;Required Input Parameters"
^XMB(3.9,45,2,2309,0)="""RTN"",""HLMA"",17,0)"
^XMB(3.9,45,2,2310,0)=" ;     HLEID = Name or IEN of event driver protocol in the Protocol file"
^XMB(3.9,45,2,2311,0)="""RTN"",""HLMA"",18,0)"
^XMB(3.9,45,2,2312,0)=" ;  HLARYTYP = Array type.  One of the following codes:"
^XMB(3.9,45,2,2313,0)="""RTN"",""HLMA"",19,0)"
^XMB(3.9,45,2,2314,0)=" ;               LM = local array containing a single message"
^XMB(3.9,45,2,2315,0)="""RTN"",""HLMA"",20,0)"
^XMB(3.9,45,2,2316,0)=" ;               LB = local array containig a batch of messages"
^XMB(3.9,45,2,2317,0)="""RTN"",""HLMA"",21,0)"
^XMB(3.9,45,2,2318,0)=" ;               GM = global array containing a single message"
^XMB(3.9,45,2,2319,0)="""RTN"",""HLMA"",22,0)"
^XMB(3.9,45,2,2320,0)=" ;               GB = global array containing a batch of messages"
^XMB(3.9,45,2,2321,0)="""RTN"",""HLMA"",23,0)"
^XMB(3.9,45,2,2322,0)=" ;  HLFORMAT = Format of array, 1 for pre-formatted in HL7 format,"
^XMB(3.9,45,2,2323,0)="""RTN"",""HLMA"",24,0)"
^XMB(3.9,45,2,2324,0)=" ;               otherwise 0"
^XMB(3.9,45,2,2325,0)="""RTN"",""HLMA"",25,0)"
^XMB(3.9,45,2,2326,0)=" ;NOTE:  The parameter HLRESLT must be passed by reference"
^XMB(3.9,45,2,2327,0)="""RTN"",""HLMA"",26,0)"
^XMB(3.9,45,2,2328,0)=" ;   HLRESLT = The variable that will be returned to the calling"
^XMB(3.9,45,2,2329,0)="""RTN"",""HLMA"",27,0)"
^XMB(3.9,45,2,2330,0)=" ;               application as descibed above"
^XMB(3.9,45,2,2331,0)="""RTN"",""HLMA"",28,0)"
^XMB(3.9,45,2,2332,0)=" ;Optional Parameters"
^XMB(3.9,45,2,2333,0)="""RTN"",""HLMA"",29,0)"
^XMB(3.9,45,2,2334,0)=" ;   HLMTIEN = IEN of entry in Message Text file where the message"
^XMB(3.9,45,2,2335,0)="""RTN"",""HLMA"",30,0)"
^XMB(3.9,45,2,2336,0)=" ;               being generated is to be stored.  This parameter is"
^XMB(3.9,45,2,2337,0)="""RTN"",""HLMA"",31,0)"
^XMB(3.9,45,2,2338,0)=" ;               only passed for a batch type message"
^XMB(3.9,45,2,2339,0)="""RTN"",""HLMA"",32,0)"
^XMB(3.9,45,2,2340,0)=" ;NOTE:  The parameter HLP used for the following parameters must be"
^XMB(3.9,45,2,2341,0)="""RTN"",""HLMA"",33,0)"
^XMB(3.9,45,2,2342,0)=" ;       passed by reference"
^XMB(3.9,45,2,2343,0)="""RTN"",""HLMA"",34,0)"
^XMB(3.9,45,2,2344,0)=" ;  HLP(""SECURITY"") = A 1 to 40 character string"
^XMB(3.9,45,2,2345,0)="""RTN"",""HLMA"",35,0)"
^XMB(3.9,45,2,2346,0)=" ;   HLP(""CONTPTR"") = Continuation pointer, a 1 to 180 character string"
^XMB(3.9,45,2,2347,0)="""RTN"",""HLMA"",36,0)"
^XMB(3.9,45,2,2348,0)=" ; HLP(""NAMESPACE"") = Passed in by application namespace - HL*1.6*91"
^XMB(3.9,45,2,2349,0)="""RTN"",""HLMA"",37,0)"
^XMB(3.9,45,2,2350,0)=" ;"
^XMB(3.9,45,2,2351,0)="""RTN"",""HLMA"",38,0)"
^XMB(3.9,45,2,2352,0)=" ;can't have link open when generating new message"
^XMB(3.9,45,2,2353,0)="""RTN"",""HLMA"",39,0)"
^XMB(3.9,45,2,2354,0)=" N HLTCP,HLTCPO,HLPRIO,HLMIDAR"
^XMB(3.9,45,2,2355,0)="""RTN"",""HLMA"",40,0)"
^XMB(3.9,45,2,2356,0)=" S HLPRIO=""D"""
^XMB(3.9,45,2,2357,0)="""RTN"",""HLMA"",41,0)"
^XMB(3.9,45,2,2358,0)=" S HLRESLT="""""
^XMB(3.9,45,2,2359,0)="""RTN"",""HLMA"",42,0)"
^XMB(3.9,45,2,2360,0)=" ;Check for required parameters"
^XMB(3.9,45,2,2361,0)="""RTN"",""HLMA"",43,0)"
^XMB(3.9,45,2,2362,0)="CONT I $G(HLEID)']""""!($G(HLARYTYP)']"""")!($G(HLFORMAT)']"""") S HLRESLT=""0^7^""_$G(^HL(771.7,7,0))_"" at GENERATE^HLMA entry point"" G EXIT"
^XMB(3.9,45,2,2363,0)="""RTN"",""HLMA"",44,0)"
^XMB(3.9,45,2,2364,0)=" I 'HLEID S HLEID=$O(^ORD(101,""B"",HLEID,0)) I 'HLEID S HLRESLT=""0^1^""_$G(^HL(771.7,1,0)) G EXIT"
^XMB(3.9,45,2,2365,0)="""RTN"",""HLMA"",45,0)"
^XMB(3.9,45,2,2366,0)=" N HLRESLT1,HLRESLTA S (HLRESLTA,HLRESLT1)="""""
^XMB(3.9,45,2,2367,0)="""RTN"",""HLMA"",46,0)"
^XMB(3.9,45,2,2368,0)=" I ""GL""'[$E(HLARYTYP) S HLRESLT=""0^4^""_$G(^HL(771.7,4,0)) G EXIT"
^XMB(3.9,45,2,2369,0)="""RTN"",""HLMA"",47,0)"
^XMB(3.9,45,2,2370,0)=" I $L($G(HLP(""SECURITY"")))>40 S HLRESLT=""0^6^""_$G(^HL(771.7,6,0)) G EXIT"
^XMB(3.9,45,2,2371,0)="""RTN"",""HLMA"",48,0)"
^XMB(3.9,45,2,2372,0)=" I $L($G(HLP(""CONTPTR"")))>180 S HLRESLT=""0^11^""_$G(^HL(771.7,11,0)) G EXIT"
^XMB(3.9,45,2,2373,0)="""RTN"",""HLMA"",49,0)"
^XMB(3.9,45,2,2374,0)=" I $D(HLL(""LINKS"")) D  G:$G(HLRESLT)]"""" EXIT"
^XMB(3.9,45,2,2375,0)="""RTN"",""HLMA"",50,0)"
^XMB(3.9,45,2,2376,0)=" . N I,HLPNAM,HLPIEN,HLLNAM,HLLIEN"
^XMB(3.9,45,2,2377,0)="""RTN"",""HLMA"",51,0)"
^XMB(3.9,45,2,2378,0)=" . S I=0"
^XMB(3.9,45,2,2379,0)="""RTN"",""HLMA"",52,0)"
^XMB(3.9,45,2,2380,0)=" . F  S I=$O(HLL(""LINKS"",I)) Q:'I  D  Q:$G(HLRESLT)]"""""
^XMB(3.9,45,2,2381,0)="""RTN"",""HLMA"",53,0)"
^XMB(3.9,45,2,2382,0)=" . . S HLPNAM=$P(HLL(""LINKS"",I),U)"
^XMB(3.9,45,2,2383,0)="""RTN"",""HLMA"",54,0)"
^XMB(3.9,45,2,2384,0)=" . . S HLPIEN=+$O(^ORD(101,""B"",HLPNAM,0))"
^XMB(3.9,45,2,2385,0)="""RTN"",""HLMA"",55,0)"
^XMB(3.9,45,2,2386,0)=" . . I $P($G(^ORD(101,HLPIEN,0)),U,4)'=""S"" S HLRESLT=""0^15^Invalid Subscriber Protocol in HLL('LINKS'): ""_HLL(""LINKS"",I) Q"
^XMB(3.9,45,2,2387,0)="""RTN"",""HLMA"",56,0)"
^XMB(3.9,45,2,2388,0)=" . . S HLLNAM=$P(HLL(""LINKS"",I),U,2)"
^XMB(3.9,45,2,2389,0)="""RTN"",""HLMA"",57,0)"
^XMB(3.9,45,2,2390,0)=" . . S HLLIEN=+$O(^HLCS(870,""B"",HLLNAM,0))"
^XMB(3.9,45,2,2391,0)="""RTN"",""HLMA"",58,0)"
^XMB(3.9,45,2,2392,0)=" . . I '$D(^HLCS(870,HLLIEN,0)) S HLRESLT=""0^15^Invalid HL Node in HLL('LINKS'): ""_HLL(""LINKS"",I) Q"
^XMB(3.9,45,2,2393,0)="""RTN"",""HLMA"",59,0)"
^XMB(3.9,45,2,2394,0)=" ;Extract data from Protocol file"
^XMB(3.9,45,2,2395,0)="""RTN"",""HLMA"",60,0)"
^XMB(3.9,45,2,2396,0)=" D EVENT^HLUTIL1(HLEID,""15,20,771"",.HLN)"
^XMB(3.9,45,2,2397,0)="""RTN"",""HLMA"",61,0)"
^XMB(3.9,45,2,2398,0)=" S HLENROU=$G(HLN(20)),HLEXROU=$G(HLN(15))"
^XMB(3.9,45,2,2399,0)="""RTN"",""HLMA"",62,0)"
^XMB(3.9,45,2,2400,0)=" S HLP(""GROUTINE"")=$G(HLN(771)) K HLN I HLP(""GROUTINE"")']"""",'HLFORMAT S HLRESLT=""0^3^""_$G(^HL(771.7,3,0)) G EXIT"
^XMB(3.9,45,2,2401,0)="""RTN"",""HLMA"",63,0)"
^XMB(3.9,45,2,2402,0)=" ;Create message ID and Message Text IEN if Message Text IEN not"
^XMB(3.9,45,2,2403,0)="""RTN"",""HLMA"",64,0)"
^XMB(3.9,45,2,2404,0)=" ;previously created ('$G(HLMTIEN))"
^XMB(3.9,45,2,2405,0)="""RTN"",""HLMA"",65,0)"
^XMB(3.9,45,2,2406,0)=" I '$G(HLMTIEN) D CREATE^HLTF(.HLMID,.HLMTIEN,.HLDT,.HLDT1)"
^XMB(3.9,45,2,2407,0)="""RTN"",""HLMA"",66,0)"
^XMB(3.9,45,2,2408,0)=" ;Get message ID if Message Text IEN already created"
^XMB(3.9,45,2,2409,0)="""RTN"",""HLMA"",67,0)"
^XMB(3.9,45,2,2410,0)=" I '$G(HLMID) D"
^XMB(3.9,45,2,2411,0)="""RTN"",""HLMA"",68,0)"
^XMB(3.9,45,2,2412,0)=" .S HLDT=$G(^HL(772,HLMTIEN,0)),HLMID=$P(HLDT,""^"",6),HLDT=+HLDT"
^XMB(3.9,45,2,2413,0)="""RTN"",""HLMA"",69,0)"
^XMB(3.9,45,2,2414,0)=" .S HLDT1=$$HLDATE^HLFNC(HLDT)"
^XMB(3.9,45,2,2415,0)="""RTN"",""HLMA"",70,0)"
^XMB(3.9,45,2,2416,0)=" S HLMIDAR=0,HLRESLT=HLMID,HLP(""DT"")=HLDT,HLP(""DTM"")=HLDT1"
^XMB(3.9,45,2,2417,0)="""RTN"",""HLMA"",71,0)"
^XMB(3.9,45,2,2418,0)=" ;Execute entry action for event driver protocol"
^XMB(3.9,45,2,2419,0)="""RTN"",""HLMA"",72,0)"
^XMB(3.9,45,2,2420,0)=" I HLENROU]"""" X HLENROU"
^XMB(3.9,45,2,2421,0)="""RTN"",""HLMA"",73,0)"
^XMB(3.9,45,2,2422,0)=" ;Invoke transaction processor"
^XMB(3.9,45,2,2423,0)="""RTN"",""HLMA"",74,0)"
^XMB(3.9,45,2,2424,0)=" K HLDT,HLDT1,HLENROU"
^XMB(3.9,45,2,2425,0)="""RTN"",""HLMA"",75,0)"
^XMB(3.9,45,2,2426,0)=" D GENERATE^HLTP(HLMID,HLMTIEN,HLEID,HLARYTYP,HLFORMAT,.HLRESLT1,.HLP)"
^XMB(3.9,45,2,2427,0)="""RTN"",""HLMA"",76,0)"
^XMB(3.9,45,2,2428,0)=" ;HLMIDAR is array of message IDs, only set for broadcast messages"
^XMB(3.9,45,2,2429,0)="""RTN"",""HLMA"",77,0)"
^XMB(3.9,45,2,2430,0)=" I HLMIDAR K HLMIDAR(""N"") M HLRESLT=HLMIDAR"
^XMB(3.9,45,2,2431,0)="""RTN"",""HLMA"",78,0)"
^XMB(3.9,45,2,2432,0)=" S HLRESLT=HLRESLT_""^""_HLRESLT1"
^XMB(3.9,45,2,2433,0)="""RTN"",""HLMA"",79,0)"
^XMB(3.9,45,2,2434,0)=" ;Execute exit action for event driver protocol"
^XMB(3.9,45,2,2435,0)="""RTN"",""HLMA"",80,0)"
^XMB(3.9,45,2,2436,0)=" I HLEXROU]"""" X HLEXROU"
^XMB(3.9,45,2,2437,0)="""RTN"",""HLMA"",81,0)"
^XMB(3.9,45,2,2438,0)="EXIT ;Update status if Message Text file entry has been created"
^XMB(3.9,45,2,2439,0)="""RTN"",""HLMA"",82,0)"
^XMB(3.9,45,2,2440,0)=" K HLTCP"
^XMB(3.9,45,2,2441,0)="""RTN"",""HLMA"",83,0)"
^XMB(3.9,45,2,2442,0)=" I $D(HLMTIEN) D STATUS^HLTF0(HLMTIEN,$S($P(HLRESLT,""^"",2):4,1:3),$S($P(HLRESLT,""^"",2):$P(HLRESLT,""^"",2),1:""""),$S($P(HLRESLT,""^"",2):$P(HLRESLT,""^"",3),1:""""))"
^XMB(3.9,45,2,2443,0)="""RTN"",""HLMA"",84,0)"
^XMB(3.9,45,2,2444,0)=" K HLDT,HLDT1,HLMID,HLRESLT1,HLENROU,HLEXROU"
^XMB(3.9,45,2,2445,0)="""RTN"",""HLMA"",85,0)"
^XMB(3.9,45,2,2446,0)=" Q"
^XMB(3.9,45,2,2447,0)="""RTN"",""HLMA"",86,0)"
^XMB(3.9,45,2,2448,0)="DIRECT(HLEID,HLARYTYP,HLFORMAT,HLRESLT,HLMTIENO,HLP) ;"
^XMB(3.9,45,2,2449,0)="""RTN"",""HLMA"",87,0)"
^XMB(3.9,45,2,2450,0)=" ;Entry point to generate an immediate message, must be TCP Logical Link"
^XMB(3.9,45,2,2451,0)="""RTN"",""HLMA"",88,0)"
^XMB(3.9,45,2,2452,0)=" ;Input:"
^XMB(3.9,45,2,2453,0)="""RTN"",""HLMA"",89,0)"
^XMB(3.9,45,2,2454,0)=" ;  The same as GENERATE,with one additional subscript to the HLP input array:"
^XMB(3.9,45,2,2455,0)="""RTN"",""HLMA"",90,0)"
^XMB(3.9,45,2,2456,0)=" ; "
^XMB(3.9,45,2,2457,0)="""RTN"",""HLMA"",91,0)"
^XMB(3.9,45,2,2458,0)=" ;  HLP(""OPEN TIMEOUT"") (optional, pass by reference) a number between "
^XMB(3.9,45,2,2459,0)="""RTN"",""HLMA"",92,0)"
^XMB(3.9,45,2,2460,0)=" ;    1 and 120 that specifies how many seconds the DIRECT CONNECT should"
^XMB(3.9,45,2,2461,0)="""RTN"",""HLMA"",93,0)"
^XMB(3.9,45,2,2462,0)=" ;    try to open a connection before failing.  It is killed upon completion."
^XMB(3.9,45,2,2463,0)="""RTN"",""HLMA"",94,0)"
^XMB(3.9,45,2,2464,0)=" ; "
^XMB(3.9,45,2,2465,0)="""RTN"",""HLMA"",95,0)"
^XMB(3.9,45,2,2466,0)=" N HLTCP,HLTCPO,HLPRIO,HLSAN,HLN,HLMIDAR,HLMTIENR,ZMID,HLDIRECT"
^XMB(3.9,45,2,2467,0)="""RTN"",""HLMA"",96,0)"
^XMB(3.9,45,2,2468,0)=" S HLRESLT="""""
^XMB(3.9,45,2,2469,0)="""RTN"",""HLMA"",97,0)"
^XMB(3.9,45,2,2470,0)=" ;HLMTIENO=ien passed in, batch message"
^XMB(3.9,45,2,2471,0)="""RTN"",""HLMA"",98,0)"
^XMB(3.9,45,2,2472,0)=" S HLMTIEN=$G(HLMTIENO)"
^XMB(3.9,45,2,2473,0)="""RTN"",""HLMA"",99,0)"
^XMB(3.9,45,2,2474,0)=" I $G(HLP(""OPEN TIMEOUT"")),((HLP(""OPEN TIMEOUT"")\1)'=+HLP(""OPEN TIMEOUT""))!HLP(""OPEN TIMEOUT"")>120 Q ""0^4^INVALID OPEN TIMEOUT PARAMETER"""
^XMB(3.9,45,2,2475,0)="""RTN"",""HLMA"",100,0)"
^XMB(3.9,45,2,2476,0)=" I $G(HLP(""OPEN TIMEOUT"")) D"
^XMB(3.9,45,2,2477,0)="""RTN"",""HLMA"",101,0)"
^XMB(3.9,45,2,2478,0)=" .S HLDIRECT(""OPEN TIMEOUT"")=HLP(""OPEN TIMEOUT"")"
^XMB(3.9,45,2,2479,0)="""RTN"",""HLMA"",102,0)"
^XMB(3.9,45,2,2480,0)=" .K HLP(""OPEN TIMEOUT"")"
^XMB(3.9,45,2,2481,0)="""RTN"",""HLMA"",103,0)"
^XMB(3.9,45,2,2482,0)=" K HL,HLMTIENO"
^XMB(3.9,45,2,2483,0)="""RTN"",""HLMA"",104,0)"
^XMB(3.9,45,2,2484,0)=" D INIT^HLFNC2(HLEID,.HL)"
^XMB(3.9,45,2,2485,0)="""RTN"",""HLMA"",105,0)"
^XMB(3.9,45,2,2486,0)=" I $G(HL) S HLRESLT=""0^""_HL Q"
^XMB(3.9,45,2,2487,0)="""RTN"",""HLMA"",106,0)"
^XMB(3.9,45,2,2488,0)=" S HLPRIO=""I"" D CONT"
^XMB(3.9,45,2,2489,0)="""RTN"",""HLMA"",107,0)"
^XMB(3.9,45,2,2490,0)=" ;HLMTIENO=original msg. ien in file 772, HLMTIENR=response ien set in HLMA2"
^XMB(3.9,45,2,2491,0)="""RTN"",""HLMA"",108,0)"
^XMB(3.9,45,2,2492,0)=" S HLMTIENO=HLMTIEN,HLMTIEN=$G(HLMTIENR)"
^XMB(3.9,45,2,2493,0)="""RTN"",""HLMA"",109,0)"
^XMB(3.9,45,2,2494,0)=" ;Set special HL variables"
^XMB(3.9,45,2,2495,0)="""RTN"",""HLMA"",110,0)"
^XMB(3.9,45,2,2496,0)=" S HLQUIT=0,HLNODE="""",HLNEXT=""D HLNEXT^HLCSUTL"""
^XMB(3.9,45,2,2497,0)="""RTN"",""HLMA"",111,0)"
^XMB(3.9,45,2,2498,0)=" Q"
^XMB(3.9,45,2,2499,0)="""RTN"",""HLMA"",112,0)"
^XMB(3.9,45,2,2500,0)=" ;"
^XMB(3.9,45,2,2501,0)="""RTN"",""HLMA"",113,0)"
^XMB(3.9,45,2,2502,0)="CLOSE(LOGLINK) ;close connection that was open in tag DIRECT"
^XMB(3.9,45,2,2503,0)="""RTN"",""HLMA"",114,0)"
^XMB(3.9,45,2,2504,0)=" Q"
^XMB(3.9,45,2,2505,0)="""RTN"",""HLMA"",115,0)"
^XMB(3.9,45,2,2506,0)="PING ;ping another VAMC to test Link"
^XMB(3.9,45,2,2507,0)="""RTN"",""HLMA"",116,0)"
^XMB(3.9,45,2,2508,0)=" ;set HLQUIET =1 to skip writes"
^XMB(3.9,45,2,2509,0)="""RTN"",""HLMA"",117,0)"
^XMB(3.9,45,2,2510,0)=" ;look for HLTPUT to get turnaround time over network."
^XMB(3.9,45,2,2511,0)="""RTN"",""HLMA"",118,0)"
^XMB(3.9,45,2,2512,0)=" N DA,DIC,HLDP,HLDPNM,HLDPDM,HLCSOUT,HLDBSIZE,HLDREAD,HLOS,HLTCPADD,HLTCPCS,HLTCPLNK,HLTCPORT,HLTCPRET,HLCSFAIL,HLPARAM"
^XMB(3.9,45,2,2513,0)="""RTN"",""HLMA"",119,0)"
^XMB(3.9,45,2,2514,0)=" N HCS,HCSCMD,HLCS,HCSDAT,HCSER,HCSEXIT,HCSTRACE,HLDT1,HLDRETR,HLRETRA,HLDBACK,HLDWAIT,HLTCPCS,INPUT,OUTPUT,POP,X,Y,HLX1,HLX2"
^XMB(3.9,45,2,2515,0)="""RTN"",""HLMA"",120,0)"
^XMB(3.9,45,2,2516,0)=" S HLQUIET=$G(HLQUIET)"
^XMB(3.9,45,2,2517,0)="""RTN"",""HLMA"",121,0)"
^XMB(3.9,45,2,2518,0)=" S HLCS="""",HCSTRACE=""C: "",POP=1,INPUT=""INPUT"",OUTPUT=""OUTPUT"""
^XMB(3.9,45,2,2519,0)="""RTN"",""HLMA"",122,0)"
^XMB(3.9,45,2,2520,0)=" S DIC=""^HLCS(870,"",DIC(0)=""QEAMZ"""
^XMB(3.9,45,2,2521,0)="""RTN"",""HLMA"",123,0)"
^XMB(3.9,45,2,2522,0)=" D ^DIC Q:Y<0"
^XMB(3.9,45,2,2523,0)="""RTN"",""HLMA"",124,0)"
^XMB(3.9,45,2,2524,0)=" S HLDP=+Y,HLDPNM=Y(0,0),HLDPDM=$P($$PARAM^HLCS2,U,2)"
^XMB(3.9,45,2,2525,0)="""RTN"",""HLMA"",125,0)"
^XMB(3.9,45,2,2526,0)=" ;I $P($G(^HLCS(870,HLDP,400)),U)="""" W !,""Missing IP Address"" Q"
^XMB(3.9,45,2,2527,0)="""RTN"",""HLMA"",126,0)"
^XMB(3.9,45,2,2528,0)=" D SETUP^HLCSAC G:HLCS PINGQ"
^XMB(3.9,45,2,2529,0)="""RTN"",""HLMA"",127,0)"
^XMB(3.9,45,2,2530,0)=" ;PING header=MSH^PING^domain^PING^logical link^datetime"
^XMB(3.9,45,2,2531,0)="""RTN"",""HLMA"",128,0)"
^XMB(3.9,45,2,2532,0)=" S INPUT(1)=""MSH^PING^""_HLDPDM_""^PING^""_HLDPNM_""^""_$$HTE^XLFDT($H)"
^XMB(3.9,45,2,2533,0)="""RTN"",""HLMA"",129,0)"
^XMB(3.9,45,2,2534,0)=" D OPEN^HLCSAC"
^XMB(3.9,45,2,2535,0)="""RTN"",""HLMA"",130,0)"
^XMB(3.9,45,2,2536,0)=" I HLCS D DNS G:HLCS PINGQ"
^XMB(3.9,45,2,2537,0)="""RTN"",""HLMA"",131,0)"
^XMB(3.9,45,2,2538,0)=" D"
^XMB(3.9,45,2,2539,0)="""RTN"",""HLMA"",132,0)"
^XMB(3.9,45,2,2540,0)=" . N $ETRAP,$ESTACK S $ETRAP=""D PINGERR^HLMA"""
^XMB(3.9,45,2,2541,0)="""RTN"",""HLMA"",133,0)"
^XMB(3.9,45,2,2542,0)=" . ;non-standard HL7 header; start block,header,end block"
^XMB(3.9,45,2,2543,0)="""RTN"",""HLMA"",134,0)"
^XMB(3.9,45,2,2544,0)=" . S HLX1=$H"
^XMB(3.9,45,2,2545,0)="""RTN"",""HLMA"",135,0)"
^XMB(3.9,45,2,2546,0)=" . W $C(11)_INPUT(1)_$C(28)_$C(13),! ;HL*1.6*115, restored ! char"
^XMB(3.9,45,2,2547,0)="""RTN"",""HLMA"",136,0)"
^XMB(3.9,45,2,2548,0)=" . ;read response"
^XMB(3.9,45,2,2549,0)="""RTN"",""HLMA"",137,0)"
^XMB(3.9,45,2,2550,0)=" . R X:HLDREAD"
^XMB(3.9,45,2,2551,0)="""RTN"",""HLMA"",138,0)"
^XMB(3.9,45,2,2552,0)=" . S HLX2=$H"
^XMB(3.9,45,2,2553,0)="""RTN"",""HLMA"",139,0)"
^XMB(3.9,45,2,2554,0)=" . S X=$P(X,$C(28)),HLCS=$S(X=INPUT(1):""PING worked"",X="""":""No response"",1:""Incorrect response"")"
^XMB(3.9,45,2,2555,0)="""RTN"",""HLMA"",140,0)"
^XMB(3.9,45,2,2556,0)=" . ;Get roundtrip time"
^XMB(3.9,45,2,2557,0)="""RTN"",""HLMA"",141,0)"
^XMB(3.9,45,2,2558,0)=" . K HLTPUT I X]"""" S HLTPUT=$$HDIFF^XLFDT(HLX2,HLX1,2)"
^XMB(3.9,45,2,2559,0)="""RTN"",""HLMA"",142,0)"
^XMB(3.9,45,2,2560,0)=" D CLOSE^%ZISTCP"
^XMB(3.9,45,2,2561,0)="""RTN"",""HLMA"",143,0)"
^XMB(3.9,45,2,2562,0)="PINGQ ;write back status and quit"
^XMB(3.9,45,2,2563,0)="""RTN"",""HLMA"",144,0)"
^XMB(3.9,45,2,2564,0)=" I 'HLQUIET W !,HLCS,!"
^XMB(3.9,45,2,2565,0)="""RTN"",""HLMA"",145,0)"
^XMB(3.9,45,2,2566,0)=" Q"
^XMB(3.9,45,2,2567,0)="""RTN"",""HLMA"",146,0)"
^XMB(3.9,45,2,2568,0)="PINGERR ;process errors from PING"
^XMB(3.9,45,2,2569,0)="""RTN"",""HLMA"",147,0)"
^XMB(3.9,45,2,2570,0)=" S $ETRAP=""G UNWIND^%ZTER"",HLCS=""-1^Error"""
^XMB(3.9,45,2,2571,0)="""RTN"",""HLMA"",148,0)"
^XMB(3.9,45,2,2572,0)=" ;I $ZE[""READ"" S HLCS=""-1^Error during read"""
^XMB(3.9,45,2,2573,0)="""RTN"",""HLMA"",149,0)"
^XMB(3.9,45,2,2574,0)=" ;I $ZE[""WRITE"" S HLCS=""-1^Error during write"""
^XMB(3.9,45,2,2575,0)="""RTN"",""HLMA"",150,0)"
^XMB(3.9,45,2,2576,0)=" ; HL*1.6*115, SACC compliance"
^XMB(3.9,45,2,2577,0)="""RTN"",""HLMA"",151,0)"
^XMB(3.9,45,2,2578,0)=" I $$EC^%ZOSV[""READ"" S HLCS=""-1^Error during read"""
^XMB(3.9,45,2,2579,0)="""RTN"",""HLMA"",152,0)"
^XMB(3.9,45,2,2580,0)=" I $$EC^%ZOSV[""WRITE"" S HLCS=""-1^Error during write"""
^XMB(3.9,45,2,2581,0)="""RTN"",""HLMA"",153,0)"
^XMB(3.9,45,2,2582,0)=" G UNWIND^%ZTER"
^XMB(3.9,45,2,2583,0)="""RTN"",""HLMA"",154,0)"
^XMB(3.9,45,2,2584,0)="DNS ;"
^XMB(3.9,45,2,2585,0)="""RTN"",""HLMA"",155,0)"
^XMB(3.9,45,2,2586,0)=" ;openfail-try DNS lookup-Link must contain point to Domain Name"
^XMB(3.9,45,2,2587,0)="""RTN"",""HLMA"",156,0)"
^XMB(3.9,45,2,2588,0)=" S POP=$G(POP)"
^XMB(3.9,45,2,2589,0)="""RTN"",""HLMA"",157,0)"
^XMB(3.9,45,2,2590,0)=" S HLQUIET=$G(HLQUIET)"
^XMB(3.9,45,2,2591,0)="""RTN"",""HLMA"",158,0)"
^XMB(3.9,45,2,2592,0)=" I 'HLQUIET W !,""Calling DNS"""
^XMB(3.9,45,2,2593,0)="""RTN"",""HLMA"",159,0)"
^XMB(3.9,45,2,2594,0)=" N HLDOM,HLIP S HLCS="""""
^XMB(3.9,45,2,2595,0)="""RTN"",""HLMA"",160,0)"
^XMB(3.9,45,2,2596,0)=" S HLDOM=$P(^HLCS(870,HLDP,0),U,7)"
^XMB(3.9,45,2,2597,0)="""RTN"",""HLMA"",161,0)"
^XMB(3.9,45,2,2598,0)=" I 'HLDOM,'HLQUIET W !,""Domain Unknown"" Q"
^XMB(3.9,45,2,2599,0)="""RTN"",""HLMA"",162,0)"
^XMB(3.9,45,2,2600,0)=" I HLDOM S HLDOM=$P(^DIC(4.2,HLDOM,0),U)"
^XMB(3.9,45,2,2601,0)="""RTN"",""HLMA"",163,0)"
^XMB(3.9,45,2,2602,0)=" I HLDOM]"""" D  Q:'POP"
^XMB(3.9,45,2,2603,0)="""RTN"",""HLMA"",164,0)"
^XMB(3.9,45,2,2604,0)=" . I HLDOM[""VA.GOV""&(HLDOM'["".MED."") S HLDOM=$P(HLDOM,"".VA.GOV"")_"".MED.VA.GOV"""
^XMB(3.9,45,2,2605,0)="""RTN"",""HLMA"",165,0)"
^XMB(3.9,45,2,2606,0)=" . I HLTCPORT=5000 S HLDOM=""HL7.""_HLDOM"
^XMB(3.9,45,2,2607,0)="""RTN"",""HLMA"",166,0)"
^XMB(3.9,45,2,2608,0)=" . I HLTCPORT=5500 S HLDOM=""MPI.""_HLDOM"
^XMB(3.9,45,2,2609,0)="""RTN"",""HLMA"",167,0)"
^XMB(3.9,45,2,2610,0)=" . I 'HLQUIET W !,""Domain, ""_HLDOM"
^XMB(3.9,45,2,2611,0)="""RTN"",""HLMA"",168,0)"
^XMB(3.9,45,2,2612,0)=" . I 'HLQUIET W !,""Port: "",HLTCPORT"
^XMB(3.9,45,2,2613,0)="""RTN"",""HLMA"",169,0)"
^XMB(3.9,45,2,2614,0)=" . S HLIP=$$ADDRESS^XLFNSLK(HLDOM)"
^XMB(3.9,45,2,2615,0)="""RTN"",""HLMA"",170,0)"
^XMB(3.9,45,2,2616,0)=" . I HLIP]"""",'HLQUIET W !,""DNS Returned: "",HLIP"
^XMB(3.9,45,2,2617,0)="""RTN"",""HLMA"",171,0)"
^XMB(3.9,45,2,2618,0)=" . I HLIP]"""" D"
^XMB(3.9,45,2,2619,0)="""RTN"",""HLMA"",172,0)"
^XMB(3.9,45,2,2620,0)=" . . ;If more than one IP returned, try each, cache successful open"
^XMB(3.9,45,2,2621,0)="""RTN"",""HLMA"",173,0)"
^XMB(3.9,45,2,2622,0)=" . . N HLI,HLJ,HLIP1"
^XMB(3.9,45,2,2623,0)="""RTN"",""HLMA"",174,0)"
^XMB(3.9,45,2,2624,0)=" . . F HLJ=1:1:$L(HLIP,"","") D  Q:'POP"
^XMB(3.9,45,2,2625,0)="""RTN"",""HLMA"",175,0)"
^XMB(3.9,45,2,2626,0)=" . . . S HLIP1=$P(HLIP,"","",HLJ)"
^XMB(3.9,45,2,2627,0)="""RTN"",""HLMA"",176,0)"
^XMB(3.9,45,2,2628,0)=" . . . F HLI=1:1:HLDRETR W:'HLQUIET !,""Trying "",HLIP1 D CALL^%ZISTCP(HLIP1,HLTCPORT,1) Q:'POP"
^XMB(3.9,45,2,2629,0)="""RTN"",""HLMA"",177,0)"
^XMB(3.9,45,2,2630,0)=" . . . I 'POP S $P(^HLCS(870,HLDP,400),U)=HLIP1"
^XMB(3.9,45,2,2631,0)="""RTN"",""HLMA"",178,0)"
^XMB(3.9,45,2,2632,0)=" . . . U IO"
^XMB(3.9,45,2,2633,0)="""RTN"",""HLMA"",179,0)"
^XMB(3.9,45,2,2634,0)=" I POP S HLCS=""-1^DNS Lookup Failed"""
^XMB(3.9,45,2,2635,0)="""RTN"",""HLMA1"")"
^XMB(3.9,45,2,2636,0)="0^2^B8748290^B8481428"
^XMB(3.9,45,2,2637,0)="""RTN"",""HLMA1"",1,0)"
^XMB(3.9,45,2,2638,0)="HLMA1 ;AISC/SAW-Message Administration Module (Cont'd) ;09/13/2006"
^XMB(3.9,45,2,2639,0)="""RTN"",""HLMA1"",2,0)"
^XMB(3.9,45,2,2640,0)=" ;;1.6;HEALTH LEVEL SEVEN;**19,43,91,109,108,133**;Oct 13, 1995;Build 13"
^XMB(3.9,45,2,2641,0)="""RTN"",""HLMA1"",3,0)"
^XMB(3.9,45,2,2642,0)=" ;Per VHA Directive 2004-038, this routine should not be modified."
^XMB(3.9,45,2,2643,0)="""RTN"",""HLMA1"",4,0)"
^XMB(3.9,45,2,2644,0)="GENACK(HLEID,HLMTIENS,HLEIDS,HLARYTYP,HLFORMAT,HLRESLTA,HLMTIENA,HLP) ;"
^XMB(3.9,45,2,2645,0)="""RTN"",""HLMA1"",5,0)"
^XMB(3.9,45,2,2646,0)=" ;Entry point to generate an acknowledgement message"
^XMB(3.9,45,2,2647,0)="""RTN"",""HLMA1"",6,0)"
^XMB(3.9,45,2,2648,0)=" ;"
^XMB(3.9,45,2,2649,0)="""RTN"",""HLMA1"",7,0)"
^XMB(3.9,45,2,2650,0)=" ;This is a subroutine call with parameter passing.  It returns a value"
^XMB(3.9,45,2,2651,0)="""RTN"",""HLMA1"",8,0)"
^XMB(3.9,45,2,2652,0)=" ;in the variable HLRESLTA of null if no error occurs, or the following"
^XMB(3.9,45,2,2653,0)="""RTN"",""HLMA1"",9,0)"
^XMB(3.9,45,2,2654,0)=" ;two piece value if an error occurs:  error code^error description"
^XMB(3.9,45,2,2655,0)="""RTN"",""HLMA1"",10,0)"
^XMB(3.9,45,2,2656,0)=" ;"
^XMB(3.9,45,2,2657,0)="""RTN"",""HLMA1"",11,0)"
^XMB(3.9,45,2,2658,0)=" ;Required Input Parameters"
^XMB(3.9,45,2,2659,0)="""RTN"",""HLMA1"",12,0)"
^XMB(3.9,45,2,2660,0)=" ;     HLEID = IEN of event driver protocol from the Protocol file"
^XMB(3.9,45,2,2661,0)="""RTN"",""HLMA1"",13,0)"
^XMB(3.9,45,2,2662,0)=" ;  HLMTIENS = IEN of entry in Message Text file for subscriber"
^XMB(3.9,45,2,2663,0)="""RTN"",""HLMA1"",14,0)"
^XMB(3.9,45,2,2664,0)=" ;               application"
^XMB(3.9,45,2,2665,0)="""RTN"",""HLMA1"",15,0)"
^XMB(3.9,45,2,2666,0)=" ;    HLEIDS = IEN of subscriber event from the Protocol file"
^XMB(3.9,45,2,2667,0)="""RTN"",""HLMA1"",16,0)"
^XMB(3.9,45,2,2668,0)=" ;  HLARYTYP = Array type.  One of the following codes:"
^XMB(3.9,45,2,2669,0)="""RTN"",""HLMA1"",17,0)"
^XMB(3.9,45,2,2670,0)=" ;               LM = local array containing a single message"
^XMB(3.9,45,2,2671,0)="""RTN"",""HLMA1"",18,0)"
^XMB(3.9,45,2,2672,0)=" ;               LB = local array containig a batch of messages"
^XMB(3.9,45,2,2673,0)="""RTN"",""HLMA1"",19,0)"
^XMB(3.9,45,2,2674,0)=" ;               GM = global array containing a single message"
^XMB(3.9,45,2,2675,0)="""RTN"",""HLMA1"",20,0)"
^XMB(3.9,45,2,2676,0)=" ;               GB = global array containing a batch of messages"
^XMB(3.9,45,2,2677,0)="""RTN"",""HLMA1"",21,0)"
^XMB(3.9,45,2,2678,0)=" ;  HLFORMAT = Format of array, 1 for pre-formatted in HL7 format,"
^XMB(3.9,45,2,2679,0)="""RTN"",""HLMA1"",22,0)"
^XMB(3.9,45,2,2680,0)=" ;               otherwise 0"
^XMB(3.9,45,2,2681,0)="""RTN"",""HLMA1"",23,0)"
^XMB(3.9,45,2,2682,0)=" ;NOTE:  The parameter HLRESLTA must be passed by reference"
^XMB(3.9,45,2,2683,0)="""RTN"",""HLMA1"",24,0)"
^XMB(3.9,45,2,2684,0)=" ;  HLRESLTA = The variable that will be returned to the calling"
^XMB(3.9,45,2,2685,0)="""RTN"",""HLMA1"",25,0)"
^XMB(3.9,45,2,2686,0)=" ;               application as descibed above"
^XMB(3.9,45,2,2687,0)="""RTN"",""HLMA1"",26,0)"
^XMB(3.9,45,2,2688,0)=" ;Optional Parameters"
^XMB(3.9,45,2,2689,0)="""RTN"",""HLMA1"",27,0)"
^XMB(3.9,45,2,2690,0)=" ;  HLMTIENA = IEN of entry in Message Text file where the"
^XMB(3.9,45,2,2691,0)="""RTN"",""HLMA1"",28,0)"
^XMB(3.9,45,2,2692,0)=" ;               acknowledgement message will be stored.  This"
^XMB(3.9,45,2,2693,0)="""RTN"",""HLMA1"",29,0)"
^XMB(3.9,45,2,2694,0)=" ;               parameter is only passed for a batch acknowledgment"
^XMB(3.9,45,2,2695,0)="""RTN"",""HLMA1"",30,0)"
^XMB(3.9,45,2,2696,0)=" ;  HLP(""SECURITY"") = A 1 to 40 character string"
^XMB(3.9,45,2,2697,0)="""RTN"",""HLMA1"",31,0)"
^XMB(3.9,45,2,2698,0)=" ; HLP(""NAMESPACE"") = Passed in by application namespace - HL*1.6*91"
^XMB(3.9,45,2,2699,0)="""RTN"",""HLMA1"",32,0)"
^XMB(3.9,45,2,2700,0)=" ;"
^XMB(3.9,45,2,2701,0)="""RTN"",""HLMA1"",33,0)"
^XMB(3.9,45,2,2702,0)=" ;"
^XMB(3.9,45,2,2703,0)="""RTN"",""HLMA1"",34,0)"
^XMB(3.9,45,2,2704,0)=" ;HLRESLTA is to return the results and should not be initially defined"
^XMB(3.9,45,2,2705,0)="""RTN"",""HLMA1"",35,0)"
^XMB(3.9,45,2,2706,0)=" N HLRESLT"
^XMB(3.9,45,2,2707,0)="""RTN"",""HLMA1"",36,0)"
^XMB(3.9,45,2,2708,0)=" S HLRESLT="""""
^XMB(3.9,45,2,2709,0)="""RTN"",""HLMA1"",37,0)"
^XMB(3.9,45,2,2710,0)=" K HLRESLTA"
^XMB(3.9,45,2,2711,0)="""RTN"",""HLMA1"",38,0)"
^XMB(3.9,45,2,2712,0)=" ;"
^XMB(3.9,45,2,2713,0)="""RTN"",""HLMA1"",39,0)"
^XMB(3.9,45,2,2714,0)=" ;Check for required parameters"
^XMB(3.9,45,2,2715,0)="""RTN"",""HLMA1"",40,0)"
^XMB(3.9,45,2,2716,0)=" I $G(HLEIDS)']""""!('$G(HLMTIENS))!($G(HLARYTYP)']"""")!($G(HLFORMAT)']"""") S HLRESLTA=""0^7^""_$G(^HL(771.7,7,0))_"" at GENACK^HLMA1 entry point"" G EXIT"
^XMB(3.9,45,2,2717,0)="""RTN"",""HLMA1"",41,0)"
^XMB(3.9,45,2,2718,0)=" I 'HLEIDS S HLEIDS=$O(^ORD(101,""B"",HLEIDS,0)) I 'HLEIDS S HLRESLTA=""0^1^""_$G(^HL(771.7,1,0)) G EXIT"
^XMB(3.9,45,2,2719,0)="""RTN"",""HLMA1"",42,0)"
^XMB(3.9,45,2,2720,0)=" ;Extract data from Protocol file"
^XMB(3.9,45,2,2721,0)="""RTN"",""HLMA1"",43,0)"
^XMB(3.9,45,2,2722,0)=" D EVENT^HLUTIL1(HLEIDS,""15,20,772"",.HLN)"
^XMB(3.9,45,2,2723,0)="""RTN"",""HLMA1"",44,0)"
^XMB(3.9,45,2,2724,0)=" N HLEXROU,HLMIDAR"
^XMB(3.9,45,2,2725,0)="""RTN"",""HLMA1"",45,0)"
^XMB(3.9,45,2,2726,0)=" S HLMIDAR=0,HLENROU=$G(HLN(20)),HLEXROU=$G(HLN(15))"
^XMB(3.9,45,2,2727,0)="""RTN"",""HLMA1"",46,0)"
^XMB(3.9,45,2,2728,0)=" S HLP(""GROUTINE"")=$G(HLN(772)) K HLN I HLP(""GROUTINE"")']"""",'HLFORMAT S HLRESLTA=""0^3^""_$G(^HL(771.7,3,0)) G EXIT"
^XMB(3.9,45,2,2729,0)="""RTN"",""HLMA1"",47,0)"
^XMB(3.9,45,2,2730,0)=" I ""GL""'[$E($G(HLARYTYP)) S HLRESLTA=""0^4^""_$G(^HL(771.7,4,0)) G EXIT"
^XMB(3.9,45,2,2731,0)="""RTN"",""HLMA1"",48,0)"
^XMB(3.9,45,2,2732,0)=" I '$D(HLP(""SECURITY"")) S HLP(""SECURITY"")="""""
^XMB(3.9,45,2,2733,0)="""RTN"",""HLMA1"",49,0)"
^XMB(3.9,45,2,2734,0)=" I $L(HLP(""SECURITY""))>40 S HLRESLTA=""0^6^""_$G(^HL(771.7,6,0)) G EXIT"
^XMB(3.9,45,2,2735,0)="""RTN"",""HLMA1"",50,0)"
^XMB(3.9,45,2,2736,0)=" ;$D(HLTCP) tcp connection will be used"
^XMB(3.9,45,2,2737,0)="""RTN"",""HLMA1"",51,0)"
^XMB(3.9,45,2,2738,0)=" I $D(HLTCP) D GENACK^HLTP4 G EXIT"
^XMB(3.9,45,2,2739,0)="""RTN"",""HLMA1"",52,0)"
^XMB(3.9,45,2,2740,0)=" ;Create message ID and Message Text IEN if Message Text IEN not"
^XMB(3.9,45,2,2741,0)="""RTN"",""HLMA1"",53,0)"
^XMB(3.9,45,2,2742,0)=" ;previously created ('$G(HLMTIENA))"
^XMB(3.9,45,2,2743,0)="""RTN"",""HLMA1"",54,0)"
^XMB(3.9,45,2,2744,0)=" I '$G(HLMTIENA) D CREATE^HLTF(.HLMIDA,.HLMTIENA,.HLDTA,.HLDT1A)"
^XMB(3.9,45,2,2745,0)="""RTN"",""HLMA1"",55,0)"
^XMB(3.9,45,2,2746,0)=" ;Get message ID if Message Text IEN not already created"
^XMB(3.9,45,2,2747,0)="""RTN"",""HLMA1"",56,0)"
^XMB(3.9,45,2,2748,0)=" I '$G(HLMIDA) D"
^XMB(3.9,45,2,2749,0)="""RTN"",""HLMA1"",57,0)"
^XMB(3.9,45,2,2750,0)=" .S HLDTA=$G(^HL(772,HLMTIENA,0))"
^XMB(3.9,45,2,2751,0)="""RTN"",""HLMA1"",58,0)"
^XMB(3.9,45,2,2752,0)=" .S HLDT1A=$$HLDATE^HLFNC(+HLDTA),HLMIDA=$P(HLDTA,""^"",6),HLDTA=+HLDTA"
^XMB(3.9,45,2,2753,0)="""RTN"",""HLMA1"",59,0)"
^XMB(3.9,45,2,2754,0)=" S HLRESLTA=HLMIDA,HLP(""DTM"")=HLDT1A,HLP(""DT"")=HLDTA,HLP(""MTIENS"")=HLMTIENS,HLP(""EID"")=HLEID"
^XMB(3.9,45,2,2755,0)="""RTN"",""HLMA1"",60,0)"
^XMB(3.9,45,2,2756,0)=" ;Execute entry action for subscriber protocol"
^XMB(3.9,45,2,2757,0)="""RTN"",""HLMA1"",61,0)"
^XMB(3.9,45,2,2758,0)=" I HLENROU]"""" X HLENROU"
^XMB(3.9,45,2,2759,0)="""RTN"",""HLMA1"",62,0)"
^XMB(3.9,45,2,2760,0)=" ;Invoke transaction processor to generate acknowledgement"
^XMB(3.9,45,2,2761,0)="""RTN"",""HLMA1"",63,0)"
^XMB(3.9,45,2,2762,0)=" K HLDTA,HLDT1A,HLEID,HLENROU,HLMTIENS"
^XMB(3.9,45,2,2763,0)="""RTN"",""HLMA1"",64,0)"
^XMB(3.9,45,2,2764,0)=" S HLRESLT="""""
^XMB(3.9,45,2,2765,0)="""RTN"",""HLMA1"",65,0)"
^XMB(3.9,45,2,2766,0)=" D GENACK^HLTP1(HLMIDA,HLMTIENA,HLEIDS,HLARYTYP,HLFORMAT,.HLRESLT,.HLP)"
^XMB(3.9,45,2,2767,0)="""RTN"",""HLMA1"",66,0)"
^XMB(3.9,45,2,2768,0)=" ;HLMIDAR is array of message IDs, only set for broadcast messages"
^XMB(3.9,45,2,2769,0)="""RTN"",""HLMA1"",67,0)"
^XMB(3.9,45,2,2770,0)=" I HLMIDAR K HLMIDAR(""N"") M HLRESLTA=HLMIDAR"
^XMB(3.9,45,2,2771,0)="""RTN"",""HLMA1"",68,0)"
^XMB(3.9,45,2,2772,0)=" S HLRESLTA=HLRESLTA_""^""_HLRESLT"
^XMB(3.9,45,2,2773,0)="""RTN"",""HLMA1"",69,0)"
^XMB(3.9,45,2,2774,0)=" ;Update status to Awaiting Acknowledgement or Error in Transmission"
^XMB(3.9,45,2,2775,0)="""RTN"",""HLMA1"",70,0)"
^XMB(3.9,45,2,2776,0)=" D STATUS^HLTF0(HLMTIENA,$S($P(HLRESLTA,""^"",2):4,1:3),$S($P(HLRESLTA,""^"",2):$P(HLRESLTA,""^"",2),1:""""),$S($P(HLRESLTA,""^"",2):$P(HLRESLTA,""^"",3),1:""""))"
^XMB(3.9,45,2,2777,0)="""RTN"",""HLMA1"",71,0)"
^XMB(3.9,45,2,2778,0)=" ;Execute exit action for subscriber protocol"
^XMB(3.9,45,2,2779,0)="""RTN"",""HLMA1"",72,0)"
^XMB(3.9,45,2,2780,0)=" X:HLEXROU]"""" HLEXROU"
^XMB(3.9,45,2,2781,0)="""RTN"",""HLMA1"",73,0)"
^XMB(3.9,45,2,2782,0)="EXIT K HLDTA,HLDT1A,HLMIDA,HLENROU,HLEXROU"
^XMB(3.9,45,2,2783,0)="""RTN"",""HLMA1"",74,0)"
^XMB(3.9,45,2,2784,0)=" Q"
^XMB(3.9,45,2,2785,0)="""RTN"",""HLOAPI"")"
^XMB(3.9,45,2,2786,0)="0^8^B35965894^B35456611"
^XMB(3.9,45,2,2787,0)="""RTN"",""HLOAPI"",1,0)"
^XMB(3.9,45,2,2788,0)="HLOAPI ;ALB/CJM-HL7 - Developer API's for sending & receiving messages ;09/13/2006"
^XMB(3.9,45,2,2789,0)="""RTN"",""HLOAPI"",2,0)"
^XMB(3.9,45,2,2790,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126,133**;Oct 13, 1995;Build 13"
^XMB(3.9,45,2,2791,0)="""RTN"",""HLOAPI"",3,0)"
^XMB(3.9,45,2,2792,0)=" ;Per VHA Directive 2004-038, this routine should not be modified."
^XMB(3.9,45,2,2793,0)="""RTN"",""HLOAPI"",4,0)"
^XMB(3.9,45,2,2794,0)=" ;"
^XMB(3.9,45,2,2795,0)="""RTN"",""HLOAPI"",5,0)"
^XMB(3.9,45,2,2796,0)="NEWMSG(PARMS,HLMSTATE,ERROR) ;"
^XMB(3.9,45,2,2797,0)="""RTN"",""HLOAPI"",6,0)"
^XMB(3.9,45,2,2798,0)=" ;Starts a new message.  "
^XMB(3.9,45,2,2799,0)="""RTN"",""HLOAPI"",7,0)"
^XMB(3.9,45,2,2800,0)=" ;Input: "
^XMB(3.9,45,2,2801,0)="""RTN"",""HLOAPI"",8,0)"
^XMB(3.9,45,2,2802,0)=" ;   PARMS( *pass by reference*"
^XMB(3.9,45,2,2803,0)="""RTN"",""HLOAPI"",9,0)"
^XMB(3.9,45,2,2804,0)=" ;     ""COUNTRY"")=3 character country code (optional)"
^XMB(3.9,45,2,2805,0)="""RTN"",""HLOAPI"",10,0)"
^XMB(3.9,45,2,2806,0)=" ;     ""CONTINUATION POINTER"" -indicates a fragmented message"
^XMB(3.9,45,2,2807,0)="""RTN"",""HLOAPI"",11,0)"
^XMB(3.9,45,2,2808,0)=" ;     ""EVENT"")=3 character event type (required)"
^XMB(3.9,45,2,2809,0)="""RTN"",""HLOAPI"",12,0)"
^XMB(3.9,45,2,2810,0)=" ;     ""FIELD SEPARATOR"")=field separator (optional, defaults to ""|"")"
^XMB(3.9,45,2,2811,0)="""RTN"",""HLOAPI"",13,0)"
^XMB(3.9,45,2,2812,0)=" ;     ""ENCODING CHARACTERS"")= 4 HL7 encoding characters (optional,defaults to ""^~\&"")"
^XMB(3.9,45,2,2813,0)="""RTN"",""HLOAPI"",14,0)"
^XMB(3.9,45,2,2814,0)=" ;     ""MESSAGE STRUCTURE"" - MSH 9, component 3 - a code from the standard HL7 table (optional)"
^XMB(3.9,45,2,2815,0)="""RTN"",""HLOAPI"",15,0)"
^XMB(3.9,45,2,2816,0)=" ;     ""MESSAGE TYPE"")=3 character message type (required)"
^XMB(3.9,45,2,2817,0)="""RTN"",""HLOAPI"",16,0)"
^XMB(3.9,45,2,2818,0)=" ;     ""PROCESSING MODE"" - MSH 11, component 2 - a 1 character code (optional)"
^XMB(3.9,45,2,2819,0)="""RTN"",""HLOAPI"",17,0)"
^XMB(3.9,45,2,2820,0)=" ;     ""VERSION"")=the HL7 Version ID, for example, ""2.4"" (optional, defaults to 2.4)"
^XMB(3.9,45,2,2821,0)="""RTN"",""HLOAPI"",18,0)"
^XMB(3.9,45,2,2822,0)=" ;Output:"
^XMB(3.9,45,2,2823,0)="""RTN"",""HLOAPI"",19,0)"
^XMB(3.9,45,2,2824,0)=" ;  Function- returns 1 on success, 0 on failure"
^XMB(3.9,45,2,2825,0)="""RTN"",""HLOAPI"",20,0)"
^XMB(3.9,45,2,2826,0)=" ;  HLMSTATE() - (pass by reference, required) This array is used by the HL7 package to track the progress of the message.  The application MUST NOT touch it!"
^XMB(3.9,45,2,2827,0)="""RTN"",""HLOAPI"",21,0)"
^XMB(3.9,45,2,2828,0)=" ;  PARMS - left defined when the function returns"
^XMB(3.9,45,2,2829,0)="""RTN"",""HLOAPI"",22,0)"
^XMB(3.9,45,2,2830,0)=" ;  ERROR (optional, pass by reference) - returns an error message on failure"
^XMB(3.9,45,2,2831,0)="""RTN"",""HLOAPI"",23,0)"
^XMB(3.9,45,2,2832,0)=" ;"
^XMB(3.9,45,2,2833,0)="""RTN"",""HLOAPI"",24,0)"
^XMB(3.9,45,2,2834,0)=" ;"
^XMB(3.9,45,2,2835,0)="""RTN"",""HLOAPI"",25,0)"
^XMB(3.9,45,2,2836,0)=" N DATA,I,SYSTEM,SUCCESS"
^XMB(3.9,45,2,2837,0)="""RTN"",""HLOAPI"",26,0)"
^XMB(3.9,45,2,2838,0)=" S SUCCESS=0"
^XMB(3.9,45,2,2839,0)="""RTN"",""HLOAPI"",27,0)"
^XMB(3.9,45,2,2840,0)=" K ERROR,HLMSTATE"
^XMB(3.9,45,2,2841,0)="""RTN"",""HLOAPI"",28,0)"
^XMB(3.9,45,2,2842,0)=" D"
^XMB(3.9,45,2,2843,0)="""RTN"",""HLOAPI"",29,0)"
^XMB(3.9,45,2,2844,0)=" .I $L($G(PARMS(""PROCESSING MODE""))),$L(PARMS(""PROCESSING MODE""))'=1 S ERROR=""INVALID PROCESSING MODE"" Q"
^XMB(3.9,45,2,2845,0)="""RTN"",""HLOAPI"",30,0)"
^XMB(3.9,45,2,2846,0)=" .I $L($G(PARMS(""COUNTRY""))),$L(PARMS(""COUNTRY""))'=3 S ERROR=""INVALID COUNTRY CODE"" Q"
^XMB(3.9,45,2,2847,0)="""RTN"",""HLOAPI"",31,0)"
^XMB(3.9,45,2,2848,0)=" .I $L($G(PARMS(""EVENT"")))'=3 S ERROR=""INVALID EVENT CODE"" Q"
^XMB(3.9,45,2,2849,0)="""RTN"",""HLOAPI"",32,0)"
^XMB(3.9,45,2,2850,0)=" .I $L($G(PARMS(""MESSAGE TYPE"")))'=3 S ERROR=""INVALID MESSAGE TYPE"" Q"
^XMB(3.9,45,2,2851,0)="""RTN"",""HLOAPI"",33,0)"
^XMB(3.9,45,2,2852,0)=" .I $L($G(PARMS(""ENCODING CHARACTERS""))),$L(PARMS(""ENCODING CHARACTERS""))'=4 S ERROR=""INVALID ENCODING CHARACTERS"" Q"
^XMB(3.9,45,2,2853,0)="""RTN"",""HLOAPI"",34,0)"
^XMB(3.9,45,2,2854,0)=" .I $L($G(PARMS(""FIELD SEPARATOR""))),$L(PARMS(""FIELD SEPARATOR""))'=1 S ERROR=""INVALID FIELD SEPARATOR"" Q"
^XMB(3.9,45,2,2855,0)="""RTN"",""HLOAPI"",35,0)"
^XMB(3.9,45,2,2856,0)=" .I '$L($G(PARMS(""FIELD SEPARATOR""))) S PARMS(""FIELD SEPARATOR"")=""|"""
^XMB(3.9,45,2,2857,0)="""RTN"",""HLOAPI"",36,0)"
^XMB(3.9,45,2,2858,0)=" .I '$L($G(PARMS(""ENCODING CHARACTERS""))) S PARMS(""ENCODING CHARACTERS"")=""^~\&"""
^XMB(3.9,45,2,2859,0)="""RTN"",""HLOAPI"",37,0)"
^XMB(3.9,45,2,2860,0)=" .I $G(PARMS(""VERSION""))="""" S PARMS(""VERSION"")=""2.4"""
^XMB(3.9,45,2,2861,0)="""RTN"",""HLOAPI"",38,0)"
^XMB(3.9,45,2,2862,0)=" .I ($L($G(PARMS(""VERSION"")))>20) S ERROR=""VERSION > 20 CHARACTERS"" Q"
^XMB(3.9,45,2,2863,0)="""RTN"",""HLOAPI"",39,0)"
^XMB(3.9,45,2,2864,0)=" .F I=""MESSAGE TYPE"",""EVENT"",""COUNTRY"",""FIELD SEPARATOR"",""ENCODING CHARACTERS"",""VERSION"",""CONTINUATION POINTER"",""MESSAGE STRUCTURE"",""PROCESSING MODE"" S HLMSTATE(""HDR"",I)=$G(PARMS(I))"
^XMB(3.9,45,2,2865,0)="""RTN"",""HLOAPI"",40,0)"
^XMB(3.9,45,2,2866,0)=" .S HLMSTATE(""BATCH"")=0 ;not a batch"
^XMB(3.9,45,2,2867,0)="""RTN"",""HLOAPI"",41,0)"
^XMB(3.9,45,2,2868,0)=" .S HLMSTATE(""DIRECTION"")=""OUT"""
^XMB(3.9,45,2,2869,0)="""RTN"",""HLOAPI"",42,0)"
^XMB(3.9,45,2,2870,0)=" .S HLMSTATE(""IEN"")="""""
^XMB(3.9,45,2,2871,0)="""RTN"",""HLOAPI"",43,0)"
^XMB(3.9,45,2,2872,0)=" .S HLMSTATE(""BODY"")="""" ;record not yet created"
^XMB(3.9,45,2,2873,0)="""RTN"",""HLOAPI"",44,0)"
^XMB(3.9,45,2,2874,0)=" .S HLMSTATE(""CURRENT SEGMENT"")=0 ;no segments cached"
^XMB(3.9,45,2,2875,0)="""RTN"",""HLOAPI"",45,0)"
^XMB(3.9,45,2,2876,0)=" .S HLMSTATE(""UNSTORED LINES"")=0 ;nothing in cache"
^XMB(3.9,45,2,2877,0)="""RTN"",""HLOAPI"",46,0)"
^XMB(3.9,45,2,2878,0)=" .S HLMSTATE(""LINE COUNT"")=0"
^XMB(3.9,45,2,2879,0)="""RTN"",""HLOAPI"",47,0)"
^XMB(3.9,45,2,2880,0)=" .D GETSYS(.HLMSTATE)"
^XMB(3.9,45,2,2881,0)="""RTN"",""HLOAPI"",48,0)"
^XMB(3.9,45,2,2882,0)=" .S SUCCESS=1"
^XMB(3.9,45,2,2883,0)="""RTN"",""HLOAPI"",49,0)"
^XMB(3.9,45,2,2884,0)=" Q SUCCESS"
^XMB(3.9,45,2,2885,0)="""RTN"",""HLOAPI"",50,0)"
^XMB(3.9,45,2,2886,0)=" ;"
^XMB(3.9,45,2,2887,0)="""RTN"",""HLOAPI"",51,0)"
^XMB(3.9,45,2,2888,0)="NEWBATCH(PARMS,HLMSTATE,ERROR) ;"
^XMB(3.9,45,2,2889,0)="""RTN"",""HLOAPI"",52,0)"
^XMB(3.9,45,2,2890,0)=" ;Starts a new batch message.  "
^XMB(3.9,45,2,2891,0)="""RTN"",""HLOAPI"",53,0)"
^XMB(3.9,45,2,2892,0)=" ;Input: "
^XMB(3.9,45,2,2893,0)="""RTN"",""HLOAPI"",54,0)"
^XMB(3.9,45,2,2894,0)=" ;  PARMS( *pass by reference*"
^XMB(3.9,45,2,2895,0)="""RTN"",""HLOAPI"",55,0)"
^XMB(3.9,45,2,2896,0)=" ;   ""COUNTRY"")=3 character country code (optional)"
^XMB(3.9,45,2,2897,0)="""RTN"",""HLOAPI"",56,0)"
^XMB(3.9,45,2,2898,0)=" ;   ""FIELD SEPARATOR"")=field separator (optional, defaults to ""|"")"
^XMB(3.9,45,2,2899,0)="""RTN"",""HLOAPI"",57,0)"
^XMB(3.9,45,2,2900,0)=" ;   ""ENCODING CHARACTERS"")= 4 HL7 encoding characters (optional,defaults to ""^~\&"") "
^XMB(3.9,45,2,2901,0)="""RTN"",""HLOAPI"",58,0)"
^XMB(3.9,45,2,2902,0)=" ;   ""VERSION"")=the HL7 Version ID, for example, ""2.4"" (optional, defaults to 2.4)"
^XMB(3.9,45,2,2903,0)="""RTN"",""HLOAPI"",59,0)"
^XMB(3.9,45,2,2904,0)=" ;Output:"
^XMB(3.9,45,2,2905,0)="""RTN"",""HLOAPI"",60,0)"
^XMB(3.9,45,2,2906,0)=" ;  Function - returns 1 on success, 0 on failure"
^XMB(3.9,45,2,2907,0)="""RTN"",""HLOAPI"",61,0)"
^XMB(3.9,45,2,2908,0)=" ;  PARMS - left defined when the function returns"
^XMB(3.9,45,2,2909,0)="""RTN"",""HLOAPI"",62,0)"
^XMB(3.9,45,2,2910,0)=" ;  HLMSTATE() - (pass by reference, required) This array is used by the HL7 package to track the progress of the message.  The application MUST NOT touch it!"
^XMB(3.9,45,2,2911,0)="""RTN"",""HLOAPI"",63,0)"
^XMB(3.9,45,2,2912,0)=" ;  ERROR (optional, pass by reference) - returns an error message on failure"
^XMB(3.9,45,2,2913,0)="""RTN"",""HLOAPI"",64,0)"
^XMB(3.9,45,2,2914,0)=" ;"
^XMB(3.9,45,2,2915,0)="""RTN"",""HLOAPI"",65,0)"
^XMB(3.9,45,2,2916,0)=" ;"
^XMB(3.9,45,2,2917,0)="""RTN"",""HLOAPI"",66,0)"
^XMB(3.9,45,2,2918,0)=" N DATA,I,SYSTEM,SUCCESS"
^XMB(3.9,45,2,2919,0)="""RTN"",""HLOAPI"",67,0)"
^XMB(3.9,45,2,2920,0)=" S SUCCESS=0"
^XMB(3.9,45,2,2921,0)="""RTN"",""HLOAPI"",68,0)"
^XMB(3.9,45,2,2922,0)=" K ERROR,HLMSTATE"
^XMB(3.9,45,2,2923,0)="""RTN"",""HLOAPI"",69,0)"
^XMB(3.9,45,2,2924,0)=" D"
^XMB(3.9,45,2,2925,0)="""RTN"",""HLOAPI"",70,0)"
^XMB(3.9,45,2,2926,0)=" .I $L($G(PARMS(""COUNTRY""))),$L(PARMS(""COUNTRY""))'=3 S ERROR=""INVALID COUNTRY CODE"" Q"
^XMB(3.9,45,2,2927,0)="""RTN"",""HLOAPI"",71,0)"
^XMB(3.9,45,2,2928,0)=" .I $L($G(PARMS(""ENCODING CHARACTERS""))),$L(PARMS(""ENCODING CHARACTERS""))'=4 S ERROR=""INVALID ENCODING CHARACTERS"" Q"
^XMB(3.9,45,2,2929,0)="""RTN"",""HLOAPI"",72,0)"
^XMB(3.9,45,2,2930,0)=" .I $L($G(PARMS(""FIELD SEPARATOR""))),$L(PARMS(""FIELD SEPARATOR""))'=1 S ERROR=""INVALID FIELD SEPARATOR"" Q"
^XMB(3.9,45,2,2931,0)="""RTN"",""HLOAPI"",73,0)"
^XMB(3.9,45,2,2932,0)=" .I '$L($G(PARMS(""FIELD SEPARATOR""))) S PARMS(""FIELD SEPARATOR"")=""|"""
^XMB(3.9,45,2,2933,0)="""RTN"",""HLOAPI"",74,0)"
^XMB(3.9,45,2,2934,0)=" .I '$L($G(PARMS(""ENCODING CHARACTERS""))) S PARMS(""ENCODING CHARACTERS"")=""^~\&"""
^XMB(3.9,45,2,2935,0)="""RTN"",""HLOAPI"",75,0)"
^XMB(3.9,45,2,2936,0)=" .I $G(PARMS(""VERSION""))="""" S PARMS(""VERSION"")=""2.4"""
^XMB(3.9,45,2,2937,0)="""RTN"",""HLOAPI"",76,0)"
^XMB(3.9,45,2,2938,0)=" .I ($L(PARMS(""VERSION""))>20) S ERROR=""VERSION > 20 CHARACTERS"" Q"
^XMB(3.9,45,2,2939,0)="""RTN"",""HLOAPI"",77,0)"
^XMB(3.9,45,2,2940,0)=" .F I=""COUNTRY"",""FIELD SEPARATOR"",""ENCODING CHARACTERS"",""VERSION"" S HLMSTATE(""HDR"",I)=$G(PARMS(I))"
^XMB(3.9,45,2,2941,0)="""RTN"",""HLOAPI"",78,0)"
^XMB(3.9,45,2,2942,0)=" .S HLMSTATE(""IEN"")="""""
^XMB(3.9,45,2,2943,0)="""RTN"",""HLOAPI"",79,0)"
^XMB(3.9,45,2,2944,0)=" .S HLMSTATE(""BODY"")="""" ;msg not yet stored"
^XMB(3.9,45,2,2945,0)="""RTN"",""HLOAPI"",80,0)"
^XMB(3.9,45,2,2946,0)=" .S HLMSTATE(""BATCH"")=1"
^XMB(3.9,45,2,2947,0)="""RTN"",""HLOAPI"",81,0)"
^XMB(3.9,45,2,2948,0)=" .S HLMSTATE(""DIRECTION"")=""OUT"""
^XMB(3.9,45,2,2949,0)="""RTN"",""HLOAPI"",82,0)"
^XMB(3.9,45,2,2950,0)=" .S HLMSTATE(""BATCH"",""CURRENT MESSAGE"")=0 ;no messages in batch"
^XMB(3.9,45,2,2951,0)="""RTN"",""HLOAPI"",83,0)"
^XMB(3.9,45,2,2952,0)=" .S HLMSTATE(""CURRENT SEGMENT"")=0 ;no segments in cache"
^XMB(3.9,45,2,2953,0)="""RTN"",""HLOAPI"",84,0)"
^XMB(3.9,45,2,2954,0)=" .S HLMSTATE(""UNSTORED LINES"")=0 ;nothing in cache"
^XMB(3.9,45,2,2955,0)="""RTN"",""HLOAPI"",85,0)"
^XMB(3.9,45,2,2956,0)=" .S HLMSTATE(""LINE COUNT"")=0 ;no lines within message stored"
^XMB(3.9,45,2,2957,0)="""RTN"",""HLOAPI"",86,0)"
^XMB(3.9,45,2,2958,0)=" .D GETSYS(.HLMSTATE)"
^XMB(3.9,45,2,2959,0)="""RTN"",""HLOAPI"",87,0)"
^XMB(3.9,45,2,2960,0)=" .S SUCCESS=1"
^XMB(3.9,45,2,2961,0)="""RTN"",""HLOAPI"",88,0)"
^XMB(3.9,45,2,2962,0)=" Q SUCCESS"
^XMB(3.9,45,2,2963,0)="""RTN"",""HLOAPI"",89,0)"
^XMB(3.9,45,2,2964,0)=" ;"
^XMB(3.9,45,2,2965,0)="""RTN"",""HLOAPI"",90,0)"
^XMB(3.9,45,2,2966,0)="SET(SEG,VALUE,FIELD,COMP,SUBCOMP,REP) ;"
^XMB(3.9,45,2,2967,0)="""RTN"",""HLOAPI"",91,0)"
^XMB(3.9,45,2,2968,0)=" ;Sets a value to the array SEG(), used for building segments."
^XMB(3.9,45,2,2969,0)="""RTN"",""HLOAPI"",92,0)"
^XMB(3.9,45,2,2970,0)=" ;Input:"
^XMB(3.9,45,2,2971,0)="""RTN"",""HLOAPI"",93,0)"
^XMB(3.9,45,2,2972,0)=" ; SEG - (required, pass by reference) - this is the array where the segment is being built."
^XMB(3.9,45,2,2973,0)="""RTN"",""HLOAPI"",94,0)"
^XMB(3.9,45,2,2974,0)=" ; VALUE - the individual value to be set into the segment"
^XMB(3.9,45,2,2975,0)="""RTN"",""HLOAPI"",95,0)"
^XMB(3.9,45,2,2976,0)=" ; FIELD - the sequence # of the field (optional, defaults to 0)"
^XMB(3.9,45,2,2977,0)="""RTN"",""HLOAPI"",96,0)"
^XMB(3.9,45,2,2978,0)=" ;     *NOTE: FIELD=0 is used to denote the segment type."
^XMB(3.9,45,2,2979,0)="""RTN"",""HLOAPI"",97,0)"
^XMB(3.9,45,2,2980,0)=" ; COMP - the # of the component (optional, defaults to 1)"
^XMB(3.9,45,2,2981,0)="""RTN"",""HLOAPI"",98,0)"
^XMB(3.9,45,2,2982,0)=" ; SUBCOMP - the # of the subcomponent (optional, defaults to 1)"
^XMB(3.9,45,2,2983,0)="""RTN"",""HLOAPI"",99,0)"
^XMB(3.9,45,2,2984,0)=" ; REP - the occurrence# (optional, defaults to 1)  For a non-repeating field, the occurrence # need not be provided, because it would be 1."
^XMB(3.9,45,2,2985,0)="""RTN"",""HLOAPI"",100,0)"
^XMB(3.9,45,2,2986,0)=" ;Output: "
^XMB(3.9,45,2,2987,0)="""RTN"",""HLOAPI"",101,0)"
^XMB(3.9,45,2,2988,0)=" ;  SEG array"
^XMB(3.9,45,2,2989,0)="""RTN"",""HLOAPI"",102,0)"
^XMB(3.9,45,2,2990,0)=" ;"
^XMB(3.9,45,2,2991,0)="""RTN"",""HLOAPI"",103,0)"
^XMB(3.9,45,2,2992,0)=" ;  Example:"
^XMB(3.9,45,2,2993,0)="""RTN"",""HLOAPI"",104,0)"
^XMB(3.9,45,2,2994,0)=" ;    D SET(.SEG,""MSA"",0) creates an MSA segment "
^XMB(3.9,45,2,2995,0)="""RTN"",""HLOAPI"",105,0)"
^XMB(3.9,45,2,2996,0)=" ;    D SET(.SEG,""AE"",1) will place the value into the array position"
^XMB(3.9,45,2,2997,0)="""RTN"",""HLOAPI"",106,0)"
^XMB(3.9,45,2,2998,0)=" ;    reserved for the 1st field,1st occurence,1st comp,1st subcomp"
^XMB(3.9,45,2,2999,0)="""RTN"",""HLOAPI"",107,0)"
^XMB(3.9,45,2,3000,0)=" ;"
^XMB(3.9,45,2,3001,0)="""RTN"",""HLOAPI"",108,0)"
^XMB(3.9,45,2,3002,0)=" ;Implementation Note - This format is used for the segment array built by calls to SET: SEGMENT(<SEQ #>,<occurrence #>,<component #>,<subcomponent #>)=<subcomponent value> "
^XMB(3.9,45,2,3003,0)="""RTN"",""HLOAPI"",109,0)"
^XMB(3.9,45,2,3004,0)=" ;"
^XMB(3.9,45,2,3005,0)="""RTN"",""HLOAPI"",110,0)"
^XMB(3.9,45,2,3006,0)=" S:'$G(FIELD) FIELD=0"
^XMB(3.9,45,2,3007,0)="""RTN"",""HLOAPI"",111,0)"
^XMB(3.9,45,2,3008,0)=" S:'$G(COMP) COMP=1"
^XMB(3.9,45,2,3009,0)="""RTN"",""HLOAPI"",112,0)"
^XMB(3.9,45,2,3010,0)=" S:'$G(SUBCOMP) SUBCOMP=1"
^XMB(3.9,45,2,3011,0)="""RTN"",""HLOAPI"",113,0)"
^XMB(3.9,45,2,3012,0)=" S:'$G(REP) REP=1"
^XMB(3.9,45,2,3013,0)="""RTN"",""HLOAPI"",114,0)"
^XMB(3.9,45,2,3014,0)=" S SEG(FIELD,REP,COMP,SUBCOMP)=$G(VALUE)"
^XMB(3.9,45,2,3015,0)="""RTN"",""HLOAPI"",115,0)"
^XMB(3.9,45,2,3016,0)=" Q"
^XMB(3.9,45,2,3017,0)="""RTN"",""HLOAPI"",116,0)"
^XMB(3.9,45,2,3018,0)=" ;"
^XMB(3.9,45,2,3019,0)="""RTN"",""HLOAPI"",117,0)"
^XMB(3.9,45,2,3020,0)="ADDSEG(HLMSTATE,SEG,ERROR) ;Adds a segment to the message."
^XMB(3.9,45,2,3021,0)="""RTN"",""HLOAPI"",118,0)"
^XMB(3.9,45,2,3022,0)=" ;Input:"
^XMB(3.9,45,2,3023,0)="""RTN"",""HLOAPI"",119,0)"
^XMB(3.9,45,2,3024,0)=" ;  HLMSTATE() - (pass by reference, required) This array is used by the HL7 package to track the progress of the message.  The application MUST NOT touch it!"
^XMB(3.9,45,2,3025,0)="""RTN"",""HLOAPI"",120,0)"
^XMB(3.9,45,2,3026,0)=" ;  SEG() - (pass by reference, required) Contains the data.  It must be built by calls to SET prior to calling $$ADDSEG."
^XMB(3.9,45,2,3027,0)="""RTN"",""HLOAPI"",121,0)"
^XMB(3.9,45,2,3028,0)=" ;"
^XMB(3.9,45,2,3029,0)="""RTN"",""HLOAPI"",122,0)"
^XMB(3.9,45,2,3030,0)=" ;Note#1:  The message control segments, including the MSH and BHS segments, are added automatically."
^XMB(3.9,45,2,3031,0)="""RTN"",""HLOAPI"",123,0)"
^XMB(3.9,45,2,3032,0)=" ;Note#2:  The 0th field must be a 3 character segment type"
^XMB(3.9,45,2,3033,0)="""RTN"",""HLOAPI"",124,0)"
^XMB(3.9,45,2,3034,0)=" ;Note#3: ***SEG is killed upon successfully adding the segment***"
^XMB(3.9,45,2,3035,0)="""RTN"",""HLOAPI"",125,0)"
^XMB(3.9,45,2,3036,0)=" ;"
^XMB(3.9,45,2,3037,0)="""RTN"",""HLOAPI"",126,0)"
^XMB(3.9,45,2,3038,0)=" ;Output:"
^XMB(3.9,45,2,3039,0)="""RTN"",""HLOAPI"",127,0)"
^XMB(3.9,45,2,3040,0)=" ;   HLMSTATE() - (pass by reference, required) This array is used by the HL7 package to track the progress of the message."
^XMB(3.9,45,2,3041,0)="""RTN"",""HLOAPI"",128,0)"
^XMB(3.9,45,2,3042,0)=" ;  FUNCTION - returns 1 on success, 0 on failure"
^XMB(3.9,45,2,3043,0)="""RTN"",""HLOAPI"",129,0)"
^XMB(3.9,45,2,3044,0)=" ;  ERROR (optional, pass by reference) - returns an error message on failure"
^XMB(3.9,45,2,3045,0)="""RTN"",""HLOAPI"",130,0)"
^XMB(3.9,45,2,3046,0)=" ;"
^XMB(3.9,45,2,3047,0)="""RTN"",""HLOAPI"",131,0)"
^XMB(3.9,45,2,3048,0)=" ;"
^XMB(3.9,45,2,3049,0)="""RTN"",""HLOAPI"",132,0)"
^XMB(3.9,45,2,3050,0)=" K ERROR"
^XMB(3.9,45,2,3051,0)="""RTN"",""HLOAPI"",133,0)"
^XMB(3.9,45,2,3052,0)=" N TOARY,TYPE"
^XMB(3.9,45,2,3053,0)="""RTN"",""HLOAPI"",134,0)"
^XMB(3.9,45,2,3054,0)=" ;"
^XMB(3.9,45,2,3055,0)="""RTN"",""HLOAPI"",135,0)"
^XMB(3.9,45,2,3056,0)=" S TYPE=$G(SEG(0,1,1,1)) ;segment type"
^XMB(3.9,45,2,3057,0)="""RTN"",""HLOAPI"",136,0)"
^XMB(3.9,45,2,3058,0)=" ;"
^XMB(3.9,45,2,3059,0)="""RTN"",""HLOAPI"",137,0)"
^XMB(3.9,45,2,3060,0)=" ;if a 'generic' app ack MSA was built, add it as the first segment before this one"
^XMB(3.9,45,2,3061,0)="""RTN"",""HLOAPI"",138,0)"
^XMB(3.9,45,2,3062,0)=" I $D(HLMSTATE(""MSA"")) D"
^XMB(3.9,45,2,3063,0)="""RTN"",""HLOAPI"",139,0)"
^XMB(3.9,45,2,3064,0)=" .I TYPE'=""MSA"" S TOARY(1)=HLMSTATE(""MSA"") D ADDSEG^HLOMSG(.HLMSTATE,.TOARY) K TOARY"
^XMB(3.9,45,2,3065,0)="""RTN"",""HLOAPI"",140,0)"
^XMB(3.9,45,2,3066,0)=" .K HLMSTATE(""MSA"")"
^XMB(3.9,45,2,3067,0)="""RTN"",""HLOAPI"",141,0)"
^XMB(3.9,45,2,3068,0)=" ;"
^XMB(3.9,45,2,3069,0)="""RTN"",""HLOAPI"",142,0)"
^XMB(3.9,45,2,3070,0)=" I ($L(TYPE)'=3) S ERROR=""INVALID SEGMENT TYPE"" Q 0"
^XMB(3.9,45,2,3071,0)="""RTN"",""HLOAPI"",143,0)"
^XMB(3.9,45,2,3072,0)=" I (TYPE=""MSH"")!(TYPE=""BHS"")!(TYPE=""BTS"")!(TYPE=""FHS"")!(TYPE=""FTS"") S ERROR=""INVALID SEGMENT TYPE"" Q 0"
^XMB(3.9,45,2,3073,0)="""RTN"",""HLOAPI"",144,0)"
^XMB(3.9,45,2,3074,0)=" I HLMSTATE(""BATCH""),'HLMSTATE(""BATCH"",""CURRENT MESSAGE"") S ERROR=""NO MESSAGES IN BATCH, SO SEGMENTS NOT ALLOWED"" Q 0"
^XMB(3.9,45,2,3075,0)="""RTN"",""HLOAPI"",145,0)"
^XMB(3.9,45,2,3076,0)=" I $$BUILDSEG^HLOPBLD(.HLMSTATE,.SEG,.TOARY,.ERROR) D ADDSEG^HLOMSG(.HLMSTATE,.TOARY) K SEG Q 1"
^XMB(3.9,45,2,3077,0)="""RTN"",""HLOAPI"",146,0)"
^XMB(3.9,45,2,3078,0)=" Q 0"
^XMB(3.9,45,2,3079,0)="""RTN"",""HLOAPI"",147,0)"
^XMB(3.9,45,2,3080,0)=" ;"
^XMB(3.9,45,2,3081,0)="""RTN"",""HLOAPI"",148,0)"
^XMB(3.9,45,2,3082,0)="ADDMSG(HLMSTATE,PARMS,ERROR) ;"
^XMB(3.9,45,2,3083,0)="""RTN"",""HLOAPI"",149,0)"
^XMB(3.9,45,2,3084,0)=" ;Begins a new message in the batch."
^XMB(3.9,45,2,3085,0)="""RTN"",""HLOAPI"",150,0)"
^XMB(3.9,45,2,3086,0)=" ;Input:"
^XMB(3.9,45,2,3087,0)="""RTN"",""HLOAPI"",151,0)"
^XMB(3.9,45,2,3088,0)=" ;  HLMSTATE() - (pass by reference, required) This array is used by the HL7 package to track the progress of the message.  The application MUST NOT touch it!"
^XMB(3.9,45,2,3089,0)="""RTN"",""HLOAPI"",152,0)"
^XMB(3.9,45,2,3090,0)=" ;  PARMS( *pass by reference*"
^XMB(3.9,45,2,3091,0)="""RTN"",""HLOAPI"",153,0)"
^XMB(3.9,45,2,3092,0)=" ;    ""EVENT"")=3 character event type (required)"
^XMB(3.9,45,2,3093,0)="""RTN"",""HLOAPI"",154,0)"
^XMB(3.9,45,2,3094,0)=" ;    ""MESSAGE TYPE"")=3 character message type (required)"
^XMB(3.9,45,2,3095,0)="""RTN"",""HLOAPI"",155,0)"
^XMB(3.9,45,2,3096,0)=" ;"
^XMB(3.9,45,2,3097,0)="""RTN"",""HLOAPI"",156,0)"
^XMB(3.9,45,2,3098,0)=" ;Output:"
^XMB(3.9,45,2,3099,0)="""RTN"",""HLOAPI"",157,0)"
^XMB(3.9,45,2,3100,0)=" ;   FUNCTION - returns 1 on success, 0 on failure"
^XMB(3.9,45,2,3101,0)="""RTN"",""HLOAPI"",158,0)"
^XMB(3.9,45,2,3102,0)=" ;   HLMSTATE() - (pass by reference, required) This array is used by the HL7 package to track the progress of the message."
^XMB(3.9,45,2,3103,0)="""RTN"",""HLOAPI"",159,0)"
^XMB(3.9,45,2,3104,0)=" ;   PARMS - left defined when this function returns"
^XMB(3.9,45,2,3105,0)="""RTN"",""HLOAPI"",160,0)"
^XMB(3.9,45,2,3106,0)=" ;   ERROR (optional, pass by reference) - returns an error message on failure"
^XMB(3.9,45,2,3107,0)="""RTN"",""HLOAPI"",161,0)"
^XMB(3.9,45,2,3108,0)=" ;"
^XMB(3.9,45,2,3109,0)="""RTN"",""HLOAPI"",162,0)"
^XMB(3.9,45,2,3110,0)=" N I"
^XMB(3.9,45,2,3111,0)="""RTN"",""HLOAPI"",163,0)"
^XMB(3.9,45,2,3112,0)=" K ERROR"
^XMB(3.9,45,2,3113,0)="""RTN"",""HLOAPI"",164,0)"
^XMB(3.9,45,2,3114,0)=" ;if a 'generic' app ack MSA was built, add it as the first segment before this one"
^XMB(3.9,45,2,3115,0)="""RTN"",""HLOAPI"",165,0)"
^XMB(3.9,45,2,3116,0)=" I $D(HLMSTATE(""MSA"")) D"
^XMB(3.9,45,2,3117,0)="""RTN"",""HLOAPI"",166,0)"
^XMB(3.9,45,2,3118,0)=" .I TYPE'=""MSA"" N TOARY M TOARY=HLMSTATE(""MSA"") D ADDSEG^HLOMSG(.HLMSTATE,.TOARY) K TOARY"
^XMB(3.9,45,2,3119,0)="""RTN"",""HLOAPI"",167,0)"
^XMB(3.9,45,2,3120,0)=" .K HLMSTATE(""MSA"")"
^XMB(3.9,45,2,3121,0)="""RTN"",""HLOAPI"",168,0)"
^XMB(3.9,45,2,3122,0)=" I $L($G(PARMS(""EVENT"")))'=3 S ERROR=""EVENT TYPE INVALID"" Q 0"
^XMB(3.9,45,2,3123,0)="""RTN"",""HLOAPI"",169,0)"
^XMB(3.9,45,2,3124,0)=" I $L($G(PARMS(""MESSAGE TYPE"")))'=3 S ERROR=""MESSAGE TYPE INVALID"" Q 0"
^XMB(3.9,45,2,3125,0)="""RTN"",""HLOAPI"",170,0)"
^XMB(3.9,45,2,3126,0)=" D ADDMSG^HLOMSG(.HLMSTATE,.PARMS)"
^XMB(3.9,45,2,3127,0)="""RTN"",""HLOAPI"",171,0)"
^XMB(3.9,45,2,3128,0)=" Q 1"
^XMB(3.9,45,2,3129,0)="""RTN"",""HLOAPI"",172,0)"
^XMB(3.9,45,2,3130,0)=" ;"
^XMB(3.9,45,2,3131,0)="""RTN"",""HLOAPI"",173,0)"
^XMB(3.9,45,2,3132,0)="GETSYS(HLMSTATE) ;"
^XMB(3.9,45,2,3133,0)="""RTN"",""HLOAPI"",174,0)"
^XMB(3.9,45,2,3134,0)=" N SYS,SUB"
^XMB(3.9,45,2,3135,0)="""RTN"",""HLOAPI"",175,0)"
^XMB(3.9,45,2,3136,0)=" D SYSPARMS^HLOSITE(.SYS)"
^XMB(3.9,45,2,3137,0)="""RTN"",""HLOAPI"",176,0)"
^XMB(3.9,45,2,3138,0)=" F SUB=""DOMAIN"",""STATION"",""PROCESSING ID"",""MAXSTRING"",""ERROR PURGE"",""NORMAL PURGE"",""PORT"" S HLMSTATE(""SYSTEM"",SUB)=SYS(SUB)"
^XMB(3.9,45,2,3139,0)="""RTN"",""HLOAPI"",177,0)"
^XMB(3.9,45,2,3140,0)=" S HLMSTATE(""SYSTEM"",""BUFFER"")=SYS(""USER BUFFER"")"
^XMB(3.9,45,2,3141,0)="""RTN"",""HLOAPI"",178,0)"
^XMB(3.9,45,2,3142,0)=" Q"
^XMB(3.9,45,2,3143,0)="""RTN"",""HLOAPI"",179,0)"
^XMB(3.9,45,2,3144,0)=" ;"
^XMB(3.9,45,2,3145,0)="""RTN"",""HLOAPI"",180,0)"
^XMB(3.9,45,2,3146,0)="MOVEMSG(HLMSTATE,ARY) ;"
^XMB(3.9,45,2,3147,0)="""RTN"",""HLOAPI"",181,0)"
^XMB(3.9,45,2,3148,0)=" ;If a message was built in the 'old' way, and resides in an array, this  routine will move it into file 777 (HL7 Message Body)"
^XMB(3.9,45,2,3149,0)="""RTN"",""HLOAPI"",182,0)"
^XMB(3.9,45,2,3150,0)=" ;Input:"
^XMB(3.9,45,2,3151,0)="""RTN"",""HLOAPI"",183,0)"
^XMB(3.9,45,2,3152,0)=" ;  HLMSTATE (pass by reference) the array created by calling $$NEWMSG or $$NEWBATCH"
^XMB(3.9,45,2,3153,0)="""RTN"",""HLOAPI"",184,0)"
^XMB(3.9,45,2,3154,0)=" ;  ARY - is the name of the array, local or global, where the message was built, used to reference the array by indirection."
^XMB(3.9,45,2,3155,0)="""RTN"",""HLOAPI"",185,0)"
^XMB(3.9,45,2,3156,0)=" ;"
^XMB(3.9,45,2,3157,0)="""RTN"",""HLOAPI"",186,0)"
^XMB(3.9,45,2,3158,0)=" N I S I=0"
^XMB(3.9,45,2,3159,0)="""RTN"",""HLOAPI"",187,0)"
^XMB(3.9,45,2,3160,0)=" F  S I=$O(@ARY@(I)) Q:'I  D"
^XMB(3.9,45,2,3161,0)="""RTN"",""HLOAPI"",188,0)"
^XMB(3.9,45,2,3162,0)=" .N SEG,J,J2"
^XMB(3.9,45,2,3163,0)="""RTN"",""HLOAPI"",189,0)"
^XMB(3.9,45,2,3164,0)=" .S J=0,J2=1"
^XMB(3.9,45,2,3165,0)="""RTN"",""HLOAPI"",190,0)"
^XMB(3.9,45,2,3166,0)=" .S SEG(J2)=@ARY@(I)"
^XMB(3.9,45,2,3167,0)="""RTN"",""HLOAPI"",191,0)"
^XMB(3.9,45,2,3168,0)=" .F  S J=$O(@ARY@(I,J)) Q:'J  S J2=J2+1,SEG(J2)=@ARY@(I,J)"
^XMB(3.9,45,2,3169,0)="""RTN"",""HLOAPI"",192,0)"
^XMB(3.9,45,2,3170,0)=" .I 'HLMSTATE(""BATCH"") D"
^XMB(3.9,45,2,3171,0)="""RTN"",""HLOAPI"",193,0)"
^XMB(3.9,45,2,3172,0)=" ..D ADDSEG^HLOMSG(.HLMSTATE,.SEG)"
^XMB(3.9,45,2,3173,0)="""RTN"",""HLOAPI"",194,0)"
^XMB(3.9,45,2,3174,0)=" .E  D"
^XMB(3.9,45,2,3175,0)="""RTN"",""HLOAPI"",195,0)"
^XMB(3.9,45,2,3176,0)=" ..I $E(SEG(1),1,3)=""MSH"" D"
^XMB(3.9,45,2,3177,0)="""RTN"",""HLOAPI"",196,0)"
^XMB(3.9,45,2,3178,0)=" ...D SPLITHDR^HLOSRVR1(.SEG)"
^XMB(3.9,45,2,3179,0)="""RTN"",""HLOAPI"",197,0)"
^XMB(3.9,45,2,3180,0)=" ...D ADDMSG2^HLOMSG(.HLMSTATE,.SEG)"
^XMB(3.9,45,2,3181,0)="""RTN"",""HLOAPI"",198,0)"
^XMB(3.9,45,2,3182,0)=" ..E  D ADDSEG^HLOMSG(.HLMSTATE,.SEG)"
^XMB(3.9,45,2,3183,0)="""RTN"",""HLOAPI"",199,0)"
^XMB(3.9,45,2,3184,0)=" ;"
^XMB(3.9,45,2,3185,0)="""RTN"",""HLOAPI"",200,0)"
^XMB(3.9,45,2,3186,0)=" ;signal SENDACK^HLOAPI2 that the application built its own msg"
^XMB(3.9,45,2,3187,0)="""RTN"",""HLOAPI"",201,0)"
^XMB(3.9,45,2,3188,0)=" K HLMSTATE(""MSA"")"
^XMB(3.9,45,2,3189,0)="""RTN"",""HLOAPI"",202,0)"
^XMB(3.9,45,2,3190,0)=" Q"
^XMB(3.9,45,2,3191,0)="""RTN"",""HLOAPI2"")"
^XMB(3.9,45,2,3192,0)="0^9^B37578775^B36169512"
^XMB(3.9,45,2,3193,0)="""RTN"",""HLOAPI2"",1,0)"
^XMB(3.9,45,2,3194,0)="HLOAPI2 ;ALB/CJM-HL7 - Developer API's for sending application acks ;09/13/2006"
^XMB(3.9,45,2,3195,0)="""RTN"",""HLOAPI2"",2,0)"
^XMB(3.9,45,2,3196,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126,131,133**;Oct 13, 1995;Build 13"
^XMB(3.9,45,2,3197,0)="""RTN"",""HLOAPI2"",3,0)"
^XMB(3.9,45,2,3198,0)=" ;Per VHA Directive 2004-038, this routine should not be modified."
^XMB(3.9,45,2,3199,0)="""RTN"",""HLOAPI2"",4,0)"
^XMB(3.9,45,2,3200,0)=" ;"
^XMB(3.9,45,2,3201,0)="""RTN"",""HLOAPI2"",5,0)"
^XMB(3.9,45,2,3202,0)="ACK(HLMSTATE,PARMS,ACK,ERROR) ;Default behavior is to return a general"
^XMB(3.9,45,2,3203,0)="""RTN"",""HLOAPI2"",6,0)"
^XMB(3.9,45,2,3204,0)=" ;application ack. The application may optionally specify the message"
^XMB(3.9,45,2,3205,0)="""RTN"",""HLOAPI2"",7,0)"
^XMB(3.9,45,2,3206,0)=" ;type and event or call $$ADDSEG^HLOAPI to add segments."
^XMB(3.9,45,2,3207,0)="""RTN"",""HLOAPI2"",8,0)"
^XMB(3.9,45,2,3208,0)=" ;A generic MSA segment (components 1-3) is added automatically IF the"
^XMB(3.9,45,2,3209,0)="""RTN"",""HLOAPI2"",9,0)"
^XMB(3.9,45,2,3210,0)=" ;application doesn't call $$ADDSEG^HLOAPI to add an MSA segment as the"
^XMB(3.9,45,2,3211,0)="""RTN"",""HLOAPI2"",10,0)"
^XMB(3.9,45,2,3212,0)=" ;FIRST segment following the header."
^XMB(3.9,45,2,3213,0)="""RTN"",""HLOAPI2"",11,0)"
^XMB(3.9,45,2,3214,0)=" ;$$SENDACK must be called when the ack is completed. The return"
^XMB(3.9,45,2,3215,0)="""RTN"",""HLOAPI2"",12,0)"
^XMB(3.9,45,2,3216,0)=" ;destination is determined automatically from the original message"
^XMB(3.9,45,2,3217,0)="""RTN"",""HLOAPI2"",13,0)"
^XMB(3.9,45,2,3218,0)=" ;"
^XMB(3.9,45,2,3219,0)="""RTN"",""HLOAPI2"",14,0)"
^XMB(3.9,45,2,3220,0)=" ;This API should NOT be called for batch messages, use $$BATCHACK instead."
^XMB(3.9,45,2,3221,0)="""RTN"",""HLOAPI2"",15,0)"
^XMB(3.9,45,2,3222,0)=" ;Input:"
^XMB(3.9,45,2,3223,0)="""RTN"",""HLOAPI2"",16,0)"
^XMB(3.9,45,2,3224,0)=" ;  HLMSTATE (pass by reference, required) the array obtained by calling $$STARTMSG^HLOPRS when parsing the original message "
^XMB(3.9,45,2,3225,0)="""RTN"",""HLOAPI2"",17,0)"
^XMB(3.9,45,2,3226,0)=" ;  PARMS (pass by reference) These subscripts may be defined:"
^XMB(3.9,45,2,3227,0)="""RTN"",""HLOAPI2"",18,0)"
^XMB(3.9,45,2,3228,0)=" ;    ""ACK CODE"" (required) MSA1[ {AA,AE,AR}"
^XMB(3.9,45,2,3229,0)="""RTN"",""HLOAPI2"",19,0)"
^XMB(3.9,45,2,3230,0)=" ;    ""ERROR MESSAGE"" - MSA3, should be used only if AE or AR"
^XMB(3.9,45,2,3231,0)="""RTN"",""HLOAPI2"",20,0)"
^XMB(3.9,45,2,3232,0)=" ;    ""ACCEPT ACK RESPONSE"" - the <tag^routine> to call when the commit ack is received (optional)"
^XMB(3.9,45,2,3233,0)="""RTN"",""HLOAPI2"",21,0)"
^XMB(3.9,45,2,3234,0)=" ;    ""ACCEPT ACK TYPE"" - {AL,NE} (optional, defaults to AL)"
^XMB(3.9,45,2,3235,0)="""RTN"",""HLOAPI2"",22,0)"
^XMB(3.9,45,2,3236,0)=" ;    ""CONTINUATION POINTER"" (optional)indicates a fragmented message"
^XMB(3.9,45,2,3237,0)="""RTN"",""HLOAPI2"",23,0)"
^XMB(3.9,45,2,3238,0)=" ;    ""COUNTRY"" - the 3 character country code (optional)"
^XMB(3.9,45,2,3239,0)="""RTN"",""HLOAPI2"",24,0)"
^XMB(3.9,45,2,3240,0)=" ;    ""EVENT"" - the 3 character event type (optional, defaults to the event code of the original message)"
^XMB(3.9,45,2,3241,0)="""RTN"",""HLOAPI2"",25,0)"
^XMB(3.9,45,2,3242,0)=" ;     ""ENCODING CHARACTERS"" - the four HL7 encoding characters (optional,defaults to ""^~\&"""
^XMB(3.9,45,2,3243,0)="""RTN"",""HLOAPI2"",26,0)"
^XMB(3.9,45,2,3244,0)=" ;    ""FAILURE RESPONSE"" (optional) the <tag>^<routine> that the sending application routine should execute if the transmission of the message fails, i.e., the message can not be sent or a requested commit ack is not received."
^XMB(3.9,45,2,3245,0)="""RTN"",""HLOAPI2"",27,0)"
^XMB(3.9,45,2,3246,0)=" ;    ""FIELD SEPARATOR"" - field separator (optional, defaults to ""|"")"
^XMB(3.9,45,2,3247,0)="""RTN"",""HLOAPI2"",28,0)"
^XMB(3.9,45,2,3248,0)=" ;    ""MESSAGE TYPE"" - if not defined, ACK is used"
^XMB(3.9,45,2,3249,0)="""RTN"",""HLOAPI2"",29,0)"
^XMB(3.9,45,2,3250,0)=" ;    ""MESSAGE STRUCTURE"" (optional)"
^XMB(3.9,45,2,3251,0)="""RTN"",""HLOAPI2"",30,0)"
^XMB(3.9,45,2,3252,0)=" ;    ""QUEUE"" - (optional) An application can name its own private queue (a string under 20 characters,namespaced). The default is the name of the queue of the original message"
^XMB(3.9,45,2,3253,0)="""RTN"",""HLOAPI2"",31,0)"
^XMB(3.9,45,2,3254,0)=" ;    ""SECURITY"" (optional) security information to include in the header segment, SEQ 8 (optional)"
^XMB(3.9,45,2,3255,0)="""RTN"",""HLOAPI2"",32,0)"
^XMB(3.9,45,2,3256,0)=" ;    ""VERSION"" - the HL7 Version ID (optional, defaults to 2.4)"
^XMB(3.9,45,2,3257,0)="""RTN"",""HLOAPI2"",33,0)"
^XMB(3.9,45,2,3258,0)=" ;Output:"
^XMB(3.9,45,2,3259,0)="""RTN"",""HLOAPI2"",34,0)"
^XMB(3.9,45,2,3260,0)=" ;  Function returns 1 on success, 0 on failure"
^XMB(3.9,45,2,3261,0)="""RTN"",""HLOAPI2"",35,0)"
^XMB(3.9,45,2,3262,0)=" ;  PARMS - left undefined when the function returns"
^XMB(3.9,45,2,3263,0)="""RTN"",""HLOAPI2"",36,0)"
^XMB(3.9,45,2,3264,0)=" ;  ACK (pass by reference, required) the acknowledgment message being built."
^XMB(3.9,45,2,3265,0)="""RTN"",""HLOAPI2"",37,0)"
^XMB(3.9,45,2,3266,0)=" ;  ERROR (pass by reference) error msg"
^XMB(3.9,45,2,3267,0)="""RTN"",""HLOAPI2"",38,0)"
^XMB(3.9,45,2,3268,0)=" N I,SEG,TOLINK,SUCCESS"
^XMB(3.9,45,2,3269,0)="""RTN"",""HLOAPI2"",39,0)"
^XMB(3.9,45,2,3270,0)=" S SUCCESS=0,ERROR="""""
^XMB(3.9,45,2,3271,0)="""RTN"",""HLOAPI2"",40,0)"
^XMB(3.9,45,2,3272,0)=" ;"
^XMB(3.9,45,2,3273,0)="""RTN"",""HLOAPI2"",41,0)"
^XMB(3.9,45,2,3274,0)=" D"
^XMB(3.9,45,2,3275,0)="""RTN"",""HLOAPI2"",42,0)"
^XMB(3.9,45,2,3276,0)=" .N PORT"
^XMB(3.9,45,2,3277,0)="""RTN"",""HLOAPI2"",43,0)"
^XMB(3.9,45,2,3278,0)=" .I $G(PARMS(""ACK CODE""))'=""AA"",$G(PARMS(""ACK CODE""))'=""AE"",$G(PARMS(""ACK CODE""))'=""AR"" S ERROR=""INVALID ACK CODE"" Q"
^XMB(3.9,45,2,3279,0)="""RTN"",""HLOAPI2"",44,0)"
^XMB(3.9,45,2,3280,0)=" .;"
^XMB(3.9,45,2,3281,0)="""RTN"",""HLOAPI2"",45,0)"
^XMB(3.9,45,2,3282,0)=" .I '$G(HLMSTATE(""IEN"")) S ERROR=""ORIGINAL MESSAGE TO ACKNOWLEDGE IS NOT IDENTIFIED"" Q"
^XMB(3.9,45,2,3283,0)="""RTN"",""HLOAPI2"",46,0)"
^XMB(3.9,45,2,3284,0)=" .I $G(HLMSTATE(""BATCH"")) S ERROR=""BATCH ACKNOWLEDGMENTS MUST USE $$BATCHACK^HLOAPI3"" Q"
^XMB(3.9,45,2,3285,0)="""RTN"",""HLOAPI2"",47,0)"
^XMB(3.9,45,2,3286,0)=" .;"
^XMB(3.9,45,2,3287,0)="""RTN"",""HLOAPI2"",48,0)"
^XMB(3.9,45,2,3288,0)=" .I $G(HLMSTATE(""HDR"",""MESSAGE CONTROL ID""))="""" S ERROR=""MESSAGE CONTROL ID MUST EXIST TO RETURN AN APPLICATION ACK"" Q"
^XMB(3.9,45,2,3289,0)="""RTN"",""HLOAPI2"",49,0)"
^XMB(3.9,45,2,3290,0)=" .S PARMS(""MESSAGE TYPE"")=$G(PARMS(""MESSAGE TYPE""),""ACK"")"
^XMB(3.9,45,2,3291,0)="""RTN"",""HLOAPI2"",50,0)"
^XMB(3.9,45,2,3292,0)=" .S:PARMS(""MESSAGE TYPE"")=""ACK"" PARMS(""MESSAGE STRUCTURE"")=""ACK"""
^XMB(3.9,45,2,3293,0)="""RTN"",""HLOAPI2"",51,0)"
^XMB(3.9,45,2,3294,0)=" .S PARMS(""EVENT"")=$G(PARMS(""EVENT""),$G(HLMSTATE(""HDR"",""EVENT"")))"
^XMB(3.9,45,2,3295,0)="""RTN"",""HLOAPI2"",52,0)"
^XMB(3.9,45,2,3296,0)=" .I $$NEWMSG^HLOAPI(.PARMS,.ACK)  ;can't fail!"
^XMB(3.9,45,2,3297,0)="""RTN"",""HLOAPI2"",53,0)"
^XMB(3.9,45,2,3298,0)=" .;"
^XMB(3.9,45,2,3299,0)="""RTN"",""HLOAPI2"",54,0)"
^XMB(3.9,45,2,3300,0)=" .;if the return link can not be determined, the HL Logical Link file has a problem that must be fixed at the site"
^XMB(3.9,45,2,3301,0)="""RTN"",""HLOAPI2"",55,0)"
^XMB(3.9,45,2,3302,0)=" .S PORT=$P(HLMSTATE(""HDR"",""SENDING FACILITY"",2),"":"",2)"
^XMB(3.9,45,2,3303,0)="""RTN"",""HLOAPI2"",56,0)"
^XMB(3.9,45,2,3304,0)=" .S TOLINK=$$ACKLINK(.HLMSTATE)"
^XMB(3.9,45,2,3305,0)="""RTN"",""HLOAPI2"",57,0)"
^XMB(3.9,45,2,3306,0)=" .I TOLINK="""" S ERROR=""TRANSMISSION LINK FOR APPLICATION ACK CANNOT BE DETERMINED"" Q"
^XMB(3.9,45,2,3307,0)="""RTN"",""HLOAPI2"",58,0)"
^XMB(3.9,45,2,3308,0)=" .I 'PORT S PORT=$$PORT2^HLOTLNK(TOLINK)"
^XMB(3.9,45,2,3309,0)="""RTN"",""HLOAPI2"",59,0)"
^XMB(3.9,45,2,3310,0)=" .;"
^XMB(3.9,45,2,3311,0)="""RTN"",""HLOAPI2"",60,0)"
^XMB(3.9,45,2,3312,0)=" .S ACK(""HDR"",""APP ACK TYPE"")=""NE"""
^XMB(3.9,45,2,3313,0)="""RTN"",""HLOAPI2"",61,0)"
^XMB(3.9,45,2,3314,0)=" .S ACK(""HDR"",""ACCEPT ACK TYPE"")=$G(PARMS(""ACCEPT ACK TYPE""),""AL"")"
^XMB(3.9,45,2,3315,0)="""RTN"",""HLOAPI2"",62,0)"
^XMB(3.9,45,2,3316,0)=" .S ACK(""STATUS"",""QUEUE"")=$G(PARMS(""QUEUE""),$G(HLMSTATE(""STATUS"",""QUEUE"")))"
^XMB(3.9,45,2,3317,0)="""RTN"",""HLOAPI2"",63,0)"
^XMB(3.9,45,2,3318,0)=" .S ACK(""STATUS"",""PORT"")=PORT"
^XMB(3.9,45,2,3319,0)="""RTN"",""HLOAPI2"",64,0)"
^XMB(3.9,45,2,3320,0)=" .S ACK(""HDR"",""SECURITY"")=$G(PARMS(""SECURITY""))"
^XMB(3.9,45,2,3321,0)="""RTN"",""HLOAPI2"",65,0)"
^XMB(3.9,45,2,3322,0)=" .S ACK(""HDR"",""SENDING APPLICATION"")=$G(HLMSTATE(""HDR"",""RECEIVING APPLICATION""))"
^XMB(3.9,45,2,3323,0)="""RTN"",""HLOAPI2"",66,0)"
^XMB(3.9,45,2,3324,0)=" .S ACK(""HDR"",""RECEIVING APPLICATION"")=$G(HLMSTATE(""HDR"",""SENDING APPLICATION""))"
^XMB(3.9,45,2,3325,0)="""RTN"",""HLOAPI2"",67,0)"
^XMB(3.9,45,2,3326,0)=" .F I=1:1:3 S ACK(""HDR"",""RECEIVING FACILITY"",I)=$G(HLMSTATE(""HDR"",""SENDING FACILITY"",I))"
^XMB(3.9,45,2,3327,0)="""RTN"",""HLOAPI2"",68,0)"
^XMB(3.9,45,2,3328,0)=" .S ACK(""ACK TO"",""STATUS"")=$S(PARMS(""ACK CODE"")=""AA"":""SU"",1:""AE"")"
^XMB(3.9,45,2,3329,0)="""RTN"",""HLOAPI2"",69,0)"
^XMB(3.9,45,2,3330,0)=" .S ACK(""ACK TO"")=$G(HLMSTATE(""HDR"",""MESSAGE CONTROL ID""))"
^XMB(3.9,45,2,3331,0)="""RTN"",""HLOAPI2"",70,0)"
^XMB(3.9,45,2,3332,0)=" .S ACK(""ACK TO"",""IEN"")=HLMSTATE(""IEN"")"
^XMB(3.9,45,2,3333,0)="""RTN"",""HLOAPI2"",71,0)"
^XMB(3.9,45,2,3334,0)=" .S ACK(""STATUS"",""LINK NAME"")=TOLINK"
^XMB(3.9,45,2,3335,0)="""RTN"",""HLOAPI2"",72,0)"
^XMB(3.9,45,2,3336,0)=" .S ACK(""LINE COUNT"")=0"
^XMB(3.9,45,2,3337,0)="""RTN"",""HLOAPI2"",73,0)"
^XMB(3.9,45,2,3338,0)=" .S ACK(""MSA"")=""MSA""_ACK(""HDR"",""FIELD SEPARATOR"")_PARMS(""ACK CODE"")_ACK(""HDR"",""FIELD SEPARATOR"")_$G(HLMSTATE(""HDR"",""MESSAGE CONTROL ID""))_ACK(""HDR"",""FIELD SEPARATOR"")_$G(PARMS(""ERROR MESSAGE""))"
^XMB(3.9,45,2,3339,0)="""RTN"",""HLOAPI2"",74,0)"
^XMB(3.9,45,2,3340,0)=" .S SUCCESS=1"
^XMB(3.9,45,2,3341,0)="""RTN"",""HLOAPI2"",75,0)"
^XMB(3.9,45,2,3342,0)=" K PARMS"
^XMB(3.9,45,2,3343,0)="""RTN"",""HLOAPI2"",76,0)"
^XMB(3.9,45,2,3344,0)=" K:'SUCCESS ACK"
^XMB(3.9,45,2,3345,0)="""RTN"",""HLOAPI2"",77,0)"
^XMB(3.9,45,2,3346,0)=" Q SUCCESS"
^XMB(3.9,45,2,3347,0)="""RTN"",""HLOAPI2"",78,0)"
^XMB(3.9,45,2,3348,0)=" ;"
^XMB(3.9,45,2,3349,0)="""RTN"",""HLOAPI2"",79,0)"
^XMB(3.9,45,2,3350,0)="SENDACK(ACK,ERROR) ;This is used to signal that an application acknowledgment is complete."
^XMB(3.9,45,2,3351,0)="""RTN"",""HLOAPI2"",80,0)"
^XMB(3.9,45,2,3352,0)=" ;Input:"
^XMB(3.9,45,2,3353,0)="""RTN"",""HLOAPI2"",81,0)"
^XMB(3.9,45,2,3354,0)=" ;  ACK (pass by reference,required) An array that contains the acknowledgment msg"
^XMB(3.9,45,2,3355,0)="""RTN"",""HLOAPI2"",82,0)"
^XMB(3.9,45,2,3356,0)=" ;Output:"
^XMB(3.9,45,2,3357,0)="""RTN"",""HLOAPI2"",83,0)"
^XMB(3.9,45,2,3358,0)=" ; Function returns 1 on success, 0 on failure"
^XMB(3.9,45,2,3359,0)="""RTN"",""HLOAPI2"",84,0)"
^XMB(3.9,45,2,3360,0)=" ; ERROR (pass by reference) error msg"
^XMB(3.9,45,2,3361,0)="""RTN"",""HLOAPI2"",85,0)"
^XMB(3.9,45,2,3362,0)=" ;"
^XMB(3.9,45,2,3363,0)="""RTN"",""HLOAPI2"",86,0)"
^XMB(3.9,45,2,3364,0)=" N SEG"
^XMB(3.9,45,2,3365,0)="""RTN"",""HLOAPI2"",87,0)"
^XMB(3.9,45,2,3366,0)=" ;if the application added its own MSA, then the ACK(""MSA"") node was killed"
^XMB(3.9,45,2,3367,0)="""RTN"",""HLOAPI2"",88,0)"
^XMB(3.9,45,2,3368,0)=" I $D(ACK(""MSA"")) S SEG(1)=ACK(""MSA"") D ADDSEG^HLOMSG(.ACK,.SEG)"
^XMB(3.9,45,2,3369,0)="""RTN"",""HLOAPI2"",89,0)"
^XMB(3.9,45,2,3370,0)=" ;"
^XMB(3.9,45,2,3371,0)="""RTN"",""HLOAPI2"",90,0)"
^XMB(3.9,45,2,3372,0)=" I $$SEND^HLOAPI1(.ACK,.ERROR) Q 1"
^XMB(3.9,45,2,3373,0)="""RTN"",""HLOAPI2"",91,0)"
^XMB(3.9,45,2,3374,0)=" Q 0"
^XMB(3.9,45,2,3375,0)="""RTN"",""HLOAPI2"",92,0)"
^XMB(3.9,45,2,3376,0)=" ;"
^XMB(3.9,45,2,3377,0)="""RTN"",""HLOAPI2"",93,0)"
^XMB(3.9,45,2,3378,0)="ACKLINK(HLMSTATE) ;"
^XMB(3.9,45,2,3379,0)="""RTN"",""HLOAPI2"",94,0)"
^XMB(3.9,45,2,3380,0)=" ;Finds the link to return the application ack to."
^XMB(3.9,45,2,3381,0)="""RTN"",""HLOAPI2"",95,0)"
^XMB(3.9,45,2,3382,0)=" N LINK"
^XMB(3.9,45,2,3383,0)="""RTN"",""HLOAPI2"",96,0)"
^XMB(3.9,45,2,3384,0)=" S LINK=$$RTRNLNK^HLOAPP($G(HLMSTATE(""HDR"",""RECEIVING APPLICATION"")))"
^XMB(3.9,45,2,3385,0)="""RTN"",""HLOAPI2"",97,0)"
^XMB(3.9,45,2,3386,0)=" Q:LINK]"""" LINK"
^XMB(3.9,45,2,3387,0)="""RTN"",""HLOAPI2"",98,0)"
^XMB(3.9,45,2,3388,0)=" S LINK=$$RTRNLNK^HLOTLNK($G(HLMSTATE(""HDR"",""SENDING FACILITY"",1)),$G(HLMSTATE(""HDR"",""SENDING FACILITY"",2)),$G(HLMSTATE(""HDR"",""SENDING FACILITY"",3)))"
^XMB(3.9,45,2,3389,0)="""RTN"",""HLOAPI2"",99,0)"
^XMB(3.9,45,2,3390,0)=" Q LINK"
^XMB(3.9,45,2,3391,0)="""RTN"",""HLOAPI2"",100,0)"
^XMB(3.9,45,2,3392,0)=" ;"
^XMB(3.9,45,2,3393,0)="""RTN"",""HLOAPI2"",101,0)"
^XMB(3.9,45,2,3394,0)="CHKPARMS(HLMSTATE,PARMS,ERROR) ;"
^XMB(3.9,45,2,3395,0)="""RTN"",""HLOAPI2"",102,0)"
^XMB(3.9,45,2,3396,0)=" N LEN,SARY,HARY"
^XMB(3.9,45,2,3397,0)="""RTN"",""HLOAPI2"",103,0)"
^XMB(3.9,45,2,3398,0)=" ;"
^XMB(3.9,45,2,3399,0)="""RTN"",""HLOAPI2"",104,0)"
^XMB(3.9,45,2,3400,0)=" ;shortcut to reference the header sub-array"
^XMB(3.9,45,2,3401,0)="""RTN"",""HLOAPI2"",105,0)"
^XMB(3.9,45,2,3402,0)=" S HARY=""HLMSTATE(""""HDR"""")"""
^XMB(3.9,45,2,3403,0)="""RTN"",""HLOAPI2"",106,0)"
^XMB(3.9,45,2,3404,0)=" ;"
^XMB(3.9,45,2,3405,0)="""RTN"",""HLOAPI2"",107,0)"
^XMB(3.9,45,2,3406,0)=" ;shortcut to reference the status sub-array"
^XMB(3.9,45,2,3407,0)="""RTN"",""HLOAPI2"",108,0)"
^XMB(3.9,45,2,3408,0)=" S SARY=""HLMSTATE(""""STATUS"""")"""
^XMB(3.9,45,2,3409,0)="""RTN"",""HLOAPI2"",109,0)"
^XMB(3.9,45,2,3410,0)=" ;"
^XMB(3.9,45,2,3411,0)="""RTN"",""HLOAPI2"",110,0)"
^XMB(3.9,45,2,3412,0)=" S ERROR="""""
^XMB(3.9,45,2,3413,0)="""RTN"",""HLOAPI2"",111,0)"
^XMB(3.9,45,2,3414,0)=" I $G(PARMS(""ACCEPT ACK TYPE""))="""" S PARMS(""ACCEPT ACK TYPE"")=""AL"""
^XMB(3.9,45,2,3415,0)="""RTN"",""HLOAPI2"",112,0)"
^XMB(3.9,45,2,3416,0)=" I $G(PARMS(""APP ACK TYPE""))="""" S PARMS(""APP ACK TYPE"")=""NE"""
^XMB(3.9,45,2,3417,0)="""RTN"",""HLOAPI2"",113,0)"
^XMB(3.9,45,2,3418,0)=" I PARMS(""ACCEPT ACK TYPE"")'=""NE"",PARMS(""ACCEPT ACK TYPE"")'=""AL"" S ERROR=""INVALID ACCEPT ACKNOWLEDGMENT TYPE"""
^XMB(3.9,45,2,3419,0)="""RTN"",""HLOAPI2"",114,0)"
^XMB(3.9,45,2,3420,0)=" I PARMS(""APP ACK TYPE"")'=""NE"",PARMS(""APP ACK TYPE"")'=""AL"" S ERROR=""INVALID APPLICATION ACKNOWLEDGMENT TYPE"""
^XMB(3.9,45,2,3421,0)="""RTN"",""HLOAPI2"",115,0)"
^XMB(3.9,45,2,3422,0)=" S LEN=$L($G(PARMS(""QUEUE"")))"
^XMB(3.9,45,2,3423,0)="""RTN"",""HLOAPI2"",116,0)"
^XMB(3.9,45,2,3424,0)=" I $G(PARMS(""QUEUE""))[""^"" S ERROR=""QUEUE NAME MAY NOT CONTAIN '^'"""
^XMB(3.9,45,2,3425,0)="""RTN"",""HLOAPI2"",117,0)"
^XMB(3.9,45,2,3426,0)=" I LEN>20 S ERROR=""QUEUE PARAMETER IS MAX 20 LENGTH"",PARMS(""QUEUE"")=$E(PARMS(""QUEUE""),1,20)"
^XMB(3.9,45,2,3427,0)="""RTN"",""HLOAPI2"",118,0)"
^XMB(3.9,45,2,3428,0)=" I 'LEN S PARMS(""QUEUE"")=""DEFAULT"""
^XMB(3.9,45,2,3429,0)="""RTN"",""HLOAPI2"",119,0)"
^XMB(3.9,45,2,3430,0)=" I $G(PARMS(""SENDING APPLICATION""))="""" D"
^XMB(3.9,45,2,3431,0)="""RTN"",""HLOAPI2"",120,0)"
^XMB(3.9,45,2,3432,0)=" .S ERROR=""SENDING APPLICATION IS REQUIRED"""
^XMB(3.9,45,2,3433,0)="""RTN"",""HLOAPI2"",121,0)"
^XMB(3.9,45,2,3434,0)=" .S PARMS(""SENDING APPLICATION"")="""""
^XMB(3.9,45,2,3435,0)="""RTN"",""HLOAPI2"",122,0)"
^XMB(3.9,45,2,3436,0)=" E  D"
^XMB(3.9,45,2,3437,0)="""RTN"",""HLOAPI2"",123,0)"
^XMB(3.9,45,2,3438,0)=" .I '$D(^HLD(779.2,""C"",PARMS(""SENDING APPLICATION""))) S ERROR=""SENDING APPLICATION NOT FOUND IN THE HLO APPLICATION REGISTRY"""
^XMB(3.9,45,2,3439,0)="""RTN"",""HLOAPI2"",124,0)"
^XMB(3.9,45,2,3440,0)=" ;"
^XMB(3.9,45,2,3441,0)="""RTN"",""HLOAPI2"",125,0)"
^XMB(3.9,45,2,3442,0)=" ;move parameters into HLMSTATE"
^XMB(3.9,45,2,3443,0)="""RTN"",""HLOAPI2"",126,0)"
^XMB(3.9,45,2,3444,0)=" S @HARY@(""ACCEPT ACK TYPE"")=PARMS(""ACCEPT ACK TYPE"")"
^XMB(3.9,45,2,3445,0)="""RTN"",""HLOAPI2"",127,0)"
^XMB(3.9,45,2,3446,0)=" S @HARY@(""APP ACK TYPE"")=PARMS(""APP ACK TYPE"")"
^XMB(3.9,45,2,3447,0)="""RTN"",""HLOAPI2"",128,0)"
^XMB(3.9,45,2,3448,0)=" S @HARY@(""SENDING APPLICATION"")=$E(PARMS(""SENDING APPLICATION""),1,60)"
^XMB(3.9,45,2,3449,0)="""RTN"",""HLOAPI2"",129,0)"
^XMB(3.9,45,2,3450,0)=" S @HARY@(""SECURITY"")=$G(PARMS(""SECURITY""))"
^XMB(3.9,45,2,3451,0)="""RTN"",""HLOAPI2"",130,0)"
^XMB(3.9,45,2,3452,0)=" S @SARY@(""APP ACK RESPONSE"")=$G(PARMS(""APP ACK RESPONSE""))"
^XMB(3.9,45,2,3453,0)="""RTN"",""HLOAPI2"",131,0)"
^XMB(3.9,45,2,3454,0)=" S @SARY@(""ACCEPT ACK RESPONSE"")=$G(PARMS(""ACCEPT ACK RESPONSE""))"
^XMB(3.9,45,2,3455,0)="""RTN"",""HLOAPI2"",132,0)"
^XMB(3.9,45,2,3456,0)=" S @SARY@(""FAILURE RESPONSE"")=$G(PARMS(""FAILURE RESPONSE""))"
^XMB(3.9,45,2,3457,0)="""RTN"",""HLOAPI2"",133,0)"
^XMB(3.9,45,2,3458,0)=" S @SARY@(""QUEUE"")=PARMS(""QUEUE"")"
^XMB(3.9,45,2,3459,0)="""RTN"",""HLOAPI2"",134,0)"
^XMB(3.9,45,2,3460,0)=" Q:$L(ERROR) 0"
^XMB(3.9,45,2,3461,0)="""RTN"",""HLOAPI2"",135,0)"
^XMB(3.9,45,2,3462,0)=" Q 1"
^XMB(3.9,45,2,3463,0)="""RTN"",""HLOAPI2"",136,0)"
^XMB(3.9,45,2,3464,0)=" ;"
^XMB(3.9,45,2,3465,0)="""RTN"",""HLOAPI2"",137,0)"
^XMB(3.9,45,2,3466,0)="SETCODE(SEG,VALUE,FIELD,COMP,REP) ;"
^XMB(3.9,45,2,3467,0)="""RTN"",""HLOAPI2"",138,0)"
^XMB(3.9,45,2,3468,0)=" ;Implements SETCNE and SETCWE"
^XMB(3.9,45,2,3469,0)="""RTN"",""HLOAPI2"",139,0)"
^XMB(3.9,45,2,3470,0)=" ;"
^XMB(3.9,45,2,3471,0)="""RTN"",""HLOAPI2"",140,0)"
^XMB(3.9,45,2,3472,0)=" N SUB,VAR"
^XMB(3.9,45,2,3473,0)="""RTN"",""HLOAPI2"",141,0)"
^XMB(3.9,45,2,3474,0)=" Q:'$G(FIELD)"
^XMB(3.9,45,2,3475,0)="""RTN"",""HLOAPI2"",142,0)"
^XMB(3.9,45,2,3476,0)=" S:'$G(REP) REP=1"
^XMB(3.9,45,2,3477,0)="""RTN"",""HLOAPI2"",143,0)"
^XMB(3.9,45,2,3478,0)=" I '$G(COMP) D"
^XMB(3.9,45,2,3479,0)="""RTN"",""HLOAPI2"",144,0)"
^XMB(3.9,45,2,3480,0)=" .S VAR=""COMP"",SUB=1"
^XMB(3.9,45,2,3481,0)="""RTN"",""HLOAPI2"",145,0)"
^XMB(3.9,45,2,3482,0)=" E  D"
^XMB(3.9,45,2,3483,0)="""RTN"",""HLOAPI2"",146,0)"
^XMB(3.9,45,2,3484,0)=" .S VAR=""SUB"""
^XMB(3.9,45,2,3485,0)="""RTN"",""HLOAPI2"",147,0)"
^XMB(3.9,45,2,3486,0)=" S @VAR=1,SEG(FIELD+1,REP,COMP,SUB)=$G(VALUE(""ID""))"
^XMB(3.9,45,2,3487,0)="""RTN"",""HLOAPI2"",148,0)"
^XMB(3.9,45,2,3488,0)=" S @VAR=2,SEG(FIELD+1,REP,COMP,SUB)=$G(VALUE(""TEXT""))"
^XMB(3.9,45,2,3489,0)="""RTN"",""HLOAPI2"",149,0)"
^XMB(3.9,45,2,3490,0)=" S @VAR=3,SEG(FIELD+1,REP,COMP,SUB)=$G(VALUE(""SYSTEM""))"
^XMB(3.9,45,2,3491,0)="""RTN"",""HLOAPI2"",150,0)"
^XMB(3.9,45,2,3492,0)=" S @VAR=4,SEG(FIELD+1,REP,COMP,SUB)=$G(VALUE(""ALTERNATE ID""))"
^XMB(3.9,45,2,3493,0)="""RTN"",""HLOAPI2"",151,0)"
^XMB(3.9,45,2,3494,0)=" S @VAR=5,SEG(FIELD+1,REP,COMP,SUB)=$G(VALUE(""ALTERNATE TEXT""))"
^XMB(3.9,45,2,3495,0)="""RTN"",""HLOAPI2"",152,0)"
^XMB(3.9,45,2,3496,0)=" S @VAR=6,SEG(FIELD+1,REP,COMP,SUB)=$G(VALUE(""ALTERNATE SYSTEM""))"
^XMB(3.9,45,2,3497,0)="""RTN"",""HLOAPI2"",153,0)"
^XMB(3.9,45,2,3498,0)=" S @VAR=7,SEG(FIELD+1,REP,COMP,SUB)=$G(VALUE(""SYSTEM VERSION""))"
^XMB(3.9,45,2,3499,0)="""RTN"",""HLOAPI2"",154,0)"
^XMB(3.9,45,2,3500,0)=" S @VAR=8,SEG(FIELD+1,REP,COMP,SUB)=$G(VALUE(""ALTERNATE SYSTEM VERSION""))"
^XMB(3.9,45,2,3501,0)="""RTN"",""HLOAPI2"",155,0)"
^XMB(3.9,45,2,3502,0)=" S @VAR=9,SEG(FIELD+1,REP,COMP,SUB)=$G(VALUE(""ORIGINAL TEXT""))"
^XMB(3.9,45,2,3503,0)="""RTN"",""HLOAPI2"",156,0)"
^XMB(3.9,45,2,3504,0)=" Q"
^XMB(3.9,45,2,3505,0)="""RTN"",""HLOAPI3"")"
^XMB(3.9,45,2,3506,0)="0^19^B43853464^B30983602"
^XMB(3.9,45,2,3507,0)="""RTN"",""HLOAPI3"",1,0)"
^XMB(3.9,45,2,3508,0)="HLOAPI3 ;ALB/CJM-HL7 - Developer API's for sending application acks ;09/13/2006"
^XMB(3.9,45,2,3509,0)="""RTN"",""HLOAPI3"",2,0)"
^XMB(3.9,45,2,3510,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126,133**;Oct 13, 1995;Build 13"
^XMB(3.9,45,2,3511,0)="""RTN"",""HLOAPI3"",3,0)"
^XMB(3.9,45,2,3512,0)=" ;Per VHA Directive 2004-038, this routine should not be modified."
^XMB(3.9,45,2,3513,0)="""RTN"",""HLOAPI3"",4,0)"
^XMB(3.9,45,2,3514,0)=" ;"
^XMB(3.9,45,2,3515,0)="""RTN"",""HLOAPI3"",5,0)"
^XMB(3.9,45,2,3516,0)="BATCHACK(HLMSTATE,PARMS,ACK,ERROR) ;Starts a batch message that is the response to a batch message. Individual acks are placed in the batch by calling $$ADDACK."
^XMB(3.9,45,2,3517,0)="""RTN"",""HLOAPI3"",6,0)"
^XMB(3.9,45,2,3518,0)=" ;$$SENDACK^HLOAPI2 must be called when the batch of acks is complete. The return destination is determined automatically from the original message."
^XMB(3.9,45,2,3519,0)="""RTN"",""HLOAPI3"",7,0)"
^XMB(3.9,45,2,3520,0)=" ;"
^XMB(3.9,45,2,3521,0)="""RTN"",""HLOAPI3"",8,0)"
^XMB(3.9,45,2,3522,0)=" ;Input:"
^XMB(3.9,45,2,3523,0)="""RTN"",""HLOAPI3"",9,0)"
^XMB(3.9,45,2,3524,0)=" ;  HLMSTATE (pass by reference, required) the array obtained by calling $$STARTMSG^HLOPRS when parsing the original message "
^XMB(3.9,45,2,3525,0)="""RTN"",""HLOAPI3"",10,0)"
^XMB(3.9,45,2,3526,0)=" ;  PARMS (optional, pass by reference) These subscripts may be defined:"
^XMB(3.9,45,2,3527,0)="""RTN"",""HLOAPI3"",11,0)"
^XMB(3.9,45,2,3528,0)=" ;    ""ACCEPT ACK RESPONSE"")=<tag^routine> to call when the commit ack is received (optional)"
^XMB(3.9,45,2,3529,0)="""RTN"",""HLOAPI3"",12,0)"
^XMB(3.9,45,2,3530,0)=" ;    ""ACCEPT ACK TYPE"") = <AL,NE> (optional, defaults to AL)"
^XMB(3.9,45,2,3531,0)="""RTN"",""HLOAPI3"",13,0)"
^XMB(3.9,45,2,3532,0)=" ;    ""COUNTRY"") - a 3 character country code from the HL7 standard table (optional)"
^XMB(3.9,45,2,3533,0)="""RTN"",""HLOAPI3"",14,0)"
^XMB(3.9,45,2,3534,0)=" ;     ""ENCODING CHARACTERS"" - the 4 HL7 encoding characters (optional,defaults to ""^~\&"""
^XMB(3.9,45,2,3535,0)="""RTN"",""HLOAPI3"",15,0)"
^XMB(3.9,45,2,3536,0)=" ;    ""FAILURE RESPONSE"" (optional) the <tag>^<routine> that the sending application routine should execute if the transmission of the message fails, i.e., the message can not be sent or a requested commit ack is not received."
^XMB(3.9,45,2,3537,0)="""RTN"",""HLOAPI3"",16,0)"
^XMB(3.9,45,2,3538,0)=" ;     ""FIELD SEPARATOR"" - the field separator (optional, defaults to ""|"")"
^XMB(3.9,45,2,3539,0)="""RTN"",""HLOAPI3"",17,0)"
^XMB(3.9,45,2,3540,0)=" ;     ""QUEUE"" (optional) An application can name a private queue (a string under 20 characters, namespaced). The default is the name of the queue of the original message"
^XMB(3.9,45,2,3541,0)="""RTN"",""HLOAPI3"",18,0)"
^XMB(3.9,45,2,3542,0)=" ;     ""SECURITY"" - security information to include in the header segment, SEQ 8 (optional)"
^XMB(3.9,45,2,3543,0)="""RTN"",""HLOAPI3"",19,0)"
^XMB(3.9,45,2,3544,0)=" ;    ""VERSION"" - the HL7 Version ID (optional, defaults to 2.4)"
^XMB(3.9,45,2,3545,0)="""RTN"",""HLOAPI3"",20,0)"
^XMB(3.9,45,2,3546,0)=" ;Output:"
^XMB(3.9,45,2,3547,0)="""RTN"",""HLOAPI3"",21,0)"
^XMB(3.9,45,2,3548,0)=" ;  Function returns 1 on success, 0 on failure"
^XMB(3.9,45,2,3549,0)="""RTN"",""HLOAPI3"",22,0)"
^XMB(3.9,45,2,3550,0)=" ;  PARMS - left undefined upon completion"
^XMB(3.9,45,2,3551,0)="""RTN"",""HLOAPI3"",23,0)"
^XMB(3.9,45,2,3552,0)=" ;  ACK (pass by reference, required) the batch acknowledgment message being built."
^XMB(3.9,45,2,3553,0)="""RTN"",""HLOAPI3"",24,0)"
^XMB(3.9,45,2,3554,0)=" ;  ERROR (pass by reference) error message"
^XMB(3.9,45,2,3555,0)="""RTN"",""HLOAPI3"",25,0)"
^XMB(3.9,45,2,3556,0)=" N I,TOLINK,SUCCESS"
^XMB(3.9,45,2,3557,0)="""RTN"",""HLOAPI3"",26,0)"
^XMB(3.9,45,2,3558,0)=" S SUCCESS=0"
^XMB(3.9,45,2,3559,0)="""RTN"",""HLOAPI3"",27,0)"
^XMB(3.9,45,2,3560,0)=" ;"
^XMB(3.9,45,2,3561,0)="""RTN"",""HLOAPI3"",28,0)"
^XMB(3.9,45,2,3562,0)=" D"
^XMB(3.9,45,2,3563,0)="""RTN"",""HLOAPI3"",29,0)"
^XMB(3.9,45,2,3564,0)=" .N PORT"
^XMB(3.9,45,2,3565,0)="""RTN"",""HLOAPI3"",30,0)"
^XMB(3.9,45,2,3566,0)=" .I '$G(HLMSTATE(""IEN"")) S ERROR=""ORIGINAL MESSAGE TO ACKNOWLEDGMENT IS NOT IDENTIFIED"" Q"
^XMB(3.9,45,2,3567,0)="""RTN"",""HLOAPI3"",31,0)"
^XMB(3.9,45,2,3568,0)=" .;if the return link can not be determined, the HL Logical Link file has a problem"
^XMB(3.9,45,2,3569,0)="""RTN"",""HLOAPI3"",32,0)"
^XMB(3.9,45,2,3570,0)=" .S TOLINK=$$ACKLINK^HLOAPI2(.HLMSTATE)"
^XMB(3.9,45,2,3571,0)="""RTN"",""HLOAPI3"",33,0)"
^XMB(3.9,45,2,3572,0)=" .I TOLINK="""" S ERROR=""TRANSMISSION LINK FOR APPLICATION ACK CANNOT BE DETERMINED"" Q"
^XMB(3.9,45,2,3573,0)="""RTN"",""HLOAPI3"",34,0)"
^XMB(3.9,45,2,3574,0)=" .S PORT=$P(HLMSTATE(""HDR"",""SENDING FACILITY"",2),"":"",2)"
^XMB(3.9,45,2,3575,0)="""RTN"",""HLOAPI3"",35,0)"
^XMB(3.9,45,2,3576,0)=" .I 'PORT S PORT=$$PORT2^HLOTLNK(TOLINK)"
^XMB(3.9,45,2,3577,0)="""RTN"",""HLOAPI3"",36,0)"
^XMB(3.9,45,2,3578,0)=" .;"
^XMB(3.9,45,2,3579,0)="""RTN"",""HLOAPI3"",37,0)"
^XMB(3.9,45,2,3580,0)=" .I $$NEWBATCH^HLOAPI(.PARMS,.ACK)  ;can't fail!"
^XMB(3.9,45,2,3581,0)="""RTN"",""HLOAPI3"",38,0)"
^XMB(3.9,45,2,3582,0)=" .S ACK(""STATUS"",""QUEUE"")=$G(PARMS(""QUEUE""),$G(HLMSTATE(""STATUS"",""QUEUE"")))"
^XMB(3.9,45,2,3583,0)="""RTN"",""HLOAPI3"",39,0)"
^XMB(3.9,45,2,3584,0)=" .S ACK(""STATUS"",""PORT"")=PORT"
^XMB(3.9,45,2,3585,0)="""RTN"",""HLOAPI3"",40,0)"
^XMB(3.9,45,2,3586,0)=" .S ACK(""HDR"",""SECURITY"")=$G(PARMS(""SECURITY""))"
^XMB(3.9,45,2,3587,0)="""RTN"",""HLOAPI3"",41,0)"
^XMB(3.9,45,2,3588,0)=" .S ACK(""HDR"",""SENDING APPLICATION"")=$G(HLMSTATE(""HDR"",""RECEIVING APPLICATION""))"
^XMB(3.9,45,2,3589,0)="""RTN"",""HLOAPI3"",42,0)"
^XMB(3.9,45,2,3590,0)=" .S ACK(""HDR"",""RECEIVING APPLICATION"")=$G(HLMSTATE(""HDR"",""SENDING APPLICATION""))"
^XMB(3.9,45,2,3591,0)="""RTN"",""HLOAPI3"",43,0)"
^XMB(3.9,45,2,3592,0)=" .F I=1:1:3 S ACK(""HDR"",""RECEIVING FACILITY"",I)=$G(HLMSTATE(""HDR"",""SENDING FACILITY"",I))"
^XMB(3.9,45,2,3593,0)="""RTN"",""HLOAPI3"",44,0)"
^XMB(3.9,45,2,3594,0)=" .S ACK(""HDR"",""APP ACK TYPE"")=""NE"""
^XMB(3.9,45,2,3595,0)="""RTN"",""HLOAPI3"",45,0)"
^XMB(3.9,45,2,3596,0)=" .S ACK(""HDR"",""ACCEPT ACK TYPE"")=$G(PARMS(""ACCEPT ACK TYPE""),""AL"")"
^XMB(3.9,45,2,3597,0)="""RTN"",""HLOAPI3"",46,0)"
^XMB(3.9,45,2,3598,0)=" .S ACK(""ACK TO"")=$G(HLMSTATE(""HDR"",""BATCH CONTROL ID""))"
^XMB(3.9,45,2,3599,0)="""RTN"",""HLOAPI3"",47,0)"
^XMB(3.9,45,2,3600,0)=" .S ACK(""ACK TO"",""IEN"")=HLMSTATE(""IEN"")"
^XMB(3.9,45,2,3601,0)="""RTN"",""HLOAPI3"",48,0)"
^XMB(3.9,45,2,3602,0)=" .S ACK(""ACK TO"",""BODY"")=$G(HLMSTATE(""BODY""))"
^XMB(3.9,45,2,3603,0)="""RTN"",""HLOAPI3"",49,0)"
^XMB(3.9,45,2,3604,0)=" .S ACK(""STATUS"",""LINK NAME"")=TOLINK"
^XMB(3.9,45,2,3605,0)="""RTN"",""HLOAPI3"",50,0)"
^XMB(3.9,45,2,3606,0)=" .S ACK(""LINE COUNT"")=0"
^XMB(3.9,45,2,3607,0)="""RTN"",""HLOAPI3"",51,0)"
^XMB(3.9,45,2,3608,0)=" .S SUCCESS=1"
^XMB(3.9,45,2,3609,0)="""RTN"",""HLOAPI3"",52,0)"
^XMB(3.9,45,2,3610,0)=" K PARMS"
^XMB(3.9,45,2,3611,0)="""RTN"",""HLOAPI3"",53,0)"
^XMB(3.9,45,2,3612,0)=" Q SUCCESS"
^XMB(3.9,45,2,3613,0)="""RTN"",""HLOAPI3"",54,0)"
^XMB(3.9,45,2,3614,0)=" ;"
^XMB(3.9,45,2,3615,0)="""RTN"",""HLOAPI3"",55,0)"
^XMB(3.9,45,2,3616,0)="ADDACK(ACK,PARMS,ERROR) ;This API adds an application acknowledgment to a batch"
^XMB(3.9,45,2,3617,0)="""RTN"",""HLOAPI3"",56,0)"
^XMB(3.9,45,2,3618,0)=" ;of acknowledgments that was started by calling $$BATCHACK."
^XMB(3.9,45,2,3619,0)="""RTN"",""HLOAPI3"",57,0)"
^XMB(3.9,45,2,3620,0)=" ;The Default behavior is to return a general application ack."
^XMB(3.9,45,2,3621,0)="""RTN"",""HLOAPI3"",58,0)"
^XMB(3.9,45,2,3622,0)=" ;The application may optionally specify the message"
^XMB(3.9,45,2,3623,0)="""RTN"",""HLOAPI3"",59,0)"
^XMB(3.9,45,2,3624,0)=" ;type and event and/or call $$ADDSEG^HLOAPI to add segments."
^XMB(3.9,45,2,3625,0)="""RTN"",""HLOAPI3"",60,0)"
^XMB(3.9,45,2,3626,0)=" ;A generic MSA segment (components 1-3) will be added automatically"
^XMB(3.9,45,2,3627,0)="""RTN"",""HLOAPI3"",61,0)"
^XMB(3.9,45,2,3628,0)=" ;if the application doesn't call $$ADDSEG^HLOAPI to add an MSA segment"
^XMB(3.9,45,2,3629,0)="""RTN"",""HLOAPI3"",62,0)"
^XMB(3.9,45,2,3630,0)=" ;as the FIRST segment following the MSH segment."
^XMB(3.9,45,2,3631,0)="""RTN"",""HLOAPI3"",63,0)"
^XMB(3.9,45,2,3632,0)=" ;$$SENDACK^HLOAPI2 must be called when the batch is complete."
^XMB(3.9,45,2,3633,0)="""RTN"",""HLOAPI3"",64,0)"
^XMB(3.9,45,2,3634,0)=" ;"
^XMB(3.9,45,2,3635,0)="""RTN"",""HLOAPI3"",65,0)"
^XMB(3.9,45,2,3636,0)=" ;Input:"
^XMB(3.9,45,2,3637,0)="""RTN"",""HLOAPI3"",66,0)"
^XMB(3.9,45,2,3638,0)=" ;  ACK (pass by reference,required) the batch of acks that is being built "
^XMB(3.9,45,2,3639,0)="""RTN"",""HLOAPI3"",67,0)"
^XMB(3.9,45,2,3640,0)=" ;  PARMS (pass by reference) These subscripts may be defined:"
^XMB(3.9,45,2,3641,0)="""RTN"",""HLOAPI3"",68,0)"
^XMB(3.9,45,2,3642,0)=" ;    ""ACK CODE"" (required) MSA1[ {AA,AE,AR}"
^XMB(3.9,45,2,3643,0)="""RTN"",""HLOAPI3"",69,0)"
^XMB(3.9,45,2,3644,0)=" ;    ""ERROR MESSAGE"" (optional) MSA3, should be used only if AE or AR"
^XMB(3.9,45,2,3645,0)="""RTN"",""HLOAPI3"",70,0)"
^XMB(3.9,45,2,3646,0)=" ;    ""EVENT"" - 3 character event type (optional, defaults to the event code of the original message)"
^XMB(3.9,45,2,3647,0)="""RTN"",""HLOAPI3"",71,0)"
^XMB(3.9,45,2,3648,0)=" ;    ""MESSAGE CONTROL ID"" (required) this is the message control id of the original individual message within the batch which is being acknowledged"
^XMB(3.9,45,2,3649,0)="""RTN"",""HLOAPI3"",72,0)"
^XMB(3.9,45,2,3650,0)=" ;    ""MESSAGE STRUCTURE"" (optional)"
^XMB(3.9,45,2,3651,0)="""RTN"",""HLOAPI3"",73,0)"
^XMB(3.9,45,2,3652,0)=" ;    ""MESSAGE TYPE"" (optional, defaults to ACK)"
^XMB(3.9,45,2,3653,0)="""RTN"",""HLOAPI3"",74,0)"
^XMB(3.9,45,2,3654,0)=" ;    ""SECURITY"" (optional) security information to include in the header segment SEQ 8"
^XMB(3.9,45,2,3655,0)="""RTN"",""HLOAPI3"",75,0)"
^XMB(3.9,45,2,3656,0)=" ;Output:"
^XMB(3.9,45,2,3657,0)="""RTN"",""HLOAPI3"",76,0)"
^XMB(3.9,45,2,3658,0)=" ;  Function returns 1 on success, 0 on failure"
^XMB(3.9,45,2,3659,0)="""RTN"",""HLOAPI3"",77,0)"
^XMB(3.9,45,2,3660,0)=" ;  ACK (pass by reference, required) The batch, updated with another ack"
^XMB(3.9,45,2,3661,0)="""RTN"",""HLOAPI3"",78,0)"
^XMB(3.9,45,2,3662,0)=" ;  PARMS  - left undefined when this function returns"
^XMB(3.9,45,2,3663,0)="""RTN"",""HLOAPI3"",79,0)"
^XMB(3.9,45,2,3664,0)=" ;  ERROR (pass by reference) error msg"
^XMB(3.9,45,2,3665,0)="""RTN"",""HLOAPI3"",80,0)"
^XMB(3.9,45,2,3666,0)=" ;"
^XMB(3.9,45,2,3667,0)="""RTN"",""HLOAPI3"",81,0)"
^XMB(3.9,45,2,3668,0)=" N SUB,SUCCESS"
^XMB(3.9,45,2,3669,0)="""RTN"",""HLOAPI3"",82,0)"
^XMB(3.9,45,2,3670,0)=" S SUCCESS=0"
^XMB(3.9,45,2,3671,0)="""RTN"",""HLOAPI3"",83,0)"
^XMB(3.9,45,2,3672,0)=" D"
^XMB(3.9,45,2,3673,0)="""RTN"",""HLOAPI3"",84,0)"
^XMB(3.9,45,2,3674,0)=" .I $G(PARMS(""ACK CODE""))'=""AA"",$G(PARMS(""ACK CODE""))'=""AE"",$G(PARMS(""ACK CODE""))'=""AR"" S ERROR=""INVALID ACK CODE"" Q"
^XMB(3.9,45,2,3675,0)="""RTN"",""HLOAPI3"",85,0)"
^XMB(3.9,45,2,3676,0)=" .;"
^XMB(3.9,45,2,3677,0)="""RTN"",""HLOAPI3"",86,0)"
^XMB(3.9,45,2,3678,0)=" .I $G(PARMS(""MESSAGE CONTROL ID""))="""" S ERROR=""MESSAGE CONTROL ID MUST EXIST TO RETURN AN APPLICATION ACK"" Q"
^XMB(3.9,45,2,3679,0)="""RTN"",""HLOAPI3"",87,0)"
^XMB(3.9,45,2,3680,0)=" .S SUB="""""
^XMB(3.9,45,2,3681,0)="""RTN"",""HLOAPI3"",88,0)"
^XMB(3.9,45,2,3682,0)=" .F  S SUB=$O(^HLB(""AE"",PARMS(""MESSAGE CONTROL ID""),SUB)) Q:SUB=""""  I $P(SUB,""^"")=ACK(""ACK TO"",""IEN""),$P(SUB,""^"",2) S PARMS(""ACK TO"",""IEN"")=SUB Q"
^XMB(3.9,45,2,3683,0)="""RTN"",""HLOAPI3"",89,0)"
^XMB(3.9,45,2,3684,0)=" .S PARMS(""MESSAGE TYPE"")=$G(PARMS(""MESSAGE TYPE""),""ACK"")"
^XMB(3.9,45,2,3685,0)="""RTN"",""HLOAPI3"",90,0)"
^XMB(3.9,45,2,3686,0)=" .S:PARMS(""MESSAGE TYPE"")=""ACK"" PARMS(""MESSAGE STRUCTURE"")=""ACK"""
^XMB(3.9,45,2,3687,0)="""RTN"",""HLOAPI3"",91,0)"
^XMB(3.9,45,2,3688,0)=" .S PARMS(""EVENT"")=$G(PARMS(""EVENT""))"
^XMB(3.9,45,2,3689,0)="""RTN"",""HLOAPI3"",92,0)"
^XMB(3.9,45,2,3690,0)=" .I PARMS(""EVENT"")="""",ACK(""ACK TO"",""BODY""),$P(SUB,""^"",2) S PARMS(""EVENT"")=$P($G(^HLA(ACK(""ACK TO"",""BODY""),2,$P(SUB,""^"",2),0)),""^"",3)"
^XMB(3.9,45,2,3691,0)="""RTN"",""HLOAPI3"",93,0)"
^XMB(3.9,45,2,3692,0)=" .S PARMS(""ACK TO"")=PARMS(""MESSAGE CONTROL ID"")"
^XMB(3.9,45,2,3693,0)="""RTN"",""HLOAPI3"",94,0)"
^XMB(3.9,45,2,3694,0)=" .S PARMS(""ACK TO"",""STATUS"")=$S(PARMS(""ACK CODE"")=""AA"":""SU"",1:""AE"")"
^XMB(3.9,45,2,3695,0)="""RTN"",""HLOAPI3"",95,0)"
^XMB(3.9,45,2,3696,0)=" .Q:'$$ADDMSG^HLOAPI(.ACK,.PARMS,.ERROR)"
^XMB(3.9,45,2,3697,0)="""RTN"",""HLOAPI3"",96,0)"
^XMB(3.9,45,2,3698,0)=" .S ACK(""MSA"")=""MSA|""_PARMS(""ACK CODE"")_""|""_PARMS(""MESSAGE CONTROL ID"")_""|""_$G(PARMS(""ERROR MESSAGE""))"
^XMB(3.9,45,2,3699,0)="""RTN"",""HLOAPI3"",97,0)"
^XMB(3.9,45,2,3700,0)=" .S SUCCESS=1"
^XMB(3.9,45,2,3701,0)="""RTN"",""HLOAPI3"",98,0)"
^XMB(3.9,45,2,3702,0)=" K PARMS"
^XMB(3.9,45,2,3703,0)="""RTN"",""HLOAPI3"",99,0)"
^XMB(3.9,45,2,3704,0)=" Q SUCCESS"
^XMB(3.9,45,2,3705,0)="""RTN"",""HLOAPI3"",100,0)"
^XMB(3.9,45,2,3706,0)=" ;"
^XMB(3.9,45,2,3707,0)="""RTN"",""HLOAPI3"",101,0)"
^XMB(3.9,45,2,3708,0)="RESEND(MSGIEN,ERROR) ;"
^XMB(3.9,45,2,3709,0)="""RTN"",""HLOAPI3"",102,0)"
^XMB(3.9,45,2,3710,0)=" ;Description: This message will re-transmit an out-going message.  It"
^XMB(3.9,45,2,3711,0)="""RTN"",""HLOAPI3"",103,0)"
^XMB(3.9,45,2,3712,0)=" ;does this by making a copy of the message, reusing all the original"
^XMB(3.9,45,2,3713,0)="""RTN"",""HLOAPI3"",104,0)"
^XMB(3.9,45,2,3714,0)=" ;parameters. Then the message is placed on the same out-going queue."
^XMB(3.9,45,2,3715,0)="""RTN"",""HLOAPI3"",105,0)"
^XMB(3.9,45,2,3716,0)=" ;"
^XMB(3.9,45,2,3717,0)="""RTN"",""HLOAPI3"",106,0)"
^XMB(3.9,45,2,3718,0)=" ;Input:"
^XMB(3.9,45,2,3719,0)="""RTN"",""HLOAPI3"",107,0)"
^XMB(3.9,45,2,3720,0)=" ;  MSGIEN - the ien (file #778) of the message that is to be sent"
^XMB(3.9,45,2,3721,0)="""RTN"",""HLOAPI3"",108,0)"
^XMB(3.9,45,2,3722,0)=" ;Output:"
^XMB(3.9,45,2,3723,0)="""RTN"",""HLOAPI3"",109,0)"
^XMB(3.9,45,2,3724,0)=" ;  Function returns the ien of the message in file 778 on success, 0 on failure"
^XMB(3.9,45,2,3725,0)="""RTN"",""HLOAPI3"",110,0)"
^XMB(3.9,45,2,3726,0)=" ;  ERROR (pass by reference, optional) - on failure, will contain an error message"
^XMB(3.9,45,2,3727,0)="""RTN"",""HLOAPI3"",111,0)"
^XMB(3.9,45,2,3728,0)=" ;"
^XMB(3.9,45,2,3729,0)="""RTN"",""HLOAPI3"",112,0)"
^XMB(3.9,45,2,3730,0)=" N MSG,SUB,HDR"
^XMB(3.9,45,2,3731,0)="""RTN"",""HLOAPI3"",113,0)"
^XMB(3.9,45,2,3732,0)=" I '$$STARTMSG^HLOPRS(.MSG,MSGIEN) S ERROR=""MESSAGE NOT FOUND"" Q 0"
^XMB(3.9,45,2,3733,0)="""RTN"",""HLOAPI3"",114,0)"
^XMB(3.9,45,2,3734,0)=" I MSG(""DIRECTION"")'=""OUT"" S ERROR=""MESSAGE IS NOT OUTGOING"" Q 0"
^XMB(3.9,45,2,3735,0)="""RTN"",""HLOAPI3"",115,0)"
^XMB(3.9,45,2,3736,0)=" I MSG(""STATUS"",""LINK NAME"")="""" S ERROR=""LINK NOT DEFINED"" Q 0"
^XMB(3.9,45,2,3737,0)="""RTN"",""HLOAPI3"",116,0)"
^XMB(3.9,45,2,3738,0)=" F SUB=""ID"",""IEN"",""DT/TM"",""ACK BY"",""STATUS"" S MSG(SUB)="""""
^XMB(3.9,45,2,3739,0)="""RTN"",""HLOAPI3"",117,0)"
^XMB(3.9,45,2,3740,0)=" F SUB=""PURGE"" K MSG(""STATUS"",SUB)"
^XMB(3.9,45,2,3741,0)="""RTN"",""HLOAPI3"",118,0)"
^XMB(3.9,45,2,3742,0)=" D GETSYS^HLOAPI(.MSG)"
^XMB(3.9,45,2,3743,0)="""RTN"",""HLOAPI3"",119,0)"
^XMB(3.9,45,2,3744,0)=" I $$SAVEMSG^HLOF778(.MSG) D OUTQUE^HLOQUE(MSG(""STATUS"",""LINK NAME""),$G(MSG(""STATUS"",""PORT"")),MSG(""STATUS"",""QUEUE""),MSG(""IEN"")) Q +MSG(""IEN"")"
^XMB(3.9,45,2,3745,0)="""RTN"",""HLOAPI3"",120,0)"
^XMB(3.9,45,2,3746,0)=" Q 0"
^XMB(3.9,45,2,3747,0)="""RTN"",""HLOAPI3"",121,0)"
^XMB(3.9,45,2,3748,0)=" ;"
^XMB(3.9,45,2,3749,0)="""RTN"",""HLOAPI3"",122,0)"
^XMB(3.9,45,2,3750,0)="SETPURGE(MSGIEN,TIME) ;"
^XMB(3.9,45,2,3751,0)="""RTN"",""HLOAPI3"",123,0)"
^XMB(3.9,45,2,3752,0)=" ;Resets the purge date/time."
^XMB(3.9,45,2,3753,0)="""RTN"",""HLOAPI3"",124,0)"
^XMB(3.9,45,2,3754,0)=" ;Input:"
^XMB(3.9,45,2,3755,0)="""RTN"",""HLOAPI3"",125,0)"
^XMB(3.9,45,2,3756,0)=" ;   MSGIEN (required) ien of the message, file #778"
^XMB(3.9,45,2,3757,0)="""RTN"",""HLOAPI3"",126,0)"
^XMB(3.9,45,2,3758,0)=" ;   TIME (optional) dt/time to set the purge time to, defaults to NOW"
^XMB(3.9,45,2,3759,0)="""RTN"",""HLOAPI3"",127,0)"
^XMB(3.9,45,2,3760,0)=" ;Output:"
^XMB(3.9,45,2,3761,0)="""RTN"",""HLOAPI3"",128,0)"
^XMB(3.9,45,2,3762,0)=" ;   Function returns 1 on success, 0 on failure"
^XMB(3.9,45,2,3763,0)="""RTN"",""HLOAPI3"",129,0)"
^XMB(3.9,45,2,3764,0)=" N NODE,OLDTIME,HLDIR"
^XMB(3.9,45,2,3765,0)="""RTN"",""HLOAPI3"",130,0)"
^XMB(3.9,45,2,3766,0)=" Q:'$G(MSGIEN) 0"
^XMB(3.9,45,2,3767,0)="""RTN"",""HLOAPI3"",131,0)"
^XMB(3.9,45,2,3768,0)=" S NODE=$G(^HLB(MSGIEN,0))"
^XMB(3.9,45,2,3769,0)="""RTN"",""HLOAPI3"",132,0)"
^XMB(3.9,45,2,3770,0)=" Q:NODE="""" 0"
^XMB(3.9,45,2,3771,0)="""RTN"",""HLOAPI3"",133,0)"
^XMB(3.9,45,2,3772,0)=" S OLDTIME=$P(NODE,""^"",9)"
^XMB(3.9,45,2,3773,0)="""RTN"",""HLOAPI3"",134,0)"
^XMB(3.9,45,2,3774,0)=" S:'$G(TIME) TIME=$$NOW^XLFDT"
^XMB(3.9,45,2,3775,0)="""RTN"",""HLOAPI3"",135,0)"
^XMB(3.9,45,2,3776,0)=" S HLDIR=$S($E($P(NODE,""^"",4))=""I"":""IN"",1:""OUT"")"
^XMB(3.9,45,2,3777,0)="""RTN"",""HLOAPI3"",136,0)"
^XMB(3.9,45,2,3778,0)=" K:OLDTIME ^HLB(""AD"",HLDIR,OLDTIME,MSGIEN)"
^XMB(3.9,45,2,3779,0)="""RTN"",""HLOAPI3"",137,0)"
^XMB(3.9,45,2,3780,0)=" S $P(^HLB(MSGIEN,0),""^"",9)=TIME"
^XMB(3.9,45,2,3781,0)="""RTN"",""HLOAPI3"",138,0)"
^XMB(3.9,45,2,3782,0)=" S ^HLB(""AD"",HLDIR,TIME,MSGIEN)="""""
^XMB(3.9,45,2,3783,0)="""RTN"",""HLOAPI3"",139,0)"
^XMB(3.9,45,2,3784,0)=" Q 1"
^XMB(3.9,45,2,3785,0)="""RTN"",""HLOAPI3"",140,0)"
^XMB(3.9,45,2,3786,0)=" ;"
^XMB(3.9,45,2,3787,0)="""RTN"",""HLOAPI3"",141,0)"
^XMB(3.9,45,2,3788,0)="REPROC(MSGIEN,ERROR) ;"
^XMB(3.9,45,2,3789,0)="""RTN"",""HLOAPI3"",142,0)"
^XMB(3.9,45,2,3790,0)=" ;Description: This message will re-process an incoming message by placing it on the appropriate incoming queue. If successful the message is set to be purged."
^XMB(3.9,45,2,3791,0)="""RTN"",""HLOAPI3"",143,0)"
^XMB(3.9,45,2,3792,0)=" ;"
^XMB(3.9,45,2,3793,0)="""RTN"",""HLOAPI3"",144,0)"
^XMB(3.9,45,2,3794,0)=" ;Input:"
^XMB(3.9,45,2,3795,0)="""RTN"",""HLOAPI3"",145,0)"
^XMB(3.9,45,2,3796,0)=" ;  MSGIEN - the ien (file #778) of the message that is to be processed"
^XMB(3.9,45,2,3797,0)="""RTN"",""HLOAPI3"",146,0)"
^XMB(3.9,45,2,3798,0)=" ;Output:"
^XMB(3.9,45,2,3799,0)="""RTN"",""HLOAPI3"",147,0)"
^XMB(3.9,45,2,3800,0)=" ;  Function returns 1 on success, 0 on failure"
^XMB(3.9,45,2,3801,0)="""RTN"",""HLOAPI3"",148,0)"
^XMB(3.9,45,2,3802,0)=" ;  ERROR (pass by reference, optional) - on failure, will contain an error message"
^XMB(3.9,45,2,3803,0)="""RTN"",""HLOAPI3"",149,0)"
^XMB(3.9,45,2,3804,0)=" ;"
^XMB(3.9,45,2,3805,0)="""RTN"",""HLOAPI3"",150,0)"
^XMB(3.9,45,2,3806,0)=" N MSG,HDR,ACTION,QUEUE,FROM"
^XMB(3.9,45,2,3807,0)="""RTN"",""HLOAPI3"",151,0)"
^XMB(3.9,45,2,3808,0)=" ;"
^XMB(3.9,45,2,3809,0)="""RTN"",""HLOAPI3"",152,0)"
^XMB(3.9,45,2,3810,0)=" I '$$STARTMSG^HLOPRS(.MSG,MSGIEN) S ERROR=""MESSAGE NOT FOUND"" Q 0"
^XMB(3.9,45,2,3811,0)="""RTN"",""HLOAPI3"",153,0)"
^XMB(3.9,45,2,3812,0)=" I MSG(""DIRECTION"")'=""IN"" S ERROR=""MESSAGE IS NOT INCOMING"" Q 0"
^XMB(3.9,45,2,3813,0)="""RTN"",""HLOAPI3"",154,0)"
^XMB(3.9,45,2,3814,0)=" M HDR=MSG(""HDR"")"
^XMB(3.9,45,2,3815,0)="""RTN"",""HLOAPI3"",155,0)"
^XMB(3.9,45,2,3816,0)=" I '$$ACTION^HLOAPP(.HDR,.ACTION,.QUEUE),$G(MSG(""ACK TO""))="""" S ERROR=""RECEIVING APPLICATION NOT DEFINED"""
^XMB(3.9,45,2,3817,0)="""RTN"",""HLOAPI3"",156,0)"
^XMB(3.9,45,2,3818,0)=" ;If this message references an earlier message, get the action specified by the original message"
^XMB(3.9,45,2,3819,0)="""RTN"",""HLOAPI3"",157,0)"
^XMB(3.9,45,2,3820,0)=" I $G(MSG(""ACK TO""))]"""" D"
^XMB(3.9,45,2,3821,0)="""RTN"",""HLOAPI3"",158,0)"
^XMB(3.9,45,2,3822,0)=" .N NODE,IEN"
^XMB(3.9,45,2,3823,0)="""RTN"",""HLOAPI3"",159,0)"
^XMB(3.9,45,2,3824,0)=" .S IEN=$O(^HLB(""B"",$P(MSG(""ACK TO""),""-""),0))"
^XMB(3.9,45,2,3825,0)="""RTN"",""HLOAPI3"",160,0)"
^XMB(3.9,45,2,3826,0)=" .S:IEN NODE=$G(^HLB(IEN,0))"
^XMB(3.9,45,2,3827,0)="""RTN"",""HLOAPI3"",161,0)"
^XMB(3.9,45,2,3828,0)=" .I ($P(NODE,""^"",11)]"""") S ACTION=$P(NODE,""^"",10,11),QUEUE=$S($P(NODE,""^"",6)]"""":$P(NODE,""^"",6),1:""DEFAULT"")"
^XMB(3.9,45,2,3829,0)="""RTN"",""HLOAPI3"",162,0)"
^XMB(3.9,45,2,3830,0)=" I ACTION="""" S ERROR=""ORIGINAL MESSAGE NOT FOUND"" Q 0"
^XMB(3.9,45,2,3831,0)="""RTN"",""HLOAPI3"",163,0)"
^XMB(3.9,45,2,3832,0)=" S FROM=$S(MSG(""HDR"",""SENDING FACILITY"",2)]"""":MSG(""HDR"",""SENDING FACILITY"",2),1:MSG(""HDR"",""SENDING FACILITY"",1))"
^XMB(3.9,45,2,3833,0)="""RTN"",""HLOAPI3"",164,0)"
^XMB(3.9,45,2,3834,0)=" D INQUE^HLOQUE(FROM,QUEUE,MSGIEN,ACTION,1)"
^XMB(3.9,45,2,3835,0)="""RTN"",""HLOAPI3"",165,0)"
^XMB(3.9,45,2,3836,0)=" Q 1"
^XMB(3.9,45,2,3837,0)="""RTN"",""HLOAPI3"",166,0)"
^XMB(3.9,45,2,3838,0)=" ;"
^XMB(3.9,45,2,3839,0)="""RTN"",""HLOAPI3"",167,0)"
^XMB(3.9,45,2,3840,0)="PROCNOW(MSGIEN,PURGE,ERROR) ;"
^XMB(3.9,45,2,3841,0)="""RTN"",""HLOAPI3"",168,0)"
^XMB(3.9,45,2,3842,0)=" ;Description: This message will re-process an incoming message immediately."
^XMB(3.9,45,2,3843,0)="""RTN"",""HLOAPI3"",169,0)"
^XMB(3.9,45,2,3844,0)=" ;"
^XMB(3.9,45,2,3845,0)="""RTN"",""HLOAPI3"",170,0)"
^XMB(3.9,45,2,3846,0)=" ;Input:"
^XMB(3.9,45,2,3847,0)="""RTN"",""HLOAPI3"",171,0)"
^XMB(3.9,45,2,3848,0)=" ;  MSGIEN - the ien (file #778) of the message that is to be processed"
^XMB(3.9,45,2,3849,0)="""RTN"",""HLOAPI3"",172,0)"
^XMB(3.9,45,2,3850,0)=" ;Output:"
^XMB(3.9,45,2,3851,0)="""RTN"",""HLOAPI3"",173,0)"
^XMB(3.9,45,2,3852,0)=" ;  Function returns 1 on success, 0 on failure"
^XMB(3.9,45,2,3853,0)="""RTN"",""HLOAPI3"",174,0)"
^XMB(3.9,45,2,3854,0)=" ;  PURGE (optional) a date/time to purge the message"
^XMB(3.9,45,2,3855,0)="""RTN"",""HLOAPI3"",175,0)"
^XMB(3.9,45,2,3856,0)=" ;  ERROR (pass by reference, optional) - on failure, will contain an error message"
^XMB(3.9,45,2,3857,0)="""RTN"",""HLOAPI3"",176,0)"
^XMB(3.9,45,2,3858,0)=" ;"
^XMB(3.9,45,2,3859,0)="""RTN"",""HLOAPI3"",177,0)"
^XMB(3.9,45,2,3860,0)=" N MSG,HDR,ACTION,MCODE,HLMSGIEN"
^XMB(3.9,45,2,3861,0)="""RTN"",""HLOAPI3"",178,0)"
^XMB(3.9,45,2,3862,0)=" ;"
^XMB(3.9,45,2,3863,0)="""RTN"",""HLOAPI3"",179,0)"
^XMB(3.9,45,2,3864,0)=" S ERROR="""""
^XMB(3.9,45,2,3865,0)="""RTN"",""HLOAPI3"",180,0)"
^XMB(3.9,45,2,3866,0)=" I '$$STARTMSG^HLOPRS(.MSG,MSGIEN) S ERROR=""MESSAGE NOT FOUND"" Q 0"
^XMB(3.9,45,2,3867,0)="""RTN"",""HLOAPI3"",181,0)"
^XMB(3.9,45,2,3868,0)=" I MSG(""DIRECTION"")'=""IN"" S ERROR=""MESSAGE IS NOT INCOMING"" Q 0"
^XMB(3.9,45,2,3869,0)="""RTN"",""HLOAPI3"",182,0)"
^XMB(3.9,45,2,3870,0)=" M HDR=MSG(""HDR"")"
^XMB(3.9,45,2,3871,0)="""RTN"",""HLOAPI3"",183,0)"
^XMB(3.9,45,2,3872,0)=" I '$$ACTION^HLOAPP(.HDR,.ACTION),'$G(MSG(""ACK TO IEN"")) S ERROR=""RECEIVING APPLICATION NOT DEFINED"" Q 0"
^XMB(3.9,45,2,3873,0)="""RTN"",""HLOAPI3"",184,0)"
^XMB(3.9,45,2,3874,0)=" ;If this msg is an ack to an earlier message, get the action specified by the original message"
^XMB(3.9,45,2,3875,0)="""RTN"",""HLOAPI3"",185,0)"
^XMB(3.9,45,2,3876,0)=" I $G(ACTION)="""",$G(MSG(""ACK TO IEN"")) S ACTION=$P($G(^HLB(+MSG(""ACK TO IEN""),0)),""^"",10,11) I $P(ACTION,""^"",2)="""" S ERROR=""ORIGINAL MESSAGE NOT FOUND"" Q 0"
^XMB(3.9,45,2,3877,0)="""RTN"",""HLOAPI3"",186,0)"
^XMB(3.9,45,2,3878,0)=" D:$G(PURGE)"
^XMB(3.9,45,2,3879,0)="""RTN"",""HLOAPI3"",187,0)"
^XMB(3.9,45,2,3880,0)=" .K:MSG(""STATUS"",""PURGE"") ^HLB(""AD"",""IN"",MSG(""STATUS"",""PURGE""),MSGIEN)"
^XMB(3.9,45,2,3881,0)="""RTN"",""HLOAPI3"",188,0)"
^XMB(3.9,45,2,3882,0)=" .S $P(^HLB(MSGIEN,0),""^"",9)=PURGE"
^XMB(3.9,45,2,3883,0)="""RTN"",""HLOAPI3"",189,0)"
^XMB(3.9,45,2,3884,0)=" .S ^HLB(""AD"",""IN"",PURGE,MSGIEN)="""""
^XMB(3.9,45,2,3885,0)="""RTN"",""HLOAPI3"",190,0)"
^XMB(3.9,45,2,3886,0)=" .I $G(MSG(""ACK TO IEN"")),$D(^HLB(MSG(""ACK TO IEN""),0)) K ^HLB(""AD"",""OUT"",MSG(""STATUS"",""PURGE""),MSG(""ACK TO IEN"")) S $P(^HLB(MSG(""ACK TO IEN""),0),""^"",9)=PURGE,^HLB(""AD"",""OUT"",PURGE,MSG(""ACK TO IEN""))="""""
^XMB(3.9,45,2,3887,0)="""RTN"",""HLOAPI3"",191,0)"
^XMB(3.9,45,2,3888,0)=" S HLMSGIEN=MSGIEN"
^XMB(3.9,45,2,3889,0)="""RTN"",""HLOAPI3"",192,0)"
^XMB(3.9,45,2,3890,0)=" S $P(^HLB(MSGIEN,0),""^"",19)=1"
^XMB(3.9,45,2,3891,0)="""RTN"",""HLOAPI3"",193,0)"
^XMB(3.9,45,2,3892,0)=" S MCODE=""D ""_ACTION"
^XMB(3.9,45,2,3893,0)="""RTN"",""HLOAPI3"",194,0)"
^XMB(3.9,45,2,3894,0)=" X MCODE"
^XMB(3.9,45,2,3895,0)="""RTN"",""HLOAPI3"",195,0)"
^XMB(3.9,45,2,3896,0)=" Q 1"
^XMB(3.9,45,2,3897,0)="""RTN"",""HLOCLNT2"")"
^XMB(3.9,45,2,3898,0)="0^21^B29898713^B30513205"
^XMB(3.9,45,2,3899,0)="""RTN"",""HLOCLNT2"",1,0)"
^XMB(3.9,45,2,3900,0)="HLOCLNT2 ;ALB/CJM- Performs message updates for the client - 10/4/94 1pm ;09/13/2006"
^XMB(3.9,45,2,3901,0)="""RTN"",""HLOCLNT2"",2,0)"
^XMB(3.9,45,2,3902,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126,130,131,133**;Oct 13, 1995;Build 13"
^XMB(3.9,45,2,3903,0)="""RTN"",""HLOCLNT2"",3,0)"
^XMB(3.9,45,2,3904,0)=" ;Per VHA Directive 2004-038, this routine should not be modified."
^XMB(3.9,45,2,3905,0)="""RTN"",""HLOCLNT2"",4,0)"
^XMB(3.9,45,2,3906,0)=" ;"
^XMB(3.9,45,2,3907,0)="""RTN"",""HLOCLNT2"",5,0)"
^XMB(3.9,45,2,3908,0)="GETWORK(WORK) ;"
^XMB(3.9,45,2,3909,0)="""RTN"",""HLOCLNT2"",6,0)"
^XMB(3.9,45,2,3910,0)=" ;"
^XMB(3.9,45,2,3911,0)="""RTN"",""HLOCLNT2"",7,0)"
^XMB(3.9,45,2,3912,0)=" N OLD,DOLLARJ,SUCCESS,NOW"
^XMB(3.9,45,2,3913,0)="""RTN"",""HLOCLNT2"",8,0)"
^XMB(3.9,45,2,3914,0)=" S SUCCESS=0"
^XMB(3.9,45,2,3915,0)="""RTN"",""HLOCLNT2"",9,0)"
^XMB(3.9,45,2,3916,0)=" S NOW=$$NOW^XLFDT"
^XMB(3.9,45,2,3917,0)="""RTN"",""HLOCLNT2"",10,0)"
^XMB(3.9,45,2,3918,0)=" S (OLD,DOLLARJ)=$G(WORK(""DOLLARJ""))"
^XMB(3.9,45,2,3919,0)="""RTN"",""HLOCLNT2"",11,0)"
^XMB(3.9,45,2,3920,0)=" F  S DOLLARJ=$O(^HLTMP(""CLIENT UPDATES"",DOLLARJ)) Q:DOLLARJ=""""  D  Q:SUCCESS"
^XMB(3.9,45,2,3921,0)="""RTN"",""HLOCLNT2"",12,0)"
^XMB(3.9,45,2,3922,0)=" .L +^HLTMP(""CLIENT UPDATES"",DOLLARJ):0"
^XMB(3.9,45,2,3923,0)="""RTN"",""HLOCLNT2"",13,0)"
^XMB(3.9,45,2,3924,0)=" .Q:'$T"
^XMB(3.9,45,2,3925,0)="""RTN"",""HLOCLNT2"",14,0)"
^XMB(3.9,45,2,3926,0)=" .N TIME S TIME=$O(^HLTMP(""CLIENT UPDATES"",DOLLARJ,""""))"
^XMB(3.9,45,2,3927,0)="""RTN"",""HLOCLNT2"",15,0)"
^XMB(3.9,45,2,3928,0)=" .I $$FMDIFF^XLFDT(NOW,TIME,2)<2 L -^HLTMP(""CLIENT UPDATES"",DOLLARJ) Q"
^XMB(3.9,45,2,3929,0)="""RTN"",""HLOCLNT2"",16,0)"
^XMB(3.9,45,2,3930,0)=" .S SUCCESS=1"
^XMB(3.9,45,2,3931,0)="""RTN"",""HLOCLNT2"",17,0)"
^XMB(3.9,45,2,3932,0)=" ;"
^XMB(3.9,45,2,3933,0)="""RTN"",""HLOCLNT2"",18,0)"
^XMB(3.9,45,2,3934,0)=" I OLD'="""",'SUCCESS F  S DOLLARJ=$O(^HLTMP(""CLIENT UPDATES"",DOLLARJ)) Q:DOLLARJ=""""  Q:DOLLARJ>OLD  D  Q:SUCCESS"
^XMB(3.9,45,2,3935,0)="""RTN"",""HLOCLNT2"",19,0)"
^XMB(3.9,45,2,3936,0)=" .L +^HLTMP(""CLIENT UPDATES"",DOLLARJ):0"
^XMB(3.9,45,2,3937,0)="""RTN"",""HLOCLNT2"",20,0)"
^XMB(3.9,45,2,3938,0)=" .Q:'$T"
^XMB(3.9,45,2,3939,0)="""RTN"",""HLOCLNT2"",21,0)"
^XMB(3.9,45,2,3940,0)=" .N TIME S TIME=$O(^HLTMP(""CLIENT UPDATES"",DOLLARJ,""""))"
^XMB(3.9,45,2,3941,0)="""RTN"",""HLOCLNT2"",22,0)"
^XMB(3.9,45,2,3942,0)=" .I $$FMDIFF^XLFDT(NOW,TIME,2)<2 L -^HLTMP(""CLIENT UPDATES"",DOLLARJ) Q"
^XMB(3.9,45,2,3943,0)="""RTN"",""HLOCLNT2"",23,0)"
^XMB(3.9,45,2,3944,0)=" .S SUCCESS=1"
^XMB(3.9,45,2,3945,0)="""RTN"",""HLOCLNT2"",24,0)"
^XMB(3.9,45,2,3946,0)=" S WORK(""DOLLARJ"")=DOLLARJ,WORK(""NOW"")=NOW"
^XMB(3.9,45,2,3947,0)="""RTN"",""HLOCLNT2"",25,0)"
^XMB(3.9,45,2,3948,0)=" Q $S($L(WORK(""DOLLARJ"")):1,1:0)"
^XMB(3.9,45,2,3949,0)="""RTN"",""HLOCLNT2"",26,0)"
^XMB(3.9,45,2,3950,0)=" ;"
^XMB(3.9,45,2,3951,0)="""RTN"",""HLOCLNT2"",27,0)"
^XMB(3.9,45,2,3952,0)="DOWORK(WORK) ;"
^XMB(3.9,45,2,3953,0)="""RTN"",""HLOCLNT2"",28,0)"
^XMB(3.9,45,2,3954,0)=" ;"
^XMB(3.9,45,2,3955,0)="""RTN"",""HLOCLNT2"",29,0)"
^XMB(3.9,45,2,3956,0)=" N DOLLARJ,TIME,IEN,PARMS,SYSTEM"
^XMB(3.9,45,2,3957,0)="""RTN"",""HLOCLNT2"",30,0)"
^XMB(3.9,45,2,3958,0)=" S TIME="""""
^XMB(3.9,45,2,3959,0)="""RTN"",""HLOCLNT2"",31,0)"
^XMB(3.9,45,2,3960,0)=" S DOLLARJ=WORK(""DOLLARJ"")"
^XMB(3.9,45,2,3961,0)="""RTN"",""HLOCLNT2"",32,0)"
^XMB(3.9,45,2,3962,0)=" D SYSPARMS^HLOSITE(.SYSTEM)"
^XMB(3.9,45,2,3963,0)="""RTN"",""HLOCLNT2"",33,0)"
^XMB(3.9,45,2,3964,0)=" F  S TIME=$O(^HLTMP(""CLIENT UPDATES"",DOLLARJ,TIME)) Q:TIME=""""  Q:$$FMDIFF^XLFDT(WORK(""NOW""),TIME,2)<2  D"
^XMB(3.9,45,2,3965,0)="""RTN"",""HLOCLNT2"",34,0)"
^XMB(3.9,45,2,3966,0)=" .S IEN=0"
^XMB(3.9,45,2,3967,0)="""RTN"",""HLOCLNT2"",35,0)"
^XMB(3.9,45,2,3968,0)=" .F  S IEN=$O(^HLTMP(""CLIENT UPDATES"",DOLLARJ,TIME,IEN)) Q:'IEN  D"
^XMB(3.9,45,2,3969,0)="""RTN"",""HLOCLNT2"",36,0)"
^XMB(3.9,45,2,3970,0)=" ..N NODE"
^XMB(3.9,45,2,3971,0)="""RTN"",""HLOCLNT2"",37,0)"
^XMB(3.9,45,2,3972,0)=" ..S NODE=$G(^HLTMP(""CLIENT UPDATES"",DOLLARJ,TIME,IEN))"
^XMB(3.9,45,2,3973,0)="""RTN"",""HLOCLNT2"",38,0)"
^XMB(3.9,45,2,3974,0)=" ..S PARMS(""LINK"")=$P(NODE,""^"")"
^XMB(3.9,45,2,3975,0)="""RTN"",""HLOCLNT2"",39,0)"
^XMB(3.9,45,2,3976,0)=" ..S PARMS(""QUEUE"")=$P(NODE,""^"",2)"
^XMB(3.9,45,2,3977,0)="""RTN"",""HLOCLNT2"",40,0)"
^XMB(3.9,45,2,3978,0)=" ..S PARMS(""STATUS"")=$P(NODE,""^"",3)"
^XMB(3.9,45,2,3979,0)="""RTN"",""HLOCLNT2"",41,0)"
^XMB(3.9,45,2,3980,0)=" ..S PARMS(""PURGE TYPE"")=$P(NODE,""^"",4)"
^XMB(3.9,45,2,3981,0)="""RTN"",""HLOCLNT2"",42,0)"
^XMB(3.9,45,2,3982,0)=" ..S PARMS(""ACK TO IEN"")=+$P($P(NODE,""^"",4),""-"",2)"
^XMB(3.9,45,2,3983,0)="""RTN"",""HLOCLNT2"",43,0)"
^XMB(3.9,45,2,3984,0)=" ..S PARMS(""ACCEPT ACK"")=$P(NODE,""^"",5)"
^XMB(3.9,45,2,3985,0)="""RTN"",""HLOCLNT2"",44,0)"
^XMB(3.9,45,2,3986,0)=" ..S PARMS(""RECEIVING APP"")=$P(NODE,""^"",6)"
^XMB(3.9,45,2,3987,0)="""RTN"",""HLOCLNT2"",45,0)"
^XMB(3.9,45,2,3988,0)=" ..S:PARMS(""RECEIVING APP"")="""" PARMS(""RECEIVING APP"")=""UNKNOWN RECEIVING APPLICATION"""
^XMB(3.9,45,2,3989,0)="""RTN"",""HLOCLNT2"",46,0)"
^XMB(3.9,45,2,3990,0)=" ..S PARMS(""MSA"")=$G(^HLTMP(""CLIENT UPDATES"",DOLLARJ,TIME,IEN,""MSA""))"
^XMB(3.9,45,2,3991,0)="""RTN"",""HLOCLNT2"",47,0)"
^XMB(3.9,45,2,3992,0)=" ..S PARMS(""ACTION"")=$G(^HLTMP(""CLIENT UPDATES"",DOLLARJ,TIME,IEN,""ACTION""))"
^XMB(3.9,45,2,3993,0)="""RTN"",""HLOCLNT2"",48,0)"
^XMB(3.9,45,2,3994,0)=" ..D UPDATE(IEN,TIME,.PARMS)"
^XMB(3.9,45,2,3995,0)="""RTN"",""HLOCLNT2"",49,0)"
^XMB(3.9,45,2,3996,0)=" ..K ^HLTMP(""CLIENT UPDATES"",DOLLARJ,TIME,IEN)"
^XMB(3.9,45,2,3997,0)="""RTN"",""HLOCLNT2"",50,0)"
^XMB(3.9,45,2,3998,0)=" L -^HLTMP(""CLIENT UPDATES"",DOLLARJ)"
^XMB(3.9,45,2,3999,0)="""RTN"",""HLOCLNT2"",51,0)"
^XMB(3.9,45,2,4000,0)=" Q"
^XMB(3.9,45,2,4001,0)="""RTN"",""HLOCLNT2"",52,0)"
^XMB(3.9,45,2,4002,0)=" ;"
^XMB(3.9,45,2,4003,0)="""RTN"",""HLOCLNT2"",53,0)"
^XMB(3.9,45,2,4004,0)="UPDATE(MSGIEN,TIME,PARMS) ;"
^XMB(3.9,45,2,4005,0)="""RTN"",""HLOCLNT2"",54,0)"
^XMB(3.9,45,2,4006,0)=" S:PARMS(""STATUS"")]"""" $P(^HLB(MSGIEN,0),""^"",20)=PARMS(""STATUS"")"
^XMB(3.9,45,2,4007,0)="""RTN"",""HLOCLNT2"",55,0)"
^XMB(3.9,45,2,4008,0)=" S:PARMS(""STATUS"")=""SE"" ^HLB(""ERRORS"",""SE"",PARMS(""RECEIVING APP""),TIME,MSGIEN)="""""
^XMB(3.9,45,2,4009,0)="""RTN"",""HLOCLNT2"",56,0)"
^XMB(3.9,45,2,4010,0)=" S:PARMS(""STATUS"")=""AE"" ^HLB(""ERRORS"",""AE"",PARMS(""RECEIVING APP""),TIME,MSGIEN_""^"")="""""
^XMB(3.9,45,2,4011,0)="""RTN"",""HLOCLNT2"",57,0)"
^XMB(3.9,45,2,4012,0)=" S:PARMS(""ACCEPT ACK"") $P(^HLB(MSGIEN,0),""^"",17)=PARMS(""ACCEPT ACK"")"
^XMB(3.9,45,2,4013,0)="""RTN"",""HLOCLNT2"",58,0)"
^XMB(3.9,45,2,4014,0)=" S $P(^HLB(MSGIEN,0),""^"",16)=TIME"
^XMB(3.9,45,2,4015,0)="""RTN"",""HLOCLNT2"",59,0)"
^XMB(3.9,45,2,4016,0)=" S:PARMS(""MSA"")]"""" ^HLB(MSGIEN,4)=TIME_""^""_PARMS(""MSA"")"
^XMB(3.9,45,2,4017,0)="""RTN"",""HLOCLNT2"",60,0)"
^XMB(3.9,45,2,4018,0)=" I PARMS(""PURGE TYPE""),PARMS(""ACTION"")="""" D"
^XMB(3.9,45,2,4019,0)="""RTN"",""HLOCLNT2"",61,0)"
^XMB(3.9,45,2,4020,0)=" .;don't set purge if going on the infiler - let infiler do it"
^XMB(3.9,45,2,4021,0)="""RTN"",""HLOCLNT2"",62,0)"
^XMB(3.9,45,2,4022,0)=" .N PTIME"
^XMB(3.9,45,2,4023,0)="""RTN"",""HLOCLNT2"",63,0)"
^XMB(3.9,45,2,4024,0)=" .S:(PARMS(""PURGE TYPE"")=2) PTIME=$$FMADD^XLFDT(TIME,SYSTEM(""ERROR PURGE"")) ;error purge is in days"
^XMB(3.9,45,2,4025,0)="""RTN"",""HLOCLNT2"",64,0)"
^XMB(3.9,45,2,4026,0)=" .S:(PARMS(""PURGE TYPE"")'=2) PTIME=$$FMADD^XLFDT(TIME,,SYSTEM(""NORMAL PURGE"")) ;normal purge is in hours"
^XMB(3.9,45,2,4027,0)="""RTN"",""HLOCLNT2"",65,0)"
^XMB(3.9,45,2,4028,0)=" .S $P(^HLB(MSGIEN,0),""^"",9)=PTIME,^HLB(""AD"",""OUT"",PTIME,MSGIEN)="""""
^XMB(3.9,45,2,4029,0)="""RTN"",""HLOCLNT2"",66,0)"
^XMB(3.9,45,2,4030,0)=" .I PARMS(""ACK TO IEN""),$D(^HLB(PARMS(""ACK TO IEN""),0)) S $P(^HLB(PARMS(""ACK TO IEN""),0),""^"",9)=PTIME,^HLB(""AD"",""OUT"",PTIME,PARMS(""ACK TO IEN""))="""""
^XMB(3.9,45,2,4031,0)="""RTN"",""HLOCLNT2"",67,0)"
^XMB(3.9,45,2,4032,0)=" D:PARMS(""ACTION"")]"""""
^XMB(3.9,45,2,4033,0)="""RTN"",""HLOCLNT2"",68,0)"
^XMB(3.9,45,2,4034,0)=" .N PURGE"
^XMB(3.9,45,2,4035,0)="""RTN"",""HLOCLNT2"",69,0)"
^XMB(3.9,45,2,4036,0)=" .S PURGE=$S(PARMS(""PURGE TYPE""):1,1:0)"
^XMB(3.9,45,2,4037,0)="""RTN"",""HLOCLNT2"",70,0)"
^XMB(3.9,45,2,4038,0)=" .S:PARMS(""ACK TO IEN"") PURGE(""ACKTOIEN"")=PARMS(""ACK TO IEN"")"
^XMB(3.9,45,2,4039,0)="""RTN"",""HLOCLNT2"",71,0)"
^XMB(3.9,45,2,4040,0)=" .D INQUE^HLOQUE(PARMS(""LINK""),PARMS(""QUEUE""),MSGIEN,PARMS(""ACTION""),.PURGE)"
^XMB(3.9,45,2,4041,0)="""RTN"",""HLOCLNT2"",72,0)"
^XMB(3.9,45,2,4042,0)=" Q"
^XMB(3.9,45,2,4043,0)="""RTN"",""HLOCLNT2"",73,0)"
^XMB(3.9,45,2,4044,0)=" ;"
^XMB(3.9,45,2,4045,0)="""RTN"",""HLOCLNT2"",74,0)"
^XMB(3.9,45,2,4046,0)="GETMSG(IEN,MSG) ;"
^XMB(3.9,45,2,4047,0)="""RTN"",""HLOCLNT2"",75,0)"
^XMB(3.9,45,2,4048,0)=" ;"
^XMB(3.9,45,2,4049,0)="""RTN"",""HLOCLNT2"",76,0)"
^XMB(3.9,45,2,4050,0)=" ;Description: given the message ien=MSGIEN (required), it returns the MSG array containing information about the message, defined below."
^XMB(3.9,45,2,4051,0)="""RTN"",""HLOCLNT2"",77,0)"
^XMB(3.9,45,2,4052,0)=" ;Input:"
^XMB(3.9,45,2,4053,0)="""RTN"",""HLOCLNT2"",78,0)"
^XMB(3.9,45,2,4054,0)=" ;  IEN - the ien of the message in file 778"
^XMB(3.9,45,2,4055,0)="""RTN"",""HLOCLNT2"",79,0)"
^XMB(3.9,45,2,4056,0)=" ;Output:"
^XMB(3.9,45,2,4057,0)="""RTN"",""HLOCLNT2"",80,0)"
^XMB(3.9,45,2,4058,0)=" ;  Function returns 1 on success, 0 on failure"
^XMB(3.9,45,2,4059,0)="""RTN"",""HLOCLNT2"",81,0)"
^XMB(3.9,45,2,4060,0)=" ;  MSG (pass by reference, required) These are the subscripts returned:"
^XMB(3.9,45,2,4061,0)="""RTN"",""HLOCLNT2"",82,0)"
^XMB(3.9,45,2,4062,0)=" ;    ""ACCEPT ACK RESPONSE"" - if the sending app requested notification of the accept ack, this is the routine to perform"
^XMB(3.9,45,2,4063,0)="""RTN"",""HLOCLNT2"",83,0)"
^XMB(3.9,45,2,4064,0)=" ;    ""ACKTOIEN"" - if this is an app ack to a message not in a batch, this is the ien of the original message"
^XMB(3.9,45,2,4065,0)="""RTN"",""HLOCLNT2"",84,0)"
^XMB(3.9,45,2,4066,0)=" ;    ""BATCH""  = 1 if this is a batch message, 0  if not"
^XMB(3.9,45,2,4067,0)="""RTN"",""HLOCLNT2"",85,0)"
^XMB(3.9,45,2,4068,0)=" ;    ""CURRENT MESSAGE"" - defined only for batch messages -  a counterused during building and parsing messages to indicate the current message.  It will be set to 0 initially."
^XMB(3.9,45,2,4069,0)="""RTN"",""HLOCLNT2"",86,0)"
^XMB(3.9,45,2,4070,0)=" ;    ""BODY"" - ptr to file 778 which contains the body of the message."
^XMB(3.9,45,2,4071,0)="""RTN"",""HLOCLNT2"",87,0)"
^XMB(3.9,45,2,4072,0)=" ;    ""LINE COUNT"" -  a counter used during writing of the"
^XMB(3.9,45,2,4073,0)="""RTN"",""HLOCLNT2"",88,0)"
^XMB(3.9,45,2,4074,0)=" ;     messages to indicate the current line. For"
^XMB(3.9,45,2,4075,0)="""RTN"",""HLOCLNT2"",89,0)"
^XMB(3.9,45,2,4076,0)=" ;     batch messages where each message within the batch is stored"
^XMB(3.9,45,2,4077,0)="""RTN"",""HLOCLNT2"",90,0)"
^XMB(3.9,45,2,4078,0)=" ;     separately, this field indicates the position within the current"
^XMB(3.9,45,2,4079,0)="""RTN"",""HLOCLNT2"",91,0)"
^XMB(3.9,45,2,4080,0)=" ;     individual message"
^XMB(3.9,45,2,4081,0)="""RTN"",""HLOCLNT2"",92,0)"
^XMB(3.9,45,2,4082,0)=" ;    ""HDR"" at these lower subscripts:"
^XMB(3.9,45,2,4083,0)="""RTN"",""HLOCLNT2"",93,0)"
^XMB(3.9,45,2,4084,0)=" ;       1    - components 1-6"
^XMB(3.9,45,2,4085,0)="""RTN"",""HLOCLNT2"",94,0)"
^XMB(3.9,45,2,4086,0)=" ;       2    - components 7-end"
^XMB(3.9,45,2,4087,0)="""RTN"",""HLOCLNT2"",95,0)"
^XMB(3.9,45,2,4088,0)=" ;       ""ACCEPT ACK TYPE"" = ""AL"" or ""NE"""
^XMB(3.9,45,2,4089,0)="""RTN"",""HLOCLNT2"",96,0)"
^XMB(3.9,45,2,4090,0)=" ;       ""APP ACK TYPE"" = ""AL"" or ""NE"""
^XMB(3.9,45,2,4091,0)="""RTN"",""HLOCLNT2"",97,0)"
^XMB(3.9,45,2,4092,0)=" ;       ""MESSAGE CONTROL ID"" - defined if NOT batch"
^XMB(3.9,45,2,4093,0)="""RTN"",""HLOCLNT2"",98,0)"
^XMB(3.9,45,2,4094,0)=" ;       ""BATCH CONTROL ID"" - defined if batch"
^XMB(3.9,45,2,4095,0)="""RTN"",""HLOCLNT2"",99,0)"
^XMB(3.9,45,2,4096,0)=" ;"
^XMB(3.9,45,2,4097,0)="""RTN"",""HLOCLNT2"",100,0)"
^XMB(3.9,45,2,4098,0)=" ;    ""ID"" - message id from the header"
^XMB(3.9,45,2,4099,0)="""RTN"",""HLOCLNT2"",101,0)"
^XMB(3.9,45,2,4100,0)=" ;    ""IEN"" - ien, file 778"
^XMB(3.9,45,2,4101,0)="""RTN"",""HLOCLNT2"",102,0)"
^XMB(3.9,45,2,4102,0)=" ;"
^XMB(3.9,45,2,4103,0)="""RTN"",""HLOCLNT2"",103,0)"
^XMB(3.9,45,2,4104,0)=" K MSG"
^XMB(3.9,45,2,4105,0)="""RTN"",""HLOCLNT2"",104,0)"
^XMB(3.9,45,2,4106,0)=" Q:'$G(IEN) 0"
^XMB(3.9,45,2,4107,0)="""RTN"",""HLOCLNT2"",105,0)"
^XMB(3.9,45,2,4108,0)=" N NODE,FS,CS,REP,SUBCOMP,ESCAPE"
^XMB(3.9,45,2,4109,0)="""RTN"",""HLOCLNT2"",106,0)"
^XMB(3.9,45,2,4110,0)=" S MSG(""IEN"")=IEN"
^XMB(3.9,45,2,4111,0)="""RTN"",""HLOCLNT2"",107,0)"
^XMB(3.9,45,2,4112,0)=" S NODE=$G(^HLB(IEN,0))"
^XMB(3.9,45,2,4113,0)="""RTN"",""HLOCLNT2"",108,0)"
^XMB(3.9,45,2,4114,0)=" S MSG(""BODY"")=$P(NODE,""^"",2)"
^XMB(3.9,45,2,4115,0)="""RTN"",""HLOCLNT2"",109,0)"
^XMB(3.9,45,2,4116,0)=" S MSG(""ID"")=$P(NODE,""^"")"
^XMB(3.9,45,2,4117,0)="""RTN"",""HLOCLNT2"",110,0)"
^XMB(3.9,45,2,4118,0)=" Q:'MSG(""BODY"") 0"
^XMB(3.9,45,2,4119,0)="""RTN"",""HLOCLNT2"",111,0)"
^XMB(3.9,45,2,4120,0)=" S MSG(""STATUS"",""ACCEPTED"")=$P(NODE,""^"",17)"
^XMB(3.9,45,2,4121,0)="""RTN"",""HLOCLNT2"",112,0)"
^XMB(3.9,45,2,4122,0)=" S MSG(""DT/TM"")=$P(NODE,""^"",16)"
^XMB(3.9,45,2,4123,0)="""RTN"",""HLOCLNT2"",113,0)"
^XMB(3.9,45,2,4124,0)=" S MSG(""STATUS"",""QUEUE"")=$P(NODE,""^"",6)"
^XMB(3.9,45,2,4125,0)="""RTN"",""HLOCLNT2"",114,0)"
^XMB(3.9,45,2,4126,0)=" I MSG(""STATUS"",""QUEUE"")="""" S MSG(""STATUS"",""QUEUE"")=""DEFAULT"""
^XMB(3.9,45,2,4127,0)="""RTN"",""HLOCLNT2"",115,0)"
^XMB(3.9,45,2,4128,0)=" S MSG(""ACCEPT ACK RESPONSE"")=$P(NODE,""^"",12,13)"
^XMB(3.9,45,2,4129,0)="""RTN"",""HLOCLNT2"",116,0)"
^XMB(3.9,45,2,4130,0)=" I MSG(""ACCEPT ACK RESPONSE"")=""^"" S MSG(""ACCEPT ACK RESPONSE"")="""""
^XMB(3.9,45,2,4131,0)="""RTN"",""HLOCLNT2"",117,0)"
^XMB(3.9,45,2,4132,0)=" ;"
^XMB(3.9,45,2,4133,0)="""RTN"",""HLOCLNT2"",118,0)"
^XMB(3.9,45,2,4134,0)=" S MSG(""BATCH"")=+$P($G(^HLA(MSG(""BODY""),0)),""^"",2)"
^XMB(3.9,45,2,4135,0)="""RTN"",""HLOCLNT2"",119,0)"
^XMB(3.9,45,2,4136,0)=" I MSG(""BATCH"") D"
^XMB(3.9,45,2,4137,0)="""RTN"",""HLOCLNT2"",120,0)"
^XMB(3.9,45,2,4138,0)=" .S MSG(""BATCH"",""CURRENT MESSAGE"")=0"
^XMB(3.9,45,2,4139,0)="""RTN"",""HLOCLNT2"",121,0)"
^XMB(3.9,45,2,4140,0)=" E  D"
^XMB(3.9,45,2,4141,0)="""RTN"",""HLOCLNT2"",122,0)"
^XMB(3.9,45,2,4142,0)=" .N ACKTO"
^XMB(3.9,45,2,4143,0)="""RTN"",""HLOCLNT2"",123,0)"
^XMB(3.9,45,2,4144,0)=" .S ACKTO=$P(NODE,""^"",3)"
^XMB(3.9,45,2,4145,0)="""RTN"",""HLOCLNT2"",124,0)"
^XMB(3.9,45,2,4146,0)=" .I ACKTO]"""" S ACKTO=$$ACKTOIEN^HLOMSG1(MSG(""ID""),ACKTO)"
^XMB(3.9,45,2,4147,0)="""RTN"",""HLOCLNT2"",125,0)"
^XMB(3.9,45,2,4148,0)=" .I ACKTO,+ACKTO=ACKTO S MSG(""ACK TO IEN"")=ACKTO"
^XMB(3.9,45,2,4149,0)="""RTN"",""HLOCLNT2"",126,0)"
^XMB(3.9,45,2,4150,0)=" S MSG(""LINE COUNT"")=0"
^XMB(3.9,45,2,4151,0)="""RTN"",""HLOCLNT2"",127,0)"
^XMB(3.9,45,2,4152,0)=" S MSG(""HDR"",1)=$G(^HLB(IEN,1))"
^XMB(3.9,45,2,4153,0)="""RTN"",""HLOCLNT2"",128,0)"
^XMB(3.9,45,2,4154,0)=" S MSG(""HDR"",2)=$G(^HLB(IEN,2))"
^XMB(3.9,45,2,4155,0)="""RTN"",""HLOCLNT2"",129,0)"
^XMB(3.9,45,2,4156,0)=" S FS=$E(MSG(""HDR"",1),4)"
^XMB(3.9,45,2,4157,0)="""RTN"",""HLOCLNT2"",130,0)"
^XMB(3.9,45,2,4158,0)=" S CS=$E(MSG(""HDR"",1),5)"
^XMB(3.9,45,2,4159,0)="""RTN"",""HLOCLNT2"",131,0)"
^XMB(3.9,45,2,4160,0)=" S REP=$E(MSG(""HDR"",1),6)"
^XMB(3.9,45,2,4161,0)="""RTN"",""HLOCLNT2"",132,0)"
^XMB(3.9,45,2,4162,0)=" S ESCAPE=$E(MSG(""HDR"",1),7)"
^XMB(3.9,45,2,4163,0)="""RTN"",""HLOCLNT2"",133,0)"
^XMB(3.9,45,2,4164,0)=" S SUBCOMP=$E(MSG(""HDR"",1),8)"
^XMB(3.9,45,2,4165,0)="""RTN"",""HLOCLNT2"",134,0)"
^XMB(3.9,45,2,4166,0)=" S MSG(""HDR"",""FIELD SEPARATOR"")=FS"
^XMB(3.9,45,2,4167,0)="""RTN"",""HLOCLNT2"",135,0)"
^XMB(3.9,45,2,4168,0)=" S MSG(""HDR"",""SENDING APPLICATION"")=$$DESCAPE^HLOPRS1($P($P(MSG(""HDR"",1),FS,3),CS),FS,CS,SUBCOMP,REP,ESCAPE)"
^XMB(3.9,45,2,4169,0)="""RTN"",""HLOCLNT2"",136,0)"
^XMB(3.9,45,2,4170,0)=" S MSG(""HDR"",""RECEIVING APPLICATION"")=$$DESCAPE^HLOPRS1($P($P(MSG(""HDR"",1),FS,5),CS),FS,CS,SUBCOMP,REP,ESCAPE)"
^XMB(3.9,45,2,4171,0)="""RTN"",""HLOCLNT2"",137,0)"
^XMB(3.9,45,2,4172,0)=" I 'MSG(""BATCH"") D"
^XMB(3.9,45,2,4173,0)="""RTN"",""HLOCLNT2"",138,0)"
^XMB(3.9,45,2,4174,0)=" .S MSG(""HDR"",""MESSAGE TYPE"")=$P($P(MSG(""HDR"",2),FS,4),CS)"
^XMB(3.9,45,2,4175,0)="""RTN"",""HLOCLNT2"",139,0)"
^XMB(3.9,45,2,4176,0)=" .S MSG(""HDR"",""EVENT"")=$P($P(MSG(""HDR"",2),FS,4),CS,2)"
^XMB(3.9,45,2,4177,0)="""RTN"",""HLOCLNT2"",140,0)"
^XMB(3.9,45,2,4178,0)=" .S MSG(""HDR"",""ACCEPT ACK TYPE"")=$E($P(MSG(""HDR"",2),FS,10),1,2)"
^XMB(3.9,45,2,4179,0)="""RTN"",""HLOCLNT2"",141,0)"
^XMB(3.9,45,2,4180,0)=" .S MSG(""HDR"",""APP ACK TYPE"")=$E($P(MSG(""HDR"",2),FS,11),1,2)"
^XMB(3.9,45,2,4181,0)="""RTN"",""HLOCLNT2"",142,0)"
^XMB(3.9,45,2,4182,0)=" .S MSG(""HDR"",""MESSAGE CONTROL ID"")=MSG(""ID"")"
^XMB(3.9,45,2,4183,0)="""RTN"",""HLOCLNT2"",143,0)"
^XMB(3.9,45,2,4184,0)=" E  D"
^XMB(3.9,45,2,4185,0)="""RTN"",""HLOCLNT2"",144,0)"
^XMB(3.9,45,2,4186,0)=" .S MSG(""HDR"",""BATCH CONTROL ID"")=MSG(""ID"")"
^XMB(3.9,45,2,4187,0)="""RTN"",""HLOCLNT2"",145,0)"
^XMB(3.9,45,2,4188,0)=" .S MSG(""HDR"",""ACCEPT ACK TYPE"")=$E($P($P(MSG(""HDR"",2),FS,4),""ACCEPT ACK TYPE="",2),1,2)"
^XMB(3.9,45,2,4189,0)="""RTN"",""HLOCLNT2"",146,0)"
^XMB(3.9,45,2,4190,0)=" .S MSG(""HDR"",""APP ACK TYPE"")=$E($P($P(MSG(""HDR"",2),FS,4),""APP ACK TYPE="",2),1,2)"
^XMB(3.9,45,2,4191,0)="""RTN"",""HLOCLNT2"",147,0)"
^XMB(3.9,45,2,4192,0)=" Q 1"
^XMB(3.9,45,2,4193,0)="""RTN"",""HLOPRS"")"
^XMB(3.9,45,2,4194,0)="0^17^B30775930^B30060156"
^XMB(3.9,45,2,4195,0)="""RTN"",""HLOPRS"",1,0)"
^XMB(3.9,45,2,4196,0)="HLOPRS ;IRMFO-ALB/CJM -RTNs for parsing messages;03/24/2004  14:43 ;09/13/2006"
^XMB(3.9,45,2,4197,0)="""RTN"",""HLOPRS"",2,0)"
^XMB(3.9,45,2,4198,0)=" ;;1.6;HEALTH LEVEL SEVEN;**118,126,133**;Oct 13, 1995;Build 13"
^XMB(3.9,45,2,4199,0)="""RTN"",""HLOPRS"",3,0)"
^XMB(3.9,45,2,4200,0)=" ;Per VHA Directive 2004-038, this routine should not be modified."
^XMB(3.9,45,2,4201,0)="""RTN"",""HLOPRS"",4,0)"
^XMB(3.9,45,2,4202,0)=" ;"
^XMB(3.9,45,2,4203,0)="""RTN"",""HLOPRS"",5,0)"
^XMB(3.9,45,2,4204,0)="STARTMSG(MSG,IEN,HDR) ;"
^XMB(3.9,45,2,4205,0)="""RTN"",""HLOPRS"",6,0)"
^XMB(3.9,45,2,4206,0)=" ;Description:  This function begins the parsing of the message, parsing"
^XMB(3.9,45,2,4207,0)="""RTN"",""HLOPRS"",7,0)"
^XMB(3.9,45,2,4208,0)=" ;the header and returning the individual values in the array HDR()."
^XMB(3.9,45,2,4209,0)="""RTN"",""HLOPRS"",8,0)"
^XMB(3.9,45,2,4210,0)=" ;Input: "
^XMB(3.9,45,2,4211,0)="""RTN"",""HLOPRS"",9,0)"
^XMB(3.9,45,2,4212,0)=" ;  IEN - The internal entry number of the message in file 778."
^XMB(3.9,45,2,4213,0)="""RTN"",""HLOPRS"",10,0)"
^XMB(3.9,45,2,4214,0)=" ;Output:"
^XMB(3.9,45,2,4215,0)="""RTN"",""HLOPRS"",11,0)"
^XMB(3.9,45,2,4216,0)=" ;  Function returns 1 on success, 0 on failure.  Failure would indicate that the message was not found."
^XMB(3.9,45,2,4217,0)="""RTN"",""HLOPRS"",12,0)"
^XMB(3.9,45,2,4218,0)=" ;  MSG - (pass by reference, required) This array is used by the HL7 package to track the progress of parsing the message.  The application MUST NOT touch it!"
^XMB(3.9,45,2,4219,0)="""RTN"",""HLOPRS"",13,0)"
^XMB(3.9,45,2,4220,0)=" ;  HDR (pass by reference, optional)   This array contains the results of parsing the message header."
^XMB(3.9,45,2,4221,0)="""RTN"",""HLOPRS"",14,0)"
^XMB(3.9,45,2,4222,0)=" K MSG,HDR"
^XMB(3.9,45,2,4223,0)="""RTN"",""HLOPRS"",15,0)"
^XMB(3.9,45,2,4224,0)=" Q:'$G(IEN) 0"
^XMB(3.9,45,2,4225,0)="""RTN"",""HLOPRS"",16,0)"
^XMB(3.9,45,2,4226,0)=" Q:'$$GETMSG^HLOMSG(IEN,.MSG) 0"
^XMB(3.9,45,2,4227,0)="""RTN"",""HLOPRS"",17,0)"
^XMB(3.9,45,2,4228,0)=" M HDR=MSG(""HDR"")"
^XMB(3.9,45,2,4229,0)="""RTN"",""HLOPRS"",18,0)"
^XMB(3.9,45,2,4230,0)=" Q:'$$PARSEHDR(.HDR) 0"
^XMB(3.9,45,2,4231,0)="""RTN"",""HLOPRS"",19,0)"
^XMB(3.9,45,2,4232,0)=" M MSG(""HDR"")=HDR"
^XMB(3.9,45,2,4233,0)="""RTN"",""HLOPRS"",20,0)"
^XMB(3.9,45,2,4234,0)=" Q 1"
^XMB(3.9,45,2,4235,0)="""RTN"",""HLOPRS"",21,0)"
^XMB(3.9,45,2,4236,0)=" ;"
^XMB(3.9,45,2,4237,0)="""RTN"",""HLOPRS"",22,0)"
^XMB(3.9,45,2,4238,0)="NEXTSEG(MSG,SEG) ;"
^XMB(3.9,45,2,4239,0)="""RTN"",""HLOPRS"",23,0)"
^XMB(3.9,45,2,4240,0)=" ;Description:  Advances parsing to the next segment and returns the parsed values from that segment."
^XMB(3.9,45,2,4241,0)="""RTN"",""HLOPRS"",24,0)"
^XMB(3.9,45,2,4242,0)=" ;Input:"
^XMB(3.9,45,2,4243,0)="""RTN"",""HLOPRS"",25,0)"
^XMB(3.9,45,2,4244,0)=" ;  MSG - (pass by reference, required) This array is used by the HL7 package to track the current position in the message.  The application MUST NOT touch it!"
^XMB(3.9,45,2,4245,0)="""RTN"",""HLOPRS"",26,0)"
^XMB(3.9,45,2,4246,0)=" ;Output:"
^XMB(3.9,45,2,4247,0)="""RTN"",""HLOPRS"",27,0)"
^XMB(3.9,45,2,4248,0)=" ;  Function  returns 1 on success, 0 if there are no more segments in this message.  For batch messages, a return value of 0 does not preclude the possibility that there are additional individual messages within the batch."
^XMB(3.9,45,2,4249,0)="""RTN"",""HLOPRS"",28,0)"
^XMB(3.9,45,2,4250,0)=" ;  MSG - (pass by reference, required)"
^XMB(3.9,45,2,4251,0)="""RTN"",""HLOPRS"",29,0)"
^XMB(3.9,45,2,4252,0)=" ;  SEG - (pass by reference, required)  The segment is returned in this array."
^XMB(3.9,45,2,4253,0)="""RTN"",""HLOPRS"",30,0)"
^XMB(3.9,45,2,4254,0)=" ;"
^XMB(3.9,45,2,4255,0)="""RTN"",""HLOPRS"",31,0)"
^XMB(3.9,45,2,4256,0)=" N TEMP,CODES"
^XMB(3.9,45,2,4257,0)="""RTN"",""HLOPRS"",32,0)"
^XMB(3.9,45,2,4258,0)=" K SEG"
^XMB(3.9,45,2,4259,0)="""RTN"",""HLOPRS"",33,0)"
^XMB(3.9,45,2,4260,0)=" I '$$HLNEXT^HLOMSG(.MSG,.TEMP) Q 0"
^XMB(3.9,45,2,4261,0)="""RTN"",""HLOPRS"",34,0)"
^XMB(3.9,45,2,4262,0)=" S CODES=MSG(""HDR"",""ENCODING CHARACTERS"")"
^XMB(3.9,45,2,4263,0)="""RTN"",""HLOPRS"",35,0)"
^XMB(3.9,45,2,4264,0)=" Q $$PARSE^HLOPRS1(MSG(""HDR"",""FIELD SEPARATOR""),$E(CODES,2),$E(CODES,1),$E(CODES,4),$E(CODES,3),.TEMP,.SEG)"
^XMB(3.9,45,2,4265,0)="""RTN"",""HLOPRS"",36,0)"
^XMB(3.9,45,2,4266,0)=" ;"
^XMB(3.9,45,2,4267,0)="""RTN"",""HLOPRS"",37,0)"
^XMB(3.9,45,2,4268,0)="NEXTMSG(MSG,MSH) ;"
^XMB(3.9,45,2,4269,0)="""RTN"",""HLOPRS"",38,0)"
^XMB(3.9,45,2,4270,0)=" ;Description:  Advances to the next message within the batch, with the MSH segment returned."
^XMB(3.9,45,2,4271,0)="""RTN"",""HLOPRS"",39,0)"
^XMB(3.9,45,2,4272,0)=" ;Input:"
^XMB(3.9,45,2,4273,0)="""RTN"",""HLOPRS"",40,0)"
^XMB(3.9,45,2,4274,0)=" ; MSG (pass by reference, required) This array is used by the HL7 package to track the current position in the message.  The application MUST NOT touch it!"
^XMB(3.9,45,2,4275,0)="""RTN"",""HLOPRS"",41,0)"
^XMB(3.9,45,2,4276,0)=" ;OUTPUT:"
^XMB(3.9,45,2,4277,0)="""RTN"",""HLOPRS"",42,0)"
^XMB(3.9,45,2,4278,0)=" ;  Function returns 1 on success, 0 if there are no more messages"
^XMB(3.9,45,2,4279,0)="""RTN"",""HLOPRS"",43,0)"
^XMB(3.9,45,2,4280,0)=" ;  MSG - (pass by reference)"
^XMB(3.9,45,2,4281,0)="""RTN"",""HLOPRS"",44,0)"
^XMB(3.9,45,2,4282,0)=" ;  MSH - (pass by reference, required) Returns the parsed message header"
^XMB(3.9,45,2,4283,0)="""RTN"",""HLOPRS"",45,0)"
^XMB(3.9,45,2,4284,0)=" ;"
^XMB(3.9,45,2,4285,0)="""RTN"",""HLOPRS"",46,0)"
^XMB(3.9,45,2,4286,0)=" K MSH"
^XMB(3.9,45,2,4287,0)="""RTN"",""HLOPRS"",47,0)"
^XMB(3.9,45,2,4288,0)=" N NODE"
^XMB(3.9,45,2,4289,0)="""RTN"",""HLOPRS"",48,0)"
^XMB(3.9,45,2,4290,0)=" Q:'$$NEXTMSG^HLOMSG(.MSG,.MSH) 0"
^XMB(3.9,45,2,4291,0)="""RTN"",""HLOPRS"",49,0)"
^XMB(3.9,45,2,4292,0)=" Q:'$$PARSEHDR(.MSH) 0"
^XMB(3.9,45,2,4293,0)="""RTN"",""HLOPRS"",50,0)"
^XMB(3.9,45,2,4294,0)=" S MSG(""BATCH"",""CURRENT MESSAGE"",""EVENT"")=MSH(""EVENT"")"
^XMB(3.9,45,2,4295,0)="""RTN"",""HLOPRS"",51,0)"
^XMB(3.9,45,2,4296,0)=" S MSG(""BATCH"",""CURRENT MESSAGE"",""MESSAGE CONTROL ID"")=MSH(""MESSAGE CONTROL ID"")"
^XMB(3.9,45,2,4297,0)="""RTN"",""HLOPRS"",52,0)"
^XMB(3.9,45,2,4298,0)=" S NODE=$G(^HLB(MSG(""IEN""),3,MSG(""BATCH"",""CURRENT MESSAGE""),0))"
^XMB(3.9,45,2,4299,0)="""RTN"",""HLOPRS"",53,0)"
^XMB(3.9,45,2,4300,0)=" S MSG(""BATCH"",""CURRENT MESSAGE"",""ACK TO"")=$P(NODE,""^"",3)"
^XMB(3.9,45,2,4301,0)="""RTN"",""HLOPRS"",54,0)"
^XMB(3.9,45,2,4302,0)=" S MSG(""BATCH"",""CURRENT MESSAGE"",""ACK BY"")=$P(NODE,""^"",4)"
^XMB(3.9,45,2,4303,0)="""RTN"",""HLOPRS"",55,0)"
^XMB(3.9,45,2,4304,0)=" ;"
^XMB(3.9,45,2,4305,0)="""RTN"",""HLOPRS"",56,0)"
^XMB(3.9,45,2,4306,0)=" I MSG(""BATCH"",""CURRENT MESSAGE"",""ACK TO"")]"""" S MSG(""BATCH"",""CURRENT MESSAGE"",""ACK TO IEN"")=$$ACKTOIEN^HLOMSG1(MSG(""MESSAGE CONTROL ID""),MSG(""BATCH"",""CURRENT MESSAGE"",""ACK TO""))"
^XMB(3.9,45,2,4307,0)="""RTN"",""HLOPRS"",57,0)"
^XMB(3.9,45,2,4308,0)=" I MSG(""BATCH"",""CURRENT MESSAGE"",""ACK BY"")]"""" S MSG(""BATCH"",""CURRENT MESSAGE"",""ACK BY IEN"")=$$ACKBYIEN^HLOMSG1(MSG(""MESSAGE CONTROL ID""),MSG(""BATCH"",""CURRENT MESSAGE"",""ACK BY""))"
^XMB(3.9,45,2,4309,0)="""RTN"",""HLOPRS"",58,0)"
^XMB(3.9,45,2,4310,0)=" ;"
^XMB(3.9,45,2,4311,0)="""RTN"",""HLOPRS"",59,0)"
^XMB(3.9,45,2,4312,0)=" Q 1"
^XMB(3.9,45,2,4313,0)="""RTN"",""HLOPRS"",60,0)"
^XMB(3.9,45,2,4314,0)=" ;"
^XMB(3.9,45,2,4315,0)="""RTN"",""HLOPRS"",61,0)"
^XMB(3.9,45,2,4316,0)="PARSEHDR(HDR) ;"
^XMB(3.9,45,2,4317,0)="""RTN"",""HLOPRS"",62,0)"
^XMB(3.9,45,2,4318,0)=" ;Parses the segment (HDR, pass by reference) into the HDR() array using meaningful subscripts."
^XMB(3.9,45,2,4319,0)="""RTN"",""HLOPRS"",63,0)"
^XMB(3.9,45,2,4320,0)=" ;Input:"
^XMB(3.9,45,2,4321,0)="""RTN"",""HLOPRS"",64,0)"
^XMB(3.9,45,2,4322,0)=" ;  HDR (pass by reference, required) contains the segment in the format HDR(1),HDR(2), etc.."
^XMB(3.9,45,2,4323,0)="""RTN"",""HLOPRS"",65,0)"
^XMB(3.9,45,2,4324,0)=" ;Output:"
^XMB(3.9,45,2,4325,0)="""RTN"",""HLOPRS"",66,0)"
^XMB(3.9,45,2,4326,0)=" ;  HDR (pass by reference, required) This array will contain all the individual values.  Also will contain HDR(1) with components 1-6 and HDR(2) with components 1-end"
^XMB(3.9,45,2,4327,0)="""RTN"",""HLOPRS"",67,0)"
^XMB(3.9,45,2,4328,0)=" ;  Function - returns 1 if the segment is indeed an MSH or BHS segment, 0 otherwise"
^XMB(3.9,45,2,4329,0)="""RTN"",""HLOPRS"",68,0)"
^XMB(3.9,45,2,4330,0)=" ;"
^XMB(3.9,45,2,4331,0)="""RTN"",""HLOPRS"",69,0)"
^XMB(3.9,45,2,4332,0)=" N VALUE,FS,CS,REP,SUBCOMP,ESCAPE"
^XMB(3.9,45,2,4333,0)="""RTN"",""HLOPRS"",70,0)"
^XMB(3.9,45,2,4334,0)=" S VALUE=$E(HDR(1),1,3)"
^XMB(3.9,45,2,4335,0)="""RTN"",""HLOPRS"",71,0)"
^XMB(3.9,45,2,4336,0)=" I VALUE'=""MSH"",VALUE'=""BHS"" Q 0"
^XMB(3.9,45,2,4337,0)="""RTN"",""HLOPRS"",72,0)"
^XMB(3.9,45,2,4338,0)=" S HDR(""SEGMENT TYPE"")=VALUE"
^XMB(3.9,45,2,4339,0)="""RTN"",""HLOPRS"",73,0)"
^XMB(3.9,45,2,4340,0)=" S FS=$E(HDR(1),4)"
^XMB(3.9,45,2,4341,0)="""RTN"",""HLOPRS"",74,0)"
^XMB(3.9,45,2,4342,0)=" Q:FS="""" 0"
^XMB(3.9,45,2,4343,0)="""RTN"",""HLOPRS"",75,0)"
^XMB(3.9,45,2,4344,0)=" S HDR(""ENCODING CHARACTERS"")=$P(HDR(1),FS,2)"
^XMB(3.9,45,2,4345,0)="""RTN"",""HLOPRS"",76,0)"
^XMB(3.9,45,2,4346,0)=" S CS=$E(HDR(""ENCODING CHARACTERS""),1)"
^XMB(3.9,45,2,4347,0)="""RTN"",""HLOPRS"",77,0)"
^XMB(3.9,45,2,4348,0)=" S REP=$E(HDR(""ENCODING CHARACTERS""),2)"
^XMB(3.9,45,2,4349,0)="""RTN"",""HLOPRS"",78,0)"
^XMB(3.9,45,2,4350,0)=" S ESCAPE=$E(HDR(""ENCODING CHARACTERS""),3)"
^XMB(3.9,45,2,4351,0)="""RTN"",""HLOPRS"",79,0)"
^XMB(3.9,45,2,4352,0)=" S SUBCOMP=$E(HDR(""ENCODING CHARACTERS""),4)"
^XMB(3.9,45,2,4353,0)="""RTN"",""HLOPRS"",80,0)"
^XMB(3.9,45,2,4354,0)=" Q:REP="""" 0"
^XMB(3.9,45,2,4355,0)="""RTN"",""HLOPRS"",81,0)"
^XMB(3.9,45,2,4356,0)=" S HDR(""FIELD SEPARATOR"")=FS"
^XMB(3.9,45,2,4357,0)="""RTN"",""HLOPRS"",82,0)"
^XMB(3.9,45,2,4358,0)=" S HDR(""COMPONENT SEPARATOR"")=CS"
^XMB(3.9,45,2,4359,0)="""RTN"",""HLOPRS"",83,0)"
^XMB(3.9,45,2,4360,0)=" S HDR(""REPETITION SEPARATOR"")=REP"
^XMB(3.9,45,2,4361,0)="""RTN"",""HLOPRS"",84,0)"
^XMB(3.9,45,2,4362,0)=" S HDR(""ESCAPE CHARACTER"")=ESCAPE"
^XMB(3.9,45,2,4363,0)="""RTN"",""HLOPRS"",85,0)"
^XMB(3.9,45,2,4364,0)=" S HDR(""SUBCOMPONENT SEPARATOR"")=SUBCOMP"
^XMB(3.9,45,2,4365,0)="""RTN"",""HLOPRS"",86,0)"
^XMB(3.9,45,2,4366,0)=" S HDR(""SENDING APPLICATION"")=$$DESCAPE^HLOPRS1($P($P(HDR(1),FS,3),CS),FS,CS,SUBCOMP,REP,ESCAPE)"
^XMB(3.9,45,2,4367,0)="""RTN"",""HLOPRS"",87,0)"
^XMB(3.9,45,2,4368,0)=" S VALUE=$P(HDR(1),FS,4)"
^XMB(3.9,45,2,4369,0)="""RTN"",""HLOPRS"",88,0)"
^XMB(3.9,45,2,4370,0)=" S HDR(""SENDING FACILITY"",1)=$P(VALUE,CS)"
^XMB(3.9,45,2,4371,0)="""RTN"",""HLOPRS"",89,0)"
^XMB(3.9,45,2,4372,0)=" S HDR(""SENDING FACILITY"",2)=$$DESCAPE^HLOPRS1($P(VALUE,CS,2),FS,CS,SUBCOMP,REP,ESCAPE)"
^XMB(3.9,45,2,4373,0)="""RTN"",""HLOPRS"",90,0)"
^XMB(3.9,45,2,4374,0)=" S HDR(""SENDING FACILITY"",3)=$P(VALUE,CS,3)"
^XMB(3.9,45,2,4375,0)="""RTN"",""HLOPRS"",91,0)"
^XMB(3.9,45,2,4376,0)=" S HDR(""RECEIVING APPLICATION"")=$$DESCAPE^HLOPRS1($P($P(HDR(1),FS,5),CS),FS,CS,SUBCOMP,REP,ESCAPE)"
^XMB(3.9,45,2,4377,0)="""RTN"",""HLOPRS"",92,0)"
^XMB(3.9,45,2,4378,0)=" S VALUE=$P(HDR(1),FS,6)"
^XMB(3.9,45,2,4379,0)="""RTN"",""HLOPRS"",93,0)"
^XMB(3.9,45,2,4380,0)=" S HDR(""RECEIVING FACILITY"",1)=$P(VALUE,CS)"
^XMB(3.9,45,2,4381,0)="""RTN"",""HLOPRS"",94,0)"
^XMB(3.9,45,2,4382,0)=" S HDR(""RECEIVING FACILITY"",2)=$$DESCAPE^HLOPRS1($P(VALUE,CS,2),FS,CS,SUBCOMP,REP,ESCAPE)"
^XMB(3.9,45,2,4383,0)="""RTN"",""HLOPRS"",95,0)"
^XMB(3.9,45,2,4384,0)=" S HDR(""RECEIVING FACILITY"",3)=$P(VALUE,CS,3)"
^XMB(3.9,45,2,4385,0)="""RTN"",""HLOPRS"",96,0)"
^XMB(3.9,45,2,4386,0)=" S HDR(""DT/TM OF MESSAGE"")=$$FMDATE^HLFNC($P($P(HDR(2),FS,2),CS))"
^XMB(3.9,45,2,4387,0)="""RTN"",""HLOPRS"",97,0)"
^XMB(3.9,45,2,4388,0)=" S HDR(""SECURITY"")=$$DESCAPE^HLOPRS1($P($P(HDR(2),FS,3),CS),FS,CS,SUBCOMP,REP,ESCAPE)"
^XMB(3.9,45,2,4389,0)="""RTN"",""HLOPRS"",98,0)"
^XMB(3.9,45,2,4390,0)=" ;"
^XMB(3.9,45,2,4391,0)="""RTN"",""HLOPRS"",99,0)"
^XMB(3.9,45,2,4392,0)=" I HDR(""SEGMENT TYPE"")=""MSH"" D"
^XMB(3.9,45,2,4393,0)="""RTN"",""HLOPRS"",100,0)"
^XMB(3.9,45,2,4394,0)=" .S VALUE=$P(HDR(2),FS,4)"
^XMB(3.9,45,2,4395,0)="""RTN"",""HLOPRS"",101,0)"
^XMB(3.9,45,2,4396,0)=" .S HDR(""MESSAGE TYPE"")=$P(VALUE,CS)"
^XMB(3.9,45,2,4397,0)="""RTN"",""HLOPRS"",102,0)"
^XMB(3.9,45,2,4398,0)=" .S HDR(""EVENT"")=$P(VALUE,CS,2)"
^XMB(3.9,45,2,4399,0)="""RTN"",""HLOPRS"",103,0)"
^XMB(3.9,45,2,4400,0)=" .S HDR(""MESSAGE STRUCTURE"")=$P(VALUE,CS,3)"
^XMB(3.9,45,2,4401,0)="""RTN"",""HLOPRS"",104,0)"
^XMB(3.9,45,2,4402,0)=" .S HDR(""MESSAGE CONTROL ID"")=$P($P(HDR(2),FS,5),CS)"
^XMB(3.9,45,2,4403,0)="""RTN"",""HLOPRS"",105,0)"
^XMB(3.9,45,2,4404,0)=" .S VALUE=$P(HDR(2),FS,6)"
^XMB(3.9,45,2,4405,0)="""RTN"",""HLOPRS"",106,0)"
^XMB(3.9,45,2,4406,0)=" .S HDR(""PROCESSING ID"")=$P(VALUE,CS)"
^XMB(3.9,45,2,4407,0)="""RTN"",""HLOPRS"",107,0)"
^XMB(3.9,45,2,4408,0)=" .S HDR(""PROCESSING MODE"")=$P(VALUE,CS,2)"
^XMB(3.9,45,2,4409,0)="""RTN"",""HLOPRS"",108,0)"
^XMB(3.9,45,2,4410,0)=" .S HDR(""VERSION"")=$$DESCAPE^HLOPRS1($P($P(HDR(2),FS,7),CS),FS,CS,SUBCOMP,REP,ESCAPE)"
^XMB(3.9,45,2,4411,0)="""RTN"",""HLOPRS"",109,0)"
^XMB(3.9,45,2,4412,0)=" .S HDR(""CONTINUATION POINTER"")=$P($P(HDR(2),FS,9),CS)"
^XMB(3.9,45,2,4413,0)="""RTN"",""HLOPRS"",110,0)"
^XMB(3.9,45,2,4414,0)=" .S HDR(""ACCEPT ACK TYPE"")=$P($P(HDR(2),FS,10),CS)"
^XMB(3.9,45,2,4415,0)="""RTN"",""HLOPRS"",111,0)"
^XMB(3.9,45,2,4416,0)=" .S HDR(""APP ACK TYPE"")=$P($P(HDR(2),FS,11),CS)"
^XMB(3.9,45,2,4417,0)="""RTN"",""HLOPRS"",112,0)"
^XMB(3.9,45,2,4418,0)=" .S HDR(""COUNTRY"")=$P($P(HDR(2),FS,12),CS)"
^XMB(3.9,45,2,4419,0)="""RTN"",""HLOPRS"",113,0)"
^XMB(3.9,45,2,4420,0)=" ;"
^XMB(3.9,45,2,4421,0)="""RTN"",""HLOPRS"",114,0)"
^XMB(3.9,45,2,4422,0)=" I HDR(""SEGMENT TYPE"")=""BHS"" D"
^XMB(3.9,45,2,4423,0)="""RTN"",""HLOPRS"",115,0)"
^XMB(3.9,45,2,4424,0)=" .S VALUE=$P(HDR(2),FS,4)"
^XMB(3.9,45,2,4425,0)="""RTN"",""HLOPRS"",116,0)"
^XMB(3.9,45,2,4426,0)=" .S HDR(""BATCH NAME/ID/TYPE"")=$$DESCAPE^HLOPRS1(VALUE,FS,CS,SUBCOMP,REP,ESCAPE)"
^XMB(3.9,45,2,4427,0)="""RTN"",""HLOPRS"",117,0)"
^XMB(3.9,45,2,4428,0)=" .S HDR(""PROCESSING ID"")=$E($P(VALUE,""PROCESSING ID="",2),1)"
^XMB(3.9,45,2,4429,0)="""RTN"",""HLOPRS"",118,0)"
^XMB(3.9,45,2,4430,0)=" .S HDR(""ACCEPT ACK TYPE"")=$E($P(VALUE,""ACCEPT ACK TYPE="",2),1,2)"
^XMB(3.9,45,2,4431,0)="""RTN"",""HLOPRS"",119,0)"
^XMB(3.9,45,2,4432,0)=" .S HDR(""APP ACK TYPE"")=$E($P(VALUE,""APP ACK TYPE="",2),1,2)"
^XMB(3.9,45,2,4433,0)="""RTN"",""HLOPRS"",120,0)"
^XMB(3.9,45,2,4434,0)=" .S HDR(""BATCH COMMENT"")=$$DESCAPE^HLOPRS1($P(HDR(2),FS,5),FS,CS,SUBCOMP,REP,ESCAPE)"
^XMB(3.9,45,2,4435,0)="""RTN"",""HLOPRS"",121,0)"
^XMB(3.9,45,2,4436,0)=" .S HDR(""BATCH CONTROL ID"")=$P($P(HDR(2),FS,6),CS)"
^XMB(3.9,45,2,4437,0)="""RTN"",""HLOPRS"",122,0)"
^XMB(3.9,45,2,4438,0)=" .S HDR(""REFERENCE BATCH CONTROL ID"")=$P($P(HDR(2),FS,7),CS)"
^XMB(3.9,45,2,4439,0)="""RTN"",""HLOPRS"",123,0)"
^XMB(3.9,45,2,4440,0)=" .;"
^XMB(3.9,45,2,4441,0)="""RTN"",""HLOPRS"",124,0)"
^XMB(3.9,45,2,4442,0)=" Q 1"
^XMB(3.9,45,2,4443,0)="""RTN"",""HLOPRS"",125,0)"
^XMB(3.9,45,2,4444,0)=" ;"
^XMB(3.9,45,2,4445,0)="""RTN"",""HLOPRS"",126,0)"
^XMB(3.9,45,2,4446,0)="GET(SEG,FIELD,COMP,SUBCOMP,REP) ;"
^XMB(3.9,45,2,4447,0)="""RTN"",""HLOPRS"",127,0)"
^XMB(3.9,45,2,4448,0)=" ;This function gets a specified value from a segment that was parsed by"
^XMB(3.9,45,2,4449,0)="""RTN"",""HLOPRS"",128,0)"
^XMB(3.9,45,2,4450,0)=" ;$$NEXTSEG. The FIELD,COMP,SUBCOMP,REP parameters are optional - if not"
^XMB(3.9,45,2,4451,0)="""RTN"",""HLOPRS"",129,0)"
^XMB(3.9,45,2,4452,0)=" ;specified, they default to 1."
^XMB(3.9,45,2,4453,0)="""RTN"",""HLOPRS"",130,0)"
^XMB(3.9,45,2,4454,0)=" ;  Example:"
^XMB(3.9,45,2,4455,0)="""RTN"",""HLOPRS"",131,0)"
^XMB(3.9,45,2,4456,0)=" ;    $$GET^HLOPRS(.SEG,1) will return the value of the first field, first"
^XMB(3.9,45,2,4457,0)="""RTN"",""HLOPRS"",132,0)"
^XMB(3.9,45,2,4458,0)=" ;  component, first subcomponent, in the first occurrence of field #1.  "
^XMB(3.9,45,2,4459,0)="""RTN"",""HLOPRS"",133,0)"
^XMB(3.9,45,2,4460,0)=" ;Input:"
^XMB(3.9,45,2,4461,0)="""RTN"",""HLOPRS"",134,0)"
^XMB(3.9,45,2,4462,0)=" ;SEG - (required, pass by reference) - this is the array where the parsed segment was placed by $$NEXTSEG"
^XMB(3.9,45,2,4463,0)="""RTN"",""HLOPRS"",135,0)"
^XMB(3.9,45,2,4464,0)=" ;FIELD - the sequence # of the field (optional, defaults to 1)"
^XMB(3.9,45,2,4465,0)="""RTN"",""HLOPRS"",136,0)"
^XMB(3.9,45,2,4466,0)=" ;COMP - the # of the component (optional, defaults to 1)"
^XMB(3.9,45,2,4467,0)="""RTN"",""HLOPRS"",137,0)"
^XMB(3.9,45,2,4468,0)=" ;SUBCOMP - the # of the subcomponent (optional, defaults to 1)"
^XMB(3.9,45,2,4469,0)="""RTN"",""HLOPRS"",138,0)"
^XMB(3.9,45,2,4470,0)=" ;REP - the occurrence# (optional, defaults to 1)  For a non-repeating field, the occurrence # need not be provided, because it would be 1."
^XMB(3.9,45,2,4471,0)="""RTN"",""HLOPRS"",139,0)"
^XMB(3.9,45,2,4472,0)=" ;Output:"
^XMB(3.9,45,2,4473,0)="""RTN"",""HLOPRS"",140,0)"
^XMB(3.9,45,2,4474,0)=" ;  Function returns the requested value on success, """" if not valued."
^XMB(3.9,45,2,4475,0)="""RTN"",""HLOPRS"",141,0)"
^XMB(3.9,45,2,4476,0)=" ;"
^XMB(3.9,45,2,4477,0)="""RTN"",""HLOPRS"",142,0)"
^XMB(3.9,45,2,4478,0)=" ;allow the segment type to be obtained via field #0 (shorthand)"
^XMB(3.9,45,2,4479,0)="""RTN"",""HLOPRS"",143,0)"
^XMB(3.9,45,2,4480,0)=" I $D(FIELD),$G(FIELD)=0 Q $G(SEG(""SEGMENT TYPE""))"
^XMB(3.9,45,2,4481,0)="""RTN"",""HLOPRS"",144,0)"
^XMB(3.9,45,2,4482,0)=" S:'$G(FIELD) FIELD=1"
^XMB(3.9,45,2,4483,0)="""RTN"",""HLOPRS"",145,0)"
^XMB(3.9,45,2,4484,0)=" ;"
^XMB(3.9,45,2,4485,0)="""RTN"",""HLOPRS"",146,0)"
^XMB(3.9,45,2,4486,0)=" ;for MSH or BHS, SEQ#1 is the  field separator"
^XMB(3.9,45,2,4487,0)="""RTN"",""HLOPRS"",147,0)"
^XMB(3.9,45,2,4488,0)=" I FIELD=1,$G(SEG(""SEGMENT TYPE""))=""MSH""!($G(SEG(""SEGMENT TYPE""))=""BHS""),$G(REP)<2,$G(COMP)<2,$G(SUBCOMP)<2 Q SEG(""FIELD SEPARATOR"")"
^XMB(3.9,45,2,4489,0)="""RTN"",""HLOPRS"",148,0)"
^XMB(3.9,45,2,4490,0)=" I FIELD=1,$G(SEG(""SEGMENT TYPE""))=""MSH""!($G(SEG(""SEGMENT TYPE""))=""BHS"") Q """""
^XMB(3.9,45,2,4491,0)="""RTN"",""HLOPRS"",149,0)"
^XMB(3.9,45,2,4492,0)=" ;"
^XMB(3.9,45,2,4493,0)="""RTN"",""HLOPRS"",150,0)"
^XMB(3.9,45,2,4494,0)=" ;For segments other than MSH or BHS, the first subscript in the SEG array needs to be incremented by 1, because SEG(1,1,1,1) is taken by the segment type, which technically isn't a field. (for convenience,we call it SEQ=0).  "
^XMB(3.9,45,2,4495,0)="""RTN"",""HLOPRS"",151,0)"
^XMB(3.9,45,2,4496,0)=" I $G(SEG(""SEGMENT TYPE""))'=""BHS"",$G(SEG(""SEGMENT TYPE""))'=""MSH"" S FIELD=FIELD+1"
^XMB(3.9,45,2,4497,0)="""RTN"",""HLOPRS"",152,0)"
^XMB(3.9,45,2,4498,0)=" S:'$G(COMP) COMP=1"
^XMB(3.9,45,2,4499,0)="""RTN"",""HLOPRS"",153,0)"
^XMB(3.9,45,2,4500,0)=" S:'$G(SUBCOMP) SUBCOMP=1"
^XMB(3.9,45,2,4501,0)="""RTN"",""HLOPRS"",154,0)"
^XMB(3.9,45,2,4502,0)=" S:'$G(REP) REP=1"
^XMB(3.9,45,2,4503,0)="""RTN"",""HLOPRS"",155,0)"
^XMB(3.9,45,2,4504,0)=" Q $G(SEG(FIELD,REP,COMP,SUBCOMP))"
^XMB(3.9,45,2,4505,0)="""RTN"",""HLOPRS"",156,0)"
^XMB(3.9,45,2,4506,0)=" ;"
^XMB(3.9,45,2,4507,0)="""RTN"",""HLOPRS1"")"
^XMB(3.9,45,2,4508,0)="0^18^B19727557^B19358044"
^XMB(3.9,45,2,4509,0)="""RTN"",""HLOPRS1"",1,0)"
^XMB(3.9,45,2,4510,0)="HLOPRS1 ;IRMFO-ALB/CJM -RTNs for parsing messages (continued);03/24/2004  14:43 ;09/13/2006"
^XMB(3.9,45,2,4511,0)="""RTN"",""HLOPRS1"",2,0)"
^XMB(3.9,45,2,4512,0)=" ;;1.6;HEALTH LEVEL SEVEN;**118,131,133**;Oct 13, 1995;Build 13"
^XMB(3.9,45,2,4513,0)="""RTN"",""HLOPRS1"",3,0)"
^XMB(3.9,45,2,4514,0)=" ;Per VHA Directive 2004-038, this routine should not be modified."
^XMB(3.9,45,2,4515,0)="""RTN"",""HLOPRS1"",4,0)"
^XMB(3.9,45,2,4516,0)=" ;"
^XMB(3.9,45,2,4517,0)="""RTN"",""HLOPRS1"",5,0)"
^XMB(3.9,45,2,4518,0)="PARSE(FIELD,REP,COMP,SUBCOMP,ESCAPE,SEG,TO) ;"
^XMB(3.9,45,2,4519,0)="""RTN"",""HLOPRS1"",6,0)"
^XMB(3.9,45,2,4520,0)=" ;Parses the segment stored in SEG(1),SEG(2),... into TO()"
^XMB(3.9,45,2,4521,0)="""RTN"",""HLOPRS1"",7,0)"
^XMB(3.9,45,2,4522,0)=" ;Input:"
^XMB(3.9,45,2,4523,0)="""RTN"",""HLOPRS1"",8,0)"
^XMB(3.9,45,2,4524,0)=" ;  FIELD - field separator"
^XMB(3.9,45,2,4525,0)="""RTN"",""HLOPRS1"",9,0)"
^XMB(3.9,45,2,4526,0)=" ;  REP - field repetition separator"
^XMB(3.9,45,2,4527,0)="""RTN"",""HLOPRS1"",10,0)"
^XMB(3.9,45,2,4528,0)=" ;  COMP - component separator"
^XMB(3.9,45,2,4529,0)="""RTN"",""HLOPRS1"",11,0)"
^XMB(3.9,45,2,4530,0)=" ;  SUBCOMP - subcomponent separator"
^XMB(3.9,45,2,4531,0)="""RTN"",""HLOPRS1"",12,0)"
^XMB(3.9,45,2,4532,0)=" ;  ESCAPE - escape character"
^XMB(3.9,45,2,4533,0)="""RTN"",""HLOPRS1"",13,0)"
^XMB(3.9,45,2,4534,0)=" ;  SEG - (pass by reference) the array holding the unparsed segment."
^XMB(3.9,45,2,4535,0)="""RTN"",""HLOPRS1"",14,0)"
^XMB(3.9,45,2,4536,0)=" ;Output:"
^XMB(3.9,45,2,4537,0)="""RTN"",""HLOPRS1"",15,0)"
^XMB(3.9,45,2,4538,0)=" ;  Function returns 1 on success, 0 on failure"
^XMB(3.9,45,2,4539,0)="""RTN"",""HLOPRS1"",16,0)"
^XMB(3.9,45,2,4540,0)=" ;  TO - (pass by reference) - the parsed values"
^XMB(3.9,45,2,4541,0)="""RTN"",""HLOPRS1"",17,0)"
^XMB(3.9,45,2,4542,0)=" ;  SEG- This input variable is deleted during the processing.  If it is needs to be retained, pass in a copy!"
^XMB(3.9,45,2,4543,0)="""RTN"",""HLOPRS1"",18,0)"
^XMB(3.9,45,2,4544,0)=" ;"
^XMB(3.9,45,2,4545,0)="""RTN"",""HLOPRS1"",19,0)"
^XMB(3.9,45,2,4546,0)=" N VALUE,CHAR,COUNTS"
^XMB(3.9,45,2,4547,0)="""RTN"",""HLOPRS1"",20,0)"
^XMB(3.9,45,2,4548,0)=" K TO"
^XMB(3.9,45,2,4549,0)="""RTN"",""HLOPRS1"",21,0)"
^XMB(3.9,45,2,4550,0)=" Q:$L($G(FIELD))'=1 0"
^XMB(3.9,45,2,4551,0)="""RTN"",""HLOPRS1"",22,0)"
^XMB(3.9,45,2,4552,0)=" Q:$L($G(REP))'=1 0"
^XMB(3.9,45,2,4553,0)="""RTN"",""HLOPRS1"",23,0)"
^XMB(3.9,45,2,4554,0)=" Q:$L($G(COMP))'=1 0"
^XMB(3.9,45,2,4555,0)="""RTN"",""HLOPRS1"",24,0)"
^XMB(3.9,45,2,4556,0)=" Q:'$D(SUBCOMP) 0"
^XMB(3.9,45,2,4557,0)="""RTN"",""HLOPRS1"",25,0)"
^XMB(3.9,45,2,4558,0)=" Q:'$D(SEG) 0"
^XMB(3.9,45,2,4559,0)="""RTN"",""HLOPRS1"",26,0)"
^XMB(3.9,45,2,4560,0)=" S COUNTS(""FIELD"")=1"
^XMB(3.9,45,2,4561,0)="""RTN"",""HLOPRS1"",27,0)"
^XMB(3.9,45,2,4562,0)=" S COUNTS(""REP"")=1"
^XMB(3.9,45,2,4563,0)="""RTN"",""HLOPRS1"",28,0)"
^XMB(3.9,45,2,4564,0)=" S COUNTS(""COMP"")=1"
^XMB(3.9,45,2,4565,0)="""RTN"",""HLOPRS1"",29,0)"
^XMB(3.9,45,2,4566,0)=" S COUNTS(""SUBCOMP"")=1"
^XMB(3.9,45,2,4567,0)="""RTN"",""HLOPRS1"",30,0)"
^XMB(3.9,45,2,4568,0)=" S VALUE="""""
^XMB(3.9,45,2,4569,0)="""RTN"",""HLOPRS1"",31,0)"
^XMB(3.9,45,2,4570,0)=" S SEG(""LINE"")=$O(SEG(0)),SEG(""CHAR"")=0"
^XMB(3.9,45,2,4571,0)="""RTN"",""HLOPRS1"",32,0)"
^XMB(3.9,45,2,4572,0)=" F  S CHAR=$$NEXTCHAR(.SEG) D  Q:'$L(CHAR)"
^XMB(3.9,45,2,4573,0)="""RTN"",""HLOPRS1"",33,0)"
^XMB(3.9,45,2,4574,0)=" .I '$L(CHAR) D  Q"
^XMB(3.9,45,2,4575,0)="""RTN"",""HLOPRS1"",34,0)"
^XMB(3.9,45,2,4576,0)=" ..I $L(VALUE) S TO(COUNTS(""FIELD""),COUNTS(""REP""),COUNTS(""COMP""),COUNTS(""SUBCOMP""))=VALUE"
^XMB(3.9,45,2,4577,0)="""RTN"",""HLOPRS1"",35,0)"
^XMB(3.9,45,2,4578,0)=" .E  I CHAR=FIELD D  Q"
^XMB(3.9,45,2,4579,0)="""RTN"",""HLOPRS1"",36,0)"
^XMB(3.9,45,2,4580,0)=" ..I $L(VALUE) S TO(COUNTS(""FIELD""),COUNTS(""REP""),COUNTS(""COMP""),COUNTS(""SUBCOMP""))=$$DESCAPE(VALUE,.FIELD,.COMP,.SUBCOMP,.REP,.ESCAPE),VALUE="""""
^XMB(3.9,45,2,4581,0)="""RTN"",""HLOPRS1"",37,0)"
^XMB(3.9,45,2,4582,0)=" ..S COUNTS(""FIELD"")=COUNTS(""FIELD"")+1,COUNTS(""REP"")=1,COUNTS(""COMP"")=1,COUNTS(""SUBCOMP"")=1"
^XMB(3.9,45,2,4583,0)="""RTN"",""HLOPRS1"",38,0)"
^XMB(3.9,45,2,4584,0)=" .E  I CHAR=REP D  Q"
^XMB(3.9,45,2,4585,0)="""RTN"",""HLOPRS1"",39,0)"
^XMB(3.9,45,2,4586,0)=" ..I $L(VALUE) S TO(COUNTS(""FIELD""),COUNTS(""REP""),COUNTS(""COMP""),COUNTS(""SUBCOMP""))=$$DESCAPE(VALUE,.FIELD,.COMP,.SUBCOMP,.REP,.ESCAPE),VALUE="""""
^XMB(3.9,45,2,4587,0)="""RTN"",""HLOPRS1"",40,0)"
^XMB(3.9,45,2,4588,0)=" ..S COUNTS(""REP"")=COUNTS(""REP"")+1,COUNTS(""COMP"")=1,COUNTS(""SUBCOMP"")=1"
^XMB(3.9,45,2,4589,0)="""RTN"",""HLOPRS1"",41,0)"
^XMB(3.9,45,2,4590,0)=" .E  I CHAR=COMP D  Q"
^XMB(3.9,45,2,4591,0)="""RTN"",""HLOPRS1"",42,0)"
^XMB(3.9,45,2,4592,0)=" ..I $L(VALUE) S TO(COUNTS(""FIELD""),COUNTS(""REP""),COUNTS(""COMP""),COUNTS(""SUBCOMP""))=$$DESCAPE(VALUE,.FIELD,.COMP,.SUBCOMP,.REP,.ESCAPE),VALUE="""""
^XMB(3.9,45,2,4593,0)="""RTN"",""HLOPRS1"",43,0)"
^XMB(3.9,45,2,4594,0)=" ..S COUNTS(""COMP"")=COUNTS(""COMP"")+1,COUNTS(""SUBCOMP"")=1"
^XMB(3.9,45,2,4595,0)="""RTN"",""HLOPRS1"",44,0)"
^XMB(3.9,45,2,4596,0)=" .E  I CHAR=SUBCOMP D  Q"
^XMB(3.9,45,2,4597,0)="""RTN"",""HLOPRS1"",45,0)"
^XMB(3.9,45,2,4598,0)=" ..I $L(VALUE) S TO(COUNTS(""FIELD""),COUNTS(""REP""),COUNTS(""COMP""),COUNTS(""SUBCOMP""))=$$DESCAPE(VALUE,.FIELD,.COMP,.SUBCOMP,.REP,.ESCAPE),VALUE="""""
^XMB(3.9,45,2,4599,0)="""RTN"",""HLOPRS1"",46,0)"
^XMB(3.9,45,2,4600,0)=" ..S COUNTS(""SUBCOMP"")=COUNTS(""SUBCOMP"")+1"
^XMB(3.9,45,2,4601,0)="""RTN"",""HLOPRS1"",47,0)"
^XMB(3.9,45,2,4602,0)=" .E  S VALUE=VALUE_CHAR"
^XMB(3.9,45,2,4603,0)="""RTN"",""HLOPRS1"",48,0)"
^XMB(3.9,45,2,4604,0)=" S TO(""SEGMENT TYPE"")=$G(TO(1,1,1,1))"
^XMB(3.9,45,2,4605,0)="""RTN"",""HLOPRS1"",49,0)"
^XMB(3.9,45,2,4606,0)=" I (TO(""SEGMENT TYPE"")=""BHS"")!(TO(""SEGMENT TYPE"")=""MSH"") S TO(""FIELD SEPARATOR"")=FIELD"
^XMB(3.9,45,2,4607,0)="""RTN"",""HLOPRS1"",50,0)"
^XMB(3.9,45,2,4608,0)=" Q 1"
^XMB(3.9,45,2,4609,0)="""RTN"",""HLOPRS1"",51,0)"
^XMB(3.9,45,2,4610,0)=" ;"
^XMB(3.9,45,2,4611,0)="""RTN"",""HLOPRS1"",52,0)"
^XMB(3.9,45,2,4612,0)="NEXTCHAR(SEG) ;"
^XMB(3.9,45,2,4613,0)="""RTN"",""HLOPRS1"",53,0)"
^XMB(3.9,45,2,4614,0)=" ;returns the next character in the segment array"
^XMB(3.9,45,2,4615,0)="""RTN"",""HLOPRS1"",54,0)"
^XMB(3.9,45,2,4616,0)=" ;"
^XMB(3.9,45,2,4617,0)="""RTN"",""HLOPRS1"",55,0)"
^XMB(3.9,45,2,4618,0)=" Q:'SEG(""LINE"") """""
^XMB(3.9,45,2,4619,0)="""RTN"",""HLOPRS1"",56,0)"
^XMB(3.9,45,2,4620,0)=" N RET"
^XMB(3.9,45,2,4621,0)="""RTN"",""HLOPRS1"",57,0)"
^XMB(3.9,45,2,4622,0)=" S SEG(""CHAR"")=SEG(""CHAR"")+1"
^XMB(3.9,45,2,4623,0)="""RTN"",""HLOPRS1"",58,0)"
^XMB(3.9,45,2,4624,0)=" S RET=$E(SEG(SEG(""LINE"")),SEG(""CHAR""))"
^XMB(3.9,45,2,4625,0)="""RTN"",""HLOPRS1"",59,0)"
^XMB(3.9,45,2,4626,0)=" Q:RET]"""" RET"
^XMB(3.9,45,2,4627,0)="""RTN"",""HLOPRS1"",60,0)"
^XMB(3.9,45,2,4628,0)=" S SEG(""LINE"")=$O(SEG(SEG(""LINE"")))"
^XMB(3.9,45,2,4629,0)="""RTN"",""HLOPRS1"",61,0)"
^XMB(3.9,45,2,4630,0)=" I SEG(""LINE"") S SEG(""CHAR"")=1 Q $E(SEG(SEG(""LINE"")))"
^XMB(3.9,45,2,4631,0)="""RTN"",""HLOPRS1"",62,0)"
^XMB(3.9,45,2,4632,0)=" Q """""
^XMB(3.9,45,2,4633,0)="""RTN"",""HLOPRS1"",63,0)"
^XMB(3.9,45,2,4634,0)=" ;"
^XMB(3.9,45,2,4635,0)="""RTN"",""HLOPRS1"",64,0)"
^XMB(3.9,45,2,4636,0)="DESCAPE(VALUE,FIELD,COMP,SUBCOMP,REP,ESCAPE) ;"
^XMB(3.9,45,2,4637,0)="""RTN"",""HLOPRS1"",65,0)"
^XMB(3.9,45,2,4638,0)=" ;Replaces the escape sequences with the corresponding encoding character and returns the result as the function value"
^XMB(3.9,45,2,4639,0)="""RTN"",""HLOPRS1"",66,0)"
^XMB(3.9,45,2,4640,0)=" ;"
^XMB(3.9,45,2,4641,0)="""RTN"",""HLOPRS1"",67,0)"
^XMB(3.9,45,2,4642,0)=" Q:ESCAPE="""" VALUE"
^XMB(3.9,45,2,4643,0)="""RTN"",""HLOPRS1"",68,0)"
^XMB(3.9,45,2,4644,0)=" N NEWSTRNG,SUBSTRNG,SET,LEN,I,SUBLEN,CHAR"
^XMB(3.9,45,2,4645,0)="""RTN"",""HLOPRS1"",69,0)"
^XMB(3.9,45,2,4646,0)=" S (NEWSTRNG,SUBSTRNG,SUBLEN)="""""
^XMB(3.9,45,2,4647,0)="""RTN"",""HLOPRS1"",70,0)"
^XMB(3.9,45,2,4648,0)=" S SET=""FSTRE"""
^XMB(3.9,45,2,4649,0)="""RTN"",""HLOPRS1"",71,0)"
^XMB(3.9,45,2,4650,0)=" S LEN=$L(VALUE)"
^XMB(3.9,45,2,4651,0)="""RTN"",""HLOPRS1"",72,0)"
^XMB(3.9,45,2,4652,0)=" F I=1:1:LEN S SUBSTRNG=SUBSTRNG_$E(VALUE,I),SUBLEN=SUBLEN+1 D:SUBLEN=3"
^XMB(3.9,45,2,4653,0)="""RTN"",""HLOPRS1"",73,0)"
^XMB(3.9,45,2,4654,0)=" .S CHAR=$E(SUBSTRNG,2)"
^XMB(3.9,45,2,4655,0)="""RTN"",""HLOPRS1"",74,0)"
^XMB(3.9,45,2,4656,0)=" .I $E(SUBSTRNG,1)=ESCAPE,$E(SUBSTRNG,3)=ESCAPE,SET[CHAR D"
^XMB(3.9,45,2,4657,0)="""RTN"",""HLOPRS1"",75,0)"
^XMB(3.9,45,2,4658,0)=" ..I CHAR=""F"" S NEWSTRNG=NEWSTRNG_FIELD,SUBSTRNG="""",SUBLEN=0 Q"
^XMB(3.9,45,2,4659,0)="""RTN"",""HLOPRS1"",76,0)"
^XMB(3.9,45,2,4660,0)=" ..I CHAR=""S"" S NEWSTRNG=NEWSTRNG_COMP,SUBSTRNG="""",SUBLEN=0 Q"
^XMB(3.9,45,2,4661,0)="""RTN"",""HLOPRS1"",77,0)"
^XMB(3.9,45,2,4662,0)=" ..I CHAR=""T"" S NEWSTRNG=NEWSTRNG_SUBCOMP,SUBSTRNG="""",SUBLEN=0 Q"
^XMB(3.9,45,2,4663,0)="""RTN"",""HLOPRS1"",78,0)"
^XMB(3.9,45,2,4664,0)=" ..I CHAR=""R"" S NEWSTRNG=NEWSTRNG_REP,SUBSTRNG="""",SUBLEN=0 Q"
^XMB(3.9,45,2,4665,0)="""RTN"",""HLOPRS1"",79,0)"
^XMB(3.9,45,2,4666,0)=" ..I CHAR=""E"" S NEWSTRNG=NEWSTRNG_ESCAPE,SUBSTRNG="""",SUBLEN=0 Q"
^XMB(3.9,45,2,4667,0)="""RTN"",""HLOPRS1"",80,0)"
^XMB(3.9,45,2,4668,0)=" .E  S NEWSTRNG=NEWSTRNG_$E(SUBSTRNG),SUBSTRNG=$E(SUBSTRNG,2,3),SUBLEN=2"
^XMB(3.9,45,2,4669,0)="""RTN"",""HLOPRS1"",81,0)"
^XMB(3.9,45,2,4670,0)=" Q NEWSTRNG_SUBSTRNG"
^XMB(3.9,45,2,4671,0)="""RTN"",""HLOPRS1"",82,0)"
^XMB(3.9,45,2,4672,0)=" ;"
^XMB(3.9,45,2,4673,0)="""RTN"",""HLOPRS1"",83,0)"
^XMB(3.9,45,2,4674,0)="GETCODE(SEG,VALUE,FIELD,COMP,REP) ;"
^XMB(3.9,45,2,4675,0)="""RTN"",""HLOPRS1"",84,0)"
^XMB(3.9,45,2,4676,0)=" ;Implements GETCNE and GETCWE"
^XMB(3.9,45,2,4677,0)="""RTN"",""HLOPRS1"",85,0)"
^XMB(3.9,45,2,4678,0)=" ;"
^XMB(3.9,45,2,4679,0)="""RTN"",""HLOPRS1"",86,0)"
^XMB(3.9,45,2,4680,0)=" N SUB,VAR"
^XMB(3.9,45,2,4681,0)="""RTN"",""HLOPRS1"",87,0)"
^XMB(3.9,45,2,4682,0)=" Q:'$G(FIELD)"
^XMB(3.9,45,2,4683,0)="""RTN"",""HLOPRS1"",88,0)"
^XMB(3.9,45,2,4684,0)=" I '$G(COMP) D"
^XMB(3.9,45,2,4685,0)="""RTN"",""HLOPRS1"",89,0)"
^XMB(3.9,45,2,4686,0)=" .S VAR=""COMP"",SUB=1"
^XMB(3.9,45,2,4687,0)="""RTN"",""HLOPRS1"",90,0)"
^XMB(3.9,45,2,4688,0)=" E  D"
^XMB(3.9,45,2,4689,0)="""RTN"",""HLOPRS1"",91,0)"
^XMB(3.9,45,2,4690,0)=" .S VAR=""SUB"""
^XMB(3.9,45,2,4691,0)="""RTN"",""HLOPRS1"",92,0)"
^XMB(3.9,45,2,4692,0)=" S:'$G(REP) REP=1"
^XMB(3.9,45,2,4693,0)="""RTN"",""HLOPRS1"",93,0)"
^XMB(3.9,45,2,4694,0)=" S @VAR=1,VALUE(""ID"")=$$GET^HLOPRS(.SEG,FIELD,COMP,SUB,REP)"
^XMB(3.9,45,2,4695,0)="""RTN"",""HLOPRS1"",94,0)"
^XMB(3.9,45,2,4696,0)=" S @VAR=2,VALUE(""TEXT"")=$$GET^HLOPRS(.SEG,FIELD,COMP,SUB,REP)"
^XMB(3.9,45,2,4697,0)="""RTN"",""HLOPRS1"",95,0)"
^XMB(3.9,45,2,4698,0)=" S @VAR=3,VALUE(""SYSTEM"")=$$GET^HLOPRS(.SEG,FIELD,COMP,SUB,REP)"
^XMB(3.9,45,2,4699,0)="""RTN"",""HLOPRS1"",96,0)"
^XMB(3.9,45,2,4700,0)=" S @VAR=4,VALUE(""ALTERNATE ID"")=$$GET^HLOPRS(.SEG,FIELD,COMP,SUB,REP)"
^XMB(3.9,45,2,4701,0)="""RTN"",""HLOPRS1"",97,0)"
^XMB(3.9,45,2,4702,0)=" S @VAR=5,VALUE(""ALTERNATE TEXT"")=$$GET^HLOPRS(.SEG,FIELD,COMP,SUB,REP)"
^XMB(3.9,45,2,4703,0)="""RTN"",""HLOPRS1"",98,0)"
^XMB(3.9,45,2,4704,0)=" S @VAR=6,VALUE(""ALTERNATE SYSTEM"")=$$GET^HLOPRS(.SEG,FIELD,COMP,SUB,RE)"
^XMB(3.9,45,2,4705,0)="""RTN"",""HLOPRS1"",99,0)"
^XMB(3.9,45,2,4706,0)=" S @VAR=7,VALUE(""SYSTEM VERSION"")=$$GET^HLOPRS(.SEG,FIELD,COMP,SUB,REP)"
^XMB(3.9,45,2,4707,0)="""RTN"",""HLOPRS1"",100,0)"
^XMB(3.9,45,2,4708,0)=" S @VAR=8,VALUE(""ALTERNATE SYSTEM VERSION"")=$$GET^HLOPRS(.SEG,FIELD,COM)"
^XMB(3.9,45,2,4709,0)="""RTN"",""HLOPRS1"",101,0)"
^XMB(3.9,45,2,4710,0)=" S @VAR=9,VALUE(""ORIGINAL TEXT"")=$$GET^HLOPRS(.SEG,FIELD,COMP,SUB,REP)"
^XMB(3.9,45,2,4711,0)="""RTN"",""HLOPRS1"",102,0)"
^XMB(3.9,45,2,4712,0)=" Q"
^XMB(3.9,45,2,4713,0)="""RTN"",""HLOSRVR1"")"
^XMB(3.9,45,2,4714,0)="0^22^B60360938^B63396021"
^XMB(3.9,45,2,4715,0)="""RTN"",""HLOSRVR1"",1,0)"
^XMB(3.9,45,2,4716,0)="HLOSRVR1 ;IRMFO-ALB/CJM - Reading messages, sending acks;03/24/2004  14:43 ;09/13/2006"
^XMB(3.9,45,2,4717,0)="""RTN"",""HLOSRVR1"",2,0)"
^XMB(3.9,45,2,4718,0)=" ;;1.6;HEALTH LEVEL SEVEN;**126,130,131,133**;Oct 13, 1995;Build 13"
^XMB(3.9,45,2,4719,0)="""RTN"",""HLOSRVR1"",3,0)"
^XMB(3.9,45,2,4720,0)=" ;Per VHA Directive 2004-038, this routine should not be modified."
^XMB(3.9,45,2,4721,0)="""RTN"",""HLOSRVR1"",4,0)"
^XMB(3.9,45,2,4722,0)=" ;"
^XMB(3.9,45,2,4723,0)="""RTN"",""HLOSRVR1"",5,0)"
^XMB(3.9,45,2,4724,0)="READMSG(HLCSTATE,HLMSTATE) ;"
^XMB(3.9,45,2,4725,0)="""RTN"",""HLOSRVR1"",6,0)"
^XMB(3.9,45,2,4726,0)=" ;This function uses the services provided by the transport layer to receive a message.  The header is parsed. Does these checks:"
^XMB(3.9,45,2,4727,0)="""RTN"",""HLOSRVR1"",7,0)"
^XMB(3.9,45,2,4728,0)=" ; 1) Duplicate?"
^XMB(3.9,45,2,4729,0)="""RTN"",""HLOSRVR1"",8,0)"
^XMB(3.9,45,2,4730,0)=" ; 2) Wrong Receiving Facility?"
^XMB(3.9,45,2,4731,0)="""RTN"",""HLOSRVR1"",9,0)"
^XMB(3.9,45,2,4732,0)=" ; 3) Can the Receiving App accept this message, based message type & event?"
^XMB(3.9,45,2,4733,0)="""RTN"",""HLOSRVR1"",10,0)"
^XMB(3.9,45,2,4734,0)=" ; 4) Processing ID must match the receiving system"
^XMB(3.9,45,2,4735,0)="""RTN"",""HLOSRVR1"",11,0)"
^XMB(3.9,45,2,4736,0)=" ; 5) Must have an ID"
^XMB(3.9,45,2,4737,0)="""RTN"",""HLOSRVR1"",12,0)"
^XMB(3.9,45,2,4738,0)=" ; 6) Header must be BHS or MSH"
^XMB(3.9,45,2,4739,0)="""RTN"",""HLOSRVR1"",13,0)"
^XMB(3.9,45,2,4740,0)=" ;"
^XMB(3.9,45,2,4741,0)="""RTN"",""HLOSRVR1"",14,0)"
^XMB(3.9,45,2,4742,0)=" ;Output:"
^XMB(3.9,45,2,4743,0)="""RTN"",""HLOSRVR1"",15,0)"
^XMB(3.9,45,2,4744,0)=" ;  Function returns 1 if the message was read fully, 0 otherwise"
^XMB(3.9,45,2,4745,0)="""RTN"",""HLOSRVR1"",16,0)"
^XMB(3.9,45,2,4746,0)=" ;  HLMSTATE (pass by reference) the message.  It will include the fields for the return ack in HLMSTATE(""MSA"")"
^XMB(3.9,45,2,4747,0)="""RTN"",""HLOSRVR1"",17,0)"
^XMB(3.9,45,2,4748,0)=" ;"
^XMB(3.9,45,2,4749,0)="""RTN"",""HLOSRVR1"",18,0)"
^XMB(3.9,45,2,4750,0)=" N ACK,SEG,STORE,I"
^XMB(3.9,45,2,4751,0)="""RTN"",""HLOSRVR1"",19,0)"
^XMB(3.9,45,2,4752,0)=" ;"
^XMB(3.9,45,2,4753,0)="""RTN"",""HLOSRVR1"",20,0)"
^XMB(3.9,45,2,4754,0)=" S STORE=1"
^XMB(3.9,45,2,4755,0)="""RTN"",""HLOSRVR1"",21,0)"
^XMB(3.9,45,2,4756,0)=" Q:'$$READHDR^HLOT(.HLCSTATE,.SEG) 0"
^XMB(3.9,45,2,4757,0)="""RTN"",""HLOSRVR1"",22,0)"
^XMB(3.9,45,2,4758,0)=" D SPLITHDR(.SEG)"
^XMB(3.9,45,2,4759,0)="""RTN"",""HLOSRVR1"",23,0)"
^XMB(3.9,45,2,4760,0)=" ;"
^XMB(3.9,45,2,4761,0)="""RTN"",""HLOSRVR1"",24,0)"
^XMB(3.9,45,2,4762,0)=" ;parse the header, stop if unsuccessful because the server cannot know what to do next"
^XMB(3.9,45,2,4763,0)="""RTN"",""HLOSRVR1"",25,0)"
^XMB(3.9,45,2,4764,0)=" I '$$PARSEHDR^HLOPRS(.SEG) D  Q 0"
^XMB(3.9,45,2,4765,0)="""RTN"",""HLOSRVR1"",26,0)"
^XMB(3.9,45,2,4766,0)=" .S HLCSTATE(""MESSAGE ENDED"")=0"
^XMB(3.9,45,2,4767,0)="""RTN"",""HLOSRVR1"",27,0)"
^XMB(3.9,45,2,4768,0)=" .D CLOSE^HLOT(.HLCSTATE)"
^XMB(3.9,45,2,4769,0)="""RTN"",""HLOSRVR1"",28,0)"
^XMB(3.9,45,2,4770,0)=" D NEWMSG^HLOSRVR2(.HLCSTATE,.HLMSTATE,.SEG)"
^XMB(3.9,45,2,4771,0)="""RTN"",""HLOSRVR1"",29,0)"
^XMB(3.9,45,2,4772,0)=" I HLMSTATE(""ID"")="""" D"
^XMB(3.9,45,2,4773,0)="""RTN"",""HLOSRVR1"",30,0)"
^XMB(3.9,45,2,4774,0)=" .S STORE=0"
^XMB(3.9,45,2,4775,0)="""RTN"",""HLOSRVR1"",31,0)"
^XMB(3.9,45,2,4776,0)=" .I HLMSTATE(""HDR"",""ACCEPT ACK TYPE"")=""AL"" S HLMSTATE(""MSA"",1)=""CE"",HLMSTATE(""MSA"",3)=""CONTROL ID MISSING"""
^XMB(3.9,45,2,4777,0)="""RTN"",""HLOSRVR1"",32,0)"
^XMB(3.9,45,2,4778,0)=" I STORE,$$DUP(.HLMSTATE) S STORE=0"
^XMB(3.9,45,2,4779,0)="""RTN"",""HLOSRVR1"",33,0)"
^XMB(3.9,45,2,4780,0)=" ;"
^XMB(3.9,45,2,4781,0)="""RTN"",""HLOSRVR1"",34,0)"
^XMB(3.9,45,2,4782,0)=" ;if the message is not to be stored, just read it and discard the segments"
^XMB(3.9,45,2,4783,0)="""RTN"",""HLOSRVR1"",35,0)"
^XMB(3.9,45,2,4784,0)=" I 'STORE D"
^XMB(3.9,45,2,4785,0)="""RTN"",""HLOSRVR1"",36,0)"
^XMB(3.9,45,2,4786,0)=" .F  Q:'$$READSEG^HLOT(.HLCSTATE,.SEG)"
^XMB(3.9,45,2,4787,0)="""RTN"",""HLOSRVR1"",37,0)"
^XMB(3.9,45,2,4788,0)=" ;"
^XMB(3.9,45,2,4789,0)="""RTN"",""HLOSRVR1"",38,0)"
^XMB(3.9,45,2,4790,0)=" ;else the message is to be stored"
^XMB(3.9,45,2,4791,0)="""RTN"",""HLOSRVR1"",39,0)"
^XMB(3.9,45,2,4792,0)=" E  D"
^XMB(3.9,45,2,4793,0)="""RTN"",""HLOSRVR1"",40,0)"
^XMB(3.9,45,2,4794,0)=" .N FS"
^XMB(3.9,45,2,4795,0)="""RTN"",""HLOSRVR1"",41,0)"
^XMB(3.9,45,2,4796,0)=" .S FS=HLMSTATE(""HDR"",""FIELD SEPARATOR"")"
^XMB(3.9,45,2,4797,0)="""RTN"",""HLOSRVR1"",42,0)"
^XMB(3.9,45,2,4798,0)=" .F  Q:'$$READSEG^HLOT(.HLCSTATE,.SEG)  D"
^XMB(3.9,45,2,4799,0)="""RTN"",""HLOSRVR1"",43,0)"
^XMB(3.9,45,2,4800,0)=" ..N MSA,SEGTYPE,OLDMSGID,CODE,IEN,NEWMSGID"
^XMB(3.9,45,2,4801,0)="""RTN"",""HLOSRVR1"",44,0)"
^XMB(3.9,45,2,4802,0)=" ..S SEGTYPE=$E($E(SEG(1),1,3)_$E($G(SEG(2)),1,2),1,3)"
^XMB(3.9,45,2,4803,0)="""RTN"",""HLOSRVR1"",45,0)"
^XMB(3.9,45,2,4804,0)=" ..I SEGTYPE=""MSA"" D"
^XMB(3.9,45,2,4805,0)="""RTN"",""HLOSRVR1"",46,0)"
^XMB(3.9,45,2,4806,0)=" ...S MSA=SEG(1)_$G(SEG(2))_$G(SEG(3))"
^XMB(3.9,45,2,4807,0)="""RTN"",""HLOSRVR1"",47,0)"
^XMB(3.9,45,2,4808,0)=" ...S OLDMSGID=$P(MSA,FS,3),CODE=$P(MSA,FS,2)"
^XMB(3.9,45,2,4809,0)="""RTN"",""HLOSRVR1"",48,0)"
^XMB(3.9,45,2,4810,0)=" ...I $E(CODE,1)'=""A"" S SEGTYPE="""" Q"
^XMB(3.9,45,2,4811,0)="""RTN"",""HLOSRVR1"",49,0)"
^XMB(3.9,45,2,4812,0)=" ...S:$P(OLDMSGID,""-"")]"""" IEN=$O(^HLB(""B"",$P(OLDMSGID,""-""),0))"
^XMB(3.9,45,2,4813,0)="""RTN"",""HLOSRVR1"",50,0)"
^XMB(3.9,45,2,4814,0)=" ...S:$G(IEN) IEN=IEN_""^""_$P(OLDMSGID,""-"",2)"
^XMB(3.9,45,2,4815,0)="""RTN"",""HLOSRVR1"",51,0)"
^XMB(3.9,45,2,4816,0)=" ..I 'HLMSTATE(""BATCH"") D"
^XMB(3.9,45,2,4817,0)="""RTN"",""HLOSRVR1"",52,0)"
^XMB(3.9,45,2,4818,0)=" ...D:SEGTYPE=""MSA"""
^XMB(3.9,45,2,4819,0)="""RTN"",""HLOSRVR1"",53,0)"
^XMB(3.9,45,2,4820,0)=" ....S HLMSTATE(""ACK TO"")=OLDMSGID"
^XMB(3.9,45,2,4821,0)="""RTN"",""HLOSRVR1"",54,0)"
^XMB(3.9,45,2,4822,0)=" ....S HLMSTATE(""ACK TO"",""ACK BY"")=HLMSTATE(""ID"")"
^XMB(3.9,45,2,4823,0)="""RTN"",""HLOSRVR1"",55,0)"
^XMB(3.9,45,2,4824,0)=" ....S HLMSTATE(""ACK TO"",""STATUS"")=$S(CODE=""AA"":""SU"",1:""AE"")"
^XMB(3.9,45,2,4825,0)="""RTN"",""HLOSRVR1"",56,0)"
^XMB(3.9,45,2,4826,0)=" ....S:$D(IEN) HLMSTATE(""ACK TO"",""IEN"")=IEN"
^XMB(3.9,45,2,4827,0)="""RTN"",""HLOSRVR1"",57,0)"
^XMB(3.9,45,2,4828,0)=" ...D ADDSEG^HLOMSG(.HLMSTATE,.SEG)"
^XMB(3.9,45,2,4829,0)="""RTN"",""HLOSRVR1"",58,0)"
^XMB(3.9,45,2,4830,0)=" ..E  D  ;batch"
^XMB(3.9,45,2,4831,0)="""RTN"",""HLOSRVR1"",59,0)"
^XMB(3.9,45,2,4832,0)=" ...I SEGTYPE=""MSH"" D"
^XMB(3.9,45,2,4833,0)="""RTN"",""HLOSRVR1"",60,0)"
^XMB(3.9,45,2,4834,0)=" ....D SPLITHDR(.SEG)"
^XMB(3.9,45,2,4835,0)="""RTN"",""HLOSRVR1"",61,0)"
^XMB(3.9,45,2,4836,0)=" ....S NEWMSGID=$P(SEG(2),FS,5)"
^XMB(3.9,45,2,4837,0)="""RTN"",""HLOSRVR1"",62,0)"
^XMB(3.9,45,2,4838,0)=" ....D ADDMSG2^HLOMSG(.HLMSTATE,.SEG)"
^XMB(3.9,45,2,4839,0)="""RTN"",""HLOSRVR1"",63,0)"
^XMB(3.9,45,2,4840,0)=" ...E  D  ;not MSH"
^XMB(3.9,45,2,4841,0)="""RTN"",""HLOSRVR1"",64,0)"
^XMB(3.9,45,2,4842,0)=" ....D:SEGTYPE=""MSA"""
^XMB(3.9,45,2,4843,0)="""RTN"",""HLOSRVR1"",65,0)"
^XMB(3.9,45,2,4844,0)=" .....N SUBIEN S SUBIEN=HLMSTATE(""BATCH"",""CURRENT MESSAGE"")"
^XMB(3.9,45,2,4845,0)="""RTN"",""HLOSRVR1"",66,0)"
^XMB(3.9,45,2,4846,0)=" .....S HLMSTATE(""BATCH"",""ACK TO"",SUBIEN)=OLDMSGID"
^XMB(3.9,45,2,4847,0)="""RTN"",""HLOSRVR1"",67,0)"
^XMB(3.9,45,2,4848,0)=" .....S HLMSTATE(""BATCH"",""ACK TO"",SUBIEN,""ACK BY"")=NEWMSGID"
^XMB(3.9,45,2,4849,0)="""RTN"",""HLOSRVR1"",68,0)"
^XMB(3.9,45,2,4850,0)=" .....S HLMSTATE(""BATCH"",""ACK TO"",SUBIEN,""STATUS"")=$S(CODE=""AA"":""SU"",1:""AE"")"
^XMB(3.9,45,2,4851,0)="""RTN"",""HLOSRVR1"",69,0)"
^XMB(3.9,45,2,4852,0)=" .....S:$D(IEN) HLMSTATE(""BATCH"",""ACK TO"",SUBIEN,""IEN"")=IEN"
^XMB(3.9,45,2,4853,0)="""RTN"",""HLOSRVR1"",70,0)"
^XMB(3.9,45,2,4854,0)=" ....D ADDSEG^HLOMSG(.HLMSTATE,.SEG)"
^XMB(3.9,45,2,4855,0)="""RTN"",""HLOSRVR1"",71,0)"
^XMB(3.9,45,2,4856,0)=" .I HLMSTATE(""UNSTORED LINES""),HLCSTATE(""MESSAGE ENDED""),$$SAVEMSG^HLOF778(.HLMSTATE)"
^XMB(3.9,45,2,4857,0)="""RTN"",""HLOSRVR1"",72,0)"
^XMB(3.9,45,2,4858,0)=" ;"
^XMB(3.9,45,2,4859,0)="""RTN"",""HLOSRVR1"",73,0)"
^XMB(3.9,45,2,4860,0)=" I STORE,'HLCSTATE(""MESSAGE ENDED"") D"
^XMB(3.9,45,2,4861,0)="""RTN"",""HLOSRVR1"",74,0)"
^XMB(3.9,45,2,4862,0)=" .;reading failed before the end, there is no need to keep anything"
^XMB(3.9,45,2,4863,0)="""RTN"",""HLOSRVR1"",75,0)"
^XMB(3.9,45,2,4864,0)=" .D:HLMSTATE(""IEN"") DEL778(HLMSTATE(""IEN"")) D:HLMSTATE(""BODY"") DEL777(HLMSTATE(""BODY""))"
^XMB(3.9,45,2,4865,0)="""RTN"",""HLOSRVR1"",76,0)"
^XMB(3.9,45,2,4866,0)=" .S HLMSTATE(""IEN"")="""",HLMSTATE(""BODY"")="""""
^XMB(3.9,45,2,4867,0)="""RTN"",""HLOSRVR1"",77,0)"
^XMB(3.9,45,2,4868,0)=" E  D:STORE"
^XMB(3.9,45,2,4869,0)="""RTN"",""HLOSRVR1"",78,0)"
^XMB(3.9,45,2,4870,0)=" .D CHECKMSG(.HLMSTATE)"
^XMB(3.9,45,2,4871,0)="""RTN"",""HLOSRVR1"",79,0)"
^XMB(3.9,45,2,4872,0)=" .D ADDAC(.HLMSTATE) ;so that future duplicates can be detected"
^XMB(3.9,45,2,4873,0)="""RTN"",""HLOSRVR1"",80,0)"
^XMB(3.9,45,2,4874,0)=" .D COUNT^HLOSTAT(.HLCSTATE,HLMSTATE(""HDR"",""RECEIVING APPLICATION""),HLMSTATE(""HDR"",""SENDING APPLICATION""),$S(HLMSTATE(""BATCH""):""BATCH"",1:HLMSTATE(""HDR"",""MESSAGE TYPE"")_""~""_HLMSTATE(""HDR"",""EVENT"")))"
^XMB(3.9,45,2,4875,0)="""RTN"",""HLOSRVR1"",81,0)"
^XMB(3.9,45,2,4876,0)=" ;"
^XMB(3.9,45,2,4877,0)="""RTN"",""HLOSRVR1"",82,0)"
^XMB(3.9,45,2,4878,0)=" D:'HLCSTATE(""MESSAGE ENDED"") CLOSE^HLOT(.HLCSTATE)"
^XMB(3.9,45,2,4879,0)="""RTN"",""HLOSRVR1"",83,0)"
^XMB(3.9,45,2,4880,0)=" Q HLCSTATE(""MESSAGE ENDED"")"
^XMB(3.9,45,2,4881,0)="""RTN"",""HLOSRVR1"",84,0)"
^XMB(3.9,45,2,4882,0)=" ;"
^XMB(3.9,45,2,4883,0)="""RTN"",""HLOSRVR1"",85,0)"
^XMB(3.9,45,2,4884,0)="ADDAC(HLMSTATE) ;adds the AC xref for the message that was just received"
^XMB(3.9,45,2,4885,0)="""RTN"",""HLOSRVR1"",86,0)"
^XMB(3.9,45,2,4886,0)=" ;The AC xref allows duplicates to be detected."
^XMB(3.9,45,2,4887,0)="""RTN"",""HLOSRVR1"",87,0)"
^XMB(3.9,45,2,4888,0)=" ;"
^XMB(3.9,45,2,4889,0)="""RTN"",""HLOSRVR1"",88,0)"
^XMB(3.9,45,2,4890,0)=" N FROM"
^XMB(3.9,45,2,4891,0)="""RTN"",""HLOSRVR1"",89,0)"
^XMB(3.9,45,2,4892,0)=" S FROM=$S(HLMSTATE(""HDR"",""SENDING FACILITY"",2)]"""":HLMSTATE(""HDR"",""SENDING FACILITY"",2),1:HLMSTATE(""HDR"",""SENDING FACILITY"",1))"
^XMB(3.9,45,2,4893,0)="""RTN"",""HLOSRVR1"",90,0)"
^XMB(3.9,45,2,4894,0)=" S ^HLB(""AC"",FROM_HLMSTATE(""HDR"",""SENDING APPLICATION"")_HLMSTATE(""ID""),HLMSTATE(""IEN""))="""""
^XMB(3.9,45,2,4895,0)="""RTN"",""HLOSRVR1"",91,0)"
^XMB(3.9,45,2,4896,0)=" Q"
^XMB(3.9,45,2,4897,0)="""RTN"",""HLOSRVR1"",92,0)"
^XMB(3.9,45,2,4898,0)=" ;"
^XMB(3.9,45,2,4899,0)="""RTN"",""HLOSRVR1"",93,0)"
^XMB(3.9,45,2,4900,0)="DUP(HLMSTATE) ;"
^XMB(3.9,45,2,4901,0)="""RTN"",""HLOSRVR1"",94,0)"
^XMB(3.9,45,2,4902,0)=" ;Function returns 1 if the message is a duplicate and its ack (if requested) is found, 0 otherwise"
^XMB(3.9,45,2,4903,0)="""RTN"",""HLOSRVR1"",95,0)"
^XMB(3.9,45,2,4904,0)=" ;Input:"
^XMB(3.9,45,2,4905,0)="""RTN"",""HLOSRVR1"",96,0)"
^XMB(3.9,45,2,4906,0)=" ; HLMSTATE (pass by reference) the message being read"
^XMB(3.9,45,2,4907,0)="""RTN"",""HLOSRVR1"",97,0)"
^XMB(3.9,45,2,4908,0)=" ;Output:"
^XMB(3.9,45,2,4909,0)="""RTN"",""HLOSRVR1"",98,0)"
^XMB(3.9,45,2,4910,0)=" ;  Function returns 1 if the message is a duplicate, 0 otherwise"
^XMB(3.9,45,2,4911,0)="""RTN"",""HLOSRVR1"",99,0)"
^XMB(3.9,45,2,4912,0)=" ;  HLMSTATE (pass by reference) IF the message is a duplicate:"
^XMB(3.9,45,2,4913,0)="""RTN"",""HLOSRVR1"",100,0)"
^XMB(3.9,45,2,4914,0)=" ;     returns the prior MSA segment in HLMSTATE(""MSA"")"
^XMB(3.9,45,2,4915,0)="""RTN"",""HLOSRVR1"",101,0)"
^XMB(3.9,45,2,4916,0)=" ;!!!! put back if original mode implemented"
^XMB(3.9,45,2,4917,0)="""RTN"",""HLOSRVR1"",102,0)"
^XMB(3.9,45,2,4918,0)=" ;     If original mode returns the ien of the app ack in HLMSTATE(""ACK BY IEN"")"
^XMB(3.9,45,2,4919,0)="""RTN"",""HLOSRVR1"",103,0)"
^XMB(3.9,45,2,4920,0)=" ;"
^XMB(3.9,45,2,4921,0)="""RTN"",""HLOSRVR1"",104,0)"
^XMB(3.9,45,2,4922,0)=" N IEN,FROM,DUP"
^XMB(3.9,45,2,4923,0)="""RTN"",""HLOSRVR1"",105,0)"
^XMB(3.9,45,2,4924,0)=" S (IEN,DUP)=0"
^XMB(3.9,45,2,4925,0)="""RTN"",""HLOSRVR1"",106,0)"
^XMB(3.9,45,2,4926,0)=" ;"
^XMB(3.9,45,2,4927,0)="""RTN"",""HLOSRVR1"",107,0)"
^XMB(3.9,45,2,4928,0)=" ;no way to determine!  Bad header will be rejected"
^XMB(3.9,45,2,4929,0)="""RTN"",""HLOSRVR1"",108,0)"
^XMB(3.9,45,2,4930,0)=" Q:(HLMSTATE(""ID"")="""") 0"
^XMB(3.9,45,2,4931,0)="""RTN"",""HLOSRVR1"",109,0)"
^XMB(3.9,45,2,4932,0)=" ;"
^XMB(3.9,45,2,4933,0)="""RTN"",""HLOSRVR1"",110,0)"
^XMB(3.9,45,2,4934,0)=" S FROM=$S(HLMSTATE(""HDR"",""SENDING FACILITY"",2)]"""":HLMSTATE(""HDR"",""SENDING FACILITY"",2),1:HLMSTATE(""HDR"",""SENDING FACILITY"",1))"
^XMB(3.9,45,2,4935,0)="""RTN"",""HLOSRVR1"",111,0)"
^XMB(3.9,45,2,4936,0)=" F  S IEN=$O(^HLB(""AC"",FROM_HLMSTATE(""HDR"",""SENDING APPLICATION"")_HLMSTATE(""ID""),IEN)) Q:'IEN  D  Q:DUP"
^XMB(3.9,45,2,4937,0)="""RTN"",""HLOSRVR1"",112,0)"
^XMB(3.9,45,2,4938,0)=" .I HLMSTATE(""HDR"",""ACCEPT ACK TYPE"")=""NE"" S DUP=1 Q"
^XMB(3.9,45,2,4939,0)="""RTN"",""HLOSRVR1"",113,0)"
^XMB(3.9,45,2,4940,0)=" .;need the MSA to return"
^XMB(3.9,45,2,4941,0)="""RTN"",""HLOSRVR1"",114,0)"
^XMB(3.9,45,2,4942,0)=" .D  Q"
^XMB(3.9,45,2,4943,0)="""RTN"",""HLOSRVR1"",115,0)"
^XMB(3.9,45,2,4944,0)=" ..N NODE"
^XMB(3.9,45,2,4945,0)="""RTN"",""HLOSRVR1"",116,0)"
^XMB(3.9,45,2,4946,0)=" ..S NODE=$P($G(^HLB(IEN,4)),""^"",3,10)"
^XMB(3.9,45,2,4947,0)="""RTN"",""HLOSRVR1"",117,0)"
^XMB(3.9,45,2,4948,0)=" ..S HLMSTATE(""MSA"",1)=$P(NODE,""|"",2)"
^XMB(3.9,45,2,4949,0)="""RTN"",""HLOSRVR1"",118,0)"
^XMB(3.9,45,2,4950,0)=" ..Q:$L(HLMSTATE(""MSA"",1))'=2"
^XMB(3.9,45,2,4951,0)="""RTN"",""HLOSRVR1"",119,0)"
^XMB(3.9,45,2,4952,0)=" ..S HLMSTATE(""MSA"",2)=$P(NODE,""|"",3)"
^XMB(3.9,45,2,4953,0)="""RTN"",""HLOSRVR1"",120,0)"
^XMB(3.9,45,2,4954,0)=" ..S HLMSTATE(""MSA"",3)=$P(NODE,""|"",4,10)"
^XMB(3.9,45,2,4955,0)="""RTN"",""HLOSRVR1"",121,0)"
^XMB(3.9,45,2,4956,0)=" ..S DUP=1"
^XMB(3.9,45,2,4957,0)="""RTN"",""HLOSRVR1"",122,0)"
^XMB(3.9,45,2,4958,0)=" ;"
^XMB(3.9,45,2,4959,0)="""RTN"",""HLOSRVR1"",123,0)"
^XMB(3.9,45,2,4960,0)=" Q DUP"
^XMB(3.9,45,2,4961,0)="""RTN"",""HLOSRVR1"",124,0)"
^XMB(3.9,45,2,4962,0)=" ;"
^XMB(3.9,45,2,4963,0)="""RTN"",""HLOSRVR1"",125,0)"
^XMB(3.9,45,2,4964,0)="CHECKMSG(HLMSTATE) ;"
^XMB(3.9,45,2,4965,0)="""RTN"",""HLOSRVR1"",126,0)"
^XMB(3.9,45,2,4966,0)=" ;Checks the header & MSA segment, sets HLMSTATE(""STATUS"",""ACTION"") if the message needs to be passed, determines if completion status should be set"
^XMB(3.9,45,2,4967,0)="""RTN"",""HLOSRVR1"",127,0)"
^XMB(3.9,45,2,4968,0)=" ;Input:"
^XMB(3.9,45,2,4969,0)="""RTN"",""HLOSRVR1"",128,0)"
^XMB(3.9,45,2,4970,0)=" ;  HLMSTATE(""HDR"") - the parsed header segment"
^XMB(3.9,45,2,4971,0)="""RTN"",""HLOSRVR1"",129,0)"
^XMB(3.9,45,2,4972,0)=" ;Output:"
^XMB(3.9,45,2,4973,0)="""RTN"",""HLOSRVR1"",130,0)"
^XMB(3.9,45,2,4974,0)=" ;  HLMSTATE(""STATUS"")=""SE"" if an error is detected"
^XMB(3.9,45,2,4975,0)="""RTN"",""HLOSRVR1"",131,0)"
^XMB(3.9,45,2,4976,0)=" ;  HLMSTATE(""STATUS"",""QUEUE"") queue to put the message on"
^XMB(3.9,45,2,4977,0)="""RTN"",""HLOSRVR1"",132,0)"
^XMB(3.9,45,2,4978,0)=" ;  HLMSTATE(""STATUS"",""ACTION"")  <tag^rtn> that is the processing routine for the receiving application"
^XMB(3.9,45,2,4979,0)="""RTN"",""HLOSRVR1"",133,0)"
^XMB(3.9,45,2,4980,0)=" ;  HLMSTATE(""MSA"") - MSA(1)=accept code to be returned, MSA(3)= error txt"
^XMB(3.9,45,2,4981,0)="""RTN"",""HLOSRVR1"",134,0)"
^XMB(3.9,45,2,4982,0)=" ;"
^XMB(3.9,45,2,4983,0)="""RTN"",""HLOSRVR1"",135,0)"
^XMB(3.9,45,2,4984,0)=" N WANTACK,PASS,ACTION,QUEUE"
^XMB(3.9,45,2,4985,0)="""RTN"",""HLOSRVR1"",136,0)"
^XMB(3.9,45,2,4986,0)=" M HDR=HLMSTATE(""HDR"")"
^XMB(3.9,45,2,4987,0)="""RTN"",""HLOSRVR1"",137,0)"
^XMB(3.9,45,2,4988,0)=" I HDR(""ACCEPT ACK TYPE"")=""NE"",'HLMSTATE(""ORIGINAL MODE"") D"
^XMB(3.9,45,2,4989,0)="""RTN"",""HLOSRVR1"",138,0)"
^XMB(3.9,45,2,4990,0)=" .S WANTACK=0"
^XMB(3.9,45,2,4991,0)="""RTN"",""HLOSRVR1"",139,0)"
^XMB(3.9,45,2,4992,0)=" E  D"
^XMB(3.9,45,2,4993,0)="""RTN"",""HLOSRVR1"",140,0)"
^XMB(3.9,45,2,4994,0)=" .S WANTACK=1"
^XMB(3.9,45,2,4995,0)="""RTN"",""HLOSRVR1"",141,0)"
^XMB(3.9,45,2,4996,0)=" I HLMSTATE(""ORIGINAL MODE"") S HLMSTATE(""MSA"",1)=""AE"",HLMSTATE(""MSA"",3)=""THIS INTERFACE DOES NOT IMPLEMENT ORIGINAL MODE APPLICATION ACKOWLEDGMENTS"",HLMSTATE(""STATUS"")=""SE"" Q"
^XMB(3.9,45,2,4997,0)="""RTN"",""HLOSRVR1"",142,0)"
^XMB(3.9,45,2,4998,0)=" I '$$ACTION^HLOAPP(.HDR,.ACTION,.QUEUE),$G(HLMSTATE(""ACK TO""))="""" S:WANTACK HLMSTATE(""MSA"",1)=""CR"" S HLMSTATE(""MSA"",3)=""RECEIVING APPLICATION NOT DEFINED"",HLMSTATE(""STATUS"")=""SE"" Q"
^XMB(3.9,45,2,4999,0)="""RTN"",""HLOSRVR1"",143,0)"
^XMB(3.9,45,2,5000,0)=" S HLMSTATE(""STATUS"",""ACTION"")=$G(ACTION),HLMSTATE(""STATUS"",""QUEUE"")=$G(QUEUE)"
^XMB(3.9,45,2,5001,0)="""RTN"",""HLOSRVR1"",144,0)"
^XMB(3.9,45,2,5002,0)=" ;"
^XMB(3.9,45,2,5003,0)="""RTN"",""HLOSRVR1"",145,0)"
^XMB(3.9,45,2,5004,0)=" ;If this is an application ack, does the original message exist?"
^XMB(3.9,45,2,5005,0)="""RTN"",""HLOSRVR1"",146,0)"
^XMB(3.9,45,2,5006,0)=" I $G(HLMSTATE(""ACK TO""))]"""" D  Q:HLMSTATE(""STATUS"")=""SE"""
^XMB(3.9,45,2,5007,0)="""RTN"",""HLOSRVR1"",147,0)"
^XMB(3.9,45,2,5008,0)=" .N NODE"
^XMB(3.9,45,2,5009,0)="""RTN"",""HLOSRVR1"",148,0)"
^XMB(3.9,45,2,5010,0)=" .S:+$G(HLMSTATE(""ACK TO"",""IEN"")) NODE=$G(^HLB(+HLMSTATE(""ACK TO"",""IEN""),0))"
^XMB(3.9,45,2,5011,0)="""RTN"",""HLOSRVR1"",149,0)"
^XMB(3.9,45,2,5012,0)=" .I $G(NODE)="""" S HLMSTATE(""STATUS"")=""SE"",HLMSTATE(""ACK TO"",""IEN"")=""""  S:WANTACK HLMSTATE(""MSA"",1)=""CE"" S HLMSTATE(""MSA"",3)=""INITIAL MESSAGE TO APPLICATION ACKNOWLEDGMENT NOT FOUND"" Q"
^XMB(3.9,45,2,5013,0)="""RTN"",""HLOSRVR1"",150,0)"
^XMB(3.9,45,2,5014,0)=" .I ($P(NODE,""^"",11)]"""") S HLMSTATE(""STATUS"",""ACTION"")=$P(NODE,""^"",10,11),HLMSTATE(""STATUS"",""QUEUE"")=$S($P(NODE,""^"",6)]"""":$P(NODE,""^"",6),1:""DEFAULT"")"
^XMB(3.9,45,2,5015,0)="""RTN"",""HLOSRVR1"",151,0)"
^XMB(3.9,45,2,5016,0)=" ;"
^XMB(3.9,45,2,5017,0)="""RTN"",""HLOSRVR1"",152,0)"
^XMB(3.9,45,2,5018,0)=" I HDR(""PROCESSING ID"")'=HLCSTATE(""SYSTEM"",""PROCESSING ID"") S:WANTACK HLMSTATE(""MSA"",1)=""CR"" S HLMSTATE(""STATUS"")=""SE"",HLMSTATE(""MSA"",3)=""SYSTEM PROCESSING ID=""_HLCSTATE(""SYSTEM"",""PROCESSING ID"") Q"
^XMB(3.9,45,2,5019,0)="""RTN"",""HLOSRVR1"",153,0)"
^XMB(3.9,45,2,5020,0)=" ;"
^XMB(3.9,45,2,5021,0)="""RTN"",""HLOSRVR1"",154,0)"
^XMB(3.9,45,2,5022,0)=" ;"
^XMB(3.9,45,2,5023,0)="""RTN"",""HLOSRVR1"",155,0)"
^XMB(3.9,45,2,5024,0)=" ;wrong receiving facility?  This is hard to check if the sender is not VistA, because the HL7 standard permits different coding systems to be used. This check is only for DNS or station number."
^XMB(3.9,45,2,5025,0)="""RTN"",""HLOSRVR1"",156,0)"
^XMB(3.9,45,2,5026,0)=" S PASS=0"
^XMB(3.9,45,2,5027,0)="""RTN"",""HLOSRVR1"",157,0)"
^XMB(3.9,45,2,5028,0)=" D"
^XMB(3.9,45,2,5029,0)="""RTN"",""HLOSRVR1"",158,0)"
^XMB(3.9,45,2,5030,0)=" .;if its an ack to an existing message, don't check the receiving facility"
^XMB(3.9,45,2,5031,0)="""RTN"",""HLOSRVR1"",159,0)"
^XMB(3.9,45,2,5032,0)=" .I $G(HLMSTATE(""ACK TO""))]"""" S PASS=1 Q"
^XMB(3.9,45,2,5033,0)="""RTN"",""HLOSRVR1"",160,0)"
^XMB(3.9,45,2,5034,0)=" .I HDR(""RECEIVING FACILITY"",1)=HLCSTATE(""SYSTEM"",""STATION"") S PASS=1 Q"
^XMB(3.9,45,2,5035,0)="""RTN"",""HLOSRVR1"",161,0)"
^XMB(3.9,45,2,5036,0)=" .I HDR(""RECEIVING FACILITY"",3)'=""DNS"" S PASS=1 Q"
^XMB(3.9,45,2,5037,0)="""RTN"",""HLOSRVR1"",162,0)"
^XMB(3.9,45,2,5038,0)=" .I HDR(""RECEIVING FACILITY"",2)="""" S PASS=1 Q"
^XMB(3.9,45,2,5039,0)="""RTN"",""HLOSRVR1"",163,0)"
^XMB(3.9,45,2,5040,0)=" .I $P(HDR(""RECEIVING FACILITY"",2),"":"")[HLCSTATE(""SYSTEM"",""DOMAIN"") S PASS=1 Q"
^XMB(3.9,45,2,5041,0)="""RTN"",""HLOSRVR1"",164,0)"
^XMB(3.9,45,2,5042,0)=" .I HLCSTATE(""SYSTEM"",""DOMAIN"")[$P(HDR(""RECEIVING FACILITY"",2),"":"") S PASS=1 Q"
^XMB(3.9,45,2,5043,0)="""RTN"",""HLOSRVR1"",165,0)"
^XMB(3.9,45,2,5044,0)=" I 'PASS S HLMSTATE(""STATUS"")=""SE"",HLMSTATE(""MSA"",3)=""RECEIVING FACILITY IS ""_HLCSTATE(""SYSTEM"",""DOMAIN"") S:WANTACK HLMSTATE(""MSA"",1)=""CE"""
^XMB(3.9,45,2,5045,0)="""RTN"",""HLOSRVR1"",166,0)"
^XMB(3.9,45,2,5046,0)=" I PASS,WANTACK S HLMSTATE(""MSA"",1)=""CA"""
^XMB(3.9,45,2,5047,0)="""RTN"",""HLOSRVR1"",167,0)"
^XMB(3.9,45,2,5048,0)=" Q"
^XMB(3.9,45,2,5049,0)="""RTN"",""HLOSRVR1"",168,0)"
^XMB(3.9,45,2,5050,0)=" ;"
^XMB(3.9,45,2,5051,0)="""RTN"",""HLOSRVR1"",169,0)"
^XMB(3.9,45,2,5052,0)="DEL777(IEN777) ;delete a record from file 777 where the read did not complete"
^XMB(3.9,45,2,5053,0)="""RTN"",""HLOSRVR1"",170,0)"
^XMB(3.9,45,2,5054,0)=" ;"
^XMB(3.9,45,2,5055,0)="""RTN"",""HLOSRVR1"",171,0)"
^XMB(3.9,45,2,5056,0)=" K ^HLA(IEN777,0)"
^XMB(3.9,45,2,5057,0)="""RTN"",""HLOSRVR1"",172,0)"
^XMB(3.9,45,2,5058,0)=" Q"
^XMB(3.9,45,2,5059,0)="""RTN"",""HLOSRVR1"",173,0)"
^XMB(3.9,45,2,5060,0)="DEL778(IEN778) ;delete a record from file 778 where the read did not complete"
^XMB(3.9,45,2,5061,0)="""RTN"",""HLOSRVR1"",174,0)"
^XMB(3.9,45,2,5062,0)=" ;"
^XMB(3.9,45,2,5063,0)="""RTN"",""HLOSRVR1"",175,0)"
^XMB(3.9,45,2,5064,0)=" K ^HLB(IEN778,0)"
^XMB(3.9,45,2,5065,0)="""RTN"",""HLOSRVR1"",176,0)"
^XMB(3.9,45,2,5066,0)=" Q"
^XMB(3.9,45,2,5067,0)="""RTN"",""HLOSRVR1"",177,0)"
^XMB(3.9,45,2,5068,0)=" ;"
^XMB(3.9,45,2,5069,0)="""RTN"",""HLOSRVR1"",178,0)"
^XMB(3.9,45,2,5070,0)="SPLITHDR(HDR) ;"
^XMB(3.9,45,2,5071,0)="""RTN"",""HLOSRVR1"",179,0)"
^XMB(3.9,45,2,5072,0)=" ;splits hdr segment into two lines, first being just components 1-6"
^XMB(3.9,45,2,5073,0)="""RTN"",""HLOSRVR1"",180,0)"
^XMB(3.9,45,2,5074,0)=" ;"
^XMB(3.9,45,2,5075,0)="""RTN"",""HLOSRVR1"",181,0)"
^XMB(3.9,45,2,5076,0)=" N TEMP,FS"
^XMB(3.9,45,2,5077,0)="""RTN"",""HLOSRVR1"",182,0)"
^XMB(3.9,45,2,5078,0)=" D SQUISH(.HDR)"
^XMB(3.9,45,2,5079,0)="""RTN"",""HLOSRVR1"",183,0)"
^XMB(3.9,45,2,5080,0)=" S FS=$E($G(HDR(1)),4)"
^XMB(3.9,45,2,5081,0)="""RTN"",""HLOSRVR1"",184,0)"
^XMB(3.9,45,2,5082,0)=" S TEMP(1)=$P($G(HDR(1)),FS,1,6)"
^XMB(3.9,45,2,5083,0)="""RTN"",""HLOSRVR1"",185,0)"
^XMB(3.9,45,2,5084,0)=" S TEMP(2)="""""
^XMB(3.9,45,2,5085,0)="""RTN"",""HLOSRVR1"",186,0)"
^XMB(3.9,45,2,5086,0)=" I $L(TEMP(1))<$L($G(HDR(1))) S TEMP(2)=FS_$P($G(HDR(1)),FS,7,20)"
^XMB(3.9,45,2,5087,0)="""RTN"",""HLOSRVR1"",187,0)"
^XMB(3.9,45,2,5088,0)=" S HDR(2)=TEMP(2)_$G(HDR(2))"
^XMB(3.9,45,2,5089,0)="""RTN"",""HLOSRVR1"",188,0)"
^XMB(3.9,45,2,5090,0)=" S HDR(1)=TEMP(1)"
^XMB(3.9,45,2,5091,0)="""RTN"",""HLOSRVR1"",189,0)"
^XMB(3.9,45,2,5092,0)=" Q"
^XMB(3.9,45,2,5093,0)="""RTN"",""HLOSRVR1"",190,0)"
^XMB(3.9,45,2,5094,0)=" ;"
^XMB(3.9,45,2,5095,0)="""RTN"",""HLOSRVR1"",191,0)"
^XMB(3.9,45,2,5096,0)="SQUISH(SEG) ;"
^XMB(3.9,45,2,5097,0)="""RTN"",""HLOSRVR1"",192,0)"
^XMB(3.9,45,2,5098,0)=" ;reformat the segment array into full lines"
^XMB(3.9,45,2,5099,0)="""RTN"",""HLOSRVR1"",193,0)"
^XMB(3.9,45,2,5100,0)=" ;"
^XMB(3.9,45,2,5101,0)="""RTN"",""HLOSRVR1"",194,0)"
^XMB(3.9,45,2,5102,0)=" ;nothing to do if less than 2 lines"
^XMB(3.9,45,2,5103,0)="""RTN"",""HLOSRVR1"",195,0)"
^XMB(3.9,45,2,5104,0)=" Q:'$O(SEG(1))"
^XMB(3.9,45,2,5105,0)="""RTN"",""HLOSRVR1"",196,0)"
^XMB(3.9,45,2,5106,0)=" ;"
^XMB(3.9,45,2,5107,0)="""RTN"",""HLOSRVR1"",197,0)"
^XMB(3.9,45,2,5108,0)=" N A,I,J,K,MAX,COUNT,LEN"
^XMB(3.9,45,2,5109,0)="""RTN"",""HLOSRVR1"",198,0)"
^XMB(3.9,45,2,5110,0)=" S MAX=$S($G(HLCSTATE(""SYSTEM"",""MAXSTRING""))>256:HLCSTATE(""SYSTEM"",""MAXSTRING""),1:256)"
^XMB(3.9,45,2,5111,0)="""RTN"",""HLOSRVR1"",199,0)"
^XMB(3.9,45,2,5112,0)=" S (COUNT,I)=0,J=1"
^XMB(3.9,45,2,5113,0)="""RTN"",""HLOSRVR1"",200,0)"
^XMB(3.9,45,2,5114,0)=" F  S I=$O(SEG(I)) Q:'I  D"
^XMB(3.9,45,2,5115,0)="""RTN"",""HLOSRVR1"",201,0)"
^XMB(3.9,45,2,5116,0)=" .S LEN=$L(SEG(I))"
^XMB(3.9,45,2,5117,0)="""RTN"",""HLOSRVR1"",202,0)"
^XMB(3.9,45,2,5118,0)=" .F K=1:1:LEN D"
^XMB(3.9,45,2,5119,0)="""RTN"",""HLOSRVR1"",203,0)"
^XMB(3.9,45,2,5120,0)=" ..S A(J)=$G(A(J))_$E(SEG(I),K)"
^XMB(3.9,45,2,5121,0)="""RTN"",""HLOSRVR1"",204,0)"
^XMB(3.9,45,2,5122,0)=" ..S COUNT=COUNT+1"
^XMB(3.9,45,2,5123,0)="""RTN"",""HLOSRVR1"",205,0)"
^XMB(3.9,45,2,5124,0)=" ..I (COUNT>(MAX-1)) S COUNT=0,J=J+1"
^XMB(3.9,45,2,5125,0)="""RTN"",""HLOSRVR1"",206,0)"
^XMB(3.9,45,2,5126,0)=" K SEG"
^XMB(3.9,45,2,5127,0)="""RTN"",""HLOSRVR1"",207,0)"
^XMB(3.9,45,2,5128,0)=" M SEG=A"
^XMB(3.9,45,2,5129,0)="""RTN"",""HLOSRVR1"",208,0)"
^XMB(3.9,45,2,5130,0)=" Q"
^XMB(3.9,45,2,5131,0)="""RTN"",""HLOSRVR1"",209,0)"
^XMB(3.9,45,2,5132,0)=" ;"
^XMB(3.9,45,2,5133,0)="""RTN"",""HLOSRVR1"",210,0)"
^XMB(3.9,45,2,5134,0)="ERROR ;error trap"
^XMB(3.9,45,2,5135,0)="""RTN"",""HLOSRVR1"",211,0)"
^XMB(3.9,45,2,5136,0)=" S $ETRAP=""D UNWIND^%ZTER"""
^XMB(3.9,45,2,5137,0)="""RTN"",""HLOSRVR1"",212,0)"
^XMB(3.9,45,2,5138,0)=" D END^HLOSRVR"
^XMB(3.9,45,2,5139,0)="""RTN"",""HLOSRVR1"",213,0)"
^XMB(3.9,45,2,5140,0)=" ;"
^XMB(3.9,45,2,5141,0)="""RTN"",""HLOSRVR1"",214,0)"
^XMB(3.9,45,2,5142,0)=" ;while debugging quit on all errors"
^XMB(3.9,45,2,5143,0)="""RTN"",""HLOSRVR1"",215,0)"
^XMB(3.9,45,2,5144,0)=" I $G(^HLTMP(""LOG ALL ERRORS"")) D ^%ZTER QUIT"
^XMB(3.9,45,2,5145,0)="""RTN"",""HLOSRVR1"",216,0)"
^XMB(3.9,45,2,5146,0)=" ;"
^XMB(3.9,45,2,5147,0)="""RTN"",""HLOSRVR1"",217,0)"
^XMB(3.9,45,2,5148,0)=" ;don't log these common errors"
^XMB(3.9,45,2,5149,0)="""RTN"",""HLOSRVR1"",218,0)"
^XMB(3.9,45,2,5150,0)=" I ($ECODE[""READ"")!($ECODE[""NOTOPEN"")!($ECODE[""DEVNOTOPN"")!($ECODE[""WRITE"")!($ECODE[""OPENERR"") D"
^XMB(3.9,45,2,5151,0)="""RTN"",""HLOSRVR1"",219,0)"
^XMB(3.9,45,2,5152,0)=" .;"
^XMB(3.9,45,2,5153,0)="""RTN"",""HLOSRVR1"",220,0)"
^XMB(3.9,45,2,5154,0)=" E  D"
^XMB(3.9,45,2,5155,0)="""RTN"",""HLOSRVR1"",221,0)"
^XMB(3.9,45,2,5156,0)=" .D ^%ZTER"
^XMB(3.9,45,2,5157,0)="""RTN"",""HLOSRVR1"",222,0)"
^XMB(3.9,45,2,5158,0)=" ;"
^XMB(3.9,45,2,5159,0)="""RTN"",""HLOSRVR1"",223,0)"
^XMB(3.9,45,2,5160,0)=" ;concurrent server connections (multi-listener) should stop execution, only a single server may continue"
^XMB(3.9,45,2,5161,0)="""RTN"",""HLOSRVR1"",224,0)"
^XMB(3.9,45,2,5162,0)=" Q:$P($G(HLCSTATE(""LINK"",""SERVER"")),""^"",2)'=""S"""
^XMB(3.9,45,2,5163,0)="""RTN"",""HLOSRVR1"",225,0)"
^XMB(3.9,45,2,5164,0)=" ;"
^XMB(3.9,45,2,5165,0)="""RTN"",""HLOSRVR1"",226,0)"
^XMB(3.9,45,2,5166,0)=" ;a lot of errors of the same time may indicate an endless loop, so keep a count"
^XMB(3.9,45,2,5167,0)="""RTN"",""HLOSRVR1"",227,0)"
^XMB(3.9,45,2,5168,0)=" S ^TMP(""HL7 ERRORS"",$J,$ECODE)=$G(^TMP(""HL7 ERRORS"",$J,$ECODE))+1"
^XMB(3.9,45,2,5169,0)="""RTN"",""HLOSRVR1"",228,0)"
^XMB(3.9,45,2,5170,0)=" ;"
^XMB(3.9,45,2,5171,0)="""RTN"",""HLOSRVR1"",229,0)"
^XMB(3.9,45,2,5172,0)=" I ($G(^TMP(""HL7 ERRORS"",$J,$ECODE))>100) K ^TMP(""HL7 ERRORS"",$J) QUIT"
^XMB(3.9,45,2,5173,0)="""RTN"",""HLOSRVR1"",230,0)"
^XMB(3.9,45,2,5174,0)=" ;"
^XMB(3.9,45,2,5175,0)="""RTN"",""HLOSRVR1"",231,0)"
^XMB(3.9,45,2,5176,0)=" ;resume execution for the single listener"
^XMB(3.9,45,2,5177,0)="""RTN"",""HLOSRVR1"",232,0)"
^XMB(3.9,45,2,5178,0)=" D UNWIND^%ZTER"
^XMB(3.9,45,2,5179,0)="""RTN"",""HLOSRVR1"",233,0)"
^XMB(3.9,45,2,5180,0)=" Q"
^XMB(3.9,45,2,5181,0)="""RTN"",""HLTP"")"
^XMB(3.9,45,2,5182,0)="0^5^B8013244^B7725388"
^XMB(3.9,45,2,5183,0)="""RTN"",""HLTP"",1,0)"
^XMB(3.9,45,2,5184,0)="HLTP ;AISC/SAW-Transaction Processor Module ;09/13/2006"
^XMB(3.9,45,2,5185,0)="""RTN"",""HLTP"",2,0)"
^XMB(3.9,45,2,5186,0)=" ;;1.6;HEALTH LEVEL SEVEN;**14,43,133**;Oct 13, 1995;Build 13"
^XMB(3.9,45,2,5187,0)="""RTN"",""HLTP"",3,0)"
^XMB(3.9,45,2,5188,0)=" ;Per VHA Directive 2004-038, this routine should not be modified."
^XMB(3.9,45,2,5189,0)="""RTN"",""HLTP"",4,0)"
^XMB(3.9,45,2,5190,0)="GENERATE(HLMID,HLMTIEN,HLEID,HLARYTYP,HLFORMAT,HLRESLT,HLP) ;Generate an"
^XMB(3.9,45,2,5191,0)="""RTN"",""HLTP"",5,0)"
^XMB(3.9,45,2,5192,0)=" ;outgoing message"
^XMB(3.9,45,2,5193,0)="""RTN"",""HLTP"",6,0)"
^XMB(3.9,45,2,5194,0)=" ;"
^XMB(3.9,45,2,5195,0)="""RTN"",""HLTP"",7,0)"
^XMB(3.9,45,2,5196,0)=" ;This is a subroutine call with parameter passing.  It returns a value"
^XMB(3.9,45,2,5197,0)="""RTN"",""HLTP"",8,0)"
^XMB(3.9,45,2,5198,0)=" ;in the variable HLRESLT of null if no error occurs, or the following"
^XMB(3.9,45,2,5199,0)="""RTN"",""HLTP"",9,0)"
^XMB(3.9,45,2,5200,0)=" ;two piece value if an error occurs:  error code^error description"
^XMB(3.9,45,2,5201,0)="""RTN"",""HLTP"",10,0)"
^XMB(3.9,45,2,5202,0)=" ;"
^XMB(3.9,45,2,5203,0)="""RTN"",""HLTP"",11,0)"
^XMB(3.9,45,2,5204,0)=" ;Required Input Parameters"
^XMB(3.9,45,2,5205,0)="""RTN"",""HLTP"",12,0)"
^XMB(3.9,45,2,5206,0)=" ;     HLMID = Message ID of message being generated"
^XMB(3.9,45,2,5207,0)="""RTN"",""HLTP"",13,0)"
^XMB(3.9,45,2,5208,0)=" ;   HLMTIEN = IEN in Message Text file where message being generated"
^XMB(3.9,45,2,5209,0)="""RTN"",""HLTP"",14,0)"
^XMB(3.9,45,2,5210,0)=" ;               will be stored"
^XMB(3.9,45,2,5211,0)="""RTN"",""HLTP"",15,0)"
^XMB(3.9,45,2,5212,0)=" ;     HLEID = IEN of event driver protocol in the Protocol file"
^XMB(3.9,45,2,5213,0)="""RTN"",""HLTP"",16,0)"
^XMB(3.9,45,2,5214,0)=" ;  HLARYTYP = Array type.  One of the following codes:"
^XMB(3.9,45,2,5215,0)="""RTN"",""HLTP"",17,0)"
^XMB(3.9,45,2,5216,0)=" ;               LM = local array containing a single message"
^XMB(3.9,45,2,5217,0)="""RTN"",""HLTP"",18,0)"
^XMB(3.9,45,2,5218,0)=" ;               LB = local array containig a batch of messages"
^XMB(3.9,45,2,5219,0)="""RTN"",""HLTP"",19,0)"
^XMB(3.9,45,2,5220,0)=" ;               GM = global array containing a single message"
^XMB(3.9,45,2,5221,0)="""RTN"",""HLTP"",20,0)"
^XMB(3.9,45,2,5222,0)=" ;               GB = global array containing a batch of messages"
^XMB(3.9,45,2,5223,0)="""RTN"",""HLTP"",21,0)"
^XMB(3.9,45,2,5224,0)=" ;  HLFORMAT = Format of array, 1 for pre-formatted in HL7 format,"
^XMB(3.9,45,2,5225,0)="""RTN"",""HLTP"",22,0)"
^XMB(3.9,45,2,5226,0)=" ;               otherwise 0"
^XMB(3.9,45,2,5227,0)="""RTN"",""HLTP"",23,0)"
^XMB(3.9,45,2,5228,0)=" ;NOTE:  The parameter HLRESLT must be passed by reference"
^XMB(3.9,45,2,5229,0)="""RTN"",""HLTP"",24,0)"
^XMB(3.9,45,2,5230,0)=" ;   HLRESLT = The variable that will be returned to the calling"
^XMB(3.9,45,2,5231,0)="""RTN"",""HLTP"",25,0)"
^XMB(3.9,45,2,5232,0)=" ;               application as descibed above"
^XMB(3.9,45,2,5233,0)="""RTN"",""HLTP"",26,0)"
^XMB(3.9,45,2,5234,0)=" ;Optional Parameters"
^XMB(3.9,45,2,5235,0)="""RTN"",""HLTP"",27,0)"
^XMB(3.9,45,2,5236,0)=" ;  HLP(""SECURITY"") = A 1 to 40 character string"
^XMB(3.9,45,2,5237,0)="""RTN"",""HLTP"",28,0)"
^XMB(3.9,45,2,5238,0)=" ;   HLP(""CONTPTR"") = Continuation pointer, a 1 to 180 character string"
^XMB(3.9,45,2,5239,0)="""RTN"",""HLTP"",29,0)"
^XMB(3.9,45,2,5240,0)=" ;  HLP(""GROUTINE"") = The M code to execute to generate the HL7 message"
^XMB(3.9,45,2,5241,0)="""RTN"",""HLTP"",30,0)"
^XMB(3.9,45,2,5242,0)=" ;"
^XMB(3.9,45,2,5243,0)="""RTN"",""HLTP"",31,0)"
^XMB(3.9,45,2,5244,0)=" S HLRESLT="""""
^XMB(3.9,45,2,5245,0)="""RTN"",""HLTP"",32,0)"
^XMB(3.9,45,2,5246,0)=" ;"
^XMB(3.9,45,2,5247,0)="""RTN"",""HLTP"",33,0)"
^XMB(3.9,45,2,5248,0)=" ;Check for required parameters"
^XMB(3.9,45,2,5249,0)="""RTN"",""HLTP"",34,0)"
^XMB(3.9,45,2,5250,0)=" I '$G(HLMID)!('$G(HLMTIEN))!('$G(HLEID))!($G(HLARYTYP)']"""")!($G(HLFORMAT)']"""") S HLRESLT=""7^""_$G(^HL(771.7,7,0))_"" at GENERATE^HLTP entry point"" G EXIT"
^XMB(3.9,45,2,5251,0)="""RTN"",""HLTP"",35,0)"
^XMB(3.9,45,2,5252,0)=" ;Extract data from file 101 and store in separate variables"
^XMB(3.9,45,2,5253,0)="""RTN"",""HLTP"",36,0)"
^XMB(3.9,45,2,5254,0)=" D EVENT^HLUTIL1(HLEID,770,.HLN) S HLSAN=$P($G(^HL(771,+$P(HLN(770),""^""),0)),""^""),HLQ="""""""""""""
^XMB(3.9,45,2,5255,0)="""RTN"",""HLTP"",37,0)"
^XMB(3.9,45,2,5256,0)=" S HLP(""MSGTYPE"")=$E(HLARYTYP,2)"
^XMB(3.9,45,2,5257,0)="""RTN"",""HLTP"",38,0)"
^XMB(3.9,45,2,5258,0)=" ;Update zero node of Message Text file"
^XMB(3.9,45,2,5259,0)="""RTN"",""HLTP"",39,0)"
^XMB(3.9,45,2,5260,0)=" D UPDATE^HLTF0(HLMTIEN,HLMTIEN,""O"",HLEID,"""",+$P(HLN(770),""^""),HLPRIO,"""","""",.HLP)"
^XMB(3.9,45,2,5261,0)="""RTN"",""HLTP"",40,0)"
^XMB(3.9,45,2,5262,0)=" ;Update status to Being Generated"
^XMB(3.9,45,2,5263,0)="""RTN"",""HLTP"",41,0)"
^XMB(3.9,45,2,5264,0)=" D STATUS^HLTF0(HLMTIEN,8)"
^XMB(3.9,45,2,5265,0)="""RTN"",""HLTP"",42,0)"
^XMB(3.9,45,2,5266,0)=" ;Check that local/global array exists and store in Message Text file"
^XMB(3.9,45,2,5267,0)="""RTN"",""HLTP"",43,0)"
^XMB(3.9,45,2,5268,0)=" ; if pre-compiled"
^XMB(3.9,45,2,5269,0)="""RTN"",""HLTP"",44,0)"
^XMB(3.9,45,2,5270,0)=" I HLFORMAT D  I +$G(HLRESLT) G EXIT"
^XMB(3.9,45,2,5271,0)="""RTN"",""HLTP"",45,0)"
^XMB(3.9,45,2,5272,0)=" .I $E(HLARYTYP)=""G"" D  I +$G(HLRESLT) D STATUS^HLTF0(HLMTIEN,4,+HLRESLT) Q"
^XMB(3.9,45,2,5273,0)="""RTN"",""HLTP"",46,0)"
^XMB(3.9,45,2,5274,0)=" ..I $O(^TMP(""HLS"",$J,0))']"""" S HLRESLT=""8^""_$G(^HL(771.7,8,0)) Q"
^XMB(3.9,45,2,5275,0)="""RTN"",""HLTP"",47,0)"
^XMB(3.9,45,2,5276,0)=" ..D MERGE^HLTF1(""G"",HLMTIEN,""HLS"")"
^XMB(3.9,45,2,5277,0)="""RTN"",""HLTP"",48,0)"
^XMB(3.9,45,2,5278,0)=" .I $E(HLARYTYP)=""L"" D  I +$G(HLRESLT) D STATUS^HLTF0(HLMTIEN,4,+HLRESLT) Q"
^XMB(3.9,45,2,5279,0)="""RTN"",""HLTP"",49,0)"
^XMB(3.9,45,2,5280,0)=" ..I $O(HLA(""HLS"",0))']"""" S HLRESLT=""8^""_$G(^HL(771.7,8,0)) Q"
^XMB(3.9,45,2,5281,0)="""RTN"",""HLTP"",50,0)"
^XMB(3.9,45,2,5282,0)=" ..D MERGE^HLTF1(""L"",HLMTIEN,""HLS"")"
^XMB(3.9,45,2,5283,0)="""RTN"",""HLTP"",51,0)"
^XMB(3.9,45,2,5284,0)=" ;If array is not pre-compiled, call message generation routine"
^XMB(3.9,45,2,5285,0)="""RTN"",""HLTP"",52,0)"
^XMB(3.9,45,2,5286,0)=" I 'HLFORMAT N HLERR D  I $D(HLERR) S HLRESLT=""9^""_HLERR D STATUS^HLTF0(HLMTIEN,4,9,HLERR) G EXIT"
^XMB(3.9,45,2,5287,0)="""RTN"",""HLTP"",53,0)"
^XMB(3.9,45,2,5288,0)=" .S HLP(""GROUTINE"")=HLP(""GROUTINE"")_""(""_HLMID_"",""_HLMTIEN_"",""_HLQ_HLARYTYP_HLQ_"",""_HLSAN_"",""_$P($G(^HL(771.2,$P(HLN(770),""^"",3),0)),""^"")_"",""_$P($G(^HL(779.001,$P(HLN(770),""^"",4),0)),""^"")_"",""_HLQ_$TR($P(HLN(770),""^"",6),""id"",""ID"")_HLQ_"")"""
^XMB(3.9,45,2,5289,0)="""RTN"",""HLTP"",54,0)"
^XMB(3.9,45,2,5290,0)=" .X HLP(""GROUTINE"")"
^XMB(3.9,45,2,5291,0)="""RTN"",""HLTP"",55,0)"
^XMB(3.9,45,2,5292,0)=" ;**CIRN**"
^XMB(3.9,45,2,5293,0)="""RTN"",""HLTP"",56,0)"
^XMB(3.9,45,2,5294,0)=" S ZMID=HLMID ; Save original parent message IEN"
^XMB(3.9,45,2,5295,0)="""RTN"",""HLTP"",57,0)"
^XMB(3.9,45,2,5296,0)=" I $D(HLL(""LINKS"")),HLPRIO'=""I"" D FWD^HLCS2 K HLL"
^XMB(3.9,45,2,5297,0)="""RTN"",""HLTP"",58,0)"
^XMB(3.9,45,2,5298,0)=" ;Invoke communication server module to"
^XMB(3.9,45,2,5299,0)="""RTN"",""HLTP"",59,0)"
^XMB(3.9,45,2,5300,0)=" ;send message to subscribers"
^XMB(3.9,45,2,5301,0)="""RTN"",""HLTP"",60,0)"
^XMB(3.9,45,2,5302,0)=" ;K HLARYTYP,HLFORMAT,HLN,HLP,HLQ"
^XMB(3.9,45,2,5303,0)="""RTN"",""HLTP"",61,0)"
^XMB(3.9,45,2,5304,0)=" D SEND^HLCS(HLMTIEN,HLEID,.HLRESLT)"
^XMB(3.9,45,2,5305,0)="""RTN"",""HLTP"",62,0)"
^XMB(3.9,45,2,5306,0)="EXIT Q"
^XMB(3.9,45,2,5307,0)="""RTN"",""HLTP1"")"
^XMB(3.9,45,2,5308,0)="0^6^B8076588^B7810520"
^XMB(3.9,45,2,5309,0)="""RTN"",""HLTP1"",1,0)"
^XMB(3.9,45,2,5310,0)="HLTP1 ;AISC/SAW-Transaction Processor Module (Cont'd) ;09/13/2006"
^XMB(3.9,45,2,5311,0)="""RTN"",""HLTP1"",2,0)"
^XMB(3.9,45,2,5312,0)=" ;;1.6;HEALTH LEVEL SEVEN;**34,47,91,133**;Oct 13, 1995;Build 13"
^XMB(3.9,45,2,5313,0)="""RTN"",""HLTP1"",3,0)"
^XMB(3.9,45,2,5314,0)=" ;Per VHA Directive 2004-038, this routine should not be modified."
^XMB(3.9,45,2,5315,0)="""RTN"",""HLTP1"",4,0)"
^XMB(3.9,45,2,5316,0)="GENACK(HLMIDA,HLMTIENA,HLEIDS,HLARYTYP,HLFORMAT,HLRESLTA,HLP) ;"
^XMB(3.9,45,2,5317,0)="""RTN"",""HLTP1"",5,0)"
^XMB(3.9,45,2,5318,0)=" ;Entry point to generate an acknowledgement message"
^XMB(3.9,45,2,5319,0)="""RTN"",""HLTP1"",6,0)"
^XMB(3.9,45,2,5320,0)=" ;"
^XMB(3.9,45,2,5321,0)="""RTN"",""HLTP1"",7,0)"
^XMB(3.9,45,2,5322,0)=" ;This is a subroutine call with parameter passing.  It returns a value"
^XMB(3.9,45,2,5323,0)="""RTN"",""HLTP1"",8,0)"
^XMB(3.9,45,2,5324,0)=" ;in the variable HLRESLTA of null if no error occurs, or the following"
^XMB(3.9,45,2,5325,0)="""RTN"",""HLTP1"",9,0)"
^XMB(3.9,45,2,5326,0)=" ;two piece value if an error occurs:  error code^error description"
^XMB(3.9,45,2,5327,0)="""RTN"",""HLTP1"",10,0)"
^XMB(3.9,45,2,5328,0)=" ;"
^XMB(3.9,45,2,5329,0)="""RTN"",""HLTP1"",11,0)"
^XMB(3.9,45,2,5330,0)=" ;Required Input Parameters"
^XMB(3.9,45,2,5331,0)="""RTN"",""HLTP1"",12,0)"
^XMB(3.9,45,2,5332,0)=" ;    HLMIDA = Message ID of aknowledgement message"
^XMB(3.9,45,2,5333,0)="""RTN"",""HLTP1"",13,0)"
^XMB(3.9,45,2,5334,0)=" ;  HLMTIENA = IEN of entry in Message Text file where acknowledgement"
^XMB(3.9,45,2,5335,0)="""RTN"",""HLTP1"",14,0)"
^XMB(3.9,45,2,5336,0)=" ;               message will be stored"
^XMB(3.9,45,2,5337,0)="""RTN"",""HLTP1"",15,0)"
^XMB(3.9,45,2,5338,0)=" ;    HLEIDS = IEN of subscriber protocol from the Protocol file"
^XMB(3.9,45,2,5339,0)="""RTN"",""HLTP1"",16,0)"
^XMB(3.9,45,2,5340,0)=" ;  HLARYTYP = Array type.  One of the following codes:"
^XMB(3.9,45,2,5341,0)="""RTN"",""HLTP1"",17,0)"
^XMB(3.9,45,2,5342,0)=" ;               LM = local array containing a single message"
^XMB(3.9,45,2,5343,0)="""RTN"",""HLTP1"",18,0)"
^XMB(3.9,45,2,5344,0)=" ;               LB = local array containig a batch of messages"
^XMB(3.9,45,2,5345,0)="""RTN"",""HLTP1"",19,0)"
^XMB(3.9,45,2,5346,0)=" ;               GM = global array containing a single message"
^XMB(3.9,45,2,5347,0)="""RTN"",""HLTP1"",20,0)"
^XMB(3.9,45,2,5348,0)=" ;               GB = global array containing a batch of messages"
^XMB(3.9,45,2,5349,0)="""RTN"",""HLTP1"",21,0)"
^XMB(3.9,45,2,5350,0)=" ;  HLFORMAT = Format of array, 1 for pre-formatted in HL7 format,"
^XMB(3.9,45,2,5351,0)="""RTN"",""HLTP1"",22,0)"
^XMB(3.9,45,2,5352,0)=" ;               otherwise 0"
^XMB(3.9,45,2,5353,0)="""RTN"",""HLTP1"",23,0)"
^XMB(3.9,45,2,5354,0)=" ;NOTE:  The variable HLRESLTA must be passed by reference"
^XMB(3.9,45,2,5355,0)="""RTN"",""HLTP1"",24,0)"
^XMB(3.9,45,2,5356,0)=" ;  HLRESLTA = The variable that will be returned to the calling"
^XMB(3.9,45,2,5357,0)="""RTN"",""HLTP1"",25,0)"
^XMB(3.9,45,2,5358,0)=" ;               application as descibed above"
^XMB(3.9,45,2,5359,0)="""RTN"",""HLTP1"",26,0)"
^XMB(3.9,45,2,5360,0)=" ;Optional Parameters"
^XMB(3.9,45,2,5361,0)="""RTN"",""HLTP1"",27,0)"
^XMB(3.9,45,2,5362,0)=" ;  HLP(""SECURITY"") = A 1 to 40 character string"
^XMB(3.9,45,2,5363,0)="""RTN"",""HLTP1"",28,0)"
^XMB(3.9,45,2,5364,0)=" ;  HLP(""GROUTINE"") = The M code to execute to generate the"
^XMB(3.9,45,2,5365,0)="""RTN"",""HLTP1"",29,0)"
^XMB(3.9,45,2,5366,0)=" ;                      acknowledgement message"
^XMB(3.9,45,2,5367,0)="""RTN"",""HLTP1"",30,0)"
^XMB(3.9,45,2,5368,0)=" ;     HLP(""MSACK"") = 1 if this acknowledgment message is being"
^XMB(3.9,45,2,5369,0)="""RTN"",""HLTP1"",31,0)"
^XMB(3.9,45,2,5370,0)=" ;                      generated by the Messaging System"
^XMB(3.9,45,2,5371,0)="""RTN"",""HLTP1"",32,0)"
^XMB(3.9,45,2,5372,0)=" ; HLP(""NAMESPACE"") = Passed in by application namespace - HL*1.6*91"
^XMB(3.9,45,2,5373,0)="""RTN"",""HLTP1"",33,0)"
^XMB(3.9,45,2,5374,0)=" ;"
^XMB(3.9,45,2,5375,0)="""RTN"",""HLTP1"",34,0)"
^XMB(3.9,45,2,5376,0)=" S HLRESLTA="""""
^XMB(3.9,45,2,5377,0)="""RTN"",""HLTP1"",35,0)"
^XMB(3.9,45,2,5378,0)=" ;"
^XMB(3.9,45,2,5379,0)="""RTN"",""HLTP1"",36,0)"
^XMB(3.9,45,2,5380,0)=" ;Check for required parameters"
^XMB(3.9,45,2,5381,0)="""RTN"",""HLTP1"",37,0)"
^XMB(3.9,45,2,5382,0)=" I '$G(HLMIDA)!('$G(HLMTIENA))!('$G(HLEIDS))!($G(HLARYTYP)']"""")!($G(HLFORMAT)']"""") S HLRESLTA=""7^""_$G(^HL(771.7,7,0))_"" at GENACK^HLTP1 entry point"" G EXIT"
^XMB(3.9,45,2,5383,0)="""RTN"",""HLTP1"",38,0)"
^XMB(3.9,45,2,5384,0)=" ;Extract data from file 101 and store in separate variables"
^XMB(3.9,45,2,5385,0)="""RTN"",""HLTP1"",39,0)"
^XMB(3.9,45,2,5386,0)=" D EVENT^HLUTIL1(HLEIDS,770,.HLN)"
^XMB(3.9,45,2,5387,0)="""RTN"",""HLTP1"",40,0)"
^XMB(3.9,45,2,5388,0)=" S HLSAN=$P($G(^HL(771,+$P(HLN(770),""^"",2),0)),""^""),HLQ="""""""""""""
^XMB(3.9,45,2,5389,0)="""RTN"",""HLTP1"",41,0)"
^XMB(3.9,45,2,5390,0)=" S HLP(""MSGTYPE"")=$E(HLARYTYP,2)"
^XMB(3.9,45,2,5391,0)="""RTN"",""HLTP1"",42,0)"
^XMB(3.9,45,2,5392,0)=" ;Update zero node of Message Text file"
^XMB(3.9,45,2,5393,0)="""RTN"",""HLTP1"",43,0)"
^XMB(3.9,45,2,5394,0)=" D UPDATE^HLTF0(HLMTIENA,HLP(""MTIENS""),""O"",HLEIDS,"""",$P(HLN(770),""^"",2),"""",$P($G(^HL(772,HLP(""MTIENS""),0)),""^"",8),"""",.HLP)"
^XMB(3.9,45,2,5395,0)="""RTN"",""HLTP1"",44,0)"
^XMB(3.9,45,2,5396,0)=" ;Update status to Being Generated"
^XMB(3.9,45,2,5397,0)="""RTN"",""HLTP1"",45,0)"
^XMB(3.9,45,2,5398,0)=" D STATUS^HLTF0(HLMTIENA,8)"
^XMB(3.9,45,2,5399,0)="""RTN"",""HLTP1"",46,0)"
^XMB(3.9,45,2,5400,0)=" ;Check that local/global array exists and store in Message Text file"
^XMB(3.9,45,2,5401,0)="""RTN"",""HLTP1"",47,0)"
^XMB(3.9,45,2,5402,0)=" ; if pre-compiled"
^XMB(3.9,45,2,5403,0)="""RTN"",""HLTP1"",48,0)"
^XMB(3.9,45,2,5404,0)=" I HLFORMAT D  I (+$G(HLRESLTA)) D STATUS^HLTF0(HLMTIENA,4,+HLRESLTA) G EXIT"
^XMB(3.9,45,2,5405,0)="""RTN"",""HLTP1"",49,0)"
^XMB(3.9,45,2,5406,0)=" .I $E(HLARYTYP)=""G"" D"
^XMB(3.9,45,2,5407,0)="""RTN"",""HLTP1"",50,0)"
^XMB(3.9,45,2,5408,0)=" ..I $O(^TMP(""HLA"",$J,0))']"""" S HLRESLTA=""8^""_$G(^HL(771.7,8,0)) Q"
^XMB(3.9,45,2,5409,0)="""RTN"",""HLTP1"",51,0)"
^XMB(3.9,45,2,5410,0)=" ..D MERGE^HLTF1(""G"",HLMTIENA,""HLA"")"
^XMB(3.9,45,2,5411,0)="""RTN"",""HLTP1"",52,0)"
^XMB(3.9,45,2,5412,0)=" .I $E(HLARYTYP)=""L"" D"
^XMB(3.9,45,2,5413,0)="""RTN"",""HLTP1"",53,0)"
^XMB(3.9,45,2,5414,0)=" ..I $O(HLA(""HLA"",0))']"""" S HLRESLTA=""8^""_$G(^HL(771.7,8,0)) Q"
^XMB(3.9,45,2,5415,0)="""RTN"",""HLTP1"",54,0)"
^XMB(3.9,45,2,5416,0)=" ..D MERGE^HLTF1(""L"",HLMTIENA,""HLA"")"
^XMB(3.9,45,2,5417,0)="""RTN"",""HLTP1"",55,0)"
^XMB(3.9,45,2,5418,0)=" ;If array is not pre-compiled, call message generation routine"
^XMB(3.9,45,2,5419,0)="""RTN"",""HLTP1"",56,0)"
^XMB(3.9,45,2,5420,0)=" I 'HLFORMAT N HLERR D  I $D(HLERR) S HLRESLTA=""9^""_HLERR D STATUS^HLTF0(HLMTIENA,4,9,HLERR) G EXIT"
^XMB(3.9,45,2,5421,0)="""RTN"",""HLTP1"",57,0)"
^XMB(3.9,45,2,5422,0)=" .S HLP(""GROUTINE"")=HLP(""GROUTINE"")_""(""_HLMIDA_"",""_HLMTIENA_"",""_HLQ_HLARYTYP_HLQ_"",""_HLSAN_"",""_$P($G(^HL(771.2,$P(HLN(770),""^"",3),0)),""^"")_"",""_$P($G(^HL(779.001,$P(HLN(770),""^"",4),0)),""^"")_"",""_HLQ_$TR($P(HLN(770),""^"",6),""id"",""ID"")_HLQ_"")"""
^XMB(3.9,45,2,5423,0)="""RTN"",""HLTP1"",58,0)"
^XMB(3.9,45,2,5424,0)=" .X HLP(""GROUTINE"")"
^XMB(3.9,45,2,5425,0)="""RTN"",""HLTP1"",59,0)"
^XMB(3.9,45,2,5426,0)=" ;Invoke communication server module to send message to subscribers"
^XMB(3.9,45,2,5427,0)="""RTN"",""HLTP1"",60,0)"
^XMB(3.9,45,2,5428,0)=" K HLARYTYP,HLFORMAT,HLQ"
^XMB(3.9,45,2,5429,0)="""RTN"",""HLTP1"",61,0)"
^XMB(3.9,45,2,5430,0)=" D SENDACK^HLCS(HLMTIENA,HLP(""EID""),HLEIDS,.HLRESLTA) ;,$G(HLP(""MSACK"")))"
^XMB(3.9,45,2,5431,0)="""RTN"",""HLTP1"",62,0)"
^XMB(3.9,45,2,5432,0)="EXIT K HLQ,HLSAN"
^XMB(3.9,45,2,5433,0)="""RTN"",""HLTP1"",63,0)"
^XMB(3.9,45,2,5434,0)=" Q"
^XMB(3.9,45,2,5435,0)="""RTN"",""HLTP3"")"
^XMB(3.9,45,2,5436,0)="0^7^B73884339^B72235579"
^XMB(3.9,45,2,5437,0)="""RTN"",""HLTP3"",1,0)"
^XMB(3.9,45,2,5438,0)="HLTP3 ;SFIRMFO/RSD - Transaction Processor for TCP ;09/13/2006"
^XMB(3.9,45,2,5439,0)="""RTN"",""HLTP3"",2,0)"
^XMB(3.9,45,2,5440,0)=" ;;1.6;HEALTH LEVEL SEVEN;**19,43,57,58,59,66,69,109,115,108,116,117,125,120,133**;Oct 13, 1995;Build 13"
^XMB(3.9,45,2,5441,0)="""RTN"",""HLTP3"",3,0)"
^XMB(3.9,45,2,5442,0)=" ;Per VHA Directive 2004-038, this routine should not be modified."
^XMB(3.9,45,2,5443,0)="""RTN"",""HLTP3"",4,0)"
^XMB(3.9,45,2,5444,0)=" ;"
^XMB(3.9,45,2,5445,0)="""RTN"",""HLTP3"",5,0)"
^XMB(3.9,45,2,5446,0)=" Q"
^XMB(3.9,45,2,5447,0)="""RTN"",""HLTP3"",6,0)"
^XMB(3.9,45,2,5448,0)="NEW(X) ;process new msg. ien in 773^msg. ien in 772"
^XMB(3.9,45,2,5449,0)="""RTN"",""HLTP3"",7,0)"
^XMB(3.9,45,2,5450,0)=" ;HLMTIENS=ien in #773, msg header; HLMTIEN=ien in #772, msg text"
^XMB(3.9,45,2,5451,0)="""RTN"",""HLTP3"",8,0)"
^XMB(3.9,45,2,5452,0)=" ;HLHDRO=original header;  HLHDR=response header"
^XMB(3.9,45,2,5453,0)="""RTN"",""HLTP3"",9,0)"
^XMB(3.9,45,2,5454,0)=" ;set error trap"
^XMB(3.9,45,2,5455,0)="""RTN"",""HLTP3"",10,0)"
^XMB(3.9,45,2,5456,0)=" N $ETRAP,$ESTACK S $ETRAP=""D ERROR^HLTP3"""
^XMB(3.9,45,2,5457,0)="""RTN"",""HLTP3"",11,0)"
^XMB(3.9,45,2,5458,0)=" N HL,HLEID,HLEIDS,HLERR,HLHDR,HLHDRO,HLMTIEN,HLMTIENS,HLJ,HLMSA,HLQUIT,HLNODE,HLNEXT,HLRESLTA,HLDONE1,HLASTRSP,HLRESLT"
^XMB(3.9,45,2,5459,0)="""RTN"",""HLTP3"",12,0)"
^XMB(3.9,45,2,5460,0)=" S HLRESLT="""""
^XMB(3.9,45,2,5461,0)="""RTN"",""HLTP3"",13,0)"
^XMB(3.9,45,2,5462,0)=" D INIT^HLTP3A"
^XMB(3.9,45,2,5463,0)="""RTN"",""HLTP3"",14,0)"
^XMB(3.9,45,2,5464,0)=" ;error with header, return commit/app reject"
^XMB(3.9,45,2,5465,0)="""RTN"",""HLTP3"",15,0)"
^XMB(3.9,45,2,5466,0)=" I $G(HLRESLT) D  Q"
^XMB(3.9,45,2,5467,0)="""RTN"",""HLTP3"",16,0)"
^XMB(3.9,45,2,5468,0)=" . ;set status & unlock record"
^XMB(3.9,45,2,5469,0)="""RTN"",""HLTP3"",17,0)"
^XMB(3.9,45,2,5470,0)=" . D STATUS^HLTF0(HLMTIENS,4,,,1),EXIT"
^XMB(3.9,45,2,5471,0)="""RTN"",""HLTP3"",18,0)"
^XMB(3.9,45,2,5472,0)=" . ;quit if no commit or app ack"
^XMB(3.9,45,2,5473,0)="""RTN"",""HLTP3"",19,0)"
^XMB(3.9,45,2,5474,0)=" . I $G(HL(""ACAT""))=""NE"",$G(HL(""APAT""))=""NE"" Q"
^XMB(3.9,45,2,5475,0)="""RTN"",""HLTP3"",20,0)"
^XMB(3.9,45,2,5476,0)=" . S X=$S($G(HL(""ACAT""))=""AL"":""CR"",1:""AR"")"
^XMB(3.9,45,2,5477,0)="""RTN"",""HLTP3"",21,0)"
^XMB(3.9,45,2,5478,0)=" . ;HLTCP=ien of acknowledgment msg. from ACK^HLTP4"
^XMB(3.9,45,2,5479,0)="""RTN"",""HLTP3"",22,0)"
^XMB(3.9,45,2,5480,0)=" . D ACK^HLTP4(X,$P(HLRESLT,U,2)) Q:'$G(HLTCP)"
^XMB(3.9,45,2,5481,0)="""RTN"",""HLTP3"",23,0)"
^XMB(3.9,45,2,5482,0)=" . ;write ack back over connection"
^XMB(3.9,45,2,5483,0)="""RTN"",""HLTP3"",24,0)"
^XMB(3.9,45,2,5484,0)=" . S X=$$WRITE^HLCSTCP2(HLTCP)"
^XMB(3.9,45,2,5485,0)="""RTN"",""HLTP3"",25,0)"
^XMB(3.9,45,2,5486,0)=" . ;update counter to sent"
^XMB(3.9,45,2,5487,0)="""RTN"",""HLTP3"",26,0)"
^XMB(3.9,45,2,5488,0)=" . D LLCNT^HLCSTCP(HLDP,4)"
^XMB(3.9,45,2,5489,0)="""RTN"",""HLTP3"",27,0)"
^XMB(3.9,45,2,5490,0)=" . ;update status of ack to complete"
^XMB(3.9,45,2,5491,0)="""RTN"",""HLTP3"",28,0)"
^XMB(3.9,45,2,5492,0)=" . D STATUS^HLTF0(HLTCP,3,,,1)"
^XMB(3.9,45,2,5493,0)="""RTN"",""HLTP3"",29,0)"
^XMB(3.9,45,2,5494,0)=" ;"
^XMB(3.9,45,2,5495,0)="""RTN"",""HLTP3"",30,0)"
^XMB(3.9,45,2,5496,0)=" ;check for duplicate msg., use rec. app and msg. id x-ref"
^XMB(3.9,45,2,5497,0)="""RTN"",""HLTP3"",31,0)"
^XMB(3.9,45,2,5498,0)=" ; patch HL*1.6*120"
^XMB(3.9,45,2,5499,0)="""RTN"",""HLTP3"",32,0)"
^XMB(3.9,45,2,5500,0)=" ; I $L($G(HL(""MID""))),$G(HL(""RAP"")) S X=$O(^HLMA(""AH"",HL(""RAP""),HL(""MID""),0)) D  Q:'$D(HLMTIENS)"
^XMB(3.9,45,2,5501,0)="""RTN"",""HLTP3"",33,0)"
^XMB(3.9,45,2,5502,0)=" I $G(HL(""MID""))]"""",$G(HL(""RAP"")) S X=$O(^HLMA(""AH"",HL(""RAP""),HL(""MID""),0)) D  Q:'$D(HLMTIENS)"
^XMB(3.9,45,2,5503,0)="""RTN"",""HLTP3"",34,0)"
^XMB(3.9,45,2,5504,0)=" . ;HLASTMSG=last ien received during this connection"
^XMB(3.9,45,2,5505,0)="""RTN"",""HLTP3"",35,0)"
^XMB(3.9,45,2,5506,0)=" . ;if no duplicate, save msg. ien and quit"
^XMB(3.9,45,2,5507,0)="""RTN"",""HLTP3"",36,0)"
^XMB(3.9,45,2,5508,0)=" . I X=HLMTIENS!'X S HLASTMSG=HLMTIENS Q"
^XMB(3.9,45,2,5509,0)="""RTN"",""HLTP3"",37,0)"
^XMB(3.9,45,2,5510,0)=" . N MSH,OIENS"
^XMB(3.9,45,2,5511,0)="""RTN"",""HLTP3"",38,0)"
^XMB(3.9,45,2,5512,0)=" . S (OIENS,Y)=X D  S Y=HLMTIENS D"
^XMB(3.9,45,2,5513,0)="""RTN"",""HLTP3"",39,0)"
^XMB(3.9,45,2,5514,0)=" .. ;combine MSH into single string"
^XMB(3.9,45,2,5515,0)="""RTN"",""HLTP3"",40,0)"
^XMB(3.9,45,2,5516,0)=" .. S MSH(Y)="""",I=0 F  S I=$O(^HLMA(Y,""MSH"",I)) Q:'I  S MSH(Y)=MSH(Y)_$G(^(I,0))"
^XMB(3.9,45,2,5517,0)="""RTN"",""HLTP3"",41,0)"
^XMB(3.9,45,2,5518,0)=" .; patch 117 & 125, check if identical"
^XMB(3.9,45,2,5519,0)="""RTN"",""HLTP3"",42,0)"
^XMB(3.9,45,2,5520,0)=" .I MSH(HLMTIENS)'=MSH(OIENS) S HLASTMSG=HLMTIENS Q"
^XMB(3.9,45,2,5521,0)="""RTN"",""HLTP3"",43,0)"
^XMB(3.9,45,2,5522,0)=" .;"
^XMB(3.9,45,2,5523,0)="""RTN"",""HLTP3"",44,0)"
^XMB(3.9,45,2,5524,0)=" . ;msg is duplicate, set status as duplicate"
^XMB(3.9,45,2,5525,0)="""RTN"",""HLTP3"",45,0)"
^XMB(3.9,45,2,5526,0)=" . D STATUS^HLTF0(HLMTIENS,4,109,""Duplicate with ien ""_OIENS,1),EXIT"
^XMB(3.9,45,2,5527,0)="""RTN"",""HLTP3"",46,0)"
^XMB(3.9,45,2,5528,0)=" . ;msg was resent during this connection, ignore it."
^XMB(3.9,45,2,5529,0)="""RTN"",""HLTP3"",47,0)"
^XMB(3.9,45,2,5530,0)=" . I HLASTMSG=HLMTIENS K HLMTIENS Q"
^XMB(3.9,45,2,5531,0)="""RTN"",""HLTP3"",48,0)"
^XMB(3.9,45,2,5532,0)=" . ;find original response and send back"
^XMB(3.9,45,2,5533,0)="""RTN"",""HLTP3"",49,0)"
^XMB(3.9,45,2,5534,0)=" . S HLASTRSP=$O(^HLMA(""AF"",OIENS,OIENS))"
^XMB(3.9,45,2,5535,0)="""RTN"",""HLTP3"",50,0)"
^XMB(3.9,45,2,5536,0)=" ;"
^XMB(3.9,45,2,5537,0)="""RTN"",""HLTP3"",51,0)"
^XMB(3.9,45,2,5538,0)=" ;Quit if this is acknowledgment to acknowledgement message"
^XMB(3.9,45,2,5539,0)="""RTN"",""HLTP3"",52,0)"
^XMB(3.9,45,2,5540,0)=" I $G(HL(""ACK"")) D  Q"
^XMB(3.9,45,2,5541,0)="""RTN"",""HLTP3"",53,0)"
^XMB(3.9,45,2,5542,0)=" . ;Update status of original acknowledgment message to successfully"
^XMB(3.9,45,2,5543,0)="""RTN"",""HLTP3"",54,0)"
^XMB(3.9,45,2,5544,0)=" . D STATUS^HLTF0(HL(""MTIENS""),3,,,1),STATUS^HLTF0(HLMTIENS,3,,,1)"
^XMB(3.9,45,2,5545,0)="""RTN"",""HLTP3"",55,0)"
^XMB(3.9,45,2,5546,0)=" . ;unlock record"
^XMB(3.9,45,2,5547,0)="""RTN"",""HLTP3"",56,0)"
^XMB(3.9,45,2,5548,0)=" . D EXIT"
^XMB(3.9,45,2,5549,0)="""RTN"",""HLTP3"",57,0)"
^XMB(3.9,45,2,5550,0)=" ;"
^XMB(3.9,45,2,5551,0)="""RTN"",""HLTP3"",58,0)"
^XMB(3.9,45,2,5552,0)=" ;enhance ack., send commit, quit if not an ack, msg will be processed by filer"
^XMB(3.9,45,2,5553,0)="""RTN"",""HLTP3"",59,0)"
^XMB(3.9,45,2,5554,0)=" I $G(HL(""ACAT""))=""AL"" D  Q:'$G(HL(""MTIENS""))"
^XMB(3.9,45,2,5555,0)="""RTN"",""HLTP3"",60,0)"
^XMB(3.9,45,2,5556,0)=" . ;msg is a resend, HLASTRSP=ien of original response"
^XMB(3.9,45,2,5557,0)="""RTN"",""HLTP3"",61,0)"
^XMB(3.9,45,2,5558,0)=" .I $G(HLASTRSP) D"
^XMB(3.9,45,2,5559,0)="""RTN"",""HLTP3"",62,0)"
^XMB(3.9,45,2,5560,0)=" ..S HLTCP=HLASTRSP"
^XMB(3.9,45,2,5561,0)="""RTN"",""HLTP3"",63,0)"
^XMB(3.9,45,2,5562,0)=" ..D LLCNT^HLCSTCP(HLDP,3)"
^XMB(3.9,45,2,5563,0)="""RTN"",""HLTP3"",64,0)"
^XMB(3.9,45,2,5564,0)=" . E  D  Q:'$G(HLTCP)"
^XMB(3.9,45,2,5565,0)="""RTN"",""HLTP3"",65,0)"
^XMB(3.9,45,2,5566,0)=" ..D ACK^HLTP4(""CA"") ;**109** LLCNT^HLCSTCP(HLDP,3) called in ACK^HLTP4"
^XMB(3.9,45,2,5567,0)="""RTN"",""HLTP3"",66,0)"
^XMB(3.9,45,2,5568,0)=" . S X=$$WRITE^HLCSTCP2(HLTCP)"
^XMB(3.9,45,2,5569,0)="""RTN"",""HLTP3"",67,0)"
^XMB(3.9,45,2,5570,0)=" . D LLCNT^HLCSTCP(HLDP,4),STATUS^HLTF0(HLTCP,3,,,1):'$G(HLASTRSP)"
^XMB(3.9,45,2,5571,0)="""RTN"",""HLTP3"",68,0)"
^XMB(3.9,45,2,5572,0)=" . S HLTCP="""""
^XMB(3.9,45,2,5573,0)="""RTN"",""HLTP3"",69,0)"
^XMB(3.9,45,2,5574,0)=" . ;if not an ack, set status to awaiting processing **109** and put on in queue"
^XMB(3.9,45,2,5575,0)="""RTN"",""HLTP3"",70,0)"
^XMB(3.9,45,2,5576,0)=" . I '$G(HL(""MTIENS"")),'$G(HLASTRSP) D STATUS^HLTF0(HLMTIENS,9),EXIT,SETINQUE^HLTP31"
^XMB(3.9,45,2,5577,0)="""RTN"",""HLTP3"",71,0)"
^XMB(3.9,45,2,5578,0)=" ;"
^XMB(3.9,45,2,5579,0)="""RTN"",""HLTP3"",72,0)"
^XMB(3.9,45,2,5580,0)=" ;enhance ack., no commit & no app ack"
^XMB(3.9,45,2,5581,0)="""RTN"",""HLTP3"",73,0)"
^XMB(3.9,45,2,5582,0)=" I $G(HL(""ACAT""))=""NE"",$G(HL(""APAT""))=""NE"" D  Q"
^XMB(3.9,45,2,5583,0)="""RTN"",""HLTP3"",74,0)"
^XMB(3.9,45,2,5584,0)=" . ;set status to awaiting processing, **109** and put on in queue"
^XMB(3.9,45,2,5585,0)="""RTN"",""HLTP3"",75,0)"
^XMB(3.9,45,2,5586,0)=" . I '$G(HLASTRSP) D STATUS^HLTF0(HLMTIENS,9),EXIT,SETINQUE^HLTP31"
^XMB(3.9,45,2,5587,0)="""RTN"",""HLTP3"",76,0)"
^XMB(3.9,45,2,5588,0)=" ;"
^XMB(3.9,45,2,5589,0)="""RTN"",""HLTP3"",77,0)"
^XMB(3.9,45,2,5590,0)=" ; patch HL*1.6*120 start"
^XMB(3.9,45,2,5591,0)="""RTN"",""HLTP3"",78,0)"
^XMB(3.9,45,2,5592,0)=" ;resending old response, msg is a resend"
^XMB(3.9,45,2,5593,0)="""RTN"",""HLTP3"",79,0)"
^XMB(3.9,45,2,5594,0)=" ; I $G(HLASTRSP) S HLTCP=HLASTRSP G ACK"
^XMB(3.9,45,2,5595,0)="""RTN"",""HLTP3"",80,0)"
^XMB(3.9,45,2,5596,0)=" ; do not re-send duplicate message when $G(HL(""ACAT""))=""AL"""
^XMB(3.9,45,2,5597,0)="""RTN"",""HLTP3"",81,0)"
^XMB(3.9,45,2,5598,0)=" I $G(HLASTRSP),$G(HL(""ACAT""))'=""AL"" S HLTCP=HLASTRSP G ACK"
^XMB(3.9,45,2,5599,0)="""RTN"",""HLTP3"",82,0)"
^XMB(3.9,45,2,5600,0)=" ; quit if duplicate"
^XMB(3.9,45,2,5601,0)="""RTN"",""HLTP3"",83,0)"
^XMB(3.9,45,2,5602,0)=" Q:$G(HLASTRSP)"
^XMB(3.9,45,2,5603,0)="""RTN"",""HLTP3"",84,0)"
^XMB(3.9,45,2,5604,0)=" ; patch HL*1.6*120 end"
^XMB(3.9,45,2,5605,0)="""RTN"",""HLTP3"",85,0)"
^XMB(3.9,45,2,5606,0)=" ;"
^XMB(3.9,45,2,5607,0)="""RTN"",""HLTP3"",86,0)"
^XMB(3.9,45,2,5608,0)="CONT ;continue processing an enhance ack msg. called from DEFACK"
^XMB(3.9,45,2,5609,0)="""RTN"",""HLTP3"",87,0)"
^XMB(3.9,45,2,5610,0)=" ;Set special HL variables for processing rtn"
^XMB(3.9,45,2,5611,0)="""RTN"",""HLTP3"",88,0)"
^XMB(3.9,45,2,5612,0)=" S HLQUIT=0,HLNODE="""",HLNEXT=""D HLNEXT^HLCSUTL"""
^XMB(3.9,45,2,5613,0)="""RTN"",""HLTP3"",89,0)"
^XMB(3.9,45,2,5614,0)=" ;"
^XMB(3.9,45,2,5615,0)="""RTN"",""HLTP3"",90,0)"
^XMB(3.9,45,2,5616,0)=" ; message is an acknowledgement, HLMSA=ack code^id^text"
^XMB(3.9,45,2,5617,0)="""RTN"",""HLTP3"",91,0)"
^XMB(3.9,45,2,5618,0)=" I ($G(HLMSA)]"""") D  Q"
^XMB(3.9,45,2,5619,0)="""RTN"",""HLTP3"",92,0)"
^XMB(3.9,45,2,5620,0)=" . ;X=1 if ack ok, 0=reject of error"
^XMB(3.9,45,2,5621,0)="""RTN"",""HLTP3"",93,0)"
^XMB(3.9,45,2,5622,0)=" . S X=$E(HLMSA,2)=""A"""
^XMB(3.9,45,2,5623,0)="""RTN"",""HLTP3"",94,0)"
^XMB(3.9,45,2,5624,0)=" . ;Update status of original subscriber message and remove it from the out-going queue"
^XMB(3.9,45,2,5625,0)="""RTN"",""HLTP3"",95,0)"
^XMB(3.9,45,2,5626,0)=" . D STATUS^HLTF0(HL(""MTIENS""),$S(X:3,1:4),"""",$S(X:"""",1:$P(HLMSA,HL(""FS""),3)),1)"
^XMB(3.9,45,2,5627,0)="""RTN"",""HLTP3"",96,0)"
^XMB(3.9,45,2,5628,0)=" . D DEQUE^HLCSREP($P($G(^HLMA(HL(""MTIENS""),0)),""^"",7),""O"",HL(""MTIENS""))"
^XMB(3.9,45,2,5629,0)="""RTN"",""HLTP3"",97,0)"
^XMB(3.9,45,2,5630,0)=" . D"
^XMB(3.9,45,2,5631,0)="""RTN"",""HLTP3"",98,0)"
^XMB(3.9,45,2,5632,0)=" .. N HLTCP ;New variable to update status in file #772."
^XMB(3.9,45,2,5633,0)="""RTN"",""HLTP3"",99,0)"
^XMB(3.9,45,2,5634,0)=" ..;"
^XMB(3.9,45,2,5635,0)="""RTN"",""HLTP3"",100,0)"
^XMB(3.9,45,2,5636,0)=" ..;**108**"
^XMB(3.9,45,2,5637,0)="""RTN"",""HLTP3"",101,0)"
^XMB(3.9,45,2,5638,0)=" .. N TEMP"
^XMB(3.9,45,2,5639,0)="""RTN"",""HLTP3"",102,0)"
^XMB(3.9,45,2,5640,0)=" .. S TEMP=HLMTIENS"
^XMB(3.9,45,2,5641,0)="""RTN"",""HLTP3"",103,0)"
^XMB(3.9,45,2,5642,0)=" .. N HLMTIENS"
^XMB(3.9,45,2,5643,0)="""RTN"",""HLTP3"",104,0)"
^XMB(3.9,45,2,5644,0)=" .. S HLMTIENS=TEMP"
^XMB(3.9,45,2,5645,0)="""RTN"",""HLTP3"",105,0)"
^XMB(3.9,45,2,5646,0)=" ..;**END 108**"
^XMB(3.9,45,2,5647,0)="""RTN"",""HLTP3"",106,0)"
^XMB(3.9,45,2,5648,0)=" ..;"
^XMB(3.9,45,2,5649,0)="""RTN"",""HLTP3"",107,0)"
^XMB(3.9,45,2,5650,0)=" .. D PROCACK^HLTP2(HLMTIEN,HL(""EID""),.HLRESLT,.HL)"
^XMB(3.9,45,2,5651,0)="""RTN"",""HLTP3"",108,0)"
^XMB(3.9,45,2,5652,0)=" . ;update status of incoming to complete & unlock"
^XMB(3.9,45,2,5653,0)="""RTN"",""HLTP3"",109,0)"
^XMB(3.9,45,2,5654,0)=" . D STATUS^HLTF0(HLMTIENS,$S($G(HLRESLT):4,1:3),$S($G(HLRESLT):+$G(HLRESLT),1:""""),$S($G(HLRESLT):$P(HLRESLT,U,2),1:""""),1),EXIT"
^XMB(3.9,45,2,5655,0)="""RTN"",""HLTP3"",110,0)"
^XMB(3.9,45,2,5656,0)=" ;"
^XMB(3.9,45,2,5657,0)="""RTN"",""HLTP3"",111,0)"
^XMB(3.9,45,2,5658,0)=" ;get entry action, exit action and processing routine"
^XMB(3.9,45,2,5659,0)="""RTN"",""HLTP3"",112,0)"
^XMB(3.9,45,2,5660,0)=" K HLHDR,HLLD0,HLLD1,HLMSA"
^XMB(3.9,45,2,5661,0)="""RTN"",""HLTP3"",113,0)"
^XMB(3.9,45,2,5662,0)=" I HL(""EIDS"")="""",$G(HLEIDS)]"""" S HL(""EIDS"")=HLEIDS ;**CIRN**"
^XMB(3.9,45,2,5663,0)="""RTN"",""HLTP3"",114,0)"
^XMB(3.9,45,2,5664,0)=" D EVENT^HLUTIL1(HL(""EIDS""),""15,20,771"",.HLN)"
^XMB(3.9,45,2,5665,0)="""RTN"",""HLTP3"",115,0)"
^XMB(3.9,45,2,5666,0)=" S HLENROU=$G(HLN(20)),HLEXROU=$G(HLN(15)),HLPROU=$G(HLN(771))"
^XMB(3.9,45,2,5667,0)="""RTN"",""HLTP3"",116,0)"
^XMB(3.9,45,2,5668,0)=" ;quit if no processing routine,update status and quit"
^XMB(3.9,45,2,5669,0)="""RTN"",""HLTP3"",117,0)"
^XMB(3.9,45,2,5670,0)=" I HLPROU']"""" S HLRESLT=""10^""_$G(^HL(771.7,10,0)) D STATUS^HLTF0(HLMTIENS,3,,,1),EXIT Q"
^XMB(3.9,45,2,5671,0)="""RTN"",""HLTP3"",118,0)"
^XMB(3.9,45,2,5672,0)=" ;HLORNOD=subscriber protocol for Fileman auditing, ien;global ref"
^XMB(3.9,45,2,5673,0)="""RTN"",""HLTP3"",119,0)"
^XMB(3.9,45,2,5674,0)=" N HLORNODD S HLORNOD=HL(""EIDS"")_"";ORD(101,"""
^XMB(3.9,45,2,5675,0)="""RTN"",""HLTP3"",120,0)"
^XMB(3.9,45,2,5676,0)=" ;Execute entry action of client protocol"
^XMB(3.9,45,2,5677,0)="""RTN"",""HLTP3"",121,0)"
^XMB(3.9,45,2,5678,0)=" X:HLENROU]"""" HLENROU K HLENROU,HLDONE1"
^XMB(3.9,45,2,5679,0)="""RTN"",""HLTP3"",122,0)"
^XMB(3.9,45,2,5680,0)=" ;"
^XMB(3.9,45,2,5681,0)="""RTN"",""HLTP3"",123,0)"
^XMB(3.9,45,2,5682,0)=" ;Execute processing routine"
^XMB(3.9,45,2,5683,0)="""RTN"",""HLTP3"",124,0)"
^XMB(3.9,45,2,5684,0)=" X HLPROU S HLRESLT=0 S:($D(HLERR)) HLRESLT=""9^""_HLERR"
^XMB(3.9,45,2,5685,0)="""RTN"",""HLTP3"",125,0)"
^XMB(3.9,45,2,5686,0)=" ;update status of incoming to complete & unlock"
^XMB(3.9,45,2,5687,0)="""RTN"",""HLTP3"",126,0)"
^XMB(3.9,45,2,5688,0)=" D STATUS^HLTF0(HLMTIENS,$S(HLRESLT:4,1:3),$S(HLRESLT:+HLRESLT,1:""""),$S(HLRESLT:$P(HLRESLT,U,2),1:""""),1,$S($G(HLERR(""SKIP_EVENT""))=1:1,1:0)),EXIT"
^XMB(3.9,45,2,5689,0)="""RTN"",""HLTP3"",127,0)"
^XMB(3.9,45,2,5690,0)=" ;HLTCPO=link open, HLTCP=ien of acknowledgment msg. from GENACK"
^XMB(3.9,45,2,5691,0)="""RTN"",""HLTP3"",128,0)"
^XMB(3.9,45,2,5692,0)="ACK I $G(HLTCPO),$G(HLTCP) D  Q"
^XMB(3.9,45,2,5693,0)="""RTN"",""HLTP3"",129,0)"
^XMB(3.9,45,2,5694,0)=" . D LLCNT^HLCSTCP(HLDP,3)"
^XMB(3.9,45,2,5695,0)="""RTN"",""HLTP3"",130,0)"
^XMB(3.9,45,2,5696,0)=" . ;write ack back over open tcp link"
^XMB(3.9,45,2,5697,0)="""RTN"",""HLTP3"",131,0)"
^XMB(3.9,45,2,5698,0)=" . S X=$$WRITE^HLCSTCP2(HLTCP)"
^XMB(3.9,45,2,5699,0)="""RTN"",""HLTP3"",132,0)"
^XMB(3.9,45,2,5700,0)=" . ;update status of ack to complete"
^XMB(3.9,45,2,5701,0)="""RTN"",""HLTP3"",133,0)"
^XMB(3.9,45,2,5702,0)=" . D:'$G(HLASTRSP) STATUS^HLTF0(HLTCP,3,,,1)"
^XMB(3.9,45,2,5703,0)="""RTN"",""HLTP3"",134,0)"
^XMB(3.9,45,2,5704,0)=" . D LLCNT^HLCSTCP(HLDP,4)"
^XMB(3.9,45,2,5705,0)="""RTN"",""HLTP3"",135,0)"
^XMB(3.9,45,2,5706,0)=" Q"
^XMB(3.9,45,2,5707,0)="""RTN"",""HLTP3"",136,0)"
^XMB(3.9,45,2,5708,0)=" ;"
^XMB(3.9,45,2,5709,0)="""RTN"",""HLTP3"",137,0)"
^XMB(3.9,45,2,5710,0)="DEFACK(HLDP,X) ;process the deferred application ack, called from HLCSIN"
^XMB(3.9,45,2,5711,0)="""RTN"",""HLTP3"",138,0)"
^XMB(3.9,45,2,5712,0)=" ;HLDP=logical link, X=ien in file 773"
^XMB(3.9,45,2,5713,0)="""RTN"",""HLTP3"",139,0)"
^XMB(3.9,45,2,5714,0)=" ;"
^XMB(3.9,45,2,5715,0)="""RTN"",""HLTP3"",140,0)"
^XMB(3.9,45,2,5716,0)=" ; patch HL*1.6*120 start"
^XMB(3.9,45,2,5717,0)="""RTN"",""HLTP3"",141,0)"
^XMB(3.9,45,2,5718,0)=" ; clean variables except Kernel related variables"
^XMB(3.9,45,2,5719,0)="""RTN"",""HLTP3"",142,0)"
^XMB(3.9,45,2,5720,0)=" D"
^XMB(3.9,45,2,5721,0)="""RTN"",""HLTP3"",143,0)"
^XMB(3.9,45,2,5722,0)=" . ; protect variables defined in STARTIN^HLCSIN"
^XMB(3.9,45,2,5723,0)="""RTN"",""HLTP3"",144,0)"
^XMB(3.9,45,2,5724,0)=" . N HLFLG,HLEXIT,HLPTRFLR"
^XMB(3.9,45,2,5725,0)="""RTN"",""HLTP3"",145,0)"
^XMB(3.9,45,2,5726,0)=" . ; protect variables defined in DEFACK^HLCSIN"
^XMB(3.9,45,2,5727,0)="""RTN"",""HLTP3"",146,0)"
^XMB(3.9,45,2,5728,0)=" . N HLXX,HLD0,HLPCT"
^XMB(3.9,45,2,5729,0)="""RTN"",""HLTP3"",147,0)"
^XMB(3.9,45,2,5730,0)=" . ; protect input parameters of this sub-routine"
^XMB(3.9,45,2,5731,0)="""RTN"",""HLTP3"",148,0)"
^XMB(3.9,45,2,5732,0)=" . N HLDP,X"
^XMB(3.9,45,2,5733,0)="""RTN"",""HLTP3"",149,0)"
^XMB(3.9,45,2,5734,0)=" . D KILL^XUSCLEAN"
^XMB(3.9,45,2,5735,0)="""RTN"",""HLTP3"",150,0)"
^XMB(3.9,45,2,5736,0)=" ; patch HL*1.6*120 end"
^XMB(3.9,45,2,5737,0)="""RTN"",""HLTP3"",151,0)"
^XMB(3.9,45,2,5738,0)=" ;"
^XMB(3.9,45,2,5739,0)="""RTN"",""HLTP3"",152,0)"
^XMB(3.9,45,2,5740,0)=" ;set error trap"
^XMB(3.9,45,2,5741,0)="""RTN"",""HLTP3"",153,0)"
^XMB(3.9,45,2,5742,0)=" N $ETRAP,$ESTACK S $ETRAP=""D ERROR^HLTP3"""
^XMB(3.9,45,2,5743,0)="""RTN"",""HLTP3"",154,0)"
^XMB(3.9,45,2,5744,0)=" N HLERR     ;patch HL*1.6*109"
^XMB(3.9,45,2,5745,0)="""RTN"",""HLTP3"",155,0)"
^XMB(3.9,45,2,5746,0)=" Q:'$G(HLDP)!'$G(X)  Q:'$G(^HLMA(X,0))"
^XMB(3.9,45,2,5747,0)="""RTN"",""HLTP3"",156,0)"
^XMB(3.9,45,2,5748,0)=" ;**109 START**"
^XMB(3.9,45,2,5749,0)="""RTN"",""HLTP3"",157,0)"
^XMB(3.9,45,2,5750,0)=" Q:'$D(^HLMA(""AC"",""I"",HLDP,X))"
^XMB(3.9,45,2,5751,0)="""RTN"",""HLTP3"",158,0)"
^XMB(3.9,45,2,5752,0)=" ;**109 END**"
^XMB(3.9,45,2,5753,0)="""RTN"",""HLTP3"",159,0)"
^XMB(3.9,45,2,5754,0)=" ;"
^XMB(3.9,45,2,5755,0)="""RTN"",""HLTP3"",160,0)"
^XMB(3.9,45,2,5756,0)=" N HL,HLA,HLD0,HLEID,HLEIDS,HLHDR,HLHDRO,HLMTIEN,HLMTIENS,HLJ,HLMSA,HLN,HLQUIT,HLNODE,HLNEXT,HLRESLT,HLRESLTA,HLTCP,HLXX,Z,HLDONE1"
^XMB(3.9,45,2,5757,0)="""RTN"",""HLTP3"",161,0)"
^XMB(3.9,45,2,5758,0)=" ;setup variables"
^XMB(3.9,45,2,5759,0)="""RTN"",""HLTP3"",162,0)"
^XMB(3.9,45,2,5760,0)=" S HLMTIENS=X,X=^HLMA(HLMTIENS,0),HLMTIEN=+$P(X,U),HL(""MID"")=$P(X,U,2),HL(""MTIENS"")=$P(X,U,10),HL(""LL"")=$P(X,U,7),HLTCP="""",HL(""Q"")="""""""""""""
^XMB(3.9,45,2,5761,0)="""RTN"",""HLTP3"",163,0)"
^XMB(3.9,45,2,5762,0)=" S HL(""EIDS"")=$P(X,U,8),HL(""SAP"")=$P(X,U,11),HL(""RAP"")=$P(X,U,12),HL(""MTP"")=$P(X,U,13),HL(""ETP"")=$P(X,U,14)"
^XMB(3.9,45,2,5763,0)="""RTN"",""HLTP3"",164,0)"
^XMB(3.9,45,2,5764,0)=" S:$P(X,U,15) HL(""MTP_ETP"")=$P(X,U,15)"
^XMB(3.9,45,2,5765,0)="""RTN"",""HLTP3"",165,0)"
^XMB(3.9,45,2,5766,0)=" S:HL(""SAP"") HL(""SAN"")=$P($G(^HL(771,HL(""SAP""),0)),U) S:HL(""RAP"") HL(""RAN"")=$P($G(^HL(771,HL(""RAP""),0)),U)"
^XMB(3.9,45,2,5767,0)="""RTN"",""HLTP3"",166,0)"
^XMB(3.9,45,2,5768,0)=" S:HL(""MTP"") HL(""MTN"")=$P($G(^HL(771.2,HL(""MTP""),0)),U) S:HL(""ETP"") HL(""ETN"")=$P($G(^HL(779.001,HL(""ETP""),0)),U)"
^XMB(3.9,45,2,5769,0)="""RTN"",""HLTP3"",167,0)"
^XMB(3.9,45,2,5770,0)=" S:$G(HL(""MTP_ETP"")) HL(""MTN_ETN"")=$P($G(^HL(779.005,HL(""MTP_ETP""),0)),U)"
^XMB(3.9,45,2,5771,0)="""RTN"",""HLTP3"",168,0)"
^XMB(3.9,45,2,5772,0)=" S HL(""EID"")=$P($G(^HL(772,HLMTIEN,0)),U,10)"
^XMB(3.9,45,2,5773,0)="""RTN"",""HLTP3"",169,0)"
^XMB(3.9,45,2,5774,0)=" M HLHDRO=^HLMA(HLMTIENS,""MSH"")"
^XMB(3.9,45,2,5775,0)="""RTN"",""HLTP3"",170,0)"
^XMB(3.9,45,2,5776,0)=" ; if no header quit"
^XMB(3.9,45,2,5777,0)="""RTN"",""HLTP3"",171,0)"
^XMB(3.9,45,2,5778,0)=" ;**109**"
^XMB(3.9,45,2,5779,0)="""RTN"",""HLTP3"",172,0)"
^XMB(3.9,45,2,5780,0)=" ;I '$O(HLHDRO(0)) L -^HLMA(HLMTIENS) Q"
^XMB(3.9,45,2,5781,0)="""RTN"",""HLTP3"",173,0)"
^XMB(3.9,45,2,5782,0)=" Q:'$O(HLHDRO(0))"
^XMB(3.9,45,2,5783,0)="""RTN"",""HLTP3"",174,0)"
^XMB(3.9,45,2,5784,0)=" ;"
^XMB(3.9,45,2,5785,0)="""RTN"",""HLTP3"",175,0)"
^XMB(3.9,45,2,5786,0)=" S HL(""FS"")=$E(HLHDRO(1,0),4),HL(""ECH"")=$$P^HLTPCK2(.HLHDRO,2),HL(""SFN"")=$$P^HLTPCK2(.HLHDRO,4),HL(""RFN"")=$$P^HLTPCK2(.HLHDRO,6),HL(""DTM"")=$$P^HLTPCK2(.HLHDRO,7)"
^XMB(3.9,45,2,5787,0)="""RTN"",""HLTP3"",176,0)"
^XMB(3.9,45,2,5788,0)=" ;"
^XMB(3.9,45,2,5789,0)="""RTN"",""HLTP3"",177,0)"
^XMB(3.9,45,2,5790,0)=" ; patch HL*1.6*109 start"
^XMB(3.9,45,2,5791,0)="""RTN"",""HLTP3"",178,0)"
^XMB(3.9,45,2,5792,0)=" ; quit if ien of #772 is not defined"
^XMB(3.9,45,2,5793,0)="""RTN"",""HLTP3"",179,0)"
^XMB(3.9,45,2,5794,0)=" Q:'HLMTIEN"
^XMB(3.9,45,2,5795,0)="""RTN"",""HLTP3"",180,0)"
^XMB(3.9,45,2,5796,0)=" ; quit if field separator is not defined"
^XMB(3.9,45,2,5797,0)="""RTN"",""HLTP3"",181,0)"
^XMB(3.9,45,2,5798,0)=" Q:HL(""FS"")="""""
^XMB(3.9,45,2,5799,0)="""RTN"",""HLTP3"",182,0)"
^XMB(3.9,45,2,5800,0)=" ; patch HL*1.6*109 end"
^XMB(3.9,45,2,5801,0)="""RTN"",""HLTP3"",183,0)"
^XMB(3.9,45,2,5802,0)=" ;"
^XMB(3.9,45,2,5803,0)="""RTN"",""HLTP3"",184,0)"
^XMB(3.9,45,2,5804,0)=" S X=$$P^HLTPCK2(.HLHDRO,1)"
^XMB(3.9,45,2,5805,0)="""RTN"",""HLTP3"",185,0)"
^XMB(3.9,45,2,5806,0)=" ;"
^XMB(3.9,45,2,5807,0)="""RTN"",""HLTP3"",186,0)"
^XMB(3.9,45,2,5808,0)=" ; patch HL*1.6*120 start"
^XMB(3.9,45,2,5809,0)="""RTN"",""HLTP3"",187,0)"
^XMB(3.9,45,2,5810,0)=" I X=""MSH"" D"
^XMB(3.9,45,2,5811,0)="""RTN"",""HLTP3"",188,0)"
^XMB(3.9,45,2,5812,0)=" . S HL(""PID"")=$$P^HLTPCK2(.HLHDRO,11),HL(""VER"")=$$P^HLTPCK2(.HLHDRO,12),HL(""APAT"")=$$P^HLTPCK2(.HLHDRO,16),HL(""CC"")=$$P^HLTPCK2(.HLHDRO,17)"
^XMB(3.9,45,2,5813,0)="""RTN"",""HLTP3"",189,0)"
^XMB(3.9,45,2,5814,0)=" . ;"
^XMB(3.9,45,2,5815,0)="""RTN"",""HLTP3"",190,0)"
^XMB(3.9,45,2,5816,0)=" . ; 2nd component is Processing mode"
^XMB(3.9,45,2,5817,0)="""RTN"",""HLTP3"",191,0)"
^XMB(3.9,45,2,5818,0)=" . S HL(""PMOD"")=$P(HL(""PID""),$E(HL(""ECH""),1),2)"
^XMB(3.9,45,2,5819,0)="""RTN"",""HLTP3"",192,0)"
^XMB(3.9,45,2,5820,0)=" . ; first component is Processing id"
^XMB(3.9,45,2,5821,0)="""RTN"",""HLTP3"",193,0)"
^XMB(3.9,45,2,5822,0)=" . S HL(""PID"")=$P(HL(""PID""),$E(HL(""ECH""),1))"
^XMB(3.9,45,2,5823,0)="""RTN"",""HLTP3"",194,0)"
^XMB(3.9,45,2,5824,0)=" ;"
^XMB(3.9,45,2,5825,0)="""RTN"",""HLTP3"",195,0)"
^XMB(3.9,45,2,5826,0)=" I X'=""MSH"" D"
^XMB(3.9,45,2,5827,0)="""RTN"",""HLTP3"",196,0)"
^XMB(3.9,45,2,5828,0)=" . S X=$$P^HLTPCK2(.HLHDRO,9),Z=$E(HL(""ECH"")),HL(""PID"")=$P(X,Z,2),HL(""VER"")=$P(X,Z,4)"
^XMB(3.9,45,2,5829,0)="""RTN"",""HLTP3"",197,0)"
^XMB(3.9,45,2,5830,0)=" . ;"
^XMB(3.9,45,2,5831,0)="""RTN"",""HLTP3"",198,0)"
^XMB(3.9,45,2,5832,0)=" . ; original implementation incorrectly treats repetition separator as"
^XMB(3.9,45,2,5833,0)="""RTN"",""HLTP3"",199,0)"
^XMB(3.9,45,2,5834,0)=" . ; subcomponent separator"
^XMB(3.9,45,2,5835,0)="""RTN"",""HLTP3"",200,0)"
^XMB(3.9,45,2,5836,0)=" . I $E(HL(""ECH""),2)]"""",X[$E(HL(""ECH""),2) D"
^XMB(3.9,45,2,5837,0)="""RTN"",""HLTP3"",201,0)"
^XMB(3.9,45,2,5838,0)=" .. S HL(""SUB-COMPONENT"")=$E(HL(""ECH""),2)"
^XMB(3.9,45,2,5839,0)="""RTN"",""HLTP3"",202,0)"
^XMB(3.9,45,2,5840,0)=" . ; if subcomponent separator is correctly applied"
^XMB(3.9,45,2,5841,0)="""RTN"",""HLTP3"",203,0)"
^XMB(3.9,45,2,5842,0)=" . I $E(HL(""ECH""),4)]"""",X[$E(HL(""ECH""),4) D"
^XMB(3.9,45,2,5843,0)="""RTN"",""HLTP3"",204,0)"
^XMB(3.9,45,2,5844,0)=" .. S HL(""SUB-COMPONENT"")=$E(HL(""ECH""),4)"
^XMB(3.9,45,2,5845,0)="""RTN"",""HLTP3"",205,0)"
^XMB(3.9,45,2,5846,0)=" . ;"
^XMB(3.9,45,2,5847,0)="""RTN"",""HLTP3"",206,0)"
^XMB(3.9,45,2,5848,0)=" . I $D(HL(""SUB-COMPONENT"")),HL(""PID"")[HL(""SUB-COMPONENT"") D"
^XMB(3.9,45,2,5849,0)="""RTN"",""HLTP3"",207,0)"
^XMB(3.9,45,2,5850,0)=" .. ; 2nd sub-component is Processing mode"
^XMB(3.9,45,2,5851,0)="""RTN"",""HLTP3"",208,0)"
^XMB(3.9,45,2,5852,0)=" .. S HL(""PMOD"")=$P(HL(""PID""),HL(""SUB-COMPONENT""),2)"
^XMB(3.9,45,2,5853,0)="""RTN"",""HLTP3"",209,0)"
^XMB(3.9,45,2,5854,0)=" .. ; first sub-component is Processing id"
^XMB(3.9,45,2,5855,0)="""RTN"",""HLTP3"",210,0)"
^XMB(3.9,45,2,5856,0)=" .. S HL(""PID"")=$P(HL(""PID""),HL(""SUB-COMPONENT""))"
^XMB(3.9,45,2,5857,0)="""RTN"",""HLTP3"",211,0)"
^XMB(3.9,45,2,5858,0)=" . ; patch HL*1.6*120 end"
^XMB(3.9,45,2,5859,0)="""RTN"",""HLTP3"",212,0)"
^XMB(3.9,45,2,5860,0)=" . ;"
^XMB(3.9,45,2,5861,0)="""RTN"",""HLTP3"",213,0)"
^XMB(3.9,45,2,5862,0)=" . Q:$$P^HLTPCK2(.HLHDRO,10)="""""
^XMB(3.9,45,2,5863,0)="""RTN"",""HLTP3"",214,0)"
^XMB(3.9,45,2,5864,0)=" . ;HLMSA=ack code^id^text"
^XMB(3.9,45,2,5865,0)="""RTN"",""HLTP3"",215,0)"
^XMB(3.9,45,2,5866,0)=" . S HLMSA=$P($$P^HLTPCK2(.HLHDRO,10),$E(HL(""ECH"")),1),$P(HLMSA,HL(""FS""),2)=$$P^HLTPCK2(.HLHDRO,12),$P(HLMSA,HL(""FS""),3)=$P($$P^HLTPCK2(.HLHDRO,10),$E(HL(""ECH"")),2),HL(""MSAID"")=$P(HLMSA,HL(""FS""),2)"
^XMB(3.9,45,2,5867,0)="""RTN"",""HLTP3"",216,0)"
^XMB(3.9,45,2,5868,0)=" ;"
^XMB(3.9,45,2,5869,0)="""RTN"",""HLTP3"",217,0)"
^XMB(3.9,45,2,5870,0)=" ; HL*1.6*108"
^XMB(3.9,45,2,5871,0)="""RTN"",""HLTP3"",218,0)"
^XMB(3.9,45,2,5872,0)=" ; quit if this is a commit ack"
^XMB(3.9,45,2,5873,0)="""RTN"",""HLTP3"",219,0)"
^XMB(3.9,45,2,5874,0)=" I $P($G(^HL(772,HLMTIEN,""IN"",1,0)),HL(""FS""),1)=""MSA"",$E($P($G(^HL(772,HLMTIEN,""IN"",1,0)),HL(""FS""),2))=""C"" Q"
^XMB(3.9,45,2,5875,0)="""RTN"",""HLTP3"",220,0)"
^XMB(3.9,45,2,5876,0)=" ; ** "
^XMB(3.9,45,2,5877,0)="""RTN"",""HLTP3"",221,0)"
^XMB(3.9,45,2,5878,0)=" ;"
^XMB(3.9,45,2,5879,0)="""RTN"",""HLTP3"",222,0)"
^XMB(3.9,45,2,5880,0)=" ;**  HL*1.6*117 **"
^XMB(3.9,45,2,5881,0)="""RTN"",""HLTP3"",223,0)"
^XMB(3.9,45,2,5882,0)=" K HLL(""SET FOR APP ACK""),HLL(""LINKS"")"
^XMB(3.9,45,2,5883,0)="""RTN"",""HLTP3"",224,0)"
^XMB(3.9,45,2,5884,0)=" ;** END HL*1.6*117 **"
^XMB(3.9,45,2,5885,0)="""RTN"",""HLTP3"",225,0)"
^XMB(3.9,45,2,5886,0)=" ;"
^XMB(3.9,45,2,5887,0)="""RTN"",""HLTP3"",226,0)"
^XMB(3.9,45,2,5888,0)=" D CONT"
^XMB(3.9,45,2,5889,0)="""RTN"",""HLTP3"",227,0)"
^XMB(3.9,45,2,5890,0)=" Q"
^XMB(3.9,45,2,5891,0)="""RTN"",""HLTP3"",228,0)"
^XMB(3.9,45,2,5892,0)=" ;"
^XMB(3.9,45,2,5893,0)="""RTN"",""HLTP3"",229,0)"
^XMB(3.9,45,2,5894,0)="MSA(Y) ;Y=ien in 772, returns MSA segment"
^XMB(3.9,45,2,5895,0)="""RTN"",""HLTP3"",230,0)"
^XMB(3.9,45,2,5896,0)=" ;ack code^msg being ack id^text"
^XMB(3.9,45,2,5897,0)="""RTN"",""HLTP3"",231,0)"
^XMB(3.9,45,2,5898,0)=" N X"
^XMB(3.9,45,2,5899,0)="""RTN"",""HLTP3"",232,0)"
^XMB(3.9,45,2,5900,0)=" S X=$G(^HL(772,Y,""IN"",1,0)),X=$S($E(X,1,3)=""MSA"":$E(X,5,999),1:"""")"
^XMB(3.9,45,2,5901,0)="""RTN"",""HLTP3"",233,0)"
^XMB(3.9,45,2,5902,0)=" Q X"
^XMB(3.9,45,2,5903,0)="""RTN"",""HLTP3"",234,0)"
^XMB(3.9,45,2,5904,0)=" ;"
^XMB(3.9,45,2,5905,0)="""RTN"",""HLTP3"",235,0)"
^XMB(3.9,45,2,5906,0)="ERROR ;error trap"
^XMB(3.9,45,2,5907,0)="""RTN"",""HLTP3"",236,0)"
^XMB(3.9,45,2,5908,0)=" D ^%ZTER"
^XMB(3.9,45,2,5909,0)="""RTN"",""HLTP3"",237,0)"
^XMB(3.9,45,2,5910,0)=" I $G(HLMTIENS),$D(^HLMA(HLMTIENS,0)) D STATUS^HLTF0(HLMTIENS,4,,,1),EXIT"
^XMB(3.9,45,2,5911,0)="""RTN"",""HLTP3"",238,0)"
^XMB(3.9,45,2,5912,0)=" ;*109* release all locks created by inbound filer"
^XMB(3.9,45,2,5913,0)="""RTN"",""HLTP3"",239,0)"
^XMB(3.9,45,2,5914,0)=" L -^HLMA(""AC"",""I"",+$G(HLXX))"
^XMB(3.9,45,2,5915,0)="""RTN"",""HLTP3"",240,0)"
^XMB(3.9,45,2,5916,0)=" G UNWIND^%ZTER"
^XMB(3.9,45,2,5917,0)="""RTN"",""HLTP3"",241,0)"
^XMB(3.9,45,2,5918,0)=" ;"
^XMB(3.9,45,2,5919,0)="""RTN"",""HLTP3"",242,0)"
^XMB(3.9,45,2,5920,0)=" ;"
^XMB(3.9,45,2,5921,0)="""RTN"",""HLTP3"",243,0)"
^XMB(3.9,45,2,5922,0)="EXIT ;unlock"
^XMB(3.9,45,2,5923,0)="""RTN"",""HLTP3"",244,0)"
^XMB(3.9,45,2,5924,0)=" I $G(HLMTIENS) L -^HLMA(HLMTIENS)"
^XMB(3.9,45,2,5925,0)="""RTN"",""HLTP3"",245,0)"
^XMB(3.9,45,2,5926,0)=" Q"
^XMB(3.9,45,2,5927,0)="""RTN"",""HLTP3"",246,0)"
^XMB(3.9,45,2,5928,0)=" ;"
^XMB(3.9,45,2,5929,0)="""RTN"",""HLTP3"",247,0)"
^XMB(3.9,45,2,5930,0)="ONAC(IEN773) ;"
^XMB(3.9,45,2,5931,0)="""RTN"",""HLTP3"",248,0)"
^XMB(3.9,45,2,5932,0)=" ;Returns 1 if the message is on the ""AC"",""I"" xref"
^XMB(3.9,45,2,5933,0)="""RTN"",""HLTP3"",249,0)"
^XMB(3.9,45,2,5934,0)=" ;Returns 0 otherwise"
^XMB(3.9,45,2,5935,0)="""RTN"",""HLTP3"",250,0)"
^XMB(3.9,45,2,5936,0)=" ;"
^XMB(3.9,45,2,5937,0)="""RTN"",""HLTP3"",251,0)"
^XMB(3.9,45,2,5938,0)=" N LINK"
^XMB(3.9,45,2,5939,0)="""RTN"",""HLTP3"",252,0)"
^XMB(3.9,45,2,5940,0)=" S LINK=$P($G(^HLMA(IEN773,0)),""^"",17)"
^XMB(3.9,45,2,5941,0)="""RTN"",""HLTP3"",253,0)"
^XMB(3.9,45,2,5942,0)=" Q:'LINK 0"
^XMB(3.9,45,2,5943,0)="""RTN"",""HLTP3"",254,0)"
^XMB(3.9,45,2,5944,0)=" Q $D(^HLMA(""AC"",""I"",LINK,IEN773))"
^XMB(3.9,45,2,5945,0)="""RTN"",""HLTPCK1"")"
^XMB(3.9,45,2,5946,0)="0^14^B37602285^B31754890"
^XMB(3.9,45,2,5947,0)="""RTN"",""HLTPCK1"",1,0)"
^XMB(3.9,45,2,5948,0)="HLTPCK1 ;AISC/SAW-Header Validation Routine (non-TCP link) ;09/13/2006"
^XMB(3.9,45,2,5949,0)="""RTN"",""HLTPCK1"",2,0)"
^XMB(3.9,45,2,5950,0)=" ;;1.6;HEALTH LEVEL SEVEN;**8,36,59,120,133**;Oct 13, 1995;Build 13"
^XMB(3.9,45,2,5951,0)="""RTN"",""HLTPCK1"",3,0)"
^XMB(3.9,45,2,5952,0)=" ;Per VHA Directive 2004-038, this routine should not be modified."
^XMB(3.9,45,2,5953,0)="""RTN"",""HLTPCK1"",4,0)"
^XMB(3.9,45,2,5954,0)="CHK(HDR,ARY,MSA) ;Validate Data in Header Segment (MSH, BHS or FHS) of"
^XMB(3.9,45,2,5955,0)="""RTN"",""HLTPCK1"",5,0)"
^XMB(3.9,45,2,5956,0)=" ;an HL7 Message through non-TCP link"
^XMB(3.9,45,2,5957,0)="""RTN"",""HLTPCK1"",6,0)"
^XMB(3.9,45,2,5958,0)=" ;"
^XMB(3.9,45,2,5959,0)="""RTN"",""HLTPCK1"",7,0)"
^XMB(3.9,45,2,5960,0)=" ;This entry point is a subroutine call with parameter passing that"
^XMB(3.9,45,2,5961,0)="""RTN"",""HLTPCK1"",8,0)"
^XMB(3.9,45,2,5962,0)=" ;will return an array (ARY()) consisting of values extracted from"
^XMB(3.9,45,2,5963,0)="""RTN"",""HLTPCK1"",9,0)"
^XMB(3.9,45,2,5964,0)=" ;the message header segment subscripted by the mnemonics for each of"
^XMB(3.9,45,2,5965,0)="""RTN"",""HLTPCK1"",10,0)"
^XMB(3.9,45,2,5966,0)=" ;the message header fields and components"
^XMB(3.9,45,2,5967,0)="""RTN"",""HLTPCK1"",11,0)"
^XMB(3.9,45,2,5968,0)=" ;If an error is encountered during validation, the array parameter"
^XMB(3.9,45,2,5969,0)="""RTN"",""HLTPCK1"",12,0)"
^XMB(3.9,45,2,5970,0)=" ;(ARY) will be set equal to two pieces, error #^error text"
^XMB(3.9,45,2,5971,0)="""RTN"",""HLTPCK1"",13,0)"
^XMB(3.9,45,2,5972,0)=" ;"
^XMB(3.9,45,2,5973,0)="""RTN"",""HLTPCK1"",14,0)"
^XMB(3.9,45,2,5974,0)=" ;Required input parameters:"
^XMB(3.9,45,2,5975,0)="""RTN"",""HLTPCK1"",15,0)"
^XMB(3.9,45,2,5976,0)=" ;  HDR = Message header segment"
^XMB(3.9,45,2,5977,0)="""RTN"",""HLTPCK1"",16,0)"
^XMB(3.9,45,2,5978,0)=" ;"
^XMB(3.9,45,2,5979,0)="""RTN"",""HLTPCK1"",17,0)"
^XMB(3.9,45,2,5980,0)=" ;  ARY = The array in which the message header values will be"
^XMB(3.9,45,2,5981,0)="""RTN"",""HLTPCK1"",18,0)"
^XMB(3.9,45,2,5982,0)=" ;          returned"
^XMB(3.9,45,2,5983,0)="""RTN"",""HLTPCK1"",19,0)"
^XMB(3.9,45,2,5984,0)=" ;  Note:  The ARY parameter must be passed by reference"
^XMB(3.9,45,2,5985,0)="""RTN"",""HLTPCK1"",20,0)"
^XMB(3.9,45,2,5986,0)=" ;"
^XMB(3.9,45,2,5987,0)="""RTN"",""HLTPCK1"",21,0)"
^XMB(3.9,45,2,5988,0)=" ;Optional input parameter:"
^XMB(3.9,45,2,5989,0)="""RTN"",""HLTPCK1"",22,0)"
^XMB(3.9,45,2,5990,0)=" ;  MSA = A variable which contains the message acknowledgement values:"
^XMB(3.9,45,2,5991,0)="""RTN"",""HLTPCK1"",23,0)"
^XMB(3.9,45,2,5992,0)=" ;          acknowledgement code^message control ID^text message"
^XMB(3.9,45,2,5993,0)="""RTN"",""HLTPCK1"",24,0)"
^XMB(3.9,45,2,5994,0)=" ;"
^XMB(3.9,45,2,5995,0)="""RTN"",""HLTPCK1"",25,0)"
^XMB(3.9,45,2,5996,0)=" ;Check for required parameters"
^XMB(3.9,45,2,5997,0)="""RTN"",""HLTPCK1"",26,0)"
^XMB(3.9,45,2,5998,0)=" N ERR S ERR="""""
^XMB(3.9,45,2,5999,0)="""RTN"",""HLTPCK1"",27,0)"
^XMB(3.9,45,2,6000,0)=" I $G(HDR)']"""" S ERR=""7^""_$G(^HL(771.7,7,0))_"" at CHK^HLTPCK1 entry point"" G EXIT"
^XMB(3.9,45,2,6001,0)="""RTN"",""HLTPCK1"",28,0)"
^XMB(3.9,45,2,6002,0)=" N ECH,HLN,FS,X,X1,X2"
^XMB(3.9,45,2,6003,0)="""RTN"",""HLTPCK1"",29,0)"
^XMB(3.9,45,2,6004,0)=" S ARY="""",ARY(""Q"")="""""""""""""
^XMB(3.9,45,2,6005,0)="""RTN"",""HLTPCK1"",30,0)"
^XMB(3.9,45,2,6006,0)=" ;"
^XMB(3.9,45,2,6007,0)="""RTN"",""HLTPCK1"",31,0)"
^XMB(3.9,45,2,6008,0)=" ;Validate field separator and encoding characters"
^XMB(3.9,45,2,6009,0)="""RTN"",""HLTPCK1"",32,0)"
^XMB(3.9,45,2,6010,0)=" S (ARY(""FS""),FS)=$E(HDR,4)"
^XMB(3.9,45,2,6011,0)="""RTN"",""HLTPCK1"",33,0)"
^XMB(3.9,45,2,6012,0)=" I FS']"""" S ERR=""Field Separator Missing"" G EXIT"
^XMB(3.9,45,2,6013,0)="""RTN"",""HLTPCK1"",34,0)"
^XMB(3.9,45,2,6014,0)=" I FS?.C S ERR=""Invalid Field Separator"" G EXIT"
^XMB(3.9,45,2,6015,0)="""RTN"",""HLTPCK1"",35,0)"
^XMB(3.9,45,2,6016,0)=" S (ARY(""ECH""),ECH)=$P(HDR,FS,2)"
^XMB(3.9,45,2,6017,0)="""RTN"",""HLTPCK1"",36,0)"
^XMB(3.9,45,2,6018,0)=" I ECH']"""" S ERR=""Encoding Characters Missing"" G EXIT"
^XMB(3.9,45,2,6019,0)="""RTN"",""HLTPCK1"",37,0)"
^XMB(3.9,45,2,6020,0)=" I ECH?.C S ERR=""Invalid Encoding Characters"" G EXIT"
^XMB(3.9,45,2,6021,0)="""RTN"",""HLTPCK1"",38,0)"
^XMB(3.9,45,2,6022,0)=" ;"
^XMB(3.9,45,2,6023,0)="""RTN"",""HLTPCK1"",39,0)"
^XMB(3.9,45,2,6024,0)=" ; patch HL*1.6*120 start"
^XMB(3.9,45,2,6025,0)="""RTN"",""HLTPCK1"",40,0)"
^XMB(3.9,45,2,6026,0)=" ; patch HL*1.6*133"
^XMB(3.9,45,2,6027,0)="""RTN"",""HLTPCK1"",41,0)"
^XMB(3.9,45,2,6028,0)=" ; escape and sub-component characters are optional"
^XMB(3.9,45,2,6029,0)="""RTN"",""HLTPCK1"",42,0)"
^XMB(3.9,45,2,6030,0)=" ; I $L(ECH)'=4 S ERR=""Invalid Encoding Characters"" G EXIT"
^XMB(3.9,45,2,6031,0)="""RTN"",""HLTPCK1"",43,0)"
^XMB(3.9,45,2,6032,0)=" I $L(ECH)<1 S ERR=""Invalid Encoding Characters"" G EXIT"
^XMB(3.9,45,2,6033,0)="""RTN"",""HLTPCK1"",44,0)"
^XMB(3.9,45,2,6034,0)=" S ECH(1)=$E(ECH)"
^XMB(3.9,45,2,6035,0)="""RTN"",""HLTPCK1"",45,0)"
^XMB(3.9,45,2,6036,0)=" S ECH(2)=$E(ECH,2)"
^XMB(3.9,45,2,6037,0)="""RTN"",""HLTPCK1"",46,0)"
^XMB(3.9,45,2,6038,0)=" S ECH(3)=$E(ECH,3)"
^XMB(3.9,45,2,6039,0)="""RTN"",""HLTPCK1"",47,0)"
^XMB(3.9,45,2,6040,0)=" S ECH(4)=$E(ECH,4)"
^XMB(3.9,45,2,6041,0)="""RTN"",""HLTPCK1"",48,0)"
^XMB(3.9,45,2,6042,0)=" S ARY(""HDR"")=HDR"
^XMB(3.9,45,2,6043,0)="""RTN"",""HLTPCK1"",49,0)"
^XMB(3.9,45,2,6044,0)=" S ARY(""HDR-1"")=$E(HDR,1,3)"
^XMB(3.9,45,2,6045,0)="""RTN"",""HLTPCK1"",50,0)"
^XMB(3.9,45,2,6046,0)=" ;"
^XMB(3.9,45,2,6047,0)="""RTN"",""HLTPCK1"",51,0)"
^XMB(3.9,45,2,6048,0)=" ;Validate Message Header Type"
^XMB(3.9,45,2,6049,0)="""RTN"",""HLTPCK1"",52,0)"
^XMB(3.9,45,2,6050,0)=" ; I ""FHS,BHS,MSH""'[$E(HDR,1,3) S ERR=""Invalid Message Header Segment"" G EXIT"
^XMB(3.9,45,2,6051,0)="""RTN"",""HLTPCK1"",53,0)"
^XMB(3.9,45,2,6052,0)=" I ""FHS,BHS,MSH""'[ARY(""HDR-1"") S ERR=""Invalid Message Header"" G EXIT"
^XMB(3.9,45,2,6053,0)="""RTN"",""HLTPCK1"",54,0)"
^XMB(3.9,45,2,6054,0)=" ;"
^XMB(3.9,45,2,6055,0)="""RTN"",""HLTPCK1"",55,0)"
^XMB(3.9,45,2,6056,0)=" ;Extract data from message header segment"
^XMB(3.9,45,2,6057,0)="""RTN"",""HLTPCK1"",56,0)"
^XMB(3.9,45,2,6058,0)=" ; I $E(HDR,1,3)=""BHS""!($E(HDR,1,3)=""FHS"") D"
^XMB(3.9,45,2,6059,0)="""RTN"",""HLTPCK1"",57,0)"
^XMB(3.9,45,2,6060,0)=" I ARY(""HDR-1"")=""BHS""!(ARY(""HDR-1"")=""FHS"") D"
^XMB(3.9,45,2,6061,0)="""RTN"",""HLTPCK1"",58,0)"
^XMB(3.9,45,2,6062,0)=" . ;S ARY(""DTM"")=$P(HDR,FS,7),ARY(""MID"")=$P(HDR,FS,11),X=$P(HDR,FS,9),ARY(""PID"")=$P(X,$E(ECH),2),ARY(""MTN"")=$P($P(X,$E(ECH),3),$E(ECH,2)),ARY(""ETN"")=$P($P(X,$E(ECH),3),$E(ECH,2),2),ARY(""VER"")=$P(X,$E(ECH),4)"
^XMB(3.9,45,2,6063,0)="""RTN"",""HLTPCK1"",59,0)"
^XMB(3.9,45,2,6064,0)=" . S ARY(""DTM"")=$P(HDR,FS,7)"
^XMB(3.9,45,2,6065,0)="""RTN"",""HLTPCK1"",60,0)"
^XMB(3.9,45,2,6066,0)=" . S ARY(""MID"")=$P(HDR,FS,11)"
^XMB(3.9,45,2,6067,0)="""RTN"",""HLTPCK1"",61,0)"
^XMB(3.9,45,2,6068,0)=" . S ARY(""PID"")="""""
^XMB(3.9,45,2,6069,0)="""RTN"",""HLTPCK1"",62,0)"
^XMB(3.9,45,2,6070,0)=" . S ARY(""MTN"")="""""
^XMB(3.9,45,2,6071,0)="""RTN"",""HLTPCK1"",63,0)"
^XMB(3.9,45,2,6072,0)=" . S ARY(""ETN"")="""""
^XMB(3.9,45,2,6073,0)="""RTN"",""HLTPCK1"",64,0)"
^XMB(3.9,45,2,6074,0)=" . S ARY(""VER"")="""""
^XMB(3.9,45,2,6075,0)="""RTN"",""HLTPCK1"",65,0)"
^XMB(3.9,45,2,6076,0)=" . ;"
^XMB(3.9,45,2,6077,0)="""RTN"",""HLTPCK1"",66,0)"
^XMB(3.9,45,2,6078,0)=" . ; BHS-9, Batch name/ID/type:"
^XMB(3.9,45,2,6079,0)="""RTN"",""HLTPCK1"",67,0)"
^XMB(3.9,45,2,6080,0)=" . ; 2nd component: Processing id <sub> Processing mode"
^XMB(3.9,45,2,6081,0)="""RTN"",""HLTPCK1"",68,0)"
^XMB(3.9,45,2,6082,0)=" . ; 3rd component: message type <sub> event type"
^XMB(3.9,45,2,6083,0)="""RTN"",""HLTPCK1"",69,0)"
^XMB(3.9,45,2,6084,0)=" . ; 4th component: version"
^XMB(3.9,45,2,6085,0)="""RTN"",""HLTPCK1"",70,0)"
^XMB(3.9,45,2,6086,0)=" . S X=$P(HDR,FS,9)"
^XMB(3.9,45,2,6087,0)="""RTN"",""HLTPCK1"",71,0)"
^XMB(3.9,45,2,6088,0)=" . I X]"""" D"
^XMB(3.9,45,2,6089,0)="""RTN"",""HLTPCK1"",72,0)"
^XMB(3.9,45,2,6090,0)=" .. S ARY(""HDR-9"")=X"
^XMB(3.9,45,2,6091,0)="""RTN"",""HLTPCK1"",73,0)"
^XMB(3.9,45,2,6092,0)=" .. ; original implementation incorrectly treats repetition separator as"
^XMB(3.9,45,2,6093,0)="""RTN"",""HLTPCK1"",74,0)"
^XMB(3.9,45,2,6094,0)=" .. ; subcomponent separator"
^XMB(3.9,45,2,6095,0)="""RTN"",""HLTPCK1"",75,0)"
^XMB(3.9,45,2,6096,0)=" .. S ECH(""SUB-COMPONENT"")=ECH(2)"
^XMB(3.9,45,2,6097,0)="""RTN"",""HLTPCK1"",76,0)"
^XMB(3.9,45,2,6098,0)=" .. ; if subcomponent separator is correctly applied"
^XMB(3.9,45,2,6099,0)="""RTN"",""HLTPCK1"",77,0)"
^XMB(3.9,45,2,6100,0)=" .. ; patch HL*1.6*133"
^XMB(3.9,45,2,6101,0)="""RTN"",""HLTPCK1"",78,0)"
^XMB(3.9,45,2,6102,0)=" .. ; I X[ECH(4) S ECH(""SUB-COMPONENT"")=ECH(4)"
^XMB(3.9,45,2,6103,0)="""RTN"",""HLTPCK1"",79,0)"
^XMB(3.9,45,2,6104,0)=" .. I ECH(4)]"""",X[ECH(4) S ECH(""SUB-COMPONENT"")=ECH(4)"
^XMB(3.9,45,2,6105,0)="""RTN"",""HLTPCK1"",80,0)"
^XMB(3.9,45,2,6106,0)=" .. ;"
^XMB(3.9,45,2,6107,0)="""RTN"",""HLTPCK1"",81,0)"
^XMB(3.9,45,2,6108,0)=" .. S ARY(""PID"")=$P(X,ECH(1),2)"
^XMB(3.9,45,2,6109,0)="""RTN"",""HLTPCK1"",82,0)"
^XMB(3.9,45,2,6110,0)=" .. ; patch HL*1.6*133"
^XMB(3.9,45,2,6111,0)="""RTN"",""HLTPCK1"",83,0)"
^XMB(3.9,45,2,6112,0)=" .. ; I ARY(""PID"")[ECH(""SUB-COMPONENT"") D"
^XMB(3.9,45,2,6113,0)="""RTN"",""HLTPCK1"",84,0)"
^XMB(3.9,45,2,6114,0)=" .. I ECH(""SUB-COMPONENT"")]"""",ARY(""PID"")[ECH(""SUB-COMPONENT"") D"
^XMB(3.9,45,2,6115,0)="""RTN"",""HLTPCK1"",85,0)"
^XMB(3.9,45,2,6116,0)=" ... ; 2nd sub-component is Processing mode"
^XMB(3.9,45,2,6117,0)="""RTN"",""HLTPCK1"",86,0)"
^XMB(3.9,45,2,6118,0)=" ... S ARY(""PMOD"")=$P(ARY(""PID""),ECH(""SUB-COMPONENT""),2)"
^XMB(3.9,45,2,6119,0)="""RTN"",""HLTPCK1"",87,0)"
^XMB(3.9,45,2,6120,0)=" ... ; first sub-component is Processing id"
^XMB(3.9,45,2,6121,0)="""RTN"",""HLTPCK1"",88,0)"
^XMB(3.9,45,2,6122,0)=" ... S ARY(""PID"")=$P(ARY(""PID""),ECH(""SUB-COMPONENT""))"
^XMB(3.9,45,2,6123,0)="""RTN"",""HLTPCK1"",89,0)"
^XMB(3.9,45,2,6124,0)=" .. ;"
^XMB(3.9,45,2,6125,0)="""RTN"",""HLTPCK1"",90,0)"
^XMB(3.9,45,2,6126,0)=" .. S ARY(""MTN"")=$P(X,ECH(1),3)"
^XMB(3.9,45,2,6127,0)="""RTN"",""HLTPCK1"",91,0)"
^XMB(3.9,45,2,6128,0)=" .. ; 2nd sub-component is event type"
^XMB(3.9,45,2,6129,0)="""RTN"",""HLTPCK1"",92,0)"
^XMB(3.9,45,2,6130,0)=" .. ;"
^XMB(3.9,45,2,6131,0)="""RTN"",""HLTPCK1"",93,0)"
^XMB(3.9,45,2,6132,0)=" .. ; patch HL*1.6*133 start"
^XMB(3.9,45,2,6133,0)="""RTN"",""HLTPCK1"",94,0)"
^XMB(3.9,45,2,6134,0)=" .. ; S ARY(""ETN"")=$P(ARY(""MTN""),ECH(""SUB-COMPONENT""),2)"
^XMB(3.9,45,2,6135,0)="""RTN"",""HLTPCK1"",95,0)"
^XMB(3.9,45,2,6136,0)=" .. I ECH(""SUB-COMPONENT"")]"""" D"
^XMB(3.9,45,2,6137,0)="""RTN"",""HLTPCK1"",96,0)"
^XMB(3.9,45,2,6138,0)=" ... S ARY(""ETN"")=$P(ARY(""MTN""),ECH(""SUB-COMPONENT""),2)"
^XMB(3.9,45,2,6139,0)="""RTN"",""HLTPCK1"",97,0)"
^XMB(3.9,45,2,6140,0)=" .. ; 1st sub-component is message type"
^XMB(3.9,45,2,6141,0)="""RTN"",""HLTPCK1"",98,0)"
^XMB(3.9,45,2,6142,0)=" .. ; S ARY(""MTN"")=$P(ARY(""MTN""),ECH(""SUB-COMPONENT""))"
^XMB(3.9,45,2,6143,0)="""RTN"",""HLTPCK1"",99,0)"
^XMB(3.9,45,2,6144,0)=" .. I ECH(""SUB-COMPONENT"")]"""" D"
^XMB(3.9,45,2,6145,0)="""RTN"",""HLTPCK1"",100,0)"
^XMB(3.9,45,2,6146,0)=" ... S ARY(""MTN"")=$P(ARY(""MTN""),ECH(""SUB-COMPONENT""))"
^XMB(3.9,45,2,6147,0)="""RTN"",""HLTPCK1"",101,0)"
^XMB(3.9,45,2,6148,0)=" .. ; patch HL*1.6*133 end"
^XMB(3.9,45,2,6149,0)="""RTN"",""HLTPCK1"",102,0)"
^XMB(3.9,45,2,6150,0)=" .. ;"
^XMB(3.9,45,2,6151,0)="""RTN"",""HLTPCK1"",103,0)"
^XMB(3.9,45,2,6152,0)=" .. S ARY(""VER"")=$P(X,ECH(1),4)"
^XMB(3.9,45,2,6153,0)="""RTN"",""HLTPCK1"",104,0)"
^XMB(3.9,45,2,6154,0)=" . ;"
^XMB(3.9,45,2,6155,0)="""RTN"",""HLTPCK1"",105,0)"
^XMB(3.9,45,2,6156,0)=" . ; BHS-10, batch comment"
^XMB(3.9,45,2,6157,0)="""RTN"",""HLTPCK1"",106,0)"
^XMB(3.9,45,2,6158,0)=" . ; S:$P(HDR,FS,10)]"""" MSA=$P($P(HDR,FS,10),$E(ECH),1),$P(MSA,FS,2)=$P(HDR,FS,12),$P(MSA,FS,3)=$P($P(HDR,FS,10),$E(ECH),2)"
^XMB(3.9,45,2,6159,0)="""RTN"",""HLTPCK1"",107,0)"
^XMB(3.9,45,2,6160,0)=" . ; first component: MSA-1, acknowledgment code"
^XMB(3.9,45,2,6161,0)="""RTN"",""HLTPCK1"",108,0)"
^XMB(3.9,45,2,6162,0)=" . ; 2nd component: MSA-3, text message"
^XMB(3.9,45,2,6163,0)="""RTN"",""HLTPCK1"",109,0)"
^XMB(3.9,45,2,6164,0)=" . ;"
^XMB(3.9,45,2,6165,0)="""RTN"",""HLTPCK1"",110,0)"
^XMB(3.9,45,2,6166,0)=" . S X=$P(HDR,FS,10)"
^XMB(3.9,45,2,6167,0)="""RTN"",""HLTPCK1"",111,0)"
^XMB(3.9,45,2,6168,0)=" . I X]"""" D"
^XMB(3.9,45,2,6169,0)="""RTN"",""HLTPCK1"",112,0)"
^XMB(3.9,45,2,6170,0)=" .. S ARY(""HDR-10"")=X"
^XMB(3.9,45,2,6171,0)="""RTN"",""HLTPCK1"",113,0)"
^XMB(3.9,45,2,6172,0)=" .. ; MSA-1, acknowledgment code: AA,AE,AR,CA,CE,CR"
^XMB(3.9,45,2,6173,0)="""RTN"",""HLTPCK1"",114,0)"
^XMB(3.9,45,2,6174,0)=" .. S MSA=$P(X,ECH(1),1)"
^XMB(3.9,45,2,6175,0)="""RTN"",""HLTPCK1"",115,0)"
^XMB(3.9,45,2,6176,0)=" .. ; MSA-2 and BHS-12, reference batch control id"
^XMB(3.9,45,2,6177,0)="""RTN"",""HLTPCK1"",116,0)"
^XMB(3.9,45,2,6178,0)=" .. S $P(MSA,FS,2)=$P(HDR,FS,12)"
^XMB(3.9,45,2,6179,0)="""RTN"",""HLTPCK1"",117,0)"
^XMB(3.9,45,2,6180,0)=" .. ; MSA-3, text message"
^XMB(3.9,45,2,6181,0)="""RTN"",""HLTPCK1"",118,0)"
^XMB(3.9,45,2,6182,0)=" .. S $P(MSA,FS,3)=$P(X,ECH(1),2)"
^XMB(3.9,45,2,6183,0)="""RTN"",""HLTPCK1"",119,0)"
^XMB(3.9,45,2,6184,0)=" . ; Reference Batch Control ID"
^XMB(3.9,45,2,6185,0)="""RTN"",""HLTPCK1"",120,0)"
^XMB(3.9,45,2,6186,0)=" . S:$P(HDR,FS,12)]"""" ARY(""HDR-12"")=$P(HDR,FS,12)"
^XMB(3.9,45,2,6187,0)="""RTN"",""HLTPCK1"",121,0)"
^XMB(3.9,45,2,6188,0)=" ;"
^XMB(3.9,45,2,6189,0)="""RTN"",""HLTPCK1"",122,0)"
^XMB(3.9,45,2,6190,0)=" ; I $E(HDR,1,3)=""MSH"" D"
^XMB(3.9,45,2,6191,0)="""RTN"",""HLTPCK1"",123,0)"
^XMB(3.9,45,2,6192,0)=" I ARY(""HDR-1"")=""MSH"" D"
^XMB(3.9,45,2,6193,0)="""RTN"",""HLTPCK1"",124,0)"
^XMB(3.9,45,2,6194,0)=" . ;S ARY(""DTM"")=$P(HDR,FS,7),ARY(""MID"")=$P(HDR,FS,10),ARY(""PID"")=$P(HDR,FS,11),ARY(""MTN"")=$P($P(HDR,FS,9),$E(ECH)),ARY(""ETN"")=$P($P(HDR,FS,9),$E(ECH),2),ARY(""VER"")=$P(HDR,FS,12)"
^XMB(3.9,45,2,6195,0)="""RTN"",""HLTPCK1"",125,0)"
^XMB(3.9,45,2,6196,0)=" . S ARY(""DTM"")=$P(HDR,FS,7)"
^XMB(3.9,45,2,6197,0)="""RTN"",""HLTPCK1"",126,0)"
^XMB(3.9,45,2,6198,0)=" . S ARY(""MID"")=$P(HDR,FS,10)"
^XMB(3.9,45,2,6199,0)="""RTN"",""HLTPCK1"",127,0)"
^XMB(3.9,45,2,6200,0)=" . S ARY(""PID"")=$P(HDR,FS,11)"
^XMB(3.9,45,2,6201,0)="""RTN"",""HLTPCK1"",128,0)"
^XMB(3.9,45,2,6202,0)=" . S ARY(""MTN"")=$P($P(HDR,FS,9),ECH(1))"
^XMB(3.9,45,2,6203,0)="""RTN"",""HLTPCK1"",129,0)"
^XMB(3.9,45,2,6204,0)=" . S ARY(""ETN"")=$P($P(HDR,FS,9),ECH(1),2)"
^XMB(3.9,45,2,6205,0)="""RTN"",""HLTPCK1"",130,0)"
^XMB(3.9,45,2,6206,0)=" . S ARY(""VER"")=$P(HDR,FS,12)"
^XMB(3.9,45,2,6207,0)="""RTN"",""HLTPCK1"",131,0)"
^XMB(3.9,45,2,6208,0)=" . ;"
^XMB(3.9,45,2,6209,0)="""RTN"",""HLTPCK1"",132,0)"
^XMB(3.9,45,2,6210,0)=" . ; 2nd sub-component is Processing mode"
^XMB(3.9,45,2,6211,0)="""RTN"",""HLTPCK1"",133,0)"
^XMB(3.9,45,2,6212,0)=" . I ARY(""PID"")[ECH(1) D"
^XMB(3.9,45,2,6213,0)="""RTN"",""HLTPCK1"",134,0)"
^XMB(3.9,45,2,6214,0)=" .. S ARY(""PMOD"")=$P(ARY(""PID""),ECH(1),2)"
^XMB(3.9,45,2,6215,0)="""RTN"",""HLTPCK1"",135,0)"
^XMB(3.9,45,2,6216,0)=" .. ; first sub-component is Processing id"
^XMB(3.9,45,2,6217,0)="""RTN"",""HLTPCK1"",136,0)"
^XMB(3.9,45,2,6218,0)=" .. S ARY(""PID"")=$P(ARY(""PID""),ECH(1))"
^XMB(3.9,45,2,6219,0)="""RTN"",""HLTPCK1"",137,0)"
^XMB(3.9,45,2,6220,0)=" . ;"
^XMB(3.9,45,2,6221,0)="""RTN"",""HLTPCK1"",138,0)"
^XMB(3.9,45,2,6222,0)=" . ; S:$P($P(HDR,FS,9),$E(ECH),3)]"""" ARY(""MTN_ETN"")=$P($P(HDR,FS,9),$E(ECH),3)"
^XMB(3.9,45,2,6223,0)="""RTN"",""HLTPCK1"",139,0)"
^XMB(3.9,45,2,6224,0)=" .I $P($P(HDR,FS,9),ECH(1),3)]"""" D"
^XMB(3.9,45,2,6225,0)="""RTN"",""HLTPCK1"",140,0)"
^XMB(3.9,45,2,6226,0)=" .. S ARY(""MTN_ETN"")=$P($P(HDR,FS,9),ECH(1),3)"
^XMB(3.9,45,2,6227,0)="""RTN"",""HLTPCK1"",141,0)"
^XMB(3.9,45,2,6228,0)=" . ;"
^XMB(3.9,45,2,6229,0)="""RTN"",""HLTPCK1"",142,0)"
^XMB(3.9,45,2,6230,0)=" . ; fields 13 and 14"
^XMB(3.9,45,2,6231,0)="""RTN"",""HLTPCK1"",143,0)"
^XMB(3.9,45,2,6232,0)=" . S:$P(HDR,FS,13)]"""" ARY(""MSH-13"")=$P(HDR,FS,13)"
^XMB(3.9,45,2,6233,0)="""RTN"",""HLTPCK1"",144,0)"
^XMB(3.9,45,2,6234,0)=" . S:$P(HDR,FS,14)]"""" ARY(""MSH-14"")=$P(HDR,FS,14)"
^XMB(3.9,45,2,6235,0)="""RTN"",""HLTPCK1"",145,0)"
^XMB(3.9,45,2,6236,0)=" . ;"
^XMB(3.9,45,2,6237,0)="""RTN"",""HLTPCK1"",146,0)"
^XMB(3.9,45,2,6238,0)=" . ; S:$P(HDR,FS,15)]"""" ARY(""ACAT"")=$P(HDR,FS,15) S:$P(HDR,FS,16)]"""" ARY(""APAT"")=$P(HDR,FS,16) S:$P(HDR,FS,17)]"""" ARY(""CC"")=$P(HDR,FS,17)"
^XMB(3.9,45,2,6239,0)="""RTN"",""HLTPCK1"",147,0)"
^XMB(3.9,45,2,6240,0)=" . S:$P(HDR,FS,15)]"""" ARY(""ACAT"")=$P(HDR,FS,15)"
^XMB(3.9,45,2,6241,0)="""RTN"",""HLTPCK1"",148,0)"
^XMB(3.9,45,2,6242,0)=" . S:$P(HDR,FS,16)]"""" ARY(""APAT"")=$P(HDR,FS,16)"
^XMB(3.9,45,2,6243,0)="""RTN"",""HLTPCK1"",149,0)"
^XMB(3.9,45,2,6244,0)=" . S:$P(HDR,FS,17)]"""" ARY(""CC"")=$P(HDR,FS,17)"
^XMB(3.9,45,2,6245,0)="""RTN"",""HLTPCK1"",150,0)"
^XMB(3.9,45,2,6246,0)=" . ;"
^XMB(3.9,45,2,6247,0)="""RTN"",""HLTPCK1"",151,0)"
^XMB(3.9,45,2,6248,0)=" . ; fields 18,19,20 and 21"
^XMB(3.9,45,2,6249,0)="""RTN"",""HLTPCK1"",152,0)"
^XMB(3.9,45,2,6250,0)=" . S:$P(HDR,FS,18)]"""" ARY(""MSH-18"")=$P(HDR,FS,18)"
^XMB(3.9,45,2,6251,0)="""RTN"",""HLTPCK1"",153,0)"
^XMB(3.9,45,2,6252,0)=" . S:$P(HDR,FS,19)]"""" ARY(""MSH-19"")=$P(HDR,FS,19)"
^XMB(3.9,45,2,6253,0)="""RTN"",""HLTPCK1"",154,0)"
^XMB(3.9,45,2,6254,0)=" . S:$P(HDR,FS,20)]"""" ARY(""MSH-20"")=$P(HDR,FS,20)"
^XMB(3.9,45,2,6255,0)="""RTN"",""HLTPCK1"",155,0)"
^XMB(3.9,45,2,6256,0)=" . S:$P(HDR,FS,21)]"""" ARY(""MSH-21"")=$P(HDR,FS,21)"
^XMB(3.9,45,2,6257,0)="""RTN"",""HLTPCK1"",156,0)"
^XMB(3.9,45,2,6258,0)=" K:$G(MSA)']"""" MSA"
^XMB(3.9,45,2,6259,0)="""RTN"",""HLTPCK1"",157,0)"
^XMB(3.9,45,2,6260,0)=" ;"
^XMB(3.9,45,2,6261,0)="""RTN"",""HLTPCK1"",158,0)"
^XMB(3.9,45,2,6262,0)=" S ARY(""RAF"")=$P(HDR,FS,6)  ; receiving facility"
^XMB(3.9,45,2,6263,0)="""RTN"",""HLTPCK1"",159,0)"
^XMB(3.9,45,2,6264,0)=" S ARY(""SAF"")=$P(HDR,FS,4)  ; sending facility"
^XMB(3.9,45,2,6265,0)="""RTN"",""HLTPCK1"",160,0)"
^XMB(3.9,45,2,6266,0)=" ;"
^XMB(3.9,45,2,6267,0)="""RTN"",""HLTPCK1"",161,0)"
^XMB(3.9,45,2,6268,0)=" ;Invoke continuation routine to perform remaining validation checks"
^XMB(3.9,45,2,6269,0)="""RTN"",""HLTPCK1"",162,0)"
^XMB(3.9,45,2,6270,0)=" D ^HLTPCK1A"
^XMB(3.9,45,2,6271,0)="""RTN"",""HLTPCK1"",163,0)"
^XMB(3.9,45,2,6272,0)=" ;"
^XMB(3.9,45,2,6273,0)="""RTN"",""HLTPCK1"",164,0)"
^XMB(3.9,45,2,6274,0)="EXIT ;"
^XMB(3.9,45,2,6275,0)="""RTN"",""HLTPCK1"",165,0)"
^XMB(3.9,45,2,6276,0)=" ; the maximum length of field #772,22 (Error Message) is 200"
^XMB(3.9,45,2,6277,0)="""RTN"",""HLTPCK1"",166,0)"
^XMB(3.9,45,2,6278,0)=" I ERR]"""" D"
^XMB(3.9,45,2,6279,0)="""RTN"",""HLTPCK1"",167,0)"
^XMB(3.9,45,2,6280,0)=" . S ERR=$E(ERR,1,200)"
^XMB(3.9,45,2,6281,0)="""RTN"",""HLTPCK1"",168,0)"
^XMB(3.9,45,2,6282,0)=" . S ARY=$S('ERR:""13^""_ERR,1:ERR)"
^XMB(3.9,45,2,6283,0)="""RTN"",""HLTPCK1"",169,0)"
^XMB(3.9,45,2,6284,0)=" ; patch HL*1.6*120 end"
^XMB(3.9,45,2,6285,0)="""RTN"",""HLTPCK1"",170,0)"
^XMB(3.9,45,2,6286,0)=" Q"
^XMB(3.9,45,2,6287,0)="""RTN"",""HLTPCK2"")"
^XMB(3.9,45,2,6288,0)="0^15^B40614402^B34416614"
^XMB(3.9,45,2,6289,0)="""RTN"",""HLTPCK2"",1,0)"
^XMB(3.9,45,2,6290,0)="HLTPCK2 ;SF/RSD - Message Header Validation (TCP Link) ;09/13/2006"
^XMB(3.9,45,2,6291,0)="""RTN"",""HLTPCK2"",2,0)"
^XMB(3.9,45,2,6292,0)=" ;;1.6;HEALTH LEVEL SEVEN;**19,59,120,133**;Oct 13, 1995;Build 13"
^XMB(3.9,45,2,6293,0)="""RTN"",""HLTPCK2"",3,0)"
^XMB(3.9,45,2,6294,0)=" ;Per VHA Directive 2004-038, this routine should not be modified."
^XMB(3.9,45,2,6295,0)="""RTN"",""HLTPCK2"",4,0)"
^XMB(3.9,45,2,6296,0)="CHK(HDR,ARY,MSA) ;"
^XMB(3.9,45,2,6297,0)="""RTN"",""HLTPCK2"",5,0)"
^XMB(3.9,45,2,6298,0)=" ;Validate Data in Header Segment (MSH, BHS or FHS) of an HL7 Message"
^XMB(3.9,45,2,6299,0)="""RTN"",""HLTPCK2"",6,0)"
^XMB(3.9,45,2,6300,0)=" ; through TCP link."
^XMB(3.9,45,2,6301,0)="""RTN"",""HLTPCK2"",7,0)"
^XMB(3.9,45,2,6302,0)=" ;"
^XMB(3.9,45,2,6303,0)="""RTN"",""HLTPCK2"",8,0)"
^XMB(3.9,45,2,6304,0)=" ;This entry point is a subroutine call with parameter passing that"
^XMB(3.9,45,2,6305,0)="""RTN"",""HLTPCK2"",9,0)"
^XMB(3.9,45,2,6306,0)=" ;will return an array (ARY()) consisting of values extracted from"
^XMB(3.9,45,2,6307,0)="""RTN"",""HLTPCK2"",10,0)"
^XMB(3.9,45,2,6308,0)=" ;the message header segment subscripted by the mnemonics for each of"
^XMB(3.9,45,2,6309,0)="""RTN"",""HLTPCK2"",11,0)"
^XMB(3.9,45,2,6310,0)=" ;the message header fields and components."
^XMB(3.9,45,2,6311,0)="""RTN"",""HLTPCK2"",12,0)"
^XMB(3.9,45,2,6312,0)=" ;The message header can be multiple line longer than 255 characters."
^XMB(3.9,45,2,6313,0)="""RTN"",""HLTPCK2"",13,0)"
^XMB(3.9,45,2,6314,0)=" ;HDR is an array that is passed by reference."
^XMB(3.9,45,2,6315,0)="""RTN"",""HLTPCK2"",14,0)"
^XMB(3.9,45,2,6316,0)=" ;If an error is encountered during validation, the array parameter"
^XMB(3.9,45,2,6317,0)="""RTN"",""HLTPCK2"",15,0)"
^XMB(3.9,45,2,6318,0)=" ;(ARY) will be set equal to two pieces, error #^error text."
^XMB(3.9,45,2,6319,0)="""RTN"",""HLTPCK2"",16,0)"
^XMB(3.9,45,2,6320,0)=" ;"
^XMB(3.9,45,2,6321,0)="""RTN"",""HLTPCK2"",17,0)"
^XMB(3.9,45,2,6322,0)=" ;Required input parameters"
^XMB(3.9,45,2,6323,0)="""RTN"",""HLTPCK2"",18,0)"
^XMB(3.9,45,2,6324,0)=" ;  HDR = Message header array, HDR(1,0)=segment (passed by reference)"
^XMB(3.9,45,2,6325,0)="""RTN"",""HLTPCK2"",19,0)"
^XMB(3.9,45,2,6326,0)=" ;"
^XMB(3.9,45,2,6327,0)="""RTN"",""HLTPCK2"",20,0)"
^XMB(3.9,45,2,6328,0)=" ;  ARY = The array in which the message header values will be"
^XMB(3.9,45,2,6329,0)="""RTN"",""HLTPCK2"",21,0)"
^XMB(3.9,45,2,6330,0)=" ;          returned (passed by reference)"
^XMB(3.9,45,2,6331,0)="""RTN"",""HLTPCK2"",22,0)"
^XMB(3.9,45,2,6332,0)=" ;"
^XMB(3.9,45,2,6333,0)="""RTN"",""HLTPCK2"",23,0)"
^XMB(3.9,45,2,6334,0)=" ;Optional input parameter"
^XMB(3.9,45,2,6335,0)="""RTN"",""HLTPCK2"",24,0)"
^XMB(3.9,45,2,6336,0)=" ;  MSA = A variable which contains the message acknowledgement values:"
^XMB(3.9,45,2,6337,0)="""RTN"",""HLTPCK2"",25,0)"
^XMB(3.9,45,2,6338,0)=" ;          acknowledgement code^message control ID^text message. Passed"
^XMB(3.9,45,2,6339,0)="""RTN"",""HLTPCK2"",26,0)"
^XMB(3.9,45,2,6340,0)=" ;          by reference so that Batch msg. can set this here."
^XMB(3.9,45,2,6341,0)="""RTN"",""HLTPCK2"",27,0)"
^XMB(3.9,45,2,6342,0)=" ;"
^XMB(3.9,45,2,6343,0)="""RTN"",""HLTPCK2"",28,0)"
^XMB(3.9,45,2,6344,0)=" ;Check for required parameters"
^XMB(3.9,45,2,6345,0)="""RTN"",""HLTPCK2"",29,0)"
^XMB(3.9,45,2,6346,0)=" N ERR S ERR="""""
^XMB(3.9,45,2,6347,0)="""RTN"",""HLTPCK2"",30,0)"
^XMB(3.9,45,2,6348,0)=" I $D(HDR)<10 S ERR=""7^""_$G(^HL(771.7,7,0))_"" at CHK^HLTPCK2"" G EXIT"
^XMB(3.9,45,2,6349,0)="""RTN"",""HLTPCK2"",31,0)"
^XMB(3.9,45,2,6350,0)=" N ECH,HLN,FS,X,X1,X2"
^XMB(3.9,45,2,6351,0)="""RTN"",""HLTPCK2"",32,0)"
^XMB(3.9,45,2,6352,0)=" S ARY="""",ARY(""Q"")="""""""""""""
^XMB(3.9,45,2,6353,0)="""RTN"",""HLTPCK2"",33,0)"
^XMB(3.9,45,2,6354,0)=" ;"
^XMB(3.9,45,2,6355,0)="""RTN"",""HLTPCK2"",34,0)"
^XMB(3.9,45,2,6356,0)=" ;Validate field separator and encoding characters"
^XMB(3.9,45,2,6357,0)="""RTN"",""HLTPCK2"",35,0)"
^XMB(3.9,45,2,6358,0)=" S (ARY(""FS""),FS)=$E(HDR(1,0),4)"
^XMB(3.9,45,2,6359,0)="""RTN"",""HLTPCK2"",36,0)"
^XMB(3.9,45,2,6360,0)=" I FS']"""" S ERR=""Field Separator Missing"" G EXIT"
^XMB(3.9,45,2,6361,0)="""RTN"",""HLTPCK2"",37,0)"
^XMB(3.9,45,2,6362,0)=" I FS?.C S ERR=""Invalid Field Separator"" G EXIT"
^XMB(3.9,45,2,6363,0)="""RTN"",""HLTPCK2"",38,0)"
^XMB(3.9,45,2,6364,0)=" S (ARY(""ECH""),ECH)=$$P(.HDR,2)"
^XMB(3.9,45,2,6365,0)="""RTN"",""HLTPCK2"",39,0)"
^XMB(3.9,45,2,6366,0)=" I ECH']"""" S ERR=""Encoding Characters Missing"" G EXIT"
^XMB(3.9,45,2,6367,0)="""RTN"",""HLTPCK2"",40,0)"
^XMB(3.9,45,2,6368,0)=" I ECH?.C S ERR=""Invalid Encoding Characters"" G EXIT"
^XMB(3.9,45,2,6369,0)="""RTN"",""HLTPCK2"",41,0)"
^XMB(3.9,45,2,6370,0)=" ;"
^XMB(3.9,45,2,6371,0)="""RTN"",""HLTPCK2"",42,0)"
^XMB(3.9,45,2,6372,0)=" ; patch HL*1.6*120 start"
^XMB(3.9,45,2,6373,0)="""RTN"",""HLTPCK2"",43,0)"
^XMB(3.9,45,2,6374,0)=" ; patch HL*1.6*133"
^XMB(3.9,45,2,6375,0)="""RTN"",""HLTPCK2"",44,0)"
^XMB(3.9,45,2,6376,0)=" ; escape and sub-component characters are optional"
^XMB(3.9,45,2,6377,0)="""RTN"",""HLTPCK2"",45,0)"
^XMB(3.9,45,2,6378,0)=" ; I $L(ECH)'=4 S ERR=""Invalid Encoding Characters"" G EXIT"
^XMB(3.9,45,2,6379,0)="""RTN"",""HLTPCK2"",46,0)"
^XMB(3.9,45,2,6380,0)=" I $L(ECH)<1 S ERR=""Invalid Encoding Characters"" G EXIT"
^XMB(3.9,45,2,6381,0)="""RTN"",""HLTPCK2"",47,0)"
^XMB(3.9,45,2,6382,0)=" S ECH(1)=$E(ECH)"
^XMB(3.9,45,2,6383,0)="""RTN"",""HLTPCK2"",48,0)"
^XMB(3.9,45,2,6384,0)=" S ECH(2)=$E(ECH,2)"
^XMB(3.9,45,2,6385,0)="""RTN"",""HLTPCK2"",49,0)"
^XMB(3.9,45,2,6386,0)=" S ECH(3)=$E(ECH,3)"
^XMB(3.9,45,2,6387,0)="""RTN"",""HLTPCK2"",50,0)"
^XMB(3.9,45,2,6388,0)=" S ECH(4)=$E(ECH,4)"
^XMB(3.9,45,2,6389,0)="""RTN"",""HLTPCK2"",51,0)"
^XMB(3.9,45,2,6390,0)=" M ARY(""HDR"")=HDR"
^XMB(3.9,45,2,6391,0)="""RTN"",""HLTPCK2"",52,0)"
^XMB(3.9,45,2,6392,0)=" ;"
^XMB(3.9,45,2,6393,0)="""RTN"",""HLTPCK2"",53,0)"
^XMB(3.9,45,2,6394,0)=" ;Validate Message Header Type"
^XMB(3.9,45,2,6395,0)="""RTN"",""HLTPCK2"",54,0)"
^XMB(3.9,45,2,6396,0)=" S (ARY(""TYPE""),X)=$$P(.HDR,1)"
^XMB(3.9,45,2,6397,0)="""RTN"",""HLTPCK2"",55,0)"
^XMB(3.9,45,2,6398,0)=" S ARY(""HDR-1"")=X"
^XMB(3.9,45,2,6399,0)="""RTN"",""HLTPCK2"",56,0)"
^XMB(3.9,45,2,6400,0)=" I X=""""!(""FHS,BHS,MSH""'[X) S ERR=""Invalid Message Header"" G EXIT"
^XMB(3.9,45,2,6401,0)="""RTN"",""HLTPCK2"",57,0)"
^XMB(3.9,45,2,6402,0)=" ;"
^XMB(3.9,45,2,6403,0)="""RTN"",""HLTPCK2"",58,0)"
^XMB(3.9,45,2,6404,0)=" ;Extract data from message header segment"
^XMB(3.9,45,2,6405,0)="""RTN"",""HLTPCK2"",59,0)"
^XMB(3.9,45,2,6406,0)=" ; S ARY(""SAN"")=$$P(.HDR,3),ARY(""SFN"")=$$P(.HDR,4),ARY(""RAN"")=$$P(.HDR,5),ARY(""RFN"")=$$P(.HDR,6),ARY(""DTM"")=$$P(.HDR,7)"
^XMB(3.9,45,2,6407,0)="""RTN"",""HLTPCK2"",60,0)"
^XMB(3.9,45,2,6408,0)=" S ARY(""SAN"")=$$P(.HDR,3)"
^XMB(3.9,45,2,6409,0)="""RTN"",""HLTPCK2"",61,0)"
^XMB(3.9,45,2,6410,0)=" S ARY(""SFN"")=$$P(.HDR,4)"
^XMB(3.9,45,2,6411,0)="""RTN"",""HLTPCK2"",62,0)"
^XMB(3.9,45,2,6412,0)=" S ARY(""RAN"")=$$P(.HDR,5)"
^XMB(3.9,45,2,6413,0)="""RTN"",""HLTPCK2"",63,0)"
^XMB(3.9,45,2,6414,0)=" S ARY(""RFN"")=$$P(.HDR,6)"
^XMB(3.9,45,2,6415,0)="""RTN"",""HLTPCK2"",64,0)"
^XMB(3.9,45,2,6416,0)=" S ARY(""DTM"")=$$P(.HDR,7)"
^XMB(3.9,45,2,6417,0)="""RTN"",""HLTPCK2"",65,0)"
^XMB(3.9,45,2,6418,0)=" ;"
^XMB(3.9,45,2,6419,0)="""RTN"",""HLTPCK2"",66,0)"
^XMB(3.9,45,2,6420,0)=" I X=""BHS""!(X=""FHS"") D"
^XMB(3.9,45,2,6421,0)="""RTN"",""HLTPCK2"",67,0)"
^XMB(3.9,45,2,6422,0)=" . ; S ARY(""MID"")=$$P(.HDR,11),X=$$P(.HDR,9),ARY(""PID"")=$P(X,$E(ECH),2)"
^XMB(3.9,45,2,6423,0)="""RTN"",""HLTPCK2"",68,0)"
^XMB(3.9,45,2,6424,0)=" . ;"
^XMB(3.9,45,2,6425,0)="""RTN"",""HLTPCK2"",69,0)"
^XMB(3.9,45,2,6426,0)=" . S ARY(""MID"")=$$P(.HDR,11)"
^XMB(3.9,45,2,6427,0)="""RTN"",""HLTPCK2"",70,0)"
^XMB(3.9,45,2,6428,0)=" . ;"
^XMB(3.9,45,2,6429,0)="""RTN"",""HLTPCK2"",71,0)"
^XMB(3.9,45,2,6430,0)=" . ; BHS-9, Batch name/ID/Type:"
^XMB(3.9,45,2,6431,0)="""RTN"",""HLTPCK2"",72,0)"
^XMB(3.9,45,2,6432,0)=" . ; 2nd component: Processing ID <sub> Processing Mode"
^XMB(3.9,45,2,6433,0)="""RTN"",""HLTPCK2"",73,0)"
^XMB(3.9,45,2,6434,0)=" . ; 3rd component: Message Type <sub> Event Type"
^XMB(3.9,45,2,6435,0)="""RTN"",""HLTPCK2"",74,0)"
^XMB(3.9,45,2,6436,0)=" . ; 4th component: Version ID"
^XMB(3.9,45,2,6437,0)="""RTN"",""HLTPCK2"",75,0)"
^XMB(3.9,45,2,6438,0)=" . ; 5th component: Accept Acknowledgment Type"
^XMB(3.9,45,2,6439,0)="""RTN"",""HLTPCK2"",76,0)"
^XMB(3.9,45,2,6440,0)=" . ; 6th component: Application Acknowledgment Type"
^XMB(3.9,45,2,6441,0)="""RTN"",""HLTPCK2"",77,0)"
^XMB(3.9,45,2,6442,0)=" . S X=$$P(.HDR,9)"
^XMB(3.9,45,2,6443,0)="""RTN"",""HLTPCK2"",78,0)"
^XMB(3.9,45,2,6444,0)=" . S:X]"""" ARY(""HDR-9"")=X"
^XMB(3.9,45,2,6445,0)="""RTN"",""HLTPCK2"",79,0)"
^XMB(3.9,45,2,6446,0)=" . ; original implementation incorrectly treats repetition separator as"
^XMB(3.9,45,2,6447,0)="""RTN"",""HLTPCK2"",80,0)"
^XMB(3.9,45,2,6448,0)=" . ; subcomponent separator"
^XMB(3.9,45,2,6449,0)="""RTN"",""HLTPCK2"",81,0)"
^XMB(3.9,45,2,6450,0)=" . S ECH(""SUB-COMPONENT"")=ECH(2)"
^XMB(3.9,45,2,6451,0)="""RTN"",""HLTPCK2"",82,0)"
^XMB(3.9,45,2,6452,0)=" . ; if subcomponent separator is correctly applied"
^XMB(3.9,45,2,6453,0)="""RTN"",""HLTPCK2"",83,0)"
^XMB(3.9,45,2,6454,0)=" . ; patch HL*1.6*133"
^XMB(3.9,45,2,6455,0)="""RTN"",""HLTPCK2"",84,0)"
^XMB(3.9,45,2,6456,0)=" . ; I X[ECH(4) S ECH(""SUB-COMPONENT"")=ECH(4)"
^XMB(3.9,45,2,6457,0)="""RTN"",""HLTPCK2"",85,0)"
^XMB(3.9,45,2,6458,0)=" . I ECH(4)]"""",X[ECH(4) S ECH(""SUB-COMPONENT"")=ECH(4)"
^XMB(3.9,45,2,6459,0)="""RTN"",""HLTPCK2"",86,0)"
^XMB(3.9,45,2,6460,0)=" . ;"
^XMB(3.9,45,2,6461,0)="""RTN"",""HLTPCK2"",87,0)"
^XMB(3.9,45,2,6462,0)=" . S ARY(""PID"")=$P(X,ECH(1),2)"
^XMB(3.9,45,2,6463,0)="""RTN"",""HLTPCK2"",88,0)"
^XMB(3.9,45,2,6464,0)=" . ; patch HL*1.6*133"
^XMB(3.9,45,2,6465,0)="""RTN"",""HLTPCK2"",89,0)"
^XMB(3.9,45,2,6466,0)=" . ; I ARY(""PID"")[ECH(""SUB-COMPONENT"") D"
^XMB(3.9,45,2,6467,0)="""RTN"",""HLTPCK2"",90,0)"
^XMB(3.9,45,2,6468,0)=" . I ECH(""SUB-COMPONENT"")]"""",ARY(""PID"")[ECH(""SUB-COMPONENT"") D"
^XMB(3.9,45,2,6469,0)="""RTN"",""HLTPCK2"",91,0)"
^XMB(3.9,45,2,6470,0)=" .. ; 2nd sub-component is Processing mode"
^XMB(3.9,45,2,6471,0)="""RTN"",""HLTPCK2"",92,0)"
^XMB(3.9,45,2,6472,0)=" .. S ARY(""PMOD"")=$P(ARY(""PID""),ECH(""SUB-COMPONENT""),2)"
^XMB(3.9,45,2,6473,0)="""RTN"",""HLTPCK2"",93,0)"
^XMB(3.9,45,2,6474,0)=" .. ; first sub-component is Processing id"
^XMB(3.9,45,2,6475,0)="""RTN"",""HLTPCK2"",94,0)"
^XMB(3.9,45,2,6476,0)=" .. S ARY(""PID"")=$P(ARY(""PID""),ECH(""SUB-COMPONENT""))"
^XMB(3.9,45,2,6477,0)="""RTN"",""HLTPCK2"",95,0)"
^XMB(3.9,45,2,6478,0)=" . ;"
^XMB(3.9,45,2,6479,0)="""RTN"",""HLTPCK2"",96,0)"
^XMB(3.9,45,2,6480,0)=" . ; S ARY(""MTN"")=$P($P(X,$E(ECH),3),$E(ECH,2)),ARY(""ETN"")=$P($P(X,$E(ECH),3),$E(ECH,2),2)"
^XMB(3.9,45,2,6481,0)="""RTN"",""HLTPCK2"",97,0)"
^XMB(3.9,45,2,6482,0)=" . ;"
^XMB(3.9,45,2,6483,0)="""RTN"",""HLTPCK2"",98,0)"
^XMB(3.9,45,2,6484,0)=" . S ARY(""MTN"")=$P(X,ECH(1),3)"
^XMB(3.9,45,2,6485,0)="""RTN"",""HLTPCK2"",99,0)"
^XMB(3.9,45,2,6486,0)=" . ; 2nd sub-component is event type"
^XMB(3.9,45,2,6487,0)="""RTN"",""HLTPCK2"",100,0)"
^XMB(3.9,45,2,6488,0)=" . ;"
^XMB(3.9,45,2,6489,0)="""RTN"",""HLTPCK2"",101,0)"
^XMB(3.9,45,2,6490,0)=" . ; patch HL*1.6*133 start"
^XMB(3.9,45,2,6491,0)="""RTN"",""HLTPCK2"",102,0)"
^XMB(3.9,45,2,6492,0)=" . S ARY(""ETN"")="""""
^XMB(3.9,45,2,6493,0)="""RTN"",""HLTPCK2"",103,0)"
^XMB(3.9,45,2,6494,0)=" . ; S ARY(""ETN"")=$P(ARY(""MTN""),ECH(""SUB-COMPONENT""),2)"
^XMB(3.9,45,2,6495,0)="""RTN"",""HLTPCK2"",104,0)"
^XMB(3.9,45,2,6496,0)=" . I ECH(""SUB-COMPONENT"")]"""" D"
^XMB(3.9,45,2,6497,0)="""RTN"",""HLTPCK2"",105,0)"
^XMB(3.9,45,2,6498,0)=" .. S ARY(""ETN"")=$P(ARY(""MTN""),ECH(""SUB-COMPONENT""),2)"
^XMB(3.9,45,2,6499,0)="""RTN"",""HLTPCK2"",106,0)"
^XMB(3.9,45,2,6500,0)=" . ; 1st sub-component is message type"
^XMB(3.9,45,2,6501,0)="""RTN"",""HLTPCK2"",107,0)"
^XMB(3.9,45,2,6502,0)=" . ; S ARY(""MTN"")=$P(ARY(""MTN""),ECH(""SUB-COMPONENT""))"
^XMB(3.9,45,2,6503,0)="""RTN"",""HLTPCK2"",108,0)"
^XMB(3.9,45,2,6504,0)=" . I ECH(""SUB-COMPONENT"")]"""" D"
^XMB(3.9,45,2,6505,0)="""RTN"",""HLTPCK2"",109,0)"
^XMB(3.9,45,2,6506,0)=" .. S ARY(""MTN"")=$P(ARY(""MTN""),ECH(""SUB-COMPONENT""))"
^XMB(3.9,45,2,6507,0)="""RTN"",""HLTPCK2"",110,0)"
^XMB(3.9,45,2,6508,0)=" . ; patch HL*1.6*133 end"
^XMB(3.9,45,2,6509,0)="""RTN"",""HLTPCK2"",111,0)"
^XMB(3.9,45,2,6510,0)=" . ;"
^XMB(3.9,45,2,6511,0)="""RTN"",""HLTPCK2"",112,0)"
^XMB(3.9,45,2,6512,0)=" . ; S ARY(""VER"")=$P(X,$E(ECH),4),ARY(""ACAT"")=$P(X,$E(ECH),5),ARY(""APAT"")=$P(X,$E(ECH),6)"
^XMB(3.9,45,2,6513,0)="""RTN"",""HLTPCK2"",113,0)"
^XMB(3.9,45,2,6514,0)=" . S ARY(""VER"")=$P(X,ECH(1),4)"
^XMB(3.9,45,2,6515,0)="""RTN"",""HLTPCK2"",114,0)"
^XMB(3.9,45,2,6516,0)=" . S:$P(X,ECH(1),5)]"""" ARY(""ACAT"")=$P(X,ECH(1),5)"
^XMB(3.9,45,2,6517,0)="""RTN"",""HLTPCK2"",115,0)"
^XMB(3.9,45,2,6518,0)=" . S:$P(X,ECH(1),6)]"""" ARY(""APAT"")=$P(X,ECH(1),6)"
^XMB(3.9,45,2,6519,0)="""RTN"",""HLTPCK2"",116,0)"
^XMB(3.9,45,2,6520,0)=" . ;"
^XMB(3.9,45,2,6521,0)="""RTN"",""HLTPCK2"",117,0)"
^XMB(3.9,45,2,6522,0)=" . ; BHS-10, batch comment"
^XMB(3.9,45,2,6523,0)="""RTN"",""HLTPCK2"",118,0)"
^XMB(3.9,45,2,6524,0)=" . ; first component: MSA-1, acknowledgment code"
^XMB(3.9,45,2,6525,0)="""RTN"",""HLTPCK2"",119,0)"
^XMB(3.9,45,2,6526,0)=" . ; 2nd component: MSA-3, text message"
^XMB(3.9,45,2,6527,0)="""RTN"",""HLTPCK2"",120,0)"
^XMB(3.9,45,2,6528,0)=" . ; S:$$P(.HDR,10)]"""" MSA=$P($$P(.HDR,10),$E(ECH),1),$P(MSA,FS,2)=$$P(.HDR,12),$P(MSA,FS,3)=$P($$P(.HDR,10),$E(ECH),2)"
^XMB(3.9,45,2,6529,0)="""RTN"",""HLTPCK2"",121,0)"
^XMB(3.9,45,2,6530,0)=" . ;"
^XMB(3.9,45,2,6531,0)="""RTN"",""HLTPCK2"",122,0)"
^XMB(3.9,45,2,6532,0)=" . S X=$$P(.HDR,10)"
^XMB(3.9,45,2,6533,0)="""RTN"",""HLTPCK2"",123,0)"
^XMB(3.9,45,2,6534,0)=" . I X]"""" D"
^XMB(3.9,45,2,6535,0)="""RTN"",""HLTPCK2"",124,0)"
^XMB(3.9,45,2,6536,0)=" .. S ARY(""HDR-10"")=X"
^XMB(3.9,45,2,6537,0)="""RTN"",""HLTPCK2"",125,0)"
^XMB(3.9,45,2,6538,0)=" .. ; MSA-1, acknowledgment code: AA,AE,AR,CA,CE,or CR"
^XMB(3.9,45,2,6539,0)="""RTN"",""HLTPCK2"",126,0)"
^XMB(3.9,45,2,6540,0)=" .. S MSA=$P(X,ECH(1),1)"
^XMB(3.9,45,2,6541,0)="""RTN"",""HLTPCK2"",127,0)"
^XMB(3.9,45,2,6542,0)=" .. ; MSA-2 and BHS-12, reference batch control id"
^XMB(3.9,45,2,6543,0)="""RTN"",""HLTPCK2"",128,0)"
^XMB(3.9,45,2,6544,0)=" .. S $P(MSA,FS,2)=$$P(.HDR,12)"
^XMB(3.9,45,2,6545,0)="""RTN"",""HLTPCK2"",129,0)"
^XMB(3.9,45,2,6546,0)=" .. ; MSA-3, text message"
^XMB(3.9,45,2,6547,0)="""RTN"",""HLTPCK2"",130,0)"
^XMB(3.9,45,2,6548,0)=" .. S $P(MSA,FS,3)=$P(X,ECH(1),2)"
^XMB(3.9,45,2,6549,0)="""RTN"",""HLTPCK2"",131,0)"
^XMB(3.9,45,2,6550,0)=" . ;"
^XMB(3.9,45,2,6551,0)="""RTN"",""HLTPCK2"",132,0)"
^XMB(3.9,45,2,6552,0)=" . ; Reference Batch Control ID"
^XMB(3.9,45,2,6553,0)="""RTN"",""HLTPCK2"",133,0)"
^XMB(3.9,45,2,6554,0)=" . S:$$P(.HDR,12)]"""" ARY(""HDR-12"")=$$P(.HDR,12)"
^XMB(3.9,45,2,6555,0)="""RTN"",""HLTPCK2"",134,0)"
^XMB(3.9,45,2,6556,0)=" ;"
^XMB(3.9,45,2,6557,0)="""RTN"",""HLTPCK2"",135,0)"
^XMB(3.9,45,2,6558,0)=" ; I $$P(.HDR,1)=""MSH"" D"
^XMB(3.9,45,2,6559,0)="""RTN"",""HLTPCK2"",136,0)"
^XMB(3.9,45,2,6560,0)=" I ARY(""HDR-1"")=""MSH"" D"
^XMB(3.9,45,2,6561,0)="""RTN"",""HLTPCK2"",137,0)"
^XMB(3.9,45,2,6562,0)=" . ; S ARY(""MID"")=$$P(.HDR,10),ARY(""PID"")=$$P(.HDR,11),ARY(""MTN"")=$P($$P(.HDR,9),$E(ECH)),ARY(""ETN"")=$P($$P(.HDR,9),$E(ECH),2),ARY(""VER"")=$$P(.HDR,12)"
^XMB(3.9,45,2,6563,0)="""RTN"",""HLTPCK2"",138,0)"
^XMB(3.9,45,2,6564,0)=" . S ARY(""MID"")=$$P(.HDR,10)"
^XMB(3.9,45,2,6565,0)="""RTN"",""HLTPCK2"",139,0)"
^XMB(3.9,45,2,6566,0)=" . S ARY(""PID"")=$$P(.HDR,11)"
^XMB(3.9,45,2,6567,0)="""RTN"",""HLTPCK2"",140,0)"
^XMB(3.9,45,2,6568,0)=" . S X=$$P(.HDR,9)"
^XMB(3.9,45,2,6569,0)="""RTN"",""HLTPCK2"",141,0)"
^XMB(3.9,45,2,6570,0)=" . S ARY(""MTN"")=$P(X,ECH(1))"
^XMB(3.9,45,2,6571,0)="""RTN"",""HLTPCK2"",142,0)"
^XMB(3.9,45,2,6572,0)=" . S ARY(""ETN"")=$P(X,ECH(1),2)"
^XMB(3.9,45,2,6573,0)="""RTN"",""HLTPCK2"",143,0)"
^XMB(3.9,45,2,6574,0)=" . ;"
^XMB(3.9,45,2,6575,0)="""RTN"",""HLTPCK2"",144,0)"
^XMB(3.9,45,2,6576,0)=" . ; S:$P($$P(.HDR,9),$E(ECH),3)'="""" ARY(""MTN_ETN"")=$P($$P(.HDR,9),$E(ECH),3)"
^XMB(3.9,45,2,6577,0)="""RTN"",""HLTPCK2"",145,0)"
^XMB(3.9,45,2,6578,0)=" . S:$P(X,ECH(1),3)]"""" ARY(""MTN_ETN"")=$P(X,ECH(1),3)"
^XMB(3.9,45,2,6579,0)="""RTN"",""HLTPCK2"",146,0)"
^XMB(3.9,45,2,6580,0)=" . ;"
^XMB(3.9,45,2,6581,0)="""RTN"",""HLTPCK2"",147,0)"
^XMB(3.9,45,2,6582,0)=" . I ARY(""PID"")[ECH(1) D"
^XMB(3.9,45,2,6583,0)="""RTN"",""HLTPCK2"",148,0)"
^XMB(3.9,45,2,6584,0)=" .. ; 2nd component is Processing mode"
^XMB(3.9,45,2,6585,0)="""RTN"",""HLTPCK2"",149,0)"
^XMB(3.9,45,2,6586,0)=" .. S ARY(""PMOD"")=$P(ARY(""PID""),ECH(1),2)"
^XMB(3.9,45,2,6587,0)="""RTN"",""HLTPCK2"",150,0)"
^XMB(3.9,45,2,6588,0)=" .. ; first component is Processing id"
^XMB(3.9,45,2,6589,0)="""RTN"",""HLTPCK2"",151,0)"
^XMB(3.9,45,2,6590,0)=" .. S ARY(""PID"")=$P(ARY(""PID""),ECH(1))"
^XMB(3.9,45,2,6591,0)="""RTN"",""HLTPCK2"",152,0)"
^XMB(3.9,45,2,6592,0)=" . ;"
^XMB(3.9,45,2,6593,0)="""RTN"",""HLTPCK2"",153,0)"
^XMB(3.9,45,2,6594,0)=" . S ARY(""VER"")=$$P(.HDR,12)"
^XMB(3.9,45,2,6595,0)="""RTN"",""HLTPCK2"",154,0)"
^XMB(3.9,45,2,6596,0)=" . ;"
^XMB(3.9,45,2,6597,0)="""RTN"",""HLTPCK2"",155,0)"
^XMB(3.9,45,2,6598,0)=" . ; fields 13 and 14"
^XMB(3.9,45,2,6599,0)="""RTN"",""HLTPCK2"",156,0)"
^XMB(3.9,45,2,6600,0)=" . S:$$P(.HDR,13)]"""" ARY(""MSH-13"")=$$P(.HDR,13)"
^XMB(3.9,45,2,6601,0)="""RTN"",""HLTPCK2"",157,0)"
^XMB(3.9,45,2,6602,0)=" . S:$$P(.HDR,14)]"""" ARY(""MSH-14"")=$$P(.HDR,14)"
^XMB(3.9,45,2,6603,0)="""RTN"",""HLTPCK2"",158,0)"
^XMB(3.9,45,2,6604,0)=" . ;"
^XMB(3.9,45,2,6605,0)="""RTN"",""HLTPCK2"",159,0)"
^XMB(3.9,45,2,6606,0)=" . ; S:$$P(.HDR,15)]"""" ARY(""ACAT"")=$$P(.HDR,15) S:$$P(.HDR,16)]"""" ARY(""APAT"")=$$P(.HDR,16) S:$$P(.HDR,17)]"""" ARY(""CC"")=$$P(.HDR,17)"
^XMB(3.9,45,2,6607,0)="""RTN"",""HLTPCK2"",160,0)"
^XMB(3.9,45,2,6608,0)=" . S:$$P(.HDR,15)]"""" ARY(""ACAT"")=$$P(.HDR,15)"
^XMB(3.9,45,2,6609,0)="""RTN"",""HLTPCK2"",161,0)"
^XMB(3.9,45,2,6610,0)=" . S:$$P(.HDR,16)]"""" ARY(""APAT"")=$$P(.HDR,16)"
^XMB(3.9,45,2,6611,0)="""RTN"",""HLTPCK2"",162,0)"
^XMB(3.9,45,2,6612,0)=" . S:$$P(.HDR,17)]"""" ARY(""CC"")=$$P(.HDR,17)"
^XMB(3.9,45,2,6613,0)="""RTN"",""HLTPCK2"",163,0)"
^XMB(3.9,45,2,6614,0)=" . ;"
^XMB(3.9,45,2,6615,0)="""RTN"",""HLTPCK2"",164,0)"
^XMB(3.9,45,2,6616,0)=" . ; fields 18,19,20 and 21"
^XMB(3.9,45,2,6617,0)="""RTN"",""HLTPCK2"",165,0)"
^XMB(3.9,45,2,6618,0)=" . S:$$P(.HDR,18)]"""" ARY(""MSH-18"")=$$P(.HDR,18)"
^XMB(3.9,45,2,6619,0)="""RTN"",""HLTPCK2"",166,0)"
^XMB(3.9,45,2,6620,0)=" . S:$$P(.HDR,19)]"""" ARY(""MSH-19"")=$$P(.HDR,19)"
^XMB(3.9,45,2,6621,0)="""RTN"",""HLTPCK2"",167,0)"
^XMB(3.9,45,2,6622,0)=" . S:$$P(.HDR,20)]"""" ARY(""MSH-20"")=$$P(.HDR,20)"
^XMB(3.9,45,2,6623,0)="""RTN"",""HLTPCK2"",168,0)"
^XMB(3.9,45,2,6624,0)=" . S:$$P(.HDR,21)]"""" ARY(""MSH-21"")=$$P(.HDR,21)"
^XMB(3.9,45,2,6625,0)="""RTN"",""HLTPCK2"",169,0)"
^XMB(3.9,45,2,6626,0)=" ;"
^XMB(3.9,45,2,6627,0)="""RTN"",""HLTPCK2"",170,0)"
^XMB(3.9,45,2,6628,0)=" ;Invoke continuation routine to perform remaining validation checks"
^XMB(3.9,45,2,6629,0)="""RTN"",""HLTPCK2"",171,0)"
^XMB(3.9,45,2,6630,0)=" D ^HLTPCK2A"
^XMB(3.9,45,2,6631,0)="""RTN"",""HLTPCK2"",172,0)"
^XMB(3.9,45,2,6632,0)="EXIT ;"
^XMB(3.9,45,2,6633,0)="""RTN"",""HLTPCK2"",173,0)"
^XMB(3.9,45,2,6634,0)=" ; patch HL*1.6*120"
^XMB(3.9,45,2,6635,0)="""RTN"",""HLTPCK2"",174,0)"
^XMB(3.9,45,2,6636,0)=" ; the maximum length of field #773,22 (Error Message) is 200"
^XMB(3.9,45,2,6637,0)="""RTN"",""HLTPCK2"",175,0)"
^XMB(3.9,45,2,6638,0)=" I ERR]"""" D"
^XMB(3.9,45,2,6639,0)="""RTN"",""HLTPCK2"",176,0)"
^XMB(3.9,45,2,6640,0)=" . S ERR=$E(ERR,1,200)"
^XMB(3.9,45,2,6641,0)="""RTN"",""HLTPCK2"",177,0)"
^XMB(3.9,45,2,6642,0)=" . S ARY=$S('ERR:""13^""_ERR,1:ERR)"
^XMB(3.9,45,2,6643,0)="""RTN"",""HLTPCK2"",178,0)"
^XMB(3.9,45,2,6644,0)=" ; patch HL*1.6*120 end"
^XMB(3.9,45,2,6645,0)="""RTN"",""HLTPCK2"",179,0)"
^XMB(3.9,45,2,6646,0)=" Q"
^XMB(3.9,45,2,6647,0)="""RTN"",""HLTPCK2"",180,0)"
^XMB(3.9,45,2,6648,0)=" ;"
^XMB(3.9,45,2,6649,0)="""RTN"",""HLTPCK2"",181,0)"
^XMB(3.9,45,2,6650,0)="P(MSH,P) ;get piece P from MSH array (passed by ref.)"
^XMB(3.9,45,2,6651,0)="""RTN"",""HLTPCK2"",182,0)"
^XMB(3.9,45,2,6652,0)=" N FS,I,L,L1,L2,X,Y"
^XMB(3.9,45,2,6653,0)="""RTN"",""HLTPCK2"",183,0)"
^XMB(3.9,45,2,6654,0)=" S FS=$E(MSH(1,0),4),(L2,Y)=0,X="""""
^XMB(3.9,45,2,6655,0)="""RTN"",""HLTPCK2"",184,0)"
^XMB(3.9,45,2,6656,0)=" F I=1:1 S L1=$L($G(MSH(I,0)),FS),L=L1+Y-1 D  Q:$L(X)!'$D(MSH(I,0))"
^XMB(3.9,45,2,6657,0)="""RTN"",""HLTPCK2"",185,0)"
^XMB(3.9,45,2,6658,0)=" . S:L1=1 L=L+1"
^XMB(3.9,45,2,6659,0)="""RTN"",""HLTPCK2"",186,0)"
^XMB(3.9,45,2,6660,0)=" . S:P'>L X=$P($G(MSH(I-1,0)),FS,P-L2)_$P($G(MSH(I,0)),FS,(P-Y))"
^XMB(3.9,45,2,6661,0)="""RTN"",""HLTPCK2"",187,0)"
^XMB(3.9,45,2,6662,0)=" . S L2=Y,Y=L"
^XMB(3.9,45,2,6663,0)="""RTN"",""HLTPCK2"",188,0)"
^XMB(3.9,45,2,6664,0)=" Q X"
^XMB(3.9,45,2,6665,0)="""RTN"",""HLTPCK2"",189,0)"
^XMB(3.9,45,2,6666,0)=" ;"
^XMB(3.9,45,2,6667,0)="""RTN"",""HLTPCK2A"")"
^XMB(3.9,45,2,6668,0)="0^16^B28058257^B27212258"
^XMB(3.9,45,2,6669,0)="""RTN"",""HLTPCK2A"",1,0)"
^XMB(3.9,45,2,6670,0)="HLTPCK2A ;SF/RSD - Message Header Validation (Con't) ;09/13/2006"
^XMB(3.9,45,2,6671,0)="""RTN"",""HLTPCK2A"",2,0)"
^XMB(3.9,45,2,6672,0)=" ;;1.6;HEALTH LEVEL SEVEN;**19,57,59,66,108,120,133**;Oct 13, 1995;Build 13"
^XMB(3.9,45,2,6673,0)="""RTN"",""HLTPCK2A"",3,0)"
^XMB(3.9,45,2,6674,0)=" ;Per VHA Directive 2004-038, this routine should not be modified."
^XMB(3.9,45,2,6675,0)="""RTN"",""HLTPCK2A"",4,0)"
^XMB(3.9,45,2,6676,0)=" S ERR="""""
^XMB(3.9,45,2,6677,0)="""RTN"",""HLTPCK2A"",5,0)"
^XMB(3.9,45,2,6678,0)=" S HLPARAM=$$PARAM^HLCS2,HLDOM=$P(HLPARAM,U,2),HLINSTN=$P(HLPARAM,U,6)"
^XMB(3.9,45,2,6679,0)="""RTN"",""HLTPCK2A"",6,0)"
^XMB(3.9,45,2,6680,0)="MT ;Validate message type"
^XMB(3.9,45,2,6681,0)="""RTN"",""HLTPCK2A"",7,0)"
^XMB(3.9,45,2,6682,0)=" I (ARY(""MTN"")="""") S:(ERR="""") ERR=""Invalid Message Type"" Q"
^XMB(3.9,45,2,6683,0)="""RTN"",""HLTPCK2A"",8,0)"
^XMB(3.9,45,2,6684,0)=" S ARY(""MTP"")=0"
^XMB(3.9,45,2,6685,0)="""RTN"",""HLTPCK2A"",9,0)"
^XMB(3.9,45,2,6686,0)=" S:(ARY(""MTN"")'="""") ARY(""MTP"")=+$O(^HL(771.2,""B"",ARY(""MTN""),0))"
^XMB(3.9,45,2,6687,0)="""RTN"",""HLTPCK2A"",10,0)"
^XMB(3.9,45,2,6688,0)=" I ('ARY(""MTP"")) S:(ERR="""") ERR=""Invalid Message Type"" Q"
^XMB(3.9,45,2,6689,0)="""RTN"",""HLTPCK2A"",11,0)"
^XMB(3.9,45,2,6690,0)=" ;"
^XMB(3.9,45,2,6691,0)="""RTN"",""HLTPCK2A"",12,0)"
^XMB(3.9,45,2,6692,0)="AT ;Determine if message is an acknowledgement type"
^XMB(3.9,45,2,6693,0)="""RTN"",""HLTPCK2A"",13,0)"
^XMB(3.9,45,2,6694,0)=" I ((""ACK,ADR,MCF,MFK,MFR,ORF,ORR,RRA,RRD,RRE,RRG,TBR""[ARY(""MTN""))&($G(MSA)="""")) S:(ERR="""") ERR=""MSA Segment Missing"" Q"
^XMB(3.9,45,2,6695,0)="""RTN"",""HLTPCK2A"",14,0)"
^XMB(3.9,45,2,6696,0)=" ;commit ack, quit"
^XMB(3.9,45,2,6697,0)="""RTN"",""HLTPCK2A"",15,0)"
^XMB(3.9,45,2,6698,0)=" I $E($G(MSA))=""C"" D  Q"
^XMB(3.9,45,2,6699,0)="""RTN"",""HLTPCK2A"",16,0)"
^XMB(3.9,45,2,6700,0)=" . ;find original msg."
^XMB(3.9,45,2,6701,0)="""RTN"",""HLTPCK2A"",17,0)"
^XMB(3.9,45,2,6702,0)=" . S ARY(""MSAID"")=$P(MSA,FS,2),ARY(""MTIENS"")=0"
^XMB(3.9,45,2,6703,0)="""RTN"",""HLTPCK2A"",18,0)"
^XMB(3.9,45,2,6704,0)=" . I ARY(""MSAID"")="""" S:(ERR="""") ERR=""Invalid Message Control ID in MSA Segment - No Message ID "" Q"
^XMB(3.9,45,2,6705,0)="""RTN"",""HLTPCK2A"",19,0)"
^XMB(3.9,45,2,6706,0)=" . F  S ARY(""MTIENS"")=+$O(^HLMA(""C"",ARY(""MSAID""),ARY(""MTIENS""))) Q:'ARY(""MTIENS"")!($P($G(^HLMA(ARY(""MTIENS""),0)),U,3)=""O"")"
^XMB(3.9,45,2,6707,0)="""RTN"",""HLTPCK2A"",20,0)"
^XMB(3.9,45,2,6708,0)=" . I 'ARY(""MTIENS"") S:(ERR="""") ERR=""Invalid Message Control ID in MSA Segment - No message IEN in """"C"""" x-ref"" Q"
^XMB(3.9,45,2,6709,0)="""RTN"",""HLTPCK2A"",21,0)"
^XMB(3.9,45,2,6710,0)=" . Q"
^XMB(3.9,45,2,6711,0)="""RTN"",""HLTPCK2A"",22,0)"
^XMB(3.9,45,2,6712,0)="AAT ;Validate accept ack type and application ack type"
^XMB(3.9,45,2,6713,0)="""RTN"",""HLTPCK2A"",23,0)"
^XMB(3.9,45,2,6714,0)=" I ($G(ARY(""ACAT""))'="""") I (""AL,NE,ER,SU""'[ARY(""ACAT"")) S:(ERR="""") ERR=""Invalid accept ack type"" Q"
^XMB(3.9,45,2,6715,0)="""RTN"",""HLTPCK2A"",24,0)"
^XMB(3.9,45,2,6716,0)=" I ($G(ARY(""APAT""))'="""") I (""AL,NE,ER,SU""'[ARY(""APAT"")) S:(ERR="""") ERR=""Invalid application ack type"" Q"
^XMB(3.9,45,2,6717,0)="""RTN"",""HLTPCK2A"",25,0)"
^XMB(3.9,45,2,6718,0)=" ;"
^XMB(3.9,45,2,6719,0)="""RTN"",""HLTPCK2A"",26,0)"
^XMB(3.9,45,2,6720,0)=" ;"
^XMB(3.9,45,2,6721,0)="""RTN"",""HLTPCK2A"",27,0)"
^XMB(3.9,45,2,6722,0)="RA ;Validate receiving application"
^XMB(3.9,45,2,6723,0)="""RTN"",""HLTPCK2A"",28,0)"
^XMB(3.9,45,2,6724,0)=" I (ARY(""RAN"")']"""") S:(ERR="""") ERR=""Invalid Receiving Application"" Q"
^XMB(3.9,45,2,6725,0)="""RTN"",""HLTPCK2A"",29,0)"
^XMB(3.9,45,2,6726,0)=" S ARY(""RAP"")=0"
^XMB(3.9,45,2,6727,0)="""RTN"",""HLTPCK2A"",30,0)"
^XMB(3.9,45,2,6728,0)=" S:ARY(""RAN"")]"""" ARY(""RAP"")=+$O(^HL(771,""B"",$E(ARY(""RAN""),1,30),0))"
^XMB(3.9,45,2,6729,0)="""RTN"",""HLTPCK2A"",31,0)"
^XMB(3.9,45,2,6730,0)=" I 'ARY(""RAP""),ARY(""RAN"")'="""" D"
^XMB(3.9,45,2,6731,0)="""RTN"",""HLTPCK2A"",32,0)"
^XMB(3.9,45,2,6732,0)=" .S X=$$UPPER^HLFNC(ARY(""RAN""))"
^XMB(3.9,45,2,6733,0)="""RTN"",""HLTPCK2A"",33,0)"
^XMB(3.9,45,2,6734,0)=" .S ARY(""RAP"")=+$O(^HL(771,""B"",$E(ARY(""RAN""),1,30),0))"
^XMB(3.9,45,2,6735,0)="""RTN"",""HLTPCK2A"",34,0)"
^XMB(3.9,45,2,6736,0)=" ;"
^XMB(3.9,45,2,6737,0)="""RTN"",""HLTPCK2A"",35,0)"
^XMB(3.9,45,2,6738,0)=" ; patch HL*1.6*120 start"
^XMB(3.9,45,2,6739,0)="""RTN"",""HLTPCK2A"",36,0)"
^XMB(3.9,45,2,6740,0)=" I ($L(ARY(""RAN""),ECH(1))>1) D"
^XMB(3.9,45,2,6741,0)="""RTN"",""HLTPCK2A"",37,0)"
^XMB(3.9,45,2,6742,0)=" . S ARY(""RAN-SUB1"")=$P(ARY(""RAN""),ECH(1))"
^XMB(3.9,45,2,6743,0)="""RTN"",""HLTPCK2A"",38,0)"
^XMB(3.9,45,2,6744,0)=" . S ARY(""RAN-SUB2"")=$P(ARY(""RAN""),ECH(1),2)"
^XMB(3.9,45,2,6745,0)="""RTN"",""HLTPCK2A"",39,0)"
^XMB(3.9,45,2,6746,0)=" . S ARY(""RAN-SUB3"")=$P(ARY(""RAN""),ECH(1),3)"
^XMB(3.9,45,2,6747,0)="""RTN"",""HLTPCK2A"",40,0)"
^XMB(3.9,45,2,6748,0)=" . I 'ARY(""RAP""),ARY(""RAN-SUB1"")]"""" D"
^XMB(3.9,45,2,6749,0)="""RTN"",""HLTPCK2A"",41,0)"
^XMB(3.9,45,2,6750,0)=" .. S ARY(""RAP"")=+$O(^HL(771,""B"",$E(ARY(""RAN-SUB1""),1,30),0))"
^XMB(3.9,45,2,6751,0)="""RTN"",""HLTPCK2A"",42,0)"
^XMB(3.9,45,2,6752,0)=" . I ARY(""RAN-SUB1"")[ECH(3) D"
^XMB(3.9,45,2,6753,0)="""RTN"",""HLTPCK2A"",43,0)"
^XMB(3.9,45,2,6754,0)=" .. S ARY(""RAN-SUB1-DEESCAPE"")=$$DEESCAPE(ARY(""RAN-SUB1""))"
^XMB(3.9,45,2,6755,0)="""RTN"",""HLTPCK2A"",44,0)"
^XMB(3.9,45,2,6756,0)=" . I ARY(""RAN-SUB2"")[ECH(3) D"
^XMB(3.9,45,2,6757,0)="""RTN"",""HLTPCK2A"",45,0)"
^XMB(3.9,45,2,6758,0)=" .. S ARY(""RAN-SUB2-DEESCAPE"")=$$DEESCAPE(ARY(""RAN-SUB2""))"
^XMB(3.9,45,2,6759,0)="""RTN"",""HLTPCK2A"",46,0)"
^XMB(3.9,45,2,6760,0)=" . I ARY(""RAN-SUB3"")[ECH(3) D"
^XMB(3.9,45,2,6761,0)="""RTN"",""HLTPCK2A"",47,0)"
^XMB(3.9,45,2,6762,0)=" .. S ARY(""RAN-SUB3-DEESCAPE"")=$$DEESCAPE(ARY(""RAN-SUB3""))"
^XMB(3.9,45,2,6763,0)="""RTN"",""HLTPCK2A"",48,0)"
^XMB(3.9,45,2,6764,0)=" . I 'ARY(""RAP""),$G(ARY(""RAN-SUB1-DEESCAPE""))]"""" D"
^XMB(3.9,45,2,6765,0)="""RTN"",""HLTPCK2A"",49,0)"
^XMB(3.9,45,2,6766,0)=" .. S ARY(""RAP"")=+$O(^HL(771,""B"",$E(ARY(""RAN-SUB1-DEESCAPE""),1,30),0))"
^XMB(3.9,45,2,6767,0)="""RTN"",""HLTPCK2A"",50,0)"
^XMB(3.9,45,2,6768,0)=" I ARY(""RAN"")[ECH(3) D"
^XMB(3.9,45,2,6769,0)="""RTN"",""HLTPCK2A"",51,0)"
^XMB(3.9,45,2,6770,0)=" . S ARY(""RAN-DEESCAPE"")=$$DEESCAPE(ARY(""RAN""))"
^XMB(3.9,45,2,6771,0)="""RTN"",""HLTPCK2A"",52,0)"
^XMB(3.9,45,2,6772,0)=" I 'ARY(""RAP""),$G(ARY(""RAN-DEESCAPE""))]"""" D"
^XMB(3.9,45,2,6773,0)="""RTN"",""HLTPCK2A"",53,0)"
^XMB(3.9,45,2,6774,0)=" . S ARY(""RAP"")=+$O(^HL(771,""B"",$E(ARY(""RAN-DEESCAPE""),1,30),0))"
^XMB(3.9,45,2,6775,0)="""RTN"",""HLTPCK2A"",54,0)"
^XMB(3.9,45,2,6776,0)=" ; patch HL*1.6*120 end"
^XMB(3.9,45,2,6777,0)="""RTN"",""HLTPCK2A"",55,0)"
^XMB(3.9,45,2,6778,0)=" ;"
^XMB(3.9,45,2,6779,0)="""RTN"",""HLTPCK2A"",56,0)"
^XMB(3.9,45,2,6780,0)=" I ('ARY(""RAP"")) S:(ERR="""") ERR=""Invalid Receiving Application"" Q"
^XMB(3.9,45,2,6781,0)="""RTN"",""HLTPCK2A"",57,0)"
^XMB(3.9,45,2,6782,0)=" S X2=$G(^HL(771,ARY(""RAP""),0))"
^XMB(3.9,45,2,6783,0)="""RTN"",""HLTPCK2A"",58,0)"
^XMB(3.9,45,2,6784,0)=" I (X2="""") S:(ERR="""") ERR=""Invalid Receiving Application"" Q"
^XMB(3.9,45,2,6785,0)="""RTN"",""HLTPCK2A"",59,0)"
^XMB(3.9,45,2,6786,0)=" I ($P(X2,""^"",2)'=""a"") S:(ERR="""") ERR=""Receiving Application is Inactive"" Q"
^XMB(3.9,45,2,6787,0)="""RTN"",""HLTPCK2A"",60,0)"
^XMB(3.9,45,2,6788,0)=" ;"
^XMB(3.9,45,2,6789,0)="""RTN"",""HLTPCK2A"",61,0)"
^XMB(3.9,45,2,6790,0)="SA ;Validate sending application"
^XMB(3.9,45,2,6791,0)="""RTN"",""HLTPCK2A"",62,0)"
^XMB(3.9,45,2,6792,0)=" I (ARY(""SAN"")']"""") S:(ERR="""") ERR=""Invalid Sending Application"" Q"
^XMB(3.9,45,2,6793,0)="""RTN"",""HLTPCK2A"",63,0)"
^XMB(3.9,45,2,6794,0)=" S ARY(""SAP"")=0"
^XMB(3.9,45,2,6795,0)="""RTN"",""HLTPCK2A"",64,0)"
^XMB(3.9,45,2,6796,0)=" S:(ARY(""SAN"")]"""") ARY(""SAP"")=+$O(^HL(771,""B"",$E(ARY(""SAN""),1,30),0))"
^XMB(3.9,45,2,6797,0)="""RTN"",""HLTPCK2A"",65,0)"
^XMB(3.9,45,2,6798,0)=" I (('ARY(""SAP""))&(ARY(""SAN"")'="""")) D"
^XMB(3.9,45,2,6799,0)="""RTN"",""HLTPCK2A"",66,0)"
^XMB(3.9,45,2,6800,0)=" .S X=$$UPPER^HLFNC(ARY(""SAN""))"
^XMB(3.9,45,2,6801,0)="""RTN"",""HLTPCK2A"",67,0)"
^XMB(3.9,45,2,6802,0)=" .S ARY(""SAP"")=+$O(^HL(771,""B"",$E(ARY(""SAN""),1,30),0))"
^XMB(3.9,45,2,6803,0)="""RTN"",""HLTPCK2A"",68,0)"
^XMB(3.9,45,2,6804,0)=" ;"
^XMB(3.9,45,2,6805,0)="""RTN"",""HLTPCK2A"",69,0)"
^XMB(3.9,45,2,6806,0)=" ; patch HL*1.6*120 start"
^XMB(3.9,45,2,6807,0)="""RTN"",""HLTPCK2A"",70,0)"
^XMB(3.9,45,2,6808,0)=" I ($L(ARY(""SAN""),ECH(1))>1) D"
^XMB(3.9,45,2,6809,0)="""RTN"",""HLTPCK2A"",71,0)"
^XMB(3.9,45,2,6810,0)=" . S ARY(""SAN-SUB1"")=$P(ARY(""SAN""),ECH(1))"
^XMB(3.9,45,2,6811,0)="""RTN"",""HLTPCK2A"",72,0)"
^XMB(3.9,45,2,6812,0)=" . S ARY(""SAN-SUB2"")=$P(ARY(""SAN""),ECH(1),2)"
^XMB(3.9,45,2,6813,0)="""RTN"",""HLTPCK2A"",73,0)"
^XMB(3.9,45,2,6814,0)=" . S ARY(""SAN-SUB3"")=$P(ARY(""SAN""),ECH(1),3)"
^XMB(3.9,45,2,6815,0)="""RTN"",""HLTPCK2A"",74,0)"
^XMB(3.9,45,2,6816,0)=" . I 'ARY(""SAP""),ARY(""SAN-SUB1"")]"""" D"
^XMB(3.9,45,2,6817,0)="""RTN"",""HLTPCK2A"",75,0)"
^XMB(3.9,45,2,6818,0)=" .. S ARY(""SAP"")=+$O(^HL(771,""B"",$E(ARY(""SAN-SUB1""),1,30),0))"
^XMB(3.9,45,2,6819,0)="""RTN"",""HLTPCK2A"",76,0)"
^XMB(3.9,45,2,6820,0)=" . I ARY(""SAN-SUB1"")[ECH(3) D"
^XMB(3.9,45,2,6821,0)="""RTN"",""HLTPCK2A"",77,0)"
^XMB(3.9,45,2,6822,0)=" .. S ARY(""SAN-SUB1-DEESCAPE"")=$$DEESCAPE(ARY(""SAN-SUB1""))"
^XMB(3.9,45,2,6823,0)="""RTN"",""HLTPCK2A"",78,0)"
^XMB(3.9,45,2,6824,0)=" . I ARY(""SAN-SUB2"")[ECH(3) D"
^XMB(3.9,45,2,6825,0)="""RTN"",""HLTPCK2A"",79,0)"
^XMB(3.9,45,2,6826,0)=" .. S ARY(""SAN-SUB2-DEESCAPE"")=$$DEESCAPE(ARY(""SAN-SUB2""))"
^XMB(3.9,45,2,6827,0)="""RTN"",""HLTPCK2A"",80,0)"
^XMB(3.9,45,2,6828,0)=" . I ARY(""SAN-SUB3"")[ECH(3) D"
^XMB(3.9,45,2,6829,0)="""RTN"",""HLTPCK2A"",81,0)"
^XMB(3.9,45,2,6830,0)=" .. S ARY(""SAN-SUB3-DEESCAPE"")=$$DEESCAPE(ARY(""SAN-SUB3""))"
^XMB(3.9,45,2,6831,0)="""RTN"",""HLTPCK2A"",82,0)"
^XMB(3.9,45,2,6832,0)=" . I 'ARY(""SAP""),$G(ARY(""SAN-SUB1-DEESCAPE""))]"""" D"
^XMB(3.9,45,2,6833,0)="""RTN"",""HLTPCK2A"",83,0)"
^XMB(3.9,45,2,6834,0)=" .. S ARY(""SAP"")=+$O(^HL(771,""B"",$E(ARY(""SAN-SUB1-DEESCAPE""),1,30),0))"
^XMB(3.9,45,2,6835,0)="""RTN"",""HLTPCK2A"",84,0)"
^XMB(3.9,45,2,6836,0)=" I ARY(""SAN"")[ECH(3) D"
^XMB(3.9,45,2,6837,0)="""RTN"",""HLTPCK2A"",85,0)"
^XMB(3.9,45,2,6838,0)=" . S ARY(""SAN-DEESCAPE"")=$$DEESCAPE(ARY(""SAN""))"
^XMB(3.9,45,2,6839,0)="""RTN"",""HLTPCK2A"",86,0)"
^XMB(3.9,45,2,6840,0)=" I 'ARY(""SAP""),$G(ARY(""SAN-DEESCAPE""))]"""" D"
^XMB(3.9,45,2,6841,0)="""RTN"",""HLTPCK2A"",87,0)"
^XMB(3.9,45,2,6842,0)=" . S ARY(""SAP"")=+$O(^HL(771,""B"",$E(ARY(""SAN-DEESCAPE""),1,30),0))"
^XMB(3.9,45,2,6843,0)="""RTN"",""HLTPCK2A"",88,0)"
^XMB(3.9,45,2,6844,0)=" ; patch HL*1.6*120 end"
^XMB(3.9,45,2,6845,0)="""RTN"",""HLTPCK2A"",89,0)"
^XMB(3.9,45,2,6846,0)=" ;"
^XMB(3.9,45,2,6847,0)="""RTN"",""HLTPCK2A"",90,0)"
^XMB(3.9,45,2,6848,0)=" I ('ARY(""SAP"")) S:(ERR="""") ERR=""Invalid Sending Application"" Q"
^XMB(3.9,45,2,6849,0)="""RTN"",""HLTPCK2A"",91,0)"
^XMB(3.9,45,2,6850,0)=" ;"
^XMB(3.9,45,2,6851,0)="""RTN"",""HLTPCK2A"",92,0)"
^XMB(3.9,45,2,6852,0)="VN ;Validate version number"
^XMB(3.9,45,2,6853,0)="""RTN"",""HLTPCK2A"",93,0)"
^XMB(3.9,45,2,6854,0)=" I (ARY(""VER"")="""") S:(ERR="""") ERR=""Missing HL7 Version"" Q"
^XMB(3.9,45,2,6855,0)="""RTN"",""HLTPCK2A"",94,0)"
^XMB(3.9,45,2,6856,0)=" S X=0"
^XMB(3.9,45,2,6857,0)="""RTN"",""HLTPCK2A"",95,0)"
^XMB(3.9,45,2,6858,0)=" S:(ARY(""VER"")'="""") X=+$O(^HL(771.5,""B"",ARY(""VER""),0))"
^XMB(3.9,45,2,6859,0)="""RTN"",""HLTPCK2A"",96,0)"
^XMB(3.9,45,2,6860,0)=" S ARY(""VEP"")=X"
^XMB(3.9,45,2,6861,0)="""RTN"",""HLTPCK2A"",97,0)"
^XMB(3.9,45,2,6862,0)=" I ('X) S:(ERR="""") ERR=""Invalid HL7 Version"" Q"
^XMB(3.9,45,2,6863,0)="""RTN"",""HLTPCK2A"",98,0)"
^XMB(3.9,45,2,6864,0)=" ;I (X'=$P($G(HLN(770)),""^"",10)) S:(ERR="""") ERR=""Invalid HL7 Version for Receiving Application"" Q"
^XMB(3.9,45,2,6865,0)="""RTN"",""HLTPCK2A"",99,0)"
^XMB(3.9,45,2,6866,0)=" ;"
^XMB(3.9,45,2,6867,0)="""RTN"",""HLTPCK2A"",100,0)"
^XMB(3.9,45,2,6868,0)="ET ;Event Type Checks"
^XMB(3.9,45,2,6869,0)="""RTN"",""HLTPCK2A"",101,0)"
^XMB(3.9,45,2,6870,0)=" ;"
^XMB(3.9,45,2,6871,0)="""RTN"",""HLTPCK2A"",102,0)"
^XMB(3.9,45,2,6872,0)=" ;I ARY(""ETN"")="""",ARY(""VER"")>2.1,$G(MSA)'="""" D"
^XMB(3.9,45,2,6873,0)="""RTN"",""HLTPCK2A"",103,0)"
^XMB(3.9,45,2,6874,0)=" ;. ;N Z,ZEP,ZP"
^XMB(3.9,45,2,6875,0)="""RTN"",""HLTPCK2A"",104,0)"
^XMB(3.9,45,2,6876,0)=" ;. ;S Z=0 I $P(MSA,FS,2)]"""" S Z=+$O(^HLMA(""C"",$P(MSA,FS,2),0))"
^XMB(3.9,45,2,6877,0)="""RTN"",""HLTPCK2A"",105,0)"
^XMB(3.9,45,2,6878,0)=" ;. ;I '$G(^HLMA(Z,0)) S:(ERR="""") ERR=""Original Outgoing Message not found"" Q"
^XMB(3.9,45,2,6879,0)="""RTN"",""HLTPCK2A"",106,0)"
^XMB(3.9,45,2,6880,0)=" ;. ;S ZEP=$P(^HLMA(Z,0),U,8)"
^XMB(3.9,45,2,6881,0)="""RTN"",""HLTPCK2A"",107,0)"
^XMB(3.9,45,2,6882,0)=" ;. ;I 'ZEP S:(ERR="""") ERR=""Event Protocol pointer (field #773,8) missing"" Q"
^XMB(3.9,45,2,6883,0)="""RTN"",""HLTPCK2A"",108,0)"
^XMB(3.9,45,2,6884,0)=" ;. ;S ZP=$G(^ORD(101,ZEP,770)),ARY(""ETN"")=$P($G(^HL(779.001,+$P(ZP,U,4),0)),U)"
^XMB(3.9,45,2,6885,0)="""RTN"",""HLTPCK2A"",109,0)"
^XMB(3.9,45,2,6886,0)=" ;"
^XMB(3.9,45,2,6887,0)="""RTN"",""HLTPCK2A"",110,0)"
^XMB(3.9,45,2,6888,0)=" ;Validate event type"
^XMB(3.9,45,2,6889,0)="""RTN"",""HLTPCK2A"",111,0)"
^XMB(3.9,45,2,6890,0)=" I (ARY(""ETN"")=""""),ARY(""VER"")>2.1,$G(MSA)="""" S ERR=""Event Type Required"" Q"
^XMB(3.9,45,2,6891,0)="""RTN"",""HLTPCK2A"",112,0)"
^XMB(3.9,45,2,6892,0)=" S ARY(""ETP"")=0"
^XMB(3.9,45,2,6893,0)="""RTN"",""HLTPCK2A"",113,0)"
^XMB(3.9,45,2,6894,0)=" S:(ARY(""ETN"")'="""") ARY(""ETP"")=+$O(^HL(779.001,""B"",ARY(""ETN""),0))"
^XMB(3.9,45,2,6895,0)="""RTN"",""HLTPCK2A"",114,0)"
^XMB(3.9,45,2,6896,0)=" I $G(MSA)="""",ARY(""VER"")>2.1,('ARY(""ETP"")) S ERR=""Invalid Event Type"" Q"
^XMB(3.9,45,2,6897,0)="""RTN"",""HLTPCK2A"",115,0)"
^XMB(3.9,45,2,6898,0)=" ;"
^XMB(3.9,45,2,6899,0)="""RTN"",""HLTPCK2A"",116,0)"
^XMB(3.9,45,2,6900,0)=" D ^HLTPCK2B"
^XMB(3.9,45,2,6901,0)="""RTN"",""HLTPCK2A"",117,0)"
^XMB(3.9,45,2,6902,0)=" Q"
^XMB(3.9,45,2,6903,0)="""RTN"",""HLTPCK2A"",118,0)"
^XMB(3.9,45,2,6904,0)="DEESCAPE(INPUT) ;"
^XMB(3.9,45,2,6905,0)="""RTN"",""HLTPCK2A"",119,0)"
^XMB(3.9,45,2,6906,0)=" ; patch HL*1.6*120 - de-escape delimiters"
^XMB(3.9,45,2,6907,0)="""RTN"",""HLTPCK2A"",120,0)"
^XMB(3.9,45,2,6908,0)=" ; (assuming ""\"" is the escape character):"
^XMB(3.9,45,2,6909,0)="""RTN"",""HLTPCK2A"",121,0)"
^XMB(3.9,45,2,6910,0)=" ; - field separator (de-escape from \F\)"
^XMB(3.9,45,2,6911,0)="""RTN"",""HLTPCK2A"",122,0)"
^XMB(3.9,45,2,6912,0)=" ; - component separator (de-escape from \S\)"
^XMB(3.9,45,2,6913,0)="""RTN"",""HLTPCK2A"",123,0)"
^XMB(3.9,45,2,6914,0)=" ; - repetition separator (de-escape from \R\)"
^XMB(3.9,45,2,6915,0)="""RTN"",""HLTPCK2A"",124,0)"
^XMB(3.9,45,2,6916,0)=" ; - escape character (de-escape from \E\)"
^XMB(3.9,45,2,6917,0)="""RTN"",""HLTPCK2A"",125,0)"
^XMB(3.9,45,2,6918,0)=" ; - subcomponent separator (de-escape from \T\)"
^XMB(3.9,45,2,6919,0)="""RTN"",""HLTPCK2A"",126,0)"
^XMB(3.9,45,2,6920,0)=" ; \F\ will be de-escaped only if the length of FS is 1."
^XMB(3.9,45,2,6921,0)="""RTN"",""HLTPCK2A"",127,0)"
^XMB(3.9,45,2,6922,0)=" ;"
^XMB(3.9,45,2,6923,0)="""RTN"",""HLTPCK2A"",128,0)"
^XMB(3.9,45,2,6924,0)=" ; input:"
^XMB(3.9,45,2,6925,0)="""RTN"",""HLTPCK2A"",129,0)"
^XMB(3.9,45,2,6926,0)=" ; INPUT - input string to be de-escaped"
^XMB(3.9,45,2,6927,0)="""RTN"",""HLTPCK2A"",130,0)"
^XMB(3.9,45,2,6928,0)=" ; FS - field separator"
^XMB(3.9,45,2,6929,0)="""RTN"",""HLTPCK2A"",131,0)"
^XMB(3.9,45,2,6930,0)=" ; ECH - encoding characters"
^XMB(3.9,45,2,6931,0)="""RTN"",""HLTPCK2A"",132,0)"
^XMB(3.9,45,2,6932,0)=" ; "
^XMB(3.9,45,2,6933,0)="""RTN"",""HLTPCK2A"",133,0)"
^XMB(3.9,45,2,6934,0)=" ; output: de-escaped string"
^XMB(3.9,45,2,6935,0)="""RTN"",""HLTPCK2A"",134,0)"
^XMB(3.9,45,2,6936,0)=" ;"
^XMB(3.9,45,2,6937,0)="""RTN"",""HLTPCK2A"",135,0)"
^XMB(3.9,45,2,6938,0)=" N HLDATA,HLESCAPE,HLI,HLCHAR,HLCHAR23,HLEN,HLOUT"
^XMB(3.9,45,2,6939,0)="""RTN"",""HLTPCK2A"",136,0)"
^XMB(3.9,45,2,6940,0)=" S HLDATA=$G(INPUT)"
^XMB(3.9,45,2,6941,0)="""RTN"",""HLTPCK2A"",137,0)"
^XMB(3.9,45,2,6942,0)=" Q:HLDATA']"""" HLDATA"
^XMB(3.9,45,2,6943,0)="""RTN"",""HLTPCK2A"",138,0)"
^XMB(3.9,45,2,6944,0)=" ;"
^XMB(3.9,45,2,6945,0)="""RTN"",""HLTPCK2A"",139,0)"
^XMB(3.9,45,2,6946,0)=" ; patch HL*1.6*133"
^XMB(3.9,45,2,6947,0)="""RTN"",""HLTPCK2A"",140,0)"
^XMB(3.9,45,2,6948,0)=" Q:$L($G(ECH))<3 HLDATA"
^XMB(3.9,45,2,6949,0)="""RTN"",""HLTPCK2A"",141,0)"
^XMB(3.9,45,2,6950,0)=" ;"
^XMB(3.9,45,2,6951,0)="""RTN"",""HLTPCK2A"",142,0)"
^XMB(3.9,45,2,6952,0)=" S ECH(1)=$E(ECH,1)"
^XMB(3.9,45,2,6953,0)="""RTN"",""HLTPCK2A"",143,0)"
^XMB(3.9,45,2,6954,0)=" S ECH(2)=$E(ECH,2)"
^XMB(3.9,45,2,6955,0)="""RTN"",""HLTPCK2A"",144,0)"
^XMB(3.9,45,2,6956,0)=" S ECH(3)=$E(ECH,3)"
^XMB(3.9,45,2,6957,0)="""RTN"",""HLTPCK2A"",145,0)"
^XMB(3.9,45,2,6958,0)=" S ECH(4)=$E(ECH,4)"
^XMB(3.9,45,2,6959,0)="""RTN"",""HLTPCK2A"",146,0)"
^XMB(3.9,45,2,6960,0)=" ;"
^XMB(3.9,45,2,6961,0)="""RTN"",""HLTPCK2A"",147,0)"
^XMB(3.9,45,2,6962,0)=" S HLEN=$L(HLDATA)"
^XMB(3.9,45,2,6963,0)="""RTN"",""HLTPCK2A"",148,0)"
^XMB(3.9,45,2,6964,0)=" S HLOUT="""""
^XMB(3.9,45,2,6965,0)="""RTN"",""HLTPCK2A"",149,0)"
^XMB(3.9,45,2,6966,0)=" F HLI=1:1:HLEN D"
^XMB(3.9,45,2,6967,0)="""RTN"",""HLTPCK2A"",150,0)"
^XMB(3.9,45,2,6968,0)=" . S HLCHAR=$E(HLDATA,HLI)"
^XMB(3.9,45,2,6969,0)="""RTN"",""HLTPCK2A"",151,0)"
^XMB(3.9,45,2,6970,0)=" . I HLCHAR=ECH(3) D"
^XMB(3.9,45,2,6971,0)="""RTN"",""HLTPCK2A"",152,0)"
^XMB(3.9,45,2,6972,0)=" . S HLCHAR23=$E(HLDATA,HLI+1,HLI+2)"
^XMB(3.9,45,2,6973,0)="""RTN"",""HLTPCK2A"",153,0)"
^XMB(3.9,45,2,6974,0)=" . I $L($G(FS))=1,(HLCHAR23=(""F""_ECH(3))) D  Q"
^XMB(3.9,45,2,6975,0)="""RTN"",""HLTPCK2A"",154,0)"
^XMB(3.9,45,2,6976,0)=" .. S HLOUT=HLOUT_FS"
^XMB(3.9,45,2,6977,0)="""RTN"",""HLTPCK2A"",155,0)"
^XMB(3.9,45,2,6978,0)=" .. S HLI=HLI+2"
^XMB(3.9,45,2,6979,0)="""RTN"",""HLTPCK2A"",156,0)"
^XMB(3.9,45,2,6980,0)=" . I HLCHAR23=(""S""_ECH(3)) D  Q"
^XMB(3.9,45,2,6981,0)="""RTN"",""HLTPCK2A"",157,0)"
^XMB(3.9,45,2,6982,0)=" .. S HLOUT=HLOUT_ECH(1)"
^XMB(3.9,45,2,6983,0)="""RTN"",""HLTPCK2A"",158,0)"
^XMB(3.9,45,2,6984,0)=" .. S HLI=HLI+2"
^XMB(3.9,45,2,6985,0)="""RTN"",""HLTPCK2A"",159,0)"
^XMB(3.9,45,2,6986,0)=" . I HLCHAR23=(""R""_ECH(3)) D  Q"
^XMB(3.9,45,2,6987,0)="""RTN"",""HLTPCK2A"",160,0)"
^XMB(3.9,45,2,6988,0)=" .. S HLOUT=HLOUT_ECH(2)"
^XMB(3.9,45,2,6989,0)="""RTN"",""HLTPCK2A"",161,0)"
^XMB(3.9,45,2,6990,0)=" .. S HLI=HLI+2"
^XMB(3.9,45,2,6991,0)="""RTN"",""HLTPCK2A"",162,0)"
^XMB(3.9,45,2,6992,0)=" . I HLCHAR23=(""E""_ECH(3)) D  Q"
^XMB(3.9,45,2,6993,0)="""RTN"",""HLTPCK2A"",163,0)"
^XMB(3.9,45,2,6994,0)=" .. S HLOUT=HLOUT_ECH(3)"
^XMB(3.9,45,2,6995,0)="""RTN"",""HLTPCK2A"",164,0)"
^XMB(3.9,45,2,6996,0)=" .. S HLI=HLI+2"
^XMB(3.9,45,2,6997,0)="""RTN"",""HLTPCK2A"",165,0)"
^XMB(3.9,45,2,6998,0)=" . I $L($G(ECH))>3,(HLCHAR23=(""T""_ECH(3))) D  Q"
^XMB(3.9,45,2,6999,0)="""RTN"",""HLTPCK2A"",166,0)"
^XMB(3.9,45,2,7000,0)=" .. S HLOUT=HLOUT_ECH(4)"
^XMB(3.9,45,2,7001,0)="""RTN"",""HLTPCK2A"",167,0)"
^XMB(3.9,45,2,7002,0)=" .. S HLI=HLI+2"
^XMB(3.9,45,2,7003,0)="""RTN"",""HLTPCK2A"",168,0)"
^XMB(3.9,45,2,7004,0)=" . S HLOUT=HLOUT_HLCHAR"
^XMB(3.9,45,2,7005,0)="""RTN"",""HLTPCK2A"",169,0)"
^XMB(3.9,45,2,7006,0)=" ;"
^XMB(3.9,45,2,7007,0)="""RTN"",""HLTPCK2A"",170,0)"
^XMB(3.9,45,2,7008,0)=" Q HLOUT"
^XMB(3.9,45,2,7009,0)="""RTN"",""HLTPCK2B"")"
^XMB(3.9,45,2,7010,0)="0^20^B64470063^B63390233"
^XMB(3.9,45,2,7011,0)="""RTN"",""HLTPCK2B"",1,0)"
^XMB(3.9,45,2,7012,0)="HLTPCK2B ;OIFO-O/RJH - Message Header Validation (Con't) ;09/13/2006"
^XMB(3.9,45,2,7013,0)="""RTN"",""HLTPCK2B"",2,0)"
^XMB(3.9,45,2,7014,0)=" ;;1.6;HEALTH LEVEL SEVEN;**120,133**;Oct 13, 1995;Build 13"
^XMB(3.9,45,2,7015,0)="""RTN"",""HLTPCK2B"",3,0)"
^XMB(3.9,45,2,7016,0)=" ;Per VHA Directive 2004-038, this routine should not be modified."
^XMB(3.9,45,2,7017,0)="""RTN"",""HLTPCK2B"",4,0)"
^XMB(3.9,45,2,7018,0)=" ;"
^XMB(3.9,45,2,7019,0)="""RTN"",""HLTPCK2B"",5,0)"
^XMB(3.9,45,2,7020,0)=" ; splitted from HLTPCK2A"
^XMB(3.9,45,2,7021,0)="""RTN"",""HLTPCK2B"",6,0)"
^XMB(3.9,45,2,7022,0)=" ; to be called from HLTPCK2A"
^XMB(3.9,45,2,7023,0)="""RTN"",""HLTPCK2B"",7,0)"
^XMB(3.9,45,2,7024,0)=" ;"
^XMB(3.9,45,2,7025,0)="""RTN"",""HLTPCK2B"",8,0)"
^XMB(3.9,45,2,7026,0)="MS ;Check for Message Structure Code"
^XMB(3.9,45,2,7027,0)="""RTN"",""HLTPCK2B"",9,0)"
^XMB(3.9,45,2,7028,0)=" I $G(ARY(""MTN_ETN""))'="""" D"
^XMB(3.9,45,2,7029,0)="""RTN"",""HLTPCK2B"",10,0)"
^XMB(3.9,45,2,7030,0)=" . S ARY(""MTP_ETP"")=0"
^XMB(3.9,45,2,7031,0)="""RTN"",""HLTPCK2B"",11,0)"
^XMB(3.9,45,2,7032,0)=" . S ARY(""MTP_ETP"")=+$O(^HL(779.005,""B"",ARY(""MTN_ETN""),0))"
^XMB(3.9,45,2,7033,0)="""RTN"",""HLTPCK2B"",12,0)"
^XMB(3.9,45,2,7034,0)=" . I ('ARY(""MTP_ETP"")) S:(ERR="""") ERR=""Invalid Message Structure Code"" Q"
^XMB(3.9,45,2,7035,0)="""RTN"",""HLTPCK2B"",13,0)"
^XMB(3.9,45,2,7036,0)=" ;"
^XMB(3.9,45,2,7037,0)="""RTN"",""HLTPCK2B"",14,0)"
^XMB(3.9,45,2,7038,0)=" ;Get server and client Protocols"
^XMB(3.9,45,2,7039,0)="""RTN"",""HLTPCK2B"",15,0)"
^XMB(3.9,45,2,7040,0)="MSA ;if ack, then get information and quit, we don't need to respond"
^XMB(3.9,45,2,7041,0)="""RTN"",""HLTPCK2B"",16,0)"
^XMB(3.9,45,2,7042,0)=" I $G(MSA)]"""" D  Q"
^XMB(3.9,45,2,7043,0)="""RTN"",""HLTPCK2B"",17,0)"
^XMB(3.9,45,2,7044,0)=" . ;Message is an acknowledgement, find original message"
^XMB(3.9,45,2,7045,0)="""RTN"",""HLTPCK2B"",18,0)"
^XMB(3.9,45,2,7046,0)=" . S ARY(""MSAID"")=$P(MSA,FS,2),ARY(""MTIENS"")=0"
^XMB(3.9,45,2,7047,0)="""RTN"",""HLTPCK2B"",19,0)"
^XMB(3.9,45,2,7048,0)=" . I ARY(""MSAID"")="""" S:(ERR="""") ERR=""Invalid Message Control ID in MSA Segment - No Message ID"" Q"
^XMB(3.9,45,2,7049,0)="""RTN"",""HLTPCK2B"",20,0)"
^XMB(3.9,45,2,7050,0)=" . F  S ARY(""MTIENS"")=+$O(^HLMA(""AH"",ARY(""SAP""),ARY(""MSAID""),ARY(""MTIENS""))) Q:'ARY(""MTIENS"")!($P($G(^HLMA(ARY(""MTIENS""),0)),U,3)=""O"")"
^XMB(3.9,45,2,7051,0)="""RTN"",""HLTPCK2B"",21,0)"
^XMB(3.9,45,2,7052,0)=" . I 'ARY(""MTIENS"") S:(ERR="""") ERR=""Invalid Message Control ID in MSA Segment - No message IEN in """"AH"""" x-ref"" Q"
^XMB(3.9,45,2,7053,0)="""RTN"",""HLTPCK2B"",22,0)"
^XMB(3.9,45,2,7054,0)=" . ;get subscriber protocol and ack. to (show if this is an ack to an ack)"
^XMB(3.9,45,2,7055,0)="""RTN"",""HLTPCK2B"",23,0)"
^XMB(3.9,45,2,7056,0)=" . S X=$G(^HLMA(ARY(""MTIENS""),0)),ARY(""EIDS"")=$P(X,U,8),ARY(""ACK"")=$P(X,U,10)"
^XMB(3.9,45,2,7057,0)="""RTN"",""HLTPCK2B"",24,0)"
^XMB(3.9,45,2,7058,0)=" . ;if no subscriber protocol then response msg. is invalid"
^XMB(3.9,45,2,7059,0)="""RTN"",""HLTPCK2B"",25,0)"
^XMB(3.9,45,2,7060,0)=" . I ('ARY(""EIDS"")) S:(ERR="""") ERR=""Invalid Message Control ID in MSA Segment - No Subscr. IEN in 773"" Q"
^XMB(3.9,45,2,7061,0)="""RTN"",""HLTPCK2B"",26,0)"
^XMB(3.9,45,2,7062,0)=" . ;get message text ien in file 772 and server protocol, 'EID'"
^XMB(3.9,45,2,7063,0)="""RTN"",""HLTPCK2B"",27,0)"
^XMB(3.9,45,2,7064,0)=" . S ARY(""MTIEN"")=+X,X=$G(^HL(772,+X,0)),ARY(""EID"")=$P(X,U,10)"
^XMB(3.9,45,2,7065,0)="""RTN"",""HLTPCK2B"",28,0)"
^XMB(3.9,45,2,7066,0)=" . I ('ARY(""EID"")) S:(ERR="""") ERR=""Event Protocol not found"" Q"
^XMB(3.9,45,2,7067,0)="""RTN"",""HLTPCK2B"",29,0)"
^XMB(3.9,45,2,7068,0)=" . D EVENT^HLUTIL1(ARY(""EIDS""),""770,773"",.HLN)"
^XMB(3.9,45,2,7069,0)="""RTN"",""HLTPCK2B"",30,0)"
^XMB(3.9,45,2,7070,0)=" ;"
^XMB(3.9,45,2,7071,0)="""RTN"",""HLTPCK2B"",31,0)"
^XMB(3.9,45,2,7072,0)=" ;Find Server Protocol - based on sending application, message type,"
^XMB(3.9,45,2,7073,0)="""RTN"",""HLTPCK2B"",32,0)"
^XMB(3.9,45,2,7074,0)=" ;event type and version ID"
^XMB(3.9,45,2,7075,0)="""RTN"",""HLTPCK2B"",33,0)"
^XMB(3.9,45,2,7076,0)=" I ARY(""ETP"") S ARY(""EID"")=+$O(^ORD(101,""AHL1"",ARY(""SAP""),ARY(""MTP""),ARY(""ETP""),ARY(""VEP""),0))"
^XMB(3.9,45,2,7077,0)="""RTN"",""HLTPCK2B"",34,0)"
^XMB(3.9,45,2,7078,0)=" ;"
^XMB(3.9,45,2,7079,0)="""RTN"",""HLTPCK2B"",35,0)"
^XMB(3.9,45,2,7080,0)=" ;Find Server Protocol - based on sending application, message type,"
^XMB(3.9,45,2,7081,0)="""RTN"",""HLTPCK2B"",36,0)"
^XMB(3.9,45,2,7082,0)=" ;and version ID"
^XMB(3.9,45,2,7083,0)="""RTN"",""HLTPCK2B"",37,0)"
^XMB(3.9,45,2,7084,0)=" I 'ARY(""ETP"") S ARY(""EID"")=+$O(^ORD(101,""AHL21"",ARY(""SAP""),ARY(""MTP""),ARY(""VEP""),0))"
^XMB(3.9,45,2,7085,0)="""RTN"",""HLTPCK2B"",38,0)"
^XMB(3.9,45,2,7086,0)=" ;"
^XMB(3.9,45,2,7087,0)="""RTN"",""HLTPCK2B"",39,0)"
^XMB(3.9,45,2,7088,0)=" I ('ARY(""EID"")) S:(ERR="""") ERR=""Event Protocol not found"" Q"
^XMB(3.9,45,2,7089,0)="""RTN"",""HLTPCK2B"",40,0)"
^XMB(3.9,45,2,7090,0)=" ;Find Client Protocol - in ITEM multiple of Server Protocol"
^XMB(3.9,45,2,7091,0)="""RTN"",""HLTPCK2B"",41,0)"
^XMB(3.9,45,2,7092,0)=" S ARY(""EIDS"")=0"
^XMB(3.9,45,2,7093,0)="""RTN"",""HLTPCK2B"",42,0)"
^XMB(3.9,45,2,7094,0)=" F  S ARY(""EIDS"")=+$O(^ORD(101,ARY(""EID""),775,""B"",ARY(""EIDS""))) Q:'ARY(""EIDS"")!($P($G(^ORD(101,ARY(""EIDS""),770)),U,2)=ARY(""RAP""))"
^XMB(3.9,45,2,7095,0)="""RTN"",""HLTPCK2B"",43,0)"
^XMB(3.9,45,2,7096,0)=" I 'ARY(""EIDS"") S ERR=""Invalid Receiving Application for this Event"" Q"
^XMB(3.9,45,2,7097,0)="""RTN"",""HLTPCK2B"",44,0)"
^XMB(3.9,45,2,7098,0)=" D EVENT^HLUTIL1(ARY(""EIDS""),""770,773"",.HLN)"
^XMB(3.9,45,2,7099,0)="""RTN"",""HLTPCK2B"",45,0)"
^XMB(3.9,45,2,7100,0)=" ;"
^XMB(3.9,45,2,7101,0)="""RTN"",""HLTPCK2B"",46,0)"
^XMB(3.9,45,2,7102,0)="LLP ;Get logical link pointer"
^XMB(3.9,45,2,7103,0)="""RTN"",""HLTPCK2B"",47,0)"
^XMB(3.9,45,2,7104,0)=" S ARY(""LL"")=$P($G(HLN(770)),""^"",7)"
^XMB(3.9,45,2,7105,0)="""RTN"",""HLTPCK2B"",48,0)"
^XMB(3.9,45,2,7106,0)=" ;"
^XMB(3.9,45,2,7107,0)="""RTN"",""HLTPCK2B"",49,0)"
^XMB(3.9,45,2,7108,0)="FAC ;Get sending/rec facility, validate if necessary"
^XMB(3.9,45,2,7109,0)="""RTN"",""HLTPCK2B"",50,0)"
^XMB(3.9,45,2,7110,0)=" ;"
^XMB(3.9,45,2,7111,0)="""RTN"",""HLTPCK2B"",51,0)"
^XMB(3.9,45,2,7112,0)=" S HLCS=$E(ECH,1) ;Get component separator"
^XMB(3.9,45,2,7113,0)="""RTN"",""HLTPCK2B"",52,0)"
^XMB(3.9,45,2,7114,0)=" S ARY(""RAF"")=$$P^HLTPCK2(.HDR,6) ;Receiving Facility"
^XMB(3.9,45,2,7115,0)="""RTN"",""HLTPCK2B"",53,0)"
^XMB(3.9,45,2,7116,0)=" S ARY(""SAF"")=$$P^HLTPCK2(.HDR,4) ;Sending Facility"
^XMB(3.9,45,2,7117,0)="""RTN"",""HLTPCK2B"",54,0)"
^XMB(3.9,45,2,7118,0)=" ;Get sending/receiving facility from Application Parameter file(771)"
^XMB(3.9,45,2,7119,0)="""RTN"",""HLTPCK2B"",55,0)"
^XMB(3.9,45,2,7120,0)=" S HL771SF=$P($G(^HL(771,ARY(""SAP""),0)),U,3)"
^XMB(3.9,45,2,7121,0)="""RTN"",""HLTPCK2B"",56,0)"
^XMB(3.9,45,2,7122,0)=" S HL771RF=$P($G(^HL(771,ARY(""RAP""),0)),U,3)"
^XMB(3.9,45,2,7123,0)="""RTN"",""HLTPCK2B"",57,0)"
^XMB(3.9,45,2,7124,0)=" ;Sending/Receiving facility required?"
^XMB(3.9,45,2,7125,0)="""RTN"",""HLTPCK2B"",58,0)"
^XMB(3.9,45,2,7126,0)=" S X=$G(^ORD(101,ARY(""EIDS""),773))"
^XMB(3.9,45,2,7127,0)="""RTN"",""HLTPCK2B"",59,0)"
^XMB(3.9,45,2,7128,0)=" S HLSFREQ=+X,HLRFREQ=+$P(X,U,2)"
^XMB(3.9,45,2,7129,0)="""RTN"",""HLTPCK2B"",60,0)"
^XMB(3.9,45,2,7130,0)="RF ;Validate Receiving Facility"
^XMB(3.9,45,2,7131,0)="""RTN"",""HLTPCK2B"",61,0)"
^XMB(3.9,45,2,7132,0)=" I HLRFREQ D"
^XMB(3.9,45,2,7133,0)="""RTN"",""HLTPCK2B"",62,0)"
^XMB(3.9,45,2,7134,0)=" .I ARY(""RAF"")="""" S:ERR="""" ERR=""Missing required receiving facility"""
^XMB(3.9,45,2,7135,0)="""RTN"",""HLTPCK2B"",63,0)"
^XMB(3.9,45,2,7136,0)=" .I HL771RF]"""" D  Q"
^XMB(3.9,45,2,7137,0)="""RTN"",""HLTPCK2B"",64,0)"
^XMB(3.9,45,2,7138,0)=" ..;Facility data in 771 overrides data in site paramter file"
^XMB(3.9,45,2,7139,0)="""RTN"",""HLTPCK2B"",65,0)"
^XMB(3.9,45,2,7140,0)=" ..Q"
^XMB(3.9,45,2,7141,0)="""RTN"",""HLTPCK2B"",66,0)"
^XMB(3.9,45,2,7142,0)=" .;Check against local default value (site parameters)"
^XMB(3.9,45,2,7143,0)="""RTN"",""HLTPCK2B"",67,0)"
^XMB(3.9,45,2,7144,0)=" .Q:ARY(""RAF"")=(HLINSTN_HLCS_HLDOM_HLCS_""DNS"")"
^XMB(3.9,45,2,7145,0)="""RTN"",""HLTPCK2B"",68,0)"
^XMB(3.9,45,2,7146,0)=" .;"
^XMB(3.9,45,2,7147,0)="""RTN"",""HLTPCK2B"",69,0)"
^XMB(3.9,45,2,7148,0)=" .; patch HL*1.6*120 start"
^XMB(3.9,45,2,7149,0)="""RTN"",""HLTPCK2B"",70,0)"
^XMB(3.9,45,2,7150,0)=" .; I $P(ARY(""RAF""),HLCS)=HLINSTN,$P(ARY(""RAF""),HLCS,3)=""DNS"" D  Q"
^XMB(3.9,45,2,7151,0)="""RTN"",""HLTPCK2B"",71,0)"
^XMB(3.9,45,2,7152,0)=" . I $P(ARY(""RAF""),HLCS,3)=""DNS"" D  Q"
^XMB(3.9,45,2,7153,0)="""RTN"",""HLTPCK2B"",72,0)"
^XMB(3.9,45,2,7154,0)=" .. N ERROR,HLDOMP1,HLDOMP2"
^XMB(3.9,45,2,7155,0)="""RTN"",""HLTPCK2B"",73,0)"
^XMB(3.9,45,2,7156,0)=" .. ; S HLDOMP1=$P(ARY(""RAF""),HLCS,2),HLDOMP1=$$FIND1^DIC(4.2,"""",""BMX"",HLDOMP1,""B^C"","""",""ERROR"")"
^XMB(3.9,45,2,7157,0)="""RTN"",""HLTPCK2B"",74,0)"
^XMB(3.9,45,2,7158,0)=" .. S HLDOMP1=$P(ARY(""RAF""),HLCS,2)"
^XMB(3.9,45,2,7159,0)="""RTN"",""HLTPCK2B"",75,0)"
^XMB(3.9,45,2,7160,0)=" .. ;"
^XMB(3.9,45,2,7161,0)="""RTN"",""HLTPCK2B"",76,0)"
^XMB(3.9,45,2,7162,0)=" .. ; assume the format is <domain>:<port #>"
^XMB(3.9,45,2,7163,0)="""RTN"",""HLTPCK2B"",77,0)"
^XMB(3.9,45,2,7164,0)=" .. I HLDOMP1["":"" S ARY(""RAF-PORT"")=$P(HLDOMP1,"":"",2)"
^XMB(3.9,45,2,7165,0)="""RTN"",""HLTPCK2B"",78,0)"
^XMB(3.9,45,2,7166,0)=" .. S HLDOMP1=$P(HLDOMP1,"":"")"
^XMB(3.9,45,2,7167,0)="""RTN"",""HLTPCK2B"",79,0)"
^XMB(3.9,45,2,7168,0)=" .. S ARY(""RAF-DOMAIN"")=HLDOMP1"
^XMB(3.9,45,2,7169,0)="""RTN"",""HLTPCK2B"",80,0)"
^XMB(3.9,45,2,7170,0)=" .. ;"
^XMB(3.9,45,2,7171,0)="""RTN"",""HLTPCK2B"",81,0)"
^XMB(3.9,45,2,7172,0)=" .. ; if first piece of domain is ""HL7."" or ""MPI."", remove it"
^XMB(3.9,45,2,7173,0)="""RTN"",""HLTPCK2B"",82,0)"
^XMB(3.9,45,2,7174,0)=" .. I ($E(HLDOMP1,1,4)=""HL7."")!($E(HLDOMP1,1,4)=""MPI."") D"
^XMB(3.9,45,2,7175,0)="""RTN"",""HLTPCK2B"",83,0)"
^XMB(3.9,45,2,7176,0)=" ... S HLDOMP1=$P(HLDOMP1,""."",2,99)"
^XMB(3.9,45,2,7177,0)="""RTN"",""HLTPCK2B"",84,0)"
^XMB(3.9,45,2,7178,0)=" .. S HLDOMP1=$$FIND1^DIC(4.2,"""",""BMX"",HLDOMP1,""B^C"","""",""ERROR"")"
^XMB(3.9,45,2,7179,0)="""RTN"",""HLTPCK2B"",85,0)"
^XMB(3.9,45,2,7180,0)=" .. S HLDOMP2=HLDOM,HLDOMP2=$$FIND1^DIC(4.2,"""",""BMX"",HLDOMP2,""B^C"","""",""ERROR"")"
^XMB(3.9,45,2,7181,0)="""RTN"",""HLTPCK2B"",86,0)"
^XMB(3.9,45,2,7182,0)=" .. I HLDOMP1&HLDOMP2&(HLDOMP1=HLDOMP2) Q"
^XMB(3.9,45,2,7183,0)="""RTN"",""HLTPCK2B"",87,0)"
^XMB(3.9,45,2,7184,0)=" .. ;"
^XMB(3.9,45,2,7185,0)="""RTN"",""HLTPCK2B"",88,0)"
^XMB(3.9,45,2,7186,0)=" .. ; check DNS domain and ip address"
^XMB(3.9,45,2,7187,0)="""RTN"",""HLTPCK2B"",89,0)"
^XMB(3.9,45,2,7188,0)=" .. ;initialize variable, HLDOMP(""FLAG"")"
^XMB(3.9,45,2,7189,0)="""RTN"",""HLTPCK2B"",90,0)"
^XMB(3.9,45,2,7190,0)=" .. S HLDOMP(""FLAG"")=0"
^XMB(3.9,45,2,7191,0)="""RTN"",""HLTPCK2B"",91,0)"
^XMB(3.9,45,2,7192,0)=" .. I ARY(""RAF-DOMAIN"")]"""" D"
^XMB(3.9,45,2,7193,0)="""RTN"",""HLTPCK2B"",92,0)"
^XMB(3.9,45,2,7194,0)=" ... ;"
^XMB(3.9,45,2,7195,0)="""RTN"",""HLTPCK2B"",93,0)"
^XMB(3.9,45,2,7196,0)=" ... ; match DNS domain"
^XMB(3.9,45,2,7197,0)="""RTN"",""HLTPCK2B"",94,0)"
^XMB(3.9,45,2,7198,0)=" ... I $D(^HLCS(870,""DNS"",ARY(""RAF-DOMAIN""))) D  Q"
^XMB(3.9,45,2,7199,0)="""RTN"",""HLTPCK2B"",95,0)"
^XMB(3.9,45,2,7200,0)=" .... S HLDOMP(""FLAG"")=1"
^XMB(3.9,45,2,7201,0)="""RTN"",""HLTPCK2B"",96,0)"
^XMB(3.9,45,2,7202,0)=" .... S ARY(""RAF-LL"")=+$O(^HLCS(870,""DNS"",ARY(""RAF-DOMAIN""),0))"
^XMB(3.9,45,2,7203,0)="""RTN"",""HLTPCK2B"",97,0)"
^XMB(3.9,45,2,7204,0)=" ... I $D(^HLCS(870,""DNS"",$$UP^XLFSTR(ARY(""RAF-DOMAIN"")))) D  Q"
^XMB(3.9,45,2,7205,0)="""RTN"",""HLTPCK2B"",98,0)"
^XMB(3.9,45,2,7206,0)=" .... S HLDOMP(""FLAG"")=1"
^XMB(3.9,45,2,7207,0)="""RTN"",""HLTPCK2B"",99,0)"
^XMB(3.9,45,2,7208,0)=" .... S ARY(""RAF-LL"")=+$O(^HLCS(870,""DNS"",$$UP^XLFSTR(ARY(""RAF-DOMAIN"")),0))"
^XMB(3.9,45,2,7209,0)="""RTN"",""HLTPCK2B"",100,0)"
^XMB(3.9,45,2,7210,0)=" ... I $D(^HLCS(870,""DNS"",$$LOW^XLFSTR(ARY(""RAF-DOMAIN"")))) D  Q"
^XMB(3.9,45,2,7211,0)="""RTN"",""HLTPCK2B"",101,0)"
^XMB(3.9,45,2,7212,0)=" .... S HLDOMP(""FLAG"")=1"
^XMB(3.9,45,2,7213,0)="""RTN"",""HLTPCK2B"",102,0)"
^XMB(3.9,45,2,7214,0)=" .... S ARY(""RAF-LL"")=+$O(^HLCS(870,""DNS"",$$LOW^XLFSTR(ARY(""RAF-DOMAIN"")),0))"
^XMB(3.9,45,2,7215,0)="""RTN"",""HLTPCK2B"",103,0)"
^XMB(3.9,45,2,7216,0)=" ... ;"
^XMB(3.9,45,2,7217,0)="""RTN"",""HLTPCK2B"",104,0)"
^XMB(3.9,45,2,7218,0)=" ... ; match ip address"
^XMB(3.9,45,2,7219,0)="""RTN"",""HLTPCK2B"",105,0)"
^XMB(3.9,45,2,7220,0)=" ... I $D(^HLCS(870,""IP"",ARY(""RAF-DOMAIN""))) D  Q"
^XMB(3.9,45,2,7221,0)="""RTN"",""HLTPCK2B"",106,0)"
^XMB(3.9,45,2,7222,0)=" .... S HLDOMP(""FLAG"")=1"
^XMB(3.9,45,2,7223,0)="""RTN"",""HLTPCK2B"",107,0)"
^XMB(3.9,45,2,7224,0)=" .... S ARY(""RAF-LL"")=+$O(^HLCS(870,""IP"",ARY(""RAF-DOMAIN""),0))"
^XMB(3.9,45,2,7225,0)="""RTN"",""HLTPCK2B"",108,0)"
^XMB(3.9,45,2,7226,0)=" .. Q:HLDOMP(""FLAG"")=1"
^XMB(3.9,45,2,7227,0)="""RTN"",""HLTPCK2B"",109,0)"
^XMB(3.9,45,2,7228,0)=" .. I $P(ARY(""RAF""),HLCS)=HLINSTN Q"
^XMB(3.9,45,2,7229,0)="""RTN"",""HLTPCK2B"",110,0)"
^XMB(3.9,45,2,7230,0)=" .. ;"
^XMB(3.9,45,2,7231,0)="""RTN"",""HLTPCK2B"",111,0)"
^XMB(3.9,45,2,7232,0)=" .. S:ERR="""" ERR=""Receiving Facility mismatch."""
^XMB(3.9,45,2,7233,0)="""RTN"",""HLTPCK2B"",112,0)"
^XMB(3.9,45,2,7234,0)=" . I $P(ARY(""RAF""),HLCS)=HLINSTN Q"
^XMB(3.9,45,2,7235,0)="""RTN"",""HLTPCK2B"",113,0)"
^XMB(3.9,45,2,7236,0)=" . S:ERR="""" ERR=""Receiving Facility mismatch."""
^XMB(3.9,45,2,7237,0)="""RTN"",""HLTPCK2B"",114,0)"
^XMB(3.9,45,2,7238,0)=" ; patch HL*1.6*120 end"
^XMB(3.9,45,2,7239,0)="""RTN"",""HLTPCK2B"",115,0)"
^XMB(3.9,45,2,7240,0)=" ;"
^XMB(3.9,45,2,7241,0)="""RTN"",""HLTPCK2B"",116,0)"
^XMB(3.9,45,2,7242,0)="SF ;Validate Sending Facility"
^XMB(3.9,45,2,7243,0)="""RTN"",""HLTPCK2B"",117,0)"
^XMB(3.9,45,2,7244,0)=" I HLSFREQ D"
^XMB(3.9,45,2,7245,0)="""RTN"",""HLTPCK2B"",118,0)"
^XMB(3.9,45,2,7246,0)=" .I ARY(""SAF"")="""" S:ERR="""" ERR=""Missing required sending facility"""
^XMB(3.9,45,2,7247,0)="""RTN"",""HLTPCK2B"",119,0)"
^XMB(3.9,45,2,7248,0)=" .I HL771SF]"""" D  Q"
^XMB(3.9,45,2,7249,0)="""RTN"",""HLTPCK2B"",120,0)"
^XMB(3.9,45,2,7250,0)=" ..;Check for facility data in 771"
^XMB(3.9,45,2,7251,0)="""RTN"",""HLTPCK2B"",121,0)"
^XMB(3.9,45,2,7252,0)=" ..Q"
^XMB(3.9,45,2,7253,0)="""RTN"",""HLTPCK2B"",122,0)"
^XMB(3.9,45,2,7254,0)=" .;If default value was sent, validate that DOMAIN RESOLVES TO LOGICAL LINK"
^XMB(3.9,45,2,7255,0)="""RTN"",""HLTPCK2B"",123,0)"
^XMB(3.9,45,2,7256,0)=" .;If so, use this instead of Protocol definition for return path"
^XMB(3.9,45,2,7257,0)="""RTN"",""HLTPCK2B"",124,0)"
^XMB(3.9,45,2,7258,0)=" .;"
^XMB(3.9,45,2,7259,0)="""RTN"",""HLTPCK2B"",125,0)"
^XMB(3.9,45,2,7260,0)=" .; patch HL*1.6*120 start"
^XMB(3.9,45,2,7261,0)="""RTN"",""HLTPCK2B"",126,0)"
^XMB(3.9,45,2,7262,0)=" . N HLDOMP"
^XMB(3.9,45,2,7263,0)="""RTN"",""HLTPCK2B"",127,0)"
^XMB(3.9,45,2,7264,0)=" . ; S HLDOMP=$P(ARY(""SAF""),HLCS,2),HLDOMP=$$FIND1^DIC(4.2,"""",""BMX"",HLDOMP,""B^C"","""",""ERROR"")"
^XMB(3.9,45,2,7265,0)="""RTN"",""HLTPCK2B"",128,0)"
^XMB(3.9,45,2,7266,0)=" . S HLDOMP=$P(ARY(""SAF""),HLCS,2)"
^XMB(3.9,45,2,7267,0)="""RTN"",""HLTPCK2B"",129,0)"
^XMB(3.9,45,2,7268,0)=" . ;"
^XMB(3.9,45,2,7269,0)="""RTN"",""HLTPCK2B"",130,0)"
^XMB(3.9,45,2,7270,0)=" . ; assume the format is <domain>:<port #>"
^XMB(3.9,45,2,7271,0)="""RTN"",""HLTPCK2B"",131,0)"
^XMB(3.9,45,2,7272,0)=" . I HLDOMP["":"" S ARY(""SAF-PORT"")=$P(HLDOMP,"":"",2)"
^XMB(3.9,45,2,7273,0)="""RTN"",""HLTPCK2B"",132,0)"
^XMB(3.9,45,2,7274,0)=" . S HLDOMP=$P(HLDOMP,"":"")"
^XMB(3.9,45,2,7275,0)="""RTN"",""HLTPCK2B"",133,0)"
^XMB(3.9,45,2,7276,0)=" . S ARY(""SAF-DOMAIN"")=HLDOMP"
^XMB(3.9,45,2,7277,0)="""RTN"",""HLTPCK2B"",134,0)"
^XMB(3.9,45,2,7278,0)=" . ;"
^XMB(3.9,45,2,7279,0)="""RTN"",""HLTPCK2B"",135,0)"
^XMB(3.9,45,2,7280,0)=" . ; if first piece of domain is ""HL7."" or ""MPI."", remove it"
^XMB(3.9,45,2,7281,0)="""RTN"",""HLTPCK2B"",136,0)"
^XMB(3.9,45,2,7282,0)=" . I ($E(HLDOMP,1,4)=""HL7."")!($E(HLDOMP,1,4)=""MPI."") D"
^XMB(3.9,45,2,7283,0)="""RTN"",""HLTPCK2B"",137,0)"
^XMB(3.9,45,2,7284,0)=" .. S HLDOMP=$P(HLDOMP,""."",2,99)"
^XMB(3.9,45,2,7285,0)="""RTN"",""HLTPCK2B"",138,0)"
^XMB(3.9,45,2,7286,0)=" . S HLDOMP=$$FIND1^DIC(4.2,"""",""BMX"",HLDOMP,""B^C"","""",""ERROR"")"
^XMB(3.9,45,2,7287,0)="""RTN"",""HLTPCK2B"",139,0)"
^XMB(3.9,45,2,7288,0)=" .;Note: This expects a unique domain in domain file. Multiple entries will fail"
^XMB(3.9,45,2,7289,0)="""RTN"",""HLTPCK2B"",140,0)"
^XMB(3.9,45,2,7290,0)=" . ; I 'HLDOMP S:ERR="""" ERR=""Unrecognized/ambiguous domain in sending facility"""
^XMB(3.9,45,2,7291,0)="""RTN"",""HLTPCK2B"",141,0)"
^XMB(3.9,45,2,7292,0)=" . ;"
^XMB(3.9,45,2,7293,0)="""RTN"",""HLTPCK2B"",142,0)"
^XMB(3.9,45,2,7294,0)=" . ; check DNS domain and ip address"
^XMB(3.9,45,2,7295,0)="""RTN"",""HLTPCK2B"",143,0)"
^XMB(3.9,45,2,7296,0)=" . I 'HLDOMP D"
^XMB(3.9,45,2,7297,0)="""RTN"",""HLTPCK2B"",144,0)"
^XMB(3.9,45,2,7298,0)=" .. ;"
^XMB(3.9,45,2,7299,0)="""RTN"",""HLTPCK2B"",145,0)"
^XMB(3.9,45,2,7300,0)=" .. ;initialize variable, HLDOMP(""FLAG"")"
^XMB(3.9,45,2,7301,0)="""RTN"",""HLTPCK2B"",146,0)"
^XMB(3.9,45,2,7302,0)=" .. S HLDOMP(""FLAG"")=0"
^XMB(3.9,45,2,7303,0)="""RTN"",""HLTPCK2B"",147,0)"
^XMB(3.9,45,2,7304,0)=" .. I ARY(""SAF-DOMAIN"")]"""" D"
^XMB(3.9,45,2,7305,0)="""RTN"",""HLTPCK2B"",148,0)"
^XMB(3.9,45,2,7306,0)=" ... ;"
^XMB(3.9,45,2,7307,0)="""RTN"",""HLTPCK2B"",149,0)"
^XMB(3.9,45,2,7308,0)=" ... ; match DNS domain"
^XMB(3.9,45,2,7309,0)="""RTN"",""HLTPCK2B"",150,0)"
^XMB(3.9,45,2,7310,0)=" ... I $D(^HLCS(870,""DNS"",ARY(""SAF-DOMAIN""))) D  Q"
^XMB(3.9,45,2,7311,0)="""RTN"",""HLTPCK2B"",151,0)"
^XMB(3.9,45,2,7312,0)=" .... S HLDOMP(""FLAG"")=1"
^XMB(3.9,45,2,7313,0)="""RTN"",""HLTPCK2B"",152,0)"
^XMB(3.9,45,2,7314,0)=" .... S ARY(""SAF-LL"")=+$O(^HLCS(870,""DNS"",ARY(""SAF-DOMAIN""),0))"
^XMB(3.9,45,2,7315,0)="""RTN"",""HLTPCK2B"",153,0)"
^XMB(3.9,45,2,7316,0)=" ... I $D(^HLCS(870,""DNS"",$$UP^XLFSTR(ARY(""SAF-DOMAIN"")))) D  Q"
^XMB(3.9,45,2,7317,0)="""RTN"",""HLTPCK2B"",154,0)"
^XMB(3.9,45,2,7318,0)=" .... S HLDOMP(""FLAG"")=1"
^XMB(3.9,45,2,7319,0)="""RTN"",""HLTPCK2B"",155,0)"
^XMB(3.9,45,2,7320,0)=" .... S ARY(""SAF-LL"")=+$O(^HLCS(870,""DNS"",$$UP^XLFSTR(ARY(""SAF-DOMAIN"")),0))"
^XMB(3.9,45,2,7321,0)="""RTN"",""HLTPCK2B"",156,0)"
^XMB(3.9,45,2,7322,0)=" ... I $D(^HLCS(870,""DNS"",$$LOW^XLFSTR(ARY(""SAF-DOMAIN"")))) D  Q"
^XMB(3.9,45,2,7323,0)="""RTN"",""HLTPCK2B"",157,0)"
^XMB(3.9,45,2,7324,0)=" .... S HLDOMP(""FLAG"")=1"
^XMB(3.9,45,2,7325,0)="""RTN"",""HLTPCK2B"",158,0)"
^XMB(3.9,45,2,7326,0)=" .... S ARY(""SAF-LL"")=+$O(^HLCS(870,""DNS"",$$LOW^XLFSTR(ARY(""SAF-DOMAIN"")),0))"
^XMB(3.9,45,2,7327,0)="""RTN"",""HLTPCK2B"",159,0)"
^XMB(3.9,45,2,7328,0)=" ... ;"
^XMB(3.9,45,2,7329,0)="""RTN"",""HLTPCK2B"",160,0)"
^XMB(3.9,45,2,7330,0)=" ... ; match ip address"
^XMB(3.9,45,2,7331,0)="""RTN"",""HLTPCK2B"",161,0)"
^XMB(3.9,45,2,7332,0)=" ... I $D(^HLCS(870,""IP"",ARY(""SAF-DOMAIN""))) D  Q"
^XMB(3.9,45,2,7333,0)="""RTN"",""HLTPCK2B"",162,0)"
^XMB(3.9,45,2,7334,0)=" .... S HLDOMP(""FLAG"")=1"
^XMB(3.9,45,2,7335,0)="""RTN"",""HLTPCK2B"",163,0)"
^XMB(3.9,45,2,7336,0)=" .... S ARY(""SAF-LL"")=+$O(^HLCS(870,""IP"",ARY(""SAF-DOMAIN""),0))"
^XMB(3.9,45,2,7337,0)="""RTN"",""HLTPCK2B"",164,0)"
^XMB(3.9,45,2,7338,0)=" .. Q:HLDOMP(""FLAG"")=1"
^XMB(3.9,45,2,7339,0)="""RTN"",""HLTPCK2B"",165,0)"
^XMB(3.9,45,2,7340,0)=" .. ; quit if 1st component defined"
^XMB(3.9,45,2,7341,0)="""RTN"",""HLTPCK2B"",166,0)"
^XMB(3.9,45,2,7342,0)=" .. S ARY(""SAF-COMPONENT1"")=$P(ARY(""SAF""),HLCS,1)"
^XMB(3.9,45,2,7343,0)="""RTN"",""HLTPCK2B"",167,0)"
^XMB(3.9,45,2,7344,0)=" .. Q:ARY(""SAF-COMPONENT1"")]"""""
^XMB(3.9,45,2,7345,0)="""RTN"",""HLTPCK2B"",168,0)"
^XMB(3.9,45,2,7346,0)=" .. S:ERR="""" ERR=""Receiving Facility mismatch."""
^XMB(3.9,45,2,7347,0)="""RTN"",""HLTPCK2B"",169,0)"
^XMB(3.9,45,2,7348,0)=" . ; patch HL*1.6*120 end"
^XMB(3.9,45,2,7349,0)="""RTN"",""HLTPCK2B"",170,0)"
^XMB(3.9,45,2,7350,0)=" . ;"
^XMB(3.9,45,2,7351,0)="""RTN"",""HLTPCK2B"",171,0)"
^XMB(3.9,45,2,7352,0)=" .Q:HLDOMP=$P(HLPARAM,U)  ;This is local app to app"
^XMB(3.9,45,2,7353,0)="""RTN"",""HLTPCK2B"",172,0)"
^XMB(3.9,45,2,7354,0)=" .I HLDOMP N HLNK S HLNK=+$O(^HLCS(870,""D"",HLDOMP,0))"
^XMB(3.9,45,2,7355,0)="""RTN"",""HLTPCK2B"",173,0)"
^XMB(3.9,45,2,7356,0)=" .I $G(HLNK) S ARY(""LL"")=HLNK"
^XMB(3.9,45,2,7357,0)="""RTN"",""HLTPCK2B"",174,0)"
^XMB(3.9,45,2,7358,0)=" ;"
^XMB(3.9,45,2,7359,0)="""RTN"",""HLTPCK2B"",175,0)"
^XMB(3.9,45,2,7360,0)="PID ;Validate processing ID"
^XMB(3.9,45,2,7361,0)="""RTN"",""HLTPCK2B"",176,0)"
^XMB(3.9,45,2,7362,0)=" I (""DTP""'[ARY(""PID"")) S:(ERR="""") ERR=""Invalid HL7 Processing ID"""
^XMB(3.9,45,2,7363,0)="""RTN"",""HLTPCK2B"",177,0)"
^XMB(3.9,45,2,7364,0)=" S HLPID=$P(HLPARAM,U,3) ;site param"
^XMB(3.9,45,2,7365,0)="""RTN"",""HLTPCK2B"",178,0)"
^XMB(3.9,45,2,7366,0)=" S X=$G(^ORD(101,ARY(""EID""),770)),X=$P(X,U,6) ;event driver"
^XMB(3.9,45,2,7367,0)="""RTN"",""HLTPCK2B"",179,0)"
^XMB(3.9,45,2,7368,0)=" ;If message is 'debug' then event driver must be 'debug.'"
^XMB(3.9,45,2,7369,0)="""RTN"",""HLTPCK2B"",180,0)"
^XMB(3.9,45,2,7370,0)=" ;If message is 'test' or 'production', then site param must match"
^XMB(3.9,45,2,7371,0)="""RTN"",""HLTPCK2B"",181,0)"
^XMB(3.9,45,2,7372,0)=" I ARY(""PID"")=""D""&(X'=""D"") S:ERR="""" ERR=""Processing ID Mismatch with Event Driver"""
^XMB(3.9,45,2,7373,0)="""RTN"",""HLTPCK2B"",182,0)"
^XMB(3.9,45,2,7374,0)=" I ARY(""PID"")'=""D""&(HLPID'=ARY(""PID"")) S:ERR="""" ERR=""Processing ID Mismatch with Site Parameters"""
^XMB(3.9,45,2,7375,0)="""RTN"",""HLTPCK2B"",183,0)"
^XMB(3.9,45,2,7376,0)=" ;"
^XMB(3.9,45,2,7377,0)="""RTN"",""HLTPCK2B"",184,0)"
^XMB(3.9,45,2,7378,0)="SEC ;Validate security field - access code and electronic signature"
^XMB(3.9,45,2,7379,0)="""RTN"",""HLTPCK2B"",185,0)"
^XMB(3.9,45,2,7380,0)=" I ($P($G(HLN(773)),""^"",3)) D"
^XMB(3.9,45,2,7381,0)="""RTN"",""HLTPCK2B"",186,0)"
^XMB(3.9,45,2,7382,0)=" .S X=$P($$P^HLTPCK2(.HDR,8),$E(ECH))"
^XMB(3.9,45,2,7383,0)="""RTN"",""HLTPCK2B"",187,0)"
^XMB(3.9,45,2,7384,0)=" .S X=$$UPPER^HLFNC(X)"
^XMB(3.9,45,2,7385,0)="""RTN"",""HLTPCK2B"",188,0)"
^XMB(3.9,45,2,7386,0)=" .D ^XUSHSH"
^XMB(3.9,45,2,7387,0)="""RTN"",""HLTPCK2B"",189,0)"
^XMB(3.9,45,2,7388,0)=" .I X="""",(MSA="""") S:(ERR="""") ERR=""Invalid access code"" Q"
^XMB(3.9,45,2,7389,0)="""RTN"",""HLTPCK2B"",190,0)"
^XMB(3.9,45,2,7390,0)=" .S ARY(""DUZ"")=0"
^XMB(3.9,45,2,7391,0)="""RTN"",""HLTPCK2B"",191,0)"
^XMB(3.9,45,2,7392,0)=" .S:(X'="""") ARY(""DUZ"")=+$O(^VA(200,""A"",X,0))"
^XMB(3.9,45,2,7393,0)="""RTN"",""HLTPCK2B"",192,0)"
^XMB(3.9,45,2,7394,0)=" .I ('ARY(""DUZ"")) S:(ERR="""") ERR=""Invalid access code"" Q"
^XMB(3.9,45,2,7395,0)="""RTN"",""HLTPCK2B"",193,0)"
^XMB(3.9,45,2,7396,0)=" .I (($P($G(^VA(200,ARY(""DUZ""),.1)),""^"")="""")&('$D(MSA))) S ARY(""DUZ"")=0 S:(ERR="""") ERR=""Invalid access code"" Q"
^XMB(3.9,45,2,7397,0)="""RTN"",""HLTPCK2B"",194,0)"
^XMB(3.9,45,2,7398,0)=" .S X=$P($$P^HLTPCK2(.HDR,8),$E(ECH),3) I (X'="""") D"
^XMB(3.9,45,2,7399,0)="""RTN"",""HLTPCK2B"",195,0)"
^XMB(3.9,45,2,7400,0)=" ..S X1=$G(^VA(200,ARY(""DUZ""),20))"
^XMB(3.9,45,2,7401,0)="""RTN"",""HLTPCK2B"",196,0)"
^XMB(3.9,45,2,7402,0)=" ..I (X1="""") S:(ERR="""") ERR=""No Signature Code on File"" Q"
^XMB(3.9,45,2,7403,0)="""RTN"",""HLTPCK2B"",197,0)"
^XMB(3.9,45,2,7404,0)=" ..S X=$$UPPER^HLFNC(X)"
^XMB(3.9,45,2,7405,0)="""RTN"",""HLTPCK2B"",198,0)"
^XMB(3.9,45,2,7406,0)=" ..D HASH^XUSHSHP"
^XMB(3.9,45,2,7407,0)="""RTN"",""HLTPCK2B"",199,0)"
^XMB(3.9,45,2,7408,0)=" ..I ((X'=$P(X1,""^"",4))!($P(X1,""^"",2)="""")) S:(ERR="""") ERR=""Invalid Electronic Signature Code"" Q"
^XMB(3.9,45,2,7409,0)="""RTN"",""HLTPCK2B"",200,0)"
^XMB(3.9,45,2,7410,0)=" ..S ARY(""ESIG"")=$P(X1,""^"",2)"
^XMB(3.9,45,2,7411,0)="""RTN"",""HLTPCK2B"",201,0)"
^XMB(3.9,45,2,7412,0)=" I $D(ARY) M HLREC=ARY"
^XMB(3.9,45,2,7413,0)="""RTN"",""HLTPCK2B"",202,0)"
^XMB(3.9,45,2,7414,0)=" Q"
^XMB(3.9,45,2,7415,0)="""VER"")"
^XMB(3.9,45,2,7416,0)="8.0^22.0"
^XMB(3.9,45,2,7417,0)="""^DD"",870,870,200.022,0)"
^XMB(3.9,45,2,7418,0)="CLOSE BEFORE RE-TRANSMISSION^S^1:YES;^200;11^Q"
^XMB(3.9,45,2,7419,0)="""^DD"",870,870,200.022,3)"
^XMB(3.9,45,2,7420,0)="Enter YES if the TCP device should always be closed and re-opened before another re-transmission attempt."
^XMB(3.9,45,2,7421,0)="""^DD"",870,870,200.022,21,0)"
^XMB(3.9,45,2,7422,0)="^^6^6^3060629^^"
^XMB(3.9,45,2,7423,0)="""^DD"",870,870,200.022,21,1,0)"
^XMB(3.9,45,2,7424,0)="Re-transmitting a message over the same open connection may cause a"
^XMB(3.9,45,2,7425,0)="""^DD"",870,870,200.022,21,2,0)"
^XMB(3.9,45,2,7426,0)="synchronization problem for some applications.  Setting this field to YES"
^XMB(3.9,45,2,7427,0)="""^DD"",870,870,200.022,21,3,0)"
^XMB(3.9,45,2,7428,0)="will cause the TCP connection to always be closed after a READ timeout or other"
^XMB(3.9,45,2,7429,0)="""^DD"",870,870,200.022,21,4,0)"
^XMB(3.9,45,2,7430,0)="communication failure.  Instead, a new connection will be opened before"
^XMB(3.9,45,2,7431,0)="""^DD"",870,870,200.022,21,5,0)"
^XMB(3.9,45,2,7432,0)="attempting to re-transmit the message."
^XMB(3.9,45,2,7433,0)="""^DD"",870,870,200.022,21,6,0)"
^XMB(3.9,45,2,7434,0)=""
^XMB(3.9,45,2,7435,0)="""^DD"",870,870,200.022,""DT"")"
^XMB(3.9,45,2,7436,0)="3060629"
^XMB(3.9,45,2,7437,0)="""BLD"",955,6)"
^XMB(3.9,45,2,7438,0)="^105"
^XMB(3.9,45,2,7439,0)="$END KID HL*1.6*133"
^XMB(3.9,45,6,0)="^3.911A^2^2"
^XMB(3.9,45,6,1,0)="POSTMASTER"
^XMB(3.9,45,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,45,6,"B","POSTMASTER",1)=""
^XMB(3.9,45,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,46,0)="IB-2_SEQ-306_PAT-308.KID^.5^3061008.015735^^^^K"
^XMB(3.9,46,.6)="3061008"
^XMB(3.9,46,1,0)="^3.91A^2^2"
^XMB(3.9,46,1,1,0)=".5^0^3061008.015735^^^^^^^3061008.015735"
^XMB(3.9,46,1,2,0)="1^0^3061008.023252^^^^^^^3061008.023252"
^XMB(3.9,46,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,46,1,"C",.5,1)=""
^XMB(3.9,46,1,"C",1,2)=""
^XMB(3.9,46,2,0)="^^2259^2259^3061008"
^XMB(3.9,46,2,1,0)="$TXT Released IB*2*308 SEQ #306"
^XMB(3.9,46,2,2,0)="Extracted from mail message"
^XMB(3.9,46,2,3,0)="$END TXT"
^XMB(3.9,46,2,4,0)="$KID IB*2.0*308"
^XMB(3.9,46,2,5,0)="**INSTALL NAME**"
^XMB(3.9,46,2,6,0)="IB*2.0*308"
^XMB(3.9,46,2,7,0)="""BLD"",5733,0)"
^XMB(3.9,46,2,8,0)="IB*2.0*308^INTEGRATED BILLING^0^3060227^y"
^XMB(3.9,46,2,9,0)="""BLD"",5733,1,0)"
^XMB(3.9,46,2,10,0)="^9.61A^1^1^3050720^^"
^XMB(3.9,46,2,11,0)="""BLD"",5733,1,1,0)"
^XMB(3.9,46,2,12,0)="This patch is the inter-facility copay part of the PFSS project."
^XMB(3.9,46,2,13,0)="""BLD"",5733,4,0)"
^XMB(3.9,46,2,14,0)="^9.64PA^350^2"
^XMB(3.9,46,2,15,0)="""BLD"",5733,4,350,0)"
^XMB(3.9,46,2,16,0)="350"
^XMB(3.9,46,2,17,0)="""BLD"",5733,4,350,2,0)"
^XMB(3.9,46,2,18,0)="^9.641^350^1"
^XMB(3.9,46,2,19,0)="""BLD"",5733,4,350,2,350,0)"
^XMB(3.9,46,2,20,0)="INTEGRATED BILLING ACTION  (File-top level)"
^XMB(3.9,46,2,21,0)="""BLD"",5733,4,350,2,350,1,0)"
^XMB(3.9,46,2,22,0)="^9.6411^.22^1"
^XMB(3.9,46,2,23,0)="""BLD"",5733,4,350,2,350,1,.22,0)"
^XMB(3.9,46,2,24,0)="PFSS ACCOUNT REFERENCE"
^XMB(3.9,46,2,25,0)="""BLD"",5733,4,350,222)"
^XMB(3.9,46,2,26,0)="y^n^p^^^^n^^n"
^XMB(3.9,46,2,27,0)="""BLD"",5733,4,350,224)"
^XMB(3.9,46,2,28,0)=""
^XMB(3.9,46,2,29,0)="""BLD"",5733,4,354.71,0)"
^XMB(3.9,46,2,30,0)="354.71"
^XMB(3.9,46,2,31,0)="""BLD"",5733,4,354.71,2,0)"
^XMB(3.9,46,2,32,0)="^9.641^354.71^1"
^XMB(3.9,46,2,33,0)="""BLD"",5733,4,354.71,2,354.71,0)"
^XMB(3.9,46,2,34,0)="IB COPAY TRANSACTIONS  (File-top level)"
^XMB(3.9,46,2,35,0)="""BLD"",5733,4,354.71,2,354.71,1,0)"
^XMB(3.9,46,2,36,0)="^9.6411^.12^3"
^XMB(3.9,46,2,37,0)="""BLD"",5733,4,354.71,2,354.71,1,.11,0)"
^XMB(3.9,46,2,38,0)="BILLED AMOUNT"
^XMB(3.9,46,2,39,0)="""BLD"",5733,4,354.71,2,354.71,1,.12,0)"
^XMB(3.9,46,2,40,0)="NON-BILLABLE AMOUNT"
^XMB(3.9,46,2,41,0)="""BLD"",5733,4,354.71,2,354.71,1,.2,0)"
^XMB(3.9,46,2,42,0)="PFSS REMOTE TRANSACTION"
^XMB(3.9,46,2,43,0)="""BLD"",5733,4,354.71,222)"
^XMB(3.9,46,2,44,0)="y^n^p^^^^n^^n"
^XMB(3.9,46,2,45,0)="""BLD"",5733,4,354.71,224)"
^XMB(3.9,46,2,46,0)=""
^XMB(3.9,46,2,47,0)="""BLD"",5733,4,""APDD"",350,350)"
^XMB(3.9,46,2,48,0)=""
^XMB(3.9,46,2,49,0)="""BLD"",5733,4,""APDD"",350,350,.22)"
^XMB(3.9,46,2,50,0)=""
^XMB(3.9,46,2,51,0)="""BLD"",5733,4,""APDD"",354.71,354.71)"
^XMB(3.9,46,2,52,0)=""
^XMB(3.9,46,2,53,0)="""BLD"",5733,4,""APDD"",354.71,354.71,.11)"
^XMB(3.9,46,2,54,0)=""
^XMB(3.9,46,2,55,0)="""BLD"",5733,4,""APDD"",354.71,354.71,.12)"
^XMB(3.9,46,2,56,0)=""
^XMB(3.9,46,2,57,0)="""BLD"",5733,4,""APDD"",354.71,354.71,.2)"
^XMB(3.9,46,2,58,0)=""
^XMB(3.9,46,2,59,0)="""BLD"",5733,4,""B"",350,350)"
^XMB(3.9,46,2,60,0)=""
^XMB(3.9,46,2,61,0)="""BLD"",5733,4,""B"",354.71,354.71)"
^XMB(3.9,46,2,62,0)=""
^XMB(3.9,46,2,63,0)="""BLD"",5733,6)"
^XMB(3.9,46,2,64,0)="10^"
^XMB(3.9,46,2,65,0)="""BLD"",5733,""KRN"",0)"
^XMB(3.9,46,2,66,0)="^9.67PA^8989.52^19"
^XMB(3.9,46,2,67,0)="""BLD"",5733,""KRN"",.4,0)"
^XMB(3.9,46,2,68,0)=".4"
^XMB(3.9,46,2,69,0)="""BLD"",5733,""KRN"",.401,0)"
^XMB(3.9,46,2,70,0)=".401"
^XMB(3.9,46,2,71,0)="""BLD"",5733,""KRN"",.402,0)"
^XMB(3.9,46,2,72,0)=".402"
^XMB(3.9,46,2,73,0)="""BLD"",5733,""KRN"",.403,0)"
^XMB(3.9,46,2,74,0)=".403"
^XMB(3.9,46,2,75,0)="""BLD"",5733,""KRN"",.5,0)"
^XMB(3.9,46,2,76,0)=".5"
^XMB(3.9,46,2,77,0)="""BLD"",5733,""KRN"",.84,0)"
^XMB(3.9,46,2,78,0)=".84"
^XMB(3.9,46,2,79,0)="""BLD"",5733,""KRN"",3.6,0)"
^XMB(3.9,46,2,80,0)="3.6"
^XMB(3.9,46,2,81,0)="""BLD"",5733,""KRN"",3.8,0)"
^XMB(3.9,46,2,82,0)="3.8"
^XMB(3.9,46,2,83,0)="""BLD"",5733,""KRN"",9.2,0)"
^XMB(3.9,46,2,84,0)="9.2"
^XMB(3.9,46,2,85,0)="""BLD"",5733,""KRN"",9.8,0)"
^XMB(3.9,46,2,86,0)="9.8"
^XMB(3.9,46,2,87,0)="""BLD"",5733,""KRN"",9.8,""NM"",0)"
^XMB(3.9,46,2,88,0)="^9.68A^6^6"
^XMB(3.9,46,2,89,0)="""BLD"",5733,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,46,2,90,0)="IBARX^^0^B51922608"
^XMB(3.9,46,2,91,0)="""BLD"",5733,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,46,2,92,0)="IBARXPFS^^0^B33725607"
^XMB(3.9,46,2,93,0)="""BLD"",5733,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,46,2,94,0)="IBARXMN^^0^B37752322"
^XMB(3.9,46,2,95,0)="""BLD"",5733,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,46,2,96,0)="IBARXMI^^0^B78946098"
^XMB(3.9,46,2,97,0)="""BLD"",5733,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,46,2,98,0)="IBARXMR^^0^B3221986"
^XMB(3.9,46,2,99,0)="""BLD"",5733,""KRN"",9.8,""NM"",6,0)"
^XMB(3.9,46,2,100,0)="IBCROE^^0^B37147577"
^XMB(3.9,46,2,101,0)="""BLD"",5733,""KRN"",9.8,""NM"",""B"",""IBARX"",1)"
^XMB(3.9,46,2,102,0)=""
^XMB(3.9,46,2,103,0)="""BLD"",5733,""KRN"",9.8,""NM"",""B"",""IBARXMI"",4)"
^XMB(3.9,46,2,104,0)=""
^XMB(3.9,46,2,105,0)="""BLD"",5733,""KRN"",9.8,""NM"",""B"",""IBARXMN"",3)"
^XMB(3.9,46,2,106,0)=""
^XMB(3.9,46,2,107,0)="""BLD"",5733,""KRN"",9.8,""NM"",""B"",""IBARXMR"",5)"
^XMB(3.9,46,2,108,0)=""
^XMB(3.9,46,2,109,0)="""BLD"",5733,""KRN"",9.8,""NM"",""B"",""IBARXPFS"",2)"
^XMB(3.9,46,2,110,0)=""
^XMB(3.9,46,2,111,0)="""BLD"",5733,""KRN"",9.8,""NM"",""B"",""IBCROE"",6)"
^XMB(3.9,46,2,112,0)=""
^XMB(3.9,46,2,113,0)="""BLD"",5733,""KRN"",19,0)"
^XMB(3.9,46,2,114,0)="19"
^XMB(3.9,46,2,115,0)="""BLD"",5733,""KRN"",19,""NM"",0)"
^XMB(3.9,46,2,116,0)="^9.68A^2^2"
^XMB(3.9,46,2,117,0)="""BLD"",5733,""KRN"",19,""NM"",1,0)"
^XMB(3.9,46,2,118,0)="IBCR RC EXTRACT^^0"
^XMB(3.9,46,2,119,0)="""BLD"",5733,""KRN"",19,""NM"",2,0)"
^XMB(3.9,46,2,120,0)="IBCR CHARGE MASTER MENU^^2"
^XMB(3.9,46,2,121,0)="""BLD"",5733,""KRN"",19,""NM"",""B"",""IBCR CHARGE MASTER MENU"",2)"
^XMB(3.9,46,2,122,0)=""
^XMB(3.9,46,2,123,0)="""BLD"",5733,""KRN"",19,""NM"",""B"",""IBCR RC EXTRACT"",1)"
^XMB(3.9,46,2,124,0)=""
^XMB(3.9,46,2,125,0)="""BLD"",5733,""KRN"",19.1,0)"
^XMB(3.9,46,2,126,0)="19.1"
^XMB(3.9,46,2,127,0)="""BLD"",5733,""KRN"",101,0)"
^XMB(3.9,46,2,128,0)="101"
^XMB(3.9,46,2,129,0)="""BLD"",5733,""KRN"",101,""NM"",0)"
^XMB(3.9,46,2,130,0)="^9.68A^2^2"
^XMB(3.9,46,2,131,0)="""BLD"",5733,""KRN"",101,""NM"",1,0)"
^XMB(3.9,46,2,132,0)="IB PFSS DFT-P03 CLIENT^^0"
^XMB(3.9,46,2,133,0)="""BLD"",5733,""KRN"",101,""NM"",2,0)"
^XMB(3.9,46,2,134,0)="IB PFSS DFT-P03 SERVER^^0"
^XMB(3.9,46,2,135,0)="""BLD"",5733,""KRN"",101,""NM"",""B"",""IB PFSS DFT-P03 CLIENT"",1)"
^XMB(3.9,46,2,136,0)=""
^XMB(3.9,46,2,137,0)="""BLD"",5733,""KRN"",101,""NM"",""B"",""IB PFSS DFT-P03 SERVER"",2)"
^XMB(3.9,46,2,138,0)=""
^XMB(3.9,46,2,139,0)="""BLD"",5733,""KRN"",409.61,0)"
^XMB(3.9,46,2,140,0)="409.61"
^XMB(3.9,46,2,141,0)="""BLD"",5733,""KRN"",771,0)"
^XMB(3.9,46,2,142,0)="771"
^XMB(3.9,46,2,143,0)="""BLD"",5733,""KRN"",771,""NM"",0)"
^XMB(3.9,46,2,144,0)="^9.68A^2^2"
^XMB(3.9,46,2,145,0)="""BLD"",5733,""KRN"",771,""NM"",1,0)"
^XMB(3.9,46,2,146,0)="IB PFSS RECV^^0"
^XMB(3.9,46,2,147,0)="""BLD"",5733,""KRN"",771,""NM"",2,0)"
^XMB(3.9,46,2,148,0)="IB PFSS SENDING^^0"
^XMB(3.9,46,2,149,0)="""BLD"",5733,""KRN"",771,""NM"",""B"",""IB PFSS RECV"",1)"
^XMB(3.9,46,2,150,0)=""
^XMB(3.9,46,2,151,0)="""BLD"",5733,""KRN"",771,""NM"",""B"",""IB PFSS SENDING"",2)"
^XMB(3.9,46,2,152,0)=""
^XMB(3.9,46,2,153,0)="""BLD"",5733,""KRN"",870,0)"
^XMB(3.9,46,2,154,0)="870"
^XMB(3.9,46,2,155,0)="""BLD"",5733,""KRN"",8989.51,0)"
^XMB(3.9,46,2,156,0)="8989.51"
^XMB(3.9,46,2,157,0)="""BLD"",5733,""KRN"",8989.52,0)"
^XMB(3.9,46,2,158,0)="8989.52"
^XMB(3.9,46,2,159,0)="""BLD"",5733,""KRN"",8994,0)"
^XMB(3.9,46,2,160,0)="8994"
^XMB(3.9,46,2,161,0)="""BLD"",5733,""KRN"",""B"",.4,.4)"
^XMB(3.9,46,2,162,0)=""
^XMB(3.9,46,2,163,0)="""BLD"",5733,""KRN"",""B"",.401,.401)"
^XMB(3.9,46,2,164,0)=""
^XMB(3.9,46,2,165,0)="""BLD"",5733,""KRN"",""B"",.402,.402)"
^XMB(3.9,46,2,166,0)=""
^XMB(3.9,46,2,167,0)="""BLD"",5733,""KRN"",""B"",.403,.403)"
^XMB(3.9,46,2,168,0)=""
^XMB(3.9,46,2,169,0)="""BLD"",5733,""KRN"",""B"",.5,.5)"
^XMB(3.9,46,2,170,0)=""
^XMB(3.9,46,2,171,0)="""BLD"",5733,""KRN"",""B"",.84,.84)"
^XMB(3.9,46,2,172,0)=""
^XMB(3.9,46,2,173,0)="""BLD"",5733,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,46,2,174,0)=""
^XMB(3.9,46,2,175,0)="""BLD"",5733,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,46,2,176,0)=""
^XMB(3.9,46,2,177,0)="""BLD"",5733,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,46,2,178,0)=""
^XMB(3.9,46,2,179,0)="""BLD"",5733,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,46,2,180,0)=""
^XMB(3.9,46,2,181,0)="""BLD"",5733,""KRN"",""B"",19,19)"
^XMB(3.9,46,2,182,0)=""
^XMB(3.9,46,2,183,0)="""BLD"",5733,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,46,2,184,0)=""
^XMB(3.9,46,2,185,0)="""BLD"",5733,""KRN"",""B"",101,101)"
^XMB(3.9,46,2,186,0)=""
^XMB(3.9,46,2,187,0)="""BLD"",5733,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,46,2,188,0)=""
^XMB(3.9,46,2,189,0)="""BLD"",5733,""KRN"",""B"",771,771)"
^XMB(3.9,46,2,190,0)=""
^XMB(3.9,46,2,191,0)="""BLD"",5733,""KRN"",""B"",870,870)"
^XMB(3.9,46,2,192,0)=""
^XMB(3.9,46,2,193,0)="""BLD"",5733,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,46,2,194,0)=""
^XMB(3.9,46,2,195,0)="""BLD"",5733,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,46,2,196,0)=""
^XMB(3.9,46,2,197,0)="""BLD"",5733,""KRN"",""B"",8994,8994)"
^XMB(3.9,46,2,198,0)=""
^XMB(3.9,46,2,199,0)="""BLD"",5733,""QUES"",0)"
^XMB(3.9,46,2,200,0)="^9.62^^"
^XMB(3.9,46,2,201,0)="""BLD"",5733,""REQB"",0)"
^XMB(3.9,46,2,202,0)="^9.611^1^1"
^XMB(3.9,46,2,203,0)="""BLD"",5733,""REQB"",1,0)"
^XMB(3.9,46,2,204,0)="IB*2.0*237^2"
^XMB(3.9,46,2,205,0)="""BLD"",5733,""REQB"",""B"",""IB*2.0*237"",1)"
^XMB(3.9,46,2,206,0)=""
^XMB(3.9,46,2,207,0)="""FIA"",350)"
^XMB(3.9,46,2,208,0)="INTEGRATED BILLING ACTION"
^XMB(3.9,46,2,209,0)="""FIA"",350,0)"
^XMB(3.9,46,2,210,0)="^IB("
^XMB(3.9,46,2,211,0)="""FIA"",350,0,0)"
^XMB(3.9,46,2,212,0)="350"
^XMB(3.9,46,2,213,0)="""FIA"",350,0,1)"
^XMB(3.9,46,2,214,0)="y^n^p^^^^n^^n"
^XMB(3.9,46,2,215,0)="""FIA"",350,0,10)"
^XMB(3.9,46,2,216,0)=""
^XMB(3.9,46,2,217,0)="""FIA"",350,0,11)"
^XMB(3.9,46,2,218,0)=""
^XMB(3.9,46,2,219,0)="""FIA"",350,0,""RLRO"")"
^XMB(3.9,46,2,220,0)=""
^XMB(3.9,46,2,221,0)="""FIA"",350,0,""VR"")"
^XMB(3.9,46,2,222,0)="2.0^IB"
^XMB(3.9,46,2,223,0)="""FIA"",350,350)"
^XMB(3.9,46,2,224,0)="1"
^XMB(3.9,46,2,225,0)="""FIA"",350,350,.22)"
^XMB(3.9,46,2,226,0)=""
^XMB(3.9,46,2,227,0)="""FIA"",354.71)"
^XMB(3.9,46,2,228,0)="IB COPAY TRANSACTIONS"
^XMB(3.9,46,2,229,0)="""FIA"",354.71,0)"
^XMB(3.9,46,2,230,0)="^IBAM(354.71,"
^XMB(3.9,46,2,231,0)="""FIA"",354.71,0,0)"
^XMB(3.9,46,2,232,0)="354.71"
^XMB(3.9,46,2,233,0)="""FIA"",354.71,0,1)"
^XMB(3.9,46,2,234,0)="y^n^p^^^^n^^n"
^XMB(3.9,46,2,235,0)="""FIA"",354.71,0,10)"
^XMB(3.9,46,2,236,0)=""
^XMB(3.9,46,2,237,0)="""FIA"",354.71,0,11)"
^XMB(3.9,46,2,238,0)=""
^XMB(3.9,46,2,239,0)="""FIA"",354.71,0,""RLRO"")"
^XMB(3.9,46,2,240,0)=""
^XMB(3.9,46,2,241,0)="""FIA"",354.71,0,""VR"")"
^XMB(3.9,46,2,242,0)="2.0^IB"
^XMB(3.9,46,2,243,0)="""FIA"",354.71,354.71)"
^XMB(3.9,46,2,244,0)="1"
^XMB(3.9,46,2,245,0)="""FIA"",354.71,354.71,.11)"
^XMB(3.9,46,2,246,0)=""
^XMB(3.9,46,2,247,0)="""FIA"",354.71,354.71,.12)"
^XMB(3.9,46,2,248,0)=""
^XMB(3.9,46,2,249,0)="""FIA"",354.71,354.71,.2)"
^XMB(3.9,46,2,250,0)=""
^XMB(3.9,46,2,251,0)="""KRN"",19,7076,-1)"
^XMB(3.9,46,2,252,0)="2^2"
^XMB(3.9,46,2,253,0)="""KRN"",19,7076,0)"
^XMB(3.9,46,2,254,0)="IBCR CHARGE MASTER MENU^Charge Master Menu^^M^1555^^^^^^^200"
^XMB(3.9,46,2,255,0)="""KRN"",19,7076,10,0)"
^XMB(3.9,46,2,256,0)="^19.01IP^8^8"
^XMB(3.9,46,2,257,0)="""KRN"",19,7076,10,8,0)"
^XMB(3.9,46,2,258,0)="12551"
^XMB(3.9,46,2,259,0)="""KRN"",19,7076,10,8,""^"")"
^XMB(3.9,46,2,260,0)="IBCR RC EXTRACT"
^XMB(3.9,46,2,261,0)="""KRN"",19,7076,""U"")"
^XMB(3.9,46,2,262,0)="CHARGE MASTER MENU"
^XMB(3.9,46,2,263,0)="""KRN"",19,12551,-1)"
^XMB(3.9,46,2,264,0)="0^1"
^XMB(3.9,46,2,265,0)="""KRN"",19,12551,0)"
^XMB(3.9,46,2,266,0)="IBCR RC EXTRACT^Extract Charge Master RC Rates^^R^^IB SUPERVISOR^^^^^^INTEGRATED BILLING"
^XMB(3.9,46,2,267,0)="""KRN"",19,12551,1,0)"
^XMB(3.9,46,2,268,0)="^^7^7^3060111^"
^XMB(3.9,46,2,269,0)="""KRN"",19,12551,1,1,0)"
^XMB(3.9,46,2,270,0)="This option is used to extract Reasonable Charges rates from Charge "
^XMB(3.9,46,2,271,0)="""KRN"",19,12551,1,2,0)"
^XMB(3.9,46,2,272,0)="Master in a format that can be imported to Excel.  The extract will allow "
^XMB(3.9,46,2,273,0)="""KRN"",19,12551,1,3,0)"
^XMB(3.9,46,2,274,0)="you to create a text file that is delimitated by the circumflex/caret (^) "
^XMB(3.9,46,2,275,0)="""KRN"",19,12551,1,4,0)"
^XMB(3.9,46,2,276,0)="character.  When importing to Excel specify that delimiter.  This can be "
^XMB(3.9,46,2,277,0)="""KRN"",19,12551,1,5,0)"
^XMB(3.9,46,2,278,0)="used for any version of RC from 2.0 or above.  The output device selected "
^XMB(3.9,46,2,279,0)="""KRN"",19,12551,1,6,0)"
^XMB(3.9,46,2,280,0)="should be a Host File Server (HFS) or the Current Terminal (for screen "
^XMB(3.9,46,2,281,0)="""KRN"",19,12551,1,7,0)"
^XMB(3.9,46,2,282,0)="capture)."
^XMB(3.9,46,2,283,0)="""KRN"",19,12551,25)"
^XMB(3.9,46,2,284,0)="EN^IBCROE"
^XMB(3.9,46,2,285,0)="""KRN"",19,12551,""U"")"
^XMB(3.9,46,2,286,0)="EXTRACT CHARGE MASTER RC RATES"
^XMB(3.9,46,2,287,0)="""KRN"",101,8132,-1)"
^XMB(3.9,46,2,288,0)="0^2"
^XMB(3.9,46,2,289,0)="""KRN"",101,8132,0)"
^XMB(3.9,46,2,290,0)="IB PFSS DFT-P03 SERVER^IB PFSS DFT-P03 RECEIVER^^E^^^^^^^^"
^XMB(3.9,46,2,291,0)="""KRN"",101,8132,99)"
^XMB(3.9,46,2,292,0)="60282,51872"
^XMB(3.9,46,2,293,0)="""KRN"",101,8132,770)"
^XMB(3.9,46,2,294,0)="IB PFSS SENDING^^DFT^P03^122^T^^^^2.4^"
^XMB(3.9,46,2,295,0)="""KRN"",101,8132,775,0)"
^XMB(3.9,46,2,296,0)="^101.0775PA^1^1"
^XMB(3.9,46,2,297,0)="""KRN"",101,8132,775,1,0)"
^XMB(3.9,46,2,298,0)="8133"
^XMB(3.9,46,2,299,0)="""KRN"",101,8132,775,1,""^"")"
^XMB(3.9,46,2,300,0)="IB PFSS DFT-P03 CLIENT"
^XMB(3.9,46,2,301,0)="""KRN"",101,8133,-1)"
^XMB(3.9,46,2,302,0)="0^1"
^XMB(3.9,46,2,303,0)="""KRN"",101,8133,0)"
^XMB(3.9,46,2,304,0)="IB PFSS DFT-P03 CLIENT^^^S^^^^^^^^"
^XMB(3.9,46,2,305,0)="""KRN"",101,8133,770)"
^XMB(3.9,46,2,306,0)="^IB PFSS RECV^^P03^^^^^^^DFT"
^XMB(3.9,46,2,307,0)="""KRN"",101,8133,771)"
^XMB(3.9,46,2,308,0)="D MSG^IBARXPFS"
^XMB(3.9,46,2,309,0)="""KRN"",101,8133,773)"
^XMB(3.9,46,2,310,0)="0^0"
^XMB(3.9,46,2,311,0)="""KRN"",771,206,-1)"
^XMB(3.9,46,2,312,0)="0^2"
^XMB(3.9,46,2,313,0)="""KRN"",771,206,0)"
^XMB(3.9,46,2,314,0)="IB PFSS SENDING^a^^^^^US"
^XMB(3.9,46,2,315,0)="""KRN"",771,206,""EC"")"
^XMB(3.9,46,2,316,0)="^~\&"
^XMB(3.9,46,2,317,0)="""KRN"",771,206,""FS"")"
^XMB(3.9,46,2,318,0)="|"
^XMB(3.9,46,2,319,0)="""KRN"",771,207,-1)"
^XMB(3.9,46,2,320,0)="0^1"
^XMB(3.9,46,2,321,0)="""KRN"",771,207,0)"
^XMB(3.9,46,2,322,0)="IB PFSS RECV^a^^^^^US"
^XMB(3.9,46,2,323,0)="""KRN"",771,207,""EC"")"
^XMB(3.9,46,2,324,0)="^~\&"
^XMB(3.9,46,2,325,0)="""KRN"",771,207,""FS"")"
^XMB(3.9,46,2,326,0)="|"
^XMB(3.9,46,2,327,0)="""MBREQ"")"
^XMB(3.9,46,2,328,0)="0"
^XMB(3.9,46,2,329,0)="""ORD"",14,771)"
^XMB(3.9,46,2,330,0)="771;14;;;HLAP^XPDTA1;HLAPF1^XPDIA1;HLAPE1^XPDIA1;HLAPF2^XPDIA1;;HLAPDEL^XPDIA1(%)"
^XMB(3.9,46,2,331,0)="""ORD"",14,771,0)"
^XMB(3.9,46,2,332,0)="HL7 APPLICATION PARAMETER"
^XMB(3.9,46,2,333,0)="""ORD"",15,101)"
^XMB(3.9,46,2,334,0)="101;15;;;PRO^XPDTA;PROF1^XPDIA;PROE1^XPDIA;PROF2^XPDIA;;PRODEL^XPDIA"
^XMB(3.9,46,2,335,0)="""ORD"",15,101,0)"
^XMB(3.9,46,2,336,0)="PROTOCOL"
^XMB(3.9,46,2,337,0)="""ORD"",18,19)"
^XMB(3.9,46,2,338,0)="19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA"
^XMB(3.9,46,2,339,0)="""ORD"",18,19,0)"
^XMB(3.9,46,2,340,0)="OPTION"
^XMB(3.9,46,2,341,0)="""PKG"",200,-1)"
^XMB(3.9,46,2,342,0)="1^1"
^XMB(3.9,46,2,343,0)="""PKG"",200,0)"
^XMB(3.9,46,2,344,0)="INTEGRATED BILLING^IB^INTEGRATED BILLING"
^XMB(3.9,46,2,345,0)="""PKG"",200,20,0)"
^XMB(3.9,46,2,346,0)="^9.402P^2^1"
^XMB(3.9,46,2,347,0)="""PKG"",200,20,2,0)"
^XMB(3.9,46,2,348,0)="2^^IBAXDR"
^XMB(3.9,46,2,349,0)="""PKG"",200,20,2,1)"
^XMB(3.9,46,2,350,0)=""
^XMB(3.9,46,2,351,0)="""PKG"",200,20,""B"",2,2)"
^XMB(3.9,46,2,352,0)=""
^XMB(3.9,46,2,353,0)="""PKG"",200,22,0)"
^XMB(3.9,46,2,354,0)="^9.49I^1^1"
^XMB(3.9,46,2,355,0)="""PKG"",200,22,1,0)"
^XMB(3.9,46,2,356,0)="2.0^2940321^2990406^2447"
^XMB(3.9,46,2,357,0)="""PKG"",200,22,1,""PAH"",1,0)"
^XMB(3.9,46,2,358,0)="308^3060227^2438"
^XMB(3.9,46,2,359,0)="""PKG"",200,22,1,""PAH"",1,1,0)"
^XMB(3.9,46,2,360,0)="^^1^1^3060227"
^XMB(3.9,46,2,361,0)="""PKG"",200,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,46,2,362,0)="This patch is the inter-facility copay part of the PFSS project."
^XMB(3.9,46,2,363,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,46,2,364,0)="Y"
^XMB(3.9,46,2,365,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,46,2,366,0)="^D REP^XPDH"
^XMB(3.9,46,2,367,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,46,2,368,0)="Shall I write over your |FLAG| File"
^XMB(3.9,46,2,369,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,46,2,370,0)="YES"
^XMB(3.9,46,2,371,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,46,2,372,0)="D XPF1^XPDIQ"
^XMB(3.9,46,2,373,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,46,2,374,0)="Y"
^XMB(3.9,46,2,375,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,46,2,376,0)="^D DTA^XPDH"
^XMB(3.9,46,2,377,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,46,2,378,0)="Want my data |FLAG| yours"
^XMB(3.9,46,2,379,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,46,2,380,0)="YES"
^XMB(3.9,46,2,381,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,46,2,382,0)="D XPF2^XPDIQ"
^XMB(3.9,46,2,383,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,46,2,384,0)="YO"
^XMB(3.9,46,2,385,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,46,2,386,0)="^D INHIBIT^XPDH"
^XMB(3.9,46,2,387,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,46,2,388,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,46,2,389,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,46,2,390,0)="YES"
^XMB(3.9,46,2,391,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,46,2,392,0)="D XPI1^XPDIQ"
^XMB(3.9,46,2,393,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,46,2,394,0)="PO^VA(200,:EM"
^XMB(3.9,46,2,395,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,46,2,396,0)="^D MG^XPDH"
^XMB(3.9,46,2,397,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,46,2,398,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,46,2,399,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,46,2,400,0)=""
^XMB(3.9,46,2,401,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,46,2,402,0)="D XPM1^XPDIQ"
^XMB(3.9,46,2,403,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,46,2,404,0)="Y"
^XMB(3.9,46,2,405,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,46,2,406,0)="^D MENU^XPDH"
^XMB(3.9,46,2,407,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,46,2,408,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,46,2,409,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,46,2,410,0)="YES"
^XMB(3.9,46,2,411,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,46,2,412,0)="D XPO1^XPDIQ"
^XMB(3.9,46,2,413,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,46,2,414,0)="Y"
^XMB(3.9,46,2,415,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,46,2,416,0)="^D OPT^XPDH"
^XMB(3.9,46,2,417,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,46,2,418,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,46,2,419,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,46,2,420,0)="YES"
^XMB(3.9,46,2,421,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,46,2,422,0)="D XPZ1^XPDIQ"
^XMB(3.9,46,2,423,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,46,2,424,0)="Y"
^XMB(3.9,46,2,425,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,46,2,426,0)="^D RTN^XPDH"
^XMB(3.9,46,2,427,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,46,2,428,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,46,2,429,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,46,2,430,0)="NO"
^XMB(3.9,46,2,431,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,46,2,432,0)="D XPZ2^XPDIQ"
^XMB(3.9,46,2,433,0)="""RTN"")"
^XMB(3.9,46,2,434,0)="6"
^XMB(3.9,46,2,435,0)="""RTN"",""IBARX"")"
^XMB(3.9,46,2,436,0)="0^1^B51922608^B50649768"
^XMB(3.9,46,2,437,0)="""RTN"",""IBARX"",1,0)"
^XMB(3.9,46,2,438,0)="IBARX ;ALB/AAS-INTEGRATED BILLING, PHARMACY COPAY INTERFACE ;14-FEB-91"
^XMB(3.9,46,2,439,0)="""RTN"",""IBARX"",2,0)"
^XMB(3.9,46,2,440,0)=" ;;2.0;INTEGRATED BILLING;**101,150,156,168,186,237,308**;21-MAR-94"
^XMB(3.9,46,2,441,0)="""RTN"",""IBARX"",3,0)"
^XMB(3.9,46,2,442,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,46,2,443,0)="""RTN"",""IBARX"",4,0)"
^XMB(3.9,46,2,444,0)=" ;"
^XMB(3.9,46,2,445,0)="""RTN"",""IBARX"",5,0)"
^XMB(3.9,46,2,446,0)="XTYPE ; - tag XTYPE - returns array of billable action types for service"
^XMB(3.9,46,2,447,0)="""RTN"",""IBARX"",6,0)"
^XMB(3.9,46,2,448,0)=" ;  - see IBARXDOC for documentation"
^XMB(3.9,46,2,449,0)="""RTN"",""IBARX"",7,0)"
^XMB(3.9,46,2,450,0)=" ;"
^XMB(3.9,46,2,451,0)="""RTN"",""IBARX"",8,0)"
^XMB(3.9,46,2,452,0)="X1 K Y D INSTAL I '$T S Y=-1 Q"
^XMB(3.9,46,2,453,0)="""RTN"",""IBARX"",9,0)"
^XMB(3.9,46,2,454,0)=" N I,J,X1,X2,DA,DFN,IBCAP S Y=1,IBSAVX=X,IBTAG=1,IBWHER=5"
^XMB(3.9,46,2,455,0)="""RTN"",""IBARX"",10,0)"
^XMB(3.9,46,2,456,0)=" ;"
^XMB(3.9,46,2,457,0)="""RTN"",""IBARX"",11,0)"
^XMB(3.9,46,2,458,0)=" D CHKX^IBAUTL G:+Y<1 XTYPEQ"
^XMB(3.9,46,2,459,0)="""RTN"",""IBARX"",12,0)"
^XMB(3.9,46,2,460,0)=" ;"
^XMB(3.9,46,2,461,0)="""RTN"",""IBARX"",13,0)"
^XMB(3.9,46,2,462,0)=" I '$D(^IBE(350.1,""ANEW"",IBSERV,1,1)) D  S Y=-1 G XTYPEQ"
^XMB(3.9,46,2,463,0)="""RTN"",""IBARX"",14,0)"
^XMB(3.9,46,2,464,0)=" .I '$D(ZTQUEUED) W !!,*7,""WARNING: Pharmacy Copay not working,"",!,""         Check IB SERVICE/SECTION in Pharmacy Site File."",!!"
^XMB(3.9,46,2,465,0)="""RTN"",""IBARX"",15,0)"
^XMB(3.9,46,2,466,0)=" .D E3^IBAERR"
^XMB(3.9,46,2,467,0)="""RTN"",""IBARX"",16,0)"
^XMB(3.9,46,2,468,0)=" ;"
^XMB(3.9,46,2,469,0)="""RTN"",""IBARX"",17,0)"
^XMB(3.9,46,2,470,0)=" N X D ELIG^VADPT,INP^VADPT,DOM S Y=1"
^XMB(3.9,46,2,471,0)="""RTN"",""IBARX"",18,0)"
^XMB(3.9,46,2,472,0)=" F I=0:0 S I=$O(^IBE(350.1,""ANEW"",IBSERV,1,I)) Q:'I  I $D(^IBE(350.1,I,40)) S DA=I X ^IBE(350.1,DA,40) S Y(DA,X)=I_""^""_X1_""^""_X2 S:'$G(IBCAP) IBCAP=X"
^XMB(3.9,46,2,473,0)="""RTN"",""IBARX"",19,0)"
^XMB(3.9,46,2,474,0)=" ;"
^XMB(3.9,46,2,475,0)="""RTN"",""IBARX"",20,0)"
^XMB(3.9,46,2,476,0)=" I $G(IBCAP),$G(DFN) D NEW^IBARXPFS(DFN)"
^XMB(3.9,46,2,477,0)="""RTN"",""IBARX"",21,0)"
^XMB(3.9,46,2,478,0)=" ;"
^XMB(3.9,46,2,479,0)="""RTN"",""IBARX"",22,0)"
^XMB(3.9,46,2,480,0)="XTYPEQ K X1,X2,IBSERV,VAEL,VA,VAERR,IBDOM,VAIN,IBSAVX,IBTAG,IBWHER"
^XMB(3.9,46,2,481,0)="""RTN"",""IBARX"",23,0)"
^XMB(3.9,46,2,482,0)=" ;"
^XMB(3.9,46,2,483,0)="""RTN"",""IBARX"",24,0)"
^XMB(3.9,46,2,484,0)=" Q"
^XMB(3.9,46,2,485,0)="""RTN"",""IBARX"",25,0)"
^XMB(3.9,46,2,486,0)=" ;"
^XMB(3.9,46,2,487,0)="""RTN"",""IBARX"",26,0)"
^XMB(3.9,46,2,488,0)="DOM S IBDOM=0 I $D(VAIN(4)),$D(^DIC(42,+VAIN(4),0)),$P(^(0),""^"",3)=""D"" S IBDOM=1"
^XMB(3.9,46,2,489,0)="""RTN"",""IBARX"",27,0)"
^XMB(3.9,46,2,490,0)=" Q"
^XMB(3.9,46,2,491,0)="""RTN"",""IBARX"",28,0)"
^XMB(3.9,46,2,492,0)="NEW ;  - process new/renew/refill rx for charges"
^XMB(3.9,46,2,493,0)="""RTN"",""IBARX"",29,0)"
^XMB(3.9,46,2,494,0)=" ;  - see IBARXDOC for documentation"
^XMB(3.9,46,2,495,0)="""RTN"",""IBARX"",30,0)"
^XMB(3.9,46,2,496,0)=" ;"
^XMB(3.9,46,2,497,0)="""RTN"",""IBARX"",31,0)"
^XMB(3.9,46,2,498,0)="N1 K Y,IBSAVX D INSTAL I '$T S Y=-1 Q"
^XMB(3.9,46,2,499,0)="""RTN"",""IBARX"",32,0)"
^XMB(3.9,46,2,500,0)=" N I,J,X1,X2,DA,DFN,IBEXMP"
^XMB(3.9,46,2,501,0)="""RTN"",""IBARX"",33,0)"
^XMB(3.9,46,2,502,0)=" S IBWHER=1,IBSAVX=X,Y=1,IBTAG=2 D CHKX^IBAUTL I +Y<1 G NEWQ"
^XMB(3.9,46,2,503,0)="""RTN"",""IBARX"",34,0)"
^XMB(3.9,46,2,504,0)=" I $D(X)<11 S Y=""-1^IB010"" G NEWQ"
^XMB(3.9,46,2,505,0)="""RTN"",""IBARX"",35,0)"
^XMB(3.9,46,2,506,0)=" S J="""" F  S J=$O(X(J)) Q:J=""""  S IBSAVX(J)=X(J)"
^XMB(3.9,46,2,507,0)="""RTN"",""IBARX"",36,0)"
^XMB(3.9,46,2,508,0)=" D ARPARM^IBAUTL I +Y<1 G NEWQ"
^XMB(3.9,46,2,509,0)="""RTN"",""IBARX"",37,0)"
^XMB(3.9,46,2,510,0)=" ;"
^XMB(3.9,46,2,511,0)="""RTN"",""IBARX"",38,0)"
^XMB(3.9,46,2,512,0)=" ; -- check rx exemption in case refill is exempt"
^XMB(3.9,46,2,513,0)="""RTN"",""IBARX"",39,0)"
^XMB(3.9,46,2,514,0)=" ; -- if exempt set amount to each rx and total to zero"
^XMB(3.9,46,2,515,0)="""RTN"",""IBARX"",40,0)"
^XMB(3.9,46,2,516,0)=" ;    1= exempt, 0= non-exempt, -1=copay off (manila)"
^XMB(3.9,46,2,517,0)="""RTN"",""IBARX"",41,0)"
^XMB(3.9,46,2,518,0)=" S IBEXMP=+$$RXEXMT^IBARXEU0(DFN,DT)"
^XMB(3.9,46,2,519,0)="""RTN"",""IBARX"",42,0)"
^XMB(3.9,46,2,520,0)=" I IBEXMP'=0 D  S Y=""1^0"" G NEWQ"
^XMB(3.9,46,2,521,0)="""RTN"",""IBARX"",43,0)"
^XMB(3.9,46,2,522,0)=" .S IBJ="""""
^XMB(3.9,46,2,523,0)="""RTN"",""IBARX"",44,0)"
^XMB(3.9,46,2,524,0)=" .; changed return value 6th piece is the exempt flag"
^XMB(3.9,46,2,525,0)="""RTN"",""IBARX"",45,0)"
^XMB(3.9,46,2,526,0)=" .F  S IBJ=$O(IBSAVX(IBJ)) Q:IBJ=""""  S $P(Y(IBJ),""^"",6)=IBEXMP"
^XMB(3.9,46,2,527,0)="""RTN"",""IBARX"",46,0)"
^XMB(3.9,46,2,528,0)=" .Q"
^XMB(3.9,46,2,529,0)="""RTN"",""IBARX"",47,0)"
^XMB(3.9,46,2,530,0)=" ;"
^XMB(3.9,46,2,531,0)="""RTN"",""IBARX"",48,0)"
^XMB(3.9,46,2,532,0)=" ; check to see if billing has been tracked across facilities before,"
^XMB(3.9,46,2,533,0)="""RTN"",""IBARX"",49,0)"
^XMB(3.9,46,2,534,0)=" ; if not, start now."
^XMB(3.9,46,2,535,0)="""RTN"",""IBARX"",50,0)"
^XMB(3.9,46,2,536,0)=" D TRACK^IBARXMN(DFN) I +Y<1 G NEWQ"
^XMB(3.9,46,2,537,0)="""RTN"",""IBARX"",51,0)"
^XMB(3.9,46,2,538,0)=" ;"
^XMB(3.9,46,2,539,0)="""RTN"",""IBARX"",52,0)"
^XMB(3.9,46,2,540,0)=" S IBTOTL=0"
^XMB(3.9,46,2,541,0)="""RTN"",""IBARX"",53,0)"
^XMB(3.9,46,2,542,0)=" D BILLNO^IBAUTL I +Y<1 G NEWQ"
^XMB(3.9,46,2,543,0)="""RTN"",""IBARX"",54,0)"
^XMB(3.9,46,2,544,0)=" ;"
^XMB(3.9,46,2,545,0)="""RTN"",""IBARX"",55,0)"
^XMB(3.9,46,2,546,0)=" S IBTOTL=0,IBJ="""",IBSEQNO=$P(^IBE(350.1,IBATYP,0),""^"",5) I 'IBSEQNO S Y=""-1^IB023"" G NEWQ"
^XMB(3.9,46,2,547,0)="""RTN"",""IBARX"",56,0)"
^XMB(3.9,46,2,548,0)=" F  S IBJ=$O(IBSAVX(IBJ)) Q:IBJ=""""  S IBX=IBSAVX(IBJ) D RX^IBARX1"
^XMB(3.9,46,2,549,0)="""RTN"",""IBARX"",57,0)"
^XMB(3.9,46,2,550,0)=" I +Y<1 G NEWQ"
^XMB(3.9,46,2,551,0)="""RTN"",""IBARX"",58,0)"
^XMB(3.9,46,2,552,0)=" ;"
^XMB(3.9,46,2,553,0)="""RTN"",""IBARX"",59,0)"
^XMB(3.9,46,2,554,0)=" ; changed to only do if charge exists"
^XMB(3.9,46,2,555,0)="""RTN"",""IBARX"",60,0)"
^XMB(3.9,46,2,556,0)=" D:IBTOTL ^IBAFIL"
^XMB(3.9,46,2,557,0)="""RTN"",""IBARX"",61,0)"
^XMB(3.9,46,2,558,0)=" ;"
^XMB(3.9,46,2,559,0)="""RTN"",""IBARX"",62,0)"
^XMB(3.9,46,2,560,0)=" S IBJ="""" F  S IBJ=$O(IBSAVY(IBJ)) Q:IBJ=""""  S Y(IBJ)=IBSAVY(IBJ)"
^XMB(3.9,46,2,561,0)="""RTN"",""IBARX"",63,0)"
^XMB(3.9,46,2,562,0)=" S:+Y>0 Y=""1^""_IBTOTL S X=IBSAVX"
^XMB(3.9,46,2,563,0)="""RTN"",""IBARX"",64,0)"
^XMB(3.9,46,2,564,0)=" ;"
^XMB(3.9,46,2,565,0)="""RTN"",""IBARX"",65,0)"
^XMB(3.9,46,2,566,0)="NEWQ D:+Y<1 ^IBAERR"
^XMB(3.9,46,2,567,0)="""RTN"",""IBARX"",66,0)"
^XMB(3.9,46,2,568,0)=" D END"
^XMB(3.9,46,2,569,0)="""RTN"",""IBARX"",67,0)"
^XMB(3.9,46,2,570,0)=" Q"
^XMB(3.9,46,2,571,0)="""RTN"",""IBARX"",68,0)"
^XMB(3.9,46,2,572,0)=" ;"
^XMB(3.9,46,2,573,0)="""RTN"",""IBARX"",69,0)"
^XMB(3.9,46,2,574,0)="INSTAL I $S($D(^IBE(350.9,1,0)):1,$D(^IB(0)):1,1:0)"
^XMB(3.9,46,2,575,0)="""RTN"",""IBARX"",70,0)"
^XMB(3.9,46,2,576,0)=" Q"
^XMB(3.9,46,2,577,0)="""RTN"",""IBARX"",71,0)"
^XMB(3.9,46,2,578,0)=" ;"
^XMB(3.9,46,2,579,0)="""RTN"",""IBARX"",72,0)"
^XMB(3.9,46,2,580,0)="CANCEL ;  - cancel charges for a rx"
^XMB(3.9,46,2,581,0)="""RTN"",""IBARX"",73,0)"
^XMB(3.9,46,2,582,0)=" ;  - see IBARXDOC for documentation"
^XMB(3.9,46,2,583,0)="""RTN"",""IBARX"",74,0)"
^XMB(3.9,46,2,584,0)=" ;"
^XMB(3.9,46,2,585,0)="""RTN"",""IBARX"",75,0)"
^XMB(3.9,46,2,586,0)="C1 K Y,IBSAVX N I,J,X1,X2,DA,DFN I '$G(IBUPDATE) N IBCAP,IBAMP,IBSAVXMC"
^XMB(3.9,46,2,587,0)="""RTN"",""IBARX"",76,0)"
^XMB(3.9,46,2,588,0)=" S IBWHER=1,IBSAVX=X,Y=1,IBTAG=3 D CHKX^IBAUTL I +Y<1 G CANQ"
^XMB(3.9,46,2,589,0)="""RTN"",""IBARX"",77,0)"
^XMB(3.9,46,2,590,0)=" I $D(X)<11 S Y=""-1^IB010"" G CANQ"
^XMB(3.9,46,2,591,0)="""RTN"",""IBARX"",78,0)"
^XMB(3.9,46,2,592,0)=" S J="""" F  S J=$O(X(J)) Q:J=""""  S IBSAVX(J)=X(J)"
^XMB(3.9,46,2,593,0)="""RTN"",""IBARX"",79,0)"
^XMB(3.9,46,2,594,0)=" D ARPARM^IBAUTL I +Y<1 G CANQ"
^XMB(3.9,46,2,595,0)="""RTN"",""IBARX"",80,0)"
^XMB(3.9,46,2,596,0)=" ;"
^XMB(3.9,46,2,597,0)="""RTN"",""IBARX"",81,0)"
^XMB(3.9,46,2,598,0)=" S IBJ="""",IBTOTL=0"
^XMB(3.9,46,2,599,0)="""RTN"",""IBARX"",82,0)"
^XMB(3.9,46,2,600,0)=" F  S IBJ=$O(IBSAVX(IBJ)) Q:IBJ=""""  S IBX=IBSAVX(IBJ) D CANRX^IBARX1 I +IBY(IBJ)'<1 D ^IBAFIL:$P(IBND,""^"",5)'=8 I +Y<1 S IBY(IBJ)=Y"
^XMB(3.9,46,2,601,0)="""RTN"",""IBARX"",83,0)"
^XMB(3.9,46,2,602,0)=" I +Y<1 S IBT="""",IBY=Y,IBM="""" F  S IBM=$O(IBY(IBM)) Q:IBM=""""  I +IBY(IBM)<1 S Y=IBY(IBM) D ^IBAERR S Y(IBM)=IBY(IBM),Y=IBY"
^XMB(3.9,46,2,603,0)="""RTN"",""IBARX"",84,0)"
^XMB(3.9,46,2,604,0)="CANQ D:+Y<1 ^IBAERR:('$D(IBT))"
^XMB(3.9,46,2,605,0)="""RTN"",""IBARX"",85,0)"
^XMB(3.9,46,2,606,0)=" S X=IBSAVX"
^XMB(3.9,46,2,607,0)="""RTN"",""IBARX"",86,0)"
^XMB(3.9,46,2,608,0)=" M IBSAVXMC=Y"
^XMB(3.9,46,2,609,0)="""RTN"",""IBARX"",87,0)"
^XMB(3.9,46,2,610,0)=" D END"
^XMB(3.9,46,2,611,0)="""RTN"",""IBARX"",88,0)"
^XMB(3.9,46,2,612,0)=" ;"
^XMB(3.9,46,2,613,0)="""RTN"",""IBARX"",89,0)"
^XMB(3.9,46,2,614,0)=" ; now that I have cancelled lets see if there are some to be billed"
^XMB(3.9,46,2,615,0)="""RTN"",""IBARX"",90,0)"
^XMB(3.9,46,2,616,0)=" I '$G(IBUPDATE),$D(IBCAP)>10 D QCAN^IBARXMC(DFN,.IBCAP,.IBSAVXMC)"
^XMB(3.9,46,2,617,0)="""RTN"",""IBARX"",91,0)"
^XMB(3.9,46,2,618,0)=" ;S IBD=0 F  S IBD=$O(IBCAP(IBD)) Q:IBD<1  D CANCEL^IBARXMC(DFN,IBD)"
^XMB(3.9,46,2,619,0)="""RTN"",""IBARX"",92,0)"
^XMB(3.9,46,2,620,0)=" Q"
^XMB(3.9,46,2,621,0)="""RTN"",""IBARX"",93,0)"
^XMB(3.9,46,2,622,0)=" ;"
^XMB(3.9,46,2,623,0)="""RTN"",""IBARX"",94,0)"
^XMB(3.9,46,2,624,0)="UPDATE ;  - will cancel current open charge and create updated entry"
^XMB(3.9,46,2,625,0)="""RTN"",""IBARX"",95,0)"
^XMB(3.9,46,2,626,0)=" ;  - see IBARXDOC for documentation"
^XMB(3.9,46,2,627,0)="""RTN"",""IBARX"",96,0)"
^XMB(3.9,46,2,628,0)=" ;"
^XMB(3.9,46,2,629,0)="""RTN"",""IBARX"",97,0)"
^XMB(3.9,46,2,630,0)="U1 K Y,IBSAVX N I,J,X1,X2,DA,DFN,IBEXMP,IBUPDATE,IBCAP,IBEFDT,IBAMP,IBSAVXMC"
^XMB(3.9,46,2,631,0)="""RTN"",""IBARX"",98,0)"
^XMB(3.9,46,2,632,0)=" S IBUPDATE=1  ; new flag so we know we are updating"
^XMB(3.9,46,2,633,0)="""RTN"",""IBARX"",99,0)"
^XMB(3.9,46,2,634,0)=" S IBWHER=1,IBSAVX=X,Y=1,IBTAG=4 D CHKX^IBAUTL I +Y<1 G UPDQ"
^XMB(3.9,46,2,635,0)="""RTN"",""IBARX"",100,0)"
^XMB(3.9,46,2,636,0)=" S IBSAVXU=IBSAVX"
^XMB(3.9,46,2,637,0)="""RTN"",""IBARX"",101,0)"
^XMB(3.9,46,2,638,0)=" I $D(X)<11 S Y=""-1^IB010"" G UPDQ"
^XMB(3.9,46,2,639,0)="""RTN"",""IBARX"",102,0)"
^XMB(3.9,46,2,640,0)=" S J="""" F  S J=$O(X(J)) Q:J=""""  S IBSAVXU(J)=X(J),X(J)=$P(X(J),""^"",3,4) D EFDT^IBARXMU($P(X(J),""^""),.IBEFDT)"
^XMB(3.9,46,2,641,0)="""RTN"",""IBARX"",103,0)"
^XMB(3.9,46,2,642,0)=" ;"
^XMB(3.9,46,2,643,0)="""RTN"",""IBARX"",104,0)"
^XMB(3.9,46,2,644,0)=" D CANCEL"
^XMB(3.9,46,2,645,0)="""RTN"",""IBARX"",105,0)"
^XMB(3.9,46,2,646,0)="U2 K X"
^XMB(3.9,46,2,647,0)="""RTN"",""IBARX"",106,0)"
^XMB(3.9,46,2,648,0)=" S X=IBSAVXU S J="""" F  S J=$O(IBSAVXU(J)) Q:J=""""  S X(J)=$P(IBSAVXU(J),""^"",1,3)"
^XMB(3.9,46,2,649,0)="""RTN"",""IBARX"",107,0)"
^XMB(3.9,46,2,650,0)=" S IBSAVX=X,Y=1,IBTAG=4 D CHKX^IBAUTL I +Y<1 G UPDQ"
^XMB(3.9,46,2,651,0)="""RTN"",""IBARX"",108,0)"
^XMB(3.9,46,2,652,0)=" D ARPARM^IBAUTL I +Y<1 G UPDQ"
^XMB(3.9,46,2,653,0)="""RTN"",""IBARX"",109,0)"
^XMB(3.9,46,2,654,0)=" ;"
^XMB(3.9,46,2,655,0)="""RTN"",""IBARX"",110,0)"
^XMB(3.9,46,2,656,0)=" ; -- check rx exemption in case refill is exempt"
^XMB(3.9,46,2,657,0)="""RTN"",""IBARX"",111,0)"
^XMB(3.9,46,2,658,0)=" ; -- if exempt set amount to each rx and total to zero"
^XMB(3.9,46,2,659,0)="""RTN"",""IBARX"",112,0)"
^XMB(3.9,46,2,660,0)=" S IBEXMP=+$$RXEXMT^IBARXEU0(DFN,DT)"
^XMB(3.9,46,2,661,0)="""RTN"",""IBARX"",113,0)"
^XMB(3.9,46,2,662,0)=" I IBEXMP'=0 D  S Y=""1^0"" G UPDQ"
^XMB(3.9,46,2,663,0)="""RTN"",""IBARX"",114,0)"
^XMB(3.9,46,2,664,0)=" .; changed return value 6th piece is the exempt flag"
^XMB(3.9,46,2,665,0)="""RTN"",""IBARX"",115,0)"
^XMB(3.9,46,2,666,0)=" .S IBJ="""" F  S IBJ=$O(IBSAVXU(IBJ)) Q:IBJ=""""  S $P(Y(IBJ),""^"",6)=IBEXMP"
^XMB(3.9,46,2,667,0)="""RTN"",""IBARX"",116,0)"
^XMB(3.9,46,2,668,0)=" .Q"
^XMB(3.9,46,2,669,0)="""RTN"",""IBARX"",117,0)"
^XMB(3.9,46,2,670,0)=" ;"
^XMB(3.9,46,2,671,0)="""RTN"",""IBARX"",118,0)"
^XMB(3.9,46,2,672,0)=" S IBATYP=$P(^IBE(350.1,+IBATYP,0),""^"",7) I '$D(^IBE(350.1,+IBATYP,0)) S Y=""-1^IB008"" G UPDQ ;update type action"
^XMB(3.9,46,2,673,0)="""RTN"",""IBARX"",119,0)"
^XMB(3.9,46,2,674,0)=" ;"
^XMB(3.9,46,2,675,0)="""RTN"",""IBARX"",120,0)"
^XMB(3.9,46,2,676,0)=" D BILLNO^IBAUTL G:+Y<1 UPDQ"
^XMB(3.9,46,2,677,0)="""RTN"",""IBARX"",121,0)"
^XMB(3.9,46,2,678,0)=" S IBTOTL=0,IBNOS="""",IBSEQNO=$P(^IBE(350.1,IBATYP,0),""^"",5) I 'IBSEQNO S Y=""-1^IB023"" G UPDQ"
^XMB(3.9,46,2,679,0)="""RTN"",""IBARX"",122,0)"
^XMB(3.9,46,2,680,0)=" S IBJ="""" F  S IBJ=$O(IBSAVXU(IBJ)) Q:IBJ=""""  S IBX=IBSAVXU(IBJ) S:$D(IBEFDT(+$P(IBX,""^"",3))) IBEFDT=IBEFDT(+$P(IBX,""^"",3)) D UCHPAR,RX^IBARX1:'$D(IBSAVY(IBJ)) S IBEFDT=0"
^XMB(3.9,46,2,681,0)="""RTN"",""IBARX"",123,0)"
^XMB(3.9,46,2,682,0)=" D ^IBAFIL"
^XMB(3.9,46,2,683,0)="""RTN"",""IBARX"",124,0)"
^XMB(3.9,46,2,684,0)=" ;"
^XMB(3.9,46,2,685,0)="""RTN"",""IBARX"",125,0)"
^XMB(3.9,46,2,686,0)=" S IBJ="""" F  S IBJ=$O(IBSAVY(IBJ)) Q:IBJ=""""  S Y(IBJ)=IBSAVY(IBJ),$P(Y(IBJ),""^"",6)=+$G(IBEXMP) S:+Y(IBJ)<1 Y=Y(IBJ)"
^XMB(3.9,46,2,687,0)="""RTN"",""IBARX"",126,0)"
^XMB(3.9,46,2,688,0)=" S:+Y>0 Y=""1^""_IBTOTL S X=IBSAVXU"
^XMB(3.9,46,2,689,0)="""RTN"",""IBARX"",127,0)"
^XMB(3.9,46,2,690,0)=" ;"
^XMB(3.9,46,2,691,0)="""RTN"",""IBARX"",128,0)"
^XMB(3.9,46,2,692,0)=" ; now that I have the update done lets see if there are some to be billed"
^XMB(3.9,46,2,693,0)="""RTN"",""IBARX"",129,0)"
^XMB(3.9,46,2,694,0)=" I $D(IBCAP)>10 D QCAN^IBARXMC(DFN,.IBCAP,.IBSAVXMC)"
^XMB(3.9,46,2,695,0)="""RTN"",""IBARX"",130,0)"
^XMB(3.9,46,2,696,0)=" ;S IBD=0 F  S IBD=$O(IBCAP(IBD)) Q:IBD<1  D CANCEL^IBARXMC(DFN,IBD)"
^XMB(3.9,46,2,697,0)="""RTN"",""IBARX"",131,0)"
^XMB(3.9,46,2,698,0)=" ;"
^XMB(3.9,46,2,699,0)="""RTN"",""IBARX"",132,0)"
^XMB(3.9,46,2,700,0)="UPDQ D:+Y<1 ^IBAERR"
^XMB(3.9,46,2,701,0)="""RTN"",""IBARX"",133,0)"
^XMB(3.9,46,2,702,0)=" K IBSAVXU"
^XMB(3.9,46,2,703,0)="""RTN"",""IBARX"",134,0)"
^XMB(3.9,46,2,704,0)="END K %,%H,%I,K,X1,X2,X3,IBSERV,IBATYP,IBAFY,IBDUZ,IBNOW,IBSAVX,IBTOTL,IBX,IBT,IBCHRG,IBDESC,IBFAC,IBIL,IBN,IBNOS,IBSEQNO,IBSITE,IBTAG,IBTRAN,IBCRES,IBJ,IBLAST,IBND,IBY,IBPARNT,IBUNIT,IBJ,IBARTYP,IBI,IBSAVY,IBWHER"
^XMB(3.9,46,2,705,0)="""RTN"",""IBARX"",135,0)"
^XMB(3.9,46,2,706,0)=" Q"
^XMB(3.9,46,2,707,0)="""RTN"",""IBARX"",136,0)"
^XMB(3.9,46,2,708,0)="UCHPAR ; Check that IB action and its parent exist."
^XMB(3.9,46,2,709,0)="""RTN"",""IBARX"",137,0)"
^XMB(3.9,46,2,710,0)=" S IBPARNT=$P(IBX,""^"",3)"
^XMB(3.9,46,2,711,0)="""RTN"",""IBARX"",138,0)"
^XMB(3.9,46,2,712,0)=" I '$D(^IB(+IBPARNT,0)) S IBSAVY(IBJ)=""-1^IB021"" G UCHPARQ"
^XMB(3.9,46,2,713,0)="""RTN"",""IBARX"",139,0)"
^XMB(3.9,46,2,714,0)=" S IBPARNT=$P(^IB(+IBPARNT,0),""^"",9)"
^XMB(3.9,46,2,715,0)="""RTN"",""IBARX"",140,0)"
^XMB(3.9,46,2,716,0)=" I '$D(^IB(+IBPARNT,0)) S IBSAVY(IBJ)=""-1^IB027"""
^XMB(3.9,46,2,717,0)="""RTN"",""IBARX"",141,0)"
^XMB(3.9,46,2,718,0)="UCHPARQ Q"
^XMB(3.9,46,2,719,0)="""RTN"",""IBARX"",142,0)"
^XMB(3.9,46,2,720,0)=" ;"
^XMB(3.9,46,2,721,0)="""RTN"",""IBARX"",143,0)"
^XMB(3.9,46,2,722,0)="STATUS(X) ; returns the status of a transaction in 350"
^XMB(3.9,46,2,723,0)="""RTN"",""IBARX"",144,0)"
^XMB(3.9,46,2,724,0)=" ;  - see IBARXDOC for documentation"
^XMB(3.9,46,2,725,0)="""RTN"",""IBARX"",145,0)"
^XMB(3.9,46,2,726,0)=" ;"
^XMB(3.9,46,2,727,0)="""RTN"",""IBARX"",146,0)"
^XMB(3.9,46,2,728,0)=" N Y S Y=$G(^IB(X,0))"
^XMB(3.9,46,2,729,0)="""RTN"",""IBARX"",147,0)"
^XMB(3.9,46,2,730,0)=" Q +$S($P(Y,""^"",5)=10:2,1:$P($G(^IBE(350.1,+$P(Y,""^"",3),0)),""^"",5))"
^XMB(3.9,46,2,731,0)="""RTN"",""IBARX"",148,0)"
^XMB(3.9,46,2,732,0)=" ;"
^XMB(3.9,46,2,733,0)="""RTN"",""IBARX"",149,0)"
^XMB(3.9,46,2,734,0)="CANIBAM ; used by pso to cancel a 354.71 transaction"
^XMB(3.9,46,2,735,0)="""RTN"",""IBARX"",150,0)"
^XMB(3.9,46,2,736,0)=" ;  - see IBARXDOC for documentation"
^XMB(3.9,46,2,737,0)="""RTN"",""IBARX"",151,0)"
^XMB(3.9,46,2,738,0)=" N IBZ,IBXX,IBYY,IBCAP"
^XMB(3.9,46,2,739,0)="""RTN"",""IBARX"",152,0)"
^XMB(3.9,46,2,740,0)=" M IBXX=X"
^XMB(3.9,46,2,741,0)="""RTN"",""IBARX"",153,0)"
^XMB(3.9,46,2,742,0)=" S IBXX=0 F  S IBXX=$O(IBXX(IBXX)) Q:IBXX=""""  D"
^XMB(3.9,46,2,743,0)="""RTN"",""IBARX"",154,0)"
^XMB(3.9,46,2,744,0)=" . N IBY"
^XMB(3.9,46,2,745,0)="""RTN"",""IBARX"",155,0)"
^XMB(3.9,46,2,746,0)=" . S IBZ=$G(^IBAM(354.71,+IBXX(IBXX),0))"
^XMB(3.9,46,2,747,0)="""RTN"",""IBARX"",156,0)"
^XMB(3.9,46,2,748,0)=" . I $P(IBZ,""^"",4) S IBYY(IBXX)=""-1^Transaction has been billed"" Q"
^XMB(3.9,46,2,749,0)="""RTN"",""IBARX"",157,0)"
^XMB(3.9,46,2,750,0)=" . I $P(IBZ,""^"",5)=""Y""!($P(IBZ,""^"",5)=""X"") S IBYY(IBXX)=""-1^Transaction already cancelled"" Q"
^XMB(3.9,46,2,751,0)="""RTN"",""IBARX"",158,0)"
^XMB(3.9,46,2,752,0)=" . S IBZ=$$CANCEL^IBARXMN($P(IBZ,""^"",2),+IBXX(IBXX),.IBY,$P(IBXX(IBXX),""^"",2))"
^XMB(3.9,46,2,753,0)="""RTN"",""IBARX"",159,0)"
^XMB(3.9,46,2,754,0)=" . S IBYY(IBXX)=$S($P($G(IBY),""^"")=-1:IBY,1:IBZ)"
^XMB(3.9,46,2,755,0)="""RTN"",""IBARX"",160,0)"
^XMB(3.9,46,2,756,0)=" K Y M Y=IBYY"
^XMB(3.9,46,2,757,0)="""RTN"",""IBARX"",161,0)"
^XMB(3.9,46,2,758,0)=" Q"
^XMB(3.9,46,2,759,0)="""RTN"",""IBARX"",162,0)"
^XMB(3.9,46,2,760,0)=" ;"
^XMB(3.9,46,2,761,0)="""RTN"",""IBARX"",163,0)"
^XMB(3.9,46,2,762,0)="UPIBAM ;  - will cancel current potential charge and create updated entry"
^XMB(3.9,46,2,763,0)="""RTN"",""IBARX"",164,0)"
^XMB(3.9,46,2,764,0)=" ;  - see IBARXDOC for documentation"
^XMB(3.9,46,2,765,0)="""RTN"",""IBARX"",165,0)"
^XMB(3.9,46,2,766,0)=" ;"
^XMB(3.9,46,2,767,0)="""RTN"",""IBARX"",166,0)"
^XMB(3.9,46,2,768,0)=" N IBXX,IBYY,IBWHER,IBTAG,IBZ,IBX,IBY,IBSAVX,IBA,IBAM,IBATYP,IBCAP,IBDESC,IBDUZ,IBSERV,IBTCH"
^XMB(3.9,46,2,769,0)="""RTN"",""IBARX"",167,0)"
^XMB(3.9,46,2,770,0)=" M IBXX=X"
^XMB(3.9,46,2,771,0)="""RTN"",""IBARX"",168,0)"
^XMB(3.9,46,2,772,0)=" S IBA=$O(X("""")) I IBA="""" S (Y)=""-1^Invalid Subscript in X"" Q"
^XMB(3.9,46,2,773,0)="""RTN"",""IBARX"",169,0)"
^XMB(3.9,46,2,774,0)=" S IBWHER=1,Y=1,IBTAG=4,IBSAVX=X D CHKX^IBAUTL I +Y<1 S Y(IBA)=Y Q"
^XMB(3.9,46,2,775,0)="""RTN"",""IBARX"",170,0)"
^XMB(3.9,46,2,776,0)=" S IBZ=$G(^IBAM(354.71,+$P($G(IBXX(IBA)),""^"",3),0))"
^XMB(3.9,46,2,777,0)="""RTN"",""IBARX"",171,0)"
^XMB(3.9,46,2,778,0)=" ;"
^XMB(3.9,46,2,779,0)="""RTN"",""IBARX"",172,0)"
^XMB(3.9,46,2,780,0)=" ; check out the transaction sent"
^XMB(3.9,46,2,781,0)="""RTN"",""IBARX"",173,0)"
^XMB(3.9,46,2,782,0)=" I 'IBZ S (Y,Y(IBA))=""-1^Not a valid transaction number"" Q"
^XMB(3.9,46,2,783,0)="""RTN"",""IBARX"",174,0)"
^XMB(3.9,46,2,784,0)=" I $P(IBZ,""^"",4) S (Y,Y(IBA))=""-1^Transaction has been billed"" Q"
^XMB(3.9,46,2,785,0)="""RTN"",""IBARX"",175,0)"
^XMB(3.9,46,2,786,0)=" I $P(IBZ,""^"",5)=""Y""!($P(IBZ,""^"",5)=""X"") S (Y,Y(IBA))=""-1^Transaction already cancelled"" Q"
^XMB(3.9,46,2,787,0)="""RTN"",""IBARX"",176,0)"
^XMB(3.9,46,2,788,0)=" ;"
^XMB(3.9,46,2,789,0)="""RTN"",""IBARX"",177,0)"
^XMB(3.9,46,2,790,0)=" ; cancel that transaction"
^XMB(3.9,46,2,791,0)="""RTN"",""IBARX"",178,0)"
^XMB(3.9,46,2,792,0)=" S IBX=$$CANCEL^IBARXMN($P(IBZ,""^"",2),$P($G(IBXX(IBA)),""^"",3),.Y,$P(IBXX(IBA),""^"",4)) I +Y<1 S Y(IBA)=Y Q"
^XMB(3.9,46,2,793,0)="""RTN"",""IBARX"",179,0)"
^XMB(3.9,46,2,794,0)=" ;"
^XMB(3.9,46,2,795,0)="""RTN"",""IBARX"",180,0)"
^XMB(3.9,46,2,796,0)=" ; create the new updated transaction"
^XMB(3.9,46,2,797,0)="""RTN"",""IBARX"",181,0)"
^XMB(3.9,46,2,798,0)=" S IBX=IBXX(IBA) D BDESC^IBARX1 S IBATYP=$P(^IBE(350.1,+IBATYP,0),""^"",7),DA=IBATYP D COST^IBAUTL S IBTCH=$P(IBX,""^"",2)*X1"
^XMB(3.9,46,2,799,0)="""RTN"",""IBARX"",182,0)"
^XMB(3.9,46,2,800,0)=" S IBAM=$$ADD^IBARXMN($P(IBZ,""^"",2),""^^""_$P(IBZ,""^"",3)_""^^P^""_$P(IBXX(IBA),""^"")_""^""_$P(IBXX(IBA),""^"",2)_""^""_IBTCH_""^""_IBDESC_""^""_$$PARENT^IBARXMC($P(IBXX(IBA),""^"",3))_""^0^""_IBTCH_""^""_(+$P($$SITE^IBARXMU,""^"",3)),IBATYP)"
^XMB(3.9,46,2,801,0)="""RTN"",""IBARX"",183,0)"
^XMB(3.9,46,2,802,0)=" I IBAM<1 S (Y,Y(IBA))=""-1^IB316"" Q"
^XMB(3.9,46,2,803,0)="""RTN"",""IBARX"",184,0)"
^XMB(3.9,46,2,804,0)=" ;"
^XMB(3.9,46,2,805,0)="""RTN"",""IBARX"",185,0)"
^XMB(3.9,46,2,806,0)=" S Y(IBA)=IBAM,Y=1"
^XMB(3.9,46,2,807,0)="""RTN"",""IBARX"",186,0)"
^XMB(3.9,46,2,808,0)=" ;"
^XMB(3.9,46,2,809,0)="""RTN"",""IBARX"",187,0)"
^XMB(3.9,46,2,810,0)=" Q"
^XMB(3.9,46,2,811,0)="""RTN"",""IBARXMI"")"
^XMB(3.9,46,2,812,0)="0^4^B78946098"
^XMB(3.9,46,2,813,0)="""RTN"",""IBARXMI"",1,0)"
^XMB(3.9,46,2,814,0)="IBARXMI ;OAK/ELZ-HL7 RECEIVER FOR PFSS WORKING ROUTINE ;6-APR-2005"
^XMB(3.9,46,2,815,0)="""RTN"",""IBARXMI"",2,0)"
^XMB(3.9,46,2,816,0)=" ;;2.0;INTEGRATED BILLING;**308**;21-MAR-94"
^XMB(3.9,46,2,817,0)="""RTN"",""IBARXMI"",3,0)"
^XMB(3.9,46,2,818,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,46,2,819,0)="""RTN"",""IBARXMI"",4,0)"
^XMB(3.9,46,2,820,0)=" ;"
^XMB(3.9,46,2,821,0)="""RTN"",""IBARXMI"",5,0)"
^XMB(3.9,46,2,822,0)="QUERYVA ; called by HL7 receiver to send queries out to all sites of record"
^XMB(3.9,46,2,823,0)="""RTN"",""IBARXMI"",6,0)"
^XMB(3.9,46,2,824,0)=" ; for the given patient to look for updated copay cap information."
^XMB(3.9,46,2,825,0)="""RTN"",""IBARXMI"",7,0)"
^XMB(3.9,46,2,826,0)=" ; TYPE = ST"
^XMB(3.9,46,2,827,0)="""RTN"",""IBARXMI"",8,0)"
^XMB(3.9,46,2,828,0)=" ;"
^XMB(3.9,46,2,829,0)="""RTN"",""IBARXMI"",9,0)"
^XMB(3.9,46,2,830,0)=" N IBADT,IBRX,X,IBX,IBQ"
^XMB(3.9,46,2,831,0)="""RTN"",""IBARXMI"",10,0)"
^XMB(3.9,46,2,832,0)=" ;"
^XMB(3.9,46,2,833,0)="""RTN"",""IBARXMI"",11,0)"
^XMB(3.9,46,2,834,0)=" ;check out data received from message (need to get rx/fill number that caused this)"
^XMB(3.9,46,2,835,0)="""RTN"",""IBARXMI"",12,0)"
^XMB(3.9,46,2,836,0)=" S IBQ=0 F IBX=.091,.092,.03 I $G(IB35471(IBX))="""" S IBQ=1 Q"
^XMB(3.9,46,2,837,0)="""RTN"",""IBARXMI"",13,0)"
^XMB(3.9,46,2,838,0)=" I IBQ S HLERR=""354.71 field ""_IBX_"" missing"" Q"
^XMB(3.9,46,2,839,0)="""RTN"",""IBARXMI"",14,0)"
^XMB(3.9,46,2,840,0)=" S IBRX=$O(^PSRX(""B"",IB35471(.091),0)) I 'IBRX S HLERR=""Rx number not found"" Q"
^XMB(3.9,46,2,841,0)="""RTN"",""IBARXMI"",15,0)"
^XMB(3.9,46,2,842,0)=" I '$D(^PSRX(+IBRX,1,IB35471(.092),0)),IB35471(.092) S HLERR=""Refill invalid or not found"" Q"
^XMB(3.9,46,2,843,0)="""RTN"",""IBARXMI"",16,0)"
^XMB(3.9,46,2,844,0)=" ;"
^XMB(3.9,46,2,845,0)="""RTN"",""IBARXMI"",17,0)"
^XMB(3.9,46,2,846,0)=" ; set DUZ to pharmacy person who caused this to occur DBIA4732 and SACC exemption"
^XMB(3.9,46,2,847,0)="""RTN"",""IBARXMI"",18,0)"
^XMB(3.9,46,2,848,0)=" D"
^XMB(3.9,46,2,849,0)="""RTN"",""IBARXMI"",19,0)"
^XMB(3.9,46,2,850,0)=" . I $G(DUZ)<1,$L($T(RPH^PSOPFSU0)) N DUZ S DUZ=$P($$RPH^PSOPFSU0(IB35471(.091),IB35471(.092)),""^"",2),DUZ(2)=+$$SITE^VASITE"
^XMB(3.9,46,2,851,0)="""RTN"",""IBARXMI"",20,0)"
^XMB(3.9,46,2,852,0)=" . ;"
^XMB(3.9,46,2,853,0)="""RTN"",""IBARXMI"",21,0)"
^XMB(3.9,46,2,854,0)=" . ; call to do query"
^XMB(3.9,46,2,855,0)="""RTN"",""IBARXMI"",22,0)"
^XMB(3.9,46,2,856,0)=" . S IBADT=IB35471(.03)"
^XMB(3.9,46,2,857,0)="""RTN"",""IBARXMI"",23,0)"
^XMB(3.9,46,2,858,0)=" . D BBE^IBARXPFS"
^XMB(3.9,46,2,859,0)="""RTN"",""IBARXMI"",24,0)"
^XMB(3.9,46,2,860,0)=" ;"
^XMB(3.9,46,2,861,0)="""RTN"",""IBARXMI"",25,0)"
^XMB(3.9,46,2,862,0)=" ; call vdef to say done"
^XMB(3.9,46,2,863,0)="""RTN"",""IBARXMI"",26,0)"
^XMB(3.9,46,2,864,0)=" S X=$$QUEUE^VDEFQM(""DFT^P03"",""SUBTYPE=CPFI^IEN=""_DFN,,""PFSS OUTBOUND"")"
^XMB(3.9,46,2,865,0)="""RTN"",""IBARXMI"",27,0)"
^XMB(3.9,46,2,866,0)=" ;"
^XMB(3.9,46,2,867,0)="""RTN"",""IBARXMI"",28,0)"
^XMB(3.9,46,2,868,0)=" Q"
^XMB(3.9,46,2,869,0)="""RTN"",""IBARXMI"",29,0)"
^XMB(3.9,46,2,870,0)=" ;"
^XMB(3.9,46,2,871,0)="""RTN"",""IBARXMI"",30,0)"
^XMB(3.9,46,2,872,0)="BILLVA ; called by HL7 receiver to initiate back billing at a remote VA site."
^XMB(3.9,46,2,873,0)="""RTN"",""IBARXMI"",31,0)"
^XMB(3.9,46,2,874,0)=" ; TYPE = BL"
^XMB(3.9,46,2,875,0)="""RTN"",""IBARXMI"",32,0)"
^XMB(3.9,46,2,876,0)=" ;"
^XMB(3.9,46,2,877,0)="""RTN"",""IBARXMI"",33,0)"
^XMB(3.9,46,2,878,0)=" N IBX,IBRX,IBQ"
^XMB(3.9,46,2,879,0)="""RTN"",""IBARXMI"",34,0)"
^XMB(3.9,46,2,880,0)=" ;"
^XMB(3.9,46,2,881,0)="""RTN"",""IBARXMI"",35,0)"
^XMB(3.9,46,2,882,0)=" ;check out data received from message"
^XMB(3.9,46,2,883,0)="""RTN"",""IBARXMI"",36,0)"
^XMB(3.9,46,2,884,0)=" S IBQ=0 F IBX=.01,.11,.091,.092 I $G(IB35471(IBX))="""" S IBQ=1 Q"
^XMB(3.9,46,2,885,0)="""RTN"",""IBARXMI"",37,0)"
^XMB(3.9,46,2,886,0)=" I IBQ S HLERR=""354.71 field ""_IBX_"" missing"" Q"
^XMB(3.9,46,2,887,0)="""RTN"",""IBARXMI"",38,0)"
^XMB(3.9,46,2,888,0)=" I IB35471(.11)<.01 S HLERR=""Invalid amount to back bill"" Q"
^XMB(3.9,46,2,889,0)="""RTN"",""IBARXMI"",39,0)"
^XMB(3.9,46,2,890,0)=" S IBX=$O(^IBAM(354.71,""B"",IB35471(.01),0)) I 'IBX S HLERR=""Invalid 354.71 transaction number"" Q"
^XMB(3.9,46,2,891,0)="""RTN"",""IBARXMI"",40,0)"
^XMB(3.9,46,2,892,0)=" S IBRX=$O(^PSRX(""B"",IB35471(.091),0)) I 'IBRX S HLERR=""Rx number not found"" Q"
^XMB(3.9,46,2,893,0)="""RTN"",""IBARXMI"",41,0)"
^XMB(3.9,46,2,894,0)=" I '$D(^PSRX(+IBRX,1,IB35471(.092),0)),IB35471(.092) S HLERR=""Refill invalid or not found"" Q"
^XMB(3.9,46,2,895,0)="""RTN"",""IBARXMI"",42,0)"
^XMB(3.9,46,2,896,0)=" ;"
^XMB(3.9,46,2,897,0)="""RTN"",""IBARXMI"",43,0)"
^XMB(3.9,46,2,898,0)=" ;need to set DUZ to pharmacy staff person who caused this to occur DBIA4732 and SACC exemption"
^XMB(3.9,46,2,899,0)="""RTN"",""IBARXMI"",44,0)"
^XMB(3.9,46,2,900,0)=" D"
^XMB(3.9,46,2,901,0)="""RTN"",""IBARXMI"",45,0)"
^XMB(3.9,46,2,902,0)=" . I $G(DUZ)<1,$L($T(RPH^PSOPFSU0)) N DUZ S DUZ=$P($$RPH^PSOPFSU0(IBRX,IB35471(.092)),""^"",2),DUZ(2)=+$$SITE^VASITE"
^XMB(3.9,46,2,903,0)="""RTN"",""IBARXMI"",46,0)"
^XMB(3.9,46,2,904,0)=" . ;"
^XMB(3.9,46,2,905,0)="""RTN"",""IBARXMI"",47,0)"
^XMB(3.9,46,2,906,0)=" . ;call remote site to do back billing for specified $ amount"
^XMB(3.9,46,2,907,0)="""RTN"",""IBARXMI"",48,0)"
^XMB(3.9,46,2,908,0)=" . I +IB35471(.01)'=$P($$SITE^VASITE,""^"",3) D SEND^IBARXMB(IB35471(.01),IB35471(.11)) Q"
^XMB(3.9,46,2,909,0)="""RTN"",""IBARXMI"",49,0)"
^XMB(3.9,46,2,910,0)=" . I +IB35471(.01)=$P($$SITE^VASITE,""^"",3),'$P(^IBAM(354.71,IBX,0),""^"",20) D BILL^IBARXMB(IB35471(.01),IB35471(.11)) Q"
^XMB(3.9,46,2,911,0)="""RTN"",""IBARXMI"",50,0)"
^XMB(3.9,46,2,912,0)=" . S HLERR=""Transaction from local VistA or remote VA site"""
^XMB(3.9,46,2,913,0)="""RTN"",""IBARXMI"",51,0)"
^XMB(3.9,46,2,914,0)=" ;"
^XMB(3.9,46,2,915,0)="""RTN"",""IBARXMI"",52,0)"
^XMB(3.9,46,2,916,0)=" Q"
^XMB(3.9,46,2,917,0)="""RTN"",""IBARXMI"",53,0)"
^XMB(3.9,46,2,918,0)=" ;"
^XMB(3.9,46,2,919,0)="""RTN"",""IBARXMI"",54,0)"
^XMB(3.9,46,2,920,0)="35471 ; files data into 354.71 (TYPE = IN)"
^XMB(3.9,46,2,921,0)="""RTN"",""IBARXMI"",55,0)"
^XMB(3.9,46,2,922,0)=" ; validate data"
^XMB(3.9,46,2,923,0)="""RTN"",""IBARXMI"",56,0)"
^XMB(3.9,46,2,924,0)=" N IBX,IBQ,IBRX,IBARXDAT,IBATYP,IBAM,IBDESC"
^XMB(3.9,46,2,925,0)="""RTN"",""IBARXMI"",57,0)"
^XMB(3.9,46,2,926,0)=" I '$L($T(RPH^PSOPFSU0)) S HLERR=""Pharmacy API not installed"" Q"
^XMB(3.9,46,2,927,0)="""RTN"",""IBARXMI"",58,0)"
^XMB(3.9,46,2,928,0)=" S IBQ=0 F IBX=.01,.03,.05,.07,.08,.091,.1,.11,.12 I $G(IB35471(IBX))="""" S IBQ=1 Q"
^XMB(3.9,46,2,929,0)="""RTN"",""IBARXMI"",59,0)"
^XMB(3.9,46,2,930,0)=" I IBQ S HLERR=""354.71 field ""_IBX_"" missing"" Q"
^XMB(3.9,46,2,931,0)="""RTN"",""IBARXMI"",60,0)"
^XMB(3.9,46,2,932,0)=" ;"
^XMB(3.9,46,2,933,0)="""RTN"",""IBARXMI"",61,0)"
^XMB(3.9,46,2,934,0)=" I $P($$SITE^VASITE,""^"",3)'=+IB35471(.01)!(IB35471(.01)'?3N1""-""1N.N) S HLERR=""354.71 field .01 invalid"" Q"
^XMB(3.9,46,2,935,0)="""RTN"",""IBARXMI"",62,0)"
^XMB(3.9,46,2,936,0)=" I $P($$SITE^VASITE,""^"",3)'=+IB35471(.1)!(IB35471(.1)'?3N1""-""1N.N) S HLERR=""354.71 field .1 invalid"" Q"
^XMB(3.9,46,2,937,0)="""RTN"",""IBARXMI"",63,0)"
^XMB(3.9,46,2,938,0)=" I IB35471(.1)'=IB35471(.01),$O(^IBAM(354.71,""B"",IB35471(.1),0)) S HLERR=""354.71 field .1 is not a valid parent"" Q"
^XMB(3.9,46,2,939,0)="""RTN"",""IBARXMI"",64,0)"
^XMB(3.9,46,2,940,0)=" F IBX=.08,.11,.12 S IB35471(IBX)=+IB35471(IBX)"
^XMB(3.9,46,2,941,0)="""RTN"",""IBARXMI"",65,0)"
^XMB(3.9,46,2,942,0)=" I 'IB35471(.08) S HLERR=""Total Charge in-valid"" Q"
^XMB(3.9,46,2,943,0)="""RTN"",""IBARXMI"",66,0)"
^XMB(3.9,46,2,944,0)=" S IBRX=$O(^PSRX(""B"",IB35471(.091),0)) I 'IBRX S HLERR=""Invalid prescription number"" Q"
^XMB(3.9,46,2,945,0)="""RTN"",""IBARXMI"",67,0)"
^XMB(3.9,46,2,946,0)=" I IB35471(.092),'$D(^PSRX(IBX,1,IB35471(.092),0)) S HLERR=""Invalid fill/refill number"" Q"
^XMB(3.9,46,2,947,0)="""RTN"",""IBARXMI"",68,0)"
^XMB(3.9,46,2,948,0)=" F IBX=.01,.03,.05,.07,.08,.11,.12 D CHK^DIE(354.71,IBX,,IB35471(IBX),.IBQ) I IBQ=""^"" S HLERR=""File 354.71, field ""_IBX_"" does not pass DD check"" Q"
^XMB(3.9,46,2,949,0)="""RTN"",""IBARXMI"",69,0)"
^XMB(3.9,46,2,950,0)=" ;"
^XMB(3.9,46,2,951,0)="""RTN"",""IBARXMI"",70,0)"
^XMB(3.9,46,2,952,0)=" ;look up some needed rx data"
^XMB(3.9,46,2,953,0)="""RTN"",""IBARXMI"",71,0)"
^XMB(3.9,46,2,954,0)=" S IBARXDAT=$$RPH^PSOPFSU0(IBRX,+IB35471(.092))"
^XMB(3.9,46,2,955,0)="""RTN"",""IBARXMI"",72,0)"
^XMB(3.9,46,2,956,0)=" I $P(IBARXDAT,""^"",3)="""" S HLERR=""Bad prescription data"" Q"
^XMB(3.9,46,2,957,0)="""RTN"",""IBARXMI"",73,0)"
^XMB(3.9,46,2,958,0)=" ;"
^XMB(3.9,46,2,959,0)="""RTN"",""IBARXMI"",74,0)"
^XMB(3.9,46,2,960,0)=" ;get brief description"
^XMB(3.9,46,2,961,0)="""RTN"",""IBARXMI"",75,0)"
^XMB(3.9,46,2,962,0)=" S IBX=""52:""_IBRX_$S(IB35471(.092):"";1:""_IB35471(.092),1:"""")_""^""_IB35471(.07)"
^XMB(3.9,46,2,963,0)="""RTN"",""IBARXMI"",76,0)"
^XMB(3.9,46,2,964,0)=" D ELIG^VADPT,INP^VADPT,DOM^IBARX"
^XMB(3.9,46,2,965,0)="""RTN"",""IBARXMI"",77,0)"
^XMB(3.9,46,2,966,0)=" S IBATYP=$O(^IBE(350.1,""ANEW"",$P(IBARXDAT,""^"",3),1,0))"
^XMB(3.9,46,2,967,0)="""RTN"",""IBARXMI"",78,0)"
^XMB(3.9,46,2,968,0)=" D BDESC^IBARX1"
^XMB(3.9,46,2,969,0)="""RTN"",""IBARXMI"",79,0)"
^XMB(3.9,46,2,970,0)=" ;"
^XMB(3.9,46,2,971,0)="""RTN"",""IBARXMI"",80,0)"
^XMB(3.9,46,2,972,0)=" ;need to set DUZ to pharmacy staff person who caused this to occur"
^XMB(3.9,46,2,973,0)="""RTN"",""IBARXMI"",81,0)"
^XMB(3.9,46,2,974,0)=" D"
^XMB(3.9,46,2,975,0)="""RTN"",""IBARXMI"",82,0)"
^XMB(3.9,46,2,976,0)=" . I $G(DUZ)<1 N DUZ S DUZ=$S(IB35471(.05)=""NEW"":$P(IBARXDAT,""^""),1:$P(IBARXDAT,""^"",2)),DUZ(2)=+$$SITE^VASITE"
^XMB(3.9,46,2,977,0)="""RTN"",""IBARXMI"",83,0)"
^XMB(3.9,46,2,978,0)=" . N DIE,DR,DA"
^XMB(3.9,46,2,979,0)="""RTN"",""IBARXMI"",84,0)"
^XMB(3.9,46,2,980,0)=" . ;"
^XMB(3.9,46,2,981,0)="""RTN"",""IBARXMI"",85,0)"
^XMB(3.9,46,2,982,0)=" . ;file in 354.71"
^XMB(3.9,46,2,983,0)="""RTN"",""IBARXMI"",86,0)"
^XMB(3.9,46,2,984,0)=" . S IBAM=$$ADD^IBARXMN(DFN,IB35471(.01)_""^""_DFN_""^""_IB35471(.03)_""^^""_IB35471(.05)_""^""_$P(IBX,""^"")_""^""_IB35471(.07)_""^""_IB35471(.08)_""^""_IBDESC_""^""_IB35471(.1)_""^""_IB35471(.11)_""^""_IB35471(.12)_""^""_$$LKUP^XUAF4(+IB35471(.01)),,1)"
^XMB(3.9,46,2,985,0)="""RTN"",""IBARXMI"",87,0)"
^XMB(3.9,46,2,986,0)=" . S DIE=""^IBAM(354.71,"",DA=IBAM,DR="".2////1"" D ^DIE"
^XMB(3.9,46,2,987,0)="""RTN"",""IBARXMI"",88,0)"
^XMB(3.9,46,2,988,0)=" . ;"
^XMB(3.9,46,2,989,0)="""RTN"",""IBARXMI"",89,0)"
^XMB(3.9,46,2,990,0)=" . ;call to send data to remote sites"
^XMB(3.9,46,2,991,0)="""RTN"",""IBARXMI"",90,0)"
^XMB(3.9,46,2,992,0)=" . D FOUND^IBARXMA(.IBX,IBAM)"
^XMB(3.9,46,2,993,0)="""RTN"",""IBARXMI"",91,0)"
^XMB(3.9,46,2,994,0)=" ;"
^XMB(3.9,46,2,995,0)="""RTN"",""IBARXMI"",92,0)"
^XMB(3.9,46,2,996,0)=" D KVA^VADPT"
^XMB(3.9,46,2,997,0)="""RTN"",""IBARXMI"",93,0)"
^XMB(3.9,46,2,998,0)=" ;"
^XMB(3.9,46,2,999,0)="""RTN"",""IBARXMI"",94,0)"
^XMB(3.9,46,2,1000,0)=" Q"
^XMB(3.9,46,2,1001,0)="""RTN"",""IBARXMI"",95,0)"
^XMB(3.9,46,2,1002,0)=" ;"
^XMB(3.9,46,2,1003,0)="""RTN"",""IBARXMI"",96,0)"
^XMB(3.9,46,2,1004,0)="351 ; files data in 351 (MT type)"
^XMB(3.9,46,2,1005,0)="""RTN"",""IBARXMI"",97,0)"
^XMB(3.9,46,2,1006,0)=" ;"
^XMB(3.9,46,2,1007,0)="""RTN"",""IBARXMI"",98,0)"
^XMB(3.9,46,2,1008,0)=" N IBQ,IBX,DIC,DIE,DR,X,Y,DA,DO"
^XMB(3.9,46,2,1009,0)="""RTN"",""IBARXMI"",99,0)"
^XMB(3.9,46,2,1010,0)=" ;"
^XMB(3.9,46,2,1011,0)="""RTN"",""IBARXMI"",100,0)"
^XMB(3.9,46,2,1012,0)=" ;validate data"
^XMB(3.9,46,2,1013,0)="""RTN"",""IBARXMI"",101,0)"
^XMB(3.9,46,2,1014,0)=" S IBQ=0 F IBX=.03,.04,.05,.06,.07,.08,.09,.1 I $G(IB351(IBX))="""" S IBQ=1 Q"
^XMB(3.9,46,2,1015,0)="""RTN"",""IBARXMI"",102,0)"
^XMB(3.9,46,2,1016,0)=" I IBQ S HLERR=""351 field ""_IBX_"" missing"" Q"
^XMB(3.9,46,2,1017,0)="""RTN"",""IBARXMI"",103,0)"
^XMB(3.9,46,2,1018,0)=" I '$G(IB35471(.01)) S HLERR=""Clock file number missing or invalid"" Q"
^XMB(3.9,46,2,1019,0)="""RTN"",""IBARXMI"",104,0)"
^XMB(3.9,46,2,1020,0)=" S IB351(.01)=IB35471(.01)"
^XMB(3.9,46,2,1021,0)="""RTN"",""IBARXMI"",105,0)"
^XMB(3.9,46,2,1022,0)=" F IBX=.01,.03,.04,.05,.06,.07,.08,.09,.1 D CHK^DIE(351,IBX,,IB351(IBX),.IBQ) I IBQ=""^"" S HLERR=""File 351, field ""_IBX_"" does not pass DD check"" Q"
^XMB(3.9,46,2,1023,0)="""RTN"",""IBARXMI"",106,0)"
^XMB(3.9,46,2,1024,0)=" ;"
^XMB(3.9,46,2,1025,0)="""RTN"",""IBARXMI"",107,0)"
^XMB(3.9,46,2,1026,0)=" ; see if clock already exists or add"
^XMB(3.9,46,2,1027,0)="""RTN"",""IBARXMI"",108,0)"
^XMB(3.9,46,2,1028,0)=" S IBX=$O(^IBE(351,""B"",IB35471(.01),0))"
^XMB(3.9,46,2,1029,0)="""RTN"",""IBARXMI"",109,0)"
^XMB(3.9,46,2,1030,0)=" I 'IBX S DIC=""^IBE(351,"",X=IB351(.01),DIC(0)="""",DIC(""DR"")="".02////^S X=DFN;11////""_$S($D(DUZ):DUZ,1:.5)_"";12///NOW;13////""_$S($D(DUZ):DUZ,1:.5)_"";14///NOW"" K DO D FILE^DICN S IBX=+Y"
^XMB(3.9,46,2,1031,0)="""RTN"",""IBARXMI"",110,0)"
^XMB(3.9,46,2,1032,0)=" I DFN'=$P($G(^IBE(351,IBX,0)),""^"",2) S HLERR=""Patient does not match clock file entry"" Q"
^XMB(3.9,46,2,1033,0)="""RTN"",""IBARXMI"",111,0)"
^XMB(3.9,46,2,1034,0)=" ;"
^XMB(3.9,46,2,1035,0)="""RTN"",""IBARXMI"",112,0)"
^XMB(3.9,46,2,1036,0)=" ; file data received"
^XMB(3.9,46,2,1037,0)="""RTN"",""IBARXMI"",113,0)"
^XMB(3.9,46,2,1038,0)=" S DIE=""^IBE(351,"",DA=IBX,DR="".04///^S X=IB351(.04);13////""_$S($D(DUZ):DUZ,1:.5)_"";14///NOW"" F X=.03,.05,.06,.07,.08,.09,.1 S DR=DR_"";""_X_""////""_+IB351(X)"
^XMB(3.9,46,2,1039,0)="""RTN"",""IBARXMI"",114,0)"
^XMB(3.9,46,2,1040,0)=" D ^DIE"
^XMB(3.9,46,2,1041,0)="""RTN"",""IBARXMI"",115,0)"
^XMB(3.9,46,2,1042,0)=" Q"
^XMB(3.9,46,2,1043,0)="""RTN"",""IBARXMI"",116,0)"
^XMB(3.9,46,2,1044,0)=" ;"
^XMB(3.9,46,2,1045,0)="""RTN"",""IBARXMI"",117,0)"
^XMB(3.9,46,2,1046,0)="35181 ; files data in 351.81 (LB type)"
^XMB(3.9,46,2,1047,0)="""RTN"",""IBARXMI"",118,0)"
^XMB(3.9,46,2,1048,0)=" ;"
^XMB(3.9,46,2,1049,0)="""RTN"",""IBARXMI"",119,0)"
^XMB(3.9,46,2,1050,0)=" N IBQ,IBX,DIC,DIE,DR,X,Y,IBY,DA,DO,DIK,IBLTCX"
^XMB(3.9,46,2,1051,0)="""RTN"",""IBARXMI"",120,0)"
^XMB(3.9,46,2,1052,0)=" ;"
^XMB(3.9,46,2,1053,0)="""RTN"",""IBARXMI"",121,0)"
^XMB(3.9,46,2,1054,0)=" ;validate data"
^XMB(3.9,46,2,1055,0)="""RTN"",""IBARXMI"",122,0)"
^XMB(3.9,46,2,1056,0)=" S IBQ=0 F IBX=.03,.04,.05 I $G(IB35181(IBX))="""" S IBQ=1 Q"
^XMB(3.9,46,2,1057,0)="""RTN"",""IBARXMI"",123,0)"
^XMB(3.9,46,2,1058,0)=" I IBQ S HLERR=""351.81 field ""_IBX_"" missing"" Q"
^XMB(3.9,46,2,1059,0)="""RTN"",""IBARXMI"",124,0)"
^XMB(3.9,46,2,1060,0)=" I '$G(IB35471(.01)) S HLERR=""LTC Clock file number missing or invalid"" Q"
^XMB(3.9,46,2,1061,0)="""RTN"",""IBARXMI"",125,0)"
^XMB(3.9,46,2,1062,0)=" S IB35181(.01)=IB35471(.01)"
^XMB(3.9,46,2,1063,0)="""RTN"",""IBARXMI"",126,0)"
^XMB(3.9,46,2,1064,0)=" F IBX=.01,.03,.04,.05 D CHK^DIE(351.81,IBX,,IB35181(IBX),.IBQ) I IBQ=""^"" S HLERR=""File 351.81, field ""_IBX_"" does not pass DD check"" Q"
^XMB(3.9,46,2,1065,0)="""RTN"",""IBARXMI"",127,0)"
^XMB(3.9,46,2,1066,0)=" S IBX=0 F  S IBX=$O(IBMTDT21(IBX)) Q:'IBX  D CHK^DIE(351.811,.02,,IBMTDT21(IBX),.IBQ)  I IBQ=""^"" S HLERR=""LTC Exempt date ""_IBMTDT21(IBX)_"" does not pass DD check"" Q"
^XMB(3.9,46,2,1067,0)="""RTN"",""IBARXMI"",128,0)"
^XMB(3.9,46,2,1068,0)=" ;"
^XMB(3.9,46,2,1069,0)="""RTN"",""IBARXMI"",129,0)"
^XMB(3.9,46,2,1070,0)=" ; see if clock already exists or add"
^XMB(3.9,46,2,1071,0)="""RTN"",""IBARXMI"",130,0)"
^XMB(3.9,46,2,1072,0)=" S IBX=$O(^IBA(351.81,""B"",IB35181(.01),0))"
^XMB(3.9,46,2,1073,0)="""RTN"",""IBARXMI"",131,0)"
^XMB(3.9,46,2,1074,0)=" I 'IBX S DIC=""^IBA(351.81,"",X=IB35181(.01),DIC(0)="""",DIC(""DR"")="".02////^S X=DFN;4.01////""_$S($D(DUZ):DUZ,1:.5)_"";4.02///NOW;4.03////""_$S($D(DUZ):DUZ,1:.5)_"";4.04///NOW"" K DO D FILE^DICN S IBX=+Y"
^XMB(3.9,46,2,1075,0)="""RTN"",""IBARXMI"",132,0)"
^XMB(3.9,46,2,1076,0)=" I DFN'=$P($G(^IBA(351.81,IBX,0)),""^"",2) S HLERR=""Patient does not match LTC clock file entry"" Q"
^XMB(3.9,46,2,1077,0)="""RTN"",""IBARXMI"",133,0)"
^XMB(3.9,46,2,1078,0)=" ;"
^XMB(3.9,46,2,1079,0)="""RTN"",""IBARXMI"",134,0)"
^XMB(3.9,46,2,1080,0)=" ; file top level file data received"
^XMB(3.9,46,2,1081,0)="""RTN"",""IBARXMI"",135,0)"
^XMB(3.9,46,2,1082,0)=" S DIE=""^IBA(351.81,"",DA=IBX,DR=""4.03////""_$S($D(DUZ):DUZ,1:.5)_"";4.04///NOW"" F X=.03,.04,.05 S DR=DR_"";""_X_""////""_+IB35181(X)"
^XMB(3.9,46,2,1083,0)="""RTN"",""IBARXMI"",136,0)"
^XMB(3.9,46,2,1084,0)=" D ^DIE"
^XMB(3.9,46,2,1085,0)="""RTN"",""IBARXMI"",137,0)"
^XMB(3.9,46,2,1086,0)=" ;"
^XMB(3.9,46,2,1087,0)="""RTN"",""IBARXMI"",138,0)"
^XMB(3.9,46,2,1088,0)=" ; clean out 21 days and re-file based on data received"
^XMB(3.9,46,2,1089,0)="""RTN"",""IBARXMI"",139,0)"
^XMB(3.9,46,2,1090,0)=" S DIK=""^IBA(351.81,""_IBX_"",1,"",DA(1)=IBX,IBY=0 F  S IBY=$O(^IBA(351.81,IBX,1,IBY)) Q:'IBY  S DA=IBY D ^DIK"
^XMB(3.9,46,2,1091,0)="""RTN"",""IBARXMI"",140,0)"
^XMB(3.9,46,2,1092,0)=" S DIC=DIK,DIC(0)="""",IBY=0 F  S IBY=$O(IBMTDT21(IBY)) Q:'IBY  S X=IBY,DIC(""DR"")="".02////^S X=IBMTDT21(IBY)"" K DO D FILE^DICN"
^XMB(3.9,46,2,1093,0)="""RTN"",""IBARXMI"",141,0)"
^XMB(3.9,46,2,1094,0)=" S IBLTCX=IBX D REINDEX^IBAECC"
^XMB(3.9,46,2,1095,0)="""RTN"",""IBARXMI"",142,0)"
^XMB(3.9,46,2,1096,0)=" ;"
^XMB(3.9,46,2,1097,0)="""RTN"",""IBARXMI"",143,0)"
^XMB(3.9,46,2,1098,0)=" Q"
^XMB(3.9,46,2,1099,0)="""RTN"",""IBARXMI"",144,0)"
^XMB(3.9,46,2,1100,0)=" ;"
^XMB(3.9,46,2,1101,0)="""RTN"",""IBARXMI"",145,0)"
^XMB(3.9,46,2,1102,0)="350 ; files data in 350 (ML type)"
^XMB(3.9,46,2,1103,0)="""RTN"",""IBARXMI"",146,0)"
^XMB(3.9,46,2,1104,0)=" N IBQ,IBX,DIC,DIE,DR,X,Y,IBY,DA,DO,IBDESC"
^XMB(3.9,46,2,1105,0)="""RTN"",""IBARXMI"",147,0)"
^XMB(3.9,46,2,1106,0)=" ;"
^XMB(3.9,46,2,1107,0)="""RTN"",""IBARXMI"",148,0)"
^XMB(3.9,46,2,1108,0)=" ; do i have data"
^XMB(3.9,46,2,1109,0)="""RTN"",""IBARXMI"",149,0)"
^XMB(3.9,46,2,1110,0)=" S IBQ=0 F IBX=""TYP"",""IO"",""BS"",""EDT"",.06,.07,.17,.14,.15,.05,""IDX"" I $G(IB350(IBX))="""" S IBQ=1 Q"
^XMB(3.9,46,2,1111,0)="""RTN"",""IBARXMI"",150,0)"
^XMB(3.9,46,2,1112,0)=" I IBQ S HLERR=""350 field ""_IBX_"" missing"" Q"
^XMB(3.9,46,2,1113,0)="""RTN"",""IBARXMI"",151,0)"
^XMB(3.9,46,2,1114,0)=" I $G(IB35471(.01))="""" S HLERR=""350 field .01 mssing"" Q"
^XMB(3.9,46,2,1115,0)="""RTN"",""IBARXMI"",152,0)"
^XMB(3.9,46,2,1116,0)=" ;"
^XMB(3.9,46,2,1117,0)="""RTN"",""IBARXMI"",153,0)"
^XMB(3.9,46,2,1118,0)=" ;determine action type"
^XMB(3.9,46,2,1119,0)="""RTN"",""IBARXMI"",154,0)"
^XMB(3.9,46,2,1120,0)=" S IB350(.03)=$$ATYPE(IB350(""TYP""),IB350(""IO""),IB350(""BS"")) I IB350(.03)=-1 S HLERR=""Unable to determine Action Type"" Q"
^XMB(3.9,46,2,1121,0)="""RTN"",""IBARXMI"",155,0)"
^XMB(3.9,46,2,1122,0)=" S IB350(.03)=$O(^IBE(350.1,""B"",IB350(.03),0)) I 'IB350(.03) S HLERR=""Action Type not found in 350.1"" Q"
^XMB(3.9,46,2,1123,0)="""RTN"",""IBARXMI"",156,0)"
^XMB(3.9,46,2,1124,0)=" ;"
^XMB(3.9,46,2,1125,0)="""RTN"",""IBARXMI"",157,0)"
^XMB(3.9,46,2,1126,0)=" ;determine brief description if any"
^XMB(3.9,46,2,1127,0)="""RTN"",""IBARXMI"",158,0)"
^XMB(3.9,46,2,1128,0)=" I $D(^IBE(350.1,IB350(.03),20)) X ^(20)"
^XMB(3.9,46,2,1129,0)="""RTN"",""IBARXMI"",159,0)"
^XMB(3.9,46,2,1130,0)=" ;"
^XMB(3.9,46,2,1131,0)="""RTN"",""IBARXMI"",160,0)"
^XMB(3.9,46,2,1132,0)=" ;determine institution (defualt to here if not known)"
^XMB(3.9,46,2,1133,0)="""RTN"",""IBARXMI"",161,0)"
^XMB(3.9,46,2,1134,0)=" S IB350(.13)=$S($D(IBINST):$$LKUP^XUAF4(IBINST),1:+$$SITE^VASITE)"
^XMB(3.9,46,2,1135,0)="""RTN"",""IBARXMI"",162,0)"
^XMB(3.9,46,2,1136,0)=" ;"
^XMB(3.9,46,2,1137,0)="""RTN"",""IBARXMI"",163,0)"
^XMB(3.9,46,2,1138,0)=" ;determine clinic stop if needed"
^XMB(3.9,46,2,1139,0)="""RTN"",""IBARXMI"",164,0)"
^XMB(3.9,46,2,1140,0)=" I IB350(""IO"")=""O"" S IB350(.2)=$$GET3525^IBEMTSCU($E($G(IB350(.2)),1,3),$E($G(IB350(.2)),4,6),IB350(.17)) I 'IB350(.2) S HLERR=""Unable to find valid clinic stop code in 352.5"" Q"
^XMB(3.9,46,2,1141,0)="""RTN"",""IBARXMI"",165,0)"
^XMB(3.9,46,2,1142,0)=" ;"
^XMB(3.9,46,2,1143,0)="""RTN"",""IBARXMI"",166,0)"
^XMB(3.9,46,2,1144,0)=" ;check out data"
^XMB(3.9,46,2,1145,0)="""RTN"",""IBARXMI"",167,0)"
^XMB(3.9,46,2,1146,0)=" S IB350(.01)=IB35471(.01)"
^XMB(3.9,46,2,1147,0)="""RTN"",""IBARXMI"",168,0)"
^XMB(3.9,46,2,1148,0)=" F IBX=.01,.06,.07,.17,.14,.15,.05 D CHK^DIE(350,IBX,,IB350(IBX),.IBQ) I IBQ=""^"" S HLERR=""File 350, field ""_IBX_"" does not pass DD check"" Q"
^XMB(3.9,46,2,1149,0)="""RTN"",""IBARXMI"",169,0)"
^XMB(3.9,46,2,1150,0)=" I $L($G(HLERR)) Q"
^XMB(3.9,46,2,1151,0)="""RTN"",""IBARXMI"",170,0)"
^XMB(3.9,46,2,1152,0)=" S IB350(.22)=$O(^IBBAA(375,""C"",IB350(""IDX""),0)) I 'IB350(.22) S HLERR=""PFSS Account Number not found"" Q"
^XMB(3.9,46,2,1153,0)="""RTN"",""IBARXMI"",171,0)"
^XMB(3.9,46,2,1154,0)=" ;"
^XMB(3.9,46,2,1155,0)="""RTN"",""IBARXMI"",172,0)"
^XMB(3.9,46,2,1156,0)=" ;see if already exists or add"
^XMB(3.9,46,2,1157,0)="""RTN"",""IBARXMI"",173,0)"
^XMB(3.9,46,2,1158,0)=" S IBX=$O(^IB(""B"",IB350(.01),0))"
^XMB(3.9,46,2,1159,0)="""RTN"",""IBARXMI"",174,0)"
^XMB(3.9,46,2,1160,0)=" I 'IBX S DIC=""^IB("",X=IB350(.01),DIC(0)="""",DIC(""DR"")="".02////^S X=DFN;11////""_$S($D(DUZ):DUZ,1:.5)_"";12///NOW;13////""_$S($D(DUZ):DUZ,1:.5)_"";14///NOW"" K DO D FILE^DICN S IBX=+Y"
^XMB(3.9,46,2,1161,0)="""RTN"",""IBARXMI"",175,0)"
^XMB(3.9,46,2,1162,0)=" I DFN'=$P($G(^IB(IBX,0)),""^"",2) S HLERR=""Patient does not match IB file entry"" Q"
^XMB(3.9,46,2,1163,0)="""RTN"",""IBARXMI"",176,0)"
^XMB(3.9,46,2,1164,0)=" ;"
^XMB(3.9,46,2,1165,0)="""RTN"",""IBARXMI"",177,0)"
^XMB(3.9,46,2,1166,0)=" ;file data"
^XMB(3.9,46,2,1167,0)="""RTN"",""IBARXMI"",178,0)"
^XMB(3.9,46,2,1168,0)=" S DIE=""^IB("",DA=IBX,DR="".05///^S X=IB350(.05);13////""_$S($D(DUZ):DUZ,1:.5)_"";14///NOW""_$S(IB350(""IO"")=""O"":"";.2////^S X=IB350(.2)"",1:"""")_$S($D(IBDESC):"";.08////^S X=IBDESC"",1:"""")"
^XMB(3.9,46,2,1169,0)="""RTN"",""IBARXMI"",179,0)"
^XMB(3.9,46,2,1170,0)=" F IBY=.03,.06,.07,.13,.17,.14,.15,.22 S:'$L($P(^IB(IBX,0),""^"",IBY*100)) DR=DR_"";""_IBY_""////""_(+IB350(IBY))"
^XMB(3.9,46,2,1171,0)="""RTN"",""IBARXMI"",180,0)"
^XMB(3.9,46,2,1172,0)=" D ^DIE"
^XMB(3.9,46,2,1173,0)="""RTN"",""IBARXMI"",181,0)"
^XMB(3.9,46,2,1174,0)=" ;"
^XMB(3.9,46,2,1175,0)="""RTN"",""IBARXMI"",182,0)"
^XMB(3.9,46,2,1176,0)=" Q"
^XMB(3.9,46,2,1177,0)="""RTN"",""IBARXMI"",183,0)"
^XMB(3.9,46,2,1178,0)=" ;"
^XMB(3.9,46,2,1179,0)="""RTN"",""IBARXMI"",184,0)"
^XMB(3.9,46,2,1180,0)="ERR ; trans type not found, set error"
^XMB(3.9,46,2,1181,0)="""RTN"",""IBARXMI"",185,0)"
^XMB(3.9,46,2,1182,0)=" S HLERR=""Transaction Type field not valid (.6)."""
^XMB(3.9,46,2,1183,0)="""RTN"",""IBARXMI"",186,0)"
^XMB(3.9,46,2,1184,0)=" Q"
^XMB(3.9,46,2,1185,0)="""RTN"",""IBARXMI"",187,0)"
^XMB(3.9,46,2,1186,0)=" ;"
^XMB(3.9,46,2,1187,0)="""RTN"",""IBARXMI"",188,0)"
^XMB(3.9,46,2,1188,0)="ATYPE(IBTYP,IBIO,IBBS) ; used to determine action type"
^XMB(3.9,46,2,1189,0)="""RTN"",""IBARXMI"",189,0)"
^XMB(3.9,46,2,1190,0)=" I IBTYP=""MT"",IBIO=""O"" Q ""DG OPT COPAY NEW"""
^XMB(3.9,46,2,1191,0)="""RTN"",""IBARXMI"",190,0)"
^XMB(3.9,46,2,1192,0)=" I IBTYP=""MT"",IBIO=""I"" Q ""DG INPT COPAY (""_IBBS_"") NEW"""
^XMB(3.9,46,2,1193,0)="""RTN"",""IBARXMI"",191,0)"
^XMB(3.9,46,2,1194,0)=" I IBTYP=""GMT"",IBIO=""I"" Q ""DG INPT COPAY (""_IBBS_"") NEW"""
^XMB(3.9,46,2,1195,0)="""RTN"",""IBARXMI"",192,0)"
^XMB(3.9,46,2,1196,0)=" I IBTYP=""LTC"",IBIO=""O"" Q ""DG LTC OPT ""_IBBS_"" NEW"""
^XMB(3.9,46,2,1197,0)="""RTN"",""IBARXMI"",193,0)"
^XMB(3.9,46,2,1198,0)=" I IBTYP=""LTC"",IBIO=""I"" Q ""DG LTC INPT ""_IBBS_"" NEW"""
^XMB(3.9,46,2,1199,0)="""RTN"",""IBARXMI"",194,0)"
^XMB(3.9,46,2,1200,0)=" I IBTYP=""FEE"",IBIO=""O"" Q ""DG FEE SERVICE (OPT) NEW"""
^XMB(3.9,46,2,1201,0)="""RTN"",""IBARXMI"",195,0)"
^XMB(3.9,46,2,1202,0)=" I IBTYP=""FEE"",IBIO=""I"" Q ""DG FEE SERVICE (INPT) NEW"""
^XMB(3.9,46,2,1203,0)="""RTN"",""IBARXMI"",196,0)"
^XMB(3.9,46,2,1204,0)=" I IBTYP=""LTC FEE"",IBIO=""O"" Q ""DG LTC FEE OPT ""_IBBS_"" NEW"""
^XMB(3.9,46,2,1205,0)="""RTN"",""IBARXMI"",197,0)"
^XMB(3.9,46,2,1206,0)=" I IBTYP=""LTC FEE"",IBIO=""I"" Q ""DG LTC FEE INPT ""_IBBS_"" NEW"""
^XMB(3.9,46,2,1207,0)="""RTN"",""IBARXMI"",198,0)"
^XMB(3.9,46,2,1208,0)=" I IBTYP=""MT PERDIEM"" Q ""DG INPT PER DIEM NEW"""
^XMB(3.9,46,2,1209,0)="""RTN"",""IBARXMI"",199,0)"
^XMB(3.9,46,2,1210,0)=" I IBTYP=""MT"",IBBS=""OBS"" Q ""DG OBSERVATION COPAY NEW"""
^XMB(3.9,46,2,1211,0)="""RTN"",""IBARXMI"",200,0)"
^XMB(3.9,46,2,1212,0)=" I IBTYP=""CHAMPUS"",IBIO=""O"" Q ""DG TRICARE OPT COPAY NEW"""
^XMB(3.9,46,2,1213,0)="""RTN"",""IBARXMI"",201,0)"
^XMB(3.9,46,2,1214,0)=" I IBTYP=""CHAMPUS"",IBIO=""I"" Q ""DG TRICARE INPT COPAY NEW"""
^XMB(3.9,46,2,1215,0)="""RTN"",""IBARXMI"",202,0)"
^XMB(3.9,46,2,1216,0)=" Q -1"
^XMB(3.9,46,2,1217,0)="""RTN"",""IBARXMI"",203,0)"
^XMB(3.9,46,2,1218,0)=" ;"
^XMB(3.9,46,2,1219,0)="""RTN"",""IBARXMN"")"
^XMB(3.9,46,2,1220,0)="0^3^B37752322^B32880126"
^XMB(3.9,46,2,1221,0)="""RTN"",""IBARXMN"",1,0)"
^XMB(3.9,46,2,1222,0)="IBARXMN ;LL/ELZ-PHARMCAY COPAY CAP RX PROCESSING ;17-NOV-2000"
^XMB(3.9,46,2,1223,0)="""RTN"",""IBARXMN"",2,0)"
^XMB(3.9,46,2,1224,0)=" ;;2.0;INTEGRATED BILLING;**150,158,156,186,308**;21-MAR-94"
^XMB(3.9,46,2,1225,0)="""RTN"",""IBARXMN"",3,0)"
^XMB(3.9,46,2,1226,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,46,2,1227,0)="""RTN"",""IBARXMN"",4,0)"
^XMB(3.9,46,2,1228,0)=" ;"
^XMB(3.9,46,2,1229,0)="""RTN"",""IBARXMN"",5,0)"
^XMB(3.9,46,2,1230,0)="TRACK(DFN) ; checks out patient if tracked already"
^XMB(3.9,46,2,1231,0)="""RTN"",""IBARXMN"",6,0)"
^XMB(3.9,46,2,1232,0)=" I '$D(^IBAM(354.7,DFN,0)) D QUERY(DFN,$E(DT,1,5)_""00"")"
^XMB(3.9,46,2,1233,0)="""RTN"",""IBARXMN"",7,0)"
^XMB(3.9,46,2,1234,0)=" Q"
^XMB(3.9,46,2,1235,0)="""RTN"",""IBARXMN"",8,0)"
^XMB(3.9,46,2,1236,0)=" ;"
^XMB(3.9,46,2,1237,0)="""RTN"",""IBARXMN"",9,0)"
^XMB(3.9,46,2,1238,0)="QUERY(DFN,IBDT) ; if there are treating facilities, perform query"
^XMB(3.9,46,2,1239,0)="""RTN"",""IBARXMN"",10,0)"
^XMB(3.9,46,2,1240,0)=" N IBT,IBX,IBS,IBD,IBB,DIE,DA,DR,X,IBA,IBP,IBZ,IBY,IBFD,IBTD"
^XMB(3.9,46,2,1241,0)="""RTN"",""IBARXMN"",11,0)"
^XMB(3.9,46,2,1242,0)=" S IBB=0,IBP=$$PRIORITY^IBARXMU(DFN)"
^XMB(3.9,46,2,1243,0)="""RTN"",""IBARXMN"",12,0)"
^XMB(3.9,46,2,1244,0)=" D ADD^IBARXMU(DFN) Q:'IBP"
^XMB(3.9,46,2,1245,0)="""RTN"",""IBARXMN"",13,0)"
^XMB(3.9,46,2,1246,0)=" S IBT=$$TFL^IBARXMU(DFN,.IBT) Q:'IBT"
^XMB(3.9,46,2,1247,0)="""RTN"",""IBARXMN"",14,0)"
^XMB(3.9,46,2,1248,0)=" D CAP^IBARXMC(IBDT,IBP,.IBZ,.IBY,.IBFD,.IBTD) I 'IBY,'IBZ Q"
^XMB(3.9,46,2,1249,0)="""RTN"",""IBARXMN"",15,0)"
^XMB(3.9,46,2,1250,0)=" I 'IBFD!('IBTD) Q"
^XMB(3.9,46,2,1251,0)="""RTN"",""IBARXMN"",16,0)"
^XMB(3.9,46,2,1252,0)=" W !!,""This patient has never had billing information tracked before"",!,""Now querying other facilities..."""
^XMB(3.9,46,2,1253,0)="""RTN"",""IBARXMN"",17,0)"
^XMB(3.9,46,2,1254,0)=" S IBX=0 F  S IBX=$O(IBT(IBX)) Q:IBX<1  W !,""Now sending query to "",$P(IBT(IBX),""^"",2),"" ..."" D"
^XMB(3.9,46,2,1255,0)="""RTN"",""IBARXMN"",18,0)"
^XMB(3.9,46,2,1256,0)=" . ;"
^XMB(3.9,46,2,1257,0)="""RTN"",""IBARXMN"",19,0)"
^XMB(3.9,46,2,1258,0)=" . ; need to query every month in the cap billing period"
^XMB(3.9,46,2,1259,0)="""RTN"",""IBARXMN"",20,0)"
^XMB(3.9,46,2,1260,0)=" . S IBDT=IBFD D  F  S IBDT=$$NEXTMO^IBARXMC(IBDT) Q:IBDT>IBTD  D"
^XMB(3.9,46,2,1261,0)="""RTN"",""IBARXMN"",21,0)"
^XMB(3.9,46,2,1262,0)=" .. D UQUERY^IBARXMU(DFN,$E(IBDT,1,5)_""00"",IBX,.IBD)"
^XMB(3.9,46,2,1263,0)="""RTN"",""IBARXMN"",22,0)"
^XMB(3.9,46,2,1264,0)=" .. ;"
^XMB(3.9,46,2,1265,0)="""RTN"",""IBARXMN"",23,0)"
^XMB(3.9,46,2,1266,0)=" .. ; error returned"
^XMB(3.9,46,2,1267,0)="""RTN"",""IBARXMN"",24,0)"
^XMB(3.9,46,2,1268,0)=" .. I -1=+$G(IBD,""-1"") Q"
^XMB(3.9,46,2,1269,0)="""RTN"",""IBARXMN"",25,0)"
^XMB(3.9,46,2,1270,0)=" .. ;"
^XMB(3.9,46,2,1271,0)="""RTN"",""IBARXMN"",26,0)"
^XMB(3.9,46,2,1272,0)=" .. ; loop through query and file data"
^XMB(3.9,46,2,1273,0)="""RTN"",""IBARXMN"",27,0)"
^XMB(3.9,46,2,1274,0)=" .. S X=0 F  S X=$O(IBD(X)) Q:X<1  S:$E(IBD(X),1,4)=+IBT(IBX)_""-"" IBA=$$ADD(DFN,IBD(X)),IBB=IBB+$P(IBD(X),""^"",11)"
^XMB(3.9,46,2,1275,0)="""RTN"",""IBARXMN"",28,0)"
^XMB(3.9,46,2,1276,0)=" .. K IBD"
^XMB(3.9,46,2,1277,0)="""RTN"",""IBARXMN"",29,0)"
^XMB(3.9,46,2,1278,0)=" ;"
^XMB(3.9,46,2,1279,0)="""RTN"",""IBARXMN"",30,0)"
^XMB(3.9,46,2,1280,0)=" Q"
^XMB(3.9,46,2,1281,0)="""RTN"",""IBARXMN"",31,0)"
^XMB(3.9,46,2,1282,0)=" ;"
^XMB(3.9,46,2,1283,0)="""RTN"",""IBARXMN"",32,0)"
^XMB(3.9,46,2,1284,0)="ACCT(DFN,IBB,IBU,IBDT,IBS) ; - update amount in patient account"
^XMB(3.9,46,2,1285,0)="""RTN"",""IBARXMN"",33,0)"
^XMB(3.9,46,2,1286,0)=" ; IBB = amount to be added to pt account (billed)"
^XMB(3.9,46,2,1287,0)="""RTN"",""IBARXMN"",34,0)"
^XMB(3.9,46,2,1288,0)=" ; IBU = amount to be added to pt account (not billable)"
^XMB(3.9,46,2,1289,0)="""RTN"",""IBARXMN"",35,0)"
^XMB(3.9,46,2,1290,0)=" ; IBDT = effective date for amount"
^XMB(3.9,46,2,1291,0)="""RTN"",""IBARXMN"",36,0)"
^XMB(3.9,46,2,1292,0)=" ; IBS = flag, if passed the amounts are totals not to be added to what is already there"
^XMB(3.9,46,2,1293,0)="""RTN"",""IBARXMN"",37,0)"
^XMB(3.9,46,2,1294,0)=" ;"
^XMB(3.9,46,2,1295,0)="""RTN"",""IBARXMN"",38,0)"
^XMB(3.9,46,2,1296,0)=" N DIE,DR,DO,DIC,DA,Y,IBA"
^XMB(3.9,46,2,1297,0)="""RTN"",""IBARXMN"",39,0)"
^XMB(3.9,46,2,1298,0)=" ;"
^XMB(3.9,46,2,1299,0)="""RTN"",""IBARXMN"",40,0)"
^XMB(3.9,46,2,1300,0)=" S DA(1)=DFN,IBDT=$E(IBDT,1,5)_""00"""
^XMB(3.9,46,2,1301,0)="""RTN"",""IBARXMN"",41,0)"
^XMB(3.9,46,2,1302,0)=" ;"
^XMB(3.9,46,2,1303,0)="""RTN"",""IBARXMN"",42,0)"
^XMB(3.9,46,2,1304,0)=" ; check to see if there is already that mo/year there and add if not"
^XMB(3.9,46,2,1305,0)="""RTN"",""IBARXMN"",43,0)"
^XMB(3.9,46,2,1306,0)=" S DA=$O(^IBAM(354.7,DFN,1,""B"",IBDT,0))"
^XMB(3.9,46,2,1307,0)="""RTN"",""IBARXMN"",44,0)"
^XMB(3.9,46,2,1308,0)=" I 'DA S DIC=""^IBAM(354.7,""_DFN_"",1,"",DIC(0)="""",X=IBDT D FILE^DICN S DA=+Y"
^XMB(3.9,46,2,1309,0)="""RTN"",""IBARXMN"",45,0)"
^XMB(3.9,46,2,1310,0)=" ;"
^XMB(3.9,46,2,1311,0)="""RTN"",""IBARXMN"",46,0)"
^XMB(3.9,46,2,1312,0)=" ; now edit and add the new amount"
^XMB(3.9,46,2,1313,0)="""RTN"",""IBARXMN"",47,0)"
^XMB(3.9,46,2,1314,0)=" S IBA=^IBAM(354.7,DFN,1,DA,0)"
^XMB(3.9,46,2,1315,0)="""RTN"",""IBARXMN"",48,0)"
^XMB(3.9,46,2,1316,0)=" S:'$D(IBS) IBB=IBB+$P(IBA,""^"",2),IBU=IBU+$P(IBA,""^"",4)"
^XMB(3.9,46,2,1317,0)="""RTN"",""IBARXMN"",49,0)"
^XMB(3.9,46,2,1318,0)=" L +^IBAM(354.7,DFN):10 I '$T Q"
^XMB(3.9,46,2,1319,0)="""RTN"",""IBARXMN"",50,0)"
^XMB(3.9,46,2,1320,0)=" S DIE=""^IBAM(354.7,""_DFN_"",1,"",DR="".02///^S X=IBB;.04///^S X=IBU"""
^XMB(3.9,46,2,1321,0)="""RTN"",""IBARXMN"",51,0)"
^XMB(3.9,46,2,1322,0)=" D ^DIE L -^IBAM(354.7,DFN)"
^XMB(3.9,46,2,1323,0)="""RTN"",""IBARXMN"",52,0)"
^XMB(3.9,46,2,1324,0)=" ;"
^XMB(3.9,46,2,1325,0)="""RTN"",""IBARXMN"",53,0)"
^XMB(3.9,46,2,1326,0)=" D FLAG^IBARXMC(DFN,IBDT)"
^XMB(3.9,46,2,1327,0)="""RTN"",""IBARXMN"",54,0)"
^XMB(3.9,46,2,1328,0)=" ;"
^XMB(3.9,46,2,1329,0)="""RTN"",""IBARXMN"",55,0)"
^XMB(3.9,46,2,1330,0)=" Q"
^XMB(3.9,46,2,1331,0)="""RTN"",""IBARXMN"",56,0)"
^XMB(3.9,46,2,1332,0)=" ;"
^XMB(3.9,46,2,1333,0)="""RTN"",""IBARXMN"",57,0)"
^XMB(3.9,46,2,1334,0)="UPCHG(IBX,IBU,IBC) ; update a charge (from one that is on hold only)"
^XMB(3.9,46,2,1335,0)="""RTN"",""IBARXMN"",58,0)"
^XMB(3.9,46,2,1336,0)=" ; IBX = ien in 354.71"
^XMB(3.9,46,2,1337,0)="""RTN"",""IBARXMN"",59,0)"
^XMB(3.9,46,2,1338,0)=" ; IBU = updated # of units"
^XMB(3.9,46,2,1339,0)="""RTN"",""IBARXMN"",60,0)"
^XMB(3.9,46,2,1340,0)=" ; IBC = updated charge amount"
^XMB(3.9,46,2,1341,0)="""RTN"",""IBARXMN"",61,0)"
^XMB(3.9,46,2,1342,0)=" N IBO,IBY,DIE,DA,DR"
^XMB(3.9,46,2,1343,0)="""RTN"",""IBARXMN"",62,0)"
^XMB(3.9,46,2,1344,0)=" W !,""Updating copay cap account records..."""
^XMB(3.9,46,2,1345,0)="""RTN"",""IBARXMN"",63,0)"
^XMB(3.9,46,2,1346,0)=" S IBO=^IBAM(354.71,IBX,0)"
^XMB(3.9,46,2,1347,0)="""RTN"",""IBARXMN"",64,0)"
^XMB(3.9,46,2,1348,0)=" ;"
^XMB(3.9,46,2,1349,0)="""RTN"",""IBARXMN"",65,0)"
^XMB(3.9,46,2,1350,0)=" ; first update 354.71 entry"
^XMB(3.9,46,2,1351,0)="""RTN"",""IBARXMN"",66,0)"
^XMB(3.9,46,2,1352,0)=" S DIE=""^IBAM(354.71,"",DA=IBX,DR="".07///^S X=IBU;.08///^S X=IBC;.11///^S X=IBC;.05///P"""
^XMB(3.9,46,2,1353,0)="""RTN"",""IBARXMN"",67,0)"
^XMB(3.9,46,2,1354,0)=" L +^IBAM(354.71,DA):10 I '$T W !!,""Unable to update records, entry locked!!"" Q"
^XMB(3.9,46,2,1355,0)="""RTN"",""IBARXMN"",68,0)"
^XMB(3.9,46,2,1356,0)=" D ^DIE L -^IBAM(354.71,DA)"
^XMB(3.9,46,2,1357,0)="""RTN"",""IBARXMN"",69,0)"
^XMB(3.9,46,2,1358,0)=" ;"
^XMB(3.9,46,2,1359,0)="""RTN"",""IBARXMN"",70,0)"
^XMB(3.9,46,2,1360,0)=" ; now update account"
^XMB(3.9,46,2,1361,0)="""RTN"",""IBARXMN"",71,0)"
^XMB(3.9,46,2,1362,0)=" D ACCT($P(IBO,""^"",2),IBC-$P(IBO,""^"",11),0,$P(IBO,""^"",3))"
^XMB(3.9,46,2,1363,0)="""RTN"",""IBARXMN"",72,0)"
^XMB(3.9,46,2,1364,0)=" ;"
^XMB(3.9,46,2,1365,0)="""RTN"",""IBARXMN"",73,0)"
^XMB(3.9,46,2,1366,0)=" ; send to IDX"
^XMB(3.9,46,2,1367,0)="""RTN"",""IBARXMN"",74,0)"
^XMB(3.9,46,2,1368,0)=" I $$SWSTAT^IBBAPI S IBO=$$QUEUE^VDEFQM(""DFT^P03"",""SUBTYPE=CPIN^IEN=""_IBX,,""PFSS OUTBOUND"")"
^XMB(3.9,46,2,1369,0)="""RTN"",""IBARXMN"",75,0)"
^XMB(3.9,46,2,1370,0)=" ;"
^XMB(3.9,46,2,1371,0)="""RTN"",""IBARXMN"",76,0)"
^XMB(3.9,46,2,1372,0)=" ; finally clean transmission record"
^XMB(3.9,46,2,1373,0)="""RTN"",""IBARXMN"",77,0)"
^XMB(3.9,46,2,1374,0)=" D CLEAN(IBX)"
^XMB(3.9,46,2,1375,0)="""RTN"",""IBARXMN"",78,0)"
^XMB(3.9,46,2,1376,0)=" ;"
^XMB(3.9,46,2,1377,0)="""RTN"",""IBARXMN"",79,0)"
^XMB(3.9,46,2,1378,0)=" Q"
^XMB(3.9,46,2,1379,0)="""RTN"",""IBARXMN"",80,0)"
^XMB(3.9,46,2,1380,0)="CLEAN(IBX) ; clean out transmission record"
^XMB(3.9,46,2,1381,0)="""RTN"",""IBARXMN"",81,0)"
^XMB(3.9,46,2,1382,0)=" N IBA,DA,DIK,X,Y"
^XMB(3.9,46,2,1383,0)="""RTN"",""IBARXMN"",82,0)"
^XMB(3.9,46,2,1384,0)=" S IBA=0 F  S IBA=$O(^IBAM(354.71,IBX,1,IBA)) Q:IBA<1  S DA=IBA,DA(1)=IBX,DIK=""^IBAM(354.71,""_IBX_"",1,"" D ^DIK"
^XMB(3.9,46,2,1385,0)="""RTN"",""IBARXMN"",83,0)"
^XMB(3.9,46,2,1386,0)=" Q"
^XMB(3.9,46,2,1387,0)="""RTN"",""IBARXMN"",84,0)"
^XMB(3.9,46,2,1388,0)=" ;"
^XMB(3.9,46,2,1389,0)="""RTN"",""IBARXMN"",85,0)"
^XMB(3.9,46,2,1390,0)="CANCEL(DFN,IBX,IBY,IBR) ; cancel a transaction (flags old one and creates a new one)"
^XMB(3.9,46,2,1391,0)="""RTN"",""IBARXMN"",86,0)"
^XMB(3.9,46,2,1392,0)=" ; IBX is the ien from 354.71, IBY is the error flag (y) passed by ref"
^XMB(3.9,46,2,1393,0)="""RTN"",""IBARXMN"",87,0)"
^XMB(3.9,46,2,1394,0)=" ; IBR is optional, it is the reason to cancel"
^XMB(3.9,46,2,1395,0)="""RTN"",""IBARXMN"",88,0)"
^XMB(3.9,46,2,1396,0)=" ;"
^XMB(3.9,46,2,1397,0)="""RTN"",""IBARXMN"",89,0)"
^XMB(3.9,46,2,1398,0)=" N IBN,IBD,DIE,DA,DR,X,Y"
^XMB(3.9,46,2,1399,0)="""RTN"",""IBARXMN"",90,0)"
^XMB(3.9,46,2,1400,0)=" ;"
^XMB(3.9,46,2,1401,0)="""RTN"",""IBARXMN"",91,0)"
^XMB(3.9,46,2,1402,0)=" ; is IBX there or is this an old transaction"
^XMB(3.9,46,2,1403,0)="""RTN"",""IBARXMN"",92,0)"
^XMB(3.9,46,2,1404,0)=" S IBD=$G(^IBAM(354.71,+IBX,0)) I 'IBD S IBN=0 G CANQ"
^XMB(3.9,46,2,1405,0)="""RTN"",""IBARXMN"",93,0)"
^XMB(3.9,46,2,1406,0)=" S IBAMP=$P($G(^IBAM(354.71,+$P(IBD,""^"",10),0)),""^"")"
^XMB(3.9,46,2,1407,0)="""RTN"",""IBARXMN"",94,0)"
^XMB(3.9,46,2,1408,0)=" ;"
^XMB(3.9,46,2,1409,0)="""RTN"",""IBARXMN"",95,0)"
^XMB(3.9,46,2,1410,0)=" ; set flag for at or above cap"
^XMB(3.9,46,2,1411,0)="""RTN"",""IBARXMN"",96,0)"
^XMB(3.9,46,2,1412,0)=" S:'$D(IBCAP) IBCAP=+$P($G(^IBAM(354.7,DFN,1,+$O(^IBAM(354.7,DFN,1,""B"",$E($P(IBD,""^"",3),1,5)_""00"",0)),0)),""^"",3)"
^XMB(3.9,46,2,1413,0)="""RTN"",""IBARXMN"",97,0)"
^XMB(3.9,46,2,1414,0)=" ;"
^XMB(3.9,46,2,1415,0)="""RTN"",""IBARXMN"",98,0)"
^XMB(3.9,46,2,1416,0)=" ; flag old one as canceled, and clean out transmission record."
^XMB(3.9,46,2,1417,0)="""RTN"",""IBARXMN"",99,0)"
^XMB(3.9,46,2,1418,0)=" S DIE=""^IBAM(354.71,"",DA=IBX,DR="".05///Y;.16///""_DUZ_"";.17///""_$$NOW^XLFDT_"";.19///""_$S($D(IBR):IBR,1:16)"
^XMB(3.9,46,2,1419,0)="""RTN"",""IBARXMN"",100,0)"
^XMB(3.9,46,2,1420,0)=" L +^IBAM(354.71,IBX):5 I '$T S IBY=""-1^IB318"",IBN=0 G CANQ"
^XMB(3.9,46,2,1421,0)="""RTN"",""IBARXMN"",101,0)"
^XMB(3.9,46,2,1422,0)=" D ^DIE L -^IBAM(354.71,IBX)"
^XMB(3.9,46,2,1423,0)="""RTN"",""IBARXMN"",102,0)"
^XMB(3.9,46,2,1424,0)=" D CLEAN(IBX)"
^XMB(3.9,46,2,1425,0)="""RTN"",""IBARXMN"",103,0)"
^XMB(3.9,46,2,1426,0)=" ;"
^XMB(3.9,46,2,1427,0)="""RTN"",""IBARXMN"",104,0)"
^XMB(3.9,46,2,1428,0)=" ; send to IDX"
^XMB(3.9,46,2,1429,0)="""RTN"",""IBARXMN"",105,0)"
^XMB(3.9,46,2,1430,0)=" I $$SWSTAT^IBBAPI S IBO=$$QUEUE^VDEFQM(""DFT^P03"",""SUBTYPE=CPIN^IEN=""_IBX,,""PFSS OUTBOUND"")"
^XMB(3.9,46,2,1431,0)="""RTN"",""IBARXMN"",106,0)"
^XMB(3.9,46,2,1432,0)=" ;"
^XMB(3.9,46,2,1433,0)="""RTN"",""IBARXMN"",107,0)"
^XMB(3.9,46,2,1434,0)=" ; now create new transaction to adjust amounts"
^XMB(3.9,46,2,1435,0)="""RTN"",""IBARXMN"",108,0)"
^XMB(3.9,46,2,1436,0)=" ; first set up parent, clear out .01, set facility, - dollar amt, status"
^XMB(3.9,46,2,1437,0)="""RTN"",""IBARXMN"",109,0)"
^XMB(3.9,46,2,1438,0)=" S $P(IBD,""^"",10)=$P(IBD,""^""),$P(IBD,""^"")="""",$P(IBD,""^"",13)=+$P($$FAC^IBARXMU(+$$SITE^IBARXMU),""^"",2),$P(IBD,""^"",11)=-$P(IBD,""^"",11),$P(IBD,""^"",12)=-$P(IBD,""^"",12),$P(IBD,""^"",5)=""P"""
^XMB(3.9,46,2,1439,0)="""RTN"",""IBARXMN"",110,0)"
^XMB(3.9,46,2,1440,0)=" S IBN=$$ADD(DFN,$P(IBD,""^"",1,13)) I IBN<1 S IBY=""-1^IB316"""
^XMB(3.9,46,2,1441,0)="""RTN"",""IBARXMN"",111,0)"
^XMB(3.9,46,2,1442,0)=" ;"
^XMB(3.9,46,2,1443,0)="""RTN"",""IBARXMN"",112,0)"
^XMB(3.9,46,2,1444,0)=" ; set up variable to check for cap and re-bill if necessary"
^XMB(3.9,46,2,1445,0)="""RTN"",""IBARXMN"",113,0)"
^XMB(3.9,46,2,1446,0)=" S IBCAP($E($P(IBD,""^"",3),1,5)_""00"")="""""
^XMB(3.9,46,2,1447,0)="""RTN"",""IBARXMN"",114,0)"
^XMB(3.9,46,2,1448,0)=" ;"
^XMB(3.9,46,2,1449,0)="""RTN"",""IBARXMN"",115,0)"
^XMB(3.9,46,2,1450,0)=" ; now check to see if the patient has previously reached cap and has some unbilled (only if not updating, check for flag)"
^XMB(3.9,46,2,1451,0)="""RTN"",""IBARXMN"",116,0)"
^XMB(3.9,46,2,1452,0)=" ;I '$G(IBUPDATE) D CANCEL^IBARXMC(DFN,$P(IBD,""^"",3))"
^XMB(3.9,46,2,1453,0)="""RTN"",""IBARXMN"",117,0)"
^XMB(3.9,46,2,1454,0)=" ;D CANCEL^IBARXMC(DFN,$P(IBD,""^"",3))"
^XMB(3.9,46,2,1455,0)="""RTN"",""IBARXMN"",118,0)"
^XMB(3.9,46,2,1456,0)=" ;"
^XMB(3.9,46,2,1457,0)="""RTN"",""IBARXMN"",119,0)"
^XMB(3.9,46,2,1458,0)="CANQ Q IBN"
^XMB(3.9,46,2,1459,0)="""RTN"",""IBARXMN"",120,0)"
^XMB(3.9,46,2,1460,0)=" ;"
^XMB(3.9,46,2,1461,0)="""RTN"",""IBARXMN"",121,0)"
^XMB(3.9,46,2,1462,0)="ADD(DFN,IBD,IBT,IBPFSS) ; adds a transaction to 354.71"
^XMB(3.9,46,2,1463,0)="""RTN"",""IBARXMN"",122,0)"
^XMB(3.9,46,2,1464,0)=" ; IBD = data in 354.71 format, if $p(IBD,""^"")="""" create new number"
^XMB(3.9,46,2,1465,0)="""RTN"",""IBARXMN"",123,0)"
^XMB(3.9,46,2,1466,0)=" ; IBT = action type pointer (optional, but needed for local site)"
^XMB(3.9,46,2,1467,0)="""RTN"",""IBARXMN"",124,0)"
^XMB(3.9,46,2,1468,0)=" ; returns ien in 354.71"
^XMB(3.9,46,2,1469,0)="""RTN"",""IBARXMN"",125,0)"
^XMB(3.9,46,2,1470,0)=" ; IBPFSS optional to indicate came from PFSS system"
^XMB(3.9,46,2,1471,0)="""RTN"",""IBARXMN"",126,0)"
^XMB(3.9,46,2,1472,0)=" ;"
^XMB(3.9,46,2,1473,0)="""RTN"",""IBARXMN"",127,0)"
^XMB(3.9,46,2,1474,0)=" N IBA,DIC,X,IBS,IBN"
^XMB(3.9,46,2,1475,0)="""RTN"",""IBARXMN"",128,0)"
^XMB(3.9,46,2,1476,0)=" Q:'$G(DFN)"
^XMB(3.9,46,2,1477,0)="""RTN"",""IBARXMN"",129,0)"
^XMB(3.9,46,2,1478,0)=" D ADD^IBARXMU(DFN)"
^XMB(3.9,46,2,1479,0)="""RTN"",""IBARXMN"",130,0)"
^XMB(3.9,46,2,1480,0)=" I $P(IBD,""^"") S IBA=$O(^IBAM(354.71,""B"",$P(IBD,""^""),0)) D  Q IBA"
^XMB(3.9,46,2,1481,0)="""RTN"",""IBARXMN"",131,0)"
^XMB(3.9,46,2,1482,0)=" . ;I IBA D TRANF(DFN,IBA,IBD,$G(IBT)) Q"
^XMB(3.9,46,2,1483,0)="""RTN"",""IBARXMN"",132,0)"
^XMB(3.9,46,2,1484,0)=" . I 'IBA S DIC=""^IBAM(354.71,"",DIC(0)="""",X=$P(IBD,""^"") D FILE^DICN S IBA=+Y"
^XMB(3.9,46,2,1485,0)="""RTN"",""IBARXMN"",133,0)"
^XMB(3.9,46,2,1486,0)=" . I IBA>0 D TRANF(DFN,IBA,IBD,$G(IBT)),ACCT(DFN,$P(IBD,""^"",11),$P(IBD,""^"",12),$P(IBD,""^"",3))"
^XMB(3.9,46,2,1487,0)="""RTN"",""IBARXMN"",134,0)"
^XMB(3.9,46,2,1488,0)=" K DO S DIC=""^IBAM(354.71,"",DIC(0)="""",IBS=+$P($$SITE^IBARXMU,""^"",3)"
^XMB(3.9,46,2,1489,0)="""RTN"",""IBARXMN"",135,0)"
^XMB(3.9,46,2,1490,0)=" ;"
^XMB(3.9,46,2,1491,0)="""RTN"",""IBARXMN"",136,0)"
^XMB(3.9,46,2,1492,0)=" ; get next number and file"
^XMB(3.9,46,2,1493,0)="""RTN"",""IBARXMN"",137,0)"
^XMB(3.9,46,2,1494,0)=" F  L +^IBAM(354.71,0):20 I $T S IBN=$P(^IBAM(354.71,0),""^"",3) S:'IBN IBN=0 Q"
^XMB(3.9,46,2,1495,0)="""RTN"",""IBARXMN"",138,0)"
^XMB(3.9,46,2,1496,0)=" I +$G(^IBAM(354.71,+IBN,0))'=IBS,IBN F  S IBN=$O(^IBAM(354.71,IBN),-1) Q:IBS=+$G(^IBAM(354.71,IBN,0))!('IBN)"
^XMB(3.9,46,2,1497,0)="""RTN"",""IBARXMN"",139,0)"
^XMB(3.9,46,2,1498,0)=" S IBN=$P($P($G(^IBAM(354.71,+IBN,0)),""^""),""-"",2)+1 F IBN=IBN:1 S X=IBS_""-""_IBN I '$D(^IBAM(354.71,""B"",X)) L +^IBAM(354.71,""B"",X):10 I $T D FILE^DICN L -^IBAM(354.71,""B"",X) I Y>0 S IBA=+Y Q"
^XMB(3.9,46,2,1499,0)="""RTN"",""IBARXMN"",140,0)"
^XMB(3.9,46,2,1500,0)=" L -^IBAM(354.71,0)"
^XMB(3.9,46,2,1501,0)="""RTN"",""IBARXMN"",141,0)"
^XMB(3.9,46,2,1502,0)=" ;"
^XMB(3.9,46,2,1503,0)="""RTN"",""IBARXMN"",142,0)"
^XMB(3.9,46,2,1504,0)=" D TRANF(DFN,IBA,IBD,$G(IBT),$G(IBPFSS)),ACCT(DFN,$P(IBD,""^"",11),$P(IBD,""^"",12),$P(IBD,""^"",3))"
^XMB(3.9,46,2,1505,0)="""RTN"",""IBARXMN"",143,0)"
^XMB(3.9,46,2,1506,0)=" ;I '$G(IBUPDATE) D CANCEL^IBARXMC(DFN,$P(IBD,""^"",3))"
^XMB(3.9,46,2,1507,0)="""RTN"",""IBARXMN"",144,0)"
^XMB(3.9,46,2,1508,0)=" ;"
^XMB(3.9,46,2,1509,0)="""RTN"",""IBARXMN"",145,0)"
^XMB(3.9,46,2,1510,0)=" Q IBA"
^XMB(3.9,46,2,1511,0)="""RTN"",""IBARXMN"",146,0)"
^XMB(3.9,46,2,1512,0)=" ;"
^XMB(3.9,46,2,1513,0)="""RTN"",""IBARXMN"",147,0)"
^XMB(3.9,46,2,1514,0)="TRANF(DFN,IBA,IBD,IBT,IBPFSS) ; file transaction data in 354.71"
^XMB(3.9,46,2,1515,0)="""RTN"",""IBARXMN"",148,0)"
^XMB(3.9,46,2,1516,0)=" ; DFN = patient's dfn"
^XMB(3.9,46,2,1517,0)="""RTN"",""IBARXMN"",149,0)"
^XMB(3.9,46,2,1518,0)=" ; IBA = ien from file 354.71"
^XMB(3.9,46,2,1519,0)="""RTN"",""IBARXMN"",150,0)"
^XMB(3.9,46,2,1520,0)=" ; IBD = data in global file format for file 354.71"
^XMB(3.9,46,2,1521,0)="""RTN"",""IBARXMN"",151,0)"
^XMB(3.9,46,2,1522,0)=" ; piece 2 will be changed to dfn"
^XMB(3.9,46,2,1523,0)="""RTN"",""IBARXMN"",152,0)"
^XMB(3.9,46,2,1524,0)=" ; pieces 10 and 13 will be resolved"
^XMB(3.9,46,2,1525,0)="""RTN"",""IBARXMN"",153,0)"
^XMB(3.9,46,2,1526,0)=" ; pieces 14,15 will be created new if they don't exist"
^XMB(3.9,46,2,1527,0)="""RTN"",""IBARXMN"",154,0)"
^XMB(3.9,46,2,1528,0)=" ; pieces 16,17 will be created new"
^XMB(3.9,46,2,1529,0)="""RTN"",""IBARXMN"",155,0)"
^XMB(3.9,46,2,1530,0)=" ; piece 18 will be filled if not $g(IBT)="""""
^XMB(3.9,46,2,1531,0)="""RTN"",""IBARXMN"",156,0)"
^XMB(3.9,46,2,1532,0)=" ;"
^XMB(3.9,46,2,1533,0)="""RTN"",""IBARXMN"",157,0)"
^XMB(3.9,46,2,1534,0)=" N X,Y,IBZ,IBN,D,IBU,DIC,IBPAR,DA,DIK Q:'$D(^IBAM(354.71,IBA,0))"
^XMB(3.9,46,2,1535,0)="""RTN"",""IBARXMN"",158,0)"
^XMB(3.9,46,2,1536,0)=" ;"
^XMB(3.9,46,2,1537,0)="""RTN"",""IBARXMN"",159,0)"
^XMB(3.9,46,2,1538,0)=" X $S($P(IBD,""^"")=$P(IBD,""^"",10):""S $P(IBD,""""^"""",10)=IBA"",1:""S X=$P(IBD,""""^"""",10),D=""""B"""",DIC=""""^IBAM(354.71,"""",DIC(0)=""""OX"""" D IX^DIC S $P(IBD,""""^"""",10)=$S(Y>0:+Y,1:"""""""")"")"
^XMB(3.9,46,2,1539,0)="""RTN"",""IBARXMN"",160,0)"
^XMB(3.9,46,2,1540,0)=" S IBPAR=$$PARENT^IBARXMC(+$P(IBD,""^"",10)) S:IBPAR $P(IBD,""^"",10)=IBPAR"
^XMB(3.9,46,2,1541,0)="""RTN"",""IBARXMN"",161,0)"
^XMB(3.9,46,2,1542,0)=" S DIC=""^DIC(4,"",DIC(0)=""O"",X=$P(IBD,""^"",13),D=""D"" D IX^DIC"
^XMB(3.9,46,2,1543,0)="""RTN"",""IBARXMN"",162,0)"
^XMB(3.9,46,2,1544,0)=" S IBS=$S(Y>0:+Y,1:"""")"
^XMB(3.9,46,2,1545,0)="""RTN"",""IBARXMN"",163,0)"
^XMB(3.9,46,2,1546,0)=" S IBN=$$NOW^XLFDT,IBU=$P(^IBAM(354.71,IBA,0),""^"",14,15)"
^XMB(3.9,46,2,1547,0)="""RTN"",""IBARXMN"",164,0)"
^XMB(3.9,46,2,1548,0)=" ;"
^XMB(3.9,46,2,1549,0)="""RTN"",""IBARXMN"",165,0)"
^XMB(3.9,46,2,1550,0)=" S $P(^IBAM(354.71,IBA,0),""^"",2,18)=DFN_""^""_$P(IBD,""^"",3,12)_""^""_IBS_""^""_$S(+IBU:+IBU,$D(IBDUZ):IBDUZ,1:DUZ)_""^""_$S($P(IBU,""^"",2):$P(IBU,""^"",2),1:IBN)_""^""_$S($D(IBDUZ):IBDUZ,1:DUZ)_""^""_IBN_$S($G(IBT):""^""_IBT,1:"""")"
^XMB(3.9,46,2,1551,0)="""RTN"",""IBARXMN"",166,0)"
^XMB(3.9,46,2,1552,0)=" S DA=IBA,DIK=""^IBAM(354.71,"" D IX^DIK"
^XMB(3.9,46,2,1553,0)="""RTN"",""IBARXMN"",167,0)"
^XMB(3.9,46,2,1554,0)=" I $$SWSTAT^IBBAPI,'$G(IBPFSS) S X=$$QUEUE^VDEFQM(""DFT^P03"",""SUBTYPE=CPIN^IEN=""_IBA,,""PFSS OUTBOUND"") ; use IBA as the IEN"
^XMB(3.9,46,2,1555,0)="""RTN"",""IBARXMN"",168,0)"
^XMB(3.9,46,2,1556,0)=" Q"
^XMB(3.9,46,2,1557,0)="""RTN"",""IBARXMR"")"
^XMB(3.9,46,2,1558,0)="0^5^B3221986^B1920980"
^XMB(3.9,46,2,1559,0)="""RTN"",""IBARXMR"",1,0)"
^XMB(3.9,46,2,1560,0)="IBARXMR ;LL/ELZ - PHARMCAY COPAY CAP RPC STUFF ;17-NOV-2000"
^XMB(3.9,46,2,1561,0)="""RTN"",""IBARXMR"",2,0)"
^XMB(3.9,46,2,1562,0)=" ;;2.0;INTEGRATED BILLING;**150,158,156,308**;21-MAR-94"
^XMB(3.9,46,2,1563,0)="""RTN"",""IBARXMR"",3,0)"
^XMB(3.9,46,2,1564,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,46,2,1565,0)="""RTN"",""IBARXMR"",4,0)"
^XMB(3.9,46,2,1566,0)=" ;"
^XMB(3.9,46,2,1567,0)="""RTN"",""IBARXMR"",5,0)"
^XMB(3.9,46,2,1568,0)="RQUERY(IBR,IBICN,IBM) ; remote query call"
^XMB(3.9,46,2,1569,0)="""RTN"",""IBARXMR"",6,0)"
^XMB(3.9,46,2,1570,0)=" ; called from rpc IBARXM QUERY ONLY"
^XMB(3.9,46,2,1571,0)="""RTN"",""IBARXMR"",7,0)"
^XMB(3.9,46,2,1572,0)=" N DFN"
^XMB(3.9,46,2,1573,0)="""RTN"",""IBARXMR"",8,0)"
^XMB(3.9,46,2,1574,0)=" S DFN=$$DFN^IBARXMU(IBICN) I 'DFN S IBY(0)=0 Q"
^XMB(3.9,46,2,1575,0)="""RTN"",""IBARXMR"",9,0)"
^XMB(3.9,46,2,1576,0)=" D QUERY(.IBR,DFN,IBM)"
^XMB(3.9,46,2,1577,0)="""RTN"",""IBARXMR"",10,0)"
^XMB(3.9,46,2,1578,0)=" S IBR=$NA(IBY)"
^XMB(3.9,46,2,1579,0)="""RTN"",""IBARXMR"",11,0)"
^XMB(3.9,46,2,1580,0)=" Q"
^XMB(3.9,46,2,1581,0)="""RTN"",""IBARXMR"",12,0)"
^XMB(3.9,46,2,1582,0)=" ;"
^XMB(3.9,46,2,1583,0)="""RTN"",""IBARXMR"",13,0)"
^XMB(3.9,46,2,1584,0)="QUERY(IBR,DFN,IBM) ; call for querying data"
^XMB(3.9,46,2,1585,0)="""RTN"",""IBARXMR"",14,0)"
^XMB(3.9,46,2,1586,0)=" ; IBR = where results are returned"
^XMB(3.9,46,2,1587,0)="""RTN"",""IBARXMR"",15,0)"
^XMB(3.9,46,2,1588,0)=" ; IBM = month/year for query"
^XMB(3.9,46,2,1589,0)="""RTN"",""IBARXMR"",16,0)"
^XMB(3.9,46,2,1590,0)=" N IBX,IBZ,IBS,IBC"
^XMB(3.9,46,2,1591,0)="""RTN"",""IBARXMR"",17,0)"
^XMB(3.9,46,2,1592,0)=" K IBR"
^XMB(3.9,46,2,1593,0)="""RTN"",""IBARXMR"",18,0)"
^XMB(3.9,46,2,1594,0)=" ;"
^XMB(3.9,46,2,1595,0)="""RTN"",""IBARXMR"",19,0)"
^XMB(3.9,46,2,1596,0)=" S IBS=+$P($$SITE^IBARXMU,""^"",3)"
^XMB(3.9,46,2,1597,0)="""RTN"",""IBARXMR"",20,0)"
^XMB(3.9,46,2,1598,0)=" S (IBX,IBC)=0 F  S IBX=$O(^IBAM(354.71,""AD"",DFN,IBM,IBX)) Q:IBX<1  D"
^XMB(3.9,46,2,1599,0)="""RTN"",""IBARXMR"",21,0)"
^XMB(3.9,46,2,1600,0)=" . S IBZ=^IBAM(354.71,IBX,0) Q:(+IBZ)'=IBS"
^XMB(3.9,46,2,1601,0)="""RTN"",""IBARXMR"",22,0)"
^XMB(3.9,46,2,1602,0)=" . S IBC=IBC+1"
^XMB(3.9,46,2,1603,0)="""RTN"",""IBARXMR"",23,0)"
^XMB(3.9,46,2,1604,0)=" . D SENDF^IBARXMU(.IBZ)"
^XMB(3.9,46,2,1605,0)="""RTN"",""IBARXMR"",24,0)"
^XMB(3.9,46,2,1606,0)=" . S IBR(IBC)=IBZ"
^XMB(3.9,46,2,1607,0)="""RTN"",""IBARXMR"",25,0)"
^XMB(3.9,46,2,1608,0)=" S IBR(0)=IBC"
^XMB(3.9,46,2,1609,0)="""RTN"",""IBARXMR"",26,0)"
^XMB(3.9,46,2,1610,0)=" Q"
^XMB(3.9,46,2,1611,0)="""RTN"",""IBARXMR"",27,0)"
^XMB(3.9,46,2,1612,0)=" ;"
^XMB(3.9,46,2,1613,0)="""RTN"",""IBARXMR"",28,0)"
^XMB(3.9,46,2,1614,0)="TRANS(IBR,IBICN,IBD) ; remote procedure call for receiving transaction data (new or updated)"
^XMB(3.9,46,2,1615,0)="""RTN"",""IBARXMR"",29,0)"
^XMB(3.9,46,2,1616,0)=" ; called from rpc IBARXM TRANS DATA"
^XMB(3.9,46,2,1617,0)="""RTN"",""IBARXMR"",30,0)"
^XMB(3.9,46,2,1618,0)=" ; IBICN = the patient's ICN"
^XMB(3.9,46,2,1619,0)="""RTN"",""IBARXMR"",31,0)"
^XMB(3.9,46,2,1620,0)=" ; IBR = return acceptance response"
^XMB(3.9,46,2,1621,0)="""RTN"",""IBARXMR"",32,0)"
^XMB(3.9,46,2,1622,0)=" ; IBD = data being received on a transaction"
^XMB(3.9,46,2,1623,0)="""RTN"",""IBARXMR"",33,0)"
^XMB(3.9,46,2,1624,0)=" N DFN,IBA"
^XMB(3.9,46,2,1625,0)="""RTN"",""IBARXMR"",34,0)"
^XMB(3.9,46,2,1626,0)=" S DFN=$$DFN^IBARXMU(IBICN)"
^XMB(3.9,46,2,1627,0)="""RTN"",""IBARXMR"",35,0)"
^XMB(3.9,46,2,1628,0)=" S IBR=$S(DFN>0:$$ADD^IBARXMN(DFN,IBD),1:0)"
^XMB(3.9,46,2,1629,0)="""RTN"",""IBARXMR"",36,0)"
^XMB(3.9,46,2,1630,0)=" Q"
^XMB(3.9,46,2,1631,0)="""RTN"",""IBARXMR"",37,0)"
^XMB(3.9,46,2,1632,0)=" ;"
^XMB(3.9,46,2,1633,0)="""RTN"",""IBARXMR"",38,0)"
^XMB(3.9,46,2,1634,0)="BILL(IBR,IBICN,IBT,IBB) ; remote procedure call to indicate a bill should be"
^XMB(3.9,46,2,1635,0)="""RTN"",""IBARXMR"",39,0)"
^XMB(3.9,46,2,1636,0)=" ; billed after all, this occurs when a copay bill was cancelled and"
^XMB(3.9,46,2,1637,0)="""RTN"",""IBARXMR"",40,0)"
^XMB(3.9,46,2,1638,0)=" ; the patient had previously reached his cap and the bill indicated was"
^XMB(3.9,46,2,1639,0)="""RTN"",""IBARXMR"",41,0)"
^XMB(3.9,46,2,1640,0)=" ; not billed."
^XMB(3.9,46,2,1641,0)="""RTN"",""IBARXMR"",42,0)"
^XMB(3.9,46,2,1642,0)=" ; called from rpc IBARXM TRANS BILL"
^XMB(3.9,46,2,1643,0)="""RTN"",""IBARXMR"",43,0)"
^XMB(3.9,46,2,1644,0)=" ; IBR = return acceptance response"
^XMB(3.9,46,2,1645,0)="""RTN"",""IBARXMR"",44,0)"
^XMB(3.9,46,2,1646,0)=" ; IBICN = patient's icn"
^XMB(3.9,46,2,1647,0)="""RTN"",""IBARXMR"",45,0)"
^XMB(3.9,46,2,1648,0)=" ; IBT = 354.71 transaction number to bill"
^XMB(3.9,46,2,1649,0)="""RTN"",""IBARXMR"",46,0)"
^XMB(3.9,46,2,1650,0)=" ; IBB = amount to bill"
^XMB(3.9,46,2,1651,0)="""RTN"",""IBARXMR"",47,0)"
^XMB(3.9,46,2,1652,0)=" N DFN"
^XMB(3.9,46,2,1653,0)="""RTN"",""IBARXMR"",48,0)"
^XMB(3.9,46,2,1654,0)=" S DFN=$$DFN^IBARXMU(IBICN) I 'DFN S IBR=""-1^Patient not found"" Q"
^XMB(3.9,46,2,1655,0)="""RTN"",""IBARXMR"",49,0)"
^XMB(3.9,46,2,1656,0)=" ;"
^XMB(3.9,46,2,1657,0)="""RTN"",""IBARXMR"",50,0)"
^XMB(3.9,46,2,1658,0)=" ; if PFSS/IDX transaction call VDEF and quit"
^XMB(3.9,46,2,1659,0)="""RTN"",""IBARXMR"",51,0)"
^XMB(3.9,46,2,1660,0)=" I $$SWSTAT^IBBAPI,$P($G(^IBAM(354.71,+^IBAM(354.71,""B"",IBT,0),0)),""^"",20) S IBR=$$QUEUE^VDEFQM(""DFT^P03"",""SUBTYPE=CPBL^IEN=""_IBT_"":""_IBB,,""PFSS OUTBOUND"") Q"
^XMB(3.9,46,2,1661,0)="""RTN"",""IBARXMR"",52,0)"
^XMB(3.9,46,2,1662,0)=" ;"
^XMB(3.9,46,2,1663,0)="""RTN"",""IBARXMR"",53,0)"
^XMB(3.9,46,2,1664,0)=" D BILL^IBARXMB(IBT,IBB)"
^XMB(3.9,46,2,1665,0)="""RTN"",""IBARXMR"",54,0)"
^XMB(3.9,46,2,1666,0)=" S IBR=1"
^XMB(3.9,46,2,1667,0)="""RTN"",""IBARXMR"",55,0)"
^XMB(3.9,46,2,1668,0)=" Q"
^XMB(3.9,46,2,1669,0)="""RTN"",""IBARXPFS"")"
^XMB(3.9,46,2,1670,0)="0^2^B33725607"
^XMB(3.9,46,2,1671,0)="""RTN"",""IBARXPFS"",1,0)"
^XMB(3.9,46,2,1672,0)="IBARXPFS ;OAK/ELZ - PFSS ROUTINE FOR INTER-FACILITY RX COPAY ;23-MAR-05"
^XMB(3.9,46,2,1673,0)="""RTN"",""IBARXPFS"",2,0)"
^XMB(3.9,46,2,1674,0)=" ;;2.0;INTEGRATED BILLING;**308**;21-MAR-94"
^XMB(3.9,46,2,1675,0)="""RTN"",""IBARXPFS"",3,0)"
^XMB(3.9,46,2,1676,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,46,2,1677,0)="""RTN"",""IBARXPFS"",4,0)"
^XMB(3.9,46,2,1678,0)=" ;"
^XMB(3.9,46,2,1679,0)="""RTN"",""IBARXPFS"",5,0)"
^XMB(3.9,46,2,1680,0)="NEW(DFN) ; this entry point will check patient cap knowledge status and queue to look up as necessary"
^XMB(3.9,46,2,1681,0)="""RTN"",""IBARXPFS"",6,0)"
^XMB(3.9,46,2,1682,0)=" N ZTSK,ZTRTN,ZTDESC,ZTDTH,ZTIO,ZTSAVE,X,Y,POP"
^XMB(3.9,46,2,1683,0)="""RTN"",""IBARXPFS"",7,0)"
^XMB(3.9,46,2,1684,0)=" I $D(^IBAM(354.7,DFN,0)) Q"
^XMB(3.9,46,2,1685,0)="""RTN"",""IBARXPFS"",8,0)"
^XMB(3.9,46,2,1686,0)=" L +^IBAM(DFN):5 I '$T Q"
^XMB(3.9,46,2,1687,0)="""RTN"",""IBARXPFS"",9,0)"
^XMB(3.9,46,2,1688,0)=" S ZTRTN=""DQNEW^IBARXPFS"",ZTDESC=""IB INTER-FACILITY CAP QUERY"",ZTDTH=$$NOW^XLFDT,(ZTIO,ZTSAVE(""DFN""),ZTSAVE(""IBADT""))="""""
^XMB(3.9,46,2,1689,0)="""RTN"",""IBARXPFS"",10,0)"
^XMB(3.9,46,2,1690,0)=" D ^%ZTLOAD"
^XMB(3.9,46,2,1691,0)="""RTN"",""IBARXPFS"",11,0)"
^XMB(3.9,46,2,1692,0)=" L -^IBAM(DFN)"
^XMB(3.9,46,2,1693,0)="""RTN"",""IBARXPFS"",12,0)"
^XMB(3.9,46,2,1694,0)=" Q"
^XMB(3.9,46,2,1695,0)="""RTN"",""IBARXPFS"",13,0)"
^XMB(3.9,46,2,1696,0)=" ;"
^XMB(3.9,46,2,1697,0)="""RTN"",""IBARXPFS"",14,0)"
^XMB(3.9,46,2,1698,0)="DQNEW ; tasked entry point for cap information query"
^XMB(3.9,46,2,1699,0)="""RTN"",""IBARXPFS"",15,0)"
^XMB(3.9,46,2,1700,0)=" I $D(^IBAM(354.7,DFN,0)) Q"
^XMB(3.9,46,2,1701,0)="""RTN"",""IBARXPFS"",16,0)"
^XMB(3.9,46,2,1702,0)=" L +^IBAM(DFN):5 I '$T Q"
^XMB(3.9,46,2,1703,0)="""RTN"",""IBARXPFS"",17,0)"
^XMB(3.9,46,2,1704,0)=" D ADD^IBARXMU(DFN)"
^XMB(3.9,46,2,1705,0)="""RTN"",""IBARXPFS"",18,0)"
^XMB(3.9,46,2,1706,0)="BBE ; back billing entry assumes IBADT"
^XMB(3.9,46,2,1707,0)="""RTN"",""IBARXPFS"",19,0)"
^XMB(3.9,46,2,1708,0)=" N IBDT,IBT,IBX,IBS,IBD,IBB,DIE,DA,DR,X,IBA,IBP,IBZ,IBY,IBFD,IBTD"
^XMB(3.9,46,2,1709,0)="""RTN"",""IBARXPFS"",20,0)"
^XMB(3.9,46,2,1710,0)=" S IBDT=$E($S($G(IBADT):IBADT,1:DT),1,5)_""00"""
^XMB(3.9,46,2,1711,0)="""RTN"",""IBARXPFS"",21,0)"
^XMB(3.9,46,2,1712,0)=" S IBB=0,IBP=$$PRIORITY^IBARXMU(DFN)"
^XMB(3.9,46,2,1713,0)="""RTN"",""IBARXPFS"",22,0)"
^XMB(3.9,46,2,1714,0)=" S IBT=$$TFL^IBARXMU(DFN,.IBT) G:'IBT DQNEWQ"
^XMB(3.9,46,2,1715,0)="""RTN"",""IBARXPFS"",23,0)"
^XMB(3.9,46,2,1716,0)=" D CAP^IBARXMC(IBDT,IBP,.IBZ,.IBY,.IBFD,.IBTD) I 'IBY,'IBZ G DQNEWQ"
^XMB(3.9,46,2,1717,0)="""RTN"",""IBARXPFS"",24,0)"
^XMB(3.9,46,2,1718,0)=" I 'IBFD!('IBTD) G DQNEWQ"
^XMB(3.9,46,2,1719,0)="""RTN"",""IBARXPFS"",25,0)"
^XMB(3.9,46,2,1720,0)=" S IBX=0 F  S IBX=$O(IBT(IBX)) Q:IBX<1  D"
^XMB(3.9,46,2,1721,0)="""RTN"",""IBARXPFS"",26,0)"
^XMB(3.9,46,2,1722,0)=" . ;"
^XMB(3.9,46,2,1723,0)="""RTN"",""IBARXPFS"",27,0)"
^XMB(3.9,46,2,1724,0)=" . ; need to query every month in the cap billing period"
^XMB(3.9,46,2,1725,0)="""RTN"",""IBARXPFS"",28,0)"
^XMB(3.9,46,2,1726,0)=" . S IBDT=IBFD D  F  S IBDT=$$NEXTMO^IBARXMC(IBDT) Q:IBDT>IBTD  D"
^XMB(3.9,46,2,1727,0)="""RTN"",""IBARXPFS"",29,0)"
^XMB(3.9,46,2,1728,0)=" .. D UQUERY^IBARXMU(DFN,$E(IBDT,1,5)_""00"",IBX,.IBD)"
^XMB(3.9,46,2,1729,0)="""RTN"",""IBARXPFS"",30,0)"
^XMB(3.9,46,2,1730,0)=" .. ;"
^XMB(3.9,46,2,1731,0)="""RTN"",""IBARXPFS"",31,0)"
^XMB(3.9,46,2,1732,0)=" .. ; error returned"
^XMB(3.9,46,2,1733,0)="""RTN"",""IBARXPFS"",32,0)"
^XMB(3.9,46,2,1734,0)=" .. I -1=+$G(IBD,""-1"") Q"
^XMB(3.9,46,2,1735,0)="""RTN"",""IBARXPFS"",33,0)"
^XMB(3.9,46,2,1736,0)=" .. ;"
^XMB(3.9,46,2,1737,0)="""RTN"",""IBARXPFS"",34,0)"
^XMB(3.9,46,2,1738,0)=" .. ; loop through query and file data"
^XMB(3.9,46,2,1739,0)="""RTN"",""IBARXPFS"",35,0)"
^XMB(3.9,46,2,1740,0)=" .. S X=0 F  S X=$O(IBD(X)) Q:X<1  S:$E(IBD(X),1,4)=(+IBT(IBX)_""-"") IBA=$$ADD^IBARXMN(DFN,IBD(X)),IBB=IBB+$P(IBD(X),""^"",11)"
^XMB(3.9,46,2,1741,0)="""RTN"",""IBARXPFS"",36,0)"
^XMB(3.9,46,2,1742,0)=" .. K IBD"
^XMB(3.9,46,2,1743,0)="""RTN"",""IBARXPFS"",37,0)"
^XMB(3.9,46,2,1744,0)="DQNEWQ ;"
^XMB(3.9,46,2,1745,0)="""RTN"",""IBARXPFS"",38,0)"
^XMB(3.9,46,2,1746,0)=" L -^IBAM(DFN)"
^XMB(3.9,46,2,1747,0)="""RTN"",""IBARXPFS"",39,0)"
^XMB(3.9,46,2,1748,0)=" ;"
^XMB(3.9,46,2,1749,0)="""RTN"",""IBARXPFS"",40,0)"
^XMB(3.9,46,2,1750,0)=" Q"
^XMB(3.9,46,2,1751,0)="""RTN"",""IBARXPFS"",41,0)"
^XMB(3.9,46,2,1752,0)=" ;"
^XMB(3.9,46,2,1753,0)="""RTN"",""IBARXPFS"",42,0)"
^XMB(3.9,46,2,1754,0)="MSG ; receives HL7 message from COTS product and files in 354.71 or others"
^XMB(3.9,46,2,1755,0)="""RTN"",""IBARXPFS"",43,0)"
^XMB(3.9,46,2,1756,0)=" N IBMSG,IBHEADER,IBICN,IBDFN,IBSSN,IBCLAIM,IBALIAS,IBSTAT,IBTYPE,IBINST"
^XMB(3.9,46,2,1757,0)="""RTN"",""IBARXPFS"",44,0)"
^XMB(3.9,46,2,1758,0)=" N IBRXDAT,IBRESLT,IB35471,IB351,IB35181,IB350,IBMTDT21,IBCODE,SEG,DFN,HLA"
^XMB(3.9,46,2,1759,0)="""RTN"",""IBARXPFS"",45,0)"
^XMB(3.9,46,2,1760,0)=" ;"
^XMB(3.9,46,2,1761,0)="""RTN"",""IBARXPFS"",46,0)"
^XMB(3.9,46,2,1762,0)=" ;parse message"
^XMB(3.9,46,2,1763,0)="""RTN"",""IBARXPFS"",47,0)"
^XMB(3.9,46,2,1764,0)=" S IBSTAT=$$STARTMSG^HLPRS(.IBMSG,HLMTIENS,.IBHEADER)"
^XMB(3.9,46,2,1765,0)="""RTN"",""IBARXPFS"",48,0)"
^XMB(3.9,46,2,1766,0)=" I 'IBSTAT S HLERR=""Unable to start parse of message"" G NEWTRANQ"
^XMB(3.9,46,2,1767,0)="""RTN"",""IBARXPFS"",49,0)"
^XMB(3.9,46,2,1768,0)=" ;"
^XMB(3.9,46,2,1769,0)="""RTN"",""IBARXPFS"",50,0)"
^XMB(3.9,46,2,1770,0)=" F  Q:'$$NEXTSEG^HLPRS(.IBMSG,.SEG)  D"
^XMB(3.9,46,2,1771,0)="""RTN"",""IBARXPFS"",51,0)"
^XMB(3.9,46,2,1772,0)=" . F IBT=3:1 S IBD=$P($T(HL7DATA+IBT),"";"",4) Q:IBD=""""  D"
^XMB(3.9,46,2,1773,0)="""RTN"",""IBARXPFS"",52,0)"
^XMB(3.9,46,2,1774,0)=" . . I $P(IBD,""^"",2)=SEG(""SEGMENT TYPE"") D"
^XMB(3.9,46,2,1775,0)="""RTN"",""IBARXPFS"",53,0)"
^XMB(3.9,46,2,1776,0)=" . . . S @$P(IBD,""^"")=$$GET^HLOPRS(.SEG,$P(IBD,""^"",3),$P(IBD,""^"",4),$P(IBD,""^"",5),$P(IBD,""^"",6))"
^XMB(3.9,46,2,1777,0)="""RTN"",""IBARXPFS"",54,0)"
^XMB(3.9,46,2,1778,0)=" . . . S IBCODE=$P(IBD,""^"",7,99)"
^XMB(3.9,46,2,1779,0)="""RTN"",""IBARXPFS"",55,0)"
^XMB(3.9,46,2,1780,0)=" . . . I $L(IBCODE),$L(@$P(IBD,""^"")) S X=@$P(IBD,""^"") X IBCODE S @$P(IBD,""^"")=X"
^XMB(3.9,46,2,1781,0)="""RTN"",""IBARXPFS"",56,0)"
^XMB(3.9,46,2,1782,0)=" ;"
^XMB(3.9,46,2,1783,0)="""RTN"",""IBARXPFS"",57,0)"
^XMB(3.9,46,2,1784,0)=" ;check out data received from message"
^XMB(3.9,46,2,1785,0)="""RTN"",""IBARXPFS"",58,0)"
^XMB(3.9,46,2,1786,0)=" S DFN=$$PATIENT($G(IBICN),$G(IBDFN),$G(IBSSN),$G(IBVACLM),$G(IBALIAS))"
^XMB(3.9,46,2,1787,0)="""RTN"",""IBARXPFS"",59,0)"
^XMB(3.9,46,2,1788,0)=" G:'DFN NEWTRANQ"
^XMB(3.9,46,2,1789,0)="""RTN"",""IBARXPFS"",60,0)"
^XMB(3.9,46,2,1790,0)=" S IBTYPE=$G(IBTYPE)"
^XMB(3.9,46,2,1791,0)="""RTN"",""IBARXPFS"",61,0)"
^XMB(3.9,46,2,1792,0)=" ;"
^XMB(3.9,46,2,1793,0)="""RTN"",""IBARXPFS"",62,0)"
^XMB(3.9,46,2,1794,0)=" D @($S(IBTYPE=""IN"":""35471"",IBTYPE=""MT"":""351"",IBTYPE=""LB"":""35181"",IBTYPE=""ML"":""350"",IBTYPE=""ST"":""QUERYVA"",IBTYPE=""BL"":""BILLVA"",1:""ERR"")_""^IBARXMI"")"
^XMB(3.9,46,2,1795,0)="""RTN"",""IBARXPFS"",63,0)"
^XMB(3.9,46,2,1796,0)=" ;"
^XMB(3.9,46,2,1797,0)="""RTN"",""IBARXPFS"",64,0)"
^XMB(3.9,46,2,1798,0)=" ;"
^XMB(3.9,46,2,1799,0)="""RTN"",""IBARXPFS"",65,0)"
^XMB(3.9,46,2,1800,0)="NEWTRANQ ;"
^XMB(3.9,46,2,1801,0)="""RTN"",""IBARXPFS"",66,0)"
^XMB(3.9,46,2,1802,0)=" S HLA(""HLA"",1)=""MSA""_HL(""FS"")_$S('$D(HLERR):""AA"",1:""AE"")_HL(""FS"")_HL(""MID"")"
^XMB(3.9,46,2,1803,0)="""RTN"",""IBARXPFS"",67,0)"
^XMB(3.9,46,2,1804,0)=" D GENACK^HLMA1(HL(""EID""),HLMTIENS,HL(""EIDS""),""LM"",1,.IBRESLT)"
^XMB(3.9,46,2,1805,0)="""RTN"",""IBARXPFS"",68,0)"
^XMB(3.9,46,2,1806,0)=" Q"
^XMB(3.9,46,2,1807,0)="""RTN"",""IBARXPFS"",69,0)"
^XMB(3.9,46,2,1808,0)=" ;"
^XMB(3.9,46,2,1809,0)="""RTN"",""IBARXPFS"",70,0)"
^XMB(3.9,46,2,1810,0)="PATIENT(IBICN,IBDFN,IBSSN,IBVACLM,IBALIAS) ; this function will receive"
^XMB(3.9,46,2,1811,0)="""RTN"",""IBARXPFS"",71,0)"
^XMB(3.9,46,2,1812,0)=" ; several patient data elements and validate them.  Assuming the data"
^XMB(3.9,46,2,1813,0)="""RTN"",""IBARXPFS"",72,0)"
^XMB(3.9,46,2,1814,0)=" ; meets expected requirements, the function will return the patient's"
^XMB(3.9,46,2,1815,0)="""RTN"",""IBARXPFS"",73,0)"
^XMB(3.9,46,2,1816,0)=" ; DFN.  The requirement is ICN is a must, the patient must also match"
^XMB(3.9,46,2,1817,0)="""RTN"",""IBARXPFS"",74,0)"
^XMB(3.9,46,2,1818,0)=" ; at least 2 other data elements."
^XMB(3.9,46,2,1819,0)="""RTN"",""IBARXPFS"",75,0)"
^XMB(3.9,46,2,1820,0)=" ;"
^XMB(3.9,46,2,1821,0)="""RTN"",""IBARXPFS"",76,0)"
^XMB(3.9,46,2,1822,0)=" N DFN,IBMATCH,IBX"
^XMB(3.9,46,2,1823,0)="""RTN"",""IBARXPFS"",77,0)"
^XMB(3.9,46,2,1824,0)=" S (IBMATCH,IBX)=0,HLERR="""""
^XMB(3.9,46,2,1825,0)="""RTN"",""IBARXPFS"",78,0)"
^XMB(3.9,46,2,1826,0)=" S DFN=$$DFN^IBARXMU(IBICN) I 'DFN S HLERR=""Invalid ICN: ""_IBICN G PATQ"
^XMB(3.9,46,2,1827,0)="""RTN"",""IBARXPFS"",79,0)"
^XMB(3.9,46,2,1828,0)=" ;"
^XMB(3.9,46,2,1829,0)="""RTN"",""IBARXPFS"",80,0)"
^XMB(3.9,46,2,1830,0)=" I DFN=IBDFN S IBMATCH=1"
^XMB(3.9,46,2,1831,0)="""RTN"",""IBARXPFS"",81,0)"
^XMB(3.9,46,2,1832,0)=" E  S HLERR=DFN_"" Doesn't match ICN DFN ""_IBDFN"
^XMB(3.9,46,2,1833,0)="""RTN"",""IBARXPFS"",82,0)"
^XMB(3.9,46,2,1834,0)=" ;"
^XMB(3.9,46,2,1835,0)="""RTN"",""IBARXPFS"",83,0)"
^XMB(3.9,46,2,1836,0)=" I IBSSN,$P($G(^DPT(DFN,0)),""^"",9)=IBSSN S IBMATCH=IBMATCH+1"
^XMB(3.9,46,2,1837,0)="""RTN"",""IBARXPFS"",84,0)"
^XMB(3.9,46,2,1838,0)=" E  S HLERR=HLERR_"" SSN Mismatch:""_IBSSN"
^XMB(3.9,46,2,1839,0)="""RTN"",""IBARXPFS"",85,0)"
^XMB(3.9,46,2,1840,0)=" I IBMATCH>1 G PATQ"
^XMB(3.9,46,2,1841,0)="""RTN"",""IBARXPFS"",86,0)"
^XMB(3.9,46,2,1842,0)=" ;"
^XMB(3.9,46,2,1843,0)="""RTN"",""IBARXPFS"",87,0)"
^XMB(3.9,46,2,1844,0)=" I $L(IBVACLM),$P($G(^DPT(DFN,.31)),""^"",3)=IBVACLM S IBMATCH=IBMATCH+1"
^XMB(3.9,46,2,1845,0)="""RTN"",""IBARXPFS"",88,0)"
^XMB(3.9,46,2,1846,0)=" E  S:$L(IBVACLM) HLERR=HLERR_"" VA Claim Mismatch:""_IBVACLM"
^XMB(3.9,46,2,1847,0)="""RTN"",""IBARXPFS"",89,0)"
^XMB(3.9,46,2,1848,0)=" I IBMATCH>1 G PATQ"
^XMB(3.9,46,2,1849,0)="""RTN"",""IBARXPFS"",90,0)"
^XMB(3.9,46,2,1850,0)=" ;"
^XMB(3.9,46,2,1851,0)="""RTN"",""IBARXPFS"",91,0)"
^XMB(3.9,46,2,1852,0)=" F  S IBX=$O(^DPT(DFN,.01,IBX)) Q:'IBX!(IBMATCH>1)  I $L(IBALIAS),$P($G(^DPT(DFN,.01,IBX,0)),""^"",2)=IBALIAS S IBMATCH=IBMATCH+1 Q"
^XMB(3.9,46,2,1853,0)="""RTN"",""IBARXPFS"",92,0)"
^XMB(3.9,46,2,1854,0)=" I IBMATCH<2 S DFN=0,HLERR=HLERR_"" ALIAS Mismatch"""
^XMB(3.9,46,2,1855,0)="""RTN"",""IBARXPFS"",93,0)"
^XMB(3.9,46,2,1856,0)="PATQ ;"
^XMB(3.9,46,2,1857,0)="""RTN"",""IBARXPFS"",94,0)"
^XMB(3.9,46,2,1858,0)=" I DFN K HLERR"
^XMB(3.9,46,2,1859,0)="""RTN"",""IBARXPFS"",95,0)"
^XMB(3.9,46,2,1860,0)=" Q DFN"
^XMB(3.9,46,2,1861,0)="""RTN"",""IBARXPFS"",96,0)"
^XMB(3.9,46,2,1862,0)=" ;"
^XMB(3.9,46,2,1863,0)="""RTN"",""IBARXPFS"",97,0)"
^XMB(3.9,46,2,1864,0)="HL7DATA ; hl7 data mapping"
^XMB(3.9,46,2,1865,0)="""RTN"",""IBARXPFS"",98,0)"
^XMB(3.9,46,2,1866,0)=" ; format:  description ; IB Variable ^ segment ^ seq ^ comp ^ subcomp ^"
^XMB(3.9,46,2,1867,0)="""RTN"",""IBARXPFS"",99,0)"
^XMB(3.9,46,2,1868,0)=" ;          extract code"
^XMB(3.9,46,2,1869,0)="""RTN"",""IBARXPFS"",100,0)"
^XMB(3.9,46,2,1870,0)=" ;;patient icn;IBICN^PID^3^1^1^1"
^XMB(3.9,46,2,1871,0)="""RTN"",""IBARXPFS"",101,0)"
^XMB(3.9,46,2,1872,0)=" ;;patient dfn;IBDFN^PID^3^1^1^2^S IBINST=$E(X,1,3),X=$E(X,4,99)"
^XMB(3.9,46,2,1873,0)="""RTN"",""IBARXPFS"",102,0)"
^XMB(3.9,46,2,1874,0)=" ;;patient ssn;IBSSN^PID^3^1^1^3"
^XMB(3.9,46,2,1875,0)="""RTN"",""IBARXPFS"",103,0)"
^XMB(3.9,46,2,1876,0)=" ;;patient va claim;IBVACLM^PID^3^1^1^4"
^XMB(3.9,46,2,1877,0)="""RTN"",""IBARXPFS"",104,0)"
^XMB(3.9,46,2,1878,0)=" ;;patient alias ssn;IBALIAS^PID^3^1^1^5"
^XMB(3.9,46,2,1879,0)="""RTN"",""IBARXPFS"",105,0)"
^XMB(3.9,46,2,1880,0)=" ;;receiver trans type;IBTYPE^FT1^6"
^XMB(3.9,46,2,1881,0)="""RTN"",""IBARXPFS"",106,0)"
^XMB(3.9,46,2,1882,0)=" ;;transaction number;IB35471(.01)^FT1^2"
^XMB(3.9,46,2,1883,0)="""RTN"",""IBARXPFS"",107,0)"
^XMB(3.9,46,2,1884,0)=" ;;trans eff date;IB35471(.03)^FT1^4^1^1^^S X=$$FMDATE^HLFNC(X)"
^XMB(3.9,46,2,1885,0)="""RTN"",""IBARXPFS"",108,0)"
^XMB(3.9,46,2,1886,0)=" ;;trans status;IB35471(.05)^FT1^8"
^XMB(3.9,46,2,1887,0)="""RTN"",""IBARXPFS"",109,0)"
^XMB(3.9,46,2,1888,0)=" ;;rx number;IB35471(.091)^RXE^15"
^XMB(3.9,46,2,1889,0)="""RTN"",""IBARXPFS"",110,0)"
^XMB(3.9,46,2,1890,0)=" ;;refill number;IB35471(.092)^RXE^12"
^XMB(3.9,46,2,1891,0)="""RTN"",""IBARXPFS"",111,0)"
^XMB(3.9,46,2,1892,0)=" ;;units;IB35471(.07)^FT1^12^5^1"
^XMB(3.9,46,2,1893,0)="""RTN"",""IBARXPFS"",112,0)"
^XMB(3.9,46,2,1894,0)=" ;;total charge;IB35471(.08)^FT1^12^1^1"
^XMB(3.9,46,2,1895,0)="""RTN"",""IBARXPFS"",113,0)"
^XMB(3.9,46,2,1896,0)=" ;;parent transaction;IB35471(.1)^FT1^9"
^XMB(3.9,46,2,1897,0)="""RTN"",""IBARXPFS"",114,0)"
^XMB(3.9,46,2,1898,0)=" ;;billed amount;IB35471(.11)^FT1^11^1^1"
^XMB(3.9,46,2,1899,0)="""RTN"",""IBARXPFS"",115,0)"
^XMB(3.9,46,2,1900,0)=" ;;unbilled amount;IB35471(.12)^FT1^15^1^1"
^XMB(3.9,46,2,1901,0)="""RTN"",""IBARXPFS"",116,0)"
^XMB(3.9,46,2,1902,0)=" ;;mt clock begin date;IB351(.03)^ZMT^35^^^^S X=$$FMDATE^HLFNC(X)"
^XMB(3.9,46,2,1903,0)="""RTN"",""IBARXPFS"",117,0)"
^XMB(3.9,46,2,1904,0)=" ;;mt clock status;IB351(.04)^ZMT^36"
^XMB(3.9,46,2,1905,0)="""RTN"",""IBARXPFS"",118,0)"
^XMB(3.9,46,2,1906,0)=" ;;1st 90 day amt;IB351(.05)^ZMT^37"
^XMB(3.9,46,2,1907,0)="""RTN"",""IBARXPFS"",119,0)"
^XMB(3.9,46,2,1908,0)=" ;;2nd 90 day amt;IB351(.06)^ZMT^38"
^XMB(3.9,46,2,1909,0)="""RTN"",""IBARXPFS"",120,0)"
^XMB(3.9,46,2,1910,0)=" ;;3rd 90 day amt;IB351(.07)^ZMT^39"
^XMB(3.9,46,2,1911,0)="""RTN"",""IBARXPFS"",121,0)"
^XMB(3.9,46,2,1912,0)=" ;;4th 90 day amt;IB351(.08)^ZMT^40"
^XMB(3.9,46,2,1913,0)="""RTN"",""IBARXPFS"",122,0)"
^XMB(3.9,46,2,1914,0)=" ;;number of inpt days;IB351(.09)^ZMT^41"
^XMB(3.9,46,2,1915,0)="""RTN"",""IBARXPFS"",123,0)"
^XMB(3.9,46,2,1916,0)=" ;;mt clock end date;IB351(.1)^ZMT^42^^^^S X=$$FMDATE^HLFNC(X)"
^XMB(3.9,46,2,1917,0)="""RTN"",""IBARXPFS"",124,0)"
^XMB(3.9,46,2,1918,0)=" ;;ltc clock begin date;IB35181(.03)^ZMT^43^^^^S X=$$FMDATE^HLFNC(X)"
^XMB(3.9,46,2,1919,0)="""RTN"",""IBARXPFS"",125,0)"
^XMB(3.9,46,2,1920,0)=" ;;ltc clock end date;IB35181(.04)^ZMT^44^^^^S X=$$FMDATE^HLFNC(X)"
^XMB(3.9,46,2,1921,0)="""RTN"",""IBARXPFS"",126,0)"
^XMB(3.9,46,2,1922,0)=" ;;ltc clock status;IB35181(.05)^ZMT^45"
^XMB(3.9,46,2,1923,0)="""RTN"",""IBARXPFS"",127,0)"
^XMB(3.9,46,2,1924,0)=" ;;ltc 21 exempt dates;IBMTD21^ZMT^46^^^^S IBMTDT21=$G(IBMTDT21)+1,IBMTDT21(IBMTDT21)=$$FMDATE^HLFNC(X)"
^XMB(3.9,46,2,1925,0)="""RTN"",""IBARXPFS"",128,0)"
^XMB(3.9,46,2,1926,0)=" ;;charege type;IB350(""TYP"")^ZMT^47"
^XMB(3.9,46,2,1927,0)="""RTN"",""IBARXPFS"",129,0)"
^XMB(3.9,46,2,1928,0)=" ;;patient type;IB350(""IO"")^PV1^2"
^XMB(3.9,46,2,1929,0)="""RTN"",""IBARXPFS"",130,0)"
^XMB(3.9,46,2,1930,0)=" ;;event date/time;IB350(""EDT"")^PV1^44^1^^^S X=$$FMDATE^HLFNC(X)"
^XMB(3.9,46,2,1931,0)="""RTN"",""IBARXPFS"",131,0)"
^XMB(3.9,46,2,1932,0)=" ;;bed section;IB350(""BS"")^ZMT^48"
^XMB(3.9,46,2,1933,0)="""RTN"",""IBARXPFS"",132,0)"
^XMB(3.9,46,2,1934,0)=" ;;units;IB350(.06)^ZMT^49"
^XMB(3.9,46,2,1935,0)="""RTN"",""IBARXPFS"",133,0)"
^XMB(3.9,46,2,1936,0)=" ;;total charge;IB350(.07)^ZMT^50"
^XMB(3.9,46,2,1937,0)="""RTN"",""IBARXPFS"",134,0)"
^XMB(3.9,46,2,1938,0)=" ;;event date;IB350(.17)^ZMT^51^^^^S X=$$FMDATE^HLFNC(X)"
^XMB(3.9,46,2,1939,0)="""RTN"",""IBARXPFS"",135,0)"
^XMB(3.9,46,2,1940,0)=" ;;from date;IB350(.14)^ZMT^52^^^^S X=$$FMDATE^HLFNC(X)"
^XMB(3.9,46,2,1941,0)="""RTN"",""IBARXPFS"",136,0)"
^XMB(3.9,46,2,1942,0)=" ;;to date;IB350(.15)^ZMT^53^^^^S X=$$FMDATE^HLFNC(X)"
^XMB(3.9,46,2,1943,0)="""RTN"",""IBARXPFS"",137,0)"
^XMB(3.9,46,2,1944,0)=" ;;stop code;IB350(.2)^ZMT^54"
^XMB(3.9,46,2,1945,0)="""RTN"",""IBARXPFS"",138,0)"
^XMB(3.9,46,2,1946,0)=" ;;trans status;IB350(.05)^ZMT^55"
^XMB(3.9,46,2,1947,0)="""RTN"",""IBARXPFS"",139,0)"
^XMB(3.9,46,2,1948,0)=" ;;idx visit number;IB350(""IDX"")^PV1^19^1"
^XMB(3.9,46,2,1949,0)="""RTN"",""IBARXPFS"",140,0)"
^XMB(3.9,46,2,1950,0)=" ;;"
^XMB(3.9,46,2,1951,0)="""RTN"",""IBARXPFS"",141,0)"
^XMB(3.9,46,2,1952,0)=" ;"
^XMB(3.9,46,2,1953,0)="""RTN"",""IBCROE"")"
^XMB(3.9,46,2,1954,0)="0^6^B37147577"
^XMB(3.9,46,2,1955,0)="""RTN"",""IBCROE"",1,0)"
^XMB(3.9,46,2,1956,0)="IBCROE ;OAK/ELZ - CHARGE MASTER TO EXCEL OUTPUT ;28-NOV-2005"
^XMB(3.9,46,2,1957,0)="""RTN"",""IBCROE"",2,0)"
^XMB(3.9,46,2,1958,0)=" ;;2.0;INTEGRATED BILLING;**308**;21-MAR-94"
^XMB(3.9,46,2,1959,0)="""RTN"",""IBCROE"",3,0)"
^XMB(3.9,46,2,1960,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,46,2,1961,0)="""RTN"",""IBCROE"",4,0)"
^XMB(3.9,46,2,1962,0)=" ;"
^XMB(3.9,46,2,1963,0)="""RTN"",""IBCROE"",5,0)"
^XMB(3.9,46,2,1964,0)=" ; This routine will produce output from Charge Master for the local site in a format that can be imported"
^XMB(3.9,46,2,1965,0)="""RTN"",""IBCROE"",6,0)"
^XMB(3.9,46,2,1966,0)=" ; into excel."
^XMB(3.9,46,2,1967,0)="""RTN"",""IBCROE"",7,0)"
^XMB(3.9,46,2,1968,0)=" ; "
^XMB(3.9,46,2,1969,0)="""RTN"",""IBCROE"",8,0)"
^XMB(3.9,46,2,1970,0)=" ; load an Inpatient and a Non-Provider based site for same zip code first"
^XMB(3.9,46,2,1971,0)="""RTN"",""IBCROE"",9,0)"
^XMB(3.9,46,2,1972,0)=" ; "
^XMB(3.9,46,2,1973,0)="""RTN"",""IBCROE"",10,0)"
^XMB(3.9,46,2,1974,0)=" ;"
^XMB(3.9,46,2,1975,0)="""RTN"",""IBCROE"",11,0)"
^XMB(3.9,46,2,1976,0)="EN ; main option entry point"
^XMB(3.9,46,2,1977,0)="""RTN"",""IBCROE"",12,0)"
^XMB(3.9,46,2,1978,0)=" N DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT,IBRCVER,IBZIP,POP,%ZIS,IBVERS,ZTRTN,ZTDESC,ZTSAVE,ZTSK"
^XMB(3.9,46,2,1979,0)="""RTN"",""IBCROE"",13,0)"
^XMB(3.9,46,2,1980,0)=" ;"
^XMB(3.9,46,2,1981,0)="""RTN"",""IBCROE"",14,0)"
^XMB(3.9,46,2,1982,0)=" ;find zip code for extraction"
^XMB(3.9,46,2,1983,0)="""RTN"",""IBCROE"",15,0)"
^XMB(3.9,46,2,1984,0)=" S DIR(0)=""F^3:3^K:X'?3N X"",DIR(""A"")=""Enter a 3 digit zip identifier"""
^XMB(3.9,46,2,1985,0)="""RTN"",""IBCROE"",16,0)"
^XMB(3.9,46,2,1986,0)=" S DIR(""?"")=""Enter the first 3 digits of a zip code for which you want to extract data."" D ^DIR Q:$D(DIRUT)"
^XMB(3.9,46,2,1987,0)="""RTN"",""IBCROE"",17,0)"
^XMB(3.9,46,2,1988,0)=" S IBZIP=Y"
^XMB(3.9,46,2,1989,0)="""RTN"",""IBCROE"",18,0)"
^XMB(3.9,46,2,1990,0)=" ;"
^XMB(3.9,46,2,1991,0)="""RTN"",""IBCROE"",19,0)"
^XMB(3.9,46,2,1992,0)=" S IBVERS=$$SELVERS Q:'IBVERS"
^XMB(3.9,46,2,1993,0)="""RTN"",""IBCROE"",20,0)"
^XMB(3.9,46,2,1994,0)=" ;"
^XMB(3.9,46,2,1995,0)="""RTN"",""IBCROE"",21,0)"
^XMB(3.9,46,2,1996,0)=" ; find out where to write output"
^XMB(3.9,46,2,1997,0)="""RTN"",""IBCROE"",22,0)"
^XMB(3.9,46,2,1998,0)=" W !!,""Select where you would like the output.  This will be very large and you"",!,""should select either a Host File Server (HFS) printer or Current Terminal"",!,""(screen capture) to save the output to a file."""
^XMB(3.9,46,2,1999,0)="""RTN"",""IBCROE"",23,0)"
^XMB(3.9,46,2,2000,0)=" S %ZIS=""QM"" D ^%ZIS Q:POP"
^XMB(3.9,46,2,2001,0)="""RTN"",""IBCROE"",24,0)"
^XMB(3.9,46,2,2002,0)=" I $D(IO(""Q"")) D  Q"
^XMB(3.9,46,2,2003,0)="""RTN"",""IBCROE"",25,0)"
^XMB(3.9,46,2,2004,0)=" . S ZTRTN=""DQ^IBCROE"",ZTDESC=""IB Reasonable Charges Extract"""
^XMB(3.9,46,2,2005,0)="""RTN"",""IBCROE"",26,0)"
^XMB(3.9,46,2,2006,0)=" . S (ZTSAVE(""IBZIP""),ZTSAVE(""IBVERS""))="""""
^XMB(3.9,46,2,2007,0)="""RTN"",""IBCROE"",27,0)"
^XMB(3.9,46,2,2008,0)=" . D ^%ZTLOAD D HOME^%ZIS K IO(""Q"") W !,""QUEUED TASK #"",ZTSK"
^XMB(3.9,46,2,2009,0)="""RTN"",""IBCROE"",28,0)"
^XMB(3.9,46,2,2010,0)=" ;"
^XMB(3.9,46,2,2011,0)="""RTN"",""IBCROE"",29,0)"
^XMB(3.9,46,2,2012,0)=" ;"
^XMB(3.9,46,2,2013,0)="""RTN"",""IBCROE"",30,0)"
^XMB(3.9,46,2,2014,0)="DQ ; tasked entry point"
^XMB(3.9,46,2,2015,0)="""RTN"",""IBCROE"",31,0)"
^XMB(3.9,46,2,2016,0)=" U IO D EXCEL(IBZIP,IBVERS)"
^XMB(3.9,46,2,2017,0)="""RTN"",""IBCROE"",32,0)"
^XMB(3.9,46,2,2018,0)=" ;"
^XMB(3.9,46,2,2019,0)="""RTN"",""IBCROE"",33,0)"
^XMB(3.9,46,2,2020,0)=" ;"
^XMB(3.9,46,2,2021,0)="""RTN"",""IBCROE"",34,0)"
^XMB(3.9,46,2,2022,0)=" D ^%ZISC"
^XMB(3.9,46,2,2023,0)="""RTN"",""IBCROE"",35,0)"
^XMB(3.9,46,2,2024,0)=" S:$D(ZTQUEUED) ZTREQ=""@"""
^XMB(3.9,46,2,2025,0)="""RTN"",""IBCROE"",36,0)"
^XMB(3.9,46,2,2026,0)=" I '$D(ZTQUEUED) D HOME^%ZIS W !,""Done!"""
^XMB(3.9,46,2,2027,0)="""RTN"",""IBCROE"",37,0)"
^XMB(3.9,46,2,2028,0)=" ;"
^XMB(3.9,46,2,2029,0)="""RTN"",""IBCROE"",38,0)"
^XMB(3.9,46,2,2030,0)=" ;"
^XMB(3.9,46,2,2031,0)="""RTN"",""IBCROE"",39,0)"
^XMB(3.9,46,2,2032,0)=" Q"
^XMB(3.9,46,2,2033,0)="""RTN"",""IBCROE"",40,0)"
^XMB(3.9,46,2,2034,0)=" ;"
^XMB(3.9,46,2,2035,0)="""RTN"",""IBCROE"",41,0)"
^XMB(3.9,46,2,2036,0)="SELVERS() ; get version to extract from user"
^XMB(3.9,46,2,2037,0)="""RTN"",""IBCROE"",42,0)"
^XMB(3.9,46,2,2038,0)=" N DIR,DIRUT,DTOUT,DUOUT,X,Y,IB,IBV,IBVP,IBX,IBVL"
^XMB(3.9,46,2,2039,0)="""RTN"",""IBCROE"",43,0)"
^XMB(3.9,46,2,2040,0)=" ; use primary site to list and remove prior to version 2.0 as choices"
^XMB(3.9,46,2,2041,0)="""RTN"",""IBCROE"",44,0)"
^XMB(3.9,46,2,2042,0)=" S IBVL=$$VERSITE^IBCRHBRV($P($$SITE^VASITE,""^"",3)),IBV="""""
^XMB(3.9,46,2,2043,0)="""RTN"",""IBCROE"",45,0)"
^XMB(3.9,46,2,2044,0)=" F X=1:1 Q:'$P(IBVL,"","",X)  S:$P(IBVL,"","",X)>1.9 IBV=IBV_$S($L($P(IBVL,"","",X))>2:$P(IBVL,"","",X),1:$P(IBVL,"","",X)_"".0"")_""^"""
^XMB(3.9,46,2,2045,0)="""RTN"",""IBCROE"",46,0)"
^XMB(3.9,46,2,2046,0)=" S IBV=$E(IBV,1,$L(IBV)-1)"
^XMB(3.9,46,2,2047,0)="""RTN"",""IBCROE"",47,0)"
^XMB(3.9,46,2,2048,0)=" S IBX=0"
^XMB(3.9,46,2,2049,0)="""RTN"",""IBCROE"",48,0)"
^XMB(3.9,46,2,2050,0)=" W !!,""Select the version of Reasonable Charges to extract."",!"
^XMB(3.9,46,2,2051,0)="""RTN"",""IBCROE"",49,0)"
^XMB(3.9,46,2,2052,0)=" S DIR(""?"")=""Enter a code from the list corresponding to the version of Reasonable Charges to upload.  Must be version 2.0 or greater.  There was no version 2.2 of Reasonable Charges."""
^XMB(3.9,46,2,2053,0)="""RTN"",""IBCROE"",50,0)"
^XMB(3.9,46,2,2054,0)=" S DIR(0)=""SO^"""
^XMB(3.9,46,2,2055,0)="""RTN"",""IBCROE"",51,0)"
^XMB(3.9,46,2,2056,0)=" F IB=1:1:$L(IBV,U) S IBVP=$P(IBV,U,IB),DIR(0)=DIR(0)_+IBVP_"":RC version ""_IBVP_"" eff ""_$$FMTE^XLFDT($$VERSDT^IBCRHBRV(+IBVP),""2Z"")_"" inact ""_$$FMTE^XLFDT($$VERSEDT^IBCRHBRV(+IBVP),""2Z"")_"";"""
^XMB(3.9,46,2,2057,0)="""RTN"",""IBCROE"",52,0)"
^XMB(3.9,46,2,2058,0)=" D ^DIR K DIR S:$L(Y)=1 Y=Y_"".0"" S IBX=+$S(IBV[Y:Y,1:0)"
^XMB(3.9,46,2,2059,0)="""RTN"",""IBCROE"",53,0)"
^XMB(3.9,46,2,2060,0)=" Q IBX"
^XMB(3.9,46,2,2061,0)="""RTN"",""IBCROE"",54,0)"
^XMB(3.9,46,2,2062,0)=" ;"
^XMB(3.9,46,2,2063,0)="""RTN"",""IBCROE"",55,0)"
^XMB(3.9,46,2,2064,0)=" ;"
^XMB(3.9,46,2,2065,0)="""RTN"",""IBCROE"",56,0)"
^XMB(3.9,46,2,2066,0)=" ; call at EXEL with zip and version, will print to host file the calculated charges by type"
^XMB(3.9,46,2,2067,0)="""RTN"",""IBCROE"",57,0)"
^XMB(3.9,46,2,2068,0)="EXCEL(ZIP,VERS) ;"
^XMB(3.9,46,2,2069,0)="""RTN"",""IBCROE"",58,0)"
^XMB(3.9,46,2,2070,0)=" N IB2,IB3,IBZ,COL,IBBI,IBBR,IBBR0,IBCHG,IBCI,IBCI0,IBCM,IBCNT,IBCPT,IBCS,IBCS0,IBCSNM,IBCT,IBDV,IBLNZ,IBMOD,IBMODI,IBNAME,IBPB,IBRG,IBRG0,Z"
^XMB(3.9,46,2,2071,0)="""RTN"",""IBCROE"",59,0)"
^XMB(3.9,46,2,2072,0)=" K ^TMP(""IBCROE"",$J)"
^XMB(3.9,46,2,2073,0)="""RTN"",""IBCROE"",60,0)"
^XMB(3.9,46,2,2074,0)=" S IBCNT=0"
^XMB(3.9,46,2,2075,0)="""RTN"",""IBCROE"",61,0)"
^XMB(3.9,46,2,2076,0)=" ;"
^XMB(3.9,46,2,2077,0)="""RTN"",""IBCROE"",62,0)"
^XMB(3.9,46,2,2078,0)=" S IBCS=0 F  S IBCS=$O(^IBE(363.1,IBCS)) Q:'IBCS  D"
^XMB(3.9,46,2,2079,0)="""RTN"",""IBCROE"",63,0)"
^XMB(3.9,46,2,2080,0)=" . S IBCS0=$G(^IBE(363.1,IBCS,0))"
^XMB(3.9,46,2,2081,0)="""RTN"",""IBCROE"",64,0)"
^XMB(3.9,46,2,2082,0)=" . ;"
^XMB(3.9,46,2,2083,0)="""RTN"",""IBCROE"",65,0)"
^XMB(3.9,46,2,2084,0)=" . S IBCSNM=$P(IBCS0,U,1) Q:$E(IBCSNM,1,3)'=""RC-"""
^XMB(3.9,46,2,2085,0)="""RTN"",""IBCROE"",66,0)"
^XMB(3.9,46,2,2086,0)=" . S IBBR=+$P(IBCS0,U,2),IBBR0=$G(^IBE(363.3,IBBR,0))"
^XMB(3.9,46,2,2087,0)="""RTN"",""IBCROE"",67,0)"
^XMB(3.9,46,2,2088,0)=" . S IBRG=+$P(IBCS0,U,7),IBRG0=$G(^IBE(363.31,IBRG,0)),IBDV=$P(IBRG0,"" "",2)"
^XMB(3.9,46,2,2089,0)="""RTN"",""IBCROE"",68,0)"
^XMB(3.9,46,2,2090,0)=" . ;"
^XMB(3.9,46,2,2091,0)="""RTN"",""IBCROE"",69,0)"
^XMB(3.9,46,2,2092,0)=" . I $P(IBRG0,U,2)'=ZIP Q"
^XMB(3.9,46,2,2093,0)="""RTN"",""IBCROE"",70,0)"
^XMB(3.9,46,2,2094,0)=" . ;"
^XMB(3.9,46,2,2095,0)="""RTN"",""IBCROE"",71,0)"
^XMB(3.9,46,2,2096,0)=" . S IBBI=$$EXPAND^IBCRU1(363.3,.04,$P(IBBR0,U,4))"
^XMB(3.9,46,2,2097,0)="""RTN"",""IBCROE"",72,0)"
^XMB(3.9,46,2,2098,0)=" . S IBCT=$S(IBBR0[""FACILITY"":""FACILITY"",IBBR0[""PHYSICIAN"":""PHYSICIAN"",1:$P(IBBR0,U,1))"
^XMB(3.9,46,2,2099,0)="""RTN"",""IBCROE"",73,0)"
^XMB(3.9,46,2,2100,0)=" . ;"
^XMB(3.9,46,2,2101,0)="""RTN"",""IBCROE"",74,0)"
^XMB(3.9,46,2,2102,0)=" . I IBBI[""MISC"",IBCSNM'[""SNF"" S COL=2,IBNAME=""Partial Hospitalization"""
^XMB(3.9,46,2,2103,0)="""RTN"",""IBCROE"",75,0)"
^XMB(3.9,46,2,2104,0)=" . I IBBI[""MISC"",IBCSNM[""SKILLED"" S COL=1,IBNAME=""Skilled Nursing"""
^XMB(3.9,46,2,2105,0)="""RTN"",""IBCROE"",76,0)"
^XMB(3.9,46,2,2106,0)=" . I IBBI=""DRG"",IBCSNM[""ANC"" S COL=1,IBNAME=""Inpatient Anc"" I IBCSNM[""ICU"" S COL=COL+1,IBNAME=IBNAME_"" ICU"""
^XMB(3.9,46,2,2107,0)="""RTN"",""IBCROE"",77,0)"
^XMB(3.9,46,2,2108,0)=" . I IBBI=""DRG"",IBCSNM[""R&B"" S COL=3,IBNAME=""Inpatient R&B"" I IBCSNM[""ICU"" S COL=COL+1,IBNAME=IBNAME_"" ICU"""
^XMB(3.9,46,2,2109,0)="""RTN"",""IBCROE"",78,0)"
^XMB(3.9,46,2,2110,0)=" . ;"
^XMB(3.9,46,2,2111,0)="""RTN"",""IBCROE"",79,0)"
^XMB(3.9,46,2,2112,0)=" . I IBBI=""CPT"",IBCSNM[""INPT"" S COL=1,IBNAME=""Inpatient Facility"" I IBCT=""PHYSICIAN"" S COL=COL+1,IBNAME=""Inpatient Physician"""
^XMB(3.9,46,2,2113,0)="""RTN"",""IBCROE"",80,0)"
^XMB(3.9,46,2,2114,0)=" . I IBBI=""CPT"",IBCSNM[""SNF"" S COL=3,IBNAME=""SNF Facility"" I IBCT=""PHYSICIAN"" S COL=COL+1,IBNAME=""SNF Physician"""
^XMB(3.9,46,2,2115,0)="""RTN"",""IBCROE"",81,0)"
^XMB(3.9,46,2,2116,0)=" . I IBBI=""CPT"",IBCSNM[""OPT"" S COL=5,IBNAME=""Outpatient Facility"" I IBCT=""PHYSICIAN"" S COL=COL+1,IBNAME=""Outpatient Physician"""
^XMB(3.9,46,2,2117,0)="""RTN"",""IBCROE"",82,0)"
^XMB(3.9,46,2,2118,0)=" . I IBBI=""CPT"",IBCSNM[""FS"" S COL=7,IBNAME=""Freestanding Physician"""
^XMB(3.9,46,2,2119,0)="""RTN"",""IBCROE"",83,0)"
^XMB(3.9,46,2,2120,0)=" . ;"
^XMB(3.9,46,2,2121,0)="""RTN"",""IBCROE"",84,0)"
^XMB(3.9,46,2,2122,0)=" . S IBPB=$P(IBRG0,U,3),IBPB=$S(IBPB=1:""VAMC Provider Based"",IBPB=2:""Opt Provider Based"",IBPB=3:""Non-Provider Based"",1:""Provider Based Unknown"")"
^XMB(3.9,46,2,2123,0)="""RTN"",""IBCROE"",85,0)"
^XMB(3.9,46,2,2124,0)=" . ;"
^XMB(3.9,46,2,2125,0)="""RTN"",""IBCROE"",86,0)"
^XMB(3.9,46,2,2126,0)=" . S IBCM=$P(IBBR0,U,5),IBCM=$S(IBCM=4:""ml"",IBCM=5:""mn+"",IBCM=6:""hr+"",1:"""")"
^XMB(3.9,46,2,2127,0)="""RTN"",""IBCROE"",87,0)"
^XMB(3.9,46,2,2128,0)=" . ;"
^XMB(3.9,46,2,2129,0)="""RTN"",""IBCROE"",88,0)"
^XMB(3.9,46,2,2130,0)=" . S IB2(IBCS)=IBBI_U_COL_U_IBNAME_U_IBDV_U_IBPB_U_IBCM"
^XMB(3.9,46,2,2131,0)="""RTN"",""IBCROE"",89,0)"
^XMB(3.9,46,2,2132,0)=" . S $P(IB3(IBBI),U,COL)=IBNAME_"" ""_IBDV_"" ""_IBPB"
^XMB(3.9,46,2,2133,0)="""RTN"",""IBCROE"",90,0)"
^XMB(3.9,46,2,2134,0)=" . ;"
^XMB(3.9,46,2,2135,0)="""RTN"",""IBCROE"",91,0)"
^XMB(3.9,46,2,2136,0)=" . S IBCNT=IBCNT+1 I IBCNT#1000=0,'$D(ZTQUEUED) U IO(0) W ""."" U IO"
^XMB(3.9,46,2,2137,0)="""RTN"",""IBCROE"",92,0)"
^XMB(3.9,46,2,2138,0)=" ;"
^XMB(3.9,46,2,2139,0)="""RTN"",""IBCROE"",93,0)"
^XMB(3.9,46,2,2140,0)="ITEMS ;"
^XMB(3.9,46,2,2141,0)="""RTN"",""IBCROE"",94,0)"
^XMB(3.9,46,2,2142,0)=" S IBBI="""" F  S IBBI=$O(IB3(IBBI)) Q:IBBI=""""  S ^TMP(""IBCROE"",$J,IBBI)=""Item^Modifier^""_IB3(IBBI)"
^XMB(3.9,46,2,2143,0)="""RTN"",""IBCROE"",95,0)"
^XMB(3.9,46,2,2144,0)=" ;"
^XMB(3.9,46,2,2145,0)="""RTN"",""IBCROE"",96,0)"
^XMB(3.9,46,2,2146,0)=" S IBCI=0 F  S IBCI=$O(^IBA(363.2,IBCI)) Q:'IBCI  D"
^XMB(3.9,46,2,2147,0)="""RTN"",""IBCROE"",97,0)"
^XMB(3.9,46,2,2148,0)=" . S IBCI0=^IBA(363.2,IBCI,0),IBCSNM=$P($G(^IBE(363.1,+$P(IBCI0,U,2),0)),U,1) Q:IBCSNM="""""
^XMB(3.9,46,2,2149,0)="""RTN"",""IBCROE"",98,0)"
^XMB(3.9,46,2,2150,0)=" . S IBLNZ=$G(IB2($P(IBCI0,U,2))) I IBLNZ="""" S IBZ(""NOT DONE "",IBCSNM)="""" Q"
^XMB(3.9,46,2,2151,0)="""RTN"",""IBCROE"",99,0)"
^XMB(3.9,46,2,2152,0)=" . S IBZ(""DONE"",IBCSNM)="""""
^XMB(3.9,46,2,2153,0)="""RTN"",""IBCROE"",100,0)"
^XMB(3.9,46,2,2154,0)=" . ;"
^XMB(3.9,46,2,2155,0)="""RTN"",""IBCROE"",101,0)"
^XMB(3.9,46,2,2156,0)=" . Q:$P(IBCI0,U,3)'=$$VERSDT^IBCRHBRV(VERS)"
^XMB(3.9,46,2,2157,0)="""RTN"",""IBCROE"",102,0)"
^XMB(3.9,46,2,2158,0)=" . ;"
^XMB(3.9,46,2,2159,0)="""RTN"",""IBCROE"",103,0)"
^XMB(3.9,46,2,2160,0)=" . S IBCHG=$P(IBCI0,U,5)_$P(IBLNZ,U,6)_$P(IBCI0,U,8)"
^XMB(3.9,46,2,2161,0)="""RTN"",""IBCROE"",104,0)"
^XMB(3.9,46,2,2162,0)=" . S IBMOD=$P(IBCI0,U,7) I IBMOD'="""" S IBMOD=$P($$MOD^ICPTMOD(IBMOD,""I""),U,2)"
^XMB(3.9,46,2,2163,0)="""RTN"",""IBCROE"",105,0)"
^XMB(3.9,46,2,2164,0)=" . I IBMOD="""" S IBMOD=0"
^XMB(3.9,46,2,2165,0)="""RTN"",""IBCROE"",106,0)"
^XMB(3.9,46,2,2166,0)=" . S IBCPT=$$EXPAND^IBCRU1(363.2,.01,$P(IBCI0,U,1))"
^XMB(3.9,46,2,2167,0)="""RTN"",""IBCROE"",107,0)"
^XMB(3.9,46,2,2168,0)=" . ;"
^XMB(3.9,46,2,2169,0)="""RTN"",""IBCROE"",108,0)"
^XMB(3.9,46,2,2170,0)=" . S IBBI=$P(IBLNZ,U,1)"
^XMB(3.9,46,2,2171,0)="""RTN"",""IBCROE"",109,0)"
^XMB(3.9,46,2,2172,0)=" . S COL=$P(IBLNZ,U,2)"
^XMB(3.9,46,2,2173,0)="""RTN"",""IBCROE"",110,0)"
^XMB(3.9,46,2,2174,0)=" . I $P($G(^TMP(""IBCROE"",$J,IBBI,IBCPT,IBMOD)),U,COL)'="""" Q  ;DUP"
^XMB(3.9,46,2,2175,0)="""RTN"",""IBCROE"",111,0)"
^XMB(3.9,46,2,2176,0)=" . S $P(^TMP(""IBCROE"",$J,IBBI,IBCPT,IBMOD),U,COL)=IBCHG"
^XMB(3.9,46,2,2177,0)="""RTN"",""IBCROE"",112,0)"
^XMB(3.9,46,2,2178,0)=" . ;"
^XMB(3.9,46,2,2179,0)="""RTN"",""IBCROE"",113,0)"
^XMB(3.9,46,2,2180,0)=" . S IBCNT=IBCNT+1 I IBCNT#1000=0,'$D(ZTQUEUED) U IO(0) W ""."" U IO"
^XMB(3.9,46,2,2181,0)="""RTN"",""IBCROE"",114,0)"
^XMB(3.9,46,2,2182,0)=" ;"
^XMB(3.9,46,2,2183,0)="""RTN"",""IBCROE"",115,0)"
^XMB(3.9,46,2,2184,0)=" ;"
^XMB(3.9,46,2,2185,0)="""RTN"",""IBCROE"",116,0)"
^XMB(3.9,46,2,2186,0)=" D WRT"
^XMB(3.9,46,2,2187,0)="""RTN"",""IBCROE"",117,0)"
^XMB(3.9,46,2,2188,0)=" K ^TMP(""IBCROE"",$J)"
^XMB(3.9,46,2,2189,0)="""RTN"",""IBCROE"",118,0)"
^XMB(3.9,46,2,2190,0)=" Q"
^XMB(3.9,46,2,2191,0)="""RTN"",""IBCROE"",119,0)"
^XMB(3.9,46,2,2192,0)="WRT ;"
^XMB(3.9,46,2,2193,0)="""RTN"",""IBCROE"",120,0)"
^XMB(3.9,46,2,2194,0)=" S IBBI="""" F  S IBBI=$O(^TMP(""IBCROE"",$J,IBBI)) Q:IBBI=""""  D"
^XMB(3.9,46,2,2195,0)="""RTN"",""IBCROE"",121,0)"
^XMB(3.9,46,2,2196,0)=" . W !,^TMP(""IBCROE"",$J,IBBI)"
^XMB(3.9,46,2,2197,0)="""RTN"",""IBCROE"",122,0)"
^XMB(3.9,46,2,2198,0)=" . S IBCPT="""" F  S IBCPT=$O(^TMP(""IBCROE"",$J,IBBI,IBCPT)) Q:IBCPT=""""  D"
^XMB(3.9,46,2,2199,0)="""RTN"",""IBCROE"",123,0)"
^XMB(3.9,46,2,2200,0)=" .. S IBMOD="""" F  S IBMOD=$O(^TMP(""IBCROE"",$J,IBBI,IBCPT,IBMOD)) Q:IBMOD=""""  D"
^XMB(3.9,46,2,2201,0)="""RTN"",""IBCROE"",124,0)"
^XMB(3.9,46,2,2202,0)=" ... S IBMODI=IBMOD I IBMOD=0 S IBMODI="""""
^XMB(3.9,46,2,2203,0)="""RTN"",""IBCROE"",125,0)"
^XMB(3.9,46,2,2204,0)=" ... W !,IBCPT,U,IBMODI,U,^TMP(""IBCROE"",$J,IBBI,IBCPT,IBMOD)"
^XMB(3.9,46,2,2205,0)="""RTN"",""IBCROE"",126,0)"
^XMB(3.9,46,2,2206,0)=" ... S IBCNT=IBCNT+1 I IBCNT#1000=0,'$D(ZTQUEUED),$E(IOST,1,2)'=""C-"" U IO(0) W ""."" U IO"
^XMB(3.9,46,2,2207,0)="""RTN"",""IBCROE"",127,0)"
^XMB(3.9,46,2,2208,0)=" Q"
^XMB(3.9,46,2,2209,0)="""VER"")"
^XMB(3.9,46,2,2210,0)="8.0^22.0"
^XMB(3.9,46,2,2211,0)="""^DD"",350,350,.22,0)"
^XMB(3.9,46,2,2212,0)="PFSS ACCOUNT REFERENCE^P375'^IBBAA(375,^0;22^Q"
^XMB(3.9,46,2,2213,0)="""^DD"",350,350,.22,3)"
^XMB(3.9,46,2,2214,0)="Enter the PFSS Account Reference"
^XMB(3.9,46,2,2215,0)="""^DD"",350,350,.22,21,0)"
^XMB(3.9,46,2,2216,0)="^^2^2^3050715^"
^XMB(3.9,46,2,2217,0)="""^DD"",350,350,.22,21,1,0)"
^XMB(3.9,46,2,2218,0)="This is the PFSS Account entry for the Integrated Billing Action copayment"
^XMB(3.9,46,2,2219,0)="""^DD"",350,350,.22,21,2,0)"
^XMB(3.9,46,2,2220,0)="charge."
^XMB(3.9,46,2,2221,0)="""^DD"",350,350,.22,""DT"")"
^XMB(3.9,46,2,2222,0)="3050715"
^XMB(3.9,46,2,2223,0)="""^DD"",354.71,354.71,.11,0)"
^XMB(3.9,46,2,2224,0)="BILLED AMOUNT^NJ10,2^^0;11^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0)!(X?.E1"".""3.N) X"
^XMB(3.9,46,2,2225,0)="""^DD"",354.71,354.71,.11,3)"
^XMB(3.9,46,2,2226,0)="Type a Dollar amount between 0 and 9999999.99, 2 Decimal Digits"
^XMB(3.9,46,2,2227,0)="""^DD"",354.71,354.71,.11,21,0)"
^XMB(3.9,46,2,2228,0)="^.001^1^1^3010130^^"
^XMB(3.9,46,2,2229,0)="""^DD"",354.71,354.71,.11,21,1,0)"
^XMB(3.9,46,2,2230,0)="This is the amount that was billed for this transaction."
^XMB(3.9,46,2,2231,0)="""^DD"",354.71,354.71,.11,""DT"")"
^XMB(3.9,46,2,2232,0)="3060201"
^XMB(3.9,46,2,2233,0)="""^DD"",354.71,354.71,.12,0)"
^XMB(3.9,46,2,2234,0)="NON-BILLABLE AMOUNT^NJ10,2^^0;12^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0)!(X?.E1"".""3.N) X"
^XMB(3.9,46,2,2235,0)="""^DD"",354.71,354.71,.12,3)"
^XMB(3.9,46,2,2236,0)="Type a Dollar amount between 0 and 9999999.99, 2 Decimal Digits"
^XMB(3.9,46,2,2237,0)="""^DD"",354.71,354.71,.12,21,0)"
^XMB(3.9,46,2,2238,0)="^.001^1^1^3010130^^"
^XMB(3.9,46,2,2239,0)="""^DD"",354.71,354.71,.12,21,1,0)"
^XMB(3.9,46,2,2240,0)="This is the non-billable amount for this transaction."
^XMB(3.9,46,2,2241,0)="""^DD"",354.71,354.71,.12,""DT"")"
^XMB(3.9,46,2,2242,0)="3060201"
^XMB(3.9,46,2,2243,0)="""^DD"",354.71,354.71,.2,0)"
^XMB(3.9,46,2,2244,0)="PFSS REMOTE TRANSACTION^S^0:NO;1:YES;^0;20^Q"
^XMB(3.9,46,2,2245,0)="""^DD"",354.71,354.71,.2,3)"
^XMB(3.9,46,2,2246,0)="Enter YES if this transaction came from a PFSS remote system."
^XMB(3.9,46,2,2247,0)="""^DD"",354.71,354.71,.2,21,0)"
^XMB(3.9,46,2,2248,0)="^^3^3^3050715^"
^XMB(3.9,46,2,2249,0)="""^DD"",354.71,354.71,.2,21,1,0)"
^XMB(3.9,46,2,2250,0)="This field is a flag/indicator that this billing transaction is from a "
^XMB(3.9,46,2,2251,0)="""^DD"",354.71,354.71,.2,21,2,0)"
^XMB(3.9,46,2,2252,0)="PFSS remote system to the local VistA M system.  It is used to determine "
^XMB(3.9,46,2,2253,0)="""^DD"",354.71,354.71,.2,21,3,0)"
^XMB(3.9,46,2,2254,0)="which system should be used for update processing."
^XMB(3.9,46,2,2255,0)="""^DD"",354.71,354.71,.2,""DT"")"
^XMB(3.9,46,2,2256,0)="3050715"
^XMB(3.9,46,2,2257,0)="""BLD"",5733,6)"
^XMB(3.9,46,2,2258,0)="^306"
^XMB(3.9,46,2,2259,0)="$END KID IB*2.0*308"
^XMB(3.9,46,6,0)="^3.911A^2^2"
^XMB(3.9,46,6,1,0)="POSTMASTER"
^XMB(3.9,46,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,46,6,"B","POSTMASTER",1)=""
^XMB(3.9,46,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,47,0)="IB-2_SEQ-307_PAT-338.KID^.5^3061008.015735^^^^K"
^XMB(3.9,47,.6)="3061008"
^XMB(3.9,47,1,0)="^3.91A^2^2"
^XMB(3.9,47,1,1,0)=".5^0^3061008.015735^^^^^^^3061008.015735"
^XMB(3.9,47,1,2,0)="1^0^3061008.023256^^^^^^^3061008.023256"
^XMB(3.9,47,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,47,1,"C",.5,1)=""
^XMB(3.9,47,1,"C",1,2)=""
^XMB(3.9,47,2,0)="^^313^313^3061008"
^XMB(3.9,47,2,1,0)="$TXT Released IB*2*338 SEQ #307"
^XMB(3.9,47,2,2,0)="Extracted from mail message"
^XMB(3.9,47,2,3,0)="$END TXT"
^XMB(3.9,47,2,4,0)="$KID IB*2.0*338"
^XMB(3.9,47,2,5,0)="**INSTALL NAME**"
^XMB(3.9,47,2,6,0)="IB*2.0*338"
^XMB(3.9,47,2,7,0)="""BLD"",6626,0)"
^XMB(3.9,47,2,8,0)="IB*2.0*338^INTEGRATED BILLING^0^3060307^y"
^XMB(3.9,47,2,9,0)="""BLD"",6626,1,0)"
^XMB(3.9,47,2,10,0)="^^2^2^3060307^"
^XMB(3.9,47,2,11,0)="""BLD"",6626,1,1,0)"
^XMB(3.9,47,2,12,0)="The purpose of this patch is to add a value code of 'A0' (Special Zip"
^XMB(3.9,47,2,13,0)="""BLD"",6626,1,2,0)"
^XMB(3.9,47,2,14,0)="Code Reporting) to the MCCR Utility file (#399.1)."
^XMB(3.9,47,2,15,0)="""BLD"",6626,4,0)"
^XMB(3.9,47,2,16,0)="^9.64PA^^"
^XMB(3.9,47,2,17,0)="""BLD"",6626,""INIT"")"
^XMB(3.9,47,2,18,0)="POST^IB20P338"
^XMB(3.9,47,2,19,0)="""BLD"",6626,""KRN"",0)"
^XMB(3.9,47,2,20,0)="^9.67PA^8989.52^19"
^XMB(3.9,47,2,21,0)="""BLD"",6626,""KRN"",.4,0)"
^XMB(3.9,47,2,22,0)=".4"
^XMB(3.9,47,2,23,0)="""BLD"",6626,""KRN"",.401,0)"
^XMB(3.9,47,2,24,0)=".401"
^XMB(3.9,47,2,25,0)="""BLD"",6626,""KRN"",.402,0)"
^XMB(3.9,47,2,26,0)=".402"
^XMB(3.9,47,2,27,0)="""BLD"",6626,""KRN"",.403,0)"
^XMB(3.9,47,2,28,0)=".403"
^XMB(3.9,47,2,29,0)="""BLD"",6626,""KRN"",.5,0)"
^XMB(3.9,47,2,30,0)=".5"
^XMB(3.9,47,2,31,0)="""BLD"",6626,""KRN"",.84,0)"
^XMB(3.9,47,2,32,0)=".84"
^XMB(3.9,47,2,33,0)="""BLD"",6626,""KRN"",3.6,0)"
^XMB(3.9,47,2,34,0)="3.6"
^XMB(3.9,47,2,35,0)="""BLD"",6626,""KRN"",3.8,0)"
^XMB(3.9,47,2,36,0)="3.8"
^XMB(3.9,47,2,37,0)="""BLD"",6626,""KRN"",9.2,0)"
^XMB(3.9,47,2,38,0)="9.2"
^XMB(3.9,47,2,39,0)="""BLD"",6626,""KRN"",9.8,0)"
^XMB(3.9,47,2,40,0)="9.8"
^XMB(3.9,47,2,41,0)="""BLD"",6626,""KRN"",19,0)"
^XMB(3.9,47,2,42,0)="19"
^XMB(3.9,47,2,43,0)="""BLD"",6626,""KRN"",19.1,0)"
^XMB(3.9,47,2,44,0)="19.1"
^XMB(3.9,47,2,45,0)="""BLD"",6626,""KRN"",101,0)"
^XMB(3.9,47,2,46,0)="101"
^XMB(3.9,47,2,47,0)="""BLD"",6626,""KRN"",409.61,0)"
^XMB(3.9,47,2,48,0)="409.61"
^XMB(3.9,47,2,49,0)="""BLD"",6626,""KRN"",771,0)"
^XMB(3.9,47,2,50,0)="771"
^XMB(3.9,47,2,51,0)="""BLD"",6626,""KRN"",870,0)"
^XMB(3.9,47,2,52,0)="870"
^XMB(3.9,47,2,53,0)="""BLD"",6626,""KRN"",8989.51,0)"
^XMB(3.9,47,2,54,0)="8989.51"
^XMB(3.9,47,2,55,0)="""BLD"",6626,""KRN"",8989.52,0)"
^XMB(3.9,47,2,56,0)="8989.52"
^XMB(3.9,47,2,57,0)="""BLD"",6626,""KRN"",8994,0)"
^XMB(3.9,47,2,58,0)="8994"
^XMB(3.9,47,2,59,0)="""BLD"",6626,""KRN"",""B"",.4,.4)"
^XMB(3.9,47,2,60,0)=""
^XMB(3.9,47,2,61,0)="""BLD"",6626,""KRN"",""B"",.401,.401)"
^XMB(3.9,47,2,62,0)=""
^XMB(3.9,47,2,63,0)="""BLD"",6626,""KRN"",""B"",.402,.402)"
^XMB(3.9,47,2,64,0)=""
^XMB(3.9,47,2,65,0)="""BLD"",6626,""KRN"",""B"",.403,.403)"
^XMB(3.9,47,2,66,0)=""
^XMB(3.9,47,2,67,0)="""BLD"",6626,""KRN"",""B"",.5,.5)"
^XMB(3.9,47,2,68,0)=""
^XMB(3.9,47,2,69,0)="""BLD"",6626,""KRN"",""B"",.84,.84)"
^XMB(3.9,47,2,70,0)=""
^XMB(3.9,47,2,71,0)="""BLD"",6626,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,47,2,72,0)=""
^XMB(3.9,47,2,73,0)="""BLD"",6626,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,47,2,74,0)=""
^XMB(3.9,47,2,75,0)="""BLD"",6626,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,47,2,76,0)=""
^XMB(3.9,47,2,77,0)="""BLD"",6626,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,47,2,78,0)=""
^XMB(3.9,47,2,79,0)="""BLD"",6626,""KRN"",""B"",19,19)"
^XMB(3.9,47,2,80,0)=""
^XMB(3.9,47,2,81,0)="""BLD"",6626,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,47,2,82,0)=""
^XMB(3.9,47,2,83,0)="""BLD"",6626,""KRN"",""B"",101,101)"
^XMB(3.9,47,2,84,0)=""
^XMB(3.9,47,2,85,0)="""BLD"",6626,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,47,2,86,0)=""
^XMB(3.9,47,2,87,0)="""BLD"",6626,""KRN"",""B"",771,771)"
^XMB(3.9,47,2,88,0)=""
^XMB(3.9,47,2,89,0)="""BLD"",6626,""KRN"",""B"",870,870)"
^XMB(3.9,47,2,90,0)=""
^XMB(3.9,47,2,91,0)="""BLD"",6626,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,47,2,92,0)=""
^XMB(3.9,47,2,93,0)="""BLD"",6626,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,47,2,94,0)=""
^XMB(3.9,47,2,95,0)="""BLD"",6626,""KRN"",""B"",8994,8994)"
^XMB(3.9,47,2,96,0)=""
^XMB(3.9,47,2,97,0)="""BLD"",6626,""QUES"",0)"
^XMB(3.9,47,2,98,0)="^9.62^^"
^XMB(3.9,47,2,99,0)="""BLD"",6626,""REQB"",0)"
^XMB(3.9,47,2,100,0)="^9.611^^"
^XMB(3.9,47,2,101,0)="""INIT"")"
^XMB(3.9,47,2,102,0)="POST^IB20P338"
^XMB(3.9,47,2,103,0)="""MBREQ"")"
^XMB(3.9,47,2,104,0)="0"
^XMB(3.9,47,2,105,0)="""PKG"",200,-1)"
^XMB(3.9,47,2,106,0)="1^1"
^XMB(3.9,47,2,107,0)="""PKG"",200,0)"
^XMB(3.9,47,2,108,0)="INTEGRATED BILLING^IB^INTEGRATED BILLING"
^XMB(3.9,47,2,109,0)="""PKG"",200,20,0)"
^XMB(3.9,47,2,110,0)="^9.402P^1^1"
^XMB(3.9,47,2,111,0)="""PKG"",200,20,1,0)"
^XMB(3.9,47,2,112,0)="2^^IBAXDR"
^XMB(3.9,47,2,113,0)="""PKG"",200,20,1,1)"
^XMB(3.9,47,2,114,0)=""
^XMB(3.9,47,2,115,0)="""PKG"",200,20,""B"",2,1)"
^XMB(3.9,47,2,116,0)=""
^XMB(3.9,47,2,117,0)="""PKG"",200,22,0)"
^XMB(3.9,47,2,118,0)="^9.49I^1^1"
^XMB(3.9,47,2,119,0)="""PKG"",200,22,1,0)"
^XMB(3.9,47,2,120,0)="2.0^2940321^2990406^2447"
^XMB(3.9,47,2,121,0)="""PKG"",200,22,1,""PAH"",1,0)"
^XMB(3.9,47,2,122,0)="338^3060307"
^XMB(3.9,47,2,123,0)="""PKG"",200,22,1,""PAH"",1,1,0)"
^XMB(3.9,47,2,124,0)="^^2^2^3060307"
^XMB(3.9,47,2,125,0)="""PKG"",200,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,47,2,126,0)="The purpose of this patch is to add a value code of 'A0' (Special Zip"
^XMB(3.9,47,2,127,0)="""PKG"",200,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,47,2,128,0)="Code Reporting) to the MCCR Utility file (#399.1)."
^XMB(3.9,47,2,129,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,47,2,130,0)="Y"
^XMB(3.9,47,2,131,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,47,2,132,0)="^D REP^XPDH"
^XMB(3.9,47,2,133,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,47,2,134,0)="Shall I write over your |FLAG| File"
^XMB(3.9,47,2,135,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,47,2,136,0)="YES"
^XMB(3.9,47,2,137,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,47,2,138,0)="D XPF1^XPDIQ"
^XMB(3.9,47,2,139,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,47,2,140,0)="Y"
^XMB(3.9,47,2,141,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,47,2,142,0)="^D DTA^XPDH"
^XMB(3.9,47,2,143,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,47,2,144,0)="Want my data |FLAG| yours"
^XMB(3.9,47,2,145,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,47,2,146,0)="YES"
^XMB(3.9,47,2,147,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,47,2,148,0)="D XPF2^XPDIQ"
^XMB(3.9,47,2,149,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,47,2,150,0)="YO"
^XMB(3.9,47,2,151,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,47,2,152,0)="^D INHIBIT^XPDH"
^XMB(3.9,47,2,153,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,47,2,154,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,47,2,155,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,47,2,156,0)="YES"
^XMB(3.9,47,2,157,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,47,2,158,0)="D XPI1^XPDIQ"
^XMB(3.9,47,2,159,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,47,2,160,0)="PO^VA(200,:EM"
^XMB(3.9,47,2,161,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,47,2,162,0)="^D MG^XPDH"
^XMB(3.9,47,2,163,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,47,2,164,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,47,2,165,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,47,2,166,0)=""
^XMB(3.9,47,2,167,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,47,2,168,0)="D XPM1^XPDIQ"
^XMB(3.9,47,2,169,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,47,2,170,0)="Y"
^XMB(3.9,47,2,171,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,47,2,172,0)="^D MENU^XPDH"
^XMB(3.9,47,2,173,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,47,2,174,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,47,2,175,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,47,2,176,0)="YES"
^XMB(3.9,47,2,177,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,47,2,178,0)="D XPO1^XPDIQ"
^XMB(3.9,47,2,179,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,47,2,180,0)="Y"
^XMB(3.9,47,2,181,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,47,2,182,0)="^D OPT^XPDH"
^XMB(3.9,47,2,183,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,47,2,184,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,47,2,185,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,47,2,186,0)="YES"
^XMB(3.9,47,2,187,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,47,2,188,0)="D XPZ1^XPDIQ"
^XMB(3.9,47,2,189,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,47,2,190,0)="Y"
^XMB(3.9,47,2,191,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,47,2,192,0)="^D RTN^XPDH"
^XMB(3.9,47,2,193,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,47,2,194,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,47,2,195,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,47,2,196,0)="NO"
^XMB(3.9,47,2,197,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,47,2,198,0)="D XPZ2^XPDIQ"
^XMB(3.9,47,2,199,0)="""RTN"")"
^XMB(3.9,47,2,200,0)="1"
^XMB(3.9,47,2,201,0)="""RTN"",""IB20P338"")"
^XMB(3.9,47,2,202,0)="0^^B5432070"
^XMB(3.9,47,2,203,0)="""RTN"",""IB20P338"",1,0)"
^XMB(3.9,47,2,204,0)="IB20P338 ;ALB/CXW - IB*2.0*338 POST INIT: MCCR UTILITY CODES (#399.1) ; 1/20/06"
^XMB(3.9,47,2,205,0)="""RTN"",""IB20P338"",2,0)"
^XMB(3.9,47,2,206,0)=" ;;2.0;INTEGRATED BILLING;**338**;21-MAR-94"
^XMB(3.9,47,2,207,0)="""RTN"",""IB20P338"",3,0)"
^XMB(3.9,47,2,208,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,47,2,209,0)="""RTN"",""IB20P338"",4,0)"
^XMB(3.9,47,2,210,0)=" Q"
^XMB(3.9,47,2,211,0)="""RTN"",""IB20P338"",5,0)"
^XMB(3.9,47,2,212,0)="POST ;"
^XMB(3.9,47,2,213,0)="""RTN"",""IB20P338"",6,0)"
^XMB(3.9,47,2,214,0)=" N U S U=""^"""
^XMB(3.9,47,2,215,0)="""RTN"",""IB20P338"",7,0)"
^XMB(3.9,47,2,216,0)=" D START,MUCODES,END"
^XMB(3.9,47,2,217,0)="""RTN"",""IB20P338"",8,0)"
^XMB(3.9,47,2,218,0)=" Q"
^XMB(3.9,47,2,219,0)="""RTN"",""IB20P338"",9,0)"
^XMB(3.9,47,2,220,0)="START ;"
^XMB(3.9,47,2,221,0)="""RTN"",""IB20P338"",10,0)"
^XMB(3.9,47,2,222,0)=" D MES^XPDUTL("""")"
^XMB(3.9,47,2,223,0)="""RTN"",""IB20P338"",11,0)"
^XMB(3.9,47,2,224,0)=" D MES^XPDUTL(""    IB*2.0*338 Post-Install ....."")"
^XMB(3.9,47,2,225,0)="""RTN"",""IB20P338"",12,0)"
^XMB(3.9,47,2,226,0)=" Q"
^XMB(3.9,47,2,227,0)="""RTN"",""IB20P338"",13,0)"
^XMB(3.9,47,2,228,0)="END ;"
^XMB(3.9,47,2,229,0)="""RTN"",""IB20P338"",14,0)"
^XMB(3.9,47,2,230,0)=" D MES^XPDUTL("""")"
^XMB(3.9,47,2,231,0)="""RTN"",""IB20P338"",15,0)"
^XMB(3.9,47,2,232,0)=" D MES^XPDUTL(""    IB*2.0*338 Post-Install Complete"")"
^XMB(3.9,47,2,233,0)="""RTN"",""IB20P338"",16,0)"
^XMB(3.9,47,2,234,0)=" Q"
^XMB(3.9,47,2,235,0)="""RTN"",""IB20P338"",17,0)"
^XMB(3.9,47,2,236,0)=" ;"
^XMB(3.9,47,2,237,0)="""RTN"",""IB20P338"",18,0)"
^XMB(3.9,47,2,238,0)="MUCODES ; Add MCCR UTILITY Codes to 399.1"
^XMB(3.9,47,2,239,0)="""RTN"",""IB20P338"",19,0)"
^XMB(3.9,47,2,240,0)=" N DLAYGO,DIC,DIE,DD,DO,DA,DR,X,Y,IBA,IBI,IBLN,IBCNT,IBFN,IBTYPE"
^XMB(3.9,47,2,241,0)="""RTN"",""IB20P338"",20,0)"
^XMB(3.9,47,2,242,0)=" S IBCNT=0,IBTYPE=""UB-92 Value Codes"""
^XMB(3.9,47,2,243,0)="""RTN"",""IB20P338"",21,0)"
^XMB(3.9,47,2,244,0)=" ;"
^XMB(3.9,47,2,245,0)="""RTN"",""IB20P338"",22,0)"
^XMB(3.9,47,2,246,0)=" F IBI=1:1 S IBLN=$P($T(MUCF+IBI),"";;"",2) Q:IBLN=""""  I $E(IBLN)'="" "" D"
^XMB(3.9,47,2,247,0)="""RTN"",""IB20P338"",23,0)"
^XMB(3.9,47,2,248,0)=" . ;"
^XMB(3.9,47,2,249,0)="""RTN"",""IB20P338"",24,0)"
^XMB(3.9,47,2,250,0)=" . I $P(IBLN,U,1)="""" Q  ;if no code enters quit "
^XMB(3.9,47,2,251,0)="""RTN"",""IB20P338"",25,0)"
^XMB(3.9,47,2,252,0)=" . ;"
^XMB(3.9,47,2,253,0)="""RTN"",""IB20P338"",26,0)"
^XMB(3.9,47,2,254,0)=" . I +$$MCCRUTL($P(IBLN,U,3),+IBLN) D  Q  ; if code exists quit"
^XMB(3.9,47,2,255,0)="""RTN"",""IB20P338"",27,0)"
^XMB(3.9,47,2,256,0)=" . . D BMES^XPDUTL(""  Duplication of ""_IBTYPE_"": ""_$P(IBLN,U,3))"
^XMB(3.9,47,2,257,0)="""RTN"",""IB20P338"",28,0)"
^XMB(3.9,47,2,258,0)=" . ;"
^XMB(3.9,47,2,259,0)="""RTN"",""IB20P338"",29,0)"
^XMB(3.9,47,2,260,0)=" . K DD,DO S DLAYGO=399.1,DIC=""^DGCR(399.1,"",DIC(0)=""L"",X=$E($P(IBLN,U,8),1,60) D FILE^DICN K DIC I Y<1 K X,Y Q"
^XMB(3.9,47,2,261,0)="""RTN"",""IB20P338"",30,0)"
^XMB(3.9,47,2,262,0)=" . S IBFN=+Y,IBCNT=IBCNT+1"
^XMB(3.9,47,2,263,0)="""RTN"",""IB20P338"",31,0)"
^XMB(3.9,47,2,264,0)=" . ;"
^XMB(3.9,47,2,265,0)="""RTN"",""IB20P338"",32,0)"
^XMB(3.9,47,2,266,0)=" . S DR="".02////""_$P(IBLN,U,3)_"";""_$P(IBLN,U,2)_""////""_1"
^XMB(3.9,47,2,267,0)="""RTN"",""IB20P338"",33,0)"
^XMB(3.9,47,2,268,0)=" . S DR=DR_$S($P(IBLN,U,4)'="""":"";.03////""_$P(IBLN,U,4),1:"""")_$S($P(IBLN,U,5)'="""":"";.16////""_$P(IBLN,U,5),1:"""")"
^XMB(3.9,47,2,269,0)="""RTN"",""IB20P338"",34,0)"
^XMB(3.9,47,2,270,0)=" . S DR=DR_$S($P(IBLN,U,6)'="""":"";.17////""_$P(IBLN,U,6),1:"""")_$S($P(IBLN,U,7)'="""":"";.19////""_$P(IBLN,U,7),1:"""")"
^XMB(3.9,47,2,271,0)="""RTN"",""IB20P338"",35,0)"
^XMB(3.9,47,2,272,0)=" . ;"
^XMB(3.9,47,2,273,0)="""RTN"",""IB20P338"",36,0)"
^XMB(3.9,47,2,274,0)=" . S DIE=""^DGCR(399.1,"",DA=+IBFN D ^DIE K DIE,DA,DR,X,Y"
^XMB(3.9,47,2,275,0)="""RTN"",""IB20P338"",37,0)"
^XMB(3.9,47,2,276,0)=" ;"
^XMB(3.9,47,2,277,0)="""RTN"",""IB20P338"",38,0)"
^XMB(3.9,47,2,278,0)="MSG ;add message to install giving count and type of codes added"
^XMB(3.9,47,2,279,0)="""RTN"",""IB20P338"",39,0)"
^XMB(3.9,47,2,280,0)=" D BMES^XPDUTL(""  ""_IBCNT_"" ""_IBTYPE_"" added to file (#399.1)"")"
^XMB(3.9,47,2,281,0)="""RTN"",""IB20P338"",40,0)"
^XMB(3.9,47,2,282,0)=" Q"
^XMB(3.9,47,2,283,0)="""RTN"",""IB20P338"",41,0)"
^XMB(3.9,47,2,284,0)=" ;"
^XMB(3.9,47,2,285,0)="""RTN"",""IB20P338"",42,0)"
^XMB(3.9,47,2,286,0)="MCCRUTL(X,P) ; returns IFN of item in 399.1 if Code is found and piece P is true"
^XMB(3.9,47,2,287,0)="""RTN"",""IB20P338"",43,0)"
^XMB(3.9,47,2,288,0)=" ;"
^XMB(3.9,47,2,289,0)="""RTN"",""IB20P338"",44,0)"
^XMB(3.9,47,2,290,0)=" N IBX,IBY S IBY="""""
^XMB(3.9,47,2,291,0)="""RTN"",""IB20P338"",45,0)"
^XMB(3.9,47,2,292,0)=" I $G(X)'="""" S IBX=0 F  S IBX=$O(^DGCR(399.1,""C"",X,IBX)) Q:'IBX  I $P($G(^DGCR(399.1,IBX,0)),U,+$G(P)) S IBY=IBX"
^XMB(3.9,47,2,293,0)="""RTN"",""IB20P338"",46,0)"
^XMB(3.9,47,2,294,0)=" Q IBY"
^XMB(3.9,47,2,295,0)="""RTN"",""IB20P338"",47,0)"
^XMB(3.9,47,2,296,0)=" ;"
^XMB(3.9,47,2,297,0)="""RTN"",""IB20P338"",48,0)"
^XMB(3.9,47,2,298,0)=" ;"
^XMB(3.9,47,2,299,0)="""RTN"",""IB20P338"",49,0)"
^XMB(3.9,47,2,300,0)="MUCF ; TYPE #^TYPE FLD^.02 CODE ^.03 ABBR^.16 OCC REL^.17 OCC SPAN^.19 VC AMNT^.01 NAME"
^XMB(3.9,47,2,301,0)="""RTN"",""IB20P338"",50,0)"
^XMB(3.9,47,2,302,0)=" ;; "
^XMB(3.9,47,2,303,0)="""RTN"",""IB20P338"",51,0)"
^XMB(3.9,47,2,304,0)=" ;;^UB-92 Value Codes"
^XMB(3.9,47,2,305,0)="""RTN"",""IB20P338"",52,0)"
^XMB(3.9,47,2,306,0)=" ;;11^.18^A0^^^^^SPECIAL ZIP CODE REPORTING"
^XMB(3.9,47,2,307,0)="""RTN"",""IB20P338"",53,0)"
^XMB(3.9,47,2,308,0)=" ;;"
^XMB(3.9,47,2,309,0)="""VER"")"
^XMB(3.9,47,2,310,0)="8.0^22.0"
^XMB(3.9,47,2,311,0)="""BLD"",6626,6)"
^XMB(3.9,47,2,312,0)="^307"
^XMB(3.9,47,2,313,0)="$END KID IB*2.0*338"
^XMB(3.9,47,6,0)="^3.911A^2^2"
^XMB(3.9,47,6,1,0)="POSTMASTER"
^XMB(3.9,47,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,47,6,"B","POSTMASTER",1)=""
^XMB(3.9,47,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,48,0)="IB-2_SEQ-308_PAT-335.KID^.5^3061008.015735^^^^K"
^XMB(3.9,48,.6)="3061008"
^XMB(3.9,48,1,0)="^3.91A^2^2"
^XMB(3.9,48,1,1,0)=".5^0^3061008.015735^^^^^^^3061008.015735"
^XMB(3.9,48,1,2,0)="1^0^3061008.023303^^^^^^^3061008.023303"
^XMB(3.9,48,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,48,1,"C",.5,1)=""
^XMB(3.9,48,1,"C",1,2)=""
^XMB(3.9,48,2,0)="^^497^497^3061008"
^XMB(3.9,48,2,1,0)="$TXT Released IB*2*335 SEQ #308"
^XMB(3.9,48,2,2,0)="Extracted from mail message"
^XMB(3.9,48,2,3,0)="$END TXT"
^XMB(3.9,48,2,4,0)="$KID IB*2.0*335"
^XMB(3.9,48,2,5,0)="**INSTALL NAME**"
^XMB(3.9,48,2,6,0)="IB*2.0*335"
^XMB(3.9,48,2,7,0)="""BLD"",6596,0)"
^XMB(3.9,48,2,8,0)="IB*2.0*335^INTEGRATED BILLING^0^3060130^y"
^XMB(3.9,48,2,9,0)="""BLD"",6596,1,0)"
^XMB(3.9,48,2,10,0)="^^2^2^3060130^"
^XMB(3.9,48,2,11,0)="""BLD"",6596,1,1,0)"
^XMB(3.9,48,2,12,0)="When the site executes the [IB COPY AND CANCEL] option, an undefined error"
^XMB(3.9,48,2,13,0)="""BLD"",6596,1,2,0)"
^XMB(3.9,48,2,14,0)="generates at line <UNDEFINED>OUTPT+89^IBCEF11."
^XMB(3.9,48,2,15,0)="""BLD"",6596,4,0)"
^XMB(3.9,48,2,16,0)="^9.64PA^^"
^XMB(3.9,48,2,17,0)="""BLD"",6596,""KRN"",0)"
^XMB(3.9,48,2,18,0)="^9.67PA^8989.52^19"
^XMB(3.9,48,2,19,0)="""BLD"",6596,""KRN"",.4,0)"
^XMB(3.9,48,2,20,0)=".4"
^XMB(3.9,48,2,21,0)="""BLD"",6596,""KRN"",.401,0)"
^XMB(3.9,48,2,22,0)=".401"
^XMB(3.9,48,2,23,0)="""BLD"",6596,""KRN"",.402,0)"
^XMB(3.9,48,2,24,0)=".402"
^XMB(3.9,48,2,25,0)="""BLD"",6596,""KRN"",.403,0)"
^XMB(3.9,48,2,26,0)=".403"
^XMB(3.9,48,2,27,0)="""BLD"",6596,""KRN"",.5,0)"
^XMB(3.9,48,2,28,0)=".5"
^XMB(3.9,48,2,29,0)="""BLD"",6596,""KRN"",.84,0)"
^XMB(3.9,48,2,30,0)=".84"
^XMB(3.9,48,2,31,0)="""BLD"",6596,""KRN"",3.6,0)"
^XMB(3.9,48,2,32,0)="3.6"
^XMB(3.9,48,2,33,0)="""BLD"",6596,""KRN"",3.8,0)"
^XMB(3.9,48,2,34,0)="3.8"
^XMB(3.9,48,2,35,0)="""BLD"",6596,""KRN"",9.2,0)"
^XMB(3.9,48,2,36,0)="9.2"
^XMB(3.9,48,2,37,0)="""BLD"",6596,""KRN"",9.8,0)"
^XMB(3.9,48,2,38,0)="9.8"
^XMB(3.9,48,2,39,0)="""BLD"",6596,""KRN"",9.8,""NM"",0)"
^XMB(3.9,48,2,40,0)="^9.68A^1^1"
^XMB(3.9,48,2,41,0)="""BLD"",6596,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,48,2,42,0)="IBCEF11^^0^B34672839"
^XMB(3.9,48,2,43,0)="""BLD"",6596,""KRN"",9.8,""NM"",""B"",""IBCEF11"",1)"
^XMB(3.9,48,2,44,0)=""
^XMB(3.9,48,2,45,0)="""BLD"",6596,""KRN"",19,0)"
^XMB(3.9,48,2,46,0)="19"
^XMB(3.9,48,2,47,0)="""BLD"",6596,""KRN"",19.1,0)"
^XMB(3.9,48,2,48,0)="19.1"
^XMB(3.9,48,2,49,0)="""BLD"",6596,""KRN"",101,0)"
^XMB(3.9,48,2,50,0)="101"
^XMB(3.9,48,2,51,0)="""BLD"",6596,""KRN"",409.61,0)"
^XMB(3.9,48,2,52,0)="409.61"
^XMB(3.9,48,2,53,0)="""BLD"",6596,""KRN"",771,0)"
^XMB(3.9,48,2,54,0)="771"
^XMB(3.9,48,2,55,0)="""BLD"",6596,""KRN"",870,0)"
^XMB(3.9,48,2,56,0)="870"
^XMB(3.9,48,2,57,0)="""BLD"",6596,""KRN"",8989.51,0)"
^XMB(3.9,48,2,58,0)="8989.51"
^XMB(3.9,48,2,59,0)="""BLD"",6596,""KRN"",8989.52,0)"
^XMB(3.9,48,2,60,0)="8989.52"
^XMB(3.9,48,2,61,0)="""BLD"",6596,""KRN"",8994,0)"
^XMB(3.9,48,2,62,0)="8994"
^XMB(3.9,48,2,63,0)="""BLD"",6596,""KRN"",""B"",.4,.4)"
^XMB(3.9,48,2,64,0)=""
^XMB(3.9,48,2,65,0)="""BLD"",6596,""KRN"",""B"",.401,.401)"
^XMB(3.9,48,2,66,0)=""
^XMB(3.9,48,2,67,0)="""BLD"",6596,""KRN"",""B"",.402,.402)"
^XMB(3.9,48,2,68,0)=""
^XMB(3.9,48,2,69,0)="""BLD"",6596,""KRN"",""B"",.403,.403)"
^XMB(3.9,48,2,70,0)=""
^XMB(3.9,48,2,71,0)="""BLD"",6596,""KRN"",""B"",.5,.5)"
^XMB(3.9,48,2,72,0)=""
^XMB(3.9,48,2,73,0)="""BLD"",6596,""KRN"",""B"",.84,.84)"
^XMB(3.9,48,2,74,0)=""
^XMB(3.9,48,2,75,0)="""BLD"",6596,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,48,2,76,0)=""
^XMB(3.9,48,2,77,0)="""BLD"",6596,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,48,2,78,0)=""
^XMB(3.9,48,2,79,0)="""BLD"",6596,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,48,2,80,0)=""
^XMB(3.9,48,2,81,0)="""BLD"",6596,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,48,2,82,0)=""
^XMB(3.9,48,2,83,0)="""BLD"",6596,""KRN"",""B"",19,19)"
^XMB(3.9,48,2,84,0)=""
^XMB(3.9,48,2,85,0)="""BLD"",6596,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,48,2,86,0)=""
^XMB(3.9,48,2,87,0)="""BLD"",6596,""KRN"",""B"",101,101)"
^XMB(3.9,48,2,88,0)=""
^XMB(3.9,48,2,89,0)="""BLD"",6596,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,48,2,90,0)=""
^XMB(3.9,48,2,91,0)="""BLD"",6596,""KRN"",""B"",771,771)"
^XMB(3.9,48,2,92,0)=""
^XMB(3.9,48,2,93,0)="""BLD"",6596,""KRN"",""B"",870,870)"
^XMB(3.9,48,2,94,0)=""
^XMB(3.9,48,2,95,0)="""BLD"",6596,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,48,2,96,0)=""
^XMB(3.9,48,2,97,0)="""BLD"",6596,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,48,2,98,0)=""
^XMB(3.9,48,2,99,0)="""BLD"",6596,""KRN"",""B"",8994,8994)"
^XMB(3.9,48,2,100,0)=""
^XMB(3.9,48,2,101,0)="""BLD"",6596,""QUES"",0)"
^XMB(3.9,48,2,102,0)="^9.62^^"
^XMB(3.9,48,2,103,0)="""BLD"",6596,""REQB"",0)"
^XMB(3.9,48,2,104,0)="^9.611^1^1"
^XMB(3.9,48,2,105,0)="""BLD"",6596,""REQB"",1,0)"
^XMB(3.9,48,2,106,0)="IB*2.0*309^2"
^XMB(3.9,48,2,107,0)="""BLD"",6596,""REQB"",""B"",""IB*2.0*309"",1)"
^XMB(3.9,48,2,108,0)=""
^XMB(3.9,48,2,109,0)="""MBREQ"")"
^XMB(3.9,48,2,110,0)="0"
^XMB(3.9,48,2,111,0)="""PKG"",200,-1)"
^XMB(3.9,48,2,112,0)="1^1"
^XMB(3.9,48,2,113,0)="""PKG"",200,0)"
^XMB(3.9,48,2,114,0)="INTEGRATED BILLING^IB^INTEGRATED BILLING"
^XMB(3.9,48,2,115,0)="""PKG"",200,20,0)"
^XMB(3.9,48,2,116,0)="^9.402P^1^1"
^XMB(3.9,48,2,117,0)="""PKG"",200,20,1,0)"
^XMB(3.9,48,2,118,0)="2^^IBAXDR"
^XMB(3.9,48,2,119,0)="""PKG"",200,20,1,1)"
^XMB(3.9,48,2,120,0)=""
^XMB(3.9,48,2,121,0)="""PKG"",200,20,""B"",2,1)"
^XMB(3.9,48,2,122,0)=""
^XMB(3.9,48,2,123,0)="""PKG"",200,22,0)"
^XMB(3.9,48,2,124,0)="^9.49I^1^1"
^XMB(3.9,48,2,125,0)="""PKG"",200,22,1,0)"
^XMB(3.9,48,2,126,0)="2.0^2940321^2990406^2447"
^XMB(3.9,48,2,127,0)="""PKG"",200,22,1,""PAH"",1,0)"
^XMB(3.9,48,2,128,0)="335^3060130"
^XMB(3.9,48,2,129,0)="""PKG"",200,22,1,""PAH"",1,1,0)"
^XMB(3.9,48,2,130,0)="^^2^2^3060130"
^XMB(3.9,48,2,131,0)="""PKG"",200,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,48,2,132,0)="When the site executes the [IB COPY AND CANCEL] option, an undefined error"
^XMB(3.9,48,2,133,0)="""PKG"",200,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,48,2,134,0)="generates at line <UNDEFINED>OUTPT+89^IBCEF11."
^XMB(3.9,48,2,135,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,48,2,136,0)="Y"
^XMB(3.9,48,2,137,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,48,2,138,0)="^D REP^XPDH"
^XMB(3.9,48,2,139,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,48,2,140,0)="Shall I write over your |FLAG| File"
^XMB(3.9,48,2,141,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,48,2,142,0)="YES"
^XMB(3.9,48,2,143,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,48,2,144,0)="D XPF1^XPDIQ"
^XMB(3.9,48,2,145,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,48,2,146,0)="Y"
^XMB(3.9,48,2,147,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,48,2,148,0)="^D DTA^XPDH"
^XMB(3.9,48,2,149,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,48,2,150,0)="Want my data |FLAG| yours"
^XMB(3.9,48,2,151,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,48,2,152,0)="YES"
^XMB(3.9,48,2,153,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,48,2,154,0)="D XPF2^XPDIQ"
^XMB(3.9,48,2,155,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,48,2,156,0)="YO"
^XMB(3.9,48,2,157,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,48,2,158,0)="^D INHIBIT^XPDH"
^XMB(3.9,48,2,159,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,48,2,160,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,48,2,161,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,48,2,162,0)="YES"
^XMB(3.9,48,2,163,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,48,2,164,0)="D XPI1^XPDIQ"
^XMB(3.9,48,2,165,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,48,2,166,0)="PO^VA(200,:EM"
^XMB(3.9,48,2,167,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,48,2,168,0)="^D MG^XPDH"
^XMB(3.9,48,2,169,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,48,2,170,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,48,2,171,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,48,2,172,0)=""
^XMB(3.9,48,2,173,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,48,2,174,0)="D XPM1^XPDIQ"
^XMB(3.9,48,2,175,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,48,2,176,0)="Y"
^XMB(3.9,48,2,177,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,48,2,178,0)="^D MENU^XPDH"
^XMB(3.9,48,2,179,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,48,2,180,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,48,2,181,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,48,2,182,0)="YES"
^XMB(3.9,48,2,183,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,48,2,184,0)="D XPO1^XPDIQ"
^XMB(3.9,48,2,185,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,48,2,186,0)="Y"
^XMB(3.9,48,2,187,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,48,2,188,0)="^D OPT^XPDH"
^XMB(3.9,48,2,189,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,48,2,190,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,48,2,191,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,48,2,192,0)="YES"
^XMB(3.9,48,2,193,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,48,2,194,0)="D XPZ1^XPDIQ"
^XMB(3.9,48,2,195,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,48,2,196,0)="Y"
^XMB(3.9,48,2,197,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,48,2,198,0)="^D RTN^XPDH"
^XMB(3.9,48,2,199,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,48,2,200,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,48,2,201,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,48,2,202,0)="NO"
^XMB(3.9,48,2,203,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,48,2,204,0)="D XPZ2^XPDIQ"
^XMB(3.9,48,2,205,0)="""RTN"")"
^XMB(3.9,48,2,206,0)="1"
^XMB(3.9,48,2,207,0)="""RTN"",""IBCEF11"")"
^XMB(3.9,48,2,208,0)="0^1^B34672839^B35185539"
^XMB(3.9,48,2,209,0)="""RTN"",""IBCEF11"",1,0)"
^XMB(3.9,48,2,210,0)="IBCEF11 ;ALB/TMP - FORMATTER SPECIFIC BILL FUNCTIONS - CONT ;30-JAN-96"
^XMB(3.9,48,2,211,0)="""RTN"",""IBCEF11"",2,0)"
^XMB(3.9,48,2,212,0)=" ;;2.0;INTEGRATED BILLING;**51,137,155,309,335**;21-MAR-94"
^XMB(3.9,48,2,213,0)="""RTN"",""IBCEF11"",3,0)"
^XMB(3.9,48,2,214,0)=" ;"
^XMB(3.9,48,2,215,0)="""RTN"",""IBCEF11"",4,0)"
^XMB(3.9,48,2,216,0)="BOX24D(A,IB) ; Returns the lines for boxes 19-24 of the HCFA 1500 display"
^XMB(3.9,48,2,217,0)="""RTN"",""IBCEF11"",5,0)"
^XMB(3.9,48,2,218,0)=" ; IB = flag is 1 if only box 24 is needed"
^XMB(3.9,48,2,219,0)="""RTN"",""IBCEF11"",6,0)"
^XMB(3.9,48,2,220,0)=" Q $S('$G(IB):""36"",1:""44"")_""^55"""
^XMB(3.9,48,2,221,0)="""RTN"",""IBCEF11"",7,0)"
^XMB(3.9,48,2,222,0)=" ;"
^XMB(3.9,48,2,223,0)="""RTN"",""IBCEF11"",8,0)"
^XMB(3.9,48,2,224,0)="RCBOX() ; Returns the lines for revenue code boxes of the UB-92 display"
^XMB(3.9,48,2,225,0)="""RTN"",""IBCEF11"",9,0)"
^XMB(3.9,48,2,226,0)=" Q ""19^41"""
^XMB(3.9,48,2,227,0)="""RTN"",""IBCEF11"",10,0)"
^XMB(3.9,48,2,228,0)=" ;"
^XMB(3.9,48,2,229,0)="""RTN"",""IBCEF11"",11,0)"
^XMB(3.9,48,2,230,0)="OUTPT(IBIFN,IBPRINT) ; Returns an array of service line data from"
^XMB(3.9,48,2,231,0)="""RTN"",""IBCEF11"",12,0)"
^XMB(3.9,48,2,232,0)=" ;                 HCFA 1500 box 24.  Output is in IBXDATA(n)"
^XMB(3.9,48,2,233,0)="""RTN"",""IBCEF11"",13,0)"
^XMB(3.9,48,2,234,0)=" ; IBPRINT = print flag  1: return print fields"
^XMB(3.9,48,2,235,0)="""RTN"",""IBCEF11"",14,0)"
^XMB(3.9,48,2,236,0)=" ;                       0: return EDI fields"
^XMB(3.9,48,2,237,0)="""RTN"",""IBCEF11"",15,0)"
^XMB(3.9,48,2,238,0)=" ; Uses diagnosis array ^TMP(""IBXSAVE"",$J,""DX"",IBIFN,DIAG CODE)=SEQ #"
^XMB(3.9,48,2,239,0)="""RTN"",""IBCEF11"",16,0)"
^XMB(3.9,48,2,240,0)=" ;   if it already exists. If not, it builds it from N-DIAGNOSES element"
^XMB(3.9,48,2,241,0)="""RTN"",""IBCEF11"",17,0)"
^XMB(3.9,48,2,242,0)=" ;"
^XMB(3.9,48,2,243,0)="""RTN"",""IBCEF11"",18,0)"
^XMB(3.9,48,2,244,0)=" ; For EDI call: Returns IBXDATA(n)="
^XMB(3.9,48,2,245,0)="""RTN"",""IBCEF11"",19,0)"
^XMB(3.9,48,2,246,0)=" ;   begin date(YYYYMMDD)^end date(YYYYMMDD)^pos^tos^"
^XMB(3.9,48,2,247,0)="""RTN"",""IBCEF11"",20,0)"
^XMB(3.9,48,2,248,0)=" ;   proc code/revenue code - if no procedure (not the pointers)^"
^XMB(3.9,48,2,249,0)="""RTN"",""IBCEF11"",21,0)"
^XMB(3.9,48,2,250,0)=" ;   type of code^dx pointer(s)^unit charge^units^modifiers separated by;"
^XMB(3.9,48,2,251,0)="""RTN"",""IBCEF11"",22,0)"
^XMB(3.9,48,2,252,0)=" ;   ^purchased charge amount ^anesthesia minutes^emergency indicator^"
^XMB(3.9,48,2,253,0)="""RTN"",""IBCEF11"",23,0)"
^XMB(3.9,48,2,254,0)=" ;   lab-type service flag."
^XMB(3.9,48,2,255,0)="""RTN"",""IBCEF11"",24,0)"
^XMB(3.9,48,2,256,0)=" ;"
^XMB(3.9,48,2,257,0)="""RTN"",""IBCEF11"",25,0)"
^XMB(3.9,48,2,258,0)=" ;   Also Returns IBXDATA(IBI,""COB"",COB,m) with COB data for each line"
^XMB(3.9,48,2,259,0)="""RTN"",""IBCEF11"",26,0)"
^XMB(3.9,48,2,260,0)=" ;      item found in an accepted EOB for the bill and = the reference"
^XMB(3.9,48,2,261,0)="""RTN"",""IBCEF11"",27,0)"
^XMB(3.9,48,2,262,0)=" ;      line in the first '^' piece followed by the '0' node data of file"
^XMB(3.9,48,2,263,0)="""RTN"",""IBCEF11"",28,0)"
^XMB(3.9,48,2,264,0)=" ;      361.115 (LINE LEVEL ADJUSTMENTS)"
^XMB(3.9,48,2,265,0)="""RTN"",""IBCEF11"",29,0)"
^XMB(3.9,48,2,266,0)=" ;       COB = COB sequence # of adjustment's ins co, m = seq #"
^XMB(3.9,48,2,267,0)="""RTN"",""IBCEF11"",30,0)"
^XMB(3.9,48,2,268,0)=" ;         -- AND --"
^XMB(3.9,48,2,269,0)="""RTN"",""IBCEF11"",31,0)"
^XMB(3.9,48,2,270,0)=" ;    IBXDATA(IBI,""COB"",COB,m,z,p)="
^XMB(3.9,48,2,271,0)="""RTN"",""IBCEF11"",32,0)"
^XMB(3.9,48,2,272,0)=" ;           the data on the '0' node for each subordinate entry of file"
^XMB(3.9,48,2,273,0)="""RTN"",""IBCEF11"",33,0)"
^XMB(3.9,48,2,274,0)=" ;           361.11511 (REASONS) (Only first 3 pieces for 837 output)"
^XMB(3.9,48,2,275,0)="""RTN"",""IBCEF11"",34,0)"
^XMB(3.9,48,2,276,0)=" ;       z = group code, sometimes preceeded by a space   p = seq #"
^XMB(3.9,48,2,277,0)="""RTN"",""IBCEF11"",35,0)"
^XMB(3.9,48,2,278,0)=" ;"
^XMB(3.9,48,2,279,0)="""RTN"",""IBCEF11"",36,0)"
^XMB(3.9,48,2,280,0)=" ; For Print call: Returns begin date(DDMMYYYY)^end date(DDMMYYYY) or"
^XMB(3.9,48,2,281,0)="""RTN"",""IBCEF11"",37,0)"
^XMB(3.9,48,2,282,0)=" ;   null if equal to begin date^pos^tos^bedsection name(if no procedure)"
^XMB(3.9,48,2,283,0)="""RTN"",""IBCEF11"",38,0)"
^XMB(3.9,48,2,284,0)=" ;   or procedure code(not the pointer)^ ... refer to EDI call results"
^XMB(3.9,48,2,285,0)="""RTN"",""IBCEF11"",39,0)"
^XMB(3.9,48,2,286,0)=" ;   Also, IBXDATA(n,""TEXT"")=the text to print on second line of box 24,"
^XMB(3.9,48,2,287,0)="""RTN"",""IBCEF11"",40,0)"
^XMB(3.9,48,2,288,0)=" ;   If no procedure code, returns IBXDATA(n,""A"")=rev code abbrev"
^XMB(3.9,48,2,289,0)="""RTN"",""IBCEF11"",41,0)"
^XMB(3.9,48,2,290,0)=" ;"
^XMB(3.9,48,2,291,0)="""RTN"",""IBCEF11"",42,0)"
^XMB(3.9,48,2,292,0)=" ;  For both calls, returns IBXDATA(n,item type,item ptr)="""""
^XMB(3.9,48,2,293,0)="""RTN"",""IBCEF11"",43,0)"
^XMB(3.9,48,2,294,0)=" ;      -- AND --"
^XMB(3.9,48,2,295,0)="""RTN"",""IBCEF11"",44,0)"
^XMB(3.9,48,2,296,0)=" ;   IBXDATA(n,""RX"")=RX#^drug name^NDC^refill #^(re)fill date^qty^days"
^XMB(3.9,48,2,297,0)="""RTN"",""IBCEF11"",45,0)"
^XMB(3.9,48,2,298,0)=" ;                   ^chrge^ien of file 362.4^NDC format"
^XMB(3.9,48,2,299,0)="""RTN"",""IBCEF11"",46,0)"
^XMB(3.9,48,2,300,0)=" ;           If line references a prescription"
^XMB(3.9,48,2,301,0)="""RTN"",""IBCEF11"",47,0)"
^XMB(3.9,48,2,302,0)=" ;      -- AND --"
^XMB(3.9,48,2,303,0)="""RTN"",""IBCEF11"",48,0)"
^XMB(3.9,48,2,304,0)=" ;   If no revenue code for a prescription, returns IBXDATA(n,""ARX"")="""""
^XMB(3.9,48,2,305,0)="""RTN"",""IBCEF11"",49,0)"
^XMB(3.9,48,2,306,0)=" ;      -- AND --"
^XMB(3.9,48,2,307,0)="""RTN"",""IBCEF11"",50,0)"
^XMB(3.9,48,2,308,0)=" ;   IBXDATA(n,""AUX"")='AUX' node of the procedure entry"
^XMB(3.9,48,2,309,0)="""RTN"",""IBCEF11"",51,0)"
^XMB(3.9,48,2,310,0)=" ;"
^XMB(3.9,48,2,311,0)="""RTN"",""IBCEF11"",52,0)"
^XMB(3.9,48,2,312,0)=" N IB,IBI,IBJ,IBFLD,IBDXI,IBXIEN,Z,IBXTRA,IBRX,IBRX0,IBRX1,Z0,Z1"
^XMB(3.9,48,2,313,0)="""RTN"",""IBCEF11"",53,0)"
^XMB(3.9,48,2,314,0)=" ;"
^XMB(3.9,48,2,315,0)="""RTN"",""IBCEF11"",54,0)"
^XMB(3.9,48,2,316,0)=" K ^TMP($J,""IBITEM"")"
^XMB(3.9,48,2,317,0)="""RTN"",""IBCEF11"",55,0)"
^XMB(3.9,48,2,318,0)=" S ^TMP($J,""IBITEM"")="""""
^XMB(3.9,48,2,319,0)="""RTN"",""IBCEF11"",56,0)"
^XMB(3.9,48,2,320,0)=" ; Build diagnosis array if not already built"
^XMB(3.9,48,2,321,0)="""RTN"",""IBCEF11"",57,0)"
^XMB(3.9,48,2,322,0)=" I $O(^TMP(""IBXSAVE"",$J,""DX"",IBIFN,""""))="""",$O(^IBA(362.3,""AIFN""_IBIFN,"""")) D"
^XMB(3.9,48,2,323,0)="""RTN"",""IBCEF11"",58,0)"
^XMB(3.9,48,2,324,0)=" .N Z,IBXDATA D F^IBCEF(""N-DIAGNOSES"",,,IBIFN)"
^XMB(3.9,48,2,325,0)="""RTN"",""IBCEF11"",59,0)"
^XMB(3.9,48,2,326,0)=" .S Z="""" F  S Z=$O(IBXDATA(Z)) K:$O(IBXDATA(0))=""""&(Z="""") IBXDATA Q:Z=""""  S:$P(IBXDATA(Z),U,2) ^TMP(""IBXSAVE"",$J,""DX"",IBIFN,$P(IBXDATA(Z),U,2))=Z"
^XMB(3.9,48,2,327,0)="""RTN"",""IBCEF11"",60,0)"
^XMB(3.9,48,2,328,0)=" ;"
^XMB(3.9,48,2,329,0)="""RTN"",""IBCEF11"",61,0)"
^XMB(3.9,48,2,330,0)=" S IB(0)=$G(^DGCR(399,IBIFN,0)),IB(""U"")=$G(^(""U"")),IB(""U1"")=$G(^(""U1""))"
^XMB(3.9,48,2,331,0)="""RTN"",""IBCEF11"",62,0)"
^XMB(3.9,48,2,332,0)=" S IBI="""" F  S IBI=$O(^TMP(""IBXSAVE"",$J,""DX"",IBIFN,IBI)) Q:IBI=""""  S IBDXI(IBI)=^(IBI)"
^XMB(3.9,48,2,333,0)="""RTN"",""IBCEF11"",63,0)"
^XMB(3.9,48,2,334,0)=" I '$G(IBPRINT) D RVCE^IBCF23(IBIFN,IBIFN)"
^XMB(3.9,48,2,335,0)="""RTN"",""IBCEF11"",64,0)"
^XMB(3.9,48,2,336,0)=" I $G(IBPRINT) D RVCE^IBCF23(,IBIFN)"
^XMB(3.9,48,2,337,0)="""RTN"",""IBCEF11"",65,0)"
^XMB(3.9,48,2,338,0)=" ; Returns IBFLD(24) = begin date^end date^pos^tos^"
^XMB(3.9,48,2,339,0)="""RTN"",""IBCEF11"",66,0)"
^XMB(3.9,48,2,340,0)=" ;     proc/bedsection/revenue code^dx pointer^unit charge^"
^XMB(3.9,48,2,341,0)="""RTN"",""IBCEF11"",67,0)"
^XMB(3.9,48,2,342,0)=" ;     units^modifiers^ purchased charge amount ^anesthesia minutes^"
^XMB(3.9,48,2,343,0)="""RTN"",""IBCEF11"",68,0)"
^XMB(3.9,48,2,344,0)=" ;     emergency indicator ^ AND"
^XMB(3.9,48,2,345,0)="""RTN"",""IBCEF11"",69,0)"
^XMB(3.9,48,2,346,0)=" ;         IBFLD(24,n,type,item)="""""
^XMB(3.9,48,2,347,0)="""RTN"",""IBCEF11"",70,0)"
^XMB(3.9,48,2,348,0)=" ;         IBFLD(24,n_""A"") = revenue code abbreviation if no procedure"
^XMB(3.9,48,2,349,0)="""RTN"",""IBCEF11"",71,0)"
^XMB(3.9,48,2,350,0)=" ;         IBFLD(24,n,""AUX"") = 'AUX' node of line item "
^XMB(3.9,48,2,351,0)="""RTN"",""IBCEF11"",72,0)"
^XMB(3.9,48,2,352,0)=" ;         IBFLD(24,n,""RX"") = soft pointer to file 362.4 from 'item' fld"
^XMB(3.9,48,2,353,0)="""RTN"",""IBCEF11"",73,0)"
^XMB(3.9,48,2,354,0)=" ;                            (can be null)"
^XMB(3.9,48,2,355,0)="""RTN"",""IBCEF11"",74,0)"
^XMB(3.9,48,2,356,0)=" ;"
^XMB(3.9,48,2,357,0)="""RTN"",""IBCEF11"",75,0)"
^XMB(3.9,48,2,358,0)=" D SET^IBCSC5A(IBIFN,.IBRX) ;prescriptions"
^XMB(3.9,48,2,359,0)="""RTN"",""IBCEF11"",76,0)"
^XMB(3.9,48,2,360,0)=" ; IBRX1(ien 362.4)=RX#^drug ien^NDC^refil #^(re)fil date^qty^days^chrge"
^XMB(3.9,48,2,361,0)="""RTN"",""IBCEF11"",77,0)"
^XMB(3.9,48,2,362,0)=" I IBRX S IBRX="""" F  S IBRX=$O(IBRX(IBRX)) Q:IBRX=""""  S IBRX0=0 F  S IBRX0=$O(IBRX(IBRX,IBRX0)) Q:'IBRX0  D"
^XMB(3.9,48,2,363,0)="""RTN"",""IBCEF11"",78,0)"
^XMB(3.9,48,2,364,0)=" . N IBRXH"
^XMB(3.9,48,2,365,0)="""RTN"",""IBCEF11"",79,0)"
^XMB(3.9,48,2,366,0)=" . S IBRXH=IBRX(IBRX,IBRX0)"
^XMB(3.9,48,2,367,0)="""RTN"",""IBCEF11"",80,0)"
^XMB(3.9,48,2,368,0)=" . S IBRX1(+IBRXH)=IBRX_U_$P(IBRXH,U,2)_U_$P(IBRXH,U,5)_U_$P(IBRXH,U,7)_U_IBRX0_U_$P(IBRXH,U,4)_U_$P(IBRXH,U,3)_U_$P(IBRXH,U,6)_U_+IBRXH_U_$P(IBRXH,U,8)"
^XMB(3.9,48,2,369,0)="""RTN"",""IBCEF11"",81,0)"
^XMB(3.9,48,2,370,0)=" K IBRX"
^XMB(3.9,48,2,371,0)="""RTN"",""IBCEF11"",82,0)"
^XMB(3.9,48,2,372,0)=" ;"
^XMB(3.9,48,2,373,0)="""RTN"",""IBCEF11"",83,0)"
^XMB(3.9,48,2,374,0)=" S IBI=0"
^XMB(3.9,48,2,375,0)="""RTN"",""IBCEF11"",84,0)"
^XMB(3.9,48,2,376,0)=" F  S IBI=$O(IBFLD(24,IBI)) Q:IBI'=+IBI  D"
^XMB(3.9,48,2,377,0)="""RTN"",""IBCEF11"",85,0)"
^XMB(3.9,48,2,378,0)=" . S IBRX1=0"
^XMB(3.9,48,2,379,0)="""RTN"",""IBCEF11"",86,0)"
^XMB(3.9,48,2,380,0)=" . I '$G(IBPRINT) Q:$P(IBFLD(24,IBI),U,7)*$P(IBFLD(24,IBI),U,8)'>0  ; For EDI, ignore 0-charge line items"
^XMB(3.9,48,2,381,0)="""RTN"",""IBCEF11"",87,0)"
^XMB(3.9,48,2,382,0)=" . S IBXDATA(IBI)=$P(IBFLD(24,IBI),U)_U_$P(IBFLD(24,IBI),U,$S($P(IBFLD(24,IBI),U,2)=""""&'$G(IBPRINT):1,1:2))"
^XMB(3.9,48,2,383,0)="""RTN"",""IBCEF11"",88,0)"
^XMB(3.9,48,2,384,0)=" . S $P(IBXDATA(IBI),U,3,5)=$P(IBFLD(24,IBI),U,3,5)"
^XMB(3.9,48,2,385,0)="""RTN"",""IBCEF11"",89,0)"
^XMB(3.9,48,2,386,0)=" . S $P(IBXDATA(IBI),U,6)=$S($D(IBFLD(24,IBI_""X"")):""CJ"",1:""HC"")"
^XMB(3.9,48,2,387,0)="""RTN"",""IBCEF11"",90,0)"
^XMB(3.9,48,2,388,0)=" . S $P(IBXDATA(IBI),U,7,13)=$P(IBFLD(24,IBI),U,6,12)"
^XMB(3.9,48,2,389,0)="""RTN"",""IBCEF11"",91,0)"
^XMB(3.9,48,2,390,0)=" . S $P(IBXDATA(IBI),U,14)=+$$ISLAB(IBXDATA(IBI))"
^XMB(3.9,48,2,391,0)="""RTN"",""IBCEF11"",92,0)"
^XMB(3.9,48,2,392,0)=" . I $D(IBFLD(24,IBI,""RX"")) D  ;Rx"
^XMB(3.9,48,2,393,0)="""RTN"",""IBCEF11"",93,0)"
^XMB(3.9,48,2,394,0)=" .. S IBRX1=1"
^XMB(3.9,48,2,395,0)="""RTN"",""IBCEF11"",94,0)"
^XMB(3.9,48,2,396,0)=" .. I $P($G(IBFLD(24,IBI,""AUX"")),U,8)'="""" S $P(IBFLD(24,IBI,""AUX""),U,8)="""" ;No free text allowed for rx's"
^XMB(3.9,48,2,397,0)="""RTN"",""IBCEF11"",95,0)"
^XMB(3.9,48,2,398,0)=" .. I $D(IBRX1(+IBFLD(24,IBI,""RX""))) D  Q  ;Soft link exists"
^XMB(3.9,48,2,399,0)="""RTN"",""IBCEF11"",96,0)"
^XMB(3.9,48,2,400,0)=" ...D ZERO^IBRXUTL(+$P(IBRX1(+IBFLD(24,IBI,""RX"")),U,2))"
^XMB(3.9,48,2,401,0)="""RTN"",""IBCEF11"",97,0)"
^XMB(3.9,48,2,402,0)=" ... S IBXDATA(IBI,""RX"")=IBRX1(+IBFLD(24,IBI,""RX"")),$P(IBXDATA(IBI,""RX""),U,2)=$E($G(^TMP($J,""IBDRUG"",+$P(IBRX1(+IBFLD(24,IBI,""RX"")),U,2),.01)),1,30)"
^XMB(3.9,48,2,403,0)="""RTN"",""IBCEF11"",98,0)"
^XMB(3.9,48,2,404,0)=" ... K IBRX1(+IBFLD(24,IBI,""RX""))"
^XMB(3.9,48,2,405,0)="""RTN"",""IBCEF11"",99,0)"
^XMB(3.9,48,2,406,0)=" ... ; No soft link - must find the first Rx with the same charge"
^XMB(3.9,48,2,407,0)="""RTN"",""IBCEF11"",100,0)"
^XMB(3.9,48,2,408,0)=" .. S IBRX="""" F  S IBRX=$O(IBRX1(IBRX)) Q:'IBRX  I +$P(IBRX1(IBRX),U,8)=+$P(IBXDATA(IBI),U,8) D  Q"
^XMB(3.9,48,2,409,0)="""RTN"",""IBCEF11"",101,0)"
^XMB(3.9,48,2,410,0)=" ... D ZERO^IBRXUTL(+$P(IBRX1(IBRX),U,2))"
^XMB(3.9,48,2,411,0)="""RTN"",""IBCEF11"",102,0)"
^XMB(3.9,48,2,412,0)=" ... S IBXDATA(IBI,""RX"")=IBRX1(IBRX),$P(IBXDATA(IBI,""RX""),U,2)=$E($G(^TMP($J,""IBDRUG"",+$P(IBRX1(IBRX),U,2),.01)),1,30) K IBRX1(IBRX) Q"
^XMB(3.9,48,2,413,0)="""RTN"",""IBCEF11"",103,0)"
^XMB(3.9,48,2,414,0)=" . I $G(IBFLD(24,IBI,""AUX""))'="""" D"
^XMB(3.9,48,2,415,0)="""RTN"",""IBCEF11"",104,0)"
^XMB(3.9,48,2,416,0)=" .. I $G(IBPRINT),$P(IBFLD(24,IBI,""AUX""),U,8)'="""" S IBXDATA(IBI,""TEXT"")=$P(IBFLD(24,IBI,""AUX""),U,8),$P(IBFLD(24,IBI,""AUX""),U,8)="""""
^XMB(3.9,48,2,417,0)="""RTN"",""IBCEF11"",105,0)"
^XMB(3.9,48,2,418,0)=" .. S IBXDATA(IBI,""AUX"")=IBFLD(24,IBI,""AUX"")"
^XMB(3.9,48,2,419,0)="""RTN"",""IBCEF11"",106,0)"
^XMB(3.9,48,2,420,0)=" . I $G(IBPRINT) D"
^XMB(3.9,48,2,421,0)="""RTN"",""IBCEF11"",107,0)"
^XMB(3.9,48,2,422,0)=" .. I '$P(IBXDATA(IBI),U,8),'$G(IBXDATA(IBI,""RX"")) S:'$G(IBNOSHOW) IBXDATA(IBI,""TEXT"")=""Warning:** REV CODE UNITS < #PROCEDURES, THEY MUST BE ="" Q"
^XMB(3.9,48,2,423,0)="""RTN"",""IBCEF11"",108,0)"
^XMB(3.9,48,2,424,0)=" .. I $G(IBFLD(24,IBI_""A""))'="""" S IBXDATA(IBI,""A"")=IBFLD(24,IBI_""A"") S:'$G(IBNOSHOW) IBXDATA(IBI,""TEXT"")=""Warning:** REV CODE UNITS > #PROCEDURES, THEY MUST BE=: ""_IBFLD(24,IBI_""A"") Q"
^XMB(3.9,48,2,425,0)="""RTN"",""IBCEF11"",109,0)"
^XMB(3.9,48,2,426,0)=" .. S IBRX=$G(IBXDATA(IBI,""RX""))"
^XMB(3.9,48,2,427,0)="""RTN"",""IBCEF11"",110,0)"
^XMB(3.9,48,2,428,0)=" .. I IBRX'="""" D  ;Format Rx detail"
^XMB(3.9,48,2,429,0)="""RTN"",""IBCEF11"",111,0)"
^XMB(3.9,48,2,430,0)=" ... N Z"
^XMB(3.9,48,2,431,0)="""RTN"",""IBCEF11"",112,0)"
^XMB(3.9,48,2,432,0)=" ... S Z=$P(IBRX,U)"
^XMB(3.9,48,2,433,0)="""RTN"",""IBCEF11"",113,0)"
^XMB(3.9,48,2,434,0)=" ... S Z=$S(Z'="""":""Rx#""_Z_"" "",1:""RX: "")"
^XMB(3.9,48,2,435,0)="""RTN"",""IBCEF11"",114,0)"
^XMB(3.9,48,2,436,0)=" ... S IBXDATA(IBI,""TEXT"")=Z_$S($P(IBRX,U,3)'="""":""NDC: ""_$P(IBRX,U,3),1:""NOC: ""_$P(IBRX,U,2))_"" Qty: ""_$P(IBRX,U,6)_"" Days: ""_$P(IBRX,U,7)"
^XMB(3.9,48,2,437,0)="""RTN"",""IBCEF11"",115,0)"
^XMB(3.9,48,2,438,0)=" . I '$G(IBPRINT) D COBLINE^IBCEU6(IBIFN,IBI,.IBXDATA,,.IBXTRA)"
^XMB(3.9,48,2,439,0)="""RTN"",""IBCEF11"",116,0)"
^XMB(3.9,48,2,440,0)=" I $G(IBPRINT) D"
^XMB(3.9,48,2,441,0)="""RTN"",""IBCEF11"",117,0)"
^XMB(3.9,48,2,442,0)=" . S IBRX=0 F  S IBRX=$O(IBRX1(IBRX)) Q:'IBRX  D"
^XMB(3.9,48,2,443,0)="""RTN"",""IBCEF11"",118,0)"
^XMB(3.9,48,2,444,0)=" .. S IBI=+$O(IBXDATA(""""),-1)+1"
^XMB(3.9,48,2,445,0)="""RTN"",""IBCEF11"",119,0)"
^XMB(3.9,48,2,446,0)=" .. S IBXDATA(IBI)=$$DATE($P(IBRX1(IBRX),U,5))"
^XMB(3.9,48,2,447,0)="""RTN"",""IBCEF11"",120,0)"
^XMB(3.9,48,2,448,0)=" .. S IBXDATA(IBI,""TEXT"")=""**** ERROR - NO PROC LINK TO REV CODE FOR DRUG: RX#: ""_$P(IBRX1(IBRX),U)_""  NDC #: ""_$P(IBRX1(IBRX),U,3)"
^XMB(3.9,48,2,449,0)="""RTN"",""IBCEF11"",121,0)"
^XMB(3.9,48,2,450,0)=" .. S IBXDATA(IBI,""ARX"")="""""
^XMB(3.9,48,2,451,0)="""RTN"",""IBCEF11"",122,0)"
^XMB(3.9,48,2,452,0)=" .. D ZERO^IBRXUTL(+$P(IBRX1(IBRX),U,2))"
^XMB(3.9,48,2,453,0)="""RTN"",""IBCEF11"",123,0)"
^XMB(3.9,48,2,454,0)=" .. S IBXDATA(IBI,""RX"")=IBRX1(IBRX),$P(IBXDATA(IBI,""RX""),U,2)=$E($G(^TMP($J,""IBDRUG"",+$P(IBRX1(IBRX),U,2),.01)),1,30) K IBRX1(IBRX)"
^XMB(3.9,48,2,455,0)="""RTN"",""IBCEF11"",124,0)"
^XMB(3.9,48,2,456,0)=" ;"
^XMB(3.9,48,2,457,0)="""RTN"",""IBCEF11"",125,0)"
^XMB(3.9,48,2,458,0)=" I '$G(IBPRINT),$D(IBXTRA) D COMBO^IBCEU2(.IBXDATA,.IBXTRA,0) ;Handle bundled/unbundled lines"
^XMB(3.9,48,2,459,0)="""RTN"",""IBCEF11"",126,0)"
^XMB(3.9,48,2,460,0)=" K ^TMP($J,""IBDRUG"")"
^XMB(3.9,48,2,461,0)="""RTN"",""IBCEF11"",127,0)"
^XMB(3.9,48,2,462,0)=" Q"
^XMB(3.9,48,2,463,0)="""RTN"",""IBCEF11"",128,0)"
^XMB(3.9,48,2,464,0)=" ;"
^XMB(3.9,48,2,465,0)="""RTN"",""IBCEF11"",129,0)"
^XMB(3.9,48,2,466,0)="ISLAB(LDATA) ; Returns 0/1 if line item data indicates the item is a lab (1)"
^XMB(3.9,48,2,467,0)="""RTN"",""IBCEF11"",130,0)"
^XMB(3.9,48,2,468,0)=" ; 'LAB' is defined here as type of service = 5"
^XMB(3.9,48,2,469,0)="""RTN"",""IBCEF11"",131,0)"
^XMB(3.9,48,2,470,0)=" Q $E($P(LDATA,U,4))=""5"""
^XMB(3.9,48,2,471,0)="""RTN"",""IBCEF11"",132,0)"
^XMB(3.9,48,2,472,0)=" ;"
^XMB(3.9,48,2,473,0)="""RTN"",""IBCEF11"",133,0)"
^XMB(3.9,48,2,474,0)="FMT(DATA,DLEN,FLEN) ; Returns a string in DATA with a max length of DLEN"
^XMB(3.9,48,2,475,0)="""RTN"",""IBCEF11"",134,0)"
^XMB(3.9,48,2,476,0)=" ;  and a field length of FLEN"
^XMB(3.9,48,2,477,0)="""RTN"",""IBCEF11"",135,0)"
^XMB(3.9,48,2,478,0)=" Q $E($E(DATA,1,DLEN)_$J("""",FLEN),1,FLEN)"
^XMB(3.9,48,2,479,0)="""RTN"",""IBCEF11"",136,0)"
^XMB(3.9,48,2,480,0)=" ;"
^XMB(3.9,48,2,481,0)="""RTN"",""IBCEF11"",137,0)"
^XMB(3.9,48,2,482,0)="DATE(X,DEL) ;  Returns FM date in X as MMxDDxYYYY  where x=DEL"
^XMB(3.9,48,2,483,0)="""RTN"",""IBCEF11"",138,0)"
^XMB(3.9,48,2,484,0)=" S DEL=$G(DEL)"
^XMB(3.9,48,2,485,0)="""RTN"",""IBCEF11"",139,0)"
^XMB(3.9,48,2,486,0)=" S X=$$DATE^IBCF2(X,1,1)"
^XMB(3.9,48,2,487,0)="""RTN"",""IBCEF11"",140,0)"
^XMB(3.9,48,2,488,0)=" I X'="""" S X=$E(X,1,2)_DEL_$E(X,3,4)_DEL_$E(X,5,8)"
^XMB(3.9,48,2,489,0)="""RTN"",""IBCEF11"",141,0)"
^XMB(3.9,48,2,490,0)=" Q X"
^XMB(3.9,48,2,491,0)="""RTN"",""IBCEF11"",142,0)"
^XMB(3.9,48,2,492,0)=" ;"
^XMB(3.9,48,2,493,0)="""VER"")"
^XMB(3.9,48,2,494,0)="8.0^22.0"
^XMB(3.9,48,2,495,0)="""BLD"",6596,6)"
^XMB(3.9,48,2,496,0)="^308"
^XMB(3.9,48,2,497,0)="$END KID IB*2.0*335"
^XMB(3.9,48,6,0)="^3.911A^2^2"
^XMB(3.9,48,6,1,0)="POSTMASTER"
^XMB(3.9,48,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,48,6,"B","POSTMASTER",1)=""
^XMB(3.9,48,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,49,0)="IB-2_SEQ-309_PAT-332.KID^.5^3061008.015735^^^^K"
^XMB(3.9,49,.6)="3061008"
^XMB(3.9,49,1,0)="^3.91A^2^2"
^XMB(3.9,49,1,1,0)=".5^0^3061008.015735^^^^^^^3061008.015735"
^XMB(3.9,49,1,2,0)="1^0^3061008.023308^^^^^^^3061008.023308"
^XMB(3.9,49,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,49,1,"C",.5,1)=""
^XMB(3.9,49,1,"C",1,2)=""
^XMB(3.9,49,2,0)="^^469^469^3061008"
^XMB(3.9,49,2,1,0)="$TXT Released IB*2*332 SEQ #309"
^XMB(3.9,49,2,2,0)="Extracted from mail message"
^XMB(3.9,49,2,3,0)="$END TXT"
^XMB(3.9,49,2,4,0)="$KID IB*2.0*332"
^XMB(3.9,49,2,5,0)="**INSTALL NAME**"
^XMB(3.9,49,2,6,0)="IB*2.0*332"
^XMB(3.9,49,2,7,0)="""BLD"",5849,0)"
^XMB(3.9,49,2,8,0)="IB*2.0*332^INTEGRATED BILLING^0^3051130^y"
^XMB(3.9,49,2,9,0)="""BLD"",5849,1,0)"
^XMB(3.9,49,2,10,0)="^9.61A^2^2^3051130^^"
^XMB(3.9,49,2,11,0)="""BLD"",5849,1,1,0)"
^XMB(3.9,49,2,12,0)="Modify IB to handle the billing of the new and updated Treating Specialties"
^XMB(3.9,49,2,13,0)="""BLD"",5849,1,2,0)"
^XMB(3.9,49,2,14,0)="being released, primarily for NHCU.  This patch supports DG*5.3*683."
^XMB(3.9,49,2,15,0)="""BLD"",5849,4,0)"
^XMB(3.9,49,2,16,0)="^9.64PA^^"
^XMB(3.9,49,2,17,0)="""BLD"",5849,""ABPKG"")"
^XMB(3.9,49,2,18,0)="n"
^XMB(3.9,49,2,19,0)="""BLD"",5849,""KRN"",0)"
^XMB(3.9,49,2,20,0)="^9.67PA^8989.52^19"
^XMB(3.9,49,2,21,0)="""BLD"",5849,""KRN"",.4,0)"
^XMB(3.9,49,2,22,0)=".4"
^XMB(3.9,49,2,23,0)="""BLD"",5849,""KRN"",.401,0)"
^XMB(3.9,49,2,24,0)=".401"
^XMB(3.9,49,2,25,0)="""BLD"",5849,""KRN"",.402,0)"
^XMB(3.9,49,2,26,0)=".402"
^XMB(3.9,49,2,27,0)="""BLD"",5849,""KRN"",.403,0)"
^XMB(3.9,49,2,28,0)=".403"
^XMB(3.9,49,2,29,0)="""BLD"",5849,""KRN"",.5,0)"
^XMB(3.9,49,2,30,0)=".5"
^XMB(3.9,49,2,31,0)="""BLD"",5849,""KRN"",.84,0)"
^XMB(3.9,49,2,32,0)=".84"
^XMB(3.9,49,2,33,0)="""BLD"",5849,""KRN"",3.6,0)"
^XMB(3.9,49,2,34,0)="3.6"
^XMB(3.9,49,2,35,0)="""BLD"",5849,""KRN"",3.8,0)"
^XMB(3.9,49,2,36,0)="3.8"
^XMB(3.9,49,2,37,0)="""BLD"",5849,""KRN"",9.2,0)"
^XMB(3.9,49,2,38,0)="9.2"
^XMB(3.9,49,2,39,0)="""BLD"",5849,""KRN"",9.8,0)"
^XMB(3.9,49,2,40,0)="9.8"
^XMB(3.9,49,2,41,0)="""BLD"",5849,""KRN"",9.8,""NM"",0)"
^XMB(3.9,49,2,42,0)="^9.68A^2^2"
^XMB(3.9,49,2,43,0)="""BLD"",5849,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,49,2,44,0)="IBAECU1^^0^B2570454"
^XMB(3.9,49,2,45,0)="""BLD"",5849,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,49,2,46,0)="IBCRBG2^^0^B7280940"
^XMB(3.9,49,2,47,0)="""BLD"",5849,""KRN"",9.8,""NM"",""B"",""IBAECU1"",1)"
^XMB(3.9,49,2,48,0)=""
^XMB(3.9,49,2,49,0)="""BLD"",5849,""KRN"",9.8,""NM"",""B"",""IBCRBG2"",2)"
^XMB(3.9,49,2,50,0)=""
^XMB(3.9,49,2,51,0)="""BLD"",5849,""KRN"",19,0)"
^XMB(3.9,49,2,52,0)="19"
^XMB(3.9,49,2,53,0)="""BLD"",5849,""KRN"",19.1,0)"
^XMB(3.9,49,2,54,0)="19.1"
^XMB(3.9,49,2,55,0)="""BLD"",5849,""KRN"",101,0)"
^XMB(3.9,49,2,56,0)="101"
^XMB(3.9,49,2,57,0)="""BLD"",5849,""KRN"",409.61,0)"
^XMB(3.9,49,2,58,0)="409.61"
^XMB(3.9,49,2,59,0)="""BLD"",5849,""KRN"",771,0)"
^XMB(3.9,49,2,60,0)="771"
^XMB(3.9,49,2,61,0)="""BLD"",5849,""KRN"",870,0)"
^XMB(3.9,49,2,62,0)="870"
^XMB(3.9,49,2,63,0)="""BLD"",5849,""KRN"",8989.51,0)"
^XMB(3.9,49,2,64,0)="8989.51"
^XMB(3.9,49,2,65,0)="""BLD"",5849,""KRN"",8989.52,0)"
^XMB(3.9,49,2,66,0)="8989.52"
^XMB(3.9,49,2,67,0)="""BLD"",5849,""KRN"",8994,0)"
^XMB(3.9,49,2,68,0)="8994"
^XMB(3.9,49,2,69,0)="""BLD"",5849,""KRN"",""B"",.4,.4)"
^XMB(3.9,49,2,70,0)=""
^XMB(3.9,49,2,71,0)="""BLD"",5849,""KRN"",""B"",.401,.401)"
^XMB(3.9,49,2,72,0)=""
^XMB(3.9,49,2,73,0)="""BLD"",5849,""KRN"",""B"",.402,.402)"
^XMB(3.9,49,2,74,0)=""
^XMB(3.9,49,2,75,0)="""BLD"",5849,""KRN"",""B"",.403,.403)"
^XMB(3.9,49,2,76,0)=""
^XMB(3.9,49,2,77,0)="""BLD"",5849,""KRN"",""B"",.5,.5)"
^XMB(3.9,49,2,78,0)=""
^XMB(3.9,49,2,79,0)="""BLD"",5849,""KRN"",""B"",.84,.84)"
^XMB(3.9,49,2,80,0)=""
^XMB(3.9,49,2,81,0)="""BLD"",5849,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,49,2,82,0)=""
^XMB(3.9,49,2,83,0)="""BLD"",5849,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,49,2,84,0)=""
^XMB(3.9,49,2,85,0)="""BLD"",5849,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,49,2,86,0)=""
^XMB(3.9,49,2,87,0)="""BLD"",5849,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,49,2,88,0)=""
^XMB(3.9,49,2,89,0)="""BLD"",5849,""KRN"",""B"",19,19)"
^XMB(3.9,49,2,90,0)=""
^XMB(3.9,49,2,91,0)="""BLD"",5849,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,49,2,92,0)=""
^XMB(3.9,49,2,93,0)="""BLD"",5849,""KRN"",""B"",101,101)"
^XMB(3.9,49,2,94,0)=""
^XMB(3.9,49,2,95,0)="""BLD"",5849,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,49,2,96,0)=""
^XMB(3.9,49,2,97,0)="""BLD"",5849,""KRN"",""B"",771,771)"
^XMB(3.9,49,2,98,0)=""
^XMB(3.9,49,2,99,0)="""BLD"",5849,""KRN"",""B"",870,870)"
^XMB(3.9,49,2,100,0)=""
^XMB(3.9,49,2,101,0)="""BLD"",5849,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,49,2,102,0)=""
^XMB(3.9,49,2,103,0)="""BLD"",5849,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,49,2,104,0)=""
^XMB(3.9,49,2,105,0)="""BLD"",5849,""KRN"",""B"",8994,8994)"
^XMB(3.9,49,2,106,0)=""
^XMB(3.9,49,2,107,0)="""BLD"",5849,""QUES"",0)"
^XMB(3.9,49,2,108,0)="^9.62^^"
^XMB(3.9,49,2,109,0)="""BLD"",5849,""REQB"",0)"
^XMB(3.9,49,2,110,0)="^9.611^2^2"
^XMB(3.9,49,2,111,0)="""BLD"",5849,""REQB"",1,0)"
^XMB(3.9,49,2,112,0)="IB*2.0*175^1"
^XMB(3.9,49,2,113,0)="""BLD"",5849,""REQB"",2,0)"
^XMB(3.9,49,2,114,0)="IB*2.0*176^1"
^XMB(3.9,49,2,115,0)="""BLD"",5849,""REQB"",""B"",""IB*2.0*175"",1)"
^XMB(3.9,49,2,116,0)=""
^XMB(3.9,49,2,117,0)="""BLD"",5849,""REQB"",""B"",""IB*2.0*176"",2)"
^XMB(3.9,49,2,118,0)=""
^XMB(3.9,49,2,119,0)="""MBREQ"")"
^XMB(3.9,49,2,120,0)="0"
^XMB(3.9,49,2,121,0)="""PKG"",200,-1)"
^XMB(3.9,49,2,122,0)="1^1"
^XMB(3.9,49,2,123,0)="""PKG"",200,0)"
^XMB(3.9,49,2,124,0)="INTEGRATED BILLING^IB^INTEGRATED BILLING"
^XMB(3.9,49,2,125,0)="""PKG"",200,20,0)"
^XMB(3.9,49,2,126,0)="^9.402P^2^1"
^XMB(3.9,49,2,127,0)="""PKG"",200,20,2,0)"
^XMB(3.9,49,2,128,0)="2^^IBAXDR"
^XMB(3.9,49,2,129,0)="""PKG"",200,20,2,1)"
^XMB(3.9,49,2,130,0)=""
^XMB(3.9,49,2,131,0)="""PKG"",200,20,""B"",2,2)"
^XMB(3.9,49,2,132,0)=""
^XMB(3.9,49,2,133,0)="""PKG"",200,22,0)"
^XMB(3.9,49,2,134,0)="^9.49I^1^1"
^XMB(3.9,49,2,135,0)="""PKG"",200,22,1,0)"
^XMB(3.9,49,2,136,0)="2.0^2940321"
^XMB(3.9,49,2,137,0)="""PKG"",200,22,1,""PAH"",1,0)"
^XMB(3.9,49,2,138,0)="332^3051130"
^XMB(3.9,49,2,139,0)="""PKG"",200,22,1,""PAH"",1,1,0)"
^XMB(3.9,49,2,140,0)="^^2^2^3051130"
^XMB(3.9,49,2,141,0)="""PKG"",200,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,49,2,142,0)="Modify IB to handle the billing of the new and updated Treating Specialties"
^XMB(3.9,49,2,143,0)="""PKG"",200,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,49,2,144,0)="being released, primarily for NHCU.  This patch supports DG*5.3*683."
^XMB(3.9,49,2,145,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,49,2,146,0)="Y"
^XMB(3.9,49,2,147,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,49,2,148,0)="^D REP^XPDH"
^XMB(3.9,49,2,149,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,49,2,150,0)="Shall I write over your |FLAG| File"
^XMB(3.9,49,2,151,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,49,2,152,0)="YES"
^XMB(3.9,49,2,153,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,49,2,154,0)="D XPF1^XPDIQ"
^XMB(3.9,49,2,155,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,49,2,156,0)="Y"
^XMB(3.9,49,2,157,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,49,2,158,0)="^D DTA^XPDH"
^XMB(3.9,49,2,159,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,49,2,160,0)="Want my data |FLAG| yours"
^XMB(3.9,49,2,161,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,49,2,162,0)="YES"
^XMB(3.9,49,2,163,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,49,2,164,0)="D XPF2^XPDIQ"
^XMB(3.9,49,2,165,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,49,2,166,0)="YO"
^XMB(3.9,49,2,167,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,49,2,168,0)="^D INHIBIT^XPDH"
^XMB(3.9,49,2,169,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,49,2,170,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,49,2,171,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,49,2,172,0)="YES"
^XMB(3.9,49,2,173,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,49,2,174,0)="D XPI1^XPDIQ"
^XMB(3.9,49,2,175,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,49,2,176,0)="PO^VA(200,:EM"
^XMB(3.9,49,2,177,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,49,2,178,0)="^D MG^XPDH"
^XMB(3.9,49,2,179,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,49,2,180,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,49,2,181,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,49,2,182,0)=""
^XMB(3.9,49,2,183,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,49,2,184,0)="D XPM1^XPDIQ"
^XMB(3.9,49,2,185,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,49,2,186,0)="Y"
^XMB(3.9,49,2,187,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,49,2,188,0)="^D MENU^XPDH"
^XMB(3.9,49,2,189,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,49,2,190,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,49,2,191,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,49,2,192,0)="YES"
^XMB(3.9,49,2,193,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,49,2,194,0)="D XPO1^XPDIQ"
^XMB(3.9,49,2,195,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,49,2,196,0)="Y"
^XMB(3.9,49,2,197,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,49,2,198,0)="^D OPT^XPDH"
^XMB(3.9,49,2,199,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,49,2,200,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,49,2,201,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,49,2,202,0)="YES"
^XMB(3.9,49,2,203,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,49,2,204,0)="D XPZ1^XPDIQ"
^XMB(3.9,49,2,205,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,49,2,206,0)="Y"
^XMB(3.9,49,2,207,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,49,2,208,0)="^D RTN^XPDH"
^XMB(3.9,49,2,209,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,49,2,210,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,49,2,211,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,49,2,212,0)="NO"
^XMB(3.9,49,2,213,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,49,2,214,0)="D XPZ2^XPDIQ"
^XMB(3.9,49,2,215,0)="""RTN"")"
^XMB(3.9,49,2,216,0)="2"
^XMB(3.9,49,2,217,0)="""RTN"",""IBAECU1"")"
^XMB(3.9,49,2,218,0)="0^1^B2570454^B1411270"
^XMB(3.9,49,2,219,0)="""RTN"",""IBAECU1"",1,0)"
^XMB(3.9,49,2,220,0)="IBAECU1 ;ALB/BGA-LONG TERM IDENTIFICATION UTILITIES ; 09-OCT-01"
^XMB(3.9,49,2,221,0)="""RTN"",""IBAECU1"",2,0)"
^XMB(3.9,49,2,222,0)=" ;;2.0;INTEGRATED BILLING;**164,171,176,332**;21-MAR-94"
^XMB(3.9,49,2,223,0)="""RTN"",""IBAECU1"",3,0)"
^XMB(3.9,49,2,224,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,49,2,225,0)="""RTN"",""IBAECU1"",4,0)"
^XMB(3.9,49,2,226,0)=" ; This is a utility program to support IBAECU calls"
^XMB(3.9,49,2,227,0)="""RTN"",""IBAECU1"",5,0)"
^XMB(3.9,49,2,228,0)=" ;"
^XMB(3.9,49,2,229,0)="""RTN"",""IBAECU1"",6,0)"
^XMB(3.9,49,2,230,0)=" ;"
^XMB(3.9,49,2,231,0)="""RTN"",""IBAECU1"",7,0)"
^XMB(3.9,49,2,232,0)=" ;"
^XMB(3.9,49,2,233,0)="""RTN"",""IBAECU1"",8,0)"
^XMB(3.9,49,2,234,0)="STDATE() ;  -- legislative start date for Long Term Care Billing"
^XMB(3.9,49,2,235,0)="""RTN"",""IBAECU1"",9,0)"
^XMB(3.9,49,2,236,0)=" ; Start Date is June 17,2002 when the LTC REG becomes Law"
^XMB(3.9,49,2,237,0)="""RTN"",""IBAECU1"",10,0)"
^XMB(3.9,49,2,238,0)=" ;"
^XMB(3.9,49,2,239,0)="""RTN"",""IBAECU1"",11,0)"
^XMB(3.9,49,2,240,0)=" Q 3020617  ;"
^XMB(3.9,49,2,241,0)="""RTN"",""IBAECU1"",12,0)"
^XMB(3.9,49,2,242,0)=" ;"
^XMB(3.9,49,2,243,0)="""RTN"",""IBAECU1"",13,0)"
^XMB(3.9,49,2,244,0)=" ;"
^XMB(3.9,49,2,245,0)="""RTN"",""IBAECU1"",14,0)"
^XMB(3.9,49,2,246,0)=" ;"
^XMB(3.9,49,2,247,0)="""RTN"",""IBAECU1"",15,0)"
^XMB(3.9,49,2,248,0)="STOP ; Listed below are stop codes and their associated LTC charge type"
^XMB(3.9,49,2,249,0)="""RTN"",""IBAECU1"",16,0)"
^XMB(3.9,49,2,250,0)="C190 ;;DG LTC OPT ADHC NEW"
^XMB(3.9,49,2,251,0)="""RTN"",""IBAECU1"",17,0)"
^XMB(3.9,49,2,252,0)="C319 ;;DG LTC OPT GEM NEW"
^XMB(3.9,49,2,253,0)="""RTN"",""IBAECU1"",18,0)"
^XMB(3.9,49,2,254,0)=" ;;DG LTC OPT RESPITE NEW"
^XMB(3.9,49,2,255,0)="""RTN"",""IBAECU1"",19,0)"
^XMB(3.9,49,2,256,0)=" ;;"
^XMB(3.9,49,2,257,0)="""RTN"",""IBAECU1"",20,0)"
^XMB(3.9,49,2,258,0)=" ;"
^XMB(3.9,49,2,259,0)="""RTN"",""IBAECU1"",21,0)"
^XMB(3.9,49,2,260,0)=" ;"
^XMB(3.9,49,2,261,0)="""RTN"",""IBAECU1"",22,0)"
^XMB(3.9,49,2,262,0)="SPEC ; Listed below are the treating specialties and their charge type"
^XMB(3.9,49,2,263,0)="""RTN"",""IBAECU1"",23,0)"
^XMB(3.9,49,2,264,0)="T31 ;;DG LTC INPT GEM NEW"
^XMB(3.9,49,2,265,0)="""RTN"",""IBAECU1"",24,0)"
^XMB(3.9,49,2,266,0)="T32 ;;DG LTC INPT GEM NEW"
^XMB(3.9,49,2,267,0)="""RTN"",""IBAECU1"",25,0)"
^XMB(3.9,49,2,268,0)="T33 ;;DG LTC INPT GEM NEW"
^XMB(3.9,49,2,269,0)="""RTN"",""IBAECU1"",26,0)"
^XMB(3.9,49,2,270,0)="T34 ;;DG LTC INPT GEM NEW"
^XMB(3.9,49,2,271,0)="""RTN"",""IBAECU1"",27,0)"
^XMB(3.9,49,2,272,0)="T35 ;;DG LTC INPT GEM NEW"
^XMB(3.9,49,2,273,0)="""RTN"",""IBAECU1"",28,0)"
^XMB(3.9,49,2,274,0)="T37 ;;DG LTC INPT DOM NEW"
^XMB(3.9,49,2,275,0)="""RTN"",""IBAECU1"",29,0)"
^XMB(3.9,49,2,276,0)="T42 ;;DG LTC INPT NHCU NEW"
^XMB(3.9,49,2,277,0)="""RTN"",""IBAECU1"",30,0)"
^XMB(3.9,49,2,278,0)="T43 ;;DG LTC INPT NHCU NEW"
^XMB(3.9,49,2,279,0)="""RTN"",""IBAECU1"",31,0)"
^XMB(3.9,49,2,280,0)="T44 ;;DG LTC INPT NHCU NEW"
^XMB(3.9,49,2,281,0)="""RTN"",""IBAECU1"",32,0)"
^XMB(3.9,49,2,282,0)="T45 ;;DG LTC INPT NHCU NEW"
^XMB(3.9,49,2,283,0)="""RTN"",""IBAECU1"",33,0)"
^XMB(3.9,49,2,284,0)="T46 ;;DG LTC INPT NHCU NEW"
^XMB(3.9,49,2,285,0)="""RTN"",""IBAECU1"",34,0)"
^XMB(3.9,49,2,286,0)="T47 ;;DG LTC INPT RESPITE NEW"
^XMB(3.9,49,2,287,0)="""RTN"",""IBAECU1"",35,0)"
^XMB(3.9,49,2,288,0)="T64 ;;DG LTC INPT NHCU NEW"
^XMB(3.9,49,2,289,0)="""RTN"",""IBAECU1"",36,0)"
^XMB(3.9,49,2,290,0)="T66 ;;DG LTC INPT NHCU NEW"
^XMB(3.9,49,2,291,0)="""RTN"",""IBAECU1"",37,0)"
^XMB(3.9,49,2,292,0)="T67 ;;DG LTC INPT NHCU NEW"
^XMB(3.9,49,2,293,0)="""RTN"",""IBAECU1"",38,0)"
^XMB(3.9,49,2,294,0)="T68 ;;DG LTC INPT NHCU NEW"
^XMB(3.9,49,2,295,0)="""RTN"",""IBAECU1"",39,0)"
^XMB(3.9,49,2,296,0)="T69 ;;DG LTC INPT NHCU NEW"
^XMB(3.9,49,2,297,0)="""RTN"",""IBAECU1"",40,0)"
^XMB(3.9,49,2,298,0)="T80 ;;DG LTC INPT NHCU NEW"
^XMB(3.9,49,2,299,0)="""RTN"",""IBAECU1"",41,0)"
^XMB(3.9,49,2,300,0)="T81 ;;DG LTC INPT NHCU NEW"
^XMB(3.9,49,2,301,0)="""RTN"",""IBAECU1"",42,0)"
^XMB(3.9,49,2,302,0)="T83 ;;DG LTC INPT RESPITE NEW"
^XMB(3.9,49,2,303,0)="""RTN"",""IBAECU1"",43,0)"
^XMB(3.9,49,2,304,0)="T85 ;;DG LTC INPT DOM NEW"
^XMB(3.9,49,2,305,0)="""RTN"",""IBAECU1"",44,0)"
^XMB(3.9,49,2,306,0)="T86 ;;DG LTC INPT DOM NEW"
^XMB(3.9,49,2,307,0)="""RTN"",""IBAECU1"",45,0)"
^XMB(3.9,49,2,308,0)="T87 ;;DG LTC INPT DOM NEW"
^XMB(3.9,49,2,309,0)="""RTN"",""IBAECU1"",46,0)"
^XMB(3.9,49,2,310,0)="T88 ;;DG LTC INPT DOM NEW"
^XMB(3.9,49,2,311,0)="""RTN"",""IBAECU1"",47,0)"
^XMB(3.9,49,2,312,0)="T95 ;;DG LTC INPT NHCU NEW"
^XMB(3.9,49,2,313,0)="""RTN"",""IBAECU1"",48,0)"
^XMB(3.9,49,2,314,0)="T96 ;;DG LTC INPT NHCU NEW"
^XMB(3.9,49,2,315,0)="""RTN"",""IBAECU1"",49,0)"
^XMB(3.9,49,2,316,0)=" ;;"
^XMB(3.9,49,2,317,0)="""RTN"",""IBAECU1"",50,0)"
^XMB(3.9,49,2,318,0)=" ;"
^XMB(3.9,49,2,319,0)="""RTN"",""IBAECU1"",51,0)"
^XMB(3.9,49,2,320,0)=" ;"
^XMB(3.9,49,2,321,0)="""RTN"",""IBCRBG2"")"
^XMB(3.9,49,2,322,0)="0^2^B7280940^B7011356"
^XMB(3.9,49,2,323,0)="""RTN"",""IBCRBG2"",1,0)"
^XMB(3.9,49,2,324,0)="IBCRBG2 ;ALB/ARH - RATES: BILL SOURCE EVENTS (INPT CONT) ; 01-OCT-03"
^XMB(3.9,49,2,325,0)="""RTN"",""IBCRBG2"",2,0)"
^XMB(3.9,49,2,326,0)=" ;;2.0;INTEGRATED BILLING;**245,175,332**;21-MAR-94"
^XMB(3.9,49,2,327,0)="""RTN"",""IBCRBG2"",3,0)"
^XMB(3.9,49,2,328,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,49,2,329,0)="""RTN"",""IBCRBG2"",4,0)"
^XMB(3.9,49,2,330,0)=" ;"
^XMB(3.9,49,2,331,0)="""RTN"",""IBCRBG2"",5,0)"
^XMB(3.9,49,2,332,0)="INPTRSET(IBIFN,CS) ; reset Inpatient data due to bedsection Tort 03 and Other Type of Care RC v2.0"
^XMB(3.9,49,2,333,0)="""RTN"",""IBCRBG2"",6,0)"
^XMB(3.9,49,2,334,0)=" ; (based on INPTPTF since that deals with timeframe and end of bill)"
^XMB(3.9,49,2,335,0)="""RTN"",""IBCRBG2"",7,0)"
^XMB(3.9,49,2,336,0)=" N IBRC S IBRC=1 I +$G(CS),$E($G(^IBE(363.1,+CS,0)),1,2)'=""RC"" S IBRC=0"
^XMB(3.9,49,2,337,0)="""RTN"",""IBCRBG2"",8,0)"
^XMB(3.9,49,2,338,0)=" ;"
^XMB(3.9,49,2,339,0)="""RTN"",""IBCRBG2"",9,0)"
^XMB(3.9,49,2,340,0)=" D INPTBS(IBIFN,IBRC)"
^XMB(3.9,49,2,341,0)="""RTN"",""IBCRBG2"",10,0)"
^XMB(3.9,49,2,342,0)=" D INPTOTH(IBIFN,IBRC)"
^XMB(3.9,49,2,343,0)="""RTN"",""IBCRBG2"",11,0)"
^XMB(3.9,49,2,344,0)=" Q"
^XMB(3.9,49,2,345,0)="""RTN"",""IBCRBG2"",12,0)"
^XMB(3.9,49,2,346,0)=" ;"
^XMB(3.9,49,2,347,0)="""RTN"",""IBCRBG2"",13,0)"
^XMB(3.9,49,2,348,0)="INPTBS(IBIFN,RC) ; with output from INPTPTF^IBCRBG, reset bedsections due to changes with Tort 03 and RC"
^XMB(3.9,49,2,349,0)="""RTN"",""IBCRBG2"",14,0)"
^XMB(3.9,49,2,350,0)=" ; - Some Specialties are changed to PRRTP bedsection (beginning with Tort 03)"
^XMB(3.9,49,2,351,0)="""RTN"",""IBCRBG2"",15,0)"
^XMB(3.9,49,2,352,0)=" ; - Some Specialties are changed to ICU bedsection for RC only (beginning with RC v2.0)"
^XMB(3.9,49,2,353,0)="""RTN"",""IBCRBG2"",16,0)"
^XMB(3.9,49,2,354,0)=" ; - Nursing Home Care and Observation bedsections are not billable with RC DRG (per diem) so remove DRG"
^XMB(3.9,49,2,355,0)="""RTN"",""IBCRBG2"",17,0)"
^XMB(3.9,49,2,356,0)=" ; (based on INPTPTF since that deals with timeframe and end of bill)"
^XMB(3.9,49,2,357,0)="""RTN"",""IBCRBG2"",18,0)"
^XMB(3.9,49,2,358,0)=" ;"
^XMB(3.9,49,2,359,0)="""RTN"",""IBCRBG2"",19,0)"
^XMB(3.9,49,2,360,0)=" N IBDT,IBLN,IBSPCLTY,IBNLN,IBNBS,IBNDRG,IBCGTY"
^XMB(3.9,49,2,361,0)="""RTN"",""IBCRBG2"",20,0)"
^XMB(3.9,49,2,362,0)=" ;"
^XMB(3.9,49,2,363,0)="""RTN"",""IBCRBG2"",21,0)"
^XMB(3.9,49,2,364,0)=" S IBDT=0 F  S IBDT=$O(^TMP($J,""IBCRC-INDT"",IBDT)) Q:'IBDT  D"
^XMB(3.9,49,2,365,0)="""RTN"",""IBCRBG2"",22,0)"
^XMB(3.9,49,2,366,0)=" . S IBLN=$G(^TMP($J,""IBCRC-INDT"",IBDT)) Q:'IBLN"
^XMB(3.9,49,2,367,0)="""RTN"",""IBCRBG2"",23,0)"
^XMB(3.9,49,2,368,0)=" . S IBSPCLTY=$P(IBLN,U,6) Q:'IBSPCLTY"
^XMB(3.9,49,2,369,0)="""RTN"",""IBCRBG2"",24,0)"
^XMB(3.9,49,2,370,0)=" . ;"
^XMB(3.9,49,2,371,0)="""RTN"",""IBCRBG2"",25,0)"
^XMB(3.9,49,2,372,0)=" . S IBNLN=IBLN"
^XMB(3.9,49,2,373,0)="""RTN"",""IBCRBG2"",26,0)"
^XMB(3.9,49,2,374,0)=" . S IBNBS=$$BSUPD(IBSPCLTY,IBDT,+$G(RC)) I +IBNBS S $P(IBNLN,U,2)=+IBNBS"
^XMB(3.9,49,2,375,0)="""RTN"",""IBCRBG2"",27,0)"
^XMB(3.9,49,2,376,0)=" . S IBNDRG=$$NODRG(IBSPCLTY) I +IBNDRG S $P(IBNLN,U,4)="""""
^XMB(3.9,49,2,377,0)="""RTN"",""IBCRBG2"",28,0)"
^XMB(3.9,49,2,378,0)=" . I 'IBNBS,'IBNDRG Q"
^XMB(3.9,49,2,379,0)="""RTN"",""IBCRBG2"",29,0)"
^XMB(3.9,49,2,380,0)=" . S ^TMP($J,""IBCRC-INDT"",IBDT)=IBNLN"
^XMB(3.9,49,2,381,0)="""RTN"",""IBCRBG2"",30,0)"
^XMB(3.9,49,2,382,0)=" Q"
^XMB(3.9,49,2,383,0)="""RTN"",""IBCRBG2"",31,0)"
^XMB(3.9,49,2,384,0)=" ; "
^XMB(3.9,49,2,385,0)="""RTN"",""IBCRBG2"",32,0)"
^XMB(3.9,49,2,386,0)="INPTOTH(IBIFN,RC) ; with output from INPTPTF^IBCRBG, reset Other type of care and Tort 03 changes"
^XMB(3.9,49,2,387,0)="""RTN"",""IBCRBG2"",33,0)"
^XMB(3.9,49,2,388,0)=" ; - If type of care is Other then bedsection is replaced and DRG deleted (began with RC v2.0)"
^XMB(3.9,49,2,389,0)="""RTN"",""IBCRBG2"",34,0)"
^XMB(3.9,49,2,390,0)=" ; (based on INPTPTF since that deals with timeframe and end of bill)"
^XMB(3.9,49,2,391,0)="""RTN"",""IBCRBG2"",35,0)"
^XMB(3.9,49,2,392,0)=" ;"
^XMB(3.9,49,2,393,0)="""RTN"",""IBCRBG2"",36,0)"
^XMB(3.9,49,2,394,0)=" N IBOT,IBOTLN,IBBS,IBDT1,IBDT2,IBDT,IBLN,IBNLN Q:'$G(RC)"
^XMB(3.9,49,2,395,0)="""RTN"",""IBCRBG2"",37,0)"
^XMB(3.9,49,2,396,0)=" I +$G(IBIFN) S IBOT=0 F  S IBOT=$O(^DGCR(399,IBIFN,""OT"",IBOT)) Q:'IBOT  D"
^XMB(3.9,49,2,397,0)="""RTN"",""IBCRBG2"",38,0)"
^XMB(3.9,49,2,398,0)=" . S IBOTLN=$G(^DGCR(399,IBIFN,""OT"",IBOT,0)) Q:'IBOTLN"
^XMB(3.9,49,2,399,0)="""RTN"",""IBCRBG2"",39,0)"
^XMB(3.9,49,2,400,0)=" . S IBDT1=+$P(IBOTLN,U,2) Q:'IBDT1  S IBDT2=+$P(IBOTLN,U,3) Q:'IBDT2"
^XMB(3.9,49,2,401,0)="""RTN"",""IBCRBG2"",40,0)"
^XMB(3.9,49,2,402,0)=" . S IBBS=+IBOTLN Q:'IBOTLN"
^XMB(3.9,49,2,403,0)="""RTN"",""IBCRBG2"",41,0)"
^XMB(3.9,49,2,404,0)=" . ;"
^XMB(3.9,49,2,405,0)="""RTN"",""IBCRBG2"",42,0)"
^XMB(3.9,49,2,406,0)=" . S IBDT=IBDT1-.1 F  S IBDT=$O(^TMP($J,""IBCRC-INDT"",IBDT)) Q:('IBDT)!(IBDT'<IBDT2)  D"
^XMB(3.9,49,2,407,0)="""RTN"",""IBCRBG2"",43,0)"
^XMB(3.9,49,2,408,0)=" .. S IBLN=$G(^TMP($J,""IBCRC-INDT"",IBDT)) Q:'IBLN"
^XMB(3.9,49,2,409,0)="""RTN"",""IBCRBG2"",44,0)"
^XMB(3.9,49,2,410,0)=" .. I IBDT<$$RC20 Q"
^XMB(3.9,49,2,411,0)="""RTN"",""IBCRBG2"",45,0)"
^XMB(3.9,49,2,412,0)=" .. ;"
^XMB(3.9,49,2,413,0)="""RTN"",""IBCRBG2"",46,0)"
^XMB(3.9,49,2,414,0)=" .. S IBNLN=IBLN"
^XMB(3.9,49,2,415,0)="""RTN"",""IBCRBG2"",47,0)"
^XMB(3.9,49,2,416,0)=" .. S $P(IBNLN,U,2)=+IBBS,$P(IBNLN,U,4)="""""
^XMB(3.9,49,2,417,0)="""RTN"",""IBCRBG2"",48,0)"
^XMB(3.9,49,2,418,0)=" .. S ^TMP($J,""IBCRC-INDT"",IBDT)=IBNLN"
^XMB(3.9,49,2,419,0)="""RTN"",""IBCRBG2"",49,0)"
^XMB(3.9,49,2,420,0)=" Q"
^XMB(3.9,49,2,421,0)="""RTN"",""IBCRBG2"",50,0)"
^XMB(3.9,49,2,422,0)=" ;"
^XMB(3.9,49,2,423,0)="""RTN"",""IBCRBG2"",51,0)"
^XMB(3.9,49,2,424,0)=" ;"
^XMB(3.9,49,2,425,0)="""RTN"",""IBCRBG2"",52,0)"
^XMB(3.9,49,2,426,0)="BSUPD(SPCLTY,DATE,RC) ; return updated bedsection name for specialty passed in (42.4 ifn)"
^XMB(3.9,49,2,427,0)="""RTN"",""IBCRBG2"",53,0)"
^XMB(3.9,49,2,428,0)=" ; beginning with TORT 2003 some specialties were moved to new PRRTP bedsection"
^XMB(3.9,49,2,429,0)="""RTN"",""IBCRBG2"",54,0)"
^XMB(3.9,49,2,430,0)=" ; beginning with RC v2.0 some specialties were moved to a new ICU bedsection, only applies to RC charges"
^XMB(3.9,49,2,431,0)="""RTN"",""IBCRBG2"",55,0)"
^XMB(3.9,49,2,432,0)=" N IBX,IBY,IBZ S (IBZ,IBX)="""",SPCLTY="",""_+$G(SPCLTY)_"","",DATE=$S(+$G(DATE):(DATE\1),1:DT)"
^XMB(3.9,49,2,433,0)="""RTN"",""IBCRBG2"",56,0)"
^XMB(3.9,49,2,434,0)=" I DATE'<$$TORT03,"",25,26,27,28,29,38,39,""[SPCLTY S IBX=""PRRTP"""
^XMB(3.9,49,2,435,0)="""RTN"",""IBCRBG2"",57,0)"
^XMB(3.9,49,2,436,0)=" I +$G(RC),DATE'<$$RC20,"",12,16,17,63,""[SPCLTY S IBX=""ICU"""
^XMB(3.9,49,2,437,0)="""RTN"",""IBCRBG2"",58,0)"
^XMB(3.9,49,2,438,0)=" I IBX'="""" S IBY=$O(^DGCR(399.1,""B"",IBX,0)) I +IBY S IBZ=IBY_U_IBX"
^XMB(3.9,49,2,439,0)="""RTN"",""IBCRBG2"",59,0)"
^XMB(3.9,49,2,440,0)=" Q IBZ"
^XMB(3.9,49,2,441,0)="""RTN"",""IBCRBG2"",60,0)"
^XMB(3.9,49,2,442,0)=" ;"
^XMB(3.9,49,2,443,0)="""RTN"",""IBCRBG2"",61,0)"
^XMB(3.9,49,2,444,0)="TORT03() ; return effective date of TORT 2003, date when PRRTP bedsection specialties changed"
^XMB(3.9,49,2,445,0)="""RTN"",""IBCRBG2"",62,0)"
^XMB(3.9,49,2,446,0)=" Q 3040107"
^XMB(3.9,49,2,447,0)="""RTN"",""IBCRBG2"",63,0)"
^XMB(3.9,49,2,448,0)=" ;"
^XMB(3.9,49,2,449,0)="""RTN"",""IBCRBG2"",64,0)"
^XMB(3.9,49,2,450,0)="RC20() ; return effective date of RC v2.0, date when ICU bedsection specialties changed"
^XMB(3.9,49,2,451,0)="""RTN"",""IBCRBG2"",65,0)"
^XMB(3.9,49,2,452,0)=" Q 3031219"
^XMB(3.9,49,2,453,0)="""RTN"",""IBCRBG2"",66,0)"
^XMB(3.9,49,2,454,0)=" ;"
^XMB(3.9,49,2,455,0)="""RTN"",""IBCRBG2"",67,0)"
^XMB(3.9,49,2,456,0)="NODRG(SPCLTY) ; return specialty ifn followed by bedsection name if the specialty should not be charged a DRG charge"
^XMB(3.9,49,2,457,0)="""RTN"",""IBCRBG2"",68,0)"
^XMB(3.9,49,2,458,0)=" N IBX,IBS S IBX=0,IBS="",""_+$G(SPCLTY)_"","""
^XMB(3.9,49,2,459,0)="""RTN"",""IBCRBG2"",69,0)"
^XMB(3.9,49,2,460,0)=" I "",80,81,96,42,43,44,45,46,64,66,67,68,69,95,""[IBS S IBX=+SPCLTY_""^Nursing Home Care"""
^XMB(3.9,49,2,461,0)="""RTN"",""IBCRBG2"",70,0)"
^XMB(3.9,49,2,462,0)=" I "",18,23,24,36,41,65,94,""[IBS S IBX=+SPCLTY_""^Observation"""
^XMB(3.9,49,2,463,0)="""RTN"",""IBCRBG2"",71,0)"
^XMB(3.9,49,2,464,0)=" Q IBX"
^XMB(3.9,49,2,465,0)="""VER"")"
^XMB(3.9,49,2,466,0)="8.0^22.0"
^XMB(3.9,49,2,467,0)="""BLD"",5849,6)"
^XMB(3.9,49,2,468,0)="^309"
^XMB(3.9,49,2,469,0)="$END KID IB*2.0*332"
^XMB(3.9,49,6,0)="^3.911A^2^2"
^XMB(3.9,49,6,1,0)="POSTMASTER"
^XMB(3.9,49,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,49,6,"B","POSTMASTER",1)=""
^XMB(3.9,49,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,50,0)="IB-2_SEQ-310_PAT-337.KID^.5^3061008.015735^^^^K"
^XMB(3.9,50,.6)="3061008"
^XMB(3.9,50,1,0)="^3.91A^2^2"
^XMB(3.9,50,1,1,0)=".5^0^3061008.015735^^^^^^^3061008.015735"
^XMB(3.9,50,1,2,0)="1^0^3061008.023321^^^^^^^3061008.023321"
^XMB(3.9,50,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,50,1,"C",.5,1)=""
^XMB(3.9,50,1,"C",1,2)=""
^XMB(3.9,50,2,0)="^^395^395^3061008"
^XMB(3.9,50,2,1,0)="$TXT Released IB*2*337 SEQ #310"
^XMB(3.9,50,2,2,0)="Extracted from mail message"
^XMB(3.9,50,2,3,0)="$END TXT"
^XMB(3.9,50,2,4,0)="$KID IB*2.0*337"
^XMB(3.9,50,2,5,0)="**INSTALL NAME**"
^XMB(3.9,50,2,6,0)="IB*2.0*337"
^XMB(3.9,50,2,7,0)="""BLD"",6622,0)"
^XMB(3.9,50,2,8,0)="IB*2.0*337^INTEGRATED BILLING^0^3060306^y"
^XMB(3.9,50,2,9,0)="""BLD"",6622,1,0)"
^XMB(3.9,50,2,10,0)="^^2^2^3060302^"
^XMB(3.9,50,2,11,0)="""BLD"",6622,1,1,0)"
^XMB(3.9,50,2,12,0)="The Chief Business Office has requested to update the DSS Stop Codes"
^XMB(3.9,50,2,13,0)="""BLD"",6622,1,2,0)"
^XMB(3.9,50,2,14,0)="to reflect the FY 06 Co-pay rates."
^XMB(3.9,50,2,15,0)="""BLD"",6622,4,0)"
^XMB(3.9,50,2,16,0)="^9.64PA^^"
^XMB(3.9,50,2,17,0)="""BLD"",6622,""INIT"")"
^XMB(3.9,50,2,18,0)="POST^IB20P337"
^XMB(3.9,50,2,19,0)="""BLD"",6622,""KRN"",0)"
^XMB(3.9,50,2,20,0)="^9.67PA^8989.52^19"
^XMB(3.9,50,2,21,0)="""BLD"",6622,""KRN"",.4,0)"
^XMB(3.9,50,2,22,0)=".4"
^XMB(3.9,50,2,23,0)="""BLD"",6622,""KRN"",.401,0)"
^XMB(3.9,50,2,24,0)=".401"
^XMB(3.9,50,2,25,0)="""BLD"",6622,""KRN"",.402,0)"
^XMB(3.9,50,2,26,0)=".402"
^XMB(3.9,50,2,27,0)="""BLD"",6622,""KRN"",.403,0)"
^XMB(3.9,50,2,28,0)=".403"
^XMB(3.9,50,2,29,0)="""BLD"",6622,""KRN"",.5,0)"
^XMB(3.9,50,2,30,0)=".5"
^XMB(3.9,50,2,31,0)="""BLD"",6622,""KRN"",.84,0)"
^XMB(3.9,50,2,32,0)=".84"
^XMB(3.9,50,2,33,0)="""BLD"",6622,""KRN"",3.6,0)"
^XMB(3.9,50,2,34,0)="3.6"
^XMB(3.9,50,2,35,0)="""BLD"",6622,""KRN"",3.8,0)"
^XMB(3.9,50,2,36,0)="3.8"
^XMB(3.9,50,2,37,0)="""BLD"",6622,""KRN"",9.2,0)"
^XMB(3.9,50,2,38,0)="9.2"
^XMB(3.9,50,2,39,0)="""BLD"",6622,""KRN"",9.8,0)"
^XMB(3.9,50,2,40,0)="9.8"
^XMB(3.9,50,2,41,0)="""BLD"",6622,""KRN"",19,0)"
^XMB(3.9,50,2,42,0)="19"
^XMB(3.9,50,2,43,0)="""BLD"",6622,""KRN"",19.1,0)"
^XMB(3.9,50,2,44,0)="19.1"
^XMB(3.9,50,2,45,0)="""BLD"",6622,""KRN"",101,0)"
^XMB(3.9,50,2,46,0)="101"
^XMB(3.9,50,2,47,0)="""BLD"",6622,""KRN"",409.61,0)"
^XMB(3.9,50,2,48,0)="409.61"
^XMB(3.9,50,2,49,0)="""BLD"",6622,""KRN"",771,0)"
^XMB(3.9,50,2,50,0)="771"
^XMB(3.9,50,2,51,0)="""BLD"",6622,""KRN"",870,0)"
^XMB(3.9,50,2,52,0)="870"
^XMB(3.9,50,2,53,0)="""BLD"",6622,""KRN"",8989.51,0)"
^XMB(3.9,50,2,54,0)="8989.51"
^XMB(3.9,50,2,55,0)="""BLD"",6622,""KRN"",8989.52,0)"
^XMB(3.9,50,2,56,0)="8989.52"
^XMB(3.9,50,2,57,0)="""BLD"",6622,""KRN"",8994,0)"
^XMB(3.9,50,2,58,0)="8994"
^XMB(3.9,50,2,59,0)="""BLD"",6622,""KRN"",""B"",.4,.4)"
^XMB(3.9,50,2,60,0)=""
^XMB(3.9,50,2,61,0)="""BLD"",6622,""KRN"",""B"",.401,.401)"
^XMB(3.9,50,2,62,0)=""
^XMB(3.9,50,2,63,0)="""BLD"",6622,""KRN"",""B"",.402,.402)"
^XMB(3.9,50,2,64,0)=""
^XMB(3.9,50,2,65,0)="""BLD"",6622,""KRN"",""B"",.403,.403)"
^XMB(3.9,50,2,66,0)=""
^XMB(3.9,50,2,67,0)="""BLD"",6622,""KRN"",""B"",.5,.5)"
^XMB(3.9,50,2,68,0)=""
^XMB(3.9,50,2,69,0)="""BLD"",6622,""KRN"",""B"",.84,.84)"
^XMB(3.9,50,2,70,0)=""
^XMB(3.9,50,2,71,0)="""BLD"",6622,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,50,2,72,0)=""
^XMB(3.9,50,2,73,0)="""BLD"",6622,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,50,2,74,0)=""
^XMB(3.9,50,2,75,0)="""BLD"",6622,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,50,2,76,0)=""
^XMB(3.9,50,2,77,0)="""BLD"",6622,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,50,2,78,0)=""
^XMB(3.9,50,2,79,0)="""BLD"",6622,""KRN"",""B"",19,19)"
^XMB(3.9,50,2,80,0)=""
^XMB(3.9,50,2,81,0)="""BLD"",6622,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,50,2,82,0)=""
^XMB(3.9,50,2,83,0)="""BLD"",6622,""KRN"",""B"",101,101)"
^XMB(3.9,50,2,84,0)=""
^XMB(3.9,50,2,85,0)="""BLD"",6622,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,50,2,86,0)=""
^XMB(3.9,50,2,87,0)="""BLD"",6622,""KRN"",""B"",771,771)"
^XMB(3.9,50,2,88,0)=""
^XMB(3.9,50,2,89,0)="""BLD"",6622,""KRN"",""B"",870,870)"
^XMB(3.9,50,2,90,0)=""
^XMB(3.9,50,2,91,0)="""BLD"",6622,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,50,2,92,0)=""
^XMB(3.9,50,2,93,0)="""BLD"",6622,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,50,2,94,0)=""
^XMB(3.9,50,2,95,0)="""BLD"",6622,""KRN"",""B"",8994,8994)"
^XMB(3.9,50,2,96,0)=""
^XMB(3.9,50,2,97,0)="""BLD"",6622,""QUES"",0)"
^XMB(3.9,50,2,98,0)="^9.62^^"
^XMB(3.9,50,2,99,0)="""BLD"",6622,""REQB"",0)"
^XMB(3.9,50,2,100,0)="^9.611^^"
^XMB(3.9,50,2,101,0)="""INIT"")"
^XMB(3.9,50,2,102,0)="POST^IB20P337"
^XMB(3.9,50,2,103,0)="""MBREQ"")"
^XMB(3.9,50,2,104,0)="0"
^XMB(3.9,50,2,105,0)="""PKG"",200,-1)"
^XMB(3.9,50,2,106,0)="1^1"
^XMB(3.9,50,2,107,0)="""PKG"",200,0)"
^XMB(3.9,50,2,108,0)="INTEGRATED BILLING^IB^INTEGRATED BILLING"
^XMB(3.9,50,2,109,0)="""PKG"",200,20,0)"
^XMB(3.9,50,2,110,0)="^9.402P^1^1"
^XMB(3.9,50,2,111,0)="""PKG"",200,20,1,0)"
^XMB(3.9,50,2,112,0)="2^^IBAXDR"
^XMB(3.9,50,2,113,0)="""PKG"",200,20,1,1)"
^XMB(3.9,50,2,114,0)=""
^XMB(3.9,50,2,115,0)="""PKG"",200,20,""B"",2,1)"
^XMB(3.9,50,2,116,0)=""
^XMB(3.9,50,2,117,0)="""PKG"",200,22,0)"
^XMB(3.9,50,2,118,0)="^9.49I^1^1"
^XMB(3.9,50,2,119,0)="""PKG"",200,22,1,0)"
^XMB(3.9,50,2,120,0)="2.0^2940321^2990406^2447"
^XMB(3.9,50,2,121,0)="""PKG"",200,22,1,""PAH"",1,0)"
^XMB(3.9,50,2,122,0)="337^3060306"
^XMB(3.9,50,2,123,0)="""PKG"",200,22,1,""PAH"",1,1,0)"
^XMB(3.9,50,2,124,0)="^^2^2^3060306"
^XMB(3.9,50,2,125,0)="""PKG"",200,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,50,2,126,0)="The Chief Business Office has requested to update the DSS Stop Codes"
^XMB(3.9,50,2,127,0)="""PKG"",200,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,50,2,128,0)="to reflect the FY 06 Co-pay rates."
^XMB(3.9,50,2,129,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,50,2,130,0)="Y"
^XMB(3.9,50,2,131,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,50,2,132,0)="^D REP^XPDH"
^XMB(3.9,50,2,133,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,50,2,134,0)="Shall I write over your |FLAG| File"
^XMB(3.9,50,2,135,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,50,2,136,0)="YES"
^XMB(3.9,50,2,137,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,50,2,138,0)="D XPF1^XPDIQ"
^XMB(3.9,50,2,139,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,50,2,140,0)="Y"
^XMB(3.9,50,2,141,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,50,2,142,0)="^D DTA^XPDH"
^XMB(3.9,50,2,143,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,50,2,144,0)="Want my data |FLAG| yours"
^XMB(3.9,50,2,145,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,50,2,146,0)="YES"
^XMB(3.9,50,2,147,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,50,2,148,0)="D XPF2^XPDIQ"
^XMB(3.9,50,2,149,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,50,2,150,0)="YO"
^XMB(3.9,50,2,151,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,50,2,152,0)="^D INHIBIT^XPDH"
^XMB(3.9,50,2,153,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,50,2,154,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,50,2,155,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,50,2,156,0)="YES"
^XMB(3.9,50,2,157,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,50,2,158,0)="D XPI1^XPDIQ"
^XMB(3.9,50,2,159,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,50,2,160,0)="PO^VA(200,:EM"
^XMB(3.9,50,2,161,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,50,2,162,0)="^D MG^XPDH"
^XMB(3.9,50,2,163,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,50,2,164,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,50,2,165,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,50,2,166,0)=""
^XMB(3.9,50,2,167,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,50,2,168,0)="D XPM1^XPDIQ"
^XMB(3.9,50,2,169,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,50,2,170,0)="Y"
^XMB(3.9,50,2,171,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,50,2,172,0)="^D MENU^XPDH"
^XMB(3.9,50,2,173,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,50,2,174,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,50,2,175,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,50,2,176,0)="YES"
^XMB(3.9,50,2,177,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,50,2,178,0)="D XPO1^XPDIQ"
^XMB(3.9,50,2,179,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,50,2,180,0)="Y"
^XMB(3.9,50,2,181,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,50,2,182,0)="^D OPT^XPDH"
^XMB(3.9,50,2,183,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,50,2,184,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,50,2,185,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,50,2,186,0)="YES"
^XMB(3.9,50,2,187,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,50,2,188,0)="D XPZ1^XPDIQ"
^XMB(3.9,50,2,189,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,50,2,190,0)="Y"
^XMB(3.9,50,2,191,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,50,2,192,0)="^D RTN^XPDH"
^XMB(3.9,50,2,193,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,50,2,194,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,50,2,195,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,50,2,196,0)="NO"
^XMB(3.9,50,2,197,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,50,2,198,0)="D XPZ2^XPDIQ"
^XMB(3.9,50,2,199,0)="""RTN"")"
^XMB(3.9,50,2,200,0)="1"
^XMB(3.9,50,2,201,0)="""RTN"",""IB20P337"")"
^XMB(3.9,50,2,202,0)="0^^B14180290"
^XMB(3.9,50,2,203,0)="""RTN"",""IB20P337"",1,0)"
^XMB(3.9,50,2,204,0)="IB20P337 ;ALB/CXW-FY06 DSS CLINIC STOP CODES IB*2.0*337 POST INIT ;15-FEB-06"
^XMB(3.9,50,2,205,0)="""RTN"",""IB20P337"",2,0)"
^XMB(3.9,50,2,206,0)=" ;;2.0;INTEGRATED BILLING;**337**;21-MAR-94"
^XMB(3.9,50,2,207,0)="""RTN"",""IB20P337"",3,0)"
^XMB(3.9,50,2,208,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,50,2,209,0)="""RTN"",""IB20P337"",4,0)"
^XMB(3.9,50,2,210,0)=" ;"
^XMB(3.9,50,2,211,0)="""RTN"",""IB20P337"",5,0)"
^XMB(3.9,50,2,212,0)="POST ;"
^XMB(3.9,50,2,213,0)="""RTN"",""IB20P337"",6,0)"
^XMB(3.9,50,2,214,0)=" N IBEFFDT,U"
^XMB(3.9,50,2,215,0)="""RTN"",""IB20P337"",7,0)"
^XMB(3.9,50,2,216,0)=" S U=""^"",IBEFFDT=3051001 ;effective date OCT 1st, 2005 "
^XMB(3.9,50,2,217,0)="""RTN"",""IB20P337"",8,0)"
^XMB(3.9,50,2,218,0)=" D START,ADD(IBEFFDT),UPDATE(IBEFFDT),FINISH"
^XMB(3.9,50,2,219,0)="""RTN"",""IB20P337"",9,0)"
^XMB(3.9,50,2,220,0)=" Q"
^XMB(3.9,50,2,221,0)="""RTN"",""IB20P337"",10,0)"
^XMB(3.9,50,2,222,0)=" ;"
^XMB(3.9,50,2,223,0)="""RTN"",""IB20P337"",11,0)"
^XMB(3.9,50,2,224,0)="START D MES^XPDUTL("""")"
^XMB(3.9,50,2,225,0)="""RTN"",""IB20P337"",12,0)"
^XMB(3.9,50,2,226,0)=" D MES^XPDUTL(""FY06 DSS Clinic Stop Codes, Post-Install Starting"")"
^XMB(3.9,50,2,227,0)="""RTN"",""IB20P337"",13,0)"
^XMB(3.9,50,2,228,0)=" Q"
^XMB(3.9,50,2,229,0)="""RTN"",""IB20P337"",14,0)"
^XMB(3.9,50,2,230,0)=" ;"
^XMB(3.9,50,2,231,0)="""RTN"",""IB20P337"",15,0)"
^XMB(3.9,50,2,232,0)="FINISH ;"
^XMB(3.9,50,2,233,0)="""RTN"",""IB20P337"",16,0)"
^XMB(3.9,50,2,234,0)=" D MES^XPDUTL("""")"
^XMB(3.9,50,2,235,0)="""RTN"",""IB20P337"",17,0)"
^XMB(3.9,50,2,236,0)=" D MES^XPDUTL(""FY06 DSS Clinic Stop Codes, Post-Install Complete"")"
^XMB(3.9,50,2,237,0)="""RTN"",""IB20P337"",18,0)"
^XMB(3.9,50,2,238,0)=" Q"
^XMB(3.9,50,2,239,0)="""RTN"",""IB20P337"",19,0)"
^XMB(3.9,50,2,240,0)=" ;"
^XMB(3.9,50,2,241,0)="""RTN"",""IB20P337"",20,0)"
^XMB(3.9,50,2,242,0)="MESS(IBSTR) ;"
^XMB(3.9,50,2,243,0)="""RTN"",""IB20P337"",21,0)"
^XMB(3.9,50,2,244,0)=" N IBA"
^XMB(3.9,50,2,245,0)="""RTN"",""IB20P337"",22,0)"
^XMB(3.9,50,2,246,0)=" S IBA(2)=IBSTR"
^XMB(3.9,50,2,247,0)="""RTN"",""IB20P337"",23,0)"
^XMB(3.9,50,2,248,0)=" S (IBA(1),IBA(3))="""""
^XMB(3.9,50,2,249,0)="""RTN"",""IB20P337"",24,0)"
^XMB(3.9,50,2,250,0)=" D MES^XPDUTL(.IBA)"
^XMB(3.9,50,2,251,0)="""RTN"",""IB20P337"",25,0)"
^XMB(3.9,50,2,252,0)=" Q"
^XMB(3.9,50,2,253,0)="""RTN"",""IB20P337"",26,0)"
^XMB(3.9,50,2,254,0)=" ;"
^XMB(3.9,50,2,255,0)="""RTN"",""IB20P337"",27,0)"
^XMB(3.9,50,2,256,0)="ADD(IBEFFDT) ;"
^XMB(3.9,50,2,257,0)="""RTN"",""IB20P337"",28,0)"
^XMB(3.9,50,2,258,0)=" ;add a new code"
^XMB(3.9,50,2,259,0)="""RTN"",""IB20P337"",29,0)"
^XMB(3.9,50,2,260,0)=" N Y,IBC,IBT,IBX,IBCODE,IBTYPE,IBDES,IBOVER"
^XMB(3.9,50,2,261,0)="""RTN"",""IB20P337"",30,0)"
^XMB(3.9,50,2,262,0)=" D MESS(""  Adding new codes to file 352.5"")"
^XMB(3.9,50,2,263,0)="""RTN"",""IB20P337"",31,0)"
^XMB(3.9,50,2,264,0)=" S IBC=0"
^XMB(3.9,50,2,265,0)="""RTN"",""IB20P337"",32,0)"
^XMB(3.9,50,2,266,0)=" F IBX=1:1 S IBT=$P($T(NCODE+IBX),"";"",3) Q:'$L(IBT)  D"
^XMB(3.9,50,2,267,0)="""RTN"",""IB20P337"",33,0)"
^XMB(3.9,50,2,268,0)=" . S IBCODE=+$P(IBT,U)"
^XMB(3.9,50,2,269,0)="""RTN"",""IB20P337"",34,0)"
^XMB(3.9,50,2,270,0)=" . I $D(^IBE(352.5,""AEFFDT"",IBCODE,-IBEFFDT)) D  Q"
^XMB(3.9,50,2,271,0)="""RTN"",""IB20P337"",35,0)"
^XMB(3.9,50,2,272,0)=" . . D BMES^XPDUTL(""  Duplication of non-billable type code ""_IBCODE)"
^XMB(3.9,50,2,273,0)="""RTN"",""IB20P337"",36,0)"
^XMB(3.9,50,2,274,0)=" . S IBTYPE=$P(IBT,U,2)"
^XMB(3.9,50,2,275,0)="""RTN"",""IB20P337"",37,0)"
^XMB(3.9,50,2,276,0)=" . S IBDES=$E($P(IBT,U,3),1,30)"
^XMB(3.9,50,2,277,0)="""RTN"",""IB20P337"",38,0)"
^XMB(3.9,50,2,278,0)=" . S IBOVER=$P(IBT,U,4)"
^XMB(3.9,50,2,279,0)="""RTN"",""IB20P337"",39,0)"
^XMB(3.9,50,2,280,0)=" . S Y=+$$ADD3525(IBCODE,IBEFFDT,IBTYPE,IBDES,IBOVER) S:Y>0 IBC=IBC+1"
^XMB(3.9,50,2,281,0)="""RTN"",""IB20P337"",40,0)"
^XMB(3.9,50,2,282,0)=" D MESS(""     ""_IBC_$S(IBC<2:"" entry"",1:"" entries"")_"" added to 352.5"")"
^XMB(3.9,50,2,283,0)="""RTN"",""IB20P337"",41,0)"
^XMB(3.9,50,2,284,0)=" Q"
^XMB(3.9,50,2,285,0)="""RTN"",""IB20P337"",42,0)"
^XMB(3.9,50,2,286,0)=" ;"
^XMB(3.9,50,2,287,0)="""RTN"",""IB20P337"",43,0)"
^XMB(3.9,50,2,288,0)="UPDATE(IBEFFDT) ;"
^XMB(3.9,50,2,289,0)="""RTN"",""IB20P337"",44,0)"
^XMB(3.9,50,2,290,0)=" ;update an old code"
^XMB(3.9,50,2,291,0)="""RTN"",""IB20P337"",45,0)"
^XMB(3.9,50,2,292,0)=" N Y,IB1,IBC,IBT,IBX,IBCODE,IBTYPE,IBDES,IBOVER,IBLSTDT"
^XMB(3.9,50,2,293,0)="""RTN"",""IB20P337"",46,0)"
^XMB(3.9,50,2,294,0)=" D MESS(""  Updating description and override flag in file 352.5"")"
^XMB(3.9,50,2,295,0)="""RTN"",""IB20P337"",47,0)"
^XMB(3.9,50,2,296,0)=" S IBC=0"
^XMB(3.9,50,2,297,0)="""RTN"",""IB20P337"",48,0)"
^XMB(3.9,50,2,298,0)=" F IBX=1:1 S IBT=$P($T(OCODE+IBX),"";"",3) Q:'$L(IBT)  D"
^XMB(3.9,50,2,299,0)="""RTN"",""IB20P337"",49,0)"
^XMB(3.9,50,2,300,0)=" . S IBCODE=+$P(IBT,U)"
^XMB(3.9,50,2,301,0)="""RTN"",""IB20P337"",50,0)"
^XMB(3.9,50,2,302,0)=" . I $D(^IBE(352.5,""AEFFDT"",IBCODE,-IBEFFDT)) D  Q"
^XMB(3.9,50,2,303,0)="""RTN"",""IB20P337"",51,0)"
^XMB(3.9,50,2,304,0)=" . . D BMES^XPDUTL(""  Duplication of non-billable type code ""_IBCODE)"
^XMB(3.9,50,2,305,0)="""RTN"",""IB20P337"",52,0)"
^XMB(3.9,50,2,306,0)=" . S IBLSTDT=$O(^IBE(352.5,""AEFFDT"",IBCODE,-9999999))"
^XMB(3.9,50,2,307,0)="""RTN"",""IB20P337"",53,0)"
^XMB(3.9,50,2,308,0)=" . I +IBLSTDT=0 D  Q"
^XMB(3.9,50,2,309,0)="""RTN"",""IB20P337"",54,0)"
^XMB(3.9,50,2,310,0)=" . . D BMES^XPDUTL(""  Code ""_IBCODE_"" not found for non-billable update"")"
^XMB(3.9,50,2,311,0)="""RTN"",""IB20P337"",55,0)"
^XMB(3.9,50,2,312,0)=" . S IB1=$O(^IBE(352.5,""AEFFDT"",IBCODE,IBLSTDT,0))"
^XMB(3.9,50,2,313,0)="""RTN"",""IB20P337"",56,0)"
^XMB(3.9,50,2,314,0)=" . S IBTYPE=$P($G(^IBE(352.5,IB1,0)),U,3)"
^XMB(3.9,50,2,315,0)="""RTN"",""IB20P337"",57,0)"
^XMB(3.9,50,2,316,0)=" . S IBDES=$E($P(IBT,U,2),1,30)"
^XMB(3.9,50,2,317,0)="""RTN"",""IB20P337"",58,0)"
^XMB(3.9,50,2,318,0)=" . S IBOVER=$P(IBT,U,3)"
^XMB(3.9,50,2,319,0)="""RTN"",""IB20P337"",59,0)"
^XMB(3.9,50,2,320,0)=" . S Y=+$$ADD3525(IBCODE,IBEFFDT,IBTYPE,IBDES,IBOVER) S:Y>0 IBC=IBC+1"
^XMB(3.9,50,2,321,0)="""RTN"",""IB20P337"",60,0)"
^XMB(3.9,50,2,322,0)=" D MES^XPDUTL("""")"
^XMB(3.9,50,2,323,0)="""RTN"",""IB20P337"",61,0)"
^XMB(3.9,50,2,324,0)=" D MES^XPDUTL(""     ""_IBC_$S(IBC<2:"" update"",1:"" updates"")_"" added to file 352.5"")"
^XMB(3.9,50,2,325,0)="""RTN"",""IB20P337"",62,0)"
^XMB(3.9,50,2,326,0)=" Q"
^XMB(3.9,50,2,327,0)="""RTN"",""IB20P337"",63,0)"
^XMB(3.9,50,2,328,0)=" ;"
^XMB(3.9,50,2,329,0)="""RTN"",""IB20P337"",64,0)"
^XMB(3.9,50,2,330,0)="ADD3525(IBCODE,IBEFFDT,IBTYPE,IBDES,IBOVER) ;"
^XMB(3.9,50,2,331,0)="""RTN"",""IB20P337"",65,0)"
^XMB(3.9,50,2,332,0)=" ;add a new entry"
^XMB(3.9,50,2,333,0)="""RTN"",""IB20P337"",66,0)"
^XMB(3.9,50,2,334,0)=" D BMES^XPDUTL(""   ""_IBCODE_""  ""_IBDES)"
^XMB(3.9,50,2,335,0)="""RTN"",""IB20P337"",67,0)"
^XMB(3.9,50,2,336,0)=" N IBIENS,IBFDA,IBER,IBRET"
^XMB(3.9,50,2,337,0)="""RTN"",""IB20P337"",68,0)"
^XMB(3.9,50,2,338,0)=" S IBRET="""""
^XMB(3.9,50,2,339,0)="""RTN"",""IB20P337"",69,0)"
^XMB(3.9,50,2,340,0)=" S IBIENS=""+1,"""
^XMB(3.9,50,2,341,0)="""RTN"",""IB20P337"",70,0)"
^XMB(3.9,50,2,342,0)=" S IBFDA(352.5,IBIENS,.01)=IBCODE"
^XMB(3.9,50,2,343,0)="""RTN"",""IB20P337"",71,0)"
^XMB(3.9,50,2,344,0)=" S IBFDA(352.5,IBIENS,.02)=IBEFFDT"
^XMB(3.9,50,2,345,0)="""RTN"",""IB20P337"",72,0)"
^XMB(3.9,50,2,346,0)=" S IBFDA(352.5,IBIENS,.03)=IBTYPE"
^XMB(3.9,50,2,347,0)="""RTN"",""IB20P337"",73,0)"
^XMB(3.9,50,2,348,0)=" S IBFDA(352.5,IBIENS,.04)=IBDES"
^XMB(3.9,50,2,349,0)="""RTN"",""IB20P337"",74,0)"
^XMB(3.9,50,2,350,0)=" S:IBOVER IBFDA(352.5,IBIENS,.05)=1"
^XMB(3.9,50,2,351,0)="""RTN"",""IB20P337"",75,0)"
^XMB(3.9,50,2,352,0)=" D UPDATE^DIE("""",""IBFDA"",""IBRET"",""IBER"")"
^XMB(3.9,50,2,353,0)="""RTN"",""IB20P337"",76,0)"
^XMB(3.9,50,2,354,0)=" I $D(IBER) D BMES^XPDUTL(IBER(""DIERR"",1,""TEXT"",1))"
^XMB(3.9,50,2,355,0)="""RTN"",""IB20P337"",77,0)"
^XMB(3.9,50,2,356,0)=" Q $G(IBRET(1))"
^XMB(3.9,50,2,357,0)="""RTN"",""IB20P337"",78,0)"
^XMB(3.9,50,2,358,0)=" ;"
^XMB(3.9,50,2,359,0)="""RTN"",""IB20P337"",79,0)"
^XMB(3.9,50,2,360,0)=" ;new non-billable type data"
^XMB(3.9,50,2,361,0)="""RTN"",""IB20P337"",80,0)"
^XMB(3.9,50,2,362,0)="NCODE ;;code^billable type^description^override flag"
^XMB(3.9,50,2,363,0)="""RTN"",""IB20P337"",81,0)"
^XMB(3.9,50,2,364,0)=" ;;142^0^ENTEROSTOMAL TX, WOUND OR SKIN CARE^1"
^XMB(3.9,50,2,365,0)="""RTN"",""IB20P337"",82,0)"
^XMB(3.9,50,2,366,0)=" ;;143^0^SLEEP STUDY^1"
^XMB(3.9,50,2,367,0)="""RTN"",""IB20P337"",83,0)"
^XMB(3.9,50,2,368,0)=" ;;191^0^COMMUNITY ADULT DAY HEALTH CARE FOLLOW-UP^1"
^XMB(3.9,50,2,369,0)="""RTN"",""IB20P337"",84,0)"
^XMB(3.9,50,2,370,0)=" ;;229^0^TELEPHONE/BLIND REHAB PROGRAM^1"
^XMB(3.9,50,2,371,0)="""RTN"",""IB20P337"",85,0)"
^XMB(3.9,50,2,372,0)=" ;;437^0^VISUAL IMPAIRMENT CENTER TO OPTIMIZE REMAINING SIGHT (VICTORS)^1"
^XMB(3.9,50,2,373,0)="""RTN"",""IB20P337"",86,0)"
^XMB(3.9,50,2,374,0)=" ;;439^0^LOW VISION CARE^1"
^XMB(3.9,50,2,375,0)="""RTN"",""IB20P337"",87,0)"
^XMB(3.9,50,2,376,0)=" ;;694^0^STORE-AND-FORWARD TELEHEALTH^1"
^XMB(3.9,50,2,377,0)="""RTN"",""IB20P337"",88,0)"
^XMB(3.9,50,2,378,0)=" ;;695^0^STORE-AND-FORWARD TELEHEALTH SAME STATION^1"
^XMB(3.9,50,2,379,0)="""RTN"",""IB20P337"",89,0)"
^XMB(3.9,50,2,380,0)=" ;;696^0^STORE-AND-FORWARD TELEHEALTH NOT SAME STATION^1"
^XMB(3.9,50,2,381,0)="""RTN"",""IB20P337"",90,0)"
^XMB(3.9,50,2,382,0)=" ;"
^XMB(3.9,50,2,383,0)="""RTN"",""IB20P337"",91,0)"
^XMB(3.9,50,2,384,0)=" ;description and override flag updates"
^XMB(3.9,50,2,385,0)="""RTN"",""IB20P337"",92,0)"
^XMB(3.9,50,2,386,0)="OCODE ;;code^description^override flag"
^XMB(3.9,50,2,387,0)="""RTN"",""IB20P337"",93,0)"
^XMB(3.9,50,2,388,0)=" ;;683^NON-VIDEO MONITORING ONLY^1"
^XMB(3.9,50,2,389,0)="""RTN"",""IB20P337"",94,0)"
^XMB(3.9,50,2,390,0)=" ;"
^XMB(3.9,50,2,391,0)="""VER"")"
^XMB(3.9,50,2,392,0)="8.0^22.0"
^XMB(3.9,50,2,393,0)="""BLD"",6622,6)"
^XMB(3.9,50,2,394,0)="^310"
^XMB(3.9,50,2,395,0)="$END KID IB*2.0*337"
^XMB(3.9,50,6,0)="^3.911A^2^2"
^XMB(3.9,50,6,1,0)="POSTMASTER"
^XMB(3.9,50,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,50,6,"B","POSTMASTER",1)=""
^XMB(3.9,50,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,51,0)="IB-2_SEQ-311_PAT-324.KID^.5^3061008.015735^^^^K"
^XMB(3.9,51,.6)="3061008"
^XMB(3.9,51,1,0)="^3.91A^2^2"
^XMB(3.9,51,1,1,0)=".5^0^3061008.015735^^^^^^^3061008.015735"
^XMB(3.9,51,1,2,0)="1^0^3061008.023326^^^^^^^3061008.023326"
^XMB(3.9,51,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,51,1,"C",.5,1)=""
^XMB(3.9,51,1,"C",1,2)=""
^XMB(3.9,51,2,0)="^^663^663^3061008"
^XMB(3.9,51,2,1,0)="$TXT Released IB*2*324 SEQ #311"
^XMB(3.9,51,2,2,0)="Extracted from mail message"
^XMB(3.9,51,2,3,0)="$END TXT"
^XMB(3.9,51,2,4,0)="$KID IB*2.0*324"
^XMB(3.9,51,2,5,0)="**INSTALL NAME**"
^XMB(3.9,51,2,6,0)="IB*2.0*324"
^XMB(3.9,51,2,7,0)="""BLD"",6312,0)"
^XMB(3.9,51,2,8,0)="IB*2.0*324^INTEGRATED BILLING^0^3050815^y"
^XMB(3.9,51,2,9,0)="""BLD"",6312,1,0)"
^XMB(3.9,51,2,10,0)="^^4^4^3050815^"
^XMB(3.9,51,2,11,0)="""BLD"",6312,1,1,0)"
^XMB(3.9,51,2,12,0)="This patch addresses one issue. The issue is about the batch which "
^XMB(3.9,51,2,13,0)="""BLD"",6312,1,2,0)"
^XMB(3.9,51,2,14,0)="didn't process through the outside trading partner WebMD when the claim"
^XMB(3.9,51,2,15,0)="""BLD"",6312,1,3,0)"
^XMB(3.9,51,2,16,0)="was missing the procedure for the modifier on the institutional service"
^XMB(3.9,51,2,17,0)="""BLD"",6312,1,4,0)"
^XMB(3.9,51,2,18,0)="line."
^XMB(3.9,51,2,19,0)="""BLD"",6312,4,0)"
^XMB(3.9,51,2,20,0)="^9.64PA^364.7^1"
^XMB(3.9,51,2,21,0)="""BLD"",6312,4,364.7,0)"
^XMB(3.9,51,2,22,0)="364.7"
^XMB(3.9,51,2,23,0)="""BLD"",6312,4,364.7,222)"
^XMB(3.9,51,2,24,0)="n^n^f^^n^^y^o^n"
^XMB(3.9,51,2,25,0)="""BLD"",6312,4,364.7,224)"
^XMB(3.9,51,2,26,0)="I Y=181"
^XMB(3.9,51,2,27,0)="""BLD"",6312,4,""B"",364.7,364.7)"
^XMB(3.9,51,2,28,0)=""
^XMB(3.9,51,2,29,0)="""BLD"",6312,""KRN"",0)"
^XMB(3.9,51,2,30,0)="^9.67PA^8989.52^19"
^XMB(3.9,51,2,31,0)="""BLD"",6312,""KRN"",.4,0)"
^XMB(3.9,51,2,32,0)=".4"
^XMB(3.9,51,2,33,0)="""BLD"",6312,""KRN"",.401,0)"
^XMB(3.9,51,2,34,0)=".401"
^XMB(3.9,51,2,35,0)="""BLD"",6312,""KRN"",.402,0)"
^XMB(3.9,51,2,36,0)=".402"
^XMB(3.9,51,2,37,0)="""BLD"",6312,""KRN"",.403,0)"
^XMB(3.9,51,2,38,0)=".403"
^XMB(3.9,51,2,39,0)="""BLD"",6312,""KRN"",.5,0)"
^XMB(3.9,51,2,40,0)=".5"
^XMB(3.9,51,2,41,0)="""BLD"",6312,""KRN"",.84,0)"
^XMB(3.9,51,2,42,0)=".84"
^XMB(3.9,51,2,43,0)="""BLD"",6312,""KRN"",3.6,0)"
^XMB(3.9,51,2,44,0)="3.6"
^XMB(3.9,51,2,45,0)="""BLD"",6312,""KRN"",3.8,0)"
^XMB(3.9,51,2,46,0)="3.8"
^XMB(3.9,51,2,47,0)="""BLD"",6312,""KRN"",9.2,0)"
^XMB(3.9,51,2,48,0)="9.2"
^XMB(3.9,51,2,49,0)="""BLD"",6312,""KRN"",9.8,0)"
^XMB(3.9,51,2,50,0)="9.8"
^XMB(3.9,51,2,51,0)="""BLD"",6312,""KRN"",19,0)"
^XMB(3.9,51,2,52,0)="19"
^XMB(3.9,51,2,53,0)="""BLD"",6312,""KRN"",19.1,0)"
^XMB(3.9,51,2,54,0)="19.1"
^XMB(3.9,51,2,55,0)="""BLD"",6312,""KRN"",101,0)"
^XMB(3.9,51,2,56,0)="101"
^XMB(3.9,51,2,57,0)="""BLD"",6312,""KRN"",409.61,0)"
^XMB(3.9,51,2,58,0)="409.61"
^XMB(3.9,51,2,59,0)="""BLD"",6312,""KRN"",771,0)"
^XMB(3.9,51,2,60,0)="771"
^XMB(3.9,51,2,61,0)="""BLD"",6312,""KRN"",870,0)"
^XMB(3.9,51,2,62,0)="870"
^XMB(3.9,51,2,63,0)="""BLD"",6312,""KRN"",8989.51,0)"
^XMB(3.9,51,2,64,0)="8989.51"
^XMB(3.9,51,2,65,0)="""BLD"",6312,""KRN"",8989.52,0)"
^XMB(3.9,51,2,66,0)="8989.52"
^XMB(3.9,51,2,67,0)="""BLD"",6312,""KRN"",8994,0)"
^XMB(3.9,51,2,68,0)="8994"
^XMB(3.9,51,2,69,0)="""BLD"",6312,""KRN"",""B"",.4,.4)"
^XMB(3.9,51,2,70,0)=""
^XMB(3.9,51,2,71,0)="""BLD"",6312,""KRN"",""B"",.401,.401)"
^XMB(3.9,51,2,72,0)=""
^XMB(3.9,51,2,73,0)="""BLD"",6312,""KRN"",""B"",.402,.402)"
^XMB(3.9,51,2,74,0)=""
^XMB(3.9,51,2,75,0)="""BLD"",6312,""KRN"",""B"",.403,.403)"
^XMB(3.9,51,2,76,0)=""
^XMB(3.9,51,2,77,0)="""BLD"",6312,""KRN"",""B"",.5,.5)"
^XMB(3.9,51,2,78,0)=""
^XMB(3.9,51,2,79,0)="""BLD"",6312,""KRN"",""B"",.84,.84)"
^XMB(3.9,51,2,80,0)=""
^XMB(3.9,51,2,81,0)="""BLD"",6312,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,51,2,82,0)=""
^XMB(3.9,51,2,83,0)="""BLD"",6312,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,51,2,84,0)=""
^XMB(3.9,51,2,85,0)="""BLD"",6312,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,51,2,86,0)=""
^XMB(3.9,51,2,87,0)="""BLD"",6312,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,51,2,88,0)=""
^XMB(3.9,51,2,89,0)="""BLD"",6312,""KRN"",""B"",19,19)"
^XMB(3.9,51,2,90,0)=""
^XMB(3.9,51,2,91,0)="""BLD"",6312,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,51,2,92,0)=""
^XMB(3.9,51,2,93,0)="""BLD"",6312,""KRN"",""B"",101,101)"
^XMB(3.9,51,2,94,0)=""
^XMB(3.9,51,2,95,0)="""BLD"",6312,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,51,2,96,0)=""
^XMB(3.9,51,2,97,0)="""BLD"",6312,""KRN"",""B"",771,771)"
^XMB(3.9,51,2,98,0)=""
^XMB(3.9,51,2,99,0)="""BLD"",6312,""KRN"",""B"",870,870)"
^XMB(3.9,51,2,100,0)=""
^XMB(3.9,51,2,101,0)="""BLD"",6312,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,51,2,102,0)=""
^XMB(3.9,51,2,103,0)="""BLD"",6312,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,51,2,104,0)=""
^XMB(3.9,51,2,105,0)="""BLD"",6312,""KRN"",""B"",8994,8994)"
^XMB(3.9,51,2,106,0)=""
^XMB(3.9,51,2,107,0)="""DATA"",364.7,181,0)"
^XMB(3.9,51,2,108,0)="128^N^5^^^^N"
^XMB(3.9,51,2,109,0)="""DATA"",364.7,181,1)"
^XMB(3.9,51,2,110,0)="N Z S Z=0 F  S Z=$O(IBXSAVE(""INPT"",Z)) Q:'Z  S:$P(IBXSAVE(""INPT"",Z),U,9)'=""""&($P(IBXSAVE(""INPT"",Z),U,2)'="""") IBXSAVE(""PMOD"",Z)=$P(IBXSAVE(""INPT"",Z),U,9),IBXDATA(Z)=$P(IBXSAVE(""PMOD"",Z),"","")"
^XMB(3.9,51,2,111,0)="""DATA"",364.7,181,3,0)"
^XMB(3.9,51,2,112,0)="^364.73^1^1^3001005^^^^"
^XMB(3.9,51,2,113,0)="""DATA"",364.7,181,3,1,0)"
^XMB(3.9,51,2,114,0)="Save the data element in the IBXSAVE(""PMOD"") array for later use."
^XMB(3.9,51,2,115,0)="""FIA"",364.7)"
^XMB(3.9,51,2,116,0)="IB FORM FIELD CONTENT"
^XMB(3.9,51,2,117,0)="""FIA"",364.7,0)"
^XMB(3.9,51,2,118,0)="^IBA(364.7,"
^XMB(3.9,51,2,119,0)="""FIA"",364.7,0,0)"
^XMB(3.9,51,2,120,0)="364.7IP"
^XMB(3.9,51,2,121,0)="""FIA"",364.7,0,1)"
^XMB(3.9,51,2,122,0)="n^n^f^^n^^y^o^n"
^XMB(3.9,51,2,123,0)="""FIA"",364.7,0,10)"
^XMB(3.9,51,2,124,0)=""
^XMB(3.9,51,2,125,0)="""FIA"",364.7,0,11)"
^XMB(3.9,51,2,126,0)="I Y=181"
^XMB(3.9,51,2,127,0)="""FIA"",364.7,0,""RLRO"")"
^XMB(3.9,51,2,128,0)=""
^XMB(3.9,51,2,129,0)="""FIA"",364.7,0,""VR"")"
^XMB(3.9,51,2,130,0)="2.0^IB"
^XMB(3.9,51,2,131,0)="""FIA"",364.7,364.7)"
^XMB(3.9,51,2,132,0)="0"
^XMB(3.9,51,2,133,0)="""FIA"",364.7,364.73)"
^XMB(3.9,51,2,134,0)="0"
^XMB(3.9,51,2,135,0)="""IX"",364.7,364.7,""ALL"",0)"
^XMB(3.9,51,2,136,0)="364.7^ALL^Xref contains all local overrides defined for all insurance and type^MU^^F^IR^I^364.7^^^^^S"
^XMB(3.9,51,2,137,0)="""IX"",364.7,364.7,""ALL"",1)"
^XMB(3.9,51,2,138,0)="S ^IBA(364.7,""ALL"",X2(2),DA)="""""
^XMB(3.9,51,2,139,0)="""IX"",364.7,364.7,""ALL"",1.4)"
^XMB(3.9,51,2,140,0)="I 'X2(2)!(X2(4)'="""")!(X2(5)'="""")!(X2(3)'=""L"") S X=0"
^XMB(3.9,51,2,141,0)="""IX"",364.7,364.7,""ALL"",2)"
^XMB(3.9,51,2,142,0)="K ^IBA(364.7,""ALL"",X1(2),DA)"
^XMB(3.9,51,2,143,0)="""IX"",364.7,364.7,""ALL"",2.4)"
^XMB(3.9,51,2,144,0)="I 'X1(2)!(X1(4)'="""")!(X1(5)'="""")!(X1(3)'=""L"") S X=0"
^XMB(3.9,51,2,145,0)="""IX"",364.7,364.7,""ALL"",2.5)"
^XMB(3.9,51,2,146,0)="K ^IBA(364.7,""ALL"")"
^XMB(3.9,51,2,147,0)="""IX"",364.7,364.7,""ALL"",11.1,0)"
^XMB(3.9,51,2,148,0)="^.114IA^5^5"
^XMB(3.9,51,2,149,0)="""IX"",364.7,364.7,""ALL"",11.1,1,0)"
^XMB(3.9,51,2,150,0)="1^F^364.7^.01^15^^F"
^XMB(3.9,51,2,151,0)="""IX"",364.7,364.7,""ALL"",11.1,1,3)"
^XMB(3.9,51,2,152,0)=" "
^XMB(3.9,51,2,153,0)="""IX"",364.7,364.7,""ALL"",11.1,2,0)"
^XMB(3.9,51,2,154,0)="2^C^^^10^1"
^XMB(3.9,51,2,155,0)="""IX"",364.7,364.7,""ALL"",11.1,2,1.5)"
^XMB(3.9,51,2,156,0)="S X=$P($G(^IBA(364.6,+X(1),0)),U,3)"
^XMB(3.9,51,2,157,0)="""IX"",364.7,364.7,""ALL"",11.1,3,0)"
^XMB(3.9,51,2,158,0)="3^F^364.7^.02^10^^F"
^XMB(3.9,51,2,159,0)="""IX"",364.7,364.7,""ALL"",11.1,3,3)"
^XMB(3.9,51,2,160,0)=" "
^XMB(3.9,51,2,161,0)="""IX"",364.7,364.7,""ALL"",11.1,4,0)"
^XMB(3.9,51,2,162,0)="4^F^364.7^.05^20^^F"
^XMB(3.9,51,2,163,0)="""IX"",364.7,364.7,""ALL"",11.1,4,3)"
^XMB(3.9,51,2,164,0)=" "
^XMB(3.9,51,2,165,0)="""IX"",364.7,364.7,""ALL"",11.1,5,0)"
^XMB(3.9,51,2,166,0)="5^F^364.7^.06^20^^F"
^XMB(3.9,51,2,167,0)="""IX"",364.7,364.7,""ALL"",11.1,5,3)"
^XMB(3.9,51,2,168,0)=" "
^XMB(3.9,51,2,169,0)="""MBREQ"")"
^XMB(3.9,51,2,170,0)="0"
^XMB(3.9,51,2,171,0)="""PKG"",200,-1)"
^XMB(3.9,51,2,172,0)="1^1"
^XMB(3.9,51,2,173,0)="""PKG"",200,0)"
^XMB(3.9,51,2,174,0)="INTEGRATED BILLING^IB^INTEGRATED BILLING"
^XMB(3.9,51,2,175,0)="""PKG"",200,20,0)"
^XMB(3.9,51,2,176,0)="^9.402P^1^1"
^XMB(3.9,51,2,177,0)="""PKG"",200,20,1,0)"
^XMB(3.9,51,2,178,0)="2^^IBAXDR"
^XMB(3.9,51,2,179,0)="""PKG"",200,20,1,1)"
^XMB(3.9,51,2,180,0)=""
^XMB(3.9,51,2,181,0)="""PKG"",200,20,""B"",2,1)"
^XMB(3.9,51,2,182,0)=""
^XMB(3.9,51,2,183,0)="""PKG"",200,22,0)"
^XMB(3.9,51,2,184,0)="^9.49I^1^1"
^XMB(3.9,51,2,185,0)="""PKG"",200,22,1,0)"
^XMB(3.9,51,2,186,0)="2.0^2940321^2990406^2447"
^XMB(3.9,51,2,187,0)="""PKG"",200,22,1,""PAH"",1,0)"
^XMB(3.9,51,2,188,0)="324^3050815"
^XMB(3.9,51,2,189,0)="""PKG"",200,22,1,""PAH"",1,1,0)"
^XMB(3.9,51,2,190,0)="^^4^4^3050815"
^XMB(3.9,51,2,191,0)="""PKG"",200,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,51,2,192,0)="This patch addresses one issue. The issue is about the batch which "
^XMB(3.9,51,2,193,0)="""PKG"",200,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,51,2,194,0)="didn't process through the outside trading partner WebMD when the claim"
^XMB(3.9,51,2,195,0)="""PKG"",200,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,51,2,196,0)="was missing the procedure for the modifier on the institutional service"
^XMB(3.9,51,2,197,0)="""PKG"",200,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,51,2,198,0)="line."
^XMB(3.9,51,2,199,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,51,2,200,0)="Y"
^XMB(3.9,51,2,201,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,51,2,202,0)="^D REP^XPDH"
^XMB(3.9,51,2,203,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,51,2,204,0)="Shall I write over your |FLAG| File"
^XMB(3.9,51,2,205,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,51,2,206,0)="YES"
^XMB(3.9,51,2,207,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,51,2,208,0)="D XPF1^XPDIQ"
^XMB(3.9,51,2,209,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,51,2,210,0)="Y"
^XMB(3.9,51,2,211,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,51,2,212,0)="^D DTA^XPDH"
^XMB(3.9,51,2,213,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,51,2,214,0)="Want my data |FLAG| yours"
^XMB(3.9,51,2,215,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,51,2,216,0)="YES"
^XMB(3.9,51,2,217,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,51,2,218,0)="D XPF2^XPDIQ"
^XMB(3.9,51,2,219,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,51,2,220,0)="YO"
^XMB(3.9,51,2,221,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,51,2,222,0)="^D INHIBIT^XPDH"
^XMB(3.9,51,2,223,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,51,2,224,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,51,2,225,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,51,2,226,0)="YES"
^XMB(3.9,51,2,227,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,51,2,228,0)="D XPI1^XPDIQ"
^XMB(3.9,51,2,229,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,51,2,230,0)="PO^VA(200,:EM"
^XMB(3.9,51,2,231,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,51,2,232,0)="^D MG^XPDH"
^XMB(3.9,51,2,233,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,51,2,234,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,51,2,235,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,51,2,236,0)=""
^XMB(3.9,51,2,237,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,51,2,238,0)="D XPM1^XPDIQ"
^XMB(3.9,51,2,239,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,51,2,240,0)="Y"
^XMB(3.9,51,2,241,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,51,2,242,0)="^D MENU^XPDH"
^XMB(3.9,51,2,243,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,51,2,244,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,51,2,245,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,51,2,246,0)="YES"
^XMB(3.9,51,2,247,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,51,2,248,0)="D XPO1^XPDIQ"
^XMB(3.9,51,2,249,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,51,2,250,0)="Y"
^XMB(3.9,51,2,251,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,51,2,252,0)="^D OPT^XPDH"
^XMB(3.9,51,2,253,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,51,2,254,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,51,2,255,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,51,2,256,0)="YES"
^XMB(3.9,51,2,257,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,51,2,258,0)="D XPZ1^XPDIQ"
^XMB(3.9,51,2,259,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,51,2,260,0)="Y"
^XMB(3.9,51,2,261,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,51,2,262,0)="^D RTN^XPDH"
^XMB(3.9,51,2,263,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,51,2,264,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,51,2,265,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,51,2,266,0)="NO"
^XMB(3.9,51,2,267,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,51,2,268,0)="D XPZ2^XPDIQ"
^XMB(3.9,51,2,269,0)="""VER"")"
^XMB(3.9,51,2,270,0)="8.0^22.0"
^XMB(3.9,51,2,271,0)="""^DD"",364.7,364.7,0)"
^XMB(3.9,51,2,272,0)="FIELD^^3^12"
^XMB(3.9,51,2,273,0)="""^DD"",364.7,364.7,0,""DDA"")"
^XMB(3.9,51,2,274,0)="N"
^XMB(3.9,51,2,275,0)="""^DD"",364.7,364.7,0,""DT"")"
^XMB(3.9,51,2,276,0)="2960710"
^XMB(3.9,51,2,277,0)="""^DD"",364.7,364.7,0,""ID"",.03)"
^XMB(3.9,51,2,278,0)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^IBA(364.5,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(364.5,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^XMB(3.9,51,2,279,0)="""^DD"",364.7,364.7,0,""IX"",""AINS"",364.7,.01)"
^XMB(3.9,51,2,280,0)=""
^XMB(3.9,51,2,281,0)="""^DD"",364.7,364.7,0,""IX"",""AINS1"",364.7,.05)"
^XMB(3.9,51,2,282,0)=""
^XMB(3.9,51,2,283,0)="""^DD"",364.7,364.7,0,""IX"",""AINTYP"",364.7,.01)"
^XMB(3.9,51,2,284,0)=""
^XMB(3.9,51,2,285,0)="""^DD"",364.7,364.7,0,""IX"",""AINTYP1"",364.7,.05)"
^XMB(3.9,51,2,286,0)=""
^XMB(3.9,51,2,287,0)="""^DD"",364.7,364.7,0,""IX"",""AINTYP2"",364.7,.06)"
^XMB(3.9,51,2,288,0)=""
^XMB(3.9,51,2,289,0)="""^DD"",364.7,364.7,0,""IX"",""ATYPE"",364.7,.01)"
^XMB(3.9,51,2,290,0)=""
^XMB(3.9,51,2,291,0)="""^DD"",364.7,364.7,0,""IX"",""ATYPE1"",364.7,.06)"
^XMB(3.9,51,2,292,0)=""
^XMB(3.9,51,2,293,0)="""^DD"",364.7,364.7,0,""IX"",""B"",364.7,.01)"
^XMB(3.9,51,2,294,0)=""
^XMB(3.9,51,2,295,0)="""^DD"",364.7,364.7,0,""IX"",""C"",364.7,.03)"
^XMB(3.9,51,2,296,0)=""
^XMB(3.9,51,2,297,0)="""^DD"",364.7,364.7,0,""NM"",""IB FORM FIELD CONTENT"")"
^XMB(3.9,51,2,298,0)=" "
^XMB(3.9,51,2,299,0)="""^DD"",364.7,364.7,0,""VRPK"")"
^XMB(3.9,51,2,300,0)="IB"
^XMB(3.9,51,2,301,0)="""^DD"",364.7,364.7,.01,0)"
^XMB(3.9,51,2,302,0)="FORM FIELD REFERENCE^RP364.6'^IBA(364.6,^0;1^Q"
^XMB(3.9,51,2,303,0)="""^DD"",364.7,364.7,.01,1,0)"
^XMB(3.9,51,2,304,0)="^.1"
^XMB(3.9,51,2,305,0)="""^DD"",364.7,364.7,.01,1,1,0)"
^XMB(3.9,51,2,306,0)="364.7^B"
^XMB(3.9,51,2,307,0)="""^DD"",364.7,364.7,.01,1,1,1)"
^XMB(3.9,51,2,308,0)="S ^IBA(364.7,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,51,2,309,0)="""^DD"",364.7,364.7,.01,1,1,2)"
^XMB(3.9,51,2,310,0)="K ^IBA(364.7,""B"",$E(X,1,30),DA)"
^XMB(3.9,51,2,311,0)="""^DD"",364.7,364.7,.01,1,2,0)"
^XMB(3.9,51,2,312,0)="364.7^ATYPE^MUMPS"
^XMB(3.9,51,2,313,0)="""^DD"",364.7,364.7,.01,1,2,1)"
^XMB(3.9,51,2,314,0)="N Z1,Z0 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P(Z0,U,6) I Z1'="""",$P($G(^IBA(364.6,+X,0)),U,3),'$P(Z0,U,5) S ^IBA(364.7,""ATYPE"",$P(^IBA(364.6,+X,0),U,3),Z1,DA)="""""
^XMB(3.9,51,2,315,0)="""^DD"",364.7,364.7,.01,1,2,2)"
^XMB(3.9,51,2,316,0)="N Z0,Z1 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P(Z0,U,6) I Z1'="""",$P($G(^IBA(364.6,+X,0)),U,3) K ^IBA(364.7,""ATYPE"",$P(^IBA(364.6,+X,0),U,3),Z1,DA)"
^XMB(3.9,51,2,317,0)="""^DD"",364.7,364.7,.01,1,2,3)"
^XMB(3.9,51,2,318,0)="DO NOT DELETE"
^XMB(3.9,51,2,319,0)="""^DD"",364.7,364.7,.01,1,2,""%D"",0)"
^XMB(3.9,51,2,320,0)="^^1^1^2980104^^^^"
^XMB(3.9,51,2,321,0)="""^DD"",364.7,364.7,.01,1,2,""%D"",1,0)"
^XMB(3.9,51,2,322,0)="Xref by form and bill type"
^XMB(3.9,51,2,323,0)="""^DD"",364.7,364.7,.01,1,2,""DT"")"
^XMB(3.9,51,2,324,0)="2960117"
^XMB(3.9,51,2,325,0)="""^DD"",364.7,364.7,.01,1,3,0)"
^XMB(3.9,51,2,326,0)="364.7^AINTYP^MUMPS"
^XMB(3.9,51,2,327,0)="""^DD"",364.7,364.7,.01,1,3,1)"
^XMB(3.9,51,2,328,0)="N Z0,Z1,Z2 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P(Z0,U,5),Z2=$P(Z0,U,6) I Z1,Z2'="""",$P($G(^IBA(364.6,+X,0)),U,3) S ^IBA(364.7,""AINTYP"",$P(^IBA(364.6,+X,0),U,3),Z1,Z2,DA)="""""
^XMB(3.9,51,2,329,0)="""^DD"",364.7,364.7,.01,1,3,2)"
^XMB(3.9,51,2,330,0)="N Z0,Z1,Z2 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P(Z0,U,5),Z2=$P(Z0,U,6) I Z1,Z2'="""",$P($G(^IBA(364.6,+X,0)),U,3) K ^IBA(364.7,""AINTYP"",$P(^IBA(364.6,+X,0),U,3),Z1,Z2,DA)"
^XMB(3.9,51,2,331,0)="""^DD"",364.7,364.7,.01,1,3,3)"
^XMB(3.9,51,2,332,0)="DO NOT DELETE"
^XMB(3.9,51,2,333,0)="""^DD"",364.7,364.7,.01,1,3,""%D"",0)"
^XMB(3.9,51,2,334,0)="^^1^1^2971231^^^"
^XMB(3.9,51,2,335,0)="""^DD"",364.7,364.7,.01,1,3,""%D"",1,0)"
^XMB(3.9,51,2,336,0)="Xref by form, insurance company and bill type"
^XMB(3.9,51,2,337,0)="""^DD"",364.7,364.7,.01,1,3,""DT"")"
^XMB(3.9,51,2,338,0)="2960117"
^XMB(3.9,51,2,339,0)="""^DD"",364.7,364.7,.01,1,4,0)"
^XMB(3.9,51,2,340,0)="364.7^AINS^MUMPS"
^XMB(3.9,51,2,341,0)="""^DD"",364.7,364.7,.01,1,4,1)"
^XMB(3.9,51,2,342,0)="N Z0,Z1 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P(Z0,U,5) I Z1,$P($G(^IBA(364.6,+X,0)),U,3),$P(Z0,U,6)="""" S ^IBA(364.7,""AINS"",$P(^IBA(364.6,+X,0),U,3),Z1,DA)="""""
^XMB(3.9,51,2,343,0)="""^DD"",364.7,364.7,.01,1,4,2)"
^XMB(3.9,51,2,344,0)="N Z0,Z1 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P(Z0,U,5) I Z1,$P($G(^IBA(364.6,+X,0)),U,3) K ^IBA(364.7,""AINS"",$P(^IBA(364.6,+X,0),U,3),Z1,DA)"
^XMB(3.9,51,2,345,0)="""^DD"",364.7,364.7,.01,1,4,3)"
^XMB(3.9,51,2,346,0)="DO NOT DELETE"
^XMB(3.9,51,2,347,0)="""^DD"",364.7,364.7,.01,1,4,""%D"",0)"
^XMB(3.9,51,2,348,0)="^^1^1^2971231^^"
^XMB(3.9,51,2,349,0)="""^DD"",364.7,364.7,.01,1,4,""%D"",1,0)"
^XMB(3.9,51,2,350,0)="Xref by form field and insurance company"
^XMB(3.9,51,2,351,0)="""^DD"",364.7,364.7,.01,1,4,""DT"")"
^XMB(3.9,51,2,352,0)="2960118"
^XMB(3.9,51,2,353,0)="""^DD"",364.7,364.7,.01,3)"
^XMB(3.9,51,2,354,0)="Enter the billing form that this field is associated with"
^XMB(3.9,51,2,355,0)="""^DD"",364.7,364.7,.01,21,0)"
^XMB(3.9,51,2,356,0)="^^2^2^2951207^^^^"
^XMB(3.9,51,2,357,0)="""^DD"",364.7,364.7,.01,21,1,0)"
^XMB(3.9,51,2,358,0)="This is a pointer to the billing form field that this field is associated"
^XMB(3.9,51,2,359,0)="""^DD"",364.7,364.7,.01,21,2,0)"
^XMB(3.9,51,2,360,0)="with."
^XMB(3.9,51,2,361,0)="""^DD"",364.7,364.7,.01,""DT"")"
^XMB(3.9,51,2,362,0)="3000428"
^XMB(3.9,51,2,363,0)="""^DD"",364.7,364.7,.02,0)"
^XMB(3.9,51,2,364,0)="SECURITY LEVEL^S^N:NATIONAL,NO EDIT;L:LOCAL;^0;2^Q"
^XMB(3.9,51,2,365,0)="""^DD"",364.7,364.7,.02,1,0)"
^XMB(3.9,51,2,366,0)="^.1^^0"
^XMB(3.9,51,2,367,0)="""^DD"",364.7,364.7,.02,3)"
^XMB(3.9,51,2,368,0)="Enter N for nationally released fields (no edit) or L for locally added fields."
^XMB(3.9,51,2,369,0)="""^DD"",364.7,364.7,.02,21,0)"
^XMB(3.9,51,2,370,0)="^^3^3^2951219^^^"
^XMB(3.9,51,2,371,0)="""^DD"",364.7,364.7,.02,21,1,0)"
^XMB(3.9,51,2,372,0)="This field determines whether or not editing of the entry is allowed.  For"
^XMB(3.9,51,2,373,0)="""^DD"",364.7,364.7,.02,21,2,0)"
^XMB(3.9,51,2,374,0)="NATIONAL (N) field, no local editing is allowed.  If LOCAL (L) field is"
^XMB(3.9,51,2,375,0)="""^DD"",364.7,364.7,.02,21,3,0)"
^XMB(3.9,51,2,376,0)="created, editing is allowed."
^XMB(3.9,51,2,377,0)="""^DD"",364.7,364.7,.02,""DT"")"
^XMB(3.9,51,2,378,0)="3000428"
^XMB(3.9,51,2,379,0)="""^DD"",364.7,364.7,.03,0)"
^XMB(3.9,51,2,380,0)="DATA ELEMENT^P364.5'^IBA(364.5,^0;3^Q"
^XMB(3.9,51,2,381,0)="""^DD"",364.7,364.7,.03,1,0)"
^XMB(3.9,51,2,382,0)="^.1"
^XMB(3.9,51,2,383,0)="""^DD"",364.7,364.7,.03,1,1,0)"
^XMB(3.9,51,2,384,0)="364.7^C"
^XMB(3.9,51,2,385,0)="""^DD"",364.7,364.7,.03,1,1,1)"
^XMB(3.9,51,2,386,0)="S ^IBA(364.7,""C"",$E(X,1,30),DA)="""""
^XMB(3.9,51,2,387,0)="""^DD"",364.7,364.7,.03,1,1,2)"
^XMB(3.9,51,2,388,0)="K ^IBA(364.7,""C"",$E(X,1,30),DA)"
^XMB(3.9,51,2,389,0)="""^DD"",364.7,364.7,.03,1,1,3)"
^XMB(3.9,51,2,390,0)="DO NOT DELETE"
^XMB(3.9,51,2,391,0)="""^DD"",364.7,364.7,.03,1,1,""%D"",0)"
^XMB(3.9,51,2,392,0)="^^1^1^2960702^"
^XMB(3.9,51,2,393,0)="""^DD"",364.7,364.7,.03,1,1,""%D"",1,0)"
^XMB(3.9,51,2,394,0)="Xref by DATA ELEMENT NAME"
^XMB(3.9,51,2,395,0)="""^DD"",364.7,364.7,.03,1,1,""DT"")"
^XMB(3.9,51,2,396,0)="2960702"
^XMB(3.9,51,2,397,0)="""^DD"",364.7,364.7,.03,3)"
^XMB(3.9,51,2,398,0)="Enter the data element that will define this form field.  If used on a screen, it must be a fileman type."
^XMB(3.9,51,2,399,0)="""^DD"",364.7,364.7,.03,21,0)"
^XMB(3.9,51,2,400,0)="^^1^1^2960627^^^^"
^XMB(3.9,51,2,401,0)="""^DD"",364.7,364.7,.03,21,1,0)"
^XMB(3.9,51,2,402,0)="This identifies the data element that be extracted for this entry."
^XMB(3.9,51,2,403,0)="""^DD"",364.7,364.7,.03,23,0)"
^XMB(3.9,51,2,404,0)="^^4^4^2960627^^^^"
^XMB(3.9,51,2,405,0)="""^DD"",364.7,364.7,.03,23,1,0)"
^XMB(3.9,51,2,406,0)="This is the data element that will be allowed to be displayed/edited on a"
^XMB(3.9,51,2,407,0)="""^DD"",364.7,364.7,.03,23,2,0)"
^XMB(3.9,51,2,408,0)="screen, extracted for a transmit, or printed on a printed form.  If used on"
^XMB(3.9,51,2,409,0)="""^DD"",364.7,364.7,.03,23,3,0)"
^XMB(3.9,51,2,410,0)="a screen, the data element must be a fileman type and a local field (>10000"
^XMB(3.9,51,2,411,0)="""^DD"",364.7,364.7,.03,23,4,0)"
^XMB(3.9,51,2,412,0)="for ifn and on a node >10000) to be editable."
^XMB(3.9,51,2,413,0)="""^DD"",364.7,364.7,.03,""DT"")"
^XMB(3.9,51,2,414,0)="2960702"
^XMB(3.9,51,2,415,0)="""^DD"",364.7,364.7,.04,0)"
^XMB(3.9,51,2,416,0)="SCREEN PROMPT^FX^^0;4^K:$L(X)>70!($L(X)<1) X I $D(X),$P($G(^IBE(353,+$G(^IBA(364.6,+$G(^IBA(364.7,DA,0)),0)),2)),U,2)'=""S"" K X"
^XMB(3.9,51,2,417,0)="""^DD"",364.7,364.7,.04,.1)"
^XMB(3.9,51,2,418,0)=" "
^XMB(3.9,51,2,419,0)="""^DD"",364.7,364.7,.04,1,0)"
^XMB(3.9,51,2,420,0)="^.1^^0"
^XMB(3.9,51,2,421,0)="""^DD"",364.7,364.7,.04,3)"
^XMB(3.9,51,2,422,0)="Answer must be 1-70 characters in length."
^XMB(3.9,51,2,423,0)="""^DD"",364.7,364.7,.04,21,0)"
^XMB(3.9,51,2,424,0)="3^^2^2^2960321^^^^"
^XMB(3.9,51,2,425,0)="""^DD"",364.7,364.7,.04,21,1,0)"
^XMB(3.9,51,2,426,0)="This is used only by screen-type forms to place a prompt on the screen"
^XMB(3.9,51,2,427,0)="""^DD"",364.7,364.7,.04,21,2,0)"
^XMB(3.9,51,2,428,0)="for a particular field."
^XMB(3.9,51,2,429,0)="""^DD"",364.7,364.7,.04,23,0)"
^XMB(3.9,51,2,430,0)="^^3^3^2960321^^^^"
^XMB(3.9,51,2,431,0)="""^DD"",364.7,364.7,.04,23,1,0)"
^XMB(3.9,51,2,432,0)="This is the prompt that will preceed the data element defined for this"
^XMB(3.9,51,2,433,0)="""^DD"",364.7,364.7,.04,23,2,0)"
^XMB(3.9,51,2,434,0)="entry.  If no data element, this prompt will display.  This field is only"
^XMB(3.9,51,2,435,0)="""^DD"",364.7,364.7,.04,23,3,0)"
^XMB(3.9,51,2,436,0)="used for screen-type forms."
^XMB(3.9,51,2,437,0)="""^DD"",364.7,364.7,.04,""DT"")"
^XMB(3.9,51,2,438,0)="2960321"
^XMB(3.9,51,2,439,0)="""^DD"",364.7,364.7,.05,0)"
^XMB(3.9,51,2,440,0)="INSURANCE COMPANY^P36'^DIC(36,^0;5^Q"
^XMB(3.9,51,2,441,0)="""^DD"",364.7,364.7,.05,1,0)"
^XMB(3.9,51,2,442,0)="^.1"
^XMB(3.9,51,2,443,0)="""^DD"",364.7,364.7,.05,1,1,0)"
^XMB(3.9,51,2,444,0)="364.7^AINS1^MUMPS"
^XMB(3.9,51,2,445,0)="""^DD"",364.7,364.7,.05,1,1,1)"
^XMB(3.9,51,2,446,0)="N Z0,Z1 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P($G(^IBA(364.6,+Z0,0)),U,3) I Z1,$P(Z0,U,6)="""" S ^IBA(364.7,""AINS"",Z1,$E(X,1,30),DA)="""""
^XMB(3.9,51,2,447,0)="""^DD"",364.7,364.7,.05,1,1,2)"
^XMB(3.9,51,2,448,0)="N Z0,Z1,Z2 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P($G(^IBA(364.6,+Z0,0)),U,3),Z2=$P(Z0,U,6) K ^IBA(364.7,""AINS"",Z1,$E(X,1,30),DA) I Z2'="""",$D(^IBA(364.7,""AINTYP"",Z1,X,Z2,DA)) S ^IBA(364.7,""ATYPE"",Z1,Z2,DA)="""""
^XMB(3.9,51,2,449,0)="""^DD"",364.7,364.7,.05,1,1,3)"
^XMB(3.9,51,2,450,0)="DO NOT DELETE"
^XMB(3.9,51,2,451,0)="""^DD"",364.7,364.7,.05,1,1,""%D"",0)"
^XMB(3.9,51,2,452,0)="^^1^1^2960118^"
^XMB(3.9,51,2,453,0)="""^DD"",364.7,364.7,.05,1,1,""%D"",1,0)"
^XMB(3.9,51,2,454,0)="Xref by form field and insurance company."
^XMB(3.9,51,2,455,0)="""^DD"",364.7,364.7,.05,1,1,""DT"")"
^XMB(3.9,51,2,456,0)="2960118"
^XMB(3.9,51,2,457,0)="""^DD"",364.7,364.7,.05,1,2,0)"
^XMB(3.9,51,2,458,0)="364.7^AINTYP1^MUMPS"
^XMB(3.9,51,2,459,0)="""^DD"",364.7,364.7,.05,1,2,1)"
^XMB(3.9,51,2,460,0)="N Z0,Z1,Z2 S Z0=$G(^IBA(364.7,DA,0)),Z1=+$P($G(^IBA(364.6,+Z0,0)),U,3),Z2=$P(Z0,U,6) I Z1,Z2'="""" S ^IBA(364.7,""AINTYP"",Z1,$E(X,1,30),Z2,DA)="""" K ^IBA(364.7,""ATYPE"",Z1,Z2,DA),^IBA(364.7,""AINS"",Z1,X,DA)"
^XMB(3.9,51,2,461,0)="""^DD"",364.7,364.7,.05,1,2,2)"
^XMB(3.9,51,2,462,0)="N Z0,Z1,Z2 S Z0=$G(^IBA(364.7,DA,0)),Z1=+$P($G(^IBA(364.6,+Z0,0)),U,3),Z2=$P(Z0,U,6) K:Z1&(Z2'="""") ^IBA(364.7,""AINTYP"",Z1,$E(X,1,30),Z2,DA)"
^XMB(3.9,51,2,463,0)="""^DD"",364.7,364.7,.05,1,2,3)"
^XMB(3.9,51,2,464,0)="DO NOT DELETE"
^XMB(3.9,51,2,465,0)="""^DD"",364.7,364.7,.05,1,2,""%D"",0)"
^XMB(3.9,51,2,466,0)="^^1^1^2960117^^^^"
^XMB(3.9,51,2,467,0)="""^DD"",364.7,364.7,.05,1,2,""%D"",1,0)"
^XMB(3.9,51,2,468,0)="Xref by insurance company and bill type"
^XMB(3.9,51,2,469,0)="""^DD"",364.7,364.7,.05,1,2,""DT"")"
^XMB(3.9,51,2,470,0)="2960117"
^XMB(3.9,51,2,471,0)="""^DD"",364.7,364.7,.05,3)"
^XMB(3.9,51,2,472,0)="Enter the name of the insurance company that this field is associated with."
^XMB(3.9,51,2,473,0)="""^DD"",364.7,364.7,.05,21,0)"
^XMB(3.9,51,2,474,0)="^^2^2^2951207^"
^XMB(3.9,51,2,475,0)="""^DD"",364.7,364.7,.05,21,1,0)"
^XMB(3.9,51,2,476,0)="This is the insurance company who has a need for other than the standard"
^XMB(3.9,51,2,477,0)="""^DD"",364.7,364.7,.05,21,2,0)"
^XMB(3.9,51,2,478,0)="data in this field."
^XMB(3.9,51,2,479,0)="""^DD"",364.7,364.7,.05,""DT"")"
^XMB(3.9,51,2,480,0)="3000428"
^XMB(3.9,51,2,481,0)="""^DD"",364.7,364.7,.06,0)"
^XMB(3.9,51,2,482,0)="BILL TYPE^S^I:INPATIENT;O:OUTPATIENT;^0;6^Q"
^XMB(3.9,51,2,483,0)="""^DD"",364.7,364.7,.06,1,0)"
^XMB(3.9,51,2,484,0)="^.1"
^XMB(3.9,51,2,485,0)="""^DD"",364.7,364.7,.06,1,1,0)"
^XMB(3.9,51,2,486,0)="364.7^ATYPE1^MUMPS"
^XMB(3.9,51,2,487,0)="""^DD"",364.7,364.7,.06,1,1,1)"
^XMB(3.9,51,2,488,0)="N Z0,Z1 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P($G(^IBA(364.6,+Z0,0)),U,3) I Z1,'$P(Z0,U,5) S ^IBA(364.7,""ATYPE"",Z1,$E(X,1,30),DA)="""""
^XMB(3.9,51,2,489,0)="""^DD"",364.7,364.7,.06,1,1,2)"
^XMB(3.9,51,2,490,0)="N Z0,Z1,Z2 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P($G(^IBA(364.6,+Z0,0)),U,3),Z2=$P(Z0,U,5) I Z1 K ^IBA(364.7,""ATYPE"",Z1,$E(X,1,30),DA) I Z2,$D(^IBA(364.7,""AINTYP"",Z1,Z2,X,DA)) S ^IBA(364.7,""AINS"",Z1,Z2,DA)="""""
^XMB(3.9,51,2,491,0)="""^DD"",364.7,364.7,.06,1,1,3)"
^XMB(3.9,51,2,492,0)="DO NOT DELETE"
^XMB(3.9,51,2,493,0)="""^DD"",364.7,364.7,.06,1,1,""%D"",0)"
^XMB(3.9,51,2,494,0)="^^1^1^2960117^^"
^XMB(3.9,51,2,495,0)="""^DD"",364.7,364.7,.06,1,1,""%D"",1,0)"
^XMB(3.9,51,2,496,0)="Xref by form and bill type."
^XMB(3.9,51,2,497,0)="""^DD"",364.7,364.7,.06,1,1,""DT"")"
^XMB(3.9,51,2,498,0)="2960117"
^XMB(3.9,51,2,499,0)="""^DD"",364.7,364.7,.06,1,2,0)"
^XMB(3.9,51,2,500,0)="364.7^AINTYP2^MUMPS"
^XMB(3.9,51,2,501,0)="""^DD"",364.7,364.7,.06,1,2,1)"
^XMB(3.9,51,2,502,0)="N Z0,Z1,Z2 S Z0=$G(^IBA(364.7,DA,0)),Z1=+$P($G(^IBA(364.6,+Z0,0)),U,3),Z2=$P(Z0,U,5) I Z1,Z2 K:'$D(^IBA(364.7,""AINTYP"",Z1,Z2,X,DA)) ^IBA(364.7,""AINS"",Z1,Z2,DA) S ^IBA(364.7,""AINTYP"",Z1,Z2,$E(X,1,30),DA)="""""
^XMB(3.9,51,2,503,0)="""^DD"",364.7,364.7,.06,1,2,2)"
^XMB(3.9,51,2,504,0)="N Z0,Z1,Z2 S Z0=$G(^IBA(364.7,DA,0)),Z1=+$P($G(^IBA(364.6,+Z0,0)),U,3),Z2=$P(Z0,U,5) K:Z1&Z2 ^IBA(364.7,""AINTYP"",Z1,Z2,$E(X,1,30),DA)"
^XMB(3.9,51,2,505,0)="""^DD"",364.7,364.7,.06,1,2,3)"
^XMB(3.9,51,2,506,0)="DO NOT DELETE"
^XMB(3.9,51,2,507,0)="""^DD"",364.7,364.7,.06,1,2,""%D"",0)"
^XMB(3.9,51,2,508,0)="^^1^1^2960117^^^^"
^XMB(3.9,51,2,509,0)="""^DD"",364.7,364.7,.06,1,2,""%D"",1,0)"
^XMB(3.9,51,2,510,0)="Xref by form, insurance company and bill type"
^XMB(3.9,51,2,511,0)="""^DD"",364.7,364.7,.06,1,2,""DT"")"
^XMB(3.9,51,2,512,0)="2960117"
^XMB(3.9,51,2,513,0)="""^DD"",364.7,364.7,.06,3)"
^XMB(3.9,51,2,514,0)="Enter the type of the bill."
^XMB(3.9,51,2,515,0)="""^DD"",364.7,364.7,.06,21,0)"
^XMB(3.9,51,2,516,0)="^^1^1^2960117^^"
^XMB(3.9,51,2,517,0)="""^DD"",364.7,364.7,.06,21,1,0)"
^XMB(3.9,51,2,518,0)="This is the type of bill that requires this field."
^XMB(3.9,51,2,519,0)="""^DD"",364.7,364.7,.06,""DT"")"
^XMB(3.9,51,2,520,0)="3000428"
^XMB(3.9,51,2,521,0)="""^DD"",364.7,364.7,.07,0)"
^XMB(3.9,51,2,522,0)="PAD CHARACTER^S^ZL:ZERO PAD ON LEFT;ZR:ZERO PAD ON RIGHT;SL:SPACE PAD ON LEFT;SR:SPACE PAD ON RIGHT;N:NO PAD REQUIRED;^0;7^Q"
^XMB(3.9,51,2,523,0)="""^DD"",364.7,364.7,.07,3)"
^XMB(3.9,51,2,524,0)="Enter the code that corresponds to the format and pad character to use for the data output in this field."
^XMB(3.9,51,2,525,0)="""^DD"",364.7,364.7,.07,21,0)"
^XMB(3.9,51,2,526,0)="^^3^3^2960126^^"
^XMB(3.9,51,2,527,0)="""^DD"",364.7,364.7,.07,21,1,0)"
^XMB(3.9,51,2,528,0)="If present, this defines the character to be used to pad the DATA"
^XMB(3.9,51,2,529,0)="""^DD"",364.7,364.7,.07,21,2,0)"
^XMB(3.9,51,2,530,0)="ELEMENT to its desired length and the orientation of the padding characters"
^XMB(3.9,51,2,531,0)="""^DD"",364.7,364.7,.07,21,3,0)"
^XMB(3.9,51,2,532,0)="to the left or right of the data.  The default is space pad to the right."
^XMB(3.9,51,2,533,0)="""^DD"",364.7,364.7,.07,""DT"")"
^XMB(3.9,51,2,534,0)="2960126"
^XMB(3.9,51,2,535,0)="""^DD"",364.7,364.7,.08,0)"
^XMB(3.9,51,2,536,0)="REQUIRED^S^0:NO;1:YES;^0;8^Q"
^XMB(3.9,51,2,537,0)="""^DD"",364.7,364.7,.08,3)"
^XMB(3.9,51,2,538,0)="Enter 1 (YES) if this data element is on a local screen 9 form and the data is required for the bill to be authorized."
^XMB(3.9,51,2,539,0)="""^DD"",364.7,364.7,.08,21,0)"
^XMB(3.9,51,2,540,0)="^.001^4^4^3001030^^"
^XMB(3.9,51,2,541,0)="""^DD"",364.7,364.7,.08,21,1,0)"
^XMB(3.9,51,2,542,0)="This field controls the required/not required status of a data element"
^XMB(3.9,51,2,543,0)="""^DD"",364.7,364.7,.08,21,2,0)"
^XMB(3.9,51,2,544,0)="on a local screen 9 form.  If this field is 1 (YES), this data element"
^XMB(3.9,51,2,545,0)="""^DD"",364.7,364.7,.08,21,3,0)"
^XMB(3.9,51,2,546,0)="is always required to have data (not null) in order for a bill to be"
^XMB(3.9,51,2,547,0)="""^DD"",364.7,364.7,.08,21,4,0)"
^XMB(3.9,51,2,548,0)="authorized."
^XMB(3.9,51,2,549,0)="""^DD"",364.7,364.7,.08,""DT"")"
^XMB(3.9,51,2,550,0)="2951207"
^XMB(3.9,51,2,551,0)="""^DD"",364.7,364.7,.09,0)"
^XMB(3.9,51,2,552,0)="EDIT STATUS^S^E:EDITABLE;D:DISPLAY ONLY;^0;9^Q"
^XMB(3.9,51,2,553,0)="""^DD"",364.7,364.7,.09,3)"
^XMB(3.9,51,2,554,0)="Enter 'E' to enable editing for this field, 'D' for a display only field."
^XMB(3.9,51,2,555,0)="""^DD"",364.7,364.7,.09,21,0)"
^XMB(3.9,51,2,556,0)="^^2^2^2960320^"
^XMB(3.9,51,2,557,0)="""^DD"",364.7,364.7,.09,21,1,0)"
^XMB(3.9,51,2,558,0)="This field is used to control whether or not a data element on a screen is"
^XMB(3.9,51,2,559,0)="""^DD"",364.7,364.7,.09,21,2,0)"
^XMB(3.9,51,2,560,0)="editable or for display-only purposes."
^XMB(3.9,51,2,561,0)="""^DD"",364.7,364.7,.09,""DT"")"
^XMB(3.9,51,2,562,0)="2960320"
^XMB(3.9,51,2,563,0)="""^DD"",364.7,364.7,.1,0)"
^XMB(3.9,51,2,564,0)="EDIT GROUP NUMBER^NJ2,0^^0;10^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^XMB(3.9,51,2,565,0)="""^DD"",364.7,364.7,.1,3)"
^XMB(3.9,51,2,566,0)=" Enter the edit group # that this field will be included in.  Valid #'s are 1-99."
^XMB(3.9,51,2,567,0)="""^DD"",364.7,364.7,.1,21,0)"
^XMB(3.9,51,2,568,0)="^^6^6^2960321^^"
^XMB(3.9,51,2,569,0)="""^DD"",364.7,364.7,.1,21,1,0)"
^XMB(3.9,51,2,570,0)="This field contains the # of the edit group that the screen data element"
^XMB(3.9,51,2,571,0)="""^DD"",364.7,364.7,.1,21,2,0)"
^XMB(3.9,51,2,572,0)="will be included with.  When this group # is selected on an edit screen,"
^XMB(3.9,51,2,573,0)="""^DD"",364.7,364.7,.1,21,3,0)"
^XMB(3.9,51,2,574,0)="all data elements assigned to this group # on this screen will be presented"
^XMB(3.9,51,2,575,0)="""^DD"",364.7,364.7,.1,21,4,0)"
^XMB(3.9,51,2,576,0)="for editing.  If no # is entered here, this field will not be available for"
^XMB(3.9,51,2,577,0)="""^DD"",364.7,364.7,.1,21,5,0)"
^XMB(3.9,51,2,578,0)="editing.  This field will only apply to screen-type forms' editable data"
^XMB(3.9,51,2,579,0)="""^DD"",364.7,364.7,.1,21,6,0)"
^XMB(3.9,51,2,580,0)="element descriptions."
^XMB(3.9,51,2,581,0)="""^DD"",364.7,364.7,.1,""DT"")"
^XMB(3.9,51,2,582,0)="2960321"
^XMB(3.9,51,2,583,0)="""^DD"",364.7,364.7,1,0)"
^XMB(3.9,51,2,584,0)="FORMAT CODE^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^XMB(3.9,51,2,585,0)="""^DD"",364.7,364.7,1,3)"
^XMB(3.9,51,2,586,0)="This is Standard MUMPS code."
^XMB(3.9,51,2,587,0)="""^DD"",364.7,364.7,1,9)"
^XMB(3.9,51,2,588,0)="@"
^XMB(3.9,51,2,589,0)="""^DD"",364.7,364.7,1,21,0)"
^XMB(3.9,51,2,590,0)="^^8^8^2951207^"
^XMB(3.9,51,2,591,0)="""^DD"",364.7,364.7,1,21,1,0)"
^XMB(3.9,51,2,592,0)="This is the code that will be xecuted to format the 'raw' data element"
^XMB(3.9,51,2,593,0)="""^DD"",364.7,364.7,1,21,2,0)"
^XMB(3.9,51,2,594,0)="value that is returned from the execution of the DATA ELEMENT's definition."
^XMB(3.9,51,2,595,0)="""^DD"",364.7,364.7,1,21,3,0)"
^XMB(3.9,51,2,596,0)="This code can assume the variable/array IBXDATA is available as input and"
^XMB(3.9,51,2,597,0)="""^DD"",364.7,364.7,1,21,4,0)"
^XMB(3.9,51,2,598,0)="should set this variable/array as its output.  Standard calls for data"
^XMB(3.9,51,2,599,0)="""^DD"",364.7,364.7,1,21,5,0)"
^XMB(3.9,51,2,600,0)="formatting have been provided.  The variables IBXPG, IBXLN, IBXCOL are the"
^XMB(3.9,51,2,601,0)="""^DD"",364.7,364.7,1,21,6,0)"
^XMB(3.9,51,2,602,0)="only IBX* variables that should be changed in this routine.  These represent"
^XMB(3.9,51,2,603,0)="""^DD"",364.7,364.7,1,21,7,0)"
^XMB(3.9,51,2,604,0)="the page, line, column as the first 3 levels of subscript for the output"
^XMB(3.9,51,2,605,0)="""^DD"",364.7,364.7,1,21,8,0)"
^XMB(3.9,51,2,606,0)="array."
^XMB(3.9,51,2,607,0)="""^DD"",364.7,364.7,1,""DT"")"
^XMB(3.9,51,2,608,0)="2951207"
^XMB(3.9,51,2,609,0)="""^DD"",364.7,364.7,3,0)"
^XMB(3.9,51,2,610,0)="FORMAT CODE DESCRIPTION^364.73^^3;0"
^XMB(3.9,51,2,611,0)="""^DD"",364.7,364.7,3,21,0)"
^XMB(3.9,51,2,612,0)="^.001^1^1^3010102^^"
^XMB(3.9,51,2,613,0)="""^DD"",364.7,364.7,3,21,1,0)"
^XMB(3.9,51,2,614,0)="This field describes the function of the format code entered."
^XMB(3.9,51,2,615,0)="""^DD"",364.7,364.7,3,""DT"")"
^XMB(3.9,51,2,616,0)="2960710"
^XMB(3.9,51,2,617,0)="""^DD"",364.7,364.73,0)"
^XMB(3.9,51,2,618,0)="FORMAT CODE DESCRIPTION SUB-FIELD^^.01^1"
^XMB(3.9,51,2,619,0)="""^DD"",364.7,364.73,0,""DT"")"
^XMB(3.9,51,2,620,0)="2960710"
^XMB(3.9,51,2,621,0)="""^DD"",364.7,364.73,0,""NM"",""FORMAT CODE DESCRIPTION"")"
^XMB(3.9,51,2,622,0)=" "
^XMB(3.9,51,2,623,0)="""^DD"",364.7,364.73,0,""UP"")"
^XMB(3.9,51,2,624,0)="364.7"
^XMB(3.9,51,2,625,0)="""^DD"",364.7,364.73,.01,0)"
^XMB(3.9,51,2,626,0)="FORMAT CODE DESCRIPTION^W^^0;1^Q"
^XMB(3.9,51,2,627,0)="""^DD"",364.7,364.73,.01,3)"
^XMB(3.9,51,2,628,0)="Enter a description of the processing logic of the format code."
^XMB(3.9,51,2,629,0)="""^DD"",364.7,364.73,.01,21,0)"
^XMB(3.9,51,2,630,0)="^.001^1^1^3010102^^^^"
^XMB(3.9,51,2,631,0)="""^DD"",364.7,364.73,.01,21,1,0)"
^XMB(3.9,51,2,632,0)="This is a description of the processing logic of the format code."
^XMB(3.9,51,2,633,0)="""^DD"",364.7,364.73,.01,""DT"")"
^XMB(3.9,51,2,634,0)="2960710"
^XMB(3.9,51,2,635,0)="""^DIC"",364.7,364.7,0)"
^XMB(3.9,51,2,636,0)="IB FORM FIELD CONTENT^364.7P"
^XMB(3.9,51,2,637,0)="""^DIC"",364.7,364.7,0,""GL"")"
^XMB(3.9,51,2,638,0)="^IBA(364.7,"
^XMB(3.9,51,2,639,0)="""^DIC"",364.7,364.7,""%D"",0)"
^XMB(3.9,51,2,640,0)="^1.001^9^9^3030331^^^^"
^XMB(3.9,51,2,641,0)="""^DIC"",364.7,364.7,""%D"",1,0)"
^XMB(3.9,51,2,642,0)="DO NOT delete entries or edit data in this file with VA File Manager."
^XMB(3.9,51,2,643,0)="""^DIC"",364.7,364.7,""%D"",2,0)"
^XMB(3.9,51,2,644,0)=" "
^XMB(3.9,51,2,645,0)="""^DIC"",364.7,364.7,""%D"",3,0)"
^XMB(3.9,51,2,646,0)="This is the file that contains the specific fields to be used to produce"
^XMB(3.9,51,2,647,0)="""^DIC"",364.7,364.7,""%D"",4,0)"
^XMB(3.9,51,2,648,0)="the associated form or screen.  If there is no insurance company or bill"
^XMB(3.9,51,2,649,0)="""^DIC"",364.7,364.7,""%D"",5,0)"
^XMB(3.9,51,2,650,0)="type specified for an entry, this is assumed to be the default definition"
^XMB(3.9,51,2,651,0)="""^DIC"",364.7,364.7,""%D"",6,0)"
^XMB(3.9,51,2,652,0)="of the field."
^XMB(3.9,51,2,653,0)="""^DIC"",364.7,364.7,""%D"",7,0)"
^XMB(3.9,51,2,654,0)=" "
^XMB(3.9,51,2,655,0)="""^DIC"",364.7,364.7,""%D"",8,0)"
^XMB(3.9,51,2,656,0)="Entries in this file that are designated as having a SECURITY LEVEL of"
^XMB(3.9,51,2,657,0)="""^DIC"",364.7,364.7,""%D"",9,0)"
^XMB(3.9,51,2,658,0)="NATIONAL should not be deleted or edited."
^XMB(3.9,51,2,659,0)="""^DIC"",364.7,""B"",""IB FORM FIELD CONTENT"",364.7)"
^XMB(3.9,51,2,660,0)=""
^XMB(3.9,51,2,661,0)="""BLD"",6312,6)"
^XMB(3.9,51,2,662,0)="^311"
^XMB(3.9,51,2,663,0)="$END KID IB*2.0*324"
^XMB(3.9,51,6,0)="^3.911A^2^2"
^XMB(3.9,51,6,1,0)="POSTMASTER"
^XMB(3.9,51,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,51,6,"B","POSTMASTER",1)=""
^XMB(3.9,51,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,52,0)="IB-2_SEQ-312_PAT-327.KID^.5^3061008.015735^^^^K"
^XMB(3.9,52,.6)="3061008"
^XMB(3.9,52,1,0)="^3.91A^2^2"
^XMB(3.9,52,1,1,0)=".5^0^3061008.015735^^^^^^^3061008.015735"
^XMB(3.9,52,1,2,0)="1^0^3061008.02333^^^^^^^3061008.02333"
^XMB(3.9,52,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,52,1,"C",.5,1)=""
^XMB(3.9,52,1,"C",1,2)=""
^XMB(3.9,52,2,0)="^^1889^1889^3061008"
^XMB(3.9,52,2,1,0)="$TXT Released IB*2*327 SEQ #312"
^XMB(3.9,52,2,2,0)="Extracted from mail message"
^XMB(3.9,52,2,3,0)="$END TXT"
^XMB(3.9,52,2,4,0)="$KID IB*2.0*327"
^XMB(3.9,52,2,5,0)="**INSTALL NAME**"
^XMB(3.9,52,2,6,0)="IB*2.0*327"
^XMB(3.9,52,2,7,0)="""BLD"",6541,0)"
^XMB(3.9,52,2,8,0)="IB*2.0*327^INTEGRATED BILLING^0^3060421^y"
^XMB(3.9,52,2,9,0)="""BLD"",6541,1,0)"
^XMB(3.9,52,2,10,0)="^^3^3^3051215^"
^XMB(3.9,52,2,11,0)="""BLD"",6541,1,1,0)"
^XMB(3.9,52,2,12,0)="Prevents a claim from being an MRA request claim when Medicare (WNR) is "
^XMB(3.9,52,2,13,0)="""BLD"",6541,1,2,0)"
^XMB(3.9,52,2,14,0)="the secondary insurance and prevents the deletion of MRA secondary "
^XMB(3.9,52,2,15,0)="""BLD"",6541,1,3,0)"
^XMB(3.9,52,2,16,0)="insurance."
^XMB(3.9,52,2,17,0)="""BLD"",6541,4,0)"
^XMB(3.9,52,2,18,0)="^9.64PA^399^1"
^XMB(3.9,52,2,19,0)="""BLD"",6541,4,399,0)"
^XMB(3.9,52,2,20,0)="399"
^XMB(3.9,52,2,21,0)="""BLD"",6541,4,399,2,0)"
^XMB(3.9,52,2,22,0)="^9.641^399^1"
^XMB(3.9,52,2,23,0)="""BLD"",6541,4,399,2,399,0)"
^XMB(3.9,52,2,24,0)="BILL/CLAIMS  (File-top level)"
^XMB(3.9,52,2,25,0)="""BLD"",6541,4,399,2,399,1,0)"
^XMB(3.9,52,2,26,0)="^9.6411^101^1"
^XMB(3.9,52,2,27,0)="""BLD"",6541,4,399,2,399,1,101,0)"
^XMB(3.9,52,2,28,0)="PRIMARY INSURANCE CARRIER"
^XMB(3.9,52,2,29,0)="""BLD"",6541,4,399,222)"
^XMB(3.9,52,2,30,0)="y^n^p^^^^n^^n"
^XMB(3.9,52,2,31,0)="""BLD"",6541,4,399,224)"
^XMB(3.9,52,2,32,0)=""
^XMB(3.9,52,2,33,0)="""BLD"",6541,4,""APDD"",399,399)"
^XMB(3.9,52,2,34,0)=""
^XMB(3.9,52,2,35,0)="""BLD"",6541,4,""APDD"",399,399,101)"
^XMB(3.9,52,2,36,0)=""
^XMB(3.9,52,2,37,0)="""BLD"",6541,4,""B"",399,399)"
^XMB(3.9,52,2,38,0)=""
^XMB(3.9,52,2,39,0)="""BLD"",6541,""KRN"",0)"
^XMB(3.9,52,2,40,0)="^9.67PA^8989.52^19"
^XMB(3.9,52,2,41,0)="""BLD"",6541,""KRN"",.4,0)"
^XMB(3.9,52,2,42,0)=".4"
^XMB(3.9,52,2,43,0)="""BLD"",6541,""KRN"",.401,0)"
^XMB(3.9,52,2,44,0)=".401"
^XMB(3.9,52,2,45,0)="""BLD"",6541,""KRN"",.402,0)"
^XMB(3.9,52,2,46,0)=".402"
^XMB(3.9,52,2,47,0)="""BLD"",6541,""KRN"",.403,0)"
^XMB(3.9,52,2,48,0)=".403"
^XMB(3.9,52,2,49,0)="""BLD"",6541,""KRN"",.5,0)"
^XMB(3.9,52,2,50,0)=".5"
^XMB(3.9,52,2,51,0)="""BLD"",6541,""KRN"",.84,0)"
^XMB(3.9,52,2,52,0)=".84"
^XMB(3.9,52,2,53,0)="""BLD"",6541,""KRN"",3.6,0)"
^XMB(3.9,52,2,54,0)="3.6"
^XMB(3.9,52,2,55,0)="""BLD"",6541,""KRN"",3.8,0)"
^XMB(3.9,52,2,56,0)="3.8"
^XMB(3.9,52,2,57,0)="""BLD"",6541,""KRN"",9.2,0)"
^XMB(3.9,52,2,58,0)="9.2"
^XMB(3.9,52,2,59,0)="""BLD"",6541,""KRN"",9.8,0)"
^XMB(3.9,52,2,60,0)="9.8"
^XMB(3.9,52,2,61,0)="""BLD"",6541,""KRN"",9.8,""NM"",0)"
^XMB(3.9,52,2,62,0)="^9.68A^5^5"
^XMB(3.9,52,2,63,0)="""BLD"",6541,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,52,2,64,0)="IBCBB^^0^B14993587"
^XMB(3.9,52,2,65,0)="""BLD"",6541,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,52,2,66,0)="IBCB1^^0^B64732488"
^XMB(3.9,52,2,67,0)="""BLD"",6541,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,52,2,68,0)="IBEFUNC^^0^B47438335"
^XMB(3.9,52,2,69,0)="""BLD"",6541,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,52,2,70,0)="IBCEF4^^0^B28792521"
^XMB(3.9,52,2,71,0)="""BLD"",6541,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,52,2,72,0)="IBCB11^^0^B4330079"
^XMB(3.9,52,2,73,0)="""BLD"",6541,""KRN"",9.8,""NM"",""B"",""IBCB1"",2)"
^XMB(3.9,52,2,74,0)=""
^XMB(3.9,52,2,75,0)="""BLD"",6541,""KRN"",9.8,""NM"",""B"",""IBCB11"",5)"
^XMB(3.9,52,2,76,0)=""
^XMB(3.9,52,2,77,0)="""BLD"",6541,""KRN"",9.8,""NM"",""B"",""IBCBB"",1)"
^XMB(3.9,52,2,78,0)=""
^XMB(3.9,52,2,79,0)="""BLD"",6541,""KRN"",9.8,""NM"",""B"",""IBCEF4"",4)"
^XMB(3.9,52,2,80,0)=""
^XMB(3.9,52,2,81,0)="""BLD"",6541,""KRN"",9.8,""NM"",""B"",""IBEFUNC"",3)"
^XMB(3.9,52,2,82,0)=""
^XMB(3.9,52,2,83,0)="""BLD"",6541,""KRN"",19,0)"
^XMB(3.9,52,2,84,0)="19"
^XMB(3.9,52,2,85,0)="""BLD"",6541,""KRN"",19,""NM"",0)"
^XMB(3.9,52,2,86,0)="^9.68A^^"
^XMB(3.9,52,2,87,0)="""BLD"",6541,""KRN"",19.1,0)"
^XMB(3.9,52,2,88,0)="19.1"
^XMB(3.9,52,2,89,0)="""BLD"",6541,""KRN"",101,0)"
^XMB(3.9,52,2,90,0)="101"
^XMB(3.9,52,2,91,0)="""BLD"",6541,""KRN"",409.61,0)"
^XMB(3.9,52,2,92,0)="409.61"
^XMB(3.9,52,2,93,0)="""BLD"",6541,""KRN"",771,0)"
^XMB(3.9,52,2,94,0)="771"
^XMB(3.9,52,2,95,0)="""BLD"",6541,""KRN"",870,0)"
^XMB(3.9,52,2,96,0)="870"
^XMB(3.9,52,2,97,0)="""BLD"",6541,""KRN"",8989.51,0)"
^XMB(3.9,52,2,98,0)="8989.51"
^XMB(3.9,52,2,99,0)="""BLD"",6541,""KRN"",8989.52,0)"
^XMB(3.9,52,2,100,0)="8989.52"
^XMB(3.9,52,2,101,0)="""BLD"",6541,""KRN"",8994,0)"
^XMB(3.9,52,2,102,0)="8994"
^XMB(3.9,52,2,103,0)="""BLD"",6541,""KRN"",""B"",.4,.4)"
^XMB(3.9,52,2,104,0)=""
^XMB(3.9,52,2,105,0)="""BLD"",6541,""KRN"",""B"",.401,.401)"
^XMB(3.9,52,2,106,0)=""
^XMB(3.9,52,2,107,0)="""BLD"",6541,""KRN"",""B"",.402,.402)"
^XMB(3.9,52,2,108,0)=""
^XMB(3.9,52,2,109,0)="""BLD"",6541,""KRN"",""B"",.403,.403)"
^XMB(3.9,52,2,110,0)=""
^XMB(3.9,52,2,111,0)="""BLD"",6541,""KRN"",""B"",.5,.5)"
^XMB(3.9,52,2,112,0)=""
^XMB(3.9,52,2,113,0)="""BLD"",6541,""KRN"",""B"",.84,.84)"
^XMB(3.9,52,2,114,0)=""
^XMB(3.9,52,2,115,0)="""BLD"",6541,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,52,2,116,0)=""
^XMB(3.9,52,2,117,0)="""BLD"",6541,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,52,2,118,0)=""
^XMB(3.9,52,2,119,0)="""BLD"",6541,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,52,2,120,0)=""
^XMB(3.9,52,2,121,0)="""BLD"",6541,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,52,2,122,0)=""
^XMB(3.9,52,2,123,0)="""BLD"",6541,""KRN"",""B"",19,19)"
^XMB(3.9,52,2,124,0)=""
^XMB(3.9,52,2,125,0)="""BLD"",6541,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,52,2,126,0)=""
^XMB(3.9,52,2,127,0)="""BLD"",6541,""KRN"",""B"",101,101)"
^XMB(3.9,52,2,128,0)=""
^XMB(3.9,52,2,129,0)="""BLD"",6541,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,52,2,130,0)=""
^XMB(3.9,52,2,131,0)="""BLD"",6541,""KRN"",""B"",771,771)"
^XMB(3.9,52,2,132,0)=""
^XMB(3.9,52,2,133,0)="""BLD"",6541,""KRN"",""B"",870,870)"
^XMB(3.9,52,2,134,0)=""
^XMB(3.9,52,2,135,0)="""BLD"",6541,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,52,2,136,0)=""
^XMB(3.9,52,2,137,0)="""BLD"",6541,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,52,2,138,0)=""
^XMB(3.9,52,2,139,0)="""BLD"",6541,""KRN"",""B"",8994,8994)"
^XMB(3.9,52,2,140,0)=""
^XMB(3.9,52,2,141,0)="""BLD"",6541,""QUES"",0)"
^XMB(3.9,52,2,142,0)="^9.62^^"
^XMB(3.9,52,2,143,0)="""BLD"",6541,""REQB"",0)"
^XMB(3.9,52,2,144,0)="^9.611^3^3"
^XMB(3.9,52,2,145,0)="""BLD"",6541,""REQB"",1,0)"
^XMB(3.9,52,2,146,0)="IB*2.0*249^2"
^XMB(3.9,52,2,147,0)="""BLD"",6541,""REQB"",2,0)"
^XMB(3.9,52,2,148,0)="IB*2.0*288^2"
^XMB(3.9,52,2,149,0)="""BLD"",6541,""REQB"",3,0)"
^XMB(3.9,52,2,150,0)="IB*2.0*296^2"
^XMB(3.9,52,2,151,0)="""BLD"",6541,""REQB"",""B"",""IB*2.0*249"",1)"
^XMB(3.9,52,2,152,0)=""
^XMB(3.9,52,2,153,0)="""BLD"",6541,""REQB"",""B"",""IB*2.0*288"",2)"
^XMB(3.9,52,2,154,0)=""
^XMB(3.9,52,2,155,0)="""BLD"",6541,""REQB"",""B"",""IB*2.0*296"",3)"
^XMB(3.9,52,2,156,0)=""
^XMB(3.9,52,2,157,0)="""FIA"",399)"
^XMB(3.9,52,2,158,0)="BILL/CLAIMS"
^XMB(3.9,52,2,159,0)="""FIA"",399,0)"
^XMB(3.9,52,2,160,0)="^DGCR(399,"
^XMB(3.9,52,2,161,0)="""FIA"",399,0,0)"
^XMB(3.9,52,2,162,0)="399I"
^XMB(3.9,52,2,163,0)="""FIA"",399,0,1)"
^XMB(3.9,52,2,164,0)="y^n^p^^^^n^^n"
^XMB(3.9,52,2,165,0)="""FIA"",399,0,10)"
^XMB(3.9,52,2,166,0)=""
^XMB(3.9,52,2,167,0)="""FIA"",399,0,11)"
^XMB(3.9,52,2,168,0)=""
^XMB(3.9,52,2,169,0)="""FIA"",399,0,""RLRO"")"
^XMB(3.9,52,2,170,0)=""
^XMB(3.9,52,2,171,0)="""FIA"",399,0,""VR"")"
^XMB(3.9,52,2,172,0)="2.0^IB"
^XMB(3.9,52,2,173,0)="""FIA"",399,399)"
^XMB(3.9,52,2,174,0)="1"
^XMB(3.9,52,2,175,0)="""FIA"",399,399,101)"
^XMB(3.9,52,2,176,0)=""
^XMB(3.9,52,2,177,0)="""IX"",399,399,""AE"",0)"
^XMB(3.9,52,2,178,0)="399^AE^Index by patient and insurance company^MU^^R^IR^I^399^^^^^S"
^XMB(3.9,52,2,179,0)="""IX"",399,399,""AE"",.1,0)"
^XMB(3.9,52,2,180,0)="^^7^7^3041021^"
^XMB(3.9,52,2,181,0)="""IX"",399,399,""AE"",.1,1,0)"
^XMB(3.9,52,2,182,0)="Cross reference of patients and bills to payer responsible for the bill."
^XMB(3.9,52,2,183,0)="""IX"",399,399,""AE"",.1,2,0)"
^XMB(3.9,52,2,184,0)="This will be used to prevent deletion of insurance policy entries from the"
^XMB(3.9,52,2,185,0)="""IX"",399,399,""AE"",.1,3,0)"
^XMB(3.9,52,2,186,0)="patient file if a bill has been created for this insurance company."
^XMB(3.9,52,2,187,0)="""IX"",399,399,""AE"",.1,4,0)"
^XMB(3.9,52,2,188,0)=" "
^XMB(3.9,52,2,189,0)="""IX"",399,399,""AE"",.1,5,0)"
^XMB(3.9,52,2,190,0)="Created with patch IB*2.0*288 replacing traditional cross-reference #1 in "
^XMB(3.9,52,2,191,0)="""IX"",399,399,""AE"",.1,6,0)"
^XMB(3.9,52,2,192,0)="field 135 of file 399.  Medicare is now a valid insurance company for "
^XMB(3.9,52,2,193,0)="""IX"",399,399,""AE"",.1,7,0)"
^XMB(3.9,52,2,194,0)="this index file."
^XMB(3.9,52,2,195,0)="""IX"",399,399,""AE"",1)"
^XMB(3.9,52,2,196,0)="N CURR S CURR=+$$COBN^IBCEF(DA) I $G(X(4)),$G(X(CURR)) S ^DGCR(399,""AE"",X(4),X(CURR),DA)="""" I $$MCRWNR^IBEFUNC(X(CURR)),$G(X(CURR+1)) S ^DGCR(399,""AE"",X(4),X(CURR+1),DA)="""""
^XMB(3.9,52,2,197,0)="""IX"",399,399,""AE"",2)"
^XMB(3.9,52,2,198,0)="N G I $G(X(4)) F G=1,2,3 I $G(X(G)) K ^DGCR(399,""AE"",X(4),X(G),DA)"
^XMB(3.9,52,2,199,0)="""IX"",399,399,""AE"",2.5)"
^XMB(3.9,52,2,200,0)="K ^DGCR(399,""AE"")"
^XMB(3.9,52,2,201,0)="""IX"",399,399,""AE"",11.1,0)"
^XMB(3.9,52,2,202,0)="^.114IA^4^4"
^XMB(3.9,52,2,203,0)="""IX"",399,399,""AE"",11.1,1,0)"
^XMB(3.9,52,2,204,0)="1^F^399^101^^^F"
^XMB(3.9,52,2,205,0)="""IX"",399,399,""AE"",11.1,2,0)"
^XMB(3.9,52,2,206,0)="2^F^399^102^^^F"
^XMB(3.9,52,2,207,0)="""IX"",399,399,""AE"",11.1,3,0)"
^XMB(3.9,52,2,208,0)="3^F^399^103^^^F"
^XMB(3.9,52,2,209,0)="""IX"",399,399,""AE"",11.1,4,0)"
^XMB(3.9,52,2,210,0)="4^F^399^.02^^^F"
^XMB(3.9,52,2,211,0)="""IX"",399,399,""AUPDID"",0)"
^XMB(3.9,52,2,212,0)="399^AUPDID^UPDATE PROVIDER ID WHEN DATA FIELDS CHANGE AT TOP LEVEL OF FILE^MU^^R^IR^I^399^^^^^A"
^XMB(3.9,52,2,213,0)="""IX"",399,399,""AUPDID"",.1,0)"
^XMB(3.9,52,2,214,0)="^^5^5^3010109^"
^XMB(3.9,52,2,215,0)="""IX"",399,399,""AUPDID"",.1,1,0)"
^XMB(3.9,52,2,216,0)="This cross reference maintains the integrity of the rendering or attending"
^XMB(3.9,52,2,217,0)="""IX"",399,399,""AUPDID"",.1,2,0)"
^XMB(3.9,52,2,218,0)="provider id whenever an insurance company is added, deleted or changed"
^XMB(3.9,52,2,219,0)="""IX"",399,399,""AUPDID"",.1,3,0)"
^XMB(3.9,52,2,220,0)="on the claim.  If either of these provider functions exist on the bill,"
^XMB(3.9,52,2,221,0)="""IX"",399,399,""AUPDID"",.1,4,0)"
^XMB(3.9,52,2,222,0)="this cross reference sets the default id data based on the insurance co's"
^XMB(3.9,52,2,223,0)="""IX"",399,399,""AUPDID"",.1,5,0)"
^XMB(3.9,52,2,224,0)="parameters."
^XMB(3.9,52,2,225,0)="""IX"",399,399,""AUPDID"",1)"
^XMB(3.9,52,2,226,0)="D:X1(1)'=X2(1)!(X1(5)'=X2(5)) SETID^IBCEP3(DA,1) D:X1(2)'=X2(2)!(X1(4)'=X2(4)) SETID^IBCEP3(DA,2) D:X1(3)'=X2(3)!(X1(6)'=X2(6)) SETID^IBCEP3(DA,3)"
^XMB(3.9,52,2,227,0)="""IX"",399,399,""AUPDID"",1.4)"
^XMB(3.9,52,2,228,0)="S X=$S($O(^DGCR(399,DA,""PRV"",0)):1,1:0)"
^XMB(3.9,52,2,229,0)="""IX"",399,399,""AUPDID"",2)"
^XMB(3.9,52,2,230,0)="D:X1(1)'=X2(1)!(X1(5)'=X2(5)) DELID^IBCEP3(DA,1) D:X1(2)'=X2(2)!(X1(4)'=X2(4)) DELID^IBCEP3(DA,2) D:X1(3)'=X2(3)!(X1(6)'=X2(6)) DELID^IBCEP3(DA,3)"
^XMB(3.9,52,2,231,0)="""IX"",399,399,""AUPDID"",2.4)"
^XMB(3.9,52,2,232,0)="S X=$S($O(^DGCR(399,DA,""PRV"",0)):1,1:0)"
^XMB(3.9,52,2,233,0)="""IX"",399,399,""AUPDID"",11.1,0)"
^XMB(3.9,52,2,234,0)="^.114IA^6^6"
^XMB(3.9,52,2,235,0)="""IX"",399,399,""AUPDID"",11.1,1,0)"
^XMB(3.9,52,2,236,0)="1^F^399^101^^^F"
^XMB(3.9,52,2,237,0)="""IX"",399,399,""AUPDID"",11.1,2,0)"
^XMB(3.9,52,2,238,0)="2^F^399^102^^^F"
^XMB(3.9,52,2,239,0)="""IX"",399,399,""AUPDID"",11.1,3,0)"
^XMB(3.9,52,2,240,0)="3^F^399^103^^^F"
^XMB(3.9,52,2,241,0)="""IX"",399,399,""AUPDID"",11.1,4,0)"
^XMB(3.9,52,2,242,0)="4^F^399^113^^^F"
^XMB(3.9,52,2,243,0)="""IX"",399,399,""AUPDID"",11.1,5,0)"
^XMB(3.9,52,2,244,0)="5^F^399^112^^^F"
^XMB(3.9,52,2,245,0)="""IX"",399,399,""AUPDID"",11.1,5,3)"
^XMB(3.9,52,2,246,0)=" "
^XMB(3.9,52,2,247,0)="""IX"",399,399,""AUPDID"",11.1,6,0)"
^XMB(3.9,52,2,248,0)="6^F^399^114^^^F"
^XMB(3.9,52,2,249,0)="""IX"",399,399,""AUPDID"",11.1,6,3)"
^XMB(3.9,52,2,250,0)=" "
^XMB(3.9,52,2,251,0)="""MBREQ"")"
^XMB(3.9,52,2,252,0)="0"
^XMB(3.9,52,2,253,0)="""PKG"",200,-1)"
^XMB(3.9,52,2,254,0)="1^1"
^XMB(3.9,52,2,255,0)="""PKG"",200,0)"
^XMB(3.9,52,2,256,0)="INTEGRATED BILLING^IB^INTEGRATED BILLING"
^XMB(3.9,52,2,257,0)="""PKG"",200,20,0)"
^XMB(3.9,52,2,258,0)="^9.402P^1^1"
^XMB(3.9,52,2,259,0)="""PKG"",200,20,1,0)"
^XMB(3.9,52,2,260,0)="2^^IBAXDR"
^XMB(3.9,52,2,261,0)="""PKG"",200,20,1,1)"
^XMB(3.9,52,2,262,0)=""
^XMB(3.9,52,2,263,0)="""PKG"",200,20,""B"",2,1)"
^XMB(3.9,52,2,264,0)=""
^XMB(3.9,52,2,265,0)="""PKG"",200,22,0)"
^XMB(3.9,52,2,266,0)="^9.49I^1^1"
^XMB(3.9,52,2,267,0)="""PKG"",200,22,1,0)"
^XMB(3.9,52,2,268,0)="2.0^2940321^2990406^2447"
^XMB(3.9,52,2,269,0)="""PKG"",200,22,1,""PAH"",1,0)"
^XMB(3.9,52,2,270,0)="327^3060421"
^XMB(3.9,52,2,271,0)="""PKG"",200,22,1,""PAH"",1,1,0)"
^XMB(3.9,52,2,272,0)="^^3^3^3060421"
^XMB(3.9,52,2,273,0)="""PKG"",200,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,52,2,274,0)="Prevents a claim from being an MRA request claim when Medicare (WNR) is "
^XMB(3.9,52,2,275,0)="""PKG"",200,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,52,2,276,0)="the secondary insurance and prevents the deletion of MRA secondary "
^XMB(3.9,52,2,277,0)="""PKG"",200,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,52,2,278,0)="insurance."
^XMB(3.9,52,2,279,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,52,2,280,0)="Y"
^XMB(3.9,52,2,281,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,52,2,282,0)="^D REP^XPDH"
^XMB(3.9,52,2,283,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,52,2,284,0)="Shall I write over your |FLAG| File"
^XMB(3.9,52,2,285,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,52,2,286,0)="YES"
^XMB(3.9,52,2,287,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,52,2,288,0)="D XPF1^XPDIQ"
^XMB(3.9,52,2,289,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,52,2,290,0)="Y"
^XMB(3.9,52,2,291,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,52,2,292,0)="^D DTA^XPDH"
^XMB(3.9,52,2,293,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,52,2,294,0)="Want my data |FLAG| yours"
^XMB(3.9,52,2,295,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,52,2,296,0)="YES"
^XMB(3.9,52,2,297,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,52,2,298,0)="D XPF2^XPDIQ"
^XMB(3.9,52,2,299,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,52,2,300,0)="YO"
^XMB(3.9,52,2,301,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,52,2,302,0)="^D INHIBIT^XPDH"
^XMB(3.9,52,2,303,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,52,2,304,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,52,2,305,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,52,2,306,0)="YES"
^XMB(3.9,52,2,307,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,52,2,308,0)="D XPI1^XPDIQ"
^XMB(3.9,52,2,309,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,52,2,310,0)="PO^VA(200,:EM"
^XMB(3.9,52,2,311,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,52,2,312,0)="^D MG^XPDH"
^XMB(3.9,52,2,313,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,52,2,314,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,52,2,315,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,52,2,316,0)=""
^XMB(3.9,52,2,317,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,52,2,318,0)="D XPM1^XPDIQ"
^XMB(3.9,52,2,319,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,52,2,320,0)="Y"
^XMB(3.9,52,2,321,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,52,2,322,0)="^D MENU^XPDH"
^XMB(3.9,52,2,323,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,52,2,324,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,52,2,325,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,52,2,326,0)="YES"
^XMB(3.9,52,2,327,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,52,2,328,0)="D XPO1^XPDIQ"
^XMB(3.9,52,2,329,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,52,2,330,0)="Y"
^XMB(3.9,52,2,331,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,52,2,332,0)="^D OPT^XPDH"
^XMB(3.9,52,2,333,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,52,2,334,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,52,2,335,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,52,2,336,0)="YES"
^XMB(3.9,52,2,337,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,52,2,338,0)="D XPZ1^XPDIQ"
^XMB(3.9,52,2,339,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,52,2,340,0)="Y"
^XMB(3.9,52,2,341,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,52,2,342,0)="^D RTN^XPDH"
^XMB(3.9,52,2,343,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,52,2,344,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,52,2,345,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,52,2,346,0)="NO"
^XMB(3.9,52,2,347,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,52,2,348,0)="D XPZ2^XPDIQ"
^XMB(3.9,52,2,349,0)="""RTN"")"
^XMB(3.9,52,2,350,0)="5"
^XMB(3.9,52,2,351,0)="""RTN"",""IBCB1"")"
^XMB(3.9,52,2,352,0)="0^2^B64732488^B77996552"
^XMB(3.9,52,2,353,0)="""RTN"",""IBCB1"",1,0)"
^XMB(3.9,52,2,354,0)="IBCB1 ;ALB/AAS - Process bill after enter/edited ;2-NOV-89"
^XMB(3.9,52,2,355,0)="""RTN"",""IBCB1"",2,0)"
^XMB(3.9,52,2,356,0)=" ;;2.0;INTEGRATED BILLING;**70,106,51,137,161,182,155,327**;21-MAR-94"
^XMB(3.9,52,2,357,0)="""RTN"",""IBCB1"",3,0)"
^XMB(3.9,52,2,358,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,52,2,359,0)="""RTN"",""IBCB1"",4,0)"
^XMB(3.9,52,2,360,0)=" ;"
^XMB(3.9,52,2,361,0)="""RTN"",""IBCB1"",5,0)"
^XMB(3.9,52,2,362,0)=" ;MAP TO DGCRB1"
^XMB(3.9,52,2,363,0)="""RTN"",""IBCB1"",6,0)"
^XMB(3.9,52,2,364,0)=" ;"
^XMB(3.9,52,2,365,0)="""RTN"",""IBCB1"",7,0)"
^XMB(3.9,52,2,366,0)=" ;IBQUIT = Flag to stop processing"
^XMB(3.9,52,2,367,0)="""RTN"",""IBCB1"",8,0)"
^XMB(3.9,52,2,368,0)=" ;IBVIEW = Flag for Bill has been viewed"
^XMB(3.9,52,2,369,0)="""RTN"",""IBCB1"",9,0)"
^XMB(3.9,52,2,370,0)=" ;IBDISP = Flag for Bill entering display been viewed."
^XMB(3.9,52,2,371,0)="""RTN"",""IBCB1"",10,0)"
^XMB(3.9,52,2,372,0)=" ;"
^XMB(3.9,52,2,373,0)="""RTN"",""IBCB1"",11,0)"
^XMB(3.9,52,2,374,0)=" K ^UTILITY($J) I $D(IBAC),IBAC>1 G @IBAC"
^XMB(3.9,52,2,375,0)="""RTN"",""IBCB1"",12,0)"
^XMB(3.9,52,2,376,0)="1 ;complete bill"
^XMB(3.9,52,2,377,0)="""RTN"",""IBCB1"",13,0)"
^XMB(3.9,52,2,378,0)=" D END,EDITS^IBCB2 G:IBQUIT END"
^XMB(3.9,52,2,379,0)="""RTN"",""IBCB1"",14,0)"
^XMB(3.9,52,2,380,0)=" ;"
^XMB(3.9,52,2,381,0)="""RTN"",""IBCB1"",15,0)"
^XMB(3.9,52,2,382,0)=" I '$$IICM^IBCB2(IBIFN) G END ; Ingenix ClaimsManager"
^XMB(3.9,52,2,383,0)="""RTN"",""IBCB1"",16,0)"
^XMB(3.9,52,2,384,0)=" I '$$IIQMED^IBCB2(IBIFN) G END ; DSS QuadraMed Claims Scrubber"
^XMB(3.9,52,2,385,0)="""RTN"",""IBCB1"",17,0)"
^XMB(3.9,52,2,386,0)=" ;"
^XMB(3.9,52,2,387,0)="""RTN"",""IBCB1"",18,0)"
^XMB(3.9,52,2,388,0)="3 ;authorize bill/request MRA"
^XMB(3.9,52,2,389,0)="""RTN"",""IBCB1"",19,0)"
^XMB(3.9,52,2,390,0)=" I '$D(^XUSEC(""IB AUTHORIZE"",DUZ))!('$D(IBIFN)) W !!,""You do not hold the Authorize Key."",! G END"
^XMB(3.9,52,2,391,0)="""RTN"",""IBCB1"",20,0)"
^XMB(3.9,52,2,392,0)=" I '$P($G(^IBE(350.9,1,1)),""^"",23),DUZ=$P(^DGCR(399,IBIFN,""S""),""^"",2) W !!,""Entering user can not authorize."",! G END"
^XMB(3.9,52,2,393,0)="""RTN"",""IBCB1"",21,0)"
^XMB(3.9,52,2,394,0)=" I $P(^DGCR(399,IBIFN,""S""),""^"",9) W !,""Already Approved, Can't change"" G END"
^XMB(3.9,52,2,395,0)="""RTN"",""IBCB1"",22,0)"
^XMB(3.9,52,2,396,0)=" D:'$G(IBAC)!($G(IBAC)>1) EDITS^IBCB2 G:IBQUIT END"
^XMB(3.9,52,2,397,0)="""RTN"",""IBCB1"",23,0)"
^XMB(3.9,52,2,398,0)=" ;"
^XMB(3.9,52,2,399,0)="""RTN"",""IBCB1"",24,0)"
^XMB(3.9,52,2,400,0)=" I $G(IBAC)'=1,'$$IICM^IBCB2(IBIFN) G END ; Ingenix ClaimsManager"
^XMB(3.9,52,2,401,0)="""RTN"",""IBCB1"",25,0)"
^XMB(3.9,52,2,402,0)=" I $G(IBAC)'=1,'$$IIQMED^IBCB2(IBIFN) G END ; DSS QuadraMed Claims Scrubber"
^XMB(3.9,52,2,403,0)="""RTN"",""IBCB1"",26,0)"
^XMB(3.9,52,2,404,0)=" ;"
^XMB(3.9,52,2,405,0)="""RTN"",""IBCB1"",27,0)"
^XMB(3.9,52,2,406,0)="AUTH S IBMRA=$$REQMRA^IBEFUNC(IBIFN)"
^XMB(3.9,52,2,407,0)="""RTN"",""IBCB1"",28,0)"
^XMB(3.9,52,2,408,0)=" S IBEND=0"
^XMB(3.9,52,2,409,0)="""RTN"",""IBCB1"",29,0)"
^XMB(3.9,52,2,410,0)=" I IBMRA[""R"" D AUTH^IBCB11 G:IBEND END ;MRA normally required, but MEDIGAP ins co"
^XMB(3.9,52,2,411,0)="""RTN"",""IBCB1"",30,0)"
^XMB(3.9,52,2,412,0)=" ;                         doesn't want/need it or MRA parameter off"
^XMB(3.9,52,2,413,0)="""RTN"",""IBCB1"",31,0)"
^XMB(3.9,52,2,414,0)=" ;"
^XMB(3.9,52,2,415,0)="""RTN"",""IBCB1"",32,0)"
^XMB(3.9,52,2,416,0)=" W !!,""THIS BILL WILL ""_$P(""NOT ^"",U,$$TXMT^IBCEF4(IBIFN)+1)_""BE TRANSMITTED ELECTRONICALLY"""
^XMB(3.9,52,2,417,0)="""RTN"",""IBCB1"",33,0)"
^XMB(3.9,52,2,418,0)=" W !!,""WANT TO "",$S('IBMRA:""AUTHORIZE BILL"",1:""REQUEST AN MRA""),"" AT THIS TIME"" S %=2 D YN^DICN G:%=-1!(%=2) END"
^XMB(3.9,52,2,419,0)="""RTN"",""IBCB1"",34,0)"
^XMB(3.9,52,2,420,0)=" I '% W !?4,""YES - If finished entering bill information and to allow bill to be printed or transmitted"",!?4,""No - To take no action"" G AUTH"
^XMB(3.9,52,2,421,0)="""RTN"",""IBCB1"",35,0)"
^XMB(3.9,52,2,422,0)=" S (DIC,DIE)=399,IBYY=$S('IBMRA:""@90"",1:""@901""),DA=IBIFN,DR=""[IB STATUS]"" D ^DIE K DIC,DIE,IBYY D:$D(IBX3) DISAP^IBCBULL"
^XMB(3.9,52,2,423,0)="""RTN"",""IBCB1"",36,0)"
^XMB(3.9,52,2,424,0)=" I $S('IBMRA:'$P(^DGCR(399,IBIFN,""S""),""^"",9),1:'$P($G(^DGCR(399,IBIFN,""TX"")),U,6)) G END"
^XMB(3.9,52,2,425,0)="""RTN"",""IBCB1"",37,0)"
^XMB(3.9,52,2,426,0)=" ;"
^XMB(3.9,52,2,427,0)="""RTN"",""IBCB1"",38,0)"
^XMB(3.9,52,2,428,0)=" ; Update the review status for all EOB's on file"
^XMB(3.9,52,2,429,0)="""RTN"",""IBCB1"",39,0)"
^XMB(3.9,52,2,430,0)=" D STAT^IBCEMU2(IBIFN,3)     ; Accepted - Complete EOB"
^XMB(3.9,52,2,431,0)="""RTN"",""IBCB1"",40,0)"
^XMB(3.9,52,2,432,0)=" ;"
^XMB(3.9,52,2,433,0)="""RTN"",""IBCB1"",41,0)"
^XMB(3.9,52,2,434,0)=" D AUTOCK^IBCEU2(IBIFN) ; Checks for need to add any codes to bill based on information already on bill, specifically for EDI purposes"
^XMB(3.9,52,2,435,0)="""RTN"",""IBCB1"",42,0)"
^XMB(3.9,52,2,436,0)=" S IBTXSTAT=$$TXMT^IBCEF4(IBIFN,,1)  ;Determine transmit, whether live/test"
^XMB(3.9,52,2,437,0)="""RTN"",""IBCB1"",43,0)"
^XMB(3.9,52,2,438,0)=" I IBTXSTAT D  I IBMRA D CTCOPY^IBCCCB(IBIFN,1) G END"
^XMB(3.9,52,2,439,0)="""RTN"",""IBCB1"",44,0)"
^XMB(3.9,52,2,440,0)=" .W !,""  Adding """
^XMB(3.9,52,2,441,0)="""RTN"",""IBCB1"",45,0)"
^XMB(3.9,52,2,442,0)=" .W:+IBTXSTAT=2 ""test "" W ""bill to BILL TRANSMISSION File""_$S('IBMRA:"""",1:"" for MRA submission"")_""."",!"
^XMB(3.9,52,2,443,0)="""RTN"",""IBCB1"",46,0)"
^XMB(3.9,52,2,444,0)=" .W:+IBTXSTAT=1&IBMRA ""  Bill is no longer editable unless returned in error from Medicare."""
^XMB(3.9,52,2,445,0)="""RTN"",""IBCB1"",47,0)"
^XMB(3.9,52,2,446,0)=" .S Y=$$ADDTBILL(IBIFN,+IBTXSTAT)"
^XMB(3.9,52,2,447,0)="""RTN"",""IBCB1"",48,0)"
^XMB(3.9,52,2,448,0)=" .W ! W:'$P(Y,U,3) *7 W $S($P(Y,U,3):""  Bill will be submitted electronically"",1:""  Error loading into transmit file - bill can not be transmitted."")"
^XMB(3.9,52,2,449,0)="""RTN"",""IBCB1"",49,0)"
^XMB(3.9,52,2,450,0)=" .;"
^XMB(3.9,52,2,451,0)="""RTN"",""IBCB1"",50,0)"
^XMB(3.9,52,2,452,0)=" ;"
^XMB(3.9,52,2,453,0)="""RTN"",""IBCB1"",51,0)"
^XMB(3.9,52,2,454,0)=" W !,""Passing completed Bill to Accounts Receivable.  Bill is no longer editable."""
^XMB(3.9,52,2,455,0)="""RTN"",""IBCB1"",52,0)"
^XMB(3.9,52,2,456,0)=" D ARPASS(IBIFN,1)"
^XMB(3.9,52,2,457,0)="""RTN"",""IBCB1"",53,0)"
^XMB(3.9,52,2,458,0)=" G:'$G(PRCASV(""OKAY"")) END"
^XMB(3.9,52,2,459,0)="""RTN"",""IBCB1"",54,0)"
^XMB(3.9,52,2,460,0)=" W !,""Completed Bill Successfully sent to Accounts Receivable."" D FIND^IBOHCK(DFN,IBIFN)"
^XMB(3.9,52,2,461,0)="""RTN"",""IBCB1"",55,0)"
^XMB(3.9,52,2,462,0)=" ;"
^XMB(3.9,52,2,463,0)="""RTN"",""IBCB1"",56,0)"
^XMB(3.9,52,2,464,0)=" ; Check to see if any unreviewed status messages or EOBs on file and"
^XMB(3.9,52,2,465,0)="""RTN"",""IBCB1"",57,0)"
^XMB(3.9,52,2,466,0)=" ; what to do about them"
^XMB(3.9,52,2,467,0)="""RTN"",""IBCB1"",58,0)"
^XMB(3.9,52,2,468,0)=" N IBTXBARR"
^XMB(3.9,52,2,469,0)="""RTN"",""IBCB1"",59,0)"
^XMB(3.9,52,2,470,0)=" S IBRESUB=$$RESUB^IBCECSA4($S($G(IBCNCOPY):$P($G(^DGCR(399,IBIFN,0)),U,15),1:IBIFN),+IBTXSTAT,""E"",.IBTXBARR)"
^XMB(3.9,52,2,471,0)="""RTN"",""IBCB1"",60,0)"
^XMB(3.9,52,2,472,0)=" I IBRESUB=2 D         ; update review statuses to be 'review complete'"
^XMB(3.9,52,2,473,0)="""RTN"",""IBCB1"",61,0)"
^XMB(3.9,52,2,474,0)=" . N IBDA S IBDA=0"
^XMB(3.9,52,2,475,0)="""RTN"",""IBCB1"",62,0)"
^XMB(3.9,52,2,476,0)=" . F  S IBDA=$O(IBTXBARR(IBDA)) Q:'IBDA  D UPDEDI^IBCEM(IBDA,$S($G(IBCNCOPY):""R"",1:""E""))"
^XMB(3.9,52,2,477,0)="""RTN"",""IBCB1"",63,0)"
^XMB(3.9,52,2,478,0)=" . Q"
^XMB(3.9,52,2,479,0)="""RTN"",""IBCB1"",64,0)"
^XMB(3.9,52,2,480,0)=" ;"
^XMB(3.9,52,2,481,0)="""RTN"",""IBCB1"",65,0)"
^XMB(3.9,52,2,482,0)=" K IBTXPRT"
^XMB(3.9,52,2,483,0)="""RTN"",""IBCB1"",66,0)"
^XMB(3.9,52,2,484,0)=" ;"
^XMB(3.9,52,2,485,0)="""RTN"",""IBCB1"",67,0)"
^XMB(3.9,52,2,486,0)="4 ;generate/print bill"
^XMB(3.9,52,2,487,0)="""RTN"",""IBCB1"",68,0)"
^XMB(3.9,52,2,488,0)=" G:'$D(IBIFN) END"
^XMB(3.9,52,2,489,0)="""RTN"",""IBCB1"",69,0)"
^XMB(3.9,52,2,490,0)=" S:'$D(IBMRA) IBMRA=+$$NEEDMRA^IBEFUNC(IBIFN)"
^XMB(3.9,52,2,491,0)="""RTN"",""IBCB1"",70,0)"
^XMB(3.9,52,2,492,0)=" I 'IBMRA,'$P(^DGCR(399,IBIFN,""S""),""^"",9) W !!,*7,""Not Authorized, Can Not Print!"" G END"
^XMB(3.9,52,2,493,0)="""RTN"",""IBCB1"",71,0)"
^XMB(3.9,52,2,494,0)=" I IBMRA,'$P(^DGCR(399,IBIFN,""TX""),""^"",6) W !!,*7,""Not Ready For MRA Submission, Can Not Print!"" G END"
^XMB(3.9,52,2,495,0)="""RTN"",""IBCB1"",72,0)"
^XMB(3.9,52,2,496,0)=" S IBTXSTAT=$$TXMT^IBCEF4(IBIFN)"
^XMB(3.9,52,2,497,0)="""RTN"",""IBCB1"",73,0)"
^XMB(3.9,52,2,498,0)=" I IBMRA,$$NEEDMRA^IBEFUNC(IBIFN)'[""R"" W !!,*7,""MRA Submission not yet confirmed by Austin, Can Not Print!"" Q:$S('IBTXSTAT:1,1:""XP""'[$P($G(^IBA(364,+$$LAST364^IBCEF4(IBIFN),0)),U,3))"
^XMB(3.9,52,2,499,0)="""RTN"",""IBCB1"",74,0)"
^XMB(3.9,52,2,500,0)=" I +IBTXSTAT,$D(^IBA(364,""ABDT"",IBIFN)) S IBTXOK="""" D  I 'IBTXOK S %=2 G GENTX"
^XMB(3.9,52,2,501,0)="""RTN"",""IBCB1"",75,0)"
^XMB(3.9,52,2,502,0)=" . N IBX,IBTST"
^XMB(3.9,52,2,503,0)="""RTN"",""IBCB1"",76,0)"
^XMB(3.9,52,2,504,0)=" . S IBX=+$$LAST364^IBCEF4(IBIFN),IBTST="""""
^XMB(3.9,52,2,505,0)="""RTN"",""IBCB1"",77,0)"
^XMB(3.9,52,2,506,0)=" . I $$TEST^IBCEF4(IBIFN) S (IBTXOK,IBTST)=1"
^XMB(3.9,52,2,507,0)="""RTN"",""IBCB1"",78,0)"
^XMB(3.9,52,2,508,0)=" . I ""XP""[$P($G(^IBA(364,IBX,0)),U,3) D:'IBTST  Q"
^XMB(3.9,52,2,509,0)="""RTN"",""IBCB1"",79,0)"
^XMB(3.9,52,2,510,0)=" .. W !!,*7,""This Bill Can Not Be Printed Until Transmit Confirmed"" W:IBMRA "" (to request an MRA)"" D:'$D(IBVIEW) VIEW^IBCB2"
^XMB(3.9,52,2,511,0)="""RTN"",""IBCB1"",80,0)"
^XMB(3.9,52,2,512,0)=" . W !!,""This Bill Has Already Been Transmitted"" W:IBMRA "" (to request an MRA)"""
^XMB(3.9,52,2,513,0)="""RTN"",""IBCB1"",81,0)"
^XMB(3.9,52,2,514,0)=" . S DIR(""B"")=""Y"",DIR(""A"")=""WANT TO PRINT IT ANYWAY"",DIR(0)=""Y"" D ^DIR K DIR Q:$D(DTOUT)!$D(DUOUT)!'Y  S IBTXOK=1"
^XMB(3.9,52,2,515,0)="""RTN"",""IBCB1"",82,0)"
^XMB(3.9,52,2,516,0)=" D DISP^IBCB2"
^XMB(3.9,52,2,517,0)="""RTN"",""IBCB1"",83,0)"
^XMB(3.9,52,2,518,0)=" S:'$D(IBQUIT) IBQUIT=0"
^XMB(3.9,52,2,519,0)="""RTN"",""IBCB1"",84,0)"
^XMB(3.9,52,2,520,0)=" D:'$D(IBVIEW) VIEW^IBCB2 G:IBQUIT END"
^XMB(3.9,52,2,521,0)="""RTN"",""IBCB1"",85,0)"
^XMB(3.9,52,2,522,0)=" S IBPNT=$P(^DGCR(399,IBIFN,""S""),""^"",12)"
^XMB(3.9,52,2,523,0)="""RTN"",""IBCB1"",86,0)"
^XMB(3.9,52,2,524,0)="GEN I $$TEST^IBCEF4(IBIFN) W !!,""THIS BILL IS BEING USED AS A TRANSMISSION TEST BILL"""
^XMB(3.9,52,2,525,0)="""RTN"",""IBCB1"",87,0)"
^XMB(3.9,52,2,526,0)=" W !!,""WANT TO "",$S(IBPNT]"""":""RE-"",1:""""),""PRINT BILL AT THIS TIME"" S %=2 D YN^DICN I %=-1 D:+$G(IBAC)=1 END,CTCOPY^IBCCCB(IBIFN) G END"
^XMB(3.9,52,2,527,0)="""RTN"",""IBCB1"",88,0)"
^XMB(3.9,52,2,528,0)=" I '% W !?4,""YES - to print the bill now"",!?4,""NO - To take no action"" G GEN"
^XMB(3.9,52,2,529,0)="""RTN"",""IBCB1"",89,0)"
^XMB(3.9,52,2,530,0)="GENTX I %'=1 D:+$G(IBAC)=1 END,CTCOPY^IBCCCB(IBIFN) G END"
^XMB(3.9,52,2,531,0)="""RTN"",""IBCB1"",90,0)"
^XMB(3.9,52,2,532,0)=" ;"
^XMB(3.9,52,2,533,0)="""RTN"",""IBCB1"",91,0)"
^XMB(3.9,52,2,534,0)=" ; Bill has never been printed.  First time print."
^XMB(3.9,52,2,535,0)="""RTN"",""IBCB1"",92,0)"
^XMB(3.9,52,2,536,0)=" I 'IBPNT D  G END"
^XMB(3.9,52,2,537,0)="""RTN"",""IBCB1"",93,0)"
^XMB(3.9,52,2,538,0)=" . I $D(IBTXPRT) D TXPRTS"
^XMB(3.9,52,2,539,0)="""RTN"",""IBCB1"",94,0)"
^XMB(3.9,52,2,540,0)=" . D EN1^IBCF"
^XMB(3.9,52,2,541,0)="""RTN"",""IBCB1"",95,0)"
^XMB(3.9,52,2,542,0)=" . I $D(IBTXPRT) D TXPRT"
^XMB(3.9,52,2,543,0)="""RTN"",""IBCB1"",96,0)"
^XMB(3.9,52,2,544,0)=" . D MRA^IBCEMU1(IBIFN)       ; Printing the MRA"
^XMB(3.9,52,2,545,0)="""RTN"",""IBCB1"",97,0)"
^XMB(3.9,52,2,546,0)=" . I +$G(IBAC)=1 D END,CTCOPY^IBCCCB(IBIFN)"
^XMB(3.9,52,2,547,0)="""RTN"",""IBCB1"",98,0)"
^XMB(3.9,52,2,548,0)=" . Q"
^XMB(3.9,52,2,549,0)="""RTN"",""IBCB1"",99,0)"
^XMB(3.9,52,2,550,0)=" ;"
^XMB(3.9,52,2,551,0)="""RTN"",""IBCB1"",100,0)"
^XMB(3.9,52,2,552,0)=" ; Below section is for re-prints"
^XMB(3.9,52,2,553,0)="""RTN"",""IBCB1"",101,0)"
^XMB(3.9,52,2,554,0)="RPNT G:$$NEEDMRA^IBEFUNC(IBIFN) END"
^XMB(3.9,52,2,555,0)="""RTN"",""IBCB1"",102,0)"
^XMB(3.9,52,2,556,0)=" R !!,""(2)nd Notice, (3)rd Notice, (C)opy or (O)riginal: C// "",IBPNT:DTIME S:IBPNT="""" IBPNT=""C"" G:IBPNT[""^"" END"
^XMB(3.9,52,2,557,0)="""RTN"",""IBCB1"",103,0)"
^XMB(3.9,52,2,558,0)=" S IBPNT=$E(IBPNT,1) I ""23oOcC""'[IBPNT W !?5,""Enter 'O' to reprint the original bill or"",!?5,""Enter 'C' to reprint the bill as a duplicate copy or"",!?5,""Enter '2' or '3' to print 2nd or 3rd follow-up notices."" S IBPNT=1 G RPNT"
^XMB(3.9,52,2,559,0)="""RTN"",""IBCB1"",104,0)"
^XMB(3.9,52,2,560,0)=" W ""  ("",$S(""cC""[IBPNT:""COPY"",""oO""[IBPNT:""ORIGINAL"",IBPNT=2:""2nd NOTICE"",IBPNT=3:""3rd NOTICE"",1:""""),"")"""
^XMB(3.9,52,2,561,0)="""RTN"",""IBCB1"",105,0)"
^XMB(3.9,52,2,562,0)=" I $D(IBTXPRT) D"
^XMB(3.9,52,2,563,0)="""RTN"",""IBCB1"",106,0)"
^XMB(3.9,52,2,564,0)=" . D TXPRTS"
^XMB(3.9,52,2,565,0)="""RTN"",""IBCB1"",107,0)"
^XMB(3.9,52,2,566,0)=" . I ""oOcC""[IBPNT S IBRESUB=$$RESUB^IBCECSA4(IBIFN,1,""P"")"
^XMB(3.9,52,2,567,0)="""RTN"",""IBCB1"",108,0)"
^XMB(3.9,52,2,568,0)=" S IBPNT=$S(""oO""[IBPNT:1,""cC""[IBPNT:0,1:IBPNT)"
^XMB(3.9,52,2,569,0)="""RTN"",""IBCB1"",109,0)"
^XMB(3.9,52,2,570,0)=" D EN1X^IBCF D:$D(IBTXPRT) TXPRT"
^XMB(3.9,52,2,571,0)="""RTN"",""IBCB1"",110,0)"
^XMB(3.9,52,2,572,0)=" D MRA^IBCEMU1(IBIFN)       ; Printing the MRA"
^XMB(3.9,52,2,573,0)="""RTN"",""IBCB1"",111,0)"
^XMB(3.9,52,2,574,0)=" ;"
^XMB(3.9,52,2,575,0)="""RTN"",""IBCB1"",112,0)"
^XMB(3.9,52,2,576,0)=" ;"
^XMB(3.9,52,2,577,0)="""RTN"",""IBCB1"",113,0)"
^XMB(3.9,52,2,578,0)="END K IBER,IBEND D END^IBCBB1 K IBQUIT,IBVIEW,IBDISP,IBST,IB,PRCAERCD,PRCAERR,PRCASVC,PRCAT,DGRA2,IBBT,IBCH,IBNDS,IBOA,IBREV,IBX,DGXRF1,PRCAORA,IBX3,DGBILLBS,DGII,DGVISCNT,DGFIL,DGTE,IBTXOK,IBTXSTAT,IBMRA,IBNOFIX"
^XMB(3.9,52,2,579,0)="""RTN"",""IBCB1"",114,0)"
^XMB(3.9,52,2,580,0)=" K %DT,DIC,DIE,I,J,X,Y,Y1,Y2,IBER,IBDFN,IBDSDT,IBJ,IBNDI1,IBZZ,VA,IBMA,IBXDT,DI,PRCAPAYR,DGBS,DGCNT,DGDA,DGPAG,DGREVC,DGRV,DGTEXT,DGTOTPAG,IBOPV,DGLCNT,DGTEXT1,DGRSPAC,DGSM,IBPNT,DGINPT,DGLL,IBCPTN,IBFL"
^XMB(3.9,52,2,581,0)="""RTN"",""IBCB1"",115,0)"
^XMB(3.9,52,2,582,0)=" K IBRESUB,IBOPV1,IBOPV2,IBCHG,DGBIL1,DGU,DDH,IBA1,IBINS,IBPROC,PRCARI K:'$D(PRCASV(""NOTICE"")) PRCASV"
^XMB(3.9,52,2,583,0)="""RTN"",""IBCB1"",116,0)"
^XMB(3.9,52,2,584,0)=" K ^TMP(""IBXDATA"",$J),^TMP(""IBXEDIT"",$J)"
^XMB(3.9,52,2,585,0)="""RTN"",""IBCB1"",117,0)"
^XMB(3.9,52,2,586,0)=" K IBCISNT,IBCISTAT,IBCIERR   ; remove ClaimsManager variables"
^XMB(3.9,52,2,587,0)="""RTN"",""IBCB1"",118,0)"
^XMB(3.9,52,2,588,0)=" Q"
^XMB(3.9,52,2,589,0)="""RTN"",""IBCB1"",119,0)"
^XMB(3.9,52,2,590,0)=" ;"
^XMB(3.9,52,2,591,0)="""RTN"",""IBCB1"",120,0)"
^XMB(3.9,52,2,592,0)="TX1(IBX,RESUB) ; Transmit a single bill from file 364 entry # IBX"
^XMB(3.9,52,2,593,0)="""RTN"",""IBCB1"",121,0)"
^XMB(3.9,52,2,594,0)=" ; RESUB = flag (1 = resubmitting a bill, 0 = submitting bill 1st time)"
^XMB(3.9,52,2,595,0)="""RTN"",""IBCB1"",122,0)"
^XMB(3.9,52,2,596,0)=" ; Returns 1 if successfully extracted to mailman queue for transmission,"
^XMB(3.9,52,2,597,0)="""RTN"",""IBCB1"",123,0)"
^XMB(3.9,52,2,598,0)=" ;         0 if extract not successful"
^XMB(3.9,52,2,599,0)="""RTN"",""IBCB1"",124,0)"
^XMB(3.9,52,2,600,0)=" N IBTXOK,IBVVSAVE"
^XMB(3.9,52,2,601,0)="""RTN"",""IBCB1"",125,0)"
^XMB(3.9,52,2,602,0)=" K ^TMP(""IBRESUBMIT"",$J),^TMP(""IBONE"",$J)"
^XMB(3.9,52,2,603,0)="""RTN"",""IBCB1"",126,0)"
^XMB(3.9,52,2,604,0)=" S IBVVSAVE(""IBX"")=IBX,^TMP(""IBONE"",$J)=+$G(RESUB),^($J,IBX)="""""
^XMB(3.9,52,2,605,0)="""RTN"",""IBCB1"",127,0)"
^XMB(3.9,52,2,606,0)=" D ONE^IBCE837"
^XMB(3.9,52,2,607,0)="""RTN"",""IBCB1"",128,0)"
^XMB(3.9,52,2,608,0)=" S IBX=IBVVSAVE(""IBX"")"
^XMB(3.9,52,2,609,0)="""RTN"",""IBCB1"",129,0)"
^XMB(3.9,52,2,610,0)=" I $P($G(^IBA(364,IBX,0)),U,3)=""P"" S IBTXOK=1"
^XMB(3.9,52,2,611,0)="""RTN"",""IBCB1"",130,0)"
^XMB(3.9,52,2,612,0)=" K ^TMP(""IBONE"",$J)"
^XMB(3.9,52,2,613,0)="""RTN"",""IBCB1"",131,0)"
^XMB(3.9,52,2,614,0)=" Q $G(IBTXOK)"
^XMB(3.9,52,2,615,0)="""RTN"",""IBCB1"",132,0)"
^XMB(3.9,52,2,616,0)=" ;"
^XMB(3.9,52,2,617,0)="""RTN"",""IBCB1"",133,0)"
^XMB(3.9,52,2,618,0)="ARONLY(IBIFN) ; Pass bill to A/R, but that's all"
^XMB(3.9,52,2,619,0)="""RTN"",""IBCB1"",134,0)"
^XMB(3.9,52,2,620,0)=" D ARPASS(IBIFN,0)"
^XMB(3.9,52,2,621,0)="""RTN"",""IBCB1"",135,0)"
^XMB(3.9,52,2,622,0)=" Q"
^XMB(3.9,52,2,623,0)="""RTN"",""IBCB1"",136,0)"
^XMB(3.9,52,2,624,0)=" ;"
^XMB(3.9,52,2,625,0)="""RTN"",""IBCB1"",137,0)"
^XMB(3.9,52,2,626,0)="ARPASS(IBIFN,UPDOK) ;Pass bill to A/R as NEW BILL"
^XMB(3.9,52,2,627,0)="""RTN"",""IBCB1"",138,0)"
^XMB(3.9,52,2,628,0)=" ;IBIFN = bill entry #"
^XMB(3.9,52,2,629,0)="""RTN"",""IBCB1"",139,0)"
^XMB(3.9,52,2,630,0)=" ;UPDOK = flag 1: if error going to A/R, allow interactive edit"
^XMB(3.9,52,2,631,0)="""RTN"",""IBCB1"",140,0)"
^XMB(3.9,52,2,632,0)=" ;             0: send bulletin to IB EDI for error going to A/R"
^XMB(3.9,52,2,633,0)="""RTN"",""IBCB1"",141,0)"
^XMB(3.9,52,2,634,0)=" Q:+$$STA^PRCAFN(+IBIFN)'=201  ;Must not have been sent previously"
^XMB(3.9,52,2,635,0)="""RTN"",""IBCB1"",142,0)"
^XMB(3.9,52,2,636,0)=" D GVAR^IBCBB"
^XMB(3.9,52,2,637,0)="""RTN"",""IBCB1"",143,0)"
^XMB(3.9,52,2,638,0)=" ;Can't be an ins co that won't reimburse"
^XMB(3.9,52,2,639,0)="""RTN"",""IBCB1"",144,0)"
^XMB(3.9,52,2,640,0)=" Q:$S($P($G(^DGCR(399,IBIFN,0)),U,11)=""i"":'IBNDMP,1:0)"
^XMB(3.9,52,2,641,0)="""RTN"",""IBCB1"",145,0)"
^XMB(3.9,52,2,642,0)=" D ARRAY^IBCBB1,^PRCASVC6"
^XMB(3.9,52,2,643,0)="""RTN"",""IBCB1"",146,0)"
^XMB(3.9,52,2,644,0)=" D REL^PRCASVC:$G(PRCASV(""OKAY""))"
^XMB(3.9,52,2,645,0)="""RTN"",""IBCB1"",147,0)"
^XMB(3.9,52,2,646,0)=" I '$G(PRCASV(""OKAY"")) D"
^XMB(3.9,52,2,647,0)="""RTN"",""IBCB1"",148,0)"
^XMB(3.9,52,2,648,0)=" . N IBQUIT,IBQUIT1"
^XMB(3.9,52,2,649,0)="""RTN"",""IBCB1"",149,0)"
^XMB(3.9,52,2,650,0)=" . S IBQUIT=0"
^XMB(3.9,52,2,651,0)="""RTN"",""IBCB1"",150,0)"
^XMB(3.9,52,2,652,0)=" . I $G(UPDOK) D  Q"
^XMB(3.9,52,2,653,0)="""RTN"",""IBCB1"",151,0)"
^XMB(3.9,52,2,654,0)=" .. F  D  Q:IBQUIT"
^XMB(3.9,52,2,655,0)="""RTN"",""IBCB1"",152,0)"
^XMB(3.9,52,2,656,0)=" ... D DSPARERR^IBCB2("""")"
^XMB(3.9,52,2,657,0)="""RTN"",""IBCB1"",153,0)"
^XMB(3.9,52,2,658,0)=" ... Q:IBQUIT"
^XMB(3.9,52,2,659,0)="""RTN"",""IBCB1"",154,0)"
^XMB(3.9,52,2,660,0)=" ... I $$ASKEDIT^IBCB2($G(IBAC)) D VIEW1^IBCB2 Q"
^XMB(3.9,52,2,661,0)="""RTN"",""IBCB1"",155,0)"
^XMB(3.9,52,2,662,0)=" ... S IBQUIT=1"
^XMB(3.9,52,2,663,0)="""RTN"",""IBCB1"",156,0)"
^XMB(3.9,52,2,664,0)=" . N XMSUB,XMY,XMTEXT,XMDUZ,IBT"
^XMB(3.9,52,2,665,0)="""RTN"",""IBCB1"",157,0)"
^XMB(3.9,52,2,666,0)=" . S XMSUB=""ERROR PASSING BILL TO A/R ON CONFIRMATION"",XMTEXT=""IBT("",XMY=""G.IB EDI"",XMDUZ=.5"
^XMB(3.9,52,2,667,0)="""RTN"",""IBCB1"",158,0)"
^XMB(3.9,52,2,668,0)=" . S IBT(1)=""A problem has been detected while trying to pass bill ""_$P($G(^DGCR(399,IBIFN,0)),U)_"" to"""
^XMB(3.9,52,2,669,0)="""RTN"",""IBCB1"",159,0)"
^XMB(3.9,52,2,670,0)=" . S IBT(2)=""Accounts Receivable when updating the bill's electronic confirmation."""
^XMB(3.9,52,2,671,0)="""RTN"",""IBCB1"",160,0)"
^XMB(3.9,52,2,672,0)=" . S IBT(3)=""Please use the option PASS BILL TO A/R to complete this process."""
^XMB(3.9,52,2,673,0)="""RTN"",""IBCB1"",161,0)"
^XMB(3.9,52,2,674,0)=" . D ^XMD"
^XMB(3.9,52,2,675,0)="""RTN"",""IBCB1"",162,0)"
^XMB(3.9,52,2,676,0)=" Q"
^XMB(3.9,52,2,677,0)="""RTN"",""IBCB1"",163,0)"
^XMB(3.9,52,2,678,0)=" ;"
^XMB(3.9,52,2,679,0)="""RTN"",""IBCB1"",164,0)"
^XMB(3.9,52,2,680,0)="ADDTBILL(IBIFN,TXST) ; Add new transmit bill rec to file 364 for bill IBIFN"
^XMB(3.9,52,2,681,0)="""RTN"",""IBCB1"",165,0)"
^XMB(3.9,52,2,682,0)=" ; TXST = test flag 1=live, 2=test"
^XMB(3.9,52,2,683,0)="""RTN"",""IBCB1"",166,0)"
^XMB(3.9,52,2,684,0)=" N COB,DD,DO,DIC,DLAYGO,X"
^XMB(3.9,52,2,685,0)="""RTN"",""IBCB1"",167,0)"
^XMB(3.9,52,2,686,0)=" S TXST=($G(TXST)/2\1),COB=$$COB^IBCEF(IBIFN)"
^XMB(3.9,52,2,687,0)="""RTN"",""IBCB1"",168,0)"
^XMB(3.9,52,2,688,0)=" S DIC(0)=""L"",DIC=""^IBA(364,"",DLAYGO=364,X=IBIFN,DIC(""DR"")="".03///X;.04///NOW;.07////""_TXST_"";.08////""_COB D FILE^DICN"
^XMB(3.9,52,2,689,0)="""RTN"",""IBCB1"",169,0)"
^XMB(3.9,52,2,690,0)=" Q Y"
^XMB(3.9,52,2,691,0)="""RTN"",""IBCB1"",170,0)"
^XMB(3.9,52,2,692,0)=" ;"
^XMB(3.9,52,2,693,0)="""RTN"",""IBCB1"",171,0)"
^XMB(3.9,52,2,694,0)="TXPRTS ; Save off last print date to see if bill was reprinted without queueing"
^XMB(3.9,52,2,695,0)="""RTN"",""IBCB1"",172,0)"
^XMB(3.9,52,2,696,0)=" I '$$NEEDMRA^IBEFUNC(IBIFN) S IBTXPRT(""PRT"")=$P($G(^DGCR(399,IBIFN,""S"")),U,14)"
^XMB(3.9,52,2,697,0)="""RTN"",""IBCB1"",173,0)"
^XMB(3.9,52,2,698,0)=" Q"
^XMB(3.9,52,2,699,0)="""RTN"",""IBCB1"",174,0)"
^XMB(3.9,52,2,700,0)=" ;"
^XMB(3.9,52,2,701,0)="""RTN"",""IBCB1"",175,0)"
^XMB(3.9,52,2,702,0)="TXPRT ; Set variable if print was tasked or bill was printed (last print date changed)"
^XMB(3.9,52,2,703,0)="""RTN"",""IBCB1"",176,0)"
^XMB(3.9,52,2,704,0)=" I '$$NEEDMRA^IBEFUNC(IBIFN),$S($G(ZTSK):1,1:IBTXPRT(""PRT"")'=$P($G(^DGCR(399,IBIFN,""S"")),U,14)) S IBTXPRT=1"
^XMB(3.9,52,2,705,0)="""RTN"",""IBCB1"",177,0)"
^XMB(3.9,52,2,706,0)=" Q"
^XMB(3.9,52,2,707,0)="""RTN"",""IBCB1"",178,0)"
^XMB(3.9,52,2,708,0)=" ;"
^XMB(3.9,52,2,709,0)="""RTN"",""IBCB11"")"
^XMB(3.9,52,2,710,0)="0^5^B4330079"
^XMB(3.9,52,2,711,0)="""RTN"",""IBCB11"",1,0)"
^XMB(3.9,52,2,712,0)="IBCB11 ;ALB/AAS - Process bill after enter/edited ;2-NOV-89"
^XMB(3.9,52,2,713,0)="""RTN"",""IBCB11"",2,0)"
^XMB(3.9,52,2,714,0)=" ;;2.0;INTEGRATED BILLING;**327**;21-MAR-94"
^XMB(3.9,52,2,715,0)="""RTN"",""IBCB11"",3,0)"
^XMB(3.9,52,2,716,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,52,2,717,0)="""RTN"",""IBCB11"",4,0)"
^XMB(3.9,52,2,718,0)="AUTH N DIR,Y,X,IBINS,NXTINS"
^XMB(3.9,52,2,719,0)="""RTN"",""IBCB11"",5,0)"
^XMB(3.9,52,2,720,0)=" S NXTINS=+$$POLICY^IBCEF(IBIFN,1,$$COBN^IBCEF(IBIFN)+1)  ; next ins"
^XMB(3.9,52,2,721,0)="""RTN"",""IBCB11"",6,0)"
^XMB(3.9,52,2,722,0)=" S IBINS=$P($G(^DIC(36,NXTINS,0)),U)   ; name of next insurance"
^XMB(3.9,52,2,723,0)="""RTN"",""IBCB11"",7,0)"
^XMB(3.9,52,2,724,0)=" Q:$$MCRWNR^IBEFUNC(NXTINS)            ; quit if its Medicare"
^XMB(3.9,52,2,725,0)="""RTN"",""IBCB11"",8,0)"
^XMB(3.9,52,2,726,0)=" ;IF IBMRA = R2 PASS BILL DIRECTLY TO TERTIARY INSURANCE"
^XMB(3.9,52,2,727,0)="""RTN"",""IBCB11"",9,0)"
^XMB(3.9,52,2,728,0)=" I IBMRA=""R2"" D  Q"
^XMB(3.9,52,2,729,0)="""RTN"",""IBCB11"",10,0)"
^XMB(3.9,52,2,730,0)=" .D EN^DDIOL(""This bill has secondary policy of MEDICARE and an MRA will not be submitted."","""",""!"")"
^XMB(3.9,52,2,731,0)="""RTN"",""IBCB11"",11,0)"
^XMB(3.9,52,2,732,0)=" .D EN^DDIOL(""This bill will go directly to ""_IBINS,"""",""!!"")"
^XMB(3.9,52,2,733,0)="""RTN"",""IBCB11"",12,0)"
^XMB(3.9,52,2,734,0)=" .D COBCHG^IBCCC2(IBIFN,+$$CURR^IBCEF2(IBIFN))"
^XMB(3.9,52,2,735,0)="""RTN"",""IBCB11"",13,0)"
^XMB(3.9,52,2,736,0)=" .Q"
^XMB(3.9,52,2,737,0)="""RTN"",""IBCB11"",14,0)"
^XMB(3.9,52,2,738,0)=" ;"
^XMB(3.9,52,2,739,0)="""RTN"",""IBCB11"",15,0)"
^XMB(3.9,52,2,740,0)=" S DIR(0)=""YO"",DIR(""B"")=""YES"",DIR(""A"",1)="" """
^XMB(3.9,52,2,741,0)="""RTN"",""IBCB11"",16,0)"
^XMB(3.9,52,2,742,0)=" S DIR(""A"",2)=""This bill has prior insurance of MEDICARE, but"""
^XMB(3.9,52,2,743,0)="""RTN"",""IBCB11"",17,0)"
^XMB(3.9,52,2,744,0)=" I +$P($G(^IBE(350.9,1,8)),U,10)'<2 D"
^XMB(3.9,52,2,745,0)="""RTN"",""IBCB11"",18,0)"
^XMB(3.9,52,2,746,0)=" . S DIR(""A"",3)=""Ins Co, ""_IBINS_"", does not want/need an MRA."""
^XMB(3.9,52,2,747,0)="""RTN"",""IBCB11"",19,0)"
^XMB(3.9,52,2,748,0)=" E  D"
^XMB(3.9,52,2,749,0)="""RTN"",""IBCB11"",20,0)"
^XMB(3.9,52,2,750,0)=" . S DIR(""A"",3)=""the site parameter for MRA Requests is turned off."""
^XMB(3.9,52,2,751,0)="""RTN"",""IBCB11"",21,0)"
^XMB(3.9,52,2,752,0)=" S DIR(""A"",4)="" """
^XMB(3.9,52,2,753,0)="""RTN"",""IBCB11"",22,0)"
^XMB(3.9,52,2,754,0)=" S DIR(""A"")=""Do you want this bill to go directly to ""_IBINS"
^XMB(3.9,52,2,755,0)="""RTN"",""IBCB11"",23,0)"
^XMB(3.9,52,2,756,0)=" S DIR(""?"",1)=""If you answer NO, the bill will not be authorized."""
^XMB(3.9,52,2,757,0)="""RTN"",""IBCB11"",24,0)"
^XMB(3.9,52,2,758,0)=" S DIR(""?"")=""If you answer YES, this bill will automatically become a ""_$P(""secondary^tertiary"",U,$$COBN^IBCEF(IBIFN))_"" bill."""
^XMB(3.9,52,2,759,0)="""RTN"",""IBCB11"",25,0)"
^XMB(3.9,52,2,760,0)=" D ^DIR K DIR"
^XMB(3.9,52,2,761,0)="""RTN"",""IBCB11"",26,0)"
^XMB(3.9,52,2,762,0)=" I 'Y S IBEND=1 W !,""Can't continue"",! Q"
^XMB(3.9,52,2,763,0)="""RTN"",""IBCB11"",27,0)"
^XMB(3.9,52,2,764,0)=" D COBCHG^IBCCC2(IBIFN,+$$CURR^IBCEF2(IBIFN))"
^XMB(3.9,52,2,765,0)="""RTN"",""IBCB11"",28,0)"
^XMB(3.9,52,2,766,0)=" Q"
^XMB(3.9,52,2,767,0)="""RTN"",""IBCBB"")"
^XMB(3.9,52,2,768,0)="0^1^B14993587^B14269669"
^XMB(3.9,52,2,769,0)="""RTN"",""IBCBB"",1,0)"
^XMB(3.9,52,2,770,0)="IBCBB ;ALB/AAS - EDIT CHECK ROUTINE TO BE INVOKED BEFORE ALL BILL APPROVAL ACTIONS ;2-NOV-89"
^XMB(3.9,52,2,771,0)="""RTN"",""IBCBB"",2,0)"
^XMB(3.9,52,2,772,0)=" ;;2.0;INTEGRATED BILLING;**80,51,137,288,327**;21-MAR-94"
^XMB(3.9,52,2,773,0)="""RTN"",""IBCBB"",3,0)"
^XMB(3.9,52,2,774,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,52,2,775,0)="""RTN"",""IBCBB"",4,0)"
^XMB(3.9,52,2,776,0)=" ;"
^XMB(3.9,52,2,777,0)="""RTN"",""IBCBB"",5,0)"
^XMB(3.9,52,2,778,0)=" ;MAP TO DGCRBB"
^XMB(3.9,52,2,779,0)="""RTN"",""IBCBB"",6,0)"
^XMB(3.9,52,2,780,0)=" ;"
^XMB(3.9,52,2,781,0)="""RTN"",""IBCBB"",7,0)"
^XMB(3.9,52,2,782,0)=" ;IBNDn = IBND(n) = ^ib(399,n)"
^XMB(3.9,52,2,783,0)="""RTN"",""IBCBB"",8,0)"
^XMB(3.9,52,2,784,0)=" ;RETURNS:"
^XMB(3.9,52,2,785,0)="""RTN"",""IBCBB"",9,0)"
^XMB(3.9,52,2,786,0)=" ;IBER=fields with errors separated by semi-colons"
^XMB(3.9,52,2,787,0)="""RTN"",""IBCBB"",10,0)"
^XMB(3.9,52,2,788,0)=" ;PRCASV(""OKAY"")=1 if iber="""" and $D(prcasv(""array"")) compete"
^XMB(3.9,52,2,789,0)="""RTN"",""IBCBB"",11,0)"
^XMB(3.9,52,2,790,0)=" ;"
^XMB(3.9,52,2,791,0)="""RTN"",""IBCBB"",12,0)"
^XMB(3.9,52,2,792,0)="GVAR ;set up variables for mccr"
^XMB(3.9,52,2,793,0)="""RTN"",""IBCBB"",13,0)"
^XMB(3.9,52,2,794,0)=" Q:'$D(IBIFN)  F I=0,""M"",""U"",""U1"",""S"",""MP"",""TX"",""UF3"",""UF31"",""U2"" S @(""IBND""_I)=$G(^DGCR(399,IBIFN,I))"
^XMB(3.9,52,2,795,0)="""RTN"",""IBCBB"",14,0)"
^XMB(3.9,52,2,796,0)=" S IBBNO=$P(IBND0,""^""),DFN=$P(IBND0,""^"",2),IBEVDT=$P(IBND0,""^"",3)"
^XMB(3.9,52,2,797,0)="""RTN"",""IBCBB"",15,0)"
^XMB(3.9,52,2,798,0)=" S IBLOC=$P(IBND0,""^"",4),IBCL=$P(IBND0,""^"",5),IBTF=$P(IBND0,""^"",6)"
^XMB(3.9,52,2,799,0)="""RTN"",""IBCBB"",16,0)"
^XMB(3.9,52,2,800,0)=" S IBAT=$P(IBND0,""^"",7),IBWHO=$P(IBND0,""^"",11),IBST=$P(IBND0,""^"",13),IBFT=$P(IBND0,""^"",19)"
^XMB(3.9,52,2,801,0)="""RTN"",""IBCBB"",17,0)"
^XMB(3.9,52,2,802,0)=" S IBFDT=$P(IBNDU,""^"",1),IBTDT=$P(IBNDU,""^"",2)"
^XMB(3.9,52,2,803,0)="""RTN"",""IBCBB"",18,0)"
^XMB(3.9,52,2,804,0)=" S IBTC=$P(IBNDU1,""^"",1),IBFY=$P(IBNDU1,""^"",9),IBFYC=$P(IBNDU1,""^"",10)"
^XMB(3.9,52,2,805,0)="""RTN"",""IBCBB"",19,0)"
^XMB(3.9,52,2,806,0)=" S IBEU=$P(IBNDS,""^"",2),IBRU=$P(IBNDS,""^"",5),IBAU=$P(IBNDS,""^"",8)"
^XMB(3.9,52,2,807,0)="""RTN"",""IBCBB"",20,0)"
^XMB(3.9,52,2,808,0)=" S IBTOB=$$TOB(IBND0),IBTOB12=$E(IBTOB,1,2)"
^XMB(3.9,52,2,809,0)="""RTN"",""IBCBB"",21,0)"
^XMB(3.9,52,2,810,0)=" K ^TMP($J,""BILL-WARN"")"
^XMB(3.9,52,2,811,0)="""RTN"",""IBCBB"",22,0)"
^XMB(3.9,52,2,812,0)=" Q"
^XMB(3.9,52,2,813,0)="""RTN"",""IBCBB"",23,0)"
^XMB(3.9,52,2,814,0)=" ;"
^XMB(3.9,52,2,815,0)="""RTN"",""IBCBB"",24,0)"
^XMB(3.9,52,2,816,0)="EN ;Entry to check for errors"
^XMB(3.9,52,2,817,0)="""RTN"",""IBCBB"",25,0)"
^XMB(3.9,52,2,818,0)=" N IBQ,IBXERR,IBXDATA,IBXSAVE,IBZPRC92,IBQUIT,IBISEQ,IDDATA,IBERRNO"
^XMB(3.9,52,2,819,0)="""RTN"",""IBCBB"",26,0)"
^XMB(3.9,52,2,820,0)=" I $D(IBFL) N IBFL"
^XMB(3.9,52,2,821,0)="""RTN"",""IBCBB"",27,0)"
^XMB(3.9,52,2,822,0)=" K ^TMP($J)"
^XMB(3.9,52,2,823,0)="""RTN"",""IBCBB"",28,0)"
^XMB(3.9,52,2,824,0)=" W !"
^XMB(3.9,52,2,825,0)="""RTN"",""IBCBB"",29,0)"
^XMB(3.9,52,2,826,0)=" S IBER="""" D GVAR I '$D(IBND0) S IBER=-1 Q"
^XMB(3.9,52,2,827,0)="""RTN"",""IBCBB"",30,0)"
^XMB(3.9,52,2,828,0)=" ;"
^XMB(3.9,52,2,829,0)="""RTN"",""IBCBB"",31,0)"
^XMB(3.9,52,2,830,0)=" ;I $$ISPROS^IBCEF1(IBIFN) D"
^XMB(3.9,52,2,831,0)="""RTN"",""IBCBB"",32,0)"
^XMB(3.9,52,2,832,0)=" ;. D WARN^IBCBB11(""Bill has prosthetics item(s) and will only print locally"")"
^XMB(3.9,52,2,833,0)="""RTN"",""IBCBB"",33,0)"
^XMB(3.9,52,2,834,0)=" ;. I $$NEEDMRA^IBEFUNC(IBIFN) S IBQUIT=$$IBER^IBCBB3(.IBER,""098"")"
^XMB(3.9,52,2,835,0)="""RTN"",""IBCBB"",34,0)"
^XMB(3.9,52,2,836,0)=" ;"
^XMB(3.9,52,2,837,0)="""RTN"",""IBCBB"",35,0)"
^XMB(3.9,52,2,838,0)=" ;patient in patient file"
^XMB(3.9,52,2,839,0)="""RTN"",""IBCBB"",36,0)"
^XMB(3.9,52,2,840,0)=" I DFN="""" S IBER=IBER_""IB057;"""
^XMB(3.9,52,2,841,0)="""RTN"",""IBCBB"",37,0)"
^XMB(3.9,52,2,842,0)=" I DFN]"""",'$D(^DPT(DFN)) S IBER=IBER_""IB057;"""
^XMB(3.9,52,2,843,0)="""RTN"",""IBCBB"",38,0)"
^XMB(3.9,52,2,844,0)=" ;"
^XMB(3.9,52,2,845,0)="""RTN"",""IBCBB"",39,0)"
^XMB(3.9,52,2,846,0)=" ;Event date in correct format"
^XMB(3.9,52,2,847,0)="""RTN"",""IBCBB"",40,0)"
^XMB(3.9,52,2,848,0)=" I IBEVDT="""" S IBER=IBER_""IB049;"""
^XMB(3.9,52,2,849,0)="""RTN"",""IBCBB"",41,0)"
^XMB(3.9,52,2,850,0)=" I IBEVDT]"""",IBEVDT'?7N&(IBEVDT'?7N1""."".N) S IBER=IBER_""IB049;"""
^XMB(3.9,52,2,851,0)="""RTN"",""IBCBB"",42,0)"
^XMB(3.9,52,2,852,0)=" ;"
^XMB(3.9,52,2,853,0)="""RTN"",""IBCBB"",43,0)"
^XMB(3.9,52,2,854,0)=" ;Rate Type"
^XMB(3.9,52,2,855,0)="""RTN"",""IBCBB"",44,0)"
^XMB(3.9,52,2,856,0)=" I IBAT="""" S IBER=IBER_""IB059;"""
^XMB(3.9,52,2,857,0)="""RTN"",""IBCBB"",45,0)"
^XMB(3.9,52,2,858,0)=" I IBAT]"""",'$D(^DGCR(399.3,IBAT,0)) S IBER=IBER_""IB059;"""
^XMB(3.9,52,2,859,0)="""RTN"",""IBCBB"",46,0)"
^XMB(3.9,52,2,860,0)=" I IBAT]"""",$D(^DGCR(399.3,IBAT,0)),'$P(^(0),""^"",6) S IBER=IBER_""IB059;"",IBAT="""""
^XMB(3.9,52,2,861,0)="""RTN"",""IBCBB"",47,0)"
^XMB(3.9,52,2,862,0)=" ;I IBAT]"""",$D(^DGCR(399.3,IBAT,0)) S IBARTP=$P(^PRCA(430.2,$P(^DGCR(399.3,IBAT,0),""^"",6),0),""^"",6)"
^XMB(3.9,52,2,863,0)="""RTN"",""IBCBB"",48,0)"
^XMB(3.9,52,2,864,0)=" I IBAT]"""",$P($G(^DGCR(399.3,IBAT,0)),""^"",6) S IBARTP=$P($$CATN^PRCAFN($P(^DGCR(399.3,IBAT,0),""^"",6)),""^"",3)"
^XMB(3.9,52,2,865,0)="""RTN"",""IBCBB"",49,0)"
^XMB(3.9,52,2,866,0)=" ;Check that AR category expects same debtor as defined in who's respon."
^XMB(3.9,52,2,867,0)="""RTN"",""IBCBB"",50,0)"
^XMB(3.9,52,2,868,0)=" I $D(IBARTP),IBWHO=""i""&(IBARTP'=""T"")!(IBWHO=""p""&(""PC""'[IBARTP))!(IBWHO=""o""&(IBARTP'=""N"")) S IBER=IBER_""IB058;"""
^XMB(3.9,52,2,869,0)="""RTN"",""IBCBB"",51,0)"
^XMB(3.9,52,2,870,0)=" ;"
^XMB(3.9,52,2,871,0)="""RTN"",""IBCBB"",52,0)"
^XMB(3.9,52,2,872,0)=" ;Who's Responsible"
^XMB(3.9,52,2,873,0)="""RTN"",""IBCBB"",53,0)"
^XMB(3.9,52,2,874,0)=" I IBWHO=""""!($L(IBWHO)>1)!(""iop""'[IBWHO) S IBER=IBER_""IB065;"""
^XMB(3.9,52,2,875,0)="""RTN"",""IBCBB"",54,0)"
^XMB(3.9,52,2,876,0)=" S IBMRA=$S($$MCRWNR^IBEFUNC(+$$CURR^IBCEF2(IBIFN)):$$TXMT^IBCEF4(IBIFN)>0,1:0)"
^XMB(3.9,52,2,877,0)="""RTN"",""IBCBB"",55,0)"
^XMB(3.9,52,2,878,0)=" ;  MCR will not reimburse is only valid if there is subsequent insurance"
^XMB(3.9,52,2,879,0)="""RTN"",""IBCBB"",56,0)"
^XMB(3.9,52,2,880,0)=" ;   that will reimburse"
^XMB(3.9,52,2,881,0)="""RTN"",""IBCBB"",57,0)"
^XMB(3.9,52,2,882,0)=" I IBWHO=""i"" D"
^XMB(3.9,52,2,883,0)="""RTN"",""IBCBB"",58,0)"
^XMB(3.9,52,2,884,0)=" . I IBMRA D  Q"
^XMB(3.9,52,2,885,0)="""RTN"",""IBCBB"",59,0)"
^XMB(3.9,52,2,886,0)=" .. N Z,IBZ"
^XMB(3.9,52,2,887,0)="""RTN"",""IBCBB"",60,0)"
^XMB(3.9,52,2,888,0)=" .. S IBZ=0"
^XMB(3.9,52,2,889,0)="""RTN"",""IBCBB"",61,0)"
^XMB(3.9,52,2,890,0)=" .. F Z=$$COBN^IBCEF(IBIFN):1:3 I $D(^DGCR(399,IBIFN,""I""_(Z+1))),$P($G(^DIC(36,+$G(^DGCR(399,IBIFN,""I""_(Z+1))),0)),U,2)'=""N"" S IBZ=1 Q"
^XMB(3.9,52,2,891,0)="""RTN"",""IBCBB"",62,0)"
^XMB(3.9,52,2,892,0)=" .. I 'IBZ S IBER=IBER_""IB054;"" D WARN^IBCBB11(""A valid claim for MEDICARE WNR needs subsequent ins. that will reimburse"")"
^XMB(3.9,52,2,893,0)="""RTN"",""IBCBB"",63,0)"
^XMB(3.9,52,2,894,0)=" .."
^XMB(3.9,52,2,895,0)="""RTN"",""IBCBB"",64,0)"
^XMB(3.9,52,2,896,0)=" . I $$COB^IBCEF(IBIFN)=""S"",$$MCRWNR^IBEFUNC(+$$CURR^IBCEF2(IBIFN))=1,$D(^DGCR(399,IBIFN,""I3"")) Q"
^XMB(3.9,52,2,897,0)="""RTN"",""IBCBB"",65,0)"
^XMB(3.9,52,2,898,0)=" . I $S('IBNDMP:1,1:$P(IBNDMP,U,2)'=$$BPP^IBCNS2(IBIFN,1)) S IBER=IBER_""IB054;"""
^XMB(3.9,52,2,899,0)="""RTN"",""IBCBB"",66,0)"
^XMB(3.9,52,2,900,0)=" I IBWHO=""o"",'$P(IBNDM,""^"",11) S IBER=IBER_""IB053;"""
^XMB(3.9,52,2,901,0)="""RTN"",""IBCBB"",67,0)"
^XMB(3.9,52,2,902,0)=" ;"
^XMB(3.9,52,2,903,0)="""RTN"",""IBCBB"",68,0)"
^XMB(3.9,52,2,904,0)=" ; All insurance subscribers must have a birthdate on file"
^XMB(3.9,52,2,905,0)="""RTN"",""IBCBB"",69,0)"
^XMB(3.9,52,2,906,0)=" ;  - 11/10/04 - IB*2.0*288"
^XMB(3.9,52,2,907,0)="""RTN"",""IBCBB"",70,0)"
^XMB(3.9,52,2,908,0)=" F IBISEQ=1:1:3 D"
^XMB(3.9,52,2,909,0)="""RTN"",""IBCBB"",71,0)"
^XMB(3.9,52,2,910,0)=" . I '$P($G(^DGCR(399,IBIFN,""I""_IBISEQ)),U,1) Q   ; no insurance here"
^XMB(3.9,52,2,911,0)="""RTN"",""IBCBB"",72,0)"
^XMB(3.9,52,2,912,0)=" . K ^UTILITY(""VADM"",$J),^UTILITY(""VAPA"",$J)"
^XMB(3.9,52,2,913,0)="""RTN"",""IBCBB"",73,0)"
^XMB(3.9,52,2,914,0)=" . S IDDATA=$$INSDEM^IBCEF(IBIFN,IBISEQ)"
^XMB(3.9,52,2,915,0)="""RTN"",""IBCBB"",74,0)"
^XMB(3.9,52,2,916,0)=" . K ^UTILITY(""VADM"",$J),^UTILITY(""VAPA"",$J)"
^XMB(3.9,52,2,917,0)="""RTN"",""IBCBB"",75,0)"
^XMB(3.9,52,2,918,0)=" . I $P(IDDATA,U,1) Q   ; birthdate exists"
^XMB(3.9,52,2,919,0)="""RTN"",""IBCBB"",76,0)"
^XMB(3.9,52,2,920,0)=" . ; IB error codes"
^XMB(3.9,52,2,921,0)="""RTN"",""IBCBB"",77,0)"
^XMB(3.9,52,2,922,0)=" . ;    IB221 - primary insured's dob missing"
^XMB(3.9,52,2,923,0)="""RTN"",""IBCBB"",78,0)"
^XMB(3.9,52,2,924,0)=" . ;    IB222 - secondary insured's dob missing"
^XMB(3.9,52,2,925,0)="""RTN"",""IBCBB"",79,0)"
^XMB(3.9,52,2,926,0)=" . ;    IB223 - tertiary insured's dob missing"
^XMB(3.9,52,2,927,0)="""RTN"",""IBCBB"",80,0)"
^XMB(3.9,52,2,928,0)=" . S IBERRNO=220+IBISEQ"
^XMB(3.9,52,2,929,0)="""RTN"",""IBCBB"",81,0)"
^XMB(3.9,52,2,930,0)=" . S IBER=IBER_""IB""_IBERRNO_"";"""
^XMB(3.9,52,2,931,0)="""RTN"",""IBCBB"",82,0)"
^XMB(3.9,52,2,932,0)=" . Q"
^XMB(3.9,52,2,933,0)="""RTN"",""IBCBB"",83,0)"
^XMB(3.9,52,2,934,0)=" ;"
^XMB(3.9,52,2,935,0)="""RTN"",""IBCBB"",84,0)"
^XMB(3.9,52,2,936,0)=" D ^IBCBB1"
^XMB(3.9,52,2,937,0)="""RTN"",""IBCBB"",85,0)"
^XMB(3.9,52,2,938,0)=" Q"
^XMB(3.9,52,2,939,0)="""RTN"",""IBCBB"",86,0)"
^XMB(3.9,52,2,940,0)=" ;"
^XMB(3.9,52,2,941,0)="""RTN"",""IBCBB"",87,0)"
^XMB(3.9,52,2,942,0)="EDIT(IBIFN) ; Run edits from within the billing edit screens"
^XMB(3.9,52,2,943,0)="""RTN"",""IBCBB"",88,0)"
^XMB(3.9,52,2,944,0)=" N IBVIEW,IBDISP,IBNOFIX,DIR,X,Y"
^XMB(3.9,52,2,945,0)="""RTN"",""IBCBB"",89,0)"
^XMB(3.9,52,2,946,0)=" S (IBNOFIX,IBVIEW,IBDISP)=1"
^XMB(3.9,52,2,947,0)="""RTN"",""IBCBB"",90,0)"
^XMB(3.9,52,2,948,0)=" D EDITS^IBCB2"
^XMB(3.9,52,2,949,0)="""RTN"",""IBCBB"",91,0)"
^XMB(3.9,52,2,950,0)=" W ! S DIR(""A"")=""Press RETURN to continue"",DIR(0)=""E"" D ^DIR K DIR"
^XMB(3.9,52,2,951,0)="""RTN"",""IBCBB"",92,0)"
^XMB(3.9,52,2,952,0)=" Q"
^XMB(3.9,52,2,953,0)="""RTN"",""IBCBB"",93,0)"
^XMB(3.9,52,2,954,0)=" ;"
^XMB(3.9,52,2,955,0)="""RTN"",""IBCBB"",94,0)"
^XMB(3.9,52,2,956,0)="TOB(IBND0) ;"
^XMB(3.9,52,2,957,0)="""RTN"",""IBCBB"",95,0)"
^XMB(3.9,52,2,958,0)=" ; IBND0 = the 0-node of the bill (file 399)"
^XMB(3.9,52,2,959,0)="""RTN"",""IBCBB"",96,0)"
^XMB(3.9,52,2,960,0)=" Q ($P(IBND0,U,24)_$P($G(^DGCR(399.1,+$P(IBND0,U,25),0)),U,2)_$P(IBND0,U,26))"
^XMB(3.9,52,2,961,0)="""RTN"",""IBCBB"",97,0)"
^XMB(3.9,52,2,962,0)=" ;"
^XMB(3.9,52,2,963,0)="""RTN"",""IBCEF4"")"
^XMB(3.9,52,2,964,0)="0^4^B28792521^B27604330"
^XMB(3.9,52,2,965,0)="""RTN"",""IBCEF4"",1,0)"
^XMB(3.9,52,2,966,0)="IBCEF4 ;ALB/TMP - MRA/EDI ACTIVATED UTILITIES ;06-FEB-96"
^XMB(3.9,52,2,967,0)="""RTN"",""IBCEF4"",2,0)"
^XMB(3.9,52,2,968,0)=" ;;2.0;INTEGRATED BILLING;**51,137,232,155,296,327**;21-MAR-94"
^XMB(3.9,52,2,969,0)="""RTN"",""IBCEF4"",3,0)"
^XMB(3.9,52,2,970,0)=" ;"
^XMB(3.9,52,2,971,0)="""RTN"",""IBCEF4"",4,0)"
^XMB(3.9,52,2,972,0)="EDIACTV(IBEDIMRA) ; Returns 0 if EDI or MRA is not active, "
^XMB(3.9,52,2,973,0)="""RTN"",""IBCEF4"",5,0)"
^XMB(3.9,52,2,974,0)=" ; otherwise, returns 1"
^XMB(3.9,52,2,975,0)="""RTN"",""IBCEF4"",6,0)"
^XMB(3.9,52,2,976,0)=" ; IBEDIMRA : 1= checking if EDI is active, 2= checking if MRA is active"
^XMB(3.9,52,2,977,0)="""RTN"",""IBCEF4"",7,0)"
^XMB(3.9,52,2,978,0)=" N IBEDI"
^XMB(3.9,52,2,979,0)="""RTN"",""IBCEF4"",8,0)"
^XMB(3.9,52,2,980,0)=" S IBEDI=$P($G(^IBE(350.9,1,8)),U,10)"
^XMB(3.9,52,2,981,0)="""RTN"",""IBCEF4"",9,0)"
^XMB(3.9,52,2,982,0)=" Q $S('IBEDI:0,IBEDI=3:1,1:IBEDI=IBEDIMRA)"
^XMB(3.9,52,2,983,0)="""RTN"",""IBCEF4"",10,0)"
^XMB(3.9,52,2,984,0)=" ;"
^XMB(3.9,52,2,985,0)="""RTN"",""IBCEF4"",11,0)"
^XMB(3.9,52,2,986,0)="RATEOK(IBIFN) ; Returns 1 if rate type of bill IBIFN is transmittable"
^XMB(3.9,52,2,987,0)="""RTN"",""IBCEF4"",12,0)"
^XMB(3.9,52,2,988,0)=" Q +$P($G(^DGCR(399.3,+$P($G(^DGCR(399,IBIFN,0)),U,7),0)),U,10)"
^XMB(3.9,52,2,989,0)="""RTN"",""IBCEF4"",13,0)"
^XMB(3.9,52,2,990,0)=" ;"
^XMB(3.9,52,2,991,0)="""RTN"",""IBCEF4"",14,0)"
^XMB(3.9,52,2,992,0)="INSOK(INS) ; Determine EDI activation status of insurance co"
^XMB(3.9,52,2,993,0)="""RTN"",""IBCEF4"",15,0)"
^XMB(3.9,52,2,994,0)=" Q +$G(^DIC(36,INS,3))  ;1 = TEST, 2 = LIVE, 0 = NOT ACTIVE FOR EDI"
^XMB(3.9,52,2,995,0)="""RTN"",""IBCEF4"",16,0)"
^XMB(3.9,52,2,996,0)=" ;"
^XMB(3.9,52,2,997,0)="""RTN"",""IBCEF4"",17,0)"
^XMB(3.9,52,2,998,0)="BSTATX(IBIFN) ; Returns internal value of bill's latest transmission status"
^XMB(3.9,52,2,999,0)="""RTN"",""IBCEF4"",18,0)"
^XMB(3.9,52,2,1000,0)=" N IBDA"
^XMB(3.9,52,2,1001,0)="""RTN"",""IBCEF4"",19,0)"
^XMB(3.9,52,2,1002,0)=" Q $P($G(^IBA(364,+$$LAST364(IBIFN),0)),U,3)"
^XMB(3.9,52,2,1003,0)="""RTN"",""IBCEF4"",20,0)"
^XMB(3.9,52,2,1004,0)=" ;"
^XMB(3.9,52,2,1005,0)="""RTN"",""IBCEF4"",21,0)"
^XMB(3.9,52,2,1006,0)="LAST364(IBIFN) ; Determine ien of latest transmit bill record for a bill"
^XMB(3.9,52,2,1007,0)="""RTN"",""IBCEF4"",22,0)"
^XMB(3.9,52,2,1008,0)=" Q +$O(^IBA(364,""ABDT"",IBIFN,+$O(^IBA(364,""ABDT"",IBIFN,""""),-1),""""),-1)"
^XMB(3.9,52,2,1009,0)="""RTN"",""IBCEF4"",23,0)"
^XMB(3.9,52,2,1010,0)=" ;"
^XMB(3.9,52,2,1011,0)="""RTN"",""IBCEF4"",24,0)"
^XMB(3.9,52,2,1012,0)="TXMT(IBIFN,IBWHY,IBNEW) ; Determine if bill # IBIFN is 'transmittable'"
^XMB(3.9,52,2,1013,0)="""RTN"",""IBCEF4"",25,0)"
^XMB(3.9,52,2,1014,0)=" ; IBNEW = flag is 1 if new entry - don't check for entry in file 364"
^XMB(3.9,52,2,1015,0)="""RTN"",""IBCEF4"",26,0)"
^XMB(3.9,52,2,1016,0)=" ; Function returns:"
^XMB(3.9,52,2,1017,0)="""RTN"",""IBCEF4"",27,0)"
^XMB(3.9,52,2,1018,0)=" ;        0 if not transmittable"
^XMB(3.9,52,2,1019,0)="""RTN"",""IBCEF4"",28,0)"
^XMB(3.9,52,2,1020,0)=" ;        if transmittable, the entire node 3 of the insurance company"
^XMB(3.9,52,2,1021,0)="""RTN"",""IBCEF4"",29,0)"
^XMB(3.9,52,2,1022,0)=" ;  and, if passed by reference IBWHY = reason not transmittable"
^XMB(3.9,52,2,1023,0)="""RTN"",""IBCEF4"",30,0)"
^XMB(3.9,52,2,1024,0)=" ;                    1 if local print"
^XMB(3.9,52,2,1025,0)="""RTN"",""IBCEF4"",31,0)"
^XMB(3.9,52,2,1026,0)=" ;                    2 if EDI/MRA not active"
^XMB(3.9,52,2,1027,0)="""RTN"",""IBCEF4"",32,0)"
^XMB(3.9,52,2,1028,0)=" ;                    3 if rate type not transmittable"
^XMB(3.9,52,2,1029,0)="""RTN"",""IBCEF4"",33,0)"
^XMB(3.9,52,2,1030,0)=" ;                    4 if no transmit for insurance co"
^XMB(3.9,52,2,1031,0)="""RTN"",""IBCEF4"",34,0)"
^XMB(3.9,52,2,1032,0)=" ;                    5 if failed txmn rules"
^XMB(3.9,52,2,1033,0)="""RTN"",""IBCEF4"",35,0)"
^XMB(3.9,52,2,1034,0)=" ;                      and IBWHY(0) = ien of rule failed"
^XMB(3.9,52,2,1035,0)="""RTN"",""IBCEF4"",36,0)"
^XMB(3.9,52,2,1036,0)=" ;                    6 if Rx with missing/invalid NDC format"
^XMB(3.9,52,2,1037,0)="""RTN"",""IBCEF4"",37,0)"
^XMB(3.9,52,2,1038,0)=" ;"
^XMB(3.9,52,2,1039,0)="""RTN"",""IBCEF4"",38,0)"
^XMB(3.9,52,2,1040,0)=" N IB,IB0,IBOK,IBCOB,IBMCR,X1"
^XMB(3.9,52,2,1041,0)="""RTN"",""IBCEF4"",39,0)"
^XMB(3.9,52,2,1042,0)=" S IBOK=1,IB=IBIFN,IBWHY="""""
^XMB(3.9,52,2,1043,0)="""RTN"",""IBCEF4"",40,0)"
^XMB(3.9,52,2,1044,0)=" ;"
^XMB(3.9,52,2,1045,0)="""RTN"",""IBCEF4"",41,0)"
^XMB(3.9,52,2,1046,0)=" S IBCOB=$$COBN^IBCEF(IB),IB(.07)=+$G(^DGCR(399,IB,""I""_IBCOB))"
^XMB(3.9,52,2,1047,0)="""RTN"",""IBCEF4"",42,0)"
^XMB(3.9,52,2,1048,0)=" S IBMCR=$$MCRWNR^IBEFUNC(IB(.07))"
^XMB(3.9,52,2,1049,0)="""RTN"",""IBCEF4"",43,0)"
^XMB(3.9,52,2,1050,0)=" ; Does bill have force local print flag set?"
^XMB(3.9,52,2,1051,0)="""RTN"",""IBCEF4"",44,0)"
^XMB(3.9,52,2,1052,0)=" I 'IBMCR D  G:IBWHY TXMTQ  ; MCR WNR not curr ins"
^XMB(3.9,52,2,1053,0)="""RTN"",""IBCEF4"",45,0)"
^XMB(3.9,52,2,1054,0)=" . I $S($$MRASEC(IBIFN):$P($G(^DGCR(399,IBIFN,""TX"")),U,9)=1,1:$P($G(^DGCR(399,IBIFN,""TX"")),U,8)=1) S IBOK=0,IBWHY=1"
^XMB(3.9,52,2,1055,0)="""RTN"",""IBCEF4"",46,0)"
^XMB(3.9,52,2,1056,0)=" I '$G(IBNEW),'$O(^IBA(364,""B"",IBIFN,0)),$P($G(^DGCR(399,IBIFN,0)),U,13)>2,'$$RETN^PRCAFN(IBIFN) S IBOK=0 G TXMTQ ; Not recognized as transmittable when it was authorized"
^XMB(3.9,52,2,1057,0)="""RTN"",""IBCEF4"",47,0)"
^XMB(3.9,52,2,1058,0)=" I $O(^IBA(364,""B"",IBIFN,0)),$$INSOK(IB(.07)),$$BSTATX(IBIFN)'=""X"" G TXMTQ ;Already determined to be transmittable - entry exists for bill in transmit bill file"
^XMB(3.9,52,2,1059,0)="""RTN"",""IBCEF4"",48,0)"
^XMB(3.9,52,2,1060,0)=" S IB(.03)=$S('IBMCR:1,1:2) ; EDI(1) or MRA(2)"
^XMB(3.9,52,2,1061,0)="""RTN"",""IBCEF4"",49,0)"
^XMB(3.9,52,2,1062,0)=" S IB(.04)=$S('$$INPAT^IBCEF(IB,1):1,1:2) ;Outpt(1) or Inpt(2)"
^XMB(3.9,52,2,1063,0)="""RTN"",""IBCEF4"",50,0)"
^XMB(3.9,52,2,1064,0)=" S IB(.05)=$S($$FT^IBCEF(IB)=3:1,1:2) ;Inst(1) or Prof(2)"
^XMB(3.9,52,2,1065,0)="""RTN"",""IBCEF4"",51,0)"
^XMB(3.9,52,2,1066,0)=" ; Execute unmodifiable, general edits"
^XMB(3.9,52,2,1067,0)="""RTN"",""IBCEF4"",52,0)"
^XMB(3.9,52,2,1068,0)=" S X1=$$EDIACTV(IB(.03))"
^XMB(3.9,52,2,1069,0)="""RTN"",""IBCEF4"",53,0)"
^XMB(3.9,52,2,1070,0)=" I 'X1 S IBWHY=2"
^XMB(3.9,52,2,1071,0)="""RTN"",""IBCEF4"",54,0)"
^XMB(3.9,52,2,1072,0)=" I 'IBWHY S X1=$$RATEOK(IBIFN) S:'X1 IBWHY=3"
^XMB(3.9,52,2,1073,0)="""RTN"",""IBCEF4"",55,0)"
^XMB(3.9,52,2,1074,0)=" I 'IBWHY S X1=$$INSOK(+IB(.07)) S:'X1 IBWHY=4"
^XMB(3.9,52,2,1075,0)="""RTN"",""IBCEF4"",56,0)"
^XMB(3.9,52,2,1076,0)=" I 'IBWHY,$$ISRX^IBCEF1(IBIFN) D  ;S:'X1 IBWHY=6"
^XMB(3.9,52,2,1077,0)="""RTN"",""IBCEF4"",57,0)"
^XMB(3.9,52,2,1078,0)=" . ; Check for Rxs and NDC # format valid (5-4-2)"
^XMB(3.9,52,2,1079,0)="""RTN"",""IBCEF4"",58,0)"
^XMB(3.9,52,2,1080,0)=" . ;IF THIS IS A UB92 DO NOT SEND ELECTRONIC"
^XMB(3.9,52,2,1081,0)="""RTN"",""IBCEF4"",59,0)"
^XMB(3.9,52,2,1082,0)=" . I $$FT^IBCEF(IBIFN)=3 S IBWHY=1"
^XMB(3.9,52,2,1083,0)="""RTN"",""IBCEF4"",60,0)"
^XMB(3.9,52,2,1084,0)=" . ;"
^XMB(3.9,52,2,1085,0)="""RTN"",""IBCEF4"",61,0)"
^XMB(3.9,52,2,1086,0)=" . Q  ;;CHECK REMOVAL SO NON NDC FORMAT NUMBERS WILL GO"
^XMB(3.9,52,2,1087,0)="""RTN"",""IBCEF4"",62,0)"
^XMB(3.9,52,2,1088,0)=" . N Z,Z0,Z00"
^XMB(3.9,52,2,1089,0)="""RTN"",""IBCEF4"",63,0)"
^XMB(3.9,52,2,1090,0)=" . S Z="""" F  S Z=$O(^IBA(362.4,""AIFN""_IBIFN,Z)) Q:Z=""""!'X1  D  Q:'X1"
^XMB(3.9,52,2,1091,0)="""RTN"",""IBCEF4"",64,0)"
^XMB(3.9,52,2,1092,0)=" .. S Z0=0 F  S Z0=$O(^IBA(362.4,""AIFN""_IBIFN,Z,Z0)) Q:'Z0  D  Q:'X1"
^XMB(3.9,52,2,1093,0)="""RTN"",""IBCEF4"",65,0)"
^XMB(3.9,52,2,1094,0)=" ... S Z00=$G(^IBA(362.4,Z0,0))"
^XMB(3.9,52,2,1095,0)="""RTN"",""IBCEF4"",66,0)"
^XMB(3.9,52,2,1096,0)=" ... Q:$S($P(Z00,U,8)="""":1,1:$L($P(Z00,U,8))=11)"
^XMB(3.9,52,2,1097,0)="""RTN"",""IBCEF4"",67,0)"
^XMB(3.9,52,2,1098,0)=" ... I $P(Z00,U,9)'=4 S X1=0"
^XMB(3.9,52,2,1099,0)="""RTN"",""IBCEF4"",68,0)"
^XMB(3.9,52,2,1100,0)=" ; Only continue if general edits are passed"
^XMB(3.9,52,2,1101,0)="""RTN"",""IBCEF4"",69,0)"
^XMB(3.9,52,2,1102,0)=" I $$COB^IBCEF(IB)=""S"" D"
^XMB(3.9,52,2,1103,0)="""RTN"",""IBCEF4"",70,0)"
^XMB(3.9,52,2,1104,0)=" . S COBINS=$P($G(^DGCR(399,IB,""M"")),U,IBCOB+1)"
^XMB(3.9,52,2,1105,0)="""RTN"",""IBCEF4"",71,0)"
^XMB(3.9,52,2,1106,0)=" . I 'COBINS Q"
^XMB(3.9,52,2,1107,0)="""RTN"",""IBCEF4"",72,0)"
^XMB(3.9,52,2,1108,0)=" . I IBMCR S IBWHY=1,$P(^DGCR(399,IBIFN,""TX""),U,8)=1"
^XMB(3.9,52,2,1109,0)="""RTN"",""IBCEF4"",73,0)"
^XMB(3.9,52,2,1110,0)=" I IBWHY S IBOK=0 G TXMTQ"
^XMB(3.9,52,2,1111,0)="""RTN"",""IBCEF4"",74,0)"
^XMB(3.9,52,2,1112,0)=" S IBOK=$$EDIT(IBIFN,.IB,.IBWHY)"
^XMB(3.9,52,2,1113,0)="""RTN"",""IBCEF4"",75,0)"
^XMB(3.9,52,2,1114,0)=" G:'IBOK TXMTQ"
^XMB(3.9,52,2,1115,0)="""RTN"",""IBCEF4"",76,0)"
^XMB(3.9,52,2,1116,0)=" ;"
^XMB(3.9,52,2,1117,0)="""RTN"",""IBCEF4"",77,0)"
^XMB(3.9,52,2,1118,0)="TXMTQ ;"
^XMB(3.9,52,2,1119,0)="""RTN"",""IBCEF4"",78,0)"
^XMB(3.9,52,2,1120,0)=" I IBOK S IBOK=$G(^DIC(36,+IB(.07),3))"
^XMB(3.9,52,2,1121,0)="""RTN"",""IBCEF4"",79,0)"
^XMB(3.9,52,2,1122,0)=" Q IBOK"
^XMB(3.9,52,2,1123,0)="""RTN"",""IBCEF4"",80,0)"
^XMB(3.9,52,2,1124,0)=" ;"
^XMB(3.9,52,2,1125,0)="""RTN"",""IBCEF4"",81,0)"
^XMB(3.9,52,2,1126,0)="MRASEC(IBIFN) ; Returns 1 if current bill is secondary to MCR WNR"
^XMB(3.9,52,2,1127,0)="""RTN"",""IBCEF4"",82,0)"
^XMB(3.9,52,2,1128,0)=" N IBSEQ,IB,Z"
^XMB(3.9,52,2,1129,0)="""RTN"",""IBCEF4"",83,0)"
^XMB(3.9,52,2,1130,0)=" S IB=0"
^XMB(3.9,52,2,1131,0)="""RTN"",""IBCEF4"",84,0)"
^XMB(3.9,52,2,1132,0)=" ; Chk if MCR WNR is prev insurer with MRA on file"
^XMB(3.9,52,2,1133,0)="""RTN"",""IBCEF4"",85,0)"
^XMB(3.9,52,2,1134,0)=" S IBSEQ=$$COBN^IBCEF(IBIFN)-1"
^XMB(3.9,52,2,1135,0)="""RTN"",""IBCEF4"",86,0)"
^XMB(3.9,52,2,1136,0)=" S Z=$$MCRONBIL^IBEFUNC(IBIFN,IBSEQ) I +Z=1,$P(Z,U,2)=1,$$CHK^IBCEMU1(IBIFN) S IB=1"
^XMB(3.9,52,2,1137,0)="""RTN"",""IBCEF4"",87,0)"
^XMB(3.9,52,2,1138,0)=" Q IB"
^XMB(3.9,52,2,1139,0)="""RTN"",""IBCEF4"",88,0)"
^XMB(3.9,52,2,1140,0)=" ;"
^XMB(3.9,52,2,1141,0)="""RTN"",""IBCEF4"",89,0)"
^XMB(3.9,52,2,1142,0)="EDIT(IBIFN,IB,IBWHY) ; Find, execute edits applying to bill to see if transmittable"
^XMB(3.9,52,2,1143,0)="""RTN"",""IBCEF4"",90,0)"
^XMB(3.9,52,2,1144,0)=" ; IBIFN = ien of bill in file 399"
^XMB(3.9,52,2,1145,0)="""RTN"",""IBCEF4"",91,0)"
^XMB(3.9,52,2,1146,0)=" ; IB = array containing necessary data for xref search from bill"
^XMB(3.9,52,2,1147,0)="""RTN"",""IBCEF4"",92,0)"
^XMB(3.9,52,2,1148,0)=" ;      subscripted by field # in file 364.4"
^XMB(3.9,52,2,1149,0)="""RTN"",""IBCEF4"",93,0)"
^XMB(3.9,52,2,1150,0)=" ;"
^XMB(3.9,52,2,1151,0)="""RTN"",""IBCEF4"",94,0)"
^XMB(3.9,52,2,1152,0)=" ;  Matrix entries:"
^XMB(3.9,52,2,1153,0)="""RTN"",""IBCEF4"",95,0)"
^XMB(3.9,52,2,1154,0)=" ;    IB(.03): 1=EDI specific, 2=MRA specific"
^XMB(3.9,52,2,1155,0)="""RTN"",""IBCEF4"",96,0)"
^XMB(3.9,52,2,1156,0)=" ;    IB(.04): 1=Outpatient or 2=inpatient only (currently defaults to 3)"
^XMB(3.9,52,2,1157,0)="""RTN"",""IBCEF4"",97,0)"
^XMB(3.9,52,2,1158,0)=" ;    IB(.05): 1=Only institutional or 2=only professional"
^XMB(3.9,52,2,1159,0)="""RTN"",""IBCEF4"",98,0)"
^XMB(3.9,52,2,1160,0)=" ;          X: Anything valid"
^XMB(3.9,52,2,1161,0)="""RTN"",""IBCEF4"",99,0)"
^XMB(3.9,52,2,1162,0)=" ;"
^XMB(3.9,52,2,1163,0)="""RTN"",""IBCEF4"",100,0)"
^XMB(3.9,52,2,1164,0)=" ;                 MRA-EDI    IN-OUT     INST-PROF"
^XMB(3.9,52,2,1165,0)="""RTN"",""IBCEF4"",101,0)"
^XMB(3.9,52,2,1166,0)=" ;  Level          -------    ------     ---------"
^XMB(3.9,52,2,1167,0)="""RTN"",""IBCEF4"",102,0)"
^XMB(3.9,52,2,1168,0)=" ;    1               X          X           X"
^XMB(3.9,52,2,1169,0)="""RTN"",""IBCEF4"",103,0)"
^XMB(3.9,52,2,1170,0)=" ;    2               X          X        IB(.05)"
^XMB(3.9,52,2,1171,0)="""RTN"",""IBCEF4"",104,0)"
^XMB(3.9,52,2,1172,0)=" ;    3               X       IB(.04)        X"
^XMB(3.9,52,2,1173,0)="""RTN"",""IBCEF4"",105,0)"
^XMB(3.9,52,2,1174,0)=" ;    4               X       IB(.04)     IB(.05)"
^XMB(3.9,52,2,1175,0)="""RTN"",""IBCEF4"",106,0)"
^XMB(3.9,52,2,1176,0)=" ;    5            IB(.03)       X           X"
^XMB(3.9,52,2,1177,0)="""RTN"",""IBCEF4"",107,0)"
^XMB(3.9,52,2,1178,0)=" ;    6            IB(.03)       X        IB(.05) "
^XMB(3.9,52,2,1179,0)="""RTN"",""IBCEF4"",108,0)"
^XMB(3.9,52,2,1180,0)=" ;    7            IB(.03)    IB(.04)        X"
^XMB(3.9,52,2,1181,0)="""RTN"",""IBCEF4"",109,0)"
^XMB(3.9,52,2,1182,0)=" ;    8            IB(.03)    IB(.04)     IB(.05)"
^XMB(3.9,52,2,1183,0)="""RTN"",""IBCEF4"",110,0)"
^XMB(3.9,52,2,1184,0)=" ;"
^XMB(3.9,52,2,1185,0)="""RTN"",""IBCEF4"",111,0)"
^XMB(3.9,52,2,1186,0)=" N IB0,IB1,IB2,IB3,IB4,IBDA,IBFT,IBPASS,IBSEQ,IBT,IBNOCK"
^XMB(3.9,52,2,1187,0)="""RTN"",""IBCEF4"",112,0)"
^XMB(3.9,52,2,1188,0)=" I '$G(IB(.03)) S IBPASS=0 G EDITQ"
^XMB(3.9,52,2,1189,0)="""RTN"",""IBCEF4"",113,0)"
^XMB(3.9,52,2,1190,0)=" S IBFT=$$FT^IBCEF(IBIFN)"
^XMB(3.9,52,2,1191,0)="""RTN"",""IBCEF4"",114,0)"
^XMB(3.9,52,2,1192,0)=" ;"
^XMB(3.9,52,2,1193,0)="""RTN"",""IBCEF4"",115,0)"
^XMB(3.9,52,2,1194,0)=" S IBPASS=1"
^XMB(3.9,52,2,1195,0)="""RTN"",""IBCEF4"",116,0)"
^XMB(3.9,52,2,1196,0)=" F IBSEQ=1:1:8 D  Q:'IBPASS  ; Loop thru levels in matrix"
^XMB(3.9,52,2,1197,0)="""RTN"",""IBCEF4"",117,0)"
^XMB(3.9,52,2,1198,0)=" . F IB1=1:1:3 Q:'IBPASS  F IB2=1:1:3 Q:'IBPASS  F IB3=1:1:3 Q:'IBPASS  D"
^XMB(3.9,52,2,1199,0)="""RTN"",""IBCEF4"",118,0)"
^XMB(3.9,52,2,1200,0)=" .. S IB4=0 F  S IB4=$O(^IBE(364.4,""AD"",IB1,IB2,IB3,IB4)) Q:'IB4  I $O(^(IB4,0)) D  Q:'IBPASS"
^XMB(3.9,52,2,1201,0)="""RTN"",""IBCEF4"",119,0)"
^XMB(3.9,52,2,1202,0)=" ... S IBDA=0"
^XMB(3.9,52,2,1203,0)="""RTN"",""IBCEF4"",120,0)"
^XMB(3.9,52,2,1204,0)=" ... F   S IBDA=$O(^IBE(364.4,""AD"",IB1,IB2,IB3,IB4,IBDA)) Q:'IBDA  S IB0=$G(^IBE(364.4,IBDA,0)) I IB0'="""",'$D(IBNOCK(IBDA)) D  Q:'IBPASS"
^XMB(3.9,52,2,1205,0)="""RTN"",""IBCEF4"",121,0)"
^XMB(3.9,52,2,1206,0)=" .... I $P(IB0,U,2)>DT S IBNOCK(IBDA)="""" Q  ; Not activated yet"
^XMB(3.9,52,2,1207,0)="""RTN"",""IBCEF4"",122,0)"
^XMB(3.9,52,2,1208,0)=" .... I $P(IB0,U,6),$P(IB0,U,6)'>DT  S IBNOCK(IBDA)="""" Q  ; Inactive"
^XMB(3.9,52,2,1209,0)="""RTN"",""IBCEF4"",123,0)"
^XMB(3.9,52,2,1210,0)=" .... I $P(IB0,U,11),IB3'=3,$S(IBFT=3:IB3'=1,IBFT=2:IB3'=2,1:0) S IBNOCK(IBDA)="""" Q  ; Form type not included - not used for form type rule (0)"
^XMB(3.9,52,2,1211,0)="""RTN"",""IBCEF4"",124,0)"
^XMB(3.9,52,2,1212,0)=" .... I IB4=1,'$D(^IBE(364.4,IBDA,3,""B"",+IB(.07))) S IBNOCK(IBDA)="""" Q  ; Ins not included for rule"
^XMB(3.9,52,2,1213,0)="""RTN"",""IBCEF4"",125,0)"
^XMB(3.9,52,2,1214,0)=" .... I IB4=2,$D(^IBE(364.4,IBDA,2,""B"",+IB(.07))) S IBNOCK(IBDA)="""" Q  ; Ins is excluded from rule"
^XMB(3.9,52,2,1215,0)="""RTN"",""IBCEF4"",126,0)"
^XMB(3.9,52,2,1216,0)=" .... S IBT=$G(^IBE(364.4,IBDA,1))"
^XMB(3.9,52,2,1217,0)="""RTN"",""IBCEF4"",127,0)"
^XMB(3.9,52,2,1218,0)=" .... ; Code can assume IBIFN, IBDA and IB(.03 thru .05 and .07) exist"
^XMB(3.9,52,2,1219,0)="""RTN"",""IBCEF4"",128,0)"
^XMB(3.9,52,2,1220,0)=" .... I IBT'="""" X IBT I '$T S IBPASS=0,IBWHY(0)=IBDA,IBWHY=5"
^XMB(3.9,52,2,1221,0)="""RTN"",""IBCEF4"",129,0)"
^XMB(3.9,52,2,1222,0)="EDITQ Q IBPASS"
^XMB(3.9,52,2,1223,0)="""RTN"",""IBCEF4"",130,0)"
^XMB(3.9,52,2,1224,0)=" ;"
^XMB(3.9,52,2,1225,0)="""RTN"",""IBCEF4"",131,0)"
^XMB(3.9,52,2,1226,0)="STATUS(IBIFN) ; Function returns whether or not bill currently has a status"
^XMB(3.9,52,2,1227,0)="""RTN"",""IBCEF4"",132,0)"
^XMB(3.9,52,2,1228,0)=" ;  message or EOB message not yet fully reviewed -"
^XMB(3.9,52,2,1229,0)="""RTN"",""IBCEF4"",133,0)"
^XMB(3.9,52,2,1230,0)=" ; (only for transmittable bills)"
^XMB(3.9,52,2,1231,0)="""RTN"",""IBCEF4"",134,0)"
^XMB(3.9,52,2,1232,0)=" ; IBIFN = ien of bill in file 399"
^XMB(3.9,52,2,1233,0)="""RTN"",""IBCEF4"",135,0)"
^XMB(3.9,52,2,1234,0)=" ; Returns:"
^XMB(3.9,52,2,1235,0)="""RTN"",""IBCEF4"",136,0)"
^XMB(3.9,52,2,1236,0)=" ; 0 = None found"
^XMB(3.9,52,2,1237,0)="""RTN"",""IBCEF4"",137,0)"
^XMB(3.9,52,2,1238,0)=" ; If found, returns a pieced string as follows:"
^XMB(3.9,52,2,1239,0)="""RTN"",""IBCEF4"",138,0)"
^XMB(3.9,52,2,1240,0)=" ;"
^XMB(3.9,52,2,1241,0)="""RTN"",""IBCEF4"",139,0)"
^XMB(3.9,52,2,1242,0)=" ;   [1] ien of transmit bill entry (file 364) associated with an"
^XMB(3.9,52,2,1243,0)="""RTN"",""IBCEF4"",140,0)"
^XMB(3.9,52,2,1244,0)=" ;       entry in file 361 with an unreviewed status message"
^XMB(3.9,52,2,1245,0)="""RTN"",""IBCEF4"",141,0)"
^XMB(3.9,52,2,1246,0)=" ;   [2] ien of transmit bill entry (file 364) associated with an"
^XMB(3.9,52,2,1247,0)="""RTN"",""IBCEF4"",142,0)"
^XMB(3.9,52,2,1248,0)=" ;       entry in file 361.1 with an unreviewed EOB"
^XMB(3.9,52,2,1249,0)="""RTN"",""IBCEF4"",143,0)"
^XMB(3.9,52,2,1250,0)=" ;"
^XMB(3.9,52,2,1251,0)="""RTN"",""IBCEF4"",144,0)"
^XMB(3.9,52,2,1252,0)=" N IB,Z,Z0"
^XMB(3.9,52,2,1253,0)="""RTN"",""IBCEF4"",145,0)"
^XMB(3.9,52,2,1254,0)=" S IB="""""
^XMB(3.9,52,2,1255,0)="""RTN"",""IBCEF4"",146,0)"
^XMB(3.9,52,2,1256,0)=" S Z="""" F  S Z=$O(^IBM(361,""B"",IBIFN,Z),-1) Q:'Z  I $P($G(^IBM(361,Z,0)),U,9)<2,$P(^(0),U,11) S $P(IB,U)=$P(^(0),U,11) Q"
^XMB(3.9,52,2,1257,0)="""RTN"",""IBCEF4"",147,0)"
^XMB(3.9,52,2,1258,0)=" ;"
^XMB(3.9,52,2,1259,0)="""RTN"",""IBCEF4"",148,0)"
^XMB(3.9,52,2,1260,0)=" S Z="""" F  S Z=$O(^IBM(361.1,""B"",IBIFN,Z),-1) Q:'Z  I $P($G(^IBM(361.1,Z,0)),U,16)<2,$P(^(0),U,19) S $P(IB,U,2)=$P(^(0),U,19) Q"
^XMB(3.9,52,2,1261,0)="""RTN"",""IBCEF4"",149,0)"
^XMB(3.9,52,2,1262,0)=" ;"
^XMB(3.9,52,2,1263,0)="""RTN"",""IBCEF4"",150,0)"
^XMB(3.9,52,2,1264,0)=" Q IB"
^XMB(3.9,52,2,1265,0)="""RTN"",""IBCEF4"",151,0)"
^XMB(3.9,52,2,1266,0)=" ;"
^XMB(3.9,52,2,1267,0)="""RTN"",""IBCEF4"",152,0)"
^XMB(3.9,52,2,1268,0)="TEST(IBIFN) ; Returns 1 if bill IBIFN is a transmission test bill, 0 if not"
^XMB(3.9,52,2,1269,0)="""RTN"",""IBCEF4"",153,0)"
^XMB(3.9,52,2,1270,0)=" Q +$S($G(^TMP(""IBEDI_TEST_BATCH"",$J)):1,1:+$P($G(^IBA(364,+$$LAST364(IBIFN),0)),U,7))"
^XMB(3.9,52,2,1271,0)="""RTN"",""IBCEF4"",154,0)"
^XMB(3.9,52,2,1272,0)=" ;"
^XMB(3.9,52,2,1273,0)="""RTN"",""IBEFUNC"")"
^XMB(3.9,52,2,1274,0)="0^3^B47438335^B45602678"
^XMB(3.9,52,2,1275,0)="""RTN"",""IBEFUNC"",1,0)"
^XMB(3.9,52,2,1276,0)="IBEFUNC ;ALB/RLW - EXTRINSIC FUNCTIONS ;12-JUN-92"
^XMB(3.9,52,2,1277,0)="""RTN"",""IBEFUNC"",2,0)"
^XMB(3.9,52,2,1278,0)=" ;;2.0;INTEGRATED BILLING;**55,91,106,139,51,153,232,155,249,327**;21-MAR-94"
^XMB(3.9,52,2,1279,0)="""RTN"",""IBEFUNC"",3,0)"
^XMB(3.9,52,2,1280,0)=" ;"
^XMB(3.9,52,2,1281,0)="""RTN"",""IBEFUNC"",4,0)"
^XMB(3.9,52,2,1282,0)="ETXT(X) ; -- output error text from 350.8"
^XMB(3.9,52,2,1283,0)="""RTN"",""IBEFUNC"",5,0)"
^XMB(3.9,52,2,1284,0)=" ; -- input error code"
^XMB(3.9,52,2,1285,0)="""RTN"",""IBEFUNC"",6,0)"
^XMB(3.9,52,2,1286,0)=" N Y S Y=X"
^XMB(3.9,52,2,1287,0)="""RTN"",""IBEFUNC"",7,0)"
^XMB(3.9,52,2,1288,0)=" I X="""" G ETXTQ"
^XMB(3.9,52,2,1289,0)="""RTN"",""IBEFUNC"",8,0)"
^XMB(3.9,52,2,1290,0)=" S Y=$P($G(^IBE(350.8,+$O(^IBE(350.8,""AC"",X,0)),0)),U,2)"
^XMB(3.9,52,2,1291,0)="""RTN"",""IBEFUNC"",9,0)"
^XMB(3.9,52,2,1292,0)="ETXTQ Q Y"
^XMB(3.9,52,2,1293,0)="""RTN"",""IBEFUNC"",10,0)"
^XMB(3.9,52,2,1294,0)=" ;"
^XMB(3.9,52,2,1295,0)="""RTN"",""IBEFUNC"",11,0)"
^XMB(3.9,52,2,1296,0)="IGN(X,Y) ; ignore means test? for appt type on dates"
^XMB(3.9,52,2,1297,0)="""RTN"",""IBEFUNC"",12,0)"
^XMB(3.9,52,2,1298,0)=" ; -- input x = mas appt type"
^XMB(3.9,52,2,1299,0)="""RTN"",""IBEFUNC"",13,0)"
^XMB(3.9,52,2,1300,0)=" ;          y = appt date"
^XMB(3.9,52,2,1301,0)="""RTN"",""IBEFUNC"",14,0)"
^XMB(3.9,52,2,1302,0)=" ;    output  = true if this appt type should not be billed for"
^XMB(3.9,52,2,1303,0)="""RTN"",""IBEFUNC"",15,0)"
^XMB(3.9,52,2,1304,0)=" ;              Means Test billing (352.1,.04) for given date"
^XMB(3.9,52,2,1305,0)="""RTN"",""IBEFUNC"",16,0)"
^XMB(3.9,52,2,1306,0)=" ;"
^XMB(3.9,52,2,1307,0)="""RTN"",""IBEFUNC"",17,0)"
^XMB(3.9,52,2,1308,0)=" I '$G(X)!('$G(Y)) Q 1"
^XMB(3.9,52,2,1309,0)="""RTN"",""IBEFUNC"",18,0)"
^XMB(3.9,52,2,1310,0)=" Q +$P($G(^IBE(352.1,+$O(^(+$O(^IBE(352.1,""AIVDT"",+X,-(Y+.1))),0)),0)),U,4)"
^XMB(3.9,52,2,1311,0)="""RTN"",""IBEFUNC"",19,0)"
^XMB(3.9,52,2,1312,0)=" ;"
^XMB(3.9,52,2,1313,0)="""RTN"",""IBEFUNC"",20,0)"
^XMB(3.9,52,2,1314,0)="DSP(X,Y) ; display on input screen?"
^XMB(3.9,52,2,1315,0)="""RTN"",""IBEFUNC"",21,0)"
^XMB(3.9,52,2,1316,0)=" ; --    input X = mas appt type (P409.1)"
^XMB(3.9,52,2,1317,0)="""RTN"",""IBEFUNC"",22,0)"
^XMB(3.9,52,2,1318,0)=" ;             Y = date"
^XMB(3.9,52,2,1319,0)="""RTN"",""IBEFUNC"",23,0)"
^XMB(3.9,52,2,1320,0)=" ;       output  = true if appt type X (352.1,.02) should be displayed as"
^XMB(3.9,52,2,1321,0)="""RTN"",""IBEFUNC"",24,0)"
^XMB(3.9,52,2,1322,0)=" ;          a potential billable visit (352.1,.06) on given date Y (352.1,.03)"
^XMB(3.9,52,2,1323,0)="""RTN"",""IBEFUNC"",25,0)"
^XMB(3.9,52,2,1324,0)=" ;"
^XMB(3.9,52,2,1325,0)="""RTN"",""IBEFUNC"",26,0)"
^XMB(3.9,52,2,1326,0)=" I '$G(X)!('$G(Y)) Q 0"
^XMB(3.9,52,2,1327,0)="""RTN"",""IBEFUNC"",27,0)"
^XMB(3.9,52,2,1328,0)=" Q +$P($G(^IBE(352.1,+$O(^(+$O(^IBE(352.1,""AIVDT"",+X,-(Y+.1))),0)),0)),U,6)"
^XMB(3.9,52,2,1329,0)="""RTN"",""IBEFUNC"",28,0)"
^XMB(3.9,52,2,1330,0)=" ;"
^XMB(3.9,52,2,1331,0)="""RTN"",""IBEFUNC"",29,0)"
^XMB(3.9,52,2,1332,0)="RPT(X,Y) ; print on report?"
^XMB(3.9,52,2,1333,0)="""RTN"",""IBEFUNC"",30,0)"
^XMB(3.9,52,2,1334,0)=" ; -- input X = mas appt type (P409.1)"
^XMB(3.9,52,2,1335,0)="""RTN"",""IBEFUNC"",31,0)"
^XMB(3.9,52,2,1336,0)=" ;          Y = date"
^XMB(3.9,52,2,1337,0)="""RTN"",""IBEFUNC"",32,0)"
^XMB(3.9,52,2,1338,0)=" ;    output  = true if appt type X (352.1,.02) should be printed on 'Vets w/ Ins and Opt"
^XMB(3.9,52,2,1339,0)="""RTN"",""IBEFUNC"",33,0)"
^XMB(3.9,52,2,1340,0)=" ;               Visits' report (352.1,.05) on given date Y (352.1,.06)"
^XMB(3.9,52,2,1341,0)="""RTN"",""IBEFUNC"",34,0)"
^XMB(3.9,52,2,1342,0)=" ;"
^XMB(3.9,52,2,1343,0)="""RTN"",""IBEFUNC"",35,0)"
^XMB(3.9,52,2,1344,0)=" I '$G(X)!('$G(Y)) Q 0"
^XMB(3.9,52,2,1345,0)="""RTN"",""IBEFUNC"",36,0)"
^XMB(3.9,52,2,1346,0)=" Q +$P($G(^IBE(352.1,+$O(^(+$O(^IBE(352.1,""AIVDT"",+X,-(Y+.1))),0)),0)),U,5)"
^XMB(3.9,52,2,1347,0)="""RTN"",""IBEFUNC"",37,0)"
^XMB(3.9,52,2,1348,0)=" ;"
^XMB(3.9,52,2,1349,0)="""RTN"",""IBEFUNC"",38,0)"
^XMB(3.9,52,2,1350,0)="NBDIS(X,Y) ; Is disposition non-billable?"
^XMB(3.9,52,2,1351,0)="""RTN"",""IBEFUNC"",39,0)"
^XMB(3.9,52,2,1352,0)=" ; -- input X = disposition (P37)"
^XMB(3.9,52,2,1353,0)="""RTN"",""IBEFUNC"",40,0)"
^XMB(3.9,52,2,1354,0)=" ;          Y = date of appt"
^XMB(3.9,52,2,1355,0)="""RTN"",""IBEFUNC"",41,0)"
^XMB(3.9,52,2,1356,0)=" ;    output  = true (1) if disposition should be ignored for"
^XMB(3.9,52,2,1357,0)="""RTN"",""IBEFUNC"",42,0)"
^XMB(3.9,52,2,1358,0)=" ;              Means test billing (352.2,.03) for given date"
^XMB(3.9,52,2,1359,0)="""RTN"",""IBEFUNC"",43,0)"
^XMB(3.9,52,2,1360,0)=" ;"
^XMB(3.9,52,2,1361,0)="""RTN"",""IBEFUNC"",44,0)"
^XMB(3.9,52,2,1362,0)=" I '$G(X)!('$G(Y)) Q 0"
^XMB(3.9,52,2,1363,0)="""RTN"",""IBEFUNC"",45,0)"
^XMB(3.9,52,2,1364,0)=" Q +$P($G(^IBE(352.2,+$O(^(+$O(^IBE(352.2,""AIVDT"",+X,-(Y+.1))),0)),0)),U,3)"
^XMB(3.9,52,2,1365,0)="""RTN"",""IBEFUNC"",46,0)"
^XMB(3.9,52,2,1366,0)=" ;"
^XMB(3.9,52,2,1367,0)="""RTN"",""IBEFUNC"",47,0)"
^XMB(3.9,52,2,1368,0)="NBCSC(X,Y) ; Is clinic stop code non-billable?"
^XMB(3.9,52,2,1369,0)="""RTN"",""IBEFUNC"",48,0)"
^XMB(3.9,52,2,1370,0)=" ; -- input X = clinic stop code (P40.7)"
^XMB(3.9,52,2,1371,0)="""RTN"",""IBEFUNC"",49,0)"
^XMB(3.9,52,2,1372,0)=" ;          Y = date of appt"
^XMB(3.9,52,2,1373,0)="""RTN"",""IBEFUNC"",50,0)"
^XMB(3.9,52,2,1374,0)=" ;    output  = true (1) if clinic stop code should be ignored for"
^XMB(3.9,52,2,1375,0)="""RTN"",""IBEFUNC"",51,0)"
^XMB(3.9,52,2,1376,0)=" ;              Means test billing (352.3,.03) for given date"
^XMB(3.9,52,2,1377,0)="""RTN"",""IBEFUNC"",52,0)"
^XMB(3.9,52,2,1378,0)=" ;"
^XMB(3.9,52,2,1379,0)="""RTN"",""IBEFUNC"",53,0)"
^XMB(3.9,52,2,1380,0)=" I '$G(X)!('$G(Y)) Q 0"
^XMB(3.9,52,2,1381,0)="""RTN"",""IBEFUNC"",54,0)"
^XMB(3.9,52,2,1382,0)=" Q +$P($G(^IBE(352.3,+$O(^(+$O(^IBE(352.3,""AIVDT"",+X,-(Y+.1))),0)),0)),U,3)"
^XMB(3.9,52,2,1383,0)="""RTN"",""IBEFUNC"",55,0)"
^XMB(3.9,52,2,1384,0)=" ;"
^XMB(3.9,52,2,1385,0)="""RTN"",""IBEFUNC"",56,0)"
^XMB(3.9,52,2,1386,0)="NBCL(X,Y) ; Is clinic non-billable?"
^XMB(3.9,52,2,1387,0)="""RTN"",""IBEFUNC"",57,0)"
^XMB(3.9,52,2,1388,0)=" ; -- input X = clinic (P44)"
^XMB(3.9,52,2,1389,0)="""RTN"",""IBEFUNC"",58,0)"
^XMB(3.9,52,2,1390,0)=" ;          Y = date of appt"
^XMB(3.9,52,2,1391,0)="""RTN"",""IBEFUNC"",59,0)"
^XMB(3.9,52,2,1392,0)=" ;    output  = true (1) if clinic should be ignored for"
^XMB(3.9,52,2,1393,0)="""RTN"",""IBEFUNC"",60,0)"
^XMB(3.9,52,2,1394,0)=" ;              Means test billing (352.4,.03) for given date"
^XMB(3.9,52,2,1395,0)="""RTN"",""IBEFUNC"",61,0)"
^XMB(3.9,52,2,1396,0)=" ;"
^XMB(3.9,52,2,1397,0)="""RTN"",""IBEFUNC"",62,0)"
^XMB(3.9,52,2,1398,0)=" I '$G(X)!('$G(Y)) Q 0"
^XMB(3.9,52,2,1399,0)="""RTN"",""IBEFUNC"",63,0)"
^XMB(3.9,52,2,1400,0)=" Q +$P($G(^IBE(352.4,+$O(^(+$O(^IBE(352.4,""AIVDT"",+X,-(Y+.1))),0)),0)),U,3)"
^XMB(3.9,52,2,1401,0)="""RTN"",""IBEFUNC"",64,0)"
^XMB(3.9,52,2,1402,0)=" ;"
^XMB(3.9,52,2,1403,0)="""RTN"",""IBEFUNC"",65,0)"
^XMB(3.9,52,2,1404,0)="NBST(X,Y) ; Is clinic stop code non-billable for Third Party?"
^XMB(3.9,52,2,1405,0)="""RTN"",""IBEFUNC"",66,0)"
^XMB(3.9,52,2,1406,0)=" ; -- input X = clinic stop code (P40.7), Y = appt date"
^XMB(3.9,52,2,1407,0)="""RTN"",""IBEFUNC"",67,0)"
^XMB(3.9,52,2,1408,0)=" ;    output  = true (1) if stop non-billable for Third Party (352.3,.05) for given dt"
^XMB(3.9,52,2,1409,0)="""RTN"",""IBEFUNC"",68,0)"
^XMB(3.9,52,2,1410,0)=" ;"
^XMB(3.9,52,2,1411,0)="""RTN"",""IBEFUNC"",69,0)"
^XMB(3.9,52,2,1412,0)=" I '$G(X)!('$G(Y)) Q 0"
^XMB(3.9,52,2,1413,0)="""RTN"",""IBEFUNC"",70,0)"
^XMB(3.9,52,2,1414,0)=" Q +$P($G(^IBE(352.3,+$O(^(+$O(^IBE(352.3,""AIVDTT2"",+X,-(Y+.1))),0)),0)),U,5)"
^XMB(3.9,52,2,1415,0)="""RTN"",""IBEFUNC"",71,0)"
^XMB(3.9,52,2,1416,0)=" ;"
^XMB(3.9,52,2,1417,0)="""RTN"",""IBEFUNC"",72,0)"
^XMB(3.9,52,2,1418,0)="NBCT(X,Y) ; Is clinic non-billable for Third Party?"
^XMB(3.9,52,2,1419,0)="""RTN"",""IBEFUNC"",73,0)"
^XMB(3.9,52,2,1420,0)=" ; -- input X = clinic (P44), Y = appt dt"
^XMB(3.9,52,2,1421,0)="""RTN"",""IBEFUNC"",74,0)"
^XMB(3.9,52,2,1422,0)=" ;    output  = true (1) if clinic non-billable for Third Party (352.4,.05) for given date"
^XMB(3.9,52,2,1423,0)="""RTN"",""IBEFUNC"",75,0)"
^XMB(3.9,52,2,1424,0)=" ;"
^XMB(3.9,52,2,1425,0)="""RTN"",""IBEFUNC"",76,0)"
^XMB(3.9,52,2,1426,0)=" I '$G(X)!('$G(Y)) Q 0"
^XMB(3.9,52,2,1427,0)="""RTN"",""IBEFUNC"",77,0)"
^XMB(3.9,52,2,1428,0)=" Q +$P($G(^IBE(352.4,+$O(^(+$O(^IBE(352.4,""AIVDTT2"",+X,-(Y+.1))),0)),0)),U,5)"
^XMB(3.9,52,2,1429,0)="""RTN"",""IBEFUNC"",78,0)"
^XMB(3.9,52,2,1430,0)=" ;"
^XMB(3.9,52,2,1431,0)="""RTN"",""IBEFUNC"",79,0)"
^XMB(3.9,52,2,1432,0)="NABST(X,Y) ; Returns true (1) if stop code flagged to be ignored by Third Party auto biller (use DT)"
^XMB(3.9,52,2,1433,0)="""RTN"",""IBEFUNC"",80,0)"
^XMB(3.9,52,2,1434,0)=" S:'$G(Y) Y=DT I '$G(X) Q 0"
^XMB(3.9,52,2,1435,0)="""RTN"",""IBEFUNC"",81,0)"
^XMB(3.9,52,2,1436,0)=" Q +$P($G(^IBE(352.3,+$O(^(+$O(^IBE(352.3,""AIVDTT2"",+X,-(Y+.1))),0)),0)),U,6)"
^XMB(3.9,52,2,1437,0)="""RTN"",""IBEFUNC"",82,0)"
^XMB(3.9,52,2,1438,0)=" ;"
^XMB(3.9,52,2,1439,0)="""RTN"",""IBEFUNC"",83,0)"
^XMB(3.9,52,2,1440,0)="NABCT(X,Y) ; Returns true (1) if clinic is flagged to be ignored by Third Party auto biller (use DT)"
^XMB(3.9,52,2,1441,0)="""RTN"",""IBEFUNC"",84,0)"
^XMB(3.9,52,2,1442,0)=" S:'$G(Y) Y=DT I '$G(X) Q 0"
^XMB(3.9,52,2,1443,0)="""RTN"",""IBEFUNC"",85,0)"
^XMB(3.9,52,2,1444,0)=" Q +$P($G(^IBE(352.4,+$O(^(+$O(^IBE(352.4,""AIVDTT2"",+X,-(Y+.1))),0)),0)),U,6)"
^XMB(3.9,52,2,1445,0)="""RTN"",""IBEFUNC"",86,0)"
^XMB(3.9,52,2,1446,0)=" ;"
^XMB(3.9,52,2,1447,0)="""RTN"",""IBEFUNC"",87,0)"
^XMB(3.9,52,2,1448,0)="PT(DFN) ;returns (patient name^long pat id^short pat id) or null if not found"
^XMB(3.9,52,2,1449,0)="""RTN"",""IBEFUNC"",88,0)"
^XMB(3.9,52,2,1450,0)=" N X,IBX S X="""" I $D(DFN) S X=$G(^DPT(+DFN,0)) I X'="""" S X=$P(X,U,1)_U_$P($G(^DPT(DFN,.36)),U,3,4) D"
^XMB(3.9,52,2,1451,0)="""RTN"",""IBEFUNC"",89,0)"
^XMB(3.9,52,2,1452,0)=" . S IBX=$P(^DPT(+DFN,0),U,9)"
^XMB(3.9,52,2,1453,0)="""RTN"",""IBEFUNC"",90,0)"
^XMB(3.9,52,2,1454,0)=" . I $P(X,U,2)="""" S $P(X,U,2)=$E(IBX,1,3)_""-""_$E(IBX,4,5)_""-""_$E(IBX,6,10)"
^XMB(3.9,52,2,1455,0)="""RTN"",""IBEFUNC"",91,0)"
^XMB(3.9,52,2,1456,0)=" . I $P(X,U,3)="""" S $P(X,U,3)=$E(IBX,6,10)"
^XMB(3.9,52,2,1457,0)="""RTN"",""IBEFUNC"",92,0)"
^XMB(3.9,52,2,1458,0)=" Q X"
^XMB(3.9,52,2,1459,0)="""RTN"",""IBEFUNC"",93,0)"
^XMB(3.9,52,2,1460,0)=" ;"
^XMB(3.9,52,2,1461,0)="""RTN"",""IBEFUNC"",94,0)"
^XMB(3.9,52,2,1462,0)="EXSET(X,D0,D1) ;returns external value of a set in file D0, field D1"
^XMB(3.9,52,2,1463,0)="""RTN"",""IBEFUNC"",95,0)"
^XMB(3.9,52,2,1464,0)=" Q $$EXPAND^IBTRE($G(D0),$G(D1),$G(X))"
^XMB(3.9,52,2,1465,0)="""RTN"",""IBEFUNC"",96,0)"
^XMB(3.9,52,2,1466,0)=" ;"
^XMB(3.9,52,2,1467,0)="""RTN"",""IBEFUNC"",97,0)"
^XMB(3.9,52,2,1468,0)="BABCSC(DFN,IBDT) ; -- any billable Third Party visits in encounter file for patient"
^XMB(3.9,52,2,1469,0)="""RTN"",""IBEFUNC"",98,0)"
^XMB(3.9,52,2,1470,0)=" ;  -- Input  dfn = patient,  ibdt = date"
^XMB(3.9,52,2,1471,0)="""RTN"",""IBEFUNC"",99,0)"
^XMB(3.9,52,2,1472,0)=" ;     output     = 1 if any billable stop on date OR 0 if none"
^XMB(3.9,52,2,1473,0)="""RTN"",""IBEFUNC"",100,0)"
^XMB(3.9,52,2,1474,0)=" ;"
^XMB(3.9,52,2,1475,0)="""RTN"",""IBEFUNC"",101,0)"
^XMB(3.9,52,2,1476,0)=" N IBX,IBVAL,IBCBK,IBFILTER"
^XMB(3.9,52,2,1477,0)="""RTN"",""IBEFUNC"",102,0)"
^XMB(3.9,52,2,1478,0)=" S IBX=0"
^XMB(3.9,52,2,1479,0)="""RTN"",""IBEFUNC"",103,0)"
^XMB(3.9,52,2,1480,0)=" I '$G(DFN)!('$G(IBDT)) G BABQ"
^XMB(3.9,52,2,1481,0)="""RTN"",""IBEFUNC"",104,0)"
^XMB(3.9,52,2,1482,0)=" ;"
^XMB(3.9,52,2,1483,0)="""RTN"",""IBEFUNC"",105,0)"
^XMB(3.9,52,2,1484,0)=" S IBVAL(""DFN"")=DFN,IBVAL(""BDT"")=IBDT\1,IBVAL(""EDT"")=IBDT\1+.24"
^XMB(3.9,52,2,1485,0)="""RTN"",""IBEFUNC"",106,0)"
^XMB(3.9,52,2,1486,0)=" ;Ignore if not chkd out, no stop, non-billable stop, non-billable clinic"
^XMB(3.9,52,2,1487,0)="""RTN"",""IBEFUNC"",107,0)"
^XMB(3.9,52,2,1488,0)=" S IBFILTER="""""
^XMB(3.9,52,2,1489,0)="""RTN"",""IBEFUNC"",108,0)"
^XMB(3.9,52,2,1490,0)=" S IBCBK=""I $P(Y0,U,12)=2,$P(Y0,U,3),'$$NBST^IBEFUNC($P(Y0,U,3),+Y0),'$$NBCT^IBEFUNC(+$P(Y0,U,4),+Y0) S (IBX,SDSTOP)=1"""
^XMB(3.9,52,2,1491,0)="""RTN"",""IBEFUNC"",109,0)"
^XMB(3.9,52,2,1492,0)=" D SCAN^IBSDU(""PATIENT/DATE"",.IBVAL,"""",IBCBK,1) K ^TMP(""DIERR"",$J)"
^XMB(3.9,52,2,1493,0)="""RTN"",""IBEFUNC"",110,0)"
^XMB(3.9,52,2,1494,0)=" ;"
^XMB(3.9,52,2,1495,0)="""RTN"",""IBEFUNC"",111,0)"
^XMB(3.9,52,2,1496,0)="BABQ Q IBX"
^XMB(3.9,52,2,1497,0)="""RTN"",""IBEFUNC"",112,0)"
^XMB(3.9,52,2,1498,0)=" ;"
^XMB(3.9,52,2,1499,0)="""RTN"",""IBEFUNC"",113,0)"
^XMB(3.9,52,2,1500,0)="APPTCT(IBOE0) ; Determine if appt encounter/appt has valid status for billing"
^XMB(3.9,52,2,1501,0)="""RTN"",""IBEFUNC"",114,0)"
^XMB(3.9,52,2,1502,0)=" ; Returns 1 if valid, 0 if not"
^XMB(3.9,52,2,1503,0)="""RTN"",""IBEFUNC"",115,0)"
^XMB(3.9,52,2,1504,0)=" ; IBOE0 = the encounter's 0-node (input)"
^XMB(3.9,52,2,1505,0)="""RTN"",""IBEFUNC"",116,0)"
^XMB(3.9,52,2,1506,0)=" N STAT"
^XMB(3.9,52,2,1507,0)="""RTN"",""IBEFUNC"",117,0)"
^XMB(3.9,52,2,1508,0)=" S STAT=$P(IBOE0,U,12) ;Encounter stat"
^XMB(3.9,52,2,1509,0)="""RTN"",""IBEFUNC"",118,0)"
^XMB(3.9,52,2,1510,0)=" I STAT=14 S STAT=2"
^XMB(3.9,52,2,1511,0)="""RTN"",""IBEFUNC"",119,0)"
^XMB(3.9,52,2,1512,0)=" ; Assume 1,2 (and 14 sometimes) are valid, 8 = INPATIENT"
^XMB(3.9,52,2,1513,0)="""RTN"",""IBEFUNC"",120,0)"
^XMB(3.9,52,2,1514,0)=" Q STAT<3"
^XMB(3.9,52,2,1515,0)="""RTN"",""IBEFUNC"",121,0)"
^XMB(3.9,52,2,1516,0)=" ;"
^XMB(3.9,52,2,1517,0)="""RTN"",""IBEFUNC"",122,0)"
^XMB(3.9,52,2,1518,0)="NCTCL(IBOE0) ; Determine if a clinic for an outpt encounter is non-count"
^XMB(3.9,52,2,1519,0)="""RTN"",""IBEFUNC"",123,0)"
^XMB(3.9,52,2,1520,0)=" ; IBOE0 = the 0-node of the encounter"
^XMB(3.9,52,2,1521,0)="""RTN"",""IBEFUNC"",124,0)"
^XMB(3.9,52,2,1522,0)=" Q ($P($G(^SC(+$P(IBOE0,U,4),0)),U,17)=""Y"")"
^XMB(3.9,52,2,1523,0)="""RTN"",""IBEFUNC"",125,0)"
^XMB(3.9,52,2,1524,0)=" ;"
^XMB(3.9,52,2,1525,0)="""RTN"",""IBEFUNC"",126,0)"
^XMB(3.9,52,2,1526,0)="DISCT(IBOE,IBOE0) ; Determine if disposition has valid status for billing"
^XMB(3.9,52,2,1527,0)="""RTN"",""IBEFUNC"",127,0)"
^XMB(3.9,52,2,1528,0)=" ; Returns 1 if valid, 0 if not valid"
^XMB(3.9,52,2,1529,0)="""RTN"",""IBEFUNC"",128,0)"
^XMB(3.9,52,2,1530,0)=" ; IBOE = encounter ien"
^XMB(3.9,52,2,1531,0)="""RTN"",""IBEFUNC"",129,0)"
^XMB(3.9,52,2,1532,0)=" ; IBOE0 = 0-node of encounter (optional)"
^XMB(3.9,52,2,1533,0)="""RTN"",""IBEFUNC"",130,0)"
^XMB(3.9,52,2,1534,0)=" N IBX"
^XMB(3.9,52,2,1535,0)="""RTN"",""IBEFUNC"",131,0)"
^XMB(3.9,52,2,1536,0)=" S IBX=$$DISND^IBSDU(IBOE,$G(IBOE0),2)"
^XMB(3.9,52,2,1537,0)="""RTN"",""IBEFUNC"",132,0)"
^XMB(3.9,52,2,1538,0)=" Q (IBX<2)"
^XMB(3.9,52,2,1539,0)="""RTN"",""IBEFUNC"",133,0)"
^XMB(3.9,52,2,1540,0)=" ;"
^XMB(3.9,52,2,1541,0)="""RTN"",""IBEFUNC"",134,0)"
^XMB(3.9,52,2,1542,0)="NEEDMRA(IBIFN) ; Returns MRA NEEDED STATUS for bill"
^XMB(3.9,52,2,1543,0)="""RTN"",""IBEFUNC"",135,0)"
^XMB(3.9,52,2,1544,0)=" Q $P($G(^DGCR(399,+IBIFN,""TX"")),U,5)"
^XMB(3.9,52,2,1545,0)="""RTN"",""IBEFUNC"",136,0)"
^XMB(3.9,52,2,1546,0)=" ;"
^XMB(3.9,52,2,1547,0)="""RTN"",""IBEFUNC"",137,0)"
^XMB(3.9,52,2,1548,0)="REQMRA(IBIFN) ; Determine from site parameter, ins assigned to bill and txmn"
^XMB(3.9,52,2,1549,0)="""RTN"",""IBEFUNC"",138,0)"
^XMB(3.9,52,2,1550,0)=" ;   rules if request for MRA is needed (MCRWNR must be current ins co)"
^XMB(3.9,52,2,1551,0)="""RTN"",""IBEFUNC"",139,0)"
^XMB(3.9,52,2,1552,0)=" ; ""R"" = not needed due to next carrier not requiring it (txmn rules),"
^XMB(3.9,52,2,1553,0)="""RTN"",""IBEFUNC"",140,0)"
^XMB(3.9,52,2,1554,0)=" ; ""R1"" = not needed due to MRA turned off at site"
^XMB(3.9,52,2,1555,0)="""RTN"",""IBEFUNC"",141,0)"
^XMB(3.9,52,2,1556,0)=" ;  0 = not needed,  1 = needed"
^XMB(3.9,52,2,1557,0)="""RTN"",""IBEFUNC"",142,0)"
^XMB(3.9,52,2,1558,0)=" N IB0,COBINS,COBSEQ,IBOK,Z1,Z0,IBDA,IB00,IB0"
^XMB(3.9,52,2,1559,0)="""RTN"",""IBEFUNC"",143,0)"
^XMB(3.9,52,2,1560,0)=" ;"
^XMB(3.9,52,2,1561,0)="""RTN"",""IBEFUNC"",144,0)"
^XMB(3.9,52,2,1562,0)=" I $$COB^IBCEF(IBIFN)=""A"" S IBOK=0 G REQMRAQ    ; payer sequence = patient not allowed for MRA"
^XMB(3.9,52,2,1563,0)="""RTN"",""IBEFUNC"",145,0)"
^XMB(3.9,52,2,1564,0)=" S COBSEQ=$$COBN^IBCEF(IBIFN)"
^XMB(3.9,52,2,1565,0)="""RTN"",""IBEFUNC"",146,0)"
^XMB(3.9,52,2,1566,0)=" S COBINS=$P($G(^DGCR(399,IBIFN,""M"")),U,COBSEQ)"
^XMB(3.9,52,2,1567,0)="""RTN"",""IBEFUNC"",147,0)"
^XMB(3.9,52,2,1568,0)=" ;Curr ins must = MEDICARE WNR"
^XMB(3.9,52,2,1569,0)="""RTN"",""IBEFUNC"",148,0)"
^XMB(3.9,52,2,1570,0)=" S IBOK=+$$MCRWNR(COBINS)"
^XMB(3.9,52,2,1571,0)="""RTN"",""IBEFUNC"",149,0)"
^XMB(3.9,52,2,1572,0)=" I 'IBOK G REQMRAQ"
^XMB(3.9,52,2,1573,0)="""RTN"",""IBEFUNC"",150,0)"
^XMB(3.9,52,2,1574,0)=" ;"
^XMB(3.9,52,2,1575,0)="""RTN"",""IBEFUNC"",151,0)"
^XMB(3.9,52,2,1576,0)=" I '$$EDIACTV^IBCEF4(2) S IBOK=""R1"" G REQMRAQ ; Site param=NO"
^XMB(3.9,52,2,1577,0)="""RTN"",""IBEFUNC"",152,0)"
^XMB(3.9,52,2,1578,0)=" ;"
^XMB(3.9,52,2,1579,0)="""RTN"",""IBEFUNC"",153,0)"
^XMB(3.9,52,2,1580,0)=" ; Check next ins for MRA needed"
^XMB(3.9,52,2,1581,0)="""RTN"",""IBEFUNC"",154,0)"
^XMB(3.9,52,2,1582,0)=" I COBSEQ'<3 S IBOK=0 G REQMRAQ"
^XMB(3.9,52,2,1583,0)="""RTN"",""IBEFUNC"",155,0)"
^XMB(3.9,52,2,1584,0)=" ;"
^XMB(3.9,52,2,1585,0)="""RTN"",""IBEFUNC"",156,0)"
^XMB(3.9,52,2,1586,0)=" S IB0=$G(^DGCR(399,IBIFN,0))"
^XMB(3.9,52,2,1587,0)="""RTN"",""IBEFUNC"",157,0)"
^XMB(3.9,52,2,1588,0)=" S COBINS=+$P($G(^DGCR(399,IBIFN,""M"")),U,COBSEQ+1)"
^XMB(3.9,52,2,1589,0)="""RTN"",""IBEFUNC"",158,0)"
^XMB(3.9,52,2,1590,0)=" I 'COBINS S IBOK=0 G REQMRAQ ;No next ins"
^XMB(3.9,52,2,1591,0)="""RTN"",""IBEFUNC"",159,0)"
^XMB(3.9,52,2,1592,0)=" I $$COB^IBCEF(IBIFN)=""S"" D  I IBOK=""R2"" G REQMRAQ"
^XMB(3.9,52,2,1593,0)="""RTN"",""IBEFUNC"",160,0)"
^XMB(3.9,52,2,1594,0)=" . S COBINS=$P($G(^DGCR(399,IBIFN,""M"")),U,COBSEQ)"
^XMB(3.9,52,2,1595,0)="""RTN"",""IBEFUNC"",161,0)"
^XMB(3.9,52,2,1596,0)=" . I +$$MCRWNR(COBINS)=1 S IBOK=""R2"""
^XMB(3.9,52,2,1597,0)="""RTN"",""IBEFUNC"",162,0)"
^XMB(3.9,52,2,1598,0)=" ;"
^XMB(3.9,52,2,1599,0)="""RTN"",""IBEFUNC"",163,0)"
^XMB(3.9,52,2,1600,0)=" ; Check only rules with rule type = 2 (MRA REQUEST RESTRICTIONS)"
^XMB(3.9,52,2,1601,0)="""RTN"",""IBEFUNC"",164,0)"
^XMB(3.9,52,2,1602,0)=" S IBDA=0 F  S IBDA=$O(^IBE(364.4,""AC"",2,IBDA)) Q:'IBDA  S IB00=$G(^IBE(364.4,IBDA,0)) D  Q:'IBOK"
^XMB(3.9,52,2,1603,0)="""RTN"",""IBEFUNC"",165,0)"
^XMB(3.9,52,2,1604,0)=" . I $P(IB00,U,2)>DT Q  ; Inactive"
^XMB(3.9,52,2,1605,0)="""RTN"",""IBEFUNC"",166,0)"
^XMB(3.9,52,2,1606,0)=" . I $P(IB00,U,6),$P(IB00,U,6)'>DT Q  ; Expired"
^XMB(3.9,52,2,1607,0)="""RTN"",""IBEFUNC"",167,0)"
^XMB(3.9,52,2,1608,0)=" . S Z0=$$INPAT^IBCEF(IBIFN,1),Z0=$S(Z0=1:2,1:1)"
^XMB(3.9,52,2,1609,0)="""RTN"",""IBEFUNC"",168,0)"
^XMB(3.9,52,2,1610,0)=" . S Z1=$$FT^IBCEF(IBIFN),Z1=$S(Z1=3:1,1:2)"
^XMB(3.9,52,2,1611,0)="""RTN"",""IBEFUNC"",169,0)"
^XMB(3.9,52,2,1612,0)=" . I $S($P(IB00,U,4)=3:1,1:$P(IB00,U,4)=Z0),$S($P(IB00,U,5)=3:1,1:$P(IB00,U,5)=Z1) S Z0=$D(^IBE(364.4,IBDA,3,""B"",COBINS)) I Z0>0 S IBOK=""R"""
^XMB(3.9,52,2,1613,0)="""RTN"",""IBEFUNC"",170,0)"
^XMB(3.9,52,2,1614,0)=" ;"
^XMB(3.9,52,2,1615,0)="""RTN"",""IBEFUNC"",171,0)"
^XMB(3.9,52,2,1616,0)="REQMRAQ Q IBOK"
^XMB(3.9,52,2,1617,0)="""RTN"",""IBEFUNC"",172,0)"
^XMB(3.9,52,2,1618,0)=" ;"
^XMB(3.9,52,2,1619,0)="""RTN"",""IBEFUNC"",173,0)"
^XMB(3.9,52,2,1620,0)="MCRWNR(IBINS) ;Returns whether the ins co IBINS is MEDICARE WNR (Will"
^XMB(3.9,52,2,1621,0)="""RTN"",""IBEFUNC"",174,0)"
^XMB(3.9,52,2,1622,0)=" ;           NOT Reimburse) 0=NO, 1=YES"
^XMB(3.9,52,2,1623,0)="""RTN"",""IBEFUNC"",175,0)"
^XMB(3.9,52,2,1624,0)=" N Z,Z0"
^XMB(3.9,52,2,1625,0)="""RTN"",""IBEFUNC"",176,0)"
^XMB(3.9,52,2,1626,0)=" S Z=0,Z0=$G(^DIC(36,+IBINS,0))"
^XMB(3.9,52,2,1627,0)="""RTN"",""IBEFUNC"",177,0)"
^XMB(3.9,52,2,1628,0)=" I $P(Z0,U,2)=""N"",$P($G(^IBE(355.2,+$P(Z0,U,13),0)),U)=""MEDICARE"" S Z=1"
^XMB(3.9,52,2,1629,0)="""RTN"",""IBEFUNC"",178,0)"
^XMB(3.9,52,2,1630,0)=" Q Z"
^XMB(3.9,52,2,1631,0)="""RTN"",""IBEFUNC"",179,0)"
^XMB(3.9,52,2,1632,0)=" ;"
^XMB(3.9,52,2,1633,0)="""RTN"",""IBEFUNC"",180,0)"
^XMB(3.9,52,2,1634,0)="WNRBILL(IBIFN,IBCOB) ; Returns whether the ins for COB seq IBCOB"
^XMB(3.9,52,2,1635,0)="""RTN"",""IBEFUNC"",181,0)"
^XMB(3.9,52,2,1636,0)=" ;  is MEDICARE will not reimburse"
^XMB(3.9,52,2,1637,0)="""RTN"",""IBEFUNC"",182,0)"
^XMB(3.9,52,2,1638,0)=" ;"
^XMB(3.9,52,2,1639,0)="""RTN"",""IBEFUNC"",183,0)"
^XMB(3.9,52,2,1640,0)=" I $G(IBCOB)="""" S IBCOB=$$COBN^IBCEF(IBIFN)"
^XMB(3.9,52,2,1641,0)="""RTN"",""IBEFUNC"",184,0)"
^XMB(3.9,52,2,1642,0)=" S IBCOB=$TR(IBCOB,""PST"",""123"")"
^XMB(3.9,52,2,1643,0)="""RTN"",""IBEFUNC"",185,0)"
^XMB(3.9,52,2,1644,0)=" Q $$MCRWNR(+$G(^DGCR(399,IBIFN,""I""_IBCOB)))"
^XMB(3.9,52,2,1645,0)="""RTN"",""IBEFUNC"",186,0)"
^XMB(3.9,52,2,1646,0)=" ;"
^XMB(3.9,52,2,1647,0)="""RTN"",""IBEFUNC"",187,0)"
^XMB(3.9,52,2,1648,0)="MCR(IBINS) ;Returns whether the ins co IBINS is MCR Will Reimburse"
^XMB(3.9,52,2,1649,0)="""RTN"",""IBEFUNC"",188,0)"
^XMB(3.9,52,2,1650,0)=" ;          0=NO , 1=YES"
^XMB(3.9,52,2,1651,0)="""RTN"",""IBEFUNC"",189,0)"
^XMB(3.9,52,2,1652,0)=" N Z,Z0"
^XMB(3.9,52,2,1653,0)="""RTN"",""IBEFUNC"",190,0)"
^XMB(3.9,52,2,1654,0)=" S Z=0,Z0=$G(^DIC(36,+IBINS,0))"
^XMB(3.9,52,2,1655,0)="""RTN"",""IBEFUNC"",191,0)"
^XMB(3.9,52,2,1656,0)=" I $P(Z0,U,2)'=""N"",$P($G(^IBE(355.2,+$P(Z0,U,13),0)),U)=""MEDICARE"" S Z=1"
^XMB(3.9,52,2,1657,0)="""RTN"",""IBEFUNC"",192,0)"
^XMB(3.9,52,2,1658,0)=" Q Z"
^XMB(3.9,52,2,1659,0)="""RTN"",""IBEFUNC"",193,0)"
^XMB(3.9,52,2,1660,0)=" ;"
^XMB(3.9,52,2,1661,0)="""RTN"",""IBEFUNC"",194,0)"
^XMB(3.9,52,2,1662,0)="MRATYPE(IBIEN,IBVAR) ; Returns: A = MEDICARE A   B = MEDICARE B"
^XMB(3.9,52,2,1663,0)="""RTN"",""IBEFUNC"",195,0)"
^XMB(3.9,52,2,1664,0)=" ;  C = MEDICARE OTHER    null = NOT MEDICARE"
^XMB(3.9,52,2,1665,0)="""RTN"",""IBEFUNC"",196,0)"
^XMB(3.9,52,2,1666,0)=" ; for the plan associated with bill ien IBIEN OR grp plan IBIEN"
^XMB(3.9,52,2,1667,0)="""RTN"",""IBEFUNC"",197,0)"
^XMB(3.9,52,2,1668,0)=" ; If IBVAR = """" or 'C', the data is from bill ien in IBIEN"
^XMB(3.9,52,2,1669,0)="""RTN"",""IBEFUNC"",198,0)"
^XMB(3.9,52,2,1670,0)=" ;          = 'P', the data is from grp policy ien in IBIEN"
^XMB(3.9,52,2,1671,0)="""RTN"",""IBEFUNC"",199,0)"
^XMB(3.9,52,2,1672,0)=" ; "
^XMB(3.9,52,2,1673,0)="""RTN"",""IBEFUNC"",200,0)"
^XMB(3.9,52,2,1674,0)=" N IBPLAN"
^XMB(3.9,52,2,1675,0)="""RTN"",""IBEFUNC"",201,0)"
^XMB(3.9,52,2,1676,0)=" S IBPLAN=$S($G(IBVAR)'=""P"":+$$POLICY^IBCEF(IBIEN,18),1:IBIEN)"
^XMB(3.9,52,2,1677,0)="""RTN"",""IBEFUNC"",202,0)"
^XMB(3.9,52,2,1678,0)=" Q $P($G(^IBA(355.3,+IBPLAN,0)),U,14)"
^XMB(3.9,52,2,1679,0)="""RTN"",""IBEFUNC"",203,0)"
^XMB(3.9,52,2,1680,0)=" ;"
^XMB(3.9,52,2,1681,0)="""RTN"",""IBEFUNC"",204,0)"
^XMB(3.9,52,2,1682,0)="MCRONBIL(IBIFN,IBFLG) ; Returns 0 if MCR WNR not on bill IBIFN"
^XMB(3.9,52,2,1683,0)="""RTN"",""IBEFUNC"",205,0)"
^XMB(3.9,52,2,1684,0)=" ;  1 if on bill, is on or before current ins"
^XMB(3.9,52,2,1685,0)="""RTN"",""IBEFUNC"",206,0)"
^XMB(3.9,52,2,1686,0)=" ;  2 if on bill, but after current ins"
^XMB(3.9,52,2,1687,0)="""RTN"",""IBEFUNC"",207,0)"
^XMB(3.9,52,2,1688,0)=" ; IBFLG = a COB number if second ""^"" piece of return data should be"
^XMB(3.9,52,2,1689,0)="""RTN"",""IBEFUNC"",208,0)"
^XMB(3.9,52,2,1690,0)=" ;         1 if MCRWNR is the insurance at that COB sequence (optional)"
^XMB(3.9,52,2,1691,0)="""RTN"",""IBEFUNC"",209,0)"
^XMB(3.9,52,2,1692,0)=" N Z,IBON,Q"
^XMB(3.9,52,2,1693,0)="""RTN"",""IBEFUNC"",210,0)"
^XMB(3.9,52,2,1694,0)=" S IBON=0,Q=$$COBN^IBCEF(IBIFN)"
^XMB(3.9,52,2,1695,0)="""RTN"",""IBEFUNC"",211,0)"
^XMB(3.9,52,2,1696,0)=" F Z=1:1:3 I $$WNRBILL(IBIFN,Z) S IBON=$S(Q'<Z:1,1:2)_$S('$G(IBFLG):"""",Z'=IBFLG:"""",1:""^1"") Q"
^XMB(3.9,52,2,1697,0)="""RTN"",""IBEFUNC"",212,0)"
^XMB(3.9,52,2,1698,0)=" Q IBON"
^XMB(3.9,52,2,1699,0)="""RTN"",""IBEFUNC"",213,0)"
^XMB(3.9,52,2,1700,0)=" ;"
^XMB(3.9,52,2,1701,0)="""RTN"",""IBEFUNC"",214,0)"
^XMB(3.9,52,2,1702,0)="PROFEE(IBIFN) ; Returns whether any rev codes for prof fees"
^XMB(3.9,52,2,1703,0)="""RTN"",""IBEFUNC"",215,0)"
^XMB(3.9,52,2,1704,0)=" ;  included on bill IBIFN  0 = not included,  1 = included,"
^XMB(3.9,52,2,1705,0)="""RTN"",""IBEFUNC"",216,0)"
^XMB(3.9,52,2,1706,0)=" ;  2 = both inst and prof are included"
^XMB(3.9,52,2,1707,0)="""RTN"",""IBEFUNC"",217,0)"
^XMB(3.9,52,2,1708,0)=" ;"
^XMB(3.9,52,2,1709,0)="""RTN"",""IBEFUNC"",218,0)"
^XMB(3.9,52,2,1710,0)=" N IBPRO,Z"
^XMB(3.9,52,2,1711,0)="""RTN"",""IBEFUNC"",219,0)"
^XMB(3.9,52,2,1712,0)=" S IBPRO=0,Z=$O(^DGCR(399,IBIFN,""RC"",""B"",959)) ; Rev cds 960-989 are prof"
^XMB(3.9,52,2,1713,0)="""RTN"",""IBEFUNC"",220,0)"
^XMB(3.9,52,2,1714,0)=" I Z,Z<990 D"
^XMB(3.9,52,2,1715,0)="""RTN"",""IBEFUNC"",221,0)"
^XMB(3.9,52,2,1716,0)=" . S IBPRO=1"
^XMB(3.9,52,2,1717,0)="""RTN"",""IBEFUNC"",222,0)"
^XMB(3.9,52,2,1718,0)=" . S Z=$O(^DGCR(399,IBIFN,""RC"",""B"",0))"
^XMB(3.9,52,2,1719,0)="""RTN"",""IBEFUNC"",223,0)"
^XMB(3.9,52,2,1720,0)=" . I $S(Z:Z<960,1:0)!($O(^DGCR(399,IBIFN,""RC"",""B"",1000),-1)'<990) S IBPRO=2"
^XMB(3.9,52,2,1721,0)="""RTN"",""IBEFUNC"",224,0)"
^XMB(3.9,52,2,1722,0)=" Q IBPRO"
^XMB(3.9,52,2,1723,0)="""RTN"",""IBEFUNC"",225,0)"
^XMB(3.9,52,2,1724,0)=" ;"
^XMB(3.9,52,2,1725,0)="""RTN"",""IBEFUNC"",226,0)"
^XMB(3.9,52,2,1726,0)="GETMOD(IBIFN,IBCPT,EXT) ; Returns 'list' of modifiers for file 399"
^XMB(3.9,52,2,1727,0)="""RTN"",""IBEFUNC"",227,0)"
^XMB(3.9,52,2,1728,0)=" ;   procedure for bill IBIFN and proc ien IBCPT"
^XMB(3.9,52,2,1729,0)="""RTN"",""IBEFUNC"",228,0)"
^XMB(3.9,52,2,1730,0)=" ;   in modifier seq order, separated by ','"
^XMB(3.9,52,2,1731,0)="""RTN"",""IBEFUNC"",229,0)"
^XMB(3.9,52,2,1732,0)=" ;  If EXT = 1, return the actual modifier, not the ptr"
^XMB(3.9,52,2,1733,0)="""RTN"",""IBEFUNC"",230,0)"
^XMB(3.9,52,2,1734,0)=" N IBMOD,IBZ,IBZ0,IB0,Z"
^XMB(3.9,52,2,1735,0)="""RTN"",""IBEFUNC"",231,0)"
^XMB(3.9,52,2,1736,0)=" S IBZ=0,IBMOD="""""
^XMB(3.9,52,2,1737,0)="""RTN"",""IBEFUNC"",232,0)"
^XMB(3.9,52,2,1738,0)=" F  S IBZ=$O(^DGCR(399,IBIFN,""CP"",IBCPT,""MOD"",""B"",IBZ)) Q:'IBZ  S IBZ0=0 F  S IBZ0=$O(^DGCR(399,IBIFN,""CP"",IBCPT,""MOD"",""B"",IBZ,IBZ0)) Q:'IBZ0  I $D(^DGCR(399,IBIFN,""CP"",IBCPT,""MOD"",IBZ0,0)) S IB0=$G(^(0)) D"
^XMB(3.9,52,2,1739,0)="""RTN"",""IBEFUNC"",233,0)"
^XMB(3.9,52,2,1740,0)=" . I '$G(EXT) S Z=$P(IB0,U,2)"
^XMB(3.9,52,2,1741,0)="""RTN"",""IBEFUNC"",234,0)"
^XMB(3.9,52,2,1742,0)=" . I $G(EXT) S Z=$$MOD^ICPTMOD($P(IB0,U,2),""I""),Z=$S($P(Z,U)=-1:"""",1:$P(Z,U,2))"
^XMB(3.9,52,2,1743,0)="""RTN"",""IBEFUNC"",235,0)"
^XMB(3.9,52,2,1744,0)=" . Q:Z="""""
^XMB(3.9,52,2,1745,0)="""RTN"",""IBEFUNC"",236,0)"
^XMB(3.9,52,2,1746,0)=" . S IBMOD=IBMOD_$S(IBMOD="""":"""",1:"","")_Z"
^XMB(3.9,52,2,1747,0)="""RTN"",""IBEFUNC"",237,0)"
^XMB(3.9,52,2,1748,0)=" Q IBMOD"
^XMB(3.9,52,2,1749,0)="""RTN"",""IBEFUNC"",238,0)"
^XMB(3.9,52,2,1750,0)=" ;"
^XMB(3.9,52,2,1751,0)="""RTN"",""IBEFUNC"",239,0)"
^XMB(3.9,52,2,1752,0)="MODLST(MODS,DESC,IBMOD) ; Returns string of actual mods"
^XMB(3.9,52,2,1753,0)="""RTN"",""IBEFUNC"",240,0)"
^XMB(3.9,52,2,1754,0)=" ; MOVED"
^XMB(3.9,52,2,1755,0)="""RTN"",""IBEFUNC"",241,0)"
^XMB(3.9,52,2,1756,0)=" Q $$MODLST^IBEFUNC2(MODS,$G(DESC),.IBMOD)"
^XMB(3.9,52,2,1757,0)="""RTN"",""IBEFUNC"",242,0)"
^XMB(3.9,52,2,1758,0)=" ;"
^XMB(3.9,52,2,1759,0)="""RTN"",""IBEFUNC"",243,0)"
^XMB(3.9,52,2,1760,0)="GETSPEC(FILE,FIELD) ; Get fld specifier for FIELD # in FILE"
^XMB(3.9,52,2,1761,0)="""RTN"",""IBEFUNC"",244,0)"
^XMB(3.9,52,2,1762,0)=" ; Use to set DIC(""P"") for FILE^DICN"
^XMB(3.9,52,2,1763,0)="""RTN"",""IBEFUNC"",245,0)"
^XMB(3.9,52,2,1764,0)=" N IBZ"
^XMB(3.9,52,2,1765,0)="""RTN"",""IBEFUNC"",246,0)"
^XMB(3.9,52,2,1766,0)=" D FIELD^DID(FILE,FIELD,"""",""SPECIFIER"",""IBZ"")"
^XMB(3.9,52,2,1767,0)="""RTN"",""IBEFUNC"",247,0)"
^XMB(3.9,52,2,1768,0)=" Q $G(IBZ(""SPECIFIER""))"
^XMB(3.9,52,2,1769,0)="""RTN"",""IBEFUNC"",248,0)"
^XMB(3.9,52,2,1770,0)=" ;"
^XMB(3.9,52,2,1771,0)="""VER"")"
^XMB(3.9,52,2,1772,0)="8.0^22.0"
^XMB(3.9,52,2,1773,0)="""^DD"",399,399,101,0)"
^XMB(3.9,52,2,1774,0)="PRIMARY INSURANCE CARRIER^R*P36'X^DIC(36,^M;1^D DD^IBCNS S DIC(""S"")=""I $D(IBDD(+Y)),'$D(^DGCR(399,DA,""""AIC"""",+Y))"" D ^DIC K DIC,IBDD S DIC=DIE,X=+Y K:Y<0 X"
^XMB(3.9,52,2,1775,0)="""^DD"",399,399,101,1,0)"
^XMB(3.9,52,2,1776,0)="^.1"
^XMB(3.9,52,2,1777,0)="""^DD"",399,399,101,1,1,0)"
^XMB(3.9,52,2,1778,0)="^^TRIGGER^399^122"
^XMB(3.9,52,2,1779,0)="""^DD"",399,399,101,1,1,1)"
^XMB(3.9,52,2,1780,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$$PRVNUM^IBCU(DA,X,1) X ^DD(399,101,1,1,1.4)"
^XMB(3.9,52,2,1781,0)="""^DD"",399,399,101,1,1,1.4)"
^XMB(3.9,52,2,1782,0)="S DIH=$G(^DGCR(399,DIV(0),""M1"")),DIV=X S $P(^(""M1""),U,2)=DIV,DIH=399,DIG=122 D ^DICR"
^XMB(3.9,52,2,1783,0)="""^DD"",399,399,101,1,1,2)"
^XMB(3.9,52,2,1784,0)="Q"
^XMB(3.9,52,2,1785,0)="""^DD"",399,399,101,1,1,3)"
^XMB(3.9,52,2,1786,0)="Do Not Delete"
^XMB(3.9,52,2,1787,0)="""^DD"",399,399,101,1,1,""%D"",0)"
^XMB(3.9,52,2,1788,0)="^.101^3^3^3020819^^"
^XMB(3.9,52,2,1789,0)="""^DD"",399,399,101,1,1,""%D"",1,0)"
^XMB(3.9,52,2,1790,0)="This trigger sets the Bill Primary Provider # based on the Form Type,  "
^XMB(3.9,52,2,1791,0)="""^DD"",399,399,101,1,1,""%D"",2,0)"
^XMB(3.9,52,2,1792,0)="using the Primary Insurance Companies Hospital or Professional Provider "
^XMB(3.9,52,2,1793,0)="""^DD"",399,399,101,1,1,""%D"",3,0)"
^XMB(3.9,52,2,1794,0)="Number.  Special case for Medicare Part A."
^XMB(3.9,52,2,1795,0)="""^DD"",399,399,101,1,1,""CREATE VALUE"")"
^XMB(3.9,52,2,1796,0)="S X=$$PRVNUM^IBCU(DA,X,1)"
^XMB(3.9,52,2,1797,0)="""^DD"",399,399,101,1,1,""DELETE VALUE"")"
^XMB(3.9,52,2,1798,0)="NO EFFECT"
^XMB(3.9,52,2,1799,0)="""^DD"",399,399,101,1,1,""DT"")"
^XMB(3.9,52,2,1800,0)="3020819"
^XMB(3.9,52,2,1801,0)="""^DD"",399,399,101,1,1,""FIELD"")"
^XMB(3.9,52,2,1802,0)="PRIMARY PROVIDER #"
^XMB(3.9,52,2,1803,0)="""^DD"",399,399,101,1,2,0)"
^XMB(3.9,52,2,1804,0)="^^TRIGGER^399^24"
^XMB(3.9,52,2,1805,0)="""^DD"",399,399,101,1,2,1)"
^XMB(3.9,52,2,1806,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $$COBN^IBCEF(DA)=1 I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""TX"")):^(""TX""),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(399,101,1,2,1.1) X ^DD(399,101,1,2,1.4)"
^XMB(3.9,52,2,1807,0)="""^DD"",399,399,101,1,2,1.1)"
^XMB(3.9,52,2,1808,0)="S X=DIV S X=$S($$REQMRA^IBEFUNC(DA):""1N"",1:"""")"
^XMB(3.9,52,2,1809,0)="""^DD"",399,399,101,1,2,1.4)"
^XMB(3.9,52,2,1810,0)="S DIH=$S($D(^DGCR(399,DIV(0),""TX"")):^(""TX""),1:""""),DIV=X S $P(^(""TX""),U,5)=DIV,DIH=399,DIG=24 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,52,2,1811,0)="""^DD"",399,399,101,1,2,2)"
^XMB(3.9,52,2,1812,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $$COBN^IBCEF(DA)=1 I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""TX"")):^(""TX""),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" X ^DD(399,101,1,2,2.4)"
^XMB(3.9,52,2,1813,0)="""^DD"",399,399,101,1,2,2.4)"
^XMB(3.9,52,2,1814,0)="S DIH=$S($D(^DGCR(399,DIV(0),""TX"")):^(""TX""),1:""""),DIV=X S $P(^(""TX""),U,5)=DIV,DIH=399,DIG=24 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,52,2,1815,0)="""^DD"",399,399,101,1,2,3)"
^XMB(3.9,52,2,1816,0)="DO NOT DELETE"
^XMB(3.9,52,2,1817,0)="""^DD"",399,399,101,1,2,""%D"",0)"
^XMB(3.9,52,2,1818,0)="^^2^2^2990628^"
^XMB(3.9,52,2,1819,0)="""^DD"",399,399,101,1,2,""%D"",1,0)"
^XMB(3.9,52,2,1820,0)="This triggers the CLAIM MRA STATUS to 'MRA NEEDED' (1N) if the primary"
^XMB(3.9,52,2,1821,0)="""^DD"",399,399,101,1,2,""%D"",2,0)"
^XMB(3.9,52,2,1822,0)="insurance is the current insurance and the current insurance = MEDICARE WNR."
^XMB(3.9,52,2,1823,0)="""^DD"",399,399,101,1,2,""CREATE CONDITION"")"
^XMB(3.9,52,2,1824,0)="I $$COBN^IBCEF(DA)=1"
^XMB(3.9,52,2,1825,0)="""^DD"",399,399,101,1,2,""CREATE VALUE"")"
^XMB(3.9,52,2,1826,0)="S X=$S($$REQMRA^IBEFUNC(DA):""1N"",1:"""")"
^XMB(3.9,52,2,1827,0)="""^DD"",399,399,101,1,2,""DELETE CONDITION"")"
^XMB(3.9,52,2,1828,0)="I $$COBN^IBCEF(DA)=1"
^XMB(3.9,52,2,1829,0)="""^DD"",399,399,101,1,2,""DELETE VALUE"")"
^XMB(3.9,52,2,1830,0)="@"
^XMB(3.9,52,2,1831,0)="""^DD"",399,399,101,1,2,""DT"")"
^XMB(3.9,52,2,1832,0)="2990628"
^XMB(3.9,52,2,1833,0)="""^DD"",399,399,101,1,2,""FIELD"")"
^XMB(3.9,52,2,1834,0)="CLAIM MRA STATUS"
^XMB(3.9,52,2,1835,0)="""^DD"",399,399,101,1,3,0)"
^XMB(3.9,52,2,1836,0)="^^TRIGGER^399^27"
^XMB(3.9,52,2,1837,0)="""^DD"",399,399,101,1,3,1)"
^XMB(3.9,52,2,1838,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$S($$MCRWNR^IBEFUNC(X):$$COBN^IBCEF(DA)=1,1:0) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""TX"")):^(""TX""),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="""" X ^DD(399,101,1,3,1.4)"
^XMB(3.9,52,2,1839,0)="""^DD"",399,399,101,1,3,1.4)"
^XMB(3.9,52,2,1840,0)="S DIH=$G(^DGCR(399,DIV(0),""TX"")),DIV=X S $P(^(""TX""),U,8)=DIV,DIH=399,DIG=27 D ^DICR"
^XMB(3.9,52,2,1841,0)="""^DD"",399,399,101,1,3,2)"
^XMB(3.9,52,2,1842,0)="Q"
^XMB(3.9,52,2,1843,0)="""^DD"",399,399,101,1,3,3)"
^XMB(3.9,52,2,1844,0)="Do not delete"
^XMB(3.9,52,2,1845,0)="""^DD"",399,399,101,1,3,""%D"",0)"
^XMB(3.9,52,2,1846,0)="^^3^3^3041119^"
^XMB(3.9,52,2,1847,0)="""^DD"",399,399,101,1,3,""%D"",1,0)"
^XMB(3.9,52,2,1848,0)="When the current insurance is the primary insurance and the primary"
^XMB(3.9,52,2,1849,0)="""^DD"",399,399,101,1,3,""%D"",2,0)"
^XMB(3.9,52,2,1850,0)="insurance is MEDICARE WNR, delete the FORCE CLAIM TO PRINT field as it"
^XMB(3.9,52,2,1851,0)="""^DD"",399,399,101,1,3,""%D"",3,0)"
^XMB(3.9,52,2,1852,0)="is not valid to print an MRA request."
^XMB(3.9,52,2,1853,0)="""^DD"",399,399,101,1,3,""CREATE CONDITION"")"
^XMB(3.9,52,2,1854,0)="S X=$S($$MCRWNR^IBEFUNC(X):$$COBN^IBCEF(DA)=1,1:0)"
^XMB(3.9,52,2,1855,0)="""^DD"",399,399,101,1,3,""CREATE VALUE"")"
^XMB(3.9,52,2,1856,0)="@"
^XMB(3.9,52,2,1857,0)="""^DD"",399,399,101,1,3,""DELETE VALUE"")"
^XMB(3.9,52,2,1858,0)="NO EFFECT"
^XMB(3.9,52,2,1859,0)="""^DD"",399,399,101,1,3,""DT"")"
^XMB(3.9,52,2,1860,0)="3041119"
^XMB(3.9,52,2,1861,0)="""^DD"",399,399,101,1,3,""FIELD"")"
^XMB(3.9,52,2,1862,0)="FORCE CLAIM TO PRINT"
^XMB(3.9,52,2,1863,0)="""^DD"",399,399,101,3)"
^XMB(3.9,52,2,1864,0)="Enter name of insurance carrier to which this bill is to be sent."
^XMB(3.9,52,2,1865,0)="""^DD"",399,399,101,5,1,0)"
^XMB(3.9,52,2,1866,0)="399^112^1"
^XMB(3.9,52,2,1867,0)="""^DD"",399,399,101,12)"
^XMB(3.9,52,2,1868,0)="Only valid insurance companies for this date of care."
^XMB(3.9,52,2,1869,0)="""^DD"",399,399,101,12.1)"
^XMB(3.9,52,2,1870,0)="S DIC(""S"")=""I $D(IBDD(+Y)),'$D(^DGCR(399,DA,""""AIC"""",+Y))"""
^XMB(3.9,52,2,1871,0)="""^DD"",399,399,101,21,0)"
^XMB(3.9,52,2,1872,0)="^^2^2^2990503^^^^"
^XMB(3.9,52,2,1873,0)="""^DD"",399,399,101,21,1,0)"
^XMB(3.9,52,2,1874,0)="This is the name of the insurance carrier to which this bill is to be sent."
^XMB(3.9,52,2,1875,0)="""^DD"",399,399,101,21,2,0)"
^XMB(3.9,52,2,1876,0)="This is from the entries in this patient's file of insurance companies. "
^XMB(3.9,52,2,1877,0)="""^DD"",399,399,101,23,0)"
^XMB(3.9,52,2,1878,0)="^^3^3^2990503^^^"
^XMB(3.9,52,2,1879,0)="""^DD"",399,399,101,23,1,0)"
^XMB(3.9,52,2,1880,0)="Only valid/active insurance companies for this patient can be choosen,"
^XMB(3.9,52,2,1881,0)="""^DD"",399,399,101,23,2,0)"
^XMB(3.9,52,2,1882,0)="as defined by DD^IBCNS.  Company must not already be defined as a carrier "
^XMB(3.9,52,2,1883,0)="""^DD"",399,399,101,23,3,0)"
^XMB(3.9,52,2,1884,0)="(399,102-103) for this bill."
^XMB(3.9,52,2,1885,0)="""^DD"",399,399,101,""DT"")"
^XMB(3.9,52,2,1886,0)="3051215"
^XMB(3.9,52,2,1887,0)="""BLD"",6541,6)"
^XMB(3.9,52,2,1888,0)="^312"
^XMB(3.9,52,2,1889,0)="$END KID IB*2.0*327"
^XMB(3.9,52,6,0)="^3.911A^2^2"
^XMB(3.9,52,6,1,0)="POSTMASTER"
^XMB(3.9,52,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,52,6,"B","POSTMASTER",1)=""
^XMB(3.9,52,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,53,0)="IB-2_SEQ-313_PAT-312.KID^.5^3061008.015735^^^^K"
^XMB(3.9,53,.6)="3061008"
^XMB(3.9,53,1,0)="^3.91A^2^2"
^XMB(3.9,53,1,1,0)=".5^0^3061008.015735^^^^^^^3061008.015735"
^XMB(3.9,53,1,2,0)="1^0^3061008.023352^^^^^^^3061008.023352"
^XMB(3.9,53,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,53,1,"C",.5,1)=""
^XMB(3.9,53,1,"C",1,2)=""
^XMB(3.9,53,2,0)="^^3979^3979^3061008"
^XMB(3.9,53,2,1,0)="$TXT Released IB*2*312 SEQ #313"
^XMB(3.9,53,2,2,0)="Extracted from mail message"
^XMB(3.9,53,2,3,0)="$END TXT"
^XMB(3.9,53,2,4,0)="$KID IB*2.0*312"
^XMB(3.9,53,2,5,0)="**INSTALL NAME**"
^XMB(3.9,53,2,6,0)="IB*2.0*312"
^XMB(3.9,53,2,7,0)="""BLD"",5832,0)"
^XMB(3.9,53,2,8,0)="IB*2.0*312^INTEGRATED BILLING^0^3060523^y"
^XMB(3.9,53,2,9,0)="""BLD"",5832,1,0)"
^XMB(3.9,53,2,10,0)="^^1^1^3050630^"
^XMB(3.9,53,2,11,0)="""BLD"",5832,1,1,0)"
^XMB(3.9,53,2,12,0)="IB SUNSETTING OF OPTIONS"
^XMB(3.9,53,2,13,0)="""BLD"",5832,4,0)"
^XMB(3.9,53,2,14,0)="^9.64PA^^"
^XMB(3.9,53,2,15,0)="""BLD"",5832,""KRN"",0)"
^XMB(3.9,53,2,16,0)="^9.67PA^8989.52^19"
^XMB(3.9,53,2,17,0)="""BLD"",5832,""KRN"",.4,0)"
^XMB(3.9,53,2,18,0)=".4"
^XMB(3.9,53,2,19,0)="""BLD"",5832,""KRN"",.401,0)"
^XMB(3.9,53,2,20,0)=".401"
^XMB(3.9,53,2,21,0)="""BLD"",5832,""KRN"",.402,0)"
^XMB(3.9,53,2,22,0)=".402"
^XMB(3.9,53,2,23,0)="""BLD"",5832,""KRN"",.403,0)"
^XMB(3.9,53,2,24,0)=".403"
^XMB(3.9,53,2,25,0)="""BLD"",5832,""KRN"",.5,0)"
^XMB(3.9,53,2,26,0)=".5"
^XMB(3.9,53,2,27,0)="""BLD"",5832,""KRN"",.84,0)"
^XMB(3.9,53,2,28,0)=".84"
^XMB(3.9,53,2,29,0)="""BLD"",5832,""KRN"",3.6,0)"
^XMB(3.9,53,2,30,0)="3.6"
^XMB(3.9,53,2,31,0)="""BLD"",5832,""KRN"",3.8,0)"
^XMB(3.9,53,2,32,0)="3.8"
^XMB(3.9,53,2,33,0)="""BLD"",5832,""KRN"",9.2,0)"
^XMB(3.9,53,2,34,0)="9.2"
^XMB(3.9,53,2,35,0)="""BLD"",5832,""KRN"",9.8,0)"
^XMB(3.9,53,2,36,0)="9.8"
^XMB(3.9,53,2,37,0)="""BLD"",5832,""KRN"",9.8,""NM"",0)"
^XMB(3.9,53,2,38,0)="^9.68A^17^17"
^XMB(3.9,53,2,39,0)="""BLD"",5832,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,53,2,40,0)="IBAMTD^^0^B18809071"
^XMB(3.9,53,2,41,0)="""BLD"",5832,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,53,2,42,0)="IBAMTS^^0^B17712149"
^XMB(3.9,53,2,43,0)="""BLD"",5832,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,53,2,44,0)="IBAECO^^0^B16561245"
^XMB(3.9,53,2,45,0)="""BLD"",5832,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,53,2,46,0)="IBAMTC^^0^B25558065"
^XMB(3.9,53,2,47,0)="""BLD"",5832,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,53,2,48,0)="IBTRKR2^^0^B5693369"
^XMB(3.9,53,2,49,0)="""BLD"",5832,""KRN"",9.8,""NM"",6,0)"
^XMB(3.9,53,2,50,0)="IBTRKR3^^0^B44426999"
^XMB(3.9,53,2,51,0)="""BLD"",5832,""KRN"",9.8,""NM"",7,0)"
^XMB(3.9,53,2,52,0)="IBTRKR4^^0^B13921705"
^XMB(3.9,53,2,53,0)="""BLD"",5832,""KRN"",9.8,""NM"",8,0)"
^XMB(3.9,53,2,54,0)="IBTRKR5^^0^B30688575"
^XMB(3.9,53,2,55,0)="""BLD"",5832,""KRN"",9.8,""NM"",9,0)"
^XMB(3.9,53,2,56,0)="IBCD^^0^B9728970"
^XMB(3.9,53,2,57,0)="""BLD"",5832,""KRN"",9.8,""NM"",10,0)"
^XMB(3.9,53,2,58,0)="IBAMTED^^0^B11359061"
^XMB(3.9,53,2,59,0)="""BLD"",5832,""KRN"",9.8,""NM"",11,0)"
^XMB(3.9,53,2,60,0)="IBBSHDWN^^0^B27343484"
^XMB(3.9,53,2,61,0)="""BLD"",5832,""KRN"",9.8,""NM"",12,0)"
^XMB(3.9,53,2,62,0)="IBCA^^0^B24308332"
^XMB(3.9,53,2,63,0)="""BLD"",5832,""KRN"",9.8,""NM"",13,0)"
^XMB(3.9,53,2,64,0)="IBTRE2^^0^B32981505"
^XMB(3.9,53,2,65,0)="""BLD"",5832,""KRN"",9.8,""NM"",14,0)"
^XMB(3.9,53,2,66,0)="IBTRKR41^^0^B31657328"
^XMB(3.9,53,2,67,0)="""BLD"",5832,""KRN"",9.8,""NM"",15,0)"
^XMB(3.9,53,2,68,0)="IBECEA3^^0^B67660841"
^XMB(3.9,53,2,69,0)="""BLD"",5832,""KRN"",9.8,""NM"",16,0)"
^XMB(3.9,53,2,70,0)="IBECEA1^^0^B14626334"
^XMB(3.9,53,2,71,0)="""BLD"",5832,""KRN"",9.8,""NM"",17,0)"
^XMB(3.9,53,2,72,0)="IBECEA21^^0^B29059334"
^XMB(3.9,53,2,73,0)="""BLD"",5832,""KRN"",9.8,""NM"",""B"",""IBAECO"",3)"
^XMB(3.9,53,2,74,0)=""
^XMB(3.9,53,2,75,0)="""BLD"",5832,""KRN"",9.8,""NM"",""B"",""IBAMTC"",4)"
^XMB(3.9,53,2,76,0)=""
^XMB(3.9,53,2,77,0)="""BLD"",5832,""KRN"",9.8,""NM"",""B"",""IBAMTD"",1)"
^XMB(3.9,53,2,78,0)=""
^XMB(3.9,53,2,79,0)="""BLD"",5832,""KRN"",9.8,""NM"",""B"",""IBAMTED"",10)"
^XMB(3.9,53,2,80,0)=""
^XMB(3.9,53,2,81,0)="""BLD"",5832,""KRN"",9.8,""NM"",""B"",""IBAMTS"",2)"
^XMB(3.9,53,2,82,0)=""
^XMB(3.9,53,2,83,0)="""BLD"",5832,""KRN"",9.8,""NM"",""B"",""IBBSHDWN"",11)"
^XMB(3.9,53,2,84,0)=""
^XMB(3.9,53,2,85,0)="""BLD"",5832,""KRN"",9.8,""NM"",""B"",""IBCA"",12)"
^XMB(3.9,53,2,86,0)=""
^XMB(3.9,53,2,87,0)="""BLD"",5832,""KRN"",9.8,""NM"",""B"",""IBCD"",9)"
^XMB(3.9,53,2,88,0)=""
^XMB(3.9,53,2,89,0)="""BLD"",5832,""KRN"",9.8,""NM"",""B"",""IBECEA1"",16)"
^XMB(3.9,53,2,90,0)=""
^XMB(3.9,53,2,91,0)="""BLD"",5832,""KRN"",9.8,""NM"",""B"",""IBECEA21"",17)"
^XMB(3.9,53,2,92,0)=""
^XMB(3.9,53,2,93,0)="""BLD"",5832,""KRN"",9.8,""NM"",""B"",""IBECEA3"",15)"
^XMB(3.9,53,2,94,0)=""
^XMB(3.9,53,2,95,0)="""BLD"",5832,""KRN"",9.8,""NM"",""B"",""IBTRE2"",13)"
^XMB(3.9,53,2,96,0)=""
^XMB(3.9,53,2,97,0)="""BLD"",5832,""KRN"",9.8,""NM"",""B"",""IBTRKR2"",5)"
^XMB(3.9,53,2,98,0)=""
^XMB(3.9,53,2,99,0)="""BLD"",5832,""KRN"",9.8,""NM"",""B"",""IBTRKR3"",6)"
^XMB(3.9,53,2,100,0)=""
^XMB(3.9,53,2,101,0)="""BLD"",5832,""KRN"",9.8,""NM"",""B"",""IBTRKR4"",7)"
^XMB(3.9,53,2,102,0)=""
^XMB(3.9,53,2,103,0)="""BLD"",5832,""KRN"",9.8,""NM"",""B"",""IBTRKR41"",14)"
^XMB(3.9,53,2,104,0)=""
^XMB(3.9,53,2,105,0)="""BLD"",5832,""KRN"",9.8,""NM"",""B"",""IBTRKR5"",8)"
^XMB(3.9,53,2,106,0)=""
^XMB(3.9,53,2,107,0)="""BLD"",5832,""KRN"",19,0)"
^XMB(3.9,53,2,108,0)="19"
^XMB(3.9,53,2,109,0)="""BLD"",5832,""KRN"",19,""NM"",0)"
^XMB(3.9,53,2,110,0)="^9.68A^^"
^XMB(3.9,53,2,111,0)="""BLD"",5832,""KRN"",19.1,0)"
^XMB(3.9,53,2,112,0)="19.1"
^XMB(3.9,53,2,113,0)="""BLD"",5832,""KRN"",101,0)"
^XMB(3.9,53,2,114,0)="101"
^XMB(3.9,53,2,115,0)="""BLD"",5832,""KRN"",409.61,0)"
^XMB(3.9,53,2,116,0)="409.61"
^XMB(3.9,53,2,117,0)="""BLD"",5832,""KRN"",771,0)"
^XMB(3.9,53,2,118,0)="771"
^XMB(3.9,53,2,119,0)="""BLD"",5832,""KRN"",870,0)"
^XMB(3.9,53,2,120,0)="870"
^XMB(3.9,53,2,121,0)="""BLD"",5832,""KRN"",8989.51,0)"
^XMB(3.9,53,2,122,0)="8989.51"
^XMB(3.9,53,2,123,0)="""BLD"",5832,""KRN"",8989.52,0)"
^XMB(3.9,53,2,124,0)="8989.52"
^XMB(3.9,53,2,125,0)="""BLD"",5832,""KRN"",8994,0)"
^XMB(3.9,53,2,126,0)="8994"
^XMB(3.9,53,2,127,0)="""BLD"",5832,""KRN"",""B"",.4,.4)"
^XMB(3.9,53,2,128,0)=""
^XMB(3.9,53,2,129,0)="""BLD"",5832,""KRN"",""B"",.401,.401)"
^XMB(3.9,53,2,130,0)=""
^XMB(3.9,53,2,131,0)="""BLD"",5832,""KRN"",""B"",.402,.402)"
^XMB(3.9,53,2,132,0)=""
^XMB(3.9,53,2,133,0)="""BLD"",5832,""KRN"",""B"",.403,.403)"
^XMB(3.9,53,2,134,0)=""
^XMB(3.9,53,2,135,0)="""BLD"",5832,""KRN"",""B"",.5,.5)"
^XMB(3.9,53,2,136,0)=""
^XMB(3.9,53,2,137,0)="""BLD"",5832,""KRN"",""B"",.84,.84)"
^XMB(3.9,53,2,138,0)=""
^XMB(3.9,53,2,139,0)="""BLD"",5832,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,53,2,140,0)=""
^XMB(3.9,53,2,141,0)="""BLD"",5832,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,53,2,142,0)=""
^XMB(3.9,53,2,143,0)="""BLD"",5832,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,53,2,144,0)=""
^XMB(3.9,53,2,145,0)="""BLD"",5832,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,53,2,146,0)=""
^XMB(3.9,53,2,147,0)="""BLD"",5832,""KRN"",""B"",19,19)"
^XMB(3.9,53,2,148,0)=""
^XMB(3.9,53,2,149,0)="""BLD"",5832,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,53,2,150,0)=""
^XMB(3.9,53,2,151,0)="""BLD"",5832,""KRN"",""B"",101,101)"
^XMB(3.9,53,2,152,0)=""
^XMB(3.9,53,2,153,0)="""BLD"",5832,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,53,2,154,0)=""
^XMB(3.9,53,2,155,0)="""BLD"",5832,""KRN"",""B"",771,771)"
^XMB(3.9,53,2,156,0)=""
^XMB(3.9,53,2,157,0)="""BLD"",5832,""KRN"",""B"",870,870)"
^XMB(3.9,53,2,158,0)=""
^XMB(3.9,53,2,159,0)="""BLD"",5832,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,53,2,160,0)=""
^XMB(3.9,53,2,161,0)="""BLD"",5832,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,53,2,162,0)=""
^XMB(3.9,53,2,163,0)="""BLD"",5832,""KRN"",""B"",8994,8994)"
^XMB(3.9,53,2,164,0)=""
^XMB(3.9,53,2,165,0)="""BLD"",5832,""QUES"",0)"
^XMB(3.9,53,2,166,0)="^9.62^^"
^XMB(3.9,53,2,167,0)="""BLD"",5832,""REQB"",0)"
^XMB(3.9,53,2,168,0)="^9.611^9^7"
^XMB(3.9,53,2,169,0)="""BLD"",5832,""REQB"",1,0)"
^XMB(3.9,53,2,170,0)="IB*2.0*321^2"
^XMB(3.9,53,2,171,0)="""BLD"",5832,""REQB"",3,0)"
^XMB(3.9,53,2,172,0)="IB*2.0*240^2"
^XMB(3.9,53,2,173,0)="""BLD"",5832,""REQB"",4,0)"
^XMB(3.9,53,2,174,0)="IB*2.0*214^2"
^XMB(3.9,53,2,175,0)="""BLD"",5832,""REQB"",6,0)"
^XMB(3.9,53,2,176,0)="IB*2.0*234^2"
^XMB(3.9,53,2,177,0)="""BLD"",5832,""REQB"",7,0)"
^XMB(3.9,53,2,178,0)="IB*2.0*249^2"
^XMB(3.9,53,2,179,0)="""BLD"",5832,""REQB"",8,0)"
^XMB(3.9,53,2,180,0)="IB*2.0*292^2"
^XMB(3.9,53,2,181,0)="""BLD"",5832,""REQB"",9,0)"
^XMB(3.9,53,2,182,0)="IB*2.0*336^2"
^XMB(3.9,53,2,183,0)="""BLD"",5832,""REQB"",""B"",""IB*2.0*214"",4)"
^XMB(3.9,53,2,184,0)=""
^XMB(3.9,53,2,185,0)="""BLD"",5832,""REQB"",""B"",""IB*2.0*234"",6)"
^XMB(3.9,53,2,186,0)=""
^XMB(3.9,53,2,187,0)="""BLD"",5832,""REQB"",""B"",""IB*2.0*240"",3)"
^XMB(3.9,53,2,188,0)=""
^XMB(3.9,53,2,189,0)="""BLD"",5832,""REQB"",""B"",""IB*2.0*249"",7)"
^XMB(3.9,53,2,190,0)=""
^XMB(3.9,53,2,191,0)="""BLD"",5832,""REQB"",""B"",""IB*2.0*292"",8)"
^XMB(3.9,53,2,192,0)=""
^XMB(3.9,53,2,193,0)="""BLD"",5832,""REQB"",""B"",""IB*2.0*321"",1)"
^XMB(3.9,53,2,194,0)=""
^XMB(3.9,53,2,195,0)="""BLD"",5832,""REQB"",""B"",""IB*2.0*336"",9)"
^XMB(3.9,53,2,196,0)=""
^XMB(3.9,53,2,197,0)="""MBREQ"")"
^XMB(3.9,53,2,198,0)="0"
^XMB(3.9,53,2,199,0)="""PKG"",200,-1)"
^XMB(3.9,53,2,200,0)="1^1"
^XMB(3.9,53,2,201,0)="""PKG"",200,0)"
^XMB(3.9,53,2,202,0)="INTEGRATED BILLING^IB^INTEGRATED BILLING"
^XMB(3.9,53,2,203,0)="""PKG"",200,20,0)"
^XMB(3.9,53,2,204,0)="^9.402P^2^1"
^XMB(3.9,53,2,205,0)="""PKG"",200,20,2,0)"
^XMB(3.9,53,2,206,0)="2^^IBAXDR"
^XMB(3.9,53,2,207,0)="""PKG"",200,20,2,1)"
^XMB(3.9,53,2,208,0)=""
^XMB(3.9,53,2,209,0)="""PKG"",200,20,""B"",2,2)"
^XMB(3.9,53,2,210,0)=""
^XMB(3.9,53,2,211,0)="""PKG"",200,22,0)"
^XMB(3.9,53,2,212,0)="^9.49I^1^1"
^XMB(3.9,53,2,213,0)="""PKG"",200,22,1,0)"
^XMB(3.9,53,2,214,0)="2.0^2940321^2990406^2447"
^XMB(3.9,53,2,215,0)="""PKG"",200,22,1,""PAH"",1,0)"
^XMB(3.9,53,2,216,0)="312^3060523"
^XMB(3.9,53,2,217,0)="""PKG"",200,22,1,""PAH"",1,1,0)"
^XMB(3.9,53,2,218,0)="^^1^1^3060523"
^XMB(3.9,53,2,219,0)="""PKG"",200,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,53,2,220,0)="IB SUNSETTING OF OPTIONS"
^XMB(3.9,53,2,221,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,53,2,222,0)="Y"
^XMB(3.9,53,2,223,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,53,2,224,0)="^D REP^XPDH"
^XMB(3.9,53,2,225,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,53,2,226,0)="Shall I write over your |FLAG| File"
^XMB(3.9,53,2,227,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,53,2,228,0)="YES"
^XMB(3.9,53,2,229,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,53,2,230,0)="D XPF1^XPDIQ"
^XMB(3.9,53,2,231,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,53,2,232,0)="Y"
^XMB(3.9,53,2,233,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,53,2,234,0)="^D DTA^XPDH"
^XMB(3.9,53,2,235,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,53,2,236,0)="Want my data |FLAG| yours"
^XMB(3.9,53,2,237,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,53,2,238,0)="YES"
^XMB(3.9,53,2,239,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,53,2,240,0)="D XPF2^XPDIQ"
^XMB(3.9,53,2,241,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,53,2,242,0)="YO"
^XMB(3.9,53,2,243,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,53,2,244,0)="^D INHIBIT^XPDH"
^XMB(3.9,53,2,245,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,53,2,246,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,53,2,247,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,53,2,248,0)="YES"
^XMB(3.9,53,2,249,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,53,2,250,0)="D XPI1^XPDIQ"
^XMB(3.9,53,2,251,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,53,2,252,0)="PO^VA(200,:EM"
^XMB(3.9,53,2,253,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,53,2,254,0)="^D MG^XPDH"
^XMB(3.9,53,2,255,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,53,2,256,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,53,2,257,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,53,2,258,0)=""
^XMB(3.9,53,2,259,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,53,2,260,0)="D XPM1^XPDIQ"
^XMB(3.9,53,2,261,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,53,2,262,0)="Y"
^XMB(3.9,53,2,263,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,53,2,264,0)="^D MENU^XPDH"
^XMB(3.9,53,2,265,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,53,2,266,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,53,2,267,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,53,2,268,0)="YES"
^XMB(3.9,53,2,269,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,53,2,270,0)="D XPO1^XPDIQ"
^XMB(3.9,53,2,271,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,53,2,272,0)="Y"
^XMB(3.9,53,2,273,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,53,2,274,0)="^D OPT^XPDH"
^XMB(3.9,53,2,275,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,53,2,276,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,53,2,277,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,53,2,278,0)="YES"
^XMB(3.9,53,2,279,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,53,2,280,0)="D XPZ1^XPDIQ"
^XMB(3.9,53,2,281,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,53,2,282,0)="Y"
^XMB(3.9,53,2,283,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,53,2,284,0)="^D RTN^XPDH"
^XMB(3.9,53,2,285,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,53,2,286,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,53,2,287,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,53,2,288,0)="NO"
^XMB(3.9,53,2,289,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,53,2,290,0)="D XPZ2^XPDIQ"
^XMB(3.9,53,2,291,0)="""RTN"")"
^XMB(3.9,53,2,292,0)="17"
^XMB(3.9,53,2,293,0)="""RTN"",""IBAECO"")"
^XMB(3.9,53,2,294,0)="0^3^B16561245^B15226399"
^XMB(3.9,53,2,295,0)="""RTN"",""IBAECO"",1,0)"
^XMB(3.9,53,2,296,0)="IBAECO ;ALB/BGA - LONG TERM CARE OUTPATIENT TRACKER ;16-OCT-01"
^XMB(3.9,53,2,297,0)="""RTN"",""IBAECO"",2,0)"
^XMB(3.9,53,2,298,0)=" ;;2.0;INTEGRATED BILLING;**164,171,176,188,312**;21-MAR-94"
^XMB(3.9,53,2,299,0)="""RTN"",""IBAECO"",3,0)"
^XMB(3.9,53,2,300,0)=" ;;Per VHA DIRECTIVE 10-93-142, this routine should not be modified."
^XMB(3.9,53,2,301,0)="""RTN"",""IBAECO"",4,0)"
^XMB(3.9,53,2,302,0)=" ;"
^XMB(3.9,53,2,303,0)="""RTN"",""IBAECO"",5,0)"
^XMB(3.9,53,2,304,0)=" ; Comment- This routine is invoked via the appointment driver ^IBAMTS"
^XMB(3.9,53,2,305,0)="""RTN"",""IBAECO"",6,0)"
^XMB(3.9,53,2,306,0)=" ;          This program checks for check outs and determines if"
^XMB(3.9,53,2,307,0)="""RTN"",""IBAECO"",7,0)"
^XMB(3.9,53,2,308,0)=" ;          the person checking out is ELIGIBLE for Long Term Care"
^XMB(3.9,53,2,309,0)="""RTN"",""IBAECO"",8,0)"
^XMB(3.9,53,2,310,0)=" ;          and determines if the encounter was related to LTC."
^XMB(3.9,53,2,311,0)="""RTN"",""IBAECO"",9,0)"
^XMB(3.9,53,2,312,0)=" ;          If the episode of care is related to LTC and the patient"
^XMB(3.9,53,2,313,0)="""RTN"",""IBAECO"",10,0)"
^XMB(3.9,53,2,314,0)=" ;          is eligible to receive care and is compliant with all"
^XMB(3.9,53,2,315,0)="""RTN"",""IBAECO"",11,0)"
^XMB(3.9,53,2,316,0)=" ;          the LTC business rules than the entry is added to"
^XMB(3.9,53,2,317,0)="""RTN"",""IBAECO"",12,0)"
^XMB(3.9,53,2,318,0)=" ;          the LTC transaction file #351.8."
^XMB(3.9,53,2,319,0)="""RTN"",""IBAECO"",13,0)"
^XMB(3.9,53,2,320,0)=" ;"
^XMB(3.9,53,2,321,0)="""RTN"",""IBAECO"",14,0)"
^XMB(3.9,53,2,322,0)=" ; Determine if this encounter has a status of checked out"
^XMB(3.9,53,2,323,0)="""RTN"",""IBAECO"",15,0)"
^XMB(3.9,53,2,324,0)="EN N IBEVT,IBEV0,DFN,IBSDHDL,IBORG,IBOE,IBLTCST,IBCL,IBDT,IBST,IBM"
^XMB(3.9,53,2,325,0)="""RTN"",""IBAECO"",16,0)"
^XMB(3.9,53,2,326,0)=" N IBSWINFO S IBSWINFO=$$SWSTAT^IBBAPI()                   ;IB*2.0*312"
^XMB(3.9,53,2,327,0)="""RTN"",""IBAECO"",17,0)"
^XMB(3.9,53,2,328,0)=" S IBSDHDL=0"
^XMB(3.9,53,2,329,0)="""RTN"",""IBAECO"",18,0)"
^XMB(3.9,53,2,330,0)=" ;"
^XMB(3.9,53,2,331,0)="""RTN"",""IBAECO"",19,0)"
^XMB(3.9,53,2,332,0)=" ; === ON/OFF Switch by date if before 11/15/06 software will not run"
^XMB(3.9,53,2,333,0)="""RTN"",""IBAECO"",20,0)"
^XMB(3.9,53,2,334,0)=" ; === IBALTC=0 the Encounter is not LTC Billable pass to MT Module"
^XMB(3.9,53,2,335,0)="""RTN"",""IBAECO"",21,0)"
^XMB(3.9,53,2,336,0)=" ; === IBALTC=1 Encounter is LTC Billable do NOT Pass to MTC"
^XMB(3.9,53,2,337,0)="""RTN"",""IBAECO"",22,0)"
^XMB(3.9,53,2,338,0)=" ;"
^XMB(3.9,53,2,339,0)="""RTN"",""IBAECO"",23,0)"
^XMB(3.9,53,2,340,0)=" S IBALTC=0"
^XMB(3.9,53,2,341,0)="""RTN"",""IBAECO"",24,0)"
^XMB(3.9,53,2,342,0)=" ;I DT<$$STDATE^IBAECU1() Q  ;quit if today<effective date"
^XMB(3.9,53,2,343,0)="""RTN"",""IBAECO"",25,0)"
^XMB(3.9,53,2,344,0)=" F  S IBSDHDL=$O(^TMP(""SDEVT"",$J,IBSDHDL)) Q:'IBSDHDL  D"
^XMB(3.9,53,2,345,0)="""RTN"",""IBAECO"",26,0)"
^XMB(3.9,53,2,346,0)=" . S IBORG=0 F  S IBORG=$O(^TMP(""SDEVT"",$J,IBSDHDL,IBORG)) Q:'IBORG  D"
^XMB(3.9,53,2,347,0)="""RTN"",""IBAECO"",27,0)"
^XMB(3.9,53,2,348,0)=" . . S IBOE=0 F  S IBOE=$O(^TMP(""SDEVT"",$J,IBSDHDL,IBORG,""SDOE"",IBOE)) Q:'IBOE  S IBEVT=$G(^(IBOE,0,""AFTER"")),IBEV0=$G(^(""BEFORE"")) D"
^XMB(3.9,53,2,349,0)="""RTN"",""IBAECO"",28,0)"
^XMB(3.9,53,2,350,0)=" . . . ;"
^XMB(3.9,53,2,351,0)="""RTN"",""IBAECO"",29,0)"
^XMB(3.9,53,2,352,0)=" . . . Q:$P(IBEVT,U,6)  ; do not evaluate sibling encounters"
^XMB(3.9,53,2,353,0)="""RTN"",""IBAECO"",30,0)"
^XMB(3.9,53,2,354,0)=" . . . Q:$P(IBEVT,U,12)=8  ; do not evaluate inpatient encounters"
^XMB(3.9,53,2,355,0)="""RTN"",""IBAECO"",31,0)"
^XMB(3.9,53,2,356,0)=" . . . ;"
^XMB(3.9,53,2,357,0)="""RTN"",""IBAECO"",32,0)"
^XMB(3.9,53,2,358,0)=" . . . ; set variables"
^XMB(3.9,53,2,359,0)="""RTN"",""IBAECO"",33,0)"
^XMB(3.9,53,2,360,0)=" . . . S DFN=$P(IBEVT,U,2),IBDT=$S(+IBEVT:+IBEVT,1:+IBEV0),IBST=$P(IBEVT,U,3)"
^XMB(3.9,53,2,361,0)="""RTN"",""IBAECO"",34,0)"
^XMB(3.9,53,2,362,0)=" . . . Q:IBDT<$$STDATE^IBAECU1"
^XMB(3.9,53,2,363,0)="""RTN"",""IBAECO"",35,0)"
^XMB(3.9,53,2,364,0)=" . . . Q:'DFN!('IBDT)"
^XMB(3.9,53,2,365,0)="""RTN"",""IBAECO"",36,0)"
^XMB(3.9,53,2,366,0)=" . . . ;"
^XMB(3.9,53,2,367,0)="""RTN"",""IBAECO"",37,0)"
^XMB(3.9,53,2,368,0)=" . . . ; Do NOT PROCESS on VistA if IBDT>=Switch Eff Date  ;CCR-930"
^XMB(3.9,53,2,369,0)="""RTN"",""IBAECO"",38,0)"
^XMB(3.9,53,2,370,0)=" . . . I +IBSWINFO,(IBDT+1)>$P(IBSWINFO,""^"",2) Q           ;IB*2.0*312"
^XMB(3.9,53,2,371,0)="""RTN"",""IBAECO"",39,0)"
^XMB(3.9,53,2,372,0)=" . . . ;"
^XMB(3.9,53,2,373,0)="""RTN"",""IBAECO"",40,0)"
^XMB(3.9,53,2,374,0)=" . . . ; stop code preset and LTC event?"
^XMB(3.9,53,2,375,0)="""RTN"",""IBAECO"",41,0)"
^XMB(3.9,53,2,376,0)=" . . . I 'IBST Q"
^XMB(3.9,53,2,377,0)="""RTN"",""IBAECO"",42,0)"
^XMB(3.9,53,2,378,0)=" . . . I '$$LTCSTOP^IBAECU(IBST) Q"
^XMB(3.9,53,2,379,0)="""RTN"",""IBAECO"",43,0)"
^XMB(3.9,53,2,380,0)=" . . . ;"
^XMB(3.9,53,2,381,0)="""RTN"",""IBAECO"",44,0)"
^XMB(3.9,53,2,382,0)=" . . . ; set flag to stop MT billing"
^XMB(3.9,53,2,383,0)="""RTN"",""IBAECO"",45,0)"
^XMB(3.9,53,2,384,0)=" . . . S IBALTC=1"
^XMB(3.9,53,2,385,0)="""RTN"",""IBAECO"",46,0)"
^XMB(3.9,53,2,386,0)=" . . . ;"
^XMB(3.9,53,2,387,0)="""RTN"",""IBAECO"",47,0)"
^XMB(3.9,53,2,388,0)=" . . . ; LTC patient check"
^XMB(3.9,53,2,389,0)="""RTN"",""IBAECO"",48,0)"
^XMB(3.9,53,2,390,0)=" . . . S IBLTCST=+$$LTCST^IBAECU(DFN,IBDT\1,1)"
^XMB(3.9,53,2,391,0)="""RTN"",""IBAECO"",49,0)"
^XMB(3.9,53,2,392,0)=" . . . ;"
^XMB(3.9,53,2,393,0)="""RTN"",""IBAECO"",50,0)"
^XMB(3.9,53,2,394,0)=" . . . ; no 1010EC on file"
^XMB(3.9,53,2,395,0)="""RTN"",""IBAECO"",51,0)"
^XMB(3.9,53,2,396,0)=" . . . I IBLTCST=0 D  D XMNOEC^IBAECU(DFN,.IBDT,.IBM) Q"
^XMB(3.9,53,2,397,0)="""RTN"",""IBAECO"",52,0)"
^XMB(3.9,53,2,398,0)=" . . . . S IBM(1)="""",IBM(2)=""  Event Type:  Outpatient Encounter"""
^XMB(3.9,53,2,399,0)="""RTN"",""IBAECO"",53,0)"
^XMB(3.9,53,2,400,0)=" . . . . S IBM(3)="""",IBM(4)=""Event Action:  ""_$S($P(IBEV0,""^"",12)'=2&($P(IBEVT,""^"",12)=2):""Checked Out"",IBEVT&(IBEV0):""Edited"",IBEV0:""Deleted"",1:""Added"")"
^XMB(3.9,53,2,401,0)="""RTN"",""IBAECO"",54,0)"
^XMB(3.9,53,2,402,0)=" . . . . S IBM(5)="""",IBM(6)=""    Location:  ""_$S($P(IBEVT,""^"",4):$P($G(^SC(+$P(IBEVT,""^"",4),0)),""^""),$P(IBEVO,""^"",4):$P($G(^SC(+$P(IBEVO,""^"",4),0)),""^""),1:"""")"
^XMB(3.9,53,2,403,0)="""RTN"",""IBAECO"",55,0)"
^XMB(3.9,53,2,404,0)=" . . . ;"
^XMB(3.9,53,2,405,0)="""RTN"",""IBAECO"",56,0)"
^XMB(3.9,53,2,406,0)=" . . . ; is this a back billing issue, if so, send message and quit"
^XMB(3.9,53,2,407,0)="""RTN"",""IBAECO"",57,0)"
^XMB(3.9,53,2,408,0)=" . . . I $$LASTMJ^IBAECU()>0,$$LASTMJ^IBAECU()>IBDT D  D XMBACK^IBAECU(DFN,.IBM) Q"
^XMB(3.9,53,2,409,0)="""RTN"",""IBAECO"",58,0)"
^XMB(3.9,53,2,410,0)=" . . . . S IBM(1)=""An Outpatient Encounter was ""_$S(IBEVT&(IBEV0):""Edited"",IBEV0:""Deleted"",1:""Added"")_""."""
^XMB(3.9,53,2,411,0)="""RTN"",""IBAECO"",59,0)"
^XMB(3.9,53,2,412,0)=" . . . . S IBM(2)=""This may result in a Back Billing issue for LTC.  You should review the"""
^XMB(3.9,53,2,413,0)="""RTN"",""IBAECO"",60,0)"
^XMB(3.9,53,2,414,0)=" . . . . S IBM(3)=""patient's records for ""_$$FMTE^XLFDT(IBDT)_"" to ensure correct billing."""
^XMB(3.9,53,2,415,0)="""RTN"",""IBAECO"",61,0)"
^XMB(3.9,53,2,416,0)=" . . . . S IBM(4)=""LTC Billing Clock and LTC charges may have to be manually adjusted."""
^XMB(3.9,53,2,417,0)="""RTN"",""IBAECO"",62,0)"
^XMB(3.9,53,2,418,0)=" . . . ;"
^XMB(3.9,53,2,419,0)="""RTN"",""IBAECO"",63,0)"
^XMB(3.9,53,2,420,0)=" . . . ; add LTC clock/update last event date (if not LTC exempt)"
^XMB(3.9,53,2,421,0)="""RTN"",""IBAECO"",64,0)"
^XMB(3.9,53,2,422,0)=" . . . I IBLTCST=2 S IBCL=$$CLOCK^IBAECU(DFN,IBDT\1)"
^XMB(3.9,53,2,423,0)="""RTN"",""IBAECO"",65,0)"
^XMB(3.9,53,2,424,0)=" . . . ;"
^XMB(3.9,53,2,425,0)="""RTN"",""IBAECO"",66,0)"
^XMB(3.9,53,2,426,0)=" ;"
^XMB(3.9,53,2,427,0)="""RTN"",""IBAECO"",67,0)"
^XMB(3.9,53,2,428,0)=" Q"
^XMB(3.9,53,2,429,0)="""RTN"",""IBAECO"",68,0)"
^XMB(3.9,53,2,430,0)=" ;"
^XMB(3.9,53,2,431,0)="""RTN"",""IBAECO"",69,0)"
^XMB(3.9,53,2,432,0)="CALC ; used to calculate the outpatient charge"
^XMB(3.9,53,2,433,0)="""RTN"",""IBAECO"",70,0)"
^XMB(3.9,53,2,434,0)=" ; variables needed DFN, IBLTCST, IBCHG, IBFR"
^XMB(3.9,53,2,435,0)="""RTN"",""IBAECO"",71,0)"
^XMB(3.9,53,2,436,0)=" ; this will adjust IBCHG so the patient is not above their calculated"
^XMB(3.9,53,2,437,0)="""RTN"",""IBAECO"",72,0)"
^XMB(3.9,53,2,438,0)=" ; copay cap for the month."
^XMB(3.9,53,2,439,0)="""RTN"",""IBAECO"",73,0)"
^XMB(3.9,53,2,440,0)=" N IBTYP,IBT"
^XMB(3.9,53,2,441,0)="""RTN"",""IBAECO"",74,0)"
^XMB(3.9,53,2,442,0)=" ;"
^XMB(3.9,53,2,443,0)="""RTN"",""IBAECO"",75,0)"
^XMB(3.9,53,2,444,0)=" ; find all LTC charges and set flag to determine inpt or opt"
^XMB(3.9,53,2,445,0)="""RTN"",""IBAECO"",76,0)"
^XMB(3.9,53,2,446,0)=" ; cap to be used."
^XMB(3.9,53,2,447,0)="""RTN"",""IBAECO"",77,0)"
^XMB(3.9,53,2,448,0)=" D TOT^IBAECU"
^XMB(3.9,53,2,449,0)="""RTN"",""IBAECO"",78,0)"
^XMB(3.9,53,2,450,0)=" ;"
^XMB(3.9,53,2,451,0)="""RTN"",""IBAECO"",79,0)"
^XMB(3.9,53,2,452,0)=" W !!,""  Calculated Monthly Copay Cap Type to be used: "",$S(IBTYP=""I"":""IN"",1:""OUT""),""PATIENT"""
^XMB(3.9,53,2,453,0)="""RTN"",""IBAECO"",80,0)"
^XMB(3.9,53,2,454,0)=" W !,""               Calculated Monthly Copay Cap is: $ "",$FN($P(IBLTCST,""^"",$S(IBTYP=""I"":3,1:5)),"","",2)"
^XMB(3.9,53,2,455,0)="""RTN"",""IBAECO"",81,0)"
^XMB(3.9,53,2,456,0)=" W !,""                       Total previously billed: $ "",$FN(IBT,"","",2)"
^XMB(3.9,53,2,457,0)="""RTN"",""IBAECO"",82,0)"
^XMB(3.9,53,2,458,0)=" ;"
^XMB(3.9,53,2,459,0)="""RTN"",""IBAECO"",83,0)"
^XMB(3.9,53,2,460,0)=" I IBCHG+IBT>$P(IBLTCST,""^"",$S(IBTYP=""I"":3,1:5)) S IBCHG=$P(IBLTCST,""^"",$S(IBTYP=""I"":3,1:5))-IBT"
^XMB(3.9,53,2,461,0)="""RTN"",""IBAECO"",84,0)"
^XMB(3.9,53,2,462,0)=" ;"
^XMB(3.9,53,2,463,0)="""RTN"",""IBAECO"",85,0)"
^XMB(3.9,53,2,464,0)=" ; check for negative $ amount cap"
^XMB(3.9,53,2,465,0)="""RTN"",""IBAECO"",86,0)"
^XMB(3.9,53,2,466,0)=" I $P(IBLTCST,""^"",$S(IBTYP=""I"":3,1:5))<0 S IBCHG=0"
^XMB(3.9,53,2,467,0)="""RTN"",""IBAECO"",87,0)"
^XMB(3.9,53,2,468,0)=" ;"
^XMB(3.9,53,2,469,0)="""RTN"",""IBAECO"",88,0)"
^XMB(3.9,53,2,470,0)=" Q"
^XMB(3.9,53,2,471,0)="""RTN"",""IBAMTC"")"
^XMB(3.9,53,2,472,0)="0^4^B25558065^B24161099"
^XMB(3.9,53,2,473,0)="""RTN"",""IBAMTC"",1,0)"
^XMB(3.9,53,2,474,0)="IBAMTC ;ALB/CPM-MEANS TEST NIGHTLY COMPILATION JOB ;09-OCT-91"
^XMB(3.9,53,2,475,0)="""RTN"",""IBAMTC"",2,0)"
^XMB(3.9,53,2,476,0)="V ;;2.0;INTEGRATED BILLING;**34,52,70,93,100,118,115,132,150,153,137,176,215,275,321,312**;21-MAR-94"
^XMB(3.9,53,2,477,0)="""RTN"",""IBAMTC"",3,0)"
^XMB(3.9,53,2,478,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,53,2,479,0)="""RTN"",""IBAMTC"",4,0)"
^XMB(3.9,53,2,480,0)=" ;"
^XMB(3.9,53,2,481,0)="""RTN"",""IBAMTC"",5,0)"
^XMB(3.9,53,2,482,0)="INIT ; Entry point - initialize variables and parameters"
^XMB(3.9,53,2,483,0)="""RTN"",""IBAMTC"",6,0)"
^XMB(3.9,53,2,484,0)=" ;"
^XMB(3.9,53,2,485,0)="""RTN"",""IBAMTC"",7,0)"
^XMB(3.9,53,2,486,0)=" ;***"
^XMB(3.9,53,2,487,0)="""RTN"",""IBAMTC"",8,0)"
^XMB(3.9,53,2,488,0)=" ;S XRTL=$ZU(0),XRTN=""IBAMTC-1"" D T0^%ZOSV ;start rt clock"
^XMB(3.9,53,2,489,0)="""RTN"",""IBAMTC"",9,0)"
^XMB(3.9,53,2,490,0)=" ;"
^XMB(3.9,53,2,491,0)="""RTN"",""IBAMTC"",10,0)"
^XMB(3.9,53,2,492,0)=" D UPDT^IBARXEPS($$FMADD^XLFDT(DT,-30),DT,1)"
^XMB(3.9,53,2,493,0)="""RTN"",""IBAMTC"",11,0)"
^XMB(3.9,53,2,494,0)=" ;"
^XMB(3.9,53,2,495,0)="""RTN"",""IBAMTC"",12,0)"
^XMB(3.9,53,2,496,0)=" D NIGHTLY^IBTRKR ; claims tracking nightly update"
^XMB(3.9,53,2,497,0)="""RTN"",""IBAMTC"",13,0)"
^XMB(3.9,53,2,498,0)=" ;"
^XMB(3.9,53,2,499,0)="""RTN"",""IBAMTC"",14,0)"
^XMB(3.9,53,2,500,0)=" D ^IBCD ; automated biller"
^XMB(3.9,53,2,501,0)="""RTN"",""IBAMTC"",15,0)"
^XMB(3.9,53,2,502,0)=" ;"
^XMB(3.9,53,2,503,0)="""RTN"",""IBAMTC"",16,0)"
^XMB(3.9,53,2,504,0)=" D RELPR^IBAMTV3 ; auto-release patient charges on hold at least 60 days"
^XMB(3.9,53,2,505,0)="""RTN"",""IBAMTC"",17,0)"
^XMB(3.9,53,2,506,0)=" ;"
^XMB(3.9,53,2,507,0)="""RTN"",""IBAMTC"",18,0)"
^XMB(3.9,53,2,508,0)=" D EN^IBOHRL ; auto-release patient charges on hold longer than 90 days"
^XMB(3.9,53,2,509,0)="""RTN"",""IBAMTC"",19,0)"
^XMB(3.9,53,2,510,0)=" ;"
^XMB(3.9,53,2,511,0)="""RTN"",""IBAMTC"",20,0)"
^XMB(3.9,53,2,512,0)=" K IBDT D BJ^IBJDE  ; Automated DM extract monthly background job."
^XMB(3.9,53,2,513,0)="""RTN"",""IBAMTC"",21,0)"
^XMB(3.9,53,2,514,0)=" ;"
^XMB(3.9,53,2,515,0)="""RTN"",""IBAMTC"",22,0)"
^XMB(3.9,53,2,516,0)=" ; - transfer pricing background job"
^XMB(3.9,53,2,517,0)="""RTN"",""IBAMTC"",23,0)"
^XMB(3.9,53,2,518,0)=" I '+$$SWSTAT^IBBAPI() D ^IBATEI1                           ;IB*2.0*312"
^XMB(3.9,53,2,519,0)="""RTN"",""IBAMTC"",24,0)"
^XMB(3.9,53,2,520,0)=" ;"
^XMB(3.9,53,2,521,0)="""RTN"",""IBAMTC"",25,0)"
^XMB(3.9,53,2,522,0)=" D NIGHT^IBARXMA ; transmit copay cap info"
^XMB(3.9,53,2,523,0)="""RTN"",""IBAMTC"",26,0)"
^XMB(3.9,53,2,524,0)=" ;"
^XMB(3.9,53,2,525,0)="""RTN"",""IBAMTC"",27,0)"
^XMB(3.9,53,2,526,0)=" D NOW^%DTC S IBAFY=$$FY^IBOUTL(X),DT=X,U=""^"""
^XMB(3.9,53,2,527,0)="""RTN"",""IBAMTC"",28,0)"
^XMB(3.9,53,2,528,0)=" S (IBERRN,IBWHER,IBJOB,IBY,Y)=1,IBCNT=0 K ^TMP($J,""IBAMTC"")"
^XMB(3.9,53,2,529,0)="""RTN"",""IBAMTC"",29,0)"
^XMB(3.9,53,2,530,0)=" D SITE^IBAUTL I Y<1 S IBY=Y D ERR G CLEAN"
^XMB(3.9,53,2,531,0)="""RTN"",""IBAMTC"",30,0)"
^XMB(3.9,53,2,532,0)=" D SERV^IBAUTL2 I IBY<1 D ERR G CLEAN"
^XMB(3.9,53,2,533,0)="""RTN"",""IBAMTC"",31,0)"
^XMB(3.9,53,2,534,0)=" ;"
^XMB(3.9,53,2,535,0)="""RTN"",""IBAMTC"",32,0)"
^XMB(3.9,53,2,536,0)=" ; Compile Means Test copay and per diem charges for all inpatients"
^XMB(3.9,53,2,537,0)="""RTN"",""IBAMTC"",33,0)"
^XMB(3.9,53,2,538,0)=" ; Check PFSS Switch                                        ;IB*2.0*312"
^XMB(3.9,53,2,539,0)="""RTN"",""IBAMTC"",34,0)"
^XMB(3.9,53,2,540,0)=" I '+$$SWSTAT^IBBAPI() S (IBWARD,DFN)="""" F  S IBWARD=$O(^DPT(""CN"",IBWARD)) Q:IBWARD=""""  F  S DFN=$O(^DPT(""CN"",IBWARD,DFN)) Q:'DFN  W !,DFN S IBA=^(DFN),IBY=1 D PROC"
^XMB(3.9,53,2,541,0)="""RTN"",""IBAMTC"",35,0)"
^XMB(3.9,53,2,542,0)=" ;"
^XMB(3.9,53,2,543,0)="""RTN"",""IBAMTC"",36,0)"
^XMB(3.9,53,2,544,0)=" ;send inpatients' CV (CombatVet) expiration e-mail alert"
^XMB(3.9,53,2,545,0)="""RTN"",""IBAMTC"",37,0)"
^XMB(3.9,53,2,546,0)=" D CVEXMAIL^IBACV(DT)"
^XMB(3.9,53,2,547,0)="""RTN"",""IBAMTC"",38,0)"
^XMB(3.9,53,2,548,0)=" ;"
^XMB(3.9,53,2,549,0)="""RTN"",""IBAMTC"",39,0)"
^XMB(3.9,53,2,550,0)=" ;check & start LTC Monthly Job LTC if necessary"
^XMB(3.9,53,2,551,0)="""RTN"",""IBAMTC"",40,0)"
^XMB(3.9,53,2,552,0)=" ; This code may need to be expanded, IF we don't          ;IB*2.0*312 "
^XMB(3.9,53,2,553,0)="""RTN"",""IBAMTC"",41,0)"
^XMB(3.9,53,2,554,0)=" ; implement on the 1st of the month, for a clean cut over ;IB*2.0*312"
^XMB(3.9,53,2,555,0)="""RTN"",""IBAMTC"",42,0)"
^XMB(3.9,53,2,556,0)=" I '+$$SWSTAT^IBBAPI() D NJ^IBAECN1                        ;IB*2.0*312"
^XMB(3.9,53,2,557,0)="""RTN"",""IBAMTC"",43,0)"
^XMB(3.9,53,2,558,0)=" ;"
^XMB(3.9,53,2,559,0)="""RTN"",""IBAMTC"",44,0)"
^XMB(3.9,53,2,560,0)=" D EN^IBCE ; Transmit electronic bills"
^XMB(3.9,53,2,561,0)="""RTN"",""IBAMTC"",45,0)"
^XMB(3.9,53,2,562,0)=" ; Clean up expired Means Test billing clocks"
^XMB(3.9,53,2,563,0)="""RTN"",""IBAMTC"",46,0)"
^XMB(3.9,53,2,564,0)="CLEAN S %H=+$H-1 D YMD^%DTC S IBDT=X,(IBN,DFN)=0,IBWHER=23"
^XMB(3.9,53,2,565,0)="""RTN"",""IBAMTC"",47,0)"
^XMB(3.9,53,2,566,0)=" F  S DFN=$O(^IBE(351,""ACT"",DFN)) Q:'DFN  D"
^XMB(3.9,53,2,567,0)="""RTN"",""IBAMTC"",48,0)"
^XMB(3.9,53,2,568,0)=" . F  S IBN=$O(^IBE(351,""ACT"",DFN,IBN)) Q:'IBN  D"
^XMB(3.9,53,2,569,0)="""RTN"",""IBAMTC"",49,0)"
^XMB(3.9,53,2,570,0)=" ..  S IBY=1,X1=IBDT,(X2,IBCLDT)=+$P($G(^IBE(351,+IBN,0)),""^"",3) D ^%DTC"
^XMB(3.9,53,2,571,0)="""RTN"",""IBAMTC"",50,0)"
^XMB(3.9,53,2,572,0)=" ..  I X>364 S IBCLDA=IBN D CLOCKCL^IBAUTL3,ERR:IBY<1"
^XMB(3.9,53,2,573,0)="""RTN"",""IBAMTC"",51,0)"
^XMB(3.9,53,2,574,0)=" ;"
^XMB(3.9,53,2,575,0)="""RTN"",""IBAMTC"",52,0)"
^XMB(3.9,53,2,576,0)=" ; Close out incomplete events where the patient has been discharged,"
^XMB(3.9,53,2,577,0)="""RTN"",""IBAMTC"",53,0)"
^XMB(3.9,53,2,578,0)=" ; pass the related charges if they appear correct, and send a bulletin"
^XMB(3.9,53,2,579,0)="""RTN"",""IBAMTC"",54,0)"
^XMB(3.9,53,2,580,0)=" ; - also, send bulletins on old incomplete charges where there is no"
^XMB(3.9,53,2,581,0)="""RTN"",""IBAMTC"",55,0)"
^XMB(3.9,53,2,582,0)=" ; incomplete event"
^XMB(3.9,53,2,583,0)="""RTN"",""IBAMTC"",56,0)"
^XMB(3.9,53,2,584,0)=" D MAIN^IBAMTC2"
^XMB(3.9,53,2,585,0)="""RTN"",""IBAMTC"",57,0)"
^XMB(3.9,53,2,586,0)=" ;"
^XMB(3.9,53,2,587,0)="""RTN"",""IBAMTC"",58,0)"
^XMB(3.9,53,2,588,0)=" ;D ^IBAMTC1"
^XMB(3.9,53,2,589,0)="""RTN"",""IBAMTC"",59,0)"
^XMB(3.9,53,2,590,0)=" ;"
^XMB(3.9,53,2,591,0)="""RTN"",""IBAMTC"",60,0)"
^XMB(3.9,53,2,592,0)=" ; Send bulletin reporting job completion"
^XMB(3.9,53,2,593,0)="""RTN"",""IBAMTC"",61,0)"
^XMB(3.9,53,2,594,0)=" I '+$$SWSTAT^IBBAPI() D BULL^IBAMTC1                     ;IB*2.0*312"
^XMB(3.9,53,2,595,0)="""RTN"",""IBAMTC"",62,0)"
^XMB(3.9,53,2,596,0)=" ;"
^XMB(3.9,53,2,597,0)="""RTN"",""IBAMTC"",63,0)"
^XMB(3.9,53,2,598,0)=" ; -- purge alerts"
^XMB(3.9,53,2,599,0)="""RTN"",""IBAMTC"",64,0)"
^XMB(3.9,53,2,600,0)=" D PURGE^IBAERR3"
^XMB(3.9,53,2,601,0)="""RTN"",""IBAMTC"",65,0)"
^XMB(3.9,53,2,602,0)=" ;"
^XMB(3.9,53,2,603,0)="""RTN"",""IBAMTC"",66,0)"
^XMB(3.9,53,2,604,0)=" ; Monitor special inpatient billing cases"
^XMB(3.9,53,2,605,0)="""RTN"",""IBAMTC"",67,0)"
^XMB(3.9,53,2,606,0)=" D BGJ^IBAMTI"
^XMB(3.9,53,2,607,0)="""RTN"",""IBAMTC"",68,0)"
^XMB(3.9,53,2,608,0)=" ;"
^XMB(3.9,53,2,609,0)="""RTN"",""IBAMTC"",69,0)"
^XMB(3.9,53,2,610,0)=" ; Print Pharmacy Copay Exemption Income Test Reminder Letters"
^XMB(3.9,53,2,611,0)="""RTN"",""IBAMTC"",70,0)"
^XMB(3.9,53,2,612,0)=" D EN^IBARXEL"
^XMB(3.9,53,2,613,0)="""RTN"",""IBAMTC"",71,0)"
^XMB(3.9,53,2,614,0)=" ;"
^XMB(3.9,53,2,615,0)="""RTN"",""IBAMTC"",72,0)"
^XMB(3.9,53,2,616,0)=" ; Kill variables and quit."
^XMB(3.9,53,2,617,0)="""RTN"",""IBAMTC"",73,0)"
^XMB(3.9,53,2,618,0)=" D KILL1"
^XMB(3.9,53,2,619,0)="""RTN"",""IBAMTC"",74,0)"
^XMB(3.9,53,2,620,0)=" ;"
^XMB(3.9,53,2,621,0)="""RTN"",""IBAMTC"",75,0)"
^XMB(3.9,53,2,622,0)=" I $D(ZTQUEUED),$G(ZTSK) D KILL^%ZTLOAD"
^XMB(3.9,53,2,623,0)="""RTN"",""IBAMTC"",76,0)"
^XMB(3.9,53,2,624,0)=" ;***"
^XMB(3.9,53,2,625,0)="""RTN"",""IBAMTC"",77,0)"
^XMB(3.9,53,2,626,0)=" ;I $D(XRT0) S:'$D(XRTN) XRTN=""IBAMTC"" D T1^%ZOSV ;stop rt clock"
^XMB(3.9,53,2,627,0)="""RTN"",""IBAMTC"",78,0)"
^XMB(3.9,53,2,628,0)=" ;"
^XMB(3.9,53,2,629,0)="""RTN"",""IBAMTC"",79,0)"
^XMB(3.9,53,2,630,0)=" Q"
^XMB(3.9,53,2,631,0)="""RTN"",""IBAMTC"",80,0)"
^XMB(3.9,53,2,632,0)=" ;"
^XMB(3.9,53,2,633,0)="""RTN"",""IBAMTC"",81,0)"
^XMB(3.9,53,2,634,0)=" ;"
^XMB(3.9,53,2,635,0)="""RTN"",""IBAMTC"",82,0)"
^XMB(3.9,53,2,636,0)="PROC ; Process all currently admitted patients."
^XMB(3.9,53,2,637,0)="""RTN"",""IBAMTC"",83,0)"
^XMB(3.9,53,2,638,0)=" ;"
^XMB(3.9,53,2,639,0)="""RTN"",""IBAMTC"",84,0)"
^XMB(3.9,53,2,640,0)=" D IFCVEXP^IBACV(DFN,DT,IBA) ;if CV has expired (see CVEXMAIL^IBACV)"
^XMB(3.9,53,2,641,0)="""RTN"",""IBAMTC"",85,0)"
^XMB(3.9,53,2,642,0)=" ;--"
^XMB(3.9,53,2,643,0)="""RTN"",""IBAMTC"",86,0)"
^XMB(3.9,53,2,644,0)=" ;1) checks effective date for LTC legislation."
^XMB(3.9,53,2,645,0)="""RTN"",""IBAMTC"",87,0)"
^XMB(3.9,53,2,646,0)=" ;2) determine current treating specialty (TS) for the "
^XMB(3.9,53,2,647,0)="""RTN"",""IBAMTC"",88,0)"
^XMB(3.9,53,2,648,0)=" ;""original"" admission."
^XMB(3.9,53,2,649,0)="""RTN"",""IBAMTC"",89,0)"
^XMB(3.9,53,2,650,0)=" ;if TS is LTC: "
^XMB(3.9,53,2,651,0)="""RTN"",""IBAMTC"",90,0)"
^XMB(3.9,53,2,652,0)=" ;  - creates new LTC #350 parent event entry if necessary."
^XMB(3.9,53,2,653,0)="""RTN"",""IBAMTC"",91,0)"
^XMB(3.9,53,2,654,0)=" ;NOTE: It doesn't stop MT billing for LTC. CALC^IBAUTL4 does it."
^XMB(3.9,53,2,655,0)="""RTN"",""IBAMTC"",92,0)"
^XMB(3.9,53,2,656,0)=" I $$ISLTCADM^IBAECN1(DFN,IBA)"
^XMB(3.9,53,2,657,0)="""RTN"",""IBAMTC"",93,0)"
^XMB(3.9,53,2,658,0)=" ;--"
^XMB(3.9,53,2,659,0)="""RTN"",""IBAMTC"",94,0)"
^XMB(3.9,53,2,660,0)=" D ORIG  ; find ""original"" admission date"
^XMB(3.9,53,2,661,0)="""RTN"",""IBAMTC"",95,0)"
^XMB(3.9,53,2,662,0)=" Q:$$BILST^DGMTUB(DFN)<IBADMDT  ; pat. was last billable before admission"
^XMB(3.9,53,2,663,0)="""RTN"",""IBAMTC"",96,0)"
^XMB(3.9,53,2,664,0)=" Q:IBADMDT\1=DT  ; patient was admitted today - process tomorrow"
^XMB(3.9,53,2,665,0)="""RTN"",""IBAMTC"",97,0)"
^XMB(3.9,53,2,666,0)=" Q:+$$MVT^DGPMOBS(IBA)  ; admitted for Observation & Examination"
^XMB(3.9,53,2,667,0)="""RTN"",""IBAMTC"",98,0)"
^XMB(3.9,53,2,668,0)=" Q:$O(^IBE(351.2,""AC"",IBA,0))  ; skip special inpatient admissions"
^XMB(3.9,53,2,669,0)="""RTN"",""IBAMTC"",99,0)"
^XMB(3.9,53,2,670,0)=" ;"
^XMB(3.9,53,2,671,0)="""RTN"",""IBAMTC"",100,0)"
^XMB(3.9,53,2,672,0)=" ; - if vet is SC, create a Special Inpatient Billing Case"
^XMB(3.9,53,2,673,0)="""RTN"",""IBAMTC"",101,0)"
^XMB(3.9,53,2,674,0)=" ;   in file #351.2 (use code 3 for SC, as it is changed to 4 in IBAMTI)"
^XMB(3.9,53,2,675,0)="""RTN"",""IBAMTC"",102,0)"
^XMB(3.9,53,2,676,0)=" D ELIG^VADPT I VAEL(3) D ADM^IBAMTI(DFN,IBA,3) Q"
^XMB(3.9,53,2,677,0)="""RTN"",""IBAMTC"",103,0)"
^XMB(3.9,53,2,678,0)=" ;"
^XMB(3.9,53,2,679,0)="""RTN"",""IBAMTC"",104,0)"
^XMB(3.9,53,2,680,0)=" ; - gather event information"
^XMB(3.9,53,2,681,0)="""RTN"",""IBAMTC"",105,0)"
^XMB(3.9,53,2,682,0)=" D EVFIND^IBAUTL3 I 'IBEVDA D BSEC Q:'IBBS  ; wasn't billable yesterday"
^XMB(3.9,53,2,683,0)="""RTN"",""IBAMTC"",106,0)"
^XMB(3.9,53,2,684,0)=" S X=IBADMDT D H^%DTC S IBBDT=%H D:'IBEVDA LAST^IBAUTL5"
^XMB(3.9,53,2,685,0)="""RTN"",""IBAMTC"",107,0)"
^XMB(3.9,53,2,686,0)=" I IBEVDA,IBEVCAL S X1=IBEVCAL,X2=1 D C^%DTC S IBBDT=%H"
^XMB(3.9,53,2,687,0)="""RTN"",""IBAMTC"",108,0)"
^XMB(3.9,53,2,688,0)=" S IBEDT=+$H-1"
^XMB(3.9,53,2,689,0)="""RTN"",""IBAMTC"",109,0)"
^XMB(3.9,53,2,690,0)=" ; - gather clock information"
^XMB(3.9,53,2,691,0)="""RTN"",""IBAMTC"",110,0)"
^XMB(3.9,53,2,692,0)=" S IBWHER=24 D CLOCK^IBAUTL3 I IBY<1 D ERR G PROCQ"
^XMB(3.9,53,2,693,0)="""RTN"",""IBAMTC"",111,0)"
^XMB(3.9,53,2,694,0)=" I IBCLDA S X=IBCLDT D H^%DTC S IBCLCT=IBBDT-%H"
^XMB(3.9,53,2,695,0)="""RTN"",""IBAMTC"",112,0)"
^XMB(3.9,53,2,696,0)=" ; - build charges for inpatient days"
^XMB(3.9,53,2,697,0)="""RTN"",""IBAMTC"",113,0)"
^XMB(3.9,53,2,698,0)=" D ^IBAUTL4 I IBY<1 D ERR G PROCQ"
^XMB(3.9,53,2,699,0)="""RTN"",""IBAMTC"",114,0)"
^XMB(3.9,53,2,700,0)=" ; - pass per diem if over 30 days old, or both per diem and the copay"
^XMB(3.9,53,2,701,0)="""RTN"",""IBAMTC"",115,0)"
^XMB(3.9,53,2,702,0)=" ; - if 4 days from patient's statement date; update event, clock"
^XMB(3.9,53,2,703,0)="""RTN"",""IBAMTC"",116,0)"
^XMB(3.9,53,2,704,0)=" S IBWHER=22"
^XMB(3.9,53,2,705,0)="""RTN"",""IBAMTC"",117,0)"
^XMB(3.9,53,2,706,0)=" I $G(IBCHPDA),$P($G(^IB(+IBCHPDA,0)),""^"",6)>30!($$STD^IBAUTL5(DFN)) S IBNOS=IBCHPDA D FILER^IBAUTL5 I IBY<1 D ERR G PROCQ"
^XMB(3.9,53,2,707,0)="""RTN"",""IBAMTC"",118,0)"
^XMB(3.9,53,2,708,0)=" I $G(IBCHCDA),$$STD^IBAUTL5(DFN) S IBNOS=IBCHCDA D FILER^IBAUTL5 I IBY<1 D ERR G PROCQ"
^XMB(3.9,53,2,709,0)="""RTN"",""IBAMTC"",119,0)"
^XMB(3.9,53,2,710,0)=" I IBEVDA,$D(IBDT) S IBEVCLD=IBDT D EVUPD^IBAUTL3"
^XMB(3.9,53,2,711,0)="""RTN"",""IBAMTC"",120,0)"
^XMB(3.9,53,2,712,0)=" I IBCLDA D CLUPD^IBAUTL3"
^XMB(3.9,53,2,713,0)="""RTN"",""IBAMTC"",121,0)"
^XMB(3.9,53,2,714,0)="PROCQ D KILL Q"
^XMB(3.9,53,2,715,0)="""RTN"",""IBAMTC"",122,0)"
^XMB(3.9,53,2,716,0)=" ;"
^XMB(3.9,53,2,717,0)="""RTN"",""IBAMTC"",123,0)"
^XMB(3.9,53,2,718,0)="BSEC ; Determine patient's bedsection for the previous day."
^XMB(3.9,53,2,719,0)="""RTN"",""IBAMTC"",124,0)"
^XMB(3.9,53,2,720,0)=" S X1=DT,X2=-1 D C^%DTC"
^XMB(3.9,53,2,721,0)="""RTN"",""IBAMTC"",125,0)"
^XMB(3.9,53,2,722,0)=" S VAIP(""D"")=X_.2359 D IN5^VADPT S IBBS=$$SECT^IBAUTL5(+VAIP(8)) Q"
^XMB(3.9,53,2,723,0)="""RTN"",""IBAMTC"",126,0)"
^XMB(3.9,53,2,724,0)=" ;"
^XMB(3.9,53,2,725,0)="""RTN"",""IBAMTC"",127,0)"
^XMB(3.9,53,2,726,0)="ERR ; Error processing.  Input:  IBY, IBWHER, IBCNT"
^XMB(3.9,53,2,727,0)="""RTN"",""IBAMTC"",128,0)"
^XMB(3.9,53,2,728,0)=" S IBDUZ=DUZ,IBCNT=IBCNT+1 D ^IBAERR1 K IBDUZ Q"
^XMB(3.9,53,2,729,0)="""RTN"",""IBAMTC"",129,0)"
^XMB(3.9,53,2,730,0)=" ;S ^TMP($J,""IBAMTC"",""E"",IBERRN)=$P(IBY,""^"",2)_""^""_$S($D(DFN):DFN,1:"""")_""^""_IBWHER,IBERRN=IBERRN+1 Q"
^XMB(3.9,53,2,731,0)="""RTN"",""IBAMTC"",130,0)"
^XMB(3.9,53,2,732,0)=" ;"
^XMB(3.9,53,2,733,0)="""RTN"",""IBAMTC"",131,0)"
^XMB(3.9,53,2,734,0)="ORIG ; Find first admission date, considering ASIH movements"
^XMB(3.9,53,2,735,0)="""RTN"",""IBAMTC"",132,0)"
^XMB(3.9,53,2,736,0)=" ;  Input:  IBA    Output:  IBADMDT"
^XMB(3.9,53,2,737,0)="""RTN"",""IBAMTC"",133,0)"
^XMB(3.9,53,2,738,0)=" N X,Y,Z S Z=IBA"
^XMB(3.9,53,2,739,0)="""RTN"",""IBAMTC"",134,0)"
^XMB(3.9,53,2,740,0)=" F  S X=$G(^DGPM(Z,0)),Y=$P(X,""^"",21) Q:Y=""""  S Z=+$P($G(^DGPM(Y,0)),""^"",14)"
^XMB(3.9,53,2,741,0)="""RTN"",""IBAMTC"",135,0)"
^XMB(3.9,53,2,742,0)=" S IBADMDT=+X Q"
^XMB(3.9,53,2,743,0)="""RTN"",""IBAMTC"",136,0)"
^XMB(3.9,53,2,744,0)=" ;"
^XMB(3.9,53,2,745,0)="""RTN"",""IBAMTC"",137,0)"
^XMB(3.9,53,2,746,0)="KILL1 ; Kill all IB variables."
^XMB(3.9,53,2,747,0)="""RTN"",""IBAMTC"",138,0)"
^XMB(3.9,53,2,748,0)=" K VAERR,VAEL,VAIP,IBA,IBADMDT,IBAFY,IBATYP,IBBDT,IBBS,IBCHARG,IBCHG,IBCNT,IBCUR,IBDESC,IBDISDT,IBDT,IBDUZ,IBFAC,IBI,IBIL,IBJOB,IBLC,IBMAX"
^XMB(3.9,53,2,749,0)="""RTN"",""IBAMTC"",139,0)"
^XMB(3.9,53,2,750,0)=" K IBN,IBNOS,IBSAVBS,IBSEQNO,IBSERV,IBSITE,IBSL,IBTRAN,IBX,IBY,IBWHER,IBWARD,IBEDT,IBCHCTY,IBCHPDE,IBERRN,IBASIH,IBRTED"
^XMB(3.9,53,2,751,0)="""RTN"",""IBAMTC"",140,0)"
^XMB(3.9,53,2,752,0)="KILL ; Kill all IB variables needed to build charges."
^XMB(3.9,53,2,753,0)="""RTN"",""IBAMTC"",141,0)"
^XMB(3.9,53,2,754,0)=" K IBCLCT,IBCLDA,IBCLDT,IBCLDAY,IBCLDOL,IBCHPDA,IBCHCDA,IBCHG,IBCHFR,IBCHTO,IBCHTOTL,IBBS,IBNH"
^XMB(3.9,53,2,755,0)="""RTN"",""IBAMTC"",142,0)"
^XMB(3.9,53,2,756,0)=" K IBEVDA,IBEVDT,IBEVCLD,IBEVCAL,IBEVNEW,IBEVOLD,IBMED,IBTOTL,IBDESC,IBIL,IBTRAN,IBATYP,IBDATE"
^XMB(3.9,53,2,757,0)="""RTN"",""IBAMTC"",143,0)"
^XMB(3.9,53,2,758,0)=" Q"
^XMB(3.9,53,2,759,0)="""RTN"",""IBAMTD"")"
^XMB(3.9,53,2,760,0)="0^1^B18809071^B18317055"
^XMB(3.9,53,2,761,0)="""RTN"",""IBAMTD"",1,0)"
^XMB(3.9,53,2,762,0)="IBAMTD ;ALB/CPM - MOVEMENT EVENT DRIVER INTERFACE ;21-OCT-91"
^XMB(3.9,53,2,763,0)="""RTN"",""IBAMTD"",2,0)"
^XMB(3.9,53,2,764,0)="V ;;2.0;INTEGRATED BILLING;**45,52,93,115,132,153,164,156,234,312**;21-MAR-94"
^XMB(3.9,53,2,765,0)="""RTN"",""IBAMTD"",3,0)"
^XMB(3.9,53,2,766,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,53,2,767,0)="""RTN"",""IBAMTD"",4,0)"
^XMB(3.9,53,2,768,0)=" ;"
^XMB(3.9,53,2,769,0)="""RTN"",""IBAMTD"",5,0)"
^XMB(3.9,53,2,770,0)=" I $G(DGPMA)="""",$G(DGPMP)="""" Q"
^XMB(3.9,53,2,771,0)="""RTN"",""IBAMTD"",6,0)"
^XMB(3.9,53,2,772,0)=" ;"
^XMB(3.9,53,2,773,0)="""RTN"",""IBAMTD"",7,0)"
^XMB(3.9,53,2,774,0)="EN ; Process events from the Movement Event Driver."
^XMB(3.9,53,2,775,0)="""RTN"",""IBAMTD"",8,0)"
^XMB(3.9,53,2,776,0)=" ;"
^XMB(3.9,53,2,777,0)="""RTN"",""IBAMTD"",9,0)"
^XMB(3.9,53,2,778,0)=" ;S XRTL=$ZU(0),XRTN=""IBAMTD-1"" D T0^%ZOSV ;start rt clock"
^XMB(3.9,53,2,779,0)="""RTN"",""IBAMTD"",10,0)"
^XMB(3.9,53,2,780,0)=" ;"
^XMB(3.9,53,2,781,0)="""RTN"",""IBAMTD"",11,0)"
^XMB(3.9,53,2,782,0)=" Q:+$$SWSTAT^IBBAPI()                                      ;IB*2.0*312"
^XMB(3.9,53,2,783,0)="""RTN"",""IBAMTD"",12,0)"
^XMB(3.9,53,2,784,0)=" ;"
^XMB(3.9,53,2,785,0)="""RTN"",""IBAMTD"",13,0)"
^XMB(3.9,53,2,786,0)=" ; -- add admissions to claims tracking"
^XMB(3.9,53,2,787,0)="""RTN"",""IBAMTD"",14,0)"
^XMB(3.9,53,2,788,0)=" D INP^IBTRKR"
^XMB(3.9,53,2,789,0)="""RTN"",""IBAMTD"",15,0)"
^XMB(3.9,53,2,790,0)=" ;"
^XMB(3.9,53,2,791,0)="""RTN"",""IBAMTD"",16,0)"
^XMB(3.9,53,2,792,0)=" ; -- update Transfer Pricing"
^XMB(3.9,53,2,793,0)="""RTN"",""IBAMTD"",17,0)"
^XMB(3.9,53,2,794,0)=" D ^IBATEI"
^XMB(3.9,53,2,795,0)="""RTN"",""IBAMTD"",18,0)"
^XMB(3.9,53,2,796,0)=" ;"
^XMB(3.9,53,2,797,0)="""RTN"",""IBAMTD"",19,0)"
^XMB(3.9,53,2,798,0)=" ; -- check for Long Term Care"
^XMB(3.9,53,2,799,0)="""RTN"",""IBAMTD"",20,0)"
^XMB(3.9,53,2,800,0)=" N IBALTC D EN^IBAECI Q:IBALTC"
^XMB(3.9,53,2,801,0)="""RTN"",""IBAMTD"",21,0)"
^XMB(3.9,53,2,802,0)=" ;"
^XMB(3.9,53,2,803,0)="""RTN"",""IBAMTD"",22,0)"
^XMB(3.9,53,2,804,0)=" ; - process billing for CHAMPVA patients"
^XMB(3.9,53,2,805,0)="""RTN"",""IBAMTD"",23,0)"
^XMB(3.9,53,2,806,0)=" I $$CVA^IBAUTL5(DFN) D PROC^IBACVA G END"
^XMB(3.9,53,2,807,0)="""RTN"",""IBAMTD"",24,0)"
^XMB(3.9,53,2,808,0)=" ;"
^XMB(3.9,53,2,809,0)="""RTN"",""IBAMTD"",25,0)"
^XMB(3.9,53,2,810,0)=" ; - unflag continuous patients"
^XMB(3.9,53,2,811,0)="""RTN"",""IBAMTD"",26,0)"
^XMB(3.9,53,2,812,0)=" S IBASIH=$$ASIH^IBAUTL5(DGPMA)"
^XMB(3.9,53,2,813,0)="""RTN"",""IBAMTD"",27,0)"
^XMB(3.9,53,2,814,0)=" I DGPMP="""",($P(DGPMA,""^"",2)=3!(IBASIH)),$O(^IBE(351.1,""B"",DFN,0)),$D(^IBE(351.1,+$O(^(0)),0)),'$P(^(0),""^"",2) D UNFLAG^IBAMTD1"
^XMB(3.9,53,2,815,0)="""RTN"",""IBAMTD"",28,0)"
^XMB(3.9,53,2,816,0)=" ;"
^XMB(3.9,53,2,817,0)="""RTN"",""IBAMTD"",29,0)"
^XMB(3.9,53,2,818,0)=" ; - update case record on discharge for special inpatient episodes"
^XMB(3.9,53,2,819,0)="""RTN"",""IBAMTD"",30,0)"
^XMB(3.9,53,2,820,0)=" S IBA=$P($S(DGPMA="""":DGPMP,1:DGPMA),""^"",14)"
^XMB(3.9,53,2,821,0)="""RTN"",""IBAMTD"",31,0)"
^XMB(3.9,53,2,822,0)=" I $O(^IBE(351.2,""AC"",IBA,0)),DGPMP="""",($P(DGPMA,""^"",2)=3!(IBASIH)) D DIS^IBAMTI(IBA) G END"
^XMB(3.9,53,2,823,0)="""RTN"",""IBAMTD"",32,0)"
^XMB(3.9,53,2,824,0)=" ;"
^XMB(3.9,53,2,825,0)="""RTN"",""IBAMTD"",33,0)"
^XMB(3.9,53,2,826,0)=" ; - quit if patient was last Means Test copay patient before adm. date"
^XMB(3.9,53,2,827,0)="""RTN"",""IBAMTD"",34,0)"
^XMB(3.9,53,2,828,0)=" S IBLC=$$BILST^DGMTUB(DFN) G:'IBLC END I DGPMA="""",$P(DGPMP,""^"",2)=1,IBLC<$P(+DGPMP,""."") G END"
^XMB(3.9,53,2,829,0)="""RTN"",""IBAMTD"",35,0)"
^XMB(3.9,53,2,830,0)=" D ORIG^IBAMTC I IBLC<$P(IBADMDT,""."") G END"
^XMB(3.9,53,2,831,0)="""RTN"",""IBAMTD"",36,0)"
^XMB(3.9,53,2,832,0)=" ;"
^XMB(3.9,53,2,833,0)="""RTN"",""IBAMTD"",37,0)"
^XMB(3.9,53,2,834,0)=" ; - if editing or deleting a movement, send bulletin; delete"
^XMB(3.9,53,2,835,0)="""RTN"",""IBAMTD"",38,0)"
^XMB(3.9,53,2,836,0)=" ;   case record in #351.2 for deleted admissions"
^XMB(3.9,53,2,837,0)="""RTN"",""IBAMTD"",39,0)"
^XMB(3.9,53,2,838,0)=" I DGPMP]"""" S IBJOB=3 D  G END"
^XMB(3.9,53,2,839,0)="""RTN"",""IBAMTD"",40,0)"
^XMB(3.9,53,2,840,0)=" .D ^IBAMTBU"
^XMB(3.9,53,2,841,0)="""RTN"",""IBAMTD"",41,0)"
^XMB(3.9,53,2,842,0)=" .I DGPMA="""",$P(DGPMP,""^"",2)=1,$O(^IBE(351.2,""AC"",IBA,0)) S DA=$O(^(0)),DIK=""^IBE(351.2,"" D ^DIK K DA,DIK"
^XMB(3.9,53,2,843,0)="""RTN"",""IBAMTD"",42,0)"
^XMB(3.9,53,2,844,0)=" ;"
^XMB(3.9,53,2,845,0)="""RTN"",""IBAMTD"",43,0)"
^XMB(3.9,53,2,846,0)=" ; - add a case record for admission of special (ao/ir/ec/mst/hnc) inpatients"
^XMB(3.9,53,2,847,0)="""RTN"",""IBAMTD"",44,0)"
^XMB(3.9,53,2,848,0)=" I $P(DGPMA,""^"",2)=1 D  G END"
^XMB(3.9,53,2,849,0)="""RTN"",""IBAMTD"",45,0)"
^XMB(3.9,53,2,850,0)=" .N IBCLSF D CL^IBACV(DFN,IBADMDT,"""",.IBCLSF)"
^XMB(3.9,53,2,851,0)="""RTN"",""IBAMTD"",46,0)"
^XMB(3.9,53,2,852,0)=" .S IBCLSF=$O(IBCLSF(0)) I IBCLSF,(IBCLSF<5) D ADM^IBAMTI(DFN,IBA,IBCLSF) Q"
^XMB(3.9,53,2,853,0)="""RTN"",""IBAMTD"",47,0)"
^XMB(3.9,53,2,854,0)=" .I $P($$GETSTAT^DGMSTAPI(DFN,IBADMDT),U,2)=""Y"" S IBCLSF=5,IBCLSF(5)="""" D ADM^IBAMTI(DFN,IBA,IBCLSF) Q"
^XMB(3.9,53,2,855,0)="""RTN"",""IBAMTD"",48,0)"
^XMB(3.9,53,2,856,0)=" .I IBCLSF=6 D ADM^IBAMTI(DFN,IBA,IBCLSF)"
^XMB(3.9,53,2,857,0)="""RTN"",""IBAMTD"",49,0)"
^XMB(3.9,53,2,858,0)=" .I IBCLSF=7 D ADM^IBAMTI(DFN,IBA,IBCLSF) ;CV has the lowest priority"
^XMB(3.9,53,2,859,0)="""RTN"",""IBAMTD"",50,0)"
^XMB(3.9,53,2,860,0)=" ;"
^XMB(3.9,53,2,861,0)="""RTN"",""IBAMTD"",51,0)"
^XMB(3.9,53,2,862,0)=" ; - if adding a retro-active transfer or spec. transfer, send bulletin"
^XMB(3.9,53,2,863,0)="""RTN"",""IBAMTD"",52,0)"
^XMB(3.9,53,2,864,0)=" I ($P(DGPMA,""^"",2)=2!($P(DGPMA,""^"",2)=6)),+DGPMA<DT S IBJOB=6 D ^IBAMTBU"
^XMB(3.9,53,2,865,0)="""RTN"",""IBAMTD"",53,0)"
^XMB(3.9,53,2,866,0)=" ;"
^XMB(3.9,53,2,867,0)="""RTN"",""IBAMTD"",54,0)"
^XMB(3.9,53,2,868,0)=" ; - process discharges and ASIH movements only"
^XMB(3.9,53,2,869,0)="""RTN"",""IBAMTD"",55,0)"
^XMB(3.9,53,2,870,0)=" I $P(DGPMA,""^"",2)'=3,'IBASIH G END"
^XMB(3.9,53,2,871,0)="""RTN"",""IBAMTD"",56,0)"
^XMB(3.9,53,2,872,0)=" ;"
^XMB(3.9,53,2,873,0)="""RTN"",""IBAMTD"",57,0)"
^XMB(3.9,53,2,874,0)=" W:'$G(DGQUIET) !,""Billing Means Test charges...."""
^XMB(3.9,53,2,875,0)="""RTN"",""IBAMTD"",58,0)"
^XMB(3.9,53,2,876,0)=" S (IBY,Y)=1,IBEVOLD=0,IBJOB=2,IBWHER=1,IBDISDT=+DGPMA\1,IBAFY=$$FY^IBOUTL(DT)"
^XMB(3.9,53,2,877,0)="""RTN"",""IBAMTD"",59,0)"
^XMB(3.9,53,2,878,0)=" D SITE^IBAUTL I Y<1 S IBY=Y G END1"
^XMB(3.9,53,2,879,0)="""RTN"",""IBAMTD"",60,0)"
^XMB(3.9,53,2,880,0)=" D SERV^IBAUTL2 G:IBY<1 END1"
^XMB(3.9,53,2,881,0)="""RTN"",""IBAMTD"",61,0)"
^XMB(3.9,53,2,882,0)=" S IBWHER=24 D CLOCK^IBAUTL3 G:IBY<1 END1"
^XMB(3.9,53,2,883,0)="""RTN"",""IBAMTD"",62,0)"
^XMB(3.9,53,2,884,0)=" ;"
^XMB(3.9,53,2,885,0)="""RTN"",""IBAMTD"",63,0)"
^XMB(3.9,53,2,886,0)=" ; - Create an Outpat Copay for discharge with Observation Speciality"
^XMB(3.9,53,2,887,0)="""RTN"",""IBAMTD"",64,0)"
^XMB(3.9,53,2,888,0)=" I $$MVT^DGPMOBS(IBA) D OBS^IBECEAU5 G:IBY<1 END1 G END"
^XMB(3.9,53,2,889,0)="""RTN"",""IBAMTD"",65,0)"
^XMB(3.9,53,2,890,0)=" ;"
^XMB(3.9,53,2,891,0)="""RTN"",""IBAMTD"",66,0)"
^XMB(3.9,53,2,892,0)=" ; - handle the variations on the basis of the event record"
^XMB(3.9,53,2,893,0)="""RTN"",""IBAMTD"",67,0)"
^XMB(3.9,53,2,894,0)=" D EVFIND^IBAUTL3 ; sets IBEVDA to IEN of event record, or to 0 if none"
^XMB(3.9,53,2,895,0)="""RTN"",""IBAMTD"",68,0)"
^XMB(3.9,53,2,896,0)=" S IBWHER=25 D @$S(IBEVDA:""EVT"",1:""NOEVT"")"
^XMB(3.9,53,2,897,0)="""RTN"",""IBAMTD"",69,0)"
^XMB(3.9,53,2,898,0)=" ;"
^XMB(3.9,53,2,899,0)="""RTN"",""IBAMTD"",70,0)"
^XMB(3.9,53,2,900,0)=" ; - kill variables and close"
^XMB(3.9,53,2,901,0)="""RTN"",""IBAMTD"",71,0)"
^XMB(3.9,53,2,902,0)="END1 I IBY<1 S IBDUZ=DUZ D ^IBAERR1 K IBDUZ"
^XMB(3.9,53,2,903,0)="""RTN"",""IBAMTD"",72,0)"
^XMB(3.9,53,2,904,0)=" W:'$G(DGQUIET) ""completed."""
^XMB(3.9,53,2,905,0)="""RTN"",""IBAMTD"",73,0)"
^XMB(3.9,53,2,906,0)="END D KILL1^IBAMTC"
^XMB(3.9,53,2,907,0)="""RTN"",""IBAMTD"",74,0)"
^XMB(3.9,53,2,908,0)=" ;"
^XMB(3.9,53,2,909,0)="""RTN"",""IBAMTD"",75,0)"
^XMB(3.9,53,2,910,0)=" ;I $D(XRT0) S:'$D(XRTN) XRTN=""IBAMTD"" D T1^%ZOSV ;stop rt clock"
^XMB(3.9,53,2,911,0)="""RTN"",""IBAMTD"",76,0)"
^XMB(3.9,53,2,912,0)=" ;"
^XMB(3.9,53,2,913,0)="""RTN"",""IBAMTD"",77,0)"
^XMB(3.9,53,2,914,0)=" Q"
^XMB(3.9,53,2,915,0)="""RTN"",""IBAMTD"",78,0)"
^XMB(3.9,53,2,916,0)=" ;"
^XMB(3.9,53,2,917,0)="""RTN"",""IBAMTD"",79,0)"
^XMB(3.9,53,2,918,0)="EVT ; Billable admission event on record."
^XMB(3.9,53,2,919,0)="""RTN"",""IBAMTD"",80,0)"
^XMB(3.9,53,2,920,0)=" ; I +$$MVT^DGPMOBS(IBA) S IBDT=IBDISDT D OE^IBAMTBU1,CLOSE1 G EVTQ"
^XMB(3.9,53,2,921,0)="""RTN"",""IBAMTD"",81,0)"
^XMB(3.9,53,2,922,0)=" I IBEVCAL'<IBDISDT S IBY=""-1^IB033"" G EVTQ"
^XMB(3.9,53,2,923,0)="""RTN"",""IBAMTD"",82,0)"
^XMB(3.9,53,2,924,0)=" I IBEVCAL S X1=IBEVCAL,X2=1 D C^%DTC S IBBDT=%H I X=IBDISDT S IBDT=IBEVCAL D PASS^IBAUTL5,CLOSE1:IBY>0 G EVTQ"
^XMB(3.9,53,2,925,0)="""RTN"",""IBAMTD"",83,0)"
^XMB(3.9,53,2,926,0)=" I 'IBEVCAL S X=IBEVDT D H^%DTC S IBBDT=%H"
^XMB(3.9,53,2,927,0)="""RTN"",""IBAMTD"",84,0)"
^XMB(3.9,53,2,928,0)=" S X=IBDISDT D H^%DTC S IBEDT=%H-1"
^XMB(3.9,53,2,929,0)="""RTN"",""IBAMTD"",85,0)"
^XMB(3.9,53,2,930,0)=" I IBCLDA S %H=IBBDT D YMD^%DTC S IBDT=X D COUNT"
^XMB(3.9,53,2,931,0)="""RTN"",""IBAMTD"",86,0)"
^XMB(3.9,53,2,932,0)=" D ^IBAUTL4,CLOSE:IBY>0"
^XMB(3.9,53,2,933,0)="""RTN"",""IBAMTD"",87,0)"
^XMB(3.9,53,2,934,0)="EVTQ Q"
^XMB(3.9,53,2,935,0)="""RTN"",""IBAMTD"",88,0)"
^XMB(3.9,53,2,936,0)=" ;"
^XMB(3.9,53,2,937,0)="""RTN"",""IBAMTD"",89,0)"
^XMB(3.9,53,2,938,0)="NOEVT ; No billable event on record since admission date."
^XMB(3.9,53,2,939,0)="""RTN"",""IBAMTD"",90,0)"
^XMB(3.9,53,2,940,0)=" ; I +$$MVT^DGPMOBS(IBA) W:'$G(DGQUIET) "" patient not billed (adm. for O&E)... "" G NOEVTQ ; admitted for Observation & Examination"
^XMB(3.9,53,2,941,0)="""RTN"",""IBAMTD"",91,0)"
^XMB(3.9,53,2,942,0)=" S (IBCUR,VAIP(""D""))=+$G(^DGPM(IBA,0)) D IN5^VADPT S IBBS=$$SECT^IBAUTL5(+VAIP(8))"
^XMB(3.9,53,2,943,0)="""RTN"",""IBAMTD"",92,0)"
^XMB(3.9,53,2,944,0)=" I 'IBASIH,'IBBS G NOEVTQ ; not in billable bedsection"
^XMB(3.9,53,2,945,0)="""RTN"",""IBAMTD"",93,0)"
^XMB(3.9,53,2,946,0)=" I 'IBASIH,IBCUR\1=IBDISDT S IBDT=IBDISDT D:IBBS ^IBAMTD1 G NOEVTQ"
^XMB(3.9,53,2,947,0)="""RTN"",""IBAMTD"",94,0)"
^XMB(3.9,53,2,948,0)=" S X=IBADMDT\1 D H^%DTC S IBBDT=%H"
^XMB(3.9,53,2,949,0)="""RTN"",""IBAMTD"",95,0)"
^XMB(3.9,53,2,950,0)=" I IBASIH S VAIP(""D"")=IBADMDT,IBSAVBS=IBBS D IN5^VADPT S IBBS=$$SECT^IBAUTL5(+VAIP(8)) I 'IBBS S X=IBCUR D H^%DTC S IBBDT=%H I IBCUR\1=IBDISDT S IBDT=IBDISDT,IBBS=IBSAVBS D:IBBS ^IBAMTD1 G NOEVTQ"
^XMB(3.9,53,2,951,0)="""RTN"",""IBAMTD"",96,0)"
^XMB(3.9,53,2,952,0)=" D LAST^IBAUTL5"
^XMB(3.9,53,2,953,0)="""RTN"",""IBAMTD"",97,0)"
^XMB(3.9,53,2,954,0)=" S X=IBDISDT D H^%DTC S IBEDT=%H-1"
^XMB(3.9,53,2,955,0)="""RTN"",""IBAMTD"",98,0)"
^XMB(3.9,53,2,956,0)=" I IBCLDA S %H=IBBDT D YMD^%DTC S IBDT=X D COUNT"
^XMB(3.9,53,2,957,0)="""RTN"",""IBAMTD"",99,0)"
^XMB(3.9,53,2,958,0)=" D ^IBAUTL4,CLOSE:IBY>0"
^XMB(3.9,53,2,959,0)="""RTN"",""IBAMTD"",100,0)"
^XMB(3.9,53,2,960,0)="NOEVTQ Q"
^XMB(3.9,53,2,961,0)="""RTN"",""IBAMTD"",101,0)"
^XMB(3.9,53,2,962,0)=" ;"
^XMB(3.9,53,2,963,0)="""RTN"",""IBAMTD"",102,0)"
^XMB(3.9,53,2,964,0)="COUNT ; Find number of days on clock.    Input:  IBDT"
^XMB(3.9,53,2,965,0)="""RTN"",""IBAMTD"",103,0)"
^XMB(3.9,53,2,966,0)=" S X1=IBDT,X2=IBCLDT D ^%DTC S IBCLCT=X Q"
^XMB(3.9,53,2,967,0)="""RTN"",""IBAMTD"",104,0)"
^XMB(3.9,53,2,968,0)=" ;"
^XMB(3.9,53,2,969,0)="""RTN"",""IBAMTD"",105,0)"
^XMB(3.9,53,2,970,0)="CLOSE ; Close out charges, events; update clocks (at discharge: tag CLOSE1)"
^XMB(3.9,53,2,971,0)="""RTN"",""IBAMTD"",106,0)"
^XMB(3.9,53,2,972,0)=" I $G(IBCHPDA) S IBNOS=IBCHPDA D FILER^IBAUTL5 G:IBY<1 CLOSEQ"
^XMB(3.9,53,2,973,0)="""RTN"",""IBAMTD"",107,0)"
^XMB(3.9,53,2,974,0)=" I $G(IBCHCDA) S IBNOS=IBCHCDA D FILER^IBAUTL5 G:IBY<1 CLOSEQ"
^XMB(3.9,53,2,975,0)="""RTN"",""IBAMTD"",108,0)"
^XMB(3.9,53,2,976,0)=" I IBCLDA D CLUPD^IBAUTL3"
^XMB(3.9,53,2,977,0)="""RTN"",""IBAMTD"",109,0)"
^XMB(3.9,53,2,978,0)="CLOSE1 I IBEVDA,$D(IBDT) S IBEVCLD=IBDT D EVCLOSE^IBAUTL3"
^XMB(3.9,53,2,979,0)="""RTN"",""IBAMTD"",110,0)"
^XMB(3.9,53,2,980,0)="CLOSEQ Q"
^XMB(3.9,53,2,981,0)="""RTN"",""IBAMTED"")"
^XMB(3.9,53,2,982,0)="0^10^B11359061^B10970561"
^XMB(3.9,53,2,983,0)="""RTN"",""IBAMTED"",1,0)"
^XMB(3.9,53,2,984,0)="IBAMTED ;ALB/CPM,GN,PHH,EG - MEANS TEST EVENT DRIVER INTERFACE ; 11/30/05 1:48pm"
^XMB(3.9,53,2,985,0)="""RTN"",""IBAMTED"",2,0)"
^XMB(3.9,53,2,986,0)=" ;;2.0;INTEGRATED BILLING;**15,255,269,321,312**;21-MAR-94"
^XMB(3.9,53,2,987,0)="""RTN"",""IBAMTED"",3,0)"
^XMB(3.9,53,2,988,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,53,2,989,0)="""RTN"",""IBAMTED"",4,0)"
^XMB(3.9,53,2,990,0)=" ;"
^XMB(3.9,53,2,991,0)="""RTN"",""IBAMTED"",5,0)"
^XMB(3.9,53,2,992,0)=" ;IB*2*269 add IVM converted RX Copay Test update calls to a new API."
^XMB(3.9,53,2,993,0)="""RTN"",""IBAMTED"",6,0)"
^XMB(3.9,53,2,994,0)=" ;"
^XMB(3.9,53,2,995,0)="""RTN"",""IBAMTED"",7,0)"
^XMB(3.9,53,2,996,0)=" ; -- do medication copayment exemption processing"
^XMB(3.9,53,2,997,0)="""RTN"",""IBAMTED"",8,0)"
^XMB(3.9,53,2,998,0)=" ;"
^XMB(3.9,53,2,999,0)="""RTN"",""IBAMTED"",9,0)"
^XMB(3.9,53,2,1000,0)=" ;Z06 processing for RX Copay then Quit"
^XMB(3.9,53,2,1001,0)="""RTN"",""IBAMTED"",10,0)"
^XMB(3.9,53,2,1002,0)=" I $D(EASZ06),DGMTYPT=2 D ^IBAMTED2 G END                    ;IB*2*269"
^XMB(3.9,53,2,1003,0)="""RTN"",""IBAMTED"",11,0)"
^XMB(3.9,53,2,1004,0)=" ;Original Non-Z06 Copay processing"
^XMB(3.9,53,2,1005,0)="""RTN"",""IBAMTED"",12,0)"
^XMB(3.9,53,2,1006,0)=" I '$D(EASZ06) D"
^XMB(3.9,53,2,1007,0)="""RTN"",""IBAMTED"",13,0)"
^XMB(3.9,53,2,1008,0)=" . ;this routine is called from the DG namespace and IB namespace"
^XMB(3.9,53,2,1009,0)="""RTN"",""IBAMTED"",14,0)"
^XMB(3.9,53,2,1010,0)=" . ;when coming in from the DG namespace, variable DGMTD and DGMTDT is"
^XMB(3.9,53,2,1011,0)="""RTN"",""IBAMTED"",15,0)"
^XMB(3.9,53,2,1012,0)=" . ;used to define the means test test.  When coming in"
^XMB(3.9,53,2,1013,0)="""RTN"",""IBAMTED"",16,0)"
^XMB(3.9,53,2,1014,0)=" . ;from the IB namespace, variable IBDT  OR IVMMTDT is used"
^XMB(3.9,53,2,1015,0)="""RTN"",""IBAMTED"",17,0)"
^XMB(3.9,53,2,1016,0)=" . I '$D(IBDT) N IBDT"
^XMB(3.9,53,2,1017,0)="""RTN"",""IBAMTED"",18,0)"
^XMB(3.9,53,2,1018,0)=" . S IBDT=$S($D(IBDT):IBDT,$D(IVMMTDT):IVMMTDT,$D(DGMTDT):DGMTDT,$D(DGMTD):DGMTD,1:0)"
^XMB(3.9,53,2,1019,0)="""RTN"",""IBAMTED"",19,0)"
^XMB(3.9,53,2,1020,0)=" . I $P($G(^DGMT(408.31,+$$LST^DGMTCOU1(DFN,IBDT,2),0)),""^"",23)=2 Q"
^XMB(3.9,53,2,1021,0)="""RTN"",""IBAMTED"",20,0)"
^XMB(3.9,53,2,1022,0)=" . I $G(^DGMT(408.31,+$$LST^DGMTCOU1(DFN,IBDT,2),""C"",1,0))[""Z06 MT via Edb"" Q"
^XMB(3.9,53,2,1023,0)="""RTN"",""IBAMTED"",21,0)"
^XMB(3.9,53,2,1024,0)=" . D ^IBAMTED1"
^XMB(3.9,53,2,1025,0)="""RTN"",""IBAMTED"",22,0)"
^XMB(3.9,53,2,1026,0)=" . Q"
^XMB(3.9,53,2,1027,0)="""RTN"",""IBAMTED"",23,0)"
^XMB(3.9,53,2,1028,0)=" ;"
^XMB(3.9,53,2,1029,0)="""RTN"",""IBAMTED"",24,0)"
^XMB(3.9,53,2,1030,0)=" ; -- end medication copayment exemption processing"
^XMB(3.9,53,2,1031,0)="""RTN"",""IBAMTED"",25,0)"
^XMB(3.9,53,2,1032,0)=" ;"
^XMB(3.9,53,2,1033,0)="""RTN"",""IBAMTED"",26,0)"
^XMB(3.9,53,2,1034,0)=" Q:+$$SWSTAT^IBBAPI()                                        ;IB*2.0*312"
^XMB(3.9,53,2,1035,0)="""RTN"",""IBAMTED"",27,0)"
^XMB(3.9,53,2,1036,0)=" ;"
^XMB(3.9,53,2,1037,0)="""RTN"",""IBAMTED"",28,0)"
^XMB(3.9,53,2,1038,0)=" ; Quit if supported variables are unavailable."
^XMB(3.9,53,2,1039,0)="""RTN"",""IBAMTED"",29,0)"
^XMB(3.9,53,2,1040,0)=" Q:'$D(DFN)!('$D(DGMTA))!('$D(DGMTP))!('$D(DUZ))!('$D(DGMTINF))!('$D(DGMTACT))"
^XMB(3.9,53,2,1041,0)="""RTN"",""IBAMTED"",30,0)"
^XMB(3.9,53,2,1042,0)=" ;"
^XMB(3.9,53,2,1043,0)="""RTN"",""IBAMTED"",31,0)"
^XMB(3.9,53,2,1044,0)=" ;***"
^XMB(3.9,53,2,1045,0)="""RTN"",""IBAMTED"",32,0)"
^XMB(3.9,53,2,1046,0)=" ;S XRTL=$ZU(0),XRTN=""IBAMTED-1"" D T0^%ZOSV ;start rt clock"
^XMB(3.9,53,2,1047,0)="""RTN"",""IBAMTED"",33,0)"
^XMB(3.9,53,2,1048,0)=" ;"
^XMB(3.9,53,2,1049,0)="""RTN"",""IBAMTED"",34,0)"
^XMB(3.9,53,2,1050,0)=" ; -- quit if copay exemption test"
^XMB(3.9,53,2,1051,0)="""RTN"",""IBAMTED"",35,0)"
^XMB(3.9,53,2,1052,0)=" I $P(DGMTA,""^"",19)=2!($P(DGMTP,""^"",19)=2) G END"
^XMB(3.9,53,2,1053,0)="""RTN"",""IBAMTED"",36,0)"
^XMB(3.9,53,2,1054,0)=" ;"
^XMB(3.9,53,2,1055,0)="""RTN"",""IBAMTED"",37,0)"
^XMB(3.9,53,2,1056,0)=" ; Quit if test is a Category change resulting from a deleted test."
^XMB(3.9,53,2,1057,0)="""RTN"",""IBAMTED"",38,0)"
^XMB(3.9,53,2,1058,0)=" I DGMTA]"""",DGMTP]"""",+DGMTA'=+DGMTP G END ; on-line deletion"
^XMB(3.9,53,2,1059,0)="""RTN"",""IBAMTED"",39,0)"
^XMB(3.9,53,2,1060,0)=" I DGMTA]"""",DGMTP]"""",DGMTACT=""DEL"" G END ; IVM 'delete' transmission"
^XMB(3.9,53,2,1061,0)="""RTN"",""IBAMTED"",40,0)"
^XMB(3.9,53,2,1062,0)=" ;"
^XMB(3.9,53,2,1063,0)="""RTN"",""IBAMTED"",41,0)"
^XMB(3.9,53,2,1064,0)=" ; Process Means Tests uploaded by IVM."
^XMB(3.9,53,2,1065,0)="""RTN"",""IBAMTED"",42,0)"
^XMB(3.9,53,2,1066,0)=" I DGMTACT=""UPL""!(DGMTACT=""DUP"") D  G END"
^XMB(3.9,53,2,1067,0)="""RTN"",""IBAMTED"",43,0)"
^XMB(3.9,53,2,1068,0)=" .;"
^XMB(3.9,53,2,1069,0)="""RTN"",""IBAMTED"",44,0)"
^XMB(3.9,53,2,1070,0)=" .; - if IVM is uploading a verified test, create new MT charges"
^XMB(3.9,53,2,1071,0)="""RTN"",""IBAMTED"",45,0)"
^XMB(3.9,53,2,1072,0)=" .I $P(DGMTP,""^"",23)<2,$P(DGMTA,""^"",23)>1,'$$CK^DGMTUB(DGMTP),$$CK^DGMTUB(DGMTA) D ^IBAMTV Q"
^XMB(3.9,53,2,1073,0)="""RTN"",""IBAMTED"",46,0)"
^XMB(3.9,53,2,1074,0)=" .;"
^XMB(3.9,53,2,1075,0)="""RTN"",""IBAMTED"",47,0)"
^XMB(3.9,53,2,1076,0)=" .; - if IVM is sending a 'Delete' transmission, cancel previous charges"
^XMB(3.9,53,2,1077,0)="""RTN"",""IBAMTED"",48,0)"
^XMB(3.9,53,2,1078,0)=" .I $P(DGMTP,""^"",23)>1,$P(DGMTA,""^"",23)<2,$$CK^DGMTUB(DGMTP),'$$CK^DGMTUB(DGMTA) D CANC^IBAMTV"
^XMB(3.9,53,2,1079,0)="""RTN"",""IBAMTED"",49,0)"
^XMB(3.9,53,2,1080,0)=" ;"
^XMB(3.9,53,2,1081,0)="""RTN"",""IBAMTED"",50,0)"
^XMB(3.9,53,2,1082,0)=" ; Quit if the most current Means Test was not altered."
^XMB(3.9,53,2,1083,0)="""RTN"",""IBAMTED"",51,0)"
^XMB(3.9,53,2,1084,0)=" S IBMT=$S(DGMTA="""":DGMTP,1:DGMTA)"
^XMB(3.9,53,2,1085,0)="""RTN"",""IBAMTED"",52,0)"
^XMB(3.9,53,2,1086,0)=" S X=$$LST^DGMTU(DFN) I X,$P(X,""^"",2)>+IBMT G END"
^XMB(3.9,53,2,1087,0)="""RTN"",""IBAMTED"",53,0)"
^XMB(3.9,53,2,1088,0)=" ;"
^XMB(3.9,53,2,1089,0)="""RTN"",""IBAMTED"",54,0)"
^XMB(3.9,53,2,1090,0)=" ; Quit if an added or deleted test is a Required test."
^XMB(3.9,53,2,1091,0)="""RTN"",""IBAMTED"",55,0)"
^XMB(3.9,53,2,1092,0)=" I (DGMTA=""""!(DGMTP="""")),$P(IBMT,""^"",3)=1 G END"
^XMB(3.9,53,2,1093,0)="""RTN"",""IBAMTED"",56,0)"
^XMB(3.9,53,2,1094,0)=" ;"
^XMB(3.9,53,2,1095,0)="""RTN"",""IBAMTED"",57,0)"
^XMB(3.9,53,2,1096,0)=" ; Determine the billable status before and after the transaction."
^XMB(3.9,53,2,1097,0)="""RTN"",""IBAMTED"",58,0)"
^XMB(3.9,53,2,1098,0)=" D NOW^%DTC S IBCATCA=$$BIL^DGMTUB(DFN,%)"
^XMB(3.9,53,2,1099,0)="""RTN"",""IBAMTED"",59,0)"
^XMB(3.9,53,2,1100,0)=" S IBCATCP=$S(DGMTP="""":$$ADD,DGMTA="""":$$CK^DGMTUB(DGMTP),1:$$EDIT)"
^XMB(3.9,53,2,1101,0)="""RTN"",""IBAMTED"",60,0)"
^XMB(3.9,53,2,1102,0)=" ;"
^XMB(3.9,53,2,1103,0)="""RTN"",""IBAMTED"",61,0)"
^XMB(3.9,53,2,1104,0)=" ; Generate a bulletin if the patient's billing status has changed."
^XMB(3.9,53,2,1105,0)="""RTN"",""IBAMTED"",62,0)"
^XMB(3.9,53,2,1106,0)=" I (IBCATCP&('IBCATCA))!('IBCATCP&(IBCATCA)) D"
^XMB(3.9,53,2,1107,0)="""RTN"",""IBAMTED"",63,0)"
^XMB(3.9,53,2,1108,0)=" .S IBEFDT=$S($P(IBMT,""^"",7):+$P(IBMT,""^"",7),1:+IBMT)"
^XMB(3.9,53,2,1109,0)="""RTN"",""IBAMTED"",64,0)"
^XMB(3.9,53,2,1110,0)=" .I IBCATCP,'IBCATCA,'$$CHG^IBAMTEDU(IBEFDT) Q  ; hasn't been billed since going c->a"
^XMB(3.9,53,2,1111,0)="""RTN"",""IBAMTED"",65,0)"
^XMB(3.9,53,2,1112,0)=" .I 'IBCATCP,IBCATCA,'$$EP^IBAMTEDU(IBEFDT) Q  ; hasn't been treated since going a->c"
^XMB(3.9,53,2,1113,0)="""RTN"",""IBAMTED"",66,0)"
^XMB(3.9,53,2,1114,0)=" .D MT^IBAMTBU2 ; create bulletin"
^XMB(3.9,53,2,1115,0)="""RTN"",""IBAMTED"",67,0)"
^XMB(3.9,53,2,1116,0)=" ;"
^XMB(3.9,53,2,1117,0)="""RTN"",""IBAMTED"",68,0)"
^XMB(3.9,53,2,1118,0)="END K IBARR,IBCANCEL,IBCATCA,IBCATCP,IBDIQ,IBDUZ,IBEFDT,IBMT,IBI,IBC,IBPT,IBT"
^XMB(3.9,53,2,1119,0)="""RTN"",""IBAMTED"",69,0)"
^XMB(3.9,53,2,1120,0)=" K DIC,DIQ,DR,DA,VA,VAERR,VAEL,X,X1,X2,XMDUZ,XMTEXT,XMY,XMSUB"
^XMB(3.9,53,2,1121,0)="""RTN"",""IBAMTED"",70,0)"
^XMB(3.9,53,2,1122,0)=" ;***"
^XMB(3.9,53,2,1123,0)="""RTN"",""IBAMTED"",71,0)"
^XMB(3.9,53,2,1124,0)=" ;I $D(XRT0) S:'$D(XRTN) XRTN=""IBAMTED"" D T1^%ZOSV ;stop rt clock"
^XMB(3.9,53,2,1125,0)="""RTN"",""IBAMTED"",72,0)"
^XMB(3.9,53,2,1126,0)=" Q"
^XMB(3.9,53,2,1127,0)="""RTN"",""IBAMTED"",73,0)"
^XMB(3.9,53,2,1128,0)=" ;"
^XMB(3.9,53,2,1129,0)="""RTN"",""IBAMTED"",74,0)"
^XMB(3.9,53,2,1130,0)=" ;"
^XMB(3.9,53,2,1131,0)="""RTN"",""IBAMTED"",75,0)"
^XMB(3.9,53,2,1132,0)="ADD() ; Determine the billable status before adding a Means Test."
^XMB(3.9,53,2,1133,0)="""RTN"",""IBAMTED"",76,0)"
^XMB(3.9,53,2,1134,0)=" S X1=$S($P(DGMTA,""^"",3)=3:+DGMTA,1:+$P(DGMTA,""^"",7)\1),X2=-1 D C^%DTC"
^XMB(3.9,53,2,1135,0)="""RTN"",""IBAMTED"",77,0)"
^XMB(3.9,53,2,1136,0)=" Q $$BIL^DGMTUB(DFN,X)"
^XMB(3.9,53,2,1137,0)="""RTN"",""IBAMTED"",78,0)"
^XMB(3.9,53,2,1138,0)=" ;"
^XMB(3.9,53,2,1139,0)="""RTN"",""IBAMTED"",79,0)"
^XMB(3.9,53,2,1140,0)=" ;"
^XMB(3.9,53,2,1141,0)="""RTN"",""IBAMTED"",80,0)"
^XMB(3.9,53,2,1142,0)="EDIT() ; Determine the billable status before editing a Means Test."
^XMB(3.9,53,2,1143,0)="""RTN"",""IBAMTED"",81,0)"
^XMB(3.9,53,2,1144,0)=" I $P(DGMTP,""^"",3)'=1 Q $$CK^DGMTUB(DGMTP)"
^XMB(3.9,53,2,1145,0)="""RTN"",""IBAMTED"",82,0)"
^XMB(3.9,53,2,1146,0)=" S X1=+DGMTP,X2=-1 D C^%DTC Q $$BIL^DGMTUB(DFN,X)"
^XMB(3.9,53,2,1147,0)="""RTN"",""IBAMTS"")"
^XMB(3.9,53,2,1148,0)="0^2^B17712149^B15917567"
^XMB(3.9,53,2,1149,0)="""RTN"",""IBAMTS"",1,0)"
^XMB(3.9,53,2,1150,0)="IBAMTS ;ALB/CPM - APPOINTMENT EVENT DRIVER INTERFACE ;20-JUL-93"
^XMB(3.9,53,2,1151,0)="""RTN"",""IBAMTS"",2,0)"
^XMB(3.9,53,2,1152,0)=" ;;2.0;INTEGRATED BILLING;**52,115,132,153,164,156,171,247,312**;21-MAR-94"
^XMB(3.9,53,2,1153,0)="""RTN"",""IBAMTS"",3,0)"
^XMB(3.9,53,2,1154,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,53,2,1155,0)="""RTN"",""IBAMTS"",4,0)"
^XMB(3.9,53,2,1156,0)=" ;"
^XMB(3.9,53,2,1157,0)="""RTN"",""IBAMTS"",5,0)"
^XMB(3.9,53,2,1158,0)="EN ; Main interface entry point."
^XMB(3.9,53,2,1159,0)="""RTN"",""IBAMTS"",6,0)"
^XMB(3.9,53,2,1160,0)=" ;"
^XMB(3.9,53,2,1161,0)="""RTN"",""IBAMTS"",7,0)"
^XMB(3.9,53,2,1162,0)=" N IBSWINFO S IBSWINFO=$$SWSTAT^IBBAPI()                   ;IB*2.0*312"
^XMB(3.9,53,2,1163,0)="""RTN"",""IBAMTS"",8,0)"
^XMB(3.9,53,2,1164,0)=" ;"
^XMB(3.9,53,2,1165,0)="""RTN"",""IBAMTS"",9,0)"
^XMB(3.9,53,2,1166,0)=" S IBJOB=5,IBWHER="""",IBDUZ=DUZ,IBY=1"
^XMB(3.9,53,2,1167,0)="""RTN"",""IBAMTS"",10,0)"
^XMB(3.9,53,2,1168,0)=" ; Do Transfer Pricing"
^XMB(3.9,53,2,1169,0)="""RTN"",""IBAMTS"",11,0)"
^XMB(3.9,53,2,1170,0)=" I '+IBSWINFO D ^IBATEO                                    ;IB*2.0*312"
^XMB(3.9,53,2,1171,0)="""RTN"",""IBAMTS"",12,0)"
^XMB(3.9,53,2,1172,0)=" ; Check Encounter Related to LTC"
^XMB(3.9,53,2,1173,0)="""RTN"",""IBAMTS"",13,0)"
^XMB(3.9,53,2,1174,0)=" N IBALTC D EN^IBAECO"
^XMB(3.9,53,2,1175,0)="""RTN"",""IBAMTS"",14,0)"
^XMB(3.9,53,2,1176,0)=" I '$$BILST^DGMTUB(DFN) G ENQ ; never Means Test billable"
^XMB(3.9,53,2,1177,0)="""RTN"",""IBAMTS"",15,0)"
^XMB(3.9,53,2,1178,0)=" I '$$CHECK^IBECEAU(0) D ^IBAERR1 G ENQ ; can't set vital parameters"
^XMB(3.9,53,2,1179,0)="""RTN"",""IBAMTS"",16,0)"
^XMB(3.9,53,2,1180,0)=" ;"
^XMB(3.9,53,2,1181,0)="""RTN"",""IBAMTS"",17,0)"
^XMB(3.9,53,2,1182,0)=" ; - process all parent outpatient encounters"
^XMB(3.9,53,2,1183,0)="""RTN"",""IBAMTS"",18,0)"
^XMB(3.9,53,2,1184,0)=" S IBORG=0 F  S IBORG=$O(^TMP(""SDEVT"",$J,SDHDL,IBORG)) Q:'IBORG  D"
^XMB(3.9,53,2,1185,0)="""RTN"",""IBAMTS"",19,0)"
^XMB(3.9,53,2,1186,0)=" .S IBOE=0 F  S IBOE=$O(^TMP(""SDEVT"",$J,SDHDL,IBORG,""SDOE"",IBOE)) Q:'IBOE  S IBEVT=$G(^(IBOE,0,""AFTER"")),IBEV0=$G(^(""BEFORE"")) D"
^XMB(3.9,53,2,1187,0)="""RTN"",""IBAMTS"",20,0)"
^XMB(3.9,53,2,1188,0)=" ..;"
^XMB(3.9,53,2,1189,0)="""RTN"",""IBAMTS"",21,0)"
^XMB(3.9,53,2,1190,0)=" ..S IBDT=$S(IBEVT:+IBEVT,1:+IBEV0),IBDAT=$P(IBDT,""."")"
^XMB(3.9,53,2,1191,0)="""RTN"",""IBAMTS"",22,0)"
^XMB(3.9,53,2,1192,0)=" ..; Do NOT PROCESS on VistA if IBDAT>=Switch Eff Date    ;CCR-930"
^XMB(3.9,53,2,1193,0)="""RTN"",""IBAMTS"",23,0)"
^XMB(3.9,53,2,1194,0)=" ..I +IBSWINFO,(IBDAT+1)>$P(IBSWINFO,""^"",2) Q             ;IB*2.0*312"
^XMB(3.9,53,2,1195,0)="""RTN"",""IBAMTS"",24,0)"
^XMB(3.9,53,2,1196,0)=" ..;"
^XMB(3.9,53,2,1197,0)="""RTN"",""IBAMTS"",25,0)"
^XMB(3.9,53,2,1198,0)=" ..S IBAPTY=$S(IBEVT:$P(IBEVT,""^"",10),1:$P(IBEV0,""^"",10))"
^XMB(3.9,53,2,1199,0)="""RTN"",""IBAMTS"",26,0)"
^XMB(3.9,53,2,1200,0)=" ..S IBBILLED=$$BFO^IBECEAU(DFN,IBDAT),IBY=1"
^XMB(3.9,53,2,1201,0)="""RTN"",""IBAMTS"",27,0)"
^XMB(3.9,53,2,1202,0)=" ..;"
^XMB(3.9,53,2,1203,0)="""RTN"",""IBAMTS"",28,0)"
^XMB(3.9,53,2,1204,0)=" ..; - if C&P encounter, cancel charges for the day and quit"
^XMB(3.9,53,2,1205,0)="""RTN"",""IBAMTS"",29,0)"
^XMB(3.9,53,2,1206,0)=" ..I IBAPTY=1!(IBALTC) D:IBBILLED  Q"
^XMB(3.9,53,2,1207,0)="""RTN"",""IBAMTS"",30,0)"
^XMB(3.9,53,2,1208,0)=" ...S IBCRES=+$O(^IBE(350.3,""B"",$S(IBALTC:""BILLED LTC CHARGE"",1:""COMP & PENSION VISIT RECORDED""),0))"
^XMB(3.9,53,2,1209,0)="""RTN"",""IBAMTS"",31,0)"
^XMB(3.9,53,2,1210,0)=" ...S:'IBCRES IBCRES=23 S IBWHER="""""
^XMB(3.9,53,2,1211,0)="""RTN"",""IBAMTS"",32,0)"
^XMB(3.9,53,2,1212,0)=" ...D CANCH^IBECEAU4(IBBILLED,IBCRES,0)"
^XMB(3.9,53,2,1213,0)="""RTN"",""IBAMTS"",33,0)"
^XMB(3.9,53,2,1214,0)=" ..;"
^XMB(3.9,53,2,1215,0)="""RTN"",""IBAMTS"",34,0)"
^XMB(3.9,53,2,1216,0)=" ..; - quit if there are any C&P encounters on the visit date"
^XMB(3.9,53,2,1217,0)="""RTN"",""IBAMTS"",35,0)"
^XMB(3.9,53,2,1218,0)=" ..Q:$$CNP^IBECEAU(DFN,IBDAT)"
^XMB(3.9,53,2,1219,0)="""RTN"",""IBAMTS"",36,0)"
^XMB(3.9,53,2,1220,0)=" ..;"
^XMB(3.9,53,2,1221,0)="""RTN"",""IBAMTS"",37,0)"
^XMB(3.9,53,2,1222,0)=" ..; - quit if there are any LTC encounters on the visit date"
^XMB(3.9,53,2,1223,0)="""RTN"",""IBAMTS"",38,0)"
^XMB(3.9,53,2,1224,0)=" ..Q:$$LTCENC^IBAECU(DFN,IBDAT)"
^XMB(3.9,53,2,1225,0)="""RTN"",""IBAMTS"",39,0)"
^XMB(3.9,53,2,1226,0)=" ..;"
^XMB(3.9,53,2,1227,0)="""RTN"",""IBAMTS"",40,0)"
^XMB(3.9,53,2,1228,0)=" ..; - don't process child events"
^XMB(3.9,53,2,1229,0)="""RTN"",""IBAMTS"",41,0)"
^XMB(3.9,53,2,1230,0)=" ..I IBEVT]"""" Q:$P(IBEVT,""^"",6)"
^XMB(3.9,53,2,1231,0)="""RTN"",""IBAMTS"",42,0)"
^XMB(3.9,53,2,1232,0)=" ..I IBEVT="""",IBEV0]"""" Q:$P(IBEV0,""^"",6)"
^XMB(3.9,53,2,1233,0)="""RTN"",""IBAMTS"",43,0)"
^XMB(3.9,53,2,1234,0)=" ..;"
^XMB(3.9,53,2,1235,0)="""RTN"",""IBAMTS"",44,0)"
^XMB(3.9,53,2,1236,0)=" ..; - get statuses"
^XMB(3.9,53,2,1237,0)="""RTN"",""IBAMTS"",45,0)"
^XMB(3.9,53,2,1238,0)=" ..S IBAST=+$P(IBEVT,""^"",12),IBBST=+$P(IBEV0,""^"",12)"
^XMB(3.9,53,2,1239,0)="""RTN"",""IBAMTS"",46,0)"
^XMB(3.9,53,2,1240,0)=" ..;"
^XMB(3.9,53,2,1241,0)="""RTN"",""IBAMTS"",47,0)"
^XMB(3.9,53,2,1242,0)=" ..; - do either NEW or UPDATED processing"
^XMB(3.9,53,2,1243,0)="""RTN"",""IBAMTS"",48,0)"
^XMB(3.9,53,2,1244,0)=" ..I IBAST=2,IBBST'=2 D NEW^IBAMTS1 Q"
^XMB(3.9,53,2,1245,0)="""RTN"",""IBAMTS"",49,0)"
^XMB(3.9,53,2,1246,0)=" ..D UPD^IBAMTS2"
^XMB(3.9,53,2,1247,0)="""RTN"",""IBAMTS"",50,0)"
^XMB(3.9,53,2,1248,0)=" ;"
^XMB(3.9,53,2,1249,0)="""RTN"",""IBAMTS"",51,0)"
^XMB(3.9,53,2,1250,0)="ENQ K IBJOB,IBWHER,IBORG,IBOE,IBEVT,IBEV0,IBAST,IBBST,IBDUZ,IBY"
^XMB(3.9,53,2,1251,0)="""RTN"",""IBAMTS"",52,0)"
^XMB(3.9,53,2,1252,0)=" K IBDT,IBDAT,IBAPTY,IBBILLED,IBSERV,IBSITE,IBFAC,IBCRES,IBRTED"
^XMB(3.9,53,2,1253,0)="""RTN"",""IBAMTS"",53,0)"
^XMB(3.9,53,2,1254,0)=" Q"
^XMB(3.9,53,2,1255,0)="""RTN"",""IBAMTS"",54,0)"
^XMB(3.9,53,2,1256,0)=" ;"
^XMB(3.9,53,2,1257,0)="""RTN"",""IBAMTS"",55,0)"
^XMB(3.9,53,2,1258,0)="BULL ; Send bulletin when classified patients are billed stops which"
^XMB(3.9,53,2,1259,0)="""RTN"",""IBAMTS"",56,0)"
^XMB(3.9,53,2,1260,0)=" ; are exempt from the classification process."
^XMB(3.9,53,2,1261,0)="""RTN"",""IBAMTS"",57,0)"
^XMB(3.9,53,2,1262,0)=" N IBT,IBC,IBPT,IBDUZ,IBX S IBPT=$$PT^IBEFUNC(DFN),IBX=$$CLTY"
^XMB(3.9,53,2,1263,0)="""RTN"",""IBAMTS"",58,0)"
^XMB(3.9,53,2,1264,0)=" S XMSUB=""CHARGE FOR STOP CODE EXEMPT FROM CLASSIFICATION"""
^XMB(3.9,53,2,1265,0)="""RTN"",""IBAMTS"",59,0)"
^XMB(3.9,53,2,1266,0)=" S IBT(1)=""The following patient, who ""_$S(IBX=""SC"":""has a service connected disability,"",IBX=""CV"":""is Combat Veteran"",1:""has claimed exposure to ""_IBX_"","")"
^XMB(3.9,53,2,1267,0)="""RTN"",""IBAMTS"",60,0)"
^XMB(3.9,53,2,1268,0)=" S IBT(2)=""was billed the Means Test outpatient copay for a stop code which is"""
^XMB(3.9,53,2,1269,0)="""RTN"",""IBAMTS"",61,0)"
^XMB(3.9,53,2,1270,0)=" S IBT(3)=""exempt from classification:"""
^XMB(3.9,53,2,1271,0)="""RTN"",""IBAMTS"",62,0)"
^XMB(3.9,53,2,1272,0)=" S IBT(4)="" "" S IBC=4"
^XMB(3.9,53,2,1273,0)="""RTN"",""IBAMTS"",63,0)"
^XMB(3.9,53,2,1274,0)=" S IBDUZ=DUZ D PAT^IBAERR1"
^XMB(3.9,53,2,1275,0)="""RTN"",""IBAMTS"",64,0)"
^XMB(3.9,53,2,1276,0)=" S Y=IBDAT D DD^%DT"
^XMB(3.9,53,2,1277,0)="""RTN"",""IBAMTS"",65,0)"
^XMB(3.9,53,2,1278,0)=" S IBC=IBC+1,IBT(IBC)=""Stop Date: ""_Y"
^XMB(3.9,53,2,1279,0)="""RTN"",""IBAMTS"",66,0)"
^XMB(3.9,53,2,1280,0)=" S IBC=IBC+1,IBT(IBC)=""Stop Code: ""_$P($G(^DIC(40.7,+$P(IBEVT,""^"",3),0)),""^"")"
^XMB(3.9,53,2,1281,0)="""RTN"",""IBAMTS"",67,0)"
^XMB(3.9,53,2,1282,0)=" S IBC=IBC+1,IBT(IBC)="" """
^XMB(3.9,53,2,1283,0)="""RTN"",""IBAMTS"",68,0)"
^XMB(3.9,53,2,1284,0)=" S IBC=IBC+1,IBT(IBC)=""Please check this patient's medical record to determine if the care provided"""
^XMB(3.9,53,2,1285,0)="""RTN"",""IBAMTS"",69,0)"
^XMB(3.9,53,2,1286,0)=" S IBC=IBC+1,IBT(IBC)=""was related to the ""_$S(IBX=""SC"":""SC disability"",IBX=""CV"":""Combat Veteran status"",1:""claimed exposure"")_"", and, if related, cancel the charge."""
^XMB(3.9,53,2,1287,0)="""RTN"",""IBAMTS"",70,0)"
^XMB(3.9,53,2,1288,0)=" D MAIL^IBAERR1"
^XMB(3.9,53,2,1289,0)="""RTN"",""IBAMTS"",71,0)"
^XMB(3.9,53,2,1290,0)=" K X,Y,XMSUB,XMY,XMTEXT,XMDUZ"
^XMB(3.9,53,2,1291,0)="""RTN"",""IBAMTS"",72,0)"
^XMB(3.9,53,2,1292,0)=" Q"
^XMB(3.9,53,2,1293,0)="""RTN"",""IBAMTS"",73,0)"
^XMB(3.9,53,2,1294,0)=" ;"
^XMB(3.9,53,2,1295,0)="""RTN"",""IBAMTS"",74,0)"
^XMB(3.9,53,2,1296,0)="CLTY() ; Return the classification type"
^XMB(3.9,53,2,1297,0)="""RTN"",""IBAMTS"",75,0)"
^XMB(3.9,53,2,1298,0)=" N IBARR,Y D CL^SDCO21(DFN,IBDAT,"""",.IBARR) S Y="""""
^XMB(3.9,53,2,1299,0)="""RTN"",""IBAMTS"",76,0)"
^XMB(3.9,53,2,1300,0)=" I $D(IBARR(3)) S Y=""SC"" G CLTYQ"
^XMB(3.9,53,2,1301,0)="""RTN"",""IBAMTS"",77,0)"
^XMB(3.9,53,2,1302,0)=" I $D(IBARR(7)),+$$CVEDT^IBACV(DFN,IBDAT) S Y=""CV"" G CLTYQ"
^XMB(3.9,53,2,1303,0)="""RTN"",""IBAMTS"",78,0)"
^XMB(3.9,53,2,1304,0)=" I $D(IBARR(1)) S Y=""Agent Orange"" G CLTYQ"
^XMB(3.9,53,2,1305,0)="""RTN"",""IBAMTS"",79,0)"
^XMB(3.9,53,2,1306,0)=" I $D(IBARR(2)) S Y=""Ionizing Radiation"" G CLTYQ"
^XMB(3.9,53,2,1307,0)="""RTN"",""IBAMTS"",80,0)"
^XMB(3.9,53,2,1308,0)=" I $D(IBARR(4)) S Y=""Environmental Contaminants"" G CLTYQ"
^XMB(3.9,53,2,1309,0)="""RTN"",""IBAMTS"",81,0)"
^XMB(3.9,53,2,1310,0)=" I $D(IBARR(5)) S Y=""Military Sexual Trauma"" G CLTYQ"
^XMB(3.9,53,2,1311,0)="""RTN"",""IBAMTS"",82,0)"
^XMB(3.9,53,2,1312,0)=" I $D(IBARR(6)) S Y=""Head/Neck Cancer"" G CLTYQ"
^XMB(3.9,53,2,1313,0)="""RTN"",""IBAMTS"",83,0)"
^XMB(3.9,53,2,1314,0)="CLTYQ Q Y"
^XMB(3.9,53,2,1315,0)="""RTN"",""IBBSHDWN"")"
^XMB(3.9,53,2,1316,0)="0^11^B27343484"
^XMB(3.9,53,2,1317,0)="""RTN"",""IBBSHDWN"",1,0)"
^XMB(3.9,53,2,1318,0)="IBBSHDWN ;WOIFO/CLC - IB Sunset for PFSS ;7-JUN-2005"
^XMB(3.9,53,2,1319,0)="""RTN"",""IBBSHDWN"",2,0)"
^XMB(3.9,53,2,1320,0)=" ;;2.0;INTEGRATED BILLING;**312**;21-MAR-94"
^XMB(3.9,53,2,1321,0)="""RTN"",""IBBSHDWN"",3,0)"
^XMB(3.9,53,2,1322,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,53,2,1323,0)="""RTN"",""IBBSHDWN"",4,0)"
^XMB(3.9,53,2,1324,0)=" ;********************************************************"
^XMB(3.9,53,2,1325,0)="""RTN"",""IBBSHDWN"",5,0)"
^XMB(3.9,53,2,1326,0)=" ; PURPOSE: Sunset IB Options/functionality"
^XMB(3.9,53,2,1327,0)="""RTN"",""IBBSHDWN"",6,0)"
^XMB(3.9,53,2,1328,0)=" ;        :"
^XMB(3.9,53,2,1329,0)="""RTN"",""IBBSHDWN"",7,0)"
^XMB(3.9,53,2,1330,0)=" ;        : *** The CHKSHDWN TAG is NOT currently being utilized **"
^XMB(3.9,53,2,1331,0)="""RTN"",""IBBSHDWN"",8,0)"
^XMB(3.9,53,2,1332,0)=" ;        : "
^XMB(3.9,53,2,1333,0)="""RTN"",""IBBSHDWN"",9,0)"
^XMB(3.9,53,2,1334,0)=" ;"
^XMB(3.9,53,2,1335,0)="""RTN"",""IBBSHDWN"",10,0)"
^XMB(3.9,53,2,1336,0)=" ;   USAGE: PFSS - Patch(IB*2.0*312) routine"
^XMB(3.9,53,2,1337,0)="""RTN"",""IBBSHDWN"",11,0)"
^XMB(3.9,53,2,1338,0)=" ;"
^XMB(3.9,53,2,1339,0)="""RTN"",""IBBSHDWN"",12,0)"
^XMB(3.9,53,2,1340,0)=" ;*******************************************************************"
^XMB(3.9,53,2,1341,0)="""RTN"",""IBBSHDWN"",13,0)"
^XMB(3.9,53,2,1342,0)=" ; @INPUTS: SRC- The Source Routine, Used for Text Tags"
^XMB(3.9,53,2,1343,0)="""RTN"",""IBBSHDWN"",14,0)"
^XMB(3.9,53,2,1344,0)=" ;        : KEY- Identifier from Source Ex: AUTO BILLER"
^XMB(3.9,53,2,1345,0)="""RTN"",""IBBSHDWN"",15,0)"
^XMB(3.9,53,2,1346,0)=" ; @OUTPUTS: Boolean - True=Function Shutdown, False=Function is OK "
^XMB(3.9,53,2,1347,0)="""RTN"",""IBBSHDWN"",16,0)"
^XMB(3.9,53,2,1348,0)=" ;*******************************************************************"
^XMB(3.9,53,2,1349,0)="""RTN"",""IBBSHDWN"",17,0)"
^XMB(3.9,53,2,1350,0)="CHKSHDWN(SRC,KEY) ;"
^XMB(3.9,53,2,1351,0)="""RTN"",""IBBSHDWN"",18,0)"
^XMB(3.9,53,2,1352,0)=" N SWINFO,I,ITEM,POP,RET,TAG"
^XMB(3.9,53,2,1353,0)="""RTN"",""IBBSHDWN"",19,0)"
^XMB(3.9,53,2,1354,0)=" S SWINFO=$$SWSTAT^IBBAPI()"
^XMB(3.9,53,2,1355,0)="""RTN"",""IBBSHDWN"",20,0)"
^XMB(3.9,53,2,1356,0)=" ;"
^XMB(3.9,53,2,1357,0)="""RTN"",""IBBSHDWN"",21,0)"
^XMB(3.9,53,2,1358,0)=" S (RET,POP)=0"
^XMB(3.9,53,2,1359,0)="""RTN"",""IBBSHDWN"",22,0)"
^XMB(3.9,53,2,1360,0)=" F I=1:1 S ITEM=$T(@SRC+I) Q:ITEM[""%%%""  D  Q:POP"
^XMB(3.9,53,2,1361,0)="""RTN"",""IBBSHDWN"",23,0)"
^XMB(3.9,53,2,1362,0)="    .Q:$TR($P(ITEM,"";"",4),"" "","""")'=KEY"
^XMB(3.9,53,2,1363,0)="""RTN"",""IBBSHDWN"",24,0)"
^XMB(3.9,53,2,1364,0)="    .;"
^XMB(3.9,53,2,1365,0)="""RTN"",""IBBSHDWN"",25,0)"
^XMB(3.9,53,2,1366,0)="    .S TAG=$TR($P(ITEM,"";"",5),"" "","""")"
^XMB(3.9,53,2,1367,0)="""RTN"",""IBBSHDWN"",26,0)"
^XMB(3.9,53,2,1368,0)="    .I TAG="""" S POP=1,RET=+SWINFO            ;No additional logic"
^XMB(3.9,53,2,1369,0)="""RTN"",""IBBSHDWN"",27,0)"
^XMB(3.9,53,2,1370,0)="    .;"
^XMB(3.9,53,2,1371,0)="""RTN"",""IBBSHDWN"",28,0)"
^XMB(3.9,53,2,1372,0)="    .D @TAG"
^XMB(3.9,53,2,1373,0)="""RTN"",""IBBSHDWN"",29,0)"
^XMB(3.9,53,2,1374,0)=" Q RET"
^XMB(3.9,53,2,1375,0)="""RTN"",""IBBSHDWN"",30,0)"
^XMB(3.9,53,2,1376,0)="IBAMTD ;"
^XMB(3.9,53,2,1377,0)="""RTN"",""IBBSHDWN"",31,0)"
^XMB(3.9,53,2,1378,0)=" ;;;CLAIMS TRACKING  ;        ; Disable Claims Tracking"
^XMB(3.9,53,2,1379,0)="""RTN"",""IBBSHDWN"",32,0)"
^XMB(3.9,53,2,1380,0)=" ;;;TRANSFER PRICING ;        ; Disable Transfer Pricing"
^XMB(3.9,53,2,1381,0)="""RTN"",""IBBSHDWN"",33,0)"
^XMB(3.9,53,2,1382,0)=" ;;;LTC CLOCK        ;        ; Disable LTC Clock Creation"
^XMB(3.9,53,2,1383,0)="""RTN"",""IBBSHDWN"",34,0)"
^XMB(3.9,53,2,1384,0)=" ;;;CHAMPVA          ;        ; Disable Co-Pay Chgs for ChampVA"
^XMB(3.9,53,2,1385,0)="""RTN"",""IBBSHDWN"",35,0)"
^XMB(3.9,53,2,1386,0)=" ;;;CONT HOSP PAT    ;        ; Disable Unflaf Cont Hosp Pats"
^XMB(3.9,53,2,1387,0)="""RTN"",""IBBSHDWN"",36,0)"
^XMB(3.9,53,2,1388,0)=" ;;;SPECIAL INPAT    ;        ; Disable Special Inpat Cases"
^XMB(3.9,53,2,1389,0)="""RTN"",""IBBSHDWN"",37,0)"
^XMB(3.9,53,2,1390,0)=" ;;;OBSERVATION COPAY;        ; Disable Observation Copay"
^XMB(3.9,53,2,1391,0)="""RTN"",""IBBSHDWN"",38,0)"
^XMB(3.9,53,2,1392,0)=" ;;;INPATIENT EVENTS ;        ; Disable Inpatient Event Charges"
^XMB(3.9,53,2,1393,0)="""RTN"",""IBBSHDWN"",39,0)"
^XMB(3.9,53,2,1394,0)=" ;;;%%%"
^XMB(3.9,53,2,1395,0)="""RTN"",""IBBSHDWN"",40,0)"
^XMB(3.9,53,2,1396,0)="IBAMTS ;"
^XMB(3.9,53,2,1397,0)="""RTN"",""IBBSHDWN"",41,0)"
^XMB(3.9,53,2,1398,0)=" ;;;TRANSFER PRICING ;        ; Disable Transfer Pricing"
^XMB(3.9,53,2,1399,0)="""RTN"",""IBBSHDWN"",42,0)"
^XMB(3.9,53,2,1400,0)=" ;;;LTC CLOCK        ;        ; Disable LTC Clock Co-pay"
^XMB(3.9,53,2,1401,0)="""RTN"",""IBBSHDWN"",43,0)"
^XMB(3.9,53,2,1402,0)=" ;;;OUTPAT MT COPAY  ;        ; Disable Out Pat MT Co-Pay"
^XMB(3.9,53,2,1403,0)="""RTN"",""IBBSHDWN"",44,0)"
^XMB(3.9,53,2,1404,0)=" ;;;%%%"
^XMB(3.9,53,2,1405,0)="""RTN"",""IBBSHDWN"",45,0)"
^XMB(3.9,53,2,1406,0)="IBAMTC ;"
^XMB(3.9,53,2,1407,0)="""RTN"",""IBBSHDWN"",46,0)"
^XMB(3.9,53,2,1408,0)=" ;;;CLAIMS TRACKING  ;        ; Disable Claims Tracking"
^XMB(3.9,53,2,1409,0)="""RTN"",""IBBSHDWN"",47,0)"
^XMB(3.9,53,2,1410,0)=" ;;;AUTO BILLER      ;ATOBILL ; Adjust Auto-Biller Logic"
^XMB(3.9,53,2,1411,0)="""RTN"",""IBBSHDWN"",48,0)"
^XMB(3.9,53,2,1412,0)=" ;;;TRANSFER PRICING ;        ; Disable Transfer Pricing"
^XMB(3.9,53,2,1413,0)="""RTN"",""IBBSHDWN"",49,0)"
^XMB(3.9,53,2,1414,0)=" ;;;%%%"
^XMB(3.9,53,2,1415,0)="""RTN"",""IBBSHDWN"",50,0)"
^XMB(3.9,53,2,1416,0)=" Q"
^XMB(3.9,53,2,1417,0)="""RTN"",""IBBSHDWN"",51,0)"
^XMB(3.9,53,2,1418,0)=" ;*******************************************************************"
^XMB(3.9,53,2,1419,0)="""RTN"",""IBBSHDWN"",52,0)"
^XMB(3.9,53,2,1420,0)=" ; @INPUTS: None"
^XMB(3.9,53,2,1421,0)="""RTN"",""IBBSHDWN"",53,0)"
^XMB(3.9,53,2,1422,0)=" ; @OUTPUTS: 1/0 1=User wants to continue, 0= DO Not continue"
^XMB(3.9,53,2,1423,0)="""RTN"",""IBBSHDWN"",54,0)"
^XMB(3.9,53,2,1424,0)=" ;*******************************************************************"
^XMB(3.9,53,2,1425,0)="""RTN"",""IBBSHDWN"",55,0)"
^XMB(3.9,53,2,1426,0)="PFSSWARN() ;"
^XMB(3.9,53,2,1427,0)="""RTN"",""IBBSHDWN"",56,0)"
^XMB(3.9,53,2,1428,0)=" N DIR,DIRUT,DTOUT,X,Y,IBSTAR,IBSWINFO"
^XMB(3.9,53,2,1429,0)="""RTN"",""IBBSHDWN"",57,0)"
^XMB(3.9,53,2,1430,0)=" S IBSTAR80="""",$P(IBSTAR,""*"",55)="""",Y=1"
^XMB(3.9,53,2,1431,0)="""RTN"",""IBBSHDWN"",58,0)"
^XMB(3.9,53,2,1432,0)=" S IBSWINFO=$$SWSTAT^IBBAPI() G:'+IBSWINFO WARNQ"
^XMB(3.9,53,2,1433,0)="""RTN"",""IBBSHDWN"",59,0)"
^XMB(3.9,53,2,1434,0)=" D HOME^%ZIS  W @IOF"
^XMB(3.9,53,2,1435,0)="""RTN"",""IBBSHDWN"",60,0)"
^XMB(3.9,53,2,1436,0)=" S DIR(0)=""YAO"",DIR(""B"")=""N"""
^XMB(3.9,53,2,1437,0)="""RTN"",""IBBSHDWN"",61,0)"
^XMB(3.9,53,2,1438,0)=" S DIR(""A"",1)=IBSTAR,DIR(""A"",3)="""""
^XMB(3.9,53,2,1439,0)="""RTN"",""IBBSHDWN"",62,0)"
^XMB(3.9,53,2,1440,0)=" S DIR(""A"",2)=""The PFSS Environment is active as of ""_$$FMTE^XLFDT($P(IBSWINFO,""^"",2))_""."""
^XMB(3.9,53,2,1441,0)="""RTN"",""IBBSHDWN"",63,0)"
^XMB(3.9,53,2,1442,0)=" S DIR(""A"",4)=""The action you are trying to perform may not be valid"""
^XMB(3.9,53,2,1443,0)="""RTN"",""IBBSHDWN"",64,0)"
^XMB(3.9,53,2,1444,0)=" S DIR(""A"",5)=""for services provided on or after this date."""
^XMB(3.9,53,2,1445,0)="""RTN"",""IBBSHDWN"",65,0)"
^XMB(3.9,53,2,1446,0)=" S DIR(""A"",6)=IBSTAR"
^XMB(3.9,53,2,1447,0)="""RTN"",""IBBSHDWN"",66,0)"
^XMB(3.9,53,2,1448,0)=" S DIR(""A"")=""Are you SURE you want to continue? """
^XMB(3.9,53,2,1449,0)="""RTN"",""IBBSHDWN"",67,0)"
^XMB(3.9,53,2,1450,0)=" D ^DIR"
^XMB(3.9,53,2,1451,0)="""RTN"",""IBBSHDWN"",68,0)"
^XMB(3.9,53,2,1452,0)=" I $D(DIRUT)!$D(DTOUT) S Y="""""
^XMB(3.9,53,2,1453,0)="""RTN"",""IBBSHDWN"",69,0)"
^XMB(3.9,53,2,1454,0)="WARNQ Q Y"
^XMB(3.9,53,2,1455,0)="""RTN"",""IBBSHDWN"",70,0)"
^XMB(3.9,53,2,1456,0)=" ;*******************************************************************"
^XMB(3.9,53,2,1457,0)="""RTN"",""IBBSHDWN"",71,0)"
^XMB(3.9,53,2,1458,0)=" ; @INPUTS: Action = 1-ReInstate Option 0-(Default)-Set Out of Order"
^XMB(3.9,53,2,1459,0)="""RTN"",""IBBSHDWN"",72,0)"
^XMB(3.9,53,2,1460,0)=" ; @OUTPUTS: Mailman message indicating Invalid Options or Sucess..."
^XMB(3.9,53,2,1461,0)="""RTN"",""IBBSHDWN"",73,0)"
^XMB(3.9,53,2,1462,0)=" ;*******************************************************************"
^XMB(3.9,53,2,1463,0)="""RTN"",""IBBSHDWN"",74,0)"
^XMB(3.9,53,2,1464,0)="UPDOPTS(ACT) ;"
^XMB(3.9,53,2,1465,0)="""RTN"",""IBBSHDWN"",75,0)"
^XMB(3.9,53,2,1466,0)=" N SPC,I,OPT,DN,DA,DIC,DIE,DR,MSG,DETAIL"
^XMB(3.9,53,2,1467,0)="""RTN"",""IBBSHDWN"",76,0)"
^XMB(3.9,53,2,1468,0)=" S MSG=""Option is unavailable with PFSS Active"""
^XMB(3.9,53,2,1469,0)="""RTN"",""IBBSHDWN"",77,0)"
^XMB(3.9,53,2,1470,0)=" S SPC="""",$P(SPC,"" "",50)="""""
^XMB(3.9,53,2,1471,0)="""RTN"",""IBBSHDWN"",78,0)"
^XMB(3.9,53,2,1472,0)=" I $G(ACT)=1 S MSG=""@"""
^XMB(3.9,53,2,1473,0)="""RTN"",""IBBSHDWN"",79,0)"
^XMB(3.9,53,2,1474,0)=" F I=1:1 S OPT=$T(OPTIONS+I) Q:OPT[""%%%""  D"
^XMB(3.9,53,2,1475,0)="""RTN"",""IBBSHDWN"",80,0)"
^XMB(3.9,53,2,1476,0)="    .S DN=$P(OPT,"";"",4)"
^XMB(3.9,53,2,1477,0)="""RTN"",""IBBSHDWN"",81,0)"
^XMB(3.9,53,2,1478,0)="    .I '$D(^DIC(19,""B"",DN)) S DETAIL(I)=$E(DN_SPC,1,30)_""Invalid Name"" Q"
^XMB(3.9,53,2,1479,0)="""RTN"",""IBBSHDWN"",82,0)"
^XMB(3.9,53,2,1480,0)="    .;"
^XMB(3.9,53,2,1481,0)="""RTN"",""IBBSHDWN"",83,0)"
^XMB(3.9,53,2,1482,0)="    .; IA#1157 - Extrinsic functions to manage fields in OPTION file"
^XMB(3.9,53,2,1483,0)="""RTN"",""IBBSHDWN"",84,0)"
^XMB(3.9,53,2,1484,0)="    .D OUT^XPDMENU(DN,MSG)"
^XMB(3.9,53,2,1485,0)="""RTN"",""IBBSHDWN"",85,0)"
^XMB(3.9,53,2,1486,0)=" ;"
^XMB(3.9,53,2,1487,0)="""RTN"",""IBBSHDWN"",86,0)"
^XMB(3.9,53,2,1488,0)=" I '$D(DETAIL) S DETAIL(1)=""All IB Sunset Options - Flagged:""_MSG"
^XMB(3.9,53,2,1489,0)="""RTN"",""IBBSHDWN"",87,0)"
^XMB(3.9,53,2,1490,0)=" D NOTIFY"
^XMB(3.9,53,2,1491,0)="""RTN"",""IBBSHDWN"",88,0)"
^XMB(3.9,53,2,1492,0)=" Q"
^XMB(3.9,53,2,1493,0)="""RTN"",""IBBSHDWN"",89,0)"
^XMB(3.9,53,2,1494,0)="UPDBTCEX(ACT) ;"
^XMB(3.9,53,2,1495,0)="""RTN"",""IBBSHDWN"",90,0)"
^XMB(3.9,53,2,1496,0)=" N DA,DIE,DR,DETAIL"
^XMB(3.9,53,2,1497,0)="""RTN"",""IBBSHDWN"",91,0)"
^XMB(3.9,53,2,1498,0)=" I $G(ACT)'=1 S ACT=0"
^XMB(3.9,53,2,1499,0)="""RTN"",""IBBSHDWN"",92,0)"
^XMB(3.9,53,2,1500,0)=" S DA=0"
^XMB(3.9,53,2,1501,0)="""RTN"",""IBBSHDWN"",93,0)"
^XMB(3.9,53,2,1502,0)=" F  S DA=$O(^IBE(350.9,1,51.17,DA)) Q:+DA=0  D"
^XMB(3.9,53,2,1503,0)="""RTN"",""IBBSHDWN"",94,0)"
^XMB(3.9,53,2,1504,0)="    .I "",1,2,3,4,""'[$P($G(^IBE(350.9,1,51.17,DA,0)),""^"",1) Q"
^XMB(3.9,53,2,1505,0)="""RTN"",""IBBSHDWN"",95,0)"
^XMB(3.9,53,2,1506,0)="    .S DIE=""^IBE(350.9,1,51.17,"",DR="".02///""_ACT D ^DIE"
^XMB(3.9,53,2,1507,0)="""RTN"",""IBBSHDWN"",96,0)"
^XMB(3.9,53,2,1508,0)=" S DETAIL(1)=""Batch Extracts Status Set to: ""_ACT"
^XMB(3.9,53,2,1509,0)="""RTN"",""IBBSHDWN"",97,0)"
^XMB(3.9,53,2,1510,0)=" D NOTIFY"
^XMB(3.9,53,2,1511,0)="""RTN"",""IBBSHDWN"",98,0)"
^XMB(3.9,53,2,1512,0)=" Q"
^XMB(3.9,53,2,1513,0)="""RTN"",""IBBSHDWN"",99,0)"
^XMB(3.9,53,2,1514,0)="NOTIFY ;"
^XMB(3.9,53,2,1515,0)="""RTN"",""IBBSHDWN"",100,0)"
^XMB(3.9,53,2,1516,0)=" N XMDF,XMDUZ,XMSUB,XMDUN,XMTEXT,XMSTRIP,XMROU,XMY,XMZ,XMMG"
^XMB(3.9,53,2,1517,0)="""RTN"",""IBBSHDWN"",101,0)"
^XMB(3.9,53,2,1518,0)=" S XMDF="""",XMDUZ=""IBBSHDWN-""_$TR($P($$SITE^VASITE(),""^"",2,3),""^"",""-"")"
^XMB(3.9,53,2,1519,0)="""RTN"",""IBBSHDWN"",102,0)"
^XMB(3.9,53,2,1520,0)=" S XMY(DUZ)="""",XMY(""G.PATCHES"")="""""
^XMB(3.9,53,2,1521,0)="""RTN"",""IBBSHDWN"",103,0)"
^XMB(3.9,53,2,1522,0)=" S XMSUB=""IB-SUNSET OPTIONS"""
^XMB(3.9,53,2,1523,0)="""RTN"",""IBBSHDWN"",104,0)"
^XMB(3.9,53,2,1524,0)=" S XMTEXT=""DETAIL("""
^XMB(3.9,53,2,1525,0)="""RTN"",""IBBSHDWN"",105,0)"
^XMB(3.9,53,2,1526,0)=" D ^XMD"
^XMB(3.9,53,2,1527,0)="""RTN"",""IBBSHDWN"",106,0)"
^XMB(3.9,53,2,1528,0)=" Q"
^XMB(3.9,53,2,1529,0)="""RTN"",""IBBSHDWN"",107,0)"
^XMB(3.9,53,2,1530,0)="OPTIONS ;"
^XMB(3.9,53,2,1531,0)="""RTN"",""IBBSHDWN"",108,0)"
^XMB(3.9,53,2,1532,0)=" ;;;IB FLAG CONTINUOUS PATIENTS"
^XMB(3.9,53,2,1533,0)="""RTN"",""IBBSHDWN"",109,0)"
^XMB(3.9,53,2,1534,0)=" ;;;IB MT CLOCK MAINTENANCE"
^XMB(3.9,53,2,1535,0)="""RTN"",""IBBSHDWN"",110,0)"
^XMB(3.9,53,2,1536,0)=" ;;;IB CLEAN AUTO BILLER LIST"
^XMB(3.9,53,2,1537,0)="""RTN"",""IBBSHDWN"",111,0)"
^XMB(3.9,53,2,1538,0)=" ;;;IB OUTPUT AUTO BILLER"
^XMB(3.9,53,2,1539,0)="""RTN"",""IBBSHDWN"",112,0)"
^XMB(3.9,53,2,1540,0)=" ;;;IB TRICARE DEL REJECT"
^XMB(3.9,53,2,1541,0)="""RTN"",""IBBSHDWN"",113,0)"
^XMB(3.9,53,2,1542,0)=" ;;;IB TRICARE REJECT"
^XMB(3.9,53,2,1543,0)="""RTN"",""IBBSHDWN"",114,0)"
^XMB(3.9,53,2,1544,0)=" ;;;IB TRICARE RESUBMIT"
^XMB(3.9,53,2,1545,0)="""RTN"",""IBBSHDWN"",115,0)"
^XMB(3.9,53,2,1546,0)=" ;;;IB TRICARE REVERSE"
^XMB(3.9,53,2,1547,0)="""RTN"",""IBBSHDWN"",116,0)"
^XMB(3.9,53,2,1548,0)=" ;;;IB TRICARE TRANSMISSION"
^XMB(3.9,53,2,1549,0)="""RTN"",""IBBSHDWN"",117,0)"
^XMB(3.9,53,2,1550,0)=" ;;;IBAEC LTC CLOCK EDIT"
^XMB(3.9,53,2,1551,0)="""RTN"",""IBBSHDWN"",118,0)"
^XMB(3.9,53,2,1552,0)=" ;;;IBCR ENTER TP NEG RATES"
^XMB(3.9,53,2,1553,0)="""RTN"",""IBBSHDWN"",119,0)"
^XMB(3.9,53,2,1554,0)=" ;;;IBCN INSURANCE BUFFER PROCESS"
^XMB(3.9,53,2,1555,0)="""RTN"",""IBBSHDWN"",120,0)"
^XMB(3.9,53,2,1556,0)=" ;;;IBCN MEDICARE INSURANCE INTAKE"
^XMB(3.9,53,2,1557,0)="""RTN"",""IBBSHDWN"",121,0)"
^XMB(3.9,53,2,1558,0)=" ;;;IBCNE AUTO MATCH BUFFER"
^XMB(3.9,53,2,1559,0)="""RTN"",""IBBSHDWN"",122,0)"
^XMB(3.9,53,2,1560,0)=" ;;;IBCNE AUTO MATCH ENTER/EDIT"
^XMB(3.9,53,2,1561,0)="""RTN"",""IBBSHDWN"",123,0)"
^XMB(3.9,53,2,1562,0)=" ;;;IBT EDIT HR REVIEWS TO DO"
^XMB(3.9,53,2,1563,0)="""RTN"",""IBBSHDWN"",124,0)"
^XMB(3.9,53,2,1564,0)=" ;;;IBT EDIT HR TRACKING ENTRY"
^XMB(3.9,53,2,1565,0)="""RTN"",""IBBSHDWN"",125,0)"
^XMB(3.9,53,2,1566,0)=" ;;;IBT EDIT REVIEWS"
^XMB(3.9,53,2,1567,0)="""RTN"",""IBBSHDWN"",126,0)"
^XMB(3.9,53,2,1568,0)=" ;;;IB PURGE BILLING DATA"
^XMB(3.9,53,2,1569,0)="""RTN"",""IBBSHDWN"",127,0)"
^XMB(3.9,53,2,1570,0)=" ;;;IB PURGE DELETE TEMPLATE ENTRY"
^XMB(3.9,53,2,1571,0)="""RTN"",""IBBSHDWN"",128,0)"
^XMB(3.9,53,2,1572,0)=" ;;;IB PURGE LIST LOG ENTRIES"
^XMB(3.9,53,2,1573,0)="""RTN"",""IBBSHDWN"",129,0)"
^XMB(3.9,53,2,1574,0)=" ;;;IB PURGE LIST TEMPLATE ENTRIES"
^XMB(3.9,53,2,1575,0)="""RTN"",""IBBSHDWN"",130,0)"
^XMB(3.9,53,2,1576,0)=" ;;;IB PURGE LOG INQUIRY"
^XMB(3.9,53,2,1577,0)="""RTN"",""IBBSHDWN"",131,0)"
^XMB(3.9,53,2,1578,0)=" ;;;IB PURGE/ARCHIVE BILLING DATA"
^XMB(3.9,53,2,1579,0)="""RTN"",""IBBSHDWN"",132,0)"
^XMB(3.9,53,2,1580,0)=" ;;;IB PURGE/FIND BILLING DATA"
^XMB(3.9,53,2,1581,0)="""RTN"",""IBBSHDWN"",133,0)"
^XMB(3.9,53,2,1582,0)=" ;;;IBCNE PURGE IIV DATA"
^XMB(3.9,53,2,1583,0)="""RTN"",""IBBSHDWN"",134,0)"
^XMB(3.9,53,2,1584,0)=" ;;;IBAT EXCEL REPORT"
^XMB(3.9,53,2,1585,0)="""RTN"",""IBBSHDWN"",135,0)"
^XMB(3.9,53,2,1586,0)=" ;;;IBAT INPT PROSTHETIC ITEMS"
^XMB(3.9,53,2,1587,0)="""RTN"",""IBBSHDWN"",136,0)"
^XMB(3.9,53,2,1588,0)=" ;;;IBAT PATIENT LIST"
^XMB(3.9,53,2,1589,0)="""RTN"",""IBBSHDWN"",137,0)"
^XMB(3.9,53,2,1590,0)=" ;;;IBAT PATIENT REPORT"
^XMB(3.9,53,2,1591,0)="""RTN"",""IBBSHDWN"",138,0)"
^XMB(3.9,53,2,1592,0)=" ;;;IBAT SUMMARY REPORT"
^XMB(3.9,53,2,1593,0)="""RTN"",""IBBSHDWN"",139,0)"
^XMB(3.9,53,2,1594,0)=" ;;;IBAT TP MANAGEMENT"
^XMB(3.9,53,2,1595,0)="""RTN"",""IBBSHDWN"",140,0)"
^XMB(3.9,53,2,1596,0)=" ;;;IBAT WORKLOAD REPORT"
^XMB(3.9,53,2,1597,0)="""RTN"",""IBBSHDWN"",141,0)"
^XMB(3.9,53,2,1598,0)=" ;;;IBCI CLAIMSMANAGER NPT FILE"
^XMB(3.9,53,2,1599,0)="""RTN"",""IBBSHDWN"",142,0)"
^XMB(3.9,53,2,1600,0)=" ;;;IBCI CLAIMSMANAGER PAYOR FILE"
^XMB(3.9,53,2,1601,0)="""RTN"",""IBBSHDWN"",143,0)"
^XMB(3.9,53,2,1602,0)=" ;;;IBT RE-GEN AVE BILL AMOUNT"
^XMB(3.9,53,2,1603,0)="""RTN"",""IBBSHDWN"",144,0)"
^XMB(3.9,53,2,1604,0)=" ;;;IBT RE-GEN UNBILLED REPORT"
^XMB(3.9,53,2,1605,0)="""RTN"",""IBBSHDWN"",145,0)"
^XMB(3.9,53,2,1606,0)=" ;;;IBT SEND TEST UNBILLED MESS"
^XMB(3.9,53,2,1607,0)="""RTN"",""IBBSHDWN"",146,0)"
^XMB(3.9,53,2,1608,0)=" ;;;IBT VIEW UNBILLED AMOUNTS"
^XMB(3.9,53,2,1609,0)="""RTN"",""IBBSHDWN"",147,0)"
^XMB(3.9,53,2,1610,0)=" ;;;IBJD UTILIZATION WORKLOAD"
^XMB(3.9,53,2,1611,0)="""RTN"",""IBBSHDWN"",148,0)"
^XMB(3.9,53,2,1612,0)=" ;;;IBT MONTHLY AUTO GEN AVE BILL"
^XMB(3.9,53,2,1613,0)="""RTN"",""IBBSHDWN"",149,0)"
^XMB(3.9,53,2,1614,0)=" ;;;IBT MONTHLY AUTO GEN UNBILLED"
^XMB(3.9,53,2,1615,0)="""RTN"",""IBBSHDWN"",150,0)"
^XMB(3.9,53,2,1616,0)=" ;;;IB MRA EXTRACT"
^XMB(3.9,53,2,1617,0)="""RTN"",""IBBSHDWN"",151,0)"
^XMB(3.9,53,2,1618,0)=" ;;%%%"
^XMB(3.9,53,2,1619,0)="""RTN"",""IBBSHDWN"",152,0)"
^XMB(3.9,53,2,1620,0)=" Q"
^XMB(3.9,53,2,1621,0)="""RTN"",""IBBSHDWN"",153,0)"
^XMB(3.9,53,2,1622,0)=" Q"
^XMB(3.9,53,2,1623,0)="""RTN"",""IBCA"")"
^XMB(3.9,53,2,1624,0)="0^12^B24308332^B21874886"
^XMB(3.9,53,2,1625,0)="""RTN"",""IBCA"",1,0)"
^XMB(3.9,53,2,1626,0)="IBCA ;ALB/MRL - ADD NEW BILLING RECORD ;01 JUN 88 12:00"
^XMB(3.9,53,2,1627,0)="""RTN"",""IBCA"",2,0)"
^XMB(3.9,53,2,1628,0)=" ;;2.0;INTEGRATED BILLING;**43,80,109,106,137,312**;21-MAR-94"
^XMB(3.9,53,2,1629,0)="""RTN"",""IBCA"",3,0)"
^XMB(3.9,53,2,1630,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,53,2,1631,0)="""RTN"",""IBCA"",4,0)"
^XMB(3.9,53,2,1632,0)=" ;"
^XMB(3.9,53,2,1633,0)="""RTN"",""IBCA"",5,0)"
^XMB(3.9,53,2,1634,0)=" ;MAP TO DGCRA"
^XMB(3.9,53,2,1635,0)="""RTN"",""IBCA"",6,0)"
^XMB(3.9,53,2,1636,0)=" ;"
^XMB(3.9,53,2,1637,0)="""RTN"",""IBCA"",7,0)"
^XMB(3.9,53,2,1638,0)=" N IBSWINFO S IBSWINFO=$$SWSTAT^IBBAPI()                   ;IB*2.0*312"
^XMB(3.9,53,2,1639,0)="""RTN"",""IBCA"",8,0)"
^XMB(3.9,53,2,1640,0)=" ;"
^XMB(3.9,53,2,1641,0)="""RTN"",""IBCA"",9,0)"
^XMB(3.9,53,2,1642,0)=" D Q1 S IBCABRT=0,IOP=""HOME"" D ^%ZIS K IOP I $S('$D(DFN):1,'$D(^DPT(DFN,0)):1,1:0) S IBCABRT=1 G NREC"
^XMB(3.9,53,2,1643,0)="""RTN"",""IBCA"",10,0)"
^XMB(3.9,53,2,1644,0)=" I $S('$D(^IBE(350.9,1,1)):1,'$P(^(1),U,14):1,1:0) S IBCABRT=4 G NREC"
^XMB(3.9,53,2,1645,0)="""RTN"",""IBCA"",11,0)"
^XMB(3.9,53,2,1646,0)=" S PRCASV(""SER"")=$P(^IBE(350.9,1,1),U,14)"
^XMB(3.9,53,2,1647,0)="""RTN"",""IBCA"",12,0)"
^XMB(3.9,53,2,1648,0)=" S PRCASV(""SITE"")=+$P($$SITE^VASITE,""^"",3) I PRCASV(""SITE"")<1 S IBCABRT=5 G NREC"
^XMB(3.9,53,2,1649,0)="""RTN"",""IBCA"",13,0)"
^XMB(3.9,53,2,1650,0)=" S IBNWBL="""",IBQUIT=0 I '$D(DUZ(0)) S IBCABRT=2 G NREC"
^XMB(3.9,53,2,1651,0)="""RTN"",""IBCA"",14,0)"
^XMB(3.9,53,2,1652,0)=" I $S($D(DLAYGO):2\1-(DLAYGO\1),1:1),DUZ(0)'=""@"",$D(^DIC(399,0,""LAYGO"")) S DLAYGO=399"
^XMB(3.9,53,2,1653,0)="""RTN"",""IBCA"",15,0)"
^XMB(3.9,53,2,1654,0)=" ;I $S($D(DLAYGO):2\1-(DLAYGO\1),1:1),DUZ(0)'=""@"",$D(^DIC(399,0,""LAYGO"")) F I=1:1 I DUZ(0)[$E(^(""LAYGO""),I) Q:I'>$L(^(""LAYGO""))  S IBCABRT=3 G NREC"
^XMB(3.9,53,2,1655,0)="""RTN"",""IBCA"",16,0)"
^XMB(3.9,53,2,1656,0)=" ;"
^XMB(3.9,53,2,1657,0)="""RTN"",""IBCA"",17,0)"
^XMB(3.9,53,2,1658,0)="CHKID D DEM^VADPT S DGDIR0=""399,.04^399,.05^399,.06^399,155^399,151^399,152"",DGDIRA=""LOCATION OF CARE^EVENT INFORMATION SOURCE^TIMEFRAME^IS THIS A SENSITIVE RECORD?^STATEMENT COVERS FROM^STATEMENT COVERS TO"""
^XMB(3.9,53,2,1659,0)="""RTN"",""IBCA"",18,0)"
^XMB(3.9,53,2,1660,0)=" S DGDIRB=""1^^^NO"""
^XMB(3.9,53,2,1661,0)="""RTN"",""IBCA"",19,0)"
^XMB(3.9,53,2,1662,0)=" F IBI=1:1:4 S:$P(DGDIRB,""^"",IBI)]"""" DIR(""B"")=$P(DGDIRB,""^"",IBI) S DIR(0)=$P(DGDIR0,""^"",IBI),DIR(""A"")=""   BILLING ""_$P(DGDIRA,""^"",IBI) D READ G:IBQUIT NREC K DIR"
^XMB(3.9,53,2,1663,0)="""RTN"",""IBCA"",20,0)"
^XMB(3.9,53,2,1664,0)=" S DIC=""^DGCR(399.3,"",DIC(0)=""AEQMZ"",DIC(""A"")=""   BILLING RATE TYPE:  "",DIC(""S"")=""I '$P(^(0),U,3)"" D ^DIC K DIC G NREC:Y'>0 S IBIDS(.07)=+Y,IBIDS(.11)=$P(^DGCR(399.3,+Y,0),""^"",7)"
^XMB(3.9,53,2,1665,0)="""RTN"",""IBCA"",21,0)"
^XMB(3.9,53,2,1666,0)=" ;"
^XMB(3.9,53,2,1667,0)="""RTN"",""IBCA"",22,0)"
^XMB(3.9,53,2,1668,0)="OP G IP:IBIDS(.05)'>2 S %DT=""EAX"",%DT(0)=""-NOW"",%DT(""A"")=""   BILLING OUTPATIENT EVENT DATE:  "" D ^%DT I Y'>0 G NREC"
^XMB(3.9,53,2,1669,0)="""RTN"",""IBCA"",23,0)"
^XMB(3.9,53,2,1670,0)=" ;S X=Y D APPT^IBCU3"
^XMB(3.9,53,2,1671,0)="""RTN"",""IBCA"",24,0)"
^XMB(3.9,53,2,1672,0)=" ; Do NOT PROCESS on VistA if Y >= Switch Eff Date          ;CCR-930"
^XMB(3.9,53,2,1673,0)="""RTN"",""IBCA"",25,0)"
^XMB(3.9,53,2,1674,0)=" I +IBSWINFO,(Y+1)>$P(IBSWINFO,""^"",2) S IBCABRT=7 G NREC    ;IB*2.0*312"
^XMB(3.9,53,2,1675,0)="""RTN"",""IBCA"",26,0)"
^XMB(3.9,53,2,1676,0)=" ;"
^XMB(3.9,53,2,1677,0)="""RTN"",""IBCA"",27,0)"
^XMB(3.9,53,2,1678,0)=" S X=$$APPT^IBCU3(Y,DFN,1)"
^XMB(3.9,53,2,1679,0)="""RTN"",""IBCA"",28,0)"
^XMB(3.9,53,2,1680,0)=" S IBIDS(.03)=+Y X ^DD(""DD"") S DIR(""B"")=Y G CEOC"
^XMB(3.9,53,2,1681,0)="""RTN"",""IBCA"",29,0)"
^XMB(3.9,53,2,1682,0)=" ;"
^XMB(3.9,53,2,1683,0)="""RTN"",""IBCA"",30,0)"
^XMB(3.9,53,2,1684,0)="IP D DISPAD^IBCA0 G:'$D(IBIDS(.03)) NREC"
^XMB(3.9,53,2,1685,0)="""RTN"",""IBCA"",31,0)"
^XMB(3.9,53,2,1686,0)=" ; Do NOT PROCESS on VistA if Date = Switch Eff Date        ;CCR-930*312"
^XMB(3.9,53,2,1687,0)="""RTN"",""IBCA"",32,0)"
^XMB(3.9,53,2,1688,0)=" I +IBSWINFO,(IBIDS(.03)+1)>$P(IBSWINFO,""^"",2) S IBCABRT=7 G NREC   ;P312"
^XMB(3.9,53,2,1689,0)="""RTN"",""IBCA"",33,0)"
^XMB(3.9,53,2,1690,0)=" ;"
^XMB(3.9,53,2,1691,0)="""RTN"",""IBCA"",34,0)"
^XMB(3.9,53,2,1692,0)=" I $D(IBDSDT) K:'IBDSDT IBDSDT S:$D(IBDSDT) IBDSDT=$P(IBDSDT,""."")"
^XMB(3.9,53,2,1693,0)="""RTN"",""IBCA"",35,0)"
^XMB(3.9,53,2,1694,0)=" S Y=$P(IBIDS(.03),""."") X ^DD(""DD"") S DIR(""B"")=Y"
^XMB(3.9,53,2,1695,0)="""RTN"",""IBCA"",36,0)"
^XMB(3.9,53,2,1696,0)=" ;"
^XMB(3.9,53,2,1697,0)="""RTN"",""IBCA"",37,0)"
^XMB(3.9,53,2,1698,0)="CEOC S IBIDS(.27)="""" I +$$BILLRATE^IBCRU3(IBIDS(.07),IBIDS(.05),IBIDS(.03),""RC"") S IBIDS(.27)=1"
^XMB(3.9,53,2,1699,0)="""RTN"",""IBCA"",38,0)"
^XMB(3.9,53,2,1700,0)=" S IBIDS(.22)=$P($G(^IBE(350.9,1,1)),""^"",25)"
^XMB(3.9,53,2,1701,0)="""RTN"",""IBCA"",39,0)"
^XMB(3.9,53,2,1702,0)=" I $G(IBIDS(.11))=""i"" N IBDTIN,IBCOVEXT S IBDTIN=$G(IBIDS(.03)),IBCOVEXT=1 W ! D DISPDT^IBCNS W !"
^XMB(3.9,53,2,1703,0)="""RTN"",""IBCA"",40,0)"
^XMB(3.9,53,2,1704,0)=" W ! S X=$P(IBIDS(.03),""."") D EN3^IBCA3 W ! S IBQUIT=0 ;show other bills this date"
^XMB(3.9,53,2,1705,0)="""RTN"",""IBCA"",41,0)"
^XMB(3.9,53,2,1706,0)=" I IBIDS(.05)>2 S X=$$ADM^IBCU64(DFN,IBIDS(.03)) I +X W !,""Warning: Patient is an Inpatient on "",$$FMTE^XLFDT(IBIDS(.03),2),"": "",$$FMTE^XLFDT(+X,2),"" - "" W:+$P(X,U,2) $$FMTE^XLFDT(+$P(X,U,2),2) W !"
^XMB(3.9,53,2,1707,0)="""RTN"",""IBCA"",42,0)"
^XMB(3.9,53,2,1708,0)=" I +$G(IBIDS(.08)),+$P($G(^DGPT(+IBIDS(.08),70)),""^"",2),$G(^DIC(42.4,+$P(^(70),""^"",2),0))'="""",$P(^(0),""^"",5)="""" W !!,""Discharge bedsection of this PTF record is NOT billable!"",!!!"
^XMB(3.9,53,2,1709,0)="""RTN"",""IBCA"",43,0)"
^XMB(3.9,53,2,1710,0)=" S IBI=5,DIR(0)=""399,151"",DIR(""A"")=""   BILLING STATEMENT COVERS FROM"" D READ G:IBQUIT NREC S DGX=IBIDS(151) D LASTDAY X ^DD(""DD"") S DIR(""B"")=Y"
^XMB(3.9,53,2,1711,0)="""RTN"",""IBCA"",44,0)"
^XMB(3.9,53,2,1712,0)=" S IBI=6,DIR(0)=""399,152"",DIR(""A"")=""   BILLING STATEMENT COVERS TO"" D READ G:IBQUIT NREC"
^XMB(3.9,53,2,1713,0)="""RTN"",""IBCA"",45,0)"
^XMB(3.9,53,2,1714,0)=" K %DT,DIR G ^IBCA1:'$O(^DGCR(399,""C"",DFN,0)) S X=9999999-IBIDS(.03)"
^XMB(3.9,53,2,1715,0)="""RTN"",""IBCA"",46,0)"
^XMB(3.9,53,2,1716,0)=" F I=0:0 S I=$O(^DGCR(399,""APDT"",DFN,I)) Q:'I  I $O(^DGCR(399,""APDT"",DFN,I,0))=X,$D(^DGCR(399,+I,0)),$S('$D(^DGCR(399,I,""S"")):1,$P(^(""S""),""^"",16)=1:0,1:1) S IBIDS(.17)=$P(^(0),""^"",17) Q"
^XMB(3.9,53,2,1717,0)="""RTN"",""IBCA"",47,0)"
^XMB(3.9,53,2,1718,0)=" I $D(IBIDS(.17)) G CHKINQ"
^XMB(3.9,53,2,1719,0)="""RTN"",""IBCA"",48,0)"
^XMB(3.9,53,2,1720,0)=" I '$D(IBIDS(.17)),IBIDS(.05)<3 G CHKINQ"
^XMB(3.9,53,2,1721,0)="""RTN"",""IBCA"",49,0)"
^XMB(3.9,53,2,1722,0)="CEOC1 D CEOC1^IBCA0 Q:'$D(IBIDS)"
^XMB(3.9,53,2,1723,0)="""RTN"",""IBCA"",50,0)"
^XMB(3.9,53,2,1724,0)="CHKINQ G ^IBCA1"
^XMB(3.9,53,2,1725,0)="""RTN"",""IBCA"",51,0)"
^XMB(3.9,53,2,1726,0)=" ;"
^XMB(3.9,53,2,1727,0)="""RTN"",""IBCA"",52,0)"
^XMB(3.9,53,2,1728,0)="READ D ^DIR I X?1""^""1.ANP W !?6,*7,""Sorry '^' not allowed!"" G READ"
^XMB(3.9,53,2,1729,0)="""RTN"",""IBCA"",53,0)"
^XMB(3.9,53,2,1730,0)=" I $D(DIRUT) S IBQUIT=1 Q"
^XMB(3.9,53,2,1731,0)="""RTN"",""IBCA"",54,0)"
^XMB(3.9,53,2,1732,0)=" S IBIDS($P($P(DGDIR0,""^"",IBI),"","",2))=Y"
^XMB(3.9,53,2,1733,0)="""RTN"",""IBCA"",55,0)"
^XMB(3.9,53,2,1734,0)=" Q"
^XMB(3.9,53,2,1735,0)="""RTN"",""IBCA"",56,0)"
^XMB(3.9,53,2,1736,0)=" ;"
^XMB(3.9,53,2,1737,0)="""RTN"",""IBCA"",57,0)"
^XMB(3.9,53,2,1738,0)="NREC S IBYN=0 D SET W !?6,*7,""<"",$S('$G(IBCABRT):""ABORTED"",$P(IBCABRT(1),U,IBCABRT)]"""":$P(IBCABRT(1),U,IBCABRT),1:""ABORTED""),"", NO BILLING RECORD CREATED>"" K IBIFN"
^XMB(3.9,53,2,1739,0)="""RTN"",""IBCA"",58,0)"
^XMB(3.9,53,2,1740,0)="Q1 K IBIDS,IB"
^XMB(3.9,53,2,1741,0)="""RTN"",""IBCA"",59,0)"
^XMB(3.9,53,2,1742,0)="Q K %,%DT,D,IBCABRT,IBNWBL,IBQUIT,IBYN,DIRUT,DTOUT,DIROUT,DUOUT,PRCASV,X1,X2,IBI,IBJ,IBX,DGX,IBDSDT,IBDFN,IBID0,IBSET,IBI,DGDIRB,DGDIR0,DGDIRA,DIR,DIC,DLAYGO,I,X,Y Q"
^XMB(3.9,53,2,1743,0)="""RTN"",""IBCA"",60,0)"
^XMB(3.9,53,2,1744,0)=" Q"
^XMB(3.9,53,2,1745,0)="""RTN"",""IBCA"",61,0)"
^XMB(3.9,53,2,1746,0)="SET S IBCABRT(1)=""PATIENT INFORMATION LACKING^FILEMAN ACCESS UNDEFINED^"""
^XMB(3.9,53,2,1747,0)="""RTN"",""IBCA"",62,0)"
^XMB(3.9,53,2,1748,0)=" S IBCABRT(1)=IBCABRT(1)_""NO LAYGO ACCESS TO BILLING FILE^"""
^XMB(3.9,53,2,1749,0)="""RTN"",""IBCA"",63,0)"
^XMB(3.9,53,2,1750,0)=" S IBCABRT(1)=IBCABRT(1)_""MAS SERVICE PARAMETER UNKNOWN^"""
^XMB(3.9,53,2,1751,0)="""RTN"",""IBCA"",64,0)"
^XMB(3.9,53,2,1752,0)=" S IBCABRT(1)=IBCABRT(1)_""FACILITY UNDEFINED^"""
^XMB(3.9,53,2,1753,0)="""RTN"",""IBCA"",65,0)"
^XMB(3.9,53,2,1754,0)=" S IBCABRT(1)=IBCABRT(1)_""UNABLE TO CREATE ACCOUNTS RECEIVABLE ENTRY^"""
^XMB(3.9,53,2,1755,0)="""RTN"",""IBCA"",66,0)"
^XMB(3.9,53,2,1756,0)=" S IBCABRT(1)=IBCABRT(1)_""EPISODE CANNOT BE ON OR AFTER PFSS EFFECTIVE DATE"""
^XMB(3.9,53,2,1757,0)="""RTN"",""IBCA"",67,0)"
^XMB(3.9,53,2,1758,0)=" Q"
^XMB(3.9,53,2,1759,0)="""RTN"",""IBCA"",68,0)"
^XMB(3.9,53,2,1760,0)=" ;"
^XMB(3.9,53,2,1761,0)="""RTN"",""IBCA"",69,0)"
^XMB(3.9,53,2,1762,0)="LASTDAY ;find last day of last month"
^XMB(3.9,53,2,1763,0)="""RTN"",""IBCA"",70,0)"
^XMB(3.9,53,2,1764,0)=" ;  -set x to default last date"
^XMB(3.9,53,2,1765,0)="""RTN"",""IBCA"",71,0)"
^XMB(3.9,53,2,1766,0)=" S X1=DT,X2=-($E(DT,6,7)) D C^%DTC S Y=X"
^XMB(3.9,53,2,1767,0)="""RTN"",""IBCA"",72,0)"
^XMB(3.9,53,2,1768,0)=" K Y"
^XMB(3.9,53,2,1769,0)="""RTN"",""IBCA"",73,0)"
^XMB(3.9,53,2,1770,0)=" I $D(IBDSDT) D  G:$D(Y) LDQ"
^XMB(3.9,53,2,1771,0)="""RTN"",""IBCA"",74,0)"
^XMB(3.9,53,2,1772,0)=" . ;I $E(DGX,4,5)<10 S Y=$E(DGX,1,3)_""0930"" S:IBDSDT<Y Y=IBDSDT Q  ;don't cross fy's"
^XMB(3.9,53,2,1773,0)="""RTN"",""IBCA"",75,0)"
^XMB(3.9,53,2,1774,0)=" . ;I $E(DGX,4,5)>9 S Y=$E(DGX,1,3)_""1231"" S:IBDSDT<Y Y=IBDSDT Q  ;don't cross cy's"
^XMB(3.9,53,2,1775,0)="""RTN"",""IBCA"",76,0)"
^XMB(3.9,53,2,1776,0)=" . S Y=IBDSDT"
^XMB(3.9,53,2,1777,0)="""RTN"",""IBCA"",77,0)"
^XMB(3.9,53,2,1778,0)=" ;"
^XMB(3.9,53,2,1779,0)="""RTN"",""IBCA"",78,0)"
^XMB(3.9,53,2,1780,0)=" I DGX>X S Y=DT Q  ;billing for this month"
^XMB(3.9,53,2,1781,0)="""RTN"",""IBCA"",79,0)"
^XMB(3.9,53,2,1782,0)=" ;"
^XMB(3.9,53,2,1783,0)="""RTN"",""IBCA"",80,0)"
^XMB(3.9,53,2,1784,0)=" ;I $E(DGX,4,5)<10 S Y=$E(DGX,1,3)_""0930"" S:X<Y Y=X G LDQ ; end of month, don't cross fy's"
^XMB(3.9,53,2,1785,0)="""RTN"",""IBCA"",81,0)"
^XMB(3.9,53,2,1786,0)=" ;I $E(DGX,4,5)>9 S Y=$E(DGX,1,3)_""1231"" S:X<Y Y=X G LDQ ; end of month, don't cross cy's"
^XMB(3.9,53,2,1787,0)="""RTN"",""IBCA"",82,0)"
^XMB(3.9,53,2,1788,0)=" I '$D(Y) S Y=X"
^XMB(3.9,53,2,1789,0)="""RTN"",""IBCA"",83,0)"
^XMB(3.9,53,2,1790,0)="LDQ Q"
^XMB(3.9,53,2,1791,0)="""RTN"",""IBCD"")"
^XMB(3.9,53,2,1792,0)="0^9^B9728970^B6274000"
^XMB(3.9,53,2,1793,0)="""RTN"",""IBCD"",1,0)"
^XMB(3.9,53,2,1794,0)="IBCD ;ALB/ARH - AUTOMATED BILLER ;8/6/93"
^XMB(3.9,53,2,1795,0)="""RTN"",""IBCD"",2,0)"
^XMB(3.9,53,2,1796,0)=" ;;2.0;INTEGRATED BILLING;**312**;21-MAR-94"
^XMB(3.9,53,2,1797,0)="""RTN"",""IBCD"",3,0)"
^XMB(3.9,53,2,1798,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,53,2,1799,0)="""RTN"",""IBCD"",4,0)"
^XMB(3.9,53,2,1800,0)=" ;"
^XMB(3.9,53,2,1801,0)="""RTN"",""IBCD"",5,0)"
^XMB(3.9,53,2,1802,0)=" ;This routine is the begining of the auto biller.  No variables are required on entry.  It is be called by the"
^XMB(3.9,53,2,1803,0)="""RTN"",""IBCD"",6,0)"
^XMB(3.9,53,2,1804,0)=" ;IB nightly job routine IBAMTC.  It first checks to see if it should run based on the auto biller frequency"
^XMB(3.9,53,2,1805,0)="""RTN"",""IBCD"",7,0)"
^XMB(3.9,53,2,1806,0)=" ;site parameter.  It then gathers the Claims Tracking events with an EABD into a temporary file by patient,"
^XMB(3.9,53,2,1807,0)="""RTN"",""IBCD"",8,0)"
^XMB(3.9,53,2,1808,0)=" ;event type, and episode date.  This temporary file (""IBACAB"") is then used to sort the events into groups"
^XMB(3.9,53,2,1809,0)="""RTN"",""IBCD"",9,0)"
^XMB(3.9,53,2,1810,0)=" ;that should be added to individual bills based on the individual event type billing cycle parameters.  This"
^XMB(3.9,53,2,1811,0)="""RTN"",""IBCD"",10,0)"
^XMB(3.9,53,2,1812,0)=" ;second temporary file is then used to create the actual bills in IBCD1-2."
^XMB(3.9,53,2,1813,0)="""RTN"",""IBCD"",11,0)"
^XMB(3.9,53,2,1814,0)=" ;"
^XMB(3.9,53,2,1815,0)="""RTN"",""IBCD"",12,0)"
^XMB(3.9,53,2,1816,0)="EN ;begin process of finding and creating bills"
^XMB(3.9,53,2,1817,0)="""RTN"",""IBCD"",13,0)"
^XMB(3.9,53,2,1818,0)=" ;determine if auto biller should run, check site parameters (350.9,7.01-7.02)"
^XMB(3.9,53,2,1819,0)="""RTN"",""IBCD"",14,0)"
^XMB(3.9,53,2,1820,0)=" N IBSWINFO,IBPFSS S IBSWINFO=$$SWSTAT^IBBAPI()            ;IB*2.0*312"
^XMB(3.9,53,2,1821,0)="""RTN"",""IBCD"",15,0)"
^XMB(3.9,53,2,1822,0)=" S IBPAR7=$G(^IBE(350.9,1,7)) G:'$P(IBPAR7,U,1) EXIT"
^XMB(3.9,53,2,1823,0)="""RTN"",""IBCD"",16,0)"
^XMB(3.9,53,2,1824,0)=" I +IBPAR7,+$P(IBPAR7,U,2),$$FMADD^XLFDT(+$P(IBPAR7,U,2),+IBPAR7)>DT G EXIT"
^XMB(3.9,53,2,1825,0)="""RTN"",""IBCD"",17,0)"
^XMB(3.9,53,2,1826,0)=" S IBAUTO=1"
^XMB(3.9,53,2,1827,0)="""RTN"",""IBCD"",18,0)"
^XMB(3.9,53,2,1828,0)=" ;"
^XMB(3.9,53,2,1829,0)="""RTN"",""IBCD"",19,0)"
^XMB(3.9,53,2,1830,0)=" ;begin search for events to bill, create array of events by patient"
^XMB(3.9,53,2,1831,0)="""RTN"",""IBCD"",20,0)"
^XMB(3.9,53,2,1832,0)=" ;^TMP(""IBCAB"",$J, PATIENT, EVENT TYPE, EPISODE DATE, EVENT IFN)="""""
^XMB(3.9,53,2,1833,0)="""RTN"",""IBCD"",21,0)"
^XMB(3.9,53,2,1834,0)=" ;adds all events in Claims Tracking that have an EABD not after today"
^XMB(3.9,53,2,1835,0)="""RTN"",""IBCD"",22,0)"
^XMB(3.9,53,2,1836,0)=" S IBDFN=0 F  S IBDFN=$O(^IBT(356,""ATOBIL"",IBDFN)) Q:'IBDFN  D"
^XMB(3.9,53,2,1837,0)="""RTN"",""IBCD"",23,0)"
^XMB(3.9,53,2,1838,0)=" . S IBTYP=0 F  S IBTYP=$O(^IBT(356,""ATOBIL"",IBDFN,IBTYP)) Q:'IBTYP  D"
^XMB(3.9,53,2,1839,0)="""RTN"",""IBCD"",24,0)"
^XMB(3.9,53,2,1840,0)=" .. S IBEABD=0 F  S IBEABD=$O(^IBT(356,""ATOBIL"",IBDFN,IBTYP,IBEABD)) Q:'IBEABD!(IBEABD>DT)  D"
^XMB(3.9,53,2,1841,0)="""RTN"",""IBCD"",25,0)"
^XMB(3.9,53,2,1842,0)=" ... S IBTRN=0 F  S IBTRN=$O(^IBT(356,""ATOBIL"",IBDFN,IBTYP,IBEABD,IBTRN)) Q:'IBTRN  D"
^XMB(3.9,53,2,1843,0)="""RTN"",""IBCD"",26,0)"
^XMB(3.9,53,2,1844,0)=" .... S IBX=$$EVBILL^IBCU81(IBTRN) I 'IBX!(IBX>DT) D TEABD(IBTRN,+IBX) D:$P(IBX,U,2)'="""" TERR(IBTRN,0,$P(IBX,U,2)) Q"
^XMB(3.9,53,2,1845,0)="""RTN"",""IBCD"",27,0)"
^XMB(3.9,53,2,1846,0)=" .... S IBX=$$EVNTCHK^IBCU82(IBTRN) I +IBX D TEABD(IBTRN,0) D TERR(IBTRN,0,$P(IBX,U,2)) Q"
^XMB(3.9,53,2,1847,0)="""RTN"",""IBCD"",28,0)"
^XMB(3.9,53,2,1848,0)=" .... S IBTRND=$G(^IBT(356,IBTRN,0))"
^XMB(3.9,53,2,1849,0)="""RTN"",""IBCD"",29,0)"
^XMB(3.9,53,2,1850,0)=" .... I +IBSWINFO D  Q:IBPFSS                               ;IB*2.0*312"
^XMB(3.9,53,2,1851,0)="""RTN"",""IBCD"",30,0)"
^XMB(3.9,53,2,1852,0)="   ..... S IBPFSS=1                                         ;IB*2.0*312"
^XMB(3.9,53,2,1853,0)="""RTN"",""IBCD"",31,0)"
^XMB(3.9,53,2,1854,0)="   ..... ; Do NOT PROCESS on VistA if DT>=Switch Eff Date   ;CCR-930"
^XMB(3.9,53,2,1855,0)="""RTN"",""IBCD"",32,0)"
^XMB(3.9,53,2,1856,0)="   ..... I ($P(IBTRND,""^"",6)+1)>$P(IBSWINFO,""^"",2) Q        ;IB*2.0*312"
^XMB(3.9,53,2,1857,0)="""RTN"",""IBCD"",33,0)"
^XMB(3.9,53,2,1858,0)="   ..... I $P($G(^DPT(IBDFN,.1)),""^"")'="""" Q                 ;IB*2.0*312"
^XMB(3.9,53,2,1859,0)="""RTN"",""IBCD"",34,0)"
^XMB(3.9,53,2,1860,0)="   ..... Q:$$CHKDIS()                                       ;CCR-1081"
^XMB(3.9,53,2,1861,0)="""RTN"",""IBCD"",35,0)"
^XMB(3.9,53,2,1862,0)="   ..... S IBPFSS=0     ;Before EffDt & Discharged          ;IB*2.0*312"
^XMB(3.9,53,2,1863,0)="""RTN"",""IBCD"",36,0)"
^XMB(3.9,53,2,1864,0)=" .... ;"
^XMB(3.9,53,2,1865,0)="""RTN"",""IBCD"",37,0)"
^XMB(3.9,53,2,1866,0)=" .... S ^TMP(""IBCAB"",$J,IBDFN,IBTYP,+$P(IBTRND,U,6),IBTRN)="""""
^XMB(3.9,53,2,1867,0)="""RTN"",""IBCD"",38,0)"
^XMB(3.9,53,2,1868,0)=" K IBDFN,IBTYP,IBEABD,IBTRN,IBTRND,IBX"
^XMB(3.9,53,2,1869,0)="""RTN"",""IBCD"",39,0)"
^XMB(3.9,53,2,1870,0)=" ;"
^XMB(3.9,53,2,1871,0)="""RTN"",""IBCD"",40,0)"
^XMB(3.9,53,2,1872,0)=" I $D(^TMP(""IBCAB"",$J)) D ^IBCD1 ; consolidate events into bills, create bills"
^XMB(3.9,53,2,1873,0)="""RTN"",""IBCD"",41,0)"
^XMB(3.9,53,2,1874,0)=" D ^IBCDC ; set comments into file"
^XMB(3.9,53,2,1875,0)="""RTN"",""IBCD"",42,0)"
^XMB(3.9,53,2,1876,0)=" S DIE=""^IBE(350.9,"",DA=1,DR=""7.02////""_DT D ^DIE ;reset last date auto biller run"
^XMB(3.9,53,2,1877,0)="""RTN"",""IBCD"",43,0)"
^XMB(3.9,53,2,1878,0)=" K ^TMP(""IBCAB"",$J),^TMP(""IBEABD"",$J),^TMP(""IBCE"",$J),^TMP(""IBILL"",$J)"
^XMB(3.9,53,2,1879,0)="""RTN"",""IBCD"",44,0)"
^XMB(3.9,53,2,1880,0)=" F IBX=1:1:10 K ^TMP((""IBC""_IBX),$J)"
^XMB(3.9,53,2,1881,0)="""RTN"",""IBCD"",45,0)"
^XMB(3.9,53,2,1882,0)="EXIT K IBX,IBPAR7,DIE,DA,DR,IBAUTO,IBBS,IBSC,IBT"
^XMB(3.9,53,2,1883,0)="""RTN"",""IBCD"",46,0)"
^XMB(3.9,53,2,1884,0)=" Q"
^XMB(3.9,53,2,1885,0)="""RTN"",""IBCD"",47,0)"
^XMB(3.9,53,2,1886,0)="CHKDIS() ; Returns 1 if discharge was on or after effective date   ;CCR-1081"
^XMB(3.9,53,2,1887,0)="""RTN"",""IBCD"",48,0)"
^XMB(3.9,53,2,1888,0)=" N IBADMLNK,IBDISLNK"
^XMB(3.9,53,2,1889,0)="""RTN"",""IBCD"",49,0)"
^XMB(3.9,53,2,1890,0)=" S IBADMLNK=$P(IBTRND,""^"",5) G:'IBADMLNK CHKDISQ"
^XMB(3.9,53,2,1891,0)="""RTN"",""IBCD"",50,0)"
^XMB(3.9,53,2,1892,0)=" S IBDISLNK=$P($G(^DGPM(IBADMLNK,0)),""^"",17) G:'IBDISLNK CHKDISQ"
^XMB(3.9,53,2,1893,0)="""RTN"",""IBCD"",51,0)"
^XMB(3.9,53,2,1894,0)=" ;"
^XMB(3.9,53,2,1895,0)="""RTN"",""IBCD"",52,0)"
^XMB(3.9,53,2,1896,0)=" I (^DGPM(IBDISLNK,0)+1)>$P(IBSWINFO,""^"",2) Q 1"
^XMB(3.9,53,2,1897,0)="""RTN"",""IBCD"",53,0)"
^XMB(3.9,53,2,1898,0)="CHKDISQ Q 0"
^XMB(3.9,53,2,1899,0)="""RTN"",""IBCD"",54,0)"
^XMB(3.9,53,2,1900,0)=" ;"
^XMB(3.9,53,2,1901,0)="""RTN"",""IBCD"",55,0)"
^XMB(3.9,53,2,1902,0)="TEABD(TRN,IBDT) ;array contains the list of claims tracking events that need EABD updated, and the new date"
^XMB(3.9,53,2,1903,0)="""RTN"",""IBCD"",56,0)"
^XMB(3.9,53,2,1904,0)=" S IBDT=+$G(IBDT),^TMP(""IBEABD"",$J,TRN,+IBDT)="""""
^XMB(3.9,53,2,1905,0)="""RTN"",""IBCD"",57,0)"
^XMB(3.9,53,2,1906,0)=" Q"
^XMB(3.9,53,2,1907,0)="""RTN"",""IBCD"",58,0)"
^XMB(3.9,53,2,1908,0)="TERR(TRN,IFN,ER) ;array contains events or bills that need entries created in the comments file, and the comment"
^XMB(3.9,53,2,1909,0)="""RTN"",""IBCD"",59,0)"
^XMB(3.9,53,2,1910,0)=" N X S TRN=+$G(TRN),IFN=+$G(IFN),X=+$G(^TMP(""IBCE"",$J,DT,TRN,IFN))+1"
^XMB(3.9,53,2,1911,0)="""RTN"",""IBCD"",60,0)"
^XMB(3.9,53,2,1912,0)=" S ^TMP(""IBCE"",$J,DT,TRN,IFN,X)=$G(ER),^TMP(""IBCE"",$J,DT,TRN,IFN)=X"
^XMB(3.9,53,2,1913,0)="""RTN"",""IBCD"",61,0)"
^XMB(3.9,53,2,1914,0)=" Q"
^XMB(3.9,53,2,1915,0)="""RTN"",""IBCD"",62,0)"
^XMB(3.9,53,2,1916,0)="TBILL(TRN,IFN) ;array contains list of events and bills to be inserted into 356.399"
^XMB(3.9,53,2,1917,0)="""RTN"",""IBCD"",63,0)"
^XMB(3.9,53,2,1918,0)=" I '$D(^IBT(356,+$G(TRN),0))!('$D(^DGCR(399,+$G(IFN),0))) Q"
^XMB(3.9,53,2,1919,0)="""RTN"",""IBCD"",64,0)"
^XMB(3.9,53,2,1920,0)=" S ^TMP(""IBILL"",$J,TRN,IFN)="""""
^XMB(3.9,53,2,1921,0)="""RTN"",""IBCD"",65,0)"
^XMB(3.9,53,2,1922,0)=" Q"
^XMB(3.9,53,2,1923,0)="""RTN"",""IBECEA1"")"
^XMB(3.9,53,2,1924,0)="0^16^B14626334^B13288882"
^XMB(3.9,53,2,1925,0)="""RTN"",""IBECEA1"",1,0)"
^XMB(3.9,53,2,1926,0)="IBECEA1 ;ALB/RLW-Cancel/Edit/Add... Action Entry Points ; 12-JUN-92"
^XMB(3.9,53,2,1927,0)="""RTN"",""IBECEA1"",2,0)"
^XMB(3.9,53,2,1928,0)=" ;;2.0;INTEGRATED BILLING;**15,27,45,176,312**;21-MAR-94"
^XMB(3.9,53,2,1929,0)="""RTN"",""IBECEA1"",3,0)"
^XMB(3.9,53,2,1930,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,53,2,1931,0)="""RTN"",""IBECEA1"",4,0)"
^XMB(3.9,53,2,1932,0)=" ;"
^XMB(3.9,53,2,1933,0)="""RTN"",""IBECEA1"",5,0)"
^XMB(3.9,53,2,1934,0)="PASS ; 'Pass a Charge' Entry Action (added by Jim Moore 4/30/92)"
^XMB(3.9,53,2,1935,0)="""RTN"",""IBECEA1"",6,0)"
^XMB(3.9,53,2,1936,0)=" N C,IBII,IBNOS,IBND,IBMSG,IBY,IBLINE,IBSTAT,IBAFY,IBATYP,IBHLDR"
^XMB(3.9,53,2,1937,0)="""RTN"",""IBECEA1"",7,0)"
^XMB(3.9,53,2,1938,0)=" N IBARTYP,IBN,IBSEQNO,IBSERV,IBTOTL,IBTRAN,IBIL,IBNOS2,Y,IBXA"
^XMB(3.9,53,2,1939,0)="""RTN"",""IBECEA1"",8,0)"
^XMB(3.9,53,2,1940,0)=" ;"
^XMB(3.9,53,2,1941,0)="""RTN"",""IBECEA1"",9,0)"
^XMB(3.9,53,2,1942,0)=" S VALMBCK=""R"" D EN^VALM2($G(XQORNOD(0)))"
^XMB(3.9,53,2,1943,0)="""RTN"",""IBECEA1"",10,0)"
^XMB(3.9,53,2,1944,0)=" I $D(VALMY) I '$$PFSSWARN^IBBSHDWN() S VALMBCK=""R"" Q"
^XMB(3.9,53,2,1945,0)="""RTN"",""IBECEA1"",11,0)"
^XMB(3.9,53,2,1946,0)=" ;"
^XMB(3.9,53,2,1947,0)="""RTN"",""IBECEA1"",12,0)"
^XMB(3.9,53,2,1948,0)=" S IBII="""" F  S IBII=$O(VALMY(IBII)) Q:'IBII  D  L -^IB(IBNOS2) D MSG"
^XMB(3.9,53,2,1949,0)="""RTN"",""IBECEA1"",13,0)"
^XMB(3.9,53,2,1950,0)=" .S IBY=1,IBLINE=^TMP(""IBACM"",$J,IBII,0)"
^XMB(3.9,53,2,1951,0)="""RTN"",""IBECEA1"",14,0)"
^XMB(3.9,53,2,1952,0)=" .S (IBNOS,IBNOS2)=+$P(^TMP(""IBACMIDX"",$J,IBII),""^"",4)"
^XMB(3.9,53,2,1953,0)="""RTN"",""IBECEA1"",15,0)"
^XMB(3.9,53,2,1954,0)=" .;"
^XMB(3.9,53,2,1955,0)="""RTN"",""IBECEA1"",16,0)"
^XMB(3.9,53,2,1956,0)=" .; - perform up-front edits"
^XMB(3.9,53,2,1957,0)="""RTN"",""IBECEA1"",17,0)"
^XMB(3.9,53,2,1958,0)=" .L +^IB(IBNOS2):5 I '$T S IBMSG=""was not passed - record not available, please try again"" Q"
^XMB(3.9,53,2,1959,0)="""RTN"",""IBECEA1"",18,0)"
^XMB(3.9,53,2,1960,0)=" .S IBND=$G(^IB(IBNOS2,0)) I IBND="""" S IBMSG=""was not passed - record missing the zeroth node"" Q"
^XMB(3.9,53,2,1961,0)="""RTN"",""IBECEA1"",19,0)"
^XMB(3.9,53,2,1962,0)=" .I $P(IBND,""^"",12) S IBMSG=""was not passed - the charge already has an AR Transaction Number"" Q"
^XMB(3.9,53,2,1963,0)="""RTN"",""IBECEA1"",20,0)"
^XMB(3.9,53,2,1964,0)=" .S IBSTAT=+$P(IBND,""^"",5) I $P($G(^IBE(350.21,IBSTAT,0)),""^"",4) S IBMSG=""was not passed - the status indicates that the charge is billed"" Q"
^XMB(3.9,53,2,1965,0)="""RTN"",""IBECEA1"",21,0)"
^XMB(3.9,53,2,1966,0)=" .I $P(IBND,""^"",7)'>0 S IBMSG=""was not passed - there is no charge amount"" Q"
^XMB(3.9,53,2,1967,0)="""RTN"",""IBECEA1"",22,0)"
^XMB(3.9,53,2,1968,0)=" .S IBSEQNO=$P($G(^IBE(350.1,+$P(IBND,""^"",3),0)),""^"",5) I 'IBSEQNO S IBMSG=""was not passed (Bulletin will be generated)"",IBY=""-1^IB023"" Q"
^XMB(3.9,53,2,1969,0)="""RTN"",""IBECEA1"",23,0)"
^XMB(3.9,53,2,1970,0)=" .I $P($G(^IBE(350.1,+$P(IBND,""^"",3),0)),""^"",11)=6 S IBMSG=""was not passed - CHAMPVA charges must be cancelled and rebilled"" Q"
^XMB(3.9,53,2,1971,0)="""RTN"",""IBECEA1"",24,0)"
^XMB(3.9,53,2,1972,0)=" .S IBHLDR=(IBSTAT=21)"
^XMB(3.9,53,2,1973,0)="""RTN"",""IBECEA1"",25,0)"
^XMB(3.9,53,2,1974,0)=" .; - pass charge to AR and update list"
^XMB(3.9,53,2,1975,0)="""RTN"",""IBECEA1"",26,0)"
^XMB(3.9,53,2,1976,0)=" .D ^IBR S IBY=$G(Y)"
^XMB(3.9,53,2,1977,0)="""RTN"",""IBECEA1"",27,0)"
^XMB(3.9,53,2,1978,0)=" .S IBND=$G(^IB(IBNOS2,0))"
^XMB(3.9,53,2,1979,0)="""RTN"",""IBECEA1"",28,0)"
^XMB(3.9,53,2,1980,0)=" .S (IBSTAT,Y)=$P(IBND,""^"",5),C=$P($G(^DD(350,.05,0)),""^"",2) D Y^DIQ"
^XMB(3.9,53,2,1981,0)="""RTN"",""IBECEA1"",29,0)"
^XMB(3.9,53,2,1982,0)=" .S IBLINE=$$SETSTR^VALM1(Y,IBLINE,+$P(VALMDDF(""STATUS""),""^"",2),+$P(VALMDDF(""STATUS""),""^"",3))"
^XMB(3.9,53,2,1983,0)="""RTN"",""IBECEA1"",30,0)"
^XMB(3.9,53,2,1984,0)=" .S IBLINE=$$SETSTR^VALM1($P($P(IBND,""^"",11),""-"",2),IBLINE,+$P(VALMDDF(""BILL#""),""^"",2),+$P(VALMDDF(""BILL#""),""^"",3))"
^XMB(3.9,53,2,1985,0)="""RTN"",""IBECEA1"",31,0)"
^XMB(3.9,53,2,1986,0)=" .S ^TMP(""IBACM"",$J,IBII,0)=IBLINE"
^XMB(3.9,53,2,1987,0)="""RTN"",""IBECEA1"",32,0)"
^XMB(3.9,53,2,1988,0)=" .S IBMSG=$S(+IBY=-1:""was not passed -"",IBSTAT=8:""has now been placed ON HOLD"",1:""has now been passed"")"
^XMB(3.9,53,2,1989,0)="""RTN"",""IBECEA1"",33,0)"
^XMB(3.9,53,2,1990,0)=" .;"
^XMB(3.9,53,2,1991,0)="""RTN"",""IBECEA1"",34,0)"
^XMB(3.9,53,2,1992,0)=" .; - if there is no active billing clock, add one"
^XMB(3.9,53,2,1993,0)="""RTN"",""IBECEA1"",35,0)"
^XMB(3.9,53,2,1994,0)=" .;   added check for LTC, don't do this for LTC"
^XMB(3.9,53,2,1995,0)="""RTN"",""IBECEA1"",36,0)"
^XMB(3.9,53,2,1996,0)=" .S IBXA=$P($G(^IBE(350.1,+$P(IBND,""^"",3),0)),""^"",11)"
^XMB(3.9,53,2,1997,0)="""RTN"",""IBECEA1"",37,0)"
^XMB(3.9,53,2,1998,0)=" .I $P(IBND,""^"",14),'$P($G(^IB(IBNOS2,1)),""^"",5),'$D(^IBE(351,""ACT"",DFN)),IBXA'=8,IBXA'=9 D"
^XMB(3.9,53,2,1999,0)="""RTN"",""IBECEA1"",38,0)"
^XMB(3.9,53,2,2000,0)=" ..W !,""This patient has no active billing clock.  Adding a new one... """
^XMB(3.9,53,2,2001,0)="""RTN"",""IBECEA1"",39,0)"
^XMB(3.9,53,2,2002,0)=" ..S IBCLDT=$P(IBND,""^"",14)"
^XMB(3.9,53,2,2003,0)="""RTN"",""IBECEA1"",40,0)"
^XMB(3.9,53,2,2004,0)=" ..I '$D(IBSERV) D SERV^IBAUTL2"
^XMB(3.9,53,2,2005,0)="""RTN"",""IBECEA1"",41,0)"
^XMB(3.9,53,2,2006,0)=" ..D CLADD^IBAUTL3 W $S(IBY>0:""done."",1:""error (see msg)"")"
^XMB(3.9,53,2,2007,0)="""RTN"",""IBECEA1"",42,0)"
^XMB(3.9,53,2,2008,0)=" .;"
^XMB(3.9,53,2,2009,0)="""RTN"",""IBECEA1"",43,0)"
^XMB(3.9,53,2,2010,0)=" .; - if charge was on hold pending review, pass data to IVM"
^XMB(3.9,53,2,2011,0)="""RTN"",""IBECEA1"",44,0)"
^XMB(3.9,53,2,2012,0)=" .I IBHLDR W !,""Passing billing data to the IVM package...  "" D IVM^IBAMTV32(IBND) W ""done."""
^XMB(3.9,53,2,2013,0)="""RTN"",""IBECEA1"",45,0)"
^XMB(3.9,53,2,2014,0)=" Q"
^XMB(3.9,53,2,2015,0)="""RTN"",""IBECEA1"",46,0)"
^XMB(3.9,53,2,2016,0)=" ;"
^XMB(3.9,53,2,2017,0)="""RTN"",""IBECEA1"",47,0)"
^XMB(3.9,53,2,2018,0)="MSG ; Display results message."
^XMB(3.9,53,2,2019,0)="""RTN"",""IBECEA1"",48,0)"
^XMB(3.9,53,2,2020,0)=" W !,""Charge #""_IBII_"" ""_IBMSG I +IBY=-1 D ^IBAERR1"
^XMB(3.9,53,2,2021,0)="""RTN"",""IBECEA1"",49,0)"
^XMB(3.9,53,2,2022,0)=" W ! S DIR(0)=""E"" D ^DIR K DIR W !"
^XMB(3.9,53,2,2023,0)="""RTN"",""IBECEA1"",50,0)"
^XMB(3.9,53,2,2024,0)=" Q"
^XMB(3.9,53,2,2025,0)="""RTN"",""IBECEA1"",51,0)"
^XMB(3.9,53,2,2026,0)=" ;"
^XMB(3.9,53,2,2027,0)="""RTN"",""IBECEA1"",52,0)"
^XMB(3.9,53,2,2028,0)=" ;"
^XMB(3.9,53,2,2029,0)="""RTN"",""IBECEA1"",53,0)"
^XMB(3.9,53,2,2030,0)="ADD ; 'Add a Charge' Entry Action"
^XMB(3.9,53,2,2031,0)="""RTN"",""IBECEA1"",54,0)"
^XMB(3.9,53,2,2032,0)=" I '$$PFSSWARN^IBBSHDWN() S VALMBCK=""R"" Q                   ;IB*2.0*312"
^XMB(3.9,53,2,2033,0)="""RTN"",""IBECEA1"",55,0)"
^XMB(3.9,53,2,2034,0)=" G ^IBECEA3"
^XMB(3.9,53,2,2035,0)="""RTN"",""IBECEA1"",56,0)"
^XMB(3.9,53,2,2036,0)=" ;"
^XMB(3.9,53,2,2037,0)="""RTN"",""IBECEA1"",57,0)"
^XMB(3.9,53,2,2038,0)="UPD ; 'Edit a Charge' Entry Action"
^XMB(3.9,53,2,2039,0)="""RTN"",""IBECEA1"",58,0)"
^XMB(3.9,53,2,2040,0)=" S IBAUPD=1"
^XMB(3.9,53,2,2041,0)="""RTN"",""IBECEA1"",59,0)"
^XMB(3.9,53,2,2042,0)=" ;"
^XMB(3.9,53,2,2043,0)="""RTN"",""IBECEA1"",60,0)"
^XMB(3.9,53,2,2044,0)="CAN ; 'Cancel a Charge' Entry Action"
^XMB(3.9,53,2,2045,0)="""RTN"",""IBECEA1"",61,0)"
^XMB(3.9,53,2,2046,0)=" D EN^VALM2(IBNOD(0)) I '$O(VALMY(0)) S VALMBCK="""" G CANQ"
^XMB(3.9,53,2,2047,0)="""RTN"",""IBECEA1"",62,0)"
^XMB(3.9,53,2,2048,0)=" I $G(IBAUPD) I '$$PFSSWARN^IBBSHDWN() S VALMBCK=""R"" Q       ;IB*2.0*312"
^XMB(3.9,53,2,2049,0)="""RTN"",""IBECEA1"",63,0)"
^XMB(3.9,53,2,2050,0)=" ;"
^XMB(3.9,53,2,2051,0)="""RTN"",""IBECEA1"",64,0)"
^XMB(3.9,53,2,2052,0)=" S (IBNBR,IBCOMMIT)=0,VALMBCK=""R"""
^XMB(3.9,53,2,2053,0)="""RTN"",""IBECEA1"",65,0)"
^XMB(3.9,53,2,2054,0)=" F  S IBNBR=$O(VALMY(IBNBR)) Q:'IBNBR  D ^@$S($G(IBAUPD):""IBECEA2"",1:""IBECEA4"")"
^XMB(3.9,53,2,2055,0)="""RTN"",""IBECEA1"",66,0)"
^XMB(3.9,53,2,2056,0)=" I IBCOMMIT S IBBG=VALMBG W !,""Rebuilding list of charges..."" D ARRAY^IBECEA0 S VALMBG=IBBG"
^XMB(3.9,53,2,2057,0)="""RTN"",""IBECEA1"",67,0)"
^XMB(3.9,53,2,2058,0)=" K IBBG,IBNBR,IBAUPD,IBCOMMIT"
^XMB(3.9,53,2,2059,0)="""RTN"",""IBECEA1"",68,0)"
^XMB(3.9,53,2,2060,0)="CANQ Q"
^XMB(3.9,53,2,2061,0)="""RTN"",""IBECEA1"",69,0)"
^XMB(3.9,53,2,2062,0)=" ;"
^XMB(3.9,53,2,2063,0)="""RTN"",""IBECEA1"",70,0)"
^XMB(3.9,53,2,2064,0)="PAUSE ; Keep this around for awhile."
^XMB(3.9,53,2,2065,0)="""RTN"",""IBECEA1"",71,0)"
^XMB(3.9,53,2,2066,0)=" W ! S DIR(0)=""E"" D ^DIR K DIR W !"
^XMB(3.9,53,2,2067,0)="""RTN"",""IBECEA1"",72,0)"
^XMB(3.9,53,2,2068,0)=" Q"
^XMB(3.9,53,2,2069,0)="""RTN"",""IBECEA21"")"
^XMB(3.9,53,2,2070,0)="0^17^B29059334^B26041958"
^XMB(3.9,53,2,2071,0)="""RTN"",""IBECEA21"",1,0)"
^XMB(3.9,53,2,2072,0)="IBECEA21 ;ALB/CPM-Cancel/Edit/Add... Edit Prompts;19-APR-93"
^XMB(3.9,53,2,2073,0)="""RTN"",""IBECEA21"",2,0)"
^XMB(3.9,53,2,2074,0)=" ;;2.0;INTEGRATED BILLING;**7,57,167,183,202,312**;21-MAR-94"
^XMB(3.9,53,2,2075,0)="""RTN"",""IBECEA21"",3,0)"
^XMB(3.9,53,2,2076,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,53,2,2077,0)="""RTN"",""IBECEA21"",4,0)"
^XMB(3.9,53,2,2078,0)=" ;"
^XMB(3.9,53,2,2079,0)="""RTN"",""IBECEA21"",5,0)"
^XMB(3.9,53,2,2080,0)=" ; Issue appropriate prompts for each charge type.  If the charge"
^XMB(3.9,53,2,2081,0)="""RTN"",""IBECEA21"",6,0)"
^XMB(3.9,53,2,2082,0)=" ; being edited has not been billed, handle that charge before"
^XMB(3.9,53,2,2083,0)="""RTN"",""IBECEA21"",7,0)"
^XMB(3.9,53,2,2084,0)=" ; returning to IBECEA2."
^XMB(3.9,53,2,2085,0)="""RTN"",""IBECEA21"",8,0)"
^XMB(3.9,53,2,2086,0)=" ;"
^XMB(3.9,53,2,2087,0)="""RTN"",""IBECEA21"",9,0)"
^XMB(3.9,53,2,2088,0)=" N IBSTOPDA,IBTYPE,IBGMT"
^XMB(3.9,53,2,2089,0)="""RTN"",""IBECEA21"",10,0)"
^XMB(3.9,53,2,2090,0)=" N IBSWINFO S IBSWINFO=$$SWSTAT^IBBAPI()                    ;IB*2.0*312"
^XMB(3.9,53,2,2091,0)="""RTN"",""IBECEA21"",11,0)"
^XMB(3.9,53,2,2092,0)=" S IBGMT=0"
^XMB(3.9,53,2,2093,0)="""RTN"",""IBECEA21"",12,0)"
^XMB(3.9,53,2,2094,0)=" ;"
^XMB(3.9,53,2,2095,0)="""RTN"",""IBECEA21"",13,0)"
^XMB(3.9,53,2,2096,0)=" ; Handle Outpatient Charges"
^XMB(3.9,53,2,2097,0)="""RTN"",""IBECEA21"",14,0)"
^XMB(3.9,53,2,2098,0)=" I IBXA=4 D  G END"
^XMB(3.9,53,2,2099,0)="""RTN"",""IBECEA21"",15,0)"
^XMB(3.9,53,2,2100,0)=" .S (IBFR,IBTO,IBDT)=$P(IBND,""^"",14),IBUNIT=IBUNITP"
^XMB(3.9,53,2,2101,0)="""RTN"",""IBECEA21"",16,0)"
^XMB(3.9,53,2,2102,0)=" .W !,""Re-calculating the OPT copay charge for "",$$DAT1^IBOUTL(IBFR),"" ..."""
^XMB(3.9,53,2,2103,0)="""RTN"",""IBECEA21"",17,0)"
^XMB(3.9,53,2,2104,0)=" .;"
^XMB(3.9,53,2,2105,0)="""RTN"",""IBECEA21"",18,0)"
^XMB(3.9,53,2,2106,0)=" .; need to look up stop info to populate IBTYPE *167"
^XMB(3.9,53,2,2107,0)="""RTN"",""IBECEA21"",19,0)"
^XMB(3.9,53,2,2108,0)=" .S IBSTOPDA=$S($P($P(IBND,""^"",4),"":"")=350:$P(IBND,""^"",20),1:$$GETSC^IBEMTSCU($P(IBND,""^"",4),$P(IBND,""^"",17)))"
^XMB(3.9,53,2,2109,0)="""RTN"",""IBECEA21"",20,0)"
^XMB(3.9,53,2,2110,0)=" .S IBTYPE=$S(IBSTOPDA>0:$P($G(^IBE(352.5,+$G(IBSTOPDA),0)),""^"",3),1:1)"
^XMB(3.9,53,2,2111,0)="""RTN"",""IBECEA21"",21,0)"
^XMB(3.9,53,2,2112,0)=" .;"
^XMB(3.9,53,2,2113,0)="""RTN"",""IBECEA21"",22,0)"
^XMB(3.9,53,2,2114,0)=" .S IBX=""O"" D TYPE^IBAUTL2 Q:IBY<0  W ""   $"",IBCHG"
^XMB(3.9,53,2,2115,0)="""RTN"",""IBECEA21"",23,0)"
^XMB(3.9,53,2,2116,0)=" .I 'IBH,IBCHG=IBCHGP W !,""This equals the billed amount - this charge cannot be edited."" S IBY=-1 Q"
^XMB(3.9,53,2,2117,0)="""RTN"",""IBECEA21"",24,0)"
^XMB(3.9,53,2,2118,0)=" .I IBCHG=IBCHGP W !,""This charge is ready to be billed."" D PASS^IBECEA22 S IBY=-1 Q"
^XMB(3.9,53,2,2119,0)="""RTN"",""IBECEA21"",25,0)"
^XMB(3.9,53,2,2120,0)=" .I IBH D UPCHG^IBECEA22(IBCHG) S IBY=-1 Q"
^XMB(3.9,53,2,2121,0)="""RTN"",""IBECEA21"",26,0)"
^XMB(3.9,53,2,2122,0)=" .S IBCRES=$O(^IBE(350.3,""B"",""MT CHARGE EDITED"",0)) S:'IBCRES IBCRES=19"
^XMB(3.9,53,2,2123,0)="""RTN"",""IBECEA21"",27,0)"
^XMB(3.9,53,2,2124,0)=" .W !!,""The original charge will be cancelled and re-billed for $"",IBCHG,""."""
^XMB(3.9,53,2,2125,0)="""RTN"",""IBECEA21"",28,0)"
^XMB(3.9,53,2,2126,0)=" ;"
^XMB(3.9,53,2,2127,0)="""RTN"",""IBECEA21"",29,0)"
^XMB(3.9,53,2,2128,0)=" ; Handle Pharmacy Copay Charges"
^XMB(3.9,53,2,2129,0)="""RTN"",""IBECEA21"",30,0)"
^XMB(3.9,53,2,2130,0)=" I IBXA=5 D  G END"
^XMB(3.9,53,2,2131,0)="""RTN"",""IBECEA21"",31,0)"
^XMB(3.9,53,2,2132,0)=" .D UNIT^IBECEAU2(IBUNITP) Q:IBY<0"
^XMB(3.9,53,2,2133,0)="""RTN"",""IBECEA21"",32,0)"
^XMB(3.9,53,2,2134,0)=" .I 'IBH,IBUNIT=IBUNITP W !!,""No change was made!"" S IBY=-1 Q"
^XMB(3.9,53,2,2135,0)="""RTN"",""IBECEA21"",33,0)"
^XMB(3.9,53,2,2136,0)=" .I IBH D UPCHG^IBECEA22(IBCHG,IBUNIT) S IBY=-1 Q"
^XMB(3.9,53,2,2137,0)="""RTN"",""IBECEA21"",34,0)"
^XMB(3.9,53,2,2138,0)=" .W !!,""The original charge will be cancelled and re-billed for $"",$J(IBCHG,"""",2),""."""
^XMB(3.9,53,2,2139,0)="""RTN"",""IBECEA21"",35,0)"
^XMB(3.9,53,2,2140,0)=" ;"
^XMB(3.9,53,2,2141,0)="""RTN"",""IBECEA21"",36,0)"
^XMB(3.9,53,2,2142,0)=" ; Handle all Inpatient Charges"
^XMB(3.9,53,2,2143,0)="""RTN"",""IBECEA21"",37,0)"
^XMB(3.9,53,2,2144,0)=" S IBFRP=+$P(IBND,""^"",14),IBTOP=+$P(IBND,""^"",15),IBLIM=$S(IBXA=3:DT,1:$$FMADD^XLFDT(DT,-1))"
^XMB(3.9,53,2,2145,0)="""RTN"",""IBECEA21"",38,0)"
^XMB(3.9,53,2,2146,0)=" S IBGMT=$$ISGMTPT^IBAGMT(DFN,IBFRP) ;Check GMT Copayment Status"
^XMB(3.9,53,2,2147,0)="""RTN"",""IBECEA21"",39,0)"
^XMB(3.9,53,2,2148,0)=" D CLSTR^IBECEAU1(DFN,IBFRP)"
^XMB(3.9,53,2,2149,0)="""RTN"",""IBECEA21"",40,0)"
^XMB(3.9,53,2,2150,0)=" I 'IBCLDA W !!,""I cannot find a billing clock that was effective on "",$$DAT1^IBOUTL(IBFRP),""!"",!,""Please adjust this patient's billing clocks before editing this charge."" S IBY=-1 Q"
^XMB(3.9,53,2,2151,0)="""RTN"",""IBECEA21"",41,0)"
^XMB(3.9,53,2,2152,0)=" D CLDATA^IBAUTL3,DED^IBAUTL3 G:IBY<0 END"
^XMB(3.9,53,2,2153,0)="""RTN"",""IBECEA21"",42,0)"
^XMB(3.9,53,2,2154,0)=" ;For GMT Patients reduce Medicare Deductible to 20%"
^XMB(3.9,53,2,2155,0)="""RTN"",""IBECEA21"",43,0)"
^XMB(3.9,53,2,2156,0)=" I IBGMT>0 S IBMED=$$REDUCE^IBAGMT(IBMED) W !,""Medicare Deductible reduced due to GMT Copayment Status."""
^XMB(3.9,53,2,2157,0)="""RTN"",""IBECEA21"",44,0)"
^XMB(3.9,53,2,2158,0)=" S:IBXA=2 IBBS=$O(^DGCR(399.1,""AC"",IBATYP,0))"
^XMB(3.9,53,2,2159,0)="""RTN"",""IBECEA21"",45,0)"
^XMB(3.9,53,2,2160,0)=" I IBXA=2,$P($G(^IBE(350.1,IBATYP,0)),""^"",8)'[""NHCU"",IBCLDAY>90,IBCHGP'>IBCLDOL S IBMED=IBMED/2"
^XMB(3.9,53,2,2161,0)="""RTN"",""IBECEA21"",46,0)"
^XMB(3.9,53,2,2162,0)=" I IBXA=1,IBCLDAY>90 D MED^IBECEA34 G:IBY<0 END"
^XMB(3.9,53,2,2163,0)="""RTN"",""IBECEA21"",47,0)"
^XMB(3.9,53,2,2164,0)=" W !!,""  ** "",$S($P(IBCLST,""^"",4)=1:""Active"",1:""Closed""),"" Billing Clock **"""
^XMB(3.9,53,2,2165,0)="""RTN"",""IBECEA21"",48,0)"
^XMB(3.9,53,2,2166,0)=" W !?2,""Begin Date: "",$$DAT1^IBOUTL(IBCLDT),""   # Inpt Days: "",IBCLDAY,""   "",$$INPT^IBECEAU(IBCLDAY),"" 90 days: $"",IBCLDOL,!"
^XMB(3.9,53,2,2167,0)="""RTN"",""IBECEA21"",49,0)"
^XMB(3.9,53,2,2168,0)=" S:IBXA=3 IBDAYP=IBCLDAY-IBUNITP"
^XMB(3.9,53,2,2169,0)="""RTN"",""IBECEA21"",50,0)"
^XMB(3.9,53,2,2170,0)=" I IBXA=1!(IBXA=2) S IBDOLP=IBCLDOL-IBCHGP S:IBDOLP<0 IBDOLP=0"
^XMB(3.9,53,2,2171,0)="""RTN"",""IBECEA21"",51,0)"
^XMB(3.9,53,2,2172,0)=" ;"
^XMB(3.9,53,2,2173,0)="""RTN"",""IBECEA21"",52,0)"
^XMB(3.9,53,2,2174,0)=" ; - ask for 'Bill From' date"
^XMB(3.9,53,2,2175,0)="""RTN"",""IBECEA21"",53,0)"
^XMB(3.9,53,2,2176,0)="FR D FR^IBECEAU2(IBFRP) G:IBY<0 END"
^XMB(3.9,53,2,2177,0)="""RTN"",""IBECEA21"",54,0)"
^XMB(3.9,53,2,2178,0)=" I +IBSWINFO,(IBFR+1)>$P(IBSWINFO,""^"",2) D  G FR          ;IB*2.0*312"
^XMB(3.9,53,2,2179,0)="""RTN"",""IBECEA21"",55,0)"
^XMB(3.9,53,2,2180,0)="   .W !!,""The 'Bill From' date cannot be on or AFTER """
^XMB(3.9,53,2,2181,0)="""RTN"",""IBECEA21"",56,0)"
^XMB(3.9,53,2,2182,0)="   .W ""the PFSS Effective Date: "",$$FMTE^XLFDT($P(IBSWINFO,""^"",2))"
^XMB(3.9,53,2,2183,0)="""RTN"",""IBECEA21"",57,0)"
^XMB(3.9,53,2,2184,0)=" ; "
^XMB(3.9,53,2,2185,0)="""RTN"",""IBECEA21"",58,0)"
^XMB(3.9,53,2,2186,0)=" I IBFR<IBCLDT W !!,""The 'Bill From' date cannot preceed the Billing Clock Begin Date."",! G FR"
^XMB(3.9,53,2,2187,0)="""RTN"",""IBECEA21"",59,0)"
^XMB(3.9,53,2,2188,0)=" S IBGMTR=0,IBGMT=$$ISGMTPT^IBAGMT(DFN,IBFR) ; GMT Status may change"
^XMB(3.9,53,2,2189,0)="""RTN"",""IBECEA21"",60,0)"
^XMB(3.9,53,2,2190,0)=" I IBXA=3 S IBDT=IBFR D COST^IBAUTL2 S:IBGMT>0 IBGMTR=1,IBCHG=$$REDUCE^IBAGMT(IBCHG) I 'IBCHG W !!,""Unable to determine the per diem rate. Please check your rate table."" S IBY=-1 G END"
^XMB(3.9,53,2,2191,0)="""RTN"",""IBECEA21"",61,0)"
^XMB(3.9,53,2,2192,0)=" I IBXA=2 S IBDT=IBFR D COPAY^IBAUTL2 G:IBY<0 END S:IBGMT>0 IBGMTR=1,IBCHG=$$REDUCE^IBAGMT(IBCHG) I IBCHG+IBDOLP<IBMED W *7,""   ($"",IBCHG,""/day)"" W:IBGMTR "" GMT Rate"" G TO"
^XMB(3.9,53,2,2193,0)="""RTN"",""IBECEA21"",62,0)"
^XMB(3.9,53,2,2194,0)=" I IBXA=2,IBCHG=IBCHGP D CTBB^IBECEAU3 W !!,""No change was made!"" S IBY=-1 G END"
^XMB(3.9,53,2,2195,0)="""RTN"",""IBECEA21"",63,0)"
^XMB(3.9,53,2,2196,0)=" ;"
^XMB(3.9,53,2,2197,0)="""RTN"",""IBECEA21"",64,0)"
^XMB(3.9,53,2,2198,0)=" ; - ask for 'Bill To' date"
^XMB(3.9,53,2,2199,0)="""RTN"",""IBECEA21"",65,0)"
^XMB(3.9,53,2,2200,0)="TO D TO^IBECEAU2(IBTOP) G:IBY<0 END"
^XMB(3.9,53,2,2201,0)="""RTN"",""IBECEA21"",66,0)"
^XMB(3.9,53,2,2202,0)=" I +IBSWINFO,(IBTO+1)>$P(IBSWINFO,""^"",2) D  G TO          ;IB*2.0*312"
^XMB(3.9,53,2,2203,0)="""RTN"",""IBECEA21"",67,0)"
^XMB(3.9,53,2,2204,0)="  .W !!,""The 'Bill To' date cannot be on or AFTER """
^XMB(3.9,53,2,2205,0)="""RTN"",""IBECEA21"",68,0)"
^XMB(3.9,53,2,2206,0)="  .W ""the PFSS Effective Date: "",$$FMTE^XLFDT($P(IBSWINFO,""^"",2))"
^XMB(3.9,53,2,2207,0)="""RTN"",""IBECEA21"",69,0)"
^XMB(3.9,53,2,2208,0)=" ; "
^XMB(3.9,53,2,2209,0)="""RTN"",""IBECEA21"",70,0)"
^XMB(3.9,53,2,2210,0)=" I $P(IBCLST,""^"",10),IBTO>$P(IBCLST,""^"",10) W !!,""The 'Bill To' date cannot exceed the Billing Clock End Date ("",$$DAT1^IBOUTL($P(IBCLST,""^"",10)),"")."" G TO"
^XMB(3.9,53,2,2211,0)="""RTN"",""IBECEA21"",71,0)"
^XMB(3.9,53,2,2212,0)=" S IBUNIT=$$FMDIFF^XLFDT(IBTO,IBFR)"
^XMB(3.9,53,2,2213,0)="""RTN"",""IBECEA21"",72,0)"
^XMB(3.9,53,2,2214,0)=" I $$FMDIFF^XLFDT(IBTOP,IBFRP)<IBUNITP!(IBFR=IBTO) S IBUNIT=IBUNIT+1"
^XMB(3.9,53,2,2215,0)="""RTN"",""IBECEA21"",73,0)"
^XMB(3.9,53,2,2216,0)=" I IBTO'=IBFR,IBXA>0,IBXA<4,$$ISGMTPT^IBAGMT(DFN,IBTO)'=$$ISGMTPT^IBAGMT(DFN,IBFR) W !!,""The patient changed GMT Copayment status during the specified period!"",! G TO"
^XMB(3.9,53,2,2217,0)="""RTN"",""IBECEA21"",74,0)"
^XMB(3.9,53,2,2218,0)=" I IBXA>1 D  G END"
^XMB(3.9,53,2,2219,0)="""RTN"",""IBECEA21"",75,0)"
^XMB(3.9,53,2,2220,0)=" . S IBCHG=IBUNIT*IBCHG S:IBXA=2 IBCHG=$S(IBDOLP+IBCHG>IBMED:IBMED-IBDOLP,1:IBCHG)"
^XMB(3.9,53,2,2221,0)="""RTN"",""IBECEA21"",76,0)"
^XMB(3.9,53,2,2222,0)=" . I IBCHG=IBCHGP D CTBB^IBECEAU3 W !!,""No change was made!"" S IBY=-1 Q"
^XMB(3.9,53,2,2223,0)="""RTN"",""IBECEA21"",77,0)"
^XMB(3.9,53,2,2224,0)=" . S:IBXA=2 IBDOLA=IBDOLP+IBCHG,IBDAYA=0 S:IBXA=3 IBDAYA=IBDAYP+IBUNIT,IBDOLA=0"
^XMB(3.9,53,2,2225,0)="""RTN"",""IBECEA21"",78,0)"
^XMB(3.9,53,2,2226,0)=" . W !!,""New charge to be billed"" W:IBGMTR ""(GMT Rate)"" W "": $"",$J(IBCHG,"""",2),!"
^XMB(3.9,53,2,2227,0)="""RTN"",""IBECEA21"",79,0)"
^XMB(3.9,53,2,2228,0)=" . I IBH D CHCL^IBECEA22"
^XMB(3.9,53,2,2229,0)="""RTN"",""IBECEA21"",80,0)"
^XMB(3.9,53,2,2230,0)=" ;"
^XMB(3.9,53,2,2231,0)="""RTN"",""IBECEA21"",81,0)"
^XMB(3.9,53,2,2232,0)=" ; - ask for 'Fee Amount'"
^XMB(3.9,53,2,2233,0)="""RTN"",""IBECEA21"",82,0)"
^XMB(3.9,53,2,2234,0)=" S IBCLDOLO=IBCLDOL,IBCLDOL=IBCLDOL-IBCHGP S:IBCLDOL<0 IBCLDOL=0"
^XMB(3.9,53,2,2235,0)="""RTN"",""IBECEA21"",83,0)"
^XMB(3.9,53,2,2236,0)=" I IBGMT>0 S IBGMTR=1 W !,""The patient has GMT Copayment Status! GMT rate must be applied."",!"
^XMB(3.9,53,2,2237,0)="""RTN"",""IBECEA21"",84,0)"
^XMB(3.9,53,2,2238,0)=" D FEE^IBECEAU2(IBCHGP) G:IBY<0 END"
^XMB(3.9,53,2,2239,0)="""RTN"",""IBECEA21"",85,0)"
^XMB(3.9,53,2,2240,0)=" I IBCHG=IBCHGP W !!,""No change was made!"" S IBY=-1 G END"
^XMB(3.9,53,2,2241,0)="""RTN"",""IBECEA21"",86,0)"
^XMB(3.9,53,2,2242,0)=" S IBCLDOL=IBCLDOLO,IBDOLA=IBDOLP+IBCHG,IBDAYA=0"
^XMB(3.9,53,2,2243,0)="""RTN"",""IBECEA21"",87,0)"
^XMB(3.9,53,2,2244,0)=" I IBH D CHCL^IBECEA22"
^XMB(3.9,53,2,2245,0)="""RTN"",""IBECEA21"",88,0)"
^XMB(3.9,53,2,2246,0)=" ;"
^XMB(3.9,53,2,2247,0)="""RTN"",""IBECEA21"",89,0)"
^XMB(3.9,53,2,2248,0)="END Q"
^XMB(3.9,53,2,2249,0)="""RTN"",""IBECEA3"")"
^XMB(3.9,53,2,2250,0)="0^15^B67660841^B61517877"
^XMB(3.9,53,2,2251,0)="""RTN"",""IBECEA3"",1,0)"
^XMB(3.9,53,2,2252,0)="IBECEA3 ;ALB/CPM - Cancel/Edit/Add... Add a Charge ;30-MAR-93"
^XMB(3.9,53,2,2253,0)="""RTN"",""IBECEA3"",2,0)"
^XMB(3.9,53,2,2254,0)=" ;;2.0;INTEGRATED BILLING;**7,57,52,132,150,153,166,156,167,176,198,188,183,202,240,312**;21-MAR-94"
^XMB(3.9,53,2,2255,0)="""RTN"",""IBECEA3"",3,0)"
^XMB(3.9,53,2,2256,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,53,2,2257,0)="""RTN"",""IBECEA3"",4,0)"
^XMB(3.9,53,2,2258,0)=" ;"
^XMB(3.9,53,2,2259,0)="""RTN"",""IBECEA3"",5,0)"
^XMB(3.9,53,2,2260,0)="ADD ; Add a Charge protocol"
^XMB(3.9,53,2,2261,0)="""RTN"",""IBECEA3"",6,0)"
^XMB(3.9,53,2,2262,0)=" N IBSWINFO S IBSWINFO=$$SWSTAT^IBBAPI()                     ;IB*2.0*312"
^XMB(3.9,53,2,2263,0)="""RTN"",""IBECEA3"",7,0)"
^XMB(3.9,53,2,2264,0)=" N IBGMT,IBGMTR"
^XMB(3.9,53,2,2265,0)="""RTN"",""IBECEA3"",8,0)"
^XMB(3.9,53,2,2266,0)=" S (IBGMT,IBGMTR)=0"
^XMB(3.9,53,2,2267,0)="""RTN"",""IBECEA3"",9,0)"
^XMB(3.9,53,2,2268,0)=" S IBCOMMIT=0,IBEXSTAT=$$RXST^IBARXEU(DFN,DT),IBCATC=$$BILST^DGMTUB(DFN),IBCVAEL=$$CVA^IBAUTL5(DFN),IBLTCST=$$LTCST^IBAECU(DFN,DT,1)"
^XMB(3.9,53,2,2269,0)="""RTN"",""IBECEA3"",10,0)"
^XMB(3.9,53,2,2270,0)=" ;I 'IBCVAEL,'IBCATC,'$G(IBRX),+IBEXSTAT<1 W !!,""This patient has never been Means Test billable."" S VALMBCK="""" D PAUSE^VALM1 G ADDQ1"
^XMB(3.9,53,2,2271,0)="""RTN"",""IBECEA3"",11,0)"
^XMB(3.9,53,2,2272,0)=" ;"
^XMB(3.9,53,2,2273,0)="""RTN"",""IBECEA3"",12,0)"
^XMB(3.9,53,2,2274,0)=" ; - clear screen and begin"
^XMB(3.9,53,2,2275,0)="""RTN"",""IBECEA3"",13,0)"
^XMB(3.9,53,2,2276,0)=" D CLOCK^IBAUTL3 I 'IBCLDA S (IBMED,IBCLDAY,IBCLDOL,IBCLDT)=0"
^XMB(3.9,53,2,2277,0)="""RTN"",""IBECEA3"",14,0)"
^XMB(3.9,53,2,2278,0)=" D HDR^IBECEAU(""A D D"")"
^XMB(3.9,53,2,2279,0)="""RTN"",""IBECEA3"",15,0)"
^XMB(3.9,53,2,2280,0)=" I IBY<0 D NODED^IBECEAU3 G ADDQ"
^XMB(3.9,53,2,2281,0)="""RTN"",""IBECEA3"",16,0)"
^XMB(3.9,53,2,2282,0)=" ;"
^XMB(3.9,53,2,2283,0)="""RTN"",""IBECEA3"",17,0)"
^XMB(3.9,53,2,2284,0)=" ; - ask for the charge type"
^XMB(3.9,53,2,2285,0)="""RTN"",""IBECEA3"",18,0)"
^XMB(3.9,53,2,2286,0)=" D CHTYP^IBECEA33 G:IBY<0 ADDQ"
^XMB(3.9,53,2,2287,0)="""RTN"",""IBECEA3"",19,0)"
^XMB(3.9,53,2,2288,0)=" N IBAFEE S:$P($G(^IBE(350.1,+$G(IBATYP),0)),""^"",8)=""FEE SERVICE/OUTPATIENT"" IBAFEE=IBATYP"
^XMB(3.9,53,2,2289,0)="""RTN"",""IBECEA3"",20,0)"
^XMB(3.9,53,2,2290,0)=" ;"
^XMB(3.9,53,2,2291,0)="""RTN"",""IBECEA3"",21,0)"
^XMB(3.9,53,2,2292,0)=" ; - process CHAMPVA charges"
^XMB(3.9,53,2,2293,0)="""RTN"",""IBECEA3"",22,0)"
^XMB(3.9,53,2,2294,0)=" I IBXA=6 D CHMPVA^IBECEA32 G ADDQ"
^XMB(3.9,53,2,2295,0)="""RTN"",""IBECEA3"",23,0)"
^XMB(3.9,53,2,2296,0)=" ;"
^XMB(3.9,53,2,2297,0)="""RTN"",""IBECEA3"",24,0)"
^XMB(3.9,53,2,2298,0)=" ; - process TRICARE charges"
^XMB(3.9,53,2,2299,0)="""RTN"",""IBECEA3"",25,0)"
^XMB(3.9,53,2,2300,0)=" I IBXA=7 D CUS^IBECEA35 G ADDQ"
^XMB(3.9,53,2,2301,0)="""RTN"",""IBECEA3"",26,0)"
^XMB(3.9,53,2,2302,0)=" ;"
^XMB(3.9,53,2,2303,0)="""RTN"",""IBECEA3"",27,0)"
^XMB(3.9,53,2,2304,0)=" ; - display MT billing clock data"
^XMB(3.9,53,2,2305,0)="""RTN"",""IBECEA3"",28,0)"
^XMB(3.9,53,2,2306,0)=" I IBXA=2,$P($G(^IBE(350.1,+IBATYP,0)),""^"",8)'[""NHCU"",IBCLDAY>90 S IBMED=IBMED/2"
^XMB(3.9,53,2,2307,0)="""RTN"",""IBECEA3"",29,0)"
^XMB(3.9,53,2,2308,0)=" I IBXA=1,IBCLDAY>90 D MED^IBECEA34 G:IBY<0 ADDQ"
^XMB(3.9,53,2,2309,0)="""RTN"",""IBECEA3"",30,0)"
^XMB(3.9,53,2,2310,0)=" I ""^1^2^3^""[(""^""_IBXA_""^""),IBCLDA W !!,""  ** Active Billing Clock **   # Inpt Days: "",IBCLDAY,""    "",$$INPT^IBECEAU(IBCLDAY),"" 90 days: $"",+IBCLDOL,!"
^XMB(3.9,53,2,2311,0)="""RTN"",""IBECEA3"",31,0)"
^XMB(3.9,53,2,2312,0)=" ;"
^XMB(3.9,53,2,2313,0)="""RTN"",""IBECEA3"",32,0)"
^XMB(3.9,53,2,2314,0)=" ; - display LTC billing clock data"
^XMB(3.9,53,2,2315,0)="""RTN"",""IBECEA3"",33,0)"
^XMB(3.9,53,2,2316,0)=" I IBXA>7,IBXA<10 D  G:IBCLDA<1 ADDQ"
^XMB(3.9,53,2,2317,0)="""RTN"",""IBECEA3"",34,0)"
^XMB(3.9,53,2,2318,0)=" . N IBCLZ"
^XMB(3.9,53,2,2319,0)="""RTN"",""IBECEA3"",35,0)"
^XMB(3.9,53,2,2320,0)=" . S IBCLDA=$O(^IBA(351.81,""AE"",DFN,9999999),-1)"
^XMB(3.9,53,2,2321,0)="""RTN"",""IBECEA3"",36,0)"
^XMB(3.9,53,2,2322,0)=" . S:IBCLDA IBCLDA=$O(^IBA(351.81,""AE"",DFN,IBCLDA,0))"
^XMB(3.9,53,2,2323,0)="""RTN"",""IBECEA3"",37,0)"
^XMB(3.9,53,2,2324,0)=" . I 'IBCLDA W !!,""  ** Patient has no LTC billing clock **"" Q"
^XMB(3.9,53,2,2325,0)="""RTN"",""IBECEA3"",38,0)"
^XMB(3.9,53,2,2326,0)=" . S IBCLZ=^IBA(351.81,IBCLDA,0)"
^XMB(3.9,53,2,2327,0)="""RTN"",""IBECEA3"",39,0)"
^XMB(3.9,53,2,2328,0)=" . W !!,""  **Last LTC Billing Clock    Start Date: "",$$FMTE^XLFDT($P(IBCLZ,""^"",3)),""  Free Days Remaining: "",+$P(IBCLZ,""^"",6)"
^XMB(3.9,53,2,2329,0)="""RTN"",""IBECEA3"",40,0)"
^XMB(3.9,53,2,2330,0)=" . I $P(IBCLZ,""^"",6) W !,""The patient must use his free days first."" S IBCLDA=0"
^XMB(3.9,53,2,2331,0)="""RTN"",""IBECEA3"",41,0)"
^XMB(3.9,53,2,2332,0)=" ;"
^XMB(3.9,53,2,2333,0)="""RTN"",""IBECEA3"",42,0)"
^XMB(3.9,53,2,2334,0)=" ; - ask units for rx copay charge"
^XMB(3.9,53,2,2335,0)="""RTN"",""IBECEA3"",43,0)"
^XMB(3.9,53,2,2336,0)=" I IBXA=5 D UNIT^IBECEAU2(0) G ADDQ:IBY<0 D  G ADDQ:IBY<0 G PROC"
^XMB(3.9,53,2,2337,0)="""RTN"",""IBECEA3"",44,0)"
^XMB(3.9,53,2,2338,0)=" . ;"
^XMB(3.9,53,2,2339,0)="""RTN"",""IBECEA3"",45,0)"
^XMB(3.9,53,2,2340,0)=" . ; has patient been previously tracked for cap info"
^XMB(3.9,53,2,2341,0)="""RTN"",""IBECEA3"",46,0)"
^XMB(3.9,53,2,2342,0)=" . D TRACK^IBARXMN(DFN)"
^XMB(3.9,53,2,2343,0)="""RTN"",""IBECEA3"",47,0)"
^XMB(3.9,53,2,2344,0)=" . ;"
^XMB(3.9,53,2,2345,0)="""RTN"",""IBECEA3"",48,0)"
^XMB(3.9,53,2,2346,0)=" . D CTBB^IBECEAU3"
^XMB(3.9,53,2,2347,0)="""RTN"",""IBECEA3"",49,0)"
^XMB(3.9,53,2,2348,0)=" . ;"
^XMB(3.9,53,2,2349,0)="""RTN"",""IBECEA3"",50,0)"
^XMB(3.9,53,2,2350,0)=" . ; check if above cap"
^XMB(3.9,53,2,2351,0)="""RTN"",""IBECEA3"",51,0)"
^XMB(3.9,53,2,2352,0)=" . I IBY'<0 D"
^XMB(3.9,53,2,2353,0)="""RTN"",""IBECEA3"",52,0)"
^XMB(3.9,53,2,2354,0)=" .. N IBB,IBN,DIR,DIRUT,DUOUT,DTOUT,X,Y"
^XMB(3.9,53,2,2355,0)="""RTN"",""IBECEA3"",53,0)"
^XMB(3.9,53,2,2356,0)=" .. D NEW^IBARXMC(1,IBCHG,DT,.IBB,.IBN) Q:'IBN"
^XMB(3.9,53,2,2357,0)="""RTN"",""IBECEA3"",54,0)"
^XMB(3.9,53,2,2358,0)=" .. ;"
^XMB(3.9,53,2,2359,0)="""RTN"",""IBECEA3"",55,0)"
^XMB(3.9,53,2,2360,0)=" .. ; display message ask to proceed"
^XMB(3.9,53,2,2361,0)="""RTN"",""IBECEA3"",56,0)"
^XMB(3.9,53,2,2362,0)=" .. W !!,""This charge will put the patient > $"",$J(IBN,0,2),"" above their cap amount."""
^XMB(3.9,53,2,2363,0)="""RTN"",""IBECEA3"",57,0)"
^XMB(3.9,53,2,2364,0)=" .. S DIR(0)=""Y"",DIR(""A"")=""Okay to proceed"" D ^DIR S:'Y IBY=-1"
^XMB(3.9,53,2,2365,0)="""RTN"",""IBECEA3"",58,0)"
^XMB(3.9,53,2,2366,0)=" .. ;"
^XMB(3.9,53,2,2367,0)="""RTN"",""IBECEA3"",59,0)"
^XMB(3.9,53,2,2368,0)=" S IBLIM=$S(IBXA=4!(IBXA=3):DT,1:$$FMADD^XLFDT(DT,-1))"
^XMB(3.9,53,2,2369,0)="""RTN"",""IBECEA3"",60,0)"
^XMB(3.9,53,2,2370,0)=" ;"
^XMB(3.9,53,2,2371,0)="""RTN"",""IBECEA3"",61,0)"
^XMB(3.9,53,2,2372,0)="FR ; - ask 'bill from' date"
^XMB(3.9,53,2,2373,0)="""RTN"",""IBECEA3"",62,0)"
^XMB(3.9,53,2,2374,0)=" D FR^IBECEAU2(0) G:IBY<0 ADDQ"
^XMB(3.9,53,2,2375,0)="""RTN"",""IBECEA3"",63,0)"
^XMB(3.9,53,2,2376,0)=" ; Do NOT PROCESS on VistA if IBFR>=Switch Eff Date          ;CCR-930"
^XMB(3.9,53,2,2377,0)="""RTN"",""IBECEA3"",64,0)"
^XMB(3.9,53,2,2378,0)=" I +IBSWINFO,(IBFR+1)>$P(IBSWINFO,""^"",2) D  G FR             ;IB*2.0*312"
^XMB(3.9,53,2,2379,0)="""RTN"",""IBECEA3"",65,0)"
^XMB(3.9,53,2,2380,0)="   .W !!,""The 'Bill From' date cannot be on or AFTER the PFSS Effective Date"""
^XMB(3.9,53,2,2381,0)="""RTN"",""IBECEA3"",66,0)"
^XMB(3.9,53,2,2382,0)="   .W "": "",$$FMTE^XLFDT($P(IBSWINFO,""^"",2))"
^XMB(3.9,53,2,2383,0)="""RTN"",""IBECEA3"",67,0)"
^XMB(3.9,53,2,2384,0)=" ;"
^XMB(3.9,53,2,2385,0)="""RTN"",""IBECEA3"",68,0)"
^XMB(3.9,53,2,2386,0)=" S IBGMT=$$ISGMTPT^IBAGMT(DFN,IBFR),IBGMTR=0 ;GMT Copayment Status"
^XMB(3.9,53,2,2387,0)="""RTN"",""IBECEA3"",69,0)"
^XMB(3.9,53,2,2388,0)=" I IBGMT>0,IBXA>0,IBXA<4 W !,""The patient has GMT Copayment Status."""
^XMB(3.9,53,2,2389,0)="""RTN"",""IBECEA3"",70,0)"
^XMB(3.9,53,2,2390,0)=" ; - check the MT billing clock"
^XMB(3.9,53,2,2391,0)="""RTN"",""IBECEA3"",71,0)"
^XMB(3.9,53,2,2392,0)=" I IBXA'=8,IBXA'=9 D CLMSG^IBECEA33 G:IBY<0 ADDQ"
^XMB(3.9,53,2,2393,0)="""RTN"",""IBECEA3"",72,0)"
^XMB(3.9,53,2,2394,0)=" ;Adjust Deductible for GMT patient"
^XMB(3.9,53,2,2395,0)="""RTN"",""IBECEA3"",73,0)"
^XMB(3.9,53,2,2396,0)=" I IBGMT>0,IBXA>0,IBXA<4,$G(IBMED) S IBMED=$$REDUCE^IBAGMT(IBMED) W !,""Medicare Deductible reduced due to GMT Copayment Status ($"",$J(IBMED,"""",2),"")."""
^XMB(3.9,53,2,2397,0)="""RTN"",""IBECEA3"",74,0)"
^XMB(3.9,53,2,2398,0)=" ;"
^XMB(3.9,53,2,2399,0)="""RTN"",""IBECEA3"",75,0)"
^XMB(3.9,53,2,2400,0)=" ; - check the LTC billing clock"
^XMB(3.9,53,2,2401,0)="""RTN"",""IBECEA3"",76,0)"
^XMB(3.9,53,2,2402,0)=" I IBXA>7,IBXA<10 D  I IBY<0 W !!,""The patient has no LTC clock active for the date."",! G ADDQ"
^XMB(3.9,53,2,2403,0)="""RTN"",""IBECEA3"",77,0)"
^XMB(3.9,53,2,2404,0)=" . N IBCLZ S IBCLZ=^IBA(351.81,IBCLDA,0)"
^XMB(3.9,53,2,2405,0)="""RTN"",""IBECEA3"",78,0)"
^XMB(3.9,53,2,2406,0)=" . ;"
^XMB(3.9,53,2,2407,0)="""RTN"",""IBECEA3"",79,0)"
^XMB(3.9,53,2,2408,0)=" . ; is this the clock and within the date range"
^XMB(3.9,53,2,2409,0)="""RTN"",""IBECEA3"",80,0)"
^XMB(3.9,53,2,2410,0)=" . I IBFR'<$P(IBCLZ,""^"",3),$$YR^IBAECU($P(IBCLZ,""^"",3),IBFR) S IBY=-1 Q"
^XMB(3.9,53,2,2411,0)="""RTN"",""IBECEA3"",81,0)"
^XMB(3.9,53,2,2412,0)=" . ;"
^XMB(3.9,53,2,2413,0)="""RTN"",""IBECEA3"",82,0)"
^XMB(3.9,53,2,2414,0)=" . ; look for another clock that might fit the date"
^XMB(3.9,53,2,2415,0)="""RTN"",""IBECEA3"",83,0)"
^XMB(3.9,53,2,2416,0)=" . I IBFR<$P(IBCLZ,""^"",3) S IBCLDA=$O(^IBA(351.81,""AE"",DFN,IBFR+1),-1) I 'IBCLDA!($$YR^IBAECU($P($G(^IBA(351.81,+IBCLDA,0)),""^"",3),IBFR)) S IBY=-1"
^XMB(3.9,53,2,2417,0)="""RTN"",""IBECEA3"",84,0)"
^XMB(3.9,53,2,2418,0)=" ;"
^XMB(3.9,53,2,2419,0)="""RTN"",""IBECEA3"",85,0)"
^XMB(3.9,53,2,2420,0)=" ; - calculate the MT inpt copay charge"
^XMB(3.9,53,2,2421,0)="""RTN"",""IBECEA3"",86,0)"
^XMB(3.9,53,2,2422,0)=" I IBXA=2 S IBDT=IBFR D COPAY^IBAUTL2 G ADDQ:IBY<0 S:IBGMT>0 IBGMTR=1,IBCHG=$$REDUCE^IBAGMT(IBCHG) I IBCHG+IBCLDOL<IBMED W *7,""   ($"",IBCHG,""/day)"" W:IBGMTR "" GMT Rate"""
^XMB(3.9,53,2,2423,0)="""RTN"",""IBECEA3"",87,0)"
^XMB(3.9,53,2,2424,0)=" ;"
^XMB(3.9,53,2,2425,0)="""RTN"",""IBECEA3"",88,0)"
^XMB(3.9,53,2,2426,0)=" ; - find the correct clock from the 'bill from' date (ignore LTC)"
^XMB(3.9,53,2,2427,0)="""RTN"",""IBECEA3"",89,0)"
^XMB(3.9,53,2,2428,0)=" I IBXA'=8,IBXA'=9,('IBCLDA!(IBCLDA&(IBFR<IBCLDT))) D NOCL^IBECEA33 G:IBY<0 ADDQ"
^XMB(3.9,53,2,2429,0)="""RTN"",""IBECEA3"",90,0)"
^XMB(3.9,53,2,2430,0)=" ;"
^XMB(3.9,53,2,2431,0)="""RTN"",""IBECEA3"",91,0)"
^XMB(3.9,53,2,2432,0)=" ; - perform outpatient edits"
^XMB(3.9,53,2,2433,0)="""RTN"",""IBECEA3"",92,0)"
^XMB(3.9,53,2,2434,0)=" N IBSTOPDA"
^XMB(3.9,53,2,2435,0)="""RTN"",""IBECEA3"",93,0)"
^XMB(3.9,53,2,2436,0)=" I IBXA=4 D  G ADDQ:IBY<0,PROC"
^XMB(3.9,53,2,2437,0)="""RTN"",""IBECEA3"",94,0)"
^XMB(3.9,53,2,2438,0)=" .   ;  for visits prior to 12/6/01 or FEE"
^XMB(3.9,53,2,2439,0)="""RTN"",""IBECEA3"",95,0)"
^XMB(3.9,53,2,2440,0)=" .   I IBFR<3011206!($G(IBAFEE)) D OPT^IBECEA33 Q"
^XMB(3.9,53,2,2441,0)="""RTN"",""IBECEA3"",96,0)"
^XMB(3.9,53,2,2442,0)=" .   ;  for visits on or after 12/5/01"
^XMB(3.9,53,2,2443,0)="""RTN"",""IBECEA3"",97,0)"
^XMB(3.9,53,2,2444,0)=" .   D OPT^IBEMTSCU"
^XMB(3.9,53,2,2445,0)="""RTN"",""IBECEA3"",98,0)"
^XMB(3.9,53,2,2446,0)=" ;"
^XMB(3.9,53,2,2447,0)="""RTN"",""IBECEA3"",99,0)"
^XMB(3.9,53,2,2448,0)=" ; - if LTC outpatient calculate the charge"
^XMB(3.9,53,2,2449,0)="""RTN"",""IBECEA3"",100,0)"
^XMB(3.9,53,2,2450,0)=" I IBXA=8 D  G:IBY<0 ADDQ S (IBDT,IBTO,IBEVDT)=IBFR,IBDESC=$P(^IBE(350.1,IBATYP,0),""^"",8),IBUNIT=1,IBEVDA=""*"" D COST^IBAUTL2,CALC^IBAECO,CTBB^IBECEAU3 G @$S(IBCHG:""PROC"",1:""ADDQ"")"
^XMB(3.9,53,2,2451,0)="""RTN"",""IBECEA3"",101,0)"
^XMB(3.9,53,2,2452,0)=" . ;"
^XMB(3.9,53,2,2453,0)="""RTN"",""IBECEA3"",102,0)"
^XMB(3.9,53,2,2454,0)=" . ; is this day already a free day"
^XMB(3.9,53,2,2455,0)="""RTN"",""IBECEA3"",103,0)"
^XMB(3.9,53,2,2456,0)=" . I $D(^IBA(351.81,IBCLDA,1,""AC"",IBFR)) W !!,""This day is already marked as a Free Day."" S IBY=-1"
^XMB(3.9,53,2,2457,0)="""RTN"",""IBECEA3"",104,0)"
^XMB(3.9,53,2,2458,0)=" . ;"
^XMB(3.9,53,2,2459,0)="""RTN"",""IBECEA3"",105,0)"
^XMB(3.9,53,2,2460,0)=" . ; have we already billed for this day"
^XMB(3.9,53,2,2461,0)="""RTN"",""IBECEA3"",106,0)"
^XMB(3.9,53,2,2462,0)=" . I $D(^IB(""AFDT"",DFN,-IBFR)) W !!,""This patient has already been billed for this date."" S IBY=-1"
^XMB(3.9,53,2,2463,0)="""RTN"",""IBECEA3"",107,0)"
^XMB(3.9,53,2,2464,0)=" ;"
^XMB(3.9,53,2,2465,0)="""RTN"",""IBECEA3"",108,0)"
^XMB(3.9,53,2,2466,0)=" ; - find per diem charge and description"
^XMB(3.9,53,2,2467,0)="""RTN"",""IBECEA3"",109,0)"
^XMB(3.9,53,2,2468,0)=" I IBXA=3 D  I 'IBCHG W !!,""Unable to determine the per diem rate.  Please check your rate table."" G ADDQ"
^XMB(3.9,53,2,2469,0)="""RTN"",""IBECEA3"",110,0)"
^XMB(3.9,53,2,2470,0)=" .N IBDT S IBDT=IBFR,IBGMTR=0 D COST^IBAUTL2"
^XMB(3.9,53,2,2471,0)="""RTN"",""IBECEA3"",111,0)"
^XMB(3.9,53,2,2472,0)=" .I IBGMT>0 S IBGMTR=1,IBCHG=$$REDUCE^IBAGMT(IBCHG)"
^XMB(3.9,53,2,2473,0)="""RTN"",""IBECEA3"",112,0)"
^XMB(3.9,53,2,2474,0)=" .S IBDESC="""" X:$D(^IBE(350.1,IBATYP,20)) ^(20)"
^XMB(3.9,53,2,2475,0)="""RTN"",""IBECEA3"",113,0)"
^XMB(3.9,53,2,2476,0)=" ;"
^XMB(3.9,53,2,2477,0)="""RTN"",""IBECEA3"",114,0)"
^XMB(3.9,53,2,2478,0)=" ; - calculate charge for the inpatient copay"
^XMB(3.9,53,2,2479,0)="""RTN"",""IBECEA3"",115,0)"
^XMB(3.9,53,2,2480,0)=" I IBXA=2,IBCHG+IBCLDOL'<IBMED S IBCHG=IBMED-IBCLDOL,IBUNIT=1,IBTO=IBFR D CTBB^IBECEAU3 G EV"
^XMB(3.9,53,2,2481,0)="""RTN"",""IBECEA3"",116,0)"
^XMB(3.9,53,2,2482,0)=" ;"
^XMB(3.9,53,2,2483,0)="""RTN"",""IBECEA3"",117,0)"
^XMB(3.9,53,2,2484,0)="TO ; - ask 'bill to' date"
^XMB(3.9,53,2,2485,0)="""RTN"",""IBECEA3"",118,0)"
^XMB(3.9,53,2,2486,0)=" D TO^IBECEAU2(0) G:IBY<0 ADDQ"
^XMB(3.9,53,2,2487,0)="""RTN"",""IBECEA3"",119,0)"
^XMB(3.9,53,2,2488,0)=" ; Do NOT PROCESS on VistA if IBTO>=Switch Eff Date         ;CCR-930"
^XMB(3.9,53,2,2489,0)="""RTN"",""IBECEA3"",120,0)"
^XMB(3.9,53,2,2490,0)=" I +IBSWINFO,(IBTO+1)>$P(IBSWINFO,""^"",2) D  G TO            ;IB*2.0*312"
^XMB(3.9,53,2,2491,0)="""RTN"",""IBECEA3"",121,0)"
^XMB(3.9,53,2,2492,0)="  .W !!,""The 'Bill To' date cannot be on or AFTER the PFSS Effective Date"""
^XMB(3.9,53,2,2493,0)="""RTN"",""IBECEA3"",122,0)"
^XMB(3.9,53,2,2494,0)="  .W "": "",$$FMTE^XLFDT($P(IBSWINFO,""^"",2))"
^XMB(3.9,53,2,2495,0)="""RTN"",""IBECEA3"",123,0)"
^XMB(3.9,53,2,2496,0)=" ;"
^XMB(3.9,53,2,2497,0)="""RTN"",""IBECEA3"",124,0)"
^XMB(3.9,53,2,2498,0)=" I IBXA>0,IBXA<4,IBGMT'=$$ISGMTPT^IBAGMT(DFN,IBTO) W !!,""The patient's GMT Copayment status changed within the specified period!"",! G ADDQ"
^XMB(3.9,53,2,2499,0)="""RTN"",""IBECEA3"",125,0)"
^XMB(3.9,53,2,2500,0)=" ;"
^XMB(3.9,53,2,2501,0)="""RTN"",""IBECEA3"",126,0)"
^XMB(3.9,53,2,2502,0)=" ; - calculate unit charge for LTC inpatient in IBCHG"
^XMB(3.9,53,2,2503,0)="""RTN"",""IBECEA3"",127,0)"
^XMB(3.9,53,2,2504,0)=" I IBXA=9 S IBDT=IBFR,IBEVDA=$$EVF^IBECEA31(DFN,IBFR,IBTO,IBNH),IBEVDT=$E(IBFR,1,5)_""01"" D:IBEVDA<1  G ADDQ:IBY<0 D COST^IBAUTL2 I $E(IBFR,1,5)'=$E(IBTO,1,5) W !!,""  LTC Copayment charges cannot go from one month to another."" G ADDQ"
^XMB(3.9,53,2,2505,0)="""RTN"",""IBECEA3"",128,0)"
^XMB(3.9,53,2,2506,0)=" . D NOEV^IBECEA31 I '$G(IBDG)!(IBY<0) S IBY=-1 Q"
^XMB(3.9,53,2,2507,0)="""RTN"",""IBECEA3"",129,0)"
^XMB(3.9,53,2,2508,0)=" . ; - build the event record"
^XMB(3.9,53,2,2509,0)="""RTN"",""IBECEA3"",130,0)"
^XMB(3.9,53,2,2510,0)=" . N IBNHLTC S IBNHLTC=1 D ADEV^IBECEA31"
^XMB(3.9,53,2,2511,0)="""RTN"",""IBECEA3"",131,0)"
^XMB(3.9,53,2,2512,0)=" ;"
^XMB(3.9,53,2,2513,0)="""RTN"",""IBECEA3"",132,0)"
^XMB(3.9,53,2,2514,0)=" ;"
^XMB(3.9,53,2,2515,0)="""RTN"",""IBECEA3"",133,0)"
^XMB(3.9,53,2,2516,0)=" ; - calculate units and total charge"
^XMB(3.9,53,2,2517,0)="""RTN"",""IBECEA3"",134,0)"
^XMB(3.9,53,2,2518,0)=" S IBUNIT=$$FMDIFF^XLFDT(IBTO,IBFR) S:IBXA'=3!(IBFR=IBTO) IBUNIT=IBUNIT+1"
^XMB(3.9,53,2,2519,0)="""RTN"",""IBECEA3"",135,0)"
^XMB(3.9,53,2,2520,0)=" I IBXA=1 D:IBGMT>0  D FEPR^IBECEA32 G ADDQ:IBY<0,EV"
^XMB(3.9,53,2,2521,0)="""RTN"",""IBECEA3"",136,0)"
^XMB(3.9,53,2,2522,0)=" . S IBGMTR=1"
^XMB(3.9,53,2,2523,0)="""RTN"",""IBECEA3"",137,0)"
^XMB(3.9,53,2,2524,0)=" . W !,""The patient has GMT Copayment Status! GMT rate must be applied."",!"
^XMB(3.9,53,2,2525,0)="""RTN"",""IBECEA3"",138,0)"
^XMB(3.9,53,2,2526,0)=" S IBCHG=IBCHG*IBUNIT S:IBXA=2 IBCHG=$S(IBCLDOL+IBCHG>IBMED:IBMED-IBCLDOL,1:IBCHG)"
^XMB(3.9,53,2,2527,0)="""RTN"",""IBECEA3"",139,0)"
^XMB(3.9,53,2,2528,0)=" ;"
^XMB(3.9,53,2,2529,0)="""RTN"",""IBECEA3"",140,0)"
^XMB(3.9,53,2,2530,0)=" ; adjust the LTC charge based on the calculated copay cap"
^XMB(3.9,53,2,2531,0)="""RTN"",""IBECEA3"",141,0)"
^XMB(3.9,53,2,2532,0)=" I IBXA=9 D CALC^IBAECI G:IBY<1!('IBCHG) ADDQ S IBDESC=""LTC INPATIENT COPAY"""
^XMB(3.9,53,2,2533,0)="""RTN"",""IBECEA3"",142,0)"
^XMB(3.9,53,2,2534,0)=" ;"
^XMB(3.9,53,2,2535,0)="""RTN"",""IBECEA3"",143,0)"
^XMB(3.9,53,2,2536,0)=" D CTBB^IBECEAU3 W:IBXA=3!(IBXA=9) ""  (for "",IBUNIT,"" day"",$E(""s"",IBUNIT>1),"")"" W:IBGMTR "" GMT Rate"""
^XMB(3.9,53,2,2537,0)="""RTN"",""IBECEA3"",144,0)"
^XMB(3.9,53,2,2538,0)=" ;"
^XMB(3.9,53,2,2539,0)="""RTN"",""IBECEA3"",145,0)"
^XMB(3.9,53,2,2540,0)="EV ; - find event record, or select admission for linkage"
^XMB(3.9,53,2,2541,0)="""RTN"",""IBECEA3"",146,0)"
^XMB(3.9,53,2,2542,0)=" I IBXA'=9 S IBEVDA=$$EVF^IBECEA31(DFN,IBFR,IBTO,IBNH)"
^XMB(3.9,53,2,2543,0)="""RTN"",""IBECEA3"",147,0)"
^XMB(3.9,53,2,2544,0)=" I IBEVDA'>0 D NOEV^IBECEA31 G ADDQ:IBY<0,PROC"
^XMB(3.9,53,2,2545,0)="""RTN"",""IBECEA3"",148,0)"
^XMB(3.9,53,2,2546,0)=" S IBSL=$P($G(^IB(+IBEVDA,0)),""^"",4)"
^XMB(3.9,53,2,2547,0)="""RTN"",""IBECEA3"",149,0)"
^XMB(3.9,53,2,2548,0)=" W !!,""Linked charge to "",$$TYP(),""admission on "",$$DAT1^IBOUTL($P(IBEVDA,""^"",2)),""  ("""
^XMB(3.9,53,2,2549,0)="""RTN"",""IBECEA3"",150,0)"
^XMB(3.9,53,2,2550,0)=" W $S($P(IBEVDA,""^"",3)=9999999:""Still admitted)"",1:""Discharged on ""_$$DAT1^IBOUTL($P(IBEVDA,""^"",3))_$S($P(IBEVDA,""^"",3)>DT:"" [pseudo])"",1:"")"")),"" ..."""
^XMB(3.9,53,2,2551,0)="""RTN"",""IBECEA3"",151,0)"
^XMB(3.9,53,2,2552,0)=" S IBEVDA=+IBEVDA"
^XMB(3.9,53,2,2553,0)="""RTN"",""IBECEA3"",152,0)"
^XMB(3.9,53,2,2554,0)=" I '$G(IBSIBC) D SPEC^IBECEA32(0,$O(^IBE(351.2,""AD"",IBEVDA,0)))"
^XMB(3.9,53,2,2555,0)="""RTN"",""IBECEA3"",153,0)"
^XMB(3.9,53,2,2556,0)=" ;"
^XMB(3.9,53,2,2557,0)="""RTN"",""IBECEA3"",154,0)"
^XMB(3.9,53,2,2558,0)=" ;"
^XMB(3.9,53,2,2559,0)="""RTN"",""IBECEA3"",155,0)"
^XMB(3.9,53,2,2560,0)="PROC ; - okay to proceed?"
^XMB(3.9,53,2,2561,0)="""RTN"",""IBECEA3"",156,0)"
^XMB(3.9,53,2,2562,0)=" D PROC^IBECEAU4(""add"") G:IBY<0 ADDQ"
^XMB(3.9,53,2,2563,0)="""RTN"",""IBECEA3"",157,0)"
^XMB(3.9,53,2,2564,0)=" ;"
^XMB(3.9,53,2,2565,0)="""RTN"",""IBECEA3"",158,0)"
^XMB(3.9,53,2,2566,0)=" ; - build the event record first if necessary"
^XMB(3.9,53,2,2567,0)="""RTN"",""IBECEA3"",159,0)"
^XMB(3.9,53,2,2568,0)=" I $G(IBDG),IBXA'=9 D @(""ADEV^IBECEA3""_$S($G(IBFEEV):4,1:1)) G:IBY<0 ADDQ"
^XMB(3.9,53,2,2569,0)="""RTN"",""IBECEA3"",160,0)"
^XMB(3.9,53,2,2570,0)=" ;"
^XMB(3.9,53,2,2571,0)="""RTN"",""IBECEA3"",161,0)"
^XMB(3.9,53,2,2572,0)=" ; - disposition the special inpatient billing case, if necessary"
^XMB(3.9,53,2,2573,0)="""RTN"",""IBECEA3"",162,0)"
^XMB(3.9,53,2,2574,0)=" I $G(IBSIBC) D CEA^IBAMTI1(IBSIBC,IBEVDA)"
^XMB(3.9,53,2,2575,0)="""RTN"",""IBECEA3"",163,0)"
^XMB(3.9,53,2,2576,0)=" ;"
^XMB(3.9,53,2,2577,0)="""RTN"",""IBECEA3"",164,0)"
^XMB(3.9,53,2,2578,0)=" ; - generate entry in file #354.71 and #350"
^XMB(3.9,53,2,2579,0)="""RTN"",""IBECEA3"",165,0)"
^XMB(3.9,53,2,2580,0)=" I IBXA=5 W !!,""Building the new transaction...  "" S IBAM=$$ADD^IBARXMN(DFN,""^^""_DT_""^^P^^""_IBUNIT_""^""_IBCHG_""^""_IBDESC_""^^""_IBCHG_""^0^""_IBSITE) G:IBAM<0 ADDQ"
^XMB(3.9,53,2,2581,0)="""RTN"",""IBECEA3"",166,0)"
^XMB(3.9,53,2,2582,0)=" D ADD^IBECEAU3 G:IBY<0 ADDQ W ""done."""
^XMB(3.9,53,2,2583,0)="""RTN"",""IBECEA3"",167,0)"
^XMB(3.9,53,2,2584,0)=" ;"
^XMB(3.9,53,2,2585,0)="""RTN"",""IBECEA3"",168,0)"
^XMB(3.9,53,2,2586,0)=" ; - pass the charge off to AR on-line"
^XMB(3.9,53,2,2587,0)="""RTN"",""IBECEA3"",169,0)"
^XMB(3.9,53,2,2588,0)=" W !,""Passing the charge directly to Accounts Receivable... """
^XMB(3.9,53,2,2589,0)="""RTN"",""IBECEA3"",170,0)"
^XMB(3.9,53,2,2590,0)=" D PASSCH^IBECEA22 W:IBY>0 ""done."" G:IBY<0 ADDQ"
^XMB(3.9,53,2,2591,0)="""RTN"",""IBECEA3"",171,0)"
^XMB(3.9,53,2,2592,0)=" ;"
^XMB(3.9,53,2,2593,0)="""RTN"",""IBECEA3"",172,0)"
^XMB(3.9,53,2,2594,0)=" ; - review the special inpatient billing case"
^XMB(3.9,53,2,2595,0)="""RTN"",""IBECEA3"",173,0)"
^XMB(3.9,53,2,2596,0)=" I $G(IBSIBC1) D CHK^IBAMTI1(IBSIBC1,IBEVDA)"
^XMB(3.9,53,2,2597,0)="""RTN"",""IBECEA3"",174,0)"
^XMB(3.9,53,2,2598,0)=" ;"
^XMB(3.9,53,2,2599,0)="""RTN"",""IBECEA3"",175,0)"
^XMB(3.9,53,2,2600,0)=" ; - handle updating of clock"
^XMB(3.9,53,2,2601,0)="""RTN"",""IBECEA3"",176,0)"
^XMB(3.9,53,2,2602,0)=" I IBXA'=8,IBXA'=9 D CLUPD^IBECEA32"
^XMB(3.9,53,2,2603,0)="""RTN"",""IBECEA3"",177,0)"
^XMB(3.9,53,2,2604,0)=" ;"
^XMB(3.9,53,2,2605,0)="""RTN"",""IBECEA3"",178,0)"
^XMB(3.9,53,2,2606,0)="ADDQ ; - display error, rebuild list, and quit"
^XMB(3.9,53,2,2607,0)="""RTN"",""IBECEA3"",179,0)"
^XMB(3.9,53,2,2608,0)=" D ERR^IBECEAU4:IBY<0,PAUSE^IBECEAU S VALMBCK=""R"""
^XMB(3.9,53,2,2609,0)="""RTN"",""IBECEA3"",180,0)"
^XMB(3.9,53,2,2610,0)=" I IBCOMMIT S IBBG=VALMBG W !,""Rebuilding list of charges..."" D ARRAY^IBECEA0 S VALMBG=IBBG"
^XMB(3.9,53,2,2611,0)="""RTN"",""IBECEA3"",181,0)"
^XMB(3.9,53,2,2612,0)=" K IBMED,IBCLDA,IBCLDT,IBCLDOL,IBCLDAY,IBATYP,IBDG,IBSEQNO,IBXA,IBNH,IBBS,IBLIM,IBFR,IBTO,IBRTED,IBSIBC,IBSIBC1,IBBG,IBFEEV,IBAM"
^XMB(3.9,53,2,2613,0)="""RTN"",""IBECEA3"",182,0)"
^XMB(3.9,53,2,2614,0)=" K IBX,IBCHG,IBUNIT,IBDESC,IBDT,IBEVDT,IBEVDA,IBSL,IBNOS,IBN,IBTOTL,IBARTYP,IBIL,IBTRAN,IBAFY,IBCVA,IBCLSF,IBDD,IBND,VADM,VA,VAERR,IBADJMED"
^XMB(3.9,53,2,2615,0)="""RTN"",""IBECEA3"",183,0)"
^XMB(3.9,53,2,2616,0)="ADDQ1 K IBEXSTAT,IBCOMMIT,IBCATC,IBCVAEL,IBLTCST"
^XMB(3.9,53,2,2617,0)="""RTN"",""IBECEA3"",184,0)"
^XMB(3.9,53,2,2618,0)=" Q"
^XMB(3.9,53,2,2619,0)="""RTN"",""IBECEA3"",185,0)"
^XMB(3.9,53,2,2620,0)=" ;"
^XMB(3.9,53,2,2621,0)="""RTN"",""IBECEA3"",186,0)"
^XMB(3.9,53,2,2622,0)=" ;"
^XMB(3.9,53,2,2623,0)="""RTN"",""IBECEA3"",187,0)"
^XMB(3.9,53,2,2624,0)="TYP() ; Return descriptive admission type."
^XMB(3.9,53,2,2625,0)="""RTN"",""IBECEA3"",188,0)"
^XMB(3.9,53,2,2626,0)=" N X S X="""""
^XMB(3.9,53,2,2627,0)="""RTN"",""IBECEA3"",189,0)"
^XMB(3.9,53,2,2628,0)=" I IBNH'=2 G TYPQ"
^XMB(3.9,53,2,2629,0)="""RTN"",""IBECEA3"",190,0)"
^XMB(3.9,53,2,2630,0)=" I $G(IBADJMED) S X=$S(IBADJMED=1:""C"",1:""H"")"
^XMB(3.9,53,2,2631,0)="""RTN"",""IBECEA3"",191,0)"
^XMB(3.9,53,2,2632,0)=" E  S X=$S($P($G(^IBE(350.1,+IBATYP,0)),""^"")[""NHCU"":""C"",1:""H"")"
^XMB(3.9,53,2,2633,0)="""RTN"",""IBECEA3"",192,0)"
^XMB(3.9,53,2,2634,0)=" S X=$S(X=""C"":""CNH "",1:""Contract Hospital "")"
^XMB(3.9,53,2,2635,0)="""RTN"",""IBECEA3"",193,0)"
^XMB(3.9,53,2,2636,0)="TYPQ Q X"
^XMB(3.9,53,2,2637,0)="""RTN"",""IBTRE2"")"
^XMB(3.9,53,2,2638,0)="0^13^B32981505^B32496028"
^XMB(3.9,53,2,2639,0)="""RTN"",""IBTRE2"",1,0)"
^XMB(3.9,53,2,2640,0)="IBTRE2 ;ALB/AAS - CLAIMS TRACKING - ACTIONS ;27-JUN-93"
^XMB(3.9,53,2,2641,0)="""RTN"",""IBTRE2"",2,0)"
^XMB(3.9,53,2,2642,0)=" ;;2.0;INTEGRATED BILLING;**23,121,249,312**;21-MAR-94"
^XMB(3.9,53,2,2643,0)="""RTN"",""IBTRE2"",3,0)"
^XMB(3.9,53,2,2644,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,53,2,2645,0)="""RTN"",""IBTRE2"",4,0)"
^XMB(3.9,53,2,2646,0)=" ;"
^XMB(3.9,53,2,2647,0)="""RTN"",""IBTRE2"",5,0)"
^XMB(3.9,53,2,2648,0)="% G EN^IBTRE"
^XMB(3.9,53,2,2649,0)="""RTN"",""IBTRE2"",6,0)"
^XMB(3.9,53,2,2650,0)=" ;"
^XMB(3.9,53,2,2651,0)="""RTN"",""IBTRE2"",7,0)"
^XMB(3.9,53,2,2652,0)="AT ; -- Add tracking entry"
^XMB(3.9,53,2,2653,0)="""RTN"",""IBTRE2"",8,0)"
^XMB(3.9,53,2,2654,0)=" I '$$PFSSWARN^IBBSHDWN() S VALMBCK=""R"" Q                   ;IB*2.0*312"
^XMB(3.9,53,2,2655,0)="""RTN"",""IBTRE2"",9,0)"
^XMB(3.9,53,2,2656,0)=" D FULL^VALM1"
^XMB(3.9,53,2,2657,0)="""RTN"",""IBTRE2"",10,0)"
^XMB(3.9,53,2,2658,0)=" N X,Y,DIC,DA,DR,DD,DO,DIR,DIRUT,DTOUT,DUOUT,IBETYP,IBQUIT,IBTDT,VAIN,VAINDT,IBTRN,IBTDTE"
^XMB(3.9,53,2,2659,0)="""RTN"",""IBTRE2"",11,0)"
^XMB(3.9,53,2,2660,0)=" ;"
^XMB(3.9,53,2,2661,0)="""RTN"",""IBTRE2"",12,0)"
^XMB(3.9,53,2,2662,0)="TEST S IBQUIT=0"
^XMB(3.9,53,2,2663,0)="""RTN"",""IBTRE2"",13,0)"
^XMB(3.9,53,2,2664,0)=" S DIC(0)=""AEQMNZ"",DIC=""^IBE(356.6,"",DIC(""S"")=""I $P(^(0),U,3)<3"",DIC(""A"")=""Select Tracking Type: """
^XMB(3.9,53,2,2665,0)="""RTN"",""IBTRE2"",14,0)"
^XMB(3.9,53,2,2666,0)=" D ^DIC K DIC S IBETYP=+Y I +Y<0 G ATQ"
^XMB(3.9,53,2,2667,0)="""RTN"",""IBTRE2"",15,0)"
^XMB(3.9,53,2,2668,0)=" W !"
^XMB(3.9,53,2,2669,0)="""RTN"",""IBTRE2"",16,0)"
^XMB(3.9,53,2,2670,0)=" ;"
^XMB(3.9,53,2,2671,0)="""RTN"",""IBTRE2"",17,0)"
^XMB(3.9,53,2,2672,0)="ADM I IBETYP=$O(^IBE(356.6,""AC"",1,0)) D  I IBQUIT G ATQ"
^XMB(3.9,53,2,2673,0)="""RTN"",""IBTRE2"",18,0)"
^XMB(3.9,53,2,2674,0)=" .N DIR"
^XMB(3.9,53,2,2675,0)="""RTN"",""IBTRE2"",19,0)"
^XMB(3.9,53,2,2676,0)=" .S DIR(""?"")=""     """
^XMB(3.9,53,2,2677,0)="""RTN"",""IBTRE2"",20,0)"
^XMB(3.9,53,2,2678,0)=" .S DIR(""?"",1)=""    Enter any Date!"""
^XMB(3.9,53,2,2679,0)="""RTN"",""IBTRE2"",21,0)"
^XMB(3.9,53,2,2680,0)=" .S DIR(""?"",2)=""  """
^XMB(3.9,53,2,2681,0)="""RTN"",""IBTRE2"",22,0)"
^XMB(3.9,53,2,2682,0)=" .S DIR(""?"",3)=""    If the patient was an inpatient on that date the system will use the"""
^XMB(3.9,53,2,2683,0)="""RTN"",""IBTRE2"",23,0)"
^XMB(3.9,53,2,2684,0)=" .S DIR(""?"",4)=""    correct admission date.  If you are tracking an admissions at another"""
^XMB(3.9,53,2,2685,0)="""RTN"",""IBTRE2"",24,0)"
^XMB(3.9,53,2,2686,0)=" .S DIR(""?"",5)=""    facility you may enter that date.  Enter '??' to get a list of the"""
^XMB(3.9,53,2,2687,0)="""RTN"",""IBTRE2"",25,0)"
^XMB(3.9,53,2,2688,0)=" .S DIR(""?"",6)=""    last 10 admissions for this patient."""
^XMB(3.9,53,2,2689,0)="""RTN"",""IBTRE2"",26,0)"
^XMB(3.9,53,2,2690,0)=" .S DIR(""??"")=""^D LISTA^IBTRE20"""
^XMB(3.9,53,2,2691,0)="""RTN"",""IBTRE2"",27,0)"
^XMB(3.9,53,2,2692,0)=" .S DIR(0)=""DO^::AEXTP"",DIR(""A"")=""Admission Date"""
^XMB(3.9,53,2,2693,0)="""RTN"",""IBTRE2"",28,0)"
^XMB(3.9,53,2,2694,0)=" .D ^DIR K DIR S (IBTDT,VAINDT)=+Y I $P(VAINDT,""."",2)="""" S VAINDT=VAINDT+.24"
^XMB(3.9,53,2,2695,0)="""RTN"",""IBTRE2"",29,0)"
^XMB(3.9,53,2,2696,0)=" .I $D(DIRUT)!($P(IBTDT,""."")'?7N) S IBQUIT=1 Q"
^XMB(3.9,53,2,2697,0)="""RTN"",""IBTRE2"",30,0)"
^XMB(3.9,53,2,2698,0)=" .; -- check for valid admission"
^XMB(3.9,53,2,2699,0)="""RTN"",""IBTRE2"",31,0)"
^XMB(3.9,53,2,2700,0)=" .S VA200="""" D INP^VADPT I VAIN(1)="""" D  ;look for one day admission"
^XMB(3.9,53,2,2701,0)="""RTN"",""IBTRE2"",32,0)"
^XMB(3.9,53,2,2702,0)=" ..S IBX=+$O(^(+$O(^DGPM(""ATID1"",DFN,9999999-IBTDT)),0)),IBX=+$G(^DGPM(IBX,0))"
^XMB(3.9,53,2,2703,0)="""RTN"",""IBTRE2"",33,0)"
^XMB(3.9,53,2,2704,0)=" ..I $E(IBX,1,7)=IBTDT S VAINDT=IBX D INP^VADPT ;9999999.9999999"
^XMB(3.9,53,2,2705,0)="""RTN"",""IBTRE2"",34,0)"
^XMB(3.9,53,2,2706,0)=" ..I VAIN(1) W !!,""WARNING: This appears to be a one day stay."""
^XMB(3.9,53,2,2707,0)="""RTN"",""IBTRE2"",35,0)"
^XMB(3.9,53,2,2708,0)=" .I VAIN(1)="""" D"
^XMB(3.9,53,2,2709,0)="""RTN"",""IBTRE2"",36,0)"
^XMB(3.9,53,2,2710,0)=" ..W !!,*7,""WARNING: Patient does not appear to be an inpatient on this date!"",!"
^XMB(3.9,53,2,2711,0)="""RTN"",""IBTRE2"",37,0)"
^XMB(3.9,53,2,2712,0)=" ..I VAIN(7)="""" S VAIN(7)=IBTDT,Y=IBTDT D D^DIQ S $P(VAIN(7),""^"",2)=Y"
^XMB(3.9,53,2,2713,0)="""RTN"",""IBTRE2"",38,0)"
^XMB(3.9,53,2,2714,0)=" .;"
^XMB(3.9,53,2,2715,0)="""RTN"",""IBTRE2"",39,0)"
^XMB(3.9,53,2,2716,0)=" .S DIR(""?"")=""No admission was found for this date, enter 'Yes' if you want to add this anyway, or 'No' if you do not wish to track this date."""
^XMB(3.9,53,2,2717,0)="""RTN"",""IBTRE2"",40,0)"
^XMB(3.9,53,2,2718,0)=" .S DIR(0)=""Y"",DIR(""A"")=""Okay to Add Claims Tracking entry for Admission Date ""_$P(VAIN(7),""^"",2),DIR(""B"")=""NO"""
^XMB(3.9,53,2,2719,0)="""RTN"",""IBTRE2"",41,0)"
^XMB(3.9,53,2,2720,0)=" .D ^DIR K DIR I $D(DIRUT)!('Y) S IBQUIT=1 Q"
^XMB(3.9,53,2,2721,0)="""RTN"",""IBTRE2"",42,0)"
^XMB(3.9,53,2,2722,0)=" .I VAIN(1) D ADM^IBTUTL(VAIN(1))"
^XMB(3.9,53,2,2723,0)="""RTN"",""IBTRE2"",43,0)"
^XMB(3.9,53,2,2724,0)=" .I 'VAIN(1) D OTH^IBTUTL(DFN,IBETYP,IBTDT)"
^XMB(3.9,53,2,2725,0)="""RTN"",""IBTRE2"",44,0)"
^XMB(3.9,53,2,2726,0)=" .Q"
^XMB(3.9,53,2,2727,0)="""RTN"",""IBTRE2"",45,0)"
^XMB(3.9,53,2,2728,0)=" ;"
^XMB(3.9,53,2,2729,0)="""RTN"",""IBTRE2"",46,0)"
^XMB(3.9,53,2,2730,0)="OPT I IBETYP=$O(^IBE(356.6,""AC"",2,0)) D  I IBQUIT G ATQ"
^XMB(3.9,53,2,2731,0)="""RTN"",""IBTRE2"",47,0)"
^XMB(3.9,53,2,2732,0)=" .;"
^XMB(3.9,53,2,2733,0)="""RTN"",""IBTRE2"",48,0)"
^XMB(3.9,53,2,2734,0)=" .N DIR,IBSD,IBARRAY"
^XMB(3.9,53,2,2735,0)="""RTN"",""IBTRE2"",49,0)"
^XMB(3.9,53,2,2736,0)=" .;get all possible scheduling data for patient"
^XMB(3.9,53,2,2737,0)="""RTN"",""IBTRE2"",50,0)"
^XMB(3.9,53,2,2738,0)=" .K ^TMP($J,""SDAMA301"")"
^XMB(3.9,53,2,2739,0)="""RTN"",""IBTRE2"",51,0)"
^XMB(3.9,53,2,2740,0)=" .S IBARRAY(4)=DFN,IBARRAY(""SORT"")=""P"",IBARRAY(""FLDS"")=""1;2;3;10;12"",IBSD=$$SDAPI^SDAMA301(.IBARRAY)"
^XMB(3.9,53,2,2741,0)="""RTN"",""IBTRE2"",52,0)"
^XMB(3.9,53,2,2742,0)=" .;"
^XMB(3.9,53,2,2743,0)="""RTN"",""IBTRE2"",53,0)"
^XMB(3.9,53,2,2744,0)=" .S DIR(""?"")=""Time is Required."""
^XMB(3.9,53,2,2745,0)="""RTN"",""IBTRE2"",54,0)"
^XMB(3.9,53,2,2746,0)=" .S DIR(""?"",1)=""    Enter the Outpatient Visit Date."""
^XMB(3.9,53,2,2747,0)="""RTN"",""IBTRE2"",55,0)"
^XMB(3.9,53,2,2748,0)=" .S DIR(""?"",2)=""    If no scheduled visit is found you will be given a warning.  Enter"""
^XMB(3.9,53,2,2749,0)="""RTN"",""IBTRE2"",56,0)"
^XMB(3.9,53,2,2750,0)=" .S DIR(""?"",3)=""    '??' to get a list of scheduled visits between ""_$$DAT1^IBOUTL(IBTBDT)_"" and ""_$$DAT1^IBOUTL(IBTEDT)_""."""
^XMB(3.9,53,2,2751,0)="""RTN"",""IBTRE2"",57,0)"
^XMB(3.9,53,2,2752,0)=" .I '$D(IBTASS) S DIR(""?"",4)=""    Use the change date range action to change listing of scheduled Visits."""
^XMB(3.9,53,2,2753,0)="""RTN"",""IBTRE2"",58,0)"
^XMB(3.9,53,2,2754,0)=" .S DIR(""??"")=""^D LISTO^IBTRE20"""
^XMB(3.9,53,2,2755,0)="""RTN"",""IBTRE2"",59,0)"
^XMB(3.9,53,2,2756,0)=" .S DIR(0)=""DO^::AEXTP"",DIR(""A"")=""Outpatient Visit Date"""
^XMB(3.9,53,2,2757,0)="""RTN"",""IBTRE2"",60,0)"
^XMB(3.9,53,2,2758,0)=" .D ^DIR K DIR S IBTDT=Y"
^XMB(3.9,53,2,2759,0)="""RTN"",""IBTRE2"",61,0)"
^XMB(3.9,53,2,2760,0)=" .I $D(DIRUT)!($P(IBTDT,""."")'?7N) S IBQUIT=1 Q"
^XMB(3.9,53,2,2761,0)="""RTN"",""IBTRE2"",62,0)"
^XMB(3.9,53,2,2762,0)=" .;"
^XMB(3.9,53,2,2763,0)="""RTN"",""IBTRE2"",63,0)"
^XMB(3.9,53,2,2764,0)=" .; check scheduling and encounters file for entries"
^XMB(3.9,53,2,2765,0)="""RTN"",""IBTRE2"",64,0)"
^XMB(3.9,53,2,2766,0)=" .S X=$D(^TMP($J,""SDAMA301"",DFN,IBTDT))"
^XMB(3.9,53,2,2767,0)="""RTN"",""IBTRE2"",65,0)"
^XMB(3.9,53,2,2768,0)=" .;"
^XMB(3.9,53,2,2769,0)="""RTN"",""IBTRE2"",66,0)"
^XMB(3.9,53,2,2770,0)=" .I 'X,IBSD<0 W !!,*7,""WARNING: Unable to look up Visit information for this Patient"" X ""N IBX S IBX=0 F  S IBX=$O(^TMP($J,""""SDAMA301"""",IBX)) W !?5,IBX,?10,$G(^(IBX))"""
^XMB(3.9,53,2,2771,0)="""RTN"",""IBTRE2"",67,0)"
^XMB(3.9,53,2,2772,0)=" .;"
^XMB(3.9,53,2,2773,0)="""RTN"",""IBTRE2"",68,0)"
^XMB(3.9,53,2,2774,0)=" .I 'X,IBSD S Y=$O(^TMP($J,""SDAMA301"",DFN,$P(IBTDT,"".""))) I $P(IBTDT,""."")=$P(Y,""."") S IBTDT=Y,X=1"
^XMB(3.9,53,2,2775,0)="""RTN"",""IBTRE2"",69,0)"
^XMB(3.9,53,2,2776,0)=" .;"
^XMB(3.9,53,2,2777,0)="""RTN"",""IBTRE2"",70,0)"
^XMB(3.9,53,2,2778,0)=" .; if non say so"
^XMB(3.9,53,2,2779,0)="""RTN"",""IBTRE2"",71,0)"
^XMB(3.9,53,2,2780,0)=" .I 'X,IBSD'=-1 W !!,*7,""WARNING: No Visit information for this Patient for this date."",!"
^XMB(3.9,53,2,2781,0)="""RTN"",""IBTRE2"",72,0)"
^XMB(3.9,53,2,2782,0)=" .;"
^XMB(3.9,53,2,2783,0)="""RTN"",""IBTRE2"",73,0)"
^XMB(3.9,53,2,2784,0)=" .; ask if okay to add entry."
^XMB(3.9,53,2,2785,0)="""RTN"",""IBTRE2"",74,0)"
^XMB(3.9,53,2,2786,0)=" .S Y=IBTDT D D^DIQ S IBTDTE=Y"
^XMB(3.9,53,2,2787,0)="""RTN"",""IBTRE2"",75,0)"
^XMB(3.9,53,2,2788,0)=" .S DIR(0)=""Y"",DIR(""A"")=""Okay to Add Claims Tracking entry for Visit Date ""_IBTDTE,DIR(""B"")=""NO"""
^XMB(3.9,53,2,2789,0)="""RTN"",""IBTRE2"",76,0)"
^XMB(3.9,53,2,2790,0)=" .D ^DIR K DIR I $D(DIRUT)!('Y) S IBQUIT=1 Q"
^XMB(3.9,53,2,2791,0)="""RTN"",""IBTRE2"",77,0)"
^XMB(3.9,53,2,2792,0)=" .D OPT^IBTUTL1(DFN,IBETYP,IBTDT,$P($G(^TMP($J,""SDAMA301"",DFN,IBTDT)),""^"",12))"
^XMB(3.9,53,2,2793,0)="""RTN"",""IBTRE2"",78,0)"
^XMB(3.9,53,2,2794,0)=" .K ^TMP($J,""SDAMA301"")"
^XMB(3.9,53,2,2795,0)="""RTN"",""IBTRE2"",79,0)"
^XMB(3.9,53,2,2796,0)=" .Q"
^XMB(3.9,53,2,2797,0)="""RTN"",""IBTRE2"",80,0)"
^XMB(3.9,53,2,2798,0)=" ;"
^XMB(3.9,53,2,2799,0)="""RTN"",""IBTRE2"",81,0)"
^XMB(3.9,53,2,2800,0)="SCH I IBETYP=$O(^IBE(356.6,""AC"",5,0)) D  I IBQUIT G ATQ"
^XMB(3.9,53,2,2801,0)="""RTN"",""IBTRE2"",82,0)"
^XMB(3.9,53,2,2802,0)=" .N DIR"
^XMB(3.9,53,2,2803,0)="""RTN"",""IBTRE2"",83,0)"
^XMB(3.9,53,2,2804,0)=" .S DIR(""?"")=""   """
^XMB(3.9,53,2,2805,0)="""RTN"",""IBTRE2"",84,0)"
^XMB(3.9,53,2,2806,0)=" .S DIR(""?"",1)=""    Enter date of the scheduled admission."""
^XMB(3.9,53,2,2807,0)="""RTN"",""IBTRE2"",85,0)"
^XMB(3.9,53,2,2808,0)=" .S DIR(""?"",2)=""    If you use the scheduled admission package to schedule admissions"""
^XMB(3.9,53,2,2809,0)="""RTN"",""IBTRE2"",86,0)"
^XMB(3.9,53,2,2810,0)=" .S DIR(""?"",3)=""    you may enter '??' to get a list of scheduled admissions between"""
^XMB(3.9,53,2,2811,0)="""RTN"",""IBTRE2"",87,0)"
^XMB(3.9,53,2,2812,0)=" .S DIR(""?"",4)=""    ""_$$DAT1^IBOUTL(IBTBDT)_"" and ""_$$DAT1^IBOUTL(IBTEDT)_"".  Use the change date range action"""
^XMB(3.9,53,2,2813,0)="""RTN"",""IBTRE2"",88,0)"
^XMB(3.9,53,2,2814,0)=" .S DIR(""?"",5)=""    to change listing of scheduled admissions."""
^XMB(3.9,53,2,2815,0)="""RTN"",""IBTRE2"",89,0)"
^XMB(3.9,53,2,2816,0)=" .S DIR(""?"",5)=""    This should be a future scheduled admission."""
^XMB(3.9,53,2,2817,0)="""RTN"",""IBTRE2"",90,0)"
^XMB(3.9,53,2,2818,0)=" .S DIR(0)=""DO^::AEXT"",DIR(""A"")=""Scheduled Admission Date"""
^XMB(3.9,53,2,2819,0)="""RTN"",""IBTRE2"",91,0)"
^XMB(3.9,53,2,2820,0)=" .S DIR(""??"")=""^D LISTS^IBTRE20"""
^XMB(3.9,53,2,2821,0)="""RTN"",""IBTRE2"",92,0)"
^XMB(3.9,53,2,2822,0)=" .D ^DIR K DIR S IBTDT=+Y"
^XMB(3.9,53,2,2823,0)="""RTN"",""IBTRE2"",93,0)"
^XMB(3.9,53,2,2824,0)=" .I $D(DIRUT)!($P(IBTDT,""."")'?7N) S IBQUIT=1 Q"
^XMB(3.9,53,2,2825,0)="""RTN"",""IBTRE2"",94,0)"
^XMB(3.9,53,2,2826,0)=" .; ask if okay to add entry."
^XMB(3.9,53,2,2827,0)="""RTN"",""IBTRE2"",95,0)"
^XMB(3.9,53,2,2828,0)=" .D FINDS^IBTRE20"
^XMB(3.9,53,2,2829,0)="""RTN"",""IBTRE2"",96,0)"
^XMB(3.9,53,2,2830,0)=" .S Y=IBTDT D D^DIQ S IBTDTE=Y"
^XMB(3.9,53,2,2831,0)="""RTN"",""IBTRE2"",97,0)"
^XMB(3.9,53,2,2832,0)=" .S DIR(0)=""Y"",DIR(""A"")=""Okay to Add Claims Tracking entry for Scheduled Adm. Date ""_IBTDTE,DIR(""B"")=""NO"""
^XMB(3.9,53,2,2833,0)="""RTN"",""IBTRE2"",98,0)"
^XMB(3.9,53,2,2834,0)=" .D ^DIR K DIR I $D(DIRUT)!('Y) S IBQUIT=1 Q"
^XMB(3.9,53,2,2835,0)="""RTN"",""IBTRE2"",99,0)"
^XMB(3.9,53,2,2836,0)=" .I IBTDT\1'>DT S VAINDT=IBTDT\1+.24 D INP^VADPT I $G(VAIN(1)) D  Q"
^XMB(3.9,53,2,2837,0)="""RTN"",""IBTRE2"",100,0)"
^XMB(3.9,53,2,2838,0)=" ..W !!,""Patient an inpatient on this date, using inpatient admission."""
^XMB(3.9,53,2,2839,0)="""RTN"",""IBTRE2"",101,0)"
^XMB(3.9,53,2,2840,0)=" ..D ADM^IBTUTL(VAIN(1))"
^XMB(3.9,53,2,2841,0)="""RTN"",""IBTRE2"",102,0)"
^XMB(3.9,53,2,2842,0)=" .D SCH^IBTUTL2(DFN,IBTDT)"
^XMB(3.9,53,2,2843,0)="""RTN"",""IBTRE2"",103,0)"
^XMB(3.9,53,2,2844,0)=" .Q"
^XMB(3.9,53,2,2845,0)="""RTN"",""IBTRE2"",104,0)"
^XMB(3.9,53,2,2846,0)=" I $G(IBQUIT) G ATQ"
^XMB(3.9,53,2,2847,0)="""RTN"",""IBTRE2"",105,0)"
^XMB(3.9,53,2,2848,0)=" I $D(IBTASS) Q  ; leave prematurely if from assign reason"
^XMB(3.9,53,2,2849,0)="""RTN"",""IBTRE2"",106,0)"
^XMB(3.9,53,2,2850,0)=" ;"
^XMB(3.9,53,2,2851,0)="""RTN"",""IBTRE2"",107,0)"
^XMB(3.9,53,2,2852,0)=" I $G(IBTRN) N IBTATRK S IBTATRK=1 D QE1^IBTRE1"
^XMB(3.9,53,2,2853,0)="""RTN"",""IBTRE2"",108,0)"
^XMB(3.9,53,2,2854,0)=" ;"
^XMB(3.9,53,2,2855,0)="""RTN"",""IBTRE2"",109,0)"
^XMB(3.9,53,2,2856,0)=" D BLD^IBTRE"
^XMB(3.9,53,2,2857,0)="""RTN"",""IBTRE2"",110,0)"
^XMB(3.9,53,2,2858,0)="ATQ Q:$D(IBTASS)"
^XMB(3.9,53,2,2859,0)="""RTN"",""IBTRE2"",111,0)"
^XMB(3.9,53,2,2860,0)=" I $G(IBQUIT) W !,""Nothing Added"",! D PAUSE^VALM1"
^XMB(3.9,53,2,2861,0)="""RTN"",""IBTRE2"",112,0)"
^XMB(3.9,53,2,2862,0)=" S VALMBCK=""R"""
^XMB(3.9,53,2,2863,0)="""RTN"",""IBTRE2"",113,0)"
^XMB(3.9,53,2,2864,0)=" Q"
^XMB(3.9,53,2,2865,0)="""RTN"",""IBTRKR2"")"
^XMB(3.9,53,2,2866,0)="0^5^B5693369^B4858987"
^XMB(3.9,53,2,2867,0)="""RTN"",""IBTRKR2"",1,0)"
^XMB(3.9,53,2,2868,0)="IBTRKR2 ;ALB/AAS - ADD/TRACK SCHEDULED ADMISSION ;9-AUG-93"
^XMB(3.9,53,2,2869,0)="""RTN"",""IBTRKR2"",2,0)"
^XMB(3.9,53,2,2870,0)=" ;;2.0;INTEGRATED BILLING;**43,62,214,312**;21-MAR-94"
^XMB(3.9,53,2,2871,0)="""RTN"",""IBTRKR2"",3,0)"
^XMB(3.9,53,2,2872,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,53,2,2873,0)="""RTN"",""IBTRKR2"",4,0)"
^XMB(3.9,53,2,2874,0)=" ;"
^XMB(3.9,53,2,2875,0)="""RTN"",""IBTRKR2"",5,0)"
^XMB(3.9,53,2,2876,0)="% ;"
^XMB(3.9,53,2,2877,0)="""RTN"",""IBTRKR2"",6,0)"
^XMB(3.9,53,2,2878,0)="EN ; -- add scheduled admissions to claims tracking file"
^XMB(3.9,53,2,2879,0)="""RTN"",""IBTRKR2"",7,0)"
^XMB(3.9,53,2,2880,0)=" N I,J,X,Y,IBTRKR,IBI,IBJ,DFN,IBDATA"
^XMB(3.9,53,2,2881,0)="""RTN"",""IBTRKR2"",8,0)"
^XMB(3.9,53,2,2882,0)=" N IBSWINFO S IBSWINFO=$$SWSTAT^IBBAPI()                   ;IB*2.0*312"
^XMB(3.9,53,2,2883,0)="""RTN"",""IBTRKR2"",9,0)"
^XMB(3.9,53,2,2884,0)=" S IBTRKR=$G(^IBE(350.9,1,6))"
^XMB(3.9,53,2,2885,0)="""RTN"",""IBTRKR2"",10,0)"
^XMB(3.9,53,2,2886,0)=" G:'$P(IBTRKR,""^"",2) ENQ ; inpatient tracking off"
^XMB(3.9,53,2,2887,0)="""RTN"",""IBTRKR2"",11,0)"
^XMB(3.9,53,2,2888,0)=" S:'$G(IBTSBDT) IBTSBDT=$$FMADD^XLFDT(DT,-3)-.1"
^XMB(3.9,53,2,2889,0)="""RTN"",""IBTRKR2"",12,0)"
^XMB(3.9,53,2,2890,0)=" S:'$G(IBTSEDT) IBTSEDT=$$FMADD^XLFDT(DT,7)+.9"
^XMB(3.9,53,2,2891,0)="""RTN"",""IBTRKR2"",13,0)"
^XMB(3.9,53,2,2892,0)=" I IBTSBDT<+IBTRKR S IBTSBDT=+IBTRKR-.1 ; start date can't be before ct start date"
^XMB(3.9,53,2,2893,0)="""RTN"",""IBTRKR2"",14,0)"
^XMB(3.9,53,2,2894,0)=" S IBI=IBTSBDT-.0001"
^XMB(3.9,53,2,2895,0)="""RTN"",""IBTRKR2"",15,0)"
^XMB(3.9,53,2,2896,0)=" F  S IBI=$O(^DGS(41.1,""C"",IBI)) Q:'IBI!(IBI>IBTSEDT)  S IBJ="""" F  S IBJ=$O(^DGS(41.1,""C"",IBI,IBJ)) Q:'IBJ  D"
^XMB(3.9,53,2,2897,0)="""RTN"",""IBTRKR2"",16,0)"
^XMB(3.9,53,2,2898,0)=" .;"
^XMB(3.9,53,2,2899,0)="""RTN"",""IBTRKR2"",17,0)"
^XMB(3.9,53,2,2900,0)=" .;Do NOT PROCESS on VistA if IBI/Sched DT>=Switch Eff Dt  ;CCR-930"
^XMB(3.9,53,2,2901,0)="""RTN"",""IBTRKR2"",18,0)"
^XMB(3.9,53,2,2902,0)=" .I +IBSWINFO,(IBI+1)>$P(IBSWINFO,""^"",2) Q                 ;IB*2.0*312"
^XMB(3.9,53,2,2903,0)="""RTN"",""IBTRKR2"",19,0)"
^XMB(3.9,53,2,2904,0)=" .;"
^XMB(3.9,53,2,2905,0)="""RTN"",""IBTRKR2"",20,0)"
^XMB(3.9,53,2,2906,0)=" .S IBDATA=$G(^DGS(41.1,IBJ,0))"
^XMB(3.9,53,2,2907,0)="""RTN"",""IBTRKR2"",21,0)"
^XMB(3.9,53,2,2908,0)=" .S DFN=+IBDATA"
^XMB(3.9,53,2,2909,0)="""RTN"",""IBTRKR2"",22,0)"
^XMB(3.9,53,2,2910,0)=" .Q:'DFN  ;  no patient"
^XMB(3.9,53,2,2911,0)="""RTN"",""IBTRKR2"",23,0)"
^XMB(3.9,53,2,2912,0)=" .Q:$P(IBDATA,""^"",17)  ; already admitted"
^XMB(3.9,53,2,2913,0)="""RTN"",""IBTRKR2"",24,0)"
^XMB(3.9,53,2,2914,0)=" .;"
^XMB(3.9,53,2,2915,0)="""RTN"",""IBTRKR2"",25,0)"
^XMB(3.9,53,2,2916,0)=" .S IBTRN=$O(^IBT(356,""ASCH"",IBJ,0))"
^XMB(3.9,53,2,2917,0)="""RTN"",""IBTRKR2"",26,0)"
^XMB(3.9,53,2,2918,0)=" .I $P(IBDATA,""^"",13) D:IBTRN INACTIVE^IBTRKRU(IBTRN) Q  ; canceled"
^XMB(3.9,53,2,2919,0)="""RTN"",""IBTRKR2"",27,0)"
^XMB(3.9,53,2,2920,0)=" .;"
^XMB(3.9,53,2,2921,0)="""RTN"",""IBTRKR2"",28,0)"
^XMB(3.9,53,2,2922,0)=" .; - if not in ct add"
^XMB(3.9,53,2,2923,0)="""RTN"",""IBTRKR2"",29,0)"
^XMB(3.9,53,2,2924,0)=" .I 'IBTRN D  Q"
^XMB(3.9,53,2,2925,0)="""RTN"",""IBTRKR2"",30,0)"
^XMB(3.9,53,2,2926,0)=" ..I $P(IBTRKR,""^"",2)=2 D SCH^IBTUTL2(DFN,IBI,IBJ) Q"
^XMB(3.9,53,2,2927,0)="""RTN"",""IBTRKR2"",31,0)"
^XMB(3.9,53,2,2928,0)=" ..I $P(IBTRKR,""^"",2)=1,$S('$$INSURED^IBCNS1(DFN,+IBI):0,1:$$PTCOV^IBCNSU3(DFN,+IBI,""INPATIENT"")) D SCH^IBTUTL2(DFN,IBI,IBJ) Q"
^XMB(3.9,53,2,2929,0)="""RTN"",""IBTRKR2"",32,0)"
^XMB(3.9,53,2,2930,0)=" ..D TRKR^IBCNRDV(DFN,IBI,IBJ,$P(IBDATA,""^"",11))"
^XMB(3.9,53,2,2931,0)="""RTN"",""IBTRKR2"",33,0)"
^XMB(3.9,53,2,2932,0)=" ..Q"
^XMB(3.9,53,2,2933,0)="""RTN"",""IBTRKR2"",34,0)"
^XMB(3.9,53,2,2934,0)=" .;"
^XMB(3.9,53,2,2935,0)="""RTN"",""IBTRKR2"",35,0)"
^XMB(3.9,53,2,2936,0)=" .; - if inactive re-activate"
^XMB(3.9,53,2,2937,0)="""RTN"",""IBTRKR2"",36,0)"
^XMB(3.9,53,2,2938,0)=" .I '$P(^IBT(356,+IBTRN,0),""^"",20) D"
^XMB(3.9,53,2,2939,0)="""RTN"",""IBTRKR2"",37,0)"
^XMB(3.9,53,2,2940,0)=" ..N X,Y,I,J,DA,DR,DIE,DIC"
^XMB(3.9,53,2,2941,0)="""RTN"",""IBTRKR2"",38,0)"
^XMB(3.9,53,2,2942,0)=" ..S DA=IBTRN,DR="".2////1"",DIE=""^IBT(356,"" D ^DIE"
^XMB(3.9,53,2,2943,0)="""RTN"",""IBTRKR2"",39,0)"
^XMB(3.9,53,2,2944,0)=" .Q"
^XMB(3.9,53,2,2945,0)="""RTN"",""IBTRKR2"",40,0)"
^XMB(3.9,53,2,2946,0)=" ;"
^XMB(3.9,53,2,2947,0)="""RTN"",""IBTRKR2"",41,0)"
^XMB(3.9,53,2,2948,0)="ENQ K IBTSEDT,IBTSBDT"
^XMB(3.9,53,2,2949,0)="""RTN"",""IBTRKR2"",42,0)"
^XMB(3.9,53,2,2950,0)=" ; add cleanup of ARDV"
^XMB(3.9,53,2,2951,0)="""RTN"",""IBTRKR2"",43,0)"
^XMB(3.9,53,2,2952,0)=" S X=0 F  S X=$O(^IBT(356,""ARDV"",X)) Q:X<1  S Y=0 F  S Y=$O(^IBT(356,""ARDV"",X,Y)) Q:Y<1  I Y<DT K ^IBT(356,""ARDV"",X,Y)"
^XMB(3.9,53,2,2953,0)="""RTN"",""IBTRKR2"",44,0)"
^XMB(3.9,53,2,2954,0)=" Q"
^XMB(3.9,53,2,2955,0)="""RTN"",""IBTRKR2"",45,0)"
^XMB(3.9,53,2,2956,0)=" ;"
^XMB(3.9,53,2,2957,0)="""RTN"",""IBTRKR2"",46,0)"
^XMB(3.9,53,2,2958,0)="SCH(DGPMCA) ; -- is this admission movement a scheduled admission"
^XMB(3.9,53,2,2959,0)="""RTN"",""IBTRKR2"",47,0)"
^XMB(3.9,53,2,2960,0)=" ; -- output scheduled admission pointer"
^XMB(3.9,53,2,2961,0)="""RTN"",""IBTRKR2"",48,0)"
^XMB(3.9,53,2,2962,0)=" ;"
^XMB(3.9,53,2,2963,0)="""RTN"",""IBTRKR2"",49,0)"
^XMB(3.9,53,2,2964,0)=" N IBTSA S IBTSA=0"
^XMB(3.9,53,2,2965,0)="""RTN"",""IBTRKR2"",50,0)"
^XMB(3.9,53,2,2966,0)=" I '$G(DGPMCA) G SCHQ"
^XMB(3.9,53,2,2967,0)="""RTN"",""IBTRKR2"",51,0)"
^XMB(3.9,53,2,2968,0)=" S IBTSA=+$O(^DGS(41.1,""AMVT"",DGPMCA,0))"
^XMB(3.9,53,2,2969,0)="""RTN"",""IBTRKR2"",52,0)"
^XMB(3.9,53,2,2970,0)="SCHQ Q IBTSA"
^XMB(3.9,53,2,2971,0)="""RTN"",""IBTRKR3"")"
^XMB(3.9,53,2,2972,0)="0^6^B44426999^B39212949"
^XMB(3.9,53,2,2973,0)="""RTN"",""IBTRKR3"",1,0)"
^XMB(3.9,53,2,2974,0)="IBTRKR3 ;ALB/AAS - CLAIMS TRACKING - ADD/TRACK RX FILLS ;13-AUG-93"
^XMB(3.9,53,2,2975,0)="""RTN"",""IBTRKR3"",2,0)"
^XMB(3.9,53,2,2976,0)=" ;;2.0;INTEGRATED BILLING;**13,43,121,160,247,275,260,309,336,312**;21-MAR-94"
^XMB(3.9,53,2,2977,0)="""RTN"",""IBTRKR3"",3,0)"
^XMB(3.9,53,2,2978,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,53,2,2979,0)="""RTN"",""IBTRKR3"",4,0)"
^XMB(3.9,53,2,2980,0)=" ;"
^XMB(3.9,53,2,2981,0)="""RTN"",""IBTRKR3"",5,0)"
^XMB(3.9,53,2,2982,0)="% ; -- entry point for nightly background job"
^XMB(3.9,53,2,2983,0)="""RTN"",""IBTRKR3"",6,0)"
^XMB(3.9,53,2,2984,0)=" N IBTSBDT,IBTSEDT"
^XMB(3.9,53,2,2985,0)="""RTN"",""IBTRKR3"",7,0)"
^XMB(3.9,53,2,2986,0)=" S IBTSBDT=$$FMADD^XLFDT(DT,-14)-.1"
^XMB(3.9,53,2,2987,0)="""RTN"",""IBTRKR3"",8,0)"
^XMB(3.9,53,2,2988,0)=" S IBTSEDT=$$FMADD^XLFDT(DT,-7)+.9"
^XMB(3.9,53,2,2989,0)="""RTN"",""IBTRKR3"",9,0)"
^XMB(3.9,53,2,2990,0)=" D EN1"
^XMB(3.9,53,2,2991,0)="""RTN"",""IBTRKR3"",10,0)"
^XMB(3.9,53,2,2992,0)=" Q"
^XMB(3.9,53,2,2993,0)="""RTN"",""IBTRKR3"",11,0)"
^XMB(3.9,53,2,2994,0)=" ;"
^XMB(3.9,53,2,2995,0)="""RTN"",""IBTRKR3"",12,0)"
^XMB(3.9,53,2,2996,0)="EN ; -- entry point to ask date range"
^XMB(3.9,53,2,2997,0)="""RTN"",""IBTRKR3"",13,0)"
^XMB(3.9,53,2,2998,0)=" N IBSWINFO S IBSWINFO=$$SWSTAT^IBBAPI()                     ;IB*2.0*312"
^XMB(3.9,53,2,2999,0)="""RTN"",""IBTRKR3"",14,0)"
^XMB(3.9,53,2,3000,0)=" N IBBDT,IBEDT,IBTSBDT,IBTSEDT,IBTALK,IBMESS"
^XMB(3.9,53,2,3001,0)="""RTN"",""IBTRKR3"",15,0)"
^XMB(3.9,53,2,3002,0)=" S IBTALK=1"
^XMB(3.9,53,2,3003,0)="""RTN"",""IBTRKR3"",16,0)"
^XMB(3.9,53,2,3004,0)=" I '$P($G(^IBE(350.9,1,6)),""^"",4) W !!,""I'm sorry, Tracking of Prescription Refills is currently turned off."" G ENQ"
^XMB(3.9,53,2,3005,0)="""RTN"",""IBTRKR3"",17,0)"
^XMB(3.9,53,2,3006,0)=" W !!!,""Select the Date Range of Rx Refills to Add to Claims Tracking."",!"
^XMB(3.9,53,2,3007,0)="""RTN"",""IBTRKR3"",18,0)"
^XMB(3.9,53,2,3008,0)=" D DATE^IBOUTL"
^XMB(3.9,53,2,3009,0)="""RTN"",""IBTRKR3"",19,0)"
^XMB(3.9,53,2,3010,0)=" I IBBDT<1!(IBEDT<1) G ENQ"
^XMB(3.9,53,2,3011,0)="""RTN"",""IBTRKR3"",20,0)"
^XMB(3.9,53,2,3012,0)=" S IBTSBDT=IBBDT,IBTSEDT=IBEDT"
^XMB(3.9,53,2,3013,0)="""RTN"",""IBTRKR3"",21,0)"
^XMB(3.9,53,2,3014,0)=" ;"
^XMB(3.9,53,2,3015,0)="""RTN"",""IBTRKR3"",22,0)"
^XMB(3.9,53,2,3016,0)=" ; Do NOT PROCESS on VistA if Start or End>=Switch Eff Date  ;IB*2.0*312"
^XMB(3.9,53,2,3017,0)="""RTN"",""IBTRKR3"",23,0)"
^XMB(3.9,53,2,3018,0)=" I +IBSWINFO,((IBTSBDT+1)>$P(IBSWINFO,""^"",2))!((IBTSEDT+1)>$P(IBSWINFO,""^"",2)) D  G EN"
^XMB(3.9,53,2,3019,0)="""RTN"",""IBTRKR3"",24,0)"
^XMB(3.9,53,2,3020,0)="   .W !!,""The Begin OR End Date CANNOT be on or after"""
^XMB(3.9,53,2,3021,0)="""RTN"",""IBTRKR3"",25,0)"
^XMB(3.9,53,2,3022,0)="   .W !,""the PFSS Effective Date: "",$$FMTE^XLFDT($P(IBSWINFO,""^"",2))"
^XMB(3.9,53,2,3023,0)="""RTN"",""IBTRKR3"",26,0)"
^XMB(3.9,53,2,3024,0)=" ;"
^XMB(3.9,53,2,3025,0)="""RTN"",""IBTRKR3"",27,0)"
^XMB(3.9,53,2,3026,0)=" ; -- check selected dates"
^XMB(3.9,53,2,3027,0)="""RTN"",""IBTRKR3"",28,0)"
^XMB(3.9,53,2,3028,0)=" S IBTRKR=$G(^IBE(350.9,1,6))"
^XMB(3.9,53,2,3029,0)="""RTN"",""IBTRKR3"",29,0)"
^XMB(3.9,53,2,3030,0)=" ; start date can't be before parameters"
^XMB(3.9,53,2,3031,0)="""RTN"",""IBTRKR3"",30,0)"
^XMB(3.9,53,2,3032,0)=" I +IBTRKR,IBTSBDT<+IBTRKR S IBTSBDT=IBTRKR W !!,""Begin date is before Claims Tracking Start Date, changed to "",$$DAT1^IBOUTL(IBTSBDT)"
^XMB(3.9,53,2,3033,0)="""RTN"",""IBTRKR3"",31,0)"
^XMB(3.9,53,2,3034,0)=" ; -- end date into future"
^XMB(3.9,53,2,3035,0)="""RTN"",""IBTRKR3"",32,0)"
^XMB(3.9,53,2,3036,0)=" I IBTSEDT>$$FMADD^XLFDT(DT,-3) W !!,""I'll automatically change the end date to 3 days prior to the date queued to run."""
^XMB(3.9,53,2,3037,0)="""RTN"",""IBTRKR3"",33,0)"
^XMB(3.9,53,2,3038,0)=" ;"
^XMB(3.9,53,2,3039,0)="""RTN"",""IBTRKR3"",34,0)"
^XMB(3.9,53,2,3040,0)=" W !!!,""I'm going to automatically queue this off and send you a"""
^XMB(3.9,53,2,3041,0)="""RTN"",""IBTRKR3"",35,0)"
^XMB(3.9,53,2,3042,0)=" W !,""mail message when complete."",!"
^XMB(3.9,53,2,3043,0)="""RTN"",""IBTRKR3"",36,0)"
^XMB(3.9,53,2,3044,0)=" S ZTIO="""",ZTRTN=""EN1^IBTRKR3"",ZTSAVE(""IB*"")="""",ZTDESC=""IB - Add Rx Refills to Claims Tracking"""
^XMB(3.9,53,2,3045,0)="""RTN"",""IBTRKR3"",37,0)"
^XMB(3.9,53,2,3046,0)=" D ^%ZTLOAD I $G(ZTSK) K ZTSK W !,""Request Queued"""
^XMB(3.9,53,2,3047,0)="""RTN"",""IBTRKR3"",38,0)"
^XMB(3.9,53,2,3048,0)="ENQ K ZTSK,ZTIO,ZTSAVE,ZTDESC,ZTRTN"
^XMB(3.9,53,2,3049,0)="""RTN"",""IBTRKR3"",39,0)"
^XMB(3.9,53,2,3050,0)=" D HOME^%ZIS"
^XMB(3.9,53,2,3051,0)="""RTN"",""IBTRKR3"",40,0)"
^XMB(3.9,53,2,3052,0)=" Q"
^XMB(3.9,53,2,3053,0)="""RTN"",""IBTRKR3"",41,0)"
^XMB(3.9,53,2,3054,0)=" ;"
^XMB(3.9,53,2,3055,0)="""RTN"",""IBTRKR3"",42,0)"
^XMB(3.9,53,2,3056,0)="EN1 ; -- add rx refills to claims tracking file"
^XMB(3.9,53,2,3057,0)="""RTN"",""IBTRKR3"",43,0)"
^XMB(3.9,53,2,3058,0)=" N I,J,X,Y,IBTRKR,IBDT,IBRXN,IBFILL,DFN,IBDATA,IBCNT,IBCNT1,IBCNT2"
^XMB(3.9,53,2,3059,0)="""RTN"",""IBTRKR3"",44,0)"
^XMB(3.9,53,2,3060,0)=" N IBSWINFO S IBSWINFO=$$SWSTAT^IBBAPI()                   ;IB*2.0*312"
^XMB(3.9,53,2,3061,0)="""RTN"",""IBTRKR3"",45,0)"
^XMB(3.9,53,2,3062,0)=" ;"
^XMB(3.9,53,2,3063,0)="""RTN"",""IBTRKR3"",46,0)"
^XMB(3.9,53,2,3064,0)=" ; -- check parameters"
^XMB(3.9,53,2,3065,0)="""RTN"",""IBTRKR3"",47,0)"
^XMB(3.9,53,2,3066,0)=" S IBTRKR=$G(^IBE(350.9,1,6))"
^XMB(3.9,53,2,3067,0)="""RTN"",""IBTRKR3"",48,0)"
^XMB(3.9,53,2,3068,0)=" G:'$P(IBTRKR,""^"",4) EN1Q ; quit if rx tracking off"
^XMB(3.9,53,2,3069,0)="""RTN"",""IBTRKR3"",49,0)"
^XMB(3.9,53,2,3070,0)=" I +IBTRKR,IBTSBDT<+IBTRKR S IBTSBDT=IBTRKR ; start date can't be before parameters"
^XMB(3.9,53,2,3071,0)="""RTN"",""IBTRKR3"",50,0)"
^XMB(3.9,53,2,3072,0)=" ;"
^XMB(3.9,53,2,3073,0)="""RTN"",""IBTRKR3"",51,0)"
^XMB(3.9,53,2,3074,0)=" ; -- users can queue into future, make sure dates not after date run"
^XMB(3.9,53,2,3075,0)="""RTN"",""IBTRKR3"",52,0)"
^XMB(3.9,53,2,3076,0)=" I IBTSEDT>$$FMADD^XLFDT(DT,-3) S IBMESS=""(Selected end date of ""_$$DAT1^IBOUTL(IBTSEDT)_"" automatically changed to ""_$$DAT1^IBOUTL($$FMADD^XLFDT(DT,-3))_"".)"",IBTSEDT=$$FMADD^XLFDT(DT,-3)"
^XMB(3.9,53,2,3077,0)="""RTN"",""IBTRKR3"",53,0)"
^XMB(3.9,53,2,3078,0)=" ;"
^XMB(3.9,53,2,3079,0)="""RTN"",""IBTRKR3"",54,0)"
^XMB(3.9,53,2,3080,0)=" S IBRXTYP=$O(^IBE(356.6,""AC"",4,0)) ; event type pointer for rx billing"
^XMB(3.9,53,2,3081,0)="""RTN"",""IBTRKR3"",55,0)"
^XMB(3.9,53,2,3082,0)=" ;"
^XMB(3.9,53,2,3083,0)="""RTN"",""IBTRKR3"",56,0)"
^XMB(3.9,53,2,3084,0)=" ; -- cnt= total count, cnt1=count added nsc, cnt2=count of pending"
^XMB(3.9,53,2,3085,0)="""RTN"",""IBTRKR3"",57,0)"
^XMB(3.9,53,2,3086,0)=" S (IBCNT,IBCNT1,IBCNT2)=0"
^XMB(3.9,53,2,3087,0)="""RTN"",""IBTRKR3"",58,0)"
^XMB(3.9,53,2,3088,0)=" S IBDT=IBTSBDT-.0001"
^XMB(3.9,53,2,3089,0)="""RTN"",""IBTRKR3"",59,0)"
^XMB(3.9,53,2,3090,0)=" F  S IBDT=$O(^PSRX(""AD"",IBDT)) Q:'IBDT!(IBDT>IBTSEDT)  D"
^XMB(3.9,53,2,3091,0)="""RTN"",""IBTRKR3"",60,0)"
^XMB(3.9,53,2,3092,0)="   .I +IBSWINFO,(IBDT+1)>$P(IBSWINFO,""^"",2) Q              ;IB*2.0*312"
^XMB(3.9,53,2,3093,0)="""RTN"",""IBTRKR3"",61,0)"
^XMB(3.9,53,2,3094,0)="   .S IBRXN="""""
^XMB(3.9,53,2,3095,0)="""RTN"",""IBTRKR3"",62,0)"
^XMB(3.9,53,2,3096,0)="   .F  S IBRXN=$O(^PSRX(""AD"",IBDT,IBRXN)) Q:'IBRXN  S IBFILL="""" D"
^XMB(3.9,53,2,3097,0)="""RTN"",""IBTRKR3"",63,0)"
^XMB(3.9,53,2,3098,0)="     ..F  S IBFILL=$O(^PSRX(""AD"",IBDT,IBRXN,IBFILL)) Q:IBFILL=""""  D RXCHK"
^XMB(3.9,53,2,3099,0)="""RTN"",""IBTRKR3"",64,0)"
^XMB(3.9,53,2,3100,0)=" ;"
^XMB(3.9,53,2,3101,0)="""RTN"",""IBTRKR3"",65,0)"
^XMB(3.9,53,2,3102,0)=" I $G(IBTALK) D BULL^IBTRKR31"
^XMB(3.9,53,2,3103,0)="""RTN"",""IBTRKR3"",66,0)"
^XMB(3.9,53,2,3104,0)="EN1Q I $D(ZTQUEUED) S ZTREQ=""@"""
^XMB(3.9,53,2,3105,0)="""RTN"",""IBTRKR3"",67,0)"
^XMB(3.9,53,2,3106,0)=" Q"
^XMB(3.9,53,2,3107,0)="""RTN"",""IBTRKR3"",68,0)"
^XMB(3.9,53,2,3108,0)=" ;"
^XMB(3.9,53,2,3109,0)="""RTN"",""IBTRKR3"",69,0)"
^XMB(3.9,53,2,3110,0)="RXCHK ; -- check and add rx"
^XMB(3.9,53,2,3111,0)="""RTN"",""IBTRKR3"",70,0)"
^XMB(3.9,53,2,3112,0)=" S IBCNT=IBCNT+1"
^XMB(3.9,53,2,3113,0)="""RTN"",""IBTRKR3"",71,0)"
^XMB(3.9,53,2,3114,0)=" ;I IBFILL<1 G RXCHKQ ;       original fill"
^XMB(3.9,53,2,3115,0)="""RTN"",""IBTRKR3"",72,0)"
^XMB(3.9,53,2,3116,0)=" I IBDT>(DT+.24) G RXCHKQ ;  future fill"
^XMB(3.9,53,2,3117,0)="""RTN"",""IBTRKR3"",73,0)"
^XMB(3.9,53,2,3118,0)=" I '$D(ZTQUEUED),($G(IBTALK)) W ""."""
^XMB(3.9,53,2,3119,0)="""RTN"",""IBTRKR3"",74,0)"
^XMB(3.9,53,2,3120,0)=" ;"
^XMB(3.9,53,2,3121,0)="""RTN"",""IBTRKR3"",75,0)"
^XMB(3.9,53,2,3122,0)=" S IBRXDATA=$G(^PSRX(IBRXN,0)),IBRXSTAT=$P(IBRXDATA,""^"",15)"
^XMB(3.9,53,2,3123,0)="""RTN"",""IBTRKR3"",76,0)"
^XMB(3.9,53,2,3124,0)=" S DFN=$P(IBRXDATA,""^"",2)"
^XMB(3.9,53,2,3125,0)="""RTN"",""IBTRKR3"",77,0)"
^XMB(3.9,53,2,3126,0)=" ;I IBDT=$P($O(^DPT(DFN,""S"",(IBDT-.00001))),""."") G RXCHKQ ;scheduled appointment on same day as fill date"
^XMB(3.9,53,2,3127,0)="""RTN"",""IBTRKR3"",78,0)"
^XMB(3.9,53,2,3128,0)=" ;I $$BABCSC^IBEFUNC(DFN,$P(IBDT,""."",1)) G RXCHKQ ; is billable clinic stop in encounter file for data (allows telephone stops on same day, but not others) (P121 - RC, can now bill Rx if on same day as opt visit)"
^XMB(3.9,53,2,3129,0)="""RTN"",""IBTRKR3"",79,0)"
^XMB(3.9,53,2,3130,0)=" ;"
^XMB(3.9,53,2,3131,0)="""RTN"",""IBTRKR3"",80,0)"
^XMB(3.9,53,2,3132,0)=" ; -- not already in claims tracking"
^XMB(3.9,53,2,3133,0)="""RTN"",""IBTRKR3"",81,0)"
^XMB(3.9,53,2,3134,0)=" I $O(^IBT(356,""ARXFL"",IBRXN,IBFILL,0)) G RXCHKQ ; already in claims tracking"
^XMB(3.9,53,2,3135,0)="""RTN"",""IBTRKR3"",82,0)"
^XMB(3.9,53,2,3136,0)=" ;"
^XMB(3.9,53,2,3137,0)="""RTN"",""IBTRKR3"",83,0)"
^XMB(3.9,53,2,3138,0)=" ; -- see if tracking only insured and pt is insured"
^XMB(3.9,53,2,3139,0)="""RTN"",""IBTRKR3"",84,0)"
^XMB(3.9,53,2,3140,0)=" I $P(IBTRKR,""^"",4)=1,'$$INSURED^IBCNS1(DFN,IBDT) G RXCHKQ ; patient not insure"
^XMB(3.9,53,2,3141,0)="""RTN"",""IBTRKR3"",85,0)"
^XMB(3.9,53,2,3142,0)=" ;"
^XMB(3.9,53,2,3143,0)="""RTN"",""IBTRKR3"",86,0)"
^XMB(3.9,53,2,3144,0)=" ; -- check rx status (not deleted)"
^XMB(3.9,53,2,3145,0)="""RTN"",""IBTRKR3"",87,0)"
^XMB(3.9,53,2,3146,0)=" I IBRXSTAT=13 G RXCHKQ"
^XMB(3.9,53,2,3147,0)="""RTN"",""IBTRKR3"",88,0)"
^XMB(3.9,53,2,3148,0)=" ;"
^XMB(3.9,53,2,3149,0)="""RTN"",""IBTRKR3"",89,0)"
^XMB(3.9,53,2,3150,0)=" ; -- Don't PROCESS IF there is already a PFSS ACCT REF# -- ;IB*2.0*312"
^XMB(3.9,53,2,3151,0)="""RTN"",""IBTRKR3"",90,0)"
^XMB(3.9,53,2,3152,0)=" I 'IBFILL,+$P($G(^PSRX(IBRXN,""PFS"")),""^"") G RXCHKQ"
^XMB(3.9,53,2,3153,0)="""RTN"",""IBTRKR3"",91,0)"
^XMB(3.9,53,2,3154,0)=" I +IBFILL,+$P($G(^PSRX(IBRXN,1,IBFILL,""PFS"")),""^"") G RXCHKQ"
^XMB(3.9,53,2,3155,0)="""RTN"",""IBTRKR3"",92,0)"
^XMB(3.9,53,2,3156,0)=" ;"
^XMB(3.9,53,2,3157,0)="""RTN"",""IBTRKR3"",93,0)"
^XMB(3.9,53,2,3158,0)=" ; -- original fill not released or returned to stock"
^XMB(3.9,53,2,3159,0)="""RTN"",""IBTRKR3"",94,0)"
^XMB(3.9,53,2,3160,0)=" I 'IBFILL,'$P($G(^PSRX(IBRXN,2)),""^"",13) G RXCHKQ"
^XMB(3.9,53,2,3161,0)="""RTN"",""IBTRKR3"",95,0)"
^XMB(3.9,53,2,3162,0)=" I 'IBFILL,$P($G(^PSRX(IBRXN,2)),""^"",15) G RXCHKQ"
^XMB(3.9,53,2,3163,0)="""RTN"",""IBTRKR3"",96,0)"
^XMB(3.9,53,2,3164,0)=" ;"
^XMB(3.9,53,2,3165,0)="""RTN"",""IBTRKR3"",97,0)"
^XMB(3.9,53,2,3166,0)=" ; -- refill not released or returned to stock"
^XMB(3.9,53,2,3167,0)="""RTN"",""IBTRKR3"",98,0)"
^XMB(3.9,53,2,3168,0)=" I +IBFILL,'$P($G(^PSRX(IBRXN,1,IBFILL,0)),""^"",18) G RXCHKQ"
^XMB(3.9,53,2,3169,0)="""RTN"",""IBTRKR3"",99,0)"
^XMB(3.9,53,2,3170,0)=" I +IBFILL,$P($G(^PSRX(IBRXN,1,IBFILL,0)),""^"",16) G RXCHKQ"
^XMB(3.9,53,2,3171,0)="""RTN"",""IBTRKR3"",100,0)"
^XMB(3.9,53,2,3172,0)=" ;"
^XMB(3.9,53,2,3173,0)="""RTN"",""IBTRKR3"",101,0)"
^XMB(3.9,53,2,3174,0)=" ; -- check drug (not investigational, supply, or over the counter drug"
^XMB(3.9,53,2,3175,0)="""RTN"",""IBTRKR3"",102,0)"
^XMB(3.9,53,2,3176,0)=" S IBDRUG=$P(IBRXDATA,""^"",6)"
^XMB(3.9,53,2,3177,0)="""RTN"",""IBTRKR3"",103,0)"
^XMB(3.9,53,2,3178,0)=" D ZERO^IBRXUTL(IBDRUG)"
^XMB(3.9,53,2,3179,0)="""RTN"",""IBTRKR3"",104,0)"
^XMB(3.9,53,2,3180,0)=" S IBDEA=$G(^TMP($J,""IBDRUG"",+IBDRUG,3))"
^XMB(3.9,53,2,3181,0)="""RTN"",""IBTRKR3"",105,0)"
^XMB(3.9,53,2,3182,0)=" K ^TMP($J,""IBDRUG"")"
^XMB(3.9,53,2,3183,0)="""RTN"",""IBTRKR3"",106,0)"
^XMB(3.9,53,2,3184,0)=" I IBDEA[""I""!(IBDEA[""S"")!(IBDEA[""9"") G RXCHKQ ; investigational drug, supply or otc"
^XMB(3.9,53,2,3185,0)="""RTN"",""IBTRKR3"",107,0)"
^XMB(3.9,53,2,3186,0)=" ;"
^XMB(3.9,53,2,3187,0)="""RTN"",""IBTRKR3"",108,0)"
^XMB(3.9,53,2,3188,0)=" ; -- see if insured for prescriptions"
^XMB(3.9,53,2,3189,0)="""RTN"",""IBTRKR3"",109,0)"
^XMB(3.9,53,2,3190,0)=" I '$$PTCOV^IBCNSU3(DFN,IBDT,""PHARMACY"",.IBANY) S IBRMARK=$S($G(IBANY):""SERVICE NOT COVERED"",1:""NOT INSURED"")"
^XMB(3.9,53,2,3191,0)="""RTN"",""IBTRKR3"",110,0)"
^XMB(3.9,53,2,3192,0)=" ;"
^XMB(3.9,53,2,3193,0)="""RTN"",""IBTRKR3"",111,0)"
^XMB(3.9,53,2,3194,0)=" ; -- check sc status and others"
^XMB(3.9,53,2,3195,0)="""RTN"",""IBTRKR3"",112,0)"
^XMB(3.9,53,2,3196,0)=" ; -- new ICD node in PSO with CIDC, if it exists use this for determination"
^XMB(3.9,53,2,3197,0)="""RTN"",""IBTRKR3"",113,0)"
^XMB(3.9,53,2,3198,0)=" I $G(IBRMARK)="""",$D(^PSRX(IBRXN,""ICD"")) D CL^SDCO21(DFN,IBDT,"""",.IBARR) I $D(IBARR) D"
^XMB(3.9,53,2,3199,0)="""RTN"",""IBTRKR3"",114,0)"
^XMB(3.9,53,2,3200,0)=" . S IBM=0 F  S IBM=$O(^PSRX(IBRXN,""ICD"",IBM)) Q:'IBM!($G(IBRMARK)'="""")  S IBZ=$G(^PSRX(IBRXN,""ICD"",IBM,0)) F IBP=1:1:7 Q:$G(IBRMARK)'=""""  I $D(IBARR(IBP)) D"
^XMB(3.9,53,2,3201,0)="""RTN"",""IBTRKR3"",115,0)"
^XMB(3.9,53,2,3202,0)=" .. S IBRMARK=$S($P(IBZ,""^"",IBP+1):$P($T(EXEMPT+IBP),"";"",3),$P(IBZ,""^"",IBP+1)=0:"""",1:""NEEDS SC DETERMINATION"")"
^XMB(3.9,53,2,3203,0)="""RTN"",""IBTRKR3"",116,0)"
^XMB(3.9,53,2,3204,0)=" ;"
^XMB(3.9,53,2,3205,0)="""RTN"",""IBTRKR3"",117,0)"
^XMB(3.9,53,2,3206,0)=" ; -- no new ICD node in PSO, use old method of determining status"
^XMB(3.9,53,2,3207,0)="""RTN"",""IBTRKR3"",118,0)"
^XMB(3.9,53,2,3208,0)=" I $G(IBRMARK)="""",'$D(^PSRX(IBRXN,""ICD"")) D"
^XMB(3.9,53,2,3209,0)="""RTN"",""IBTRKR3"",119,0)"
^XMB(3.9,53,2,3210,0)=" . D ELIG^VADPT"
^XMB(3.9,53,2,3211,0)="""RTN"",""IBTRKR3"",120,0)"
^XMB(3.9,53,2,3212,0)=" . ;if the patient is covered by insurance for pharmacy ($G(IBRMARK)="""")"
^XMB(3.9,53,2,3213,0)="""RTN"",""IBTRKR3"",121,0)"
^XMB(3.9,53,2,3214,0)=" . ;AND if no copay in #350"
^XMB(3.9,53,2,3215,0)="""RTN"",""IBTRKR3"",122,0)"
^XMB(3.9,53,2,3216,0)=" . ;then we need to determine the non billable reason and set IBRMARK"
^XMB(3.9,53,2,3217,0)="""RTN"",""IBTRKR3"",123,0)"
^XMB(3.9,53,2,3218,0)=" . ;"
^XMB(3.9,53,2,3219,0)="""RTN"",""IBTRKR3"",124,0)"
^XMB(3.9,53,2,3220,0)=" . ;IF VAEL(3) -- if this is a veteran with SC(service connection) status"
^XMB(3.9,53,2,3221,0)="""RTN"",""IBTRKR3"",125,0)"
^XMB(3.9,53,2,3222,0)=" . I VAEL(3),'$G(^PSRX(IBRXN,""IB"")) D"
^XMB(3.9,53,2,3223,0)="""RTN"",""IBTRKR3"",126,0)"
^XMB(3.9,53,2,3224,0)=" . . I $P(VAEL(3),""^"",2)>49 S IBRMARK=""NEEDS SC DETERMINATION"""
^XMB(3.9,53,2,3225,0)="""RTN"",""IBTRKR3"",127,0)"
^XMB(3.9,53,2,3226,0)=" . . ;in case of POW and Unempl.vet we cannot decide if the 3rd party should be exempt"
^XMB(3.9,53,2,3227,0)="""RTN"",""IBTRKR3"",128,0)"
^XMB(3.9,53,2,3228,0)=" . . N IBPOWUNV,IBAUTRET S IBAUTRET=$$AUTOINFO^DGMTCOU1(DFN),IBPOWUNV=$S($P(IBAUTRET,U,8):1,$P(IBAUTRET,U,9):1,1:0)"
^XMB(3.9,53,2,3229,0)="""RTN"",""IBTRKR3"",129,0)"
^XMB(3.9,53,2,3230,0)=" . . I $P(VAEL(3),""^"",2)<50 S IBRMARK=$S(IBPOWUNV:""NEEDS SC DETERMINATION"",1:""SC TREATMENT"")"
^XMB(3.9,53,2,3231,0)="""RTN"",""IBTRKR3"",130,0)"
^XMB(3.9,53,2,3232,0)=" . . I $$RXST^IBARXEU(DFN,$P(IBRXDATA,U,13))>0 S IBRMARK=""NEEDS SC DETERMINATION"""
^XMB(3.9,53,2,3233,0)="""RTN"",""IBTRKR3"",131,0)"
^XMB(3.9,53,2,3234,0)=" . ;"
^XMB(3.9,53,2,3235,0)="""RTN"",""IBTRKR3"",132,0)"
^XMB(3.9,53,2,3236,0)=" . ;IF +VAEL(3)=0 if the veteran doesn't have SC status, but"
^XMB(3.9,53,2,3237,0)="""RTN"",""IBTRKR3"",133,0)"
^XMB(3.9,53,2,3238,0)=" . ;the veteran still may have CV status active"
^XMB(3.9,53,2,3239,0)="""RTN"",""IBTRKR3"",134,0)"
^XMB(3.9,53,2,3240,0)=" . I $G(IBRMARK)="""",+VAEL(3)=0,'$G(^PSRX(IBRXN,""IB"")) D"
^XMB(3.9,53,2,3241,0)="""RTN"",""IBTRKR3"",135,0)"
^XMB(3.9,53,2,3242,0)=" . . I $$CVEDT^IBACV(DFN,IBDT) S IBRMARK=""NEEDS SC DETERMINATION"" ;SC-because IB staff usually is using this reason to search for cases that need to be reviewed. COMBAT VETERAN reason will be used after review if this was a case"
^XMB(3.9,53,2,3243,0)="""RTN"",""IBTRKR3"",136,0)"
^XMB(3.9,53,2,3244,0)=" ;"
^XMB(3.9,53,2,3245,0)="""RTN"",""IBTRKR3"",137,0)"
^XMB(3.9,53,2,3246,0)=" ;"
^XMB(3.9,53,2,3247,0)="""RTN"",""IBTRKR3"",138,0)"
^XMB(3.9,53,2,3248,0)=" ; -- ok to add to tracking module"
^XMB(3.9,53,2,3249,0)="""RTN"",""IBTRKR3"",139,0)"
^XMB(3.9,53,2,3250,0)=" D REFILL^IBTUTL1(DFN,IBRXTYP,IBDT,IBRXN,IBFILL,$G(IBRMARK)) I '$D(ZTQUEUED),$G(IBTALK) W ""+"""
^XMB(3.9,53,2,3251,0)="""RTN"",""IBTRKR3"",140,0)"
^XMB(3.9,53,2,3252,0)=" I $G(IBRMARK)'="""" S IBCNT2=IBCNT2+1"
^XMB(3.9,53,2,3253,0)="""RTN"",""IBTRKR3"",141,0)"
^XMB(3.9,53,2,3254,0)=" I $G(IBRMARK)="""" S IBCNT1=IBCNT1+1"
^XMB(3.9,53,2,3255,0)="""RTN"",""IBTRKR3"",142,0)"
^XMB(3.9,53,2,3256,0)=" K IBANY,IBRMARK,VAEL,VA,IBDEA,IBDRUG,IBRXSTAT,IBRXDATA,DFN,X,Y"
^XMB(3.9,53,2,3257,0)="""RTN"",""IBTRKR3"",143,0)"
^XMB(3.9,53,2,3258,0)=" K IBARR,IBM,IBZ,IBP"
^XMB(3.9,53,2,3259,0)="""RTN"",""IBTRKR3"",144,0)"
^XMB(3.9,53,2,3260,0)="RXCHKQ Q"
^XMB(3.9,53,2,3261,0)="""RTN"",""IBTRKR3"",145,0)"
^XMB(3.9,53,2,3262,0)=" ;"
^XMB(3.9,53,2,3263,0)="""RTN"",""IBTRKR3"",146,0)"
^XMB(3.9,53,2,3264,0)="EXEMPT ; exemption reasons"
^XMB(3.9,53,2,3265,0)="""RTN"",""IBTRKR3"",147,0)"
^XMB(3.9,53,2,3266,0)=" ;;AGENT ORANGE"
^XMB(3.9,53,2,3267,0)="""RTN"",""IBTRKR3"",148,0)"
^XMB(3.9,53,2,3268,0)=" ;;IONIZING RADIATION"
^XMB(3.9,53,2,3269,0)="""RTN"",""IBTRKR3"",149,0)"
^XMB(3.9,53,2,3270,0)=" ;;SC TREATMENT"
^XMB(3.9,53,2,3271,0)="""RTN"",""IBTRKR3"",150,0)"
^XMB(3.9,53,2,3272,0)=" ;;ENV. CONTAM."
^XMB(3.9,53,2,3273,0)="""RTN"",""IBTRKR3"",151,0)"
^XMB(3.9,53,2,3274,0)=" ;;MILITARY SEXUAL TRAUMA"
^XMB(3.9,53,2,3275,0)="""RTN"",""IBTRKR3"",152,0)"
^XMB(3.9,53,2,3276,0)=" ;;HEAD/NECK CANCER"
^XMB(3.9,53,2,3277,0)="""RTN"",""IBTRKR3"",153,0)"
^XMB(3.9,53,2,3278,0)=" ;;COMBAT VETERAN"
^XMB(3.9,53,2,3279,0)="""RTN"",""IBTRKR3"",154,0)"
^XMB(3.9,53,2,3280,0)=" ;;"
^XMB(3.9,53,2,3281,0)="""RTN"",""IBTRKR4"")"
^XMB(3.9,53,2,3282,0)="0^7^B13921705^B12239188"
^XMB(3.9,53,2,3283,0)="""RTN"",""IBTRKR4"",1,0)"
^XMB(3.9,53,2,3284,0)="IBTRKR4 ;ALB/AAS - CLAIMS TRACKING - ADD/TRACK OUTPATIENT ENCOUNTERS ; 13-AUG-93"
^XMB(3.9,53,2,3285,0)="""RTN"",""IBTRKR4"",2,0)"
^XMB(3.9,53,2,3286,0)=" ;;2.0;INTEGRATED BILLING;**91,142,292,312**;21-MAR-94"
^XMB(3.9,53,2,3287,0)="""RTN"",""IBTRKR4"",3,0)"
^XMB(3.9,53,2,3288,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,53,2,3289,0)="""RTN"",""IBTRKR4"",4,0)"
^XMB(3.9,53,2,3290,0)=" ;"
^XMB(3.9,53,2,3291,0)="""RTN"",""IBTRKR4"",5,0)"
^XMB(3.9,53,2,3292,0)="% ; -- entry point for nightly background job"
^XMB(3.9,53,2,3293,0)="""RTN"",""IBTRKR4"",6,0)"
^XMB(3.9,53,2,3294,0)=" N IBTSBDT,IBTSEDT"
^XMB(3.9,53,2,3295,0)="""RTN"",""IBTRKR4"",7,0)"
^XMB(3.9,53,2,3296,0)=" S IBTSBDT=$$FMADD^XLFDT(DT,$S($E(DT,6,7)=10:-730,1:-20))-.1"
^XMB(3.9,53,2,3297,0)="""RTN"",""IBTRKR4"",8,0)"
^XMB(3.9,53,2,3298,0)=" S IBTSEDT=$$FMADD^XLFDT(DT,-2)-.9"
^XMB(3.9,53,2,3299,0)="""RTN"",""IBTRKR4"",9,0)"
^XMB(3.9,53,2,3300,0)=" D EN1"
^XMB(3.9,53,2,3301,0)="""RTN"",""IBTRKR4"",10,0)"
^XMB(3.9,53,2,3302,0)=" Q"
^XMB(3.9,53,2,3303,0)="""RTN"",""IBTRKR4"",11,0)"
^XMB(3.9,53,2,3304,0)=" ;"
^XMB(3.9,53,2,3305,0)="""RTN"",""IBTRKR4"",12,0)"
^XMB(3.9,53,2,3306,0)="EN ; -- entry point to ask date range"
^XMB(3.9,53,2,3307,0)="""RTN"",""IBTRKR4"",13,0)"
^XMB(3.9,53,2,3308,0)=" N IBSWINFO S IBSWINFO=$$SWSTAT^IBBAPI()                     ;IB*2.0*312"
^XMB(3.9,53,2,3309,0)="""RTN"",""IBTRKR4"",14,0)"
^XMB(3.9,53,2,3310,0)=" N IBBDT,IBEDT,IBTSBDT,IBTSEDT,IBTALK"
^XMB(3.9,53,2,3311,0)="""RTN"",""IBTRKR4"",15,0)"
^XMB(3.9,53,2,3312,0)=" S IBTALK=1"
^XMB(3.9,53,2,3313,0)="""RTN"",""IBTRKR4"",16,0)"
^XMB(3.9,53,2,3314,0)=" I '$P($G(^IBE(350.9,1,6)),""^"",3) W !!,""I'm sorry, Tracking of Outpatient Encounters is currrently turned off."" G ENQ"
^XMB(3.9,53,2,3315,0)="""RTN"",""IBTRKR4"",17,0)"
^XMB(3.9,53,2,3316,0)=" W !!!,""Select the Date Range of Opt. Encounters to Add to Claims Tracking."",!"
^XMB(3.9,53,2,3317,0)="""RTN"",""IBTRKR4"",18,0)"
^XMB(3.9,53,2,3318,0)=" D DATE^IBOUTL"
^XMB(3.9,53,2,3319,0)="""RTN"",""IBTRKR4"",19,0)"
^XMB(3.9,53,2,3320,0)=" I IBBDT<1!(IBEDT<1) G ENQ"
^XMB(3.9,53,2,3321,0)="""RTN"",""IBTRKR4"",20,0)"
^XMB(3.9,53,2,3322,0)=" S IBTSBDT=IBBDT,IBTSEDT=IBEDT"
^XMB(3.9,53,2,3323,0)="""RTN"",""IBTRKR4"",21,0)"
^XMB(3.9,53,2,3324,0)=" ; Do NOT PROCESS on VistA if Start or End>=Switch Eff Dt    ;CCR-930"
^XMB(3.9,53,2,3325,0)="""RTN"",""IBTRKR4"",22,0)"
^XMB(3.9,53,2,3326,0)=" ; -- check selected dates                                   ;IB*2.0*312"
^XMB(3.9,53,2,3327,0)="""RTN"",""IBTRKR4"",23,0)"
^XMB(3.9,53,2,3328,0)=" I +IBSWINFO,((IBTSBDT+1)>$P(IBSWINFO,""^"",2))!((IBTSEDT+1)>$P(IBSWINFO,""^"",2)) D  G EN"
^XMB(3.9,53,2,3329,0)="""RTN"",""IBTRKR4"",24,0)"
^XMB(3.9,53,2,3330,0)="   .W !!,""The Begin OR End Date CANNOT be on or after"""
^XMB(3.9,53,2,3331,0)="""RTN"",""IBTRKR4"",25,0)"
^XMB(3.9,53,2,3332,0)="   .W !,""the PFSS Effective Date: "",$$FMTE^XLFDT($P(IBSWINFO,""^"",2))"
^XMB(3.9,53,2,3333,0)="""RTN"",""IBTRKR4"",26,0)"
^XMB(3.9,53,2,3334,0)=" ;"
^XMB(3.9,53,2,3335,0)="""RTN"",""IBTRKR4"",27,0)"
^XMB(3.9,53,2,3336,0)=" S IBTRKR=$G(^IBE(350.9,1,6))"
^XMB(3.9,53,2,3337,0)="""RTN"",""IBTRKR4"",28,0)"
^XMB(3.9,53,2,3338,0)=" ; start date can't be before parameters"
^XMB(3.9,53,2,3339,0)="""RTN"",""IBTRKR4"",29,0)"
^XMB(3.9,53,2,3340,0)=" I +IBTRKR,IBTSBDT<+IBTRKR S IBTSBDT=IBTRKR W !!,""Begin date is before Claims Tracking Start Date, changed to "",$$DAT1^IBOUTL(IBTSBDT)"
^XMB(3.9,53,2,3341,0)="""RTN"",""IBTRKR4"",30,0)"
^XMB(3.9,53,2,3342,0)=" ; -- end date into future"
^XMB(3.9,53,2,3343,0)="""RTN"",""IBTRKR4"",31,0)"
^XMB(3.9,53,2,3344,0)=" I IBTSEDT>$$FMADD^XLFDT(DT,-1) W !!,""I'll automatically change the end date to 1 day prior to the date queued to run."""
^XMB(3.9,53,2,3345,0)="""RTN"",""IBTRKR4"",32,0)"
^XMB(3.9,53,2,3346,0)=" W !!!,""I'm going to automatically queue this off and send you a"""
^XMB(3.9,53,2,3347,0)="""RTN"",""IBTRKR4"",33,0)"
^XMB(3.9,53,2,3348,0)=" W !,""mail message when complete."",!"
^XMB(3.9,53,2,3349,0)="""RTN"",""IBTRKR4"",34,0)"
^XMB(3.9,53,2,3350,0)=" S ZTIO="""",ZTRTN=""EN1^IBTRKR4"",ZTSAVE(""IB*"")="""",ZTDESC=""IB - Add Opt Encounters to Claims Tracking"""
^XMB(3.9,53,2,3351,0)="""RTN"",""IBTRKR4"",35,0)"
^XMB(3.9,53,2,3352,0)=" D ^%ZTLOAD I $G(ZTSK) K ZTSK W !,""Request Queued"""
^XMB(3.9,53,2,3353,0)="""RTN"",""IBTRKR4"",36,0)"
^XMB(3.9,53,2,3354,0)="ENQ K ZTSK,ZTIO,ZTSAVE,ZTDESC,ZTRTN"
^XMB(3.9,53,2,3355,0)="""RTN"",""IBTRKR4"",37,0)"
^XMB(3.9,53,2,3356,0)=" D HOME^%ZIS"
^XMB(3.9,53,2,3357,0)="""RTN"",""IBTRKR4"",38,0)"
^XMB(3.9,53,2,3358,0)=" Q"
^XMB(3.9,53,2,3359,0)="""RTN"",""IBTRKR4"",39,0)"
^XMB(3.9,53,2,3360,0)=" ;"
^XMB(3.9,53,2,3361,0)="""RTN"",""IBTRKR4"",40,0)"
^XMB(3.9,53,2,3362,0)="EN1 ; -- add outpatient encounters to claims tracking file"
^XMB(3.9,53,2,3363,0)="""RTN"",""IBTRKR4"",41,0)"
^XMB(3.9,53,2,3364,0)=" N I,J,X,Y,IBTRKR,IBDT,DFN,IBOETA,IBCNT,IBCNT1,IBCNT2"
^XMB(3.9,53,2,3365,0)="""RTN"",""IBTRKR4"",42,0)"
^XMB(3.9,53,2,3366,0)=" ;"
^XMB(3.9,53,2,3367,0)="""RTN"",""IBTRKR4"",43,0)"
^XMB(3.9,53,2,3368,0)=" ; -- check parameters"
^XMB(3.9,53,2,3369,0)="""RTN"",""IBTRKR4"",44,0)"
^XMB(3.9,53,2,3370,0)=" S IBTRKR=$G(^IBE(350.9,1,6))"
^XMB(3.9,53,2,3371,0)="""RTN"",""IBTRKR4"",45,0)"
^XMB(3.9,53,2,3372,0)=" G:'$P(IBTRKR,""^"",3) EN1Q ; quit if opt tracking off"
^XMB(3.9,53,2,3373,0)="""RTN"",""IBTRKR4"",46,0)"
^XMB(3.9,53,2,3374,0)=" I +IBTRKR,IBTSBDT<+IBTRKR S IBTSBDT=IBTRKR ; start date can't be before parameters"
^XMB(3.9,53,2,3375,0)="""RTN"",""IBTRKR4"",47,0)"
^XMB(3.9,53,2,3376,0)=" ;"
^XMB(3.9,53,2,3377,0)="""RTN"",""IBTRKR4"",48,0)"
^XMB(3.9,53,2,3378,0)=" ; -- users can queue into future, make sure dates not after date run"
^XMB(3.9,53,2,3379,0)="""RTN"",""IBTRKR4"",49,0)"
^XMB(3.9,53,2,3380,0)=" ;I IBTSEDT>DT S IBTSEDT=DT"
^XMB(3.9,53,2,3381,0)="""RTN"",""IBTRKR4"",50,0)"
^XMB(3.9,53,2,3382,0)=" I IBTSEDT>$$FMADD^XLFDT(DT,-1) S IBMESS=""(Selected end date of ""_$$DAT1^IBOUTL(IBTSEDT)_"" automatically changed to ""_$$DAT1^IBOUTL($$FMADD^XLFDT(DT,-1))_"".)"",IBTSEDT=$$FMADD^XLFDT(DT,-1)"
^XMB(3.9,53,2,3383,0)="""RTN"",""IBTRKR4"",51,0)"
^XMB(3.9,53,2,3384,0)=" ;"
^XMB(3.9,53,2,3385,0)="""RTN"",""IBTRKR4"",52,0)"
^XMB(3.9,53,2,3386,0)=" S IBOETYP=$O(^IBE(356.6,""AC"",2,0)) ;event type pointer for opt encounters"
^XMB(3.9,53,2,3387,0)="""RTN"",""IBTRKR4"",53,0)"
^XMB(3.9,53,2,3388,0)=" ;"
^XMB(3.9,53,2,3389,0)="""RTN"",""IBTRKR4"",54,0)"
^XMB(3.9,53,2,3390,0)=" ; -- cnt= total count, cnt1=count added nsc, cnt2=count of pending"
^XMB(3.9,53,2,3391,0)="""RTN"",""IBTRKR4"",55,0)"
^XMB(3.9,53,2,3392,0)=" S (IBCNT,IBCNT1,IBCNT2)=0"
^XMB(3.9,53,2,3393,0)="""RTN"",""IBTRKR4"",56,0)"
^XMB(3.9,53,2,3394,0)=" ;"
^XMB(3.9,53,2,3395,0)="""RTN"",""IBTRKR4"",57,0)"
^XMB(3.9,53,2,3396,0)=" N IBVAL,IBCBK,IBFILTER"
^XMB(3.9,53,2,3397,0)="""RTN"",""IBTRKR4"",58,0)"
^XMB(3.9,53,2,3398,0)=" S IBVAL(""BDT"")=IBTSBDT,IBVAL(""EDT"")=IBTSEDT+.9"
^XMB(3.9,53,2,3399,0)="""RTN"",""IBTRKR4"",59,0)"
^XMB(3.9,53,2,3400,0)=" ; Only parent encounters, status is checked out, check out date exists,"
^XMB(3.9,53,2,3401,0)="""RTN"",""IBTRKR4"",60,0)"
^XMB(3.9,53,2,3402,0)=" ;   not already in CT, not already an entry for the same encounter"
^XMB(3.9,53,2,3403,0)="""RTN"",""IBTRKR4"",61,0)"
^XMB(3.9,53,2,3404,0)=" S IBFILTER="""""
^XMB(3.9,53,2,3405,0)="""RTN"",""IBTRKR4"",62,0)"
^XMB(3.9,53,2,3406,0)=" ;S IBCBK=""S IBCNT=IBCNT+1 I '$P(Y0,U,6),$P(Y0,U,12)=2,$P(Y0,U,7),'$O(^IBT(356,""""AENC"""",+$P(Y0,U,2),Y,0)),'$O(^IBT(356,""""APTY"""",+$P(Y0,U,2),IBOETYP,+Y0,0)) S IBDT=+Y0,IBOE=Y D OPCHK^IBTRKR41"""
^XMB(3.9,53,2,3407,0)="""RTN"",""IBTRKR4"",63,0)"
^XMB(3.9,53,2,3408,0)=" S IBCBK=""S IBCNT=IBCNT+1 I '$P(Y0,U,6),$P(Y0,U,12)=2,$P(Y0,U,7),'$O(^IBT(356,""""AENC"""",+$P(Y0,U,2),Y,0)),$S($D(^IBE(356.6,""""ACODE"""",2,IBOETYP)):1,1:'$O(^IBT(356,""""APTY"""",+$P(Y0,U,2),IBOETYP,+Y0,0))) S IBDT=+Y0,IBOE=Y D OPCHK^IBTRKR41"""
^XMB(3.9,53,2,3409,0)="""RTN"",""IBTRKR4"",64,0)"
^XMB(3.9,53,2,3410,0)=" D SCAN^IBSDU(""DATE/TIME"",.IBVAL,IBFILTER,IBCBK,1) ;Scan,then close query"
^XMB(3.9,53,2,3411,0)="""RTN"",""IBTRKR4"",65,0)"
^XMB(3.9,53,2,3412,0)=" ;"
^XMB(3.9,53,2,3413,0)="""RTN"",""IBTRKR4"",66,0)"
^XMB(3.9,53,2,3414,0)=" I $G(IBTALK) D BULL^IBTRKR41"
^XMB(3.9,53,2,3415,0)="""RTN"",""IBTRKR4"",67,0)"
^XMB(3.9,53,2,3416,0)="EN1Q I $D(ZTQUEUED) S ZTREQ=""@"""
^XMB(3.9,53,2,3417,0)="""RTN"",""IBTRKR4"",68,0)"
^XMB(3.9,53,2,3418,0)=" Q"
^XMB(3.9,53,2,3419,0)="""RTN"",""IBTRKR41"")"
^XMB(3.9,53,2,3420,0)="0^14^B31657328^B29987868"
^XMB(3.9,53,2,3421,0)="""RTN"",""IBTRKR41"",1,0)"
^XMB(3.9,53,2,3422,0)="IBTRKR41 ;ALB/AAS - CLAIMS TRACKING - ADD/TRACK OUTPATIENT ENCOUNTERS ;13-AUG-93"
^XMB(3.9,53,2,3423,0)="""RTN"",""IBTRKR41"",2,0)"
^XMB(3.9,53,2,3424,0)=" ;;2.0;INTEGRATED BILLING;**43,55,91,132,174,247,260,315,292,312**;21-MAR-94"
^XMB(3.9,53,2,3425,0)="""RTN"",""IBTRKR41"",3,0)"
^XMB(3.9,53,2,3426,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,53,2,3427,0)="""RTN"",""IBTRKR41"",4,0)"
^XMB(3.9,53,2,3428,0)=" ;"
^XMB(3.9,53,2,3429,0)="""RTN"",""IBTRKR41"",5,0)"
^XMB(3.9,53,2,3430,0)="OPCHK ; -- check and add rx"
^XMB(3.9,53,2,3431,0)="""RTN"",""IBTRKR41"",6,0)"
^XMB(3.9,53,2,3432,0)=" N Y,Y0"
^XMB(3.9,53,2,3433,0)="""RTN"",""IBTRKR41"",7,0)"
^XMB(3.9,53,2,3434,0)=" N IBSWINFO S IBSWINFO=$$SWSTAT^IBBAPI()                   ;IB*2.0*312"
^XMB(3.9,53,2,3435,0)="""RTN"",""IBTRKR41"",8,0)"
^XMB(3.9,53,2,3436,0)=" ; IBDT is set from IBTRKR4"
^XMB(3.9,53,2,3437,0)="""RTN"",""IBTRKR41"",9,0)"
^XMB(3.9,53,2,3438,0)=" ; Do NOT PROCESS on VistA if IBDT>=Switch Eff Date        ;CCR-930"
^XMB(3.9,53,2,3439,0)="""RTN"",""IBTRKR41"",10,0)"
^XMB(3.9,53,2,3440,0)=" I +IBSWINFO,(IBDT+1)>$P(IBSWINFO,""^"",2) Q                 ;IB*2.0*312"
^XMB(3.9,53,2,3441,0)="""RTN"",""IBTRKR41"",11,0)"
^XMB(3.9,53,2,3442,0)=" ;"
^XMB(3.9,53,2,3443,0)="""RTN"",""IBTRKR41"",12,0)"
^XMB(3.9,53,2,3444,0)=" K IBRMARK"
^XMB(3.9,53,2,3445,0)="""RTN"",""IBTRKR41"",13,0)"
^XMB(3.9,53,2,3446,0)=" I '$D(ZTQUEUED),($G(IBTALK)) W ""."""
^XMB(3.9,53,2,3447,0)="""RTN"",""IBTRKR41"",14,0)"
^XMB(3.9,53,2,3448,0)=" ;"
^XMB(3.9,53,2,3449,0)="""RTN"",""IBTRKR41"",15,0)"
^XMB(3.9,53,2,3450,0)=" S IBOEDATA=$$SCE^IBSDU(IBOE),IBOESTAT=$P(IBOEDATA,""^"",15)"
^XMB(3.9,53,2,3451,0)="""RTN"",""IBTRKR41"",16,0)"
^XMB(3.9,53,2,3452,0)=" S DFN=$P(IBOEDATA,""^"",2)"
^XMB(3.9,53,2,3453,0)="""RTN"",""IBTRKR41"",17,0)"
^XMB(3.9,53,2,3454,0)=" I 'DFN G OPCHKQ"
^XMB(3.9,53,2,3455,0)="""RTN"",""IBTRKR41"",18,0)"
^XMB(3.9,53,2,3456,0)=" I $P(IBOEDATA,""^"",5) S IBVSIT=$P(IBOEDATA,""^"",5) I '$$BDSRC^IBEFUNC3(IBVSIT) G OPCHKQ ;non-billable data sources"
^XMB(3.9,53,2,3457,0)="""RTN"",""IBTRKR41"",19,0)"
^XMB(3.9,53,2,3458,0)=" ; -- do not allow date/time duplicate claims before Jan. 1, 2006"
^XMB(3.9,53,2,3459,0)="""RTN"",""IBTRKR41"",20,0)"
^XMB(3.9,53,2,3460,0)=" I $O(^IBT(356,""APTY"",DFN,IBOETYP,IBDT,0)),IBDT<3060101 G OPCHKQ"
^XMB(3.9,53,2,3461,0)="""RTN"",""IBTRKR41"",21,0)"
^XMB(3.9,53,2,3462,0)=" ;"
^XMB(3.9,53,2,3463,0)="""RTN"",""IBTRKR41"",22,0)"
^XMB(3.9,53,2,3464,0)=" ; -- see if tracking only insured and pt is insured/insured for outpt visits"
^XMB(3.9,53,2,3465,0)="""RTN"",""IBTRKR41"",23,0)"
^XMB(3.9,53,2,3466,0)=" I $P(IBTRKR,""^"",3)=1,'$$INSURED^IBCNS1(DFN,IBDT) G OPCHKQ ; patient not insured"
^XMB(3.9,53,2,3467,0)="""RTN"",""IBTRKR41"",24,0)"
^XMB(3.9,53,2,3468,0)=" ;"
^XMB(3.9,53,2,3469,0)="""RTN"",""IBTRKR41"",25,0)"
^XMB(3.9,53,2,3470,0)=" ; -- see if outpatient services are covered"
^XMB(3.9,53,2,3471,0)="""RTN"",""IBTRKR41"",26,0)"
^XMB(3.9,53,2,3472,0)=" I '$$PTCOV^IBCNSU3(DFN,IBDT,""OUTPATIENT"",.IBANY) S IBRMARK=$S($G(IBANY):""SERVICE NOT COVERED"",1:""NOT INSURED"")"
^XMB(3.9,53,2,3473,0)="""RTN"",""IBTRKR41"",27,0)"
^XMB(3.9,53,2,3474,0)=" ;"
^XMB(3.9,53,2,3475,0)="""RTN"",""IBTRKR41"",28,0)"
^XMB(3.9,53,2,3476,0)=" ; -- see if appointment type is billable"
^XMB(3.9,53,2,3477,0)="""RTN"",""IBTRKR41"",29,0)"
^XMB(3.9,53,2,3478,0)=" I '$$RPT^IBEFUNC($P(IBOEDATA,""^"",10),+IBOEDATA) S IBRMARK=""NON-BILLABLE APPOINTMENT TYPE"""
^XMB(3.9,53,2,3479,0)="""RTN"",""IBTRKR41"",30,0)"
^XMB(3.9,53,2,3480,0)=" ;"
^XMB(3.9,53,2,3481,0)="""RTN"",""IBTRKR41"",31,0)"
^XMB(3.9,53,2,3482,0)=" ; -- check sc status, special conditions etc."
^XMB(3.9,53,2,3483,0)="""RTN"",""IBTRKR41"",32,0)"
^XMB(3.9,53,2,3484,0)=" I $G(IBRMARK)="""" S IBRMARK=$$CL(IBOEDATA)"
^XMB(3.9,53,2,3485,0)="""RTN"",""IBTRKR41"",33,0)"
^XMB(3.9,53,2,3486,0)=" ;"
^XMB(3.9,53,2,3487,0)="""RTN"",""IBTRKR41"",34,0)"
^XMB(3.9,53,2,3488,0)=" ; -- check for non-billable stops or clinic"
^XMB(3.9,53,2,3489,0)="""RTN"",""IBTRKR41"",35,0)"
^XMB(3.9,53,2,3490,0)=" S X=$P(IBOEDATA,""^"",4) I X,$$NBCT^IBEFUNC(X,+IBOEDATA) S IBRMARK=""NON-BILLABLE CLINIC"""
^XMB(3.9,53,2,3491,0)="""RTN"",""IBTRKR41"",36,0)"
^XMB(3.9,53,2,3492,0)=" S X=$P(IBOEDATA,""^"",3) I X,$$NBST^IBEFUNC(X,+IBOEDATA) S IBRMARK=""NON-BILLABLE STOP CODE"""
^XMB(3.9,53,2,3493,0)="""RTN"",""IBTRKR41"",37,0)"
^XMB(3.9,53,2,3494,0)=" ;"
^XMB(3.9,53,2,3495,0)="""RTN"",""IBTRKR41"",38,0)"
^XMB(3.9,53,2,3496,0)=" ; -- ok to add to tracking module"
^XMB(3.9,53,2,3497,0)="""RTN"",""IBTRKR41"",39,0)"
^XMB(3.9,53,2,3498,0)=" D OPT^IBTUTL1(DFN,IBOETYP,IBDT,IBOE,IBRMARK,$G(IBVSIT)) I '$D(ZTQUEUED),$G(IBTALK) W ""+"""
^XMB(3.9,53,2,3499,0)="""RTN"",""IBTRKR41"",40,0)"
^XMB(3.9,53,2,3500,0)=" I IBRMARK'="""" S IBCNT2=IBCNT2+1"
^XMB(3.9,53,2,3501,0)="""RTN"",""IBTRKR41"",41,0)"
^XMB(3.9,53,2,3502,0)=" I IBRMARK="""" S IBCNT1=IBCNT1+1"
^XMB(3.9,53,2,3503,0)="""RTN"",""IBTRKR41"",42,0)"
^XMB(3.9,53,2,3504,0)="OPCHKQ K IBANY,IBRMARK,VAEL,VA,IBOEDATA,IBVSIT,DFN,X,Y"
^XMB(3.9,53,2,3505,0)="""RTN"",""IBTRKR41"",43,0)"
^XMB(3.9,53,2,3506,0)=" Q"
^XMB(3.9,53,2,3507,0)="""RTN"",""IBTRKR41"",44,0)"
^XMB(3.9,53,2,3508,0)=" ;"
^XMB(3.9,53,2,3509,0)="""RTN"",""IBTRKR41"",45,0)"
^XMB(3.9,53,2,3510,0)="BULL ; -- send bulletin"
^XMB(3.9,53,2,3511,0)="""RTN"",""IBTRKR41"",46,0)"
^XMB(3.9,53,2,3512,0)=" ;"
^XMB(3.9,53,2,3513,0)="""RTN"",""IBTRKR41"",47,0)"
^XMB(3.9,53,2,3514,0)=" S XMSUB=""Outpatient Encounters added to Claims Tracking Complete"""
^XMB(3.9,53,2,3515,0)="""RTN"",""IBTRKR41"",48,0)"
^XMB(3.9,53,2,3516,0)=" S IBT(1)=""The process to automatically add Opt Encounters has successfully completed."""
^XMB(3.9,53,2,3517,0)="""RTN"",""IBTRKR41"",49,0)"
^XMB(3.9,53,2,3518,0)=" S IBT(1.1)="""""
^XMB(3.9,53,2,3519,0)="""RTN"",""IBTRKR41"",50,0)"
^XMB(3.9,53,2,3520,0)=" S IBT(2)=""              Start Date: ""_$$DAT1^IBOUTL(IBTSBDT)"
^XMB(3.9,53,2,3521,0)="""RTN"",""IBTRKR41"",51,0)"
^XMB(3.9,53,2,3522,0)=" S IBT(3)=""                End Date: ""_$$DAT1^IBOUTL(IBTSEDT)"
^XMB(3.9,53,2,3523,0)="""RTN"",""IBTRKR41"",52,0)"
^XMB(3.9,53,2,3524,0)=" I $D(IBMESS) S IBT(3.1)=IBMESS"
^XMB(3.9,53,2,3525,0)="""RTN"",""IBTRKR41"",53,0)"
^XMB(3.9,53,2,3526,0)=" S IBT(4)="""""
^XMB(3.9,53,2,3527,0)="""RTN"",""IBTRKR41"",54,0)"
^XMB(3.9,53,2,3528,0)=" S IBT(5)=""            Total Encounters Checked: ""_$G(IBCNT)"
^XMB(3.9,53,2,3529,0)="""RTN"",""IBTRKR41"",55,0)"
^XMB(3.9,53,2,3530,0)=" S IBT(6)=""              Total Encounters Added: ""_$G(IBCNT1)"
^XMB(3.9,53,2,3531,0)="""RTN"",""IBTRKR41"",56,0)"
^XMB(3.9,53,2,3532,0)=" S IBT(7)="" Total Non-billable Encounters Added: ""_$G(IBCNT2)"
^XMB(3.9,53,2,3533,0)="""RTN"",""IBTRKR41"",57,0)"
^XMB(3.9,53,2,3534,0)=" S IBT(8)="""""
^XMB(3.9,53,2,3535,0)="""RTN"",""IBTRKR41"",58,0)"
^XMB(3.9,53,2,3536,0)=" S IBT(9)=""*The SC, Agent Orange, Environmental Contaminate, Ionizing Radiation,"""
^XMB(3.9,53,2,3537,0)="""RTN"",""IBTRKR41"",59,0)"
^XMB(3.9,53,2,3538,0)=" S IBT(10)=""Military Sexual Trauma,Head Neck Cancer and Combat Veteran status"""
^XMB(3.9,53,2,3539,0)="""RTN"",""IBTRKR41"",60,0)"
^XMB(3.9,53,2,3540,0)=" S IBT(11)=""visits have been added for insured patients but automatically"""
^XMB(3.9,53,2,3541,0)="""RTN"",""IBTRKR41"",61,0)"
^XMB(3.9,53,2,3542,0)=" S IBT(12)=""indicated as not billable."""
^XMB(3.9,53,2,3543,0)="""RTN"",""IBTRKR41"",62,0)"
^XMB(3.9,53,2,3544,0)=" D SEND^IBTRKR31"
^XMB(3.9,53,2,3545,0)="""RTN"",""IBTRKR41"",63,0)"
^XMB(3.9,53,2,3546,0)="BULLQ Q"
^XMB(3.9,53,2,3547,0)="""RTN"",""IBTRKR41"",64,0)"
^XMB(3.9,53,2,3548,0)=" ;"
^XMB(3.9,53,2,3549,0)="""RTN"",""IBTRKR41"",65,0)"
^XMB(3.9,53,2,3550,0)="CL(IBOEDATA,IBR) ; check out classification questions for encounter"
^XMB(3.9,53,2,3551,0)="""RTN"",""IBTRKR41"",66,0)"
^XMB(3.9,53,2,3552,0)=" ; this new check will look at the V POV level then to the Visit level"
^XMB(3.9,53,2,3553,0)="""RTN"",""IBTRKR41"",67,0)"
^XMB(3.9,53,2,3554,0)=" ; as necessary to determine if it relates or not.  This will indicate"
^XMB(3.9,53,2,3555,0)="""RTN"",""IBTRKR41"",68,0)"
^XMB(3.9,53,2,3556,0)=" ; if the WHOLE visit is not billable, otherwise it will say it is"
^XMB(3.9,53,2,3557,0)="""RTN"",""IBTRKR41"",69,0)"
^XMB(3.9,53,2,3558,0)=" ; (even if just part is billable)."
^XMB(3.9,53,2,3559,0)="""RTN"",""IBTRKR41"",70,0)"
^XMB(3.9,53,2,3560,0)=" ; call with the zero node of 409.68 in IBOEDATA"
^XMB(3.9,53,2,3561,0)="""RTN"",""IBTRKR41"",71,0)"
^XMB(3.9,53,2,3562,0)=" ; assumes DFN and IBDT defined"
^XMB(3.9,53,2,3563,0)="""RTN"",""IBTRKR41"",72,0)"
^XMB(3.9,53,2,3564,0)=" ; pass in IBR by ref to get values back"
^XMB(3.9,53,2,3565,0)="""RTN"",""IBTRKR41"",73,0)"
^XMB(3.9,53,2,3566,0)=" ;"
^XMB(3.9,53,2,3567,0)="""RTN"",""IBTRKR41"",74,0)"
^XMB(3.9,53,2,3568,0)=" N IBRMARK,IBPCEX,IBCPT,IBARR,IBP,IBDX,IBVRNB,IBENCL"
^XMB(3.9,53,2,3569,0)="""RTN"",""IBTRKR41"",75,0)"
^XMB(3.9,53,2,3570,0)=" S IBRMARK="""",IBPCEX=$P(IBOEDATA,""^"",5)"
^XMB(3.9,53,2,3571,0)="""RTN"",""IBTRKR41"",76,0)"
^XMB(3.9,53,2,3572,0)=" ;"
^XMB(3.9,53,2,3573,0)="""RTN"",""IBTRKR41"",77,0)"
^XMB(3.9,53,2,3574,0)=" ; look up classification info needed (if any)"
^XMB(3.9,53,2,3575,0)="""RTN"",""IBTRKR41"",78,0)"
^XMB(3.9,53,2,3576,0)=" D CL^SDCO21(DFN,IBDT,"""",.IBARR) I '$D(IBARR) G CLQ"
^XMB(3.9,53,2,3577,0)="""RTN"",""IBTRKR41"",79,0)"
^XMB(3.9,53,2,3578,0)=" ;"
^XMB(3.9,53,2,3579,0)="""RTN"",""IBTRKR41"",80,0)"
^XMB(3.9,53,2,3580,0)=" ; if no PCE event use old approach"
^XMB(3.9,53,2,3581,0)="""RTN"",""IBTRKR41"",81,0)"
^XMB(3.9,53,2,3582,0)=" I 'IBPCEX D:$G(IBOE)  G CLQ"
^XMB(3.9,53,2,3583,0)="""RTN"",""IBTRKR41"",82,0)"
^XMB(3.9,53,2,3584,0)=" . S IBENCL=$$ENCL^IBAMTS2(IBOE) I IBENCL[""1"" D  ; return 1 in string if true ""ao^ir^sc^ec^mst^hnc^cv"""
^XMB(3.9,53,2,3585,0)="""RTN"",""IBTRKR41"",83,0)"
^XMB(3.9,53,2,3586,0)=" . I $P(IBENCL,""^"",3) S IBRMARK=""SC TREATMENT"" Q"
^XMB(3.9,53,2,3587,0)="""RTN"",""IBTRKR41"",84,0)"
^XMB(3.9,53,2,3588,0)=" . I $P(IBENCL,""^"",1) S IBRMARK=""AGENT ORANGE"" Q"
^XMB(3.9,53,2,3589,0)="""RTN"",""IBTRKR41"",85,0)"
^XMB(3.9,53,2,3590,0)=" . I $P(IBENCL,""^"",2) S IBRMARK=""IONIZING RADIATION"" Q"
^XMB(3.9,53,2,3591,0)="""RTN"",""IBTRKR41"",86,0)"
^XMB(3.9,53,2,3592,0)=" . I $P(IBENCL,""^"",4) S IBRMARK=""ENV. CONTAM."" Q"
^XMB(3.9,53,2,3593,0)="""RTN"",""IBTRKR41"",87,0)"
^XMB(3.9,53,2,3594,0)=" . I $P(IBENCL,""^"",5) S IBRMARK=""MILITARY SEXUAL TRAUMA"" Q"
^XMB(3.9,53,2,3595,0)="""RTN"",""IBTRKR41"",88,0)"
^XMB(3.9,53,2,3596,0)=" . I $P(IBENCL,""^"",6) S IBRMARK=""HEAD/NECK CANCER"" Q"
^XMB(3.9,53,2,3597,0)="""RTN"",""IBTRKR41"",89,0)"
^XMB(3.9,53,2,3598,0)=" . I $P(IBENCL,""^"",7) S IBRMARK=""COMBAT VETERAN"" Q"
^XMB(3.9,53,2,3599,0)="""RTN"",""IBTRKR41"",90,0)"
^XMB(3.9,53,2,3600,0)=" ;"
^XMB(3.9,53,2,3601,0)="""RTN"",""IBTRKR41"",91,0)"
^XMB(3.9,53,2,3602,0)=" ; look up PCE info"
^XMB(3.9,53,2,3603,0)="""RTN"",""IBTRKR41"",92,0)"
^XMB(3.9,53,2,3604,0)=" D ENCEVENT^PXKENC(IBPCEX)"
^XMB(3.9,53,2,3605,0)="""RTN"",""IBTRKR41"",93,0)"
^XMB(3.9,53,2,3606,0)=" ;"
^XMB(3.9,53,2,3607,0)="""RTN"",""IBTRKR41"",94,0)"
^XMB(3.9,53,2,3608,0)=" S IBVRNB=$$RNB($G(^TMP(""PXKENC"",$J,IBPCEX,""VST"",IBPCEX,800)),.IBARR)"
^XMB(3.9,53,2,3609,0)="""RTN"",""IBTRKR41"",95,0)"
^XMB(3.9,53,2,3610,0)=" ;"
^XMB(3.9,53,2,3611,0)="""RTN"",""IBTRKR41"",96,0)"
^XMB(3.9,53,2,3612,0)=" ; find dx rnb's"
^XMB(3.9,53,2,3613,0)="""RTN"",""IBTRKR41"",97,0)"
^XMB(3.9,53,2,3614,0)=" S IBDX=0 F  S IBDX=$O(^TMP(""PXKENC"",$J,IBPCEX,""POV"",IBDX)) Q:'IBDX  S IBDX(+$G(^TMP(""PXKENC"",$J,IBPCEX,""POV"",IBDX,0)))=$$RNB($G(^TMP(""PXKENC"",$J,IBPCEX,""POV"",IBDX,800)),.IBARR)"
^XMB(3.9,53,2,3615,0)="""RTN"",""IBTRKR41"",98,0)"
^XMB(3.9,53,2,3616,0)=" ;"
^XMB(3.9,53,2,3617,0)="""RTN"",""IBTRKR41"",99,0)"
^XMB(3.9,53,2,3618,0)=" ; look for v cpt's with IBDX"
^XMB(3.9,53,2,3619,0)="""RTN"",""IBTRKR41"",100,0)"
^XMB(3.9,53,2,3620,0)=" S IBCPT=0 F  S IBCPT=$O(^TMP(""PXKENC"",$J,IBPCEX,""CPT"",IBCPT)) Q:'IBCPT  F IBP=5,9,10,11 Q:'$D(^TMP(""PXKENC"",$J,IBPCEX,""CPT"",IBCPT,0))  D"
^XMB(3.9,53,2,3621,0)="""RTN"",""IBTRKR41"",101,0)"
^XMB(3.9,53,2,3622,0)=" . ;"
^XMB(3.9,53,2,3623,0)="""RTN"",""IBTRKR41"",102,0)"
^XMB(3.9,53,2,3624,0)=" . ; dx exists in v cpt but not v pov use visit level determination"
^XMB(3.9,53,2,3625,0)="""RTN"",""IBTRKR41"",103,0)"
^XMB(3.9,53,2,3626,0)=" . I $P(^TMP(""PXKENC"",$J,IBPCEX,""CPT"",IBCPT,0),""^"",IBP),'$D(IBDX($P(^TMP(""PXKENC"",$J,IBPCEX,""CPT"",IBCPT,0),""^"",IBP))) D:IBVRNB REL(IBVRNB) Q"
^XMB(3.9,53,2,3627,0)="""RTN"",""IBTRKR41"",104,0)"
^XMB(3.9,53,2,3628,0)=" . ;"
^XMB(3.9,53,2,3629,0)="""RTN"",""IBTRKR41"",105,0)"
^XMB(3.9,53,2,3630,0)=" . ; use dx determination (where dx exists on v cpt)"
^XMB(3.9,53,2,3631,0)="""RTN"",""IBTRKR41"",106,0)"
^XMB(3.9,53,2,3632,0)=" . I $P(^TMP(""PXKENC"",$J,IBPCEX,""CPT"",IBCPT,0),""^"",IBP) D:$G(IBDX($P(^TMP(""PXKENC"",$J,IBPCEX,""CPT"",IBCPT,0),""^"",IBP))) REL($G(IBDX($P(^TMP(""PXKENC"",$J,IBPCEX,""CPT"",IBCPT,0),""^"",IBP)))) Q"
^XMB(3.9,53,2,3633,0)="""RTN"",""IBTRKR41"",107,0)"
^XMB(3.9,53,2,3634,0)=" ;"
^XMB(3.9,53,2,3635,0)="""RTN"",""IBTRKR41"",108,0)"
^XMB(3.9,53,2,3636,0)=" ; check for no assoc dx and apply visit level determination"
^XMB(3.9,53,2,3637,0)="""RTN"",""IBTRKR41"",109,0)"
^XMB(3.9,53,2,3638,0)=" S IBCPT=0 F  S IBCPT=$O(^TMP(""PXKENC"",$J,IBPCEX,""CPT"",IBCPT)) Q:'IBCPT  D"
^XMB(3.9,53,2,3639,0)="""RTN"",""IBTRKR41"",110,0)"
^XMB(3.9,53,2,3640,0)=" . S IBDX=0 F IBP=5,9,10,11 Q:IBDX  I +$P($G(^TMP(""PXKENC"",$J,IBPCEX,""CPT"",IBCPT,0)),""^"",IBP) S IBDX=1"
^XMB(3.9,53,2,3641,0)="""RTN"",""IBTRKR41"",111,0)"
^XMB(3.9,53,2,3642,0)=" . I 'IBDX,IBVRNB D REL(IBVRNB)"
^XMB(3.9,53,2,3643,0)="""RTN"",""IBTRKR41"",112,0)"
^XMB(3.9,53,2,3644,0)=" ;"
^XMB(3.9,53,2,3645,0)="""RTN"",""IBTRKR41"",113,0)"
^XMB(3.9,53,2,3646,0)=" ; if some procedures left, then we need to bill, set return array"
^XMB(3.9,53,2,3647,0)="""RTN"",""IBTRKR41"",114,0)"
^XMB(3.9,53,2,3648,0)=" I $D(^TMP(""PXKENC"",$J,IBPCEX,""CPT"")) S IBRMARK="""" M IBR=^TMP(""PXKENC"",$J,IBPCEX)"
^XMB(3.9,53,2,3649,0)="""RTN"",""IBTRKR41"",115,0)"
^XMB(3.9,53,2,3650,0)=" ;"
^XMB(3.9,53,2,3651,0)="""RTN"",""IBTRKR41"",116,0)"
^XMB(3.9,53,2,3652,0)="CLQ K ^TMP(""PXKENC"",$J)"
^XMB(3.9,53,2,3653,0)="""RTN"",""IBTRKR41"",117,0)"
^XMB(3.9,53,2,3654,0)=" Q IBRMARK"
^XMB(3.9,53,2,3655,0)="""RTN"",""IBTRKR41"",118,0)"
^XMB(3.9,53,2,3656,0)=" ;"
^XMB(3.9,53,2,3657,0)="""RTN"",""IBTRKR41"",119,0)"
^XMB(3.9,53,2,3658,0)="RNB(IBDATA,IBARR) ; find rnb's"
^XMB(3.9,53,2,3659,0)="""RTN"",""IBTRKR41"",120,0)"
^XMB(3.9,53,2,3660,0)=" ; pass in PCE 800 data (visit or v pov) to find any reasons not billalbe"
^XMB(3.9,53,2,3661,0)="""RTN"",""IBTRKR41"",121,0)"
^XMB(3.9,53,2,3662,0)=" ; IBARR = classifications that could apply to patient"
^XMB(3.9,53,2,3663,0)="""RTN"",""IBTRKR41"",122,0)"
^XMB(3.9,53,2,3664,0)=" ; the RNB number returned is from the IBARR number (SDCO21 array)"
^XMB(3.9,53,2,3665,0)="""RTN"",""IBTRKR41"",123,0)"
^XMB(3.9,53,2,3666,0)=" N IBX,IBR S IBR="""""
^XMB(3.9,53,2,3667,0)="""RTN"",""IBTRKR41"",124,0)"
^XMB(3.9,53,2,3668,0)=" S IBX=0 F  S IBX=$O(IBARR(IBX)) Q:'IBX!(IBR)  I $P(IBDATA,""^"",$P($T(CLDATA+(IBX+1)),""^"",2)) S IBR=IBX"
^XMB(3.9,53,2,3669,0)="""RTN"",""IBTRKR41"",125,0)"
^XMB(3.9,53,2,3670,0)=" Q IBR"
^XMB(3.9,53,2,3671,0)="""RTN"",""IBTRKR41"",126,0)"
^XMB(3.9,53,2,3672,0)=" ;"
^XMB(3.9,53,2,3673,0)="""RTN"",""IBTRKR41"",127,0)"
^XMB(3.9,53,2,3674,0)="REL(IBRNB) ; kills of tmp if related and set IBRMARK"
^XMB(3.9,53,2,3675,0)="""RTN"",""IBTRKR41"",128,0)"
^XMB(3.9,53,2,3676,0)=" K ^TMP(""PXKENC"",$J,IBPCEX,""CPT"",IBCPT)"
^XMB(3.9,53,2,3677,0)="""RTN"",""IBTRKR41"",129,0)"
^XMB(3.9,53,2,3678,0)=" S IBRMARK=$P($T(CLDATA+(IBRNB+1)),""^"",3)"
^XMB(3.9,53,2,3679,0)="""RTN"",""IBTRKR41"",130,0)"
^XMB(3.9,53,2,3680,0)=" Q"
^XMB(3.9,53,2,3681,0)="""RTN"",""IBTRKR41"",131,0)"
^XMB(3.9,53,2,3682,0)=" ;"
^XMB(3.9,53,2,3683,0)="""RTN"",""IBTRKR41"",132,0)"
^XMB(3.9,53,2,3684,0)="CLDATA ; classification data"
^XMB(3.9,53,2,3685,0)="""RTN"",""IBTRKR41"",133,0)"
^XMB(3.9,53,2,3686,0)=" ; format is:  SCDO21 array^vpov/vcpt/visit 800 piece^reason not billable"
^XMB(3.9,53,2,3687,0)="""RTN"",""IBTRKR41"",134,0)"
^XMB(3.9,53,2,3688,0)=" ;;1^2^AGENT ORANGE"
^XMB(3.9,53,2,3689,0)="""RTN"",""IBTRKR41"",135,0)"
^XMB(3.9,53,2,3690,0)=" ;;2^3^IONIZING RADIATION"
^XMB(3.9,53,2,3691,0)="""RTN"",""IBTRKR41"",136,0)"
^XMB(3.9,53,2,3692,0)=" ;;3^1^SC TREATMENT"
^XMB(3.9,53,2,3693,0)="""RTN"",""IBTRKR41"",137,0)"
^XMB(3.9,53,2,3694,0)=" ;;4^4^ENV. CONTAM."
^XMB(3.9,53,2,3695,0)="""RTN"",""IBTRKR41"",138,0)"
^XMB(3.9,53,2,3696,0)=" ;;5^5^MILITARY SEXUAL TRAUMA"
^XMB(3.9,53,2,3697,0)="""RTN"",""IBTRKR41"",139,0)"
^XMB(3.9,53,2,3698,0)=" ;;6^6^HEAD/NECK CANCER"
^XMB(3.9,53,2,3699,0)="""RTN"",""IBTRKR41"",140,0)"
^XMB(3.9,53,2,3700,0)=" ;;7^7^COMBAT VETERAN"
^XMB(3.9,53,2,3701,0)="""RTN"",""IBTRKR41"",141,0)"
^XMB(3.9,53,2,3702,0)=" ;"
^XMB(3.9,53,2,3703,0)="""RTN"",""IBTRKR5"")"
^XMB(3.9,53,2,3704,0)="0^8^B30688575^B25744902"
^XMB(3.9,53,2,3705,0)="""RTN"",""IBTRKR5"",1,0)"
^XMB(3.9,53,2,3706,0)="IBTRKR5 ;ALB/AAS - CLAIMS TRACKING - ADD/TRACK PROSTHETICS ;13-JAN-94"
^XMB(3.9,53,2,3707,0)="""RTN"",""IBTRKR5"",2,0)"
^XMB(3.9,53,2,3708,0)=" ;;2.0;INTEGRATED BILLING;**13,260,312**;21-MAR-94"
^XMB(3.9,53,2,3709,0)="""RTN"",""IBTRKR5"",3,0)"
^XMB(3.9,53,2,3710,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,53,2,3711,0)="""RTN"",""IBTRKR5"",4,0)"
^XMB(3.9,53,2,3712,0)=" ;"
^XMB(3.9,53,2,3713,0)="""RTN"",""IBTRKR5"",5,0)"
^XMB(3.9,53,2,3714,0)="% ; -- entry point for nightly background job"
^XMB(3.9,53,2,3715,0)="""RTN"",""IBTRKR5"",6,0)"
^XMB(3.9,53,2,3716,0)=" N IBTSBDT,IBTSEDT"
^XMB(3.9,53,2,3717,0)="""RTN"",""IBTRKR5"",7,0)"
^XMB(3.9,53,2,3718,0)=" S IBTSBDT=$$FMADD^XLFDT(DT,-30)-.1"
^XMB(3.9,53,2,3719,0)="""RTN"",""IBTRKR5"",8,0)"
^XMB(3.9,53,2,3720,0)=" S IBTSEDT=$$FMADD^XLFDT(DT,-3)+.9"
^XMB(3.9,53,2,3721,0)="""RTN"",""IBTRKR5"",9,0)"
^XMB(3.9,53,2,3722,0)=" D EN1"
^XMB(3.9,53,2,3723,0)="""RTN"",""IBTRKR5"",10,0)"
^XMB(3.9,53,2,3724,0)=" Q"
^XMB(3.9,53,2,3725,0)="""RTN"",""IBTRKR5"",11,0)"
^XMB(3.9,53,2,3726,0)=" ;"
^XMB(3.9,53,2,3727,0)="""RTN"",""IBTRKR5"",12,0)"
^XMB(3.9,53,2,3728,0)="EN ; -- entry point to ask date range"
^XMB(3.9,53,2,3729,0)="""RTN"",""IBTRKR5"",13,0)"
^XMB(3.9,53,2,3730,0)=" N IBSWINFO S IBSWINFO=$$SWSTAT^IBBAPI()                   ;IB*2.0*312"
^XMB(3.9,53,2,3731,0)="""RTN"",""IBTRKR5"",14,0)"
^XMB(3.9,53,2,3732,0)=" N IBBDT,IBEDT,IBTSBDT,IBTSEDT,IBTALK"
^XMB(3.9,53,2,3733,0)="""RTN"",""IBTRKR5"",15,0)"
^XMB(3.9,53,2,3734,0)=" S IBTALK=1"
^XMB(3.9,53,2,3735,0)="""RTN"",""IBTRKR5"",16,0)"
^XMB(3.9,53,2,3736,0)=" I '$P($G(^IBE(350.9,1,6)),""^"",4) W !!,""I'm sorry, Tracking of Prosthetics is currrently turned off."" G ENQ"
^XMB(3.9,53,2,3737,0)="""RTN"",""IBTRKR5"",17,0)"
^XMB(3.9,53,2,3738,0)=" W !!!,""Select the Date Range of Prosthetics to Add to Claims Tracking."",!"
^XMB(3.9,53,2,3739,0)="""RTN"",""IBTRKR5"",18,0)"
^XMB(3.9,53,2,3740,0)=" D DATE^IBOUTL"
^XMB(3.9,53,2,3741,0)="""RTN"",""IBTRKR5"",19,0)"
^XMB(3.9,53,2,3742,0)=" I IBBDT<1!(IBEDT<1) G ENQ"
^XMB(3.9,53,2,3743,0)="""RTN"",""IBTRKR5"",20,0)"
^XMB(3.9,53,2,3744,0)=" S IBTSBDT=IBBDT,IBTSEDT=IBEDT"
^XMB(3.9,53,2,3745,0)="""RTN"",""IBTRKR5"",21,0)"
^XMB(3.9,53,2,3746,0)=" ;"
^XMB(3.9,53,2,3747,0)="""RTN"",""IBTRKR5"",22,0)"
^XMB(3.9,53,2,3748,0)=" ; -- check selected dates                                 ;IB*2.0*312"
^XMB(3.9,53,2,3749,0)="""RTN"",""IBTRKR5"",23,0)"
^XMB(3.9,53,2,3750,0)=" ; Do NOT PROCESS on VistA if Start or End>=Switch Eff Dt  ;CCR-930"
^XMB(3.9,53,2,3751,0)="""RTN"",""IBTRKR5"",24,0)"
^XMB(3.9,53,2,3752,0)=" I ((IBTSBDT+1)>$P(IBSWINFO,""^"",2))!((IBTSEDT+1)>$P(IBSWINFO,""^"",2)) D  G EN"
^XMB(3.9,53,2,3753,0)="""RTN"",""IBTRKR5"",25,0)"
^XMB(3.9,53,2,3754,0)="  .W !!,""The Begin OR End Date CANNOT be on or after the PFSS Effective date"""
^XMB(3.9,53,2,3755,0)="""RTN"",""IBTRKR5"",26,0)"
^XMB(3.9,53,2,3756,0)="  .W "": "",$$FMTE^XLFDT($P(IBSWINFO,""^"",2))"
^XMB(3.9,53,2,3757,0)="""RTN"",""IBTRKR5"",27,0)"
^XMB(3.9,53,2,3758,0)=" ;"
^XMB(3.9,53,2,3759,0)="""RTN"",""IBTRKR5"",28,0)"
^XMB(3.9,53,2,3760,0)=" S IBTRKR=$G(^IBE(350.9,1,6))"
^XMB(3.9,53,2,3761,0)="""RTN"",""IBTRKR5"",29,0)"
^XMB(3.9,53,2,3762,0)=" ; start date can't be before parameters"
^XMB(3.9,53,2,3763,0)="""RTN"",""IBTRKR5"",30,0)"
^XMB(3.9,53,2,3764,0)=" I +IBTRKR,IBTSBDT<+IBTRKR S IBTSBDT=IBTRKR W !!,""Begin date is before Claims Tracking Start Date, changed to "",$$DAT1^IBOUTL(IBTSBDT)"
^XMB(3.9,53,2,3765,0)="""RTN"",""IBTRKR5"",31,0)"
^XMB(3.9,53,2,3766,0)=" ; -- end date into future"
^XMB(3.9,53,2,3767,0)="""RTN"",""IBTRKR5"",32,0)"
^XMB(3.9,53,2,3768,0)=" I IBTSEDT>$$FMADD^XLFDT(DT,-3) W !!,""I'll automatically change the end date to 3 days prior to the date queued to run."""
^XMB(3.9,53,2,3769,0)="""RTN"",""IBTRKR5"",33,0)"
^XMB(3.9,53,2,3770,0)=" ;"
^XMB(3.9,53,2,3771,0)="""RTN"",""IBTRKR5"",34,0)"
^XMB(3.9,53,2,3772,0)=" W !!!,""I'm going to automatically queue this off and send you a"""
^XMB(3.9,53,2,3773,0)="""RTN"",""IBTRKR5"",35,0)"
^XMB(3.9,53,2,3774,0)=" W !,""mail message when complete."",!"
^XMB(3.9,53,2,3775,0)="""RTN"",""IBTRKR5"",36,0)"
^XMB(3.9,53,2,3776,0)=" S ZTIO="""",ZTRTN=""EN1^IBTRKR5"",ZTSAVE(""IB*"")="""",ZTDESC=""IB - Add Prosthetics to Claims Tracking"""
^XMB(3.9,53,2,3777,0)="""RTN"",""IBTRKR5"",37,0)"
^XMB(3.9,53,2,3778,0)=" D ^%ZTLOAD I $G(ZTSK) K ZTSK W !,""Request Queued"""
^XMB(3.9,53,2,3779,0)="""RTN"",""IBTRKR5"",38,0)"
^XMB(3.9,53,2,3780,0)="ENQ K ZTSK,ZTIO,ZTSAVE,ZTDESC,ZTRTN"
^XMB(3.9,53,2,3781,0)="""RTN"",""IBTRKR5"",39,0)"
^XMB(3.9,53,2,3782,0)=" D HOME^%ZIS"
^XMB(3.9,53,2,3783,0)="""RTN"",""IBTRKR5"",40,0)"
^XMB(3.9,53,2,3784,0)=" Q"
^XMB(3.9,53,2,3785,0)="""RTN"",""IBTRKR5"",41,0)"
^XMB(3.9,53,2,3786,0)=" ;"
^XMB(3.9,53,2,3787,0)="""RTN"",""IBTRKR5"",42,0)"
^XMB(3.9,53,2,3788,0)="EN1 ; -- add prostethics to claims tracking file"
^XMB(3.9,53,2,3789,0)="""RTN"",""IBTRKR5"",43,0)"
^XMB(3.9,53,2,3790,0)=" N I,J,X,Y,IBTRKR,IBDT,DFN,IBDATA,IBCNT,IBCNT1,IBCNT2,IBDTS"
^XMB(3.9,53,2,3791,0)="""RTN"",""IBTRKR5"",44,0)"
^XMB(3.9,53,2,3792,0)=" N IBSWINFO S IBSWINFO=$$SWSTAT^IBBAPI()                   ;IB*2.0*312"
^XMB(3.9,53,2,3793,0)="""RTN"",""IBTRKR5"",45,0)"
^XMB(3.9,53,2,3794,0)=" ;"
^XMB(3.9,53,2,3795,0)="""RTN"",""IBTRKR5"",46,0)"
^XMB(3.9,53,2,3796,0)=" ; -- check parameters"
^XMB(3.9,53,2,3797,0)="""RTN"",""IBTRKR5"",47,0)"
^XMB(3.9,53,2,3798,0)=" S IBTRKR=$G(^IBE(350.9,1,6))"
^XMB(3.9,53,2,3799,0)="""RTN"",""IBTRKR5"",48,0)"
^XMB(3.9,53,2,3800,0)=" G:'$P(IBTRKR,""^"",5) EN1Q ; quit if prothetics tracking off"
^XMB(3.9,53,2,3801,0)="""RTN"",""IBTRKR5"",49,0)"
^XMB(3.9,53,2,3802,0)=" I +IBTRKR,IBTSBDT<+IBTRKR S IBTSBDT=IBTRKR ; start date can't be before parameters"
^XMB(3.9,53,2,3803,0)="""RTN"",""IBTRKR5"",50,0)"
^XMB(3.9,53,2,3804,0)=" ;"
^XMB(3.9,53,2,3805,0)="""RTN"",""IBTRKR5"",51,0)"
^XMB(3.9,53,2,3806,0)=" ; -- users can queue into future, make sure dates not after date run"
^XMB(3.9,53,2,3807,0)="""RTN"",""IBTRKR5"",52,0)"
^XMB(3.9,53,2,3808,0)=" I IBTSEDT>$$FMADD^XLFDT(DT,-3) S IBMESS=""(Selected end date of ""_$$DAT1^IBOUTL(IBTSEDT)_"" automatically changed to ""_$$DAT1^IBOUTL($$FMADD^XLFDT(DT,-3))_"".)"",IBTSEDT=$$FMADD^XLFDT(DT,-3)"
^XMB(3.9,53,2,3809,0)="""RTN"",""IBTRKR5"",53,0)"
^XMB(3.9,53,2,3810,0)=" ;"
^XMB(3.9,53,2,3811,0)="""RTN"",""IBTRKR5"",54,0)"
^XMB(3.9,53,2,3812,0)=" ;S IBPRTYP=$O(^IBE(356.6,""AC"",3,0)) ; this is the event type pointer for prosthetics"
^XMB(3.9,53,2,3813,0)="""RTN"",""IBTRKR5"",55,0)"
^XMB(3.9,53,2,3814,0)=" ;"
^XMB(3.9,53,2,3815,0)="""RTN"",""IBTRKR5"",56,0)"
^XMB(3.9,53,2,3816,0)=" ; -- cnt= total count, cnt1=count added nsc, cnt2=count of pending"
^XMB(3.9,53,2,3817,0)="""RTN"",""IBTRKR5"",57,0)"
^XMB(3.9,53,2,3818,0)=" S (IBCNT,IBCNT1,IBCNT2)=0"
^XMB(3.9,53,2,3819,0)="""RTN"",""IBTRKR5"",58,0)"
^XMB(3.9,53,2,3820,0)=" S (IBDTS,IBDT)=IBTSBDT-.0001"
^XMB(3.9,53,2,3821,0)="""RTN"",""IBTRKR5"",59,0)"
^XMB(3.9,53,2,3822,0)=" ;"
^XMB(3.9,53,2,3823,0)="""RTN"",""IBTRKR5"",60,0)"
^XMB(3.9,53,2,3824,0)=" ; loop twice, once for shipmnet date (new search), and once for"
^XMB(3.9,53,2,3825,0)="""RTN"",""IBTRKR5"",61,0)"
^XMB(3.9,53,2,3826,0)=" ; delivery date (old search) for backward compatibility."
^XMB(3.9,53,2,3827,0)="""RTN"",""IBTRKR5"",62,0)"
^XMB(3.9,53,2,3828,0)=" F  S IBDT=$O(^RMPR(660,""AF"",IBDT)) Q:'IBDT!(IBDT>IBTSEDT)  D"
^XMB(3.9,53,2,3829,0)="""RTN"",""IBTRKR5"",63,0)"
^XMB(3.9,53,2,3830,0)="    .; Do NOT PROCESS on VistA if IBDT>=Switch Eff Date    ;CCR-930"
^XMB(3.9,53,2,3831,0)="""RTN"",""IBTRKR5"",64,0)"
^XMB(3.9,53,2,3832,0)="    .I +IBSWINFO,(IBDT+1)>$P(IBSWINFO,""^"",2) Q             ;IB*2.0*312"
^XMB(3.9,53,2,3833,0)="""RTN"",""IBTRKR5"",65,0)"
^XMB(3.9,53,2,3834,0)="    .S IBDA=0 F  S IBDA=$O(^RMPR(660,""AF"",IBDT,IBDA)) Q:'IBDA  D PRCHK"
^XMB(3.9,53,2,3835,0)="""RTN"",""IBTRKR5"",66,0)"
^XMB(3.9,53,2,3836,0)=" ;"
^XMB(3.9,53,2,3837,0)="""RTN"",""IBTRKR5"",67,0)"
^XMB(3.9,53,2,3838,0)=" ; reset date and do old check"
^XMB(3.9,53,2,3839,0)="""RTN"",""IBTRKR5"",68,0)"
^XMB(3.9,53,2,3840,0)=" S IBDT=IBDTS"
^XMB(3.9,53,2,3841,0)="""RTN"",""IBTRKR5"",69,0)"
^XMB(3.9,53,2,3842,0)=" F  S IBDT=$O(^RMPR(660,""CT"",IBDT)) Q:'IBDT!(IBDT>IBTSEDT)  D"
^XMB(3.9,53,2,3843,0)="""RTN"",""IBTRKR5"",70,0)"
^XMB(3.9,53,2,3844,0)="    .; Do NOT PROCESS on VistA if IBDT>=Switch Eff Date    ;CCR-930"
^XMB(3.9,53,2,3845,0)="""RTN"",""IBTRKR5"",71,0)"
^XMB(3.9,53,2,3846,0)="    .I +IBSWINFO,(IBDT+1)>$P(IBSWINFO,""^"",2) Q             ;IB*2.0*312"
^XMB(3.9,53,2,3847,0)="""RTN"",""IBTRKR5"",72,0)"
^XMB(3.9,53,2,3848,0)="    .S IBDA="""" F  S IBDA=$O(^RMPR(660,""CT"",IBDT,IBDA)) Q:'IBDA  D PRCHK"
^XMB(3.9,53,2,3849,0)="""RTN"",""IBTRKR5"",73,0)"
^XMB(3.9,53,2,3850,0)=" ;"
^XMB(3.9,53,2,3851,0)="""RTN"",""IBTRKR5"",74,0)"
^XMB(3.9,53,2,3852,0)=" I $G(IBTALK) D BULL ;^IBTRKR51"
^XMB(3.9,53,2,3853,0)="""RTN"",""IBTRKR5"",75,0)"
^XMB(3.9,53,2,3854,0)="EN1Q I $D(ZTQUEUED) S ZTREQ=""@"""
^XMB(3.9,53,2,3855,0)="""RTN"",""IBTRKR5"",76,0)"
^XMB(3.9,53,2,3856,0)=" Q"
^XMB(3.9,53,2,3857,0)="""RTN"",""IBTRKR5"",77,0)"
^XMB(3.9,53,2,3858,0)=" ;"
^XMB(3.9,53,2,3859,0)="""RTN"",""IBTRKR5"",78,0)"
^XMB(3.9,53,2,3860,0)="PRCHK ; -- check and add item"
^XMB(3.9,53,2,3861,0)="""RTN"",""IBTRKR5"",79,0)"
^XMB(3.9,53,2,3862,0)=" N IBE,IBP,IBDX,IBRMARK,IBARR,IBT"
^XMB(3.9,53,2,3863,0)="""RTN"",""IBTRKR5"",80,0)"
^XMB(3.9,53,2,3864,0)=" S IBCNT=IBCNT+1,IBRMARK="""""
^XMB(3.9,53,2,3865,0)="""RTN"",""IBTRKR5"",81,0)"
^XMB(3.9,53,2,3866,0)=" I '$D(ZTQUEUED),($G(IBTALK)) W ""."""
^XMB(3.9,53,2,3867,0)="""RTN"",""IBTRKR5"",82,0)"
^XMB(3.9,53,2,3868,0)=" ;"
^XMB(3.9,53,2,3869,0)="""RTN"",""IBTRKR5"",83,0)"
^XMB(3.9,53,2,3870,0)=" S IBDATA=$G(^RMPR(660,+IBDA,0)) Q:IBDATA="""""
^XMB(3.9,53,2,3871,0)="""RTN"",""IBTRKR5"",84,0)"
^XMB(3.9,53,2,3872,0)=" S DFN=$P(IBDATA,""^"",2)"
^XMB(3.9,53,2,3873,0)="""RTN"",""IBTRKR5"",85,0)"
^XMB(3.9,53,2,3874,0)=" D CL^SDCO21(DFN,IBDT,"""",.IBARR)"
^XMB(3.9,53,2,3875,0)="""RTN"",""IBTRKR5"",86,0)"
^XMB(3.9,53,2,3876,0)=" ;"
^XMB(3.9,53,2,3877,0)="""RTN"",""IBTRKR5"",87,0)"
^XMB(3.9,53,2,3878,0)=" ; -- checks copied from rmprbil v2.0 /feb 2, 1994"
^XMB(3.9,53,2,3879,0)="""RTN"",""IBTRKR5"",88,0)"
^XMB(3.9,53,2,3880,0)=" Q:'$D(^RMPR(660,+IBDA,""AM""))"
^XMB(3.9,53,2,3881,0)="""RTN"",""IBTRKR5"",89,0)"
^XMB(3.9,53,2,3882,0)=" Q:$P(^RMPR(660,+IBDA,0),U,9)=""""!($P(^(0),U,12)="""")!($P(^(0),U,6)="""")!($P(^(0),U,14)=""V"")!($P(^(0),U,2)="""")!($P(^(0),U,15)=""*"")"
^XMB(3.9,53,2,3883,0)="""RTN"",""IBTRKR5"",90,0)"
^XMB(3.9,53,2,3884,0)=" ;Q:($P(^RMPR(660,+IBDA,""AM""),U,3)=2)!($P(^(""AM""),U,3)=3)"
^XMB(3.9,53,2,3885,0)="""RTN"",""IBTRKR5"",91,0)"
^XMB(3.9,53,2,3886,0)=" ;"
^XMB(3.9,53,2,3887,0)="""RTN"",""IBTRKR5"",92,0)"
^XMB(3.9,53,2,3888,0)=" ;"
^XMB(3.9,53,2,3889,0)="""RTN"",""IBTRKR5"",93,0)"
^XMB(3.9,53,2,3890,0)=" I $O(^IBT(356,""APRO"",IBDA,0)) G PRCHKQ ; already in claims tracking"
^XMB(3.9,53,2,3891,0)="""RTN"",""IBTRKR5"",94,0)"
^XMB(3.9,53,2,3892,0)=" ;"
^XMB(3.9,53,2,3893,0)="""RTN"",""IBTRKR5"",95,0)"
^XMB(3.9,53,2,3894,0)=" ; -- see if tracking only insured and pt is insured"
^XMB(3.9,53,2,3895,0)="""RTN"",""IBTRKR5"",96,0)"
^XMB(3.9,53,2,3896,0)=" I $P(IBTRKR,""^"",5)=1,'$$INSURED^IBCNS1(DFN,IBDT) G PRCHKQ ; patient not insure"
^XMB(3.9,53,2,3897,0)="""RTN"",""IBTRKR5"",97,0)"
^XMB(3.9,53,2,3898,0)=" ;"
^XMB(3.9,53,2,3899,0)="""RTN"",""IBTRKR5"",98,0)"
^XMB(3.9,53,2,3900,0)=" ; -- if clasifications required, check exemptions"
^XMB(3.9,53,2,3901,0)="""RTN"",""IBTRKR5"",99,0)"
^XMB(3.9,53,2,3902,0)=" I '$D(IBARR) G CLQ"
^XMB(3.9,53,2,3903,0)="""RTN"",""IBTRKR5"",100,0)"
^XMB(3.9,53,2,3904,0)=" F IBP=1:1:4 S IBDX(IBP)=$G(^RMPR(660,+IBDA,""BA""_IBP))"
^XMB(3.9,53,2,3905,0)="""RTN"",""IBTRKR5"",101,0)"
^XMB(3.9,53,2,3906,0)=" S IBE=0 F  S IBE=$O(IBARR(IBE)) Q:'IBE!($L($G(IBRMARK)))  F IBP=1:1:4 Q:$L($G(IBRMARK))  I IBDX(IBP) S IBRMARK=$S($P(IBDX(IBP),""^"",IBE+1):$P($T(CLTXT+IBE),"";"",3),$P(IBDX(IBP),""^"",IBE+1)=0:"""",1:""NEEDS SC DETERMINATION"")"
^XMB(3.9,53,2,3907,0)="""RTN"",""IBTRKR5"",102,0)"
^XMB(3.9,53,2,3908,0)=" ;"
^XMB(3.9,53,2,3909,0)="""RTN"",""IBTRKR5"",103,0)"
^XMB(3.9,53,2,3910,0)=" ;"
^XMB(3.9,53,2,3911,0)="""RTN"",""IBTRKR5"",104,0)"
^XMB(3.9,53,2,3912,0)="CLQ ; -- ok to add to tracking module"
^XMB(3.9,53,2,3913,0)="""RTN"",""IBTRKR5"",105,0)"
^XMB(3.9,53,2,3914,0)=" D PRO^IBTUTL1(DFN,IBDT,IBDA,$G(IBRMARK)) I '$D(ZTQUEUED),$G(IBTALK) W ""+"""
^XMB(3.9,53,2,3915,0)="""RTN"",""IBTRKR5"",106,0)"
^XMB(3.9,53,2,3916,0)=" I $G(IBRMARK)'="""" S IBCNT2=IBCNT2+1"
^XMB(3.9,53,2,3917,0)="""RTN"",""IBTRKR5"",107,0)"
^XMB(3.9,53,2,3918,0)=" I $G(IBRMARK)="""" S IBCNT1=IBCNT1+1"
^XMB(3.9,53,2,3919,0)="""RTN"",""IBTRKR5"",108,0)"
^XMB(3.9,53,2,3920,0)=" K VAEL,VA,IBDATA,DFN,X,Y"
^XMB(3.9,53,2,3921,0)="""RTN"",""IBTRKR5"",109,0)"
^XMB(3.9,53,2,3922,0)="PRCHKQ Q"
^XMB(3.9,53,2,3923,0)="""RTN"",""IBTRKR5"",110,0)"
^XMB(3.9,53,2,3924,0)=" ;"
^XMB(3.9,53,2,3925,0)="""RTN"",""IBTRKR5"",111,0)"
^XMB(3.9,53,2,3926,0)="BULL ; -- send bulletin"
^XMB(3.9,53,2,3927,0)="""RTN"",""IBTRKR5"",112,0)"
^XMB(3.9,53,2,3928,0)=" ;"
^XMB(3.9,53,2,3929,0)="""RTN"",""IBTRKR5"",113,0)"
^XMB(3.9,53,2,3930,0)=" S XMSUB=""Prothetic Items added to Claims Tracking Complete"""
^XMB(3.9,53,2,3931,0)="""RTN"",""IBTRKR5"",114,0)"
^XMB(3.9,53,2,3932,0)=" S IBT(1)=""The process to automatically add Prosthetic Items has successfully completed."""
^XMB(3.9,53,2,3933,0)="""RTN"",""IBTRKR5"",115,0)"
^XMB(3.9,53,2,3934,0)=" S IBT(1.1)="""""
^XMB(3.9,53,2,3935,0)="""RTN"",""IBTRKR5"",116,0)"
^XMB(3.9,53,2,3936,0)=" S IBT(2)=""                      Start Date: ""_$$DAT1^IBOUTL(IBTSBDT)"
^XMB(3.9,53,2,3937,0)="""RTN"",""IBTRKR5"",117,0)"
^XMB(3.9,53,2,3938,0)=" S IBT(3)=""                        End Date: ""_$$DAT1^IBOUTL(IBTSEDT)"
^XMB(3.9,53,2,3939,0)="""RTN"",""IBTRKR5"",118,0)"
^XMB(3.9,53,2,3940,0)=" I $D(IBMESS) S IBT(3.1)=IBMESS"
^XMB(3.9,53,2,3941,0)="""RTN"",""IBTRKR5"",119,0)"
^XMB(3.9,53,2,3942,0)=" S IBT(4)="""""
^XMB(3.9,53,2,3943,0)="""RTN"",""IBTRKR5"",120,0)"
^XMB(3.9,53,2,3944,0)=" S IBT(5)="" Total Prosthetics Items checked: ""_$G(IBCNT)"
^XMB(3.9,53,2,3945,0)="""RTN"",""IBTRKR5"",121,0)"
^XMB(3.9,53,2,3946,0)=" S IBT(6)=""Total NSC Prosthetic Items Added: ""_$G(IBCNT1)"
^XMB(3.9,53,2,3947,0)="""RTN"",""IBTRKR5"",122,0)"
^XMB(3.9,53,2,3948,0)=" S IBT(7)="" Total SC Prosthetic Items Added: ""_$G(IBCNT2)"
^XMB(3.9,53,2,3949,0)="""RTN"",""IBTRKR5"",123,0)"
^XMB(3.9,53,2,3950,0)=" S IBT(8)="""""
^XMB(3.9,53,2,3951,0)="""RTN"",""IBTRKR5"",124,0)"
^XMB(3.9,53,2,3952,0)=" S IBT(9)=""*The items added as SC require determination and editing to be billed"""
^XMB(3.9,53,2,3953,0)="""RTN"",""IBTRKR5"",125,0)"
^XMB(3.9,53,2,3954,0)=" D SEND^IBTRKR31"
^XMB(3.9,53,2,3955,0)="""RTN"",""IBTRKR5"",126,0)"
^XMB(3.9,53,2,3956,0)="BULLQ Q"
^XMB(3.9,53,2,3957,0)="""RTN"",""IBTRKR5"",127,0)"
^XMB(3.9,53,2,3958,0)=" ;"
^XMB(3.9,53,2,3959,0)="""RTN"",""IBTRKR5"",128,0)"
^XMB(3.9,53,2,3960,0)="CLTXT ; classification text for reason not billable"
^XMB(3.9,53,2,3961,0)="""RTN"",""IBTRKR5"",129,0)"
^XMB(3.9,53,2,3962,0)=" ;;AGENT ORANGE"
^XMB(3.9,53,2,3963,0)="""RTN"",""IBTRKR5"",130,0)"
^XMB(3.9,53,2,3964,0)=" ;;IONIZING RADIATION"
^XMB(3.9,53,2,3965,0)="""RTN"",""IBTRKR5"",131,0)"
^XMB(3.9,53,2,3966,0)=" ;;SC TREATMENT"
^XMB(3.9,53,2,3967,0)="""RTN"",""IBTRKR5"",132,0)"
^XMB(3.9,53,2,3968,0)=" ;;ENV. CONTAM."
^XMB(3.9,53,2,3969,0)="""RTN"",""IBTRKR5"",133,0)"
^XMB(3.9,53,2,3970,0)=" ;;MILITARY SEXUAL TRAUMA"
^XMB(3.9,53,2,3971,0)="""RTN"",""IBTRKR5"",134,0)"
^XMB(3.9,53,2,3972,0)=" ;;HEAD/NECK CANCER"
^XMB(3.9,53,2,3973,0)="""RTN"",""IBTRKR5"",135,0)"
^XMB(3.9,53,2,3974,0)=" ;;COMBAT VETERAN"
^XMB(3.9,53,2,3975,0)="""VER"")"
^XMB(3.9,53,2,3976,0)="8.0^22.0"
^XMB(3.9,53,2,3977,0)="""BLD"",5832,6)"
^XMB(3.9,53,2,3978,0)="^313"
^XMB(3.9,53,2,3979,0)="$END KID IB*2.0*312"
^XMB(3.9,53,6,0)="^3.911A^2^2"
^XMB(3.9,53,6,1,0)="POSTMASTER"
^XMB(3.9,53,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,53,6,"B","POSTMASTER",1)=""
^XMB(3.9,53,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,54,0)="IB-2_SEQ-314_PAT-302.KID^.5^3061008.015735^^^^K"
^XMB(3.9,54,.6)="3061008"
^XMB(3.9,54,1,0)="^3.91A^2^2"
^XMB(3.9,54,1,1,0)=".5^0^3061008.015735^^^^^^^3061008.015735"
^XMB(3.9,54,1,2,0)="1^0^3061008.023356^^^^^^^3061008.023356"
^XMB(3.9,54,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,54,1,"C",.5,1)=""
^XMB(3.9,54,1,"C",1,2)=""
^XMB(3.9,54,2,0)="^^573^573^3061008"
^XMB(3.9,54,2,1,0)="$TXT Released IB*2*302 SEQ #314"
^XMB(3.9,54,2,2,0)="Extracted from mail message"
^XMB(3.9,54,2,3,0)="$END TXT"
^XMB(3.9,54,2,4,0)="$KID IB*2.0*302"
^XMB(3.9,54,2,5,0)="**INSTALL NAME**"
^XMB(3.9,54,2,6,0)="IB*2.0*302"
^XMB(3.9,54,2,7,0)="""BLD"",6680,0)"
^XMB(3.9,54,2,8,0)="IB*2.0*302^INTEGRATED BILLING^0^3060411^y"
^XMB(3.9,54,2,9,0)="""BLD"",6680,1,0)"
^XMB(3.9,54,2,10,0)="^^1^1^3060411^^"
^XMB(3.9,54,2,11,0)="""BLD"",6680,1,1,0)"
^XMB(3.9,54,2,12,0)="ADD NEW ADJUSTMENT CODE TO AUTO BILL GENERATION LIST"
^XMB(3.9,54,2,13,0)="""BLD"",6680,4,0)"
^XMB(3.9,54,2,14,0)="^9.64PA^^"
^XMB(3.9,54,2,15,0)="""BLD"",6680,""KRN"",0)"
^XMB(3.9,54,2,16,0)="^9.67PA^8989.52^19"
^XMB(3.9,54,2,17,0)="""BLD"",6680,""KRN"",.4,0)"
^XMB(3.9,54,2,18,0)=".4"
^XMB(3.9,54,2,19,0)="""BLD"",6680,""KRN"",.401,0)"
^XMB(3.9,54,2,20,0)=".401"
^XMB(3.9,54,2,21,0)="""BLD"",6680,""KRN"",.402,0)"
^XMB(3.9,54,2,22,0)=".402"
^XMB(3.9,54,2,23,0)="""BLD"",6680,""KRN"",.403,0)"
^XMB(3.9,54,2,24,0)=".403"
^XMB(3.9,54,2,25,0)="""BLD"",6680,""KRN"",.5,0)"
^XMB(3.9,54,2,26,0)=".5"
^XMB(3.9,54,2,27,0)="""BLD"",6680,""KRN"",.84,0)"
^XMB(3.9,54,2,28,0)=".84"
^XMB(3.9,54,2,29,0)="""BLD"",6680,""KRN"",3.6,0)"
^XMB(3.9,54,2,30,0)="3.6"
^XMB(3.9,54,2,31,0)="""BLD"",6680,""KRN"",3.8,0)"
^XMB(3.9,54,2,32,0)="3.8"
^XMB(3.9,54,2,33,0)="""BLD"",6680,""KRN"",9.2,0)"
^XMB(3.9,54,2,34,0)="9.2"
^XMB(3.9,54,2,35,0)="""BLD"",6680,""KRN"",9.8,0)"
^XMB(3.9,54,2,36,0)="9.8"
^XMB(3.9,54,2,37,0)="""BLD"",6680,""KRN"",9.8,""NM"",0)"
^XMB(3.9,54,2,38,0)="^9.68A^1^1"
^XMB(3.9,54,2,39,0)="""BLD"",6680,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,54,2,40,0)="IBCEMQC^^0^B29805727"
^XMB(3.9,54,2,41,0)="""BLD"",6680,""KRN"",9.8,""NM"",""B"",""IBCEMQC"",1)"
^XMB(3.9,54,2,42,0)=""
^XMB(3.9,54,2,43,0)="""BLD"",6680,""KRN"",19,0)"
^XMB(3.9,54,2,44,0)="19"
^XMB(3.9,54,2,45,0)="""BLD"",6680,""KRN"",19.1,0)"
^XMB(3.9,54,2,46,0)="19.1"
^XMB(3.9,54,2,47,0)="""BLD"",6680,""KRN"",101,0)"
^XMB(3.9,54,2,48,0)="101"
^XMB(3.9,54,2,49,0)="""BLD"",6680,""KRN"",409.61,0)"
^XMB(3.9,54,2,50,0)="409.61"
^XMB(3.9,54,2,51,0)="""BLD"",6680,""KRN"",771,0)"
^XMB(3.9,54,2,52,0)="771"
^XMB(3.9,54,2,53,0)="""BLD"",6680,""KRN"",870,0)"
^XMB(3.9,54,2,54,0)="870"
^XMB(3.9,54,2,55,0)="""BLD"",6680,""KRN"",8989.51,0)"
^XMB(3.9,54,2,56,0)="8989.51"
^XMB(3.9,54,2,57,0)="""BLD"",6680,""KRN"",8989.52,0)"
^XMB(3.9,54,2,58,0)="8989.52"
^XMB(3.9,54,2,59,0)="""BLD"",6680,""KRN"",8994,0)"
^XMB(3.9,54,2,60,0)="8994"
^XMB(3.9,54,2,61,0)="""BLD"",6680,""KRN"",""B"",.4,.4)"
^XMB(3.9,54,2,62,0)=""
^XMB(3.9,54,2,63,0)="""BLD"",6680,""KRN"",""B"",.401,.401)"
^XMB(3.9,54,2,64,0)=""
^XMB(3.9,54,2,65,0)="""BLD"",6680,""KRN"",""B"",.402,.402)"
^XMB(3.9,54,2,66,0)=""
^XMB(3.9,54,2,67,0)="""BLD"",6680,""KRN"",""B"",.403,.403)"
^XMB(3.9,54,2,68,0)=""
^XMB(3.9,54,2,69,0)="""BLD"",6680,""KRN"",""B"",.5,.5)"
^XMB(3.9,54,2,70,0)=""
^XMB(3.9,54,2,71,0)="""BLD"",6680,""KRN"",""B"",.84,.84)"
^XMB(3.9,54,2,72,0)=""
^XMB(3.9,54,2,73,0)="""BLD"",6680,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,54,2,74,0)=""
^XMB(3.9,54,2,75,0)="""BLD"",6680,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,54,2,76,0)=""
^XMB(3.9,54,2,77,0)="""BLD"",6680,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,54,2,78,0)=""
^XMB(3.9,54,2,79,0)="""BLD"",6680,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,54,2,80,0)=""
^XMB(3.9,54,2,81,0)="""BLD"",6680,""KRN"",""B"",19,19)"
^XMB(3.9,54,2,82,0)=""
^XMB(3.9,54,2,83,0)="""BLD"",6680,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,54,2,84,0)=""
^XMB(3.9,54,2,85,0)="""BLD"",6680,""KRN"",""B"",101,101)"
^XMB(3.9,54,2,86,0)=""
^XMB(3.9,54,2,87,0)="""BLD"",6680,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,54,2,88,0)=""
^XMB(3.9,54,2,89,0)="""BLD"",6680,""KRN"",""B"",771,771)"
^XMB(3.9,54,2,90,0)=""
^XMB(3.9,54,2,91,0)="""BLD"",6680,""KRN"",""B"",870,870)"
^XMB(3.9,54,2,92,0)=""
^XMB(3.9,54,2,93,0)="""BLD"",6680,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,54,2,94,0)=""
^XMB(3.9,54,2,95,0)="""BLD"",6680,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,54,2,96,0)=""
^XMB(3.9,54,2,97,0)="""BLD"",6680,""KRN"",""B"",8994,8994)"
^XMB(3.9,54,2,98,0)=""
^XMB(3.9,54,2,99,0)="""BLD"",6680,""QUES"",0)"
^XMB(3.9,54,2,100,0)="^9.62^^"
^XMB(3.9,54,2,101,0)="""BLD"",6680,""REQB"",0)"
^XMB(3.9,54,2,102,0)="^9.611^1^1"
^XMB(3.9,54,2,103,0)="""BLD"",6680,""REQB"",1,0)"
^XMB(3.9,54,2,104,0)="IB*2.0*323^1"
^XMB(3.9,54,2,105,0)="""BLD"",6680,""REQB"",""B"",""IB*2.0*323"",1)"
^XMB(3.9,54,2,106,0)=""
^XMB(3.9,54,2,107,0)="""MBREQ"")"
^XMB(3.9,54,2,108,0)="0"
^XMB(3.9,54,2,109,0)="""PKG"",200,-1)"
^XMB(3.9,54,2,110,0)="1^1"
^XMB(3.9,54,2,111,0)="""PKG"",200,0)"
^XMB(3.9,54,2,112,0)="INTEGRATED BILLING^IB^INTEGRATED BILLING"
^XMB(3.9,54,2,113,0)="""PKG"",200,20,0)"
^XMB(3.9,54,2,114,0)="^9.402P^1^1"
^XMB(3.9,54,2,115,0)="""PKG"",200,20,1,0)"
^XMB(3.9,54,2,116,0)="2^^IBAXDR"
^XMB(3.9,54,2,117,0)="""PKG"",200,20,1,1)"
^XMB(3.9,54,2,118,0)=""
^XMB(3.9,54,2,119,0)="""PKG"",200,20,""B"",2,1)"
^XMB(3.9,54,2,120,0)=""
^XMB(3.9,54,2,121,0)="""PKG"",200,22,0)"
^XMB(3.9,54,2,122,0)="^9.49I^1^1"
^XMB(3.9,54,2,123,0)="""PKG"",200,22,1,0)"
^XMB(3.9,54,2,124,0)="2.0^2940321^2990406^2447"
^XMB(3.9,54,2,125,0)="""PKG"",200,22,1,""PAH"",1,0)"
^XMB(3.9,54,2,126,0)="302^3060411"
^XMB(3.9,54,2,127,0)="""PKG"",200,22,1,""PAH"",1,1,0)"
^XMB(3.9,54,2,128,0)="^^1^1^3060411"
^XMB(3.9,54,2,129,0)="""PKG"",200,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,54,2,130,0)="ADD NEW ADJUSTMENT CODE TO AUTO BILL GENERATION LIST"
^XMB(3.9,54,2,131,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,54,2,132,0)="Y"
^XMB(3.9,54,2,133,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,54,2,134,0)="^D REP^XPDH"
^XMB(3.9,54,2,135,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,54,2,136,0)="Shall I write over your |FLAG| File"
^XMB(3.9,54,2,137,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,54,2,138,0)="YES"
^XMB(3.9,54,2,139,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,54,2,140,0)="D XPF1^XPDIQ"
^XMB(3.9,54,2,141,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,54,2,142,0)="Y"
^XMB(3.9,54,2,143,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,54,2,144,0)="^D DTA^XPDH"
^XMB(3.9,54,2,145,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,54,2,146,0)="Want my data |FLAG| yours"
^XMB(3.9,54,2,147,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,54,2,148,0)="YES"
^XMB(3.9,54,2,149,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,54,2,150,0)="D XPF2^XPDIQ"
^XMB(3.9,54,2,151,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,54,2,152,0)="YO"
^XMB(3.9,54,2,153,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,54,2,154,0)="^D INHIBIT^XPDH"
^XMB(3.9,54,2,155,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,54,2,156,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,54,2,157,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,54,2,158,0)="YES"
^XMB(3.9,54,2,159,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,54,2,160,0)="D XPI1^XPDIQ"
^XMB(3.9,54,2,161,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,54,2,162,0)="PO^VA(200,:EM"
^XMB(3.9,54,2,163,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,54,2,164,0)="^D MG^XPDH"
^XMB(3.9,54,2,165,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,54,2,166,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,54,2,167,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,54,2,168,0)=""
^XMB(3.9,54,2,169,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,54,2,170,0)="D XPM1^XPDIQ"
^XMB(3.9,54,2,171,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,54,2,172,0)="Y"
^XMB(3.9,54,2,173,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,54,2,174,0)="^D MENU^XPDH"
^XMB(3.9,54,2,175,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,54,2,176,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,54,2,177,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,54,2,178,0)="YES"
^XMB(3.9,54,2,179,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,54,2,180,0)="D XPO1^XPDIQ"
^XMB(3.9,54,2,181,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,54,2,182,0)="Y"
^XMB(3.9,54,2,183,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,54,2,184,0)="^D OPT^XPDH"
^XMB(3.9,54,2,185,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,54,2,186,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,54,2,187,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,54,2,188,0)="YES"
^XMB(3.9,54,2,189,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,54,2,190,0)="D XPZ1^XPDIQ"
^XMB(3.9,54,2,191,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,54,2,192,0)="Y"
^XMB(3.9,54,2,193,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,54,2,194,0)="^D RTN^XPDH"
^XMB(3.9,54,2,195,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,54,2,196,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,54,2,197,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,54,2,198,0)="NO"
^XMB(3.9,54,2,199,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,54,2,200,0)="D XPZ2^XPDIQ"
^XMB(3.9,54,2,201,0)="""RTN"")"
^XMB(3.9,54,2,202,0)="1"
^XMB(3.9,54,2,203,0)="""RTN"",""IBCEMQC"")"
^XMB(3.9,54,2,204,0)="0^1^B29805727^B29766412"
^XMB(3.9,54,2,205,0)="""RTN"",""IBCEMQC"",1,0)"
^XMB(3.9,54,2,206,0)="IBCEMQC ;ALB/ESG - MRA EOB CRITERIA FOR AUTO-AUTHORIZE ; 3/1/06 9:23am"
^XMB(3.9,54,2,207,0)="""RTN"",""IBCEMQC"",2,0)"
^XMB(3.9,54,2,208,0)=" ;;2.0;INTEGRATED BILLING;**155,323,302**;21-MAR-94"
^XMB(3.9,54,2,209,0)="""RTN"",""IBCEMQC"",3,0)"
^XMB(3.9,54,2,210,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,54,2,211,0)="""RTN"",""IBCEMQC"",4,0)"
^XMB(3.9,54,2,212,0)=" ;"
^XMB(3.9,54,2,213,0)="""RTN"",""IBCEMQC"",5,0)"
^XMB(3.9,54,2,214,0)=" Q   ; must be called at proper entry point"
^XMB(3.9,54,2,215,0)="""RTN"",""IBCEMQC"",6,0)"
^XMB(3.9,54,2,216,0)=" ;"
^XMB(3.9,54,2,217,0)="""RTN"",""IBCEMQC"",7,0)"
^XMB(3.9,54,2,218,0)="CRIT(IBEOB) ; Function to determine if EOB entry meets the criteria for"
^XMB(3.9,54,2,219,0)="""RTN"",""IBCEMQC"",8,0)"
^XMB(3.9,54,2,220,0)=" ; auto-authorization and secondary claim submission"
^XMB(3.9,54,2,221,0)="""RTN"",""IBCEMQC"",9,0)"
^XMB(3.9,54,2,222,0)=" ;"
^XMB(3.9,54,2,223,0)="""RTN"",""IBCEMQC"",10,0)"
^XMB(3.9,54,2,224,0)=" ; Input:  IBEOB - internal entry number for an entry in 361.1"
^XMB(3.9,54,2,225,0)="""RTN"",""IBCEMQC"",11,0)"
^XMB(3.9,54,2,226,0)=" ;"
^XMB(3.9,54,2,227,0)="""RTN"",""IBCEMQC"",12,0)"
^XMB(3.9,54,2,228,0)=" ; Output:  This function returns a pieced string"
^XMB(3.9,54,2,229,0)="""RTN"",""IBCEMQC"",13,0)"
^XMB(3.9,54,2,230,0)=" ;          [1] 0 or 1, EOB meets criteria"
^XMB(3.9,54,2,231,0)="""RTN"",""IBCEMQC"",14,0)"
^XMB(3.9,54,2,232,0)=" ;          [2] error message if the first piece is 0"
^XMB(3.9,54,2,233,0)="""RTN"",""IBCEMQC"",15,0)"
^XMB(3.9,54,2,234,0)=" ;"
^XMB(3.9,54,2,235,0)="""RTN"",""IBCEMQC"",16,0)"
^XMB(3.9,54,2,236,0)=" NEW IBM,IBM3,IBM5,IBIFN,PCE,REMC,Z,OK,REASON,STOP,IBPTRESP"
^XMB(3.9,54,2,237,0)="""RTN"",""IBCEMQC"",17,0)"
^XMB(3.9,54,2,238,0)=" ;"
^XMB(3.9,54,2,239,0)="""RTN"",""IBCEMQC"",18,0)"
^XMB(3.9,54,2,240,0)=" S OK=0,REASON=""Unknown"",IBEOB=+$G(IBEOB)"
^XMB(3.9,54,2,241,0)="""RTN"",""IBCEMQC"",19,0)"
^XMB(3.9,54,2,242,0)=" ;"
^XMB(3.9,54,2,243,0)="""RTN"",""IBCEMQC"",20,0)"
^XMB(3.9,54,2,244,0)=" S IBM=$G(^IBM(361.1,IBEOB,0)) I IBM="""" S REASON=""No EOB Data Found"" G CRITX"
^XMB(3.9,54,2,245,0)="""RTN"",""IBCEMQC"",21,0)"
^XMB(3.9,54,2,246,0)=" I $D(^IBM(361.1,IBEOB,""ERR"")) S REASON=""Filing Errors"" G CRITX"
^XMB(3.9,54,2,247,0)="""RTN"",""IBCEMQC"",22,0)"
^XMB(3.9,54,2,248,0)=" I $P(IBM,U,13)'=1 S REASON=""Claim Status is ""_$$GET1^DIQ(361.1,IBEOB_"","",.13)_"".  It must be PROCESSED."" G CRITX"
^XMB(3.9,54,2,249,0)="""RTN"",""IBCEMQC"",23,0)"
^XMB(3.9,54,2,250,0)=" ;"
^XMB(3.9,54,2,251,0)="""RTN"",""IBCEMQC"",24,0)"
^XMB(3.9,54,2,252,0)=" I $P(IBM,U,4)'=1 S REASON=""The EOB Type is not Medicare MRA"" G CRITX"
^XMB(3.9,54,2,253,0)="""RTN"",""IBCEMQC"",25,0)"
^XMB(3.9,54,2,254,0)=" ;"
^XMB(3.9,54,2,255,0)="""RTN"",""IBCEMQC"",26,0)"
^XMB(3.9,54,2,256,0)=" ; If any other MRA's on file for this bill failed the auto-generation"
^XMB(3.9,54,2,257,0)="""RTN"",""IBCEMQC"",27,0)"
^XMB(3.9,54,2,258,0)=" ; check, then this MRA must also fail the check"
^XMB(3.9,54,2,259,0)="""RTN"",""IBCEMQC"",28,0)"
^XMB(3.9,54,2,260,0)=" S IBIFN=+IBM,Z=0,STOP=0"
^XMB(3.9,54,2,261,0)="""RTN"",""IBCEMQC"",29,0)"
^XMB(3.9,54,2,262,0)=" F  S Z=$O(^IBM(361.1,""B"",IBIFN,Z)) Q:'Z  D  Q:STOP"
^XMB(3.9,54,2,263,0)="""RTN"",""IBCEMQC"",30,0)"
^XMB(3.9,54,2,264,0)=" . I Z=IBEOB Q             ; check different EOB records if they exist"
^XMB(3.9,54,2,265,0)="""RTN"",""IBCEMQC"",31,0)"
^XMB(3.9,54,2,266,0)=" . I $P($G(^IBM(361.1,Z,0)),U,4)'=1 Q     ; must be an MRA"
^XMB(3.9,54,2,267,0)="""RTN"",""IBCEMQC"",32,0)"
^XMB(3.9,54,2,268,0)=" . I $P($G(^IBM(361.1,Z,30)),U,1)="""" Q    ; no problems recorded"
^XMB(3.9,54,2,269,0)="""RTN"",""IBCEMQC"",33,0)"
^XMB(3.9,54,2,270,0)=" . S REASON=""Another MRA for this bill (ien=""_Z_"") failed the auto-generation criteria check."""
^XMB(3.9,54,2,271,0)="""RTN"",""IBCEMQC"",34,0)"
^XMB(3.9,54,2,272,0)=" . S STOP=1"
^XMB(3.9,54,2,273,0)="""RTN"",""IBCEMQC"",35,0)"
^XMB(3.9,54,2,274,0)=" . Q"
^XMB(3.9,54,2,275,0)="""RTN"",""IBCEMQC"",36,0)"
^XMB(3.9,54,2,276,0)=" I STOP G CRITX"
^XMB(3.9,54,2,277,0)="""RTN"",""IBCEMQC"",37,0)"
^XMB(3.9,54,2,278,0)=" ;"
^XMB(3.9,54,2,279,0)="""RTN"",""IBCEMQC"",38,0)"
^XMB(3.9,54,2,280,0)=" ; If this EOB is a split EOB, then don't allow it"
^XMB(3.9,54,2,281,0)="""RTN"",""IBCEMQC"",39,0)"
^XMB(3.9,54,2,282,0)=" I $$SPLIT^IBCEMU1(IBEOB) S REASON=""Claim level remark code MA15 received.  Multiple MRA's"" G CRITX"
^XMB(3.9,54,2,283,0)="""RTN"",""IBCEMQC"",40,0)"
^XMB(3.9,54,2,284,0)=" ;"
^XMB(3.9,54,2,285,0)="""RTN"",""IBCEMQC"",41,0)"
^XMB(3.9,54,2,286,0)=" ; Call the function that checks the claim level and/or line level"
^XMB(3.9,54,2,287,0)="""RTN"",""IBCEMQC"",42,0)"
^XMB(3.9,54,2,288,0)=" ; adjustments for this EOB"
^XMB(3.9,54,2,289,0)="""RTN"",""IBCEMQC"",43,0)"
^XMB(3.9,54,2,290,0)=" I '$$CAS(IBEOB,""B"",.REASON) G CRITX      ; ""B"" for both"
^XMB(3.9,54,2,291,0)="""RTN"",""IBCEMQC"",44,0)"
^XMB(3.9,54,2,292,0)=" ;"
^XMB(3.9,54,2,293,0)="""RTN"",""IBCEMQC"",45,0)"
^XMB(3.9,54,2,294,0)=" ; Make sure the patient responsibility amount for this MRA is greater than $0"
^XMB(3.9,54,2,295,0)="""RTN"",""IBCEMQC"",46,0)"
^XMB(3.9,54,2,296,0)=" S IBPTRESP=$P($G(^IBM(361.1,IBEOB,1)),U,2)      ; Pt Resp Amt 1.02 field"
^XMB(3.9,54,2,297,0)="""RTN"",""IBCEMQC"",47,0)"
^XMB(3.9,54,2,298,0)=" I $$FT^IBCEF(IBIFN)=3 S IBPTRESP=$$PTRESPI^IBCECOB1(IBEOB)"
^XMB(3.9,54,2,299,0)="""RTN"",""IBCEMQC"",48,0)"
^XMB(3.9,54,2,300,0)=" I IBPTRESP'>0 S REASON=""Patient responsibility dollar amount is less than or equal to $0"" G CRITX"
^XMB(3.9,54,2,301,0)="""RTN"",""IBCEMQC"",49,0)"
^XMB(3.9,54,2,302,0)=" ;"
^XMB(3.9,54,2,303,0)="""RTN"",""IBCEMQC"",50,0)"
^XMB(3.9,54,2,304,0)=" ; Check the parameter values last of all"
^XMB(3.9,54,2,305,0)="""RTN"",""IBCEMQC"",51,0)"
^XMB(3.9,54,2,306,0)=" I '$P($G(^IBE(350.9,1,8)),U,11) S REASON=""Automatic MRA Processing parameter is turned off.  File 350.9, Field 8.11."" G CRITX"
^XMB(3.9,54,2,307,0)="""RTN"",""IBCEMQC"",52,0)"
^XMB(3.9,54,2,308,0)=" I '$P($G(^IBE(350.9,1,8)),U,12) S REASON=""Allow MRA Processing parameter is turned off.  File 350.9, Field 8.12."" G CRITX"
^XMB(3.9,54,2,309,0)="""RTN"",""IBCEMQC"",53,0)"
^XMB(3.9,54,2,310,0)=" ;"
^XMB(3.9,54,2,311,0)="""RTN"",""IBCEMQC"",54,0)"
^XMB(3.9,54,2,312,0)=" ; At this point, we're OK"
^XMB(3.9,54,2,313,0)="""RTN"",""IBCEMQC"",55,0)"
^XMB(3.9,54,2,314,0)=" S OK=1,REASON="""""
^XMB(3.9,54,2,315,0)="""RTN"",""IBCEMQC"",56,0)"
^XMB(3.9,54,2,316,0)=" ;"
^XMB(3.9,54,2,317,0)="""RTN"",""IBCEMQC"",57,0)"
^XMB(3.9,54,2,318,0)="CRITX ;"
^XMB(3.9,54,2,319,0)="""RTN"",""IBCEMQC"",58,0)"
^XMB(3.9,54,2,320,0)=" Q OK_U_REASON"
^XMB(3.9,54,2,321,0)="""RTN"",""IBCEMQC"",59,0)"
^XMB(3.9,54,2,322,0)=" ;"
^XMB(3.9,54,2,323,0)="""RTN"",""IBCEMQC"",60,0)"
^XMB(3.9,54,2,324,0)=" ;"
^XMB(3.9,54,2,325,0)="""RTN"",""IBCEMQC"",61,0)"
^XMB(3.9,54,2,326,0)="CAS(IBEOB,ADJFLAG,REASON) ; This function determines if the EOB"
^XMB(3.9,54,2,327,0)="""RTN"",""IBCEMQC"",62,0)"
^XMB(3.9,54,2,328,0)=" ; adjustment group codes and reason codes from file 361.1 (either"
^XMB(3.9,54,2,329,0)="""RTN"",""IBCEMQC"",63,0)"
^XMB(3.9,54,2,330,0)=" ; claim level or line level or both) meet the criteria for auto-"
^XMB(3.9,54,2,331,0)="""RTN"",""IBCEMQC"",64,0)"
^XMB(3.9,54,2,332,0)=" ; authorization and secondary claim submission."
^XMB(3.9,54,2,333,0)="""RTN"",""IBCEMQC"",65,0)"
^XMB(3.9,54,2,334,0)=" ;"
^XMB(3.9,54,2,335,0)="""RTN"",""IBCEMQC"",66,0)"
^XMB(3.9,54,2,336,0)=" ; Input Parameters"
^XMB(3.9,54,2,337,0)="""RTN"",""IBCEMQC"",67,0)"
^XMB(3.9,54,2,338,0)=" ;        IBEOB    - ien of entry in file 361.1"
^XMB(3.9,54,2,339,0)="""RTN"",""IBCEMQC"",68,0)"
^XMB(3.9,54,2,340,0)=" ;      ADJFLAG    - adjustment flag"
^XMB(3.9,54,2,341,0)="""RTN"",""IBCEMQC"",69,0)"
^XMB(3.9,54,2,342,0)=" ;                   ""C"" - look at claim level adjustments only"
^XMB(3.9,54,2,343,0)="""RTN"",""IBCEMQC"",70,0)"
^XMB(3.9,54,2,344,0)=" ;                   ""L"" - look at line level adjustments only"
^XMB(3.9,54,2,345,0)="""RTN"",""IBCEMQC"",71,0)"
^XMB(3.9,54,2,346,0)=" ;                   ""B"" - look at both claim and line level adjustments"
^XMB(3.9,54,2,347,0)="""RTN"",""IBCEMQC"",72,0)"
^XMB(3.9,54,2,348,0)=" ; Output Parameter"
^XMB(3.9,54,2,349,0)="""RTN"",""IBCEMQC"",73,0)"
^XMB(3.9,54,2,350,0)=" ;       REASON    - error message describing why it failed"
^XMB(3.9,54,2,351,0)="""RTN"",""IBCEMQC"",74,0)"
^XMB(3.9,54,2,352,0)=" ;"
^XMB(3.9,54,2,353,0)="""RTN"",""IBCEMQC"",75,0)"
^XMB(3.9,54,2,354,0)=" ; Function Value is either 0 or 1, indicating if it passed the criteria"
^XMB(3.9,54,2,355,0)="""RTN"",""IBCEMQC"",76,0)"
^XMB(3.9,54,2,356,0)=" ;"
^XMB(3.9,54,2,357,0)="""RTN"",""IBCEMQC"",77,0)"
^XMB(3.9,54,2,358,0)=" NEW EOBADJ,OK,OKCOMBO,PATRESP,STOP,LNIEN"
^XMB(3.9,54,2,359,0)="""RTN"",""IBCEMQC"",78,0)"
^XMB(3.9,54,2,360,0)=" ;"
^XMB(3.9,54,2,361,0)="""RTN"",""IBCEMQC"",79,0)"
^XMB(3.9,54,2,362,0)=" S IBEOB=+$G(IBEOB)"
^XMB(3.9,54,2,363,0)="""RTN"",""IBCEMQC"",80,0)"
^XMB(3.9,54,2,364,0)=" S ADJFLAG=$G(ADJFLAG,""B"")     ; default is ""B"" if not passed in"
^XMB(3.9,54,2,365,0)="""RTN"",""IBCEMQC"",81,0)"
^XMB(3.9,54,2,366,0)=" D BUILD           ; build the array of OK group/reason combinations"
^XMB(3.9,54,2,367,0)="""RTN"",""IBCEMQC"",82,0)"
^XMB(3.9,54,2,368,0)=" S PATRESP=0       ; patient responsibility flag (default false)"
^XMB(3.9,54,2,369,0)="""RTN"",""IBCEMQC"",83,0)"
^XMB(3.9,54,2,370,0)=" S STOP=0          ; Stop flag"
^XMB(3.9,54,2,371,0)="""RTN"",""IBCEMQC"",84,0)"
^XMB(3.9,54,2,372,0)=" S OK=0            ; OK flag (function value)"
^XMB(3.9,54,2,373,0)="""RTN"",""IBCEMQC"",85,0)"
^XMB(3.9,54,2,374,0)=" S REASON=""""       ; error reason text"
^XMB(3.9,54,2,375,0)="""RTN"",""IBCEMQC"",86,0)"
^XMB(3.9,54,2,376,0)=" ;"
^XMB(3.9,54,2,377,0)="""RTN"",""IBCEMQC"",87,0)"
^XMB(3.9,54,2,378,0)=" ; claim level adjustments"
^XMB(3.9,54,2,379,0)="""RTN"",""IBCEMQC"",88,0)"
^XMB(3.9,54,2,380,0)=" I $F("".C.B."","".""_ADJFLAG_""."") D"
^XMB(3.9,54,2,381,0)="""RTN"",""IBCEMQC"",89,0)"
^XMB(3.9,54,2,382,0)=" . KILL EOBADJ"
^XMB(3.9,54,2,383,0)="""RTN"",""IBCEMQC"",90,0)"
^XMB(3.9,54,2,384,0)=" . M EOBADJ=^IBM(361.1,IBEOB,10)"
^XMB(3.9,54,2,385,0)="""RTN"",""IBCEMQC"",91,0)"
^XMB(3.9,54,2,386,0)=" . D ADJCHK"
^XMB(3.9,54,2,387,0)="""RTN"",""IBCEMQC"",92,0)"
^XMB(3.9,54,2,388,0)=" . Q"
^XMB(3.9,54,2,389,0)="""RTN"",""IBCEMQC"",93,0)"
^XMB(3.9,54,2,390,0)=" ;"
^XMB(3.9,54,2,391,0)="""RTN"",""IBCEMQC"",94,0)"
^XMB(3.9,54,2,392,0)=" ; Get out if the claim level adjustments failed"
^XMB(3.9,54,2,393,0)="""RTN"",""IBCEMQC"",95,0)"
^XMB(3.9,54,2,394,0)=" I STOP G CASX"
^XMB(3.9,54,2,395,0)="""RTN"",""IBCEMQC"",96,0)"
^XMB(3.9,54,2,396,0)=" ;"
^XMB(3.9,54,2,397,0)="""RTN"",""IBCEMQC"",97,0)"
^XMB(3.9,54,2,398,0)=" ; line level adjustments"
^XMB(3.9,54,2,399,0)="""RTN"",""IBCEMQC"",98,0)"
^XMB(3.9,54,2,400,0)=" I $F("".L.B."","".""_ADJFLAG_""."") D"
^XMB(3.9,54,2,401,0)="""RTN"",""IBCEMQC"",99,0)"
^XMB(3.9,54,2,402,0)=" . S LNIEN=0"
^XMB(3.9,54,2,403,0)="""RTN"",""IBCEMQC"",100,0)"
^XMB(3.9,54,2,404,0)=" . F  S LNIEN=$O(^IBM(361.1,IBEOB,15,LNIEN)) Q:'LNIEN  D  Q:STOP"
^XMB(3.9,54,2,405,0)="""RTN"",""IBCEMQC"",101,0)"
^XMB(3.9,54,2,406,0)=" .. KILL EOBADJ"
^XMB(3.9,54,2,407,0)="""RTN"",""IBCEMQC"",102,0)"
^XMB(3.9,54,2,408,0)=" .. M EOBADJ=^IBM(361.1,IBEOB,15,LNIEN,1)"
^XMB(3.9,54,2,409,0)="""RTN"",""IBCEMQC"",103,0)"
^XMB(3.9,54,2,410,0)=" .. D ADJCHK"
^XMB(3.9,54,2,411,0)="""RTN"",""IBCEMQC"",104,0)"
^XMB(3.9,54,2,412,0)=" .. Q"
^XMB(3.9,54,2,413,0)="""RTN"",""IBCEMQC"",105,0)"
^XMB(3.9,54,2,414,0)=" . Q"
^XMB(3.9,54,2,415,0)="""RTN"",""IBCEMQC"",106,0)"
^XMB(3.9,54,2,416,0)=" ;"
^XMB(3.9,54,2,417,0)="""RTN"",""IBCEMQC"",107,0)"
^XMB(3.9,54,2,418,0)=" ; Get out if the line level adjustments failed"
^XMB(3.9,54,2,419,0)="""RTN"",""IBCEMQC"",108,0)"
^XMB(3.9,54,2,420,0)=" I STOP G CASX"
^XMB(3.9,54,2,421,0)="""RTN"",""IBCEMQC"",109,0)"
^XMB(3.9,54,2,422,0)=" ;"
^XMB(3.9,54,2,423,0)="""RTN"",""IBCEMQC"",110,0)"
^XMB(3.9,54,2,424,0)=" ; Get out if there was no patient responsibility adjustments found"
^XMB(3.9,54,2,425,0)="""RTN"",""IBCEMQC"",111,0)"
^XMB(3.9,54,2,426,0)=" I 'PATRESP S REASON=""No Patient Responsibility Adjustments found"" G CASX"
^XMB(3.9,54,2,427,0)="""RTN"",""IBCEMQC"",112,0)"
^XMB(3.9,54,2,428,0)=" ;"
^XMB(3.9,54,2,429,0)="""RTN"",""IBCEMQC"",113,0)"
^XMB(3.9,54,2,430,0)=" ; At this point, we're OK"
^XMB(3.9,54,2,431,0)="""RTN"",""IBCEMQC"",114,0)"
^XMB(3.9,54,2,432,0)=" S OK=1,REASON="""""
^XMB(3.9,54,2,433,0)="""RTN"",""IBCEMQC"",115,0)"
^XMB(3.9,54,2,434,0)="CASX ;"
^XMB(3.9,54,2,435,0)="""RTN"",""IBCEMQC"",116,0)"
^XMB(3.9,54,2,436,0)=" Q OK"
^XMB(3.9,54,2,437,0)="""RTN"",""IBCEMQC"",117,0)"
^XMB(3.9,54,2,438,0)=" ;"
^XMB(3.9,54,2,439,0)="""RTN"",""IBCEMQC"",118,0)"
^XMB(3.9,54,2,440,0)=" ;"
^XMB(3.9,54,2,441,0)="""RTN"",""IBCEMQC"",119,0)"
^XMB(3.9,54,2,442,0)="ADJCHK ; This procedure checks the adjustments for this EOB.  The group codes"
^XMB(3.9,54,2,443,0)="""RTN"",""IBCEMQC"",120,0)"
^XMB(3.9,54,2,444,0)=" ; and reason codes are in the EOBADJ array structures from file 361.1."
^XMB(3.9,54,2,445,0)="""RTN"",""IBCEMQC"",121,0)"
^XMB(3.9,54,2,446,0)=" ;"
^XMB(3.9,54,2,447,0)="""RTN"",""IBCEMQC"",122,0)"
^XMB(3.9,54,2,448,0)=" ;   Variables STOP and REASON will be returned on an error"
^XMB(3.9,54,2,449,0)="""RTN"",""IBCEMQC"",123,0)"
^XMB(3.9,54,2,450,0)=" ;   Variable PATRESP will be returned if a valid PR adjustment found"
^XMB(3.9,54,2,451,0)="""RTN"",""IBCEMQC"",124,0)"
^XMB(3.9,54,2,452,0)=" ;"
^XMB(3.9,54,2,453,0)="""RTN"",""IBCEMQC"",125,0)"
^XMB(3.9,54,2,454,0)=" NEW ADJIEN,GROUP,RSNIEN,RSNCODE"
^XMB(3.9,54,2,455,0)="""RTN"",""IBCEMQC"",126,0)"
^XMB(3.9,54,2,456,0)=" S ADJIEN=0"
^XMB(3.9,54,2,457,0)="""RTN"",""IBCEMQC"",127,0)"
^XMB(3.9,54,2,458,0)=" F  S ADJIEN=$O(EOBADJ(ADJIEN)) Q:'ADJIEN  D  Q:STOP"
^XMB(3.9,54,2,459,0)="""RTN"",""IBCEMQC"",128,0)"
^XMB(3.9,54,2,460,0)=" . S GROUP=$P($G(EOBADJ(ADJIEN,0)),U,1)"
^XMB(3.9,54,2,461,0)="""RTN"",""IBCEMQC"",129,0)"
^XMB(3.9,54,2,462,0)=" . I GROUP=""LQ"" Q      ; line level remark code kludge: 42 rec [3]"
^XMB(3.9,54,2,463,0)="""RTN"",""IBCEMQC"",130,0)"
^XMB(3.9,54,2,464,0)=" . I GROUP="""" S GROUP=""<Undefined>"""
^XMB(3.9,54,2,465,0)="""RTN"",""IBCEMQC"",131,0)"
^XMB(3.9,54,2,466,0)=" . I '$D(OKCOMBO(GROUP)) S STOP=1,REASON=""Unacceptable Claim Adjustment Group Code: ""_GROUP Q"
^XMB(3.9,54,2,467,0)="""RTN"",""IBCEMQC"",132,0)"
^XMB(3.9,54,2,468,0)=" . S RSNIEN=0"
^XMB(3.9,54,2,469,0)="""RTN"",""IBCEMQC"",133,0)"
^XMB(3.9,54,2,470,0)=" . F  S RSNIEN=$O(EOBADJ(ADJIEN,1,RSNIEN)) Q:'RSNIEN  D  Q:STOP"
^XMB(3.9,54,2,471,0)="""RTN"",""IBCEMQC"",134,0)"
^XMB(3.9,54,2,472,0)=" .. S RSNCODE=$P($G(EOBADJ(ADJIEN,1,RSNIEN,0)),U,1)"
^XMB(3.9,54,2,473,0)="""RTN"",""IBCEMQC"",135,0)"
^XMB(3.9,54,2,474,0)=" .. ;"
^XMB(3.9,54,2,475,0)="""RTN"",""IBCEMQC"",136,0)"
^XMB(3.9,54,2,476,0)=" .. ; Ignore some special adjustment data that is filed with the MRA"
^XMB(3.9,54,2,477,0)="""RTN"",""IBCEMQC"",137,0)"
^XMB(3.9,54,2,478,0)=" .. I GROUP=""PR"",RSNCODE=""AAA"" Q    ; Allowed Amount: 41 rec [3]"
^XMB(3.9,54,2,479,0)="""RTN"",""IBCEMQC"",138,0)"
^XMB(3.9,54,2,480,0)=" .. I GROUP=""OA"",RSNCODE=""AB3"" Q    ; Covered Amount: 15 rec [3]"
^XMB(3.9,54,2,481,0)="""RTN"",""IBCEMQC"",139,0)"
^XMB(3.9,54,2,482,0)=" .. ;"
^XMB(3.9,54,2,483,0)="""RTN"",""IBCEMQC"",140,0)"
^XMB(3.9,54,2,484,0)=" .. I RSNCODE="""" S RSNCODE=""<Undefined>"""
^XMB(3.9,54,2,485,0)="""RTN"",""IBCEMQC"",141,0)"
^XMB(3.9,54,2,486,0)=" .. I '$D(OKCOMBO(GROUP,RSNCODE)) S STOP=1,REASON=""Unacceptable Reason Code (""_RSNCODE_"") for Claim Adjustment Group Code (""_GROUP_"")"" Q"
^XMB(3.9,54,2,487,0)="""RTN"",""IBCEMQC"",142,0)"
^XMB(3.9,54,2,488,0)=" .. ;"
^XMB(3.9,54,2,489,0)="""RTN"",""IBCEMQC"",143,0)"
^XMB(3.9,54,2,490,0)=" .. ; Set the flag if the group is PR"
^XMB(3.9,54,2,491,0)="""RTN"",""IBCEMQC"",144,0)"
^XMB(3.9,54,2,492,0)=" .. I GROUP=""PR"" S PATRESP=1"
^XMB(3.9,54,2,493,0)="""RTN"",""IBCEMQC"",145,0)"
^XMB(3.9,54,2,494,0)=" .. Q"
^XMB(3.9,54,2,495,0)="""RTN"",""IBCEMQC"",146,0)"
^XMB(3.9,54,2,496,0)=" . Q"
^XMB(3.9,54,2,497,0)="""RTN"",""IBCEMQC"",147,0)"
^XMB(3.9,54,2,498,0)="ADJCHKX ;"
^XMB(3.9,54,2,499,0)="""RTN"",""IBCEMQC"",148,0)"
^XMB(3.9,54,2,500,0)=" Q"
^XMB(3.9,54,2,501,0)="""RTN"",""IBCEMQC"",149,0)"
^XMB(3.9,54,2,502,0)=" ;"
^XMB(3.9,54,2,503,0)="""RTN"",""IBCEMQC"",150,0)"
^XMB(3.9,54,2,504,0)=" ;"
^XMB(3.9,54,2,505,0)="""RTN"",""IBCEMQC"",151,0)"
^XMB(3.9,54,2,506,0)="BUILD ; This procedure builds the OKCOMBO array which identifies which"
^XMB(3.9,54,2,507,0)="""RTN"",""IBCEMQC"",152,0)"
^XMB(3.9,54,2,508,0)=" ; combinations of group codes and reason codes are acceptable"
^XMB(3.9,54,2,509,0)="""RTN"",""IBCEMQC"",153,0)"
^XMB(3.9,54,2,510,0)=" ;"
^XMB(3.9,54,2,511,0)="""RTN"",""IBCEMQC"",154,0)"
^XMB(3.9,54,2,512,0)=" NEW LN,LINE,GROUP,RSNLST,R,RSN"
^XMB(3.9,54,2,513,0)="""RTN"",""IBCEMQC"",155,0)"
^XMB(3.9,54,2,514,0)=" KILL OKCOMBO"
^XMB(3.9,54,2,515,0)="""RTN"",""IBCEMQC"",156,0)"
^XMB(3.9,54,2,516,0)=" F LN=1:1 D  Q:$P(LINE,"";"",4)=""""&$D(OKCOMBO)"
^XMB(3.9,54,2,517,0)="""RTN"",""IBCEMQC"",157,0)"
^XMB(3.9,54,2,518,0)=" . S LINE=$T(OKCOMBO+LN)"
^XMB(3.9,54,2,519,0)="""RTN"",""IBCEMQC"",158,0)"
^XMB(3.9,54,2,520,0)=" . S GROUP=$P(LINE,"";"",3) Q:GROUP="""""
^XMB(3.9,54,2,521,0)="""RTN"",""IBCEMQC"",159,0)"
^XMB(3.9,54,2,522,0)=" . S RSNLST=$P(LINE,"";"",4) Q:RSNLST="""""
^XMB(3.9,54,2,523,0)="""RTN"",""IBCEMQC"",160,0)"
^XMB(3.9,54,2,524,0)=" . F R=1:1:$L(RSNLST,"","") D"
^XMB(3.9,54,2,525,0)="""RTN"",""IBCEMQC"",161,0)"
^XMB(3.9,54,2,526,0)=" .. S RSN=$P(RSNLST,"","",R) Q:RSN="""""
^XMB(3.9,54,2,527,0)="""RTN"",""IBCEMQC"",162,0)"
^XMB(3.9,54,2,528,0)=" .. S OKCOMBO(GROUP,RSN)="""""
^XMB(3.9,54,2,529,0)="""RTN"",""IBCEMQC"",163,0)"
^XMB(3.9,54,2,530,0)=" .. Q"
^XMB(3.9,54,2,531,0)="""RTN"",""IBCEMQC"",164,0)"
^XMB(3.9,54,2,532,0)=" . Q"
^XMB(3.9,54,2,533,0)="""RTN"",""IBCEMQC"",165,0)"
^XMB(3.9,54,2,534,0)="BUILDX ;"
^XMB(3.9,54,2,535,0)="""RTN"",""IBCEMQC"",166,0)"
^XMB(3.9,54,2,536,0)=" Q"
^XMB(3.9,54,2,537,0)="""RTN"",""IBCEMQC"",167,0)"
^XMB(3.9,54,2,538,0)=" ;"
^XMB(3.9,54,2,539,0)="""RTN"",""IBCEMQC"",168,0)"
^XMB(3.9,54,2,540,0)=" ;"
^XMB(3.9,54,2,541,0)="""RTN"",""IBCEMQC"",169,0)"
^XMB(3.9,54,2,542,0)="OKCOMBO ; This section lists OK combinations of adjustment category group codes"
^XMB(3.9,54,2,543,0)="""RTN"",""IBCEMQC"",170,0)"
^XMB(3.9,54,2,544,0)=" ; and associated reason codes."
^XMB(3.9,54,2,545,0)="""RTN"",""IBCEMQC"",171,0)"
^XMB(3.9,54,2,546,0)=" ; The format is as follows - semi-colon delimiter"
^XMB(3.9,54,2,547,0)="""RTN"",""IBCEMQC"",172,0)"
^XMB(3.9,54,2,548,0)=" ;     [3] Adjustment category (group code)"
^XMB(3.9,54,2,549,0)="""RTN"",""IBCEMQC"",173,0)"
^XMB(3.9,54,2,550,0)=" ;     [4] List of acceptable reason codes - comma delimiter"
^XMB(3.9,54,2,551,0)="""RTN"",""IBCEMQC"",174,0)"
^XMB(3.9,54,2,552,0)=" ;"
^XMB(3.9,54,2,553,0)="""RTN"",""IBCEMQC"",175,0)"
^XMB(3.9,54,2,554,0)=" ; PR-AAA is created by VistA for the Allowed Amount"
^XMB(3.9,54,2,555,0)="""RTN"",""IBCEMQC"",176,0)"
^XMB(3.9,54,2,556,0)=" ; OA-AB3 is created by VistA for the Covered Amount"
^XMB(3.9,54,2,557,0)="""RTN"",""IBCEMQC"",177,0)"
^XMB(3.9,54,2,558,0)=" ; LQ-zzz is created by VistA for the Line Level remark"
^XMB(3.9,54,2,559,0)="""RTN"",""IBCEMQC"",178,0)"
^XMB(3.9,54,2,560,0)=" ;"
^XMB(3.9,54,2,561,0)="""RTN"",""IBCEMQC"",179,0)"
^XMB(3.9,54,2,562,0)=" ;;CO;A2,B6,42,45,172"
^XMB(3.9,54,2,563,0)="""RTN"",""IBCEMQC"",180,0)"
^XMB(3.9,54,2,564,0)=" ;;PR;1,2,66,122,AAA"
^XMB(3.9,54,2,565,0)="""RTN"",""IBCEMQC"",181,0)"
^XMB(3.9,54,2,566,0)=" ;;OA;AB3"
^XMB(3.9,54,2,567,0)="""RTN"",""IBCEMQC"",182,0)"
^XMB(3.9,54,2,568,0)=" ;"
^XMB(3.9,54,2,569,0)="""VER"")"
^XMB(3.9,54,2,570,0)="8.0^22.0"
^XMB(3.9,54,2,571,0)="""BLD"",6680,6)"
^XMB(3.9,54,2,572,0)="^314"
^XMB(3.9,54,2,573,0)="$END KID IB*2.0*302"
^XMB(3.9,54,6,0)="^3.911A^2^2"
^XMB(3.9,54,6,1,0)="POSTMASTER"
^XMB(3.9,54,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,54,6,"B","POSTMASTER",1)=""
^XMB(3.9,54,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,55,0)="IB-2_SEQ-315_PAT-320.KID^.5^3061008.015737^^^^K"
^XMB(3.9,55,.6)="3061008"
^XMB(3.9,55,1,0)="^3.91A^2^2"
^XMB(3.9,55,1,1,0)=".5^0^3061008.015737^^^^^^^3061008.015737"
^XMB(3.9,55,1,2,0)="1^0^3061008.0234^^^^^^^3061008.0234"
^XMB(3.9,55,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,55,1,"C",.5,1)=""
^XMB(3.9,55,1,"C",1,2)=""
^XMB(3.9,55,2,0)="^^34395^34395^3061008"
^XMB(3.9,55,2,1,0)="$TXT Released IB*2*320 SEQ #315"
^XMB(3.9,55,2,2,0)="Extracted from mail message"
^XMB(3.9,55,2,3,0)="$END TXT"
^XMB(3.9,55,2,4,0)="$KID IB*2.0*320"
^XMB(3.9,55,2,5,0)="**INSTALL NAME**"
^XMB(3.9,55,2,6,0)="IB*2.0*320"
^XMB(3.9,55,2,7,0)="""BLD"",5605,0)"
^XMB(3.9,55,2,8,0)="IB*2.0*320^INTEGRATED BILLING^0^3060616^y"
^XMB(3.9,55,2,9,0)="""BLD"",5605,1,0)"
^XMB(3.9,55,2,10,0)="^^1^1^3060324^"
^XMB(3.9,55,2,11,0)="""BLD"",5605,1,1,0)"
^XMB(3.9,55,2,12,0)="eClaims Plus Iteration 2"
^XMB(3.9,55,2,13,0)="""BLD"",5605,4,0)"
^XMB(3.9,55,2,14,0)="^9.64PA^355.96^14"
^XMB(3.9,55,2,15,0)="""BLD"",5605,4,36,0)"
^XMB(3.9,55,2,16,0)="36"
^XMB(3.9,55,2,17,0)="""BLD"",5605,4,36,2,0)"
^XMB(3.9,55,2,18,0)="^9.641^36.013^2"
^XMB(3.9,55,2,19,0)="""BLD"",5605,4,36,2,36,0)"
^XMB(3.9,55,2,20,0)="INSURANCE COMPANY  (File-top level)"
^XMB(3.9,55,2,21,0)="""BLD"",5605,4,36,2,36,1,0)"
^XMB(3.9,55,2,22,0)="^9.6411^4.08^19"
^XMB(3.9,55,2,23,0)="""BLD"",5605,4,36,2,36,1,.01,0)"
^XMB(3.9,55,2,24,0)="NAME"
^XMB(3.9,55,2,25,0)="""BLD"",5605,4,36,2,36,1,.06,0)"
^XMB(3.9,55,2,26,0)="ALLOW MULTIPLE BEDSECTIONS"
^XMB(3.9,55,2,27,0)="""BLD"",5605,4,36,2,36,1,.07,0)"
^XMB(3.9,55,2,28,0)="DIFFERENT REVENUE CODES TO USE"
^XMB(3.9,55,2,29,0)="""BLD"",5605,4,36,2,36,1,.08,0)"
^XMB(3.9,55,2,30,0)="ONE OPT. VISIT ON BILL ONLY"
^XMB(3.9,55,2,31,0)="""BLD"",5605,4,36,2,36,1,.13,0)"
^XMB(3.9,55,2,32,0)="TYPE OF COVERAGE"
^XMB(3.9,55,2,33,0)="""BLD"",5605,4,36,2,36,1,.15,0)"
^XMB(3.9,55,2,34,0)="PRESCRIPTION REFILL REV. CODE"
^XMB(3.9,55,2,35,0)="""BLD"",5605,4,36,2,36,1,3.01,0)"
^XMB(3.9,55,2,36,0)="TRANSMIT ELECTRONICALLY"
^XMB(3.9,55,2,37,0)="""BLD"",5605,4,36,2,36,1,3.02,0)"
^XMB(3.9,55,2,38,0)="EDI ID NUMBER - PROF"
^XMB(3.9,55,2,39,0)="""BLD"",5605,4,36,2,36,1,3.04,0)"
^XMB(3.9,55,2,40,0)="EDI ID NUMBER - INST"
^XMB(3.9,55,2,41,0)="""BLD"",5605,4,36,2,36,1,3.09,0)"
^XMB(3.9,55,2,42,0)="ELECTRONIC INSURANCE TYPE"
^XMB(3.9,55,2,43,0)="""BLD"",5605,4,36,2,36,1,3.13,0)"
^XMB(3.9,55,2,44,0)="INS COMPANY LINK TYPE"
^XMB(3.9,55,2,45,0)="""BLD"",5605,4,36,2,36,1,3.14,0)"
^XMB(3.9,55,2,46,0)="INS COMPANY LINK PARENT"
^XMB(3.9,55,2,47,0)="""BLD"",5605,4,36,2,36,1,4.01,0)"
^XMB(3.9,55,2,48,0)="PERF PROV SECOND ID TYPE HCFA"
^XMB(3.9,55,2,49,0)="""BLD"",5605,4,36,2,36,1,4.02,0)"
^XMB(3.9,55,2,50,0)="PERF PROV SECOND ID TYPE UB"
^XMB(3.9,55,2,51,0)="""BLD"",5605,4,36,2,36,1,4.04,0)"
^XMB(3.9,55,2,52,0)="REF PROV SEC ID DEF HCFA"
^XMB(3.9,55,2,53,0)="""BLD"",5605,4,36,2,36,1,4.05,0)"
^XMB(3.9,55,2,54,0)="REF PROV SEC ID REQ ON CLAIMS"
^XMB(3.9,55,2,55,0)="""BLD"",5605,4,36,2,36,1,4.06,0)"
^XMB(3.9,55,2,56,0)="ATT/REND ID BILL SEC ID PROF"
^XMB(3.9,55,2,57,0)="""BLD"",5605,4,36,2,36,1,4.07,0)"
^XMB(3.9,55,2,58,0)="USE PERF PRV ID AS FAC ID UB92"
^XMB(3.9,55,2,59,0)="""BLD"",5605,4,36,2,36,1,4.08,0)"
^XMB(3.9,55,2,60,0)="ATT/REND ID BILL SEC ID INST"
^XMB(3.9,55,2,61,0)="""BLD"",5605,4,36,2,36.013,0)"
^XMB(3.9,55,2,62,0)="PLAN TYPES NO BILL PRV SEC ID  (sub-file)"
^XMB(3.9,55,2,63,0)="""BLD"",5605,4,36,2,36.013,1,0)"
^XMB(3.9,55,2,64,0)="^9.6411^^"
^XMB(3.9,55,2,65,0)="""BLD"",5605,4,36,222)"
^XMB(3.9,55,2,66,0)="y^y^p^^^^n^^n"
^XMB(3.9,55,2,67,0)="""BLD"",5605,4,36,224)"
^XMB(3.9,55,2,68,0)=""
^XMB(3.9,55,2,69,0)="""BLD"",5605,4,350.8,0)"
^XMB(3.9,55,2,70,0)="350.8"
^XMB(3.9,55,2,71,0)="""BLD"",5605,4,350.8,222)"
^XMB(3.9,55,2,72,0)="n^n^f^^n^^y^o^n"
^XMB(3.9,55,2,73,0)="""BLD"",5605,4,350.8,224)"
^XMB(3.9,55,2,74,0)="I $F("".IB235.IB303.IB236.IB237.IB238.IB239.IB240.IB241.IB242.IB243.IB244.IB245.IB246."","".""_$P($G(^IBE(350.8,+Y,0)),U,1)_""."")"
^XMB(3.9,55,2,75,0)="""BLD"",5605,4,355.92,0)"
^XMB(3.9,55,2,76,0)="355.92"
^XMB(3.9,55,2,77,0)="""BLD"",5605,4,355.92,2,0)"
^XMB(3.9,55,2,78,0)="^9.641^355.92^1"
^XMB(3.9,55,2,79,0)="""BLD"",5605,4,355.92,2,355.92,0)"
^XMB(3.9,55,2,80,0)="FACILITY BILLING ID  (File-top level)"
^XMB(3.9,55,2,81,0)="""BLD"",5605,4,355.92,2,355.92,1,0)"
^XMB(3.9,55,2,82,0)="^9.6411^.11^6"
^XMB(3.9,55,2,83,0)="""BLD"",5605,4,355.92,2,355.92,1,.01,0)"
^XMB(3.9,55,2,84,0)="INSURANCE COMPANY"
^XMB(3.9,55,2,85,0)="""BLD"",5605,4,355.92,2,355.92,1,.03,0)"
^XMB(3.9,55,2,86,0)="CARE UNITS"
^XMB(3.9,55,2,87,0)="""BLD"",5605,4,355.92,2,355.92,1,.05,0)"
^XMB(3.9,55,2,88,0)="DIVISION"
^XMB(3.9,55,2,89,0)="""BLD"",5605,4,355.92,2,355.92,1,.08,0)"
^XMB(3.9,55,2,90,0)="ID TYPE FLAG"
^XMB(3.9,55,2,91,0)="""BLD"",5605,4,355.92,2,355.92,1,.1,0)"
^XMB(3.9,55,2,92,0)="INDEX VALUE CARE UNIT"
^XMB(3.9,55,2,93,0)="""BLD"",5605,4,355.92,2,355.92,1,.11,0)"
^XMB(3.9,55,2,94,0)="INDEX VALUE DIVISION"
^XMB(3.9,55,2,95,0)="""BLD"",5605,4,355.92,222)"
^XMB(3.9,55,2,96,0)="y^y^p^^^^n^^n"
^XMB(3.9,55,2,97,0)="""BLD"",5605,4,355.92,224)"
^XMB(3.9,55,2,98,0)=""
^XMB(3.9,55,2,99,0)="""BLD"",5605,4,355.93,0)"
^XMB(3.9,55,2,100,0)="355.93"
^XMB(3.9,55,2,101,0)="""BLD"",5605,4,355.93,2,0)"
^XMB(3.9,55,2,102,0)="^9.641^355.93^1"
^XMB(3.9,55,2,103,0)="""BLD"",5605,4,355.93,2,355.93,0)"
^XMB(3.9,55,2,104,0)="IB NON/OTHER VA BILLING PROVIDER  (File-top level)"
^XMB(3.9,55,2,105,0)="""BLD"",5605,4,355.93,2,355.93,1,0)"
^XMB(3.9,55,2,106,0)="^9.6411^.13^4"
^XMB(3.9,55,2,107,0)="""BLD"",5605,4,355.93,2,355.93,1,.02,0)"
^XMB(3.9,55,2,108,0)="PROVIDER TYPE"
^XMB(3.9,55,2,109,0)="""BLD"",5605,4,355.93,2,355.93,1,.09,0)"
^XMB(3.9,55,2,110,0)="FACILITY DEFAULT ID NUMBER"
^XMB(3.9,55,2,111,0)="""BLD"",5605,4,355.93,2,355.93,1,.13,0)"
^XMB(3.9,55,2,112,0)="PRIMARY ID QUALIFIER"
^XMB(3.9,55,2,113,0)="""BLD"",5605,4,355.93,2,355.93,1,.15,0)"
^XMB(3.9,55,2,114,0)="MAMMOGRAPHY CERTIFICATION #"
^XMB(3.9,55,2,115,0)="""BLD"",5605,4,355.93,222)"
^XMB(3.9,55,2,116,0)="y^y^p^^^^n^^n"
^XMB(3.9,55,2,117,0)="""BLD"",5605,4,355.93,224)"
^XMB(3.9,55,2,118,0)=""
^XMB(3.9,55,2,119,0)="""BLD"",5605,4,355.95,0)"
^XMB(3.9,55,2,120,0)="355.95"
^XMB(3.9,55,2,121,0)="""BLD"",5605,4,355.95,2,0)"
^XMB(3.9,55,2,122,0)="^9.641^355.95^1"
^XMB(3.9,55,2,123,0)="""BLD"",5605,4,355.95,2,355.95,0)"
^XMB(3.9,55,2,124,0)="IB PROVIDER ID CARE UNIT  (File-top level)"
^XMB(3.9,55,2,125,0)="""BLD"",5605,4,355.95,2,355.95,1,0)"
^XMB(3.9,55,2,126,0)="^9.6411^.04^1"
^XMB(3.9,55,2,127,0)="""BLD"",5605,4,355.95,2,355.95,1,.04,0)"
^XMB(3.9,55,2,128,0)="DIVISION"
^XMB(3.9,55,2,129,0)="""BLD"",5605,4,355.95,222)"
^XMB(3.9,55,2,130,0)="y^y^p^^^^n^^n"
^XMB(3.9,55,2,131,0)="""BLD"",5605,4,355.95,224)"
^XMB(3.9,55,2,132,0)=""
^XMB(3.9,55,2,133,0)="""BLD"",5605,4,355.96,0)"
^XMB(3.9,55,2,134,0)="355.96"
^XMB(3.9,55,2,135,0)="""BLD"",5605,4,355.96,2,0)"
^XMB(3.9,55,2,136,0)="^9.641^355.96^1"
^XMB(3.9,55,2,137,0)="""BLD"",5605,4,355.96,2,355.96,0)"
^XMB(3.9,55,2,138,0)="IB INS CO PROVIDER ID CARE UNIT  (File-top level)"
^XMB(3.9,55,2,139,0)="""BLD"",5605,4,355.96,2,355.96,1,0)"
^XMB(3.9,55,2,140,0)="^9.6411^.06^1"
^XMB(3.9,55,2,141,0)="""BLD"",5605,4,355.96,2,355.96,1,.06,0)"
^XMB(3.9,55,2,142,0)="ID TYPE"
^XMB(3.9,55,2,143,0)="""BLD"",5605,4,355.96,222)"
^XMB(3.9,55,2,144,0)="y^y^p^^^^n^^n"
^XMB(3.9,55,2,145,0)="""BLD"",5605,4,355.96,224)"
^XMB(3.9,55,2,146,0)=""
^XMB(3.9,55,2,147,0)="""BLD"",5605,4,355.97,0)"
^XMB(3.9,55,2,148,0)="355.97"
^XMB(3.9,55,2,149,0)="""BLD"",5605,4,355.97,2,0)"
^XMB(3.9,55,2,150,0)="^9.641^355.97^1"
^XMB(3.9,55,2,151,0)="""BLD"",5605,4,355.97,2,355.97,0)"
^XMB(3.9,55,2,152,0)="IB PROVIDER ID # TYPE  (File-top level)"
^XMB(3.9,55,2,153,0)="""BLD"",5605,4,355.97,2,355.97,1,0)"
^XMB(3.9,55,2,154,0)="^9.6411^.08^3"
^XMB(3.9,55,2,155,0)="""BLD"",5605,4,355.97,2,355.97,1,.03,0)"
^XMB(3.9,55,2,156,0)="X12 CODE"
^XMB(3.9,55,2,157,0)="""BLD"",5605,4,355.97,2,355.97,1,.07,0)"
^XMB(3.9,55,2,158,0)="ALLOWABLE FORM TYPE"
^XMB(3.9,55,2,159,0)="""BLD"",5605,4,355.97,2,355.97,1,.08,0)"
^XMB(3.9,55,2,160,0)="ACTIVE"
^XMB(3.9,55,2,161,0)="""BLD"",5605,4,355.97,222)"
^XMB(3.9,55,2,162,0)="y^y^p^^^^n^^n"
^XMB(3.9,55,2,163,0)="""BLD"",5605,4,355.97,224)"
^XMB(3.9,55,2,164,0)=""
^XMB(3.9,55,2,165,0)="""BLD"",5605,4,361,0)"
^XMB(3.9,55,2,166,0)="361"
^XMB(3.9,55,2,167,0)="""BLD"",5605,4,361,2,0)"
^XMB(3.9,55,2,168,0)="^9.641^361^1"
^XMB(3.9,55,2,169,0)="""BLD"",5605,4,361,2,361,0)"
^XMB(3.9,55,2,170,0)="BILL STATUS MESSAGE  (File-top level)"
^XMB(3.9,55,2,171,0)="""BLD"",5605,4,361,2,361,1,0)"
^XMB(3.9,55,2,172,0)="^9.6411^.16^2"
^XMB(3.9,55,2,173,0)="""BLD"",5605,4,361,2,361,1,.15,0)"
^XMB(3.9,55,2,174,0)="MESSAGE CHECKSUM"
^XMB(3.9,55,2,175,0)="""BLD"",5605,4,361,2,361,1,.16,0)"
^XMB(3.9,55,2,176,0)="DATE LAST PRINTED VIA MCS"
^XMB(3.9,55,2,177,0)="""BLD"",5605,4,361,222)"
^XMB(3.9,55,2,178,0)="y^y^p^^^^n^^n"
^XMB(3.9,55,2,179,0)="""BLD"",5605,4,361,224)"
^XMB(3.9,55,2,180,0)=""
^XMB(3.9,55,2,181,0)="""BLD"",5605,4,361.2,0)"
^XMB(3.9,55,2,182,0)="361.2"
^XMB(3.9,55,2,183,0)="""BLD"",5605,4,361.2,222)"
^XMB(3.9,55,2,184,0)="n^n^f^^n^^y^o^n"
^XMB(3.9,55,2,185,0)="""BLD"",5605,4,361.2,224)"
^XMB(3.9,55,2,186,0)="I $P($G(^IBE(361.2,Y,0)),U,1)=""R0S2"""
^XMB(3.9,55,2,187,0)="""BLD"",5605,4,361.4,0)"
^XMB(3.9,55,2,188,0)="361.4"
^XMB(3.9,55,2,189,0)="""BLD"",5605,4,361.4,2,0)"
^XMB(3.9,55,2,190,0)="^9.641^361.41^1"
^XMB(3.9,55,2,191,0)="""BLD"",5605,4,361.4,2,361.41,0)"
^XMB(3.9,55,2,192,0)="TRANSMIT DATE/TIME  (sub-file)"
^XMB(3.9,55,2,193,0)="""BLD"",5605,4,361.4,2,361.41,1,0)"
^XMB(3.9,55,2,194,0)="^9.6411^.01^1"
^XMB(3.9,55,2,195,0)="""BLD"",5605,4,361.4,2,361.41,1,.01,0)"
^XMB(3.9,55,2,196,0)="TRANSMIT DATE/TIME"
^XMB(3.9,55,2,197,0)="""BLD"",5605,4,361.4,222)"
^XMB(3.9,55,2,198,0)="y^y^p^^^^n^^n"
^XMB(3.9,55,2,199,0)="""BLD"",5605,4,361.4,224)"
^XMB(3.9,55,2,200,0)=""
^XMB(3.9,55,2,201,0)="""BLD"",5605,4,364.5,0)"
^XMB(3.9,55,2,202,0)="364.5"
^XMB(3.9,55,2,203,0)="""BLD"",5605,4,364.5,222)"
^XMB(3.9,55,2,204,0)="n^n^f^^y^^y^o^n"
^XMB(3.9,55,2,205,0)="""BLD"",5605,4,364.5,224)"
^XMB(3.9,55,2,206,0)="I $$INCLUDE^IBY320PR(5,Y)"
^XMB(3.9,55,2,207,0)="""BLD"",5605,4,364.6,0)"
^XMB(3.9,55,2,208,0)="364.6"
^XMB(3.9,55,2,209,0)="""BLD"",5605,4,364.6,222)"
^XMB(3.9,55,2,210,0)="n^n^f^^y^^y^o^n"
^XMB(3.9,55,2,211,0)="""BLD"",5605,4,364.6,224)"
^XMB(3.9,55,2,212,0)="I $$INCLUDE^IBY320PR(6,Y)"
^XMB(3.9,55,2,213,0)="""BLD"",5605,4,364.7,0)"
^XMB(3.9,55,2,214,0)="364.7"
^XMB(3.9,55,2,215,0)="""BLD"",5605,4,364.7,222)"
^XMB(3.9,55,2,216,0)="n^n^f^^y^^y^o^n"
^XMB(3.9,55,2,217,0)="""BLD"",5605,4,364.7,224)"
^XMB(3.9,55,2,218,0)="I $$INCLUDE^IBY320PR(7,Y)"
^XMB(3.9,55,2,219,0)="""BLD"",5605,4,399,0)"
^XMB(3.9,55,2,220,0)="399"
^XMB(3.9,55,2,221,0)="""BLD"",5605,4,399,2,0)"
^XMB(3.9,55,2,222,0)="^9.641^399.0222^2"
^XMB(3.9,55,2,223,0)="""BLD"",5605,4,399,2,399,0)"
^XMB(3.9,55,2,224,0)="BILL/CLAIMS  (File-top level)"
^XMB(3.9,55,2,225,0)="""BLD"",5605,4,399,2,399,1,0)"
^XMB(3.9,55,2,226,0)="^9.6411^.19^19"
^XMB(3.9,55,2,227,0)="""BLD"",5605,4,399,2,399,1,.19,0)"
^XMB(3.9,55,2,228,0)="FORM TYPE"
^XMB(3.9,55,2,229,0)="""BLD"",5605,4,399,2,399,1,.22,0)"
^XMB(3.9,55,2,230,0)="DEFAULT DIVISION"
^XMB(3.9,55,2,231,0)="""BLD"",5605,4,399,2,399,1,29,0)"
^XMB(3.9,55,2,232,0)="BILL CLONED TO"
^XMB(3.9,55,2,233,0)="""BLD"",5605,4,399,2,399,1,30,0)"
^XMB(3.9,55,2,234,0)="BILL CLONED FROM"
^XMB(3.9,55,2,235,0)="""BLD"",5605,4,399,2,399,1,31,0)"
^XMB(3.9,55,2,236,0)="DATE BILL CLONED"
^XMB(3.9,55,2,237,0)="""BLD"",5605,4,399,2,399,1,32,0)"
^XMB(3.9,55,2,238,0)="BILL CLONED BY"
^XMB(3.9,55,2,239,0)="""BLD"",5605,4,399,2,399,1,33,0)"
^XMB(3.9,55,2,240,0)="REASON CLONED"
^XMB(3.9,55,2,241,0)="""BLD"",5605,4,399,2,399,1,101,0)"
^XMB(3.9,55,2,242,0)="PRIMARY INSURANCE CARRIER"
^XMB(3.9,55,2,243,0)="""BLD"",5605,4,399,2,399,1,102,0)"
^XMB(3.9,55,2,244,0)="SECONDARY INSURANCE CARRIER"
^XMB(3.9,55,2,245,0)="""BLD"",5605,4,399,2,399,1,103,0)"
^XMB(3.9,55,2,246,0)="TERTIARY INSURANCE CARRIER"
^XMB(3.9,55,2,247,0)="""BLD"",5605,4,399,2,399,1,122,0)"
^XMB(3.9,55,2,248,0)="PRIMARY PROVIDER #"
^XMB(3.9,55,2,249,0)="""BLD"",5605,4,399,2,399,1,123,0)"
^XMB(3.9,55,2,250,0)="SECONDARY PROVIDER #"
^XMB(3.9,55,2,251,0)="""BLD"",5605,4,399,2,399,1,124,0)"
^XMB(3.9,55,2,252,0)="TERTIARY PROVIDER #"
^XMB(3.9,55,2,253,0)="""BLD"",5605,4,399,2,399,1,128,0)"
^XMB(3.9,55,2,254,0)="PRIMARY ID QUALIFIER"
^XMB(3.9,55,2,255,0)="""BLD"",5605,4,399,2,399,1,129,0)"
^XMB(3.9,55,2,256,0)="SECONDARY ID QUALIFIER"
^XMB(3.9,55,2,257,0)="""BLD"",5605,4,399,2,399,1,130,0)"
^XMB(3.9,55,2,258,0)="TERTIARY ID QUALIFIER"
^XMB(3.9,55,2,259,0)="""BLD"",5605,4,399,2,399,1,232,0)"
^XMB(3.9,55,2,260,0)="NON-VA FACILITY"
^XMB(3.9,55,2,261,0)="""BLD"",5605,4,399,2,399,1,235,0)"
^XMB(3.9,55,2,262,0)="LAB CLIA NUMBER"
^XMB(3.9,55,2,263,0)="""BLD"",5605,4,399,2,399,1,242,0)"
^XMB(3.9,55,2,264,0)="MAMMOGRAPHY CERT NUMBER"
^XMB(3.9,55,2,265,0)="""BLD"",5605,4,399,2,399.0222,0)"
^XMB(3.9,55,2,266,0)="PROVIDER  (sub-file)"
^XMB(3.9,55,2,267,0)="""BLD"",5605,4,399,2,399.0222,1,0)"
^XMB(3.9,55,2,268,0)="^9.6411^.07^6"
^XMB(3.9,55,2,269,0)="""BLD"",5605,4,399,2,399.0222,1,.05,0)"
^XMB(3.9,55,2,270,0)="PRIMARY INS CO ID NUMBER"
^XMB(3.9,55,2,271,0)="""BLD"",5605,4,399,2,399.0222,1,.06,0)"
^XMB(3.9,55,2,272,0)="SECONDARY INS CO ID NUMBER"
^XMB(3.9,55,2,273,0)="""BLD"",5605,4,399,2,399.0222,1,.07,0)"
^XMB(3.9,55,2,274,0)="TERTIARY INS CO ID NUMBER"
^XMB(3.9,55,2,275,0)="""BLD"",5605,4,399,2,399.0222,1,.12,0)"
^XMB(3.9,55,2,276,0)="PRIM INS PROVIDER ID TYPE"
^XMB(3.9,55,2,277,0)="""BLD"",5605,4,399,2,399.0222,1,.13,0)"
^XMB(3.9,55,2,278,0)="SEC INS PROVIDER ID TYPE"
^XMB(3.9,55,2,279,0)="""BLD"",5605,4,399,2,399.0222,1,.14,0)"
^XMB(3.9,55,2,280,0)="TERT INS PROVIDER ID TYPE"
^XMB(3.9,55,2,281,0)="""BLD"",5605,4,399,222)"
^XMB(3.9,55,2,282,0)="y^y^p^^^^n^^n"
^XMB(3.9,55,2,283,0)="""BLD"",5605,4,399,224)"
^XMB(3.9,55,2,284,0)=""
^XMB(3.9,55,2,285,0)="""BLD"",5605,4,""APDD"",36,36)"
^XMB(3.9,55,2,286,0)=""
^XMB(3.9,55,2,287,0)="""BLD"",5605,4,""APDD"",36,36,.01)"
^XMB(3.9,55,2,288,0)=""
^XMB(3.9,55,2,289,0)="""BLD"",5605,4,""APDD"",36,36,.06)"
^XMB(3.9,55,2,290,0)=""
^XMB(3.9,55,2,291,0)="""BLD"",5605,4,""APDD"",36,36,.07)"
^XMB(3.9,55,2,292,0)=""
^XMB(3.9,55,2,293,0)="""BLD"",5605,4,""APDD"",36,36,.08)"
^XMB(3.9,55,2,294,0)=""
^XMB(3.9,55,2,295,0)="""BLD"",5605,4,""APDD"",36,36,.13)"
^XMB(3.9,55,2,296,0)=""
^XMB(3.9,55,2,297,0)="""BLD"",5605,4,""APDD"",36,36,.15)"
^XMB(3.9,55,2,298,0)=""
^XMB(3.9,55,2,299,0)="""BLD"",5605,4,""APDD"",36,36,3.01)"
^XMB(3.9,55,2,300,0)=""
^XMB(3.9,55,2,301,0)="""BLD"",5605,4,""APDD"",36,36,3.02)"
^XMB(3.9,55,2,302,0)=""
^XMB(3.9,55,2,303,0)="""BLD"",5605,4,""APDD"",36,36,3.04)"
^XMB(3.9,55,2,304,0)=""
^XMB(3.9,55,2,305,0)="""BLD"",5605,4,""APDD"",36,36,3.09)"
^XMB(3.9,55,2,306,0)=""
^XMB(3.9,55,2,307,0)="""BLD"",5605,4,""APDD"",36,36,3.13)"
^XMB(3.9,55,2,308,0)=""
^XMB(3.9,55,2,309,0)="""BLD"",5605,4,""APDD"",36,36,3.14)"
^XMB(3.9,55,2,310,0)=""
^XMB(3.9,55,2,311,0)="""BLD"",5605,4,""APDD"",36,36,4.01)"
^XMB(3.9,55,2,312,0)=""
^XMB(3.9,55,2,313,0)="""BLD"",5605,4,""APDD"",36,36,4.02)"
^XMB(3.9,55,2,314,0)=""
^XMB(3.9,55,2,315,0)="""BLD"",5605,4,""APDD"",36,36,4.04)"
^XMB(3.9,55,2,316,0)=""
^XMB(3.9,55,2,317,0)="""BLD"",5605,4,""APDD"",36,36,4.05)"
^XMB(3.9,55,2,318,0)=""
^XMB(3.9,55,2,319,0)="""BLD"",5605,4,""APDD"",36,36,4.06)"
^XMB(3.9,55,2,320,0)=""
^XMB(3.9,55,2,321,0)="""BLD"",5605,4,""APDD"",36,36,4.07)"
^XMB(3.9,55,2,322,0)=""
^XMB(3.9,55,2,323,0)="""BLD"",5605,4,""APDD"",36,36,4.08)"
^XMB(3.9,55,2,324,0)=""
^XMB(3.9,55,2,325,0)="""BLD"",5605,4,""APDD"",36,36.013)"
^XMB(3.9,55,2,326,0)=""
^XMB(3.9,55,2,327,0)="""BLD"",5605,4,""APDD"",355.92,355.92)"
^XMB(3.9,55,2,328,0)=""
^XMB(3.9,55,2,329,0)="""BLD"",5605,4,""APDD"",355.92,355.92,.01)"
^XMB(3.9,55,2,330,0)=""
^XMB(3.9,55,2,331,0)="""BLD"",5605,4,""APDD"",355.92,355.92,.03)"
^XMB(3.9,55,2,332,0)=""
^XMB(3.9,55,2,333,0)="""BLD"",5605,4,""APDD"",355.92,355.92,.05)"
^XMB(3.9,55,2,334,0)=""
^XMB(3.9,55,2,335,0)="""BLD"",5605,4,""APDD"",355.92,355.92,.08)"
^XMB(3.9,55,2,336,0)=""
^XMB(3.9,55,2,337,0)="""BLD"",5605,4,""APDD"",355.92,355.92,.1)"
^XMB(3.9,55,2,338,0)=""
^XMB(3.9,55,2,339,0)="""BLD"",5605,4,""APDD"",355.92,355.92,.11)"
^XMB(3.9,55,2,340,0)=""
^XMB(3.9,55,2,341,0)="""BLD"",5605,4,""APDD"",355.93,355.93)"
^XMB(3.9,55,2,342,0)=""
^XMB(3.9,55,2,343,0)="""BLD"",5605,4,""APDD"",355.93,355.93,.02)"
^XMB(3.9,55,2,344,0)=""
^XMB(3.9,55,2,345,0)="""BLD"",5605,4,""APDD"",355.93,355.93,.09)"
^XMB(3.9,55,2,346,0)=""
^XMB(3.9,55,2,347,0)="""BLD"",5605,4,""APDD"",355.93,355.93,.13)"
^XMB(3.9,55,2,348,0)=""
^XMB(3.9,55,2,349,0)="""BLD"",5605,4,""APDD"",355.93,355.93,.15)"
^XMB(3.9,55,2,350,0)=""
^XMB(3.9,55,2,351,0)="""BLD"",5605,4,""APDD"",355.95,355.95)"
^XMB(3.9,55,2,352,0)=""
^XMB(3.9,55,2,353,0)="""BLD"",5605,4,""APDD"",355.95,355.95,.04)"
^XMB(3.9,55,2,354,0)=""
^XMB(3.9,55,2,355,0)="""BLD"",5605,4,""APDD"",355.96,355.96)"
^XMB(3.9,55,2,356,0)=""
^XMB(3.9,55,2,357,0)="""BLD"",5605,4,""APDD"",355.96,355.96,.06)"
^XMB(3.9,55,2,358,0)=""
^XMB(3.9,55,2,359,0)="""BLD"",5605,4,""APDD"",355.97,355.97)"
^XMB(3.9,55,2,360,0)=""
^XMB(3.9,55,2,361,0)="""BLD"",5605,4,""APDD"",355.97,355.97,.03)"
^XMB(3.9,55,2,362,0)=""
^XMB(3.9,55,2,363,0)="""BLD"",5605,4,""APDD"",355.97,355.97,.07)"
^XMB(3.9,55,2,364,0)=""
^XMB(3.9,55,2,365,0)="""BLD"",5605,4,""APDD"",355.97,355.97,.08)"
^XMB(3.9,55,2,366,0)=""
^XMB(3.9,55,2,367,0)="""BLD"",5605,4,""APDD"",361,361)"
^XMB(3.9,55,2,368,0)=""
^XMB(3.9,55,2,369,0)="""BLD"",5605,4,""APDD"",361,361,.15)"
^XMB(3.9,55,2,370,0)=""
^XMB(3.9,55,2,371,0)="""BLD"",5605,4,""APDD"",361,361,.16)"
^XMB(3.9,55,2,372,0)=""
^XMB(3.9,55,2,373,0)="""BLD"",5605,4,""APDD"",361.4,361.41)"
^XMB(3.9,55,2,374,0)=""
^XMB(3.9,55,2,375,0)="""BLD"",5605,4,""APDD"",361.4,361.41,.01)"
^XMB(3.9,55,2,376,0)=""
^XMB(3.9,55,2,377,0)="""BLD"",5605,4,""APDD"",399,399)"
^XMB(3.9,55,2,378,0)=""
^XMB(3.9,55,2,379,0)="""BLD"",5605,4,""APDD"",399,399,.19)"
^XMB(3.9,55,2,380,0)=""
^XMB(3.9,55,2,381,0)="""BLD"",5605,4,""APDD"",399,399,.22)"
^XMB(3.9,55,2,382,0)=""
^XMB(3.9,55,2,383,0)="""BLD"",5605,4,""APDD"",399,399,29)"
^XMB(3.9,55,2,384,0)=""
^XMB(3.9,55,2,385,0)="""BLD"",5605,4,""APDD"",399,399,30)"
^XMB(3.9,55,2,386,0)=""
^XMB(3.9,55,2,387,0)="""BLD"",5605,4,""APDD"",399,399,31)"
^XMB(3.9,55,2,388,0)=""
^XMB(3.9,55,2,389,0)="""BLD"",5605,4,""APDD"",399,399,32)"
^XMB(3.9,55,2,390,0)=""
^XMB(3.9,55,2,391,0)="""BLD"",5605,4,""APDD"",399,399,33)"
^XMB(3.9,55,2,392,0)=""
^XMB(3.9,55,2,393,0)="""BLD"",5605,4,""APDD"",399,399,101)"
^XMB(3.9,55,2,394,0)=""
^XMB(3.9,55,2,395,0)="""BLD"",5605,4,""APDD"",399,399,102)"
^XMB(3.9,55,2,396,0)=""
^XMB(3.9,55,2,397,0)="""BLD"",5605,4,""APDD"",399,399,103)"
^XMB(3.9,55,2,398,0)=""
^XMB(3.9,55,2,399,0)="""BLD"",5605,4,""APDD"",399,399,122)"
^XMB(3.9,55,2,400,0)=""
^XMB(3.9,55,2,401,0)="""BLD"",5605,4,""APDD"",399,399,123)"
^XMB(3.9,55,2,402,0)=""
^XMB(3.9,55,2,403,0)="""BLD"",5605,4,""APDD"",399,399,124)"
^XMB(3.9,55,2,404,0)=""
^XMB(3.9,55,2,405,0)="""BLD"",5605,4,""APDD"",399,399,128)"
^XMB(3.9,55,2,406,0)=""
^XMB(3.9,55,2,407,0)="""BLD"",5605,4,""APDD"",399,399,129)"
^XMB(3.9,55,2,408,0)=""
^XMB(3.9,55,2,409,0)="""BLD"",5605,4,""APDD"",399,399,130)"
^XMB(3.9,55,2,410,0)=""
^XMB(3.9,55,2,411,0)="""BLD"",5605,4,""APDD"",399,399,232)"
^XMB(3.9,55,2,412,0)=""
^XMB(3.9,55,2,413,0)="""BLD"",5605,4,""APDD"",399,399,235)"
^XMB(3.9,55,2,414,0)=""
^XMB(3.9,55,2,415,0)="""BLD"",5605,4,""APDD"",399,399,242)"
^XMB(3.9,55,2,416,0)=""
^XMB(3.9,55,2,417,0)="""BLD"",5605,4,""APDD"",399,399.0222)"
^XMB(3.9,55,2,418,0)=""
^XMB(3.9,55,2,419,0)="""BLD"",5605,4,""APDD"",399,399.0222,.05)"
^XMB(3.9,55,2,420,0)=""
^XMB(3.9,55,2,421,0)="""BLD"",5605,4,""APDD"",399,399.0222,.06)"
^XMB(3.9,55,2,422,0)=""
^XMB(3.9,55,2,423,0)="""BLD"",5605,4,""APDD"",399,399.0222,.07)"
^XMB(3.9,55,2,424,0)=""
^XMB(3.9,55,2,425,0)="""BLD"",5605,4,""APDD"",399,399.0222,.12)"
^XMB(3.9,55,2,426,0)=""
^XMB(3.9,55,2,427,0)="""BLD"",5605,4,""APDD"",399,399.0222,.13)"
^XMB(3.9,55,2,428,0)=""
^XMB(3.9,55,2,429,0)="""BLD"",5605,4,""APDD"",399,399.0222,.14)"
^XMB(3.9,55,2,430,0)=""
^XMB(3.9,55,2,431,0)="""BLD"",5605,4,""B"",36,36)"
^XMB(3.9,55,2,432,0)=""
^XMB(3.9,55,2,433,0)="""BLD"",5605,4,""B"",350.8,350.8)"
^XMB(3.9,55,2,434,0)=""
^XMB(3.9,55,2,435,0)="""BLD"",5605,4,""B"",355.92,355.92)"
^XMB(3.9,55,2,436,0)=""
^XMB(3.9,55,2,437,0)="""BLD"",5605,4,""B"",355.93,355.93)"
^XMB(3.9,55,2,438,0)=""
^XMB(3.9,55,2,439,0)="""BLD"",5605,4,""B"",355.95,355.95)"
^XMB(3.9,55,2,440,0)=""
^XMB(3.9,55,2,441,0)="""BLD"",5605,4,""B"",355.96,355.96)"
^XMB(3.9,55,2,442,0)=""
^XMB(3.9,55,2,443,0)="""BLD"",5605,4,""B"",355.97,355.97)"
^XMB(3.9,55,2,444,0)=""
^XMB(3.9,55,2,445,0)="""BLD"",5605,4,""B"",361,361)"
^XMB(3.9,55,2,446,0)=""
^XMB(3.9,55,2,447,0)="""BLD"",5605,4,""B"",361.2,361.2)"
^XMB(3.9,55,2,448,0)=""
^XMB(3.9,55,2,449,0)="""BLD"",5605,4,""B"",361.4,361.4)"
^XMB(3.9,55,2,450,0)=""
^XMB(3.9,55,2,451,0)="""BLD"",5605,4,""B"",364.5,364.5)"
^XMB(3.9,55,2,452,0)=""
^XMB(3.9,55,2,453,0)="""BLD"",5605,4,""B"",364.6,364.6)"
^XMB(3.9,55,2,454,0)=""
^XMB(3.9,55,2,455,0)="""BLD"",5605,4,""B"",364.7,364.7)"
^XMB(3.9,55,2,456,0)=""
^XMB(3.9,55,2,457,0)="""BLD"",5605,4,""B"",399,399)"
^XMB(3.9,55,2,458,0)=""
^XMB(3.9,55,2,459,0)="""BLD"",5605,""ABPKG"")"
^XMB(3.9,55,2,460,0)="n"
^XMB(3.9,55,2,461,0)="""BLD"",5605,""INI"")"
^XMB(3.9,55,2,462,0)="IBY320PR"
^XMB(3.9,55,2,463,0)="""BLD"",5605,""INID"")"
^XMB(3.9,55,2,464,0)="^y^y"
^XMB(3.9,55,2,465,0)="""BLD"",5605,""INIT"")"
^XMB(3.9,55,2,466,0)="IBY320PO"
^XMB(3.9,55,2,467,0)="""BLD"",5605,""KRN"",0)"
^XMB(3.9,55,2,468,0)="^9.67PA^8989.52^19"
^XMB(3.9,55,2,469,0)="""BLD"",5605,""KRN"",.4,0)"
^XMB(3.9,55,2,470,0)=".4"
^XMB(3.9,55,2,471,0)="""BLD"",5605,""KRN"",.4,""NM"",0)"
^XMB(3.9,55,2,472,0)="^9.68A^^"
^XMB(3.9,55,2,473,0)="""BLD"",5605,""KRN"",.401,0)"
^XMB(3.9,55,2,474,0)=".401"
^XMB(3.9,55,2,475,0)="""BLD"",5605,""KRN"",.402,0)"
^XMB(3.9,55,2,476,0)=".402"
^XMB(3.9,55,2,477,0)="""BLD"",5605,""KRN"",.402,""NM"",0)"
^XMB(3.9,55,2,478,0)="^9.68A^4^4"
^XMB(3.9,55,2,479,0)="""BLD"",5605,""KRN"",.402,""NM"",1,0)"
^XMB(3.9,55,2,480,0)="IBEDIT INS CO1    FILE #36^36^0"
^XMB(3.9,55,2,481,0)="""BLD"",5605,""KRN"",.402,""NM"",2,0)"
^XMB(3.9,55,2,482,0)="IB SCREEN82    FILE #399^399^0"
^XMB(3.9,55,2,483,0)="""BLD"",5605,""KRN"",.402,""NM"",3,0)"
^XMB(3.9,55,2,484,0)="IB SCREEN8H    FILE #399^399^0"
^XMB(3.9,55,2,485,0)="""BLD"",5605,""KRN"",.402,""NM"",4,0)"
^XMB(3.9,55,2,486,0)="IB SCREEN3    FILE #399^399^0"
^XMB(3.9,55,2,487,0)="""BLD"",5605,""KRN"",.402,""NM"",""B"",""IB SCREEN3    FILE #399"",4)"
^XMB(3.9,55,2,488,0)=""
^XMB(3.9,55,2,489,0)="""BLD"",5605,""KRN"",.402,""NM"",""B"",""IB SCREEN82    FILE #399"",2)"
^XMB(3.9,55,2,490,0)=""
^XMB(3.9,55,2,491,0)="""BLD"",5605,""KRN"",.402,""NM"",""B"",""IB SCREEN8H    FILE #399"",3)"
^XMB(3.9,55,2,492,0)=""
^XMB(3.9,55,2,493,0)="""BLD"",5605,""KRN"",.402,""NM"",""B"",""IBEDIT INS CO1    FILE #36"",1)"
^XMB(3.9,55,2,494,0)=""
^XMB(3.9,55,2,495,0)="""BLD"",5605,""KRN"",.403,0)"
^XMB(3.9,55,2,496,0)=".403"
^XMB(3.9,55,2,497,0)="""BLD"",5605,""KRN"",.5,0)"
^XMB(3.9,55,2,498,0)=".5"
^XMB(3.9,55,2,499,0)="""BLD"",5605,""KRN"",.84,0)"
^XMB(3.9,55,2,500,0)=".84"
^XMB(3.9,55,2,501,0)="""BLD"",5605,""KRN"",3.6,0)"
^XMB(3.9,55,2,502,0)="3.6"
^XMB(3.9,55,2,503,0)="""BLD"",5605,""KRN"",3.8,0)"
^XMB(3.9,55,2,504,0)="3.8"
^XMB(3.9,55,2,505,0)="""BLD"",5605,""KRN"",9.2,0)"
^XMB(3.9,55,2,506,0)="9.2"
^XMB(3.9,55,2,507,0)="""BLD"",5605,""KRN"",9.8,0)"
^XMB(3.9,55,2,508,0)="9.8"
^XMB(3.9,55,2,509,0)="""BLD"",5605,""KRN"",9.8,""NM"",0)"
^XMB(3.9,55,2,510,0)="^9.68A^80^79"
^XMB(3.9,55,2,511,0)="""BLD"",5605,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,55,2,512,0)="IBCEST^^0^B66454874"
^XMB(3.9,55,2,513,0)="""BLD"",5605,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,55,2,514,0)="IBCC^^0^B36081690"
^XMB(3.9,55,2,515,0)="""BLD"",5605,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,55,2,516,0)="IBCCC^^0^B14623718"
^XMB(3.9,55,2,517,0)="""BLD"",5605,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,55,2,518,0)="IBCCC1^^0^B9434923"
^XMB(3.9,55,2,519,0)="""BLD"",5605,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,55,2,520,0)="IBCNQ^^0^B25553746"
^XMB(3.9,55,2,521,0)="""BLD"",5605,""KRN"",9.8,""NM"",6,0)"
^XMB(3.9,55,2,522,0)="IBJTCA2^^0^B23068552"
^XMB(3.9,55,2,523,0)="""BLD"",5605,""KRN"",9.8,""NM"",7,0)"
^XMB(3.9,55,2,524,0)="IBCEF72^^0^B53776551"
^XMB(3.9,55,2,525,0)="""BLD"",5605,""KRN"",9.8,""NM"",8,0)"
^XMB(3.9,55,2,526,0)="IBCECSA2^^0^B81703676"
^XMB(3.9,55,2,527,0)="""BLD"",5605,""KRN"",9.8,""NM"",9,0)"
^XMB(3.9,55,2,528,0)="IBCECSA3^^0^B26519666"
^XMB(3.9,55,2,529,0)="""BLD"",5605,""KRN"",9.8,""NM"",10,0)"
^XMB(3.9,55,2,530,0)="IBCECSA^^0^B60060653"
^XMB(3.9,55,2,531,0)="""BLD"",5605,""KRN"",9.8,""NM"",11,0)"
^XMB(3.9,55,2,532,0)="IBCECSA1^^0^B39221878"
^XMB(3.9,55,2,533,0)="""BLD"",5605,""KRN"",9.8,""NM"",12,0)"
^XMB(3.9,55,2,534,0)="IBCECSA4^^0^B56824408"
^XMB(3.9,55,2,535,0)="""BLD"",5605,""KRN"",9.8,""NM"",13,0)"
^XMB(3.9,55,2,536,0)="IBCEMCA^^0^B50663666"
^XMB(3.9,55,2,537,0)="""BLD"",5605,""KRN"",9.8,""NM"",14,0)"
^XMB(3.9,55,2,538,0)="IBCEMCA1^^0^B46309574"
^XMB(3.9,55,2,539,0)="""BLD"",5605,""KRN"",9.8,""NM"",15,0)"
^XMB(3.9,55,2,540,0)="IBCEMCL^^0^B41449667"
^XMB(3.9,55,2,541,0)="""BLD"",5605,""KRN"",9.8,""NM"",16,0)"
^XMB(3.9,55,2,542,0)="IBCC1^^0^B14613581"
^XMB(3.9,55,2,543,0)="""BLD"",5605,""KRN"",9.8,""NM"",17,0)"
^XMB(3.9,55,2,544,0)="IBCEM3^^0^B11260075"
^XMB(3.9,55,2,545,0)="""BLD"",5605,""KRN"",9.8,""NM"",18,0)"
^XMB(3.9,55,2,546,0)="IBCEMCA2^^0^B17866540"
^XMB(3.9,55,2,547,0)="""BLD"",5605,""KRN"",9.8,""NM"",19,0)"
^XMB(3.9,55,2,548,0)="IBCCR^^0^B4318909"
^XMB(3.9,55,2,549,0)="""BLD"",5605,""KRN"",9.8,""NM"",20,0)"
^XMB(3.9,55,2,550,0)="IBCEMCA3^^0^B52127720"
^XMB(3.9,55,2,551,0)="""BLD"",5605,""KRN"",9.8,""NM"",21,0)"
^XMB(3.9,55,2,552,0)="IBCEMU2^^0^B34857625"
^XMB(3.9,55,2,553,0)="""BLD"",5605,""KRN"",9.8,""NM"",22,0)"
^XMB(3.9,55,2,554,0)="IBCFP1^^0^B33631841"
^XMB(3.9,55,2,555,0)="""BLD"",5605,""KRN"",9.8,""NM"",23,0)"
^XMB(3.9,55,2,556,0)="IBCEP4^^0^B23231941"
^XMB(3.9,55,2,557,0)="""BLD"",5605,""KRN"",9.8,""NM"",24,0)"
^XMB(3.9,55,2,558,0)="IBCEP5^^0^B48276203"
^XMB(3.9,55,2,559,0)="""BLD"",5605,""KRN"",9.8,""NM"",25,0)"
^XMB(3.9,55,2,560,0)="IBCEP5A^^0^B24226544"
^XMB(3.9,55,2,561,0)="""BLD"",5605,""KRN"",9.8,""NM"",26,0)"
^XMB(3.9,55,2,562,0)="IBCEP5B^^0^B37504139"
^XMB(3.9,55,2,563,0)="""BLD"",5605,""KRN"",9.8,""NM"",27,0)"
^XMB(3.9,55,2,564,0)="IBCEP6^^0^B11155166"
^XMB(3.9,55,2,565,0)="""BLD"",5605,""KRN"",9.8,""NM"",28,0)"
^XMB(3.9,55,2,566,0)="IBCEP7^^0^B48424758"
^XMB(3.9,55,2,567,0)="""BLD"",5605,""KRN"",9.8,""NM"",29,0)"
^XMB(3.9,55,2,568,0)="IBCEP8^^0^B54137838"
^XMB(3.9,55,2,569,0)="""BLD"",5605,""KRN"",9.8,""NM"",30,0)"
^XMB(3.9,55,2,570,0)="IBCEPA^^0^B50476758"
^XMB(3.9,55,2,571,0)="""BLD"",5605,""KRN"",9.8,""NM"",31,0)"
^XMB(3.9,55,2,572,0)="IBCNSC^^0^B21343309"
^XMB(3.9,55,2,573,0)="""BLD"",5605,""KRN"",9.8,""NM"",32,0)"
^XMB(3.9,55,2,574,0)="IBCNSC1^^0^B69640933"
^XMB(3.9,55,2,575,0)="""BLD"",5605,""KRN"",9.8,""NM"",33,0)"
^XMB(3.9,55,2,576,0)="IBCNSC02^^0^B55607158"
^XMB(3.9,55,2,577,0)="""BLD"",5605,""KRN"",9.8,""NM"",34,0)"
^XMB(3.9,55,2,578,0)="IBCNSC01^^0^B50893102"
^XMB(3.9,55,2,579,0)="""BLD"",5605,""KRN"",9.8,""NM"",35,0)"
^XMB(3.9,55,2,580,0)="IBCE837B^^0^B3184659"
^XMB(3.9,55,2,581,0)="""BLD"",5605,""KRN"",9.8,""NM"",36,0)"
^XMB(3.9,55,2,582,0)="IBCEFG7^^0^B51790981"
^XMB(3.9,55,2,583,0)="""BLD"",5605,""KRN"",9.8,""NM"",37,0)"
^XMB(3.9,55,2,584,0)="IBCEPTC^^0^B73154243"
^XMB(3.9,55,2,585,0)="""BLD"",5605,""KRN"",9.8,""NM"",38,0)"
^XMB(3.9,55,2,586,0)="IBCEPTC0^^0^B19867534"
^XMB(3.9,55,2,587,0)="""BLD"",5605,""KRN"",9.8,""NM"",39,0)"
^XMB(3.9,55,2,588,0)="IBCEPTC1^^0^B16490219"
^XMB(3.9,55,2,589,0)="""BLD"",5605,""KRN"",9.8,""NM"",40,0)"
^XMB(3.9,55,2,590,0)="IBCEPTC2^^0^B47686748"
^XMB(3.9,55,2,591,0)="""BLD"",5605,""KRN"",9.8,""NM"",41,0)"
^XMB(3.9,55,2,592,0)="IBCEPTC3^^0^B61167367"
^XMB(3.9,55,2,593,0)="""BLD"",5605,""KRN"",9.8,""NM"",42,0)"
^XMB(3.9,55,2,594,0)="IBCBB2^^0^B42060195"
^XMB(3.9,55,2,595,0)="""BLD"",5605,""KRN"",9.8,""NM"",43,0)"
^XMB(3.9,55,2,596,0)="IBCCC2^^0^B56568071"
^XMB(3.9,55,2,597,0)="""BLD"",5605,""KRN"",9.8,""NM"",44,0)"
^XMB(3.9,55,2,598,0)="IBCEP8A^^0^B25216435"
^XMB(3.9,55,2,599,0)="""BLD"",5605,""KRN"",9.8,""NM"",45,0)"
^XMB(3.9,55,2,600,0)="IBCSC8H^^0^B30414621"
^XMB(3.9,55,2,601,0)="""BLD"",5605,""KRN"",9.8,""NM"",46,0)"
^XMB(3.9,55,2,602,0)="IBCEF71^^0^B63861982"
^XMB(3.9,55,2,603,0)="""BLD"",5605,""KRN"",9.8,""NM"",47,0)"
^XMB(3.9,55,2,604,0)="IBCEPTR^^0^B101970593"
^XMB(3.9,55,2,605,0)="""BLD"",5605,""KRN"",9.8,""NM"",48,0)"
^XMB(3.9,55,2,606,0)="IBCEFG4^^0^B25221487"
^XMB(3.9,55,2,607,0)="""BLD"",5605,""KRN"",9.8,""NM"",49,0)"
^XMB(3.9,55,2,608,0)="IBJPS^^0^B5289854"
^XMB(3.9,55,2,609,0)="""BLD"",5605,""KRN"",9.8,""NM"",50,0)"
^XMB(3.9,55,2,610,0)="IBJPS2^^0^B48143504"
^XMB(3.9,55,2,611,0)="""BLD"",5605,""KRN"",9.8,""NM"",51,0)"
^XMB(3.9,55,2,612,0)="IBCU^^0^B57362986"
^XMB(3.9,55,2,613,0)="""BLD"",5605,""KRN"",9.8,""NM"",52,0)"
^XMB(3.9,55,2,614,0)="IBCEPU^^0^B931985"
^XMB(3.9,55,2,615,0)="""BLD"",5605,""KRN"",9.8,""NM"",53,0)"
^XMB(3.9,55,2,616,0)="IBCEP7A^^0^B8080264"
^XMB(3.9,55,2,617,0)="""BLD"",5605,""KRN"",9.8,""NM"",54,0)"
^XMB(3.9,55,2,618,0)="IBCEP7B^^0^B7086017"
^XMB(3.9,55,2,619,0)="""BLD"",5605,""KRN"",9.8,""NM"",55,0)"
^XMB(3.9,55,2,620,0)="IBCEP7C^^0^B59203324"
^XMB(3.9,55,2,621,0)="""BLD"",5605,""KRN"",9.8,""NM"",56,0)"
^XMB(3.9,55,2,622,0)="IBCEP2^^0^B43180010"
^XMB(3.9,55,2,623,0)="""BLD"",5605,""KRN"",9.8,""NM"",57,0)"
^XMB(3.9,55,2,624,0)="IBCEP2A^^0^B42808014"
^XMB(3.9,55,2,625,0)="""BLD"",5605,""KRN"",9.8,""NM"",58,0)"
^XMB(3.9,55,2,626,0)="IBCEP2B^^0^B49897444"
^XMB(3.9,55,2,627,0)="""BLD"",5605,""KRN"",9.8,""NM"",59,0)"
^XMB(3.9,55,2,628,0)="IBCEP5C^^0^B43626685"
^XMB(3.9,55,2,629,0)="""BLD"",5605,""KRN"",9.8,""NM"",60,0)"
^XMB(3.9,55,2,630,0)="IBCEF73^^0^B54477454"
^XMB(3.9,55,2,631,0)="""BLD"",5605,""KRN"",9.8,""NM"",61,0)"
^XMB(3.9,55,2,632,0)="IBCEP^^0^B21507760"
^XMB(3.9,55,2,633,0)="""BLD"",5605,""KRN"",9.8,""NM"",62,0)"
^XMB(3.9,55,2,634,0)="IBCEP0^^0^B67697458"
^XMB(3.9,55,2,635,0)="""BLD"",5605,""KRN"",9.8,""NM"",63,0)"
^XMB(3.9,55,2,636,0)="IBCEPC^^0^B5826861"
^XMB(3.9,55,2,637,0)="""BLD"",5605,""KRN"",9.8,""NM"",64,0)"
^XMB(3.9,55,2,638,0)="IBCBB1^^0^B69487454"
^XMB(3.9,55,2,639,0)="""BLD"",5605,""KRN"",9.8,""NM"",65,0)"
^XMB(3.9,55,2,640,0)="IBCEF74^^0^B56964899"
^XMB(3.9,55,2,641,0)="""BLD"",5605,""KRN"",9.8,""NM"",66,0)"
^XMB(3.9,55,2,642,0)="IBCEF75^^0^B30617202"
^XMB(3.9,55,2,643,0)="""BLD"",5605,""KRN"",9.8,""NM"",67,0)"
^XMB(3.9,55,2,644,0)="IBCEF76^^0^B34194204"
^XMB(3.9,55,2,645,0)="""BLD"",5605,""KRN"",9.8,""NM"",68,0)"
^XMB(3.9,55,2,646,0)="IBCEPB^^0^B8186996"
^XMB(3.9,55,2,647,0)="""BLD"",5605,""KRN"",9.8,""NM"",69,0)"
^XMB(3.9,55,2,648,0)="IBCSC3^^0^B36137301"
^XMB(3.9,55,2,649,0)="""BLD"",5605,""KRN"",9.8,""NM"",70,0)"
^XMB(3.9,55,2,650,0)="IBCEP0A^^0^B41076613"
^XMB(3.9,55,2,651,0)="""BLD"",5605,""KRN"",9.8,""NM"",72,0)"
^XMB(3.9,55,2,652,0)="IBCEF77^^0^B6621719"
^XMB(3.9,55,2,653,0)="""BLD"",5605,""KRN"",9.8,""NM"",73,0)"
^XMB(3.9,55,2,654,0)="IBCEP5D^^0^B55561747"
^XMB(3.9,55,2,655,0)="""BLD"",5605,""KRN"",9.8,""NM"",74,0)"
^XMB(3.9,55,2,656,0)="IBCEF74A^^0^B17345464"
^XMB(3.9,55,2,657,0)="""BLD"",5605,""KRN"",9.8,""NM"",75,0)"
^XMB(3.9,55,2,658,0)="IBCEPCID^^0^B34815450"
^XMB(3.9,55,2,659,0)="""BLD"",5605,""KRN"",9.8,""NM"",76,0)"
^XMB(3.9,55,2,660,0)="IBCEP9^^0^B73023776"
^XMB(3.9,55,2,661,0)="""BLD"",5605,""KRN"",9.8,""NM"",77,0)"
^XMB(3.9,55,2,662,0)="IBCEP9B^^0^B57215054"
^XMB(3.9,55,2,663,0)="""BLD"",5605,""KRN"",9.8,""NM"",78,0)"
^XMB(3.9,55,2,664,0)="IBCESRV^^0^B69133762"
^XMB(3.9,55,2,665,0)="""BLD"",5605,""KRN"",9.8,""NM"",79,0)"
^XMB(3.9,55,2,666,0)="IBCEST1^^0^B1659665"
^XMB(3.9,55,2,667,0)="""BLD"",5605,""KRN"",9.8,""NM"",80,0)"
^XMB(3.9,55,2,668,0)="IBCU1^^0^B42846592"
^XMB(3.9,55,2,669,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCBB1"",64)"
^XMB(3.9,55,2,670,0)=""
^XMB(3.9,55,2,671,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCBB2"",42)"
^XMB(3.9,55,2,672,0)=""
^XMB(3.9,55,2,673,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCC"",2)"
^XMB(3.9,55,2,674,0)=""
^XMB(3.9,55,2,675,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCC1"",16)"
^XMB(3.9,55,2,676,0)=""
^XMB(3.9,55,2,677,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCCC"",3)"
^XMB(3.9,55,2,678,0)=""
^XMB(3.9,55,2,679,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCCC1"",4)"
^XMB(3.9,55,2,680,0)=""
^XMB(3.9,55,2,681,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCCC2"",43)"
^XMB(3.9,55,2,682,0)=""
^XMB(3.9,55,2,683,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCCR"",19)"
^XMB(3.9,55,2,684,0)=""
^XMB(3.9,55,2,685,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCE837B"",35)"
^XMB(3.9,55,2,686,0)=""
^XMB(3.9,55,2,687,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCECSA"",10)"
^XMB(3.9,55,2,688,0)=""
^XMB(3.9,55,2,689,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCECSA1"",11)"
^XMB(3.9,55,2,690,0)=""
^XMB(3.9,55,2,691,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCECSA2"",8)"
^XMB(3.9,55,2,692,0)=""
^XMB(3.9,55,2,693,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCECSA3"",9)"
^XMB(3.9,55,2,694,0)=""
^XMB(3.9,55,2,695,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCECSA4"",12)"
^XMB(3.9,55,2,696,0)=""
^XMB(3.9,55,2,697,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEF71"",46)"
^XMB(3.9,55,2,698,0)=""
^XMB(3.9,55,2,699,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEF72"",7)"
^XMB(3.9,55,2,700,0)=""
^XMB(3.9,55,2,701,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEF73"",60)"
^XMB(3.9,55,2,702,0)=""
^XMB(3.9,55,2,703,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEF74"",65)"
^XMB(3.9,55,2,704,0)=""
^XMB(3.9,55,2,705,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEF74A"",74)"
^XMB(3.9,55,2,706,0)=""
^XMB(3.9,55,2,707,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEF75"",66)"
^XMB(3.9,55,2,708,0)=""
^XMB(3.9,55,2,709,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEF76"",67)"
^XMB(3.9,55,2,710,0)=""
^XMB(3.9,55,2,711,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEF77"",72)"
^XMB(3.9,55,2,712,0)=""
^XMB(3.9,55,2,713,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEFG4"",48)"
^XMB(3.9,55,2,714,0)=""
^XMB(3.9,55,2,715,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEFG7"",36)"
^XMB(3.9,55,2,716,0)=""
^XMB(3.9,55,2,717,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEM3"",17)"
^XMB(3.9,55,2,718,0)=""
^XMB(3.9,55,2,719,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEMCA"",13)"
^XMB(3.9,55,2,720,0)=""
^XMB(3.9,55,2,721,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEMCA1"",14)"
^XMB(3.9,55,2,722,0)=""
^XMB(3.9,55,2,723,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEMCA2"",18)"
^XMB(3.9,55,2,724,0)=""
^XMB(3.9,55,2,725,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEMCA3"",20)"
^XMB(3.9,55,2,726,0)=""
^XMB(3.9,55,2,727,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEMCL"",15)"
^XMB(3.9,55,2,728,0)=""
^XMB(3.9,55,2,729,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEMU2"",21)"
^XMB(3.9,55,2,730,0)=""
^XMB(3.9,55,2,731,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEP"",61)"
^XMB(3.9,55,2,732,0)=""
^XMB(3.9,55,2,733,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEP0"",62)"
^XMB(3.9,55,2,734,0)=""
^XMB(3.9,55,2,735,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEP0A"",70)"
^XMB(3.9,55,2,736,0)=""
^XMB(3.9,55,2,737,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEP2"",56)"
^XMB(3.9,55,2,738,0)=""
^XMB(3.9,55,2,739,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEP2A"",57)"
^XMB(3.9,55,2,740,0)=""
^XMB(3.9,55,2,741,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEP2B"",58)"
^XMB(3.9,55,2,742,0)=""
^XMB(3.9,55,2,743,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEP4"",23)"
^XMB(3.9,55,2,744,0)=""
^XMB(3.9,55,2,745,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEP5"",24)"
^XMB(3.9,55,2,746,0)=""
^XMB(3.9,55,2,747,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEP5A"",25)"
^XMB(3.9,55,2,748,0)=""
^XMB(3.9,55,2,749,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEP5B"",26)"
^XMB(3.9,55,2,750,0)=""
^XMB(3.9,55,2,751,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEP5C"",59)"
^XMB(3.9,55,2,752,0)=""
^XMB(3.9,55,2,753,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEP5D"",73)"
^XMB(3.9,55,2,754,0)=""
^XMB(3.9,55,2,755,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEP6"",27)"
^XMB(3.9,55,2,756,0)=""
^XMB(3.9,55,2,757,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEP7"",28)"
^XMB(3.9,55,2,758,0)=""
^XMB(3.9,55,2,759,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEP7A"",53)"
^XMB(3.9,55,2,760,0)=""
^XMB(3.9,55,2,761,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEP7B"",54)"
^XMB(3.9,55,2,762,0)=""
^XMB(3.9,55,2,763,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEP7C"",55)"
^XMB(3.9,55,2,764,0)=""
^XMB(3.9,55,2,765,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEP8"",29)"
^XMB(3.9,55,2,766,0)=""
^XMB(3.9,55,2,767,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEP8A"",44)"
^XMB(3.9,55,2,768,0)=""
^XMB(3.9,55,2,769,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEP9"",76)"
^XMB(3.9,55,2,770,0)=""
^XMB(3.9,55,2,771,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEP9B"",77)"
^XMB(3.9,55,2,772,0)=""
^XMB(3.9,55,2,773,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEPA"",30)"
^XMB(3.9,55,2,774,0)=""
^XMB(3.9,55,2,775,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEPB"",68)"
^XMB(3.9,55,2,776,0)=""
^XMB(3.9,55,2,777,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEPC"",63)"
^XMB(3.9,55,2,778,0)=""
^XMB(3.9,55,2,779,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEPCID"",75)"
^XMB(3.9,55,2,780,0)=""
^XMB(3.9,55,2,781,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEPTC"",37)"
^XMB(3.9,55,2,782,0)=""
^XMB(3.9,55,2,783,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEPTC0"",38)"
^XMB(3.9,55,2,784,0)=""
^XMB(3.9,55,2,785,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEPTC1"",39)"
^XMB(3.9,55,2,786,0)=""
^XMB(3.9,55,2,787,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEPTC2"",40)"
^XMB(3.9,55,2,788,0)=""
^XMB(3.9,55,2,789,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEPTC3"",41)"
^XMB(3.9,55,2,790,0)=""
^XMB(3.9,55,2,791,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEPTR"",47)"
^XMB(3.9,55,2,792,0)=""
^XMB(3.9,55,2,793,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEPU"",52)"
^XMB(3.9,55,2,794,0)=""
^XMB(3.9,55,2,795,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCESRV"",78)"
^XMB(3.9,55,2,796,0)=""
^XMB(3.9,55,2,797,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEST"",1)"
^XMB(3.9,55,2,798,0)=""
^XMB(3.9,55,2,799,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCEST1"",79)"
^XMB(3.9,55,2,800,0)=""
^XMB(3.9,55,2,801,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCFP1"",22)"
^XMB(3.9,55,2,802,0)=""
^XMB(3.9,55,2,803,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCNQ"",5)"
^XMB(3.9,55,2,804,0)=""
^XMB(3.9,55,2,805,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCNSC"",31)"
^XMB(3.9,55,2,806,0)=""
^XMB(3.9,55,2,807,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCNSC01"",34)"
^XMB(3.9,55,2,808,0)=""
^XMB(3.9,55,2,809,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCNSC02"",33)"
^XMB(3.9,55,2,810,0)=""
^XMB(3.9,55,2,811,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCNSC1"",32)"
^XMB(3.9,55,2,812,0)=""
^XMB(3.9,55,2,813,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCSC3"",69)"
^XMB(3.9,55,2,814,0)=""
^XMB(3.9,55,2,815,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCSC8H"",45)"
^XMB(3.9,55,2,816,0)=""
^XMB(3.9,55,2,817,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCU"",51)"
^XMB(3.9,55,2,818,0)=""
^XMB(3.9,55,2,819,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBCU1"",80)"
^XMB(3.9,55,2,820,0)=""
^XMB(3.9,55,2,821,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBJPS"",49)"
^XMB(3.9,55,2,822,0)=""
^XMB(3.9,55,2,823,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBJPS2"",50)"
^XMB(3.9,55,2,824,0)=""
^XMB(3.9,55,2,825,0)="""BLD"",5605,""KRN"",9.8,""NM"",""B"",""IBJTCA2"",6)"
^XMB(3.9,55,2,826,0)=""
^XMB(3.9,55,2,827,0)="""BLD"",5605,""KRN"",19,0)"
^XMB(3.9,55,2,828,0)="19"
^XMB(3.9,55,2,829,0)="""BLD"",5605,""KRN"",19,""NM"",0)"
^XMB(3.9,55,2,830,0)="^9.68A^7^7"
^XMB(3.9,55,2,831,0)="""BLD"",5605,""KRN"",19,""NM"",1,0)"
^XMB(3.9,55,2,832,0)="IBCE 837 EDI REPORTS^^2"
^XMB(3.9,55,2,833,0)="""BLD"",5605,""KRN"",19,""NM"",2,0)"
^XMB(3.9,55,2,834,0)="IBCEMC MULT CSA MSG MANAGEMENT^^0"
^XMB(3.9,55,2,835,0)="""BLD"",5605,""KRN"",19,""NM"",3,0)"
^XMB(3.9,55,2,836,0)="IBCE 837 EDI MENU^^2"
^XMB(3.9,55,2,837,0)="""BLD"",5605,""KRN"",19,""NM"",4,0)"
^XMB(3.9,55,2,838,0)="IBCE PREV TRANSMITTED CLAIMS^^0"
^XMB(3.9,55,2,839,0)="""BLD"",5605,""KRN"",19,""NM"",5,0)"
^XMB(3.9,55,2,840,0)="IBCE RESUBMIT BILL BATCH^^1^"
^XMB(3.9,55,2,841,0)="""BLD"",5605,""KRN"",19,""NM"",6,0)"
^XMB(3.9,55,2,842,0)="IBCE RESUBMIT BILL^^1^"
^XMB(3.9,55,2,843,0)="""BLD"",5605,""KRN"",19,""NM"",7,0)"
^XMB(3.9,55,2,844,0)="IBCN RESYNCH INS COMP^^0"
^XMB(3.9,55,2,845,0)="""BLD"",5605,""KRN"",19,""NM"",""B"",""IBCE 837 EDI MENU"",3)"
^XMB(3.9,55,2,846,0)=""
^XMB(3.9,55,2,847,0)="""BLD"",5605,""KRN"",19,""NM"",""B"",""IBCE 837 EDI REPORTS"",1)"
^XMB(3.9,55,2,848,0)=""
^XMB(3.9,55,2,849,0)="""BLD"",5605,""KRN"",19,""NM"",""B"",""IBCE PREV TRANSMITTED CLAIMS"",4)"
^XMB(3.9,55,2,850,0)=""
^XMB(3.9,55,2,851,0)="""BLD"",5605,""KRN"",19,""NM"",""B"",""IBCE RESUBMIT BILL"",6)"
^XMB(3.9,55,2,852,0)=""
^XMB(3.9,55,2,853,0)="""BLD"",5605,""KRN"",19,""NM"",""B"",""IBCE RESUBMIT BILL BATCH"",5)"
^XMB(3.9,55,2,854,0)=""
^XMB(3.9,55,2,855,0)="""BLD"",5605,""KRN"",19,""NM"",""B"",""IBCEMC MULT CSA MSG MANAGEMENT"",2)"
^XMB(3.9,55,2,856,0)=""
^XMB(3.9,55,2,857,0)="""BLD"",5605,""KRN"",19,""NM"",""B"",""IBCN RESYNCH INS COMP"",7)"
^XMB(3.9,55,2,858,0)=""
^XMB(3.9,55,2,859,0)="""BLD"",5605,""KRN"",19.1,0)"
^XMB(3.9,55,2,860,0)="19.1"
^XMB(3.9,55,2,861,0)="""BLD"",5605,""KRN"",19.1,""NM"",0)"
^XMB(3.9,55,2,862,0)="^9.68A^2^2"
^XMB(3.9,55,2,863,0)="""BLD"",5605,""KRN"",19.1,""NM"",1,0)"
^XMB(3.9,55,2,864,0)="IB MESSAGE MANAGEMENT^^0"
^XMB(3.9,55,2,865,0)="""BLD"",5605,""KRN"",19.1,""NM"",2,0)"
^XMB(3.9,55,2,866,0)="IB EDI INSURANCE EDIT^^0"
^XMB(3.9,55,2,867,0)="""BLD"",5605,""KRN"",19.1,""NM"",""B"",""IB EDI INSURANCE EDIT"",2)"
^XMB(3.9,55,2,868,0)=""
^XMB(3.9,55,2,869,0)="""BLD"",5605,""KRN"",19.1,""NM"",""B"",""IB MESSAGE MANAGEMENT"",1)"
^XMB(3.9,55,2,870,0)=""
^XMB(3.9,55,2,871,0)="""BLD"",5605,""KRN"",101,0)"
^XMB(3.9,55,2,872,0)="101"
^XMB(3.9,55,2,873,0)="""BLD"",5605,""KRN"",101,""NM"",0)"
^XMB(3.9,55,2,874,0)="^9.68A^65^62"
^XMB(3.9,55,2,875,0)="""BLD"",5605,""KRN"",101,""NM"",1,0)"
^XMB(3.9,55,2,876,0)="IBCEM CSA RE-SORT MESSAGES^^0"
^XMB(3.9,55,2,877,0)="""BLD"",5605,""KRN"",101,""NM"",2,0)"
^XMB(3.9,55,2,878,0)="IBCEM CLAIMS STATUS AWAITING^^2"
^XMB(3.9,55,2,879,0)="""BLD"",5605,""KRN"",101,""NM"",3,0)"
^XMB(3.9,55,2,880,0)="IBCEM CSA MSG MAN^^0"
^XMB(3.9,55,2,881,0)="""BLD"",5605,""KRN"",101,""NM"",4,0)"
^XMB(3.9,55,2,882,0)="IBCEMC CANCEL^^0"
^XMB(3.9,55,2,883,0)="""BLD"",5605,""KRN"",101,""NM"",5,0)"
^XMB(3.9,55,2,884,0)="IBCEMC CHANGE MESSAGE SEARCH CRITERIA^^0"
^XMB(3.9,55,2,885,0)="""BLD"",5605,""KRN"",101,""NM"",6,0)"
^XMB(3.9,55,2,886,0)="IBCEMC COMMENT^^0"
^XMB(3.9,55,2,887,0)="""BLD"",5605,""KRN"",101,""NM"",7,0)"
^XMB(3.9,55,2,888,0)="IBCEMC EXIT^^0"
^XMB(3.9,55,2,889,0)="""BLD"",5605,""KRN"",101,""NM"",8,0)"
^XMB(3.9,55,2,890,0)="IBCEMC MENU^^0"
^XMB(3.9,55,2,891,0)="""BLD"",5605,""KRN"",101,""NM"",9,0)"
^XMB(3.9,55,2,892,0)="IBCEMC PRINT^^0"
^XMB(3.9,55,2,893,0)="""BLD"",5605,""KRN"",101,""NM"",10,0)"
^XMB(3.9,55,2,894,0)="IBCEMC RETRANSMIT^^0"
^XMB(3.9,55,2,895,0)="""BLD"",5605,""KRN"",101,""NM"",11,0)"
^XMB(3.9,55,2,896,0)="IBCEMC REVIEW STATUS^^0"
^XMB(3.9,55,2,897,0)="""BLD"",5605,""KRN"",101,""NM"",12,0)"
^XMB(3.9,55,2,898,0)="IBCEMC SELECT & DESELECT MESSAGES^^0"
^XMB(3.9,55,2,899,0)="""BLD"",5605,""KRN"",101,""NM"",14,0)"
^XMB(3.9,55,2,900,0)="IBCE PRVNVA PROVINFO^^0"
^XMB(3.9,55,2,901,0)="""BLD"",5605,""KRN"",101,""NM"",15,0)"
^XMB(3.9,55,2,902,0)="IBCE PRVNVA NONIND MAINT^^0"
^XMB(3.9,55,2,903,0)="""BLD"",5605,""KRN"",101,""NM"",16,0)"
^XMB(3.9,55,2,904,0)="IBCE 2ND PRVCARE ADD^^0"
^XMB(3.9,55,2,905,0)="""BLD"",5605,""KRN"",101,""NM"",17,0)"
^XMB(3.9,55,2,906,0)="IBCE 2ND PRVCARE EDIT^^0"
^XMB(3.9,55,2,907,0)="""BLD"",5605,""KRN"",101,""NM"",18,0)"
^XMB(3.9,55,2,908,0)="IBCE 2ND PRVCARE MENU^^0"
^XMB(3.9,55,2,909,0)="""BLD"",5605,""KRN"",101,""NM"",19,0)"
^XMB(3.9,55,2,910,0)="IBCE EXIT^^0"
^XMB(3.9,55,2,911,0)="""BLD"",5605,""KRN"",101,""NM"",20,0)"
^XMB(3.9,55,2,912,0)="IBCNSC INS CO ASSOCIATION^^0"
^XMB(3.9,55,2,913,0)="""BLD"",5605,""KRN"",101,""NM"",21,0)"
^XMB(3.9,55,2,914,0)="IBCNSC INS CO PAYER^^0"
^XMB(3.9,55,2,915,0)="""BLD"",5605,""KRN"",101,""NM"",22,0)"
^XMB(3.9,55,2,916,0)="IBCNSC INS CO REMARKS^^0"
^XMB(3.9,55,2,917,0)="""BLD"",5605,""KRN"",101,""NM"",23,0)"
^XMB(3.9,55,2,918,0)="IBCNSC INS CO SYNONYMS^^0"
^XMB(3.9,55,2,919,0)="""BLD"",5605,""KRN"",101,""NM"",24,0)"
^XMB(3.9,55,2,920,0)="IBCNSC INSURANCE CO^^2"
^XMB(3.9,55,2,921,0)="""BLD"",5605,""KRN"",101,""NM"",25,0)"
^XMB(3.9,55,2,922,0)="IBCNSC PROVIDER ID PARAMETERS^^0"
^XMB(3.9,55,2,923,0)="""BLD"",5605,""KRN"",101,""NM"",26,0)"
^XMB(3.9,55,2,924,0)="IBCNSL EXIT^^0"
^XMB(3.9,55,2,925,0)="""BLD"",5605,""KRN"",101,""NM"",27,0)"
^XMB(3.9,55,2,926,0)="IBCNSL LINK^^0"
^XMB(3.9,55,2,927,0)="""BLD"",5605,""KRN"",101,""NM"",28,0)"
^XMB(3.9,55,2,928,0)="IBCNSL MENU^^0"
^XMB(3.9,55,2,929,0)="""BLD"",5605,""KRN"",101,""NM"",29,0)"
^XMB(3.9,55,2,930,0)="IBCNSL UNLINK^^0"
^XMB(3.9,55,2,931,0)="""BLD"",5605,""KRN"",101,""NM"",30,0)"
^XMB(3.9,55,2,932,0)="IBCE VIEW PREV TRANS^^0"
^XMB(3.9,55,2,933,0)="""BLD"",5605,""KRN"",101,""NM"",31,0)"
^XMB(3.9,55,2,934,0)="IBCE VIEW PREV TRANS BTCH SEL^^0"
^XMB(3.9,55,2,935,0)="""BLD"",5605,""KRN"",101,""NM"",32,0)"
^XMB(3.9,55,2,936,0)="IBCE VIEW PREV TRANS EXIT^^0"
^XMB(3.9,55,2,937,0)="""BLD"",5605,""KRN"",101,""NM"",33,0)"
^XMB(3.9,55,2,938,0)="IBCE VIEW PREV TRANS REPORT^^0"
^XMB(3.9,55,2,939,0)="""BLD"",5605,""KRN"",101,""NM"",34,0)"
^XMB(3.9,55,2,940,0)="IBCE VIEW PREV TRANS RESUB^^0"
^XMB(3.9,55,2,941,0)="""BLD"",5605,""KRN"",101,""NM"",35,0)"
^XMB(3.9,55,2,942,0)="IBCE VIEW PREV TRANS SELECT^^0"
^XMB(3.9,55,2,943,0)="""BLD"",5605,""KRN"",101,""NM"",36,0)"
^XMB(3.9,55,2,944,0)="IBCE PRVNVA LOF ADD^^0"
^XMB(3.9,55,2,945,0)="""BLD"",5605,""KRN"",101,""NM"",37,0)"
^XMB(3.9,55,2,946,0)="IBCE PRVNVA LOF EDIT^^0"
^XMB(3.9,55,2,947,0)="""BLD"",5605,""KRN"",101,""NM"",38,0)"
^XMB(3.9,55,2,948,0)="IBCE PRVNVA LOF DELETE^^0"
^XMB(3.9,55,2,949,0)="""BLD"",5605,""KRN"",101,""NM"",39,0)"
^XMB(3.9,55,2,950,0)="IBCE PRVNVA LOF MAINT^^0"
^XMB(3.9,55,2,951,0)="""BLD"",5605,""KRN"",101,""NM"",40,0)"
^XMB(3.9,55,2,952,0)="IBCE PRVNUM ADD^^0"
^XMB(3.9,55,2,953,0)="""BLD"",5605,""KRN"",101,""NM"",41,0)"
^XMB(3.9,55,2,954,0)="IBCE PRVNUM DELETE^^0"
^XMB(3.9,55,2,955,0)="""BLD"",5605,""KRN"",101,""NM"",42,0)"
^XMB(3.9,55,2,956,0)="IBCE PRVNUM EXIT^^0"
^XMB(3.9,55,2,957,0)="""BLD"",5605,""KRN"",101,""NM"",43,0)"
^XMB(3.9,55,2,958,0)="IBCE PRVNUM EDIT^^0"
^XMB(3.9,55,2,959,0)="""BLD"",5605,""KRN"",101,""NM"",45,0)"
^XMB(3.9,55,2,960,0)="IBCE 2ND PRVCARE DELETE^^0"
^XMB(3.9,55,2,961,0)="""BLD"",5605,""KRN"",101,""NM"",47,0)"
^XMB(3.9,55,2,962,0)="IBCE PRVINS ID^^3"
^XMB(3.9,55,2,963,0)="""BLD"",5605,""KRN"",101,""NM"",48,0)"
^XMB(3.9,55,2,964,0)="IBCE PRVINS MAINT^^0"
^XMB(3.9,55,2,965,0)="""BLD"",5605,""KRN"",101,""NM"",49,0)"
^XMB(3.9,55,2,966,0)="IBCE PRVFAC ADD^^0"
^XMB(3.9,55,2,967,0)="""BLD"",5605,""KRN"",101,""NM"",50,0)"
^XMB(3.9,55,2,968,0)="IBCE PRVFAC ADDIDS MAINT^^0"
^XMB(3.9,55,2,969,0)="""BLD"",5605,""KRN"",101,""NM"",51,0)"
^XMB(3.9,55,2,970,0)="IBCE PRVFAC ADDITIONAL IDS^^0"
^XMB(3.9,55,2,971,0)="""BLD"",5605,""KRN"",101,""NM"",52,0)"
^XMB(3.9,55,2,972,0)="IBCE PRVFAC DEL^^0"
^XMB(3.9,55,2,973,0)="""BLD"",5605,""KRN"",101,""NM"",53,0)"
^XMB(3.9,55,2,974,0)="IBCE PRVFAC EDIT^^0"
^XMB(3.9,55,2,975,0)="""BLD"",5605,""KRN"",101,""NM"",54,0)"
^XMB(3.9,55,2,976,0)="IBCE PRVFAC IDPARAM^^0"
^XMB(3.9,55,2,977,0)="""BLD"",5605,""KRN"",101,""NM"",55,0)"
^XMB(3.9,55,2,978,0)="IBCE PRVFAC MAINT^^0"
^XMB(3.9,55,2,979,0)="""BLD"",5605,""KRN"",101,""NM"",56,0)"
^XMB(3.9,55,2,980,0)="IBCE PRVFAC VALF MAINT^^0"
^XMB(3.9,55,2,981,0)="""BLD"",5605,""KRN"",101,""NM"",57,0)"
^XMB(3.9,55,2,982,0)="IBCE PRVFAC VALFIDS^^0"
^XMB(3.9,55,2,983,0)="""BLD"",5605,""KRN"",101,""NM"",58,0)"
^XMB(3.9,55,2,984,0)="IBCE PRVINS DISPLAY PARAMS^^0"
^XMB(3.9,55,2,985,0)="""BLD"",5605,""KRN"",101,""NM"",59,0)"
^XMB(3.9,55,2,986,0)="IBCE INSCO BILL PROV MAINT ADD^^0"
^XMB(3.9,55,2,987,0)="""BLD"",5605,""KRN"",101,""NM"",60,0)"
^XMB(3.9,55,2,988,0)="IBCE INSCO BILL PROV MAINT DEL^^0"
^XMB(3.9,55,2,989,0)="""BLD"",5605,""KRN"",101,""NM"",61,0)"
^XMB(3.9,55,2,990,0)="IBCE INSCO BILL PROV MAINT MENU^^0"
^XMB(3.9,55,2,991,0)="""BLD"",5605,""KRN"",101,""NM"",62,0)"
^XMB(3.9,55,2,992,0)="IBCE INSCO ID MAINT BILL PROV^^0"
^XMB(3.9,55,2,993,0)="""BLD"",5605,""KRN"",101,""NM"",63,0)"
^XMB(3.9,55,2,994,0)="IBCE INSCO ID MAINT EDIT PARAMS^^0"
^XMB(3.9,55,2,995,0)="""BLD"",5605,""KRN"",101,""NM"",64,0)"
^XMB(3.9,55,2,996,0)="IBCE INSCO ID MAINT MENU^^0"
^XMB(3.9,55,2,997,0)="""BLD"",5605,""KRN"",101,""NM"",65,0)"
^XMB(3.9,55,2,998,0)="IBCE PRVNVA SECIDS^^0"
^XMB(3.9,55,2,999,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE 2ND PRVCARE ADD"",16)"
^XMB(3.9,55,2,1000,0)=""
^XMB(3.9,55,2,1001,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE 2ND PRVCARE DELETE"",45)"
^XMB(3.9,55,2,1002,0)=""
^XMB(3.9,55,2,1003,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE 2ND PRVCARE EDIT"",17)"
^XMB(3.9,55,2,1004,0)=""
^XMB(3.9,55,2,1005,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE 2ND PRVCARE MENU"",18)"
^XMB(3.9,55,2,1006,0)=""
^XMB(3.9,55,2,1007,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE EXIT"",19)"
^XMB(3.9,55,2,1008,0)=""
^XMB(3.9,55,2,1009,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE INSCO BILL PROV MAINT ADD"",59)"
^XMB(3.9,55,2,1010,0)=""
^XMB(3.9,55,2,1011,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE INSCO BILL PROV MAINT DEL"",60)"
^XMB(3.9,55,2,1012,0)=""
^XMB(3.9,55,2,1013,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE INSCO BILL PROV MAINT MENU"",61)"
^XMB(3.9,55,2,1014,0)=""
^XMB(3.9,55,2,1015,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE INSCO ID MAINT BILL PROV"",62)"
^XMB(3.9,55,2,1016,0)=""
^XMB(3.9,55,2,1017,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE INSCO ID MAINT EDIT PARAMS"",63)"
^XMB(3.9,55,2,1018,0)=""
^XMB(3.9,55,2,1019,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE INSCO ID MAINT MENU"",64)"
^XMB(3.9,55,2,1020,0)=""
^XMB(3.9,55,2,1021,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE PRVFAC ADD"",49)"
^XMB(3.9,55,2,1022,0)=""
^XMB(3.9,55,2,1023,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE PRVFAC ADDIDS MAINT"",50)"
^XMB(3.9,55,2,1024,0)=""
^XMB(3.9,55,2,1025,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE PRVFAC ADDITIONAL IDS"",51)"
^XMB(3.9,55,2,1026,0)=""
^XMB(3.9,55,2,1027,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE PRVFAC DEL"",52)"
^XMB(3.9,55,2,1028,0)=""
^XMB(3.9,55,2,1029,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE PRVFAC EDIT"",53)"
^XMB(3.9,55,2,1030,0)=""
^XMB(3.9,55,2,1031,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE PRVFAC IDPARAM"",54)"
^XMB(3.9,55,2,1032,0)=""
^XMB(3.9,55,2,1033,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE PRVFAC MAINT"",55)"
^XMB(3.9,55,2,1034,0)=""
^XMB(3.9,55,2,1035,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE PRVFAC VALF MAINT"",56)"
^XMB(3.9,55,2,1036,0)=""
^XMB(3.9,55,2,1037,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE PRVFAC VALFIDS"",57)"
^XMB(3.9,55,2,1038,0)=""
^XMB(3.9,55,2,1039,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE PRVINS DISPLAY PARAMS"",58)"
^XMB(3.9,55,2,1040,0)=""
^XMB(3.9,55,2,1041,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE PRVINS ID"",47)"
^XMB(3.9,55,2,1042,0)=""
^XMB(3.9,55,2,1043,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE PRVINS MAINT"",48)"
^XMB(3.9,55,2,1044,0)=""
^XMB(3.9,55,2,1045,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE PRVNUM ADD"",40)"
^XMB(3.9,55,2,1046,0)=""
^XMB(3.9,55,2,1047,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE PRVNUM DELETE"",41)"
^XMB(3.9,55,2,1048,0)=""
^XMB(3.9,55,2,1049,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE PRVNUM EDIT"",43)"
^XMB(3.9,55,2,1050,0)=""
^XMB(3.9,55,2,1051,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE PRVNUM EXIT"",42)"
^XMB(3.9,55,2,1052,0)=""
^XMB(3.9,55,2,1053,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE PRVNVA LOF ADD"",36)"
^XMB(3.9,55,2,1054,0)=""
^XMB(3.9,55,2,1055,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE PRVNVA LOF DELETE"",38)"
^XMB(3.9,55,2,1056,0)=""
^XMB(3.9,55,2,1057,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE PRVNVA LOF EDIT"",37)"
^XMB(3.9,55,2,1058,0)=""
^XMB(3.9,55,2,1059,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE PRVNVA LOF MAINT"",39)"
^XMB(3.9,55,2,1060,0)=""
^XMB(3.9,55,2,1061,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE PRVNVA NONIND MAINT"",15)"
^XMB(3.9,55,2,1062,0)=""
^XMB(3.9,55,2,1063,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE PRVNVA PROVINFO"",14)"
^XMB(3.9,55,2,1064,0)=""
^XMB(3.9,55,2,1065,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE PRVNVA SECIDS"",65)"
^XMB(3.9,55,2,1066,0)=""
^XMB(3.9,55,2,1067,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE VIEW PREV TRANS"",30)"
^XMB(3.9,55,2,1068,0)=""
^XMB(3.9,55,2,1069,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE VIEW PREV TRANS BTCH SEL"",31)"
^XMB(3.9,55,2,1070,0)=""
^XMB(3.9,55,2,1071,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE VIEW PREV TRANS EXIT"",32)"
^XMB(3.9,55,2,1072,0)=""
^XMB(3.9,55,2,1073,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE VIEW PREV TRANS REPORT"",33)"
^XMB(3.9,55,2,1074,0)=""
^XMB(3.9,55,2,1075,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE VIEW PREV TRANS RESUB"",34)"
^XMB(3.9,55,2,1076,0)=""
^XMB(3.9,55,2,1077,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCE VIEW PREV TRANS SELECT"",35)"
^XMB(3.9,55,2,1078,0)=""
^XMB(3.9,55,2,1079,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCEM CLAIMS STATUS AWAITING"",2)"
^XMB(3.9,55,2,1080,0)=""
^XMB(3.9,55,2,1081,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCEM CSA MSG MAN"",3)"
^XMB(3.9,55,2,1082,0)=""
^XMB(3.9,55,2,1083,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCEM CSA RE-SORT MESSAGES"",1)"
^XMB(3.9,55,2,1084,0)=""
^XMB(3.9,55,2,1085,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCEMC CANCEL"",4)"
^XMB(3.9,55,2,1086,0)=""
^XMB(3.9,55,2,1087,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCEMC CHANGE MESSAGE SEARCH CRITERIA"",5)"
^XMB(3.9,55,2,1088,0)=""
^XMB(3.9,55,2,1089,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCEMC COMMENT"",6)"
^XMB(3.9,55,2,1090,0)=""
^XMB(3.9,55,2,1091,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCEMC EXIT"",7)"
^XMB(3.9,55,2,1092,0)=""
^XMB(3.9,55,2,1093,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCEMC MENU"",8)"
^XMB(3.9,55,2,1094,0)=""
^XMB(3.9,55,2,1095,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCEMC PRINT"",9)"
^XMB(3.9,55,2,1096,0)=""
^XMB(3.9,55,2,1097,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCEMC RETRANSMIT"",10)"
^XMB(3.9,55,2,1098,0)=""
^XMB(3.9,55,2,1099,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCEMC REVIEW STATUS"",11)"
^XMB(3.9,55,2,1100,0)=""
^XMB(3.9,55,2,1101,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCEMC SELECT & DESELECT MESSAGES"",12)"
^XMB(3.9,55,2,1102,0)=""
^XMB(3.9,55,2,1103,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCNSC INS CO ASSOCIATION"",20)"
^XMB(3.9,55,2,1104,0)=""
^XMB(3.9,55,2,1105,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCNSC INS CO PAYER"",21)"
^XMB(3.9,55,2,1106,0)=""
^XMB(3.9,55,2,1107,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCNSC INS CO REMARKS"",22)"
^XMB(3.9,55,2,1108,0)=""
^XMB(3.9,55,2,1109,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCNSC INS CO SYNONYMS"",23)"
^XMB(3.9,55,2,1110,0)=""
^XMB(3.9,55,2,1111,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCNSC INSURANCE CO"",24)"
^XMB(3.9,55,2,1112,0)=""
^XMB(3.9,55,2,1113,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCNSC PROVIDER ID PARAMETERS"",25)"
^XMB(3.9,55,2,1114,0)=""
^XMB(3.9,55,2,1115,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCNSL EXIT"",26)"
^XMB(3.9,55,2,1116,0)=""
^XMB(3.9,55,2,1117,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCNSL LINK"",27)"
^XMB(3.9,55,2,1118,0)=""
^XMB(3.9,55,2,1119,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCNSL MENU"",28)"
^XMB(3.9,55,2,1120,0)=""
^XMB(3.9,55,2,1121,0)="""BLD"",5605,""KRN"",101,""NM"",""B"",""IBCNSL UNLINK"",29)"
^XMB(3.9,55,2,1122,0)=""
^XMB(3.9,55,2,1123,0)="""BLD"",5605,""KRN"",409.61,0)"
^XMB(3.9,55,2,1124,0)="409.61"
^XMB(3.9,55,2,1125,0)="""BLD"",5605,""KRN"",409.61,""NM"",0)"
^XMB(3.9,55,2,1126,0)="^9.68A^13^13"
^XMB(3.9,55,2,1127,0)="""BLD"",5605,""KRN"",409.61,""NM"",1,0)"
^XMB(3.9,55,2,1128,0)="IBCEM CSA LIST^^0"
^XMB(3.9,55,2,1129,0)="""BLD"",5605,""KRN"",409.61,""NM"",2,0)"
^XMB(3.9,55,2,1130,0)="IBCEM CSA MSG^^0"
^XMB(3.9,55,2,1131,0)="""BLD"",5605,""KRN"",409.61,""NM"",3,0)"
^XMB(3.9,55,2,1132,0)="IBCEMC MCS MESSAGE LIST^^0"
^XMB(3.9,55,2,1133,0)="""BLD"",5605,""KRN"",409.61,""NM"",4,0)"
^XMB(3.9,55,2,1134,0)="IBCE PRVMAINT^^0"
^XMB(3.9,55,2,1135,0)="""BLD"",5605,""KRN"",409.61,""NM"",5,0)"
^XMB(3.9,55,2,1136,0)="IBCE PRVNVA MAINT^^0"
^XMB(3.9,55,2,1137,0)="""BLD"",5605,""KRN"",409.61,""NM"",6,0)"
^XMB(3.9,55,2,1138,0)="IBCE 2ND PRVID CARE UNIT MAINT^^0"
^XMB(3.9,55,2,1139,0)="""BLD"",5605,""KRN"",409.61,""NM"",7,0)"
^XMB(3.9,55,2,1140,0)="IBCNS ASSOCIATIONS LIST^^0"
^XMB(3.9,55,2,1141,0)="""BLD"",5605,""KRN"",409.61,""NM"",8,0)"
^XMB(3.9,55,2,1142,0)="IBCE VIEW PREV TRANS1^^0"
^XMB(3.9,55,2,1143,0)="""BLD"",5605,""KRN"",409.61,""NM"",9,0)"
^XMB(3.9,55,2,1144,0)="IBCE VIEW PREV TRANS2^^0"
^XMB(3.9,55,2,1145,0)="""BLD"",5605,""KRN"",409.61,""NM"",10,0)"
^XMB(3.9,55,2,1146,0)="IBCE PRVPRV MAINT^^0"
^XMB(3.9,55,2,1147,0)="""BLD"",5605,""KRN"",409.61,""NM"",11,0)"
^XMB(3.9,55,2,1148,0)="IBCE PRVFAC MAINT^^0"
^XMB(3.9,55,2,1149,0)="""BLD"",5605,""KRN"",409.61,""NM"",12,0)"
^XMB(3.9,55,2,1150,0)="IBCE INSCO ID MAINT^^0"
^XMB(3.9,55,2,1151,0)="""BLD"",5605,""KRN"",409.61,""NM"",13,0)"
^XMB(3.9,55,2,1152,0)="IBCE INSCO BILL PROV MAINT^^0"
^XMB(3.9,55,2,1153,0)="""BLD"",5605,""KRN"",409.61,""NM"",""B"",""IBCE 2ND PRVID CARE UNIT MAINT"",6)"
^XMB(3.9,55,2,1154,0)=""
^XMB(3.9,55,2,1155,0)="""BLD"",5605,""KRN"",409.61,""NM"",""B"",""IBCE INSCO BILL PROV MAINT"",13)"
^XMB(3.9,55,2,1156,0)=""
^XMB(3.9,55,2,1157,0)="""BLD"",5605,""KRN"",409.61,""NM"",""B"",""IBCE INSCO ID MAINT"",12)"
^XMB(3.9,55,2,1158,0)=""
^XMB(3.9,55,2,1159,0)="""BLD"",5605,""KRN"",409.61,""NM"",""B"",""IBCE PRVFAC MAINT"",11)"
^XMB(3.9,55,2,1160,0)=""
^XMB(3.9,55,2,1161,0)="""BLD"",5605,""KRN"",409.61,""NM"",""B"",""IBCE PRVMAINT"",4)"
^XMB(3.9,55,2,1162,0)=""
^XMB(3.9,55,2,1163,0)="""BLD"",5605,""KRN"",409.61,""NM"",""B"",""IBCE PRVNVA MAINT"",5)"
^XMB(3.9,55,2,1164,0)=""
^XMB(3.9,55,2,1165,0)="""BLD"",5605,""KRN"",409.61,""NM"",""B"",""IBCE PRVPRV MAINT"",10)"
^XMB(3.9,55,2,1166,0)=""
^XMB(3.9,55,2,1167,0)="""BLD"",5605,""KRN"",409.61,""NM"",""B"",""IBCE VIEW PREV TRANS1"",8)"
^XMB(3.9,55,2,1168,0)=""
^XMB(3.9,55,2,1169,0)="""BLD"",5605,""KRN"",409.61,""NM"",""B"",""IBCE VIEW PREV TRANS2"",9)"
^XMB(3.9,55,2,1170,0)=""
^XMB(3.9,55,2,1171,0)="""BLD"",5605,""KRN"",409.61,""NM"",""B"",""IBCEM CSA LIST"",1)"
^XMB(3.9,55,2,1172,0)=""
^XMB(3.9,55,2,1173,0)="""BLD"",5605,""KRN"",409.61,""NM"",""B"",""IBCEM CSA MSG"",2)"
^XMB(3.9,55,2,1174,0)=""
^XMB(3.9,55,2,1175,0)="""BLD"",5605,""KRN"",409.61,""NM"",""B"",""IBCEMC MCS MESSAGE LIST"",3)"
^XMB(3.9,55,2,1176,0)=""
^XMB(3.9,55,2,1177,0)="""BLD"",5605,""KRN"",409.61,""NM"",""B"",""IBCNS ASSOCIATIONS LIST"",7)"
^XMB(3.9,55,2,1178,0)=""
^XMB(3.9,55,2,1179,0)="""BLD"",5605,""KRN"",771,0)"
^XMB(3.9,55,2,1180,0)="771"
^XMB(3.9,55,2,1181,0)="""BLD"",5605,""KRN"",771,""NM"",0)"
^XMB(3.9,55,2,1182,0)="^9.68A^^"
^XMB(3.9,55,2,1183,0)="""BLD"",5605,""KRN"",870,0)"
^XMB(3.9,55,2,1184,0)="870"
^XMB(3.9,55,2,1185,0)="""BLD"",5605,""KRN"",870,""NM"",0)"
^XMB(3.9,55,2,1186,0)="^9.68A^^"
^XMB(3.9,55,2,1187,0)="""BLD"",5605,""KRN"",8989.51,0)"
^XMB(3.9,55,2,1188,0)="8989.51"
^XMB(3.9,55,2,1189,0)="""BLD"",5605,""KRN"",8989.51,""NM"",0)"
^XMB(3.9,55,2,1190,0)="^9.68A^^"
^XMB(3.9,55,2,1191,0)="""BLD"",5605,""KRN"",8989.52,0)"
^XMB(3.9,55,2,1192,0)="8989.52"
^XMB(3.9,55,2,1193,0)="""BLD"",5605,""KRN"",8989.52,""NM"",0)"
^XMB(3.9,55,2,1194,0)="^9.68A^^"
^XMB(3.9,55,2,1195,0)="""BLD"",5605,""KRN"",8994,0)"
^XMB(3.9,55,2,1196,0)="8994"
^XMB(3.9,55,2,1197,0)="""BLD"",5605,""KRN"",8994,""NM"",0)"
^XMB(3.9,55,2,1198,0)="^9.68A^^"
^XMB(3.9,55,2,1199,0)="""BLD"",5605,""KRN"",""B"",.4,.4)"
^XMB(3.9,55,2,1200,0)=""
^XMB(3.9,55,2,1201,0)="""BLD"",5605,""KRN"",""B"",.401,.401)"
^XMB(3.9,55,2,1202,0)=""
^XMB(3.9,55,2,1203,0)="""BLD"",5605,""KRN"",""B"",.402,.402)"
^XMB(3.9,55,2,1204,0)=""
^XMB(3.9,55,2,1205,0)="""BLD"",5605,""KRN"",""B"",.403,.403)"
^XMB(3.9,55,2,1206,0)=""
^XMB(3.9,55,2,1207,0)="""BLD"",5605,""KRN"",""B"",.5,.5)"
^XMB(3.9,55,2,1208,0)=""
^XMB(3.9,55,2,1209,0)="""BLD"",5605,""KRN"",""B"",.84,.84)"
^XMB(3.9,55,2,1210,0)=""
^XMB(3.9,55,2,1211,0)="""BLD"",5605,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,55,2,1212,0)=""
^XMB(3.9,55,2,1213,0)="""BLD"",5605,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,55,2,1214,0)=""
^XMB(3.9,55,2,1215,0)="""BLD"",5605,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,55,2,1216,0)=""
^XMB(3.9,55,2,1217,0)="""BLD"",5605,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,55,2,1218,0)=""
^XMB(3.9,55,2,1219,0)="""BLD"",5605,""KRN"",""B"",19,19)"
^XMB(3.9,55,2,1220,0)=""
^XMB(3.9,55,2,1221,0)="""BLD"",5605,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,55,2,1222,0)=""
^XMB(3.9,55,2,1223,0)="""BLD"",5605,""KRN"",""B"",101,101)"
^XMB(3.9,55,2,1224,0)=""
^XMB(3.9,55,2,1225,0)="""BLD"",5605,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,55,2,1226,0)=""
^XMB(3.9,55,2,1227,0)="""BLD"",5605,""KRN"",""B"",771,771)"
^XMB(3.9,55,2,1228,0)=""
^XMB(3.9,55,2,1229,0)="""BLD"",5605,""KRN"",""B"",870,870)"
^XMB(3.9,55,2,1230,0)=""
^XMB(3.9,55,2,1231,0)="""BLD"",5605,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,55,2,1232,0)=""
^XMB(3.9,55,2,1233,0)="""BLD"",5605,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,55,2,1234,0)=""
^XMB(3.9,55,2,1235,0)="""BLD"",5605,""KRN"",""B"",8994,8994)"
^XMB(3.9,55,2,1236,0)=""
^XMB(3.9,55,2,1237,0)="""BLD"",5605,""QUES"",0)"
^XMB(3.9,55,2,1238,0)="^9.62^^"
^XMB(3.9,55,2,1239,0)="""BLD"",5605,""REQB"",0)"
^XMB(3.9,55,2,1240,0)="^9.611^10^10"
^XMB(3.9,55,2,1241,0)="""BLD"",5605,""REQB"",1,0)"
^XMB(3.9,55,2,1242,0)="IB*2.0*296^2"
^XMB(3.9,55,2,1243,0)="""BLD"",5605,""REQB"",2,0)"
^XMB(3.9,55,2,1244,0)="XU*8.0*390^2"
^XMB(3.9,55,2,1245,0)="""BLD"",5605,""REQB"",3,0)"
^XMB(3.9,55,2,1246,0)="IB*2.0*323^2"
^XMB(3.9,55,2,1247,0)="""BLD"",5605,""REQB"",4,0)"
^XMB(3.9,55,2,1248,0)="IB*2.0*291^2"
^XMB(3.9,55,2,1249,0)="""BLD"",5605,""REQB"",5,0)"
^XMB(3.9,55,2,1250,0)="IB*2.0*288^2"
^XMB(3.9,55,2,1251,0)="""BLD"",5605,""REQB"",6,0)"
^XMB(3.9,55,2,1252,0)="IB*2.0*200^2"
^XMB(3.9,55,2,1253,0)="""BLD"",5605,""REQB"",7,0)"
^XMB(3.9,55,2,1254,0)="IB*2.0*309^2"
^XMB(3.9,55,2,1255,0)="""BLD"",5605,""REQB"",8,0)"
^XMB(3.9,55,2,1256,0)="IB*2.0*159^2"
^XMB(3.9,55,2,1257,0)="""BLD"",5605,""REQB"",9,0)"
^XMB(3.9,55,2,1258,0)="XU*8.0*394^2"
^XMB(3.9,55,2,1259,0)="""BLD"",5605,""REQB"",10,0)"
^XMB(3.9,55,2,1260,0)="IB*2.0*276^2"
^XMB(3.9,55,2,1261,0)="""BLD"",5605,""REQB"",""B"",""IB*2.0*159"",8)"
^XMB(3.9,55,2,1262,0)=""
^XMB(3.9,55,2,1263,0)="""BLD"",5605,""REQB"",""B"",""IB*2.0*200"",6)"
^XMB(3.9,55,2,1264,0)=""
^XMB(3.9,55,2,1265,0)="""BLD"",5605,""REQB"",""B"",""IB*2.0*276"",10)"
^XMB(3.9,55,2,1266,0)=""
^XMB(3.9,55,2,1267,0)="""BLD"",5605,""REQB"",""B"",""IB*2.0*288"",5)"
^XMB(3.9,55,2,1268,0)=""
^XMB(3.9,55,2,1269,0)="""BLD"",5605,""REQB"",""B"",""IB*2.0*291"",4)"
^XMB(3.9,55,2,1270,0)=""
^XMB(3.9,55,2,1271,0)="""BLD"",5605,""REQB"",""B"",""IB*2.0*296"",1)"
^XMB(3.9,55,2,1272,0)=""
^XMB(3.9,55,2,1273,0)="""BLD"",5605,""REQB"",""B"",""IB*2.0*309"",7)"
^XMB(3.9,55,2,1274,0)=""
^XMB(3.9,55,2,1275,0)="""BLD"",5605,""REQB"",""B"",""IB*2.0*323"",3)"
^XMB(3.9,55,2,1276,0)=""
^XMB(3.9,55,2,1277,0)="""BLD"",5605,""REQB"",""B"",""XU*8.0*390"",2)"
^XMB(3.9,55,2,1278,0)=""
^XMB(3.9,55,2,1279,0)="""BLD"",5605,""REQB"",""B"",""XU*8.0*394"",9)"
^XMB(3.9,55,2,1280,0)=""
^XMB(3.9,55,2,1281,0)="""DATA"",350.8,269,0)"
^XMB(3.9,55,2,1282,0)="IB303^Attending/rendering provider name is missing^IB303^1^3"
^XMB(3.9,55,2,1283,0)="""DATA"",350.8,309,0)"
^XMB(3.9,55,2,1284,0)="IB235^Medicare claims for laboratory services require a CLIA #.^IB235^1^1"
^XMB(3.9,55,2,1285,0)="""DATA"",350.8,310,0)"
^XMB(3.9,55,2,1286,0)="IB236^Required attending/rendering provider ID missing from Primary Insurance^IB236^1^1"
^XMB(3.9,55,2,1287,0)="""DATA"",350.8,311,0)"
^XMB(3.9,55,2,1288,0)="IB239^Required referring provider ID missing from Primary Insurance^IB239^1^1"
^XMB(3.9,55,2,1289,0)="""DATA"",350.8,312,0)"
^XMB(3.9,55,2,1290,0)="IB237^Required attending/rendering provider ID missing from Secondary Insurance^IB237^1^1"
^XMB(3.9,55,2,1291,0)="""DATA"",350.8,313,0)"
^XMB(3.9,55,2,1292,0)="IB238^Required attending/rendering provider ID missing from Tertiary Insurance^IB238^1^1"
^XMB(3.9,55,2,1293,0)="""DATA"",350.8,314,0)"
^XMB(3.9,55,2,1294,0)="IB240^Required referring provider ID missing from Secondary Insurance^IB240^1^1"
^XMB(3.9,55,2,1295,0)="""DATA"",350.8,315,0)"
^XMB(3.9,55,2,1296,0)="IB241^Required referring provider ID missing from Tertiary Insurance^IB241^1^1"
^XMB(3.9,55,2,1297,0)="""DATA"",350.8,316,0)"
^XMB(3.9,55,2,1298,0)="IB242^Referring provider name missing^IB242^1^1"
^XMB(3.9,55,2,1299,0)="""DATA"",350.8,317,0)"
^XMB(3.9,55,2,1300,0)="IB243^No Lab or Facility Primary ID defined for the outside facility^IB243^1^1"
^XMB(3.9,55,2,1301,0)="""DATA"",350.8,318,0)"
^XMB(3.9,55,2,1302,0)="IB244^No Billing Prov ID for primary payer.  Enter an Att/Rend ID to be used.^IB244^1^1"
^XMB(3.9,55,2,1303,0)="""DATA"",350.8,319,0)"
^XMB(3.9,55,2,1304,0)="IB245^No Billing Prov ID for secondary payer.  Enter an Att/Rend ID to be used.^IB245"
^XMB(3.9,55,2,1305,0)="""DATA"",350.8,320,0)"
^XMB(3.9,55,2,1306,0)="IB246^No Billing Prov ID for tertiary payer.  Enter an Att/Rend ID to be used.^IB246^1^1"
^XMB(3.9,55,2,1307,0)="""DATA"",361.2,70,0)"
^XMB(3.9,55,2,1308,0)="R0S2^1^PRF GVT WEBMD/PAYER INFO/EDIT"
^XMB(3.9,55,2,1309,0)="""DATA"",364.5,111,0)"
^XMB(3.9,55,2,1310,0)="N-MAMMOGRAPHY CERT#^N^F^I^399^MAMMOGRAPHY CERT NUMBER^I^"
^XMB(3.9,55,2,1311,0)="""DATA"",364.5,111,1)"
^XMB(3.9,55,2,1312,0)=""
^XMB(3.9,55,2,1313,0)="""DATA"",364.5,111,3,0)"
^XMB(3.9,55,2,1314,0)="^^2^2^3060116^"
^XMB(3.9,55,2,1315,0)="""DATA"",364.5,111,3,1,0)"
^XMB(3.9,55,2,1316,0)="Data element used to retrieve the mammography certification number for "
^XMB(3.9,55,2,1317,0)="""DATA"",364.5,111,3,2,0)"
^XMB(3.9,55,2,1318,0)="the claim."
^XMB(3.9,55,2,1319,0)="""DATA"",364.5,112,0)"
^XMB(3.9,55,2,1320,0)="N-LAB CLIA NUMBER^N^F^I^399^LAB CLIA NUMBER^E^"
^XMB(3.9,55,2,1321,0)="""DATA"",364.5,112,1)"
^XMB(3.9,55,2,1322,0)=""
^XMB(3.9,55,2,1323,0)="""DATA"",364.5,112,3,0)"
^XMB(3.9,55,2,1324,0)="^364.53^2^2^3060111^^"
^XMB(3.9,55,2,1325,0)="""DATA"",364.5,112,3,1,0)"
^XMB(3.9,55,2,1326,0)="This CLIA# data element replaces IEN 271 for SUB-8 processing."
^XMB(3.9,55,2,1327,0)="""DATA"",364.5,112,3,2,0)"
^XMB(3.9,55,2,1328,0)="Just retrieve the CLIA# from field 235 in file 399."
^XMB(3.9,55,2,1329,0)="""DATA"",364.5,113,0)"
^XMB(3.9,55,2,1330,0)="N-LAB OR FACILITY PRIMARY ID^N^E^I^399^^^"
^XMB(3.9,55,2,1331,0)="""DATA"",364.5,113,1)"
^XMB(3.9,55,2,1332,0)="S IBXDATA=$$EIN^IBCEP8A(IBXIEN)"
^XMB(3.9,55,2,1333,0)="""DATA"",364.5,113,3,0)"
^XMB(3.9,55,2,1334,0)="^^3^3^3060116^"
^XMB(3.9,55,2,1335,0)="""DATA"",364.5,113,3,1,0)"
^XMB(3.9,55,2,1336,0)="This data element is the Federal tax ID for either the VA facility or the "
^XMB(3.9,55,2,1337,0)="""DATA"",364.5,113,3,2,0)"
^XMB(3.9,55,2,1338,0)="non-VA facility.  Used for 837 flat file SUB-9.  Also used as the data "
^XMB(3.9,55,2,1339,0)="""DATA"",364.5,113,3,3,0)"
^XMB(3.9,55,2,1340,0)="element for Hcfa-1500, Box 32, Line 4 printed form."
^XMB(3.9,55,2,1341,0)="""DATA"",364.6,169,0)"
^XMB(3.9,55,2,1342,0)="8^N^^5^1^^0^4^10^BATCH REFERENCE #^^1^0"
^XMB(3.9,55,2,1343,0)="""DATA"",364.6,226,0)"
^XMB(3.9,55,2,1344,0)="8^N^^28^1^^0^2^2^BILLING PROV SECONDARY ID Q(1)^0^1^0"
^XMB(3.9,55,2,1345,0)="""DATA"",364.6,227,0)"
^XMB(3.9,55,2,1346,0)="8^N^^28^1^^0^3^20^BILLING PROV SECONDARY ID #(1)^0^1^0"
^XMB(3.9,55,2,1347,0)="""DATA"",364.6,968,0)"
^XMB(3.9,55,2,1348,0)="8^N^^15^1^^0^10^15^MOVED TO CI1A-3^0^1^0"
^XMB(3.9,55,2,1349,0)="""DATA"",364.6,971,0)"
^XMB(3.9,55,2,1350,0)="8^N^^55^1^^0^9^10^LAB OR FACILITY PRIMARY ID^0^1"
^XMB(3.9,55,2,1351,0)="""DATA"",364.6,1015,0)"
^XMB(3.9,55,2,1352,0)="8^N^^28^1^^0^6^2^BILLING PROV SECONDARY ID Q(3)^0^1"
^XMB(3.9,55,2,1353,0)="""DATA"",364.6,1051,0)"
^XMB(3.9,55,2,1354,0)="8^N^^51^1^^0^9^2^MAMMOGRAPHY CERT# QUALIFIER^0^1^0"
^XMB(3.9,55,2,1355,0)="""DATA"",364.6,1065,0)"
^XMB(3.9,55,2,1356,0)="8^N^^105^1^0^0^18^1^OTHER INS PAT SIG SOURCE CODE^0^1^0"
^XMB(3.9,55,2,1357,0)="""DATA"",364.6,1094,0)"
^XMB(3.9,55,2,1358,0)="8^N^^28^1^^0^7^20^BILLING PROV SECONDARY ID #(3)^0^1"
^XMB(3.9,55,2,1359,0)="""DATA"",364.6,1095,0)"
^XMB(3.9,55,2,1360,0)="8^N^^28^1^^0^8^2^BILLING PROV SECONDARY ID Q(4)^0^1"
^XMB(3.9,55,2,1361,0)="""DATA"",364.6,1096,0)"
^XMB(3.9,55,2,1362,0)="8^N^^28^1^^0^9^20^BILLING PROV SECONDARY ID #(4)^0^1"
^XMB(3.9,55,2,1363,0)="""DATA"",364.6,1097,0)"
^XMB(3.9,55,2,1364,0)="8^N^^28^1^^0^10^2^BILLING PROV SECONDARY ID Q(5)^0^1"
^XMB(3.9,55,2,1365,0)="""DATA"",364.6,1098,0)"
^XMB(3.9,55,2,1366,0)="8^N^^28^1^^0^11^20^BILLING PROV SECONDARY ID #(5)^0^1"
^XMB(3.9,55,2,1367,0)="""DATA"",364.6,1099,0)"
^XMB(3.9,55,2,1368,0)="8^N^^28^1^^0^12^2^BILLING PROV SECONDARY ID Q(6)^0^1"
^XMB(3.9,55,2,1369,0)="""DATA"",364.6,1100,0)"
^XMB(3.9,55,2,1370,0)="8^N^^28^1^^0^13^20^BILLING PROV SECONDARY ID #(6)^0^1"
^XMB(3.9,55,2,1371,0)="""DATA"",364.6,1101,0)"
^XMB(3.9,55,2,1372,0)="8^N^^28^1^^0^14^2^BILLING PROV SECONDARY ID Q(7)^0^1"
^XMB(3.9,55,2,1373,0)="""DATA"",364.6,1102,0)"
^XMB(3.9,55,2,1374,0)="8^N^^28^1^^0^15^20^BILLING PROV SECONDARY ID #(7)^^1"
^XMB(3.9,55,2,1375,0)="""DATA"",364.6,1103,0)"
^XMB(3.9,55,2,1376,0)="8^N^^28^1^^0^16^2^BILLING PROV SECONDARY ID Q(8)^0^1"
^XMB(3.9,55,2,1377,0)="""DATA"",364.6,1104,0)"
^XMB(3.9,55,2,1378,0)="8^N^^28^1^^0^17^20^BILLING PROV SECONDARY ID #(8)^0^1"
^XMB(3.9,55,2,1379,0)="""DATA"",364.6,1190,0)"
^XMB(3.9,55,2,1380,0)="8^N^^28^1^^0^1^4^RECORD ID 'CI1A'^0^1^1"
^XMB(3.9,55,2,1381,0)="""DATA"",364.6,1191,0)"
^XMB(3.9,55,2,1382,0)="8^N^^28^1^^0^4^2^BILLING PROV SECONDARY ID Q(2)^0^1"
^XMB(3.9,55,2,1383,0)="""DATA"",364.6,1192,0)"
^XMB(3.9,55,2,1384,0)="8^N^^28^1^^0^5^20^BILLING PROV SECONDARY ID #(2)^0^1^0"
^XMB(3.9,55,2,1385,0)="""DATA"",364.6,1289,0)"
^XMB(3.9,55,2,1386,0)="8^N^^113^1^^0^4^45^OTH INS SUBSCR ADDRESS LINE 1^0^1"
^XMB(3.9,55,2,1387,0)="""DATA"",364.6,1316,0)"
^XMB(3.9,55,2,1388,0)="8^N^^20^1^^0^7^20^CURRENT INS CO PROVIDER NUMBER^0^1"
^XMB(3.9,55,2,1389,0)="""DATA"",364.6,1317,0)"
^XMB(3.9,55,2,1390,0)="8^N^^20^1^1^^13^2^FILLER^0^1"
^XMB(3.9,55,2,1391,0)="""DATA"",364.7,12,0)"
^XMB(3.9,55,2,1392,0)="1015^N^5^^^^N"
^XMB(3.9,55,2,1393,0)="""DATA"",364.7,12,1)"
^XMB(3.9,55,2,1394,0)="S IBXDATA=$P($G(IBXSAVE(""BILLING PRV"",IBXIEN,""C"",1,3)),U,1)"
^XMB(3.9,55,2,1395,0)="""DATA"",364.7,12,3,0)"
^XMB(3.9,55,2,1396,0)="^364.73^7^7^3041202^^^^"
^XMB(3.9,55,2,1397,0)="""DATA"",364.7,12,3,1,0)"
^XMB(3.9,55,2,1398,0)="EI=Employer ID;SY=Social Security Number;0B=State License Number;"
^XMB(3.9,55,2,1399,0)="""DATA"",364.7,12,3,2,0)"
^XMB(3.9,55,2,1400,0)="1A = Blue Cross Number;1B=Blue Shield Number;1C=Medicare Number;"
^XMB(3.9,55,2,1401,0)="""DATA"",364.7,12,3,3,0)"
^XMB(3.9,55,2,1402,0)="1D = Medicaid Number;1G=UPIN Number;1H=TRICARE ID Number;"
^XMB(3.9,55,2,1403,0)="""DATA"",364.7,12,3,4,0)"
^XMB(3.9,55,2,1404,0)="B3 = PPO Number;BQ=HMO Code Number;U3=USIN Number;G2=Commercial Number;"
^XMB(3.9,55,2,1405,0)="""DATA"",364.7,12,3,5,0)"
^XMB(3.9,55,2,1406,0)="FH = Clinic Number;X5=State Industrial Accident Provider Number;"
^XMB(3.9,55,2,1407,0)="""DATA"",364.7,12,3,6,0)"
^XMB(3.9,55,2,1408,0)="LU=Location Number"
^XMB(3.9,55,2,1409,0)="""DATA"",364.7,12,3,7,0)"
^XMB(3.9,55,2,1410,0)="This is the X12 interpretation of the type of billing provider id for this insurance co.  It is calculated from the electronic type of plan. Refer to the 837 V4010 (professional) fields 2010BB/REF(2)/01 and 2000B/SBR/09 for details."
^XMB(3.9,55,2,1411,0)="""DATA"",364.7,156,0)"
^XMB(3.9,55,2,1412,0)="170^N^275^^^^N"
^XMB(3.9,55,2,1413,0)="""DATA"",364.7,156,1)"
^XMB(3.9,55,2,1414,0)="N A,Z,Q S Q=IBXDATA,A=$P(Q,U,2),Z=$S(+Q=+$P($G(^IBE(350.9,1,0)),U,2):A'=1,1:0) K:'Q IBXDATA I $D(IBXDATA) S IBXSAVE(""IBFAC"")=Q,IBXDATA=$$GETFAC^IBCEP8(+IBXDATA,+A,0,""SUB"")"
^XMB(3.9,55,2,1415,0)="""DATA"",364.7,156,3,0)"
^XMB(3.9,55,2,1416,0)="^364.73^3^3^3041221^^^^"
^XMB(3.9,55,2,1417,0)="""DATA"",364.7,156,3,1,0)"
^XMB(3.9,55,2,1418,0)="This returns the name of the INSTITUTION file entry for the non-VA or"
^XMB(3.9,55,2,1419,0)="""DATA"",364.7,156,3,2,0)"
^XMB(3.9,55,2,1420,0)="remote site where care was rendered.  Save the ien and flag in "
^XMB(3.9,55,2,1421,0)="""DATA"",364.7,156,3,3,0)"
^XMB(3.9,55,2,1422,0)="IBXSAVE(""IBFAC"") for later use."
^XMB(3.9,55,2,1423,0)="""DATA"",364.7,157,0)"
^XMB(3.9,55,2,1424,0)="171^N^5^^^^N"
^XMB(3.9,55,2,1425,0)="""DATA"",364.7,157,1)"
^XMB(3.9,55,2,1426,0)="K IBXSAVE(""PSVC"") K:'$G(IBXSAVE(""IBFAC""))&'$P($G(IBXSAVE(""IBFAC"")),U,3) IBXDATA I $D(IBXDATA) S IBXDATA=$$GETFAC^IBCEP8(+IBXSAVE(""IBFAC""),+$P(IBXSAVE(""IBFAC""),U,2),12,""SUB"")"
^XMB(3.9,55,2,1427,0)="""DATA"",364.7,157,3,0)"
^XMB(3.9,55,2,1428,0)="^364.73^3^3^3041217^^^^"
^XMB(3.9,55,2,1429,0)="""DATA"",364.7,157,3,1,0)"
^XMB(3.9,55,2,1430,0)="Extract the street address for the rendering facility.  Relies on the"
^XMB(3.9,55,2,1431,0)="""DATA"",364.7,157,3,2,0)"
^XMB(3.9,55,2,1432,0)="existence of the array IBXSAVE(""IBFAC"") extracted previously by the"
^XMB(3.9,55,2,1433,0)="""DATA"",364.7,157,3,3,0)"
^XMB(3.9,55,2,1434,0)="rendering facility name field."
^XMB(3.9,55,2,1435,0)="""DATA"",364.7,159,0)"
^XMB(3.9,55,2,1436,0)="173^N^5^^^^N"
^XMB(3.9,55,2,1437,0)="""DATA"",364.7,159,1)"
^XMB(3.9,55,2,1438,0)="K:'$G(IBXSAVE(""IBFAC""))&'$P($G(IBXSAVE(""IBFAC"")),U,3) IBXDATA I $D(IBXDATA) S IBXDATA=$$GETFAC^IBCEP8(+IBXSAVE(""IBFAC""),+$P(IBXSAVE(""IBFAC""),U,2),""3S"",""SUB"")"
^XMB(3.9,55,2,1439,0)="""DATA"",364.7,159,3,0)"
^XMB(3.9,55,2,1440,0)="^364.73^3^3^3041217^^^^"
^XMB(3.9,55,2,1441,0)="""DATA"",364.7,159,3,1,0)"
^XMB(3.9,55,2,1442,0)="Extract the state abbreviation for the rendering facility.  Relies on the"
^XMB(3.9,55,2,1443,0)="""DATA"",364.7,159,3,2,0)"
^XMB(3.9,55,2,1444,0)="existence of the array IBXSAVE(""IBFAC"") extracted previously by the"
^XMB(3.9,55,2,1445,0)="""DATA"",364.7,159,3,3,0)"
^XMB(3.9,55,2,1446,0)="rendering facility name field."
^XMB(3.9,55,2,1447,0)="""DATA"",364.7,160,0)"
^XMB(3.9,55,2,1448,0)="174^N^5^^^^N"
^XMB(3.9,55,2,1449,0)="""DATA"",364.7,160,1)"
^XMB(3.9,55,2,1450,0)="K:'$G(IBXSAVE(""IBFAC""))&'$P($G(IBXSAVE(""IBFAC"")),U,3) IBXDATA I $D(IBXDATA) S IBXDATA=$$GETFAC^IBCEP8(+IBXSAVE(""IBFAC""),+$P(IBXSAVE(""IBFAC""),U,2),""3Z"",""SUB"")"
^XMB(3.9,55,2,1451,0)="""DATA"",364.7,160,3,0)"
^XMB(3.9,55,2,1452,0)="^^3^3^3030827^^^^"
^XMB(3.9,55,2,1453,0)="""DATA"",364.7,160,3,1,0)"
^XMB(3.9,55,2,1454,0)="Extract the zip code for the rendering facility.  Relies on the"
^XMB(3.9,55,2,1455,0)="""DATA"",364.7,160,3,2,0)"
^XMB(3.9,55,2,1456,0)="existence of the array IBXSAVE(""IBFAC"") extracted previously by the"
^XMB(3.9,55,2,1457,0)="""DATA"",364.7,160,3,3,0)"
^XMB(3.9,55,2,1458,0)="rendering facility name field."
^XMB(3.9,55,2,1459,0)="""DATA"",364.7,188,0)"
^XMB(3.9,55,2,1460,0)="195^N^5^^^^N"
^XMB(3.9,55,2,1461,0)="""DATA"",364.7,188,1)"
^XMB(3.9,55,2,1462,0)="D CLEANUP^IBCEF75(.IBXSAVE) D ALLIDS^IBCEF75(IBXIEN,.IBXSAVE,1) K IBXDATA N Z F Z=1,2 S IBXDATA(Z)=$P($G(IBXSAVE(""BILLING PRV"",IBXIEN,""O"",Z,2)),U,2)"
^XMB(3.9,55,2,1463,0)="""DATA"",364.7,188,3,0)"
^XMB(3.9,55,2,1464,0)="^364.73^3^3^3060420^^^^"
^XMB(3.9,55,2,1465,0)="""DATA"",364.7,188,3,1,0)"
^XMB(3.9,55,2,1466,0)="This is a group data element so more than 1 occurrence of a value is"
^XMB(3.9,55,2,1467,0)="""DATA"",364.7,188,3,2,0)"
^XMB(3.9,55,2,1468,0)="possible for the data element in the IBXDATA array.  If any other insurance"
^XMB(3.9,55,2,1469,0)="""DATA"",364.7,188,3,3,0)"
^XMB(3.9,55,2,1470,0)="provider # data is found, the data is output."
^XMB(3.9,55,2,1471,0)="""DATA"",364.7,196,0)"
^XMB(3.9,55,2,1472,0)="1036^N^111^^^^N^0"
^XMB(3.9,55,2,1473,0)="""DATA"",364.7,196,1)"
^XMB(3.9,55,2,1474,0)="I $G(IBXDATA)'="""" S IBXDATA=$$NOPUNCT^IBCEF(IBXDATA),IBXSAVE(""MAMMO"")=1"
^XMB(3.9,55,2,1475,0)="""DATA"",364.7,196,3,0)"
^XMB(3.9,55,2,1476,0)="^^3^3^3060117^"
^XMB(3.9,55,2,1477,0)="""DATA"",364.7,196,3,1,0)"
^XMB(3.9,55,2,1478,0)="Extract and format the mammo# cert number from the claim.  If a mammo# is "
^XMB(3.9,55,2,1479,0)="""DATA"",364.7,196,3,2,0)"
^XMB(3.9,55,2,1480,0)="present for the claim then save that fact in IBXSAVE for later usage for "
^XMB(3.9,55,2,1481,0)="""DATA"",364.7,196,3,3,0)"
^XMB(3.9,55,2,1482,0)="the mammo# qualifier field."
^XMB(3.9,55,2,1483,0)="""DATA"",364.7,203,0)"
^XMB(3.9,55,2,1484,0)="1039^N^5^^^^N^0"
^XMB(3.9,55,2,1485,0)="""DATA"",364.7,203,1)"
^XMB(3.9,55,2,1486,0)="K:'$G(IBXSAVE(""IBFAC""))&'$P($G(IBXSAVE(""IBFAC"")),U,3) IBXDATA I $D(IBXDATA) S IBXDATA=$$GETFAC^IBCEP8(+IBXSAVE(""IBFAC""),+$P(IBXSAVE(""IBFAC""),U,2),2,""SUB"")"
^XMB(3.9,55,2,1487,0)="""DATA"",364.7,203,3,0)"
^XMB(3.9,55,2,1488,0)="^364.73^1^1^3041221^^^^"
^XMB(3.9,55,2,1489,0)="""DATA"",364.7,203,3,1,0)"
^XMB(3.9,55,2,1490,0)="RENDERING PROVIDER FACILITY INFORMATION TO FIND THE SERVICE FACILITY ADDRESS LINE 2"
^XMB(3.9,55,2,1491,0)="""DATA"",364.7,204,0)"
^XMB(3.9,55,2,1492,0)="1040^N^5^^^^N^0"
^XMB(3.9,55,2,1493,0)="""DATA"",364.7,204,1)"
^XMB(3.9,55,2,1494,0)="D CLEANUP^IBCEF75(.IBXSAVE) D:$$SUB1OK^IBCEP8A(IBXIEN) ALLIDS^IBCEF75(IBXIEN,.IBXSAVE,1,""SUB1"") S IBXDATA=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""C"",1,1)),U,1)"
^XMB(3.9,55,2,1495,0)="""DATA"",364.7,204,3,0)"
^XMB(3.9,55,2,1496,0)="^364.73^12^12^3060320^^^^"
^XMB(3.9,55,2,1497,0)="""DATA"",364.7,204,3,1,0)"
^XMB(3.9,55,2,1498,0)="If the bill is a professional bill, was performed at an 'outside' facility,"
^XMB(3.9,55,2,1499,0)="""DATA"",364.7,204,3,2,0)"
^XMB(3.9,55,2,1500,0)="and the service was purchased THEN"
^XMB(3.9,55,2,1501,0)="""DATA"",364.7,204,3,3,0)"
^XMB(3.9,55,2,1502,0)="   If the rendering provider is an outside provider:"
^XMB(3.9,55,2,1503,0)="""DATA"",364.7,204,3,4,0)"
^XMB(3.9,55,2,1504,0)="      output the ids for the rendering provider here."
^XMB(3.9,55,2,1505,0)="""DATA"",364.7,204,3,5,0)"
^XMB(3.9,55,2,1506,0)="   If the rendering provider is NOT an outside provider:"
^XMB(3.9,55,2,1507,0)="""DATA"",364.7,204,3,6,0)"
^XMB(3.9,55,2,1508,0)="      output the ids for the outside facility here."
^XMB(3.9,55,2,1509,0)="""DATA"",364.7,204,3,7,0)"
^XMB(3.9,55,2,1510,0)="Output if an ID exists for the 'current insurance'.  Must save the type"
^XMB(3.9,55,2,1511,0)="""DATA"",364.7,204,3,8,0)"
^XMB(3.9,55,2,1512,0)="of provider (1 = person or 2 = facility) whose ids were extracted in"
^XMB(3.9,55,2,1513,0)="""DATA"",364.7,204,3,9,0)"
^XMB(3.9,55,2,1514,0)="variable IBXSAVE(""NVF"") to be used later in this record.  It must be"
^XMB(3.9,55,2,1515,0)="""DATA"",364.7,204,3,10,0)"
^XMB(3.9,55,2,1516,0)="killed in the last piece of the record."
^XMB(3.9,55,2,1517,0)="""DATA"",364.7,204,3,11,0)"
^XMB(3.9,55,2,1518,0)="The ids returned are screened for valid id qualifiers for the SUB1 record."
^XMB(3.9,55,2,1519,0)="""DATA"",364.7,204,3,12,0)"
^XMB(3.9,55,2,1520,0)="Output the first other id qualifier for the current insurance."
^XMB(3.9,55,2,1521,0)="""DATA"",364.7,208,0)"
^XMB(3.9,55,2,1522,0)="1044^N^5^^^^N^0"
^XMB(3.9,55,2,1523,0)="""DATA"",364.7,208,1)"
^XMB(3.9,55,2,1524,0)="S IBXDATA=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""C"",1,1)),U,1)"
^XMB(3.9,55,2,1525,0)="""DATA"",364.7,208,3,0)"
^XMB(3.9,55,2,1526,0)="^364.73^2^2^3041221^^^^"
^XMB(3.9,55,2,1527,0)="""DATA"",364.7,208,3,1,0)"
^XMB(3.9,55,2,1528,0)="The ids returned are screened for valid id qualifiers for the SUB2 record."
^XMB(3.9,55,2,1529,0)="""DATA"",364.7,208,3,2,0)"
^XMB(3.9,55,2,1530,0)="Output the first 'other' id qualifier."
^XMB(3.9,55,2,1531,0)="""DATA"",364.7,209,0)"
^XMB(3.9,55,2,1532,0)="1045^N^5^^^^N^0"
^XMB(3.9,55,2,1533,0)="""DATA"",364.7,209,1)"
^XMB(3.9,55,2,1534,0)="D CLEANUP^IBCEF75(.IBXSAVE) D ALLIDS^IBCEF75(IBXIEN,.IBXSAVE,1) S IBXDATA=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""C"",1,0)),U,1)"
^XMB(3.9,55,2,1535,0)="""DATA"",364.7,209,3,0)"
^XMB(3.9,55,2,1536,0)="^364.73^2^2^3041221^^^^"
^XMB(3.9,55,2,1537,0)="""DATA"",364.7,209,3,1,0)"
^XMB(3.9,55,2,1538,0)="Save the actual id in IBXSAVE(""EIN"") and output the tax id qualifier here"
^XMB(3.9,55,2,1539,0)="""DATA"",364.7,209,3,2,0)"
^XMB(3.9,55,2,1540,0)="if id was found."
^XMB(3.9,55,2,1541,0)="""DATA"",364.7,211,0)"
^XMB(3.9,55,2,1542,0)="1046^N^5^^^^N^0"
^XMB(3.9,55,2,1543,0)="""DATA"",364.7,211,1)"
^XMB(3.9,55,2,1544,0)="S IBXDATA=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""C"",1,0)),U,2)"
^XMB(3.9,55,2,1545,0)="""DATA"",364.7,211,3,0)"
^XMB(3.9,55,2,1546,0)="^364.73^2^2^3041221^^^^"
^XMB(3.9,55,2,1547,0)="""DATA"",364.7,211,3,1,0)"
^XMB(3.9,55,2,1548,0)="If the tax id for the outside facility exists, output it here and kill"
^XMB(3.9,55,2,1549,0)="""DATA"",364.7,211,3,2,0)"
^XMB(3.9,55,2,1550,0)="IBXSAVE(""EIN"") to clean up."
^XMB(3.9,55,2,1551,0)="""DATA"",364.7,225,0)"
^XMB(3.9,55,2,1552,0)="1051^N^5^^^^N"
^XMB(3.9,55,2,1553,0)="""DATA"",364.7,225,1)"
^XMB(3.9,55,2,1554,0)="S IBXDATA="""" I $G(IBXSAVE(""MAMMO"")) S IBXDATA=""EW"" K IBXSAVE(""MAMMO"")"
^XMB(3.9,55,2,1555,0)="""DATA"",364.7,225,3,0)"
^XMB(3.9,55,2,1556,0)="^^3^3^3060124^"
^XMB(3.9,55,2,1557,0)="""DATA"",364.7,225,3,1,0)"
^XMB(3.9,55,2,1558,0)="This is the mammography certification number qualifier in CL1A-9.  If "
^XMB(3.9,55,2,1559,0)="""DATA"",364.7,225,3,2,0)"
^XMB(3.9,55,2,1560,0)="there is a mammo cert number on the claim and transmitted in CL1A-6 then "
^XMB(3.9,55,2,1561,0)="""DATA"",364.7,225,3,3,0)"
^XMB(3.9,55,2,1562,0)="this field will be sent as ""EW""."
^XMB(3.9,55,2,1563,0)="""DATA"",364.7,226,0)"
^XMB(3.9,55,2,1564,0)="226^N^5^^^^N"
^XMB(3.9,55,2,1565,0)="""DATA"",364.7,226,1)"
^XMB(3.9,55,2,1566,0)="D CLEANUP^IBCEF75(.IBXSAVE) D ALLIDS^IBCEF75(IBXIEN,.IBXSAVE,1) S IBXDATA=$P($G(IBXSAVE(""BILLING PRV"",IBXIEN,""C"",1,1)),U,1)"
^XMB(3.9,55,2,1567,0)="""DATA"",364.7,226,3,0)"
^XMB(3.9,55,2,1568,0)="^^1^1^3060124^"
^XMB(3.9,55,2,1569,0)="""DATA"",364.7,226,3,1,0)"
^XMB(3.9,55,2,1570,0)="CI1A-2 site suffix or facility ID qualifier.  This is hard-coded to be G5."
^XMB(3.9,55,2,1571,0)="""DATA"",364.7,227,0)"
^XMB(3.9,55,2,1572,0)="227^N^5^^^^N"
^XMB(3.9,55,2,1573,0)="""DATA"",364.7,227,1)"
^XMB(3.9,55,2,1574,0)="S IBXDATA=$P($G(IBXSAVE(""BILLING PRV"",IBXIEN,""C"",1,1)),U,2)"
^XMB(3.9,55,2,1575,0)="""DATA"",364.7,227,3,0)"
^XMB(3.9,55,2,1576,0)="^^4^4^3060125^"
^XMB(3.9,55,2,1577,0)="""DATA"",364.7,227,3,1,0)"
^XMB(3.9,55,2,1578,0)="Always output 4 characters containing the site suffix padded on the left "
^XMB(3.9,55,2,1579,0)="""DATA"",364.7,227,3,2,0)"
^XMB(3.9,55,2,1580,0)="by 0's if necessary.  "
^XMB(3.9,55,2,1581,0)="""DATA"",364.7,227,3,3,0)"
^XMB(3.9,55,2,1582,0)="Examples:  For station# 528, this field is sent as ""0000"""
^XMB(3.9,55,2,1583,0)="""DATA"",364.7,227,3,4,0)"
^XMB(3.9,55,2,1584,0)="           For station# 605GC, this field is sent as ""00GC"""
^XMB(3.9,55,2,1585,0)="""DATA"",364.7,256,0)"
^XMB(3.9,55,2,1586,0)="1065^N^5^^^^N^0"
^XMB(3.9,55,2,1587,0)="""DATA"",364.7,256,1)"
^XMB(3.9,55,2,1588,0)="N Z K IBXDATA F Z=1,2 I $D(^DGCR(399,IBXIEN,""I""_(Z+1))) S IBXDATA(Z)=""B"""
^XMB(3.9,55,2,1589,0)="""DATA"",364.7,256,3,0)"
^XMB(3.9,55,2,1590,0)="^^3^3^3060217^"
^XMB(3.9,55,2,1591,0)="""DATA"",364.7,256,3,1,0)"
^XMB(3.9,55,2,1592,0)="Other insurance patient signature source code.  2320/OI/04."
^XMB(3.9,55,2,1593,0)="""DATA"",364.7,256,3,2,0)"
^XMB(3.9,55,2,1594,0)="This is group data element for the other insurances.  Currently, hard "
^XMB(3.9,55,2,1595,0)="""DATA"",364.7,256,3,3,0)"
^XMB(3.9,55,2,1596,0)="code a ""B"" for all other insurances."
^XMB(3.9,55,2,1597,0)="""DATA"",364.7,375,0)"
^XMB(3.9,55,2,1598,0)="1094^N^5^^^^N"
^XMB(3.9,55,2,1599,0)="""DATA"",364.7,375,1)"
^XMB(3.9,55,2,1600,0)="S IBXDATA=$P($G(IBXSAVE(""BILLING PRV"",IBXIEN,""C"",1,3)),U,2)"
^XMB(3.9,55,2,1601,0)="""DATA"",364.7,375,3,0)"
^XMB(3.9,55,2,1602,0)="^364.73^2^2^3041202^^^^"
^XMB(3.9,55,2,1603,0)="""DATA"",364.7,375,3,1,0)"
^XMB(3.9,55,2,1604,0)="Extract the 364.5 definition into an array. Then use piece 1, Blue Cross "
^XMB(3.9,55,2,1605,0)="""DATA"",364.7,375,3,2,0)"
^XMB(3.9,55,2,1606,0)="Number for 8,16 piece 3.. The array will be used for the remaining pieces."
^XMB(3.9,55,2,1607,0)="""DATA"",364.7,376,0)"
^XMB(3.9,55,2,1608,0)="1095^N^5^^^^N"
^XMB(3.9,55,2,1609,0)="""DATA"",364.7,376,1)"
^XMB(3.9,55,2,1610,0)="S IBXDATA=$P($G(IBXSAVE(""BILLING PRV"",IBXIEN,""C"",1,4)),U,1)"
^XMB(3.9,55,2,1611,0)="""DATA"",364.7,377,0)"
^XMB(3.9,55,2,1612,0)="1096^N^5^^^^N"
^XMB(3.9,55,2,1613,0)="""DATA"",364.7,377,1)"
^XMB(3.9,55,2,1614,0)="S IBXDATA=$P($G(IBXSAVE(""BILLING PRV"",IBXIEN,""C"",1,4)),U,2)"
^XMB(3.9,55,2,1615,0)="""DATA"",364.7,378,0)"
^XMB(3.9,55,2,1616,0)="1097^N^5^^^^N"
^XMB(3.9,55,2,1617,0)="""DATA"",364.7,378,1)"
^XMB(3.9,55,2,1618,0)="S IBXDATA=$P($G(IBXSAVE(""BILLING PRV"",IBXIEN,""C"",1,5)),U,1)"
^XMB(3.9,55,2,1619,0)="""DATA"",364.7,379,0)"
^XMB(3.9,55,2,1620,0)="1098^N^5^^^^N"
^XMB(3.9,55,2,1621,0)="""DATA"",364.7,379,1)"
^XMB(3.9,55,2,1622,0)="S IBXDATA=$P($G(IBXSAVE(""BILLING PRV"",IBXIEN,""C"",1,5)),U,2)"
^XMB(3.9,55,2,1623,0)="""DATA"",364.7,380,0)"
^XMB(3.9,55,2,1624,0)="1099^N^5^^^^N"
^XMB(3.9,55,2,1625,0)="""DATA"",364.7,380,1)"
^XMB(3.9,55,2,1626,0)="S IBXDATA=$P($G(IBXSAVE(""BILLING PRV"",IBXIEN,""C"",1,6)),U,1)"
^XMB(3.9,55,2,1627,0)="""DATA"",364.7,381,0)"
^XMB(3.9,55,2,1628,0)="1100^N^5^^^^N"
^XMB(3.9,55,2,1629,0)="""DATA"",364.7,381,1)"
^XMB(3.9,55,2,1630,0)="S IBXDATA=$P($G(IBXSAVE(""BILLING PRV"",IBXIEN,""C"",1,6)),U,2)"
^XMB(3.9,55,2,1631,0)="""DATA"",364.7,382,0)"
^XMB(3.9,55,2,1632,0)="1101^N^5^^^^N"
^XMB(3.9,55,2,1633,0)="""DATA"",364.7,382,1)"
^XMB(3.9,55,2,1634,0)="S IBXDATA=$P($G(IBXSAVE(""BILLING PRV"",IBXIEN,""C"",1,7)),U,1)"
^XMB(3.9,55,2,1635,0)="""DATA"",364.7,383,0)"
^XMB(3.9,55,2,1636,0)="1102^N^5^^^^N"
^XMB(3.9,55,2,1637,0)="""DATA"",364.7,383,1)"
^XMB(3.9,55,2,1638,0)="S IBXDATA=$P($G(IBXSAVE(""BILLING PRV"",IBXIEN,""C"",1,7)),U,2)"
^XMB(3.9,55,2,1639,0)="""DATA"",364.7,384,0)"
^XMB(3.9,55,2,1640,0)="1103^N^5^^^^N"
^XMB(3.9,55,2,1641,0)="""DATA"",364.7,384,1)"
^XMB(3.9,55,2,1642,0)="S IBXDATA=$P($G(IBXSAVE(""BILLING PRV"",IBXIEN,""C"",1,8)),U,1)"
^XMB(3.9,55,2,1643,0)="""DATA"",364.7,385,0)"
^XMB(3.9,55,2,1644,0)="1104^N^5^^^^N"
^XMB(3.9,55,2,1645,0)="""DATA"",364.7,385,1)"
^XMB(3.9,55,2,1646,0)="S IBXDATA=$P($G(IBXSAVE(""BILLING PRV"",IBXIEN,""C"",1,8)),U,2) D CLEANUP^IBCEF75(.IBXSAVE)"
^XMB(3.9,55,2,1647,0)="""DATA"",364.7,385,3,0)"
^XMB(3.9,55,2,1648,0)="^364.73^1^1^3031210^^^^"
^XMB(3.9,55,2,1649,0)="""DATA"",364.7,385,3,1,0)"
^XMB(3.9,55,2,1650,0)="If header data has already been extracted, array ^TMP(""IBHDR1"",$J) will already exist.  Don't want to extract this field again, so kill data element so there is no output."
^XMB(3.9,55,2,1651,0)="""DATA"",364.7,387,0)"
^XMB(3.9,55,2,1652,0)="1190^N^131^^^^N"
^XMB(3.9,55,2,1653,0)="""DATA"",364.7,387,1)"
^XMB(3.9,55,2,1654,0)="S IBXDATA=""CI1A"""
^XMB(3.9,55,2,1655,0)="""DATA"",364.7,387,3,0)"
^XMB(3.9,55,2,1656,0)="^^4^4^3060124^"
^XMB(3.9,55,2,1657,0)="""DATA"",364.7,387,3,1,0)"
^XMB(3.9,55,2,1658,0)="Record ID CI1A (Sequence# 28) piece 1.  Hard code ""CI1A"" as the "
^XMB(3.9,55,2,1659,0)="""DATA"",364.7,387,3,2,0)"
^XMB(3.9,55,2,1660,0)="first piece."
^XMB(3.9,55,2,1661,0)="""DATA"",364.7,387,3,3,0)"
^XMB(3.9,55,2,1662,0)="IB patch 320 - the CI1A segment is a new segment basically replacing the "
^XMB(3.9,55,2,1663,0)="""DATA"",364.7,387,3,4,0)"
^XMB(3.9,55,2,1664,0)="PRV1 segment.  Billing provider secondary ID's."
^XMB(3.9,55,2,1665,0)="""DATA"",364.7,388,0)"
^XMB(3.9,55,2,1666,0)="1192^N^5^^^^N"
^XMB(3.9,55,2,1667,0)="""DATA"",364.7,388,1)"
^XMB(3.9,55,2,1668,0)="S IBXDATA=$P($G(IBXSAVE(""BILLING PRV"",IBXIEN,""C"",1,2)),U,2)"
^XMB(3.9,55,2,1669,0)="""DATA"",364.7,388,3,0)"
^XMB(3.9,55,2,1670,0)="^364.73^2^2^3041202^^^^"
^XMB(3.9,55,2,1671,0)="""DATA"",364.7,388,3,1,0)"
^XMB(3.9,55,2,1672,0)="Provider number for the current insurance company for bill entry "
^XMB(3.9,55,2,1673,0)="""DATA"",364.7,388,3,2,0)"
^XMB(3.9,55,2,1674,0)="IBXIEN."
^XMB(3.9,55,2,1675,0)="""DATA"",364.7,389,0)"
^XMB(3.9,55,2,1676,0)="1191^N^5^^^^N"
^XMB(3.9,55,2,1677,0)="""DATA"",364.7,389,1)"
^XMB(3.9,55,2,1678,0)="S IBXDATA=$P($G(IBXSAVE(""BILLING PRV"",IBXIEN,""C"",1,2)),U,1)"
^XMB(3.9,55,2,1679,0)="""DATA"",364.7,389,3,0)"
^XMB(3.9,55,2,1680,0)="^364.73^4^4^3041202^^^^"
^XMB(3.9,55,2,1681,0)="""DATA"",364.7,389,3,1,0)"
^XMB(3.9,55,2,1682,0)="Kept N-CURRENT INS POLICY TYPE because didn't want to touch previous logic "
^XMB(3.9,55,2,1683,0)="""DATA"",364.7,389,3,2,0)"
^XMB(3.9,55,2,1684,0)="that may set array or TMP."
^XMB(3.9,55,2,1685,0)="""DATA"",364.7,389,3,3,0)"
^XMB(3.9,55,2,1686,0)="the format code sets array to string with QUALIF and ID for the first "
^XMB(3.9,55,2,1687,0)="""DATA"",364.7,389,3,4,0)"
^XMB(3.9,55,2,1688,0)="seven insurances in file #355.97 except some."
^XMB(3.9,55,2,1689,0)="""DATA"",364.7,390,0)"
^XMB(3.9,55,2,1690,0)="172^N^5^^^^N"
^XMB(3.9,55,2,1691,0)="""DATA"",364.7,390,1)"
^XMB(3.9,55,2,1692,0)="K:'$G(IBXSAVE(""IBFAC""))&'$P($G(IBXSAVE(""IBFAC"")),U,3) IBXDATA I $D(IBXDATA) S IBXDATA=$$GETFAC^IBCEP8(+IBXSAVE(""IBFAC""),+$P(IBXSAVE(""IBFAC""),U,2),""3C"",""SUB""),IBXDATA=$TR(IBXDATA,""-/.,()'"",""  "")"
^XMB(3.9,55,2,1693,0)="""DATA"",364.7,390,3,0)"
^XMB(3.9,55,2,1694,0)="^^3^3^3040901^"
^XMB(3.9,55,2,1695,0)="""DATA"",364.7,390,3,1,0)"
^XMB(3.9,55,2,1696,0)="Extract the city for the rendering facility.  Relies on the"
^XMB(3.9,55,2,1697,0)="""DATA"",364.7,390,3,2,0)"
^XMB(3.9,55,2,1698,0)="existence of the array IBXSAVE(""IBFAC"") extracted previously by the"
^XMB(3.9,55,2,1699,0)="""DATA"",364.7,390,3,3,0)"
^XMB(3.9,55,2,1700,0)="rendering facility name field."
^XMB(3.9,55,2,1701,0)="""DATA"",364.7,392,0)"
^XMB(3.9,55,2,1702,0)="1195^N^5^^^^N"
^XMB(3.9,55,2,1703,0)="""DATA"",364.7,392,1)"
^XMB(3.9,55,2,1704,0)="S IBXDATA="""" I $$SUB1OK^IBCEP8A(IBXIEN) S IBXDATA=24"
^XMB(3.9,55,2,1705,0)="""DATA"",364.7,392,3,0)"
^XMB(3.9,55,2,1706,0)="^^2^2^3060303^"
^XMB(3.9,55,2,1707,0)="""DATA"",364.7,392,3,1,0)"
^XMB(3.9,55,2,1708,0)="For purchased services, must pass checks in $$SUB1OK.  If true, then "
^XMB(3.9,55,2,1709,0)="""DATA"",364.7,392,3,2,0)"
^XMB(3.9,55,2,1710,0)="always 24 qualifer."
^XMB(3.9,55,2,1711,0)="""DATA"",364.7,393,0)"
^XMB(3.9,55,2,1712,0)="1196^N^5^^^^N"
^XMB(3.9,55,2,1713,0)="""DATA"",364.7,393,1)"
^XMB(3.9,55,2,1714,0)="S IBXDATA="""" I $$SUB1OK^IBCEP8A(IBXIEN) S IBXDATA=2"
^XMB(3.9,55,2,1715,0)="""DATA"",364.7,393,3,0)"
^XMB(3.9,55,2,1716,0)="^^2^2^3060303^"
^XMB(3.9,55,2,1717,0)="""DATA"",364.7,393,3,1,0)"
^XMB(3.9,55,2,1718,0)="For purchased services must pass checks in $$SUB1OK.  If true, this is "
^XMB(3.9,55,2,1719,0)="""DATA"",364.7,393,3,2,0)"
^XMB(3.9,55,2,1720,0)="always a ""2"" for non-person."
^XMB(3.9,55,2,1721,0)="""DATA"",364.7,395,0)"
^XMB(3.9,55,2,1722,0)="1198^N^5^^^^N"
^XMB(3.9,55,2,1723,0)="""DATA"",364.7,395,1)"
^XMB(3.9,55,2,1724,0)="S IBXDATA=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""C"",1,1)),U,2)"
^XMB(3.9,55,2,1725,0)="""DATA"",364.7,395,3,0)"
^XMB(3.9,55,2,1726,0)="^364.73^1^1^3030904^^^^"
^XMB(3.9,55,2,1727,0)="""DATA"",364.7,395,3,1,0)"
^XMB(3.9,55,2,1728,0)="Output the first other id for the current insurance."
^XMB(3.9,55,2,1729,0)="""DATA"",364.7,396,0)"
^XMB(3.9,55,2,1730,0)="1199^N^5^^^^N"
^XMB(3.9,55,2,1731,0)="""DATA"",364.7,396,1)"
^XMB(3.9,55,2,1732,0)="S IBXDATA=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""C"",1,2)),U,1)"
^XMB(3.9,55,2,1733,0)="""DATA"",364.7,396,3,0)"
^XMB(3.9,55,2,1734,0)="^364.73^1^1^3030904^^^"
^XMB(3.9,55,2,1735,0)="""DATA"",364.7,396,3,1,0)"
^XMB(3.9,55,2,1736,0)="Output the second id qualifier for the current insurance."
^XMB(3.9,55,2,1737,0)="""DATA"",364.7,397,0)"
^XMB(3.9,55,2,1738,0)="1200^N^5^^^^N"
^XMB(3.9,55,2,1739,0)="""DATA"",364.7,397,1)"
^XMB(3.9,55,2,1740,0)="S IBXDATA=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""C"",1,2)),U,2)"
^XMB(3.9,55,2,1741,0)="""DATA"",364.7,397,3,0)"
^XMB(3.9,55,2,1742,0)="^364.73^1^1^3030904^^^"
^XMB(3.9,55,2,1743,0)="""DATA"",364.7,397,3,1,0)"
^XMB(3.9,55,2,1744,0)="Output the second id for the current insurance."
^XMB(3.9,55,2,1745,0)="""DATA"",364.7,398,0)"
^XMB(3.9,55,2,1746,0)="1201^N^5^^^^N"
^XMB(3.9,55,2,1747,0)="""DATA"",364.7,398,1)"
^XMB(3.9,55,2,1748,0)="S IBXDATA=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""C"",1,3)),U,1)"
^XMB(3.9,55,2,1749,0)="""DATA"",364.7,398,3,0)"
^XMB(3.9,55,2,1750,0)="^364.73^1^1^3030904^^^"
^XMB(3.9,55,2,1751,0)="""DATA"",364.7,398,3,1,0)"
^XMB(3.9,55,2,1752,0)="Output the third other id qualifier for the current insurance."
^XMB(3.9,55,2,1753,0)="""DATA"",364.7,399,0)"
^XMB(3.9,55,2,1754,0)="1202^N^5^^^^N"
^XMB(3.9,55,2,1755,0)="""DATA"",364.7,399,1)"
^XMB(3.9,55,2,1756,0)="S IBXDATA=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""C"",1,3)),U,2)"
^XMB(3.9,55,2,1757,0)="""DATA"",364.7,399,3,0)"
^XMB(3.9,55,2,1758,0)="^364.73^1^1^3030904^^^"
^XMB(3.9,55,2,1759,0)="""DATA"",364.7,399,3,1,0)"
^XMB(3.9,55,2,1760,0)="Output the third other id for the current insurance."
^XMB(3.9,55,2,1761,0)="""DATA"",364.7,400,0)"
^XMB(3.9,55,2,1762,0)="1203^N^5^^^^N"
^XMB(3.9,55,2,1763,0)="""DATA"",364.7,400,1)"
^XMB(3.9,55,2,1764,0)="S IBXDATA=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""C"",1,4)),U,1)"
^XMB(3.9,55,2,1765,0)="""DATA"",364.7,400,3,0)"
^XMB(3.9,55,2,1766,0)="^364.73^1^1^3030904^^^"
^XMB(3.9,55,2,1767,0)="""DATA"",364.7,400,3,1,0)"
^XMB(3.9,55,2,1768,0)="Output the fourth other id qualifier for the current insurance."
^XMB(3.9,55,2,1769,0)="""DATA"",364.7,401,0)"
^XMB(3.9,55,2,1770,0)="1204^N^5^^^^N"
^XMB(3.9,55,2,1771,0)="""DATA"",364.7,401,1)"
^XMB(3.9,55,2,1772,0)="S IBXDATA=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""C"",1,4)),U,2)"
^XMB(3.9,55,2,1773,0)="""DATA"",364.7,401,3,0)"
^XMB(3.9,55,2,1774,0)="^364.73^1^1^3030904^^^"
^XMB(3.9,55,2,1775,0)="""DATA"",364.7,401,3,1,0)"
^XMB(3.9,55,2,1776,0)="Output the fourth other id for the current insurance."
^XMB(3.9,55,2,1777,0)="""DATA"",364.7,402,0)"
^XMB(3.9,55,2,1778,0)="1205^N^5^^^^N"
^XMB(3.9,55,2,1779,0)="""DATA"",364.7,402,1)"
^XMB(3.9,55,2,1780,0)="S IBXDATA=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""C"",1,5)),U,1)"
^XMB(3.9,55,2,1781,0)="""DATA"",364.7,402,3,0)"
^XMB(3.9,55,2,1782,0)="^364.73^1^1^3030904^^^"
^XMB(3.9,55,2,1783,0)="""DATA"",364.7,402,3,1,0)"
^XMB(3.9,55,2,1784,0)="Output the fifth other id qualifier for the current insurance."
^XMB(3.9,55,2,1785,0)="""DATA"",364.7,403,0)"
^XMB(3.9,55,2,1786,0)="1206^N^5^^^^N"
^XMB(3.9,55,2,1787,0)="""DATA"",364.7,403,1)"
^XMB(3.9,55,2,1788,0)="S IBXDATA=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""C"",1,5)),U,2) D CLEANUP^IBCEF75(.IBXSAVE)"
^XMB(3.9,55,2,1789,0)="""DATA"",364.7,403,3,0)"
^XMB(3.9,55,2,1790,0)="^364.73^3^3^3030904^^^^"
^XMB(3.9,55,2,1791,0)="""DATA"",364.7,403,3,1,0)"
^XMB(3.9,55,2,1792,0)="Output the fifth other id for the current insurance."
^XMB(3.9,55,2,1793,0)="""DATA"",364.7,403,3,2,0)"
^XMB(3.9,55,2,1794,0)="Kill the IBXSAVE(""NVF"") and IBXSAVE(""PROVINF"",IBXIEN) or"
^XMB(3.9,55,2,1795,0)="""DATA"",364.7,403,3,3,0)"
^XMB(3.9,55,2,1796,0)="IBXSAVE(""PROVINF_FAC"",IBXIEN) variables to clean up."
^XMB(3.9,55,2,1797,0)="""DATA"",364.7,405,0)"
^XMB(3.9,55,2,1798,0)="1209^N^5^^^^N"
^XMB(3.9,55,2,1799,0)="""DATA"",364.7,405,1)"
^XMB(3.9,55,2,1800,0)="S IBXDATA=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""C"",1,1)),U,2)"
^XMB(3.9,55,2,1801,0)="""DATA"",364.7,405,3,0)"
^XMB(3.9,55,2,1802,0)="^364.73^1^1^3041221^^^^"
^XMB(3.9,55,2,1803,0)="""DATA"",364.7,405,3,1,0)"
^XMB(3.9,55,2,1804,0)="Output the first 'other' id."
^XMB(3.9,55,2,1805,0)="""DATA"",364.7,406,0)"
^XMB(3.9,55,2,1806,0)="1210^N^5^^^^N"
^XMB(3.9,55,2,1807,0)="""DATA"",364.7,406,1)"
^XMB(3.9,55,2,1808,0)="S IBXDATA=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""C"",1,2)),U,1)"
^XMB(3.9,55,2,1809,0)="""DATA"",364.7,406,3,0)"
^XMB(3.9,55,2,1810,0)="^364.73^1^1^3041221^^^^"
^XMB(3.9,55,2,1811,0)="""DATA"",364.7,406,3,1,0)"
^XMB(3.9,55,2,1812,0)="Output the second 'other' id qualifier."
^XMB(3.9,55,2,1813,0)="""DATA"",364.7,407,0)"
^XMB(3.9,55,2,1814,0)="1211^N^5^^^^N"
^XMB(3.9,55,2,1815,0)="""DATA"",364.7,407,1)"
^XMB(3.9,55,2,1816,0)="S IBXDATA=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""C"",1,2)),U,2)"
^XMB(3.9,55,2,1817,0)="""DATA"",364.7,407,3,0)"
^XMB(3.9,55,2,1818,0)="^364.73^1^1^3030904^^^^"
^XMB(3.9,55,2,1819,0)="""DATA"",364.7,407,3,1,0)"
^XMB(3.9,55,2,1820,0)="Output the second 'other' id."
^XMB(3.9,55,2,1821,0)="""DATA"",364.7,408,0)"
^XMB(3.9,55,2,1822,0)="1212^N^5^^^^N"
^XMB(3.9,55,2,1823,0)="""DATA"",364.7,408,1)"
^XMB(3.9,55,2,1824,0)="S IBXDATA=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""C"",1,3)),U,1)"
^XMB(3.9,55,2,1825,0)="""DATA"",364.7,408,3,0)"
^XMB(3.9,55,2,1826,0)="^364.73^1^1^3030904^^^^"
^XMB(3.9,55,2,1827,0)="""DATA"",364.7,408,3,1,0)"
^XMB(3.9,55,2,1828,0)="Output the third 'other' id qualifier."
^XMB(3.9,55,2,1829,0)="""DATA"",364.7,409,0)"
^XMB(3.9,55,2,1830,0)="1213^N^5^^^^N"
^XMB(3.9,55,2,1831,0)="""DATA"",364.7,409,1)"
^XMB(3.9,55,2,1832,0)="S IBXDATA=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""C"",1,3)),U,2)"
^XMB(3.9,55,2,1833,0)="""DATA"",364.7,409,3,0)"
^XMB(3.9,55,2,1834,0)="^364.73^1^1^3030904^^^"
^XMB(3.9,55,2,1835,0)="""DATA"",364.7,409,3,1,0)"
^XMB(3.9,55,2,1836,0)="Output the third 'other' id."
^XMB(3.9,55,2,1837,0)="""DATA"",364.7,410,0)"
^XMB(3.9,55,2,1838,0)="1214^N^5^^^^N"
^XMB(3.9,55,2,1839,0)="""DATA"",364.7,410,1)"
^XMB(3.9,55,2,1840,0)="S IBXDATA=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""C"",1,4)),U,1)"
^XMB(3.9,55,2,1841,0)="""DATA"",364.7,410,3,0)"
^XMB(3.9,55,2,1842,0)="^364.73^1^1^3030904^^^^"
^XMB(3.9,55,2,1843,0)="""DATA"",364.7,410,3,1,0)"
^XMB(3.9,55,2,1844,0)="Output the fourth 'other' id qualifier."
^XMB(3.9,55,2,1845,0)="""DATA"",364.7,411,0)"
^XMB(3.9,55,2,1846,0)="1215^N^5^^^^N"
^XMB(3.9,55,2,1847,0)="""DATA"",364.7,411,1)"
^XMB(3.9,55,2,1848,0)="S IBXDATA=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""C"",1,4)),U,2)"
^XMB(3.9,55,2,1849,0)="""DATA"",364.7,411,3,0)"
^XMB(3.9,55,2,1850,0)="^364.73^1^1^3030904^^^"
^XMB(3.9,55,2,1851,0)="""DATA"",364.7,411,3,1,0)"
^XMB(3.9,55,2,1852,0)="Output the fourth 'other' id."
^XMB(3.9,55,2,1853,0)="""DATA"",364.7,412,0)"
^XMB(3.9,55,2,1854,0)="1216^N^5^^^^N"
^XMB(3.9,55,2,1855,0)="""DATA"",364.7,412,1)"
^XMB(3.9,55,2,1856,0)="S IBXDATA=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""C"",1,5)),U,1)"
^XMB(3.9,55,2,1857,0)="""DATA"",364.7,412,3,0)"
^XMB(3.9,55,2,1858,0)="^364.73^1^1^3041221^^^^"
^XMB(3.9,55,2,1859,0)="""DATA"",364.7,412,3,1,0)"
^XMB(3.9,55,2,1860,0)="Output the fifth 'other' id qualifier."
^XMB(3.9,55,2,1861,0)="""DATA"",364.7,413,0)"
^XMB(3.9,55,2,1862,0)="1217^N^5^^^^N"
^XMB(3.9,55,2,1863,0)="""DATA"",364.7,413,1)"
^XMB(3.9,55,2,1864,0)="S IBXDATA=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""C"",1,5)),U,2) D CLEANUP^IBCEF75(.IBXSAVE)"
^XMB(3.9,55,2,1865,0)="""DATA"",364.7,413,3,0)"
^XMB(3.9,55,2,1866,0)="^364.73^2^2^3041221^^^^"
^XMB(3.9,55,2,1867,0)="""DATA"",364.7,413,3,1,0)"
^XMB(3.9,55,2,1868,0)="Output the fifth 'other' id."
^XMB(3.9,55,2,1869,0)="""DATA"",364.7,413,3,2,0)"
^XMB(3.9,55,2,1870,0)="Delete the 'filtered' id array IBXSAVE(""PROVINF_FAC"",IBXIEN)."
^XMB(3.9,55,2,1871,0)="""DATA"",364.7,552,0)"
^XMB(3.9,55,2,1872,0)="1128^N^5^^^^N^0"
^XMB(3.9,55,2,1873,0)="""DATA"",364.7,552,1)"
^XMB(3.9,55,2,1874,0)="N Z K IBXDATA S Z=0 F  S Z=$O(IBXSAVE(""LAB/FAC"",IBXIEN,""O"",Z)) Q:'Z  I $O(IBXSAVE(""LAB/FAC"",IBXIEN,""O"",Z,0)) S IBXDATA(Z)=2"
^XMB(3.9,55,2,1875,0)="""DATA"",364.7,552,3,0)"
^XMB(3.9,55,2,1876,0)="^^2^2^3060314^"
^XMB(3.9,55,2,1877,0)="""DATA"",364.7,552,3,1,0)"
^XMB(3.9,55,2,1878,0)="OP3-4"
^XMB(3.9,55,2,1879,0)="""DATA"",364.7,552,3,2,0)"
^XMB(3.9,55,2,1880,0)="Hard code ""2""."
^XMB(3.9,55,2,1881,0)="""DATA"",364.7,553,0)"
^XMB(3.9,55,2,1882,0)="1131^N^5^^^^N^0"
^XMB(3.9,55,2,1883,0)="""DATA"",364.7,553,1)"
^XMB(3.9,55,2,1884,0)="N Z K IBXDATA F Z=1,2 S IBXDATA(Z)=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""O"",Z,2)),U,1)"
^XMB(3.9,55,2,1885,0)="""DATA"",364.7,553,3,0)"
^XMB(3.9,55,2,1886,0)="^^2^2^3060314^"
^XMB(3.9,55,2,1887,0)="""DATA"",364.7,553,3,1,0)"
^XMB(3.9,55,2,1888,0)="OP3-7"
^XMB(3.9,55,2,1889,0)="""DATA"",364.7,553,3,2,0)"
^XMB(3.9,55,2,1890,0)="Lab/Facility, Other Payer, Qualifier #2"
^XMB(3.9,55,2,1891,0)="""DATA"",364.7,554,0)"
^XMB(3.9,55,2,1892,0)="1129^N^5^^^^N^0"
^XMB(3.9,55,2,1893,0)="""DATA"",364.7,554,1)"
^XMB(3.9,55,2,1894,0)="N Z K IBXDATA F Z=1,2 S IBXDATA(Z)=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""O"",Z,1)),U,1)"
^XMB(3.9,55,2,1895,0)="""DATA"",364.7,554,3,0)"
^XMB(3.9,55,2,1896,0)="^^2^2^3060314^"
^XMB(3.9,55,2,1897,0)="""DATA"",364.7,554,3,1,0)"
^XMB(3.9,55,2,1898,0)="OP3-5"
^XMB(3.9,55,2,1899,0)="""DATA"",364.7,554,3,2,0)"
^XMB(3.9,55,2,1900,0)="Lab/Facility, Other Payer, Qualifier #1"
^XMB(3.9,55,2,1901,0)="""DATA"",364.7,555,0)"
^XMB(3.9,55,2,1902,0)="1133^N^5^^^^N^0"
^XMB(3.9,55,2,1903,0)="""DATA"",364.7,555,1)"
^XMB(3.9,55,2,1904,0)="N Z K IBXDATA F Z=1,2 S IBXDATA(Z)=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""O"",Z,3)),U,1)"
^XMB(3.9,55,2,1905,0)="""DATA"",364.7,555,3,0)"
^XMB(3.9,55,2,1906,0)="^^2^2^3060314^"
^XMB(3.9,55,2,1907,0)="""DATA"",364.7,555,3,1,0)"
^XMB(3.9,55,2,1908,0)="OP3-9"
^XMB(3.9,55,2,1909,0)="""DATA"",364.7,555,3,2,0)"
^XMB(3.9,55,2,1910,0)="Lab/Facility, Other Payer, Qualifier #3"
^XMB(3.9,55,2,1911,0)="""DATA"",364.7,556,0)"
^XMB(3.9,55,2,1912,0)="1130^N^5^^^^N^0"
^XMB(3.9,55,2,1913,0)="""DATA"",364.7,556,1)"
^XMB(3.9,55,2,1914,0)="N Z K IBXDATA F Z=1,2 S IBXDATA(Z)=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""O"",Z,1)),U,2)"
^XMB(3.9,55,2,1915,0)="""DATA"",364.7,556,3,0)"
^XMB(3.9,55,2,1916,0)="^^2^2^3060314^"
^XMB(3.9,55,2,1917,0)="""DATA"",364.7,556,3,1,0)"
^XMB(3.9,55,2,1918,0)="OP3-6"
^XMB(3.9,55,2,1919,0)="""DATA"",364.7,556,3,2,0)"
^XMB(3.9,55,2,1920,0)="Lab/Facility, Other Payer, ID #1"
^XMB(3.9,55,2,1921,0)="""DATA"",364.7,557,0)"
^XMB(3.9,55,2,1922,0)="1132^N^5^^^^N^0"
^XMB(3.9,55,2,1923,0)="""DATA"",364.7,557,1)"
^XMB(3.9,55,2,1924,0)="N Z K IBXDATA F Z=1,2 S IBXDATA(Z)=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""O"",Z,2)),U,2)"
^XMB(3.9,55,2,1925,0)="""DATA"",364.7,557,3,0)"
^XMB(3.9,55,2,1926,0)="^^2^2^3060314^"
^XMB(3.9,55,2,1927,0)="""DATA"",364.7,557,3,1,0)"
^XMB(3.9,55,2,1928,0)="OP3-8"
^XMB(3.9,55,2,1929,0)="""DATA"",364.7,557,3,2,0)"
^XMB(3.9,55,2,1930,0)="Lab/Facility, Other Payer, ID #2"
^XMB(3.9,55,2,1931,0)="""DATA"",364.7,558,0)"
^XMB(3.9,55,2,1932,0)="1134^N^5^^^^N^0"
^XMB(3.9,55,2,1933,0)="""DATA"",364.7,558,1)"
^XMB(3.9,55,2,1934,0)="N Z K IBXDATA F Z=1,2 S IBXDATA(Z)=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""O"",Z,3)),U,2) D:Z=2 CLEANUP^IBCEF75(.IBXSAVE)"
^XMB(3.9,55,2,1935,0)="""DATA"",364.7,558,3,0)"
^XMB(3.9,55,2,1936,0)="^^3^3^3060314^"
^XMB(3.9,55,2,1937,0)="""DATA"",364.7,558,3,1,0)"
^XMB(3.9,55,2,1938,0)="OP3-10"
^XMB(3.9,55,2,1939,0)="""DATA"",364.7,558,3,2,0)"
^XMB(3.9,55,2,1940,0)="Lab/Facility, Other Payer, ID #3"
^XMB(3.9,55,2,1941,0)="""DATA"",364.7,558,3,3,0)"
^XMB(3.9,55,2,1942,0)="Clean up IBXSAVE array when done with this segment."
^XMB(3.9,55,2,1943,0)="""DATA"",364.7,559,0)"
^XMB(3.9,55,2,1944,0)="1127^N^5^^^^N^0"
^XMB(3.9,55,2,1945,0)="""DATA"",364.7,559,1)"
^XMB(3.9,55,2,1946,0)="N Z K IBXDATA S Z=0 F  S Z=$O(IBXSAVE(""LAB/FAC"",IBXIEN,""O"",Z)) Q:'Z  I $O(IBXSAVE(""LAB/FAC"",IBXIEN,""O"",Z,0)) S IBXDATA(Z)=""FA"""
^XMB(3.9,55,2,1947,0)="""DATA"",364.7,559,3,0)"
^XMB(3.9,55,2,1948,0)="^^2^2^3060314^"
^XMB(3.9,55,2,1949,0)="""DATA"",364.7,559,3,1,0)"
^XMB(3.9,55,2,1950,0)="OP3-3"
^XMB(3.9,55,2,1951,0)="""DATA"",364.7,559,3,2,0)"
^XMB(3.9,55,2,1952,0)="Hard code ""FA"""
^XMB(3.9,55,2,1953,0)="""DATA"",364.7,576,0)"
^XMB(3.9,55,2,1954,0)="1155^N^5^^^^N^0"
^XMB(3.9,55,2,1955,0)="""DATA"",364.7,576,1)"
^XMB(3.9,55,2,1956,0)="N Z K IBXDATA S Z=0 F  S Z=$O(IBXSAVE(""LAB/FAC"",IBXIEN,""O"",Z)) Q:'Z  I $O(IBXSAVE(""LAB/FAC"",IBXIEN,""O"",Z,0)) S IBXDATA(Z)=2"
^XMB(3.9,55,2,1957,0)="""DATA"",364.7,576,3,0)"
^XMB(3.9,55,2,1958,0)="^^2^2^3060314^"
^XMB(3.9,55,2,1959,0)="""DATA"",364.7,576,3,1,0)"
^XMB(3.9,55,2,1960,0)="Use the IBXSAVE array for all of the other payers and output a 2 for "
^XMB(3.9,55,2,1961,0)="""DATA"",364.7,576,3,2,0)"
^XMB(3.9,55,2,1962,0)="facility."
^XMB(3.9,55,2,1963,0)="""DATA"",364.7,577,0)"
^XMB(3.9,55,2,1964,0)="1156^N^5^^^^N^0"
^XMB(3.9,55,2,1965,0)="""DATA"",364.7,577,1)"
^XMB(3.9,55,2,1966,0)="N Z K IBXDATA F Z=1,2 S IBXDATA(Z)=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""O"",Z,1)),U,1)"
^XMB(3.9,55,2,1967,0)="""DATA"",364.7,577,3,0)"
^XMB(3.9,55,2,1968,0)="^364.73^2^2^3060314^^"
^XMB(3.9,55,2,1969,0)="""DATA"",364.7,577,3,1,0)"
^XMB(3.9,55,2,1970,0)="OP6-5"
^XMB(3.9,55,2,1971,0)="""DATA"",364.7,577,3,2,0)"
^XMB(3.9,55,2,1972,0)="lab/facility, other payer, secondary qualifier #1."
^XMB(3.9,55,2,1973,0)="""DATA"",364.7,578,0)"
^XMB(3.9,55,2,1974,0)="1154^N^5^^^^N^0"
^XMB(3.9,55,2,1975,0)="""DATA"",364.7,578,1)"
^XMB(3.9,55,2,1976,0)="N Z K IBXDATA S Z=0 F  S Z=$O(IBXSAVE(""LAB/FAC"",IBXIEN,""O"",Z)) Q:'Z  I $O(IBXSAVE(""LAB/FAC"",IBXIEN,""O"",Z,0)) S IBXDATA(Z)=""QB"""
^XMB(3.9,55,2,1977,0)="""DATA"",364.7,578,3,0)"
^XMB(3.9,55,2,1978,0)="^^2^2^3060314^"
^XMB(3.9,55,2,1979,0)="""DATA"",364.7,578,3,1,0)"
^XMB(3.9,55,2,1980,0)="Use the previously built IBXSAVE array to determine which other "
^XMB(3.9,55,2,1981,0)="""DATA"",364.7,578,3,2,0)"
^XMB(3.9,55,2,1982,0)="payers exist for the claim.  Output the qualifier 'QB'."
^XMB(3.9,55,2,1983,0)="""DATA"",364.7,579,0)"
^XMB(3.9,55,2,1984,0)="1158^N^5^^^^N^0"
^XMB(3.9,55,2,1985,0)="""DATA"",364.7,579,1)"
^XMB(3.9,55,2,1986,0)="N Z K IBXDATA F Z=1,2 S IBXDATA(Z)=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""O"",Z,2)),U,1)"
^XMB(3.9,55,2,1987,0)="""DATA"",364.7,579,3,0)"
^XMB(3.9,55,2,1988,0)="^364.73^2^2^3060314^^"
^XMB(3.9,55,2,1989,0)="""DATA"",364.7,579,3,1,0)"
^XMB(3.9,55,2,1990,0)="OP6-7"
^XMB(3.9,55,2,1991,0)="""DATA"",364.7,579,3,2,0)"
^XMB(3.9,55,2,1992,0)="lab/facility, other payer, secondary qualifier #2."
^XMB(3.9,55,2,1993,0)="""DATA"",364.7,580,0)"
^XMB(3.9,55,2,1994,0)="1160^N^5^^^^N^0"
^XMB(3.9,55,2,1995,0)="""DATA"",364.7,580,1)"
^XMB(3.9,55,2,1996,0)="N Z K IBXDATA F Z=1,2 S IBXDATA(Z)=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""O"",Z,3)),U,1)"
^XMB(3.9,55,2,1997,0)="""DATA"",364.7,580,3,0)"
^XMB(3.9,55,2,1998,0)="^^2^2^3060314^"
^XMB(3.9,55,2,1999,0)="""DATA"",364.7,580,3,1,0)"
^XMB(3.9,55,2,2000,0)="OP6-9"
^XMB(3.9,55,2,2001,0)="""DATA"",364.7,580,3,2,0)"
^XMB(3.9,55,2,2002,0)="lab/facility, other payer, secondary qualifier #3."
^XMB(3.9,55,2,2003,0)="""DATA"",364.7,581,0)"
^XMB(3.9,55,2,2004,0)="1157^N^5^^^^N^0"
^XMB(3.9,55,2,2005,0)="""DATA"",364.7,581,1)"
^XMB(3.9,55,2,2006,0)="N Z K IBXDATA F Z=1,2 S IBXDATA(Z)=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""O"",Z,1)),U,2)"
^XMB(3.9,55,2,2007,0)="""DATA"",364.7,581,3,0)"
^XMB(3.9,55,2,2008,0)="^364.73^2^2^3060314^^"
^XMB(3.9,55,2,2009,0)="""DATA"",364.7,581,3,1,0)"
^XMB(3.9,55,2,2010,0)="OP6-6"
^XMB(3.9,55,2,2011,0)="""DATA"",364.7,581,3,2,0)"
^XMB(3.9,55,2,2012,0)="lab/facility, other payer, secondary ID #1."
^XMB(3.9,55,2,2013,0)="""DATA"",364.7,582,0)"
^XMB(3.9,55,2,2014,0)="1159^N^5^^^^N^0"
^XMB(3.9,55,2,2015,0)="""DATA"",364.7,582,1)"
^XMB(3.9,55,2,2016,0)="N Z K IBXDATA F Z=1,2 S IBXDATA(Z)=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""O"",Z,2)),U,2)"
^XMB(3.9,55,2,2017,0)="""DATA"",364.7,582,3,0)"
^XMB(3.9,55,2,2018,0)="^^2^2^3060314^"
^XMB(3.9,55,2,2019,0)="""DATA"",364.7,582,3,1,0)"
^XMB(3.9,55,2,2020,0)="OP6-8"
^XMB(3.9,55,2,2021,0)="""DATA"",364.7,582,3,2,0)"
^XMB(3.9,55,2,2022,0)="lab/facility, other payer, secondary ID #2."
^XMB(3.9,55,2,2023,0)="""DATA"",364.7,583,0)"
^XMB(3.9,55,2,2024,0)="1161^N^5^^^^N^0"
^XMB(3.9,55,2,2025,0)="""DATA"",364.7,583,1)"
^XMB(3.9,55,2,2026,0)="N Z K IBXDATA F Z=1,2 S IBXDATA(Z)=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""O"",Z,3)),U,2) D:Z=2 CLEANUP^IBCEF75(.IBXSAVE)"
^XMB(3.9,55,2,2027,0)="""DATA"",364.7,583,3,0)"
^XMB(3.9,55,2,2028,0)="^^3^3^3060314^"
^XMB(3.9,55,2,2029,0)="""DATA"",364.7,583,3,1,0)"
^XMB(3.9,55,2,2030,0)="OP6-10"
^XMB(3.9,55,2,2031,0)="""DATA"",364.7,583,3,2,0)"
^XMB(3.9,55,2,2032,0)="lab/facility, other payer, secondary ID #3.  Clean up IBXSAVE array nodes "
^XMB(3.9,55,2,2033,0)="""DATA"",364.7,583,3,3,0)"
^XMB(3.9,55,2,2034,0)="used here."
^XMB(3.9,55,2,2035,0)="""DATA"",364.7,584,0)"
^XMB(3.9,55,2,2036,0)="1165^N^5^^^^N^0"
^XMB(3.9,55,2,2037,0)="""DATA"",364.7,584,1)"
^XMB(3.9,55,2,2038,0)="N Z K IBXDATA F Z=1,2 S IBXDATA(Z)=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""O"",Z,1)),U,1)"
^XMB(3.9,55,2,2039,0)="""DATA"",364.7,584,3,0)"
^XMB(3.9,55,2,2040,0)="^^2^2^3060314^"
^XMB(3.9,55,2,2041,0)="""DATA"",364.7,584,3,1,0)"
^XMB(3.9,55,2,2042,0)="OP7-5"
^XMB(3.9,55,2,2043,0)="""DATA"",364.7,584,3,2,0)"
^XMB(3.9,55,2,2044,0)="Lab/Facility, Other Payer, Qualifier #1"
^XMB(3.9,55,2,2045,0)="""DATA"",364.7,585,0)"
^XMB(3.9,55,2,2046,0)="1167^N^5^^^^N^0"
^XMB(3.9,55,2,2047,0)="""DATA"",364.7,585,1)"
^XMB(3.9,55,2,2048,0)="N Z K IBXDATA F Z=1,2 S IBXDATA(Z)=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""O"",Z,2)),U,1)"
^XMB(3.9,55,2,2049,0)="""DATA"",364.7,585,3,0)"
^XMB(3.9,55,2,2050,0)="^^2^2^3060314^"
^XMB(3.9,55,2,2051,0)="""DATA"",364.7,585,3,1,0)"
^XMB(3.9,55,2,2052,0)="OP7-7"
^XMB(3.9,55,2,2053,0)="""DATA"",364.7,585,3,2,0)"
^XMB(3.9,55,2,2054,0)="Lab/Facility, Other Payer, Qualifier #2"
^XMB(3.9,55,2,2055,0)="""DATA"",364.7,586,0)"
^XMB(3.9,55,2,2056,0)="1169^N^5^^^^N^0"
^XMB(3.9,55,2,2057,0)="""DATA"",364.7,586,1)"
^XMB(3.9,55,2,2058,0)="N Z K IBXDATA F Z=1,2 S IBXDATA(Z)=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""O"",Z,3)),U,1)"
^XMB(3.9,55,2,2059,0)="""DATA"",364.7,586,3,0)"
^XMB(3.9,55,2,2060,0)="^^2^2^3060314^"
^XMB(3.9,55,2,2061,0)="""DATA"",364.7,586,3,1,0)"
^XMB(3.9,55,2,2062,0)="OP7-9"
^XMB(3.9,55,2,2063,0)="""DATA"",364.7,586,3,2,0)"
^XMB(3.9,55,2,2064,0)="Lab/Facility, Other Payer, Qualifier #3"
^XMB(3.9,55,2,2065,0)="""DATA"",364.7,587,0)"
^XMB(3.9,55,2,2066,0)="1166^N^5^^^^N^0"
^XMB(3.9,55,2,2067,0)="""DATA"",364.7,587,1)"
^XMB(3.9,55,2,2068,0)="N Z K IBXDATA F Z=1,2 S IBXDATA(Z)=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""O"",Z,1)),U,2)"
^XMB(3.9,55,2,2069,0)="""DATA"",364.7,587,3,0)"
^XMB(3.9,55,2,2070,0)="^^2^2^3060314^"
^XMB(3.9,55,2,2071,0)="""DATA"",364.7,587,3,1,0)"
^XMB(3.9,55,2,2072,0)="OP7-6"
^XMB(3.9,55,2,2073,0)="""DATA"",364.7,587,3,2,0)"
^XMB(3.9,55,2,2074,0)="Lab/Facility, Other Payer, ID #1"
^XMB(3.9,55,2,2075,0)="""DATA"",364.7,588,0)"
^XMB(3.9,55,2,2076,0)="1168^N^5^^^^N^0"
^XMB(3.9,55,2,2077,0)="""DATA"",364.7,588,1)"
^XMB(3.9,55,2,2078,0)="N Z K IBXDATA F Z=1,2 S IBXDATA(Z)=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""O"",Z,2)),U,2)"
^XMB(3.9,55,2,2079,0)="""DATA"",364.7,588,3,0)"
^XMB(3.9,55,2,2080,0)="^^2^2^3060314^"
^XMB(3.9,55,2,2081,0)="""DATA"",364.7,588,3,1,0)"
^XMB(3.9,55,2,2082,0)="OP7-8"
^XMB(3.9,55,2,2083,0)="""DATA"",364.7,588,3,2,0)"
^XMB(3.9,55,2,2084,0)="Lab/Facility, Other Payer, ID #2"
^XMB(3.9,55,2,2085,0)="""DATA"",364.7,589,0)"
^XMB(3.9,55,2,2086,0)="1170^N^5^^^^N^0"
^XMB(3.9,55,2,2087,0)="""DATA"",364.7,589,1)"
^XMB(3.9,55,2,2088,0)="N Z K IBXDATA F Z=1,2 S IBXDATA(Z)=$P($G(IBXSAVE(""LAB/FAC"",IBXIEN,""O"",Z,3)),U,2) D:Z=2 CLEANUP^IBCEF75(.IBXSAVE)"
^XMB(3.9,55,2,2089,0)="""DATA"",364.7,589,3,0)"
^XMB(3.9,55,2,2090,0)="^^3^3^3060314^"
^XMB(3.9,55,2,2091,0)="""DATA"",364.7,589,3,1,0)"
^XMB(3.9,55,2,2092,0)="OP7-10"
^XMB(3.9,55,2,2093,0)="""DATA"",364.7,589,3,2,0)"
^XMB(3.9,55,2,2094,0)="Lab/Facility, Other Payer, ID #3"
^XMB(3.9,55,2,2095,0)="""DATA"",364.7,589,3,3,0)"
^XMB(3.9,55,2,2096,0)="Cleanup array when done with segment."
^XMB(3.9,55,2,2097,0)="""DATA"",364.7,590,0)"
^XMB(3.9,55,2,2098,0)="1164^N^5^^^^N^0"
^XMB(3.9,55,2,2099,0)="""DATA"",364.7,590,1)"
^XMB(3.9,55,2,2100,0)="N Z K IBXDATA S Z=0 F  S Z=$O(IBXSAVE(""LAB/FAC"",IBXIEN,""O"",Z)) Q:'Z  I $O(IBXSAVE(""LAB/FAC"",IBXIEN,""O"",Z,0)) S IBXDATA(Z)=2"
^XMB(3.9,55,2,2101,0)="""DATA"",364.7,590,3,0)"
^XMB(3.9,55,2,2102,0)="^^2^2^3060314^"
^XMB(3.9,55,2,2103,0)="""DATA"",364.7,590,3,1,0)"
^XMB(3.9,55,2,2104,0)="OP7-4"
^XMB(3.9,55,2,2105,0)="""DATA"",364.7,590,3,2,0)"
^XMB(3.9,55,2,2106,0)="Default a 2 for non-person."
^XMB(3.9,55,2,2107,0)="""DATA"",364.7,591,0)"
^XMB(3.9,55,2,2108,0)="1163^N^5^^^^N^0"
^XMB(3.9,55,2,2109,0)="""DATA"",364.7,591,1)"
^XMB(3.9,55,2,2110,0)="N Z,NVA,TYP S NVA=+$P($G(^DGCR(399,IBXIEN,""U2"")),U,10),TYP="""" S:NVA TYP=$P($G(^IBA(355.93,NVA,0)),U,11) S:TYP="""" TYP=""FA"" K IBXDATA S Z=0 F  S Z=$O(IBXSAVE(""LAB/FAC"",IBXIEN,""O"",Z)) Q:'Z  I $O(IBXSAVE(""LAB/FAC"",IBXIEN,""O"",Z,0)) S IBXDATA(Z)=TYP"
^XMB(3.9,55,2,2111,0)="""DATA"",364.7,591,3,0)"
^XMB(3.9,55,2,2112,0)="^^3^3^3060314^"
^XMB(3.9,55,2,2113,0)="""DATA"",364.7,591,3,1,0)"
^XMB(3.9,55,2,2114,0)="OP7-3"
^XMB(3.9,55,2,2115,0)="""DATA"",364.7,591,3,2,0)"
^XMB(3.9,55,2,2116,0)="Determine if there is a non-VA facility on the claim.  If so, capture the "
^XMB(3.9,55,2,2117,0)="""DATA"",364.7,591,3,3,0)"
^XMB(3.9,55,2,2118,0)=".11 field from file 355.93 - X12 Type of Facility.  Default FA otherwise."
^XMB(3.9,55,2,2119,0)="""DATA"",364.7,646,0)"
^XMB(3.9,55,2,2120,0)="1256^N^312^^^^N"
^XMB(3.9,55,2,2121,0)="""DATA"",364.7,646,1)"
^XMB(3.9,55,2,2122,0)="S IBXDATA=$P($G(IBXSAVE(""PROVINF"",IBXIEN,""C"",1,1,2)),""^"",3)"
^XMB(3.9,55,2,2123,0)="""DATA"",364.7,646,3,0)"
^XMB(3.9,55,2,2124,0)="^^5^5^3030815^^"
^XMB(3.9,55,2,2125,0)="""DATA"",364.7,646,3,1,0)"
^XMB(3.9,55,2,2126,0)="Refering Provider Secondary ID Qualifier."
^XMB(3.9,55,2,2127,0)="""DATA"",364.7,646,3,2,0)"
^XMB(3.9,55,2,2128,0)="EI=EMPLOYER, SY=SSN, 0B=STATE LICENSE NUMBER, 1A=BLUE CROSS, 1B=BLUE SHIELD,"
^XMB(3.9,55,2,2129,0)="""DATA"",364.7,646,3,3,0)"
^XMB(3.9,55,2,2130,0)="1C=MEDICARE PARTA aqnd PARTB, 1D=MEDICAID, 1G=UPIN Number, 1H=TRICARE"
^XMB(3.9,55,2,2131,0)="""DATA"",364.7,646,3,4,0)"
^XMB(3.9,55,2,2132,0)="G2=COMMERCAIL NUMBER, X5=STATE INDUSTRIAL ACCIDENT PROVIDER NUMBER"
^XMB(3.9,55,2,2133,0)="""DATA"",364.7,646,3,5,0)"
^XMB(3.9,55,2,2134,0)="N5=PROVIDER PLAN NETWORK ID"
^XMB(3.9,55,2,2135,0)="""DATA"",364.7,900,0)"
^XMB(3.9,55,2,2136,0)="804^N^5^^^^N"
^XMB(3.9,55,2,2137,0)="""DATA"",364.7,900,1)"
^XMB(3.9,55,2,2138,0)="K IBXDATA N Z F Z=1,2 S IBXDATA(Z)=$P($G(IBXSAVE(""BILLING PRV"",IBXIEN,""O"",Z,2,""PTQ"")),U,1) D:Z=2 CLEANUP^IBCEF75(.IBXSAVE)"
^XMB(3.9,55,2,2139,0)="""DATA"",364.7,900,3,0)"
^XMB(3.9,55,2,2140,0)="^364.73^4^4^3060420^^^^"
^XMB(3.9,55,2,2141,0)="""DATA"",364.7,900,3,1,0)"
^XMB(3.9,55,2,2142,0)="If any 'other' insurance company data is found, the data is formatted"
^XMB(3.9,55,2,2143,0)="""DATA"",364.7,900,3,2,0)"
^XMB(3.9,55,2,2144,0)="from the electronic type of plan of the insurance company policy in X12"
^XMB(3.9,55,2,2145,0)="""DATA"",364.7,900,3,3,0)"
^XMB(3.9,55,2,2146,0)="format.  Refer to the 837 V4010 (professional) field 2330/REF(3)/01"
^XMB(3.9,55,2,2147,0)="""DATA"",364.7,900,3,4,0)"
^XMB(3.9,55,2,2148,0)="for details."
^XMB(3.9,55,2,2149,0)="""DATA"",364.7,947,0)"
^XMB(3.9,55,2,2150,0)="970^N^112^^^^N"
^XMB(3.9,55,2,2151,0)="""DATA"",364.7,947,1)"
^XMB(3.9,55,2,2152,0)="I $D(IBXDATA) S IBXDATA=$$NOPUNCT^IBCEF(IBXDATA)"
^XMB(3.9,55,2,2153,0)="""DATA"",364.7,947,3,0)"
^XMB(3.9,55,2,2154,0)="^^1^1^3060111^"
^XMB(3.9,55,2,2155,0)="""DATA"",364.7,947,3,1,0)"
^XMB(3.9,55,2,2156,0)="Format code for the CLIA# in SUB-8.  Just remove any punctuation."
^XMB(3.9,55,2,2157,0)="""DATA"",364.7,948,0)"
^XMB(3.9,55,2,2158,0)="971^N^113^^^^N"
^XMB(3.9,55,2,2159,0)="""DATA"",364.7,948,1)"
^XMB(3.9,55,2,2160,0)="I $D(IBXDATA) N IBZ D VAMCFD^IBCEF75(IBXIEN,.IBZ) K:$D(IBZ)&'$G(IBZ(""C"",1)) IBXDATA I $D(IBXDATA) S IBXDATA=$$NOPUNCT^IBCEF(IBXDATA)"
^XMB(3.9,55,2,2161,0)="""DATA"",364.7,948,3,0)"
^XMB(3.9,55,2,2162,0)="^^1^1^3060111^"
^XMB(3.9,55,2,2163,0)="""DATA"",364.7,948,3,1,0)"
^XMB(3.9,55,2,2164,0)="Remove punctuation from the returned tax ID number."
^XMB(3.9,55,2,2165,0)="""DATA"",364.7,954,0)"
^XMB(3.9,55,2,2166,0)="968^N^5^^^^N"
^XMB(3.9,55,2,2167,0)="""DATA"",364.7,954,1)"
^XMB(3.9,55,2,2168,0)="S IBXDATA="""""
^XMB(3.9,55,2,2169,0)="""DATA"",364.7,954,3,0)"
^XMB(3.9,55,2,2170,0)="^364.73^1^1^3060125^^"
^XMB(3.9,55,2,2171,0)="""DATA"",364.7,954,3,1,0)"
^XMB(3.9,55,2,2172,0)="IB patch 320.  Move the data in this field to CI1A-3."
^XMB(3.9,55,2,2173,0)="""DATA"",364.7,1009,0)"
^XMB(3.9,55,2,2174,0)="1008^N^113^^^^N"
^XMB(3.9,55,2,2175,0)="""DATA"",364.7,1009,1)"
^XMB(3.9,55,2,2176,0)="D BOX324^IBCEP8A(IBXIEN,.IBXSAVE,.IBXDATA)"
^XMB(3.9,55,2,2177,0)="""DATA"",364.7,1009,3,0)"
^XMB(3.9,55,2,2178,0)="^^3^3^3060116^"
^XMB(3.9,55,2,2179,0)="""DATA"",364.7,1009,3,1,0)"
^XMB(3.9,55,2,2180,0)="HCFA-1500 form, Box 32, Line 4."
^XMB(3.9,55,2,2181,0)="""DATA"",364.7,1009,3,2,0)"
^XMB(3.9,55,2,2182,0)="Display mammography certification number if it exists."
^XMB(3.9,55,2,2183,0)="""DATA"",364.7,1009,3,3,0)"
^XMB(3.9,55,2,2184,0)="Otherwise, display the facility tax ID for remote VA site or non-VA site."
^XMB(3.9,55,2,2185,0)="""DATA"",364.7,1015,0)"
^XMB(3.9,55,2,2186,0)="1014^N^5"
^XMB(3.9,55,2,2187,0)="""DATA"",364.7,1015,1)"
^XMB(3.9,55,2,2188,0)="S IBXDATA=""320.0      """
^XMB(3.9,55,2,2189,0)="""DATA"",364.7,1015,3,0)"
^XMB(3.9,55,2,2190,0)="^364.73^1^1^3050113^^^^"
^XMB(3.9,55,2,2191,0)="""DATA"",364.7,1015,3,1,0)"
^XMB(3.9,55,2,2192,0)=" "
^XMB(3.9,55,2,2193,0)="""DATA"",364.7,1020,0)"
^XMB(3.9,55,2,2194,0)="1305^N^5^^^^N"
^XMB(3.9,55,2,2195,0)="""DATA"",364.7,1020,1)"
^XMB(3.9,55,2,2196,0)="D OTH^IBCEF76(IBXIEN,.IBXSAVE,.IBXDATA,($$FT^IBCEF(IBXIEN)=3),""OP3 "")"
^XMB(3.9,55,2,2197,0)="""DATA"",364.7,1020,3,0)"
^XMB(3.9,55,2,2198,0)="^^3^3^3060314^"
^XMB(3.9,55,2,2199,0)="""DATA"",364.7,1020,3,1,0)"
^XMB(3.9,55,2,2200,0)="OP3-2"
^XMB(3.9,55,2,2201,0)="""DATA"",364.7,1020,3,2,0)"
^XMB(3.9,55,2,2202,0)="Call the provider ID function only if the claim is a UB claim."
^XMB(3.9,55,2,2203,0)="""DATA"",364.7,1020,3,3,0)"
^XMB(3.9,55,2,2204,0)="Output the other payer sequence."
^XMB(3.9,55,2,2205,0)="""DATA"",364.7,1022,0)"
^XMB(3.9,55,2,2206,0)="1308^N^5^^^^N"
^XMB(3.9,55,2,2207,0)="""DATA"",364.7,1022,1)"
^XMB(3.9,55,2,2208,0)="D OTH^IBCEF76(IBXIEN,.IBXSAVE,.IBXDATA,$$SUB1OK^IBCEP8A(IBXIEN),""OP6 "")"
^XMB(3.9,55,2,2209,0)="""DATA"",364.7,1022,3,0)"
^XMB(3.9,55,2,2210,0)="^^4^4^3060314^"
^XMB(3.9,55,2,2211,0)="""DATA"",364.7,1022,3,1,0)"
^XMB(3.9,55,2,2212,0)="OP6-2"
^XMB(3.9,55,2,2213,0)="""DATA"",364.7,1022,3,2,0)"
^XMB(3.9,55,2,2214,0)="Call provider ID function only if claim is for professional purchased "
^XMB(3.9,55,2,2215,0)="""DATA"",364.7,1022,3,3,0)"
^XMB(3.9,55,2,2216,0)="services.  Loop through all other insurances and output the corresponding "
^XMB(3.9,55,2,2217,0)="""DATA"",364.7,1022,3,4,0)"
^XMB(3.9,55,2,2218,0)="payer sequence of that other insurance."
^XMB(3.9,55,2,2219,0)="""DATA"",364.7,1023,0)"
^XMB(3.9,55,2,2220,0)="1309^N^5^^^^N"
^XMB(3.9,55,2,2221,0)="""DATA"",364.7,1023,1)"
^XMB(3.9,55,2,2222,0)="D OTH^IBCEF76(IBXIEN,.IBXSAVE,.IBXDATA,($$FT^IBCEF(IBXIEN)=2),""OP7 "")"
^XMB(3.9,55,2,2223,0)="""DATA"",364.7,1023,3,0)"
^XMB(3.9,55,2,2224,0)="^^3^3^3060314^"
^XMB(3.9,55,2,2225,0)="""DATA"",364.7,1023,3,1,0)"
^XMB(3.9,55,2,2226,0)="OP7-2"
^XMB(3.9,55,2,2227,0)="""DATA"",364.7,1023,3,2,0)"
^XMB(3.9,55,2,2228,0)="other payer sequence.  Call provider ID function only when claim is a "
^XMB(3.9,55,2,2229,0)="""DATA"",364.7,1023,3,3,0)"
^XMB(3.9,55,2,2230,0)="HCFA-1500 claim."
^XMB(3.9,55,2,2231,0)="""DATA"",364.7,1031,0)"
^XMB(3.9,55,2,2232,0)="1315^N^5"
^XMB(3.9,55,2,2233,0)="""DATA"",364.7,1031,1)"
^XMB(3.9,55,2,2234,0)="S IBXDATA=$P($G(IBZSAVE(""BILLING PRV"",IBXIEN,""C"",1,2,""PTQ"")),U,1) K IBZSAVE"
^XMB(3.9,55,2,2235,0)="""DATA"",364.7,1031,3,0)"
^XMB(3.9,55,2,2236,0)="^364.73^2^2^3060420^^"
^XMB(3.9,55,2,2237,0)="""DATA"",364.7,1031,3,1,0)"
^XMB(3.9,55,2,2238,0)="CI1-9.  This is the billing provider ID qualifier (#2).  It is found on "
^XMB(3.9,55,2,2239,0)="""DATA"",364.7,1031,3,2,0)"
^XMB(3.9,55,2,2240,0)="screen 3 for the current insurance company qualifier.  Same as CI1A-4."
^XMB(3.9,55,2,2241,0)="""DATA"",364.7,1032,0)"
^XMB(3.9,55,2,2242,0)="1316^N^5^^^^N"
^XMB(3.9,55,2,2243,0)="""DATA"",364.7,1032,1)"
^XMB(3.9,55,2,2244,0)="K IBZSAVE D ALLIDS^IBCEF75(IBXIEN,.IBZSAVE,1) S IBXDATA=$P($G(IBZSAVE(""BILLING PRV"",IBXIEN,""C"",1,2)),U,2)"
^XMB(3.9,55,2,2245,0)="""DATA"",364.7,1032,3,0)"
^XMB(3.9,55,2,2246,0)="^^2^2^3060227^"
^XMB(3.9,55,2,2247,0)="""DATA"",364.7,1032,3,1,0)"
^XMB(3.9,55,2,2248,0)="CI1-7:  This is the billing provider secondary ID (#2).  It is found on "
^XMB(3.9,55,2,2249,0)="""DATA"",364.7,1032,3,2,0)"
^XMB(3.9,55,2,2250,0)="billing screen 3 for the current insurance company.  Same as CI1A-5."
^XMB(3.9,55,2,2251,0)="""DATA"",364.7,1033,0)"
^XMB(3.9,55,2,2252,0)="1317^N^5"
^XMB(3.9,55,2,2253,0)="""DATA"",364.7,1033,1)"
^XMB(3.9,55,2,2254,0)="S IBXDATA="""""
^XMB(3.9,55,2,2255,0)="""DATA"",364.7,1033,3,0)"
^XMB(3.9,55,2,2256,0)="^^3^3^3060222^"
^XMB(3.9,55,2,2257,0)="""DATA"",364.7,1033,3,1,0)"
^XMB(3.9,55,2,2258,0)="Prior to IB patch 320, this was the current insurance billing provider ID "
^XMB(3.9,55,2,2259,0)="""DATA"",364.7,1033,3,2,0)"
^XMB(3.9,55,2,2260,0)="qualifier (one of them).  All billing provider ID's and qualifiers are "
^XMB(3.9,55,2,2261,0)="""DATA"",364.7,1033,3,3,0)"
^XMB(3.9,55,2,2262,0)="now in the CI1A segment so this field has been removed."
^XMB(3.9,55,2,2263,0)="""FIA"",36)"
^XMB(3.9,55,2,2264,0)="INSURANCE COMPANY"
^XMB(3.9,55,2,2265,0)="""FIA"",36,0)"
^XMB(3.9,55,2,2266,0)="^DIC(36,"
^XMB(3.9,55,2,2267,0)="""FIA"",36,0,0)"
^XMB(3.9,55,2,2268,0)="36I"
^XMB(3.9,55,2,2269,0)="""FIA"",36,0,1)"
^XMB(3.9,55,2,2270,0)="y^y^p^^^^n^^n"
^XMB(3.9,55,2,2271,0)="""FIA"",36,0,10)"
^XMB(3.9,55,2,2272,0)=""
^XMB(3.9,55,2,2273,0)="""FIA"",36,0,11)"
^XMB(3.9,55,2,2274,0)=""
^XMB(3.9,55,2,2275,0)="""FIA"",36,0,""RLRO"")"
^XMB(3.9,55,2,2276,0)=""
^XMB(3.9,55,2,2277,0)="""FIA"",36,0,""VR"")"
^XMB(3.9,55,2,2278,0)="2.0^IB"
^XMB(3.9,55,2,2279,0)="""FIA"",36,36)"
^XMB(3.9,55,2,2280,0)="1"
^XMB(3.9,55,2,2281,0)="""FIA"",36,36,.01)"
^XMB(3.9,55,2,2282,0)=""
^XMB(3.9,55,2,2283,0)="""FIA"",36,36,.06)"
^XMB(3.9,55,2,2284,0)=""
^XMB(3.9,55,2,2285,0)="""FIA"",36,36,.07)"
^XMB(3.9,55,2,2286,0)=""
^XMB(3.9,55,2,2287,0)="""FIA"",36,36,.08)"
^XMB(3.9,55,2,2288,0)=""
^XMB(3.9,55,2,2289,0)="""FIA"",36,36,.13)"
^XMB(3.9,55,2,2290,0)=""
^XMB(3.9,55,2,2291,0)="""FIA"",36,36,.15)"
^XMB(3.9,55,2,2292,0)=""
^XMB(3.9,55,2,2293,0)="""FIA"",36,36,3.01)"
^XMB(3.9,55,2,2294,0)=""
^XMB(3.9,55,2,2295,0)="""FIA"",36,36,3.02)"
^XMB(3.9,55,2,2296,0)=""
^XMB(3.9,55,2,2297,0)="""FIA"",36,36,3.04)"
^XMB(3.9,55,2,2298,0)=""
^XMB(3.9,55,2,2299,0)="""FIA"",36,36,3.09)"
^XMB(3.9,55,2,2300,0)=""
^XMB(3.9,55,2,2301,0)="""FIA"",36,36,3.13)"
^XMB(3.9,55,2,2302,0)=""
^XMB(3.9,55,2,2303,0)="""FIA"",36,36,3.14)"
^XMB(3.9,55,2,2304,0)=""
^XMB(3.9,55,2,2305,0)="""FIA"",36,36,4.01)"
^XMB(3.9,55,2,2306,0)=""
^XMB(3.9,55,2,2307,0)="""FIA"",36,36,4.02)"
^XMB(3.9,55,2,2308,0)=""
^XMB(3.9,55,2,2309,0)="""FIA"",36,36,4.04)"
^XMB(3.9,55,2,2310,0)=""
^XMB(3.9,55,2,2311,0)="""FIA"",36,36,4.05)"
^XMB(3.9,55,2,2312,0)=""
^XMB(3.9,55,2,2313,0)="""FIA"",36,36,4.06)"
^XMB(3.9,55,2,2314,0)=""
^XMB(3.9,55,2,2315,0)="""FIA"",36,36,4.07)"
^XMB(3.9,55,2,2316,0)=""
^XMB(3.9,55,2,2317,0)="""FIA"",36,36,4.08)"
^XMB(3.9,55,2,2318,0)=""
^XMB(3.9,55,2,2319,0)="""FIA"",36,36,13)"
^XMB(3.9,55,2,2320,0)=""
^XMB(3.9,55,2,2321,0)="""FIA"",36,36.013)"
^XMB(3.9,55,2,2322,0)="0"
^XMB(3.9,55,2,2323,0)="""FIA"",350.8)"
^XMB(3.9,55,2,2324,0)="IB ERROR"
^XMB(3.9,55,2,2325,0)="""FIA"",350.8,0)"
^XMB(3.9,55,2,2326,0)="^IBE(350.8,"
^XMB(3.9,55,2,2327,0)="""FIA"",350.8,0,0)"
^XMB(3.9,55,2,2328,0)="350.8I"
^XMB(3.9,55,2,2329,0)="""FIA"",350.8,0,1)"
^XMB(3.9,55,2,2330,0)="n^n^f^^n^^y^o^n"
^XMB(3.9,55,2,2331,0)="""FIA"",350.8,0,10)"
^XMB(3.9,55,2,2332,0)=""
^XMB(3.9,55,2,2333,0)="""FIA"",350.8,0,11)"
^XMB(3.9,55,2,2334,0)="I $F("".IB235.IB303.IB236.IB237.IB238.IB239.IB240.IB241.IB242.IB243.IB244.IB245.IB246."","".""_$P($G(^IBE(350.8,+Y,0)),U,1)_""."")"
^XMB(3.9,55,2,2335,0)="""FIA"",350.8,0,""RLRO"")"
^XMB(3.9,55,2,2336,0)=""
^XMB(3.9,55,2,2337,0)="""FIA"",350.8,0,""VR"")"
^XMB(3.9,55,2,2338,0)="2.0^IB"
^XMB(3.9,55,2,2339,0)="""FIA"",350.8,350.8)"
^XMB(3.9,55,2,2340,0)="0"
^XMB(3.9,55,2,2341,0)="""FIA"",355.92)"
^XMB(3.9,55,2,2342,0)="FACILITY BILLING ID"
^XMB(3.9,55,2,2343,0)="""FIA"",355.92,0)"
^XMB(3.9,55,2,2344,0)="^IBA(355.92,"
^XMB(3.9,55,2,2345,0)="""FIA"",355.92,0,0)"
^XMB(3.9,55,2,2346,0)="355.92P"
^XMB(3.9,55,2,2347,0)="""FIA"",355.92,0,1)"
^XMB(3.9,55,2,2348,0)="y^y^p^^^^n^^n"
^XMB(3.9,55,2,2349,0)="""FIA"",355.92,0,10)"
^XMB(3.9,55,2,2350,0)=""
^XMB(3.9,55,2,2351,0)="""FIA"",355.92,0,11)"
^XMB(3.9,55,2,2352,0)=""
^XMB(3.9,55,2,2353,0)="""FIA"",355.92,0,""RLRO"")"
^XMB(3.9,55,2,2354,0)=""
^XMB(3.9,55,2,2355,0)="""FIA"",355.92,0,""VR"")"
^XMB(3.9,55,2,2356,0)="2.0^IB"
^XMB(3.9,55,2,2357,0)="""FIA"",355.92,355.92)"
^XMB(3.9,55,2,2358,0)="1"
^XMB(3.9,55,2,2359,0)="""FIA"",355.92,355.92,.01)"
^XMB(3.9,55,2,2360,0)=""
^XMB(3.9,55,2,2361,0)="""FIA"",355.92,355.92,.03)"
^XMB(3.9,55,2,2362,0)=""
^XMB(3.9,55,2,2363,0)="""FIA"",355.92,355.92,.05)"
^XMB(3.9,55,2,2364,0)=""
^XMB(3.9,55,2,2365,0)="""FIA"",355.92,355.92,.08)"
^XMB(3.9,55,2,2366,0)=""
^XMB(3.9,55,2,2367,0)="""FIA"",355.92,355.92,.1)"
^XMB(3.9,55,2,2368,0)=""
^XMB(3.9,55,2,2369,0)="""FIA"",355.92,355.92,.11)"
^XMB(3.9,55,2,2370,0)=""
^XMB(3.9,55,2,2371,0)="""FIA"",355.93)"
^XMB(3.9,55,2,2372,0)="IB NON/OTHER VA BILLING PROVIDER"
^XMB(3.9,55,2,2373,0)="""FIA"",355.93,0)"
^XMB(3.9,55,2,2374,0)="^IBA(355.93,"
^XMB(3.9,55,2,2375,0)="""FIA"",355.93,0,0)"
^XMB(3.9,55,2,2376,0)="355.93I"
^XMB(3.9,55,2,2377,0)="""FIA"",355.93,0,1)"
^XMB(3.9,55,2,2378,0)="y^y^p^^^^n^^n"
^XMB(3.9,55,2,2379,0)="""FIA"",355.93,0,10)"
^XMB(3.9,55,2,2380,0)=""
^XMB(3.9,55,2,2381,0)="""FIA"",355.93,0,11)"
^XMB(3.9,55,2,2382,0)=""
^XMB(3.9,55,2,2383,0)="""FIA"",355.93,0,""RLRO"")"
^XMB(3.9,55,2,2384,0)=""
^XMB(3.9,55,2,2385,0)="""FIA"",355.93,0,""VR"")"
^XMB(3.9,55,2,2386,0)="2.0^IB"
^XMB(3.9,55,2,2387,0)="""FIA"",355.93,355.93)"
^XMB(3.9,55,2,2388,0)="1"
^XMB(3.9,55,2,2389,0)="""FIA"",355.93,355.93,.02)"
^XMB(3.9,55,2,2390,0)=""
^XMB(3.9,55,2,2391,0)="""FIA"",355.93,355.93,.09)"
^XMB(3.9,55,2,2392,0)=""
^XMB(3.9,55,2,2393,0)="""FIA"",355.93,355.93,.13)"
^XMB(3.9,55,2,2394,0)=""
^XMB(3.9,55,2,2395,0)="""FIA"",355.93,355.93,.15)"
^XMB(3.9,55,2,2396,0)=""
^XMB(3.9,55,2,2397,0)="""FIA"",355.95)"
^XMB(3.9,55,2,2398,0)="IB PROVIDER ID CARE UNIT"
^XMB(3.9,55,2,2399,0)="""FIA"",355.95,0)"
^XMB(3.9,55,2,2400,0)="^IBA(355.95,"
^XMB(3.9,55,2,2401,0)="""FIA"",355.95,0,0)"
^XMB(3.9,55,2,2402,0)="355.95I"
^XMB(3.9,55,2,2403,0)="""FIA"",355.95,0,1)"
^XMB(3.9,55,2,2404,0)="y^y^p^^^^n^^n"
^XMB(3.9,55,2,2405,0)="""FIA"",355.95,0,10)"
^XMB(3.9,55,2,2406,0)=""
^XMB(3.9,55,2,2407,0)="""FIA"",355.95,0,11)"
^XMB(3.9,55,2,2408,0)=""
^XMB(3.9,55,2,2409,0)="""FIA"",355.95,0,""RLRO"")"
^XMB(3.9,55,2,2410,0)=""
^XMB(3.9,55,2,2411,0)="""FIA"",355.95,0,""VR"")"
^XMB(3.9,55,2,2412,0)="2.0^IB"
^XMB(3.9,55,2,2413,0)="""FIA"",355.95,355.95)"
^XMB(3.9,55,2,2414,0)="1"
^XMB(3.9,55,2,2415,0)="""FIA"",355.95,355.95,.04)"
^XMB(3.9,55,2,2416,0)=""
^XMB(3.9,55,2,2417,0)="""FIA"",355.96)"
^XMB(3.9,55,2,2418,0)="IB INS CO PROVIDER ID CARE UNIT"
^XMB(3.9,55,2,2419,0)="""FIA"",355.96,0)"
^XMB(3.9,55,2,2420,0)="^IBA(355.96,"
^XMB(3.9,55,2,2421,0)="""FIA"",355.96,0,0)"
^XMB(3.9,55,2,2422,0)="355.96IP"
^XMB(3.9,55,2,2423,0)="""FIA"",355.96,0,1)"
^XMB(3.9,55,2,2424,0)="y^y^p^^^^n^^n"
^XMB(3.9,55,2,2425,0)="""FIA"",355.96,0,10)"
^XMB(3.9,55,2,2426,0)=""
^XMB(3.9,55,2,2427,0)="""FIA"",355.96,0,11)"
^XMB(3.9,55,2,2428,0)=""
^XMB(3.9,55,2,2429,0)="""FIA"",355.96,0,""RLRO"")"
^XMB(3.9,55,2,2430,0)=""
^XMB(3.9,55,2,2431,0)="""FIA"",355.96,0,""VR"")"
^XMB(3.9,55,2,2432,0)="2.0^IB"
^XMB(3.9,55,2,2433,0)="""FIA"",355.96,355.96)"
^XMB(3.9,55,2,2434,0)="1"
^XMB(3.9,55,2,2435,0)="""FIA"",355.96,355.96,.06)"
^XMB(3.9,55,2,2436,0)=""
^XMB(3.9,55,2,2437,0)="""FIA"",355.97)"
^XMB(3.9,55,2,2438,0)="IB PROVIDER ID # TYPE"
^XMB(3.9,55,2,2439,0)="""FIA"",355.97,0)"
^XMB(3.9,55,2,2440,0)="^IBE(355.97,"
^XMB(3.9,55,2,2441,0)="""FIA"",355.97,0,0)"
^XMB(3.9,55,2,2442,0)="355.97I"
^XMB(3.9,55,2,2443,0)="""FIA"",355.97,0,1)"
^XMB(3.9,55,2,2444,0)="y^y^p^^^^n^^n"
^XMB(3.9,55,2,2445,0)="""FIA"",355.97,0,10)"
^XMB(3.9,55,2,2446,0)=""
^XMB(3.9,55,2,2447,0)="""FIA"",355.97,0,11)"
^XMB(3.9,55,2,2448,0)=""
^XMB(3.9,55,2,2449,0)="""FIA"",355.97,0,""RLRO"")"
^XMB(3.9,55,2,2450,0)=""
^XMB(3.9,55,2,2451,0)="""FIA"",355.97,0,""VR"")"
^XMB(3.9,55,2,2452,0)="2.0^IB"
^XMB(3.9,55,2,2453,0)="""FIA"",355.97,355.97)"
^XMB(3.9,55,2,2454,0)="1"
^XMB(3.9,55,2,2455,0)="""FIA"",355.97,355.97,.03)"
^XMB(3.9,55,2,2456,0)=""
^XMB(3.9,55,2,2457,0)="""FIA"",355.97,355.97,.07)"
^XMB(3.9,55,2,2458,0)=""
^XMB(3.9,55,2,2459,0)="""FIA"",355.97,355.97,.08)"
^XMB(3.9,55,2,2460,0)=""
^XMB(3.9,55,2,2461,0)="""FIA"",361)"
^XMB(3.9,55,2,2462,0)="BILL STATUS MESSAGE"
^XMB(3.9,55,2,2463,0)="""FIA"",361,0)"
^XMB(3.9,55,2,2464,0)="^IBM(361,"
^XMB(3.9,55,2,2465,0)="""FIA"",361,0,0)"
^XMB(3.9,55,2,2466,0)="361PI"
^XMB(3.9,55,2,2467,0)="""FIA"",361,0,1)"
^XMB(3.9,55,2,2468,0)="y^y^p^^^^n^^n"
^XMB(3.9,55,2,2469,0)="""FIA"",361,0,10)"
^XMB(3.9,55,2,2470,0)=""
^XMB(3.9,55,2,2471,0)="""FIA"",361,0,11)"
^XMB(3.9,55,2,2472,0)=""
^XMB(3.9,55,2,2473,0)="""FIA"",361,0,""RLRO"")"
^XMB(3.9,55,2,2474,0)=""
^XMB(3.9,55,2,2475,0)="""FIA"",361,0,""VR"")"
^XMB(3.9,55,2,2476,0)="2.0^IB"
^XMB(3.9,55,2,2477,0)="""FIA"",361,361)"
^XMB(3.9,55,2,2478,0)="1"
^XMB(3.9,55,2,2479,0)="""FIA"",361,361,.15)"
^XMB(3.9,55,2,2480,0)=""
^XMB(3.9,55,2,2481,0)="""FIA"",361,361,.16)"
^XMB(3.9,55,2,2482,0)=""
^XMB(3.9,55,2,2483,0)="""FIA"",361.2)"
^XMB(3.9,55,2,2484,0)="IB ELECTRONIC REPORT DISPOSITION"
^XMB(3.9,55,2,2485,0)="""FIA"",361.2,0)"
^XMB(3.9,55,2,2486,0)="^IBE(361.2,"
^XMB(3.9,55,2,2487,0)="""FIA"",361.2,0,0)"
^XMB(3.9,55,2,2488,0)="361.2I"
^XMB(3.9,55,2,2489,0)="""FIA"",361.2,0,1)"
^XMB(3.9,55,2,2490,0)="n^n^f^^n^^y^o^n"
^XMB(3.9,55,2,2491,0)="""FIA"",361.2,0,10)"
^XMB(3.9,55,2,2492,0)=""
^XMB(3.9,55,2,2493,0)="""FIA"",361.2,0,11)"
^XMB(3.9,55,2,2494,0)="I $P($G(^IBE(361.2,Y,0)),U,1)=""R0S2"""
^XMB(3.9,55,2,2495,0)="""FIA"",361.2,0,""RLRO"")"
^XMB(3.9,55,2,2496,0)=""
^XMB(3.9,55,2,2497,0)="""FIA"",361.2,0,""VR"")"
^XMB(3.9,55,2,2498,0)="2.0^IB"
^XMB(3.9,55,2,2499,0)="""FIA"",361.2,361.2)"
^XMB(3.9,55,2,2500,0)="0"
^XMB(3.9,55,2,2501,0)="""FIA"",361.4)"
^XMB(3.9,55,2,2502,0)="EDI TEST CLAIM STATUS MESSAGE"
^XMB(3.9,55,2,2503,0)="""FIA"",361.4,0)"
^XMB(3.9,55,2,2504,0)="^IBM(361.4,"
^XMB(3.9,55,2,2505,0)="""FIA"",361.4,0,0)"
^XMB(3.9,55,2,2506,0)="361.4P"
^XMB(3.9,55,2,2507,0)="""FIA"",361.4,0,1)"
^XMB(3.9,55,2,2508,0)="y^y^p^^^^n^^n"
^XMB(3.9,55,2,2509,0)="""FIA"",361.4,0,10)"
^XMB(3.9,55,2,2510,0)=""
^XMB(3.9,55,2,2511,0)="""FIA"",361.4,0,11)"
^XMB(3.9,55,2,2512,0)=""
^XMB(3.9,55,2,2513,0)="""FIA"",361.4,0,""RLRO"")"
^XMB(3.9,55,2,2514,0)=""
^XMB(3.9,55,2,2515,0)="""FIA"",361.4,0,""VR"")"
^XMB(3.9,55,2,2516,0)="2.0^IB"
^XMB(3.9,55,2,2517,0)="""FIA"",361.4,361.4)"
^XMB(3.9,55,2,2518,0)="1"
^XMB(3.9,55,2,2519,0)="""FIA"",361.4,361.4,1)"
^XMB(3.9,55,2,2520,0)=""
^XMB(3.9,55,2,2521,0)="""FIA"",361.4,361.41)"
^XMB(3.9,55,2,2522,0)="1"
^XMB(3.9,55,2,2523,0)="""FIA"",361.4,361.41,.01)"
^XMB(3.9,55,2,2524,0)=""
^XMB(3.9,55,2,2525,0)="""FIA"",364.5)"
^XMB(3.9,55,2,2526,0)="IB DATA ELEMENT DEFINITION"
^XMB(3.9,55,2,2527,0)="""FIA"",364.5,0)"
^XMB(3.9,55,2,2528,0)="^IBA(364.5,"
^XMB(3.9,55,2,2529,0)="""FIA"",364.5,0,0)"
^XMB(3.9,55,2,2530,0)="364.5I"
^XMB(3.9,55,2,2531,0)="""FIA"",364.5,0,1)"
^XMB(3.9,55,2,2532,0)="n^n^f^^y^^y^o^n"
^XMB(3.9,55,2,2533,0)="""FIA"",364.5,0,10)"
^XMB(3.9,55,2,2534,0)=""
^XMB(3.9,55,2,2535,0)="""FIA"",364.5,0,11)"
^XMB(3.9,55,2,2536,0)="I $$INCLUDE^IBY320PR(5,Y)"
^XMB(3.9,55,2,2537,0)="""FIA"",364.5,0,""RLRO"")"
^XMB(3.9,55,2,2538,0)=""
^XMB(3.9,55,2,2539,0)="""FIA"",364.5,0,""VR"")"
^XMB(3.9,55,2,2540,0)="2.0^IB"
^XMB(3.9,55,2,2541,0)="""FIA"",364.5,364.5)"
^XMB(3.9,55,2,2542,0)="0"
^XMB(3.9,55,2,2543,0)="""FIA"",364.5,364.53)"
^XMB(3.9,55,2,2544,0)="0"
^XMB(3.9,55,2,2545,0)="""FIA"",364.6)"
^XMB(3.9,55,2,2546,0)="IB FORM SKELETON DEFINITION"
^XMB(3.9,55,2,2547,0)="""FIA"",364.6,0)"
^XMB(3.9,55,2,2548,0)="^IBA(364.6,"
^XMB(3.9,55,2,2549,0)="""FIA"",364.6,0,0)"
^XMB(3.9,55,2,2550,0)="364.6IP"
^XMB(3.9,55,2,2551,0)="""FIA"",364.6,0,1)"
^XMB(3.9,55,2,2552,0)="n^n^f^^y^^y^o^n"
^XMB(3.9,55,2,2553,0)="""FIA"",364.6,0,10)"
^XMB(3.9,55,2,2554,0)=""
^XMB(3.9,55,2,2555,0)="""FIA"",364.6,0,11)"
^XMB(3.9,55,2,2556,0)="I $$INCLUDE^IBY320PR(6,Y)"
^XMB(3.9,55,2,2557,0)="""FIA"",364.6,0,""RLRO"")"
^XMB(3.9,55,2,2558,0)=""
^XMB(3.9,55,2,2559,0)="""FIA"",364.6,0,""VR"")"
^XMB(3.9,55,2,2560,0)="2.0^IB"
^XMB(3.9,55,2,2561,0)="""FIA"",364.6,364.6)"
^XMB(3.9,55,2,2562,0)="0"
^XMB(3.9,55,2,2563,0)="""FIA"",364.7)"
^XMB(3.9,55,2,2564,0)="IB FORM FIELD CONTENT"
^XMB(3.9,55,2,2565,0)="""FIA"",364.7,0)"
^XMB(3.9,55,2,2566,0)="^IBA(364.7,"
^XMB(3.9,55,2,2567,0)="""FIA"",364.7,0,0)"
^XMB(3.9,55,2,2568,0)="364.7IP"
^XMB(3.9,55,2,2569,0)="""FIA"",364.7,0,1)"
^XMB(3.9,55,2,2570,0)="n^n^f^^y^^y^o^n"
^XMB(3.9,55,2,2571,0)="""FIA"",364.7,0,10)"
^XMB(3.9,55,2,2572,0)=""
^XMB(3.9,55,2,2573,0)="""FIA"",364.7,0,11)"
^XMB(3.9,55,2,2574,0)="I $$INCLUDE^IBY320PR(7,Y)"
^XMB(3.9,55,2,2575,0)="""FIA"",364.7,0,""RLRO"")"
^XMB(3.9,55,2,2576,0)=""
^XMB(3.9,55,2,2577,0)="""FIA"",364.7,0,""VR"")"
^XMB(3.9,55,2,2578,0)="2.0^IB"
^XMB(3.9,55,2,2579,0)="""FIA"",364.7,364.7)"
^XMB(3.9,55,2,2580,0)="0"
^XMB(3.9,55,2,2581,0)="""FIA"",364.7,364.73)"
^XMB(3.9,55,2,2582,0)="0"
^XMB(3.9,55,2,2583,0)="""FIA"",399)"
^XMB(3.9,55,2,2584,0)="BILL/CLAIMS"
^XMB(3.9,55,2,2585,0)="""FIA"",399,0)"
^XMB(3.9,55,2,2586,0)="^DGCR(399,"
^XMB(3.9,55,2,2587,0)="""FIA"",399,0,0)"
^XMB(3.9,55,2,2588,0)="399I"
^XMB(3.9,55,2,2589,0)="""FIA"",399,0,1)"
^XMB(3.9,55,2,2590,0)="y^y^p^^^^n^^n"
^XMB(3.9,55,2,2591,0)="""FIA"",399,0,10)"
^XMB(3.9,55,2,2592,0)=""
^XMB(3.9,55,2,2593,0)="""FIA"",399,0,11)"
^XMB(3.9,55,2,2594,0)=""
^XMB(3.9,55,2,2595,0)="""FIA"",399,0,""RLRO"")"
^XMB(3.9,55,2,2596,0)=""
^XMB(3.9,55,2,2597,0)="""FIA"",399,0,""VR"")"
^XMB(3.9,55,2,2598,0)="2.0^IB"
^XMB(3.9,55,2,2599,0)="""FIA"",399,399)"
^XMB(3.9,55,2,2600,0)="1"
^XMB(3.9,55,2,2601,0)="""FIA"",399,399,.19)"
^XMB(3.9,55,2,2602,0)=""
^XMB(3.9,55,2,2603,0)="""FIA"",399,399,.22)"
^XMB(3.9,55,2,2604,0)=""
^XMB(3.9,55,2,2605,0)="""FIA"",399,399,29)"
^XMB(3.9,55,2,2606,0)=""
^XMB(3.9,55,2,2607,0)="""FIA"",399,399,30)"
^XMB(3.9,55,2,2608,0)=""
^XMB(3.9,55,2,2609,0)="""FIA"",399,399,31)"
^XMB(3.9,55,2,2610,0)=""
^XMB(3.9,55,2,2611,0)="""FIA"",399,399,32)"
^XMB(3.9,55,2,2612,0)=""
^XMB(3.9,55,2,2613,0)="""FIA"",399,399,33)"
^XMB(3.9,55,2,2614,0)=""
^XMB(3.9,55,2,2615,0)="""FIA"",399,399,101)"
^XMB(3.9,55,2,2616,0)=""
^XMB(3.9,55,2,2617,0)="""FIA"",399,399,102)"
^XMB(3.9,55,2,2618,0)=""
^XMB(3.9,55,2,2619,0)="""FIA"",399,399,103)"
^XMB(3.9,55,2,2620,0)=""
^XMB(3.9,55,2,2621,0)="""FIA"",399,399,122)"
^XMB(3.9,55,2,2622,0)=""
^XMB(3.9,55,2,2623,0)="""FIA"",399,399,123)"
^XMB(3.9,55,2,2624,0)=""
^XMB(3.9,55,2,2625,0)="""FIA"",399,399,124)"
^XMB(3.9,55,2,2626,0)=""
^XMB(3.9,55,2,2627,0)="""FIA"",399,399,128)"
^XMB(3.9,55,2,2628,0)=""
^XMB(3.9,55,2,2629,0)="""FIA"",399,399,129)"
^XMB(3.9,55,2,2630,0)=""
^XMB(3.9,55,2,2631,0)="""FIA"",399,399,130)"
^XMB(3.9,55,2,2632,0)=""
^XMB(3.9,55,2,2633,0)="""FIA"",399,399,232)"
^XMB(3.9,55,2,2634,0)=""
^XMB(3.9,55,2,2635,0)="""FIA"",399,399,235)"
^XMB(3.9,55,2,2636,0)=""
^XMB(3.9,55,2,2637,0)="""FIA"",399,399,242)"
^XMB(3.9,55,2,2638,0)=""
^XMB(3.9,55,2,2639,0)="""FIA"",399,399.0222)"
^XMB(3.9,55,2,2640,0)="1"
^XMB(3.9,55,2,2641,0)="""FIA"",399,399.0222,.05)"
^XMB(3.9,55,2,2642,0)=""
^XMB(3.9,55,2,2643,0)="""FIA"",399,399.0222,.06)"
^XMB(3.9,55,2,2644,0)=""
^XMB(3.9,55,2,2645,0)="""FIA"",399,399.0222,.07)"
^XMB(3.9,55,2,2646,0)=""
^XMB(3.9,55,2,2647,0)="""FIA"",399,399.0222,.12)"
^XMB(3.9,55,2,2648,0)=""
^XMB(3.9,55,2,2649,0)="""FIA"",399,399.0222,.13)"
^XMB(3.9,55,2,2650,0)=""
^XMB(3.9,55,2,2651,0)="""FIA"",399,399.0222,.14)"
^XMB(3.9,55,2,2652,0)=""
^XMB(3.9,55,2,2653,0)="""INI"")"
^XMB(3.9,55,2,2654,0)="IBY320PR"
^XMB(3.9,55,2,2655,0)="""INIT"")"
^XMB(3.9,55,2,2656,0)="IBY320PO"
^XMB(3.9,55,2,2657,0)="""IX"",355.92,355.92,""AID"",0)"
^XMB(3.9,55,2,2658,0)="355.92^AID^Xref by insurance co and division^MU^^R^IR^I^355.92^^^^^A"
^XMB(3.9,55,2,2659,0)="""IX"",355.92,355.92,""AID"",1)"
^XMB(3.9,55,2,2660,0)="S ^IBA(355.92,""AID"",+X(1),+X(2),DA)="""""
^XMB(3.9,55,2,2661,0)="""IX"",355.92,355.92,""AID"",2)"
^XMB(3.9,55,2,2662,0)="K ^IBA(355.92,""AID"",+X(1),+X(2),DA)"
^XMB(3.9,55,2,2663,0)="""IX"",355.92,355.92,""AID"",2.5)"
^XMB(3.9,55,2,2664,0)="K ^IBA(355.92,""AID"")"
^XMB(3.9,55,2,2665,0)="""IX"",355.92,355.92,""AID"",11.1,0)"
^XMB(3.9,55,2,2666,0)="^.114IA^2^2"
^XMB(3.9,55,2,2667,0)="""IX"",355.92,355.92,""AID"",11.1,1,0)"
^XMB(3.9,55,2,2668,0)="1^F^355.92^.01^^^F"
^XMB(3.9,55,2,2669,0)="""IX"",355.92,355.92,""AID"",11.1,1,3)"
^XMB(3.9,55,2,2670,0)=" "
^XMB(3.9,55,2,2671,0)="""IX"",355.92,355.92,""AID"",11.1,2,0)"
^XMB(3.9,55,2,2672,0)="2^F^355.92^.05^^^F"
^XMB(3.9,55,2,2673,0)="""IX"",355.92,355.92,""AID"",11.1,2,3)"
^XMB(3.9,55,2,2674,0)=" "
^XMB(3.9,55,2,2675,0)="""IX"",355.92,355.92,""AUNIQ"",0)"
^XMB(3.9,55,2,2676,0)="355.92^AUNIQ^Xref by ins co,care unit,form type,division,prov id type^MU^^R^IR^I^355.92^^^^^S"
^XMB(3.9,55,2,2677,0)="""IX"",355.92,355.92,""AUNIQ"",.1,0)"
^XMB(3.9,55,2,2678,0)="^^2^2^3060426^^^"
^XMB(3.9,55,2,2679,0)="""IX"",355.92,355.92,""AUNIQ"",.1,1,0)"
^XMB(3.9,55,2,2680,0)="This cross reference allows edits to the additonal provider id's to be "
^XMB(3.9,55,2,2681,0)="""IX"",355.92,355.92,""AUNIQ"",.1,2,0)"
^XMB(3.9,55,2,2682,0)="replicated to linked insurance companies."
^XMB(3.9,55,2,2683,0)="""IX"",355.92,355.92,""AUNIQ"",1)"
^XMB(3.9,55,2,2684,0)="S ^IBA(355.92,""AUNIQ"",X(1),$E(X(2),1,30),X(3),X(4),X(5),DA)="""""
^XMB(3.9,55,2,2685,0)="""IX"",355.92,355.92,""AUNIQ"",1.4)"
^XMB(3.9,55,2,2686,0)="S X=0 I X(1)]"""",X(2)]"""",X(3)]"""",X(4)]"""",X(5)]"""",$P($G(^IBA(355.92,DA,0)),U,8)=""A"" S X=1"
^XMB(3.9,55,2,2687,0)="""IX"",355.92,355.92,""AUNIQ"",2)"
^XMB(3.9,55,2,2688,0)="K ^IBA(355.92,""AUNIQ"",X(1),$E(X(2),1,30),X(3),X(4),X(5),DA)"
^XMB(3.9,55,2,2689,0)="""IX"",355.92,355.92,""AUNIQ"",2.4)"
^XMB(3.9,55,2,2690,0)="S X=0 I X(1)]"""",X(2)]"""",X(3)]"""",X(4)]"""",X(5)]"""" S X=1"
^XMB(3.9,55,2,2691,0)="""IX"",355.92,355.92,""AUNIQ"",2.5)"
^XMB(3.9,55,2,2692,0)="K ^IBA(355.92,""AUNIQ"")"
^XMB(3.9,55,2,2693,0)="""IX"",355.92,355.92,""AUNIQ"",11.1,0)"
^XMB(3.9,55,2,2694,0)="^.114IA^5^5"
^XMB(3.9,55,2,2695,0)="""IX"",355.92,355.92,""AUNIQ"",11.1,1,0)"
^XMB(3.9,55,2,2696,0)="1^F^355.92^.01^^^F"
^XMB(3.9,55,2,2697,0)="""IX"",355.92,355.92,""AUNIQ"",11.1,2,0)"
^XMB(3.9,55,2,2698,0)="2^F^355.92^.1^30^^F"
^XMB(3.9,55,2,2699,0)="""IX"",355.92,355.92,""AUNIQ"",11.1,3,0)"
^XMB(3.9,55,2,2700,0)="3^F^355.92^.04^^^F"
^XMB(3.9,55,2,2701,0)="""IX"",355.92,355.92,""AUNIQ"",11.1,4,0)"
^XMB(3.9,55,2,2702,0)="4^F^355.92^.11^^^F"
^XMB(3.9,55,2,2703,0)="""IX"",355.92,355.92,""AUNIQ"",11.1,5,0)"
^XMB(3.9,55,2,2704,0)="5^F^355.92^.06^^^F"
^XMB(3.9,55,2,2705,0)="""IX"",355.96,355.96,""AC"",0)"
^XMB(3.9,55,2,2706,0)="355.96^AC^Xref by insurance company, provider type^R^^R^IR^I^355.96^^^^^S"
^XMB(3.9,55,2,2707,0)="""IX"",355.96,355.96,""AC"",.1,0)"
^XMB(3.9,55,2,2708,0)="^^2^2^3000925^"
^XMB(3.9,55,2,2709,0)="""IX"",355.96,355.96,""AC"",.1,1,0)"
^XMB(3.9,55,2,2710,0)="This cross reference is used to easily find all care units for an"
^XMB(3.9,55,2,2711,0)="""IX"",355.96,355.96,""AC"",.1,2,0)"
^XMB(3.9,55,2,2712,0)="insurance company and provider id type."
^XMB(3.9,55,2,2713,0)="""IX"",355.96,355.96,""AC"",1)"
^XMB(3.9,55,2,2714,0)="S ^IBA(355.96,""AC"",X(1),X(2),DA)="""""
^XMB(3.9,55,2,2715,0)="""IX"",355.96,355.96,""AC"",2)"
^XMB(3.9,55,2,2716,0)="K ^IBA(355.96,""AC"",X(1),X(2),DA)"
^XMB(3.9,55,2,2717,0)="""IX"",355.96,355.96,""AC"",2.5)"
^XMB(3.9,55,2,2718,0)="K ^IBA(355.96,""AC"")"
^XMB(3.9,55,2,2719,0)="""IX"",355.96,355.96,""AC"",11.1,0)"
^XMB(3.9,55,2,2720,0)="^.114IA^2^2"
^XMB(3.9,55,2,2721,0)="""IX"",355.96,355.96,""AC"",11.1,1,0)"
^XMB(3.9,55,2,2722,0)="1^F^355.96^.03^^1^F"
^XMB(3.9,55,2,2723,0)="""IX"",355.96,355.96,""AC"",11.1,2,0)"
^XMB(3.9,55,2,2724,0)="2^F^355.96^.06^^2^F"
^XMB(3.9,55,2,2725,0)="""IX"",355.96,355.96,""AD"",0)"
^XMB(3.9,55,2,2726,0)="355.96^AD^Xref by insurance co, form type, bill care type, provider type^R^^R^IR^I^355.96^^^^^S"
^XMB(3.9,55,2,2727,0)="""IX"",355.96,355.96,""AD"",1)"
^XMB(3.9,55,2,2728,0)="S ^IBA(355.96,""AD"",X(1),X(2),X(3),X(4),DA)="""""
^XMB(3.9,55,2,2729,0)="""IX"",355.96,355.96,""AD"",2)"
^XMB(3.9,55,2,2730,0)="K ^IBA(355.96,""AD"",X(1),X(2),X(3),X(4),DA)"
^XMB(3.9,55,2,2731,0)="""IX"",355.96,355.96,""AD"",2.5)"
^XMB(3.9,55,2,2732,0)="K ^IBA(355.96,""AD"")"
^XMB(3.9,55,2,2733,0)="""IX"",355.96,355.96,""AD"",11.1,0)"
^XMB(3.9,55,2,2734,0)="^.114IA^4^4"
^XMB(3.9,55,2,2735,0)="""IX"",355.96,355.96,""AD"",11.1,1,0)"
^XMB(3.9,55,2,2736,0)="1^F^355.96^.03^^1^F"
^XMB(3.9,55,2,2737,0)="""IX"",355.96,355.96,""AD"",11.1,1,3)"
^XMB(3.9,55,2,2738,0)=""
^XMB(3.9,55,2,2739,0)="""IX"",355.96,355.96,""AD"",11.1,2,0)"
^XMB(3.9,55,2,2740,0)="2^F^355.96^.04^^2^F"
^XMB(3.9,55,2,2741,0)="""IX"",355.96,355.96,""AD"",11.1,2,3)"
^XMB(3.9,55,2,2742,0)=""
^XMB(3.9,55,2,2743,0)="""IX"",355.96,355.96,""AD"",11.1,3,0)"
^XMB(3.9,55,2,2744,0)="3^F^355.96^.05^^3^F"
^XMB(3.9,55,2,2745,0)="""IX"",355.96,355.96,""AD"",11.1,3,3)"
^XMB(3.9,55,2,2746,0)=""
^XMB(3.9,55,2,2747,0)="""IX"",355.96,355.96,""AD"",11.1,4,0)"
^XMB(3.9,55,2,2748,0)="4^F^355.96^.06^^4^F"
^XMB(3.9,55,2,2749,0)="""IX"",355.96,355.96,""AD"",11.1,4,3)"
^XMB(3.9,55,2,2750,0)=""
^XMB(3.9,55,2,2751,0)="""IX"",355.96,355.96,""AUNIQ"",0)"
^XMB(3.9,55,2,2752,0)="355.96^AUNIQ^Xref by ins co,care unit,form type,pt stat,prov type^R^^R^IR^I^355.96^^^^^S"
^XMB(3.9,55,2,2753,0)="""IX"",355.96,355.96,""AUNIQ"",.1,0)"
^XMB(3.9,55,2,2754,0)="^^3^3^3010801^"
^XMB(3.9,55,2,2755,0)="""IX"",355.96,355.96,""AUNIQ"",.1,1,0)"
^XMB(3.9,55,2,2756,0)="This cross reference provides an index to insure that each record in this"
^XMB(3.9,55,2,2757,0)="""IX"",355.96,355.96,""AUNIQ"",.1,2,0)"
^XMB(3.9,55,2,2758,0)="file has a unique combination of insurance company, form type, bill type"
^XMB(3.9,55,2,2759,0)="""IX"",355.96,355.96,""AUNIQ"",.1,3,0)"
^XMB(3.9,55,2,2760,0)="and provider id type."
^XMB(3.9,55,2,2761,0)="""IX"",355.96,355.96,""AUNIQ"",1)"
^XMB(3.9,55,2,2762,0)="S ^IBA(355.96,""AUNIQ"",X(1),X(2),X(3),X(4),X(5),DA)="""""
^XMB(3.9,55,2,2763,0)="""IX"",355.96,355.96,""AUNIQ"",2)"
^XMB(3.9,55,2,2764,0)="K ^IBA(355.96,""AUNIQ"",X(1),X(2),X(3),X(4),X(5),DA)"
^XMB(3.9,55,2,2765,0)="""IX"",355.96,355.96,""AUNIQ"",2.5)"
^XMB(3.9,55,2,2766,0)="K ^IBA(355.96,""AUNIQ"")"
^XMB(3.9,55,2,2767,0)="""IX"",355.96,355.96,""AUNIQ"",11.1,0)"
^XMB(3.9,55,2,2768,0)="^.114IA^5^5"
^XMB(3.9,55,2,2769,0)="""IX"",355.96,355.96,""AUNIQ"",11.1,1,0)"
^XMB(3.9,55,2,2770,0)="1^F^355.96^.03^^1^F"
^XMB(3.9,55,2,2771,0)="""IX"",355.96,355.96,""AUNIQ"",11.1,2,0)"
^XMB(3.9,55,2,2772,0)="2^F^355.96^.01^^2^F"
^XMB(3.9,55,2,2773,0)="""IX"",355.96,355.96,""AUNIQ"",11.1,3,0)"
^XMB(3.9,55,2,2774,0)="3^F^355.96^.04^^3^F"
^XMB(3.9,55,2,2775,0)="""IX"",355.96,355.96,""AUNIQ"",11.1,4,0)"
^XMB(3.9,55,2,2776,0)="4^F^355.96^.05^^4^F"
^XMB(3.9,55,2,2777,0)="""IX"",355.96,355.96,""AUNIQ"",11.1,5,0)"
^XMB(3.9,55,2,2778,0)="5^F^355.96^.06^^5^F"
^XMB(3.9,55,2,2779,0)="""IX"",355.96,355.96,""D"",0)"
^XMB(3.9,55,2,2780,0)="355.96^D^Lookup xref by insurance co and provider id type^R^^R^IR^I^355.96^^^^^LS"
^XMB(3.9,55,2,2781,0)="""IX"",355.96,355.96,""D"",.1,0)"
^XMB(3.9,55,2,2782,0)="^^2^2^3000928^"
^XMB(3.9,55,2,2783,0)="""IX"",355.96,355.96,""D"",.1,1,0)"
^XMB(3.9,55,2,2784,0)="This xref provides an easy way to lookup the entries in this file by"
^XMB(3.9,55,2,2785,0)="""IX"",355.96,355.96,""D"",.1,2,0)"
^XMB(3.9,55,2,2786,0)="insurance co and provider id type."
^XMB(3.9,55,2,2787,0)="""IX"",355.96,355.96,""D"",1)"
^XMB(3.9,55,2,2788,0)="S ^IBA(355.96,""D"",X(1),X(2),DA)="""""
^XMB(3.9,55,2,2789,0)="""IX"",355.96,355.96,""D"",2)"
^XMB(3.9,55,2,2790,0)="K ^IBA(355.96,""D"",X(1),X(2),DA)"
^XMB(3.9,55,2,2791,0)="""IX"",355.96,355.96,""D"",2.5)"
^XMB(3.9,55,2,2792,0)="K ^IBA(355.96,""D"")"
^XMB(3.9,55,2,2793,0)="""IX"",355.96,355.96,""D"",11.1,0)"
^XMB(3.9,55,2,2794,0)="^.114IA^2^2"
^XMB(3.9,55,2,2795,0)="""IX"",355.96,355.96,""D"",11.1,1,0)"
^XMB(3.9,55,2,2796,0)="1^F^355.96^.03^^1^F"
^XMB(3.9,55,2,2797,0)="""IX"",355.96,355.96,""D"",11.1,2,0)"
^XMB(3.9,55,2,2798,0)="2^F^355.96^.06^^2^F^CARE UNIT: "
^XMB(3.9,55,2,2799,0)="""IX"",364.6,364.6,""ALL"",0)"
^XMB(3.9,55,2,2800,0)="364.6^ALL^Allows for identification of local override fields that apply to ALL^MU^^F^IR^I^364.6^^^^^S"
^XMB(3.9,55,2,2801,0)="""IX"",364.6,364.6,""ALL"",1)"
^XMB(3.9,55,2,2802,0)="S ^IBA(364.7,""ALL"",DA,X2(5))="""""
^XMB(3.9,55,2,2803,0)="""IX"",364.6,364.6,""ALL"",1.4)"
^XMB(3.9,55,2,2804,0)="I X2(4)'=""L""!'X2(5)!(X2(2)'="""")!(X2(3)'="""")!'X2(1) S X=0"
^XMB(3.9,55,2,2805,0)="""IX"",364.6,364.6,""ALL"",2)"
^XMB(3.9,55,2,2806,0)="K ^IBA(364.7,""ALL"",DA,X1(5))"
^XMB(3.9,55,2,2807,0)="""IX"",364.6,364.6,""ALL"",2.4)"
^XMB(3.9,55,2,2808,0)="I X1(4)'=""L""!'X1(5)!(X1(2)'="""")!(X1(3)'="""")!'X1(1) S X=0"
^XMB(3.9,55,2,2809,0)="""IX"",364.6,364.6,""ALL"",2.5)"
^XMB(3.9,55,2,2810,0)="K ^IBA(364.7,""ALL"")"
^XMB(3.9,55,2,2811,0)="""IX"",364.6,364.6,""ALL"",11.1,0)"
^XMB(3.9,55,2,2812,0)="^.114IA^5^5"
^XMB(3.9,55,2,2813,0)="""IX"",364.6,364.6,""ALL"",11.1,1,0)"
^XMB(3.9,55,2,2814,0)="1^F^364.6^.03^^1^F"
^XMB(3.9,55,2,2815,0)="""IX"",364.6,364.6,""ALL"",11.1,1,1)"
^XMB(3.9,55,2,2816,0)=" "
^XMB(3.9,55,2,2817,0)="""IX"",364.6,364.6,""ALL"",11.1,2,0)"
^XMB(3.9,55,2,2818,0)="2^C"
^XMB(3.9,55,2,2819,0)="""IX"",364.6,364.6,""ALL"",11.1,2,1.5)"
^XMB(3.9,55,2,2820,0)="N Z S Z=+$O(^IBA(364.7,""B"",DA,0)) I Z S X=$P($G(^IBA(364.7,Z,0)),U,5)"
^XMB(3.9,55,2,2821,0)="""IX"",364.6,364.6,""ALL"",11.1,3,0)"
^XMB(3.9,55,2,2822,0)="3^C"
^XMB(3.9,55,2,2823,0)="""IX"",364.6,364.6,""ALL"",11.1,3,1.5)"
^XMB(3.9,55,2,2824,0)="N Z S Z=+$O(^IBA(364.7,""B"",DA,0)) I Z S X=$P($G(^IBA(364.7,Z,0)),U,6)"
^XMB(3.9,55,2,2825,0)="""IX"",364.6,364.6,""ALL"",11.1,4,0)"
^XMB(3.9,55,2,2826,0)="4^C"
^XMB(3.9,55,2,2827,0)="""IX"",364.6,364.6,""ALL"",11.1,4,1.5)"
^XMB(3.9,55,2,2828,0)="N Z S Z=+$O(^IBA(364.7,""B"",DA,0)) I Z S X=$P($G(^IBA(364.7,Z,0)),U,2)"
^XMB(3.9,55,2,2829,0)="""IX"",364.6,364.6,""ALL"",11.1,5,0)"
^XMB(3.9,55,2,2830,0)="5^C"
^XMB(3.9,55,2,2831,0)="""IX"",364.6,364.6,""ALL"",11.1,5,1.5)"
^XMB(3.9,55,2,2832,0)="S X=+$O(^IBA(364.7,""B"",DA,0))"
^XMB(3.9,55,2,2833,0)="""IX"",364.6,364.6,""D"",0)"
^XMB(3.9,55,2,2834,0)="364.6^D^XREF BY FORM,PAGE,LINE,COL TO SIMPLIFY DEVELOPMENT^MU^^R^IR^I^364.6^^^^^LS"
^XMB(3.9,55,2,2835,0)="""IX"",364.6,364.6,""D"",1)"
^XMB(3.9,55,2,2836,0)="S ^IBA(364.6,""D"",X2(1)_"",""_X2(2)_"",""_X2(3)_"",""_X2(4),DA)="""""
^XMB(3.9,55,2,2837,0)="""IX"",364.6,364.6,""D"",1.4)"
^XMB(3.9,55,2,2838,0)="I X2(1)=""""!(X2(2)="""")!(X2(3)="""")!(X2(4)="""") S X=0"
^XMB(3.9,55,2,2839,0)="""IX"",364.6,364.6,""D"",2)"
^XMB(3.9,55,2,2840,0)="K ^IBA(364.6,""D"",X1(1)_"",""_X1(2)_"",""_X1(3)_"",""_X1(4),DA)"
^XMB(3.9,55,2,2841,0)="""IX"",364.6,364.6,""D"",2.4)"
^XMB(3.9,55,2,2842,0)="I X1(1)=""""!(X1(2)="""")!(X1(3)="""")!(X1(4)="""") S X=0"
^XMB(3.9,55,2,2843,0)="""IX"",364.6,364.6,""D"",2.5)"
^XMB(3.9,55,2,2844,0)="K ^IBA(364.6,""D"")"
^XMB(3.9,55,2,2845,0)="""IX"",364.6,364.6,""D"",11.1,0)"
^XMB(3.9,55,2,2846,0)="^.114IA^4^4"
^XMB(3.9,55,2,2847,0)="""IX"",364.6,364.6,""D"",11.1,1,0)"
^XMB(3.9,55,2,2848,0)="1^F^364.6^.01^^1^F"
^XMB(3.9,55,2,2849,0)="""IX"",364.6,364.6,""D"",11.1,2,0)"
^XMB(3.9,55,2,2850,0)="2^F^364.6^.04^^^F"
^XMB(3.9,55,2,2851,0)="""IX"",364.6,364.6,""D"",11.1,3,0)"
^XMB(3.9,55,2,2852,0)="3^F^364.6^.05^^^F"
^XMB(3.9,55,2,2853,0)="""IX"",364.6,364.6,""D"",11.1,4,0)"
^XMB(3.9,55,2,2854,0)="4^F^364.6^.08^^^F"
^XMB(3.9,55,2,2855,0)="""IX"",364.7,364.7,""ALL"",0)"
^XMB(3.9,55,2,2856,0)="364.7^ALL^Xref contains all local overrides defined for all insurance and type^MU^^F^IR^I^364.7^^^^^S"
^XMB(3.9,55,2,2857,0)="""IX"",364.7,364.7,""ALL"",1)"
^XMB(3.9,55,2,2858,0)="S ^IBA(364.7,""ALL"",X2(2),DA)="""""
^XMB(3.9,55,2,2859,0)="""IX"",364.7,364.7,""ALL"",1.4)"
^XMB(3.9,55,2,2860,0)="I 'X2(2)!(X2(4)'="""")!(X2(5)'="""")!(X2(3)'=""L"") S X=0"
^XMB(3.9,55,2,2861,0)="""IX"",364.7,364.7,""ALL"",2)"
^XMB(3.9,55,2,2862,0)="K ^IBA(364.7,""ALL"",X1(2),DA)"
^XMB(3.9,55,2,2863,0)="""IX"",364.7,364.7,""ALL"",2.4)"
^XMB(3.9,55,2,2864,0)="I 'X1(2)!(X1(4)'="""")!(X1(5)'="""")!(X1(3)'=""L"") S X=0"
^XMB(3.9,55,2,2865,0)="""IX"",364.7,364.7,""ALL"",2.5)"
^XMB(3.9,55,2,2866,0)="K ^IBA(364.7,""ALL"")"
^XMB(3.9,55,2,2867,0)="""IX"",364.7,364.7,""ALL"",11.1,0)"
^XMB(3.9,55,2,2868,0)="^.114IA^5^5"
^XMB(3.9,55,2,2869,0)="""IX"",364.7,364.7,""ALL"",11.1,1,0)"
^XMB(3.9,55,2,2870,0)="1^F^364.7^.01^15^^F"
^XMB(3.9,55,2,2871,0)="""IX"",364.7,364.7,""ALL"",11.1,1,3)"
^XMB(3.9,55,2,2872,0)=" "
^XMB(3.9,55,2,2873,0)="""IX"",364.7,364.7,""ALL"",11.1,2,0)"
^XMB(3.9,55,2,2874,0)="2^C^^^10^1"
^XMB(3.9,55,2,2875,0)="""IX"",364.7,364.7,""ALL"",11.1,2,1.5)"
^XMB(3.9,55,2,2876,0)="S X=$P($G(^IBA(364.6,+X(1),0)),U,3)"
^XMB(3.9,55,2,2877,0)="""IX"",364.7,364.7,""ALL"",11.1,3,0)"
^XMB(3.9,55,2,2878,0)="3^F^364.7^.02^10^^F"
^XMB(3.9,55,2,2879,0)="""IX"",364.7,364.7,""ALL"",11.1,3,3)"
^XMB(3.9,55,2,2880,0)=" "
^XMB(3.9,55,2,2881,0)="""IX"",364.7,364.7,""ALL"",11.1,4,0)"
^XMB(3.9,55,2,2882,0)="4^F^364.7^.05^20^^F"
^XMB(3.9,55,2,2883,0)="""IX"",364.7,364.7,""ALL"",11.1,4,3)"
^XMB(3.9,55,2,2884,0)=" "
^XMB(3.9,55,2,2885,0)="""IX"",364.7,364.7,""ALL"",11.1,5,0)"
^XMB(3.9,55,2,2886,0)="5^F^364.7^.06^20^^F"
^XMB(3.9,55,2,2887,0)="""IX"",364.7,364.7,""ALL"",11.1,5,3)"
^XMB(3.9,55,2,2888,0)=" "
^XMB(3.9,55,2,2889,0)="""IX"",399,399,""AE"",0)"
^XMB(3.9,55,2,2890,0)="399^AE^Index by patient and insurance company^MU^^R^IR^I^399^^^^^S"
^XMB(3.9,55,2,2891,0)="""IX"",399,399,""AE"",.1,0)"
^XMB(3.9,55,2,2892,0)="^^7^7^3041021^"
^XMB(3.9,55,2,2893,0)="""IX"",399,399,""AE"",.1,1,0)"
^XMB(3.9,55,2,2894,0)="Cross reference of patients and bills to payer responsible for the bill."
^XMB(3.9,55,2,2895,0)="""IX"",399,399,""AE"",.1,2,0)"
^XMB(3.9,55,2,2896,0)="This will be used to prevent deletion of insurance policy entries from the"
^XMB(3.9,55,2,2897,0)="""IX"",399,399,""AE"",.1,3,0)"
^XMB(3.9,55,2,2898,0)="patient file if a bill has been created for this insurance company."
^XMB(3.9,55,2,2899,0)="""IX"",399,399,""AE"",.1,4,0)"
^XMB(3.9,55,2,2900,0)=" "
^XMB(3.9,55,2,2901,0)="""IX"",399,399,""AE"",.1,5,0)"
^XMB(3.9,55,2,2902,0)="Created with patch IB*2.0*288 replacing traditional cross-reference #1 in "
^XMB(3.9,55,2,2903,0)="""IX"",399,399,""AE"",.1,6,0)"
^XMB(3.9,55,2,2904,0)="field 135 of file 399.  Medicare is now a valid insurance company for "
^XMB(3.9,55,2,2905,0)="""IX"",399,399,""AE"",.1,7,0)"
^XMB(3.9,55,2,2906,0)="this index file."
^XMB(3.9,55,2,2907,0)="""IX"",399,399,""AE"",1)"
^XMB(3.9,55,2,2908,0)="N CURR S CURR=+$$COBN^IBCEF(DA) I $G(X(4)),$G(X(CURR)) S ^DGCR(399,""AE"",X(4),X(CURR),DA)="""""
^XMB(3.9,55,2,2909,0)="""IX"",399,399,""AE"",2)"
^XMB(3.9,55,2,2910,0)="N G I $G(X(4)) F G=1,2,3 I $G(X(G)) K ^DGCR(399,""AE"",X(4),X(G),DA)"
^XMB(3.9,55,2,2911,0)="""IX"",399,399,""AE"",2.5)"
^XMB(3.9,55,2,2912,0)="K ^DGCR(399,""AE"")"
^XMB(3.9,55,2,2913,0)="""IX"",399,399,""AE"",11.1,0)"
^XMB(3.9,55,2,2914,0)="^.114IA^4^4"
^XMB(3.9,55,2,2915,0)="""IX"",399,399,""AE"",11.1,1,0)"
^XMB(3.9,55,2,2916,0)="1^F^399^101^^^F"
^XMB(3.9,55,2,2917,0)="""IX"",399,399,""AE"",11.1,1,3)"
^XMB(3.9,55,2,2918,0)=""
^XMB(3.9,55,2,2919,0)="""IX"",399,399,""AE"",11.1,2,0)"
^XMB(3.9,55,2,2920,0)="2^F^399^102^^^F"
^XMB(3.9,55,2,2921,0)="""IX"",399,399,""AE"",11.1,2,3)"
^XMB(3.9,55,2,2922,0)=""
^XMB(3.9,55,2,2923,0)="""IX"",399,399,""AE"",11.1,3,0)"
^XMB(3.9,55,2,2924,0)="3^F^399^103^^^F"
^XMB(3.9,55,2,2925,0)="""IX"",399,399,""AE"",11.1,3,3)"
^XMB(3.9,55,2,2926,0)=""
^XMB(3.9,55,2,2927,0)="""IX"",399,399,""AE"",11.1,4,0)"
^XMB(3.9,55,2,2928,0)="4^F^399^.02^^^F"
^XMB(3.9,55,2,2929,0)="""IX"",399,399,""AE"",11.1,4,3)"
^XMB(3.9,55,2,2930,0)=""
^XMB(3.9,55,2,2931,0)="""IX"",399,399,""AUPDID"",0)"
^XMB(3.9,55,2,2932,0)="399^AUPDID^UPDATE PROVIDER ID WHEN DATA FIELDS CHANGE AT TOP LEVEL OF FILE^MU^^R^IR^I^399^^^^^A"
^XMB(3.9,55,2,2933,0)="""IX"",399,399,""AUPDID"",.1,0)"
^XMB(3.9,55,2,2934,0)="^^5^5^3010109^"
^XMB(3.9,55,2,2935,0)="""IX"",399,399,""AUPDID"",.1,1,0)"
^XMB(3.9,55,2,2936,0)="This cross reference maintains the integrity of the rendering or attending"
^XMB(3.9,55,2,2937,0)="""IX"",399,399,""AUPDID"",.1,2,0)"
^XMB(3.9,55,2,2938,0)="provider id whenever an insurance company is added, deleted or changed"
^XMB(3.9,55,2,2939,0)="""IX"",399,399,""AUPDID"",.1,3,0)"
^XMB(3.9,55,2,2940,0)="on the claim.  If either of these provider functions exist on the bill,"
^XMB(3.9,55,2,2941,0)="""IX"",399,399,""AUPDID"",.1,4,0)"
^XMB(3.9,55,2,2942,0)="this cross reference sets the default id data based on the insurance co's"
^XMB(3.9,55,2,2943,0)="""IX"",399,399,""AUPDID"",.1,5,0)"
^XMB(3.9,55,2,2944,0)="parameters."
^XMB(3.9,55,2,2945,0)="""IX"",399,399,""AUPDID"",1)"
^XMB(3.9,55,2,2946,0)="D:X1(1)'=X2(1)!(X1(5)'=X2(5)) SETID^IBCEP3(DA,1) D:X1(2)'=X2(2)!(X1(4)'=X2(4)) SETID^IBCEP3(DA,2) D:X1(3)'=X2(3)!(X1(6)'=X2(6)) SETID^IBCEP3(DA,3)"
^XMB(3.9,55,2,2947,0)="""IX"",399,399,""AUPDID"",1.4)"
^XMB(3.9,55,2,2948,0)="S X=$S($O(^DGCR(399,DA,""PRV"",0)):1,1:0)"
^XMB(3.9,55,2,2949,0)="""IX"",399,399,""AUPDID"",2)"
^XMB(3.9,55,2,2950,0)="D:X1(1)'=X2(1)!(X1(5)'=X2(5)) DELID^IBCEP3(DA,1) D:X1(2)'=X2(2)!(X1(4)'=X2(4)) DELID^IBCEP3(DA,2) D:X1(3)'=X2(3)!(X1(6)'=X2(6)) DELID^IBCEP3(DA,3)"
^XMB(3.9,55,2,2951,0)="""IX"",399,399,""AUPDID"",2.4)"
^XMB(3.9,55,2,2952,0)="S X=$S($O(^DGCR(399,DA,""PRV"",0)):1,1:0)"
^XMB(3.9,55,2,2953,0)="""IX"",399,399,""AUPDID"",11.1,0)"
^XMB(3.9,55,2,2954,0)="^.114IA^6^6"
^XMB(3.9,55,2,2955,0)="""IX"",399,399,""AUPDID"",11.1,1,0)"
^XMB(3.9,55,2,2956,0)="1^F^399^101^^^F"
^XMB(3.9,55,2,2957,0)="""IX"",399,399,""AUPDID"",11.1,2,0)"
^XMB(3.9,55,2,2958,0)="2^F^399^102^^^F"
^XMB(3.9,55,2,2959,0)="""IX"",399,399,""AUPDID"",11.1,3,0)"
^XMB(3.9,55,2,2960,0)="3^F^399^103^^^F"
^XMB(3.9,55,2,2961,0)="""IX"",399,399,""AUPDID"",11.1,4,0)"
^XMB(3.9,55,2,2962,0)="4^F^399^113^^^F"
^XMB(3.9,55,2,2963,0)="""IX"",399,399,""AUPDID"",11.1,5,0)"
^XMB(3.9,55,2,2964,0)="5^F^399^112^^^F"
^XMB(3.9,55,2,2965,0)="""IX"",399,399,""AUPDID"",11.1,5,3)"
^XMB(3.9,55,2,2966,0)=" "
^XMB(3.9,55,2,2967,0)="""IX"",399,399,""AUPDID"",11.1,6,0)"
^XMB(3.9,55,2,2968,0)="6^F^399^114^^^F"
^XMB(3.9,55,2,2969,0)="""IX"",399,399,""AUPDID"",11.1,6,3)"
^XMB(3.9,55,2,2970,0)=" "
^XMB(3.9,55,2,2971,0)="""KRN"",.402,1080,-1)"
^XMB(3.9,55,2,2972,0)="0^3"
^XMB(3.9,55,2,2973,0)="""KRN"",.402,1080,0)"
^XMB(3.9,55,2,2974,0)="IB SCREEN8H^3060222.1222^@^399^^@^3060515"
^XMB(3.9,55,2,2975,0)="""KRN"",.402,1080,""%D"",0)"
^XMB(3.9,55,2,2976,0)="^^1^1^3051227^"
^XMB(3.9,55,2,2977,0)="""KRN"",.402,1080,""%D"",1,0)"
^XMB(3.9,55,2,2978,0)="Billing screen 8 input template for form type HCFA-1500."
^XMB(3.9,55,2,2979,0)="""KRN"",.402,1080,""DIAB"",1,0,399,1)"
^XMB(3.9,55,2,2980,0)="TREATMENT AUTHORIZATION CODE;""PRIMARY AUTHORIZATION CODE"""
^XMB(3.9,55,2,2981,0)="""KRN"",.402,1080,""DIAB"",1,0,399,3)"
^XMB(3.9,55,2,2982,0)="NON-VA FACILITY:"
^XMB(3.9,55,2,2983,0)="""KRN"",.402,1080,""DIAB"",4,1,399.0222,5)"
^XMB(3.9,55,2,2984,0)="PRIM INS PROVIDER ID TYPE;T;REQ"
^XMB(3.9,55,2,2985,0)="""KRN"",.402,1080,""DIAB"",5,1,399.0222,5)"
^XMB(3.9,55,2,2986,0)="PRIMARY INS CO ID NUMBER;T"
^XMB(3.9,55,2,2987,0)="""KRN"",.402,1080,""DIAB"",8,0,399,0)"
^XMB(3.9,55,2,2988,0)="FORM LOCATOR 37A;T"
^XMB(3.9,55,2,2989,0)="""KRN"",.402,1080,""DIAB"",8,1,399.0222,5)"
^XMB(3.9,55,2,2990,0)="SEC INS PROVIDER ID TYPE;T;REQ"
^XMB(3.9,55,2,2991,0)="""KRN"",.402,1080,""DIAB"",9,1,399.0222,5)"
^XMB(3.9,55,2,2992,0)="SECONDARY INS CO ID NUMBER;T"
^XMB(3.9,55,2,2993,0)="""KRN"",.402,1080,""DIAB"",10,0,399,0)"
^XMB(3.9,55,2,2994,0)="FORM LOCATOR 37B;T"
^XMB(3.9,55,2,2995,0)="""KRN"",.402,1080,""DIAB"",10,0,399,4)"
^XMB(3.9,55,2,2996,0)="D ASK19^IBCEU3(DA);X"
^XMB(3.9,55,2,2997,0)="""KRN"",.402,1080,""DIAB"",12,1,399.0222,5)"
^XMB(3.9,55,2,2998,0)="TERT INS PROVIDER ID TYPE;T;REQ"
^XMB(3.9,55,2,2999,0)="""KRN"",.402,1080,""DIAB"",13,1,399.0222,5)"
^XMB(3.9,55,2,3000,0)="TERTIARY INS CO ID NUMBER;T"
^XMB(3.9,55,2,3001,0)="""KRN"",.402,1080,""DR"",1,399)"
^XMB(3.9,55,2,3002,0)="K DIPA S DIPA(""I1"")=$D(^DGCR(399,DA,""I1"")),DIPA(""I2"")=$D(^(""I2"")),DIPA(""I3"")=$D(^(""I3""));S:IBDR20'[""81"" Y=""@82"";166;167;@82;S:IBDR20'[""82"" Y=""@83"";215;453T~;S:'DIPA(""I2"") Y=""@825"";454T~;S:'DIPA(""I3"") Y=""@825"";455;@825;"
^XMB(3.9,55,2,3003,0)="""KRN"",.402,1080,""DR"",1,399,1)"
^XMB(3.9,55,2,3004,0)="163PRIMARY AUTHORIZATION CODE~;S:'DIPA(""I2"") Y=""@83"";230;S:'DIPA(""I3"") Y=""@83"";231;@83;S:IBDR20'[""83"" Y=""@84"";222;@84;S:IBDR20'[""84"" Y=""@85"";232;S DIPA(""NVA_FC"")=X S:X="""" Y=""@842"";"
^XMB(3.9,55,2,3005,0)="""KRN"",.402,1080,""DR"",1,399,2)"
^XMB(3.9,55,2,3006,0)="S DIPA(""NVA_FC-0"")=$G(^IBA(355.93,+DIPA(""NVA_FC""),0)) S:$P(DIPA(""NVA_FC-0""),U,5)'=""""&($P(DIPA(""NVA_FC-0""),U,6)'="""")&($P(DIPA(""NVA_FC-0""),U,7)'="""") Y=""@841"";"
^XMB(3.9,55,2,3007,0)="""KRN"",.402,1080,""DR"",1,399,3)"
^XMB(3.9,55,2,3008,0)="^355.93^IBA(355.93,^^S I(0,0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""U2"")):^(""U2""),1:"""") S X=$P(Y(1),U,10),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");@841;233;@842;S DIPA(""OLDCLIA"")=$P($G(^DGCR(399,DA,""U2"")),U,13);235;"
^XMB(3.9,55,2,3009,0)="""KRN"",.402,1080,""DR"",1,399,4)"
^XMB(3.9,55,2,3010,0)="I X="""",$G(DIPA(""OLDCLIA""))'="""" S IBMDOTCN=1;@843;I '$$XRAY^IBCEP8A(DA) S Y=""@844"";D MAMMODP^IBCEP8A(DA);242;@844;@85;S:IBDR20'[""85"" Y=""@86"";459;D ASK19^IBCEU3(DA);236;237;238//^S X=$S($$WNRBILL^IBEFUNC(DA):""31"",1:"""");@86;"
^XMB(3.9,55,2,3011,0)="""KRN"",.402,1080,""DR"",1,399,5)"
^XMB(3.9,55,2,3012,0)="S:IBDR20'[""86"" Y=""@99"";I $$NSAME^IBCSC8H(DA) S Y=""@861"";401;@861;I '$P($G(^DGCR(399,DA,""TX"")),U,8),'$$TXMT^IBCEF4(DA) S Y=""@862"";I $$REQMRA^IBEFUNC(DA) S Y=""@8611"";27//NO FORCED PRINT;S Y=""@862"";@8611;28//NO FORCED PRINT;@862;@99;"
^XMB(3.9,55,2,3013,0)="""KRN"",.402,1080,""DR"",2,355.93)"
^XMB(3.9,55,2,3014,0)=".05;.1;.06;.07;.08;"
^XMB(3.9,55,2,3015,0)="""KRN"",.402,1080,""DR"",2,399.0222)"
^XMB(3.9,55,2,3016,0)=".01;S DIPA(""RF"")=X S:$D(^XUSEC(""IB PROVIDER EDIT"",DUZ)) DLAYGO=355.93;.02;K DLAYGO S DIPA(""PRF"")=X S:X="""" Y=""@98"";"
^XMB(3.9,55,2,3017,0)="""KRN"",.402,1080,""DR"",2,399.0222,1)"
^XMB(3.9,55,2,3018,0)="N Z S Z=$$EXPAND^IBTRE(399.0222,.08,$P($G(^DGCR(399,DA(1),""PRV"",DA,0)),U,8)),DIPA(""SPC"")=$S(Z'="""":Z,1:""UNSPECIFIED"") W !,""    Prov Specialty On File: "",DIPA(""SPC"");S DIPA(""CRD"")=$$CRED^IBCEU($P(^DGCR(399,DA(1),""PRV"",DA,0),U,2));"
^XMB(3.9,55,2,3019,0)="""KRN"",.402,1080,""DR"",2,399.0222,2)"
^XMB(3.9,55,2,3020,0)=".03;K DIPA(""W1"") S:$G(DIPA(""CRD""))'=$P(^DGCR(399,DA(1),""PRV"",DA,0),U,3) DIPA(""W1"")=1;I $G(DIPA(""W1"")) D WRT1^IBCSC8H($G(DIPA(""CRD"")));K DIPA(""W1"");I '$G(DIPA(""I1"")) S Y=""@8305"";"
^XMB(3.9,55,2,3021,0)="""KRN"",.402,1080,""DR"",2,399.0222,3)"
^XMB(3.9,55,2,3022,0)="D PROVID^IBCEP2B(DA(1),DA,1,.DIPA) S Y=$S(DIPA(""EDIT"")<0:""@8382"",DIPA(""EDIT"")=1:""@8391"",DIPA(""EDIT"")=2:""@8371"",1:"""");@8382;I '$G(DIPA(""I2"")) S Y=""@8305"";"
^XMB(3.9,55,2,3023,0)="""KRN"",.402,1080,""DR"",2,399.0222,4)"
^XMB(3.9,55,2,3024,0)="D PROVID^IBCEP2B(DA(1),DA,2,.DIPA) S Y=$S(DIPA(""EDIT"")<0:""@8383"",DIPA(""EDIT"")=1:""@8392"",DIPA(""EDIT"")=2:""@8372"",1:"""");@8383;I '$G(DIPA(""I3"")) S Y=""@8305"";"
^XMB(3.9,55,2,3025,0)="""KRN"",.402,1080,""DR"",2,399.0222,5)"
^XMB(3.9,55,2,3026,0)="D PROVID^IBCEP2B(DA(1),DA,3,.DIPA) S Y=$S(DIPA(""EDIT"")<0:""@8305"",DIPA(""EDIT"")=1:""@8393"",DIPA(""EDIT"")=2:""@8373"",1:"""");S Y=""@8305"";@8391;.12R~T~;.05T~;S Y=""@8382"";@8392;.13R~T~;.06T~;S Y=""@8383"";@8393;.14R~T~;.07T~;S Y=""@8305"";@8371;"
^XMB(3.9,55,2,3027,0)="""KRN"",.402,1080,""DR"",2,399.0222,6)"
^XMB(3.9,55,2,3028,0)=".12////^S X=DIPA(""PRIDT"");.05////^S X=DIPA(""PRID"");S Y=""@8382"";@8372;.13////^S X=DIPA(""PRIDT"");.06////^S X=DIPA(""PRID"");S Y=""@8383"";@8373;.14////^S X=DIPA(""PRIDT"");.07////^S X=DIPA(""PRID"");S Y=""@8305"";@8305;@98;W @IOF;"
^XMB(3.9,55,2,3029,0)="""KRN"",.402,1080,""ROUOLD"")"
^XMB(3.9,55,2,3030,0)="IBXSC8H"
^XMB(3.9,55,2,3031,0)="""KRN"",.402,1276)"
^XMB(3.9,55,2,3032,0)=" "
^XMB(3.9,55,2,3033,0)="""KRN"",.402,1276,-1)"
^XMB(3.9,55,2,3034,0)="0^1"
^XMB(3.9,55,2,3035,0)="""KRN"",.402,1276,0)"
^XMB(3.9,55,2,3036,0)="IBEDIT INS CO1^3060505.0006^^36^^^3060512"
^XMB(3.9,55,2,3037,0)="""KRN"",.402,1276,""DIAB"",1,0,36,1)"
^XMB(3.9,55,2,3038,0)="TRANSMIT ELECTRONICALLY;""EDI - Transmit?"""
^XMB(3.9,55,2,3039,0)="""KRN"",.402,1276,""DIAB"",1,0,36,5)"
^XMB(3.9,55,2,3040,0)="SECONDARY ID REQUIREMENTS;""Require ID on Claim"""
^XMB(3.9,55,2,3041,0)="""KRN"",.402,1276,""DIAB"",1,0,36,6)"
^XMB(3.9,55,2,3042,0)="ATT/REND ID BILL SEC ID INST//NO;""Use Att/Rend ID as Billing Provider Sec. ID (UB92)?"""
^XMB(3.9,55,2,3043,0)="""KRN"",.402,1276,""DIAB"",1,1,36.03,0)"
^XMB(3.9,55,2,3044,0)="ALL"
^XMB(3.9,55,2,3045,0)="""KRN"",.402,1276,""DIAB"",3,0,36,4)"
^XMB(3.9,55,2,3046,0)="BIN NUMBER;""EDI - Bin Number"""
^XMB(3.9,55,2,3047,0)="""KRN"",.402,1276,""DIAB"",3,0,36,5)"
^XMB(3.9,55,2,3048,0)="REF PROV SEC ID DEF HCFA//UPIN;""Default ID (HCFA)"""
^XMB(3.9,55,2,3049,0)="""KRN"",.402,1276,""DIAB"",3,0,36,6)"
^XMB(3.9,55,2,3050,0)="SEND LAB OR FAC IDS FOR VAMC//YES;""Send VA Lab/Facility IDs or Facility Data for VAMC?"""
^XMB(3.9,55,2,3051,0)="""KRN"",.402,1276,""DIAB"",4,0,36,5)"
^XMB(3.9,55,2,3052,0)="REF PROV SEC ID REQ ON CLAIMS;""Require ID on Claim"""
^XMB(3.9,55,2,3053,0)="""KRN"",.402,1276,""DIAB"",4,0,36,9)"
^XMB(3.9,55,2,3054,0)="ANOTHER CO. PROCESS RX CLAIMS?;T"
^XMB(3.9,55,2,3055,0)="""KRN"",.402,1276,""DIAB"",5,0,36,4)"
^XMB(3.9,55,2,3056,0)="MAX NUMBER TEST BILLS PER DAY;""MAX # TEST BILLS TO TRANSMIT PER DAY"""
^XMB(3.9,55,2,3057,0)="""KRN"",.402,1276,""DIAB"",5,0,36,6)"
^XMB(3.9,55,2,3058,0)="REQUIRE SSN ID FOR HCFA PRINT;""Print on HCFA?"""
^XMB(3.9,55,2,3059,0)="""KRN"",.402,1276,""DIAB"",6,0,36,2)"
^XMB(3.9,55,2,3060,0)="EDI ID NUMBER - PROF;""EDI - Prof Payer ID"""
^XMB(3.9,55,2,3061,0)="""KRN"",.402,1276,""DIAB"",6,0,36,3)"
^XMB(3.9,55,2,3062,0)="ELECTRONIC INSURANCE TYPE;""EDI - Insurance Type"""
^XMB(3.9,55,2,3063,0)="""KRN"",.402,1276,""DIAB"",6,0,36,5)"
^XMB(3.9,55,2,3064,0)="ATT/REND ID BILL SEC ID PROF//NO;""Use Att/Rend ID as Billing Provider Sec. ID (HCFA)?"""
^XMB(3.9,55,2,3065,0)="""KRN"",.402,1276,""DIAB"",6,0,36,6)"
^XMB(3.9,55,2,3066,0)="REQUIRE SSN ID FOR UB92 PRINT;""Print on UB92?"""
^XMB(3.9,55,2,3067,0)="""KRN"",.402,1276,""DIAB"",7,0,36,12)"
^XMB(3.9,55,2,3068,0)="INS COMPANY LINK PARENT;T"
^XMB(3.9,55,2,3069,0)="""KRN"",.402,1276,""DIAB"",9,0,36,1)"
^XMB(3.9,55,2,3070,0)="EDI ID NUMBER - INST;""EDI - Inst Payer ID"""
^XMB(3.9,55,2,3071,0)="""KRN"",.402,1276,""DIAB"",9,0,36,4)"
^XMB(3.9,55,2,3072,0)="PERF PROV SECOND ID TYPE HCFA;""Default ID (HCFA)"""
^XMB(3.9,55,2,3073,0)="""KRN"",.402,1276,""DIAB"",10,0,36,4)"
^XMB(3.9,55,2,3074,0)="PERF PROV SECOND ID TYPE UB;""Default ID (UB92)"""
^XMB(3.9,55,2,3075,0)="""KRN"",.402,1276,""DIAB"",11,0,36,11)"
^XMB(3.9,55,2,3076,0)="INS COMPANY LINK TYPE;T"
^XMB(3.9,55,2,3077,0)="""KRN"",.402,1276,""DIAB"",15,0,36,8)"
^XMB(3.9,55,2,3078,0)="ANOTHER CO. PROCESS OP CLAIMS?;T"
^XMB(3.9,55,2,3079,0)="""KRN"",.402,1276,""DIAB"",18,0,36,0)"
^XMB(3.9,55,2,3080,0)="ANOTHER CO. PROCESS PRECERTS?;T"
^XMB(3.9,55,2,3081,0)="""KRN"",.402,1276,""DIAB"",18,0,36,7)"
^XMB(3.9,55,2,3082,0)="ANOTHER CO. PROCESS IP CLAIMS?;T"
^XMB(3.9,55,2,3083,0)="""KRN"",.402,1276,""DIAB"",19,0,36,10)"
^XMB(3.9,55,2,3084,0)="ANOTHER CO. PROCESS INQUIRIES?;T"
^XMB(3.9,55,2,3085,0)="""KRN"",.402,1276,""DIAB"",24,0,36,9)"
^XMB(3.9,55,2,3086,0)="ANOTHER CO. PROCESS APPEALS?;T"
^XMB(3.9,55,2,3087,0)="""KRN"",.402,1276,""DR"",1,36)"
^XMB(3.9,55,2,3088,0)="S:"",6,""'[IBY Y=""@0"";.01;@0;S:"",0,1,6,12,""'[IBY Y=""@10"";S:"",12,""[IBY Y=""@18"";2;1;.06;.07;.08;.09;.15;.12;.13;.14;.132;.134;.178T~;S:'X Y=""@11"";.139;S Y=""@16"";@11;.133;@16;I '$$KCHK^XUSRB(""IB EDI INSURANCE EDIT"") S Y=""@171"";"
^XMB(3.9,55,2,3089,0)="""KRN"",.402,1276,""DR"",1,36,1)"
^XMB(3.9,55,2,3090,0)="3.01EDI - Transmit?~;S DIPA(""IBTX"")=X;I X=$G(IBEDIKEY(1))!$$KCHK^XUSRB(""IB EDI INSURANCE EDIT"") S Y=""@1721"";3.01////^S X=$G(IBEDIKEY(1));I $$EDIKEY^IBCNSC();S Y=""@171"";@1721;I '$G(DIPA(""IBTX"")) S Y=""@17"";3.04EDI - Inst Payer ID~;"
^XMB(3.9,55,2,3091,0)="""KRN"",.402,1276,""DR"",1,36,2)"
^XMB(3.9,55,2,3092,0)="I X=$G(IBEDIKEY(4))!$$KCHK^XUSRB(""IB EDI INSURANCE EDIT"") S Y=""@1722"";3.04////^S X=$G(IBEDIKEY(4));I $$EDIKEY^IBCNSC();S Y=""@171"";@1722;3.02EDI - Prof Payer ID~;I X=$G(IBEDIKEY(2))!$$KCHK^XUSRB(""IB EDI INSURANCE EDIT"") S Y=""@1723"";"
^XMB(3.9,55,2,3093,0)="""KRN"",.402,1276,""DR"",1,36,3)"
^XMB(3.9,55,2,3094,0)="3.02////^S X=$G(IBEDIKEY(2));I $$EDIKEY^IBCNSC();S Y=""@171"";@1723;@17;3.09EDI - Insurance Type~;I X=$G(IBEDIKEY(9))!$$KCHK^XUSRB(""IB EDI INSURANCE EDIT"") S Y=""@1724"";3.09////^S X=$G(IBEDIKEY(9));I $$EDIKEY^IBCNSC();S Y=""@171"";"
^XMB(3.9,55,2,3095,0)="""KRN"",.402,1276,""DR"",1,36,4)"
^XMB(3.9,55,2,3096,0)="@1724;@171;3.03EDI - Bin Number~;I $G(DIPA(""IBTX""))'=2 S Y=""@18"";3.06MAX # TEST BILLS TO TRANSMIT PER DAY~;@18;S:"",6,12,""'[IBY Y=""@181"";W !!,""Attending/Rendering Provider Secondary ID"";4.01Default ID (HCFA)~;4.02Default ID (UB92)~;"
^XMB(3.9,55,2,3097,0)="""KRN"",.402,1276,""DR"",1,36,5)"
^XMB(3.9,55,2,3098,0)="4.03Require ID on Claim~;W !!,""Referring Provider Secondary ID"";4.04Default ID (HCFA)~//UPIN;4.05Require ID on Claim~;W !!,""Billing Provider Secondary IDs"";4.06Use Att/Rend ID as Billing Provider Sec. ID (HCFA)?~//NO;"
^XMB(3.9,55,2,3099,0)="""KRN"",.402,1276,""DR"",1,36,6)"
^XMB(3.9,55,2,3100,0)="4.08Use Att/Rend ID as Billing Provider Sec. ID (UB92)?~//NO;W !!,""VA-Laboratory or Facility IDs"";4.07Send VA Lab/Facility IDs or Facility Data for VAMC?~//YES;W !!,""Print SSN on claim"";3.11Print on HCFA?~;3.12Print on UB92?~;@181;"
^XMB(3.9,55,2,3101,0)="""KRN"",.402,1276,""DR"",1,36,7)"
^XMB(3.9,55,2,3102,0)="S:IBY[""1"" Y=""@99"";@10;S:"",0,2,6,""'[IBY Y=""@20"";.111;S:X="""" Y=""@1"";.112;S:X="""" Y=""@1"";.113;@1;.114;.115;.116;.131;.119;S:(IBY[""0"")!(IBY[""2"") Y=""@99"";@20;S:"",3,6,""'[IBY Y=""@30"";.128T~;S:'X Y=""@21"";.127;S Y=""@26"";@21;.121;"
^XMB(3.9,55,2,3103,0)="""KRN"",.402,1276,""DR"",1,36,8)"
^XMB(3.9,55,2,3104,0)="S:X="""" Y=""@2"";.122;S:X="""" Y=""@2"";.123;@2;.124;.125;.126;.135;.129;@26;S:IBY[""3"" Y=""@99"";@30;S:"",10,6,""'[IBY Y=""@80"";.168T~;S:'X Y=""@31"";.167;S Y=""@36"";@31;.161;S:X="""" Y=""@5"";.162;S:X="""" Y=""@5"";.163;@5;.164;.165;.166;.136;.169;@36;"
^XMB(3.9,55,2,3105,0)="""KRN"",.402,1276,""DR"",1,36,9)"
^XMB(3.9,55,2,3106,0)="S:IBY[""10"" Y=""@99"";@80;S:"",11,6,""'[IBY Y=""@90"";.188T~;S:'X Y=""@81"";.187;S Y=""@86"";@81;.181;S:X="""" Y=""@6"";.182;S:X="""" Y=""@6"";.183;@6;.184;.185;.186;.1311;.189;@86;S:IBY[""11"" Y=""@99"";@90;S:"",4,6,""'[IBY Y=""@40"";.148T~;S:'X Y=""@41"";"
^XMB(3.9,55,2,3107,0)="""KRN"",.402,1276,""DR"",1,36,10)"
^XMB(3.9,55,2,3108,0)=".147;S Y=""@46"";@41;.141;S:X="""" Y=""@3"";.142;S:X="""" Y=""@3"";.143;@3;.144;.145;.146;.137;.149;@46;S:IBY[""4"" Y=""@99"";@40;S:"",5,6,""'[IBY Y=""@55"";.158T~;S:'X Y=""@51"";.157;S Y=""@56"";@51;.151;S:X="""" Y=""@4"";.152;S:X="""" Y=""@4"";.153;@4;.154;"
^XMB(3.9,55,2,3109,0)="""KRN"",.402,1276,""DR"",1,36,11)"
^XMB(3.9,55,2,3110,0)=".155;.156;.138;.159;@56;S:IBY[""5"" Y=""@99"";@55;S:"",13,6,""'[IBY Y=""@60"";I '$$KCHK^XUSRB(""IB EDI INSURANCE EDIT"") S Y=""@551"";I $D(^DIC(36,""APC"",+$G(DA))),$P($G(^DIC(36,+$G(DA),3)),U,13)=""P"" S Y=""@551"";3.13T~;S DIPA(""IBLNK"")=X;"
^XMB(3.9,55,2,3111,0)="""KRN"",.402,1276,""DR"",1,36,12)"
^XMB(3.9,55,2,3112,0)="I X=$G(IBEDIKEY(13))!$$KCHK^XUSRB(""IB EDI INSURANCE EDIT"") S Y=""@552"";3.13////^S X=$G(IBEDIKEY(13));I $$EDIKEY^IBCNSC();S Y=""@551"";@552;I $G(DIPA(""IBLNK""))'=""C"" S Y=""@551"";3.14T~;"
^XMB(3.9,55,2,3113,0)="""KRN"",.402,1276,""DR"",1,36,13)"
^XMB(3.9,55,2,3114,0)="I X=$G(IBEDIKEY(14))!$$KCHK^XUSRB(""IB EDI INSURANCE EDIT"") S Y=""@553"";3.14////^S X=$G(IBEDIKEY(14));I $$EDIKEY^IBCNSC();S Y=""@551"";@553;D COPY^IBCEPCID(+$G(DA));@551;S:IBY="",13,"" Y=""@99"";@60;S:"",7,6,""'[IBY Y=""@50"";3.1;@50;"
^XMB(3.9,55,2,3115,0)="""KRN"",.402,1276,""DR"",1,36,14)"
^XMB(3.9,55,2,3116,0)="S:"",8,6,""'[IBY Y=""@70"";11;S:IBY[""8"" Y=""@99"";@70;S:"",9,6,""'[IBY Y=""@99"";10;@99;"
^XMB(3.9,55,2,3117,0)="""KRN"",.402,1276,""DR"",2,36.03)"
^XMB(3.9,55,2,3118,0)=".01"
^XMB(3.9,55,2,3119,0)="""KRN"",.402,1297,-1)"
^XMB(3.9,55,2,3120,0)="0^4"
^XMB(3.9,55,2,3121,0)="""KRN"",.402,1297,0)"
^XMB(3.9,55,2,3122,0)="IB SCREEN3^3060410.1453^@^399^^@^3060512"
^XMB(3.9,55,2,3123,0)="""KRN"",.402,1297,""AR"",399,85)"
^XMB(3.9,55,2,3124,0)="1^IBXSC39"
^XMB(3.9,55,2,3125,0)="""KRN"",.402,1297,""DIAB"",1,0,399,6)"
^XMB(3.9,55,2,3126,0)="PRIMARY PROVIDER #//VAR(""IBPSID"")"
^XMB(3.9,55,2,3127,0)="""KRN"",.402,1297,""DIAB"",1,0,399,7)"
^XMB(3.9,55,2,3128,0)="PRIMARY ID QUALIFIER;""Primary ID Qualifier"""
^XMB(3.9,55,2,3129,0)="""KRN"",.402,1297,""DIAB"",1,0,399,10)"
^XMB(3.9,55,2,3130,0)="SECONDARY PROVIDER #//VAR(""IBPSID"")"
^XMB(3.9,55,2,3131,0)="""KRN"",.402,1297,""DIAB"",1,0,399,11)"
^XMB(3.9,55,2,3132,0)="SECONDARY ID QUALIFIER;""Secondary ID Qualifier"""
^XMB(3.9,55,2,3133,0)="""KRN"",.402,1297,""DIAB"",3,0,399,14)"
^XMB(3.9,55,2,3134,0)="TERTIARY PROVIDER #//VAR(""IBPSID"")"
^XMB(3.9,55,2,3135,0)="""KRN"",.402,1297,""DIAB"",3,0,399,15)"
^XMB(3.9,55,2,3136,0)="TERTIARY ID QUALIFIER///VAR(""IBPSQUAL"")"
^XMB(3.9,55,2,3137,0)="""KRN"",.402,1297,""DIAB"",5,0,399,6)"
^XMB(3.9,55,2,3138,0)="PRIMARY ID QUALIFIER///VAR(""IBPSQUAL"")"
^XMB(3.9,55,2,3139,0)="""KRN"",.402,1297,""DIAB"",5,0,399,10)"
^XMB(3.9,55,2,3140,0)="SECONDARY ID QUALIFIER///VAR(""IBPSQUAL"")"
^XMB(3.9,55,2,3141,0)="""KRN"",.402,1297,""DIAB"",6,0,399,15)"
^XMB(3.9,55,2,3142,0)="TERTIARY ID QUALIFIER;""Tertiary ID Qualifier"""
^XMB(3.9,55,2,3143,0)="""KRN"",.402,1297,""DR"",1,399)"
^XMB(3.9,55,2,3144,0)="S:$G(IBCNRTN) Y=""@313"" K IBCNRTN;S:IBDR20'[""31"" Y=""@31"";.07;S:'+$P(^IBE(350.9,1,1),U,22) Y=""@314"";S DIPA(""FT1"")=$P($G(^DGCR(399,DA,0)),U,19);@5;.19;S DIPA(""FT"")=$P($G(^DGCR(399,DA,0)),U,19);"
^XMB(3.9,55,2,3145,0)="""KRN"",.402,1297,""DR"",1,399,1)"
^XMB(3.9,55,2,3146,0)="I $P($G(^IBE(353,+DIPA(""FT""),2)),U,2)=""P"",$P($G(^(2)),U,4) S DIPA(""FT1"")=DIPA(""FT"") D CKFT^IBCIUT1(IBIFN) S Y=""@10"";W !,*7,""Must be a printable national form type"";.19///^S X=$G(DIPA(""FT1""));S Y=""@5"";@10;D FTPRV^IBCEU5(DA);@314;"
^XMB(3.9,55,2,3147,0)="""KRN"",.402,1297,""DR"",1,399,2)"
^XMB(3.9,55,2,3148,0)="S X=$P(^DGCR(399,DA,0),U,11);S Y=""@""_$S(X']"""":31,X=""p"":31,X=""o"":311,1:310);@310;D 1^IBCSCH1 S Y=""@""_$S(IBADI=-1:31,'IBADI:312,1:33);@313;@312;112;I X'="""" S:$E(IBVV,9) IBVV=$E(IBVV,1,8)_""0"";S:X="""" Y=""@998"";113;S:X="""" Y=""@998"";114;"
^XMB(3.9,55,2,3149,0)="""KRN"",.402,1297,""DR"",1,399,3)"
^XMB(3.9,55,2,3150,0)="@998;S Y=""@31"";@311;D INST^IBCU;111;K DIC(""DR""),DLAYGO;@31;.21;S:IBDR20'[""32"" Y=""@33"";@3211;I '$$SUPPPT^IBCEP7B(DA,1) S Y=""@3212"";122///@;128///@;W !,""No Billing Prov Secondary IDs will be sent for Primary Ins/Elect Plan Type."";"
^XMB(3.9,55,2,3151,0)="""KRN"",.402,1297,""DR"",1,399,4)"
^XMB(3.9,55,2,3152,0)="S Y=""@3221"";@3212;I '$$ATTREND^IBCEP7B(DA,1) S Y=""@3213"";I $P($G(^DGCR(399,DA,""M1"")),U,2)]"""" S Y=""@3213"";W !,""The Att/Rend ID will be sent as the primary ins. Billing Prov Sec ID."";S Y=""@3221"";@3213;"
^XMB(3.9,55,2,3153,0)="""KRN"",.402,1297,""DR"",1,399,5)"
^XMB(3.9,55,2,3154,0)="S IBPSDAT=$$GETID^IBCEP7B(DA,1),IBPSID=$P(IBPSDAT,U),IBPSQUAL=$P(IBPSDAT,U,2) I IBPSID="""" S Y=""@321"";122///@;128///@;S DIE(""NO^"")=1;@321;S IBPSIDO=$P($G(^DGCR(399,DA,""M1"")),U,2),IBPSQO=$P($G(^DGCR(399,DA,""M1"")),U,10);Q;"
^XMB(3.9,55,2,3155,0)="""KRN"",.402,1297,""DR"",1,399,6)"
^XMB(3.9,55,2,3156,0)="122//^S X=""IBPSID"" Q:X  Q:$NA(@X)[U  S X=$G(@X);I $G(IBPSQO)]"""",X'=$G(IBPSID),X'=$G(IBPSIDO) S Y=""@3214"";I $G(IBPSQO)="""",$G(IBPSQUAL)="""",X]"""" S Y=""@3214"";Q;128///^S X=""IBPSQUAL"" Q:X  Q:$NA(@X)[U  S X=$G(@X);S Y=""@3215"";@3214;"
^XMB(3.9,55,2,3157,0)="""KRN"",.402,1297,""DR"",1,399,7)"
^XMB(3.9,55,2,3158,0)="128Primary ID Qualifier~;@3215;K DIE(""NO^"");@3221;I '$$SUPPPT^IBCEP7B(DA,2) S Y=""@3222"";123///@;129///@;W !,""No Billing Prov Secondary IDs will be sent for Secondary Ins/Elect Plan Type."";S Y=""@3231"";@3222;"
^XMB(3.9,55,2,3159,0)="""KRN"",.402,1297,""DR"",1,399,8)"
^XMB(3.9,55,2,3160,0)="I '$$ATTREND^IBCEP7B(DA,2) S Y=""@3223"";I $P($G(^DGCR(399,DA,""M1"")),U,3)]"""" S Y=""@3223"";W !,""The Att/Rend ID will be sent as the secondary ins. Billing Prov Sec ID."";S Y=""@3231"";@3223;"
^XMB(3.9,55,2,3161,0)="""KRN"",.402,1297,""DR"",1,399,9)"
^XMB(3.9,55,2,3162,0)="S IBPSDAT=$$GETID^IBCEP7B(DA,2),IBPSID=$P(IBPSDAT,U),IBPSQUAL=$P(IBPSDAT,U,2) I IBPSID="""" S Y=""@322"";123///@;129///@;S DIE(""NO^"")=1;@322;S IBPSIDO=$P($G(^DGCR(399,DA,""M1"")),U,3),IBPSQO=$P($G(^DGCR(399,DA,""M1"")),U,11);Q;"
^XMB(3.9,55,2,3163,0)="""KRN"",.402,1297,""DR"",1,399,10)"
^XMB(3.9,55,2,3164,0)="123//^S X=""IBPSID"" Q:X  Q:$NA(@X)[U  S X=$G(@X);I $G(IBPSQO)]"""",X'=$G(IBPSID),X'=$G(IBPSIDO) S Y=""@3224"";I $G(IBPSQO)="""",$G(IBPSQUAL)="""",X]"""" S Y=""@3224"";Q;129///^S X=""IBPSQUAL"" Q:X  Q:$NA(@X)[U  S X=$G(@X);S Y=""@3225"";@3224;"
^XMB(3.9,55,2,3165,0)="""KRN"",.402,1297,""DR"",1,399,11)"
^XMB(3.9,55,2,3166,0)="129Secondary ID Qualifier~;@3225;K DIE(""NO^"");@3231;I '$$SUPPPT^IBCEP7B(DA,3) S Y=""@3232"";124///@;130///@;W !,""No Billing Prov Secondary IDs will be sent for Tertiary Ins/Elect Plan Type."";"
^XMB(3.9,55,2,3167,0)="""KRN"",.402,1297,""DR"",1,399,12)"
^XMB(3.9,55,2,3168,0)="D:(IBDRLP'[33&(IBDRLP'[34)) PAUSE^VALM1 S Y=""@33"";@3232;I '$$ATTREND^IBCEP7B(DA,3) S Y=""@3233"";I $P($G(^DGCR(399,DA,""M1"")),U,4)]"""" S Y=""@3233"";W !,""The Att/Rend ID will be sent as the tertiary ins. Billing Prov Sec ID."";"
^XMB(3.9,55,2,3169,0)="""KRN"",.402,1297,""DR"",1,399,13)"
^XMB(3.9,55,2,3170,0)="D:(IBDRLP'[33&(IBDRLP'[34)) PAUSE^VALM1 S Y=""@33"";@3233;S IBPSDAT=$$GETID^IBCEP7B(DA,3),IBPSID=$P(IBPSDAT,U),IBPSQUAL=$P(IBPSDAT,U,2) I IBPSID="""" S Y=""@323"";124///@;130///@;S DIE(""NO^"")=1;@323;"
^XMB(3.9,55,2,3171,0)="""KRN"",.402,1297,""DR"",1,399,14)"
^XMB(3.9,55,2,3172,0)="S IBPSIDO=$P($G(^DGCR(399,DA,""M1"")),U,4),IBPSQO=$P($G(^DGCR(399,DA,""M1"")),U,12);Q;124//^S X=""IBPSID"" Q:X  Q:$NA(@X)[U  S X=$G(@X);I $G(IBPSQO)]"""",X'=$G(IBPSID),X'=$G(IBPSIDO) S Y=""@3234"";"
^XMB(3.9,55,2,3173,0)="""KRN"",.402,1297,""DR"",1,399,15)"
^XMB(3.9,55,2,3174,0)="I $G(IBPSQO)="""",$G(IBPSQUAL)="""",X]"""" S Y=""@3234"";Q;130///^S X=""IBPSQUAL"" Q:X  Q:$NA(@X)[U  S X=$G(@X);S Y=""@3235"";@3234;130Tertiary ID Qualifier~;@3235;K DIE(""NO^"");@33;S:IBDR20'[""33"" Y=""@34"";104;105;106;S:X="""" Y=107;121;107;108;"
^XMB(3.9,55,2,3175,0)="""KRN"",.402,1297,""DR"",1,399,16)"
^XMB(3.9,55,2,3176,0)="109;@34;@999;"
^XMB(3.9,55,2,3177,0)="""KRN"",.402,1297,""ROU"")"
^XMB(3.9,55,2,3178,0)="^IBXSC3"
^XMB(3.9,55,2,3179,0)="""KRN"",.402,1297,""ROUOLD"")"
^XMB(3.9,55,2,3180,0)="IBXSC3"
^XMB(3.9,55,2,3181,0)="""KRN"",.402,1316,-1)"
^XMB(3.9,55,2,3182,0)="0^2"
^XMB(3.9,55,2,3183,0)="""KRN"",.402,1316,0)"
^XMB(3.9,55,2,3184,0)="IB SCREEN82^3060104.1318^@^399^^@^3060530"
^XMB(3.9,55,2,3185,0)="""KRN"",.402,1316,""DIAB"",1,0,399,5)"
^XMB(3.9,55,2,3186,0)="NON-VA FACILITY:"
^XMB(3.9,55,2,3187,0)="""KRN"",.402,1316,""DIAB"",4,0,399,0)"
^XMB(3.9,55,2,3188,0)="FORM LOCATOR 37A;T"
^XMB(3.9,55,2,3189,0)="""KRN"",.402,1316,""DIAB"",4,1,399.0222,5)"
^XMB(3.9,55,2,3190,0)="PRIM INS PROVIDER ID TYPE;T;REQ"
^XMB(3.9,55,2,3191,0)="""KRN"",.402,1316,""DIAB"",5,1,399.0222,5)"
^XMB(3.9,55,2,3192,0)="PRIMARY INS CO ID NUMBER;T"
^XMB(3.9,55,2,3193,0)="""KRN"",.402,1316,""DIAB"",6,0,399,0)"
^XMB(3.9,55,2,3194,0)="FORM LOCATOR 37B;T"
^XMB(3.9,55,2,3195,0)="""KRN"",.402,1316,""DIAB"",8,0,399,0)"
^XMB(3.9,55,2,3196,0)="FORM LOCATOR 37C;T"
^XMB(3.9,55,2,3197,0)="""KRN"",.402,1316,""DIAB"",8,1,399.0222,5)"
^XMB(3.9,55,2,3198,0)="SEC INS PROVIDER ID TYPE;T;REQ"
^XMB(3.9,55,2,3199,0)="""KRN"",.402,1316,""DIAB"",9,1,399.0222,5)"
^XMB(3.9,55,2,3200,0)="SECONDARY INS CO ID NUMBER;T"
^XMB(3.9,55,2,3201,0)="""KRN"",.402,1316,""DIAB"",10,0,399,0)"
^XMB(3.9,55,2,3202,0)="TREATMENT AUTHORIZATION CODE;""PRIMARY AUTHORIZATION CODE"""
^XMB(3.9,55,2,3203,0)="""KRN"",.402,1316,""DIAB"",12,1,399.0222,5)"
^XMB(3.9,55,2,3204,0)="TERT INS PROVIDER ID TYPE;T;REQ"
^XMB(3.9,55,2,3205,0)="""KRN"",.402,1316,""DIAB"",13,1,399.0222,5)"
^XMB(3.9,55,2,3206,0)="TERTIARY INS CO ID NUMBER;T"
^XMB(3.9,55,2,3207,0)="""KRN"",.402,1316,""DR"",1,399)"
^XMB(3.9,55,2,3208,0)="K DIPA S DIPA(""I1"")=$D(^DGCR(399,DA,""I1"")),DIPA(""I2"")=$D(^(""I2"")),DIPA(""I3"")=$D(^(""I3""));S:IBDR20'[""81"" Y=""@82"";208;453T~;S:'DIPA(""I2"") Y=""@8111"";454T~;S:'DIPA(""I3"") Y=""@8111"";455T~;@8111;163PRIMARY AUTHORIZATION CODE~;"
^XMB(3.9,55,2,3209,0)="""KRN"",.402,1316,""DR"",1,399,1)"
^XMB(3.9,55,2,3210,0)="S:'DIPA(""I2"") Y=""@811"";230;S:'DIPA(""I3"") Y=""@811"";231;@811;215;159;@82;S:IBDR20'[""82"" Y=""@83"";222;@83;S:IBDR20'[""83"" Y=""@84"";450;451;@84;S:IBDR20'[""84"" Y=""@85"";452;@85;S:IBDR20'[""85"" Y=""@86"";456;458;@86;S:IBDR20'[""86"" Y=""@87"";"
^XMB(3.9,55,2,3211,0)="""KRN"",.402,1316,""DR"",1,399,2)"
^XMB(3.9,55,2,3212,0)="I '$P($G(^DGCR(399,DA,""TX"")),U,8),'$$TXMT^IBCEF4(DA) S Y=""@861"";I $$REQMRA^IBEFUNC(DA) S Y=""@8611"";27//NO FORCED PRINT;S Y=""@87"";@8611;28//NO FORCED PRINT;S Y=""@87"";@861;"
^XMB(3.9,55,2,3213,0)="""KRN"",.402,1316,""DR"",1,399,3)"
^XMB(3.9,55,2,3214,0)="N X,Y,DIR S DIR(0)=""EA"",DIR(""A"",1)=""NO FIELDS AVAILABLE TO EDIT"",DIR(""A"")=""PRESS RETURN TO CONTINUE: "" W ! D ^DIR K DIR;@87;S:IBDR20'[""87"" Y=""@88"";@88;S:IBDR20'[""88"" Y=""@89"";232;S DIPA(""NVA_FC"")=X S:DIPA(""NVA_FC"")="""" Y=""@882"";"
^XMB(3.9,55,2,3215,0)="""KRN"",.402,1316,""DR"",1,399,4)"
^XMB(3.9,55,2,3216,0)="S DIPA(""NVA_FC-0"")=$G(^IBA(355.93,+DIPA(""NVA_FC""),0)) S:$P(DIPA(""NVA_FC-0""),U,5)'=""""&($P(DIPA(""NVA_FC-0""),U,6)'="""")&($P(DIPA(""NVA_FC-0""),U,7)'="""") Y=""@881"";"
^XMB(3.9,55,2,3217,0)="""KRN"",.402,1316,""DR"",1,399,5)"
^XMB(3.9,55,2,3218,0)="^355.93^IBA(355.93,^^S I(0,0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""U2"")):^(""U2""),1:"""") S X=$P(Y(1),U,10),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");@881;233;@882;@89;"
^XMB(3.9,55,2,3219,0)="""KRN"",.402,1316,""DR"",2,355.93)"
^XMB(3.9,55,2,3220,0)=".05;.1;.06;.07;.08;"
^XMB(3.9,55,2,3221,0)="""KRN"",.402,1316,""DR"",2,399.0222)"
^XMB(3.9,55,2,3222,0)=".01;S DIPA(""RF"")=X S:$D(^XUSEC(""IB PROVIDER EDIT"",DUZ)) DLAYGO=355.93;.02;K DLAYGO S DIPA(""PRF"")=X S:DIPA(""PRF"")="""" Y=""@98"";"
^XMB(3.9,55,2,3223,0)="""KRN"",.402,1316,""DR"",2,399.0222,1)"
^XMB(3.9,55,2,3224,0)="N Z S Z=$$EXPAND^IBTRE(399.0222,.08,$P($G(^DGCR(399,DA(1),""PRV"",DA,0)),U,8)),DIPA(""SPC"")=$S(Z'="""":Z,1:""UNSPECIFIED"") W !,""    Prov Specialty On File: "",DIPA(""SPC"");"
^XMB(3.9,55,2,3225,0)="""KRN"",.402,1316,""DR"",2,399.0222,2)"
^XMB(3.9,55,2,3226,0)="S DIPA(""CRD"")=$$CRED^IBCEU($P($G(^DGCR(399,DA(1),""PRV"",DA,0)),U,2));.03;K DIPA(""W1"") S:$G(DIPA(""CRD""))'=$P($G(^DGCR(399,DA(1),""PRV"",DA,0)),U,3) DIPA(""W1"")=1;I $G(DIPA(""W1"")) D WRT1^IBCSC8H($G(DIPA(""CRD"")));K DIPA(""W1"");"
^XMB(3.9,55,2,3227,0)="""KRN"",.402,1316,""DR"",2,399.0222,3)"
^XMB(3.9,55,2,3228,0)="I '$G(DIPA(""I1"")) S Y=""@8205"";D PROVID^IBCEP2B(DA(1),DA,1,.DIPA) S Y=$S(DIPA(""EDIT"")<0:""@8282"",DIPA(""EDIT"")=1:""@8291"",DIPA(""EDIT"")=2:""@8271"",1:"""");@8282;I '$G(DIPA(""I2"")) S Y=""@8205"";"
^XMB(3.9,55,2,3229,0)="""KRN"",.402,1316,""DR"",2,399.0222,4)"
^XMB(3.9,55,2,3230,0)="D PROVID^IBCEP2B(DA(1),DA,2,.DIPA) S Y=$S(DIPA(""EDIT"")<0:""@8283"",DIPA(""EDIT"")=1:""@8292"",DIPA(""EDIT"")=2:""@8272"",1:"""");@8283;I '$G(DIPA(""I3"")) S Y=""@8205"";"
^XMB(3.9,55,2,3231,0)="""KRN"",.402,1316,""DR"",2,399.0222,5)"
^XMB(3.9,55,2,3232,0)="D PROVID^IBCEP2B(DA(1),DA,3,.DIPA) S Y=$S(DIPA(""EDIT"")<0:""@8205"",DIPA(""EDIT"")=1:""@8293"",DIPA(""EDIT"")=2:""@8273"",1:"""");S Y=""@8205"";@8291;.12R~T~;.05T~;S Y=""@8282"";@8292;.13R~T~;.06T~;S Y=""@8283"";@8293;.14R~T~;.07T~;S Y=""@8205"";@8271;"
^XMB(3.9,55,2,3233,0)="""KRN"",.402,1316,""DR"",2,399.0222,6)"
^XMB(3.9,55,2,3234,0)=".12////^S X=DIPA(""PRIDT"");.05////^S X=DIPA(""PRID"");S Y=""@8282"";@8272;.13////^S X=DIPA(""PRIDT"");.06////^S X=DIPA(""PRID"");S Y=""@8283"";@8273;.14////^S X=DIPA(""PRIDT"");.07////^S X=DIPA(""PRID"");S Y=""@8205"";@8205;@98;W @IOF;"
^XMB(3.9,55,2,3235,0)="""KRN"",.402,1316,""ROU"")"
^XMB(3.9,55,2,3236,0)="^IBXSC82"
^XMB(3.9,55,2,3237,0)="""KRN"",.402,1316,""ROUOLD"")"
^XMB(3.9,55,2,3238,0)="IBXSC82"
^XMB(3.9,55,2,3239,0)="""KRN"",19,6409,-1)"
^XMB(3.9,55,2,3240,0)="2^3"
^XMB(3.9,55,2,3241,0)="""KRN"",19,6409,0)"
^XMB(3.9,55,2,3242,0)="IBCE 837 EDI MENU^EDI Menu For Electronic Bills^^M^101001^^^^^^^200"
^XMB(3.9,55,2,3243,0)="""KRN"",19,6409,10,0)"
^XMB(3.9,55,2,3244,0)="^19.01IP^19^19"
^XMB(3.9,55,2,3245,0)="""KRN"",19,6409,10,6,0)"
^XMB(3.9,55,2,3246,0)="6412^MM^10"
^XMB(3.9,55,2,3247,0)="""KRN"",19,6409,10,6,""^"")"
^XMB(3.9,55,2,3248,0)="IBCE 837 EDI REPORTS"
^XMB(3.9,55,2,3249,0)="""KRN"",19,6409,10,19,0)"
^XMB(3.9,55,2,3250,0)="12302^RCB^40"
^XMB(3.9,55,2,3251,0)="""KRN"",19,6409,10,19,""^"")"
^XMB(3.9,55,2,3252,0)="IBCE PREV TRANSMITTED CLAIMS"
^XMB(3.9,55,2,3253,0)="""KRN"",19,6409,""U"")"
^XMB(3.9,55,2,3254,0)="EDI MENU FOR ELECTRONIC BILLS"
^XMB(3.9,55,2,3255,0)="""KRN"",19,6412,-1)"
^XMB(3.9,55,2,3256,0)="2^1"
^XMB(3.9,55,2,3257,0)="""KRN"",19,6412,0)"
^XMB(3.9,55,2,3258,0)="IBCE 837 EDI REPORTS^EDI Return Message Management^^M^539^^^^^^^200"
^XMB(3.9,55,2,3259,0)="""KRN"",19,6412,10,0)"
^XMB(3.9,55,2,3260,0)="^19.01IP^15^15"
^XMB(3.9,55,2,3261,0)="""KRN"",19,6412,10,15,0)"
^XMB(3.9,55,2,3262,0)="12483^MCS"
^XMB(3.9,55,2,3263,0)="""KRN"",19,6412,10,15,""^"")"
^XMB(3.9,55,2,3264,0)="IBCEMC MULT CSA MSG MANAGEMENT"
^XMB(3.9,55,2,3265,0)="""KRN"",19,6412,""U"")"
^XMB(3.9,55,2,3266,0)="EDI RETURN MESSAGE MANAGEMENT"
^XMB(3.9,55,2,3267,0)="""KRN"",19,12302,-1)"
^XMB(3.9,55,2,3268,0)="0^4"
^XMB(3.9,55,2,3269,0)="""KRN"",19,12302,0)"
^XMB(3.9,55,2,3270,0)="IBCE PREV TRANSMITTED CLAIMS^View/Resubmit Claims - Live or Test^^R^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3271,0)="""KRN"",19,12302,1,0)"
^XMB(3.9,55,2,3272,0)="^19.06^3^3^3051129^^"
^XMB(3.9,55,2,3273,0)="""KRN"",19,12302,1,1,0)"
^XMB(3.9,55,2,3274,0)="This option allows a user to view or produce a report of claims that"
^XMB(3.9,55,2,3275,0)="""KRN"",19,12302,1,2,0)"
^XMB(3.9,55,2,3276,0)="were previously transmitted as live claims or that were transmitted as"
^XMB(3.9,55,2,3277,0)="""KRN"",19,12302,1,3,0)"
^XMB(3.9,55,2,3278,0)="test claims prior to turning EDI on for an insurance company."
^XMB(3.9,55,2,3279,0)="""KRN"",19,12302,25)"
^XMB(3.9,55,2,3280,0)="EN^IBCEPTC"
^XMB(3.9,55,2,3281,0)="""KRN"",19,12302,""U"")"
^XMB(3.9,55,2,3282,0)="VIEW/RESUBMIT CLAIMS - LIVE OR"
^XMB(3.9,55,2,3283,0)="""KRN"",19,12483,-1)"
^XMB(3.9,55,2,3284,0)="0^2"
^XMB(3.9,55,2,3285,0)="""KRN"",19,12483,0)"
^XMB(3.9,55,2,3286,0)="IBCEMC MULT CSA MSG MANAGEMENT^Multiple CSA Message Management^^R^^IB MESSAGE MANAGEMENT^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3287,0)="""KRN"",19,12483,1,0)"
^XMB(3.9,55,2,3288,0)="^^3^3^3051003^"
^XMB(3.9,55,2,3289,0)="""KRN"",19,12483,1,1,0)"
^XMB(3.9,55,2,3290,0)="This option allows users to see rejected claims status messages which are "
^XMB(3.9,55,2,3291,0)="""KRN"",19,12483,1,2,0)"
^XMB(3.9,55,2,3292,0)="not reviewed.  The users are able to take the same action on multiple "
^XMB(3.9,55,2,3293,0)="""KRN"",19,12483,1,3,0)"
^XMB(3.9,55,2,3294,0)="messages at the same time."
^XMB(3.9,55,2,3295,0)="""KRN"",19,12483,25)"
^XMB(3.9,55,2,3296,0)="EN^IBCEMCL"
^XMB(3.9,55,2,3297,0)="""KRN"",19,12483,""U"")"
^XMB(3.9,55,2,3298,0)="MULTIPLE CSA MESSAGE MANAGEMEN"
^XMB(3.9,55,2,3299,0)="""KRN"",19,12545,-1)"
^XMB(3.9,55,2,3300,0)="0^7"
^XMB(3.9,55,2,3301,0)="""KRN"",19,12545,0)"
^XMB(3.9,55,2,3302,0)="IBCN RESYNCH INS COMP^Re-synch Associated Insurance Companies^^R^^^^^^^^"
^XMB(3.9,55,2,3303,0)="""KRN"",19,12545,1,0)"
^XMB(3.9,55,2,3304,0)="^^8^8^3060426^"
^XMB(3.9,55,2,3305,0)="""KRN"",19,12545,1,1,0)"
^XMB(3.9,55,2,3306,0)="On the rare occasion that the associated insurance company provider "
^XMB(3.9,55,2,3307,0)="""KRN"",19,12545,1,2,0)"
^XMB(3.9,55,2,3308,0)="IDs get out of synch, this option is to be used by EVS or the IRM to get"
^XMB(3.9,55,2,3309,0)="""KRN"",19,12545,1,3,0)"
^XMB(3.9,55,2,3310,0)="the parent and child insurance companies to be the same.  This option"
^XMB(3.9,55,2,3311,0)="""KRN"",19,12545,1,4,0)"
^XMB(3.9,55,2,3312,0)="should not be linked to any menu."
^XMB(3.9,55,2,3313,0)="""KRN"",19,12545,1,5,0)"
^XMB(3.9,55,2,3314,0)=" "
^XMB(3.9,55,2,3315,0)="""KRN"",19,12545,1,6,0)"
^XMB(3.9,55,2,3316,0)="This runs for all insurance companies and locks the insurance company "
^XMB(3.9,55,2,3317,0)="""KRN"",19,12545,1,7,0)"
^XMB(3.9,55,2,3318,0)="file before starting so no one can be editing an insurance company while"
^XMB(3.9,55,2,3319,0)="""KRN"",19,12545,1,8,0)"
^XMB(3.9,55,2,3320,0)="it is running."
^XMB(3.9,55,2,3321,0)="""KRN"",19,12545,25)"
^XMB(3.9,55,2,3322,0)="RESYNCH^IBCEPCID()"
^XMB(3.9,55,2,3323,0)="""KRN"",19,12545,""U"")"
^XMB(3.9,55,2,3324,0)="RE-SYNCH ASSOCIATED INSURANCE "
^XMB(3.9,55,2,3325,0)="""KRN"",19,12581,-1)"
^XMB(3.9,55,2,3326,0)="1^5"
^XMB(3.9,55,2,3327,0)="""KRN"",19,12581,0)"
^XMB(3.9,55,2,3328,0)="IBCE RESUBMIT BILL BATCH"
^XMB(3.9,55,2,3329,0)="""KRN"",19,12582,-1)"
^XMB(3.9,55,2,3330,0)="1^6"
^XMB(3.9,55,2,3331,0)="""KRN"",19,12582,0)"
^XMB(3.9,55,2,3332,0)="IBCE RESUBMIT BILL"
^XMB(3.9,55,2,3333,0)="""KRN"",19.1,462,-1)"
^XMB(3.9,55,2,3334,0)="0^1"
^XMB(3.9,55,2,3335,0)="""KRN"",19.1,462,0)"
^XMB(3.9,55,2,3336,0)="IB MESSAGE MANAGEMENT"
^XMB(3.9,55,2,3337,0)="""KRN"",19.1,462,1,0)"
^XMB(3.9,55,2,3338,0)="^^3^3^3050920^"
^XMB(3.9,55,2,3339,0)="""KRN"",19.1,462,1,1,0)"
^XMB(3.9,55,2,3340,0)="This security key enables access to the MCS option - Multiple CSA Message"
^XMB(3.9,55,2,3341,0)="""KRN"",19.1,462,1,2,0)"
^XMB(3.9,55,2,3342,0)="Management.  This option enables the user to take action on multiple CSA "
^XMB(3.9,55,2,3343,0)="""KRN"",19.1,462,1,3,0)"
^XMB(3.9,55,2,3344,0)="status messages at the same time."
^XMB(3.9,55,2,3345,0)="""KRN"",19.1,469,-1)"
^XMB(3.9,55,2,3346,0)="0^2"
^XMB(3.9,55,2,3347,0)="""KRN"",19.1,469,0)"
^XMB(3.9,55,2,3348,0)="IB EDI INSURANCE EDIT"
^XMB(3.9,55,2,3349,0)="""KRN"",19.1,469,1,0)"
^XMB(3.9,55,2,3350,0)="^^2^2^3060203^"
^XMB(3.9,55,2,3351,0)="""KRN"",19.1,469,1,1,0)"
^XMB(3.9,55,2,3352,0)="This key will allow users to edit the EDI billing parameters within"
^XMB(3.9,55,2,3353,0)="""KRN"",19.1,469,1,2,0)"
^XMB(3.9,55,2,3354,0)="the insurance company entry/edit option."
^XMB(3.9,55,2,3355,0)="""KRN"",101,899,-1)"
^XMB(3.9,55,2,3356,0)="0^22"
^XMB(3.9,55,2,3357,0)="""KRN"",101,899,0)"
^XMB(3.9,55,2,3358,0)="IBCNSC INS CO REMARKS^Remarks^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3359,0)="""KRN"",101,899,4)"
^XMB(3.9,55,2,3360,0)="^^^RE"
^XMB(3.9,55,2,3361,0)="""KRN"",101,899,15)"
^XMB(3.9,55,2,3362,0)="S VALMBG=$G(IB1ST(""REM"")) S:'VALMBG VALMBG=1"
^XMB(3.9,55,2,3363,0)="""KRN"",101,899,20)"
^XMB(3.9,55,2,3364,0)="S IBY="",8,"" D EA^IBCNSC1"
^XMB(3.9,55,2,3365,0)="""KRN"",101,899,99)"
^XMB(3.9,55,2,3366,0)="59435,30008"
^XMB(3.9,55,2,3367,0)="""KRN"",101,900,-1)"
^XMB(3.9,55,2,3368,0)="0^23"
^XMB(3.9,55,2,3369,0)="""KRN"",101,900,0)"
^XMB(3.9,55,2,3370,0)="IBCNSC INS CO SYNONYMS^Synonyms^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3371,0)="""KRN"",101,900,4)"
^XMB(3.9,55,2,3372,0)="^^^ES"
^XMB(3.9,55,2,3373,0)="""KRN"",101,900,10,0)"
^XMB(3.9,55,2,3374,0)="^101.01PA^0^0"
^XMB(3.9,55,2,3375,0)="""KRN"",101,900,15)"
^XMB(3.9,55,2,3376,0)="S VALMBG=$G(IB1ST(""SYN"")) S:'VALMBG VALMBG=1"
^XMB(3.9,55,2,3377,0)="""KRN"",101,900,20)"
^XMB(3.9,55,2,3378,0)="S IBY="",9,"" D EA^IBCNSC1"
^XMB(3.9,55,2,3379,0)="""KRN"",101,900,99)"
^XMB(3.9,55,2,3380,0)="59435,30008"
^XMB(3.9,55,2,3381,0)="""KRN"",101,923,-1)"
^XMB(3.9,55,2,3382,0)="2^24"
^XMB(3.9,55,2,3383,0)="""KRN"",101,923,0)"
^XMB(3.9,55,2,3384,0)="IBCNSC INSURANCE CO^Insurance Company Edit^^M^101001^^^^^^^200"
^XMB(3.9,55,2,3385,0)="""KRN"",101,923,10,0)"
^XMB(3.9,55,2,3386,0)="^101.01PA^35^35"
^XMB(3.9,55,2,3387,0)="""KRN"",101,923,10,24,0)"
^XMB(3.9,55,2,3388,0)="899^RE^24^"
^XMB(3.9,55,2,3389,0)="""KRN"",101,923,10,24,""^"")"
^XMB(3.9,55,2,3390,0)="IBCNSC INS CO REMARKS"
^XMB(3.9,55,2,3391,0)="""KRN"",101,923,10,25,0)"
^XMB(3.9,55,2,3392,0)="900^SY^25^"
^XMB(3.9,55,2,3393,0)="""KRN"",101,923,10,25,""^"")"
^XMB(3.9,55,2,3394,0)="IBCNSC INS CO SYNONYMS"
^XMB(3.9,55,2,3395,0)="""KRN"",101,923,10,33,0)"
^XMB(3.9,55,2,3396,0)="3287^ID^23^"
^XMB(3.9,55,2,3397,0)="""KRN"",101,923,10,33,""^"")"
^XMB(3.9,55,2,3398,0)="IBCNSC PROVIDER ID PARAMETERS"
^XMB(3.9,55,2,3399,0)="""KRN"",101,923,10,34,0)"
^XMB(3.9,55,2,3400,0)="3865^PA^23^"
^XMB(3.9,55,2,3401,0)="""KRN"",101,923,10,34,""^"")"
^XMB(3.9,55,2,3402,0)="IBCNSC INS CO PAYER"
^XMB(3.9,55,2,3403,0)="""KRN"",101,923,10,35,0)"
^XMB(3.9,55,2,3404,0)="4288^AC^22^"
^XMB(3.9,55,2,3405,0)="""KRN"",101,923,10,35,""^"")"
^XMB(3.9,55,2,3406,0)="IBCNSC INS CO ASSOCIATION"
^XMB(3.9,55,2,3407,0)="""KRN"",101,1734,-1)"
^XMB(3.9,55,2,3408,0)="0^19"
^XMB(3.9,55,2,3409,0)="""KRN"",101,1734,0)"
^XMB(3.9,55,2,3410,0)="IBCE EXIT^Exit^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3411,0)="""KRN"",101,1734,1,0)"
^XMB(3.9,55,2,3412,0)="^101.06^2^2^3060105^^"
^XMB(3.9,55,2,3413,0)="""KRN"",101,1734,1,1,0)"
^XMB(3.9,55,2,3414,0)="Allows the user to exit the system without quitting through the hierarchy"
^XMB(3.9,55,2,3415,0)="""KRN"",101,1734,1,2,0)"
^XMB(3.9,55,2,3416,0)="of screens, or the user can exit to the previous screen."
^XMB(3.9,55,2,3417,0)="""KRN"",101,1734,2,0)"
^XMB(3.9,55,2,3418,0)="^101.02A^1^1"
^XMB(3.9,55,2,3419,0)="""KRN"",101,1734,2,1,0)"
^XMB(3.9,55,2,3420,0)="EX"
^XMB(3.9,55,2,3421,0)="""KRN"",101,1734,2,""B"",""EX"",1)"
^XMB(3.9,55,2,3422,0)=""
^XMB(3.9,55,2,3423,0)="""KRN"",101,1734,4)"
^XMB(3.9,55,2,3424,0)="^^^EX"
^XMB(3.9,55,2,3425,0)="""KRN"",101,1734,20)"
^XMB(3.9,55,2,3426,0)="D FASTEXIT^IBCEFG4"
^XMB(3.9,55,2,3427,0)="""KRN"",101,1734,28)"
^XMB(3.9,55,2,3428,0)=""
^XMB(3.9,55,2,3429,0)="""KRN"",101,1734,99)"
^XMB(3.9,55,2,3430,0)="59842,44682"
^XMB(3.9,55,2,3431,0)="""KRN"",101,3018,-1)"
^XMB(3.9,55,2,3432,0)="2^2"
^XMB(3.9,55,2,3433,0)="""KRN"",101,3018,0)"
^XMB(3.9,55,2,3434,0)="IBCEM CLAIMS STATUS AWAITING^^^M^101001^^^^^^^"
^XMB(3.9,55,2,3435,0)="""KRN"",101,3018,10,0)"
^XMB(3.9,55,2,3436,0)="^101.01PA^8^8"
^XMB(3.9,55,2,3437,0)="""KRN"",101,3018,10,7,0)"
^XMB(3.9,55,2,3438,0)="4247^^70^"
^XMB(3.9,55,2,3439,0)="""KRN"",101,3018,10,7,""^"")"
^XMB(3.9,55,2,3440,0)="IBCEM CSA RE-SORT MESSAGES"
^XMB(3.9,55,2,3441,0)="""KRN"",101,3018,10,8,0)"
^XMB(3.9,55,2,3442,0)="4264^^85^"
^XMB(3.9,55,2,3443,0)="""KRN"",101,3018,10,8,""^"")"
^XMB(3.9,55,2,3444,0)="IBCEM CSA MSG MAN"
^XMB(3.9,55,2,3445,0)="""KRN"",101,3280,-1)"
^XMB(3.9,55,2,3446,0)="0^43"
^XMB(3.9,55,2,3447,0)="""KRN"",101,3280,0)"
^XMB(3.9,55,2,3448,0)="IBCE PRVNUM EDIT^Edit an ID^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3449,0)="""KRN"",101,3280,20)"
^XMB(3.9,55,2,3450,0)="D CHG1^IBCEP5A"
^XMB(3.9,55,2,3451,0)="""KRN"",101,3280,99)"
^XMB(3.9,55,2,3452,0)="60239,52388"
^XMB(3.9,55,2,3453,0)="""KRN"",101,3281,-1)"
^XMB(3.9,55,2,3454,0)="0^40"
^XMB(3.9,55,2,3455,0)="""KRN"",101,3281,0)"
^XMB(3.9,55,2,3456,0)="IBCE PRVNUM ADD^Add an ID^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3457,0)="""KRN"",101,3281,20)"
^XMB(3.9,55,2,3458,0)="D NEW^IBCEP5A($G(IBPRV),$G(IBINS))"
^XMB(3.9,55,2,3459,0)="""KRN"",101,3281,99)"
^XMB(3.9,55,2,3460,0)="60239,52407"
^XMB(3.9,55,2,3461,0)="""KRN"",101,3282,-1)"
^XMB(3.9,55,2,3462,0)="0^41"
^XMB(3.9,55,2,3463,0)="""KRN"",101,3282,0)"
^XMB(3.9,55,2,3464,0)="IBCE PRVNUM DELETE^Delete an ID^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3465,0)="""KRN"",101,3282,20)"
^XMB(3.9,55,2,3466,0)="D DEL1^IBCEP5A"
^XMB(3.9,55,2,3467,0)="""KRN"",101,3282,99)"
^XMB(3.9,55,2,3468,0)="60239,52432"
^XMB(3.9,55,2,3469,0)="""KRN"",101,3287,-1)"
^XMB(3.9,55,2,3470,0)="0^25"
^XMB(3.9,55,2,3471,0)="""KRN"",101,3287,0)"
^XMB(3.9,55,2,3472,0)="IBCNSC PROVIDER ID PARAMETERS^Prov IDs/ID Param^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3473,0)="""KRN"",101,3287,4)"
^XMB(3.9,55,2,3474,0)="^^^ID"
^XMB(3.9,55,2,3475,0)="""KRN"",101,3287,15)"
^XMB(3.9,55,2,3476,0)="S VALMBG=$G(IB1ST(""PROVID"")) S:'VALMBG VALMBG=1"
^XMB(3.9,55,2,3477,0)="""KRN"",101,3287,20)"
^XMB(3.9,55,2,3478,0)="S IBY="",12,"" D EA^IBCNSC1"
^XMB(3.9,55,2,3479,0)="""KRN"",101,3287,99)"
^XMB(3.9,55,2,3480,0)="60220,1594"
^XMB(3.9,55,2,3481,0)="""KRN"",101,3288,-1)"
^XMB(3.9,55,2,3482,0)="3^47"
^XMB(3.9,55,2,3483,0)="""KRN"",101,3288,0)"
^XMB(3.9,55,2,3484,0)="IBCE PRVINS ID^Insurance Co Prov ID Maintenance^^M^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3485,0)="""KRN"",101,3288,4)"
^XMB(3.9,55,2,3486,0)="26"
^XMB(3.9,55,2,3487,0)="""KRN"",101,3288,10,0)"
^XMB(3.9,55,2,3488,0)="^101.01PA^12^12"
^XMB(3.9,55,2,3489,0)="""KRN"",101,3288,10,4,0)"
^XMB(3.9,55,2,3490,0)="1734^^100^"
^XMB(3.9,55,2,3491,0)="""KRN"",101,3288,10,4,""^"")"
^XMB(3.9,55,2,3492,0)="IBCE EXIT"
^XMB(3.9,55,2,3493,0)="""KRN"",101,3288,10,11,0)"
^XMB(3.9,55,2,3494,0)="3299^^60^"
^XMB(3.9,55,2,3495,0)="""KRN"",101,3288,10,11,""^"")"
^XMB(3.9,55,2,3496,0)="IBCE PRVINS DISPLAY PARAMS"
^XMB(3.9,55,2,3497,0)="""KRN"",101,3288,15)"
^XMB(3.9,55,2,3498,0)="I $G(IBFASTXT) S VALMBCK=""Q"""
^XMB(3.9,55,2,3499,0)="""KRN"",101,3288,24)"
^XMB(3.9,55,2,3500,0)="I $$SCREEN^IBCEP0(""ID"")"
^XMB(3.9,55,2,3501,0)="""KRN"",101,3288,26)"
^XMB(3.9,55,2,3502,0)="D SHOW^VALM"
^XMB(3.9,55,2,3503,0)="""KRN"",101,3288,28)"
^XMB(3.9,55,2,3504,0)="Select Action: "
^XMB(3.9,55,2,3505,0)="""KRN"",101,3288,99)"
^XMB(3.9,55,2,3506,0)="60339,86217"
^XMB(3.9,55,2,3507,0)="""KRN"",101,3292,-1)"
^XMB(3.9,55,2,3508,0)="0^55"
^XMB(3.9,55,2,3509,0)="""KRN"",101,3292,0)"
^XMB(3.9,55,2,3510,0)="IBCE PRVFAC MAINT^Facility Provider ID Defaults^^M^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3511,0)="""KRN"",101,3292,4)"
^XMB(3.9,55,2,3512,0)="26"
^XMB(3.9,55,2,3513,0)="""KRN"",101,3292,10,0)"
^XMB(3.9,55,2,3514,0)="^101.01PA^10^10"
^XMB(3.9,55,2,3515,0)="""KRN"",101,3292,10,4,0)"
^XMB(3.9,55,2,3516,0)="1734^^100^"
^XMB(3.9,55,2,3517,0)="""KRN"",101,3292,10,4,""^"")"
^XMB(3.9,55,2,3518,0)="IBCE EXIT"
^XMB(3.9,55,2,3519,0)="""KRN"",101,3292,10,5,0)"
^XMB(3.9,55,2,3520,0)="3293^^10^"
^XMB(3.9,55,2,3521,0)="""KRN"",101,3292,10,5,""^"")"
^XMB(3.9,55,2,3522,0)="IBCE PRVFAC EDIT"
^XMB(3.9,55,2,3523,0)="""KRN"",101,3292,10,6,0)"
^XMB(3.9,55,2,3524,0)="4297^^5^"
^XMB(3.9,55,2,3525,0)="""KRN"",101,3292,10,6,""^"")"
^XMB(3.9,55,2,3526,0)="IBCE PRVFAC ADD"
^XMB(3.9,55,2,3527,0)="""KRN"",101,3292,10,7,0)"
^XMB(3.9,55,2,3528,0)="4298^^15^"
^XMB(3.9,55,2,3529,0)="""KRN"",101,3292,10,7,""^"")"
^XMB(3.9,55,2,3530,0)="IBCE PRVFAC DEL"
^XMB(3.9,55,2,3531,0)="""KRN"",101,3292,10,8,0)"
^XMB(3.9,55,2,3532,0)="4299^^20^"
^XMB(3.9,55,2,3533,0)="""KRN"",101,3292,10,8,""^"")"
^XMB(3.9,55,2,3534,0)="IBCE PRVFAC ADDITIONAL IDS"
^XMB(3.9,55,2,3535,0)="""KRN"",101,3292,10,9,0)"
^XMB(3.9,55,2,3536,0)="4300^^25^"
^XMB(3.9,55,2,3537,0)="""KRN"",101,3292,10,9,""^"")"
^XMB(3.9,55,2,3538,0)="IBCE PRVFAC IDPARAM"
^XMB(3.9,55,2,3539,0)="""KRN"",101,3292,10,10,0)"
^XMB(3.9,55,2,3540,0)="4301^^30^"
^XMB(3.9,55,2,3541,0)="""KRN"",101,3292,10,10,""^"")"
^XMB(3.9,55,2,3542,0)="IBCE PRVFAC VALFIDS"
^XMB(3.9,55,2,3543,0)="""KRN"",101,3292,15)"
^XMB(3.9,55,2,3544,0)="I $G(IBFASTXT) S VALMBCK=""Q"""
^XMB(3.9,55,2,3545,0)="""KRN"",101,3292,24)"
^XMB(3.9,55,2,3546,0)="I $$SCREEN^IBCEP0(""Additional"")"
^XMB(3.9,55,2,3547,0)="""KRN"",101,3292,26)"
^XMB(3.9,55,2,3548,0)="D SHOW^VALM"
^XMB(3.9,55,2,3549,0)="""KRN"",101,3292,28)"
^XMB(3.9,55,2,3550,0)="Select Action: "
^XMB(3.9,55,2,3551,0)="""KRN"",101,3292,99)"
^XMB(3.9,55,2,3552,0)="60240,65566"
^XMB(3.9,55,2,3553,0)="""KRN"",101,3293,-1)"
^XMB(3.9,55,2,3554,0)="0^53"
^XMB(3.9,55,2,3555,0)="""KRN"",101,3293,0)"
^XMB(3.9,55,2,3556,0)="IBCE PRVFAC EDIT^Edit an ID^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3557,0)="""KRN"",101,3293,20)"
^XMB(3.9,55,2,3558,0)="D EDIT1^IBCEP7"
^XMB(3.9,55,2,3559,0)="""KRN"",101,3293,99)"
^XMB(3.9,55,2,3560,0)="60240,6896"
^XMB(3.9,55,2,3561,0)="""KRN"",101,3299,-1)"
^XMB(3.9,55,2,3562,0)="0^58"
^XMB(3.9,55,2,3563,0)="""KRN"",101,3299,0)"
^XMB(3.9,55,2,3564,0)="IBCE PRVINS DISPLAY PARAMS^Display Ins Co Params^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3565,0)="""KRN"",101,3299,15)"
^XMB(3.9,55,2,3566,0)="Q"
^XMB(3.9,55,2,3567,0)="""KRN"",101,3299,20)"
^XMB(3.9,55,2,3568,0)="D EN^IBCEPB"
^XMB(3.9,55,2,3569,0)="""KRN"",101,3299,99)"
^XMB(3.9,55,2,3570,0)="58919,37012"
^XMB(3.9,55,2,3571,0)="""KRN"",101,3865,-1)"
^XMB(3.9,55,2,3572,0)="0^21"
^XMB(3.9,55,2,3573,0)="""KRN"",101,3865,0)"
^XMB(3.9,55,2,3574,0)="IBCNSC INS CO PAYER^Payer^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3575,0)="""KRN"",101,3865,4)"
^XMB(3.9,55,2,3576,0)="^^^PA"
^XMB(3.9,55,2,3577,0)="""KRN"",101,3865,15)"
^XMB(3.9,55,2,3578,0)="S VALMBG=$G(IB1ST(""PAYER"")) S:'VALMBG VALMBG=1"
^XMB(3.9,55,2,3579,0)="""KRN"",101,3865,20)"
^XMB(3.9,55,2,3580,0)="S IBY="",7,"" D EA^IBCNSC1"
^XMB(3.9,55,2,3581,0)="""KRN"",101,3865,99)"
^XMB(3.9,55,2,3582,0)="59435,30009"
^XMB(3.9,55,2,3583,0)="""KRN"",101,4054,-1)"
^XMB(3.9,55,2,3584,0)="0^32"
^XMB(3.9,55,2,3585,0)="""KRN"",101,4054,0)"
^XMB(3.9,55,2,3586,0)="IBCE VIEW PREV TRANS EXIT^Exit^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3587,0)="""KRN"",101,4054,1,0)"
^XMB(3.9,55,2,3588,0)="^^2^2^2960221^"
^XMB(3.9,55,2,3589,0)="""KRN"",101,4054,1,1,0)"
^XMB(3.9,55,2,3590,0)="Allows the user to exit the system without quitting through the hierarchy"
^XMB(3.9,55,2,3591,0)="""KRN"",101,4054,1,2,0)"
^XMB(3.9,55,2,3592,0)="of screens, or the user can exit to the previous screen."
^XMB(3.9,55,2,3593,0)="""KRN"",101,4054,2,0)"
^XMB(3.9,55,2,3594,0)="^101.02A^^0"
^XMB(3.9,55,2,3595,0)="""KRN"",101,4054,4)"
^XMB(3.9,55,2,3596,0)="^^^EX"
^XMB(3.9,55,2,3597,0)="""KRN"",101,4054,20)"
^XMB(3.9,55,2,3598,0)="D CKSENT^IBCEPTC3(.VALMBCK)"
^XMB(3.9,55,2,3599,0)="""KRN"",101,4054,28)"
^XMB(3.9,55,2,3600,0)=""
^XMB(3.9,55,2,3601,0)="""KRN"",101,4054,99)"
^XMB(3.9,55,2,3602,0)="60255,45935"
^XMB(3.9,55,2,3603,0)="""KRN"",101,4056,-1)"
^XMB(3.9,55,2,3604,0)="0^35"
^XMB(3.9,55,2,3605,0)="""KRN"",101,4056,0)"
^XMB(3.9,55,2,3606,0)="IBCE VIEW PREV TRANS SELECT^Claim(s) Select/De-select^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3607,0)="""KRN"",101,4056,1,0)"
^XMB(3.9,55,2,3608,0)="^101.06^1^1^3050210^^^"
^XMB(3.9,55,2,3609,0)="""KRN"",101,4056,1,1,0)"
^XMB(3.9,55,2,3610,0)="Allows selection of claims in the list to be resubmitted."
^XMB(3.9,55,2,3611,0)="""KRN"",101,4056,2,0)"
^XMB(3.9,55,2,3612,0)="^101.02A^^0"
^XMB(3.9,55,2,3613,0)="""KRN"",101,4056,4)"
^XMB(3.9,55,2,3614,0)="^^^"
^XMB(3.9,55,2,3615,0)="""KRN"",101,4056,20)"
^XMB(3.9,55,2,3616,0)="D SELECT^IBCEPTC3"
^XMB(3.9,55,2,3617,0)="""KRN"",101,4056,99)"
^XMB(3.9,55,2,3618,0)="60255,45935"
^XMB(3.9,55,2,3619,0)="""KRN"",101,4057,-1)"
^XMB(3.9,55,2,3620,0)="0^34"
^XMB(3.9,55,2,3621,0)="""KRN"",101,4057,0)"
^XMB(3.9,55,2,3622,0)="IBCE VIEW PREV TRANS RESUB^Resubmit Claims^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3623,0)="""KRN"",101,4057,1,0)"
^XMB(3.9,55,2,3624,0)="^101.06^1^1^3050124^^^"
^XMB(3.9,55,2,3625,0)="""KRN"",101,4057,1,1,0)"
^XMB(3.9,55,2,3626,0)="Resubmits previously transmitted claims selected from the list."
^XMB(3.9,55,2,3627,0)="""KRN"",101,4057,4)"
^XMB(3.9,55,2,3628,0)="^^^RC"
^XMB(3.9,55,2,3629,0)="""KRN"",101,4057,20)"
^XMB(3.9,55,2,3630,0)="D RESUB^IBCEPTC3"
^XMB(3.9,55,2,3631,0)="""KRN"",101,4057,99)"
^XMB(3.9,55,2,3632,0)="60255,45935"
^XMB(3.9,55,2,3633,0)="""KRN"",101,4058,-1)"
^XMB(3.9,55,2,3634,0)="0^33"
^XMB(3.9,55,2,3635,0)="""KRN"",101,4058,0)"
^XMB(3.9,55,2,3636,0)="IBCE VIEW PREV TRANS REPORT^Print Report^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3637,0)="""KRN"",101,4058,1,0)"
^XMB(3.9,55,2,3638,0)="^101.06^1^1^3050210^^^^"
^XMB(3.9,55,2,3639,0)="""KRN"",101,4058,1,1,0)"
^XMB(3.9,55,2,3640,0)="Prints the report for the list of claims in the display."
^XMB(3.9,55,2,3641,0)="""KRN"",101,4058,4)"
^XMB(3.9,55,2,3642,0)="^^^"
^XMB(3.9,55,2,3643,0)="""KRN"",101,4058,20)"
^XMB(3.9,55,2,3644,0)="D REPORT^IBCEPTC3"
^XMB(3.9,55,2,3645,0)="""KRN"",101,4058,99)"
^XMB(3.9,55,2,3646,0)="60255,45935"
^XMB(3.9,55,2,3647,0)="""KRN"",101,4059,-1)"
^XMB(3.9,55,2,3648,0)="0^30"
^XMB(3.9,55,2,3649,0)="""KRN"",101,4059,0)"
^XMB(3.9,55,2,3650,0)="IBCE VIEW PREV TRANS^View Claims Selected^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3651,0)="""KRN"",101,4059,1,0)"
^XMB(3.9,55,2,3652,0)="^101.06^2^2^3050124^^^^"
^XMB(3.9,55,2,3653,0)="""KRN"",101,4059,1,1,0)"
^XMB(3.9,55,2,3654,0)="Displays all claims already selected but not yet resubmitted."
^XMB(3.9,55,2,3655,0)="""KRN"",101,4059,1,2,0)"
^XMB(3.9,55,2,3656,0)="Allows deletion of claims that are no longer desired to be resubmitted."
^XMB(3.9,55,2,3657,0)="""KRN"",101,4059,4)"
^XMB(3.9,55,2,3658,0)="^^^VC"
^XMB(3.9,55,2,3659,0)="""KRN"",101,4059,20)"
^XMB(3.9,55,2,3660,0)="D VIEW^IBCEPTC3"
^XMB(3.9,55,2,3661,0)="""KRN"",101,4059,99)"
^XMB(3.9,55,2,3662,0)="60255,45935"
^XMB(3.9,55,2,3663,0)="""KRN"",101,4060,-1)"
^XMB(3.9,55,2,3664,0)="0^31"
^XMB(3.9,55,2,3665,0)="""KRN"",101,4060,0)"
^XMB(3.9,55,2,3666,0)="IBCE VIEW PREV TRANS BTCH SEL^Batch Select/De-select^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3667,0)="""KRN"",101,4060,1,0)"
^XMB(3.9,55,2,3668,0)="^101.06^2^2^3050210^^^"
^XMB(3.9,55,2,3669,0)="""KRN"",101,4060,1,1,0)"
^XMB(3.9,55,2,3670,0)="Allows selection of a batch where all claims in the batch are automatically"
^XMB(3.9,55,2,3671,0)="""KRN"",101,4060,1,2,0)"
^XMB(3.9,55,2,3672,0)="selected to be resubmitted."
^XMB(3.9,55,2,3673,0)="""KRN"",101,4060,4)"
^XMB(3.9,55,2,3674,0)="^^^"
^XMB(3.9,55,2,3675,0)="""KRN"",101,4060,20)"
^XMB(3.9,55,2,3676,0)="D SELBATCH^IBCEPTC3"
^XMB(3.9,55,2,3677,0)="""KRN"",101,4060,99)"
^XMB(3.9,55,2,3678,0)="60255,45935"
^XMB(3.9,55,2,3679,0)="""KRN"",101,4247,-1)"
^XMB(3.9,55,2,3680,0)="0^1"
^XMB(3.9,55,2,3681,0)="""KRN"",101,4247,0)"
^XMB(3.9,55,2,3682,0)="IBCEM CSA RE-SORT MESSAGES^ReSort Messages^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3683,0)="""KRN"",101,4247,1,0)"
^XMB(3.9,55,2,3684,0)="^^2^2^3050916^"
^XMB(3.9,55,2,3685,0)="""KRN"",101,4247,1,1,0)"
^XMB(3.9,55,2,3686,0)="This action allows the user to re-sort the CSA status messages in the "
^XMB(3.9,55,2,3687,0)="""KRN"",101,4247,1,2,0)"
^XMB(3.9,55,2,3688,0)="list without exiting the option.  IB patch 320 added this."
^XMB(3.9,55,2,3689,0)="""KRN"",101,4247,20)"
^XMB(3.9,55,2,3690,0)="D RESORT^IBCECSA3"
^XMB(3.9,55,2,3691,0)="""KRN"",101,4247,99)"
^XMB(3.9,55,2,3692,0)="60159,62949"
^XMB(3.9,55,2,3693,0)="""KRN"",101,4248,-1)"
^XMB(3.9,55,2,3694,0)="0^5"
^XMB(3.9,55,2,3695,0)="""KRN"",101,4248,0)"
^XMB(3.9,55,2,3696,0)="IBCEMC CHANGE MESSAGE SEARCH CRITERIA^Message Search^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3697,0)="""KRN"",101,4248,1,0)"
^XMB(3.9,55,2,3698,0)="^101.06^4^4^3050922^^"
^XMB(3.9,55,2,3699,0)="""KRN"",101,4248,1,1,0)"
^XMB(3.9,55,2,3700,0)="This action provides the user the ability to modify the search/selection "
^XMB(3.9,55,2,3701,0)="""KRN"",101,4248,1,2,0)"
^XMB(3.9,55,2,3702,0)="criteria to limit the number of status messages that are "
^XMB(3.9,55,2,3703,0)="""KRN"",101,4248,1,3,0)"
^XMB(3.9,55,2,3704,0)="displayed and pre-selected by choosing specific status message "
^XMB(3.9,55,2,3705,0)="""KRN"",101,4248,1,4,0)"
^XMB(3.9,55,2,3706,0)="information."
^XMB(3.9,55,2,3707,0)="""KRN"",101,4248,20)"
^XMB(3.9,55,2,3708,0)="D SCREEN^IBCEMCA"
^XMB(3.9,55,2,3709,0)="""KRN"",101,4248,99)"
^XMB(3.9,55,2,3710,0)="60200,51909"
^XMB(3.9,55,2,3711,0)="""KRN"",101,4249,-1)"
^XMB(3.9,55,2,3712,0)="0^12"
^XMB(3.9,55,2,3713,0)="""KRN"",101,4249,0)"
^XMB(3.9,55,2,3714,0)="IBCEMC SELECT & DESELECT MESSAGES^Select/Deselect Claims^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3715,0)="""KRN"",101,4249,1,0)"
^XMB(3.9,55,2,3716,0)="^^3^3^3050922^"
^XMB(3.9,55,2,3717,0)="""KRN"",101,4249,1,1,0)"
^XMB(3.9,55,2,3718,0)="This action allows the users to toggle the selection and de-selection of "
^XMB(3.9,55,2,3719,0)="""KRN"",101,4249,1,2,0)"
^XMB(3.9,55,2,3720,0)="the status messages which are displayed in the list.  Selected messages "
^XMB(3.9,55,2,3721,0)="""KRN"",101,4249,1,3,0)"
^XMB(3.9,55,2,3722,0)="will have an asterisk next to the claim number."
^XMB(3.9,55,2,3723,0)="""KRN"",101,4249,20)"
^XMB(3.9,55,2,3724,0)="D TOGGLE^IBCEMCA"
^XMB(3.9,55,2,3725,0)="""KRN"",101,4249,99)"
^XMB(3.9,55,2,3726,0)="60200,51909"
^XMB(3.9,55,2,3727,0)="""KRN"",101,4250,-1)"
^XMB(3.9,55,2,3728,0)="0^7"
^XMB(3.9,55,2,3729,0)="""KRN"",101,4250,0)"
^XMB(3.9,55,2,3730,0)="IBCEMC EXIT^Exit^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3731,0)="""KRN"",101,4250,1,0)"
^XMB(3.9,55,2,3732,0)="^^1^1^3050922^"
^XMB(3.9,55,2,3733,0)="""KRN"",101,4250,1,1,0)"
^XMB(3.9,55,2,3734,0)="This action quits the list."
^XMB(3.9,55,2,3735,0)="""KRN"",101,4250,20)"
^XMB(3.9,55,2,3736,0)="S VALMBCK=""Q"""
^XMB(3.9,55,2,3737,0)="""KRN"",101,4250,99)"
^XMB(3.9,55,2,3738,0)="60200,51909"
^XMB(3.9,55,2,3739,0)="""KRN"",101,4251,-1)"
^XMB(3.9,55,2,3740,0)="0^11"
^XMB(3.9,55,2,3741,0)="""KRN"",101,4251,0)"
^XMB(3.9,55,2,3742,0)="IBCEMC REVIEW STATUS^Change Review Status^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3743,0)="""KRN"",101,4251,1,0)"
^XMB(3.9,55,2,3744,0)="^^2^2^3050922^"
^XMB(3.9,55,2,3745,0)="""KRN"",101,4251,1,1,0)"
^XMB(3.9,55,2,3746,0)="This action allows the user to update the review status of multiple "
^XMB(3.9,55,2,3747,0)="""KRN"",101,4251,1,2,0)"
^XMB(3.9,55,2,3748,0)="claims status messages."
^XMB(3.9,55,2,3749,0)="""KRN"",101,4251,20)"
^XMB(3.9,55,2,3750,0)="D REVSTAT^IBCEMCA1"
^XMB(3.9,55,2,3751,0)="""KRN"",101,4251,99)"
^XMB(3.9,55,2,3752,0)="60200,51909"
^XMB(3.9,55,2,3753,0)="""KRN"",101,4252,-1)"
^XMB(3.9,55,2,3754,0)="0^4"
^XMB(3.9,55,2,3755,0)="""KRN"",101,4252,0)"
^XMB(3.9,55,2,3756,0)="IBCEMC CANCEL^Cancel Claims^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3757,0)="""KRN"",101,4252,1,0)"
^XMB(3.9,55,2,3758,0)="^^1^1^3050922^"
^XMB(3.9,55,2,3759,0)="""KRN"",101,4252,1,1,0)"
^XMB(3.9,55,2,3760,0)="This action allows the user to cancel multiple claims."
^XMB(3.9,55,2,3761,0)="""KRN"",101,4252,20)"
^XMB(3.9,55,2,3762,0)="D CANCEL^IBCEMCA2"
^XMB(3.9,55,2,3763,0)="""KRN"",101,4252,99)"
^XMB(3.9,55,2,3764,0)="60200,51909"
^XMB(3.9,55,2,3765,0)="""KRN"",101,4253,-1)"
^XMB(3.9,55,2,3766,0)="0^6"
^XMB(3.9,55,2,3767,0)="""KRN"",101,4253,0)"
^XMB(3.9,55,2,3768,0)="IBCEMC COMMENT^Enter Comments^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3769,0)="""KRN"",101,4253,1,0)"
^XMB(3.9,55,2,3770,0)="^^2^2^3050922^"
^XMB(3.9,55,2,3771,0)="""KRN"",101,4253,1,1,0)"
^XMB(3.9,55,2,3772,0)="This action allows the user to enter the same comment for multiple claims "
^XMB(3.9,55,2,3773,0)="""KRN"",101,4253,1,2,0)"
^XMB(3.9,55,2,3774,0)="status messages."
^XMB(3.9,55,2,3775,0)="""KRN"",101,4253,20)"
^XMB(3.9,55,2,3776,0)="D COMMENT^IBCEMCA1"
^XMB(3.9,55,2,3777,0)="""KRN"",101,4253,99)"
^XMB(3.9,55,2,3778,0)="60200,51909"
^XMB(3.9,55,2,3779,0)="""KRN"",101,4254,-1)"
^XMB(3.9,55,2,3780,0)="0^9"
^XMB(3.9,55,2,3781,0)="""KRN"",101,4254,0)"
^XMB(3.9,55,2,3782,0)="IBCEMC PRINT^Resubmit by Print^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3783,0)="""KRN"",101,4254,1,0)"
^XMB(3.9,55,2,3784,0)="^^1^1^3050922^"
^XMB(3.9,55,2,3785,0)="""KRN"",101,4254,1,1,0)"
^XMB(3.9,55,2,3786,0)="This action allows the user to Print multiple claims from the MCS list."
^XMB(3.9,55,2,3787,0)="""KRN"",101,4254,20)"
^XMB(3.9,55,2,3788,0)="D PRINT^IBCEMCA3"
^XMB(3.9,55,2,3789,0)="""KRN"",101,4254,99)"
^XMB(3.9,55,2,3790,0)="60200,51909"
^XMB(3.9,55,2,3791,0)="""KRN"",101,4255,-1)"
^XMB(3.9,55,2,3792,0)="0^10"
^XMB(3.9,55,2,3793,0)="""KRN"",101,4255,0)"
^XMB(3.9,55,2,3794,0)="IBCEMC RETRANSMIT^Retransmit Claims^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3795,0)="""KRN"",101,4255,1,0)"
^XMB(3.9,55,2,3796,0)="^^2^2^3050922^"
^XMB(3.9,55,2,3797,0)="""KRN"",101,4255,1,1,0)"
^XMB(3.9,55,2,3798,0)="This action allows the user to retransmit multiple claims from the MCS "
^XMB(3.9,55,2,3799,0)="""KRN"",101,4255,1,2,0)"
^XMB(3.9,55,2,3800,0)="list."
^XMB(3.9,55,2,3801,0)="""KRN"",101,4255,20)"
^XMB(3.9,55,2,3802,0)="D RETRAN^IBCEMCA1"
^XMB(3.9,55,2,3803,0)="""KRN"",101,4255,99)"
^XMB(3.9,55,2,3804,0)="60200,51909"
^XMB(3.9,55,2,3805,0)="""KRN"",101,4256,-1)"
^XMB(3.9,55,2,3806,0)="0^8"
^XMB(3.9,55,2,3807,0)="""KRN"",101,4256,0)"
^XMB(3.9,55,2,3808,0)="IBCEMC MENU^^^M^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3809,0)="""KRN"",101,4256,1,0)"
^XMB(3.9,55,2,3810,0)="^^2^2^3050922^"
^XMB(3.9,55,2,3811,0)="""KRN"",101,4256,1,1,0)"
^XMB(3.9,55,2,3812,0)="This is the main menu protocol for the MCS - Multiple CSA Message "
^XMB(3.9,55,2,3813,0)="""KRN"",101,4256,1,2,0)"
^XMB(3.9,55,2,3814,0)="Management."
^XMB(3.9,55,2,3815,0)="""KRN"",101,4256,4)"
^XMB(3.9,55,2,3816,0)="26"
^XMB(3.9,55,2,3817,0)="""KRN"",101,4256,10,0)"
^XMB(3.9,55,2,3818,0)="^101.01PA^8^8"
^XMB(3.9,55,2,3819,0)="""KRN"",101,4256,10,1,0)"
^XMB(3.9,55,2,3820,0)="4248^^10^"
^XMB(3.9,55,2,3821,0)="""KRN"",101,4256,10,1,""^"")"
^XMB(3.9,55,2,3822,0)="IBCEMC CHANGE MESSAGE SEARCH CRITERIA"
^XMB(3.9,55,2,3823,0)="""KRN"",101,4256,10,2,0)"
^XMB(3.9,55,2,3824,0)="4251^^20^"
^XMB(3.9,55,2,3825,0)="""KRN"",101,4256,10,2,""^"")"
^XMB(3.9,55,2,3826,0)="IBCEMC REVIEW STATUS"
^XMB(3.9,55,2,3827,0)="""KRN"",101,4256,10,3,0)"
^XMB(3.9,55,2,3828,0)="4252^^30^"
^XMB(3.9,55,2,3829,0)="""KRN"",101,4256,10,3,""^"")"
^XMB(3.9,55,2,3830,0)="IBCEMC CANCEL"
^XMB(3.9,55,2,3831,0)="""KRN"",101,4256,10,4,0)"
^XMB(3.9,55,2,3832,0)="4253^^40^"
^XMB(3.9,55,2,3833,0)="""KRN"",101,4256,10,4,""^"")"
^XMB(3.9,55,2,3834,0)="IBCEMC COMMENT"
^XMB(3.9,55,2,3835,0)="""KRN"",101,4256,10,5,0)"
^XMB(3.9,55,2,3836,0)="4254^^50^"
^XMB(3.9,55,2,3837,0)="""KRN"",101,4256,10,5,""^"")"
^XMB(3.9,55,2,3838,0)="IBCEMC PRINT"
^XMB(3.9,55,2,3839,0)="""KRN"",101,4256,10,6,0)"
^XMB(3.9,55,2,3840,0)="4255^^60^"
^XMB(3.9,55,2,3841,0)="""KRN"",101,4256,10,6,""^"")"
^XMB(3.9,55,2,3842,0)="IBCEMC RETRANSMIT"
^XMB(3.9,55,2,3843,0)="""KRN"",101,4256,10,7,0)"
^XMB(3.9,55,2,3844,0)="4249^^70^"
^XMB(3.9,55,2,3845,0)="""KRN"",101,4256,10,7,""^"")"
^XMB(3.9,55,2,3846,0)="IBCEMC SELECT & DESELECT MESSAGES"
^XMB(3.9,55,2,3847,0)="""KRN"",101,4256,10,8,0)"
^XMB(3.9,55,2,3848,0)="4250^^80^"
^XMB(3.9,55,2,3849,0)="""KRN"",101,4256,10,8,""^"")"
^XMB(3.9,55,2,3850,0)="IBCEMC EXIT"
^XMB(3.9,55,2,3851,0)="""KRN"",101,4256,26)"
^XMB(3.9,55,2,3852,0)="D SHOW^VALM"
^XMB(3.9,55,2,3853,0)="""KRN"",101,4256,28)"
^XMB(3.9,55,2,3854,0)="Select Action: "
^XMB(3.9,55,2,3855,0)="""KRN"",101,4256,99)"
^XMB(3.9,55,2,3856,0)="60200,51909"
^XMB(3.9,55,2,3857,0)="""KRN"",101,4257,-1)"
^XMB(3.9,55,2,3858,0)="0^14"
^XMB(3.9,55,2,3859,0)="""KRN"",101,4257,0)"
^XMB(3.9,55,2,3860,0)="IBCE PRVNVA PROVINFO^Provider Info^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3861,0)="""KRN"",101,4257,15)"
^XMB(3.9,55,2,3862,0)="Q"
^XMB(3.9,55,2,3863,0)="""KRN"",101,4257,20)"
^XMB(3.9,55,2,3864,0)="D EDIT1^IBCEP8($G(IBNPRV))"
^XMB(3.9,55,2,3865,0)="""KRN"",101,4257,99)"
^XMB(3.9,55,2,3866,0)="60184,47641"
^XMB(3.9,55,2,3867,0)="""KRN"",101,4258,-1)"
^XMB(3.9,55,2,3868,0)="0^65"
^XMB(3.9,55,2,3869,0)="""KRN"",101,4258,0)"
^XMB(3.9,55,2,3870,0)="IBCE PRVNVA SECIDS^Secondary ID Maint^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3871,0)="""KRN"",101,4258,15)"
^XMB(3.9,55,2,3872,0)="Q"
^XMB(3.9,55,2,3873,0)="""KRN"",101,4258,20)"
^XMB(3.9,55,2,3874,0)="D EDITID^IBCEP8($G(IBNPRV))"
^XMB(3.9,55,2,3875,0)="""KRN"",101,4258,99)"
^XMB(3.9,55,2,3876,0)="60184,47716"
^XMB(3.9,55,2,3877,0)="""KRN"",101,4259,-1)"
^XMB(3.9,55,2,3878,0)="0^15"
^XMB(3.9,55,2,3879,0)="""KRN"",101,4259,0)"
^XMB(3.9,55,2,3880,0)="IBCE PRVNVA NONIND MAINT^Non-VA Lab or Facility Maint^^M^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3881,0)="""KRN"",101,4259,4)"
^XMB(3.9,55,2,3882,0)="25"
^XMB(3.9,55,2,3883,0)="""KRN"",101,4259,10,0)"
^XMB(3.9,55,2,3884,0)="^101.01PA^3^3"
^XMB(3.9,55,2,3885,0)="""KRN"",101,4259,10,1,0)"
^XMB(3.9,55,2,3886,0)="1734^^100^"
^XMB(3.9,55,2,3887,0)="""KRN"",101,4259,10,1,""^"")"
^XMB(3.9,55,2,3888,0)="IBCE EXIT"
^XMB(3.9,55,2,3889,0)="""KRN"",101,4259,10,2,0)"
^XMB(3.9,55,2,3890,0)="4257^^2^"
^XMB(3.9,55,2,3891,0)="""KRN"",101,4259,10,2,""^"")"
^XMB(3.9,55,2,3892,0)="IBCE PRVNVA PROVINFO"
^XMB(3.9,55,2,3893,0)="""KRN"",101,4259,10,3,0)"
^XMB(3.9,55,2,3894,0)="4258^^10^"
^XMB(3.9,55,2,3895,0)="""KRN"",101,4259,10,3,""^"")"
^XMB(3.9,55,2,3896,0)="IBCE PRVNVA SECIDS"
^XMB(3.9,55,2,3897,0)="""KRN"",101,4259,15)"
^XMB(3.9,55,2,3898,0)="I $G(IBFASTXT) S VALMBCK=""Q"""
^XMB(3.9,55,2,3899,0)="""KRN"",101,4259,26)"
^XMB(3.9,55,2,3900,0)="D SHOW^VALM"
^XMB(3.9,55,2,3901,0)="""KRN"",101,4259,28)"
^XMB(3.9,55,2,3902,0)="Select Action: "
^XMB(3.9,55,2,3903,0)="""KRN"",101,4259,99)"
^XMB(3.9,55,2,3904,0)="60184,49308"
^XMB(3.9,55,2,3905,0)="""KRN"",101,4260,-1)"
^XMB(3.9,55,2,3906,0)="0^36"
^XMB(3.9,55,2,3907,0)="""KRN"",101,4260,0)"
^XMB(3.9,55,2,3908,0)="IBCE PRVNVA LOF ADD^Add Secondary ID^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3909,0)="""KRN"",101,4260,20)"
^XMB(3.9,55,2,3910,0)="D NEW^IBCEP5A($G(IBPRV),$G(IBINS))"
^XMB(3.9,55,2,3911,0)="""KRN"",101,4260,99)"
^XMB(3.9,55,2,3912,0)="60184,58421"
^XMB(3.9,55,2,3913,0)="""KRN"",101,4261,-1)"
^XMB(3.9,55,2,3914,0)="0^37"
^XMB(3.9,55,2,3915,0)="""KRN"",101,4261,0)"
^XMB(3.9,55,2,3916,0)="IBCE PRVNVA LOF EDIT^Edit Secondary ID^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3917,0)="""KRN"",101,4261,20)"
^XMB(3.9,55,2,3918,0)="D CHG1^IBCEP5A"
^XMB(3.9,55,2,3919,0)="""KRN"",101,4261,99)"
^XMB(3.9,55,2,3920,0)="60184,58494"
^XMB(3.9,55,2,3921,0)="""KRN"",101,4262,-1)"
^XMB(3.9,55,2,3922,0)="0^38"
^XMB(3.9,55,2,3923,0)="""KRN"",101,4262,0)"
^XMB(3.9,55,2,3924,0)="IBCE PRVNVA LOF DELETE^Delete Provider ID^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3925,0)="""KRN"",101,4262,20)"
^XMB(3.9,55,2,3926,0)="D DEL1^IBCEP5A"
^XMB(3.9,55,2,3927,0)="""KRN"",101,4262,99)"
^XMB(3.9,55,2,3928,0)="60184,58548"
^XMB(3.9,55,2,3929,0)="""KRN"",101,4263,-1)"
^XMB(3.9,55,2,3930,0)="0^39"
^XMB(3.9,55,2,3931,0)="""KRN"",101,4263,0)"
^XMB(3.9,55,2,3932,0)="IBCE PRVNVA LOF MAINT^Secondary ID Maintenance^^M^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3933,0)="""KRN"",101,4263,4)"
^XMB(3.9,55,2,3934,0)="35"
^XMB(3.9,55,2,3935,0)="""KRN"",101,4263,10,0)"
^XMB(3.9,55,2,3936,0)="^101.01PA^4^4"
^XMB(3.9,55,2,3937,0)="""KRN"",101,4263,10,1,0)"
^XMB(3.9,55,2,3938,0)="4260^^5^"
^XMB(3.9,55,2,3939,0)="""KRN"",101,4263,10,1,""^"")"
^XMB(3.9,55,2,3940,0)="IBCE PRVNVA LOF ADD"
^XMB(3.9,55,2,3941,0)="""KRN"",101,4263,10,2,0)"
^XMB(3.9,55,2,3942,0)="4261^^10^"
^XMB(3.9,55,2,3943,0)="""KRN"",101,4263,10,2,""^"")"
^XMB(3.9,55,2,3944,0)="IBCE PRVNVA LOF EDIT"
^XMB(3.9,55,2,3945,0)="""KRN"",101,4263,10,3,0)"
^XMB(3.9,55,2,3946,0)="4262^^15^"
^XMB(3.9,55,2,3947,0)="""KRN"",101,4263,10,3,""^"")"
^XMB(3.9,55,2,3948,0)="IBCE PRVNVA LOF DELETE"
^XMB(3.9,55,2,3949,0)="""KRN"",101,4263,10,4,0)"
^XMB(3.9,55,2,3950,0)="1734^^100^"
^XMB(3.9,55,2,3951,0)="""KRN"",101,4263,10,4,""^"")"
^XMB(3.9,55,2,3952,0)="IBCE EXIT"
^XMB(3.9,55,2,3953,0)="""KRN"",101,4263,15)"
^XMB(3.9,55,2,3954,0)="I $G(IBFASTXT) S VALMBCK=""Q"""
^XMB(3.9,55,2,3955,0)="""KRN"",101,4263,26)"
^XMB(3.9,55,2,3956,0)="D SHOW^VALM"
^XMB(3.9,55,2,3957,0)="""KRN"",101,4263,28)"
^XMB(3.9,55,2,3958,0)="Select Action: "
^XMB(3.9,55,2,3959,0)="""KRN"",101,4263,99)"
^XMB(3.9,55,2,3960,0)="60184,60618"
^XMB(3.9,55,2,3961,0)="""KRN"",101,4264,-1)"
^XMB(3.9,55,2,3962,0)="0^3"
^XMB(3.9,55,2,3963,0)="""KRN"",101,4264,0)"
^XMB(3.9,55,2,3964,0)="IBCEM CSA MSG MAN^Multiple Status Messages^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3965,0)="""KRN"",101,4264,20)"
^XMB(3.9,55,2,3966,0)="D MCS^IBCECSA3"
^XMB(3.9,55,2,3967,0)="""KRN"",101,4264,99)"
^XMB(3.9,55,2,3968,0)="60200,51909"
^XMB(3.9,55,2,3969,0)="""KRN"",101,4285,-1)"
^XMB(3.9,55,2,3970,0)="0^16"
^XMB(3.9,55,2,3971,0)="""KRN"",101,4285,0)"
^XMB(3.9,55,2,3972,0)="IBCE 2ND PRVCARE ADD^Add^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3973,0)="""KRN"",101,4285,20)"
^XMB(3.9,55,2,3974,0)="D NEW^IBCEPA"
^XMB(3.9,55,2,3975,0)="""KRN"",101,4285,99)"
^XMB(3.9,55,2,3976,0)="60197,48046"
^XMB(3.9,55,2,3977,0)="""KRN"",101,4286,-1)"
^XMB(3.9,55,2,3978,0)="0^17"
^XMB(3.9,55,2,3979,0)="""KRN"",101,4286,0)"
^XMB(3.9,55,2,3980,0)="IBCE 2ND PRVCARE EDIT^Edit^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3981,0)="""KRN"",101,4286,20)"
^XMB(3.9,55,2,3982,0)="D CHANGE^IBCEPA"
^XMB(3.9,55,2,3983,0)="""KRN"",101,4286,99)"
^XMB(3.9,55,2,3984,0)="60243,63838"
^XMB(3.9,55,2,3985,0)="""KRN"",101,4287,-1)"
^XMB(3.9,55,2,3986,0)="0^18"
^XMB(3.9,55,2,3987,0)="""KRN"",101,4287,0)"
^XMB(3.9,55,2,3988,0)="IBCE 2ND PRVCARE MENU^Provider Secondary ID Care Unit Menu^^M^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,3989,0)="""KRN"",101,4287,4)"
^XMB(3.9,55,2,3990,0)="35"
^XMB(3.9,55,2,3991,0)="""KRN"",101,4287,10,0)"
^XMB(3.9,55,2,3992,0)="^101.01PA^4^4"
^XMB(3.9,55,2,3993,0)="""KRN"",101,4287,10,1,0)"
^XMB(3.9,55,2,3994,0)="4285^^1^"
^XMB(3.9,55,2,3995,0)="""KRN"",101,4287,10,1,""^"")"
^XMB(3.9,55,2,3996,0)="IBCE 2ND PRVCARE ADD"
^XMB(3.9,55,2,3997,0)="""KRN"",101,4287,10,2,0)"
^XMB(3.9,55,2,3998,0)="4286^^5^"
^XMB(3.9,55,2,3999,0)="""KRN"",101,4287,10,2,""^"")"
^XMB(3.9,55,2,4000,0)="IBCE 2ND PRVCARE EDIT"
^XMB(3.9,55,2,4001,0)="""KRN"",101,4287,10,3,0)"
^XMB(3.9,55,2,4002,0)="1734^^50^"
^XMB(3.9,55,2,4003,0)="""KRN"",101,4287,10,3,""^"")"
^XMB(3.9,55,2,4004,0)="IBCE EXIT"
^XMB(3.9,55,2,4005,0)="""KRN"",101,4287,10,4,0)"
^XMB(3.9,55,2,4006,0)="4302^^15^"
^XMB(3.9,55,2,4007,0)="""KRN"",101,4287,10,4,""^"")"
^XMB(3.9,55,2,4008,0)="IBCE 2ND PRVCARE DELETE"
^XMB(3.9,55,2,4009,0)="""KRN"",101,4287,15)"
^XMB(3.9,55,2,4010,0)="I $G(IBFASTXT) S VALMBCK=""Q"""
^XMB(3.9,55,2,4011,0)="""KRN"",101,4287,26)"
^XMB(3.9,55,2,4012,0)="D SHOW^VALM"
^XMB(3.9,55,2,4013,0)="""KRN"",101,4287,28)"
^XMB(3.9,55,2,4014,0)="Select Action: "
^XMB(3.9,55,2,4015,0)="""KRN"",101,4287,99)"
^XMB(3.9,55,2,4016,0)="60243,64052"
^XMB(3.9,55,2,4017,0)="""KRN"",101,4288,-1)"
^XMB(3.9,55,2,4018,0)="0^20"
^XMB(3.9,55,2,4019,0)="""KRN"",101,4288,0)"
^XMB(3.9,55,2,4020,0)="IBCNSC INS CO ASSOCIATION^Associate Companies^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,4021,0)="""KRN"",101,4288,15)"
^XMB(3.9,55,2,4022,0)="S VALMBG=54"
^XMB(3.9,55,2,4023,0)="""KRN"",101,4288,20)"
^XMB(3.9,55,2,4024,0)="S IBY="",13,"" D EA^IBCNSC1"
^XMB(3.9,55,2,4025,0)="""KRN"",101,4288,99)"
^XMB(3.9,55,2,4026,0)="60206,64348"
^XMB(3.9,55,2,4027,0)="""KRN"",101,4289,-1)"
^XMB(3.9,55,2,4028,0)="0^26"
^XMB(3.9,55,2,4029,0)="""KRN"",101,4289,0)"
^XMB(3.9,55,2,4030,0)="IBCNSL EXIT^Exit^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,4031,0)="""KRN"",101,4289,20)"
^XMB(3.9,55,2,4032,0)="S VALMBCK=""Q"""
^XMB(3.9,55,2,4033,0)="""KRN"",101,4289,99)"
^XMB(3.9,55,2,4034,0)="60211,61335"
^XMB(3.9,55,2,4035,0)="""KRN"",101,4290,-1)"
^XMB(3.9,55,2,4036,0)="0^28"
^XMB(3.9,55,2,4037,0)="""KRN"",101,4290,0)"
^XMB(3.9,55,2,4038,0)="IBCNSL MENU^^^M^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,4039,0)="""KRN"",101,4290,4)"
^XMB(3.9,55,2,4040,0)="39"
^XMB(3.9,55,2,4041,0)="""KRN"",101,4290,10,0)"
^XMB(3.9,55,2,4042,0)="^101.01PA^3^3"
^XMB(3.9,55,2,4043,0)="""KRN"",101,4290,10,1,0)"
^XMB(3.9,55,2,4044,0)="4289^^30^"
^XMB(3.9,55,2,4045,0)="""KRN"",101,4290,10,1,""^"")"
^XMB(3.9,55,2,4046,0)="IBCNSL EXIT"
^XMB(3.9,55,2,4047,0)="""KRN"",101,4290,10,2,0)"
^XMB(3.9,55,2,4048,0)="4291^^10^"
^XMB(3.9,55,2,4049,0)="""KRN"",101,4290,10,2,""^"")"
^XMB(3.9,55,2,4050,0)="IBCNSL LINK"
^XMB(3.9,55,2,4051,0)="""KRN"",101,4290,10,3,0)"
^XMB(3.9,55,2,4052,0)="4292^^20^"
^XMB(3.9,55,2,4053,0)="""KRN"",101,4290,10,3,""^"")"
^XMB(3.9,55,2,4054,0)="IBCNSL UNLINK"
^XMB(3.9,55,2,4055,0)="""KRN"",101,4290,26)"
^XMB(3.9,55,2,4056,0)="D SHOW^VALM"
^XMB(3.9,55,2,4057,0)="""KRN"",101,4290,28)"
^XMB(3.9,55,2,4058,0)="Select Action: "
^XMB(3.9,55,2,4059,0)="""KRN"",101,4290,99)"
^XMB(3.9,55,2,4060,0)="60218,53884"
^XMB(3.9,55,2,4061,0)="""KRN"",101,4291,-1)"
^XMB(3.9,55,2,4062,0)="0^27"
^XMB(3.9,55,2,4063,0)="""KRN"",101,4291,0)"
^XMB(3.9,55,2,4064,0)="IBCNSL LINK^Associate Companies^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,4065,0)="""KRN"",101,4291,20)"
^XMB(3.9,55,2,4066,0)="D LINK^IBCNSC02"
^XMB(3.9,55,2,4067,0)="""KRN"",101,4291,99)"
^XMB(3.9,55,2,4068,0)="60218,53719"
^XMB(3.9,55,2,4069,0)="""KRN"",101,4292,-1)"
^XMB(3.9,55,2,4070,0)="0^29"
^XMB(3.9,55,2,4071,0)="""KRN"",101,4292,0)"
^XMB(3.9,55,2,4072,0)="IBCNSL UNLINK^Disassociate Companies^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,4073,0)="""KRN"",101,4292,20)"
^XMB(3.9,55,2,4074,0)="D UNLINK^IBCNSC02"
^XMB(3.9,55,2,4075,0)="""KRN"",101,4292,99)"
^XMB(3.9,55,2,4076,0)="60218,53779"
^XMB(3.9,55,2,4077,0)="""KRN"",101,4295,-1)"
^XMB(3.9,55,2,4078,0)="0^42"
^XMB(3.9,55,2,4079,0)="""KRN"",101,4295,0)"
^XMB(3.9,55,2,4080,0)="IBCE PRVNUM EXIT^Exit^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,4081,0)="""KRN"",101,4295,20)"
^XMB(3.9,55,2,4082,0)="D FASTEXIT^IBCEFG4"
^XMB(3.9,55,2,4083,0)="""KRN"",101,4295,99)"
^XMB(3.9,55,2,4084,0)="60234,51223"
^XMB(3.9,55,2,4085,0)="""KRN"",101,4296,-1)"
^XMB(3.9,55,2,4086,0)="0^48"
^XMB(3.9,55,2,4087,0)="""KRN"",101,4296,0)"
^XMB(3.9,55,2,4088,0)="IBCE PRVINS MAINT^Provide ID Maint by Insurance^^M^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,4089,0)="""KRN"",101,4296,4)"
^XMB(3.9,55,2,4090,0)="26"
^XMB(3.9,55,2,4091,0)="""KRN"",101,4296,10,0)"
^XMB(3.9,55,2,4092,0)="^101.01PA^5^4"
^XMB(3.9,55,2,4093,0)="""KRN"",101,4296,10,1,0)"
^XMB(3.9,55,2,4094,0)="3281^^5^"
^XMB(3.9,55,2,4095,0)="""KRN"",101,4296,10,1,""^"")"
^XMB(3.9,55,2,4096,0)="IBCE PRVNUM ADD"
^XMB(3.9,55,2,4097,0)="""KRN"",101,4296,10,2,0)"
^XMB(3.9,55,2,4098,0)="3280^^10^"
^XMB(3.9,55,2,4099,0)="""KRN"",101,4296,10,2,""^"")"
^XMB(3.9,55,2,4100,0)="IBCE PRVNUM EDIT"
^XMB(3.9,55,2,4101,0)="""KRN"",101,4296,10,3,0)"
^XMB(3.9,55,2,4102,0)="3282^^15^"
^XMB(3.9,55,2,4103,0)="""KRN"",101,4296,10,3,""^"")"
^XMB(3.9,55,2,4104,0)="IBCE PRVNUM DELETE"
^XMB(3.9,55,2,4105,0)="""KRN"",101,4296,10,5,0)"
^XMB(3.9,55,2,4106,0)="4295^^100^"
^XMB(3.9,55,2,4107,0)="""KRN"",101,4296,10,5,""^"")"
^XMB(3.9,55,2,4108,0)="IBCE PRVNUM EXIT"
^XMB(3.9,55,2,4109,0)="""KRN"",101,4296,15)"
^XMB(3.9,55,2,4110,0)="I $G(IBFASTXT) S VALMBCK=""Q"""
^XMB(3.9,55,2,4111,0)="""KRN"",101,4296,26)"
^XMB(3.9,55,2,4112,0)="D SHOW^VALM"
^XMB(3.9,55,2,4113,0)="""KRN"",101,4296,28)"
^XMB(3.9,55,2,4114,0)="Select Action: "
^XMB(3.9,55,2,4115,0)="""KRN"",101,4296,99)"
^XMB(3.9,55,2,4116,0)="60339,83974"
^XMB(3.9,55,2,4117,0)="""KRN"",101,4297,-1)"
^XMB(3.9,55,2,4118,0)="0^49"
^XMB(3.9,55,2,4119,0)="""KRN"",101,4297,0)"
^XMB(3.9,55,2,4120,0)="IBCE PRVFAC ADD^Add an ID^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,4121,0)="""KRN"",101,4297,20)"
^XMB(3.9,55,2,4122,0)="D ADD1^IBCEP7"
^XMB(3.9,55,2,4123,0)="""KRN"",101,4297,99)"
^XMB(3.9,55,2,4124,0)="60240,6927"
^XMB(3.9,55,2,4125,0)="""KRN"",101,4298,-1)"
^XMB(3.9,55,2,4126,0)="0^52"
^XMB(3.9,55,2,4127,0)="""KRN"",101,4298,0)"
^XMB(3.9,55,2,4128,0)="IBCE PRVFAC DEL^Delete an ID^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,4129,0)="""KRN"",101,4298,20)"
^XMB(3.9,55,2,4130,0)="D DEL1^IBCEP7"
^XMB(3.9,55,2,4131,0)="""KRN"",101,4298,99)"
^XMB(3.9,55,2,4132,0)="60240,6997"
^XMB(3.9,55,2,4133,0)="""KRN"",101,4299,-1)"
^XMB(3.9,55,2,4134,0)="0^51"
^XMB(3.9,55,2,4135,0)="""KRN"",101,4299,0)"
^XMB(3.9,55,2,4136,0)="IBCE PRVFAC ADDITIONAL IDS^Additional IDs^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,4137,0)="""KRN"",101,4299,20)"
^XMB(3.9,55,2,4138,0)="D ADDID^IBCEP7A"
^XMB(3.9,55,2,4139,0)="""KRN"",101,4299,99)"
^XMB(3.9,55,2,4140,0)="60240,55687"
^XMB(3.9,55,2,4141,0)="""KRN"",101,4300,-1)"
^XMB(3.9,55,2,4142,0)="0^54"
^XMB(3.9,55,2,4143,0)="""KRN"",101,4300,0)"
^XMB(3.9,55,2,4144,0)="IBCE PRVFAC IDPARAM^ID Parameters^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,4145,0)="""KRN"",101,4300,20)"
^XMB(3.9,55,2,4146,0)="D IDPARAM^IBCEP7A"
^XMB(3.9,55,2,4147,0)="""KRN"",101,4300,99)"
^XMB(3.9,55,2,4148,0)="60240,65309"
^XMB(3.9,55,2,4149,0)="""KRN"",101,4301,-1)"
^XMB(3.9,55,2,4150,0)="0^57"
^XMB(3.9,55,2,4151,0)="""KRN"",101,4301,0)"
^XMB(3.9,55,2,4152,0)="IBCE PRVFAC VALFIDS^VA-Lab/Facilitiy IDs^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,4153,0)="""KRN"",101,4301,20)"
^XMB(3.9,55,2,4154,0)="D VALFIDS^IBCEP7A"
^XMB(3.9,55,2,4155,0)="""KRN"",101,4301,99)"
^XMB(3.9,55,2,4156,0)="60240,65393"
^XMB(3.9,55,2,4157,0)="""KRN"",101,4302,-1)"
^XMB(3.9,55,2,4158,0)="0^45"
^XMB(3.9,55,2,4159,0)="""KRN"",101,4302,0)"
^XMB(3.9,55,2,4160,0)="IBCE 2ND PRVCARE DELETE^Delete^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,4161,0)="""KRN"",101,4302,20)"
^XMB(3.9,55,2,4162,0)="D DEL^IBCEPA"
^XMB(3.9,55,2,4163,0)="""KRN"",101,4302,99)"
^XMB(3.9,55,2,4164,0)="60243,63908"
^XMB(3.9,55,2,4165,0)="""KRN"",101,4304,-1)"
^XMB(3.9,55,2,4166,0)="0^50"
^XMB(3.9,55,2,4167,0)="""KRN"",101,4304,0)"
^XMB(3.9,55,2,4168,0)="IBCE PRVFAC ADDIDS MAINT^Additional Facility Secondary IDs^^M^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,4169,0)="""KRN"",101,4304,4)"
^XMB(3.9,55,2,4170,0)="38"
^XMB(3.9,55,2,4171,0)="""KRN"",101,4304,10,0)"
^XMB(3.9,55,2,4172,0)="^101.01PA^4^4"
^XMB(3.9,55,2,4173,0)="""KRN"",101,4304,10,1,0)"
^XMB(3.9,55,2,4174,0)="4297^^5^"
^XMB(3.9,55,2,4175,0)="""KRN"",101,4304,10,1,""^"")"
^XMB(3.9,55,2,4176,0)="IBCE PRVFAC ADD"
^XMB(3.9,55,2,4177,0)="""KRN"",101,4304,10,2,0)"
^XMB(3.9,55,2,4178,0)="3293^^10^"
^XMB(3.9,55,2,4179,0)="""KRN"",101,4304,10,2,""^"")"
^XMB(3.9,55,2,4180,0)="IBCE PRVFAC EDIT"
^XMB(3.9,55,2,4181,0)="""KRN"",101,4304,10,3,0)"
^XMB(3.9,55,2,4182,0)="4298^^15^"
^XMB(3.9,55,2,4183,0)="""KRN"",101,4304,10,3,""^"")"
^XMB(3.9,55,2,4184,0)="IBCE PRVFAC DEL"
^XMB(3.9,55,2,4185,0)="""KRN"",101,4304,10,4,0)"
^XMB(3.9,55,2,4186,0)="1734^^100^"
^XMB(3.9,55,2,4187,0)="""KRN"",101,4304,10,4,""^"")"
^XMB(3.9,55,2,4188,0)="IBCE EXIT"
^XMB(3.9,55,2,4189,0)="""KRN"",101,4304,15)"
^XMB(3.9,55,2,4190,0)="I $G(IBFASTXT) S VALMBCK=""Q"""
^XMB(3.9,55,2,4191,0)="""KRN"",101,4304,24)"
^XMB(3.9,55,2,4192,0)=""
^XMB(3.9,55,2,4193,0)="""KRN"",101,4304,26)"
^XMB(3.9,55,2,4194,0)="D SHOW^VALM"
^XMB(3.9,55,2,4195,0)="""KRN"",101,4304,28)"
^XMB(3.9,55,2,4196,0)="Select Action: "
^XMB(3.9,55,2,4197,0)="""KRN"",101,4304,99)"
^XMB(3.9,55,2,4198,0)="60341,932"
^XMB(3.9,55,2,4199,0)="""KRN"",101,4305,-1)"
^XMB(3.9,55,2,4200,0)="0^64"
^XMB(3.9,55,2,4201,0)="""KRN"",101,4305,0)"
^XMB(3.9,55,2,4202,0)="IBCE INSCO ID MAINT MENU^^^M^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,4203,0)="""KRN"",101,4305,4)"
^XMB(3.9,55,2,4204,0)="35"
^XMB(3.9,55,2,4205,0)="""KRN"",101,4305,10,0)"
^XMB(3.9,55,2,4206,0)="^101.01PA^3^3"
^XMB(3.9,55,2,4207,0)="""KRN"",101,4305,10,1,0)"
^XMB(3.9,55,2,4208,0)="4306^^5^"
^XMB(3.9,55,2,4209,0)="""KRN"",101,4305,10,1,""^"")"
^XMB(3.9,55,2,4210,0)="IBCE INSCO ID MAINT EDIT PARAMS"
^XMB(3.9,55,2,4211,0)="""KRN"",101,4305,10,2,0)"
^XMB(3.9,55,2,4212,0)="1734^^99^"
^XMB(3.9,55,2,4213,0)="""KRN"",101,4305,10,2,""^"")"
^XMB(3.9,55,2,4214,0)="IBCE EXIT"
^XMB(3.9,55,2,4215,0)="""KRN"",101,4305,10,3,0)"
^XMB(3.9,55,2,4216,0)="4310^^10^"
^XMB(3.9,55,2,4217,0)="""KRN"",101,4305,10,3,""^"")"
^XMB(3.9,55,2,4218,0)="IBCE INSCO ID MAINT BILL PROV"
^XMB(3.9,55,2,4219,0)="""KRN"",101,4305,15)"
^XMB(3.9,55,2,4220,0)="I $G(IBFASTXT) S VALMBCK=""Q"""
^XMB(3.9,55,2,4221,0)="""KRN"",101,4305,26)"
^XMB(3.9,55,2,4222,0)="D SHOW^VALM"
^XMB(3.9,55,2,4223,0)="""KRN"",101,4305,28)"
^XMB(3.9,55,2,4224,0)="Select Action: "
^XMB(3.9,55,2,4225,0)="""KRN"",101,4305,99)"
^XMB(3.9,55,2,4226,0)="60256,12092"
^XMB(3.9,55,2,4227,0)="""KRN"",101,4306,-1)"
^XMB(3.9,55,2,4228,0)="0^63"
^XMB(3.9,55,2,4229,0)="""KRN"",101,4306,0)"
^XMB(3.9,55,2,4230,0)="IBCE INSCO ID MAINT EDIT PARAMS^Edit Params^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,4231,0)="""KRN"",101,4306,20)"
^XMB(3.9,55,2,4232,0)="D IDPARAM^IBCEPB"
^XMB(3.9,55,2,4233,0)="""KRN"",101,4306,99)"
^XMB(3.9,55,2,4234,0)="60256,9206"
^XMB(3.9,55,2,4235,0)="""KRN"",101,4307,-1)"
^XMB(3.9,55,2,4236,0)="0^59"
^XMB(3.9,55,2,4237,0)="""KRN"",101,4307,0)"
^XMB(3.9,55,2,4238,0)="IBCE INSCO BILL PROV MAINT ADD^Add Plan^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,4239,0)="""KRN"",101,4307,20)"
^XMB(3.9,55,2,4240,0)="D ADD^IBCEPC"
^XMB(3.9,55,2,4241,0)="""KRN"",101,4307,99)"
^XMB(3.9,55,2,4242,0)="60256,11231"
^XMB(3.9,55,2,4243,0)="""KRN"",101,4308,-1)"
^XMB(3.9,55,2,4244,0)="0^60"
^XMB(3.9,55,2,4245,0)="""KRN"",101,4308,0)"
^XMB(3.9,55,2,4246,0)="IBCE INSCO BILL PROV MAINT DEL^Delete Plan^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,4247,0)="""KRN"",101,4308,20)"
^XMB(3.9,55,2,4248,0)="D DEL^IBCEPC"
^XMB(3.9,55,2,4249,0)="""KRN"",101,4308,99)"
^XMB(3.9,55,2,4250,0)="60256,11302"
^XMB(3.9,55,2,4251,0)="""KRN"",101,4309,-1)"
^XMB(3.9,55,2,4252,0)="0^61"
^XMB(3.9,55,2,4253,0)="""KRN"",101,4309,0)"
^XMB(3.9,55,2,4254,0)="IBCE INSCO BILL PROV MAINT MENU^^^M^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,4255,0)="""KRN"",101,4309,4)"
^XMB(3.9,55,2,4256,0)="25"
^XMB(3.9,55,2,4257,0)="""KRN"",101,4309,10,0)"
^XMB(3.9,55,2,4258,0)="^101.01PA^3^3"
^XMB(3.9,55,2,4259,0)="""KRN"",101,4309,10,1,0)"
^XMB(3.9,55,2,4260,0)="4307^^5^"
^XMB(3.9,55,2,4261,0)="""KRN"",101,4309,10,1,""^"")"
^XMB(3.9,55,2,4262,0)="IBCE INSCO BILL PROV MAINT ADD"
^XMB(3.9,55,2,4263,0)="""KRN"",101,4309,10,2,0)"
^XMB(3.9,55,2,4264,0)="4308^^10^"
^XMB(3.9,55,2,4265,0)="""KRN"",101,4309,10,2,""^"")"
^XMB(3.9,55,2,4266,0)="IBCE INSCO BILL PROV MAINT DEL"
^XMB(3.9,55,2,4267,0)="""KRN"",101,4309,10,3,0)"
^XMB(3.9,55,2,4268,0)="1734^^99^"
^XMB(3.9,55,2,4269,0)="""KRN"",101,4309,10,3,""^"")"
^XMB(3.9,55,2,4270,0)="IBCE EXIT"
^XMB(3.9,55,2,4271,0)="""KRN"",101,4309,15)"
^XMB(3.9,55,2,4272,0)="I $G(IBFASTXT) S VALMBCK=""Q"""
^XMB(3.9,55,2,4273,0)="""KRN"",101,4309,26)"
^XMB(3.9,55,2,4274,0)="D SHOW^VALM"
^XMB(3.9,55,2,4275,0)="""KRN"",101,4309,28)"
^XMB(3.9,55,2,4276,0)="Select Action: "
^XMB(3.9,55,2,4277,0)="""KRN"",101,4309,99)"
^XMB(3.9,55,2,4278,0)="60256,12098"
^XMB(3.9,55,2,4279,0)="""KRN"",101,4310,-1)"
^XMB(3.9,55,2,4280,0)="0^62"
^XMB(3.9,55,2,4281,0)="""KRN"",101,4310,0)"
^XMB(3.9,55,2,4282,0)="IBCE INSCO ID MAINT BILL PROV^Edit Billing Prov Params^^A^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,4283,0)="""KRN"",101,4310,20)"
^XMB(3.9,55,2,4284,0)="D BILLPRVP^IBCEPB"
^XMB(3.9,55,2,4285,0)="""KRN"",101,4310,99)"
^XMB(3.9,55,2,4286,0)="60256,11839"
^XMB(3.9,55,2,4287,0)="""KRN"",101,4311,-1)"
^XMB(3.9,55,2,4288,0)="0^56"
^XMB(3.9,55,2,4289,0)="""KRN"",101,4311,0)"
^XMB(3.9,55,2,4290,0)="IBCE PRVFAC VALF MAINT^^^M^^^^^^^^INTEGRATED BILLING"
^XMB(3.9,55,2,4291,0)="""KRN"",101,4311,4)"
^XMB(3.9,55,2,4292,0)="38"
^XMB(3.9,55,2,4293,0)="""KRN"",101,4311,10,0)"
^XMB(3.9,55,2,4294,0)="^101.01PA^4^4"
^XMB(3.9,55,2,4295,0)="""KRN"",101,4311,10,1,0)"
^XMB(3.9,55,2,4296,0)="4297^^5^"
^XMB(3.9,55,2,4297,0)="""KRN"",101,4311,10,1,""^"")"
^XMB(3.9,55,2,4298,0)="IBCE PRVFAC ADD"
^XMB(3.9,55,2,4299,0)="""KRN"",101,4311,10,2,0)"
^XMB(3.9,55,2,4300,0)="3293^^10^"
^XMB(3.9,55,2,4301,0)="""KRN"",101,4311,10,2,""^"")"
^XMB(3.9,55,2,4302,0)="IBCE PRVFAC EDIT"
^XMB(3.9,55,2,4303,0)="""KRN"",101,4311,10,3,0)"
^XMB(3.9,55,2,4304,0)="4298^^15^"
^XMB(3.9,55,2,4305,0)="""KRN"",101,4311,10,3,""^"")"
^XMB(3.9,55,2,4306,0)="IBCE PRVFAC DEL"
^XMB(3.9,55,2,4307,0)="""KRN"",101,4311,10,4,0)"
^XMB(3.9,55,2,4308,0)="1734^^99^"
^XMB(3.9,55,2,4309,0)="""KRN"",101,4311,10,4,""^"")"
^XMB(3.9,55,2,4310,0)="IBCE EXIT"
^XMB(3.9,55,2,4311,0)="""KRN"",101,4311,15)"
^XMB(3.9,55,2,4312,0)="I $G(IBFASTXT) S VALMBCK=""Q"""
^XMB(3.9,55,2,4313,0)="""KRN"",101,4311,26)"
^XMB(3.9,55,2,4314,0)="D SHOW^VALM"
^XMB(3.9,55,2,4315,0)="""KRN"",101,4311,28)"
^XMB(3.9,55,2,4316,0)="Select Action: "
^XMB(3.9,55,2,4317,0)="""KRN"",101,4311,99)"
^XMB(3.9,55,2,4318,0)="60261,71352"
^XMB(3.9,55,2,4319,0)="""KRN"",409.61,506,-1)"
^XMB(3.9,55,2,4320,0)="0^1"
^XMB(3.9,55,2,4321,0)="""KRN"",409.61,506,0)"
^XMB(3.9,55,2,4322,0)="IBCEM CSA LIST^1^^80^4^20^1^1^Claims Status^IBCEM CLAIMS STATUS AWAITING^Claims Status Awaiting List^^^"
^XMB(3.9,55,2,4323,0)="""KRN"",409.61,506,1)"
^XMB(3.9,55,2,4324,0)="^VALM HIDDEN ACTIONS"
^XMB(3.9,55,2,4325,0)="""KRN"",409.61,506,""ARRAY"")"
^XMB(3.9,55,2,4326,0)=" ^TMP(""IBCECSA"",$J)"
^XMB(3.9,55,2,4327,0)="""KRN"",409.61,506,""COL"",0)"
^XMB(3.9,55,2,4328,0)="^409.621^7^7"
^XMB(3.9,55,2,4329,0)="""KRN"",409.61,506,""COL"",1,0)"
^XMB(3.9,55,2,4330,0)="NUMBER^1^4^^^0"
^XMB(3.9,55,2,4331,0)="""KRN"",409.61,506,""COL"",2,0)"
^XMB(3.9,55,2,4332,0)="BILL^6^8^Bill #^^0"
^XMB(3.9,55,2,4333,0)="""KRN"",409.61,506,""COL"",3,0)"
^XMB(3.9,55,2,4334,0)="PNAME^15^18^Payer Name^^0"
^XMB(3.9,55,2,4335,0)="""KRN"",409.61,506,""COL"",4,0)"
^XMB(3.9,55,2,4336,0)="PANAME^35^20^Patient Name^^0"
^XMB(3.9,55,2,4337,0)="""KRN"",409.61,506,""COL"",5,0)"
^XMB(3.9,55,2,4338,0)="SSN^56^4^ SSN^^0"
^XMB(3.9,55,2,4339,0)="""KRN"",409.61,506,""COL"",6,0)"
^XMB(3.9,55,2,4340,0)="SERVICE^62^8^Svc Date^^0"
^XMB(3.9,55,2,4341,0)="""KRN"",409.61,506,""COL"",7,0)"
^XMB(3.9,55,2,4342,0)="CURBAL^71^10^  Curr Bal^^0"
^XMB(3.9,55,2,4343,0)="""KRN"",409.61,506,""COL"",""AIDENT"",0,1)"
^XMB(3.9,55,2,4344,0)=""
^XMB(3.9,55,2,4345,0)="""KRN"",409.61,506,""COL"",""AIDENT"",0,2)"
^XMB(3.9,55,2,4346,0)=""
^XMB(3.9,55,2,4347,0)="""KRN"",409.61,506,""COL"",""AIDENT"",0,3)"
^XMB(3.9,55,2,4348,0)=""
^XMB(3.9,55,2,4349,0)="""KRN"",409.61,506,""COL"",""AIDENT"",0,4)"
^XMB(3.9,55,2,4350,0)=""
^XMB(3.9,55,2,4351,0)="""KRN"",409.61,506,""COL"",""AIDENT"",0,5)"
^XMB(3.9,55,2,4352,0)=""
^XMB(3.9,55,2,4353,0)="""KRN"",409.61,506,""COL"",""AIDENT"",0,6)"
^XMB(3.9,55,2,4354,0)=""
^XMB(3.9,55,2,4355,0)="""KRN"",409.61,506,""COL"",""AIDENT"",0,7)"
^XMB(3.9,55,2,4356,0)=""
^XMB(3.9,55,2,4357,0)="""KRN"",409.61,506,""COL"",""B"",""BILL"",2)"
^XMB(3.9,55,2,4358,0)=""
^XMB(3.9,55,2,4359,0)="""KRN"",409.61,506,""COL"",""B"",""CURBAL"",7)"
^XMB(3.9,55,2,4360,0)=""
^XMB(3.9,55,2,4361,0)="""KRN"",409.61,506,""COL"",""B"",""NUMBER"",1)"
^XMB(3.9,55,2,4362,0)=""
^XMB(3.9,55,2,4363,0)="""KRN"",409.61,506,""COL"",""B"",""PANAME"",4)"
^XMB(3.9,55,2,4364,0)=""
^XMB(3.9,55,2,4365,0)="""KRN"",409.61,506,""COL"",""B"",""PNAME"",3)"
^XMB(3.9,55,2,4366,0)=""
^XMB(3.9,55,2,4367,0)="""KRN"",409.61,506,""COL"",""B"",""SERVICE"",6)"
^XMB(3.9,55,2,4368,0)=""
^XMB(3.9,55,2,4369,0)="""KRN"",409.61,506,""COL"",""B"",""SSN"",5)"
^XMB(3.9,55,2,4370,0)=""
^XMB(3.9,55,2,4371,0)="""KRN"",409.61,506,""FNL"")"
^XMB(3.9,55,2,4372,0)="D EXIT^IBCECSA"
^XMB(3.9,55,2,4373,0)="""KRN"",409.61,506,""HDR"")"
^XMB(3.9,55,2,4374,0)="D HDR^IBCECSA"
^XMB(3.9,55,2,4375,0)="""KRN"",409.61,506,""HLP"")"
^XMB(3.9,55,2,4376,0)="D HELP^IBCECSA"
^XMB(3.9,55,2,4377,0)="""KRN"",409.61,506,""INIT"")"
^XMB(3.9,55,2,4378,0)="D INIT^IBCECSA"
^XMB(3.9,55,2,4379,0)="""KRN"",409.61,507,-1)"
^XMB(3.9,55,2,4380,0)="0^2"
^XMB(3.9,55,2,4381,0)="""KRN"",409.61,507,0)"
^XMB(3.9,55,2,4382,0)="IBCEM CSA MSG^1^^80^6^18^1^1^Claims Status^IBCEM CSA MSG MENU^Claims Status Awaiting^1^^1"
^XMB(3.9,55,2,4383,0)="""KRN"",409.61,507,1)"
^XMB(3.9,55,2,4384,0)="^VALM HIDDEN ACTIONS"
^XMB(3.9,55,2,4385,0)="""KRN"",409.61,507,""ARRAY"")"
^XMB(3.9,55,2,4386,0)=" ^TMP(""IBCECSC"",$J)"
^XMB(3.9,55,2,4387,0)="""KRN"",409.61,507,""COL"",0)"
^XMB(3.9,55,2,4388,0)="^409.621^6^6"
^XMB(3.9,55,2,4389,0)="""KRN"",409.61,507,""COL"",1,0)"
^XMB(3.9,55,2,4390,0)="BILL^6^8^Bill #"
^XMB(3.9,55,2,4391,0)="""KRN"",409.61,507,""COL"",2,0)"
^XMB(3.9,55,2,4392,0)="PNAME^15^18^Payer Name"
^XMB(3.9,55,2,4393,0)="""KRN"",409.61,507,""COL"",3,0)"
^XMB(3.9,55,2,4394,0)="PANAME^35^20^Patient Name"
^XMB(3.9,55,2,4395,0)="""KRN"",409.61,507,""COL"",4,0)"
^XMB(3.9,55,2,4396,0)="SSN^56^4^ SSN"
^XMB(3.9,55,2,4397,0)="""KRN"",409.61,507,""COL"",5,0)"
^XMB(3.9,55,2,4398,0)="SERVICE^62^8^Svc Date"
^XMB(3.9,55,2,4399,0)="""KRN"",409.61,507,""COL"",6,0)"
^XMB(3.9,55,2,4400,0)="CURBAL^71^10^  Curr Bal"
^XMB(3.9,55,2,4401,0)="""KRN"",409.61,507,""COL"",""B"",""BILL"",1)"
^XMB(3.9,55,2,4402,0)=""
^XMB(3.9,55,2,4403,0)="""KRN"",409.61,507,""COL"",""B"",""CURBAL"",6)"
^XMB(3.9,55,2,4404,0)=""
^XMB(3.9,55,2,4405,0)="""KRN"",409.61,507,""COL"",""B"",""PANAME"",3)"
^XMB(3.9,55,2,4406,0)=""
^XMB(3.9,55,2,4407,0)="""KRN"",409.61,507,""COL"",""B"",""PNAME"",2)"
^XMB(3.9,55,2,4408,0)=""
^XMB(3.9,55,2,4409,0)="""KRN"",409.61,507,""COL"",""B"",""SERVICE"",5)"
^XMB(3.9,55,2,4410,0)=""
^XMB(3.9,55,2,4411,0)="""KRN"",409.61,507,""COL"",""B"",""SSN"",4)"
^XMB(3.9,55,2,4412,0)=""
^XMB(3.9,55,2,4413,0)="""KRN"",409.61,507,""FNL"")"
^XMB(3.9,55,2,4414,0)="D EXIT^IBCECSA2"
^XMB(3.9,55,2,4415,0)="""KRN"",409.61,507,""HDR"")"
^XMB(3.9,55,2,4416,0)="D HDR^IBCECSA2"
^XMB(3.9,55,2,4417,0)="""KRN"",409.61,507,""HLP"")"
^XMB(3.9,55,2,4418,0)="D HELP^IBCECSA2"
^XMB(3.9,55,2,4419,0)="""KRN"",409.61,507,""INIT"")"
^XMB(3.9,55,2,4420,0)="D INIT^IBCECSA2"
^XMB(3.9,55,2,4421,0)="""KRN"",409.61,543,-1)"
^XMB(3.9,55,2,4422,0)="0^10"
^XMB(3.9,55,2,4423,0)="""KRN"",409.61,543,0)"
^XMB(3.9,55,2,4424,0)="IBCE PRVPRV MAINT^1^^80^6^18^1^1^Performing Provider ID^IBCE PRVPRV MAINT^Performing Provider ID^1^^1"
^XMB(3.9,55,2,4425,0)="""KRN"",409.61,543,1)"
^XMB(3.9,55,2,4426,0)="^VALM HIDDEN ACTIONS"
^XMB(3.9,55,2,4427,0)="""KRN"",409.61,543,""ARRAY"")"
^XMB(3.9,55,2,4428,0)=" ^TMP(""IBPRV_"",$J)"
^XMB(3.9,55,2,4429,0)="""KRN"",409.61,543,""COL"",0)"
^XMB(3.9,55,2,4430,0)="^409.621^6^5"
^XMB(3.9,55,2,4431,0)="""KRN"",409.61,543,""COL"",1,0)"
^XMB(3.9,55,2,4432,0)="IDTYPE^6^20^ID Qualifier"
^XMB(3.9,55,2,4433,0)="""KRN"",409.61,543,""COL"",2,0)"
^XMB(3.9,55,2,4434,0)="FORMTYPE^28^5^Form"
^XMB(3.9,55,2,4435,0)="""KRN"",409.61,543,""COL"",3,0)"
^XMB(3.9,55,2,4436,0)="CARETYPE^35^10^Care Type"
^XMB(3.9,55,2,4437,0)="""KRN"",409.61,543,""COL"",5,0)"
^XMB(3.9,55,2,4438,0)="PROVID^64^15^ID #"
^XMB(3.9,55,2,4439,0)="""KRN"",409.61,543,""COL"",6,0)"
^XMB(3.9,55,2,4440,0)="CAREUNIT^48^15^Care Unit"
^XMB(3.9,55,2,4441,0)="""KRN"",409.61,543,""COL"",""B"",""CARETYPE"",3)"
^XMB(3.9,55,2,4442,0)=""
^XMB(3.9,55,2,4443,0)="""KRN"",409.61,543,""COL"",""B"",""CAREUNIT"",6)"
^XMB(3.9,55,2,4444,0)=""
^XMB(3.9,55,2,4445,0)="""KRN"",409.61,543,""COL"",""B"",""FORMTYPE"",2)"
^XMB(3.9,55,2,4446,0)=""
^XMB(3.9,55,2,4447,0)="""KRN"",409.61,543,""COL"",""B"",""IDTYPE"",1)"
^XMB(3.9,55,2,4448,0)=""
^XMB(3.9,55,2,4449,0)="""KRN"",409.61,543,""COL"",""B"",""PROVID"",5)"
^XMB(3.9,55,2,4450,0)=""
^XMB(3.9,55,2,4451,0)="""KRN"",409.61,543,""EXP"")"
^XMB(3.9,55,2,4452,0)="D EXPND^IBCEP5"
^XMB(3.9,55,2,4453,0)="""KRN"",409.61,543,""FNL"")"
^XMB(3.9,55,2,4454,0)="D EXIT^IBCEP5"
^XMB(3.9,55,2,4455,0)="""KRN"",409.61,543,""HDR"")"
^XMB(3.9,55,2,4456,0)="D HDR^IBCEP5"
^XMB(3.9,55,2,4457,0)="""KRN"",409.61,543,""HLP"")"
^XMB(3.9,55,2,4458,0)="D HELP^IBCEP5"
^XMB(3.9,55,2,4459,0)="""KRN"",409.61,543,""INIT"")"
^XMB(3.9,55,2,4460,0)="D INIT^IBCEP5"
^XMB(3.9,55,2,4461,0)="""KRN"",409.61,545,-1)"
^XMB(3.9,55,2,4462,0)="0^4"
^XMB(3.9,55,2,4463,0)="""KRN"",409.61,545,0)"
^XMB(3.9,55,2,4464,0)="IBCE PRVMAINT^1^^80^3^19^1^1^EDIT OPTION^IBCE PRVMAINT^Provider ID Maintenance^1^^1"
^XMB(3.9,55,2,4465,0)="""KRN"",409.61,545,1)"
^XMB(3.9,55,2,4466,0)="^VALM HIDDEN ACTIONS"
^XMB(3.9,55,2,4467,0)="""KRN"",409.61,545,""ARRAY"")"
^XMB(3.9,55,2,4468,0)=" ^TMP(""IBCE_PRVMAINT_MENU"",$J)"
^XMB(3.9,55,2,4469,0)="""KRN"",409.61,545,""FNL"")"
^XMB(3.9,55,2,4470,0)="D EXIT^IBCEP6"
^XMB(3.9,55,2,4471,0)="""KRN"",409.61,545,""HDR"")"
^XMB(3.9,55,2,4472,0)="D HDR^IBCEP6"
^XMB(3.9,55,2,4473,0)="""KRN"",409.61,545,""HLP"")"
^XMB(3.9,55,2,4474,0)="D HELP^IBCEP6"
^XMB(3.9,55,2,4475,0)="""KRN"",409.61,545,""INIT"")"
^XMB(3.9,55,2,4476,0)="D INIT^IBCEP6"
^XMB(3.9,55,2,4477,0)="""KRN"",409.61,546,-1)"
^XMB(3.9,55,2,4478,0)="0^11"
^XMB(3.9,55,2,4479,0)="""KRN"",409.61,546,0)"
^XMB(3.9,55,2,4480,0)="IBCE PRVFAC MAINT^1^^80^5^18^1^1^Billing Provider IDs^IBCE PRVFAC MAINT^Billing Provider IDs^1^^1"
^XMB(3.9,55,2,4481,0)="""KRN"",409.61,546,1)"
^XMB(3.9,55,2,4482,0)="^VALM HIDDEN ACTIONS"
^XMB(3.9,55,2,4483,0)="""KRN"",409.61,546,""ARRAY"")"
^XMB(3.9,55,2,4484,0)=" ^TMP(""IBCE_PRVFAC_MAINT"",$J)"
^XMB(3.9,55,2,4485,0)="""KRN"",409.61,546,""COL"",0)"
^XMB(3.9,55,2,4486,0)="^409.621^3^3"
^XMB(3.9,55,2,4487,0)="""KRN"",409.61,546,""COL"",1,0)"
^XMB(3.9,55,2,4488,0)="PTYPE^6^25^ID Qualifier"
^XMB(3.9,55,2,4489,0)="""KRN"",409.61,546,""COL"",2,0)"
^XMB(3.9,55,2,4490,0)="PID^34^15^ID #"
^XMB(3.9,55,2,4491,0)="""KRN"",409.61,546,""COL"",3,0)"
^XMB(3.9,55,2,4492,0)="SPEC^51^28^Form Type"
^XMB(3.9,55,2,4493,0)="""KRN"",409.61,546,""COL"",""B"",""PID"",2)"
^XMB(3.9,55,2,4494,0)=""
^XMB(3.9,55,2,4495,0)="""KRN"",409.61,546,""COL"",""B"",""PTYPE"",1)"
^XMB(3.9,55,2,4496,0)=""
^XMB(3.9,55,2,4497,0)="""KRN"",409.61,546,""COL"",""B"",""SPEC"",3)"
^XMB(3.9,55,2,4498,0)=""
^XMB(3.9,55,2,4499,0)="""KRN"",409.61,546,""EXP"")"
^XMB(3.9,55,2,4500,0)="D EXPND^IBCEP7"
^XMB(3.9,55,2,4501,0)="""KRN"",409.61,546,""FNL"")"
^XMB(3.9,55,2,4502,0)="D EXIT^IBCEP7"
^XMB(3.9,55,2,4503,0)="""KRN"",409.61,546,""HDR"")"
^XMB(3.9,55,2,4504,0)="D HDR^IBCEP7"
^XMB(3.9,55,2,4505,0)="""KRN"",409.61,546,""HLP"")"
^XMB(3.9,55,2,4506,0)="D HELP^IBCEP7"
^XMB(3.9,55,2,4507,0)="""KRN"",409.61,546,""INIT"")"
^XMB(3.9,55,2,4508,0)="D INIT^IBCEP7"
^XMB(3.9,55,2,4509,0)="""KRN"",409.61,547,-1)"
^XMB(3.9,55,2,4510,0)="0^5"
^XMB(3.9,55,2,4511,0)="""KRN"",409.61,547,0)"
^XMB(3.9,55,2,4512,0)="IBCE PRVNVA MAINT^1^^80^4^18^1^1^Non-VA Provider^IBCE PRVNVA MAINT^NON-VA PROVIDER INFORMATION^1^^1"
^XMB(3.9,55,2,4513,0)="""KRN"",409.61,547,1)"
^XMB(3.9,55,2,4514,0)="^VALM HIDDEN ACTIONS"
^XMB(3.9,55,2,4515,0)="""KRN"",409.61,547,""ARRAY"")"
^XMB(3.9,55,2,4516,0)=" ^TMP(""IBPRV_PRVNVA_MAINT"",$J)"
^XMB(3.9,55,2,4517,0)="""KRN"",409.61,547,""COL"",0)"
^XMB(3.9,55,2,4518,0)="^409.621^^0"
^XMB(3.9,55,2,4519,0)="""KRN"",409.61,547,""EXP"")"
^XMB(3.9,55,2,4520,0)="D EXPND^IBCEP8"
^XMB(3.9,55,2,4521,0)="""KRN"",409.61,547,""FNL"")"
^XMB(3.9,55,2,4522,0)="D EXIT^IBCEP8"
^XMB(3.9,55,2,4523,0)="""KRN"",409.61,547,""HDR"")"
^XMB(3.9,55,2,4524,0)="D HDR^IBCEP8"
^XMB(3.9,55,2,4525,0)="""KRN"",409.61,547,""HLP"")"
^XMB(3.9,55,2,4526,0)="D HELP^IBCEP8"
^XMB(3.9,55,2,4527,0)="""KRN"",409.61,547,""INIT"")"
^XMB(3.9,55,2,4528,0)="D INIT^IBCEP8"
^XMB(3.9,55,2,4529,0)="""KRN"",409.61,714,-1)"
^XMB(3.9,55,2,4530,0)="0^9"
^XMB(3.9,55,2,4531,0)="""KRN"",409.61,714,0)"
^XMB(3.9,55,2,4532,0)="IBCE VIEW PREV TRANS2^1^^126^7^19^1^1^CLAIM^IBCE VIEW PREV TRANS MENU^PREVIOUSLY TRANSMITTED CLAIMS^1^^1"
^XMB(3.9,55,2,4533,0)="""KRN"",409.61,714,1)"
^XMB(3.9,55,2,4534,0)="^VALM HIDDEN ACTIONS"
^XMB(3.9,55,2,4535,0)="""KRN"",409.61,714,""ARRAY"")"
^XMB(3.9,55,2,4536,0)=" ^TMP(""IB_PREV_CLAIM_LIST"",$J)"
^XMB(3.9,55,2,4537,0)="""KRN"",409.61,714,""COL"",0)"
^XMB(3.9,55,2,4538,0)="^409.621^11^11"
^XMB(3.9,55,2,4539,0)="""KRN"",409.61,714,""COL"",1,0)"
^XMB(3.9,55,2,4540,0)="CLAIM^7^9^Claim #^^1"
^XMB(3.9,55,2,4541,0)="""KRN"",409.61,714,""COL"",2,0)"
^XMB(3.9,55,2,4542,0)="FORM^17^4^Form"
^XMB(3.9,55,2,4543,0)="""KRN"",409.61,714,""COL"",3,0)"
^XMB(3.9,55,2,4544,0)="TYPE^22^5^Type"
^XMB(3.9,55,2,4545,0)="""KRN"",409.61,714,""COL"",4,0)"
^XMB(3.9,55,2,4546,0)="SEQ^27^3^Seq"
^XMB(3.9,55,2,4547,0)="""KRN"",409.61,714,""COL"",5,0)"
^XMB(3.9,55,2,4548,0)="STATUS^32^11^Status"
^XMB(3.9,55,2,4549,0)="""KRN"",409.61,714,""COL"",6,0)"
^XMB(3.9,55,2,4550,0)="OTHER_PAYERS^51^18^Other Payer(s)"
^XMB(3.9,55,2,4551,0)="""KRN"",409.61,714,""COL"",7,0)"
^XMB(3.9,55,2,4552,0)="LAST_TRANSMIT^93^13^Last Transmit"
^XMB(3.9,55,2,4553,0)="""KRN"",409.61,714,""COL"",8,0)"
^XMB(3.9,55,2,4554,0)="BATCH^110^12^Batch Number"
^XMB(3.9,55,2,4555,0)="""KRN"",409.61,714,""COL"",9,0)"
^XMB(3.9,55,2,4556,0)="NUMBER^1^6^ #"
^XMB(3.9,55,2,4557,0)="""KRN"",409.61,714,""COL"",10,0)"
^XMB(3.9,55,2,4558,0)="ARSTAT^44^4^A/R"
^XMB(3.9,55,2,4559,0)="""KRN"",409.61,714,""COL"",11,0)"
^XMB(3.9,55,2,4560,0)="PATIENTNAME^71^18^Patient Name"
^XMB(3.9,55,2,4561,0)="""KRN"",409.61,714,""COL"",""AIDENT"",1,1)"
^XMB(3.9,55,2,4562,0)=""
^XMB(3.9,55,2,4563,0)="""KRN"",409.61,714,""COL"",""B"",""ARSTAT"",10)"
^XMB(3.9,55,2,4564,0)=""
^XMB(3.9,55,2,4565,0)="""KRN"",409.61,714,""COL"",""B"",""BATCH"",8)"
^XMB(3.9,55,2,4566,0)=""
^XMB(3.9,55,2,4567,0)="""KRN"",409.61,714,""COL"",""B"",""CLAIM"",1)"
^XMB(3.9,55,2,4568,0)=""
^XMB(3.9,55,2,4569,0)="""KRN"",409.61,714,""COL"",""B"",""FORM"",2)"
^XMB(3.9,55,2,4570,0)=""
^XMB(3.9,55,2,4571,0)="""KRN"",409.61,714,""COL"",""B"",""LAST_TRANSMIT"",7)"
^XMB(3.9,55,2,4572,0)=""
^XMB(3.9,55,2,4573,0)="""KRN"",409.61,714,""COL"",""B"",""NUMBER"",9)"
^XMB(3.9,55,2,4574,0)=""
^XMB(3.9,55,2,4575,0)="""KRN"",409.61,714,""COL"",""B"",""OTHER_PAYERS"",6)"
^XMB(3.9,55,2,4576,0)=""
^XMB(3.9,55,2,4577,0)="""KRN"",409.61,714,""COL"",""B"",""PATIENTNAME"",11)"
^XMB(3.9,55,2,4578,0)=""
^XMB(3.9,55,2,4579,0)="""KRN"",409.61,714,""COL"",""B"",""SEQ"",4)"
^XMB(3.9,55,2,4580,0)=""
^XMB(3.9,55,2,4581,0)="""KRN"",409.61,714,""COL"",""B"",""STATUS"",5)"
^XMB(3.9,55,2,4582,0)=""
^XMB(3.9,55,2,4583,0)="""KRN"",409.61,714,""COL"",""B"",""TYPE"",3)"
^XMB(3.9,55,2,4584,0)=""
^XMB(3.9,55,2,4585,0)="""KRN"",409.61,714,""FNL"")"
^XMB(3.9,55,2,4586,0)="D EXIT^IBCEPTC2"
^XMB(3.9,55,2,4587,0)="""KRN"",409.61,714,""HDR"")"
^XMB(3.9,55,2,4588,0)="D HDR^IBCEPTC2"
^XMB(3.9,55,2,4589,0)="""KRN"",409.61,714,""HLP"")"
^XMB(3.9,55,2,4590,0)="Q"
^XMB(3.9,55,2,4591,0)="""KRN"",409.61,714,""INIT"")"
^XMB(3.9,55,2,4592,0)="D INIT^IBCEPTC2"
^XMB(3.9,55,2,4593,0)="""KRN"",409.61,715,-1)"
^XMB(3.9,55,2,4594,0)="0^8"
^XMB(3.9,55,2,4595,0)="""KRN"",409.61,715,0)"
^XMB(3.9,55,2,4596,0)="IBCE VIEW PREV TRANS1^1^^143^6^19^1^1^CLAIM^IBCE VIEW PREV TRANS MENU^PREVIOUSLY TRANSMITTED CLAIMS^1^^1"
^XMB(3.9,55,2,4597,0)="""KRN"",409.61,715,1)"
^XMB(3.9,55,2,4598,0)="^VALM HIDDEN ACTIONS"
^XMB(3.9,55,2,4599,0)="""KRN"",409.61,715,""ARRAY"")"
^XMB(3.9,55,2,4600,0)=" ^TMP(""IB_PREV_CLAIM_LIST"",$J)"
^XMB(3.9,55,2,4601,0)="""KRN"",409.61,715,""COL"",0)"
^XMB(3.9,55,2,4602,0)="^409.621^11^11"
^XMB(3.9,55,2,4603,0)="""KRN"",409.61,715,""COL"",1,0)"
^XMB(3.9,55,2,4604,0)="CLAIM^7^9^Claim #^^1"
^XMB(3.9,55,2,4605,0)="""KRN"",409.61,715,""COL"",2,0)"
^XMB(3.9,55,2,4606,0)="FORM^17^4^Form"
^XMB(3.9,55,2,4607,0)="""KRN"",409.61,715,""COL"",3,0)"
^XMB(3.9,55,2,4608,0)="TYPE^22^5^Type"
^XMB(3.9,55,2,4609,0)="""KRN"",409.61,715,""COL"",4,0)"
^XMB(3.9,55,2,4610,0)="SEQ^27^3^Seq"
^XMB(3.9,55,2,4611,0)="""KRN"",409.61,715,""COL"",5,0)"
^XMB(3.9,55,2,4612,0)="STATUS^32^11^Status"
^XMB(3.9,55,2,4613,0)="""KRN"",409.61,715,""COL"",6,0)"
^XMB(3.9,55,2,4614,0)="CURRENT_PAYER^49^25^Current Payer"
^XMB(3.9,55,2,4615,0)="""KRN"",409.61,715,""COL"",7,0)"
^XMB(3.9,55,2,4616,0)="PAYER_ADDRESS^75^29^Payer Address"
^XMB(3.9,55,2,4617,0)="""KRN"",409.61,715,""COL"",8,0)"
^XMB(3.9,55,2,4618,0)="OTHER_PAYERS^105^15^Other Payer(s)"
^XMB(3.9,55,2,4619,0)="""KRN"",409.61,715,""COL"",9,0)"
^XMB(3.9,55,2,4620,0)="NUMBER^1^6^ #"
^XMB(3.9,55,2,4621,0)="""KRN"",409.61,715,""COL"",10,0)"
^XMB(3.9,55,2,4622,0)="ARSTAT^44^4^A/R"
^XMB(3.9,55,2,4623,0)="""KRN"",409.61,715,""COL"",11,0)"
^XMB(3.9,55,2,4624,0)="PATIENTNAME^121^18^Patient Name"
^XMB(3.9,55,2,4625,0)="""KRN"",409.61,715,""COL"",""AIDENT"",1,1)"
^XMB(3.9,55,2,4626,0)=""
^XMB(3.9,55,2,4627,0)="""KRN"",409.61,715,""COL"",""B"",""ARSTAT"",10)"
^XMB(3.9,55,2,4628,0)=""
^XMB(3.9,55,2,4629,0)="""KRN"",409.61,715,""COL"",""B"",""CLAIM"",1)"
^XMB(3.9,55,2,4630,0)=""
^XMB(3.9,55,2,4631,0)="""KRN"",409.61,715,""COL"",""B"",""CURRENT_PAYER"",6)"
^XMB(3.9,55,2,4632,0)=""
^XMB(3.9,55,2,4633,0)="""KRN"",409.61,715,""COL"",""B"",""FORM"",2)"
^XMB(3.9,55,2,4634,0)=""
^XMB(3.9,55,2,4635,0)="""KRN"",409.61,715,""COL"",""B"",""NUMBER"",9)"
^XMB(3.9,55,2,4636,0)=""
^XMB(3.9,55,2,4637,0)="""KRN"",409.61,715,""COL"",""B"",""OTHER_PAYERS"",8)"
^XMB(3.9,55,2,4638,0)=""
^XMB(3.9,55,2,4639,0)="""KRN"",409.61,715,""COL"",""B"",""PATIENTNAME"",11)"
^XMB(3.9,55,2,4640,0)=""
^XMB(3.9,55,2,4641,0)="""KRN"",409.61,715,""COL"",""B"",""PAYER_ADDRESS"",7)"
^XMB(3.9,55,2,4642,0)=""
^XMB(3.9,55,2,4643,0)="""KRN"",409.61,715,""COL"",""B"",""SEQ"",4)"
^XMB(3.9,55,2,4644,0)=""
^XMB(3.9,55,2,4645,0)="""KRN"",409.61,715,""COL"",""B"",""STATUS"",5)"
^XMB(3.9,55,2,4646,0)=""
^XMB(3.9,55,2,4647,0)="""KRN"",409.61,715,""COL"",""B"",""TYPE"",3)"
^XMB(3.9,55,2,4648,0)=""
^XMB(3.9,55,2,4649,0)="""KRN"",409.61,715,""FNL"")"
^XMB(3.9,55,2,4650,0)="D EXIT^IBCEPTC2"
^XMB(3.9,55,2,4651,0)="""KRN"",409.61,715,""HDR"")"
^XMB(3.9,55,2,4652,0)="D HDR^IBCEPTC2"
^XMB(3.9,55,2,4653,0)="""KRN"",409.61,715,""HLP"")"
^XMB(3.9,55,2,4654,0)="Q"
^XMB(3.9,55,2,4655,0)="""KRN"",409.61,715,""INIT"")"
^XMB(3.9,55,2,4656,0)="D INIT^IBCEPTC2"
^XMB(3.9,55,2,4657,0)="""KRN"",409.61,744,-1)"
^XMB(3.9,55,2,4658,0)="0^3"
^XMB(3.9,55,2,4659,0)="""KRN"",409.61,744,0)"
^XMB(3.9,55,2,4660,0)="IBCEMC MCS MESSAGE LIST^1^^80^5^19^1^1^EDI Status Message^IBCEMC MENU^Multiple CSA Msg Management^1^^1"
^XMB(3.9,55,2,4661,0)="""KRN"",409.61,744,1)"
^XMB(3.9,55,2,4662,0)="^VALM HIDDEN ACTIONS"
^XMB(3.9,55,2,4663,0)="""KRN"",409.61,744,""ARRAY"")"
^XMB(3.9,55,2,4664,0)=" ^TMP($J,""IBCEMCL"",2)"
^XMB(3.9,55,2,4665,0)="""KRN"",409.61,744,""COL"",0)"
^XMB(3.9,55,2,4666,0)="^409.621^8^8"
^XMB(3.9,55,2,4667,0)="""KRN"",409.61,744,""COL"",1,0)"
^XMB(3.9,55,2,4668,0)="NUMBER^1^5"
^XMB(3.9,55,2,4669,0)="""KRN"",409.61,744,""COL"",2,0)"
^XMB(3.9,55,2,4670,0)="SELECTED^6^1"
^XMB(3.9,55,2,4671,0)="""KRN"",409.61,744,""COL"",3,0)"
^XMB(3.9,55,2,4672,0)="BILL^7^8^Bill #"
^XMB(3.9,55,2,4673,0)="""KRN"",409.61,744,""COL"",4,0)"
^XMB(3.9,55,2,4674,0)="PAYER^16^18^Payer Name"
^XMB(3.9,55,2,4675,0)="""KRN"",409.61,744,""COL"",5,0)"
^XMB(3.9,55,2,4676,0)="PATIENT^36^19^Patient Name"
^XMB(3.9,55,2,4677,0)="""KRN"",409.61,744,""COL"",6,0)"
^XMB(3.9,55,2,4678,0)="SSN^56^4^ SSN"
^XMB(3.9,55,2,4679,0)="""KRN"",409.61,744,""COL"",7,0)"
^XMB(3.9,55,2,4680,0)="SERVICE^62^8^Svc Date"
^XMB(3.9,55,2,4681,0)="""KRN"",409.61,744,""COL"",8,0)"
^XMB(3.9,55,2,4682,0)="CURBAL^71^10^  Curr Bal"
^XMB(3.9,55,2,4683,0)="""KRN"",409.61,744,""COL"",""B"",""BILL"",3)"
^XMB(3.9,55,2,4684,0)=""
^XMB(3.9,55,2,4685,0)="""KRN"",409.61,744,""COL"",""B"",""CURBAL"",8)"
^XMB(3.9,55,2,4686,0)=""
^XMB(3.9,55,2,4687,0)="""KRN"",409.61,744,""COL"",""B"",""NUMBER"",1)"
^XMB(3.9,55,2,4688,0)=""
^XMB(3.9,55,2,4689,0)="""KRN"",409.61,744,""COL"",""B"",""PATIENT"",5)"
^XMB(3.9,55,2,4690,0)=""
^XMB(3.9,55,2,4691,0)="""KRN"",409.61,744,""COL"",""B"",""PAYER"",4)"
^XMB(3.9,55,2,4692,0)=""
^XMB(3.9,55,2,4693,0)="""KRN"",409.61,744,""COL"",""B"",""SELECTED"",2)"
^XMB(3.9,55,2,4694,0)=""
^XMB(3.9,55,2,4695,0)="""KRN"",409.61,744,""COL"",""B"",""SERVICE"",7)"
^XMB(3.9,55,2,4696,0)=""
^XMB(3.9,55,2,4697,0)="""KRN"",409.61,744,""COL"",""B"",""SSN"",6)"
^XMB(3.9,55,2,4698,0)=""
^XMB(3.9,55,2,4699,0)="""KRN"",409.61,744,""FNL"")"
^XMB(3.9,55,2,4700,0)="D EXIT^IBCEMCL"
^XMB(3.9,55,2,4701,0)="""KRN"",409.61,744,""HDR"")"
^XMB(3.9,55,2,4702,0)="D HDR^IBCEMCL"
^XMB(3.9,55,2,4703,0)="""KRN"",409.61,744,""HLP"")"
^XMB(3.9,55,2,4704,0)="D HELP^IBCEMCL"
^XMB(3.9,55,2,4705,0)="""KRN"",409.61,744,""INIT"")"
^XMB(3.9,55,2,4706,0)="D INIT^IBCEMCL"
^XMB(3.9,55,2,4707,0)="""KRN"",409.61,749,-1)"
^XMB(3.9,55,2,4708,0)="0^6"
^XMB(3.9,55,2,4709,0)="""KRN"",409.61,749,0)"
^XMB(3.9,55,2,4710,0)="IBCE 2ND PRVID CARE UNIT MAINT^1^^80^6^18^0^1^CARE UNITS^IBCE 2ND PRVCARE MENU^Care Units - Billing Provider^1^^1"
^XMB(3.9,55,2,4711,0)="""KRN"",409.61,749,1)"
^XMB(3.9,55,2,4712,0)="^VALM HIDDEN ACTIONS"
^XMB(3.9,55,2,4713,0)="""KRN"",409.61,749,""COL"",0)"
^XMB(3.9,55,2,4714,0)="^409.621^3^2"
^XMB(3.9,55,2,4715,0)="""KRN"",409.61,749,""COL"",1,0)"
^XMB(3.9,55,2,4716,0)="Care Unit Name^3^35^Care Unit Name"
^XMB(3.9,55,2,4717,0)="""KRN"",409.61,749,""COL"",3,0)"
^XMB(3.9,55,2,4718,0)="Description^40^35^Description"
^XMB(3.9,55,2,4719,0)="""KRN"",409.61,749,""COL"",""B"",""Care Unit Name"",1)"
^XMB(3.9,55,2,4720,0)=""
^XMB(3.9,55,2,4721,0)="""KRN"",409.61,749,""COL"",""B"",""Description"",3)"
^XMB(3.9,55,2,4722,0)=""
^XMB(3.9,55,2,4723,0)="""KRN"",409.61,749,""FNL"")"
^XMB(3.9,55,2,4724,0)="D EXIT^IBCEPA"
^XMB(3.9,55,2,4725,0)="""KRN"",409.61,749,""HDR"")"
^XMB(3.9,55,2,4726,0)="D HDR^IBCEPA"
^XMB(3.9,55,2,4727,0)="""KRN"",409.61,749,""HLP"")"
^XMB(3.9,55,2,4728,0)="D HELP^IBCEPA"
^XMB(3.9,55,2,4729,0)="""KRN"",409.61,749,""INIT"")"
^XMB(3.9,55,2,4730,0)="D INIT^IBCEPA"
^XMB(3.9,55,2,4731,0)="""KRN"",409.61,750,-1)"
^XMB(3.9,55,2,4732,0)="0^7"
^XMB(3.9,55,2,4733,0)="""KRN"",409.61,750,0)"
^XMB(3.9,55,2,4734,0)="IBCNS ASSOCIATIONS LIST^1^^80^6^20^1^1^^IBCNSL MENU^Associated Insurance Co's^1^^1"
^XMB(3.9,55,2,4735,0)="""KRN"",409.61,750,1)"
^XMB(3.9,55,2,4736,0)="^VALM HIDDEN ACTIONS"
^XMB(3.9,55,2,4737,0)="""KRN"",409.61,750,""ARRAY"")"
^XMB(3.9,55,2,4738,0)=" ^TMP($J,""IBCNSL"",2)"
^XMB(3.9,55,2,4739,0)="""KRN"",409.61,750,""COL"",0)"
^XMB(3.9,55,2,4740,0)="^409.621^3^3"
^XMB(3.9,55,2,4741,0)="""KRN"",409.61,750,""COL"",1,0)"
^XMB(3.9,55,2,4742,0)="INSCO^6^30^Ins Company Name"
^XMB(3.9,55,2,4743,0)="""KRN"",409.61,750,""COL"",2,0)"
^XMB(3.9,55,2,4744,0)="ADDRESS^33^26^Address"
^XMB(3.9,55,2,4745,0)="""KRN"",409.61,750,""COL"",3,0)"
^XMB(3.9,55,2,4746,0)="CITY^59^20^City"
^XMB(3.9,55,2,4747,0)="""KRN"",409.61,750,""COL"",""B"",""ADDRESS"",2)"
^XMB(3.9,55,2,4748,0)=""
^XMB(3.9,55,2,4749,0)="""KRN"",409.61,750,""COL"",""B"",""CITY"",3)"
^XMB(3.9,55,2,4750,0)=""
^XMB(3.9,55,2,4751,0)="""KRN"",409.61,750,""COL"",""B"",""INSCO"",1)"
^XMB(3.9,55,2,4752,0)=""
^XMB(3.9,55,2,4753,0)="""KRN"",409.61,750,""FNL"")"
^XMB(3.9,55,2,4754,0)=""
^XMB(3.9,55,2,4755,0)="""KRN"",409.61,750,""HDR"")"
^XMB(3.9,55,2,4756,0)="D HDR^IBCNSC02"
^XMB(3.9,55,2,4757,0)="""KRN"",409.61,750,""HLP"")"
^XMB(3.9,55,2,4758,0)="S X=""?"" D DISP^XQORM1 W !!"
^XMB(3.9,55,2,4759,0)="""KRN"",409.61,750,""INIT"")"
^XMB(3.9,55,2,4760,0)="D BLD^IBCNSC02"
^XMB(3.9,55,2,4761,0)="""KRN"",409.61,751,-1)"
^XMB(3.9,55,2,4762,0)="0^12"
^XMB(3.9,55,2,4763,0)="""KRN"",409.61,751,0)"
^XMB(3.9,55,2,4764,0)="IBCE INSCO ID MAINT^1^^80^4^18^0^1^^IBCE INSCO ID MAINT MENU^IB Parameter Maint.^1^^1"
^XMB(3.9,55,2,4765,0)="""KRN"",409.61,751,1)"
^XMB(3.9,55,2,4766,0)="^VALM HIDDEN ACTIONS"
^XMB(3.9,55,2,4767,0)="""KRN"",409.61,751,""FNL"")"
^XMB(3.9,55,2,4768,0)="D EXIT^IBCEPB"
^XMB(3.9,55,2,4769,0)="""KRN"",409.61,751,""HDR"")"
^XMB(3.9,55,2,4770,0)="D HDR^IBCEPB"
^XMB(3.9,55,2,4771,0)="""KRN"",409.61,751,""HLP"")"
^XMB(3.9,55,2,4772,0)="D HELP^IBCEPB"
^XMB(3.9,55,2,4773,0)="""KRN"",409.61,751,""INIT"")"
^XMB(3.9,55,2,4774,0)="D INIT^IBCEPB"
^XMB(3.9,55,2,4775,0)="""KRN"",409.61,752,-1)"
^XMB(3.9,55,2,4776,0)="0^13"
^XMB(3.9,55,2,4777,0)="""KRN"",409.61,752,0)"
^XMB(3.9,55,2,4778,0)="IBCE INSCO BILL PROV MAINT^1^^80^4^18^0^1^^IBCE INSCO BILL PROV MAINT MENU^Billing Provider Parameters^1^^1"
^XMB(3.9,55,2,4779,0)="""KRN"",409.61,752,1)"
^XMB(3.9,55,2,4780,0)="^VALM HIDDEN ACTIONS"
^XMB(3.9,55,2,4781,0)="""KRN"",409.61,752,""ARRAY"")"
^XMB(3.9,55,2,4782,0)=" ^TMP(""IBCE INSCO BILL PROV MAINT"",$J)"
^XMB(3.9,55,2,4783,0)="""KRN"",409.61,752,""FNL"")"
^XMB(3.9,55,2,4784,0)="D EXIT^IBCEPC"
^XMB(3.9,55,2,4785,0)="""KRN"",409.61,752,""HDR"")"
^XMB(3.9,55,2,4786,0)="D HDR^IBCEPC"
^XMB(3.9,55,2,4787,0)="""KRN"",409.61,752,""HLP"")"
^XMB(3.9,55,2,4788,0)="D HELP^IBCEPC"
^XMB(3.9,55,2,4789,0)="""KRN"",409.61,752,""INIT"")"
^XMB(3.9,55,2,4790,0)="D INIT^IBCEPC"
^XMB(3.9,55,2,4791,0)="""MBREQ"")"
^XMB(3.9,55,2,4792,0)="0"
^XMB(3.9,55,2,4793,0)="""ORD"",3,19.1)"
^XMB(3.9,55,2,4794,0)="19.1;3;1;;KEY^XPDTA1;;;KEYF2^XPDIA1;;KEYDEL^XPDIA1"
^XMB(3.9,55,2,4795,0)="""ORD"",3,19.1,0)"
^XMB(3.9,55,2,4796,0)="SECURITY KEY"
^XMB(3.9,55,2,4797,0)="""ORD"",7,.402)"
^XMB(3.9,55,2,4798,0)=".402;7;;;EDEOUT^DIFROMSO(.402,DA,"""",XPDA);FPRE^DIFROMSI(.402,"""",XPDA);EPRE^DIFROMSI(.402,DA,$E(""N"",$G(XPDNEW)),XPDA,"""",OLDA);;EPOST^DIFROMSI(.402,DA,"""",XPDA);DEL^DIFROMSK(.402,"""",%)"
^XMB(3.9,55,2,4799,0)="""ORD"",7,.402,0)"
^XMB(3.9,55,2,4800,0)="INPUT TEMPLATE"
^XMB(3.9,55,2,4801,0)="""ORD"",15,101)"
^XMB(3.9,55,2,4802,0)="101;15;;;PRO^XPDTA;PROF1^XPDIA;PROE1^XPDIA;PROF2^XPDIA;;PRODEL^XPDIA"
^XMB(3.9,55,2,4803,0)="""ORD"",15,101,0)"
^XMB(3.9,55,2,4804,0)="PROTOCOL"
^XMB(3.9,55,2,4805,0)="""ORD"",17,409.61)"
^XMB(3.9,55,2,4806,0)="409.61;17;1;;;;;;;LMDEL^XPDIA1"
^XMB(3.9,55,2,4807,0)="""ORD"",17,409.61,0)"
^XMB(3.9,55,2,4808,0)="LIST TEMPLATE"
^XMB(3.9,55,2,4809,0)="""ORD"",18,19)"
^XMB(3.9,55,2,4810,0)="19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA"
^XMB(3.9,55,2,4811,0)="""ORD"",18,19,0)"
^XMB(3.9,55,2,4812,0)="OPTION"
^XMB(3.9,55,2,4813,0)="""PGL"",364.6,0,3,.03)"
^XMB(3.9,55,2,4814,0)="ASSOCIATED FORM DEFINITION^P364.6'^IBA(364.6,^0;3^Q"
^XMB(3.9,55,2,4815,0)="""PGL"",364.7,0,5,.05)"
^XMB(3.9,55,2,4816,0)="INSURANCE COMPANY^P36'^DIC(36,^0;5^Q"
^XMB(3.9,55,2,4817,0)="""PKG"",200,-1)"
^XMB(3.9,55,2,4818,0)="1^1"
^XMB(3.9,55,2,4819,0)="""PKG"",200,0)"
^XMB(3.9,55,2,4820,0)="INTEGRATED BILLING^IB^INTEGRATED BILLING"
^XMB(3.9,55,2,4821,0)="""PKG"",200,20,0)"
^XMB(3.9,55,2,4822,0)="^9.402P^1^1"
^XMB(3.9,55,2,4823,0)="""PKG"",200,20,1,0)"
^XMB(3.9,55,2,4824,0)="2^^IBAXDR"
^XMB(3.9,55,2,4825,0)="""PKG"",200,20,1,1)"
^XMB(3.9,55,2,4826,0)=""
^XMB(3.9,55,2,4827,0)="""PKG"",200,20,""B"",2,1)"
^XMB(3.9,55,2,4828,0)=""
^XMB(3.9,55,2,4829,0)="""PKG"",200,22,0)"
^XMB(3.9,55,2,4830,0)="^9.49I^1^1"
^XMB(3.9,55,2,4831,0)="""PKG"",200,22,1,0)"
^XMB(3.9,55,2,4832,0)="2.0^2940321"
^XMB(3.9,55,2,4833,0)="""PKG"",200,22,1,""PAH"",1,0)"
^XMB(3.9,55,2,4834,0)="320^3060616"
^XMB(3.9,55,2,4835,0)="""PKG"",200,22,1,""PAH"",1,1,0)"
^XMB(3.9,55,2,4836,0)="^^1^1^3060616"
^XMB(3.9,55,2,4837,0)="""PKG"",200,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,55,2,4838,0)="eClaims Plus Iteration 2"
^XMB(3.9,55,2,4839,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,55,2,4840,0)="Y"
^XMB(3.9,55,2,4841,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,55,2,4842,0)="^D REP^XPDH"
^XMB(3.9,55,2,4843,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,55,2,4844,0)="Shall I write over your |FLAG| File"
^XMB(3.9,55,2,4845,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,55,2,4846,0)="YES"
^XMB(3.9,55,2,4847,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,55,2,4848,0)="D XPF1^XPDIQ"
^XMB(3.9,55,2,4849,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,55,2,4850,0)="Y"
^XMB(3.9,55,2,4851,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,55,2,4852,0)="^D DTA^XPDH"
^XMB(3.9,55,2,4853,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,55,2,4854,0)="Want my data |FLAG| yours"
^XMB(3.9,55,2,4855,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,55,2,4856,0)="YES"
^XMB(3.9,55,2,4857,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,55,2,4858,0)="D XPF2^XPDIQ"
^XMB(3.9,55,2,4859,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,55,2,4860,0)="YO"
^XMB(3.9,55,2,4861,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,55,2,4862,0)="^D INHIBIT^XPDH"
^XMB(3.9,55,2,4863,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,55,2,4864,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,55,2,4865,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,55,2,4866,0)="YES"
^XMB(3.9,55,2,4867,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,55,2,4868,0)="D XPI1^XPDIQ"
^XMB(3.9,55,2,4869,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,55,2,4870,0)="PO^VA(200,:EM"
^XMB(3.9,55,2,4871,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,55,2,4872,0)="^D MG^XPDH"
^XMB(3.9,55,2,4873,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,55,2,4874,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,55,2,4875,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,55,2,4876,0)=""
^XMB(3.9,55,2,4877,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,55,2,4878,0)="D XPM1^XPDIQ"
^XMB(3.9,55,2,4879,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,55,2,4880,0)="Y"
^XMB(3.9,55,2,4881,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,55,2,4882,0)="^D MENU^XPDH"
^XMB(3.9,55,2,4883,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,55,2,4884,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,55,2,4885,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,55,2,4886,0)="YES"
^XMB(3.9,55,2,4887,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,55,2,4888,0)="D XPO1^XPDIQ"
^XMB(3.9,55,2,4889,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,55,2,4890,0)="Y"
^XMB(3.9,55,2,4891,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,55,2,4892,0)="^D OPT^XPDH"
^XMB(3.9,55,2,4893,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,55,2,4894,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,55,2,4895,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,55,2,4896,0)="YES"
^XMB(3.9,55,2,4897,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,55,2,4898,0)="D XPZ1^XPDIQ"
^XMB(3.9,55,2,4899,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,55,2,4900,0)="Y"
^XMB(3.9,55,2,4901,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,55,2,4902,0)="^D RTN^XPDH"
^XMB(3.9,55,2,4903,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,55,2,4904,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,55,2,4905,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,55,2,4906,0)="NO"
^XMB(3.9,55,2,4907,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,55,2,4908,0)="D XPZ2^XPDIQ"
^XMB(3.9,55,2,4909,0)="""RTN"")"
^XMB(3.9,55,2,4910,0)="81"
^XMB(3.9,55,2,4911,0)="""RTN"",""IBCBB1"")"
^XMB(3.9,55,2,4912,0)="0^64^B69487454^B58004272"
^XMB(3.9,55,2,4913,0)="""RTN"",""IBCBB1"",1,0)"
^XMB(3.9,55,2,4914,0)="IBCBB1 ;ALB/AAS - CONTINUATION OF EDIT CHECK ROUTINE ;2-NOV-89"
^XMB(3.9,55,2,4915,0)="""RTN"",""IBCBB1"",2,0)"
^XMB(3.9,55,2,4916,0)=" ;;2.0;INTEGRATED BILLING;**27,52,80,93,106,51,151,148,153,137,232,280,155,320**;21-MAR-94"
^XMB(3.9,55,2,4917,0)="""RTN"",""IBCBB1"",3,0)"
^XMB(3.9,55,2,4918,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,4919,0)="""RTN"",""IBCBB1"",4,0)"
^XMB(3.9,55,2,4920,0)=" ;"
^XMB(3.9,55,2,4921,0)="""RTN"",""IBCBB1"",5,0)"
^XMB(3.9,55,2,4922,0)=" ;MAP TO DGCRBB1"
^XMB(3.9,55,2,4923,0)="""RTN"",""IBCBB1"",6,0)"
^XMB(3.9,55,2,4924,0)=" ;"
^XMB(3.9,55,2,4925,0)="""RTN"",""IBCBB1"",7,0)"
^XMB(3.9,55,2,4926,0)="% ;Bill Status"
^XMB(3.9,55,2,4927,0)="""RTN"",""IBCBB1"",8,0)"
^XMB(3.9,55,2,4928,0)=" N Z,Z0,Z1"
^XMB(3.9,55,2,4929,0)="""RTN"",""IBCBB1"",9,0)"
^XMB(3.9,55,2,4930,0)=" I $S(+IBST=0:1,1:""^1^2^3^4^7^""'[(U_IBST_U)) S IBER=IBER_""IB045;"""
^XMB(3.9,55,2,4931,0)="""RTN"",""IBCBB1"",10,0)"
^XMB(3.9,55,2,4932,0)=" ;"
^XMB(3.9,55,2,4933,0)="""RTN"",""IBCBB1"",11,0)"
^XMB(3.9,55,2,4934,0)=" ;Statement Covers From"
^XMB(3.9,55,2,4935,0)="""RTN"",""IBCBB1"",12,0)"
^XMB(3.9,55,2,4936,0)=" I IBFDT="""" S IBER=IBER_""IB061;"""
^XMB(3.9,55,2,4937,0)="""RTN"",""IBCBB1"",13,0)"
^XMB(3.9,55,2,4938,0)=" I IBFDT]"""",IBFDT'?7N&(IBFDT'?7N1""."".N) S IBER=IBER_""IB061;"""
^XMB(3.9,55,2,4939,0)="""RTN"",""IBCBB1"",14,0)"
^XMB(3.9,55,2,4940,0)=" I IBFDT>IBTDT S IBER=IBER_""IB061;"" ; from must be on or before the to date "
^XMB(3.9,55,2,4941,0)="""RTN"",""IBCBB1"",15,0)"
^XMB(3.9,55,2,4942,0)=" S IBFFY=$$FY^IBOUTL(IBFDT)"
^XMB(3.9,55,2,4943,0)="""RTN"",""IBCBB1"",16,0)"
^XMB(3.9,55,2,4944,0)=" ; if inpat - from date must not be prior to admit date."
^XMB(3.9,55,2,4945,0)="""RTN"",""IBCBB1"",17,0)"
^XMB(3.9,55,2,4946,0)=" I $$INPAT^IBCEF(IBIFN,1),(IBFDT<($P($G(^DGPT(+$P(IBND0,U,8),0)),U,2)\1))  S IBER=IBER_""IB061;"""
^XMB(3.9,55,2,4947,0)="""RTN"",""IBCBB1"",18,0)"
^XMB(3.9,55,2,4948,0)=" ;"
^XMB(3.9,55,2,4949,0)="""RTN"",""IBCBB1"",19,0)"
^XMB(3.9,55,2,4950,0)=" ;Statement Covers To"
^XMB(3.9,55,2,4951,0)="""RTN"",""IBCBB1"",20,0)"
^XMB(3.9,55,2,4952,0)=" I IBTDT="""" S IBER=IBER_""IB062;"""
^XMB(3.9,55,2,4953,0)="""RTN"",""IBCBB1"",21,0)"
^XMB(3.9,55,2,4954,0)=" I IBTDT]"""",IBTDT'?7N&(IBTDT'?7N1""."".N) S IBER=IBER_""IB062;"""
^XMB(3.9,55,2,4955,0)="""RTN"",""IBCBB1"",22,0)"
^XMB(3.9,55,2,4956,0)=" I IBTDT>DT!(IBTDT<IBFDT) S IBER=IBER_""IB062;""  ; to date must not be >than today's date"
^XMB(3.9,55,2,4957,0)="""RTN"",""IBCBB1"",23,0)"
^XMB(3.9,55,2,4958,0)=" S IBTFY=$$FY^IBOUTL(IBTDT)"
^XMB(3.9,55,2,4959,0)="""RTN"",""IBCBB1"",24,0)"
^XMB(3.9,55,2,4960,0)=" ;"
^XMB(3.9,55,2,4961,0)="""RTN"",""IBCBB1"",25,0)"
^XMB(3.9,55,2,4962,0)=" ;Statement crosses fiscal years"
^XMB(3.9,55,2,4963,0)="""RTN"",""IBCBB1"",26,0)"
^XMB(3.9,55,2,4964,0)=" ;I IBTFY'=IBFFY S IBER=IBER_""IB047;"""
^XMB(3.9,55,2,4965,0)="""RTN"",""IBCBB1"",27,0)"
^XMB(3.9,55,2,4966,0)=" ;"
^XMB(3.9,55,2,4967,0)="""RTN"",""IBCBB1"",28,0)"
^XMB(3.9,55,2,4968,0)=" ;Statement crosses calendar years"
^XMB(3.9,55,2,4969,0)="""RTN"",""IBCBB1"",29,0)"
^XMB(3.9,55,2,4970,0)=" ;I $E(IBTDT,1,3)'=$E(IBFDT,1,3) S IBER=IBER_""IB046;"""
^XMB(3.9,55,2,4971,0)="""RTN"",""IBCBB1"",30,0)"
^XMB(3.9,55,2,4972,0)=" ;"
^XMB(3.9,55,2,4973,0)="""RTN"",""IBCBB1"",31,0)"
^XMB(3.9,55,2,4974,0)=" ;Total Charges"
^XMB(3.9,55,2,4975,0)="""RTN"",""IBCBB1"",32,0)"
^XMB(3.9,55,2,4976,0)=" I +IBTC'>0!(+IBTC'=IBTC) S IBER=IBER_""IB064;"""
^XMB(3.9,55,2,4977,0)="""RTN"",""IBCBB1"",33,0)"
^XMB(3.9,55,2,4978,0)=" ;"
^XMB(3.9,55,2,4979,0)="""RTN"",""IBCBB1"",34,0)"
^XMB(3.9,55,2,4980,0)=" ;Billable charges for secondary claim"
^XMB(3.9,55,2,4981,0)="""RTN"",""IBCBB1"",35,0)"
^XMB(3.9,55,2,4982,0)=" I $$MCRONBIL^IBEFUNC(IBIFN)&(($P(IBNDU1,U,1)-$P(IBNDU1,U,2))'>0) S IBER=IBER_""IB094;"""
^XMB(3.9,55,2,4983,0)="""RTN"",""IBCBB1"",36,0)"
^XMB(3.9,55,2,4984,0)=" ;Fiscal Year 1"
^XMB(3.9,55,2,4985,0)="""RTN"",""IBCBB1"",37,0)"
^XMB(3.9,55,2,4986,0)=" S IBFFY=$$FY^IBOUTL(IBFDT)"
^XMB(3.9,55,2,4987,0)="""RTN"",""IBCBB1"",38,0)"
^XMB(3.9,55,2,4988,0)=" ;"
^XMB(3.9,55,2,4989,0)="""RTN"",""IBCBB1"",39,0)"
^XMB(3.9,55,2,4990,0)=" ;Check provider link for current user, enterer, reviewer and Authorizor"
^XMB(3.9,55,2,4991,0)="""RTN"",""IBCBB1"",40,0)"
^XMB(3.9,55,2,4992,0)=" I '$D(^VA(200,DUZ,0)) S IBER=IBER_""IB048;"""
^XMB(3.9,55,2,4993,0)="""RTN"",""IBCBB1"",41,0)"
^XMB(3.9,55,2,4994,0)=" I IBEU]"""",'$D(^VA(200,IBEU,0)) S IBER=IBER_""IB048;"""
^XMB(3.9,55,2,4995,0)="""RTN"",""IBCBB1"",42,0)"
^XMB(3.9,55,2,4996,0)=" I IBRU]"""",'$D(^VA(200,IBRU,0)) S IBER=IBER_""IB060;"""
^XMB(3.9,55,2,4997,0)="""RTN"",""IBCBB1"",43,0)"
^XMB(3.9,55,2,4998,0)=" I IBAU]"""",'$D(^VA(200,IBAU,0)) S IBER=IBER_""IB041;"""
^XMB(3.9,55,2,4999,0)="""RTN"",""IBCBB1"",44,0)"
^XMB(3.9,55,2,5000,0)=" ;"
^XMB(3.9,55,2,5001,0)="""RTN"",""IBCBB1"",45,0)"
^XMB(3.9,55,2,5002,0)=" ;Bill exists and not already new bill"
^XMB(3.9,55,2,5003,0)="""RTN"",""IBCBB1"",46,0)"
^XMB(3.9,55,2,5004,0)=" ;I $S('$D(^PRCA(430,IBIFN,0)):1,$P($P(^PRCA(430,IBIFN,0),""^""),""-"",2)'=IBBNO:1,1:0) S IBER=IBER_""IB056;"""
^XMB(3.9,55,2,5005,0)="""RTN"",""IBCBB1"",47,0)"
^XMB(3.9,55,2,5006,0)=" ;I $P($$BN^PRCAFN(IBIFN),""-"",2)'=IBBNO S IBER=IBER_""IB056;"""
^XMB(3.9,55,2,5007,0)="""RTN"",""IBCBB1"",48,0)"
^XMB(3.9,55,2,5008,0)=" ;I IBER="""",$P(^PRCA(430,IBIFN,0),""^"",8)=$O(^PRCA(430.3,""AC"",104,"""")) S IBER=IBER_""IB040;"""
^XMB(3.9,55,2,5009,0)="""RTN"",""IBCBB1"",49,0)"
^XMB(3.9,55,2,5010,0)=" I IBER="""",+$$STA^PRCAFN(IBIFN)=104 S IBER=IBER_""IB040;"""
^XMB(3.9,55,2,5011,0)="""RTN"",""IBCBB1"",50,0)"
^XMB(3.9,55,2,5012,0)=" ; If ins bill, must have valid COB sequence"
^XMB(3.9,55,2,5013,0)="""RTN"",""IBCBB1"",51,0)"
^XMB(3.9,55,2,5014,0)=" I $P(IBND0,U,11)=""i"",$S($P(IBND0,U,21)="""":1,1:""PST""'[$P(IBND0,U,21)) S IBER=IBER_""IB324;"""
^XMB(3.9,55,2,5015,0)="""RTN"",""IBCBB1"",52,0)"
^XMB(3.9,55,2,5016,0)=" ;"
^XMB(3.9,55,2,5017,0)="""RTN"",""IBCBB1"",53,0)"
^XMB(3.9,55,2,5018,0)=" ; Check for valid sec provider id for current ins"
^XMB(3.9,55,2,5019,0)="""RTN"",""IBCBB1"",54,0)"
^XMB(3.9,55,2,5020,0)=" S Z=0 F  S Z=$O(^DGCR(399,IBIFN,""PRV"",Z)) Q:'Z  S Z0=$G(^(Z,0)),Z1=+$$COBN^IBCEF(IBIFN) I $P(Z0,U,4+Z1)'="""",$P(Z0,U,11+Z1)'="""" D"
^XMB(3.9,55,2,5021,0)="""RTN"",""IBCBB1"",55,0)"
^XMB(3.9,55,2,5022,0)=" . I '$$SECIDCK^IBCEF74(IBIFN,Z1,$P(Z0,U,11+Z1),Z) D WARN^IBCBB11(""Prov secondary id type for the ""_$P(""PRIMARY^SECONDARY^TERTIARY"",U,Z1)_"" ""_$$EXTERNAL^DILFD(399.0222,.01,,+Z0)_"" is invalid/won't transmit"")"
^XMB(3.9,55,2,5023,0)="""RTN"",""IBCBB1"",56,0)"
^XMB(3.9,55,2,5024,0)=" ;"
^XMB(3.9,55,2,5025,0)="""RTN"",""IBCBB1"",57,0)"
^XMB(3.9,55,2,5026,0)=" ; Check for Physician Name"
^XMB(3.9,55,2,5027,0)="""RTN"",""IBCBB1"",58,0)"
^XMB(3.9,55,2,5028,0)=" K IBXDATA D F^IBCEF(""N-ATT/REND PHYSICIAN NAME"",,,IBIFN)"
^XMB(3.9,55,2,5029,0)="""RTN"",""IBCBB1"",59,0)"
^XMB(3.9,55,2,5030,0)=" I $P($G(IBXDATA),U)="""" S IBER=IBER_""IB303;"""
^XMB(3.9,55,2,5031,0)="""RTN"",""IBCBB1"",60,0)"
^XMB(3.9,55,2,5032,0)=" ;"
^XMB(3.9,55,2,5033,0)="""RTN"",""IBCBB1"",61,0)"
^XMB(3.9,55,2,5034,0)=" N FUNCTION,IBINS"
^XMB(3.9,55,2,5035,0)="""RTN"",""IBCBB1"",62,0)"
^XMB(3.9,55,2,5036,0)=" S FUNCTION=$S($$FT^IBCEF(IBIFN)=3:4,1:3)"
^XMB(3.9,55,2,5037,0)="""RTN"",""IBCBB1"",63,0)"
^XMB(3.9,55,2,5038,0)=" I IBER'[""IB303;"" D"
^XMB(3.9,55,2,5039,0)="""RTN"",""IBCBB1"",64,0)"
^XMB(3.9,55,2,5040,0)=" . F IBINS=1:1:3 D"
^XMB(3.9,55,2,5041,0)="""RTN"",""IBCBB1"",65,0)"
^XMB(3.9,55,2,5042,0)=" .. S Z=$$GETTYP^IBCEP2A(IBIFN,IBINS)"
^XMB(3.9,55,2,5043,0)="""RTN"",""IBCBB1"",66,0)"
^XMB(3.9,55,2,5044,0)=" .. I Z,$P(Z,U,2) D  ; Rendering/attending prov secondary id required"
^XMB(3.9,55,2,5045,0)="""RTN"",""IBCBB1"",67,0)"
^XMB(3.9,55,2,5046,0)=" ... N IBID,IBOK,Q0"
^XMB(3.9,55,2,5047,0)="""RTN"",""IBCBB1"",68,0)"
^XMB(3.9,55,2,5048,0)=" ... D PROVINF^IBCEF74(IBIFN,IBINS,.IBID,1,""C"")  ; check all as though they were current"
^XMB(3.9,55,2,5049,0)="""RTN"",""IBCBB1"",69,0)"
^XMB(3.9,55,2,5050,0)=" ... S IBOK=0"
^XMB(3.9,55,2,5051,0)="""RTN"",""IBCBB1"",70,0)"
^XMB(3.9,55,2,5052,0)=" ... S Q0=0 F  S Q0=$O(IBID(1,FUNCTION,Q0)) Q:'Q0  I $P(IBID(1,FUNCTION,Q0),U,9)=+Z S IBOK=1 Q"
^XMB(3.9,55,2,5053,0)="""RTN"",""IBCBB1"",71,0)"
^XMB(3.9,55,2,5054,0)=" ... I 'IBOK S IBER=IBER_$S(IBINS=1:""IB236;"",IBINS=2:""IB237;"",IBINS=3:""IB238;"",1:"""")"
^XMB(3.9,55,2,5055,0)="""RTN"",""IBCBB1"",72,0)"
^XMB(3.9,55,2,5056,0)=" . I $$TXMT^IBCEF4(IBIFN) D"
^XMB(3.9,55,2,5057,0)="""RTN"",""IBCBB1"",73,0)"
^XMB(3.9,55,2,5058,0)=" .. D F^IBCEF(""N-ALL ATT/REND PROV SSN/EI"",""IBZ"",,IBIFN)"
^XMB(3.9,55,2,5059,0)="""RTN"",""IBCBB1"",74,0)"
^XMB(3.9,55,2,5060,0)=" .. I $P(IBZ,U,3)=""""&($P(IBZ,U,4)="""") S IBER=IBER_""IB321;"" ; SSN/IEN required for rend/att"
^XMB(3.9,55,2,5061,0)="""RTN"",""IBCBB1"",75,0)"
^XMB(3.9,55,2,5062,0)=" ;"
^XMB(3.9,55,2,5063,0)="""RTN"",""IBCBB1"",76,0)"
^XMB(3.9,55,2,5064,0)=" N IBM,IBM1"
^XMB(3.9,55,2,5065,0)="""RTN"",""IBCBB1"",77,0)"
^XMB(3.9,55,2,5066,0)=" S IBM=$G(^DGCR(399,IBIFN,""M""))"
^XMB(3.9,55,2,5067,0)="""RTN"",""IBCBB1"",78,0)"
^XMB(3.9,55,2,5068,0)=" S IBM1=$G(^DGCR(399,IBIFN,""M1""))"
^XMB(3.9,55,2,5069,0)="""RTN"",""IBCBB1"",79,0)"
^XMB(3.9,55,2,5070,0)=" I $P(IBM,U),$P($G(^DIC(36,$P(IBM,U),4)),U,6),$P(IBM1,U,2)="""" S IBER=IBER_""IB244;"""
^XMB(3.9,55,2,5071,0)="""RTN"",""IBCBB1"",80,0)"
^XMB(3.9,55,2,5072,0)=" I $P(IBM,U,2),$P($G(^DIC(36,$P(IBM,U,2),4)),U,6),$P(IBM1,U,3)="""" S IBER=IBER_""IB245;"""
^XMB(3.9,55,2,5073,0)="""RTN"",""IBCBB1"",81,0)"
^XMB(3.9,55,2,5074,0)=" I $P(IBM,U,3),$P($G(^DIC(36,$P(IBM,U,3),4)),U,6),$P(IBM1,U,4)="""" S IBER=IBER_""IB246;"""
^XMB(3.9,55,2,5075,0)="""RTN"",""IBCBB1"",82,0)"
^XMB(3.9,55,2,5076,0)=" ;"
^XMB(3.9,55,2,5077,0)="""RTN"",""IBCBB1"",83,0)"
^XMB(3.9,55,2,5078,0)=" ; If outside facility, check for ID and qualifier in 355.93"
^XMB(3.9,55,2,5079,0)="""RTN"",""IBCBB1"",84,0)"
^XMB(3.9,55,2,5080,0)=" ; 5/15/06 - esg - hard error IB243 turned into warning message instead"
^XMB(3.9,55,2,5081,0)="""RTN"",""IBCBB1"",85,0)"
^XMB(3.9,55,2,5082,0)=" S Z=$P($G(^DGCR(399,IBIFN,""U2"")),U,10)"
^XMB(3.9,55,2,5083,0)="""RTN"",""IBCBB1"",86,0)"
^XMB(3.9,55,2,5084,0)=" I Z D"
^XMB(3.9,55,2,5085,0)="""RTN"",""IBCBB1"",87,0)"
^XMB(3.9,55,2,5086,0)=" . I $P($G(^IBA(355.93,Z,0)),U,9)=""""!($P($G(^IBA(355.93,Z,0)),U,13)="""") D"
^XMB(3.9,55,2,5087,0)="""RTN"",""IBCBB1"",88,0)"
^XMB(3.9,55,2,5088,0)=" .. N Z1,Z2"
^XMB(3.9,55,2,5089,0)="""RTN"",""IBCBB1"",89,0)"
^XMB(3.9,55,2,5090,0)=" .. S Z1=""Missing Lab or Facility Primary ID for non-VA facility, """
^XMB(3.9,55,2,5091,0)="""RTN"",""IBCBB1"",90,0)"
^XMB(3.9,55,2,5092,0)=" .. S Z2=$$EXTERNAL^DILFD(399,232,,Z)"
^XMB(3.9,55,2,5093,0)="""RTN"",""IBCBB1"",91,0)"
^XMB(3.9,55,2,5094,0)=" .. I $L(Z2)'>19 D WARN^IBCBB11(Z1_Z2) Q"
^XMB(3.9,55,2,5095,0)="""RTN"",""IBCBB1"",92,0)"
^XMB(3.9,55,2,5096,0)=" .. D WARN^IBCBB11(Z1),WARN^IBCBB11(""     ""_Z2)"
^XMB(3.9,55,2,5097,0)="""RTN"",""IBCBB1"",93,0)"
^XMB(3.9,55,2,5098,0)=" .. Q"
^XMB(3.9,55,2,5099,0)="""RTN"",""IBCBB1"",94,0)"
^XMB(3.9,55,2,5100,0)=" . Q"
^XMB(3.9,55,2,5101,0)="""RTN"",""IBCBB1"",95,0)"
^XMB(3.9,55,2,5102,0)=" ;"
^XMB(3.9,55,2,5103,0)="""RTN"",""IBCBB1"",96,0)"
^XMB(3.9,55,2,5104,0)=" ; Must be one and only one division on bill"
^XMB(3.9,55,2,5105,0)="""RTN"",""IBCBB1"",97,0)"
^XMB(3.9,55,2,5106,0)=" S IBZ=$$MULTDIV^IBCBB11(IBIFN,IBND0)"
^XMB(3.9,55,2,5107,0)="""RTN"",""IBCBB1"",98,0)"
^XMB(3.9,55,2,5108,0)=" I IBZ S IBER=IBER_$S(IBZ=1:""IB095;"",IBZ=2:""IB104;"",1:""IB105;"")"
^XMB(3.9,55,2,5109,0)="""RTN"",""IBCBB1"",99,0)"
^XMB(3.9,55,2,5110,0)=" ; Division address must be defined in institution file"
^XMB(3.9,55,2,5111,0)="""RTN"",""IBCBB1"",100,0)"
^XMB(3.9,55,2,5112,0)=" I $P(IBND0,U,22) D"
^XMB(3.9,55,2,5113,0)="""RTN"",""IBCBB1"",101,0)"
^XMB(3.9,55,2,5114,0)=" . N Z,Z0,Z1"
^XMB(3.9,55,2,5115,0)="""RTN"",""IBCBB1"",102,0)"
^XMB(3.9,55,2,5116,0)=" . S Z0=$G(^DIC(4,+$P($G(^DG(40.8,+$P(IBND0,U,22),0)),U,7),0))"
^XMB(3.9,55,2,5117,0)="""RTN"",""IBCBB1"",103,0)"
^XMB(3.9,55,2,5118,0)=" . S Z1=$G(^DIC(4,+$P($G(^DG(40.8,+$P(IBND0,U,22),0)),U,7),1))"
^XMB(3.9,55,2,5119,0)="""RTN"",""IBCBB1"",104,0)"
^XMB(3.9,55,2,5120,0)=" . I $P(Z0,U,2)="""" S IBER=IBER_""IB097;"" Q"
^XMB(3.9,55,2,5121,0)="""RTN"",""IBCBB1"",105,0)"
^XMB(3.9,55,2,5122,0)=" . F Z=1,3,4 I $P(Z1,U,Z)="""" S IBER=IBER_""IB097;"" Q"
^XMB(3.9,55,2,5123,0)="""RTN"",""IBCBB1"",106,0)"
^XMB(3.9,55,2,5124,0)=" ;"
^XMB(3.9,55,2,5125,0)="""RTN"",""IBCBB1"",107,0)"
^XMB(3.9,55,2,5126,0)=" ;CHAMPVA Rate Type and Primary Insurance Carriers Type of Coverage must match"
^XMB(3.9,55,2,5127,0)="""RTN"",""IBCBB1"",108,0)"
^XMB(3.9,55,2,5128,0)=" S (IBRTCHV,IBPICHV)=0"
^XMB(3.9,55,2,5129,0)="""RTN"",""IBCBB1"",109,0)"
^XMB(3.9,55,2,5130,0)=" I $P($G(^DGCR(399.3,+IBAT,0)),U,1)=""CHAMPVA"" S IBRTCHV=1"
^XMB(3.9,55,2,5131,0)="""RTN"",""IBCBB1"",110,0)"
^XMB(3.9,55,2,5132,0)=" I $P($G(^IBE(355.2,+$P($G(^DIC(36,+IBNDMP,0)),U,13),0)),U,1)=""CHAMPVA"" S IBPICHV=1"
^XMB(3.9,55,2,5133,0)="""RTN"",""IBCBB1"",111,0)"
^XMB(3.9,55,2,5134,0)=" I (+IBRTCHV!+IBPICHV)&('IBRTCHV!'IBPICHV) S IBER=IBER_""IB085;"""
^XMB(3.9,55,2,5135,0)="""RTN"",""IBCBB1"",112,0)"
^XMB(3.9,55,2,5136,0)=" ;"
^XMB(3.9,55,2,5137,0)="""RTN"",""IBCBB1"",113,0)"
^XMB(3.9,55,2,5138,0)=" N IBZPRC,IBZPRC92"
^XMB(3.9,55,2,5139,0)="""RTN"",""IBCBB1"",114,0)"
^XMB(3.9,55,2,5140,0)=" D F^IBCEF(""N-ALL PROCEDURES"",""IBZPRC"",,IBIFN)"
^XMB(3.9,55,2,5141,0)="""RTN"",""IBCBB1"",115,0)"
^XMB(3.9,55,2,5142,0)=" ; Procedure Clinic is required for Surgical Procedures Outpt Facility Charges"
^XMB(3.9,55,2,5143,0)="""RTN"",""IBCBB1"",116,0)"
^XMB(3.9,55,2,5144,0)=" I +$P(IBND0,U,27)'=2,$$BILLRATE^IBCRU3(IBAT,IBCL,IBEVDT,""RC OUTPATIENT"") D"
^XMB(3.9,55,2,5145,0)="""RTN"",""IBCBB1"",117,0)"
^XMB(3.9,55,2,5146,0)=" . N Z,Z0,Z1,ZE S (ZE,Z)=0 F  S Z=$O(^DGCR(399,IBIFN,""CP"",Z)) Q:'Z  D  I +ZE S IBER=IBER_""IB320;"" Q"
^XMB(3.9,55,2,5147,0)="""RTN"",""IBCBB1"",118,0)"
^XMB(3.9,55,2,5148,0)=" .. S Z0=$G(^DGCR(399,IBIFN,""CP"",Z,0)),Z1=+Z0 I Z0'["";ICPT("" Q"
^XMB(3.9,55,2,5149,0)="""RTN"",""IBCBB1"",119,0)"
^XMB(3.9,55,2,5150,0)=" .. I '((Z1'<10000)&(Z1'>69999))&'((Z1'<93501)&(Z1'>93533)) Q"
^XMB(3.9,55,2,5151,0)="""RTN"",""IBCBB1"",120,0)"
^XMB(3.9,55,2,5152,0)=" .. I '$P(Z0,U,7) S ZE=1"
^XMB(3.9,55,2,5153,0)="""RTN"",""IBCBB1"",121,0)"
^XMB(3.9,55,2,5154,0)=" ;"
^XMB(3.9,55,2,5155,0)="""RTN"",""IBCBB1"",122,0)"
^XMB(3.9,55,2,5156,0)=" ; Extract procedures for UB92"
^XMB(3.9,55,2,5157,0)="""RTN"",""IBCBB1"",123,0)"
^XMB(3.9,55,2,5158,0)=" D F^IBCEF(""N-UB92 PROCEDURES"",""IBZPRC92"",,IBIFN)"
^XMB(3.9,55,2,5159,0)="""RTN"",""IBCBB1"",124,0)"
^XMB(3.9,55,2,5160,0)=" ; Does this bill have ANY prescriptions associated with it?"
^XMB(3.9,55,2,5161,0)="""RTN"",""IBCBB1"",125,0)"
^XMB(3.9,55,2,5162,0)=" ; Must bill prescriptions separately from other charges"
^XMB(3.9,55,2,5163,0)="""RTN"",""IBCBB1"",126,0)"
^XMB(3.9,55,2,5164,0)=" ;"
^XMB(3.9,55,2,5165,0)="""RTN"",""IBCBB1"",127,0)"
^XMB(3.9,55,2,5166,0)=" I $$ISRX^IBCEF1(IBIFN) D"
^XMB(3.9,55,2,5167,0)="""RTN"",""IBCBB1"",128,0)"
^XMB(3.9,55,2,5168,0)=" . N IBZ,IBRXDEF"
^XMB(3.9,55,2,5169,0)="""RTN"",""IBCBB1"",129,0)"
^XMB(3.9,55,2,5170,0)=" . S IBRXDEF=$P($G(^IBE(350.9,1,1)),U,30),IBZ=0"
^XMB(3.9,55,2,5171,0)="""RTN"",""IBCBB1"",130,0)"
^XMB(3.9,55,2,5172,0)=" . F  S IBZ=$O(IBZPRC92(IBZ)) Q:'IBZ  I IBZPRC92(IBZ),+$P(IBZPRC92(IBZ),U)'=IBRXDEF S IBER=IBER_""IB102;"" Q"
^XMB(3.9,55,2,5173,0)="""RTN"",""IBCBB1"",131,0)"
^XMB(3.9,55,2,5174,0)=" . K IBZ"
^XMB(3.9,55,2,5175,0)="""RTN"",""IBCBB1"",132,0)"
^XMB(3.9,55,2,5176,0)=" ;"
^XMB(3.9,55,2,5177,0)="""RTN"",""IBCBB1"",133,0)"
^XMB(3.9,55,2,5178,0)=" ; Check that COB sequences are not skipped"
^XMB(3.9,55,2,5179,0)="""RTN"",""IBCBB1"",134,0)"
^XMB(3.9,55,2,5180,0)=" K Z"
^XMB(3.9,55,2,5181,0)="""RTN"",""IBCBB1"",135,0)"
^XMB(3.9,55,2,5182,0)=" F Z=1:1:3 S:+$G(^DGCR(399,IBIFN,""I""_Z)) Z(Z)="""""
^XMB(3.9,55,2,5183,0)="""RTN"",""IBCBB1"",136,0)"
^XMB(3.9,55,2,5184,0)=" F Z=0:1:2 S Z0=$O(Z(Z)) Q:'Z0  I Z0'=(Z+1) S IBER=IBER_""IB322;"" Q"
^XMB(3.9,55,2,5185,0)="""RTN"",""IBCBB1"",137,0)"
^XMB(3.9,55,2,5186,0)=" K Z"
^XMB(3.9,55,2,5187,0)="""RTN"",""IBCBB1"",138,0)"
^XMB(3.9,55,2,5188,0)=" I $P($G(^DGCR(399,IBIFN,0)),U,21)="""" S IBER=IBER_""IB323;"""
^XMB(3.9,55,2,5189,0)="""RTN"",""IBCBB1"",139,0)"
^XMB(3.9,55,2,5190,0)=" K IBXDATA D F^IBCEF(""N-PROCEDURE CODING METHD"",,,IBIFN)"
^XMB(3.9,55,2,5191,0)="""RTN"",""IBCBB1"",140,0)"
^XMB(3.9,55,2,5192,0)=" ; Coding method should agree with types of procedure codes"
^XMB(3.9,55,2,5193,0)="""RTN"",""IBCBB1"",141,0)"
^XMB(3.9,55,2,5194,0)=" S IBOK=$S('$O(IBZPRC(0))!(IBXDATA=""""):1,1:0)"
^XMB(3.9,55,2,5195,0)="""RTN"",""IBCBB1"",142,0)"
^XMB(3.9,55,2,5196,0)=" I 'IBOK S IBOK=1,IBZ=0 F  S IBZ=$O(IBZPRC(IBZ)) Q:'IBZ  I IBZPRC(IBZ),$P(IBZPRC(IBZ),U)'[$S(IBXDATA=9:""ICD"",1:""ICP"") S IBOK=0 Q"
^XMB(3.9,55,2,5197,0)="""RTN"",""IBCBB1"",143,0)"
^XMB(3.9,55,2,5198,0)=" I 'IBOK D WARN^IBCBB11(""Coding Method does not agree with all procedure codes found on bill"")"
^XMB(3.9,55,2,5199,0)="""RTN"",""IBCBB1"",144,0)"
^XMB(3.9,55,2,5200,0)=" D EDITMRA^IBCBB3(.IBQUIT,.IBER,IBIFN,IBFT)"
^XMB(3.9,55,2,5201,0)="""RTN"",""IBCBB1"",145,0)"
^XMB(3.9,55,2,5202,0)=" Q:$G(IBQUIT)"
^XMB(3.9,55,2,5203,0)="""RTN"",""IBCBB1"",146,0)"
^XMB(3.9,55,2,5204,0)=" ;"
^XMB(3.9,55,2,5205,0)="""RTN"",""IBCBB1"",147,0)"
^XMB(3.9,55,2,5206,0)=" ;Other things that could be added:  Rev Code - calculating charges"
^XMB(3.9,55,2,5207,0)="""RTN"",""IBCBB1"",148,0)"
^XMB(3.9,55,2,5208,0)=" ;        Diagnosis Coding, if MT copay - check for other co-payments"
^XMB(3.9,55,2,5209,0)="""RTN"",""IBCBB1"",149,0)"
^XMB(3.9,55,2,5210,0)=" ;"
^XMB(3.9,55,2,5211,0)="""RTN"",""IBCBB1"",150,0)"
^XMB(3.9,55,2,5212,0)=" I $P(IBNDTX,U,8),$$REQMRA^IBEFUNC(IBIFN) S IBER=IBER_""IB121;""   ; can't force MRAs to print"
^XMB(3.9,55,2,5213,0)="""RTN"",""IBCBB1"",151,0)"
^XMB(3.9,55,2,5214,0)=" I $P(IBNDTX,U,8)!$P(IBNDTX,U,9) D WARN^IBCBB11($S($$REQMRA^IBEFUNC(IBIFN)&($P(IBNDTX,U,9)):""MRA Secondary "",1:"""")_""Bill has been forced to print ""_$S($P(IBNDTX,U,8)=1!($P(IBNDTX,U,9)=1):""locally"",1:""at clearinghouse""))"
^XMB(3.9,55,2,5215,0)="""RTN"",""IBCBB1"",152,0)"
^XMB(3.9,55,2,5216,0)=" I IBFT'=2,$P(IBNDM,U,10)="""" D WARN^IBCBB11(""Patient Short Address has no value"")"
^XMB(3.9,55,2,5217,0)="""RTN"",""IBCBB1"",153,0)"
^XMB(3.9,55,2,5218,0)=" N IBXZ,IBIZ F IBIZ=12,13,14 S IBXZ=$P(IBNDM,U,IBIZ) I +IBXZ S IBXZ=$P($G(^DPT(DFN,.312,IBXZ,0)),U,18) I +IBXZ S IBXZ=$G(^IBA(355.3,+IBXZ,0)) I +$P(IBXZ,U,12) D"
^XMB(3.9,55,2,5219,0)="""RTN"",""IBCBB1"",154,0)"
^XMB(3.9,55,2,5220,0)=" . D WARN^IBCBB11($P($G(^DIC(36,+IBXZ,0)),U,1)_"" requires Amb Care Certification"")"
^XMB(3.9,55,2,5221,0)="""RTN"",""IBCBB1"",155,0)"
^XMB(3.9,55,2,5222,0)=" ;"
^XMB(3.9,55,2,5223,0)="""RTN"",""IBCBB1"",156,0)"
^XMB(3.9,55,2,5224,0)=" ;Build AR array if no errors and MRA not needed or already rec'd"
^XMB(3.9,55,2,5225,0)="""RTN"",""IBCBB1"",157,0)"
^XMB(3.9,55,2,5226,0)=" I IBER="""",$S($$NEEDMRA^IBEFUNC(IBIFN)!($$REQMRA^IBEFUNC(IBIFN)):0,1:1) D ARRAY"
^XMB(3.9,55,2,5227,0)="""RTN"",""IBCBB1"",158,0)"
^XMB(3.9,55,2,5228,0)=" ;"
^XMB(3.9,55,2,5229,0)="""RTN"",""IBCBB1"",159,0)"
^XMB(3.9,55,2,5230,0)="END ;Don't kill IBIFN, IBER, DFN"
^XMB(3.9,55,2,5231,0)="""RTN"",""IBCBB1"",160,0)"
^XMB(3.9,55,2,5232,0)=" I $O(^TMP($J,""BILL-WARN"",0)),$G(IBER)="""" S IBER=""WARN"" ;Warnings only"
^XMB(3.9,55,2,5233,0)="""RTN"",""IBCBB1"",161,0)"
^XMB(3.9,55,2,5234,0)=" K IBBNO,IBEVDT,IBLOC,IBCL,IBTF,IBAT,IBWHO,IBST,IBFDT,IBTDT,IBTC,IBFY,IBFY1,IBAU,IBRU,IBEU,IBARTP,IBFYC,IBMRA,IBTOB,IBTOB12,IBNDU2,IBNDUF3,IBNDUF31,IBNDTX"
^XMB(3.9,55,2,5235,0)="""RTN"",""IBCBB1"",162,0)"
^XMB(3.9,55,2,5236,0)=" K IBNDS,IBND0,IBNDU,IBNDM,IBNDMP,IBNDU1,IBFFY,IBTFY,IBFT,IBRTCHV,IBPICHV,IBXDATA,IBOK"
^XMB(3.9,55,2,5237,0)="""RTN"",""IBCBB1"",163,0)"
^XMB(3.9,55,2,5238,0)=" I $D(IBER),IBER="""" W !,""No Errors found for National edits"""
^XMB(3.9,55,2,5239,0)="""RTN"",""IBCBB1"",164,0)"
^XMB(3.9,55,2,5240,0)=" Q"
^XMB(3.9,55,2,5241,0)="""RTN"",""IBCBB1"",165,0)"
^XMB(3.9,55,2,5242,0)=" ;"
^XMB(3.9,55,2,5243,0)="""RTN"",""IBCBB1"",166,0)"
^XMB(3.9,55,2,5244,0)="ARRAY ;Build PRCASV(array)"
^XMB(3.9,55,2,5245,0)="""RTN"",""IBCBB1"",167,0)"
^XMB(3.9,55,2,5246,0)=" N IBCOBN,X"
^XMB(3.9,55,2,5247,0)="""RTN"",""IBCBB1"",168,0)"
^XMB(3.9,55,2,5248,0)=" K PRCASV"
^XMB(3.9,55,2,5249,0)="""RTN"",""IBCBB1"",169,0)"
^XMB(3.9,55,2,5250,0)=" Q:$$MCRWNR^IBEFUNC(+$$CURR^IBCEF2(IBIFN))"
^XMB(3.9,55,2,5251,0)="""RTN"",""IBCBB1"",170,0)"
^XMB(3.9,55,2,5252,0)=" S IBCOBN=$$COBN^IBCEF(IBIFN)"
^XMB(3.9,55,2,5253,0)="""RTN"",""IBCBB1"",171,0)"
^XMB(3.9,55,2,5254,0)=" S X=IBIFN"
^XMB(3.9,55,2,5255,0)="""RTN"",""IBCBB1"",172,0)"
^XMB(3.9,55,2,5256,0)=" S PRCASV(""BDT"")=DT,PRCASV(""ARREC"")=IBIFN"
^XMB(3.9,55,2,5257,0)="""RTN"",""IBCBB1"",173,0)"
^XMB(3.9,55,2,5258,0)=" S PRCASV(""APR"")=DUZ"
^XMB(3.9,55,2,5259,0)="""RTN"",""IBCBB1"",174,0)"
^XMB(3.9,55,2,5260,0)=" S PRCASV(""PAT"")=DFN,PRCASV(""CAT"")=$P(^DGCR(399.3,IBAT,0),""^"",6)"
^XMB(3.9,55,2,5261,0)="""RTN"",""IBCBB1"",175,0)"
^XMB(3.9,55,2,5262,0)=" I IBWHO=""i"" S PRCASV(""DEBTOR"")=+IBNDMP_"";DIC(36,"""
^XMB(3.9,55,2,5263,0)="""RTN"",""IBCBB1"",176,0)"
^XMB(3.9,55,2,5264,0)=" S PRCASV(""DEBTOR"")=$S(IBWHO=""p"":DFN_"";DPT("",IBWHO=""o"":$P(IBNDM,""^"",11)_"";DIC(4,"",IBWHO=""i"":PRCASV(""DEBTOR""),1:"""")"
^XMB(3.9,55,2,5265,0)="""RTN"",""IBCBB1"",177,0)"
^XMB(3.9,55,2,5266,0)=" S PRCASV(""CARE"")=$E($$TOB^IBCEF1(IBIFN),1,2)"
^XMB(3.9,55,2,5267,0)="""RTN"",""IBCBB1"",178,0)"
^XMB(3.9,55,2,5268,0)=" S PRCASV(""FY"")=$$FY^IBOUTL(DT)_U_($P(IBNDU1,U)-$P(IBNDU1,U,2))"
^XMB(3.9,55,2,5269,0)="""RTN"",""IBCBB1"",179,0)"
^XMB(3.9,55,2,5270,0)=" ;S PRCASV(""FY"")=$P(IBNDU1,U,9)_U_$S($P(IBNDU1,U,2)]"""":($P(IBNDU1,U,10)-$P(IBNDU1,U,2)),1:$P(IBNDU1,U,10))_$S($P(IBNDU1,U,11)]"""":U_$P(IBNDU1,U,11)_U_$P(IBNDU1,U,12),1:"""")"
^XMB(3.9,55,2,5271,0)="""RTN"",""IBCBB1"",180,0)"
^XMB(3.9,55,2,5272,0)="PLUS I IBWHO=""i"",$P(IBNDM,""^"",2),$D(^DIC(36,$P(IBNDM,""^"",2),0)) S PRCASV(""2NDINS"")=$P(IBNDM,""^"",2)"
^XMB(3.9,55,2,5273,0)="""RTN"",""IBCBB1"",181,0)"
^XMB(3.9,55,2,5274,0)=" I IBWHO=""i"",$P(IBNDM,""^"",3),$D(^DIC(36,$P(IBNDM,""^"",3),0)) S PRCASV(""3RDINS"")=$P(IBNDM,""^"",3)"
^XMB(3.9,55,2,5275,0)="""RTN"",""IBCBB1"",182,0)"
^XMB(3.9,55,2,5276,0)=" ;"
^XMB(3.9,55,2,5277,0)="""RTN"",""IBCBB1"",183,0)"
^XMB(3.9,55,2,5278,0)=" N IBX S IBX=$P(IBND0,U,21),IBX=$S(IBX=""P"":""I1"",IBX=""S"":""I2"",IBX=""T"":""I3"",1:"""") Q:IBX="""""
^XMB(3.9,55,2,5279,0)="""RTN"",""IBCBB1"",184,0)"
^XMB(3.9,55,2,5280,0)=" N IBNDI1"
^XMB(3.9,55,2,5281,0)="""RTN"",""IBCBB1"",185,0)"
^XMB(3.9,55,2,5282,0)=" Q:'$D(^DGCR(399,IBIFN,IBX))  S IBNDI1=^(IBX)"
^XMB(3.9,55,2,5283,0)="""RTN"",""IBCBB1"",186,0)"
^XMB(3.9,55,2,5284,0)=" S:$P(IBNDI1,""^"",3)]"""" PRCASV(""GPNO"")=$P(IBNDI1,""^"",3)"
^XMB(3.9,55,2,5285,0)="""RTN"",""IBCBB1"",187,0)"
^XMB(3.9,55,2,5286,0)=" S:$P(IBNDI1,""^"",15)]"""" PRCASV(""GPNM"")=$P(IBNDI1,""^"",15)"
^XMB(3.9,55,2,5287,0)="""RTN"",""IBCBB1"",188,0)"
^XMB(3.9,55,2,5288,0)=" S:$P(IBNDI1,""^"",17)]"""" PRCASV(""INPA"")=$P(IBNDI1,""^"",17)"
^XMB(3.9,55,2,5289,0)="""RTN"",""IBCBB1"",189,0)"
^XMB(3.9,55,2,5290,0)=" S:$P(IBNDI1,""^"",2)]"""" PRCASV(""IDNO"")=$P(IBNDI1,""^"",2),PRCASV(""INID"")=PRCASV(""IDNO"")"
^XMB(3.9,55,2,5291,0)="""RTN"",""IBCBB1"",190,0)"
^XMB(3.9,55,2,5292,0)=" ; Check that this is a secondary or tertiary bill and insurance for previous"
^XMB(3.9,55,2,5293,0)="""RTN"",""IBCBB1"",191,0)"
^XMB(3.9,55,2,5294,0)=" ; COB sequence is Medicare WNR and MRA is active --> send data elements to AR"
^XMB(3.9,55,2,5295,0)="""RTN"",""IBCBB1"",192,0)"
^XMB(3.9,55,2,5296,0)=" I IBCOBN>1,$$WNRBILL^IBEFUNC(IBIFN,IBCOBN-1),$$EDIACTV^IBCEF4(2) D MRA"
^XMB(3.9,55,2,5297,0)="""RTN"",""IBCBB1"",193,0)"
^XMB(3.9,55,2,5298,0)=" Q"
^XMB(3.9,55,2,5299,0)="""RTN"",""IBCBB1"",194,0)"
^XMB(3.9,55,2,5300,0)=" ;"
^XMB(3.9,55,2,5301,0)="""RTN"",""IBCBB1"",195,0)"
^XMB(3.9,55,2,5302,0)="MRA N IBEOB S IBEOB=0"
^XMB(3.9,55,2,5303,0)="""RTN"",""IBCBB1"",196,0)"
^XMB(3.9,55,2,5304,0)=" ;"
^XMB(3.9,55,2,5305,0)="""RTN"",""IBCBB1"",197,0)"
^XMB(3.9,55,2,5306,0)=" K PRCASV(""MEDURE""),PRCASV(""MEDCA"")"
^XMB(3.9,55,2,5307,0)="""RTN"",""IBCBB1"",198,0)"
^XMB(3.9,55,2,5308,0)=" ; Get EOB data"
^XMB(3.9,55,2,5309,0)="""RTN"",""IBCBB1"",199,0)"
^XMB(3.9,55,2,5310,0)=" F  S IBEOB=$O(^IBM(361.1,""B"",IBIFN,IBEOB)) Q:'IBEOB  D"
^XMB(3.9,55,2,5311,0)="""RTN"",""IBCBB1"",200,0)"
^XMB(3.9,55,2,5312,0)=" . D MRACALC^IBCEMU2(IBEOB,IBIFN,1,.PRCASV)"
^XMB(3.9,55,2,5313,0)="""RTN"",""IBCBB1"",201,0)"
^XMB(3.9,55,2,5314,0)=" Q  ;MRA"
^XMB(3.9,55,2,5315,0)="""RTN"",""IBCBB1"",202,0)"
^XMB(3.9,55,2,5316,0)=" ;"
^XMB(3.9,55,2,5317,0)="""RTN"",""IBCBB1"",203,0)"
^XMB(3.9,55,2,5318,0)=" ;; PREGNANCY DX CODES: V22**-V24**, V27**-V28**, 630**-677**"
^XMB(3.9,55,2,5319,0)="""RTN"",""IBCBB1"",204,0)"
^XMB(3.9,55,2,5320,0)=" ;; FLU SHOTS PROCEDURE CODES: 90724, G0008, 90732, G0009"
^XMB(3.9,55,2,5321,0)="""RTN"",""IBCBB2"")"
^XMB(3.9,55,2,5322,0)="0^42^B42060195^B35010938"
^XMB(3.9,55,2,5323,0)="""RTN"",""IBCBB2"",1,0)"
^XMB(3.9,55,2,5324,0)="IBCBB2 ;ALB/ARH - CONTINUATION OF EDIT CHECKS ROUTINE (HCFA 1500) ;04/14/92"
^XMB(3.9,55,2,5325,0)="""RTN"",""IBCBB2"",2,0)"
^XMB(3.9,55,2,5326,0)=" ;;2.0;INTEGRATED BILLING;**51,137,210,245,232,296,320**;21-MAR-94"
^XMB(3.9,55,2,5327,0)="""RTN"",""IBCBB2"",3,0)"
^XMB(3.9,55,2,5328,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,5329,0)="""RTN"",""IBCBB2"",4,0)"
^XMB(3.9,55,2,5330,0)=" ;"
^XMB(3.9,55,2,5331,0)="""RTN"",""IBCBB2"",5,0)"
^XMB(3.9,55,2,5332,0)=" ;MAP TO DGCRBB2"
^XMB(3.9,55,2,5333,0)="""RTN"",""IBCBB2"",6,0)"
^XMB(3.9,55,2,5334,0)=" ;"
^XMB(3.9,55,2,5335,0)="""RTN"",""IBCBB2"",7,0)"
^XMB(3.9,55,2,5336,0)="EN ;"
^XMB(3.9,55,2,5337,0)="""RTN"",""IBCBB2"",8,0)"
^XMB(3.9,55,2,5338,0)=" N IBI,IBJ,IBN,IBY,IBDX,IBDXO,IBDXL,IBCPT,IBCPTL,IBOLAB,Z,IBXSAVE,IBLOC,IBTX,IBPS,IBSP,IBLCT"
^XMB(3.9,55,2,5339,0)="""RTN"",""IBCBB2"",9,0)"
^XMB(3.9,55,2,5340,0)=" I '$D(IBER) S IBER="""""
^XMB(3.9,55,2,5341,0)="""RTN"",""IBCBB2"",10,0)"
^XMB(3.9,55,2,5342,0)=" S IBTX=$$TXMT^IBCEF4(IBIFN)"
^XMB(3.9,55,2,5343,0)="""RTN"",""IBCBB2"",11,0)"
^XMB(3.9,55,2,5344,0)=" ;"
^XMB(3.9,55,2,5345,0)="""RTN"",""IBCBB2"",12,0)"
^XMB(3.9,55,2,5346,0)=" ; Warn if no group provider id (MCRWNR is a default)"
^XMB(3.9,55,2,5347,0)="""RTN"",""IBCBB2"",13,0)"
^XMB(3.9,55,2,5348,0)=" ; I '$$WNRBILL^IBEFUNC(IBIFN) D"
^XMB(3.9,55,2,5349,0)="""RTN"",""IBCBB2"",14,0)"
^XMB(3.9,55,2,5350,0)=" ; . S Z=$P($G(^DGCR(399,IBIFN,""M1"")),U,$$COBN^IBCEF(IBIFN)+1)"
^XMB(3.9,55,2,5351,0)="""RTN"",""IBCBB2"",15,0)"
^XMB(3.9,55,2,5352,0)=" ; . I Z="""" D WARN^IBCBB11(""No group prov # for the current ins co - site tax id will be used"")"
^XMB(3.9,55,2,5353,0)="""RTN"",""IBCBB2"",16,0)"
^XMB(3.9,55,2,5354,0)=" ; Max 4 modifiers per CPT code allowed before warning"
^XMB(3.9,55,2,5355,0)="""RTN"",""IBCBB2"",17,0)"
^XMB(3.9,55,2,5356,0)=" K IBXDATA"
^XMB(3.9,55,2,5357,0)="""RTN"",""IBCBB2"",18,0)"
^XMB(3.9,55,2,5358,0)=" D F^IBCEF(""N-HCFA 1500 MODIFIERS"",,,IBIFN) ;Get modifiers"
^XMB(3.9,55,2,5359,0)="""RTN"",""IBCBB2"",19,0)"
^XMB(3.9,55,2,5360,0)=" ;"
^XMB(3.9,55,2,5361,0)="""RTN"",""IBCBB2"",20,0)"
^XMB(3.9,55,2,5362,0)=" S Z=0 F  S Z=$O(IBZPRC92(Z)) Q:'Z  I $P(IBZPRC92(Z),U)[""ICPT("",$L($P(IBZPRC92(Z),U,15),"","")>4 S IBI=""Proc ""_$$PRCD^IBCEF1($P(IBZPRC92(Z),U))_"" has > 4 modifiers - only first 4 will be used"" D WARN^IBCBB11(IBI)"
^XMB(3.9,55,2,5363,0)="""RTN"",""IBCBB2"",21,0)"
^XMB(3.9,55,2,5364,0)=" ; ICD-9 diagnosis, at least 1 required"
^XMB(3.9,55,2,5365,0)="""RTN"",""IBCBB2"",22,0)"
^XMB(3.9,55,2,5366,0)=" D SET^IBCSC4D(IBIFN,.IBDX,.IBDXO) I '$P(IBDX,U,2) S IBER=IBER_""IB071;"""
^XMB(3.9,55,2,5367,0)="""RTN"",""IBCBB2"",23,0)"
^XMB(3.9,55,2,5368,0)=" S IBI=$O(IBDXO(0))"
^XMB(3.9,55,2,5369,0)="""RTN"",""IBCBB2"",24,0)"
^XMB(3.9,55,2,5370,0)=" I IBI,$$INPAT^IBCEF(IBIFN,1),$E($$ICD9^IBACSV(+$P(IBDXO(IBI),U)))=""V"" S Z=""Principal Dx V-code may not be valid"" D WARN^IBCBB11(Z)"
^XMB(3.9,55,2,5371,0)="""RTN"",""IBCBB2"",25,0)"
^XMB(3.9,55,2,5372,0)=" ;"
^XMB(3.9,55,2,5373,0)="""RTN"",""IBCBB2"",26,0)"
^XMB(3.9,55,2,5374,0)=" ; CPT procs must be associated with a dx, must have a defined provider"
^XMB(3.9,55,2,5375,0)="""RTN"",""IBCBB2"",27,0)"
^XMB(3.9,55,2,5376,0)=" S (IBLOC,IBN,IBI,IBY)=0 F  S IBI=$O(^DGCR(399,IBIFN,""CP"",IBI)) Q:IBI'?1N.N  S IBCPT=^(IBI,0) D  I +IBY S IBN=1"
^XMB(3.9,55,2,5377,0)="""RTN"",""IBCBB2"",28,0)"
^XMB(3.9,55,2,5378,0)=" . ;I IBER'[""IB089"",$P(IBCPT,U,10)=7,$S('$P(IBCPT,U,16):1,1:$P(IBCPT,U,16)#15) S IBER=IBER_""IB089;"" ;anesthesia needs minutes in multiple of 15"
^XMB(3.9,55,2,5379,0)="""RTN"",""IBCBB2"",29,0)"
^XMB(3.9,55,2,5380,0)=" . I 'IBLOC,$P(IBCPT,U,15)'="""",IBTX S Z=""At least 1 charge has local box 24K data that will not be transmitted - "" S IBLOC=1 D WARN^IBCBB11(Z) S Z=""  This data will only print locally"" D WARN^IBCBB11(Z)"
^XMB(3.9,55,2,5381,0)="""RTN"",""IBCBB2"",30,0)"
^XMB(3.9,55,2,5382,0)=" . I $P(IBCPT,U)'[""ICPT("" S:IBER'[""IB092"" IBER=IBER_""IB092;"" Q"
^XMB(3.9,55,2,5383,0)="""RTN"",""IBCBB2"",31,0)"
^XMB(3.9,55,2,5384,0)=" . S IBY=1 F IBJ=11:1:14 I +$P(IBCPT,""^"",IBJ) S IBCPTL(+$P(IBCPT,""^"",IBJ))="""",IBY=0"
^XMB(3.9,55,2,5385,0)="""RTN"",""IBCBB2"",32,0)"
^XMB(3.9,55,2,5386,0)=" . ;I '$P(IBCPT,U,18) S:IBER'[""IB094;"" IBER=IBER_""IB094;"" Q"
^XMB(3.9,55,2,5387,0)="""RTN"",""IBCBB2"",33,0)"
^XMB(3.9,55,2,5388,0)=" I +IBN S IBER=IBER_""IB072;"""
^XMB(3.9,55,2,5389,0)="""RTN"",""IBCBB2"",34,0)"
^XMB(3.9,55,2,5390,0)=" ;"
^XMB(3.9,55,2,5391,0)="""RTN"",""IBCBB2"",35,0)"
^XMB(3.9,55,2,5392,0)=" I '$$OCC10(IBIFN,.IBDX,2) S IBER=IBER_""IB093;"""
^XMB(3.9,55,2,5393,0)="""RTN"",""IBCBB2"",36,0)"
^XMB(3.9,55,2,5394,0)=" ; HCFA 1500: dxs associated with procs must be defined dxs for the bill"
^XMB(3.9,55,2,5395,0)="""RTN"",""IBCBB2"",37,0)"
^XMB(3.9,55,2,5396,0)=" S IBI=0 F  S IBI=$O(IBDX(IBI))  Q:'IBI  S IBDXL(IBDX(IBI))="""""
^XMB(3.9,55,2,5397,0)="""RTN"",""IBCBB2"",38,0)"
^XMB(3.9,55,2,5398,0)=" S (IBN,IBI)=0 F  S IBI=$O(IBCPTL(IBI)) Q:'IBI  I '$D(IBDXL(IBI)) S IBN=1 Q"
^XMB(3.9,55,2,5399,0)="""RTN"",""IBCBB2"",39,0)"
^XMB(3.9,55,2,5400,0)=" I +IBN S IBER=IBER_""IB073;"""
^XMB(3.9,55,2,5401,0)="""RTN"",""IBCBB2"",40,0)"
^XMB(3.9,55,2,5402,0)=" ; ejk *296* Change # of diagnoses codes from 4 to 8 on HCFA Claims. "
^XMB(3.9,55,2,5403,0)="""RTN"",""IBCBB2"",41,0)"
^XMB(3.9,55,2,5404,0)=" I IBTX S IBI=8 F  S IBI=$O(IBDXO(IBI)) Q:'IBI  S Z=+$G(IBDX(+$G(IBDXO(IBI)))) I Z,$D(IBCPTL(Z)) D WARN^IBCBB11(""Too many diagnoses for claim & will be rejected - consider printing locally"")"
^XMB(3.9,55,2,5405,0)="""RTN"",""IBCBB2"",42,0)"
^XMB(3.9,55,2,5406,0)=" ;"
^XMB(3.9,55,2,5407,0)="""RTN"",""IBCBB2"",43,0)"
^XMB(3.9,55,2,5408,0)=" I $$WNRBILL^IBEFUNC(IBIFN),$$MRATYPE^IBEFUNC(IBIFN)'=""B"" S IBER=IBER_""IB087;"""
^XMB(3.9,55,2,5409,0)="""RTN"",""IBCBB2"",44,0)"
^XMB(3.9,55,2,5410,0)=" ;"
^XMB(3.9,55,2,5411,0)="""RTN"",""IBCBB2"",45,0)"
^XMB(3.9,55,2,5412,0)=" ; IB*320 - CLIA# error/warning - error msg for MRA claims, else warning"
^XMB(3.9,55,2,5413,0)="""RTN"",""IBCBB2"",46,0)"
^XMB(3.9,55,2,5414,0)=" I $P(IBNDU2,U,13)="""",$$CLIAREQ^IBCEP8A(IBIFN) D"
^XMB(3.9,55,2,5415,0)="""RTN"",""IBCBB2"",47,0)"
^XMB(3.9,55,2,5416,0)=" . I $$REQMRA^IBEFUNC(IBIFN) S IBER=IBER_""IB235;"" Q"
^XMB(3.9,55,2,5417,0)="""RTN"",""IBCBB2"",48,0)"
^XMB(3.9,55,2,5418,0)=" . D WARN^IBCBB11(""Claim contains laboratory services. The payer may require a CLIA #."")"
^XMB(3.9,55,2,5419,0)="""RTN"",""IBCBB2"",49,0)"
^XMB(3.9,55,2,5420,0)=" . Q"
^XMB(3.9,55,2,5421,0)="""RTN"",""IBCBB2"",50,0)"
^XMB(3.9,55,2,5422,0)=" ;"
^XMB(3.9,55,2,5423,0)="""RTN"",""IBCBB2"",51,0)"
^XMB(3.9,55,2,5424,0)=" ; Only one occurrence code can be present for event date for box 14"
^XMB(3.9,55,2,5425,0)="""RTN"",""IBCBB2"",52,0)"
^XMB(3.9,55,2,5426,0)=" S Z=$$EVENT^IBCF22(IBIFN,.IBXSAVE,.IBI)"
^XMB(3.9,55,2,5427,0)="""RTN"",""IBCBB2"",53,0)"
^XMB(3.9,55,2,5428,0)=" I IBI S IBER=IBER_""IB099;"""
^XMB(3.9,55,2,5429,0)="""RTN"",""IBCBB2"",54,0)"
^XMB(3.9,55,2,5430,0)=" ; unit/charge limits"
^XMB(3.9,55,2,5431,0)="""RTN"",""IBCBB2"",55,0)"
^XMB(3.9,55,2,5432,0)=" K IBXDATA"
^XMB(3.9,55,2,5433,0)="""RTN"",""IBCBB2"",56,0)"
^XMB(3.9,55,2,5434,0)=" D F^IBCEF(""N-HCFA 1500 SERVICES (PRINT)"",,,IBIFN) ;Get charge lines"
^XMB(3.9,55,2,5435,0)="""RTN"",""IBCBB2"",57,0)"
^XMB(3.9,55,2,5436,0)=" S (IBLCT,IBOLAB)=0,IBPS="""",IBSP=$$BILLSPEC^IBCEU3(IBIFN)"
^XMB(3.9,55,2,5437,0)="""RTN"",""IBCBB2"",58,0)"
^XMB(3.9,55,2,5438,0)=" S IBI=0 F  S IBI=$O(IBXDATA(IBI)) Q:'IBI  D  Q:IBER[""IB310""!(IBER[""IB311"")"
^XMB(3.9,55,2,5439,0)="""RTN"",""IBCBB2"",59,0)"
^XMB(3.9,55,2,5440,0)=" . S IBLCT=IBLCT+1"
^XMB(3.9,55,2,5441,0)="""RTN"",""IBCBB2"",60,0)"
^XMB(3.9,55,2,5442,0)=" . I $P(IBNDU2,U,11) D"
^XMB(3.9,55,2,5443,0)="""RTN"",""IBCBB2"",61,0)"
^XMB(3.9,55,2,5444,0)=" .. I '$P(IBXDATA(IBI),U,11) S IBPS=IBPS_$S(IBPS'="""":"","",1:"""")_IBI Q"
^XMB(3.9,55,2,5445,0)="""RTN"",""IBCBB2"",62,0)"
^XMB(3.9,55,2,5446,0)=" .. I $P(IBXDATA(IBI),U,14),""24""'[$P(IBNDU2,U,11) D WARN^IBCBB11(""Outside lab charges exist on a non-lab NON-VA bill"")"
^XMB(3.9,55,2,5447,0)="""RTN"",""IBCBB2"",63,0)"
^XMB(3.9,55,2,5448,0)=" . I '$P(IBNDU2,U,11),$P(IBXDATA(IBI),U,11) D WARN^IBCBB11(""Purchased service amounts are invalid unless this is a NON-VA bill"")"
^XMB(3.9,55,2,5449,0)="""RTN"",""IBCBB2"",64,0)"
^XMB(3.9,55,2,5450,0)=" . I $D(IBXDATA(IBI,""A"")) S IBER=IBER_""IB310;"" Q"
^XMB(3.9,55,2,5451,0)="""RTN"",""IBCBB2"",65,0)"
^XMB(3.9,55,2,5452,0)=" . I $D(IBXDATA(IBI,""ARX"")),IBER'[""311;"" S IBER=IBER_""IB311;"" Q"
^XMB(3.9,55,2,5453,0)="""RTN"",""IBCBB2"",66,0)"
^XMB(3.9,55,2,5454,0)=" . I $P(IBXDATA(IBI),U,14) S IBOLAB=IBOLAB+1"
^XMB(3.9,55,2,5455,0)="""RTN"",""IBCBB2"",67,0)"
^XMB(3.9,55,2,5456,0)=" . ; Place of service required"
^XMB(3.9,55,2,5457,0)="""RTN"",""IBCBB2"",68,0)"
^XMB(3.9,55,2,5458,0)=" . I $G(IBER)'[""IB314;"",$P(IBXDATA(IBI),U,3)="""" S IBER=IBER_""IB314;"""
^XMB(3.9,55,2,5459,0)="""RTN"",""IBCBB2"",69,0)"
^XMB(3.9,55,2,5460,0)=" . ; Type of service required"
^XMB(3.9,55,2,5461,0)="""RTN"",""IBCBB2"",70,0)"
^XMB(3.9,55,2,5462,0)=" . I $G(IBER)'[""IB313;"",$P(IBXDATA(IBI),U,4)="""" S IBER=IBER_""IB313;"""
^XMB(3.9,55,2,5463,0)="""RTN"",""IBCBB2"",71,0)"
^XMB(3.9,55,2,5464,0)=" . ; 43 and 53 are invalid types of service"
^XMB(3.9,55,2,5465,0)="""RTN"",""IBCBB2"",72,0)"
^XMB(3.9,55,2,5466,0)=" . I $G(IBER)'[""IB110;"",($P(IBXDATA(IBI),U,4)=43!($P(IBXDATA(IBI),U,4)=53)) S IBER=IBER_""IB110;"""
^XMB(3.9,55,2,5467,0)="""RTN"",""IBCBB2"",73,0)"
^XMB(3.9,55,2,5468,0)=" . ; Units for the line item must be less than 100/1000"
^XMB(3.9,55,2,5469,0)="""RTN"",""IBCBB2"",74,0)"
^XMB(3.9,55,2,5470,0)=" . I IBER'[""IB088"",$P(IBXDATA(IBI),U,9)'<100 D"
^XMB(3.9,55,2,5471,0)="""RTN"",""IBCBB2"",75,0)"
^XMB(3.9,55,2,5472,0)=" .. I $P(IBXDATA(IBI),U,4)'=7 S IBER=IBER_""IB088;"" Q"
^XMB(3.9,55,2,5473,0)="""RTN"",""IBCBB2"",76,0)"
^XMB(3.9,55,2,5474,0)=" .. I $P(IBXDATA(IBI),U,9)'<1000 S IBER=IBER_""IB088;"""
^XMB(3.9,55,2,5475,0)="""RTN"",""IBCBB2"",77,0)"
^XMB(3.9,55,2,5476,0)=" . ; Line item total charge must be less than $10,000.00, greater than 0"
^XMB(3.9,55,2,5477,0)="""RTN"",""IBCBB2"",78,0)"
^XMB(3.9,55,2,5478,0)=" . I IBER'[""IB090"",$P(IBXDATA(IBI),U,9)'<10000 S IBER=IBER_""IB090;"""
^XMB(3.9,55,2,5479,0)="""RTN"",""IBCBB2"",79,0)"
^XMB(3.9,55,2,5480,0)=" . I '($P(IBXDATA(IBI),U,9)*$P(IBXDATA(IBI),U,8)),$$COBN^IBCEF(IBIFN)'>1 S Z=""Procedure ""_$P(IBXDATA(IBI),U,5)_"" has a 0-charge and will not be transmitted"" D WARN^IBCBB11(Z)"
^XMB(3.9,55,2,5481,0)="""RTN"",""IBCBB2"",80,0)"
^XMB(3.9,55,2,5482,0)=" . I $G(IBXDATA(IBI,""AUX""))'="""",'$G(IBSP(1)),+IBSP'=35,$TR($P(IBXDATA(IBI,""AUX""),U,4,6)_$P(IBXDATA(IBI,""AUX""),U,2),U)'="""" S IBSP(1)=1"
^XMB(3.9,55,2,5483,0)="""RTN"",""IBCBB2"",81,0)"
^XMB(3.9,55,2,5484,0)=" I IBTX,IBLCT>50 D"
^XMB(3.9,55,2,5485,0)="""RTN"",""IBCBB2"",82,0)"
^XMB(3.9,55,2,5486,0)=" . I '$$REQMRA^IBEFUNC(IBIFN) S IBER=IBER_""IB308;"" Q"
^XMB(3.9,55,2,5487,0)="""RTN"",""IBCBB2"",83,0)"
^XMB(3.9,55,2,5488,0)=" . I '$P(IBNDTX,U,9) S IBER=IBER_""IB325;"""
^XMB(3.9,55,2,5489,0)="""RTN"",""IBCBB2"",84,0)"
^XMB(3.9,55,2,5490,0)=" I $G(IBSP(1)) D WARN^IBCBB11(""Chiropractic service details only valid if provider specialty is '35'"")"
^XMB(3.9,55,2,5491,0)="""RTN"",""IBCBB2"",85,0)"
^XMB(3.9,55,2,5492,0)=" I IBPS'="""" D WARN^IBCBB11(""NON-VA facility indicated, but no purchased service charge on line item""_$S(IBPS["","":""s"",1:"""")_"" #""_IBPS)"
^XMB(3.9,55,2,5493,0)="""RTN"",""IBCBB2"",86,0)"
^XMB(3.9,55,2,5494,0)=" I $P(IBNDU2,U,11),$P(IBNDU2,U,11)=4,IBOLAB>1 D WARN^IBCBB11(""For proper payment, you must bill each outside lab on a separate claim form"")"
^XMB(3.9,55,2,5495,0)="""RTN"",""IBCBB2"",87,0)"
^XMB(3.9,55,2,5496,0)=" K IBXDATA"
^XMB(3.9,55,2,5497,0)="""RTN"",""IBCBB2"",88,0)"
^XMB(3.9,55,2,5498,0)=" ;"
^XMB(3.9,55,2,5499,0)="""RTN"",""IBCBB2"",89,0)"
^XMB(3.9,55,2,5500,0)=" ;       ; Check for Physician Name"
^XMB(3.9,55,2,5501,0)="""RTN"",""IBCBB2"",90,0)"
^XMB(3.9,55,2,5502,0)=" D F^IBCEF(""N-REFERRING PROVIDER NAME"",,,IBIFN)"
^XMB(3.9,55,2,5503,0)="""RTN"",""IBCBB2"",91,0)"
^XMB(3.9,55,2,5504,0)=" I $P($G(IBXDATA),U)]"""" D"
^XMB(3.9,55,2,5505,0)="""RTN"",""IBCBB2"",92,0)"
^XMB(3.9,55,2,5506,0)=" .N IBZ,FUNCTION,IBINS"
^XMB(3.9,55,2,5507,0)="""RTN"",""IBCBB2"",93,0)"
^XMB(3.9,55,2,5508,0)=" .S FUNCTION=1"
^XMB(3.9,55,2,5509,0)="""RTN"",""IBCBB2"",94,0)"
^XMB(3.9,55,2,5510,0)=" .F IBINS=1:1:3 D"
^XMB(3.9,55,2,5511,0)="""RTN"",""IBCBB2"",95,0)"
^XMB(3.9,55,2,5512,0)=" .. S Z=$$GETTYP^IBCEP2A(IBIFN,IBINS,FUNCTION)"
^XMB(3.9,55,2,5513,0)="""RTN"",""IBCBB2"",96,0)"
^XMB(3.9,55,2,5514,0)=" .. I Z,$P(Z,U,2) D  ; Rendering/attending prov secondary id required"
^XMB(3.9,55,2,5515,0)="""RTN"",""IBCBB2"",97,0)"
^XMB(3.9,55,2,5516,0)=" ... N IBID,IBOK,Q0"
^XMB(3.9,55,2,5517,0)="""RTN"",""IBCBB2"",98,0)"
^XMB(3.9,55,2,5518,0)=" ... D PROVINF^IBCEF74(IBIFN,IBINS,.IBID,1,""C"")  ; check all as though they were current"
^XMB(3.9,55,2,5519,0)="""RTN"",""IBCBB2"",99,0)"
^XMB(3.9,55,2,5520,0)=" ... S IBOK=0"
^XMB(3.9,55,2,5521,0)="""RTN"",""IBCBB2"",100,0)"
^XMB(3.9,55,2,5522,0)=" ... S Q0=0 F  S Q0=$O(IBID(1,FUNCTION,Q0)) Q:'Q0  I $P(IBID(1,FUNCTION,Q0),U,9)=+Z S IBOK=1 Q"
^XMB(3.9,55,2,5523,0)="""RTN"",""IBCBB2"",101,0)"
^XMB(3.9,55,2,5524,0)=" ... I 'IBOK S IBER=IBER_$S(IBINS=1:""IB239;"",IBINS=2:""IB240;"",IBINS=3:""IB241;"",1:"""")"
^XMB(3.9,55,2,5525,0)="""RTN"",""IBCBB2"",102,0)"
^XMB(3.9,55,2,5526,0)=" ;"
^XMB(3.9,55,2,5527,0)="""RTN"",""IBCBB2"",103,0)"
^XMB(3.9,55,2,5528,0)=" Q"
^XMB(3.9,55,2,5529,0)="""RTN"",""IBCBB2"",104,0)"
^XMB(3.9,55,2,5530,0)=" ;"
^XMB(3.9,55,2,5531,0)="""RTN"",""IBCBB2"",105,0)"
^XMB(3.9,55,2,5532,0)="OCC10(IBIFN,IBARR,IBFT) ; Determine if occurrence code 10 exists for pregnancy dx"
^XMB(3.9,55,2,5533,0)="""RTN"",""IBCBB2"",106,0)"
^XMB(3.9,55,2,5534,0)=" ; IBARR=array subscripted by ien of DX code if IBFT=2 (HCFA form)"
^XMB(3.9,55,2,5535,0)="""RTN"",""IBCBB2"",107,0)"
^XMB(3.9,55,2,5536,0)=" ;                         by seq # and = ien of DX code if IBFT'=2"
^XMB(3.9,55,2,5537,0)="""RTN"",""IBCBB2"",108,0)"
^XMB(3.9,55,2,5538,0)=" ;"
^XMB(3.9,55,2,5539,0)="""RTN"",""IBCBB2"",109,0)"
^XMB(3.9,55,2,5540,0)=" N IBN,IBI,IBXDATA,IBXSAVE,IBDX,Z"
^XMB(3.9,55,2,5541,0)="""RTN"",""IBCBB2"",110,0)"
^XMB(3.9,55,2,5542,0)=" S IBN=1"
^XMB(3.9,55,2,5543,0)="""RTN"",""IBCBB2"",111,0)"
^XMB(3.9,55,2,5544,0)=" ;"
^XMB(3.9,55,2,5545,0)="""RTN"",""IBCBB2"",112,0)"
^XMB(3.9,55,2,5546,0)=" I '$D(^TMP($J,""LMD"")) D"
^XMB(3.9,55,2,5547,0)="""RTN"",""IBCBB2"",113,0)"
^XMB(3.9,55,2,5548,0)=" . D F^IBCEF(""N-OCCURRENCE CODES"",,,IBIFN)"
^XMB(3.9,55,2,5549,0)="""RTN"",""IBCBB2"",114,0)"
^XMB(3.9,55,2,5550,0)=" . S ^TMP($J,""LMD"")="""""
^XMB(3.9,55,2,5551,0)="""RTN"",""IBCBB2"",115,0)"
^XMB(3.9,55,2,5552,0)=" . S Z=0 F  S Z=$O(IBXSAVE(""OCC"",Z)) Q:'Z  I +IBXSAVE(""OCC"",Z)=10 S ^TMP($J,""LMD"")=1 Q"
^XMB(3.9,55,2,5553,0)="""RTN"",""IBCBB2"",116,0)"
^XMB(3.9,55,2,5554,0)=" ;"
^XMB(3.9,55,2,5555,0)="""RTN"",""IBCBB2"",117,0)"
^XMB(3.9,55,2,5556,0)=" I '^TMP($J,""LMD"") S IBI=0 F  S IBI=$O(IBARR(IBI))  Q:'IBI  D  Q:'IBN"
^XMB(3.9,55,2,5557,0)="""RTN"",""IBCBB2"",118,0)"
^XMB(3.9,55,2,5558,0)=" . N Z,Z1"
^XMB(3.9,55,2,5559,0)="""RTN"",""IBCBB2"",119,0)"
^XMB(3.9,55,2,5560,0)=" . ; If a pregnancy DX exists, must be an occurrence code 10 for LMP date"
^XMB(3.9,55,2,5561,0)="""RTN"",""IBCBB2"",120,0)"
^XMB(3.9,55,2,5562,0)=" . ; dx ranges are: V22*-V24*, V27*-V28*, 630*-677*"
^XMB(3.9,55,2,5563,0)="""RTN"",""IBCBB2"",121,0)"
^XMB(3.9,55,2,5564,0)=" . S IBDX=$S($G(IBFT)'=2:+IBARR(IBI),1:IBI)"
^XMB(3.9,55,2,5565,0)="""RTN"",""IBCBB2"",122,0)"
^XMB(3.9,55,2,5566,0)=" . S Z=$E($P($$ICD9^IBACSV(IBDX),U),1,3),Z1=$E(Z,2,3)"
^XMB(3.9,55,2,5567,0)="""RTN"",""IBCBB2"",123,0)"
^XMB(3.9,55,2,5568,0)=" . I $S(Z'<630&(Z<678):1,$E(Z)=""V"":$S(Z1'<22&(Z1<25):1,1:Z1'<27&(Z1<28)),1:0) S IBN=0 ;Pregnancy Dx exists"
^XMB(3.9,55,2,5569,0)="""RTN"",""IBCBB2"",124,0)"
^XMB(3.9,55,2,5570,0)=" ;"
^XMB(3.9,55,2,5571,0)="""RTN"",""IBCBB2"",125,0)"
^XMB(3.9,55,2,5572,0)="OCC10Q K ^TMP($J,""LMD"")"
^XMB(3.9,55,2,5573,0)="""RTN"",""IBCBB2"",126,0)"
^XMB(3.9,55,2,5574,0)=" Q IBN"
^XMB(3.9,55,2,5575,0)="""RTN"",""IBCBB2"",127,0)"
^XMB(3.9,55,2,5576,0)=" ;"
^XMB(3.9,55,2,5577,0)="""RTN"",""IBCC"")"
^XMB(3.9,55,2,5578,0)="0^2^B36081690^B35414312"
^XMB(3.9,55,2,5579,0)="""RTN"",""IBCC"",1,0)"
^XMB(3.9,55,2,5580,0)="IBCC ;ALB/MJB - CANCEL UB-82 THIRD PARTY BILL ;14 JUN 88  10:12"
^XMB(3.9,55,2,5581,0)="""RTN"",""IBCC"",2,0)"
^XMB(3.9,55,2,5582,0)=" ;;2.0;INTEGRATED BILLING;**2,19,77,80,51,142,137,161,199,241,155,276,320**;21-MAR-94"
^XMB(3.9,55,2,5583,0)="""RTN"",""IBCC"",3,0)"
^XMB(3.9,55,2,5584,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,5585,0)="""RTN"",""IBCC"",4,0)"
^XMB(3.9,55,2,5586,0)=" ;"
^XMB(3.9,55,2,5587,0)="""RTN"",""IBCC"",5,0)"
^XMB(3.9,55,2,5588,0)=" ;MAP TO DGCRC"
^XMB(3.9,55,2,5589,0)="""RTN"",""IBCC"",6,0)"
^XMB(3.9,55,2,5590,0)=" ;"
^XMB(3.9,55,2,5591,0)="""RTN"",""IBCC"",7,0)"
^XMB(3.9,55,2,5592,0)=" I '$D(IBCAN) S IBCAN=1"
^XMB(3.9,55,2,5593,0)="""RTN"",""IBCC"",8,0)"
^XMB(3.9,55,2,5594,0)="ASK ;"
^XMB(3.9,55,2,5595,0)="""RTN"",""IBCC"",9,0)"
^XMB(3.9,55,2,5596,0)=" ;***"
^XMB(3.9,55,2,5597,0)="""RTN"",""IBCC"",10,0)"
^XMB(3.9,55,2,5598,0)=" ;I $D(XRT0) S:'$D(XRTN) XRTN=""IBCC"" D T1^%ZOSV ;stop rt clock"
^XMB(3.9,55,2,5599,0)="""RTN"",""IBCC"",11,0)"
^XMB(3.9,55,2,5600,0)=" ;S XRTL=$ZU(0),XRTN=""IBCC-1"" D T0^%ZOSV ;start rt clock"
^XMB(3.9,55,2,5601,0)="""RTN"",""IBCC"",12,0)"
^XMB(3.9,55,2,5602,0)=" ;"
^XMB(3.9,55,2,5603,0)="""RTN"",""IBCC"",13,0)"
^XMB(3.9,55,2,5604,0)=" ; If called at entry point PROCESS, variable IBNOASK will exist."
^XMB(3.9,55,2,5605,0)="""RTN"",""IBCC"",14,0)"
^XMB(3.9,55,2,5606,0)=" ; First time through, IBNOASK=1"
^XMB(3.9,55,2,5607,0)="""RTN"",""IBCC"",15,0)"
^XMB(3.9,55,2,5608,0)=" ; Second time through, IBNOASK=2 and it will quit"
^XMB(3.9,55,2,5609,0)="""RTN"",""IBCC"",16,0)"
^XMB(3.9,55,2,5610,0)=" I $G(IBNOASK)=2 G Q"
^XMB(3.9,55,2,5611,0)="""RTN"",""IBCC"",17,0)"
^XMB(3.9,55,2,5612,0)=" I $G(IBNOASK)=1 S IBNOASK=2"
^XMB(3.9,55,2,5613,0)="""RTN"",""IBCC"",18,0)"
^XMB(3.9,55,2,5614,0)=" ;"
^XMB(3.9,55,2,5615,0)="""RTN"",""IBCC"",19,0)"
^XMB(3.9,55,2,5616,0)=" G Q:$G(IBCE(""EDI""))"
^XMB(3.9,55,2,5617,0)="""RTN"",""IBCC"",20,0)"
^XMB(3.9,55,2,5618,0)=" D Q"
^XMB(3.9,55,2,5619,0)="""RTN"",""IBCC"",21,0)"
^XMB(3.9,55,2,5620,0)=" S IBQUIT=0"
^XMB(3.9,55,2,5621,0)="""RTN"",""IBCC"",22,0)"
^XMB(3.9,55,2,5622,0)=" N DPTNOFZY S DPTNOFZY=1  ;Suppress PATIENT file fuzzy lookups"
^XMB(3.9,55,2,5623,0)="""RTN"",""IBCC"",23,0)"
^XMB(3.9,55,2,5624,0)=" I '$G(IBNOASK) S DIC=""^DGCR(399,"",DIC(0)=""AEMQZ"",DIC(""A"")=""Enter BILL NUMBER or Patient NAME: "" W !! D ^DIC I Y<1 S IBQUIT=1 G Q1"
^XMB(3.9,55,2,5625,0)="""RTN"",""IBCC"",24,0)"
^XMB(3.9,55,2,5626,0)=" K IB364"
^XMB(3.9,55,2,5627,0)="""RTN"",""IBCC"",25,0)"
^XMB(3.9,55,2,5628,0)="NOPTF ; Note if IB364 is >0 it will be used as the ien to update in file 364"
^XMB(3.9,55,2,5629,0)="""RTN"",""IBCC"",26,0)"
^XMB(3.9,55,2,5630,0)=" N DA,I"
^XMB(3.9,55,2,5631,0)="""RTN"",""IBCC"",27,0)"
^XMB(3.9,55,2,5632,0)=" I '$G(IBNOASK) S IBIFN=+$G(Y)"
^XMB(3.9,55,2,5633,0)="""RTN"",""IBCC"",28,0)"
^XMB(3.9,55,2,5634,0)=" I '$G(IBIFN) G ASK"
^XMB(3.9,55,2,5635,0)="""RTN"",""IBCC"",29,0)"
^XMB(3.9,55,2,5636,0)=" I IBCAN>1 D NOPTF^IBCB2 I 'IBAC1 D NOPTF1^IBCB2 G ASK"
^XMB(3.9,55,2,5637,0)="""RTN"",""IBCC"",30,0)"
^XMB(3.9,55,2,5638,0)=" ; Check if bill has been referred to Counsel"
^XMB(3.9,55,2,5639,0)="""RTN"",""IBCC"",31,0)"
^XMB(3.9,55,2,5640,0)=" I $P($G(^PRCA(430,IBIFN,6)),U,4) D  G ASK"
^XMB(3.9,55,2,5641,0)="""RTN"",""IBCC"",32,0)"
^XMB(3.9,55,2,5642,0)=" . W !,""This bill has been referred to Regional Counsel and cannot be 'CANCELLED' in"""
^XMB(3.9,55,2,5643,0)="""RTN"",""IBCC"",33,0)"
^XMB(3.9,55,2,5644,0)=" . W !,""Integrated Billing.  Please use the option 'TP Referred Follow-up'"""
^XMB(3.9,55,2,5645,0)="""RTN"",""IBCC"",34,0)"
^XMB(3.9,55,2,5646,0)=" . W !,""[PRCA RC ACTION MENU] in Accounts Receivable to request that Regional"""
^XMB(3.9,55,2,5647,0)="""RTN"",""IBCC"",35,0)"
^XMB(3.9,55,2,5648,0)=" . W !,""Counsel return the bill to your facility."""
^XMB(3.9,55,2,5649,0)="""RTN"",""IBCC"",36,0)"
^XMB(3.9,55,2,5650,0)=" . Q"
^XMB(3.9,55,2,5651,0)="""RTN"",""IBCC"",37,0)"
^XMB(3.9,55,2,5652,0)=" ;"
^XMB(3.9,55,2,5653,0)="""RTN"",""IBCC"",38,0)"
^XMB(3.9,55,2,5654,0)=" F I=0,""S"",""U1"" S IB(I)=$G(^DGCR(399,IBIFN,I))"
^XMB(3.9,55,2,5655,0)="""RTN"",""IBCC"",39,0)"
^XMB(3.9,55,2,5656,0)=" S IBSTAT=$P(IB(0),U,13)"
^XMB(3.9,55,2,5657,0)="""RTN"",""IBCC"",40,0)"
^XMB(3.9,55,2,5658,0)=" ;"
^XMB(3.9,55,2,5659,0)="""RTN"",""IBCC"",41,0)"
^XMB(3.9,55,2,5660,0)=" ; Restrict access to this process for REQUEST MRA bills"
^XMB(3.9,55,2,5661,0)="""RTN"",""IBCC"",42,0)"
^XMB(3.9,55,2,5662,0)=" I IBSTAT=2,'$G(IBCE(""EDI"")),$$MRAWL^IBCEMU2(IBIFN) D  G ASK"
^XMB(3.9,55,2,5663,0)="""RTN"",""IBCC"",43,0)"
^XMB(3.9,55,2,5664,0)=" . W !!?4,""This bill is in a status of REQUEST MRA and it does appear on the"""
^XMB(3.9,55,2,5665,0)="""RTN"",""IBCC"",44,0)"
^XMB(3.9,55,2,5666,0)=" . W !?4,""MRA Management Work List.  Please use the 'MRA Management Menu' options"""
^XMB(3.9,55,2,5667,0)="""RTN"",""IBCC"",45,0)"
^XMB(3.9,55,2,5668,0)=" . W !?4,""for all processing related to this bill."""
^XMB(3.9,55,2,5669,0)="""RTN"",""IBCC"",46,0)"
^XMB(3.9,55,2,5670,0)=" . Q"
^XMB(3.9,55,2,5671,0)="""RTN"",""IBCC"",47,0)"
^XMB(3.9,55,2,5672,0)=" ;"
^XMB(3.9,55,2,5673,0)="""RTN"",""IBCC"",48,0)"
^XMB(3.9,55,2,5674,0)=" ; Warning message if in a REQUEST MRA status with no MRA on file"
^XMB(3.9,55,2,5675,0)="""RTN"",""IBCC"",49,0)"
^XMB(3.9,55,2,5676,0)=" I IBSTAT=2,'$$MRACNT^IBCEMU1(IBIFN) D"
^XMB(3.9,55,2,5677,0)="""RTN"",""IBCC"",50,0)"
^XMB(3.9,55,2,5678,0)=" . N REJ"
^XMB(3.9,55,2,5679,0)="""RTN"",""IBCC"",51,0)"
^XMB(3.9,55,2,5680,0)=" . D TXSTS^IBCEMU2(IBIFN,,.REJ)"
^XMB(3.9,55,2,5681,0)="""RTN"",""IBCC"",52,0)"
^XMB(3.9,55,2,5682,0)=" . W *7,!!?4,""Warning!  This bill is in a status of REQUEST MRA."""
^XMB(3.9,55,2,5683,0)="""RTN"",""IBCC"",53,0)"
^XMB(3.9,55,2,5684,0)=" . W !?4,""No MRAs have been received"""
^XMB(3.9,55,2,5685,0)="""RTN"",""IBCC"",54,0)"
^XMB(3.9,55,2,5686,0)=" . I REJ W "", but the most recent transmission of this"",!?4,""MRA request bill was rejected."""
^XMB(3.9,55,2,5687,0)="""RTN"",""IBCC"",55,0)"
^XMB(3.9,55,2,5688,0)=" . I 'REJ W "" and there are no rejection messages on file"",!?4,""for the most recent transmission of this MRA request bill."""
^XMB(3.9,55,2,5689,0)="""RTN"",""IBCC"",56,0)"
^XMB(3.9,55,2,5690,0)=" . Q"
^XMB(3.9,55,2,5691,0)="""RTN"",""IBCC"",57,0)"
^XMB(3.9,55,2,5692,0)=" ;"
^XMB(3.9,55,2,5693,0)="""RTN"",""IBCC"",58,0)"
^XMB(3.9,55,2,5694,0)=" I IBCAN=2,IB(""S"")]"""",+$P(IB(""S""),U,16),$P(IB(""S""),U,17)]"""" D  G 1"
^XMB(3.9,55,2,5695,0)="""RTN"",""IBCC"",59,0)"
^XMB(3.9,55,2,5696,0)=" . W !!,""This bill was cancelled on "" S Y=$P(IB(""S""),U,17) X ^DD(""DD"") W Y,"" by "",$S($P(IB(""S""),U,18)']"""":IBU,$D(^VA(200,$P(IB(""S""),U,18),0)):$P(^(0),U,1),1:IBU),""."""
^XMB(3.9,55,2,5697,0)="""RTN"",""IBCC"",60,0)"
^XMB(3.9,55,2,5698,0)=" . S IBQUIT=1"
^XMB(3.9,55,2,5699,0)="""RTN"",""IBCC"",61,0)"
^XMB(3.9,55,2,5700,0)=" ; Notify if a payment has been posted to this bill before cancel"
^XMB(3.9,55,2,5701,0)="""RTN"",""IBCC"",62,0)"
^XMB(3.9,55,2,5702,0)=" N PRCABILL"
^XMB(3.9,55,2,5703,0)="""RTN"",""IBCC"",63,0)"
^XMB(3.9,55,2,5704,0)=" S PRCABILL=$$TPR^PRCAFN(IBIFN)"
^XMB(3.9,55,2,5705,0)="""RTN"",""IBCC"",64,0)"
^XMB(3.9,55,2,5706,0)=" I PRCABILL=-1 W !!,""Please note: PRCA was unable to determine if a payment has been posted."""
^XMB(3.9,55,2,5707,0)="""RTN"",""IBCC"",65,0)"
^XMB(3.9,55,2,5708,0)=" I PRCABILL>0 W !!,""Please note a PAYMENT of **$""_$$TPR^PRCAFN(IBIFN)_""** has been POSTED to this bill."""
^XMB(3.9,55,2,5709,0)="""RTN"",""IBCC"",66,0)"
^XMB(3.9,55,2,5710,0)=" ;"
^XMB(3.9,55,2,5711,0)="""RTN"",""IBCC"",67,0)"
^XMB(3.9,55,2,5712,0)=" ; If bill was created via Electronic claims process then notify"
^XMB(3.9,55,2,5713,0)="""RTN"",""IBCC"",68,0)"
^XMB(3.9,55,2,5714,0)=" ; user that cancellation should occur using ECME package"
^XMB(3.9,55,2,5715,0)="""RTN"",""IBCC"",69,0)"
^XMB(3.9,55,2,5716,0)=" I $$GET1^DIQ(399,IBIFN_"","",460)]"""" D  G:'Y ASK"
^XMB(3.9,55,2,5717,0)="""RTN"",""IBCC"",70,0)"
^XMB(3.9,55,2,5718,0)=" . W !!!?5,""This bill was created by the"""
^XMB(3.9,55,2,5719,0)="""RTN"",""IBCC"",71,0)"
^XMB(3.9,55,2,5720,0)=" . W !?5,""Electronic Claims Management Engine (ECME)."""
^XMB(3.9,55,2,5721,0)="""RTN"",""IBCC"",72,0)"
^XMB(3.9,55,2,5722,0)=" . W !?5,""Cancellation needs to occur in the ECME package by"""
^XMB(3.9,55,2,5723,0)="""RTN"",""IBCC"",73,0)"
^XMB(3.9,55,2,5724,0)=" . W !?5,""submitting a REVERSAL to the Payer."",!!"
^XMB(3.9,55,2,5725,0)="""RTN"",""IBCC"",74,0)"
^XMB(3.9,55,2,5726,0)=" . K DIR S DIR(""A"",1)=""Has a REVERSAL for this e-Claim already been"",DIR(""A"")=""submitted to the payer via the ECME package (Y/N)"",DIR(0)=""Y"",DIR(""B"")=""NO"" D ^DIR"
^XMB(3.9,55,2,5727,0)="""RTN"",""IBCC"",75,0)"
^XMB(3.9,55,2,5728,0)=" . I Y=0 W !!,""<PLEASE SUBMIT A REVERSAL USING THE APPROPRIATE OPTION IN THE ECME PACKAGE>"",$C(7)"
^XMB(3.9,55,2,5729,0)="""RTN"",""IBCC"",76,0)"
^XMB(3.9,55,2,5730,0)=" ;"
^XMB(3.9,55,2,5731,0)="""RTN"",""IBCC"",77,0)"
^XMB(3.9,55,2,5732,0)="CHK S (IBCCCC,IBQUIT)=0 I '$G(IBCEAUTO),'$G(IBMCSCAN) W !!,""ARE YOU SURE YOU WANT TO CANCEL THIS BILL"" S %=2 D YN^DICN G:%=0 HELP I %'=1 S IBQUIT=1 G NO"
^XMB(3.9,55,2,5733,0)="""RTN"",""IBCC"",78,0)"
^XMB(3.9,55,2,5734,0)=" ;"
^XMB(3.9,55,2,5735,0)="""RTN"",""IBCC"",79,0)"
^XMB(3.9,55,2,5736,0)=" I '$G(IBCEAUTO) W !!,""LAST CHANCE TO CHANGE YOUR MIND..."""
^XMB(3.9,55,2,5737,0)="""RTN"",""IBCC"",80,0)"
^XMB(3.9,55,2,5738,0)=" S DIE=399,DA=IBIFN,DIE(""NO^"")="""""
^XMB(3.9,55,2,5739,0)="""RTN"",""IBCC"",81,0)"
^XMB(3.9,55,2,5740,0)=" S DR=""16;S:'X Y=0;19;S IBCCCC=1;"""
^XMB(3.9,55,2,5741,0)="""RTN"",""IBCC"",82,0)"
^XMB(3.9,55,2,5742,0)=" I $G(IBCEAUTO) S DR=""16////1;19////EDI/MRA TURNED OFF;S IBCCCC=1;"""
^XMB(3.9,55,2,5743,0)="""RTN"",""IBCC"",83,0)"
^XMB(3.9,55,2,5744,0)=" I $G(IBMCSRSC)'="""" S DR=""16;S:'X Y=0;19//""_IBMCSRSC_"";S IBCCCC=1;"""
^XMB(3.9,55,2,5745,0)="""RTN"",""IBCC"",84,0)"
^XMB(3.9,55,2,5746,0)=" D ^DIE K DIE,DR"
^XMB(3.9,55,2,5747,0)="""RTN"",""IBCC"",85,0)"
^XMB(3.9,55,2,5748,0)=" ;"
^XMB(3.9,55,2,5749,0)="""RTN"",""IBCC"",86,0)"
^XMB(3.9,55,2,5750,0)="NO I 'IBCCCC W !!,""<NO ACTION TAKEN>"",*7 S IBQUIT=1 G ASK:IBCAN<2,Q"
^XMB(3.9,55,2,5751,0)="""RTN"",""IBCC"",87,0)"
^XMB(3.9,55,2,5752,0)=" S IBCCR=$P($G(^DGCR(399,IBIFN,""S"")),U,19)"
^XMB(3.9,55,2,5753,0)="""RTN"",""IBCC"",88,0)"
^XMB(3.9,55,2,5754,0)=" W !!,""...Bill has been cancelled..."" D BULL^IBCBULL,BSTAT^IBCDC(IBIFN),PRIOR^IBCCC2(IBIFN)"
^XMB(3.9,55,2,5755,0)="""RTN"",""IBCC"",89,0)"
^XMB(3.9,55,2,5756,0)=" ;"
^XMB(3.9,55,2,5757,0)="""RTN"",""IBCC"",90,0)"
^XMB(3.9,55,2,5758,0)=" ; cancelling in ingenix claimsmanager if ingenix is running"
^XMB(3.9,55,2,5759,0)="""RTN"",""IBCC"",91,0)"
^XMB(3.9,55,2,5760,0)=" ; clean-up of variables is OK if not coming in from ListMan screen"
^XMB(3.9,55,2,5761,0)="""RTN"",""IBCC"",92,0)"
^XMB(3.9,55,2,5762,0)=" I $$CM^IBCIUT1(IBIFN) S IBCISNT=4 D ST2^IBCIST I '$G(IBCICNCL) K IBCISNT,IBCISTAT,IBCIREDT,IBCIERR"
^XMB(3.9,55,2,5763,0)="""RTN"",""IBCC"",93,0)"
^XMB(3.9,55,2,5764,0)=" ;"
^XMB(3.9,55,2,5765,0)="""RTN"",""IBCC"",94,0)"
^XMB(3.9,55,2,5766,0)=" S IBEDI=$G(IB364)"
^XMB(3.9,55,2,5767,0)="""RTN"",""IBCC"",95,0)"
^XMB(3.9,55,2,5768,0)=" I 'IBEDI S IBEDI=+$$LAST364^IBCEF4(IBIFN)"
^XMB(3.9,55,2,5769,0)="""RTN"",""IBCC"",96,0)"
^XMB(3.9,55,2,5770,0)=" I IBEDI D UPDEDI^IBCEM(IBEDI,""C"") ;Update EDI files, if needed"
^XMB(3.9,55,2,5771,0)="""RTN"",""IBCC"",97,0)"
^XMB(3.9,55,2,5772,0)=" ;"
^XMB(3.9,55,2,5773,0)="""RTN"",""IBCC"",98,0)"
^XMB(3.9,55,2,5774,0)=" F I=""S"",""U1"" S IB(I)=$S($D(^DGCR(399,IBIFN,I)):^(I),1:"""")"
^XMB(3.9,55,2,5775,0)="""RTN"",""IBCC"",99,0)"
^XMB(3.9,55,2,5776,0)=" S PRCASV(""ARREC"")=IBIFN,PRCASV(""AMT"")=$S(IB(""U1"")']"""":0,1:$P(IB(""U1""),""^"")),PRCASV(""DATE"")=$P(IB(""S""),""^"",17),PRCASV(""BY"")=$P(IB(""S""),""^"",18)"
^XMB(3.9,55,2,5777,0)="""RTN"",""IBCC"",100,0)"
^XMB(3.9,55,2,5778,0)=" S PRCASV(""COMMENT"")=$S($P(IB(""S""),U,19)]"""":$P(IB(""S""),U,19),$P(^IBE(350.9,1,2),""^"",7)]"""":$P(^(2),""^"",7),1:""BILL CANCELLED IN MAS"")"
^XMB(3.9,55,2,5779,0)="""RTN"",""IBCC"",101,0)"
^XMB(3.9,55,2,5780,0)=" S PRCASV(""BY"")=$S($P(IB(""S""),U,18)]"""":$P(IB(""S""),U,18),1:"""")"
^XMB(3.9,55,2,5781,0)="""RTN"",""IBCC"",102,0)"
^XMB(3.9,55,2,5782,0)=" S X=$$CANCEL^RCBEIB($G(PRCASV(""ARREC"")),$G(PRCASV(""DATE"")),$G(PRCASV(""BY"")),$G(PRCASV(""AMT"")),$G(PRCASV(""COMMENT"")))"
^XMB(3.9,55,2,5783,0)="""RTN"",""IBCC"",103,0)"
^XMB(3.9,55,2,5784,0)=" W !,$S(X:"">> The receivable associated with the claim was cancelled."",1:"">> The receivable associated with the claim was not cancelled."")"
^XMB(3.9,55,2,5785,0)="""RTN"",""IBCC"",104,0)"
^XMB(3.9,55,2,5786,0)=" I $P(X,U,2)]"""" W !,"">>> "",$P(X,U,2) ; The reason why the claim can not be cancelled."
^XMB(3.9,55,2,5787,0)="""RTN"",""IBCC"",105,0)"
^XMB(3.9,55,2,5788,0)=" I IBCAN<2 D RNB^IBCC1 ;assign a reason not billable"
^XMB(3.9,55,2,5789,0)="""RTN"",""IBCC"",106,0)"
^XMB(3.9,55,2,5790,0)=" G ASK:IBCAN<2,Q"
^XMB(3.9,55,2,5791,0)="""RTN"",""IBCC"",107,0)"
^XMB(3.9,55,2,5792,0)=" ;"
^XMB(3.9,55,2,5793,0)="""RTN"",""IBCC"",108,0)"
^XMB(3.9,55,2,5794,0)="HELP W !,?3,""Answer 'YES' or 'Y' if you wish to cancel this bill."",!,?3,""Answer 'NO' or 'N' if you want to abort."" G CHK"
^XMB(3.9,55,2,5795,0)="""RTN"",""IBCC"",109,0)"
^XMB(3.9,55,2,5796,0)=" Q"
^XMB(3.9,55,2,5797,0)="""RTN"",""IBCC"",110,0)"
^XMB(3.9,55,2,5798,0)="1 I $P(IB(0),U,13)=1 W !,""This record was re-opened on "" S Y=$P(IB(0),U,14) X ^DD(""DD"") W Y,""."" G CHK"
^XMB(3.9,55,2,5799,0)="""RTN"",""IBCC"",111,0)"
^XMB(3.9,55,2,5800,0)=" G ASK"
^XMB(3.9,55,2,5801,0)="""RTN"",""IBCC"",112,0)"
^XMB(3.9,55,2,5802,0)="Q1 K:IBCAN=1 IBQUIT K IBCAN"
^XMB(3.9,55,2,5803,0)="""RTN"",""IBCC"",113,0)"
^XMB(3.9,55,2,5804,0)="Q K %,IBEPAR,IBSTAT,IBARST,IBAC1,IB,DFN,IBX,IBZ,DIC,DIE,DR,PRCASV,PRCASVC,X,Y,IBEDI"
^XMB(3.9,55,2,5805,0)="""RTN"",""IBCC"",114,0)"
^XMB(3.9,55,2,5806,0)=" ;***"
^XMB(3.9,55,2,5807,0)="""RTN"",""IBCC"",115,0)"
^XMB(3.9,55,2,5808,0)=" ;I $D(XRT0) S:'$D(XRTN) XRTN=""IBCC"" D T1^%ZOSV ;stop rt clock"
^XMB(3.9,55,2,5809,0)="""RTN"",""IBCC"",116,0)"
^XMB(3.9,55,2,5810,0)=" Q"
^XMB(3.9,55,2,5811,0)="""RTN"",""IBCC"",117,0)"
^XMB(3.9,55,2,5812,0)=" ;"
^XMB(3.9,55,2,5813,0)="""RTN"",""IBCC"",118,0)"
^XMB(3.9,55,2,5814,0)="PROCESS(IBIFN,IBCAN) ;"
^XMB(3.9,55,2,5815,0)="""RTN"",""IBCC"",119,0)"
^XMB(3.9,55,2,5816,0)=" ; Entry point when the bill number is already known.  Use this when"
^XMB(3.9,55,2,5817,0)="""RTN"",""IBCC"",120,0)"
^XMB(3.9,55,2,5818,0)=" ; you just want to try to cancel this bill and this bill only."
^XMB(3.9,55,2,5819,0)="""RTN"",""IBCC"",121,0)"
^XMB(3.9,55,2,5820,0)=" ; Input:"
^XMB(3.9,55,2,5821,0)="""RTN"",""IBCC"",122,0)"
^XMB(3.9,55,2,5822,0)=" ;   IBIFN - Internal bill# (Required)"
^XMB(3.9,55,2,5823,0)="""RTN"",""IBCC"",123,0)"
^XMB(3.9,55,2,5824,0)=" ;   IBCAN - Cancel Flag (optional, defaults to 1 if not included)"
^XMB(3.9,55,2,5825,0)="""RTN"",""IBCC"",124,0)"
^XMB(3.9,55,2,5826,0)=" ;"
^XMB(3.9,55,2,5827,0)="""RTN"",""IBCC"",125,0)"
^XMB(3.9,55,2,5828,0)=" NEW IBNOASK"
^XMB(3.9,55,2,5829,0)="""RTN"",""IBCC"",126,0)"
^XMB(3.9,55,2,5830,0)=" S IBNOASK=1"
^XMB(3.9,55,2,5831,0)="""RTN"",""IBCC"",127,0)"
^XMB(3.9,55,2,5832,0)=" S IBCAN=$G(IBCAN,1)"
^XMB(3.9,55,2,5833,0)="""RTN"",""IBCC"",128,0)"
^XMB(3.9,55,2,5834,0)=" G ASK"
^XMB(3.9,55,2,5835,0)="""RTN"",""IBCC"",129,0)"
^XMB(3.9,55,2,5836,0)=" ;"
^XMB(3.9,55,2,5837,0)="""RTN"",""IBCC"",130,0)"
^XMB(3.9,55,2,5838,0)=" ;IBCC"
^XMB(3.9,55,2,5839,0)="""RTN"",""IBCC1"")"
^XMB(3.9,55,2,5840,0)="0^16^B14613581^B12774729"
^XMB(3.9,55,2,5841,0)="""RTN"",""IBCC1"",1,0)"
^XMB(3.9,55,2,5842,0)="IBCC1 ;ALB/MJB - CANCEL UB-82 THIRD PARTY BILL ;10-OCT-94"
^XMB(3.9,55,2,5843,0)="""RTN"",""IBCC1"",2,0)"
^XMB(3.9,55,2,5844,0)=" ;;2.0;INTEGRATED BILLING;**19,95,160,159,320**;21-MAR-94"
^XMB(3.9,55,2,5845,0)="""RTN"",""IBCC1"",3,0)"
^XMB(3.9,55,2,5846,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,5847,0)="""RTN"",""IBCC1"",4,0)"
^XMB(3.9,55,2,5848,0)=" ;"
^XMB(3.9,55,2,5849,0)="""RTN"",""IBCC1"",5,0)"
^XMB(3.9,55,2,5850,0)="RNB ; -- Add a reason not billable to claims tracking"
^XMB(3.9,55,2,5851,0)="""RTN"",""IBCC1"",6,0)"
^XMB(3.9,55,2,5852,0)=" N X,Y,DIC,DIE,I,J,DA,DR,IBTYP,IBTRE,IB,IBAPPT,IBDT,IBTALK,IBCODE,IBTRED,IBTSAV,FILL,IBRX,IBDATA,IBD,IBDT,IBQUIT,IBPRO,IBDD"
^XMB(3.9,55,2,5853,0)="""RTN"",""IBCC1"",7,0)"
^XMB(3.9,55,2,5854,0)=" Q:'$G(IBIFN)"
^XMB(3.9,55,2,5855,0)="""RTN"",""IBCC1"",8,0)"
^XMB(3.9,55,2,5856,0)=" S IB(0)=$G(^DGCR(399,IBIFN,0)),IBTYP=$P(IB(0),""^"",5),IBQUIT=0"
^XMB(3.9,55,2,5857,0)="""RTN"",""IBCC1"",9,0)"
^XMB(3.9,55,2,5858,0)=" I '$D(DFN) S DFN=$P(IB(0),""^"",2)"
^XMB(3.9,55,2,5859,0)="""RTN"",""IBCC1"",10,0)"
^XMB(3.9,55,2,5860,0)=" ;"
^XMB(3.9,55,2,5861,0)="""RTN"",""IBCC1"",11,0)"
^XMB(3.9,55,2,5862,0)=" ; -- is inpt find entry in dgpm, then in ibt(356, s da=ibtre then edit"
^XMB(3.9,55,2,5863,0)="""RTN"",""IBCC1"",12,0)"
^XMB(3.9,55,2,5864,0)="INPT I IBTYP<3 D"
^XMB(3.9,55,2,5865,0)="""RTN"",""IBCC1"",13,0)"
^XMB(3.9,55,2,5866,0)=" .S DATE=$P(IB(0),""^"",3),DFN=$P(IB(0),""^"",2)"
^XMB(3.9,55,2,5867,0)="""RTN"",""IBCC1"",14,0)"
^XMB(3.9,55,2,5868,0)=" .S DGPM=$O(^DGPM(""APTT1"",DFN,DATE,0)) ; double check for asih"
^XMB(3.9,55,2,5869,0)="""RTN"",""IBCC1"",15,0)"
^XMB(3.9,55,2,5870,0)=" .I DGPM S (IBTRE,IBTSAV)=$O(^IBT(356,""AD"",DGPM,0))"
^XMB(3.9,55,2,5871,0)="""RTN"",""IBCC1"",16,0)"
^XMB(3.9,55,2,5872,0)=" .I $G(IBTRE) D RNBEDIT"
^XMB(3.9,55,2,5873,0)="""RTN"",""IBCC1"",17,0)"
^XMB(3.9,55,2,5874,0)=" .Q:IBQUIT"
^XMB(3.9,55,2,5875,0)="""RTN"",""IBCC1"",18,0)"
^XMB(3.9,55,2,5876,0)=" .;"
^XMB(3.9,55,2,5877,0)="""RTN"",""IBCC1"",19,0)"
^XMB(3.9,55,2,5878,0)=" .; -- alternate inpt method"
^XMB(3.9,55,2,5879,0)="""RTN"",""IBCC1"",20,0)"
^XMB(3.9,55,2,5880,0)=" .S IBCODE=$O(^IBE(356.6,""ACODE"",1,0))"
^XMB(3.9,55,2,5881,0)="""RTN"",""IBCC1"",21,0)"
^XMB(3.9,55,2,5882,0)=" .S DATE=$P(IB(0),""^"",3),DFN=$P(IB(0),""^"",2)"
^XMB(3.9,55,2,5883,0)="""RTN"",""IBCC1"",22,0)"
^XMB(3.9,55,2,5884,0)=" .S IBDT=(DATE-.25) F  S IBDT=$O(^IBT(356,""APTY"",DFN,IBCODE,IBDT)) Q:'IBDT!(IBDT>(DATE+.24))  D"
^XMB(3.9,55,2,5885,0)="""RTN"",""IBCC1"",23,0)"
^XMB(3.9,55,2,5886,0)=" ..S IBTRE=0 F  S IBTRE=$O(^IBT(356,""APTY"",DFN,IBCODE,IBDT,IBTRE)) Q:IBTRE=""""!(IBQUIT)  D:$G(IBTSAV)'=IBTRE RNBEDIT"
^XMB(3.9,55,2,5887,0)="""RTN"",""IBCC1"",24,0)"
^XMB(3.9,55,2,5888,0)=" .Q"
^XMB(3.9,55,2,5889,0)="""RTN"",""IBCC1"",25,0)"
^XMB(3.9,55,2,5890,0)=" ;"
^XMB(3.9,55,2,5891,0)="""RTN"",""IBCC1"",26,0)"
^XMB(3.9,55,2,5892,0)="OPT ; -- is opt-find entries in IBT(356, for opt dates and then edit"
^XMB(3.9,55,2,5893,0)="""RTN"",""IBCC1"",27,0)"
^XMB(3.9,55,2,5894,0)=" I IBTYP>2 S IBCODE=$O(^IBE(356.6,""ACODE"",2,0)) D"
^XMB(3.9,55,2,5895,0)="""RTN"",""IBCC1"",28,0)"
^XMB(3.9,55,2,5896,0)=" .S IBAPPT=0 F  S IBAPPT=$O(^DGCR(399,IBIFN,""OP"",IBAPPT)) Q:'IBAPPT!(IBQUIT)  D"
^XMB(3.9,55,2,5897,0)="""RTN"",""IBCC1"",29,0)"
^XMB(3.9,55,2,5898,0)=" ..S IBDT=(IBAPPT-.01) F  S IBDT=$O(^IBT(356,""APTY"",DFN,IBCODE,IBDT)) Q:'IBDT!(IBDT>(IBAPPT+.24))  D"
^XMB(3.9,55,2,5899,0)="""RTN"",""IBCC1"",30,0)"
^XMB(3.9,55,2,5900,0)=" ...S IBTRE=0 F  S IBTRE=$O(^IBT(356,""APTY"",DFN,IBCODE,IBDT,IBTRE)) Q:IBTRE=""""!(IBQUIT)  D RNBEDIT"
^XMB(3.9,55,2,5901,0)="""RTN"",""IBCC1"",31,0)"
^XMB(3.9,55,2,5902,0)=" .Q"
^XMB(3.9,55,2,5903,0)="""RTN"",""IBCC1"",32,0)"
^XMB(3.9,55,2,5904,0)=" ;"
^XMB(3.9,55,2,5905,0)="""RTN"",""IBCC1"",33,0)"
^XMB(3.9,55,2,5906,0)="RX ; -- find rx's on bill"
^XMB(3.9,55,2,5907,0)="""RTN"",""IBCC1"",34,0)"
^XMB(3.9,55,2,5908,0)=" S IBDD=0 F  S IBDD=$O(^IBA(362.4,""AIFN""_IBIFN,IBDD)) Q:'IBDD  S IBD=0 F  S IBD=$O(^IBA(362.4,""AIFN""_IBIFN,IBDD,IBD)) Q:'IBD!(IBQUIT)  D"
^XMB(3.9,55,2,5909,0)="""RTN"",""IBCC1"",35,0)"
^XMB(3.9,55,2,5910,0)=" .S IBDATA=$G(^IBA(362.4,IBD,0)),IBRX=$P(IBDATA,""^"",5),IBDT=$P(IBDATA,""^"",3)"
^XMB(3.9,55,2,5911,0)="""RTN"",""IBCC1"",36,0)"
^XMB(3.9,55,2,5912,0)=" .I '$G(IBRX) S IBRX=$O(^PSRX(""B"",$P(IBDATA,""^"",1),0)) Q:'IBRX"
^XMB(3.9,55,2,5913,0)="""RTN"",""IBCC1"",37,0)"
^XMB(3.9,55,2,5914,0)=" .S FILL="""" F  S FILL=$O(^IBT(356,""ARXFL"",IBRX,FILL)) Q:FILL=""""!(IBQUIT)  D"
^XMB(3.9,55,2,5915,0)="""RTN"",""IBCC1"",38,0)"
^XMB(3.9,55,2,5916,0)=" ..S IBTRE=0 F  S IBTRE=$O(^IBT(356,""ARXFL"",IBRX,FILL,IBTRE)) Q:'IBTRE!(IBQUIT)  I $P(^IBT(356,+IBTRE,0),""^"",6)=IBDT D RNBEDIT"
^XMB(3.9,55,2,5917,0)="""RTN"",""IBCC1"",39,0)"
^XMB(3.9,55,2,5918,0)=" ;"
^XMB(3.9,55,2,5919,0)="""RTN"",""IBCC1"",40,0)"
^XMB(3.9,55,2,5920,0)="PRO ; -- find prosthetics on bill"
^XMB(3.9,55,2,5921,0)="""RTN"",""IBCC1"",41,0)"
^XMB(3.9,55,2,5922,0)=" S IBDD=0 F  S IBDD=$O(^IBA(362.5,""AIFN""_IBIFN,IBDD)) Q:'IBDD  S IBD=0 F  S IBD=$O(^IBA(362.5,""AIFN""_IBIFN,IBDD,IBD)) Q:'IBD!(IBQUIT)  D"
^XMB(3.9,55,2,5923,0)="""RTN"",""IBCC1"",42,0)"
^XMB(3.9,55,2,5924,0)=" .S IBDATA=$G(^IBA(362.5,IBD,0)),IBPRO=$P(IBDATA,""^"",4)"
^XMB(3.9,55,2,5925,0)="""RTN"",""IBCC1"",43,0)"
^XMB(3.9,55,2,5926,0)=" .Q:'$G(IBPRO)"
^XMB(3.9,55,2,5927,0)="""RTN"",""IBCC1"",44,0)"
^XMB(3.9,55,2,5928,0)=" .S IBTRE=0 F  S IBTRE=$O(^IBT(356,""APRO"",+IBPRO,IBTRE)) Q:'IBTRE!(IBQUIT)  D RNBEDIT"
^XMB(3.9,55,2,5929,0)="""RTN"",""IBCC1"",45,0)"
^XMB(3.9,55,2,5930,0)=" Q"
^XMB(3.9,55,2,5931,0)="""RTN"",""IBCC1"",46,0)"
^XMB(3.9,55,2,5932,0)=" ;"
^XMB(3.9,55,2,5933,0)="""RTN"",""IBCC1"",47,0)"
^XMB(3.9,55,2,5934,0)="RNBEDIT ;"
^XMB(3.9,55,2,5935,0)="""RTN"",""IBCC1"",48,0)"
^XMB(3.9,55,2,5936,0)=" Q:IBQUIT"
^XMB(3.9,55,2,5937,0)="""RTN"",""IBCC1"",49,0)"
^XMB(3.9,55,2,5938,0)=" W:'$D(IBTALK) !!,""Since you have canceled this bill, you may enter a Reason Not Billable"",!,""into Claims Tracking.  This will take the care off of the UNBILLED lists"""
^XMB(3.9,55,2,5939,0)="""RTN"",""IBCC1"",50,0)"
^XMB(3.9,55,2,5940,0)=" S IBTALK=1"
^XMB(3.9,55,2,5941,0)="""RTN"",""IBCC1"",51,0)"
^XMB(3.9,55,2,5942,0)=" ;"
^XMB(3.9,55,2,5943,0)="""RTN"",""IBCC1"",52,0)"
^XMB(3.9,55,2,5944,0)=" N %,IBTRED S IBTRED=$G(^IBT(356,IBTRE,0))"
^XMB(3.9,55,2,5945,0)="""RTN"",""IBCC1"",53,0)"
^XMB(3.9,55,2,5946,0)=" W !!,""Claims Tracking entry: "",+IBTRED,""  "",$$EXPAND^IBTRE(356,.18,$P(IBTRED,""^"",18)),""  "",$$FMTE^XLFDT($P(IBTRED,""^"",6))"
^XMB(3.9,55,2,5947,0)="""RTN"",""IBCC1"",54,0)"
^XMB(3.9,55,2,5948,0)=" I $G(IBMCSRNB)'="""",$P(IBTRED,U,19) W !,"" Note:  A Reason Not Billable has been previously entered"",!?8,""for this Claims Tracking record."""
^XMB(3.9,55,2,5949,0)="""RTN"",""IBCC1"",55,0)"
^XMB(3.9,55,2,5950,0)=" S DA=IBTRE,DIE=""^IBT(356,"",DR="".19"""
^XMB(3.9,55,2,5951,0)="""RTN"",""IBCC1"",56,0)"
^XMB(3.9,55,2,5952,0)=" I $G(IBMCSRNB)'="""" S DR="".19//""_$P(IBMCSRNB,U,2)    ; IB*320 MCS cancel"
^XMB(3.9,55,2,5953,0)="""RTN"",""IBCC1"",57,0)"
^XMB(3.9,55,2,5954,0)=" D ^DIE"
^XMB(3.9,55,2,5955,0)="""RTN"",""IBCC1"",58,0)"
^XMB(3.9,55,2,5956,0)=" ;"
^XMB(3.9,55,2,5957,0)="""RTN"",""IBCC1"",59,0)"
^XMB(3.9,55,2,5958,0)=" ; - if the RNB changed, update the user and date/time last edited"
^XMB(3.9,55,2,5959,0)="""RTN"",""IBCC1"",60,0)"
^XMB(3.9,55,2,5960,0)=" I $P(IBTRED,""^"",19)'=$P($G(^IBT(356,IBTRE,0)),""^"",19) D NOW^%DTC S DR=""1.03///""_%_"";1.04////""_DUZ D ^DIE"
^XMB(3.9,55,2,5961,0)="""RTN"",""IBCC1"",61,0)"
^XMB(3.9,55,2,5962,0)=" ;"
^XMB(3.9,55,2,5963,0)="""RTN"",""IBCC1"",62,0)"
^XMB(3.9,55,2,5964,0)=" ; $D(Y) indicates an up-arrow exit from the DIE call (??)"
^XMB(3.9,55,2,5965,0)="""RTN"",""IBCC1"",63,0)"
^XMB(3.9,55,2,5966,0)=" I $D(Y) S DFN=+$P(^IBT(356,IBTRE,0),""^"",2) D FIND^IBOHCT(DFN,IBTRE) S IBQUIT=1"
^XMB(3.9,55,2,5967,0)="""RTN"",""IBCC1"",64,0)"
^XMB(3.9,55,2,5968,0)=" Q"
^XMB(3.9,55,2,5969,0)="""RTN"",""IBCCC"")"
^XMB(3.9,55,2,5970,0)="0^3^B14623718^B13302732"
^XMB(3.9,55,2,5971,0)="""RTN"",""IBCCC"",1,0)"
^XMB(3.9,55,2,5972,0)="IBCCC ;ALB/AAS - CANCEL AND CLONE A BILL ;25-JAN-90"
^XMB(3.9,55,2,5973,0)="""RTN"",""IBCCC"",2,0)"
^XMB(3.9,55,2,5974,0)=" ;;2.0;INTEGRATED BILLING;**80,109,106,51,320**;21-MAR-94"
^XMB(3.9,55,2,5975,0)="""RTN"",""IBCCC"",3,0)"
^XMB(3.9,55,2,5976,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,5977,0)="""RTN"",""IBCCC"",4,0)"
^XMB(3.9,55,2,5978,0)=" ;"
^XMB(3.9,55,2,5979,0)="""RTN"",""IBCCC"",5,0)"
^XMB(3.9,55,2,5980,0)=" ;MAP TO DGCRCC"
^XMB(3.9,55,2,5981,0)="""RTN"",""IBCCC"",6,0)"
^XMB(3.9,55,2,5982,0)=" ;"
^XMB(3.9,55,2,5983,0)="""RTN"",""IBCCC"",7,0)"
^XMB(3.9,55,2,5984,0)=" ;STEP 1 - cancel bill"
^XMB(3.9,55,2,5985,0)="""RTN"",""IBCCC"",8,0)"
^XMB(3.9,55,2,5986,0)=" ;STEP 1.5 - entry to clone previously cancelled bill.  (must be cancel)"
^XMB(3.9,55,2,5987,0)="""RTN"",""IBCCC"",9,0)"
^XMB(3.9,55,2,5988,0)=" ;STEP 2 - build array of IBIDS call screen that asks ok"
^XMB(3.9,55,2,5989,0)="""RTN"",""IBCCC"",10,0)"
^XMB(3.9,55,2,5990,0)=" ;STEP 3 - pass stub entry to ar"
^XMB(3.9,55,2,5991,0)="""RTN"",""IBCCC"",11,0)"
^XMB(3.9,55,2,5992,0)=" ;STEP 4 - store stub data in MCCR then x-ref"
^XMB(3.9,55,2,5993,0)="""RTN"",""IBCCC"",12,0)"
^XMB(3.9,55,2,5994,0)=" ;STEP 4.5 - store claim clone info on ""S1"" node."
^XMB(3.9,55,2,5995,0)="""RTN"",""IBCCC"",13,0)"
^XMB(3.9,55,2,5996,0)=" ;STEP 5 - get remainder of data to move and store in MCCR then x-ref"
^XMB(3.9,55,2,5997,0)="""RTN"",""IBCCC"",14,0)"
^XMB(3.9,55,2,5998,0)=" ;STEP 6 - go to screens, come out to IBB1 "
^XMB(3.9,55,2,5999,0)="""RTN"",""IBCCC"",15,0)"
^XMB(3.9,55,2,6000,0)="EN ;"
^XMB(3.9,55,2,6001,0)="""RTN"",""IBCCC"",16,0)"
^XMB(3.9,55,2,6002,0)=" N IBBCF,IBBCT,IBBCB,IBCCR,IBDBC"
^XMB(3.9,55,2,6003,0)="""RTN"",""IBCCC"",17,0)"
^XMB(3.9,55,2,6004,0)=" S IBDBC=DT    ;date claim was cloned"
^XMB(3.9,55,2,6005,0)="""RTN"",""IBCCC"",18,0)"
^XMB(3.9,55,2,6006,0)=" S IBBCB=DUZ   ;user-id of person cloning the claim."
^XMB(3.9,55,2,6007,0)="""RTN"",""IBCCC"",19,0)"
^XMB(3.9,55,2,6008,0)=" S IBCNCOPY=1 ; flag indicating this function is entered as the copy/cancel option"
^XMB(3.9,55,2,6009,0)="""RTN"",""IBCCC"",20,0)"
^XMB(3.9,55,2,6010,0)=" ;"
^XMB(3.9,55,2,6011,0)="""RTN"",""IBCCC"",21,0)"
^XMB(3.9,55,2,6012,0)="STEP1 I $G(IBCE(""EDI""))>1 G END1"
^XMB(3.9,55,2,6013,0)="""RTN"",""IBCCC"",22,0)"
^XMB(3.9,55,2,6014,0)=" S IBCAN=2,IBQUIT=0,IBAC=6,IBU=""UNSPECIFIED"""
^XMB(3.9,55,2,6015,0)="""RTN"",""IBCCC"",23,0)"
^XMB(3.9,55,2,6016,0)=" I '$G(IBCE(""EDI"")) D ASK^IBCC"
^XMB(3.9,55,2,6017,0)="""RTN"",""IBCCC"",24,0)"
^XMB(3.9,55,2,6018,0)=" I $G(IBCE(""EDI""))=1 S IB364="""" D NOPTF^IBCC"
^XMB(3.9,55,2,6019,0)="""RTN"",""IBCCC"",25,0)"
^XMB(3.9,55,2,6020,0)=" G:IBQUIT END1"
^XMB(3.9,55,2,6021,0)="""RTN"",""IBCCC"",26,0)"
^XMB(3.9,55,2,6022,0)=" I 'IBCCCC!('$D(IBIFN)) G STEP1:'$G(IBCE(""EDI"")),END1"
^XMB(3.9,55,2,6023,0)="""RTN"",""IBCCC"",27,0)"
^XMB(3.9,55,2,6024,0)=" I $G(IBCE(""EDI"")) S IBCE(""EDI"")=2"
^XMB(3.9,55,2,6025,0)="""RTN"",""IBCCC"",28,0)"
^XMB(3.9,55,2,6026,0)="EN1 ;"
^XMB(3.9,55,2,6027,0)="""RTN"",""IBCCC"",29,0)"
^XMB(3.9,55,2,6028,0)="STEP1P5 I '$D(IBIFN) S IBCAN=2,IBQUIT=0,IBAC=6 W !,""Copy Previously Cancelled Bill."",!! S DIC=""^DGCR(399,"",DIC(""S"")=""I $P(^(0),U,13)=7"",DIC(0)=""AEMQZ"",DIC(""A"")=""Enter BILL NUMBER or Patient NAME: "" D ^DIC G:Y<1 END S IBIFN=+Y"
^XMB(3.9,55,2,6029,0)="""RTN"",""IBCCC"",30,0)"
^XMB(3.9,55,2,6030,0)=" ;"
^XMB(3.9,55,2,6031,0)="""RTN"",""IBCCC"",31,0)"
^XMB(3.9,55,2,6032,0)=" S IBBCF=IBIFN    ;this is the claim we are copying FROM"
^XMB(3.9,55,2,6033,0)="""RTN"",""IBCCC"",32,0)"
^XMB(3.9,55,2,6034,0)=" S IBIDS(.15)=IBIFN K IBIFN"
^XMB(3.9,55,2,6035,0)="""RTN"",""IBCCC"",33,0)"
^XMB(3.9,55,2,6036,0)="STEP2 S IBND0=^DGCR(399,IBIDS(.15),0) I $D(^(""U"")) S IBNDU=^(""U"")"
^XMB(3.9,55,2,6037,0)="""RTN"",""IBCCC"",34,0)"
^XMB(3.9,55,2,6038,0)=" ; *** Note - all these fields should also be included in WHERE^IBCCC1"
^XMB(3.9,55,2,6039,0)="""RTN"",""IBCCC"",35,0)"
^XMB(3.9,55,2,6040,0)=" F I=2:1:12 S:$P(IBND0,""^"",I)]"""" IBIDS(I/100)=$P(IBND0,""^"",I)"
^XMB(3.9,55,2,6041,0)="""RTN"",""IBCCC"",36,0)"
^XMB(3.9,55,2,6042,0)=" F I=16:1:19,21:1:27 S:$P(IBND0,""^"",I)]"""" IBIDS(I/100)=$P(IBND0,""^"",I)"
^XMB(3.9,55,2,6043,0)="""RTN"",""IBCCC"",37,0)"
^XMB(3.9,55,2,6044,0)=" F I=151,152,155 S IBIDS(I)=$P(IBNDU,""^"",(I-150))"
^XMB(3.9,55,2,6045,0)="""RTN"",""IBCCC"",38,0)"
^XMB(3.9,55,2,6046,0)=" S IBIDS(159.5)=$P(IBNDU,U,20)"
^XMB(3.9,55,2,6047,0)="""RTN"",""IBCCC"",39,0)"
^XMB(3.9,55,2,6048,0)=" ; ***"
^XMB(3.9,55,2,6049,0)="""RTN"",""IBCCC"",40,0)"
^XMB(3.9,55,2,6050,0)=" D HOME^%ZIS"
^XMB(3.9,55,2,6051,0)="""RTN"",""IBCCC"",41,0)"
^XMB(3.9,55,2,6052,0)=" S DFN=IBIDS(.02) D DEM^VADPT"
^XMB(3.9,55,2,6053,0)="""RTN"",""IBCCC"",42,0)"
^XMB(3.9,55,2,6054,0)=" I +$G(IBCTCOPY)!$G(IBCE(""EDI"")) G STEP3"
^XMB(3.9,55,2,6055,0)="""RTN"",""IBCCC"",43,0)"
^XMB(3.9,55,2,6056,0)=" D ^IBCA1"
^XMB(3.9,55,2,6057,0)="""RTN"",""IBCCC"",44,0)"
^XMB(3.9,55,2,6058,0)="ASK S IBYN=0 W !!,""IS THE ABOVE INFORMATION CORRECT AS SHOWN"" S %=1 D YN^DICN G END:%=2,STEP3:%=1 I % G END"
^XMB(3.9,55,2,6059,0)="""RTN"",""IBCCC"",45,0)"
^XMB(3.9,55,2,6060,0)=" W !!?4,""YES - If this information is correct as shown and you wish to file the bill."",!?4,""NO  - If you wish to change this information prior to filing."""
^XMB(3.9,55,2,6061,0)="""RTN"",""IBCCC"",46,0)"
^XMB(3.9,55,2,6062,0)=" W !?4,""'^' - Enter the up-arrow character to DELETE this Bill at this time."" G ASK"
^XMB(3.9,55,2,6063,0)="""RTN"",""IBCCC"",47,0)"
^XMB(3.9,55,2,6064,0)=" ;"
^XMB(3.9,55,2,6065,0)="""RTN"",""IBCCC"",48,0)"
^XMB(3.9,55,2,6066,0)="STEP3 ;"
^XMB(3.9,55,2,6067,0)="""RTN"",""IBCCC"",49,0)"
^XMB(3.9,55,2,6068,0)=" S PRCASV(""SER"")=$P($G(^IBE(350.9,1,1)),""^"",14)"
^XMB(3.9,55,2,6069,0)="""RTN"",""IBCCC"",50,0)"
^XMB(3.9,55,2,6070,0)=" S PRCASV(""SITE"")=$P($$SITE^VASITE,""^"",3),IBNWBL="""""
^XMB(3.9,55,2,6071,0)="""RTN"",""IBCCC"",51,0)"
^XMB(3.9,55,2,6072,0)=" W !,""Passing bill to Accounts Receivable Module..."" D SETUP^PRCASVC3 I $S($P(PRCASV(""ARREC""),""^"")=-1:1,$P(PRCASV(""ARBIL""),""^"")=-1:1,1:0) W *7,""  "",$P(PRCASV(""ARREC""),""^"",2),$P(PRCASV(""ARBIL""),""^"",2) G END"
^XMB(3.9,55,2,6073,0)="""RTN"",""IBCCC"",52,0)"
^XMB(3.9,55,2,6074,0)=" S IBIDS(.01)=$P(PRCASV(""ARBIL""),""-"",2),IBIDS(.17)=$S($D(IBIDS(.17)):IBIDS(.17),1:PRCASV(""ARREC""))"
^XMB(3.9,55,2,6075,0)="""RTN"",""IBCCC"",53,0)"
^XMB(3.9,55,2,6076,0)=" I '$G(IBCE(""EDI"")) W !,""Billing Record #"",IBIDS(.01),"" being established for '"",VADM(1),""'..."" S IBIDS(.02)=DFN,IBHV(""IBIFN"")=$S($G(IBIFN):IBIFN,1:$G(IBIDS(.15)))"
^XMB(3.9,55,2,6077,0)="""RTN"",""IBCCC"",54,0)"
^XMB(3.9,55,2,6078,0)=" G ^IBCCC1 ;go to step4"
^XMB(3.9,55,2,6079,0)="""RTN"",""IBCCC"",55,0)"
^XMB(3.9,55,2,6080,0)=" Q"
^XMB(3.9,55,2,6081,0)="""RTN"",""IBCCC"",56,0)"
^XMB(3.9,55,2,6082,0)=" ;"
^XMB(3.9,55,2,6083,0)="""RTN"",""IBCCC"",57,0)"
^XMB(3.9,55,2,6084,0)="END W !!,""No Billing Record Set up.  You must manually enter the bill."""
^XMB(3.9,55,2,6085,0)="""RTN"",""IBCCC"",58,0)"
^XMB(3.9,55,2,6086,0)="END1 K %,%DT,IBCAN,IBAC,IBND0,IBNDU,IBYN,IBCCCC,IBIFN,IB,IBA,IBNWBL,IBBT,IBIDS,IBU,I,J,VA,VADM,X,X1,X2,X3,X4,D,Y"
^XMB(3.9,55,2,6087,0)="""RTN"",""IBCCC"",59,0)"
^XMB(3.9,55,2,6088,0)=" I '$G(IBQUIT),$S(+$G(IBCNCOPY):1,1:'$G(IBCE(""EDI""))) G STEP1"
^XMB(3.9,55,2,6089,0)="""RTN"",""IBCCC"",60,0)"
^XMB(3.9,55,2,6090,0)=" K IBQUIT,IBCNCOPY"
^XMB(3.9,55,2,6091,0)="""RTN"",""IBCCC"",61,0)"
^XMB(3.9,55,2,6092,0)=" Q"
^XMB(3.9,55,2,6093,0)="""RTN"",""IBCCC"",62,0)"
^XMB(3.9,55,2,6094,0)=" ;"
^XMB(3.9,55,2,6095,0)="""RTN"",""IBCCC1"")"
^XMB(3.9,55,2,6096,0)="0^4^B9434923^B7566189"
^XMB(3.9,55,2,6097,0)="""RTN"",""IBCCC1"",1,0)"
^XMB(3.9,55,2,6098,0)="IBCCC1 ;ALB/AAS - CANCEL AND CLONE A BILL - CONTINUED ;25-JAN-90"
^XMB(3.9,55,2,6099,0)="""RTN"",""IBCCC1"",2,0)"
^XMB(3.9,55,2,6100,0)=" ;;2.0;INTEGRATED BILLING;**80,109,106,51,320**;21-MAR-94"
^XMB(3.9,55,2,6101,0)="""RTN"",""IBCCC1"",3,0)"
^XMB(3.9,55,2,6102,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,6103,0)="""RTN"",""IBCCC1"",4,0)"
^XMB(3.9,55,2,6104,0)=" ;"
^XMB(3.9,55,2,6105,0)="""RTN"",""IBCCC1"",5,0)"
^XMB(3.9,55,2,6106,0)=" ;MAP TO DGCRCC1"
^XMB(3.9,55,2,6107,0)="""RTN"",""IBCCC1"",6,0)"
^XMB(3.9,55,2,6108,0)=" ;"
^XMB(3.9,55,2,6109,0)="""RTN"",""IBCCC1"",7,0)"
^XMB(3.9,55,2,6110,0)=" ;STEP 1 - cancel bill"
^XMB(3.9,55,2,6111,0)="""RTN"",""IBCCC1"",8,0)"
^XMB(3.9,55,2,6112,0)=" ;STEP 1.5 - entry to clone previously cancelled bill.  (must be cancell)"
^XMB(3.9,55,2,6113,0)="""RTN"",""IBCCC1"",9,0)"
^XMB(3.9,55,2,6114,0)=" ;STEP 2 - build array of IBIDS call screen that asks ok"
^XMB(3.9,55,2,6115,0)="""RTN"",""IBCCC1"",10,0)"
^XMB(3.9,55,2,6116,0)=" ;STEP 3 - pass stub entry to ar"
^XMB(3.9,55,2,6117,0)="""RTN"",""IBCCC1"",11,0)"
^XMB(3.9,55,2,6118,0)=" ;STEP 4 - store stub data in MCCR then x-ref"
^XMB(3.9,55,2,6119,0)="""RTN"",""IBCCC1"",12,0)"
^XMB(3.9,55,2,6120,0)=" ;STEP 4.5 - store claim clone info on ""S1"" node."
^XMB(3.9,55,2,6121,0)="""RTN"",""IBCCC1"",13,0)"
^XMB(3.9,55,2,6122,0)=" ;STEP 5 - get remainder of data to move and store in MCCR then x-ref"
^XMB(3.9,55,2,6123,0)="""RTN"",""IBCCC1"",14,0)"
^XMB(3.9,55,2,6124,0)=" ;STEP 6 - go to screens, come out to IBB1 or something like that"
^XMB(3.9,55,2,6125,0)="""RTN"",""IBCCC1"",15,0)"
^XMB(3.9,55,2,6126,0)=" ;"
^XMB(3.9,55,2,6127,0)="""RTN"",""IBCCC1"",16,0)"
^XMB(3.9,55,2,6128,0)="STEP4 S X=$P($T(WHERE),"";;"",2) F I=0:0 S I=$O(IBIDS(I)) Q:'I  S X1=$P($E(X,$F(X,I)+1,999),"";"",1),$P(IBDR($P(X1,""^"",1)),""^"",$P(X1,""^"",2))=IBIDS(I)"
^XMB(3.9,55,2,6129,0)="""RTN"",""IBCCC1"",17,0)"
^XMB(3.9,55,2,6130,0)=" S IBIFN=PRCASV(""ARREC"") F I=0,""C"",""M"",""M1"",""S"",""U"",""U1"" I $D(IBDR(I)) S ^DGCR(399,IBIFN,I)=IBDR(I)"
^XMB(3.9,55,2,6131,0)="""RTN"",""IBCCC1"",18,0)"
^XMB(3.9,55,2,6132,0)=" D  ; Protect variables;index entry;replace FT if copy/clone and it chngs"
^XMB(3.9,55,2,6133,0)="""RTN"",""IBCCC1"",19,0)"
^XMB(3.9,55,2,6134,0)=" . N IBHOLD,DIE,DR,DA,X,Y"
^XMB(3.9,55,2,6135,0)="""RTN"",""IBCCC1"",20,0)"
^XMB(3.9,55,2,6136,0)=" . S IBHOLD(""FT"")=$P($G(^DGCR(399,IBIFN,0)),U,19)"
^XMB(3.9,55,2,6137,0)="""RTN"",""IBCCC1"",21,0)"
^XMB(3.9,55,2,6138,0)=" . S $P(^DGCR(399,0),""^"",3)=IBIFN,$P(^(0),""^"",4)=$P(^(0),""^"",4)+1 W !,""Cross-referencing new billing entry..."" D INDEX^IBCCC2"
^XMB(3.9,55,2,6139,0)="""RTN"",""IBCCC1"",22,0)"
^XMB(3.9,55,2,6140,0)=" . I $G(IBCNCOPY),IBHOLD(""FT""),IBHOLD(""FT"")'=$P($G(^DGCR(399,IBIFN,0)),U,19) S DA=IBIFN,DIE=""^DGCR(399,"",DR="".19////""_IBHOLD(""FT"") D ^DIE"
^XMB(3.9,55,2,6141,0)="""RTN"",""IBCCC1"",23,0)"
^XMB(3.9,55,2,6142,0)=" S IBYN=1 W !!,*7,""Billing Record #"",$P(^DGCR(399,+IBIFN,0),""^"",1),"" established for '"",VADM(1),""'..."""
^XMB(3.9,55,2,6143,0)="""RTN"",""IBCCC1"",24,0)"
^XMB(3.9,55,2,6144,0)=" S:$G(IBCE(""EDI"")) IBCE(""EDI"",""NEW"")=IBIFN"
^XMB(3.9,55,2,6145,0)="""RTN"",""IBCCC1"",25,0)"
^XMB(3.9,55,2,6146,0)=" I $G(IBCE(""EDI""))!($G(IBCTCOPY)=1) S IBHV(""IBIFN1"")=IBIFN ; New bill #"
^XMB(3.9,55,2,6147,0)="""RTN"",""IBCCC1"",26,0)"
^XMB(3.9,55,2,6148,0)=" S IBBCT=IBIFN   ;bill the old claim was cloned TO."
^XMB(3.9,55,2,6149,0)="""RTN"",""IBCCC1"",27,0)"
^XMB(3.9,55,2,6150,0)="END K %,%DT,IB,IBA,IBNWBL,IBBT,IBIDS,I,J,VADM,X,X1,X2,X3,X4,Y"
^XMB(3.9,55,2,6151,0)="""RTN"",""IBCCC1"",28,0)"
^XMB(3.9,55,2,6152,0)=" ;"
^XMB(3.9,55,2,6153,0)="""RTN"",""IBCCC1"",29,0)"
^XMB(3.9,55,2,6154,0)="STEP4P5 ;added in patch 320"
^XMB(3.9,55,2,6155,0)="""RTN"",""IBCCC1"",30,0)"
^XMB(3.9,55,2,6156,0)=" ;first, put the TO data on the FROM bill"
^XMB(3.9,55,2,6157,0)="""RTN"",""IBCCC1"",31,0)"
^XMB(3.9,55,2,6158,0)=" ;"
^XMB(3.9,55,2,6159,0)="""RTN"",""IBCCC1"",32,0)"
^XMB(3.9,55,2,6160,0)=" I '$G(IBCNCOPY) G STEP45X"
^XMB(3.9,55,2,6161,0)="""RTN"",""IBCCC1"",33,0)"
^XMB(3.9,55,2,6162,0)=" S DIE=""^DGCR(399,"",DA=IBBCF,DR=""29////""_$G(IBBCT) D ^DIE"
^XMB(3.9,55,2,6163,0)="""RTN"",""IBCCC1"",34,0)"
^XMB(3.9,55,2,6164,0)=" S DIE=""^DGCR(399,"",DA=IBBCF,DR=""31////""_$G(IBDBC) D ^DIE"
^XMB(3.9,55,2,6165,0)="""RTN"",""IBCCC1"",35,0)"
^XMB(3.9,55,2,6166,0)=" S DIE=""^DGCR(399,"",DA=IBBCF,DR=""32////""_$G(IBBCB) D ^DIE"
^XMB(3.9,55,2,6167,0)="""RTN"",""IBCCC1"",36,0)"
^XMB(3.9,55,2,6168,0)=" S DIE=""^DGCR(399,"",DA=IBBCF,DR=""33////""_$G(IBCCR) D ^DIE"
^XMB(3.9,55,2,6169,0)="""RTN"",""IBCCC1"",37,0)"
^XMB(3.9,55,2,6170,0)=" ;"
^XMB(3.9,55,2,6171,0)="""RTN"",""IBCCC1"",38,0)"
^XMB(3.9,55,2,6172,0)=" ;now, put the FROM data on the TO bill"
^XMB(3.9,55,2,6173,0)="""RTN"",""IBCCC1"",39,0)"
^XMB(3.9,55,2,6174,0)=" ;"
^XMB(3.9,55,2,6175,0)="""RTN"",""IBCCC1"",40,0)"
^XMB(3.9,55,2,6176,0)=" S DIE=""^DGCR(399,"",DA=IBBCT,DR=""30////""_$G(IBBCF) D ^DIE"
^XMB(3.9,55,2,6177,0)="""RTN"",""IBCCC1"",41,0)"
^XMB(3.9,55,2,6178,0)=" ;"
^XMB(3.9,55,2,6179,0)="""RTN"",""IBCCC1"",42,0)"
^XMB(3.9,55,2,6180,0)="STEP45X G ^IBCCC2 ;go to step 5"
^XMB(3.9,55,2,6181,0)="""RTN"",""IBCCC1"",43,0)"
^XMB(3.9,55,2,6182,0)=" ;"
^XMB(3.9,55,2,6183,0)="""RTN"",""IBCCC1"",44,0)"
^XMB(3.9,55,2,6184,0)=" ;"
^XMB(3.9,55,2,6185,0)="""RTN"",""IBCCC1"",45,0)"
^XMB(3.9,55,2,6186,0)="XREF F IBI1=0:0 S IBI1=$O(^DD(399,IBI,1,IBI1)) Q:'IBI1  I $D(^DD(399,IBI,1,IBI1,1)) S DA=IBIFN,X=IBIDS(IBI) I X]"""" X ^DD(399,IBI,1,IBI1,1)"
^XMB(3.9,55,2,6187,0)="""RTN"",""IBCCC1"",46,0)"
^XMB(3.9,55,2,6188,0)=" Q"
^XMB(3.9,55,2,6189,0)="""RTN"",""IBCCC1"",47,0)"
^XMB(3.9,55,2,6190,0)=" ;"
^XMB(3.9,55,2,6191,0)="""RTN"",""IBCCC1"",48,0)"
^XMB(3.9,55,2,6192,0)="WHERE ;;.01^0^1;.02^0^2;.03^0^3;.04^0^4;.05^0^5;.06^0^6;.07^0^7;.08^0^8;.09^0^9;.11^0^11;.12^0^12;.17^0^17;.18^0^18;.19^0^19;.15^0^15;.16^0^16;.21^0^21;.22^0^22;.23^0^23;.24^0^24;.25^0^25;.26^0^26;.27^0^27;151^U^1;152^U^2;155^U^5;159.5^U^20;"
^XMB(3.9,55,2,6193,0)="""RTN"",""IBCCC1"",49,0)"
^XMB(3.9,55,2,6194,0)=" ;"
^XMB(3.9,55,2,6195,0)="""RTN"",""IBCCC2"")"
^XMB(3.9,55,2,6196,0)="0^43^B56568071^B55435831"
^XMB(3.9,55,2,6197,0)="""RTN"",""IBCCC2"",1,0)"
^XMB(3.9,55,2,6198,0)="IBCCC2 ;ALB/AAS - CANCEL AND CLONE A BILL - CONTINUED ;6/6/03 9:56am"
^XMB(3.9,55,2,6199,0)="""RTN"",""IBCCC2"",2,0)"
^XMB(3.9,55,2,6200,0)=" ;;2.0;INTEGRATED BILLING;**80,106,124,138,51,151,137,161,182,211,245,155,296,320**;21-MAR-94"
^XMB(3.9,55,2,6201,0)="""RTN"",""IBCCC2"",3,0)"
^XMB(3.9,55,2,6202,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,6203,0)="""RTN"",""IBCCC2"",4,0)"
^XMB(3.9,55,2,6204,0)=" ;"
^XMB(3.9,55,2,6205,0)="""RTN"",""IBCCC2"",5,0)"
^XMB(3.9,55,2,6206,0)=" ;MAP TO DGCRCC2"
^XMB(3.9,55,2,6207,0)="""RTN"",""IBCCC2"",6,0)"
^XMB(3.9,55,2,6208,0)=" ;"
^XMB(3.9,55,2,6209,0)="""RTN"",""IBCCC2"",7,0)"
^XMB(3.9,55,2,6210,0)=" ;STEP 5 - get remainder of data to move and store in MCCR then x-ref"
^XMB(3.9,55,2,6211,0)="""RTN"",""IBCCC2"",8,0)"
^XMB(3.9,55,2,6212,0)=" ;STEP 6 - go to screens, come out to IBB1 or something like that"
^XMB(3.9,55,2,6213,0)="""RTN"",""IBCCC2"",9,0)"
^XMB(3.9,55,2,6214,0)=" ;"
^XMB(3.9,55,2,6215,0)="""RTN"",""IBCCC2"",10,0)"
^XMB(3.9,55,2,6216,0)="STEP5 S IBIFN1=$P(^DGCR(399,IBIFN,0),""^"",15) G END:$S(IBIFN1="""":1,'$D(^DGCR(399,IBIFN1,0)):1,1:0)"
^XMB(3.9,55,2,6217,0)="""RTN"",""IBCCC2"",11,0)"
^XMB(3.9,55,2,6218,0)=" ;"
^XMB(3.9,55,2,6219,0)="""RTN"",""IBCCC2"",12,0)"
^XMB(3.9,55,2,6220,0)=" ;move pure data nodes"
^XMB(3.9,55,2,6221,0)="""RTN"",""IBCCC2"",13,0)"
^XMB(3.9,55,2,6222,0)=" F I=""I1"",""I2"",""I3"",""M1"" I $D(^DGCR(399,IBIFN1,I)) S ^DGCR(399,IBIFN,I)=^DGCR(399,IBIFN1,I)"
^XMB(3.9,55,2,6223,0)="""RTN"",""IBCCC2"",14,0)"
^XMB(3.9,55,2,6224,0)=" ;"
^XMB(3.9,55,2,6225,0)="""RTN"",""IBCCC2"",15,0)"
^XMB(3.9,55,2,6226,0)=" ;move top level data node. ;Do not move 'TX' node"
^XMB(3.9,55,2,6227,0)="""RTN"",""IBCCC2"",16,0)"
^XMB(3.9,55,2,6228,0)=" F I=""U"",""U1"",""U2"",""U3"",""UF2"",""UF3"",""UF31"",""C"",""M"" I $D(^DGCR(399,IBIFN1,I)) S IBND(I)=^(I) D @I"
^XMB(3.9,55,2,6229,0)="""RTN"",""IBCCC2"",17,0)"
^XMB(3.9,55,2,6230,0)=" ;"
^XMB(3.9,55,2,6231,0)="""RTN"",""IBCCC2"",18,0)"
^XMB(3.9,55,2,6232,0)=" ;move multiple level data"
^XMB(3.9,55,2,6233,0)="""RTN"",""IBCCC2"",19,0)"
^XMB(3.9,55,2,6234,0)=" F I=""CC"",""OC"",""OP"",""OT"",""RC"",""CP"",""CV"",""PRV"" I $D(^DGCR(399,IBIFN1,I,0)) D @I"
^XMB(3.9,55,2,6235,0)="""RTN"",""IBCCC2"",20,0)"
^XMB(3.9,55,2,6236,0)=" ;"
^XMB(3.9,55,2,6237,0)="""RTN"",""IBCCC2"",21,0)"
^XMB(3.9,55,2,6238,0)=" D FTPRV^IBCEU5(IBIFN) ; Ask change prov type if form type not the same"
^XMB(3.9,55,2,6239,0)="""RTN"",""IBCCC2"",22,0)"
^XMB(3.9,55,2,6240,0)=" D COBCHG(IBIFN,,.IBCOB)"
^XMB(3.9,55,2,6241,0)="""RTN"",""IBCCC2"",23,0)"
^XMB(3.9,55,2,6242,0)=" ;"
^XMB(3.9,55,2,6243,0)="""RTN"",""IBCCC2"",24,0)"
^XMB(3.9,55,2,6244,0)=" D ^IBCCC3 ; copy table files (362.3)"
^XMB(3.9,55,2,6245,0)="""RTN"",""IBCCC2"",25,0)"
^XMB(3.9,55,2,6246,0)=" ;"
^XMB(3.9,55,2,6247,0)="""RTN"",""IBCCC2"",26,0)"
^XMB(3.9,55,2,6248,0)=" S I=$G(^DGCR(399,IBIFN1,0)) I $P(I,U,13)=7,$P(I,U,20)=1 D COPYB^IBCDC(IBIFN1,IBIFN) ; update auto bill files"
^XMB(3.9,55,2,6249,0)="""RTN"",""IBCCC2"",27,0)"
^XMB(3.9,55,2,6250,0)=" D PRIOR(IBIFN) ; add new bill to previous bills in series, primary/secondary"
^XMB(3.9,55,2,6251,0)="""RTN"",""IBCCC2"",28,0)"
^XMB(3.9,55,2,6252,0)=" I +$G(IBCTCOPY) N IBAUTO S IBAUTO=1 D PROC^IBCU7A(IBIFN),BILL^IBCRBC(IBIFN),CPTMOD26^IBCU73(IBIFN) D RECALL^DILFD(399,IBIFN_"","",DUZ) G END"
^XMB(3.9,55,2,6253,0)="""RTN"",""IBCCC2"",29,0)"
^XMB(3.9,55,2,6254,0)=" ;"
^XMB(3.9,55,2,6255,0)="""RTN"",""IBCCC2"",30,0)"
^XMB(3.9,55,2,6256,0)="STEP6 N IBGOEND"
^XMB(3.9,55,2,6257,0)="""RTN"",""IBCCC2"",31,0)"
^XMB(3.9,55,2,6258,0)=" I '$G(IBCE(""EDI""))!$G(IBCE(""EDI"",""NEW"")),'$G(IBCEAUTO) D IBSCEDT G END:$G(IBGOEND)"
^XMB(3.9,55,2,6259,0)="""RTN"",""IBCCC2"",32,0)"
^XMB(3.9,55,2,6260,0)=" ;"
^XMB(3.9,55,2,6261,0)="""RTN"",""IBCCC2"",33,0)"
^XMB(3.9,55,2,6262,0)=" ;"
^XMB(3.9,55,2,6263,0)="""RTN"",""IBCCC2"",34,0)"
^XMB(3.9,55,2,6264,0)="END K DFN,IB,IBA,IBA2,IBAD,IBADD1,IBBNO,IBCAN,IBCCC,IBDA,IBDPT,IBDR,IBDT,IBI,IBI1,IBIDS,IBIFN,IBIFN1,IBND,IBQUIT,IBU,IBUN,IBARST,IBCOB,IBCNCOPY,IBCBCOPY"
^XMB(3.9,55,2,6265,0)="""RTN"",""IBCCC2"",35,0)"
^XMB(3.9,55,2,6266,0)=" K IBV,IBV1,IBW,IBWW,IBYN,IBZZ,PRCASV,PRCAERCD,PRCAERR,PRCASVC,PRCAT,IBBT,IBCH,IBNDS,IBOA,IBREV,IBX,DGXRF1,VAEL,VAERR,IBAC,IBCCC,IBDD1,IBIN,DGREV,DGREV00,DGREVHDR,IBCHK"
^XMB(3.9,55,2,6267,0)="""RTN"",""IBCCC2"",36,0)"
^XMB(3.9,55,2,6268,0)=" K IBBS,IBLS,DGPCM,IBIP,IBND0,IBNDU,IBO,IBPTF,IBST,IBUC,IBDD,D,%,%DT,DIC,VA,VADM,X,X1,X2,X3,X4,Y,I,J,K,DGRVRCAL,DDH,DGACTDT,DGAMNT,DGBR,DGBRN,DGBSI,DGBSLOS,IBA1,IBOD,IBINS,IBN,IBPROC,DGFUNC,DGIFN"
^XMB(3.9,55,2,6269,0)="""RTN"",""IBCCC2"",37,0)"
^XMB(3.9,55,2,6270,0)=" Q"
^XMB(3.9,55,2,6271,0)="""RTN"",""IBCCC2"",38,0)"
^XMB(3.9,55,2,6272,0)=" ;"
^XMB(3.9,55,2,6273,0)="""RTN"",""IBCCC2"",39,0)"
^XMB(3.9,55,2,6274,0)=" ;"
^XMB(3.9,55,2,6275,0)="""RTN"",""IBCCC2"",40,0)"
^XMB(3.9,55,2,6276,0)="IBSCEDT ; call the IB bill edit screens and validate the data"
^XMB(3.9,55,2,6277,0)="""RTN"",""IBCCC2"",41,0)"
^XMB(3.9,55,2,6278,0)=" N IBV,IBPAR,IBAC,IBHV,IBH,IBCIREDT"
^XMB(3.9,55,2,6279,0)="""RTN"",""IBCCC2"",42,0)"
^XMB(3.9,55,2,6280,0)=" D RECALL^DILFD(399,IBIFN_"","",DUZ)"
^XMB(3.9,55,2,6281,0)="""RTN"",""IBCCC2"",43,0)"
^XMB(3.9,55,2,6282,0)="ST1 S IBV=0 D ^IBCSCU,^IBCSC1 I $G(IBPOPOUT) S IBGOEND=1 G IBSCX"
^XMB(3.9,55,2,6283,0)="""RTN"",""IBCCC2"",44,0)"
^XMB(3.9,55,2,6284,0)=" S IBAC=1"
^XMB(3.9,55,2,6285,0)="""RTN"",""IBCCC2"",45,0)"
^XMB(3.9,55,2,6286,0)=" D ^IBCB1"
^XMB(3.9,55,2,6287,0)="""RTN"",""IBCCC2"",46,0)"
^XMB(3.9,55,2,6288,0)=" I $G(IBCIREDT) G ST1"
^XMB(3.9,55,2,6289,0)="""RTN"",""IBCCC2"",47,0)"
^XMB(3.9,55,2,6290,0)="IBSCX ;"
^XMB(3.9,55,2,6291,0)="""RTN"",""IBCCC2"",48,0)"
^XMB(3.9,55,2,6292,0)=" Q"
^XMB(3.9,55,2,6293,0)="""RTN"",""IBCCC2"",49,0)"
^XMB(3.9,55,2,6294,0)=" ;"
^XMB(3.9,55,2,6295,0)="""RTN"",""IBCCC2"",50,0)"
^XMB(3.9,55,2,6296,0)=" ;"
^XMB(3.9,55,2,6297,0)="""RTN"",""IBCCC2"",51,0)"
^XMB(3.9,55,2,6298,0)="U F J=3,4,6:1:17,20 I $P(IBND(""U""),""^"",J)]"""" S $P(^DGCR(399,IBIFN,""U""),""^"",J)=$P(IBND(""U""),""^"",J)"
^XMB(3.9,55,2,6299,0)="""RTN"",""IBCCC2"",52,0)"
^XMB(3.9,55,2,6300,0)=" Q"
^XMB(3.9,55,2,6301,0)="""RTN"",""IBCCC2"",53,0)"
^XMB(3.9,55,2,6302,0)="U1 F J=1:1:9,13,14 I $P(IBND(""U1""),""^"",J)]"""" S $P(^DGCR(399,IBIFN,""U1""),""^"",J)=$P(IBND(""U1""),""^"",J)"
^XMB(3.9,55,2,6303,0)="""RTN"",""IBCCC2"",54,0)"
^XMB(3.9,55,2,6304,0)=" Q"
^XMB(3.9,55,2,6305,0)="""RTN"",""IBCCC2"",55,0)"
^XMB(3.9,55,2,6306,0)="U2 F J=1:1:19 I $P(IBND(""U2""),""^"",J)]"""" S $P(^DGCR(399,IBIFN,""U2""),""^"",J)=$P(IBND(""U2""),""^"",J)"
^XMB(3.9,55,2,6307,0)="""RTN"",""IBCCC2"",56,0)"
^XMB(3.9,55,2,6308,0)=" Q"
^XMB(3.9,55,2,6309,0)="""RTN"",""IBCCC2"",57,0)"
^XMB(3.9,55,2,6310,0)="U3 F J=1 I $P(IBND(""U3""),""^"",J)]"""" S $P(^DGCR(399,IBIFN,""U3""),""^"",J)=$P(IBND(""U3""),""^"",J)"
^XMB(3.9,55,2,6311,0)="""RTN"",""IBCCC2"",58,0)"
^XMB(3.9,55,2,6312,0)=" Q"
^XMB(3.9,55,2,6313,0)="""RTN"",""IBCCC2"",59,0)"
^XMB(3.9,55,2,6314,0)="UF2 F J=1 I $P(IBND(""UF2""),""^"",J)]"""" S $P(^DGCR(399,IBIFN,""UF2""),""^"",J)=$P(IBND(""UF2""),""^"",J)"
^XMB(3.9,55,2,6315,0)="""RTN"",""IBCCC2"",60,0)"
^XMB(3.9,55,2,6316,0)=" Q"
^XMB(3.9,55,2,6317,0)="""RTN"",""IBCCC2"",61,0)"
^XMB(3.9,55,2,6318,0)="UF3 F J=1:1:7 I $P(IBND(""UF3""),""^"",J)]"""" S $P(^DGCR(399,IBIFN,""UF3""),""^"",J)=$P(IBND(""UF3""),""^"",J)"
^XMB(3.9,55,2,6319,0)="""RTN"",""IBCCC2"",62,0)"
^XMB(3.9,55,2,6320,0)=" Q"
^XMB(3.9,55,2,6321,0)="""RTN"",""IBCCC2"",63,0)"
^XMB(3.9,55,2,6322,0)="UF31 F J=1:1:3 I $P(IBND(""UF31""),""^"",J)]"""" S $P(^DGCR(399,IBIFN,""UF31""),""^"",J)=$P(IBND(""UF31""),""^"",J)"
^XMB(3.9,55,2,6323,0)="""RTN"",""IBCCC2"",64,0)"
^XMB(3.9,55,2,6324,0)=" Q"
^XMB(3.9,55,2,6325,0)="""RTN"",""IBCCC2"",65,0)"
^XMB(3.9,55,2,6326,0)="C F J=10 I $P(IBND(""C""),""^"",J)]"""" S $P(^DGCR(399,IBIFN,""C""),""^"",J)=$P(IBND(""C""),""^"",J)"
^XMB(3.9,55,2,6327,0)="""RTN"",""IBCCC2"",66,0)"
^XMB(3.9,55,2,6328,0)=" I '$D(^DGCR(399,IBIFN1,""CP"")) D CP1"
^XMB(3.9,55,2,6329,0)="""RTN"",""IBCCC2"",67,0)"
^XMB(3.9,55,2,6330,0)=" Q"
^XMB(3.9,55,2,6331,0)="""RTN"",""IBCCC2"",68,0)"
^XMB(3.9,55,2,6332,0)="M F J=1:1:14 I $P(IBND(""M""),""^"",J)]"""" S $P(^DGCR(399,IBIFN,""M""),""^"",J)=$P(IBND(""M""),""^"",J)"
^XMB(3.9,55,2,6333,0)="""RTN"",""IBCCC2"",69,0)"
^XMB(3.9,55,2,6334,0)=" Q"
^XMB(3.9,55,2,6335,0)="""RTN"",""IBCCC2"",70,0)"
^XMB(3.9,55,2,6336,0)="CC S ^DGCR(399,IBIFN,I,0)=^DGCR(399,IBIFN1,I,0)"
^XMB(3.9,55,2,6337,0)="""RTN"",""IBCCC2"",71,0)"
^XMB(3.9,55,2,6338,0)=" S IBDD=399.04 F J=0:0 S J=$O(^DGCR(399,IBIFN1,I,J)) Q:'J  I $D(^(J,0)) S ^DGCR(399,IBIFN,I,J,0)=^DGCR(399,IBIFN1,I,J,0),X=$P(^(0),""^"")"
^XMB(3.9,55,2,6339,0)="""RTN"",""IBCCC2"",72,0)"
^XMB(3.9,55,2,6340,0)="OP S ^DGCR(399,IBIFN,I,0)=^DGCR(399,IBIFN1,I,0)"
^XMB(3.9,55,2,6341,0)="""RTN"",""IBCCC2"",73,0)"
^XMB(3.9,55,2,6342,0)=" S IBDD=399.043 F J=0:0 S J=$O(^DGCR(399,IBIFN1,I,J)) Q:'J  I $D(^(J,0)) S ^DGCR(399,IBIFN,I,J,0)=^DGCR(399,IBIFN1,I,J,0),X=$P(^(0),""^"")"
^XMB(3.9,55,2,6343,0)="""RTN"",""IBCCC2"",74,0)"
^XMB(3.9,55,2,6344,0)=" Q"
^XMB(3.9,55,2,6345,0)="""RTN"",""IBCCC2"",75,0)"
^XMB(3.9,55,2,6346,0)="OC S ^DGCR(399,IBIFN,I,0)=^DGCR(399,IBIFN1,I,0)"
^XMB(3.9,55,2,6347,0)="""RTN"",""IBCCC2"",76,0)"
^XMB(3.9,55,2,6348,0)=" S IBDD=399.041 F J=0:0 S J=$O(^DGCR(399,IBIFN1,I,J)) Q:'J  I $D(^(J,0)) S ^DGCR(399,IBIFN,I,J,0)=^DGCR(399,IBIFN1,I,J,0),X=$P(^(0),""^"")"
^XMB(3.9,55,2,6349,0)="""RTN"",""IBCCC2"",77,0)"
^XMB(3.9,55,2,6350,0)=" Q"
^XMB(3.9,55,2,6351,0)="""RTN"",""IBCCC2"",78,0)"
^XMB(3.9,55,2,6352,0)="OT S ^DGCR(399,IBIFN,I,0)=^DGCR(399,IBIFN1,I,0)"
^XMB(3.9,55,2,6353,0)="""RTN"",""IBCCC2"",79,0)"
^XMB(3.9,55,2,6354,0)=" S IBDD=399.048 F J=0:0 S J=$O(^DGCR(399,IBIFN1,I,J)) Q:'J  I $D(^(J,0)) S ^DGCR(399,IBIFN,I,J,0)=^DGCR(399,IBIFN1,I,J,0),X=$P(^(0),""^"")"
^XMB(3.9,55,2,6355,0)="""RTN"",""IBCCC2"",80,0)"
^XMB(3.9,55,2,6356,0)=" Q"
^XMB(3.9,55,2,6357,0)="""RTN"",""IBCCC2"",81,0)"
^XMB(3.9,55,2,6358,0)="CV ; Don't copy value codes from inpatient inst to inpatient prof bills"
^XMB(3.9,55,2,6359,0)="""RTN"",""IBCCC2"",82,0)"
^XMB(3.9,55,2,6360,0)=" I $$FT^IBCEF(IBIFN1)'=2,$$FT^IBCEF(IBIFN)=2 Q"
^XMB(3.9,55,2,6361,0)="""RTN"",""IBCCC2"",83,0)"
^XMB(3.9,55,2,6362,0)=" S ^DGCR(399,IBIFN,I,0)=^DGCR(399,IBIFN1,I,0)"
^XMB(3.9,55,2,6363,0)="""RTN"",""IBCCC2"",84,0)"
^XMB(3.9,55,2,6364,0)=" S IBDD=399.047 F J=0:0 S J=$O(^DGCR(399,IBIFN1,I,J)) Q:'J  I $D(^(J,0)) S ^DGCR(399,IBIFN,I,J,0)=^DGCR(399,IBIFN1,I,J,0),X=$P(^(0),""^"")"
^XMB(3.9,55,2,6365,0)="""RTN"",""IBCCC2"",85,0)"
^XMB(3.9,55,2,6366,0)=" Q"
^XMB(3.9,55,2,6367,0)="""RTN"",""IBCCC2"",86,0)"
^XMB(3.9,55,2,6368,0)="RC S ^DGCR(399,IBIFN,I,0)=^DGCR(399,IBIFN1,I,0)"
^XMB(3.9,55,2,6369,0)="""RTN"",""IBCCC2"",87,0)"
^XMB(3.9,55,2,6370,0)=" S IBDD=399.042 F J=0:0 S J=$O(^DGCR(399,IBIFN1,I,J)) Q:'J  I $D(^(J,0)) S IBND(""RC"")=^(0) F K=1:1:15 S $P(^DGCR(399,IBIFN,I,J,0),""^"",K)=$P(IBND(""RC""),""^"",K),X=$P(IBND(""RC""),""^"",K)"
^XMB(3.9,55,2,6371,0)="""RTN"",""IBCCC2"",88,0)"
^XMB(3.9,55,2,6372,0)=" Q"
^XMB(3.9,55,2,6373,0)="""RTN"",""IBCCC2"",89,0)"
^XMB(3.9,55,2,6374,0)="CP S ^DGCR(399,IBIFN,I,0)=^DGCR(399,IBIFN1,I,0)"
^XMB(3.9,55,2,6375,0)="""RTN"",""IBCCC2"",90,0)"
^XMB(3.9,55,2,6376,0)=" I +$G(IBNOCPT) Q"
^XMB(3.9,55,2,6377,0)="""RTN"",""IBCCC2"",91,0)"
^XMB(3.9,55,2,6378,0)=" S IBDD=399.0304 F J=0:0 S J=$O(^DGCR(399,IBIFN1,I,J)) Q:'J  I $D(^(J,0)) S IBND(""CP"")=^(0),IBND(""CP-AUX"")=$G(^(""AUX"")) D"
^XMB(3.9,55,2,6379,0)="""RTN"",""IBCCC2"",92,0)"
^XMB(3.9,55,2,6380,0)=" . F K=1:1:7,9:1:14,16:1:22 S $P(^DGCR(399,IBIFN,I,J,0),""^"",K)=$P(IBND(""CP""),""^"",K)"
^XMB(3.9,55,2,6381,0)="""RTN"",""IBCCC2"",93,0)"
^XMB(3.9,55,2,6382,0)=" . I IBND(""CP-AUX"")'="""" F K=1:1:8 S $P(^DGCR(399,IBIFN,I,J,""AUX""),""^"",K)=$P(IBND(""CP-AUX""),""^"",K)"
^XMB(3.9,55,2,6383,0)="""RTN"",""IBCCC2"",94,0)"
^XMB(3.9,55,2,6384,0)=" . I $D(^DGCR(399,IBIFN1,I,J,""MOD"",0)) S ^DGCR(399,IBIFN,I,J,""MOD"",0)=^DGCR(399,IBIFN1,I,J,""MOD"",0) D"
^XMB(3.9,55,2,6385,0)="""RTN"",""IBCCC2"",95,0)"
^XMB(3.9,55,2,6386,0)=" .. S K=0 F  S K=$O(^DGCR(399,IBIFN1,I,J,""MOD"",K)) Q:'K  D"
^XMB(3.9,55,2,6387,0)="""RTN"",""IBCCC2"",96,0)"
^XMB(3.9,55,2,6388,0)=" ... I $G(IBNOTC),$P($$MOD^ICPTMOD(+$P($G(^DGCR(399,IBIFN1,I,J,""MOD"",K,0)),U,2),""I""),U,2)=""TC"" Q  ; Don't copy TC modifier from inst to prof bill"
^XMB(3.9,55,2,6389,0)="""RTN"",""IBCCC2"",97,0)"
^XMB(3.9,55,2,6390,0)=" ... S ^DGCR(399,IBIFN,I,J,""MOD"",K,0)=^DGCR(399,IBIFN1,I,J,""MOD"",K,0)"
^XMB(3.9,55,2,6391,0)="""RTN"",""IBCCC2"",98,0)"
^XMB(3.9,55,2,6392,0)="CP1 S IBCOD=$P($G(^DGCR(399,IBIFN,0)),""^"",9) Q:IBCOD=""""!('$D(^DGCR(399,IBIFN1,""C"")))"
^XMB(3.9,55,2,6393,0)="""RTN"",""IBCCC2"",99,0)"
^XMB(3.9,55,2,6394,0)=" I IBCOD=9 F DGI=4,5,6 I $P(^DGCR(399,IBIFN1,""C""),""^"",DGI) S X=$P(^(""C""),""^"",DGI)_"";ICD0("",DGPROCDT=$P(^(""C""),""^"",DGI+7) D FILE"
^XMB(3.9,55,2,6395,0)="""RTN"",""IBCCC2"",100,0)"
^XMB(3.9,55,2,6396,0)=" I IBCOD=4 F DGI=1,2,3 I $P(^DGCR(399,IBIFN1,""C""),""^"",DGI) S X=$P(^(""C""),""^"",DGI)_"";ICPT("",DGPROCDT=$P(^(""C""),""^"",DGI+10) D FILE"
^XMB(3.9,55,2,6397,0)="""RTN"",""IBCCC2"",101,0)"
^XMB(3.9,55,2,6398,0)=" I IBCOD=5 F DGI=7,8,9 I $P(^DGCR(399,IBIFN1,""C""),""^"",DGI) S X=$P(^(""C""),""^"",DGI)_"";ICPT("",DGPROCDT=$P(^(""C""),""^"",DGI+4) D FILE"
^XMB(3.9,55,2,6399,0)="""RTN"",""IBCCC2"",102,0)"
^XMB(3.9,55,2,6400,0)=" Q"
^XMB(3.9,55,2,6401,0)="""RTN"",""IBCCC2"",103,0)"
^XMB(3.9,55,2,6402,0)=" ;"
^XMB(3.9,55,2,6403,0)="""RTN"",""IBCCC2"",104,0)"
^XMB(3.9,55,2,6404,0)="PRV S ^DGCR(399,IBIFN,I,0)=^DGCR(399,IBIFN1,I,0)"
^XMB(3.9,55,2,6405,0)="""RTN"",""IBCCC2"",105,0)"
^XMB(3.9,55,2,6406,0)=" N Z,Z0"
^XMB(3.9,55,2,6407,0)="""RTN"",""IBCCC2"",106,0)"
^XMB(3.9,55,2,6408,0)=" S Z=$P($G(^DGCR(399,IBIFN,0)),U,19),Z0=$P($G(^DGCR(399,IBIFN1,0)),U,19)"
^XMB(3.9,55,2,6409,0)="""RTN"",""IBCCC2"",107,0)"
^XMB(3.9,55,2,6410,0)=" S IBDD=399.0222 F J=0:0 S J=$O(^DGCR(399,IBIFN1,I,J)) Q:'J  I $D(^(J,0)) D"
^XMB(3.9,55,2,6411,0)="""RTN"",""IBCCC2"",108,0)"
^XMB(3.9,55,2,6412,0)=" . S ^DGCR(399,IBIFN,I,J,0)=^DGCR(399,IBIFN1,I,J,0),X=$P(^(0),""^"")"
^XMB(3.9,55,2,6413,0)="""RTN"",""IBCCC2"",109,0)"
^XMB(3.9,55,2,6414,0)=" . I Z'=Z0,$S(X=3:Z0=3,X=4:Z0=2,1:0) S $P(^DGCR(399,IBIFN,I,J,0),U)=(Z0+1)"
^XMB(3.9,55,2,6415,0)="""RTN"",""IBCCC2"",110,0)"
^XMB(3.9,55,2,6416,0)=" Q"
^XMB(3.9,55,2,6417,0)="""RTN"",""IBCCC2"",111,0)"
^XMB(3.9,55,2,6418,0)=" ;"
^XMB(3.9,55,2,6419,0)="""RTN"",""IBCCC2"",112,0)"
^XMB(3.9,55,2,6420,0)="COB S J=0 F  S J=$O(IBCOB(I,J)) Q:'J  S $P(^DGCR(399,IBIFN,I),U,J)=IBCOB(I,J)"
^XMB(3.9,55,2,6421,0)="""RTN"",""IBCCC2"",113,0)"
^XMB(3.9,55,2,6422,0)=" Q"
^XMB(3.9,55,2,6423,0)="""RTN"",""IBCCC2"",114,0)"
^XMB(3.9,55,2,6424,0)=" ;"
^XMB(3.9,55,2,6425,0)="""RTN"",""IBCCC2"",115,0)"
^XMB(3.9,55,2,6426,0)="FILE N DIC,DIE,DR,DA,X,Y,DLAYGO,DD,DO"
^XMB(3.9,55,2,6427,0)="""RTN"",""IBCCC2"",116,0)"
^XMB(3.9,55,2,6428,0)=" I '$D(^DGCR(399,IBIFN,""CP"",0)) S DIC(""P"")=$$GETSPEC^IBEFUNC(399,304)"
^XMB(3.9,55,2,6429,0)="""RTN"",""IBCCC2"",117,0)"
^XMB(3.9,55,2,6430,0)=" S DIC(0)=""L"",DLAYGO=399,DA(1)=IBIFN,DIC=""^DGCR(399,""_DA(1)_"",""""CP"""","" Q:X=""""  D FILE^DICN K DO,DD Q:+Y<1  S DA=+Y"
^XMB(3.9,55,2,6431,0)="""RTN"",""IBCCC2"",118,0)"
^XMB(3.9,55,2,6432,0)=" S DIE=""^DGCR(399,""_DA(1)_"",""""CP"""","",DR=""1///""_DGPROCDT D ^DIE"
^XMB(3.9,55,2,6433,0)="""RTN"",""IBCCC2"",119,0)"
^XMB(3.9,55,2,6434,0)=" K DGPROCDT"
^XMB(3.9,55,2,6435,0)="""RTN"",""IBCCC2"",120,0)"
^XMB(3.9,55,2,6436,0)=" Q"
^XMB(3.9,55,2,6437,0)="""RTN"",""IBCCC2"",121,0)"
^XMB(3.9,55,2,6438,0)=" ;"
^XMB(3.9,55,2,6439,0)="""RTN"",""IBCCC2"",122,0)"
^XMB(3.9,55,2,6440,0)="INDEX ;index entire file (set logic)"
^XMB(3.9,55,2,6441,0)="""RTN"",""IBCCC2"",123,0)"
^XMB(3.9,55,2,6442,0)=" S DIK=""^DGCR(399,"",DA=IBIFN D IX1^DIK K DA,DIK"
^XMB(3.9,55,2,6443,0)="""RTN"",""IBCCC2"",124,0)"
^XMB(3.9,55,2,6444,0)=" Q"
^XMB(3.9,55,2,6445,0)="""RTN"",""IBCCC2"",125,0)"
^XMB(3.9,55,2,6446,0)=" ;"
^XMB(3.9,55,2,6447,0)="""RTN"",""IBCCC2"",126,0)"
^XMB(3.9,55,2,6448,0)="PRIOR(IBIFN) ; set Secondary/Tertiary Bill #s on prior bills, if the bill is cancelled remove it from prior bills"
^XMB(3.9,55,2,6449,0)="""RTN"",""IBCCC2"",127,0)"
^XMB(3.9,55,2,6450,0)=" N IBSEQ,IBSEQN,IBM1,I,IBIFN1"
^XMB(3.9,55,2,6451,0)="""RTN"",""IBCCC2"",128,0)"
^XMB(3.9,55,2,6452,0)=" S IBSEQ=$$COB^IBCEF(IBIFN)"
^XMB(3.9,55,2,6453,0)="""RTN"",""IBCCC2"",129,0)"
^XMB(3.9,55,2,6454,0)=" S IBSEQN=$S(IBSEQ=""S"":6,IBSEQ=""T"":7,1:"""") Q:'IBSEQN"
^XMB(3.9,55,2,6455,0)="""RTN"",""IBCCC2"",130,0)"
^XMB(3.9,55,2,6456,0)=" ;"
^XMB(3.9,55,2,6457,0)="""RTN"",""IBCCC2"",131,0)"
^XMB(3.9,55,2,6458,0)=" S IBM1=$G(^DGCR(399,IBIFN,""M1"")) I +$P(^DGCR(399,IBIFN,0),U,13)=7 S IBIFN="""""
^XMB(3.9,55,2,6459,0)="""RTN"",""IBCCC2"",132,0)"
^XMB(3.9,55,2,6460,0)=" F I=5,6 I I<IBSEQN  S IBIFN1=+$P(IBM1,U,I) I +IBIFN1,$D(^DGCR(399,+IBIFN1,0)) S $P(^DGCR(399,IBIFN1,""M1""),U,IBSEQN)=IBIFN"
^XMB(3.9,55,2,6461,0)="""RTN"",""IBCCC2"",133,0)"
^XMB(3.9,55,2,6462,0)=" Q"
^XMB(3.9,55,2,6463,0)="""RTN"",""IBCCC2"",134,0)"
^XMB(3.9,55,2,6464,0)=" ;"
^XMB(3.9,55,2,6465,0)="""RTN"",""IBCCC2"",135,0)"
^XMB(3.9,55,2,6466,0)="COBCHG(IBIFN,IBINS,IBCOB) ; Make changes for a new COB payer for bill"
^XMB(3.9,55,2,6467,0)="""RTN"",""IBCCC2"",136,0)"
^XMB(3.9,55,2,6468,0)=" ; IBIFN = ien of bill in file 399"
^XMB(3.9,55,2,6469,0)="""RTN"",""IBCCC2"",137,0)"
^XMB(3.9,55,2,6470,0)=" ; IBINS = ien of bill's current insurance (optional)"
^XMB(3.9,55,2,6471,0)="""RTN"",""IBCCC2"",138,0)"
^XMB(3.9,55,2,6472,0)=" ; IBCOB = array subscripted by node,piece of COB data field change"
^XMB(3.9,55,2,6473,0)="""RTN"",""IBCCC2"",139,0)"
^XMB(3.9,55,2,6474,0)=" ;"
^XMB(3.9,55,2,6475,0)="""RTN"",""IBCCC2"",140,0)"
^XMB(3.9,55,2,6476,0)=" N I,IBFRMTYP"
^XMB(3.9,55,2,6477,0)="""RTN"",""IBCCC2"",141,0)"
^XMB(3.9,55,2,6478,0)=" ; Subtract the Prior Payments from the bill's Offset (these are re-added by triggers)"
^XMB(3.9,55,2,6479,0)="""RTN"",""IBCCC2"",142,0)"
^XMB(3.9,55,2,6480,0)=" F I=4,5,6  S $P(^DGCR(399,IBIFN,""U1""),U,2)=$P($G(^DGCR(399,IBIFN,""U1"")),U,2)-$P($G(^DGCR(399,IBIFN,""U2"")),U,I)"
^XMB(3.9,55,2,6481,0)="""RTN"",""IBCCC2"",143,0)"
^XMB(3.9,55,2,6482,0)=" ;"
^XMB(3.9,55,2,6483,0)="""RTN"",""IBCCC2"",144,0)"
^XMB(3.9,55,2,6484,0)=" I $G(IBINS),$$MCRWNR^IBEFUNC(IBINS) D"
^XMB(3.9,55,2,6485,0)="""RTN"",""IBCCC2"",145,0)"
^XMB(3.9,55,2,6486,0)=" . ;MCRWNR is current insurance ... move payer only"
^XMB(3.9,55,2,6487,0)="""RTN"",""IBCCC2"",146,0)"
^XMB(3.9,55,2,6488,0)=" . N IBCOBN,IBX"
^XMB(3.9,55,2,6489,0)="""RTN"",""IBCCC2"",147,0)"
^XMB(3.9,55,2,6490,0)=" . S IBCOBN=$$COBN^IBCEF(IBIFN)"
^XMB(3.9,55,2,6491,0)="""RTN"",""IBCCC2"",148,0)"
^XMB(3.9,55,2,6492,0)=" . S IBCOB(0,21)=$P(""S^T^"",U,IBCOBN)"
^XMB(3.9,55,2,6493,0)="""RTN"",""IBCCC2"",149,0)"
^XMB(3.9,55,2,6494,0)=" . S IBCOB(""M1"",IBCOBN+4)=IBIFN"
^XMB(3.9,55,2,6495,0)="""RTN"",""IBCCC2"",150,0)"
^XMB(3.9,55,2,6496,0)=" . S IBCOB(""TX"",1)="""",IBCOB(""TX"",2)="""""
^XMB(3.9,55,2,6497,0)="""RTN"",""IBCCC2"",151,0)"
^XMB(3.9,55,2,6498,0)=" . S IBX=$$REQMRA^IBEFUNC(IBIFN)"
^XMB(3.9,55,2,6499,0)="""RTN"",""IBCCC2"",152,0)"
^XMB(3.9,55,2,6500,0)=" . I IBX=0 S IBCOB(""TX"",5)=0                         ; MRA not needed"
^XMB(3.9,55,2,6501,0)="""RTN"",""IBCCC2"",153,0)"
^XMB(3.9,55,2,6502,0)=" . I IBX[""R"" S IBCOB(""TX"",5)=""A""                     ; MRA skipped"
^XMB(3.9,55,2,6503,0)="""RTN"",""IBCCC2"",154,0)"
^XMB(3.9,55,2,6504,0)=" . I IBX=1,$$CHK^IBCEMU1(IBIFN) S IBCOB(""TX"",5)=""C""  ; MRA on file"
^XMB(3.9,55,2,6505,0)="""RTN"",""IBCCC2"",155,0)"
^XMB(3.9,55,2,6506,0)=" . I $G(IBPRCOB) S IBCOB(""TX"",5)=""C""                 ; MRA being proc'd"
^XMB(3.9,55,2,6507,0)="""RTN"",""IBCCC2"",156,0)"
^XMB(3.9,55,2,6508,0)=" . D PRIOR(IBIFN)"
^XMB(3.9,55,2,6509,0)="""RTN"",""IBCCC2"",157,0)"
^XMB(3.9,55,2,6510,0)=" . Q"
^XMB(3.9,55,2,6511,0)="""RTN"",""IBCCC2"",158,0)"
^XMB(3.9,55,2,6512,0)=" ;"
^XMB(3.9,55,2,6513,0)="""RTN"",""IBCCC2"",159,0)"
^XMB(3.9,55,2,6514,0)=" ;reset fields for next Sequence Payer"
^XMB(3.9,55,2,6515,0)="""RTN"",""IBCCC2"",160,0)"
^XMB(3.9,55,2,6516,0)=" F I=0,""M1"",""U2"",""TX"" I $D(IBCOB(I)) D COB"
^XMB(3.9,55,2,6517,0)="""RTN"",""IBCCC2"",161,0)"
^XMB(3.9,55,2,6518,0)=" ;"
^XMB(3.9,55,2,6519,0)="""RTN"",""IBCCC2"",162,0)"
^XMB(3.9,55,2,6520,0)=" ; IB*2.0*211"
^XMB(3.9,55,2,6521,0)="""RTN"",""IBCCC2"",163,0)"
^XMB(3.9,55,2,6522,0)=" ; save off Form Type"
^XMB(3.9,55,2,6523,0)="""RTN"",""IBCCC2"",164,0)"
^XMB(3.9,55,2,6524,0)=" S IBFRMTYP=$P($G(^DGCR(399,IBIFN,0)),U,19)"
^XMB(3.9,55,2,6525,0)="""RTN"",""IBCCC2"",165,0)"
^XMB(3.9,55,2,6526,0)=" ;"
^XMB(3.9,55,2,6527,0)="""RTN"",""IBCCC2"",166,0)"
^XMB(3.9,55,2,6528,0)=" ; fire xrefs set logic"
^XMB(3.9,55,2,6529,0)="""RTN"",""IBCCC2"",167,0)"
^XMB(3.9,55,2,6530,0)=" D INDEX"
^XMB(3.9,55,2,6531,0)="""RTN"",""IBCCC2"",168,0)"
^XMB(3.9,55,2,6532,0)=" ;"
^XMB(3.9,55,2,6533,0)="""RTN"",""IBCCC2"",169,0)"
^XMB(3.9,55,2,6534,0)=" ; Restore Form Type if changed, but don't restore Form Type if"
^XMB(3.9,55,2,6535,0)="""RTN"",""IBCCC2"",170,0)"
^XMB(3.9,55,2,6536,0)=" ;   creating HCFA bill from CTCOPY1^IBCCCB"
^XMB(3.9,55,2,6537,0)="""RTN"",""IBCCC2"",171,0)"
^XMB(3.9,55,2,6538,0)=" I $G(IBCTCOPY)'=1,IBFRMTYP'=$P($G(^DGCR(399,IBIFN,0)),U,19) N DA,DIE,DR S DA=IBIFN,DIE=""^DGCR(399,"",DR="".19////""_IBFRMTYP D ^DIE"
^XMB(3.9,55,2,6539,0)="""RTN"",""IBCCC2"",172,0)"
^XMB(3.9,55,2,6540,0)=" ;"
^XMB(3.9,55,2,6541,0)="""RTN"",""IBCCC2"",173,0)"
^XMB(3.9,55,2,6542,0)=" ; Restore Claim MRA Status field since triggers in fields 101 & 102"
^XMB(3.9,55,2,6543,0)="""RTN"",""IBCCC2"",174,0)"
^XMB(3.9,55,2,6544,0)=" ;   will overwrite the correct value when processing the MRA/EOB."
^XMB(3.9,55,2,6545,0)="""RTN"",""IBCCC2"",175,0)"
^XMB(3.9,55,2,6546,0)=" ; If we're processing the MRA/EOB, then a valid MRA has been received."
^XMB(3.9,55,2,6547,0)="""RTN"",""IBCCC2"",176,0)"
^XMB(3.9,55,2,6548,0)=" I $G(IBPRCOB) N DA,DIE,DR S DA=IBIFN,DIE=""^DGCR(399,"",DR=""24////C"" D ^DIE"
^XMB(3.9,55,2,6549,0)="""RTN"",""IBCCC2"",177,0)"
^XMB(3.9,55,2,6550,0)=" ;"
^XMB(3.9,55,2,6551,0)="""RTN"",""IBCCC2"",178,0)"
^XMB(3.9,55,2,6552,0)=" K IBCOB(""TX"")"
^XMB(3.9,55,2,6553,0)="""RTN"",""IBCCC2"",179,0)"
^XMB(3.9,55,2,6554,0)=" Q"
^XMB(3.9,55,2,6555,0)="""RTN"",""IBCCC2"",180,0)"
^XMB(3.9,55,2,6556,0)=" ;"
^XMB(3.9,55,2,6557,0)="""RTN"",""IBCCR"")"
^XMB(3.9,55,2,6558,0)="0^19^B4318909"
^XMB(3.9,55,2,6559,0)="""RTN"",""IBCCR"",1,0)"
^XMB(3.9,55,2,6560,0)="IBCCR ;ALB/EJK - CLAIM CANCEL AND RESUBMIT INFORMATION ;23-FEB-2005"
^XMB(3.9,55,2,6561,0)="""RTN"",""IBCCR"",2,0)"
^XMB(3.9,55,2,6562,0)=" ;;2.0;INTEGRATED BILLING;**320**;21-MAR-94"
^XMB(3.9,55,2,6563,0)="""RTN"",""IBCCR"",3,0)"
^XMB(3.9,55,2,6564,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,6565,0)="""RTN"",""IBCCR"",4,0)"
^XMB(3.9,55,2,6566,0)=" ;"
^XMB(3.9,55,2,6567,0)="""RTN"",""IBCCR"",5,0)"
^XMB(3.9,55,2,6568,0)=" ;This routine can be invoked from any function that displays"
^XMB(3.9,55,2,6569,0)="""RTN"",""IBCCR"",6,0)"
^XMB(3.9,55,2,6570,0)=" ;or reviews claim information. Using the current IBIFN,"
^XMB(3.9,55,2,6571,0)="""RTN"",""IBCCR"",7,0)"
^XMB(3.9,55,2,6572,0)=" ;cancelled bill information and new bill information is returned."
^XMB(3.9,55,2,6573,0)="""RTN"",""IBCCR"",8,0)"
^XMB(3.9,55,2,6574,0)=" ;"
^XMB(3.9,55,2,6575,0)="""RTN"",""IBCCR"",9,0)"
^XMB(3.9,55,2,6576,0)=" ;OUTPUT:"
^XMB(3.9,55,2,6577,0)="""RTN"",""IBCCR"",10,0)"
^XMB(3.9,55,2,6578,0)=" ;  IBCCR array (pass by reference)"
^XMB(3.9,55,2,6579,0)="""RTN"",""IBCCR"",11,0)"
^XMB(3.9,55,2,6580,0)=" ;  IBCCR(FM date cloned,bill#) [1] FM date cloned"
^XMB(3.9,55,2,6581,0)="""RTN"",""IBCCR"",12,0)"
^XMB(3.9,55,2,6582,0)=" ;                              [2] external claim#"
^XMB(3.9,55,2,6583,0)="""RTN"",""IBCCR"",13,0)"
^XMB(3.9,55,2,6584,0)=" ;                              [3] user who cloned (external)"
^XMB(3.9,55,2,6585,0)="""RTN"",""IBCCR"",14,0)"
^XMB(3.9,55,2,6586,0)=" ;                              [4] reason cloned"
^XMB(3.9,55,2,6587,0)="""RTN"",""IBCCR"",15,0)"
^XMB(3.9,55,2,6588,0)=" ;   old bill and new bill information is returned."
^XMB(3.9,55,2,6589,0)="""RTN"",""IBCCR"",16,0)"
^XMB(3.9,55,2,6590,0)=" ;   As much as possible in both directions."
^XMB(3.9,55,2,6591,0)="""RTN"",""IBCCR"",17,0)"
^XMB(3.9,55,2,6592,0)=" ;"
^XMB(3.9,55,2,6593,0)="""RTN"",""IBCCR"",18,0)"
^XMB(3.9,55,2,6594,0)="EN(IBIFN,IBCCR) ;"
^XMB(3.9,55,2,6595,0)="""RTN"",""IBCCR"",19,0)"
^XMB(3.9,55,2,6596,0)=" N IBOB,IBUSER,IBBCT,IBRSN,IBXDATA,IBDBC"
^XMB(3.9,55,2,6597,0)="""RTN"",""IBCCR"",20,0)"
^XMB(3.9,55,2,6598,0)=" KILL IBCCR"
^XMB(3.9,55,2,6599,0)="""RTN"",""IBCCR"",21,0)"
^XMB(3.9,55,2,6600,0)=" S IBXDATA(""S1"")=$G(^DGCR(399,IBIFN,""S1""))"
^XMB(3.9,55,2,6601,0)="""RTN"",""IBCCR"",22,0)"
^XMB(3.9,55,2,6602,0)=" I $P($G(IBXDATA(""S1"")),U,2)'="""" S IBOB=$P($G(IBXDATA(""S1"")),U,2) D OBINFO      ;THIS BILL IS A CLONE."
^XMB(3.9,55,2,6603,0)="""RTN"",""IBCCR"",23,0)"
^XMB(3.9,55,2,6604,0)=" I $P($G(IBXDATA(""S1"")),U,1)'="""" S IBBCT=$P($G(^DGCR(399,IBIFN,""S1"")),U,1) D CLONE       ;GET CLONE INFO."
^XMB(3.9,55,2,6605,0)="""RTN"",""IBCCR"",24,0)"
^XMB(3.9,55,2,6606,0)=" Q"
^XMB(3.9,55,2,6607,0)="""RTN"",""IBCCR"",25,0)"
^XMB(3.9,55,2,6608,0)=" ;"
^XMB(3.9,55,2,6609,0)="""RTN"",""IBCCR"",26,0)"
^XMB(3.9,55,2,6610,0)="OBINFO ;This claim is a clone of an old one. "
^XMB(3.9,55,2,6611,0)="""RTN"",""IBCCR"",27,0)"
^XMB(3.9,55,2,6612,0)=" ;Per E-Claims+ Iteration II requirement 3.2.12"
^XMB(3.9,55,2,6613,0)="""RTN"",""IBCCR"",28,0)"
^XMB(3.9,55,2,6614,0)=" ;we want to find and return the entire cloning history as far back"
^XMB(3.9,55,2,6615,0)="""RTN"",""IBCCR"",29,0)"
^XMB(3.9,55,2,6616,0)=" ;as we can go. "
^XMB(3.9,55,2,6617,0)="""RTN"",""IBCCR"",30,0)"
^XMB(3.9,55,2,6618,0)=" ;"
^XMB(3.9,55,2,6619,0)="""RTN"",""IBCCR"",31,0)"
^XMB(3.9,55,2,6620,0)=" S IBDBC=$P($G(^DGCR(399,IBOB,""S1"")),U,3)"
^XMB(3.9,55,2,6621,0)="""RTN"",""IBCCR"",32,0)"
^XMB(3.9,55,2,6622,0)=" S IBUSER=+$P($G(^DGCR(399,IBOB,""S1"")),U,4)"
^XMB(3.9,55,2,6623,0)="""RTN"",""IBCCR"",33,0)"
^XMB(3.9,55,2,6624,0)=" S IBUSER=$P($G(^VA(200,IBUSER,0)),U,1)"
^XMB(3.9,55,2,6625,0)="""RTN"",""IBCCR"",34,0)"
^XMB(3.9,55,2,6626,0)=" S IBRSN=$P($G(^DGCR(399,IBOB,""S1"")),U,5)"
^XMB(3.9,55,2,6627,0)="""RTN"",""IBCCR"",35,0)"
^XMB(3.9,55,2,6628,0)=" S IBCCR(+IBDBC,IBOB)=IBDBC_U_$P($G(^DGCR(399,IBOB,0)),U,1)_U_IBUSER_U_IBRSN"
^XMB(3.9,55,2,6629,0)="""RTN"",""IBCCR"",36,0)"
^XMB(3.9,55,2,6630,0)=" I $P($G(^DGCR(399,IBOB,""S1"")),U,2) S IBOB=$P($G(^DGCR(399,IBOB,""S1"")),U,2) G OBINFO      ;THIS BILL IS A CLONE."
^XMB(3.9,55,2,6631,0)="""RTN"",""IBCCR"",37,0)"
^XMB(3.9,55,2,6632,0)=" Q"
^XMB(3.9,55,2,6633,0)="""RTN"",""IBCCR"",38,0)"
^XMB(3.9,55,2,6634,0)=" ;"
^XMB(3.9,55,2,6635,0)="""RTN"",""IBCCR"",39,0)"
^XMB(3.9,55,2,6636,0)="CLONE ;This claim has been cancelled and cloned to a newer claim."
^XMB(3.9,55,2,6637,0)="""RTN"",""IBCCR"",40,0)"
^XMB(3.9,55,2,6638,0)=" ;This function gets all pertinent data of who, why and when the"
^XMB(3.9,55,2,6639,0)="""RTN"",""IBCCR"",41,0)"
^XMB(3.9,55,2,6640,0)=" ;current claim was cancelled, then jumps forward to the next claim"
^XMB(3.9,55,2,6641,0)="""RTN"",""IBCCR"",42,0)"
^XMB(3.9,55,2,6642,0)=" ;to see if that was copy/cancelled as well. "
^XMB(3.9,55,2,6643,0)="""RTN"",""IBCCR"",43,0)"
^XMB(3.9,55,2,6644,0)=" ;"
^XMB(3.9,55,2,6645,0)="""RTN"",""IBCCR"",44,0)"
^XMB(3.9,55,2,6646,0)=" S IBDBC=$P($G(^DGCR(399,IBIFN,""S1"")),U,3)"
^XMB(3.9,55,2,6647,0)="""RTN"",""IBCCR"",45,0)"
^XMB(3.9,55,2,6648,0)=" S IBUSER=+$P($G(^DGCR(399,IBIFN,""S1"")),U,4)"
^XMB(3.9,55,2,6649,0)="""RTN"",""IBCCR"",46,0)"
^XMB(3.9,55,2,6650,0)=" S IBUSER=$P($G(^VA(200,IBUSER,0)),U,1)"
^XMB(3.9,55,2,6651,0)="""RTN"",""IBCCR"",47,0)"
^XMB(3.9,55,2,6652,0)=" S IBRSN=$P($G(^DGCR(399,IBIFN,""S1"")),U,5)"
^XMB(3.9,55,2,6653,0)="""RTN"",""IBCCR"",48,0)"
^XMB(3.9,55,2,6654,0)=" S IBCCR(+IBDBC,IBBCT)=IBDBC_U_$P($G(^DGCR(399,IBBCT,0)),U,1)_U_IBUSER_U_IBRSN"
^XMB(3.9,55,2,6655,0)="""RTN"",""IBCCR"",49,0)"
^XMB(3.9,55,2,6656,0)=" S IBIFN=IBBCT"
^XMB(3.9,55,2,6657,0)="""RTN"",""IBCCR"",50,0)"
^XMB(3.9,55,2,6658,0)=" S IBBCT=$P($G(^DGCR(399,IBIFN,""S1"")),U,1)"
^XMB(3.9,55,2,6659,0)="""RTN"",""IBCCR"",51,0)"
^XMB(3.9,55,2,6660,0)=" I IBIFN<IBBCT G CLONE"
^XMB(3.9,55,2,6661,0)="""RTN"",""IBCCR"",52,0)"
^XMB(3.9,55,2,6662,0)=" Q"
^XMB(3.9,55,2,6663,0)="""RTN"",""IBCCR"",53,0)"
^XMB(3.9,55,2,6664,0)=" ;"
^XMB(3.9,55,2,6665,0)="""RTN"",""IBCE837B"")"
^XMB(3.9,55,2,6666,0)="0^35^B3184659^B2951786"
^XMB(3.9,55,2,6667,0)="""RTN"",""IBCE837B"",1,0)"
^XMB(3.9,55,2,6668,0)="IBCE837B ;ALB/TMP - OUTPUT FOR 837 TRANSMISSION (cont) ;24-APR-01"
^XMB(3.9,55,2,6669,0)="""RTN"",""IBCE837B"",2,0)"
^XMB(3.9,55,2,6670,0)=" ;;2.0;INTEGRATED BILLING;**137,191,197,320**;21-MAR-94"
^XMB(3.9,55,2,6671,0)="""RTN"",""IBCE837B"",3,0)"
^XMB(3.9,55,2,6672,0)=" ;"
^XMB(3.9,55,2,6673,0)="""RTN"",""IBCE837B"",4,0)"
^XMB(3.9,55,2,6674,0)="QTXMT(IBSITE8) ; Run now or queue EDI bill transmit (part of nightly job)"
^XMB(3.9,55,2,6675,0)="""RTN"",""IBCE837B"",5,0)"
^XMB(3.9,55,2,6676,0)=" ; IBSITE8 = the '8' node of the site parameters file (350.9)"
^XMB(3.9,55,2,6677,0)="""RTN"",""IBCE837B"",6,0)"
^XMB(3.9,55,2,6678,0)=" I $P(IBSITE8,U,6)="""" D"
^XMB(3.9,55,2,6679,0)="""RTN"",""IBCE837B"",7,0)"
^XMB(3.9,55,2,6680,0)=" . D EN1("""",1)"
^XMB(3.9,55,2,6681,0)="""RTN"",""IBCE837B"",8,0)"
^XMB(3.9,55,2,6682,0)=" E  D"
^XMB(3.9,55,2,6683,0)="""RTN"",""IBCE837B"",9,0)"
^XMB(3.9,55,2,6684,0)=" . N Z,Z0"
^XMB(3.9,55,2,6685,0)="""RTN"",""IBCE837B"",10,0)"
^XMB(3.9,55,2,6686,0)=" . F Z=1:1:4 S Z0=$P($P(IBSITE8,U,6),"";"",Z) Q:Z0=""""  D"
^XMB(3.9,55,2,6687,0)="""RTN"",""IBCE837B"",11,0)"
^XMB(3.9,55,2,6688,0)=" .. S IBQDT=$S($E(($$NOW^XLFDT()#1*10000\1)_""0000"",1,4)>Z0:$$FMADD^XLFDT(DT,1),1:DT)_"".""_Z0  ; If time to queue is after the current time, queue for the next day"
^XMB(3.9,55,2,6689,0)="""RTN"",""IBCE837B"",12,0)"
^XMB(3.9,55,2,6690,0)=" .. D EN1("""",1,+IBQDT)"
^XMB(3.9,55,2,6691,0)="""RTN"",""IBCE837B"",13,0)"
^XMB(3.9,55,2,6692,0)=" Q"
^XMB(3.9,55,2,6693,0)="""RTN"",""IBCE837B"",14,0)"
^XMB(3.9,55,2,6694,0)=" ;"
^XMB(3.9,55,2,6695,0)="""RTN"",""IBCE837B"",15,0)"
^XMB(3.9,55,2,6696,0)="EN1(IBZTSK,IBNOASK,IBQDT,IBABORT) ;Txmit 837's for bills waiting transmission"
^XMB(3.9,55,2,6697,0)="""RTN"",""IBCE837B"",16,0)"
^XMB(3.9,55,2,6698,0)=" ; Pass IBZTSK by ref to get task # if job is tasked"
^XMB(3.9,55,2,6699,0)="""RTN"",""IBCE837B"",17,0)"
^XMB(3.9,55,2,6700,0)=" ; IBNOASK = flag: 0 = ask to queue,  1 = no ask to queue"
^XMB(3.9,55,2,6701,0)="""RTN"",""IBCE837B"",18,0)"
^XMB(3.9,55,2,6702,0)=" ; IBQDT = if IBNOASK=1, this can be the date/time to queue the job"
^XMB(3.9,55,2,6703,0)="""RTN"",""IBCE837B"",19,0)"
^XMB(3.9,55,2,6704,0)=" ; Pass IBABORT by reference to determine if user aborted process"
^XMB(3.9,55,2,6705,0)="""RTN"",""IBCE837B"",20,0)"
^XMB(3.9,55,2,6706,0)=" N Z S Z=$O(^IBE(353,""B"",""IB 837 TRANSMISSION"",0)),Z=$S($P($G(^IBE(353,+Z,2)),U,8):$P(^(2),U,8),1:Z)"
^XMB(3.9,55,2,6707,0)="""RTN"",""IBCE837B"",21,0)"
^XMB(3.9,55,2,6708,0)=" I Z D"
^XMB(3.9,55,2,6709,0)="""RTN"",""IBCE837B"",22,0)"
^XMB(3.9,55,2,6710,0)=" . I $D(^TMP(""IBRESUBMIT"",$J))!($G(IBNOASK)) D FORM^IBCEFG7(Z,$P($G(^IBE(350.9,1,8)),U),+$G(IBNOASK),$S($G(IBNOASK):$G(IBQDT),1:""""),.IBZTSK,.IBABORT) Q"
^XMB(3.9,55,2,6711,0)="""RTN"",""IBCE837B"",23,0)"
^XMB(3.9,55,2,6712,0)=" . D FORM^IBCEFG7(Z,$P($G(^IBE(350.9,1,8)),U),+$G(IBNOASK),$S($G(IBNOASK):$G(IBQDT),1:""""),"""",.IBABORT)"
^XMB(3.9,55,2,6713,0)="""RTN"",""IBCE837B"",24,0)"
^XMB(3.9,55,2,6714,0)=" Q"
^XMB(3.9,55,2,6715,0)="""RTN"",""IBCE837B"",25,0)"
^XMB(3.9,55,2,6716,0)=" ;"
^XMB(3.9,55,2,6717,0)="""RTN"",""IBCECSA"")"
^XMB(3.9,55,2,6718,0)="0^10^B60060653^B19274445"
^XMB(3.9,55,2,6719,0)="""RTN"",""IBCECSA"",1,0)"
^XMB(3.9,55,2,6720,0)="IBCECSA ;ALB/CXW - IB CLAIMS STATUS AWAITING RESOLUTION SCREEN ;28-JUL-1999"
^XMB(3.9,55,2,6721,0)="""RTN"",""IBCECSA"",2,0)"
^XMB(3.9,55,2,6722,0)=" ;;2.0;INTEGRATED BILLING;**137,320**;21-MAR-1994"
^XMB(3.9,55,2,6723,0)="""RTN"",""IBCECSA"",3,0)"
^XMB(3.9,55,2,6724,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,6725,0)="""RTN"",""IBCECSA"",4,0)"
^XMB(3.9,55,2,6726,0)=" ;"
^XMB(3.9,55,2,6727,0)="""RTN"",""IBCECSA"",5,0)"
^XMB(3.9,55,2,6728,0)="EN ; -- main entry point for claims status awaiting resolution"
^XMB(3.9,55,2,6729,0)="""RTN"",""IBCECSA"",6,0)"
^XMB(3.9,55,2,6730,0)=" N IBSORT,IBSORT1,IBSORT2,IBSORT3,IBSORTOR,IBDAYS"
^XMB(3.9,55,2,6731,0)="""RTN"",""IBCECSA"",7,0)"
^XMB(3.9,55,2,6732,0)=" D EN^VALM(""IBCEM CSA LIST"")"
^XMB(3.9,55,2,6733,0)="""RTN"",""IBCECSA"",8,0)"
^XMB(3.9,55,2,6734,0)=" Q"
^XMB(3.9,55,2,6735,0)="""RTN"",""IBCECSA"",9,0)"
^XMB(3.9,55,2,6736,0)=" ;"
^XMB(3.9,55,2,6737,0)="""RTN"",""IBCECSA"",10,0)"
^XMB(3.9,55,2,6738,0)="HDR ; -- header code"
^XMB(3.9,55,2,6739,0)="""RTN"",""IBCECSA"",11,0)"
^XMB(3.9,55,2,6740,0)=" S VALMSG=""* Indicates CSA review in progress"""
^XMB(3.9,55,2,6741,0)="""RTN"",""IBCECSA"",12,0)"
^XMB(3.9,55,2,6742,0)=" Q"
^XMB(3.9,55,2,6743,0)="""RTN"",""IBCECSA"",13,0)"
^XMB(3.9,55,2,6744,0)=" ;"
^XMB(3.9,55,2,6745,0)="""RTN"",""IBCECSA"",14,0)"
^XMB(3.9,55,2,6746,0)="INIT ; -- init variables and list array"
^XMB(3.9,55,2,6747,0)="""RTN"",""IBCECSA"",15,0)"
^XMB(3.9,55,2,6748,0)=" N DIC,DIR,DIRUT,DIROUT,DTOUT,DUOUT,Y,X,IBFIRST"
^XMB(3.9,55,2,6749,0)="""RTN"",""IBCECSA"",16,0)"
^XMB(3.9,55,2,6750,0)=" K ^TMP(""IBBIL"",$J),^TMP(""IBDIV"",$J),VALMQUIT"
^XMB(3.9,55,2,6751,0)="""RTN"",""IBCECSA"",17,0)"
^XMB(3.9,55,2,6752,0)=" S VALMCNT=0"
^XMB(3.9,55,2,6753,0)="""RTN"",""IBCECSA"",18,0)"
^XMB(3.9,55,2,6754,0)=" ;"
^XMB(3.9,55,2,6755,0)="""RTN"",""IBCECSA"",19,0)"
^XMB(3.9,55,2,6756,0)=" S DIR(0)=""NA^0:999"",DIR(""B"")=0,DIR(""A"")=""MINIMUM # OF DAYS MSGS WAITING TO BE RESOLVED: "",DIR(""?"")=""Enter the minimum number of days you want a message to have been waiting to be resolved before it will be displayed on this screen."""
^XMB(3.9,55,2,6757,0)="""RTN"",""IBCECSA"",20,0)"
^XMB(3.9,55,2,6758,0)=" D ^DIR K DIR"
^XMB(3.9,55,2,6759,0)="""RTN"",""IBCECSA"",21,0)"
^XMB(3.9,55,2,6760,0)=" I $D(DTOUT)!$D(DUOUT) S VALMQUIT=1 G INITQ"
^XMB(3.9,55,2,6761,0)="""RTN"",""IBCECSA"",22,0)"
^XMB(3.9,55,2,6762,0)=" S IBDAYS=Y"
^XMB(3.9,55,2,6763,0)="""RTN"",""IBCECSA"",23,0)"
^XMB(3.9,55,2,6764,0)=" ;"
^XMB(3.9,55,2,6765,0)="""RTN"",""IBCECSA"",24,0)"
^XMB(3.9,55,2,6766,0)=" S IBFIRST=1"
^XMB(3.9,55,2,6767,0)="""RTN"",""IBCECSA"",25,0)"
^XMB(3.9,55,2,6768,0)=" F  S DIC=""^VA(200,"",DIC(0)=""AEQM"",DIC(""A"")=$S(IBFIRST:"""",1:"" Another "")_""AUTHORIZING BILLER: ""_$S(IBFIRST:""ALL// "",1:"""") D ^DIC K DIC Q:Y<0  D"
^XMB(3.9,55,2,6769,0)="""RTN"",""IBCECSA"",26,0)"
^XMB(3.9,55,2,6770,0)=" . I $D(^TMP(""IBBIL"",$J,+Y)) W !,""This biller has already been selected"" Q"
^XMB(3.9,55,2,6771,0)="""RTN"",""IBCECSA"",27,0)"
^XMB(3.9,55,2,6772,0)=" . S ^TMP(""IBBIL"",$J,+Y)="""",IBFIRST=0"
^XMB(3.9,55,2,6773,0)="""RTN"",""IBCECSA"",28,0)"
^XMB(3.9,55,2,6774,0)=" I $D(DTOUT)!$D(DUOUT) S VALMQUIT=1 G INITQ"
^XMB(3.9,55,2,6775,0)="""RTN"",""IBCECSA"",29,0)"
^XMB(3.9,55,2,6776,0)=" ;"
^XMB(3.9,55,2,6777,0)="""RTN"",""IBCECSA"",30,0)"
^XMB(3.9,55,2,6778,0)=" S IBFIRST=1"
^XMB(3.9,55,2,6779,0)="""RTN"",""IBCECSA"",31,0)"
^XMB(3.9,55,2,6780,0)=" F  S DIC=""^DG(40.8,"",DIC(0)=""AEQMN"",DIC(""A"")=$S(IBFIRST:"""",1:"" Another "")_""DIVISION: ""_$S(IBFIRST:""ALL//"",1:"""") D ^DIC K DIC Q:Y<0  S ^TMP(""IBDIV"",$J,+Y)="""",IBFIRST=0"
^XMB(3.9,55,2,6781,0)="""RTN"",""IBCECSA"",32,0)"
^XMB(3.9,55,2,6782,0)=" I $D(DTOUT)!$D(DUOUT) S VALMQUIT=1 G INITQ"
^XMB(3.9,55,2,6783,0)="""RTN"",""IBCECSA"",33,0)"
^XMB(3.9,55,2,6784,0)=" ;"
^XMB(3.9,55,2,6785,0)="""RTN"",""IBCECSA"",34,0)"
^XMB(3.9,55,2,6786,0)=" ; IB*320 - new sorting"
^XMB(3.9,55,2,6787,0)="""RTN"",""IBCECSA"",35,0)"
^XMB(3.9,55,2,6788,0)=" W !"
^XMB(3.9,55,2,6789,0)="""RTN"",""IBCECSA"",36,0)"
^XMB(3.9,55,2,6790,0)=" K IBSORTOR"
^XMB(3.9,55,2,6791,0)="""RTN"",""IBCECSA"",37,0)"
^XMB(3.9,55,2,6792,0)=" D SORT(1) I $G(VALMQUIT) G INITQ"
^XMB(3.9,55,2,6793,0)="""RTN"",""IBCECSA"",38,0)"
^XMB(3.9,55,2,6794,0)=" D SORT(2) I $G(VALMQUIT) G INITQ"
^XMB(3.9,55,2,6795,0)="""RTN"",""IBCECSA"",39,0)"
^XMB(3.9,55,2,6796,0)=" I $G(IBSORT2)'="""" D SORT(3) I $G(VALMQUIT) G INITQ"
^XMB(3.9,55,2,6797,0)="""RTN"",""IBCECSA"",40,0)"
^XMB(3.9,55,2,6798,0)=" ;"
^XMB(3.9,55,2,6799,0)="""RTN"",""IBCECSA"",41,0)"
^XMB(3.9,55,2,6800,0)=" S DIR(0)=""SA^R:REJECTS ONLY;B:BOTH INFORMATIONAL AND REJECTS"",DIR(""A"")=""(R)ejects only OR (B)oth informational and rejects?: """
^XMB(3.9,55,2,6801,0)="""RTN"",""IBCECSA"",42,0)"
^XMB(3.9,55,2,6802,0)=" S DIR(""?"",1)=""YOU MAY CHOOSE TO SEE JUST THOSE MESSAGES WE KNOW ARE REJECTS OR YOU MAY"",DIR(""?"")=""  CHOOSE TO SEE ALL MESSAGES MEETING YOUR SELECTION CRITERIA"",DIR(""B"")=""REJECTS ONLY"" W !! D ^DIR K DIR"
^XMB(3.9,55,2,6803,0)="""RTN"",""IBCECSA"",43,0)"
^XMB(3.9,55,2,6804,0)=" I $D(DTOUT)!$D(DUOUT) S VALMQUIT=1 G INITQ"
^XMB(3.9,55,2,6805,0)="""RTN"",""IBCECSA"",44,0)"
^XMB(3.9,55,2,6806,0)=" S IBSEV=Y"
^XMB(3.9,55,2,6807,0)="""RTN"",""IBCECSA"",45,0)"
^XMB(3.9,55,2,6808,0)=" D BLD^IBCECSA1"
^XMB(3.9,55,2,6809,0)="""RTN"",""IBCECSA"",46,0)"
^XMB(3.9,55,2,6810,0)="INITQ Q"
^XMB(3.9,55,2,6811,0)="""RTN"",""IBCECSA"",47,0)"
^XMB(3.9,55,2,6812,0)=" ;"
^XMB(3.9,55,2,6813,0)="""RTN"",""IBCECSA"",48,0)"
^XMB(3.9,55,2,6814,0)="HELP ; -- help code"
^XMB(3.9,55,2,6815,0)="""RTN"",""IBCECSA"",49,0)"
^XMB(3.9,55,2,6816,0)=" S X=""?"" D DISP^XQORM1 W !!"
^XMB(3.9,55,2,6817,0)="""RTN"",""IBCECSA"",50,0)"
^XMB(3.9,55,2,6818,0)=" S VALMSG=""* Indicates review in progress"""
^XMB(3.9,55,2,6819,0)="""RTN"",""IBCECSA"",51,0)"
^XMB(3.9,55,2,6820,0)=" Q"
^XMB(3.9,55,2,6821,0)="""RTN"",""IBCECSA"",52,0)"
^XMB(3.9,55,2,6822,0)=" ;"
^XMB(3.9,55,2,6823,0)="""RTN"",""IBCECSA"",53,0)"
^XMB(3.9,55,2,6824,0)="EXIT ; -- exit code"
^XMB(3.9,55,2,6825,0)="""RTN"",""IBCECSA"",54,0)"
^XMB(3.9,55,2,6826,0)=" K IBDAYS,IBSORT1,IBSORT2,IBSORT3,IBSORTOR"
^XMB(3.9,55,2,6827,0)="""RTN"",""IBCECSA"",55,0)"
^XMB(3.9,55,2,6828,0)=" K ^TMP(""IBCECSA"",$J),^TMP(""IBDIV"",$J),^TMP(""IBBIL"",$J)"
^XMB(3.9,55,2,6829,0)="""RTN"",""IBCECSA"",56,0)"
^XMB(3.9,55,2,6830,0)=" K ^TMP(""IBCECSB"",$J),^TMP(""IBCECSC"",$J),^TMP(""IBCECSD"",$J)"
^XMB(3.9,55,2,6831,0)="""RTN"",""IBCECSA"",57,0)"
^XMB(3.9,55,2,6832,0)=" D CLEAN^VALM10"
^XMB(3.9,55,2,6833,0)="""RTN"",""IBCECSA"",58,0)"
^XMB(3.9,55,2,6834,0)=" Q"
^XMB(3.9,55,2,6835,0)="""RTN"",""IBCECSA"",59,0)"
^XMB(3.9,55,2,6836,0)=" ;"
^XMB(3.9,55,2,6837,0)="""RTN"",""IBCECSA"",60,0)"
^XMB(3.9,55,2,6838,0)="SORT(LVL,IBDEFSRT) ; CSA sort"
^XMB(3.9,55,2,6839,0)="""RTN"",""IBCECSA"",61,0)"
^XMB(3.9,55,2,6840,0)=" ; LVL - sort level 1,2,or,3"
^XMB(3.9,55,2,6841,0)="""RTN"",""IBCECSA"",62,0)"
^XMB(3.9,55,2,6842,0)=" ; IBDEFSRT - default sort value (optional)"
^XMB(3.9,55,2,6843,0)="""RTN"",""IBCECSA"",63,0)"
^XMB(3.9,55,2,6844,0)=" NEW DIR,X,Y,LVLD,G,LN,S,SC,SCP,DTOUT,DUOUT,DIRUT,DIROUT,IBZ"
^XMB(3.9,55,2,6845,0)="""RTN"",""IBCECSA"",64,0)"
^XMB(3.9,55,2,6846,0)=" K IBSORT3 I LVL<3 K IBSORT2 I LVL=1 K IBSORT1"
^XMB(3.9,55,2,6847,0)="""RTN"",""IBCECSA"",65,0)"
^XMB(3.9,55,2,6848,0)=" I '$F("".1.2.3."","".""_$G(LVL)_""."") G SORTX"
^XMB(3.9,55,2,6849,0)="""RTN"",""IBCECSA"",66,0)"
^XMB(3.9,55,2,6850,0)=" I $G(VALMQUIT) G SORTX"
^XMB(3.9,55,2,6851,0)="""RTN"",""IBCECSA"",67,0)"
^XMB(3.9,55,2,6852,0)=" ;"
^XMB(3.9,55,2,6853,0)="""RTN"",""IBCECSA"",68,0)"
^XMB(3.9,55,2,6854,0)=" I LVL>1,$G(IBSORT1)="""" D SORT(1) I $G(IBSORT1)="""" G SORTX"
^XMB(3.9,55,2,6855,0)="""RTN"",""IBCECSA"",69,0)"
^XMB(3.9,55,2,6856,0)=" I LVL=3,$G(IBSORT2)="""" D SORT(2) I $G(IBSORT2)="""" G SORTX"
^XMB(3.9,55,2,6857,0)="""RTN"",""IBCECSA"",70,0)"
^XMB(3.9,55,2,6858,0)=" ;"
^XMB(3.9,55,2,6859,0)="""RTN"",""IBCECSA"",71,0)"
^XMB(3.9,55,2,6860,0)=" S LVLD=$S(LVL=2:""Secondary"",LVL=3:""Tertiary"",1:""Primary"")"
^XMB(3.9,55,2,6861,0)="""RTN"",""IBCECSA"",72,0)"
^XMB(3.9,55,2,6862,0)=" ;"
^XMB(3.9,55,2,6863,0)="""RTN"",""IBCECSA"",73,0)"
^XMB(3.9,55,2,6864,0)=" S DIR(""A"")=LVLD_"" Sort"""
^XMB(3.9,55,2,6865,0)="""RTN"",""IBCECSA"",74,0)"
^XMB(3.9,55,2,6866,0)=" I LVL=1 S DIR(""B"")=$$SD(""E"")"
^XMB(3.9,55,2,6867,0)="""RTN"",""IBCECSA"",75,0)"
^XMB(3.9,55,2,6868,0)=" I LVL>1 K DIR(""B"")"
^XMB(3.9,55,2,6869,0)="""RTN"",""IBCECSA"",76,0)"
^XMB(3.9,55,2,6870,0)=" I LVL=2,IBSORT1=$G(IBDEFSRT) K IBDEFSRT"
^XMB(3.9,55,2,6871,0)="""RTN"",""IBCECSA"",77,0)"
^XMB(3.9,55,2,6872,0)=" I LVL=3,IBSORT1=$G(IBDEFSRT)!(IBSORT2=$G(IBDEFSRT)) K IBDEFSRT"
^XMB(3.9,55,2,6873,0)="""RTN"",""IBCECSA"",78,0)"
^XMB(3.9,55,2,6874,0)=" I $G(IBDEFSRT)'="""" S DIR(""B"")=$$SD(IBDEFSRT)   ; passed in default sort"
^XMB(3.9,55,2,6875,0)="""RTN"",""IBCECSA"",79,0)"
^XMB(3.9,55,2,6876,0)=" ;"
^XMB(3.9,55,2,6877,0)="""RTN"",""IBCECSA"",80,0)"
^XMB(3.9,55,2,6878,0)=" S DIR(""?"")=""Enter a code from the list to indicate the ""_LVLD_"" sort order."""
^XMB(3.9,55,2,6879,0)="""RTN"",""IBCECSA"",81,0)"
^XMB(3.9,55,2,6880,0)=" I LVL>1 S DIR(""?"",1)=""  Primary Sort is ""_$$SD($G(IBSORT1)),DIR(""?"",LVL)="""""
^XMB(3.9,55,2,6881,0)="""RTN"",""IBCECSA"",82,0)"
^XMB(3.9,55,2,6882,0)=" I LVL=3 S DIR(""?"",2)=""Secondary Sort is ""_$$SD($G(IBSORT2))"
^XMB(3.9,55,2,6883,0)="""RTN"",""IBCECSA"",83,0)"
^XMB(3.9,55,2,6884,0)=" ;"
^XMB(3.9,55,2,6885,0)="""RTN"",""IBCECSA"",84,0)"
^XMB(3.9,55,2,6886,0)=" I LVL=1 S DIR(0)=""SB""    ; primary sort required"
^XMB(3.9,55,2,6887,0)="""RTN"",""IBCECSA"",85,0)"
^XMB(3.9,55,2,6888,0)=" I LVL>1 S DIR(0)=""SOB""   ; optional sorts"
^XMB(3.9,55,2,6889,0)="""RTN"",""IBCECSA"",86,0)"
^XMB(3.9,55,2,6890,0)=" ;"
^XMB(3.9,55,2,6891,0)="""RTN"",""IBCECSA"",87,0)"
^XMB(3.9,55,2,6892,0)=" S G="""""
^XMB(3.9,55,2,6893,0)="""RTN"",""IBCECSA"",88,0)"
^XMB(3.9,55,2,6894,0)=" F LN=1:1 S S=$P($T(ZZ+LN),"";"",3) Q:S=""""  D"
^XMB(3.9,55,2,6895,0)="""RTN"",""IBCECSA"",89,0)"
^XMB(3.9,55,2,6896,0)=" . S SC=$P(S,"":"",1)     ; sort code letter"
^XMB(3.9,55,2,6897,0)="""RTN"",""IBCECSA"",90,0)"
^XMB(3.9,55,2,6898,0)=" . I LVL=2,IBSORT1=SC Q"
^XMB(3.9,55,2,6899,0)="""RTN"",""IBCECSA"",91,0)"
^XMB(3.9,55,2,6900,0)=" . I LVL=3,IBSORT1=SC!(IBSORT2=SC) Q"
^XMB(3.9,55,2,6901,0)="""RTN"",""IBCECSA"",92,0)"
^XMB(3.9,55,2,6902,0)=" . S SCP=$P(S,"":"",1,2)  ; sort code:desc pair"
^XMB(3.9,55,2,6903,0)="""RTN"",""IBCECSA"",93,0)"
^XMB(3.9,55,2,6904,0)=" . S G=$S(G="""":SCP,1:G_"";""_SCP)"
^XMB(3.9,55,2,6905,0)="""RTN"",""IBCECSA"",94,0)"
^XMB(3.9,55,2,6906,0)=" . Q"
^XMB(3.9,55,2,6907,0)="""RTN"",""IBCECSA"",95,0)"
^XMB(3.9,55,2,6908,0)=" ;"
^XMB(3.9,55,2,6909,0)="""RTN"",""IBCECSA"",96,0)"
^XMB(3.9,55,2,6910,0)=" S $P(DIR(0),U,2)=G"
^XMB(3.9,55,2,6911,0)="""RTN"",""IBCECSA"",97,0)"
^XMB(3.9,55,2,6912,0)=" ;"
^XMB(3.9,55,2,6913,0)="""RTN"",""IBCECSA"",98,0)"
^XMB(3.9,55,2,6914,0)=" D ^DIR K DIR"
^XMB(3.9,55,2,6915,0)="""RTN"",""IBCECSA"",99,0)"
^XMB(3.9,55,2,6916,0)=" I $D(DTOUT) S VALMQUIT=1 G SORTX         ; timeout"
^XMB(3.9,55,2,6917,0)="""RTN"",""IBCECSA"",100,0)"
^XMB(3.9,55,2,6918,0)=" I $D(DIRUT) S:LVL=1 VALMQUIT=1 G SORTX   ; ^ or nil response"
^XMB(3.9,55,2,6919,0)="""RTN"",""IBCECSA"",101,0)"
^XMB(3.9,55,2,6920,0)=" S @(""IBSORT""_LVL)=Y,IBZ=Y"
^XMB(3.9,55,2,6921,0)="""RTN"",""IBCECSA"",102,0)"
^XMB(3.9,55,2,6922,0)=" ;"
^XMB(3.9,55,2,6923,0)="""RTN"",""IBCECSA"",103,0)"
^XMB(3.9,55,2,6924,0)=" I IBZ=""N"" D  G SORTX    ; number of days pending"
^XMB(3.9,55,2,6925,0)="""RTN"",""IBCECSA"",104,0)"
^XMB(3.9,55,2,6926,0)=" . S IBSORTOR(IBZ)=""D""   ; this sort is always descending"
^XMB(3.9,55,2,6927,0)="""RTN"",""IBCECSA"",105,0)"
^XMB(3.9,55,2,6928,0)=" . Q"
^XMB(3.9,55,2,6929,0)="""RTN"",""IBCECSA"",106,0)"
^XMB(3.9,55,2,6930,0)=" ;"
^XMB(3.9,55,2,6931,0)="""RTN"",""IBCECSA"",107,0)"
^XMB(3.9,55,2,6932,0)=" I IBZ=""C"" D  G SORTX    ; current balance question"
^XMB(3.9,55,2,6933,0)="""RTN"",""IBCECSA"",108,0)"
^XMB(3.9,55,2,6934,0)=" . S DIR(0)=""Y"""
^XMB(3.9,55,2,6935,0)="""RTN"",""IBCECSA"",109,0)"
^XMB(3.9,55,2,6936,0)=" . S DIR(""A"")=""Display Highest Balances First"",DIR(""B"")=""Yes"""
^XMB(3.9,55,2,6937,0)="""RTN"",""IBCECSA"",110,0)"
^XMB(3.9,55,2,6938,0)=" . S DIR(""A"",1)="""""
^XMB(3.9,55,2,6939,0)="""RTN"",""IBCECSA"",111,0)"
^XMB(3.9,55,2,6940,0)=" . S DIR(""?"",1)=""Enter Yes or No."""
^XMB(3.9,55,2,6941,0)="""RTN"",""IBCECSA"",112,0)"
^XMB(3.9,55,2,6942,0)=" . S DIR(""?"",2)="""""
^XMB(3.9,55,2,6943,0)="""RTN"",""IBCECSA"",113,0)"
^XMB(3.9,55,2,6944,0)=" . S DIR(""?"",3)=""Yes, I want to see the large balances first at the top of the list and the"""
^XMB(3.9,55,2,6945,0)="""RTN"",""IBCECSA"",114,0)"
^XMB(3.9,55,2,6946,0)=" . S DIR(""?"",4)=""small balances last at the bottom of the list."""
^XMB(3.9,55,2,6947,0)="""RTN"",""IBCECSA"",115,0)"
^XMB(3.9,55,2,6948,0)=" . S DIR(""?"",5)="""""
^XMB(3.9,55,2,6949,0)="""RTN"",""IBCECSA"",116,0)"
^XMB(3.9,55,2,6950,0)=" . S DIR(""?"",6)=""No, I want to see the small balances first at the top of the list and the"""
^XMB(3.9,55,2,6951,0)="""RTN"",""IBCECSA"",117,0)"
^XMB(3.9,55,2,6952,0)=" . S DIR(""?"")=""large balances last at the bottom of the list."""
^XMB(3.9,55,2,6953,0)="""RTN"",""IBCECSA"",118,0)"
^XMB(3.9,55,2,6954,0)=" . D ^DIR K DIR"
^XMB(3.9,55,2,6955,0)="""RTN"",""IBCECSA"",119,0)"
^XMB(3.9,55,2,6956,0)=" . I $D(DTOUT) S VALMQUIT=1 Q    ; timeout"
^XMB(3.9,55,2,6957,0)="""RTN"",""IBCECSA"",120,0)"
^XMB(3.9,55,2,6958,0)=" . I $D(DIRUT) S:LVL=1 VALMQUIT=1 K @(""IBSORT""_LVL) Q   ; ^ or nil resp"
^XMB(3.9,55,2,6959,0)="""RTN"",""IBCECSA"",121,0)"
^XMB(3.9,55,2,6960,0)=" . I Y S IBSORTOR(IBZ)=""D""    ; yes, large first, descending"
^XMB(3.9,55,2,6961,0)="""RTN"",""IBCECSA"",122,0)"
^XMB(3.9,55,2,6962,0)=" . I 'Y S IBSORTOR(IBZ)=""A""   ; no, small first, ascending"
^XMB(3.9,55,2,6963,0)="""RTN"",""IBCECSA"",123,0)"
^XMB(3.9,55,2,6964,0)=" . Q"
^XMB(3.9,55,2,6965,0)="""RTN"",""IBCECSA"",124,0)"
^XMB(3.9,55,2,6966,0)=" ;"
^XMB(3.9,55,2,6967,0)="""RTN"",""IBCECSA"",125,0)"
^XMB(3.9,55,2,6968,0)=" I IBZ=""S"" D  G SORTX    ; Date of Service question"
^XMB(3.9,55,2,6969,0)="""RTN"",""IBCECSA"",126,0)"
^XMB(3.9,55,2,6970,0)=" . S DIR(0)=""Y"""
^XMB(3.9,55,2,6971,0)="""RTN"",""IBCECSA"",127,0)"
^XMB(3.9,55,2,6972,0)=" . S DIR(""A"")=""Display Oldest Claims First"",DIR(""B"")=""Yes"""
^XMB(3.9,55,2,6973,0)="""RTN"",""IBCECSA"",128,0)"
^XMB(3.9,55,2,6974,0)=" . S DIR(""A"",1)="""""
^XMB(3.9,55,2,6975,0)="""RTN"",""IBCECSA"",129,0)"
^XMB(3.9,55,2,6976,0)=" . S DIR(""?"",1)=""Enter Yes or No."""
^XMB(3.9,55,2,6977,0)="""RTN"",""IBCECSA"",130,0)"
^XMB(3.9,55,2,6978,0)=" . S DIR(""?"",2)="""""
^XMB(3.9,55,2,6979,0)="""RTN"",""IBCECSA"",131,0)"
^XMB(3.9,55,2,6980,0)=" . S DIR(""?"",3)=""Yes, I want to see claims with old dates of service at the top of the list"""
^XMB(3.9,55,2,6981,0)="""RTN"",""IBCECSA"",132,0)"
^XMB(3.9,55,2,6982,0)=" . S DIR(""?"",4)=""and claims with recent dates of service at the bottom of the list."""
^XMB(3.9,55,2,6983,0)="""RTN"",""IBCECSA"",133,0)"
^XMB(3.9,55,2,6984,0)=" . S DIR(""?"",5)="""""
^XMB(3.9,55,2,6985,0)="""RTN"",""IBCECSA"",134,0)"
^XMB(3.9,55,2,6986,0)=" . S DIR(""?"",6)=""No, I want to see claims with recent dates of service at the top of the list"""
^XMB(3.9,55,2,6987,0)="""RTN"",""IBCECSA"",135,0)"
^XMB(3.9,55,2,6988,0)=" . S DIR(""?"")=""and older claims at the bottom of the list."""
^XMB(3.9,55,2,6989,0)="""RTN"",""IBCECSA"",136,0)"
^XMB(3.9,55,2,6990,0)=" . D ^DIR K DIR"
^XMB(3.9,55,2,6991,0)="""RTN"",""IBCECSA"",137,0)"
^XMB(3.9,55,2,6992,0)=" . I $D(DTOUT) S VALMQUIT=1 Q    ; timeout"
^XMB(3.9,55,2,6993,0)="""RTN"",""IBCECSA"",138,0)"
^XMB(3.9,55,2,6994,0)=" . I $D(DIRUT) S:LVL=1 VALMQUIT=1 K @(""IBSORT""_LVL) Q   ; ^ or nil resp"
^XMB(3.9,55,2,6995,0)="""RTN"",""IBCECSA"",139,0)"
^XMB(3.9,55,2,6996,0)=" . I Y S IBSORTOR(IBZ)=""A""    ; yes, old first, ascending sort"
^XMB(3.9,55,2,6997,0)="""RTN"",""IBCECSA"",140,0)"
^XMB(3.9,55,2,6998,0)=" . I 'Y S IBSORTOR(IBZ)=""D""   ; no, new first, descending sort"
^XMB(3.9,55,2,6999,0)="""RTN"",""IBCECSA"",141,0)"
^XMB(3.9,55,2,7000,0)=" . Q"
^XMB(3.9,55,2,7001,0)="""RTN"",""IBCECSA"",142,0)"
^XMB(3.9,55,2,7002,0)=" ;"
^XMB(3.9,55,2,7003,0)="""RTN"",""IBCECSA"",143,0)"
^XMB(3.9,55,2,7004,0)=" I IBZ=""R"" D  G SORTX    ; review status question"
^XMB(3.9,55,2,7005,0)="""RTN"",""IBCECSA"",144,0)"
^XMB(3.9,55,2,7006,0)=" . S DIR(0)=""Y"""
^XMB(3.9,55,2,7007,0)="""RTN"",""IBCECSA"",145,0)"
^XMB(3.9,55,2,7008,0)=" . S DIR(""A"")=""Display 'Review in Process' Messages Last"",DIR(""B"")=""Yes"""
^XMB(3.9,55,2,7009,0)="""RTN"",""IBCECSA"",146,0)"
^XMB(3.9,55,2,7010,0)=" . S DIR(""A"",1)="""""
^XMB(3.9,55,2,7011,0)="""RTN"",""IBCECSA"",147,0)"
^XMB(3.9,55,2,7012,0)=" . S DIR(""?"",1)=""Enter Yes or No."""
^XMB(3.9,55,2,7013,0)="""RTN"",""IBCECSA"",148,0)"
^XMB(3.9,55,2,7014,0)=" . S DIR(""?"",2)="""""
^XMB(3.9,55,2,7015,0)="""RTN"",""IBCECSA"",149,0)"
^XMB(3.9,55,2,7016,0)=" . S DIR(""?"",3)=""Yes, I want to group together status messages under review at the bottom of"""
^XMB(3.9,55,2,7017,0)="""RTN"",""IBCECSA"",150,0)"
^XMB(3.9,55,2,7018,0)=" . S DIR(""?"",4)=""the list."""
^XMB(3.9,55,2,7019,0)="""RTN"",""IBCECSA"",151,0)"
^XMB(3.9,55,2,7020,0)=" . S DIR(""?"",5)="""""
^XMB(3.9,55,2,7021,0)="""RTN"",""IBCECSA"",152,0)"
^XMB(3.9,55,2,7022,0)=" . S DIR(""?"",6)=""No, I want to group together status messages under review at the top of the"""
^XMB(3.9,55,2,7023,0)="""RTN"",""IBCECSA"",153,0)"
^XMB(3.9,55,2,7024,0)=" . S DIR(""?"")=""list."""
^XMB(3.9,55,2,7025,0)="""RTN"",""IBCECSA"",154,0)"
^XMB(3.9,55,2,7026,0)=" . D ^DIR K DIR"
^XMB(3.9,55,2,7027,0)="""RTN"",""IBCECSA"",155,0)"
^XMB(3.9,55,2,7028,0)=" . I $D(DTOUT) S VALMQUIT=1 Q    ; timeout"
^XMB(3.9,55,2,7029,0)="""RTN"",""IBCECSA"",156,0)"
^XMB(3.9,55,2,7030,0)=" . I $D(DIRUT) S:LVL=1 VALMQUIT=1 K @(""IBSORT""_LVL) Q   ; ^ or nil resp"
^XMB(3.9,55,2,7031,0)="""RTN"",""IBCECSA"",157,0)"
^XMB(3.9,55,2,7032,0)=" . I Y S IBSORTOR(IBZ)=""A""    ; yes, 1 at bottom, 0 at top, ascending"
^XMB(3.9,55,2,7033,0)="""RTN"",""IBCECSA"",158,0)"
^XMB(3.9,55,2,7034,0)=" . I 'Y S IBSORTOR(IBZ)=""D""   ; no, 1 at top, 0 at bottom, descending"
^XMB(3.9,55,2,7035,0)="""RTN"",""IBCECSA"",159,0)"
^XMB(3.9,55,2,7036,0)=" . Q"
^XMB(3.9,55,2,7037,0)="""RTN"",""IBCECSA"",160,0)"
^XMB(3.9,55,2,7038,0)=" ;"
^XMB(3.9,55,2,7039,0)="""RTN"",""IBCECSA"",161,0)"
^XMB(3.9,55,2,7040,0)="SORTX ;"
^XMB(3.9,55,2,7041,0)="""RTN"",""IBCECSA"",162,0)"
^XMB(3.9,55,2,7042,0)=" Q"
^XMB(3.9,55,2,7043,0)="""RTN"",""IBCECSA"",163,0)"
^XMB(3.9,55,2,7044,0)=" ;"
^XMB(3.9,55,2,7045,0)="""RTN"",""IBCECSA"",164,0)"
^XMB(3.9,55,2,7046,0)="SD(SORT) ; sort description given the sort code letter"
^XMB(3.9,55,2,7047,0)="""RTN"",""IBCECSA"",165,0)"
^XMB(3.9,55,2,7048,0)=" Q $P($P($T(@(""ZZ""_$G(SORT))),"";"",3),"":"",2)"
^XMB(3.9,55,2,7049,0)="""RTN"",""IBCECSA"",166,0)"
^XMB(3.9,55,2,7050,0)=" ;"
^XMB(3.9,55,2,7051,0)="""RTN"",""IBCECSA"",167,0)"
^XMB(3.9,55,2,7052,0)="SV(SORT) ; sort value given the sort code letter"
^XMB(3.9,55,2,7053,0)="""RTN"",""IBCECSA"",168,0)"
^XMB(3.9,55,2,7054,0)=" NEW S,VAR,VALUE"
^XMB(3.9,55,2,7055,0)="""RTN"",""IBCECSA"",169,0)"
^XMB(3.9,55,2,7056,0)=" S S=$P($T(@(""ZZ""_$G(SORT))),"";"",3)"
^XMB(3.9,55,2,7057,0)="""RTN"",""IBCECSA"",170,0)"
^XMB(3.9,55,2,7058,0)=" S VAR=$P(S,"":"",4)   ; variable name"
^XMB(3.9,55,2,7059,0)="""RTN"",""IBCECSA"",171,0)"
^XMB(3.9,55,2,7060,0)=" S VALUE=$G(@VAR)    ; value of variable"
^XMB(3.9,55,2,7061,0)="""RTN"",""IBCECSA"",172,0)"
^XMB(3.9,55,2,7062,0)=" I VALUE="""" S VALUE=""~"" G SVX    ; get out if undefined"
^XMB(3.9,55,2,7063,0)="""RTN"",""IBCECSA"",173,0)"
^XMB(3.9,55,2,7064,0)=" I '$P(S,"":"",3) G SVX            ; non-numeric"
^XMB(3.9,55,2,7065,0)="""RTN"",""IBCECSA"",174,0)"
^XMB(3.9,55,2,7066,0)=" I $G(IBSORTOR(SORT))=""D"" S VALUE=-VALUE   ; descending sort"
^XMB(3.9,55,2,7067,0)="""RTN"",""IBCECSA"",175,0)"
^XMB(3.9,55,2,7068,0)="SVX Q VALUE"
^XMB(3.9,55,2,7069,0)="""RTN"",""IBCECSA"",176,0)"
^XMB(3.9,55,2,7070,0)=" ;"
^XMB(3.9,55,2,7071,0)="""RTN"",""IBCECSA"",177,0)"
^XMB(3.9,55,2,7072,0)="ZZ ; List of allowable sort criteria"
^XMB(3.9,55,2,7073,0)="""RTN"",""IBCECSA"",178,0)"
^XMB(3.9,55,2,7074,0)="ZZA ;;A:Authorizing Biller:0:IBUER;"
^XMB(3.9,55,2,7075,0)="""RTN"",""IBCECSA"",179,0)"
^XMB(3.9,55,2,7076,0)="ZZB ;;B:Bill Number:0:IB;"
^XMB(3.9,55,2,7077,0)="""RTN"",""IBCECSA"",180,0)"
^XMB(3.9,55,2,7078,0)="ZZC ;;C:Current Balance:1:IBOAM;"
^XMB(3.9,55,2,7079,0)="""RTN"",""IBCECSA"",181,0)"
^XMB(3.9,55,2,7080,0)="ZZS ;;S:Date of Service:1:IBSER;"
^XMB(3.9,55,2,7081,0)="""RTN"",""IBCECSA"",182,0)"
^XMB(3.9,55,2,7082,0)="ZZD ;;D:Division:0:IBDIV;"
^XMB(3.9,55,2,7083,0)="""RTN"",""IBCECSA"",183,0)"
^XMB(3.9,55,2,7084,0)="ZZE ;;E:Error Code Text:0:IBERR;"
^XMB(3.9,55,2,7085,0)="""RTN"",""IBCECSA"",184,0)"
^XMB(3.9,55,2,7086,0)="ZZN ;;N:Number of Days Pending:1:IBPEN;"
^XMB(3.9,55,2,7087,0)="""RTN"",""IBCECSA"",185,0)"
^XMB(3.9,55,2,7088,0)="ZZM ;;M:Patient Name:0:IBPAT;"
^XMB(3.9,55,2,7089,0)="""RTN"",""IBCECSA"",186,0)"
^XMB(3.9,55,2,7090,0)="ZZP ;;P:Payer:0:IBPAY;"
^XMB(3.9,55,2,7091,0)="""RTN"",""IBCECSA"",187,0)"
^XMB(3.9,55,2,7092,0)="ZZR ;;R:Review in Process:1:IBREV;"
^XMB(3.9,55,2,7093,0)="""RTN"",""IBCECSA"",188,0)"
^XMB(3.9,55,2,7094,0)="ZZL ;;L:SSN Last 4:0:IBSSN;"
^XMB(3.9,55,2,7095,0)="""RTN"",""IBCECSA"",189,0)"
^XMB(3.9,55,2,7096,0)=" ;"
^XMB(3.9,55,2,7097,0)="""RTN"",""IBCECSA1"")"
^XMB(3.9,55,2,7098,0)="0^11^B39221878^B30430348"
^XMB(3.9,55,2,7099,0)="""RTN"",""IBCECSA1"",1,0)"
^XMB(3.9,55,2,7100,0)="IBCECSA1 ;ALB/CXW - IB STATUS AWAITING RESOLUTION SCREEN ;28-JUL-99"
^XMB(3.9,55,2,7101,0)="""RTN"",""IBCECSA1"",2,0)"
^XMB(3.9,55,2,7102,0)=" ;;2.0;INTEGRATED BILLING;**137,283,288,320**;21-MAR-94"
^XMB(3.9,55,2,7103,0)="""RTN"",""IBCECSA1"",3,0)"
^XMB(3.9,55,2,7104,0)=" ; DBIA for $$BN1^PRCAFN()"
^XMB(3.9,55,2,7105,0)="""RTN"",""IBCECSA1"",4,0)"
^XMB(3.9,55,2,7106,0)=" ;"
^XMB(3.9,55,2,7107,0)="""RTN"",""IBCECSA1"",5,0)"
^XMB(3.9,55,2,7108,0)="BLD ; Build list entrypoint"
^XMB(3.9,55,2,7109,0)="""RTN"",""IBCECSA1"",6,0)"
^XMB(3.9,55,2,7110,0)=" N IBDA,IBREV,IBIFN,IBPAY,IBSSN,IBSER,IB399,IBLOC,IBDIV,IBUER,IBMSG,IBERR,IBPEN,SEVERITY,A,IBOAM,IBPAT,IBSTSMSG,SV1,SV2,SV3"
^XMB(3.9,55,2,7111,0)="""RTN"",""IBCECSA1"",7,0)"
^XMB(3.9,55,2,7112,0)=" K ^TMP(""IBCECSA"",$J),^TMP(""IBCECSB"",$J),^TMP(""IBCECSD"",$J)"
^XMB(3.9,55,2,7113,0)="""RTN"",""IBCECSA1"",8,0)"
^XMB(3.9,55,2,7114,0)=" W !!,""Compiling CSA status messages ... """
^XMB(3.9,55,2,7115,0)="""RTN"",""IBCECSA1"",9,0)"
^XMB(3.9,55,2,7116,0)=" S IBSEV=$G(IBSEV,""R"")"
^XMB(3.9,55,2,7117,0)="""RTN"",""IBCECSA1"",10,0)"
^XMB(3.9,55,2,7118,0)=" S VALMCNT=0,IB364="""""
^XMB(3.9,55,2,7119,0)="""RTN"",""IBCECSA1"",11,0)"
^XMB(3.9,55,2,7120,0)=" S SEVERITY="""""
^XMB(3.9,55,2,7121,0)="""RTN"",""IBCECSA1"",12,0)"
^XMB(3.9,55,2,7122,0)=" F  S SEVERITY=$O(^IBM(361,""ACSA"",SEVERITY)) Q:SEVERITY=""""  I SEVERITY=""R""!(IBSEV=""B"") S IBREV="""" F  S IBREV=$O(^IBM(361,""ACSA"",SEVERITY,IBREV)) Q:IBREV=""""  I IBREV<2 S IBDA=0 F  S IBDA=$O(^IBM(361,""ACSA"",SEVERITY,IBREV,IBDA)) Q:'IBDA  D"
^XMB(3.9,55,2,7123,0)="""RTN"",""IBCECSA1"",13,0)"
^XMB(3.9,55,2,7124,0)=" . S IB=$G(^IBM(361,IBDA,0)),IBIFN=+IB"
^XMB(3.9,55,2,7125,0)="""RTN"",""IBCECSA1"",14,0)"
^XMB(3.9,55,2,7126,0)=" . S IBPEN=$$FMDIFF^XLFDT(DT,$P(IB,U,2),1)"
^XMB(3.9,55,2,7127,0)="""RTN"",""IBCECSA1"",15,0)"
^XMB(3.9,55,2,7128,0)=" . ;quit if not pending for at least the minimum # of days requested"
^XMB(3.9,55,2,7129,0)="""RTN"",""IBCECSA1"",16,0)"
^XMB(3.9,55,2,7130,0)=" . Q:IBDAYS>IBPEN"
^XMB(3.9,55,2,7131,0)="""RTN"",""IBCECSA1"",17,0)"
^XMB(3.9,55,2,7132,0)=" . S IB399=$G(^DGCR(399,IBIFN,0))"
^XMB(3.9,55,2,7133,0)="""RTN"",""IBCECSA1"",18,0)"
^XMB(3.9,55,2,7134,0)=" . ;"
^XMB(3.9,55,2,7135,0)="""RTN"",""IBCECSA1"",19,0)"
^XMB(3.9,55,2,7136,0)=" . ; no cancelled claims allowed on the CSA screen"
^XMB(3.9,55,2,7137,0)="""RTN"",""IBCECSA1"",20,0)"
^XMB(3.9,55,2,7138,0)=" . ; if we find one, then update the appropriate EDI files"
^XMB(3.9,55,2,7139,0)="""RTN"",""IBCECSA1"",21,0)"
^XMB(3.9,55,2,7140,0)=" . I $P(IB399,U,13)=7 D UPDEDI^IBCEM(+$P(IB,U,11),""C"") Q"
^XMB(3.9,55,2,7141,0)="""RTN"",""IBCECSA1"",22,0)"
^XMB(3.9,55,2,7142,0)=" . ;"
^XMB(3.9,55,2,7143,0)="""RTN"",""IBCECSA1"",23,0)"
^XMB(3.9,55,2,7144,0)=" . ; automatically review this message if the claim was last printed on"
^XMB(3.9,55,2,7145,0)="""RTN"",""IBCECSA1"",24,0)"
^XMB(3.9,55,2,7146,0)=" . ; or after the MCS - 'Resubmit by Print' date"
^XMB(3.9,55,2,7147,0)="""RTN"",""IBCECSA1"",25,0)"
^XMB(3.9,55,2,7148,0)=" . I $P(IB,U,16),($P($G(^DGCR(399,IBIFN,""S"")),U,14)\1)'<$P(IB,U,16) D UPDEDI^IBCEM(+$P(IB,U,11),""P"") Q"
^XMB(3.9,55,2,7149,0)="""RTN"",""IBCECSA1"",26,0)"
^XMB(3.9,55,2,7150,0)=" . ;"
^XMB(3.9,55,2,7151,0)="""RTN"",""IBCECSA1"",27,0)"
^XMB(3.9,55,2,7152,0)=" . S IBDIV=+$P(IB399,U,22)"
^XMB(3.9,55,2,7153,0)="""RTN"",""IBCECSA1"",28,0)"
^XMB(3.9,55,2,7154,0)=" . S IBUER=+$P($G(^DGCR(399,IBIFN,""S"")),U,11)"
^XMB(3.9,55,2,7155,0)="""RTN"",""IBCECSA1"",29,0)"
^XMB(3.9,55,2,7156,0)=" . ;"
^XMB(3.9,55,2,7157,0)="""RTN"",""IBCECSA1"",30,0)"
^XMB(3.9,55,2,7158,0)=" . ; If Request MRA bill, pull the MRA Requestor user instead"
^XMB(3.9,55,2,7159,0)="""RTN"",""IBCECSA1"",31,0)"
^XMB(3.9,55,2,7160,0)=" . I 'IBUER,$P(IB399,U,13)=2 S IBUER=+$P($G(^DGCR(399,IBIFN,""S"")),U,8)"
^XMB(3.9,55,2,7161,0)="""RTN"",""IBCECSA1"",32,0)"
^XMB(3.9,55,2,7162,0)=" . I $D(^TMP(""IBBIL"",$J)),'$D(^TMP(""IBBIL"",$J,IBUER)) Q  ; User not selected"
^XMB(3.9,55,2,7163,0)="""RTN"",""IBCECSA1"",33,0)"
^XMB(3.9,55,2,7164,0)=" . I $D(^TMP(""IBDIV"",$J)),'$D(^TMP(""IBDIV"",$J,IBDIV)) Q  ; Div not selected"
^XMB(3.9,55,2,7165,0)="""RTN"",""IBCECSA1"",34,0)"
^XMB(3.9,55,2,7166,0)=" . ;"
^XMB(3.9,55,2,7167,0)="""RTN"",""IBCECSA1"",35,0)"
^XMB(3.9,55,2,7168,0)=" . S IBPAY=$P($G(^DIC(36,+$P($G(^DGCR(399,IBIFN,""MP"")),U),0)),U)"
^XMB(3.9,55,2,7169,0)="""RTN"",""IBCECSA1"",36,0)"
^XMB(3.9,55,2,7170,0)=" . I IBPAY="""" S IBPAY=$P($G(^DIC(36,+$$CURR^IBCEF2(IBIFN),0)),U)"
^XMB(3.9,55,2,7171,0)="""RTN"",""IBCECSA1"",37,0)"
^XMB(3.9,55,2,7172,0)=" . I IBPAY="""" S IBPAY=""UNKNOWN PAYER"""
^XMB(3.9,55,2,7173,0)="""RTN"",""IBCECSA1"",38,0)"
^XMB(3.9,55,2,7174,0)=" . S IBPAT=$G(^DPT(+$P(IB399,U,2),0))"
^XMB(3.9,55,2,7175,0)="""RTN"",""IBCECSA1"",39,0)"
^XMB(3.9,55,2,7176,0)=" . S IBSSN=$E($P(IBPAT,U,9),6,9) I IBSSN="""" S IBSSN=""~unk"""
^XMB(3.9,55,2,7177,0)="""RTN"",""IBCECSA1"",40,0)"
^XMB(3.9,55,2,7178,0)=" . S IBPAT=$P(IBPAT,U,1) I IBPAT="""" S IBPAT=""~UNKNOWN PATIENT NAME"""
^XMB(3.9,55,2,7179,0)="""RTN"",""IBCECSA1"",41,0)"
^XMB(3.9,55,2,7180,0)=" . S IBSER=$P($G(^DGCR(399,IBIFN,""U"")),U)"
^XMB(3.9,55,2,7181,0)="""RTN"",""IBCECSA1"",42,0)"
^XMB(3.9,55,2,7182,0)=" . S IBLOC=$P(IB399,U,4)"
^XMB(3.9,55,2,7183,0)="""RTN"",""IBCECSA1"",43,0)"
^XMB(3.9,55,2,7184,0)=" . S IBLOC=$S(IBLOC=1:""HOSPITAL"",IBLOC=2:""SKILLED NURSING"",1:""CLINIC"")"
^XMB(3.9,55,2,7185,0)="""RTN"",""IBCECSA1"",44,0)"
^XMB(3.9,55,2,7186,0)=" . I IBDIV S IBDIV=$P($G(^DG(40.8,IBDIV,0)),U)"
^XMB(3.9,55,2,7187,0)="""RTN"",""IBCECSA1"",45,0)"
^XMB(3.9,55,2,7188,0)=" . I IBDIV=""""!(IBDIV=0) S IBDIV=""UNSPECIFIED"""
^XMB(3.9,55,2,7189,0)="""RTN"",""IBCECSA1"",46,0)"
^XMB(3.9,55,2,7190,0)=" . S IBMSG=$S($P(IB,U,8):""PAYER"",1:""NON-PAYER"")"
^XMB(3.9,55,2,7191,0)="""RTN"",""IBCECSA1"",47,0)"
^XMB(3.9,55,2,7192,0)=" . S IBUER=$S(IBUER:$P($G(^VA(200,IBUER,0)),U),1:""UNKNOWN"")_""~""_IBUER"
^XMB(3.9,55,2,7193,0)="""RTN"",""IBCECSA1"",48,0)"
^XMB(3.9,55,2,7194,0)=" . S IB364=$P(IB,U,11)"
^XMB(3.9,55,2,7195,0)="""RTN"",""IBCECSA1"",49,0)"
^XMB(3.9,55,2,7196,0)=" . S IBOAM=$G(^DGCR(399,IBIFN,""U1""))"
^XMB(3.9,55,2,7197,0)="""RTN"",""IBCECSA1"",50,0)"
^XMB(3.9,55,2,7198,0)=" . S IBOAM=$P(IBOAM,U,1)-$P(IBOAM,U,2)     ; current balance (total charges - offset)"
^XMB(3.9,55,2,7199,0)="""RTN"",""IBCECSA1"",51,0)"
^XMB(3.9,55,2,7200,0)=" . ;"
^XMB(3.9,55,2,7201,0)="""RTN"",""IBCECSA1"",52,0)"
^XMB(3.9,55,2,7202,0)=" . S IBSTSMSG=$$TXT(IBDA)       ; status message text"
^XMB(3.9,55,2,7203,0)="""RTN"",""IBCECSA1"",53,0)"
^XMB(3.9,55,2,7204,0)=" . S IBERR=$E(IBSTSMSG,1,30)"
^XMB(3.9,55,2,7205,0)="""RTN"",""IBCECSA1"",54,0)"
^XMB(3.9,55,2,7206,0)=" . I IBERR="""" S IBERR=""-"""
^XMB(3.9,55,2,7207,0)="""RTN"",""IBCECSA1"",55,0)"
^XMB(3.9,55,2,7208,0)=" . ;"
^XMB(3.9,55,2,7209,0)="""RTN"",""IBCECSA1"",56,0)"
^XMB(3.9,55,2,7210,0)=" . S IB=$$BN1^PRCAFN(IBIFN)     ; external bill#"
^XMB(3.9,55,2,7211,0)="""RTN"",""IBCECSA1"",57,0)"
^XMB(3.9,55,2,7212,0)=" . S A=IBIFN_U_IBPAY_U_IBPAT_U_IBSSN_U_IBSER_U_IBOAM_U_IBLOC_U_IBDIV_U_IBUER_U_IBMSG_U_IBPEN_U_$S(IBREV:""*"",1:"""")_U_IB364_U_IB"
^XMB(3.9,55,2,7213,0)="""RTN"",""IBCECSA1"",58,0)"
^XMB(3.9,55,2,7214,0)=" . ;"
^XMB(3.9,55,2,7215,0)="""RTN"",""IBCECSA1"",59,0)"
^XMB(3.9,55,2,7216,0)=" . S SV1=$$SRTV($G(IBSORT1),IBDA)"
^XMB(3.9,55,2,7217,0)="""RTN"",""IBCECSA1"",60,0)"
^XMB(3.9,55,2,7218,0)=" . S SV2=$$SRTV($G(IBSORT2),IBDA)"
^XMB(3.9,55,2,7219,0)="""RTN"",""IBCECSA1"",61,0)"
^XMB(3.9,55,2,7220,0)=" . S SV3=$$SRTV($G(IBSORT3),IBDA)"
^XMB(3.9,55,2,7221,0)="""RTN"",""IBCECSA1"",62,0)"
^XMB(3.9,55,2,7222,0)=" . S ^TMP(""IBCECSB"",$J,SV1,SV2,SV3,IBDA)=A"
^XMB(3.9,55,2,7223,0)="""RTN"",""IBCECSA1"",63,0)"
^XMB(3.9,55,2,7224,0)=" . S ^TMP(""IBCECSB"",$J,SV1,SV2,SV3,IBDA,""MSG"")=IBSTSMSG"
^XMB(3.9,55,2,7225,0)="""RTN"",""IBCECSA1"",64,0)"
^XMB(3.9,55,2,7226,0)=" . Q"
^XMB(3.9,55,2,7227,0)="""RTN"",""IBCECSA1"",65,0)"
^XMB(3.9,55,2,7228,0)=" ;"
^XMB(3.9,55,2,7229,0)="""RTN"",""IBCECSA1"",66,0)"
^XMB(3.9,55,2,7230,0)=" I '$D(^TMP(""IBCECSB"",$J)) D NMAT Q"
^XMB(3.9,55,2,7231,0)="""RTN"",""IBCECSA1"",67,0)"
^XMB(3.9,55,2,7232,0)=" D SCRN"
^XMB(3.9,55,2,7233,0)="""RTN"",""IBCECSA1"",68,0)"
^XMB(3.9,55,2,7234,0)=" Q"
^XMB(3.9,55,2,7235,0)="""RTN"",""IBCECSA1"",69,0)"
^XMB(3.9,55,2,7236,0)=" ;"
^XMB(3.9,55,2,7237,0)="""RTN"",""IBCECSA1"",70,0)"
^XMB(3.9,55,2,7238,0)="NMAT ;No CSA list"
^XMB(3.9,55,2,7239,0)="""RTN"",""IBCECSA1"",71,0)"
^XMB(3.9,55,2,7240,0)=" S VALMCNT=2,IBCNT=2"
^XMB(3.9,55,2,7241,0)="""RTN"",""IBCECSA1"",72,0)"
^XMB(3.9,55,2,7242,0)=" S ^TMP(""IBCECSA"",$J,1,0)="" """
^XMB(3.9,55,2,7243,0)="""RTN"",""IBCECSA1"",73,0)"
^XMB(3.9,55,2,7244,0)=" S ^TMP(""IBCECSA"",$J,2,0)=""No Messages Matching Selection Criteria Found"""
^XMB(3.9,55,2,7245,0)="""RTN"",""IBCECSA1"",74,0)"
^XMB(3.9,55,2,7246,0)=" Q"
^XMB(3.9,55,2,7247,0)="""RTN"",""IBCECSA1"",75,0)"
^XMB(3.9,55,2,7248,0)=" ;"
^XMB(3.9,55,2,7249,0)="""RTN"",""IBCECSA1"",76,0)"
^XMB(3.9,55,2,7250,0)="SRTV(SORT,IBDA) ; sort value calculation given the sort code letter"
^XMB(3.9,55,2,7251,0)="""RTN"",""IBCECSA1"",77,0)"
^XMB(3.9,55,2,7252,0)=" I SORT="""" Q IBDA"
^XMB(3.9,55,2,7253,0)="""RTN"",""IBCECSA1"",78,0)"
^XMB(3.9,55,2,7254,0)=" Q $$SV^IBCECSA(SORT)"
^XMB(3.9,55,2,7255,0)="""RTN"",""IBCECSA1"",79,0)"
^XMB(3.9,55,2,7256,0)=" ;"
^XMB(3.9,55,2,7257,0)="""RTN"",""IBCECSA1"",80,0)"
^XMB(3.9,55,2,7258,0)="SCRN ;"
^XMB(3.9,55,2,7259,0)="""RTN"",""IBCECSA1"",81,0)"
^XMB(3.9,55,2,7260,0)=" NEW IBSRT1,IBSRT2,IBSRT3,IBX,IBCNT,IBIFN,IBDA,IB,INFX,DAT,X"
^XMB(3.9,55,2,7261,0)="""RTN"",""IBCECSA1"",82,0)"
^XMB(3.9,55,2,7262,0)=" W !,""Building the CSA list display ... """
^XMB(3.9,55,2,7263,0)="""RTN"",""IBCECSA1"",83,0)"
^XMB(3.9,55,2,7264,0)=" S IBCNT=0,IBSRT1="""""
^XMB(3.9,55,2,7265,0)="""RTN"",""IBCECSA1"",84,0)"
^XMB(3.9,55,2,7266,0)=" F  S IBSRT1=$O(^TMP(""IBCECSB"",$J,IBSRT1)) Q:IBSRT1=""""  D"
^XMB(3.9,55,2,7267,0)="""RTN"",""IBCECSA1"",85,0)"
^XMB(3.9,55,2,7268,0)=" . D SRTBRK(1,$G(IBSORT1),IBSRT1)"
^XMB(3.9,55,2,7269,0)="""RTN"",""IBCECSA1"",86,0)"
^XMB(3.9,55,2,7270,0)=" . S IBSRT2="""""
^XMB(3.9,55,2,7271,0)="""RTN"",""IBCECSA1"",87,0)"
^XMB(3.9,55,2,7272,0)=" . F  S IBSRT2=$O(^TMP(""IBCECSB"",$J,IBSRT1,IBSRT2)) Q:IBSRT2=""""  D"
^XMB(3.9,55,2,7273,0)="""RTN"",""IBCECSA1"",88,0)"
^XMB(3.9,55,2,7274,0)=" .. D SRTBRK(2,$G(IBSORT2),IBSRT2)"
^XMB(3.9,55,2,7275,0)="""RTN"",""IBCECSA1"",89,0)"
^XMB(3.9,55,2,7276,0)=" .. S IBSRT3="""""
^XMB(3.9,55,2,7277,0)="""RTN"",""IBCECSA1"",90,0)"
^XMB(3.9,55,2,7278,0)=" .. F  S IBSRT3=$O(^TMP(""IBCECSB"",$J,IBSRT1,IBSRT2,IBSRT3)) Q:IBSRT3=""""  D"
^XMB(3.9,55,2,7279,0)="""RTN"",""IBCECSA1"",91,0)"
^XMB(3.9,55,2,7280,0)=" ... D SRTBRK(3,$G(IBSORT3),IBSRT3)"
^XMB(3.9,55,2,7281,0)="""RTN"",""IBCECSA1"",92,0)"
^XMB(3.9,55,2,7282,0)=" ... S IBDA=0"
^XMB(3.9,55,2,7283,0)="""RTN"",""IBCECSA1"",93,0)"
^XMB(3.9,55,2,7284,0)=" ... F  S IBDA=$O(^TMP(""IBCECSB"",$J,IBSRT1,IBSRT2,IBSRT3,IBDA)) Q:'IBDA  D"
^XMB(3.9,55,2,7285,0)="""RTN"",""IBCECSA1"",94,0)"
^XMB(3.9,55,2,7286,0)=" .... S IB=$G(^TMP(""IBCECSB"",$J,IBSRT1,IBSRT2,IBSRT3,IBDA))"
^XMB(3.9,55,2,7287,0)="""RTN"",""IBCECSA1"",95,0)"
^XMB(3.9,55,2,7288,0)=" .... S IBSTSMSG=$G(^TMP(""IBCECSB"",$J,IBSRT1,IBSRT2,IBSRT3,IBDA,""MSG""))"
^XMB(3.9,55,2,7289,0)="""RTN"",""IBCECSA1"",96,0)"
^XMB(3.9,55,2,7290,0)=" .... S IBIFN=+IB"
^XMB(3.9,55,2,7291,0)="""RTN"",""IBCECSA1"",97,0)"
^XMB(3.9,55,2,7292,0)=" .... S IB364=$P(IB,U,13)"
^XMB(3.9,55,2,7293,0)="""RTN"",""IBCECSA1"",98,0)"
^XMB(3.9,55,2,7294,0)=" .... S DAT=IBIFN_U_IBDA_U_IBSRT1_U_IBSRT2_U_IB364_U_IBSRT3"
^XMB(3.9,55,2,7295,0)="""RTN"",""IBCECSA1"",99,0)"
^XMB(3.9,55,2,7296,0)=" .... ;"
^XMB(3.9,55,2,7297,0)="""RTN"",""IBCECSA1"",100,0)"
^XMB(3.9,55,2,7298,0)=" .... S IBCNT=IBCNT+1"
^XMB(3.9,55,2,7299,0)="""RTN"",""IBCECSA1"",101,0)"
^XMB(3.9,55,2,7300,0)=" .... S X=$$SETFLD^VALM1($J(IBCNT,3),"""",""NUMBER"")"
^XMB(3.9,55,2,7301,0)="""RTN"",""IBCECSA1"",102,0)"
^XMB(3.9,55,2,7302,0)=" .... D SETL1(IB,.X)"
^XMB(3.9,55,2,7303,0)="""RTN"",""IBCECSA1"",103,0)"
^XMB(3.9,55,2,7304,0)=" .... D SET(X,IBCNT,DAT)"
^XMB(3.9,55,2,7305,0)="""RTN"",""IBCECSA1"",104,0)"
^XMB(3.9,55,2,7306,0)=" .... ;"
^XMB(3.9,55,2,7307,0)="""RTN"",""IBCECSA1"",105,0)"
^XMB(3.9,55,2,7308,0)=" .... S X=$$SETSTR^VALM1(IBSTSMSG,"""",6,75)"
^XMB(3.9,55,2,7309,0)="""RTN"",""IBCECSA1"",106,0)"
^XMB(3.9,55,2,7310,0)=" .... D SET(X,IBCNT,DAT)"
^XMB(3.9,55,2,7311,0)="""RTN"",""IBCECSA1"",107,0)"
^XMB(3.9,55,2,7312,0)=" .... Q"
^XMB(3.9,55,2,7313,0)="""RTN"",""IBCECSA1"",108,0)"
^XMB(3.9,55,2,7314,0)=" ... Q"
^XMB(3.9,55,2,7315,0)="""RTN"",""IBCECSA1"",109,0)"
^XMB(3.9,55,2,7316,0)=" .. Q"
^XMB(3.9,55,2,7317,0)="""RTN"",""IBCECSA1"",110,0)"
^XMB(3.9,55,2,7318,0)=" . Q"
^XMB(3.9,55,2,7319,0)="""RTN"",""IBCECSA1"",111,0)"
^XMB(3.9,55,2,7320,0)=" Q"
^XMB(3.9,55,2,7321,0)="""RTN"",""IBCECSA1"",112,0)"
^XMB(3.9,55,2,7322,0)=" ;"
^XMB(3.9,55,2,7323,0)="""RTN"",""IBCECSA1"",113,0)"
^XMB(3.9,55,2,7324,0)="SRTBRK(LVL,SORT,IBSRT) ; sort break for display of certain sort data"
^XMB(3.9,55,2,7325,0)="""RTN"",""IBCECSA1"",114,0)"
^XMB(3.9,55,2,7326,0)=" ; LVL   - sort level"
^XMB(3.9,55,2,7327,0)="""RTN"",""IBCECSA1"",115,0)"
^XMB(3.9,55,2,7328,0)=" ; SORT  - sort letter code"
^XMB(3.9,55,2,7329,0)="""RTN"",""IBCECSA1"",116,0)"
^XMB(3.9,55,2,7330,0)=" ; IBSRT - subscript data"
^XMB(3.9,55,2,7331,0)="""RTN"",""IBCECSA1"",117,0)"
^XMB(3.9,55,2,7332,0)=" ;"
^XMB(3.9,55,2,7333,0)="""RTN"",""IBCECSA1"",118,0)"
^XMB(3.9,55,2,7334,0)=" NEW IBS,DSPDATA"
^XMB(3.9,55,2,7335,0)="""RTN"",""IBCECSA1"",119,0)"
^XMB(3.9,55,2,7336,0)=" I '$F("".A.D.N."","".""_$G(SORT)_""."") G SRTBRKX"
^XMB(3.9,55,2,7337,0)="""RTN"",""IBCECSA1"",120,0)"
^XMB(3.9,55,2,7338,0)=" S IBS=$$SD^IBCECSA(SORT)"
^XMB(3.9,55,2,7339,0)="""RTN"",""IBCECSA1"",121,0)"
^XMB(3.9,55,2,7340,0)=" S DSPDATA=IBSRT"
^XMB(3.9,55,2,7341,0)="""RTN"",""IBCECSA1"",122,0)"
^XMB(3.9,55,2,7342,0)=" I SORT=""A"" S DSPDATA=$P(DSPDATA,""~"",1)      ; biller name"
^XMB(3.9,55,2,7343,0)="""RTN"",""IBCECSA1"",123,0)"
^XMB(3.9,55,2,7344,0)=" I SORT=""N"" S DSPDATA=-DSPDATA               ; number of days pending"
^XMB(3.9,55,2,7345,0)="""RTN"",""IBCECSA1"",124,0)"
^XMB(3.9,55,2,7346,0)=" D SET($J("""",LVL-1)_IBS_"": ""_DSPDATA,IBCNT,"""")"
^XMB(3.9,55,2,7347,0)="""RTN"",""IBCECSA1"",125,0)"
^XMB(3.9,55,2,7348,0)="SRTBRKX ;"
^XMB(3.9,55,2,7349,0)="""RTN"",""IBCECSA1"",126,0)"
^XMB(3.9,55,2,7350,0)=" Q"
^XMB(3.9,55,2,7351,0)="""RTN"",""IBCECSA1"",127,0)"
^XMB(3.9,55,2,7352,0)=" ;"
^XMB(3.9,55,2,7353,0)="""RTN"",""IBCECSA1"",128,0)"
^XMB(3.9,55,2,7354,0)="SET(X,CNT,DAT) ;set up list manager screen array"
^XMB(3.9,55,2,7355,0)="""RTN"",""IBCECSA1"",129,0)"
^XMB(3.9,55,2,7356,0)=" S VALMCNT=VALMCNT+1"
^XMB(3.9,55,2,7357,0)="""RTN"",""IBCECSA1"",130,0)"
^XMB(3.9,55,2,7358,0)=" I 'CNT S CNT=1"
^XMB(3.9,55,2,7359,0)="""RTN"",""IBCECSA1"",131,0)"
^XMB(3.9,55,2,7360,0)=" S ^TMP(""IBCECSA"",$J,VALMCNT,0)=X"
^XMB(3.9,55,2,7361,0)="""RTN"",""IBCECSA1"",132,0)"
^XMB(3.9,55,2,7362,0)=" S ^TMP(""IBCECSA"",$J,""IDX"",VALMCNT,CNT)="""""
^XMB(3.9,55,2,7363,0)="""RTN"",""IBCECSA1"",133,0)"
^XMB(3.9,55,2,7364,0)=" I DAT'="""" S ^TMP(""IBCECSA"",$J,CNT)=VALMCNT_U_DAT"
^XMB(3.9,55,2,7365,0)="""RTN"",""IBCECSA1"",134,0)"
^XMB(3.9,55,2,7366,0)=" Q"
^XMB(3.9,55,2,7367,0)="""RTN"",""IBCECSA1"",135,0)"
^XMB(3.9,55,2,7368,0)=" ;"
^XMB(3.9,55,2,7369,0)="""RTN"",""IBCECSA1"",136,0)"
^XMB(3.9,55,2,7370,0)="SETL1(IB,X) ;"
^XMB(3.9,55,2,7371,0)="""RTN"",""IBCECSA1"",137,0)"
^XMB(3.9,55,2,7372,0)=" S X=$$SETFLD^VALM1($P($G(^DGCR(399,+IB,0)),U,1)_$P(IB,U,12),X,""BILL"")"
^XMB(3.9,55,2,7373,0)="""RTN"",""IBCECSA1"",138,0)"
^XMB(3.9,55,2,7374,0)=" S X=$$SETFLD^VALM1($P(IB,U,2),X,""PNAME"")"
^XMB(3.9,55,2,7375,0)="""RTN"",""IBCECSA1"",139,0)"
^XMB(3.9,55,2,7376,0)=" S X=$$SETFLD^VALM1($P(IB,U,3),X,""PANAME"")"
^XMB(3.9,55,2,7377,0)="""RTN"",""IBCECSA1"",140,0)"
^XMB(3.9,55,2,7378,0)=" S X=$$SETFLD^VALM1($P(IB,U,4),X,""SSN"")"
^XMB(3.9,55,2,7379,0)="""RTN"",""IBCECSA1"",141,0)"
^XMB(3.9,55,2,7380,0)=" S X=$$SETFLD^VALM1($$FMTE^XLFDT($P(IB,U,5),""2Z""),X,""SERVICE"")"
^XMB(3.9,55,2,7381,0)="""RTN"",""IBCECSA1"",142,0)"
^XMB(3.9,55,2,7382,0)=" S X=$$SETFLD^VALM1($J(""$""_$FN($P(IB,U,6),"""",2),10),X,""CURBAL"")"
^XMB(3.9,55,2,7383,0)="""RTN"",""IBCECSA1"",143,0)"
^XMB(3.9,55,2,7384,0)=" Q"
^XMB(3.9,55,2,7385,0)="""RTN"",""IBCECSA1"",144,0)"
^XMB(3.9,55,2,7386,0)=" ;"
^XMB(3.9,55,2,7387,0)="""RTN"",""IBCECSA1"",145,0)"
^XMB(3.9,55,2,7388,0)="TXT(IBDA,LEN) ; Return a string of status message text"
^XMB(3.9,55,2,7389,0)="""RTN"",""IBCECSA1"",146,0)"
^XMB(3.9,55,2,7390,0)=" ; IBDA - ien to file 361"
^XMB(3.9,55,2,7391,0)="""RTN"",""IBCECSA1"",147,0)"
^XMB(3.9,55,2,7392,0)=" ;  LEN - desired maximum length of combined text string"
^XMB(3.9,55,2,7393,0)="""RTN"",""IBCECSA1"",148,0)"
^XMB(3.9,55,2,7394,0)=" NEW MSG,LN,STOP,TX,HLN,REFN,DELIM"
^XMB(3.9,55,2,7395,0)="""RTN"",""IBCECSA1"",149,0)"
^XMB(3.9,55,2,7396,0)=" S MSG="""",LN=0,LEN=$G(LEN,75),STOP=0"
^XMB(3.9,55,2,7397,0)="""RTN"",""IBCECSA1"",150,0)"
^XMB(3.9,55,2,7398,0)=" F  S LN=$O(^IBM(361,+$G(IBDA),1,LN)) Q:'LN  D  Q:STOP"
^XMB(3.9,55,2,7399,0)="""RTN"",""IBCECSA1"",151,0)"
^XMB(3.9,55,2,7400,0)=" . S TX=$G(^IBM(361,IBDA,1,LN,0))"
^XMB(3.9,55,2,7401,0)="""RTN"",""IBCECSA1"",152,0)"
^XMB(3.9,55,2,7402,0)=" . I $E(TX,1,5)=""Error"" S TX=$E(TX,6,999)"
^XMB(3.9,55,2,7403,0)="""RTN"",""IBCECSA1"",153,0)"
^XMB(3.9,55,2,7404,0)=" . S TX=$$TRIM^XLFSTR(TX)"
^XMB(3.9,55,2,7405,0)="""RTN"",""IBCECSA1"",154,0)"
^XMB(3.9,55,2,7406,0)=" . I $E(TX,1,8)=""Patient:"" S STOP=1 Q"
^XMB(3.9,55,2,7407,0)="""RTN"",""IBCECSA1"",155,0)"
^XMB(3.9,55,2,7408,0)=" . I $E(TX,1,14)=""Service Dates:"" S STOP=1 Q"
^XMB(3.9,55,2,7409,0)="""RTN"",""IBCECSA1"",156,0)"
^XMB(3.9,55,2,7410,0)=" . I $E(TX,1,11)=""Payer Name:"" S STOP=1 Q"
^XMB(3.9,55,2,7411,0)="""RTN"",""IBCECSA1"",157,0)"
^XMB(3.9,55,2,7412,0)=" . I $E(TX,1,7)=""Source:"" S STOP=1 Q"
^XMB(3.9,55,2,7413,0)="""RTN"",""IBCECSA1"",158,0)"
^XMB(3.9,55,2,7414,0)=" . I $E(TX,1,11)=""Claim Line:"" S STOP=1 Q"
^XMB(3.9,55,2,7415,0)="""RTN"",""IBCECSA1"",159,0)"
^XMB(3.9,55,2,7416,0)=" . I $E(TX,1,13)=""Service Type:"" S STOP=1 Q"
^XMB(3.9,55,2,7417,0)="""RTN"",""IBCECSA1"",160,0)"
^XMB(3.9,55,2,7418,0)=" . I TX[""HL="" S HLN=+$P(TX,""HL="",2),DELIM=""HL=""_HLN,TX=$P(TX,DELIM,1)_""HL= ""_$P(TX,DELIM,2,9)"
^XMB(3.9,55,2,7419,0)="""RTN"",""IBCECSA1"",161,0)"
^XMB(3.9,55,2,7420,0)=" . I TX[""ENVOY REF: "" S REFN=$E($P(TX,""ENVOY REF: "",2),1,14),DELIM=""ENVOY REF: ""_REFN,TX=$P(TX,DELIM,1)_""ENVOY REF: ""_$P(TX,DELIM,2,9)"
^XMB(3.9,55,2,7421,0)="""RTN"",""IBCECSA1"",162,0)"
^XMB(3.9,55,2,7422,0)=" . I ($L(MSG)+$L(TX))>500 S STOP=1 Q"
^XMB(3.9,55,2,7423,0)="""RTN"",""IBCECSA1"",163,0)"
^XMB(3.9,55,2,7424,0)=" . S MSG=MSG_$S(MSG="""":"""",1:"" "")_TX"
^XMB(3.9,55,2,7425,0)="""RTN"",""IBCECSA1"",164,0)"
^XMB(3.9,55,2,7426,0)=" . I $L(MSG)>LEN S STOP=1"
^XMB(3.9,55,2,7427,0)="""RTN"",""IBCECSA1"",165,0)"
^XMB(3.9,55,2,7428,0)=" . Q"
^XMB(3.9,55,2,7429,0)="""RTN"",""IBCECSA1"",166,0)"
^XMB(3.9,55,2,7430,0)=" Q $E(MSG,1,LEN)"
^XMB(3.9,55,2,7431,0)="""RTN"",""IBCECSA1"",167,0)"
^XMB(3.9,55,2,7432,0)=" ;"
^XMB(3.9,55,2,7433,0)="""RTN"",""IBCECSA2"")"
^XMB(3.9,55,2,7434,0)="0^8^B81703676^B78300535"
^XMB(3.9,55,2,7435,0)="""RTN"",""IBCECSA2"",1,0)"
^XMB(3.9,55,2,7436,0)="IBCECSA2 ;ALB/CXW - IB CLAIMS STATUS AWAITING RESOLUTION SCREEN ;28-JUL-1999"
^XMB(3.9,55,2,7437,0)="""RTN"",""IBCECSA2"",2,0)"
^XMB(3.9,55,2,7438,0)=" ;;2.0;INTEGRATED BILLING;**137,181,197,320**;21-MAR-1994"
^XMB(3.9,55,2,7439,0)="""RTN"",""IBCECSA2"",3,0)"
^XMB(3.9,55,2,7440,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,7441,0)="""RTN"",""IBCECSA2"",4,0)"
^XMB(3.9,55,2,7442,0)=" ;"
^XMB(3.9,55,2,7443,0)="""RTN"",""IBCECSA2"",5,0)"
^XMB(3.9,55,2,7444,0)="EN ; -- claims status awaiting resolution detail"
^XMB(3.9,55,2,7445,0)="""RTN"",""IBCECSA2"",6,0)"
^XMB(3.9,55,2,7446,0)=" D EN^VALM(""IBCEM CSA MSG"")"
^XMB(3.9,55,2,7447,0)="""RTN"",""IBCECSA2"",7,0)"
^XMB(3.9,55,2,7448,0)=" Q"
^XMB(3.9,55,2,7449,0)="""RTN"",""IBCECSA2"",8,0)"
^XMB(3.9,55,2,7450,0)=" ;"
^XMB(3.9,55,2,7451,0)="""RTN"",""IBCECSA2"",9,0)"
^XMB(3.9,55,2,7452,0)="HDR ; -- header code"
^XMB(3.9,55,2,7453,0)="""RTN"",""IBCECSA2"",10,0)"
^XMB(3.9,55,2,7454,0)=" ; IBA - EOB ien from summary selection"
^XMB(3.9,55,2,7455,0)="""RTN"",""IBCECSA2"",11,0)"
^XMB(3.9,55,2,7456,0)=" N IBST,IBST0"
^XMB(3.9,55,2,7457,0)="""RTN"",""IBCECSA2"",12,0)"
^XMB(3.9,55,2,7458,0)=" Q:'$G(IBA)"
^XMB(3.9,55,2,7459,0)="""RTN"",""IBCECSA2"",13,0)"
^XMB(3.9,55,2,7460,0)=" S IBST0=$G(^IBM(361,+$P(IBA,U,2),0)),IBST=$P(IBST0,U,9)"
^XMB(3.9,55,2,7461,0)="""RTN"",""IBCECSA2"",14,0)"
^XMB(3.9,55,2,7462,0)=" S VALMHDR(2)=""Message Status = ""_$$EXPAND^IBTRE(361,.09,IBST)"
^XMB(3.9,55,2,7463,0)="""RTN"",""IBCECSA2"",15,0)"
^XMB(3.9,55,2,7464,0)=" I $P(IBST0,U,14) S VALMHDR(2)=VALMHDR(2)_""  (AUTOMATICALLY REVIEWED)"""
^XMB(3.9,55,2,7465,0)="""RTN"",""IBCECSA2"",16,0)"
^XMB(3.9,55,2,7466,0)=" S VALMHDR(1)=$J("""",23)_""CLAIMS STATUS AWAITING RESOLUTION-DETAIL"""
^XMB(3.9,55,2,7467,0)="""RTN"",""IBCECSA2"",17,0)"
^XMB(3.9,55,2,7468,0)=" Q"
^XMB(3.9,55,2,7469,0)="""RTN"",""IBCECSA2"",18,0)"
^XMB(3.9,55,2,7470,0)=" ;"
^XMB(3.9,55,2,7471,0)="""RTN"",""IBCECSA2"",19,0)"
^XMB(3.9,55,2,7472,0)="INIT ; -- init variables and list array"
^XMB(3.9,55,2,7473,0)="""RTN"",""IBCECSA2"",20,0)"
^XMB(3.9,55,2,7474,0)=" N I,X,Y,Z,ZZ,IBZ,IBZ0,IBX,IBCNT"
^XMB(3.9,55,2,7475,0)="""RTN"",""IBCECSA2"",21,0)"
^XMB(3.9,55,2,7476,0)=" K ^TMP(""IBCECSC"",$J)"
^XMB(3.9,55,2,7477,0)="""RTN"",""IBCECSA2"",22,0)"
^XMB(3.9,55,2,7478,0)="SCR S VALMCNT=0,IBCNT=1"
^XMB(3.9,55,2,7479,0)="""RTN"",""IBCECSA2"",23,0)"
^XMB(3.9,55,2,7480,0)=" S IBA=+$O(IBDAX(0)),IBA=$G(IBDAX(IBA))"
^XMB(3.9,55,2,7481,0)="""RTN"",""IBCECSA2"",24,0)"
^XMB(3.9,55,2,7482,0)=" Q:IBA="""""
^XMB(3.9,55,2,7483,0)="""RTN"",""IBCECSA2"",25,0)"
^XMB(3.9,55,2,7484,0)=" S X="""""
^XMB(3.9,55,2,7485,0)="""RTN"",""IBCECSA2"",26,0)"
^XMB(3.9,55,2,7486,0)=" S IBX=$S($D(^TMP(""IBCECSB"",$J)):$G(^TMP(""IBCECSB"",$J,$P(IBA,U,3),$P(IBA,U,4),$P(IBA,U,6),$P(IBA,U,2))),1:"""")"
^XMB(3.9,55,2,7487,0)="""RTN"",""IBCECSA2"",27,0)"
^XMB(3.9,55,2,7488,0)=" D SETL1^IBCECSA1(IBX,.X)"
^XMB(3.9,55,2,7489,0)="""RTN"",""IBCECSA2"",28,0)"
^XMB(3.9,55,2,7490,0)=" D SET(X,IBCNT)"
^XMB(3.9,55,2,7491,0)="""RTN"",""IBCECSA2"",29,0)"
^XMB(3.9,55,2,7492,0)=" D SET("""",IBCNT)    ; blank line"
^XMB(3.9,55,2,7493,0)="""RTN"",""IBCECSA2"",30,0)"
^XMB(3.9,55,2,7494,0)=" ;"
^XMB(3.9,55,2,7495,0)="""RTN"",""IBCECSA2"",31,0)"
^XMB(3.9,55,2,7496,0)=" S X=$E(""     Svc Loc: ""_$P(IBX,U,7)_$J("""",30),1,30)_$J("""",14)_""Division: ""_$E($P(IBX,U,8),1,26)"
^XMB(3.9,55,2,7497,0)="""RTN"",""IBCECSA2"",32,0)"
^XMB(3.9,55,2,7498,0)=" D SET(X,IBCNT)"
^XMB(3.9,55,2,7499,0)="""RTN"",""IBCECSA2"",33,0)"
^XMB(3.9,55,2,7500,0)=" S X=$E("" Biller Name: ""_$P($P(IBX,U,9),""~"")_$J("""",30),1,30)_$J("""",10)_""Days Pending: ""_$P(IBX,U,11)"
^XMB(3.9,55,2,7501,0)="""RTN"",""IBCECSA2"",34,0)"
^XMB(3.9,55,2,7502,0)=" D SET(X,IBCNT)"
^XMB(3.9,55,2,7503,0)="""RTN"",""IBCECSA2"",35,0)"
^XMB(3.9,55,2,7504,0)=" S IBZ=$P(IBA,U,2),IBZ0=$G(^IBM(361,IBZ,0))"
^XMB(3.9,55,2,7505,0)="""RTN"",""IBCECSA2"",36,0)"
^XMB(3.9,55,2,7506,0)=" S X=$E(""  Date Rec'd: ""_$$FMTE^XLFDT($P(IBZ0,U,2),""2Z"")_$J("""",30),1,30)_$J("""",10)_""Dt Generated: ""_$S($P(IBZ0,U,12):$$FMTE^XLFDT($P(IBZ0,U,12),""2Z""),1:"""")"
^XMB(3.9,55,2,7507,0)="""RTN"",""IBCECSA2"",37,0)"
^XMB(3.9,55,2,7508,0)=" D SET(X,IBCNT),SET("""",IBCNT)"
^XMB(3.9,55,2,7509,0)="""RTN"",""IBCECSA2"",38,0)"
^XMB(3.9,55,2,7510,0)=" ;"
^XMB(3.9,55,2,7511,0)="""RTN"",""IBCECSA2"",39,0)"
^XMB(3.9,55,2,7512,0)=" D SET(""Message Text:"",IBCNT)"
^XMB(3.9,55,2,7513,0)="""RTN"",""IBCECSA2"",40,0)"
^XMB(3.9,55,2,7514,0)=" S X=0 F  S X=$O(^IBM(361,IBZ,1,X)) Q:'X  D"
^XMB(3.9,55,2,7515,0)="""RTN"",""IBCECSA2"",41,0)"
^XMB(3.9,55,2,7516,0)=" . S Y=""  ""_$G(^IBM(361,IBZ,1,X,0))"
^XMB(3.9,55,2,7517,0)="""RTN"",""IBCECSA2"",42,0)"
^XMB(3.9,55,2,7518,0)=" . D SET(Y,IBCNT)"
^XMB(3.9,55,2,7519,0)="""RTN"",""IBCECSA2"",43,0)"
^XMB(3.9,55,2,7520,0)=" . Q"
^XMB(3.9,55,2,7521,0)="""RTN"",""IBCECSA2"",44,0)"
^XMB(3.9,55,2,7522,0)=" D SET("""",IBCNT)"
^XMB(3.9,55,2,7523,0)="""RTN"",""IBCECSA2"",45,0)"
^XMB(3.9,55,2,7524,0)=" ;"
^XMB(3.9,55,2,7525,0)="""RTN"",""IBCECSA2"",46,0)"
^XMB(3.9,55,2,7526,0)=" S ZZ="""" F  S ZZ=$O(^IBM(361,IBZ,2,""B"",ZZ),-1) Q:ZZ=""""  S Z=0 F  S Z=$O(^IBM(361,IBZ,2,""B"",ZZ,Z)) Q:'Z  D"
^XMB(3.9,55,2,7527,0)="""RTN"",""IBCECSA2"",47,0)"
^XMB(3.9,55,2,7528,0)=" . S I=$G(^IBM(361,IBZ,2,Z,0))"
^XMB(3.9,55,2,7529,0)="""RTN"",""IBCECSA2"",48,0)"
^XMB(3.9,55,2,7530,0)=" . S Y=$$SETSTR^VALM1(""Review Date: ""_$$EXTERNAL^DILFD(361.02,.01,,ZZ),"""",2,40)"
^XMB(3.9,55,2,7531,0)="""RTN"",""IBCECSA2"",49,0)"
^XMB(3.9,55,2,7532,0)=" . D SET(Y,IBCNT)"
^XMB(3.9,55,2,7533,0)="""RTN"",""IBCECSA2"",50,0)"
^XMB(3.9,55,2,7534,0)=" . I $P(I,U,2) S Y=$$SETSTR^VALM1(""Reviewed By: ""_$P($G(^VA(200,+$P(I,U,2),0)),U,1),"""",2,70) D SET(Y,IBCNT)"
^XMB(3.9,55,2,7535,0)="""RTN"",""IBCECSA2"",51,0)"
^XMB(3.9,55,2,7536,0)=" . D SET(""    Comments:"",IBCNT)"
^XMB(3.9,55,2,7537,0)="""RTN"",""IBCECSA2"",52,0)"
^XMB(3.9,55,2,7538,0)=" . S X=0 F  S X=$O(^IBM(361,IBZ,2,Z,1,X)) Q:'X  D"
^XMB(3.9,55,2,7539,0)="""RTN"",""IBCECSA2"",53,0)"
^XMB(3.9,55,2,7540,0)=" .. S Y=""    ""_$G(^IBM(361,IBZ,2,Z,1,X,0))"
^XMB(3.9,55,2,7541,0)="""RTN"",""IBCECSA2"",54,0)"
^XMB(3.9,55,2,7542,0)=" .. D SET(Y,IBCNT)"
^XMB(3.9,55,2,7543,0)="""RTN"",""IBCECSA2"",55,0)"
^XMB(3.9,55,2,7544,0)=" .. Q"
^XMB(3.9,55,2,7545,0)="""RTN"",""IBCECSA2"",56,0)"
^XMB(3.9,55,2,7546,0)=" . D SET("""",IBCNT)"
^XMB(3.9,55,2,7547,0)="""RTN"",""IBCECSA2"",57,0)"
^XMB(3.9,55,2,7548,0)=" . Q"
^XMB(3.9,55,2,7549,0)="""RTN"",""IBCECSA2"",58,0)"
^XMB(3.9,55,2,7550,0)="INITQ Q"
^XMB(3.9,55,2,7551,0)="""RTN"",""IBCECSA2"",59,0)"
^XMB(3.9,55,2,7552,0)=" ;"
^XMB(3.9,55,2,7553,0)="""RTN"",""IBCECSA2"",60,0)"
^XMB(3.9,55,2,7554,0)="HELP ; help code"
^XMB(3.9,55,2,7555,0)="""RTN"",""IBCECSA2"",61,0)"
^XMB(3.9,55,2,7556,0)=" S X=""?"" D DISP^XQORM1 W !!"
^XMB(3.9,55,2,7557,0)="""RTN"",""IBCECSA2"",62,0)"
^XMB(3.9,55,2,7558,0)=" Q"
^XMB(3.9,55,2,7559,0)="""RTN"",""IBCECSA2"",63,0)"
^XMB(3.9,55,2,7560,0)=" ;"
^XMB(3.9,55,2,7561,0)="""RTN"",""IBCECSA2"",64,0)"
^XMB(3.9,55,2,7562,0)="EXIT ; exit code"
^XMB(3.9,55,2,7563,0)="""RTN"",""IBCECSA2"",65,0)"
^XMB(3.9,55,2,7564,0)=" K ^TMP(""IBCECSC"",$J)"
^XMB(3.9,55,2,7565,0)="""RTN"",""IBCECSA2"",66,0)"
^XMB(3.9,55,2,7566,0)=" D CLEAN^VALM10"
^XMB(3.9,55,2,7567,0)="""RTN"",""IBCECSA2"",67,0)"
^XMB(3.9,55,2,7568,0)=" Q"
^XMB(3.9,55,2,7569,0)="""RTN"",""IBCECSA2"",68,0)"
^XMB(3.9,55,2,7570,0)=" ;"
^XMB(3.9,55,2,7571,0)="""RTN"",""IBCECSA2"",69,0)"
^XMB(3.9,55,2,7572,0)="SET(X,CNT) ;"
^XMB(3.9,55,2,7573,0)="""RTN"",""IBCECSA2"",70,0)"
^XMB(3.9,55,2,7574,0)=" S VALMCNT=VALMCNT+1"
^XMB(3.9,55,2,7575,0)="""RTN"",""IBCECSA2"",71,0)"
^XMB(3.9,55,2,7576,0)=" S ^TMP(""IBCECSC"",$J,VALMCNT,0)=X"
^XMB(3.9,55,2,7577,0)="""RTN"",""IBCECSA2"",72,0)"
^XMB(3.9,55,2,7578,0)=" S ^TMP(""IBCECSC"",$J,""IDX"",VALMCNT,CNT)="""""
^XMB(3.9,55,2,7579,0)="""RTN"",""IBCECSA2"",73,0)"
^XMB(3.9,55,2,7580,0)=" S ^TMP(""IBCECSC"",$J,CNT)=VALMCNT"
^XMB(3.9,55,2,7581,0)="""RTN"",""IBCECSA2"",74,0)"
^XMB(3.9,55,2,7582,0)=" Q"
^XMB(3.9,55,2,7583,0)="""RTN"",""IBCECSA2"",75,0)"
^XMB(3.9,55,2,7584,0)=" ;"
^XMB(3.9,55,2,7585,0)="""RTN"",""IBCECSA2"",76,0)"
^XMB(3.9,55,2,7586,0)="UPDTX(IBDA,IBST) ; Update transmit bill record"
^XMB(3.9,55,2,7587,0)="""RTN"",""IBCECSA2"",77,0)"
^XMB(3.9,55,2,7588,0)=" ; IBDA = ien of entry in 364"
^XMB(3.9,55,2,7589,0)="""RTN"",""IBCECSA2"",78,0)"
^XMB(3.9,55,2,7590,0)=" ; IBST = status to stuff"
^XMB(3.9,55,2,7591,0)="""RTN"",""IBCECSA2"",79,0)"
^XMB(3.9,55,2,7592,0)=" N X,Y,DR,DIE,DA"
^XMB(3.9,55,2,7593,0)="""RTN"",""IBCECSA2"",80,0)"
^XMB(3.9,55,2,7594,0)=" S DR="".03////""_IBST_"";.04///NOW"",DA=IBDA,DIE=""^IBA(364,"" D:DA ^DIE"
^XMB(3.9,55,2,7595,0)="""RTN"",""IBCECSA2"",81,0)"
^XMB(3.9,55,2,7596,0)=" Q"
^XMB(3.9,55,2,7597,0)="""RTN"",""IBCECSA2"",82,0)"
^XMB(3.9,55,2,7598,0)=" ;"
^XMB(3.9,55,2,7599,0)="""RTN"",""IBCECSA2"",83,0)"
^XMB(3.9,55,2,7600,0)="STATUS ; Edit rev stat"
^XMB(3.9,55,2,7601,0)="""RTN"",""IBCECSA2"",84,0)"
^XMB(3.9,55,2,7602,0)=" ;IBA - EOB ien"
^XMB(3.9,55,2,7603,0)="""RTN"",""IBCECSA2"",85,0)"
^XMB(3.9,55,2,7604,0)=" N DA,DIE,DR,IBOLD,DIC,DO,DD,DLAYGO,IBDA,IBFINAL,IBO,IBNEW,IBFACT"
^XMB(3.9,55,2,7605,0)="""RTN"",""IBCECSA2"",86,0)"
^XMB(3.9,55,2,7606,0)=" D FULL^VALM1"
^XMB(3.9,55,2,7607,0)="""RTN"",""IBCECSA2"",87,0)"
^XMB(3.9,55,2,7608,0)=" S DIE=""^IBM(361,"""
^XMB(3.9,55,2,7609,0)="""RTN"",""IBCECSA2"",88,0)"
^XMB(3.9,55,2,7610,0)=" S (IBDA,DA)=$P(IBA,U,2)"
^XMB(3.9,55,2,7611,0)="""RTN"",""IBCECSA2"",89,0)"
^XMB(3.9,55,2,7612,0)=" G:'DA STATUSQ"
^XMB(3.9,55,2,7613,0)="""RTN"",""IBCECSA2"",90,0)"
^XMB(3.9,55,2,7614,0)=" S IBOLD=$P($G(^IBM(361,DA,0)),U,9),IBFINAL=0,IBO=$S(IBOLD'="""":""/""_IBOLD,1:""@"")"
^XMB(3.9,55,2,7615,0)="""RTN"",""IBCECSA2"",91,0)"
^XMB(3.9,55,2,7616,0)=" S DR=""@1;.09;I +X<2 S IBFINAL=0,Y=""""@99"""";S IBFINAL=1;.1;I X="""""""" W !,""""For a final status, this field is required"""" S Y=""""@98"""";S Y=""""@99"""";@98;.09///""_IBO_"";S Y=""""@1"""";@99"""
^XMB(3.9,55,2,7617,0)="""RTN"",""IBCECSA2"",92,0)"
^XMB(3.9,55,2,7618,0)=" L +^IBM(361,IBDA):3 I '$T D  G STATUSQ"
^XMB(3.9,55,2,7619,0)="""RTN"",""IBCECSA2"",93,0)"
^XMB(3.9,55,2,7620,0)=" . W !,""Sorry, another user currently editing this entry (#""_IBDA_"")."""
^XMB(3.9,55,2,7621,0)="""RTN"",""IBCECSA2"",94,0)"
^XMB(3.9,55,2,7622,0)=" D ^DIE"
^XMB(3.9,55,2,7623,0)="""RTN"",""IBCECSA2"",95,0)"
^XMB(3.9,55,2,7624,0)=" ;"
^XMB(3.9,55,2,7625,0)="""RTN"",""IBCECSA2"",96,0)"
^XMB(3.9,55,2,7626,0)=" I $G(IBFINAL) D  ;Final status selected - enter remarks"
^XMB(3.9,55,2,7627,0)="""RTN"",""IBCECSA2"",97,0)"
^XMB(3.9,55,2,7628,0)=" . N Z"
^XMB(3.9,55,2,7629,0)="""RTN"",""IBCECSA2"",98,0)"
^XMB(3.9,55,2,7630,0)=" . S Z=IBDA"
^XMB(3.9,55,2,7631,0)="""RTN"",""IBCECSA2"",99,0)"
^XMB(3.9,55,2,7632,0)=" . N IBDA,Q,DIE,DR,DA,X,Y"
^XMB(3.9,55,2,7633,0)="""RTN"",""IBCECSA2"",100,0)"
^XMB(3.9,55,2,7634,0)=" . S IBDA(1)=Z,IBDA="""""
^XMB(3.9,55,2,7635,0)="""RTN"",""IBCECSA2"",101,0)"
^XMB(3.9,55,2,7636,0)=" . D ADDCOM(.IBDA,.DUZ,.IBCOM)"
^XMB(3.9,55,2,7637,0)="""RTN"",""IBCECSA2"",102,0)"
^XMB(3.9,55,2,7638,0)=" . I $P($G(^IBM(361,IBDA(1),0)),U,10)=""O"",'$O(^IBM(361,IBDA(1),2,+IBDA,0)) D   ; Require remarks for 'OTHER ACTION' final status"
^XMB(3.9,55,2,7639,0)="""RTN"",""IBCECSA2"",103,0)"
^XMB(3.9,55,2,7640,0)=" .. W !,""Since OTHER ACTION final status was selected, you must enter a"",!,""   comment explaining the OTHER ACTION"" D ADDCOM(.IBDA,.DUZ,.IBCOM,1)"
^XMB(3.9,55,2,7641,0)="""RTN"",""IBCECSA2"",104,0)"
^XMB(3.9,55,2,7642,0)=" .. I IBDA D"
^XMB(3.9,55,2,7643,0)="""RTN"",""IBCECSA2"",105,0)"
^XMB(3.9,55,2,7644,0)=" ... ; Delete entry without a comment"
^XMB(3.9,55,2,7645,0)="""RTN"",""IBCECSA2"",106,0)"
^XMB(3.9,55,2,7646,0)=" ... D KILLREV(.IBDA)"
^XMB(3.9,55,2,7647,0)="""RTN"",""IBCECSA2"",107,0)"
^XMB(3.9,55,2,7648,0)=" .. I '$O(^IBM(361,IBDA(1),2,+IBDA,0)) S DIE=""^IBM(361,"",DA=IBDA(1),DR="".20///@;.09///""_IBO D ^DIE W !,""The review status was not changed because no comment was entered"",! Q"
^XMB(3.9,55,2,7649,0)="""RTN"",""IBCECSA2"",108,0)"
^XMB(3.9,55,2,7650,0)=" S IBNEW=$P($G(^IBM(361,DA,0)),U,9)"
^XMB(3.9,55,2,7651,0)="""RTN"",""IBCECSA2"",109,0)"
^XMB(3.9,55,2,7652,0)=" ;if time out-no change in review status"
^XMB(3.9,55,2,7653,0)="""RTN"",""IBCECSA2"",110,0)"
^XMB(3.9,55,2,7654,0)=" S IBFACT=$P($G(^IBM(361,DA,0)),U,10)"
^XMB(3.9,55,2,7655,0)="""RTN"",""IBCECSA2"",111,0)"
^XMB(3.9,55,2,7656,0)=" I $G(IBFINAL),IBFACT="""",IBNEW>1 D  G STATUSQ"
^XMB(3.9,55,2,7657,0)="""RTN"",""IBCECSA2"",112,0)"
^XMB(3.9,55,2,7658,0)=" . W !,""The review status was not changed because no final status was selected"""
^XMB(3.9,55,2,7659,0)="""RTN"",""IBCECSA2"",113,0)"
^XMB(3.9,55,2,7660,0)=" . S DR="".09////""_IBOLD,DIE=""^IBM(361,"" D ^DIE"
^XMB(3.9,55,2,7661,0)="""RTN"",""IBCECSA2"",114,0)"
^XMB(3.9,55,2,7662,0)=" I IBNEW>1,$P(^IBM(361,DA,0),U,11) D"
^XMB(3.9,55,2,7663,0)="""RTN"",""IBCECSA2"",115,0)"
^XMB(3.9,55,2,7664,0)=" . I ""CR""'[IBFACT D"
^XMB(3.9,55,2,7665,0)="""RTN"",""IBCECSA2"",116,0)"
^XMB(3.9,55,2,7666,0)=" .. W !,""NO FURTHER ACTION WILL BE ALLOWED REGARDING THIS ELECTRONIC MESSAGE"""
^XMB(3.9,55,2,7667,0)="""RTN"",""IBCECSA2"",117,0)"
^XMB(3.9,55,2,7668,0)=" .. I $$PRINTUPD^IBCEU0("""",$P(^IBM(361,DA,0),U,11)) D  Q"
^XMB(3.9,55,2,7669,0)="""RTN"",""IBCECSA2"",118,0)"
^XMB(3.9,55,2,7670,0)=" ... W !,"" SINCE THIS CLAIM WAS PRINTED AT THE CLEARINGHOUSE"""
^XMB(3.9,55,2,7671,0)="""RTN"",""IBCECSA2"",119,0)"
^XMB(3.9,55,2,7672,0)=" ... S IBFACT=""N"""
^XMB(3.9,55,2,7673,0)="""RTN"",""IBCECSA2"",120,0)"
^XMB(3.9,55,2,7674,0)=" .. S DIR(0)=""YA"",DIR(""A"")=""IS THIS THE FINAL ELECTRONIC MESSAGE YOU EXPECT TO RECEIVE FOR THIS BILL?: "",DIR(""B"")=""NO"""
^XMB(3.9,55,2,7675,0)="""RTN"",""IBCECSA2"",121,0)"
^XMB(3.9,55,2,7676,0)=" .. S DIR(""?"",1)=""If you respond YES to this prompt, the transmit status of this bill will"",DIR(""?"",2)=""  be set to CLOSED.  No further electronic processing of this bill will be"""
^XMB(3.9,55,2,7677,0)="""RTN"",""IBCECSA2"",122,0)"
^XMB(3.9,55,2,7678,0)=" ..S DIR(""?"",3)=""  allowed.  If you respond NO to this prompt, this electronic message will"",DIR(""?"",4)=""  be filed as reviewed, but the bill's transmit status will not be changed."""
^XMB(3.9,55,2,7679,0)="""RTN"",""IBCECSA2"",123,0)"
^XMB(3.9,55,2,7680,0)=" .. S DIR(""?"",5)=""  You may wish to periodically print a list of bills with a non-final"",DIR(""?"",6)=""  (closed/cancelled/etc) status to ensure the electronic processing of all"""
^XMB(3.9,55,2,7681,0)="""RTN"",""IBCECSA2"",124,0)"
^XMB(3.9,55,2,7682,0)=" .. S DIR(""?"",7)=""  bills has been completed.  Closing the transmit bill record here will"",DIR(""?"")=""  eliminate the bill from this list."""
^XMB(3.9,55,2,7683,0)="""RTN"",""IBCECSA2"",125,0)"
^XMB(3.9,55,2,7684,0)=" .. W ! D ^DIR K DIR W !"
^XMB(3.9,55,2,7685,0)="""RTN"",""IBCECSA2"",126,0)"
^XMB(3.9,55,2,7686,0)=" .. Q:Y'=1"
^XMB(3.9,55,2,7687,0)="""RTN"",""IBCECSA2"",127,0)"
^XMB(3.9,55,2,7688,0)=" .. S DIR(""A"",1)=""SINCE YOU HAVE INDICATED THIS BILL HAS RECEIVED ITS FINAL ELECTRONIC MESSAGE"",DIR(""A"",2)=""  AND NO FURTHER ACTION WILL BE TAKEN ON IT, THE STATUS OF THE TRANSMIT"",DIR(""A"",3)=""  RECORD FOR THIS BILL WILL BE CHANGED TO CLOSED"""
^XMB(3.9,55,2,7689,0)="""RTN"",""IBCECSA2"",128,0)"
^XMB(3.9,55,2,7690,0)=" .. S DIR(""A"")=""IS THIS WHAT YOU MEANT TO DO?: "",DIR(""B"")=""YES"",DIR(0)=""YA"" W ! D ^DIR W ! K DIR"
^XMB(3.9,55,2,7691,0)="""RTN"",""IBCECSA2"",129,0)"
^XMB(3.9,55,2,7692,0)=" .. Q:Y'=1"
^XMB(3.9,55,2,7693,0)="""RTN"",""IBCECSA2"",130,0)"
^XMB(3.9,55,2,7694,0)=" .. S IBFACT=""N"""
^XMB(3.9,55,2,7695,0)="""RTN"",""IBCECSA2"",131,0)"
^XMB(3.9,55,2,7696,0)=" . I ""NCR""[IBFACT D UPDEDI^IBCEM(+$P(^IBM(361,DA,0),U,11),IBFACT) Q"
^XMB(3.9,55,2,7697,0)="""RTN"",""IBCECSA2"",132,0)"
^XMB(3.9,55,2,7698,0)=" S $P(IBX,U,12)=$S(IBNEW=1:""*"",1:"""")"
^XMB(3.9,55,2,7699,0)="""RTN"",""IBCECSA2"",133,0)"
^XMB(3.9,55,2,7700,0)=" I IBOLD'=IBNEW D  ;Note the change and who made it"
^XMB(3.9,55,2,7701,0)="""RTN"",""IBCECSA2"",134,0)"
^XMB(3.9,55,2,7702,0)=" . D NOTECHG(IBDA,0),HDR,INIT"
^XMB(3.9,55,2,7703,0)="""RTN"",""IBCECSA2"",135,0)"
^XMB(3.9,55,2,7704,0)=" L -^IBM(361,DA)"
^XMB(3.9,55,2,7705,0)="""RTN"",""IBCECSA2"",136,0)"
^XMB(3.9,55,2,7706,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,7707,0)="""RTN"",""IBCECSA2"",137,0)"
^XMB(3.9,55,2,7708,0)=" Q"
^XMB(3.9,55,2,7709,0)="""RTN"",""IBCECSA2"",138,0)"
^XMB(3.9,55,2,7710,0)=" ;"
^XMB(3.9,55,2,7711,0)="""RTN"",""IBCECSA2"",139,0)"
^XMB(3.9,55,2,7712,0)="NOTECHG(IBDA,IBAUTO,IBNTEXT,IBUSER) ; Enter who/when review stat change was entered"
^XMB(3.9,55,2,7713,0)="""RTN"",""IBCECSA2"",140,0)"
^XMB(3.9,55,2,7714,0)=" ; IBDA = ien of entry in file 361"
^XMB(3.9,55,2,7715,0)="""RTN"",""IBCECSA2"",141,0)"
^XMB(3.9,55,2,7716,0)=" ; IBAUTO = flag to say auto-review was used (1=used, 0=not used)"
^XMB(3.9,55,2,7717,0)="""RTN"",""IBCECSA2"",142,0)"
^XMB(3.9,55,2,7718,0)=" ; IBNTEXT = array containing the lines of text to store if not using the"
^XMB(3.9,55,2,7719,0)="""RTN"",""IBCECSA2"",143,0)"
^XMB(3.9,55,2,7720,0)=" ;           default text  IBNTEXT = # of lines"
^XMB(3.9,55,2,7721,0)="""RTN"",""IBCECSA2"",144,0)"
^XMB(3.9,55,2,7722,0)=" ; IBUSER = flag which says to also stuff the .02 reviewed by field"
^XMB(3.9,55,2,7723,0)="""RTN"",""IBCECSA2"",145,0)"
^XMB(3.9,55,2,7724,0)=" N IBIEN,IBTEXT,DA,X,Y,DIC,DO,DLAYGO,DD"
^XMB(3.9,55,2,7725,0)="""RTN"",""IBCECSA2"",146,0)"
^XMB(3.9,55,2,7726,0)=" S DA(1)=IBDA,DIC=""^IBM(361,""_DA(1)_"",2,"",DIC(0)=""L"",DLAYGO=361.02"
^XMB(3.9,55,2,7727,0)="""RTN"",""IBCECSA2"",147,0)"
^XMB(3.9,55,2,7728,0)=" S X=$$NOW^XLFDT"
^XMB(3.9,55,2,7729,0)="""RTN"",""IBCECSA2"",148,0)"
^XMB(3.9,55,2,7730,0)=" I $G(IBUSER),$G(DUZ) S DIC(""DR"")="".02////""_$G(DUZ)"
^XMB(3.9,55,2,7731,0)="""RTN"",""IBCECSA2"",149,0)"
^XMB(3.9,55,2,7732,0)=" D FILE^DICN K DIC,DD,DO,DLAYGO"
^XMB(3.9,55,2,7733,0)="""RTN"",""IBCECSA2"",150,0)"
^XMB(3.9,55,2,7734,0)=" Q:Y'>0"
^XMB(3.9,55,2,7735,0)="""RTN"",""IBCECSA2"",151,0)"
^XMB(3.9,55,2,7736,0)=" S DA(2)=DA(1),DA(1)=+Y,IBIEN=DA(1)_"",""_DA(2)_"","""
^XMB(3.9,55,2,7737,0)="""RTN"",""IBCECSA2"",152,0)"
^XMB(3.9,55,2,7738,0)=" I $G(IBNTEXT) D"
^XMB(3.9,55,2,7739,0)="""RTN"",""IBCECSA2"",153,0)"
^XMB(3.9,55,2,7740,0)=" . M IBTEXT=IBNTEXT"
^XMB(3.9,55,2,7741,0)="""RTN"",""IBCECSA2"",154,0)"
^XMB(3.9,55,2,7742,0)=" E  D"
^XMB(3.9,55,2,7743,0)="""RTN"",""IBCECSA2"",155,0)"
^XMB(3.9,55,2,7744,0)=" . S IBTEXT(1)=""REVIEW STATUS ""_$S($G(IBAUTO):""AUTOMATICALLY "",1:"""")_""CHANGED TO '""_$$EXTERNAL^DILFD(361,.09,,$P(^IBM(361,DA(2),0),U,9))_""'  BY: ""_$$EXTERNAL^DILFD(361.02,.02,,+$G(DUZ))"
^XMB(3.9,55,2,7745,0)="""RTN"",""IBCECSA2"",156,0)"
^XMB(3.9,55,2,7746,0)=" D WP^DIE(361.02,IBIEN,.03,,""IBTEXT"") K ^TMP(""DIERR"",$J)"
^XMB(3.9,55,2,7747,0)="""RTN"",""IBCECSA2"",157,0)"
^XMB(3.9,55,2,7748,0)=" Q"
^XMB(3.9,55,2,7749,0)="""RTN"",""IBCECSA2"",158,0)"
^XMB(3.9,55,2,7750,0)=" ;"
^XMB(3.9,55,2,7751,0)="""RTN"",""IBCECSA2"",159,0)"
^XMB(3.9,55,2,7752,0)="STATUSQ ;"
^XMB(3.9,55,2,7753,0)="""RTN"",""IBCECSA2"",160,0)"
^XMB(3.9,55,2,7754,0)=" D PAUSE^VALM1"
^XMB(3.9,55,2,7755,0)="""RTN"",""IBCECSA2"",161,0)"
^XMB(3.9,55,2,7756,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,7757,0)="""RTN"",""IBCECSA2"",162,0)"
^XMB(3.9,55,2,7758,0)=" Q"
^XMB(3.9,55,2,7759,0)="""RTN"",""IBCECSA2"",163,0)"
^XMB(3.9,55,2,7760,0)=" ;"
^XMB(3.9,55,2,7761,0)="""RTN"",""IBCECSA2"",164,0)"
^XMB(3.9,55,2,7762,0)="COM ; Enter/Edit Review Comments"
^XMB(3.9,55,2,7763,0)="""RTN"",""IBCECSA2"",165,0)"
^XMB(3.9,55,2,7764,0)=" ; IBA - EOB ien"
^XMB(3.9,55,2,7765,0)="""RTN"",""IBCECSA2"",166,0)"
^XMB(3.9,55,2,7766,0)=" N DA,DIC,X,Y,DO,DD,DLAYGO,IBDA,IB0,IBNEW,IBCOM"
^XMB(3.9,55,2,7767,0)="""RTN"",""IBCECSA2"",167,0)"
^XMB(3.9,55,2,7768,0)=" D FULL^VALM1"
^XMB(3.9,55,2,7769,0)="""RTN"",""IBCECSA2"",168,0)"
^XMB(3.9,55,2,7770,0)=" W !"
^XMB(3.9,55,2,7771,0)="""RTN"",""IBCECSA2"",169,0)"
^XMB(3.9,55,2,7772,0)=" S (IBDA(1),DA(1))=+$P(IBA,U,2)"
^XMB(3.9,55,2,7773,0)="""RTN"",""IBCECSA2"",170,0)"
^XMB(3.9,55,2,7774,0)=" L +^IBM(361,IBDA(1)):3 I '$T D  G COMQ"
^XMB(3.9,55,2,7775,0)="""RTN"",""IBCECSA2"",171,0)"
^XMB(3.9,55,2,7776,0)=" . W !,*7,""Sorry, another user currently editing this entry."""
^XMB(3.9,55,2,7777,0)="""RTN"",""IBCECSA2"",172,0)"
^XMB(3.9,55,2,7778,0)=" . D PAUSE^VALM1"
^XMB(3.9,55,2,7779,0)="""RTN"",""IBCECSA2"",173,0)"
^XMB(3.9,55,2,7780,0)=" ;"
^XMB(3.9,55,2,7781,0)="""RTN"",""IBCECSA2"",174,0)"
^XMB(3.9,55,2,7782,0)=" S Z=0 F  S Z=$O(^IBM(361,IBDA(1),2,Z)) Q:'Z  I $P($G(^(Z,0)),U,2)=DUZ S IBCOM(DUZ,Z)="""""
^XMB(3.9,55,2,7783,0)="""RTN"",""IBCECSA2"",175,0)"
^XMB(3.9,55,2,7784,0)=" S IBNEW=0"
^XMB(3.9,55,2,7785,0)="""RTN"",""IBCECSA2"",176,0)"
^XMB(3.9,55,2,7786,0)=" I '$D(IBCOM(DUZ)) D"
^XMB(3.9,55,2,7787,0)="""RTN"",""IBCECSA2"",177,0)"
^XMB(3.9,55,2,7788,0)=" . N DO,DD,DIC,DLAYGO,DIR,X,Y"
^XMB(3.9,55,2,7789,0)="""RTN"",""IBCECSA2"",178,0)"
^XMB(3.9,55,2,7790,0)=" . S DIR(0)=""YA"",DIR(""B"")=""YES"",DIR(""A"",1)=""There are no comments previously entered by you"",DIR(""A"")=""Do you want to add a new comment?: """
^XMB(3.9,55,2,7791,0)="""RTN"",""IBCECSA2"",179,0)"
^XMB(3.9,55,2,7792,0)=" . S DIR(""?"",1)=""You are only allowed to edit your own comments."""
^XMB(3.9,55,2,7793,0)="""RTN"",""IBCECSA2"",180,0)"
^XMB(3.9,55,2,7794,0)=" . S DIR(""?"")=""You may enter a new comment here."""
^XMB(3.9,55,2,7795,0)="""RTN"",""IBCECSA2"",181,0)"
^XMB(3.9,55,2,7796,0)=" . D ^DIR K DIR"
^XMB(3.9,55,2,7797,0)="""RTN"",""IBCECSA2"",182,0)"
^XMB(3.9,55,2,7798,0)=" . W !"
^XMB(3.9,55,2,7799,0)="""RTN"",""IBCECSA2"",183,0)"
^XMB(3.9,55,2,7800,0)=" . I Y'=1 S IBDA=-1 Q"
^XMB(3.9,55,2,7801,0)="""RTN"",""IBCECSA2"",184,0)"
^XMB(3.9,55,2,7802,0)=" . D ADDCOM(.IBDA,.DUZ,.IBCOM)"
^XMB(3.9,55,2,7803,0)="""RTN"",""IBCECSA2"",185,0)"
^XMB(3.9,55,2,7804,0)=" ;"
^XMB(3.9,55,2,7805,0)="""RTN"",""IBCECSA2"",186,0)"
^XMB(3.9,55,2,7806,0)=" E  D"
^XMB(3.9,55,2,7807,0)="""RTN"",""IBCECSA2"",187,0)"
^XMB(3.9,55,2,7808,0)=" . S DIC=""^IBM(361,""_IBDA(1)_"",2,"",DIC(""S"")=""I $P(^(0),U,2)=DUZ"",DIC(0)=""AEMQ"",DIC(""A"")=""Select REVIEW DATE to edit or press ENTER to add a new comment: "" D ^DIC K DIC S IBDA=+Y"
^XMB(3.9,55,2,7809,0)="""RTN"",""IBCECSA2"",188,0)"
^XMB(3.9,55,2,7810,0)=" . I IBDA>0 D  Q  ;User selected an existing entry"
^XMB(3.9,55,2,7811,0)="""RTN"",""IBCECSA2"",189,0)"
^XMB(3.9,55,2,7812,0)=" .. D ADDCOM(.IBDA,.DUZ,.IBCOM,1)"
^XMB(3.9,55,2,7813,0)="""RTN"",""IBCECSA2"",190,0)"
^XMB(3.9,55,2,7814,0)=" .. I $D(^IBM(361,IBDA(1),2,IBDA)),'$O(^IBM(361,IBDA(1),2,IBDA,1,0)) D KILLREV(.IBDA)"
^XMB(3.9,55,2,7815,0)="""RTN"",""IBCECSA2"",191,0)"
^XMB(3.9,55,2,7816,0)=" . S DIR(0)=""YAO"",DIR(""A"")=""DO YOU WANT TO ADD A NEW REVIEW COMMENT?: "",DIR(""B"")=""NO"" D ^DIR K DIR Q:Y'=1"
^XMB(3.9,55,2,7817,0)="""RTN"",""IBCECSA2"",192,0)"
^XMB(3.9,55,2,7818,0)=" . D ADDCOM(.IBDA,.DUZ,.IBCOM)"
^XMB(3.9,55,2,7819,0)="""RTN"",""IBCECSA2"",193,0)"
^XMB(3.9,55,2,7820,0)=" L -^IBM(361,IBDA(1))"
^XMB(3.9,55,2,7821,0)="""RTN"",""IBCECSA2"",194,0)"
^XMB(3.9,55,2,7822,0)=" G:IBDA'>0 COMQ"
^XMB(3.9,55,2,7823,0)="""RTN"",""IBCECSA2"",195,0)"
^XMB(3.9,55,2,7824,0)=" D PAUSE^VALM1"
^XMB(3.9,55,2,7825,0)="""RTN"",""IBCECSA2"",196,0)"
^XMB(3.9,55,2,7826,0)=" D HDR,INIT"
^XMB(3.9,55,2,7827,0)="""RTN"",""IBCECSA2"",197,0)"
^XMB(3.9,55,2,7828,0)="COMQ S VALMBCK=""R"""
^XMB(3.9,55,2,7829,0)="""RTN"",""IBCECSA2"",198,0)"
^XMB(3.9,55,2,7830,0)=" Q"
^XMB(3.9,55,2,7831,0)="""RTN"",""IBCECSA2"",199,0)"
^XMB(3.9,55,2,7832,0)=" ;"
^XMB(3.9,55,2,7833,0)="""RTN"",""IBCECSA2"",200,0)"
^XMB(3.9,55,2,7834,0)="ADDCOM(IBDA,DUZ,IBCOM,ADD) ; Add review comment to file 361"
^XMB(3.9,55,2,7835,0)="""RTN"",""IBCECSA2"",201,0)"
^XMB(3.9,55,2,7836,0)=" ; IBDA = array containing the DA references for the file add -"
^XMB(3.9,55,2,7837,0)="""RTN"",""IBCECSA2"",202,0)"
^XMB(3.9,55,2,7838,0)=" ;        pass by reference"
^XMB(3.9,55,2,7839,0)="""RTN"",""IBCECSA2"",203,0)"
^XMB(3.9,55,2,7840,0)=" ; DUZ = ien of the user"
^XMB(3.9,55,2,7841,0)="""RTN"",""IBCECSA2"",204,0)"
^XMB(3.9,55,2,7842,0)=" ; ADD = flag when set to 1 says the review date exists,"
^XMB(3.9,55,2,7843,0)="""RTN"",""IBCECSA2"",205,0)"
^XMB(3.9,55,2,7844,0)=" ;       just allow comment entry"
^XMB(3.9,55,2,7845,0)="""RTN"",""IBCECSA2"",206,0)"
^XMB(3.9,55,2,7846,0)=" ; Returns IBDA = the entry # of the comment"
^XMB(3.9,55,2,7847,0)="""RTN"",""IBCECSA2"",207,0)"
^XMB(3.9,55,2,7848,0)=" ;          and IBCOM array referencing any comments added by the user"
^XMB(3.9,55,2,7849,0)="""RTN"",""IBCECSA2"",208,0)"
^XMB(3.9,55,2,7850,0)=" ;"
^XMB(3.9,55,2,7851,0)="""RTN"",""IBCECSA2"",209,0)"
^XMB(3.9,55,2,7852,0)=" N DA,DIC,DD,DO,DLAYGO,X,Y"
^XMB(3.9,55,2,7853,0)="""RTN"",""IBCECSA2"",210,0)"
^XMB(3.9,55,2,7854,0)=" S DR=$S($G(DUZ):"".02////""_DUZ_"";"",1:"""")_"".03"""
^XMB(3.9,55,2,7855,0)="""RTN"",""IBCECSA2"",211,0)"
^XMB(3.9,55,2,7856,0)=" I '$G(ADD) D"
^XMB(3.9,55,2,7857,0)="""RTN"",""IBCECSA2"",212,0)"
^XMB(3.9,55,2,7858,0)=" . K DO,DD"
^XMB(3.9,55,2,7859,0)="""RTN"",""IBCECSA2"",213,0)"
^XMB(3.9,55,2,7860,0)=" . S DIC=""^IBM(361,""_IBDA(1)_"",2,"",DA(1)=IBDA(1),X=$$NOW^XLFDT"
^XMB(3.9,55,2,7861,0)="""RTN"",""IBCECSA2"",214,0)"
^XMB(3.9,55,2,7862,0)=" . W !,""New Review Date: ""_$$FMTE^XLFDT(X,""2Z"")"
^XMB(3.9,55,2,7863,0)="""RTN"",""IBCECSA2"",215,0)"
^XMB(3.9,55,2,7864,0)=" . S DIC(""DR"")=DR,DLAYGO=361.02"
^XMB(3.9,55,2,7865,0)="""RTN"",""IBCECSA2"",216,0)"
^XMB(3.9,55,2,7866,0)=" . S DIC(0)=""L"",DIC(""P"")=$$GETSPEC^IBEFUNC(361,2)"
^XMB(3.9,55,2,7867,0)="""RTN"",""IBCECSA2"",217,0)"
^XMB(3.9,55,2,7868,0)=" . D FILE^DICN K DIC,DD,DO,DLAYGO"
^XMB(3.9,55,2,7869,0)="""RTN"",""IBCECSA2"",218,0)"
^XMB(3.9,55,2,7870,0)=" . S IBDA=+Y"
^XMB(3.9,55,2,7871,0)="""RTN"",""IBCECSA2"",219,0)"
^XMB(3.9,55,2,7872,0)=" I IBDA>0 D"
^XMB(3.9,55,2,7873,0)="""RTN"",""IBCECSA2"",220,0)"
^XMB(3.9,55,2,7874,0)=" . I $G(ADD) S DIE=""^IBM(361,""_IBDA(1)_"",2,"",DA(1)=IBDA(1),DA=IBDA D ^DIE"
^XMB(3.9,55,2,7875,0)="""RTN"",""IBCECSA2"",221,0)"
^XMB(3.9,55,2,7876,0)=" . I '$O(^IBM(361,IBDA(1),2,IBDA,0)) D KILLREV(.IBDA) Q"
^XMB(3.9,55,2,7877,0)="""RTN"",""IBCECSA2"",222,0)"
^XMB(3.9,55,2,7878,0)=" . S IBCOM(DUZ,IBDA)="""""
^XMB(3.9,55,2,7879,0)="""RTN"",""IBCECSA2"",223,0)"
^XMB(3.9,55,2,7880,0)=" Q"
^XMB(3.9,55,2,7881,0)="""RTN"",""IBCECSA2"",224,0)"
^XMB(3.9,55,2,7882,0)=" ;"
^XMB(3.9,55,2,7883,0)="""RTN"",""IBCECSA2"",225,0)"
^XMB(3.9,55,2,7884,0)="KILLREV(IBDA) ; Deletes a review date if no comments entered"
^XMB(3.9,55,2,7885,0)="""RTN"",""IBCECSA2"",226,0)"
^XMB(3.9,55,2,7886,0)=" N DA,DIK"
^XMB(3.9,55,2,7887,0)="""RTN"",""IBCECSA2"",227,0)"
^XMB(3.9,55,2,7888,0)=" S DA=IBDA,DA(1)=IBDA(1),DIK=""^IBM(361,""_IBDA(1)_"",2,"""
^XMB(3.9,55,2,7889,0)="""RTN"",""IBCECSA2"",228,0)"
^XMB(3.9,55,2,7890,0)=" K IBCOM(DUZ,IBDA)"
^XMB(3.9,55,2,7891,0)="""RTN"",""IBCECSA2"",229,0)"
^XMB(3.9,55,2,7892,0)=" D ^DIK"
^XMB(3.9,55,2,7893,0)="""RTN"",""IBCECSA2"",230,0)"
^XMB(3.9,55,2,7894,0)=" Q"
^XMB(3.9,55,2,7895,0)="""RTN"",""IBCECSA2"",231,0)"
^XMB(3.9,55,2,7896,0)=" ;"
^XMB(3.9,55,2,7897,0)="""RTN"",""IBCECSA3"")"
^XMB(3.9,55,2,7898,0)="0^9^B26519666^B14798186"
^XMB(3.9,55,2,7899,0)="""RTN"",""IBCECSA3"",1,0)"
^XMB(3.9,55,2,7900,0)="IBCECSA3 ;ALB/CXW - CLAIMS STATUS AWAITING RESOLUTION REPORT ;23-JUL-99"
^XMB(3.9,55,2,7901,0)="""RTN"",""IBCECSA3"",2,0)"
^XMB(3.9,55,2,7902,0)=" ;;2.0;INTEGRATED BILLING;**137,320**;21-MAR-94"
^XMB(3.9,55,2,7903,0)="""RTN"",""IBCECSA3"",3,0)"
^XMB(3.9,55,2,7904,0)=" Q"
^XMB(3.9,55,2,7905,0)="""RTN"",""IBCECSA3"",4,0)"
^XMB(3.9,55,2,7906,0)="EN ; Report of claims status awaiting resolution"
^XMB(3.9,55,2,7907,0)="""RTN"",""IBCECSA3"",5,0)"
^XMB(3.9,55,2,7908,0)=" D FULL^VALM1"
^XMB(3.9,55,2,7909,0)="""RTN"",""IBCECSA3"",6,0)"
^XMB(3.9,55,2,7910,0)=" W !!,""You will need a 132 column printer for this report!"",!"
^XMB(3.9,55,2,7911,0)="""RTN"",""IBCECSA3"",7,0)"
^XMB(3.9,55,2,7912,0)=" ;"
^XMB(3.9,55,2,7913,0)="""RTN"",""IBCECSA3"",8,0)"
^XMB(3.9,55,2,7914,0)=" N %ZIS,ZTSAVE,ZTRTN,ZTDESC"
^XMB(3.9,55,2,7915,0)="""RTN"",""IBCECSA3"",9,0)"
^XMB(3.9,55,2,7916,0)=" S %ZIS=""QM"" D ^%ZIS Q:POP"
^XMB(3.9,55,2,7917,0)="""RTN"",""IBCECSA3"",10,0)"
^XMB(3.9,55,2,7918,0)=" I $D(IO(""Q"")) K IO(""Q"") D  Q"
^XMB(3.9,55,2,7919,0)="""RTN"",""IBCECSA3"",11,0)"
^XMB(3.9,55,2,7920,0)=" . S ZTRTN=""LIST^IBCECSA3"""
^XMB(3.9,55,2,7921,0)="""RTN"",""IBCECSA3"",12,0)"
^XMB(3.9,55,2,7922,0)=" . S ZTSAVE(""IBSORT1"")="""""
^XMB(3.9,55,2,7923,0)="""RTN"",""IBCECSA3"",13,0)"
^XMB(3.9,55,2,7924,0)=" . S ZTSAVE(""IBSORT2"")="""""
^XMB(3.9,55,2,7925,0)="""RTN"",""IBCECSA3"",14,0)"
^XMB(3.9,55,2,7926,0)=" . S ZTSAVE(""IBSORT3"")="""""
^XMB(3.9,55,2,7927,0)="""RTN"",""IBCECSA3"",15,0)"
^XMB(3.9,55,2,7928,0)=" . S ZTSAVE(""IBSORTOR"")="""""
^XMB(3.9,55,2,7929,0)="""RTN"",""IBCECSA3"",16,0)"
^XMB(3.9,55,2,7930,0)=" . S ZTSAVE(""^TMP(""""IBCECSB"""",$J,"")="""""
^XMB(3.9,55,2,7931,0)="""RTN"",""IBCECSA3"",17,0)"
^XMB(3.9,55,2,7932,0)=" . S ZTDESC=""IB -Claims Status Awaiting Resolution Report"" D ^%ZTLOAD K ZTSK D HOME^%ZIS"
^XMB(3.9,55,2,7933,0)="""RTN"",""IBCECSA3"",18,0)"
^XMB(3.9,55,2,7934,0)=" U IO"
^XMB(3.9,55,2,7935,0)="""RTN"",""IBCECSA3"",19,0)"
^XMB(3.9,55,2,7936,0)="LIST ; display"
^XMB(3.9,55,2,7937,0)="""RTN"",""IBCECSA3"",20,0)"
^XMB(3.9,55,2,7938,0)=" N IBSTOP,X,IBPAGE,IBX,IBDIV,IBDA,IBPAY,IB,IBZ,IBZFT,IBFST,IBX2"
^XMB(3.9,55,2,7939,0)="""RTN"",""IBCECSA3"",21,0)"
^XMB(3.9,55,2,7940,0)=" W:$E(IOST,1,2)[""C-"" @IOF ;Only initial form feed for print to screen"
^XMB(3.9,55,2,7941,0)="""RTN"",""IBCECSA3"",22,0)"
^XMB(3.9,55,2,7942,0)=" S (IBSTOP,IBPAGE,IBFST,IBDIV)=0"
^XMB(3.9,55,2,7943,0)="""RTN"",""IBCECSA3"",23,0)"
^XMB(3.9,55,2,7944,0)=" I IBSORT1=""D"" S IBDIV=1"
^XMB(3.9,55,2,7945,0)="""RTN"",""IBCECSA3"",24,0)"
^XMB(3.9,55,2,7946,0)=" I '$D(^TMP(""IBCECSB"",$J)) D  G LISTQ"
^XMB(3.9,55,2,7947,0)="""RTN"",""IBCECSA3"",25,0)"
^XMB(3.9,55,2,7948,0)=" . D HDR1 W !,""No entries found for this report"""
^XMB(3.9,55,2,7949,0)="""RTN"",""IBCECSA3"",26,0)"
^XMB(3.9,55,2,7950,0)=" S IBX="""" F  S IBX=$O(^TMP(""IBCECSB"",$J,IBX)) Q:IBX=""""!IBSTOP  S IBX2="""" F  S IBX2=$O(^TMP(""IBCECSB"",$J,IBX,IBX2)) Q:IBX2=""""!IBSTOP  S IBX3="""" F  S IBX3=$O(^TMP(""IBCECSB"",$J,IBX,IBX2,IBX3)) Q:IBX3=""""!IBSTOP  D"
^XMB(3.9,55,2,7951,0)="""RTN"",""IBCECSA3"",27,0)"
^XMB(3.9,55,2,7952,0)=" . I 'IBFST S IBPAY=$$IBPAY(IBX,IBX2,IBX3) D HDR1 S:'IBDIV IBFST=1 Q:IBSTOP"
^XMB(3.9,55,2,7953,0)="""RTN"",""IBCECSA3"",28,0)"
^XMB(3.9,55,2,7954,0)=" . S IBDA=0 F  S IBDA=$O(^TMP(""IBCECSB"",$J,IBX,IBX2,IBX3,IBDA)) Q:'IBDA!IBSTOP  S IB=$G(^TMP(""IBCECSB"",$J,IBX,IBX2,IBX3,IBDA)) D"
^XMB(3.9,55,2,7955,0)="""RTN"",""IBCECSA3"",29,0)"
^XMB(3.9,55,2,7956,0)=" .. I ($Y+5)>IOSL D HDR1 Q:IBSTOP"
^XMB(3.9,55,2,7957,0)="""RTN"",""IBCECSA3"",30,0)"
^XMB(3.9,55,2,7958,0)=" .. W $$BN1^PRCAFN(+IB),?13,$E($P(IB,U,2),1,25),?40,$E($P(IB,U,3),1,30),?72,$P($P(IB,U,4),""~""),?78,$$DAT1^IBOUTL($P(IB,U,5)),?88,$E($P(IB,U,7),1,10),?100,""$""_$J($P(IB,U,6),0,2),?110,$P(IB,U,10),?122,$P(IB,U,11),!"
^XMB(3.9,55,2,7959,0)="""RTN"",""IBCECSA3"",31,0)"
^XMB(3.9,55,2,7960,0)=" .. W "" FORM TYPE: ""_$P($G(^IBE(353,$P($G(^DGCR(399,+IB,0)),U,19),0)),U),!"
^XMB(3.9,55,2,7961,0)="""RTN"",""IBCECSA3"",32,0)"
^XMB(3.9,55,2,7962,0)=" .. I 'IBDIV S X="" DIVISION: ""_$P(IB,U,8) W X,$J("" "",40-$L(X))_""AUTHORIZING BILLER: ""_$P($P(IB,U,9),""~"",1),!"
^XMB(3.9,55,2,7963,0)="""RTN"",""IBCECSA3"",33,0)"
^XMB(3.9,55,2,7964,0)=" .. W "" MESSAGE TEXT: "" S IBZFT=0"
^XMB(3.9,55,2,7965,0)="""RTN"",""IBCECSA3"",34,0)"
^XMB(3.9,55,2,7966,0)=" .. S IBZ=0 F  S IBZ=$O(^IBM(361,IBDA,1,IBZ)) Q:'IBZ  D  Q:IBSTOP"
^XMB(3.9,55,2,7967,0)="""RTN"",""IBCECSA3"",35,0)"
^XMB(3.9,55,2,7968,0)=" ... W:'IBZFT ?15 S X=$G(^IBM(361,IBDA,1,IBZ,0))"
^XMB(3.9,55,2,7969,0)="""RTN"",""IBCECSA3"",36,0)"
^XMB(3.9,55,2,7970,0)=" ... F I=1:131:$L(X) W "" ""_$E(X,I,I+130),!"
^XMB(3.9,55,2,7971,0)="""RTN"",""IBCECSA3"",37,0)"
^XMB(3.9,55,2,7972,0)=" ... S IBZFT=1"
^XMB(3.9,55,2,7973,0)="""RTN"",""IBCECSA3"",38,0)"
^XMB(3.9,55,2,7974,0)=" ... I ($Y+5)>IOSL D HDR1 Q:IBSTOP"
^XMB(3.9,55,2,7975,0)="""RTN"",""IBCECSA3"",39,0)"
^XMB(3.9,55,2,7976,0)=" .. W !"
^XMB(3.9,55,2,7977,0)="""RTN"",""IBCECSA3"",40,0)"
^XMB(3.9,55,2,7978,0)=" G:IBSTOP LISTQ"
^XMB(3.9,55,2,7979,0)="""RTN"",""IBCECSA3"",41,0)"
^XMB(3.9,55,2,7980,0)=" I $E(IOST,1,2)[""C-"" K DIR S DIR(0)=""E"" D ^DIR K DIR"
^XMB(3.9,55,2,7981,0)="""RTN"",""IBCECSA3"",42,0)"
^XMB(3.9,55,2,7982,0)="LISTQ I $D(ZTQUEUED) S ZTREQ=""@"" Q"
^XMB(3.9,55,2,7983,0)="""RTN"",""IBCECSA3"",43,0)"
^XMB(3.9,55,2,7984,0)=" W ! D ^%ZISC"
^XMB(3.9,55,2,7985,0)="""RTN"",""IBCECSA3"",44,0)"
^XMB(3.9,55,2,7986,0)=" Q"
^XMB(3.9,55,2,7987,0)="""RTN"",""IBCECSA3"",45,0)"
^XMB(3.9,55,2,7988,0)="IBPAY(IBX,IBX2,IBX3) ; return biller name"
^XMB(3.9,55,2,7989,0)="""RTN"",""IBCECSA3"",46,0)"
^XMB(3.9,55,2,7990,0)=" N X"
^XMB(3.9,55,2,7991,0)="""RTN"",""IBCECSA3"",47,0)"
^XMB(3.9,55,2,7992,0)=" S X=$O(^TMP(""IBCECSB"",$J,IBX,IBX2,IBX3,0))"
^XMB(3.9,55,2,7993,0)="""RTN"",""IBCECSA3"",48,0)"
^XMB(3.9,55,2,7994,0)=" S X=$G(^TMP(""IBCECSB"",$J,IBX,IBX2,IBX3,X))"
^XMB(3.9,55,2,7995,0)="""RTN"",""IBCECSA3"",49,0)"
^XMB(3.9,55,2,7996,0)=" Q $P($P(X,U,9),""~"",1)"
^XMB(3.9,55,2,7997,0)="""RTN"",""IBCECSA3"",50,0)"
^XMB(3.9,55,2,7998,0)="HDR1 ;"
^XMB(3.9,55,2,7999,0)="""RTN"",""IBCECSA3"",51,0)"
^XMB(3.9,55,2,8000,0)=" N DIR,Y"
^XMB(3.9,55,2,8001,0)="""RTN"",""IBCECSA3"",52,0)"
^XMB(3.9,55,2,8002,0)=" I IBPAGE D  Q:IBSTOP"
^XMB(3.9,55,2,8003,0)="""RTN"",""IBCECSA3"",53,0)"
^XMB(3.9,55,2,8004,0)=" . I $E(IOST,1,2)[""C-"" K DIR S DIR(0)=""E"" D ^DIR K DIR S IBSTOP=('Y) Q:IBSTOP"
^XMB(3.9,55,2,8005,0)="""RTN"",""IBCECSA3"",54,0)"
^XMB(3.9,55,2,8006,0)=" . W @IOF"
^XMB(3.9,55,2,8007,0)="""RTN"",""IBCECSA3"",55,0)"
^XMB(3.9,55,2,8008,0)=" S IBPAGE=IBPAGE+1"
^XMB(3.9,55,2,8009,0)="""RTN"",""IBCECSA3"",56,0)"
^XMB(3.9,55,2,8010,0)=" W !,""Sort 1: "",$$SD^IBCECSA(IBSORT1)"
^XMB(3.9,55,2,8011,0)="""RTN"",""IBCECSA3"",57,0)"
^XMB(3.9,55,2,8012,0)=" W ?46,""Claims Status Awaiting Resolution Report"",?120,$J(""Page: ""_IBPAGE,11)"
^XMB(3.9,55,2,8013,0)="""RTN"",""IBCECSA3"",58,0)"
^XMB(3.9,55,2,8014,0)=" W !,""Sort 2: "",$S($G(IBSORT2)'="""":$$SD^IBCECSA(IBSORT2),1:""n/a"")"
^XMB(3.9,55,2,8015,0)="""RTN"",""IBCECSA3"",59,0)"
^XMB(3.9,55,2,8016,0)=" W ?104,$J(""Run Date: ""_$$HTE^XLFDT($H,""2Z""),27)"
^XMB(3.9,55,2,8017,0)="""RTN"",""IBCECSA3"",60,0)"
^XMB(3.9,55,2,8018,0)=" W !,""Sort 3: "",$S($G(IBSORT3)'="""":$$SD^IBCECSA(IBSORT3),1:""n/a"")"
^XMB(3.9,55,2,8019,0)="""RTN"",""IBCECSA3"",61,0)"
^XMB(3.9,55,2,8020,0)=" I IBDIV W !!,""Division: ""_$S($G(IBX)=0:"""",1:$G(IBX)),!,""Authorizing Biller: ""_$G(IBPAY)"
^XMB(3.9,55,2,8021,0)="""RTN"",""IBCECSA3"",62,0)"
^XMB(3.9,55,2,8022,0)=" W !,?72,""Last"",?78,""Date of"",?88,""Location"",?100,""Current"",?110,""Source of"",?122,""Days Msg"""
^XMB(3.9,55,2,8023,0)="""RTN"",""IBCECSA3"",63,0)"
^XMB(3.9,55,2,8024,0)=" W !,""Bill #"",?13,""Payer Name"",?40,""Patient Name"",?72,""4 SSN"",?78,""Service"",?88,""of Service"",?100,""Balance"",?110,""Message"",?122,""Pending"""
^XMB(3.9,55,2,8025,0)="""RTN"",""IBCECSA3"",64,0)"
^XMB(3.9,55,2,8026,0)=" W !,$TR($J("""",132),"" "",""-""),!"
^XMB(3.9,55,2,8027,0)="""RTN"",""IBCECSA3"",65,0)"
^XMB(3.9,55,2,8028,0)=" Q"
^XMB(3.9,55,2,8029,0)="""RTN"",""IBCECSA3"",66,0)"
^XMB(3.9,55,2,8030,0)=" ;"
^XMB(3.9,55,2,8031,0)="""RTN"",""IBCECSA3"",67,0)"
^XMB(3.9,55,2,8032,0)=" ;"
^XMB(3.9,55,2,8033,0)="""RTN"",""IBCECSA3"",68,0)"
^XMB(3.9,55,2,8034,0)="RESORT ; CSA screen re-sort action"
^XMB(3.9,55,2,8035,0)="""RTN"",""IBCECSA3"",69,0)"
^XMB(3.9,55,2,8036,0)=" NEW DIR,X,Y,Z,IBSAVE,VALMQUIT,IBCURR"
^XMB(3.9,55,2,8037,0)="""RTN"",""IBCECSA3"",70,0)"
^XMB(3.9,55,2,8038,0)=" D FULL^VALM1 S VALMBCK=""R"""
^XMB(3.9,55,2,8039,0)="""RTN"",""IBCECSA3"",71,0)"
^XMB(3.9,55,2,8040,0)=" W !!?2,""The CSA screen is currently sorted in the following manner:"""
^XMB(3.9,55,2,8041,0)="""RTN"",""IBCECSA3"",72,0)"
^XMB(3.9,55,2,8042,0)=" W !!?9,""Primary Sort:  "",$S($G(IBSORT1)'="""":$$SD^IBCECSA(IBSORT1),1:""n/a"")"
^XMB(3.9,55,2,8043,0)="""RTN"",""IBCECSA3"",73,0)"
^XMB(3.9,55,2,8044,0)=" W !?7,""Secondary Sort:  "",$S($G(IBSORT2)'="""":$$SD^IBCECSA(IBSORT2),1:""n/a"")"
^XMB(3.9,55,2,8045,0)="""RTN"",""IBCECSA3"",74,0)"
^XMB(3.9,55,2,8046,0)=" W !?8,""Tertiary Sort:  "",$S($G(IBSORT3)'="""":$$SD^IBCECSA(IBSORT3),1:""n/a"")"
^XMB(3.9,55,2,8047,0)="""RTN"",""IBCECSA3"",75,0)"
^XMB(3.9,55,2,8048,0)=" ;"
^XMB(3.9,55,2,8049,0)="""RTN"",""IBCECSA3"",76,0)"
^XMB(3.9,55,2,8050,0)=" W !"
^XMB(3.9,55,2,8051,0)="""RTN"",""IBCECSA3"",77,0)"
^XMB(3.9,55,2,8052,0)=" S DIR(0)=""Y"",DIR(""A"")=""Would you like to change the sort criteria"""
^XMB(3.9,55,2,8053,0)="""RTN"",""IBCECSA3"",78,0)"
^XMB(3.9,55,2,8054,0)=" S DIR(""B"")=""Yes"" D ^DIR K DIR"
^XMB(3.9,55,2,8055,0)="""RTN"",""IBCECSA3"",79,0)"
^XMB(3.9,55,2,8056,0)=" I 'Y G RESORTX"
^XMB(3.9,55,2,8057,0)="""RTN"",""IBCECSA3"",80,0)"
^XMB(3.9,55,2,8058,0)=" ;"
^XMB(3.9,55,2,8059,0)="""RTN"",""IBCECSA3"",81,0)"
^XMB(3.9,55,2,8060,0)=" ; save the old sort criteria"
^XMB(3.9,55,2,8061,0)="""RTN"",""IBCECSA3"",82,0)"
^XMB(3.9,55,2,8062,0)=" S IBSAVE=$G(IBSORT1)_U_$G(IBSORT2)_U_$G(IBSORT3)"
^XMB(3.9,55,2,8063,0)="""RTN"",""IBCECSA3"",83,0)"
^XMB(3.9,55,2,8064,0)=" S Z="""" F  S Z=$O(IBSORTOR(Z)) Q:Z=""""  S IBSAVE=IBSAVE_U_Z_U_IBSORTOR(Z)"
^XMB(3.9,55,2,8065,0)="""RTN"",""IBCECSA3"",84,0)"
^XMB(3.9,55,2,8066,0)=" ;"
^XMB(3.9,55,2,8067,0)="""RTN"",""IBCECSA3"",85,0)"
^XMB(3.9,55,2,8068,0)=" W !"
^XMB(3.9,55,2,8069,0)="""RTN"",""IBCECSA3"",86,0)"
^XMB(3.9,55,2,8070,0)=" K IBSORTOR"
^XMB(3.9,55,2,8071,0)="""RTN"",""IBCECSA3"",87,0)"
^XMB(3.9,55,2,8072,0)=" D SORT^IBCECSA(1,$P(IBSAVE,U,1)) I $G(VALMQUIT) G RES1"
^XMB(3.9,55,2,8073,0)="""RTN"",""IBCECSA3"",88,0)"
^XMB(3.9,55,2,8074,0)=" D SORT^IBCECSA(2) I $G(VALMQUIT) G RES1"
^XMB(3.9,55,2,8075,0)="""RTN"",""IBCECSA3"",89,0)"
^XMB(3.9,55,2,8076,0)=" I $G(IBSORT2)'="""" D SORT^IBCECSA(3) I $G(VALMQUIT) G RES1"
^XMB(3.9,55,2,8077,0)="""RTN"",""IBCECSA3"",90,0)"
^XMB(3.9,55,2,8078,0)="RES1 ;"
^XMB(3.9,55,2,8079,0)="""RTN"",""IBCECSA3"",91,0)"
^XMB(3.9,55,2,8080,0)=" I $G(IBSORT1)="""" S IBSORT1=$P(IBSAVE,U,1)   ; need at least one"
^XMB(3.9,55,2,8081,0)="""RTN"",""IBCECSA3"",92,0)"
^XMB(3.9,55,2,8082,0)=" ;"
^XMB(3.9,55,2,8083,0)="""RTN"",""IBCECSA3"",93,0)"
^XMB(3.9,55,2,8084,0)=" ; see if the sort criteria changed"
^XMB(3.9,55,2,8085,0)="""RTN"",""IBCECSA3"",94,0)"
^XMB(3.9,55,2,8086,0)=" S IBCURR=$G(IBSORT1)_U_$G(IBSORT2)_U_$G(IBSORT3)"
^XMB(3.9,55,2,8087,0)="""RTN"",""IBCECSA3"",95,0)"
^XMB(3.9,55,2,8088,0)=" S Z="""" F  S Z=$O(IBSORTOR(Z)) Q:Z=""""  S IBCURR=IBCURR_U_Z_U_IBSORTOR(Z)"
^XMB(3.9,55,2,8089,0)="""RTN"",""IBCECSA3"",96,0)"
^XMB(3.9,55,2,8090,0)=" I IBSAVE=IBCURR G RESORTX    ; no sort changes made at all"
^XMB(3.9,55,2,8091,0)="""RTN"",""IBCECSA3"",97,0)"
^XMB(3.9,55,2,8092,0)=" ;"
^XMB(3.9,55,2,8093,0)="""RTN"",""IBCECSA3"",98,0)"
^XMB(3.9,55,2,8094,0)=" ; time to rebuild the list because sorts have changed"
^XMB(3.9,55,2,8095,0)="""RTN"",""IBCECSA3"",99,0)"
^XMB(3.9,55,2,8096,0)=" I $G(IBDAYS)="""" S IBDAYS=0"
^XMB(3.9,55,2,8097,0)="""RTN"",""IBCECSA3"",100,0)"
^XMB(3.9,55,2,8098,0)=" I $G(IBSEV)="""" S IBSEV=""R"""
^XMB(3.9,55,2,8099,0)="""RTN"",""IBCECSA3"",101,0)"
^XMB(3.9,55,2,8100,0)=" D BLD^IBCECSA1"
^XMB(3.9,55,2,8101,0)="""RTN"",""IBCECSA3"",102,0)"
^XMB(3.9,55,2,8102,0)=" S VALMBCK=""R"",VALMBG=1"
^XMB(3.9,55,2,8103,0)="""RTN"",""IBCECSA3"",103,0)"
^XMB(3.9,55,2,8104,0)=" ;"
^XMB(3.9,55,2,8105,0)="""RTN"",""IBCECSA3"",104,0)"
^XMB(3.9,55,2,8106,0)="RESORTX ;"
^XMB(3.9,55,2,8107,0)="""RTN"",""IBCECSA3"",105,0)"
^XMB(3.9,55,2,8108,0)=" Q"
^XMB(3.9,55,2,8109,0)="""RTN"",""IBCECSA3"",106,0)"
^XMB(3.9,55,2,8110,0)=" ;"
^XMB(3.9,55,2,8111,0)="""RTN"",""IBCECSA3"",107,0)"
^XMB(3.9,55,2,8112,0)="MCS ; Link to the Multiple CSA Message Management option"
^XMB(3.9,55,2,8113,0)="""RTN"",""IBCECSA3"",108,0)"
^XMB(3.9,55,2,8114,0)=" NEW IBCSAMCS S IBCSAMCS=1"
^XMB(3.9,55,2,8115,0)="""RTN"",""IBCECSA3"",109,0)"
^XMB(3.9,55,2,8116,0)=" D FULL^VALM1 S VALMBCK=""R"""
^XMB(3.9,55,2,8117,0)="""RTN"",""IBCECSA3"",110,0)"
^XMB(3.9,55,2,8118,0)=" I '$$KCHK^XUSRB(""IB MESSAGE MANAGEMENT"") D  G MCSX"
^XMB(3.9,55,2,8119,0)="""RTN"",""IBCECSA3"",111,0)"
^XMB(3.9,55,2,8120,0)=" . W !!?5,""You must hold the IB MESSAGE MANAGEMENT key to access this option."""
^XMB(3.9,55,2,8121,0)="""RTN"",""IBCECSA3"",112,0)"
^XMB(3.9,55,2,8122,0)=" . D PAUSE^VALM1"
^XMB(3.9,55,2,8123,0)="""RTN"",""IBCECSA3"",113,0)"
^XMB(3.9,55,2,8124,0)=" . Q"
^XMB(3.9,55,2,8125,0)="""RTN"",""IBCECSA3"",114,0)"
^XMB(3.9,55,2,8126,0)=" ;"
^XMB(3.9,55,2,8127,0)="""RTN"",""IBCECSA3"",115,0)"
^XMB(3.9,55,2,8128,0)=" D      ; call the MCS screen"
^XMB(3.9,55,2,8129,0)="""RTN"",""IBCECSA3"",116,0)"
^XMB(3.9,55,2,8130,0)=" . NEW IBSORT1,IBSORT2,IBSORT3,IBDAYS,IBSEV     ; protect CSA vars"
^XMB(3.9,55,2,8131,0)="""RTN"",""IBCECSA3"",117,0)"
^XMB(3.9,55,2,8132,0)=" . D EN^IBCEMCL"
^XMB(3.9,55,2,8133,0)="""RTN"",""IBCECSA3"",118,0)"
^XMB(3.9,55,2,8134,0)=" . Q"
^XMB(3.9,55,2,8135,0)="""RTN"",""IBCECSA3"",119,0)"
^XMB(3.9,55,2,8136,0)=" ;"
^XMB(3.9,55,2,8137,0)="""RTN"",""IBCECSA3"",120,0)"
^XMB(3.9,55,2,8138,0)=" I $G(IBCSAMCS)=2 D BLD^IBCECSA1 S VALMBG=1     ; rebuild CSA"
^XMB(3.9,55,2,8139,0)="""RTN"",""IBCECSA3"",121,0)"
^XMB(3.9,55,2,8140,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,8141,0)="""RTN"",""IBCECSA3"",122,0)"
^XMB(3.9,55,2,8142,0)="MCSX ;"
^XMB(3.9,55,2,8143,0)="""RTN"",""IBCECSA3"",123,0)"
^XMB(3.9,55,2,8144,0)=" Q"
^XMB(3.9,55,2,8145,0)="""RTN"",""IBCECSA3"",124,0)"
^XMB(3.9,55,2,8146,0)=" ;"
^XMB(3.9,55,2,8147,0)="""RTN"",""IBCECSA4"")"
^XMB(3.9,55,2,8148,0)="0^12^B56824408^B55019134"
^XMB(3.9,55,2,8149,0)="""RTN"",""IBCECSA4"",1,0)"
^XMB(3.9,55,2,8150,0)="IBCECSA4 ;ALB/CXW - IB CLAIMS STATUS AWAITING RESOLUTION SCREEN ;5-AUG-1999"
^XMB(3.9,55,2,8151,0)="""RTN"",""IBCECSA4"",2,0)"
^XMB(3.9,55,2,8152,0)=" ;;2.0;INTEGRATED BILLING;**137,155,320**;21-MAR-1994"
^XMB(3.9,55,2,8153,0)="""RTN"",""IBCECSA4"",3,0)"
^XMB(3.9,55,2,8154,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,8155,0)="""RTN"",""IBCECSA4"",4,0)"
^XMB(3.9,55,2,8156,0)=" ;"
^XMB(3.9,55,2,8157,0)="""RTN"",""IBCECSA4"",5,0)"
^XMB(3.9,55,2,8158,0)="SMSG ;select message"
^XMB(3.9,55,2,8159,0)="""RTN"",""IBCECSA4"",6,0)"
^XMB(3.9,55,2,8160,0)=" N IBCOM,IBX,IBDAX,IBA"
^XMB(3.9,55,2,8161,0)="""RTN"",""IBCECSA4"",7,0)"
^XMB(3.9,55,2,8162,0)=" D SEL(.IBDAX,1)"
^XMB(3.9,55,2,8163,0)="""RTN"",""IBCECSA4"",8,0)"
^XMB(3.9,55,2,8164,0)=" I $O(IBDAX(""""))="""" G SMSGQ"
^XMB(3.9,55,2,8165,0)="""RTN"",""IBCECSA4"",9,0)"
^XMB(3.9,55,2,8166,0)=" S IBDAX=+$O(IBDAX(0)),IBA=$G(IBDAX(IBDAX))"
^XMB(3.9,55,2,8167,0)="""RTN"",""IBCECSA4"",10,0)"
^XMB(3.9,55,2,8168,0)=" S IBX=$G(^TMP(""IBCECSB"",$J,$P(IBA,U,3),$P(IBA,U,4),$P(IBA,U,6),$P(IBA,U,2)))"
^XMB(3.9,55,2,8169,0)="""RTN"",""IBCECSA4"",11,0)"
^XMB(3.9,55,2,8170,0)=" I IBX'="""" D"
^XMB(3.9,55,2,8171,0)="""RTN"",""IBCECSA4"",12,0)"
^XMB(3.9,55,2,8172,0)=" . Q:'$$LOCK^IBCEU0(361,$P(IBA,U,2))"
^XMB(3.9,55,2,8173,0)="""RTN"",""IBCECSA4"",13,0)"
^XMB(3.9,55,2,8174,0)=" . D EN^VALM(""IBCEM CSA MSG"")"
^XMB(3.9,55,2,8175,0)="""RTN"",""IBCECSA4"",14,0)"
^XMB(3.9,55,2,8176,0)=" . D UNLOCK^IBCEU0(361,$P(IBA,U,2))"
^XMB(3.9,55,2,8177,0)="""RTN"",""IBCECSA4"",15,0)"
^XMB(3.9,55,2,8178,0)="SMSGQ S VALMBCK=""R"""
^XMB(3.9,55,2,8179,0)="""RTN"",""IBCECSA4"",16,0)"
^XMB(3.9,55,2,8180,0)=" D:$O(IBDAX(0)) BLD^IBCECSA1"
^XMB(3.9,55,2,8181,0)="""RTN"",""IBCECSA4"",17,0)"
^XMB(3.9,55,2,8182,0)=" Q"
^XMB(3.9,55,2,8183,0)="""RTN"",""IBCECSA4"",18,0)"
^XMB(3.9,55,2,8184,0)=" ;"
^XMB(3.9,55,2,8185,0)="""RTN"",""IBCECSA4"",19,0)"
^XMB(3.9,55,2,8186,0)="COB ; COB management link from CSA"
^XMB(3.9,55,2,8187,0)="""RTN"",""IBCECSA4"",20,0)"
^XMB(3.9,55,2,8188,0)=" N IBA,IBX"
^XMB(3.9,55,2,8189,0)="""RTN"",""IBCECSA4"",21,0)"
^XMB(3.9,55,2,8190,0)=" ;IBX,IBA are killed during cancel execution"
^XMB(3.9,55,2,8191,0)="""RTN"",""IBCECSA4"",22,0)"
^XMB(3.9,55,2,8192,0)=" D FULL^VALM1"
^XMB(3.9,55,2,8193,0)="""RTN"",""IBCECSA4"",23,0)"
^XMB(3.9,55,2,8194,0)=" D EN^IBCECOB"
^XMB(3.9,55,2,8195,0)="""RTN"",""IBCECSA4"",24,0)"
^XMB(3.9,55,2,8196,0)=" I $D(IBFASTXT) K IBFASTXT"
^XMB(3.9,55,2,8197,0)="""RTN"",""IBCECSA4"",25,0)"
^XMB(3.9,55,2,8198,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,8199,0)="""RTN"",""IBCECSA4"",26,0)"
^XMB(3.9,55,2,8200,0)=" Q"
^XMB(3.9,55,2,8201,0)="""RTN"",""IBCECSA4"",27,0)"
^XMB(3.9,55,2,8202,0)=" ;"
^XMB(3.9,55,2,8203,0)="""RTN"",""IBCECSA4"",28,0)"
^XMB(3.9,55,2,8204,0)="EDI ;History detail display"
^XMB(3.9,55,2,8205,0)="""RTN"",""IBCECSA4"",29,0)"
^XMB(3.9,55,2,8206,0)=" N IBIFN,IBX,IBA"
^XMB(3.9,55,2,8207,0)="""RTN"",""IBCECSA4"",30,0)"
^XMB(3.9,55,2,8208,0)=" D FULL^VALM1"
^XMB(3.9,55,2,8209,0)="""RTN"",""IBCECSA4"",31,0)"
^XMB(3.9,55,2,8210,0)=" S IBDAX=$O(IBDAX(0)),IBIFN=+$G(IBDAX(IBDAX))"
^XMB(3.9,55,2,8211,0)="""RTN"",""IBCECSA4"",32,0)"
^XMB(3.9,55,2,8212,0)=" D EDI2^IBCECOB2(IBIFN)"
^XMB(3.9,55,2,8213,0)="""RTN"",""IBCECSA4"",33,0)"
^XMB(3.9,55,2,8214,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,8215,0)="""RTN"",""IBCECSA4"",34,0)"
^XMB(3.9,55,2,8216,0)=" Q"
^XMB(3.9,55,2,8217,0)="""RTN"",""IBCECSA4"",35,0)"
^XMB(3.9,55,2,8218,0)="EOB ;View an EOB"
^XMB(3.9,55,2,8219,0)="""RTN"",""IBCECSA4"",36,0)"
^XMB(3.9,55,2,8220,0)=" N IBIFN,IBA,IBX"
^XMB(3.9,55,2,8221,0)="""RTN"",""IBCECSA4"",37,0)"
^XMB(3.9,55,2,8222,0)=" D FULL^VALM1"
^XMB(3.9,55,2,8223,0)="""RTN"",""IBCECSA4"",38,0)"
^XMB(3.9,55,2,8224,0)=" S IBDAX=$O(IBDAX(0)),IBIFN=+$G(IBDAX(IBDAX))"
^XMB(3.9,55,2,8225,0)="""RTN"",""IBCECSA4"",39,0)"
^XMB(3.9,55,2,8226,0)=" D EN^VALM(""IBCEM VIEW EOB"")"
^XMB(3.9,55,2,8227,0)="""RTN"",""IBCECSA4"",40,0)"
^XMB(3.9,55,2,8228,0)=" Q"
^XMB(3.9,55,2,8229,0)="""RTN"",""IBCECSA4"",41,0)"
^XMB(3.9,55,2,8230,0)=" ;"
^XMB(3.9,55,2,8231,0)="""RTN"",""IBCECSA4"",42,0)"
^XMB(3.9,55,2,8232,0)="TPJI ;Third Party joint Inquiry"
^XMB(3.9,55,2,8233,0)="""RTN"",""IBCECSA4"",43,0)"
^XMB(3.9,55,2,8234,0)=" N IBIFN,IBX,IBA"
^XMB(3.9,55,2,8235,0)="""RTN"",""IBCECSA4"",44,0)"
^XMB(3.9,55,2,8236,0)=" D FULL^VALM1"
^XMB(3.9,55,2,8237,0)="""RTN"",""IBCECSA4"",45,0)"
^XMB(3.9,55,2,8238,0)=" S IBDAX=$O(IBDAX(0)),IBIFN=+$G(IBDAX(IBDAX))"
^XMB(3.9,55,2,8239,0)="""RTN"",""IBCECSA4"",46,0)"
^XMB(3.9,55,2,8240,0)=" D TPJI1^IBCECOB2(IBIFN)"
^XMB(3.9,55,2,8241,0)="""RTN"",""IBCECSA4"",47,0)"
^XMB(3.9,55,2,8242,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,8243,0)="""RTN"",""IBCECSA4"",48,0)"
^XMB(3.9,55,2,8244,0)=" Q"
^XMB(3.9,55,2,8245,0)="""RTN"",""IBCECSA4"",49,0)"
^XMB(3.9,55,2,8246,0)=" ;"
^XMB(3.9,55,2,8247,0)="""RTN"",""IBCECSA4"",50,0)"
^XMB(3.9,55,2,8248,0)="PBILL ;Print bill - not for resubmit"
^XMB(3.9,55,2,8249,0)="""RTN"",""IBCECSA4"",51,0)"
^XMB(3.9,55,2,8250,0)=" ; IB*320 - allow action for MRA request claims"
^XMB(3.9,55,2,8251,0)="""RTN"",""IBCECSA4"",52,0)"
^XMB(3.9,55,2,8252,0)=" N IBIFN,IBX,IBA,IBRESUB"
^XMB(3.9,55,2,8253,0)="""RTN"",""IBCECSA4"",53,0)"
^XMB(3.9,55,2,8254,0)=" D FULL^VALM1"
^XMB(3.9,55,2,8255,0)="""RTN"",""IBCECSA4"",54,0)"
^XMB(3.9,55,2,8256,0)=" S IBDAX=$O(IBDAX(0)),IBIFN=+$G(IBDAX(+IBDAX))"
^XMB(3.9,55,2,8257,0)="""RTN"",""IBCECSA4"",55,0)"
^XMB(3.9,55,2,8258,0)=" I ""234""'[$P($G(^DGCR(399,IBIFN,0)),U,13) W !!,""Bill status must be REQUEST MRA, AUTHORIZED or PRNT/TX to print the bill."" D PAUSE^VALM1 G PB1"
^XMB(3.9,55,2,8259,0)="""RTN"",""IBCECSA4"",56,0)"
^XMB(3.9,55,2,8260,0)=" ;"
^XMB(3.9,55,2,8261,0)="""RTN"",""IBCECSA4"",57,0)"
^XMB(3.9,55,2,8262,0)=" ; don't update review status for MRA's"
^XMB(3.9,55,2,8263,0)="""RTN"",""IBCECSA4"",58,0)"
^XMB(3.9,55,2,8264,0)=" I $P($G(^DGCR(399,IBIFN,0)),U,13)=2 S IBRESUB=1"
^XMB(3.9,55,2,8265,0)="""RTN"",""IBCECSA4"",59,0)"
^XMB(3.9,55,2,8266,0)=" E  S IBRESUB=$$RESUB(IBIFN,1,""PX"")"
^XMB(3.9,55,2,8267,0)="""RTN"",""IBCECSA4"",60,0)"
^XMB(3.9,55,2,8268,0)=" I IBRESUB'>0 W !,*7,""This is not a transmittable bill or review not needed"" D PAUSE^VALM1 G PB1"
^XMB(3.9,55,2,8269,0)="""RTN"",""IBCECSA4"",61,0)"
^XMB(3.9,55,2,8270,0)=" I IBRESUB=2 D  G PB1"
^XMB(3.9,55,2,8271,0)="""RTN"",""IBCECSA4"",62,0)"
^XMB(3.9,55,2,8272,0)=" . N IB364"
^XMB(3.9,55,2,8273,0)="""RTN"",""IBCECSA4"",63,0)"
^XMB(3.9,55,2,8274,0)=" . S IB364=+$P($G(IBDAX(IBDAX)),U,5)"
^XMB(3.9,55,2,8275,0)="""RTN"",""IBCECSA4"",64,0)"
^XMB(3.9,55,2,8276,0)=" . D PRINT1^IBCEM03(IBIFN,.IBDAX,IB364)"
^XMB(3.9,55,2,8277,0)="""RTN"",""IBCECSA4"",65,0)"
^XMB(3.9,55,2,8278,0)=" D PBILL1^IBCECOB2(IBIFN)"
^XMB(3.9,55,2,8279,0)="""RTN"",""IBCECSA4"",66,0)"
^XMB(3.9,55,2,8280,0)="PB1 ;"
^XMB(3.9,55,2,8281,0)="""RTN"",""IBCECSA4"",67,0)"
^XMB(3.9,55,2,8282,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,8283,0)="""RTN"",""IBCECSA4"",68,0)"
^XMB(3.9,55,2,8284,0)=" Q"
^XMB(3.9,55,2,8285,0)="""RTN"",""IBCECSA4"",69,0)"
^XMB(3.9,55,2,8286,0)=" ;"
^XMB(3.9,55,2,8287,0)="""RTN"",""IBCECSA4"",70,0)"
^XMB(3.9,55,2,8288,0)="CANCEL ;Cancel bill"
^XMB(3.9,55,2,8289,0)="""RTN"",""IBCECSA4"",71,0)"
^XMB(3.9,55,2,8290,0)=" N IBIFN,IB364,IBX,IBA,MRACHK"
^XMB(3.9,55,2,8291,0)="""RTN"",""IBCECSA4"",72,0)"
^XMB(3.9,55,2,8292,0)=" ; IBX,IBA will be killed during execution - need to protect them"
^XMB(3.9,55,2,8293,0)="""RTN"",""IBCECSA4"",73,0)"
^XMB(3.9,55,2,8294,0)=" D FULL^VALM1"
^XMB(3.9,55,2,8295,0)="""RTN"",""IBCECSA4"",74,0)"
^XMB(3.9,55,2,8296,0)=" S IBDAX=$O(IBDAX(0)),IBIFN=+$G(IBDAX(+IBDAX))"
^XMB(3.9,55,2,8297,0)="""RTN"",""IBCECSA4"",75,0)"
^XMB(3.9,55,2,8298,0)=" ; Check for security key"
^XMB(3.9,55,2,8299,0)="""RTN"",""IBCECSA4"",76,0)"
^XMB(3.9,55,2,8300,0)=" I '$$KCHK^XUSRB(""IB AUTHORIZE"") D  G CANCELQ"
^XMB(3.9,55,2,8301,0)="""RTN"",""IBCECSA4"",77,0)"
^XMB(3.9,55,2,8302,0)=" . W !!?5,""You don't hold the proper security key to access this function."""
^XMB(3.9,55,2,8303,0)="""RTN"",""IBCECSA4"",78,0)"
^XMB(3.9,55,2,8304,0)=" . W !?5,""The necessary key is IB AUTHORIZE.  Please see your manager."""
^XMB(3.9,55,2,8305,0)="""RTN"",""IBCECSA4"",79,0)"
^XMB(3.9,55,2,8306,0)=" . D PAUSE^VALM1"
^XMB(3.9,55,2,8307,0)="""RTN"",""IBCECSA4"",80,0)"
^XMB(3.9,55,2,8308,0)=" . Q"
^XMB(3.9,55,2,8309,0)="""RTN"",""IBCECSA4"",81,0)"
^XMB(3.9,55,2,8310,0)=" D MRACHK I MRACHK G CANCELQ"
^XMB(3.9,55,2,8311,0)="""RTN"",""IBCECSA4"",82,0)"
^XMB(3.9,55,2,8312,0)=" S IB364=+$P($G(IBDAX(IBDAX)),U,5)"
^XMB(3.9,55,2,8313,0)="""RTN"",""IBCECSA4"",83,0)"
^XMB(3.9,55,2,8314,0)=" D CANCEL^IBCEM3(.IBDAX,IBIFN,IB364)"
^XMB(3.9,55,2,8315,0)="""RTN"",""IBCECSA4"",84,0)"
^XMB(3.9,55,2,8316,0)="CANCELQ S VALMBCK=""R"""
^XMB(3.9,55,2,8317,0)="""RTN"",""IBCECSA4"",85,0)"
^XMB(3.9,55,2,8318,0)=" Q"
^XMB(3.9,55,2,8319,0)="""RTN"",""IBCECSA4"",86,0)"
^XMB(3.9,55,2,8320,0)=" ;"
^XMB(3.9,55,2,8321,0)="""RTN"",""IBCECSA4"",87,0)"
^XMB(3.9,55,2,8322,0)="CLONE ;'Copy/cancel bill' protocol action"
^XMB(3.9,55,2,8323,0)="""RTN"",""IBCECSA4"",88,0)"
^XMB(3.9,55,2,8324,0)=" N IBX,IBA,IB364,MRACHK,IBIFN"
^XMB(3.9,55,2,8325,0)="""RTN"",""IBCECSA4"",89,0)"
^XMB(3.9,55,2,8326,0)=" ; IBX,IBA will be killed during execution - need to protect them"
^XMB(3.9,55,2,8327,0)="""RTN"",""IBCECSA4"",90,0)"
^XMB(3.9,55,2,8328,0)=" D FULL^VALM1"
^XMB(3.9,55,2,8329,0)="""RTN"",""IBCECSA4"",91,0)"
^XMB(3.9,55,2,8330,0)=" S IBDAX=$O(IBDAX("""")),IBIFN=+$P($G(IBDAX(IBDAX)),U)"
^XMB(3.9,55,2,8331,0)="""RTN"",""IBCECSA4"",92,0)"
^XMB(3.9,55,2,8332,0)=" I IBDAX="""" G CLONEQ"
^XMB(3.9,55,2,8333,0)="""RTN"",""IBCECSA4"",93,0)"
^XMB(3.9,55,2,8334,0)=" ; Check for security key"
^XMB(3.9,55,2,8335,0)="""RTN"",""IBCECSA4"",94,0)"
^XMB(3.9,55,2,8336,0)=" I '$$KCHK^XUSRB(""IB AUTHORIZE"") D  G CLONEQ"
^XMB(3.9,55,2,8337,0)="""RTN"",""IBCECSA4"",95,0)"
^XMB(3.9,55,2,8338,0)=" . W !!?5,""You don't hold the proper security key to access this function."""
^XMB(3.9,55,2,8339,0)="""RTN"",""IBCECSA4"",96,0)"
^XMB(3.9,55,2,8340,0)=" . W !?5,""The necessary key is IB AUTHORIZE.  Please see your manager."""
^XMB(3.9,55,2,8341,0)="""RTN"",""IBCECSA4"",97,0)"
^XMB(3.9,55,2,8342,0)=" . D PAUSE^VALM1"
^XMB(3.9,55,2,8343,0)="""RTN"",""IBCECSA4"",98,0)"
^XMB(3.9,55,2,8344,0)=" . Q"
^XMB(3.9,55,2,8345,0)="""RTN"",""IBCECSA4"",99,0)"
^XMB(3.9,55,2,8346,0)=" D MRACHK I MRACHK G CLONEQ"
^XMB(3.9,55,2,8347,0)="""RTN"",""IBCECSA4"",100,0)"
^XMB(3.9,55,2,8348,0)=" S IB364=+$P($G(IBDAX(IBDAX)),U,5)"
^XMB(3.9,55,2,8349,0)="""RTN"",""IBCECSA4"",101,0)"
^XMB(3.9,55,2,8350,0)=" D COPYCLON^IBCECOB2(+$G(IBDAX(IBDAX)),IB364,.IBDAX)"
^XMB(3.9,55,2,8351,0)="""RTN"",""IBCECSA4"",102,0)"
^XMB(3.9,55,2,8352,0)="CLONEQ S VALMBCK=""R"""
^XMB(3.9,55,2,8353,0)="""RTN"",""IBCECSA4"",103,0)"
^XMB(3.9,55,2,8354,0)=" Q"
^XMB(3.9,55,2,8355,0)="""RTN"",""IBCECSA4"",104,0)"
^XMB(3.9,55,2,8356,0)=" ;"
^XMB(3.9,55,2,8357,0)="""RTN"",""IBCECSA4"",105,0)"
^XMB(3.9,55,2,8358,0)="PRO ; Copy for secondary/tertiary bill"
^XMB(3.9,55,2,8359,0)="""RTN"",""IBCECSA4"",106,0)"
^XMB(3.9,55,2,8360,0)=" N IBIFNH,IBIFN,IB364,IBX,IBA,Z,IBCBASK,IBCBCOPY,IBCAN"
^XMB(3.9,55,2,8361,0)="""RTN"",""IBCECSA4"",107,0)"
^XMB(3.9,55,2,8362,0)=" D FULL^VALM1"
^XMB(3.9,55,2,8363,0)="""RTN"",""IBCECSA4"",108,0)"
^XMB(3.9,55,2,8364,0)=" ;IBDAX - array from selection of message"
^XMB(3.9,55,2,8365,0)="""RTN"",""IBCECSA4"",109,0)"
^XMB(3.9,55,2,8366,0)=" S IBA=$G(IBDAX(+$G(IBDAX)))"
^XMB(3.9,55,2,8367,0)="""RTN"",""IBCECSA4"",110,0)"
^XMB(3.9,55,2,8368,0)=" G:'IBA PROQ"
^XMB(3.9,55,2,8369,0)="""RTN"",""IBCECSA4"",111,0)"
^XMB(3.9,55,2,8370,0)=" S IBX=$G(^TMP(""IBCECSB"",$J,$P(IBA,U,3),$P(IBA,U,4),$P(IBA,U,6),$P(IBA,U,2))),IBIFN=$P(IBA,U)"
^XMB(3.9,55,2,8371,0)="""RTN"",""IBCECSA4"",112,0)"
^XMB(3.9,55,2,8372,0)=" S IB364=+$P(IBA,U,5)"
^XMB(3.9,55,2,8373,0)="""RTN"",""IBCECSA4"",113,0)"
^XMB(3.9,55,2,8374,0)=" G:'IBIFN PROQ"
^XMB(3.9,55,2,8375,0)="""RTN"",""IBCECSA4"",114,0)"
^XMB(3.9,55,2,8376,0)=" ;"
^XMB(3.9,55,2,8377,0)="""RTN"",""IBCECSA4"",115,0)"
^XMB(3.9,55,2,8378,0)=" I $P($G(^DGCR(399,IBIFN,0)),U,13)=2 D  G PROQ"
^XMB(3.9,55,2,8379,0)="""RTN"",""IBCECSA4"",116,0)"
^XMB(3.9,55,2,8380,0)=" . W !!?4,""This bill is in a status of REQUEST MRA."""
^XMB(3.9,55,2,8381,0)="""RTN"",""IBCECSA4"",117,0)"
^XMB(3.9,55,2,8382,0)=" . I $$CHK^IBCEMU1(IBIFN) W !?4,""MRA EOBs must be processed from the MRA management worklist."""
^XMB(3.9,55,2,8383,0)="""RTN"",""IBCECSA4"",118,0)"
^XMB(3.9,55,2,8384,0)=" . E  W !?4,""There are no MRA EOBs on file."""
^XMB(3.9,55,2,8385,0)="""RTN"",""IBCECSA4"",119,0)"
^XMB(3.9,55,2,8386,0)=" . D PAUSE^VALM1"
^XMB(3.9,55,2,8387,0)="""RTN"",""IBCECSA4"",120,0)"
^XMB(3.9,55,2,8388,0)=" . Q"
^XMB(3.9,55,2,8389,0)="""RTN"",""IBCECSA4"",121,0)"
^XMB(3.9,55,2,8390,0)=" ;"
^XMB(3.9,55,2,8391,0)="""RTN"",""IBCECSA4"",122,0)"
^XMB(3.9,55,2,8392,0)=" D COBCOPY^IBCECOB2(IBIFN,IB364,1,$P(IBA,U,2),""INIT^IBCECSA2"")"
^XMB(3.9,55,2,8393,0)="""RTN"",""IBCECSA4"",123,0)"
^XMB(3.9,55,2,8394,0)="PROQ S VALMBCK=""R"""
^XMB(3.9,55,2,8395,0)="""RTN"",""IBCECSA4"",124,0)"
^XMB(3.9,55,2,8396,0)=" Q"
^XMB(3.9,55,2,8397,0)="""RTN"",""IBCECSA4"",125,0)"
^XMB(3.9,55,2,8398,0)=" ;"
^XMB(3.9,55,2,8399,0)="""RTN"",""IBCECSA4"",126,0)"
^XMB(3.9,55,2,8400,0)="RES ;Resubmit bill by print"
^XMB(3.9,55,2,8401,0)="""RTN"",""IBCECSA4"",127,0)"
^XMB(3.9,55,2,8402,0)=" N IBTMP,IB364,IBIFN,IBX,IBA"
^XMB(3.9,55,2,8403,0)="""RTN"",""IBCECSA4"",128,0)"
^XMB(3.9,55,2,8404,0)=" D FULL^VALM1"
^XMB(3.9,55,2,8405,0)="""RTN"",""IBCECSA4"",129,0)"
^XMB(3.9,55,2,8406,0)=" S (IBTMP,IBDAX)=$O(IBDAX(0)),IBTMP(IBTMP)=IBDAX(IBDAX)"
^XMB(3.9,55,2,8407,0)="""RTN"",""IBCECSA4"",130,0)"
^XMB(3.9,55,2,8408,0)=" S IBIFN=$P($G(IBDAX(+IBDAX)),U)"
^XMB(3.9,55,2,8409,0)="""RTN"",""IBCECSA4"",131,0)"
^XMB(3.9,55,2,8410,0)=" S IB364=+$P($G(IBDAX(IBDAX)),U,5)"
^XMB(3.9,55,2,8411,0)="""RTN"",""IBCECSA4"",132,0)"
^XMB(3.9,55,2,8412,0)=" I IBIFN D PRINT1^IBCEM03(IBIFN,.IBDAX,IB364),PAUSE^VALM1,INIT^IBCECSA2"
^XMB(3.9,55,2,8413,0)="""RTN"",""IBCECSA4"",133,0)"
^XMB(3.9,55,2,8414,0)=" S IBDAX(IBTMP)=IBTMP(IBTMP)"
^XMB(3.9,55,2,8415,0)="""RTN"",""IBCECSA4"",134,0)"
^XMB(3.9,55,2,8416,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,8417,0)="""RTN"",""IBCECSA4"",135,0)"
^XMB(3.9,55,2,8418,0)=" Q"
^XMB(3.9,55,2,8419,0)="""RTN"",""IBCECSA4"",136,0)"
^XMB(3.9,55,2,8420,0)=" ;"
^XMB(3.9,55,2,8421,0)="""RTN"",""IBCECSA4"",137,0)"
^XMB(3.9,55,2,8422,0)="EBI ;Edit bill"
^XMB(3.9,55,2,8423,0)="""RTN"",""IBCECSA4"",138,0)"
^XMB(3.9,55,2,8424,0)=" N IBFLG,IBIFN,IB364,IBX,IBA"
^XMB(3.9,55,2,8425,0)="""RTN"",""IBCECSA4"",139,0)"
^XMB(3.9,55,2,8426,0)=" K ^TMP($J,""IBBILL"")"
^XMB(3.9,55,2,8427,0)="""RTN"",""IBCECSA4"",140,0)"
^XMB(3.9,55,2,8428,0)=" D FULL^VALM1"
^XMB(3.9,55,2,8429,0)="""RTN"",""IBCECSA4"",141,0)"
^XMB(3.9,55,2,8430,0)=" S IBDAX=$O(IBDAX(""""))"
^XMB(3.9,55,2,8431,0)="""RTN"",""IBCECSA4"",142,0)"
^XMB(3.9,55,2,8432,0)=" I IBDAX="""" G EDITQ"
^XMB(3.9,55,2,8433,0)="""RTN"",""IBCECSA4"",143,0)"
^XMB(3.9,55,2,8434,0)=" S IBIFN=$P(IBDAX(IBDAX),U)"
^XMB(3.9,55,2,8435,0)="""RTN"",""IBCECSA4"",144,0)"
^XMB(3.9,55,2,8436,0)=" S IBFLG=1 D  I IBFLG S IBDAX="""" D PAUSE^VALM1 G EDITQ"
^XMB(3.9,55,2,8437,0)="""RTN"",""IBCECSA4"",145,0)"
^XMB(3.9,55,2,8438,0)=" . I $P($G(^DGCR(399,IBIFN,0)),U,13)>2 W !,*7,""An authorized bill can not be edited."" Q"
^XMB(3.9,55,2,8439,0)="""RTN"",""IBCECSA4"",146,0)"
^XMB(3.9,55,2,8440,0)=" . I '$D(^XUSEC(""IB EDIT"",DUZ)) W !,*7,""You are not authorized to edit a bill"" Q"
^XMB(3.9,55,2,8441,0)="""RTN"",""IBCECSA4"",147,0)"
^XMB(3.9,55,2,8442,0)=" . S IBFLG=0"
^XMB(3.9,55,2,8443,0)="""RTN"",""IBCECSA4"",148,0)"
^XMB(3.9,55,2,8444,0)=" S IBIFN=+$G(IBDAX(IBDAX))"
^XMB(3.9,55,2,8445,0)="""RTN"",""IBCECSA4"",149,0)"
^XMB(3.9,55,2,8446,0)=" S IB364=+$P($G(IBDAX(IBDAX)),U,5)"
^XMB(3.9,55,2,8447,0)="""RTN"",""IBCECSA4"",150,0)"
^XMB(3.9,55,2,8448,0)=" D EBILL^IBCEM3(.IBDAX,IBIFN,IB364)"
^XMB(3.9,55,2,8449,0)="""RTN"",""IBCECSA4"",151,0)"
^XMB(3.9,55,2,8450,0)="EDITQ S VALMBCK=""R"""
^XMB(3.9,55,2,8451,0)="""RTN"",""IBCECSA4"",152,0)"
^XMB(3.9,55,2,8452,0)=" Q"
^XMB(3.9,55,2,8453,0)="""RTN"",""IBCECSA4"",153,0)"
^XMB(3.9,55,2,8454,0)=" ;"
^XMB(3.9,55,2,8455,0)="""RTN"",""IBCECSA4"",154,0)"
^XMB(3.9,55,2,8456,0)="SEL(IBDA,ONE) ; Select entry(s) from list"
^XMB(3.9,55,2,8457,0)="""RTN"",""IBCECSA4"",155,0)"
^XMB(3.9,55,2,8458,0)=" ; IBDA = array returned if selections made"
^XMB(3.9,55,2,8459,0)="""RTN"",""IBCECSA4"",156,0)"
^XMB(3.9,55,2,8460,0)=" ;    IBDAX(n)=ien of bill selected (file 399)"
^XMB(3.9,55,2,8461,0)="""RTN"",""IBCECSA4"",157,0)"
^XMB(3.9,55,2,8462,0)=" ; ONE = if set to 1, only one selection can be made at a time"
^XMB(3.9,55,2,8463,0)="""RTN"",""IBCECSA4"",158,0)"
^XMB(3.9,55,2,8464,0)=" N IB"
^XMB(3.9,55,2,8465,0)="""RTN"",""IBCECSA4"",159,0)"
^XMB(3.9,55,2,8466,0)=" K IBDA"
^XMB(3.9,55,2,8467,0)="""RTN"",""IBCECSA4"",160,0)"
^XMB(3.9,55,2,8468,0)=" D EN^VALM2($G(XQORNOD(0)),$S('$G(ONE):"""",1:""S""))"
^XMB(3.9,55,2,8469,0)="""RTN"",""IBCECSA4"",161,0)"
^XMB(3.9,55,2,8470,0)=" S IBDA=0 F  S IBDA=$O(VALMY(IBDA)) Q:'IBDA  D"
^XMB(3.9,55,2,8471,0)="""RTN"",""IBCECSA4"",162,0)"
^XMB(3.9,55,2,8472,0)=" . S IBDA(IBDA)=$P($G(^TMP(""IBCECSA"",$J,IBDA)),U,2,7)"
^XMB(3.9,55,2,8473,0)="""RTN"",""IBCECSA4"",163,0)"
^XMB(3.9,55,2,8474,0)=" Q"
^XMB(3.9,55,2,8475,0)="""RTN"",""IBCECSA4"",164,0)"
^XMB(3.9,55,2,8476,0)=" ;"
^XMB(3.9,55,2,8477,0)="""RTN"",""IBCECSA4"",165,0)"
^XMB(3.9,55,2,8478,0)="RESUB(IBIFN,TXMT,IBFUNC,IBTBA) ; Function asks if resubmit as resolution to a"
^XMB(3.9,55,2,8479,0)="""RTN"",""IBCECSA4"",166,0)"
^XMB(3.9,55,2,8480,0)=" ;   message is the intention"
^XMB(3.9,55,2,8481,0)="""RTN"",""IBCECSA4"",167,0)"
^XMB(3.9,55,2,8482,0)=" ; IBIFN = ien of bill in file 399"
^XMB(3.9,55,2,8483,0)="""RTN"",""IBCECSA4"",168,0)"
^XMB(3.9,55,2,8484,0)=" ; TXMT = flag if = 1, assume it's transmittable, don't have to check"
^XMB(3.9,55,2,8485,0)="""RTN"",""IBCECSA4"",169,0)"
^XMB(3.9,55,2,8486,0)=" ; IBFUNC = code to say where the code is called from"
^XMB(3.9,55,2,8487,0)="""RTN"",""IBCECSA4"",170,0)"
^XMB(3.9,55,2,8488,0)=" ;  'E'=edit/authorize  'P'=print 'PX'= print/not to resubmit  'C'=cancel"
^XMB(3.9,55,2,8489,0)="""RTN"",""IBCECSA4"",171,0)"
^XMB(3.9,55,2,8490,0)=" ; IBTBA = transmit bill array returned to calling routine.  Optional"
^XMB(3.9,55,2,8491,0)="""RTN"",""IBCECSA4"",172,0)"
^XMB(3.9,55,2,8492,0)=" ;    parameter to be passed by reference."
^XMB(3.9,55,2,8493,0)="""RTN"",""IBCECSA4"",173,0)"
^XMB(3.9,55,2,8494,0)=" ;    IBTBA(364ptr)="""""
^XMB(3.9,55,2,8495,0)="""RTN"",""IBCECSA4"",174,0)"
^XMB(3.9,55,2,8496,0)=" ;"
^XMB(3.9,55,2,8497,0)="""RTN"",""IBCECSA4"",175,0)"
^XMB(3.9,55,2,8498,0)=" ; Returns:"
^XMB(3.9,55,2,8499,0)="""RTN"",""IBCECSA4"",176,0)"
^XMB(3.9,55,2,8500,0)=" ; -1 = ^ or timeout at prompt"
^XMB(3.9,55,2,8501,0)="""RTN"",""IBCECSA4"",177,0)"
^XMB(3.9,55,2,8502,0)=" ;  0 = not a transmittable bill or review not needed"
^XMB(3.9,55,2,8503,0)="""RTN"",""IBCECSA4"",178,0)"
^XMB(3.9,55,2,8504,0)=" ;  1 = don't update the review status (user choice)"
^XMB(3.9,55,2,8505,0)="""RTN"",""IBCECSA4"",179,0)"
^XMB(3.9,55,2,8506,0)=" ;  2 = Yes, update the review status (user choice), or resubmit by print"
^XMB(3.9,55,2,8507,0)="""RTN"",""IBCECSA4"",180,0)"
^XMB(3.9,55,2,8508,0)=" ;"
^XMB(3.9,55,2,8509,0)="""RTN"",""IBCECSA4"",181,0)"
^XMB(3.9,55,2,8510,0)=" NEW DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT,STAT"
^XMB(3.9,55,2,8511,0)="""RTN"",""IBCECSA4"",182,0)"
^XMB(3.9,55,2,8512,0)=" KILL IBTBA"
^XMB(3.9,55,2,8513,0)="""RTN"",""IBCECSA4"",183,0)"
^XMB(3.9,55,2,8514,0)=" I '$G(TXMT),'$$TXMT^IBCEF4(IBIFN) S Y=0 G RESUB1   ; not transmittable"
^XMB(3.9,55,2,8515,0)="""RTN"",""IBCECSA4"",184,0)"
^XMB(3.9,55,2,8516,0)=" ;"
^XMB(3.9,55,2,8517,0)="""RTN"",""IBCECSA4"",185,0)"
^XMB(3.9,55,2,8518,0)=" ; Check for any messages or EOB's needing review"
^XMB(3.9,55,2,8519,0)="""RTN"",""IBCECSA4"",186,0)"
^XMB(3.9,55,2,8520,0)=" S STAT=$$STATUS^IBCEF4(IBIFN)"
^XMB(3.9,55,2,8521,0)="""RTN"",""IBCECSA4"",187,0)"
^XMB(3.9,55,2,8522,0)=" I '$TR(STAT,U) S Y=0 G RESUB1                ; no unreviewed items"
^XMB(3.9,55,2,8523,0)="""RTN"",""IBCECSA4"",188,0)"
^XMB(3.9,55,2,8524,0)=" I $P(STAT,U,1) S IBTBA($P(STAT,U,1))=""""      ; 364 ien for 361 data"
^XMB(3.9,55,2,8525,0)="""RTN"",""IBCECSA4"",189,0)"
^XMB(3.9,55,2,8526,0)=" I $P(STAT,U,2) S IBTBA($P(STAT,U,2))=""""      ; 364 ien for 361.1 data"
^XMB(3.9,55,2,8527,0)="""RTN"",""IBCECSA4"",190,0)"
^XMB(3.9,55,2,8528,0)=" ;"
^XMB(3.9,55,2,8529,0)="""RTN"",""IBCECSA4"",191,0)"
^XMB(3.9,55,2,8530,0)=" I IBFUNC'=""P"" D"
^XMB(3.9,55,2,8531,0)="""RTN"",""IBCECSA4"",192,0)"
^XMB(3.9,55,2,8532,0)=" . S DIR(0)=""YA"",DIR(""A"",1)="""",DIR(""A"",2)=""This bill is in need of review due to receipt of a status msg or EOB"",DIR(""A"")=""OK to update the review status to 'REVIEW COMPLETE' based on this action?: "",DIR(""B"")=""NO"""
^XMB(3.9,55,2,8533,0)="""RTN"",""IBCECSA4"",193,0)"
^XMB(3.9,55,2,8534,0)=" . S DIR(""?"",1)=""You have just ""_$S(IBFUNC=""E"":""requested re-transmission of"",IBFUNC=""C"":""cancelled"",1:"""")_"" the bill"""
^XMB(3.9,55,2,8535,0)="""RTN"",""IBCECSA4"",194,0)"
^XMB(3.9,55,2,8536,0)=" . S DIR(""?"",2)=""You can update the review status of the unreviewed message to "",DIR(""?"",3)="" 'REVIEW COMPLETE' if you say YES here"""
^XMB(3.9,55,2,8537,0)="""RTN"",""IBCECSA4"",195,0)"
^XMB(3.9,55,2,8538,0)=" . S DIR(""?"")=""Press ENTER to continue """
^XMB(3.9,55,2,8539,0)="""RTN"",""IBCECSA4"",196,0)"
^XMB(3.9,55,2,8540,0)=" . D ^DIR K DIR"
^XMB(3.9,55,2,8541,0)="""RTN"",""IBCECSA4"",197,0)"
^XMB(3.9,55,2,8542,0)=" . I $D(DTOUT)!$D(DUOUT) S Y=-1 Q"
^XMB(3.9,55,2,8543,0)="""RTN"",""IBCECSA4"",198,0)"
^XMB(3.9,55,2,8544,0)=" . S Y=Y+1"
^XMB(3.9,55,2,8545,0)="""RTN"",""IBCECSA4"",199,0)"
^XMB(3.9,55,2,8546,0)=" E  D"
^XMB(3.9,55,2,8547,0)="""RTN"",""IBCECSA4"",200,0)"
^XMB(3.9,55,2,8548,0)=" . W !,""The review status of this message will be updated to 'REVIEW COMPLETE'"",!,""  based on this action"""
^XMB(3.9,55,2,8549,0)="""RTN"",""IBCECSA4"",201,0)"
^XMB(3.9,55,2,8550,0)=" . S Y=2"
^XMB(3.9,55,2,8551,0)="""RTN"",""IBCECSA4"",202,0)"
^XMB(3.9,55,2,8552,0)=" ;"
^XMB(3.9,55,2,8553,0)="""RTN"",""IBCECSA4"",203,0)"
^XMB(3.9,55,2,8554,0)="RESUB1 Q +Y"
^XMB(3.9,55,2,8555,0)="""RTN"",""IBCECSA4"",204,0)"
^XMB(3.9,55,2,8556,0)=" ;"
^XMB(3.9,55,2,8557,0)="""RTN"",""IBCECSA4"",205,0)"
^XMB(3.9,55,2,8558,0)="RETXMT ;"
^XMB(3.9,55,2,8559,0)="""RTN"",""IBCECSA4"",206,0)"
^XMB(3.9,55,2,8560,0)=" N IB364,IBIFN"
^XMB(3.9,55,2,8561,0)="""RTN"",""IBCECSA4"",207,0)"
^XMB(3.9,55,2,8562,0)=" D FULL^VALM1"
^XMB(3.9,55,2,8563,0)="""RTN"",""IBCECSA4"",208,0)"
^XMB(3.9,55,2,8564,0)=" S IBDAX=$O(IBDAX(0)),IB364=+$P($G(IBDAX(IBDAX)),U,5),IBIFN=+$P($G(IBDAX(IBDAX)),U)"
^XMB(3.9,55,2,8565,0)="""RTN"",""IBCECSA4"",209,0)"
^XMB(3.9,55,2,8566,0)=" I 'IB364!('IBIFN) G RETXMTQ"
^XMB(3.9,55,2,8567,0)="""RTN"",""IBCECSA4"",210,0)"
^XMB(3.9,55,2,8568,0)=" D MRACHK I MRACHK G RETXMTQ"
^XMB(3.9,55,2,8569,0)="""RTN"",""IBCECSA4"",211,0)"
^XMB(3.9,55,2,8570,0)=" D RESUB^IBCE(IB364)"
^XMB(3.9,55,2,8571,0)="""RTN"",""IBCECSA4"",212,0)"
^XMB(3.9,55,2,8572,0)="RETXMTQ S VALMBCK=""R"""
^XMB(3.9,55,2,8573,0)="""RTN"",""IBCECSA4"",213,0)"
^XMB(3.9,55,2,8574,0)=" Q"
^XMB(3.9,55,2,8575,0)="""RTN"",""IBCECSA4"",214,0)"
^XMB(3.9,55,2,8576,0)=" ;"
^XMB(3.9,55,2,8577,0)="""RTN"",""IBCECSA4"",215,0)"
^XMB(3.9,55,2,8578,0)="MRACHK ; Restrict access to process REQUEST MRA claims"
^XMB(3.9,55,2,8579,0)="""RTN"",""IBCECSA4"",216,0)"
^XMB(3.9,55,2,8580,0)=" S MRACHK=0"
^XMB(3.9,55,2,8581,0)="""RTN"",""IBCECSA4"",217,0)"
^XMB(3.9,55,2,8582,0)=" ; At least one MRA EOB appears on the MRA management worklist"
^XMB(3.9,55,2,8583,0)="""RTN"",""IBCECSA4"",218,0)"
^XMB(3.9,55,2,8584,0)=" I $P($G(^DGCR(399,IBIFN,0)),U,13)=2,$$MRAWL^IBCEMU2(IBIFN) S MRACHK=1 D  D PAUSE^VALM1"
^XMB(3.9,55,2,8585,0)="""RTN"",""IBCECSA4"",219,0)"
^XMB(3.9,55,2,8586,0)=" . W !,?4,""This bill is in a status of REQUEST MRA and it does appear on"""
^XMB(3.9,55,2,8587,0)="""RTN"",""IBCECSA4"",220,0)"
^XMB(3.9,55,2,8588,0)=" . W !,?4,""the MRA Management Worklist.  Please use the MRA Management Menu"""
^XMB(3.9,55,2,8589,0)="""RTN"",""IBCECSA4"",221,0)"
^XMB(3.9,55,2,8590,0)=" . W !,?4,""options for all processing related to this bill."""
^XMB(3.9,55,2,8591,0)="""RTN"",""IBCECSA4"",222,0)"
^XMB(3.9,55,2,8592,0)=" Q"
^XMB(3.9,55,2,8593,0)="""RTN"",""IBCEF71"")"
^XMB(3.9,55,2,8594,0)="0^46^B63861982^B62140517"
^XMB(3.9,55,2,8595,0)="""RTN"",""IBCEF71"",1,0)"
^XMB(3.9,55,2,8596,0)="IBCEF71 ;WOIFO/SS - FORMATTER AND EXTRACTOR SPECIFIC BILL FUNCTIONS ;31-JUL-03"
^XMB(3.9,55,2,8597,0)="""RTN"",""IBCEF71"",2,0)"
^XMB(3.9,55,2,8598,0)=" ;;2.0;INTEGRATED BILLING;**232,155,288,320**;21-MAR-94"
^XMB(3.9,55,2,8599,0)="""RTN"",""IBCEF71"",3,0)"
^XMB(3.9,55,2,8600,0)=" ;; Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,8601,0)="""RTN"",""IBCEF71"",4,0)"
^XMB(3.9,55,2,8602,0)=" ;"
^XMB(3.9,55,2,8603,0)="""RTN"",""IBCEF71"",5,0)"
^XMB(3.9,55,2,8604,0)=" ;---------"
^XMB(3.9,55,2,8605,0)="""RTN"",""IBCEF71"",6,0)"
^XMB(3.9,55,2,8606,0)=" ;OTHPAYC - from FORMAT code for OP1,OP2 ..."
^XMB(3.9,55,2,8607,0)="""RTN"",""IBCEF71"",7,0)"
^XMB(3.9,55,2,8608,0)=" ;Input:"
^XMB(3.9,55,2,8609,0)="""RTN"",""IBCEF71"",8,0)"
^XMB(3.9,55,2,8610,0)=" ;IBXIEN - ien #399"
^XMB(3.9,55,2,8611,0)="""RTN"",""IBCEF71"",9,0)"
^XMB(3.9,55,2,8612,0)=" ;IBSAVE - ""in"" array (i.e. IBXSAVE)"
^XMB(3.9,55,2,8613,0)="""RTN"",""IBCEF71"",10,0)"
^XMB(3.9,55,2,8614,0)=" ;IBDATA - ""out"" array (i.e. IBXDATA)"
^XMB(3.9,55,2,8615,0)="""RTN"",""IBCEF71"",11,0)"
^XMB(3.9,55,2,8616,0)=" ;IBFUNC - FUNCTION from #399 (1-refering,2-operating,etc)"
^XMB(3.9,55,2,8617,0)="""RTN"",""IBCEF71"",12,0)"
^XMB(3.9,55,2,8618,0)=" ;IBVAL - output value"
^XMB(3.9,55,2,8619,0)="""RTN"",""IBCEF71"",13,0)"
^XMB(3.9,55,2,8620,0)=" ;Output:"
^XMB(3.9,55,2,8621,0)="""RTN"",""IBCEF71"",14,0)"
^XMB(3.9,55,2,8622,0)=" ; IBDATA with formatted output"
^XMB(3.9,55,2,8623,0)="""RTN"",""IBCEF71"",15,0)"
^XMB(3.9,55,2,8624,0)="OTHPAYC(IBXIEN,IBSAVE,IBDATA,IBFUNC,IBVAL) ;"
^XMB(3.9,55,2,8625,0)="""RTN"",""IBCEF71"",16,0)"
^XMB(3.9,55,2,8626,0)=" N IB1,IB2,IBINS,IBFL"
^XMB(3.9,55,2,8627,0)="""RTN"",""IBCEF71"",17,0)"
^XMB(3.9,55,2,8628,0)=" S IBFL=$S(IBFUNC=3!(IBFUNC=4):1,1:0)"
^XMB(3.9,55,2,8629,0)="""RTN"",""IBCEF71"",18,0)"
^XMB(3.9,55,2,8630,0)=" F IB1=1,2 D"
^XMB(3.9,55,2,8631,0)="""RTN"",""IBCEF71"",19,0)"
^XMB(3.9,55,2,8632,0)=" . Q:'$$ISINSUR($G(IBSAVE(""PROVINF"",IBXIEN,""O"",IB1)),IBXIEN)  ;don't create anything if no such insurance"
^XMB(3.9,55,2,8633,0)="""RTN"",""IBCEF71"",20,0)"
^XMB(3.9,55,2,8634,0)=" . I IBFL S IBFUNC=$S($O(IBSAVE(""PROVINF"",IBXIEN,""O"",IB1,3,0)):3,1:4)"
^XMB(3.9,55,2,8635,0)="""RTN"",""IBCEF71"",21,0)"
^XMB(3.9,55,2,8636,0)=" . S:$O(IBSAVE(""PROVINF"",IBXIEN,""O"",IB1,IBFUNC,0)) IBDATA(IB1)=IBVAL"
^XMB(3.9,55,2,8637,0)="""RTN"",""IBCEF71"",22,0)"
^XMB(3.9,55,2,8638,0)=" Q"
^XMB(3.9,55,2,8639,0)="""RTN"",""IBCEF71"",23,0)"
^XMB(3.9,55,2,8640,0)=" ;----"
^XMB(3.9,55,2,8641,0)="""RTN"",""IBCEF71"",24,0)"
^XMB(3.9,55,2,8642,0)=" ;OTHPAYV - called from FORMAT code for OP1,OP2 ..."
^XMB(3.9,55,2,8643,0)="""RTN"",""IBCEF71"",25,0)"
^XMB(3.9,55,2,8644,0)=" ;Input:"
^XMB(3.9,55,2,8645,0)="""RTN"",""IBCEF71"",26,0)"
^XMB(3.9,55,2,8646,0)=" ;IBXIEN - ien #399"
^XMB(3.9,55,2,8647,0)="""RTN"",""IBCEF71"",27,0)"
^XMB(3.9,55,2,8648,0)=" ;IBSAVE - ""in"" array (i.e. IBXSAVE)"
^XMB(3.9,55,2,8649,0)="""RTN"",""IBCEF71"",28,0)"
^XMB(3.9,55,2,8650,0)=" ;IBDATA - ""out"" array (i.e. IBXDATA)"
^XMB(3.9,55,2,8651,0)="""RTN"",""IBCEF71"",29,0)"
^XMB(3.9,55,2,8652,0)=" ;IBFUNC - FUNCTION from #399 (1-refering, 2-operating, etc)"
^XMB(3.9,55,2,8653,0)="""RTN"",""IBCEF71"",30,0)"
^XMB(3.9,55,2,8654,0)=" ;IBSEQN - seq # of ID/QUAL"
^XMB(3.9,55,2,8655,0)="""RTN"",""IBCEF71"",31,0)"
^XMB(3.9,55,2,8656,0)=" ;IBFLDTYP"
^XMB(3.9,55,2,8657,0)="""RTN"",""IBCEF71"",32,0)"
^XMB(3.9,55,2,8658,0)=" ; ""I"" - ID  ""Q"" - ID QUAL"
^XMB(3.9,55,2,8659,0)="""RTN"",""IBCEF71"",33,0)"
^XMB(3.9,55,2,8660,0)=" ;Output:"
^XMB(3.9,55,2,8661,0)="""RTN"",""IBCEF71"",34,0)"
^XMB(3.9,55,2,8662,0)=" ; IBDATA with formatted output"
^XMB(3.9,55,2,8663,0)="""RTN"",""IBCEF71"",35,0)"
^XMB(3.9,55,2,8664,0)="OTHPAYV(IBXIEN,IBSAVE,IBDATA,IBFUNC,IBFLDTYP,IBSEQN) ;"
^XMB(3.9,55,2,8665,0)="""RTN"",""IBCEF71"",36,0)"
^XMB(3.9,55,2,8666,0)=" N IB1,IB2,IBPIECE,IBINS,IBFL"
^XMB(3.9,55,2,8667,0)="""RTN"",""IBCEF71"",37,0)"
^XMB(3.9,55,2,8668,0)=" S IBFL=$S(IBFUNC=3!(IBFUNC=4):1,1:0)"
^XMB(3.9,55,2,8669,0)="""RTN"",""IBCEF71"",38,0)"
^XMB(3.9,55,2,8670,0)=" S IBPIECE=$S(IBFLDTYP=""I"":4,IBFLDTYP=""Q"":3,1:3)"
^XMB(3.9,55,2,8671,0)="""RTN"",""IBCEF71"",39,0)"
^XMB(3.9,55,2,8672,0)=" F IB1=1,2 D"
^XMB(3.9,55,2,8673,0)="""RTN"",""IBCEF71"",40,0)"
^XMB(3.9,55,2,8674,0)=" . Q:'$$ISINSUR($G(IBSAVE(""PROVINF"",IBXIEN,""O"",IB1)),IBXIEN)  ;don't create anything if there is no such insurance"
^XMB(3.9,55,2,8675,0)="""RTN"",""IBCEF71"",41,0)"
^XMB(3.9,55,2,8676,0)=" . I IBFL S IBFUNC=$S($O(IBSAVE(""PROVINF"",IBXIEN,""O"",IB1,3,0)):3,1:4),IBFL=0"
^XMB(3.9,55,2,8677,0)="""RTN"",""IBCEF71"",42,0)"
^XMB(3.9,55,2,8678,0)=" . S IBDATA(IB1)=$P($G(IBSAVE(""PROVINF"",IBXIEN,""O"",IB1,IBFUNC,IBSEQN)),""^"",IBPIECE)"
^XMB(3.9,55,2,8679,0)="""RTN"",""IBCEF71"",43,0)"
^XMB(3.9,55,2,8680,0)=" Q"
^XMB(3.9,55,2,8681,0)="""RTN"",""IBCEF71"",44,0)"
^XMB(3.9,55,2,8682,0)=" ;"
^XMB(3.9,55,2,8683,0)="""RTN"",""IBCEF71"",45,0)"
^XMB(3.9,55,2,8684,0)=" ;chk for ins"
^XMB(3.9,55,2,8685,0)="""RTN"",""IBCEF71"",46,0)"
^XMB(3.9,55,2,8686,0)=" ;Input:"
^XMB(3.9,55,2,8687,0)="""RTN"",""IBCEF71"",47,0)"
^XMB(3.9,55,2,8688,0)=" ; IBINS = ""P"",""S"",""T"""
^XMB(3.9,55,2,8689,0)="""RTN"",""IBCEF71"",48,0)"
^XMB(3.9,55,2,8690,0)=" ; IBXIEN - ien file #399"
^XMB(3.9,55,2,8691,0)="""RTN"",""IBCEF71"",49,0)"
^XMB(3.9,55,2,8692,0)=" ;Output:"
^XMB(3.9,55,2,8693,0)="""RTN"",""IBCEF71"",50,0)"
^XMB(3.9,55,2,8694,0)=" ; returns 1-exists , 0-doesn't"
^XMB(3.9,55,2,8695,0)="""RTN"",""IBCEF71"",51,0)"
^XMB(3.9,55,2,8696,0)="ISINSUR(IBINS,IBXIEN) ;"
^XMB(3.9,55,2,8697,0)="""RTN"",""IBCEF71"",52,0)"
^XMB(3.9,55,2,8698,0)=" N IBINSNOD"
^XMB(3.9,55,2,8699,0)="""RTN"",""IBCEF71"",53,0)"
^XMB(3.9,55,2,8700,0)=" S IBINSNOD=$S(IBINS=""P"":""I1"",IBINS=""S"":""I2"",IBINS=""T"":""I3"",1:"""")"
^XMB(3.9,55,2,8701,0)="""RTN"",""IBCEF71"",54,0)"
^XMB(3.9,55,2,8702,0)=" I IBINSNOD="""" Q 0"
^XMB(3.9,55,2,8703,0)="""RTN"",""IBCEF71"",55,0)"
^XMB(3.9,55,2,8704,0)=" Q $D(^DGCR(399,IBXIEN,IBINSNOD))"
^XMB(3.9,55,2,8705,0)="""RTN"",""IBCEF71"",56,0)"
^XMB(3.9,55,2,8706,0)=" ;"
^XMB(3.9,55,2,8707,0)="""RTN"",""IBCEF71"",57,0)"
^XMB(3.9,55,2,8708,0)=" ;---PRACT----"
^XMB(3.9,55,2,8709,0)="""RTN"",""IBCEF71"",58,0)"
^XMB(3.9,55,2,8710,0)=" ;Get list of all 355.9 or 355.93 records for prov"
^XMB(3.9,55,2,8711,0)="""RTN"",""IBCEF71"",59,0)"
^XMB(3.9,55,2,8712,0)=" ;Input: "
^XMB(3.9,55,2,8713,0)="""RTN"",""IBCEF71"",60,0)"
^XMB(3.9,55,2,8714,0)=" ;IB399INS - ins co for bill to match PRACTIONER from 355.9"
^XMB(3.9,55,2,8715,0)="""RTN"",""IBCEF71"",61,0)"
^XMB(3.9,55,2,8716,0)=" ;IB399FRM - form type (0=unknwn/both,1=UB92,2=HCFA 1500) to "
^XMB(3.9,55,2,8717,0)="""RTN"",""IBCEF71"",62,0)"
^XMB(3.9,55,2,8718,0)=" ;   match PRACTIONER from 355.9"
^XMB(3.9,55,2,8719,0)="""RTN"",""IBCEF71"",63,0)"
^XMB(3.9,55,2,8720,0)=" ;IB399CAR - BILL CARE (0=unknwn or both inp/outp,1=inpatient,"
^XMB(3.9,55,2,8721,0)="""RTN"",""IBCEF71"",64,0)"
^XMB(3.9,55,2,8722,0)=" ;   2=outpatient/3=Rx) to match PROV from 355.9"
^XMB(3.9,55,2,8723,0)="""RTN"",""IBCEF71"",65,0)"
^XMB(3.9,55,2,8724,0)=" ;    OR   - DIVISION PTR to file 40.8 for entries in file 355.92"
^XMB(3.9,55,2,8725,0)="""RTN"",""IBCEF71"",66,0)"
^XMB(3.9,55,2,8726,0)=" ;IBPROV - VARIABLE PTR VA prov"
^XMB(3.9,55,2,8727,0)="""RTN"",""IBCEF71"",67,0)"
^XMB(3.9,55,2,8728,0)=" ;IBARR - array by reference for result"
^XMB(3.9,55,2,8729,0)="""RTN"",""IBCEF71"",68,0)"
^XMB(3.9,55,2,8730,0)=" ;IBPROVTP- function (2-operating, 3-RENDERING,etc 0-facility)"
^XMB(3.9,55,2,8731,0)="""RTN"",""IBCEF71"",69,0)"
^XMB(3.9,55,2,8732,0)=" ;IBINSTP - ""C"" -current ins , ""O""-other"
^XMB(3.9,55,2,8733,0)="""RTN"",""IBCEF71"",70,0)"
^XMB(3.9,55,2,8734,0)=" ;IBFILE - 355.92 for facility ids or 355.9 (default) for provider ids"
^XMB(3.9,55,2,8735,0)="""RTN"",""IBCEF71"",71,0)"
^XMB(3.9,55,2,8736,0)=" ;IBINS - 1 if to include ids for the ins co for all provs"
^XMB(3.9,55,2,8737,0)="""RTN"",""IBCEF71"",72,0)"
^XMB(3.9,55,2,8738,0)=" ;Ouput:"
^XMB(3.9,55,2,8739,0)="""RTN"",""IBCEF71"",73,0)"
^XMB(3.9,55,2,8740,0)=" ;IBARR - array by ref for result"
^XMB(3.9,55,2,8741,0)="""RTN"",""IBCEF71"",74,0)"
^XMB(3.9,55,2,8742,0)=" ; prov var ptr^ins ptr^X12 id cd^ID^form typ^care typ or division ptr^st ptr^id rec ptr^id type ptr"
^XMB(3.9,55,2,8743,0)="""RTN"",""IBCEF71"",75,0)"
^XMB(3.9,55,2,8744,0)="PRACT(IB399INS,IB399FRM,IB399CAR,IBPROV,IBARR,IBPROVTP,IBINSTP,IBFILE,IBINS) ;"
^XMB(3.9,55,2,8745,0)="""RTN"",""IBCEF71"",76,0)"
^XMB(3.9,55,2,8746,0)=" N IB1,IB2,IBDAT,IBF,IBFX,IB3559,IBINSCO,IBFRMTYP,IBIDTYP,IBID,IBIDT,IBDIV,IBQ,IBS1,IBS2,IBARRX,Z,Z1,Z2,IBCARE"
^XMB(3.9,55,2,8747,0)="""RTN"",""IBCEF71"",77,0)"
^XMB(3.9,55,2,8748,0)=" I $G(IBFILE)="""" S IBFILE=355.9"
^XMB(3.9,55,2,8749,0)="""RTN"",""IBCEF71"",78,0)"
^XMB(3.9,55,2,8750,0)=" S IBINS=$G(IBINS)"
^XMB(3.9,55,2,8751,0)="""RTN"",""IBCEF71"",79,0)"
^XMB(3.9,55,2,8752,0)=" S (IBARR,IB3559,IB1)=0"
^XMB(3.9,55,2,8753,0)="""RTN"",""IBCEF71"",80,0)"
^XMB(3.9,55,2,8754,0)=" F IBF="""",1 Q:IBF=1&$S(IBFILE'=355.9:1,1:'IBINS)  S IBFX=IBFILE_IBF F IB2=1:1 S IB3559=$O(^IBA(IBFX,""B"",$S(IBFILE=355.9&(IBF=""""):IBPROV,1:IB399INS),IB3559)) Q:IB3559=""""  D"
^XMB(3.9,55,2,8755,0)="""RTN"",""IBCEF71"",81,0)"
^XMB(3.9,55,2,8756,0)=" . S IBINSCO=$P($G(^IBA(IBFX,IB3559,0)),""^"",$S(IBFILE=355.9&(IBF=""""):2,1:1)) ;ins co. ptr"
^XMB(3.9,55,2,8757,0)="""RTN"",""IBCEF71"",82,0)"
^XMB(3.9,55,2,8758,0)=" . I IBINSCO'="""" I IBINSCO'=IB399INS Q  ;exclude if different ins"
^XMB(3.9,55,2,8759,0)="""RTN"",""IBCEF71"",83,0)"
^XMB(3.9,55,2,8760,0)=" . S:IBINSCO="""" IBINSCO=""NONE"" ;NONE will be included in the array"
^XMB(3.9,55,2,8761,0)="""RTN"",""IBCEF71"",84,0)"
^XMB(3.9,55,2,8762,0)=" . S IBFRMTYP=+$P($G(^IBA(IBFX,IB3559,0)),""^"",4) ;form type (0=both,1=UB92,2=HCFA 1500)"
^XMB(3.9,55,2,8763,0)="""RTN"",""IBCEF71"",85,0)"
^XMB(3.9,55,2,8764,0)=" . I '(IBFRMTYP=0!(IB399FRM=0)) Q:IBFRMTYP'=IB399FRM  ;exclude if not ""both"" and different"
^XMB(3.9,55,2,8765,0)="""RTN"",""IBCEF71"",86,0)"
^XMB(3.9,55,2,8766,0)=" . S IBCARE=+$P($G(^IBA(IBFX,IB3559,0)),""^"",5) ;0=both(inp and outp),1=inp,2=outp,3=prescr  -- OR -- division ptr"
^XMB(3.9,55,2,8767,0)="""RTN"",""IBCEF71"",87,0)"
^XMB(3.9,55,2,8768,0)=" . I $S(IBFILE=355.92:0,1:IBCARE=3) I IB399CAR'=3 Q  ; Id is only for Rx"
^XMB(3.9,55,2,8769,0)="""RTN"",""IBCEF71"",88,0)"
^XMB(3.9,55,2,8770,0)=" . I $S(IBFILE=355.92:0,1:IBCARE=1!(IBCARE=2)) I IB399CAR=1!(IB399CAR=2) Q:IBCARE'=IB399CAR  ;both is OK"
^XMB(3.9,55,2,8771,0)="""RTN"",""IBCEF71"",89,0)"
^XMB(3.9,55,2,8772,0)=" . I IBFILE=355.92,IBCARE Q:IB399CAR'=IBCARE  ; Division doesn't match"
^XMB(3.9,55,2,8773,0)="""RTN"",""IBCEF71"",90,0)"
^XMB(3.9,55,2,8774,0)=" . S IBIDTYP=+$P($G(^IBA(IBFX,IB3559,0)),""^"",6) ;prov ID type"
^XMB(3.9,55,2,8775,0)="""RTN"",""IBCEF71"",91,0)"
^XMB(3.9,55,2,8776,0)=" . I IBFILE=355.9,IBIDTYP=$$TAXID^IBCEP8(),$S(IBPROV[""VA(200"":1,1:$P($G(^IBA(355.93,+IBPROV,0)),U,2)=2) Q  ; Don't extract tax id # id for indiv prov"
^XMB(3.9,55,2,8777,0)="""RTN"",""IBCEF71"",92,0)"
^XMB(3.9,55,2,8778,0)=" . S IBIDT=IBIDTYP"
^XMB(3.9,55,2,8779,0)="""RTN"",""IBCEF71"",93,0)"
^XMB(3.9,55,2,8780,0)=" . S IBIDTYP=$P($G(^IBE(355.97,IBIDTYP,0)),""^"",3)"
^XMB(3.9,55,2,8781,0)="""RTN"",""IBCEF71"",94,0)"
^XMB(3.9,55,2,8782,0)=" . Q:$P($G(^IBE(355.97,+IBIDT,1)),U,9)"
^XMB(3.9,55,2,8783,0)="""RTN"",""IBCEF71"",95,0)"
^XMB(3.9,55,2,8784,0)=" . Q:IBFILE=355.9&(IBIDTYP=""X4"")  ;exclude CLIA #"
^XMB(3.9,55,2,8785,0)="""RTN"",""IBCEF71"",96,0)"
^XMB(3.9,55,2,8786,0)=" . S IBID=$P($G(^IBA(IBFX,IB3559,0)),""^"",7) ;prov ID value"
^XMB(3.9,55,2,8787,0)="""RTN"",""IBCEF71"",97,0)"
^XMB(3.9,55,2,8788,0)=" . I $G(IBPROVTP)'="""",$G(IBINSTP)'="""",IBPROVTP'=0 I '$$CHCKSEC^IBCEF73(IB399FRM,IBPROVTP,IBINSTP,IBIDTYP) Q  ; No qualifier chk for fac"
^XMB(3.9,55,2,8789,0)="""RTN"",""IBCEF71"",98,0)"
^XMB(3.9,55,2,8790,0)=" . I IBID'="""" S IBDAT=IBPROV_""^""_IBINSCO_""^""_IBIDTYP_""^""_IBID_""^""_IBFRMTYP_""^""_IBCARE_""^""_""^""_IB3559_U_IBIDT,IBS2=$S(IBFX'=355.91:"""",1:""INS DEF^"")_IB3559"
^XMB(3.9,55,2,8791,0)="""RTN"",""IBCEF71"",99,0)"
^XMB(3.9,55,2,8792,0)=" . I IBFILE'=355.92,IBID'="""",IB399CAR=3 S IBQ=0 D  Q:IBQ"
^XMB(3.9,55,2,8793,0)="""RTN"",""IBCEF71"",100,0)"
^XMB(3.9,55,2,8794,0)=" .. I $G(IBARRX(IBIDT))!(IBCARE=1) S IBQ=1 Q"
^XMB(3.9,55,2,8795,0)="""RTN"",""IBCEF71"",101,0)"
^XMB(3.9,55,2,8796,0)=" .. I IBCARE=3&(IB399CAR=3) S IBARRX(IBIDT)=1 Q  ; Rx match"
^XMB(3.9,55,2,8797,0)="""RTN"",""IBCEF71"",102,0)"
^XMB(3.9,55,2,8798,0)=" .. I IBCARE=0!(IBCARE=2) S IBARRX(IBIDT,IBINSCO,IBS2)=IBDAT,IBQ=1 Q"
^XMB(3.9,55,2,8799,0)="""RTN"",""IBCEF71"",103,0)"
^XMB(3.9,55,2,8800,0)=" . I IBID'="""" S IBARR(IBINSCO,IBS2)=IBDAT"
^XMB(3.9,55,2,8801,0)="""RTN"",""IBCEF71"",104,0)"
^XMB(3.9,55,2,8802,0)=" ;"
^XMB(3.9,55,2,8803,0)="""RTN"",""IBCEF71"",105,0)"
^XMB(3.9,55,2,8804,0)=" I IB399CAR=3 S Z=0 F  S Z=$O(IBARRX(Z)) Q:'Z  I '$G(IBARRX(Z)) D"
^XMB(3.9,55,2,8805,0)="""RTN"",""IBCEF71"",106,0)"
^XMB(3.9,55,2,8806,0)=" . S Z1="""" F  S Z1=$O(IBARRX(Z,Z1)) Q:Z1=""""  S Z2="""" F  S Z2=$O(IBARRX(Z,Z1,Z2)) Q:Z2=""""  S IBARR(Z1,Z2)=IBARRX(Z,Z1,Z2)"
^XMB(3.9,55,2,8807,0)="""RTN"",""IBCEF71"",107,0)"
^XMB(3.9,55,2,8808,0)=" ;"
^XMB(3.9,55,2,8809,0)="""RTN"",""IBCEF71"",108,0)"
^XMB(3.9,55,2,8810,0)=" I IBPROV[""VA(200,"" D  ; Get lic #s from file 2 for VA providers"
^XMB(3.9,55,2,8811,0)="""RTN"",""IBCEF71"",109,0)"
^XMB(3.9,55,2,8812,0)=" . N Z,IBLIC"
^XMB(3.9,55,2,8813,0)="""RTN"",""IBCEF71"",110,0)"
^XMB(3.9,55,2,8814,0)=" . S IBLIC=+IBPROV,IBLIC=$$GETLIC^IBCEP5D(.IBLIC)"
^XMB(3.9,55,2,8815,0)="""RTN"",""IBCEF71"",111,0)"
^XMB(3.9,55,2,8816,0)=" . S IBIDTYP=$P($G(^IBE(355.97,+$$STLIC^IBCEP8(),0)),U,3)"
^XMB(3.9,55,2,8817,0)="""RTN"",""IBCEF71"",112,0)"
^XMB(3.9,55,2,8818,0)=" . S Z=0 F  S Z=$O(IBLIC(Z)) Q:'Z  S:$$CHCKSEC^IBCEF73(IB399FRM,IBPROVTP,IBINSTP,IBIDTYP) IBARR(""NONE"",""LIC""_Z_""^""_IBPROV)=IBPROV_U_""NONE""_U_IBIDTYP_U_IBLIC(Z)_U_""0""_U_""0""_U_Z_U_U_+$$STLIC^IBCEP8()"
^XMB(3.9,55,2,8819,0)="""RTN"",""IBCEF71"",113,0)"
^XMB(3.9,55,2,8820,0)=" I IBPROV[""IBA(355.93"" D"
^XMB(3.9,55,2,8821,0)="""RTN"",""IBCEF71"",114,0)"
^XMB(3.9,55,2,8822,0)=" . Q:$P($G(^IBA(355.93,+IBPROV,0)),U,12)="""""
^XMB(3.9,55,2,8823,0)="""RTN"",""IBCEF71"",115,0)"
^XMB(3.9,55,2,8824,0)=" . S IBIDTYP=$P($G(^IBE(355.97,+$$STLIC^IBCEP8(),0)),U,3)"
^XMB(3.9,55,2,8825,0)="""RTN"",""IBCEF71"",116,0)"
^XMB(3.9,55,2,8826,0)=" . I $$CHCKSEC^IBCEF73(IB399FRM,IBPROVTP,IBINSTP,IBIDTYP) D"
^XMB(3.9,55,2,8827,0)="""RTN"",""IBCEF71"",117,0)"
^XMB(3.9,55,2,8828,0)=" . . S IBARR(""NONE"",""LIC""_$P($G(^DIC(5,+$P(^IBA(355.93,+IBPROV,0),U,7),0)),U,2)_""^""_IBPROV)=IBPROV_U_""NONE""_U_IBIDTYP_U_$P(^IBA(355.93,+IBPROV,0),U,12)_U_""0""_U_""0""_U_$P(^IBA(355.93,+IBPROV,0),U,7)_U_U_+IBPROV"
^XMB(3.9,55,2,8829,0)="""RTN"",""IBCEF71"",118,0)"
^XMB(3.9,55,2,8830,0)=" Q"
^XMB(3.9,55,2,8831,0)="""RTN"",""IBCEF71"",119,0)"
^XMB(3.9,55,2,8832,0)=" ;"
^XMB(3.9,55,2,8833,0)="""RTN"",""IBCEF71"",120,0)"
^XMB(3.9,55,2,8834,0)="ALLPRFAC(IBXIEN,IBXSAVE) ; Return all non-VA/outside facility prov ids"
^XMB(3.9,55,2,8835,0)="""RTN"",""IBCEF71"",121,0)"
^XMB(3.9,55,2,8836,0)=" ; and all VA alternate prov ids"
^XMB(3.9,55,2,8837,0)="""RTN"",""IBCEF71"",122,0)"
^XMB(3.9,55,2,8838,0)=" ; IBXIEN = ien file 399"
^XMB(3.9,55,2,8839,0)="""RTN"",""IBCEF71"",123,0)"
^XMB(3.9,55,2,8840,0)=" ; IBXSAVE = subscripted array returned"
^XMB(3.9,55,2,8841,0)="""RTN"",""IBCEF71"",124,0)"
^XMB(3.9,55,2,8842,0)=" N IBPROV,IBFRMTYP,IBCARE,IBRETARR,IBRET1,IBCOBN,Z,Z0,Z1,ZZ"
^XMB(3.9,55,2,8843,0)="""RTN"",""IBCEF71"",125,0)"
^XMB(3.9,55,2,8844,0)=" K IBXSAVE(""PROVINF_FAC"",IBXIEN) ; Always rebuild this"
^XMB(3.9,55,2,8845,0)="""RTN"",""IBCEF71"",126,0)"
^XMB(3.9,55,2,8846,0)=" S IBCOBN=+$$COBN^IBCEF(IBXIEN)"
^XMB(3.9,55,2,8847,0)="""RTN"",""IBCEF71"",127,0)"
^XMB(3.9,55,2,8848,0)=" S IBFRMTYP=$$FT^IBCEF(IBXIEN),IBFRMTYP=$S(IBFRMTYP=2:2,IBFRMTYP=3:1,1:0)"
^XMB(3.9,55,2,8849,0)="""RTN"",""IBCEF71"",128,0)"
^XMB(3.9,55,2,8850,0)=" S IBPROV=$P($G(^DGCR(399,IBXIEN,""U2"")),U,10)"
^XMB(3.9,55,2,8851,0)="""RTN"",""IBCEF71"",129,0)"
^XMB(3.9,55,2,8852,0)=" ; IB patch 320 - Build IBPROV variable better when a non-VA facility exists"
^XMB(3.9,55,2,8853,0)="""RTN"",""IBCEF71"",130,0)"
^XMB(3.9,55,2,8854,0)=" I IBPROV S IBPROV=IBPROV_"";IBA(355.93,"""
^XMB(3.9,55,2,8855,0)="""RTN"",""IBCEF71"",131,0)"
^XMB(3.9,55,2,8856,0)=" I 'IBPROV S IBCARE=$P($G(^DGCR(399,IBXIEN,0)),U,22)"
^XMB(3.9,55,2,8857,0)="""RTN"",""IBCEF71"",132,0)"
^XMB(3.9,55,2,8858,0)=" I IBPROV D"
^XMB(3.9,55,2,8859,0)="""RTN"",""IBCEF71"",133,0)"
^XMB(3.9,55,2,8860,0)=" . S IBCARE=$S($$ISRX^IBCEF1(IBXIEN):3,1:0) ;if Rx refill bill"
^XMB(3.9,55,2,8861,0)="""RTN"",""IBCEF71"",134,0)"
^XMB(3.9,55,2,8862,0)=" . S:IBCARE=0 IBCARE=$$INPAT^IBCEF(IBXIEN,1) S:'IBCARE IBCARE=2 ;1-inp, 2-out"
^XMB(3.9,55,2,8863,0)="""RTN"",""IBCEF71"",135,0)"
^XMB(3.9,55,2,8864,0)=" F Z=1:1:3 K IBRETARR I $G(^DGCR(399,IBXIEN,""I""_Z)) D"
^XMB(3.9,55,2,8865,0)="""RTN"",""IBCEF71"",136,0)"
^XMB(3.9,55,2,8866,0)=" . D PRACT(+^DGCR(399,IBXIEN,""I""_Z),IBFRMTYP,IBCARE,IBPROV,.IBRETARR,0,$S(Z=IBCOBN:""C"",1:""O""),$S('IBPROV:355.92,1:355.9))"
^XMB(3.9,55,2,8867,0)="""RTN"",""IBCEF71"",137,0)"
^XMB(3.9,55,2,8868,0)=" . K IBRET1"
^XMB(3.9,55,2,8869,0)="""RTN"",""IBCEF71"",138,0)"
^XMB(3.9,55,2,8870,0)=" . S Z0="""" F  S Z0=$O(IBRETARR(Z0)) Q:Z0=""""  S Z1="""" F  S Z1=$O(IBRETARR(Z0,Z1)) Q:Z1=""""  D"
^XMB(3.9,55,2,8871,0)="""RTN"",""IBCEF71"",139,0)"
^XMB(3.9,55,2,8872,0)=" .. ; Sort by div/id type"
^XMB(3.9,55,2,8873,0)="""RTN"",""IBCEF71"",140,0)"
^XMB(3.9,55,2,8874,0)=" .. S IBRET1($S(IBPROV:0,1:+$P(IBRETARR(Z0,Z1),U,6)),+$P(IBRETARR(Z0,Z1),U,9))=IBRETARR(Z0,Z1)"
^XMB(3.9,55,2,8875,0)="""RTN"",""IBCEF71"",141,0)"
^XMB(3.9,55,2,8876,0)=" .. Q"
^XMB(3.9,55,2,8877,0)="""RTN"",""IBCEF71"",142,0)"
^XMB(3.9,55,2,8878,0)=" . ;"
^XMB(3.9,55,2,8879,0)="""RTN"",""IBCEF71"",143,0)"
^XMB(3.9,55,2,8880,0)=" . S Z0=$O(IBRET1(""""),-1) Q:Z0=""""  D"
^XMB(3.9,55,2,8881,0)="""RTN"",""IBCEF71"",144,0)"
^XMB(3.9,55,2,8882,0)=" .. ; IB patch 320 - loop thru all ID's"
^XMB(3.9,55,2,8883,0)="""RTN"",""IBCEF71"",145,0)"
^XMB(3.9,55,2,8884,0)=" .. S Z1="""" F  S Z1=$O(IBRET1(Z0,Z1)) Q:Z1=""""  D"
^XMB(3.9,55,2,8885,0)="""RTN"",""IBCEF71"",146,0)"
^XMB(3.9,55,2,8886,0)=" ... I Z=IBCOBN S IBXSAVE(""PROVINF_FAC"",IBXIEN,""C"",1,0,$O(IBXSAVE(""PROVINF_FAC"",IBXIEN,""C"",1,0,"" ""),-1)+1)=IBRET1(Z0,Z1) Q"
^XMB(3.9,55,2,8887,0)="""RTN"",""IBCEF71"",147,0)"
^XMB(3.9,55,2,8888,0)=" ... S ZZ=$S(Z=1:1,Z=2:(IBCOBN=3)+1,1:2)"
^XMB(3.9,55,2,8889,0)="""RTN"",""IBCEF71"",148,0)"
^XMB(3.9,55,2,8890,0)=" ... S IBXSAVE(""PROVINF_FAC"",IBXIEN,""O"",ZZ,0,$O(IBXSAVE(""PROVINF_FAC"",IBXIEN,""O"",ZZ,0,"" ""),-1)+1)=IBRET1(Z0,Z1),IBXSAVE(""PROVINF_FAC"",IBXIEN,""O"",ZZ)=$E(""PST"",Z)"
^XMB(3.9,55,2,8891,0)="""RTN"",""IBCEF71"",149,0)"
^XMB(3.9,55,2,8892,0)=" ... Q"
^XMB(3.9,55,2,8893,0)="""RTN"",""IBCEF71"",150,0)"
^XMB(3.9,55,2,8894,0)=" .. Q"
^XMB(3.9,55,2,8895,0)="""RTN"",""IBCEF71"",151,0)"
^XMB(3.9,55,2,8896,0)=" . Q"
^XMB(3.9,55,2,8897,0)="""RTN"",""IBCEF71"",152,0)"
^XMB(3.9,55,2,8898,0)=" ;"
^XMB(3.9,55,2,8899,0)="""RTN"",""IBCEF71"",153,0)"
^XMB(3.9,55,2,8900,0)=" S IBXSAVE(""PROVINF_FAC"",IBXIEN)=IBXIEN,IBXSAVE(""PROVINF_FAC"",IBXIEN,""C"",1)=$E(""PST"",IBCOBN)"
^XMB(3.9,55,2,8901,0)="""RTN"",""IBCEF71"",154,0)"
^XMB(3.9,55,2,8902,0)=" Q"
^XMB(3.9,55,2,8903,0)="""RTN"",""IBCEF71"",155,0)"
^XMB(3.9,55,2,8904,0)=" ;"
^XMB(3.9,55,2,8905,0)="""RTN"",""IBCEF71"",156,0)"
^XMB(3.9,55,2,8906,0)="OTHID(IBXSAVE,IBXDATA,IBXIEN,PRIDSEQ,PRTYP,IBQ,IBFAC) ; From data in IBXSAVE,"
^XMB(3.9,55,2,8907,0)="""RTN"",""IBCEF71"",157,0)"
^XMB(3.9,55,2,8908,0)=" ;  determine id or qualifier to output in the 837 records OP*"
^XMB(3.9,55,2,8909,0)="""RTN"",""IBCEF71"",158,0)"
^XMB(3.9,55,2,8910,0)=" ; Returns IBXDATA array IBXDATA(n)=data"
^XMB(3.9,55,2,8911,0)="""RTN"",""IBCEF71"",159,0)"
^XMB(3.9,55,2,8912,0)=" ; IBXIEN = ien of the bill-file 399"
^XMB(3.9,55,2,8913,0)="""RTN"",""IBCEF71"",160,0)"
^XMB(3.9,55,2,8914,0)=" ; PRIDSEQ = sequence of the payer id needed"
^XMB(3.9,55,2,8915,0)="""RTN"",""IBCEF71"",161,0)"
^XMB(3.9,55,2,8916,0)=" ; PRTYP = provider type to check for data"
^XMB(3.9,55,2,8917,0)="""RTN"",""IBCEF71"",162,0)"
^XMB(3.9,55,2,8918,0)=" ; IBQ = 1 if qualifier needed, 0/null if id needed"
^XMB(3.9,55,2,8919,0)="""RTN"",""IBCEF71"",163,0)"
^XMB(3.9,55,2,8920,0)=" ; IBFAC = 1 if facility id, 0 for individual provider id"
^XMB(3.9,55,2,8921,0)="""RTN"",""IBCEF71"",164,0)"
^XMB(3.9,55,2,8922,0)=" ; "
^XMB(3.9,55,2,8923,0)="""RTN"",""IBCEF71"",165,0)"
^XMB(3.9,55,2,8924,0)=" N Z,Z0,Z1"
^XMB(3.9,55,2,8925,0)="""RTN"",""IBCEF71"",166,0)"
^XMB(3.9,55,2,8926,0)=" S Z0=""PROVINF""_$S('$G(IBFAC):"""",1:""_FAC""),Z1=$S($G(IBQ):3,1:4)"
^XMB(3.9,55,2,8927,0)="""RTN"",""IBCEF71"",167,0)"
^XMB(3.9,55,2,8928,0)=" S Z=0 F  S Z=$O(IBXSAVE(""OSQ"",Z)) Q:'Z  D"
^XMB(3.9,55,2,8929,0)="""RTN"",""IBCEF71"",168,0)"
^XMB(3.9,55,2,8930,0)=" . I $P($G(IBXSAVE(Z0,IBXIEN,""O"",Z,+$G(PRTYP),+$G(PRIDSEQ))),U,4)'="""" S IBXDATA(IBXSAVE(""OSQ"",Z))=$P(IBXSAVE(Z0,IBXIEN,""O"",Z,+$G(PRTYP),+$G(PRIDSEQ)),U,Z1)"
^XMB(3.9,55,2,8931,0)="""RTN"",""IBCEF71"",169,0)"
^XMB(3.9,55,2,8932,0)=" Q"
^XMB(3.9,55,2,8933,0)="""RTN"",""IBCEF71"",170,0)"
^XMB(3.9,55,2,8934,0)=" ;"
^XMB(3.9,55,2,8935,0)="""RTN"",""IBCEF71"",171,0)"
^XMB(3.9,55,2,8936,0)="SETSEQ(IBXIEN,IBXSAVE,IBXDATA,PRTYP,IBFAC,IBOP) ; Sets up IBXSAVE(""OSQ"")"
^XMB(3.9,55,2,8937,0)="""RTN"",""IBCEF71"",172,0)"
^XMB(3.9,55,2,8938,0)=" ;  array for other id seq in 837 records OP*"
^XMB(3.9,55,2,8939,0)="""RTN"",""IBCEF71"",173,0)"
^XMB(3.9,55,2,8940,0)=" ; Returns IBXDATA(n)=cob seq indicator for ids"
^XMB(3.9,55,2,8941,0)="""RTN"",""IBCEF71"",174,0)"
^XMB(3.9,55,2,8942,0)=" ; IBXIEN = ien of bill-399"
^XMB(3.9,55,2,8943,0)="""RTN"",""IBCEF71"",175,0)"
^XMB(3.9,55,2,8944,0)=" ; PRTYP = the provider type to check for data for indiv provider"
^XMB(3.9,55,2,8945,0)="""RTN"",""IBCEF71"",176,0)"
^XMB(3.9,55,2,8946,0)=" ; IBFAC = 1 if facility id, 0 for individual provider id"
^XMB(3.9,55,2,8947,0)="""RTN"",""IBCEF71"",177,0)"
^XMB(3.9,55,2,8948,0)=" ; IBOP = segement # in OP being output"
^XMB(3.9,55,2,8949,0)="""RTN"",""IBCEF71"",178,0)"
^XMB(3.9,55,2,8950,0)=" N C,Z,Z0,Z1,OK"
^XMB(3.9,55,2,8951,0)="""RTN"",""IBCEF71"",179,0)"
^XMB(3.9,55,2,8952,0)=" S C=0,Z0=""PROVINF""_$S('$G(IBFAC):"""",1:""_FAC"")"
^XMB(3.9,55,2,8953,0)="""RTN"",""IBCEF71"",180,0)"
^XMB(3.9,55,2,8954,0)=" S:$G(IBFAC) PRTYP=0"
^XMB(3.9,55,2,8955,0)="""RTN"",""IBCEF71"",181,0)"
^XMB(3.9,55,2,8956,0)=" S Z=0 F  S Z=$O(IBXSAVE(Z0,IBXIEN,""O"",Z)) Q:'Z  S OK=0 D"
^XMB(3.9,55,2,8957,0)="""RTN"",""IBCEF71"",182,0)"
^XMB(3.9,55,2,8958,0)=" . N Z1 F Z1=1:1 Q:'$D(IBXSAVE(Z0,IBXIEN,""O"",Z,+$G(PRTYP),Z1))  I $P(IBXSAVE(Z0,IBXIEN,""O"",Z,+$G(PRTYP),Z1),U,4)'="""""""" S OK=1 Q"
^XMB(3.9,55,2,8959,0)="""RTN"",""IBCEF71"",183,0)"
^XMB(3.9,55,2,8960,0)=" . I OK S C=C+1,IBXSAVE(""OSQ"",Z)=C"
^XMB(3.9,55,2,8961,0)="""RTN"",""IBCEF71"",184,0)"
^XMB(3.9,55,2,8962,0)=" S Z=0 F  S Z=$O(IBXSAVE(""OSQ"",Z)) Q:'Z  S IBXDATA(IBXSAVE(""OSQ"",Z))=$G(IBXSAVE(Z0,IBXIEN,""O"",Z)) D:IBXSAVE(""OSQ"",Z)>1 ID^IBCEF2(IBXSAVE(""OSQ"",Z),""OP""_$G(IBOP)_"" "")"
^XMB(3.9,55,2,8963,0)="""RTN"",""IBCEF71"",185,0)"
^XMB(3.9,55,2,8964,0)=" Q"
^XMB(3.9,55,2,8965,0)="""RTN"",""IBCEF71"",186,0)"
^XMB(3.9,55,2,8966,0)=" ;"
^XMB(3.9,55,2,8967,0)="""RTN"",""IBCEF71"",187,0)"
^XMB(3.9,55,2,8968,0)="PSPRV(IBIFN) ;"
^XMB(3.9,55,2,8969,0)="""RTN"",""IBCEF71"",188,0)"
^XMB(3.9,55,2,8970,0)=" Q $$PSPRV^IBCEF7(IBIFN) ; Moved"
^XMB(3.9,55,2,8971,0)="""RTN"",""IBCEF71"",189,0)"
^XMB(3.9,55,2,8972,0)=" ;"
^XMB(3.9,55,2,8973,0)="""RTN"",""IBCEF72"")"
^XMB(3.9,55,2,8974,0)="0^7^B53776551^B52208201"
^XMB(3.9,55,2,8975,0)="""RTN"",""IBCEF72"",1,0)"
^XMB(3.9,55,2,8976,0)="IBCEF72 ;WOIFO/SS - FORMATTER AND EXTRACTOR SPECIFIC BILL FUNCTIONS ;8/6/03 10:56am"
^XMB(3.9,55,2,8977,0)="""RTN"",""IBCEF72"",2,0)"
^XMB(3.9,55,2,8978,0)=" ;;2.0;INTEGRATED BILLING;**232,320**;21-MAR-94"
^XMB(3.9,55,2,8979,0)="""RTN"",""IBCEF72"",3,0)"
^XMB(3.9,55,2,8980,0)=" ;; Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,8981,0)="""RTN"",""IBCEF72"",4,0)"
^XMB(3.9,55,2,8982,0)=" ;"
^XMB(3.9,55,2,8983,0)="""RTN"",""IBCEF72"",5,0)"
^XMB(3.9,55,2,8984,0)=" ;"
^XMB(3.9,55,2,8985,0)="""RTN"",""IBCEF72"",6,0)"
^XMB(3.9,55,2,8986,0)=" ;Input:"
^XMB(3.9,55,2,8987,0)="""RTN"",""IBCEF72"",7,0)"
^XMB(3.9,55,2,8988,0)=" ;IBINSCO - ptr to #36"
^XMB(3.9,55,2,8989,0)="""RTN"",""IBCEF72"",8,0)"
^XMB(3.9,55,2,8990,0)=" ;IBFRMTYP 0=unknwn/both,1=UB92,2=HCFA 1500"
^XMB(3.9,55,2,8991,0)="""RTN"",""IBCEF72"",9,0)"
^XMB(3.9,55,2,8992,0)=" ;IBCARE - 0=unknwn or both inp/outp,1=inpatient, 2=outpatient, 3 -RX"
^XMB(3.9,55,2,8993,0)="""RTN"",""IBCEF72"",10,0)"
^XMB(3.9,55,2,8994,0)=" ;Output: X12 IDtype^ID^ID TYPE ptr to file 355.97"
^XMB(3.9,55,2,8995,0)="""RTN"",""IBCEF72"",11,0)"
^XMB(3.9,55,2,8996,0)="CH35591(IBINSCO,IBFRMTYP,IBCARE) ;"
^XMB(3.9,55,2,8997,0)="""RTN"",""IBCEF72"",12,0)"
^XMB(3.9,55,2,8998,0)=" N IB35591,IBRET,IB1"
^XMB(3.9,55,2,8999,0)="""RTN"",""IBCEF72"",13,0)"
^XMB(3.9,55,2,9000,0)=" S IB35591=0,IBRET="""""
^XMB(3.9,55,2,9001,0)="""RTN"",""IBCEF72"",14,0)"
^XMB(3.9,55,2,9002,0)=" F  S IB35591=$O(^IBA(355.91,""B"",IBINSCO,IB35591)) Q:+IB35591=0  Q:IBRET'=""""  D"
^XMB(3.9,55,2,9003,0)="""RTN"",""IBCEF72"",15,0)"
^XMB(3.9,55,2,9004,0)=" . S IB1=$G(^IBA(355.91,IB35591,0))"
^XMB(3.9,55,2,9005,0)="""RTN"",""IBCEF72"",16,0)"
^XMB(3.9,55,2,9006,0)=" . I '($P(IB1,""^"",4)=0!(IBFRMTYP=0)) Q:$P(IB1,""^"",4)'=IBFRMTYP  ;if wrong form type"
^XMB(3.9,55,2,9007,0)="""RTN"",""IBCEF72"",17,0)"
^XMB(3.9,55,2,9008,0)=" . I ($P(IB1,""^"",5)=3)!(IBCARE=3) Q:IBCARE'=$P(IB1,""^"",5)  ;if not RX"
^XMB(3.9,55,2,9009,0)="""RTN"",""IBCEF72"",18,0)"
^XMB(3.9,55,2,9010,0)=" . I ($P(IB1,""^"",5)=1)!($P(IB1,""^"",5)=2) I (IBCARE=1)!(IBCARE=2) Q:$P(IB1,""^"",5)'=IBCARE  ;if wrong care type"
^XMB(3.9,55,2,9011,0)="""RTN"",""IBCEF72"",19,0)"
^XMB(3.9,55,2,9012,0)=" . S IBRET=$P($G(^IBE(355.97,+$P(IB1,""^"",6),0)),""^"",3)_""^""_$P(IB1,""^"",7)_U_+$P(IB1,U,6)"
^XMB(3.9,55,2,9013,0)="""RTN"",""IBCEF72"",20,0)"
^XMB(3.9,55,2,9014,0)=" Q IBRET"
^XMB(3.9,55,2,9015,0)="""RTN"",""IBCEF72"",21,0)"
^XMB(3.9,55,2,9016,0)=" ;"
^XMB(3.9,55,2,9017,0)="""RTN"",""IBCEF72"",22,0)"
^XMB(3.9,55,2,9018,0)="FINDEIN(IBXIEN,IBPROV,IBFAC,IBS) ; find EIN for facility/ SSN for person"
^XMB(3.9,55,2,9019,0)="""RTN"",""IBCEF72"",23,0)"
^XMB(3.9,55,2,9020,0)=" ; IBXIEN = ien of bill entry file 399"
^XMB(3.9,55,2,9021,0)="""RTN"",""IBCEF72"",24,0)"
^XMB(3.9,55,2,9022,0)=" ; IBFAC = 1 if facility, 0 if individual provider"
^XMB(3.9,55,2,9023,0)="""RTN"",""IBCEF72"",25,0)"
^XMB(3.9,55,2,9024,0)=" ; IBPROV = ien of provider (vp format)"
^XMB(3.9,55,2,9025,0)="""RTN"",""IBCEF72"",26,0)"
^XMB(3.9,55,2,9026,0)=" ; IBS = 1 if person's EIN should be returned if there, otherwise SSN"
^XMB(3.9,55,2,9027,0)="""RTN"",""IBCEF72"",27,0)"
^XMB(3.9,55,2,9028,0)=" ; FUNCTION RETURNS "
^XMB(3.9,55,2,9029,0)="""RTN"",""IBCEF72"",28,0)"
^XMB(3.9,55,2,9030,0)=" ;    EIN or SSN ^ 24 for EIN, 34 for SSN or null if none found"
^XMB(3.9,55,2,9031,0)="""RTN"",""IBCEF72"",29,0)"
^XMB(3.9,55,2,9032,0)=" N Z,Z0,IBARR,IBEIN,IBSSN"
^XMB(3.9,55,2,9033,0)="""RTN"",""IBCEF72"",30,0)"
^XMB(3.9,55,2,9034,0)=" S (IBEIN,IBSSN)="""""
^XMB(3.9,55,2,9035,0)="""RTN"",""IBCEF72"",31,0)"
^XMB(3.9,55,2,9036,0)=" D ALLID^IBCEP8(IBPROV,"""",.IBARR)"
^XMB(3.9,55,2,9037,0)="""RTN"",""IBCEF72"",32,0)"
^XMB(3.9,55,2,9038,0)=" S Z=0 F  S Z=$O(IBARR(Z)) Q:'Z  D  Q:IBEIN'="""""
^XMB(3.9,55,2,9039,0)="""RTN"",""IBCEF72"",33,0)"
^XMB(3.9,55,2,9040,0)=" . I $G(IBFAC) Q:$P(IBARR(Z),U,7)'=""EI""  S IBEIN=$P(IBARR(Z),U,2)_U_24 Q"
^XMB(3.9,55,2,9041,0)="""RTN"",""IBCEF72"",34,0)"
^XMB(3.9,55,2,9042,0)=" . I $P(IBARR(Z),U,7)=""SY"" D  Q"
^XMB(3.9,55,2,9043,0)="""RTN"",""IBCEF72"",35,0)"
^XMB(3.9,55,2,9044,0)=" .. I $G(IBS) S IBSSN=$P(IBARR(Z),U,2)_U_34 Q"
^XMB(3.9,55,2,9045,0)="""RTN"",""IBCEF72"",36,0)"
^XMB(3.9,55,2,9046,0)=" . S IBEIN=$P(IBARR(Z),U,2)_U_24"
^XMB(3.9,55,2,9047,0)="""RTN"",""IBCEF72"",37,0)"
^XMB(3.9,55,2,9048,0)=" . I $G(IBS),$P(IBARR(Z),U,7)=""EI"" S IBEIN=$P(IBARR(Z),U,2)_U_24"
^XMB(3.9,55,2,9049,0)="""RTN"",""IBCEF72"",38,0)"
^XMB(3.9,55,2,9050,0)=" I $G(IBS),IBEIN="""" S IBEIN=IBSSN"
^XMB(3.9,55,2,9051,0)="""RTN"",""IBCEF72"",39,0)"
^XMB(3.9,55,2,9052,0)=" Q IBEIN"
^XMB(3.9,55,2,9053,0)="""RTN"",""IBCEF72"",40,0)"
^XMB(3.9,55,2,9054,0)=" ;"
^XMB(3.9,55,2,9055,0)="""RTN"",""IBCEF72"",41,0)"
^XMB(3.9,55,2,9056,0)=" ;"
^XMB(3.9,55,2,9057,0)="""RTN"",""IBCEF72"",42,0)"
^XMB(3.9,55,2,9058,0)="NONVAID(IBXIEN,IBX,IBFAC,IBS) ; Find the non-VA provider default id"
^XMB(3.9,55,2,9059,0)="""RTN"",""IBCEF72"",43,0)"
^XMB(3.9,55,2,9060,0)=" ; IBXIEN = the ien of the bill (file 399)"
^XMB(3.9,55,2,9061,0)="""RTN"",""IBCEF72"",44,0)"
^XMB(3.9,55,2,9062,0)=" ; IBX = id data returned if passed by reference"
^XMB(3.9,55,2,9063,0)="""RTN"",""IBCEF72"",45,0)"
^XMB(3.9,55,2,9064,0)=" ; IBFAC = 1 if getting the id for the facility or 0 for rendering prov"
^XMB(3.9,55,2,9065,0)="""RTN"",""IBCEF72"",46,0)"
^XMB(3.9,55,2,9066,0)=" ; IBS = 1 if getting id for person, but need the EIN if there"
^XMB(3.9,55,2,9067,0)="""RTN"",""IBCEF72"",47,0)"
^XMB(3.9,55,2,9068,0)=" ; Function returns the id^type of id^person/facility flag:"
^XMB(3.9,55,2,9069,0)="""RTN"",""IBCEF72"",48,0)"
^XMB(3.9,55,2,9070,0)=" ;   Type of id: 1 = SSN    2 = EIN   0 = not found"
^XMB(3.9,55,2,9071,0)="""RTN"",""IBCEF72"",49,0)"
^XMB(3.9,55,2,9072,0)=" ;   person/facility: 1 = person   2 = facility"
^XMB(3.9,55,2,9073,0)="""RTN"",""IBCEF72"",50,0)"
^XMB(3.9,55,2,9074,0)=" N Z,IBXSAVE,IBU2,IBTYPE,IBZ,IBF,IBPROV,Q,Q0"
^XMB(3.9,55,2,9075,0)="""RTN"",""IBCEF72"",51,0)"
^XMB(3.9,55,2,9076,0)=" S IBTYPE=2,IBU2=$G(^DGCR(399,IBXIEN,""U2"")),IBF=2,IBPROV="""""
^XMB(3.9,55,2,9077,0)="""RTN"",""IBCEF72"",52,0)"
^XMB(3.9,55,2,9078,0)=" ;"
^XMB(3.9,55,2,9079,0)="""RTN"",""IBCEF72"",53,0)"
^XMB(3.9,55,2,9080,0)=" S Z=$P(IBU2,U,10)"
^XMB(3.9,55,2,9081,0)="""RTN"",""IBCEF72"",54,0)"
^XMB(3.9,55,2,9082,0)=" I 'Z S IBX="""",IBTYPE=0 G NONVAQ ; Not a non-VA facility"
^XMB(3.9,55,2,9083,0)="""RTN"",""IBCEF72"",55,0)"
^XMB(3.9,55,2,9084,0)=" S IBPROV=Z_"";IBA(355.93,"""
^XMB(3.9,55,2,9085,0)="""RTN"",""IBCEF72"",56,0)"
^XMB(3.9,55,2,9086,0)=" ;"
^XMB(3.9,55,2,9087,0)="""RTN"",""IBCEF72"",57,0)"
^XMB(3.9,55,2,9088,0)=" ; Get EIN"
^XMB(3.9,55,2,9089,0)="""RTN"",""IBCEF72"",58,0)"
^XMB(3.9,55,2,9090,0)=" I $G(IBFAC) D  G NONVAQ"
^XMB(3.9,55,2,9091,0)="""RTN"",""IBCEF72"",59,0)"
^XMB(3.9,55,2,9092,0)=" . S IBX=$P($$FINDEIN(IBXIEN,IBPROV,IBFAC),U),IBTYPE=2"
^XMB(3.9,55,2,9093,0)="""RTN"",""IBCEF72"",60,0)"
^XMB(3.9,55,2,9094,0)=" ;"
^XMB(3.9,55,2,9095,0)="""RTN"",""IBCEF72"",61,0)"
^XMB(3.9,55,2,9096,0)=" ; Get EIN/SSN"
^XMB(3.9,55,2,9097,0)="""RTN"",""IBCEF72"",62,0)"
^XMB(3.9,55,2,9098,0)=" I '$G(IBFAC) D  G NONVAQ"
^XMB(3.9,55,2,9099,0)="""RTN"",""IBCEF72"",63,0)"
^XMB(3.9,55,2,9100,0)=" . S IBX="""",IBF=1"
^XMB(3.9,55,2,9101,0)="""RTN"",""IBCEF72"",64,0)"
^XMB(3.9,55,2,9102,0)=" . S Q0=($$FT^IBCEF(IBXIEN)=3)+3 ; 3 for rendering/4 for attending"
^XMB(3.9,55,2,9103,0)="""RTN"",""IBCEF72"",65,0)"
^XMB(3.9,55,2,9104,0)=" . S Q=+$O(^DGCR(399,IBXIEN,""PRV"",""B"",Q0,0))"
^XMB(3.9,55,2,9105,0)="""RTN"",""IBCEF72"",66,0)"
^XMB(3.9,55,2,9106,0)=" . S IBPROV=$P($G(^DGCR(399,IBXIEN,""PRV"",Q,0)),U,2)"
^XMB(3.9,55,2,9107,0)="""RTN"",""IBCEF72"",67,0)"
^XMB(3.9,55,2,9108,0)=" . I IBPROV S IBX=$$FINDEIN(IBXIEN,IBPROV,IBFAC,$G(IBS)),IBTYPE=$S($P(IBX,U,2)=24:2,$P(IBX,U,2)=34:1,1:0),IBX=$P(IBX,U)"
^XMB(3.9,55,2,9109,0)="""RTN"",""IBCEF72"",68,0)"
^XMB(3.9,55,2,9110,0)=" ;"
^XMB(3.9,55,2,9111,0)="""RTN"",""IBCEF72"",69,0)"
^XMB(3.9,55,2,9112,0)="NONVAQ I IBTYPE,IBX="""",$P(IBU2,U,12)'="""" S IBX=$P(IBU2,U,12) ; pull from 399"
^XMB(3.9,55,2,9113,0)="""RTN"",""IBCEF72"",70,0)"
^XMB(3.9,55,2,9114,0)=" S IBX=$G(IBX)"
^XMB(3.9,55,2,9115,0)="""RTN"",""IBCEF72"",71,0)"
^XMB(3.9,55,2,9116,0)=" Q IBX_U_IBTYPE_U_IBF"
^XMB(3.9,55,2,9117,0)="""RTN"",""IBCEF72"",72,0)"
^XMB(3.9,55,2,9118,0)=" ;----"
^XMB(3.9,55,2,9119,0)="""RTN"",""IBCEF72"",73,0)"
^XMB(3.9,55,2,9120,0)=" ;checks if there is data for OP* segments and "
^XMB(3.9,55,2,9121,0)="""RTN"",""IBCEF72"",74,0)"
^XMB(3.9,55,2,9122,0)=" ;then populates PROV COB SEQ"
^XMB(3.9,55,2,9123,0)="""RTN"",""IBCEF72"",75,0)"
^XMB(3.9,55,2,9124,0)=" ;Input:"
^XMB(3.9,55,2,9125,0)="""RTN"",""IBCEF72"",76,0)"
^XMB(3.9,55,2,9126,0)=" ;IBXIEN - ien in #399"
^XMB(3.9,55,2,9127,0)="""RTN"",""IBCEF72"",77,0)"
^XMB(3.9,55,2,9128,0)=" ;IBSAVE - ""in"" array (i.e. IBXSAVE)"
^XMB(3.9,55,2,9129,0)="""RTN"",""IBCEF72"",78,0)"
^XMB(3.9,55,2,9130,0)=" ;IBDATA - ""out"" array (i.e. IBXDATA)"
^XMB(3.9,55,2,9131,0)="""RTN"",""IBCEF72"",79,0)"
^XMB(3.9,55,2,9132,0)=" ;IBFUNC - FUNCTION from #399 (1-refering, 2 -operating, etc)"
^XMB(3.9,55,2,9133,0)="""RTN"",""IBCEF72"",80,0)"
^XMB(3.9,55,2,9134,0)=" ;IBSEGM - segment record ID, optional"
^XMB(3.9,55,2,9135,0)="""RTN"",""IBCEF72"",81,0)"
^XMB(3.9,55,2,9136,0)=" ;Output:"
^XMB(3.9,55,2,9137,0)="""RTN"",""IBCEF72"",82,0)"
^XMB(3.9,55,2,9138,0)=" ; IBDATA with formatted output"
^XMB(3.9,55,2,9139,0)="""RTN"",""IBCEF72"",83,0)"
^XMB(3.9,55,2,9140,0)="PROVSEQ(IBXIEN,IBSAVE,IBDATA,IBFUNC,IBSEGM) ;"
^XMB(3.9,55,2,9141,0)="""RTN"",""IBCEF72"",84,0)"
^XMB(3.9,55,2,9142,0)=" N IB1,IB2,IBINS,IBFL"
^XMB(3.9,55,2,9143,0)="""RTN"",""IBCEF72"",85,0)"
^XMB(3.9,55,2,9144,0)=" S IBFL=$S(IBFUNC=3!(IBFUNC=4):1,1:0)"
^XMB(3.9,55,2,9145,0)="""RTN"",""IBCEF72"",86,0)"
^XMB(3.9,55,2,9146,0)=" F IB1=1,2 D"
^XMB(3.9,55,2,9147,0)="""RTN"",""IBCEF72"",87,0)"
^XMB(3.9,55,2,9148,0)=" . Q:'$$ISINSUR^IBCEF71($G(IBSAVE(""PROVINF"",IBXIEN,""O"",IB1)),IBXIEN)  ;don't create anything if there is no such insurance"
^XMB(3.9,55,2,9149,0)="""RTN"",""IBCEF72"",88,0)"
^XMB(3.9,55,2,9150,0)=" . I IBFL S IBFUNC=$S($O(IBSAVE(""PROVINF"",IBXIEN,""O"",IB1,3,0)):3,1:4)"
^XMB(3.9,55,2,9151,0)="""RTN"",""IBCEF72"",89,0)"
^XMB(3.9,55,2,9152,0)=" . S:$O(IBSAVE(""PROVINF"",IBXIEN,""O"",IB1,IBFUNC,0)) IBDATA(IB1)=$G(IBSAVE(""PROVINF"",IBXIEN,""O"",IB1))"
^XMB(3.9,55,2,9153,0)="""RTN"",""IBCEF72"",90,0)"
^XMB(3.9,55,2,9154,0)=" . I $G(IBSEGM)'="""" D:$O(IBSAVE(""PROVINF"",IBXIEN,""O"",IB1,IBFUNC,0)) ID^IBCEF2(IB1,IBSEGM)"
^XMB(3.9,55,2,9155,0)="""RTN"",""IBCEF72"",91,0)"
^XMB(3.9,55,2,9156,0)=" Q"
^XMB(3.9,55,2,9157,0)="""RTN"",""IBCEF72"",92,0)"
^XMB(3.9,55,2,9158,0)=" ;"
^XMB(3.9,55,2,9159,0)="""RTN"",""IBCEF72"",93,0)"
^XMB(3.9,55,2,9160,0)="OUTPRVID(IBXIEN,IBXSAVE) ; Extract the outside provider or facility ids"
^XMB(3.9,55,2,9161,0)="""RTN"",""IBCEF72"",94,0)"
^XMB(3.9,55,2,9162,0)=" ; into IBXSAVE array"
^XMB(3.9,55,2,9163,0)="""RTN"",""IBCEF72"",95,0)"
^XMB(3.9,55,2,9164,0)=" ; Function returns 1 if person or 2 if facility ids or """" if neither"
^XMB(3.9,55,2,9165,0)="""RTN"",""IBCEF72"",96,0)"
^XMB(3.9,55,2,9166,0)=" N Z,IBXDATA,IBPERSON,TAG"
^XMB(3.9,55,2,9167,0)="""RTN"",""IBCEF72"",97,0)"
^XMB(3.9,55,2,9168,0)=" ;WCJ;11/1/2005 Extract the first 3 chars of Z instead."
^XMB(3.9,55,2,9169,0)="""RTN"",""IBCEF72"",98,0)"
^XMB(3.9,55,2,9170,0)=" S Z=$E($$PSPRV^IBCEF7(IBXIEN),1,3),IBPERSON="""""
^XMB(3.9,55,2,9171,0)="""RTN"",""IBCEF72"",99,0)"
^XMB(3.9,55,2,9172,0)=" ;EJK 8/23/05 IB*320 - CHANGED Z=101 TO Z=1010. Z WILL ALWAYS BE A 4 DIGIT #. "
^XMB(3.9,55,2,9173,0)="""RTN"",""IBCEF72"",100,0)"
^XMB(3.9,55,2,9174,0)=" ; WCJ 11/1/2005 ; Removed EJK's change and added above change"
^XMB(3.9,55,2,9175,0)="""RTN"",""IBCEF72"",101,0)"
^XMB(3.9,55,2,9176,0)=" I Z=111!(Z=101) S TAG=$S(Z=101:""OUTSIDE FAC PROVIDER INF"",1:""CUR/OTH PROVIDER INFO"") D F^IBCEF(""N-ALL ""_TAG) S IBPERSON=$S('$E(Z,2):2,1:1)"
^XMB(3.9,55,2,9177,0)="""RTN"",""IBCEF72"",102,0)"
^XMB(3.9,55,2,9178,0)=" Q IBPERSON"
^XMB(3.9,55,2,9179,0)="""RTN"",""IBCEF72"",103,0)"
^XMB(3.9,55,2,9180,0)=" ;"
^XMB(3.9,55,2,9181,0)="""RTN"",""IBCEF72"",104,0)"
^XMB(3.9,55,2,9182,0)="OUTPRV(IBREC,IBXIEN,IBXSAVE) ; Extract the outside provider or facility ids"
^XMB(3.9,55,2,9183,0)="""RTN"",""IBCEF72"",105,0)"
^XMB(3.9,55,2,9184,0)=" ; into IBXSAVE array"
^XMB(3.9,55,2,9185,0)="""RTN"",""IBCEF72"",106,0)"
^XMB(3.9,55,2,9186,0)=" ; Function returns 1 if person or 2 if facility ids or """" if neither"
^XMB(3.9,55,2,9187,0)="""RTN"",""IBCEF72"",107,0)"
^XMB(3.9,55,2,9188,0)=" ; IBREC = the record whose ids should be returned"
^XMB(3.9,55,2,9189,0)="""RTN"",""IBCEF72"",108,0)"
^XMB(3.9,55,2,9190,0)=" N IBPERSON,IBFRM,IBTYPE,IBFAC"
^XMB(3.9,55,2,9191,0)="""RTN"",""IBCEF72"",109,0)"
^XMB(3.9,55,2,9192,0)=" I IBREC=""SUB1""!(IBREC=""OP6"") D"
^XMB(3.9,55,2,9193,0)="""RTN"",""IBCEF72"",110,0)"
^XMB(3.9,55,2,9194,0)=" . K IBXSAVE(""PROVINF"",IBXIEN),IBXSAVE(""PROVINF_FAC"",IBXIEN)"
^XMB(3.9,55,2,9195,0)="""RTN"",""IBCEF72"",111,0)"
^XMB(3.9,55,2,9196,0)=" . S IBPERSON=$$OUTPRVID(IBXIEN,.IBXSAVE),IBFAC=$S(IBPERSON=1:0,1:1)"
^XMB(3.9,55,2,9197,0)="""RTN"",""IBCEF72"",112,0)"
^XMB(3.9,55,2,9198,0)=" E  D"
^XMB(3.9,55,2,9199,0)="""RTN"",""IBCEF72"",113,0)"
^XMB(3.9,55,2,9200,0)=" . K IBXSAVE(""PROVINF_FAC"",IBXIEN)"
^XMB(3.9,55,2,9201,0)="""RTN"",""IBCEF72"",114,0)"
^XMB(3.9,55,2,9202,0)=" . D F^IBCEF(""N-ALL OUTSIDE FAC PROVIDER INF"")"
^XMB(3.9,55,2,9203,0)="""RTN"",""IBCEF72"",115,0)"
^XMB(3.9,55,2,9204,0)=" . S IBPERSON=2,IBFAC=1"
^XMB(3.9,55,2,9205,0)="""RTN"",""IBCEF72"",116,0)"
^XMB(3.9,55,2,9206,0)=" S IBFRM=$$FT^IBCEF(IBXIEN),IBFRM=$S(IBFRM=2:2,1:1)"
^XMB(3.9,55,2,9207,0)="""RTN"",""IBCEF72"",117,0)"
^XMB(3.9,55,2,9208,0)=" S IBTYPE=$S(IBREC[""SUB"":""C"",1:""O"")"
^XMB(3.9,55,2,9209,0)="""RTN"",""IBCEF72"",118,0)"
^XMB(3.9,55,2,9210,0)=" D CHCKSUB^IBCEF73(IBFRM,IBREC,IBFAC,IBTYPE,.IBXSAVE)"
^XMB(3.9,55,2,9211,0)="""RTN"",""IBCEF72"",119,0)"
^XMB(3.9,55,2,9212,0)=" Q IBPERSON"
^XMB(3.9,55,2,9213,0)="""RTN"",""IBCEF72"",120,0)"
^XMB(3.9,55,2,9214,0)=" ;"
^XMB(3.9,55,2,9215,0)="""RTN"",""IBCEF72"",121,0)"
^XMB(3.9,55,2,9216,0)=" ;get IENs in file #36 for other insurances"
^XMB(3.9,55,2,9217,0)="""RTN"",""IBCEF72"",122,0)"
^XMB(3.9,55,2,9218,0)="OTHINS(IB399,IBRES) ;"
^XMB(3.9,55,2,9219,0)="""RTN"",""IBCEF72"",123,0)"
^XMB(3.9,55,2,9220,0)=" N IBFRMTYP,Z,Z1,Z2,Z4"
^XMB(3.9,55,2,9221,0)="""RTN"",""IBCEF72"",124,0)"
^XMB(3.9,55,2,9222,0)=" S Z=$$COBN^IBCEF(IB399),Z0=0"
^XMB(3.9,55,2,9223,0)="""RTN"",""IBCEF72"",125,0)"
^XMB(3.9,55,2,9224,0)=" F Z1=1:1:3 I Z1'=Z,$D(^DGCR(399,IB399,""I""_Z1)) S Z0=Z0+1,IBRES(Z0)=+$G(^DGCR(399,IB399,""I""_Z1))"
^XMB(3.9,55,2,9225,0)="""RTN"",""IBCEF72"",126,0)"
^XMB(3.9,55,2,9226,0)=" Q"
^XMB(3.9,55,2,9227,0)="""RTN"",""IBCEF72"",127,0)"
^XMB(3.9,55,2,9228,0)=" ;get other insurance EDI ID NUMBERs"
^XMB(3.9,55,2,9229,0)="""RTN"",""IBCEF72"",128,0)"
^XMB(3.9,55,2,9230,0)="OTHINSID(IB399,IBRES) ;insurance EDI "
^XMB(3.9,55,2,9231,0)="""RTN"",""IBCEF72"",129,0)"
^XMB(3.9,55,2,9232,0)=" N IBFRMTYP,IBZ,Z0,Z1,Z4"
^XMB(3.9,55,2,9233,0)="""RTN"",""IBCEF72"",130,0)"
^XMB(3.9,55,2,9234,0)=" S IBFRMTYP=$$FT^IBCEF(IB399),IBFRMTYP=$S(IBFRMTYP=2:2,IBFRMTYP=3:1,1:0)"
^XMB(3.9,55,2,9235,0)="""RTN"",""IBCEF72"",131,0)"
^XMB(3.9,55,2,9236,0)=" S Z4=$S(IBFRMTYP=1:4,1:2) ;UB2 - piece4,HCFA or BOTH -piece 2"
^XMB(3.9,55,2,9237,0)="""RTN"",""IBCEF72"",132,0)"
^XMB(3.9,55,2,9238,0)=" D OTHINS(IB399,.IBZ)"
^XMB(3.9,55,2,9239,0)="""RTN"",""IBCEF72"",133,0)"
^XMB(3.9,55,2,9240,0)=" S Z1=0"
^XMB(3.9,55,2,9241,0)="""RTN"",""IBCEF72"",134,0)"
^XMB(3.9,55,2,9242,0)=" F Z0=1:1:2 I $G(IBZ(Z0)) S IBRES(Z0)=$S($$MCRWNR^IBEFUNC(+IBZ(Z0)):$S(IBFRMTYP=1:""12M61"",1:""SMTX1""),1:$P($G(^DIC(36,+IBZ(Z0),3)),U,Z4))"
^XMB(3.9,55,2,9243,0)="""RTN"",""IBCEF72"",135,0)"
^XMB(3.9,55,2,9244,0)=" Q"
^XMB(3.9,55,2,9245,0)="""RTN"",""IBCEF72"",136,0)"
^XMB(3.9,55,2,9246,0)=" ;"
^XMB(3.9,55,2,9247,0)="""RTN"",""IBCEF72"",137,0)"
^XMB(3.9,55,2,9248,0)=" ;get other insurance addresses"
^XMB(3.9,55,2,9249,0)="""RTN"",""IBCEF72"",138,0)"
^XMB(3.9,55,2,9250,0)="OTHINADR(IB399,IBRES,IBADDFLD) ;insurance EDI"
^XMB(3.9,55,2,9251,0)="""RTN"",""IBCEF72"",139,0)"
^XMB(3.9,55,2,9252,0)=" N IBZ,Z0,Z1,Z4"
^XMB(3.9,55,2,9253,0)="""RTN"",""IBCEF72"",140,0)"
^XMB(3.9,55,2,9254,0)=" D OTHINS(IB399,.IBZ)"
^XMB(3.9,55,2,9255,0)="""RTN"",""IBCEF72"",141,0)"
^XMB(3.9,55,2,9256,0)=" S Z1=0"
^XMB(3.9,55,2,9257,0)="""RTN"",""IBCEF72"",142,0)"
^XMB(3.9,55,2,9258,0)=" I IBADDFLD=18 D  Q"
^XMB(3.9,55,2,9259,0)="""RTN"",""IBCEF72"",143,0)"
^XMB(3.9,55,2,9260,0)=" . F Z0=1:1:2 I $G(IBZ(Z0)) D"
^XMB(3.9,55,2,9261,0)="""RTN"",""IBCEF72"",144,0)"
^XMB(3.9,55,2,9262,0)=" . . S IBRES(Z0)=$P($G(^DIC(36,+IBZ(Z0),.11)),U,1)"
^XMB(3.9,55,2,9263,0)="""RTN"",""IBCEF72"",145,0)"
^XMB(3.9,55,2,9264,0)=" . . S IBRES(Z0)=$E(IBRES(Z0),1,55)"
^XMB(3.9,55,2,9265,0)="""RTN"",""IBCEF72"",146,0)"
^XMB(3.9,55,2,9266,0)=" I IBADDFLD=18.9 D  Q"
^XMB(3.9,55,2,9267,0)="""RTN"",""IBCEF72"",147,0)"
^XMB(3.9,55,2,9268,0)=" . F Z0=1:1:2 I $G(IBZ(Z0)) D"
^XMB(3.9,55,2,9269,0)="""RTN"",""IBCEF72"",148,0)"
^XMB(3.9,55,2,9270,0)=" . . S IBRES(Z0)=$P($G(^DIC(36,+IBZ(Z0),.11)),U,1)"
^XMB(3.9,55,2,9271,0)="""RTN"",""IBCEF72"",149,0)"
^XMB(3.9,55,2,9272,0)=" . . S Z4=$P($G(^DIC(36,+IBZ(Z0),.11)),U,2) S:Z4'="""" IBRES(Z0)=IBRES(Z0)_"", ""_Z4"
^XMB(3.9,55,2,9273,0)="""RTN"",""IBCEF72"",150,0)"
^XMB(3.9,55,2,9274,0)=" . . S Z4=$P($G(^DIC(36,+IBZ(Z0),.11)),U,3) S:Z4'="""" IBRES(Z0)=IBRES(Z0)_"", ""_Z4"
^XMB(3.9,55,2,9275,0)="""RTN"",""IBCEF72"",151,0)"
^XMB(3.9,55,2,9276,0)=" . . S Z4=$P($G(^DIC(36,+IBZ(Z0),.11)),U,4) S:Z4'="""" IBRES(Z0)=IBRES(Z0)_"", ""_Z4"
^XMB(3.9,55,2,9277,0)="""RTN"",""IBCEF72"",152,0)"
^XMB(3.9,55,2,9278,0)=" . . S Z4=$P($G(^DIC(5,+$P($G(^DIC(36,+IBZ(Z0),.11)),U,5),0)),U,2) S:Z4'="""" IBRES(Z0)=IBRES(Z0)_"", ""_Z4"
^XMB(3.9,55,2,9279,0)="""RTN"",""IBCEF72"",153,0)"
^XMB(3.9,55,2,9280,0)=" . . S Z4=$P($G(^DIC(36,+IBZ(Z0),.11)),U,6) S:Z4'="""" IBRES(Z0)=IBRES(Z0)_"", ""_Z4"
^XMB(3.9,55,2,9281,0)="""RTN"",""IBCEF72"",154,0)"
^XMB(3.9,55,2,9282,0)=" . . S IBRES(Z0)=$E(IBRES(Z0),1,157)"
^XMB(3.9,55,2,9283,0)="""RTN"",""IBCEF72"",155,0)"
^XMB(3.9,55,2,9284,0)=" I IBADDFLD=19 D  Q"
^XMB(3.9,55,2,9285,0)="""RTN"",""IBCEF72"",156,0)"
^XMB(3.9,55,2,9286,0)=" . F Z0=1:1:2 I $G(IBZ(Z0)) D"
^XMB(3.9,55,2,9287,0)="""RTN"",""IBCEF72"",157,0)"
^XMB(3.9,55,2,9288,0)=" . . S IBRES(Z0)=$P($G(^DIC(36,+IBZ(Z0),.11)),U,2)"
^XMB(3.9,55,2,9289,0)="""RTN"",""IBCEF72"",158,0)"
^XMB(3.9,55,2,9290,0)=" . . S IBRES(Z0)=IBRES(Z0)_"" ""_$P($G(^DIC(36,+IBZ(Z0),.11)),U,3)"
^XMB(3.9,55,2,9291,0)="""RTN"",""IBCEF72"",159,0)"
^XMB(3.9,55,2,9292,0)=" . . S IBRES(Z0)=$E(IBRES(Z0),1,55)"
^XMB(3.9,55,2,9293,0)="""RTN"",""IBCEF72"",160,0)"
^XMB(3.9,55,2,9294,0)=" I IBADDFLD=20 D  Q"
^XMB(3.9,55,2,9295,0)="""RTN"",""IBCEF72"",161,0)"
^XMB(3.9,55,2,9296,0)=" . F Z0=1:1:2 I $G(IBZ(Z0)) D"
^XMB(3.9,55,2,9297,0)="""RTN"",""IBCEF72"",162,0)"
^XMB(3.9,55,2,9298,0)=" . . S IBRES(Z0)=$P($G(^DIC(36,+IBZ(Z0),.11)),U,4)"
^XMB(3.9,55,2,9299,0)="""RTN"",""IBCEF72"",163,0)"
^XMB(3.9,55,2,9300,0)=" . . S IBRES(Z0)=$E(IBRES(Z0),1,30)"
^XMB(3.9,55,2,9301,0)="""RTN"",""IBCEF72"",164,0)"
^XMB(3.9,55,2,9302,0)=" I IBADDFLD=21 D  Q"
^XMB(3.9,55,2,9303,0)="""RTN"",""IBCEF72"",165,0)"
^XMB(3.9,55,2,9304,0)=" . F Z0=1:1:2 I $G(IBZ(Z0)) D"
^XMB(3.9,55,2,9305,0)="""RTN"",""IBCEF72"",166,0)"
^XMB(3.9,55,2,9306,0)=" . . S IBRES(Z0)=$P($G(^DIC(5,+$P($G(^DIC(36,+IBZ(Z0),.11)),U,5),0)),U,2)"
^XMB(3.9,55,2,9307,0)="""RTN"",""IBCEF72"",167,0)"
^XMB(3.9,55,2,9308,0)=" . . S IBRES(Z0)=$E(IBRES(Z0),1,2)"
^XMB(3.9,55,2,9309,0)="""RTN"",""IBCEF72"",168,0)"
^XMB(3.9,55,2,9310,0)=" I IBADDFLD=22 D  Q"
^XMB(3.9,55,2,9311,0)="""RTN"",""IBCEF72"",169,0)"
^XMB(3.9,55,2,9312,0)=" . F Z0=1:1:2 I $G(IBZ(Z0)) D"
^XMB(3.9,55,2,9313,0)="""RTN"",""IBCEF72"",170,0)"
^XMB(3.9,55,2,9314,0)=" . . S IBRES(Z0)=$P($G(^DIC(36,+IBZ(Z0),.11)),U,6)"
^XMB(3.9,55,2,9315,0)="""RTN"",""IBCEF72"",171,0)"
^XMB(3.9,55,2,9316,0)=" . . S IBRES(Z0)=$E(IBRES(Z0),1,15)"
^XMB(3.9,55,2,9317,0)="""RTN"",""IBCEF72"",172,0)"
^XMB(3.9,55,2,9318,0)=" Q"
^XMB(3.9,55,2,9319,0)="""RTN"",""IBCEF72"",173,0)"
^XMB(3.9,55,2,9320,0)=" ;"
^XMB(3.9,55,2,9321,0)="""RTN"",""IBCEF72"",174,0)"
^XMB(3.9,55,2,9322,0)="SFIDQ(IBXIEN,IBXSAVE,IBXDATA) ; Find the service facility id qualifier for"
^XMB(3.9,55,2,9323,0)="""RTN"",""IBCEF72"",175,0)"
^XMB(3.9,55,2,9324,0)=" ; 837 record SUB2-5"
^XMB(3.9,55,2,9325,0)="""RTN"",""IBCEF72"",176,0)"
^XMB(3.9,55,2,9326,0)=" ;IBXIEN = ien of 399"
^XMB(3.9,55,2,9327,0)="""RTN"",""IBCEF72"",177,0)"
^XMB(3.9,55,2,9328,0)=" ;Pass by reference: IBXSAVE (input/output)  IBXDATA (output)"
^XMB(3.9,55,2,9329,0)="""RTN"",""IBCEF72"",178,0)"
^XMB(3.9,55,2,9330,0)=" N B,Z"
^XMB(3.9,55,2,9331,0)="""RTN"",""IBCEF72"",179,0)"
^XMB(3.9,55,2,9332,0)=" K IBXSAVE(""NVID"")"
^XMB(3.9,55,2,9333,0)="""RTN"",""IBCEF72"",180,0)"
^XMB(3.9,55,2,9334,0)=" D  ; protect IBXDATA"
^XMB(3.9,55,2,9335,0)="""RTN"",""IBCEF72"",181,0)"
^XMB(3.9,55,2,9336,0)=" . N IBXDATA"
^XMB(3.9,55,2,9337,0)="""RTN"",""IBCEF72"",182,0)"
^XMB(3.9,55,2,9338,0)=" . D F^IBCEF(""N-RENDERING INSTITUTION"")"
^XMB(3.9,55,2,9339,0)="""RTN"",""IBCEF72"",183,0)"
^XMB(3.9,55,2,9340,0)=" . S:IBXDATA'="""" IBXSAVE(""IBFAC"")=IBXDATA"
^XMB(3.9,55,2,9341,0)="""RTN"",""IBCEF72"",184,0)"
^XMB(3.9,55,2,9342,0)=" I $P($G(IBXSAVE(""IBFAC"")),U,2)'=1 K IBXDATA Q"
^XMB(3.9,55,2,9343,0)="""RTN"",""IBCEF72"",185,0)"
^XMB(3.9,55,2,9344,0)=" S Z=$$PSPRV^IBCEF7(IBXIEN)"
^XMB(3.9,55,2,9345,0)="""RTN"",""IBCEF72"",186,0)"
^XMB(3.9,55,2,9346,0)=" ;WCJ 11/04/2005 If a Non-VA facility "
^XMB(3.9,55,2,9347,0)="""RTN"",""IBCEF72"",187,0)"
^XMB(3.9,55,2,9348,0)=" I $E(Z) D"
^XMB(3.9,55,2,9349,0)="""RTN"",""IBCEF72"",188,0)"
^XMB(3.9,55,2,9350,0)=" . S IBXSAVE(""NVID"")=$$NONVAID^IBCEF72(IBXIEN,.B,$E(Z),1)"
^XMB(3.9,55,2,9351,0)="""RTN"",""IBCEF72"",189,0)"
^XMB(3.9,55,2,9352,0)=" .; S IBXSAVE(""NVID"")=$$NONVAID^IBCEF72(IBXIEN,.B,'$E(Z,2),1)"
^XMB(3.9,55,2,9353,0)="""RTN"",""IBCEF72"",190,0)"
^XMB(3.9,55,2,9354,0)=" . S IBXDATA=$P(""^34^24"",U,$P(IBXSAVE(""NVID""),U,2)+1)"
^XMB(3.9,55,2,9355,0)="""RTN"",""IBCEF72"",191,0)"
^XMB(3.9,55,2,9356,0)=" ;S Z=$$PSPRV^IBCEF7(IBXIEN),IBXSAVE(""NVID"")=$$NONVAID^IBCEF72(IBXIEN,.B,'$E(Z,2),1),IBXDATA=24"
^XMB(3.9,55,2,9357,0)="""RTN"",""IBCEF72"",192,0)"
^XMB(3.9,55,2,9358,0)=" Q"
^XMB(3.9,55,2,9359,0)="""RTN"",""IBCEF72"",193,0)"
^XMB(3.9,55,2,9360,0)=" ;"
^XMB(3.9,55,2,9361,0)="""RTN"",""IBCEF72"",194,0)"
^XMB(3.9,55,2,9362,0)="OTHP36(IBXIEN,IBZOUT)   ;"
^XMB(3.9,55,2,9363,0)="""RTN"",""IBCEF72"",195,0)"
^XMB(3.9,55,2,9364,0)=" N Z,Z0,Z1,IBZ"
^XMB(3.9,55,2,9365,0)="""RTN"",""IBCEF72"",196,0)"
^XMB(3.9,55,2,9366,0)=" D F^IBCEF(""N-ALL INSURANCE CO 837 ID"",""IBZ"")"
^XMB(3.9,55,2,9367,0)="""RTN"",""IBCEF72"",197,0)"
^XMB(3.9,55,2,9368,0)=" F Z=1,2,3 S IBZOUT(Z)=+$$POLICY^IBCEF(IBXIEN,1,$E(""PST"",Z))"
^XMB(3.9,55,2,9369,0)="""RTN"",""IBCEF72"",198,0)"
^XMB(3.9,55,2,9370,0)=" Q"
^XMB(3.9,55,2,9371,0)="""RTN"",""IBCEF72"",199,0)"
^XMB(3.9,55,2,9372,0)=" ;"
^XMB(3.9,55,2,9373,0)="""RTN"",""IBCEF72"",200,0)"
^XMB(3.9,55,2,9374,0)=" ;---------SORT-----------"
^XMB(3.9,55,2,9375,0)="""RTN"",""IBCEF72"",201,0)"
^XMB(3.9,55,2,9376,0)=" ;IBPRNUM - seq #"
^XMB(3.9,55,2,9377,0)="""RTN"",""IBCEF72"",202,0)"
^XMB(3.9,55,2,9378,0)=" ;IBPRTYP - type of provider (use FUNCTION value from file 399, fld 222)"
^XMB(3.9,55,2,9379,0)="""RTN"",""IBCEF72"",203,0)"
^XMB(3.9,55,2,9380,0)=" ;IB399 = ien file 399"
^XMB(3.9,55,2,9381,0)="""RTN"",""IBCEF72"",204,0)"
^XMB(3.9,55,2,9382,0)=" ;IBSRC,IBDST - source,destination arrays"
^XMB(3.9,55,2,9383,0)="""RTN"",""IBCEF72"",205,0)"
^XMB(3.9,55,2,9384,0)=" ;IBN - starting #"
^XMB(3.9,55,2,9385,0)="""RTN"",""IBCEF72"",206,0)"
^XMB(3.9,55,2,9386,0)=" ;Output:"
^XMB(3.9,55,2,9387,0)="""RTN"",""IBCEF72"",207,0)"
^XMB(3.9,55,2,9388,0)=" ; IBDST(1-primary/2-secondary provider,Provider type(FUNCTION),N)="
^XMB(3.9,55,2,9389,0)="""RTN"",""IBCEF72"",208,0)"
^XMB(3.9,55,2,9390,0)=" ; =provider/VARIABLEPTR^Insurance PTR #36 or NONE^ID type^ID^Form type^Care type^state ptr #5 for state license #"
^XMB(3.9,55,2,9391,0)="""RTN"",""IBCEF72"",209,0)"
^XMB(3.9,55,2,9392,0)=" ; where N is numeration (1 for ID1, 2 for ID2, etc)"
^XMB(3.9,55,2,9393,0)="""RTN"",""IBCEF72"",210,0)"
^XMB(3.9,55,2,9394,0)="GETSSN(IBPTR)   ;look for SSN in #200 first and if not found then look at #355.9"
^XMB(3.9,55,2,9395,0)="""RTN"",""IBCEF72"",211,0)"
^XMB(3.9,55,2,9396,0)=" ;if in file #200"
^XMB(3.9,55,2,9397,0)="""RTN"",""IBCEF72"",212,0)"
^XMB(3.9,55,2,9398,0)=" I $P(IBPTR,"";"",2)=""VA(200,"" Q $$SSN200^IBCEF73(IBPTR)"
^XMB(3.9,55,2,9399,0)="""RTN"",""IBCEF72"",213,0)"
^XMB(3.9,55,2,9400,0)=" ;if in 355.93 then use 355.9"
^XMB(3.9,55,2,9401,0)="""RTN"",""IBCEF72"",214,0)"
^XMB(3.9,55,2,9402,0)=" Q $$SSN3559^IBCEF73(IBPTR)"
^XMB(3.9,55,2,9403,0)="""RTN"",""IBCEF72"",215,0)"
^XMB(3.9,55,2,9404,0)=" ;--"
^XMB(3.9,55,2,9405,0)="""RTN"",""IBCEF72"",216,0)"
^XMB(3.9,55,2,9406,0)=" ;SSN3559"
^XMB(3.9,55,2,9407,0)="""RTN"",""IBCEF72"",217,0)"
^XMB(3.9,55,2,9408,0)=" ;Find SSN from 355.9"
^XMB(3.9,55,2,9409,0)="""RTN"",""IBCEF72"",218,0)"
^XMB(3.9,55,2,9410,0)=" ;Input:"
^XMB(3.9,55,2,9411,0)="""RTN"",""IBCEF72"",219,0)"
^XMB(3.9,55,2,9412,0)=" ; Variable pointer to ^VA(200 or ^IBA(355.93"
^XMB(3.9,55,2,9413,0)="""RTN"",""IBCEF72"",220,0)"
^XMB(3.9,55,2,9414,0)=" ;Output:"
^XMB(3.9,55,2,9415,0)="""RTN"",""IBCEF72"",221,0)"
^XMB(3.9,55,2,9416,0)=" ; SSN or null"
^XMB(3.9,55,2,9417,0)="""RTN"",""IBCEF72"",222,0)"
^XMB(3.9,55,2,9418,0)=" ;"
^XMB(3.9,55,2,9419,0)="""RTN"",""IBCEF72"",223,0)"
^XMB(3.9,55,2,9420,0)="PADNDC(Z) ;PAD LEADING ZERO'S INTO A NON 5-4-2 FORMAT NDC NUMBER"
^XMB(3.9,55,2,9421,0)="""RTN"",""IBCEF72"",224,0)"
^XMB(3.9,55,2,9422,0)=" ;Z IS ITERATION, ONLY PAD CURRENT NDC NUMBER"
^XMB(3.9,55,2,9423,0)="""RTN"",""IBCEF72"",225,0)"
^XMB(3.9,55,2,9424,0)=" N NDC"
^XMB(3.9,55,2,9425,0)="""RTN"",""IBCEF72"",226,0)"
^XMB(3.9,55,2,9426,0)=" S NDC=$P(IBXSAVE(""OUTPT"",Z,""RX""),""^"",3)"
^XMB(3.9,55,2,9427,0)="""RTN"",""IBCEF72"",227,0)"
^XMB(3.9,55,2,9428,0)=" Q:$L(NDC)=13"
^XMB(3.9,55,2,9429,0)="""RTN"",""IBCEF72"",228,0)"
^XMB(3.9,55,2,9430,0)=" I $L(NDC)=14 D  Q"
^XMB(3.9,55,2,9431,0)="""RTN"",""IBCEF72"",229,0)"
^XMB(3.9,55,2,9432,0)=" . S $P(NDC,""-"",1)=$E($P(NDC,""-"",1),2,$L($P(NDC,""-"",1)))"
^XMB(3.9,55,2,9433,0)="""RTN"",""IBCEF72"",230,0)"
^XMB(3.9,55,2,9434,0)=" . S $P(IBXSAVE(""OUTPT"",Z,""RX""),""^"",3)=NDC"
^XMB(3.9,55,2,9435,0)="""RTN"",""IBCEF72"",231,0)"
^XMB(3.9,55,2,9436,0)=" I $L($P(NDC,""-"",1))'=5 S $P(NDC,""-"",1)=""0""_$P(NDC,""-"",1)"
^XMB(3.9,55,2,9437,0)="""RTN"",""IBCEF72"",232,0)"
^XMB(3.9,55,2,9438,0)=" I $L($P(NDC,""-"",2))'=4 S $P(NDC,""-"",2)=""0""_$P(NDC,""-"",2)"
^XMB(3.9,55,2,9439,0)="""RTN"",""IBCEF72"",233,0)"
^XMB(3.9,55,2,9440,0)=" I $L($P(NDC,""-"",3))'=2 S $P(NDC,""-"",3)=""0""_$P(NDC,""-"",3)"
^XMB(3.9,55,2,9441,0)="""RTN"",""IBCEF72"",234,0)"
^XMB(3.9,55,2,9442,0)=" S $P(IBXSAVE(""OUTPT"",Z,""RX""),""^"",3)=NDC"
^XMB(3.9,55,2,9443,0)="""RTN"",""IBCEF72"",235,0)"
^XMB(3.9,55,2,9444,0)=" Q"
^XMB(3.9,55,2,9445,0)="""RTN"",""IBCEF72"",236,0)"
^XMB(3.9,55,2,9446,0)=" ;"
^XMB(3.9,55,2,9447,0)="""RTN"",""IBCEF73"")"
^XMB(3.9,55,2,9448,0)="0^60^B54477454^B55011921"
^XMB(3.9,55,2,9449,0)="""RTN"",""IBCEF73"",1,0)"
^XMB(3.9,55,2,9450,0)="IBCEF73 ;WOIFO/SS - FORMATTER AND EXTRACTOR SPECIFIC BILL FUNCTIONS ;8/6/03 10:56am"
^XMB(3.9,55,2,9451,0)="""RTN"",""IBCEF73"",2,0)"
^XMB(3.9,55,2,9452,0)=" ;;2.0;INTEGRATED BILLING;**232,296,320**;21-MAR-94"
^XMB(3.9,55,2,9453,0)="""RTN"",""IBCEF73"",3,0)"
^XMB(3.9,55,2,9454,0)=" ;; Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,9455,0)="""RTN"",""IBCEF73"",4,0)"
^XMB(3.9,55,2,9456,0)=" ;"
^XMB(3.9,55,2,9457,0)="""RTN"",""IBCEF73"",5,0)"
^XMB(3.9,55,2,9458,0)=" ;check qualifier"
^XMB(3.9,55,2,9459,0)="""RTN"",""IBCEF73"",6,0)"
^XMB(3.9,55,2,9460,0)=" ;IBFRM 0-both, 1=UB92,2=HCFA 1500"
^XMB(3.9,55,2,9461,0)="""RTN"",""IBCEF73"",7,0)"
^XMB(3.9,55,2,9462,0)=" ;IBPROV - function in #399 (1-referring, 2-operating,etc)"
^XMB(3.9,55,2,9463,0)="""RTN"",""IBCEF73"",8,0)"
^XMB(3.9,55,2,9464,0)=" ;IBTYPE - ""C""-current insurance, ""O""-other insurance"
^XMB(3.9,55,2,9465,0)="""RTN"",""IBCEF73"",9,0)"
^XMB(3.9,55,2,9466,0)=" ;IBVAL - value to check"
^XMB(3.9,55,2,9467,0)="""RTN"",""IBCEF73"",10,0)"
^XMB(3.9,55,2,9468,0)="CHCKSEC(IBFRM,IBPROV,IBTYPE,IBVAL) ;"
^XMB(3.9,55,2,9469,0)="""RTN"",""IBCEF73"",11,0)"
^XMB(3.9,55,2,9470,0)=" I IBFRM=0 Q:$$CHSEC(1,IBPROV,IBTYPE,IBVAL) 1  Q $$CHSEC(2,IBPROV,IBTYPE,IBVAL)"
^XMB(3.9,55,2,9471,0)="""RTN"",""IBCEF73"",12,0)"
^XMB(3.9,55,2,9472,0)=" Q $$CHSEC(IBFRM,IBPROV,IBTYPE,IBVAL)"
^XMB(3.9,55,2,9473,0)="""RTN"",""IBCEF73"",13,0)"
^XMB(3.9,55,2,9474,0)=" ;"
^XMB(3.9,55,2,9475,0)="""RTN"",""IBCEF73"",14,0)"
^XMB(3.9,55,2,9476,0)="CHSEC(IBFRM,IBPROV,IBTYPE,IBVAL) ;"
^XMB(3.9,55,2,9477,0)="""RTN"",""IBCEF73"",15,0)"
^XMB(3.9,55,2,9478,0)=" N IBSTR S IBSTR="""""
^XMB(3.9,55,2,9479,0)="""RTN"",""IBCEF73"",16,0)"
^XMB(3.9,55,2,9480,0)=" ;referring"
^XMB(3.9,55,2,9481,0)="""RTN"",""IBCEF73"",17,0)"
^XMB(3.9,55,2,9482,0)=" I IBPROV=1 S IBSTR=$S(IBTYPE=""C"":$$OPR5(IBFRM),IBTYPE=""O"":$$OP4(IBFRM),1:"""")"
^XMB(3.9,55,2,9483,0)="""RTN"",""IBCEF73"",18,0)"
^XMB(3.9,55,2,9484,0)=" ;operating"
^XMB(3.9,55,2,9485,0)="""RTN"",""IBCEF73"",19,0)"
^XMB(3.9,55,2,9486,0)=" I IBPROV=2 S IBSTR=$S(IBTYPE=""C"":$$OPR3(IBFRM),IBTYPE=""O"":$$OP2(IBFRM),1:"""")"
^XMB(3.9,55,2,9487,0)="""RTN"",""IBCEF73"",20,0)"
^XMB(3.9,55,2,9488,0)=" ;rendering"
^XMB(3.9,55,2,9489,0)="""RTN"",""IBCEF73"",21,0)"
^XMB(3.9,55,2,9490,0)=" I IBPROV=3 S IBSTR=$S(IBTYPE=""C"":$$OPR2(IBFRM),IBTYPE=""O"":$$OP1(IBFRM),1:"""")"
^XMB(3.9,55,2,9491,0)="""RTN"",""IBCEF73"",22,0)"
^XMB(3.9,55,2,9492,0)=" ;attending"
^XMB(3.9,55,2,9493,0)="""RTN"",""IBCEF73"",23,0)"
^XMB(3.9,55,2,9494,0)=" I IBPROV=4 S IBSTR=$S(IBTYPE=""C"":$$OPR2(IBFRM),IBTYPE=""O"":$$OP1(IBFRM),1:"""")"
^XMB(3.9,55,2,9495,0)="""RTN"",""IBCEF73"",24,0)"
^XMB(3.9,55,2,9496,0)=" ;supervising"
^XMB(3.9,55,2,9497,0)="""RTN"",""IBCEF73"",25,0)"
^XMB(3.9,55,2,9498,0)=" I IBPROV=5 S IBSTR=$S(IBTYPE=""C"":$$OPR8(IBFRM),IBTYPE=""O"":$$OP8(IBFRM),1:"""")"
^XMB(3.9,55,2,9499,0)="""RTN"",""IBCEF73"",26,0)"
^XMB(3.9,55,2,9500,0)=" ;other"
^XMB(3.9,55,2,9501,0)="""RTN"",""IBCEF73"",27,0)"
^XMB(3.9,55,2,9502,0)=" I IBPROV=9 S IBSTR=$S(IBTYPE=""C"":$$OPR4(IBFRM),IBTYPE=""O"":$$OP9(IBFRM),1:"""")"
^XMB(3.9,55,2,9503,0)="""RTN"",""IBCEF73"",28,0)"
^XMB(3.9,55,2,9504,0)=" Q:IBPROV=0!(IBSTR="""") 1  ;if """" or facility id always return 1"
^XMB(3.9,55,2,9505,0)="""RTN"",""IBCEF73"",29,0)"
^XMB(3.9,55,2,9506,0)=" Q IBSTR[(""^""_IBVAL_""^"")"
^XMB(3.9,55,2,9507,0)="""RTN"",""IBCEF73"",30,0)"
^XMB(3.9,55,2,9508,0)=" ;"
^XMB(3.9,55,2,9509,0)="""RTN"",""IBCEF73"",31,0)"
^XMB(3.9,55,2,9510,0)=" ;Filter invalid qualifier entries for records SUB1,SUB2,OP6,OP7,OP3"
^XMB(3.9,55,2,9511,0)="""RTN"",""IBCEF73"",32,0)"
^XMB(3.9,55,2,9512,0)=" ; Rebuild the IBXSAVE(""PROVINF"" or IBXSAVE(""PROVINF_FAC"" array with"
^XMB(3.9,55,2,9513,0)="""RTN"",""IBCEF73"",33,0)"
^XMB(3.9,55,2,9514,0)=" ;  only ids that have valid qualifiers"
^XMB(3.9,55,2,9515,0)="""RTN"",""IBCEF73"",34,0)"
^XMB(3.9,55,2,9516,0)=" ;IBFRM 0-both, 1=UB92,2=HCFA 1500"
^XMB(3.9,55,2,9517,0)="""RTN"",""IBCEF73"",35,0)"
^XMB(3.9,55,2,9518,0)=" ;IBREC record ID whose ids are being filtered (SUB1,SUB2,etc)"
^XMB(3.9,55,2,9519,0)="""RTN"",""IBCEF73"",36,0)"
^XMB(3.9,55,2,9520,0)=" ;IBFAC - 1 if facility check, 0 if attending/rendering check"
^XMB(3.9,55,2,9521,0)="""RTN"",""IBCEF73"",37,0)"
^XMB(3.9,55,2,9522,0)=" ;IBTYPE - ""C""-current insurance, ""O""-other insurance"
^XMB(3.9,55,2,9523,0)="""RTN"",""IBCEF73"",38,0)"
^XMB(3.9,55,2,9524,0)=" ;IBXSAVE - the array of provider ids extracted, returned filtered -"
^XMB(3.9,55,2,9525,0)="""RTN"",""IBCEF73"",39,0)"
^XMB(3.9,55,2,9526,0)=" ;   passed by reference"
^XMB(3.9,55,2,9527,0)="""RTN"",""IBCEF73"",40,0)"
^XMB(3.9,55,2,9528,0)="CHCKSUB(IBFRM,IBREC,IBFAC,IBTYPE,IBXSAVE) ;"
^XMB(3.9,55,2,9529,0)="""RTN"",""IBCEF73"",41,0)"
^XMB(3.9,55,2,9530,0)=" N Z,Z0,Z1,Z2,CT,IBSAVE"
^XMB(3.9,55,2,9531,0)="""RTN"",""IBCEF73"",42,0)"
^XMB(3.9,55,2,9532,0)=" S Z=""PROVINF""_$P(""^_FAC"",U,$G(IBFAC)+1)"
^XMB(3.9,55,2,9533,0)="""RTN"",""IBCEF73"",43,0)"
^XMB(3.9,55,2,9534,0)=" I '$G(IBXSAVE(Z,IBXIEN)) D"
^XMB(3.9,55,2,9535,0)="""RTN"",""IBCEF73"",44,0)"
^XMB(3.9,55,2,9536,0)=" . D F^IBCEF(""N-ALL ""_$S($G(IBFAC):""OUTSIDE FAC PROVIDER INF"",1:""CUR/OTH PROVIDER INFO""))"
^XMB(3.9,55,2,9537,0)="""RTN"",""IBCEF73"",45,0)"
^XMB(3.9,55,2,9538,0)=" M IBSAVE(Z,IBXIEN,IBTYPE)=IBXSAVE(Z,IBXIEN,IBTYPE) K IBXSAVE(Z,IBXIEN,IBTYPE)"
^XMB(3.9,55,2,9539,0)="""RTN"",""IBCEF73"",46,0)"
^XMB(3.9,55,2,9540,0)=" S Z0=0 F  S Z0=$O(IBSAVE(Z,IBXIEN,IBTYPE,Z0)) Q:'Z0  S Z1="""" F  S Z1=$O(IBSAVE(Z,IBXIEN,IBTYPE,Z0,Z1)) Q:Z1=""""  S (Z2,CT)=0 F  S Z2=$O(IBSAVE(Z,IBXIEN,IBTYPE,Z0,Z1,Z2)) Q:'Z2  D"
^XMB(3.9,55,2,9541,0)="""RTN"",""IBCEF73"",47,0)"
^XMB(3.9,55,2,9542,0)=" . N IBVAL"
^XMB(3.9,55,2,9543,0)="""RTN"",""IBCEF73"",48,0)"
^XMB(3.9,55,2,9544,0)=" . S IBVAL=$P(IBSAVE(Z,IBXIEN,IBTYPE,Z0,Z1,Z2),U,3)"
^XMB(3.9,55,2,9545,0)="""RTN"",""IBCEF73"",49,0)"
^XMB(3.9,55,2,9546,0)=" . I IBFRM=0 D  Q"
^XMB(3.9,55,2,9547,0)="""RTN"",""IBCEF73"",50,0)"
^XMB(3.9,55,2,9548,0)=" .. I $S($$CHSUB(1,IBREC,IBVAL):1,1:$$CHSUB(2,IBPROV,IBTYPE,IBVAL)) D"
^XMB(3.9,55,2,9549,0)="""RTN"",""IBCEF73"",51,0)"
^XMB(3.9,55,2,9550,0)=" ... S CT=CT+1,IBXSAVE(Z,IBXIEN,IBTYPE,Z0,Z1,CT)=IBSAVE(Z,IBXIEN,IBTYPE,Z0,Z1,Z2)"
^XMB(3.9,55,2,9551,0)="""RTN"",""IBCEF73"",52,0)"
^XMB(3.9,55,2,9552,0)=" ... I $G(IBXSAVE(Z,IBXIEN,IBTYPE,Z0))="""",$G(IBSAVE(Z,IBXIEN,IBTYPE,Z0))'="""" S IBXSAVE(Z,IBXIEN,IBTYPE,Z0)=IBSAVE(Z,IBXIEN,IBTYPE,Z0)"
^XMB(3.9,55,2,9553,0)="""RTN"",""IBCEF73"",53,0)"
^XMB(3.9,55,2,9554,0)=" . I $$CHSUB(IBFRM,IBREC,IBVAL) D"
^XMB(3.9,55,2,9555,0)="""RTN"",""IBCEF73"",54,0)"
^XMB(3.9,55,2,9556,0)=" .. S CT=CT+1,IBXSAVE(Z,IBXIEN,IBTYPE,Z0,Z1,CT)=IBSAVE(Z,IBXIEN,IBTYPE,Z0,Z1,Z2)"
^XMB(3.9,55,2,9557,0)="""RTN"",""IBCEF73"",55,0)"
^XMB(3.9,55,2,9558,0)=" .. I $G(IBXSAVE(Z,IBXIEN,IBTYPE,Z0))="""",$G(IBSAVE(Z,IBXIEN,IBTYPE,Z0))'="""" S IBXSAVE(Z,IBXIEN,IBTYPE,Z0)=IBSAVE(Z,IBXIEN,IBTYPE,Z0)"
^XMB(3.9,55,2,9559,0)="""RTN"",""IBCEF73"",56,0)"
^XMB(3.9,55,2,9560,0)=" Q"
^XMB(3.9,55,2,9561,0)="""RTN"",""IBCEF73"",57,0)"
^XMB(3.9,55,2,9562,0)=" ;"
^XMB(3.9,55,2,9563,0)="""RTN"",""IBCEF73"",58,0)"
^XMB(3.9,55,2,9564,0)=" ; Check if valid qualifier"
^XMB(3.9,55,2,9565,0)="""RTN"",""IBCEF73"",59,0)"
^XMB(3.9,55,2,9566,0)=" ;IBFRM 0-both, 1=UB92,2=HCFA 1500"
^XMB(3.9,55,2,9567,0)="""RTN"",""IBCEF73"",60,0)"
^XMB(3.9,55,2,9568,0)=" ;IBREC record ID whose ids are being filtered (SUB1,SUB2,etc)"
^XMB(3.9,55,2,9569,0)="""RTN"",""IBCEF73"",61,0)"
^XMB(3.9,55,2,9570,0)=" ;IBVAL - value to check"
^XMB(3.9,55,2,9571,0)="""RTN"",""IBCEF73"",62,0)"
^XMB(3.9,55,2,9572,0)="CHSUB(IBFRM,IBREC,IBVAL) ;"
^XMB(3.9,55,2,9573,0)="""RTN"",""IBCEF73"",63,0)"
^XMB(3.9,55,2,9574,0)=" N IBSTR"
^XMB(3.9,55,2,9575,0)="""RTN"",""IBCEF73"",64,0)"
^XMB(3.9,55,2,9576,0)=" I IBREC=""SUB1"" S IBSTR=$$SUB1(IBFRM)"
^XMB(3.9,55,2,9577,0)="""RTN"",""IBCEF73"",65,0)"
^XMB(3.9,55,2,9578,0)=" I IBREC=""SUB2"" S IBSTR=$$SUB2(IBFRM)"
^XMB(3.9,55,2,9579,0)="""RTN"",""IBCEF73"",66,0)"
^XMB(3.9,55,2,9580,0)=" I IBREC=""OP7"" S IBSTR=$$OP7(IBFRM)"
^XMB(3.9,55,2,9581,0)="""RTN"",""IBCEF73"",67,0)"
^XMB(3.9,55,2,9582,0)=" I IBREC=""OP3"" S IBSTR=$$OP3(IBFRM)"
^XMB(3.9,55,2,9583,0)="""RTN"",""IBCEF73"",68,0)"
^XMB(3.9,55,2,9584,0)=" I IBREC=""OP6"" S IBSTR=$$OP6(IBFRM)"
^XMB(3.9,55,2,9585,0)="""RTN"",""IBCEF73"",69,0)"
^XMB(3.9,55,2,9586,0)=" Q:$G(IBSTR)="""" 1  ;if """" always return 1"
^XMB(3.9,55,2,9587,0)="""RTN"",""IBCEF73"",70,0)"
^XMB(3.9,55,2,9588,0)=" Q IBSTR[(""^""_IBVAL_""^"")"
^XMB(3.9,55,2,9589,0)="""RTN"",""IBCEF73"",71,0)"
^XMB(3.9,55,2,9590,0)=" ;"
^XMB(3.9,55,2,9591,0)="""RTN"",""IBCEF73"",72,0)"
^XMB(3.9,55,2,9592,0)=" ;IBFRM 0-both, 1=UB92,2=HCFA 1500"
^XMB(3.9,55,2,9593,0)="""RTN"",""IBCEF73"",73,0)"
^XMB(3.9,55,2,9594,0)="OPR2(IBFRM) ;"
^XMB(3.9,55,2,9595,0)="""RTN"",""IBCEF73"",74,0)"
^XMB(3.9,55,2,9596,0)=" Q:IBFRM=1 ""^0B^1A^1B^1C^1D^1G^1H^EI^G2^LU^N5^SY^X5^"""
^XMB(3.9,55,2,9597,0)="""RTN"",""IBCEF73"",75,0)"
^XMB(3.9,55,2,9598,0)=" Q:IBFRM=2 ""^0B^1B^1C^1D^1G^1H^EI^G2^LU^N5^SY^X5^"""
^XMB(3.9,55,2,9599,0)="""RTN"",""IBCEF73"",76,0)"
^XMB(3.9,55,2,9600,0)=" Q """""
^XMB(3.9,55,2,9601,0)="""RTN"",""IBCEF73"",77,0)"
^XMB(3.9,55,2,9602,0)=" ;"
^XMB(3.9,55,2,9603,0)="""RTN"",""IBCEF73"",78,0)"
^XMB(3.9,55,2,9604,0)=" ;IBFRM 0-both, 1=UB92,2=HCFA 1500"
^XMB(3.9,55,2,9605,0)="""RTN"",""IBCEF73"",79,0)"
^XMB(3.9,55,2,9606,0)="OP1(IBFRM) ;"
^XMB(3.9,55,2,9607,0)="""RTN"",""IBCEF73"",80,0)"
^XMB(3.9,55,2,9608,0)=" Q:IBFRM=1 ""^1A^1B^1C^1D^1G^1H^EI^G2^LU^N5^"""
^XMB(3.9,55,2,9609,0)="""RTN"",""IBCEF73"",81,0)"
^XMB(3.9,55,2,9610,0)=" Q:IBFRM=2 ""^1B^1C^1D^EI^G2^LU^N5^"""
^XMB(3.9,55,2,9611,0)="""RTN"",""IBCEF73"",82,0)"
^XMB(3.9,55,2,9612,0)=" Q """""
^XMB(3.9,55,2,9613,0)="""RTN"",""IBCEF73"",83,0)"
^XMB(3.9,55,2,9614,0)=" ;"
^XMB(3.9,55,2,9615,0)="""RTN"",""IBCEF73"",84,0)"
^XMB(3.9,55,2,9616,0)=" ;IBFRM 0-both, 1=UB92,2=HCFA 1500"
^XMB(3.9,55,2,9617,0)="""RTN"",""IBCEF73"",85,0)"
^XMB(3.9,55,2,9618,0)="OPR3(IBFRM) ;"
^XMB(3.9,55,2,9619,0)="""RTN"",""IBCEF73"",86,0)"
^XMB(3.9,55,2,9620,0)=" Q:IBFRM=1 ""^0B^1A^1B^1C^1D^1G^1H^EI^G2^LU^N5^SY^X5^"""
^XMB(3.9,55,2,9621,0)="""RTN"",""IBCEF73"",87,0)"
^XMB(3.9,55,2,9622,0)=" Q """""
^XMB(3.9,55,2,9623,0)="""RTN"",""IBCEF73"",88,0)"
^XMB(3.9,55,2,9624,0)=" ;"
^XMB(3.9,55,2,9625,0)="""RTN"",""IBCEF73"",89,0)"
^XMB(3.9,55,2,9626,0)=" ;IBFRM 0-both, 1=UB92,2=HCFA 1500"
^XMB(3.9,55,2,9627,0)="""RTN"",""IBCEF73"",90,0)"
^XMB(3.9,55,2,9628,0)="OP2(IBFRM) ;"
^XMB(3.9,55,2,9629,0)="""RTN"",""IBCEF73"",91,0)"
^XMB(3.9,55,2,9630,0)=" Q:IBFRM=1 ""^1A^1B^1C^1D^1G^1H^EI^G2^LU^N5^"""
^XMB(3.9,55,2,9631,0)="""RTN"",""IBCEF73"",92,0)"
^XMB(3.9,55,2,9632,0)=" Q """""
^XMB(3.9,55,2,9633,0)="""RTN"",""IBCEF73"",93,0)"
^XMB(3.9,55,2,9634,0)=" ;"
^XMB(3.9,55,2,9635,0)="""RTN"",""IBCEF73"",94,0)"
^XMB(3.9,55,2,9636,0)=" ;IBFRM 0-both, 1=UB92,2=HCFA 1500"
^XMB(3.9,55,2,9637,0)="""RTN"",""IBCEF73"",95,0)"
^XMB(3.9,55,2,9638,0)="SUB1(IBFRM) ;"
^XMB(3.9,55,2,9639,0)="""RTN"",""IBCEF73"",96,0)"
^XMB(3.9,55,2,9640,0)=" Q:IBFRM=1 ""^0B^1A^1B^1C^1D^1G^1H^EI^G2^LU^N5^SY^X5^"""
^XMB(3.9,55,2,9641,0)="""RTN"",""IBCEF73"",97,0)"
^XMB(3.9,55,2,9642,0)=" Q:IBFRM=2 ""^0B^1A^1B^1C^1D^1G^1H^EI^G2^LU^N5^U3^SY^X5^"""
^XMB(3.9,55,2,9643,0)="""RTN"",""IBCEF73"",98,0)"
^XMB(3.9,55,2,9644,0)=" Q """""
^XMB(3.9,55,2,9645,0)="""RTN"",""IBCEF73"",99,0)"
^XMB(3.9,55,2,9646,0)=" ;"
^XMB(3.9,55,2,9647,0)="""RTN"",""IBCEF73"",100,0)"
^XMB(3.9,55,2,9648,0)=" ;IBFRM 0-both, 1=UB92,2=HCFA 1500"
^XMB(3.9,55,2,9649,0)="""RTN"",""IBCEF73"",101,0)"
^XMB(3.9,55,2,9650,0)="OPR4(IBFRM) ;"
^XMB(3.9,55,2,9651,0)="""RTN"",""IBCEF73"",102,0)"
^XMB(3.9,55,2,9652,0)=" Q:IBFRM=1 ""^0B^1A^1B^1C^1D^1G^1H^EI^G2^LU^N5^SY^X5^"""
^XMB(3.9,55,2,9653,0)="""RTN"",""IBCEF73"",103,0)"
^XMB(3.9,55,2,9654,0)=" Q """""
^XMB(3.9,55,2,9655,0)="""RTN"",""IBCEF73"",104,0)"
^XMB(3.9,55,2,9656,0)=" ;"
^XMB(3.9,55,2,9657,0)="""RTN"",""IBCEF73"",105,0)"
^XMB(3.9,55,2,9658,0)=" ;IBFRM 0-both, 1=UB92,2=HCFA 1500"
^XMB(3.9,55,2,9659,0)="""RTN"",""IBCEF73"",106,0)"
^XMB(3.9,55,2,9660,0)="OP9(IBFRM) ;"
^XMB(3.9,55,2,9661,0)="""RTN"",""IBCEF73"",107,0)"
^XMB(3.9,55,2,9662,0)=" Q:IBFRM=1 ""^1A^1B^1C^1D^1G^1H^EI^G2^LU^N5^"""
^XMB(3.9,55,2,9663,0)="""RTN"",""IBCEF73"",108,0)"
^XMB(3.9,55,2,9664,0)=" Q """""
^XMB(3.9,55,2,9665,0)="""RTN"",""IBCEF73"",109,0)"
^XMB(3.9,55,2,9666,0)=" ;"
^XMB(3.9,55,2,9667,0)="""RTN"",""IBCEF73"",110,0)"
^XMB(3.9,55,2,9668,0)=" ;IBFRM 0-both, 1=UB92,2=HCFA 1500"
^XMB(3.9,55,2,9669,0)="""RTN"",""IBCEF73"",111,0)"
^XMB(3.9,55,2,9670,0)="SUB2(IBFRM) ;"
^XMB(3.9,55,2,9671,0)="""RTN"",""IBCEF73"",112,0)"
^XMB(3.9,55,2,9672,0)=" Q:IBFRM=1 ""^0B^1A^1B^1C^1G^1H^1J^EI^FH^G2^G5^LU^N5^X5^TJ^B3^BQ^SY^U3^"""
^XMB(3.9,55,2,9673,0)="""RTN"",""IBCEF73"",113,0)"
^XMB(3.9,55,2,9674,0)=" Q:IBFRM=2 ""^0B^X4^1A^1B^1C^1G^1H^G2^LU^X5^TJ^B3^BQ^SY^U3^"""
^XMB(3.9,55,2,9675,0)="""RTN"",""IBCEF73"",114,0)"
^XMB(3.9,55,2,9676,0)=" Q """""
^XMB(3.9,55,2,9677,0)="""RTN"",""IBCEF73"",115,0)"
^XMB(3.9,55,2,9678,0)=" ;"
^XMB(3.9,55,2,9679,0)="""RTN"",""IBCEF73"",116,0)"
^XMB(3.9,55,2,9680,0)=" ;IBFRM 0-both, 1=UB92,2=HCFA 1500"
^XMB(3.9,55,2,9681,0)="""RTN"",""IBCEF73"",117,0)"
^XMB(3.9,55,2,9682,0)="OP3(IBFRM) ;"
^XMB(3.9,55,2,9683,0)="""RTN"",""IBCEF73"",118,0)"
^XMB(3.9,55,2,9684,0)=" Q:IBFRM=1 ""^1B^1C^EI^G2^LU^N5^"""
^XMB(3.9,55,2,9685,0)="""RTN"",""IBCEF73"",119,0)"
^XMB(3.9,55,2,9686,0)=" Q """""
^XMB(3.9,55,2,9687,0)="""RTN"",""IBCEF73"",120,0)"
^XMB(3.9,55,2,9688,0)=" ;"
^XMB(3.9,55,2,9689,0)="""RTN"",""IBCEF73"",121,0)"
^XMB(3.9,55,2,9690,0)=" ;IBFRM 0-both, 1=UB92,2=HCFA 1500"
^XMB(3.9,55,2,9691,0)="""RTN"",""IBCEF73"",122,0)"
^XMB(3.9,55,2,9692,0)="OPR5(IBFRM) ;"
^XMB(3.9,55,2,9693,0)="""RTN"",""IBCEF73"",123,0)"
^XMB(3.9,55,2,9694,0)=" Q:IBFRM=2 ""^0B^1B^1C^1D^1G^1H^EI^G2^LU^N5^SY^X5^"""
^XMB(3.9,55,2,9695,0)="""RTN"",""IBCEF73"",124,0)"
^XMB(3.9,55,2,9696,0)=" Q """""
^XMB(3.9,55,2,9697,0)="""RTN"",""IBCEF73"",125,0)"
^XMB(3.9,55,2,9698,0)=" ;"
^XMB(3.9,55,2,9699,0)="""RTN"",""IBCEF73"",126,0)"
^XMB(3.9,55,2,9700,0)=" ;IBFRM 0-both, 1=UB92,2=HCFA 1500"
^XMB(3.9,55,2,9701,0)="""RTN"",""IBCEF73"",127,0)"
^XMB(3.9,55,2,9702,0)="OPR8(IBFRM) ;"
^XMB(3.9,55,2,9703,0)="""RTN"",""IBCEF73"",128,0)"
^XMB(3.9,55,2,9704,0)=" Q:IBFRM=2 ""^0B^1B^1C^1D^1G^1H^EI^G2^LU^N5^SY^X5^"""
^XMB(3.9,55,2,9705,0)="""RTN"",""IBCEF73"",129,0)"
^XMB(3.9,55,2,9706,0)=" Q """""
^XMB(3.9,55,2,9707,0)="""RTN"",""IBCEF73"",130,0)"
^XMB(3.9,55,2,9708,0)=" ;"
^XMB(3.9,55,2,9709,0)="""RTN"",""IBCEF73"",131,0)"
^XMB(3.9,55,2,9710,0)=" ;IBFRM 0-both, 1=UB92,2=HCFA 1500"
^XMB(3.9,55,2,9711,0)="""RTN"",""IBCEF73"",132,0)"
^XMB(3.9,55,2,9712,0)="OP4(IBFRM) ;"
^XMB(3.9,55,2,9713,0)="""RTN"",""IBCEF73"",133,0)"
^XMB(3.9,55,2,9714,0)=" Q:IBFRM=2 ""^1B^1C^1D^EI^G2^LU^N5^"""
^XMB(3.9,55,2,9715,0)="""RTN"",""IBCEF73"",134,0)"
^XMB(3.9,55,2,9716,0)=" Q """""
^XMB(3.9,55,2,9717,0)="""RTN"",""IBCEF73"",135,0)"
^XMB(3.9,55,2,9718,0)=" ;"
^XMB(3.9,55,2,9719,0)="""RTN"",""IBCEF73"",136,0)"
^XMB(3.9,55,2,9720,0)=" ;IBFRM 0-both, 1=UB92,2=HCFA 1500"
^XMB(3.9,55,2,9721,0)="""RTN"",""IBCEF73"",137,0)"
^XMB(3.9,55,2,9722,0)="OP8(IBFRM) ;"
^XMB(3.9,55,2,9723,0)="""RTN"",""IBCEF73"",138,0)"
^XMB(3.9,55,2,9724,0)=" Q:IBFRM=2 ""^1B^1C^1D^EI^G2^N5^"""
^XMB(3.9,55,2,9725,0)="""RTN"",""IBCEF73"",139,0)"
^XMB(3.9,55,2,9726,0)=" Q """""
^XMB(3.9,55,2,9727,0)="""RTN"",""IBCEF73"",140,0)"
^XMB(3.9,55,2,9728,0)=" ;"
^XMB(3.9,55,2,9729,0)="""RTN"",""IBCEF73"",141,0)"
^XMB(3.9,55,2,9730,0)=" ;IBFRM 0-both, 1=UB92,2=HCFA 1500"
^XMB(3.9,55,2,9731,0)="""RTN"",""IBCEF73"",142,0)"
^XMB(3.9,55,2,9732,0)="OP6(IBFRM) ;"
^XMB(3.9,55,2,9733,0)="""RTN"",""IBCEF73"",143,0)"
^XMB(3.9,55,2,9734,0)=" Q:IBFRM=2 ""^1A^1B^1C^G2^LU^N5^"""
^XMB(3.9,55,2,9735,0)="""RTN"",""IBCEF73"",144,0)"
^XMB(3.9,55,2,9736,0)=" Q """""
^XMB(3.9,55,2,9737,0)="""RTN"",""IBCEF73"",145,0)"
^XMB(3.9,55,2,9738,0)=" ;"
^XMB(3.9,55,2,9739,0)="""RTN"",""IBCEF73"",146,0)"
^XMB(3.9,55,2,9740,0)=" ;IBFRM 0-both, 1=UB92,2=HCFA 1500"
^XMB(3.9,55,2,9741,0)="""RTN"",""IBCEF73"",147,0)"
^XMB(3.9,55,2,9742,0)="OP7(IBFRM) ;"
^XMB(3.9,55,2,9743,0)="""RTN"",""IBCEF73"",148,0)"
^XMB(3.9,55,2,9744,0)=" Q:IBFRM=2 ""^1A^1B^1C^G2^LU^N5^"""
^XMB(3.9,55,2,9745,0)="""RTN"",""IBCEF73"",149,0)"
^XMB(3.9,55,2,9746,0)=" Q """""
^XMB(3.9,55,2,9747,0)="""RTN"",""IBCEF73"",150,0)"
^XMB(3.9,55,2,9748,0)=" ;"
^XMB(3.9,55,2,9749,0)="""RTN"",""IBCEF73"",151,0)"
^XMB(3.9,55,2,9750,0)=" ;check qualifier for PRV1"
^XMB(3.9,55,2,9751,0)="""RTN"",""IBCEF73"",152,0)"
^XMB(3.9,55,2,9752,0)=" ;IBFRM 0-both, 1=UB92,2=HCFA 1500"
^XMB(3.9,55,2,9753,0)="""RTN"",""IBCEF73"",153,0)"
^XMB(3.9,55,2,9754,0)=" ;IBVAL - value to check"
^XMB(3.9,55,2,9755,0)="""RTN"",""IBCEF73"",154,0)"
^XMB(3.9,55,2,9756,0)="CHCKPRV1(IBFRM,IBVAL) ;"
^XMB(3.9,55,2,9757,0)="""RTN"",""IBCEF73"",155,0)"
^XMB(3.9,55,2,9758,0)=" I IBFRM=0 Q:$$CHPRV1(1,IBVAL) 1  Q $$CHPRV1(2,IBVAL)"
^XMB(3.9,55,2,9759,0)="""RTN"",""IBCEF73"",156,0)"
^XMB(3.9,55,2,9760,0)=" Q $$CHPRV1(IBFRM,IBVAL)"
^XMB(3.9,55,2,9761,0)="""RTN"",""IBCEF73"",157,0)"
^XMB(3.9,55,2,9762,0)=" ;IBFRM 0-both, 1=UB92,2=HCFA 1500"
^XMB(3.9,55,2,9763,0)="""RTN"",""IBCEF73"",158,0)"
^XMB(3.9,55,2,9764,0)="CHPRV1(IBFRM,IBVAL) ;"
^XMB(3.9,55,2,9765,0)="""RTN"",""IBCEF73"",159,0)"
^XMB(3.9,55,2,9766,0)=" N IBSTR S IBSTR="""""
^XMB(3.9,55,2,9767,0)="""RTN"",""IBCEF73"",160,0)"
^XMB(3.9,55,2,9768,0)=" S IBSTR=$$PRV1(IBFRM)"
^XMB(3.9,55,2,9769,0)="""RTN"",""IBCEF73"",161,0)"
^XMB(3.9,55,2,9770,0)=" Q:IBSTR="""" 1"
^XMB(3.9,55,2,9771,0)="""RTN"",""IBCEF73"",162,0)"
^XMB(3.9,55,2,9772,0)=" Q IBSTR[(""^""_IBVAL_""^"")"
^XMB(3.9,55,2,9773,0)="""RTN"",""IBCEF73"",163,0)"
^XMB(3.9,55,2,9774,0)=" ;"
^XMB(3.9,55,2,9775,0)="""RTN"",""IBCEF73"",164,0)"
^XMB(3.9,55,2,9776,0)="PRV1(IBFRM) ;"
^XMB(3.9,55,2,9777,0)="""RTN"",""IBCEF73"",165,0)"
^XMB(3.9,55,2,9778,0)=" Q:IBFRM=1 ""^1A^1C^1D^1G^1H^1J^B3^BQ^EI^FH^G2^G5^LU^SY^X5^"""
^XMB(3.9,55,2,9779,0)="""RTN"",""IBCEF73"",166,0)"
^XMB(3.9,55,2,9780,0)=" Q:IBFRM=2 ""^1B^1C^1D^1G^1H^1J^B3^BQ^EI^FH^G2^G5^LU^U3^SY^X5^"""
^XMB(3.9,55,2,9781,0)="""RTN"",""IBCEF73"",167,0)"
^XMB(3.9,55,2,9782,0)=" Q """""
^XMB(3.9,55,2,9783,0)="""RTN"",""IBCEF73"",168,0)"
^XMB(3.9,55,2,9784,0)=" ;"
^XMB(3.9,55,2,9785,0)="""RTN"",""IBCEF73"",169,0)"
^XMB(3.9,55,2,9786,0)="PTSELF ;This tag is for the CI2 segment. If the IBXSAVE(""IADR"") is empty"
^XMB(3.9,55,2,9787,0)="""RTN"",""IBCEF73"",170,0)"
^XMB(3.9,55,2,9788,0)=" ;check to see if the relationship to pt is 18 (self) if so pull info"
^XMB(3.9,55,2,9789,0)="""RTN"",""IBCEF73"",171,0)"
^XMB(3.9,55,2,9790,0)=" ;from PT1 calls"
^XMB(3.9,55,2,9791,0)="""RTN"",""IBCEF73"",172,0)"
^XMB(3.9,55,2,9792,0)=" ;See if relationship to insured is 18 if not or if """" quit"
^XMB(3.9,55,2,9793,0)="""RTN"",""IBCEF73"",173,0)"
^XMB(3.9,55,2,9794,0)=" N IBZ"
^XMB(3.9,55,2,9795,0)="""RTN"",""IBCEF73"",174,0)"
^XMB(3.9,55,2,9796,0)=" D F^IBCEF(""N-ALL INSURED PT RELATION"",""IBZ"",,IBXIEN)"
^XMB(3.9,55,2,9797,0)="""RTN"",""IBCEF73"",175,0)"
^XMB(3.9,55,2,9798,0)=" S IBZ=$G(IBZ(+$$COBN^IBCEF(IBXIEN)))"
^XMB(3.9,55,2,9799,0)="""RTN"",""IBCEF73"",176,0)"
^XMB(3.9,55,2,9800,0)=" S IBZ=$$RELATION^IBCEFG1(IBZ)"
^XMB(3.9,55,2,9801,0)="""RTN"",""IBCEF73"",177,0)"
^XMB(3.9,55,2,9802,0)=" I IBZ'=""18"" S IBXDATA="""" Q"
^XMB(3.9,55,2,9803,0)="""RTN"",""IBCEF73"",178,0)"
^XMB(3.9,55,2,9804,0)=" N IBZ D F^IBCEF(""N-PATIENT STREET ADDRESS 1-3"",""IBZ"",,IBXIEN)"
^XMB(3.9,55,2,9805,0)="""RTN"",""IBCEF73"",179,0)"
^XMB(3.9,55,2,9806,0)=" S IBXDATA=""18"""
^XMB(3.9,55,2,9807,0)="""RTN"",""IBCEF73"",180,0)"
^XMB(3.9,55,2,9808,0)=" Q"
^XMB(3.9,55,2,9809,0)="""RTN"",""IBCEF73"",181,0)"
^XMB(3.9,55,2,9810,0)=" ;"
^XMB(3.9,55,2,9811,0)="""RTN"",""IBCEF73"",182,0)"
^XMB(3.9,55,2,9812,0)="NOPUNCT(X,SPACE,EXC) ; Strip punctuation from data in X"
^XMB(3.9,55,2,9813,0)="""RTN"",""IBCEF73"",183,0)"
^XMB(3.9,55,2,9814,0)=" ; SPACE = flag if 1 strip SPACES"
^XMB(3.9,55,2,9815,0)="""RTN"",""IBCEF73"",184,0)"
^XMB(3.9,55,2,9816,0)=" ; EXC = list of punct not to strip"
^XMB(3.9,55,2,9817,0)="""RTN"",""IBCEF73"",185,0)"
^XMB(3.9,55,2,9818,0)=" ;"
^XMB(3.9,55,2,9819,0)="""RTN"",""IBCEF73"",186,0)"
^XMB(3.9,55,2,9820,0)=" N PUNCT,Z"
^XMB(3.9,55,2,9821,0)="""RTN"",""IBCEF73"",187,0)"
^XMB(3.9,55,2,9822,0)=" S PUNCT="".,-+(){}[]\/><:;?|=_*&%$#@!~`^'"""""""
^XMB(3.9,55,2,9823,0)="""RTN"",""IBCEF73"",188,0)"
^XMB(3.9,55,2,9824,0)=" I $G(SPACE) S PUNCT=PUNCT_"" """
^XMB(3.9,55,2,9825,0)="""RTN"",""IBCEF73"",189,0)"
^XMB(3.9,55,2,9826,0)=" I $G(EXC)'="""" S PUNCT=$TR(PUNCT,EXC)"
^XMB(3.9,55,2,9827,0)="""RTN"",""IBCEF73"",190,0)"
^XMB(3.9,55,2,9828,0)=" N L S L="""""
^XMB(3.9,55,2,9829,0)="""RTN"",""IBCEF73"",191,0)"
^XMB(3.9,55,2,9830,0)=" F  S L=$O(X(L)) Q:L=""""  D"
^XMB(3.9,55,2,9831,0)="""RTN"",""IBCEF73"",192,0)"
^XMB(3.9,55,2,9832,0)=" . S X(L)=$TR(X(L),PUNCT)"
^XMB(3.9,55,2,9833,0)="""RTN"",""IBCEF73"",193,0)"
^XMB(3.9,55,2,9834,0)=" I $G(X)'="""" D"
^XMB(3.9,55,2,9835,0)="""RTN"",""IBCEF73"",194,0)"
^XMB(3.9,55,2,9836,0)=" . S X=$TR(X,PUNCT)"
^XMB(3.9,55,2,9837,0)="""RTN"",""IBCEF73"",195,0)"
^XMB(3.9,55,2,9838,0)=" Q"
^XMB(3.9,55,2,9839,0)="""RTN"",""IBCEF73"",196,0)"
^XMB(3.9,55,2,9840,0)=" ;"
^XMB(3.9,55,2,9841,0)="""RTN"",""IBCEF73"",197,0)"
^XMB(3.9,55,2,9842,0)="PROVID(IBXIEN) ;This modified version of prov id call is to acquire the SSN"
^XMB(3.9,55,2,9843,0)="""RTN"",""IBCEF73"",198,0)"
^XMB(3.9,55,2,9844,0)=" ;first, if the ssn is not available then we need to get the tax id."
^XMB(3.9,55,2,9845,0)="""RTN"",""IBCEF73"",199,0)"
^XMB(3.9,55,2,9846,0)=" ;we also need to provide the modifier for which value it is"
^XMB(3.9,55,2,9847,0)="""RTN"",""IBCEF73"",200,0)"
^XMB(3.9,55,2,9848,0)=" Q:+$G(IBXIEN)=0 """""
^XMB(3.9,55,2,9849,0)="""RTN"",""IBCEF73"",201,0)"
^XMB(3.9,55,2,9850,0)=" S IBXSAVE(""ID"")="""""
^XMB(3.9,55,2,9851,0)="""RTN"",""IBCEF73"",202,0)"
^XMB(3.9,55,2,9852,0)=" S IBXSAVE="""""
^XMB(3.9,55,2,9853,0)="""RTN"",""IBCEF73"",203,0)"
^XMB(3.9,55,2,9854,0)=" S IBXSAVE=$$PROVSSN^IBCEF7(IBXIEN)"
^XMB(3.9,55,2,9855,0)="""RTN"",""IBCEF73"",204,0)"
^XMB(3.9,55,2,9856,0)=" N I"
^XMB(3.9,55,2,9857,0)="""RTN"",""IBCEF73"",205,0)"
^XMB(3.9,55,2,9858,0)=" F I=1:1:9 D"
^XMB(3.9,55,2,9859,0)="""RTN"",""IBCEF73"",206,0)"
^XMB(3.9,55,2,9860,0)=" . I $P(IBXSAVE,""^"",I)]"""" S $P(IBXSAVE(""ID""),U,I)=""34"""
^XMB(3.9,55,2,9861,0)="""RTN"",""IBCEF73"",207,0)"
^XMB(3.9,55,2,9862,0)=" ;If no ibxdata go look in 355.97 for 24 "
^XMB(3.9,55,2,9863,0)="""RTN"",""IBCEF73"",208,0)"
^XMB(3.9,55,2,9864,0)=" N IBRETVAL S IBRETVAL="""""
^XMB(3.9,55,2,9865,0)="""RTN"",""IBCEF73"",209,0)"
^XMB(3.9,55,2,9866,0)=" N IBPTR,IBFT"
^XMB(3.9,55,2,9867,0)="""RTN"",""IBCEF73"",210,0)"
^XMB(3.9,55,2,9868,0)=" F IBFT=1:1:9 D"
^XMB(3.9,55,2,9869,0)="""RTN"",""IBCEF73"",211,0)"
^XMB(3.9,55,2,9870,0)=" . Q:$P(IBXSAVE,U,IBFT)]"""""
^XMB(3.9,55,2,9871,0)="""RTN"",""IBCEF73"",212,0)"
^XMB(3.9,55,2,9872,0)=" . S IBPTR=$$PROVPTR^IBCEF7(IBXIEN,IBFT)"
^XMB(3.9,55,2,9873,0)="""RTN"",""IBCEF73"",213,0)"
^XMB(3.9,55,2,9874,0)=" . S $P(IBRETVAL,""^"",IBFT)=$$TAX3559(IBPTR)"
^XMB(3.9,55,2,9875,0)="""RTN"",""IBCEF73"",214,0)"
^XMB(3.9,55,2,9876,0)=" . I $P(IBRETVAL,U,IBFT)]"""" D"
^XMB(3.9,55,2,9877,0)="""RTN"",""IBCEF73"",215,0)"
^XMB(3.9,55,2,9878,0)=" . . S $P(IBXSAVE,U,IBFT)=$P(IBRETVAL,U,IBFT)"
^XMB(3.9,55,2,9879,0)="""RTN"",""IBCEF73"",216,0)"
^XMB(3.9,55,2,9880,0)=" . . S $P(IBXSAVE(""ID""),U,IBFT)=""24"""
^XMB(3.9,55,2,9881,0)="""RTN"",""IBCEF73"",217,0)"
^XMB(3.9,55,2,9882,0)=" Q IBXSAVE"
^XMB(3.9,55,2,9883,0)="""RTN"",""IBCEF73"",218,0)"
^XMB(3.9,55,2,9884,0)=" ;"
^XMB(3.9,55,2,9885,0)="""RTN"",""IBCEF73"",219,0)"
^XMB(3.9,55,2,9886,0)="TAX3559(IBPROV) ;"
^XMB(3.9,55,2,9887,0)="""RTN"",""IBCEF73"",220,0)"
^XMB(3.9,55,2,9888,0)=" I $P(IBPROV,"";"",2)'[""IBA(355.9"" Q """""
^XMB(3.9,55,2,9889,0)="""RTN"",""IBCEF73"",221,0)"
^XMB(3.9,55,2,9890,0)=" N IB2,IB3559,IBIDTYP,IBID,IBQFL"
^XMB(3.9,55,2,9891,0)="""RTN"",""IBCEF73"",222,0)"
^XMB(3.9,55,2,9892,0)=" S (IB3559,IBQFL)=0"
^XMB(3.9,55,2,9893,0)="""RTN"",""IBCEF73"",223,0)"
^XMB(3.9,55,2,9894,0)=" S IBID="""""
^XMB(3.9,55,2,9895,0)="""RTN"",""IBCEF73"",224,0)"
^XMB(3.9,55,2,9896,0)=" Q:+$G(IBPROV)=0 """""
^XMB(3.9,55,2,9897,0)="""RTN"",""IBCEF73"",225,0)"
^XMB(3.9,55,2,9898,0)=" F IB2=1:1 S IB3559=$O(^IBA(355.9,""B"",IBPROV,IB3559)) Q:IB3559=""""!IBQFL  D"
^XMB(3.9,55,2,9899,0)="""RTN"",""IBCEF73"",226,0)"
^XMB(3.9,55,2,9900,0)=" . S IBIDTYP=+$P($G(^IBA(355.9,IB3559,0)),""^"",6) ;provider ID type, ptr to #355.97"
^XMB(3.9,55,2,9901,0)="""RTN"",""IBCEF73"",227,0)"
^XMB(3.9,55,2,9902,0)=" . S IBIDTYP=$P($G(^IBE(355.97,IBIDTYP,0)),""^"",3)"
^XMB(3.9,55,2,9903,0)="""RTN"",""IBCEF73"",228,0)"
^XMB(3.9,55,2,9904,0)=" . S:IBIDTYP=24 IBID=$P($G(^IBA(355.9,IB3559,0)),""^"",7),IBQFL=1"
^XMB(3.9,55,2,9905,0)="""RTN"",""IBCEF73"",229,0)"
^XMB(3.9,55,2,9906,0)=" Q $$NOPUNCT^IBCEF(IBID)"
^XMB(3.9,55,2,9907,0)="""RTN"",""IBCEF73"",230,0)"
^XMB(3.9,55,2,9908,0)=" ;"
^XMB(3.9,55,2,9909,0)="""RTN"",""IBCEF73"",231,0)"
^XMB(3.9,55,2,9910,0)=" ;IBFULL-full name"
^XMB(3.9,55,2,9911,0)="""RTN"",""IBCEF73"",232,0)"
^XMB(3.9,55,2,9912,0)=" ;IBEL - Name element : ""FAMILY"",""GIVEN"",""MIDDLE"",""SUFFIX"""
^XMB(3.9,55,2,9913,0)="""RTN"",""IBCEF73"",233,0)"
^XMB(3.9,55,2,9914,0)=" ;"
^XMB(3.9,55,2,9915,0)="""RTN"",""IBCEF73"",234,0)"
^XMB(3.9,55,2,9916,0)="SSN200(IBPTR)   ;"
^XMB(3.9,55,2,9917,0)="""RTN"",""IBCEF73"",235,0)"
^XMB(3.9,55,2,9918,0)=" I $P(IBPTR,"";"",2)'=""VA(200,"" Q """""
^XMB(3.9,55,2,9919,0)="""RTN"",""IBCEF73"",236,0)"
^XMB(3.9,55,2,9920,0)=" Q $$NOPUNCT^IBCEF($$GET1^DIQ(200,+$P(IBPTR,"";"")_"","",9))"
^XMB(3.9,55,2,9921,0)="""RTN"",""IBCEF73"",237,0)"
^XMB(3.9,55,2,9922,0)=" ;"
^XMB(3.9,55,2,9923,0)="""RTN"",""IBCEF73"",238,0)"
^XMB(3.9,55,2,9924,0)=" ;Input:"
^XMB(3.9,55,2,9925,0)="""RTN"",""IBCEF73"",239,0)"
^XMB(3.9,55,2,9926,0)=" ; IBIEN399 - ien in #399"
^XMB(3.9,55,2,9927,0)="""RTN"",""IBCEF73"",240,0)"
^XMB(3.9,55,2,9928,0)=" ;Output:"
^XMB(3.9,55,2,9929,0)="""RTN"",""IBCEF73"",241,0)"
^XMB(3.9,55,2,9930,0)=" ; returns a string with ""^"" delimiters that contains SSNs (if any)"
^XMB(3.9,55,2,9931,0)="""RTN"",""IBCEF73"",242,0)"
^XMB(3.9,55,2,9932,0)=" ; in the position that equal to FUNCTION number"
^XMB(3.9,55,2,9933,0)="""RTN"",""IBCEF73"",243,0)"
^XMB(3.9,55,2,9934,0)=" ; i.e. if RENDERING function # is 3 then SSN will be"
^XMB(3.9,55,2,9935,0)="""RTN"",""IBCEF73"",244,0)"
^XMB(3.9,55,2,9936,0)=" ; in $P(return value,""^"",3), etc."
^XMB(3.9,55,2,9937,0)="""RTN"",""IBCEF73"",245,0)"
^XMB(3.9,55,2,9938,0)=" ;"
^XMB(3.9,55,2,9939,0)="""RTN"",""IBCEF73"",246,0)"
^XMB(3.9,55,2,9940,0)="SSN3559(IBPROV) ;"
^XMB(3.9,55,2,9941,0)="""RTN"",""IBCEF73"",247,0)"
^XMB(3.9,55,2,9942,0)=" N IB2,IB3559,IBIDTYP,IBID,IBQFL"
^XMB(3.9,55,2,9943,0)="""RTN"",""IBCEF73"",248,0)"
^XMB(3.9,55,2,9944,0)=" S (IB3559,IBQFL)=0"
^XMB(3.9,55,2,9945,0)="""RTN"",""IBCEF73"",249,0)"
^XMB(3.9,55,2,9946,0)=" S IBID="""""
^XMB(3.9,55,2,9947,0)="""RTN"",""IBCEF73"",250,0)"
^XMB(3.9,55,2,9948,0)=" Q:+$G(IBPROV)=0 """""
^XMB(3.9,55,2,9949,0)="""RTN"",""IBCEF73"",251,0)"
^XMB(3.9,55,2,9950,0)=" F IB2=1:1 S IB3559=$O(^IBA(355.9,""B"",IBPROV,IB3559)) Q:IB3559=""""!IBQFL  D"
^XMB(3.9,55,2,9951,0)="""RTN"",""IBCEF73"",252,0)"
^XMB(3.9,55,2,9952,0)=" . S IBIDTYP=+$P($G(^IBA(355.9,IB3559,0)),""^"",6)"
^XMB(3.9,55,2,9953,0)="""RTN"",""IBCEF73"",253,0)"
^XMB(3.9,55,2,9954,0)=" . S IBIDTYP=$P($G(^IBE(355.97,IBIDTYP,0)),""^"",3)"
^XMB(3.9,55,2,9955,0)="""RTN"",""IBCEF73"",254,0)"
^XMB(3.9,55,2,9956,0)=" . S:IBIDTYP=""SY"" IBID=$P($G(^IBA(355.9,IB3559,0)),""^"",7),IBQFL=1"
^XMB(3.9,55,2,9957,0)="""RTN"",""IBCEF73"",255,0)"
^XMB(3.9,55,2,9958,0)=" Q $$NOPUNCT^IBCEF(IBID)"
^XMB(3.9,55,2,9959,0)="""RTN"",""IBCEF73"",256,0)"
^XMB(3.9,55,2,9960,0)=" ;"
^XMB(3.9,55,2,9961,0)="""RTN"",""IBCEF73"",257,0)"
^XMB(3.9,55,2,9962,0)=" ;IBIDTYP-provider ID type, ptr to #355.97"
^XMB(3.9,55,2,9963,0)="""RTN"",""IBCEF73"",258,0)"
^XMB(3.9,55,2,9964,0)=" ;IBFULL-full name"
^XMB(3.9,55,2,9965,0)="""RTN"",""IBCEF73"",259,0)"
^XMB(3.9,55,2,9966,0)=" ;IBEL - Name element : ""FAMILY"",""GIVEN"",""MIDDLE"",""SUFFIX"""
^XMB(3.9,55,2,9967,0)="""RTN"",""IBCEF73"",260,0)"
^XMB(3.9,55,2,9968,0)=" ;"
^XMB(3.9,55,2,9969,0)="""RTN"",""IBCEF73"",261,0)"
^XMB(3.9,55,2,9970,0)="PRV1FMT(P) ;FORMAT CODE FOR PRV1 SEGMENT THAT WON'T FIT ON LINE"
^XMB(3.9,55,2,9971,0)="""RTN"",""IBCEF73"",262,0)"
^XMB(3.9,55,2,9972,0)=" K IBXDATA"
^XMB(3.9,55,2,9973,0)="""RTN"",""IBCEF73"",263,0)"
^XMB(3.9,55,2,9974,0)=" S:'$D(IBXSAVE(""BIL-PROV-SEC"")) IBXSAVE(""BIL-PROV-SEC"")=$$PRV1^IBCEF7(IBXIEN)"
^XMB(3.9,55,2,9975,0)="""RTN"",""IBCEF73"",264,0)"
^XMB(3.9,55,2,9976,0)=" S IBXDATA=$P($G(IBXSAVE(""BIL-PROV-SEC"")),""^"",P)"
^XMB(3.9,55,2,9977,0)="""RTN"",""IBCEF73"",265,0)"
^XMB(3.9,55,2,9978,0)=" I $G(IBXDATA)'="""" S IBXDATA=$$NOPUNCT^IBCEF(IBXDATA,1)"
^XMB(3.9,55,2,9979,0)="""RTN"",""IBCEF73"",266,0)"
^XMB(3.9,55,2,9980,0)=" Q"
^XMB(3.9,55,2,9981,0)="""RTN"",""IBCEF73"",267,0)"
^XMB(3.9,55,2,9982,0)=" ;"
^XMB(3.9,55,2,9983,0)="""RTN"",""IBCEF74"")"
^XMB(3.9,55,2,9984,0)="0^65^B56964899^B71820469"
^XMB(3.9,55,2,9985,0)="""RTN"",""IBCEF74"",1,0)"
^XMB(3.9,55,2,9986,0)="IBCEF74 ;WOIFO/SS - FORMATTER/EXTRACT BILL FUNCTIONS ;31-JUL-03"
^XMB(3.9,55,2,9987,0)="""RTN"",""IBCEF74"",2,0)"
^XMB(3.9,55,2,9988,0)=" ;;2.0;INTEGRATED BILLING;**232,280,155,290,291,320**;21-MAR-94"
^XMB(3.9,55,2,9989,0)="""RTN"",""IBCEF74"",3,0)"
^XMB(3.9,55,2,9990,0)=" ;; Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,9991,0)="""RTN"",""IBCEF74"",4,0)"
^XMB(3.9,55,2,9992,0)=" ;"
^XMB(3.9,55,2,9993,0)="""RTN"",""IBCEF74"",5,0)"
^XMB(3.9,55,2,9994,0)="SORT(IBPRNUM,IBPRTYP,IB399,IBSRC,IBDST,IBN,IBEXC,IBSEQ,IBLIMIT) ;"
^XMB(3.9,55,2,9995,0)="""RTN"",""IBCEF74"",6,0)"
^XMB(3.9,55,2,9996,0)=" D SORT^IBCEF77($G(IBPRNUM),$G(IBPRTYP),$G(IB399),.IBSRC,.IBDST,$G(IBN),$G(IBEXC),$G(IBSEQ),$G(IBLIMIT))"
^XMB(3.9,55,2,9997,0)="""RTN"",""IBCEF74"",7,0)"
^XMB(3.9,55,2,9998,0)=" Q"
^XMB(3.9,55,2,9999,0)="""RTN"",""IBCEF74"",8,0)"
^XMB(3.9,55,2,10000,0)=" ;"
^XMB(3.9,55,2,10001,0)="""RTN"",""IBCEF74"",9,0)"
^XMB(3.9,55,2,10002,0)=" ;-- PROVINF --"
^XMB(3.9,55,2,10003,0)="""RTN"",""IBCEF74"",10,0)"
^XMB(3.9,55,2,10004,0)=" ;Create array with prov info"
^XMB(3.9,55,2,10005,0)="""RTN"",""IBCEF74"",11,0)"
^XMB(3.9,55,2,10006,0)=" ;Input:"
^XMB(3.9,55,2,10007,0)="""RTN"",""IBCEF74"",12,0)"
^XMB(3.9,55,2,10008,0)=" ; IB399 - ien #399"
^XMB(3.9,55,2,10009,0)="""RTN"",""IBCEF74"",13,0)"
^XMB(3.9,55,2,10010,0)=" ; IBPRNUM - 1=prim ins, 2= sec, 3 -tert"
^XMB(3.9,55,2,10011,0)="""RTN"",""IBCEF74"",14,0)"
^XMB(3.9,55,2,10012,0)=" ; IBRES - for results"
^XMB(3.9,55,2,10013,0)="""RTN"",""IBCEF74"",15,0)"
^XMB(3.9,55,2,10014,0)=" ; IBSORT - to sort OTHER INSURANCE data "
^XMB(3.9,55,2,10015,0)="""RTN"",""IBCEF74"",16,0)"
^XMB(3.9,55,2,10016,0)=" ;  if PROVINF is called for ""C"" mode of PROVIDER subroutine then "
^XMB(3.9,55,2,10017,0)="""RTN"",""IBCEF74"",17,0)"
^XMB(3.9,55,2,10018,0)=" ;    IBSORT can be any (say 1)"
^XMB(3.9,55,2,10019,0)="""RTN"",""IBCEF74"",18,0)"
^XMB(3.9,55,2,10020,0)=" ;  if PROVINF is called for ""O"" mode then can be more than set of data"
^XMB(3.9,55,2,10021,0)="""RTN"",""IBCEF74"",19,0)"
^XMB(3.9,55,2,10022,0)=" ;    - need to sort array to use it (like IBXDATA(1) and IBXDATA(2))"
^XMB(3.9,55,2,10023,0)="""RTN"",""IBCEF74"",20,0)"
^XMB(3.9,55,2,10024,0)=" ;    for mode ""O"" it should be 1 or 2 (see PROVIDER section)"
^XMB(3.9,55,2,10025,0)="""RTN"",""IBCEF74"",21,0)"
^XMB(3.9,55,2,10026,0)=" ;IBINSTP -  ""C"" -current ins, ""O""-other"
^XMB(3.9,55,2,10027,0)="""RTN"",""IBCEF74"",22,0)"
^XMB(3.9,55,2,10028,0)=" ;Output:"
^XMB(3.9,55,2,10029,0)="""RTN"",""IBCEF74"",23,0)"
^XMB(3.9,55,2,10030,0)=" ; IBRES(PRNUM,PRTYPE,SEQ#)=PROV^INSUR^IDTYPE^ID^FORMTYP^CARETYP"
^XMB(3.9,55,2,10031,0)="""RTN"",""IBCEF74"",24,0)"
^XMB(3.9,55,2,10032,0)=" ; where:(see PROVIDER)"
^XMB(3.9,55,2,10033,0)="""RTN"",""IBCEF74"",25,0)"
^XMB(3.9,55,2,10034,0)="PROVINF(IB399,IBPRNUM,IBRES,IBSORT,IBINSTP) ;"
^XMB(3.9,55,2,10035,0)="""RTN"",""IBCEF74"",26,0)"
^XMB(3.9,55,2,10036,0)=" I +$G(IBSORT)=0 S IBSORT=IBPRNUM"
^XMB(3.9,55,2,10037,0)="""RTN"",""IBCEF74"",27,0)"
^XMB(3.9,55,2,10038,0)=" N IBPRTYP,IBINSCO,IBPROV,IBFRMTYP,IBCARE,IB35591,IBN,IBCURR,IBEXC,IBALLSSN,IBSSNIEN,IBLIMIT"
^XMB(3.9,55,2,10039,0)="""RTN"",""IBCEF74"",28,0)"
^XMB(3.9,55,2,10040,0)=" S IBN=0"
^XMB(3.9,55,2,10041,0)="""RTN"",""IBCEF74"",29,0)"
^XMB(3.9,55,2,10042,0)=" D F^IBCEF(""N-ALL ATT/RENDERING PROV SSN"",""IBALLSSN"",,IB399)"
^XMB(3.9,55,2,10043,0)="""RTN"",""IBCEF74"",30,0)"
^XMB(3.9,55,2,10044,0)=" S Q=0 F  S Q=$O(^IBE(355.97,Q)) Q:'Q  I $P($G(^(Q,0)),U,3)=""SY"" S IBSSNIEN=Q Q"
^XMB(3.9,55,2,10045,0)="""RTN"",""IBCEF74"",31,0)"
^XMB(3.9,55,2,10046,0)=" S IBINSCO=+$P($G(^DGCR(399,IB399,""M"")),""^"",IBPRNUM)"
^XMB(3.9,55,2,10047,0)="""RTN"",""IBCEF74"",32,0)"
^XMB(3.9,55,2,10048,0)=" S IBFRMTYP=$$FT^IBCEF(IB399),IBFRMTYP=$S(IBFRMTYP=2:2,IBFRMTYP=3:1,1:0)"
^XMB(3.9,55,2,10049,0)="""RTN"",""IBCEF74"",33,0)"
^XMB(3.9,55,2,10050,0)=" S IBCARE=$S($$ISRX^IBCEF1(IB399):3,1:0) ;if an Rx refill bill"
^XMB(3.9,55,2,10051,0)="""RTN"",""IBCEF74"",34,0)"
^XMB(3.9,55,2,10052,0)=" S:IBCARE=0 IBCARE=$$INPAT^IBCEF(IB399,1) S:'IBCARE IBCARE=2 ;1-inp,2-out"
^XMB(3.9,55,2,10053,0)="""RTN"",""IBCEF74"",35,0)"
^XMB(3.9,55,2,10054,0)=" S IBLIMIT=$S($G(IBINSTP)=""C"":5,1:3)  ; Limits on secondary IDs"
^XMB(3.9,55,2,10055,0)="""RTN"",""IBCEF74"",36,0)"
^XMB(3.9,55,2,10056,0)=" F IBPRTYP=1:1:9 D"
^XMB(3.9,55,2,10057,0)="""RTN"",""IBCEF74"",37,0)"
^XMB(3.9,55,2,10058,0)=" . N Z,IB355OV"
^XMB(3.9,55,2,10059,0)="""RTN"",""IBCEF74"",38,0)"
^XMB(3.9,55,2,10060,0)=" . S IBPROV=$$PROVPTR^IBCEF7(IB399,IBPRTYP)"
^XMB(3.9,55,2,10061,0)="""RTN"",""IBCEF74"",39,0)"
^XMB(3.9,55,2,10062,0)=" . Q:+IBPROV=0"
^XMB(3.9,55,2,10063,0)="""RTN"",""IBCEF74"",40,0)"
^XMB(3.9,55,2,10064,0)=" . ;don't create anything if form type not HCFA or UB"
^XMB(3.9,55,2,10065,0)="""RTN"",""IBCEF74"",41,0)"
^XMB(3.9,55,2,10066,0)=" . Q:IBFRMTYP=0"
^XMB(3.9,55,2,10067,0)="""RTN"",""IBCEF74"",42,0)"
^XMB(3.9,55,2,10068,0)=" . N IBRETARR S IBRETARR=0"
^XMB(3.9,55,2,10069,0)="""RTN"",""IBCEF74"",43,0)"
^XMB(3.9,55,2,10070,0)=" . D PRACT^IBCEF71(IBINSCO,IBFRMTYP,IBCARE,IBPROV,.IBRETARR,IBPRTYP,$G(IBINSTP))"
^XMB(3.9,55,2,10071,0)="""RTN"",""IBCEF74"",44,0)"
^XMB(3.9,55,2,10072,0)=" . S IB355OV="""",IBEXC="""""
^XMB(3.9,55,2,10073,0)="""RTN"",""IBCEF74"",45,0)"
^XMB(3.9,55,2,10074,0)=" . S Z=$O(^DGCR(399,IB399,""PRV"",""B"",IBPRTYP,0))"
^XMB(3.9,55,2,10075,0)="""RTN"",""IBCEF74"",46,0)"
^XMB(3.9,55,2,10076,0)=" . I Z S Z=$G(^DGCR(399,IB399,""PRV"",Z,0)) D"
^XMB(3.9,55,2,10077,0)="""RTN"",""IBCEF74"",47,0)"
^XMB(3.9,55,2,10078,0)=" .. I $P(Z,U,IBPRNUM+4)'="""",$P(Z,U,IBPRNUM+11)'="""" S IB355OV=$P(Z,U,IBPRNUM+4)_U_$P(Z,U,IBPRNUM+11)"
^XMB(3.9,55,2,10079,0)="""RTN"",""IBCEF74"",48,0)"
^XMB(3.9,55,2,10080,0)=" . S IBCURR=$$COB^IBCEF(IB399)"
^XMB(3.9,55,2,10081,0)="""RTN"",""IBCEF74"",49,0)"
^XMB(3.9,55,2,10082,0)=" . S IBN=0,IB35591=$$CH35591^IBCEF72(IBINSCO,IBFRMTYP,IBCARE)"
^XMB(3.9,55,2,10083,0)="""RTN"",""IBCEF74"",50,0)"
^XMB(3.9,55,2,10084,0)=" . I $G(IBINSTP)=""C"",""34""[$G(IBPRTYP),""P""[$G(IBCURR),$G(IBFRMTYP)=2,$$MCRONBIL^IBEFUNC(IB399) S IB355OV=$$MCR24K^IBCEU3(IB399)_""^12"""
^XMB(3.9,55,2,10085,0)="""RTN"",""IBCEF74"",51,0)"
^XMB(3.9,55,2,10086,0)=" . I $G(IBINSTP)=""O"",""34""[$G(IBPRTYP),""ST""[$G(IBCURR),$G(IBFRMTYP)=2,$$MCRONBIL^IBEFUNC(IB399) S IB355OV=$$MCR24K^IBCEU3(IB399)_""^12"" ;Calculate MEDICARE (WNR) specific provider qualifier and ID for HCFA 1500 secondary claims"
^XMB(3.9,55,2,10087,0)="""RTN"",""IBCEF74"",52,0)"
^XMB(3.9,55,2,10088,0)=" . I $P(IB355OV,U,2) D"
^XMB(3.9,55,2,10089,0)="""RTN"",""IBCEF74"",53,0)"
^XMB(3.9,55,2,10090,0)=" .. I $$CHCKSEC^IBCEF73(IBFRMTYP,IBPRTYP,$G(IBINSTP),$P($G(^IBE(355.97,+$P(IB355OV,U,2),0)),U,3)) D"
^XMB(3.9,55,2,10091,0)="""RTN"",""IBCEF74"",54,0)"
^XMB(3.9,55,2,10092,0)=" ... S IBEXC=$P(IB355OV,U,2),IBN=IBN+1,IBRES(IBSORT,IBPRTYP,IBN)=""OVERRIDE^""_IBINSCO_U_$P($G(^IBE(355.97,+IBEXC,0)),U,3)_U_$P(IB355OV,U)_""^^^^^""_+IBEXC"
^XMB(3.9,55,2,10093,0)="""RTN"",""IBCEF74"",55,0)"
^XMB(3.9,55,2,10094,0)=" . I IB35591'="""",IBEXC'=$P(IB35591,U,3) S:$$CHCKSEC^IBCEF73(IBFRMTYP,IBPRTYP,$G(IBINSTP),$P(IB35591,""^"")) IBN=IBN+1,IBRES(IBSORT,IBPRTYP,IBN)=""DEFAULT^""_IBINSCO_""^""_IB35591_""^^"",$P(IBRES(IBSORT,IBPRTYP,IBN),U,9)=$P(IB35591,U,3)"
^XMB(3.9,55,2,10095,0)="""RTN"",""IBCEF74"",56,0)"
^XMB(3.9,55,2,10096,0)=" . I IBFRMTYP=2,$P($G(^DIC(36,IBINSCO,3)),U,11),$P(IBALLSSN,U,IBPRTYP)'="""",IBSSNIEN,$G(IBINSTP)=""C"" D  ; Force SSN as secondary id for HCFA 1500"
^XMB(3.9,55,2,10097,0)="""RTN"",""IBCEF74"",57,0)"
^XMB(3.9,55,2,10098,0)=" .. S IBN=IBN+1,IBRES(IBSORT,IBPRTYP,IBN)=""REQUIRED^""_IBINSCO_""^SY^""_$P(IBALLSSN,U,IBPRTYP),$P(IBRES(IBSORT,IBPRTYP,IBN),U,9)=IBSSNIEN"
^XMB(3.9,55,2,10099,0)="""RTN"",""IBCEF74"",58,0)"
^XMB(3.9,55,2,10100,0)=" . D SORT(IBSORT,IBPRTYP,IB399,.IBRETARR,.IBRES,IBN,IBEXC,IBPRNUM,IBLIMIT)"
^XMB(3.9,55,2,10101,0)="""RTN"",""IBCEF74"",59,0)"
^XMB(3.9,55,2,10102,0)=" . S IBRES(IBSORT,IBPRTYP)=IBPROV"
^XMB(3.9,55,2,10103,0)="""RTN"",""IBCEF74"",60,0)"
^XMB(3.9,55,2,10104,0)=" S IBRES(IBSORT)=$S(IBPRNUM=3:""T"",IBPRNUM=2:""S"",1:""P"")"
^XMB(3.9,55,2,10105,0)="""RTN"",""IBCEF74"",61,0)"
^XMB(3.9,55,2,10106,0)=" Q"
^XMB(3.9,55,2,10107,0)="""RTN"",""IBCEF74"",62,0)"
^XMB(3.9,55,2,10108,0)=" ;"
^XMB(3.9,55,2,10109,0)="""RTN"",""IBCEF74"",63,0)"
^XMB(3.9,55,2,10110,0)="SECIDCK(IBIFN,IBSEQ,IBTYP,IBIFN1) ; Function returns 1 if ID type ptr in"
^XMB(3.9,55,2,10111,0)="""RTN"",""IBCEF74"",64,0)"
^XMB(3.9,55,2,10112,0)=" ;  IBTYP is valid X12 code for the claim/prov function (IBPROVF)"
^XMB(3.9,55,2,10113,0)="""RTN"",""IBCEF74"",65,0)"
^XMB(3.9,55,2,10114,0)=" ;  as a sec id"
^XMB(3.9,55,2,10115,0)="""RTN"",""IBCEF74"",66,0)"
^XMB(3.9,55,2,10116,0)=" ; IBSEQ = COB seq being checked"
^XMB(3.9,55,2,10117,0)="""RTN"",""IBCEF74"",67,0)"
^XMB(3.9,55,2,10118,0)=" ; IBIFN1 = entry # in PRV multiple being checked"
^XMB(3.9,55,2,10119,0)="""RTN"",""IBCEF74"",68,0)"
^XMB(3.9,55,2,10120,0)=" ;  Called from input transform of fields .12-.14, subfile 399.0222"
^XMB(3.9,55,2,10121,0)="""RTN"",""IBCEF74"",69,0)"
^XMB(3.9,55,2,10122,0)=" N IBOK,IBFRM,IBCOBN,IBX12,IBPROVF"
^XMB(3.9,55,2,10123,0)="""RTN"",""IBCEF74"",70,0)"
^XMB(3.9,55,2,10124,0)=" S IBPROVF=+$G(^DGCR(399,IBIFN,""PRV"",IBIFN1,0))"
^XMB(3.9,55,2,10125,0)="""RTN"",""IBCEF74"",71,0)"
^XMB(3.9,55,2,10126,0)=" S IBFRM=$$FT^IBCEF(IBIFN),IBFRM=$S(IBFRM=3:1,1:2) ; Form type"
^XMB(3.9,55,2,10127,0)="""RTN"",""IBCEF74"",72,0)"
^XMB(3.9,55,2,10128,0)=" S IBCOBN=$$COBN^IBCEF(IBIFN) S:'IBCOBN IBCOBN=1 ; Current COB seq"
^XMB(3.9,55,2,10129,0)="""RTN"",""IBCEF74"",73,0)"
^XMB(3.9,55,2,10130,0)=" S IBX12=$P($G(^IBE(355.97,+IBTYP,0)),U,3) ; X12 code for prov id typ"
^XMB(3.9,55,2,10131,0)="""RTN"",""IBCEF74"",74,0)"
^XMB(3.9,55,2,10132,0)=" Q $$CHSEC^IBCEF73(IBFRM,IBPROVF,$S(IBSEQ=IBCOBN:""C"",1:""O""),IBX12)"
^XMB(3.9,55,2,10133,0)="""RTN"",""IBCEF74"",75,0)"
^XMB(3.9,55,2,10134,0)=" ;"
^XMB(3.9,55,2,10135,0)="""RTN"",""IBCEF74"",76,0)"
^XMB(3.9,55,2,10136,0)="DEFID(IBIFN,IBPRV) ;"
^XMB(3.9,55,2,10137,0)="""RTN"",""IBCEF74"",77,0)"
^XMB(3.9,55,2,10138,0)=" ; IBIFN = ien of bill"
^XMB(3.9,55,2,10139,0)="""RTN"",""IBCEF74"",78,0)"
^XMB(3.9,55,2,10140,0)=" ; IBPRV = ien of entry subfile 399.0222"
^XMB(3.9,55,2,10141,0)="""RTN"",""IBCEF74"",79,0)"
^XMB(3.9,55,2,10142,0)=" ;  Function returns default ids: prim id def^sec id def^tert id def"
^XMB(3.9,55,2,10143,0)="""RTN"",""IBCEF74"",80,0)"
^XMB(3.9,55,2,10144,0)=" ;  SSN cannot be the default ID"
^XMB(3.9,55,2,10145,0)="""RTN"",""IBCEF74"",81,0)"
^XMB(3.9,55,2,10146,0)=" N Z,Z1,ID,IBZ,IBINS,IBINS4,IBUB"
^XMB(3.9,55,2,10147,0)="""RTN"",""IBCEF74"",82,0)"
^XMB(3.9,55,2,10148,0)=" S IBZ="""""
^XMB(3.9,55,2,10149,0)="""RTN"",""IBCEF74"",83,0)"
^XMB(3.9,55,2,10150,0)=" S IBUB=($$FT^IBCEF(IBIFN)=3)"
^XMB(3.9,55,2,10151,0)="""RTN"",""IBCEF74"",84,0)"
^XMB(3.9,55,2,10152,0)=" D F^IBCEF(""N-ALL ATT/REND PROV SSN/EI"",""IBZ"","""",IBIFN)"
^XMB(3.9,55,2,10153,0)="""RTN"",""IBCEF74"",85,0)"
^XMB(3.9,55,2,10154,0)=" S Z=$G(^DGCR(399,IBIFN,""PRV"",IBPRV,0)),ID=$P(Z,U,5,7)"
^XMB(3.9,55,2,10155,0)="""RTN"",""IBCEF74"",86,0)"
^XMB(3.9,55,2,10156,0)=" F Z1=1:1:3 I $P(ID,U,Z1)="""" D"
^XMB(3.9,55,2,10157,0)="""RTN"",""IBCEF74"",87,0)"
^XMB(3.9,55,2,10158,0)=" . Q:'$G(^DGCR(399,IBIFN,""I""_Z1))  S IBINS=+^(""I""_Z1)"
^XMB(3.9,55,2,10159,0)="""RTN"",""IBCEF74"",88,0)"
^XMB(3.9,55,2,10160,0)=" . S $P(ID,U,Z1)=$$GETID^IBCEP2(IBIFN,2,$P(Z,U,2),Z1)"
^XMB(3.9,55,2,10161,0)="""RTN"",""IBCEF74"",89,0)"
^XMB(3.9,55,2,10162,0)=" . ; Set default if null - based on parameter for require print SSN"
^XMB(3.9,55,2,10163,0)="""RTN"",""IBCEF74"",90,0)"
^XMB(3.9,55,2,10164,0)=" . I $P(ID,U,Z1)="""" S $P(ID,U,Z1)=$S('$P($G(^DIC(36,IBINS,3)),U,11+IBUB):""VAD000"",1:$P(IBZ,U,+Z))"
^XMB(3.9,55,2,10165,0)="""RTN"",""IBCEF74"",91,0)"
^XMB(3.9,55,2,10166,0)=" Q ID"
^XMB(3.9,55,2,10167,0)="""RTN"",""IBCEF74"",92,0)"
^XMB(3.9,55,2,10168,0)=" ;"
^XMB(3.9,55,2,10169,0)="""RTN"",""IBCEF74"",93,0)"
^XMB(3.9,55,2,10170,0)="DISPID(IBXIEN) ; Display list of all prov and fac ids that will"
^XMB(3.9,55,2,10171,0)="""RTN"",""IBCEF74"",94,0)"
^XMB(3.9,55,2,10172,0)=" ; extract for this bill if transmitted electronically"
^XMB(3.9,55,2,10173,0)="""RTN"",""IBCEF74"",95,0)"
^XMB(3.9,55,2,10174,0)=" N IBID,IBID1,IBZ,IBCT,IBFRM,IBCOBN,IBATT,IBQUIT,IBTYP,DIR,IBIFN,X,Y,Z,Z0,Z1"
^XMB(3.9,55,2,10175,0)="""RTN"",""IBCEF74"",96,0)"
^XMB(3.9,55,2,10176,0)=" S IBIFN=IBXIEN"
^XMB(3.9,55,2,10177,0)="""RTN"",""IBCEF74"",97,0)"
^XMB(3.9,55,2,10178,0)=" S IBFRM=$$FT^IBCEF(IBIFN),IBCOBN=$$COBN^IBCEF(IBIFN),IBATT=$S(IBFRM=2:3,1:4)"
^XMB(3.9,55,2,10179,0)="""RTN"",""IBCEF74"",98,0)"
^XMB(3.9,55,2,10180,0)=" W @IOF"
^XMB(3.9,55,2,10181,0)="""RTN"",""IBCEF74"",99,0)"
^XMB(3.9,55,2,10182,0)=" W !,""If this bill is transmitted electronically, the following IDs will be sent:"""
^XMB(3.9,55,2,10183,0)="""RTN"",""IBCEF74"",100,0)"
^XMB(3.9,55,2,10184,0)=" ; Returns all prov sec ids to be transmitted in indicated segments"
^XMB(3.9,55,2,10185,0)="""RTN"",""IBCEF74"",101,0)"
^XMB(3.9,55,2,10186,0)=" S Z=+$G(^DGCR(399,IBIFN,""I1"")) I Z W !,""  Primary Ins Co: "",$$EXTERNAL^DILFD(399,101,"""",Z) I IBCOBN=1 W ?54,""<<<Current Ins"""
^XMB(3.9,55,2,10187,0)="""RTN"",""IBCEF74"",102,0)"
^XMB(3.9,55,2,10188,0)=" S Z=+$G(^DGCR(399,IBIFN,""I2"")) I Z W !,""Secondary Ins Co: "",$$EXTERNAL^DILFD(399,101,"""",Z) I IBCOBN=2 W ?54,""<<<Current Ins"""
^XMB(3.9,55,2,10189,0)="""RTN"",""IBCEF74"",103,0)"
^XMB(3.9,55,2,10190,0)=" S Z=+$G(^DGCR(399,IBIFN,""I3"")) I Z W !,"" Tertiary Ins Co: "",$$EXTERNAL^DILFD(399,101,"""",Z) I IBCOBN=3 W ?54,""<<<Current Ins"""
^XMB(3.9,55,2,10191,0)="""RTN"",""IBCEF74"",104,0)"
^XMB(3.9,55,2,10192,0)=" W !!,""Provider IDs: (VistA Records OP1,OP2,OP4,OP8,OP9,OPR2,OPR3,OPR4,OPR5,OPR8):"""
^XMB(3.9,55,2,10193,0)="""RTN"",""IBCEF74"",105,0)"
^XMB(3.9,55,2,10194,0)=" F Z=1:1:3 I $G(^DGCR(399,IBIFN,""I""_Z)) D PROVINF(IBIFN,Z,.IBID,"""",$S(IBCOBN=Z:""C"",1:""O""))"
^XMB(3.9,55,2,10195,0)="""RTN"",""IBCEF74"",106,0)"
^XMB(3.9,55,2,10196,0)=" S Z=0 F  S Z=$O(IBID(Z)) Q:'Z  S Z0=0 F  S Z0=$O(IBID(Z,Z0)) Q:'Z0  S IBID1(Z0,Z)="""",Z1=0 F  S Z1=$O(IBID(Z,Z0,Z1)) Q:'Z1  I $P(IBID(Z,Z0,Z1),U,9) S IBID1(Z0,Z,Z1)=IBID(Z,Z0,Z1)"
^XMB(3.9,55,2,10197,0)="""RTN"",""IBCEF74"",107,0)"
^XMB(3.9,55,2,10198,0)=" S Z=+$O(^DGCR(399,IBIFN,""PRV"",""B"",IBATT,0))"
^XMB(3.9,55,2,10199,0)="""RTN"",""IBCEF74"",108,0)"
^XMB(3.9,55,2,10200,0)=" I Z S Z=$P($G(^DGCR(399,IBIFN,""PRV"",Z,0)),U,2)"
^XMB(3.9,55,2,10201,0)="""RTN"",""IBCEF74"",109,0)"
^XMB(3.9,55,2,10202,0)=" W !,?5,""ATTENDING/RENDERING: "",$$EXTERNAL^DILFD(399.0222,.02,"""",Z)"
^XMB(3.9,55,2,10203,0)="""RTN"",""IBCEF74"",110,0)"
^XMB(3.9,55,2,10204,0)=" D F^IBCEF(""N-ALL ATT/REND PROV SSN/EI"",""IBZ"","""",IBIFN)"
^XMB(3.9,55,2,10205,0)="""RTN"",""IBCEF74"",111,0)"
^XMB(3.9,55,2,10206,0)=" W !,?8,""SSN: "",?40,$S($P(IBZ,U,IBATT)'="""":$P(IBZ,U,IBATT),1:""***MISSING***"")"
^XMB(3.9,55,2,10207,0)="""RTN"",""IBCEF74"",112,0)"
^XMB(3.9,55,2,10208,0)=" I $O(IBID1(IBATT,0)) W !,?8,""Secondary IDs"""
^XMB(3.9,55,2,10209,0)="""RTN"",""IBCEF74"",113,0)"
^XMB(3.9,55,2,10210,0)=" S IBQUIT=0"
^XMB(3.9,55,2,10211,0)="""RTN"",""IBCEF74"",114,0)"
^XMB(3.9,55,2,10212,0)=" ;"
^XMB(3.9,55,2,10213,0)="""RTN"",""IBCEF74"",115,0)"
^XMB(3.9,55,2,10214,0)=" ; Attending/Rendering (4/3) secondary IDs"
^XMB(3.9,55,2,10215,0)="""RTN"",""IBCEF74"",116,0)"
^XMB(3.9,55,2,10216,0)=" S Z0=0 F  S Z0=$O(IBID1(IBATT,Z0)) Q:'Z0!IBQUIT  K IBTYP S Z1=0 F  S Z1=$O(IBID1(IBATT,Z0,Z1)) Q:'Z1  D  Q:IBQUIT"
^XMB(3.9,55,2,10217,0)="""RTN"",""IBCEF74"",117,0)"
^XMB(3.9,55,2,10218,0)=" . Q:$D(IBTYP(+$P(IBID1(IBATT,Z0,Z1),U,9)))  ;1st of each type transmits"
^XMB(3.9,55,2,10219,0)="""RTN"",""IBCEF74"",118,0)"
^XMB(3.9,55,2,10220,0)=" . I ($Y+5)>IOSL S IBQUIT=$$NOMORE() Q:IBQUIT"
^XMB(3.9,55,2,10221,0)="""RTN"",""IBCEF74"",119,0)"
^XMB(3.9,55,2,10222,0)=" . S IBTYP(+$P(IBID1(IBATT,Z0,Z1),U,9))="""""
^XMB(3.9,55,2,10223,0)="""RTN"",""IBCEF74"",120,0)"
^XMB(3.9,55,2,10224,0)=" . W !,?8,""("",$E(""PST"",Z0),"") "",$$EXTERNAL^DILFD(36,4.01,"""",$P(IBID1(IBATT,Z0,Z1),U,9)),?40,$P(IBID1(IBATT,Z0,Z1),U,4)"
^XMB(3.9,55,2,10225,0)="""RTN"",""IBCEF74"",121,0)"
^XMB(3.9,55,2,10226,0)=" . Q"
^XMB(3.9,55,2,10227,0)="""RTN"",""IBCEF74"",122,0)"
^XMB(3.9,55,2,10228,0)=" I IBQUIT G DISPIDX"
^XMB(3.9,55,2,10229,0)="""RTN"",""IBCEF74"",123,0)"
^XMB(3.9,55,2,10230,0)=" ;"
^XMB(3.9,55,2,10231,0)="""RTN"",""IBCEF74"",124,0)"
^XMB(3.9,55,2,10232,0)=" ; Referring(1), Operating(2), Supervising(5), Other(9) secondary IDs"
^XMB(3.9,55,2,10233,0)="""RTN"",""IBCEF74"",125,0)"
^XMB(3.9,55,2,10234,0)=" S Z=0 F  S Z=$O(IBID1(Z)) Q:'Z  I Z<3!(Z>4) D  Q:IBQUIT"
^XMB(3.9,55,2,10235,0)="""RTN"",""IBCEF74"",126,0)"
^XMB(3.9,55,2,10236,0)=" . N Q"
^XMB(3.9,55,2,10237,0)="""RTN"",""IBCEF74"",127,0)"
^XMB(3.9,55,2,10238,0)=" . S Q=+$O(^DGCR(399,IBIFN,""PRV"",""B"",Z,0))"
^XMB(3.9,55,2,10239,0)="""RTN"",""IBCEF74"",128,0)"
^XMB(3.9,55,2,10240,0)=" . W !!,?5,$$EXTERNAL^DILFD(399.0222,.01,"""",Z),"": ""_$$EXTERNAL^DILFD(399.0222,.02,"""",$P($G(^DGCR(399,IBIFN,""PRV"",Q,0)),U,2))"
^XMB(3.9,55,2,10241,0)="""RTN"",""IBCEF74"",129,0)"
^XMB(3.9,55,2,10242,0)=" . S Z0=0 F  S Z0=$O(IBID1(Z,Z0)) Q:'Z0!IBQUIT  K IBTYP S Z1=0 F  S Z1=$O(IBID1(Z,Z0,Z1)) Q:'Z1!IBQUIT  D"
^XMB(3.9,55,2,10243,0)="""RTN"",""IBCEF74"",130,0)"
^XMB(3.9,55,2,10244,0)=" .. Q:$D(IBTYP(+$P(IBID1(Z,Z0,Z1),U,9)))  ; 1st of each type transmits"
^XMB(3.9,55,2,10245,0)="""RTN"",""IBCEF74"",131,0)"
^XMB(3.9,55,2,10246,0)=" .. I ($Y+5)>IOSL S IBQUIT=$$NOMORE() Q:IBQUIT"
^XMB(3.9,55,2,10247,0)="""RTN"",""IBCEF74"",132,0)"
^XMB(3.9,55,2,10248,0)=" .. S IBTYP(+$P(IBID1(Z,Z0,Z1),U,9))="""""
^XMB(3.9,55,2,10249,0)="""RTN"",""IBCEF74"",133,0)"
^XMB(3.9,55,2,10250,0)=" .. W !,?8,""("",$E(""PST"",Z0),"") "",$$EXTERNAL^DILFD(36,4.01,"""",$P(IBID1(Z,Z0,Z1),U,9)),?40,$P(IBID1(Z,Z0,Z1),U,4)"
^XMB(3.9,55,2,10251,0)="""RTN"",""IBCEF74"",134,0)"
^XMB(3.9,55,2,10252,0)=" .. Q"
^XMB(3.9,55,2,10253,0)="""RTN"",""IBCEF74"",135,0)"
^XMB(3.9,55,2,10254,0)=" . Q"
^XMB(3.9,55,2,10255,0)="""RTN"",""IBCEF74"",136,0)"
^XMB(3.9,55,2,10256,0)=" I IBQUIT G DISPIDX"
^XMB(3.9,55,2,10257,0)="""RTN"",""IBCEF74"",137,0)"
^XMB(3.9,55,2,10258,0)=" ;"
^XMB(3.9,55,2,10259,0)="""RTN"",""IBCEF74"",138,0)"
^XMB(3.9,55,2,10260,0)=" ; IB*2*320 - display additional IDs for ?ID"
^XMB(3.9,55,2,10261,0)="""RTN"",""IBCEF74"",139,0)"
^XMB(3.9,55,2,10262,0)=" D EN^IBCEF74A(IBIFN,.IBQUIT)"
^XMB(3.9,55,2,10263,0)="""RTN"",""IBCEF74"",140,0)"
^XMB(3.9,55,2,10264,0)=" ;"
^XMB(3.9,55,2,10265,0)="""RTN"",""IBCEF74"",141,0)"
^XMB(3.9,55,2,10266,0)="DISPIDX ;"
^XMB(3.9,55,2,10267,0)="""RTN"",""IBCEF74"",142,0)"
^XMB(3.9,55,2,10268,0)=" I '$G(IBQUIT) S DIR(0)=""EA"",DIR(""A"")=""Press RETURN to continue "" W ! D ^DIR K DIR"
^XMB(3.9,55,2,10269,0)="""RTN"",""IBCEF74"",143,0)"
^XMB(3.9,55,2,10270,0)=" Q"
^XMB(3.9,55,2,10271,0)="""RTN"",""IBCEF74"",144,0)"
^XMB(3.9,55,2,10272,0)=" ;"
^XMB(3.9,55,2,10273,0)="""RTN"",""IBCEF74"",145,0)"
^XMB(3.9,55,2,10274,0)="NOMORE() ;"
^XMB(3.9,55,2,10275,0)="""RTN"",""IBCEF74"",146,0)"
^XMB(3.9,55,2,10276,0)=" S DIR(0)=""EA"",DIR(""A"")=""Press RETURN for more IDs or '^' to exit: "" W ! D ^DIR"
^XMB(3.9,55,2,10277,0)="""RTN"",""IBCEF74"",147,0)"
^XMB(3.9,55,2,10278,0)=" W @IOF"
^XMB(3.9,55,2,10279,0)="""RTN"",""IBCEF74"",148,0)"
^XMB(3.9,55,2,10280,0)=" Q (Y'=1)"
^XMB(3.9,55,2,10281,0)="""RTN"",""IBCEF74"",149,0)"
^XMB(3.9,55,2,10282,0)=" ;"
^XMB(3.9,55,2,10283,0)="""RTN"",""IBCEF74"",150,0)"
^XMB(3.9,55,2,10284,0)="DEFSEC(IBIFN,IBARR) ; Returns array in IBARR for default prov sec ids for ien IBIFN"
^XMB(3.9,55,2,10285,0)="""RTN"",""IBCEF74"",151,0)"
^XMB(3.9,55,2,10286,0)=" ; IBARR if passed by ref is returned   IBARR(prov function,COBN)=def id"
^XMB(3.9,55,2,10287,0)="""RTN"",""IBCEF74"",152,0)"
^XMB(3.9,55,2,10288,0)=" N IBCAR,IBCOBN,IBPC,IBINS,IBARRX,Q,Z,Z0,ZINS,X"
^XMB(3.9,55,2,10289,0)="""RTN"",""IBCEF74"",153,0)"
^XMB(3.9,55,2,10290,0)=" K IBARR"
^XMB(3.9,55,2,10291,0)="""RTN"",""IBCEF74"",154,0)"
^XMB(3.9,55,2,10292,0)=" S ZINS="""",IBCOBN=$$COBN^IBCEF(IBIFN),IBPC=$S($$FT^IBCEF(IBIFN)=3:2,1:1)"
^XMB(3.9,55,2,10293,0)="""RTN"",""IBCEF74"",155,0)"
^XMB(3.9,55,2,10294,0)=" S IBCAR=$$INPAT^IBCEF(IBIFN,1),IBCAR=$S('IBCAR:2,1:1)"
^XMB(3.9,55,2,10295,0)="""RTN"",""IBCEF74"",156,0)"
^XMB(3.9,55,2,10296,0)=" F Z=1:1:3 S ZINS=ZINS_+$G(^DGCR(399,IBIFN,""I""_Z))_U"
^XMB(3.9,55,2,10297,0)="""RTN"",""IBCEF74"",157,0)"
^XMB(3.9,55,2,10298,0)=" F Z=1:1:3 I $P(ZINS,U,Z),'$P($G(^DIC(36,+$P(ZINS,U,Z),4)),U,IBPC) S $P(ZINS,U,Z)="""""
^XMB(3.9,55,2,10299,0)="""RTN"",""IBCEF74"",158,0)"
^XMB(3.9,55,2,10300,0)=" S Z=0 F  S Z=$O(^DGCR(399,IBIFN,""PRV"",Z)) Q:'Z  S Z0=$G(^(Z,0)) D"
^XMB(3.9,55,2,10301,0)="""RTN"",""IBCEF74"",159,0)"
^XMB(3.9,55,2,10302,0)=" . F Q=1:1:3 D"
^XMB(3.9,55,2,10303,0)="""RTN"",""IBCEF74"",160,0)"
^XMB(3.9,55,2,10304,0)=" .. I $P(Z0,U,Q+4)'="""" S IBARR(+Z0,Q)=$P(Z0,U,Q+4) Q  ; Override"
^XMB(3.9,55,2,10305,0)="""RTN"",""IBCEF74"",161,0)"
^XMB(3.9,55,2,10306,0)=" .. S IBINS=$P(ZINS,U,Q)"
^XMB(3.9,55,2,10307,0)="""RTN"",""IBCEF74"",162,0)"
^XMB(3.9,55,2,10308,0)=" .. Q:'IBINS"
^XMB(3.9,55,2,10309,0)="""RTN"",""IBCEF74"",163,0)"
^XMB(3.9,55,2,10310,0)=" .. S X=$$IDFIND^IBCEP2(IBIFN,"""",$P(Z0,U,2),Q,1)"
^XMB(3.9,55,2,10311,0)="""RTN"",""IBCEF74"",164,0)"
^XMB(3.9,55,2,10312,0)=" .. I X'="""" S IBARR(+Z0,Q)=X"
^XMB(3.9,55,2,10313,0)="""RTN"",""IBCEF74"",165,0)"
^XMB(3.9,55,2,10314,0)=" Q"
^XMB(3.9,55,2,10315,0)="""RTN"",""IBCEF74"",166,0)"
^XMB(3.9,55,2,10316,0)=" ;"
^XMB(3.9,55,2,10317,0)="""RTN"",""IBCEF74A"")"
^XMB(3.9,55,2,10318,0)="0^74^B17345464"
^XMB(3.9,55,2,10319,0)="""RTN"",""IBCEF74A"",1,0)"
^XMB(3.9,55,2,10320,0)="IBCEF74A ;ALB/ESG - Provider ID maint ?ID continuation ;7 Mar 2006"
^XMB(3.9,55,2,10321,0)="""RTN"",""IBCEF74A"",2,0)"
^XMB(3.9,55,2,10322,0)=" ;;2.0;INTEGRATED BILLING;**320**;21-MAR-94"
^XMB(3.9,55,2,10323,0)="""RTN"",""IBCEF74A"",3,0)"
^XMB(3.9,55,2,10324,0)=" ;; Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,10325,0)="""RTN"",""IBCEF74A"",4,0)"
^XMB(3.9,55,2,10326,0)=" ;"
^XMB(3.9,55,2,10327,0)="""RTN"",""IBCEF74A"",5,0)"
^XMB(3.9,55,2,10328,0)=" Q"
^XMB(3.9,55,2,10329,0)="""RTN"",""IBCEF74A"",6,0)"
^XMB(3.9,55,2,10330,0)=" ;"
^XMB(3.9,55,2,10331,0)="""RTN"",""IBCEF74A"",7,0)"
^XMB(3.9,55,2,10332,0)="EN(IBIFN,IBQUIT) ; Display billing provider and service provider IDs as part"
^XMB(3.9,55,2,10333,0)="""RTN"",""IBCEF74A"",8,0)"
^XMB(3.9,55,2,10334,0)=" ; of the ?ID display/help in the billing screens."
^XMB(3.9,55,2,10335,0)="""RTN"",""IBCEF74A"",9,0)"
^XMB(3.9,55,2,10336,0)=" ; Called from DISPID^IBCEF74."
^XMB(3.9,55,2,10337,0)="""RTN"",""IBCEF74A"",10,0)"
^XMB(3.9,55,2,10338,0)=" NEW IBID,IBX,Z,ZI,ZN,SEQ,PSIN,DATA,QUALNM,IDNUM,FACNAME,IBZ,IBXIEN,IBSSFI"
^XMB(3.9,55,2,10339,0)="""RTN"",""IBCEF74A"",11,0)"
^XMB(3.9,55,2,10340,0)=" ;"
^XMB(3.9,55,2,10341,0)="""RTN"",""IBCEF74A"",12,0)"
^XMB(3.9,55,2,10342,0)=" D ALLIDS^IBCEF75(IBIFN,.IBID)"
^XMB(3.9,55,2,10343,0)="""RTN"",""IBCEF74A"",13,0)"
^XMB(3.9,55,2,10344,0)=" ;"
^XMB(3.9,55,2,10345,0)="""RTN"",""IBCEF74A"",14,0)"
^XMB(3.9,55,2,10346,0)=" ; Re-sort array by insurance sequence (P/S/T)"
^XMB(3.9,55,2,10347,0)="""RTN"",""IBCEF74A"",15,0)"
^XMB(3.9,55,2,10348,0)=" K IBX"
^XMB(3.9,55,2,10349,0)="""RTN"",""IBCEF74A"",16,0)"
^XMB(3.9,55,2,10350,0)=" F Z=""BILLING PRV"",""LAB/FAC"" F ZI=""C"",""O"" S ZN=0 F  S ZN=$O(IBID(Z,IBIFN,ZI,ZN)) Q:'ZN  D"
^XMB(3.9,55,2,10351,0)="""RTN"",""IBCEF74A"",17,0)"
^XMB(3.9,55,2,10352,0)=" . S SEQ=$P($G(IBID(Z,IBIFN,ZI,ZN)),U,1) Q:SEQ="""""
^XMB(3.9,55,2,10353,0)="""RTN"",""IBCEF74A"",18,0)"
^XMB(3.9,55,2,10354,0)=" . S IBX(Z,SEQ,ZI,ZN)="""""
^XMB(3.9,55,2,10355,0)="""RTN"",""IBCEF74A"",19,0)"
^XMB(3.9,55,2,10356,0)=" . Q"
^XMB(3.9,55,2,10357,0)="""RTN"",""IBCEF74A"",20,0)"
^XMB(3.9,55,2,10358,0)=" ;"
^XMB(3.9,55,2,10359,0)="""RTN"",""IBCEF74A"",21,0)"
^XMB(3.9,55,2,10360,0)=" ; Display billing provider secondary ID's (current ins only)"
^XMB(3.9,55,2,10361,0)="""RTN"",""IBCEF74A"",22,0)"
^XMB(3.9,55,2,10362,0)=" I ($Y+5)>IOSL S IBQUIT=$$NOMORE^IBCEF74() I IBQUIT G EX"
^XMB(3.9,55,2,10363,0)="""RTN"",""IBCEF74A"",23,0)"
^XMB(3.9,55,2,10364,0)=" S Z=""BILLING PRV"""
^XMB(3.9,55,2,10365,0)="""RTN"",""IBCEF74A"",24,0)"
^XMB(3.9,55,2,10366,0)=" I $D(IBX(Z)) W !!,""Billing Provider Secondary IDs (VistA Record CI1A):"""
^XMB(3.9,55,2,10367,0)="""RTN"",""IBCEF74A"",25,0)"
^XMB(3.9,55,2,10368,0)=" D SECID(Z,.IBQUIT)"
^XMB(3.9,55,2,10369,0)="""RTN"",""IBCEF74A"",26,0)"
^XMB(3.9,55,2,10370,0)=" I IBQUIT G EX"
^XMB(3.9,55,2,10371,0)="""RTN"",""IBCEF74A"",27,0)"
^XMB(3.9,55,2,10372,0)=" ;"
^XMB(3.9,55,2,10373,0)="""RTN"",""IBCEF74A"",28,0)"
^XMB(3.9,55,2,10374,0)=" ; Now display the lab or facility primary and secondary IDs"
^XMB(3.9,55,2,10375,0)="""RTN"",""IBCEF74A"",29,0)"
^XMB(3.9,55,2,10376,0)=" ; This is the service facility information"
^XMB(3.9,55,2,10377,0)="""RTN"",""IBCEF74A"",30,0)"
^XMB(3.9,55,2,10378,0)=" ;"
^XMB(3.9,55,2,10379,0)="""RTN"",""IBCEF74A"",31,0)"
^XMB(3.9,55,2,10380,0)=" ; Facility name, same code as found in SUB-2"
^XMB(3.9,55,2,10381,0)="""RTN"",""IBCEF74A"",32,0)"
^XMB(3.9,55,2,10382,0)=" I ($Y+5)>IOSL S IBQUIT=$$NOMORE^IBCEF74() I IBQUIT G EX"
^XMB(3.9,55,2,10383,0)="""RTN"",""IBCEF74A"",33,0)"
^XMB(3.9,55,2,10384,0)=" W !!,""Service Facility Name and ID Information"""
^XMB(3.9,55,2,10385,0)="""RTN"",""IBCEF74A"",34,0)"
^XMB(3.9,55,2,10386,0)=" S IBXIEN=IBIFN"
^XMB(3.9,55,2,10387,0)="""RTN"",""IBCEF74A"",35,0)"
^XMB(3.9,55,2,10388,0)=" D F^IBCEF(""N-RENDERING INSTITUTION"",""IBZ"",,IBIFN)"
^XMB(3.9,55,2,10389,0)="""RTN"",""IBCEF74A"",36,0)"
^XMB(3.9,55,2,10390,0)=" S FACNAME=$$GETFAC^IBCEP8(+IBZ,+$P(IBZ,U,2),0,""SUB"")"
^XMB(3.9,55,2,10391,0)="""RTN"",""IBCEF74A"",37,0)"
^XMB(3.9,55,2,10392,0)=" S Z=""LAB/FAC"""
^XMB(3.9,55,2,10393,0)="""RTN"",""IBCEF74A"",38,0)"
^XMB(3.9,55,2,10394,0)=" ;"
^XMB(3.9,55,2,10395,0)="""RTN"",""IBCEF74A"",39,0)"
^XMB(3.9,55,2,10396,0)=" ; determine if flag to suppress lab/fac data is set"
^XMB(3.9,55,2,10397,0)="""RTN"",""IBCEF74A"",40,0)"
^XMB(3.9,55,2,10398,0)=" D VAMCFD^IBCEF75(IBIFN,.IBSSFI)"
^XMB(3.9,55,2,10399,0)="""RTN"",""IBCEF74A"",41,0)"
^XMB(3.9,55,2,10400,0)=" I $D(IBSSFI),'$G(IBSSFI(""C"",1)) D  I IBQUIT G EX"
^XMB(3.9,55,2,10401,0)="""RTN"",""IBCEF74A"",42,0)"
^XMB(3.9,55,2,10402,0)=" . I ($Y+5)>IOSL S IBQUIT=$$NOMORE^IBCEF74() Q:IBQUIT"
^XMB(3.9,55,2,10403,0)="""RTN"",""IBCEF74A"",43,0)"
^XMB(3.9,55,2,10404,0)=" . W !!,""Note:  Service Facility Data not sent for Current Insurance"""
^XMB(3.9,55,2,10405,0)="""RTN"",""IBCEF74A"",44,0)"
^XMB(3.9,55,2,10406,0)=" . W !,""       'Send VA Lab/Facility IDs or Facility Data for VAMC?' is set to NO"",!"
^XMB(3.9,55,2,10407,0)="""RTN"",""IBCEF74A"",45,0)"
^XMB(3.9,55,2,10408,0)=" . Q"
^XMB(3.9,55,2,10409,0)="""RTN"",""IBCEF74A"",46,0)"
^XMB(3.9,55,2,10410,0)=" ;"
^XMB(3.9,55,2,10411,0)="""RTN"",""IBCEF74A"",47,0)"
^XMB(3.9,55,2,10412,0)=" ; facility name"
^XMB(3.9,55,2,10413,0)="""RTN"",""IBCEF74A"",48,0)"
^XMB(3.9,55,2,10414,0)=" I ($Y+5)>IOSL S IBQUIT=$$NOMORE^IBCEF74() I IBQUIT G EX"
^XMB(3.9,55,2,10415,0)="""RTN"",""IBCEF74A"",49,0)"
^XMB(3.9,55,2,10416,0)=" I FACNAME="""" S FACNAME=""n/a"""
^XMB(3.9,55,2,10417,0)="""RTN"",""IBCEF74A"",50,0)"
^XMB(3.9,55,2,10418,0)=" W !,""Facility:  "",FACNAME"
^XMB(3.9,55,2,10419,0)="""RTN"",""IBCEF74A"",51,0)"
^XMB(3.9,55,2,10420,0)=" ;"
^XMB(3.9,55,2,10421,0)="""RTN"",""IBCEF74A"",52,0)"
^XMB(3.9,55,2,10422,0)=" ; primary ID"
^XMB(3.9,55,2,10423,0)="""RTN"",""IBCEF74A"",53,0)"
^XMB(3.9,55,2,10424,0)=" S DATA=$G(IBID(Z,IBIFN,""C"",1,0))   ; lab/facility current ins primary"
^XMB(3.9,55,2,10425,0)="""RTN"",""IBCEF74A"",54,0)"
^XMB(3.9,55,2,10426,0)=" S QUALNM=$$QUAL($P(DATA,U,1),$$FT^IBCEF(IBIFN))"
^XMB(3.9,55,2,10427,0)="""RTN"",""IBCEF74A"",55,0)"
^XMB(3.9,55,2,10428,0)=" S IDNUM=$P(DATA,U,2)"
^XMB(3.9,55,2,10429,0)="""RTN"",""IBCEF74A"",56,0)"
^XMB(3.9,55,2,10430,0)=" I ($Y+5)>IOSL S IBQUIT=$$NOMORE^IBCEF74() I IBQUIT G EX"
^XMB(3.9,55,2,10431,0)="""RTN"",""IBCEF74A"",57,0)"
^XMB(3.9,55,2,10432,0)=" W !?5,""Lab or Facility Primary ID (VistA Record SUB):"""
^XMB(3.9,55,2,10433,0)="""RTN"",""IBCEF74A"",58,0)"
^XMB(3.9,55,2,10434,0)=" I DATA'="""" W !?8,""("",$P($G(IBID(Z,IBIFN,""C"",1)),U,1),"") "",QUALNM,?40,IDNUM"
^XMB(3.9,55,2,10435,0)="""RTN"",""IBCEF74A"",59,0)"
^XMB(3.9,55,2,10436,0)=" I DATA="""" W !?8,""(-) None Found"""
^XMB(3.9,55,2,10437,0)="""RTN"",""IBCEF74A"",60,0)"
^XMB(3.9,55,2,10438,0)=" ;"
^XMB(3.9,55,2,10439,0)="""RTN"",""IBCEF74A"",61,0)"
^XMB(3.9,55,2,10440,0)=" ; secondary IDs"
^XMB(3.9,55,2,10441,0)="""RTN"",""IBCEF74A"",62,0)"
^XMB(3.9,55,2,10442,0)=" I ($Y+5)>IOSL S IBQUIT=$$NOMORE^IBCEF74() I IBQUIT G EX"
^XMB(3.9,55,2,10443,0)="""RTN"",""IBCEF74A"",63,0)"
^XMB(3.9,55,2,10444,0)=" W !?5,""Lab or Facility Secondary IDs (VistA Records SUB1,SUB2,OP3,OP6,OP7):"""
^XMB(3.9,55,2,10445,0)="""RTN"",""IBCEF74A"",64,0)"
^XMB(3.9,55,2,10446,0)=" D SECID(Z,.IBQUIT)"
^XMB(3.9,55,2,10447,0)="""RTN"",""IBCEF74A"",65,0)"
^XMB(3.9,55,2,10448,0)=" I IBQUIT G EX"
^XMB(3.9,55,2,10449,0)="""RTN"",""IBCEF74A"",66,0)"
^XMB(3.9,55,2,10450,0)=" ;"
^XMB(3.9,55,2,10451,0)="""RTN"",""IBCEF74A"",67,0)"
^XMB(3.9,55,2,10452,0)="EX ;"
^XMB(3.9,55,2,10453,0)="""RTN"",""IBCEF74A"",68,0)"
^XMB(3.9,55,2,10454,0)=" Q"
^XMB(3.9,55,2,10455,0)="""RTN"",""IBCEF74A"",69,0)"
^XMB(3.9,55,2,10456,0)=" ;"
^XMB(3.9,55,2,10457,0)="""RTN"",""IBCEF74A"",70,0)"
^XMB(3.9,55,2,10458,0)="QUAL(Z,FORMTYPE) ; turn the qualifier code into a qualifier description"
^XMB(3.9,55,2,10459,0)="""RTN"",""IBCEF74A"",71,0)"
^XMB(3.9,55,2,10460,0)=" NEW QUAL,IEN"
^XMB(3.9,55,2,10461,0)="""RTN"",""IBCEF74A"",72,0)"
^XMB(3.9,55,2,10462,0)=" S QUAL="""""
^XMB(3.9,55,2,10463,0)="""RTN"",""IBCEF74A"",73,0)"
^XMB(3.9,55,2,10464,0)=" I $G(Z)="""" G QUALX"
^XMB(3.9,55,2,10465,0)="""RTN"",""IBCEF74A"",74,0)"
^XMB(3.9,55,2,10466,0)=" I Z=""1C"" D  G QUALX   ; qualifier for Medicare Part ?"
^XMB(3.9,55,2,10467,0)="""RTN"",""IBCEF74A"",75,0)"
^XMB(3.9,55,2,10468,0)=" . I $G(FORMTYPE)=2 S QUAL=""MEDICARE PART B""   ; hcfa"
^XMB(3.9,55,2,10469,0)="""RTN"",""IBCEF74A"",76,0)"
^XMB(3.9,55,2,10470,0)=" . I $G(FORMTYPE)=3 S QUAL=""MEDICARE PART A""   ; ub"
^XMB(3.9,55,2,10471,0)="""RTN"",""IBCEF74A"",77,0)"
^XMB(3.9,55,2,10472,0)=" . Q"
^XMB(3.9,55,2,10473,0)="""RTN"",""IBCEF74A"",78,0)"
^XMB(3.9,55,2,10474,0)=" I Z=34 S Z=""SY""       ; qualifier for SSN"
^XMB(3.9,55,2,10475,0)="""RTN"",""IBCEF74A"",79,0)"
^XMB(3.9,55,2,10476,0)=" S IEN=+$O(^IBE(355.97,""C"",Z,"""")) I 'IEN G QUALX"
^XMB(3.9,55,2,10477,0)="""RTN"",""IBCEF74A"",80,0)"
^XMB(3.9,55,2,10478,0)=" S QUAL=$P($G(^IBE(355.97,IEN,0)),U,1)"
^XMB(3.9,55,2,10479,0)="""RTN"",""IBCEF74A"",81,0)"
^XMB(3.9,55,2,10480,0)="QUALX ;"
^XMB(3.9,55,2,10481,0)="""RTN"",""IBCEF74A"",82,0)"
^XMB(3.9,55,2,10482,0)=" Q QUAL"
^XMB(3.9,55,2,10483,0)="""RTN"",""IBCEF74A"",83,0)"
^XMB(3.9,55,2,10484,0)=" ;"
^XMB(3.9,55,2,10485,0)="""RTN"",""IBCEF74A"",84,0)"
^XMB(3.9,55,2,10486,0)="SECID(Z,IBQUIT) ; Display secondary ID and qualifier information"
^XMB(3.9,55,2,10487,0)="""RTN"",""IBCEF74A"",85,0)"
^XMB(3.9,55,2,10488,0)=" ; Z is the type of IDs passed in; either BILLING PRV or LAB/FAC"
^XMB(3.9,55,2,10489,0)="""RTN"",""IBCEF74A"",86,0)"
^XMB(3.9,55,2,10490,0)=" ; IBQUIT is returned if passed by reference"
^XMB(3.9,55,2,10491,0)="""RTN"",""IBCEF74A"",87,0)"
^XMB(3.9,55,2,10492,0)=" NEW SEQ,ZI,ZN,PSIN,DATA,QUALNM,IDNUM,NODATA"
^XMB(3.9,55,2,10493,0)="""RTN"",""IBCEF74A"",88,0)"
^XMB(3.9,55,2,10494,0)=" S IBQUIT=0,NODATA=1"
^XMB(3.9,55,2,10495,0)="""RTN"",""IBCEF74A"",89,0)"
^XMB(3.9,55,2,10496,0)=" F SEQ=""P"",""S"",""T"" D  Q:IBQUIT"
^XMB(3.9,55,2,10497,0)="""RTN"",""IBCEF74A"",90,0)"
^XMB(3.9,55,2,10498,0)=" . ;"
^XMB(3.9,55,2,10499,0)="""RTN"",""IBCEF74A"",91,0)"
^XMB(3.9,55,2,10500,0)=" . ; current ins only for billing provider secondary IDs"
^XMB(3.9,55,2,10501,0)="""RTN"",""IBCEF74A"",92,0)"
^XMB(3.9,55,2,10502,0)=" . I Z=""BILLING PRV"",SEQ'=$$COB^IBCEF(IBIFN) Q"
^XMB(3.9,55,2,10503,0)="""RTN"",""IBCEF74A"",93,0)"
^XMB(3.9,55,2,10504,0)=" . S ZI="""""
^XMB(3.9,55,2,10505,0)="""RTN"",""IBCEF74A"",94,0)"
^XMB(3.9,55,2,10506,0)=" . F  S ZI=$O(IBX(Z,SEQ,ZI)) Q:ZI=""""  D  Q:IBQUIT"
^XMB(3.9,55,2,10507,0)="""RTN"",""IBCEF74A"",95,0)"
^XMB(3.9,55,2,10508,0)=" .. S ZN=0"
^XMB(3.9,55,2,10509,0)="""RTN"",""IBCEF74A"",96,0)"
^XMB(3.9,55,2,10510,0)=" .. F  S ZN=$O(IBX(Z,SEQ,ZI,ZN)) Q:'ZN  D  Q:IBQUIT"
^XMB(3.9,55,2,10511,0)="""RTN"",""IBCEF74A"",97,0)"
^XMB(3.9,55,2,10512,0)=" ... S PSIN=0   ; start at 0 to skip primary IDs"
^XMB(3.9,55,2,10513,0)="""RTN"",""IBCEF74A"",98,0)"
^XMB(3.9,55,2,10514,0)=" ... F  S PSIN=$O(IBID(Z,IBIFN,ZI,ZN,PSIN)) Q:PSIN=""""  D  Q:IBQUIT"
^XMB(3.9,55,2,10515,0)="""RTN"",""IBCEF74A"",99,0)"
^XMB(3.9,55,2,10516,0)=" .... S DATA=$G(IBID(Z,IBIFN,ZI,ZN,PSIN))"
^XMB(3.9,55,2,10517,0)="""RTN"",""IBCEF74A"",100,0)"
^XMB(3.9,55,2,10518,0)=" .... S QUALNM=$$QUAL($P(DATA,U,1),$$FT^IBCEF(IBIFN))"
^XMB(3.9,55,2,10519,0)="""RTN"",""IBCEF74A"",101,0)"
^XMB(3.9,55,2,10520,0)=" .... S IDNUM=$P(DATA,U,2)"
^XMB(3.9,55,2,10521,0)="""RTN"",""IBCEF74A"",102,0)"
^XMB(3.9,55,2,10522,0)=" .... I ($Y+5)>IOSL S IBQUIT=$$NOMORE^IBCEF74() Q:IBQUIT"
^XMB(3.9,55,2,10523,0)="""RTN"",""IBCEF74A"",103,0)"
^XMB(3.9,55,2,10524,0)=" .... S NODATA=0"
^XMB(3.9,55,2,10525,0)="""RTN"",""IBCEF74A"",104,0)"
^XMB(3.9,55,2,10526,0)=" .... W !?8,""("",SEQ,"") "",QUALNM,?40,IDNUM"
^XMB(3.9,55,2,10527,0)="""RTN"",""IBCEF74A"",105,0)"
^XMB(3.9,55,2,10528,0)=" .... I Z=""LAB/FAC"",$D(^DGCR(399,IBIFN,""I2"")),SEQ=$$COB^IBCEF(IBIFN) W ?54,""<<<Current Ins"""
^XMB(3.9,55,2,10529,0)="""RTN"",""IBCEF74A"",106,0)"
^XMB(3.9,55,2,10530,0)=" .... I Z=""BILLING PRV"",PSIN=1 W ?54,""<<<System Generated ID"""
^XMB(3.9,55,2,10531,0)="""RTN"",""IBCEF74A"",107,0)"
^XMB(3.9,55,2,10532,0)=" .... Q"
^XMB(3.9,55,2,10533,0)="""RTN"",""IBCEF74A"",108,0)"
^XMB(3.9,55,2,10534,0)=" ... Q"
^XMB(3.9,55,2,10535,0)="""RTN"",""IBCEF74A"",109,0)"
^XMB(3.9,55,2,10536,0)=" .. Q"
^XMB(3.9,55,2,10537,0)="""RTN"",""IBCEF74A"",110,0)"
^XMB(3.9,55,2,10538,0)=" . Q"
^XMB(3.9,55,2,10539,0)="""RTN"",""IBCEF74A"",111,0)"
^XMB(3.9,55,2,10540,0)=" I NODATA,'IBQUIT W !?8,""(-) None Found"""
^XMB(3.9,55,2,10541,0)="""RTN"",""IBCEF74A"",112,0)"
^XMB(3.9,55,2,10542,0)="SECIDX ;"
^XMB(3.9,55,2,10543,0)="""RTN"",""IBCEF74A"",113,0)"
^XMB(3.9,55,2,10544,0)=" Q"
^XMB(3.9,55,2,10545,0)="""RTN"",""IBCEF74A"",114,0)"
^XMB(3.9,55,2,10546,0)=" ;"
^XMB(3.9,55,2,10547,0)="""RTN"",""IBCEF75"")"
^XMB(3.9,55,2,10548,0)="0^66^B30617202"
^XMB(3.9,55,2,10549,0)="""RTN"",""IBCEF75"",1,0)"
^XMB(3.9,55,2,10550,0)="IBCEF75 ;ALB/WCJ - Provider ID functions ;13 Feb 2006"
^XMB(3.9,55,2,10551,0)="""RTN"",""IBCEF75"",2,0)"
^XMB(3.9,55,2,10552,0)=" ;;2.0;INTEGRATED BILLING;**320**;21-MAR-94"
^XMB(3.9,55,2,10553,0)="""RTN"",""IBCEF75"",3,0)"
^XMB(3.9,55,2,10554,0)=" ;; Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,10555,0)="""RTN"",""IBCEF75"",4,0)"
^XMB(3.9,55,2,10556,0)=" ;"
^XMB(3.9,55,2,10557,0)="""RTN"",""IBCEF75"",5,0)"
^XMB(3.9,55,2,10558,0)=" G AWAY"
^XMB(3.9,55,2,10559,0)="""RTN"",""IBCEF75"",6,0)"
^XMB(3.9,55,2,10560,0)="AWAY Q"
^XMB(3.9,55,2,10561,0)="""RTN"",""IBCEF75"",7,0)"
^XMB(3.9,55,2,10562,0)=" ;"
^XMB(3.9,55,2,10563,0)="""RTN"",""IBCEF75"",8,0)"
^XMB(3.9,55,2,10564,0)="ALLIDS(IBIFN,IBXSAVE,IBSTRIP,SEG) ; Return all of the Provider IDS "
^XMB(3.9,55,2,10565,0)="""RTN"",""IBCEF75"",9,0)"
^XMB(3.9,55,2,10566,0)=" I '$D(IBSTRIP) S IBSTRIP=0"
^XMB(3.9,55,2,10567,0)="""RTN"",""IBCEF75"",10,0)"
^XMB(3.9,55,2,10568,0)=" I '$D(SEG) S SEG="""""
^XMB(3.9,55,2,10569,0)="""RTN"",""IBCEF75"",11,0)"
^XMB(3.9,55,2,10570,0)=" N IBXIEN,ARINFO,ARID,ARQ,IBFRMTYP,ARIEN,ARINS,Z0,DAT,I,SORT1,SORT2,SORT3,COB,IBCCOB"
^XMB(3.9,55,2,10571,0)="""RTN"",""IBCEF75"",12,0)"
^XMB(3.9,55,2,10572,0)=" ;"
^XMB(3.9,55,2,10573,0)="""RTN"",""IBCEF75"",13,0)"
^XMB(3.9,55,2,10574,0)=" S IBXIEN=IBIFN"
^XMB(3.9,55,2,10575,0)="""RTN"",""IBCEF75"",14,0)"
^XMB(3.9,55,2,10576,0)=" D ALLPROV^IBCEF7    ; Get the Person ID's (Returns IBXSAVE)"
^XMB(3.9,55,2,10577,0)="""RTN"",""IBCEF75"",15,0)"
^XMB(3.9,55,2,10578,0)=" S DAT=$$PROVID^IBCEF73(IBIFN)"
^XMB(3.9,55,2,10579,0)="""RTN"",""IBCEF75"",16,0)"
^XMB(3.9,55,2,10580,0)=" S DAT(""QUAL"")=IBXSAVE(""ID"")  ; this value was also passed back by above function"
^XMB(3.9,55,2,10581,0)="""RTN"",""IBCEF75"",17,0)"
^XMB(3.9,55,2,10582,0)=" S SORT1="""" F  S SORT1=$O(IBXSAVE(""PROVINF"",IBIFN,SORT1)) Q:SORT1=""""  D"
^XMB(3.9,55,2,10583,0)="""RTN"",""IBCEF75"",18,0)"
^XMB(3.9,55,2,10584,0)=" . S SORT2=0 F  S SORT2=$O(IBXSAVE(""PROVINF"",IBIFN,SORT1,SORT2)) Q:SORT2=""""  D"
^XMB(3.9,55,2,10585,0)="""RTN"",""IBCEF75"",19,0)"
^XMB(3.9,55,2,10586,0)=" .. S SORT3=0 F  S SORT3=$O(IBXSAVE(""PROVINF"",IBIFN,SORT1,SORT2,SORT3))  Q:SORT3=""""  D"
^XMB(3.9,55,2,10587,0)="""RTN"",""IBCEF75"",20,0)"
^XMB(3.9,55,2,10588,0)=" ... S IBXSAVE(""PROVINF"",IBIFN,SORT1,SORT2,SORT3,0)=""PRIMARY""_U_U_$$STRIP^IBCEF76($P(DAT(""QUAL""),U,SORT3)_U_$P(DAT,U,SORT3),1,U,IBSTRIP)"
^XMB(3.9,55,2,10589,0)="""RTN"",""IBCEF75"",21,0)"
^XMB(3.9,55,2,10590,0)=" ... F I=1:1 Q:'$D(IBXSAVE(""PROVINF"",IBIFN,SORT1,SORT2,SORT3,I))  D"
^XMB(3.9,55,2,10591,0)="""RTN"",""IBCEF75"",22,0)"
^XMB(3.9,55,2,10592,0)=" .... S $P(IBXSAVE(""PROVINF"",IBIFN,SORT1,SORT2,SORT3,I),U,3,4)=$$STRIP^IBCEF76($P(IBXSAVE(""PROVINF"",IBIFN,SORT1,SORT2,SORT3,I),U,3,4),1,U,IBSTRIP)"
^XMB(3.9,55,2,10593,0)="""RTN"",""IBCEF75"",23,0)"
^XMB(3.9,55,2,10594,0)=" ;"
^XMB(3.9,55,2,10595,0)="""RTN"",""IBCEF75"",24,0)"
^XMB(3.9,55,2,10596,0)=" D LFIDS^IBCEF76(IBIFN,.IBXSAVE,IBSTRIP,SEG)   ; Get the Lab/Facility IDs"
^XMB(3.9,55,2,10597,0)="""RTN"",""IBCEF75"",25,0)"
^XMB(3.9,55,2,10598,0)=" ;"
^XMB(3.9,55,2,10599,0)="""RTN"",""IBCEF75"",26,0)"
^XMB(3.9,55,2,10600,0)=" S IBFRMTYP=$$FT^IBCEF(IBIFN)"
^XMB(3.9,55,2,10601,0)="""RTN"",""IBCEF75"",27,0)"
^XMB(3.9,55,2,10602,0)=" S ARIEN=$S(IBFRMTYP=2:3,1:4)"
^XMB(3.9,55,2,10603,0)="""RTN"",""IBCEF75"",28,0)"
^XMB(3.9,55,2,10604,0)=" S IBCCOB=$$COBN^IBCEF(IBIFN)  ; Current Insurance"
^XMB(3.9,55,2,10605,0)="""RTN"",""IBCEF75"",29,0)"
^XMB(3.9,55,2,10606,0)=" F COB=1:1:3 D"
^XMB(3.9,55,2,10607,0)="""RTN"",""IBCEF75"",30,0)"
^XMB(3.9,55,2,10608,0)=" . S SORT1=$S(COB=IBCCOB:""C"",1:""O"")"
^XMB(3.9,55,2,10609,0)="""RTN"",""IBCEF75"",31,0)"
^XMB(3.9,55,2,10610,0)=" . S SORT2=$S(SORT1=""C"":1,COB=1:1,COB=2&(IBCCOB=1):1,1:2)"
^XMB(3.9,55,2,10611,0)="""RTN"",""IBCEF75"",32,0)"
^XMB(3.9,55,2,10612,0)=" . S ARINFO=$G(IBXSAVE(""PROVINF"",IBIFN,SORT1,SORT2,ARIEN,1))"
^XMB(3.9,55,2,10613,0)="""RTN"",""IBCEF75"",33,0)"
^XMB(3.9,55,2,10614,0)=" . ;"
^XMB(3.9,55,2,10615,0)="""RTN"",""IBCEF75"",34,0)"
^XMB(3.9,55,2,10616,0)=" . D BPIDS(IBIFN,.IBXSAVE,SORT1,SORT2,COB,IBSTRIP,SEG)"
^XMB(3.9,55,2,10617,0)="""RTN"",""IBCEF75"",35,0)"
^XMB(3.9,55,2,10618,0)=" Q"
^XMB(3.9,55,2,10619,0)="""RTN"",""IBCEF75"",36,0)"
^XMB(3.9,55,2,10620,0)=" ; "
^XMB(3.9,55,2,10621,0)="""RTN"",""IBCEF75"",37,0)"
^XMB(3.9,55,2,10622,0)="BPIDS(IBIFN,IDS,SORT1,SORT2,COB,IBSTRIP,SEG) ; Get all the billing provider IDs and qualifiers from the claim and file 355.92"
^XMB(3.9,55,2,10623,0)="""RTN"",""IBCEF75"",38,0)"
^XMB(3.9,55,2,10624,0)=" N DAT,IBFRMTYP,IBCARE,IBDIV,IBINS,MAIN,IBCCOB,USED,PLANTYPE,I,CNT,QUAL,ARF,M1,DEF,IDDIV,IBLIMIT,IEN,ID,IB2"
^XMB(3.9,55,2,10625,0)="""RTN"",""IBCEF75"",39,0)"
^XMB(3.9,55,2,10626,0)=" ;"
^XMB(3.9,55,2,10627,0)="""RTN"",""IBCEF75"",40,0)"
^XMB(3.9,55,2,10628,0)=" S DAT=$G(^DGCR(399,IBIFN,0))"
^XMB(3.9,55,2,10629,0)="""RTN"",""IBCEF75"",41,0)"
^XMB(3.9,55,2,10630,0)=" S IBFRMTYP=$$FT^IBCEF(IBIFN),IBFRMTYP=$S(IBFRMTYP=2:2,IBFRMTYP=3:1,1:0)"
^XMB(3.9,55,2,10631,0)="""RTN"",""IBCEF75"",42,0)"
^XMB(3.9,55,2,10632,0)=" S IBCARE=$S($$ISRX^IBCEF1(IBIFN):3,1:0) ;if an Rx refill bill"
^XMB(3.9,55,2,10633,0)="""RTN"",""IBCEF75"",43,0)"
^XMB(3.9,55,2,10634,0)=" S:IBCARE=0 IBCARE=$$INPAT^IBCEF(IBIFN,1) S:'IBCARE IBCARE=2 ;1-inp,2-out"
^XMB(3.9,55,2,10635,0)="""RTN"",""IBCEF75"",44,0)"
^XMB(3.9,55,2,10636,0)=" S IBDIV=+$P(DAT,U,22)"
^XMB(3.9,55,2,10637,0)="""RTN"",""IBCEF75"",45,0)"
^XMB(3.9,55,2,10638,0)=" S MAIN=$$MAIN^IBCEP2B()  ; get the IEN for main Division"
^XMB(3.9,55,2,10639,0)="""RTN"",""IBCEF75"",46,0)"
^XMB(3.9,55,2,10640,0)=" S IBCCOB=$$COBN^IBCEF(IBIFN)  ; Current Insurance"
^XMB(3.9,55,2,10641,0)="""RTN"",""IBCEF75"",47,0)"
^XMB(3.9,55,2,10642,0)=" S IBINS=$P($G(^DGCR(399,IBIFN,""I""_COB)),U)"
^XMB(3.9,55,2,10643,0)="""RTN"",""IBCEF75"",48,0)"
^XMB(3.9,55,2,10644,0)=" Q:IBINS="""""
^XMB(3.9,55,2,10645,0)="""RTN"",""IBCEF75"",49,0)"
^XMB(3.9,55,2,10646,0)=" ;"
^XMB(3.9,55,2,10647,0)="""RTN"",""IBCEF75"",50,0)"
^XMB(3.9,55,2,10648,0)=" S IDS(""BILLING PRV"",IBIFN,SORT1,SORT2)=$E(""PST"",COB)"
^XMB(3.9,55,2,10649,0)="""RTN"",""IBCEF75"",51,0)"
^XMB(3.9,55,2,10650,0)=" ;"
^XMB(3.9,55,2,10651,0)="""RTN"",""IBCEF75"",52,0)"
^XMB(3.9,55,2,10652,0)=" ; Primary ID"
^XMB(3.9,55,2,10653,0)="""RTN"",""IBCEF75"",53,0)"
^XMB(3.9,55,2,10654,0)=" S IDS(""BILLING PRV"",IBIFN,SORT1,SORT2,0)=$$STRIP^IBCEF76($$TAXID(),1,U,IBSTRIP)"
^XMB(3.9,55,2,10655,0)="""RTN"",""IBCEF75"",54,0)"
^XMB(3.9,55,2,10656,0)=" S USED($P(IDS(""BILLING PRV"",IBIFN,SORT1,SORT2,0),U))="""""
^XMB(3.9,55,2,10657,0)="""RTN"",""IBCEF75"",55,0)"
^XMB(3.9,55,2,10658,0)=" ;"
^XMB(3.9,55,2,10659,0)="""RTN"",""IBCEF75"",56,0)"
^XMB(3.9,55,2,10660,0)=" ; Secondary #1 - This is the ID Emdeon uses for sorting"
^XMB(3.9,55,2,10661,0)="""RTN"",""IBCEF75"",57,0)"
^XMB(3.9,55,2,10662,0)=" S IDS(""BILLING PRV"",IBIFN,SORT1,SORT2,1)=$$STRIP^IBCEF76($$BPSID1(IBDIV),1,U,IBSTRIP)"
^XMB(3.9,55,2,10663,0)="""RTN"",""IBCEF75"",58,0)"
^XMB(3.9,55,2,10664,0)=" S USED($P(IDS(""BILLING PRV"",IBIFN,SORT1,SORT2,1),U))="""""
^XMB(3.9,55,2,10665,0)="""RTN"",""IBCEF75"",59,0)"
^XMB(3.9,55,2,10666,0)=" ;"
^XMB(3.9,55,2,10667,0)="""RTN"",""IBCEF75"",60,0)"
^XMB(3.9,55,2,10668,0)=" ; Check if this is a plan type which gets no secondary IDs"
^XMB(3.9,55,2,10669,0)="""RTN"",""IBCEF75"",61,0)"
^XMB(3.9,55,2,10670,0)=" S M1=$G(^DGCR(399,IBIFN,""M1""))"
^XMB(3.9,55,2,10671,0)="""RTN"",""IBCEF75"",62,0)"
^XMB(3.9,55,2,10672,0)=" ; the following check is the current value of the flag, not when the claim was created. "
^XMB(3.9,55,2,10673,0)="""RTN"",""IBCEF75"",63,0)"
^XMB(3.9,55,2,10674,0)=" S PLANTYPE=$$POLTYP^IBCEF3(IBIFN,COB)"
^XMB(3.9,55,2,10675,0)="""RTN"",""IBCEF75"",64,0)"
^XMB(3.9,55,2,10676,0)=" I PLANTYPE]"""",$D(^DIC(36,IBINS,13,""B"",PLANTYPE)) Q "
^XMB(3.9,55,2,10677,0)="""RTN"",""IBCEF75"",65,0)"
^XMB(3.9,55,2,10678,0)=" ;"
^XMB(3.9,55,2,10679,0)="""RTN"",""IBCEF75"",66,0)"
^XMB(3.9,55,2,10680,0)=" ; Secondary #2"
^XMB(3.9,55,2,10681,0)="""RTN"",""IBCEF75"",67,0)"
^XMB(3.9,55,2,10682,0)=" ; If there is a ID  send with quailifer (stored or computed)"
^XMB(3.9,55,2,10683,0)="""RTN"",""IBCEF75"",68,0)"
^XMB(3.9,55,2,10684,0)=" I $P(M1,U,COB+1)]"""" D"
^XMB(3.9,55,2,10685,0)="""RTN"",""IBCEF75"",69,0)"
^XMB(3.9,55,2,10686,0)=" . S QUAL="""""
^XMB(3.9,55,2,10687,0)="""RTN"",""IBCEF75"",70,0)"
^XMB(3.9,55,2,10688,0)=" . S DAT=$P(M1,U,COB+9)"
^XMB(3.9,55,2,10689,0)="""RTN"",""IBCEF75"",71,0)"
^XMB(3.9,55,2,10690,0)=" . I DAT S QUAL=$$STRIP^IBCEF76($P($G(^IBE(355.97,DAT,0)),U,3),1,,IBSTRIP)"
^XMB(3.9,55,2,10691,0)="""RTN"",""IBCEF75"",72,0)"
^XMB(3.9,55,2,10692,0)=" . ; the null check is needed to be backwards compatible"
^XMB(3.9,55,2,10693,0)="""RTN"",""IBCEF75"",73,0)"
^XMB(3.9,55,2,10694,0)=" . I QUAL=""""!(QUAL=""1J"") S QUAL=$$STRIP^IBCEF76($$OLDWAY(IBIFN,COB),1,,IBSTRIP)"
^XMB(3.9,55,2,10695,0)="""RTN"",""IBCEF75"",74,0)"
^XMB(3.9,55,2,10696,0)=" . S IB2=QUAL_U_$$STRIP^IBCEF76($P(M1,U,COB+1),1,,IBSTRIP)"
^XMB(3.9,55,2,10697,0)="""RTN"",""IBCEF75"",75,0)"
^XMB(3.9,55,2,10698,0)=" ;"
^XMB(3.9,55,2,10699,0)="""RTN"",""IBCEF75"",76,0)"
^XMB(3.9,55,2,10700,0)=" I $P(M1,U,COB+1)="""" S IB2=$$STRIP^IBCEF76($$OLDWAY(IBIFN,COB),1,,IBSTRIP)_U_$$STRIP^IBCEF76($$GET1^DIQ(350.9,1,1.05),1,,IBSTRIP)"
^XMB(3.9,55,2,10701,0)="""RTN"",""IBCEF75"",77,0)"
^XMB(3.9,55,2,10702,0)=" ;"
^XMB(3.9,55,2,10703,0)="""RTN"",""IBCEF75"",78,0)"
^XMB(3.9,55,2,10704,0)=" S IDS(""BILLING PRV"",IBIFN,SORT1,SORT2,2)=IB2"
^XMB(3.9,55,2,10705,0)="""RTN"",""IBCEF75"",79,0)"
^XMB(3.9,55,2,10706,0)=" S IDS(""BILLING PRV"",IBIFN,SORT1,SORT2,2,""PTQ"")=$$OLDWAY(IBIFN,COB)"
^XMB(3.9,55,2,10707,0)="""RTN"",""IBCEF75"",80,0)"
^XMB(3.9,55,2,10708,0)=" S USED($P(IB2,U))="""""
^XMB(3.9,55,2,10709,0)="""RTN"",""IBCEF75"",81,0)"
^XMB(3.9,55,2,10710,0)=" ;"
^XMB(3.9,55,2,10711,0)="""RTN"",""IBCEF75"",82,0)"
^XMB(3.9,55,2,10712,0)=" S CNT=$S('$D(IDS(""BILLING PRV"",IBIFN,SORT1,SORT2,2)):2,1:3)"
^XMB(3.9,55,2,10713,0)="""RTN"",""IBCEF75"",83,0)"
^XMB(3.9,55,2,10714,0)=" S IBLIMIT=8"
^XMB(3.9,55,2,10715,0)="""RTN"",""IBCEF75"",84,0)"
^XMB(3.9,55,2,10716,0)=" S IEN=0 F  S IEN=$O(^IBA(355.92,""B"",IBINS,IEN)) Q:IEN=""""  D  Q:CNT>IBLIMIT"
^XMB(3.9,55,2,10717,0)="""RTN"",""IBCEF75"",85,0)"
^XMB(3.9,55,2,10718,0)=" . S DAT=$G(^IBA(355.92,IEN,0))"
^XMB(3.9,55,2,10719,0)="""RTN"",""IBCEF75"",86,0)"
^XMB(3.9,55,2,10720,0)=" . Q:$P(DAT,U,8)'=""A""   ; only allow additional IDs"
^XMB(3.9,55,2,10721,0)="""RTN"",""IBCEF75"",87,0)"
^XMB(3.9,55,2,10722,0)=" . Q:$P(DAT,U,7)=""""  ; No Provider ID"
^XMB(3.9,55,2,10723,0)="""RTN"",""IBCEF75"",88,0)"
^XMB(3.9,55,2,10724,0)=" . Q:$P(DAT,U,6)=""""  ; No ID Qualifier"
^XMB(3.9,55,2,10725,0)="""RTN"",""IBCEF75"",89,0)"
^XMB(3.9,55,2,10726,0)=" . I IBFRMTYP=1 Q:$P(DAT,U,4)=2"
^XMB(3.9,55,2,10727,0)="""RTN"",""IBCEF75"",90,0)"
^XMB(3.9,55,2,10728,0)=" . I IBFRMTYP=2 Q:$P(DAT,U,4)=1"
^XMB(3.9,55,2,10729,0)="""RTN"",""IBCEF75"",91,0)"
^XMB(3.9,55,2,10730,0)=" . ;"
^XMB(3.9,55,2,10731,0)="""RTN"",""IBCEF75"",92,0)"
^XMB(3.9,55,2,10732,0)=" . ; Check if we already have one of these"
^XMB(3.9,55,2,10733,0)="""RTN"",""IBCEF75"",93,0)"
^XMB(3.9,55,2,10734,0)=" . S QUAL=$$STRIP^IBCEF76($P(DAT,U,6),1,,IBSTRIP)"
^XMB(3.9,55,2,10735,0)="""RTN"",""IBCEF75"",94,0)"
^XMB(3.9,55,2,10736,0)=" . S QUAL=$P($G(^IBE(355.97,QUAL,0)),U,3)"
^XMB(3.9,55,2,10737,0)="""RTN"",""IBCEF75"",95,0)"
^XMB(3.9,55,2,10738,0)=" . Q:QUAL="""""
^XMB(3.9,55,2,10739,0)="""RTN"",""IBCEF75"",96,0)"
^XMB(3.9,55,2,10740,0)=" . Q:$D(USED(QUAL))"
^XMB(3.9,55,2,10741,0)="""RTN"",""IBCEF75"",97,0)"
^XMB(3.9,55,2,10742,0)=" . ;"
^XMB(3.9,55,2,10743,0)="""RTN"",""IBCEF75"",98,0)"
^XMB(3.9,55,2,10744,0)=" . S IDS(""BILLING PRV"",IBIFN,SORT1,SORT2,CNT)=QUAL_U_$$STRIP^IBCEF76($P(DAT,U,7),1,,IBSTRIP)"
^XMB(3.9,55,2,10745,0)="""RTN"",""IBCEF75"",99,0)"
^XMB(3.9,55,2,10746,0)=" . S CNT=CNT+1,USED(QUAL)="""""
^XMB(3.9,55,2,10747,0)="""RTN"",""IBCEF75"",100,0)"
^XMB(3.9,55,2,10748,0)=" ;"
^XMB(3.9,55,2,10749,0)="""RTN"",""IBCEF75"",101,0)"
^XMB(3.9,55,2,10750,0)=" Q"
^XMB(3.9,55,2,10751,0)="""RTN"",""IBCEF75"",102,0)"
^XMB(3.9,55,2,10752,0)=" ;"
^XMB(3.9,55,2,10753,0)="""RTN"",""IBCEF75"",103,0)"
^XMB(3.9,55,2,10754,0)="OLDWAY(IBIFN,COB) ; Figure out the qualifier the old way if it's not stored with the claim."
^XMB(3.9,55,2,10755,0)="""RTN"",""IBCEF75"",104,0)"
^XMB(3.9,55,2,10756,0)=" ; It's based on the plan type.  This is used for Billing Provider Secondary ID #2"
^XMB(3.9,55,2,10757,0)="""RTN"",""IBCEF75"",105,0)"
^XMB(3.9,55,2,10758,0)=" N PLANTYPE"
^XMB(3.9,55,2,10759,0)="""RTN"",""IBCEF75"",106,0)"
^XMB(3.9,55,2,10760,0)=" S PLANTYPE=$$POLTYP^IBCEF3(IBIFN,COB)"
^XMB(3.9,55,2,10761,0)="""RTN"",""IBCEF75"",107,0)"
^XMB(3.9,55,2,10762,0)=" Q $$SOP^IBCEP2B(IBIFN,PLANTYPE)"
^XMB(3.9,55,2,10763,0)="""RTN"",""IBCEF75"",108,0)"
^XMB(3.9,55,2,10764,0)=" ;"
^XMB(3.9,55,2,10765,0)="""RTN"",""IBCEF75"",109,0)"
^XMB(3.9,55,2,10766,0)="BPSID1(DIV) ; Return the Billing Provider Secondary ID #1 and qualifier which Emdeon uses to sort IBIFNs"
^XMB(3.9,55,2,10767,0)="""RTN"",""IBCEF75"",110,0)"
^XMB(3.9,55,2,10768,0)=" N DATA"
^XMB(3.9,55,2,10769,0)="""RTN"",""IBCEF75"",111,0)"
^XMB(3.9,55,2,10770,0)=" S DATA=$P($$SITE^VASITE(DT,$S(DIV:DIV,1:+$$SITE^VASITE())),U,3)"
^XMB(3.9,55,2,10771,0)="""RTN"",""IBCEF75"",112,0)"
^XMB(3.9,55,2,10772,0)=" S DATA=$E(""0000"",1,7-$L(DATA))_$E(DATA,4,7)"
^XMB(3.9,55,2,10773,0)="""RTN"",""IBCEF75"",113,0)"
^XMB(3.9,55,2,10774,0)=" Q ""G5""_U_DATA"
^XMB(3.9,55,2,10775,0)="""RTN"",""IBCEF75"",114,0)"
^XMB(3.9,55,2,10776,0)=" ;"
^XMB(3.9,55,2,10777,0)="""RTN"",""IBCEF75"",115,0)"
^XMB(3.9,55,2,10778,0)="TAXID() ; Return the Billing Provider Primary ID and qualifier which is the TAXID for the site and also the qualifier"
^XMB(3.9,55,2,10779,0)="""RTN"",""IBCEF75"",116,0)"
^XMB(3.9,55,2,10780,0)=" N DATA"
^XMB(3.9,55,2,10781,0)="""RTN"",""IBCEF75"",117,0)"
^XMB(3.9,55,2,10782,0)=" S DATA=$P($G(^IBE(350.9,1,1)),U,5)"
^XMB(3.9,55,2,10783,0)="""RTN"",""IBCEF75"",118,0)"
^XMB(3.9,55,2,10784,0)=" S DATA=$$NOPUNCT^IBCEF(DATA,1)"
^XMB(3.9,55,2,10785,0)="""RTN"",""IBCEF75"",119,0)"
^XMB(3.9,55,2,10786,0)=" Q 24_U_DATA"
^XMB(3.9,55,2,10787,0)="""RTN"",""IBCEF75"",120,0)"
^XMB(3.9,55,2,10788,0)=" ;"
^XMB(3.9,55,2,10789,0)="""RTN"",""IBCEF75"",121,0)"
^XMB(3.9,55,2,10790,0)="VAMCFD(IBIFN,IBRET) ;"
^XMB(3.9,55,2,10791,0)="""RTN"",""IBCEF75"",122,0)"
^XMB(3.9,55,2,10792,0)=" ;"
^XMB(3.9,55,2,10793,0)="""RTN"",""IBCEF75"",123,0)"
^XMB(3.9,55,2,10794,0)=" ; This procedure returns data based on flag in insurance company file which is set in the insurance co editor"
^XMB(3.9,55,2,10795,0)="""RTN"",""IBCEF75"",124,0)"
^XMB(3.9,55,2,10796,0)=" ; Send VA Lab/Facility IDs or Facility Data for VAMC?"
^XMB(3.9,55,2,10797,0)="""RTN"",""IBCEF75"",125,0)"
^XMB(3.9,55,2,10798,0)=" ; The return value will be set to 1 (yes) if the division in the claim is not the main division (VAMC) or"
^XMB(3.9,55,2,10799,0)="""RTN"",""IBCEF75"",126,0)"
^XMB(3.9,55,2,10800,0)=" ; if the flag in the dictionary for that insurance company says to send the data."
^XMB(3.9,55,2,10801,0)="""RTN"",""IBCEF75"",127,0)"
^XMB(3.9,55,2,10802,0)=" ; "
^XMB(3.9,55,2,10803,0)="""RTN"",""IBCEF75"",128,0)"
^XMB(3.9,55,2,10804,0)=" ; Input - IBFN - IEN 399"
^XMB(3.9,55,2,10805,0)="""RTN"",""IBCEF75"",129,0)"
^XMB(3.9,55,2,10806,0)=" ; Output - IBRET(IBSORT1,IBSORT2)=FLAG"
^XMB(3.9,55,2,10807,0)="""RTN"",""IBCEF75"",130,0)"
^XMB(3.9,55,2,10808,0)=" ;    IBSORT1 = ""C""urrent or ""O""ther insurance"
^XMB(3.9,55,2,10809,0)="""RTN"",""IBCEF75"",131,0)"
^XMB(3.9,55,2,10810,0)=" ;    IBSORT2 = order with IBSORT1"
^XMB(3.9,55,2,10811,0)="""RTN"",""IBCEF75"",132,0)"
^XMB(3.9,55,2,10812,0)=" ;    FLAG = 0 No or 1 Yes"
^XMB(3.9,55,2,10813,0)="""RTN"",""IBCEF75"",133,0)"
^XMB(3.9,55,2,10814,0)=" ;"
^XMB(3.9,55,2,10815,0)="""RTN"",""IBCEF75"",134,0)"
^XMB(3.9,55,2,10816,0)=" N IBDIV,MAIN,IBCCOB,IBSORT1,IBSORT2,DAT,IBINS,COB,OUTFAC"
^XMB(3.9,55,2,10817,0)="""RTN"",""IBCEF75"",135,0)"
^XMB(3.9,55,2,10818,0)=" S IBDIV=+$P($G(^DGCR(399,IBIFN,0)),U,22)"
^XMB(3.9,55,2,10819,0)="""RTN"",""IBCEF75"",136,0)"
^XMB(3.9,55,2,10820,0)=" S MAIN=$$MAIN^IBCEP2B()  ; get the IEN for main Division"
^XMB(3.9,55,2,10821,0)="""RTN"",""IBCEF75"",137,0)"
^XMB(3.9,55,2,10822,0)=" S IBCCOB=$$COBN^IBCEF(IBIFN)"
^XMB(3.9,55,2,10823,0)="""RTN"",""IBCEF75"",138,0)"
^XMB(3.9,55,2,10824,0)=" F COB=1:1:3 D"
^XMB(3.9,55,2,10825,0)="""RTN"",""IBCEF75"",139,0)"
^XMB(3.9,55,2,10826,0)=" . S IBSORT1=$S(COB=IBCCOB:""C"",1:""O"")"
^XMB(3.9,55,2,10827,0)="""RTN"",""IBCEF75"",140,0)"
^XMB(3.9,55,2,10828,0)=" . S IBSORT2=$S(IBSORT1=""C"":1,COB=1:1,COB=2&(IBCCOB=1):1,1:2)"
^XMB(3.9,55,2,10829,0)="""RTN"",""IBCEF75"",141,0)"
^XMB(3.9,55,2,10830,0)=" . S IBINS=+$G(^DGCR(399,IBIFN,""I""_COB))"
^XMB(3.9,55,2,10831,0)="""RTN"",""IBCEF75"",142,0)"
^XMB(3.9,55,2,10832,0)=" . Q:'IBINS"
^XMB(3.9,55,2,10833,0)="""RTN"",""IBCEF75"",143,0)"
^XMB(3.9,55,2,10834,0)=" . S IBRET(IBSORT1,IBSORT2)=1"
^XMB(3.9,55,2,10835,0)="""RTN"",""IBCEF75"",144,0)"
^XMB(3.9,55,2,10836,0)=" . S OUTFAC=$P($G(^DGCR(399,IBIFN,""U2"")),U,10)"
^XMB(3.9,55,2,10837,0)="""RTN"",""IBCEF75"",145,0)"
^XMB(3.9,55,2,10838,0)=" . Q:OUTFAC]"""""
^XMB(3.9,55,2,10839,0)="""RTN"",""IBCEF75"",146,0)"
^XMB(3.9,55,2,10840,0)=" . Q:IBDIV'=MAIN"
^XMB(3.9,55,2,10841,0)="""RTN"",""IBCEF75"",147,0)"
^XMB(3.9,55,2,10842,0)=" . ; [7] Send VA Lab/Facility IDs or Facility Data for VAMC?(0 - NO, 1 - YES)"
^XMB(3.9,55,2,10843,0)="""RTN"",""IBCEF75"",148,0)"
^XMB(3.9,55,2,10844,0)=" . S DAT(3647)=$P($G(^DIC(36,IBINS,4)),U,7)"
^XMB(3.9,55,2,10845,0)="""RTN"",""IBCEF75"",149,0)"
^XMB(3.9,55,2,10846,0)=" . I DAT(3647) Q"
^XMB(3.9,55,2,10847,0)="""RTN"",""IBCEF75"",150,0)"
^XMB(3.9,55,2,10848,0)=" . S IBRET(IBSORT1,IBSORT2)=0"
^XMB(3.9,55,2,10849,0)="""RTN"",""IBCEF75"",151,0)"
^XMB(3.9,55,2,10850,0)=" Q"
^XMB(3.9,55,2,10851,0)="""RTN"",""IBCEF75"",152,0)"
^XMB(3.9,55,2,10852,0)=" ;"
^XMB(3.9,55,2,10853,0)="""RTN"",""IBCEF75"",153,0)"
^XMB(3.9,55,2,10854,0)="CLEANUP(IBXSAVE) ; Clean up "
^XMB(3.9,55,2,10855,0)="""RTN"",""IBCEF75"",154,0)"
^XMB(3.9,55,2,10856,0)=" K IBXSAVE(""PROVINF"")"
^XMB(3.9,55,2,10857,0)="""RTN"",""IBCEF75"",155,0)"
^XMB(3.9,55,2,10858,0)=" K IBXSAVE(""LAB/FAC"")"
^XMB(3.9,55,2,10859,0)="""RTN"",""IBCEF75"",156,0)"
^XMB(3.9,55,2,10860,0)=" K IBXSAVE(""BILLING PRV"")"
^XMB(3.9,55,2,10861,0)="""RTN"",""IBCEF75"",157,0)"
^XMB(3.9,55,2,10862,0)=" K IBXSAVE(""ID"")"
^XMB(3.9,55,2,10863,0)="""RTN"",""IBCEF75"",158,0)"
^XMB(3.9,55,2,10864,0)=" Q"
^XMB(3.9,55,2,10865,0)="""RTN"",""IBCEF76"")"
^XMB(3.9,55,2,10866,0)="0^67^B34194204"
^XMB(3.9,55,2,10867,0)="""RTN"",""IBCEF76"",1,0)"
^XMB(3.9,55,2,10868,0)="IBCEF76 ;ALB/WCJ - Provider ID functions ;13 Feb 2006"
^XMB(3.9,55,2,10869,0)="""RTN"",""IBCEF76"",2,0)"
^XMB(3.9,55,2,10870,0)=" ;;2.0;INTEGRATED BILLING;**320**;21-MAR-94"
^XMB(3.9,55,2,10871,0)="""RTN"",""IBCEF76"",3,0)"
^XMB(3.9,55,2,10872,0)=" ;; Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,10873,0)="""RTN"",""IBCEF76"",4,0)"
^XMB(3.9,55,2,10874,0)=" ;"
^XMB(3.9,55,2,10875,0)="""RTN"",""IBCEF76"",5,0)"
^XMB(3.9,55,2,10876,0)=" G AWAY"
^XMB(3.9,55,2,10877,0)="""RTN"",""IBCEF76"",6,0)"
^XMB(3.9,55,2,10878,0)="AWAY Q"
^XMB(3.9,55,2,10879,0)="""RTN"",""IBCEF76"",7,0)"
^XMB(3.9,55,2,10880,0)=" ; "
^XMB(3.9,55,2,10881,0)="""RTN"",""IBCEF76"",8,0)"
^XMB(3.9,55,2,10882,0)="LFIDS(IBIFN,IDS,IBSTRIP,SEG) ;"
^XMB(3.9,55,2,10883,0)="""RTN"",""IBCEF76"",9,0)"
^XMB(3.9,55,2,10884,0)=" ;  Pass in the the internal claim number and return the array of IDS."
^XMB(3.9,55,2,10885,0)="""RTN"",""IBCEF76"",10,0)"
^XMB(3.9,55,2,10886,0)=" ;  IDS(""C""urrent or ""O""ther, Order of Insurance within subscript 1, order of ID within subscript 2)"
^XMB(3.9,55,2,10887,0)="""RTN"",""IBCEF76"",11,0)"
^XMB(3.9,55,2,10888,0)=" ;  IDS(""C"",1)=""P"""
^XMB(3.9,55,2,10889,0)="""RTN"",""IBCEF76"",12,0)"
^XMB(3.9,55,2,10890,0)=" ;  IDS(""C"",1,0)=Qualifier^Primary ID"
^XMB(3.9,55,2,10891,0)="""RTN"",""IBCEF76"",13,0)"
^XMB(3.9,55,2,10892,0)=" ;  IDS(""C"",1,1)=Qualifier^Sec ID #1"
^XMB(3.9,55,2,10893,0)="""RTN"",""IBCEF76"",14,0)"
^XMB(3.9,55,2,10894,0)=" ;  IDS(""C"",1,2)=Qualifier^Sec ID #2"
^XMB(3.9,55,2,10895,0)="""RTN"",""IBCEF76"",15,0)"
^XMB(3.9,55,2,10896,0)=" ;"
^XMB(3.9,55,2,10897,0)="""RTN"",""IBCEF76"",16,0)"
^XMB(3.9,55,2,10898,0)=" N DAT,IBFRMTYP,IBCARE,IBDIV,IBINS,OUTFAC,MAIN,IBCCOB,TMPIDS,COB,IBSORT1,IBSORT2,IBLIMIT"
^XMB(3.9,55,2,10899,0)="""RTN"",""IBCEF76"",17,0)"
^XMB(3.9,55,2,10900,0)=" ;"
^XMB(3.9,55,2,10901,0)="""RTN"",""IBCEF76"",18,0)"
^XMB(3.9,55,2,10902,0)=" S DAT=$G(^DGCR(399,IBIFN,0))"
^XMB(3.9,55,2,10903,0)="""RTN"",""IBCEF76"",19,0)"
^XMB(3.9,55,2,10904,0)=" S IBFRMTYP=$$FT^IBCEF(IBIFN),IBFRMTYP=$S(IBFRMTYP=2:2,IBFRMTYP=3:1,1:0)"
^XMB(3.9,55,2,10905,0)="""RTN"",""IBCEF76"",20,0)"
^XMB(3.9,55,2,10906,0)=" S IBCARE=$S($$ISRX^IBCEF1(IBIFN):3,1:0) ;if an Rx refill bill"
^XMB(3.9,55,2,10907,0)="""RTN"",""IBCEF76"",21,0)"
^XMB(3.9,55,2,10908,0)=" S:IBCARE=0 IBCARE=$$INPAT^IBCEF(IBIFN,1) S:'IBCARE IBCARE=2 ;1-inp,2-out"
^XMB(3.9,55,2,10909,0)="""RTN"",""IBCEF76"",22,0)"
^XMB(3.9,55,2,10910,0)=" S IBDIV=+$P(DAT,U,22)"
^XMB(3.9,55,2,10911,0)="""RTN"",""IBCEF76"",23,0)"
^XMB(3.9,55,2,10912,0)=" S OUTFAC=$P($G(^DGCR(399,IBIFN,""U2"")),U,10)"
^XMB(3.9,55,2,10913,0)="""RTN"",""IBCEF76"",24,0)"
^XMB(3.9,55,2,10914,0)=" S MAIN=$$MAIN^IBCEP2B()  ; get the IEN for main Division"
^XMB(3.9,55,2,10915,0)="""RTN"",""IBCEF76"",25,0)"
^XMB(3.9,55,2,10916,0)=" ;"
^XMB(3.9,55,2,10917,0)="""RTN"",""IBCEF76"",26,0)"
^XMB(3.9,55,2,10918,0)=" S IBCCOB=$$COBN^IBCEF(IBIFN)"
^XMB(3.9,55,2,10919,0)="""RTN"",""IBCEF76"",27,0)"
^XMB(3.9,55,2,10920,0)=" F COB=1:1:3 D"
^XMB(3.9,55,2,10921,0)="""RTN"",""IBCEF76"",28,0)"
^XMB(3.9,55,2,10922,0)=" . S IBSORT1=$S(COB=IBCCOB:""C"",1:""O"")"
^XMB(3.9,55,2,10923,0)="""RTN"",""IBCEF76"",29,0)"
^XMB(3.9,55,2,10924,0)=" . S IBSORT2=$S(IBSORT1=""C"":1,COB=1:1,COB=2&(IBCCOB=1):1,1:2)"
^XMB(3.9,55,2,10925,0)="""RTN"",""IBCEF76"",30,0)"
^XMB(3.9,55,2,10926,0)=" . S IBLIMIT=$S(IBSORT1=""C"":5,1:3)  ; Limit secondary IDs"
^XMB(3.9,55,2,10927,0)="""RTN"",""IBCEF76"",31,0)"
^XMB(3.9,55,2,10928,0)=" . S DAT=$G(^DGCR(399,IBIFN,""I""_COB))"
^XMB(3.9,55,2,10929,0)="""RTN"",""IBCEF76"",32,0)"
^XMB(3.9,55,2,10930,0)=" .;"
^XMB(3.9,55,2,10931,0)="""RTN"",""IBCEF76"",33,0)"
^XMB(3.9,55,2,10932,0)=" . S IBINS=$P(DAT,U)  ; insurance PTR 36"
^XMB(3.9,55,2,10933,0)="""RTN"",""IBCEF76"",34,0)"
^XMB(3.9,55,2,10934,0)=" . Q:IBINS="""""
^XMB(3.9,55,2,10935,0)="""RTN"",""IBCEF76"",35,0)"
^XMB(3.9,55,2,10936,0)=" .;"
^XMB(3.9,55,2,10937,0)="""RTN"",""IBCEF76"",36,0)"
^XMB(3.9,55,2,10938,0)=" . I OUTFAC]"""" D  Q"
^XMB(3.9,55,2,10939,0)="""RTN"",""IBCEF76"",37,0)"
^XMB(3.9,55,2,10940,0)=" .. D NONVALF(IBIFN,OUTFAC_"";IBA(355.93,"",IBINS,IBFRMTYP,IBCARE,.IDS,IBSORT1,IBSORT2,COB,IBLIMIT,IBSTRIP,SEG)"
^XMB(3.9,55,2,10941,0)="""RTN"",""IBCEF76"",38,0)"
^XMB(3.9,55,2,10942,0)=" . ;"
^XMB(3.9,55,2,10943,0)="""RTN"",""IBCEF76"",39,0)"
^XMB(3.9,55,2,10944,0)=" . I OUTFAC="""" D"
^XMB(3.9,55,2,10945,0)="""RTN"",""IBCEF76"",40,0)"
^XMB(3.9,55,2,10946,0)=" .. ; [7] Send VA Lab/Facility IDs or Facility Data for VAMC?(0 - NO, 1 - YES)"
^XMB(3.9,55,2,10947,0)="""RTN"",""IBCEF76"",41,0)"
^XMB(3.9,55,2,10948,0)=" .. S DAT(3647)=$P($G(^DIC(36,IBINS,4)),U,7)"
^XMB(3.9,55,2,10949,0)="""RTN"",""IBCEF76"",42,0)"
^XMB(3.9,55,2,10950,0)=" .. I 'DAT(3647),IBDIV=MAIN Q"
^XMB(3.9,55,2,10951,0)="""RTN"",""IBCEF76"",43,0)"
^XMB(3.9,55,2,10952,0)=" .. S IDS(""LAB/FAC"",IBIFN,IBSORT1,IBSORT2,0)=$$STRIP($$TAXID^IBCEF75(),1,U,IBSTRIP)"
^XMB(3.9,55,2,10953,0)="""RTN"",""IBCEF76"",44,0)"
^XMB(3.9,55,2,10954,0)=" .. D VALF(IBIFN,IBINS,IBFRMTYP,IBDIV,.IDS,IBSORT1,IBSORT2,COB,IBLIMIT,IBSTRIP,SEG)"
^XMB(3.9,55,2,10955,0)="""RTN"",""IBCEF76"",45,0)"
^XMB(3.9,55,2,10956,0)=" Q"
^XMB(3.9,55,2,10957,0)="""RTN"",""IBCEF76"",46,0)"
^XMB(3.9,55,2,10958,0)=" ;"
^XMB(3.9,55,2,10959,0)="""RTN"",""IBCEF76"",47,0)"
^XMB(3.9,55,2,10960,0)="VALF(IBIFN,INS,FT,DIV,IDS,SORT1,SORT2,COB,IBLIMIT,IBSTRIP,SEG) ; Get VA Lab/Fac Secondary IDs"
^XMB(3.9,55,2,10961,0)="""RTN"",""IBCEF76"",48,0)"
^XMB(3.9,55,2,10962,0)=" ; Pass in INS - IEN to file 36"
^XMB(3.9,55,2,10963,0)="""RTN"",""IBCEF76"",49,0)"
^XMB(3.9,55,2,10964,0)=" ; FT - 1 UB92 2 HCFA"
^XMB(3.9,55,2,10965,0)="""RTN"",""IBCEF76"",50,0)"
^XMB(3.9,55,2,10966,0)=" ; DIV - PTR to 40.8"
^XMB(3.9,55,2,10967,0)="""RTN"",""IBCEF76"",51,0)"
^XMB(3.9,55,2,10968,0)=" ;"
^XMB(3.9,55,2,10969,0)="""RTN"",""IBCEF76"",52,0)"
^XMB(3.9,55,2,10970,0)=" N Z,Z0,ID,QUAL,MAIN,IDTBL,CNT,Z"
^XMB(3.9,55,2,10971,0)="""RTN"",""IBCEF76"",53,0)"
^XMB(3.9,55,2,10972,0)=" S MAIN=$$MAIN^IBCEP2B()  ; get the IEN for main Division"
^XMB(3.9,55,2,10973,0)="""RTN"",""IBCEF76"",54,0)"
^XMB(3.9,55,2,10974,0)=" S Z=0 F  S Z=$O(^IBA(355.92,""B"",INS,Z)) Q:'Z  D"
^XMB(3.9,55,2,10975,0)="""RTN"",""IBCEF76"",55,0)"
^XMB(3.9,55,2,10976,0)=" . S Z0=$G(^IBA(355.92,Z,0))"
^XMB(3.9,55,2,10977,0)="""RTN"",""IBCEF76"",56,0)"
^XMB(3.9,55,2,10978,0)=" . Q:$P(Z0,U,8)'=""LF""   ; Screen out anything other than Lab or Facility"
^XMB(3.9,55,2,10979,0)="""RTN"",""IBCEF76"",57,0)"
^XMB(3.9,55,2,10980,0)=" . I +$P(Z0,U,4) Q:$P(Z0,U,4)'=FT   ; Form type must match that passed in or be a 0 which allows both"
^XMB(3.9,55,2,10981,0)="""RTN"",""IBCEF76"",58,0)"
^XMB(3.9,55,2,10982,0)=" . S ID=$$STRIP($P(Z0,U,7),1,,IBSTRIP)"
^XMB(3.9,55,2,10983,0)="""RTN"",""IBCEF76"",59,0)"
^XMB(3.9,55,2,10984,0)=" . S QUAL=$$STRIP($P(Z0,U,6),1,,IBSTRIP)"
^XMB(3.9,55,2,10985,0)="""RTN"",""IBCEF76"",60,0)"
^XMB(3.9,55,2,10986,0)=" . Q:QUAL=""""   ; Needs a qualifier"
^XMB(3.9,55,2,10987,0)="""RTN"",""IBCEF76"",61,0)"
^XMB(3.9,55,2,10988,0)=" . S QUAL=$P($G(^IBE(355.97,QUAL,0)),U,3)"
^XMB(3.9,55,2,10989,0)="""RTN"",""IBCEF76"",62,0)"
^XMB(3.9,55,2,10990,0)=" . I FT=1,SORT1=""O"" Q:$$OP3^IBCEF73(FT)'[(U_QUAL_U)   ; Institutional"
^XMB(3.9,55,2,10991,0)="""RTN"",""IBCEF76"",63,0)"
^XMB(3.9,55,2,10992,0)=" . I FT=2,SORT1=""O"" Q:$$OP7^IBCEF73(FT)'[(U_QUAL_U)   ; Professional"
^XMB(3.9,55,2,10993,0)="""RTN"",""IBCEF76"",64,0)"
^XMB(3.9,55,2,10994,0)=" . I $P(Z0,U,5)=""""!($P(Z0,U,5)=0)!($P(Z0,U,5)=MAIN) S IDTBL(""DEF"",QUAL)=ID  ; set up default for main division"
^XMB(3.9,55,2,10995,0)="""RTN"",""IBCEF76"",65,0)"
^XMB(3.9,55,2,10996,0)=" . I $P(Z0,U,5)=DIV S IDTBL(""DIV"",QUAL)=ID  ; set up default for division"
^XMB(3.9,55,2,10997,0)="""RTN"",""IBCEF76"",66,0)"
^XMB(3.9,55,2,10998,0)=" S CNT=0"
^XMB(3.9,55,2,10999,0)="""RTN"",""IBCEF76"",67,0)"
^XMB(3.9,55,2,11000,0)=" S IDS(""LAB/FAC"",IBIFN,SORT1,SORT2)=$E(""PST"",COB)"
^XMB(3.9,55,2,11001,0)="""RTN"",""IBCEF76"",68,0)"
^XMB(3.9,55,2,11002,0)=" I $D(IDTBL(""DIV"")) D  Q"
^XMB(3.9,55,2,11003,0)="""RTN"",""IBCEF76"",69,0)"
^XMB(3.9,55,2,11004,0)=" . S Z="""" F  S Z=$O(IDTBL(""DIV"",Z)) Q:Z=""""  S CNT=CNT+1,IDS(""LAB/FAC"",IBIFN,SORT1,SORT2,CNT)=Z_U_IDTBL(""DIV"",Z) Q:CNT=IBLIMIT"
^XMB(3.9,55,2,11005,0)="""RTN"",""IBCEF76"",70,0)"
^XMB(3.9,55,2,11006,0)=" I $D(IDTBL(""DEF"")) D  Q"
^XMB(3.9,55,2,11007,0)="""RTN"",""IBCEF76"",71,0)"
^XMB(3.9,55,2,11008,0)=" . S Z="""" F  S Z=$O(IDTBL(""DEF"",Z)) Q:Z=""""  S CNT=CNT+1,IDS(""LAB/FAC"",IBIFN,SORT1,SORT2,CNT)=Z_U_IDTBL(""DEF"",Z) Q:CNT=IBLIMIT"
^XMB(3.9,55,2,11009,0)="""RTN"",""IBCEF76"",72,0)"
^XMB(3.9,55,2,11010,0)=" Q"
^XMB(3.9,55,2,11011,0)="""RTN"",""IBCEF76"",73,0)"
^XMB(3.9,55,2,11012,0)=" ;"
^XMB(3.9,55,2,11013,0)="""RTN"",""IBCEF76"",74,0)"
^XMB(3.9,55,2,11014,0)="NONVALF(IBIFN,PRV,INS,FT,PT,IDS,SORT1,SORT2,COB,IBLIMIT,IBSTRIP,SEG) ; Get Non VA Lab/Fac Secondary IDs"
^XMB(3.9,55,2,11015,0)="""RTN"",""IBCEF76"",75,0)"
^XMB(3.9,55,2,11016,0)=" ; Pass in PRV - VPTR - PTR to 355.93 (in format of variabel pointer IEN;IBA(355.93,"
^XMB(3.9,55,2,11017,0)="""RTN"",""IBCEF76"",76,0)"
^XMB(3.9,55,2,11018,0)=" ; Pass in INS - PTR to 36 of null (not provide by insurance company)"
^XMB(3.9,55,2,11019,0)="""RTN"",""IBCEF76"",77,0)"
^XMB(3.9,55,2,11020,0)=" ; FT - 1 UB92 2 HCFA"
^XMB(3.9,55,2,11021,0)="""RTN"",""IBCEF76"",78,0)"
^XMB(3.9,55,2,11022,0)=" ; PT - Patient Type - 1 inpatient 2 outpatient"
^XMB(3.9,55,2,11023,0)="""RTN"",""IBCEF76"",79,0)"
^XMB(3.9,55,2,11024,0)=" ; IDS array being returned"
^XMB(3.9,55,2,11025,0)="""RTN"",""IBCEF76"",80,0)"
^XMB(3.9,55,2,11026,0)=" ; SORT1 - ""C""urrent or ""O""ther"
^XMB(3.9,55,2,11027,0)="""RTN"",""IBCEF76"",81,0)"
^XMB(3.9,55,2,11028,0)=" ; SORT2 - 1 if current or (1 or 2 if other)"
^XMB(3.9,55,2,11029,0)="""RTN"",""IBCEF76"",82,0)"
^XMB(3.9,55,2,11030,0)=" N Z,Z0,ID,QUAL,IDTBL,CNT"
^XMB(3.9,55,2,11031,0)="""RTN"",""IBCEF76"",83,0)"
^XMB(3.9,55,2,11032,0)=" S Z=0 F  S Z=$O(^IBA(355.9,""B"",PRV,Z)) Q:'Z  D"
^XMB(3.9,55,2,11033,0)="""RTN"",""IBCEF76"",84,0)"
^XMB(3.9,55,2,11034,0)=" . S Z0=$G(^IBA(355.9,Z,0))"
^XMB(3.9,55,2,11035,0)="""RTN"",""IBCEF76"",85,0)"
^XMB(3.9,55,2,11036,0)=" . I +$P(Z0,U,4) Q:$P(Z0,U,4)'=FT   ; Form type must match that passed in or be a 0 which allows both UB and HCFA"
^XMB(3.9,55,2,11037,0)="""RTN"",""IBCEF76"",86,0)"
^XMB(3.9,55,2,11038,0)=" . I +$P(Z0,U,5) Q:$P(Z0,U,5)'=PT   ; Patient type must match that passed in or be a 0 which allows both in patient and outpatient"
^XMB(3.9,55,2,11039,0)="""RTN"",""IBCEF76"",87,0)"
^XMB(3.9,55,2,11040,0)=" . I INS]"""",$P(Z0,U,2)]"""",INS'=$P(Z0,U,2) Q"
^XMB(3.9,55,2,11041,0)="""RTN"",""IBCEF76"",88,0)"
^XMB(3.9,55,2,11042,0)=" . S ID=$$STRIP($P(Z0,U,7),1,,IBSTRIP)"
^XMB(3.9,55,2,11043,0)="""RTN"",""IBCEF76"",89,0)"
^XMB(3.9,55,2,11044,0)=" . Q:ID="""""
^XMB(3.9,55,2,11045,0)="""RTN"",""IBCEF76"",90,0)"
^XMB(3.9,55,2,11046,0)=" . S QUAL=$$STRIP($P(Z0,U,6),1,,IBSTRIP)"
^XMB(3.9,55,2,11047,0)="""RTN"",""IBCEF76"",91,0)"
^XMB(3.9,55,2,11048,0)=" . Q:QUAL=""""   ; Needs a qualifier"
^XMB(3.9,55,2,11049,0)="""RTN"",""IBCEF76"",92,0)"
^XMB(3.9,55,2,11050,0)=" . S QUAL=$P($G(^IBE(355.97,QUAL,0)),U,3)"
^XMB(3.9,55,2,11051,0)="""RTN"",""IBCEF76"",93,0)"
^XMB(3.9,55,2,11052,0)=" . Q:QUAL="""""
^XMB(3.9,55,2,11053,0)="""RTN"",""IBCEF76"",94,0)"
^XMB(3.9,55,2,11054,0)=" . I FT=1,SORT1=""O"" Q:$$OP3^IBCEF73(FT)'[(U_QUAL_U)   ; Institutional"
^XMB(3.9,55,2,11055,0)="""RTN"",""IBCEF76"",95,0)"
^XMB(3.9,55,2,11056,0)=" . I FT=2,SORT1=""O"" Q:$$OP7^IBCEF73(FT)'[(U_QUAL_U)   ; Professional"
^XMB(3.9,55,2,11057,0)="""RTN"",""IBCEF76"",96,0)"
^XMB(3.9,55,2,11058,0)=" . I $G(SEG)=""SUB1"" Q:$$SUB1^IBCEF73(FT)'[(U_QUAL_U)"
^XMB(3.9,55,2,11059,0)="""RTN"",""IBCEF76"",97,0)"
^XMB(3.9,55,2,11060,0)=" . I $P(Z0,U,2)="""" S IDTBL(""OWN"",QUAL)=ID  ; set up default of lab or facilities own ids"
^XMB(3.9,55,2,11061,0)="""RTN"",""IBCEF76"",98,0)"
^XMB(3.9,55,2,11062,0)=" . I $P(Z0,U,2)=INS S IDTBL(""INS"",QUAL)=ID  ; set up default for division"
^XMB(3.9,55,2,11063,0)="""RTN"",""IBCEF76"",99,0)"
^XMB(3.9,55,2,11064,0)=" ;"
^XMB(3.9,55,2,11065,0)="""RTN"",""IBCEF76"",100,0)"
^XMB(3.9,55,2,11066,0)=" S CNT=0"
^XMB(3.9,55,2,11067,0)="""RTN"",""IBCEF76"",101,0)"
^XMB(3.9,55,2,11068,0)=" S IDS(""LAB/FAC"",IBIFN,SORT1,SORT2)=$E(""PST"",COB)_U_PRV"
^XMB(3.9,55,2,11069,0)="""RTN"",""IBCEF76"",102,0)"
^XMB(3.9,55,2,11070,0)=" ; get primary"
^XMB(3.9,55,2,11071,0)="""RTN"",""IBCEF76"",103,0)"
^XMB(3.9,55,2,11072,0)=" S Z0=$G(^IBA(355.93,+PRV,0))"
^XMB(3.9,55,2,11073,0)="""RTN"",""IBCEF76"",104,0)"
^XMB(3.9,55,2,11074,0)=" I $P(Z0,U,9)]"""",$P(Z0,U,13)]"""" S IDS(""LAB/FAC"",IBIFN,SORT1,SORT2,CNT)=$$STRIP($P($G(^IBE(355.97,$P(Z0,U,13),0)),U,3)_U_$P(Z0,U,9),1,U,IBSTRIP)"
^XMB(3.9,55,2,11075,0)="""RTN"",""IBCEF76"",105,0)"
^XMB(3.9,55,2,11076,0)=" ; get secondarys in order"
^XMB(3.9,55,2,11077,0)="""RTN"",""IBCEF76"",106,0)"
^XMB(3.9,55,2,11078,0)=" I $D(IDTBL(""INS"")) D"
^XMB(3.9,55,2,11079,0)="""RTN"",""IBCEF76"",107,0)"
^XMB(3.9,55,2,11080,0)=" . N Z S Z="""" F  S Z=$O(IDTBL(""INS"",Z)) Q:Z=""""  S CNT=CNT+1,IDS(""LAB/FAC"",IBIFN,SORT1,SORT2,CNT)=Z_U_IDTBL(""INS"",Z) Q:CNT=IBLIMIT"
^XMB(3.9,55,2,11081,0)="""RTN"",""IBCEF76"",108,0)"
^XMB(3.9,55,2,11082,0)=" I $D(IDTBL(""OWN"")),CNT'=IBLIMIT D"
^XMB(3.9,55,2,11083,0)="""RTN"",""IBCEF76"",109,0)"
^XMB(3.9,55,2,11084,0)=" . N Z S Z="""" F  S Z=$O(IDTBL(""OWN"",Z)) Q:Z=""""  I '$D(IDTBL(""INS"",Z)) S CNT=CNT+1,IDS(""LAB/FAC"",IBIFN,SORT1,SORT2,CNT)=Z_U_IDTBL(""OWN"",Z) Q:CNT=IBLIMIT"
^XMB(3.9,55,2,11085,0)="""RTN"",""IBCEF76"",110,0)"
^XMB(3.9,55,2,11086,0)=" Q"
^XMB(3.9,55,2,11087,0)="""RTN"",""IBCEF76"",111,0)"
^XMB(3.9,55,2,11088,0)=" ;"
^XMB(3.9,55,2,11089,0)="""RTN"",""IBCEF76"",112,0)"
^XMB(3.9,55,2,11090,0)="STRIP(X,SPACE,EXC,IBSTRIP) ;"
^XMB(3.9,55,2,11091,0)="""RTN"",""IBCEF76"",113,0)"
^XMB(3.9,55,2,11092,0)=" ; Strip punctuation from data in X"
^XMB(3.9,55,2,11093,0)="""RTN"",""IBCEF76"",114,0)"
^XMB(3.9,55,2,11094,0)=" ; SPACE = flag if 1 strip SPACES"
^XMB(3.9,55,2,11095,0)="""RTN"",""IBCEF76"",115,0)"
^XMB(3.9,55,2,11096,0)=" ; EXC = list of punct not to strip"
^XMB(3.9,55,2,11097,0)="""RTN"",""IBCEF76"",116,0)"
^XMB(3.9,55,2,11098,0)=" ; "
^XMB(3.9,55,2,11099,0)="""RTN"",""IBCEF76"",117,0)"
^XMB(3.9,55,2,11100,0)=" Q:'$G(IBSTRIP) X"
^XMB(3.9,55,2,11101,0)="""RTN"",""IBCEF76"",118,0)"
^XMB(3.9,55,2,11102,0)=" Q $$NOPUNCT^IBCEF(X,$G(SPACE),$G(EXC))"
^XMB(3.9,55,2,11103,0)="""RTN"",""IBCEF76"",119,0)"
^XMB(3.9,55,2,11104,0)=" ;"
^XMB(3.9,55,2,11105,0)="""RTN"",""IBCEF76"",120,0)"
^XMB(3.9,55,2,11106,0)="OTH(IBIFN,IBXSAVE,IBXDATA,COND,SEG) ; Procedure used in piece 2 of some output"
^XMB(3.9,55,2,11107,0)="""RTN"",""IBCEF76"",121,0)"
^XMB(3.9,55,2,11108,0)=" ; formatter segments for other insurance"
^XMB(3.9,55,2,11109,0)="""RTN"",""IBCEF76"",122,0)"
^XMB(3.9,55,2,11110,0)=" ; COND = 0/1 value passed in that determines whether or not to call the"
^XMB(3.9,55,2,11111,0)="""RTN"",""IBCEF76"",123,0)"
^XMB(3.9,55,2,11112,0)=" ;        provider ID function"
^XMB(3.9,55,2,11113,0)="""RTN"",""IBCEF76"",124,0)"
^XMB(3.9,55,2,11114,0)=" ;  SEG = name of segment for use in calling ID^IBCEF2 (4 characters)"
^XMB(3.9,55,2,11115,0)="""RTN"",""IBCEF76"",125,0)"
^XMB(3.9,55,2,11116,0)=" ;"
^XMB(3.9,55,2,11117,0)="""RTN"",""IBCEF76"",126,0)"
^XMB(3.9,55,2,11118,0)=" N Z"
^XMB(3.9,55,2,11119,0)="""RTN"",""IBCEF76"",127,0)"
^XMB(3.9,55,2,11120,0)=" D CLEANUP^IBCEF75(.IBXSAVE)"
^XMB(3.9,55,2,11121,0)="""RTN"",""IBCEF76"",128,0)"
^XMB(3.9,55,2,11122,0)=" I COND D ALLIDS^IBCEF75(IBIFN,.IBXSAVE,1)"
^XMB(3.9,55,2,11123,0)="""RTN"",""IBCEF76"",129,0)"
^XMB(3.9,55,2,11124,0)=" ;"
^XMB(3.9,55,2,11125,0)="""RTN"",""IBCEF76"",130,0)"
^XMB(3.9,55,2,11126,0)=" ; Special Check:  if Other Insurance #2 has secondary ID's while Other"
^XMB(3.9,55,2,11127,0)="""RTN"",""IBCEF76"",131,0)"
^XMB(3.9,55,2,11128,0)=" ; Insurance #1 does not, then move up #2 to be #1 here.  This is to"
^XMB(3.9,55,2,11129,0)="""RTN"",""IBCEF76"",132,0)"
^XMB(3.9,55,2,11130,0)=" ; ensure the output formatter IBXDATA array is built properly."
^XMB(3.9,55,2,11131,0)="""RTN"",""IBCEF76"",133,0)"
^XMB(3.9,55,2,11132,0)=" ;"
^XMB(3.9,55,2,11133,0)="""RTN"",""IBCEF76"",134,0)"
^XMB(3.9,55,2,11134,0)=" I $O(IBXSAVE(""LAB/FAC"",IBIFN,""O"",2,0)),'$O(IBXSAVE(""LAB/FAC"",IBIFN,""O"",1,0)) D"
^XMB(3.9,55,2,11135,0)="""RTN"",""IBCEF76"",135,0)"
^XMB(3.9,55,2,11136,0)=" . K IBXSAVE(""LAB/FAC"",IBIFN,""O"",1)"
^XMB(3.9,55,2,11137,0)="""RTN"",""IBCEF76"",136,0)"
^XMB(3.9,55,2,11138,0)=" . M IBXSAVE(""LAB/FAC"",IBIFN,""O"",1)=IBXSAVE(""LAB/FAC"",IBIFN,""O"",2)"
^XMB(3.9,55,2,11139,0)="""RTN"",""IBCEF76"",137,0)"
^XMB(3.9,55,2,11140,0)=" . K IBXSAVE(""LAB/FAC"",IBIFN,""O"",2)"
^XMB(3.9,55,2,11141,0)="""RTN"",""IBCEF76"",138,0)"
^XMB(3.9,55,2,11142,0)=" . Q"
^XMB(3.9,55,2,11143,0)="""RTN"",""IBCEF76"",139,0)"
^XMB(3.9,55,2,11144,0)=" ;"
^XMB(3.9,55,2,11145,0)="""RTN"",""IBCEF76"",140,0)"
^XMB(3.9,55,2,11146,0)=" K IBXDATA"
^XMB(3.9,55,2,11147,0)="""RTN"",""IBCEF76"",141,0)"
^XMB(3.9,55,2,11148,0)=" S Z=0"
^XMB(3.9,55,2,11149,0)="""RTN"",""IBCEF76"",142,0)"
^XMB(3.9,55,2,11150,0)=" F  S Z=$O(IBXSAVE(""LAB/FAC"",IBIFN,""O"",Z)) Q:'Z  D"
^XMB(3.9,55,2,11151,0)="""RTN"",""IBCEF76"",143,0)"
^XMB(3.9,55,2,11152,0)=" . I '$O(IBXSAVE(""LAB/FAC"",IBIFN,""O"",Z,0)) Q"
^XMB(3.9,55,2,11153,0)="""RTN"",""IBCEF76"",144,0)"
^XMB(3.9,55,2,11154,0)=" . S IBXDATA(Z)=$P($G(IBXSAVE(""LAB/FAC"",IBIFN,""O"",Z)),U,1)"
^XMB(3.9,55,2,11155,0)="""RTN"",""IBCEF76"",145,0)"
^XMB(3.9,55,2,11156,0)=" . I Z>1 D ID^IBCEF2(Z,SEG)"
^XMB(3.9,55,2,11157,0)="""RTN"",""IBCEF76"",146,0)"
^XMB(3.9,55,2,11158,0)=" . Q"
^XMB(3.9,55,2,11159,0)="""RTN"",""IBCEF76"",147,0)"
^XMB(3.9,55,2,11160,0)="OTHX ;"
^XMB(3.9,55,2,11161,0)="""RTN"",""IBCEF76"",148,0)"
^XMB(3.9,55,2,11162,0)=" Q"
^XMB(3.9,55,2,11163,0)="""RTN"",""IBCEF76"",149,0)"
^XMB(3.9,55,2,11164,0)=" ;"
^XMB(3.9,55,2,11165,0)="""RTN"",""IBCEF77"")"
^XMB(3.9,55,2,11166,0)="0^72^B6621719"
^XMB(3.9,55,2,11167,0)="""RTN"",""IBCEF77"",1,0)"
^XMB(3.9,55,2,11168,0)="IBCEF77 ;WOIFO/SS - FORMATTER/EXTRACT BILL FUNCTIONS ;31-JUL-03"
^XMB(3.9,55,2,11169,0)="""RTN"",""IBCEF77"",2,0)"
^XMB(3.9,55,2,11170,0)=" ;;2.0;INTEGRATED BILLING;**232,280,155,290,291,320**;21-MAR-94"
^XMB(3.9,55,2,11171,0)="""RTN"",""IBCEF77"",3,0)"
^XMB(3.9,55,2,11172,0)=" ;; Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,11173,0)="""RTN"",""IBCEF77"",4,0)"
^XMB(3.9,55,2,11174,0)=" ;"
^XMB(3.9,55,2,11175,0)="""RTN"",""IBCEF77"",5,0)"
^XMB(3.9,55,2,11176,0)="SORT(IBPRNUM,IBPRTYP,IB399,IBSRC,IBDST,IBN,IBEXC,IBSEQ,IBLIMIT) ;"
^XMB(3.9,55,2,11177,0)="""RTN"",""IBCEF77"",6,0)"
^XMB(3.9,55,2,11178,0)=" N IBXIEN,IBXDATA,IBNET,IBTRI,IB1,IB2,IBID,Z,IBZ,IBZ1,IBSVP"
^XMB(3.9,55,2,11179,0)="""RTN"",""IBCEF77"",7,0)"
^XMB(3.9,55,2,11180,0)=" S (IB1,IB2,IBZ,IBZ1,IBTRI)="""""
^XMB(3.9,55,2,11181,0)="""RTN"",""IBCEF77"",8,0)"
^XMB(3.9,55,2,11182,0)=" D F^IBCEF(""N-ALL ATT/RENDERING PROV SSN"",""IBZ"",,IB399)"
^XMB(3.9,55,2,11183,0)="""RTN"",""IBCEF77"",9,0)"
^XMB(3.9,55,2,11184,0)=" S IBZ1=$$ALLPTYP^IBCEF3(IB399)"
^XMB(3.9,55,2,11185,0)="""RTN"",""IBCEF77"",10,0)"
^XMB(3.9,55,2,11186,0)=" F Z=1:1:3 S $P(IBZ1,U,Z)=$S($P(IBZ1,U,Z)=""CH"":1,1:"""") S:$P(IBZ1,U,Z) IBTRI=1"
^XMB(3.9,55,2,11187,0)="""RTN"",""IBCEF77"",11,0)"
^XMB(3.9,55,2,11188,0)=" S IBNET=$$NETID^IBCEP() ; netwrk id type"
^XMB(3.9,55,2,11189,0)="""RTN"",""IBCEF77"",12,0)"
^XMB(3.9,55,2,11190,0)=" I $G(IBN) D"
^XMB(3.9,55,2,11191,0)="""RTN"",""IBCEF77"",13,0)"
^XMB(3.9,55,2,11192,0)=" . S Z=0 F  S Z=$O(IBDST(IBPRNUM,IBPRTYP,Z)) Q:'Z  S IBID(+$P(IBDST(IBPRNUM,IBPRTYP,Z),U,9))="""""
^XMB(3.9,55,2,11193,0)="""RTN"",""IBCEF77"",14,0)"
^XMB(3.9,55,2,11194,0)=" F  S IB1=$O(IBSRC(IB1)) Q:IB1=""""  D  Q:IBN=IBLIMIT"
^XMB(3.9,55,2,11195,0)="""RTN"",""IBCEF77"",15,0)"
^XMB(3.9,55,2,11196,0)=" . N OK,IBSTLIC"
^XMB(3.9,55,2,11197,0)="""RTN"",""IBCEF77"",16,0)"
^XMB(3.9,55,2,11198,0)=" . S IBSTLIC="""""
^XMB(3.9,55,2,11199,0)="""RTN"",""IBCEF77"",17,0)"
^XMB(3.9,55,2,11200,0)=" . F  S IB2=$O(IBSRC(IB1,IB2)) Q:IB2=""""  D  Q:IBN=IBLIMIT"
^XMB(3.9,55,2,11201,0)="""RTN"",""IBCEF77"",18,0)"
^XMB(3.9,55,2,11202,0)=" . . S IBSVP=$P(IBSRC(IB1,IB2),U)"
^XMB(3.9,55,2,11203,0)="""RTN"",""IBCEF77"",19,0)"
^XMB(3.9,55,2,11204,0)=" . . ; If ID overridden, output no others of this type"
^XMB(3.9,55,2,11205,0)="""RTN"",""IBCEF77"",20,0)"
^XMB(3.9,55,2,11206,0)=" . . I $G(IBEXC),$P($G(IBSRC(IB1,IB2)),U,9)=IBEXC Q"
^XMB(3.9,55,2,11207,0)="""RTN"",""IBCEF77"",21,0)"
^XMB(3.9,55,2,11208,0)=" . . ; Ck state of care/lic match if st lic#"
^XMB(3.9,55,2,11209,0)="""RTN"",""IBCEF77"",22,0)"
^XMB(3.9,55,2,11210,0)=" . . I $P($G(IBSRC(IB1,IB2)),U,3)=""0B"" S OK=1 D  Q:'OK"
^XMB(3.9,55,2,11211,0)="""RTN"",""IBCEF77"",23,0)"
^XMB(3.9,55,2,11212,0)=" . . . I +$$CAREST^IBCEP2A(IB399)'=$P(IBSRC(IB1,IB2),U,7) S IBSTLIC=1 Q"
^XMB(3.9,55,2,11213,0)="""RTN"",""IBCEF77"",24,0)"
^XMB(3.9,55,2,11214,0)=" . . . I $G(IBSTLIC(0))'="""" S OK=0 Q"
^XMB(3.9,55,2,11215,0)="""RTN"",""IBCEF77"",25,0)"
^XMB(3.9,55,2,11216,0)=" . . . S IBSTLIC(0)=$G(IBSRC(IB1,IB2)),OK=0"
^XMB(3.9,55,2,11217,0)="""RTN"",""IBCEF77"",26,0)"
^XMB(3.9,55,2,11218,0)=" . . ; Exclude SSN from sec ids unless required"
^XMB(3.9,55,2,11219,0)="""RTN"",""IBCEF77"",27,0)"
^XMB(3.9,55,2,11220,0)=" . . I $P($G(IBSRC(IB1,IB2)),U,3)=""SY"" Q"
^XMB(3.9,55,2,11221,0)="""RTN"",""IBCEF77"",28,0)"
^XMB(3.9,55,2,11222,0)=" . . ; Only 1 of each prov id type"
^XMB(3.9,55,2,11223,0)="""RTN"",""IBCEF77"",29,0)"
^XMB(3.9,55,2,11224,0)=" . . Q:$D(IBID(+$P($G(IBSRC(IB1,IB2)),U,9)))"
^XMB(3.9,55,2,11225,0)="""RTN"",""IBCEF77"",30,0)"
^XMB(3.9,55,2,11226,0)=" . . S IBN=IBN+1,IBID(+$P($G(IBSRC(IB1,IB2)),U,9))="""""
^XMB(3.9,55,2,11227,0)="""RTN"",""IBCEF77"",31,0)"
^XMB(3.9,55,2,11228,0)=" . . S IBDST(IBPRNUM,IBPRTYP,IBN)=$G(IBSRC(IB1,IB2))"
^XMB(3.9,55,2,11229,0)="""RTN"",""IBCEF77"",32,0)"
^XMB(3.9,55,2,11230,0)=" . I IBN'=IBLIMIT,'$G(IBSTLIC),$G(IBSTLIC(0))'="""" S IBN=IBN+1,IBDST(IBPRNUM,IBPRTYP,IBN)=IBSTLIC(0)"
^XMB(3.9,55,2,11231,0)="""RTN"",""IBCEF77"",33,0)"
^XMB(3.9,55,2,11232,0)=" ;I $$FT^IBCEF(IBIFN)=2,$G(IBID(IBNET))="""",IBTRI,$P(IBZ1,U,IBSEQ) D"
^XMB(3.9,55,2,11233,0)="""RTN"",""IBCEF77"",34,0)"
^XMB(3.9,55,2,11234,0)=" I $$FT^IBCEF(IB399)=2,$G(IBID(IBNET))="""",IBTRI,$P(IBZ1,U,IBSEQ) D    ; WCJ 02/13/2006"
^XMB(3.9,55,2,11235,0)="""RTN"",""IBCEF77"",35,0)"
^XMB(3.9,55,2,11236,0)=" . Q:$P(IBZ,U,IBPRTYP)="""""
^XMB(3.9,55,2,11237,0)="""RTN"",""IBCEF77"",36,0)"
^XMB(3.9,55,2,11238,0)=" . ; here, no network id & TRICARE ins co."
^XMB(3.9,55,2,11239,0)="""RTN"",""IBCEF77"",37,0)"
^XMB(3.9,55,2,11240,0)=" . N Z"
^XMB(3.9,55,2,11241,0)="""RTN"",""IBCEF77"",38,0)"
^XMB(3.9,55,2,11242,0)=" . S Z=+$O(^DGCR(399,IB399,""PRV"",""B"",IBPRTYP,0)),Z=$P($G(^DGCR(399,IB399,""PRV"",Z,0)),U,2)"
^XMB(3.9,55,2,11243,0)="""RTN"",""IBCEF77"",39,0)"
^XMB(3.9,55,2,11244,0)=" . S IBN=IBN+1,IBDST(IBPRNUM,IBPRTYP,IBN)=Z_U_+$$POLICY^IBCEF(IB399,1,IBSEQ)_U_$P($G(^IBE(355.97,IBNET,0)),U,3)_U_$P(IBZ,U,IBPRTYP)_U_""0^0^^^""_IBNET"
^XMB(3.9,55,2,11245,0)="""RTN"",""IBCEF77"",40,0)"
^XMB(3.9,55,2,11246,0)=" Q"
^XMB(3.9,55,2,11247,0)="""RTN"",""IBCEFG4"")"
^XMB(3.9,55,2,11248,0)="0^48^B25221487^B23779170"
^XMB(3.9,55,2,11249,0)="""RTN"",""IBCEFG4"",1,0)"
^XMB(3.9,55,2,11250,0)="IBCEFG4 ;ALB/TMP - OUTPUT FORMATTER MAINTENANCE - FORM ACTION PROCESSING ;22-JAN-96"
^XMB(3.9,55,2,11251,0)="""RTN"",""IBCEFG4"",2,0)"
^XMB(3.9,55,2,11252,0)=" ;;2.0;INTEGRATED BILLING;**52,51,320**;21-MAR-94"
^XMB(3.9,55,2,11253,0)="""RTN"",""IBCEFG4"",3,0)"
^XMB(3.9,55,2,11254,0)=" ;"
^XMB(3.9,55,2,11255,0)="""RTN"",""IBCEFG4"",4,0)"
^XMB(3.9,55,2,11256,0)="ADDL ; Add a new local form"
^XMB(3.9,55,2,11257,0)="""RTN"",""IBCEFG4"",5,0)"
^XMB(3.9,55,2,11258,0)=" N IBCT,IBDA,IBNAME,IBTYPE,IBBASE,IBNEW6,IBNEW7,IBOLD,IBOLD6,IBOLD7,LAST6,LAST7,DIR,X,Y,DD,DO,DIE,DR,DA,Z,Z0,Z1"
^XMB(3.9,55,2,11259,0)="""RTN"",""IBCEFG4"",6,0)"
^XMB(3.9,55,2,11260,0)=" D FULL^VALM1"
^XMB(3.9,55,2,11261,0)="""RTN"",""IBCEFG4"",7,0)"
^XMB(3.9,55,2,11262,0)=" S DIR(""A"")=""Enter a new LOCAL FORM NAME: "",DIR(0)=""FA^1:30^D @(""""DUPNM""""_$C(94)_""""IBCEFG4"""")"",DIR(""?"")=""Enter the name that you want your new local form to be referenced by"" D ^DIR K DIR"
^XMB(3.9,55,2,11263,0)="""RTN"",""IBCEFG4"",8,0)"
^XMB(3.9,55,2,11264,0)=" G:$D(DIRUT) ADDLQ"
^XMB(3.9,55,2,11265,0)="""RTN"",""IBCEFG4"",9,0)"
^XMB(3.9,55,2,11266,0)=" S IBNAME=Y"
^XMB(3.9,55,2,11267,0)="""RTN"",""IBCEFG4"",10,0)"
^XMB(3.9,55,2,11268,0)="ADDL1 S DIR(""A"")=""Enter form number (must be > 9999): "",DIR(0)=""NA^9999:999999999^D @(""""DUPNUM""""_$C(94)_""""IBCEFG4"""")"""
^XMB(3.9,55,2,11269,0)="""RTN"",""IBCEFG4"",11,0)"
^XMB(3.9,55,2,11270,0)=" S DIR(""?"")=""Enter the internal entry number that will be assigned to this form"",DIR(""B"")=$O(^IBE(353,""A""),-1)+1 S:DIR(""B"")<10000 DIR(""B"")=10000 D ^DIR K DIR"
^XMB(3.9,55,2,11271,0)="""RTN"",""IBCEFG4"",12,0)"
^XMB(3.9,55,2,11272,0)=" G:$D(DIRUT) ADDLQ"
^XMB(3.9,55,2,11273,0)="""RTN"",""IBCEFG4"",13,0)"
^XMB(3.9,55,2,11274,0)=" S IBDA=+Y L +^IBE(353,IBDA):5 I '$T W !,*7,""Another user has taken this number ... please select a new one."" G ADDL1"
^XMB(3.9,55,2,11275,0)="""RTN"",""IBCEFG4"",14,0)"
^XMB(3.9,55,2,11276,0)=" K DD,DO"
^XMB(3.9,55,2,11277,0)="""RTN"",""IBCEFG4"",15,0)"
^XMB(3.9,55,2,11278,0)=" S DIC=""^IBE(353,"",DIC(0)=""L"",DLAYGO=353,DIC(""DR"")=""2.04////0;@10;2.01;I X="""""""" W !,*7,""""MUST HAVE A BASE FILE!!"""" S Y=""""@10"""";@20;2.02;I X="""""""" W !,*7,""""MUST HAVE A FORMAT TYPE!!"""" S Y=""""@20"""""",DINUM=IBDA,X=IBNAME D FILE^DICN K DO,DD,DLAYGO"
^XMB(3.9,55,2,11279,0)="""RTN"",""IBCEFG4"",16,0)"
^XMB(3.9,55,2,11280,0)=" S $P(^IBE(353,0),U,3)=$O(^IBE(353,9999),-1) L -^IBE(353,IBDA)"
^XMB(3.9,55,2,11281,0)="""RTN"",""IBCEFG4"",17,0)"
^XMB(3.9,55,2,11282,0)=" G:Y<0 ADDLQ"
^XMB(3.9,55,2,11283,0)="""RTN"",""IBCEFG4"",18,0)"
^XMB(3.9,55,2,11284,0)=" W !!,""WANT TO ASSOCIATE THIS FORM WITH A NATIONAL FORM"" S %=2 D YN^DICN G:'(%+1#3) ADDL2"
^XMB(3.9,55,2,11285,0)="""RTN"",""IBCEFG4"",19,0)"
^XMB(3.9,55,2,11286,0)=" K % W !"
^XMB(3.9,55,2,11287,0)="""RTN"",""IBCEFG4"",20,0)"
^XMB(3.9,55,2,11288,0)=" S DIE=""^IBE(353,"",DR=""2.05"",DA=IBDA D ^DIE W !"
^XMB(3.9,55,2,11289,0)="""RTN"",""IBCEFG4"",21,0)"
^XMB(3.9,55,2,11290,0)=" I '$P($G(^IBE(353,IBDA,2)),U,5) W !,*7,""FORM NOT ASSOCIATED WITH ANY NATIONAL FORM"""
^XMB(3.9,55,2,11291,0)="""RTN"",""IBCEFG4"",22,0)"
^XMB(3.9,55,2,11292,0)=" G ADDLQ"
^XMB(3.9,55,2,11293,0)="""RTN"",""IBCEFG4"",23,0)"
^XMB(3.9,55,2,11294,0)="ADDL2 W !!,""WANT TO COPY ALL FIELDS FROM AN EXISTING FORM"" S %=2 D YN^DICN G:'(%+1#3) ADDLQ"
^XMB(3.9,55,2,11295,0)="""RTN"",""IBCEFG4"",24,0)"
^XMB(3.9,55,2,11296,0)=" S DIC=""^IBE(353,"",DIC(0)=""AEMQ"",DIC(""A"")=""Select FORM TO COPY FROM: "",DIC(""S"")=""I $P($G(^(2)),U,5)="""""""",$P($G(^IBE(353,""_IBDA_"",2)),U,2)=$P($G(^IBE(353,Y,2)),U,2),+$G(^IBE(353,""_IBDA_"",2))=+$G(^IBE(353,Y,2)),Y'=""_IBDA D ^DIC K DIC"
^XMB(3.9,55,2,11297,0)="""RTN"",""IBCEFG4"",25,0)"
^XMB(3.9,55,2,11298,0)=" G:Y<0 ADDL2 S IBOLD=+Y"
^XMB(3.9,55,2,11299,0)="""RTN"",""IBCEFG4"",26,0)"
^XMB(3.9,55,2,11300,0)=" W !,""ARE YOU SURE YOU WANT TO MAKE THIS COPY"" S %=2 D YN^DICN G:'(%+1#3) ADDLQ"
^XMB(3.9,55,2,11301,0)="""RTN"",""IBCEFG4"",27,0)"
^XMB(3.9,55,2,11302,0)=" W !!,""This may take a little while ... please be patient while I build your new form"""
^XMB(3.9,55,2,11303,0)="""RTN"",""IBCEFG4"",28,0)"
^XMB(3.9,55,2,11304,0)=" ;"
^XMB(3.9,55,2,11305,0)="""RTN"",""IBCEFG4"",29,0)"
^XMB(3.9,55,2,11306,0)=" ; IB*2*320"
^XMB(3.9,55,2,11307,0)="""RTN"",""IBCEFG4"",30,0)"
^XMB(3.9,55,2,11308,0)=" ; Make sure files 364.6 and 364.7 are set-up to add new entries in the"
^XMB(3.9,55,2,11309,0)="""RTN"",""IBCEFG4"",31,0)"
^XMB(3.9,55,2,11310,0)=" ; local number range (greater than 10000).  We cannot allow these local"
^XMB(3.9,55,2,11311,0)="""RTN"",""IBCEFG4"",32,0)"
^XMB(3.9,55,2,11312,0)=" ; entries to get added into the national number range."
^XMB(3.9,55,2,11313,0)="""RTN"",""IBCEFG4"",33,0)"
^XMB(3.9,55,2,11314,0)=" F Z=364.6,364.7 I $P($G(^IBA(Z,0)),U,3)<10000 D"
^XMB(3.9,55,2,11315,0)="""RTN"",""IBCEFG4"",34,0)"
^XMB(3.9,55,2,11316,0)=" . N IBLAST S IBLAST=$O(^IBA(Z,"" ""),-1)"
^XMB(3.9,55,2,11317,0)="""RTN"",""IBCEFG4"",35,0)"
^XMB(3.9,55,2,11318,0)=" . I IBLAST<10000 S IBLAST=10000"
^XMB(3.9,55,2,11319,0)="""RTN"",""IBCEFG4"",36,0)"
^XMB(3.9,55,2,11320,0)=" . S $P(^IBA(Z,0),U,3)=IBLAST"
^XMB(3.9,55,2,11321,0)="""RTN"",""IBCEFG4"",37,0)"
^XMB(3.9,55,2,11322,0)=" . Q"
^XMB(3.9,55,2,11323,0)="""RTN"",""IBCEFG4"",38,0)"
^XMB(3.9,55,2,11324,0)=" ;"
^XMB(3.9,55,2,11325,0)="""RTN"",""IBCEFG4"",39,0)"
^XMB(3.9,55,2,11326,0)=" K ^TMP(""IBX"",$J)"
^XMB(3.9,55,2,11327,0)="""RTN"",""IBCEFG4"",40,0)"
^XMB(3.9,55,2,11328,0)=" S Z=0 F  S Z=$O(^IBA(364.6,""APAR"",IBOLD,Z)) Q:'Z  S Z0=0 F  S Z0=$O(^IBA(364.6,""APAR"",IBOLD,Z,Z0)) Q:'Z0  S ^TMP(""IBX"",$J,1,Z0)=Z,^TMP(""IBX"",$J,2,Z)=Z0 ;Save off overrides"
^XMB(3.9,55,2,11329,0)="""RTN"",""IBCEFG4"",41,0)"
^XMB(3.9,55,2,11330,0)=" ;"
^XMB(3.9,55,2,11331,0)="""RTN"",""IBCEFG4"",42,0)"
^XMB(3.9,55,2,11332,0)=" S LAST6=+$O(^DD(364.6,""GL"",0,""""),-1),LAST7=+$O(^DD(364.7,""GL"",0,""""),-1),IBCT=0"
^XMB(3.9,55,2,11333,0)="""RTN"",""IBCEFG4"",43,0)"
^XMB(3.9,55,2,11334,0)=" S IBOLD6=0 F  S IBOLD6=$O(^IBA(364.6,""B"",IBOLD,IBOLD6)) Q:'IBOLD6  S IBNEW6=$$NEW(6,IBDA) I IBNEW6 S IBCT=IBCT+1,Z=$G(^IBA(364.6,IBOLD6,0)) D"
^XMB(3.9,55,2,11335,0)="""RTN"",""IBCEFG4"",44,0)"
^XMB(3.9,55,2,11336,0)=" .S $P(^IBA(364.6,IBNEW6,0),U,4,LAST6)=$P(Z,U,4,LAST6)"
^XMB(3.9,55,2,11337,0)="""RTN"",""IBCEFG4"",45,0)"
^XMB(3.9,55,2,11338,0)=" .;"
^XMB(3.9,55,2,11339,0)="""RTN"",""IBCEFG4"",46,0)"
^XMB(3.9,55,2,11340,0)=" .I $D(^TMP(""IBX"",$J,2,IBOLD6)) S Z0=^(IBOLD6) D  ;parent record"
^XMB(3.9,55,2,11341,0)="""RTN"",""IBCEFG4"",47,0)"
^XMB(3.9,55,2,11342,0)=" ..I '$D(^TMP(""IBX"",$J,1,+Z0,1)) S ^TMP(""IBX"",$J,2,IBOLD6,1)=IBNEW6 Q"
^XMB(3.9,55,2,11343,0)="""RTN"",""IBCEFG4"",48,0)"
^XMB(3.9,55,2,11344,0)=" ..S Z1=^TMP(""IBX"",$J,1,+Z0,1),$P(^IBA(364.6,Z1,0),U,3)=IBNEW6,DIK=""^IBA(364.6,"",DA=Z1,DIK(1)=.03 D EN^DIK K DIK"
^XMB(3.9,55,2,11345,0)="""RTN"",""IBCEFG4"",49,0)"
^XMB(3.9,55,2,11346,0)=" .I $P(Z,U,3) D  ;child record"
^XMB(3.9,55,2,11347,0)="""RTN"",""IBCEFG4"",50,0)"
^XMB(3.9,55,2,11348,0)=" ..I $G(^TMP(""IBX"",$J,2,$P(Z,U,3),1)) S $P(^IBA(364.6,IBNEW6,0),U,3)=^TMP(""IBX"",$J,2,$P(Z,U,3),1) Q"
^XMB(3.9,55,2,11349,0)="""RTN"",""IBCEFG4"",51,0)"
^XMB(3.9,55,2,11350,0)=" ..S ^TMP(""IBX"",$J,1,IBOLD6,1)=IBNEW6"
^XMB(3.9,55,2,11351,0)="""RTN"",""IBCEFG4"",52,0)"
^XMB(3.9,55,2,11352,0)=" .;"
^XMB(3.9,55,2,11353,0)="""RTN"",""IBCEFG4"",53,0)"
^XMB(3.9,55,2,11354,0)=" .S DA=IBNEW6,DIK=""^IBA(364.6,"" D IX1^DIK"
^XMB(3.9,55,2,11355,0)="""RTN"",""IBCEFG4"",54,0)"
^XMB(3.9,55,2,11356,0)=" .S IBOLD7=$O(^IBA(364.7,""B"",IBOLD6,"""")) Q:'IBOLD7"
^XMB(3.9,55,2,11357,0)="""RTN"",""IBCEFG4"",55,0)"
^XMB(3.9,55,2,11358,0)=" .S IBNEW7=$$NEW(7,IBNEW6) Q:'IBNEW7"
^XMB(3.9,55,2,11359,0)="""RTN"",""IBCEFG4"",56,0)"
^XMB(3.9,55,2,11360,0)=" .S $P(^IBA(364.7,IBNEW7,0),U,3,LAST7)=$P(^IBA(364.7,IBOLD7,0),U,3,LAST7)"
^XMB(3.9,55,2,11361,0)="""RTN"",""IBCEFG4"",57,0)"
^XMB(3.9,55,2,11362,0)=" .I $G(^IBA(364.7,IBOLD7,1))'="""" S ^IBA(364.7,IBNEW7,1)=^IBA(364.7,IBOLD7,1)"
^XMB(3.9,55,2,11363,0)="""RTN"",""IBCEFG4"",58,0)"
^XMB(3.9,55,2,11364,0)=" .S DA=IBNEW7,DIK=""^IBA(364.7,"" D IX1^DIK"
^XMB(3.9,55,2,11365,0)="""RTN"",""IBCEFG4"",59,0)"
^XMB(3.9,55,2,11366,0)=" K ^TMP(""IBX"",$J)"
^XMB(3.9,55,2,11367,0)="""RTN"",""IBCEFG4"",60,0)"
^XMB(3.9,55,2,11368,0)=" W !!,""Field copy completed - "",IBCT,"" fields copied"",!!"
^XMB(3.9,55,2,11369,0)="""RTN"",""IBCEFG4"",61,0)"
^XMB(3.9,55,2,11370,0)="ADDLQ I $G(IBDA) D EDITL(IBDA),BLD^IBCEFG3"
^XMB(3.9,55,2,11371,0)="""RTN"",""IBCEFG4"",62,0)"
^XMB(3.9,55,2,11372,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,11373,0)="""RTN"",""IBCEFG4"",63,0)"
^XMB(3.9,55,2,11374,0)=" Q"
^XMB(3.9,55,2,11375,0)="""RTN"",""IBCEFG4"",64,0)"
^XMB(3.9,55,2,11376,0)=" ;"
^XMB(3.9,55,2,11377,0)="""RTN"",""IBCEFG4"",65,0)"
^XMB(3.9,55,2,11378,0)="NEW(FILE,KEY) ; Add a new local entry to file 364.FILE whose .01 field is KEY"
^XMB(3.9,55,2,11379,0)="""RTN"",""IBCEFG4"",66,0)"
^XMB(3.9,55,2,11380,0)=" ; RETURN IEN OF NEW ENTRY OR 0 IF NONE ADDED"
^XMB(3.9,55,2,11381,0)="""RTN"",""IBCEFG4"",67,0)"
^XMB(3.9,55,2,11382,0)=" K DO,DD"
^XMB(3.9,55,2,11383,0)="""RTN"",""IBCEFG4"",68,0)"
^XMB(3.9,55,2,11384,0)=" S DLAYGO=364_"".""_FILE,DIC=""^IBA(364.""_FILE_"","",DIC(""DR"")="".02////L"",X=KEY,DIC(0)=""L"""
^XMB(3.9,55,2,11385,0)="""RTN"",""IBCEFG4"",69,0)"
^XMB(3.9,55,2,11386,0)=" D FILE^DICN K DIC,DD,DO,DLAYGO"
^XMB(3.9,55,2,11387,0)="""RTN"",""IBCEFG4"",70,0)"
^XMB(3.9,55,2,11388,0)=" W ""."""
^XMB(3.9,55,2,11389,0)="""RTN"",""IBCEFG4"",71,0)"
^XMB(3.9,55,2,11390,0)=" Q $S(Y>0:+Y,1:0)"
^XMB(3.9,55,2,11391,0)="""RTN"",""IBCEFG4"",72,0)"
^XMB(3.9,55,2,11392,0)=" ;"
^XMB(3.9,55,2,11393,0)="""RTN"",""IBCEFG4"",73,0)"
^XMB(3.9,55,2,11394,0)="EDIT ; Edit a local form"
^XMB(3.9,55,2,11395,0)="""RTN"",""IBCEFG4"",74,0)"
^XMB(3.9,55,2,11396,0)=" D FULL^VALM1"
^XMB(3.9,55,2,11397,0)="""RTN"",""IBCEFG4"",75,0)"
^XMB(3.9,55,2,11398,0)=" D:$G(IBCEXDA) EDITL(IBCEXDA),BLDX^IBCEFG3"
^XMB(3.9,55,2,11399,0)="""RTN"",""IBCEFG4"",76,0)"
^XMB(3.9,55,2,11400,0)=" S VALMBCK=$S($D(^IBE(353,+$G(IBCEXDA))):""R"",1:""Q"")"
^XMB(3.9,55,2,11401,0)="""RTN"",""IBCEFG4"",77,0)"
^XMB(3.9,55,2,11402,0)=" Q"
^XMB(3.9,55,2,11403,0)="""RTN"",""IBCEFG4"",78,0)"
^XMB(3.9,55,2,11404,0)=" ;"
^XMB(3.9,55,2,11405,0)="""RTN"",""IBCEFG4"",79,0)"
^XMB(3.9,55,2,11406,0)="EDITL(DA) ; Edit a local form whose entry number is DA"
^XMB(3.9,55,2,11407,0)="""RTN"",""IBCEFG4"",80,0)"
^XMB(3.9,55,2,11408,0)=" S DIE=""^IBE(353,"",DR=""[IBCE ADD/EDIT LOCAL FORM]"" D ^DIE"
^XMB(3.9,55,2,11409,0)="""RTN"",""IBCEFG4"",81,0)"
^XMB(3.9,55,2,11410,0)=" Q"
^XMB(3.9,55,2,11411,0)="""RTN"",""IBCEFG4"",82,0)"
^XMB(3.9,55,2,11412,0)=" ;"
^XMB(3.9,55,2,11413,0)="""RTN"",""IBCEFG4"",83,0)"
^XMB(3.9,55,2,11414,0)="FFLDS ; Edit Local Form Fields"
^XMB(3.9,55,2,11415,0)="""RTN"",""IBCEFG4"",84,0)"
^XMB(3.9,55,2,11416,0)=" D FULL^VALM1"
^XMB(3.9,55,2,11417,0)="""RTN"",""IBCEFG4"",85,0)"
^XMB(3.9,55,2,11418,0)=" D EN^VALM(""IBCE FORM FIELDS LIST"")"
^XMB(3.9,55,2,11419,0)="""RTN"",""IBCEFG4"",86,0)"
^XMB(3.9,55,2,11420,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,11421,0)="""RTN"",""IBCEFG4"",87,0)"
^XMB(3.9,55,2,11422,0)=" Q"
^XMB(3.9,55,2,11423,0)="""RTN"",""IBCEFG4"",88,0)"
^XMB(3.9,55,2,11424,0)=" ; "
^XMB(3.9,55,2,11425,0)="""RTN"",""IBCEFG4"",89,0)"
^XMB(3.9,55,2,11426,0)="CHGFORM ; Select a new form without going back a screen"
^XMB(3.9,55,2,11427,0)="""RTN"",""IBCEFG4"",90,0)"
^XMB(3.9,55,2,11428,0)=" N DIC,DA"
^XMB(3.9,55,2,11429,0)="""RTN"",""IBCEFG4"",91,0)"
^XMB(3.9,55,2,11430,0)=" D FULL^VALM1"
^XMB(3.9,55,2,11431,0)="""RTN"",""IBCEFG4"",92,0)"
^XMB(3.9,55,2,11432,0)=" S DIC=""^IBE(353,"",DIC(""S"")=""I $P($G(^(2)),U,4)=0"",DIC(0)=""AEMQ"" D ^DIC"
^XMB(3.9,55,2,11433,0)="""RTN"",""IBCEFG4"",93,0)"
^XMB(3.9,55,2,11434,0)=" I Y>0 S IBCEXDA=+Y D HDRX^IBCEFG3,BLDX^IBCEFG3"
^XMB(3.9,55,2,11435,0)="""RTN"",""IBCEFG4"",94,0)"
^XMB(3.9,55,2,11436,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,11437,0)="""RTN"",""IBCEFG4"",95,0)"
^XMB(3.9,55,2,11438,0)=" Q"
^XMB(3.9,55,2,11439,0)="""RTN"",""IBCEFG4"",96,0)"
^XMB(3.9,55,2,11440,0)=" ;"
^XMB(3.9,55,2,11441,0)="""RTN"",""IBCEFG4"",97,0)"
^XMB(3.9,55,2,11442,0)="FASTEXIT ; Sets a flag that system should be exited"
^XMB(3.9,55,2,11443,0)="""RTN"",""IBCEFG4"",98,0)"
^XMB(3.9,55,2,11444,0)=" S VALMBCK=""Q"""
^XMB(3.9,55,2,11445,0)="""RTN"",""IBCEFG4"",99,0)"
^XMB(3.9,55,2,11446,0)=" I $G(VALMEVL) D  ;Ask this for all but the last level"
^XMB(3.9,55,2,11447,0)="""RTN"",""IBCEFG4"",100,0)"
^XMB(3.9,55,2,11448,0)=" .D FULL^VALM1"
^XMB(3.9,55,2,11449,0)="""RTN"",""IBCEFG4"",101,0)"
^XMB(3.9,55,2,11450,0)=" .K DIR S DIR(0)=""Y"",DIR(""A"")=""Exit option entirely"",DIR(""B"")=""NO"" D ^DIR K DIR"
^XMB(3.9,55,2,11451,0)="""RTN"",""IBCEFG4"",102,0)"
^XMB(3.9,55,2,11452,0)=" .I $D(DIRUT)!(Y) S IBFASTXT=1"
^XMB(3.9,55,2,11453,0)="""RTN"",""IBCEFG4"",103,0)"
^XMB(3.9,55,2,11454,0)=" Q"
^XMB(3.9,55,2,11455,0)="""RTN"",""IBCEFG4"",104,0)"
^XMB(3.9,55,2,11456,0)=" ;"
^XMB(3.9,55,2,11457,0)="""RTN"",""IBCEFG4"",105,0)"
^XMB(3.9,55,2,11458,0)="DUPNM ;"
^XMB(3.9,55,2,11459,0)="""RTN"",""IBCEFG4"",106,0)"
^XMB(3.9,55,2,11460,0)=" I $D(^IBE(353,""B"",X)) K X W !,*7,""A form with this name already exists"""
^XMB(3.9,55,2,11461,0)="""RTN"",""IBCEFG4"",107,0)"
^XMB(3.9,55,2,11462,0)=" Q"
^XMB(3.9,55,2,11463,0)="""RTN"",""IBCEFG4"",108,0)"
^XMB(3.9,55,2,11464,0)=" ;"
^XMB(3.9,55,2,11465,0)="""RTN"",""IBCEFG4"",109,0)"
^XMB(3.9,55,2,11466,0)="DUPNUM ;"
^XMB(3.9,55,2,11467,0)="""RTN"",""IBCEFG4"",110,0)"
^XMB(3.9,55,2,11468,0)=" I $D(^IBE(353,X)) K X W !,*7,""A form with this number already exists"""
^XMB(3.9,55,2,11469,0)="""RTN"",""IBCEFG4"",111,0)"
^XMB(3.9,55,2,11470,0)=" Q"
^XMB(3.9,55,2,11471,0)="""RTN"",""IBCEFG7"")"
^XMB(3.9,55,2,11472,0)="0^36^B51790981^B48661830"
^XMB(3.9,55,2,11473,0)="""RTN"",""IBCEFG7"",1,0)"
^XMB(3.9,55,2,11474,0)="IBCEFG7 ;ALB/TMP - OUTPUT FORMATTER GENERIC FORM PROCESSING ;06-MAR-96"
^XMB(3.9,55,2,11475,0)="""RTN"",""IBCEFG7"",2,0)"
^XMB(3.9,55,2,11476,0)=" ;;2.0;INTEGRATED BILLING;**52,84,96,51,137,191,320**;21-MAR-94"
^XMB(3.9,55,2,11477,0)="""RTN"",""IBCEFG7"",3,0)"
^XMB(3.9,55,2,11478,0)=" ;"
^XMB(3.9,55,2,11479,0)="""RTN"",""IBCEFG7"",4,0)"
^XMB(3.9,55,2,11480,0)=" Q"
^XMB(3.9,55,2,11481,0)="""RTN"",""IBCEFG7"",5,0)"
^XMB(3.9,55,2,11482,0)=" ;"
^XMB(3.9,55,2,11483,0)="""RTN"",""IBCEFG7"",6,0)"
^XMB(3.9,55,2,11484,0)="FORM(IBFORM,IBQUE,IBNOASK,IBQDT,ZTSK,IBABORT) ;For ien IBFORM, extract data using"
^XMB(3.9,55,2,11485,0)="""RTN"",""IBCEFG7"",7,0)"
^XMB(3.9,55,2,11486,0)=" ;    output generater"
^XMB(3.9,55,2,11487,0)="""RTN"",""IBCEFG7"",8,0)"
^XMB(3.9,55,2,11488,0)=" ; IBQUE = the output queue for transmitted forms or the printer queue"
^XMB(3.9,55,2,11489,0)="""RTN"",""IBCEFG7"",9,0)"
^XMB(3.9,55,2,11490,0)=" ;          for printed output"
^XMB(3.9,55,2,11491,0)="""RTN"",""IBCEFG7"",10,0)"
^XMB(3.9,55,2,11492,0)=" ; IBNOASK = flag that says user interaction for queuing is not needed"
^XMB(3.9,55,2,11493,0)="""RTN"",""IBCEFG7"",11,0)"
^XMB(3.9,55,2,11494,0)=" ;           0 or null = ask, 1 = don't ask"
^XMB(3.9,55,2,11495,0)="""RTN"",""IBCEFG7"",12,0)"
^XMB(3.9,55,2,11496,0)=" ; IBQDT = the date/time to queue the job (optional)"
^XMB(3.9,55,2,11497,0)="""RTN"",""IBCEFG7"",13,0)"
^XMB(3.9,55,2,11498,0)=" ;"
^XMB(3.9,55,2,11499,0)="""RTN"",""IBCEFG7"",14,0)"
^XMB(3.9,55,2,11500,0)=" ; Sets ZTSK only if job is queued"
^XMB(3.9,55,2,11501,0)="""RTN"",""IBCEFG7"",15,0)"
^XMB(3.9,55,2,11502,0)=" ;"
^XMB(3.9,55,2,11503,0)="""RTN"",""IBCEFG7"",16,0)"
^XMB(3.9,55,2,11504,0)=" ; IBABORT = output parameter which says user aborted forms output."
^XMB(3.9,55,2,11505,0)="""RTN"",""IBCEFG7"",17,0)"
^XMB(3.9,55,2,11506,0)=" ;           Pass by reference.  The $$QUEUE function returned false."
^XMB(3.9,55,2,11507,0)="""RTN"",""IBCEFG7"",18,0)"
^XMB(3.9,55,2,11508,0)=" ;"
^XMB(3.9,55,2,11509,0)="""RTN"",""IBCEFG7"",19,0)"
^XMB(3.9,55,2,11510,0)=" N IBF2,IBTYP,POP,ZTIO,ZTRTN,ZTDESC,ZTSAVE,ZTREQ,ZTDTH,ZTREQ"
^XMB(3.9,55,2,11511,0)="""RTN"",""IBCEFG7"",20,0)"
^XMB(3.9,55,2,11512,0)=" S IBTYP=$P($G(^IBE(353,IBFORM,2)),U,2),IBQUE=$G(IBQUE),IBABORT=0"
^XMB(3.9,55,2,11513,0)="""RTN"",""IBCEFG7"",21,0)"
^XMB(3.9,55,2,11514,0)=" G:$S(IBTYP'=""S"":$G(^IBE(353,IBFORM,""EXT""))=""""&($G(^IBE(353,+$P($G(^IBE(353,IBFORM,2)),U,5),""EXT""))=""""),1:'$G(IBIFN)) FORMQ"
^XMB(3.9,55,2,11515,0)="""RTN"",""IBCEFG7"",22,0)"
^XMB(3.9,55,2,11516,0)=" I IBTYP=""P"",IBQUE="""" D DEV(IBFORM) G:$G(POP) FORMQ"
^XMB(3.9,55,2,11517,0)="""RTN"",""IBCEFG7"",23,0)"
^XMB(3.9,55,2,11518,0)=" I IBTYP=""T"" D:$G(IBNOASK)  Q:$G(IBNOASK)  I '$$QUEUE(IBFORM) S:$O(^TMP(""IBRESUBMIT"",$J,0)) ^TMP(""IBRESUBMIT"",$J)=""ABORT"" S IBABORT=1 Q"
^XMB(3.9,55,2,11519,0)="""RTN"",""IBCEFG7"",24,0)"
^XMB(3.9,55,2,11520,0)=" . S ZTRTN=""FORMOUT^IBCEFG7"",ZTIO="""",ZTDESC=""OUTPUT FORMATTER - FORM: ""_$P($G(^IBE(353,IBFORM,0)),U),ZTSAVE(""IB*"")="""",ZTDTH=$S($G(IBQDT):IBQDT,1:$$NOW^XLFDT())"
^XMB(3.9,55,2,11521,0)="""RTN"",""IBCEFG7"",25,0)"
^XMB(3.9,55,2,11522,0)=" . S:$D(^TMP(""IBRESUBMIT"",$J)) ZTSAVE(""^TMP(""""IBRESUBMIT"""",$J)"")="""",ZTSAVE(""^TMP(""""IBNOT"""",$J)"")="""",ZTSAVE(""^TMP(""""IBRESUBMIT"""",$J,"")="""",ZTSAVE(""^TMP(""""IBNOT"""",$J,"")="""""
^XMB(3.9,55,2,11523,0)="""RTN"",""IBCEFG7"",26,0)"
^XMB(3.9,55,2,11524,0)=" . I $D(^TMP(""IBSELX"",$J)) S ZTSAVE(""^TMP(""""IBSELX"""",$J,"")="""",ZTSAVE(""^TMP(""""IBSELX"""",$J)"")="""""
^XMB(3.9,55,2,11525,0)="""RTN"",""IBCEFG7"",27,0)"
^XMB(3.9,55,2,11526,0)=" . S:'$G(DUZ) DUZ=.5"
^XMB(3.9,55,2,11527,0)="""RTN"",""IBCEFG7"",28,0)"
^XMB(3.9,55,2,11528,0)=" . D ^%ZTLOAD"
^XMB(3.9,55,2,11529,0)="""RTN"",""IBCEFG7"",29,0)"
^XMB(3.9,55,2,11530,0)=" I '$G(ZTSK) D FORMOUT"
^XMB(3.9,55,2,11531,0)="""RTN"",""IBCEFG7"",30,0)"
^XMB(3.9,55,2,11532,0)="FORMQ Q"
^XMB(3.9,55,2,11533,0)="""RTN"",""IBCEFG7"",31,0)"
^XMB(3.9,55,2,11534,0)=" ;"
^XMB(3.9,55,2,11535,0)="""RTN"",""IBCEFG7"",32,0)"
^XMB(3.9,55,2,11536,0)="FORMOUT ; Queued job entrypoint - IBFORM needs to be defined"
^XMB(3.9,55,2,11537,0)="""RTN"",""IBCEFG7"",33,0)"
^XMB(3.9,55,2,11538,0)=" ; IBQUE needs to be defined if using default transmission output"
^XMB(3.9,55,2,11539,0)="""RTN"",""IBCEFG7"",34,0)"
^XMB(3.9,55,2,11540,0)=" N IB2,IBTYP,IBPAR"
^XMB(3.9,55,2,11541,0)="""RTN"",""IBCEFG7"",35,0)"
^XMB(3.9,55,2,11542,0)=" K ^TMP(""IBXDATA"",$J)"
^XMB(3.9,55,2,11543,0)="""RTN"",""IBCEFG7"",36,0)"
^XMB(3.9,55,2,11544,0)=" S ZTREQ=""@"""
^XMB(3.9,55,2,11545,0)="""RTN"",""IBCEFG7"",37,0)"
^XMB(3.9,55,2,11546,0)=" S IB2=$G(^IBE(353,IBFORM,2)),IBPAR=+$P(IB2,U,5),IBTYP=$P(IB2,U,2)"
^XMB(3.9,55,2,11547,0)="""RTN"",""IBCEFG7"",38,0)"
^XMB(3.9,55,2,11548,0)=" ;"
^XMB(3.9,55,2,11549,0)="""RTN"",""IBCEFG7"",39,0)"
^XMB(3.9,55,2,11550,0)=" ; Execute PRE-PROCESSOR"
^XMB(3.9,55,2,11551,0)="""RTN"",""IBCEFG7"",40,0)"
^XMB(3.9,55,2,11552,0)=" I IBTYP'=""S"" D FPRE(IBFORM,IBPAR,.IBXERR)"
^XMB(3.9,55,2,11553,0)="""RTN"",""IBCEFG7"",41,0)"
^XMB(3.9,55,2,11554,0)=" G:$G(IBXERR)'="""" FOUTQ"
^XMB(3.9,55,2,11555,0)="""RTN"",""IBCEFG7"",42,0)"
^XMB(3.9,55,2,11556,0)=" ;"
^XMB(3.9,55,2,11557,0)="""RTN"",""IBCEFG7"",43,0)"
^XMB(3.9,55,2,11558,0)=" ; Extract records - this should include call(s) to $$EXTRACT^IBCEFG()"
^XMB(3.9,55,2,11559,0)="""RTN"",""IBCEFG7"",44,0)"
^XMB(3.9,55,2,11560,0)=" I IBTYP'=""S"" D"
^XMB(3.9,55,2,11561,0)="""RTN"",""IBCEFG7"",45,0)"
^XMB(3.9,55,2,11562,0)=" .I $G(^IBE(353,IBFORM,""EXT""))'="""" X ^(""EXT"") ;Form extract"
^XMB(3.9,55,2,11563,0)="""RTN"",""IBCEFG7"",46,0)"
^XMB(3.9,55,2,11564,0)=" .I $G(^IBE(353,IBFORM,""EXT""))="""",$G(^IBE(353,IBPAR,""EXT""))'="""" X ^(""EXT"") ;Parent form extract"
^XMB(3.9,55,2,11565,0)="""RTN"",""IBCEFG7"",47,0)"
^XMB(3.9,55,2,11566,0)=" I IBTYP=""S"" D  G Q1"
^XMB(3.9,55,2,11567,0)="""RTN"",""IBCEFG7"",48,0)"
^XMB(3.9,55,2,11568,0)=" .N PARAM,Z,Z0"
^XMB(3.9,55,2,11569,0)="""RTN"",""IBCEFG7"",49,0)"
^XMB(3.9,55,2,11570,0)=" .S PARAM(1)=""BILL-SEARCH"",Z0=$G(^DGCR(399,IBIFN,0))"
^XMB(3.9,55,2,11571,0)="""RTN"",""IBCEFG7"",50,0)"
^XMB(3.9,55,2,11572,0)=" .S Z=$P(Z0,U,21) S:Z="""" Z=""P"" S PARAM(2)=$P($G(^DGCR(399,IBIFN,""I""_($F(""PST"",Z)-1))),U),PARAM(3)=$S($P(Z0,U,5)<3:""I"",1:""O"")"
^XMB(3.9,55,2,11573,0)="""RTN"",""IBCEFG7"",51,0)"
^XMB(3.9,55,2,11574,0)=" .S Z=$$EXTRACT^IBCEFG(IBFORM,IBIFN,1,.PARAM)"
^XMB(3.9,55,2,11575,0)="""RTN"",""IBCEFG7"",52,0)"
^XMB(3.9,55,2,11576,0)=" ;"
^XMB(3.9,55,2,11577,0)="""RTN"",""IBCEFG7"",53,0)"
^XMB(3.9,55,2,11578,0)=" G:'$D(^TMP(""IBXDATA"",$J)) FOUTQ"
^XMB(3.9,55,2,11579,0)="""RTN"",""IBCEFG7"",54,0)"
^XMB(3.9,55,2,11580,0)=" ;"
^XMB(3.9,55,2,11581,0)="""RTN"",""IBCEFG7"",55,0)"
^XMB(3.9,55,2,11582,0)=" ; If an output routine exists, use it, otherwise use the generic ones"
^XMB(3.9,55,2,11583,0)="""RTN"",""IBCEFG7"",56,0)"
^XMB(3.9,55,2,11584,0)=" I $G(^IBE(353,IBFORM,""OUT""))'="""" X ^(""OUT"") G FOUTQ"
^XMB(3.9,55,2,11585,0)="""RTN"",""IBCEFG7"",57,0)"
^XMB(3.9,55,2,11586,0)=" I $G(^IBE(353,IBFORM,""OUT""))="""",$G(^IBE(353,IBPAR,""OUT""))'="""" X ^(""OUT"") G FOUTQ"
^XMB(3.9,55,2,11587,0)="""RTN"",""IBCEFG7"",58,0)"
^XMB(3.9,55,2,11588,0)=" ;"
^XMB(3.9,55,2,11589,0)="""RTN"",""IBCEFG7"",59,0)"
^XMB(3.9,55,2,11590,0)=" I IBTYP=""P"" D PRINT(IBFORM) D:'$D(ZTQUEUED) ^%ZISC G FOUTQ"
^XMB(3.9,55,2,11591,0)="""RTN"",""IBCEFG7"",60,0)"
^XMB(3.9,55,2,11592,0)=" I IBTYP=""T"" D:$G(IBQUE)'="""" TRANSMIT(IBFORM,IBQUE) G FOUTQ"
^XMB(3.9,55,2,11593,0)="""RTN"",""IBCEFG7"",61,0)"
^XMB(3.9,55,2,11594,0)=" ;"
^XMB(3.9,55,2,11595,0)="""RTN"",""IBCEFG7"",62,0)"
^XMB(3.9,55,2,11596,0)="FOUTQ D FPOST(IBFORM,IBPAR,.IBXERR) ; Execute POST-PROCESSOR, if any"
^XMB(3.9,55,2,11597,0)="""RTN"",""IBCEFG7"",63,0)"
^XMB(3.9,55,2,11598,0)=" K ^TMP(""IBXDATA"",$J),^TMP(""IBXEDIT"",$J)"
^XMB(3.9,55,2,11599,0)="""RTN"",""IBCEFG7"",64,0)"
^XMB(3.9,55,2,11600,0)="Q1 Q"
^XMB(3.9,55,2,11601,0)="""RTN"",""IBCEFG7"",65,0)"
^XMB(3.9,55,2,11602,0)=" ;"
^XMB(3.9,55,2,11603,0)="""RTN"",""IBCEFG7"",66,0)"
^XMB(3.9,55,2,11604,0)="PRINT(IBFORM) ; Print data from extract global for form IBFORM"
^XMB(3.9,55,2,11605,0)="""RTN"",""IBCEFG7"",67,0)"
^XMB(3.9,55,2,11606,0)=" ; Extract records - this should include call(s) to $$EXTRACT^IBCEFG()"
^XMB(3.9,55,2,11607,0)="""RTN"",""IBCEFG7"",68,0)"
^XMB(3.9,55,2,11608,0)=" N IB1,IB2,IB3,IBREC"
^XMB(3.9,55,2,11609,0)="""RTN"",""IBCEFG7"",69,0)"
^XMB(3.9,55,2,11610,0)=" ;LOOP THROUGH RECORD/PAGE/LINE/COL"
^XMB(3.9,55,2,11611,0)="""RTN"",""IBCEFG7"",70,0)"
^XMB(3.9,55,2,11612,0)=" S IBREC="""" F  S IBREC=$O(^TMP(""IBXDATA"",$J,IBREC)) Q:IBREC=""""  D  ;Rec"
^XMB(3.9,55,2,11613,0)="""RTN"",""IBCEFG7"",71,0)"
^XMB(3.9,55,2,11614,0)=" . ;Page/line"
^XMB(3.9,55,2,11615,0)="""RTN"",""IBCEFG7"",72,0)"
^XMB(3.9,55,2,11616,0)=" . F IB1=1:1:+$O(^TMP(""IBXDATA"",$J,IBREC,""""),-1) W:IB1>1 @IOF W ?0 F IB2=1:1:+$O(^TMP(""IBXDATA"",$J,IBREC,IB1,""""),-1) W:IB2>1 ! S IB3="""" D"
^XMB(3.9,55,2,11617,0)="""RTN"",""IBCEFG7"",73,0)"
^XMB(3.9,55,2,11618,0)=" .. ; Column"
^XMB(3.9,55,2,11619,0)="""RTN"",""IBCEFG7"",74,0)"
^XMB(3.9,55,2,11620,0)=" .. F  S IB3=$O(^TMP(""IBXDATA"",$J,IBREC,IB1,IB2,IB3)) Q:IB3=""""  W ?(IB3-1),^(IB3)"
^XMB(3.9,55,2,11621,0)="""RTN"",""IBCEFG7"",75,0)"
^XMB(3.9,55,2,11622,0)=" . ;Only print form feed if more records to print - not on last record"
^XMB(3.9,55,2,11623,0)="""RTN"",""IBCEFG7"",76,0)"
^XMB(3.9,55,2,11624,0)=" . I $O(^TMP(""IBXDATA"",$J,IBREC))'="""" W @IOF"
^XMB(3.9,55,2,11625,0)="""RTN"",""IBCEFG7"",77,0)"
^XMB(3.9,55,2,11626,0)=" Q"
^XMB(3.9,55,2,11627,0)="""RTN"",""IBCEFG7"",78,0)"
^XMB(3.9,55,2,11628,0)=" ;"
^XMB(3.9,55,2,11629,0)="""RTN"",""IBCEFG7"",79,0)"
^XMB(3.9,55,2,11630,0)="TRANSMIT(IBFORM,IBQUE) ; Send data from extract global to queue IBQUE"
^XMB(3.9,55,2,11631,0)="""RTN"",""IBCEFG7"",80,0)"
^XMB(3.9,55,2,11632,0)=" ;IBFORM = ien of the form to be transmitted (required)"
^XMB(3.9,55,2,11633,0)="""RTN"",""IBCEFG7"",81,0)"
^XMB(3.9,55,2,11634,0)=" N IB1,IB2,IB3,IBREC,IBOUT,IBCT,IBSUB,Z,XMDUZ,XMSUBJ,XMBODY,XMTO"
^XMB(3.9,55,2,11635,0)="""RTN"",""IBCEFG7"",82,0)"
^XMB(3.9,55,2,11636,0)=" K ^TMP(""IBXTXMT"",$J),^TMP(""IBX"",$J)"
^XMB(3.9,55,2,11637,0)="""RTN"",""IBCEFG7"",83,0)"
^XMB(3.9,55,2,11638,0)=" Q:$G(IBQUE)="""""
^XMB(3.9,55,2,11639,0)="""RTN"",""IBCEFG7"",84,0)"
^XMB(3.9,55,2,11640,0)=" ;"
^XMB(3.9,55,2,11641,0)="""RTN"",""IBCEFG7"",85,0)"
^XMB(3.9,55,2,11642,0)=" S IBDELIM=$P($G(^IBE(353,+$S($P($G(^IBE(353,IBFORM,2)),U,5):$P(^(2),U,5),1:IBFORM),2)),U,7)"
^XMB(3.9,55,2,11643,0)="""RTN"",""IBCEFG7"",86,0)"
^XMB(3.9,55,2,11644,0)=" S:IBDELIM="""" IBDELIM=""^"""
^XMB(3.9,55,2,11645,0)="""RTN"",""IBCEFG7"",87,0)"
^XMB(3.9,55,2,11646,0)=" ;Loop through record/page/line/column"
^XMB(3.9,55,2,11647,0)="""RTN"",""IBCEFG7"",88,0)"
^XMB(3.9,55,2,11648,0)=" S IBREC="""",(IBSIZE,IBCT)=0,IBMSG=1"
^XMB(3.9,55,2,11649,0)="""RTN"",""IBCEFG7"",89,0)"
^XMB(3.9,55,2,11650,0)=" F  S IBREC=$O(^TMP(""IBXDATA"",$J,IBREC)) Q:IBREC=""""  D"
^XMB(3.9,55,2,11651,0)="""RTN"",""IBCEFG7"",90,0)"
^XMB(3.9,55,2,11652,0)=" .S ^TMP(""IBX"",$J,IBREC)=IBCT"
^XMB(3.9,55,2,11653,0)="""RTN"",""IBCEFG7"",91,0)"
^XMB(3.9,55,2,11654,0)=" .S IB1="""" F  S IB1=$O(^TMP(""IBXDATA"",$J,IBREC,IB1)) Q:IB1=""""  D"
^XMB(3.9,55,2,11655,0)="""RTN"",""IBCEFG7"",92,0)"
^XMB(3.9,55,2,11656,0)=" ..S (IB2,IBOUT)="""""
^XMB(3.9,55,2,11657,0)="""RTN"",""IBCEFG7"",93,0)"
^XMB(3.9,55,2,11658,0)=" ..F  S IB2=$O(^TMP(""IBXDATA"",$J,IBREC,IB1,IB2)) D:IB2=""""&$L(IBOUT) MSG(IBREC,IBOUT,.IBMSG,.IBSIZE,.IBCT) Q:IB2=""""  D"
^XMB(3.9,55,2,11659,0)="""RTN"",""IBCEFG7"",94,0)"
^XMB(3.9,55,2,11660,0)=" ...S IB3="""" F  S IB3=$O(^TMP(""IBXDATA"",$J,IBREC,IB1,IB2,IB3)) Q:IB3=""""  S IBP=^(IB3) S:IBP?.E1L.E IBP=$$UP^XLFSTR(IBP) S $P(IBOUT,IBDELIM,IB3)=IBP"
^XMB(3.9,55,2,11661,0)="""RTN"",""IBCEFG7"",95,0)"
^XMB(3.9,55,2,11662,0)=" ;"
^XMB(3.9,55,2,11663,0)="""RTN"",""IBCEFG7"",96,0)"
^XMB(3.9,55,2,11664,0)=" ;Send mail message(s) for extract"
^XMB(3.9,55,2,11665,0)="""RTN"",""IBCEFG7"",97,0)"
^XMB(3.9,55,2,11666,0)=" S XMDUZ=DUZ,XMTO(IBQUE)="""",IBSUB=""OUTPUT FORMATTER: ""_$P($G(^IBE(353,IBFORM,0)),U)"
^XMB(3.9,55,2,11667,0)="""RTN"",""IBCEFG7"",98,0)"
^XMB(3.9,55,2,11668,0)=" S Z="""" F  S Z=$O(^TMP(""IBXTXMT"",$J,Z)) Q:'Z  S XMBODY=""^TMP(""""IBXTXMT"""",""_$J_"",""_Z_"")"",XMSUBJ=IBSUB_"" (""_Z_"")"" D SENDMSG^XMXAPI(XMDUZ,XMSUBJ,XMBODY,.XMTO,,.XMZ)"
^XMB(3.9,55,2,11669,0)="""RTN"",""IBCEFG7"",99,0)"
^XMB(3.9,55,2,11670,0)=" ;"
^XMB(3.9,55,2,11671,0)="""RTN"",""IBCEFG7"",100,0)"
^XMB(3.9,55,2,11672,0)=" K ^TMP(""IBXTXMT"",$J),^TMP(""IBX"",$J)"
^XMB(3.9,55,2,11673,0)="""RTN"",""IBCEFG7"",101,0)"
^XMB(3.9,55,2,11674,0)=" Q"
^XMB(3.9,55,2,11675,0)="""RTN"",""IBCEFG7"",102,0)"
^XMB(3.9,55,2,11676,0)=" ;"
^XMB(3.9,55,2,11677,0)="""RTN"",""IBCEFG7"",103,0)"
^XMB(3.9,55,2,11678,0)="MSG(IBREC,LINE,MSG,SIZE,CT) ; Set up global for transmission line"
^XMB(3.9,55,2,11679,0)="""RTN"",""IBCEFG7"",104,0)"
^XMB(3.9,55,2,11680,0)=" ; IBREC = record number being processed"
^XMB(3.9,55,2,11681,0)="""RTN"",""IBCEFG7"",105,0)"
^XMB(3.9,55,2,11682,0)=" ; LINE = actual text to be output in mail message line"
^XMB(3.9,55,2,11683,0)="""RTN"",""IBCEFG7"",106,0)"
^XMB(3.9,55,2,11684,0)=" ; MSG  = the message seq # to output this record in (pass by reference)"
^XMB(3.9,55,2,11685,0)="""RTN"",""IBCEFG7"",107,0)"
^XMB(3.9,55,2,11686,0)=" ; SIZE = current size of the message (pass by reference)"
^XMB(3.9,55,2,11687,0)="""RTN"",""IBCEFG7"",108,0)"
^XMB(3.9,55,2,11688,0)=" ; CT   = the last line # in message for the text (pass by reference)"
^XMB(3.9,55,2,11689,0)="""RTN"",""IBCEFG7"",109,0)"
^XMB(3.9,55,2,11690,0)=" N Z,Z0,LLEN"
^XMB(3.9,55,2,11691,0)="""RTN"",""IBCEFG7"",110,0)"
^XMB(3.9,55,2,11692,0)=" S LLEN=$L(LINE)"
^XMB(3.9,55,2,11693,0)="""RTN"",""IBCEFG7"",111,0)"
^XMB(3.9,55,2,11694,0)=" I (LLEN+SIZE)>30000 D"
^XMB(3.9,55,2,11695,0)="""RTN"",""IBCEFG7"",112,0)"
^XMB(3.9,55,2,11696,0)=" .Q:'$G(^TMP(""IBX"",$J,IBREC))  ;Record itself is > 30000 - let it go"
^XMB(3.9,55,2,11697,0)="""RTN"",""IBCEFG7"",113,0)"
^XMB(3.9,55,2,11698,0)=" .S (SIZE,CT)=0,Z=$G(^TMP(""IBX"",$J,IBREC)),^(IBREC)=0"
^XMB(3.9,55,2,11699,0)="""RTN"",""IBCEFG7"",114,0)"
^XMB(3.9,55,2,11700,0)=" .F  S Z=$O(^TMP(""IBXTXMT"",$J,MSG,Z)) Q:'Z  S CT=CT+1,Z0=^(Z),^TMP(""IBXTXMT"",$J,MSG+1,CT)=Z0,SIZE=SIZE+$L(Z0) K ^TMP(""IBXTXMT"",$J,MSG,Z)"
^XMB(3.9,55,2,11701,0)="""RTN"",""IBCEFG7"",115,0)"
^XMB(3.9,55,2,11702,0)=" .S MSG=MSG+1"
^XMB(3.9,55,2,11703,0)="""RTN"",""IBCEFG7"",116,0)"
^XMB(3.9,55,2,11704,0)=" S CT=CT+1,^TMP(""IBXTXMT"",$J,MSG,CT)=LINE,SIZE=SIZE+LLEN"
^XMB(3.9,55,2,11705,0)="""RTN"",""IBCEFG7"",117,0)"
^XMB(3.9,55,2,11706,0)=" Q"
^XMB(3.9,55,2,11707,0)="""RTN"",""IBCEFG7"",118,0)"
^XMB(3.9,55,2,11708,0)=" ;"
^XMB(3.9,55,2,11709,0)="""RTN"",""IBCEFG7"",119,0)"
^XMB(3.9,55,2,11710,0)="DEV(IBFORM,NOQ) ;"
^XMB(3.9,55,2,11711,0)="""RTN"",""IBCEFG7"",120,0)"
^XMB(3.9,55,2,11712,0)=" N IBFTYPE"
^XMB(3.9,55,2,11713,0)="""RTN"",""IBCEFG7"",121,0)"
^XMB(3.9,55,2,11714,0)=" S:'$G(NOQ) %ZIS=""Q"" S %ZIS(""A"")=""Output Device: """
^XMB(3.9,55,2,11715,0)="""RTN"",""IBCEFG7"",122,0)"
^XMB(3.9,55,2,11716,0)=" S %ZIS(""B"")=$P($G(^IBE(353,IBFORM,0)),""^"",2)"
^XMB(3.9,55,2,11717,0)="""RTN"",""IBCEFG7"",123,0)"
^XMB(3.9,55,2,11718,0)=" D ^%ZIS"
^XMB(3.9,55,2,11719,0)="""RTN"",""IBCEFG7"",124,0)"
^XMB(3.9,55,2,11720,0)=" G:POP DEVQ"
^XMB(3.9,55,2,11721,0)="""RTN"",""IBCEFG7"",125,0)"
^XMB(3.9,55,2,11722,0)=" I $D(IO(""Q"")) D  G DEVQ"
^XMB(3.9,55,2,11723,0)="""RTN"",""IBCEFG7"",126,0)"
^XMB(3.9,55,2,11724,0)=" .S ZTRTN=""FORMOUT^IBCEFG7"",ZTDESC=""PRINT FORM: ""_$P($G(^IBE(353,IBFORM,0)),U),ZTSAVE(""IB*"")="""" K ZTIO"
^XMB(3.9,55,2,11725,0)="""RTN"",""IBCEFG7"",127,0)"
^XMB(3.9,55,2,11726,0)=" .I $D(^TMP(""IBQONE"",$J)) D"
^XMB(3.9,55,2,11727,0)="""RTN"",""IBCEFG7"",128,0)"
^XMB(3.9,55,2,11728,0)=" ..S IBJ="""",IBFTYPE=""IBCFP""_$S($P($G(^IBE(353,IBFORM,2)),U,5):$P(^(2),U,5),1:IBFORM)"
^XMB(3.9,55,2,11729,0)="""RTN"",""IBCEFG7"",129,0)"
^XMB(3.9,55,2,11730,0)=" ..S ZTSAVE(""^XTMP(IBFTYPE,$J,"")="""""
^XMB(3.9,55,2,11731,0)="""RTN"",""IBCEFG7"",130,0)"
^XMB(3.9,55,2,11732,0)=" .D ^%ZTLOAD K IO(""Q"") D HOME^%ZIS"
^XMB(3.9,55,2,11733,0)="""RTN"",""IBCEFG7"",131,0)"
^XMB(3.9,55,2,11734,0)=" .I $G(IBFTYPE)'="""" K ^XTMP(IBFTYPE,$J)"
^XMB(3.9,55,2,11735,0)="""RTN"",""IBCEFG7"",132,0)"
^XMB(3.9,55,2,11736,0)=" .I $D(ZTSK) W !!,""This job has been queued.  The task number is ""_ZTSK_""."""
^XMB(3.9,55,2,11737,0)="""RTN"",""IBCEFG7"",133,0)"
^XMB(3.9,55,2,11738,0)=" U IO"
^XMB(3.9,55,2,11739,0)="""RTN"",""IBCEFG7"",134,0)"
^XMB(3.9,55,2,11740,0)="DEVQ Q"
^XMB(3.9,55,2,11741,0)="""RTN"",""IBCEFG7"",135,0)"
^XMB(3.9,55,2,11742,0)=" ;"
^XMB(3.9,55,2,11743,0)="""RTN"",""IBCEFG7"",136,0)"
^XMB(3.9,55,2,11744,0)="QUEUE(IBFORM) ; Ask to queue transmission"
^XMB(3.9,55,2,11745,0)="""RTN"",""IBCEFG7"",137,0)"
^XMB(3.9,55,2,11746,0)=" N Y,DIR,OKAY"
^XMB(3.9,55,2,11747,0)="""RTN"",""IBCEFG7"",138,0)"
^XMB(3.9,55,2,11748,0)=" S OKAY=1"
^XMB(3.9,55,2,11749,0)="""RTN"",""IBCEFG7"",139,0)"
^XMB(3.9,55,2,11750,0)=" S DIR(0)=""Y"",DIR(""B"")=""YES"",DIR(""A"")=""Do you want to queue this transmission"" W !"
^XMB(3.9,55,2,11751,0)="""RTN"",""IBCEFG7"",140,0)"
^XMB(3.9,55,2,11752,0)=" D ^DIR K DIR"
^XMB(3.9,55,2,11753,0)="""RTN"",""IBCEFG7"",141,0)"
^XMB(3.9,55,2,11754,0)=" I $D(DTOUT)!$D(DUOUT) S OKAY=0 G QUEQ"
^XMB(3.9,55,2,11755,0)="""RTN"",""IBCEFG7"",142,0)"
^XMB(3.9,55,2,11756,0)=" I 'Y D  G QUEQ"
^XMB(3.9,55,2,11757,0)="""RTN"",""IBCEFG7"",143,0)"
^XMB(3.9,55,2,11758,0)=" .S DIR(0)=""Y"",DIR(""B"")=""YES"",DIR(""A"")=""Do you want to run this job without queuing it now"""
^XMB(3.9,55,2,11759,0)="""RTN"",""IBCEFG7"",144,0)"
^XMB(3.9,55,2,11760,0)=" .W ! D ^DIR K DIR"
^XMB(3.9,55,2,11761,0)="""RTN"",""IBCEFG7"",145,0)"
^XMB(3.9,55,2,11762,0)=" .I 'Y S OKAY=0"
^XMB(3.9,55,2,11763,0)="""RTN"",""IBCEFG7"",146,0)"
^XMB(3.9,55,2,11764,0)=" ; - queue job to run"
^XMB(3.9,55,2,11765,0)="""RTN"",""IBCEFG7"",147,0)"
^XMB(3.9,55,2,11766,0)=" W !!,""Please enter the date and time to execute this job..."",!"
^XMB(3.9,55,2,11767,0)="""RTN"",""IBCEFG7"",148,0)"
^XMB(3.9,55,2,11768,0)=" S ZTRTN=""FORMOUT^IBCEFG7"",ZTIO="""",ZTDESC=""OUTPUT FORMATTER - FORM: ""_$P($G(^IBE(353,IBFORM,0)),U),ZTSAVE(""IB*"")="""""
^XMB(3.9,55,2,11769,0)="""RTN"",""IBCEFG7"",149,0)"
^XMB(3.9,55,2,11770,0)=" S:$D(^TMP(""IBRESUBMIT"",$J)) ZTSAVE(""^TMP(""""IBRESUBMIT"""",$J)"")="""",ZTSAVE(""^TMP(""""IBNOT"""",$J)"")="""",ZTSAVE(""^TMP(""""IBRESUBMIT"""",$J,"")="""",ZTSAVE(""^TMP(""""IBNOT"""",$J,"")="""""
^XMB(3.9,55,2,11771,0)="""RTN"",""IBCEFG7"",150,0)"
^XMB(3.9,55,2,11772,0)=" I $D(^TMP(""IBSELX"",$J)) S ZTSAVE(""^TMP(""""IBSELX"""",$J,"")="""",ZTSAVE(""^TMP(""""IBSELX"""",$J)"")="""""
^XMB(3.9,55,2,11773,0)="""RTN"",""IBCEFG7"",151,0)"
^XMB(3.9,55,2,11774,0)=" D ^%ZTLOAD"
^XMB(3.9,55,2,11775,0)="""RTN"",""IBCEFG7"",152,0)"
^XMB(3.9,55,2,11776,0)=" I $G(ZTSK) W !!,""This job has been queued.  The task number is ""_ZTSK_""."""
^XMB(3.9,55,2,11777,0)="""RTN"",""IBCEFG7"",153,0)"
^XMB(3.9,55,2,11778,0)="QUEQ Q OKAY"
^XMB(3.9,55,2,11779,0)="""RTN"",""IBCEFG7"",154,0)"
^XMB(3.9,55,2,11780,0)=" ;"
^XMB(3.9,55,2,11781,0)="""RTN"",""IBCEFG7"",155,0)"
^XMB(3.9,55,2,11782,0)="FPRE(IBFORM,IBPAR,IBXERR) ; Executes pre-processor"
^XMB(3.9,55,2,11783,0)="""RTN"",""IBCEFG7"",156,0)"
^XMB(3.9,55,2,11784,0)=" I $G(^IBE(353,IBFORM,""FPRE""))'="""" X ^(""FPRE"") ;Form pre-processor"
^XMB(3.9,55,2,11785,0)="""RTN"",""IBCEFG7"",157,0)"
^XMB(3.9,55,2,11786,0)=" I $G(^IBE(353,IBFORM,""FPRE""))="""",$G(^IBE(353,IBPAR,""FPRE""))'="""" X ^(""FPRE"") ;Parent form pre-processor"
^XMB(3.9,55,2,11787,0)="""RTN"",""IBCEFG7"",158,0)"
^XMB(3.9,55,2,11788,0)=" Q"
^XMB(3.9,55,2,11789,0)="""RTN"",""IBCEFG7"",159,0)"
^XMB(3.9,55,2,11790,0)=" ;"
^XMB(3.9,55,2,11791,0)="""RTN"",""IBCEFG7"",160,0)"
^XMB(3.9,55,2,11792,0)="FPOST(IBFORM,IBPAR,IBXERR) ; Executes post-processor"
^XMB(3.9,55,2,11793,0)="""RTN"",""IBCEFG7"",161,0)"
^XMB(3.9,55,2,11794,0)=" I $G(^IBE(353,IBFORM,""FPOST""))'="""" X ^(""FPOST"") ;Form post-processor"
^XMB(3.9,55,2,11795,0)="""RTN"",""IBCEFG7"",162,0)"
^XMB(3.9,55,2,11796,0)=" I $G(^IBE(353,IBFORM,""FPOST""))="""",$G(^IBE(353,IBPAR,""FPOST""))'="""" X ^(""FPOST"") ;Parent form post-processor"
^XMB(3.9,55,2,11797,0)="""RTN"",""IBCEFG7"",163,0)"
^XMB(3.9,55,2,11798,0)=" Q"
^XMB(3.9,55,2,11799,0)="""RTN"",""IBCEFG7"",164,0)"
^XMB(3.9,55,2,11800,0)=" ;"
^XMB(3.9,55,2,11801,0)="""RTN"",""IBCEFG7"",165,0)"
^XMB(3.9,55,2,11802,0)="FMFLD(IBDA) ;Return the file#field for fileman field referenced as a data"
^XMB(3.9,55,2,11803,0)="""RTN"",""IBCEFG7"",166,0)"
^XMB(3.9,55,2,11804,0)=" ; element in file 364.7's IBDA entry."
^XMB(3.9,55,2,11805,0)="""RTN"",""IBCEFG7"",167,0)"
^XMB(3.9,55,2,11806,0)=" N Z,Z0,ND0"
^XMB(3.9,55,2,11807,0)="""RTN"",""IBCEFG7"",168,0)"
^XMB(3.9,55,2,11808,0)=" S Z0=+$P($G(^IBA(364.7,IBDA,0)),U,3),ND0=$G(^IBA(364.5,+Z0,0))"
^XMB(3.9,55,2,11809,0)="""RTN"",""IBCEFG7"",169,0)"
^XMB(3.9,55,2,11810,0)=" I $P(ND0,U,3)'=""F""!($P(ND0,U,6)="""") S Z="""" G FLDQ"
^XMB(3.9,55,2,11811,0)="""RTN"",""IBCEFG7"",170,0)"
^XMB(3.9,55,2,11812,0)=" S Z=$P(ND0,U,5),Z1=$P(ND0,U,6)"
^XMB(3.9,55,2,11813,0)="""RTN"",""IBCEFG7"",171,0)"
^XMB(3.9,55,2,11814,0)=" I Z1["":"" D  ;Navigation"
^XMB(3.9,55,2,11815,0)="""RTN"",""IBCEFG7"",172,0)"
^XMB(3.9,55,2,11816,0)=" . S Z2=$O(^DD(+Z,""B"",$P(Z1,"":""),"""")) Q:'Z2"
^XMB(3.9,55,2,11817,0)="""RTN"",""IBCEFG7"",173,0)"
^XMB(3.9,55,2,11818,0)=" . S Z=+$P($P($G(^DD(399,Z2,0)),U,2),""P"",2)"
^XMB(3.9,55,2,11819,0)="""RTN"",""IBCEFG7"",174,0)"
^XMB(3.9,55,2,11820,0)=" . I Z S Z1=$P(Z1,"":"",2)"
^XMB(3.9,55,2,11821,0)="""RTN"",""IBCEFG7"",175,0)"
^XMB(3.9,55,2,11822,0)=" I Z S Z=Z_""#""_$O(^DD(+Z,""B"",Z1,""""))"
^XMB(3.9,55,2,11823,0)="""RTN"",""IBCEFG7"",176,0)"
^XMB(3.9,55,2,11824,0)="FLDQ Q Z"
^XMB(3.9,55,2,11825,0)="""RTN"",""IBCEFG7"",177,0)"
^XMB(3.9,55,2,11826,0)=" ;"
^XMB(3.9,55,2,11827,0)="""RTN"",""IBCEM3"")"
^XMB(3.9,55,2,11828,0)="0^17^B11260075^B10722375"
^XMB(3.9,55,2,11829,0)="""RTN"",""IBCEM3"",1,0)"
^XMB(3.9,55,2,11830,0)="IBCEM3 ;ALB/TMP - IB ELECTRONIC MESSAGE MGMNT ACTIONS ;18-AUG-1999"
^XMB(3.9,55,2,11831,0)="""RTN"",""IBCEM3"",2,0)"
^XMB(3.9,55,2,11832,0)=" ;;2.0;INTEGRATED BILLING;**137,155,320**;21-MAR-1994"
^XMB(3.9,55,2,11833,0)="""RTN"",""IBCEM3"",3,0)"
^XMB(3.9,55,2,11834,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,11835,0)="""RTN"",""IBCEM3"",4,0)"
^XMB(3.9,55,2,11836,0)=" ;"
^XMB(3.9,55,2,11837,0)="""RTN"",""IBCEM3"",5,0)"
^XMB(3.9,55,2,11838,0)="CANCEL(IBDA,IBIFN,IB364) ; Generic cancel bill action"
^XMB(3.9,55,2,11839,0)="""RTN"",""IBCEM3"",6,0)"
^XMB(3.9,55,2,11840,0)=" ; IBDA = entry selected from list (pass by reference-value is returned)"
^XMB(3.9,55,2,11841,0)="""RTN"",""IBCEM3"",7,0)"
^XMB(3.9,55,2,11842,0)=" ; IBIFN = ien of bill entry in file 399"
^XMB(3.9,55,2,11843,0)="""RTN"",""IBCEM3"",8,0)"
^XMB(3.9,55,2,11844,0)=" ; IB364 = ien of transmitted bill entry in file 364"
^XMB(3.9,55,2,11845,0)="""RTN"",""IBCEM3"",9,0)"
^XMB(3.9,55,2,11846,0)=" ;"
^XMB(3.9,55,2,11847,0)="""RTN"",""IBCEM3"",10,0)"
^XMB(3.9,55,2,11848,0)=" N Y,IBCAN,IBCE,IBTDA,IB0"
^XMB(3.9,55,2,11849,0)="""RTN"",""IBCEM3"",11,0)"
^XMB(3.9,55,2,11850,0)=" I 'IBDA!'IBIFN S IBDA="""" G CANCELQ"
^XMB(3.9,55,2,11851,0)="""RTN"",""IBCEM3"",12,0)"
^XMB(3.9,55,2,11852,0)=" I '$$CANCKS(""C"",IBIFN) S IBDA="""" G CANCELQ"
^XMB(3.9,55,2,11853,0)="""RTN"",""IBCEM3"",13,0)"
^XMB(3.9,55,2,11854,0)=" ;"
^XMB(3.9,55,2,11855,0)="""RTN"",""IBCEM3"",14,0)"
^XMB(3.9,55,2,11856,0)=" S (IBCAN,IBCE(""EDI""))=1,Y=IBIFN"
^XMB(3.9,55,2,11857,0)="""RTN"",""IBCEM3"",15,0)"
^XMB(3.9,55,2,11858,0)=" I $G(IBCEAUTO) S IBCAN=2"
^XMB(3.9,55,2,11859,0)="""RTN"",""IBCEM3"",16,0)"
^XMB(3.9,55,2,11860,0)=" N IBQUIT"
^XMB(3.9,55,2,11861,0)="""RTN"",""IBCEM3"",17,0)"
^XMB(3.9,55,2,11862,0)=" D NOPTF^IBCC S:$P($G(^DGCR(399,IBIFN,0)),U,13)'=7 IBDA="""""
^XMB(3.9,55,2,11863,0)="""RTN"",""IBCEM3"",18,0)"
^XMB(3.9,55,2,11864,0)=" I '$G(IBCEAUTO) D PAUSE^VALM1"
^XMB(3.9,55,2,11865,0)="""RTN"",""IBCEM3"",19,0)"
^XMB(3.9,55,2,11866,0)="CANCELQ Q"
^XMB(3.9,55,2,11867,0)="""RTN"",""IBCEM3"",20,0)"
^XMB(3.9,55,2,11868,0)=" ;"
^XMB(3.9,55,2,11869,0)="""RTN"",""IBCEM3"",21,0)"
^XMB(3.9,55,2,11870,0)="CANCKS(FUNC,IBIFN)      ; Check validity of cancel or cancel/clone function"
^XMB(3.9,55,2,11871,0)="""RTN"",""IBCEM3"",22,0)"
^XMB(3.9,55,2,11872,0)=" ;FUNC = ""C"" for cancel ""CC"" for cancel/clone"
^XMB(3.9,55,2,11873,0)="""RTN"",""IBCEM3"",23,0)"
^XMB(3.9,55,2,11874,0)=" ;IBIFN = bill internal entry #"
^XMB(3.9,55,2,11875,0)="""RTN"",""IBCEM3"",24,0)"
^XMB(3.9,55,2,11876,0)=" N ERR"
^XMB(3.9,55,2,11877,0)="""RTN"",""IBCEM3"",25,0)"
^XMB(3.9,55,2,11878,0)=" S ERR="""""
^XMB(3.9,55,2,11879,0)="""RTN"",""IBCEM3"",26,0)"
^XMB(3.9,55,2,11880,0)=" I '$$DISP(IBIFN,""cancel""_$S(FUNC=""C"":"""",1:""/clone"")) S ERR=""<No action taken>"""
^XMB(3.9,55,2,11881,0)="""RTN"",""IBCEM3"",27,0)"
^XMB(3.9,55,2,11882,0)=" I ERR'="""" W !,*7,ERR D PAUSE^VALM1"
^XMB(3.9,55,2,11883,0)="""RTN"",""IBCEM3"",28,0)"
^XMB(3.9,55,2,11884,0)=" Q (ERR="""")"
^XMB(3.9,55,2,11885,0)="""RTN"",""IBCEM3"",29,0)"
^XMB(3.9,55,2,11886,0)=" ;"
^XMB(3.9,55,2,11887,0)="""RTN"",""IBCEM3"",30,0)"
^XMB(3.9,55,2,11888,0)="EBILL(IBDA,IBIFN,IB364) ;Generic edit bill action"
^XMB(3.9,55,2,11889,0)="""RTN"",""IBCEM3"",31,0)"
^XMB(3.9,55,2,11890,0)=" N IBAC,IBBDA,IBTDA,IB0,IBV,DFN,IBDA1,IBELOOP,IB399,IBDAB,IBHOLD,IB399TX,IBNEED,IBPOPOUT,IBTXPRT"
^XMB(3.9,55,2,11891,0)="""RTN"",""IBCEM3"",32,0)"
^XMB(3.9,55,2,11892,0)=" S IB399=$G(^DGCR(399,+IBIFN,0))"
^XMB(3.9,55,2,11893,0)="""RTN"",""IBCEM3"",33,0)"
^XMB(3.9,55,2,11894,0)=" S IB399TX=$G(^DGCR(399,+IBIFN,""TX"")),IBNEED=$$NEEDMRA^IBEFUNC(IBIFN)"
^XMB(3.9,55,2,11895,0)="""RTN"",""IBCEM3"",34,0)"
^XMB(3.9,55,2,11896,0)=" I $P($G(^DGCR(399,IBIFN,0)),U,13)'<3 D  G EBILLQ"
^XMB(3.9,55,2,11897,0)="""RTN"",""IBCEM3"",35,0)"
^XMB(3.9,55,2,11898,0)=" . N DIR"
^XMB(3.9,55,2,11899,0)="""RTN"",""IBCEM3"",36,0)"
^XMB(3.9,55,2,11900,0)=" . S DIR(0)=""EA"",DIR(""A"",1)=""You cannot edit a bill with a status of ""_$$EXPAND^IBTRE(399,.13,$P($G(^DGCR(399,IBIFN,0)),U,13))"
^XMB(3.9,55,2,11901,0)="""RTN"",""IBCEM3"",37,0)"
^XMB(3.9,55,2,11902,0)=" . S DIR(""A"")=""Enter RETURN to continue or '^' to exit:"""
^XMB(3.9,55,2,11903,0)="""RTN"",""IBCEM3"",38,0)"
^XMB(3.9,55,2,11904,0)=" . D ^DIR"
^XMB(3.9,55,2,11905,0)="""RTN"",""IBCEM3"",39,0)"
^XMB(3.9,55,2,11906,0)=" . S IBDA="""""
^XMB(3.9,55,2,11907,0)="""RTN"",""IBCEM3"",40,0)"
^XMB(3.9,55,2,11908,0)=" I '$$DISP(IBIFN,""edit"") S IBDA="""" G EBILLQ"
^XMB(3.9,55,2,11909,0)="""RTN"",""IBCEM3"",41,0)"
^XMB(3.9,55,2,11910,0)=" S IBAC=1,DFN=$P($G(^DGCR(399,IBIFN,0)),U,2),IBV=0"
^XMB(3.9,55,2,11911,0)="""RTN"",""IBCEM3"",42,0)"
^XMB(3.9,55,2,11912,0)=" S IBHOLD(""IBIFN"")=IBIFN,IBHOLD(""IBDA"")=$G(IBDA)"
^XMB(3.9,55,2,11913,0)="""RTN"",""IBCEM3"",43,0)"
^XMB(3.9,55,2,11914,0)=" ; Warning - do not use IBH variable when calling the following routine"
^XMB(3.9,55,2,11915,0)="""RTN"",""IBCEM3"",44,0)"
^XMB(3.9,55,2,11916,0)=" D ST^IBCB,ENS^%ZISS"
^XMB(3.9,55,2,11917,0)="""RTN"",""IBCEM3"",45,0)"
^XMB(3.9,55,2,11918,0)=" D:$D(IBIFN) PAUSE^VALM1"
^XMB(3.9,55,2,11919,0)="""RTN"",""IBCEM3"",46,0)"
^XMB(3.9,55,2,11920,0)=" S IBIFN=IBHOLD(""IBIFN""),IBDA=IBHOLD(""IBDA"")"
^XMB(3.9,55,2,11921,0)="""RTN"",""IBCEM3"",47,0)"
^XMB(3.9,55,2,11922,0)=" I $S(IBNEED:$P($G(^DGCR(399,IBIFN,0)),U,13)'=2,1:$P($G(^DGCR(399,IBIFN,0)),U,13)'=3) S IBDA="""""
^XMB(3.9,55,2,11923,0)="""RTN"",""IBCEM3"",48,0)"
^XMB(3.9,55,2,11924,0)=" I IBDA D"
^XMB(3.9,55,2,11925,0)="""RTN"",""IBCEM3"",49,0)"
^XMB(3.9,55,2,11926,0)=" . S $P(^DGCR(399,IBIFN,""S""),U,10,11)=(DT_U_DUZ)"
^XMB(3.9,55,2,11927,0)="""RTN"",""IBCEM3"",50,0)"
^XMB(3.9,55,2,11928,0)=" . S DIK=""^DGCR(399,"",DA=IBIFN F DIK(1)=10,11 D EN1^DIK"
^XMB(3.9,55,2,11929,0)="""RTN"",""IBCEM3"",51,0)"
^XMB(3.9,55,2,11930,0)=" . D UPDEDI^IBCEM(IB364,""E"")"
^XMB(3.9,55,2,11931,0)="""RTN"",""IBCEM3"",52,0)"
^XMB(3.9,55,2,11932,0)="EBILLQ Q"
^XMB(3.9,55,2,11933,0)="""RTN"",""IBCEM3"",53,0)"
^XMB(3.9,55,2,11934,0)=" ;"
^XMB(3.9,55,2,11935,0)="""RTN"",""IBCEM3"",54,0)"
^XMB(3.9,55,2,11936,0)="DISP(IBIFN,FUNC,DISP,IBDEF,DIRUT)   ;Display bill detail"
^XMB(3.9,55,2,11937,0)="""RTN"",""IBCEM3"",55,0)"
^XMB(3.9,55,2,11938,0)=" ;  Returns 1 if function should continue, 0 if function should not"
^XMB(3.9,55,2,11939,0)="""RTN"",""IBCEM3"",56,0)"
^XMB(3.9,55,2,11940,0)=" ; IBIFN = Bill #"
^XMB(3.9,55,2,11941,0)="""RTN"",""IBCEM3"",57,0)"
^XMB(3.9,55,2,11942,0)=" ; FUNC = Text (lower case) to describe function to perform"
^XMB(3.9,55,2,11943,0)="""RTN"",""IBCEM3"",58,0)"
^XMB(3.9,55,2,11944,0)=" ; DISP = flag = 1 for return data, no display"
^XMB(3.9,55,2,11945,0)="""RTN"",""IBCEM3"",59,0)"
^XMB(3.9,55,2,11946,0)=" ;               format:  1^BILL #^PATIENT^BILL TYPE^DATES"
^XMB(3.9,55,2,11947,0)="""RTN"",""IBCEM3"",60,0)"
^XMB(3.9,55,2,11948,0)=" ; IBDEF = Default answer for Yes/No question here (1=Yes)"
^XMB(3.9,55,2,11949,0)="""RTN"",""IBCEM3"",61,0)"
^XMB(3.9,55,2,11950,0)=" ; DIRUT = output parameter is defined if passed by reference,"
^XMB(3.9,55,2,11951,0)="""RTN"",""IBCEM3"",62,0)"
^XMB(3.9,55,2,11952,0)=" ;       = this will be defined if the user enters a leading up-arrow"
^XMB(3.9,55,2,11953,0)="""RTN"",""IBCEM3"",63,0)"
^XMB(3.9,55,2,11954,0)=" ;       = or times out or enters a null response"
^XMB(3.9,55,2,11955,0)="""RTN"",""IBCEM3"",64,0)"
^XMB(3.9,55,2,11956,0)=" ;"
^XMB(3.9,55,2,11957,0)="""RTN"",""IBCEM3"",65,0)"
^XMB(3.9,55,2,11958,0)=" ; Function returns Y and DIRUT - used by IBCEMCA2 - DO NOT NEW THESE"
^XMB(3.9,55,2,11959,0)="""RTN"",""IBCEM3"",66,0)"
^XMB(3.9,55,2,11960,0)=" ;"
^XMB(3.9,55,2,11961,0)="""RTN"",""IBCEM3"",67,0)"
^XMB(3.9,55,2,11962,0)=" N IBB0,IBBU,IBNO,STAT,DIR,DTOUT,DUOUT,IBV"
^XMB(3.9,55,2,11963,0)="""RTN"",""IBCEM3"",68,0)"
^XMB(3.9,55,2,11964,0)=" S IBB0=$G(^DGCR(399,IBIFN,0)),IBBU=$G(^(""U"")),IBNO=$P(IBB0,U)"
^XMB(3.9,55,2,11965,0)="""RTN"",""IBCEM3"",69,0)"
^XMB(3.9,55,2,11966,0)=" S IBV(1)=$P($G(^DPT(+$P(IBB0,U,2),0)),U)_$S($P($G(^(0)),U,9)'="""":"" (""_$P(^(0),U,9)_"")"",1:"""")"
^XMB(3.9,55,2,11967,0)="""RTN"",""IBCEM3"",70,0)"
^XMB(3.9,55,2,11968,0)=" S IBV(2)=$$EXPAND^IBTRE(399,.05,$P(IBB0,U,5))"
^XMB(3.9,55,2,11969,0)="""RTN"",""IBCEM3"",71,0)"
^XMB(3.9,55,2,11970,0)=" S IBV(3)=$$EXPAND^IBTRE(399,151,$P(IBBU,U))_"" - ""_$$EXPAND^IBTRE(399,151,$P(IBBU,U,2))"
^XMB(3.9,55,2,11971,0)="""RTN"",""IBCEM3"",72,0)"
^XMB(3.9,55,2,11972,0)=" ;"
^XMB(3.9,55,2,11973,0)="""RTN"",""IBCEM3"",73,0)"
^XMB(3.9,55,2,11974,0)=" I '$G(DISP) D  G DISPQ"
^XMB(3.9,55,2,11975,0)="""RTN"",""IBCEM3"",74,0)"
^XMB(3.9,55,2,11976,0)=" . S (DIR(""A"",1),DIR(""A"",6))="" "",STAT=1"
^XMB(3.9,55,2,11977,0)="""RTN"",""IBCEM3"",75,0)"
^XMB(3.9,55,2,11978,0)=" . S DIR(""A"",2)=""    Bill #: ""_IBNO"
^XMB(3.9,55,2,11979,0)="""RTN"",""IBCEM3"",76,0)"
^XMB(3.9,55,2,11980,0)=" . S DIR(""A"",3)=""   Patient: ""_IBV(1)"
^XMB(3.9,55,2,11981,0)="""RTN"",""IBCEM3"",77,0)"
^XMB(3.9,55,2,11982,0)=" . S DIR(""A"",4)="" Bill Type: ""_IBV(2)"
^XMB(3.9,55,2,11983,0)="""RTN"",""IBCEM3"",78,0)"
^XMB(3.9,55,2,11984,0)=" . S DIR(""A"",5)=""Bill Dates: ""_IBV(3)"
^XMB(3.9,55,2,11985,0)="""RTN"",""IBCEM3"",79,0)"
^XMB(3.9,55,2,11986,0)=" . S DIR(""A"")=""Are you sure this is the bill you want to ""_FUNC_""? """
^XMB(3.9,55,2,11987,0)="""RTN"",""IBCEM3"",80,0)"
^XMB(3.9,55,2,11988,0)=" . S DIR(""B"")=""NO"""
^XMB(3.9,55,2,11989,0)="""RTN"",""IBCEM3"",81,0)"
^XMB(3.9,55,2,11990,0)=" . I $G(IBDEF) S DIR(""B"")=""Yes"""
^XMB(3.9,55,2,11991,0)="""RTN"",""IBCEM3"",82,0)"
^XMB(3.9,55,2,11992,0)=" . S DIR(0)=""YA"" D ^DIR K DIR"
^XMB(3.9,55,2,11993,0)="""RTN"",""IBCEM3"",83,0)"
^XMB(3.9,55,2,11994,0)=" . I $D(DTOUT)!$D(DUOUT)!'Y S STAT=0"
^XMB(3.9,55,2,11995,0)="""RTN"",""IBCEM3"",84,0)"
^XMB(3.9,55,2,11996,0)=" S STAT=""1^""_IBNO_U_IBV(1)_U_IBV(2)_U_IBV(3)"
^XMB(3.9,55,2,11997,0)="""RTN"",""IBCEM3"",85,0)"
^XMB(3.9,55,2,11998,0)="DISPQ ;"
^XMB(3.9,55,2,11999,0)="""RTN"",""IBCEM3"",86,0)"
^XMB(3.9,55,2,12000,0)=" Q STAT"
^XMB(3.9,55,2,12001,0)="""RTN"",""IBCEM3"",87,0)"
^XMB(3.9,55,2,12002,0)=" ;"
^XMB(3.9,55,2,12003,0)="""RTN"",""IBCEMCA"")"
^XMB(3.9,55,2,12004,0)="0^13^B50663666"
^XMB(3.9,55,2,12005,0)="""RTN"",""IBCEMCA"",1,0)"
^XMB(3.9,55,2,12006,0)="IBCEMCA ;ALB/ESG - Multiple CSA Message Management ;20-SEP-2005"
^XMB(3.9,55,2,12007,0)="""RTN"",""IBCEMCA"",2,0)"
^XMB(3.9,55,2,12008,0)=" ;;2.0;INTEGRATED BILLING;**320**;21-MAR-1994"
^XMB(3.9,55,2,12009,0)="""RTN"",""IBCEMCA"",3,0)"
^XMB(3.9,55,2,12010,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,12011,0)="""RTN"",""IBCEMCA"",4,0)"
^XMB(3.9,55,2,12012,0)=" ;"
^XMB(3.9,55,2,12013,0)="""RTN"",""IBCEMCA"",5,0)"
^XMB(3.9,55,2,12014,0)=" Q"
^XMB(3.9,55,2,12015,0)="""RTN"",""IBCEMCA"",6,0)"
^XMB(3.9,55,2,12016,0)=" ;"
^XMB(3.9,55,2,12017,0)="""RTN"",""IBCEMCA"",7,0)"
^XMB(3.9,55,2,12018,0)="SCREEN ; Change the message selection criteria"
^XMB(3.9,55,2,12019,0)="""RTN"",""IBCEMCA"",8,0)"
^XMB(3.9,55,2,12020,0)=" NEW DIC,DIR,DIROUT,DIRUT,DTOUT,DUOUT,EDI,IBDONE,IBPAYER,INST,PROF,RESET,X,Y"
^XMB(3.9,55,2,12021,0)="""RTN"",""IBCEMCA"",9,0)"
^XMB(3.9,55,2,12022,0)=" S VALMBCK=""R"",RESET=0"
^XMB(3.9,55,2,12023,0)="""RTN"",""IBCEMCA"",10,0)"
^XMB(3.9,55,2,12024,0)=" D FULL^VALM1"
^XMB(3.9,55,2,12025,0)="""RTN"",""IBCEMCA"",11,0)"
^XMB(3.9,55,2,12026,0)=" W !"
^XMB(3.9,55,2,12027,0)="""RTN"",""IBCEMCA"",12,0)"
^XMB(3.9,55,2,12028,0)=" S DIR(0)=""Y"",DIR(""A"")=""Do you want to change the MCS selection criteria"""
^XMB(3.9,55,2,12029,0)="""RTN"",""IBCEMCA"",13,0)"
^XMB(3.9,55,2,12030,0)=" S DIR(""B"")=""Yes"" D ^DIR K DIR"
^XMB(3.9,55,2,12031,0)="""RTN"",""IBCEMCA"",14,0)"
^XMB(3.9,55,2,12032,0)=" I 'Y G SCREENX          ; get out; no list rebuild"
^XMB(3.9,55,2,12033,0)="""RTN"",""IBCEMCA"",15,0)"
^XMB(3.9,55,2,12034,0)=" K ^TMP($J,""IBCEMCA"")    ; kill selection area and rebuild below"
^XMB(3.9,55,2,12035,0)="""RTN"",""IBCEMCA"",16,0)"
^XMB(3.9,55,2,12036,0)=" K VALMHDR               ; recalculate totals in header area"
^XMB(3.9,55,2,12037,0)="""RTN"",""IBCEMCA"",17,0)"
^XMB(3.9,55,2,12038,0)=" S VALMBG=1              ; begin new list display at line 1"
^XMB(3.9,55,2,12039,0)="""RTN"",""IBCEMCA"",18,0)"
^XMB(3.9,55,2,12040,0)=" ;"
^XMB(3.9,55,2,12041,0)="""RTN"",""IBCEMCA"",19,0)"
^XMB(3.9,55,2,12042,0)="Q1 ; payer"
^XMB(3.9,55,2,12043,0)="""RTN"",""IBCEMCA"",20,0)"
^XMB(3.9,55,2,12044,0)=" W !!,""PAYER SELECTION:"""
^XMB(3.9,55,2,12045,0)="""RTN"",""IBCEMCA"",21,0)"
^XMB(3.9,55,2,12046,0)=" S IBPAYER="""""
^XMB(3.9,55,2,12047,0)="""RTN"",""IBCEMCA"",22,0)"
^XMB(3.9,55,2,12048,0)=" S DIR(0)=""SA^A:All Payers;S:Selected Payers"""
^XMB(3.9,55,2,12049,0)="""RTN"",""IBCEMCA"",23,0)"
^XMB(3.9,55,2,12050,0)=" S DIR(""A"")=""Include All Payers or Selected Payers? """
^XMB(3.9,55,2,12051,0)="""RTN"",""IBCEMCA"",24,0)"
^XMB(3.9,55,2,12052,0)=" S DIR(""B"")=""All"""
^XMB(3.9,55,2,12053,0)="""RTN"",""IBCEMCA"",25,0)"
^XMB(3.9,55,2,12054,0)=" D ^DIR K DIR"
^XMB(3.9,55,2,12055,0)="""RTN"",""IBCEMCA"",26,0)"
^XMB(3.9,55,2,12056,0)=" I $D(DIROUT)!$D(DIRUT) S RESET=1 G QX  ; kill scratch and rebuild list"
^XMB(3.9,55,2,12057,0)="""RTN"",""IBCEMCA"",27,0)"
^XMB(3.9,55,2,12058,0)=" I Y=""A"" K ^TMP($J,""IBCEMCA"",""INS"") G Q2"
^XMB(3.9,55,2,12059,0)="""RTN"",""IBCEMCA"",28,0)"
^XMB(3.9,55,2,12060,0)=" W !"
^XMB(3.9,55,2,12061,0)="""RTN"",""IBCEMCA"",29,0)"
^XMB(3.9,55,2,12062,0)=" S DIR(0)=""Y"""
^XMB(3.9,55,2,12063,0)="""RTN"",""IBCEMCA"",30,0)"
^XMB(3.9,55,2,12064,0)=" S DIR(""A"")=""   Include all payers with the same electronic Payer ID"""
^XMB(3.9,55,2,12065,0)="""RTN"",""IBCEMCA"",31,0)"
^XMB(3.9,55,2,12066,0)=" S DIR(""B"")=""Yes"""
^XMB(3.9,55,2,12067,0)="""RTN"",""IBCEMCA"",32,0)"
^XMB(3.9,55,2,12068,0)=" D ^DIR K DIR"
^XMB(3.9,55,2,12069,0)="""RTN"",""IBCEMCA"",33,0)"
^XMB(3.9,55,2,12070,0)=" I $D(DIROUT) S RESET=1 G QX   ; kill scratch and rebuild the list"
^XMB(3.9,55,2,12071,0)="""RTN"",""IBCEMCA"",34,0)"
^XMB(3.9,55,2,12072,0)=" I $D(DIRUT) G Q1"
^XMB(3.9,55,2,12073,0)="""RTN"",""IBCEMCA"",35,0)"
^XMB(3.9,55,2,12074,0)=" S IBPAYER=Y"
^XMB(3.9,55,2,12075,0)="""RTN"",""IBCEMCA"",36,0)"
^XMB(3.9,55,2,12076,0)=" W !"
^XMB(3.9,55,2,12077,0)="""RTN"",""IBCEMCA"",37,0)"
^XMB(3.9,55,2,12078,0)=" ;"
^XMB(3.9,55,2,12079,0)="""RTN"",""IBCEMCA"",38,0)"
^XMB(3.9,55,2,12080,0)=" S IBDONE=0"
^XMB(3.9,55,2,12081,0)="""RTN"",""IBCEMCA"",39,0)"
^XMB(3.9,55,2,12082,0)=" F  D  Q:IBDONE"
^XMB(3.9,55,2,12083,0)="""RTN"",""IBCEMCA"",40,0)"
^XMB(3.9,55,2,12084,0)=" . S DIC=36,DIC(0)=""AEMQ"",DIC(""A"")=""   Select Insurance Company: """
^XMB(3.9,55,2,12085,0)="""RTN"",""IBCEMCA"",41,0)"
^XMB(3.9,55,2,12086,0)=" . I $O(^TMP($J,""IBCEMCA"",""INS"",1,"""")) S DIC(""A"")=""   Select Another Insurance Company: """
^XMB(3.9,55,2,12087,0)="""RTN"",""IBCEMCA"",42,0)"
^XMB(3.9,55,2,12088,0)=" . S DIC(""W"")=""D INSLIST^IBCEMCA(Y)"""
^XMB(3.9,55,2,12089,0)="""RTN"",""IBCEMCA"",43,0)"
^XMB(3.9,55,2,12090,0)=" . D ^DIC K DIC                ; lookup"
^XMB(3.9,55,2,12091,0)="""RTN"",""IBCEMCA"",44,0)"
^XMB(3.9,55,2,12092,0)=" . I X=""^^"" S IBDONE=2 Q       ; user entered ^^"
^XMB(3.9,55,2,12093,0)="""RTN"",""IBCEMCA"",45,0)"
^XMB(3.9,55,2,12094,0)=" . I +Y'>0 S IBDONE=1 Q        ; user is done"
^XMB(3.9,55,2,12095,0)="""RTN"",""IBCEMCA"",46,0)"
^XMB(3.9,55,2,12096,0)=" . S ^TMP($J,""IBCEMCA"",""INS"",1,+Y)=$P(Y,U,2)"
^XMB(3.9,55,2,12097,0)="""RTN"",""IBCEMCA"",47,0)"
^XMB(3.9,55,2,12098,0)=" . I 'IBPAYER Q"
^XMB(3.9,55,2,12099,0)="""RTN"",""IBCEMCA"",48,0)"
^XMB(3.9,55,2,12100,0)=" . S EDI=$$UP^XLFSTR($G(^DIC(36,+Y,3)))"
^XMB(3.9,55,2,12101,0)="""RTN"",""IBCEMCA"",49,0)"
^XMB(3.9,55,2,12102,0)=" . S PROF=$P(EDI,U,2)"
^XMB(3.9,55,2,12103,0)="""RTN"",""IBCEMCA"",50,0)"
^XMB(3.9,55,2,12104,0)=" . S INST=$P(EDI,U,4)"
^XMB(3.9,55,2,12105,0)="""RTN"",""IBCEMCA"",51,0)"
^XMB(3.9,55,2,12106,0)=" . I PROF'="""",PROF'[""PRNT"" S ^TMP($J,""IBCEMCA"",""INS"",2,PROF,+Y)="""""
^XMB(3.9,55,2,12107,0)="""RTN"",""IBCEMCA"",52,0)"
^XMB(3.9,55,2,12108,0)=" . I INST'="""",INST'[""PRNT"" S ^TMP($J,""IBCEMCA"",""INS"",2,INST,+Y)="""""
^XMB(3.9,55,2,12109,0)="""RTN"",""IBCEMCA"",53,0)"
^XMB(3.9,55,2,12110,0)=" . Q"
^XMB(3.9,55,2,12111,0)="""RTN"",""IBCEMCA"",54,0)"
^XMB(3.9,55,2,12112,0)=" ;"
^XMB(3.9,55,2,12113,0)="""RTN"",""IBCEMCA"",55,0)"
^XMB(3.9,55,2,12114,0)=" I IBDONE=2 S RESET=1 G QX      ;kill scratch and rebuild the list"
^XMB(3.9,55,2,12115,0)="""RTN"",""IBCEMCA"",56,0)"
^XMB(3.9,55,2,12116,0)=" ;"
^XMB(3.9,55,2,12117,0)="""RTN"",""IBCEMCA"",57,0)"
^XMB(3.9,55,2,12118,0)=" I '$O(^TMP($J,""IBCEMCA"",""INS"",1,"""")) D  G Q1"
^XMB(3.9,55,2,12119,0)="""RTN"",""IBCEMCA"",58,0)"
^XMB(3.9,55,2,12120,0)=" . W *7,!!?3,""No payers have been selected.  Please try again."""
^XMB(3.9,55,2,12121,0)="""RTN"",""IBCEMCA"",59,0)"
^XMB(3.9,55,2,12122,0)=" . Q"
^XMB(3.9,55,2,12123,0)="""RTN"",""IBCEMCA"",60,0)"
^XMB(3.9,55,2,12124,0)=" ;"
^XMB(3.9,55,2,12125,0)="""RTN"",""IBCEMCA"",61,0)"
^XMB(3.9,55,2,12126,0)="Q2 ; division"
^XMB(3.9,55,2,12127,0)="""RTN"",""IBCEMCA"",62,0)"
^XMB(3.9,55,2,12128,0)=" W !!,""DIVISION SELECTION:"""
^XMB(3.9,55,2,12129,0)="""RTN"",""IBCEMCA"",63,0)"
^XMB(3.9,55,2,12130,0)=" S DIR(0)=""SA^A:All Divisions;S:Selected Divisions"""
^XMB(3.9,55,2,12131,0)="""RTN"",""IBCEMCA"",64,0)"
^XMB(3.9,55,2,12132,0)=" S DIR(""A"")=""Include All Divisions or Selected Divisions? """
^XMB(3.9,55,2,12133,0)="""RTN"",""IBCEMCA"",65,0)"
^XMB(3.9,55,2,12134,0)=" S DIR(""B"")=""All"""
^XMB(3.9,55,2,12135,0)="""RTN"",""IBCEMCA"",66,0)"
^XMB(3.9,55,2,12136,0)=" D ^DIR K DIR"
^XMB(3.9,55,2,12137,0)="""RTN"",""IBCEMCA"",67,0)"
^XMB(3.9,55,2,12138,0)=" I $D(DIROUT) S RESET=1 G QX  ; kill scratch and rebuild list"
^XMB(3.9,55,2,12139,0)="""RTN"",""IBCEMCA"",68,0)"
^XMB(3.9,55,2,12140,0)=" I $D(DIRUT) G Q1"
^XMB(3.9,55,2,12141,0)="""RTN"",""IBCEMCA"",69,0)"
^XMB(3.9,55,2,12142,0)=" I Y=""A"" K ^TMP($J,""IBCEMCA"",""DIV"") G Q3"
^XMB(3.9,55,2,12143,0)="""RTN"",""IBCEMCA"",70,0)"
^XMB(3.9,55,2,12144,0)=" ;"
^XMB(3.9,55,2,12145,0)="""RTN"",""IBCEMCA"",71,0)"
^XMB(3.9,55,2,12146,0)=" W !"
^XMB(3.9,55,2,12147,0)="""RTN"",""IBCEMCA"",72,0)"
^XMB(3.9,55,2,12148,0)=" S IBDONE=0"
^XMB(3.9,55,2,12149,0)="""RTN"",""IBCEMCA"",73,0)"
^XMB(3.9,55,2,12150,0)=" F  D  Q:IBDONE"
^XMB(3.9,55,2,12151,0)="""RTN"",""IBCEMCA"",74,0)"
^XMB(3.9,55,2,12152,0)=" . S DIC=40.8,DIC(0)=""AEMQ"",DIC(""A"")=""   Select Division: """
^XMB(3.9,55,2,12153,0)="""RTN"",""IBCEMCA"",75,0)"
^XMB(3.9,55,2,12154,0)=" . I $O(^TMP($J,""IBCEMCA"",""DIV"","""")) S DIC(""A"")=""   Select Another Division: """
^XMB(3.9,55,2,12155,0)="""RTN"",""IBCEMCA"",76,0)"
^XMB(3.9,55,2,12156,0)=" . D ^DIC K DIC                ; lookup"
^XMB(3.9,55,2,12157,0)="""RTN"",""IBCEMCA"",77,0)"
^XMB(3.9,55,2,12158,0)=" . I X=""^^"" S IBDONE=2 Q       ; user entered ^^"
^XMB(3.9,55,2,12159,0)="""RTN"",""IBCEMCA"",78,0)"
^XMB(3.9,55,2,12160,0)=" . I +Y'>0 S IBDONE=1 Q        ; user is done"
^XMB(3.9,55,2,12161,0)="""RTN"",""IBCEMCA"",79,0)"
^XMB(3.9,55,2,12162,0)=" . S ^TMP($J,""IBCEMCA"",""DIV"",+Y)=$P(Y,U,2)"
^XMB(3.9,55,2,12163,0)="""RTN"",""IBCEMCA"",80,0)"
^XMB(3.9,55,2,12164,0)=" . Q"
^XMB(3.9,55,2,12165,0)="""RTN"",""IBCEMCA"",81,0)"
^XMB(3.9,55,2,12166,0)=" ;"
^XMB(3.9,55,2,12167,0)="""RTN"",""IBCEMCA"",82,0)"
^XMB(3.9,55,2,12168,0)=" I IBDONE=2 S RESET=1 G QX      ;kill scratch and rebuild the list"
^XMB(3.9,55,2,12169,0)="""RTN"",""IBCEMCA"",83,0)"
^XMB(3.9,55,2,12170,0)=" ;"
^XMB(3.9,55,2,12171,0)="""RTN"",""IBCEMCA"",84,0)"
^XMB(3.9,55,2,12172,0)=" I '$O(^TMP($J,""IBCEMCA"",""DIV"","""")) D  G Q2"
^XMB(3.9,55,2,12173,0)="""RTN"",""IBCEMCA"",85,0)"
^XMB(3.9,55,2,12174,0)=" . W *7,!!?3,""No divisions have been selected.  Please try again."""
^XMB(3.9,55,2,12175,0)="""RTN"",""IBCEMCA"",86,0)"
^XMB(3.9,55,2,12176,0)=" . Q"
^XMB(3.9,55,2,12177,0)="""RTN"",""IBCEMCA"",87,0)"
^XMB(3.9,55,2,12178,0)=" ;"
^XMB(3.9,55,2,12179,0)="""RTN"",""IBCEMCA"",88,0)"
^XMB(3.9,55,2,12180,0)="Q3 ; message text"
^XMB(3.9,55,2,12181,0)="""RTN"",""IBCEMCA"",89,0)"
^XMB(3.9,55,2,12182,0)=" W !!,""ERROR MESSAGE TEXT SELECTION:"""
^XMB(3.9,55,2,12183,0)="""RTN"",""IBCEMCA"",90,0)"
^XMB(3.9,55,2,12184,0)=" S DIR(0)=""SA^A:All Error Message Text;S:Select Error Message Text"""
^XMB(3.9,55,2,12185,0)="""RTN"",""IBCEMCA"",91,0)"
^XMB(3.9,55,2,12186,0)=" S DIR(""A"")=""Include All Error Message Text or Select Error Message Text? """
^XMB(3.9,55,2,12187,0)="""RTN"",""IBCEMCA"",92,0)"
^XMB(3.9,55,2,12188,0)=" S DIR(""B"")=""All"""
^XMB(3.9,55,2,12189,0)="""RTN"",""IBCEMCA"",93,0)"
^XMB(3.9,55,2,12190,0)=" D ^DIR K DIR"
^XMB(3.9,55,2,12191,0)="""RTN"",""IBCEMCA"",94,0)"
^XMB(3.9,55,2,12192,0)=" I $D(DIROUT) S RESET=1 G QX  ; kill scratch and rebuild list"
^XMB(3.9,55,2,12193,0)="""RTN"",""IBCEMCA"",95,0)"
^XMB(3.9,55,2,12194,0)=" I $D(DIRUT) G Q2"
^XMB(3.9,55,2,12195,0)="""RTN"",""IBCEMCA"",96,0)"
^XMB(3.9,55,2,12196,0)=" I Y=""A"" K ^TMP($J,""IBCEMCA"",""TEXT"") G Q4"
^XMB(3.9,55,2,12197,0)="""RTN"",""IBCEMCA"",97,0)"
^XMB(3.9,55,2,12198,0)=" ;"
^XMB(3.9,55,2,12199,0)="""RTN"",""IBCEMCA"",98,0)"
^XMB(3.9,55,2,12200,0)=" W !"
^XMB(3.9,55,2,12201,0)="""RTN"",""IBCEMCA"",99,0)"
^XMB(3.9,55,2,12202,0)=" S IBDONE=0"
^XMB(3.9,55,2,12203,0)="""RTN"",""IBCEMCA"",100,0)"
^XMB(3.9,55,2,12204,0)=" F  D  Q:IBDONE"
^XMB(3.9,55,2,12205,0)="""RTN"",""IBCEMCA"",101,0)"
^XMB(3.9,55,2,12206,0)=" . S DIR(0)=""FAOU"""
^XMB(3.9,55,2,12207,0)="""RTN"",""IBCEMCA"",102,0)"
^XMB(3.9,55,2,12208,0)=" . S DIR(""A"")=""   Text String: """
^XMB(3.9,55,2,12209,0)="""RTN"",""IBCEMCA"",103,0)"
^XMB(3.9,55,2,12210,0)=" . I $O(^TMP($J,""IBCEMCA"",""TEXT"",""""))'="""" S DIR(""A"")=""   Another Text String: """
^XMB(3.9,55,2,12211,0)="""RTN"",""IBCEMCA"",104,0)"
^XMB(3.9,55,2,12212,0)=" . D ^DIR K DIR                ; user response"
^XMB(3.9,55,2,12213,0)="""RTN"",""IBCEMCA"",105,0)"
^XMB(3.9,55,2,12214,0)=" . I $D(DIROUT) S IBDONE=2 Q   ; user entered ^^"
^XMB(3.9,55,2,12215,0)="""RTN"",""IBCEMCA"",106,0)"
^XMB(3.9,55,2,12216,0)=" . I $D(DIRUT) S IBDONE=1 Q    ; leading up-arrow or time-out"
^XMB(3.9,55,2,12217,0)="""RTN"",""IBCEMCA"",107,0)"
^XMB(3.9,55,2,12218,0)=" . I Y="""" S IBDONE=1 Q         ; null response"
^XMB(3.9,55,2,12219,0)="""RTN"",""IBCEMCA"",108,0)"
^XMB(3.9,55,2,12220,0)=" . S ^TMP($J,""IBCEMCA"",""TEXT"",Y)="""""
^XMB(3.9,55,2,12221,0)="""RTN"",""IBCEMCA"",109,0)"
^XMB(3.9,55,2,12222,0)=" . Q"
^XMB(3.9,55,2,12223,0)="""RTN"",""IBCEMCA"",110,0)"
^XMB(3.9,55,2,12224,0)=" ;"
^XMB(3.9,55,2,12225,0)="""RTN"",""IBCEMCA"",111,0)"
^XMB(3.9,55,2,12226,0)=" I IBDONE=2 S RESET=1 G QX      ;kill scratch and rebuild the list"
^XMB(3.9,55,2,12227,0)="""RTN"",""IBCEMCA"",112,0)"
^XMB(3.9,55,2,12228,0)=" ;"
^XMB(3.9,55,2,12229,0)="""RTN"",""IBCEMCA"",113,0)"
^XMB(3.9,55,2,12230,0)=" I $O(^TMP($J,""IBCEMCA"",""TEXT"",""""))="""" D  G Q3"
^XMB(3.9,55,2,12231,0)="""RTN"",""IBCEMCA"",114,0)"
^XMB(3.9,55,2,12232,0)=" . W *7,!!?3,""No text has been selected.  Please try again."""
^XMB(3.9,55,2,12233,0)="""RTN"",""IBCEMCA"",115,0)"
^XMB(3.9,55,2,12234,0)=" . Q"
^XMB(3.9,55,2,12235,0)="""RTN"",""IBCEMCA"",116,0)"
^XMB(3.9,55,2,12236,0)=" ;"
^XMB(3.9,55,2,12237,0)="""RTN"",""IBCEMCA"",117,0)"
^XMB(3.9,55,2,12238,0)="Q4 ; date range for when message received"
^XMB(3.9,55,2,12239,0)="""RTN"",""IBCEMCA"",118,0)"
^XMB(3.9,55,2,12240,0)=" W !!,""DATE MESSAGE RECEIVED SELECTION:"""
^XMB(3.9,55,2,12241,0)="""RTN"",""IBCEMCA"",119,0)"
^XMB(3.9,55,2,12242,0)=" S DIR(0)=""SA^A:All Dates;S:Select Date Range"""
^XMB(3.9,55,2,12243,0)="""RTN"",""IBCEMCA"",120,0)"
^XMB(3.9,55,2,12244,0)=" S DIR(""A"")=""Include All Dates or Select a Date Range? """
^XMB(3.9,55,2,12245,0)="""RTN"",""IBCEMCA"",121,0)"
^XMB(3.9,55,2,12246,0)=" S DIR(""B"")=""All"""
^XMB(3.9,55,2,12247,0)="""RTN"",""IBCEMCA"",122,0)"
^XMB(3.9,55,2,12248,0)=" D ^DIR K DIR"
^XMB(3.9,55,2,12249,0)="""RTN"",""IBCEMCA"",123,0)"
^XMB(3.9,55,2,12250,0)=" I $D(DIROUT) S RESET=1 G QX  ; kill scratch and rebuild list"
^XMB(3.9,55,2,12251,0)="""RTN"",""IBCEMCA"",124,0)"
^XMB(3.9,55,2,12252,0)=" I $D(DIRUT) G Q3"
^XMB(3.9,55,2,12253,0)="""RTN"",""IBCEMCA"",125,0)"
^XMB(3.9,55,2,12254,0)=" I Y=""A"" K ^TMP($J,""IBCEMCA"",""DATE"") G QX"
^XMB(3.9,55,2,12255,0)="""RTN"",""IBCEMCA"",126,0)"
^XMB(3.9,55,2,12256,0)=" ;"
^XMB(3.9,55,2,12257,0)="""RTN"",""IBCEMCA"",127,0)"
^XMB(3.9,55,2,12258,0)="Q4A ; beginning date"
^XMB(3.9,55,2,12259,0)="""RTN"",""IBCEMCA"",128,0)"
^XMB(3.9,55,2,12260,0)=" W !"
^XMB(3.9,55,2,12261,0)="""RTN"",""IBCEMCA"",129,0)"
^XMB(3.9,55,2,12262,0)=" S DIR(0)=""DAO^:""_DT_"":AEX"",DIR(""A"")=""   Enter the beginning date: """
^XMB(3.9,55,2,12263,0)="""RTN"",""IBCEMCA"",130,0)"
^XMB(3.9,55,2,12264,0)=" D ^DIR K DIR"
^XMB(3.9,55,2,12265,0)="""RTN"",""IBCEMCA"",131,0)"
^XMB(3.9,55,2,12266,0)=" I $D(DIROUT) S RESET=1 G QX   ; kill scratch and rebuild list"
^XMB(3.9,55,2,12267,0)="""RTN"",""IBCEMCA"",132,0)"
^XMB(3.9,55,2,12268,0)=" I $D(DIRUT)!'Y G Q4"
^XMB(3.9,55,2,12269,0)="""RTN"",""IBCEMCA"",133,0)"
^XMB(3.9,55,2,12270,0)=" S $P(^TMP($J,""IBCEMCA"",""DATE""),U,1)=Y"
^XMB(3.9,55,2,12271,0)="""RTN"",""IBCEMCA"",134,0)"
^XMB(3.9,55,2,12272,0)=" ;"
^XMB(3.9,55,2,12273,0)="""RTN"",""IBCEMCA"",135,0)"
^XMB(3.9,55,2,12274,0)="Q4B ; ending date"
^XMB(3.9,55,2,12275,0)="""RTN"",""IBCEMCA"",136,0)"
^XMB(3.9,55,2,12276,0)=" W !"
^XMB(3.9,55,2,12277,0)="""RTN"",""IBCEMCA"",137,0)"
^XMB(3.9,55,2,12278,0)=" S DIR(0)=""DAO^""_Y_"":""_DT_"":AEX"",DIR(""A"")=""   Enter the ending date: """
^XMB(3.9,55,2,12279,0)="""RTN"",""IBCEMCA"",138,0)"
^XMB(3.9,55,2,12280,0)=" D ^DIR K DIR"
^XMB(3.9,55,2,12281,0)="""RTN"",""IBCEMCA"",139,0)"
^XMB(3.9,55,2,12282,0)=" I $D(DIROUT) S RESET=1 G QX   ; kill scratch and rebuild list"
^XMB(3.9,55,2,12283,0)="""RTN"",""IBCEMCA"",140,0)"
^XMB(3.9,55,2,12284,0)=" I $D(DIRUT)!'Y G Q4A"
^XMB(3.9,55,2,12285,0)="""RTN"",""IBCEMCA"",141,0)"
^XMB(3.9,55,2,12286,0)=" S $P(^TMP($J,""IBCEMCA"",""DATE""),U,2)=Y"
^XMB(3.9,55,2,12287,0)="""RTN"",""IBCEMCA"",142,0)"
^XMB(3.9,55,2,12288,0)=" ;"
^XMB(3.9,55,2,12289,0)="""RTN"",""IBCEMCA"",143,0)"
^XMB(3.9,55,2,12290,0)="QX ; end of questions, rebuild the list with user supplied selections"
^XMB(3.9,55,2,12291,0)="""RTN"",""IBCEMCA"",144,0)"
^XMB(3.9,55,2,12292,0)=" I RESET KILL ^TMP($J,""IBCEMCA"")"
^XMB(3.9,55,2,12293,0)="""RTN"",""IBCEMCA"",145,0)"
^XMB(3.9,55,2,12294,0)=" D INIT^IBCEMCL"
^XMB(3.9,55,2,12295,0)="""RTN"",""IBCEMCA"",146,0)"
^XMB(3.9,55,2,12296,0)=" ;"
^XMB(3.9,55,2,12297,0)="""RTN"",""IBCEMCA"",147,0)"
^XMB(3.9,55,2,12298,0)="SCREENX ;"
^XMB(3.9,55,2,12299,0)="""RTN"",""IBCEMCA"",148,0)"
^XMB(3.9,55,2,12300,0)=" Q"
^XMB(3.9,55,2,12301,0)="""RTN"",""IBCEMCA"",149,0)"
^XMB(3.9,55,2,12302,0)=" ;"
^XMB(3.9,55,2,12303,0)="""RTN"",""IBCEMCA"",150,0)"
^XMB(3.9,55,2,12304,0)="TOGGLE ; Select/De-select entries in the list"
^XMB(3.9,55,2,12305,0)="""RTN"",""IBCEMCA"",151,0)"
^XMB(3.9,55,2,12306,0)=" NEW IBSEL,DIR,X,Y,DIRUT,DIROUT,DTOUT,DUOUT,IBCEMLST,IBCEMSUB,IBCEMPCE,IBZ,IBIFN,IBDA,IBVALM,Z,RSTA"
^XMB(3.9,55,2,12307,0)="""RTN"",""IBCEMCA"",152,0)"
^XMB(3.9,55,2,12308,0)=" D FULL^VALM1"
^XMB(3.9,55,2,12309,0)="""RTN"",""IBCEMCA"",153,0)"
^XMB(3.9,55,2,12310,0)=" I '$D(^TMP($J,""IBCEMCL"",3)) D  G TOGGLEX"
^XMB(3.9,55,2,12311,0)="""RTN"",""IBCEMCA"",154,0)"
^XMB(3.9,55,2,12312,0)=" . W !!?5,""There are no messages to select."" D PAUSE^VALM1"
^XMB(3.9,55,2,12313,0)="""RTN"",""IBCEMCA"",155,0)"
^XMB(3.9,55,2,12314,0)=" . Q"
^XMB(3.9,55,2,12315,0)="""RTN"",""IBCEMCA"",156,0)"
^XMB(3.9,55,2,12316,0)=" S DIR(0)=""LO^1:""_+$O(^TMP($J,""IBCEMCL"",3,""""),-1)"
^XMB(3.9,55,2,12317,0)="""RTN"",""IBCEMCA"",157,0)"
^XMB(3.9,55,2,12318,0)=" S DIR(""A"")=""Select EDI Status Messages"""
^XMB(3.9,55,2,12319,0)="""RTN"",""IBCEMCA"",158,0)"
^XMB(3.9,55,2,12320,0)=" W ! D ^DIR K DIR"
^XMB(3.9,55,2,12321,0)="""RTN"",""IBCEMCA"",159,0)"
^XMB(3.9,55,2,12322,0)=" I $D(DIRUT) G TOGGLEX"
^XMB(3.9,55,2,12323,0)="""RTN"",""IBCEMCA"",160,0)"
^XMB(3.9,55,2,12324,0)=" M IBCEMLST=Y"
^XMB(3.9,55,2,12325,0)="""RTN"",""IBCEMCA"",161,0)"
^XMB(3.9,55,2,12326,0)=" F IBCEMSUB=0:1 Q:'$D(IBCEMLST(IBCEMSUB))  F IBCEMPCE=1:1 S IBSEL=$P(IBCEMLST(IBCEMSUB),"","",IBCEMPCE) Q:'IBSEL  D"
^XMB(3.9,55,2,12327,0)="""RTN"",""IBCEMCA"",162,0)"
^XMB(3.9,55,2,12328,0)=" . S IBZ=$G(^TMP($J,""IBCEMCL"",3,IBSEL))"
^XMB(3.9,55,2,12329,0)="""RTN"",""IBCEMCA"",163,0)"
^XMB(3.9,55,2,12330,0)=" . S IBIFN=+IBZ,IBDA=+$P(IBZ,U,2),IBVALM=+$P(IBZ,U,4)"
^XMB(3.9,55,2,12331,0)="""RTN"",""IBCEMCA"",164,0)"
^XMB(3.9,55,2,12332,0)=" . I 'IBIFN Q"
^XMB(3.9,55,2,12333,0)="""RTN"",""IBCEMCA"",165,0)"
^XMB(3.9,55,2,12334,0)=" . I 'IBDA Q"
^XMB(3.9,55,2,12335,0)="""RTN"",""IBCEMCA"",166,0)"
^XMB(3.9,55,2,12336,0)=" . I 'IBVALM Q"
^XMB(3.9,55,2,12337,0)="""RTN"",""IBCEMCA"",167,0)"
^XMB(3.9,55,2,12338,0)=" . I '$D(^TMP($J,""IBCEMCL"",2,IBVALM,0)) Q"
^XMB(3.9,55,2,12339,0)="""RTN"",""IBCEMCA"",168,0)"
^XMB(3.9,55,2,12340,0)=" . D MARK^IBCEMCL(IBDA,IBIFN,IBVALM,IBSEL,.Z)"
^XMB(3.9,55,2,12341,0)="""RTN"",""IBCEMCA"",169,0)"
^XMB(3.9,55,2,12342,0)=" . I Z'="""" S RSTA(Z)=$G(RSTA(Z))+1"
^XMB(3.9,55,2,12343,0)="""RTN"",""IBCEMCA"",170,0)"
^XMB(3.9,55,2,12344,0)=" . Q"
^XMB(3.9,55,2,12345,0)="""RTN"",""IBCEMCA"",171,0)"
^XMB(3.9,55,2,12346,0)=" ;"
^XMB(3.9,55,2,12347,0)="""RTN"",""IBCEMCA"",172,0)"
^XMB(3.9,55,2,12348,0)=" I $G(RSTA(""L"")) D   ; display results only if some could not be selected"
^XMB(3.9,55,2,12349,0)="""RTN"",""IBCEMCA"",173,0)"
^XMB(3.9,55,2,12350,0)=" . W !!?8,""Number of messages selected:  "",+$G(RSTA(""S""))"
^XMB(3.9,55,2,12351,0)="""RTN"",""IBCEMCA"",174,0)"
^XMB(3.9,55,2,12352,0)=" . W !?5,""Number of messages de-selected:  "",+$G(RSTA(""D""))"
^XMB(3.9,55,2,12353,0)="""RTN"",""IBCEMCA"",175,0)"
^XMB(3.9,55,2,12354,0)=" . W !?2,""Number of messages that could not"""
^XMB(3.9,55,2,12355,0)="""RTN"",""IBCEMCA"",176,0)"
^XMB(3.9,55,2,12356,0)=" . W !?4,""be selected because other users"""
^XMB(3.9,55,2,12357,0)="""RTN"",""IBCEMCA"",177,0)"
^XMB(3.9,55,2,12358,0)=" . W !?12,""have them locked in CSA:  "",+$G(RSTA(""L""))"
^XMB(3.9,55,2,12359,0)="""RTN"",""IBCEMCA"",178,0)"
^XMB(3.9,55,2,12360,0)=" . D PAUSE^VALM1"
^XMB(3.9,55,2,12361,0)="""RTN"",""IBCEMCA"",179,0)"
^XMB(3.9,55,2,12362,0)=" . Q"
^XMB(3.9,55,2,12363,0)="""RTN"",""IBCEMCA"",180,0)"
^XMB(3.9,55,2,12364,0)="TOGGLEX ;"
^XMB(3.9,55,2,12365,0)="""RTN"",""IBCEMCA"",181,0)"
^XMB(3.9,55,2,12366,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,12367,0)="""RTN"",""IBCEMCA"",182,0)"
^XMB(3.9,55,2,12368,0)=" Q"
^XMB(3.9,55,2,12369,0)="""RTN"",""IBCEMCA"",183,0)"
^XMB(3.9,55,2,12370,0)=" ;"
^XMB(3.9,55,2,12371,0)="""RTN"",""IBCEMCA"",184,0)"
^XMB(3.9,55,2,12372,0)="INSLIST(INS) ; lister for DIC call.  INS is ien to file 36."
^XMB(3.9,55,2,12373,0)="""RTN"",""IBCEMCA"",185,0)"
^XMB(3.9,55,2,12374,0)=" NEW AD,L1,CITY,ST,EDI,PROF,INST,PYRID"
^XMB(3.9,55,2,12375,0)="""RTN"",""IBCEMCA"",186,0)"
^XMB(3.9,55,2,12376,0)=" S AD=$G(^DIC(36,INS,.11))"
^XMB(3.9,55,2,12377,0)="""RTN"",""IBCEMCA"",187,0)"
^XMB(3.9,55,2,12378,0)=" S L1=$P(AD,U,1),CITY=$P(AD,U,4),ST=$P(AD,U,5)"
^XMB(3.9,55,2,12379,0)="""RTN"",""IBCEMCA"",188,0)"
^XMB(3.9,55,2,12380,0)=" I ST S ST=$P($G(^DIC(5,ST,0)),U,2)"
^XMB(3.9,55,2,12381,0)="""RTN"",""IBCEMCA"",189,0)"
^XMB(3.9,55,2,12382,0)=" S CITY=$E(CITY,1,15)"
^XMB(3.9,55,2,12383,0)="""RTN"",""IBCEMCA"",190,0)"
^XMB(3.9,55,2,12384,0)=" I CITY'="""",ST'="""" S CITY=CITY_"","""
^XMB(3.9,55,2,12385,0)="""RTN"",""IBCEMCA"",191,0)"
^XMB(3.9,55,2,12386,0)=" S CITY=CITY_$E(ST,1,2)"
^XMB(3.9,55,2,12387,0)="""RTN"",""IBCEMCA"",192,0)"
^XMB(3.9,55,2,12388,0)=" ;"
^XMB(3.9,55,2,12389,0)="""RTN"",""IBCEMCA"",193,0)"
^XMB(3.9,55,2,12390,0)=" S EDI=$G(^DIC(36,INS,3))"
^XMB(3.9,55,2,12391,0)="""RTN"",""IBCEMCA"",194,0)"
^XMB(3.9,55,2,12392,0)=" S PROF=$P(EDI,U,2),INST=$P(EDI,U,4)"
^XMB(3.9,55,2,12393,0)="""RTN"",""IBCEMCA"",195,0)"
^XMB(3.9,55,2,12394,0)=" S PYRID=$E(PROF,1,5)"
^XMB(3.9,55,2,12395,0)="""RTN"",""IBCEMCA"",196,0)"
^XMB(3.9,55,2,12396,0)=" I PROF'="""",INST'="""" S PYRID=PYRID_""/"""
^XMB(3.9,55,2,12397,0)="""RTN"",""IBCEMCA"",197,0)"
^XMB(3.9,55,2,12398,0)=" S PYRID=PYRID_$E(INST,1,5)"
^XMB(3.9,55,2,12399,0)="""RTN"",""IBCEMCA"",198,0)"
^XMB(3.9,55,2,12400,0)=" ;"
^XMB(3.9,55,2,12401,0)="""RTN"",""IBCEMCA"",199,0)"
^XMB(3.9,55,2,12402,0)=" W ?27,$E(L1,1,20)        ; address line 1"
^XMB(3.9,55,2,12403,0)="""RTN"",""IBCEMCA"",200,0)"
^XMB(3.9,55,2,12404,0)=" W ?47,""  "",CITY          ; city,state"
^XMB(3.9,55,2,12405,0)="""RTN"",""IBCEMCA"",201,0)"
^XMB(3.9,55,2,12406,0)=" W ?67,""  "",PYRID         ; payer IDs"
^XMB(3.9,55,2,12407,0)="""RTN"",""IBCEMCA"",202,0)"
^XMB(3.9,55,2,12408,0)="INSLISTX ;"
^XMB(3.9,55,2,12409,0)="""RTN"",""IBCEMCA"",203,0)"
^XMB(3.9,55,2,12410,0)=" Q"
^XMB(3.9,55,2,12411,0)="""RTN"",""IBCEMCA"",204,0)"
^XMB(3.9,55,2,12412,0)=" ;"
^XMB(3.9,55,2,12413,0)="""RTN"",""IBCEMCA1"")"
^XMB(3.9,55,2,12414,0)="0^14^B46309574"
^XMB(3.9,55,2,12415,0)="""RTN"",""IBCEMCA1"",1,0)"
^XMB(3.9,55,2,12416,0)="IBCEMCA1 ;ALB/ESG - Multiple CSA Message Management - Actions ;20-SEP-2005"
^XMB(3.9,55,2,12417,0)="""RTN"",""IBCEMCA1"",2,0)"
^XMB(3.9,55,2,12418,0)=" ;;2.0;INTEGRATED BILLING;**320**;21-MAR-1994"
^XMB(3.9,55,2,12419,0)="""RTN"",""IBCEMCA1"",3,0)"
^XMB(3.9,55,2,12420,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,12421,0)="""RTN"",""IBCEMCA1"",4,0)"
^XMB(3.9,55,2,12422,0)=" ;"
^XMB(3.9,55,2,12423,0)="""RTN"",""IBCEMCA1"",5,0)"
^XMB(3.9,55,2,12424,0)=" Q"
^XMB(3.9,55,2,12425,0)="""RTN"",""IBCEMCA1"",6,0)"
^XMB(3.9,55,2,12426,0)="REVSTAT ; change review status"
^XMB(3.9,55,2,12427,0)="""RTN"",""IBCEMCA1"",7,0)"
^XMB(3.9,55,2,12428,0)=" NEW DIR,X,Y,DA,DIRUT,DIROUT,DTOUT,DUOUT,NS,IBRVUST,IBFNRVAC,IBRVCMT"
^XMB(3.9,55,2,12429,0)="""RTN"",""IBCEMCA1"",8,0)"
^XMB(3.9,55,2,12430,0)=" NEW DIC,DWLW,DWPK,DIWESUB,DIWETXT,LN,IBDA,IBOLD,DIE,DA,DR"
^XMB(3.9,55,2,12431,0)="""RTN"",""IBCEMCA1"",9,0)"
^XMB(3.9,55,2,12432,0)=" D FULL^VALM1"
^XMB(3.9,55,2,12433,0)="""RTN"",""IBCEMCA1"",10,0)"
^XMB(3.9,55,2,12434,0)=" S NS=+$G(^TMP($J,""IBCEMCL"",4))"
^XMB(3.9,55,2,12435,0)="""RTN"",""IBCEMCA1"",11,0)"
^XMB(3.9,55,2,12436,0)=" I 'NS D  G REVSTATX"
^XMB(3.9,55,2,12437,0)="""RTN"",""IBCEMCA1"",12,0)"
^XMB(3.9,55,2,12438,0)=" . W !!?5,""There are no selected messages."" D PAUSE^VALM1"
^XMB(3.9,55,2,12439,0)="""RTN"",""IBCEMCA1"",13,0)"
^XMB(3.9,55,2,12440,0)=" . Q"
^XMB(3.9,55,2,12441,0)="""RTN"",""IBCEMCA1"",14,0)"
^XMB(3.9,55,2,12442,0)=" ;"
^XMB(3.9,55,2,12443,0)="""RTN"",""IBCEMCA1"",15,0)"
^XMB(3.9,55,2,12444,0)=" W !!?5,""Number of messages selected:  "",NS,!"
^XMB(3.9,55,2,12445,0)="""RTN"",""IBCEMCA1"",16,0)"
^XMB(3.9,55,2,12446,0)=" ;"
^XMB(3.9,55,2,12447,0)="""RTN"",""IBCEMCA1"",17,0)"
^XMB(3.9,55,2,12448,0)=" ; reader call for the new review status field"
^XMB(3.9,55,2,12449,0)="""RTN"",""IBCEMCA1"",18,0)"
^XMB(3.9,55,2,12450,0)=" S DIR(0)=""361,.09"""
^XMB(3.9,55,2,12451,0)="""RTN"",""IBCEMCA1"",19,0)"
^XMB(3.9,55,2,12452,0)=" S DIR(""A"")=""Enter the REVIEW STATUS for the selected message""_$S(NS>1:""s"",1:"""")"
^XMB(3.9,55,2,12453,0)="""RTN"",""IBCEMCA1"",20,0)"
^XMB(3.9,55,2,12454,0)=" D ^DIR K DIR"
^XMB(3.9,55,2,12455,0)="""RTN"",""IBCEMCA1"",21,0)"
^XMB(3.9,55,2,12456,0)=" I $D(DIRUT) G REVSTATX"
^XMB(3.9,55,2,12457,0)="""RTN"",""IBCEMCA1"",22,0)"
^XMB(3.9,55,2,12458,0)=" M IBRVUST=Y"
^XMB(3.9,55,2,12459,0)="""RTN"",""IBCEMCA1"",23,0)"
^XMB(3.9,55,2,12460,0)=" I IBRVUST'=2 G RVCQ    ; skip down to the confirmation"
^XMB(3.9,55,2,12461,0)="""RTN"",""IBCEMCA1"",24,0)"
^XMB(3.9,55,2,12462,0)=" ;"
^XMB(3.9,55,2,12463,0)="""RTN"",""IBCEMCA1"",25,0)"
^XMB(3.9,55,2,12464,0)="RSQ2 ; Reader call for the final review action field"
^XMB(3.9,55,2,12465,0)="""RTN"",""IBCEMCA1"",26,0)"
^XMB(3.9,55,2,12466,0)=" W !"
^XMB(3.9,55,2,12467,0)="""RTN"",""IBCEMCA1"",27,0)"
^XMB(3.9,55,2,12468,0)=" S DIR(0)=""361,.1"""
^XMB(3.9,55,2,12469,0)="""RTN"",""IBCEMCA1"",28,0)"
^XMB(3.9,55,2,12470,0)=" S DIR(""A"")=""Enter the FINAL REVIEW ACTION for the selected message""_$S(NS>1:""s"",1:"""")"
^XMB(3.9,55,2,12471,0)="""RTN"",""IBCEMCA1"",29,0)"
^XMB(3.9,55,2,12472,0)=" D ^DIR K DIR"
^XMB(3.9,55,2,12473,0)="""RTN"",""IBCEMCA1"",30,0)"
^XMB(3.9,55,2,12474,0)=" I X="""",Y="""" W !!?5,""This field is required when the review has been completed."" G RSQ2"
^XMB(3.9,55,2,12475,0)="""RTN"",""IBCEMCA1"",31,0)"
^XMB(3.9,55,2,12476,0)=" I $D(DIRUT) G REVSTATX"
^XMB(3.9,55,2,12477,0)="""RTN"",""IBCEMCA1"",32,0)"
^XMB(3.9,55,2,12478,0)=" M IBFNRVAC=Y"
^XMB(3.9,55,2,12479,0)="""RTN"",""IBCEMCA1"",33,0)"
^XMB(3.9,55,2,12480,0)=" ;"
^XMB(3.9,55,2,12481,0)="""RTN"",""IBCEMCA1"",34,0)"
^XMB(3.9,55,2,12482,0)="RSQ3 ; review comment text"
^XMB(3.9,55,2,12483,0)="""RTN"",""IBCEMCA1"",35,0)"
^XMB(3.9,55,2,12484,0)=" W !"
^XMB(3.9,55,2,12485,0)="""RTN"",""IBCEMCA1"",36,0)"
^XMB(3.9,55,2,12486,0)=" K ^TMP($J,""IBCEMCA1-COMMENTS""),IBRVCMT"
^XMB(3.9,55,2,12487,0)="""RTN"",""IBCEMCA1"",37,0)"
^XMB(3.9,55,2,12488,0)=" S DIC=""^TMP($J,""""IBCEMCA1-COMMENTS"""","""
^XMB(3.9,55,2,12489,0)="""RTN"",""IBCEMCA1"",38,0)"
^XMB(3.9,55,2,12490,0)=" S DWLW=75,DWPK=1,DIWESUB=""REVIEW COMMENTS"""
^XMB(3.9,55,2,12491,0)="""RTN"",""IBCEMCA1"",39,0)"
^XMB(3.9,55,2,12492,0)=" S DIWETXT=""These comments are optional"""
^XMB(3.9,55,2,12493,0)="""RTN"",""IBCEMCA1"",40,0)"
^XMB(3.9,55,2,12494,0)=" I IBFNRVAC=""O"" S DIWETXT=""These comments are required because OTHER ACTION was selected."""
^XMB(3.9,55,2,12495,0)="""RTN"",""IBCEMCA1"",41,0)"
^XMB(3.9,55,2,12496,0)=" D EN^DIWE"
^XMB(3.9,55,2,12497,0)="""RTN"",""IBCEMCA1"",42,0)"
^XMB(3.9,55,2,12498,0)=" M IBRVCMT=^TMP($J,""IBCEMCA1-COMMENTS"")"
^XMB(3.9,55,2,12499,0)="""RTN"",""IBCEMCA1"",43,0)"
^XMB(3.9,55,2,12500,0)=" K ^TMP($J,""IBCEMCA1-COMMENTS"")"
^XMB(3.9,55,2,12501,0)="""RTN"",""IBCEMCA1"",44,0)"
^XMB(3.9,55,2,12502,0)=" I IBFNRVAC=""O"",'$D(IBRVCMT(0)) D  G RSQ3"
^XMB(3.9,55,2,12503,0)="""RTN"",""IBCEMCA1"",45,0)"
^XMB(3.9,55,2,12504,0)=" . W !!?5,""Comments are required when the Final Review Action is OTHER ACTION."""
^XMB(3.9,55,2,12505,0)="""RTN"",""IBCEMCA1"",46,0)"
^XMB(3.9,55,2,12506,0)=" . D PAUSE^VALM1"
^XMB(3.9,55,2,12507,0)="""RTN"",""IBCEMCA1"",47,0)"
^XMB(3.9,55,2,12508,0)=" . Q"
^XMB(3.9,55,2,12509,0)="""RTN"",""IBCEMCA1"",48,0)"
^XMB(3.9,55,2,12510,0)=" I $P($G(IBRVCMT(0)),U,4) S IBRVCMT=$P($G(IBRVCMT(0)),U,4)"
^XMB(3.9,55,2,12511,0)="""RTN"",""IBCEMCA1"",49,0)"
^XMB(3.9,55,2,12512,0)=" ;"
^XMB(3.9,55,2,12513,0)="""RTN"",""IBCEMCA1"",50,0)"
^XMB(3.9,55,2,12514,0)="RVCQ ; display a summary of the user responses and get confirmation"
^XMB(3.9,55,2,12515,0)="""RTN"",""IBCEMCA1"",51,0)"
^XMB(3.9,55,2,12516,0)=" W !!,""  Number of selected"",!,""     Status Messages:  "",NS"
^XMB(3.9,55,2,12517,0)="""RTN"",""IBCEMCA1"",52,0)"
^XMB(3.9,55,2,12518,0)=" W !?7,""Review Status:  "",$G(IBRVUST(0))"
^XMB(3.9,55,2,12519,0)="""RTN"",""IBCEMCA1"",53,0)"
^XMB(3.9,55,2,12520,0)=" I IBRVUST=2 D"
^XMB(3.9,55,2,12521,0)="""RTN"",""IBCEMCA1"",54,0)"
^XMB(3.9,55,2,12522,0)=" . W !,"" Final Review Action:  "",$G(IBFNRVAC(0))"
^XMB(3.9,55,2,12523,0)="""RTN"",""IBCEMCA1"",55,0)"
^XMB(3.9,55,2,12524,0)=" . W !?5,""Review Comments:  """
^XMB(3.9,55,2,12525,0)="""RTN"",""IBCEMCA1"",56,0)"
^XMB(3.9,55,2,12526,0)=" . I '$D(IBRVCMT(0)) W ""<none>"""
^XMB(3.9,55,2,12527,0)="""RTN"",""IBCEMCA1"",57,0)"
^XMB(3.9,55,2,12528,0)=" . E  S LN=0 F  S LN=$O(IBRVCMT(LN)) Q:'LN  W !?5,IBRVCMT(LN,0)"
^XMB(3.9,55,2,12529,0)="""RTN"",""IBCEMCA1"",58,0)"
^XMB(3.9,55,2,12530,0)=" . Q"
^XMB(3.9,55,2,12531,0)="""RTN"",""IBCEMCA1"",59,0)"
^XMB(3.9,55,2,12532,0)=" W !"
^XMB(3.9,55,2,12533,0)="""RTN"",""IBCEMCA1"",60,0)"
^XMB(3.9,55,2,12534,0)=" S DIR(0)=""YO"""
^XMB(3.9,55,2,12535,0)="""RTN"",""IBCEMCA1"",61,0)"
^XMB(3.9,55,2,12536,0)=" S DIR(""A"")=""OK to proceed"",DIR(""B"")=""No"""
^XMB(3.9,55,2,12537,0)="""RTN"",""IBCEMCA1"",62,0)"
^XMB(3.9,55,2,12538,0)=" D ^DIR K DIR"
^XMB(3.9,55,2,12539,0)="""RTN"",""IBCEMCA1"",63,0)"
^XMB(3.9,55,2,12540,0)=" I Y'=1 G REVSTATX"
^XMB(3.9,55,2,12541,0)="""RTN"",""IBCEMCA1"",64,0)"
^XMB(3.9,55,2,12542,0)=" ;"
^XMB(3.9,55,2,12543,0)="""RTN"",""IBCEMCA1"",65,0)"
^XMB(3.9,55,2,12544,0)=" ; Loop thru selected status messages and update them"
^XMB(3.9,55,2,12545,0)="""RTN"",""IBCEMCA1"",66,0)"
^XMB(3.9,55,2,12546,0)=" S IBDA=0"
^XMB(3.9,55,2,12547,0)="""RTN"",""IBCEMCA1"",67,0)"
^XMB(3.9,55,2,12548,0)=" F  S IBDA=$O(^TMP($J,""IBCEMCL"",4,1,IBDA)) Q:'IBDA  D"
^XMB(3.9,55,2,12549,0)="""RTN"",""IBCEMCA1"",68,0)"
^XMB(3.9,55,2,12550,0)=" . S IBOLD=$P($G(^IBM(361,IBDA,0)),U,9)    ; old review status"
^XMB(3.9,55,2,12551,0)="""RTN"",""IBCEMCA1"",69,0)"
^XMB(3.9,55,2,12552,0)=" . S DIE=361,DA=IBDA"
^XMB(3.9,55,2,12553,0)="""RTN"",""IBCEMCA1"",70,0)"
^XMB(3.9,55,2,12554,0)=" . S DR="".09////""_IBRVUST"
^XMB(3.9,55,2,12555,0)="""RTN"",""IBCEMCA1"",71,0)"
^XMB(3.9,55,2,12556,0)=" . I $G(IBFNRVAC)'="""" S DR=DR_"";.1////""_$G(IBFNRVAC)"
^XMB(3.9,55,2,12557,0)="""RTN"",""IBCEMCA1"",72,0)"
^XMB(3.9,55,2,12558,0)=" . D ^DIE"
^XMB(3.9,55,2,12559,0)="""RTN"",""IBCEMCA1"",73,0)"
^XMB(3.9,55,2,12560,0)=" . I $D(IBRVCMT(0)) D NOTECHG^IBCECSA2(IBDA,0,.IBRVCMT,1)"
^XMB(3.9,55,2,12561,0)="""RTN"",""IBCEMCA1"",74,0)"
^XMB(3.9,55,2,12562,0)=" . I IBOLD'=IBRVUST D NOTECHG^IBCECSA2(IBDA,0)"
^XMB(3.9,55,2,12563,0)="""RTN"",""IBCEMCA1"",75,0)"
^XMB(3.9,55,2,12564,0)=" . L -^IBM(361,IBDA)       ; unlock"
^XMB(3.9,55,2,12565,0)="""RTN"",""IBCEMCA1"",76,0)"
^XMB(3.9,55,2,12566,0)=" . Q"
^XMB(3.9,55,2,12567,0)="""RTN"",""IBCEMCA1"",77,0)"
^XMB(3.9,55,2,12568,0)=" W ""   ... Done!"""
^XMB(3.9,55,2,12569,0)="""RTN"",""IBCEMCA1"",78,0)"
^XMB(3.9,55,2,12570,0)=" ;"
^XMB(3.9,55,2,12571,0)="""RTN"",""IBCEMCA1"",79,0)"
^XMB(3.9,55,2,12572,0)=" ; rebuild the list"
^XMB(3.9,55,2,12573,0)="""RTN"",""IBCEMCA1"",80,0)"
^XMB(3.9,55,2,12574,0)=" KILL ^TMP($J,""IBCEMCA""),VALMHDR"
^XMB(3.9,55,2,12575,0)="""RTN"",""IBCEMCA1"",81,0)"
^XMB(3.9,55,2,12576,0)=" S VALMBG=1"
^XMB(3.9,55,2,12577,0)="""RTN"",""IBCEMCA1"",82,0)"
^XMB(3.9,55,2,12578,0)=" D INIT^IBCEMCL"
^XMB(3.9,55,2,12579,0)="""RTN"",""IBCEMCA1"",83,0)"
^XMB(3.9,55,2,12580,0)=" I $G(IBCSAMCS)=1 S IBCSAMCS=2   ; flag to rebuild CSA"
^XMB(3.9,55,2,12581,0)="""RTN"",""IBCEMCA1"",84,0)"
^XMB(3.9,55,2,12582,0)=" ;"
^XMB(3.9,55,2,12583,0)="""RTN"",""IBCEMCA1"",85,0)"
^XMB(3.9,55,2,12584,0)="REVSTATX ;"
^XMB(3.9,55,2,12585,0)="""RTN"",""IBCEMCA1"",86,0)"
^XMB(3.9,55,2,12586,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,12587,0)="""RTN"",""IBCEMCA1"",87,0)"
^XMB(3.9,55,2,12588,0)=" Q"
^XMB(3.9,55,2,12589,0)="""RTN"",""IBCEMCA1"",88,0)"
^XMB(3.9,55,2,12590,0)=" ;"
^XMB(3.9,55,2,12591,0)="""RTN"",""IBCEMCA1"",89,0)"
^XMB(3.9,55,2,12592,0)="COMMENT ; enter review comments"
^XMB(3.9,55,2,12593,0)="""RTN"",""IBCEMCA1"",90,0)"
^XMB(3.9,55,2,12594,0)=" NEW NS,DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT,IBRVCMT,DIC,DWLW,DWPK,DIWESUB,IBDA,LN"
^XMB(3.9,55,2,12595,0)="""RTN"",""IBCEMCA1"",91,0)"
^XMB(3.9,55,2,12596,0)=" D FULL^VALM1"
^XMB(3.9,55,2,12597,0)="""RTN"",""IBCEMCA1"",92,0)"
^XMB(3.9,55,2,12598,0)=" S NS=+$G(^TMP($J,""IBCEMCL"",4))"
^XMB(3.9,55,2,12599,0)="""RTN"",""IBCEMCA1"",93,0)"
^XMB(3.9,55,2,12600,0)=" I 'NS D  G COMMX"
^XMB(3.9,55,2,12601,0)="""RTN"",""IBCEMCA1"",94,0)"
^XMB(3.9,55,2,12602,0)=" . W !!?5,""There are no selected messages."" D PAUSE^VALM1"
^XMB(3.9,55,2,12603,0)="""RTN"",""IBCEMCA1"",95,0)"
^XMB(3.9,55,2,12604,0)=" . Q"
^XMB(3.9,55,2,12605,0)="""RTN"",""IBCEMCA1"",96,0)"
^XMB(3.9,55,2,12606,0)=" ;"
^XMB(3.9,55,2,12607,0)="""RTN"",""IBCEMCA1"",97,0)"
^XMB(3.9,55,2,12608,0)=" W !!?5,""Number of messages selected:  "",NS,!"
^XMB(3.9,55,2,12609,0)="""RTN"",""IBCEMCA1"",98,0)"
^XMB(3.9,55,2,12610,0)=" ;"
^XMB(3.9,55,2,12611,0)="""RTN"",""IBCEMCA1"",99,0)"
^XMB(3.9,55,2,12612,0)=" S DIR(0)=""YO"",DIR(""B"")=""Yes"""
^XMB(3.9,55,2,12613,0)="""RTN"",""IBCEMCA1"",100,0)"
^XMB(3.9,55,2,12614,0)=" S DIR(""A"")=""Do you want to add a new Review Comment for all of these messages"""
^XMB(3.9,55,2,12615,0)="""RTN"",""IBCEMCA1"",101,0)"
^XMB(3.9,55,2,12616,0)=" I NS=1 S DIR(""A"")=""Do you want to add a new Review Comment for this message"""
^XMB(3.9,55,2,12617,0)="""RTN"",""IBCEMCA1"",102,0)"
^XMB(3.9,55,2,12618,0)=" D ^DIR K DIR"
^XMB(3.9,55,2,12619,0)="""RTN"",""IBCEMCA1"",103,0)"
^XMB(3.9,55,2,12620,0)=" I Y'=1 G COMMX"
^XMB(3.9,55,2,12621,0)="""RTN"",""IBCEMCA1"",104,0)"
^XMB(3.9,55,2,12622,0)=" ;"
^XMB(3.9,55,2,12623,0)="""RTN"",""IBCEMCA1"",105,0)"
^XMB(3.9,55,2,12624,0)=" ; review comment text"
^XMB(3.9,55,2,12625,0)="""RTN"",""IBCEMCA1"",106,0)"
^XMB(3.9,55,2,12626,0)=" W !"
^XMB(3.9,55,2,12627,0)="""RTN"",""IBCEMCA1"",107,0)"
^XMB(3.9,55,2,12628,0)=" K ^TMP($J,""IBCEMCA1-COMMENTS""),IBRVCMT"
^XMB(3.9,55,2,12629,0)="""RTN"",""IBCEMCA1"",108,0)"
^XMB(3.9,55,2,12630,0)=" S DIC=""^TMP($J,""""IBCEMCA1-COMMENTS"""","""
^XMB(3.9,55,2,12631,0)="""RTN"",""IBCEMCA1"",109,0)"
^XMB(3.9,55,2,12632,0)=" S DWLW=75,DWPK=1,DIWESUB=""REVIEW COMMENTS"""
^XMB(3.9,55,2,12633,0)="""RTN"",""IBCEMCA1"",110,0)"
^XMB(3.9,55,2,12634,0)=" D EN^DIWE"
^XMB(3.9,55,2,12635,0)="""RTN"",""IBCEMCA1"",111,0)"
^XMB(3.9,55,2,12636,0)=" M IBRVCMT=^TMP($J,""IBCEMCA1-COMMENTS"")"
^XMB(3.9,55,2,12637,0)="""RTN"",""IBCEMCA1"",112,0)"
^XMB(3.9,55,2,12638,0)=" K ^TMP($J,""IBCEMCA1-COMMENTS"")"
^XMB(3.9,55,2,12639,0)="""RTN"",""IBCEMCA1"",113,0)"
^XMB(3.9,55,2,12640,0)=" I $P($G(IBRVCMT(0)),U,4) S IBRVCMT=$P($G(IBRVCMT(0)),U,4)"
^XMB(3.9,55,2,12641,0)="""RTN"",""IBCEMCA1"",114,0)"
^XMB(3.9,55,2,12642,0)=" I '$D(IBRVCMT(0)) G COMMX    ; no comments entered"
^XMB(3.9,55,2,12643,0)="""RTN"",""IBCEMCA1"",115,0)"
^XMB(3.9,55,2,12644,0)=" ;"
^XMB(3.9,55,2,12645,0)="""RTN"",""IBCEMCA1"",116,0)"
^XMB(3.9,55,2,12646,0)=" ; final confirmation"
^XMB(3.9,55,2,12647,0)="""RTN"",""IBCEMCA1"",117,0)"
^XMB(3.9,55,2,12648,0)=" W !"
^XMB(3.9,55,2,12649,0)="""RTN"",""IBCEMCA1"",118,0)"
^XMB(3.9,55,2,12650,0)=" S LN=0 F  S LN=$O(IBRVCMT(LN)) Q:'LN  W !?5,IBRVCMT(LN,0)"
^XMB(3.9,55,2,12651,0)="""RTN"",""IBCEMCA1"",119,0)"
^XMB(3.9,55,2,12652,0)=" W !"
^XMB(3.9,55,2,12653,0)="""RTN"",""IBCEMCA1"",120,0)"
^XMB(3.9,55,2,12654,0)=" S DIR(0)=""YO"""
^XMB(3.9,55,2,12655,0)="""RTN"",""IBCEMCA1"",121,0)"
^XMB(3.9,55,2,12656,0)=" S DIR(""A"")=""OK to add this comment for all selected status messages"",DIR(""B"")=""No"""
^XMB(3.9,55,2,12657,0)="""RTN"",""IBCEMCA1"",122,0)"
^XMB(3.9,55,2,12658,0)=" I NS=1 S DIR(""A"")=""OK to add this comment for the selected status message"""
^XMB(3.9,55,2,12659,0)="""RTN"",""IBCEMCA1"",123,0)"
^XMB(3.9,55,2,12660,0)=" D ^DIR K DIR"
^XMB(3.9,55,2,12661,0)="""RTN"",""IBCEMCA1"",124,0)"
^XMB(3.9,55,2,12662,0)=" I Y'=1 G COMMX"
^XMB(3.9,55,2,12663,0)="""RTN"",""IBCEMCA1"",125,0)"
^XMB(3.9,55,2,12664,0)=" ;"
^XMB(3.9,55,2,12665,0)="""RTN"",""IBCEMCA1"",126,0)"
^XMB(3.9,55,2,12666,0)=" ; Loop thru selected status messages and update them"
^XMB(3.9,55,2,12667,0)="""RTN"",""IBCEMCA1"",127,0)"
^XMB(3.9,55,2,12668,0)=" S IBDA=0"
^XMB(3.9,55,2,12669,0)="""RTN"",""IBCEMCA1"",128,0)"
^XMB(3.9,55,2,12670,0)=" F  S IBDA=$O(^TMP($J,""IBCEMCL"",4,1,IBDA)) Q:'IBDA  D"
^XMB(3.9,55,2,12671,0)="""RTN"",""IBCEMCA1"",129,0)"
^XMB(3.9,55,2,12672,0)=" . D NOTECHG^IBCECSA2(IBDA,0,.IBRVCMT,1)"
^XMB(3.9,55,2,12673,0)="""RTN"",""IBCEMCA1"",130,0)"
^XMB(3.9,55,2,12674,0)=" . L -^IBM(361,IBDA)       ; unlock"
^XMB(3.9,55,2,12675,0)="""RTN"",""IBCEMCA1"",131,0)"
^XMB(3.9,55,2,12676,0)=" . Q"
^XMB(3.9,55,2,12677,0)="""RTN"",""IBCEMCA1"",132,0)"
^XMB(3.9,55,2,12678,0)=" W ""   ... Done!"""
^XMB(3.9,55,2,12679,0)="""RTN"",""IBCEMCA1"",133,0)"
^XMB(3.9,55,2,12680,0)=" ;"
^XMB(3.9,55,2,12681,0)="""RTN"",""IBCEMCA1"",134,0)"
^XMB(3.9,55,2,12682,0)=" ; rebuild the list"
^XMB(3.9,55,2,12683,0)="""RTN"",""IBCEMCA1"",135,0)"
^XMB(3.9,55,2,12684,0)=" KILL ^TMP($J,""IBCEMCA""),VALMHDR"
^XMB(3.9,55,2,12685,0)="""RTN"",""IBCEMCA1"",136,0)"
^XMB(3.9,55,2,12686,0)=" S VALMBG=1"
^XMB(3.9,55,2,12687,0)="""RTN"",""IBCEMCA1"",137,0)"
^XMB(3.9,55,2,12688,0)=" D INIT^IBCEMCL"
^XMB(3.9,55,2,12689,0)="""RTN"",""IBCEMCA1"",138,0)"
^XMB(3.9,55,2,12690,0)=" ;"
^XMB(3.9,55,2,12691,0)="""RTN"",""IBCEMCA1"",139,0)"
^XMB(3.9,55,2,12692,0)="COMMX ;"
^XMB(3.9,55,2,12693,0)="""RTN"",""IBCEMCA1"",140,0)"
^XMB(3.9,55,2,12694,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,12695,0)="""RTN"",""IBCEMCA1"",141,0)"
^XMB(3.9,55,2,12696,0)=" Q"
^XMB(3.9,55,2,12697,0)="""RTN"",""IBCEMCA1"",142,0)"
^XMB(3.9,55,2,12698,0)=" ;"
^XMB(3.9,55,2,12699,0)="""RTN"",""IBCEMCA1"",143,0)"
^XMB(3.9,55,2,12700,0)="RETRAN ; retransmit claims"
^XMB(3.9,55,2,12701,0)="""RTN"",""IBCEMCA1"",144,0)"
^XMB(3.9,55,2,12702,0)=" NEW NS,IBIFN,NSC,DIR,X,Y,DUOUT,DTOUT,DIRUT,DIROUT,IBDA,IB364"
^XMB(3.9,55,2,12703,0)="""RTN"",""IBCEMCA1"",145,0)"
^XMB(3.9,55,2,12704,0)=" D FULL^VALM1"
^XMB(3.9,55,2,12705,0)="""RTN"",""IBCEMCA1"",146,0)"
^XMB(3.9,55,2,12706,0)=" S NS=+$G(^TMP($J,""IBCEMCL"",4))"
^XMB(3.9,55,2,12707,0)="""RTN"",""IBCEMCA1"",147,0)"
^XMB(3.9,55,2,12708,0)=" I 'NS D  G RETRANX"
^XMB(3.9,55,2,12709,0)="""RTN"",""IBCEMCA1"",148,0)"
^XMB(3.9,55,2,12710,0)=" . W !!?5,""There are no selected messages."" D PAUSE^VALM1"
^XMB(3.9,55,2,12711,0)="""RTN"",""IBCEMCA1"",149,0)"
^XMB(3.9,55,2,12712,0)=" . Q"
^XMB(3.9,55,2,12713,0)="""RTN"",""IBCEMCA1"",150,0)"
^XMB(3.9,55,2,12714,0)=" ;"
^XMB(3.9,55,2,12715,0)="""RTN"",""IBCEMCA1"",151,0)"
^XMB(3.9,55,2,12716,0)=" ; count number of claims too"
^XMB(3.9,55,2,12717,0)="""RTN"",""IBCEMCA1"",152,0)"
^XMB(3.9,55,2,12718,0)=" S IBIFN=0 F NSC=0:1 S IBIFN=$O(^TMP($J,""IBCEMCL"",4,2,IBIFN)) Q:'IBIFN"
^XMB(3.9,55,2,12719,0)="""RTN"",""IBCEMCA1"",153,0)"
^XMB(3.9,55,2,12720,0)=" ;"
^XMB(3.9,55,2,12721,0)="""RTN"",""IBCEMCA1"",154,0)"
^XMB(3.9,55,2,12722,0)=" W !!?5,""Number of messages selected:  "",NS"
^XMB(3.9,55,2,12723,0)="""RTN"",""IBCEMCA1"",155,0)"
^XMB(3.9,55,2,12724,0)=" W !?7,""Number of claims selected:  "",NSC,!"
^XMB(3.9,55,2,12725,0)="""RTN"",""IBCEMCA1"",156,0)"
^XMB(3.9,55,2,12726,0)=" ;"
^XMB(3.9,55,2,12727,0)="""RTN"",""IBCEMCA1"",157,0)"
^XMB(3.9,55,2,12728,0)=" S DIR(""A"",1)=""In order to retransmit these claims, the transmission status for all of these"""
^XMB(3.9,55,2,12729,0)="""RTN"",""IBCEMCA1"",158,0)"
^XMB(3.9,55,2,12730,0)=" S DIR(""A"",2)=""claims will be reset to be """"READY FOR EXTRACT"""".  These claims will then be"""
^XMB(3.9,55,2,12731,0)="""RTN"",""IBCEMCA1"",159,0)"
^XMB(3.9,55,2,12732,0)=" S DIR(""A"",3)=""sent with the next regularly scheduled claims transmission process."""
^XMB(3.9,55,2,12733,0)="""RTN"",""IBCEMCA1"",160,0)"
^XMB(3.9,55,2,12734,0)=" S DIR(""A"",4)="""""
^XMB(3.9,55,2,12735,0)="""RTN"",""IBCEMCA1"",161,0)"
^XMB(3.9,55,2,12736,0)=" S DIR(""A"")=""Do you want to retransmit these claims"""
^XMB(3.9,55,2,12737,0)="""RTN"",""IBCEMCA1"",162,0)"
^XMB(3.9,55,2,12738,0)=" I NSC=1 D"
^XMB(3.9,55,2,12739,0)="""RTN"",""IBCEMCA1"",163,0)"
^XMB(3.9,55,2,12740,0)=" . S DIR(""A"",1)=""In order to retransmit this claim, the transmission status for this claim will"""
^XMB(3.9,55,2,12741,0)="""RTN"",""IBCEMCA1"",164,0)"
^XMB(3.9,55,2,12742,0)=" . S DIR(""A"",2)=""be reset to be """"READY FOR EXTRACT"""".  This claim will then be sent with the"""
^XMB(3.9,55,2,12743,0)="""RTN"",""IBCEMCA1"",165,0)"
^XMB(3.9,55,2,12744,0)=" . S DIR(""A"",3)=""next regularly scheduled claims transmission process."""
^XMB(3.9,55,2,12745,0)="""RTN"",""IBCEMCA1"",166,0)"
^XMB(3.9,55,2,12746,0)=" . S DIR(""A"")=""Do you want to retransmit this claim"""
^XMB(3.9,55,2,12747,0)="""RTN"",""IBCEMCA1"",167,0)"
^XMB(3.9,55,2,12748,0)=" . Q"
^XMB(3.9,55,2,12749,0)="""RTN"",""IBCEMCA1"",168,0)"
^XMB(3.9,55,2,12750,0)=" S DIR(0)=""YO"",DIR(""B"")=""No"" D ^DIR K DIR"
^XMB(3.9,55,2,12751,0)="""RTN"",""IBCEMCA1"",169,0)"
^XMB(3.9,55,2,12752,0)=" I Y'=1 G RETRANX"
^XMB(3.9,55,2,12753,0)="""RTN"",""IBCEMCA1"",170,0)"
^XMB(3.9,55,2,12754,0)=" ;"
^XMB(3.9,55,2,12755,0)="""RTN"",""IBCEMCA1"",171,0)"
^XMB(3.9,55,2,12756,0)=" ; Loop thru selected claims and add new transmission records in a"
^XMB(3.9,55,2,12757,0)="""RTN"",""IBCEMCA1"",172,0)"
^XMB(3.9,55,2,12758,0)=" ; ""Ready to Extract"" status"
^XMB(3.9,55,2,12759,0)="""RTN"",""IBCEMCA1"",173,0)"
^XMB(3.9,55,2,12760,0)=" S IBIFN=0"
^XMB(3.9,55,2,12761,0)="""RTN"",""IBCEMCA1"",174,0)"
^XMB(3.9,55,2,12762,0)=" F  S IBIFN=$O(^TMP($J,""IBCEMCL"",4,2,IBIFN)) Q:'IBIFN  D"
^XMB(3.9,55,2,12763,0)="""RTN"",""IBCEMCA1"",175,0)"
^XMB(3.9,55,2,12764,0)=" . S IBDA=+$O(^TMP($J,""IBCEMCL"",4,2,IBIFN,""""),-1)  ; most recent 361 ien"
^XMB(3.9,55,2,12765,0)="""RTN"",""IBCEMCA1"",176,0)"
^XMB(3.9,55,2,12766,0)=" . S IB364=+$P($G(^IBM(361,IBDA,0)),U,11)          ; transmit bill 364 ien"
^XMB(3.9,55,2,12767,0)="""RTN"",""IBCEMCA1"",177,0)"
^XMB(3.9,55,2,12768,0)=" . I 'IBDA!'IB364 Q"
^XMB(3.9,55,2,12769,0)="""RTN"",""IBCEMCA1"",178,0)"
^XMB(3.9,55,2,12770,0)=" . D UPDEDI^IBCEM(IB364,""R"")        ; update EDI files for transmission"
^XMB(3.9,55,2,12771,0)="""RTN"",""IBCEMCA1"",179,0)"
^XMB(3.9,55,2,12772,0)=" . S Y=$$ADDTBILL^IBCB1(IBIFN,1)    ; add new transmission record"
^XMB(3.9,55,2,12773,0)="""RTN"",""IBCEMCA1"",180,0)"
^XMB(3.9,55,2,12774,0)=" . Q"
^XMB(3.9,55,2,12775,0)="""RTN"",""IBCEMCA1"",181,0)"
^XMB(3.9,55,2,12776,0)=" W ""   ... Done!"""
^XMB(3.9,55,2,12777,0)="""RTN"",""IBCEMCA1"",182,0)"
^XMB(3.9,55,2,12778,0)=" ;"
^XMB(3.9,55,2,12779,0)="""RTN"",""IBCEMCA1"",183,0)"
^XMB(3.9,55,2,12780,0)=" ; rebuild the list"
^XMB(3.9,55,2,12781,0)="""RTN"",""IBCEMCA1"",184,0)"
^XMB(3.9,55,2,12782,0)=" KILL ^TMP($J,""IBCEMCA""),VALMHDR"
^XMB(3.9,55,2,12783,0)="""RTN"",""IBCEMCA1"",185,0)"
^XMB(3.9,55,2,12784,0)=" S VALMBG=1"
^XMB(3.9,55,2,12785,0)="""RTN"",""IBCEMCA1"",186,0)"
^XMB(3.9,55,2,12786,0)=" D UNLOCK^IBCEMCL"
^XMB(3.9,55,2,12787,0)="""RTN"",""IBCEMCA1"",187,0)"
^XMB(3.9,55,2,12788,0)=" D INIT^IBCEMCL"
^XMB(3.9,55,2,12789,0)="""RTN"",""IBCEMCA1"",188,0)"
^XMB(3.9,55,2,12790,0)=" I $G(IBCSAMCS)=1 S IBCSAMCS=2   ; flag to rebuild CSA"
^XMB(3.9,55,2,12791,0)="""RTN"",""IBCEMCA1"",189,0)"
^XMB(3.9,55,2,12792,0)=" ;"
^XMB(3.9,55,2,12793,0)="""RTN"",""IBCEMCA1"",190,0)"
^XMB(3.9,55,2,12794,0)="RETRANX ;"
^XMB(3.9,55,2,12795,0)="""RTN"",""IBCEMCA1"",191,0)"
^XMB(3.9,55,2,12796,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,12797,0)="""RTN"",""IBCEMCA1"",192,0)"
^XMB(3.9,55,2,12798,0)=" Q"
^XMB(3.9,55,2,12799,0)="""RTN"",""IBCEMCA1"",193,0)"
^XMB(3.9,55,2,12800,0)=" ;"
^XMB(3.9,55,2,12801,0)="""RTN"",""IBCEMCA2"")"
^XMB(3.9,55,2,12802,0)="0^18^B17866540"
^XMB(3.9,55,2,12803,0)="""RTN"",""IBCEMCA2"",1,0)"
^XMB(3.9,55,2,12804,0)="IBCEMCA2 ;ALB/ESG - Multiple CSA Message Management - Actions ;20-SEP-2005"
^XMB(3.9,55,2,12805,0)="""RTN"",""IBCEMCA2"",2,0)"
^XMB(3.9,55,2,12806,0)=" ;;2.0;INTEGRATED BILLING;**320**;21-MAR-1994"
^XMB(3.9,55,2,12807,0)="""RTN"",""IBCEMCA2"",3,0)"
^XMB(3.9,55,2,12808,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,12809,0)="""RTN"",""IBCEMCA2"",4,0)"
^XMB(3.9,55,2,12810,0)=" ;"
^XMB(3.9,55,2,12811,0)="""RTN"",""IBCEMCA2"",5,0)"
^XMB(3.9,55,2,12812,0)=" Q"
^XMB(3.9,55,2,12813,0)="""RTN"",""IBCEMCA2"",6,0)"
^XMB(3.9,55,2,12814,0)=" ;"
^XMB(3.9,55,2,12815,0)="""RTN"",""IBCEMCA2"",7,0)"
^XMB(3.9,55,2,12816,0)="CANCEL ; mass claim cancel"
^XMB(3.9,55,2,12817,0)="""RTN"",""IBCEMCA2"",8,0)"
^XMB(3.9,55,2,12818,0)=" NEW NS,IBIFN,NSC,DIR,X,Y,DUOUT,DTOUT,DIRUT,DIROUT,IBDA,IB364,DISP,IBCE"
^XMB(3.9,55,2,12819,0)="""RTN"",""IBCEMCA2"",9,0)"
^XMB(3.9,55,2,12820,0)=" NEW IBMCSRSC,IBMCSRNB,IBMCSCNT,IBMCSTOT,IBMCSTOP,IBMCSCAN,MRACHK,IBCAN"
^XMB(3.9,55,2,12821,0)="""RTN"",""IBCEMCA2"",10,0)"
^XMB(3.9,55,2,12822,0)=" D FULL^VALM1"
^XMB(3.9,55,2,12823,0)="""RTN"",""IBCEMCA2"",11,0)"
^XMB(3.9,55,2,12824,0)=" ;"
^XMB(3.9,55,2,12825,0)="""RTN"",""IBCEMCA2"",12,0)"
^XMB(3.9,55,2,12826,0)=" I '$$KCHK^XUSRB(""IB AUTHORIZE"") D  G CANCELX"
^XMB(3.9,55,2,12827,0)="""RTN"",""IBCEMCA2"",13,0)"
^XMB(3.9,55,2,12828,0)=" . W !!?5,""You don't hold the proper security key to access this option."""
^XMB(3.9,55,2,12829,0)="""RTN"",""IBCEMCA2"",14,0)"
^XMB(3.9,55,2,12830,0)=" . W !?5,""The necessary key is IB AUTHORIZE.  Please see your manager."""
^XMB(3.9,55,2,12831,0)="""RTN"",""IBCEMCA2"",15,0)"
^XMB(3.9,55,2,12832,0)=" . D PAUSE^VALM1"
^XMB(3.9,55,2,12833,0)="""RTN"",""IBCEMCA2"",16,0)"
^XMB(3.9,55,2,12834,0)=" . Q"
^XMB(3.9,55,2,12835,0)="""RTN"",""IBCEMCA2"",17,0)"
^XMB(3.9,55,2,12836,0)=" ;"
^XMB(3.9,55,2,12837,0)="""RTN"",""IBCEMCA2"",18,0)"
^XMB(3.9,55,2,12838,0)=" S NS=+$G(^TMP($J,""IBCEMCL"",4))"
^XMB(3.9,55,2,12839,0)="""RTN"",""IBCEMCA2"",19,0)"
^XMB(3.9,55,2,12840,0)=" I 'NS D  G CANCELX"
^XMB(3.9,55,2,12841,0)="""RTN"",""IBCEMCA2"",20,0)"
^XMB(3.9,55,2,12842,0)=" . W !!?5,""There are no selected messages."" D PAUSE^VALM1"
^XMB(3.9,55,2,12843,0)="""RTN"",""IBCEMCA2"",21,0)"
^XMB(3.9,55,2,12844,0)=" . Q"
^XMB(3.9,55,2,12845,0)="""RTN"",""IBCEMCA2"",22,0)"
^XMB(3.9,55,2,12846,0)=" ;"
^XMB(3.9,55,2,12847,0)="""RTN"",""IBCEMCA2"",23,0)"
^XMB(3.9,55,2,12848,0)=" ; count number of claims too"
^XMB(3.9,55,2,12849,0)="""RTN"",""IBCEMCA2"",24,0)"
^XMB(3.9,55,2,12850,0)=" S IBIFN=0 F NSC=0:1 S IBIFN=$O(^TMP($J,""IBCEMCL"",4,2,IBIFN)) Q:'IBIFN"
^XMB(3.9,55,2,12851,0)="""RTN"",""IBCEMCA2"",25,0)"
^XMB(3.9,55,2,12852,0)=" ;"
^XMB(3.9,55,2,12853,0)="""RTN"",""IBCEMCA2"",26,0)"
^XMB(3.9,55,2,12854,0)=" W !!?5,""Number of messages selected:  "",NS"
^XMB(3.9,55,2,12855,0)="""RTN"",""IBCEMCA2"",27,0)"
^XMB(3.9,55,2,12856,0)=" W !?7,""Number of claims selected:  "",NSC"
^XMB(3.9,55,2,12857,0)="""RTN"",""IBCEMCA2"",28,0)"
^XMB(3.9,55,2,12858,0)=" W !!,""In order to cancel """
^XMB(3.9,55,2,12859,0)="""RTN"",""IBCEMCA2"",29,0)"
^XMB(3.9,55,2,12860,0)=" W $S(NSC=1:""this claim"",1:""these claims"")"
^XMB(3.9,55,2,12861,0)="""RTN"",""IBCEMCA2"",30,0)"
^XMB(3.9,55,2,12862,0)=" W "", you must supply the Reason Cancelled and"""
^XMB(3.9,55,2,12863,0)="""RTN"",""IBCEMCA2"",31,0)"
^XMB(3.9,55,2,12864,0)=" W !,""the Reason Not Billable.  These will be the default responses for """
^XMB(3.9,55,2,12865,0)="""RTN"",""IBCEMCA2"",32,0)"
^XMB(3.9,55,2,12866,0)=" W $S(NSC=1:""this claim"",1:""all claims"")"
^XMB(3.9,55,2,12867,0)="""RTN"",""IBCEMCA2"",33,0)"
^XMB(3.9,55,2,12868,0)=" W ""."""
^XMB(3.9,55,2,12869,0)="""RTN"",""IBCEMCA2"",34,0)"
^XMB(3.9,55,2,12870,0)=" ;"
^XMB(3.9,55,2,12871,0)="""RTN"",""IBCEMCA2"",35,0)"
^XMB(3.9,55,2,12872,0)="CANQ1 ; reader call for the Reason Cancelled field"
^XMB(3.9,55,2,12873,0)="""RTN"",""IBCEMCA2"",36,0)"
^XMB(3.9,55,2,12874,0)=" W !"
^XMB(3.9,55,2,12875,0)="""RTN"",""IBCEMCA2"",37,0)"
^XMB(3.9,55,2,12876,0)=" S DIR(0)=""399,19"""
^XMB(3.9,55,2,12877,0)="""RTN"",""IBCEMCA2"",38,0)"
^XMB(3.9,55,2,12878,0)=" S DIR(""A"")=""Reason Cancelled"""
^XMB(3.9,55,2,12879,0)="""RTN"",""IBCEMCA2"",39,0)"
^XMB(3.9,55,2,12880,0)=" D ^DIR K DIR"
^XMB(3.9,55,2,12881,0)="""RTN"",""IBCEMCA2"",40,0)"
^XMB(3.9,55,2,12882,0)=" I X="""",Y="""" W *7,!,""This is a required response. Enter '^' to exit."" G CANQ1"
^XMB(3.9,55,2,12883,0)="""RTN"",""IBCEMCA2"",41,0)"
^XMB(3.9,55,2,12884,0)=" I $D(DIRUT) G CANCELX"
^XMB(3.9,55,2,12885,0)="""RTN"",""IBCEMCA2"",42,0)"
^XMB(3.9,55,2,12886,0)=" M IBMCSRSC=Y           ; save the entered text for reason cancelled"
^XMB(3.9,55,2,12887,0)="""RTN"",""IBCEMCA2"",43,0)"
^XMB(3.9,55,2,12888,0)=" ;"
^XMB(3.9,55,2,12889,0)="""RTN"",""IBCEMCA2"",44,0)"
^XMB(3.9,55,2,12890,0)="CANQ2 ; reader call for the reason not billable field"
^XMB(3.9,55,2,12891,0)="""RTN"",""IBCEMCA2"",45,0)"
^XMB(3.9,55,2,12892,0)=" W !"
^XMB(3.9,55,2,12893,0)="""RTN"",""IBCEMCA2"",46,0)"
^XMB(3.9,55,2,12894,0)=" S DIR(0)=""356,.19"""
^XMB(3.9,55,2,12895,0)="""RTN"",""IBCEMCA2"",47,0)"
^XMB(3.9,55,2,12896,0)=" S DIR(""A"")=""Reason Not Billable"""
^XMB(3.9,55,2,12897,0)="""RTN"",""IBCEMCA2"",48,0)"
^XMB(3.9,55,2,12898,0)=" D ^DIR K DIR"
^XMB(3.9,55,2,12899,0)="""RTN"",""IBCEMCA2"",49,0)"
^XMB(3.9,55,2,12900,0)=" I X="""",Y="""" W *7,!,""This is a required response. Enter '^' to exit."" G CANQ2"
^XMB(3.9,55,2,12901,0)="""RTN"",""IBCEMCA2"",50,0)"
^XMB(3.9,55,2,12902,0)=" I $D(DIRUT) G CANCELX"
^XMB(3.9,55,2,12903,0)="""RTN"",""IBCEMCA2"",51,0)"
^XMB(3.9,55,2,12904,0)=" M IBMCSRNB=Y           ; save the reason not billable code/desc"
^XMB(3.9,55,2,12905,0)="""RTN"",""IBCEMCA2"",52,0)"
^XMB(3.9,55,2,12906,0)=" ;"
^XMB(3.9,55,2,12907,0)="""RTN"",""IBCEMCA2"",53,0)"
^XMB(3.9,55,2,12908,0)=" W !"
^XMB(3.9,55,2,12909,0)="""RTN"",""IBCEMCA2"",54,0)"
^XMB(3.9,55,2,12910,0)=" S DIR(0)=""YO"""
^XMB(3.9,55,2,12911,0)="""RTN"",""IBCEMCA2"",55,0)"
^XMB(3.9,55,2,12912,0)=" S DIR(""A"")=""OK to proceed into the cancel claim loop"",DIR(""B"")=""No"""
^XMB(3.9,55,2,12913,0)="""RTN"",""IBCEMCA2"",56,0)"
^XMB(3.9,55,2,12914,0)=" D ^DIR K DIR"
^XMB(3.9,55,2,12915,0)="""RTN"",""IBCEMCA2"",57,0)"
^XMB(3.9,55,2,12916,0)=" I Y'=1 G CANCELX"
^XMB(3.9,55,2,12917,0)="""RTN"",""IBCEMCA2"",58,0)"
^XMB(3.9,55,2,12918,0)=" ;"
^XMB(3.9,55,2,12919,0)="""RTN"",""IBCEMCA2"",59,0)"
^XMB(3.9,55,2,12920,0)=" S IBIFN=0,IBMCSCNT=0,IBMCSTOT=NSC,IBMCSTOP=0"
^XMB(3.9,55,2,12921,0)="""RTN"",""IBCEMCA2"",60,0)"
^XMB(3.9,55,2,12922,0)=" F  S IBIFN=$O(^TMP($J,""IBCEMCL"",4,2,IBIFN)) Q:'IBIFN  D  Q:IBMCSTOP"
^XMB(3.9,55,2,12923,0)="""RTN"",""IBCEMCA2"",61,0)"
^XMB(3.9,55,2,12924,0)=" . S IBMCSCNT=IBMCSCNT+1"
^XMB(3.9,55,2,12925,0)="""RTN"",""IBCEMCA2"",62,0)"
^XMB(3.9,55,2,12926,0)=" . S IBDA=+$O(^TMP($J,""IBCEMCL"",4,2,IBIFN,""""),-1)  ; most recent 361 ien"
^XMB(3.9,55,2,12927,0)="""RTN"",""IBCEMCA2"",63,0)"
^XMB(3.9,55,2,12928,0)=" . S IB364=+$P($G(^IBM(361,IBDA,0)),U,11)          ; transmit bill 364 ien"
^XMB(3.9,55,2,12929,0)="""RTN"",""IBCEMCA2"",64,0)"
^XMB(3.9,55,2,12930,0)=" . W !!,"" *** Processing MCS claim# "",IBMCSCNT,"" of "",IBMCSTOT,"" ***"""
^XMB(3.9,55,2,12931,0)="""RTN"",""IBCEMCA2"",65,0)"
^XMB(3.9,55,2,12932,0)=" . S DISP=$$DISP^IBCEM3(IBIFN,""cancel"","""",1,.DIRUT)"
^XMB(3.9,55,2,12933,0)="""RTN"",""IBCEMCA2"",66,0)"
^XMB(3.9,55,2,12934,0)=" . ;"
^XMB(3.9,55,2,12935,0)="""RTN"",""IBCEMCA2"",67,0)"
^XMB(3.9,55,2,12936,0)=" . I $D(DIRUT) D  Q       ; up arrow or time-out"
^XMB(3.9,55,2,12937,0)="""RTN"",""IBCEMCA2"",68,0)"
^XMB(3.9,55,2,12938,0)=" .. N DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT"
^XMB(3.9,55,2,12939,0)="""RTN"",""IBCEMCA2"",69,0)"
^XMB(3.9,55,2,12940,0)=" .. S DIR(0)=""YO"""
^XMB(3.9,55,2,12941,0)="""RTN"",""IBCEMCA2"",70,0)"
^XMB(3.9,55,2,12942,0)=" .. S DIR(""A"")=""Do you want to Exit this MCS cancel claim loop"""
^XMB(3.9,55,2,12943,0)="""RTN"",""IBCEMCA2"",71,0)"
^XMB(3.9,55,2,12944,0)=" .. S DIR(""B"")=""Yes"""
^XMB(3.9,55,2,12945,0)="""RTN"",""IBCEMCA2"",72,0)"
^XMB(3.9,55,2,12946,0)=" .. W ! D ^DIR K DIR"
^XMB(3.9,55,2,12947,0)="""RTN"",""IBCEMCA2"",73,0)"
^XMB(3.9,55,2,12948,0)=" .. I Y=1 S IBMCSTOP=1    ; Yes, exit out altogether"
^XMB(3.9,55,2,12949,0)="""RTN"",""IBCEMCA2"",74,0)"
^XMB(3.9,55,2,12950,0)=" .. Q"
^XMB(3.9,55,2,12951,0)="""RTN"",""IBCEMCA2"",75,0)"
^XMB(3.9,55,2,12952,0)=" . ;"
^XMB(3.9,55,2,12953,0)="""RTN"",""IBCEMCA2"",76,0)"
^XMB(3.9,55,2,12954,0)=" . I 'DISP Q              ; user said No to cancel"
^XMB(3.9,55,2,12955,0)="""RTN"",""IBCEMCA2"",77,0)"
^XMB(3.9,55,2,12956,0)=" . ;"
^XMB(3.9,55,2,12957,0)="""RTN"",""IBCEMCA2"",78,0)"
^XMB(3.9,55,2,12958,0)=" . I 'IBDA!'IB364 D  Q"
^XMB(3.9,55,2,12959,0)="""RTN"",""IBCEMCA2"",79,0)"
^XMB(3.9,55,2,12960,0)=" .. W !?4,""Cannot determine the EDI transmission record."""
^XMB(3.9,55,2,12961,0)="""RTN"",""IBCEMCA2"",80,0)"
^XMB(3.9,55,2,12962,0)=" .. W !?4,""This claim can't be cancelled here."""
^XMB(3.9,55,2,12963,0)="""RTN"",""IBCEMCA2"",81,0)"
^XMB(3.9,55,2,12964,0)=" .. D PAUSE^VALM1"
^XMB(3.9,55,2,12965,0)="""RTN"",""IBCEMCA2"",82,0)"
^XMB(3.9,55,2,12966,0)=" .. Q"
^XMB(3.9,55,2,12967,0)="""RTN"",""IBCEMCA2"",83,0)"
^XMB(3.9,55,2,12968,0)=" . ;"
^XMB(3.9,55,2,12969,0)="""RTN"",""IBCEMCA2"",84,0)"
^XMB(3.9,55,2,12970,0)=" . D MRACHK^IBCECSA4 I MRACHK Q"
^XMB(3.9,55,2,12971,0)="""RTN"",""IBCEMCA2"",85,0)"
^XMB(3.9,55,2,12972,0)=" . ;"
^XMB(3.9,55,2,12973,0)="""RTN"",""IBCEMCA2"",86,0)"
^XMB(3.9,55,2,12974,0)=" . ; set-up required variables for main call to cancel this claim"
^XMB(3.9,55,2,12975,0)="""RTN"",""IBCEMCA2"",87,0)"
^XMB(3.9,55,2,12976,0)=" . S IBCAN=1,IBMCSCAN=1"
^XMB(3.9,55,2,12977,0)="""RTN"",""IBCEMCA2"",88,0)"
^XMB(3.9,55,2,12978,0)=" . S IBCE(""EDI"")=1"
^XMB(3.9,55,2,12979,0)="""RTN"",""IBCEMCA2"",89,0)"
^XMB(3.9,55,2,12980,0)=" . S Y=IBIFN"
^XMB(3.9,55,2,12981,0)="""RTN"",""IBCEMCA2"",90,0)"
^XMB(3.9,55,2,12982,0)=" . D"
^XMB(3.9,55,2,12983,0)="""RTN"",""IBCEMCA2"",91,0)"
^XMB(3.9,55,2,12984,0)=" .. ; protect variables to be restored after call to IBCC and"
^XMB(3.9,55,2,12985,0)="""RTN"",""IBCEMCA2"",92,0)"
^XMB(3.9,55,2,12986,0)=" .. ; leftover junk variables from IBCC"
^XMB(3.9,55,2,12987,0)="""RTN"",""IBCEMCA2"",93,0)"
^XMB(3.9,55,2,12988,0)=" .. NEW IBIFN,IBMCSTOP,IBMCSCNT,IBMCSTOT,IBCSAMCS"
^XMB(3.9,55,2,12989,0)="""RTN"",""IBCEMCA2"",94,0)"
^XMB(3.9,55,2,12990,0)=" .. NEW IBCCCC,IBCCR,IBQUIT,NAME,POP,RDATES,COL,CTRLCOL,FINISH"
^XMB(3.9,55,2,12991,0)="""RTN"",""IBCEMCA2"",95,0)"
^XMB(3.9,55,2,12992,0)=" .. D NOPTF^IBCC"
^XMB(3.9,55,2,12993,0)="""RTN"",""IBCEMCA2"",96,0)"
^XMB(3.9,55,2,12994,0)=" .. Q"
^XMB(3.9,55,2,12995,0)="""RTN"",""IBCEMCA2"",97,0)"
^XMB(3.9,55,2,12996,0)=" . Q"
^XMB(3.9,55,2,12997,0)="""RTN"",""IBCEMCA2"",98,0)"
^XMB(3.9,55,2,12998,0)=" ;"
^XMB(3.9,55,2,12999,0)="""RTN"",""IBCEMCA2"",99,0)"
^XMB(3.9,55,2,13000,0)=" I IBMCSTOP W !!?5,""MCS cancel loop aborted."""
^XMB(3.9,55,2,13001,0)="""RTN"",""IBCEMCA2"",100,0)"
^XMB(3.9,55,2,13002,0)=" I 'IBMCSTOP W !!?5,""Done with MCS cancel loop!"""
^XMB(3.9,55,2,13003,0)="""RTN"",""IBCEMCA2"",101,0)"
^XMB(3.9,55,2,13004,0)=" D PAUSE^VALM1"
^XMB(3.9,55,2,13005,0)="""RTN"",""IBCEMCA2"",102,0)"
^XMB(3.9,55,2,13006,0)=" ;"
^XMB(3.9,55,2,13007,0)="""RTN"",""IBCEMCA2"",103,0)"
^XMB(3.9,55,2,13008,0)=" ; rebuild the list"
^XMB(3.9,55,2,13009,0)="""RTN"",""IBCEMCA2"",104,0)"
^XMB(3.9,55,2,13010,0)=" KILL ^TMP($J,""IBCEMCA""),VALMHDR"
^XMB(3.9,55,2,13011,0)="""RTN"",""IBCEMCA2"",105,0)"
^XMB(3.9,55,2,13012,0)=" S VALMBG=1"
^XMB(3.9,55,2,13013,0)="""RTN"",""IBCEMCA2"",106,0)"
^XMB(3.9,55,2,13014,0)=" D UNLOCK^IBCEMCL"
^XMB(3.9,55,2,13015,0)="""RTN"",""IBCEMCA2"",107,0)"
^XMB(3.9,55,2,13016,0)=" D INIT^IBCEMCL"
^XMB(3.9,55,2,13017,0)="""RTN"",""IBCEMCA2"",108,0)"
^XMB(3.9,55,2,13018,0)=" I $G(IBCSAMCS)=1 S IBCSAMCS=2   ; flag to rebuild CSA"
^XMB(3.9,55,2,13019,0)="""RTN"",""IBCEMCA2"",109,0)"
^XMB(3.9,55,2,13020,0)=" ;"
^XMB(3.9,55,2,13021,0)="""RTN"",""IBCEMCA2"",110,0)"
^XMB(3.9,55,2,13022,0)="CANCELX ;"
^XMB(3.9,55,2,13023,0)="""RTN"",""IBCEMCA2"",111,0)"
^XMB(3.9,55,2,13024,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,13025,0)="""RTN"",""IBCEMCA2"",112,0)"
^XMB(3.9,55,2,13026,0)=" Q"
^XMB(3.9,55,2,13027,0)="""RTN"",""IBCEMCA2"",113,0)"
^XMB(3.9,55,2,13028,0)=" ;"
^XMB(3.9,55,2,13029,0)="""RTN"",""IBCEMCA3"")"
^XMB(3.9,55,2,13030,0)="0^20^B52127720"
^XMB(3.9,55,2,13031,0)="""RTN"",""IBCEMCA3"",1,0)"
^XMB(3.9,55,2,13032,0)="IBCEMCA3 ;ALB/ESG - Multiple CSA Message Management - Actions ;20-SEP-2005"
^XMB(3.9,55,2,13033,0)="""RTN"",""IBCEMCA3"",2,0)"
^XMB(3.9,55,2,13034,0)=" ;;2.0;INTEGRATED BILLING;**320**;21-MAR-1994"
^XMB(3.9,55,2,13035,0)="""RTN"",""IBCEMCA3"",3,0)"
^XMB(3.9,55,2,13036,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,13037,0)="""RTN"",""IBCEMCA3"",4,0)"
^XMB(3.9,55,2,13038,0)=" ;"
^XMB(3.9,55,2,13039,0)="""RTN"",""IBCEMCA3"",5,0)"
^XMB(3.9,55,2,13040,0)=" Q"
^XMB(3.9,55,2,13041,0)="""RTN"",""IBCEMCA3"",6,0)"
^XMB(3.9,55,2,13042,0)=" ;"
^XMB(3.9,55,2,13043,0)="""RTN"",""IBCEMCA3"",7,0)"
^XMB(3.9,55,2,13044,0)="PRINT ; resubmit by print"
^XMB(3.9,55,2,13045,0)="""RTN"",""IBCEMCA3"",8,0)"
^XMB(3.9,55,2,13046,0)=" NEW DFN,DIR,DIROUT,DIRUT,DTOUT,DUOUT,FC,FORM,IB0,IB364,IBDA,IBFT,IBFTP"
^XMB(3.9,55,2,13047,0)="""RTN"",""IBCEMCA3"",9,0)"
^XMB(3.9,55,2,13048,0)=" NEW IBH,IBIFN,IBJ,IBMCSPNT,IBQUIT,IBS,IBS1,IBS2,IBS3,IBTASK,IBX,IBXP,IBY,IBZ"
^XMB(3.9,55,2,13049,0)="""RTN"",""IBCEMCA3"",10,0)"
^XMB(3.9,55,2,13050,0)=" NEW INS,NS,NSC,PATNAME,PAYER,X,Y,ZIP,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTSK"
^XMB(3.9,55,2,13051,0)="""RTN"",""IBCEMCA3"",11,0)"
^XMB(3.9,55,2,13052,0)=" D FULL^VALM1"
^XMB(3.9,55,2,13053,0)="""RTN"",""IBCEMCA3"",12,0)"
^XMB(3.9,55,2,13054,0)=" ;"
^XMB(3.9,55,2,13055,0)="""RTN"",""IBCEMCA3"",13,0)"
^XMB(3.9,55,2,13056,0)=" S NS=+$G(^TMP($J,""IBCEMCL"",4))"
^XMB(3.9,55,2,13057,0)="""RTN"",""IBCEMCA3"",14,0)"
^XMB(3.9,55,2,13058,0)=" I 'NS D  G PRINTX"
^XMB(3.9,55,2,13059,0)="""RTN"",""IBCEMCA3"",15,0)"
^XMB(3.9,55,2,13060,0)=" . W !!?5,""There are no selected messages."" D PAUSE^VALM1"
^XMB(3.9,55,2,13061,0)="""RTN"",""IBCEMCA3"",16,0)"
^XMB(3.9,55,2,13062,0)=" . Q"
^XMB(3.9,55,2,13063,0)="""RTN"",""IBCEMCA3"",17,0)"
^XMB(3.9,55,2,13064,0)=" ;"
^XMB(3.9,55,2,13065,0)="""RTN"",""IBCEMCA3"",18,0)"
^XMB(3.9,55,2,13066,0)=" ; count number of claims too"
^XMB(3.9,55,2,13067,0)="""RTN"",""IBCEMCA3"",19,0)"
^XMB(3.9,55,2,13068,0)=" S IBIFN=0 F NSC=0:1 S IBIFN=$O(^TMP($J,""IBCEMCL"",4,2,IBIFN)) Q:'IBIFN"
^XMB(3.9,55,2,13069,0)="""RTN"",""IBCEMCA3"",20,0)"
^XMB(3.9,55,2,13070,0)=" ;"
^XMB(3.9,55,2,13071,0)="""RTN"",""IBCEMCA3"",21,0)"
^XMB(3.9,55,2,13072,0)=" W !!?5,""Number of messages selected:  "",NS"
^XMB(3.9,55,2,13073,0)="""RTN"",""IBCEMCA3"",22,0)"
^XMB(3.9,55,2,13074,0)=" W !?7,""Number of claims selected:  "",NSC"
^XMB(3.9,55,2,13075,0)="""RTN"",""IBCEMCA3"",23,0)"
^XMB(3.9,55,2,13076,0)=" ;"
^XMB(3.9,55,2,13077,0)="""RTN"",""IBCEMCA3"",24,0)"
^XMB(3.9,55,2,13078,0)=" ; check certain form types for a default printer"
^XMB(3.9,55,2,13079,0)="""RTN"",""IBCEMCA3"",25,0)"
^XMB(3.9,55,2,13080,0)=" K FC S FC=0"
^XMB(3.9,55,2,13081,0)="""RTN"",""IBCEMCA3"",26,0)"
^XMB(3.9,55,2,13082,0)=" F FORM=2,3,6 D"
^XMB(3.9,55,2,13083,0)="""RTN"",""IBCEMCA3"",27,0)"
^XMB(3.9,55,2,13084,0)=" . N X S X=$G(^IBE(353,FORM,0))"
^XMB(3.9,55,2,13085,0)="""RTN"",""IBCEMCA3"",28,0)"
^XMB(3.9,55,2,13086,0)=" . I $P(X,U,2)'="""" Q   ; billing printer defined"
^XMB(3.9,55,2,13087,0)="""RTN"",""IBCEMCA3"",29,0)"
^XMB(3.9,55,2,13088,0)=" . S FC=FC+1,FC($P(X,U,1)_"" "")="""""
^XMB(3.9,55,2,13089,0)="""RTN"",""IBCEMCA3"",30,0)"
^XMB(3.9,55,2,13090,0)=" . Q"
^XMB(3.9,55,2,13091,0)="""RTN"",""IBCEMCA3"",31,0)"
^XMB(3.9,55,2,13092,0)=" I FC D  I IBQUIT G PRINTX"
^XMB(3.9,55,2,13093,0)="""RTN"",""IBCEMCA3"",32,0)"
^XMB(3.9,55,2,13094,0)=" . N NM"
^XMB(3.9,55,2,13095,0)="""RTN"",""IBCEMCA3"",33,0)"
^XMB(3.9,55,2,13096,0)=" . S IBQUIT=0"
^XMB(3.9,55,2,13097,0)="""RTN"",""IBCEMCA3"",34,0)"
^XMB(3.9,55,2,13098,0)=" . W !!,*7,""Warning!  The default billing printer is missing for the following form type"",$S(FC>1:""s"",1:""""),"":"",!"
^XMB(3.9,55,2,13099,0)="""RTN"",""IBCEMCA3"",35,0)"
^XMB(3.9,55,2,13100,0)=" . S NM="""" F  S NM=$O(FC(NM)) Q:NM=""""  W !?4,NM"
^XMB(3.9,55,2,13101,0)="""RTN"",""IBCEMCA3"",36,0)"
^XMB(3.9,55,2,13102,0)=" . W !!,""Nothing will print for "",$S(FC>1:""these form types"",1:""this form type""),"".  Printers are maintained in the option"""
^XMB(3.9,55,2,13103,0)="""RTN"",""IBCEMCA3"",37,0)"
^XMB(3.9,55,2,13104,0)=" . W !,""'Select Default Device for Forms' on the System Manager's IB Menu."""
^XMB(3.9,55,2,13105,0)="""RTN"",""IBCEMCA3"",38,0)"
^XMB(3.9,55,2,13106,0)=" . W ! S DIR(0)=""Y"",DIR(""A"")=""Do you want to continue"",DIR(""B"")=""No"""
^XMB(3.9,55,2,13107,0)="""RTN"",""IBCEMCA3"",39,0)"
^XMB(3.9,55,2,13108,0)=" . D ^DIR K DIR"
^XMB(3.9,55,2,13109,0)="""RTN"",""IBCEMCA3"",40,0)"
^XMB(3.9,55,2,13110,0)=" . I 'Y S IBQUIT=1   ; No, don't continue quit out"
^XMB(3.9,55,2,13111,0)="""RTN"",""IBCEMCA3"",41,0)"
^XMB(3.9,55,2,13112,0)=" . Q"
^XMB(3.9,55,2,13113,0)="""RTN"",""IBCEMCA3"",42,0)"
^XMB(3.9,55,2,13114,0)=" ;"
^XMB(3.9,55,2,13115,0)="""RTN"",""IBCEMCA3"",43,0)"
^XMB(3.9,55,2,13116,0)=" ; Ask the user for the 3 sort levels"
^XMB(3.9,55,2,13117,0)="""RTN"",""IBCEMCA3"",44,0)"
^XMB(3.9,55,2,13118,0)=" W !"
^XMB(3.9,55,2,13119,0)="""RTN"",""IBCEMCA3"",45,0)"
^XMB(3.9,55,2,13120,0)=" S IBS="""""
^XMB(3.9,55,2,13121,0)="""RTN"",""IBCEMCA3"",46,0)"
^XMB(3.9,55,2,13122,0)=" S IBZ=""Z:ZIP;I:INSURANCE COMPANY NAME;P:PATIENT NAME;"""
^XMB(3.9,55,2,13123,0)="""RTN"",""IBCEMCA3"",47,0)"
^XMB(3.9,55,2,13124,0)=" S IBH=""This Resubmit by Print action attempts to print all selected claims in the order requested.  The printed claims may be sorted by: Zip Code, Insurance Company Name, and Patient name."""
^XMB(3.9,55,2,13125,0)="""RTN"",""IBCEMCA3"",48,0)"
^XMB(3.9,55,2,13126,0)=" S DIR(""?"")=IBH"
^XMB(3.9,55,2,13127,0)="""RTN"",""IBCEMCA3"",49,0)"
^XMB(3.9,55,2,13128,0)=" S DIR(""A"")=""First Sort Claims By"""
^XMB(3.9,55,2,13129,0)="""RTN"",""IBCEMCA3"",50,0)"
^XMB(3.9,55,2,13130,0)=" S DIR(0)=""SB^""_IBZ"
^XMB(3.9,55,2,13131,0)="""RTN"",""IBCEMCA3"",51,0)"
^XMB(3.9,55,2,13132,0)=" D ^DIR K DIR I $D(DIRUT) G PRINTX                   ; primary sort"
^XMB(3.9,55,2,13133,0)="""RTN"",""IBCEMCA3"",52,0)"
^XMB(3.9,55,2,13134,0)=" S IBS=IBS_$S(Y=""Z"":1,Y=""I"":2,Y=""P"":3,1:0)"
^XMB(3.9,55,2,13135,0)="""RTN"",""IBCEMCA3"",53,0)"
^XMB(3.9,55,2,13136,0)=" S IBX=$P($P(IBZ,Y_"":"",2),"";"",1)"
^XMB(3.9,55,2,13137,0)="""RTN"",""IBCEMCA3"",54,0)"
^XMB(3.9,55,2,13138,0)=" ;"
^XMB(3.9,55,2,13139,0)="""RTN"",""IBCEMCA3"",55,0)"
^XMB(3.9,55,2,13140,0)=" S DIR(""?"")=IBH"
^XMB(3.9,55,2,13141,0)="""RTN"",""IBCEMCA3"",56,0)"
^XMB(3.9,55,2,13142,0)=" S DIR(""?"",1)=""Enter the field that the claims should be sorted on within ""_IBX_""."""
^XMB(3.9,55,2,13143,0)="""RTN"",""IBCEMCA3"",57,0)"
^XMB(3.9,55,2,13144,0)=" S DIR(""?"",2)=""Press return if the order already entered is sufficient."""
^XMB(3.9,55,2,13145,0)="""RTN"",""IBCEMCA3"",58,0)"
^XMB(3.9,55,2,13146,0)=" S DIR(""?"",3)="""""
^XMB(3.9,55,2,13147,0)="""RTN"",""IBCEMCA3"",59,0)"
^XMB(3.9,55,2,13148,0)=" S DIR(""A"")=""Then Sort Claims By"""
^XMB(3.9,55,2,13149,0)="""RTN"",""IBCEMCA3"",60,0)"
^XMB(3.9,55,2,13150,0)=" S DIR(0)=""SOB^""_IBZ"
^XMB(3.9,55,2,13151,0)="""RTN"",""IBCEMCA3"",61,0)"
^XMB(3.9,55,2,13152,0)=" D ^DIR K DIR I Y'="""",$D(DIRUT) G PRINTX             ; secondary sort"
^XMB(3.9,55,2,13153,0)="""RTN"",""IBCEMCA3"",62,0)"
^XMB(3.9,55,2,13154,0)=" S IBS=IBS_$S(Y=""Z"":1,Y=""I"":2,Y=""P"":3,1:0)"
^XMB(3.9,55,2,13155,0)="""RTN"",""IBCEMCA3"",63,0)"
^XMB(3.9,55,2,13156,0)=" I Y="""" G P1"
^XMB(3.9,55,2,13157,0)="""RTN"",""IBCEMCA3"",64,0)"
^XMB(3.9,55,2,13158,0)=" S IBY=$P($P(IBZ,Y_"":"",2),"";"",1)"
^XMB(3.9,55,2,13159,0)="""RTN"",""IBCEMCA3"",65,0)"
^XMB(3.9,55,2,13160,0)=" ;"
^XMB(3.9,55,2,13161,0)="""RTN"",""IBCEMCA3"",66,0)"
^XMB(3.9,55,2,13162,0)=" S DIR(""?"")=IBH"
^XMB(3.9,55,2,13163,0)="""RTN"",""IBCEMCA3"",67,0)"
^XMB(3.9,55,2,13164,0)=" S DIR(""?"",1)=""Enter the field that the claims should be sorted on within ""_IBX_"" and ""_IBY_""."""
^XMB(3.9,55,2,13165,0)="""RTN"",""IBCEMCA3"",68,0)"
^XMB(3.9,55,2,13166,0)=" S DIR(""?"",2)=""Press return if the order already entered is sufficient."""
^XMB(3.9,55,2,13167,0)="""RTN"",""IBCEMCA3"",69,0)"
^XMB(3.9,55,2,13168,0)=" S DIR(""?"",3)="""""
^XMB(3.9,55,2,13169,0)="""RTN"",""IBCEMCA3"",70,0)"
^XMB(3.9,55,2,13170,0)=" S DIR(""A"")=""Then Sort Claims By"""
^XMB(3.9,55,2,13171,0)="""RTN"",""IBCEMCA3"",71,0)"
^XMB(3.9,55,2,13172,0)=" S DIR(0)=""SOB^""_IBZ"
^XMB(3.9,55,2,13173,0)="""RTN"",""IBCEMCA3"",72,0)"
^XMB(3.9,55,2,13174,0)=" D ^DIR K DIR I Y'="""",$D(DIRUT) G PRINTX             ; tertiary sort"
^XMB(3.9,55,2,13175,0)="""RTN"",""IBCEMCA3"",73,0)"
^XMB(3.9,55,2,13176,0)=" S IBS=IBS_$S(Y=""Z"":1,Y=""I"":2,Y=""P"":3,1:0)"
^XMB(3.9,55,2,13177,0)="""RTN"",""IBCEMCA3"",74,0)"
^XMB(3.9,55,2,13178,0)=" ;"
^XMB(3.9,55,2,13179,0)="""RTN"",""IBCEMCA3"",75,0)"
^XMB(3.9,55,2,13180,0)="P1 ;"
^XMB(3.9,55,2,13181,0)="""RTN"",""IBCEMCA3"",76,0)"
^XMB(3.9,55,2,13182,0)=" ;"
^XMB(3.9,55,2,13183,0)="""RTN"",""IBCEMCA3"",77,0)"
^XMB(3.9,55,2,13184,0)=" W !"
^XMB(3.9,55,2,13185,0)="""RTN"",""IBCEMCA3"",78,0)"
^XMB(3.9,55,2,13186,0)=" S DIR(0)=""S^2:2nd Notice;3:3rd Notice;C:Copy;O:Original"""
^XMB(3.9,55,2,13187,0)="""RTN"",""IBCEMCA3"",79,0)"
^XMB(3.9,55,2,13188,0)=" S DIR(""A"")=""(2)nd Notice, (3)rd Notice, (C)opy or (O)riginal"""
^XMB(3.9,55,2,13189,0)="""RTN"",""IBCEMCA3"",80,0)"
^XMB(3.9,55,2,13190,0)=" S DIR(""B"")=""C"""
^XMB(3.9,55,2,13191,0)="""RTN"",""IBCEMCA3"",81,0)"
^XMB(3.9,55,2,13192,0)=" D ^DIR K DIR"
^XMB(3.9,55,2,13193,0)="""RTN"",""IBCEMCA3"",82,0)"
^XMB(3.9,55,2,13194,0)=" I $D(DIRUT) G PRINTX"
^XMB(3.9,55,2,13195,0)="""RTN"",""IBCEMCA3"",83,0)"
^XMB(3.9,55,2,13196,0)=" I Y=""C"" S Y=0   ; copy"
^XMB(3.9,55,2,13197,0)="""RTN"",""IBCEMCA3"",84,0)"
^XMB(3.9,55,2,13198,0)=" I Y=""O"" S Y=1   ; original"
^XMB(3.9,55,2,13199,0)="""RTN"",""IBCEMCA3"",85,0)"
^XMB(3.9,55,2,13200,0)=" S IBMCSPNT=Y"
^XMB(3.9,55,2,13201,0)="""RTN"",""IBCEMCA3"",86,0)"
^XMB(3.9,55,2,13202,0)=" ;"
^XMB(3.9,55,2,13203,0)="""RTN"",""IBCEMCA3"",87,0)"
^XMB(3.9,55,2,13204,0)=" W !!,""Note:  Any selected claims in a REQUEST MRA status will not be printed."""
^XMB(3.9,55,2,13205,0)="""RTN"",""IBCEMCA3"",88,0)"
^XMB(3.9,55,2,13206,0)=" W !"
^XMB(3.9,55,2,13207,0)="""RTN"",""IBCEMCA3"",89,0)"
^XMB(3.9,55,2,13208,0)=" S DIR(0)=""Y"""
^XMB(3.9,55,2,13209,0)="""RTN"",""IBCEMCA3"",90,0)"
^XMB(3.9,55,2,13210,0)=" S DIR(""A"")=""OK to begin printing claims"""
^XMB(3.9,55,2,13211,0)="""RTN"",""IBCEMCA3"",91,0)"
^XMB(3.9,55,2,13212,0)=" S DIR(""B"")=""No"""
^XMB(3.9,55,2,13213,0)="""RTN"",""IBCEMCA3"",92,0)"
^XMB(3.9,55,2,13214,0)=" S DIR(""?"",1)=""   Enter YES to immediately begin printing the selected claims."""
^XMB(3.9,55,2,13215,0)="""RTN"",""IBCEMCA3"",93,0)"
^XMB(3.9,55,2,13216,0)=" S DIR(""?"")=""   Enter NO to quit this option."""
^XMB(3.9,55,2,13217,0)="""RTN"",""IBCEMCA3"",94,0)"
^XMB(3.9,55,2,13218,0)=" D ^DIR K DIR"
^XMB(3.9,55,2,13219,0)="""RTN"",""IBCEMCA3"",95,0)"
^XMB(3.9,55,2,13220,0)=" I 'Y G PRINTX"
^XMB(3.9,55,2,13221,0)="""RTN"",""IBCEMCA3"",96,0)"
^XMB(3.9,55,2,13222,0)=" ;"
^XMB(3.9,55,2,13223,0)="""RTN"",""IBCEMCA3"",97,0)"
^XMB(3.9,55,2,13224,0)=" ; kill ^XTMP scratch global"
^XMB(3.9,55,2,13225,0)="""RTN"",""IBCEMCA3"",98,0)"
^XMB(3.9,55,2,13226,0)=" S IBX=""IBCFP"" F  S IBX=$O(^XTMP(IBX)) Q:IBX'?1""IBCFP""1.N  K ^XTMP(IBX,$J)"
^XMB(3.9,55,2,13227,0)="""RTN"",""IBCEMCA3"",99,0)"
^XMB(3.9,55,2,13228,0)=" S IBXP=$$FMADD^XLFDT(DT,1)_U_DT_U_""MCS BATCH PRINT BILLS ""_$$HTE^XLFDT($H)_"" by ""_$S($D(^VA(200,+$G(DUZ),0)):$P(^(0),""^""),1:""Unknown User"")"
^XMB(3.9,55,2,13229,0)="""RTN"",""IBCEMCA3"",100,0)"
^XMB(3.9,55,2,13230,0)=" ;"
^XMB(3.9,55,2,13231,0)="""RTN"",""IBCEMCA3"",101,0)"
^XMB(3.9,55,2,13232,0)=" ; Loop thru selected claims, queue them and print them"
^XMB(3.9,55,2,13233,0)="""RTN"",""IBCEMCA3"",102,0)"
^XMB(3.9,55,2,13234,0)=" S IBIFN=0"
^XMB(3.9,55,2,13235,0)="""RTN"",""IBCEMCA3"",103,0)"
^XMB(3.9,55,2,13236,0)=" F  S IBIFN=$O(^TMP($J,""IBCEMCL"",4,2,IBIFN)) Q:'IBIFN  D"
^XMB(3.9,55,2,13237,0)="""RTN"",""IBCEMCA3"",104,0)"
^XMB(3.9,55,2,13238,0)=" . S IBFT=$$FT^IBCEF(IBIFN)   ; form type of claim"
^XMB(3.9,55,2,13239,0)="""RTN"",""IBCEMCA3"",105,0)"
^XMB(3.9,55,2,13240,0)=" . I $P($G(^IBE(353,IBFT,0)),U,2)="""" Q    ; no printer defined"
^XMB(3.9,55,2,13241,0)="""RTN"",""IBCEMCA3"",106,0)"
^XMB(3.9,55,2,13242,0)=" . S IB0=$G(^DGCR(399,IBIFN,0))"
^XMB(3.9,55,2,13243,0)="""RTN"",""IBCEMCA3"",107,0)"
^XMB(3.9,55,2,13244,0)=" . I $P(IB0,U,13)=2 Q    ; don't include MRA requests here"
^XMB(3.9,55,2,13245,0)="""RTN"",""IBCEMCA3"",108,0)"
^XMB(3.9,55,2,13246,0)=" . S DFN=+$P(IB0,U,2)"
^XMB(3.9,55,2,13247,0)="""RTN"",""IBCEMCA3"",109,0)"
^XMB(3.9,55,2,13248,0)=" . S PATNAME=$P($G(^DPT(DFN,0)),U,1)"
^XMB(3.9,55,2,13249,0)="""RTN"",""IBCEMCA3"",110,0)"
^XMB(3.9,55,2,13250,0)=" . S ZIP=$P($G(^DGCR(399,IBIFN,""M"")),U,9)   ; field 109 - curr ins zip"
^XMB(3.9,55,2,13251,0)="""RTN"",""IBCEMCA3"",111,0)"
^XMB(3.9,55,2,13252,0)=" . ; payer"
^XMB(3.9,55,2,13253,0)="""RTN"",""IBCEMCA3"",112,0)"
^XMB(3.9,55,2,13254,0)=" . S INS=+$P($G(^DGCR(399,IBIFN,""MP"")),U,1)"
^XMB(3.9,55,2,13255,0)="""RTN"",""IBCEMCA3"",113,0)"
^XMB(3.9,55,2,13256,0)=" . I 'INS S INS=+$$CURR^IBCEF2(IBIFN)"
^XMB(3.9,55,2,13257,0)="""RTN"",""IBCEMCA3"",114,0)"
^XMB(3.9,55,2,13258,0)=" . S PAYER=$P($G(^DIC(36,INS,0)),U,1)"
^XMB(3.9,55,2,13259,0)="""RTN"",""IBCEMCA3"",115,0)"
^XMB(3.9,55,2,13260,0)=" . ;"
^XMB(3.9,55,2,13261,0)="""RTN"",""IBCEMCA3"",116,0)"
^XMB(3.9,55,2,13262,0)=" . S IBX=ZIP_U_PAYER_U_PATNAME"
^XMB(3.9,55,2,13263,0)="""RTN"",""IBCEMCA3"",117,0)"
^XMB(3.9,55,2,13264,0)=" . S IBS1=$P(IBX,U,$E(IBS,1))_"" ""     ; primary sort data"
^XMB(3.9,55,2,13265,0)="""RTN"",""IBCEMCA3"",118,0)"
^XMB(3.9,55,2,13266,0)=" . S IBS2=$P(IBX,U,$E(IBS,2))_"" ""     ; secondary sort data"
^XMB(3.9,55,2,13267,0)="""RTN"",""IBCEMCA3"",119,0)"
^XMB(3.9,55,2,13268,0)=" . S IBS3=$P(IBX,U,$E(IBS,3))_"" ""     ; tertiary sort data"
^XMB(3.9,55,2,13269,0)="""RTN"",""IBCEMCA3"",120,0)"
^XMB(3.9,55,2,13270,0)=" . ;"
^XMB(3.9,55,2,13271,0)="""RTN"",""IBCEMCA3"",121,0)"
^XMB(3.9,55,2,13272,0)=" . S ^XTMP(""IBCFP""_IBFT,$J,IBS1,IBS2,IBS3,IBIFN)="""""
^XMB(3.9,55,2,13273,0)="""RTN"",""IBCEMCA3"",122,0)"
^XMB(3.9,55,2,13274,0)=" . S ^XTMP(""IBCFP""_IBFT,0)=IBXP"
^XMB(3.9,55,2,13275,0)="""RTN"",""IBCEMCA3"",123,0)"
^XMB(3.9,55,2,13276,0)=" . S IBDA=0"
^XMB(3.9,55,2,13277,0)="""RTN"",""IBCEMCA3"",124,0)"
^XMB(3.9,55,2,13278,0)=" . F  S IBDA=$O(^TMP($J,""IBCEMCL"",4,2,IBIFN,IBDA)) Q:'IBDA  D"
^XMB(3.9,55,2,13279,0)="""RTN"",""IBCEMCA3"",125,0)"
^XMB(3.9,55,2,13280,0)=" .. N DIE,DA,DR,TXT"
^XMB(3.9,55,2,13281,0)="""RTN"",""IBCEMCA3"",126,0)"
^XMB(3.9,55,2,13282,0)=" .. S DIE=361,DA=IBDA,DR="".16////""_DT D ^DIE"
^XMB(3.9,55,2,13283,0)="""RTN"",""IBCEMCA3"",127,0)"
^XMB(3.9,55,2,13284,0)=" .. S TXT(1)=""Claim queued for printing by the MCS - 'Resubmit by Print' action"",TXT=1"
^XMB(3.9,55,2,13285,0)="""RTN"",""IBCEMCA3"",128,0)"
^XMB(3.9,55,2,13286,0)=" .. D NOTECHG^IBCECSA2(IBDA,0,.TXT,1)"
^XMB(3.9,55,2,13287,0)="""RTN"",""IBCEMCA3"",129,0)"
^XMB(3.9,55,2,13288,0)=" .. Q"
^XMB(3.9,55,2,13289,0)="""RTN"",""IBCEMCA3"",130,0)"
^XMB(3.9,55,2,13290,0)=" . ;"
^XMB(3.9,55,2,13291,0)="""RTN"",""IBCEMCA3"",131,0)"
^XMB(3.9,55,2,13292,0)=" . ; if this is an MRA secondary claim and MRA's are on file and"
^XMB(3.9,55,2,13293,0)="""RTN"",""IBCEMCA3"",132,0)"
^XMB(3.9,55,2,13294,0)=" . ; there is a printer defined for MRAs, then include them too"
^XMB(3.9,55,2,13295,0)="""RTN"",""IBCEMCA3"",133,0)"
^XMB(3.9,55,2,13296,0)=" . I $$MRAEXIST^IBCEMU1(IBIFN),$P($G(^IBE(353,6,0)),U,2)'="""" D"
^XMB(3.9,55,2,13297,0)="""RTN"",""IBCEMCA3"",134,0)"
^XMB(3.9,55,2,13298,0)=" .. S ^XTMP(""IBCFP6"",$J,IBS1,IBS2,IBS3,IBIFN)="""""
^XMB(3.9,55,2,13299,0)="""RTN"",""IBCEMCA3"",135,0)"
^XMB(3.9,55,2,13300,0)=" .. S ^XTMP(""IBCFP6"",0)=IBXP"
^XMB(3.9,55,2,13301,0)="""RTN"",""IBCEMCA3"",136,0)"
^XMB(3.9,55,2,13302,0)=" .. Q"
^XMB(3.9,55,2,13303,0)="""RTN"",""IBCEMCA3"",137,0)"
^XMB(3.9,55,2,13304,0)=" . ;"
^XMB(3.9,55,2,13305,0)="""RTN"",""IBCEMCA3"",138,0)"
^XMB(3.9,55,2,13306,0)=" . ; if the claim's form type is a HCFA-1500 and there is a printer"
^XMB(3.9,55,2,13307,0)="""RTN"",""IBCEMCA3"",139,0)"
^XMB(3.9,55,2,13308,0)=" . ; defined for Bill Addendums, then include them too"
^XMB(3.9,55,2,13309,0)="""RTN"",""IBCEMCA3"",140,0)"
^XMB(3.9,55,2,13310,0)=" . I IBFT=2,$P($G(^IBE(353,4,0)),U,2)'="""" D"
^XMB(3.9,55,2,13311,0)="""RTN"",""IBCEMCA3"",141,0)"
^XMB(3.9,55,2,13312,0)=" .. S ^XTMP(""IBCFP4"",$J,IBS1,IBS2,IBS3,IBIFN)="""""
^XMB(3.9,55,2,13313,0)="""RTN"",""IBCEMCA3"",142,0)"
^XMB(3.9,55,2,13314,0)=" .. S ^XTMP(""IBCFP4"",0)=IBXP"
^XMB(3.9,55,2,13315,0)="""RTN"",""IBCEMCA3"",143,0)"
^XMB(3.9,55,2,13316,0)=" .. Q"
^XMB(3.9,55,2,13317,0)="""RTN"",""IBCEMCA3"",144,0)"
^XMB(3.9,55,2,13318,0)=" . ;"
^XMB(3.9,55,2,13319,0)="""RTN"",""IBCEMCA3"",145,0)"
^XMB(3.9,55,2,13320,0)=" . Q"
^XMB(3.9,55,2,13321,0)="""RTN"",""IBCEMCA3"",146,0)"
^XMB(3.9,55,2,13322,0)=" ;"
^XMB(3.9,55,2,13323,0)="""RTN"",""IBCEMCA3"",147,0)"
^XMB(3.9,55,2,13324,0)=" ; loop thru the ^XTMP scatch global and queue off form type job"
^XMB(3.9,55,2,13325,0)="""RTN"",""IBCEMCA3"",148,0)"
^XMB(3.9,55,2,13326,0)=" S IBX=""IBCFP"" K IBTASK"
^XMB(3.9,55,2,13327,0)="""RTN"",""IBCEMCA3"",149,0)"
^XMB(3.9,55,2,13328,0)=" F  S IBX=$O(^XTMP(IBX)) Q:IBX'?1""IBCFP""1.N  D"
^XMB(3.9,55,2,13329,0)="""RTN"",""IBCEMCA3"",150,0)"
^XMB(3.9,55,2,13330,0)=" . I '$D(^XTMP(IBX,$J)) Q"
^XMB(3.9,55,2,13331,0)="""RTN"",""IBCEMCA3"",151,0)"
^XMB(3.9,55,2,13332,0)=" . S IBFT=+$E(IBX,6,99)"
^XMB(3.9,55,2,13333,0)="""RTN"",""IBCEMCA3"",152,0)"
^XMB(3.9,55,2,13334,0)=" . S ZTIO=$P($G(^IBE(353,IBFT,0)),U,2)  ; printer"
^XMB(3.9,55,2,13335,0)="""RTN"",""IBCEMCA3"",153,0)"
^XMB(3.9,55,2,13336,0)=" . S IBFTP=IBX                          ; 1st subscript"
^XMB(3.9,55,2,13337,0)="""RTN"",""IBCEMCA3"",154,0)"
^XMB(3.9,55,2,13338,0)=" . S IBJ=$J                             ; 2nd subscript"
^XMB(3.9,55,2,13339,0)="""RTN"",""IBCEMCA3"",155,0)"
^XMB(3.9,55,2,13340,0)=" . S ZTDTH=$H"
^XMB(3.9,55,2,13341,0)="""RTN"",""IBCEMCA3"",156,0)"
^XMB(3.9,55,2,13342,0)=" . S ZTSAVE(""IBFTP"")="""""
^XMB(3.9,55,2,13343,0)="""RTN"",""IBCEMCA3"",157,0)"
^XMB(3.9,55,2,13344,0)=" . S ZTSAVE(""IBFT"")="""""
^XMB(3.9,55,2,13345,0)="""RTN"",""IBCEMCA3"",158,0)"
^XMB(3.9,55,2,13346,0)=" . S ZTSAVE(""IBJ"")="""""
^XMB(3.9,55,2,13347,0)="""RTN"",""IBCEMCA3"",159,0)"
^XMB(3.9,55,2,13348,0)=" . S ZTSAVE(""IBMCSPNT"")="""""
^XMB(3.9,55,2,13349,0)="""RTN"",""IBCEMCA3"",160,0)"
^XMB(3.9,55,2,13350,0)=" . S ZTDESC=""MCS BATCH PRINTING ""_$$FTN^IBCU3(IBFT)"
^XMB(3.9,55,2,13351,0)="""RTN"",""IBCEMCA3"",161,0)"
^XMB(3.9,55,2,13352,0)=" . S ZTRTN=""QBILL^IBCFP1"""
^XMB(3.9,55,2,13353,0)="""RTN"",""IBCEMCA3"",162,0)"
^XMB(3.9,55,2,13354,0)=" . I IBFT=6 S ZTRTN=""QMRA^IBCEMU2""      ; MRA print rtn"
^XMB(3.9,55,2,13355,0)="""RTN"",""IBCEMCA3"",163,0)"
^XMB(3.9,55,2,13356,0)=" . D ^%ZTLOAD"
^XMB(3.9,55,2,13357,0)="""RTN"",""IBCEMCA3"",164,0)"
^XMB(3.9,55,2,13358,0)=" . S IBTASK(IBFT)=+$G(ZTSK)"
^XMB(3.9,55,2,13359,0)="""RTN"",""IBCEMCA3"",165,0)"
^XMB(3.9,55,2,13360,0)=" . Q"
^XMB(3.9,55,2,13361,0)="""RTN"",""IBCEMCA3"",166,0)"
^XMB(3.9,55,2,13362,0)=" ;"
^XMB(3.9,55,2,13363,0)="""RTN"",""IBCEMCA3"",167,0)"
^XMB(3.9,55,2,13364,0)=" ; Display the queued task#'s"
^XMB(3.9,55,2,13365,0)="""RTN"",""IBCEMCA3"",168,0)"
^XMB(3.9,55,2,13366,0)=" I '$D(IBTASK) W !!?5,""Nothing was printed"""
^XMB(3.9,55,2,13367,0)="""RTN"",""IBCEMCA3"",169,0)"
^XMB(3.9,55,2,13368,0)=" I $D(IBTASK) D"
^XMB(3.9,55,2,13369,0)="""RTN"",""IBCEMCA3"",170,0)"
^XMB(3.9,55,2,13370,0)=" . W !"
^XMB(3.9,55,2,13371,0)="""RTN"",""IBCEMCA3"",171,0)"
^XMB(3.9,55,2,13372,0)=" . S IBFT=0 F  S IBFT=$O(IBTASK(IBFT)) Q:'IBFT  D"
^XMB(3.9,55,2,13373,0)="""RTN"",""IBCEMCA3"",172,0)"
^XMB(3.9,55,2,13374,0)=" .. W !,$J($$FTN^IBCU3(IBFT),15),"" form type printing started with TaskMan task# "",IBTASK(IBFT),""."""
^XMB(3.9,55,2,13375,0)="""RTN"",""IBCEMCA3"",173,0)"
^XMB(3.9,55,2,13376,0)=" .. Q"
^XMB(3.9,55,2,13377,0)="""RTN"",""IBCEMCA3"",174,0)"
^XMB(3.9,55,2,13378,0)=" . ;"
^XMB(3.9,55,2,13379,0)="""RTN"",""IBCEMCA3"",175,0)"
^XMB(3.9,55,2,13380,0)=" . W !!?1,""Please Note:  These EDI status messages will be removed from the CSA screen"""
^XMB(3.9,55,2,13381,0)="""RTN"",""IBCEMCA3"",176,0)"
^XMB(3.9,55,2,13382,0)=" . W !?15,""and the MCS screen once it has been confirmed that these claims"""
^XMB(3.9,55,2,13383,0)="""RTN"",""IBCEMCA3"",177,0)"
^XMB(3.9,55,2,13384,0)=" . W !?15,""have been successfully printed."""
^XMB(3.9,55,2,13385,0)="""RTN"",""IBCEMCA3"",178,0)"
^XMB(3.9,55,2,13386,0)=" . Q"
^XMB(3.9,55,2,13387,0)="""RTN"",""IBCEMCA3"",179,0)"
^XMB(3.9,55,2,13388,0)=" ;"
^XMB(3.9,55,2,13389,0)="""RTN"",""IBCEMCA3"",180,0)"
^XMB(3.9,55,2,13390,0)=" D PAUSE^VALM1"
^XMB(3.9,55,2,13391,0)="""RTN"",""IBCEMCA3"",181,0)"
^XMB(3.9,55,2,13392,0)=" ;"
^XMB(3.9,55,2,13393,0)="""RTN"",""IBCEMCA3"",182,0)"
^XMB(3.9,55,2,13394,0)=" ; rebuild the list"
^XMB(3.9,55,2,13395,0)="""RTN"",""IBCEMCA3"",183,0)"
^XMB(3.9,55,2,13396,0)=" KILL ^TMP($J,""IBCEMCA""),VALMHDR"
^XMB(3.9,55,2,13397,0)="""RTN"",""IBCEMCA3"",184,0)"
^XMB(3.9,55,2,13398,0)=" S VALMBG=1"
^XMB(3.9,55,2,13399,0)="""RTN"",""IBCEMCA3"",185,0)"
^XMB(3.9,55,2,13400,0)=" D UNLOCK^IBCEMCL"
^XMB(3.9,55,2,13401,0)="""RTN"",""IBCEMCA3"",186,0)"
^XMB(3.9,55,2,13402,0)=" D INIT^IBCEMCL"
^XMB(3.9,55,2,13403,0)="""RTN"",""IBCEMCA3"",187,0)"
^XMB(3.9,55,2,13404,0)=" I $G(IBCSAMCS)=1 S IBCSAMCS=2   ; flag to rebuild CSA"
^XMB(3.9,55,2,13405,0)="""RTN"",""IBCEMCA3"",188,0)"
^XMB(3.9,55,2,13406,0)=" ;"
^XMB(3.9,55,2,13407,0)="""RTN"",""IBCEMCA3"",189,0)"
^XMB(3.9,55,2,13408,0)="PRINTX ;"
^XMB(3.9,55,2,13409,0)="""RTN"",""IBCEMCA3"",190,0)"
^XMB(3.9,55,2,13410,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,13411,0)="""RTN"",""IBCEMCA3"",191,0)"
^XMB(3.9,55,2,13412,0)=" Q"
^XMB(3.9,55,2,13413,0)="""RTN"",""IBCEMCA3"",192,0)"
^XMB(3.9,55,2,13414,0)=" ;"
^XMB(3.9,55,2,13415,0)="""RTN"",""IBCEMCL"")"
^XMB(3.9,55,2,13416,0)="0^15^B41449667"
^XMB(3.9,55,2,13417,0)="""RTN"",""IBCEMCL"",1,0)"
^XMB(3.9,55,2,13418,0)="IBCEMCL ;ALB/ESG - Multiple CSA Message Management ;20-SEP-2005"
^XMB(3.9,55,2,13419,0)="""RTN"",""IBCEMCL"",2,0)"
^XMB(3.9,55,2,13420,0)=" ;;2.0;INTEGRATED BILLING;**320**;21-MAR-1994"
^XMB(3.9,55,2,13421,0)="""RTN"",""IBCEMCL"",3,0)"
^XMB(3.9,55,2,13422,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,13423,0)="""RTN"",""IBCEMCL"",4,0)"
^XMB(3.9,55,2,13424,0)=" ;"
^XMB(3.9,55,2,13425,0)="""RTN"",""IBCEMCL"",5,0)"
^XMB(3.9,55,2,13426,0)=" Q"
^XMB(3.9,55,2,13427,0)="""RTN"",""IBCEMCL"",6,0)"
^XMB(3.9,55,2,13428,0)="EN ; -- main entry point"
^XMB(3.9,55,2,13429,0)="""RTN"",""IBCEMCL"",7,0)"
^XMB(3.9,55,2,13430,0)=" L +^IBM(""MCS""):0 I '$T D  Q    ; option level lock"
^XMB(3.9,55,2,13431,0)="""RTN"",""IBCEMCL"",8,0)"
^XMB(3.9,55,2,13432,0)=" . W !!?2,""Sorry, another user is currently using the MCS option."""
^XMB(3.9,55,2,13433,0)="""RTN"",""IBCEMCL"",9,0)"
^XMB(3.9,55,2,13434,0)=" . W !?2,""Please try again later."""
^XMB(3.9,55,2,13435,0)="""RTN"",""IBCEMCL"",10,0)"
^XMB(3.9,55,2,13436,0)=" . D PAUSE^VALM1"
^XMB(3.9,55,2,13437,0)="""RTN"",""IBCEMCL"",11,0)"
^XMB(3.9,55,2,13438,0)=" . Q"
^XMB(3.9,55,2,13439,0)="""RTN"",""IBCEMCL"",12,0)"
^XMB(3.9,55,2,13440,0)=" ;"
^XMB(3.9,55,2,13441,0)="""RTN"",""IBCEMCL"",13,0)"
^XMB(3.9,55,2,13442,0)=" K ^TMP($J,""IBCEMCA""),^TMP($J,""IBCEMCL"")"
^XMB(3.9,55,2,13443,0)="""RTN"",""IBCEMCL"",14,0)"
^XMB(3.9,55,2,13444,0)=" D EN^VALM(""IBCEMC MCS MESSAGE LIST"")"
^XMB(3.9,55,2,13445,0)="""RTN"",""IBCEMCL"",15,0)"
^XMB(3.9,55,2,13446,0)=" L -^IBM(""MCS"")                            ; option level unlock"
^XMB(3.9,55,2,13447,0)="""RTN"",""IBCEMCL"",16,0)"
^XMB(3.9,55,2,13448,0)=" Q"
^XMB(3.9,55,2,13449,0)="""RTN"",""IBCEMCL"",17,0)"
^XMB(3.9,55,2,13450,0)=" ;"
^XMB(3.9,55,2,13451,0)="""RTN"",""IBCEMCL"",18,0)"
^XMB(3.9,55,2,13452,0)="HDR ; -- header code"
^XMB(3.9,55,2,13453,0)="""RTN"",""IBCEMCL"",19,0)"
^XMB(3.9,55,2,13454,0)=" NEW Z,NUMSEL,TOT"
^XMB(3.9,55,2,13455,0)="""RTN"",""IBCEMCL"",20,0)"
^XMB(3.9,55,2,13456,0)=" S NUMSEL=+$G(^TMP($J,""IBCEMCL"",4))      ; number selected"
^XMB(3.9,55,2,13457,0)="""RTN"",""IBCEMCL"",21,0)"
^XMB(3.9,55,2,13458,0)=" S TOT=+$O(^TMP($J,""IBCEMCL"",3,""""),-1)   ; total number in list"
^XMB(3.9,55,2,13459,0)="""RTN"",""IBCEMCL"",22,0)"
^XMB(3.9,55,2,13460,0)=" S Z=""Number of Claims Selected: """
^XMB(3.9,55,2,13461,0)="""RTN"",""IBCEMCL"",23,0)"
^XMB(3.9,55,2,13462,0)=" S Z=Z_$$FO^IBCNEUT1(NUMSEL,8)"
^XMB(3.9,55,2,13463,0)="""RTN"",""IBCEMCL"",24,0)"
^XMB(3.9,55,2,13464,0)=" S Z=Z_$$FO^IBCNEUT1("" "",10)"
^XMB(3.9,55,2,13465,0)="""RTN"",""IBCEMCL"",25,0)"
^XMB(3.9,55,2,13466,0)=" S Z=Z_""Total Number in this List: """
^XMB(3.9,55,2,13467,0)="""RTN"",""IBCEMCL"",26,0)"
^XMB(3.9,55,2,13468,0)=" S Z=Z_$$FO^IBCNEUT1(TOT,8)"
^XMB(3.9,55,2,13469,0)="""RTN"",""IBCEMCL"",27,0)"
^XMB(3.9,55,2,13470,0)=" S VALMHDR(1)=Z"
^XMB(3.9,55,2,13471,0)="""RTN"",""IBCEMCL"",28,0)"
^XMB(3.9,55,2,13472,0)=" Q"
^XMB(3.9,55,2,13473,0)="""RTN"",""IBCEMCL"",29,0)"
^XMB(3.9,55,2,13474,0)=" ;"
^XMB(3.9,55,2,13475,0)="""RTN"",""IBCEMCL"",30,0)"
^XMB(3.9,55,2,13476,0)="INIT ; -- init variables and list array"
^XMB(3.9,55,2,13477,0)="""RTN"",""IBCEMCL"",31,0)"
^XMB(3.9,55,2,13478,0)=" NEW A,CLAIM,DATA,EDI,IB,IB0,IB361,IB364,IBCNT,IBCURBAL,IBDA,IBDATE"
^XMB(3.9,55,2,13479,0)="""RTN"",""IBCEMCL"",32,0)"
^XMB(3.9,55,2,13480,0)=" NEW IBDIV,IBIFN,IBPAT,IBREV,IBSSN,IBSTSMSG,IBSVC,IBU1,INCLUDE,INS"
^XMB(3.9,55,2,13481,0)="""RTN"",""IBCEMCL"",33,0)"
^XMB(3.9,55,2,13482,0)=" NEW INSTID,PAYER,PROFID,SELTXT,TXT,X"
^XMB(3.9,55,2,13483,0)="""RTN"",""IBCEMCL"",34,0)"
^XMB(3.9,55,2,13484,0)=" W !!,""Compiling MCS Data ... """
^XMB(3.9,55,2,13485,0)="""RTN"",""IBCEMCL"",35,0)"
^XMB(3.9,55,2,13486,0)=" KILL ^TMP($J,""IBCEMCL"")     ; List related scratch global"
^XMB(3.9,55,2,13487,0)="""RTN"",""IBCEMCL"",36,0)"
^XMB(3.9,55,2,13488,0)=" S IBREV="""""
^XMB(3.9,55,2,13489,0)="""RTN"",""IBCEMCL"",37,0)"
^XMB(3.9,55,2,13490,0)=" F  S IBREV=$O(^IBM(361,""ACSA"",""R"",IBREV)) Q:IBREV=""""  I IBREV<2 S IBDA=0 F  S IBDA=$O(^IBM(361,""ACSA"",""R"",IBREV,IBDA)) Q:'IBDA  D"
^XMB(3.9,55,2,13491,0)="""RTN"",""IBCEMCL"",38,0)"
^XMB(3.9,55,2,13492,0)=" . S IB361=$G(^IBM(361,IBDA,0)),IBIFN=+IB361"
^XMB(3.9,55,2,13493,0)="""RTN"",""IBCEMCL"",39,0)"
^XMB(3.9,55,2,13494,0)=" . S IB0=$G(^DGCR(399,IBIFN,0))"
^XMB(3.9,55,2,13495,0)="""RTN"",""IBCEMCL"",40,0)"
^XMB(3.9,55,2,13496,0)=" . ;"
^XMB(3.9,55,2,13497,0)="""RTN"",""IBCEMCL"",41,0)"
^XMB(3.9,55,2,13498,0)=" . ; no cancelled claims"
^XMB(3.9,55,2,13499,0)="""RTN"",""IBCEMCL"",42,0)"
^XMB(3.9,55,2,13500,0)=" . I $P(IB0,U,13)=7 D UPDEDI^IBCEM(+$P(IB361,U,11),""C"") Q"
^XMB(3.9,55,2,13501,0)="""RTN"",""IBCEMCL"",43,0)"
^XMB(3.9,55,2,13502,0)=" . ;"
^XMB(3.9,55,2,13503,0)="""RTN"",""IBCEMCL"",44,0)"
^XMB(3.9,55,2,13504,0)=" . ; automatically review this message if the claim was last printed on"
^XMB(3.9,55,2,13505,0)="""RTN"",""IBCEMCL"",45,0)"
^XMB(3.9,55,2,13506,0)=" . ; or after the MCS - 'Resubmit by Print' date"
^XMB(3.9,55,2,13507,0)="""RTN"",""IBCEMCL"",46,0)"
^XMB(3.9,55,2,13508,0)=" . I $P(IB361,U,16),($P($G(^DGCR(399,IBIFN,""S"")),U,14)\1)'<$P(IB361,U,16) D UPDEDI^IBCEM(+$P(IB361,U,11),""P"") Q"
^XMB(3.9,55,2,13509,0)="""RTN"",""IBCEMCL"",47,0)"
^XMB(3.9,55,2,13510,0)=" . ;"
^XMB(3.9,55,2,13511,0)="""RTN"",""IBCEMCL"",48,0)"
^XMB(3.9,55,2,13512,0)=" . ; payer"
^XMB(3.9,55,2,13513,0)="""RTN"",""IBCEMCL"",49,0)"
^XMB(3.9,55,2,13514,0)=" . S INS=+$P($G(^DGCR(399,IBIFN,""MP"")),U,1)"
^XMB(3.9,55,2,13515,0)="""RTN"",""IBCEMCL"",50,0)"
^XMB(3.9,55,2,13516,0)=" . I 'INS S INS=+$$CURR^IBCEF2(IBIFN)"
^XMB(3.9,55,2,13517,0)="""RTN"",""IBCEMCL"",51,0)"
^XMB(3.9,55,2,13518,0)=" . I INS S PAYER=$P($G(^DIC(36,INS,0)),U,1)"
^XMB(3.9,55,2,13519,0)="""RTN"",""IBCEMCL"",52,0)"
^XMB(3.9,55,2,13520,0)=" . I 'INS S PAYER=""~unknown payer"""
^XMB(3.9,55,2,13521,0)="""RTN"",""IBCEMCL"",53,0)"
^XMB(3.9,55,2,13522,0)=" . ;"
^XMB(3.9,55,2,13523,0)="""RTN"",""IBCEMCL"",54,0)"
^XMB(3.9,55,2,13524,0)=" . ; screen for user selected payers"
^XMB(3.9,55,2,13525,0)="""RTN"",""IBCEMCL"",55,0)"
^XMB(3.9,55,2,13526,0)=" . I $D(^TMP($J,""IBCEMCA"",""INS"")) D  Q:'INCLUDE"
^XMB(3.9,55,2,13527,0)="""RTN"",""IBCEMCL"",56,0)"
^XMB(3.9,55,2,13528,0)=" .. S INCLUDE=0"
^XMB(3.9,55,2,13529,0)="""RTN"",""IBCEMCL"",57,0)"
^XMB(3.9,55,2,13530,0)=" .. I 'INS Q     ; don't include if the payer can't be found"
^XMB(3.9,55,2,13531,0)="""RTN"",""IBCEMCL"",58,0)"
^XMB(3.9,55,2,13532,0)=" .. I $D(^TMP($J,""IBCEMCA"",""INS"",1,INS)) S INCLUDE=1 Q"
^XMB(3.9,55,2,13533,0)="""RTN"",""IBCEMCL"",59,0)"
^XMB(3.9,55,2,13534,0)=" .. I '$D(^TMP($J,""IBCEMCA"",""INS"",2)) Q"
^XMB(3.9,55,2,13535,0)="""RTN"",""IBCEMCL"",60,0)"
^XMB(3.9,55,2,13536,0)=" .. S EDI=$$UP^XLFSTR($G(^DIC(36,INS,3)))"
^XMB(3.9,55,2,13537,0)="""RTN"",""IBCEMCL"",61,0)"
^XMB(3.9,55,2,13538,0)=" .. S PROFID=$P(EDI,U,2),INSTID=$P(EDI,U,4)"
^XMB(3.9,55,2,13539,0)="""RTN"",""IBCEMCL"",62,0)"
^XMB(3.9,55,2,13540,0)=" .. I PROFID'="""",$D(^TMP($J,""IBCEMCA"",""INS"",2,PROFID)) S INCLUDE=1 Q"
^XMB(3.9,55,2,13541,0)="""RTN"",""IBCEMCL"",63,0)"
^XMB(3.9,55,2,13542,0)=" .. I INSTID'="""",$D(^TMP($J,""IBCEMCA"",""INS"",2,INSTID)) S INCLUDE=1 Q"
^XMB(3.9,55,2,13543,0)="""RTN"",""IBCEMCL"",64,0)"
^XMB(3.9,55,2,13544,0)=" .. Q"
^XMB(3.9,55,2,13545,0)="""RTN"",""IBCEMCL"",65,0)"
^XMB(3.9,55,2,13546,0)=" . ;"
^XMB(3.9,55,2,13547,0)="""RTN"",""IBCEMCL"",66,0)"
^XMB(3.9,55,2,13548,0)=" . ; screen for user selected divisions"
^XMB(3.9,55,2,13549,0)="""RTN"",""IBCEMCL"",67,0)"
^XMB(3.9,55,2,13550,0)=" . I $D(^TMP($J,""IBCEMCA"",""DIV"")) D  Q:'INCLUDE"
^XMB(3.9,55,2,13551,0)="""RTN"",""IBCEMCL"",68,0)"
^XMB(3.9,55,2,13552,0)=" .. S INCLUDE=0"
^XMB(3.9,55,2,13553,0)="""RTN"",""IBCEMCL"",69,0)"
^XMB(3.9,55,2,13554,0)=" .. S IBDIV=+$P(IB0,U,22) I 'IBDIV Q"
^XMB(3.9,55,2,13555,0)="""RTN"",""IBCEMCL"",70,0)"
^XMB(3.9,55,2,13556,0)=" .. I $D(^TMP($J,""IBCEMCA"",""DIV"",IBDIV)) S INCLUDE=1 Q"
^XMB(3.9,55,2,13557,0)="""RTN"",""IBCEMCL"",71,0)"
^XMB(3.9,55,2,13558,0)=" .. Q"
^XMB(3.9,55,2,13559,0)="""RTN"",""IBCEMCL"",72,0)"
^XMB(3.9,55,2,13560,0)=" . ;"
^XMB(3.9,55,2,13561,0)="""RTN"",""IBCEMCL"",73,0)"
^XMB(3.9,55,2,13562,0)=" . S IBSTSMSG=$$TXT^IBCECSA1(IBDA,300)           ; status message text"
^XMB(3.9,55,2,13563,0)="""RTN"",""IBCEMCL"",74,0)"
^XMB(3.9,55,2,13564,0)=" . I IBSTSMSG="""" S IBSTSMSG=""~no error text"""
^XMB(3.9,55,2,13565,0)="""RTN"",""IBCEMCL"",75,0)"
^XMB(3.9,55,2,13566,0)=" . ;"
^XMB(3.9,55,2,13567,0)="""RTN"",""IBCEMCL"",76,0)"
^XMB(3.9,55,2,13568,0)=" . ; screen for user selected error message text"
^XMB(3.9,55,2,13569,0)="""RTN"",""IBCEMCL"",77,0)"
^XMB(3.9,55,2,13570,0)=" . I $D(^TMP($J,""IBCEMCA"",""TEXT"")) D  Q:'INCLUDE"
^XMB(3.9,55,2,13571,0)="""RTN"",""IBCEMCL"",78,0)"
^XMB(3.9,55,2,13572,0)=" .. S INCLUDE=0"
^XMB(3.9,55,2,13573,0)="""RTN"",""IBCEMCL"",79,0)"
^XMB(3.9,55,2,13574,0)=" .. S SELTXT="""" F  S SELTXT=$O(^TMP($J,""IBCEMCA"",""TEXT"",SELTXT)) Q:SELTXT=""""  I IBSTSMSG[SELTXT S INCLUDE=1 Q"
^XMB(3.9,55,2,13575,0)="""RTN"",""IBCEMCL"",80,0)"
^XMB(3.9,55,2,13576,0)=" .. Q"
^XMB(3.9,55,2,13577,0)="""RTN"",""IBCEMCL"",81,0)"
^XMB(3.9,55,2,13578,0)=" . ;"
^XMB(3.9,55,2,13579,0)="""RTN"",""IBCEMCL"",82,0)"
^XMB(3.9,55,2,13580,0)=" . ; screen for user selected date range"
^XMB(3.9,55,2,13581,0)="""RTN"",""IBCEMCL"",83,0)"
^XMB(3.9,55,2,13582,0)=" . I $D(^TMP($J,""IBCEMCA"",""DATE"")) D  Q:'INCLUDE"
^XMB(3.9,55,2,13583,0)="""RTN"",""IBCEMCL"",84,0)"
^XMB(3.9,55,2,13584,0)=" .. S INCLUDE=0,A=^TMP($J,""IBCEMCA"",""DATE"")"
^XMB(3.9,55,2,13585,0)="""RTN"",""IBCEMCL"",85,0)"
^XMB(3.9,55,2,13586,0)=" .. S IBDATE=$P(IB361,U,2)    ; date message received"
^XMB(3.9,55,2,13587,0)="""RTN"",""IBCEMCL"",86,0)"
^XMB(3.9,55,2,13588,0)=" .. I ($P(A,U,1)'>IBDATE),(IBDATE'>$P(A,U,2)) S INCLUDE=1 Q"
^XMB(3.9,55,2,13589,0)="""RTN"",""IBCEMCL"",87,0)"
^XMB(3.9,55,2,13590,0)=" .. Q"
^XMB(3.9,55,2,13591,0)="""RTN"",""IBCEMCL"",88,0)"
^XMB(3.9,55,2,13592,0)=" . ;"
^XMB(3.9,55,2,13593,0)="""RTN"",""IBCEMCL"",89,0)"
^XMB(3.9,55,2,13594,0)=" . ; patient and ssn"
^XMB(3.9,55,2,13595,0)="""RTN"",""IBCEMCL"",90,0)"
^XMB(3.9,55,2,13596,0)=" . S IBPAT=$G(^DPT(+$P(IB0,U,2),0))"
^XMB(3.9,55,2,13597,0)="""RTN"",""IBCEMCL"",91,0)"
^XMB(3.9,55,2,13598,0)=" . S IBSSN=$E($P(IBPAT,U,9),6,9)"
^XMB(3.9,55,2,13599,0)="""RTN"",""IBCEMCL"",92,0)"
^XMB(3.9,55,2,13600,0)=" . S IBPAT=$P(IBPAT,U,1)"
^XMB(3.9,55,2,13601,0)="""RTN"",""IBCEMCL"",93,0)"
^XMB(3.9,55,2,13602,0)=" . ;"
^XMB(3.9,55,2,13603,0)="""RTN"",""IBCEMCL"",94,0)"
^XMB(3.9,55,2,13604,0)=" . S IBSVC=$P($G(^DGCR(399,IBIFN,""U"")),U,1)  ; statement covers from"
^XMB(3.9,55,2,13605,0)="""RTN"",""IBCEMCL"",95,0)"
^XMB(3.9,55,2,13606,0)=" . S IB364=$P(IB361,U,11)                    ; transmission file entry"
^XMB(3.9,55,2,13607,0)="""RTN"",""IBCEMCL"",96,0)"
^XMB(3.9,55,2,13608,0)=" . S IBU1=$G(^DGCR(399,IBIFN,""U1""))"
^XMB(3.9,55,2,13609,0)="""RTN"",""IBCEMCL"",97,0)"
^XMB(3.9,55,2,13610,0)=" . S IBCURBAL=$P(IBU1,U,1)-$P(IBU1,U,2)      ; current balance"
^XMB(3.9,55,2,13611,0)="""RTN"",""IBCEMCL"",98,0)"
^XMB(3.9,55,2,13612,0)=" . S CLAIM=$P(IB0,U,1)                       ; external bill#"
^XMB(3.9,55,2,13613,0)="""RTN"",""IBCEMCL"",99,0)"
^XMB(3.9,55,2,13614,0)=" . ;"
^XMB(3.9,55,2,13615,0)="""RTN"",""IBCEMCL"",100,0)"
^XMB(3.9,55,2,13616,0)=" . S DATA=IBIFN_U_IB364_U_CLAIM_U_PAYER_U_IBPAT_U_IBSSN_U_IBSVC_U_IBCURBAL"
^XMB(3.9,55,2,13617,0)="""RTN"",""IBCEMCL"",101,0)"
^XMB(3.9,55,2,13618,0)=" . S ^TMP($J,""IBCEMCL"",1,$E(IBSTSMSG,1,80),IBDA)=DATA"
^XMB(3.9,55,2,13619,0)="""RTN"",""IBCEMCL"",102,0)"
^XMB(3.9,55,2,13620,0)=" . Q"
^XMB(3.9,55,2,13621,0)="""RTN"",""IBCEMCL"",103,0)"
^XMB(3.9,55,2,13622,0)=" ;"
^XMB(3.9,55,2,13623,0)="""RTN"",""IBCEMCL"",104,0)"
^XMB(3.9,55,2,13624,0)=" I '$D(^TMP($J,""IBCEMCL"",1)) D  G INITX"
^XMB(3.9,55,2,13625,0)="""RTN"",""IBCEMCL"",105,0)"
^XMB(3.9,55,2,13626,0)=" . S VALMCNT=2"
^XMB(3.9,55,2,13627,0)="""RTN"",""IBCEMCL"",106,0)"
^XMB(3.9,55,2,13628,0)=" . S ^TMP($J,""IBCEMCL"",2,1,0)="""""
^XMB(3.9,55,2,13629,0)="""RTN"",""IBCEMCL"",107,0)"
^XMB(3.9,55,2,13630,0)=" . S ^TMP($J,""IBCEMCL"",2,2,0)=""  No Status Message Data to Display"""
^XMB(3.9,55,2,13631,0)="""RTN"",""IBCEMCL"",108,0)"
^XMB(3.9,55,2,13632,0)=" . Q"
^XMB(3.9,55,2,13633,0)="""RTN"",""IBCEMCL"",109,0)"
^XMB(3.9,55,2,13634,0)=" ;"
^XMB(3.9,55,2,13635,0)="""RTN"",""IBCEMCL"",110,0)"
^XMB(3.9,55,2,13636,0)="BLD ; Build the display area of the list"
^XMB(3.9,55,2,13637,0)="""RTN"",""IBCEMCL"",111,0)"
^XMB(3.9,55,2,13638,0)=" ;"
^XMB(3.9,55,2,13639,0)="""RTN"",""IBCEMCL"",112,0)"
^XMB(3.9,55,2,13640,0)=" W !,""Building the MCS list display ... """
^XMB(3.9,55,2,13641,0)="""RTN"",""IBCEMCL"",113,0)"
^XMB(3.9,55,2,13642,0)=" S TXT="""",IBCNT=0,VALMCNT=0"
^XMB(3.9,55,2,13643,0)="""RTN"",""IBCEMCL"",114,0)"
^XMB(3.9,55,2,13644,0)=" F  S TXT=$O(^TMP($J,""IBCEMCL"",1,TXT)) Q:TXT=""""  D"
^XMB(3.9,55,2,13645,0)="""RTN"",""IBCEMCL"",115,0)"
^XMB(3.9,55,2,13646,0)=" . D SET("""")"
^XMB(3.9,55,2,13647,0)="""RTN"",""IBCEMCL"",116,0)"
^XMB(3.9,55,2,13648,0)=" . D SET(TXT)"
^XMB(3.9,55,2,13649,0)="""RTN"",""IBCEMCL"",117,0)"
^XMB(3.9,55,2,13650,0)=" . S IBDA=0"
^XMB(3.9,55,2,13651,0)="""RTN"",""IBCEMCL"",118,0)"
^XMB(3.9,55,2,13652,0)=" . F  S IBDA=$O(^TMP($J,""IBCEMCL"",1,TXT,IBDA)) Q:'IBDA  D"
^XMB(3.9,55,2,13653,0)="""RTN"",""IBCEMCL"",119,0)"
^XMB(3.9,55,2,13654,0)=" .. S IB=$G(^TMP($J,""IBCEMCL"",1,TXT,IBDA)),IBIFN=+IB,IB364=$P(IB,U,2)"
^XMB(3.9,55,2,13655,0)="""RTN"",""IBCEMCL"",120,0)"
^XMB(3.9,55,2,13656,0)=" .. S IBCNT=IBCNT+1,DATA=IBIFN_U_IBDA_U_IB364"
^XMB(3.9,55,2,13657,0)="""RTN"",""IBCEMCL"",121,0)"
^XMB(3.9,55,2,13658,0)=" .. S X=$$SETFLD^VALM1($J(IBCNT,3),"""",""NUMBER"")"
^XMB(3.9,55,2,13659,0)="""RTN"",""IBCEMCL"",122,0)"
^XMB(3.9,55,2,13660,0)=" .. S X=$$SETFLD^VALM1($P(IB,U,3),X,""BILL"")"
^XMB(3.9,55,2,13661,0)="""RTN"",""IBCEMCL"",123,0)"
^XMB(3.9,55,2,13662,0)=" .. S X=$$SETFLD^VALM1($P(IB,U,4),X,""PAYER"")"
^XMB(3.9,55,2,13663,0)="""RTN"",""IBCEMCL"",124,0)"
^XMB(3.9,55,2,13664,0)=" .. S X=$$SETFLD^VALM1($P(IB,U,5),X,""PATIENT"")"
^XMB(3.9,55,2,13665,0)="""RTN"",""IBCEMCL"",125,0)"
^XMB(3.9,55,2,13666,0)=" .. S X=$$SETFLD^VALM1($P(IB,U,6),X,""SSN"")"
^XMB(3.9,55,2,13667,0)="""RTN"",""IBCEMCL"",126,0)"
^XMB(3.9,55,2,13668,0)=" .. S X=$$SETFLD^VALM1($$FMTE^XLFDT($P(IB,U,7),""2Z""),X,""SERVICE"")"
^XMB(3.9,55,2,13669,0)="""RTN"",""IBCEMCL"",127,0)"
^XMB(3.9,55,2,13670,0)=" .. S X=$$SETFLD^VALM1($J(""$""_$FN($P(IB,U,8),"""",2),10),X,""CURBAL"")"
^XMB(3.9,55,2,13671,0)="""RTN"",""IBCEMCL"",128,0)"
^XMB(3.9,55,2,13672,0)=" .. D SET(X,IBCNT,DATA)"
^XMB(3.9,55,2,13673,0)="""RTN"",""IBCEMCL"",129,0)"
^XMB(3.9,55,2,13674,0)=" .. Q"
^XMB(3.9,55,2,13675,0)="""RTN"",""IBCEMCL"",130,0)"
^XMB(3.9,55,2,13676,0)=" . Q"
^XMB(3.9,55,2,13677,0)="""RTN"",""IBCEMCL"",131,0)"
^XMB(3.9,55,2,13678,0)=" ;"
^XMB(3.9,55,2,13679,0)="""RTN"",""IBCEMCL"",132,0)"
^XMB(3.9,55,2,13680,0)="INITX ;"
^XMB(3.9,55,2,13681,0)="""RTN"",""IBCEMCL"",133,0)"
^XMB(3.9,55,2,13682,0)=" Q"
^XMB(3.9,55,2,13683,0)="""RTN"",""IBCEMCL"",134,0)"
^XMB(3.9,55,2,13684,0)=" ;"
^XMB(3.9,55,2,13685,0)="""RTN"",""IBCEMCL"",135,0)"
^XMB(3.9,55,2,13686,0)="SET(X,CNT,DATA) ; Set an entry into the display array and scratch global"
^XMB(3.9,55,2,13687,0)="""RTN"",""IBCEMCL"",136,0)"
^XMB(3.9,55,2,13688,0)=" ; X - visual line to display"
^XMB(3.9,55,2,13689,0)="""RTN"",""IBCEMCL"",137,0)"
^XMB(3.9,55,2,13690,0)=" ; CNT - current record counter"
^XMB(3.9,55,2,13691,0)="""RTN"",""IBCEMCL"",138,0)"
^XMB(3.9,55,2,13692,0)=" ; DATA - 3 piece string IBIFN^IBDA^IB364 (optional)"
^XMB(3.9,55,2,13693,0)="""RTN"",""IBCEMCL"",139,0)"
^XMB(3.9,55,2,13694,0)=" I X="""",'VALMCNT G SETX    ; don't start list with a blank line"
^XMB(3.9,55,2,13695,0)="""RTN"",""IBCEMCL"",140,0)"
^XMB(3.9,55,2,13696,0)=" S VALMCNT=VALMCNT+1"
^XMB(3.9,55,2,13697,0)="""RTN"",""IBCEMCL"",141,0)"
^XMB(3.9,55,2,13698,0)=" I '$G(CNT) S CNT=$G(IBCNT)+1"
^XMB(3.9,55,2,13699,0)="""RTN"",""IBCEMCL"",142,0)"
^XMB(3.9,55,2,13700,0)=" S ^TMP($J,""IBCEMCL"",2,VALMCNT,0)=X"
^XMB(3.9,55,2,13701,0)="""RTN"",""IBCEMCL"",143,0)"
^XMB(3.9,55,2,13702,0)=" S ^TMP($J,""IBCEMCL"",2,""IDX"",VALMCNT,CNT)="""""
^XMB(3.9,55,2,13703,0)="""RTN"",""IBCEMCL"",144,0)"
^XMB(3.9,55,2,13704,0)=" I $G(DATA)="""" G SETX"
^XMB(3.9,55,2,13705,0)="""RTN"",""IBCEMCL"",145,0)"
^XMB(3.9,55,2,13706,0)=" ;"
^XMB(3.9,55,2,13707,0)="""RTN"",""IBCEMCL"",146,0)"
^XMB(3.9,55,2,13708,0)=" S ^TMP($J,""IBCEMCL"",3,CNT)=DATA_U_VALMCNT"
^XMB(3.9,55,2,13709,0)="""RTN"",""IBCEMCL"",147,0)"
^XMB(3.9,55,2,13710,0)=" ;"
^XMB(3.9,55,2,13711,0)="""RTN"",""IBCEMCL"",148,0)"
^XMB(3.9,55,2,13712,0)=" ; When building the list and the ^TMP($J,""IBCEMCA"") area is defined,"
^XMB(3.9,55,2,13713,0)="""RTN"",""IBCEMCL"",149,0)"
^XMB(3.9,55,2,13714,0)=" ; then automatically pre-select all entries in the list."
^XMB(3.9,55,2,13715,0)="""RTN"",""IBCEMCL"",150,0)"
^XMB(3.9,55,2,13716,0)=" I $D(^TMP($J,""IBCEMCA"")) D MARK(+$P(DATA,U,2),+DATA,VALMCNT,CNT)"
^XMB(3.9,55,2,13717,0)="""RTN"",""IBCEMCL"",151,0)"
^XMB(3.9,55,2,13718,0)="SETX ;"
^XMB(3.9,55,2,13719,0)="""RTN"",""IBCEMCL"",152,0)"
^XMB(3.9,55,2,13720,0)=" Q"
^XMB(3.9,55,2,13721,0)="""RTN"",""IBCEMCL"",153,0)"
^XMB(3.9,55,2,13722,0)=" ;"
^XMB(3.9,55,2,13723,0)="""RTN"",""IBCEMCL"",154,0)"
^XMB(3.9,55,2,13724,0)="HELP ; -- help code"
^XMB(3.9,55,2,13725,0)="""RTN"",""IBCEMCL"",155,0)"
^XMB(3.9,55,2,13726,0)=" S X=""?"" D DISP^XQORM1 W !!"
^XMB(3.9,55,2,13727,0)="""RTN"",""IBCEMCL"",156,0)"
^XMB(3.9,55,2,13728,0)=" Q"
^XMB(3.9,55,2,13729,0)="""RTN"",""IBCEMCL"",157,0)"
^XMB(3.9,55,2,13730,0)=" ;"
^XMB(3.9,55,2,13731,0)="""RTN"",""IBCEMCL"",158,0)"
^XMB(3.9,55,2,13732,0)="EXIT ; -- exit code"
^XMB(3.9,55,2,13733,0)="""RTN"",""IBCEMCL"",159,0)"
^XMB(3.9,55,2,13734,0)=" D UNLOCK"
^XMB(3.9,55,2,13735,0)="""RTN"",""IBCEMCL"",160,0)"
^XMB(3.9,55,2,13736,0)=" KILL ^TMP($J,""IBCEMCL""),^TMP($J,""IBCEMCA"")"
^XMB(3.9,55,2,13737,0)="""RTN"",""IBCEMCL"",161,0)"
^XMB(3.9,55,2,13738,0)=" Q"
^XMB(3.9,55,2,13739,0)="""RTN"",""IBCEMCL"",162,0)"
^XMB(3.9,55,2,13740,0)=" ;"
^XMB(3.9,55,2,13741,0)="""RTN"",""IBCEMCL"",163,0)"
^XMB(3.9,55,2,13742,0)="UNLOCK ; unlock any entries that may still be selected"
^XMB(3.9,55,2,13743,0)="""RTN"",""IBCEMCL"",164,0)"
^XMB(3.9,55,2,13744,0)=" N IBDA S IBDA=0"
^XMB(3.9,55,2,13745,0)="""RTN"",""IBCEMCL"",165,0)"
^XMB(3.9,55,2,13746,0)=" F  S IBDA=$O(^TMP($J,""IBCEMCL"",4,1,IBDA)) Q:'IBDA  L -^IBM(361,IBDA)"
^XMB(3.9,55,2,13747,0)="""RTN"",""IBCEMCL"",166,0)"
^XMB(3.9,55,2,13748,0)="UNLOCKX ;"
^XMB(3.9,55,2,13749,0)="""RTN"",""IBCEMCL"",167,0)"
^XMB(3.9,55,2,13750,0)=" Q"
^XMB(3.9,55,2,13751,0)="""RTN"",""IBCEMCL"",168,0)"
^XMB(3.9,55,2,13752,0)=" ;"
^XMB(3.9,55,2,13753,0)="""RTN"",""IBCEMCL"",169,0)"
^XMB(3.9,55,2,13754,0)="MARK(IBDA,IBIFN,VALMCNT,INDEX,RESULT) ; Select/De-select Entry in List."
^XMB(3.9,55,2,13755,0)="""RTN"",""IBCEMCL"",170,0)"
^XMB(3.9,55,2,13756,0)=" ; This procedure toggles the selection of a status message either"
^XMB(3.9,55,2,13757,0)="""RTN"",""IBCEMCL"",171,0)"
^XMB(3.9,55,2,13758,0)=" ; ON or OFF.  It also adds or removes the ""*"" to the list display."
^XMB(3.9,55,2,13759,0)="""RTN"",""IBCEMCL"",172,0)"
^XMB(3.9,55,2,13760,0)=" ; If a selection can't be locked, then it will not be selected."
^XMB(3.9,55,2,13761,0)="""RTN"",""IBCEMCL"",173,0)"
^XMB(3.9,55,2,13762,0)=" ; VALMHDR is killed so ListManager will invoke the header code."
^XMB(3.9,55,2,13763,0)="""RTN"",""IBCEMCL"",174,0)"
^XMB(3.9,55,2,13764,0)=" ;"
^XMB(3.9,55,2,13765,0)="""RTN"",""IBCEMCL"",175,0)"
^XMB(3.9,55,2,13766,0)=" ; RESULT is returned if passed by reference"
^XMB(3.9,55,2,13767,0)="""RTN"",""IBCEMCL"",176,0)"
^XMB(3.9,55,2,13768,0)=" ;   ""D"" message was de-selected and unlocked"
^XMB(3.9,55,2,13769,0)="""RTN"",""IBCEMCL"",177,0)"
^XMB(3.9,55,2,13770,0)=" ;   ""S"" message was selected and locked"
^XMB(3.9,55,2,13771,0)="""RTN"",""IBCEMCL"",178,0)"
^XMB(3.9,55,2,13772,0)=" ;   ""L"" message could not be locked nor selected"
^XMB(3.9,55,2,13773,0)="""RTN"",""IBCEMCL"",179,0)"
^XMB(3.9,55,2,13774,0)=" ;"
^XMB(3.9,55,2,13775,0)="""RTN"",""IBCEMCL"",180,0)"
^XMB(3.9,55,2,13776,0)=" I $D(^TMP($J,""IBCEMCL"",4,1,IBDA)) D  G MARKX   ; already selected"
^XMB(3.9,55,2,13777,0)="""RTN"",""IBCEMCL"",181,0)"
^XMB(3.9,55,2,13778,0)=" . ;"
^XMB(3.9,55,2,13779,0)="""RTN"",""IBCEMCL"",182,0)"
^XMB(3.9,55,2,13780,0)=" . ; de-select action"
^XMB(3.9,55,2,13781,0)="""RTN"",""IBCEMCL"",183,0)"
^XMB(3.9,55,2,13782,0)=" . KILL ^TMP($J,""IBCEMCL"",4,1,IBDA)"
^XMB(3.9,55,2,13783,0)="""RTN"",""IBCEMCL"",184,0)"
^XMB(3.9,55,2,13784,0)=" . KILL ^TMP($J,""IBCEMCL"",4,2,IBIFN,IBDA)"
^XMB(3.9,55,2,13785,0)="""RTN"",""IBCEMCL"",185,0)"
^XMB(3.9,55,2,13786,0)=" . S ^TMP($J,""IBCEMCL"",4)=$G(^TMP($J,""IBCEMCL"",4))-1"
^XMB(3.9,55,2,13787,0)="""RTN"",""IBCEMCL"",186,0)"
^XMB(3.9,55,2,13788,0)=" . S $E(^TMP($J,""IBCEMCL"",2,VALMCNT,0),6)="" """
^XMB(3.9,55,2,13789,0)="""RTN"",""IBCEMCL"",187,0)"
^XMB(3.9,55,2,13790,0)=" . KILL VALMHDR"
^XMB(3.9,55,2,13791,0)="""RTN"",""IBCEMCL"",188,0)"
^XMB(3.9,55,2,13792,0)=" . L -^IBM(361,IBDA)    ; unlock"
^XMB(3.9,55,2,13793,0)="""RTN"",""IBCEMCL"",189,0)"
^XMB(3.9,55,2,13794,0)=" . S RESULT=""D"""
^XMB(3.9,55,2,13795,0)="""RTN"",""IBCEMCL"",190,0)"
^XMB(3.9,55,2,13796,0)=" . Q"
^XMB(3.9,55,2,13797,0)="""RTN"",""IBCEMCL"",191,0)"
^XMB(3.9,55,2,13798,0)=" ;"
^XMB(3.9,55,2,13799,0)="""RTN"",""IBCEMCL"",192,0)"
^XMB(3.9,55,2,13800,0)=" ; lock attempt prior to selection"
^XMB(3.9,55,2,13801,0)="""RTN"",""IBCEMCL"",193,0)"
^XMB(3.9,55,2,13802,0)=" L +^IBM(361,IBDA):0 I '$T D  G MARKX"
^XMB(3.9,55,2,13803,0)="""RTN"",""IBCEMCL"",194,0)"
^XMB(3.9,55,2,13804,0)=" . S RESULT=""L"""
^XMB(3.9,55,2,13805,0)="""RTN"",""IBCEMCL"",195,0)"
^XMB(3.9,55,2,13806,0)=" . Q"
^XMB(3.9,55,2,13807,0)="""RTN"",""IBCEMCL"",196,0)"
^XMB(3.9,55,2,13808,0)=" ;"
^XMB(3.9,55,2,13809,0)="""RTN"",""IBCEMCL"",197,0)"
^XMB(3.9,55,2,13810,0)=" ; select action"
^XMB(3.9,55,2,13811,0)="""RTN"",""IBCEMCL"",198,0)"
^XMB(3.9,55,2,13812,0)=" S ^TMP($J,""IBCEMCL"",4,1,IBDA)=IBIFN_U_VALMCNT_U_INDEX"
^XMB(3.9,55,2,13813,0)="""RTN"",""IBCEMCL"",199,0)"
^XMB(3.9,55,2,13814,0)=" S ^TMP($J,""IBCEMCL"",4,2,IBIFN,IBDA)="""""
^XMB(3.9,55,2,13815,0)="""RTN"",""IBCEMCL"",200,0)"
^XMB(3.9,55,2,13816,0)=" S ^TMP($J,""IBCEMCL"",4)=$G(^TMP($J,""IBCEMCL"",4))+1"
^XMB(3.9,55,2,13817,0)="""RTN"",""IBCEMCL"",201,0)"
^XMB(3.9,55,2,13818,0)=" S $E(^TMP($J,""IBCEMCL"",2,VALMCNT,0),6)=""*"""
^XMB(3.9,55,2,13819,0)="""RTN"",""IBCEMCL"",202,0)"
^XMB(3.9,55,2,13820,0)=" KILL VALMHDR"
^XMB(3.9,55,2,13821,0)="""RTN"",""IBCEMCL"",203,0)"
^XMB(3.9,55,2,13822,0)=" S RESULT=""S"""
^XMB(3.9,55,2,13823,0)="""RTN"",""IBCEMCL"",204,0)"
^XMB(3.9,55,2,13824,0)="MARKX ;"
^XMB(3.9,55,2,13825,0)="""RTN"",""IBCEMCL"",205,0)"
^XMB(3.9,55,2,13826,0)=" Q"
^XMB(3.9,55,2,13827,0)="""RTN"",""IBCEMCL"",206,0)"
^XMB(3.9,55,2,13828,0)=" ;"
^XMB(3.9,55,2,13829,0)="""RTN"",""IBCEMU2"")"
^XMB(3.9,55,2,13830,0)="0^21^B34857625^B34074055"
^XMB(3.9,55,2,13831,0)="""RTN"",""IBCEMU2"",1,0)"
^XMB(3.9,55,2,13832,0)="IBCEMU2 ;ALB/DSM - IB MRA Utility ;01-MAY-2003"
^XMB(3.9,55,2,13833,0)="""RTN"",""IBCEMU2"",2,0)"
^XMB(3.9,55,2,13834,0)=" ;;2.0;INTEGRATED BILLING;**155,320**;21-MAR-94"
^XMB(3.9,55,2,13835,0)="""RTN"",""IBCEMU2"",3,0)"
^XMB(3.9,55,2,13836,0)=" ;"
^XMB(3.9,55,2,13837,0)="""RTN"",""IBCEMU2"",4,0)"
^XMB(3.9,55,2,13838,0)=" Q"
^XMB(3.9,55,2,13839,0)="""RTN"",""IBCEMU2"",5,0)"
^XMB(3.9,55,2,13840,0)=" ;"
^XMB(3.9,55,2,13841,0)="""RTN"",""IBCEMU2"",6,0)"
^XMB(3.9,55,2,13842,0)="QMRA ; This is a background procedure that is spun off of the IB BATCH"
^XMB(3.9,55,2,13843,0)="""RTN"",""IBCEMU2"",7,0)"
^XMB(3.9,55,2,13844,0)=" ; Print option. This process scans a queue in ^XTMP(""IBMRA""_#,$J) and checks"
^XMB(3.9,55,2,13845,0)="""RTN"",""IBCEMU2"",8,0)"
^XMB(3.9,55,2,13846,0)=" ; each Bill to see if a printable MRA exist, if so, prints them. MRA's print"
^XMB(3.9,55,2,13847,0)="""RTN"",""IBCEMU2"",9,0)"
^XMB(3.9,55,2,13848,0)=" ; on the device associated with the 'Bill Addendum' Form Type."
^XMB(3.9,55,2,13849,0)="""RTN"",""IBCEMU2"",10,0)"
^XMB(3.9,55,2,13850,0)=" ; This process doesn't interact with users."
^XMB(3.9,55,2,13851,0)="""RTN"",""IBCEMU2"",11,0)"
^XMB(3.9,55,2,13852,0)=" ;"
^XMB(3.9,55,2,13853,0)="""RTN"",""IBCEMU2"",12,0)"
^XMB(3.9,55,2,13854,0)=" ; IB*2*320:  MCS - Resubmit by Print produces a scratch global also"
^XMB(3.9,55,2,13855,0)="""RTN"",""IBCEMU2"",13,0)"
^XMB(3.9,55,2,13856,0)=" ;            ^XTMP(""IBCFP6"",$J,.... for MRA's to print here"
^XMB(3.9,55,2,13857,0)="""RTN"",""IBCEMU2"",14,0)"
^XMB(3.9,55,2,13858,0)=" ;"
^XMB(3.9,55,2,13859,0)="""RTN"",""IBCEMU2"",15,0)"
^XMB(3.9,55,2,13860,0)=" ; Input:"
^XMB(3.9,55,2,13861,0)="""RTN"",""IBCEMU2"",16,0)"
^XMB(3.9,55,2,13862,0)=" ;      IBJ   = $J of starting job"
^XMB(3.9,55,2,13863,0)="""RTN"",""IBCEMU2"",17,0)"
^XMB(3.9,55,2,13864,0)=" ;      IBFTP = ""IBMRA""_# (ien of form type) or ""IBCFP6"""
^XMB(3.9,55,2,13865,0)="""RTN"",""IBCEMU2"",18,0)"
^XMB(3.9,55,2,13866,0)=" ;"
^XMB(3.9,55,2,13867,0)="""RTN"",""IBCEMU2"",19,0)"
^XMB(3.9,55,2,13868,0)=" N IBS1,IBS2,IBS3,IBIFN,IBQ,IBPGN"
^XMB(3.9,55,2,13869,0)="""RTN"",""IBCEMU2"",20,0)"
^XMB(3.9,55,2,13870,0)=" S (IBS1,IBIFN,IBQ)=0"
^XMB(3.9,55,2,13871,0)="""RTN"",""IBCEMU2"",21,0)"
^XMB(3.9,55,2,13872,0)=" F  S IBS1=$O(^XTMP(IBFTP,IBJ,IBS1)) Q:IBS1=""""  D  I IBQ Q"
^XMB(3.9,55,2,13873,0)="""RTN"",""IBCEMU2"",22,0)"
^XMB(3.9,55,2,13874,0)=" . S IBS2=0 F  S IBS2=$O(^XTMP(IBFTP,IBJ,IBS1,IBS2)) Q:IBS2=""""  D  I IBQ Q"
^XMB(3.9,55,2,13875,0)="""RTN"",""IBCEMU2"",23,0)"
^XMB(3.9,55,2,13876,0)=" . . S IBS3=0 F  S IBS3=$O(^XTMP(IBFTP,IBJ,IBS1,IBS2,IBS3)) Q:IBS3=""""  D  I IBQ Q"
^XMB(3.9,55,2,13877,0)="""RTN"",""IBCEMU2"",24,0)"
^XMB(3.9,55,2,13878,0)=" . . . S IBIFN=0 F  S IBIFN=$O(^XTMP(IBFTP,IBJ,IBS1,IBS2,IBS3,IBIFN)) Q:IBIFN=""""  D  I $$STOP S IBQ=1 Q"
^XMB(3.9,55,2,13879,0)="""RTN"",""IBCEMU2"",25,0)"
^XMB(3.9,55,2,13880,0)=" . . . . I $$MRAEXIST^IBCEMU1(IBIFN) D PROC^IBCEMRAA W @IOF ;must have IBIFN set"
^XMB(3.9,55,2,13881,0)="""RTN"",""IBCEMU2"",26,0)"
^XMB(3.9,55,2,13882,0)=" K ^XTMP(IBFTP,IBJ) S ZTREQ=""@"""
^XMB(3.9,55,2,13883,0)="""RTN"",""IBCEMU2"",27,0)"
^XMB(3.9,55,2,13884,0)=" Q  ;QMRA"
^XMB(3.9,55,2,13885,0)="""RTN"",""IBCEMU2"",28,0)"
^XMB(3.9,55,2,13886,0)=" ;"
^XMB(3.9,55,2,13887,0)="""RTN"",""IBCEMU2"",29,0)"
^XMB(3.9,55,2,13888,0)="STOP() ;determine if user has requested the queued report to stop"
^XMB(3.9,55,2,13889,0)="""RTN"",""IBCEMU2"",30,0)"
^XMB(3.9,55,2,13890,0)=" I $D(ZTQUEUED),$$S^%ZTLOAD S ZTSTOP=1 K ZTREQ I +$G(IBPGN) W !,""***TASK STOPPED BY USER***"""
^XMB(3.9,55,2,13891,0)="""RTN"",""IBCEMU2"",31,0)"
^XMB(3.9,55,2,13892,0)=" Q +$G(ZTSTOP)"
^XMB(3.9,55,2,13893,0)="""RTN"",""IBCEMU2"",32,0)"
^XMB(3.9,55,2,13894,0)=" ;"
^XMB(3.9,55,2,13895,0)="""RTN"",""IBCEMU2"",33,0)"
^XMB(3.9,55,2,13896,0)=" ;"
^XMB(3.9,55,2,13897,0)="""RTN"",""IBCEMU2"",34,0)"
^XMB(3.9,55,2,13898,0)="STAT(IBIFN,STATUS,MRAONLY) ; Update the review status in the EOB file"
^XMB(3.9,55,2,13899,0)="""RTN"",""IBCEMU2"",35,0)"
^XMB(3.9,55,2,13900,0)=" ; This procedure updates field .16 in file 361.1 for all EOB's for"
^XMB(3.9,55,2,13901,0)="""RTN"",""IBCEMU2"",36,0)"
^XMB(3.9,55,2,13902,0)=" ; the given bill#"
^XMB(3.9,55,2,13903,0)="""RTN"",""IBCEMU2"",37,0)"
^XMB(3.9,55,2,13904,0)=" ; "
^XMB(3.9,55,2,13905,0)="""RTN"",""IBCEMU2"",38,0)"
^XMB(3.9,55,2,13906,0)=" ;   IBIFN   - Internal Bill# (required)"
^XMB(3.9,55,2,13907,0)="""RTN"",""IBCEMU2"",39,0)"
^XMB(3.9,55,2,13908,0)=" ;   STATUS  - Internal Value of the Review Status field (required)"
^XMB(3.9,55,2,13909,0)="""RTN"",""IBCEMU2"",40,0)"
^XMB(3.9,55,2,13910,0)=" ;   MRAONLY - Optional Flag with a default of 0 if not passed in"
^XMB(3.9,55,2,13911,0)="""RTN"",""IBCEMU2"",41,0)"
^XMB(3.9,55,2,13912,0)=" ;             1:only update MRA EOB's for this bill"
^XMB(3.9,55,2,13913,0)="""RTN"",""IBCEMU2"",42,0)"
^XMB(3.9,55,2,13914,0)=" ;             0:update all EOB's for this bill"
^XMB(3.9,55,2,13915,0)="""RTN"",""IBCEMU2"",43,0)"
^XMB(3.9,55,2,13916,0)=" ;"
^XMB(3.9,55,2,13917,0)="""RTN"",""IBCEMU2"",44,0)"
^XMB(3.9,55,2,13918,0)=" NEW RESULT,IBEOB,IBM"
^XMB(3.9,55,2,13919,0)="""RTN"",""IBCEMU2"",45,0)"
^XMB(3.9,55,2,13920,0)=" NEW DIE,DA,DR,D,D0,DI,DIC,DICR,DIG,DIH,DISYS,DIU,DIV,DIW,DQ,DIERR,X,Y"
^XMB(3.9,55,2,13921,0)="""RTN"",""IBCEMU2"",46,0)"
^XMB(3.9,55,2,13922,0)=" S IBIFN=+$G(IBIFN),STATUS=$G(STATUS)"
^XMB(3.9,55,2,13923,0)="""RTN"",""IBCEMU2"",47,0)"
^XMB(3.9,55,2,13924,0)=" S MRAONLY=$G(MRAONLY,0)"
^XMB(3.9,55,2,13925,0)="""RTN"",""IBCEMU2"",48,0)"
^XMB(3.9,55,2,13926,0)=" ;"
^XMB(3.9,55,2,13927,0)="""RTN"",""IBCEMU2"",49,0)"
^XMB(3.9,55,2,13928,0)=" I '$D(^IBM(361.1,""B"",IBIFN)) G STATX    ; no EOB's for this bill"
^XMB(3.9,55,2,13929,0)="""RTN"",""IBCEMU2"",50,0)"
^XMB(3.9,55,2,13930,0)=" D CHK^DIE(361.1,.16,,STATUS,.RESULT)"
^XMB(3.9,55,2,13931,0)="""RTN"",""IBCEMU2"",51,0)"
^XMB(3.9,55,2,13932,0)=" I RESULT=""^"" G STATX                    ; invalid status passed in"
^XMB(3.9,55,2,13933,0)="""RTN"",""IBCEMU2"",52,0)"
^XMB(3.9,55,2,13934,0)=" ;"
^XMB(3.9,55,2,13935,0)="""RTN"",""IBCEMU2"",53,0)"
^XMB(3.9,55,2,13936,0)=" S IBEOB=0        ; loop thru all EOB's for the bill"
^XMB(3.9,55,2,13937,0)="""RTN"",""IBCEMU2"",54,0)"
^XMB(3.9,55,2,13938,0)=" F  S IBEOB=$O(^IBM(361.1,""B"",IBIFN,IBEOB)) Q:'IBEOB  D"
^XMB(3.9,55,2,13939,0)="""RTN"",""IBCEMU2"",55,0)"
^XMB(3.9,55,2,13940,0)=" . S IBM=$G(^IBM(361.1,IBEOB,0))"
^XMB(3.9,55,2,13941,0)="""RTN"",""IBCEMU2"",56,0)"
^XMB(3.9,55,2,13942,0)=" . I $P(IBM,U,16)=STATUS Q           ; no change"
^XMB(3.9,55,2,13943,0)="""RTN"",""IBCEMU2"",57,0)"
^XMB(3.9,55,2,13944,0)=" . I MRAONLY,'$P(IBM,U,4) Q          ; skip because of parameter"
^XMB(3.9,55,2,13945,0)="""RTN"",""IBCEMU2"",58,0)"
^XMB(3.9,55,2,13946,0)=" . S DIE=361.1,DA=IBEOB,DR="".16////""_STATUS D ^DIE"
^XMB(3.9,55,2,13947,0)="""RTN"",""IBCEMU2"",59,0)"
^XMB(3.9,55,2,13948,0)=" . Q"
^XMB(3.9,55,2,13949,0)="""RTN"",""IBCEMU2"",60,0)"
^XMB(3.9,55,2,13950,0)=" ;"
^XMB(3.9,55,2,13951,0)="""RTN"",""IBCEMU2"",61,0)"
^XMB(3.9,55,2,13952,0)="STATX ;"
^XMB(3.9,55,2,13953,0)="""RTN"",""IBCEMU2"",62,0)"
^XMB(3.9,55,2,13954,0)=" Q"
^XMB(3.9,55,2,13955,0)="""RTN"",""IBCEMU2"",63,0)"
^XMB(3.9,55,2,13956,0)=" ;"
^XMB(3.9,55,2,13957,0)="""RTN"",""IBCEMU2"",64,0)"
^XMB(3.9,55,2,13958,0)="MRAWL(IBIFN) ; Do any MRA EOB's for this bill appear on the worklist?"
^XMB(3.9,55,2,13959,0)="""RTN"",""IBCEMU2"",65,0)"
^XMB(3.9,55,2,13960,0)=" ;"
^XMB(3.9,55,2,13961,0)="""RTN"",""IBCEMU2"",66,0)"
^XMB(3.9,55,2,13962,0)=" ; This function returns 1 if at least one MRA EOB for the given bill"
^XMB(3.9,55,2,13963,0)="""RTN"",""IBCEMU2"",67,0)"
^XMB(3.9,55,2,13964,0)=" ; appears on the MRA management worklist.  Otherwise, this function"
^XMB(3.9,55,2,13965,0)="""RTN"",""IBCEMU2"",68,0)"
^XMB(3.9,55,2,13966,0)=" ; returns 0."
^XMB(3.9,55,2,13967,0)="""RTN"",""IBCEMU2"",69,0)"
^XMB(3.9,55,2,13968,0)=" ;"
^XMB(3.9,55,2,13969,0)="""RTN"",""IBCEMU2"",70,0)"
^XMB(3.9,55,2,13970,0)=" NEW OK,IBEOB"
^XMB(3.9,55,2,13971,0)="""RTN"",""IBCEMU2"",71,0)"
^XMB(3.9,55,2,13972,0)=" S OK=0,IBIFN=+$G(IBIFN)"
^XMB(3.9,55,2,13973,0)="""RTN"",""IBCEMU2"",72,0)"
^XMB(3.9,55,2,13974,0)=" I '$D(^IBM(361.1,""B"",IBIFN)) G MRAWLX     ; no EOB's for this bill"
^XMB(3.9,55,2,13975,0)="""RTN"",""IBCEMU2"",73,0)"
^XMB(3.9,55,2,13976,0)=" S IBEOB=0        ; loop thru all EOB's for the bill"
^XMB(3.9,55,2,13977,0)="""RTN"",""IBCEMU2"",74,0)"
^XMB(3.9,55,2,13978,0)=" F  S IBEOB=$O(^IBM(361.1,""B"",IBIFN,IBEOB)) Q:'IBEOB  D  Q:OK"
^XMB(3.9,55,2,13979,0)="""RTN"",""IBCEMU2"",75,0)"
^XMB(3.9,55,2,13980,0)=" . I $$ELIG^IBCECOB1(IBEOB) S OK=1"
^XMB(3.9,55,2,13981,0)="""RTN"",""IBCEMU2"",76,0)"
^XMB(3.9,55,2,13982,0)=" . Q"
^XMB(3.9,55,2,13983,0)="""RTN"",""IBCEMU2"",77,0)"
^XMB(3.9,55,2,13984,0)="MRAWLX ;"
^XMB(3.9,55,2,13985,0)="""RTN"",""IBCEMU2"",78,0)"
^XMB(3.9,55,2,13986,0)=" Q OK"
^XMB(3.9,55,2,13987,0)="""RTN"",""IBCEMU2"",79,0)"
^XMB(3.9,55,2,13988,0)=" ;"
^XMB(3.9,55,2,13989,0)="""RTN"",""IBCEMU2"",80,0)"
^XMB(3.9,55,2,13990,0)="TXSTS(IBIFN,IB364,REJFLG,IBZ) ; Claim transmission status information"
^XMB(3.9,55,2,13991,0)="""RTN"",""IBCEMU2"",81,0)"
^XMB(3.9,55,2,13992,0)=" ; Input   IBIFN - required"
^XMB(3.9,55,2,13993,0)="""RTN"",""IBCEMU2"",82,0)"
^XMB(3.9,55,2,13994,0)=" ;         IB364 - optional (defaults to most recent transmission#)"
^XMB(3.9,55,2,13995,0)="""RTN"",""IBCEMU2"",83,0)"
^XMB(3.9,55,2,13996,0)=" ; Output  REJFLG (pass by reference) - 1/0 flag if any rejection status"
^XMB(3.9,55,2,13997,0)="""RTN"",""IBCEMU2"",84,0)"
^XMB(3.9,55,2,13998,0)=" ;                                      messages on file"
^XMB(3.9,55,2,13999,0)="""RTN"",""IBCEMU2"",85,0)"
^XMB(3.9,55,2,14000,0)=" ;         IBZ (pass by reference) - array of information"
^XMB(3.9,55,2,14001,0)="""RTN"",""IBCEMU2"",86,0)"
^XMB(3.9,55,2,14002,0)=" ;"
^XMB(3.9,55,2,14003,0)="""RTN"",""IBCEMU2"",87,0)"
^XMB(3.9,55,2,14004,0)=" NEW IEN,SMCNT,SEV,BCH,BCHD0,BCHD1"
^XMB(3.9,55,2,14005,0)="""RTN"",""IBCEMU2"",88,0)"
^XMB(3.9,55,2,14006,0)=" S REJFLG=0 K IBZ"
^XMB(3.9,55,2,14007,0)="""RTN"",""IBCEMU2"",89,0)"
^XMB(3.9,55,2,14008,0)=" S IBIFN=+$G(IBIFN) I 'IBIFN G TXSTSX"
^XMB(3.9,55,2,14009,0)="""RTN"",""IBCEMU2"",90,0)"
^XMB(3.9,55,2,14010,0)=" S IB364=+$G(IB364)"
^XMB(3.9,55,2,14011,0)="""RTN"",""IBCEMU2"",91,0)"
^XMB(3.9,55,2,14012,0)=" I 'IB364 S IB364=$$LAST364^IBCEF4(IBIFN) I 'IB364 G TXSTSX"
^XMB(3.9,55,2,14013,0)="""RTN"",""IBCEMU2"",92,0)"
^XMB(3.9,55,2,14014,0)=" I $P($G(^IBA(364,IB364,0)),U,1)'=IBIFN G TXSTSX"
^XMB(3.9,55,2,14015,0)="""RTN"",""IBCEMU2"",93,0)"
^XMB(3.9,55,2,14016,0)=" S IEN=0,SMCNT=0"
^XMB(3.9,55,2,14017,0)="""RTN"",""IBCEMU2"",94,0)"
^XMB(3.9,55,2,14018,0)=" F  S IEN=$O(^IBM(361,""AERR"",IB364,IEN)) Q:'IEN  D"
^XMB(3.9,55,2,14019,0)="""RTN"",""IBCEMU2"",95,0)"
^XMB(3.9,55,2,14020,0)=" . S SMCNT=SMCNT+1"
^XMB(3.9,55,2,14021,0)="""RTN"",""IBCEMU2"",96,0)"
^XMB(3.9,55,2,14022,0)=" . S SEV=$P($G(^IBM(361,IEN,0)),U,3)   ; status message severity"
^XMB(3.9,55,2,14023,0)="""RTN"",""IBCEMU2"",97,0)"
^XMB(3.9,55,2,14024,0)=" . I SEV=""R"" S REJFLG=1"
^XMB(3.9,55,2,14025,0)="""RTN"",""IBCEMU2"",98,0)"
^XMB(3.9,55,2,14026,0)=" . Q"
^XMB(3.9,55,2,14027,0)="""RTN"",""IBCEMU2"",99,0)"
^XMB(3.9,55,2,14028,0)=" S BCH=+$P($G(^IBA(364,IB364,0)),U,2)  ; batch ien"
^XMB(3.9,55,2,14029,0)="""RTN"",""IBCEMU2"",100,0)"
^XMB(3.9,55,2,14030,0)=" S BCHD0=$G(^IBA(364.1,BCH,0))"
^XMB(3.9,55,2,14031,0)="""RTN"",""IBCEMU2"",101,0)"
^XMB(3.9,55,2,14032,0)=" S BCHD1=$G(^IBA(364.1,BCH,1))"
^XMB(3.9,55,2,14033,0)="""RTN"",""IBCEMU2"",102,0)"
^XMB(3.9,55,2,14034,0)=" S IBZ(""DATE LAST SENT"")=$P(BCHD1,U,3)"
^XMB(3.9,55,2,14035,0)="""RTN"",""IBCEMU2"",103,0)"
^XMB(3.9,55,2,14036,0)=" S IBZ(""NUMBER OF STATUS MESSAGES"")=SMCNT"
^XMB(3.9,55,2,14037,0)="""RTN"",""IBCEMU2"",104,0)"
^XMB(3.9,55,2,14038,0)=" S IBZ(""BATCH NUMBER"")=$P(BCHD0,U,1)"
^XMB(3.9,55,2,14039,0)="""RTN"",""IBCEMU2"",105,0)"
^XMB(3.9,55,2,14040,0)=" S IBZ(""TRANSMISSION STATUS"")=$P($G(^IBA(364,IB364,0)),U,3)"
^XMB(3.9,55,2,14041,0)="""RTN"",""IBCEMU2"",106,0)"
^XMB(3.9,55,2,14042,0)="TXSTSX ;"
^XMB(3.9,55,2,14043,0)="""RTN"",""IBCEMU2"",107,0)"
^XMB(3.9,55,2,14044,0)=" Q"
^XMB(3.9,55,2,14045,0)="""RTN"",""IBCEMU2"",108,0)"
^XMB(3.9,55,2,14046,0)=" ;"
^XMB(3.9,55,2,14047,0)="""RTN"",""IBCEMU2"",109,0)"
^XMB(3.9,55,2,14048,0)="MRACALC(IBEOB,IBIFN,AR,PRCASV) ; Calculates Two Amounts:"
^XMB(3.9,55,2,14049,0)="""RTN"",""IBCEMU2"",110,0)"
^XMB(3.9,55,2,14050,0)=" ;  Unreimbursable Medicare Expense and Medicare Contract Adjustment"
^XMB(3.9,55,2,14051,0)="""RTN"",""IBCEMU2"",111,0)"
^XMB(3.9,55,2,14052,0)=" ;  Amount for a given EOB."
^XMB(3.9,55,2,14053,0)="""RTN"",""IBCEMU2"",112,0)"
^XMB(3.9,55,2,14054,0)=" ;"
^XMB(3.9,55,2,14055,0)="""RTN"",""IBCEMU2"",113,0)"
^XMB(3.9,55,2,14056,0)=" ; Input   IBIFN= ien of Claim file 399 - Required"
^XMB(3.9,55,2,14057,0)="""RTN"",""IBCEMU2"",114,0)"
^XMB(3.9,55,2,14058,0)=" ;         IBEOB= ien of EOB file 361.1 - Required"
^XMB(3.9,55,2,14059,0)="""RTN"",""IBCEMU2"",115,0)"
^XMB(3.9,55,2,14060,0)=" ;         AR=    Flag indicating this was called from AR function"
^XMB(3.9,55,2,14061,0)="""RTN"",""IBCEMU2"",116,0)"
^XMB(3.9,55,2,14062,0)=" ; Input/Output  PRCASV= array with the two calculated values"
^XMB(3.9,55,2,14063,0)="""RTN"",""IBCEMU2"",117,0)"
^XMB(3.9,55,2,14064,0)=" ;         PRCASV(""MEDURE"")=Unreimbursable Medicare Expense"
^XMB(3.9,55,2,14065,0)="""RTN"",""IBCEMU2"",118,0)"
^XMB(3.9,55,2,14066,0)=" ;         PRCASV(""MEDCA"")=Medicare Contract Adjustment Amount"
^XMB(3.9,55,2,14067,0)="""RTN"",""IBCEMU2"",119,0)"
^XMB(3.9,55,2,14068,0)=" ;"
^XMB(3.9,55,2,14069,0)="""RTN"",""IBCEMU2"",120,0)"
^XMB(3.9,55,2,14070,0)=" ; For multiple EOB's, add up the calculated values across EOB's"
^XMB(3.9,55,2,14071,0)="""RTN"",""IBCEMU2"",121,0)"
^XMB(3.9,55,2,14072,0)=" ;"
^XMB(3.9,55,2,14073,0)="""RTN"",""IBCEMU2"",122,0)"
^XMB(3.9,55,2,14074,0)=" N I,LNLVL,EOBADJ,IBCOBN,INPAT,FRMTYP"
^XMB(3.9,55,2,14075,0)="""RTN"",""IBCEMU2"",123,0)"
^XMB(3.9,55,2,14076,0)=" ;"
^XMB(3.9,55,2,14077,0)="""RTN"",""IBCEMU2"",124,0)"
^XMB(3.9,55,2,14078,0)=" S FRMTYP=$$FT^IBCEF(IBIFN)       ;Form Type 2=HCFA 1500; 3=UB92"
^XMB(3.9,55,2,14079,0)="""RTN"",""IBCEMU2"",125,0)"
^XMB(3.9,55,2,14080,0)=" S INPAT=$$INPAT^IBCEF(IBIFN)     ;Inpat/Outpat Flag"
^XMB(3.9,55,2,14081,0)="""RTN"",""IBCEMU2"",126,0)"
^XMB(3.9,55,2,14082,0)=" S AR=$G(AR,0)    ;initialize AR flag"
^XMB(3.9,55,2,14083,0)="""RTN"",""IBCEMU2"",127,0)"
^XMB(3.9,55,2,14084,0)=" F I=0,1,2 S IBEOB(I)=$G(^IBM(361.1,IBEOB,I))"
^XMB(3.9,55,2,14085,0)="""RTN"",""IBCEMU2"",128,0)"
^XMB(3.9,55,2,14086,0)=" I $P(IBEOB(0),U,4)'=1 Q  ;make sure it's an MRA"
^XMB(3.9,55,2,14087,0)="""RTN"",""IBCEMU2"",129,0)"
^XMB(3.9,55,2,14088,0)=" S IBCOBN=$$COBN^IBCEF(IBIFN) ;get current bill sequence"
^XMB(3.9,55,2,14089,0)="""RTN"",""IBCEMU2"",130,0)"
^XMB(3.9,55,2,14090,0)=" ; Make sure we're on the right insurance sequence when AR flag is on"
^XMB(3.9,55,2,14091,0)="""RTN"",""IBCEMU2"",131,0)"
^XMB(3.9,55,2,14092,0)=" I AR I $P(IBEOB(0),U,15)'=(IBCOBN-1) Q"
^XMB(3.9,55,2,14093,0)="""RTN"",""IBCEMU2"",132,0)"
^XMB(3.9,55,2,14094,0)=" ;"
^XMB(3.9,55,2,14095,0)="""RTN"",""IBCEMU2"",133,0)"
^XMB(3.9,55,2,14096,0)=" ; Unreimburseable Medicare Expense (same calc regardless of form type)"
^XMB(3.9,55,2,14097,0)="""RTN"",""IBCEMU2"",134,0)"
^XMB(3.9,55,2,14098,0)=" ; For multiple EOB's, add up the amounts across EOB's"
^XMB(3.9,55,2,14099,0)="""RTN"",""IBCEMU2"",135,0)"
^XMB(3.9,55,2,14100,0)=" S PRCASV(""MEDURE"")=$G(PRCASV(""MEDURE""))+IBEOB(1)"
^XMB(3.9,55,2,14101,0)="""RTN"",""IBCEMU2"",136,0)"
^XMB(3.9,55,2,14102,0)=" ;"
^XMB(3.9,55,2,14103,0)="""RTN"",""IBCEMU2"",137,0)"
^XMB(3.9,55,2,14104,0)=" ; Handle HCFA 1500 Form Type Next:"
^XMB(3.9,55,2,14105,0)="""RTN"",""IBCEMU2"",138,0)"
^XMB(3.9,55,2,14106,0)=" I FRMTYP=2 D MEDCARE(IBEOB,.PRCASV) Q"
^XMB(3.9,55,2,14107,0)="""RTN"",""IBCEMU2"",139,0)"
^XMB(3.9,55,2,14108,0)=" ;"
^XMB(3.9,55,2,14109,0)="""RTN"",""IBCEMU2"",140,0)"
^XMB(3.9,55,2,14110,0)=" ; Handle UB92 Form Type Next:"
^XMB(3.9,55,2,14111,0)="""RTN"",""IBCEMU2"",141,0)"
^XMB(3.9,55,2,14112,0)=" ; If Inpatient Calculate from Claim level data"
^XMB(3.9,55,2,14113,0)="""RTN"",""IBCEMU2"",142,0)"
^XMB(3.9,55,2,14114,0)=" I INPAT D  Q  ;"
^XMB(3.9,55,2,14115,0)="""RTN"",""IBCEMU2"",143,0)"
^XMB(3.9,55,2,14116,0)=" . K EOBADJ M EOBADJ=^IBM(361.1,IBEOB,10)"
^XMB(3.9,55,2,14117,0)="""RTN"",""IBCEMU2"",144,0)"
^XMB(3.9,55,2,14118,0)=" . S PRCASV(""MEDCA"")=$G(PRCASV(""MEDCA""))+$$CALCMCA(.EOBADJ)"
^XMB(3.9,55,2,14119,0)="""RTN"",""IBCEMU2"",145,0)"
^XMB(3.9,55,2,14120,0)=" ;"
^XMB(3.9,55,2,14121,0)="""RTN"",""IBCEMU2"",146,0)"
^XMB(3.9,55,2,14122,0)=" ; If Outpatient Calculate from Service Line level data"
^XMB(3.9,55,2,14123,0)="""RTN"",""IBCEMU2"",147,0)"
^XMB(3.9,55,2,14124,0)=" D MEDCARE(IBEOB,.PRCASV)"
^XMB(3.9,55,2,14125,0)="""RTN"",""IBCEMU2"",148,0)"
^XMB(3.9,55,2,14126,0)=" Q  ;MRACALC"
^XMB(3.9,55,2,14127,0)="""RTN"",""IBCEMU2"",149,0)"
^XMB(3.9,55,2,14128,0)=" ;"
^XMB(3.9,55,2,14129,0)="""RTN"",""IBCEMU2"",150,0)"
^XMB(3.9,55,2,14130,0)="MEDCARE(IBEOB,PRCASV) ; If Outpatient Calculate from Service Line level data"
^XMB(3.9,55,2,14131,0)="""RTN"",""IBCEMU2"",151,0)"
^XMB(3.9,55,2,14132,0)=" N LNLVL,EOBADJ"
^XMB(3.9,55,2,14133,0)="""RTN"",""IBCEMU2"",152,0)"
^XMB(3.9,55,2,14134,0)=" S LNLVL=0"
^XMB(3.9,55,2,14135,0)="""RTN"",""IBCEMU2"",153,0)"
^XMB(3.9,55,2,14136,0)=" F  S LNLVL=$O(^IBM(361.1,IBEOB,15,LNLVL)) Q:'LNLVL  D  ;"
^XMB(3.9,55,2,14137,0)="""RTN"",""IBCEMU2"",154,0)"
^XMB(3.9,55,2,14138,0)=" . K EOBADJ"
^XMB(3.9,55,2,14139,0)="""RTN"",""IBCEMU2"",155,0)"
^XMB(3.9,55,2,14140,0)=" . M EOBADJ=^IBM(361.1,IBEOB,15,LNLVL,1)"
^XMB(3.9,55,2,14141,0)="""RTN"",""IBCEMU2"",156,0)"
^XMB(3.9,55,2,14142,0)=" . ; Total up the Medicare Contract Adjustment across ALL Service Lines"
^XMB(3.9,55,2,14143,0)="""RTN"",""IBCEMU2"",157,0)"
^XMB(3.9,55,2,14144,0)=" . S PRCASV(""MEDCA"")=$G(PRCASV(""MEDCA""))+$$CALCMCA(.EOBADJ)"
^XMB(3.9,55,2,14145,0)="""RTN"",""IBCEMU2"",158,0)"
^XMB(3.9,55,2,14146,0)=" Q  ;MEDCARE"
^XMB(3.9,55,2,14147,0)="""RTN"",""IBCEMU2"",159,0)"
^XMB(3.9,55,2,14148,0)=" ;"
^XMB(3.9,55,2,14149,0)="""RTN"",""IBCEMU2"",160,0)"
^XMB(3.9,55,2,14150,0)="CALCMCA(EOBADJ) ; FUNCTION - Calculate Medicare Contract Adjustment"
^XMB(3.9,55,2,14151,0)="""RTN"",""IBCEMU2"",161,0)"
^XMB(3.9,55,2,14152,0)=" ; Sums up Amounts on ALL Reason Codes under ALL Group Codes = 'CO' and"
^XMB(3.9,55,2,14153,0)="""RTN"",""IBCEMU2"",162,0)"
^XMB(3.9,55,2,14154,0)=" ; returns that value (which is Medicare Contract Adjustment)."
^XMB(3.9,55,2,14155,0)="""RTN"",""IBCEMU2"",163,0)"
^XMB(3.9,55,2,14156,0)=" ;"
^XMB(3.9,55,2,14157,0)="""RTN"",""IBCEMU2"",164,0)"
^XMB(3.9,55,2,14158,0)=" ; Input  EOBADJ = Array of Group Codes & Reason Codes from either the Claim "
^XMB(3.9,55,2,14159,0)="""RTN"",""IBCEMU2"",165,0)"
^XMB(3.9,55,2,14160,0)=" ;                 Level (10) or Service Line Level (15) of EOB file (#361.1)"
^XMB(3.9,55,2,14161,0)="""RTN"",""IBCEMU2"",166,0)"
^XMB(3.9,55,2,14162,0)=" ; Output  returns Medicare Contract Adjustment"
^XMB(3.9,55,2,14163,0)="""RTN"",""IBCEMU2"",167,0)"
^XMB(3.9,55,2,14164,0)=" ;"
^XMB(3.9,55,2,14165,0)="""RTN"",""IBCEMU2"",168,0)"
^XMB(3.9,55,2,14166,0)=" N GRPLVL,RSNLVL,RSNAMT,MCA"
^XMB(3.9,55,2,14167,0)="""RTN"",""IBCEMU2"",169,0)"
^XMB(3.9,55,2,14168,0)=" S (GRPLVL,MCA)=0"
^XMB(3.9,55,2,14169,0)="""RTN"",""IBCEMU2"",170,0)"
^XMB(3.9,55,2,14170,0)=" F  S GRPLVL=$O(EOBADJ(GRPLVL)) Q:'GRPLVL  D  ;"
^XMB(3.9,55,2,14171,0)="""RTN"",""IBCEMU2"",171,0)"
^XMB(3.9,55,2,14172,0)=" . I $P($G(EOBADJ(GRPLVL,0)),U)'=""CO"" Q"
^XMB(3.9,55,2,14173,0)="""RTN"",""IBCEMU2"",172,0)"
^XMB(3.9,55,2,14174,0)=" . S RSNLVL=0"
^XMB(3.9,55,2,14175,0)="""RTN"",""IBCEMU2"",173,0)"
^XMB(3.9,55,2,14176,0)=" . F  S RSNLVL=$O(EOBADJ(GRPLVL,1,RSNLVL)) Q:'RSNLVL  D  ;"
^XMB(3.9,55,2,14177,0)="""RTN"",""IBCEMU2"",174,0)"
^XMB(3.9,55,2,14178,0)=" . . S RSNAMT=$P($G(EOBADJ(GRPLVL,1,RSNLVL,0)),U,2)"
^XMB(3.9,55,2,14179,0)="""RTN"",""IBCEMU2"",175,0)"
^XMB(3.9,55,2,14180,0)=" . . S MCA=MCA+RSNAMT"
^XMB(3.9,55,2,14181,0)="""RTN"",""IBCEMU2"",176,0)"
^XMB(3.9,55,2,14182,0)=" Q MCA  ;CALCMCA"
^XMB(3.9,55,2,14183,0)="""RTN"",""IBCEMU2"",177,0)"
^XMB(3.9,55,2,14184,0)=" ;"
^XMB(3.9,55,2,14185,0)="""RTN"",""IBCEMU2"",178,0)"
^XMB(3.9,55,2,14186,0)="ALLOWED(IBEOB) ; Returns Total Allowed Amount by summing up all Allowed Amounts "
^XMB(3.9,55,2,14187,0)="""RTN"",""IBCEMU2"",179,0)"
^XMB(3.9,55,2,14188,0)=" ; from Line Level Adjustment"
^XMB(3.9,55,2,14189,0)="""RTN"",""IBCEMU2"",180,0)"
^XMB(3.9,55,2,14190,0)=" ; Input: IBEOB = ien of EOB file (361.1)"
^XMB(3.9,55,2,14191,0)="""RTN"",""IBCEMU2"",181,0)"
^XMB(3.9,55,2,14192,0)=" ; "
^XMB(3.9,55,2,14193,0)="""RTN"",""IBCEMU2"",182,0)"
^XMB(3.9,55,2,14194,0)=" N LNLVL,LNLVLD,ALWD,TOTALWD"
^XMB(3.9,55,2,14195,0)="""RTN"",""IBCEMU2"",183,0)"
^XMB(3.9,55,2,14196,0)=" S (LNLVL,TOTALWD)=0"
^XMB(3.9,55,2,14197,0)="""RTN"",""IBCEMU2"",184,0)"
^XMB(3.9,55,2,14198,0)=" F  S LNLVL=$O(^IBM(361.1,IBEOB,15,LNLVL)) Q:'LNLVL  S LNLVLD=^(LNLVL,0) D"
^XMB(3.9,55,2,14199,0)="""RTN"",""IBCEMU2"",185,0)"
^XMB(3.9,55,2,14200,0)=" . S ALWD=$P(LNLVLD,U,13),TOTALWD=TOTALWD+ALWD   ; Allowed Amount"
^XMB(3.9,55,2,14201,0)="""RTN"",""IBCEMU2"",186,0)"
^XMB(3.9,55,2,14202,0)=" Q TOTALWD  ;ALLOWED"
^XMB(3.9,55,2,14203,0)="""RTN"",""IBCEMU2"",187,0)"
^XMB(3.9,55,2,14204,0)=" ;"
^XMB(3.9,55,2,14205,0)="""RTN"",""IBCEMU2"",188,0)"
^XMB(3.9,55,2,14206,0)="MRATYPE(BILL,ARDATE) ; Function - determines the MRA Receivable Type for a Third"
^XMB(3.9,55,2,14207,0)="""RTN"",""IBCEMU2"",189,0)"
^XMB(3.9,55,2,14208,0)=" ; Party Receivable. This is accomplished by comparing DATE MRA FIRST ACTIVATED"
^XMB(3.9,55,2,14209,0)="""RTN"",""IBCEMU2"",190,0)"
^XMB(3.9,55,2,14210,0)=" ; with AR Activation Date for the Bill."
^XMB(3.9,55,2,14211,0)="""RTN"",""IBCEMU2"",191,0)"
^XMB(3.9,55,2,14212,0)=" ; "
^XMB(3.9,55,2,14213,0)="""RTN"",""IBCEMU2"",192,0)"
^XMB(3.9,55,2,14214,0)=" ; Input     BILL= ien of a given Bill Number (Required)"
^XMB(3.9,55,2,14215,0)="""RTN"",""IBCEMU2"",193,0)"
^XMB(3.9,55,2,14216,0)=" ;         ARDATE= Date Account Receivable was Activated - date only  (Required)"
^XMB(3.9,55,2,14217,0)="""RTN"",""IBCEMU2"",194,0)"
^XMB(3.9,55,2,14218,0)=" ;"
^XMB(3.9,55,2,14219,0)="""RTN"",""IBCEMU2"",195,0)"
^XMB(3.9,55,2,14220,0)=" ; Output - Possible Types:"
^XMB(3.9,55,2,14221,0)="""RTN"",""IBCEMU2"",196,0)"
^XMB(3.9,55,2,14222,0)=" ;          1 = Pre-MRA implementation"
^XMB(3.9,55,2,14223,0)="""RTN"",""IBCEMU2"",197,0)"
^XMB(3.9,55,2,14224,0)=" ;          2 = Post MRA Medicare Receivable"
^XMB(3.9,55,2,14225,0)="""RTN"",""IBCEMU2"",198,0)"
^XMB(3.9,55,2,14226,0)=" ;          3 = Post MRA non-Medicare Receivable"
^XMB(3.9,55,2,14227,0)="""RTN"",""IBCEMU2"",199,0)"
^XMB(3.9,55,2,14228,0)=" ;"
^XMB(3.9,55,2,14229,0)="""RTN"",""IBCEMU2"",200,0)"
^XMB(3.9,55,2,14230,0)=" N MRADTACT,MRAMT"
^XMB(3.9,55,2,14231,0)="""RTN"",""IBCEMU2"",201,0)"
^XMB(3.9,55,2,14232,0)=" I '$G(ARDATE)!'$G(BILL) Q 1"
^XMB(3.9,55,2,14233,0)="""RTN"",""IBCEMU2"",202,0)"
^XMB(3.9,55,2,14234,0)=" ;"
^XMB(3.9,55,2,14235,0)="""RTN"",""IBCEMU2"",203,0)"
^XMB(3.9,55,2,14236,0)=" ; get DATE MRA FIRST ACTIVATED at site"
^XMB(3.9,55,2,14237,0)="""RTN"",""IBCEMU2"",204,0)"
^XMB(3.9,55,2,14238,0)=" S MRADTACT=$$MRADTACT()"
^XMB(3.9,55,2,14239,0)="""RTN"",""IBCEMU2"",205,0)"
^XMB(3.9,55,2,14240,0)=" ;"
^XMB(3.9,55,2,14241,0)="""RTN"",""IBCEMU2"",206,0)"
^XMB(3.9,55,2,14242,0)=" ; MRA not Activated at site"
^XMB(3.9,55,2,14243,0)="""RTN"",""IBCEMU2"",207,0)"
^XMB(3.9,55,2,14244,0)=" I MRADTACT="""" Q 1 ;MRATYPE"
^XMB(3.9,55,2,14245,0)="""RTN"",""IBCEMU2"",208,0)"
^XMB(3.9,55,2,14246,0)=" ; "
^XMB(3.9,55,2,14247,0)="""RTN"",""IBCEMU2"",209,0)"
^XMB(3.9,55,2,14248,0)=" ; Bill from pre-MRA implementation era"
^XMB(3.9,55,2,14249,0)="""RTN"",""IBCEMU2"",210,0)"
^XMB(3.9,55,2,14250,0)=" I ARDATE<MRADTACT Q 1 ;MRATYPE"
^XMB(3.9,55,2,14251,0)="""RTN"",""IBCEMU2"",211,0)"
^XMB(3.9,55,2,14252,0)=" ;"
^XMB(3.9,55,2,14253,0)="""RTN"",""IBCEMU2"",212,0)"
^XMB(3.9,55,2,14254,0)=" ; Post-MRA Medicare bill; get Medicare amounts"
^XMB(3.9,55,2,14255,0)="""RTN"",""IBCEMU2"",213,0)"
^XMB(3.9,55,2,14256,0)=" S MRAMT=$G(^PRCA(430,BILL,13))"
^XMB(3.9,55,2,14257,0)="""RTN"",""IBCEMU2"",214,0)"
^XMB(3.9,55,2,14258,0)=" ; check Medicare Contractual Adjustment Amount"
^XMB(3.9,55,2,14259,0)="""RTN"",""IBCEMU2"",215,0)"
^XMB(3.9,55,2,14260,0)=" I $P(MRAMT,U,1) Q 2 ;MRATYPE"
^XMB(3.9,55,2,14261,0)="""RTN"",""IBCEMU2"",216,0)"
^XMB(3.9,55,2,14262,0)=" ; check Medicare Unreimburseable Amout"
^XMB(3.9,55,2,14263,0)="""RTN"",""IBCEMU2"",217,0)"
^XMB(3.9,55,2,14264,0)=" I $P(MRAMT,U,2) Q 2 ;MRATYPE"
^XMB(3.9,55,2,14265,0)="""RTN"",""IBCEMU2"",218,0)"
^XMB(3.9,55,2,14266,0)=" ; check if bill is a Medicare one"
^XMB(3.9,55,2,14267,0)="""RTN"",""IBCEMU2"",219,0)"
^XMB(3.9,55,2,14268,0)=" I $$MRAEXIST^IBCEMU1(BILL) Q 2 ;MRATYPE"
^XMB(3.9,55,2,14269,0)="""RTN"",""IBCEMU2"",220,0)"
^XMB(3.9,55,2,14270,0)=" ; check if bill is a Medicare Supplemental one"
^XMB(3.9,55,2,14271,0)="""RTN"",""IBCEMU2"",221,0)"
^XMB(3.9,55,2,14272,0)=" I $P($$CRIT^IBRFN2(BILL),U)=2 Q 2 ;MRATYPE"
^XMB(3.9,55,2,14273,0)="""RTN"",""IBCEMU2"",222,0)"
^XMB(3.9,55,2,14274,0)=" ;"
^XMB(3.9,55,2,14275,0)="""RTN"",""IBCEMU2"",223,0)"
^XMB(3.9,55,2,14276,0)=" ; all others are Post-MRA non-Medicare bills"
^XMB(3.9,55,2,14277,0)="""RTN"",""IBCEMU2"",224,0)"
^XMB(3.9,55,2,14278,0)=" Q 3 ;MRATYPE"
^XMB(3.9,55,2,14279,0)="""RTN"",""IBCEMU2"",225,0)"
^XMB(3.9,55,2,14280,0)=" ;"
^XMB(3.9,55,2,14281,0)="""RTN"",""IBCEMU2"",226,0)"
^XMB(3.9,55,2,14282,0)="MRADTACT() ; Function - returns DATE MRA FIRST ACTIVATED at site"
^XMB(3.9,55,2,14283,0)="""RTN"",""IBCEMU2"",227,0)"
^XMB(3.9,55,2,14284,0)=" Q $P($G(^IBE(350.9,1,8)),U,13)"
^XMB(3.9,55,2,14285,0)="""RTN"",""IBCEMU2"",228,0)"
^XMB(3.9,55,2,14286,0)=" ;"
^XMB(3.9,55,2,14287,0)="""RTN"",""IBCEP"")"
^XMB(3.9,55,2,14288,0)="0^61^B21507760^B21365949"
^XMB(3.9,55,2,14289,0)="""RTN"",""IBCEP"",1,0)"
^XMB(3.9,55,2,14290,0)="IBCEP ;ALB/TMP - Functions for PROVIDER ID MAINT - INS CO PARAMS ;11-02-00"
^XMB(3.9,55,2,14291,0)="""RTN"",""IBCEP"",2,0)"
^XMB(3.9,55,2,14292,0)=" ;;2.0;INTEGRATED BILLING;**137,232,320**;21-MAR-94"
^XMB(3.9,55,2,14293,0)="""RTN"",""IBCEP"",3,0)"
^XMB(3.9,55,2,14294,0)=" ;"
^XMB(3.9,55,2,14295,0)="""RTN"",""IBCEP"",4,0)"
^XMB(3.9,55,2,14296,0)="EN ; -- main entry point for IBCE PRV INS PARAMS"
^XMB(3.9,55,2,14297,0)="""RTN"",""IBCEP"",5,0)"
^XMB(3.9,55,2,14298,0)=" N IBINS,IBCUINC ; Variable should be available throughout actions"
^XMB(3.9,55,2,14299,0)="""RTN"",""IBCEP"",6,0)"
^XMB(3.9,55,2,14300,0)=" D FULL^VALM1"
^XMB(3.9,55,2,14301,0)="""RTN"",""IBCEP"",7,0)"
^XMB(3.9,55,2,14302,0)=" D EN^VALM(""IBCE PRV INS PARAMS"")"
^XMB(3.9,55,2,14303,0)="""RTN"",""IBCEP"",8,0)"
^XMB(3.9,55,2,14304,0)=" Q"
^XMB(3.9,55,2,14305,0)="""RTN"",""IBCEP"",9,0)"
^XMB(3.9,55,2,14306,0)=" ;"
^XMB(3.9,55,2,14307,0)="""RTN"",""IBCEP"",10,0)"
^XMB(3.9,55,2,14308,0)="HDR ; -- header code"
^XMB(3.9,55,2,14309,0)="""RTN"",""IBCEP"",11,0)"
^XMB(3.9,55,2,14310,0)=" K VALMHDR"
^XMB(3.9,55,2,14311,0)="""RTN"",""IBCEP"",12,0)"
^XMB(3.9,55,2,14312,0)=" I $G(IBINS) S VALMHDR(1)=""INSURANCE CO: ""_$P($G(^DIC(36,+IBINS,0)),U)"
^XMB(3.9,55,2,14313,0)="""RTN"",""IBCEP"",13,0)"
^XMB(3.9,55,2,14314,0)=" Q"
^XMB(3.9,55,2,14315,0)="""RTN"",""IBCEP"",14,0)"
^XMB(3.9,55,2,14316,0)=" ;"
^XMB(3.9,55,2,14317,0)="""RTN"",""IBCEP"",15,0)"
^XMB(3.9,55,2,14318,0)="INIT ; Initialization"
^XMB(3.9,55,2,14319,0)="""RTN"",""IBCEP"",16,0)"
^XMB(3.9,55,2,14320,0)=" N DIR,DIC,DA,X,Y,DTOUT,DUOUT"
^XMB(3.9,55,2,14321,0)="""RTN"",""IBCEP"",17,0)"
^XMB(3.9,55,2,14322,0)=" S DIC(0)=""AEMQ"",DIC=""^DIC(36,"" D ^DIC"
^XMB(3.9,55,2,14323,0)="""RTN"",""IBCEP"",18,0)"
^XMB(3.9,55,2,14324,0)=" I Y'>0 D"
^XMB(3.9,55,2,14325,0)="""RTN"",""IBCEP"",19,0)"
^XMB(3.9,55,2,14326,0)=" . S VALMQUIT=1"
^XMB(3.9,55,2,14327,0)="""RTN"",""IBCEP"",20,0)"
^XMB(3.9,55,2,14328,0)=" E  D"
^XMB(3.9,55,2,14329,0)="""RTN"",""IBCEP"",21,0)"
^XMB(3.9,55,2,14330,0)=" . S DIR=""YA"",DIR(""A"")=""DO YOU WANT TO INCLUDE ANY CARE UNIT DETAIL?: "",DIR(""?"",1)=""If you want to see the specific care unit defined for the insurance co"",DIR(""?"")=""you should respond yes here"""
^XMB(3.9,55,2,14331,0)="""RTN"",""IBCEP"",22,0)"
^XMB(3.9,55,2,14332,0)=" . W ! D ^DIR K DIR W !"
^XMB(3.9,55,2,14333,0)="""RTN"",""IBCEP"",23,0)"
^XMB(3.9,55,2,14334,0)=" . I $D(DTOUT)!$D(DUOUT) S VALMQUIT=1 Q"
^XMB(3.9,55,2,14335,0)="""RTN"",""IBCEP"",24,0)"
^XMB(3.9,55,2,14336,0)=" . S IBCUINC=(Y=1)"
^XMB(3.9,55,2,14337,0)="""RTN"",""IBCEP"",25,0)"
^XMB(3.9,55,2,14338,0)=" . S IBINS=+Y D BLD(IBINS,IBCUINC)"
^XMB(3.9,55,2,14339,0)="""RTN"",""IBCEP"",26,0)"
^XMB(3.9,55,2,14340,0)=" Q"
^XMB(3.9,55,2,14341,0)="""RTN"",""IBCEP"",27,0)"
^XMB(3.9,55,2,14342,0)=" ;"
^XMB(3.9,55,2,14343,0)="""RTN"",""IBCEP"",28,0)"
^XMB(3.9,55,2,14344,0)="BLD(IBINS,IBCUINC) ; Build display for ins co level provider ID parameters"
^XMB(3.9,55,2,14345,0)="""RTN"",""IBCEP"",29,0)"
^XMB(3.9,55,2,14346,0)=" ; IBINS = ien of ins co (file 36)"
^XMB(3.9,55,2,14347,0)="""RTN"",""IBCEP"",30,0)"
^XMB(3.9,55,2,14348,0)=" ; IBCUINC = flag:"
^XMB(3.9,55,2,14349,0)="""RTN"",""IBCEP"",31,0)"
^XMB(3.9,55,2,14350,0)=" ;    = 1 if care unit list should be included  or 0 if not"
^XMB(3.9,55,2,14351,0)="""RTN"",""IBCEP"",32,0)"
^XMB(3.9,55,2,14352,0)=" N A,A0,A1,A2,A3,Z0,IB1,IB12,IB4,IBLCT,IBPTYP"
^XMB(3.9,55,2,14353,0)="""RTN"",""IBCEP"",33,0)"
^XMB(3.9,55,2,14354,0)=" S IBLCT=0"
^XMB(3.9,55,2,14355,0)="""RTN"",""IBCEP"",34,0)"
^XMB(3.9,55,2,14356,0)=" S IB4=$G(^DIC(36,IBINS,4))"
^XMB(3.9,55,2,14357,0)="""RTN"",""IBCEP"",35,0)"
^XMB(3.9,55,2,14358,0)=" K ^TMP(""IBPRV_INS_ID_PARAMS"",$J)"
^XMB(3.9,55,2,14359,0)="""RTN"",""IBCEP"",36,0)"
^XMB(3.9,55,2,14360,0)=" ;"
^XMB(3.9,55,2,14361,0)="""RTN"",""IBCEP"",37,0)"
^XMB(3.9,55,2,14362,0)=" S Z0=""Perf Prov Secondary ID Type (HCFA): ""_$E($$EXPAND^IBTRE(36,4.01,+$P(IB4,U))_$J("""",20),1,20) D SET1(.IBLCT,Z0)"
^XMB(3.9,55,2,14363,0)="""RTN"",""IBCEP"",38,0)"
^XMB(3.9,55,2,14364,0)=" S Z0=""Perf Prov Secondary ID Type (UB92): ""_$E($$EXPAND^IBTRE(36,4.02,+$P(IB4,U,2))_$J("""",20),1,20) D SET1(.IBLCT,Z0)"
^XMB(3.9,55,2,14365,0)="""RTN"",""IBCEP"",39,0)"
^XMB(3.9,55,2,14366,0)=" S Z0=$J("""",20)_""Required: ""_$$EXPAND^IBTRE(36,4.03,$P(IB4,U,3)) D SET1(.IBLCT,Z0)"
^XMB(3.9,55,2,14367,0)="""RTN"",""IBCEP"",40,0)"
^XMB(3.9,55,2,14368,0)=" S Z0=$J("""",10)_""Care Unit Name: ""_$$EXPAND^IBTRE(36,4.09,$P(IB4,U,9)) D SET1(.IBLCT,Z0)"
^XMB(3.9,55,2,14369,0)="""RTN"",""IBCEP"",41,0)"
^XMB(3.9,55,2,14370,0)=" S Z0=""""  D SET1(.IBLCT,Z0)"
^XMB(3.9,55,2,14371,0)="""RTN"",""IBCEP"",42,0)"
^XMB(3.9,55,2,14372,0)=" ;"
^XMB(3.9,55,2,14373,0)="""RTN"",""IBCEP"",43,0)"
^XMB(3.9,55,2,14374,0)=" I '$D(^IBA(355.96,""D"",IBINS)) D  G BLDQ ;No care unit needed"
^XMB(3.9,55,2,14375,0)="""RTN"",""IBCEP"",44,0)"
^XMB(3.9,55,2,14376,0)=" . S Z0=$J("""",7)_""*** NO CARE UNITS DEFINED FOR THIS INS CO PROVIDER SECONDARY ID ***"" D SET1(.IBLCT,Z0)"
^XMB(3.9,55,2,14377,0)="""RTN"",""IBCEP"",45,0)"
^XMB(3.9,55,2,14378,0)=" ;"
^XMB(3.9,55,2,14379,0)="""RTN"",""IBCEP"",46,0)"
^XMB(3.9,55,2,14380,0)=" S Z0=$J("""",17)_""VALID CARE UNITS FOR THIS INSURANCE COMPANY"" D SET1(.IBLCT,Z0),CNTRL^VALM10(IBLCT,18,46,IORVON,IORVOFF)"
^XMB(3.9,55,2,14381,0)="""RTN"",""IBCEP"",47,0)"
^XMB(3.9,55,2,14382,0)=" S A=0"
^XMB(3.9,55,2,14383,0)="""RTN"",""IBCEP"",48,0)"
^XMB(3.9,55,2,14384,0)=" F  S A=$O(^IBA(355.96,""AC"",IBINS,A)) Q:'A  S IBPTYP=$P($G(^IBA(355.97,A,0)),U) I IBPTYP'="""" D"
^XMB(3.9,55,2,14385,0)="""RTN"",""IBCEP"",49,0)"
^XMB(3.9,55,2,14386,0)=" . S A2=IBPTYP_U_A,^TMP(""IBPRV_INS_ID_PARAMS_SORT"",$J,A2)="""""
^XMB(3.9,55,2,14387,0)="""RTN"",""IBCEP"",50,0)"
^XMB(3.9,55,2,14388,0)=" . S A0=0 F  S A0=$O(^IBA(355.96,""AC"",IBINS,A,A0)) Q:'A0  S A1=$G(^IBA(355.96,A0,0)) D"
^XMB(3.9,55,2,14389,0)="""RTN"",""IBCEP"",51,0)"
^XMB(3.9,55,2,14390,0)=" .. I '$G(IBCUINC) S:'$D(^TMP(""IBPRV_INS_ID_PARAMS_SORT"",$J,A2,$P(A1,U,4)_U_$P(A1,U,5))) ^($P(A1,U,4)_U_$P(A1,U,5))="""" Q"
^XMB(3.9,55,2,14391,0)="""RTN"",""IBCEP"",52,0)"
^XMB(3.9,55,2,14392,0)=" .. I $P(A1,U,4)'="""",$P(A1,U,5)'="""" D"
^XMB(3.9,55,2,14393,0)="""RTN"",""IBCEP"",53,0)"
^XMB(3.9,55,2,14394,0)=" ... S A3=$E($P($G(^IBE(355.95,+A1,0)),U)_$J("""",1,30),1,30)_U_$S($P($G(^(0)),U,2)'="""":$P(^(0),U,2),1:""<No description available>"")"
^XMB(3.9,55,2,14395,0)="""RTN"",""IBCEP"",54,0)"
^XMB(3.9,55,2,14396,0)=" ... I '$D(^TMP(""IBPRV_INS_ID_PARAMS_SORT"",$J,A2,$P(A1,U,4)_U_$P(A1,U,5),$P(A3,U))) S ^($P(A3,U))=$P(A3,U,2)"
^XMB(3.9,55,2,14397,0)="""RTN"",""IBCEP"",55,0)"
^XMB(3.9,55,2,14398,0)=" . ; records are fully sorted"
^XMB(3.9,55,2,14399,0)="""RTN"",""IBCEP"",56,0)"
^XMB(3.9,55,2,14400,0)=" S A="""""
^XMB(3.9,55,2,14401,0)="""RTN"",""IBCEP"",57,0)"
^XMB(3.9,55,2,14402,0)=" F  S A=$O(^TMP(""IBPRV_INS_ID_PARAMS_SORT"",$J,A)) Q:'A  S A2=""PROVIDER ID TYPE: ""_$P(A,U),IB1=1 D:'IB1 SET1(.IBLCT,"""") D SET1(.IBLCT,A2) S IB12=1 S:$G(IBCUINC) IB1=0 D"
^XMB(3.9,55,2,14403,0)="""RTN"",""IBCEP"",58,0)"
^XMB(3.9,55,2,14404,0)=" . S A0="""" F  S A0=$O(^TMP(""IBPRV_INS_ID_PARAMS_SORT"",$J,A,A0)) Q:A0=""""  D"
^XMB(3.9,55,2,14405,0)="""RTN"",""IBCEP"",59,0)"
^XMB(3.9,55,2,14406,0)=" .. S Z0=$J("""",5)_""FORM TYPE: ""_$E($$EXPAND^IBTRE(355.96,.04,$P(A0,U))_$J("""",25),1,25)_""  CARE TYPE: ""_$E($$EXPAND^IBTRE(355.96,.05,$P(A0,U,2))_$J("""",25),1,25)"
^XMB(3.9,55,2,14407,0)="""RTN"",""IBCEP"",60,0)"
^XMB(3.9,55,2,14408,0)=" .. D:'IB12 SET1(.IBLCT,"""") D SET1(.IBLCT,Z0)"
^XMB(3.9,55,2,14409,0)="""RTN"",""IBCEP"",61,0)"
^XMB(3.9,55,2,14410,0)=" .. Q:'$G(IBCUINC)"
^XMB(3.9,55,2,14411,0)="""RTN"",""IBCEP"",62,0)"
^XMB(3.9,55,2,14412,0)=" .. S IB12=0"
^XMB(3.9,55,2,14413,0)="""RTN"",""IBCEP"",63,0)"
^XMB(3.9,55,2,14414,0)=" .. S A1="""" F  S A1=$O(^TMP(""IBPRV_INS_ID_PARAMS_SORT"",$J,A,A0,A1)) Q:A1=""""  S Z0=$J("""",10)_A1_$G(^(A1)) D SET1(.IBLCT,Z0)"
^XMB(3.9,55,2,14415,0)="""RTN"",""IBCEP"",64,0)"
^XMB(3.9,55,2,14416,0)=" ;"
^XMB(3.9,55,2,14417,0)="""RTN"",""IBCEP"",65,0)"
^XMB(3.9,55,2,14418,0)="BLDQ K ^TMP(""IBPRV_INS_ID_PARAMS_SORT"",$J)"
^XMB(3.9,55,2,14419,0)="""RTN"",""IBCEP"",66,0)"
^XMB(3.9,55,2,14420,0)=" S VALMCNT=IBLCT,VALMBG=1"
^XMB(3.9,55,2,14421,0)="""RTN"",""IBCEP"",67,0)"
^XMB(3.9,55,2,14422,0)=" Q"
^XMB(3.9,55,2,14423,0)="""RTN"",""IBCEP"",68,0)"
^XMB(3.9,55,2,14424,0)=" ;"
^XMB(3.9,55,2,14425,0)="""RTN"",""IBCEP"",69,0)"
^XMB(3.9,55,2,14426,0)="SET1(IBLCT,Z0) ;"
^XMB(3.9,55,2,14427,0)="""RTN"",""IBCEP"",70,0)"
^XMB(3.9,55,2,14428,0)=" S IBLCT=IBLCT+1 D SET^VALM10(IBLCT,Z0)"
^XMB(3.9,55,2,14429,0)="""RTN"",""IBCEP"",71,0)"
^XMB(3.9,55,2,14430,0)=" Q"
^XMB(3.9,55,2,14431,0)="""RTN"",""IBCEP"",72,0)"
^XMB(3.9,55,2,14432,0)=" ;"
^XMB(3.9,55,2,14433,0)="""RTN"",""IBCEP"",73,0)"
^XMB(3.9,55,2,14434,0)="EXPND ;"
^XMB(3.9,55,2,14435,0)="""RTN"",""IBCEP"",74,0)"
^XMB(3.9,55,2,14436,0)=" Q"
^XMB(3.9,55,2,14437,0)="""RTN"",""IBCEP"",75,0)"
^XMB(3.9,55,2,14438,0)=" ;"
^XMB(3.9,55,2,14439,0)="""RTN"",""IBCEP"",76,0)"
^XMB(3.9,55,2,14440,0)="HELP ;"
^XMB(3.9,55,2,14441,0)="""RTN"",""IBCEP"",77,0)"
^XMB(3.9,55,2,14442,0)=" Q"
^XMB(3.9,55,2,14443,0)="""RTN"",""IBCEP"",78,0)"
^XMB(3.9,55,2,14444,0)=" ;"
^XMB(3.9,55,2,14445,0)="""RTN"",""IBCEP"",79,0)"
^XMB(3.9,55,2,14446,0)="EXIT ;"
^XMB(3.9,55,2,14447,0)="""RTN"",""IBCEP"",80,0)"
^XMB(3.9,55,2,14448,0)=" K ^TMP(""IBPRV_INS_ID_PARAMS"",$J)"
^XMB(3.9,55,2,14449,0)="""RTN"",""IBCEP"",81,0)"
^XMB(3.9,55,2,14450,0)=" D CLEAN^VALM10"
^XMB(3.9,55,2,14451,0)="""RTN"",""IBCEP"",82,0)"
^XMB(3.9,55,2,14452,0)=" Q"
^XMB(3.9,55,2,14453,0)="""RTN"",""IBCEP"",83,0)"
^XMB(3.9,55,2,14454,0)=" ;"
^XMB(3.9,55,2,14455,0)="""RTN"",""IBCEP"",84,0)"
^XMB(3.9,55,2,14456,0)="EDIT ; Entrypoint called from IBCSCE to invoke provider id edit functions"
^XMB(3.9,55,2,14457,0)="""RTN"",""IBCEP"",85,0)"
^XMB(3.9,55,2,14458,0)=" Q"
^XMB(3.9,55,2,14459,0)="""RTN"",""IBCEP"",86,0)"
^XMB(3.9,55,2,14460,0)=" ;"
^XMB(3.9,55,2,14461,0)="""RTN"",""IBCEP"",87,0)"
^XMB(3.9,55,2,14462,0)="EDIT1 ; Edit parameters"
^XMB(3.9,55,2,14463,0)="""RTN"",""IBCEP"",88,0)"
^XMB(3.9,55,2,14464,0)=" N IB,IBY,IBCNS,DIE,DR,X,Y"
^XMB(3.9,55,2,14465,0)="""RTN"",""IBCEP"",89,0)"
^XMB(3.9,55,2,14466,0)=" D FULL^VALM1"
^XMB(3.9,55,2,14467,0)="""RTN"",""IBCEP"",90,0)"
^XMB(3.9,55,2,14468,0)=" S IBCNS=IBINS,IBY=12"
^XMB(3.9,55,2,14469,0)="""RTN"",""IBCEP"",91,0)"
^XMB(3.9,55,2,14470,0)=" D MAIN^IBCNSC1"
^XMB(3.9,55,2,14471,0)="""RTN"",""IBCEP"",92,0)"
^XMB(3.9,55,2,14472,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,14473,0)="""RTN"",""IBCEP"",93,0)"
^XMB(3.9,55,2,14474,0)=" Q"
^XMB(3.9,55,2,14475,0)="""RTN"",""IBCEP"",94,0)"
^XMB(3.9,55,2,14476,0)=" ;"
^XMB(3.9,55,2,14477,0)="""RTN"",""IBCEP"",95,0)"
^XMB(3.9,55,2,14478,0)="NETID() ; Returns the ien of the entry in file 355.97 that is designated as the"
^XMB(3.9,55,2,14479,0)="""RTN"",""IBCEP"",96,0)"
^XMB(3.9,55,2,14480,0)=" ; NETWORK ID"
^XMB(3.9,55,2,14481,0)="""RTN"",""IBCEP"",97,0)"
^XMB(3.9,55,2,14482,0)=" N Z S Z=0 F  S Z=$O(^IBE(355.97,Z)) Q:'Z  Q:$P($G(^(Z,1)),U,6)"
^XMB(3.9,55,2,14483,0)="""RTN"",""IBCEP"",98,0)"
^XMB(3.9,55,2,14484,0)=" Q Z"
^XMB(3.9,55,2,14485,0)="""RTN"",""IBCEP"",99,0)"
^XMB(3.9,55,2,14486,0)=" ;"
^XMB(3.9,55,2,14487,0)="""RTN"",""IBCEP"",100,0)"
^XMB(3.9,55,2,14488,0)="EMCID() ; Returns the ien of the entry in file 355.97 that is designated as the"
^XMB(3.9,55,2,14489,0)="""RTN"",""IBCEP"",101,0)"
^XMB(3.9,55,2,14490,0)=" ; EMC ID"
^XMB(3.9,55,2,14491,0)="""RTN"",""IBCEP"",102,0)"
^XMB(3.9,55,2,14492,0)=" N Z S Z=0 F  S Z=$O(^IBE(355.97,Z)) Q:'Z  Q:$P($G(^(Z,1)),U,5)"
^XMB(3.9,55,2,14493,0)="""RTN"",""IBCEP"",103,0)"
^XMB(3.9,55,2,14494,0)=" Q Z"
^XMB(3.9,55,2,14495,0)="""RTN"",""IBCEP"",104,0)"
^XMB(3.9,55,2,14496,0)=" ;"
^XMB(3.9,55,2,14497,0)="""RTN"",""IBCEP"",105,0)"
^XMB(3.9,55,2,14498,0)="UPIN() ; Returns the ien of the entry in file 355.97 that is designated as the"
^XMB(3.9,55,2,14499,0)="""RTN"",""IBCEP"",106,0)"
^XMB(3.9,55,2,14500,0)=" ; UPIN ID"
^XMB(3.9,55,2,14501,0)="""RTN"",""IBCEP"",107,0)"
^XMB(3.9,55,2,14502,0)=" Q +$O(^IBE(355.97,""B"",""UPIN"",0))"
^XMB(3.9,55,2,14503,0)="""RTN"",""IBCEP"",108,0)"
^XMB(3.9,55,2,14504,0)=" ;"
^XMB(3.9,55,2,14505,0)="""RTN"",""IBCEP"",109,0)"
^XMB(3.9,55,2,14506,0)="EDITID(IBCNS) ; Edit provider id's from insurance co enter/edit"
^XMB(3.9,55,2,14507,0)="""RTN"",""IBCEP"",110,0)"
^XMB(3.9,55,2,14508,0)=" ; IBCNS = ien of file 36"
^XMB(3.9,55,2,14509,0)="""RTN"",""IBCEP"",111,0)"
^XMB(3.9,55,2,14510,0)=" Q   ; WCJ 12/30/2005"
^XMB(3.9,55,2,14511,0)="""RTN"",""IBCEP"",112,0)"
^XMB(3.9,55,2,14512,0)=" N X,Y,Z4,DIR"
^XMB(3.9,55,2,14513,0)="""RTN"",""IBCEP"",113,0)"
^XMB(3.9,55,2,14514,0)=" S Z4=$G(^DIC(36,IBCNS,4))"
^XMB(3.9,55,2,14515,0)="""RTN"",""IBCEP"",114,0)"
^XMB(3.9,55,2,14516,0)=" I 'Z4,'$P(Z4,U,2) Q"
^XMB(3.9,55,2,14517,0)="""RTN"",""IBCEP"",115,0)"
^XMB(3.9,55,2,14518,0)=" S DIR(""A"",1)=""USE PROVIDER ID MAINTENANCE TO ENTER/EDIT PROV SECONDARY ID'S FOR THIS CO."",DIR(""A"")=""PRESS RETURN TO CONTINUE: "",DIR(0)=""EA"" W ! D ^DIR K DIR"
^XMB(3.9,55,2,14519,0)="""RTN"",""IBCEP"",116,0)"
^XMB(3.9,55,2,14520,0)=" Q"
^XMB(3.9,55,2,14521,0)="""RTN"",""IBCEP"",117,0)"
^XMB(3.9,55,2,14522,0)=" ;"
^XMB(3.9,55,2,14523,0)="""RTN"",""IBCEP0"")"
^XMB(3.9,55,2,14524,0)="0^62^B67697458^B58196901"
^XMB(3.9,55,2,14525,0)="""RTN"",""IBCEP0"",1,0)"
^XMB(3.9,55,2,14526,0)="IBCEP0 ;ALB/TMP - Functions for PROVIDER ID MAINTENANCE ;13-DEC-99"
^XMB(3.9,55,2,14527,0)="""RTN"",""IBCEP0"",2,0)"
^XMB(3.9,55,2,14528,0)=" ;;2.0;INTEGRATED BILLING;**137,191,239,232,320**;21-MAR-94"
^XMB(3.9,55,2,14529,0)="""RTN"",""IBCEP0"",3,0)"
^XMB(3.9,55,2,14530,0)=" ;"
^XMB(3.9,55,2,14531,0)="""RTN"",""IBCEP0"",4,0)"
^XMB(3.9,55,2,14532,0)="EN ; -- main entry point for IBCE PRV INS ID"
^XMB(3.9,55,2,14533,0)="""RTN"",""IBCEP0"",5,0)"
^XMB(3.9,55,2,14534,0)=" N IBINS,IBDSP,IBSORT,IBPRV ; Variables should be available throughout actions"
^XMB(3.9,55,2,14535,0)="""RTN"",""IBCEP0"",6,0)"
^XMB(3.9,55,2,14536,0)=" K IBFASTXT"
^XMB(3.9,55,2,14537,0)="""RTN"",""IBCEP0"",7,0)"
^XMB(3.9,55,2,14538,0)=" D FULL^VALM1"
^XMB(3.9,55,2,14539,0)="""RTN"",""IBCEP0"",8,0)"
^XMB(3.9,55,2,14540,0)=" D EN^VALM(""IBCE PRVINS ID"")"
^XMB(3.9,55,2,14541,0)="""RTN"",""IBCEP0"",9,0)"
^XMB(3.9,55,2,14542,0)=" Q"
^XMB(3.9,55,2,14543,0)="""RTN"",""IBCEP0"",10,0)"
^XMB(3.9,55,2,14544,0)=" ;"
^XMB(3.9,55,2,14545,0)="""RTN"",""IBCEP0"",11,0)"
^XMB(3.9,55,2,14546,0)="EN1(IBINS) ; Entrypoint from insurance co maintenance"
^XMB(3.9,55,2,14547,0)="""RTN"",""IBCEP0"",12,0)"
^XMB(3.9,55,2,14548,0)=" N IBDSP,IBSORT ; Variables should be available throughout actions"
^XMB(3.9,55,2,14549,0)="""RTN"",""IBCEP0"",13,0)"
^XMB(3.9,55,2,14550,0)=" D FULL^VALM1"
^XMB(3.9,55,2,14551,0)="""RTN"",""IBCEP0"",14,0)"
^XMB(3.9,55,2,14552,0)=" D EN^VALM(""IBCE PRVINS ID FROM INS MAINT"")"
^XMB(3.9,55,2,14553,0)="""RTN"",""IBCEP0"",15,0)"
^XMB(3.9,55,2,14554,0)=" Q"
^XMB(3.9,55,2,14555,0)="""RTN"",""IBCEP0"",16,0)"
^XMB(3.9,55,2,14556,0)=" ;"
^XMB(3.9,55,2,14557,0)="""RTN"",""IBCEP0"",17,0)"
^XMB(3.9,55,2,14558,0)="HDR ; -- header code"
^XMB(3.9,55,2,14559,0)="""RTN"",""IBCEP0"",18,0)"
^XMB(3.9,55,2,14560,0)=" N Z,Z0,Z1,IBCT,IBPPTYP,IBEMCTYP"
^XMB(3.9,55,2,14561,0)="""RTN"",""IBCEP0"",19,0)"
^XMB(3.9,55,2,14562,0)=" S IBCT=1"
^XMB(3.9,55,2,14563,0)="""RTN"",""IBCEP0"",20,0)"
^XMB(3.9,55,2,14564,0)=" K VALMHDR"
^XMB(3.9,55,2,14565,0)="""RTN"",""IBCEP0"",21,0)"
^XMB(3.9,55,2,14566,0)=" I $G(IBINS) D"
^XMB(3.9,55,2,14567,0)="""RTN"",""IBCEP0"",22,0)"
^XMB(3.9,55,2,14568,0)=" . N PCF,PCDISP"
^XMB(3.9,55,2,14569,0)="""RTN"",""IBCEP0"",23,0)"
^XMB(3.9,55,2,14570,0)=" . S PCF=$P($G(^DIC(36,+IBINS,3)),U,13)"
^XMB(3.9,55,2,14571,0)="""RTN"",""IBCEP0"",24,0)"
^XMB(3.9,55,2,14572,0)=" . S PCDISP=$S(PCF=""C"":""(Child)"",PCF=""P"":""(Parent)"",1:"""")"
^XMB(3.9,55,2,14573,0)="""RTN"",""IBCEP0"",25,0)"
^XMB(3.9,55,2,14574,0)=" . S VALMHDR(1)=""Insurance Co: ""_$P($G(^DIC(36,+IBINS,0)),U)_"" ""_PCDISP"
^XMB(3.9,55,2,14575,0)="""RTN"",""IBCEP0"",26,0)"
^XMB(3.9,55,2,14576,0)=" . ; Get performing provider id type for insurance co"
^XMB(3.9,55,2,14577,0)="""RTN"",""IBCEP0"",27,0)"
^XMB(3.9,55,2,14578,0)=" . S IBPPTYP=$$PPTYP(IBINS)"
^XMB(3.9,55,2,14579,0)="""RTN"",""IBCEP0"",28,0)"
^XMB(3.9,55,2,14580,0)=" . ; Get ien of EMC ID from file 355.97"
^XMB(3.9,55,2,14581,0)="""RTN"",""IBCEP0"",29,0)"
^XMB(3.9,55,2,14582,0)=" . S IBEMCTYP=+$$EMCID^IBCEP()"
^XMB(3.9,55,2,14583,0)="""RTN"",""IBCEP0"",30,0)"
^XMB(3.9,55,2,14584,0)=" . I $G(IBSORT)=""ALL""!($G(IBDSP)=""I"")!($G(IBSORT)=IBPPTYP)!($G(IBSORT)=IBEMCTYP) D"
^XMB(3.9,55,2,14585,0)="""RTN"",""IBCEP0"",31,0)"
^XMB(3.9,55,2,14586,0)=" .. ; Look for care unit in either of these id types - if there, report on line 2 of header"
^XMB(3.9,55,2,14587,0)="""RTN"",""IBCEP0"",32,0)"
^XMB(3.9,55,2,14588,0)=" .. I $G(IBSORT)=IBPPTYP S IBEMCTYP=0"
^XMB(3.9,55,2,14589,0)="""RTN"",""IBCEP0"",33,0)"
^XMB(3.9,55,2,14590,0)=" .. I $G(IBSORT)=IBEMCTYP S IBPPTYP=0"
^XMB(3.9,55,2,14591,0)="""RTN"",""IBCEP0"",34,0)"
^XMB(3.9,55,2,14592,0)=" .. F Z0=IBPPTYP_""P"",IBEMCTYP_""E"" S Z1="""" F  S Z1=$O(^IBA(355.96,""D"",+IBINS,+Z0,Z1)) Q:Z1=""""  I Z1'=""*N/A*"" S Z($E(Z0,$L(Z0)))=1 Q"
^XMB(3.9,55,2,14593,0)="""RTN"",""IBCEP0"",35,0)"
^XMB(3.9,55,2,14594,0)=" .. I $D(Z(""P""))!$D(Z(""E"")) D"
^XMB(3.9,55,2,14595,0)="""RTN"",""IBCEP0"",36,0)"
^XMB(3.9,55,2,14596,0)=" ... S IBCT=IBCT+1"
^XMB(3.9,55,2,14597,0)="""RTN"",""IBCEP0"",37,0)"
^XMB(3.9,55,2,14598,0)=" ... S VALMHDR(IBCT)=""  ""_$S($D(Z(""P"")):""PERFORMING PROV ID""_$S($D(Z(""E"")):"" AND "",1:""""),1:"""")_$S($D(Z(""E"")):""EMC PROV ID"",1:"""")_"" MAY REQUIRE CARE UNIT"""
^XMB(3.9,55,2,14599,0)="""RTN"",""IBCEP0"",38,0)"
^XMB(3.9,55,2,14600,0)=" . I $D(Z(""P""))!$D(Z(""E"")) S IBCT=IBCT+1,VALMHDR(IBCT)="" """
^XMB(3.9,55,2,14601,0)="""RTN"",""IBCEP0"",39,0)"
^XMB(3.9,55,2,14602,0)=" . S IBCT=IBCT+1,VALMHDR(IBCT)=""     PROVIDER ""_$S($G(IBDSP)=""I"":""ID TYPE"",1:""NAME   "")_$J("""",6)_""FORM   CARE TYPE    CARE UNIT       ID#"""
^XMB(3.9,55,2,14603,0)="""RTN"",""IBCEP0"",40,0)"
^XMB(3.9,55,2,14604,0)=" Q"
^XMB(3.9,55,2,14605,0)="""RTN"",""IBCEP0"",41,0)"
^XMB(3.9,55,2,14606,0)=" ;"
^XMB(3.9,55,2,14607,0)="""RTN"",""IBCEP0"",42,0)"
^XMB(3.9,55,2,14608,0)="INIT ; Initialization"
^XMB(3.9,55,2,14609,0)="""RTN"",""IBCEP0"",43,0)"
^XMB(3.9,55,2,14610,0)=" K ^TMP(""IB_EDITED_IDS"",$J)  ; This will be to keep track of ID's edited during this session"
^XMB(3.9,55,2,14611,0)="""RTN"",""IBCEP0"",44,0)"
^XMB(3.9,55,2,14612,0)=" D INSID(.IBINS,.IBDSP,.IBSORT)"
^XMB(3.9,55,2,14613,0)="""RTN"",""IBCEP0"",45,0)"
^XMB(3.9,55,2,14614,0)=" I $G(IBDSP)=""I"",$G(IBSORT) S IBPRV=IBSORT"
^XMB(3.9,55,2,14615,0)="""RTN"",""IBCEP0"",46,0)"
^XMB(3.9,55,2,14616,0)=" I '$G(IBINS) S VALMQUIT=1"
^XMB(3.9,55,2,14617,0)="""RTN"",""IBCEP0"",47,0)"
^XMB(3.9,55,2,14618,0)=" Q"
^XMB(3.9,55,2,14619,0)="""RTN"",""IBCEP0"",48,0)"
^XMB(3.9,55,2,14620,0)=" ;"
^XMB(3.9,55,2,14621,0)="""RTN"",""IBCEP0"",49,0)"
^XMB(3.9,55,2,14622,0)="INSID(IBINS,IBDSP,IBSORT) ;"
^XMB(3.9,55,2,14623,0)="""RTN"",""IBCEP0"",50,0)"
^XMB(3.9,55,2,14624,0)=" N DIC,DIR,DA,X,Y,IBOK,DTOUT,DUOUT"
^XMB(3.9,55,2,14625,0)="""RTN"",""IBCEP0"",51,0)"
^XMB(3.9,55,2,14626,0)=" S IBOK=1"
^XMB(3.9,55,2,14627,0)="""RTN"",""IBCEP0"",52,0)"
^XMB(3.9,55,2,14628,0)=" I '$G(IBINS) D"
^XMB(3.9,55,2,14629,0)="""RTN"",""IBCEP0"",53,0)"
^XMB(3.9,55,2,14630,0)=" . S DIC(0)=""AEMQ"",DIC=""^DIC(36,"" D ^DIC"
^XMB(3.9,55,2,14631,0)="""RTN"",""IBCEP0"",54,0)"
^XMB(3.9,55,2,14632,0)=" . I Y'>0 S IBOK=0 Q"
^XMB(3.9,55,2,14633,0)="""RTN"",""IBCEP0"",55,0)"
^XMB(3.9,55,2,14634,0)=" . S IBINS=+Y"
^XMB(3.9,55,2,14635,0)="""RTN"",""IBCEP0"",56,0)"
^XMB(3.9,55,2,14636,0)=" I '$G(IBINS) S IBOK=0"
^XMB(3.9,55,2,14637,0)="""RTN"",""IBCEP0"",57,0)"
^XMB(3.9,55,2,14638,0)=" I 'IBOK G INSIDQ"
^XMB(3.9,55,2,14639,0)="""RTN"",""IBCEP0"",58,0)"
^XMB(3.9,55,2,14640,0)=" ;"
^XMB(3.9,55,2,14641,0)="""RTN"",""IBCEP0"",59,0)"
^XMB(3.9,55,2,14642,0)=" S DIR(0)=""SA^D:INSURANCE CO DEFAULT IDS;I:INDIVIDUAL PROVIDER IDS FURNISHED BY THE INS CO;A:ALL IDS FURNISHED BY THE INS CO BY PROVIDER TYPE"""
^XMB(3.9,55,2,14643,0)="""RTN"",""IBCEP0"",60,0)"
^XMB(3.9,55,2,14644,0)=" S DIR(""A"")=""SELECT DISPLAY CONTENT: "",DIR(""B"")=""A"""
^XMB(3.9,55,2,14645,0)="""RTN"",""IBCEP0"",61,0)"
^XMB(3.9,55,2,14646,0)=" S DIR(""?"",1)=""(D) DISPLAY CONTAINS ONLY THOSE IDS ASSIGNED AS DEFAULTS TO THE FACILITY BY"",DIR(""?"",2)=""    THE INSURANCE COMPANY"""
^XMB(3.9,55,2,14647,0)="""RTN"",""IBCEP0"",62,0)"
^XMB(3.9,55,2,14648,0)=" S DIR(""?"",3)=""(I) DISPLAY CONTAINS ONLY THOSE IDS ASSIGNED TO INDIVIDUAL PROVIDERS BY THE"",DIR(""?"",4)=""    INSURANCE COMPANY"""
^XMB(3.9,55,2,14649,0)="""RTN"",""IBCEP0"",63,0)"
^XMB(3.9,55,2,14650,0)=" S DIR(""?"",5)=""(A) DISPLAY CONTAINS ALL IDS ASSIGNED BY THE INSURANCE COMPANY FOR ONE OR ALL"",DIR(""?"")=""    PROVIDER ID TYPES"""
^XMB(3.9,55,2,14651,0)="""RTN"",""IBCEP0"",64,0)"
^XMB(3.9,55,2,14652,0)=" W ! D ^DIR K DIR W !"
^XMB(3.9,55,2,14653,0)="""RTN"",""IBCEP0"",65,0)"
^XMB(3.9,55,2,14654,0)=" I $D(DTOUT)!$D(DUOUT)!(""DIA""'[Y) S IBOK=0 G INSIDQ"
^XMB(3.9,55,2,14655,0)="""RTN"",""IBCEP0"",66,0)"
^XMB(3.9,55,2,14656,0)=" S IBDSP=Y,IBSORT="""""
^XMB(3.9,55,2,14657,0)="""RTN"",""IBCEP0"",67,0)"
^XMB(3.9,55,2,14658,0)=" I IBDSP=""A""!(IBDSP=""I"") F  D  Q:'IBOK!(IBSORT'="""")"
^XMB(3.9,55,2,14659,0)="""RTN"",""IBCEP0"",68,0)"
^XMB(3.9,55,2,14660,0)=" . N Z"
^XMB(3.9,55,2,14661,0)="""RTN"",""IBCEP0"",69,0)"
^XMB(3.9,55,2,14662,0)=" . S Z=$S(IBDSP=""I"":"""",1:"" ID TYPE"")"
^XMB(3.9,55,2,14663,0)="""RTN"",""IBCEP0"",70,0)"
^XMB(3.9,55,2,14664,0)=" . S DIR(""A"")=""DO YOU WANT TO DISPLAY IDS FOR A SPECIFIC PROVIDER""_Z_""?: "",DIR(""B"")=""NO"",DIR(0)=""YA"""
^XMB(3.9,55,2,14665,0)="""RTN"",""IBCEP0"",71,0)"
^XMB(3.9,55,2,14666,0)=" . S DIR(""?"",1)=""IF YOU ANSWER YES TO THIS QUESTION, YOU MAY SELECT A SPECIFIC PROVIDER""_Z,DIR(""?"")=""  TO DISPLAY, OTHERWISE, ALL PROVIDER""_Z_""S FOUND WILL BE DISPLAYED"""
^XMB(3.9,55,2,14667,0)="""RTN"",""IBCEP0"",72,0)"
^XMB(3.9,55,2,14668,0)=" . W ! D ^DIR K DIR W !"
^XMB(3.9,55,2,14669,0)="""RTN"",""IBCEP0"",73,0)"
^XMB(3.9,55,2,14670,0)=" . I $D(DTOUT)!$D(DUOUT) S IBOK=0 Q"
^XMB(3.9,55,2,14671,0)="""RTN"",""IBCEP0"",74,0)"
^XMB(3.9,55,2,14672,0)=" . I Y'=1 S IBSORT=""ALL"" Q"
^XMB(3.9,55,2,14673,0)="""RTN"",""IBCEP0"",75,0)"
^XMB(3.9,55,2,14674,0)=" . ;"
^XMB(3.9,55,2,14675,0)="""RTN"",""IBCEP0"",76,0)"
^XMB(3.9,55,2,14676,0)=" . I IBDSP=""A"" D  Q"
^XMB(3.9,55,2,14677,0)="""RTN"",""IBCEP0"",77,0)"
^XMB(3.9,55,2,14678,0)=" .. S DIC(0)=""AEMQ"",DIC=""^IBE(355.97,"",DIC(""S"")=""I $S('$P(^(0),U,2):1,1:$P(^(0),U,2)=3)"" D ^DIC K DIC"
^XMB(3.9,55,2,14679,0)="""RTN"",""IBCEP0"",78,0)"
^XMB(3.9,55,2,14680,0)=" .. I Y>0 S IBSORT=+Y Q"
^XMB(3.9,55,2,14681,0)="""RTN"",""IBCEP0"",79,0)"
^XMB(3.9,55,2,14682,0)=" .. I $D(DTOUT)!$D(DUOUT) S IBOK=0"
^XMB(3.9,55,2,14683,0)="""RTN"",""IBCEP0"",80,0)"
^XMB(3.9,55,2,14684,0)=" . ;"
^XMB(3.9,55,2,14685,0)="""RTN"",""IBCEP0"",81,0)"
^XMB(3.9,55,2,14686,0)=" . I IBDSP=""I"" D  Q"
^XMB(3.9,55,2,14687,0)="""RTN"",""IBCEP0"",82,0)"
^XMB(3.9,55,2,14688,0)=" .. N DA"
^XMB(3.9,55,2,14689,0)="""RTN"",""IBCEP0"",83,0)"
^XMB(3.9,55,2,14690,0)=" .. S DIR(0)=""399.0222,.02A"",DIR(""A"")=""SELECT PROVIDER: """
^XMB(3.9,55,2,14691,0)="""RTN"",""IBCEP0"",84,0)"
^XMB(3.9,55,2,14692,0)=" .. W ! D ^DIR K DIR W !"
^XMB(3.9,55,2,14693,0)="""RTN"",""IBCEP0"",85,0)"
^XMB(3.9,55,2,14694,0)=" .. I Y>0 S IBSORT=Y Q"
^XMB(3.9,55,2,14695,0)="""RTN"",""IBCEP0"",86,0)"
^XMB(3.9,55,2,14696,0)=" .. I $D(DTOUT)!$D(DUOUT) S IBOK=0 Q"
^XMB(3.9,55,2,14697,0)="""RTN"",""IBCEP0"",87,0)"
^XMB(3.9,55,2,14698,0)=" . S IBOK=0 Q"
^XMB(3.9,55,2,14699,0)="""RTN"",""IBCEP0"",88,0)"
^XMB(3.9,55,2,14700,0)=" ;"
^XMB(3.9,55,2,14701,0)="""RTN"",""IBCEP0"",89,0)"
^XMB(3.9,55,2,14702,0)=" G:'IBOK INSIDQ"
^XMB(3.9,55,2,14703,0)="""RTN"",""IBCEP0"",90,0)"
^XMB(3.9,55,2,14704,0)=" D BLD(IBINS,IBDSP,IBSORT)"
^XMB(3.9,55,2,14705,0)="""RTN"",""IBCEP0"",91,0)"
^XMB(3.9,55,2,14706,0)="INSIDQ I 'IBOK S VALMQUIT=1"
^XMB(3.9,55,2,14707,0)="""RTN"",""IBCEP0"",92,0)"
^XMB(3.9,55,2,14708,0)=" Q"
^XMB(3.9,55,2,14709,0)="""RTN"",""IBCEP0"",93,0)"
^XMB(3.9,55,2,14710,0)=" ;"
^XMB(3.9,55,2,14711,0)="""RTN"",""IBCEP0"",94,0)"
^XMB(3.9,55,2,14712,0)="BLD(IBINS,IBDSP,IBSORT) ; Build display for Insurance co level provider ID's"
^XMB(3.9,55,2,14713,0)="""RTN"",""IBCEP0"",95,0)"
^XMB(3.9,55,2,14714,0)=" N IB,IBENT,IBLCT,IBCT,IBPRV,IBSRT1,IBSRT2,IBOSRT1,IBOSRT2,CU,FT,PT,CT,Z,Z0"
^XMB(3.9,55,2,14715,0)="""RTN"",""IBCEP0"",96,0)"
^XMB(3.9,55,2,14716,0)=" K ^TMP(""IBPRV_INS_ID"",$J),^TMP(""IBPRV_INS_SORT"",$J)"
^XMB(3.9,55,2,14717,0)="""RTN"",""IBCEP0"",97,0)"
^XMB(3.9,55,2,14718,0)=" ;"
^XMB(3.9,55,2,14719,0)="""RTN"",""IBCEP0"",98,0)"
^XMB(3.9,55,2,14720,0)=" S (IBENT,IBCT,IBLCT)=0"
^XMB(3.9,55,2,14721,0)="""RTN"",""IBCEP0"",99,0)"
^XMB(3.9,55,2,14722,0)=" ;"
^XMB(3.9,55,2,14723,0)="""RTN"",""IBCEP0"",100,0)"
^XMB(3.9,55,2,14724,0)=" I ""DA""[$G(IBDSP) D"
^XMB(3.9,55,2,14725,0)="""RTN"",""IBCEP0"",101,0)"
^XMB(3.9,55,2,14726,0)=" . S CU="""" F  S CU=$O(^IBA(355.91,""AUNIQ"",IBINS,CU)) Q:CU=""""  S FT="""" F  S FT=$O(^IBA(355.91,""AUNIQ"",IBINS,CU,FT)) Q:FT=""""  D"
^XMB(3.9,55,2,14727,0)="""RTN"",""IBCEP0"",102,0)"
^XMB(3.9,55,2,14728,0)=" .. S CT="""" F  S CT=$O(^IBA(355.91,""AUNIQ"",IBINS,CU,FT,CT)) Q:CT=""""  S PT=0 F  S PT=$S(IBDSP=""A""&IBSORT:IBSORT,1:$O(^IBA(355.91,""AUNIQ"",IBINS,CU,FT,CT,PT))) Q:'PT  D  Q:IBDSP=""A""&IBSORT"
^XMB(3.9,55,2,14729,0)="""RTN"",""IBCEP0"",103,0)"
^XMB(3.9,55,2,14730,0)=" ... S Z=0 F  S Z=$O(^IBA(355.91,""AUNIQ"",IBINS,CU,FT,CT,PT,Z)) Q:'Z  S IB=$G(^IBA(355.91,Z,0)) S ^TMP(""IBPRV_INS_SORT"",$J,PT,""^<<INS CO DEFAULT>>"",FT,CT,CU,Z)=$P(IB,U,7)_U"
^XMB(3.9,55,2,14731,0)="""RTN"",""IBCEP0"",104,0)"
^XMB(3.9,55,2,14732,0)=" ;"
^XMB(3.9,55,2,14733,0)="""RTN"",""IBCEP0"",105,0)"
^XMB(3.9,55,2,14734,0)=" I ""IA""[$G(IBDSP) D"
^XMB(3.9,55,2,14735,0)="""RTN"",""IBCEP0"",106,0)"
^XMB(3.9,55,2,14736,0)=" . S IBPRV="""""
^XMB(3.9,55,2,14737,0)="""RTN"",""IBCEP0"",107,0)"
^XMB(3.9,55,2,14738,0)=" . N IB1,IB2"
^XMB(3.9,55,2,14739,0)="""RTN"",""IBCEP0"",108,0)"
^XMB(3.9,55,2,14740,0)=" . F  S IBPRV=$O(^IBA(355.9,""AE"",IBINS,IBPRV)) Q:'IBPRV  S Z=0 F  S Z=$O(^IBA(355.9,""AE"",IBINS,IBPRV,Z)) Q:'Z  S IB=$G(^IBA(355.9,Z,0)) D"
^XMB(3.9,55,2,14741,0)="""RTN"",""IBCEP0"",109,0)"
^XMB(3.9,55,2,14742,0)=" .. Q:$P(IB,U,4)=""""!($P(IB,U,5)="""")!($P(IB,U,6)="""")!($P(IB,U,16)="""")"
^XMB(3.9,55,2,14743,0)="""RTN"",""IBCEP0"",110,0)"
^XMB(3.9,55,2,14744,0)=" .. I IBSORT,$S(IBDSP=""I"":IBPRV'=IBSORT,1:$P(IB,U,6)'=IBSORT) Q"
^XMB(3.9,55,2,14745,0)="""RTN"",""IBCEP0"",111,0)"
^XMB(3.9,55,2,14746,0)=" .. S IB1=$S(IBDSP=""A"":$P(IB,U,6),1:U_$$EXPAND^IBTRE(355.9,.01,IBPRV)_U_IBPRV)"
^XMB(3.9,55,2,14747,0)="""RTN"",""IBCEP0"",112,0)"
^XMB(3.9,55,2,14748,0)=" .. S IB2=$S(IBDSP=""I"":$P(IB,U,6),1:U_$$EXPAND^IBTRE(355.9,.01,IBPRV)_U_IBPRV)"
^XMB(3.9,55,2,14749,0)="""RTN"",""IBCEP0"",113,0)"
^XMB(3.9,55,2,14750,0)=" .. S ^TMP(""IBPRV_INS_SORT"",$J,IB1,IB2,$P(IB,U,4),$P(IB,U,5),$P(IB,U,16),Z)=$P(IB,U,7)_U_IBPRV"
^XMB(3.9,55,2,14751,0)="""RTN"",""IBCEP0"",114,0)"
^XMB(3.9,55,2,14752,0)=" ;"
^XMB(3.9,55,2,14753,0)="""RTN"",""IBCEP0"",115,0)"
^XMB(3.9,55,2,14754,0)=" S IBOSRT1="""""
^XMB(3.9,55,2,14755,0)="""RTN"",""IBCEP0"",116,0)"
^XMB(3.9,55,2,14756,0)=" S IBSRT1="""" F  S IBSRT1=$O(^TMP(""IBPRV_INS_SORT"",$J,IBSRT1)) Q:IBSRT1=""""  D"
^XMB(3.9,55,2,14757,0)="""RTN"",""IBCEP0"",117,0)"
^XMB(3.9,55,2,14758,0)=" . S IBSRT2="""",IBOSRT2="""""
^XMB(3.9,55,2,14759,0)="""RTN"",""IBCEP0"",118,0)"
^XMB(3.9,55,2,14760,0)=" . F  S IBSRT2=$O(^TMP(""IBPRV_INS_SORT"",$J,IBSRT1,IBSRT2)) Q:IBSRT2=""""  D"
^XMB(3.9,55,2,14761,0)="""RTN"",""IBCEP0"",119,0)"
^XMB(3.9,55,2,14762,0)=" .. I IBOSRT1'=IBSRT1 D"
^XMB(3.9,55,2,14763,0)="""RTN"",""IBCEP0"",120,0)"
^XMB(3.9,55,2,14764,0)=" ... I IBOSRT1'="""" S IBLCT=IBLCT+1 D SET^VALM10(IBLCT,"" "",IBCT+1)"
^XMB(3.9,55,2,14765,0)="""RTN"",""IBCEP0"",121,0)"
^XMB(3.9,55,2,14766,0)=" ... S IBLCT=IBLCT+1 D SET^VALM10(IBLCT,$S(IBDSP'=""I"":""ID Qualifier"",1:""Provider"")_"": ""_$S(IBDSP'=""I"":$$EXPAND^IBTRE(355.91,.06,IBSRT1),1:$P(IBSRT1,U,2_$S($P(IBSRT2,U,3)[""VA(200"":"" (VA)"",1:""(NON-VA)""))),IBCT+1)"
^XMB(3.9,55,2,14767,0)="""RTN"",""IBCEP0"",122,0)"
^XMB(3.9,55,2,14768,0)=" ... S IBOSRT1=IBSRT1"
^XMB(3.9,55,2,14769,0)="""RTN"",""IBCEP0"",123,0)"
^XMB(3.9,55,2,14770,0)=" .. ;"
^XMB(3.9,55,2,14771,0)="""RTN"",""IBCEP0"",124,0)"
^XMB(3.9,55,2,14772,0)=" .. S FT="""" F  S FT=$O(^TMP(""IBPRV_INS_SORT"",$J,IBSRT1,IBSRT2,FT)) Q:FT=""""  S CT="""" F  S CT=$O(^TMP(""IBPRV_INS_SORT"",$J,IBSRT1,IBSRT2,FT,CT)) Q:CT=""""  D"
^XMB(3.9,55,2,14773,0)="""RTN"",""IBCEP0"",125,0)"
^XMB(3.9,55,2,14774,0)=" ... S CU="""" F  S CU=$O(^TMP(""IBPRV_INS_SORT"",$J,IBSRT1,IBSRT2,FT,CT,CU)) Q:CU=""""  S Z=0 F  S Z=$O(^TMP(""IBPRV_INS_SORT"",$J,IBSRT1,IBSRT2,FT,CT,CU,Z)) Q:'Z  S IB=$G(^(Z)) D"
^XMB(3.9,55,2,14775,0)="""RTN"",""IBCEP0"",126,0)"
^XMB(3.9,55,2,14776,0)=" .... S IBLCT=IBLCT+1,IBCT=IBCT+1"
^XMB(3.9,55,2,14777,0)="""RTN"",""IBCEP0"",127,0)"
^XMB(3.9,55,2,14778,0)=" .... S Z0=$E(IBCT_$J("""",4),1,4)_"" """
^XMB(3.9,55,2,14779,0)="""RTN"",""IBCEP0"",128,0)"
^XMB(3.9,55,2,14780,0)=" .... I IBDSP'=""I"" S Z0=Z0_$E($S(IBOSRT2'=IBSRT2:$P(IBSRT2,U,2),1:"""")_$J("""",20),1,20)"
^XMB(3.9,55,2,14781,0)="""RTN"",""IBCEP0"",129,0)"
^XMB(3.9,55,2,14782,0)=" .... I IBDSP=""I"" S Z0=Z0_$E($S(IBOSRT2'=IBSRT2:$$EXPAND^IBTRE(355.9,.06,IBSRT2),1:"""")_$J("""",20),1,20)"
^XMB(3.9,55,2,14783,0)="""RTN"",""IBCEP0"",130,0)"
^XMB(3.9,55,2,14784,0)=" .... S IBOSRT2=IBSRT2"
^XMB(3.9,55,2,14785,0)="""RTN"",""IBCEP0"",131,0)"
^XMB(3.9,55,2,14786,0)=" .... S Z0=Z0_""  ""_$S(FT=1:""UB-92"",FT=2:""HCFA "",1:""BOTH "")_""  ""_$E($S(CT=3:""RX"",CT=1:""INPT"",CT=2:""OUTPT"",1:""INPT/OUTPT"")_$J("""",11),1,11)_""  ""_$E($S(CU'=""*N/A*"":$P($G(^IBA(355.95,+$P($G(^IBA(355.96,+CU,0)),U),0)),U),1:"""")_$J("""",15),1,15)"
^XMB(3.9,55,2,14787,0)="""RTN"",""IBCEP0"",132,0)"
^XMB(3.9,55,2,14788,0)=" .... D SET^VALM10(IBLCT,Z0_"" ""_$P(IB,U),IBCT)"
^XMB(3.9,55,2,14789,0)="""RTN"",""IBCEP0"",133,0)"
^XMB(3.9,55,2,14790,0)=" .... S ^TMP(""IBPRV_INS_ID"",$J,""ZIDX"",IBCT)=Z,^(IBCT,""PRV"")=$P(IB,U,2)"
^XMB(3.9,55,2,14791,0)="""RTN"",""IBCEP0"",134,0)"
^XMB(3.9,55,2,14792,0)=" .... I '$D(^TMP(""IBPRV_INS_ID"",$J,$S(IBDSP=""I"":""ZXPRV"",1:""ZXPTYP""),IBSRT1)) S ^(IBSRT1)=IBLCT-1"
^XMB(3.9,55,2,14793,0)="""RTN"",""IBCEP0"",135,0)"
^XMB(3.9,55,2,14794,0)=" K ^TMP(""IBPRV_INS_SORT"",$J)"
^XMB(3.9,55,2,14795,0)="""RTN"",""IBCEP0"",136,0)"
^XMB(3.9,55,2,14796,0)=" ;"
^XMB(3.9,55,2,14797,0)="""RTN"",""IBCEP0"",137,0)"
^XMB(3.9,55,2,14798,0)=" I IBLCT=0 D  G BLDQ ; No entries found"
^XMB(3.9,55,2,14799,0)="""RTN"",""IBCEP0"",138,0)"
^XMB(3.9,55,2,14800,0)=" . D SET^VALM10(1,"" "")"
^XMB(3.9,55,2,14801,0)="""RTN"",""IBCEP0"",139,0)"
^XMB(3.9,55,2,14802,0)=" . S Z=""  No ""_$S(IBDSP=""D"":""default "",1:"""")"
^XMB(3.9,55,2,14803,0)="""RTN"",""IBCEP0"",140,0)"
^XMB(3.9,55,2,14804,0)=" . S Z=Z_""ID's found for ""_$S(IBDSP=""I"":""provider ""_$S(IBSORT:""(""_$$EXPAND^IBTRE(355.9,.01,IBSORT)_"") "",1:"""")_""and "",IBDSP=""A"":""provider type ""_$S(IBSORT:""(""_$$EXPAND^IBTRE(355.9,.06,IBSORT)_"") "",1:"""")_""and "",1:"""")_""insurance co"""
^XMB(3.9,55,2,14805,0)="""RTN"",""IBCEP0"",141,0)"
^XMB(3.9,55,2,14806,0)=" . D SET^VALM10(2,Z)"
^XMB(3.9,55,2,14807,0)="""RTN"",""IBCEP0"",142,0)"
^XMB(3.9,55,2,14808,0)=" . S IBLCT=2"
^XMB(3.9,55,2,14809,0)="""RTN"",""IBCEP0"",143,0)"
^XMB(3.9,55,2,14810,0)=" ;"
^XMB(3.9,55,2,14811,0)="""RTN"",""IBCEP0"",144,0)"
^XMB(3.9,55,2,14812,0)="BLDQ S VALMCNT=IBLCT,VALMBG=1"
^XMB(3.9,55,2,14813,0)="""RTN"",""IBCEP0"",145,0)"
^XMB(3.9,55,2,14814,0)=" Q"
^XMB(3.9,55,2,14815,0)="""RTN"",""IBCEP0"",146,0)"
^XMB(3.9,55,2,14816,0)=" ;"
^XMB(3.9,55,2,14817,0)="""RTN"",""IBCEP0"",147,0)"
^XMB(3.9,55,2,14818,0)="EXPND ;"
^XMB(3.9,55,2,14819,0)="""RTN"",""IBCEP0"",148,0)"
^XMB(3.9,55,2,14820,0)=" Q"
^XMB(3.9,55,2,14821,0)="""RTN"",""IBCEP0"",149,0)"
^XMB(3.9,55,2,14822,0)=" ;"
^XMB(3.9,55,2,14823,0)="""RTN"",""IBCEP0"",150,0)"
^XMB(3.9,55,2,14824,0)="HELP ;"
^XMB(3.9,55,2,14825,0)="""RTN"",""IBCEP0"",151,0)"
^XMB(3.9,55,2,14826,0)=" Q"
^XMB(3.9,55,2,14827,0)="""RTN"",""IBCEP0"",152,0)"
^XMB(3.9,55,2,14828,0)=" ;"
^XMB(3.9,55,2,14829,0)="""RTN"",""IBCEP0"",153,0)"
^XMB(3.9,55,2,14830,0)="EXIT ;"
^XMB(3.9,55,2,14831,0)="""RTN"",""IBCEP0"",154,0)"
^XMB(3.9,55,2,14832,0)=" K IBFASTXT"
^XMB(3.9,55,2,14833,0)="""RTN"",""IBCEP0"",155,0)"
^XMB(3.9,55,2,14834,0)=" D COPYPROV^IBCEP5A(IBINS)"
^XMB(3.9,55,2,14835,0)="""RTN"",""IBCEP0"",156,0)"
^XMB(3.9,55,2,14836,0)=" K ^TMP(""IBPRV_INS_ID"",$J)"
^XMB(3.9,55,2,14837,0)="""RTN"",""IBCEP0"",157,0)"
^XMB(3.9,55,2,14838,0)=" D CLEAN^VALM10"
^XMB(3.9,55,2,14839,0)="""RTN"",""IBCEP0"",158,0)"
^XMB(3.9,55,2,14840,0)=" Q"
^XMB(3.9,55,2,14841,0)="""RTN"",""IBCEP0"",159,0)"
^XMB(3.9,55,2,14842,0)=" ;"
^XMB(3.9,55,2,14843,0)="""RTN"",""IBCEP0"",160,0)"
^XMB(3.9,55,2,14844,0)="SEL(IBDA,MANY) ; Select from provider id list"
^XMB(3.9,55,2,14845,0)="""RTN"",""IBCEP0"",161,0)"
^XMB(3.9,55,2,14846,0)=" ; IBDA is passed by reference and IBDA(1) returned containing"
^XMB(3.9,55,2,14847,0)="""RTN"",""IBCEP0"",162,0)"
^XMB(3.9,55,2,14848,0)=" ;  ien's of the provider id records selected (file 355.9)."
^XMB(3.9,55,2,14849,0)="""RTN"",""IBCEP0"",163,0)"
^XMB(3.9,55,2,14850,0)=" ; If > 1 entry can be selected, MANY is set to 1"
^XMB(3.9,55,2,14851,0)="""RTN"",""IBCEP0"",164,0)"
^XMB(3.9,55,2,14852,0)=" N Z"
^XMB(3.9,55,2,14853,0)="""RTN"",""IBCEP0"",165,0)"
^XMB(3.9,55,2,14854,0)=" S IBDA=0"
^XMB(3.9,55,2,14855,0)="""RTN"",""IBCEP0"",166,0)"
^XMB(3.9,55,2,14856,0)=" D EN^VALM2($G(XQORNOD(0)),$S($G(MANY):"""",1:""S""))"
^XMB(3.9,55,2,14857,0)="""RTN"",""IBCEP0"",167,0)"
^XMB(3.9,55,2,14858,0)=" S Z=0 F  S Z=$O(VALMY(Z)) Q:'Z  S IBDA=IBDA+1,IBDA(IBDA)=+$G(^TMP(""IBPRV_INS_ID"",$J,""ZIDX"",Z))_U_$G(^(Z,""PRV""))"
^XMB(3.9,55,2,14859,0)="""RTN"",""IBCEP0"",168,0)"
^XMB(3.9,55,2,14860,0)=" Q"
^XMB(3.9,55,2,14861,0)="""RTN"",""IBCEP0"",169,0)"
^XMB(3.9,55,2,14862,0)=" ;"
^XMB(3.9,55,2,14863,0)="""RTN"",""IBCEP0"",170,0)"
^XMB(3.9,55,2,14864,0)="ENX(IBINS1) ; Insurance co level defaults for all providers or"
^XMB(3.9,55,2,14865,0)="""RTN"",""IBCEP0"",171,0)"
^XMB(3.9,55,2,14866,0)=" ; for all providers by care unit"
^XMB(3.9,55,2,14867,0)="""RTN"",""IBCEP0"",172,0)"
^XMB(3.9,55,2,14868,0)=" N DIC,DIE,DR,DA,X,Y,DLAYGO"
^XMB(3.9,55,2,14869,0)="""RTN"",""IBCEP0"",173,0)"
^XMB(3.9,55,2,14870,0)=" I '$G(IBINS1) D  G:'$G(IBINS1) ENQ"
^XMB(3.9,55,2,14871,0)="""RTN"",""IBCEP0"",174,0)"
^XMB(3.9,55,2,14872,0)=" . S DIC=""^IBA(355.91,"",DIC(0)=""AELMQ"",DLAYGO=355.91 D ^DIC"
^XMB(3.9,55,2,14873,0)="""RTN"",""IBCEP0"",175,0)"
^XMB(3.9,55,2,14874,0)=" . I Y>0 S IBINS1=+Y"
^XMB(3.9,55,2,14875,0)="""RTN"",""IBCEP0"",176,0)"
^XMB(3.9,55,2,14876,0)=" S DIE=""^IBA(355.91,"",DA=IBINS1,DR="".01;.06;.04;.05;.03;.07"" D ^DIE"
^XMB(3.9,55,2,14877,0)="""RTN"",""IBCEP0"",177,0)"
^XMB(3.9,55,2,14878,0)=" ;"
^XMB(3.9,55,2,14879,0)="""RTN"",""IBCEP0"",178,0)"
^XMB(3.9,55,2,14880,0)="ENQ Q"
^XMB(3.9,55,2,14881,0)="""RTN"",""IBCEP0"",179,0)"
^XMB(3.9,55,2,14882,0)=" ;"
^XMB(3.9,55,2,14883,0)="""RTN"",""IBCEP0"",180,0)"
^XMB(3.9,55,2,14884,0)="PPTYP(IBINS) ; Returns the ien of the default performing provider type for "
^XMB(3.9,55,2,14885,0)="""RTN"",""IBCEP0"",181,0)"
^XMB(3.9,55,2,14886,0)=" ;  insurance company IBINS (ien file 36)"
^XMB(3.9,55,2,14887,0)="""RTN"",""IBCEP0"",182,0)"
^XMB(3.9,55,2,14888,0)=" Q +$G(^DIC(36,+IBINS,4))"
^XMB(3.9,55,2,14889,0)="""RTN"",""IBCEP0"",183,0)"
^XMB(3.9,55,2,14890,0)=" ;"
^XMB(3.9,55,2,14891,0)="""RTN"",""IBCEP0"",184,0)"
^XMB(3.9,55,2,14892,0)="SCREEN(WHICH) ; This screen is used the menu protocol to screen out the ID functions if it is a child ins co"
^XMB(3.9,55,2,14893,0)="""RTN"",""IBCEP0"",185,0)"
^XMB(3.9,55,2,14894,0)=" Q:'$G(DA) 0"
^XMB(3.9,55,2,14895,0)="""RTN"",""IBCEP0"",186,0)"
^XMB(3.9,55,2,14896,0)=" Q:'$G(DA(1)) 0"
^XMB(3.9,55,2,14897,0)="""RTN"",""IBCEP0"",187,0)"
^XMB(3.9,55,2,14898,0)=" N FILE,IENS,FIELD,FLAG,TARGET"
^XMB(3.9,55,2,14899,0)="""RTN"",""IBCEP0"",188,0)"
^XMB(3.9,55,2,14900,0)=" S FILE=101.01,IENS=DA_"",""_DA(1),FIELD="".01"",FLAG=""I"""
^XMB(3.9,55,2,14901,0)="""RTN"",""IBCEP0"",189,0)"
^XMB(3.9,55,2,14902,0)=" D GETS^DIQ(FILE,IENS,FIELD,FLAG,""TARGET"")"
^XMB(3.9,55,2,14903,0)="""RTN"",""IBCEP0"",190,0)"
^XMB(3.9,55,2,14904,0)=" Q:'$D(TARGET) 0"
^XMB(3.9,55,2,14905,0)="""RTN"",""IBCEP0"",191,0)"
^XMB(3.9,55,2,14906,0)=" N IEN"
^XMB(3.9,55,2,14907,0)="""RTN"",""IBCEP0"",192,0)"
^XMB(3.9,55,2,14908,0)=" S IEN=$G(TARGET(FILE,IENS_"","",FIELD,FLAG))"
^XMB(3.9,55,2,14909,0)="""RTN"",""IBCEP0"",193,0)"
^XMB(3.9,55,2,14910,0)=" Q:'+IEN 0"
^XMB(3.9,55,2,14911,0)="""RTN"",""IBCEP0"",194,0)"
^XMB(3.9,55,2,14912,0)=" S FILE=101,FIELD=1,FLAG=""E"""
^XMB(3.9,55,2,14913,0)="""RTN"",""IBCEP0"",195,0)"
^XMB(3.9,55,2,14914,0)=" K TARGET"
^XMB(3.9,55,2,14915,0)="""RTN"",""IBCEP0"",196,0)"
^XMB(3.9,55,2,14916,0)=" D GETS^DIQ(FILE,IEN,FIELD,FLAG,""TARGET"")"
^XMB(3.9,55,2,14917,0)="""RTN"",""IBCEP0"",197,0)"
^XMB(3.9,55,2,14918,0)=" Q:'$D(TARGET) 0"
^XMB(3.9,55,2,14919,0)="""RTN"",""IBCEP0"",198,0)"
^XMB(3.9,55,2,14920,0)=" I $G(TARGET(FILE,IEN_"","",FIELD,FLAG))'[WHICH Q 1"
^XMB(3.9,55,2,14921,0)="""RTN"",""IBCEP0"",199,0)"
^XMB(3.9,55,2,14922,0)=" Q:'$G(IBINS) 0"
^XMB(3.9,55,2,14923,0)="""RTN"",""IBCEP0"",200,0)"
^XMB(3.9,55,2,14924,0)=" N PCF"
^XMB(3.9,55,2,14925,0)="""RTN"",""IBCEP0"",201,0)"
^XMB(3.9,55,2,14926,0)=" S PCF=$P($G(^DIC(36,+IBINS,3)),U,13)"
^XMB(3.9,55,2,14927,0)="""RTN"",""IBCEP0"",202,0)"
^XMB(3.9,55,2,14928,0)=" I PCF=""C"" Q 0"
^XMB(3.9,55,2,14929,0)="""RTN"",""IBCEP0"",203,0)"
^XMB(3.9,55,2,14930,0)=" Q 1"
^XMB(3.9,55,2,14931,0)="""RTN"",""IBCEP0A"")"
^XMB(3.9,55,2,14932,0)="0^70^B41076613^B40805968"
^XMB(3.9,55,2,14933,0)="""RTN"",""IBCEP0A"",1,0)"
^XMB(3.9,55,2,14934,0)="IBCEP0A ;ALB/TMP - EDI UTILITIES for insurance assigned provider ID ;01-NOV-00"
^XMB(3.9,55,2,14935,0)="""RTN"",""IBCEP0A"",2,0)"
^XMB(3.9,55,2,14936,0)=" ;;2.0;INTEGRATED BILLING;**137,232,320**;21-MAR-94"
^XMB(3.9,55,2,14937,0)="""RTN"",""IBCEP0A"",3,0)"
^XMB(3.9,55,2,14938,0)=" ;"
^XMB(3.9,55,2,14939,0)="""RTN"",""IBCEP0A"",4,0)"
^XMB(3.9,55,2,14940,0)="NEW(IBINS,IBPRV,IBPTYP,IBDEF) ; Add new insurance co assigned id"
^XMB(3.9,55,2,14941,0)="""RTN"",""IBCEP0A"",5,0)"
^XMB(3.9,55,2,14942,0)=" ; IBDEF = flag sent as 1 if only insurance co defaults are being added"
^XMB(3.9,55,2,14943,0)="""RTN"",""IBCEP0A"",6,0)"
^XMB(3.9,55,2,14944,0)=" N DIC,DIR,X,Y,Z,DA,DR,DIE,DO,DD,DLAYGO,IBQ,IBIEN,IBCUND,DTOUT,DUOUT"
^XMB(3.9,55,2,14945,0)="""RTN"",""IBCEP0A"",7,0)"
^XMB(3.9,55,2,14946,0)=" D FULL^VALM1"
^XMB(3.9,55,2,14947,0)="""RTN"",""IBCEP0A"",8,0)"
^XMB(3.9,55,2,14948,0)=" S IBQ=0"
^XMB(3.9,55,2,14949,0)="""RTN"",""IBCEP0A"",9,0)"
^XMB(3.9,55,2,14950,0)=" I $G(IBDEF)=""D"" W !!,""YOU ARE ADDING A PROVIDER ID THAT WILL BE THE INSURANCE CO DEFAULT"",!"
^XMB(3.9,55,2,14951,0)="""RTN"",""IBCEP0A"",10,0)"
^XMB(3.9,55,2,14952,0)=" I '$G(IBPRV),$G(IBDEF)'=""D"" D  G:IBQ NEWQ"
^XMB(3.9,55,2,14953,0)="""RTN"",""IBCEP0A"",11,0)"
^XMB(3.9,55,2,14954,0)=" . N DA,IBO"
^XMB(3.9,55,2,14955,0)="""RTN"",""IBCEP0A"",12,0)"
^XMB(3.9,55,2,14956,0)=" . S IBO=($G(IBDSP)'=""I"")"
^XMB(3.9,55,2,14957,0)="""RTN"",""IBCEP0A"",13,0)"
^XMB(3.9,55,2,14958,0)=" . S DIR(0)=""355.9,.01A""_$S(IBO:""O"",1:""""),DIR(""A"")=""Select PROVIDER""_$S(IBO:"" (optional)"",1:"""")_"": """
^XMB(3.9,55,2,14959,0)="""RTN"",""IBCEP0A"",14,0)"
^XMB(3.9,55,2,14960,0)=" . S DIR(""?"")=""Select the PROVIDER to be assigned a provider ID"""
^XMB(3.9,55,2,14961,0)="""RTN"",""IBCEP0A"",15,0)"
^XMB(3.9,55,2,14962,0)=" . I IBO S DIR(""?"",1)=DIR(""?""),DIR(""?"")=""Or    Press ENTER to add an insurance co level default id (all providers)"""
^XMB(3.9,55,2,14963,0)="""RTN"",""IBCEP0A"",16,0)"
^XMB(3.9,55,2,14964,0)=" . W ! D ^DIR K DIR W !"
^XMB(3.9,55,2,14965,0)="""RTN"",""IBCEP0A"",17,0)"
^XMB(3.9,55,2,14966,0)=" . I $D(DTOUT)!$D(DUOUT) S IBQ=1 Q"
^XMB(3.9,55,2,14967,0)="""RTN"",""IBCEP0A"",18,0)"
^XMB(3.9,55,2,14968,0)=" . S IBPRV=$S(Y>0:$P(Y,U),1:"""")"
^XMB(3.9,55,2,14969,0)="""RTN"",""IBCEP0A"",19,0)"
^XMB(3.9,55,2,14970,0)=" . Q:IBPRV"
^XMB(3.9,55,2,14971,0)="""RTN"",""IBCEP0A"",20,0)"
^XMB(3.9,55,2,14972,0)=" . S DIR(0)=""YA"",DIR(""B"")=""YES"",DIR(""A"",1)=""YOU ARE ADDING A PROVIDER ID THAT WILL BE THE INSURANCE CO DEFAULT"",DIR(""A"")=""IS THIS OK?: """
^XMB(3.9,55,2,14973,0)="""RTN"",""IBCEP0A"",21,0)"
^XMB(3.9,55,2,14974,0)=" . W ! D ^DIR K DIR W !"
^XMB(3.9,55,2,14975,0)="""RTN"",""IBCEP0A"",22,0)"
^XMB(3.9,55,2,14976,0)=" . I $D(DTOUT)!$D(DUOUT)!(Y'=1) S IBQ=1"
^XMB(3.9,55,2,14977,0)="""RTN"",""IBCEP0A"",23,0)"
^XMB(3.9,55,2,14978,0)=" . Q"
^XMB(3.9,55,2,14979,0)="""RTN"",""IBCEP0A"",24,0)"
^XMB(3.9,55,2,14980,0)=" ;"
^XMB(3.9,55,2,14981,0)="""RTN"",""IBCEP0A"",25,0)"
^XMB(3.9,55,2,14982,0)=" I '$G(IBPTYP) D  G:IBQ NEWQ"
^XMB(3.9,55,2,14983,0)="""RTN"",""IBCEP0A"",26,0)"
^XMB(3.9,55,2,14984,0)=" . S DIR(0)=""PAr^355.97:AEMQ"",DIR(""A"")=""Select Provider ID Qualifier: """
^XMB(3.9,55,2,14985,0)="""RTN"",""IBCEP0A"",27,0)"
^XMB(3.9,55,2,14986,0)=" . S DIR(""?"")=""Enter a Qualifier to indentify the type of ID number you are entering."""
^XMB(3.9,55,2,14987,0)="""RTN"",""IBCEP0A"",28,0)"
^XMB(3.9,55,2,14988,0)=" . S DIR(""S"")=""I $$RAINS^IBCEPU(Y)""   ; Rendering/Attending IDs provided by ins"
^XMB(3.9,55,2,14989,0)="""RTN"",""IBCEP0A"",29,0)"
^XMB(3.9,55,2,14990,0)=" . S DA=0"
^XMB(3.9,55,2,14991,0)="""RTN"",""IBCEP0A"",30,0)"
^XMB(3.9,55,2,14992,0)=" . W ! D ^DIR K DIR W !"
^XMB(3.9,55,2,14993,0)="""RTN"",""IBCEP0A"",31,0)"
^XMB(3.9,55,2,14994,0)=" . I $D(DTOUT)!$D(DUOUT)!'Y S IBQ=1 Q"
^XMB(3.9,55,2,14995,0)="""RTN"",""IBCEP0A"",32,0)"
^XMB(3.9,55,2,14996,0)=" . S IBPTYP=+Y"
^XMB(3.9,55,2,14997,0)="""RTN"",""IBCEP0A"",33,0)"
^XMB(3.9,55,2,14998,0)=" ;"
^XMB(3.9,55,2,14999,0)="""RTN"",""IBCEP0A"",34,0)"
^XMB(3.9,55,2,15000,0)=" S IBQ=$$ADDID(IBINS,IBPRV,IBPTYP)"
^XMB(3.9,55,2,15001,0)="""RTN"",""IBCEP0A"",35,0)"
^XMB(3.9,55,2,15002,0)=" ;"
^XMB(3.9,55,2,15003,0)="""RTN"",""IBCEP0A"",36,0)"
^XMB(3.9,55,2,15004,0)="NEWQ D:'$G(IBQ) BLD^IBCEP0($G(IBINS),$G(IBDSP),$G(IBSORT))"
^XMB(3.9,55,2,15005,0)="""RTN"",""IBCEP0A"",37,0)"
^XMB(3.9,55,2,15006,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,15007,0)="""RTN"",""IBCEP0A"",38,0)"
^XMB(3.9,55,2,15008,0)=" Q"
^XMB(3.9,55,2,15009,0)="""RTN"",""IBCEP0A"",39,0)"
^XMB(3.9,55,2,15010,0)=" ;"
^XMB(3.9,55,2,15011,0)="""RTN"",""IBCEP0A"",40,0)"
^XMB(3.9,55,2,15012,0)="DEL1 ; Delete Insurance Co assigned provider ID's"
^XMB(3.9,55,2,15013,0)="""RTN"",""IBCEP0A"",41,0)"
^XMB(3.9,55,2,15014,0)=" ; IBPRV = vp ien of provider if editing entry in file 355.9"
^XMB(3.9,55,2,15015,0)="""RTN"",""IBCEP0A"",42,0)"
^XMB(3.9,55,2,15016,0)=" ;         otherwise, null"
^XMB(3.9,55,2,15017,0)="""RTN"",""IBCEP0A"",43,0)"
^XMB(3.9,55,2,15018,0)=" N IB1,IBDA,IBFILE"
^XMB(3.9,55,2,15019,0)="""RTN"",""IBCEP0A"",44,0)"
^XMB(3.9,55,2,15020,0)=" D FULL^VALM1"
^XMB(3.9,55,2,15021,0)="""RTN"",""IBCEP0A"",45,0)"
^XMB(3.9,55,2,15022,0)=" D SEL^IBCEP0(.IBDA)"
^XMB(3.9,55,2,15023,0)="""RTN"",""IBCEP0A"",46,0)"
^XMB(3.9,55,2,15024,0)=" G:'$O(IBDA(0)) DEL1Q"
^XMB(3.9,55,2,15025,0)="""RTN"",""IBCEP0A"",47,0)"
^XMB(3.9,55,2,15026,0)=" S IBDA=+$O(IBDA("""")),IBDA=$G(IBDA(IBDA))"
^XMB(3.9,55,2,15027,0)="""RTN"",""IBCEP0A"",48,0)"
^XMB(3.9,55,2,15028,0)=" G:'IBDA DEL1Q"
^XMB(3.9,55,2,15029,0)="""RTN"",""IBCEP0A"",49,0)"
^XMB(3.9,55,2,15030,0)=" S IB1=$P(IBDA,U,2),IBDA=+IBDA"
^XMB(3.9,55,2,15031,0)="""RTN"",""IBCEP0A"",50,0)"
^XMB(3.9,55,2,15032,0)=" S IBFILE=$S(IB1:355.9,1:355.91)"
^XMB(3.9,55,2,15033,0)="""RTN"",""IBCEP0A"",51,0)"
^XMB(3.9,55,2,15034,0)=" I IBDA>0 D DEL^IBCEP5B(IBFILE,IBDA,1),BLD^IBCEP0($G(IBINS),$G(IBDSP),$G(IBSORT))"
^XMB(3.9,55,2,15035,0)="""RTN"",""IBCEP0A"",52,0)"
^XMB(3.9,55,2,15036,0)=" ;"
^XMB(3.9,55,2,15037,0)="""RTN"",""IBCEP0A"",53,0)"
^XMB(3.9,55,2,15038,0)="DEL1Q S VALMBCK=""R"""
^XMB(3.9,55,2,15039,0)="""RTN"",""IBCEP0A"",54,0)"
^XMB(3.9,55,2,15040,0)=" Q"
^XMB(3.9,55,2,15041,0)="""RTN"",""IBCEP0A"",55,0)"
^XMB(3.9,55,2,15042,0)=" ;"
^XMB(3.9,55,2,15043,0)="""RTN"",""IBCEP0A"",56,0)"
^XMB(3.9,55,2,15044,0)="CHG1 ; Edit Provider ID's"
^XMB(3.9,55,2,15045,0)="""RTN"",""IBCEP0A"",57,0)"
^XMB(3.9,55,2,15046,0)=" N IBDA,IB1,IBFILE"
^XMB(3.9,55,2,15047,0)="""RTN"",""IBCEP0A"",58,0)"
^XMB(3.9,55,2,15048,0)=" D FULL^VALM1"
^XMB(3.9,55,2,15049,0)="""RTN"",""IBCEP0A"",59,0)"
^XMB(3.9,55,2,15050,0)=" D SEL^IBCEP0(.IBDA)"
^XMB(3.9,55,2,15051,0)="""RTN"",""IBCEP0A"",60,0)"
^XMB(3.9,55,2,15052,0)=" G:'$O(IBDA(0)) CHG1Q"
^XMB(3.9,55,2,15053,0)="""RTN"",""IBCEP0A"",61,0)"
^XMB(3.9,55,2,15054,0)=" S IBDA=+$O(IBDA("""")),IBDA=$G(IBDA(IBDA))"
^XMB(3.9,55,2,15055,0)="""RTN"",""IBCEP0A"",62,0)"
^XMB(3.9,55,2,15056,0)=" G:'IBDA CHG1Q"
^XMB(3.9,55,2,15057,0)="""RTN"",""IBCEP0A"",63,0)"
^XMB(3.9,55,2,15058,0)=" S IB1=$P(IBDA,U,2),IBDA=+IBDA"
^XMB(3.9,55,2,15059,0)="""RTN"",""IBCEP0A"",64,0)"
^XMB(3.9,55,2,15060,0)=" S IBFILE=$S(IB1:355.9,1:355.91)"
^XMB(3.9,55,2,15061,0)="""RTN"",""IBCEP0A"",65,0)"
^XMB(3.9,55,2,15062,0)=" I IBDA>0 D"
^XMB(3.9,55,2,15063,0)="""RTN"",""IBCEP0A"",66,0)"
^XMB(3.9,55,2,15064,0)=" . I IBFILE=355.9 W !!,""PROVIDER: "",$$EXPAND^IBTRE(355.9,.01,IB1)"
^XMB(3.9,55,2,15065,0)="""RTN"",""IBCEP0A"",67,0)"
^XMB(3.9,55,2,15066,0)=" . I IBFILE'=355.9 W !!,""  <<INS CO DEFAULT>>"""
^XMB(3.9,55,2,15067,0)="""RTN"",""IBCEP0A"",68,0)"
^XMB(3.9,55,2,15068,0)=" . D CHG^IBCEP5B(IBFILE,IBDA),BLD^IBCEP0($G(IBINS),$G(IBDSP),$G(IBSORT))"
^XMB(3.9,55,2,15069,0)="""RTN"",""IBCEP0A"",69,0)"
^XMB(3.9,55,2,15070,0)=" ;"
^XMB(3.9,55,2,15071,0)="""RTN"",""IBCEP0A"",70,0)"
^XMB(3.9,55,2,15072,0)="CHG1Q S VALMBCK=""R"""
^XMB(3.9,55,2,15073,0)="""RTN"",""IBCEP0A"",71,0)"
^XMB(3.9,55,2,15074,0)=" Q"
^XMB(3.9,55,2,15075,0)="""RTN"",""IBCEP0A"",72,0)"
^XMB(3.9,55,2,15076,0)=" ;"
^XMB(3.9,55,2,15077,0)="""RTN"",""IBCEP0A"",73,0)"
^XMB(3.9,55,2,15078,0)="PRVJMP(IBDSP) ; Navigate to a specific sort level in current LM list"
^XMB(3.9,55,2,15079,0)="""RTN"",""IBCEP0A"",74,0)"
^XMB(3.9,55,2,15080,0)=" ;   (from insurance co option)"
^XMB(3.9,55,2,15081,0)="""RTN"",""IBCEP0A"",75,0)"
^XMB(3.9,55,2,15082,0)=" ; IBDSP = 'I', 'A' or 'D' to indicate format selected for display"
^XMB(3.9,55,2,15083,0)="""RTN"",""IBCEP0A"",76,0)"
^XMB(3.9,55,2,15084,0)=" ;        ([P]ROVIDER, PROVIDER [T]YPE OR [I]NSURANCE DEFAULT)"
^XMB(3.9,55,2,15085,0)="""RTN"",""IBCEP0A"",77,0)"
^XMB(3.9,55,2,15086,0)=" ; Sets VALMBG = LINE # if a provider in list selected"
^XMB(3.9,55,2,15087,0)="""RTN"",""IBCEP0A"",78,0)"
^XMB(3.9,55,2,15088,0)=" ;"
^XMB(3.9,55,2,15089,0)="""RTN"",""IBCEP0A"",79,0)"
^XMB(3.9,55,2,15090,0)=" I $G(IBDSP)=""I"" D PRVNJMP(.VALMBG)"
^XMB(3.9,55,2,15091,0)="""RTN"",""IBCEP0A"",80,0)"
^XMB(3.9,55,2,15092,0)=" I $G(IBDSP)=""D""!($G(IBDSP)=""A"") D PRVTJMP(.VALMBG)"
^XMB(3.9,55,2,15093,0)="""RTN"",""IBCEP0A"",81,0)"
^XMB(3.9,55,2,15094,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,15095,0)="""RTN"",""IBCEP0A"",82,0)"
^XMB(3.9,55,2,15096,0)=" Q"
^XMB(3.9,55,2,15097,0)="""RTN"",""IBCEP0A"",83,0)"
^XMB(3.9,55,2,15098,0)=" ;"
^XMB(3.9,55,2,15099,0)="""RTN"",""IBCEP0A"",84,0)"
^XMB(3.9,55,2,15100,0)="PRVNJMP(VALMBG) ; Navigate to a specific provider name (from insurance co"
^XMB(3.9,55,2,15101,0)="""RTN"",""IBCEP0A"",85,0)"
^XMB(3.9,55,2,15102,0)=" ;  option)"
^XMB(3.9,55,2,15103,0)="""RTN"",""IBCEP0A"",86,0)"
^XMB(3.9,55,2,15104,0)=" ;"
^XMB(3.9,55,2,15105,0)="""RTN"",""IBCEP0A"",87,0)"
^XMB(3.9,55,2,15106,0)=" N DIR,X,Y,DA"
^XMB(3.9,55,2,15107,0)="""RTN"",""IBCEP0A"",88,0)"
^XMB(3.9,55,2,15108,0)=" D FULL^VALM1"
^XMB(3.9,55,2,15109,0)="""RTN"",""IBCEP0A"",89,0)"
^XMB(3.9,55,2,15110,0)=" S DIR(0)=""355.9,.01AO^^I '$D(^TMP(""""IBPRV_INS_ID"""",$J,""""ZXPRV"""",U_$$EXPAND^IBTRE(355.9,.01,Y)_U_$P(Y,U))) K X"""
^XMB(3.9,55,2,15111,0)="""RTN"",""IBCEP0A"",90,0)"
^XMB(3.9,55,2,15112,0)=" S DIR(""?"",1)=""*** YOU MAY ONLY SELECT PROVIDERS INCLUDED IN THE CURRENT LIST ***"",DIR(""?"",2)="" "",DIR(""?"",3)=""SELECTING A PROVIDER WILL FORCE THE DISPLAY TO SKIP TO THE DATA FOR THAT"",DIR(""?"")=""   PROVIDER"""
^XMB(3.9,55,2,15113,0)="""RTN"",""IBCEP0A"",91,0)"
^XMB(3.9,55,2,15114,0)=" S DIR(""A"")=""SELECT PROVIDER: """
^XMB(3.9,55,2,15115,0)="""RTN"",""IBCEP0A"",92,0)"
^XMB(3.9,55,2,15116,0)=" S DIR(""S"")=""N Z S Z=$P(^(0),U) I $D(^TMP(""""IBPRV_INS_ID"""",$J,""""ZXPRV"""",U_$$EXPAND^IBTRE(355.9,.01,Z)_U_Z))"""
^XMB(3.9,55,2,15117,0)="""RTN"",""IBCEP0A"",93,0)"
^XMB(3.9,55,2,15118,0)=" W ! D ^DIR K DIR W !"
^XMB(3.9,55,2,15119,0)="""RTN"",""IBCEP0A"",94,0)"
^XMB(3.9,55,2,15120,0)=" I Y>0,'$D(DTOUT),'$D(DUOUT) D"
^XMB(3.9,55,2,15121,0)="""RTN"",""IBCEP0A"",95,0)"
^XMB(3.9,55,2,15122,0)=" . N Z"
^XMB(3.9,55,2,15123,0)="""RTN"",""IBCEP0A"",96,0)"
^XMB(3.9,55,2,15124,0)=" . S Z=$G(^TMP(""IBPRV_INS_ID"",$J,""ZXPRV"",U_$$EXPAND^IBTRE(355.9,.01,$P(Y,U))_U_$P(Y,U)))"
^XMB(3.9,55,2,15125,0)="""RTN"",""IBCEP0A"",97,0)"
^XMB(3.9,55,2,15126,0)=" . I Z S VALMBG=Z Q"
^XMB(3.9,55,2,15127,0)="""RTN"",""IBCEP0A"",98,0)"
^XMB(3.9,55,2,15128,0)=" . S DIR(0)=""EA"",DIR(""A"",1)=""THIS PROVIDER DOES NOT EXIST IN THE CURRENT DISPLAY"",DIR(""A"")=""PRESS THE ENTER KEY TO CONTINUE"""
^XMB(3.9,55,2,15129,0)="""RTN"",""IBCEP0A"",99,0)"
^XMB(3.9,55,2,15130,0)=" . W ! D ^DIR K DIR W !"
^XMB(3.9,55,2,15131,0)="""RTN"",""IBCEP0A"",100,0)"
^XMB(3.9,55,2,15132,0)=" Q"
^XMB(3.9,55,2,15133,0)="""RTN"",""IBCEP0A"",101,0)"
^XMB(3.9,55,2,15134,0)=" ;"
^XMB(3.9,55,2,15135,0)="""RTN"",""IBCEP0A"",102,0)"
^XMB(3.9,55,2,15136,0)="PRVTJMP(VALMBG) ; Navigate to a specific provider id type (from ins co option)"
^XMB(3.9,55,2,15137,0)="""RTN"",""IBCEP0A"",103,0)"
^XMB(3.9,55,2,15138,0)=" ;"
^XMB(3.9,55,2,15139,0)="""RTN"",""IBCEP0A"",104,0)"
^XMB(3.9,55,2,15140,0)=" N DIR,X,Y"
^XMB(3.9,55,2,15141,0)="""RTN"",""IBCEP0A"",105,0)"
^XMB(3.9,55,2,15142,0)=" D FULL^VALM1"
^XMB(3.9,55,2,15143,0)="""RTN"",""IBCEP0A"",106,0)"
^XMB(3.9,55,2,15144,0)=" S DIR(0)=""PAO^355.97:AEMQ"",DIR(""A"")=""SELECT PROVIDER ID TYPE: "",DIR(""?"",1)=""SELECTING A PROVIDER ID TYPE WILL FORCE THE DISPLAY TO SKIP TO THE DATA FOR "",DIR(""?"")=""  THAT PROVIDER ID TYPE"""
^XMB(3.9,55,2,15145,0)="""RTN"",""IBCEP0A"",107,0)"
^XMB(3.9,55,2,15146,0)=" S DIR(""S"")=""I $D(^TMP(""""IBPRV_INS_ID"""",$J,""""ZXPTYP"""",+Y))"""
^XMB(3.9,55,2,15147,0)="""RTN"",""IBCEP0A"",108,0)"
^XMB(3.9,55,2,15148,0)=" W ! D ^DIR K DIR W !"
^XMB(3.9,55,2,15149,0)="""RTN"",""IBCEP0A"",109,0)"
^XMB(3.9,55,2,15150,0)=" I Y>0,'$D(DTOUT),'$D(DUOUT) D"
^XMB(3.9,55,2,15151,0)="""RTN"",""IBCEP0A"",110,0)"
^XMB(3.9,55,2,15152,0)=" . N Z"
^XMB(3.9,55,2,15153,0)="""RTN"",""IBCEP0A"",111,0)"
^XMB(3.9,55,2,15154,0)=" . S Z=$G(^TMP(""IBPRV_INS_ID"",$J,""ZXPTYP"",+Y))"
^XMB(3.9,55,2,15155,0)="""RTN"",""IBCEP0A"",112,0)"
^XMB(3.9,55,2,15156,0)=" . I Z S VALMBG=Z Q"
^XMB(3.9,55,2,15157,0)="""RTN"",""IBCEP0A"",113,0)"
^XMB(3.9,55,2,15158,0)=" . S DIR(0)=""EA"",DIR(""A"",1)=""THIS PROVIDER ID TYPE DOES NOT EXIST IN THE CURRENT DISPLAY"",DIR(""A"")=""PRESS THE ENTER KEY TO CONTINUE"""
^XMB(3.9,55,2,15159,0)="""RTN"",""IBCEP0A"",114,0)"
^XMB(3.9,55,2,15160,0)=" . W ! D ^DIR K DIR W !"
^XMB(3.9,55,2,15161,0)="""RTN"",""IBCEP0A"",115,0)"
^XMB(3.9,55,2,15162,0)=" Q"
^XMB(3.9,55,2,15163,0)="""RTN"",""IBCEP0A"",116,0)"
^XMB(3.9,55,2,15164,0)=" ;"
^XMB(3.9,55,2,15165,0)="""RTN"",""IBCEP0A"",117,0)"
^XMB(3.9,55,2,15166,0)="CHGINS ; Change insurance co being displayed, using the same or new params"
^XMB(3.9,55,2,15167,0)="""RTN"",""IBCEP0A"",118,0)"
^XMB(3.9,55,2,15168,0)=" ; Assumes IBINS exists = IEN of insurance co (file 36)"
^XMB(3.9,55,2,15169,0)="""RTN"",""IBCEP0A"",119,0)"
^XMB(3.9,55,2,15170,0)=" N IBINEW,IBSAVE,DIC,DA,Y,X,DIR"
^XMB(3.9,55,2,15171,0)="""RTN"",""IBCEP0A"",120,0)"
^XMB(3.9,55,2,15172,0)=" D FULL^VALM1"
^XMB(3.9,55,2,15173,0)="""RTN"",""IBCEP0A"",121,0)"
^XMB(3.9,55,2,15174,0)=" S DIC=""^DIC(36,"",DIC(0)=""AEMQ"" D ^DIC"
^XMB(3.9,55,2,15175,0)="""RTN"",""IBCEP0A"",122,0)"
^XMB(3.9,55,2,15176,0)=" S IBINEW=+Y"
^XMB(3.9,55,2,15177,0)="""RTN"",""IBCEP0A"",123,0)"
^XMB(3.9,55,2,15178,0)=" ;"
^XMB(3.9,55,2,15179,0)="""RTN"",""IBCEP0A"",124,0)"
^XMB(3.9,55,2,15180,0)=" I IBINEW>0,IBINS'=IBINEW D"
^XMB(3.9,55,2,15181,0)="""RTN"",""IBCEP0A"",125,0)"
^XMB(3.9,55,2,15182,0)=" . D COPYPROV^IBCEP5A(IBINS)"
^XMB(3.9,55,2,15183,0)="""RTN"",""IBCEP0A"",126,0)"
^XMB(3.9,55,2,15184,0)=" . S DIR(0)=""YA"",DIR(""?"")=""IF YOU WANT TO CHANGE THE FORMAT OF THE DISPLAY, RESPOND NO HERE"""
^XMB(3.9,55,2,15185,0)="""RTN"",""IBCEP0A"",127,0)"
^XMB(3.9,55,2,15186,0)=" . S DIR(""A"")=""DO YOU WANT TO DISPLAY THE NEW INS. CO IDS USING THE CURRENT DISPLAY FORMAT?: "",DIR(""B"")=""YES"" W ! D ^DIR W ! K DIR"
^XMB(3.9,55,2,15187,0)="""RTN"",""IBCEP0A"",128,0)"
^XMB(3.9,55,2,15188,0)=" . Q:Y'=1"
^XMB(3.9,55,2,15189,0)="""RTN"",""IBCEP0A"",129,0)"
^XMB(3.9,55,2,15190,0)=" . S IBSAVE(""IBINS"")=IBINS"
^XMB(3.9,55,2,15191,0)="""RTN"",""IBCEP0A"",130,0)"
^XMB(3.9,55,2,15192,0)=" . K ^TMP(""IBPRV_INS_ID"",$J),VALMHDR S VALMBG=1,IBINS=IBINEW"
^XMB(3.9,55,2,15193,0)="""RTN"",""IBCEP0A"",131,0)"
^XMB(3.9,55,2,15194,0)=" . I Y=1 D BLD^IBCEP0($G(IBINS),$G(IBDSP),$G(IBSORT)) Q"
^XMB(3.9,55,2,15195,0)="""RTN"",""IBCEP0A"",132,0)"
^XMB(3.9,55,2,15196,0)=" . D INIT^IBCEP0"
^XMB(3.9,55,2,15197,0)="""RTN"",""IBCEP0A"",133,0)"
^XMB(3.9,55,2,15198,0)=" . I '$G(VALMQUIT) Q"
^XMB(3.9,55,2,15199,0)="""RTN"",""IBCEP0A"",134,0)"
^XMB(3.9,55,2,15200,0)=" . S IBINS=IBSAVE(""IBINS"") D BLD^IBCEP0($G(IBINS),$G(IBDSP),$G(IBSORT))"
^XMB(3.9,55,2,15201,0)="""RTN"",""IBCEP0A"",135,0)"
^XMB(3.9,55,2,15202,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,15203,0)="""RTN"",""IBCEP0A"",136,0)"
^XMB(3.9,55,2,15204,0)=" Q"
^XMB(3.9,55,2,15205,0)="""RTN"",""IBCEP0A"",137,0)"
^XMB(3.9,55,2,15206,0)=" ;"
^XMB(3.9,55,2,15207,0)="""RTN"",""IBCEP0A"",138,0)"
^XMB(3.9,55,2,15208,0)="CHGFMT ; Change format parameters for display"
^XMB(3.9,55,2,15209,0)="""RTN"",""IBCEP0A"",139,0)"
^XMB(3.9,55,2,15210,0)=" N IBSAVE"
^XMB(3.9,55,2,15211,0)="""RTN"",""IBCEP0A"",140,0)"
^XMB(3.9,55,2,15212,0)=" S IBSAVE(""IBINS"")=$G(IBINS)"
^XMB(3.9,55,2,15213,0)="""RTN"",""IBCEP0A"",141,0)"
^XMB(3.9,55,2,15214,0)=" D INIT^IBCEP0"
^XMB(3.9,55,2,15215,0)="""RTN"",""IBCEP0A"",142,0)"
^XMB(3.9,55,2,15216,0)=" I '$G(VALMQUIT) G CHGFMTQ"
^XMB(3.9,55,2,15217,0)="""RTN"",""IBCEP0A"",143,0)"
^XMB(3.9,55,2,15218,0)=" S IBINS=IBSAVE(""IBINS"") D BLD^IBCEP0($G(IBINS),$G(IBDSP),$G(IBSORT))"
^XMB(3.9,55,2,15219,0)="""RTN"",""IBCEP0A"",144,0)"
^XMB(3.9,55,2,15220,0)="CHGFMTQ S VALMBCK=""R"""
^XMB(3.9,55,2,15221,0)="""RTN"",""IBCEP0A"",145,0)"
^XMB(3.9,55,2,15222,0)=" Q"
^XMB(3.9,55,2,15223,0)="""RTN"",""IBCEP0A"",146,0)"
^XMB(3.9,55,2,15224,0)=" ;"
^XMB(3.9,55,2,15225,0)="""RTN"",""IBCEP0A"",147,0)"
^XMB(3.9,55,2,15226,0)="IPARAM ; Display Insurance co parameters and care unit requirements"
^XMB(3.9,55,2,15227,0)="""RTN"",""IBCEP0A"",148,0)"
^XMB(3.9,55,2,15228,0)=" ; Assumes IBINS exists = IEN of insurance co"
^XMB(3.9,55,2,15229,0)="""RTN"",""IBCEP0A"",149,0)"
^XMB(3.9,55,2,15230,0)=" N IBDSP,IBSORT,IBHOLD"
^XMB(3.9,55,2,15231,0)="""RTN"",""IBCEP0A"",150,0)"
^XMB(3.9,55,2,15232,0)=" D FULL^VALM1"
^XMB(3.9,55,2,15233,0)="""RTN"",""IBCEP0A"",151,0)"
^XMB(3.9,55,2,15234,0)=" S IBHOLD(""IBINS"")=$G(IBINS)"
^XMB(3.9,55,2,15235,0)="""RTN"",""IBCEP0A"",152,0)"
^XMB(3.9,55,2,15236,0)=" D EN^VALM(""IBCE PRVINS PARAM DISPLAY"")"
^XMB(3.9,55,2,15237,0)="""RTN"",""IBCEP0A"",153,0)"
^XMB(3.9,55,2,15238,0)=" S:$G(IBHOLD(""IBINS""))'="""" IBINS=IBHOLD(""IBINS"")"
^XMB(3.9,55,2,15239,0)="""RTN"",""IBCEP0A"",154,0)"
^XMB(3.9,55,2,15240,0)=" K VALMQUIT"
^XMB(3.9,55,2,15241,0)="""RTN"",""IBCEP0A"",155,0)"
^XMB(3.9,55,2,15242,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,15243,0)="""RTN"",""IBCEP0A"",156,0)"
^XMB(3.9,55,2,15244,0)=" Q"
^XMB(3.9,55,2,15245,0)="""RTN"",""IBCEP0A"",157,0)"
^XMB(3.9,55,2,15246,0)=" ;"
^XMB(3.9,55,2,15247,0)="""RTN"",""IBCEP0A"",158,0)"
^XMB(3.9,55,2,15248,0)="ADDID(IBINS,IBPRV,IBPTYP) ; Adds a new ID for the provider and/or ins co"
^XMB(3.9,55,2,15249,0)="""RTN"",""IBCEP0A"",159,0)"
^XMB(3.9,55,2,15250,0)=" ; IBINS = ien of file 36"
^XMB(3.9,55,2,15251,0)="""RTN"",""IBCEP0A"",160,0)"
^XMB(3.9,55,2,15252,0)=" ; IBPRV = vp ien of file 355.9"
^XMB(3.9,55,2,15253,0)="""RTN"",""IBCEP0A"",161,0)"
^XMB(3.9,55,2,15254,0)=" ; IBPTYP = ien of file 355.97"
^XMB(3.9,55,2,15255,0)="""RTN"",""IBCEP0A"",162,0)"
^XMB(3.9,55,2,15256,0)=" ; FUNCTION returns 1 if record not added, 0 if filed OK"
^XMB(3.9,55,2,15257,0)="""RTN"",""IBCEP0A"",163,0)"
^XMB(3.9,55,2,15258,0)=" N IBIEN,IBQ,DIC,DA,DO,DD,DLAYGO,X,Y"
^XMB(3.9,55,2,15259,0)="""RTN"",""IBCEP0A"",164,0)"
^XMB(3.9,55,2,15260,0)=" S IBQ=0"
^XMB(3.9,55,2,15261,0)="""RTN"",""IBCEP0A"",165,0)"
^XMB(3.9,55,2,15262,0)=" I $G(IBPRV) D  G:IBQ ADDIDQ"
^XMB(3.9,55,2,15263,0)="""RTN"",""IBCEP0A"",166,0)"
^XMB(3.9,55,2,15264,0)=" . ; Provider specific for insurance co - add to file 355.9"
^XMB(3.9,55,2,15265,0)="""RTN"",""IBCEP0A"",167,0)"
^XMB(3.9,55,2,15266,0)=" . S DIC(0)=""L"",DLAYGO=355.9,DIC=""^IBA(355.9,"",X=IBPRV"
^XMB(3.9,55,2,15267,0)="""RTN"",""IBCEP0A"",168,0)"
^XMB(3.9,55,2,15268,0)=" . S:$G(IBINS) DIC(""DR"")="".02////""_IBINS"
^XMB(3.9,55,2,15269,0)="""RTN"",""IBCEP0A"",169,0)"
^XMB(3.9,55,2,15270,0)=" . D FILE^DICN K DIC,DLAYGO,DD,DO"
^XMB(3.9,55,2,15271,0)="""RTN"",""IBCEP0A"",170,0)"
^XMB(3.9,55,2,15272,0)=" . I Y'>0!$D(DUOUT)!$D(DTOUT) S IBIEN=0,IBQ=1 Q"
^XMB(3.9,55,2,15273,0)="""RTN"",""IBCEP0A"",171,0)"
^XMB(3.9,55,2,15274,0)=" . S IBIEN=+Y"
^XMB(3.9,55,2,15275,0)="""RTN"",""IBCEP0A"",172,0)"
^XMB(3.9,55,2,15276,0)=" . D NEWID^IBCEP5B(355.9,IBINS,IBPRV,IBPTYP,IBIEN,"""")"
^XMB(3.9,55,2,15277,0)="""RTN"",""IBCEP0A"",173,0)"
^XMB(3.9,55,2,15278,0)=" E  D"
^XMB(3.9,55,2,15279,0)="""RTN"",""IBCEP0A"",174,0)"
^XMB(3.9,55,2,15280,0)=" . ; Insurance co default - add to file 355.91"
^XMB(3.9,55,2,15281,0)="""RTN"",""IBCEP0A"",175,0)"
^XMB(3.9,55,2,15282,0)=" . S DIC(0)=""L"",DLAYGO=355.91,DIC=""^IBA(355.91,"",X=IBINS"
^XMB(3.9,55,2,15283,0)="""RTN"",""IBCEP0A"",176,0)"
^XMB(3.9,55,2,15284,0)=" . D FILE^DICN K DIC,DLAYGO,DD,DO"
^XMB(3.9,55,2,15285,0)="""RTN"",""IBCEP0A"",177,0)"
^XMB(3.9,55,2,15286,0)=" . I Y'>0!$D(DUOUT)!$D(DTOUT) S IBIEN=0,IBQ=1 Q"
^XMB(3.9,55,2,15287,0)="""RTN"",""IBCEP0A"",178,0)"
^XMB(3.9,55,2,15288,0)=" . S IBIEN=+Y"
^XMB(3.9,55,2,15289,0)="""RTN"",""IBCEP0A"",179,0)"
^XMB(3.9,55,2,15290,0)=" . D NEWID^IBCEP5B(355.91,IBINS,"""",IBPTYP,IBIEN,1)"
^XMB(3.9,55,2,15291,0)="""RTN"",""IBCEP0A"",180,0)"
^XMB(3.9,55,2,15292,0)="ADDIDQ Q IBQ"
^XMB(3.9,55,2,15293,0)="""RTN"",""IBCEP2"")"
^XMB(3.9,55,2,15294,0)="0^56^B43180010^B67570854"
^XMB(3.9,55,2,15295,0)="""RTN"",""IBCEP2"",1,0)"
^XMB(3.9,55,2,15296,0)="IBCEP2 ;ALB/TMP - EDI UTILITIES for provider ID ;13-DEC-99"
^XMB(3.9,55,2,15297,0)="""RTN"",""IBCEP2"",2,0)"
^XMB(3.9,55,2,15298,0)=" ;;2.0;INTEGRATED BILLING;**137,181,232,280,320**;21-MAR-94"
^XMB(3.9,55,2,15299,0)="""RTN"",""IBCEP2"",3,0)"
^XMB(3.9,55,2,15300,0)=" ; DBIA for access to fields 53.2,54.1,54.2 in file 200: 224"
^XMB(3.9,55,2,15301,0)="""RTN"",""IBCEP2"",4,0)"
^XMB(3.9,55,2,15302,0)=" ;"
^XMB(3.9,55,2,15303,0)="""RTN"",""IBCEP2"",5,0)"
^XMB(3.9,55,2,15304,0)="GETID(IBIFN,IBTYPE,IBPROV,IBSEQ,IBT,IBT1,IBFUNC) ; Extract IBTYPE id for the bill"
^XMB(3.9,55,2,15305,0)="""RTN"",""IBCEP2"",6,0)"
^XMB(3.9,55,2,15306,0)=" ; IBIFN = bill ien (file 399)"
^XMB(3.9,55,2,15307,0)="""RTN"",""IBCEP2"",7,0)"
^XMB(3.9,55,2,15308,0)=" ; IBTYPE = 2:PERFORMING PROVIDER ID (1 and 3 deleted)"
^XMB(3.9,55,2,15309,0)="""RTN"",""IBCEP2"",8,0)"
^XMB(3.9,55,2,15310,0)=" ; IBSEQ = numeric COB sequence of the insurance on bill"
^XMB(3.9,55,2,15311,0)="""RTN"",""IBCEP2"",9,0)"
^XMB(3.9,55,2,15312,0)=" ; IBFUNC = 1:REFERRING;2:OPERATING;3:RENDERING;4:ATTENDING;5:SUPERVISING;9:OTHER;"
^XMB(3.9,55,2,15313,0)="""RTN"",""IBCEP2"",10,0)"
^XMB(3.9,55,2,15314,0)=" ; Returns IBT = ien of the provider id type^ien of entry^file # for id"
^XMB(3.9,55,2,15315,0)="""RTN"",""IBCEP2"",11,0)"
^XMB(3.9,55,2,15316,0)=" ;"
^XMB(3.9,55,2,15317,0)="""RTN"",""IBCEP2"",12,0)"
^XMB(3.9,55,2,15318,0)=" S IBT=0"
^XMB(3.9,55,2,15319,0)="""RTN"",""IBCEP2"",13,0)"
^XMB(3.9,55,2,15320,0)=" Q:IBTYPE'=2 """""
^XMB(3.9,55,2,15321,0)="""RTN"",""IBCEP2"",14,0)"
^XMB(3.9,55,2,15322,0)=" N IBID,IBPTYP"
^XMB(3.9,55,2,15323,0)="""RTN"",""IBCEP2"",15,0)"
^XMB(3.9,55,2,15324,0)=" S IBID=$$IDFIND(IBIFN,"""",IBPROV,IBSEQ,1,.IBT,$G(IBFUNC))"
^XMB(3.9,55,2,15325,0)="""RTN"",""IBCEP2"",16,0)"
^XMB(3.9,55,2,15326,0)=" I IBID="""" S IBT="""""
^XMB(3.9,55,2,15327,0)="""RTN"",""IBCEP2"",17,0)"
^XMB(3.9,55,2,15328,0)=" ;"
^XMB(3.9,55,2,15329,0)="""RTN"",""IBCEP2"",18,0)"
^XMB(3.9,55,2,15330,0)=" Q IBID"
^XMB(3.9,55,2,15331,0)="""RTN"",""IBCEP2"",19,0)"
^XMB(3.9,55,2,15332,0)=" ;"
^XMB(3.9,55,2,15333,0)="""RTN"",""IBCEP2"",20,0)"
^XMB(3.9,55,2,15334,0)="IDFIND(IBIFN,IBPTYP,IBPROV,IBSEQ,IBPERF,IBT,IBFUNC) ;Loop thru source levels"
^XMB(3.9,55,2,15335,0)="""RTN"",""IBCEP2"",21,0)"
^XMB(3.9,55,2,15336,0)=" ;   (if id definition allows) to find correct ID"
^XMB(3.9,55,2,15337,0)="""RTN"",""IBCEP2"",22,0)"
^XMB(3.9,55,2,15338,0)=" ; IBIFN = bill ien (file 399)"
^XMB(3.9,55,2,15339,0)="""RTN"",""IBCEP2"",23,0)"
^XMB(3.9,55,2,15340,0)=" ; IBPTYP = ien of the provider id type in file 355.97 or if null,"
^XMB(3.9,55,2,15341,0)="""RTN"",""IBCEP2"",24,0)"
^XMB(3.9,55,2,15342,0)=" ;          the default performing provider ID type for the ins co. in"
^XMB(3.9,55,2,15343,0)="""RTN"",""IBCEP2"",25,0)"
^XMB(3.9,55,2,15344,0)=" ;          COB sequence IBSEQ will be calculated"
^XMB(3.9,55,2,15345,0)="""RTN"",""IBCEP2"",26,0)"
^XMB(3.9,55,2,15346,0)=" ; IBPROV = (variable pointer syntax) provider on bill IBIFN"
^XMB(3.9,55,2,15347,0)="""RTN"",""IBCEP2"",27,0)"
^XMB(3.9,55,2,15348,0)=" ; IBSEQ = numeric COB sequence of the bill"
^XMB(3.9,55,2,15349,0)="""RTN"",""IBCEP2"",28,0)"
^XMB(3.9,55,2,15350,0)=" ; IBPERF = 1 if the performing provider id is needed"
^XMB(3.9,55,2,15351,0)="""RTN"",""IBCEP2"",29,0)"
^XMB(3.9,55,2,15352,0)=" ; IBFUNC = 1:REFERRING;2:OPERATING;3:RENDERING;4:ATTENDING;5:SUPERVISING;9:OTHER;"
^XMB(3.9,55,2,15353,0)="""RTN"",""IBCEP2"",30,0)"
^XMB(3.9,55,2,15354,0)=" ; Returns IBT = ptr to file 355.97^entry #^file #"
^XMB(3.9,55,2,15355,0)="""RTN"",""IBCEP2"",31,0)"
^XMB(3.9,55,2,15356,0)=" ;"
^XMB(3.9,55,2,15357,0)="""RTN"",""IBCEP2"",32,0)"
^XMB(3.9,55,2,15358,0)=" S IBT=+$G(IBPTYP)"
^XMB(3.9,55,2,15359,0)="""RTN"",""IBCEP2"",33,0)"
^XMB(3.9,55,2,15360,0)=" Q:'$G(IBPERF)!'$G(IBPROV) """""
^XMB(3.9,55,2,15361,0)="""RTN"",""IBCEP2"",34,0)"
^XMB(3.9,55,2,15362,0)=" N IBSPEC,IBINS,IBINS4,IBSRC,IBUP,IBID,IBALT,IBPROF,Z"
^XMB(3.9,55,2,15363,0)="""RTN"",""IBCEP2"",35,0)"
^XMB(3.9,55,2,15364,0)=" I $G(IBSEQ)="""" S IBSEQ=+$$COBN^IBCEF(IBIFN) ; Default to current COB seq"
^XMB(3.9,55,2,15365,0)="""RTN"",""IBCEP2"",36,0)"
^XMB(3.9,55,2,15366,0)=" S IBINS=+$P($G(^DGCR(399,IBIFN,""I""_IBSEQ)),U),IBINS4=$G(^DIC(36,+IBINS,4))"
^XMB(3.9,55,2,15367,0)="""RTN"",""IBCEP2"",37,0)"
^XMB(3.9,55,2,15368,0)=" S IBPROF=($$FT^IBCEF(IBIFN)=2) S:'IBPROF IBPROF=2"
^XMB(3.9,55,2,15369,0)="""RTN"",""IBCEP2"",38,0)"
^XMB(3.9,55,2,15370,0)=" ; form type is HCFA (prof)=1, UB92 (inst)=2"
^XMB(3.9,55,2,15371,0)="""RTN"",""IBCEP2"",39,0)"
^XMB(3.9,55,2,15372,0)=" I $G(IBPTYP)="""",$G(IBFUNC)=1,IBPROF=1 S (IBT,IBPTYP)=+$P(IBINS4,U,4) ; Referring Default ID on HCFA"
^XMB(3.9,55,2,15373,0)="""RTN"",""IBCEP2"",40,0)"
^XMB(3.9,55,2,15374,0)=" I $G(IBPTYP)="""" S (IBT,IBPTYP)=+$P(IBINS4,U,IBPROF) ; Def to perf prv typ for form"
^XMB(3.9,55,2,15375,0)="""RTN"",""IBCEP2"",41,0)"
^XMB(3.9,55,2,15376,0)=" I 'IBPTYP Q """"  ; No default id type"
^XMB(3.9,55,2,15377,0)="""RTN"",""IBCEP2"",42,0)"
^XMB(3.9,55,2,15378,0)=" S IBSPEC=$G(^IBE(355.97,IBPTYP,1)),IBSRC=$P($G(^IBE(355.97,+IBPTYP,0)),U,2),IBSRC=$S('IBSRC:5,1:IBSRC),IBUP=1"
^XMB(3.9,55,2,15379,0)="""RTN"",""IBCEP2"",43,0)"
^XMB(3.9,55,2,15380,0)=" S IBALT=0"
^XMB(3.9,55,2,15381,0)="""RTN"",""IBCEP2"",44,0)"
^XMB(3.9,55,2,15382,0)=" ;"
^XMB(3.9,55,2,15383,0)="""RTN"",""IBCEP2"",45,0)"
^XMB(3.9,55,2,15384,0)=" F  D  Q:'IBUP!($G(IBID)'="""")  S IBSRC=IBSRC-1 Q:'IBSRC"
^XMB(3.9,55,2,15385,0)="""RTN"",""IBCEP2"",46,0)"
^XMB(3.9,55,2,15386,0)=" . ;"
^XMB(3.9,55,2,15387,0)="""RTN"",""IBCEP2"",47,0)"
^XMB(3.9,55,2,15388,0)=" . I IBSRC=1,$TR($P(IBSPEC,U,1,3),""^0"")'="""" D  Q  ; Indiv prov default"
^XMB(3.9,55,2,15389,0)="""RTN"",""IBCEP2"",48,0)"
^XMB(3.9,55,2,15390,0)=" .. N IBSTATE"
^XMB(3.9,55,2,15391,0)="""RTN"",""IBCEP2"",49,0)"
^XMB(3.9,55,2,15392,0)=" .. I $P(IBSPEC,U,2) D  Q  ; Federal DEA # from field 53.2 file 200"
^XMB(3.9,55,2,15393,0)="""RTN"",""IBCEP2"",50,0)"
^XMB(3.9,55,2,15394,0)=" ... S IBID=$P($G(^VA(200,+IBPROV,""PS"")),U,2) ; DBIA224"
^XMB(3.9,55,2,15395,0)="""RTN"",""IBCEP2"",51,0)"
^XMB(3.9,55,2,15396,0)=" ... S $P(IBT,U,2,3)=(IBPROV_U_200)"
^XMB(3.9,55,2,15397,0)="""RTN"",""IBCEP2"",52,0)"
^XMB(3.9,55,2,15398,0)=" .. S IBSTATE=+$$CAREST^IBCEP2A(IBIFN)"
^XMB(3.9,55,2,15399,0)="""RTN"",""IBCEP2"",53,0)"
^XMB(3.9,55,2,15400,0)=" .. I $P(IBSPEC,U) D  Q  ; State issued DEA # needed"
^XMB(3.9,55,2,15401,0)="""RTN"",""IBCEP2"",54,0)"
^XMB(3.9,55,2,15402,0)=" ... Q:'IBSTATE"
^XMB(3.9,55,2,15403,0)="""RTN"",""IBCEP2"",55,0)"
^XMB(3.9,55,2,15404,0)=" ... ; Extract the state issuing DEA # from field 54.2 file 200"
^XMB(3.9,55,2,15405,0)="""RTN"",""IBCEP2"",56,0)"
^XMB(3.9,55,2,15406,0)=" ... S Z=+$O(^VA(200,+IBPROV,""PS2"",""B"",IBSTATE,0)),IBID=$P($G(^VA(200,+IBPROV,""PS2"",Z,0)),U,2) ; DBIA224"
^XMB(3.9,55,2,15407,0)="""RTN"",""IBCEP2"",57,0)"
^XMB(3.9,55,2,15408,0)=" ... S $P(IBT,U,2,3)=(+IBPROV_"";""_Z_U_200)"
^XMB(3.9,55,2,15409,0)="""RTN"",""IBCEP2"",58,0)"
^XMB(3.9,55,2,15410,0)=" .. I $P(IBSPEC,U,3) D  Q  ; State license # needed"
^XMB(3.9,55,2,15411,0)="""RTN"",""IBCEP2"",59,0)"
^XMB(3.9,55,2,15412,0)=" ... Q:'IBSTATE"
^XMB(3.9,55,2,15413,0)="""RTN"",""IBCEP2"",60,0)"
^XMB(3.9,55,2,15414,0)=" ... ; Extract the state license # from field 54.1 file 200"
^XMB(3.9,55,2,15415,0)="""RTN"",""IBCEP2"",61,0)"
^XMB(3.9,55,2,15416,0)=" ... I IBPROV[""VA(200"" S Z=+$O(^VA(200,+IBPROV,""PS1"",""B"",IBSTATE,0)),IBID=$P($G(^VA(200,+IBPROV,""PS1"",Z,0)),U,2),$P(IBT,U,2,3)=(+IBPROV_"";""_IBSTATE_U_200) ; DBIA224"
^XMB(3.9,55,2,15417,0)="""RTN"",""IBCEP2"",62,0)"
^XMB(3.9,55,2,15418,0)=" ... I IBPROV[""IBA(355.93"" S IBID=$P($G(^IBA(355.93,+IBPROV,0)),U,12),$P(IBT,U,2,3)=(+IBPROV_U_355.93)"
^XMB(3.9,55,2,15419,0)="""RTN"",""IBCEP2"",63,0)"
^XMB(3.9,55,2,15420,0)=" . ;"
^XMB(3.9,55,2,15421,0)="""RTN"",""IBCEP2"",64,0)"
^XMB(3.9,55,2,15422,0)=" . I IBSRC=2,$P(IBSPEC,U,4) D  Q  ; FACILITY FED TAX ID #"
^XMB(3.9,55,2,15423,0)="""RTN"",""IBCEP2"",65,0)"
^XMB(3.9,55,2,15424,0)=" .. N IBXDATA"
^XMB(3.9,55,2,15425,0)="""RTN"",""IBCEP2"",66,0)"
^XMB(3.9,55,2,15426,0)=" .. D F^IBCEF(""N-FEDERAL TAX ID"",,,IBIFN)"
^XMB(3.9,55,2,15427,0)="""RTN"",""IBCEP2"",67,0)"
^XMB(3.9,55,2,15428,0)=" .. S IBID=IBXDATA,$P(IBT,U,2,3)=(U_350.9)"
^XMB(3.9,55,2,15429,0)="""RTN"",""IBCEP2"",68,0)"
^XMB(3.9,55,2,15430,0)=" . ;"
^XMB(3.9,55,2,15431,0)="""RTN"",""IBCEP2"",69,0)"
^XMB(3.9,55,2,15432,0)=" . I IBSRC=1 S IBID=$$SRC1(IBIFN,""*ALL*"",IBPTYP,IBPROV,.IBT) Q"
^XMB(3.9,55,2,15433,0)="""RTN"",""IBCEP2"",70,0)"
^XMB(3.9,55,2,15434,0)=" . ;"
^XMB(3.9,55,2,15435,0)="""RTN"",""IBCEP2"",71,0)"
^XMB(3.9,55,2,15436,0)=" . I IBSRC=2 S IBID=$$SRC2(IBPTYP,.IBT) Q"
^XMB(3.9,55,2,15437,0)="""RTN"",""IBCEP2"",72,0)"
^XMB(3.9,55,2,15438,0)=" . ;"
^XMB(3.9,55,2,15439,0)="""RTN"",""IBCEP2"",73,0)"
^XMB(3.9,55,2,15440,0)=" . I IBSRC=3 S IBID=$$SRC3(IBIFN,IBINS,IBPTYP,.IBT) Q"
^XMB(3.9,55,2,15441,0)="""RTN"",""IBCEP2"",74,0)"
^XMB(3.9,55,2,15442,0)=" . ; "
^XMB(3.9,55,2,15443,0)="""RTN"",""IBCEP2"",75,0)"
^XMB(3.9,55,2,15444,0)=" . I IBSRC=4 S IBID=$$SRC4(IBIFN,IBINS,IBPTYP,IBPROV,.IBT) Q"
^XMB(3.9,55,2,15445,0)="""RTN"",""IBCEP2"",76,0)"
^XMB(3.9,55,2,15446,0)=" . ;"
^XMB(3.9,55,2,15447,0)="""RTN"",""IBCEP2"",77,0)"
^XMB(3.9,55,2,15448,0)=" . I IBSRC=5 S IBID=$$SRC5(IBIFN,IBINS,IBPTYP,IBSEQ,.IBT,$G(IBFUNC)) Q"
^XMB(3.9,55,2,15449,0)="""RTN"",""IBCEP2"",78,0)"
^XMB(3.9,55,2,15450,0)=" . ;"
^XMB(3.9,55,2,15451,0)="""RTN"",""IBCEP2"",79,0)"
^XMB(3.9,55,2,15452,0)=" . I IBSRC=6 S IBID=$$SRC6(IBIFN,IBINS,IBPTYP,IBPROV,IBSEQ,.IBT) Q"
^XMB(3.9,55,2,15453,0)="""RTN"",""IBCEP2"",80,0)"
^XMB(3.9,55,2,15454,0)=" ;"
^XMB(3.9,55,2,15455,0)="""RTN"",""IBCEP2"",81,0)"
^XMB(3.9,55,2,15456,0)=" Q $G(IBID)"
^XMB(3.9,55,2,15457,0)="""RTN"",""IBCEP2"",82,0)"
^XMB(3.9,55,2,15458,0)=" ;"
^XMB(3.9,55,2,15459,0)="""RTN"",""IBCEP2"",83,0)"
^XMB(3.9,55,2,15460,0)="GETALL(IBTYPE,IBIFN,IBPROV,IBPID) ; Extract all performing prov id's for a"
^XMB(3.9,55,2,15461,0)="""RTN"",""IBCEP2"",84,0)"
^XMB(3.9,55,2,15462,0)=" ; provider (IBPROV - vp format) on bill IBIFN"
^XMB(3.9,55,2,15463,0)="""RTN"",""IBCEP2"",85,0)"
^XMB(3.9,55,2,15464,0)=" ; IBTYPE = type of ID to return (see GETID above)"
^XMB(3.9,55,2,15465,0)="""RTN"",""IBCEP2"",86,0)"
^XMB(3.9,55,2,15466,0)=" ;"
^XMB(3.9,55,2,15467,0)="""RTN"",""IBCEP2"",87,0)"
^XMB(3.9,55,2,15468,0)=" ; Returns array IBPID(COB SEQ #)=id (pass by reference) AND"
^XMB(3.9,55,2,15469,0)="""RTN"",""IBCEP2"",88,0)"
^XMB(3.9,55,2,15470,0)=" ;   IBPID(COB SEQ #,1)=ien of id type (ptr to 355.97)"
^XMB(3.9,55,2,15471,0)="""RTN"",""IBCEP2"",89,0)"
^XMB(3.9,55,2,15472,0)=" ;   IBPID = current insurance co's id"
^XMB(3.9,55,2,15473,0)="""RTN"",""IBCEP2"",90,0)"
^XMB(3.9,55,2,15474,0)=" ;"
^XMB(3.9,55,2,15475,0)="""RTN"",""IBCEP2"",91,0)"
^XMB(3.9,55,2,15476,0)=" N Z,COB,Z1,IBT"
^XMB(3.9,55,2,15477,0)="""RTN"",""IBCEP2"",92,0)"
^XMB(3.9,55,2,15478,0)=" S COB=$$COBN^IBCEF(IBIFN)"
^XMB(3.9,55,2,15479,0)="""RTN"",""IBCEP2"",93,0)"
^XMB(3.9,55,2,15480,0)=" F Z=1:1:3 Q:'$D(^DGCR(399,IBIFN,""I""_Z))  S IBPID(Z)=$$GETID(IBTYPE,IBIFN,IBPROV,Z,.IBT),IBPID(Z,1)=IBT I Z=COB S Z1=IBPID(Z)"
^XMB(3.9,55,2,15481,0)="""RTN"",""IBCEP2"",94,0)"
^XMB(3.9,55,2,15482,0)=" Q $G(Z1)"
^XMB(3.9,55,2,15483,0)="""RTN"",""IBCEP2"",95,0)"
^XMB(3.9,55,2,15484,0)=" ;"
^XMB(3.9,55,2,15485,0)="""RTN"",""IBCEP2"",96,0)"
^XMB(3.9,55,2,15486,0)="SRC1(IBIFN,IBINS,IBPTYP,IBPROV,IBT) ; Licensing/gov't issued # - provider specific"
^XMB(3.9,55,2,15487,0)="""RTN"",""IBCEP2"",97,0)"
^XMB(3.9,55,2,15488,0)=" ; Parameter definitions for SRC1, SRC3, SRC4, SRC5, SRC6:"
^XMB(3.9,55,2,15489,0)="""RTN"",""IBCEP2"",98,0)"
^XMB(3.9,55,2,15490,0)=" ;   IBIFN = ien of bill (file 399)"
^XMB(3.9,55,2,15491,0)="""RTN"",""IBCEP2"",99,0)"
^XMB(3.9,55,2,15492,0)=" ;   IBINS = ien of insurance co (file 36) or *ALL* for all insurance"
^XMB(3.9,55,2,15493,0)="""RTN"",""IBCEP2"",100,0)"
^XMB(3.9,55,2,15494,0)=" ;           (always *ALL* for SRC1)"
^XMB(3.9,55,2,15495,0)="""RTN"",""IBCEP2"",101,0)"
^XMB(3.9,55,2,15496,0)=" ;   IBPTYP = ien of the provider id type in file 355.97"
^XMB(3.9,55,2,15497,0)="""RTN"",""IBCEP2"",102,0)"
^XMB(3.9,55,2,15498,0)=" ;   IBPROV = (variable pointer syntax) provider on bill IBIFN"
^XMB(3.9,55,2,15499,0)="""RTN"",""IBCEP2"",103,0)"
^XMB(3.9,55,2,15500,0)=" ;   IBT = returned as type ien^file ien^file #"
^XMB(3.9,55,2,15501,0)="""RTN"",""IBCEP2"",104,0)"
^XMB(3.9,55,2,15502,0)=" ;"
^XMB(3.9,55,2,15503,0)="""RTN"",""IBCEP2"",105,0)"
^XMB(3.9,55,2,15504,0)=" N IBID,IB,IBRX,IBIDSV"
^XMB(3.9,55,2,15505,0)="""RTN"",""IBCEP2"",106,0)"
^XMB(3.9,55,2,15506,0)=" S IBID="""",IB=0,IBRX=$$ISRX^IBCEF1(IBIFN),IBIDSV="""""
^XMB(3.9,55,2,15507,0)="""RTN"",""IBCEP2"",107,0)"
^XMB(3.9,55,2,15508,0)=" I $G(IBPROV) F  S IB=$O(^IBA(355.9,""AD"",IBPTYP,IBPROV,IBINS,IB)) Q:'IB  D  Q:IBID'="""""
^XMB(3.9,55,2,15509,0)="""RTN"",""IBCEP2"",108,0)"
^XMB(3.9,55,2,15510,0)=" . S IBID=$$UNIQ1(IBIFN,IBINS,IBPTYP,IBPROV,"""",IB)"
^XMB(3.9,55,2,15511,0)="""RTN"",""IBCEP2"",109,0)"
^XMB(3.9,55,2,15512,0)=" . I IBRX,$P($G(^IBA(355.9,IB,0)),U,5)'=3 S:IBIDSV="""" IBIDSV=IBID S IBID="""" ; Save 1st 'match' if no rx specific id"
^XMB(3.9,55,2,15513,0)="""RTN"",""IBCEP2"",110,0)"
^XMB(3.9,55,2,15514,0)=" I IBID="""",IBIDSV'="""" S IBID=IBIDSV"
^XMB(3.9,55,2,15515,0)="""RTN"",""IBCEP2"",111,0)"
^XMB(3.9,55,2,15516,0)=" Q IBID"
^XMB(3.9,55,2,15517,0)="""RTN"",""IBCEP2"",112,0)"
^XMB(3.9,55,2,15518,0)=" ;"
^XMB(3.9,55,2,15519,0)="""RTN"",""IBCEP2"",113,0)"
^XMB(3.9,55,2,15520,0)="SRC2(IB35597,IBT) ; Facility default - all providers"
^XMB(3.9,55,2,15521,0)="""RTN"",""IBCEP2"",114,0)"
^XMB(3.9,55,2,15522,0)=" ; IB35597 = ien of the provider id type entry in file 355.97"
^XMB(3.9,55,2,15523,0)="""RTN"",""IBCEP2"",115,0)"
^XMB(3.9,55,2,15524,0)=" ; IBT = returned as type ien^file ien^file #"
^XMB(3.9,55,2,15525,0)="""RTN"",""IBCEP2"",116,0)"
^XMB(3.9,55,2,15526,0)=" ;"
^XMB(3.9,55,2,15527,0)="""RTN"",""IBCEP2"",117,0)"
^XMB(3.9,55,2,15528,0)=" S $P(IBT,U,2,3)=(+IB35597_U_355.97)"
^XMB(3.9,55,2,15529,0)="""RTN"",""IBCEP2"",118,0)"
^XMB(3.9,55,2,15530,0)=" Q $P($G(^IBE(355.97,+IB35597,0)),U,4)"
^XMB(3.9,55,2,15531,0)="""RTN"",""IBCEP2"",119,0)"
^XMB(3.9,55,2,15532,0)=" ;"
^XMB(3.9,55,2,15533,0)="""RTN"",""IBCEP2"",120,0)"
^XMB(3.9,55,2,15534,0)="SRC3(IBIFN,IBINS,IBPTYP,IBT) ; Ins co/all providers"
^XMB(3.9,55,2,15535,0)="""RTN"",""IBCEP2"",121,0)"
^XMB(3.9,55,2,15536,0)=" ; See SRC1 for parameter definitions"
^XMB(3.9,55,2,15537,0)="""RTN"",""IBCEP2"",122,0)"
^XMB(3.9,55,2,15538,0)=" N IB,IBID,IBRX,IBIDSV"
^XMB(3.9,55,2,15539,0)="""RTN"",""IBCEP2"",123,0)"
^XMB(3.9,55,2,15540,0)=" S IBID="""",IB=0,IBRX=$$ISRX^IBCEF1(IBIFN),IBIDSV="""""
^XMB(3.9,55,2,15541,0)="""RTN"",""IBCEP2"",124,0)"
^XMB(3.9,55,2,15542,0)=" F  S IB=$O(^IBA(355.91,""AC"",IBINS,IBPTYP,""*N/A*"",IB)) Q:'IB  D  Q:IBID'="""""
^XMB(3.9,55,2,15543,0)="""RTN"",""IBCEP2"",125,0)"
^XMB(3.9,55,2,15544,0)=" . S IBID=$$UNIQ2(IBIFN,IBINS,IBPTYP,"""",IB,.IBT)"
^XMB(3.9,55,2,15545,0)="""RTN"",""IBCEP2"",126,0)"
^XMB(3.9,55,2,15546,0)=" . I IBRX,$P($G(^IBA(355.91,IB,0)),U,5)'=3 S:IBIDSV="""" IBIDSV=IBID S IBID="""" ; Save 1st 'match' if no rx specific id"
^XMB(3.9,55,2,15547,0)="""RTN"",""IBCEP2"",127,0)"
^XMB(3.9,55,2,15548,0)=" I IBID="""",IBIDSV'="""" S IBID=IBIDSV"
^XMB(3.9,55,2,15549,0)="""RTN"",""IBCEP2"",128,0)"
^XMB(3.9,55,2,15550,0)=" Q IBID"
^XMB(3.9,55,2,15551,0)="""RTN"",""IBCEP2"",129,0)"
^XMB(3.9,55,2,15552,0)=" ;"
^XMB(3.9,55,2,15553,0)="""RTN"",""IBCEP2"",130,0)"
^XMB(3.9,55,2,15554,0)="SRC4(IBIFN,IBINS,IBPTYP,IBPROV,IBT) ;  Insurance co/individual provider"
^XMB(3.9,55,2,15555,0)="""RTN"",""IBCEP2"",131,0)"
^XMB(3.9,55,2,15556,0)=" ; See SRC1 for parameter definitions"
^XMB(3.9,55,2,15557,0)="""RTN"",""IBCEP2"",132,0)"
^XMB(3.9,55,2,15558,0)=" ;"
^XMB(3.9,55,2,15559,0)="""RTN"",""IBCEP2"",133,0)"
^XMB(3.9,55,2,15560,0)=" N IBID,IB,IBRX,IBIDSV"
^XMB(3.9,55,2,15561,0)="""RTN"",""IBCEP2"",134,0)"
^XMB(3.9,55,2,15562,0)=" S IBID="""",IB=0,IBRX=$$ISRX^IBCEF1(IBIFN),IBIDSV="""""
^XMB(3.9,55,2,15563,0)="""RTN"",""IBCEP2"",135,0)"
^XMB(3.9,55,2,15564,0)=" I $G(IBPROV) F  S IB=$O(^IBA(355.9,""AD"",IBPTYP,IBPROV,IBINS,IB)) Q:'IB  D  Q:IBID'="""""
^XMB(3.9,55,2,15565,0)="""RTN"",""IBCEP2"",136,0)"
^XMB(3.9,55,2,15566,0)=" . S IBID=$$UNIQ1(IBIFN,IBINS,IBPTYP,IBPROV,"""",IB,.IBT)"
^XMB(3.9,55,2,15567,0)="""RTN"",""IBCEP2"",137,0)"
^XMB(3.9,55,2,15568,0)=" . I IBRX,$P($G(^IBA(355.9,IB,0)),U,5)'=3 S:IBIDSV="""" IBIDSV=IBID S IBID="""" ; Save 1st 'match' if no rx specific id"
^XMB(3.9,55,2,15569,0)="""RTN"",""IBCEP2"",138,0)"
^XMB(3.9,55,2,15570,0)=" I IBID="""",IBIDSV'="""" S IBID=IBIDSV"
^XMB(3.9,55,2,15571,0)="""RTN"",""IBCEP2"",139,0)"
^XMB(3.9,55,2,15572,0)=" Q IBID"
^XMB(3.9,55,2,15573,0)="""RTN"",""IBCEP2"",140,0)"
^XMB(3.9,55,2,15574,0)=" ;"
^XMB(3.9,55,2,15575,0)="""RTN"",""IBCEP2"",141,0)"
^XMB(3.9,55,2,15576,0)="SRC5(IBIFN,IBINS,IBPTYP,IBSEQ,IBT,IBFUNC) ; Ins co/all providers/care unit"
^XMB(3.9,55,2,15577,0)="""RTN"",""IBCEP2"",142,0)"
^XMB(3.9,55,2,15578,0)=" ; See SRC1 for missing parameter definitions"
^XMB(3.9,55,2,15579,0)="""RTN"",""IBCEP2"",143,0)"
^XMB(3.9,55,2,15580,0)=" ; IBSEQ = the numeric COB sequence of the insurance on the bill"
^XMB(3.9,55,2,15581,0)="""RTN"",""IBCEP2"",144,0)"
^XMB(3.9,55,2,15582,0)=" ;"
^XMB(3.9,55,2,15583,0)="""RTN"",""IBCEP2"",145,0)"
^XMB(3.9,55,2,15584,0)=" N IBP,IBUNIT,IBID,IB,Z,IBIDSV,IBRX"
^XMB(3.9,55,2,15585,0)="""RTN"",""IBCEP2"",146,0)"
^XMB(3.9,55,2,15586,0)=" S IBID="""",Z=0,IBRX=$$ISRX^IBCEF1(IBIFN),IBIDSV="""""
^XMB(3.9,55,2,15587,0)="""RTN"",""IBCEP2"",147,0)"
^XMB(3.9,55,2,15588,0)=" S IBP=+$O(^DGCR(399,IBIFN,""PRV"",""B"",$S($G(IBFUNC)=1:1,$$FT^IBCEF(IBIFN)=3:4,1:3),0)),IBUNIT=$P($G(^DGCR(399,IBIFN,""PRV"",IBP,0)),U,8+IBSEQ)"
^XMB(3.9,55,2,15589,0)="""RTN"",""IBCEP2"",148,0)"
^XMB(3.9,55,2,15590,0)=" I IBUNIT'="""" F  S Z=$O(^IBA(355.96,""AC"",IBINS,IBPTYP,Z)) Q:'Z  D  Q:IBID'="""""
^XMB(3.9,55,2,15591,0)="""RTN"",""IBCEP2"",149,0)"
^XMB(3.9,55,2,15592,0)=" . S IB=0 F  S IB=$O(^IBA(355.91,""ACARE"",Z,IB)) Q:'IB  D  Q:IBID'="""""
^XMB(3.9,55,2,15593,0)="""RTN"",""IBCEP2"",150,0)"
^XMB(3.9,55,2,15594,0)=" .. S IBID=$$UNIQ2(IBIFN,IBINS,IBPTYP,IBUNIT,IB,.IBT)"
^XMB(3.9,55,2,15595,0)="""RTN"",""IBCEP2"",151,0)"
^XMB(3.9,55,2,15596,0)=" .. I IBRX,$P($G(^IBA(355.91,IB,0)),U,5)'=3 S:IBIDSV="""" IBIDSV=IBID S IBID="""" ; Save 1st 'match' if no rx specific id"
^XMB(3.9,55,2,15597,0)="""RTN"",""IBCEP2"",152,0)"
^XMB(3.9,55,2,15598,0)=" I IBID="""",IBIDSV'="""" S IBID=IBIDSV"
^XMB(3.9,55,2,15599,0)="""RTN"",""IBCEP2"",153,0)"
^XMB(3.9,55,2,15600,0)=" Q IBID"
^XMB(3.9,55,2,15601,0)="""RTN"",""IBCEP2"",154,0)"
^XMB(3.9,55,2,15602,0)=" ;"
^XMB(3.9,55,2,15603,0)="""RTN"",""IBCEP2"",155,0)"
^XMB(3.9,55,2,15604,0)="SRC6(IBIFN,IBINS,IBPTYP,IBPROV,IBSEQ,IBT) ; Ins co/ind provider/care unit"
^XMB(3.9,55,2,15605,0)="""RTN"",""IBCEP2"",156,0)"
^XMB(3.9,55,2,15606,0)=" ; See SRC1 for missing parameter definitions"
^XMB(3.9,55,2,15607,0)="""RTN"",""IBCEP2"",157,0)"
^XMB(3.9,55,2,15608,0)=" ; IBSEQ = the numeric COB sequence of the insurance on the bill"
^XMB(3.9,55,2,15609,0)="""RTN"",""IBCEP2"",158,0)"
^XMB(3.9,55,2,15610,0)=" ;"
^XMB(3.9,55,2,15611,0)="""RTN"",""IBCEP2"",159,0)"
^XMB(3.9,55,2,15612,0)=" N IBUNIT,IBP,IBID,IB"
^XMB(3.9,55,2,15613,0)="""RTN"",""IBCEP2"",160,0)"
^XMB(3.9,55,2,15614,0)=" S IBID="""",IB=0"
^XMB(3.9,55,2,15615,0)="""RTN"",""IBCEP2"",161,0)"
^XMB(3.9,55,2,15616,0)=" S IBP=+$O(^DGCR(399,""PRV"",""B"",$S($$FT^IBCEF(IBIFN)=3:3,1:4),0)),IBUNIT=$P($G(^DGCR(399,IBIFN,""PRV"",IBP,0)),U,8+IBSEQ)"
^XMB(3.9,55,2,15617,0)="""RTN"",""IBCEP2"",162,0)"
^XMB(3.9,55,2,15618,0)=" I $G(IBPROV),IBUNIT'="""" F  S IB=$O(^IBA(355.9,""AD"",IBPTYP,IBPROV,IBINS,IB)) Q:'IB  D  Q:IBID'="""""
^XMB(3.9,55,2,15619,0)="""RTN"",""IBCEP2"",163,0)"
^XMB(3.9,55,2,15620,0)=" . S IBID=$$UNIQ1(IBIFN,IBINS,IBPTYP,IBPROV,IBUNIT,IB,.IBT)"
^XMB(3.9,55,2,15621,0)="""RTN"",""IBCEP2"",164,0)"
^XMB(3.9,55,2,15622,0)=" Q IBID"
^XMB(3.9,55,2,15623,0)="""RTN"",""IBCEP2"",165,0)"
^XMB(3.9,55,2,15624,0)=" ;"
^XMB(3.9,55,2,15625,0)="""RTN"",""IBCEP2"",166,0)"
^XMB(3.9,55,2,15626,0)="UNIQ1(IBIFN,IBINS,IBPTYP,IBPROV,IBUNIT,IBCU,IBT) ; Match most-least specific"
^XMB(3.9,55,2,15627,0)="""RTN"",""IBCEP2"",167,0)"
^XMB(3.9,55,2,15628,0)=" ; *** SEE PARAMETER DEFINITIONS IN IBCEP3 ***"
^XMB(3.9,55,2,15629,0)="""RTN"",""IBCEP2"",168,0)"
^XMB(3.9,55,2,15630,0)=" ;"
^XMB(3.9,55,2,15631,0)="""RTN"",""IBCEP2"",169,0)"
^XMB(3.9,55,2,15632,0)=" ; Start in file 355.9 (Specific Provider)"
^XMB(3.9,55,2,15633,0)="""RTN"",""IBCEP2"",170,0)"
^XMB(3.9,55,2,15634,0)=" ;   IBPROV = (variable pointer syntax) provider on bill IBIFN"
^XMB(3.9,55,2,15635,0)="""RTN"",""IBCEP2"",171,0)"
^XMB(3.9,55,2,15636,0)=" ;"
^XMB(3.9,55,2,15637,0)="""RTN"",""IBCEP2"",172,0)"
^XMB(3.9,55,2,15638,0)=" Q $$UNIQ1^IBCEP2A($G(IBIFN),$G(IBINS),$G(IBPTYP),$G(IBPROV),$G(IBUNIT),$G(IBCU),$G(IBT))"
^XMB(3.9,55,2,15639,0)="""RTN"",""IBCEP2"",173,0)"
^XMB(3.9,55,2,15640,0)=" ;"
^XMB(3.9,55,2,15641,0)="""RTN"",""IBCEP2"",174,0)"
^XMB(3.9,55,2,15642,0)="UNIQ2(IBIFN,IBINS,IBPTYP,IBUNIT,IBCU,IBT) ; Match on most-least specific"
^XMB(3.9,55,2,15643,0)="""RTN"",""IBCEP2"",175,0)"
^XMB(3.9,55,2,15644,0)=" ; *** SEE PARAMETER DEFINITIONS IN IBCEP3 ***"
^XMB(3.9,55,2,15645,0)="""RTN"",""IBCEP2"",176,0)"
^XMB(3.9,55,2,15646,0)=" ;"
^XMB(3.9,55,2,15647,0)="""RTN"",""IBCEP2"",177,0)"
^XMB(3.9,55,2,15648,0)=" ; Start in file 355.91 (Specific Insurance)"
^XMB(3.9,55,2,15649,0)="""RTN"",""IBCEP2"",178,0)"
^XMB(3.9,55,2,15650,0)=" ;"
^XMB(3.9,55,2,15651,0)="""RTN"",""IBCEP2"",179,0)"
^XMB(3.9,55,2,15652,0)=" Q $$UNIQ2^IBCEP2A($G(IBIFN),$G(IBINS),$G(IBPTYP),$G(IBUNIT),$G(IBCU),$G(IBT))"
^XMB(3.9,55,2,15653,0)="""RTN"",""IBCEP2A"")"
^XMB(3.9,55,2,15654,0)="0^57^B42808014^B17487545"
^XMB(3.9,55,2,15655,0)="""RTN"",""IBCEP2A"",1,0)"
^XMB(3.9,55,2,15656,0)="IBCEP2A ;ALB/TMP - EDI UTILITIES for provider ID ;25-APR-01"
^XMB(3.9,55,2,15657,0)="""RTN"",""IBCEP2A"",2,0)"
^XMB(3.9,55,2,15658,0)=" ;;2.0;INTEGRATED BILLING;**137,232,320**;21-MAR-94"
^XMB(3.9,55,2,15659,0)="""RTN"",""IBCEP2A"",3,0)"
^XMB(3.9,55,2,15660,0)=" ;"
^XMB(3.9,55,2,15661,0)="""RTN"",""IBCEP2A"",4,0)"
^XMB(3.9,55,2,15662,0)="ALT(IBPERF,IBSRC,IBALT,IBINS4,IBPTYP) ; set source level to next higher level "
^XMB(3.9,55,2,15663,0)="""RTN"",""IBCEP2A"",5,0)"
^XMB(3.9,55,2,15664,0)=" ; or set the alternate type and source if performing provider id"
^XMB(3.9,55,2,15665,0)="""RTN"",""IBCEP2A"",6,0)"
^XMB(3.9,55,2,15666,0)=" ; alternate type and source exist"
^XMB(3.9,55,2,15667,0)="""RTN"",""IBCEP2A"",7,0)"
^XMB(3.9,55,2,15668,0)=" ; IBPERF = 1 if performing provider id is requested"
^XMB(3.9,55,2,15669,0)="""RTN"",""IBCEP2A"",8,0)"
^XMB(3.9,55,2,15670,0)=" ; IBINS4 = '4' node of insurance co (file 36)"
^XMB(3.9,55,2,15671,0)="""RTN"",""IBCEP2A"",9,0)"
^XMB(3.9,55,2,15672,0)=" ; Pass IBPTYP by reference to get alternate provider id type"
^XMB(3.9,55,2,15673,0)="""RTN"",""IBCEP2A"",10,0)"
^XMB(3.9,55,2,15674,0)=" ; Pass IBALT by reference.  Set to 1 if alternate id is to be used next"
^XMB(3.9,55,2,15675,0)="""RTN"",""IBCEP2A"",11,0)"
^XMB(3.9,55,2,15676,0)=" ;"
^XMB(3.9,55,2,15677,0)="""RTN"",""IBCEP2A"",12,0)"
^XMB(3.9,55,2,15678,0)=" I '$G(IBPERF)!($P(IBINS4,U,3)=1) S IBSRC=IBSRC-1 G ALTQ"
^XMB(3.9,55,2,15679,0)="""RTN"",""IBCEP2A"",13,0)"
^XMB(3.9,55,2,15680,0)=" S IBSRC="""""
^XMB(3.9,55,2,15681,0)="""RTN"",""IBCEP2A"",14,0)"
^XMB(3.9,55,2,15682,0)=" I '$G(IBALT),$P(IBINS4,U,3)=2,$P(IBINS4,U,10),$P(IBINS4,U,11) S IBALT=1,IBSRC=$P(IBINS4,U,11),IBPTYP=$P(IBINS4,U,10) S:IBPTYP="""" IBPTYP=$P(IBINS4,U)"
^XMB(3.9,55,2,15683,0)="""RTN"",""IBCEP2A"",15,0)"
^XMB(3.9,55,2,15684,0)=" ;"
^XMB(3.9,55,2,15685,0)="""RTN"",""IBCEP2A"",16,0)"
^XMB(3.9,55,2,15686,0)="ALTQ Q IBSRC"
^XMB(3.9,55,2,15687,0)="""RTN"",""IBCEP2A"",17,0)"
^XMB(3.9,55,2,15688,0)=" ;"
^XMB(3.9,55,2,15689,0)="""RTN"",""IBCEP2A"",18,0)"
^XMB(3.9,55,2,15690,0)="IDSET(IBPTYP,IBINS4,IBPERF,IBSPEC,IBSRC,IBUP) ; set variables for provider id type search"
^XMB(3.9,55,2,15691,0)="""RTN"",""IBCEP2A"",19,0)"
^XMB(3.9,55,2,15692,0)=" N Z"
^XMB(3.9,55,2,15693,0)="""RTN"",""IBCEP2A"",20,0)"
^XMB(3.9,55,2,15694,0)=" S IBSPEC=$G(^IBE(355.97,+IBPTYP,1))"
^XMB(3.9,55,2,15695,0)="""RTN"",""IBCEP2A"",21,0)"
^XMB(3.9,55,2,15696,0)=" S Z=$S($G(IBPERF):2,$P(IBSPEC,U,5):6,$P(IBSPEC,U,6):4,1:2)"
^XMB(3.9,55,2,15697,0)="""RTN"",""IBCEP2A"",22,0)"
^XMB(3.9,55,2,15698,0)=" S IBSRC=$P(IBINS4,U,Z),IBUP=$P(IBINS4,U,$S(IBSRC:Z+1,1:0))"
^XMB(3.9,55,2,15699,0)="""RTN"",""IBCEP2A"",23,0)"
^XMB(3.9,55,2,15700,0)=" Q"
^XMB(3.9,55,2,15701,0)="""RTN"",""IBCEP2A"",24,0)"
^XMB(3.9,55,2,15702,0)=" ;"
^XMB(3.9,55,2,15703,0)="""RTN"",""IBCEP2A"",25,0)"
^XMB(3.9,55,2,15704,0)="CAREST(IBIFN) ; Return state file ien of state where care was performed"
^XMB(3.9,55,2,15705,0)="""RTN"",""IBCEP2A"",26,0)"
^XMB(3.9,55,2,15706,0)=" ; IBIFN = ien of bill in file 399"
^XMB(3.9,55,2,15707,0)="""RTN"",""IBCEP2A"",27,0)"
^XMB(3.9,55,2,15708,0)=" ; Get it from rendering facility or if none, the billing facility"
^XMB(3.9,55,2,15709,0)="""RTN"",""IBCEP2A"",28,0)"
^XMB(3.9,55,2,15710,0)=" N Z,IBXDATA,STATE"
^XMB(3.9,55,2,15711,0)="""RTN"",""IBCEP2A"",29,0)"
^XMB(3.9,55,2,15712,0)=" S STATE="""""
^XMB(3.9,55,2,15713,0)="""RTN"",""IBCEP2A"",30,0)"
^XMB(3.9,55,2,15714,0)=" D F^IBCEF(""N-RENDERING INSTITUTION"",,,IBIFN)"
^XMB(3.9,55,2,15715,0)="""RTN"",""IBCEP2A"",31,0)"
^XMB(3.9,55,2,15716,0)=" I IBXDATA D"
^XMB(3.9,55,2,15717,0)="""RTN"",""IBCEP2A"",32,0)"
^XMB(3.9,55,2,15718,0)=" . I '$P(IBXDATA,U,2) S STATE=+$P($G(^DIC(4,+IBXDATA,0)),U,2) Q"
^XMB(3.9,55,2,15719,0)="""RTN"",""IBCEP2A"",33,0)"
^XMB(3.9,55,2,15720,0)=" . S STATE=+$P($G(^IBA(355.93,+IBXDATA,0)),U,7)"
^XMB(3.9,55,2,15721,0)="""RTN"",""IBCEP2A"",34,0)"
^XMB(3.9,55,2,15722,0)=" E  D"
^XMB(3.9,55,2,15723,0)="""RTN"",""IBCEP2A"",35,0)"
^XMB(3.9,55,2,15724,0)=" . D F^IBCEF(""N-AGENT CASHIER STATE"",,,IBIFN)"
^XMB(3.9,55,2,15725,0)="""RTN"",""IBCEP2A"",36,0)"
^XMB(3.9,55,2,15726,0)=" . S STATE=IBXDATA"
^XMB(3.9,55,2,15727,0)="""RTN"",""IBCEP2A"",37,0)"
^XMB(3.9,55,2,15728,0)=" Q STATE"
^XMB(3.9,55,2,15729,0)="""RTN"",""IBCEP2A"",38,0)"
^XMB(3.9,55,2,15730,0)=" ;"
^XMB(3.9,55,2,15731,0)="""RTN"",""IBCEP2A"",39,0)"
^XMB(3.9,55,2,15732,0)="RECALCA(IBIFN) ; Recalculate all performing provider id's on bill IBIFN"
^XMB(3.9,55,2,15733,0)="""RTN"",""IBCEP2A"",40,0)"
^XMB(3.9,55,2,15734,0)=" ; IBIFN = ien of bill entry (file 399)"
^XMB(3.9,55,2,15735,0)="""RTN"",""IBCEP2A"",41,0)"
^XMB(3.9,55,2,15736,0)=" N IBZ,IBZ0,IBX,IBP,IBSEQ,DA,DIE,DR,DIR,X,Y"
^XMB(3.9,55,2,15737,0)="""RTN"",""IBCEP2A"",42,0)"
^XMB(3.9,55,2,15738,0)=" ;"
^XMB(3.9,55,2,15739,0)="""RTN"",""IBCEP2A"",43,0)"
^XMB(3.9,55,2,15740,0)=" D EN^DDIOL(""THIS FUNCTION HAS BEEN DISABLED"",,""!"") Q"
^XMB(3.9,55,2,15741,0)="""RTN"",""IBCEP2A"",44,0)"
^XMB(3.9,55,2,15742,0)=" ;"
^XMB(3.9,55,2,15743,0)="""RTN"",""IBCEP2A"",45,0)"
^XMB(3.9,55,2,15744,0)=" S DA(1)=IBIFN"
^XMB(3.9,55,2,15745,0)="""RTN"",""IBCEP2A"",46,0)"
^XMB(3.9,55,2,15746,0)=" I '$D(^XUSEC(""IB SUPERVISOR"",DUZ)) D EN^DDIOL(""YOU ARE NOT AUTHORIZED TO PERFORM THIS FUNCTION"",,""!"")"
^XMB(3.9,55,2,15747,0)="""RTN"",""IBCEP2A"",47,0)"
^XMB(3.9,55,2,15748,0)=" S IBZ=0 F  S IBZ=$O(^DGCR(399,IBIFN,""PRV"",IBZ)) Q:'IBZ  S IBP=$G(^(IBZ,0)) I $P(IBP,U,2)'="""" D"
^XMB(3.9,55,2,15749,0)="""RTN"",""IBCEP2A"",48,0)"
^XMB(3.9,55,2,15750,0)=" . S DA=IBZ"
^XMB(3.9,55,2,15751,0)="""RTN"",""IBCEP2A"",49,0)"
^XMB(3.9,55,2,15752,0)=" . F IBZ0=5:1:7 Q:'$G(^DGCR(399,IBIFN,""I""_(IBZ0-4)))  D"
^XMB(3.9,55,2,15753,0)="""RTN"",""IBCEP2A"",50,0)"
^XMB(3.9,55,2,15754,0)=" .. S IBSEQ=$$EXPAND^IBTRE(399.0222,.01,+IBP)_"" ""_$P(""PRIMARY^SECONDARY^TERTIARY"",U,IBZ0-4)_"" PROVIDER ID """
^XMB(3.9,55,2,15755,0)="""RTN"",""IBCEP2A"",51,0)"
^XMB(3.9,55,2,15756,0)=" .. S IBX=$$RECALC(.DA,IBZ0-4,$P(IBP,U,IBZ0),1)"
^XMB(3.9,55,2,15757,0)="""RTN"",""IBCEP2A"",52,0)"
^XMB(3.9,55,2,15758,0)=" .. I IBX'="""",IBX=$P(IBP,U,IBZ0) D EN^DDIOL(IBSEQ_""NO CHANGE NEEDED"",,""!"") Q"
^XMB(3.9,55,2,15759,0)="""RTN"",""IBCEP2A"",53,0)"
^XMB(3.9,55,2,15760,0)=" .. I IBX'="""",IBX'=$P(IBP,U,IBZ0) D  Q"
^XMB(3.9,55,2,15761,0)="""RTN"",""IBCEP2A"",54,0)"
^XMB(3.9,55,2,15762,0)=" ... S DR=(IBZ0/100)_""////""_IBX,DIE=""^DGCR(399,""_DA(1)_"",""""PRV"""","" D ^DIE"
^XMB(3.9,55,2,15763,0)="""RTN"",""IBCEP2A"",55,0)"
^XMB(3.9,55,2,15764,0)=" ... D EN^DDIOL(IBSEQ_""CHANGED TO ""_IBX,,""!"")"
^XMB(3.9,55,2,15765,0)="""RTN"",""IBCEP2A"",56,0)"
^XMB(3.9,55,2,15766,0)=" .. D EN^DDIOL(IBSEQ_""NOT FOUND"",,""!"")"
^XMB(3.9,55,2,15767,0)="""RTN"",""IBCEP2A"",57,0)"
^XMB(3.9,55,2,15768,0)=" Q"
^XMB(3.9,55,2,15769,0)="""RTN"",""IBCEP2A"",58,0)"
^XMB(3.9,55,2,15770,0)=" ;"
^XMB(3.9,55,2,15771,0)="""RTN"",""IBCEP2A"",59,0)"
^XMB(3.9,55,2,15772,0)="RECALC(IBDA,IBSEQ,IBX,IBD) ; Recalculate id #, if possible - called"
^XMB(3.9,55,2,15773,0)="""RTN"",""IBCEP2A"",60,0)"
^XMB(3.9,55,2,15774,0)=" ;   from input transforms in subfile 399.0222, fields .05-.07"
^XMB(3.9,55,2,15775,0)="""RTN"",""IBCEP2A"",61,0)"
^XMB(3.9,55,2,15776,0)=" ; IBDA = DA array of the provider entry (file 399.0222)"
^XMB(3.9,55,2,15777,0)="""RTN"",""IBCEP2A"",62,0)"
^XMB(3.9,55,2,15778,0)=" ; IBSEQ = the numeric COB sequence of the provider id (1-3)"
^XMB(3.9,55,2,15779,0)="""RTN"",""IBCEP2A"",63,0)"
^XMB(3.9,55,2,15780,0)=" ; IBX = the current value of the id in the subfile"
^XMB(3.9,55,2,15781,0)="""RTN"",""IBCEP2A"",64,0)"
^XMB(3.9,55,2,15782,0)=" ; IBD = flag that if set to 1 will suppress the display text"
^XMB(3.9,55,2,15783,0)="""RTN"",""IBCEP2A"",65,0)"
^XMB(3.9,55,2,15784,0)=" ;"
^XMB(3.9,55,2,15785,0)="""RTN"",""IBCEP2A"",66,0)"
^XMB(3.9,55,2,15786,0)=" N IBPN,IBZ"
^XMB(3.9,55,2,15787,0)="""RTN"",""IBCEP2A"",67,0)"
^XMB(3.9,55,2,15788,0)=" S IBPN=$P($G(^DGCR(399,IBDA(1),""PRV"",IBDA,0)),U,2)"
^XMB(3.9,55,2,15789,0)="""RTN"",""IBCEP2A"",68,0)"
^XMB(3.9,55,2,15790,0)=" I IBPN="""" D:'$G(IBD) EN^DDIOL(""   CAN'T CALCULATE WITHOUT A PROVIDER NAME"","""",""?0"") G RECALCQ"
^XMB(3.9,55,2,15791,0)="""RTN"",""IBCEP2A"",69,0)"
^XMB(3.9,55,2,15792,0)=" S IBZ=$$GETID^IBCEP2(IBDA(1),2,IBPN,IBSEQ)"
^XMB(3.9,55,2,15793,0)="""RTN"",""IBCEP2A"",70,0)"
^XMB(3.9,55,2,15794,0)=" I IBZ="""" D:'$G(IBD) EN^DDIOL(""   ID COULD NOT BE DETERMINED"","""",""?0"") G RECALCQ"
^XMB(3.9,55,2,15795,0)="""RTN"",""IBCEP2A"",71,0)"
^XMB(3.9,55,2,15796,0)=" D:'$G(IBD) EN^DDIOL(""  ""_IBZ_$S(IBZ'=IBX:"""",1:"" (no change)""),"""",""?0"")"
^XMB(3.9,55,2,15797,0)="""RTN"",""IBCEP2A"",72,0)"
^XMB(3.9,55,2,15798,0)=" S IBX=IBZ"
^XMB(3.9,55,2,15799,0)="""RTN"",""IBCEP2A"",73,0)"
^XMB(3.9,55,2,15800,0)=" ;"
^XMB(3.9,55,2,15801,0)="""RTN"",""IBCEP2A"",74,0)"
^XMB(3.9,55,2,15802,0)="RECALCQ Q IBX"
^XMB(3.9,55,2,15803,0)="""RTN"",""IBCEP2A"",75,0)"
^XMB(3.9,55,2,15804,0)=" ;"
^XMB(3.9,55,2,15805,0)="""RTN"",""IBCEP2A"",76,0)"
^XMB(3.9,55,2,15806,0)="PERFPRV(IBIFN) ; Returns the variable pointer of the 'performing provider'"
^XMB(3.9,55,2,15807,0)="""RTN"",""IBCEP2A"",77,0)"
^XMB(3.9,55,2,15808,0)=" ; (attending or rendering) for a bill IBIFN"
^XMB(3.9,55,2,15809,0)="""RTN"",""IBCEP2A"",78,0)"
^XMB(3.9,55,2,15810,0)=" N IBP,IBPT,IBQ,Z"
^XMB(3.9,55,2,15811,0)="""RTN"",""IBCEP2A"",79,0)"
^XMB(3.9,55,2,15812,0)=" S Z=$$FT^IBCEF(IBIFN),IBPT=$S(Z=2:3,Z=3:4,1:0)"
^XMB(3.9,55,2,15813,0)="""RTN"",""IBCEP2A"",80,0)"
^XMB(3.9,55,2,15814,0)=" D GETPRV^IBCEU(IBIFN,IBPT,.IBP)"
^XMB(3.9,55,2,15815,0)="""RTN"",""IBCEP2A"",81,0)"
^XMB(3.9,55,2,15816,0)=" Q $P($G(IBP(IBPT,1)),U,3)"
^XMB(3.9,55,2,15817,0)="""RTN"",""IBCEP2A"",82,0)"
^XMB(3.9,55,2,15818,0)=" ;"
^XMB(3.9,55,2,15819,0)="""RTN"",""IBCEP2A"",83,0)"
^XMB(3.9,55,2,15820,0)="INSPAR(IBIFN,SEQ) ;"
^XMB(3.9,55,2,15821,0)="""RTN"",""IBCEP2A"",84,0)"
^XMB(3.9,55,2,15822,0)=" N Z,Z4,Z0"
^XMB(3.9,55,2,15823,0)="""RTN"",""IBCEP2A"",85,0)"
^XMB(3.9,55,2,15824,0)=" Q:$G(X)'=""??"""
^XMB(3.9,55,2,15825,0)="""RTN"",""IBCEP2A"",86,0)"
^XMB(3.9,55,2,15826,0)=" S:'$G(SEQ) SEQ=$$COBN^IBCEF(IBIFN)"
^XMB(3.9,55,2,15827,0)="""RTN"",""IBCEP2A"",87,0)"
^XMB(3.9,55,2,15828,0)=" S Z=+$G(^DGCR(399,IBIFN,""I""_SEQ)),Z4=$G(^DIC(36,Z,4))"
^XMB(3.9,55,2,15829,0)="""RTN"",""IBCEP2A"",88,0)"
^XMB(3.9,55,2,15830,0)=" I Z D"
^XMB(3.9,55,2,15831,0)="""RTN"",""IBCEP2A"",89,0)"
^XMB(3.9,55,2,15832,0)=" . D EN^DDIOL("">""_$J("""",20)_""-- PERFORMING PROVIDER ID PARAMETERS --"",,""!"")"
^XMB(3.9,55,2,15833,0)="""RTN"",""IBCEP2A"",90,0)"
^XMB(3.9,55,2,15834,0)=" . S Z0=$P(""  PRIMARY^SECONDARY^ TERTIARY"",U,SEQ)_"" INSURANCE: ""_$P($G(^DIC(36,Z,0)),U)"
^XMB(3.9,55,2,15835,0)="""RTN"",""IBCEP2A"",91,0)"
^XMB(3.9,55,2,15836,0)=" . D EN^DDIOL("">""_$J("""",(80-$L(Z0))\2)_Z0,,""!"")"
^XMB(3.9,55,2,15837,0)="""RTN"",""IBCEP2A"",92,0)"
^XMB(3.9,55,2,15838,0)=" . D EN^DDIOL("">  Secondary Perf Prov ID Type (HCFA): ""_$$EXPAND^IBTRE(36,4.01,+Z4),,""!"")"
^XMB(3.9,55,2,15839,0)="""RTN"",""IBCEP2A"",93,0)"
^XMB(3.9,55,2,15840,0)=" . D EN^DDIOL("">  Secondary Perf Prov ID Type (UB92): ""_$$EXPAND^IBTRE(36,4.02,$P(Z4,U,2)),,""!"")"
^XMB(3.9,55,2,15841,0)="""RTN"",""IBCEP2A"",94,0)"
^XMB(3.9,55,2,15842,0)=" . D EN^DDIOL("">    Secondary Perf Prov IDs Required: ""_$$EXPAND^IBTRE(36,4.03,$P(Z4,U,3)),,""!"")"
^XMB(3.9,55,2,15843,0)="""RTN"",""IBCEP2A"",95,0)"
^XMB(3.9,55,2,15844,0)=" . D EN^DDIOL("" "",,""!"")"
^XMB(3.9,55,2,15845,0)="""RTN"",""IBCEP2A"",96,0)"
^XMB(3.9,55,2,15846,0)=" Q"
^XMB(3.9,55,2,15847,0)="""RTN"",""IBCEP2A"",97,0)"
^XMB(3.9,55,2,15848,0)=" ;"
^XMB(3.9,55,2,15849,0)="""RTN"",""IBCEP2A"",98,0)"
^XMB(3.9,55,2,15850,0)="GETTYP(IBXIEN,IBCOBN,IBFUNC) ; Function returns provider id type for insurance co"
^XMB(3.9,55,2,15851,0)="""RTN"",""IBCEP2A"",99,0)"
^XMB(3.9,55,2,15852,0)=" ; with COB of IBCOBN on claim ien IBXIEN in first ^ pc and 1 in second"
^XMB(3.9,55,2,15853,0)="""RTN"",""IBCEP2A"",100,0)"
^XMB(3.9,55,2,15854,0)=" ; ^ piece if the id is required"
^XMB(3.9,55,2,15855,0)="""RTN"",""IBCEP2A"",101,0)"
^XMB(3.9,55,2,15856,0)=" ; "
^XMB(3.9,55,2,15857,0)="""RTN"",""IBCEP2A"",102,0)"
^XMB(3.9,55,2,15858,0)=" ; IBFUNC=1:REFERRING;2:OPERATING;3:RENDERING;4:ATTENDING;5:SUPERVISING;9:OTHER"
^XMB(3.9,55,2,15859,0)="""RTN"",""IBCEP2A"",103,0)"
^XMB(3.9,55,2,15860,0)=" ; "
^XMB(3.9,55,2,15861,0)="""RTN"",""IBCEP2A"",104,0)"
^XMB(3.9,55,2,15862,0)=" N A,R,Z,Z0"
^XMB(3.9,55,2,15863,0)="""RTN"",""IBCEP2A"",105,0)"
^XMB(3.9,55,2,15864,0)=" S A="""",R=0"
^XMB(3.9,55,2,15865,0)="""RTN"",""IBCEP2A"",106,0)"
^XMB(3.9,55,2,15866,0)=" S:'$G(IBCOBN)!(IBCOBN>3) IBCOBN=$$COBN^IBCEF(IBXIEN)"
^XMB(3.9,55,2,15867,0)="""RTN"",""IBCEP2A"",107,0)"
^XMB(3.9,55,2,15868,0)=" S Z=+$G(^DGCR(399,IBXIEN,""I""_+IBCOBN))"
^XMB(3.9,55,2,15869,0)="""RTN"",""IBCEP2A"",108,0)"
^XMB(3.9,55,2,15870,0)=" I Z D"
^XMB(3.9,55,2,15871,0)="""RTN"",""IBCEP2A"",109,0)"
^XMB(3.9,55,2,15872,0)=" . S Z0=$$FT^IBCEF(IBXIEN)"
^XMB(3.9,55,2,15873,0)="""RTN"",""IBCEP2A"",110,0)"
^XMB(3.9,55,2,15874,0)=" . S A=+$P($G(^DIC(36,Z,4)),U,$S(Z0=2&($G(IBFUNC)=1):4,Z0=2:1,1:2))"
^XMB(3.9,55,2,15875,0)="""RTN"",""IBCEP2A"",111,0)"
^XMB(3.9,55,2,15876,0)=" . I A,$G(IBFUNC)'=1 S R=$P($G(^DIC(36,Z,4)),U,3),R=$S('R:0,R=3:1,R=1:Z0=2,R=2:Z0=3,1:0)"
^XMB(3.9,55,2,15877,0)="""RTN"",""IBCEP2A"",112,0)"
^XMB(3.9,55,2,15878,0)=" . I A,$G(IBFUNC)=1 S R=+$P($G(^DIC(36,Z,4)),U,5),R=$S('R:0,Z0'=2:0,1:1)"
^XMB(3.9,55,2,15879,0)="""RTN"",""IBCEP2A"",113,0)"
^XMB(3.9,55,2,15880,0)=" Q A_U_R"
^XMB(3.9,55,2,15881,0)="""RTN"",""IBCEP2A"",114,0)"
^XMB(3.9,55,2,15882,0)=" ;"
^XMB(3.9,55,2,15883,0)="""RTN"",""IBCEP2A"",115,0)"
^XMB(3.9,55,2,15884,0)="UNIQ1(IBIFN,IBINS,IBPTYP,IBPROV,IBUNIT,IBCU,IBT) ; Match most-least specific"
^XMB(3.9,55,2,15885,0)="""RTN"",""IBCEP2A"",116,0)"
^XMB(3.9,55,2,15886,0)=" ; *** SEE PARAMETER DEFINITIONS IN IBCEP3 ***"
^XMB(3.9,55,2,15887,0)="""RTN"",""IBCEP2A"",117,0)"
^XMB(3.9,55,2,15888,0)=" ;"
^XMB(3.9,55,2,15889,0)="""RTN"",""IBCEP2A"",118,0)"
^XMB(3.9,55,2,15890,0)=" ; Start in file 355.9 (Specific Provider)"
^XMB(3.9,55,2,15891,0)="""RTN"",""IBCEP2A"",119,0)"
^XMB(3.9,55,2,15892,0)=" ;   IBPROV = (variable pointer syntax) provider on bill IBIFN"
^XMB(3.9,55,2,15893,0)="""RTN"",""IBCEP2A"",120,0)"
^XMB(3.9,55,2,15894,0)=" ;"
^XMB(3.9,55,2,15895,0)="""RTN"",""IBCEP2A"",121,0)"
^XMB(3.9,55,2,15896,0)=" N Q,Z0,Z1,Z2,IBID,IBX"
^XMB(3.9,55,2,15897,0)="""RTN"",""IBCEP2A"",122,0)"
^XMB(3.9,55,2,15898,0)=" S IBID="""""
^XMB(3.9,55,2,15899,0)="""RTN"",""IBCEP2A"",123,0)"
^XMB(3.9,55,2,15900,0)=" S IBX=$P($G(^IBA(355.9,+IBCU,0)),U,3) S:""0""[IBX IBX=""*N/A*"""
^XMB(3.9,55,2,15901,0)="""RTN"",""IBCEP2A"",124,0)"
^XMB(3.9,55,2,15902,0)=" S Z0=$$FT^IBCEF(IBIFN),Z0=$S(Z0=2:2,Z0=3:1,1:0),Z1=$$INPAT^IBCEF(IBIFN,1) S:'Z1 Z1=2 S Z2=$$ISRX^IBCEF1(IBIFN)"
^XMB(3.9,55,2,15903,0)="""RTN"",""IBCEP2A"",125,0)"
^XMB(3.9,55,2,15904,0)=" ;"
^XMB(3.9,55,2,15905,0)="""RTN"",""IBCEP2A"",126,0)"
^XMB(3.9,55,2,15906,0)=" ; Match all elements"
^XMB(3.9,55,2,15907,0)="""RTN"",""IBCEP2A"",127,0)"
^XMB(3.9,55,2,15908,0)=" F Q=$S(Z2:3,1:Z1),$S(Z2:Z1,1:"""") I Q'="""",$D(^IBA(355.9,""AUNIQ"",IBPROV,IBINS,IBX,Z0,Q,IBPTYP,IBCU)) S IBID=$P($G(^IBA(355.9,IBCU,0)),U,7),$P(IBT,U,2,3)=(IBCU_U_355.9) Q"
^XMB(3.9,55,2,15909,0)="""RTN"",""IBCEP2A"",128,0)"
^XMB(3.9,55,2,15910,0)=" G:IBID'="""" UNIQ1Q"
^XMB(3.9,55,2,15911,0)="""RTN"",""IBCEP2A"",129,0)"
^XMB(3.9,55,2,15912,0)=" ;"
^XMB(3.9,55,2,15913,0)="""RTN"",""IBCEP2A"",130,0)"
^XMB(3.9,55,2,15914,0)=" ; Match both form types,specific I/O element"
^XMB(3.9,55,2,15915,0)="""RTN"",""IBCEP2A"",131,0)"
^XMB(3.9,55,2,15916,0)=" F Q=$S(Z2:3,1:Z1),$S(Z2:Z1,1:"""") I Q'="""",$D(^IBA(355.9,""AUNIQ"",IBPROV,IBINS,IBX,0,Q,IBPTYP,IBCU)) S IBID=$P($G(^IBA(355.9,IBCU,0)),U,7),$P(IBT,U,2,3)=(IBCU_U_355.9) Q"
^XMB(3.9,55,2,15917,0)="""RTN"",""IBCEP2A"",132,0)"
^XMB(3.9,55,2,15918,0)=" G:IBID'="""" UNIQ1Q"
^XMB(3.9,55,2,15919,0)="""RTN"",""IBCEP2A"",133,0)"
^XMB(3.9,55,2,15920,0)=" ;"
^XMB(3.9,55,2,15921,0)="""RTN"",""IBCEP2A"",134,0)"
^XMB(3.9,55,2,15922,0)=" ; Match specific form type, both I/O element or Rx"
^XMB(3.9,55,2,15923,0)="""RTN"",""IBCEP2A"",135,0)"
^XMB(3.9,55,2,15924,0)=" F Q=$S(Z2:3,1:0),$S(Z2:0,1:"""") I Q'="""",$D(^IBA(355.9,""AUNIQ"",IBPROV,IBINS,IBX,Z0,Q,IBPTYP,IBCU)) S IBID=$P($G(^IBA(355.9,IBCU,0)),U,7),$P(IBT,U,2,3)=(IBCU_U_355.9) Q"
^XMB(3.9,55,2,15925,0)="""RTN"",""IBCEP2A"",136,0)"
^XMB(3.9,55,2,15926,0)=" G:IBID'="""" UNIQ1Q"
^XMB(3.9,55,2,15927,0)="""RTN"",""IBCEP2A"",137,0)"
^XMB(3.9,55,2,15928,0)=" ;"
^XMB(3.9,55,2,15929,0)="""RTN"",""IBCEP2A"",138,0)"
^XMB(3.9,55,2,15930,0)=" ; Match both form types, both I/O element or Rx"
^XMB(3.9,55,2,15931,0)="""RTN"",""IBCEP2A"",139,0)"
^XMB(3.9,55,2,15932,0)=" F Q=$S(Z2:3,1:0),$S(Z2:0,1:"""") I Q'="""",$D(^IBA(355.9,""AUNIQ"",IBPROV,IBINS,IBX,0,Q,IBPTYP,IBCU)) S IBID=$P($G(^IBA(355.9,IBCU,0)),U,7),$P(IBT,U,2,3)=(IBCU_U_355.9) Q"
^XMB(3.9,55,2,15933,0)="""RTN"",""IBCEP2A"",140,0)"
^XMB(3.9,55,2,15934,0)=" ;"
^XMB(3.9,55,2,15935,0)="""RTN"",""IBCEP2A"",141,0)"
^XMB(3.9,55,2,15936,0)="UNIQ1Q Q IBID"
^XMB(3.9,55,2,15937,0)="""RTN"",""IBCEP2A"",142,0)"
^XMB(3.9,55,2,15938,0)=" ;"
^XMB(3.9,55,2,15939,0)="""RTN"",""IBCEP2A"",143,0)"
^XMB(3.9,55,2,15940,0)="UNIQ2(IBIFN,IBINS,IBPTYP,IBUNIT,IBCU,IBT) ; Match on most-least specific"
^XMB(3.9,55,2,15941,0)="""RTN"",""IBCEP2A"",144,0)"
^XMB(3.9,55,2,15942,0)=" ; *** SEE PARAMETER DEFINITIONS IN IBCEP3 ***"
^XMB(3.9,55,2,15943,0)="""RTN"",""IBCEP2A"",145,0)"
^XMB(3.9,55,2,15944,0)=" ;"
^XMB(3.9,55,2,15945,0)="""RTN"",""IBCEP2A"",146,0)"
^XMB(3.9,55,2,15946,0)=" ; Start in file 355.91 (Specific Insurance)"
^XMB(3.9,55,2,15947,0)="""RTN"",""IBCEP2A"",147,0)"
^XMB(3.9,55,2,15948,0)=" ;"
^XMB(3.9,55,2,15949,0)="""RTN"",""IBCEP2A"",148,0)"
^XMB(3.9,55,2,15950,0)=" N Q,Z0,Z1,Z2,IBID,IBX"
^XMB(3.9,55,2,15951,0)="""RTN"",""IBCEP2A"",149,0)"
^XMB(3.9,55,2,15952,0)=" S IBID="""" S:""0""[$G(IBUNIT) IBUNIT=""*N/A*"""
^XMB(3.9,55,2,15953,0)="""RTN"",""IBCEP2A"",150,0)"
^XMB(3.9,55,2,15954,0)=" S Z0=$$FT^IBCEF(IBIFN),Z0=$S(Z0=2:2,Z0=3:1,1:0),Z1=$$INPAT^IBCEF(IBIFN,1) S:'Z1 Z1=2 S Z2=$$ISRX^IBCEF1(IBIFN)"
^XMB(3.9,55,2,15955,0)="""RTN"",""IBCEP2A"",151,0)"
^XMB(3.9,55,2,15956,0)=" ;"
^XMB(3.9,55,2,15957,0)="""RTN"",""IBCEP2A"",152,0)"
^XMB(3.9,55,2,15958,0)=" ; Match all elements"
^XMB(3.9,55,2,15959,0)="""RTN"",""IBCEP2A"",153,0)"
^XMB(3.9,55,2,15960,0)=" F Q=$S(Z2:3,1:Z1),$S(Z2:Z1,1:"""") I Q'="""",$D(^IBA(355.91,""AUNIQ"",IBINS,IBUNIT,Z0,Q,IBPTYP,IBCU)) S IBID=$P($G(^IBA(355.91,IBCU,0)),U,7),$P(IBT,U,2,3)=(IBCU_U_355.91) Q"
^XMB(3.9,55,2,15961,0)="""RTN"",""IBCEP2A"",154,0)"
^XMB(3.9,55,2,15962,0)=" G:IBID'="""" UNIQ2Q"
^XMB(3.9,55,2,15963,0)="""RTN"",""IBCEP2A"",155,0)"
^XMB(3.9,55,2,15964,0)=" ;"
^XMB(3.9,55,2,15965,0)="""RTN"",""IBCEP2A"",156,0)"
^XMB(3.9,55,2,15966,0)=" ; Match both form types,specific I/O element"
^XMB(3.9,55,2,15967,0)="""RTN"",""IBCEP2A"",157,0)"
^XMB(3.9,55,2,15968,0)=" F Q=$S(Z2:3,1:Z1),$S(Z2:Z1,1:"""") I Q'="""",$D(^IBA(355.91,""AUNIQ"",IBINS,IBUNIT,0,Q,IBPTYP,IBCU)) S IBID=$P($G(^IBA(355.91,IBCU,0)),U,7),$P(IBT,U,2,3)=(IBCU_U_355.91) Q"
^XMB(3.9,55,2,15969,0)="""RTN"",""IBCEP2A"",158,0)"
^XMB(3.9,55,2,15970,0)=" G:IBID'="""" UNIQ2Q"
^XMB(3.9,55,2,15971,0)="""RTN"",""IBCEP2A"",159,0)"
^XMB(3.9,55,2,15972,0)=" ;"
^XMB(3.9,55,2,15973,0)="""RTN"",""IBCEP2A"",160,0)"
^XMB(3.9,55,2,15974,0)=" ; Match specific form type, both I/O element or Rx"
^XMB(3.9,55,2,15975,0)="""RTN"",""IBCEP2A"",161,0)"
^XMB(3.9,55,2,15976,0)=" F Q=$S(Z2:3,1:0),$S(Z2:0,1:"""") I Q'="""",$D(^IBA(355.91,""AUNIQ"",IBINS,IBUNIT,Z0,Q,IBPTYP,IBCU)) S IBID=$P($G(^IBA(355.91,IBCU,0)),U,7),$P(IBT,U,2,3)=(IBCU_U_355.91) Q"
^XMB(3.9,55,2,15977,0)="""RTN"",""IBCEP2A"",162,0)"
^XMB(3.9,55,2,15978,0)=" G:IBID'="""" UNIQ2Q"
^XMB(3.9,55,2,15979,0)="""RTN"",""IBCEP2A"",163,0)"
^XMB(3.9,55,2,15980,0)=" ;"
^XMB(3.9,55,2,15981,0)="""RTN"",""IBCEP2A"",164,0)"
^XMB(3.9,55,2,15982,0)=" ; Match both form types, both I/O elements or Rx"
^XMB(3.9,55,2,15983,0)="""RTN"",""IBCEP2A"",165,0)"
^XMB(3.9,55,2,15984,0)=" F Q=$S(Z2:3,1:0),$S(Z2:0,1:"""") I Q'="""",$D(^IBA(355.91,""AUNIQ"",IBINS,IBUNIT,0,Q,IBPTYP,IBCU)) S IBID=$P($G(^IBA(355.91,IBCU,0)),U,7),$P(IBT,U,2,3)=(IBCU_U_355.91) Q"
^XMB(3.9,55,2,15985,0)="""RTN"",""IBCEP2A"",166,0)"
^XMB(3.9,55,2,15986,0)=" ;"
^XMB(3.9,55,2,15987,0)="""RTN"",""IBCEP2A"",167,0)"
^XMB(3.9,55,2,15988,0)="UNIQ2Q Q IBID"
^XMB(3.9,55,2,15989,0)="""RTN"",""IBCEP2A"",168,0)"
^XMB(3.9,55,2,15990,0)=" ;"
^XMB(3.9,55,2,15991,0)="""RTN"",""IBCEP2B"")"
^XMB(3.9,55,2,15992,0)="0^58^B49897444^B43061345"
^XMB(3.9,55,2,15993,0)="""RTN"",""IBCEP2B"",1,0)"
^XMB(3.9,55,2,15994,0)="IBCEP2B ;ALB/TMP - EDI UTILITIES for provider ID ;18-MAY-04"
^XMB(3.9,55,2,15995,0)="""RTN"",""IBCEP2B"",2,0)"
^XMB(3.9,55,2,15996,0)=" ;;2.0;INTEGRATED BILLING;**232,320**;21-MAR-94"
^XMB(3.9,55,2,15997,0)="""RTN"",""IBCEP2B"",3,0)"
^XMB(3.9,55,2,15998,0)=" ;"
^XMB(3.9,55,2,15999,0)="""RTN"",""IBCEP2B"",4,0)"
^XMB(3.9,55,2,16000,0)="PROVID(IBIFN,IBPRIEN,IBCOBN,DIPA) ; Provider id entry on billing screen 8"
^XMB(3.9,55,2,16001,0)="""RTN"",""IBCEP2B"",5,0)"
^XMB(3.9,55,2,16002,0)=" ; IBIFN = ien file 399"
^XMB(3.9,55,2,16003,0)="""RTN"",""IBCEP2B"",6,0)"
^XMB(3.9,55,2,16004,0)=" ; IBPRIEN = ien file 399.0222"
^XMB(3.9,55,2,16005,0)="""RTN"",""IBCEP2B"",7,0)"
^XMB(3.9,55,2,16006,0)=" ; IBCOBN = the COB number of the id being edited"
^XMB(3.9,55,2,16007,0)="""RTN"",""IBCEP2B"",8,0)"
^XMB(3.9,55,2,16008,0)=" ; DIPA = passed by ref, returned with id data"
^XMB(3.9,55,2,16009,0)="""RTN"",""IBCEP2B"",9,0)"
^XMB(3.9,55,2,16010,0)=" ; DIPA(""EDIT"")=-1 if no id editing  = 1 if edit id   = 2 if stuff id"
^XMB(3.9,55,2,16011,0)="""RTN"",""IBCEP2B"",10,0)"
^XMB(3.9,55,2,16012,0)=" ; DIPA(""PRID"")= id to stuff   DIPA(""PRIDT"")= id type to stuff"
^XMB(3.9,55,2,16013,0)="""RTN"",""IBCEP2B"",11,0)"
^XMB(3.9,55,2,16014,0)=" N PRN0,Z"
^XMB(3.9,55,2,16015,0)="""RTN"",""IBCEP2B"",12,0)"
^XMB(3.9,55,2,16016,0)=" Q:'$G(^DGCR(399,IBIFN,""I1""))"
^XMB(3.9,55,2,16017,0)="""RTN"",""IBCEP2B"",13,0)"
^XMB(3.9,55,2,16018,0)=" S PRN0=$G(^DGCR(399,IBIFN,""PRV"",IBPRIEN,0))"
^XMB(3.9,55,2,16019,0)="""RTN"",""IBCEP2B"",14,0)"
^XMB(3.9,55,2,16020,0)=" S DIPA(""EDIT"")=1,(DIPA(""PRID""),DIPA(""PRIDT""))="""""
^XMB(3.9,55,2,16021,0)="""RTN"",""IBCEP2B"",15,0)"
^XMB(3.9,55,2,16022,0)=" W @IOF"
^XMB(3.9,55,2,16023,0)="""RTN"",""IBCEP2B"",16,0)"
^XMB(3.9,55,2,16024,0)=" W !,?19,""**** SECONDARY PERFORMING PROVIDER IDs ****"""
^XMB(3.9,55,2,16025,0)="""RTN"",""IBCEP2B"",17,0)"
^XMB(3.9,55,2,16026,0)=" W !!,$P(""PRIMARY^SECONDARY^TERTIARY"",U,IBCOBN)_"" INSURANCE CO: ""_$P($G(^DIC(36,+$G(^DGCR(399,IBIFN,""I""_IBCOBN)),0)),U)"
^XMB(3.9,55,2,16027,0)="""RTN"",""IBCEP2B"",18,0)"
^XMB(3.9,55,2,16028,0)=" W !,""PROVIDER: ""_$$EXTERNAL^DILFD(399.0222,.02,"""",$P(PRN0,U,2))_"" (""_$$EXTERNAL^DILFD(399.0222,.01,"""",+PRN0)_"")"",!"
^XMB(3.9,55,2,16029,0)="""RTN"",""IBCEP2B"",19,0)"
^XMB(3.9,55,2,16030,0)=" ;"
^XMB(3.9,55,2,16031,0)="""RTN"",""IBCEP2B"",20,0)"
^XMB(3.9,55,2,16032,0)=" I $P(PRN0,U,4+IBCOBN)="""" K DIPA(""PRID""),DIPA(""PRIDT"") D NEWID(IBIFN,IBPRIEN,IBCOBN,.DIPA) ; No id currently exists for the ins seq/prov"
^XMB(3.9,55,2,16033,0)="""RTN"",""IBCEP2B"",21,0)"
^XMB(3.9,55,2,16034,0)=" ;"
^XMB(3.9,55,2,16035,0)="""RTN"",""IBCEP2B"",22,0)"
^XMB(3.9,55,2,16036,0)=" Q"
^XMB(3.9,55,2,16037,0)="""RTN"",""IBCEP2B"",23,0)"
^XMB(3.9,55,2,16038,0)=" ;"
^XMB(3.9,55,2,16039,0)="""RTN"",""IBCEP2B"",24,0)"
^XMB(3.9,55,2,16040,0)="NEWID(IBIFN,IBPRIEN,IBCOBN,DIPA) ;"
^XMB(3.9,55,2,16041,0)="""RTN"",""IBCEP2B"",25,0)"
^XMB(3.9,55,2,16042,0)=" N IBDEF,IBCT,IBNUM,IBINS,IBFRM,IBCAR,IBARR,IBARRS,IB0,IBM,IBQUIT,IBSEL,PRN,PRT,PRN,PRN0,DIR,X,Y,Z,Z0,IBZ,IBZ1,IBTYP,IBREQ,IBREQT,IBTYPN,IBID,IBUSED"
^XMB(3.9,55,2,16043,0)="""RTN"",""IBCEP2B"",26,0)"
^XMB(3.9,55,2,16044,0)=" S IBREQ=0,IBREQT="""""
^XMB(3.9,55,2,16045,0)="""RTN"",""IBCEP2B"",27,0)"
^XMB(3.9,55,2,16046,0)=" S PRN0=$G(^DGCR(399,IBIFN,""PRV"",IBPRIEN,0))"
^XMB(3.9,55,2,16047,0)="""RTN"",""IBCEP2B"",28,0)"
^XMB(3.9,55,2,16048,0)=" S Z(IBCOBN)=$S($G(DIPA(""I""_IBCOBN)):$$GETTYP^IBCEP2A(IBIFN,IBCOBN,$P(PRN0,U)),1:"""")"
^XMB(3.9,55,2,16049,0)="""RTN"",""IBCEP2B"",29,0)"
^XMB(3.9,55,2,16050,0)=" S IBINS=+$G(^DGCR(399,IBIFN,""I""_IBCOBN)),IB0=$G(^DGCR(399,IBIFN,""PRV"",IBPRIEN,0))"
^XMB(3.9,55,2,16051,0)="""RTN"",""IBCEP2B"",30,0)"
^XMB(3.9,55,2,16052,0)=" S IBCAR=$$INPAT^IBCEF(IBIFN,1),IBCAR=$S('IBCAR:2,1:1)"
^XMB(3.9,55,2,16053,0)="""RTN"",""IBCEP2B"",31,0)"
^XMB(3.9,55,2,16054,0)=" S IBFRM=$$FT^IBCEF(IBIFN),IBFRM=$S(IBFRM=2:2,1:1)"
^XMB(3.9,55,2,16055,0)="""RTN"",""IBCEP2B"",32,0)"
^XMB(3.9,55,2,16056,0)=" I $P(Z(IBCOBN),U) D"
^XMB(3.9,55,2,16057,0)="""RTN"",""IBCEP2B"",33,0)"
^XMB(3.9,55,2,16058,0)=" . W !,""INS. COMPANY'S DEFAULT SECONDARY ID TYPE IS: ""_$$EXTERNAL^DILFD(36,4.01,"""",$P(Z(IBCOBN),U)) S IBREQT=+Z(IBCOBN)"
^XMB(3.9,55,2,16059,0)="""RTN"",""IBCEP2B"",34,0)"
^XMB(3.9,55,2,16060,0)=" . I $P(Z(IBCOBN),U,2) W !,?2,"" AND IS REQUIRED TO BE ENTERED FOR THIS CLAIM"" S IBREQ=1"
^XMB(3.9,55,2,16061,0)="""RTN"",""IBCEP2B"",35,0)"
^XMB(3.9,55,2,16062,0)=" I $$CUNEED^IBCEP3(IBIFN,IBCOBN) W !,""CARE UNITS ARE DEFINED""_$S($P($G(^DIC(36,IBINS,4)),U,9)'="""":"" AS ""_$P(^(4),U,9),1:"""")_"" FOR THESE IDs"""
^XMB(3.9,55,2,16063,0)="""RTN"",""IBCEP2B"",36,0)"
^XMB(3.9,55,2,16064,0)=" D PRACT^IBCEF71(IBINS,IBFRM,IBCAR,$P(IB0,U,2),.IBARR,$P(IB0,U),$S($$COBN^IBCEF(IBIFN)=IBCOBN:""C"",1:""O""),355.9,1)"
^XMB(3.9,55,2,16065,0)="""RTN"",""IBCEP2B"",37,0)"
^XMB(3.9,55,2,16066,0)=" S (IBNUM,IBCT)=0,IBDEF="""""
^XMB(3.9,55,2,16067,0)="""RTN"",""IBCEP2B"",38,0)"
^XMB(3.9,55,2,16068,0)=" I $O(IBARR(""""))="""" S IBCT=IBCT+1,DIR(""A"",IBCT)=""NO SECONDARY IDS ARE DEFINED FOR THIS PROV THAT ARE VALID FOR THIS CLAIM"""
^XMB(3.9,55,2,16069,0)="""RTN"",""IBCEP2B"",39,0)"
^XMB(3.9,55,2,16070,0)=" S IBCT=IBCT+1,DIR(""A"",IBCT)=""SELECT A SECONDARY ID OR ACTION FROM THE LIST BELOW: "",IBCT=IBCT+1,DIR(""A"",IBCT)="" """
^XMB(3.9,55,2,16071,0)="""RTN"",""IBCEP2B"",40,0)"
^XMB(3.9,55,2,16072,0)=" ;"
^XMB(3.9,55,2,16073,0)="""RTN"",""IBCEP2B"",41,0)"
^XMB(3.9,55,2,16074,0)=" S IBCT=IBCT+1,IBNUM=IBNUM+1,DIR(""A"",IBCT)=""  ""_$E(IBNUM_$J("""",3),1,3)_"" -  NO SECONDARY ID NEEDED"",IBNUM=IBNUM+1,IBCT=IBCT+1,DIR(""A"",IBCT)=""  ""_$E(IBNUM_$J("""",3),1,3)_"" -  ADD AN ID FOR THIS CLAIM ONLY"""
^XMB(3.9,55,2,16075,0)="""RTN"",""IBCEP2B"",42,0)"
^XMB(3.9,55,2,16076,0)=" I $O(IBARR(""""))="""" S IBDEF=1,DIPA(""EDIT"")=$$SELID(.DIR,IBDEF,.IBID,.DIPA,IBNUM) Q"
^XMB(3.9,55,2,16077,0)="""RTN"",""IBCEP2B"",43,0)"
^XMB(3.9,55,2,16078,0)=" ;"
^XMB(3.9,55,2,16079,0)="""RTN"",""IBCEP2B"",44,0)"
^XMB(3.9,55,2,16080,0)=" S PRN=$$GETID^IBCEP2(IBIFN,2,$P(PRN0,U,2),IBCOBN,.PRT,,$P(PRN0,U)),IBDEF="""""
^XMB(3.9,55,2,16081,0)="""RTN"",""IBCEP2B"",45,0)"
^XMB(3.9,55,2,16082,0)=" ;"
^XMB(3.9,55,2,16083,0)="""RTN"",""IBCEP2B"",46,0)"
^XMB(3.9,55,2,16084,0)=" I PRN'="""",PRT D"
^XMB(3.9,55,2,16085,0)="""RTN"",""IBCEP2B"",47,0)"
^XMB(3.9,55,2,16086,0)=" . N PRT1"
^XMB(3.9,55,2,16087,0)="""RTN"",""IBCEP2B"",48,0)"
^XMB(3.9,55,2,16088,0)=" . S PRT1=$P($G(^IBE(355.97,+PRT,0)),U)"
^XMB(3.9,55,2,16089,0)="""RTN"",""IBCEP2B"",49,0)"
^XMB(3.9,55,2,16090,0)=" . I $P($G(^IBE(355.97,+PRT,1)),U,3) S PRT1=""ST LIC(""_$P($G(^DIC(5,+$$CAREST^IBCEP2A(IBIFN),0)),U,2)_"")"""
^XMB(3.9,55,2,16091,0)="""RTN"",""IBCEP2B"",50,0)"
^XMB(3.9,55,2,16092,0)=" . S IBCT=IBCT+1,IBNUM=IBNUM+1"
^XMB(3.9,55,2,16093,0)="""RTN"",""IBCEP2B"",51,0)"
^XMB(3.9,55,2,16094,0)=" . S DIR(""A"",IBCT)=""  ""_$E(IBNUM_$J("""",3),1,3)_"" -  ""_$E(""<DEFAULT> ""_PRN_$J("""",29),1,29)_""  ""_$E(PRT1_$J("""",15),1,15)"
^XMB(3.9,55,2,16095,0)="""RTN"",""IBCEP2B"",52,0)"
^XMB(3.9,55,2,16096,0)=" . S DIR(""A"",IBCT)=DIR(""A"",IBCT)_""  ""_$S($P(PRT,U,3)'[""355.9"":"""",$P($G(^IBA(+$P(PRT,U,3),+$P(PRT,U,2),0)),U,3)'="""":$$EXTERNAL^DILFD(355.9,.03,"""",$P($G(^IBA(+$P(PRT,U,3),+$P(PRT,U,2),0)),U,3)),1:"""")"
^XMB(3.9,55,2,16097,0)="""RTN"",""IBCEP2B"",53,0)"
^XMB(3.9,55,2,16098,0)=" . S IBID(IBNUM)=PRN_U_+PRT,IBDEF=IBNUM,IBID(IBNUM,1)=DIR(""A"",IBCT),IBDEF=IBNUM,IBDEF(""IEN"")=$P(PRT,U,2,3)"
^XMB(3.9,55,2,16099,0)="""RTN"",""IBCEP2B"",54,0)"
^XMB(3.9,55,2,16100,0)=" . S IBUSED(PRT,PRN,0)="""""
^XMB(3.9,55,2,16101,0)="""RTN"",""IBCEP2B"",55,0)"
^XMB(3.9,55,2,16102,0)=" ;"
^XMB(3.9,55,2,16103,0)="""RTN"",""IBCEP2B"",56,0)"
^XMB(3.9,55,2,16104,0)=" S IBQUIT=0,IBSEL=1"
^XMB(3.9,55,2,16105,0)="""RTN"",""IBCEP2B"",57,0)"
^XMB(3.9,55,2,16106,0)=" ; Sort ids by id type"
^XMB(3.9,55,2,16107,0)="""RTN"",""IBCEP2B"",58,0)"
^XMB(3.9,55,2,16108,0)=" S IBZ="""" F  S IBZ=$O(IBARR(IBZ)) Q:IBZ=""""  S IBZ1="""" F  S IBZ1=$O(IBARR(IBZ,IBZ1)) Q:IBZ1=""""  D"
^XMB(3.9,55,2,16109,0)="""RTN"",""IBCEP2B"",59,0)"
^XMB(3.9,55,2,16110,0)=" . S IBTYP=+$P(IBARR(IBZ,IBZ1),U,9)"
^XMB(3.9,55,2,16111,0)="""RTN"",""IBCEP2B"",60,0)"
^XMB(3.9,55,2,16112,0)=" . I $P(IBARR(IBZ,IBZ1),U,4)]"""" Q:$D(IBUSED(IBTYP,$P(IBARR(IBZ,IBZ1),U,4),+$P(IBARR(IBZ,IBZ1),U,7)))"
^XMB(3.9,55,2,16113,0)="""RTN"",""IBCEP2B"",61,0)"
^XMB(3.9,55,2,16114,0)=" . I $P($G(IBDEF(""IEN"")),U,2)[""355.9"",$P(IBARR(IBZ,IBZ1),U,8),$P(IBARR(IBZ,IBZ1),U,8)=+$G(IBDEF(""IEN"")) Q:$S($P(IBZ1,U)'[""INS DEF"":$P($G(IBDEF(""IEN"")),U,2)=355.9,1:$P($G(IBDEF(""IEN"")),U,2)=355.91)"
^XMB(3.9,55,2,16115,0)="""RTN"",""IBCEP2B"",62,0)"
^XMB(3.9,55,2,16116,0)=" . S IBARRS(IBTYP,IBZ,IBZ1)=IBARR(IBZ,IBZ1)"
^XMB(3.9,55,2,16117,0)="""RTN"",""IBCEP2B"",63,0)"
^XMB(3.9,55,2,16118,0)=" . I $P(IBARR(IBZ,IBZ1),U,4)]"""" S IBUSED(IBTYP,$P(IBARR(IBZ,IBZ1),U,4),+$P(IBARR(IBZ,IBZ1),U,7))="""""
^XMB(3.9,55,2,16119,0)="""RTN"",""IBCEP2B"",64,0)"
^XMB(3.9,55,2,16120,0)=" S IBTYP="""" F  S IBTYP=$O(IBARRS(IBTYP)) Q:IBTYP=""""  S IBZ="""" F  S IBZ=$O(IBARRS(IBTYP,IBZ)) Q:IBZ=""""  D  Q:IBQUIT"
^XMB(3.9,55,2,16121,0)="""RTN"",""IBCEP2B"",65,0)"
^XMB(3.9,55,2,16122,0)=" . S IBZ1="""" F  S IBZ1=$O(IBARRS(IBTYP,IBZ,IBZ1)) Q:IBZ1=""""  S IBCT=IBCT+1,IBNUM=IBNUM+1 D  Q:IBQUIT"
^XMB(3.9,55,2,16123,0)="""RTN"",""IBCEP2B"",66,0)"
^XMB(3.9,55,2,16124,0)=" .. S Z0=IBARRS(IBTYP,IBZ,IBZ1)"
^XMB(3.9,55,2,16125,0)="""RTN"",""IBCEP2B"",67,0)"
^XMB(3.9,55,2,16126,0)=" .. S IBARR=$S($P(Z0,U,8)&(IBZ1'[""LIC""):$G(^IBA(""355.9""_$S($P(IBZ1,U)'=""INS DEF"":"""",1:1),+$P(Z0,U,8),0)),1:"""")"
^XMB(3.9,55,2,16127,0)="""RTN"",""IBCEP2B"",68,0)"
^XMB(3.9,55,2,16128,0)=" .. S IBTYPN=$S(IBTYP=+$$STLIC^IBCEP8():""ST LIC (""_$P($G(^DIC(5,+$P(Z0,U,7),0)),U,2)_"")"",1:$P($G(^IBE(355.97,IBTYP,0)),U))"
^XMB(3.9,55,2,16129,0)="""RTN"",""IBCEP2B"",69,0)"
^XMB(3.9,55,2,16130,0)=" .. S DIR(""A"",IBCT)=""  ""_$E(IBNUM_$J("""",3),1,3)_"" -  ""_$E($S($P(IBZ1,U)=""INS DEF"":""<INS DEF> "",1:"""")_$P(Z0,U,4)_$J("""",29),1,29)_""  ""_$E(IBTYPN_$J("""",15),1,15)_""  ""_$S($P(IBARR,U,3):$$EXTERNAL^DILFD(355.9,.03,"""",$P(IBARR,U,3)),1:"""")"
^XMB(3.9,55,2,16131,0)="""RTN"",""IBCEP2B"",70,0)"
^XMB(3.9,55,2,16132,0)=" .. S IBID(IBNUM,1)=DIR(""A"",IBCT),IBID(IBNUM)=$P(Z0,U,4)_U_IBTYP"
^XMB(3.9,55,2,16133,0)="""RTN"",""IBCEP2B"",71,0)"
^XMB(3.9,55,2,16134,0)=" .. I (IBNUM#15)=0 S IBM=$$MORE(.DIR) D  Q:IBQUIT"
^XMB(3.9,55,2,16135,0)="""RTN"",""IBCEP2B"",72,0)"
^XMB(3.9,55,2,16136,0)=" ... I IBM<0 S IBQUIT=1,IBSEL=0 Q  ; User aborted list"
^XMB(3.9,55,2,16137,0)="""RTN"",""IBCEP2B"",73,0)"
^XMB(3.9,55,2,16138,0)=" ... I 'IBM S IBQUIT=1 Q  ; User wants to select"
^XMB(3.9,55,2,16139,0)="""RTN"",""IBCEP2B"",74,0)"
^XMB(3.9,55,2,16140,0)=" ... W ! K DIR S IBCT=1"
^XMB(3.9,55,2,16141,0)="""RTN"",""IBCEP2B"",75,0)"
^XMB(3.9,55,2,16142,0)=" I 'IBSEL S DIPA(""EDIT"")=-1"
^XMB(3.9,55,2,16143,0)="""RTN"",""IBCEP2B"",76,0)"
^XMB(3.9,55,2,16144,0)=" I IBSEL S:IBDEF=""""&$G(IBREQ) IBDEF=2 S DIPA(""EDIT"")=$$SELID(.DIR,IBDEF,.IBID,.DIPA,IBNUM)"
^XMB(3.9,55,2,16145,0)="""RTN"",""IBCEP2B"",77,0)"
^XMB(3.9,55,2,16146,0)=" Q"
^XMB(3.9,55,2,16147,0)="""RTN"",""IBCEP2B"",78,0)"
^XMB(3.9,55,2,16148,0)=" ;"
^XMB(3.9,55,2,16149,0)="""RTN"",""IBCEP2B"",79,0)"
^XMB(3.9,55,2,16150,0)="SELID(DIR,IBDEF,IBID,DIPA,IBNUM) ; Returns the selection from the array of possible IDs/ID actions"
^XMB(3.9,55,2,16151,0)="""RTN"",""IBCEP2B"",80,0)"
^XMB(3.9,55,2,16152,0)=" N IDACT,IDSEL,X,Y"
^XMB(3.9,55,2,16153,0)="""RTN"",""IBCEP2B"",81,0)"
^XMB(3.9,55,2,16154,0)=" S IDACT="""""
^XMB(3.9,55,2,16155,0)="""RTN"",""IBCEP2B"",82,0)"
^XMB(3.9,55,2,16156,0)=" S DIR(""B"")=$S('$G(IBDEF):1,1:IBDEF),DIR(""A"",+$O(DIR(""A"",""""),-1)+1)="" """
^XMB(3.9,55,2,16157,0)="""RTN"",""IBCEP2B"",83,0)"
^XMB(3.9,55,2,16158,0)=" S DIR(0)=""NA^1:""_IBNUM,DIR(""A"")=""Selection: "" W ! D ^DIR K DIR"
^XMB(3.9,55,2,16159,0)="""RTN"",""IBCEP2B"",84,0)"
^XMB(3.9,55,2,16160,0)=" I $D(DTOUT)!$D(DUOUT)!(Y=1) S IDACT=-1 G SELIDQ"
^XMB(3.9,55,2,16161,0)="""RTN"",""IBCEP2B"",85,0)"
^XMB(3.9,55,2,16162,0)=" I Y=2 S IDACT=1 G SELIDQ"
^XMB(3.9,55,2,16163,0)="""RTN"",""IBCEP2B"",86,0)"
^XMB(3.9,55,2,16164,0)=" S IDSEL=Y"
^XMB(3.9,55,2,16165,0)="""RTN"",""IBCEP2B"",87,0)"
^XMB(3.9,55,2,16166,0)=" S DIR(""A"",1)=""ID SELECTED:"",DIR(""A"",2)=""  ""_$G(IBID(+Y,1)),DIR(""A"")=""IS THIS CORRECT?: "",DIR(""B"")=""YES"",DIR(0)=""YA"" W ! D ^DIR K DIR"
^XMB(3.9,55,2,16167,0)="""RTN"",""IBCEP2B"",88,0)"
^XMB(3.9,55,2,16168,0)=" I Y'=1 S IDACT=-1 G SELIDQ"
^XMB(3.9,55,2,16169,0)="""RTN"",""IBCEP2B"",89,0)"
^XMB(3.9,55,2,16170,0)=" S DIPA(""PRID"")=$P(IBID(IDSEL),U),DIPA(""PRIDT"")=$P(IBID(IDSEL),U,2),IDACT=2"
^XMB(3.9,55,2,16171,0)="""RTN"",""IBCEP2B"",90,0)"
^XMB(3.9,55,2,16172,0)=" ;"
^XMB(3.9,55,2,16173,0)="""RTN"",""IBCEP2B"",91,0)"
^XMB(3.9,55,2,16174,0)="SELIDQ Q IDACT"
^XMB(3.9,55,2,16175,0)="""RTN"",""IBCEP2B"",92,0)"
^XMB(3.9,55,2,16176,0)=" ;"
^XMB(3.9,55,2,16177,0)="""RTN"",""IBCEP2B"",93,0)"
^XMB(3.9,55,2,16178,0)="MORE(DIR) ;"
^XMB(3.9,55,2,16179,0)="""RTN"",""IBCEP2B"",94,0)"
^XMB(3.9,55,2,16180,0)=" N DIR,X,Y,DUOUT,DTOUT"
^XMB(3.9,55,2,16181,0)="""RTN"",""IBCEP2B"",95,0)"
^XMB(3.9,55,2,16182,0)=" S DIR(0)=""YA"",DIR(""A"")=""MORE?: "",DIR(""B"")=""NO"" W ! D ^DIR K DIR(""B"")"
^XMB(3.9,55,2,16183,0)="""RTN"",""IBCEP2B"",96,0)"
^XMB(3.9,55,2,16184,0)=" Q $S($D(DTOUT)!$D(DUOUT):-1,1:Y)"
^XMB(3.9,55,2,16185,0)="""RTN"",""IBCEP2B"",97,0)"
^XMB(3.9,55,2,16186,0)=" ;"
^XMB(3.9,55,2,16187,0)="""RTN"",""IBCEP2B"",98,0)"
^XMB(3.9,55,2,16188,0)=" ; IBFIDFL = E = Electronic Form Type"
^XMB(3.9,55,2,16189,0)="""RTN"",""IBCEP2B"",99,0)"
^XMB(3.9,55,2,16190,0)=" ;           A = Additional ID's"
^XMB(3.9,55,2,16191,0)="""RTN"",""IBCEP2B"",100,0)"
^XMB(3.9,55,2,16192,0)=" ;           LF - VA Lab/Facility"
^XMB(3.9,55,2,16193,0)="""RTN"",""IBCEP2B"",101,0)"
^XMB(3.9,55,2,16194,0)="FACID(IBINS,IBFIDFL) ; Enter/edit billing facility ids"
^XMB(3.9,55,2,16195,0)="""RTN"",""IBCEP2B"",102,0)"
^XMB(3.9,55,2,16196,0)=" ; IBINS = ien of ins co (file 36)"
^XMB(3.9,55,2,16197,0)="""RTN"",""IBCEP2B"",103,0)"
^XMB(3.9,55,2,16198,0)=" N IBID,Z,Z0,Y"
^XMB(3.9,55,2,16199,0)="""RTN"",""IBCEP2B"",104,0)"
^XMB(3.9,55,2,16200,0)=" K ^TMP($J,""IBBF_ID"")"
^XMB(3.9,55,2,16201,0)="""RTN"",""IBCEP2B"",105,0)"
^XMB(3.9,55,2,16202,0)=" W @IOF"
^XMB(3.9,55,2,16203,0)="""RTN"",""IBCEP2B"",106,0)"
^XMB(3.9,55,2,16204,0)=" D GETBPNUM(IBINS)"
^XMB(3.9,55,2,16205,0)="""RTN"",""IBCEP2B"",107,0)"
^XMB(3.9,55,2,16206,0)=" K ^TMP(""IBCE_PRVFAC_MAINT_INS"",$J)"
^XMB(3.9,55,2,16207,0)="""RTN"",""IBCEP2B"",108,0)"
^XMB(3.9,55,2,16208,0)=" S ^TMP(""IBCE_PRVFAC_MAINT_INS"",$J)=IBFIDFL_U_IBINS_U_""1"""
^XMB(3.9,55,2,16209,0)="""RTN"",""IBCEP2B"",109,0)"
^XMB(3.9,55,2,16210,0)=" D EN^VALM(""IBCE PRVFAC MAINT"")"
^XMB(3.9,55,2,16211,0)="""RTN"",""IBCEP2B"",110,0)"
^XMB(3.9,55,2,16212,0)=" K ^TMP(""IBCE_PRVFAC_MAINT_INS"",$J)"
^XMB(3.9,55,2,16213,0)="""RTN"",""IBCEP2B"",111,0)"
^XMB(3.9,55,2,16214,0)=" W @IOF"
^XMB(3.9,55,2,16215,0)="""RTN"",""IBCEP2B"",112,0)"
^XMB(3.9,55,2,16216,0)=" D FULL^VALM1"
^XMB(3.9,55,2,16217,0)="""RTN"",""IBCEP2B"",113,0)"
^XMB(3.9,55,2,16218,0)=" Q"
^XMB(3.9,55,2,16219,0)="""RTN"",""IBCEP2B"",114,0)"
^XMB(3.9,55,2,16220,0)=" ;"
^XMB(3.9,55,2,16221,0)="""RTN"",""IBCEP2B"",115,0)"
^XMB(3.9,55,2,16222,0)="GETBPNUM(IBINS) ;"
^XMB(3.9,55,2,16223,0)="""RTN"",""IBCEP2B"",116,0)"
^XMB(3.9,55,2,16224,0)=" N Z,Z0,IBID,IBMAIN"
^XMB(3.9,55,2,16225,0)="""RTN"",""IBCEP2B"",117,0)"
^XMB(3.9,55,2,16226,0)=" S IBMAIN=$$MAIN(),^TMP($J,""IBBF_ID"")=IBMAIN"
^XMB(3.9,55,2,16227,0)="""RTN"",""IBCEP2B"",118,0)"
^XMB(3.9,55,2,16228,0)=" S IBID=$$BF^IBCU()"
^XMB(3.9,55,2,16229,0)="""RTN"",""IBCEP2B"",119,0)"
^XMB(3.9,55,2,16230,0)=" S Z=0 F  S Z=$O(^IBA(355.92,""B"",IBINS,Z)) Q:'Z  D"
^XMB(3.9,55,2,16231,0)="""RTN"",""IBCEP2B"",120,0)"
^XMB(3.9,55,2,16232,0)=" . S Z0=$G(^IBA(355.92,Z,0))"
^XMB(3.9,55,2,16233,0)="""RTN"",""IBCEP2B"",121,0)"
^XMB(3.9,55,2,16234,0)=" . Q:$P(Z0,U,8)'=""E""  ; WCJ 1/13/06  There are several ID types in this file "
^XMB(3.9,55,2,16235,0)="""RTN"",""IBCEP2B"",122,0)"
^XMB(3.9,55,2,16236,0)=" . Q:$P(Z0,U,3)]"""""
^XMB(3.9,55,2,16237,0)="""RTN"",""IBCEP2B"",123,0)"
^XMB(3.9,55,2,16238,0)=" .; I $P(Z0,U,6)=IBID S ^TMP($J,""IBBF_ID"",$S($P(Z0,U,5)=IBMAIN:0,1:+$P(Z0,U,5)),+$P(Z0,U,4))=$P(Z0,U,7)"
^XMB(3.9,55,2,16239,0)="""RTN"",""IBCEP2B"",124,0)"
^XMB(3.9,55,2,16240,0)=" . S ^TMP($J,""IBBF_ID"",$S($P(Z0,U,5)=IBMAIN:0,1:+$P(Z0,U,5)),+$P(Z0,U,4))=$P(Z0,U,7)"
^XMB(3.9,55,2,16241,0)="""RTN"",""IBCEP2B"",125,0)"
^XMB(3.9,55,2,16242,0)=" . S ^TMP($J,""IBBF_ID"",$S($P(Z0,U,5)=IBMAIN:0,1:+$P(Z0,U,5)),+$P(Z0,U,4),""QUAL"")=$P(Z0,U,6)"
^XMB(3.9,55,2,16243,0)="""RTN"",""IBCEP2B"",126,0)"
^XMB(3.9,55,2,16244,0)=" Q"
^XMB(3.9,55,2,16245,0)="""RTN"",""IBCEP2B"",127,0)"
^XMB(3.9,55,2,16246,0)=" ;"
^XMB(3.9,55,2,16247,0)="""RTN"",""IBCEP2B"",128,0)"
^XMB(3.9,55,2,16248,0)="MAIN() ; Returns ien of default division or the main division for facility if"
^XMB(3.9,55,2,16249,0)="""RTN"",""IBCEP2B"",129,0)"
^XMB(3.9,55,2,16250,0)=" ; no IB DEFAULT DIVISION set"
^XMB(3.9,55,2,16251,0)="""RTN"",""IBCEP2B"",130,0)"
^XMB(3.9,55,2,16252,0)=" N IBMAIN"
^XMB(3.9,55,2,16253,0)="""RTN"",""IBCEP2B"",131,0)"
^XMB(3.9,55,2,16254,0)=" S IBMAIN=$P($G(^IBE(350.9,1,1)),U,25) S:'IBMAIN IBMAIN=+$$PRIM^VASITE()"
^XMB(3.9,55,2,16255,0)="""RTN"",""IBCEP2B"",132,0)"
^XMB(3.9,55,2,16256,0)=" Q IBMAIN"
^XMB(3.9,55,2,16257,0)="""RTN"",""IBCEP2B"",133,0)"
^XMB(3.9,55,2,16258,0)=" ;"
^XMB(3.9,55,2,16259,0)="""RTN"",""IBCEP2B"",134,0)"
^XMB(3.9,55,2,16260,0)="FACNUM(IBIFN,IBCOB,IBQF) ; Function returns the current division's fac billing"
^XMB(3.9,55,2,16261,0)="""RTN"",""IBCEP2B"",135,0)"
^XMB(3.9,55,2,16262,0)=" ; prov id for the COB insurance sequence from file 355.92"
^XMB(3.9,55,2,16263,0)="""RTN"",""IBCEP2B"",136,0)"
^XMB(3.9,55,2,16264,0)=" ; IBIFN = ien file 399"
^XMB(3.9,55,2,16265,0)="""RTN"",""IBCEP2B"",137,0)"
^XMB(3.9,55,2,16266,0)=" ; IBCOB = # of COB ins seq or if """", current assumed"
^XMB(3.9,55,2,16267,0)="""RTN"",""IBCEP2B"",138,0)"
^XMB(3.9,55,2,16268,0)=" ; IBQF - 1 if qualifier is to be returned instead of ID"
^XMB(3.9,55,2,16269,0)="""RTN"",""IBCEP2B"",139,0)"
^XMB(3.9,55,2,16270,0)=" N Z,IBDIV,IBFT,X"
^XMB(3.9,55,2,16271,0)="""RTN"",""IBCEP2B"",140,0)"
^XMB(3.9,55,2,16272,0)=" S X="""""
^XMB(3.9,55,2,16273,0)="""RTN"",""IBCEP2B"",141,0)"
^XMB(3.9,55,2,16274,0)=" S IBDIV=+$P($G(^DGCR(399,IBIFN,0)),U,22)"
^XMB(3.9,55,2,16275,0)="""RTN"",""IBCEP2B"",142,0)"
^XMB(3.9,55,2,16276,0)=" S:'IBDIV IBDIV=$$MAIN()"
^XMB(3.9,55,2,16277,0)="""RTN"",""IBCEP2B"",143,0)"
^XMB(3.9,55,2,16278,0)=" S IBFT=$$FT^IBCEF(IBIFN),IBFT=$S(IBFT=3:1,1:2)"
^XMB(3.9,55,2,16279,0)="""RTN"",""IBCEP2B"",144,0)"
^XMB(3.9,55,2,16280,0)=" S:'$G(IBCOB) IBCOB=+$$COBN^IBCEF(IBIFN)"
^XMB(3.9,55,2,16281,0)="""RTN"",""IBCEP2B"",145,0)"
^XMB(3.9,55,2,16282,0)=" K ^TMP($J,""IBBF_ID"")"
^XMB(3.9,55,2,16283,0)="""RTN"",""IBCEP2B"",146,0)"
^XMB(3.9,55,2,16284,0)=" D GETBPNUM(+$P($G(^DGCR(399,IBIFN,""M"")),U,IBCOB))"
^XMB(3.9,55,2,16285,0)="""RTN"",""IBCEP2B"",147,0)"
^XMB(3.9,55,2,16286,0)=" I IBDIV=+$G(^TMP($J,""IBBF_ID"")) S IBDIV=0"
^XMB(3.9,55,2,16287,0)="""RTN"",""IBCEP2B"",148,0)"
^XMB(3.9,55,2,16288,0)=" I '$G(IBQF) S X=$S($D(^TMP($J,""IBBF_ID"",IBDIV,IBFT)):^(IBFT),1:$G(^TMP($J,""IBBF_ID"",0,IBFT)))"
^XMB(3.9,55,2,16289,0)="""RTN"",""IBCEP2B"",149,0)"
^XMB(3.9,55,2,16290,0)=" I $G(IBQF) S X=$S($D(^TMP($J,""IBBF_ID"",IBDIV,IBFT,""QUAL"")):^(""QUAL""),1:$G(^TMP($J,""IBBF_ID"",0,IBFT,""QUAL"")))"
^XMB(3.9,55,2,16291,0)="""RTN"",""IBCEP2B"",150,0)"
^XMB(3.9,55,2,16292,0)=" K ^TMP($J,""IBBF_ID"")"
^XMB(3.9,55,2,16293,0)="""RTN"",""IBCEP2B"",151,0)"
^XMB(3.9,55,2,16294,0)=" Q X"
^XMB(3.9,55,2,16295,0)="""RTN"",""IBCEP2B"",152,0)"
^XMB(3.9,55,2,16296,0)=" ;"
^XMB(3.9,55,2,16297,0)="""RTN"",""IBCEP2B"",153,0)"
^XMB(3.9,55,2,16298,0)="SOP(IBIFN,IBZD) ; Returns X12 current source of pay code for bill ien IBIFN"
^XMB(3.9,55,2,16299,0)="""RTN"",""IBCEP2B"",154,0)"
^XMB(3.9,55,2,16300,0)=" ; IBZD = the current ins policy type, if known"
^XMB(3.9,55,2,16301,0)="""RTN"",""IBCEP2B"",155,0)"
^XMB(3.9,55,2,16302,0)=" N IBZ"
^XMB(3.9,55,2,16303,0)="""RTN"",""IBCEP2B"",156,0)"
^XMB(3.9,55,2,16304,0)=" S IBZ="""""
^XMB(3.9,55,2,16305,0)="""RTN"",""IBCEP2B"",157,0)"
^XMB(3.9,55,2,16306,0)=" I $G(IBZD)="""" D F^IBCEF(""N-CURRENT INS POLICY TYPE"",""IBZD"",,IBIFN)"
^XMB(3.9,55,2,16307,0)="""RTN"",""IBCEP2B"",158,0)"
^XMB(3.9,55,2,16308,0)=" S IBZ=$S($G(IBZD)="""":""G2"",""MAMB16""[IBZD:""1C"",IBZD=""TV""!(IBZD=""MC""):""1D"",IBZD=""CH"":""1H"",IBZD=""BL"":$S($$FT^IBCEF(IBIFN)=2:""1B"",1:""1A""),1:""G2"")"
^XMB(3.9,55,2,16309,0)="""RTN"",""IBCEP2B"",159,0)"
^XMB(3.9,55,2,16310,0)=" Q IBZ"
^XMB(3.9,55,2,16311,0)="""RTN"",""IBCEP2B"",160,0)"
^XMB(3.9,55,2,16312,0)=" ;"
^XMB(3.9,55,2,16313,0)="""RTN"",""IBCEP4"")"
^XMB(3.9,55,2,16314,0)="0^23^B23231941^B19640490"
^XMB(3.9,55,2,16315,0)="""RTN"",""IBCEP4"",1,0)"
^XMB(3.9,55,2,16316,0)="IBCEP4 ;ALB/TMP - EDI UTILITIES for provider ID ;29-SEP-00"
^XMB(3.9,55,2,16317,0)="""RTN"",""IBCEP4"",2,0)"
^XMB(3.9,55,2,16318,0)=" ;;2.0;INTEGRATED BILLING;**137,320**;21-MAR-94"
^XMB(3.9,55,2,16319,0)="""RTN"",""IBCEP4"",3,0)"
^XMB(3.9,55,2,16320,0)=" ;"
^XMB(3.9,55,2,16321,0)="""RTN"",""IBCEP4"",4,0)"
^XMB(3.9,55,2,16322,0)="EN ; -- main entry point"
^XMB(3.9,55,2,16323,0)="""RTN"",""IBCEP4"",5,0)"
^XMB(3.9,55,2,16324,0)=" N IBINS,IBALL,IB95"
^XMB(3.9,55,2,16325,0)="""RTN"",""IBCEP4"",6,0)"
^XMB(3.9,55,2,16326,0)=" D ENX"
^XMB(3.9,55,2,16327,0)="""RTN"",""IBCEP4"",7,0)"
^XMB(3.9,55,2,16328,0)=" Q"
^XMB(3.9,55,2,16329,0)="""RTN"",""IBCEP4"",8,0)"
^XMB(3.9,55,2,16330,0)=" ;"
^XMB(3.9,55,2,16331,0)="""RTN"",""IBCEP4"",9,0)"
^XMB(3.9,55,2,16332,0)="EN1(IBINS) ; -- Entry point from provider number maintenence"
^XMB(3.9,55,2,16333,0)="""RTN"",""IBCEP4"",10,0)"
^XMB(3.9,55,2,16334,0)=" N IBPRV,IBALL,IB95"
^XMB(3.9,55,2,16335,0)="""RTN"",""IBCEP4"",11,0)"
^XMB(3.9,55,2,16336,0)=" D ENX"
^XMB(3.9,55,2,16337,0)="""RTN"",""IBCEP4"",12,0)"
^XMB(3.9,55,2,16338,0)=" Q"
^XMB(3.9,55,2,16339,0)="""RTN"",""IBCEP4"",13,0)"
^XMB(3.9,55,2,16340,0)=" ;"
^XMB(3.9,55,2,16341,0)="""RTN"",""IBCEP4"",14,0)"
^XMB(3.9,55,2,16342,0)="ENX ; Common call to list template for dual entry points"
^XMB(3.9,55,2,16343,0)="""RTN"",""IBCEP4"",15,0)"
^XMB(3.9,55,2,16344,0)=" N IBSLEV,DIR,Y"
^XMB(3.9,55,2,16345,0)="""RTN"",""IBCEP4"",16,0)"
^XMB(3.9,55,2,16346,0)=" K IBFASTXT"
^XMB(3.9,55,2,16347,0)="""RTN"",""IBCEP4"",17,0)"
^XMB(3.9,55,2,16348,0)=" D FULL^VALM1"
^XMB(3.9,55,2,16349,0)="""RTN"",""IBCEP4"",18,0)"
^XMB(3.9,55,2,16350,0)=" S DIR(0)=""SA^1:Care Units for Performing Provider IDs;2:Care Units for Billing Provider Secondary IDs"""
^XMB(3.9,55,2,16351,0)="""RTN"",""IBCEP4"",19,0)"
^XMB(3.9,55,2,16352,0)=" S DIR(""A"")=""Enter Type of Care Unit: "",DIR(""B"")=$P($P(DIR(0),"":"",2),"";"")"
^XMB(3.9,55,2,16353,0)="""RTN"",""IBCEP4"",20,0)"
^XMB(3.9,55,2,16354,0)=" W ! D ^DIR K DIR W !"
^XMB(3.9,55,2,16355,0)="""RTN"",""IBCEP4"",21,0)"
^XMB(3.9,55,2,16356,0)=" I Y'>0 Q"
^XMB(3.9,55,2,16357,0)="""RTN"",""IBCEP4"",22,0)"
^XMB(3.9,55,2,16358,0)=" S IBSLEV=+Y"
^XMB(3.9,55,2,16359,0)="""RTN"",""IBCEP4"",23,0)"
^XMB(3.9,55,2,16360,0)=" I IBSLEV=2 D EN^VALM(""IBCE 2ND PRVID CARE UNIT MAINT"") Q"
^XMB(3.9,55,2,16361,0)="""RTN"",""IBCEP4"",24,0)"
^XMB(3.9,55,2,16362,0)=" D EN^VALM(""IBCE PRVCARE UNIT MAINT"")"
^XMB(3.9,55,2,16363,0)="""RTN"",""IBCEP4"",25,0)"
^XMB(3.9,55,2,16364,0)=" Q"
^XMB(3.9,55,2,16365,0)="""RTN"",""IBCEP4"",26,0)"
^XMB(3.9,55,2,16366,0)=" ;"
^XMB(3.9,55,2,16367,0)="""RTN"",""IBCEP4"",27,0)"
^XMB(3.9,55,2,16368,0)="HDR ; -- header"
^XMB(3.9,55,2,16369,0)="""RTN"",""IBCEP4"",28,0)"
^XMB(3.9,55,2,16370,0)=" K VALMHDR"
^XMB(3.9,55,2,16371,0)="""RTN"",""IBCEP4"",29,0)"
^XMB(3.9,55,2,16372,0)=" S VALMHDR(1)="" """
^XMB(3.9,55,2,16373,0)="""RTN"",""IBCEP4"",30,0)"
^XMB(3.9,55,2,16374,0)=" S VALMHDR(2)=""Insurance Co: ""_$S('$G(IBALL)&$G(IBINS):$P($G(^DIC(36,+IBINS,0)),U),1:""ALL"")"
^XMB(3.9,55,2,16375,0)="""RTN"",""IBCEP4"",31,0)"
^XMB(3.9,55,2,16376,0)=" Q"
^XMB(3.9,55,2,16377,0)="""RTN"",""IBCEP4"",32,0)"
^XMB(3.9,55,2,16378,0)=" ;"
^XMB(3.9,55,2,16379,0)="""RTN"",""IBCEP4"",33,0)"
^XMB(3.9,55,2,16380,0)="INIT ; -- init variables, list array"
^XMB(3.9,55,2,16381,0)="""RTN"",""IBCEP4"",34,0)"
^XMB(3.9,55,2,16382,0)=" N Z,IB,IBLCT,IBENT,IBNM,IB0,Z0,Z1,IBQ,DIR,Y,X"
^XMB(3.9,55,2,16383,0)="""RTN"",""IBCEP4"",35,0)"
^XMB(3.9,55,2,16384,0)=" I $G(IBINS) S Y=IBINS ; For entrypoint from provider number maintenance"
^XMB(3.9,55,2,16385,0)="""RTN"",""IBCEP4"",36,0)"
^XMB(3.9,55,2,16386,0)=" ;"
^XMB(3.9,55,2,16387,0)="""RTN"",""IBCEP4"",37,0)"
^XMB(3.9,55,2,16388,0)=" I '$G(IBINS) D"
^XMB(3.9,55,2,16389,0)="""RTN"",""IBCEP4"",38,0)"
^XMB(3.9,55,2,16390,0)=" . S DIR(0)=""PA^DIC(36,:AEMQ"",DIR(""A"")=""Select INSURANCE CO: "",DIR(""?"")=""Select an INSURANCE CO to display its care units"""
^XMB(3.9,55,2,16391,0)="""RTN"",""IBCEP4"",39,0)"
^XMB(3.9,55,2,16392,0)=" . D ^DIR K DIR"
^XMB(3.9,55,2,16393,0)="""RTN"",""IBCEP4"",40,0)"
^XMB(3.9,55,2,16394,0)=" . I $D(DTOUT)!$D(DUOUT) S Y=-2 Q"
^XMB(3.9,55,2,16395,0)="""RTN"",""IBCEP4"",41,0)"
^XMB(3.9,55,2,16396,0)=" . I Y>0 S IBINS=+Y Q"
^XMB(3.9,55,2,16397,0)="""RTN"",""IBCEP4"",42,0)"
^XMB(3.9,55,2,16398,0)=" ;"
^XMB(3.9,55,2,16399,0)="""RTN"",""IBCEP4"",43,0)"
^XMB(3.9,55,2,16400,0)=" I Y'=-2 D"
^XMB(3.9,55,2,16401,0)="""RTN"",""IBCEP4"",44,0)"
^XMB(3.9,55,2,16402,0)=" . D BLD"
^XMB(3.9,55,2,16403,0)="""RTN"",""IBCEP4"",45,0)"
^XMB(3.9,55,2,16404,0)=" E  D"
^XMB(3.9,55,2,16405,0)="""RTN"",""IBCEP4"",46,0)"
^XMB(3.9,55,2,16406,0)=" . S VALMQUIT=1"
^XMB(3.9,55,2,16407,0)="""RTN"",""IBCEP4"",47,0)"
^XMB(3.9,55,2,16408,0)=" Q"
^XMB(3.9,55,2,16409,0)="""RTN"",""IBCEP4"",48,0)"
^XMB(3.9,55,2,16410,0)=" ;"
^XMB(3.9,55,2,16411,0)="""RTN"",""IBCEP4"",49,0)"
^XMB(3.9,55,2,16412,0)="BLD ;  Bld display  - IBINS must = ien of file 36"
^XMB(3.9,55,2,16413,0)="""RTN"",""IBCEP4"",50,0)"
^XMB(3.9,55,2,16414,0)=" K ^TMP(""IBPRV_CU"",$J)"
^XMB(3.9,55,2,16415,0)="""RTN"",""IBCEP4"",51,0)"
^XMB(3.9,55,2,16416,0)=" ;"
^XMB(3.9,55,2,16417,0)="""RTN"",""IBCEP4"",52,0)"
^XMB(3.9,55,2,16418,0)=" I $G(IBSLEV)=2 Q"
^XMB(3.9,55,2,16419,0)="""RTN"",""IBCEP4"",53,0)"
^XMB(3.9,55,2,16420,0)=" ;"
^XMB(3.9,55,2,16421,0)="""RTN"",""IBCEP4"",54,0)"
^XMB(3.9,55,2,16422,0)=" S (IBENT,IBLCT)=0,IBNM="""""
^XMB(3.9,55,2,16423,0)="""RTN"",""IBCEP4"",55,0)"
^XMB(3.9,55,2,16424,0)=" F  S IBNM=$O(^IBA(355.95,""C"",IBINS,IBNM)) Q:IBNM=""""  S Z=0 F  S Z=$O(^IBA(355.95,""C"",IBINS,IBNM,Z)) Q:'Z  S IB=$G(^IBA(355.95,Z,0)) I IB'="""",$P(IB,U,4)="""" D"
^XMB(3.9,55,2,16425,0)="""RTN"",""IBCEP4"",56,0)"
^XMB(3.9,55,2,16426,0)=" . S IBLCT=IBLCT+1,IBENT=IBENT+1"
^XMB(3.9,55,2,16427,0)="""RTN"",""IBCEP4"",57,0)"
^XMB(3.9,55,2,16428,0)=" . I '$D(^IBA(355.96,""AUNIQ"",IBINS,Z)) D SET^VALM10(IBLCT,$E(IBENT_""    "",1,4)_$E($P(IB,U)_$J("""",30),1,30)_""  ""_$E($P(IB,U,2)_$J("""",20),1,20)_"" (NO COMBINATIONS FOUND)"",IBENT) Q"
^XMB(3.9,55,2,16429,0)="""RTN"",""IBCEP4"",58,0)"
^XMB(3.9,55,2,16430,0)=" . D SET^VALM10(IBLCT,$E(IBENT_""    "",1,4)_$E($P(IB,U)_$J("""",30),1,30)_""  ""_$E($P(IB,U,2)_$J("""",20),1,20),IBENT)"
^XMB(3.9,55,2,16431,0)="""RTN"",""IBCEP4"",59,0)"
^XMB(3.9,55,2,16432,0)=" . S ^TMP(""IBPRV_CU"",$J,""ZIDX"",IBENT)=Z"
^XMB(3.9,55,2,16433,0)="""RTN"",""IBCEP4"",60,0)"
^XMB(3.9,55,2,16434,0)=" . S Z0=0 F  S Z0=$O(^IBA(355.96,""AE"",Z,Z0)) Q:'Z0  S Z1=0 F  S Z1=$O(^IBA(355.96,""AE"",Z,Z0,Z1)) Q:'Z1  S IB0=$G(^IBA(355.96,Z1,0)) I IB0'="""" D"
^XMB(3.9,55,2,16435,0)="""RTN"",""IBCEP4"",61,0)"
^XMB(3.9,55,2,16436,0)=" .. S IBLCT=IBLCT+1"
^XMB(3.9,55,2,16437,0)="""RTN"",""IBCEP4"",62,0)"
^XMB(3.9,55,2,16438,0)=" .. S IBQ=$J("""",28)_""o ""_$E($$EXPAND^IBTRE(355.96,.06,+$P(IB0,U,6))_$J("""",20),1,20)"
^XMB(3.9,55,2,16439,0)="""RTN"",""IBCEP4"",63,0)"
^XMB(3.9,55,2,16440,0)=" .. S IBQ=IBQ_""  ""_$E($P(""Both form types^UB92 Only^HCFA 1500 Only"",U,$P(IB0,U,4)+1)_$J("""",15),1,15)_""  ""_$E($P(""Inpt/Outpt^Inpt Only^Outpt Only^RX Only"",U,+$P(IB0,U,5)+1)_$J("""",10),1,10)"
^XMB(3.9,55,2,16441,0)="""RTN"",""IBCEP4"",64,0)"
^XMB(3.9,55,2,16442,0)=" .. D SET^VALM10(IBLCT,IBQ,IBENT)"
^XMB(3.9,55,2,16443,0)="""RTN"",""IBCEP4"",65,0)"
^XMB(3.9,55,2,16444,0)=" ;"
^XMB(3.9,55,2,16445,0)="""RTN"",""IBCEP4"",66,0)"
^XMB(3.9,55,2,16446,0)=" I 'IBLCT D SET^VALM10(1,""No CARE UNITs Found""_$S('$G(IBINS):"""",1:"" for Insurance Co""))"
^XMB(3.9,55,2,16447,0)="""RTN"",""IBCEP4"",67,0)"
^XMB(3.9,55,2,16448,0)=" S VALMCNT=IBLCT,VALMBG=1"
^XMB(3.9,55,2,16449,0)="""RTN"",""IBCEP4"",68,0)"
^XMB(3.9,55,2,16450,0)=" Q"
^XMB(3.9,55,2,16451,0)="""RTN"",""IBCEP4"",69,0)"
^XMB(3.9,55,2,16452,0)=" ;"
^XMB(3.9,55,2,16453,0)="""RTN"",""IBCEP4"",70,0)"
^XMB(3.9,55,2,16454,0)="HELP ; -- help"
^XMB(3.9,55,2,16455,0)="""RTN"",""IBCEP4"",71,0)"
^XMB(3.9,55,2,16456,0)=" ;"
^XMB(3.9,55,2,16457,0)="""RTN"",""IBCEP4"",72,0)"
^XMB(3.9,55,2,16458,0)=" I $G(IBSLEV)=2 Q"
^XMB(3.9,55,2,16459,0)="""RTN"",""IBCEP4"",73,0)"
^XMB(3.9,55,2,16460,0)=" ;"
^XMB(3.9,55,2,16461,0)="""RTN"",""IBCEP4"",74,0)"
^XMB(3.9,55,2,16462,0)=" S X=""?"" D DISP^XQORM1 W !!"
^XMB(3.9,55,2,16463,0)="""RTN"",""IBCEP4"",75,0)"
^XMB(3.9,55,2,16464,0)=" Q"
^XMB(3.9,55,2,16465,0)="""RTN"",""IBCEP4"",76,0)"
^XMB(3.9,55,2,16466,0)=" ;"
^XMB(3.9,55,2,16467,0)="""RTN"",""IBCEP4"",77,0)"
^XMB(3.9,55,2,16468,0)="EXIT ; -- exit"
^XMB(3.9,55,2,16469,0)="""RTN"",""IBCEP4"",78,0)"
^XMB(3.9,55,2,16470,0)=" K IBFASTXT"
^XMB(3.9,55,2,16471,0)="""RTN"",""IBCEP4"",79,0)"
^XMB(3.9,55,2,16472,0)=" D CLEAN^VALM10"
^XMB(3.9,55,2,16473,0)="""RTN"",""IBCEP4"",80,0)"
^XMB(3.9,55,2,16474,0)=" K ^TMP(""IBPRV_CU"",$J),IBINS,IBALL"
^XMB(3.9,55,2,16475,0)="""RTN"",""IBCEP4"",81,0)"
^XMB(3.9,55,2,16476,0)=" Q"
^XMB(3.9,55,2,16477,0)="""RTN"",""IBCEP4"",82,0)"
^XMB(3.9,55,2,16478,0)=" ;"
^XMB(3.9,55,2,16479,0)="""RTN"",""IBCEP4"",83,0)"
^XMB(3.9,55,2,16480,0)="EXPND ;"
^XMB(3.9,55,2,16481,0)="""RTN"",""IBCEP4"",84,0)"
^XMB(3.9,55,2,16482,0)=" Q"
^XMB(3.9,55,2,16483,0)="""RTN"",""IBCEP4"",85,0)"
^XMB(3.9,55,2,16484,0)=" ;"
^XMB(3.9,55,2,16485,0)="""RTN"",""IBCEP4"",86,0)"
^XMB(3.9,55,2,16486,0)="SEL(IBDA,MANY) ; Select from care unit list"
^XMB(3.9,55,2,16487,0)="""RTN"",""IBCEP4"",87,0)"
^XMB(3.9,55,2,16488,0)=" ; IBDA is passed by reference and IBDA(1) returned containing"
^XMB(3.9,55,2,16489,0)="""RTN"",""IBCEP4"",88,0)"
^XMB(3.9,55,2,16490,0)=" ;  ien's of the care unit selected (file 355.95)."
^XMB(3.9,55,2,16491,0)="""RTN"",""IBCEP4"",89,0)"
^XMB(3.9,55,2,16492,0)=" ; If > 1 entry can be selected, MANY is set to 1"
^XMB(3.9,55,2,16493,0)="""RTN"",""IBCEP4"",90,0)"
^XMB(3.9,55,2,16494,0)=" N Z"
^XMB(3.9,55,2,16495,0)="""RTN"",""IBCEP4"",91,0)"
^XMB(3.9,55,2,16496,0)=" S IBDA=0"
^XMB(3.9,55,2,16497,0)="""RTN"",""IBCEP4"",92,0)"
^XMB(3.9,55,2,16498,0)=" D EN^VALM2($G(XQORNOD(0)),$S($G(MANY):"""",1:""S""))"
^XMB(3.9,55,2,16499,0)="""RTN"",""IBCEP4"",93,0)"
^XMB(3.9,55,2,16500,0)=" S Z=0 F  S Z=$O(VALMY(Z)) Q:'Z  S IBDA=IBDA+1,IBDA(IBDA)=+$G(^TMP(""IBPRV_CU"",$J,""ZIDX"",Z))"
^XMB(3.9,55,2,16501,0)="""RTN"",""IBCEP4"",94,0)"
^XMB(3.9,55,2,16502,0)=" Q"
^XMB(3.9,55,2,16503,0)="""RTN"",""IBCEP4"",95,0)"
^XMB(3.9,55,2,16504,0)=" ;"
^XMB(3.9,55,2,16505,0)="""RTN"",""IBCEP4"",96,0)"
^XMB(3.9,55,2,16506,0)="DISP(IBVAR,IBINS,IBPTYP,IBFT,IBCT,START,END) ; Set up display array for"
^XMB(3.9,55,2,16507,0)="""RTN"",""IBCEP4"",97,0)"
^XMB(3.9,55,2,16508,0)=" ; provider id"
^XMB(3.9,55,2,16509,0)="""RTN"",""IBCEP4"",98,0)"
^XMB(3.9,55,2,16510,0)=" N Z"
^XMB(3.9,55,2,16511,0)="""RTN"",""IBCEP4"",99,0)"
^XMB(3.9,55,2,16512,0)=" S START=$S($G(START):START,1:1)"
^XMB(3.9,55,2,16513,0)="""RTN"",""IBCEP4"",100,0)"
^XMB(3.9,55,2,16514,0)=" S (Z,END)=$G(START)"
^XMB(3.9,55,2,16515,0)="""RTN"",""IBCEP4"",101,0)"
^XMB(3.9,55,2,16516,0)=" S @IBVAR@(START)=""INSURANCE: ""_$S(IBINS:$P($G(^DIC(36,+IBINS,0)),U),1:""ALL INSURANCE"")"
^XMB(3.9,55,2,16517,0)="""RTN"",""IBCEP4"",102,0)"
^XMB(3.9,55,2,16518,0)=" S @IBVAR@(START+1)=""PROV TYPE: ""_$$EXPAND^IBTRE(355.96,.06,IBPTYP)"
^XMB(3.9,55,2,16519,0)="""RTN"",""IBCEP4"",103,0)"
^XMB(3.9,55,2,16520,0)=" S @IBVAR@(START+2)=""FORM TYPE: ""_$$EXPAND^IBTRE(355.96,.04,IBFT)"
^XMB(3.9,55,2,16521,0)="""RTN"",""IBCEP4"",104,0)"
^XMB(3.9,55,2,16522,0)=" S @IBVAR@(START+3)=""CARE TYPE: ""_$$EXPAND^IBTRE(355.96,.05,IBCT)"
^XMB(3.9,55,2,16523,0)="""RTN"",""IBCEP4"",105,0)"
^XMB(3.9,55,2,16524,0)=" S END=$G(START)+3"
^XMB(3.9,55,2,16525,0)="""RTN"",""IBCEP4"",106,0)"
^XMB(3.9,55,2,16526,0)=" Q"
^XMB(3.9,55,2,16527,0)="""RTN"",""IBCEP4"",107,0)"
^XMB(3.9,55,2,16528,0)=" ;"
^XMB(3.9,55,2,16529,0)="""RTN"",""IBCEP4"",108,0)"
^XMB(3.9,55,2,16530,0)="CAREUOK(IBIFN,IBCU,IBTYPE,IBSEQ) ; Returns 1 if care unit is appropriate "
^XMB(3.9,55,2,16531,0)="""RTN"",""IBCEP4"",109,0)"
^XMB(3.9,55,2,16532,0)=" ; for bill based on provider type, care type, bill type and insurance co"
^XMB(3.9,55,2,16533,0)="""RTN"",""IBCEP4"",110,0)"
^XMB(3.9,55,2,16534,0)=" ; IBIFN = ien of bill (file 399)"
^XMB(3.9,55,2,16535,0)="""RTN"",""IBCEP4"",111,0)"
^XMB(3.9,55,2,16536,0)=" ; IBCU = the ien of the care unit (file 355.96)"
^XMB(3.9,55,2,16537,0)="""RTN"",""IBCEP4"",112,0)"
^XMB(3.9,55,2,16538,0)=" ; IBTYPE = type of ID being checked (1=performing, 2=EMC)"
^XMB(3.9,55,2,16539,0)="""RTN"",""IBCEP4"",113,0)"
^XMB(3.9,55,2,16540,0)=" ; IBSEQ = the COB seq being checked (1-3)"
^XMB(3.9,55,2,16541,0)="""RTN"",""IBCEP4"",114,0)"
^XMB(3.9,55,2,16542,0)=" N Z,IBOK,IBINS,IBCT,IBFT,IBPTYP,IBRX"
^XMB(3.9,55,2,16543,0)="""RTN"",""IBCEP4"",115,0)"
^XMB(3.9,55,2,16544,0)=" S IBOK=0"
^XMB(3.9,55,2,16545,0)="""RTN"",""IBCEP4"",116,0)"
^XMB(3.9,55,2,16546,0)=" S IBINS=+$$FINDINS^IBCEF1(IBIFN,+IBSEQ),IBFT=$S($$FT^IBCEF(IBIFN)=2:2,1:1)"
^XMB(3.9,55,2,16547,0)="""RTN"",""IBCEP4"",117,0)"
^XMB(3.9,55,2,16548,0)=" S IBPTYP=+$S(IBTYPE=1:$$PPTYP^IBCEP0(IBINS),1:$$EMCID^IBCEP())"
^XMB(3.9,55,2,16549,0)="""RTN"",""IBCEP4"",118,0)"
^XMB(3.9,55,2,16550,0)=" S IBRX=$$ISRX^IBCEF1(IBIFN)"
^XMB(3.9,55,2,16551,0)="""RTN"",""IBCEP4"",119,0)"
^XMB(3.9,55,2,16552,0)=" S IBCT=$S('IBRX:$S($$INPAT^IBCEF(IBIFN,1):1,1:2),1:3)"
^XMB(3.9,55,2,16553,0)="""RTN"",""IBCEP4"",120,0)"
^XMB(3.9,55,2,16554,0)=" ;Check from most general to most specific"
^XMB(3.9,55,2,16555,0)="""RTN"",""IBCEP4"",121,0)"
^XMB(3.9,55,2,16556,0)=" I $D(^IBA(355.96,""AD"",IBINS,0,0,IBPTYP,IBCU)) S IBOK=1 G CAREOKQ"
^XMB(3.9,55,2,16557,0)="""RTN"",""IBCEP4"",122,0)"
^XMB(3.9,55,2,16558,0)=" I 'IBRX,$D(^IBA(355.96,""AD"",IBINS,IBFT,0,IBPTYP,IBCU)) S IBOK=1 G CAREOKQ"
^XMB(3.9,55,2,16559,0)="""RTN"",""IBCEP4"",123,0)"
^XMB(3.9,55,2,16560,0)=" I $D(^IBA(355.96,""AD"",IBINS,0,IBCT,IBPTYP,IBCU)) S IBOK=1 G CAREOKQ"
^XMB(3.9,55,2,16561,0)="""RTN"",""IBCEP4"",124,0)"
^XMB(3.9,55,2,16562,0)=" I $D(^IBA(355.96,""AD"",IBINS,IBFT,IBCT,IBPTYP,IBCU)) S IBOK=1 G CAREOKQ"
^XMB(3.9,55,2,16563,0)="""RTN"",""IBCEP4"",125,0)"
^XMB(3.9,55,2,16564,0)=" ;"
^XMB(3.9,55,2,16565,0)="""RTN"",""IBCEP4"",126,0)"
^XMB(3.9,55,2,16566,0)="CAREOKQ Q IBOK"
^XMB(3.9,55,2,16567,0)="""RTN"",""IBCEP4"",127,0)"
^XMB(3.9,55,2,16568,0)=" ;"
^XMB(3.9,55,2,16569,0)="""RTN"",""IBCEP5"")"
^XMB(3.9,55,2,16570,0)="0^24^B48276203^B30947898"
^XMB(3.9,55,2,16571,0)="""RTN"",""IBCEP5"",1,0)"
^XMB(3.9,55,2,16572,0)="IBCEP5 ;ALB/TMP - EDI UTILITIES for provider ID ;29-SEP-00"
^XMB(3.9,55,2,16573,0)="""RTN"",""IBCEP5"",2,0)"
^XMB(3.9,55,2,16574,0)=" ;;2.0;INTEGRATED BILLING;**137,232,320**;21-MAR-94"
^XMB(3.9,55,2,16575,0)="""RTN"",""IBCEP5"",3,0)"
^XMB(3.9,55,2,16576,0)=" ;"
^XMB(3.9,55,2,16577,0)="""RTN"",""IBCEP5"",4,0)"
^XMB(3.9,55,2,16578,0)="EN ; -- main entry point for IBCE PRV MAINT"
^XMB(3.9,55,2,16579,0)="""RTN"",""IBCEP5"",5,0)"
^XMB(3.9,55,2,16580,0)=" N IBPRV,IBINS"
^XMB(3.9,55,2,16581,0)="""RTN"",""IBCEP5"",6,0)"
^XMB(3.9,55,2,16582,0)="EN1 ; Entrypoint for non-VA provider ID maintenance hook"
^XMB(3.9,55,2,16583,0)="""RTN"",""IBCEP5"",7,0)"
^XMB(3.9,55,2,16584,0)=" N IBSLEV,DIR,Y,X,IBPRMPT,IBNVAFL,IBIF"
^XMB(3.9,55,2,16585,0)="""RTN"",""IBCEP5"",8,0)"
^XMB(3.9,55,2,16586,0)=" K IBFASTXT"
^XMB(3.9,55,2,16587,0)="""RTN"",""IBCEP5"",9,0)"
^XMB(3.9,55,2,16588,0)=" S IBIF="""" I $G(IBPRV) S IBIF=$$GET1^DIQ(355.93,IBPRV,.02,""I"")"
^XMB(3.9,55,2,16589,0)="""RTN"",""IBCEP5"",10,0)"
^XMB(3.9,55,2,16590,0)=" D FULL^VALM1"
^XMB(3.9,55,2,16591,0)="""RTN"",""IBCEP5"",11,0)"
^XMB(3.9,55,2,16592,0)=" S IBPRMPT=$S(IBIF=1:""LAB OR FACILITY"",1:""PROVIDER"")"
^XMB(3.9,55,2,16593,0)="""RTN"",""IBCEP5"",12,0)"
^XMB(3.9,55,2,16594,0)=" S DIR(0)=""SA^1:""_IBPRMPT_""'S OWN IDS;2:""_IBPRMPT_"" IDS FURNISHED BY AN INSURANCE COMPANY"""
^XMB(3.9,55,2,16595,0)="""RTN"",""IBCEP5"",13,0)"
^XMB(3.9,55,2,16596,0)=" S DIR(""A"")=""SELECT SOURCE OF ID: "",DIR(""B"")=$P($P(DIR(0),"":"",2),"";"")"
^XMB(3.9,55,2,16597,0)="""RTN"",""IBCEP5"",14,0)"
^XMB(3.9,55,2,16598,0)=" W ! D ^DIR K DIR W !"
^XMB(3.9,55,2,16599,0)="""RTN"",""IBCEP5"",15,0)"
^XMB(3.9,55,2,16600,0)=" I Y'>0 Q"
^XMB(3.9,55,2,16601,0)="""RTN"",""IBCEP5"",16,0)"
^XMB(3.9,55,2,16602,0)=" S IBSLEV=+Y"
^XMB(3.9,55,2,16603,0)="""RTN"",""IBCEP5"",17,0)"
^XMB(3.9,55,2,16604,0)=" D EN^VALM(""IBCE PRVPRV MAINT"")"
^XMB(3.9,55,2,16605,0)="""RTN"",""IBCEP5"",18,0)"
^XMB(3.9,55,2,16606,0)=" Q"
^XMB(3.9,55,2,16607,0)="""RTN"",""IBCEP5"",19,0)"
^XMB(3.9,55,2,16608,0)=" ;"
^XMB(3.9,55,2,16609,0)="""RTN"",""IBCEP5"",20,0)"
^XMB(3.9,55,2,16610,0)="HDR ; -- header code"
^XMB(3.9,55,2,16611,0)="""RTN"",""IBCEP5"",21,0)"
^XMB(3.9,55,2,16612,0)=" N IBC,Z,IBIF"
^XMB(3.9,55,2,16613,0)="""RTN"",""IBCEP5"",22,0)"
^XMB(3.9,55,2,16614,0)=" S IBIF="""" I $G(IBNPRV) S IBIF=$$GET1^DIQ(355.93,IBNPRV,.02,""I"")"
^XMB(3.9,55,2,16615,0)="""RTN"",""IBCEP5"",23,0)"
^XMB(3.9,55,2,16616,0)=" K VALMHDR"
^XMB(3.9,55,2,16617,0)="""RTN"",""IBCEP5"",24,0)"
^XMB(3.9,55,2,16618,0)=" S IBC=1"
^XMB(3.9,55,2,16619,0)="""RTN"",""IBCEP5"",25,0)"
^XMB(3.9,55,2,16620,0)=" S IBPRMPT=$S(IBIF=1:""Lab or Facility"",1:""Performing Provider"")"
^XMB(3.9,55,2,16621,0)="""RTN"",""IBCEP5"",26,0)"
^XMB(3.9,55,2,16622,0)=" S Z=""** ""_$S($G(IBSLEV)=1:IBPRMPT_""'s Own IDs (No Specific Insurance Co)"",1:IBPRMPT_"" IDs from Insurance Co"")_"" **"""
^XMB(3.9,55,2,16623,0)="""RTN"",""IBCEP5"",27,0)"
^XMB(3.9,55,2,16624,0)=" S VALMHDR(IBC)=$J("""",80-$L(Z)\2)_Z,IBC=IBC+1"
^XMB(3.9,55,2,16625,0)="""RTN"",""IBCEP5"",28,0)"
^XMB(3.9,55,2,16626,0)=" I $G(IBPRV),'+IBIF S VALMHDR(IBC)=""PROVIDER   : ""_$$EXPAND^IBTRE(355.9,.01,IBPRV)_$S(IBPRV[""VA(200"":"" (VA PROVIDER)"",1:"" (NON-VA PROVIDER)""),IBC=IBC+1"
^XMB(3.9,55,2,16627,0)="""RTN"",""IBCEP5"",29,0)"
^XMB(3.9,55,2,16628,0)=" I $G(IBPRV),+IBIF S VALMHDR(IBC)=""Provider: ""_$$EXPAND^IBTRE(355.9,.01,IBPRV)_$S(IBIF=1:""(Non-VA Lab or Facility)"",1:""""),IBC=IBC+1"
^XMB(3.9,55,2,16629,0)="""RTN"",""IBCEP5"",30,0)"
^XMB(3.9,55,2,16630,0)=" I $G(IBINS) D"
^XMB(3.9,55,2,16631,0)="""RTN"",""IBCEP5"",31,0)"
^XMB(3.9,55,2,16632,0)=" . N PCF,PCDISP"
^XMB(3.9,55,2,16633,0)="""RTN"",""IBCEP5"",32,0)"
^XMB(3.9,55,2,16634,0)=" . S PCF=$P($G(^DIC(36,+IBINS,3)),""^"",13)"
^XMB(3.9,55,2,16635,0)="""RTN"",""IBCEP5"",33,0)"
^XMB(3.9,55,2,16636,0)=" . S PCDISP=$S($G(IBSLEV)'=2!($G(IBPRV)'[""VA(200,""):"""",PCF=""C"":""(Child)"",PCF=""P"":""(Parent)"",1:"""")"
^XMB(3.9,55,2,16637,0)="""RTN"",""IBCEP5"",34,0)"
^XMB(3.9,55,2,16638,0)=" . S VALMHDR(IBC)=$S(IBIF:""Insurance Co: "",1:""INSURANCE CO: "")_$P($G(^DIC(36,+IBINS,0)),U)_"" ""_PCDISP"
^XMB(3.9,55,2,16639,0)="""RTN"",""IBCEP5"",35,0)"
^XMB(3.9,55,2,16640,0)=" Q"
^XMB(3.9,55,2,16641,0)="""RTN"",""IBCEP5"",36,0)"
^XMB(3.9,55,2,16642,0)=" ;"
^XMB(3.9,55,2,16643,0)="""RTN"",""IBCEP5"",37,0)"
^XMB(3.9,55,2,16644,0)="INIT ; -- init variables and list array"
^XMB(3.9,55,2,16645,0)="""RTN"",""IBCEP5"",38,0)"
^XMB(3.9,55,2,16646,0)=" N IBFILE,DIR,DIC,Y,X,DTOUT,DUOUT,IBIF,AGAIN"
^XMB(3.9,55,2,16647,0)="""RTN"",""IBCEP5"",39,0)"
^XMB(3.9,55,2,16648,0)=" ;"
^XMB(3.9,55,2,16649,0)="""RTN"",""IBCEP5"",40,0)"
^XMB(3.9,55,2,16650,0)=" K ^TMP(""IB_EDITED_IDS"",$J)  ; This will be to keep track of ID's edited during this session"
^XMB(3.9,55,2,16651,0)="""RTN"",""IBCEP5"",41,0)"
^XMB(3.9,55,2,16652,0)=" S IBIF="""" I $G(IBNPRV) S IBIF=$$GET1^DIQ(355.93,IBNPRV,.02,""I"")"
^XMB(3.9,55,2,16653,0)="""RTN"",""IBCEP5"",42,0)"
^XMB(3.9,55,2,16654,0)=" ;"
^XMB(3.9,55,2,16655,0)="""RTN"",""IBCEP5"",43,0)"
^XMB(3.9,55,2,16656,0)=" ; Removing Care Unit under certain conditions"
^XMB(3.9,55,2,16657,0)="""RTN"",""IBCEP5"",44,0)"
^XMB(3.9,55,2,16658,0)=" ; This list is used for multiple purposes and not all have Care Units Associated with them"
^XMB(3.9,55,2,16659,0)="""RTN"",""IBCEP5"",45,0)"
^XMB(3.9,55,2,16660,0)=" ; Also, a different protocol menu is used with these"
^XMB(3.9,55,2,16661,0)="""RTN"",""IBCEP5"",46,0)"
^XMB(3.9,55,2,16662,0)=" ; IBNPRV is a non VA provider"
^XMB(3.9,55,2,16663,0)="""RTN"",""IBCEP5"",47,0)"
^XMB(3.9,55,2,16664,0)=" ; IBIF = 1 means this is a group or facility, not an individual."
^XMB(3.9,55,2,16665,0)="""RTN"",""IBCEP5"",48,0)"
^XMB(3.9,55,2,16666,0)=" ; "
^XMB(3.9,55,2,16667,0)="""RTN"",""IBCEP5"",49,0)"
^XMB(3.9,55,2,16668,0)=" I $G(IBNPRV),$G(IBIF)=1 D"
^XMB(3.9,55,2,16669,0)="""RTN"",""IBCEP5"",50,0)"
^XMB(3.9,55,2,16670,0)=" . S VALM(""TITLE"")=""Secondary Provider ID"""
^XMB(3.9,55,2,16671,0)="""RTN"",""IBCEP5"",51,0)"
^XMB(3.9,55,2,16672,0)=" . K VALMDDF(""CAREUNIT"")"
^XMB(3.9,55,2,16673,0)="""RTN"",""IBCEP5"",52,0)"
^XMB(3.9,55,2,16674,0)=" . I VALMCAP[""Care Unit"" S VALMCAP=$P(VALMCAP,""Care Unit"")_""         ""_$P(VALMCAP,""Care Unit"",2)"
^XMB(3.9,55,2,16675,0)="""RTN"",""IBCEP5"",53,0)"
^XMB(3.9,55,2,16676,0)=" . K VALM(""PROTOCOL"")"
^XMB(3.9,55,2,16677,0)="""RTN"",""IBCEP5"",54,0)"
^XMB(3.9,55,2,16678,0)=" . S Y=$$FIND1^DIC(101,,,""IBCE PRVNVA LOF MAINT"")"
^XMB(3.9,55,2,16679,0)="""RTN"",""IBCEP5"",55,0)"
^XMB(3.9,55,2,16680,0)=" . I Y S VALM(""PROTOCOL"")=+Y_"";ORD(101,"""
^XMB(3.9,55,2,16681,0)="""RTN"",""IBCEP5"",56,0)"
^XMB(3.9,55,2,16682,0)=" ;"
^XMB(3.9,55,2,16683,0)="""RTN"",""IBCEP5"",57,0)"
^XMB(3.9,55,2,16684,0)=" I $G(IBPRV) S IBFILE=""IBA(355.93,"",IBPRV=+IBPRV_"";""_IBFILE"
^XMB(3.9,55,2,16685,0)="""RTN"",""IBCEP5"",58,0)"
^XMB(3.9,55,2,16686,0)=" I '$G(IBPRV) D  G:$G(VALMQUIT) INITQ"
^XMB(3.9,55,2,16687,0)="""RTN"",""IBCEP5"",59,0)"
^XMB(3.9,55,2,16688,0)=" . S DIR(0)=""SAO^V:VA PROVIDER;N:NON-VA PROVIDER"",DIR(""A"")=""(V)A or (N)on-VA provider: "",DIR(""B"")=""V"""
^XMB(3.9,55,2,16689,0)="""RTN"",""IBCEP5"",60,0)"
^XMB(3.9,55,2,16690,0)=" . D ^DIR K DIR"
^XMB(3.9,55,2,16691,0)="""RTN"",""IBCEP5"",61,0)"
^XMB(3.9,55,2,16692,0)=" . I ""NV""'[Y!(Y="""") S VALMQUIT=1 Q"
^XMB(3.9,55,2,16693,0)="""RTN"",""IBCEP5"",62,0)"
^XMB(3.9,55,2,16694,0)=" . S IBFILE=$S(Y=""V"":""VA(200,"",1:""IBA(355.93,"")"
^XMB(3.9,55,2,16695,0)="""RTN"",""IBCEP5"",63,0)"
^XMB(3.9,55,2,16696,0)=" . S DIC=U_IBFILE,DIC(0)=""AEMQ""_$S(IBFILE[""355.93"":""L"",1:"""")"
^XMB(3.9,55,2,16697,0)="""RTN"",""IBCEP5"",64,0)"
^XMB(3.9,55,2,16698,0)=" . S DIC(""A"")=""Select ""_$S(IBFILE[""355.93"":""NON-"",1:"""")_""V.A. PROVIDER NAME: """
^XMB(3.9,55,2,16699,0)="""RTN"",""IBCEP5"",65,0)"
^XMB(3.9,55,2,16700,0)=" . S:IBFILE[""355.93"" DIC(""DR"")="".02////2;.03;.04"""
^XMB(3.9,55,2,16701,0)="""RTN"",""IBCEP5"",66,0)"
^XMB(3.9,55,2,16702,0)=" . F  D  I $G(IBPRV)!$G(VALMQUIT) K DIC Q"
^XMB(3.9,55,2,16703,0)="""RTN"",""IBCEP5"",67,0)"
^XMB(3.9,55,2,16704,0)=" .. D ^DIC"
^XMB(3.9,55,2,16705,0)="""RTN"",""IBCEP5"",68,0)"
^XMB(3.9,55,2,16706,0)=" .. I $D(DTOUT)!$D(DUOUT) S VALMQUIT=1 Q"
^XMB(3.9,55,2,16707,0)="""RTN"",""IBCEP5"",69,0)"
^XMB(3.9,55,2,16708,0)=" .. I Y'>0 W !,*7,""This is a required response. Enter '^' to exit"" Q"
^XMB(3.9,55,2,16709,0)="""RTN"",""IBCEP5"",70,0)"
^XMB(3.9,55,2,16710,0)=" .. S IBPRV=+Y_"";""_IBFILE"
^XMB(3.9,55,2,16711,0)="""RTN"",""IBCEP5"",71,0)"
^XMB(3.9,55,2,16712,0)=" ;"
^XMB(3.9,55,2,16713,0)="""RTN"",""IBCEP5"",72,0)"
^XMB(3.9,55,2,16714,0)="AGAIN I $G(IBSLEV)=2 D  G:$G(AGAIN) AGAIN G:$G(VALMQUIT) INITQ"
^XMB(3.9,55,2,16715,0)="""RTN"",""IBCEP5"",73,0)"
^XMB(3.9,55,2,16716,0)=" . S AGAIN=0"
^XMB(3.9,55,2,16717,0)="""RTN"",""IBCEP5"",74,0)"
^XMB(3.9,55,2,16718,0)=" . S DIR(0)=""PA^DIC(36,:AEMQ"",DIR(""A"")=""Select INSURANCE CO: "",DIR(""?"",1)=""Select an INSURANCE CO to display its provider ID's"""
^XMB(3.9,55,2,16719,0)="""RTN"",""IBCEP5"",75,0)"
^XMB(3.9,55,2,16720,0)=" . D ^DIR K DIR"
^XMB(3.9,55,2,16721,0)="""RTN"",""IBCEP5"",76,0)"
^XMB(3.9,55,2,16722,0)=" . I $D(DTOUT)!$D(DUOUT) S VALMQUIT=1 Q"
^XMB(3.9,55,2,16723,0)="""RTN"",""IBCEP5"",77,0)"
^XMB(3.9,55,2,16724,0)=" . S IBINS=$S(Y>0:+Y,1:""NO"")"
^XMB(3.9,55,2,16725,0)="""RTN"",""IBCEP5"",78,0)"
^XMB(3.9,55,2,16726,0)=" . I $G(IBPRV)'[""VA(200,"" Q    ; Only VA providers"
^XMB(3.9,55,2,16727,0)="""RTN"",""IBCEP5"",79,0)"
^XMB(3.9,55,2,16728,0)=" . I $P($G(^DIC(36,+IBINS,3)),""^"",13)=""C"" D  S AGAIN=1 Q"
^XMB(3.9,55,2,16729,0)="""RTN"",""IBCEP5"",80,0)"
^XMB(3.9,55,2,16730,0)=" .. W !,*7,""This is a Child Insurance Company.  Editing IDs is not permitted."""
^XMB(3.9,55,2,16731,0)="""RTN"",""IBCEP5"",81,0)"
^XMB(3.9,55,2,16732,0)=" ;"
^XMB(3.9,55,2,16733,0)="""RTN"",""IBCEP5"",82,0)"
^XMB(3.9,55,2,16734,0)=" E  D"
^XMB(3.9,55,2,16735,0)="""RTN"",""IBCEP5"",83,0)"
^XMB(3.9,55,2,16736,0)=" . S IBINS=""NO"""
^XMB(3.9,55,2,16737,0)="""RTN"",""IBCEP5"",84,0)"
^XMB(3.9,55,2,16738,0)=" D BLD"
^XMB(3.9,55,2,16739,0)="""RTN"",""IBCEP5"",85,0)"
^XMB(3.9,55,2,16740,0)="INITQ Q"
^XMB(3.9,55,2,16741,0)="""RTN"",""IBCEP5"",86,0)"
^XMB(3.9,55,2,16742,0)=" ;"
^XMB(3.9,55,2,16743,0)="""RTN"",""IBCEP5"",87,0)"
^XMB(3.9,55,2,16744,0)="BLD ;  Build initial display"
^XMB(3.9,55,2,16745,0)="""RTN"",""IBCEP5"",88,0)"
^XMB(3.9,55,2,16746,0)=" ; Assumes IBPRV = the variable ptr for prov id file (355.9)"
^XMB(3.9,55,2,16747,0)="""RTN"",""IBCEP5"",89,0)"
^XMB(3.9,55,2,16748,0)=" ;         IBINS = the ien of the ins co or if null, ALL is assumed"
^XMB(3.9,55,2,16749,0)="""RTN"",""IBCEP5"",90,0)"
^XMB(3.9,55,2,16750,0)=" ;         IBSLEV = 1 to display only provider default ids"
^XMB(3.9,55,2,16751,0)="""RTN"",""IBCEP5"",91,0)"
^XMB(3.9,55,2,16752,0)=" ;                = 2 to display all provider/insurance co ids"
^XMB(3.9,55,2,16753,0)="""RTN"",""IBCEP5"",92,0)"
^XMB(3.9,55,2,16754,0)=" N IB,IBLCT,IBCT,CT,PT,CU,INS,FT,Z,IBENT,IB1,IBIF"
^XMB(3.9,55,2,16755,0)="""RTN"",""IBCEP5"",93,0)"
^XMB(3.9,55,2,16756,0)=" ;"
^XMB(3.9,55,2,16757,0)="""RTN"",""IBCEP5"",94,0)"
^XMB(3.9,55,2,16758,0)=" S IBIF="""" I $G(IBPRV)[355.93 S IBIF=$$GET1^DIQ(355.93,+IBPRV,.02,""I"")"
^XMB(3.9,55,2,16759,0)="""RTN"",""IBCEP5"",95,0)"
^XMB(3.9,55,2,16760,0)=" ;"
^XMB(3.9,55,2,16761,0)="""RTN"",""IBCEP5"",96,0)"
^XMB(3.9,55,2,16762,0)=" K ^TMP(""IBPRV_"",$J),^TMP(""IBPRV_SORT"",$J)"
^XMB(3.9,55,2,16763,0)="""RTN"",""IBCEP5"",97,0)"
^XMB(3.9,55,2,16764,0)=" K Z0"
^XMB(3.9,55,2,16765,0)="""RTN"",""IBCEP5"",98,0)"
^XMB(3.9,55,2,16766,0)=" S (IBENT,IBCT,IBLCT)=0,INS="""",IB1=1"
^XMB(3.9,55,2,16767,0)="""RTN"",""IBCEP5"",99,0)"
^XMB(3.9,55,2,16768,0)=" F  S INS=$S($G(IBINS):IBINS,IBSLEV=1:""*ALL*"",1:$O(^IBA(355.9,""AUNIQ"",IBPRV,INS))) Q:$S(INS="""":1,$G(IBINS)!(IBSLEV=1):$D(CU),1:0)  S CU="""",IB1=0 F  S CU=$O(^IBA(355.9,""AUNIQ"",IBPRV,INS,CU)) Q:CU=""""  D"
^XMB(3.9,55,2,16769,0)="""RTN"",""IBCEP5"",100,0)"
^XMB(3.9,55,2,16770,0)=" . S FT="""" F  S FT=$O(^IBA(355.9,""AUNIQ"",IBPRV,INS,CU,FT)) Q:FT=""""  S CT="""" F  S CT=$O(^IBA(355.9,""AUNIQ"",IBPRV,INS,CU,FT,CT)) Q:CT=""""  S PT=0 F  S PT=$O(^IBA(355.9,""AUNIQ"",IBPRV,INS,CU,FT,CT,PT)) Q:'PT  D"
^XMB(3.9,55,2,16771,0)="""RTN"",""IBCEP5"",101,0)"
^XMB(3.9,55,2,16772,0)=" .. S Z=0 F  S Z=$O(^IBA(355.9,""AUNIQ"",IBPRV,INS,CU,FT,CT,PT,Z)) Q:'Z  S IB=$G(^IBA(355.9,Z,0)) D"
^XMB(3.9,55,2,16773,0)="""RTN"",""IBCEP5"",102,0)"
^XMB(3.9,55,2,16774,0)=" ... S ^TMP(""IBPRV_SORT"",$J,$S(INS:$P($G(^DIC(36,+INS,0)),U)_"" "",1:"" ALL""),PT,FT,CT,CU,Z)=$P(IB,U,7)"
^XMB(3.9,55,2,16775,0)="""RTN"",""IBCEP5"",103,0)"
^XMB(3.9,55,2,16776,0)=" ;"
^XMB(3.9,55,2,16777,0)="""RTN"",""IBCEP5"",104,0)"
^XMB(3.9,55,2,16778,0)=" I IBSLEV=1,IBPRV[""IBA(355.93"",$P($G(^IBA(355.93,+IBPRV,0)),U,12)'="""" S ^TMP(""IBPRV_SORT"",$J,"" ALL"",+$$STLIC^IBCEP8(),0,0,""*N/A*"",0)=$P(^IBA(355.93,+IBPRV,0),U,12)"
^XMB(3.9,55,2,16779,0)="""RTN"",""IBCEP5"",105,0)"
^XMB(3.9,55,2,16780,0)=" S INS="""" F  S INS=$O(^TMP(""IBPRV_SORT"",$J,INS)) Q:INS=""""  D"
^XMB(3.9,55,2,16781,0)="""RTN"",""IBCEP5"",106,0)"
^XMB(3.9,55,2,16782,0)=" . I '$G(IBINS),'IBIF D:IBLCT SET^VALM10(IBLCT+1,"" "",IBCT) S IBLCT=$S(IBLCT:IBLCT+2,1:1) D SET^VALM10(IBLCT,""INSURANCE CO: ""_$S($E(INS)="" "":""ALL INSURANCE"",1:INS),$S(IBCT:IBCT,1:1))"
^XMB(3.9,55,2,16783,0)="""RTN"",""IBCEP5"",107,0)"
^XMB(3.9,55,2,16784,0)=" . S PT="""""
^XMB(3.9,55,2,16785,0)="""RTN"",""IBCEP5"",108,0)"
^XMB(3.9,55,2,16786,0)=" . F  S PT=$O(^TMP(""IBPRV_SORT"",$J,INS,PT)) Q:PT=""""  S FT="""" F  S FT=$O(^TMP(""IBPRV_SORT"",$J,INS,PT,FT)) Q:FT=""""  S CT="""" F  S CT=$O(^TMP(""IBPRV_SORT"",$J,INS,PT,FT,CT)) Q:CT=""""  D"
^XMB(3.9,55,2,16787,0)="""RTN"",""IBCEP5"",109,0)"
^XMB(3.9,55,2,16788,0)=" .. S CU="""" F  S CU=$O(^TMP(""IBPRV_SORT"",$J,INS,PT,FT,CT,CU)) Q:CU=""""  S Z="""" F  S Z=$O(^TMP(""IBPRV_SORT"",$J,INS,PT,FT,CT,CU,Z)) Q:Z=""""  S IB=$G(^(Z)) D"
^XMB(3.9,55,2,16789,0)="""RTN"",""IBCEP5"",110,0)"
^XMB(3.9,55,2,16790,0)=" ... S IBLCT=IBLCT+1,IBCT=IBCT+1"
^XMB(3.9,55,2,16791,0)="""RTN"",""IBCEP5"",111,0)"
^XMB(3.9,55,2,16792,0)=" ... S Z0=$E(IBCT_""     "",1,4)_"" ""_$E($$EXPAND^IBTRE(355.9,.06,PT)_$S(PT=$$STLIC^IBCEP8():""(""_$P($G(^DIC(5,+$P($G(^IBA(355.93,+IBPRV,0)),U,7),0)),U,2)_"")"",1:"""")_$J("""",20),1,20)_""  ""_$S(FT=1:""UB-92"",FT=2:""HCFA "",1:""BOTH "")"
^XMB(3.9,55,2,16793,0)="""RTN"",""IBCEP5"",112,0)"
^XMB(3.9,55,2,16794,0)=" ... S Z0=Z0_""  ""_$E($S(CT=3:""RX"",CT=1:""INPT"",CT=2:""OUTPT"",1:""INPT/OUTPT"")_$J("""",11),1,11)"
^XMB(3.9,55,2,16795,0)="""RTN"",""IBCEP5"",113,0)"
^XMB(3.9,55,2,16796,0)=" ... S Z0=Z0_""  ""_$E($S(CU'=""*N/A*"":$P($G(^IBA(355.95,+$G(^IBA(355.96,CU,0)),0)),U),1:"""")_$J("""",15),1,15) I Z0[""MEDICINE"" X ""*"""
^XMB(3.9,55,2,16797,0)="""RTN"",""IBCEP5"",114,0)"
^XMB(3.9,55,2,16798,0)=" ... D SET^VALM10(IBLCT,Z0_"" ""_IB,IBCT)"
^XMB(3.9,55,2,16799,0)="""RTN"",""IBCEP5"",115,0)"
^XMB(3.9,55,2,16800,0)=" ... S ^TMP(""IBPRV_"",$J,""ZIDX"",IBCT)=$S(Z'=0:Z,1:""LIC^""_IBPRV)"
^XMB(3.9,55,2,16801,0)="""RTN"",""IBCEP5"",116,0)"
^XMB(3.9,55,2,16802,0)=" I IBSLEV=1,IBPRV[""VA(200"" D"
^XMB(3.9,55,2,16803,0)="""RTN"",""IBCEP5"",117,0)"
^XMB(3.9,55,2,16804,0)=" . N IBP"
^XMB(3.9,55,2,16805,0)="""RTN"",""IBCEP5"",118,0)"
^XMB(3.9,55,2,16806,0)=" . S IBP=+IBPRV"
^XMB(3.9,55,2,16807,0)="""RTN"",""IBCEP5"",119,0)"
^XMB(3.9,55,2,16808,0)=" . Q:'$$GETLIC^IBCEP5D(.IBP)"
^XMB(3.9,55,2,16809,0)="""RTN"",""IBCEP5"",120,0)"
^XMB(3.9,55,2,16810,0)=" . I IBCT S IBLCT=IBLCT+1 D SET^VALM10(IBLCT,"" "",IBCT)"
^XMB(3.9,55,2,16811,0)="""RTN"",""IBCEP5"",121,0)"
^XMB(3.9,55,2,16812,0)=" . S Z=0 F  S Z=$O(IBP(Z)) Q:'Z  D"
^XMB(3.9,55,2,16813,0)="""RTN"",""IBCEP5"",122,0)"
^XMB(3.9,55,2,16814,0)=" .. S IBLCT=IBLCT+1,IBCT=IBCT+1"
^XMB(3.9,55,2,16815,0)="""RTN"",""IBCEP5"",123,0)"
^XMB(3.9,55,2,16816,0)=" .. D SET^VALM10(IBLCT,$E(IBCT_""     "",1,4)_$E($P($G(^DIC(5,+Z,0)),U,2)_"" STATE LICENSE #""_$J("""",20),1,20)_$J("""",39)_IBP(Z),IBCT)"
^XMB(3.9,55,2,16817,0)="""RTN"",""IBCEP5"",124,0)"
^XMB(3.9,55,2,16818,0)=" .. S ^TMP(""IBPRV_"",$J,""ZIDX"",IBCT)=""LIC^""_+IBPRV"
^XMB(3.9,55,2,16819,0)="""RTN"",""IBCEP5"",125,0)"
^XMB(3.9,55,2,16820,0)=" K ^TMP(""IBPRV_SORT"",$J)"
^XMB(3.9,55,2,16821,0)="""RTN"",""IBCEP5"",126,0)"
^XMB(3.9,55,2,16822,0)=" ;"
^XMB(3.9,55,2,16823,0)="""RTN"",""IBCEP5"",127,0)"
^XMB(3.9,55,2,16824,0)=" I IBLCT=0 D  G BLDQ ; No entries for ins co selected"
^XMB(3.9,55,2,16825,0)="""RTN"",""IBCEP5"",128,0)"
^XMB(3.9,55,2,16826,0)=" . D SET^VALM10(1,"" "")"
^XMB(3.9,55,2,16827,0)="""RTN"",""IBCEP5"",129,0)"
^XMB(3.9,55,2,16828,0)=" . D SET^VALM10(2,""  No ID's found for provider ""_$S('$G(IBINS):"""",1:""and selected insurance co""))"
^XMB(3.9,55,2,16829,0)="""RTN"",""IBCEP5"",130,0)"
^XMB(3.9,55,2,16830,0)=" . S IBLCT=2"
^XMB(3.9,55,2,16831,0)="""RTN"",""IBCEP5"",131,0)"
^XMB(3.9,55,2,16832,0)=" ;"
^XMB(3.9,55,2,16833,0)="""RTN"",""IBCEP5"",132,0)"
^XMB(3.9,55,2,16834,0)="BLDQ K VALMCNT,VALMBG"
^XMB(3.9,55,2,16835,0)="""RTN"",""IBCEP5"",133,0)"
^XMB(3.9,55,2,16836,0)=" S VALMCNT=IBLCT,VALMBG=1"
^XMB(3.9,55,2,16837,0)="""RTN"",""IBCEP5"",134,0)"
^XMB(3.9,55,2,16838,0)=" Q"
^XMB(3.9,55,2,16839,0)="""RTN"",""IBCEP5"",135,0)"
^XMB(3.9,55,2,16840,0)=" ;"
^XMB(3.9,55,2,16841,0)="""RTN"",""IBCEP5"",136,0)"
^XMB(3.9,55,2,16842,0)="HELP ; -- help code"
^XMB(3.9,55,2,16843,0)="""RTN"",""IBCEP5"",137,0)"
^XMB(3.9,55,2,16844,0)=" S X=""?"" D DISP^XQORM1 W !!"
^XMB(3.9,55,2,16845,0)="""RTN"",""IBCEP5"",138,0)"
^XMB(3.9,55,2,16846,0)=" Q"
^XMB(3.9,55,2,16847,0)="""RTN"",""IBCEP5"",139,0)"
^XMB(3.9,55,2,16848,0)=" ;"
^XMB(3.9,55,2,16849,0)="""RTN"",""IBCEP5"",140,0)"
^XMB(3.9,55,2,16850,0)="EXIT ; -- exit code"
^XMB(3.9,55,2,16851,0)="""RTN"",""IBCEP5"",141,0)"
^XMB(3.9,55,2,16852,0)=" K IBFASTXT"
^XMB(3.9,55,2,16853,0)="""RTN"",""IBCEP5"",142,0)"
^XMB(3.9,55,2,16854,0)=" D COPYPROV^IBCEP5A(IBINS)"
^XMB(3.9,55,2,16855,0)="""RTN"",""IBCEP5"",143,0)"
^XMB(3.9,55,2,16856,0)=" K IBPRV"
^XMB(3.9,55,2,16857,0)="""RTN"",""IBCEP5"",144,0)"
^XMB(3.9,55,2,16858,0)=" D CLEAN^VALM10"
^XMB(3.9,55,2,16859,0)="""RTN"",""IBCEP5"",145,0)"
^XMB(3.9,55,2,16860,0)=" K ^TMP(""IBPRV_"",$J),^TMP(""IBPRV_SORT"",$J),IBINS,IBALL"
^XMB(3.9,55,2,16861,0)="""RTN"",""IBCEP5"",146,0)"
^XMB(3.9,55,2,16862,0)=" Q"
^XMB(3.9,55,2,16863,0)="""RTN"",""IBCEP5"",147,0)"
^XMB(3.9,55,2,16864,0)=" ;"
^XMB(3.9,55,2,16865,0)="""RTN"",""IBCEP5"",148,0)"
^XMB(3.9,55,2,16866,0)="EXPND ; -- expand code"
^XMB(3.9,55,2,16867,0)="""RTN"",""IBCEP5"",149,0)"
^XMB(3.9,55,2,16868,0)=" Q"
^XMB(3.9,55,2,16869,0)="""RTN"",""IBCEP5"",150,0)"
^XMB(3.9,55,2,16870,0)=" ;"
^XMB(3.9,55,2,16871,0)="""RTN"",""IBCEP5"",151,0)"
^XMB(3.9,55,2,16872,0)="SEL(IBDA,MANY) ; Select from provider id list"
^XMB(3.9,55,2,16873,0)="""RTN"",""IBCEP5"",152,0)"
^XMB(3.9,55,2,16874,0)=" ; IBDA is passed by reference and IBDA(1) returned containing"
^XMB(3.9,55,2,16875,0)="""RTN"",""IBCEP5"",153,0)"
^XMB(3.9,55,2,16876,0)=" ;  ien's of the provider id records selected (file 355.9)."
^XMB(3.9,55,2,16877,0)="""RTN"",""IBCEP5"",154,0)"
^XMB(3.9,55,2,16878,0)=" ; If > 1 entry can be selected, MANY is set to 1"
^XMB(3.9,55,2,16879,0)="""RTN"",""IBCEP5"",155,0)"
^XMB(3.9,55,2,16880,0)=" N Z"
^XMB(3.9,55,2,16881,0)="""RTN"",""IBCEP5"",156,0)"
^XMB(3.9,55,2,16882,0)=" S IBDA=0"
^XMB(3.9,55,2,16883,0)="""RTN"",""IBCEP5"",157,0)"
^XMB(3.9,55,2,16884,0)=" D EN^VALM2($G(XQORNOD(0)),$S($G(MANY):"""",1:""S""))"
^XMB(3.9,55,2,16885,0)="""RTN"",""IBCEP5"",158,0)"
^XMB(3.9,55,2,16886,0)=" S Z=0 F  S Z=$O(VALMY(Z)) Q:'Z  S IBDA=IBDA+1,IBDA(IBDA)=$G(^TMP(""IBPRV_"",$J,""ZIDX"",Z))"
^XMB(3.9,55,2,16887,0)="""RTN"",""IBCEP5"",159,0)"
^XMB(3.9,55,2,16888,0)=" Q"
^XMB(3.9,55,2,16889,0)="""RTN"",""IBCEP5"",160,0)"
^XMB(3.9,55,2,16890,0)=" ;"
^XMB(3.9,55,2,16891,0)="""RTN"",""IBCEP5A"")"
^XMB(3.9,55,2,16892,0)="0^25^B24226544^B17570421"
^XMB(3.9,55,2,16893,0)="""RTN"",""IBCEP5A"",1,0)"
^XMB(3.9,55,2,16894,0)="IBCEP5A ;ALB/TMP - EDI UTILITIES for provider ID ;29-SEP-00"
^XMB(3.9,55,2,16895,0)="""RTN"",""IBCEP5A"",2,0)"
^XMB(3.9,55,2,16896,0)=" ;;2.0;INTEGRATED BILLING;**137,232,320**;21-MAR-94"
^XMB(3.9,55,2,16897,0)="""RTN"",""IBCEP5A"",3,0)"
^XMB(3.9,55,2,16898,0)=" ;"
^XMB(3.9,55,2,16899,0)="""RTN"",""IBCEP5A"",4,0)"
^XMB(3.9,55,2,16900,0)="NEW(IBPRV,IBINS) ; Add new prov id"
^XMB(3.9,55,2,16901,0)="""RTN"",""IBCEP5A"",5,0)"
^XMB(3.9,55,2,16902,0)=" D FULL^VALM1"
^XMB(3.9,55,2,16903,0)="""RTN"",""IBCEP5A"",6,0)"
^XMB(3.9,55,2,16904,0)=" N DIC,DIR,X,Y,DA,DO,DD,DLAYGO,IBQ,IBIEN,IBPRV0,DTOUT,DUOUT,IBIF,IBSIC"
^XMB(3.9,55,2,16905,0)="""RTN"",""IBCEP5A"",7,0)"
^XMB(3.9,55,2,16906,0)=" S IBQ=0,IBPRV0=$S(IBPRV'[""355.93"":"""",1:$G(^IBA(355.93,+IBPRV,0)))"
^XMB(3.9,55,2,16907,0)="""RTN"",""IBCEP5A"",8,0)"
^XMB(3.9,55,2,16908,0)=" ;"
^XMB(3.9,55,2,16909,0)="""RTN"",""IBCEP5A"",9,0)"
^XMB(3.9,55,2,16910,0)=" ; Only 5 secondary providers allowed for lab/facilities"
^XMB(3.9,55,2,16911,0)="""RTN"",""IBCEP5A"",10,0)"
^XMB(3.9,55,2,16912,0)=" S IBIF=$P(IBPRV0,U,2)"
^XMB(3.9,55,2,16913,0)="""RTN"",""IBCEP5A"",11,0)"
^XMB(3.9,55,2,16914,0)=" S IBSIC=$O(^TMP(""IBPRV_"",$J,""ZIDX"",""""),-1)"
^XMB(3.9,55,2,16915,0)="""RTN"",""IBCEP5A"",12,0)"
^XMB(3.9,55,2,16916,0)=" I IBIF=1,IBSIC>4 D  G NEWQ"
^XMB(3.9,55,2,16917,0)="""RTN"",""IBCEP5A"",13,0)"
^XMB(3.9,55,2,16918,0)=" . S DIR(0)=""EA"",DIR(""A"",1)=""A maximum of 5 secondary IDs are allowed for a lab/facility."",DIR(""A"")=""PRESS ENTER TO CONTINUE "" D ^DIR K DIR W !"
^XMB(3.9,55,2,16919,0)="""RTN"",""IBCEP5A"",14,0)"
^XMB(3.9,55,2,16920,0)=" ;"
^XMB(3.9,55,2,16921,0)="""RTN"",""IBCEP5A"",15,0)"
^XMB(3.9,55,2,16922,0)=" S DIR(0)=""PAr^355.97:AEMQ"""
^XMB(3.9,55,2,16923,0)="""RTN"",""IBCEP5A"",16,0)"
^XMB(3.9,55,2,16924,0)=" S DIR(""A"")=""Enter Provider ID Qualifier: """
^XMB(3.9,55,2,16925,0)="""RTN"",""IBCEP5A"",17,0)"
^XMB(3.9,55,2,16926,0)=" S DIR(""?"")=""Enter a Qualifier to indentify the type of ID number you are entering."""
^XMB(3.9,55,2,16927,0)="""RTN"",""IBCEP5A"",18,0)"
^XMB(3.9,55,2,16928,0)=" ;"
^XMB(3.9,55,2,16929,0)="""RTN"",""IBCEP5A"",19,0)"
^XMB(3.9,55,2,16930,0)=" ;S DIR(""S"")=$S($G(IBINS):""I """"04""""[+$P($G(^(0)),U,2)"",1:""I +$P($G(^(1)),U,7)&'$G(^(1))&$S($P(IBPRV0,U,2)'=1:1,1:$P(^(0),U,3)'=""""SY"""")"")"
^XMB(3.9,55,2,16931,0)="""RTN"",""IBCEP5A"",20,0)"
^XMB(3.9,55,2,16932,0)=" I $G(IBINS) D"
^XMB(3.9,55,2,16933,0)="""RTN"",""IBCEP5A"",21,0)"
^XMB(3.9,55,2,16934,0)=" . I $P(IBPRV0,U,2)=1 S DIR(""S"")=""I $$LFINS^IBCEPU(Y)"" Q   ; Lab or Facility ID provided by ins"
^XMB(3.9,55,2,16935,0)="""RTN"",""IBCEP5A"",22,0)"
^XMB(3.9,55,2,16936,0)=" . S DIR(""S"")=""I $$RAINS^IBCEPU(Y)"" Q   ; Non VA Ind provided by ins"
^XMB(3.9,55,2,16937,0)="""RTN"",""IBCEP5A"",23,0)"
^XMB(3.9,55,2,16938,0)=" I '$G(IBINS) D"
^XMB(3.9,55,2,16939,0)="""RTN"",""IBCEP5A"",24,0)"
^XMB(3.9,55,2,16940,0)=" . I $P(IBPRV0,U,2)=1 D  Q"
^XMB(3.9,55,2,16941,0)="""RTN"",""IBCEP5A"",25,0)"
^XMB(3.9,55,2,16942,0)=" .. I IBPRV[""VA(200,"" S DIR(""S"")=""I $$LFINS^IBCEPU(Y)"" Q   ; VA facility own IDS"
^XMB(3.9,55,2,16943,0)="""RTN"",""IBCEP5A"",26,0)"
^XMB(3.9,55,2,16944,0)=" .. S DIR(""S"")=""I $$NVALFOWN^IBCEPU(Y)"" Q   ; Non -VA facility own"
^XMB(3.9,55,2,16945,0)="""RTN"",""IBCEP5A"",27,0)"
^XMB(3.9,55,2,16946,0)=" . S DIR(""S"")=""I $$RAOWN^IBCEPU(Y)""   ; FACILITY/GROUP;PROVIDER'S OWN PERSONAL NUMBER"
^XMB(3.9,55,2,16947,0)="""RTN"",""IBCEP5A"",28,0)"
^XMB(3.9,55,2,16948,0)=" ;"
^XMB(3.9,55,2,16949,0)="""RTN"",""IBCEP5A"",29,0)"
^XMB(3.9,55,2,16950,0)=" D ^DIR K DIR"
^XMB(3.9,55,2,16951,0)="""RTN"",""IBCEP5A"",30,0)"
^XMB(3.9,55,2,16952,0)=" I $D(DTOUT)!$D(DUOUT) S IBQ=1 G NEWQ"
^XMB(3.9,55,2,16953,0)="""RTN"",""IBCEP5A"",31,0)"
^XMB(3.9,55,2,16954,0)=" I $P($G(^IBE(355.97,+Y,1)),U,3),IBPRV[""355.93"" D  G NEWQ"
^XMB(3.9,55,2,16955,0)="""RTN"",""IBCEP5A"",32,0)"
^XMB(3.9,55,2,16956,0)=" . K DIE,DR"
^XMB(3.9,55,2,16957,0)="""RTN"",""IBCEP5A"",33,0)"
^XMB(3.9,55,2,16958,0)=" . S DIE=""^IBA(355.93,"",DA=+IBPRV"
^XMB(3.9,55,2,16959,0)="""RTN"",""IBCEP5A"",34,0)"
^XMB(3.9,55,2,16960,0)=" . S DR=""S Y=""""@5"""";@1;.07;@5;I $P($G(^IBA(355.93,DA,0)),U,7)'="""""""" S Y=""""@2"""";W !!,""""YOU MUST HAVE A STATE TO USE LICENSE # AS AN ID!!"""",! S Y=""""@1"""";@2;W !!,""""LICENSING STATE: """",$P($G(^DIC(5,+$P($G(^IBA(355.93,DA,0)),U,7),0)),U,2);.12"""
^XMB(3.9,55,2,16961,0)="""RTN"",""IBCEP5A"",35,0)"
^XMB(3.9,55,2,16962,0)=" . D ^DIE"
^XMB(3.9,55,2,16963,0)="""RTN"",""IBCEP5A"",36,0)"
^XMB(3.9,55,2,16964,0)=" . I '$D(Y) D BLD^IBCEP5"
^XMB(3.9,55,2,16965,0)="""RTN"",""IBCEP5A"",37,0)"
^XMB(3.9,55,2,16966,0)=" K IB3559(.06)"
^XMB(3.9,55,2,16967,0)="""RTN"",""IBCEP5A"",38,0)"
^XMB(3.9,55,2,16968,0)=" S IB3559(.06)=+Y"
^XMB(3.9,55,2,16969,0)="""RTN"",""IBCEP5A"",39,0)"
^XMB(3.9,55,2,16970,0)=" ;"
^XMB(3.9,55,2,16971,0)="""RTN"",""IBCEP5A"",40,0)"
^XMB(3.9,55,2,16972,0)=" I $G(IBINS)'=""NO"",'$G(IBINS),'$P($G(^IBE(355.97,IB3559(.06),1)),U,8) D  G:IBQ NEWQ"
^XMB(3.9,55,2,16973,0)="""RTN"",""IBCEP5A"",41,0)"
^XMB(3.9,55,2,16974,0)=" . S DIR(0)=""PA^DIC(36,:AEMQ"",DIR(""A"")=""Select INSURANCE CO: "",DIR(""?"")=""Select the INSURANCE CO that is furnishing you with the provider ID"""
^XMB(3.9,55,2,16975,0)="""RTN"",""IBCEP5A"",42,0)"
^XMB(3.9,55,2,16976,0)=" . D ^DIR K DIR"
^XMB(3.9,55,2,16977,0)="""RTN"",""IBCEP5A"",43,0)"
^XMB(3.9,55,2,16978,0)=" . I $D(DTOUT)!$D(DUOUT) S IBQ=1 Q"
^XMB(3.9,55,2,16979,0)="""RTN"",""IBCEP5A"",44,0)"
^XMB(3.9,55,2,16980,0)=" . S IBINS=$S(Y>0:+Y,1:"""")"
^XMB(3.9,55,2,16981,0)="""RTN"",""IBCEP5A"",45,0)"
^XMB(3.9,55,2,16982,0)=" S IB3559(.02)=$S($G(IBINS):IBINS,1:""*ALL*"")"
^XMB(3.9,55,2,16983,0)="""RTN"",""IBCEP5A"",46,0)"
^XMB(3.9,55,2,16984,0)=" ;"
^XMB(3.9,55,2,16985,0)="""RTN"",""IBCEP5A"",47,0)"
^XMB(3.9,55,2,16986,0)=" I '$P($G(^IBE(355.97,IB3559(.06),1)),U,8) D  G:'IBIEN NEWQ"
^XMB(3.9,55,2,16987,0)="""RTN"",""IBCEP5A"",48,0)"
^XMB(3.9,55,2,16988,0)=" . S DIC(0)=""L"",DLAYGO=355.9,DIC=""^IBA(355.9,"",X=IBPRV"
^XMB(3.9,55,2,16989,0)="""RTN"",""IBCEP5A"",49,0)"
^XMB(3.9,55,2,16990,0)=" . S:$G(IBINS) DIC(""DR"")="".02////""_IBINS"
^XMB(3.9,55,2,16991,0)="""RTN"",""IBCEP5A"",50,0)"
^XMB(3.9,55,2,16992,0)=" . D FILE^DICN K DIC,DLAYGO,DD,DO"
^XMB(3.9,55,2,16993,0)="""RTN"",""IBCEP5A"",51,0)"
^XMB(3.9,55,2,16994,0)=" . I Y'>0!$D(DUOUT)!$D(DTOUT) S IBIEN=0 Q"
^XMB(3.9,55,2,16995,0)="""RTN"",""IBCEP5A"",52,0)"
^XMB(3.9,55,2,16996,0)=" . S IBIEN=+Y"
^XMB(3.9,55,2,16997,0)="""RTN"",""IBCEP5A"",53,0)"
^XMB(3.9,55,2,16998,0)=" . D NEWID^IBCEP5B(355.9,IB3559(.02),IBPRV,IB3559(.06),IBIEN,1)"
^XMB(3.9,55,2,16999,0)="""RTN"",""IBCEP5A"",54,0)"
^XMB(3.9,55,2,17000,0)=" ;"
^XMB(3.9,55,2,17001,0)="""RTN"",""IBCEP5A"",55,0)"
^XMB(3.9,55,2,17002,0)=" E  D  ; Provider-specific id stored outside of billing"
^XMB(3.9,55,2,17003,0)="""RTN"",""IBCEP5A"",56,0)"
^XMB(3.9,55,2,17004,0)=" . N DIR,X,Y,Z"
^XMB(3.9,55,2,17005,0)="""RTN"",""IBCEP5A"",57,0)"
^XMB(3.9,55,2,17006,0)=" . ; State License # is stored in file 200"
^XMB(3.9,55,2,17007,0)="""RTN"",""IBCEP5A"",58,0)"
^XMB(3.9,55,2,17008,0)=" . ; DEA# may not be edited in IB"
^XMB(3.9,55,2,17009,0)="""RTN"",""IBCEP5A"",59,0)"
^XMB(3.9,55,2,17010,0)=" . S Z=$G(^IBE(355.97,IB3559(.06),1))"
^XMB(3.9,55,2,17011,0)="""RTN"",""IBCEP5A"",60,0)"
^XMB(3.9,55,2,17012,0)=" . I +Z D  Q"
^XMB(3.9,55,2,17013,0)="""RTN"",""IBCEP5A"",61,0)"
^XMB(3.9,55,2,17014,0)=" .. W ! S DIR(0)=""EA"",DIR(""A"",1)=""DEA # CANNOT BE EDITED WITHIN THE BILLING SOFTWARE"",DIR(""A"")=""PRESS ENTER TO CONTINUE "" D ^DIR K DIR W !"
^XMB(3.9,55,2,17015,0)="""RTN"",""IBCEP5A"",62,0)"
^XMB(3.9,55,2,17016,0)=" . I $P(Z,U,3) D"
^XMB(3.9,55,2,17017,0)="""RTN"",""IBCEP5A"",63,0)"
^XMB(3.9,55,2,17018,0)=" .. D PRVED(+IBPRV)"
^XMB(3.9,55,2,17019,0)="""RTN"",""IBCEP5A"",64,0)"
^XMB(3.9,55,2,17020,0)=" D BLD^IBCEP5"
^XMB(3.9,55,2,17021,0)="""RTN"",""IBCEP5A"",65,0)"
^XMB(3.9,55,2,17022,0)="NEWQ K VALMBCK"
^XMB(3.9,55,2,17023,0)="""RTN"",""IBCEP5A"",66,0)"
^XMB(3.9,55,2,17024,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,17025,0)="""RTN"",""IBCEP5A"",67,0)"
^XMB(3.9,55,2,17026,0)=" Q"
^XMB(3.9,55,2,17027,0)="""RTN"",""IBCEP5A"",68,0)"
^XMB(3.9,55,2,17028,0)=" ;"
^XMB(3.9,55,2,17029,0)="""RTN"",""IBCEP5A"",69,0)"
^XMB(3.9,55,2,17030,0)="DEL1 ; Delete Provider specific ID's"
^XMB(3.9,55,2,17031,0)="""RTN"",""IBCEP5A"",70,0)"
^XMB(3.9,55,2,17032,0)=" N IBDA,DA,DIE,DR"
^XMB(3.9,55,2,17033,0)="""RTN"",""IBCEP5A"",71,0)"
^XMB(3.9,55,2,17034,0)=" D FULL^VALM1"
^XMB(3.9,55,2,17035,0)="""RTN"",""IBCEP5A"",72,0)"
^XMB(3.9,55,2,17036,0)=" D SEL^IBCEP5(.IBDA)"
^XMB(3.9,55,2,17037,0)="""RTN"",""IBCEP5A"",73,0)"
^XMB(3.9,55,2,17038,0)=" G:'$O(IBDA(0)) DEL1Q"
^XMB(3.9,55,2,17039,0)="""RTN"",""IBCEP5A"",74,0)"
^XMB(3.9,55,2,17040,0)=" S IBDA=+$O(IBDA("""")),IBDA=$G(IBDA(IBDA))"
^XMB(3.9,55,2,17041,0)="""RTN"",""IBCEP5A"",75,0)"
^XMB(3.9,55,2,17042,0)=" G:'IBDA&($E($P(IBDA,U),1,3)'=""LIC"") DEL1Q"
^XMB(3.9,55,2,17043,0)="""RTN"",""IBCEP5A"",76,0)"
^XMB(3.9,55,2,17044,0)=" I IBDA>0 D DEL^IBCEP5B(355.9,IBDA,""""),BLD^IBCEP5"
^XMB(3.9,55,2,17045,0)="""RTN"",""IBCEP5A"",77,0)"
^XMB(3.9,55,2,17046,0)=" E  D  ; check for state license"
^XMB(3.9,55,2,17047,0)="""RTN"",""IBCEP5A"",78,0)"
^XMB(3.9,55,2,17048,0)=" . Q:$E($P(IBDA,U),1,3)'=""LIC"""
^XMB(3.9,55,2,17049,0)="""RTN"",""IBCEP5A"",79,0)"
^XMB(3.9,55,2,17050,0)=" . I $P(IBDA,U,2)[""IBA(355.93"" D"
^XMB(3.9,55,2,17051,0)="""RTN"",""IBCEP5A"",80,0)"
^XMB(3.9,55,2,17052,0)=" .. S DA=+$P(IBDA,U,2),DR="".12///@"",DIE=""^IBA(355.93,"" D ^DIE"
^XMB(3.9,55,2,17053,0)="""RTN"",""IBCEP5A"",81,0)"
^XMB(3.9,55,2,17054,0)=" . E  D"
^XMB(3.9,55,2,17055,0)="""RTN"",""IBCEP5A"",82,0)"
^XMB(3.9,55,2,17056,0)=" .. D PRVED(+$P(IBDA,U,2))"
^XMB(3.9,55,2,17057,0)="""RTN"",""IBCEP5A"",83,0)"
^XMB(3.9,55,2,17058,0)=" . D BLD^IBCEP5"
^XMB(3.9,55,2,17059,0)="""RTN"",""IBCEP5A"",84,0)"
^XMB(3.9,55,2,17060,0)="DEL1Q S VALMBCK=""R"""
^XMB(3.9,55,2,17061,0)="""RTN"",""IBCEP5A"",85,0)"
^XMB(3.9,55,2,17062,0)=" Q"
^XMB(3.9,55,2,17063,0)="""RTN"",""IBCEP5A"",86,0)"
^XMB(3.9,55,2,17064,0)=" ;"
^XMB(3.9,55,2,17065,0)="""RTN"",""IBCEP5A"",87,0)"
^XMB(3.9,55,2,17066,0)="CHG1 ; Edit Provider ID's"
^XMB(3.9,55,2,17067,0)="""RTN"",""IBCEP5A"",88,0)"
^XMB(3.9,55,2,17068,0)=" N IBDA,DIR,DA,DIE,DR,Z"
^XMB(3.9,55,2,17069,0)="""RTN"",""IBCEP5A"",89,0)"
^XMB(3.9,55,2,17070,0)=" D FULL^VALM1"
^XMB(3.9,55,2,17071,0)="""RTN"",""IBCEP5A"",90,0)"
^XMB(3.9,55,2,17072,0)=" D SEL^IBCEP5(.IBDA)"
^XMB(3.9,55,2,17073,0)="""RTN"",""IBCEP5A"",91,0)"
^XMB(3.9,55,2,17074,0)=" G:'$O(IBDA(0)) CHG1Q"
^XMB(3.9,55,2,17075,0)="""RTN"",""IBCEP5A"",92,0)"
^XMB(3.9,55,2,17076,0)=" S IBDA=+$O(IBDA("""")),IBDA=$G(IBDA(IBDA))"
^XMB(3.9,55,2,17077,0)="""RTN"",""IBCEP5A"",93,0)"
^XMB(3.9,55,2,17078,0)=" I IBDA>0 D"
^XMB(3.9,55,2,17079,0)="""RTN"",""IBCEP5A"",94,0)"
^XMB(3.9,55,2,17080,0)=" . S Z=$G(^IBA(355.97,+$P($G(^IBA(355.96,+$P($G(^IBA(355.9,IBDA,0)),U,6),0)),U,6),1))"
^XMB(3.9,55,2,17081,0)="""RTN"",""IBCEP5A"",95,0)"
^XMB(3.9,55,2,17082,0)=" . I $P(Z,U)!$P(Z,U,2)!$P(Z,U,4) D  G CHG1Q"
^XMB(3.9,55,2,17083,0)="""RTN"",""IBCEP5A"",96,0)"
^XMB(3.9,55,2,17084,0)=" .. S DIR(""A"",1)=""SORRY, YOU ARE NOT ALLOWED TO EDIT THIS TYPE OF PROVIDER ID # HERE"",DIR(""A"")=""PRESS ENTER TO CONTINUE"""
^XMB(3.9,55,2,17085,0)="""RTN"",""IBCEP5A"",97,0)"
^XMB(3.9,55,2,17086,0)=" .. S DIR(0)=""AE"" W ! D ^DIR K DIR W !"
^XMB(3.9,55,2,17087,0)="""RTN"",""IBCEP5A"",98,0)"
^XMB(3.9,55,2,17088,0)=" . D CHG^IBCEP5B(355.9,IBDA),BLD^IBCEP5"
^XMB(3.9,55,2,17089,0)="""RTN"",""IBCEP5A"",99,0)"
^XMB(3.9,55,2,17090,0)=" ; check for state license"
^XMB(3.9,55,2,17091,0)="""RTN"",""IBCEP5A"",100,0)"
^XMB(3.9,55,2,17092,0)=" E  D"
^XMB(3.9,55,2,17093,0)="""RTN"",""IBCEP5A"",101,0)"
^XMB(3.9,55,2,17094,0)=" . Q:$E($P(IBDA,U),1,3)'=""LIC"""
^XMB(3.9,55,2,17095,0)="""RTN"",""IBCEP5A"",102,0)"
^XMB(3.9,55,2,17096,0)=" . I $P(IBDA,U,2)[""IBA(355.93"" D"
^XMB(3.9,55,2,17097,0)="""RTN"",""IBCEP5A"",103,0)"
^XMB(3.9,55,2,17098,0)=" .. S DA=+$P(IBDA,U,2),DIE=""^IBA(355.93,"""
^XMB(3.9,55,2,17099,0)="""RTN"",""IBCEP5A"",104,0)"
^XMB(3.9,55,2,17100,0)=" .. S DR=""S Y=""""@5"""";@1;.07;@5;I $P($G(^IBA(355.93,DA,0)),U,7)'="""""""" S Y=""""@2"""";W !,""""YOU MUST HAVE A STATE TO USE LICENSE # AS AN ID!!"""" S Y=""""@1"""";@2;W !!,""""LICENSING STATE: """",$P($G(^DIC(5,+$P($G(^IBA(355.93,DA,0)),U,7),0)),U,2);.12"""
^XMB(3.9,55,2,17101,0)="""RTN"",""IBCEP5A"",105,0)"
^XMB(3.9,55,2,17102,0)=" .. D ^DIE"
^XMB(3.9,55,2,17103,0)="""RTN"",""IBCEP5A"",106,0)"
^XMB(3.9,55,2,17104,0)=" . E  D"
^XMB(3.9,55,2,17105,0)="""RTN"",""IBCEP5A"",107,0)"
^XMB(3.9,55,2,17106,0)=" .. D PRVED(+$P(IBDA,U,2))"
^XMB(3.9,55,2,17107,0)="""RTN"",""IBCEP5A"",108,0)"
^XMB(3.9,55,2,17108,0)=" . D BLD^IBCEP5"
^XMB(3.9,55,2,17109,0)="""RTN"",""IBCEP5A"",109,0)"
^XMB(3.9,55,2,17110,0)="CHG1Q S VALMBCK=""R"""
^XMB(3.9,55,2,17111,0)="""RTN"",""IBCEP5A"",110,0)"
^XMB(3.9,55,2,17112,0)=" Q"
^XMB(3.9,55,2,17113,0)="""RTN"",""IBCEP5A"",111,0)"
^XMB(3.9,55,2,17114,0)=" ;"
^XMB(3.9,55,2,17115,0)="""RTN"",""IBCEP5A"",112,0)"
^XMB(3.9,55,2,17116,0)="PRVED(IBPRV) ; Maintain license #'s for VA provider ien IBPRV"
^XMB(3.9,55,2,17117,0)="""RTN"",""IBCEP5A"",113,0)"
^XMB(3.9,55,2,17118,0)=" S IBPRV=IBPRV_"";VA(200,"""
^XMB(3.9,55,2,17119,0)="""RTN"",""IBCEP5A"",114,0)"
^XMB(3.9,55,2,17120,0)=" D EN^IBCEP5D"
^XMB(3.9,55,2,17121,0)="""RTN"",""IBCEP5A"",115,0)"
^XMB(3.9,55,2,17122,0)=" Q"
^XMB(3.9,55,2,17123,0)="""RTN"",""IBCEP5A"",116,0)"
^XMB(3.9,55,2,17124,0)=" ;"
^XMB(3.9,55,2,17125,0)="""RTN"",""IBCEP5A"",117,0)"
^XMB(3.9,55,2,17126,0)="COPYPROV(IBINS) ; Check if any ID's were edited and this is a parent insurance company"
^XMB(3.9,55,2,17127,0)="""RTN"",""IBCEP5A"",118,0)"
^XMB(3.9,55,2,17128,0)=" ; IBINS = IEN into Insurance co file"
^XMB(3.9,55,2,17129,0)="""RTN"",""IBCEP5A"",119,0)"
^XMB(3.9,55,2,17130,0)=" ; "
^XMB(3.9,55,2,17131,0)="""RTN"",""IBCEP5A"",120,0)"
^XMB(3.9,55,2,17132,0)=" Q:'$D(^TMP(""IB_EDITED_IDS"",$J))"
^XMB(3.9,55,2,17133,0)="""RTN"",""IBCEP5A"",121,0)"
^XMB(3.9,55,2,17134,0)=" K ^TMP(""IB_EDITED_IDS"",$J)"
^XMB(3.9,55,2,17135,0)="""RTN"",""IBCEP5A"",122,0)"
^XMB(3.9,55,2,17136,0)=" D COPY^IBCEPCID(IBINS)"
^XMB(3.9,55,2,17137,0)="""RTN"",""IBCEP5A"",123,0)"
^XMB(3.9,55,2,17138,0)=" Q"
^XMB(3.9,55,2,17139,0)="""RTN"",""IBCEP5A"",124,0)"
^XMB(3.9,55,2,17140,0)=" ;"
^XMB(3.9,55,2,17141,0)="""RTN"",""IBCEP5A"",125,0)"
^XMB(3.9,55,2,17142,0)=" ; Get the next number so that the edits can be replicated in order for other providers/insurance companies"
^XMB(3.9,55,2,17143,0)="""RTN"",""IBCEP5A"",126,0)"
^XMB(3.9,55,2,17144,0)="NEXTONE() ;"
^XMB(3.9,55,2,17145,0)="""RTN"",""IBCEP5A"",127,0)"
^XMB(3.9,55,2,17146,0)=" Q $O(^TMP(""IB_EDITED_IDS"",$J,""""),-1)+1"
^XMB(3.9,55,2,17147,0)="""RTN"",""IBCEP5B"")"
^XMB(3.9,55,2,17148,0)="0^26^B37504139^B72371827"
^XMB(3.9,55,2,17149,0)="""RTN"",""IBCEP5B"",1,0)"
^XMB(3.9,55,2,17150,0)="IBCEP5B ;ALB/TMP - EDI UTILITIES for prov ID ;29-SEP-00"
^XMB(3.9,55,2,17151,0)="""RTN"",""IBCEP5B"",2,0)"
^XMB(3.9,55,2,17152,0)=" ;;2.0;INTEGRATED BILLING;**137,239,232,320**;21-MAR-94"
^XMB(3.9,55,2,17153,0)="""RTN"",""IBCEP5B"",3,0)"
^XMB(3.9,55,2,17154,0)=" ;"
^XMB(3.9,55,2,17155,0)="""RTN"",""IBCEP5B"",4,0)"
^XMB(3.9,55,2,17156,0)="NEWID(IBFILE,IBINS,IBPRV,IBPTYP,IBIEN,IBF) ; Generic add prov id"
^XMB(3.9,55,2,17157,0)="""RTN"",""IBCEP5B"",5,0)"
^XMB(3.9,55,2,17158,0)=" ; at both prov (file 355.9) and ins co levels (355.91)"
^XMB(3.9,55,2,17159,0)="""RTN"",""IBCEP5B"",6,0)"
^XMB(3.9,55,2,17160,0)=" ; IBFILE = 355.9 or 355.91 - the file being edited"
^XMB(3.9,55,2,17161,0)="""RTN"",""IBCEP5B"",7,0)"
^XMB(3.9,55,2,17162,0)=" ; IBINS = ien of ins co (36) or *ALL* for all ins co"
^XMB(3.9,55,2,17163,0)="""RTN"",""IBCEP5B"",8,0)"
^XMB(3.9,55,2,17164,0)=" ; IBPRV = vp ien of billing prov"
^XMB(3.9,55,2,17165,0)="""RTN"",""IBCEP5B"",9,0)"
^XMB(3.9,55,2,17166,0)=" ; IBPTYP = ien of prov type (file 355.96)"
^XMB(3.9,55,2,17167,0)="""RTN"",""IBCEP5B"",10,0)"
^XMB(3.9,55,2,17168,0)=" ; IBIEN = ien of entry being added (req'd)"
^XMB(3.9,55,2,17169,0)="""RTN"",""IBCEP5B"",11,0)"
^XMB(3.9,55,2,17170,0)=" ; IBF = 1 if deleting from ins-related options, """" from prov-related"
^XMB(3.9,55,2,17171,0)="""RTN"",""IBCEP5B"",12,0)"
^XMB(3.9,55,2,17172,0)=" N DIC,DIR,X,Y,Z,DA,DR,DIE,DO,DD,DLAYGO,DTOUT,DUOUT,IBQ,IBCUND,IB3559,IB35591,Q,IBDR,IBID,AFT"
^XMB(3.9,55,2,17173,0)="""RTN"",""IBCEP5B"",13,0)"
^XMB(3.9,55,2,17174,0)=" S IB35591(.03)="""",IBPTYP=$G(IBPTYP)"
^XMB(3.9,55,2,17175,0)="""RTN"",""IBCEP5B"",14,0)"
^XMB(3.9,55,2,17176,0)=" F Z=.04,.05,.03 D  G:Z="""" NEWQ"
^XMB(3.9,55,2,17177,0)="""RTN"",""IBCEP5B"",15,0)"
^XMB(3.9,55,2,17178,0)=" . I $S(Z'=.03:1,1:$S('$G(IBINS):0,1:$G(IBCUND))) D  Q:Z="""""
^XMB(3.9,55,2,17179,0)="""RTN"",""IBCEP5B"",16,0)"
^XMB(3.9,55,2,17180,0)=" .. N DA"
^XMB(3.9,55,2,17181,0)="""RTN"",""IBCEP5B"",17,0)"
^XMB(3.9,55,2,17182,0)=" .. I Z'=.03 S DIR(0)=IBFILE_"",""_Z"
^XMB(3.9,55,2,17183,0)="""RTN"",""IBCEP5B"",18,0)"
^XMB(3.9,55,2,17184,0)=" .. I Z=.03 D"
^XMB(3.9,55,2,17185,0)="""RTN"",""IBCEP5B"",19,0)"
^XMB(3.9,55,2,17186,0)=" ... S DIR(0)=""PAO^355.95:AEMQ"""
^XMB(3.9,55,2,17187,0)="""RTN"",""IBCEP5B"",20,0)"
^XMB(3.9,55,2,17188,0)=" ... S DIR(""S"")=""I $O(^IBA(355.96,""""AUNIQ"""",""_IBINS_"",Y,""_$G(IB3559(.04))_"",""_$G(IB3559(.05))_"",""_IBPTYP_"",0))!($O(^IBA(355.96,""""AUNIQ"""",""_IBINS_"",Y,""_$G(IB3559(.04))_"",0,""_IBPTYP_"",0)))"""
^XMB(3.9,55,2,17189,0)="""RTN"",""IBCEP5B"",21,0)"
^XMB(3.9,55,2,17190,0)=" ... S DIR(""S"")=DIR(""S"")_""!($O(^IBA(355.96,""""AUNIQ"""",""_IBINS_"",Y,0,""_$G(IB3559(.05))_"",""_IBPTYP_"",0)))!($O(^IBA(355.96,""""AUNIQ"""",""_IBINS_"",Y,0,0,""_IBPTYP_"",0)))"""
^XMB(3.9,55,2,17191,0)="""RTN"",""IBCEP5B"",22,0)"
^XMB(3.9,55,2,17192,0)=" ... S DIR(""?"",1)=""Care unit describes areas of service and is assigned by the payer, if"",DIR(""?"")=""  applicable.  Use Care Unit Maintenance to add or modify care units."""
^XMB(3.9,55,2,17193,0)="""RTN"",""IBCEP5B"",23,0)"
^XMB(3.9,55,2,17194,0)=" .. ;"
^XMB(3.9,55,2,17195,0)="""RTN"",""IBCEP5B"",24,0)"
^XMB(3.9,55,2,17196,0)=" .. I Z=.04,IBPRV[""355.93"",$$GET1^DIQ(355.93,+IBPRV,.02,""I"")=1 D"
^XMB(3.9,55,2,17197,0)="""RTN"",""IBCEP5B"",25,0)"
^XMB(3.9,55,2,17198,0)=" ... N AFT"
^XMB(3.9,55,2,17199,0)="""RTN"",""IBCEP5B"",26,0)"
^XMB(3.9,55,2,17200,0)=" ... S AFT=$$GET1^DIQ(355.97,IBPTYP,.07,""I"")  ; get allowable form type for this Provider ID Type"
^XMB(3.9,55,2,17201,0)="""RTN"",""IBCEP5B"",27,0)"
^XMB(3.9,55,2,17202,0)=" ... I AFT=""B"" S $P(DIR(0),U,3)=""K:"""".0.1.2.""""'[("""".""""_Y_""""."""") X"",DIR(""?"")=""Provider ID Qualifier selected allows institutional, professional or both"" Q"
^XMB(3.9,55,2,17203,0)="""RTN"",""IBCEP5B"",28,0)"
^XMB(3.9,55,2,17204,0)=" ... I AFT=""P"" S $P(DIR(0),U,3)=""K:Y'=2 X"",DIR(""?"")=""Provider ID Qualifier selected only allows professional (CMS/HCFA type) forms"" Q"
^XMB(3.9,55,2,17205,0)="""RTN"",""IBCEP5B"",29,0)"
^XMB(3.9,55,2,17206,0)=" ... I AFT=""I"" S $P(DIR(0),U,3)=""K:Y'=1 X"",DIR(""?"")=""Provider ID Qualifier selected only allows institutional (UB type) forms"" Q"
^XMB(3.9,55,2,17207,0)="""RTN"",""IBCEP5B"",30,0)"
^XMB(3.9,55,2,17208,0)=" .. ;"
^XMB(3.9,55,2,17209,0)="""RTN"",""IBCEP5B"",31,0)"
^XMB(3.9,55,2,17210,0)=" .. S DA=0"
^XMB(3.9,55,2,17211,0)="""RTN"",""IBCEP5B"",32,0)"
^XMB(3.9,55,2,17212,0)=" .. I Z=.04,$P($G(^IBE(355.97,+IBPTYP,0)),U,3)=""1A"" D SETDIR(.DIR)"
^XMB(3.9,55,2,17213,0)="""RTN"",""IBCEP5B"",33,0)"
^XMB(3.9,55,2,17214,0)=" .. D ^DIR K DIR"
^XMB(3.9,55,2,17215,0)="""RTN"",""IBCEP5B"",34,0)"
^XMB(3.9,55,2,17216,0)=" .. I $D(DTOUT)!$D(DUOUT) S Z="""" K IB3559,IB35591 Q"
^XMB(3.9,55,2,17217,0)="""RTN"",""IBCEP5B"",35,0)"
^XMB(3.9,55,2,17218,0)=" .. S IB3559(Z)=$S(Z'=.03:$P(Y,U),1:$S($P(Y,U)>0:$P(Y,U),1:""*N/A*""))"
^XMB(3.9,55,2,17219,0)="""RTN"",""IBCEP5B"",36,0)"
^XMB(3.9,55,2,17220,0)=" . I Z=.05 D"
^XMB(3.9,55,2,17221,0)="""RTN"",""IBCEP5B"",37,0)"
^XMB(3.9,55,2,17222,0)=" .. S IBCUND=$$CAREUN^IBCEP3(IBINS,IBPTYP,IB3559(.04),IB3559(.05),IB3559(.05)=3)"
^XMB(3.9,55,2,17223,0)="""RTN"",""IBCEP5B"",38,0)"
^XMB(3.9,55,2,17224,0)=" .. S:'IBCUND!($G(IB3559(.03))=0) IB3559(.03)=""*N/A*"""
^XMB(3.9,55,2,17225,0)="""RTN"",""IBCEP5B"",39,0)"
^XMB(3.9,55,2,17226,0)=" .. I '$G(IBINS) S IBINS=""*ALL*"""
^XMB(3.9,55,2,17227,0)="""RTN"",""IBCEP5B"",40,0)"
^XMB(3.9,55,2,17228,0)=" . I Z=.03 D CAREUN^IBCEP5C"
^XMB(3.9,55,2,17229,0)="""RTN"",""IBCEP5B"",41,0)"
^XMB(3.9,55,2,17230,0)=" ;"
^XMB(3.9,55,2,17231,0)="""RTN"",""IBCEP5B"",42,0)"
^XMB(3.9,55,2,17232,0)=" I $D(IB3559) D"
^XMB(3.9,55,2,17233,0)="""RTN"",""IBCEP5B"",43,0)"
^XMB(3.9,55,2,17234,0)=" . N Q,Z2,Z3,Z4,Z5,Z6,IBLAST,IBOK,DIR,Y,X"
^XMB(3.9,55,2,17235,0)="""RTN"",""IBCEP5B"",44,0)"
^XMB(3.9,55,2,17236,0)=" . S IBLAST=0"
^XMB(3.9,55,2,17237,0)="""RTN"",""IBCEP5B"",45,0)"
^XMB(3.9,55,2,17238,0)=" . D DISP^IBCEP4(""Q"",IBINS,IBPTYP,IB3559(.04),IB3559(.05),1)"
^XMB(3.9,55,2,17239,0)="""RTN"",""IBCEP5B"",46,0)"
^XMB(3.9,55,2,17240,0)=" . W !!,""THE FOLLOWING WAS CHOSEN:"""
^XMB(3.9,55,2,17241,0)="""RTN"",""IBCEP5B"",47,0)"
^XMB(3.9,55,2,17242,0)=" . S Q=0 F  S Q=$O(Q(Q)) Q:'Q  W !,?3,Q(Q)"
^XMB(3.9,55,2,17243,0)="""RTN"",""IBCEP5B"",48,0)"
^XMB(3.9,55,2,17244,0)=" . I IBCUND W !,?3,""CARE UNIT: ""_$$EXPAND^IBTRE(355.96,.01,IB3559(.03))"
^XMB(3.9,55,2,17245,0)="""RTN"",""IBCEP5B"",49,0)"
^XMB(3.9,55,2,17246,0)=" . S Z2=IBINS,Z3=IB35591(.03),Z4=IB3559(.04),Z5=IB3559(.05),Z6=IBPTYP"
^XMB(3.9,55,2,17247,0)="""RTN"",""IBCEP5B"",50,0)"
^XMB(3.9,55,2,17248,0)=" . S IBOK=1"
^XMB(3.9,55,2,17249,0)="""RTN"",""IBCEP5B"",51,0)"
^XMB(3.9,55,2,17250,0)=" . ; If both forms, chk for specific"
^XMB(3.9,55,2,17251,0)="""RTN"",""IBCEP5B"",52,0)"
^XMB(3.9,55,2,17252,0)=" . I 'Z4 S IBOK=$$COMBOK^IBCEP5C(IBFILE,IBPRV_U_4_U_Z2_U_Z3_U_Z4_U_Z5_U_Z6,1,$G(IBFILE)=355.91)"
^XMB(3.9,55,2,17253,0)="""RTN"",""IBCEP5B"",53,0)"
^XMB(3.9,55,2,17254,0)=" . ; If specific form, chk for all"
^XMB(3.9,55,2,17255,0)="""RTN"",""IBCEP5B"",54,0)"
^XMB(3.9,55,2,17256,0)=" . I IBOK,Z4 S IBOK=$$COMBOK^IBCEP5C(IBFILE,IBPRV_U_4_U_Z2_U_Z3_U_Z4_U_Z5_U_Z6,0,$G(IBFILE)=355.91)"
^XMB(3.9,55,2,17257,0)="""RTN"",""IBCEP5B"",55,0)"
^XMB(3.9,55,2,17258,0)=" . ; If both care types, chk for specific"
^XMB(3.9,55,2,17259,0)="""RTN"",""IBCEP5B"",56,0)"
^XMB(3.9,55,2,17260,0)=" . I IBOK,'Z5 S IBOK=$$COMBOK^IBCEP5C(IBFILE,IBPRV_U_5_U_Z2_U_Z3_U_Z4_U_Z5_U_Z6,1,$G(IBFILE)=355.91)"
^XMB(3.9,55,2,17261,0)="""RTN"",""IBCEP5B"",57,0)"
^XMB(3.9,55,2,17262,0)=" . ; If specific care type, chk for all"
^XMB(3.9,55,2,17263,0)="""RTN"",""IBCEP5B"",58,0)"
^XMB(3.9,55,2,17264,0)=" . I IBOK,Z5 S IBOK=$$COMBOK^IBCEP5C(IBFILE,IBPRV_U_5_U_Z2_U_Z3_U_Z4_U_Z5_U_Z6,0,$G(IBFILE)=355.91)"
^XMB(3.9,55,2,17265,0)="""RTN"",""IBCEP5B"",59,0)"
^XMB(3.9,55,2,17266,0)=" . I 'IBOK K IB3559,IB35591"
^XMB(3.9,55,2,17267,0)="""RTN"",""IBCEP5B"",60,0)"
^XMB(3.9,55,2,17268,0)=" . I IBOK D"
^XMB(3.9,55,2,17269,0)="""RTN"",""IBCEP5B"",61,0)"
^XMB(3.9,55,2,17270,0)=" .. S DIR(0)=IBFILE_"",.07"""
^XMB(3.9,55,2,17271,0)="""RTN"",""IBCEP5B"",62,0)"
^XMB(3.9,55,2,17272,0)=" .. W ! D ^DIR K DIR"
^XMB(3.9,55,2,17273,0)="""RTN"",""IBCEP5B"",63,0)"
^XMB(3.9,55,2,17274,0)=" .. S IBID=Y"
^XMB(3.9,55,2,17275,0)="""RTN"",""IBCEP5B"",64,0)"
^XMB(3.9,55,2,17276,0)=" .. I $D(DTOUT)!$D(DUOUT) K IB3559,IB35591 S IBOK=0 Q"
^XMB(3.9,55,2,17277,0)="""RTN"",""IBCEP5B"",65,0)"
^XMB(3.9,55,2,17278,0)=" .. S IBDR=$S(IBFILE=355.9:$S($G(IBINS):"".02////""_IBINS_"";"",1:""""),1:"""")_$S($G(IBCUND):"".03////""_$S(IB35591(.03):IB35591(.03),1:""*N/A*"")_"";"",1:"""")_"".04////""_IB3559(.04)_"";.05////""_IB3559(.05)_"";.06////""_IBPTYP_$S(IBID'="""":"";.07////""_IBID,1:"""")"
^XMB(3.9,55,2,17279,0)="""RTN"",""IBCEP5B"",66,0)"
^XMB(3.9,55,2,17280,0)=" .. ;"
^XMB(3.9,55,2,17281,0)="""RTN"",""IBCEP5B"",67,0)"
^XMB(3.9,55,2,17282,0)=" .. I $G(IBIEN) D"
^XMB(3.9,55,2,17283,0)="""RTN"",""IBCEP5B"",68,0)"
^XMB(3.9,55,2,17284,0)=" ... S DR=IBDR,DA=IBIEN,DIE=""^IBA(""_IBFILE_"","""
^XMB(3.9,55,2,17285,0)="""RTN"",""IBCEP5B"",69,0)"
^XMB(3.9,55,2,17286,0)=" ... D ^DIE"
^XMB(3.9,55,2,17287,0)="""RTN"",""IBCEP5B"",70,0)"
^XMB(3.9,55,2,17288,0)=" ... I $D(Y) K IB3559,IB35591 S IBOK=0"
^XMB(3.9,55,2,17289,0)="""RTN"",""IBCEP5B"",71,0)"
^XMB(3.9,55,2,17290,0)=" ;"
^XMB(3.9,55,2,17291,0)="""RTN"",""IBCEP5B"",72,0)"
^XMB(3.9,55,2,17292,0)="NEWQ ;"
^XMB(3.9,55,2,17293,0)="""RTN"",""IBCEP5B"",73,0)"
^XMB(3.9,55,2,17294,0)=" I '$D(IB3559),$G(IBIEN) D  Q"
^XMB(3.9,55,2,17295,0)="""RTN"",""IBCEP5B"",74,0)"
^XMB(3.9,55,2,17296,0)=" . N DIR,DIK,DA,X,Y"
^XMB(3.9,55,2,17297,0)="""RTN"",""IBCEP5B"",75,0)"
^XMB(3.9,55,2,17298,0)=" . S DA=IBIEN,DIK=""^IBA(""_IBFILE_"","" D ^DIK"
^XMB(3.9,55,2,17299,0)="""RTN"",""IBCEP5B"",76,0)"
^XMB(3.9,55,2,17300,0)=" . S DIR(0)=""EA"",DIR(""A"",1)=$S('$G(IBOK):"""",1:""PROBLEM ENCOUNTERED FILING THE RECORD - "")_""RECORD NOT ADDED"",DIR(""A"")=""PRESS ENTER to continue "" W ! D ^DIR K DIR"
^XMB(3.9,55,2,17301,0)="""RTN"",""IBCEP5B"",77,0)"
^XMB(3.9,55,2,17302,0)=" ;"
^XMB(3.9,55,2,17303,0)="""RTN"",""IBCEP5B"",78,0)"
^XMB(3.9,55,2,17304,0)=" ; Save this for Copy ID actions"
^XMB(3.9,55,2,17305,0)="""RTN"",""IBCEP5B"",79,0)"
^XMB(3.9,55,2,17306,0)=" I $G(IBIEN) D"
^XMB(3.9,55,2,17307,0)="""RTN"",""IBCEP5B"",80,0)"
^XMB(3.9,55,2,17308,0)=" . I IBFILE=355.91!(IBFILE=355.9&($P($G(^IBA(IBFILE,IBIEN,0)),U)[""VA(200,"")) D"
^XMB(3.9,55,2,17309,0)="""RTN"",""IBCEP5B"",81,0)"
^XMB(3.9,55,2,17310,0)=" .. N NEXTONE S NEXTONE=$$NEXTONE^IBCEP5A()"
^XMB(3.9,55,2,17311,0)="""RTN"",""IBCEP5B"",82,0)"
^XMB(3.9,55,2,17312,0)=" .. S ^TMP(""IB_EDITED_IDS"",$J,NEXTONE)=IBIEN_U_""ADD""_U_IBFILE"
^XMB(3.9,55,2,17313,0)="""RTN"",""IBCEP5B"",83,0)"
^XMB(3.9,55,2,17314,0)=" .. S ^TMP(""IB_EDITED_IDS"",$J,NEXTONE,0)=$G(^IBA(IBFILE,IBIEN,0))"
^XMB(3.9,55,2,17315,0)="""RTN"",""IBCEP5B"",84,0)"
^XMB(3.9,55,2,17316,0)=" Q"
^XMB(3.9,55,2,17317,0)="""RTN"",""IBCEP5B"",85,0)"
^XMB(3.9,55,2,17318,0)=" ;"
^XMB(3.9,55,2,17319,0)="""RTN"",""IBCEP5B"",86,0)"
^XMB(3.9,55,2,17320,0)="CHG(IBFILE,IBDA) ; Generic call - edit prov id"
^XMB(3.9,55,2,17321,0)="""RTN"",""IBCEP5B"",87,0)"
^XMB(3.9,55,2,17322,0)=" ; IBFILE = 355.9 or 355.91 (file being edited)"
^XMB(3.9,55,2,17323,0)="""RTN"",""IBCEP5B"",88,0)"
^XMB(3.9,55,2,17324,0)=" ; IBDA = ien in file"
^XMB(3.9,55,2,17325,0)="""RTN"",""IBCEP5B"",89,0)"
^XMB(3.9,55,2,17326,0)=" ;"
^XMB(3.9,55,2,17327,0)="""RTN"",""IBCEP5B"",90,0)"
^XMB(3.9,55,2,17328,0)=" N DIR,DIE,DA,DR,IBCUCHK,IBOK,IB0,IBOLD,X,Y,Z"
^XMB(3.9,55,2,17329,0)="""RTN"",""IBCEP5B"",91,0)"
^XMB(3.9,55,2,17330,0)=" F Z=1:1:3 L +^IBA(IBFILE,IBDA):5 Q:$T  W !,""Attempting to lock record"""
^XMB(3.9,55,2,17331,0)="""RTN"",""IBCEP5B"",92,0)"
^XMB(3.9,55,2,17332,0)=" I '$T D  G CHGQ"
^XMB(3.9,55,2,17333,0)="""RTN"",""IBCEP5B"",93,0)"
^XMB(3.9,55,2,17334,0)=" . W !,""RECORD LOCKED BY ANOTHER USER - TRY AGAIN LATER"""
^XMB(3.9,55,2,17335,0)="""RTN"",""IBCEP5B"",94,0)"
^XMB(3.9,55,2,17336,0)=" . D ENTER(.DIR)"
^XMB(3.9,55,2,17337,0)="""RTN"",""IBCEP5B"",95,0)"
^XMB(3.9,55,2,17338,0)=" . W ! D ^DIR K DIR W !"
^XMB(3.9,55,2,17339,0)="""RTN"",""IBCEP5B"",96,0)"
^XMB(3.9,55,2,17340,0)=" S (IB0,IBOLD)=$G(^IBA(IBFILE,IBDA,0))"
^XMB(3.9,55,2,17341,0)="""RTN"",""IBCEP5B"",97,0)"
^XMB(3.9,55,2,17342,0)=" G:IB0="""" CHGQ"
^XMB(3.9,55,2,17343,0)="""RTN"",""IBCEP5B"",98,0)"
^XMB(3.9,55,2,17344,0)=" F Z=.04,.05,.06,.03 S IBOK=$$EDIT(IBFILE,Z,IB0,IBOLD,IBDA,0) S:IBOK=""*ALL*"" IBOK="""" Q:$P(IBOK,U,2)  S $P(IB0,U,Z*100)=$P(IBOK,U)"
^XMB(3.9,55,2,17345,0)="""RTN"",""IBCEP5B"",99,0)"
^XMB(3.9,55,2,17346,0)=" I $P(IBOK,U,2) S DIR(0)=""EA"",DIR(""A"")=""NO CHANGES MADE, PRESS ENTER TO CONTINUE: "" W ! D ^DIR K DIR W ! G CHGQ"
^XMB(3.9,55,2,17347,0)="""RTN"",""IBCEP5B"",100,0)"
^XMB(3.9,55,2,17348,0)=" S IBOK=$$EDIT(IBFILE,.07,IB0,IBOLD,IBDA,1)"
^XMB(3.9,55,2,17349,0)="""RTN"",""IBCEP5B"",101,0)"
^XMB(3.9,55,2,17350,0)=" I '$P(IBOK,U,2) S $P(IB0,U,7)=$P(IBOK,U)"
^XMB(3.9,55,2,17351,0)="""RTN"",""IBCEP5B"",102,0)"
^XMB(3.9,55,2,17352,0)=" I $P(IBOK,U,2)!(IB0=IBOLD) S DIR(0)=""EA"",DIR(""A"")=""NO CHANGES MADE, PRESS ENTER TO CONTINUE: "" W ! D ^DIR K DIR W ! G CHGQ"
^XMB(3.9,55,2,17353,0)="""RTN"",""IBCEP5B"",103,0)"
^XMB(3.9,55,2,17354,0)=" S IBCUCHK=$$CUCHK^IBCEP5C(IBDA,IB0) G:IBCUCHK CHGQ"
^XMB(3.9,55,2,17355,0)="""RTN"",""IBCEP5B"",104,0)"
^XMB(3.9,55,2,17356,0)=" S DR="""""
^XMB(3.9,55,2,17357,0)="""RTN"",""IBCEP5B"",105,0)"
^XMB(3.9,55,2,17358,0)=" F Z=2,4:1:7,3 I $P(IB0,U,Z)'=$P(IBOLD,U,Z) S DR=DR_$S(DR'="""":"";"",1:"""")_(Z/100)_""///""_$S($P(IB0,U,Z)'=""@"":""/"",1:"""")_$P(IB0,U,Z)"
^XMB(3.9,55,2,17359,0)="""RTN"",""IBCEP5B"",106,0)"
^XMB(3.9,55,2,17360,0)=" I DR'="""" D"
^XMB(3.9,55,2,17361,0)="""RTN"",""IBCEP5B"",107,0)"
^XMB(3.9,55,2,17362,0)=" . I IBFILE=355.91!(IBFILE=355.9&($P(IB0,U)[""VA(200,"")) D"
^XMB(3.9,55,2,17363,0)="""RTN"",""IBCEP5B"",108,0)"
^XMB(3.9,55,2,17364,0)=" .. N NEXTONE"
^XMB(3.9,55,2,17365,0)="""RTN"",""IBCEP5B"",109,0)"
^XMB(3.9,55,2,17366,0)=" .. S NEXTONE=$$NEXTONE^IBCEP5A()"
^XMB(3.9,55,2,17367,0)="""RTN"",""IBCEP5B"",110,0)"
^XMB(3.9,55,2,17368,0)=" .. S ^TMP(""IB_EDITED_IDS"",$J,NEXTONE)=IBDA_U_""MOD""_U_IBFILE_U_IBDA"
^XMB(3.9,55,2,17369,0)="""RTN"",""IBCEP5B"",111,0)"
^XMB(3.9,55,2,17370,0)=" .. S ^TMP(""IB_EDITED_IDS"",$J,NEXTONE,""OLD0"")=IBOLD"
^XMB(3.9,55,2,17371,0)="""RTN"",""IBCEP5B"",112,0)"
^XMB(3.9,55,2,17372,0)=" .. S ^TMP(""IB_EDITED_IDS"",$J,NEXTONE,0)=IB0"
^XMB(3.9,55,2,17373,0)="""RTN"",""IBCEP5B"",113,0)"
^XMB(3.9,55,2,17374,0)=" . S DIE=""^IBA(""_IBFILE_"","",DA=IBDA D ^DIE"
^XMB(3.9,55,2,17375,0)="""RTN"",""IBCEP5B"",114,0)"
^XMB(3.9,55,2,17376,0)="CHGQ L -^IBA(IBFILE,IBDA)"
^XMB(3.9,55,2,17377,0)="""RTN"",""IBCEP5B"",115,0)"
^XMB(3.9,55,2,17378,0)=" Q"
^XMB(3.9,55,2,17379,0)="""RTN"",""IBCEP5B"",116,0)"
^XMB(3.9,55,2,17380,0)=" ;"
^XMB(3.9,55,2,17381,0)="""RTN"",""IBCEP5B"",117,0)"
^XMB(3.9,55,2,17382,0)="DEL(IBFILE,IBDA,IBF) ; Delete prov specific ID's"
^XMB(3.9,55,2,17383,0)="""RTN"",""IBCEP5B"",118,0)"
^XMB(3.9,55,2,17384,0)=" ; IBFILE = 355.9 or 355.91 for the file"
^XMB(3.9,55,2,17385,0)="""RTN"",""IBCEP5B"",119,0)"
^XMB(3.9,55,2,17386,0)=" ; IBDA = ien of entry in file IBFILE"
^XMB(3.9,55,2,17387,0)="""RTN"",""IBCEP5B"",120,0)"
^XMB(3.9,55,2,17388,0)=" ; IBF = 1 if deleting from ins co-related options, """""
^XMB(3.9,55,2,17389,0)="""RTN"",""IBCEP5B"",121,0)"
^XMB(3.9,55,2,17390,0)=" ;       from prov-related options"
^XMB(3.9,55,2,17391,0)="""RTN"",""IBCEP5B"",122,0)"
^XMB(3.9,55,2,17392,0)=" D DEL^IBCEP5C(IBFILE,IBDA,$G(IBF))"
^XMB(3.9,55,2,17393,0)="""RTN"",""IBCEP5B"",123,0)"
^XMB(3.9,55,2,17394,0)=" Q"
^XMB(3.9,55,2,17395,0)="""RTN"",""IBCEP5B"",124,0)"
^XMB(3.9,55,2,17396,0)=" ;"
^XMB(3.9,55,2,17397,0)="""RTN"",""IBCEP5B"",125,0)"
^XMB(3.9,55,2,17398,0)="EDIT(IBFILE,IBFLD,IB0,IBOLD,IBIEN,IBCK1) ; Generic edit flds"
^XMB(3.9,55,2,17399,0)="""RTN"",""IBCEP5B"",126,0)"
^XMB(3.9,55,2,17400,0)=" Q $$EDIT^IBCEP5D($G(IBFILE),$G(IBFLD),$G(IB0),$G(IBOLD),$G(IBIEN),$G(IBCK1))"
^XMB(3.9,55,2,17401,0)="""RTN"",""IBCEP5B"",127,0)"
^XMB(3.9,55,2,17402,0)=" ;"
^XMB(3.9,55,2,17403,0)="""RTN"",""IBCEP5B"",128,0)"
^XMB(3.9,55,2,17404,0)="SETDIR(DIR) ; Sets dir for BLUE CROSS only UB92 form type"
^XMB(3.9,55,2,17405,0)="""RTN"",""IBCEP5B"",129,0)"
^XMB(3.9,55,2,17406,0)=" S DIR(""B"")=""UB92"",$P(DIR(0),U,3)=""K:Y'=1 X"",DIR(""?"")=""ONLY UB92 FORM TYPE IS VALID FOR BLUE CROSS ID"""
^XMB(3.9,55,2,17407,0)="""RTN"",""IBCEP5B"",130,0)"
^XMB(3.9,55,2,17408,0)=" Q"
^XMB(3.9,55,2,17409,0)="""RTN"",""IBCEP5B"",131,0)"
^XMB(3.9,55,2,17410,0)=" ;"
^XMB(3.9,55,2,17411,0)="""RTN"",""IBCEP5B"",132,0)"
^XMB(3.9,55,2,17412,0)="ENTER(DIR) ;"
^XMB(3.9,55,2,17413,0)="""RTN"",""IBCEP5B"",133,0)"
^XMB(3.9,55,2,17414,0)=" S DIR(0)=""EA"",DIR(""A"")=""PRESS ENTER TO CONTINUE: """
^XMB(3.9,55,2,17415,0)="""RTN"",""IBCEP5B"",134,0)"
^XMB(3.9,55,2,17416,0)=" Q"
^XMB(3.9,55,2,17417,0)="""RTN"",""IBCEP5C"")"
^XMB(3.9,55,2,17418,0)="0^59^B43626685^B41166821"
^XMB(3.9,55,2,17419,0)="""RTN"",""IBCEP5C"",1,0)"
^XMB(3.9,55,2,17420,0)="IBCEP5C ;ALB/TMP - EDI UTILITIES for provider ID ;02-NOV-00"
^XMB(3.9,55,2,17421,0)="""RTN"",""IBCEP5C"",2,0)"
^XMB(3.9,55,2,17422,0)=" ;;2.0;INTEGRATED BILLING;**137,239,232,320**;21-MAR-94"
^XMB(3.9,55,2,17423,0)="""RTN"",""IBCEP5C"",3,0)"
^XMB(3.9,55,2,17424,0)=" ;"
^XMB(3.9,55,2,17425,0)="""RTN"",""IBCEP5C"",4,0)"
^XMB(3.9,55,2,17426,0)="COMBOK(IBFILE,IBDAT,IBALL,IBF) ; Generic ask if conflict, should id rec still"
^XMB(3.9,55,2,17427,0)="""RTN"",""IBCEP5C"",5,0)"
^XMB(3.9,55,2,17428,0)=" ;  be added?"
^XMB(3.9,55,2,17429,0)="""RTN"",""IBCEP5C"",6,0)"
^XMB(3.9,55,2,17430,0)=" ; IBFILE = 355.9 or 355.91 for the file being edited"
^XMB(3.9,55,2,17431,0)="""RTN"",""IBCEP5C"",7,0)"
^XMB(3.9,55,2,17432,0)=" ; IBDAT = var ptr prov ien (355.9) ^ pc to check ^"
^XMB(3.9,55,2,17433,0)="""RTN"",""IBCEP5C"",8,0)"
^XMB(3.9,55,2,17434,0)=" ;           ins co ien or *ALL* ^ care unit or *N/A* ^"
^XMB(3.9,55,2,17435,0)="""RTN"",""IBCEP5C"",9,0)"
^XMB(3.9,55,2,17436,0)=" ;           form type code ^ care type code ^ prov id type ptr"
^XMB(3.9,55,2,17437,0)="""RTN"",""IBCEP5C"",10,0)"
^XMB(3.9,55,2,17438,0)=" ; IBALL = flag:"
^XMB(3.9,55,2,17439,0)="""RTN"",""IBCEP5C"",11,0)"
^XMB(3.9,55,2,17440,0)=" ;   0 = Individual entry selected - check for existing ALL entry"
^XMB(3.9,55,2,17441,0)="""RTN"",""IBCEP5C"",12,0)"
^XMB(3.9,55,2,17442,0)=" ;   1 = 'ALL' selected - check for existing individual ones"
^XMB(3.9,55,2,17443,0)="""RTN"",""IBCEP5C"",13,0)"
^XMB(3.9,55,2,17444,0)=" ; IBF = 1 if deleting from ins co-related options, """""
^XMB(3.9,55,2,17445,0)="""RTN"",""IBCEP5C"",14,0)"
^XMB(3.9,55,2,17446,0)=" ;       from provider-related options"
^XMB(3.9,55,2,17447,0)="""RTN"",""IBCEP5C"",15,0)"
^XMB(3.9,55,2,17448,0)=" ; Returns 1 if ok to continue, 0 if not"
^XMB(3.9,55,2,17449,0)="""RTN"",""IBCEP5C"",16,0)"
^XMB(3.9,55,2,17450,0)=" ;"
^XMB(3.9,55,2,17451,0)="""RTN"",""IBCEP5C"",17,0)"
^XMB(3.9,55,2,17452,0)=" N X,Y,Q,DIR,Z,IBD,IBDD,IBOK,IBSPEC"
^XMB(3.9,55,2,17453,0)="""RTN"",""IBCEP5C"",18,0)"
^XMB(3.9,55,2,17454,0)=" S IBALL=$G(IBALL),IBOK=1"
^XMB(3.9,55,2,17455,0)="""RTN"",""IBCEP5C"",19,0)"
^XMB(3.9,55,2,17456,0)=" S IBD=+$P(IBDAT,U,2),IBDD=$S(IBD=4:5,1:4)"
^XMB(3.9,55,2,17457,0)="""RTN"",""IBCEP5C"",20,0)"
^XMB(3.9,55,2,17458,0)=" F Z=2:1:6 D"
^XMB(3.9,55,2,17459,0)="""RTN"",""IBCEP5C"",21,0)"
^XMB(3.9,55,2,17460,0)=" . I IBD'=Z,$P(IBDAT,U,Z+1)'="""" S Z(Z)=$P(IBDAT,U,Z+1) Q"
^XMB(3.9,55,2,17461,0)="""RTN"",""IBCEP5C"",22,0)"
^XMB(3.9,55,2,17462,0)=" . I IBD=Z S IBD(Z)=$P(IBDAT,U,Z+1)"
^XMB(3.9,55,2,17463,0)="""RTN"",""IBCEP5C"",23,0)"
^XMB(3.9,55,2,17464,0)=" K IBSPEC"
^XMB(3.9,55,2,17465,0)="""RTN"",""IBCEP5C"",24,0)"
^XMB(3.9,55,2,17466,0)=" I IBALL D  ; Check for specific"
^XMB(3.9,55,2,17467,0)="""RTN"",""IBCEP5C"",25,0)"
^XMB(3.9,55,2,17468,0)=" . N X0,X1"
^XMB(3.9,55,2,17469,0)="""RTN"",""IBCEP5C"",26,0)"
^XMB(3.9,55,2,17470,0)=" . S X1=0"
^XMB(3.9,55,2,17471,0)="""RTN"",""IBCEP5C"",27,0)"
^XMB(3.9,55,2,17472,0)=" . F  S X1=$O(^IBA(IBFILE,""AC"",$S(IBFILE=355.9:Z(6),1:Z(2)),$S(IBFILE=355.9:Z(2),1:Z(6)),$S(IBFILE=355.9:$P(IBDAT,U),1:Z(3)),X1)) Q:'X1  S X0=$G(^IBA(IBFILE,X1,0)) I $S(IBFILE=355.9:$P(X0,U,3)=Z(3),1:1) D"
^XMB(3.9,55,2,17473,0)="""RTN"",""IBCEP5C"",28,0)"
^XMB(3.9,55,2,17474,0)=" .. I $P(X0,U,IBD)'=IBD(IBD),""12""[$P(X0,U,IBD),($P(X0,U,IBDD)=Z(IBDD)!($P(X0,U,IBDD)=0)!(Z(IBDD)=0&(IBD(IBD)=0))) S X1($P(X0,U,IBD))=X1 Q"
^XMB(3.9,55,2,17475,0)="""RTN"",""IBCEP5C"",29,0)"
^XMB(3.9,55,2,17476,0)=" .. I IBD(IBD)=0,Z(IBDD)=0 S X1(0)=X1"
^XMB(3.9,55,2,17477,0)="""RTN"",""IBCEP5C"",30,0)"
^XMB(3.9,55,2,17478,0)=" . S X0=0 F  S X0=$O(X1(X0)) Q:X0=""""  D"
^XMB(3.9,55,2,17479,0)="""RTN"",""IBCEP5C"",31,0)"
^XMB(3.9,55,2,17480,0)=" .. S IBSPEC=$S($G(IBSPEC)'="""":IBSPEC_""  "",1:"""")_$P($S(IBD=4:""UB92^HCFA 1500"",1:""INPT^OUTPT""),U,X0)_"" ONLY"""
^XMB(3.9,55,2,17481,0)="""RTN"",""IBCEP5C"",32,0)"
^XMB(3.9,55,2,17482,0)=" . I $D(X1(0)) S IBSPEC=$S($G(IBSPEC)'="""":IBSPEC_""  "",1:"""")_$S(IBD=4:""BOTH UB92 and HCFA 1500 form type  AND  BOTH INPT and OUTPT care type"",1:""BOTH INPT and OUTPT care type  AND  BOTH UB92 and HCFA 1500 form type"")"
^XMB(3.9,55,2,17483,0)="""RTN"",""IBCEP5C"",33,0)"
^XMB(3.9,55,2,17484,0)=" . ;"
^XMB(3.9,55,2,17485,0)="""RTN"",""IBCEP5C"",34,0)"
^XMB(3.9,55,2,17486,0)=" I 'IBALL D"
^XMB(3.9,55,2,17487,0)="""RTN"",""IBCEP5C"",35,0)"
^XMB(3.9,55,2,17488,0)=" . N X0,X1"
^XMB(3.9,55,2,17489,0)="""RTN"",""IBCEP5C"",36,0)"
^XMB(3.9,55,2,17490,0)=" . S X1=0"
^XMB(3.9,55,2,17491,0)="""RTN"",""IBCEP5C"",37,0)"
^XMB(3.9,55,2,17492,0)=" . F  S X1=$O(^IBA(IBFILE,""AC"",$S(IBFILE=355.9:Z(6),1:Z(2)),$S(IBFILE=355.9:Z(2),1:Z(6)),$S(IBFILE=355.9:$P(IBDAT,U),1:Z(3)),X1)) Q:'X1  D"
^XMB(3.9,55,2,17493,0)="""RTN"",""IBCEP5C"",38,0)"
^XMB(3.9,55,2,17494,0)=" .. S X0=$G(^IBA(IBFILE,X1,0))"
^XMB(3.9,55,2,17495,0)="""RTN"",""IBCEP5C"",39,0)"
^XMB(3.9,55,2,17496,0)=" .. I $S(IBFILE=355.9:$P(X0,U,16)=Z(3),1:1),$P(X0,U,IBD)=0,$S($P(X0,U,IBDD)=Z(IBDD):1,1:$P(X0,U,IBDD)=0) S IBSPEC="""""
^XMB(3.9,55,2,17497,0)="""RTN"",""IBCEP5C"",40,0)"
^XMB(3.9,55,2,17498,0)=" ;"
^XMB(3.9,55,2,17499,0)="""RTN"",""IBCEP5C"",41,0)"
^XMB(3.9,55,2,17500,0)=" I $D(IBSPEC) D"
^XMB(3.9,55,2,17501,0)="""RTN"",""IBCEP5C"",42,0)"
^XMB(3.9,55,2,17502,0)=" . N X0,X1,TEXT,IBWHAT"
^XMB(3.9,55,2,17503,0)="""RTN"",""IBCEP5C"",43,0)"
^XMB(3.9,55,2,17504,0)=" . S IBWHAT=$S(IBFILE=355.9:$S($G(IBF):""INS CO AND PROVIDER"",1:""PROVIDER""),1:""INSURANCE CO"")"
^XMB(3.9,55,2,17505,0)="""RTN"",""IBCEP5C"",44,0)"
^XMB(3.9,55,2,17506,0)=" . S X0=$S($D(IBD(4)):""UB-92^HCFA 1500"",1:""INPT^OUTPT"")"
^XMB(3.9,55,2,17507,0)="""RTN"",""IBCEP5C"",45,0)"
^XMB(3.9,55,2,17508,0)=" . S X1=$S($D(IBD(4)):""FORM TYPE"",1:""CARE TYPE"")"
^XMB(3.9,55,2,17509,0)="""RTN"",""IBCEP5C"",46,0)"
^XMB(3.9,55,2,17510,0)=" . S DIR(0)=""YA"""
^XMB(3.9,55,2,17511,0)="""RTN"",""IBCEP5C"",47,0)"
^XMB(3.9,55,2,17512,0)=" . S TEXT(1)=""WARNING ... POTENTIAL CONFLICT DETECTED!!"""
^XMB(3.9,55,2,17513,0)="""RTN"",""IBCEP5C"",48,0)"
^XMB(3.9,55,2,17514,0)=" . S TEXT(2)="" YOUR NEW COMBINATION APPLIES TO ""_$S(IBALL:""BOTH ""_$S(IBD=4:""FORM "",1:""INPT AND OUTPT CARE "")_""TYPES"",1:""ONLY ""_$P(X0,U,IBD(IBD))_"" ""_X1)"
^XMB(3.9,55,2,17515,0)="""RTN"",""IBCEP5C"",49,0)"
^XMB(3.9,55,2,17516,0)=" . S TEXT(3)="" THIS SAME COMBINATION ALREADY EXISTS FOR THE ""_IBWHAT_"" & ""_$S('IBALL:""ALL ""_X1_""S"",1:""SPECIFIC ""_X1_""(S):"")"
^XMB(3.9,55,2,17517,0)="""RTN"",""IBCEP5C"",50,0)"
^XMB(3.9,55,2,17518,0)=" . S:IBSPEC'="""" TEXT(4)=$J("""",4)_IBSPEC"
^XMB(3.9,55,2,17519,0)="""RTN"",""IBCEP5C"",51,0)"
^XMB(3.9,55,2,17520,0)=" . S TEXT($S($D(TEXT(4)):5,1:4))="" """
^XMB(3.9,55,2,17521,0)="""RTN"",""IBCEP5C"",52,0)"
^XMB(3.9,55,2,17522,0)=" . S DIR(""A"")=""ARE YOU SURE YOU STILL WANT TO ADD THIS RECORD?: """
^XMB(3.9,55,2,17523,0)="""RTN"",""IBCEP5C"",53,0)"
^XMB(3.9,55,2,17524,0)=" . S DIR(""?"",1)="" """
^XMB(3.9,55,2,17525,0)="""RTN"",""IBCEP5C"",54,0)"
^XMB(3.9,55,2,17526,0)=" . S DIR(""?"",2)=""This combination appears to be conflicting with one(s) already on file."""
^XMB(3.9,55,2,17527,0)="""RTN"",""IBCEP5C"",55,0)"
^XMB(3.9,55,2,17528,0)=" . S DIR(""?"",3)=""It has already been defined for the ""_$$LOW^XLFSTR(IBWHAT)_"" for ""_$S(IBALL:""at least 1 specific "",1:""ALL "")_$S(IBD=4:""form"",1:""care"")_"" type""_$S(IBALL:""."",1:""s."")"
^XMB(3.9,55,2,17529,0)="""RTN"",""IBCEP5C"",56,0)"
^XMB(3.9,55,2,17530,0)=" . S DIR(""?"")=""Respond NO to reject this conflicting record or YES to continue on to add it in spite of the apparent conflict."",DIR(""B"")=""NO"""
^XMB(3.9,55,2,17531,0)="""RTN"",""IBCEP5C"",57,0)"
^XMB(3.9,55,2,17532,0)=" . W !! F Q=1:1 Q:'$D(TEXT(Q))  W TEXT(Q),!"
^XMB(3.9,55,2,17533,0)="""RTN"",""IBCEP5C"",58,0)"
^XMB(3.9,55,2,17534,0)=" . D ^DIR K DIR W !"
^XMB(3.9,55,2,17535,0)="""RTN"",""IBCEP5C"",59,0)"
^XMB(3.9,55,2,17536,0)=" . S IBOK=(Y=1)"
^XMB(3.9,55,2,17537,0)="""RTN"",""IBCEP5C"",60,0)"
^XMB(3.9,55,2,17538,0)=" Q IBOK"
^XMB(3.9,55,2,17539,0)="""RTN"",""IBCEP5C"",61,0)"
^XMB(3.9,55,2,17540,0)=" ;"
^XMB(3.9,55,2,17541,0)="""RTN"",""IBCEP5C"",62,0)"
^XMB(3.9,55,2,17542,0)="CAREUN ;Called from NEWID^IBCEP5B to check for existing record combination"
^XMB(3.9,55,2,17543,0)="""RTN"",""IBCEP5C"",63,0)"
^XMB(3.9,55,2,17544,0)=" N DIR"
^XMB(3.9,55,2,17545,0)="""RTN"",""IBCEP5C"",64,0)"
^XMB(3.9,55,2,17546,0)=" I IBFILE'=355.9 D"
^XMB(3.9,55,2,17547,0)="""RTN"",""IBCEP5C"",65,0)"
^XMB(3.9,55,2,17548,0)=" . S IB35591(.03)=IB3559(.03)"
^XMB(3.9,55,2,17549,0)="""RTN"",""IBCEP5C"",66,0)"
^XMB(3.9,55,2,17550,0)=" . I ""0""[IB35591(.03) S IB35591(.03)=""*N/A*"""
^XMB(3.9,55,2,17551,0)="""RTN"",""IBCEP5C"",67,0)"
^XMB(3.9,55,2,17552,0)=" . I IB35591(.03)'=""*N/A*"" S IB35591(.03)=$O(^IBA(355.96,""AUNIQ"",IBINS,IB3559(.03),IB3559(.04),IB3559(.05),IBPTYP,"""")) I 'IB35591(.03) D"
^XMB(3.9,55,2,17553,0)="""RTN"",""IBCEP5C"",68,0)"
^XMB(3.9,55,2,17554,0)=" .. S IB35591(.03)=$O(^IBA(355.96,""AUNIQ"",IBINS,IB3559(.03),IB3559(.04),0,IBPTYP,"""")) I 'IB35591(.03) D"
^XMB(3.9,55,2,17555,0)="""RTN"",""IBCEP5C"",69,0)"
^XMB(3.9,55,2,17556,0)=" ... S IB35591(.03)=$O(^IBA(355.96,""AUNIQ"",IBINS,IB3559(.03),0,IB3559(.05),IBPTYP,"""")) I 'IB35591(.03) D"
^XMB(3.9,55,2,17557,0)="""RTN"",""IBCEP5C"",70,0)"
^XMB(3.9,55,2,17558,0)=" .... S IB35591(.03)=$O(^IBA(355.96,""AUNIQ"",IBINS,IB3559(.03),0,0,IBPTYP,""""))"
^XMB(3.9,55,2,17559,0)="""RTN"",""IBCEP5C"",71,0)"
^XMB(3.9,55,2,17560,0)=" . I $D(^IBA(355.91,""AUNIQ"",IBINS,IB35591(.03),IB3559(.04),IB3559(.05),IBPTYP)) D  Q"
^XMB(3.9,55,2,17561,0)="""RTN"",""IBCEP5C"",72,0)"
^XMB(3.9,55,2,17562,0)=" .. S DIR(0)=""EA"",DIR(""A"",1)=""This record already exists - NOT ADDED"",DIR(""A"")=""PRESS the ENTER key to continue"" W ! D ^DIR K DIR,IB3559,IB35591 W !"
^XMB(3.9,55,2,17563,0)="""RTN"",""IBCEP5C"",73,0)"
^XMB(3.9,55,2,17564,0)=" I IBFILE=355.9 D"
^XMB(3.9,55,2,17565,0)="""RTN"",""IBCEP5C"",74,0)"
^XMB(3.9,55,2,17566,0)=" . S IB35591(.03)=IB3559(.03)"
^XMB(3.9,55,2,17567,0)="""RTN"",""IBCEP5C"",75,0)"
^XMB(3.9,55,2,17568,0)=" . I ""0""[IB35591(.03) S IB35591(.03)=""*N/A*"""
^XMB(3.9,55,2,17569,0)="""RTN"",""IBCEP5C"",76,0)"
^XMB(3.9,55,2,17570,0)=" . I IB35591(.03)'=""*N/A*"" S IB35591(.03)=$O(^IBA(355.96,""AUNIQ"",IBINS,IB3559(.03),IB3559(.04),IB3559(.05),IBPTYP,"""")) I 'IB35591(.03) D"
^XMB(3.9,55,2,17571,0)="""RTN"",""IBCEP5C"",77,0)"
^XMB(3.9,55,2,17572,0)=" .. S IB35591(.03)=$O(^IBA(355.96,""AUNIQ"",IBINS,IB3559(.03),IB3559(.04),0,IBPTYP,"""")) I 'IB35591(.03) D"
^XMB(3.9,55,2,17573,0)="""RTN"",""IBCEP5C"",78,0)"
^XMB(3.9,55,2,17574,0)=" ... S IB35591(.03)=$O(^IBA(355.96,""AUNIQ"",IBINS,IB3559(.03),0,IB3559(.05),IBPTYP,"""")) I 'IB35591(.03) D"
^XMB(3.9,55,2,17575,0)="""RTN"",""IBCEP5C"",79,0)"
^XMB(3.9,55,2,17576,0)=" .... S IB35591(.03)=$O(^IBA(355.96,""AUNIQ"",IBINS,IB3559(.03),0,0,IBPTYP,""""))"
^XMB(3.9,55,2,17577,0)="""RTN"",""IBCEP5C"",80,0)"
^XMB(3.9,55,2,17578,0)=" . I $D(^IBA(355.9,""AUNIQ"",IBPRV,IBINS,IB35591(.03),IB3559(.04),IB3559(.05),IBPTYP)) D  Q"
^XMB(3.9,55,2,17579,0)="""RTN"",""IBCEP5C"",81,0)"
^XMB(3.9,55,2,17580,0)=" .. S DIR(0)=""EA"",DIR(""A"",1)=""This record already exists - NOT ADDED"",DIR(""A"")=""PRESS the ENTER key to continue"" W ! D ^DIR K DIR,IB3559,IB35591 W !"
^XMB(3.9,55,2,17581,0)="""RTN"",""IBCEP5C"",82,0)"
^XMB(3.9,55,2,17582,0)=" Q"
^XMB(3.9,55,2,17583,0)="""RTN"",""IBCEP5C"",83,0)"
^XMB(3.9,55,2,17584,0)=" ;"
^XMB(3.9,55,2,17585,0)="""RTN"",""IBCEP5C"",84,0)"
^XMB(3.9,55,2,17586,0)="DEL(IBFILE,IBDA,IBF) ; Delete prov specific ID's"
^XMB(3.9,55,2,17587,0)="""RTN"",""IBCEP5C"",85,0)"
^XMB(3.9,55,2,17588,0)=" ; IBFILE = 355.9 or 355.91 for the file"
^XMB(3.9,55,2,17589,0)="""RTN"",""IBCEP5C"",86,0)"
^XMB(3.9,55,2,17590,0)=" ; IBDA = ien of entry in file IBFILE"
^XMB(3.9,55,2,17591,0)="""RTN"",""IBCEP5C"",87,0)"
^XMB(3.9,55,2,17592,0)=" ; IBF = 1 if deleting from ins co-related options, """""
^XMB(3.9,55,2,17593,0)="""RTN"",""IBCEP5C"",88,0)"
^XMB(3.9,55,2,17594,0)=" ;       from prov-related options"
^XMB(3.9,55,2,17595,0)="""RTN"",""IBCEP5C"",89,0)"
^XMB(3.9,55,2,17596,0)=" N IB0,IBLAST,IBX,DIK,DA,DIR,X,Y,Z"
^XMB(3.9,55,2,17597,0)="""RTN"",""IBCEP5C"",90,0)"
^XMB(3.9,55,2,17598,0)=" F Z=1:1:3 L +^IBA(IBFILE,IBDA):5 Q:$T"
^XMB(3.9,55,2,17599,0)="""RTN"",""IBCEP5C"",91,0)"
^XMB(3.9,55,2,17600,0)=" I '$T D  G DELQ"
^XMB(3.9,55,2,17601,0)="""RTN"",""IBCEP5C"",92,0)"
^XMB(3.9,55,2,17602,0)=" . W !,""RECORD IS LOCKED BY ANOTHER USER - TRY AGAIN LATER"""
^XMB(3.9,55,2,17603,0)="""RTN"",""IBCEP5C"",93,0)"
^XMB(3.9,55,2,17604,0)=" . D ENTER^IBCEP5B(.DIR)"
^XMB(3.9,55,2,17605,0)="""RTN"",""IBCEP5C"",94,0)"
^XMB(3.9,55,2,17606,0)=" . W ! D ^DIR K DIR W !"
^XMB(3.9,55,2,17607,0)="""RTN"",""IBCEP5C"",95,0)"
^XMB(3.9,55,2,17608,0)=" S IB0=$G(^IBA(IBFILE,IBDA,0))"
^XMB(3.9,55,2,17609,0)="""RTN"",""IBCEP5C"",96,0)"
^XMB(3.9,55,2,17610,0)=" S IBX=0"
^XMB(3.9,55,2,17611,0)="""RTN"",""IBCEP5C"",97,0)"
^XMB(3.9,55,2,17612,0)=" S IBX=IBX+1,DIR(""A"",IBX)="" PROVIDER: ""_$S(IBFILE=355.9:$$EXPAND^IBTRE(355.9,.01,$P(IB0,U)),1:""*ALL*"")"
^XMB(3.9,55,2,17613,0)="""RTN"",""IBCEP5C"",98,0)"
^XMB(3.9,55,2,17614,0)=" D DISP^IBCEP4(""DIR(""""A"""")"",$P(IB0,U,$S(IBFILE=355.9:2,1:1)),$P(IB0,U,6),$P(IB0,U,4),$P(IB0,U,5),IBX+1,.IBLAST)"
^XMB(3.9,55,2,17615,0)="""RTN"",""IBCEP5C"",99,0)"
^XMB(3.9,55,2,17616,0)=" I $P(IB0,U,3)'="""" S DIR(""A"",IBLAST+1)=""CARE UNIT: ""_$$EXPAND^IBTRE(355.91,.03,$P(IB0,U,3))"
^XMB(3.9,55,2,17617,0)="""RTN"",""IBCEP5C"",100,0)"
^XMB(3.9,55,2,17618,0)=" S DIR(""A"",IBLAST+2)=""  PROV ID: ""_$P(IB0,U,7),DIR(""A"",IBLAST+3)="" """
^XMB(3.9,55,2,17619,0)="""RTN"",""IBCEP5C"",101,0)"
^XMB(3.9,55,2,17620,0)=" S DIR(""A"")=""OK TO DELETE THIS ""_$S($G(IBF):""INSURANCE COMPANY "",1:"""")_""PROVIDER ID RECORD?: "",DIR(""B"")=""NO"""
^XMB(3.9,55,2,17621,0)="""RTN"",""IBCEP5C"",102,0)"
^XMB(3.9,55,2,17622,0)=" S DIR(0)=""YA"""
^XMB(3.9,55,2,17623,0)="""RTN"",""IBCEP5C"",103,0)"
^XMB(3.9,55,2,17624,0)=" W ! D ^DIR K DIR W !"
^XMB(3.9,55,2,17625,0)="""RTN"",""IBCEP5C"",104,0)"
^XMB(3.9,55,2,17626,0)=" I Y'=1 G DELQ"
^XMB(3.9,55,2,17627,0)="""RTN"",""IBCEP5C"",105,0)"
^XMB(3.9,55,2,17628,0)=" I IBDA>0 D"
^XMB(3.9,55,2,17629,0)="""RTN"",""IBCEP5C"",106,0)"
^XMB(3.9,55,2,17630,0)=" . I IBFILE=355.91!(IBFILE=355.9&($P($G(^IBA(IBFILE,IBDA,0)),U)[""VA(200,"")) D"
^XMB(3.9,55,2,17631,0)="""RTN"",""IBCEP5C"",107,0)"
^XMB(3.9,55,2,17632,0)=" .. N NEXTONE S NEXTONE=$$NEXTONE^IBCEP5A()"
^XMB(3.9,55,2,17633,0)="""RTN"",""IBCEP5C"",108,0)"
^XMB(3.9,55,2,17634,0)=" .. S ^TMP(""IB_EDITED_IDS"",$J,NEXTONE)=IBDA_U_""DEL""_U_IBFILE_U_IBDA"
^XMB(3.9,55,2,17635,0)="""RTN"",""IBCEP5C"",109,0)"
^XMB(3.9,55,2,17636,0)=" .. S ^TMP(""IB_EDITED_IDS"",$J,NEXTONE,0)=$G(^IBA(IBFILE,IBDA,0))"
^XMB(3.9,55,2,17637,0)="""RTN"",""IBCEP5C"",110,0)"
^XMB(3.9,55,2,17638,0)=" . S DA=IBDA,DIK=""^IBA(""_IBFILE_"","" D ^DIK"
^XMB(3.9,55,2,17639,0)="""RTN"",""IBCEP5C"",111,0)"
^XMB(3.9,55,2,17640,0)="DELQ L -^IBA(IBFILE,IBDA)"
^XMB(3.9,55,2,17641,0)="""RTN"",""IBCEP5C"",112,0)"
^XMB(3.9,55,2,17642,0)=" Q"
^XMB(3.9,55,2,17643,0)="""RTN"",""IBCEP5C"",113,0)"
^XMB(3.9,55,2,17644,0)=" ;"
^XMB(3.9,55,2,17645,0)="""RTN"",""IBCEP5C"",114,0)"
^XMB(3.9,55,2,17646,0)="CUCHK(IBDA,IB0) ;Called from CHG^IBCEP5B to check for existing combination"
^XMB(3.9,55,2,17647,0)="""RTN"",""IBCEP5C"",115,0)"
^XMB(3.9,55,2,17648,0)=" ; during edit "
^XMB(3.9,55,2,17649,0)="""RTN"",""IBCEP5C"",116,0)"
^XMB(3.9,55,2,17650,0)=" ; IBDA = the ien of the record being edited"
^XMB(3.9,55,2,17651,0)="""RTN"",""IBCEP5C"",117,0)"
^XMB(3.9,55,2,17652,0)=" ; IB0 = Proposed changed 0 node of the entry in the file"
^XMB(3.9,55,2,17653,0)="""RTN"",""IBCEP5C"",118,0)"
^XMB(3.9,55,2,17654,0)=" ; FUNCTION RETURNS 0 if no duplicate found, 1 if record already exists"
^XMB(3.9,55,2,17655,0)="""RTN"",""IBCEP5C"",119,0)"
^XMB(3.9,55,2,17656,0)=" N Z,IBCUCHK,DIR,X,Y"
^XMB(3.9,55,2,17657,0)="""RTN"",""IBCEP5C"",120,0)"
^XMB(3.9,55,2,17658,0)=" S IBCUCHK=0"
^XMB(3.9,55,2,17659,0)="""RTN"",""IBCEP5C"",121,0)"
^XMB(3.9,55,2,17660,0)=" I IBFILE=355.91 S Z=+$O(^IBA(355.91,""AUNIQ"",$P(IB0,U,1),$S($P(IB0,U,3)=""@"":""*N/A*"",$P(IB0,U,3):$P(IB0,U,3),1:$P(IB0,U,10)),$P(IB0,U,4),$P(IB0,U,5),$P(IB0,U,6),0)) I Z,Z'=IBDA S IBCUCHK=1"
^XMB(3.9,55,2,17661,0)="""RTN"",""IBCEP5C"",122,0)"
^XMB(3.9,55,2,17662,0)=" I IBFILE=355.9 D"
^XMB(3.9,55,2,17663,0)="""RTN"",""IBCEP5C"",123,0)"
^XMB(3.9,55,2,17664,0)=" . N X,X1"
^XMB(3.9,55,2,17665,0)="""RTN"",""IBCEP5C"",124,0)"
^XMB(3.9,55,2,17666,0)=" . S X=$S($P(IB0,U,2):$P(IB0,U,2),1:$P(IB0,U,15)) S:X="""" X=""*ALL*"""
^XMB(3.9,55,2,17667,0)="""RTN"",""IBCEP5C"",125,0)"
^XMB(3.9,55,2,17668,0)=" . S X1=$S($P(IB0,U,3):$P(IB0,U,3),$P(IB0,U,3)=""@"":"""",1:$P(IB0,U,16)) S:X1="""" X1=""*N/A*"""
^XMB(3.9,55,2,17669,0)="""RTN"",""IBCEP5C"",126,0)"
^XMB(3.9,55,2,17670,0)=" . S Z=+$O(^IBA(355.9,""AUNIQ"",$P(IB0,U,1),X,X1,$P(IB0,U,4),$P(IB0,U,5),$P(IB0,U,6),0)) I Z,Z'=IBDA S IBCUCHK=1"
^XMB(3.9,55,2,17671,0)="""RTN"",""IBCEP5C"",127,0)"
^XMB(3.9,55,2,17672,0)=" I IBCUCHK D"
^XMB(3.9,55,2,17673,0)="""RTN"",""IBCEP5C"",128,0)"
^XMB(3.9,55,2,17674,0)=" . S DIR(0)=""EA"",DIR(""A"",1)=""This combination already exists - RECORD NOT CHANGED"",DIR(""A"")=""PRESS the ENTER key to continue"" W ! D ^DIR K DIR W !"
^XMB(3.9,55,2,17675,0)="""RTN"",""IBCEP5C"",129,0)"
^XMB(3.9,55,2,17676,0)=" Q IBCUCHK"
^XMB(3.9,55,2,17677,0)="""RTN"",""IBCEP5C"",130,0)"
^XMB(3.9,55,2,17678,0)=" ;"
^XMB(3.9,55,2,17679,0)="""RTN"",""IBCEP5D"")"
^XMB(3.9,55,2,17680,0)="0^73^B55561747^B3445050"
^XMB(3.9,55,2,17681,0)="""RTN"",""IBCEP5D"",1,0)"
^XMB(3.9,55,2,17682,0)="IBCEP5D ;ALB/JEH - EDI UTILITIES - for State License ;29-MAR-01"
^XMB(3.9,55,2,17683,0)="""RTN"",""IBCEP5D"",2,0)"
^XMB(3.9,55,2,17684,0)=" ;;2.0;INTEGRATED BILLING;**137,320**;21-MAR-94"
^XMB(3.9,55,2,17685,0)="""RTN"",""IBCEP5D"",3,0)"
^XMB(3.9,55,2,17686,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,17687,0)="""RTN"",""IBCEP5D"",4,0)"
^XMB(3.9,55,2,17688,0)=" ;"
^XMB(3.9,55,2,17689,0)="""RTN"",""IBCEP5D"",5,0)"
^XMB(3.9,55,2,17690,0)=" ; STATE LICENSE # ADD/EDIT DBIA ==> DBIA 224"
^XMB(3.9,55,2,17691,0)="""RTN"",""IBCEP5D"",6,0)"
^XMB(3.9,55,2,17692,0)="EN ;Add/edit state and license number"
^XMB(3.9,55,2,17693,0)="""RTN"",""IBCEP5D"",7,0)"
^XMB(3.9,55,2,17694,0)=" N IBDA,DIR,DIC,DD,DA,DR,IBSTAT,IBLIC,IBQ,Y"
^XMB(3.9,55,2,17695,0)="""RTN"",""IBCEP5D"",8,0)"
^XMB(3.9,55,2,17696,0)=" D FULL^VALM1"
^XMB(3.9,55,2,17697,0)="""RTN"",""IBCEP5D"",9,0)"
^XMB(3.9,55,2,17698,0)=" I '$G(IBPRV) D  G:IBQ STATQ"
^XMB(3.9,55,2,17699,0)="""RTN"",""IBCEP5D"",10,0)"
^XMB(3.9,55,2,17700,0)=" . S IBQ=0"
^XMB(3.9,55,2,17701,0)="""RTN"",""IBCEP5D"",11,0)"
^XMB(3.9,55,2,17702,0)=" . S DIC=""^VA(200,"",DIC(0)=""AEMQ"",DIC(""A"")=""Select VA Provider: "" D ^DIC K DIC"
^XMB(3.9,55,2,17703,0)="""RTN"",""IBCEP5D"",12,0)"
^XMB(3.9,55,2,17704,0)=" . I $D(DTOUT)!$D(DUOUT)!(Y<0) S IBQ=1 Q"
^XMB(3.9,55,2,17705,0)="""RTN"",""IBCEP5D"",13,0)"
^XMB(3.9,55,2,17706,0)=" . S IBDA=+Y"
^XMB(3.9,55,2,17707,0)="""RTN"",""IBCEP5D"",14,0)"
^XMB(3.9,55,2,17708,0)=" I $G(IBPRV)[""VA"" S IBDA=+IBPRV"
^XMB(3.9,55,2,17709,0)="""RTN"",""IBCEP5D"",15,0)"
^XMB(3.9,55,2,17710,0)=" I $G(IBPRV),$G(IBPRV)'[""VA"" D  G STATQ"
^XMB(3.9,55,2,17711,0)="""RTN"",""IBCEP5D"",16,0)"
^XMB(3.9,55,2,17712,0)=" . S DIR(""A"",1)=""You have selected a Non-VA provider"""
^XMB(3.9,55,2,17713,0)="""RTN"",""IBCEP5D"",17,0)"
^XMB(3.9,55,2,17714,0)=" . S DIR(""A"",2)=""State license # can only be entered for VA providers"""
^XMB(3.9,55,2,17715,0)="""RTN"",""IBCEP5D"",18,0)"
^XMB(3.9,55,2,17716,0)=" . S DIR(""A"",3)="""""
^XMB(3.9,55,2,17717,0)="""RTN"",""IBCEP5D"",19,0)"
^XMB(3.9,55,2,17718,0)=" . S DIR(""A"")=""Press enter to continue"""
^XMB(3.9,55,2,17719,0)="""RTN"",""IBCEP5D"",20,0)"
^XMB(3.9,55,2,17720,0)=" . S DIR(0)=""EA"" W ! D ^DIR K DIR W !"
^XMB(3.9,55,2,17721,0)="""RTN"",""IBCEP5D"",21,0)"
^XMB(3.9,55,2,17722,0)="STALIC ;Add/edit file 200 field 54.1 multiple,state(.01) and license#(1) - DBIA 224"
^XMB(3.9,55,2,17723,0)="""RTN"",""IBCEP5D"",22,0)"
^XMB(3.9,55,2,17724,0)=" ;"
^XMB(3.9,55,2,17725,0)="""RTN"",""IBCEP5D"",23,0)"
^XMB(3.9,55,2,17726,0)=" S DA(1)=IBDA,DIC=""^VA(200,""_DA(1)_"",""""PS1"""","",DIC(0)=""QEAL"""
^XMB(3.9,55,2,17727,0)="""RTN"",""IBCEP5D"",24,0)"
^XMB(3.9,55,2,17728,0)=" D ^DIC I Y=-1 K DIC,DA G STATQ"
^XMB(3.9,55,2,17729,0)="""RTN"",""IBCEP5D"",25,0)"
^XMB(3.9,55,2,17730,0)=" F Z=1:1:3 L +^VA(200,IBDA):5 Q:$T"
^XMB(3.9,55,2,17731,0)="""RTN"",""IBCEP5D"",26,0)"
^XMB(3.9,55,2,17732,0)=" I '$T D  G STATQ"
^XMB(3.9,55,2,17733,0)="""RTN"",""IBCEP5D"",27,0)"
^XMB(3.9,55,2,17734,0)=" . W !,""Another user is editing this entry.  Try again later"""
^XMB(3.9,55,2,17735,0)="""RTN"",""IBCEP5D"",28,0)"
^XMB(3.9,55,2,17736,0)=" . S DIR(0)=""EA"",DIR(""A"")=""Press enter to continue"""
^XMB(3.9,55,2,17737,0)="""RTN"",""IBCEP5D"",29,0)"
^XMB(3.9,55,2,17738,0)=" . W ! D ^DIR K DIR W !"
^XMB(3.9,55,2,17739,0)="""RTN"",""IBCEP5D"",30,0)"
^XMB(3.9,55,2,17740,0)=" S DIE=DIC K DIC S DA=+Y,DR="".01;1"""
^XMB(3.9,55,2,17741,0)="""RTN"",""IBCEP5D"",31,0)"
^XMB(3.9,55,2,17742,0)=" D ^DIE K DIE,DR,DA,Y"
^XMB(3.9,55,2,17743,0)="""RTN"",""IBCEP5D"",32,0)"
^XMB(3.9,55,2,17744,0)=" L -^VA(200,IBDA)"
^XMB(3.9,55,2,17745,0)="""RTN"",""IBCEP5D"",33,0)"
^XMB(3.9,55,2,17746,0)="STATQ ;"
^XMB(3.9,55,2,17747,0)="""RTN"",""IBCEP5D"",34,0)"
^XMB(3.9,55,2,17748,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,17749,0)="""RTN"",""IBCEP5D"",35,0)"
^XMB(3.9,55,2,17750,0)=" Q"
^XMB(3.9,55,2,17751,0)="""RTN"",""IBCEP5D"",36,0)"
^XMB(3.9,55,2,17752,0)=" ;"
^XMB(3.9,55,2,17753,0)="""RTN"",""IBCEP5D"",37,0)"
^XMB(3.9,55,2,17754,0)="GETLIC(IBPRV) ; Get license # for provider in file 200 IBPRV"
^XMB(3.9,55,2,17755,0)="""RTN"",""IBCEP5D"",38,0)"
^XMB(3.9,55,2,17756,0)=" ; Pass IBPRV by reference to retrieve #'s by state"
^XMB(3.9,55,2,17757,0)="""RTN"",""IBCEP5D"",39,0)"
^XMB(3.9,55,2,17758,0)=" ; IBPRV(state ien)=id"
^XMB(3.9,55,2,17759,0)="""RTN"",""IBCEP5D"",40,0)"
^XMB(3.9,55,2,17760,0)=" ; Returns 0 if no license # found"
^XMB(3.9,55,2,17761,0)="""RTN"",""IBCEP5D"",41,0)"
^XMB(3.9,55,2,17762,0)=" N Z"
^XMB(3.9,55,2,17763,0)="""RTN"",""IBCEP5D"",42,0)"
^XMB(3.9,55,2,17764,0)=" S Z=0 F  S Z=$O(^VA(200,IBPRV,""PS1"",Z)) Q:'Z  S Z0=$G(^(Z,0)) I $P(Z0,U,2)'="""" S IBPRV(+Z0)=$P(Z0,U,2)"
^XMB(3.9,55,2,17765,0)="""RTN"",""IBCEP5D"",43,0)"
^XMB(3.9,55,2,17766,0)=" Q +$O(IBPRV(0))"
^XMB(3.9,55,2,17767,0)="""RTN"",""IBCEP5D"",44,0)"
^XMB(3.9,55,2,17768,0)=" ;"
^XMB(3.9,55,2,17769,0)="""RTN"",""IBCEP5D"",45,0)"
^XMB(3.9,55,2,17770,0)="EDIT(IBFILE,IBFLD,IB0,IBOLD,IBIEN,IBCK1) ; Generic edit flds"
^XMB(3.9,55,2,17771,0)="""RTN"",""IBCEP5D"",46,0)"
^XMB(3.9,55,2,17772,0)=" N DIR,Y,X,IB,IB1,IBCUVAL,IBCUY,IBFLD0,IBNEW,IBPRV,IBVAL,IBIVAL,IBINS,IBCUCHK,IBOK,DUOUT,DTOUT"
^XMB(3.9,55,2,17773,0)="""RTN"",""IBCEP5D"",47,0)"
^XMB(3.9,55,2,17774,0)=" I IBFILE=355.91,IBFLD=.02 S IBNEW="""" G EDITQ ; No .02 in file 355.91"
^XMB(3.9,55,2,17775,0)="""RTN"",""IBCEP5D"",48,0)"
^XMB(3.9,55,2,17776,0)=" S IBCUCHK=1,IBCUVAL="""""
^XMB(3.9,55,2,17777,0)="""RTN"",""IBCEP5D"",49,0)"
^XMB(3.9,55,2,17778,0)=" S IBFLD0=IBFLD*100,IBPRV=$S(IBFILE=355.9:$P(IB0,U),1:""""),IBNEW="""""
^XMB(3.9,55,2,17779,0)="""RTN"",""IBCEP5D"",50,0)"
^XMB(3.9,55,2,17780,0)=" S IBPRV0=$S(IBPRV'[""355.93"":"""",1:$G(^IBA(355.93,+IBPRV,0)))"
^XMB(3.9,55,2,17781,0)="""RTN"",""IBCEP5D"",51,0)"
^XMB(3.9,55,2,17782,0)=" S IBINS=$P(IB0,U,$S(IBFILE=355.9:2,1:1))"
^XMB(3.9,55,2,17783,0)="""RTN"",""IBCEP5D"",52,0)"
^XMB(3.9,55,2,17784,0)=" I IBFLD'=.03 S IBVAL=$$EXPAND^IBTRE(IBFILE,IBFLD,$P(IB0,U,IBFLD0)),IBIVAL=$P(IB0,U,IBFLD0)"
^XMB(3.9,55,2,17785,0)="""RTN"",""IBCEP5D"",53,0)"
^XMB(3.9,55,2,17786,0)=" I IBFLD=.03,$S('IBINS:1,1:'$$CAREUN^IBCEP3(IBINS,$P(IB0,U,6),$P(IB0,U,4),$P(IB0,U,5),$P(IB0,U,5)=3)) S:$P(IB0,U,3) IBNEW=""@"" G EDITQ"
^XMB(3.9,55,2,17787,0)="""RTN"",""IBCEP5D"",54,0)"
^XMB(3.9,55,2,17788,0)=" I IBFLD=.03 S IBVAL=$P($G(^IBA(355.95,+$G(^IBA(355.96,+$P(IB0,U,3),0)),0)),U),IBIVAL=$P(IB0,U,3) D"
^XMB(3.9,55,2,17789,0)="""RTN"",""IBCEP5D"",55,0)"
^XMB(3.9,55,2,17790,0)=" . S IBCUCHK=0,IBCUVAL=$P($G(^IBA(355.96,+IBIVAL,0)),U,1) I IBCUVAL="""" Q"
^XMB(3.9,55,2,17791,0)="""RTN"",""IBCEP5D"",56,0)"
^XMB(3.9,55,2,17792,0)=" . I $O(^IBA(355.96,""AUNIQ"",IBINS,IBCUVAL,$P(IB0,U,4),$P(IB0,U,5),$P(IB0,U,6),"""")) S IBCUCHK=1 Q"
^XMB(3.9,55,2,17793,0)="""RTN"",""IBCEP5D"",57,0)"
^XMB(3.9,55,2,17794,0)=" . I $O(^IBA(355.96,""AUNIQ"",IBINS,IBCUVAL,$P(IB0,U,4),0,$P(IB0,U,6),""""))  S IBCUCHK=1 Q"
^XMB(3.9,55,2,17795,0)="""RTN"",""IBCEP5D"",58,0)"
^XMB(3.9,55,2,17796,0)=" . I $O(^IBA(355.96,""AUNIQ"",IBINS,IBCUVAL,0,$P(IB0,U,5),$P(IB0,U,6),"""")) S IBCUCHK=1 Q"
^XMB(3.9,55,2,17797,0)="""RTN"",""IBCEP5D"",59,0)"
^XMB(3.9,55,2,17798,0)=" . I $O(^IBA(355.96,""AUNIQ"",IBINS,IBCUVAL,0,0,$P(IB0,U,6),"""")) S IBCUCHK=1 Q"
^XMB(3.9,55,2,17799,0)="""RTN"",""IBCEP5D"",60,0)"
^XMB(3.9,55,2,17800,0)=" . S IBIVAL=""@"""
^XMB(3.9,55,2,17801,0)="""RTN"",""IBCEP5D"",61,0)"
^XMB(3.9,55,2,17802,0)=" ;"
^XMB(3.9,55,2,17803,0)="""RTN"",""IBCEP5D"",62,0)"
^XMB(3.9,55,2,17804,0)=" I IBFLD'=.02 D"
^XMB(3.9,55,2,17805,0)="""RTN"",""IBCEP5D"",63,0)"
^XMB(3.9,55,2,17806,0)=" . N DA"
^XMB(3.9,55,2,17807,0)="""RTN"",""IBCEP5D"",64,0)"
^XMB(3.9,55,2,17808,0)=" . S DIR(0)=$S(IBFLD'=.03:IBFILE_"",""_IBFLD_""AO"",1:""PAO^355.95:AEMQ"")"
^XMB(3.9,55,2,17809,0)="""RTN"",""IBCEP5D"",65,0)"
^XMB(3.9,55,2,17810,0)=" . I IBFLD=.03 D  Q:$P(IB0,U,4)=""""!($P(IB0,U,5)="""")!($P(IB0,U,6)="""")"
^XMB(3.9,55,2,17811,0)="""RTN"",""IBCEP5D"",66,0)"
^XMB(3.9,55,2,17812,0)=" .. S DIR(""A"")=""CARE UNIT: """
^XMB(3.9,55,2,17813,0)="""RTN"",""IBCEP5D"",67,0)"
^XMB(3.9,55,2,17814,0)=" .. S DIR(""S"")=""I $D(^IBA(355.96,""""AUNIQ"""",IBINS,Y,$P(IB0,U,4),$P(IB0,U,5),$P(IB0,U,6)))!($D(^IBA(355.96,""""AUNIQ"""",IBINS,Y,$P(IB0,U,4),0,$P(IB0,U,6))))"""
^XMB(3.9,55,2,17815,0)="""RTN"",""IBCEP5D"",68,0)"
^XMB(3.9,55,2,17816,0)=" .. S DIR(""S"")=DIR(""S"")_""!($D(^IBA(355.96,""""AUNIQ"""",IBINS,Y,0,$P(IB0,U,5),$P(IB0,U,6))))!($D(^IBA(355.96,""""AUNIQ"""",IBINS,Y,0,0,$P(IB0,U,6))))"""
^XMB(3.9,55,2,17817,0)="""RTN"",""IBCEP5D"",69,0)"
^XMB(3.9,55,2,17818,0)=" . I IBFLD'=.03 S DIR(""A"")=$$GET1^DID(IBFILE,IBFLD,,""LABEL"")_"": """
^XMB(3.9,55,2,17819,0)="""RTN"",""IBCEP5D"",70,0)"
^XMB(3.9,55,2,17820,0)=" . S:IBVAL'=""""&(IBCUCHK) DIR(""A"")=DIR(""A"")_IBVAL_""// """
^XMB(3.9,55,2,17821,0)="""RTN"",""IBCEP5D"",71,0)"
^XMB(3.9,55,2,17822,0)=" .; If field .04, Set DIR(0)[3] up to make sure the form type selected is allowed for this ID type."
^XMB(3.9,55,2,17823,0)="""RTN"",""IBCEP5D"",72,0)"
^XMB(3.9,55,2,17824,0)=" . I Z=.04,IBPRV[""355.93"",$$GET1^DIQ(355.93,+IBPRV,.02,""I"")=1 D"
^XMB(3.9,55,2,17825,0)="""RTN"",""IBCEP5D"",73,0)"
^XMB(3.9,55,2,17826,0)=" .. N AFT"
^XMB(3.9,55,2,17827,0)="""RTN"",""IBCEP5D"",74,0)"
^XMB(3.9,55,2,17828,0)=" .. S AFT=$$GET1^DIQ(355.97,$P(IB0,U,6),.07,""I"")  ; get allowable form type for this Provider ID Type"
^XMB(3.9,55,2,17829,0)="""RTN"",""IBCEP5D"",75,0)"
^XMB(3.9,55,2,17830,0)=" .. I AFT=""B"" S $P(DIR(0),U,3)=""K:"""".0.1.2.""""'[("""".""""_X_""""."""") X"",DIR(""?"")=""Provider ID Qualifier selected allows institutional, professional or both"" Q   ; allow proff, inst, or both"
^XMB(3.9,55,2,17831,0)="""RTN"",""IBCEP5D"",76,0)"
^XMB(3.9,55,2,17832,0)=" .. I AFT=""I"" S $P(DIR(0),U,3)=""K:X'=1 X"",DIR(""?"")=""Provider ID Qualifier selected only allows institutional (UB type) forms"" Q  ; allow institutional"
^XMB(3.9,55,2,17833,0)="""RTN"",""IBCEP5D"",77,0)"
^XMB(3.9,55,2,17834,0)=" .. I AFT=""P"" S $P(DIR(0),U,3)=""K:X'=2 X"",DIR(""?"")=""Provider ID Qualifier selected only allows professional (CMS/HCFA type) forms"" Q  ; allow professional"
^XMB(3.9,55,2,17835,0)="""RTN"",""IBCEP5D"",78,0)"
^XMB(3.9,55,2,17836,0)=" . ;"
^XMB(3.9,55,2,17837,0)="""RTN"",""IBCEP5D"",79,0)"
^XMB(3.9,55,2,17838,0)=" . ; field .06 (ID qualifier)"
^XMB(3.9,55,2,17839,0)="""RTN"",""IBCEP5D"",80,0)"
^XMB(3.9,55,2,17840,0)=" . I Z=.06 D   ;,IBPRV[""355.93"" D"
^XMB(3.9,55,2,17841,0)="""RTN"",""IBCEP5D"",81,0)"
^XMB(3.9,55,2,17842,0)=" .. S DIR(0)=""PAOr^355.97:AEMQ"""
^XMB(3.9,55,2,17843,0)="""RTN"",""IBCEP5D"",82,0)"
^XMB(3.9,55,2,17844,0)=" .. S DIR(""?"")=""Enter a Qualifier to indentify the type of ID number you are entering."""
^XMB(3.9,55,2,17845,0)="""RTN"",""IBCEP5D"",83,0)"
^XMB(3.9,55,2,17846,0)=" .. N TAG"
^XMB(3.9,55,2,17847,0)="""RTN"",""IBCEP5D"",84,0)"
^XMB(3.9,55,2,17848,0)=" .. S TAG=$S($G(IBSLEV)=1&($$GET1^DIQ(355.93,+IBPRV,.02,""I"")=1):""NVALFOWN"",$G(IBSLEV)=1:""RAOWN"",$$GET1^DIQ(355.93,+IBPRV,.02,""I"")=1:""LFINS"",1:""RAINS"")"
^XMB(3.9,55,2,17849,0)="""RTN"",""IBCEP5D"",85,0)"
^XMB(3.9,55,2,17850,0)=" .. N AFT"
^XMB(3.9,55,2,17851,0)="""RTN"",""IBCEP5D"",86,0)"
^XMB(3.9,55,2,17852,0)=" .. S AFT=$S($P(IB0,U,4)]"""":$P(IB0,U,4),1:$P(IBOLD,U,4))"
^XMB(3.9,55,2,17853,0)="""RTN"",""IBCEP5D"",87,0)"
^XMB(3.9,55,2,17854,0)=" .. I AFT=1 S DIR(""S"")=""I $$""_TAG_""^IBCEPU(Y),$$GET1^DIQ(355.97,+Y,.07,""""I"""")'=""""P"""""",DIR(""?"")=""Provider ID Qualifier selected only allows institutional (UB type) forms"" Q"
^XMB(3.9,55,2,17855,0)="""RTN"",""IBCEP5D"",88,0)"
^XMB(3.9,55,2,17856,0)=" .. I AFT=2 S DIR(""S"")=""I $$""_TAG_""^IBCEPU(Y),$$GET1^DIQ(355.97,+Y,.07,""""I"""")'=""""I"""""",DIR(""?"")=""Provider ID Qualifier selected only allows professional (CMS/HCFA type) forms"" Q"
^XMB(3.9,55,2,17857,0)="""RTN"",""IBCEP5D"",89,0)"
^XMB(3.9,55,2,17858,0)=" .. S DIR(""S"")=""I $$""_TAG_""^IBCEPU(Y)"""
^XMB(3.9,55,2,17859,0)="""RTN"",""IBCEP5D"",90,0)"
^XMB(3.9,55,2,17860,0)=" . ;"
^XMB(3.9,55,2,17861,0)="""RTN"",""IBCEP5D"",91,0)"
^XMB(3.9,55,2,17862,0)=" . S DA=0"
^XMB(3.9,55,2,17863,0)="""RTN"",""IBCEP5D"",92,0)"
^XMB(3.9,55,2,17864,0)=" . F  D ^DIR S IBOK=0 D  Q:IBOK"
^XMB(3.9,55,2,17865,0)="""RTN"",""IBCEP5D"",93,0)"
^XMB(3.9,55,2,17866,0)=" .. I $D(DUOUT)!$D(DTOUT) S IBOK=1 Q"
^XMB(3.9,55,2,17867,0)="""RTN"",""IBCEP5D"",94,0)"
^XMB(3.9,55,2,17868,0)=" .. I X="""",$P(IB0,U,(IBFLD*100))'="""" S (X,Y)=$P(IB0,U,(IBFLD*100))"
^XMB(3.9,55,2,17869,0)="""RTN"",""IBCEP5D"",95,0)"
^XMB(3.9,55,2,17870,0)=" .. I IBFLD=.06,$P(IB0,U,4)'=1,$P($G(^IBE(355.97,$S(+Y:+Y,1:+$P(IB0,U,6)),0)),U,3)=""1A"" W !,""BLUE CROSS IS ONLY ALLOWED FOR UB92 ONLY"" Q"
^XMB(3.9,55,2,17871,0)="""RTN"",""IBCEP5D"",96,0)"
^XMB(3.9,55,2,17872,0)=" .. S IBOK=1"
^XMB(3.9,55,2,17873,0)="""RTN"",""IBCEP5D"",97,0)"
^XMB(3.9,55,2,17874,0)=" . K DIR"
^XMB(3.9,55,2,17875,0)="""RTN"",""IBCEP5D"",98,0)"
^XMB(3.9,55,2,17876,0)=" . I IBFLD=.03,'$D(DTOUT),'$D(DUOUT) D  S Y=IBCUY"
^XMB(3.9,55,2,17877,0)="""RTN"",""IBCEP5D"",99,0)"
^XMB(3.9,55,2,17878,0)=" .. S IBCUVAL=+$G(^IBA(355.96,+Y,0))"
^XMB(3.9,55,2,17879,0)="""RTN"",""IBCEP5D"",100,0)"
^XMB(3.9,55,2,17880,0)=" .. S IBCUY=+$O(^IBA(355.96,""AUNIQ"",IBINS,IBCUVAL,$P(IB0,U,4),$P(IB0,U,5),$P(IB0,U,6),0))"
^XMB(3.9,55,2,17881,0)="""RTN"",""IBCEP5D"",101,0)"
^XMB(3.9,55,2,17882,0)=" .. I 'IBCUY S IBCUY=+$O(^IBA(355.96,""AUNIQ"",IBINS,IBCUVAL,$P(IB0,U,4),0,$P(IB0,U,6),0))"
^XMB(3.9,55,2,17883,0)="""RTN"",""IBCEP5D"",102,0)"
^XMB(3.9,55,2,17884,0)=" .. I 'IBCUY S IBCUY=+$O(^IBA(355.96,""AUNIQ"",IBINS,IBCUVAL,0,$P(IB0,U,5),$P(IB0,U,6),0))"
^XMB(3.9,55,2,17885,0)="""RTN"",""IBCEP5D"",103,0)"
^XMB(3.9,55,2,17886,0)=" .. I 'IBCUY S IBCUY=+$O(^IBA(355.96,""AUNIQ"",IBINS,IBCUVAL,0,0,$P(IB0,U,6),0))"
^XMB(3.9,55,2,17887,0)="""RTN"",""IBCEP5D"",104,0)"
^XMB(3.9,55,2,17888,0)=" .. I 'IBCUY S IBCUY=""@"""
^XMB(3.9,55,2,17889,0)="""RTN"",""IBCEP5D"",105,0)"
^XMB(3.9,55,2,17890,0)=" . I IBIVAL'="""",IBCUCHK,($P(Y,U)=IBIVAL!(X="""")) S IBNEW=IBIVAL Q"
^XMB(3.9,55,2,17891,0)="""RTN"",""IBCEP5D"",106,0)"
^XMB(3.9,55,2,17892,0)=" . I 'IBCUCHK,X="""" S IBNEW=IBIVAL Q"
^XMB(3.9,55,2,17893,0)="""RTN"",""IBCEP5D"",107,0)"
^XMB(3.9,55,2,17894,0)=" . I X'=""@"",($S(X="""":IBIVAL'="""",1:0)!$D(DTOUT)!$D(DUOUT)) S IBNEW=""^1"" Q"
^XMB(3.9,55,2,17895,0)="""RTN"",""IBCEP5D"",108,0)"
^XMB(3.9,55,2,17896,0)=" . S IBNEW=$S(X'=""@"":$P(Y,U),1:X)"
^XMB(3.9,55,2,17897,0)="""RTN"",""IBCEP5D"",109,0)"
^XMB(3.9,55,2,17898,0)=" . I IBFLD=.03,X="""" S IBNEW="""" ; No care unit selected"
^XMB(3.9,55,2,17899,0)="""RTN"",""IBCEP5D"",110,0)"
^XMB(3.9,55,2,17900,0)=" I IBFLD=.02 D  ; Only file 355.9"
^XMB(3.9,55,2,17901,0)="""RTN"",""IBCEP5D"",111,0)"
^XMB(3.9,55,2,17902,0)=" . N DIR,X,Y,DIC,DA,IBIT"
^XMB(3.9,55,2,17903,0)="""RTN"",""IBCEP5D"",112,0)"
^XMB(3.9,55,2,17904,0)=" . S IBIT=$$GET1^DID(355.9,.02,,""INPUT TRANSFORM"")"
^XMB(3.9,55,2,17905,0)="""RTN"",""IBCEP5D"",113,0)"
^XMB(3.9,55,2,17906,0)=" . S DIR(0)=""FAO^1:30"""
^XMB(3.9,55,2,17907,0)="""RTN"",""IBCEP5D"",114,0)"
^XMB(3.9,55,2,17908,0)=" . S DIR(""A"")=""INSURANCE CO: ""_$S(IBVAL'="""":IBVAL_""// "",1:"" ""),DIR(""?"")=""^N IBHELP,Z D HELP^DIE(355.9,,.02,""""A"""",""""IBHELP"""") S Z=0 F  S Z=$O(IBHELP(""""DIHELP"""",Z)) Q:'Z  W !,IBHELP(""""DIHELP"""",Z)"""
^XMB(3.9,55,2,17909,0)="""RTN"",""IBCEP5D"",115,0)"
^XMB(3.9,55,2,17910,0)=" . F  W ! D ^DIR D  I IBNEW'="""" K DIR Q"
^XMB(3.9,55,2,17911,0)="""RTN"",""IBCEP5D"",116,0)"
^XMB(3.9,55,2,17912,0)=" .. I $D(DTOUT)!$D(DUOUT) S IBNEW=""^1"" Q"
^XMB(3.9,55,2,17913,0)="""RTN"",""IBCEP5D"",117,0)"
^XMB(3.9,55,2,17914,0)=" .. I IBIVAL'="""",($P(Y,U)=IBIVAL!(X="""")) S IBNEW=IBIVAL Q"
^XMB(3.9,55,2,17915,0)="""RTN"",""IBCEP5D"",118,0)"
^XMB(3.9,55,2,17916,0)=" .. I X=""@"" S IBNEW=""@"" Q"
^XMB(3.9,55,2,17917,0)="""RTN"",""IBCEP5D"",119,0)"
^XMB(3.9,55,2,17918,0)=" .. I X="""",IBIVAL="""" S IBNEW=""*ALL*"" Q"
^XMB(3.9,55,2,17919,0)="""RTN"",""IBCEP5D"",120,0)"
^XMB(3.9,55,2,17920,0)=" .. S DIC=""^DIC(36,"",DIC(0)=""EMQ"",DIC(""S"")=""X IBIT I $D(X)"" D ^DIC"
^XMB(3.9,55,2,17921,0)="""RTN"",""IBCEP5D"",121,0)"
^XMB(3.9,55,2,17922,0)=" .. I Y>0 S IBNEW=$P(Y,U) Q"
^XMB(3.9,55,2,17923,0)="""RTN"",""IBCEP5D"",122,0)"
^XMB(3.9,55,2,17924,0)=" .. S Y="""",IBNEW=""^1"""
^XMB(3.9,55,2,17925,0)="""RTN"",""IBCEP5D"",123,0)"
^XMB(3.9,55,2,17926,0)=" G:IBNEW=""^1""!(IBNEW=IBIVAL)!(IBFLD=.07) EDITQ"
^XMB(3.9,55,2,17927,0)="""RTN"",""IBCEP5D"",124,0)"
^XMB(3.9,55,2,17928,0)=" I $G(IBCK1) D"
^XMB(3.9,55,2,17929,0)="""RTN"",""IBCEP5D"",125,0)"
^XMB(3.9,55,2,17930,0)=" . N X1,X2,X3,X4,X5,X6"
^XMB(3.9,55,2,17931,0)="""RTN"",""IBCEP5D"",126,0)"
^XMB(3.9,55,2,17932,0)=" . S X1=$S(IBFILE=355.9:$S(IBFLD'=.01:IBPRV,1:IBNEW),1:"""")"
^XMB(3.9,55,2,17933,0)="""RTN"",""IBCEP5D"",127,0)"
^XMB(3.9,55,2,17934,0)=" . S X2=$S(IBFILE=355.9:$S(IBFLD'=.02:$P(IB0,U,2),1:IBNEW),1:$S(IBFLD'=.01:$P(IB0,U),1:IBNEW))"
^XMB(3.9,55,2,17935,0)="""RTN"",""IBCEP5D"",128,0)"
^XMB(3.9,55,2,17936,0)=" . S X3=$S(IBFLD'=.03:$P(IB0,U,3),1:IBNEW),X4=$S(IBFLD'=.04:$P(IB0,U,4),1:IBNEW),X5=$S(IBFLD'=.05:$P(IB0,U,5),1:IBNEW),X6=$S(IBFLD'=.06:$P(IB0,U,6),1:IBNEW)"
^XMB(3.9,55,2,17937,0)="""RTN"",""IBCEP5D"",129,0)"
^XMB(3.9,55,2,17938,0)=" . I X2="""" S X2=""*ALL*"""
^XMB(3.9,55,2,17939,0)="""RTN"",""IBCEP5D"",130,0)"
^XMB(3.9,55,2,17940,0)=" . I X3="""" S X3=""*N/A*"""
^XMB(3.9,55,2,17941,0)="""RTN"",""IBCEP5D"",131,0)"
^XMB(3.9,55,2,17942,0)=" . I IBFILE=355.9,$S(X4=""""!(X5="""")!(X6=""""):1,$O(^IBA(355.9,""AUNIQ"",X1,X2,X3,X4,X5,X6,0)):$O(^(0))'=IBIEN,1:0) S IBNEW=IBNEW_""^2"" Q"
^XMB(3.9,55,2,17943,0)="""RTN"",""IBCEP5D"",132,0)"
^XMB(3.9,55,2,17944,0)=" . I IBFILE=355.91,$S(X4=""""!(X5="""")!(X6=""""):1,$O(^IBA(355.91,""AUNIQ"",X2,X3,X4,X5,X6,0)):$O(^(0))'=IBIEN,1:0) S IBNEW=IBNEW_""^2"" Q"
^XMB(3.9,55,2,17945,0)="""RTN"",""IBCEP5D"",133,0)"
^XMB(3.9,55,2,17946,0)=" . F IB=2,3 D  Q:$P(IBNEW,U,3)=3"
^XMB(3.9,55,2,17947,0)="""RTN"",""IBCEP5D"",134,0)"
^XMB(3.9,55,2,17948,0)=" .. S IB1=(X2=""*ALL*""!(X3=""*N/A*""))"
^XMB(3.9,55,2,17949,0)="""RTN"",""IBCEP5D"",135,0)"
^XMB(3.9,55,2,17950,0)=" .. I IBFILE=355.9,IB=2,$S($P(IBOLD,U,2)="""":X2'=""*ALL*"",1:$P(IBOLD,U,2)'=X2) S X2="""""
^XMB(3.9,55,2,17951,0)="""RTN"",""IBCEP5D"",136,0)"
^XMB(3.9,55,2,17952,0)=" .. I IB=3,$S($P(IBOLD,U,3)="""":X3'=""*N/A*"",1:$P(IBOLD,U,3)'=X3) S X3="""""
^XMB(3.9,55,2,17953,0)="""RTN"",""IBCEP5D"",137,0)"
^XMB(3.9,55,2,17954,0)=" .. I '$$COMBOK^IBCEP5C(IBFILE,IBPRV_U_(IBFLD*100)_U_X2_U_X3_U_X4_U_X5_U_X6,IB1) S IBNEW=""^3"""
^XMB(3.9,55,2,17955,0)="""RTN"",""IBCEP5D"",138,0)"
^XMB(3.9,55,2,17956,0)=" ;"
^XMB(3.9,55,2,17957,0)="""RTN"",""IBCEP5D"",139,0)"
^XMB(3.9,55,2,17958,0)="EDITQ Q IBNEW"
^XMB(3.9,55,2,17959,0)="""RTN"",""IBCEP6"")"
^XMB(3.9,55,2,17960,0)="0^27^B11155166^B9434133"
^XMB(3.9,55,2,17961,0)="""RTN"",""IBCEP6"",1,0)"
^XMB(3.9,55,2,17962,0)="IBCEP6 ;ALB/TMP - PROVIDER ID MAINT menu and INS CO EDIT hook ;11-02-00"
^XMB(3.9,55,2,17963,0)="""RTN"",""IBCEP6"",2,0)"
^XMB(3.9,55,2,17964,0)=" ;;2.0;INTEGRATED BILLING;**137,232,320**;21-MAR-94"
^XMB(3.9,55,2,17965,0)="""RTN"",""IBCEP6"",3,0)"
^XMB(3.9,55,2,17966,0)=" ;"
^XMB(3.9,55,2,17967,0)="""RTN"",""IBCEP6"",4,0)"
^XMB(3.9,55,2,17968,0)="EN ; -- main entry point for IBCE PRV INS PARAMS"
^XMB(3.9,55,2,17969,0)="""RTN"",""IBCEP6"",5,0)"
^XMB(3.9,55,2,17970,0)=" D FULL^VALM1"
^XMB(3.9,55,2,17971,0)="""RTN"",""IBCEP6"",6,0)"
^XMB(3.9,55,2,17972,0)=" D EN^VALM(""IBCE PRVMAINT"")"
^XMB(3.9,55,2,17973,0)="""RTN"",""IBCEP6"",7,0)"
^XMB(3.9,55,2,17974,0)="ENQ Q"
^XMB(3.9,55,2,17975,0)="""RTN"",""IBCEP6"",8,0)"
^XMB(3.9,55,2,17976,0)=" ;"
^XMB(3.9,55,2,17977,0)="""RTN"",""IBCEP6"",9,0)"
^XMB(3.9,55,2,17978,0)="HDR ; -- header code"
^XMB(3.9,55,2,17979,0)="""RTN"",""IBCEP6"",10,0)"
^XMB(3.9,55,2,17980,0)=" K VALMHDR"
^XMB(3.9,55,2,17981,0)="""RTN"",""IBCEP6"",11,0)"
^XMB(3.9,55,2,17982,0)=" Q"
^XMB(3.9,55,2,17983,0)="""RTN"",""IBCEP6"",12,0)"
^XMB(3.9,55,2,17984,0)=" ;"
^XMB(3.9,55,2,17985,0)="""RTN"",""IBCEP6"",13,0)"
^XMB(3.9,55,2,17986,0)="INIT ; Initialization"
^XMB(3.9,55,2,17987,0)="""RTN"",""IBCEP6"",14,0)"
^XMB(3.9,55,2,17988,0)=" N IBLCT,IBCT,Z,Z0"
^XMB(3.9,55,2,17989,0)="""RTN"",""IBCEP6"",15,0)"
^XMB(3.9,55,2,17990,0)=" S (IBLCT,IBCT)=0,XQORM(""B"")=""Select"""
^XMB(3.9,55,2,17991,0)="""RTN"",""IBCEP6"",16,0)"
^XMB(3.9,55,2,17992,0)=" K ^TMP(""IBCE_PRVMAINT_MENU"",$J)"
^XMB(3.9,55,2,17993,0)="""RTN"",""IBCEP6"",17,0)"
^XMB(3.9,55,2,17994,0)=" F Z=1:1:2 S Z0=$J("""",10) D SET1(.IBLCT,Z0,1)"
^XMB(3.9,55,2,17995,0)="""RTN"",""IBCEP6"",18,0)"
^XMB(3.9,55,2,17996,0)=" S Z0=$J("""",17)_""-- PROVIDER ID EDITS --"" D SET1(.IBLCT,Z0,1),CNTRL^VALM10(IBLCT,18,23,IORVON,IORVOFF)"
^XMB(3.9,55,2,17997,0)="""RTN"",""IBCEP6"",19,0)"
^XMB(3.9,55,2,17998,0)=" S Z0=$J("""",10)_""1 > PROVIDER SPECIFIC IDS"" D SET1(.IBLCT,Z0,1)"
^XMB(3.9,55,2,17999,0)="""RTN"",""IBCEP6"",20,0)"
^XMB(3.9,55,2,18000,0)=" S Z0=$J("""",14)_""o PROVIDER'S OWN IDS"" D SET1(.IBLCT,Z0,1)"
^XMB(3.9,55,2,18001,0)="""RTN"",""IBCEP6"",21,0)"
^XMB(3.9,55,2,18002,0)=" S Z0=$J("""",14)_""o PROVIDER IDS FURNISHED BY INSURANCE CO"" D SET1(.IBLCT,Z0,1)"
^XMB(3.9,55,2,18003,0)="""RTN"",""IBCEP6"",22,0)"
^XMB(3.9,55,2,18004,0)=" S Z0=$J("""",10)_""2 > INSURANCE CO IDS"" D SET1(.IBLCT,Z0,2)"
^XMB(3.9,55,2,18005,0)="""RTN"",""IBCEP6"",23,0)"
^XMB(3.9,55,2,18006,0)=" ;S Z0=$J("""",10)_""3 > FACILITY IDS"" D SET1(.IBLCT,Z0,3)  ;WCJ removed"
^XMB(3.9,55,2,18007,0)="""RTN"",""IBCEP6"",24,0)"
^XMB(3.9,55,2,18008,0)=" S Z0=$J("""",10)_""4 > CARE UNIT MAINTENANCE"" D SET1(.IBLCT,Z0,4)"
^XMB(3.9,55,2,18009,0)="""RTN"",""IBCEP6"",25,0)"
^XMB(3.9,55,2,18010,0)=" S Z0=$J("""",14)_""o Care Units for Performing Provider IDs"" D SET1(.IBLCT,Z0,1)"
^XMB(3.9,55,2,18011,0)="""RTN"",""IBCEP6"",26,0)"
^XMB(3.9,55,2,18012,0)=" S Z0=$J("""",14)_""o Care Units for Billing Provider Secondary IDs"" D SET1(.IBLCT,Z0,1)"
^XMB(3.9,55,2,18013,0)="""RTN"",""IBCEP6"",27,0)"
^XMB(3.9,55,2,18014,0)=" S Z0=$J("""",10)_""5 > INS CO BATCH ID ENTRY"" D SET1(.IBLCT,Z0,5)"
^XMB(3.9,55,2,18015,0)="""RTN"",""IBCEP6"",28,0)"
^XMB(3.9,55,2,18016,0)=" F Z=1:1:2 S Z0=$J("""",10) D SET1(.IBLCT,Z0,6)"
^XMB(3.9,55,2,18017,0)="""RTN"",""IBCEP6"",29,0)"
^XMB(3.9,55,2,18018,0)=" S Z0=$J("""",14)_""-- NON/OTHER VA ENTITY EDITS --"" D SET1(.IBLCT,Z0,6),CNTRL^VALM10(IBLCT,15,31,IORVON,IORVOFF)"
^XMB(3.9,55,2,18019,0)="""RTN"",""IBCEP6"",30,0)"
^XMB(3.9,55,2,18020,0)=" S Z0=$J("""",10)_""6 > NON/OTHER VA PROVIDER ID INFORMATION"" D SET1(.IBLCT,Z0,6)"
^XMB(3.9,55,2,18021,0)="""RTN"",""IBCEP6"",31,0)"
^XMB(3.9,55,2,18022,0)=" K VALMBG,VALMCNT"
^XMB(3.9,55,2,18023,0)="""RTN"",""IBCEP6"",32,0)"
^XMB(3.9,55,2,18024,0)=" S VALMBG=1,VALMCNT=IBLCT"
^XMB(3.9,55,2,18025,0)="""RTN"",""IBCEP6"",33,0)"
^XMB(3.9,55,2,18026,0)=" Q"
^XMB(3.9,55,2,18027,0)="""RTN"",""IBCEP6"",34,0)"
^XMB(3.9,55,2,18028,0)=" ;"
^XMB(3.9,55,2,18029,0)="""RTN"",""IBCEP6"",35,0)"
^XMB(3.9,55,2,18030,0)="SET1(IBLCT,Z0,IBCT) ;"
^XMB(3.9,55,2,18031,0)="""RTN"",""IBCEP6"",36,0)"
^XMB(3.9,55,2,18032,0)=" S IBLCT=IBLCT+1 D SET^VALM10(IBLCT,Z0,$G(IBCT))"
^XMB(3.9,55,2,18033,0)="""RTN"",""IBCEP6"",37,0)"
^XMB(3.9,55,2,18034,0)=" Q"
^XMB(3.9,55,2,18035,0)="""RTN"",""IBCEP6"",38,0)"
^XMB(3.9,55,2,18036,0)=" ;"
^XMB(3.9,55,2,18037,0)="""RTN"",""IBCEP6"",39,0)"
^XMB(3.9,55,2,18038,0)="EXPND ;"
^XMB(3.9,55,2,18039,0)="""RTN"",""IBCEP6"",40,0)"
^XMB(3.9,55,2,18040,0)=" Q"
^XMB(3.9,55,2,18041,0)="""RTN"",""IBCEP6"",41,0)"
^XMB(3.9,55,2,18042,0)=" ;"
^XMB(3.9,55,2,18043,0)="""RTN"",""IBCEP6"",42,0)"
^XMB(3.9,55,2,18044,0)="HELP ;"
^XMB(3.9,55,2,18045,0)="""RTN"",""IBCEP6"",43,0)"
^XMB(3.9,55,2,18046,0)=" Q"
^XMB(3.9,55,2,18047,0)="""RTN"",""IBCEP6"",44,0)"
^XMB(3.9,55,2,18048,0)=" ;"
^XMB(3.9,55,2,18049,0)="""RTN"",""IBCEP6"",45,0)"
^XMB(3.9,55,2,18050,0)="EXIT ;"
^XMB(3.9,55,2,18051,0)="""RTN"",""IBCEP6"",46,0)"
^XMB(3.9,55,2,18052,0)=" K ^TMP(""IBCE_PRVMAINT_MENU"",$J)"
^XMB(3.9,55,2,18053,0)="""RTN"",""IBCEP6"",47,0)"
^XMB(3.9,55,2,18054,0)=" D CLEAN^VALM10"
^XMB(3.9,55,2,18055,0)="""RTN"",""IBCEP6"",48,0)"
^XMB(3.9,55,2,18056,0)=" Q"
^XMB(3.9,55,2,18057,0)="""RTN"",""IBCEP6"",49,0)"
^XMB(3.9,55,2,18058,0)=" ;"
^XMB(3.9,55,2,18059,0)="""RTN"",""IBCEP6"",50,0)"
^XMB(3.9,55,2,18060,0)="SEL ;"
^XMB(3.9,55,2,18061,0)="""RTN"",""IBCEP6"",51,0)"
^XMB(3.9,55,2,18062,0)=" N Z,Z1,DIR"
^XMB(3.9,55,2,18063,0)="""RTN"",""IBCEP6"",52,0)"
^XMB(3.9,55,2,18064,0)=" D FULL^VALM1"
^XMB(3.9,55,2,18065,0)="""RTN"",""IBCEP6"",53,0)"
^XMB(3.9,55,2,18066,0)=" D EN^VALM2($G(XQORNOD(0)),""OS"")"
^XMB(3.9,55,2,18067,0)="""RTN"",""IBCEP6"",54,0)"
^XMB(3.9,55,2,18068,0)=" S Z=+$O(VALMY(0))"
^XMB(3.9,55,2,18069,0)="""RTN"",""IBCEP6"",55,0)"
^XMB(3.9,55,2,18070,0)=" I Z,Z<6,'$D(^XUSEC(""IB PROVIDER EDIT"",DUZ)) S DIR(0)=""EA"",DIR(""A"",1)=""YOU ARE NOT AUTHORIZED TO EDIT PROVIDER IDS"",DIR(""A"")=""Press ENTER to continue"" W ! D ^DIR K DIR W ! G SELQ"
^XMB(3.9,55,2,18071,0)="""RTN"",""IBCEP6"",56,0)"
^XMB(3.9,55,2,18072,0)=" I Z=3 D  G SELQ"
^XMB(3.9,55,2,18073,0)="""RTN"",""IBCEP6"",57,0)"
^XMB(3.9,55,2,18074,0)=" . S DIR(0)=""EA"",DIR(""A"",1)=""This Action is no longer available"",DIR(""A"")=""Press ENTER to continue"""
^XMB(3.9,55,2,18075,0)="""RTN"",""IBCEP6"",58,0)"
^XMB(3.9,55,2,18076,0)=" . D ^DIR K DIR"
^XMB(3.9,55,2,18077,0)="""RTN"",""IBCEP6"",59,0)"
^XMB(3.9,55,2,18078,0)=" I Z S Z1=$P($T(ACT+Z),U,2,3) I Z1'="""" D @Z1"
^XMB(3.9,55,2,18079,0)="""RTN"",""IBCEP6"",60,0)"
^XMB(3.9,55,2,18080,0)="SELQ K VALMBCK,XQORM(""B"")"
^XMB(3.9,55,2,18081,0)="""RTN"",""IBCEP6"",61,0)"
^XMB(3.9,55,2,18082,0)=" S VALMBCK=""R"",XQORM(""B"")=""Quit"""
^XMB(3.9,55,2,18083,0)="""RTN"",""IBCEP6"",62,0)"
^XMB(3.9,55,2,18084,0)=" Q"
^XMB(3.9,55,2,18085,0)="""RTN"",""IBCEP6"",63,0)"
^XMB(3.9,55,2,18086,0)=" ;"
^XMB(3.9,55,2,18087,0)="""RTN"",""IBCEP6"",64,0)"
^XMB(3.9,55,2,18088,0)="EN1 ; Provider maintenance from the billing screen 8"
^XMB(3.9,55,2,18089,0)="""RTN"",""IBCEP6"",65,0)"
^XMB(3.9,55,2,18090,0)=" N DIR,X,Y,IBEDIT"
^XMB(3.9,55,2,18091,0)="""RTN"",""IBCEP6"",66,0)"
^XMB(3.9,55,2,18092,0)=" ;S IBEDIT=1"
^XMB(3.9,55,2,18093,0)="""RTN"",""IBCEP6"",67,0)"
^XMB(3.9,55,2,18094,0)=" W !"
^XMB(3.9,55,2,18095,0)="""RTN"",""IBCEP6"",68,0)"
^XMB(3.9,55,2,18096,0)=" ;S DIR(0)=""YA"",DIR(""B"")=""NO"",DIR(""A"",1)=""WANT TO ATTEMPT TO RESET ALL PROVIDER IDS TO THE CALCULATED"",DIR(""A"")=""DEFAULTS FOR THIS BILL?: "" D ^DIR K DIR"
^XMB(3.9,55,2,18097,0)="""RTN"",""IBCEP6"",69,0)"
^XMB(3.9,55,2,18098,0)=" ;Q:$D(DTOUT)!$D(DUOUT)"
^XMB(3.9,55,2,18099,0)="""RTN"",""IBCEP6"",70,0)"
^XMB(3.9,55,2,18100,0)=" ;I Y=1 S IBEDIT=0 D RECALCA^IBCEP2A(IBIFN) W !"
^XMB(3.9,55,2,18101,0)="""RTN"",""IBCEP6"",71,0)"
^XMB(3.9,55,2,18102,0)=" ;"
^XMB(3.9,55,2,18103,0)="""RTN"",""IBCEP6"",72,0)"
^XMB(3.9,55,2,18104,0)=" I '$D(^XUSEC(""IB PROVIDER EDIT"",DUZ)) S DIR(0)=""EA"",DIR(""A"")=""Press ENTER to continue: "",DIR(""A"",1)=""YOU LACK THE SECURITY KEY FOR THIS ACTION"" D ^DIR K DIR Q"
^XMB(3.9,55,2,18105,0)="""RTN"",""IBCEP6"",73,0)"
^XMB(3.9,55,2,18106,0)=" ;I 'IBEDIT D"
^XMB(3.9,55,2,18107,0)="""RTN"",""IBCEP6"",74,0)"
^XMB(3.9,55,2,18108,0)=" ;. S DIR(0)=""YA"",DIR(""A"")=""WANT TO CONTINUE WITH GENERAL PROVIDER ID MAINTENANCE?: "",DIR(""B"")=""NO"" D ^DIR K DIR"
^XMB(3.9,55,2,18109,0)="""RTN"",""IBCEP6"",75,0)"
^XMB(3.9,55,2,18110,0)=" ;. I $D(DTOUT)!$D(DUOUT)!'Y Q"
^XMB(3.9,55,2,18111,0)="""RTN"",""IBCEP6"",76,0)"
^XMB(3.9,55,2,18112,0)=" ;. S IBEDIT=1"
^XMB(3.9,55,2,18113,0)="""RTN"",""IBCEP6"",77,0)"
^XMB(3.9,55,2,18114,0)=" D EN"
^XMB(3.9,55,2,18115,0)="""RTN"",""IBCEP6"",78,0)"
^XMB(3.9,55,2,18116,0)=" Q"
^XMB(3.9,55,2,18117,0)="""RTN"",""IBCEP6"",79,0)"
^XMB(3.9,55,2,18118,0)=" ;"
^XMB(3.9,55,2,18119,0)="""RTN"",""IBCEP6"",80,0)"
^XMB(3.9,55,2,18120,0)="ACT ; Actions available"
^XMB(3.9,55,2,18121,0)="""RTN"",""IBCEP6"",81,0)"
^XMB(3.9,55,2,18122,0)=" ;;PROVIDER LEVEL ID EDIT^EN^IBCEP5"
^XMB(3.9,55,2,18123,0)="""RTN"",""IBCEP6"",82,0)"
^XMB(3.9,55,2,18124,0)=" ;;INS CO LEVEL ID EDIT^EN^IBCEP0"
^XMB(3.9,55,2,18125,0)="""RTN"",""IBCEP6"",83,0)"
^XMB(3.9,55,2,18126,0)=" ;;"
^XMB(3.9,55,2,18127,0)="""RTN"",""IBCEP6"",84,0)"
^XMB(3.9,55,2,18128,0)=" ;;CARE UNIT EDIT^EN^IBCEP4"
^XMB(3.9,55,2,18129,0)="""RTN"",""IBCEP6"",85,0)"
^XMB(3.9,55,2,18130,0)=" ;;BATCH ID ENTRY BY INS CO^EN^IBCEP9"
^XMB(3.9,55,2,18131,0)="""RTN"",""IBCEP6"",86,0)"
^XMB(3.9,55,2,18132,0)=" ;;NON-VA PROVIDER EDIT^EN^IBCEP8"
^XMB(3.9,55,2,18133,0)="""RTN"",""IBCEP6"",87,0)"
^XMB(3.9,55,2,18134,0)=" ;"
^XMB(3.9,55,2,18135,0)="""RTN"",""IBCEP6"",88,0)"
^XMB(3.9,55,2,18136,0)=" ;"
^XMB(3.9,55,2,18137,0)="""RTN"",""IBCEP6"",89,0)"
^XMB(3.9,55,2,18138,0)=" ;"
^XMB(3.9,55,2,18139,0)="""RTN"",""IBCEP6"",90,0)"
^XMB(3.9,55,2,18140,0)=" ;;SITE LEVEL ID EDIT^EN^IBCEP7"
^XMB(3.9,55,2,18141,0)="""RTN"",""IBCEP7"")"
^XMB(3.9,55,2,18142,0)="0^28^B48424758^B81966703"
^XMB(3.9,55,2,18143,0)="""RTN"",""IBCEP7"",1,0)"
^XMB(3.9,55,2,18144,0)="IBCEP7 ;ALB/TMP - Functions for fac level PROVIDER ID MAINT ;11-07-00"
^XMB(3.9,55,2,18145,0)="""RTN"",""IBCEP7"",2,0)"
^XMB(3.9,55,2,18146,0)=" ;;2.0;INTEGRATED BILLING;**137,232,320**;21-MAR-94"
^XMB(3.9,55,2,18147,0)="""RTN"",""IBCEP7"",3,0)"
^XMB(3.9,55,2,18148,0)=" ;"
^XMB(3.9,55,2,18149,0)="""RTN"",""IBCEP7"",4,0)"
^XMB(3.9,55,2,18150,0)="HDR ; -- hdr code"
^XMB(3.9,55,2,18151,0)="""RTN"",""IBCEP7"",5,0)"
^XMB(3.9,55,2,18152,0)=" I '$D(^TMP(""IBCE_PRVFAC_MAINT"",$J)) D INIT"
^XMB(3.9,55,2,18153,0)="""RTN"",""IBCEP7"",6,0)"
^XMB(3.9,55,2,18154,0)=" N IBINS,PCF,PCDISP,IBPARAM,IBEFTFL"
^XMB(3.9,55,2,18155,0)="""RTN"",""IBCEP7"",7,0)"
^XMB(3.9,55,2,18156,0)=" K VALMHDR"
^XMB(3.9,55,2,18157,0)="""RTN"",""IBCEP7"",8,0)"
^XMB(3.9,55,2,18158,0)=" S IBPARAM=$G(^TMP(""IBCE_PRVFAC_MAINT_INS"",$J))"
^XMB(3.9,55,2,18159,0)="""RTN"",""IBCEP7"",9,0)"
^XMB(3.9,55,2,18160,0)=" S IBEFTFL=$P(IBPARAM,U)  ; Electronic Form type flag"
^XMB(3.9,55,2,18161,0)="""RTN"",""IBCEP7"",10,0)"
^XMB(3.9,55,2,18162,0)=" S IBINS=+$P(IBPARAM,U,2)  ; Insurance co"
^XMB(3.9,55,2,18163,0)="""RTN"",""IBCEP7"",11,0)"
^XMB(3.9,55,2,18164,0)=" S PCF=$P($G(^DIC(36,+IBINS,3)),U,13),PCDISP=$S(PCF=""P"":""(Parent)"",1:"""")"
^XMB(3.9,55,2,18165,0)="""RTN"",""IBCEP7"",12,0)"
^XMB(3.9,55,2,18166,0)=" S VALMHDR(1)=""Insurance Co: ""_$P($G(^DIC(36,+IBINS,0)),U)_PCDISP"
^XMB(3.9,55,2,18167,0)="""RTN"",""IBCEP7"",13,0)"
^XMB(3.9,55,2,18168,0)=" S VALMHDR(1)=VALMHDR(1)_$S(IBEFTFL=""E"":""   Billing Provider Secondary IDs"",IBEFTFL=""A"":""   Additional Billing Provider Sec. IDs"",IBEFTFL=""LF"":""   VA-Lab/Facility Secondary IDs"",1:"""")"
^XMB(3.9,55,2,18169,0)="""RTN"",""IBCEP7"",14,0)"
^XMB(3.9,55,2,18170,0)=" I IBEFTFL=""LF"" S VALMHDR(2)=""VA-Lab/Facility Primary ID: Federal Tax ID"""
^XMB(3.9,55,2,18171,0)="""RTN"",""IBCEP7"",15,0)"
^XMB(3.9,55,2,18172,0)=" Q"
^XMB(3.9,55,2,18173,0)="""RTN"",""IBCEP7"",16,0)"
^XMB(3.9,55,2,18174,0)=" ;"
^XMB(3.9,55,2,18175,0)="""RTN"",""IBCEP7"",17,0)"
^XMB(3.9,55,2,18176,0)="INIT ; Initialize"
^XMB(3.9,55,2,18177,0)="""RTN"",""IBCEP7"",18,0)"
^XMB(3.9,55,2,18178,0)=" N IBCT,IBD,Z,Z0,Z00,Z1,IBS,IBX,IBDIV,IBEFTFL,IBINS,IBPARAM,IBLCT,IBCU"
^XMB(3.9,55,2,18179,0)="""RTN"",""IBCEP7"",19,0)"
^XMB(3.9,55,2,18180,0)=" K ^TMP(""IBCE_PRVFAC_MAINT"",$J)"
^XMB(3.9,55,2,18181,0)="""RTN"",""IBCEP7"",20,0)"
^XMB(3.9,55,2,18182,0)=" S (IBLCT,IBCT)=0"
^XMB(3.9,55,2,18183,0)="""RTN"",""IBCEP7"",21,0)"
^XMB(3.9,55,2,18184,0)=" S IBPARAM=$G(^TMP(""IBCE_PRVFAC_MAINT_INS"",$J))"
^XMB(3.9,55,2,18185,0)="""RTN"",""IBCEP7"",22,0)"
^XMB(3.9,55,2,18186,0)=" S IBEFTFL=$P(IBPARAM,U)  ; Electronic Form type flag"
^XMB(3.9,55,2,18187,0)="""RTN"",""IBCEP7"",23,0)"
^XMB(3.9,55,2,18188,0)=" S IBINS=+$P(IBPARAM,U,2)  ; Insurance co"
^XMB(3.9,55,2,18189,0)="""RTN"",""IBCEP7"",24,0)"
^XMB(3.9,55,2,18190,0)=" ;"
^XMB(3.9,55,2,18191,0)="""RTN"",""IBCEP7"",25,0)"
^XMB(3.9,55,2,18192,0)=" I IBEFTFL=""A"" D"
^XMB(3.9,55,2,18193,0)="""RTN"",""IBCEP7"",26,0)"
^XMB(3.9,55,2,18194,0)=" . K VALM(""PROTOCOL"")"
^XMB(3.9,55,2,18195,0)="""RTN"",""IBCEP7"",27,0)"
^XMB(3.9,55,2,18196,0)=" . S Y=$$FIND1^DIC(101,,,""IBCE PRVFAC ADDIDS MAINT"")"
^XMB(3.9,55,2,18197,0)="""RTN"",""IBCEP7"",28,0)"
^XMB(3.9,55,2,18198,0)=" . I Y S VALM(""PROTOCOL"")=+Y_"";ORD(101,"""
^XMB(3.9,55,2,18199,0)="""RTN"",""IBCEP7"",29,0)"
^XMB(3.9,55,2,18200,0)=" ;"
^XMB(3.9,55,2,18201,0)="""RTN"",""IBCEP7"",30,0)"
^XMB(3.9,55,2,18202,0)=" I IBEFTFL=""LF"" D"
^XMB(3.9,55,2,18203,0)="""RTN"",""IBCEP7"",31,0)"
^XMB(3.9,55,2,18204,0)=" . S VALM(""TITLE"")=""VA-Lab/Facility IDs"""
^XMB(3.9,55,2,18205,0)="""RTN"",""IBCEP7"",32,0)"
^XMB(3.9,55,2,18206,0)=" . K VALM(""PROTOCOL"")"
^XMB(3.9,55,2,18207,0)="""RTN"",""IBCEP7"",33,0)"
^XMB(3.9,55,2,18208,0)=" . S Y=$$FIND1^DIC(101,,,""IBCE PRVFAC VALF MAINT"")"
^XMB(3.9,55,2,18209,0)="""RTN"",""IBCEP7"",34,0)"
^XMB(3.9,55,2,18210,0)=" . I Y S VALM(""PROTOCOL"")=+Y_"";ORD(101,"""
^XMB(3.9,55,2,18211,0)="""RTN"",""IBCEP7"",35,0)"
^XMB(3.9,55,2,18212,0)=" ;"
^XMB(3.9,55,2,18213,0)="""RTN"",""IBCEP7"",36,0)"
^XMB(3.9,55,2,18214,0)=" ; Compile the appropriate list of IDs"
^XMB(3.9,55,2,18215,0)="""RTN"",""IBCEP7"",37,0)"
^XMB(3.9,55,2,18216,0)=" S Z=0 F  S Z=$O(^IBA(355.92,""B"",IBINS,Z)) Q:'Z  D"
^XMB(3.9,55,2,18217,0)="""RTN"",""IBCEP7"",38,0)"
^XMB(3.9,55,2,18218,0)=" . S Z0=$G(^IBA(355.92,Z,0))"
^XMB(3.9,55,2,18219,0)="""RTN"",""IBCEP7"",39,0)"
^XMB(3.9,55,2,18220,0)=" . Q:'$P(Z0,U,6)!($P(Z0,U,7)="""")  ; Quit if no provider id or id type"
^XMB(3.9,55,2,18221,0)="""RTN"",""IBCEP7"",40,0)"
^XMB(3.9,55,2,18222,0)=" . Q:'($P(Z0,U,8)=IBEFTFL)"
^XMB(3.9,55,2,18223,0)="""RTN"",""IBCEP7"",41,0)"
^XMB(3.9,55,2,18224,0)=" . ;Q:$S($P(IBPARAM,U,3)=1:'$P($G(^IBE(355.97,+$P(Z0,U,6),1)),U,9),1:$P($G(^IBE(355.97,+$P(Z0,U,6),1)),U,9))"
^XMB(3.9,55,2,18225,0)="""RTN"",""IBCEP7"",42,0)"
^XMB(3.9,55,2,18226,0)=" . S Z1=$G(^IBE(355.97,+$P(Z0,U,6),0))"
^XMB(3.9,55,2,18227,0)="""RTN"",""IBCEP7"",43,0)"
^XMB(3.9,55,2,18228,0)=" . S IBS(+$P(Z0,U,5),+$P(Z0,U,3),+$P(Z1,U,2)_"";""_Z,$P(Z1,U))=+$P(Z0,U,6)_U_$P(Z0,U,7)_U_Z"
^XMB(3.9,55,2,18229,0)="""RTN"",""IBCEP7"",44,0)"
^XMB(3.9,55,2,18230,0)=" ;"
^XMB(3.9,55,2,18231,0)="""RTN"",""IBCEP7"",45,0)"
^XMB(3.9,55,2,18232,0)=" S IBD="""" F  S IBD=$O(IBS(IBD)) Q:IBD=""""  D"
^XMB(3.9,55,2,18233,0)="""RTN"",""IBCEP7"",46,0)"
^XMB(3.9,55,2,18234,0)=" . D:IBCT SET1(.IBLCT,"" "",IBCT+1)"
^XMB(3.9,55,2,18235,0)="""RTN"",""IBCEP7"",47,0)"
^XMB(3.9,55,2,18236,0)=" . D SET1(.IBLCT,""Division: ""_$$DIV(IBD),IBCT+1)"
^XMB(3.9,55,2,18237,0)="""RTN"",""IBCEP7"",48,0)"
^XMB(3.9,55,2,18238,0)=" . S IBCU="""" F  S IBCU=$O(IBS(IBD,IBCU)) Q:IBCU=""""  D"
^XMB(3.9,55,2,18239,0)="""RTN"",""IBCEP7"",49,0)"
^XMB(3.9,55,2,18240,0)=" .. I IBCU D SET1(.IBLCT,""  Care Unit: ""_$$EXTERNAL^DILFD(355.92,.03,"""",IBCU),IBCT+1)"
^XMB(3.9,55,2,18241,0)="""RTN"",""IBCEP7"",50,0)"
^XMB(3.9,55,2,18242,0)=" .. S Z="""" F  S Z=$O(IBS(IBD,IBCU,Z),-1) Q:Z=""""  D"
^XMB(3.9,55,2,18243,0)="""RTN"",""IBCEP7"",51,0)"
^XMB(3.9,55,2,18244,0)=" ... S Z0="""" F  S Z0=$O(IBS(IBD,IBCU,Z,Z0)) Q:Z0=""""  S IBX=IBS(IBD,IBCU,Z,Z0) D"
^XMB(3.9,55,2,18245,0)="""RTN"",""IBCEP7"",52,0)"
^XMB(3.9,55,2,18246,0)=" .... S IBCT=IBCT+1"
^XMB(3.9,55,2,18247,0)="""RTN"",""IBCEP7"",53,0)"
^XMB(3.9,55,2,18248,0)=" .... I $P(Z,"";"",2) D  Q"
^XMB(3.9,55,2,18249,0)="""RTN"",""IBCEP7"",54,0)"
^XMB(3.9,55,2,18250,0)=" ..... S Z00=$G(^IBA(355.92,+$P(Z,"";"",2),0))"
^XMB(3.9,55,2,18251,0)="""RTN"",""IBCEP7"",55,0)"
^XMB(3.9,55,2,18252,0)=" ..... S Z1=$E(IBCT_$J("""",3),1,3)_""  ""_$E(Z0_$J("""",25),1,25)_""   ""_$E($S($P(IBX,U,2)'="""":$P(IBX,U,2),1:$$IDNUM^IBCEP7A(+IBX))_$J("""",15),1,15)_""  ""_$P(""BOTH^UB92^HCFA^RX"",U,$P(Z00,U,4)+1)"
^XMB(3.9,55,2,18253,0)="""RTN"",""IBCEP7"",56,0)"
^XMB(3.9,55,2,18254,0)=" ..... D SET1(.IBLCT,Z1,IBCT)"
^XMB(3.9,55,2,18255,0)="""RTN"",""IBCEP7"",57,0)"
^XMB(3.9,55,2,18256,0)=" ..... S ^TMP(""IBCE_PRVFAC_MAINT"",$J,""ZIDX"",IBCT)=+$P(Z,"";"",2)"
^XMB(3.9,55,2,18257,0)="""RTN"",""IBCEP7"",58,0)"
^XMB(3.9,55,2,18258,0)=" ;"
^XMB(3.9,55,2,18259,0)="""RTN"",""IBCEP7"",59,0)"
^XMB(3.9,55,2,18260,0)=" I 'IBLCT D"
^XMB(3.9,55,2,18261,0)="""RTN"",""IBCEP7"",60,0)"
^XMB(3.9,55,2,18262,0)=" . D SET1(1,"" "")"
^XMB(3.9,55,2,18263,0)="""RTN"",""IBCEP7"",61,0)"
^XMB(3.9,55,2,18264,0)=" . N TEXT"
^XMB(3.9,55,2,18265,0)="""RTN"",""IBCEP7"",62,0)"
^XMB(3.9,55,2,18266,0)=" . I IBEFTFL=""E"" S TEXT=""No Billing Provider Secondary IDs found"""
^XMB(3.9,55,2,18267,0)="""RTN"",""IBCEP7"",63,0)"
^XMB(3.9,55,2,18268,0)=" . I IBEFTFL=""A"" S TEXT=""No Billing Provider Additional IDs found"""
^XMB(3.9,55,2,18269,0)="""RTN"",""IBCEP7"",64,0)"
^XMB(3.9,55,2,18270,0)=" . I IBEFTFL=""LF"" S TEXT=""No VA Lab/Facility IDs found"""
^XMB(3.9,55,2,18271,0)="""RTN"",""IBCEP7"",65,0)"
^XMB(3.9,55,2,18272,0)=" . D SET1(2,TEXT)"
^XMB(3.9,55,2,18273,0)="""RTN"",""IBCEP7"",66,0)"
^XMB(3.9,55,2,18274,0)=" . S IBLCT=2"
^XMB(3.9,55,2,18275,0)="""RTN"",""IBCEP7"",67,0)"
^XMB(3.9,55,2,18276,0)=" S VALMBG=1,VALMCNT=IBLCT"
^XMB(3.9,55,2,18277,0)="""RTN"",""IBCEP7"",68,0)"
^XMB(3.9,55,2,18278,0)=" Q"
^XMB(3.9,55,2,18279,0)="""RTN"",""IBCEP7"",69,0)"
^XMB(3.9,55,2,18280,0)=" ;"
^XMB(3.9,55,2,18281,0)="""RTN"",""IBCEP7"",70,0)"
^XMB(3.9,55,2,18282,0)="SET1(IBLCT,TEXT,IBCT) ;"
^XMB(3.9,55,2,18283,0)="""RTN"",""IBCEP7"",71,0)"
^XMB(3.9,55,2,18284,0)=" S IBLCT=IBLCT+1 D SET^VALM10(IBLCT,TEXT,$G(IBCT))"
^XMB(3.9,55,2,18285,0)="""RTN"",""IBCEP7"",72,0)"
^XMB(3.9,55,2,18286,0)=" Q"
^XMB(3.9,55,2,18287,0)="""RTN"",""IBCEP7"",73,0)"
^XMB(3.9,55,2,18288,0)=" ;"
^XMB(3.9,55,2,18289,0)="""RTN"",""IBCEP7"",74,0)"
^XMB(3.9,55,2,18290,0)="DIV(IBD) ; Returns 'ALL/DEFAULT' or div NAME whose ien=IBD"
^XMB(3.9,55,2,18291,0)="""RTN"",""IBCEP7"",75,0)"
^XMB(3.9,55,2,18292,0)=" N MAIN"
^XMB(3.9,55,2,18293,0)="""RTN"",""IBCEP7"",76,0)"
^XMB(3.9,55,2,18294,0)=" I IBD Q $$EXTERNAL^DILFD(355.92,.05,"""",IBD)"
^XMB(3.9,55,2,18295,0)="""RTN"",""IBCEP7"",77,0)"
^XMB(3.9,55,2,18296,0)=" S MAIN=$$MAIN^IBCEP2B()"
^XMB(3.9,55,2,18297,0)="""RTN"",""IBCEP7"",78,0)"
^XMB(3.9,55,2,18298,0)=" S MAIN=$$EXTERNAL^DILFD(355.92,.05,"""",MAIN)"
^XMB(3.9,55,2,18299,0)="""RTN"",""IBCEP7"",79,0)"
^XMB(3.9,55,2,18300,0)=" S MAIN=MAIN_""/Default for All Divisions"""
^XMB(3.9,55,2,18301,0)="""RTN"",""IBCEP7"",80,0)"
^XMB(3.9,55,2,18302,0)=" Q MAIN"
^XMB(3.9,55,2,18303,0)="""RTN"",""IBCEP7"",81,0)"
^XMB(3.9,55,2,18304,0)=" ;"
^XMB(3.9,55,2,18305,0)="""RTN"",""IBCEP7"",82,0)"
^XMB(3.9,55,2,18306,0)="EDIT1 ;"
^XMB(3.9,55,2,18307,0)="""RTN"",""IBCEP7"",83,0)"
^XMB(3.9,55,2,18308,0)=" N IBFUNC,IBINS,IBDA,Z,DIR,X,Y,DTOUT,DUOUT,DP,IBPARAM,IBEFTFL"
^XMB(3.9,55,2,18309,0)="""RTN"",""IBCEP7"",84,0)"
^XMB(3.9,55,2,18310,0)=" D FULL^VALM1"
^XMB(3.9,55,2,18311,0)="""RTN"",""IBCEP7"",85,0)"
^XMB(3.9,55,2,18312,0)=" S IBPARAM=$G(^TMP(""IBCE_PRVFAC_MAINT_INS"",$J))"
^XMB(3.9,55,2,18313,0)="""RTN"",""IBCEP7"",86,0)"
^XMB(3.9,55,2,18314,0)=" S IBEFTFL=$P(IBPARAM,U)  ; Electronic Form type flag"
^XMB(3.9,55,2,18315,0)="""RTN"",""IBCEP7"",87,0)"
^XMB(3.9,55,2,18316,0)=" S IBINS=+$P(IBPARAM,U,2)  ; Insurance co"
^XMB(3.9,55,2,18317,0)="""RTN"",""IBCEP7"",88,0)"
^XMB(3.9,55,2,18318,0)=" S IBFUNC=""E"""
^XMB(3.9,55,2,18319,0)="""RTN"",""IBCEP7"",89,0)"
^XMB(3.9,55,2,18320,0)=" D SEL"
^XMB(3.9,55,2,18321,0)="""RTN"",""IBCEP7"",90,0)"
^XMB(3.9,55,2,18322,0)=" I $G(IBDA) S Z=$$EDITFAC(IBDA,IBFUNC,IBEFTFL) I Z D INIT"
^XMB(3.9,55,2,18323,0)="""RTN"",""IBCEP7"",91,0)"
^XMB(3.9,55,2,18324,0)=" ;"
^XMB(3.9,55,2,18325,0)="""RTN"",""IBCEP7"",92,0)"
^XMB(3.9,55,2,18326,0)="EDIT1Q S VALMBCK=""R"""
^XMB(3.9,55,2,18327,0)="""RTN"",""IBCEP7"",93,0)"
^XMB(3.9,55,2,18328,0)=" Q"
^XMB(3.9,55,2,18329,0)="""RTN"",""IBCEP7"",94,0)"
^XMB(3.9,55,2,18330,0)="EXPND ;"
^XMB(3.9,55,2,18331,0)="""RTN"",""IBCEP7"",95,0)"
^XMB(3.9,55,2,18332,0)=" Q"
^XMB(3.9,55,2,18333,0)="""RTN"",""IBCEP7"",96,0)"
^XMB(3.9,55,2,18334,0)="HELP ;"
^XMB(3.9,55,2,18335,0)="""RTN"",""IBCEP7"",97,0)"
^XMB(3.9,55,2,18336,0)=" Q"
^XMB(3.9,55,2,18337,0)="""RTN"",""IBCEP7"",98,0)"
^XMB(3.9,55,2,18338,0)="EXIT ;"
^XMB(3.9,55,2,18339,0)="""RTN"",""IBCEP7"",99,0)"
^XMB(3.9,55,2,18340,0)=" N IBPARAM,IBEFTFL"
^XMB(3.9,55,2,18341,0)="""RTN"",""IBCEP7"",100,0)"
^XMB(3.9,55,2,18342,0)=" S IBPARAM=$G(^TMP(""IBCE_PRVFAC_MAINT_INS"",$J))"
^XMB(3.9,55,2,18343,0)="""RTN"",""IBCEP7"",101,0)"
^XMB(3.9,55,2,18344,0)=" S IBEFTFL=$P(IBPARAM,U)  ; Electronic Form type flag"
^XMB(3.9,55,2,18345,0)="""RTN"",""IBCEP7"",102,0)"
^XMB(3.9,55,2,18346,0)=" I IBEFTFL=""A"" D COPYPROV^IBCEP5A(0)"
^XMB(3.9,55,2,18347,0)="""RTN"",""IBCEP7"",103,0)"
^XMB(3.9,55,2,18348,0)=" ;"
^XMB(3.9,55,2,18349,0)="""RTN"",""IBCEP7"",104,0)"
^XMB(3.9,55,2,18350,0)=" S (IBLCT,IBCT)=0"
^XMB(3.9,55,2,18351,0)="""RTN"",""IBCEP7"",105,0)"
^XMB(3.9,55,2,18352,0)=" K ^TMP(""IBCE_PRVFAC_MAINT"",$J),^TMP(""IBCE_PRVFAC_MAINT_INS"",$J)"
^XMB(3.9,55,2,18353,0)="""RTN"",""IBCEP7"",106,0)"
^XMB(3.9,55,2,18354,0)=" D CLEAN^VALM10"
^XMB(3.9,55,2,18355,0)="""RTN"",""IBCEP7"",107,0)"
^XMB(3.9,55,2,18356,0)=" Q"
^XMB(3.9,55,2,18357,0)="""RTN"",""IBCEP7"",108,0)"
^XMB(3.9,55,2,18358,0)="SEL ;"
^XMB(3.9,55,2,18359,0)="""RTN"",""IBCEP7"",109,0)"
^XMB(3.9,55,2,18360,0)=" N Z"
^XMB(3.9,55,2,18361,0)="""RTN"",""IBCEP7"",110,0)"
^XMB(3.9,55,2,18362,0)=" K IBDA"
^XMB(3.9,55,2,18363,0)="""RTN"",""IBCEP7"",111,0)"
^XMB(3.9,55,2,18364,0)=" D FULL^VALM1,EN^VALM2($G(XQORNOD(0)),""OS"")"
^XMB(3.9,55,2,18365,0)="""RTN"",""IBCEP7"",112,0)"
^XMB(3.9,55,2,18366,0)=" S Z=+$O(VALMY(0)) Q:'Z"
^XMB(3.9,55,2,18367,0)="""RTN"",""IBCEP7"",113,0)"
^XMB(3.9,55,2,18368,0)=" ; fac/ins co default"
^XMB(3.9,55,2,18369,0)="""RTN"",""IBCEP7"",114,0)"
^XMB(3.9,55,2,18370,0)=" S IBDA=$G(^TMP(""IBCE_PRVFAC_MAINT"",$J,""ZIDX"",Z))"
^XMB(3.9,55,2,18371,0)="""RTN"",""IBCEP7"",115,0)"
^XMB(3.9,55,2,18372,0)=" Q"
^XMB(3.9,55,2,18373,0)="""RTN"",""IBCEP7"",116,0)"
^XMB(3.9,55,2,18374,0)=" ;"
^XMB(3.9,55,2,18375,0)="""RTN"",""IBCEP7"",117,0)"
^XMB(3.9,55,2,18376,0)="EDITFAC(IBDA,IBFUNC,IBEFTFL) ; edits ins co facility id (355.92), entry IBDA"
^XMB(3.9,55,2,18377,0)="""RTN"",""IBCEP7"",118,0)"
^XMB(3.9,55,2,18378,0)=" N IBRBLD,Z,Z0,DIK,DIE,DP,DA,DR,DIR,X,Y,IBDA0,IBDIV,IBITYP,IBFORM,IBCAREUN,NEXTONE"
^XMB(3.9,55,2,18379,0)="""RTN"",""IBCEP7"",119,0)"
^XMB(3.9,55,2,18380,0)=" S IBRBLD=0 S:$G(IBDA) IBDA0=$G(^IBA(355.92,+IBDA,0))"
^XMB(3.9,55,2,18381,0)="""RTN"",""IBCEP7"",120,0)"
^XMB(3.9,55,2,18382,0)=" ; ""E""diting 355.92 entry"
^XMB(3.9,55,2,18383,0)="""RTN"",""IBCEP7"",121,0)"
^XMB(3.9,55,2,18384,0)=" I IBFUNC=""E"" D"
^XMB(3.9,55,2,18385,0)="""RTN"",""IBCEP7"",122,0)"
^XMB(3.9,55,2,18386,0)=" . S Z0=$TR(IBDA0,U)"
^XMB(3.9,55,2,18387,0)="""RTN"",""IBCEP7"",123,0)"
^XMB(3.9,55,2,18388,0)=" . Q:'$$FACFLDS^IBCEP7C(IBDA,IBINS,.IBITYP,.IBFORM,.IBDIV,""E"",.IBCAREUN,IBEFTFL)"
^XMB(3.9,55,2,18389,0)="""RTN"",""IBCEP7"",124,0)"
^XMB(3.9,55,2,18390,0)=" . S DIE=""^IBA(355.92,"",DA=IBDA"
^XMB(3.9,55,2,18391,0)="""RTN"",""IBCEP7"",125,0)"
^XMB(3.9,55,2,18392,0)=" . S DR="".03////""_$S($G(IBCAREUN)]""""&($G(IBCAREUN)'=""*N/A*""):IBCAREUN,1:"""")_"";.04////""_IBFORM_$S(IBDIV:"";.05////""_IBDIV,1:"""")_"";.06////""_IBITYP_"";"""
^XMB(3.9,55,2,18393,0)="""RTN"",""IBCEP7"",126,0)"
^XMB(3.9,55,2,18394,0)=" . S DR=DR_"".07""_$S(IBEFTFL=""E""!(IBEFTFL=""A""):""Billing Provider Secondary ID"",1:""VA Lab or Facility Secondary ID"")"
^XMB(3.9,55,2,18395,0)="""RTN"",""IBCEP7"",127,0)"
^XMB(3.9,55,2,18396,0)=" . I IBEFTFL=""A"" D"
^XMB(3.9,55,2,18397,0)="""RTN"",""IBCEP7"",128,0)"
^XMB(3.9,55,2,18398,0)=" .. S NEXTONE=$$NEXTONE()"
^XMB(3.9,55,2,18399,0)="""RTN"",""IBCEP7"",129,0)"
^XMB(3.9,55,2,18400,0)=" .. S ^TMP(""IB_EDITED_IDS"",$J,NEXTONE)=IBDA_U_""MOD""_U_355.92"
^XMB(3.9,55,2,18401,0)="""RTN"",""IBCEP7"",130,0)"
^XMB(3.9,55,2,18402,0)=" .. S ^TMP(""IB_EDITED_IDS"",$J,NEXTONE,""OLD0"")=^IBA(355.92,IBDA,0)"
^XMB(3.9,55,2,18403,0)="""RTN"",""IBCEP7"",131,0)"
^XMB(3.9,55,2,18404,0)=" . D ^DIE"
^XMB(3.9,55,2,18405,0)="""RTN"",""IBCEP7"",132,0)"
^XMB(3.9,55,2,18406,0)=" . I IBEFTFL=""A"" S ^TMP(""IB_EDITED_IDS"",$J,NEXTONE,0)=^IBA(355.92,IBDA,0)"
^XMB(3.9,55,2,18407,0)="""RTN"",""IBCEP7"",133,0)"
^XMB(3.9,55,2,18408,0)=" . I $TR($G(^IBA(355.92,IBDA,0)),U)'=Z0 S IBRBLD=1"
^XMB(3.9,55,2,18409,0)="""RTN"",""IBCEP7"",134,0)"
^XMB(3.9,55,2,18410,0)=" ;"
^XMB(3.9,55,2,18411,0)="""RTN"",""IBCEP7"",135,0)"
^XMB(3.9,55,2,18412,0)=" ; ""D""eleting 355.92 entry"
^XMB(3.9,55,2,18413,0)="""RTN"",""IBCEP7"",136,0)"
^XMB(3.9,55,2,18414,0)=" I IBFUNC=""D"" D"
^XMB(3.9,55,2,18415,0)="""RTN"",""IBCEP7"",137,0)"
^XMB(3.9,55,2,18416,0)=" . W !!,"" Insurance Co: "",$P($G(^DIC(36,+IBDA0,0)),U)"
^XMB(3.9,55,2,18417,0)="""RTN"",""IBCEP7"",138,0)"
^XMB(3.9,55,2,18418,0)=" . W !,""     Division: "",$$DIV($P(IBDA0,U,5))"
^XMB(3.9,55,2,18419,0)="""RTN"",""IBCEP7"",139,0)"
^XMB(3.9,55,2,18420,0)=" . W:$P(IBDA0,U,3)]"""" !,""    Care Unit: "",$$EXTERNAL^DILFD(355.92,.03,"""",$P(IBDA0,U,3))"
^XMB(3.9,55,2,18421,0)="""RTN"",""IBCEP7"",140,0)"
^XMB(3.9,55,2,18422,0)=" . W !,"" ID Qualifier: "",$$EXTERNAL^DILFD(355.92,.06,"""",$P(IBDA0,U,6))"
^XMB(3.9,55,2,18423,0)="""RTN"",""IBCEP7"",141,0)"
^XMB(3.9,55,2,18424,0)=" . W !,""    Form Type: "",$$EXTERNAL^DILFD(355.92,.04,"""",$P(IBDA0,U,4))"
^XMB(3.9,55,2,18425,0)="""RTN"",""IBCEP7"",142,0)"
^XMB(3.9,55,2,18426,0)=" . W !,""           ID: "",$P(IBDA0,U,7),!"
^XMB(3.9,55,2,18427,0)="""RTN"",""IBCEP7"",143,0)"
^XMB(3.9,55,2,18428,0)=" . S DIR(0)=""YA"",DIR(""A"")=""ARE YOU SURE YOU WANT TO DELETE THIS ID RECORD?: "",DIR(""B"")=""NO"" D ^DIR K DIR"
^XMB(3.9,55,2,18429,0)="""RTN"",""IBCEP7"",144,0)"
^XMB(3.9,55,2,18430,0)=" . S DIR(""A"")=""NOTHING DELETED - PRESS RETURN TO CONTINUE: """
^XMB(3.9,55,2,18431,0)="""RTN"",""IBCEP7"",145,0)"
^XMB(3.9,55,2,18432,0)=" . I Y=1 D"
^XMB(3.9,55,2,18433,0)="""RTN"",""IBCEP7"",146,0)"
^XMB(3.9,55,2,18434,0)=" .. S DIK=""^IBA(355.92,"",DA=IBDA"
^XMB(3.9,55,2,18435,0)="""RTN"",""IBCEP7"",147,0)"
^XMB(3.9,55,2,18436,0)=" .. D ^DIK"
^XMB(3.9,55,2,18437,0)="""RTN"",""IBCEP7"",148,0)"
^XMB(3.9,55,2,18438,0)=" .. I IBEFTFL=""A"" D"
^XMB(3.9,55,2,18439,0)="""RTN"",""IBCEP7"",149,0)"
^XMB(3.9,55,2,18440,0)=" ... N NEXTONE"
^XMB(3.9,55,2,18441,0)="""RTN"",""IBCEP7"",150,0)"
^XMB(3.9,55,2,18442,0)=" ... S NEXTONE=$$NEXTONE()"
^XMB(3.9,55,2,18443,0)="""RTN"",""IBCEP7"",151,0)"
^XMB(3.9,55,2,18444,0)=" ... S ^TMP(""IB_EDITED_IDS"",$J,NEXTONE)=IBDA_U_""DEL""_U_355.92"
^XMB(3.9,55,2,18445,0)="""RTN"",""IBCEP7"",152,0)"
^XMB(3.9,55,2,18446,0)=" ... S ^TMP(""IB_EDITED_IDS"",$J,NEXTONE,0)=IBDA0"
^XMB(3.9,55,2,18447,0)="""RTN"",""IBCEP7"",153,0)"
^XMB(3.9,55,2,18448,0)=" .. S DIR(""A"")=""ID DELETED - PRESS RETURN TO CONTINUE: "",IBRBLD=1"
^XMB(3.9,55,2,18449,0)="""RTN"",""IBCEP7"",154,0)"
^XMB(3.9,55,2,18450,0)=" .. S DIR(0)=""EA"" W ! D ^DIR K DIR"
^XMB(3.9,55,2,18451,0)="""RTN"",""IBCEP7"",155,0)"
^XMB(3.9,55,2,18452,0)=" ;"
^XMB(3.9,55,2,18453,0)="""RTN"",""IBCEP7"",156,0)"
^XMB(3.9,55,2,18454,0)=" Q IBRBLD"
^XMB(3.9,55,2,18455,0)="""RTN"",""IBCEP7"",157,0)"
^XMB(3.9,55,2,18456,0)=" ;"
^XMB(3.9,55,2,18457,0)="""RTN"",""IBCEP7"",158,0)"
^XMB(3.9,55,2,18458,0)="FACID(Y) ;"
^XMB(3.9,55,2,18459,0)="""RTN"",""IBCEP7"",159,0)"
^XMB(3.9,55,2,18460,0)=" N Z,Z1,Z2"
^XMB(3.9,55,2,18461,0)="""RTN"",""IBCEP7"",160,0)"
^XMB(3.9,55,2,18462,0)=" S Z=U_$P($G(^IBE(355.97,+Y,0)),U,3)_U,Z1=$$SUB2^IBCEF73(1),Z2=$$SUB2^IBCEF73(2)"
^XMB(3.9,55,2,18463,0)="""RTN"",""IBCEP7"",161,0)"
^XMB(3.9,55,2,18464,0)=" I Z1[Z!(Z2[Z) Q 1"
^XMB(3.9,55,2,18465,0)="""RTN"",""IBCEP7"",162,0)"
^XMB(3.9,55,2,18466,0)=" Q 0"
^XMB(3.9,55,2,18467,0)="""RTN"",""IBCEP7"",163,0)"
^XMB(3.9,55,2,18468,0)=" ;"
^XMB(3.9,55,2,18469,0)="""RTN"",""IBCEP7"",164,0)"
^XMB(3.9,55,2,18470,0)="ADD1 ;"
^XMB(3.9,55,2,18471,0)="""RTN"",""IBCEP7"",165,0)"
^XMB(3.9,55,2,18472,0)=" N IBFUNC,IBINS,IBDA,Z,DIR,X,Y,DTOUT,DUOUT,DP,IBPARAM,IBEFTFL,IBINS"
^XMB(3.9,55,2,18473,0)="""RTN"",""IBCEP7"",166,0)"
^XMB(3.9,55,2,18474,0)=" D FULL^VALM1"
^XMB(3.9,55,2,18475,0)="""RTN"",""IBCEP7"",167,0)"
^XMB(3.9,55,2,18476,0)=" ;"
^XMB(3.9,55,2,18477,0)="""RTN"",""IBCEP7"",168,0)"
^XMB(3.9,55,2,18478,0)=" S IBPARAM=$G(^TMP(""IBCE_PRVFAC_MAINT_INS"",$J))"
^XMB(3.9,55,2,18479,0)="""RTN"",""IBCEP7"",169,0)"
^XMB(3.9,55,2,18480,0)=" S IBEFTFL=$P(IBPARAM,U)  ; Electronic Form type flag"
^XMB(3.9,55,2,18481,0)="""RTN"",""IBCEP7"",170,0)"
^XMB(3.9,55,2,18482,0)=" S IBINS=+$P(IBPARAM,U,2)  ; Insurance co        ;"
^XMB(3.9,55,2,18483,0)="""RTN"",""IBCEP7"",171,0)"
^XMB(3.9,55,2,18484,0)=" ;"
^XMB(3.9,55,2,18485,0)="""RTN"",""IBCEP7"",172,0)"
^XMB(3.9,55,2,18486,0)=" S Z=$$ADDFAC^IBCEP7A(IBINS,IBEFTFL) I Z D INIT"
^XMB(3.9,55,2,18487,0)="""RTN"",""IBCEP7"",173,0)"
^XMB(3.9,55,2,18488,0)=" ;"
^XMB(3.9,55,2,18489,0)="""RTN"",""IBCEP7"",174,0)"
^XMB(3.9,55,2,18490,0)="ADD1Q S VALMBCK=""R"""
^XMB(3.9,55,2,18491,0)="""RTN"",""IBCEP7"",175,0)"
^XMB(3.9,55,2,18492,0)=" Q"
^XMB(3.9,55,2,18493,0)="""RTN"",""IBCEP7"",176,0)"
^XMB(3.9,55,2,18494,0)=" ;"
^XMB(3.9,55,2,18495,0)="""RTN"",""IBCEP7"",177,0)"
^XMB(3.9,55,2,18496,0)="DEL1 ;"
^XMB(3.9,55,2,18497,0)="""RTN"",""IBCEP7"",178,0)"
^XMB(3.9,55,2,18498,0)=" N IBFUNC,IBINS,IBDA,Z,DIR,X,Y,DTOUT,DUOUT,DP,IBPARAM,IBEFTDL,IBINS"
^XMB(3.9,55,2,18499,0)="""RTN"",""IBCEP7"",179,0)"
^XMB(3.9,55,2,18500,0)=" D FULL^VALM1"
^XMB(3.9,55,2,18501,0)="""RTN"",""IBCEP7"",180,0)"
^XMB(3.9,55,2,18502,0)=" ;       "
^XMB(3.9,55,2,18503,0)="""RTN"",""IBCEP7"",181,0)"
^XMB(3.9,55,2,18504,0)=" S IBPARAM=$G(^TMP(""IBCE_PRVFAC_MAINT_INS"",$J))"
^XMB(3.9,55,2,18505,0)="""RTN"",""IBCEP7"",182,0)"
^XMB(3.9,55,2,18506,0)=" S IBEFTFL=$P(IBPARAM,U)  ; Electronic Form type flag"
^XMB(3.9,55,2,18507,0)="""RTN"",""IBCEP7"",183,0)"
^XMB(3.9,55,2,18508,0)=" S IBINS=+$P(IBPARAM,U,2)  ; Insurance co"
^XMB(3.9,55,2,18509,0)="""RTN"",""IBCEP7"",184,0)"
^XMB(3.9,55,2,18510,0)=" ;"
^XMB(3.9,55,2,18511,0)="""RTN"",""IBCEP7"",185,0)"
^XMB(3.9,55,2,18512,0)=" S IBFUNC=""D"""
^XMB(3.9,55,2,18513,0)="""RTN"",""IBCEP7"",186,0)"
^XMB(3.9,55,2,18514,0)=" D SEL"
^XMB(3.9,55,2,18515,0)="""RTN"",""IBCEP7"",187,0)"
^XMB(3.9,55,2,18516,0)=" I $G(IBDA) S Z=$$EDITFAC(IBDA,IBFUNC,IBEFTFL) I Z D INIT"
^XMB(3.9,55,2,18517,0)="""RTN"",""IBCEP7"",188,0)"
^XMB(3.9,55,2,18518,0)=" ;"
^XMB(3.9,55,2,18519,0)="""RTN"",""IBCEP7"",189,0)"
^XMB(3.9,55,2,18520,0)="DEL1Q S VALMBCK=""R"""
^XMB(3.9,55,2,18521,0)="""RTN"",""IBCEP7"",190,0)"
^XMB(3.9,55,2,18522,0)=" Q"
^XMB(3.9,55,2,18523,0)="""RTN"",""IBCEP7"",191,0)"
^XMB(3.9,55,2,18524,0)=" ;"
^XMB(3.9,55,2,18525,0)="""RTN"",""IBCEP7"",192,0)"
^XMB(3.9,55,2,18526,0)=" ; Get the next number so that the edits can be replicated in order for other providers/insurance companies"
^XMB(3.9,55,2,18527,0)="""RTN"",""IBCEP7"",193,0)"
^XMB(3.9,55,2,18528,0)="NEXTONE() ;"
^XMB(3.9,55,2,18529,0)="""RTN"",""IBCEP7"",194,0)"
^XMB(3.9,55,2,18530,0)=" Q $O(^TMP(""IB_EDITED_IDS"",$J,""""),-1)+1"
^XMB(3.9,55,2,18531,0)="""RTN"",""IBCEP7A"")"
^XMB(3.9,55,2,18532,0)="0^53^B8080264^B3300559"
^XMB(3.9,55,2,18533,0)="""RTN"",""IBCEP7A"",1,0)"
^XMB(3.9,55,2,18534,0)="IBCEP7A ;ALB/TMP - Functions for fac level PROVIDER ID MAINT ;11-07-00"
^XMB(3.9,55,2,18535,0)="""RTN"",""IBCEP7A"",2,0)"
^XMB(3.9,55,2,18536,0)=" ;;2.0;INTEGRATED BILLING;**232,320**;21-MAR-94"
^XMB(3.9,55,2,18537,0)="""RTN"",""IBCEP7A"",3,0)"
^XMB(3.9,55,2,18538,0)=" ;"
^XMB(3.9,55,2,18539,0)="""RTN"",""IBCEP7A"",4,0)"
^XMB(3.9,55,2,18540,0)="IDNUM(IBIEN) ; Find site-default id # for id type"
^XMB(3.9,55,2,18541,0)="""RTN"",""IBCEP7A"",5,0)"
^XMB(3.9,55,2,18542,0)=" ; IBIEN = ien of prov ID type (file 355.97)"
^XMB(3.9,55,2,18543,0)="""RTN"",""IBCEP7A"",6,0)"
^XMB(3.9,55,2,18544,0)=" N IBID,Z0,Z1"
^XMB(3.9,55,2,18545,0)="""RTN"",""IBCEP7A"",7,0)"
^XMB(3.9,55,2,18546,0)=" S IBID="""""
^XMB(3.9,55,2,18547,0)="""RTN"",""IBCEP7A"",8,0)"
^XMB(3.9,55,2,18548,0)=" S Z0=$G(^IBE(355.97,IBIEN,0)),Z1=$G(^(1))"
^XMB(3.9,55,2,18549,0)="""RTN"",""IBCEP7A"",9,0)"
^XMB(3.9,55,2,18550,0)=" I $P(Z1,U,9) G IDNUMQ"
^XMB(3.9,55,2,18551,0)="""RTN"",""IBCEP7A"",10,0)"
^XMB(3.9,55,2,18552,0)=" I $P(Z0,U,4)'="""" S IBID=$P(Z0,U,4) G IDNUMQ"
^XMB(3.9,55,2,18553,0)="""RTN"",""IBCEP7A"",11,0)"
^XMB(3.9,55,2,18554,0)=" I $P(Z1,U,4) S IBID=$P($G(^IBE(350.9,1,1)),U,5)"
^XMB(3.9,55,2,18555,0)="""RTN"",""IBCEP7A"",12,0)"
^XMB(3.9,55,2,18556,0)=" ;"
^XMB(3.9,55,2,18557,0)="""RTN"",""IBCEP7A"",13,0)"
^XMB(3.9,55,2,18558,0)="IDNUMQ Q IBID"
^XMB(3.9,55,2,18559,0)="""RTN"",""IBCEP7A"",14,0)"
^XMB(3.9,55,2,18560,0)=" ;"
^XMB(3.9,55,2,18561,0)="""RTN"",""IBCEP7A"",15,0)"
^XMB(3.9,55,2,18562,0)="ADDFAC(IBINS,IBEFTFL) ; Add a new fac id for an ins co"
^XMB(3.9,55,2,18563,0)="""RTN"",""IBCEP7A"",16,0)"
^XMB(3.9,55,2,18564,0)=" N IB,IBDIV,IBY,IBOK,IBRBLD,IBITYP,IBFORM,DIC,DIR,X,Y,DTOUT,DUOUT,DLAYGO,DO,DD,Z,Z0,DIE,DIK,DA,IBCAREUN,DR,I"
^XMB(3.9,55,2,18565,0)="""RTN"",""IBCEP7A"",17,0)"
^XMB(3.9,55,2,18566,0)=" S IBRBLD=0,IBY=-1"
^XMB(3.9,55,2,18567,0)="""RTN"",""IBCEP7A"",18,0)"
^XMB(3.9,55,2,18568,0)=" S IBOK=$$FACFLDS^IBCEP7C("""",IBINS,.IBITYP,.IBFORM,.IBDIV,""A"",.IBCAREUN,IBEFTFL)"
^XMB(3.9,55,2,18569,0)="""RTN"",""IBCEP7A"",19,0)"
^XMB(3.9,55,2,18570,0)=" I 'IBOK G ADDFQ"
^XMB(3.9,55,2,18571,0)="""RTN"",""IBCEP7A"",20,0)"
^XMB(3.9,55,2,18572,0)=" ;"
^XMB(3.9,55,2,18573,0)="""RTN"",""IBCEP7A"",21,0)"
^XMB(3.9,55,2,18574,0)=" S X=IBINS,DIC(0)=""L"",DIC=""^IBA(355.92,"""
^XMB(3.9,55,2,18575,0)="""RTN"",""IBCEP7A"",22,0)"
^XMB(3.9,55,2,18576,0)=" S DIC(""DR"")="".04////""_IBFORM_$S($G(IBDIV):"";.05////""_IBDIV,1:"""")_"";.06////""_IBITYP_$S($G(IBCAREUN)]""""&($G(IBCAREUN)'=""*N/A*""):"";.03////""_IBCAREUN,1:"""")_"";.08////""_$G(IBEFTFL)"
^XMB(3.9,55,2,18577,0)="""RTN"",""IBCEP7A"",23,0)"
^XMB(3.9,55,2,18578,0)=" S DLAYGO=355.92"
^XMB(3.9,55,2,18579,0)="""RTN"",""IBCEP7A"",24,0)"
^XMB(3.9,55,2,18580,0)=" D FILE^DICN"
^XMB(3.9,55,2,18581,0)="""RTN"",""IBCEP7A"",25,0)"
^XMB(3.9,55,2,18582,0)=" K DIC,DLAYGO,DO,DD"
^XMB(3.9,55,2,18583,0)="""RTN"",""IBCEP7A"",26,0)"
^XMB(3.9,55,2,18584,0)=" S IBY=+Y"
^XMB(3.9,55,2,18585,0)="""RTN"",""IBCEP7A"",27,0)"
^XMB(3.9,55,2,18586,0)=" ;"
^XMB(3.9,55,2,18587,0)="""RTN"",""IBCEP7A"",28,0)"
^XMB(3.9,55,2,18588,0)=" ; Below is a very convoluted way to get the proper prompt on the screen.  Tried using DIC(""DR"") above but"
^XMB(3.9,55,2,18589,0)="""RTN"",""IBCEP7A"",29,0)"
^XMB(3.9,55,2,18590,0)=" ; the file name was being added to the prompt."
^XMB(3.9,55,2,18591,0)="""RTN"",""IBCEP7A"",30,0)"
^XMB(3.9,55,2,18592,0)=" S DIE=355.92"
^XMB(3.9,55,2,18593,0)="""RTN"",""IBCEP7A"",31,0)"
^XMB(3.9,55,2,18594,0)=" S DA=IBY"
^XMB(3.9,55,2,18595,0)="""RTN"",""IBCEP7A"",32,0)"
^XMB(3.9,55,2,18596,0)=" F I=1:1:3 L +^IBA(355.92,DA):5 Q:$T"
^XMB(3.9,55,2,18597,0)="""RTN"",""IBCEP7A"",33,0)"
^XMB(3.9,55,2,18598,0)=" E  G ADDFQ"
^XMB(3.9,55,2,18599,0)="""RTN"",""IBCEP7A"",34,0)"
^XMB(3.9,55,2,18600,0)=" S DR="".07""_$S(IBEFTFL=""E""!(IBEFTFL=""A""):""Billing Provider Secondary ID"",1:""VA Lab or Facility Secondary ID"")"
^XMB(3.9,55,2,18601,0)="""RTN"",""IBCEP7A"",35,0)"
^XMB(3.9,55,2,18602,0)=" D ^DIE"
^XMB(3.9,55,2,18603,0)="""RTN"",""IBCEP7A"",36,0)"
^XMB(3.9,55,2,18604,0)=" I $G(DTOUT)!$G(DUOUT) D"
^XMB(3.9,55,2,18605,0)="""RTN"",""IBCEP7A"",37,0)"
^XMB(3.9,55,2,18606,0)=" . S DIK=355.92"
^XMB(3.9,55,2,18607,0)="""RTN"",""IBCEP7A"",38,0)"
^XMB(3.9,55,2,18608,0)=" . S DA=+IBY"
^XMB(3.9,55,2,18609,0)="""RTN"",""IBCEP7A"",39,0)"
^XMB(3.9,55,2,18610,0)=" . S IBY=0"
^XMB(3.9,55,2,18611,0)="""RTN"",""IBCEP7A"",40,0)"
^XMB(3.9,55,2,18612,0)=" . D ^DIK"
^XMB(3.9,55,2,18613,0)="""RTN"",""IBCEP7A"",41,0)"
^XMB(3.9,55,2,18614,0)=" L -^IBA(355.92,DA)"
^XMB(3.9,55,2,18615,0)="""RTN"",""IBCEP7A"",42,0)"
^XMB(3.9,55,2,18616,0)=" ;"
^XMB(3.9,55,2,18617,0)="""RTN"",""IBCEP7A"",43,0)"
^XMB(3.9,55,2,18618,0)="ADDFQ I IBY>0,$P($G(^IBA(355.92,IBY,0)),U,7)="""" S DIK=""^IBA(355.92,"",DA=IBY D ^DIK S IBY=-1"
^XMB(3.9,55,2,18619,0)="""RTN"",""IBCEP7A"",44,0)"
^XMB(3.9,55,2,18620,0)=" I IBY'>0 S DIR(""A"",+$O(DIR(""A"","" ""),-1)+1)=""A NEW ID WAS NOT ADDED"",IBRBLD=0"
^XMB(3.9,55,2,18621,0)="""RTN"",""IBCEP7A"",45,0)"
^XMB(3.9,55,2,18622,0)=" I IBY>0 S DIR(""A"",1)=""A NEW ID WAS ADDED SUCCESSFULLY"",IBRBLD=1 D"
^XMB(3.9,55,2,18623,0)="""RTN"",""IBCEP7A"",46,0)"
^XMB(3.9,55,2,18624,0)=" . Q:IBEFTFL'=""A"""
^XMB(3.9,55,2,18625,0)="""RTN"",""IBCEP7A"",47,0)"
^XMB(3.9,55,2,18626,0)=" . N NEXTONE"
^XMB(3.9,55,2,18627,0)="""RTN"",""IBCEP7A"",48,0)"
^XMB(3.9,55,2,18628,0)=" . S NEXTONE=$$NEXTONE^IBCEP7()"
^XMB(3.9,55,2,18629,0)="""RTN"",""IBCEP7A"",49,0)"
^XMB(3.9,55,2,18630,0)=" . S ^TMP(""IB_EDITED_IDS"",$J,NEXTONE)=IBY_U_""ADD""_U_355.92"
^XMB(3.9,55,2,18631,0)="""RTN"",""IBCEP7A"",50,0)"
^XMB(3.9,55,2,18632,0)=" . S ^TMP(""IB_EDITED_IDS"",$J,NEXTONE,0)=^IBA(355.92,IBY,0)"
^XMB(3.9,55,2,18633,0)="""RTN"",""IBCEP7A"",51,0)"
^XMB(3.9,55,2,18634,0)=" S DIR(0)=""EA"",DIR(""A"")=""PRESS RETURN TO CONTINUE: "" W ! D ^DIR K DIR"
^XMB(3.9,55,2,18635,0)="""RTN"",""IBCEP7A"",52,0)"
^XMB(3.9,55,2,18636,0)=" Q IBRBLD"
^XMB(3.9,55,2,18637,0)="""RTN"",""IBCEP7A"",53,0)"
^XMB(3.9,55,2,18638,0)=" ;       "
^XMB(3.9,55,2,18639,0)="""RTN"",""IBCEP7A"",54,0)"
^XMB(3.9,55,2,18640,0)="ADDID ;"
^XMB(3.9,55,2,18641,0)="""RTN"",""IBCEP7A"",55,0)"
^XMB(3.9,55,2,18642,0)=" N IBSAVTMP"
^XMB(3.9,55,2,18643,0)="""RTN"",""IBCEP7A"",56,0)"
^XMB(3.9,55,2,18644,0)=" S IBSAVTMP=$G(^TMP(""IBCE_PRVFAC_MAINT_INS"",$J))"
^XMB(3.9,55,2,18645,0)="""RTN"",""IBCEP7A"",57,0)"
^XMB(3.9,55,2,18646,0)=" D FACID^IBCEP2B(+IBCNS,""A"")"
^XMB(3.9,55,2,18647,0)="""RTN"",""IBCEP7A"",58,0)"
^XMB(3.9,55,2,18648,0)=" S ^TMP(""IBCE_PRVFAC_MAINT_INS"",$J)=$G(IBSAVTMP)"
^XMB(3.9,55,2,18649,0)="""RTN"",""IBCEP7A"",59,0)"
^XMB(3.9,55,2,18650,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,18651,0)="""RTN"",""IBCEP7A"",60,0)"
^XMB(3.9,55,2,18652,0)=" Q"
^XMB(3.9,55,2,18653,0)="""RTN"",""IBCEP7A"",61,0)"
^XMB(3.9,55,2,18654,0)=" ;"
^XMB(3.9,55,2,18655,0)="""RTN"",""IBCEP7A"",62,0)"
^XMB(3.9,55,2,18656,0)="IDPARAM ;"
^XMB(3.9,55,2,18657,0)="""RTN"",""IBCEP7A"",63,0)"
^XMB(3.9,55,2,18658,0)=" D FULL^VALM1"
^XMB(3.9,55,2,18659,0)="""RTN"",""IBCEP7A"",64,0)"
^XMB(3.9,55,2,18660,0)=" D EN^IBCEPB"
^XMB(3.9,55,2,18661,0)="""RTN"",""IBCEP7A"",65,0)"
^XMB(3.9,55,2,18662,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,18663,0)="""RTN"",""IBCEP7A"",66,0)"
^XMB(3.9,55,2,18664,0)=" Q"
^XMB(3.9,55,2,18665,0)="""RTN"",""IBCEP7A"",67,0)"
^XMB(3.9,55,2,18666,0)=" ;"
^XMB(3.9,55,2,18667,0)="""RTN"",""IBCEP7A"",68,0)"
^XMB(3.9,55,2,18668,0)="VALFIDS ;"
^XMB(3.9,55,2,18669,0)="""RTN"",""IBCEP7A"",69,0)"
^XMB(3.9,55,2,18670,0)=" N IBSAVTMP"
^XMB(3.9,55,2,18671,0)="""RTN"",""IBCEP7A"",70,0)"
^XMB(3.9,55,2,18672,0)=" S IBSAVTMP=$G(^TMP(""IBCE_PRVFAC_MAINT_INS"",$J))"
^XMB(3.9,55,2,18673,0)="""RTN"",""IBCEP7A"",71,0)"
^XMB(3.9,55,2,18674,0)=" D FACID^IBCEP2B(+IBCNS,""LF"")"
^XMB(3.9,55,2,18675,0)="""RTN"",""IBCEP7A"",72,0)"
^XMB(3.9,55,2,18676,0)=" S ^TMP(""IBCE_PRVFAC_MAINT_INS"",$J)=$G(IBSAVTMP)"
^XMB(3.9,55,2,18677,0)="""RTN"",""IBCEP7A"",73,0)"
^XMB(3.9,55,2,18678,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,18679,0)="""RTN"",""IBCEP7A"",74,0)"
^XMB(3.9,55,2,18680,0)=" Q"
^XMB(3.9,55,2,18681,0)="""RTN"",""IBCEP7B"")"
^XMB(3.9,55,2,18682,0)="0^54^B7086017"
^XMB(3.9,55,2,18683,0)="""RTN"",""IBCEP7B"",1,0)"
^XMB(3.9,55,2,18684,0)="IBCEP7B ;ALB/TMP - Functions for PROVIDER ID ;1-16-05"
^XMB(3.9,55,2,18685,0)="""RTN"",""IBCEP7B"",2,0)"
^XMB(3.9,55,2,18686,0)=" ;;2.0;INTEGRATED BILLING;**320**;16-JAN-2005"
^XMB(3.9,55,2,18687,0)="""RTN"",""IBCEP7B"",3,0)"
^XMB(3.9,55,2,18688,0)=" Q"
^XMB(3.9,55,2,18689,0)="""RTN"",""IBCEP7B"",4,0)"
^XMB(3.9,55,2,18690,0)=" ;"
^XMB(3.9,55,2,18691,0)="""RTN"",""IBCEP7B"",5,0)"
^XMB(3.9,55,2,18692,0)="GETID(CLAIM,COB) ;"
^XMB(3.9,55,2,18693,0)="""RTN"",""IBCEP7B"",6,0)"
^XMB(3.9,55,2,18694,0)=" N DIR,X,Y,DTOUT,DUOUT,WHICH,ID,IBMAIN,IBDIV,DIC,IBINS,DA,DIC,Z,Z0,IBCU,OK,IBCU"
^XMB(3.9,55,2,18695,0)="""RTN"",""IBCEP7B"",7,0)"
^XMB(3.9,55,2,18696,0)=" ;"
^XMB(3.9,55,2,18697,0)="""RTN"",""IBCEP7B"",8,0)"
^XMB(3.9,55,2,18698,0)=" S ID="""""
^XMB(3.9,55,2,18699,0)="""RTN"",""IBCEP7B"",9,0)"
^XMB(3.9,55,2,18700,0)=" S IBINS=$P($G(^DGCR(399,CLAIM,""I""_COB)),U)"
^XMB(3.9,55,2,18701,0)="""RTN"",""IBCEP7B"",10,0)"
^XMB(3.9,55,2,18702,0)=" I IBINS="""" Q ID"
^XMB(3.9,55,2,18703,0)="""RTN"",""IBCEP7B"",11,0)"
^XMB(3.9,55,2,18704,0)=" ;"
^XMB(3.9,55,2,18705,0)="""RTN"",""IBCEP7B"",12,0)"
^XMB(3.9,55,2,18706,0)=" ; Make sure they have careunits IDS defined for this insurance company before we bother asking"
^XMB(3.9,55,2,18707,0)="""RTN"",""IBCEP7B"",13,0)"
^XMB(3.9,55,2,18708,0)=" S OK=0"
^XMB(3.9,55,2,18709,0)="""RTN"",""IBCEP7B"",14,0)"
^XMB(3.9,55,2,18710,0)=" S Z=0 F  S Z=$O(^IBA(355.92,""B"",IBINS,Z)) Q:'Z  D  Q:OK"
^XMB(3.9,55,2,18711,0)="""RTN"",""IBCEP7B"",15,0)"
^XMB(3.9,55,2,18712,0)=" . S Z0=$G(^IBA(355.92,Z,0))"
^XMB(3.9,55,2,18713,0)="""RTN"",""IBCEP7B"",16,0)"
^XMB(3.9,55,2,18714,0)=" . Q:$P(Z0,U,8)'=""E"""
^XMB(3.9,55,2,18715,0)="""RTN"",""IBCEP7B"",17,0)"
^XMB(3.9,55,2,18716,0)=" . Q:$P(Z0,U,3)="""""
^XMB(3.9,55,2,18717,0)="""RTN"",""IBCEP7B"",18,0)"
^XMB(3.9,55,2,18718,0)=" . S OK=1"
^XMB(3.9,55,2,18719,0)="""RTN"",""IBCEP7B"",19,0)"
^XMB(3.9,55,2,18720,0)=" I 'OK Q ID"
^XMB(3.9,55,2,18721,0)="""RTN"",""IBCEP7B"",20,0)"
^XMB(3.9,55,2,18722,0)=" ;"
^XMB(3.9,55,2,18723,0)="""RTN"",""IBCEP7B"",21,0)"
^XMB(3.9,55,2,18724,0)=" S WHICH=$S(COB=1:""Primary"",COB=2:""Secondary"",1:""Tertiary"")"
^XMB(3.9,55,2,18725,0)="""RTN"",""IBCEP7B"",22,0)"
^XMB(3.9,55,2,18726,0)=" S DIR(""A"")=""Define ""_WHICH_"" Payer ID by Care Unit? """
^XMB(3.9,55,2,18727,0)="""RTN"",""IBCEP7B"",23,0)"
^XMB(3.9,55,2,18728,0)=" S DIR(""B"")=""No"""
^XMB(3.9,55,2,18729,0)="""RTN"",""IBCEP7B"",24,0)"
^XMB(3.9,55,2,18730,0)=" S DIR(0)=""YA"""
^XMB(3.9,55,2,18731,0)="""RTN"",""IBCEP7B"",25,0)"
^XMB(3.9,55,2,18732,0)=" S DIR(""?"",1)=""Enter No to select ""_WHICH_"" Provider # by Division."""
^XMB(3.9,55,2,18733,0)="""RTN"",""IBCEP7B"",26,0)"
^XMB(3.9,55,2,18734,0)=" S DIR(""?"")=""Enter Yes to select ""_WHICH_"" Provider # for a specific Care Unit."""
^XMB(3.9,55,2,18735,0)="""RTN"",""IBCEP7B"",27,0)"
^XMB(3.9,55,2,18736,0)=" D ^DIR"
^XMB(3.9,55,2,18737,0)="""RTN"",""IBCEP7B"",28,0)"
^XMB(3.9,55,2,18738,0)=" I Y'=1 Q ID"
^XMB(3.9,55,2,18739,0)="""RTN"",""IBCEP7B"",29,0)"
^XMB(3.9,55,2,18740,0)=" ;"
^XMB(3.9,55,2,18741,0)="""RTN"",""IBCEP7B"",30,0)"
^XMB(3.9,55,2,18742,0)=" ; Get the Division"
^XMB(3.9,55,2,18743,0)="""RTN"",""IBCEP7B"",31,0)"
^XMB(3.9,55,2,18744,0)=" S IB=$$MAIN^IBCEP2B()"
^XMB(3.9,55,2,18745,0)="""RTN"",""IBCEP7B"",32,0)"
^XMB(3.9,55,2,18746,0)=" S IBDIV=$$EXTERNAL^DILFD(399,.22,"""",$P($G(^DGCR(399,CLAIM,0)),U,22))"
^XMB(3.9,55,2,18747,0)="""RTN"",""IBCEP7B"",33,0)"
^XMB(3.9,55,2,18748,0)=" S DIR(""A"")=""Division: "",DIR(0)=""355.92,.05AOr"""
^XMB(3.9,55,2,18749,0)="""RTN"",""IBCEP7B"",34,0)"
^XMB(3.9,55,2,18750,0)=" ; Default Division"
^XMB(3.9,55,2,18751,0)="""RTN"",""IBCEP7B"",35,0)"
^XMB(3.9,55,2,18752,0)=" S DIR(""B"")=$S(IBDIV]"""":IBDIV,1:IBMAIN)"
^XMB(3.9,55,2,18753,0)="""RTN"",""IBCEP7B"",36,0)"
^XMB(3.9,55,2,18754,0)=" D ^DIR K DIR"
^XMB(3.9,55,2,18755,0)="""RTN"",""IBCEP7B"",37,0)"
^XMB(3.9,55,2,18756,0)=" S IBDIV=+$S(Y>0:+Y,1:0)"
^XMB(3.9,55,2,18757,0)="""RTN"",""IBCEP7B"",38,0)"
^XMB(3.9,55,2,18758,0)=" I Y<0 Q ID"
^XMB(3.9,55,2,18759,0)="""RTN"",""IBCEP7B"",39,0)"
^XMB(3.9,55,2,18760,0)=" ;"
^XMB(3.9,55,2,18761,0)="""RTN"",""IBCEP7B"",40,0)"
^XMB(3.9,55,2,18762,0)=" ; Get the Care Unit"
^XMB(3.9,55,2,18763,0)="""RTN"",""IBCEP7B"",41,0)"
^XMB(3.9,55,2,18764,0)=" S DIC(""A"")=""Care Unit: """
^XMB(3.9,55,2,18765,0)="""RTN"",""IBCEP7B"",42,0)"
^XMB(3.9,55,2,18766,0)=" S DIC(""W"")=""W """"   """",$P(^(0),U,2)"""
^XMB(3.9,55,2,18767,0)="""RTN"",""IBCEP7B"",43,0)"
^XMB(3.9,55,2,18768,0)=" S DIC=355.95,DIC(""S"")=""I $P(^(0),U,3)=+$G(IBINS),$P(^(0),U,4)=+$G(IBDIV)"",DIC(0)=""AEMQ"""
^XMB(3.9,55,2,18769,0)="""RTN"",""IBCEP7B"",44,0)"
^XMB(3.9,55,2,18770,0)=" D ^DIC"
^XMB(3.9,55,2,18771,0)="""RTN"",""IBCEP7B"",45,0)"
^XMB(3.9,55,2,18772,0)=" I Y<0 Q ID"
^XMB(3.9,55,2,18773,0)="""RTN"",""IBCEP7B"",46,0)"
^XMB(3.9,55,2,18774,0)=" S IBCU=+Y"
^XMB(3.9,55,2,18775,0)="""RTN"",""IBCEP7B"",47,0)"
^XMB(3.9,55,2,18776,0)=" ;"
^XMB(3.9,55,2,18777,0)="""RTN"",""IBCEP7B"",48,0)"
^XMB(3.9,55,2,18778,0)=" ; Compile the appropriate list of IDs"
^XMB(3.9,55,2,18779,0)="""RTN"",""IBCEP7B"",49,0)"
^XMB(3.9,55,2,18780,0)=" S Z=0 F  S Z=$O(^IBA(355.92,""B"",IBINS,Z)) Q:'Z  D  Q:ID]"""""
^XMB(3.9,55,2,18781,0)="""RTN"",""IBCEP7B"",50,0)"
^XMB(3.9,55,2,18782,0)=" . S Z0=$G(^IBA(355.92,Z,0))"
^XMB(3.9,55,2,18783,0)="""RTN"",""IBCEP7B"",51,0)"
^XMB(3.9,55,2,18784,0)=" . Q:$P(Z0,U,8)'=""E"""
^XMB(3.9,55,2,18785,0)="""RTN"",""IBCEP7B"",52,0)"
^XMB(3.9,55,2,18786,0)=" . Q:$P(Z0,U,3)'=IBCU"
^XMB(3.9,55,2,18787,0)="""RTN"",""IBCEP7B"",53,0)"
^XMB(3.9,55,2,18788,0)=" . S ID=$P(Z0,U,7)_U_$P(Z0,U,6)"
^XMB(3.9,55,2,18789,0)="""RTN"",""IBCEP7B"",54,0)"
^XMB(3.9,55,2,18790,0)=" Q ID"
^XMB(3.9,55,2,18791,0)="""RTN"",""IBCEP7B"",55,0)"
^XMB(3.9,55,2,18792,0)=" ;"
^XMB(3.9,55,2,18793,0)="""RTN"",""IBCEP7B"",56,0)"
^XMB(3.9,55,2,18794,0)=" ; See if the insurance company flag is set to send the ATT/REND ID as the Billing Provider"
^XMB(3.9,55,2,18795,0)="""RTN"",""IBCEP7B"",57,0)"
^XMB(3.9,55,2,18796,0)="ATTREND(CLAIM,COB) ;"
^XMB(3.9,55,2,18797,0)="""RTN"",""IBCEP7B"",58,0)"
^XMB(3.9,55,2,18798,0)=" N ID,IBINS"
^XMB(3.9,55,2,18799,0)="""RTN"",""IBCEP7B"",59,0)"
^XMB(3.9,55,2,18800,0)=" S ID="""""
^XMB(3.9,55,2,18801,0)="""RTN"",""IBCEP7B"",60,0)"
^XMB(3.9,55,2,18802,0)=" S IBINS=$P($G(^DGCR(399,CLAIM,""I""_COB)),U)"
^XMB(3.9,55,2,18803,0)="""RTN"",""IBCEP7B"",61,0)"
^XMB(3.9,55,2,18804,0)=" I IBINS="""" Q 0"
^XMB(3.9,55,2,18805,0)="""RTN"",""IBCEP7B"",62,0)"
^XMB(3.9,55,2,18806,0)=" ;"
^XMB(3.9,55,2,18807,0)="""RTN"",""IBCEP7B"",63,0)"
^XMB(3.9,55,2,18808,0)=" I $$FT^IBCEF(CLAIM)=2,$$GET1^DIQ(36,IBINS,4.06,""I"") Q 1   ; hcfa"
^XMB(3.9,55,2,18809,0)="""RTN"",""IBCEP7B"",64,0)"
^XMB(3.9,55,2,18810,0)=" I $$FT^IBCEF(CLAIM)=3,$$GET1^DIQ(36,IBINS,4.08,""I"") Q 1   ; ub"
^XMB(3.9,55,2,18811,0)="""RTN"",""IBCEP7B"",65,0)"
^XMB(3.9,55,2,18812,0)=" Q 0"
^XMB(3.9,55,2,18813,0)="""RTN"",""IBCEP7B"",66,0)"
^XMB(3.9,55,2,18814,0)=" ;"
^XMB(3.9,55,2,18815,0)="""RTN"",""IBCEP7B"",67,0)"
^XMB(3.9,55,2,18816,0)=" ; Get a list of the plan types that supress Billing Provider Secondary IDs for this  Insurance Co"
^XMB(3.9,55,2,18817,0)="""RTN"",""IBCEP7B"",68,0)"
^XMB(3.9,55,2,18818,0)=" ; and see if the current plan type is one of them."
^XMB(3.9,55,2,18819,0)="""RTN"",""IBCEP7B"",69,0)"
^XMB(3.9,55,2,18820,0)="SUPPPT(CLAIM,COB) ;"
^XMB(3.9,55,2,18821,0)="""RTN"",""IBCEP7B"",70,0)"
^XMB(3.9,55,2,18822,0)=" N IBINS,SUPPFL"
^XMB(3.9,55,2,18823,0)="""RTN"",""IBCEP7B"",71,0)"
^XMB(3.9,55,2,18824,0)=" S SUPPFL=0"
^XMB(3.9,55,2,18825,0)="""RTN"",""IBCEP7B"",72,0)"
^XMB(3.9,55,2,18826,0)=" S IBINS=$P($G(^DGCR(399,CLAIM,""I""_COB)),U)"
^XMB(3.9,55,2,18827,0)="""RTN"",""IBCEP7B"",73,0)"
^XMB(3.9,55,2,18828,0)=" I IBINS="""" Q SUPPFL"
^XMB(3.9,55,2,18829,0)="""RTN"",""IBCEP7B"",74,0)"
^XMB(3.9,55,2,18830,0)=" ;"
^XMB(3.9,55,2,18831,0)="""RTN"",""IBCEP7B"",75,0)"
^XMB(3.9,55,2,18832,0)=" I $D(^DIC(36,IBINS,13)) D"
^XMB(3.9,55,2,18833,0)="""RTN"",""IBCEP7B"",76,0)"
^XMB(3.9,55,2,18834,0)=" . N PLAN,PLANTYPE"
^XMB(3.9,55,2,18835,0)="""RTN"",""IBCEP7B"",77,0)"
^XMB(3.9,55,2,18836,0)=" . S PLAN=$P($G(^DGCR(399,CLAIM,""I""_COB)),U,18) Q:'PLAN"
^XMB(3.9,55,2,18837,0)="""RTN"",""IBCEP7B"",78,0)"
^XMB(3.9,55,2,18838,0)=" . S PLANTYPE=$P($G(^IBA(355.3,PLAN,0)),U,15) Q:PLANTYPE="""""
^XMB(3.9,55,2,18839,0)="""RTN"",""IBCEP7B"",79,0)"
^XMB(3.9,55,2,18840,0)=" . Q:'$D(^DIC(36,IBINS,13,""B"",PLANTYPE))"
^XMB(3.9,55,2,18841,0)="""RTN"",""IBCEP7B"",80,0)"
^XMB(3.9,55,2,18842,0)=" . S SUPPFL=1"
^XMB(3.9,55,2,18843,0)="""RTN"",""IBCEP7B"",81,0)"
^XMB(3.9,55,2,18844,0)=" Q SUPPFL"
^XMB(3.9,55,2,18845,0)="""RTN"",""IBCEP7C"")"
^XMB(3.9,55,2,18846,0)="0^55^B59203324"
^XMB(3.9,55,2,18847,0)="""RTN"",""IBCEP7C"",1,0)"
^XMB(3.9,55,2,18848,0)="IBCEP7C ;ALB/TMP - Functions for fac level PROVIDER ID MAINT ;11-07-00"
^XMB(3.9,55,2,18849,0)="""RTN"",""IBCEP7C"",2,0)"
^XMB(3.9,55,2,18850,0)=" ;;2.0;INTEGRATED BILLING;**137,232,320**;21-MAR-94"
^XMB(3.9,55,2,18851,0)="""RTN"",""IBCEP7C"",3,0)"
^XMB(3.9,55,2,18852,0)=" ;"
^XMB(3.9,55,2,18853,0)="""RTN"",""IBCEP7C"",4,0)"
^XMB(3.9,55,2,18854,0)=" G AWAY"
^XMB(3.9,55,2,18855,0)="""RTN"",""IBCEP7C"",5,0)"
^XMB(3.9,55,2,18856,0)="AWAY Q"
^XMB(3.9,55,2,18857,0)="""RTN"",""IBCEP7C"",6,0)"
^XMB(3.9,55,2,18858,0)=" ;"
^XMB(3.9,55,2,18859,0)="""RTN"",""IBCEP7C"",7,0)"
^XMB(3.9,55,2,18860,0)=" ; IBDA - IEN for file 355.92"
^XMB(3.9,55,2,18861,0)="""RTN"",""IBCEP7C"",8,0)"
^XMB(3.9,55,2,18862,0)=" ; IBFUNC = ""A""dd or ""E""dit"
^XMB(3.9,55,2,18863,0)="""RTN"",""IBCEP7C"",9,0)"
^XMB(3.9,55,2,18864,0)="FACFLDS(IBDA,IBINS,IBITYP,IBFORM,IBDIV,IBFUNC,IBCAREUN,IBEFTFL) ; Chk for dups on fac id fld combos"
^XMB(3.9,55,2,18865,0)="""RTN"",""IBCEP7C"",10,0)"
^XMB(3.9,55,2,18866,0)=" ;"
^XMB(3.9,55,2,18867,0)="""RTN"",""IBCEP7C"",11,0)"
^XMB(3.9,55,2,18868,0)=" N IB,IBOK,DIC,DIR,X,Y,DTOUT,DUOUT,Z,Z0,DIE,DA,IBMAIN,IBQUIT,IBPARAM,IBCUF,IBDA0,IBCNTADD,I,IBLIMIT"
^XMB(3.9,55,2,18869,0)="""RTN"",""IBCEP7C"",12,0)"
^XMB(3.9,55,2,18870,0)=" ;"
^XMB(3.9,55,2,18871,0)="""RTN"",""IBCEP7C"",13,0)"
^XMB(3.9,55,2,18872,0)=" S IBOK=0,IBDA0="""""
^XMB(3.9,55,2,18873,0)="""RTN"",""IBCEP7C"",14,0)"
^XMB(3.9,55,2,18874,0)=" I $G(IBDA) S IBDA0=$G(^IBA(355.92,IBDA,0))"
^XMB(3.9,55,2,18875,0)="""RTN"",""IBCEP7C"",15,0)"
^XMB(3.9,55,2,18876,0)=" S IBPARAM=$G(^TMP(""IBCE_PRVFAC_MAINT_INS"",$J))"
^XMB(3.9,55,2,18877,0)="""RTN"",""IBCEP7C"",16,0)"
^XMB(3.9,55,2,18878,0)=" S IBCUF=$S($P(IBDA0,U,3)]"""":1,1:0)  ; Care Unit Flag"
^XMB(3.9,55,2,18879,0)="""RTN"",""IBCEP7C"",17,0)"
^XMB(3.9,55,2,18880,0)=" ;"
^XMB(3.9,55,2,18881,0)="""RTN"",""IBCEP7C"",18,0)"
^XMB(3.9,55,2,18882,0)=" I IBEFTFL=""E"",IBFUNC=""A"" D  G:$D(DTOUT)!$D(DUOUT) FLDSQ"
^XMB(3.9,55,2,18883,0)="""RTN"",""IBCEP7C"",19,0)"
^XMB(3.9,55,2,18884,0)=" . K DIR"
^XMB(3.9,55,2,18885,0)="""RTN"",""IBCEP7C"",20,0)"
^XMB(3.9,55,2,18886,0)=" . S DIR(""A"")=""Define Billing Provider Secondary IDs by Care Units? """
^XMB(3.9,55,2,18887,0)="""RTN"",""IBCEP7C"",21,0)"
^XMB(3.9,55,2,18888,0)=" . S DIR(""B"")=""No"""
^XMB(3.9,55,2,18889,0)="""RTN"",""IBCEP7C"",22,0)"
^XMB(3.9,55,2,18890,0)=" . S DIR(0)=""YAO"""
^XMB(3.9,55,2,18891,0)="""RTN"",""IBCEP7C"",23,0)"
^XMB(3.9,55,2,18892,0)=" . S DIR(""?"",1)=""Enter No to define a Billing Provider Secondary ID for the Division."""
^XMB(3.9,55,2,18893,0)="""RTN"",""IBCEP7C"",24,0)"
^XMB(3.9,55,2,18894,0)=" . S DIR(""?"",2)=""Enter Yes to define a Billing Provider Secondary ID for a specific Care Unit."""
^XMB(3.9,55,2,18895,0)="""RTN"",""IBCEP7C"",25,0)"
^XMB(3.9,55,2,18896,0)=" . S DIR(""?"",3)=""If no Care Unit is entered on Billing Screen 3, the Billing Provider"""
^XMB(3.9,55,2,18897,0)="""RTN"",""IBCEP7C"",26,0)"
^XMB(3.9,55,2,18898,0)=" . S DIR(""?"")=""Secondary ID defined for the Division will be transmitted in the claim."""
^XMB(3.9,55,2,18899,0)="""RTN"",""IBCEP7C"",27,0)"
^XMB(3.9,55,2,18900,0)=" . D ^DIR"
^XMB(3.9,55,2,18901,0)="""RTN"",""IBCEP7C"",28,0)"
^XMB(3.9,55,2,18902,0)=" . S IBCUF=$G(Y)  ; Care Unit Flag"
^XMB(3.9,55,2,18903,0)="""RTN"",""IBCEP7C"",29,0)"
^XMB(3.9,55,2,18904,0)=" ;"
^XMB(3.9,55,2,18905,0)="""RTN"",""IBCEP7C"",30,0)"
^XMB(3.9,55,2,18906,0)=" ; Get the Division"
^XMB(3.9,55,2,18907,0)="""RTN"",""IBCEP7C"",31,0)"
^XMB(3.9,55,2,18908,0)=" S IBMAIN=$$MAIN^IBCEP2B()"
^XMB(3.9,55,2,18909,0)="""RTN"",""IBCEP7C"",32,0)"
^XMB(3.9,55,2,18910,0)=" S IBDIV=0"
^XMB(3.9,55,2,18911,0)="""RTN"",""IBCEP7C"",33,0)"
^XMB(3.9,55,2,18912,0)=" I IBEFTFL=""E""!(IBEFTFL=""LF"") D  G:$D(DTOUT)!$D(DUOUT) FLDSQ"
^XMB(3.9,55,2,18913,0)="""RTN"",""IBCEP7C"",34,0)"
^XMB(3.9,55,2,18914,0)=" . K DIR"
^XMB(3.9,55,2,18915,0)="""RTN"",""IBCEP7C"",35,0)"
^XMB(3.9,55,2,18916,0)=" . S (IBQUIT,IBOK)=0,DA=$G(IBDA)"
^XMB(3.9,55,2,18917,0)="""RTN"",""IBCEP7C"",36,0)"
^XMB(3.9,55,2,18918,0)=" . S DIR(""A"")=""Division: "",DIR(0)=""355.92,.05AOr"""
^XMB(3.9,55,2,18919,0)="""RTN"",""IBCEP7C"",37,0)"
^XMB(3.9,55,2,18920,0)=" . ; Default Division - Main if adding or Existing if editing"
^XMB(3.9,55,2,18921,0)="""RTN"",""IBCEP7C"",38,0)"
^XMB(3.9,55,2,18922,0)=" . I IBFUNC=""E"" S DIR(""B"")=$P($$DIV^IBCEP7($P(IBDA0,U,5)),""/"")"
^XMB(3.9,55,2,18923,0)="""RTN"",""IBCEP7C"",39,0)"
^XMB(3.9,55,2,18924,0)=" . I IBFUNC=""A"" S DIR(""B"")=$P($$EXTERNAL^DILFD(355.92,.05,"""",IBMAIN),""/"")"
^XMB(3.9,55,2,18925,0)="""RTN"",""IBCEP7C"",40,0)"
^XMB(3.9,55,2,18926,0)=" . D ^DIR K DIR"
^XMB(3.9,55,2,18927,0)="""RTN"",""IBCEP7C"",41,0)"
^XMB(3.9,55,2,18928,0)=" . Q:$D(DTOUT)!$D(DUOUT)"
^XMB(3.9,55,2,18929,0)="""RTN"",""IBCEP7C"",42,0)"
^XMB(3.9,55,2,18930,0)=" . S IBDIV=+$S(Y>0:+Y,1:0)"
^XMB(3.9,55,2,18931,0)="""RTN"",""IBCEP7C"",43,0)"
^XMB(3.9,55,2,18932,0)=" ;"
^XMB(3.9,55,2,18933,0)="""RTN"",""IBCEP7C"",44,0)"
^XMB(3.9,55,2,18934,0)=" ; See if there are any Care Units"
^XMB(3.9,55,2,18935,0)="""RTN"",""IBCEP7C"",45,0)"
^XMB(3.9,55,2,18936,0)=" S IBCAREUN=""*N/A*"""
^XMB(3.9,55,2,18937,0)="""RTN"",""IBCEP7C"",46,0)"
^XMB(3.9,55,2,18938,0)=" I IBEFTFL=""E"",IBCUF D"
^XMB(3.9,55,2,18939,0)="""RTN"",""IBCEP7C"",47,0)"
^XMB(3.9,55,2,18940,0)=" . N TAR"
^XMB(3.9,55,2,18941,0)="""RTN"",""IBCEP7C"",48,0)"
^XMB(3.9,55,2,18942,0)=" . D LIST^DIC(355.95,,.01,,,,,,""I $P(^(0),U,3)=+$G(IBINS),$P(^(0),U,4)=+$G(IBDIV)"",,""TAR"")"
^XMB(3.9,55,2,18943,0)="""RTN"",""IBCEP7C"",49,0)"
^XMB(3.9,55,2,18944,0)=" . Q:+$G(TAR(""DILIST"",0))"
^XMB(3.9,55,2,18945,0)="""RTN"",""IBCEP7C"",50,0)"
^XMB(3.9,55,2,18946,0)=" . S IBCUF=0"
^XMB(3.9,55,2,18947,0)="""RTN"",""IBCEP7C"",51,0)"
^XMB(3.9,55,2,18948,0)=" . W !!,""There are no Care Units defined for this Division."",!"
^XMB(3.9,55,2,18949,0)="""RTN"",""IBCEP7C"",52,0)"
^XMB(3.9,55,2,18950,0)=" ;"
^XMB(3.9,55,2,18951,0)="""RTN"",""IBCEP7C"",53,0)"
^XMB(3.9,55,2,18952,0)=" ; Get the Care Unit"
^XMB(3.9,55,2,18953,0)="""RTN"",""IBCEP7C"",54,0)"
^XMB(3.9,55,2,18954,0)=" I IBEFTFL=""E"",IBCUF D  I Y<1 G FLDSQ"
^XMB(3.9,55,2,18955,0)="""RTN"",""IBCEP7C"",55,0)"
^XMB(3.9,55,2,18956,0)=" . K DIC"
^XMB(3.9,55,2,18957,0)="""RTN"",""IBCEP7C"",56,0)"
^XMB(3.9,55,2,18958,0)=" . S DIC(""A"")=""Care Unit: """
^XMB(3.9,55,2,18959,0)="""RTN"",""IBCEP7C"",57,0)"
^XMB(3.9,55,2,18960,0)=" . I IBFUNC=""E"" D  ; default only if editing"
^XMB(3.9,55,2,18961,0)="""RTN"",""IBCEP7C"",58,0)"
^XMB(3.9,55,2,18962,0)=" .. Q:IBDIV'=$P(IBDA0,U,5)  ; don't default if division has changed"
^XMB(3.9,55,2,18963,0)="""RTN"",""IBCEP7C"",59,0)"
^XMB(3.9,55,2,18964,0)=" .. S DIC(""B"")=$$EXTERNAL^DILFD(355.92,.03,"""",$P(IBDA0,U,3))"
^XMB(3.9,55,2,18965,0)="""RTN"",""IBCEP7C"",60,0)"
^XMB(3.9,55,2,18966,0)=" . S DIC=355.95,DIC(""S"")=""I $P(^(0),U,3)=+$G(IBINS),$P(^(0),U,4)=+$G(IBDIV)"",DIC(0)=""AEMQ"""
^XMB(3.9,55,2,18967,0)="""RTN"",""IBCEP7C"",61,0)"
^XMB(3.9,55,2,18968,0)=" . D ^DIC"
^XMB(3.9,55,2,18969,0)="""RTN"",""IBCEP7C"",62,0)"
^XMB(3.9,55,2,18970,0)=" . I Y>0 S IBCAREUN=+Y"
^XMB(3.9,55,2,18971,0)="""RTN"",""IBCEP7C"",63,0)"
^XMB(3.9,55,2,18972,0)=" ;"
^XMB(3.9,55,2,18973,0)="""RTN"",""IBCEP7C"",64,0)"
^XMB(3.9,55,2,18974,0)=" ; Think this is done for sorting purposes.  Makes the main division first"
^XMB(3.9,55,2,18975,0)="""RTN"",""IBCEP7C"",65,0)"
^XMB(3.9,55,2,18976,0)=" I IBDIV=IBMAIN S IBDIV=0"
^XMB(3.9,55,2,18977,0)="""RTN"",""IBCEP7C"",66,0)"
^XMB(3.9,55,2,18978,0)=" ;"
^XMB(3.9,55,2,18979,0)="""RTN"",""IBCEP7C"",67,0)"
^XMB(3.9,55,2,18980,0)=" ; Get the Provider ID Type"
^XMB(3.9,55,2,18981,0)="""RTN"",""IBCEP7C"",68,0)"
^XMB(3.9,55,2,18982,0)=" K DIR"
^XMB(3.9,55,2,18983,0)="""RTN"",""IBCEP7C"",69,0)"
^XMB(3.9,55,2,18984,0)=" S IBQUIT=0"
^XMB(3.9,55,2,18985,0)="""RTN"",""IBCEP7C"",70,0)"
^XMB(3.9,55,2,18986,0)=" I $P(IBPARAM,U,3)'=1 D"
^XMB(3.9,55,2,18987,0)="""RTN"",""IBCEP7C"",71,0)"
^XMB(3.9,55,2,18988,0)=" . S DIR(""?"")=""Can NOT be State LIC # or Billing Facility Primary"""
^XMB(3.9,55,2,18989,0)="""RTN"",""IBCEP7C"",72,0)"
^XMB(3.9,55,2,18990,0)=" . S DIR(""A"")=""ID Qualifier: """
^XMB(3.9,55,2,18991,0)="""RTN"",""IBCEP7C"",73,0)"
^XMB(3.9,55,2,18992,0)=" . S DIR(0)=""355.92,.06A^^K:'$$FACID^IBCEP7(+Y)!$P($G(^IBE(355.97,+Y,1)),U,9)!($P($G(^(0)),U,3)=""""0B"""") X"""
^XMB(3.9,55,2,18993,0)="""RTN"",""IBCEP7C"",74,0)"
^XMB(3.9,55,2,18994,0)=" . W ! D ^DIR K DIR"
^XMB(3.9,55,2,18995,0)="""RTN"",""IBCEP7C"",75,0)"
^XMB(3.9,55,2,18996,0)=" . I $D(DTOUT)!$D(DUOUT) S IBQUIT=1"
^XMB(3.9,55,2,18997,0)="""RTN"",""IBCEP7C"",76,0)"
^XMB(3.9,55,2,18998,0)=" E  D  G:$D(DTOUT)!$D(DUOUT) FLDSQ"
^XMB(3.9,55,2,18999,0)="""RTN"",""IBCEP7C"",77,0)"
^XMB(3.9,55,2,19000,0)=" . S DIR(""A"")=""ID Qualifier: ""    ;,DIR(0)=""355.92,.06Ar"""
^XMB(3.9,55,2,19001,0)="""RTN"",""IBCEP7C"",78,0)"
^XMB(3.9,55,2,19002,0)=" . S DIR(0)=""PAr^355.97:AEMQ"""
^XMB(3.9,55,2,19003,0)="""RTN"",""IBCEP7C"",79,0)"
^XMB(3.9,55,2,19004,0)=" . S DIR(""?"")=""Enter a Qualifier to indentify the type of ID number you are entering."""
^XMB(3.9,55,2,19005,0)="""RTN"",""IBCEP7C"",80,0)"
^XMB(3.9,55,2,19006,0)=" . ; Default Type of ID - Electronic Plan Type if adding or Existing if editing"
^XMB(3.9,55,2,19007,0)="""RTN"",""IBCEP7C"",81,0)"
^XMB(3.9,55,2,19008,0)=" . N PITIEN S PITIEN=$S(IBFUNC=""A""&(IBEFTFL=""E""):$$BF^IBCU(),IBFUNC=""E"":$P(IBDA0,U,6),1:"""")"
^XMB(3.9,55,2,19009,0)="""RTN"",""IBCEP7C"",82,0)"
^XMB(3.9,55,2,19010,0)=" . I PITIEN]"""" S DIR(""B"")=$P($G(^IBE(355.97,PITIEN,0)),U)"
^XMB(3.9,55,2,19011,0)="""RTN"",""IBCEP7C"",83,0)"
^XMB(3.9,55,2,19012,0)=" . I IBEFTFL=""E"" D"
^XMB(3.9,55,2,19013,0)="""RTN"",""IBCEP7C"",84,0)"
^XMB(3.9,55,2,19014,0)=" .. S DIR(""?"",1)="" The current default ID Qualifier is based upon the Electronic Plan Type."""
^XMB(3.9,55,2,19015,0)="""RTN"",""IBCEP7C"",85,0)"
^XMB(3.9,55,2,19016,0)=" .. S DIR(""?"",2)="" You may change the ID Qualifier and the change will apply to all Plan"""
^XMB(3.9,55,2,19017,0)="""RTN"",""IBCEP7C"",86,0)"
^XMB(3.9,55,2,19018,0)=" .. S DIR(""?"")="" Types."""
^XMB(3.9,55,2,19019,0)="""RTN"",""IBCEP7C"",87,0)"
^XMB(3.9,55,2,19020,0)=" .. S DIR(""S"")=""I ($P($G(^(0)),U,3)=$P($G(^IBE(355.97,PITIEN,0)),U,3))!$$BPS^IBCEPU(Y)"""
^XMB(3.9,55,2,19021,0)="""RTN"",""IBCEP7C"",88,0)"
^XMB(3.9,55,2,19022,0)=" . I IBEFTFL=""A"" S DIR(""S"")=""I $$BPS^IBCEPU(Y)"""
^XMB(3.9,55,2,19023,0)="""RTN"",""IBCEP7C"",89,0)"
^XMB(3.9,55,2,19024,0)=" . I IBEFTFL=""LF"" S DIR(""S"")=""I $$LFINS^IBCEPU(Y)"""
^XMB(3.9,55,2,19025,0)="""RTN"",""IBCEP7C"",90,0)"
^XMB(3.9,55,2,19026,0)=" . D ^DIR K DIR"
^XMB(3.9,55,2,19027,0)="""RTN"",""IBCEP7C"",91,0)"
^XMB(3.9,55,2,19028,0)=" G:IBQUIT FLDSQ"
^XMB(3.9,55,2,19029,0)="""RTN"",""IBCEP7C"",92,0)"
^XMB(3.9,55,2,19030,0)=" S IBITYP=$P(Y,U)"
^XMB(3.9,55,2,19031,0)="""RTN"",""IBCEP7C"",93,0)"
^XMB(3.9,55,2,19032,0)=" ;"
^XMB(3.9,55,2,19033,0)="""RTN"",""IBCEP7C"",94,0)"
^XMB(3.9,55,2,19034,0)=" ; Get Form Type"
^XMB(3.9,55,2,19035,0)="""RTN"",""IBCEP7C"",95,0)"
^XMB(3.9,55,2,19036,0)=" K DIR"
^XMB(3.9,55,2,19037,0)="""RTN"",""IBCEP7C"",96,0)"
^XMB(3.9,55,2,19038,0)=" S DIR(""A"")=""Form Type: """
^XMB(3.9,55,2,19039,0)="""RTN"",""IBCEP7C"",97,0)"
^XMB(3.9,55,2,19040,0)=" ;S DIR(0)=$S(IBEFTFL=""LF"":""355.92,.04A"",1:""SA^1:UB92;2:HCFA 1500"")"
^XMB(3.9,55,2,19041,0)="""RTN"",""IBCEP7C"",98,0)"
^XMB(3.9,55,2,19042,0)=" S DIR(0)=$S(IBEFTFL=""LF"":""SA^0:BOTH;1:UB92;2:HCFA 1500"",1:""SA^1:UB92;2:HCFA 1500"")"
^XMB(3.9,55,2,19043,0)="""RTN"",""IBCEP7C"",99,0)"
^XMB(3.9,55,2,19044,0)=" ;"
^XMB(3.9,55,2,19045,0)="""RTN"",""IBCEP7C"",100,0)"
^XMB(3.9,55,2,19046,0)=" I $G(IBDA) S DIR(""B"")=$S(+$P($G(^IBA(355.92,IBDA,0)),U,4)=0:""BOTH"",1:$P(""UB92^HCFA 1500"",U,+$P($G(^IBA(355.92,IBDA,0)),U,4)))"
^XMB(3.9,55,2,19047,0)="""RTN"",""IBCEP7C"",101,0)"
^XMB(3.9,55,2,19048,0)=" ;"
^XMB(3.9,55,2,19049,0)="""RTN"",""IBCEP7C"",102,0)"
^XMB(3.9,55,2,19050,0)=" D ^DIR K DIR"
^XMB(3.9,55,2,19051,0)="""RTN"",""IBCEP7C"",103,0)"
^XMB(3.9,55,2,19052,0)=" G:$D(DTOUT)!$D(DUOUT) FLDSQ"
^XMB(3.9,55,2,19053,0)="""RTN"",""IBCEP7C"",104,0)"
^XMB(3.9,55,2,19054,0)=" S IBFORM=$P(Y,U)"
^XMB(3.9,55,2,19055,0)="""RTN"",""IBCEP7C"",105,0)"
^XMB(3.9,55,2,19056,0)=" ;"
^XMB(3.9,55,2,19057,0)="""RTN"",""IBCEP7C"",106,0)"
^XMB(3.9,55,2,19058,0)=" ; Set up array of exisiting IDs by form type, divison, and care units to avoid duplications"
^XMB(3.9,55,2,19059,0)="""RTN"",""IBCEP7C"",107,0)"
^XMB(3.9,55,2,19060,0)=" S Z=0 F  S Z=$O(^IBA(355.92,""B"",IBINS,Z)) Q:'Z  D"
^XMB(3.9,55,2,19061,0)="""RTN"",""IBCEP7C"",108,0)"
^XMB(3.9,55,2,19062,0)=" . S Z0=$G(^IBA(355.92,Z,0))"
^XMB(3.9,55,2,19063,0)="""RTN"",""IBCEP7C"",109,0)"
^XMB(3.9,55,2,19064,0)=" . I '(IBFUNC=""E""&(Z=IBDA)) D"
^XMB(3.9,55,2,19065,0)="""RTN"",""IBCEP7C"",110,0)"
^XMB(3.9,55,2,19066,0)=" .. I IBEFTFL=""LF"",$P(Z0,U,8)'=""LF"" Q   ; If lab/facility ID, it only needs to be unique among lab/facility IDs"
^XMB(3.9,55,2,19067,0)="""RTN"",""IBCEP7C"",111,0)"
^XMB(3.9,55,2,19068,0)=" .. I IBEFTFL'=""LF"",$P(Z0,U,8)=""LF"" Q   ; If not lab/facility ID, it must be unigue for the others (secondary and additional)"
^XMB(3.9,55,2,19069,0)="""RTN"",""IBCEP7C"",112,0)"
^XMB(3.9,55,2,19070,0)=" .. I IBEFTFL=""A"",$P(Z0,U,8)=""E"" Q"
^XMB(3.9,55,2,19071,0)="""RTN"",""IBCEP7C"",113,0)"
^XMB(3.9,55,2,19072,0)=" .. I $P(Z0,U,8)=""E"",IBEFTFL'=""A"" S IB(""*N/A*"",$P(Z0,U,4),+$P(Z0,U,5),$S($P(Z0,U,3)]"""":$P(Z0,U,3),1:""*N/A*""))=Z"
^XMB(3.9,55,2,19073,0)="""RTN"",""IBCEP7C"",114,0)"
^XMB(3.9,55,2,19074,0)=" .. S IB($P(Z0,U,6),$P(Z0,U,4),+$P(Z0,U,5),$S($P(Z0,U,3)]"""":$P(Z0,U,3),1:""*N/A*""))=Z"
^XMB(3.9,55,2,19075,0)="""RTN"",""IBCEP7C"",115,0)"
^XMB(3.9,55,2,19076,0)=" . ;"
^XMB(3.9,55,2,19077,0)="""RTN"",""IBCEP7C"",116,0)"
^XMB(3.9,55,2,19078,0)=" . ; count them"
^XMB(3.9,55,2,19079,0)="""RTN"",""IBCEP7C"",117,0)"
^XMB(3.9,55,2,19080,0)=" . I IBFUNC=""A"",$P(Z0,U,8)=IBEFTFL,IBDIV=$P(Z0,U,5)!(IBDIV=0&($P(Z0,U,5)="""")) D"
^XMB(3.9,55,2,19081,0)="""RTN"",""IBCEP7C"",118,0)"
^XMB(3.9,55,2,19082,0)=" .. I "".1.2.""[("".""_$P(Z0,U,4)_""."") S IBCNTADD($P(Z0,U,4))=$G(IBCNTADD($P(Z0,U,4)))+1 Q"
^XMB(3.9,55,2,19083,0)="""RTN"",""IBCEP7C"",119,0)"
^XMB(3.9,55,2,19084,0)=" .. N I"
^XMB(3.9,55,2,19085,0)="""RTN"",""IBCEP7C"",120,0)"
^XMB(3.9,55,2,19086,0)=" .. F I=1,2 S IBCNTADD(I)=$G(IBCNTADD(I))+1"
^XMB(3.9,55,2,19087,0)="""RTN"",""IBCEP7C"",121,0)"
^XMB(3.9,55,2,19088,0)=" ; Check for duplications"
^XMB(3.9,55,2,19089,0)="""RTN"",""IBCEP7C"",122,0)"
^XMB(3.9,55,2,19090,0)=" S IBOK=1"
^XMB(3.9,55,2,19091,0)="""RTN"",""IBCEP7C"",123,0)"
^XMB(3.9,55,2,19092,0)=" ; Don't check if nothing is being changed.  The ID itself can be changed after return to calling program."
^XMB(3.9,55,2,19093,0)="""RTN"",""IBCEP7C"",124,0)"
^XMB(3.9,55,2,19094,0)=" I IBFUNC=""E"" S Z0=$G(^IBA(355.92,IBDA,0)) I $P(Z0,U,3)=IBCAREUN!($P(Z0,U,3)=""""&(IBCAREUN=""*N/A*"")),IBFORM=$P(Z0,U,4),IBDIV=$P(Z0,U,5),IBITYP=$P(Z0,U,6) G FLDSQ"
^XMB(3.9,55,2,19095,0)="""RTN"",""IBCEP7C"",125,0)"
^XMB(3.9,55,2,19096,0)=" I $G(IB($S(IBEFTFL=""E"":""*N/A*"",1:IBITYP),IBFORM,IBDIV,IBCAREUN)) D"
^XMB(3.9,55,2,19097,0)="""RTN"",""IBCEP7C"",126,0)"
^XMB(3.9,55,2,19098,0)=" . N Z,ZPC8 S Z=$G(IB($S(IBEFTFL=""E"":""*N/A*"",1:IBITYP),IBFORM,IBDIV,IBCAREUN))"
^XMB(3.9,55,2,19099,0)="""RTN"",""IBCEP7C"",127,0)"
^XMB(3.9,55,2,19100,0)=" . S ZPC8="""""
^XMB(3.9,55,2,19101,0)="""RTN"",""IBCEP7C"",128,0)"
^XMB(3.9,55,2,19102,0)=" . I +Z S ZPC8=$P($G(^IBA(355.92,Z,0)),U,8)"
^XMB(3.9,55,2,19103,0)="""RTN"",""IBCEP7C"",129,0)"
^XMB(3.9,55,2,19104,0)=" . S IBOK=""0^DUPLICATE""_U_ZPC8"
^XMB(3.9,55,2,19105,0)="""RTN"",""IBCEP7C"",130,0)"
^XMB(3.9,55,2,19106,0)=" I IBOK,IBFORM=0,$S($D(IB($S(IBEFTFL=""E"":""*N/A*"",1:IBITYP),1,IBDIV,IBCAREUN))!$D(IB($S(IBEFTFL=""E"":""*N/A*"",1:IBITYP),2,IBDIV,IBCAREUN)):1,1:0) S IBOK=""0^FORM^SPECIFIC"""
^XMB(3.9,55,2,19107,0)="""RTN"",""IBCEP7C"",131,0)"
^XMB(3.9,55,2,19108,0)=" I IBOK,IBFORM'=0,IBFORM'=3,$S($D(IB($S(IBEFTFL=""E"":""*N/A*"",1:IBITYP),0,IBDIV,IBCAREUN)):1,1:0) S IBOK=""0^FORM^BOTH"""
^XMB(3.9,55,2,19109,0)="""RTN"",""IBCEP7C"",132,0)"
^XMB(3.9,55,2,19110,0)=" ;"
^XMB(3.9,55,2,19111,0)="""RTN"",""IBCEP7C"",133,0)"
^XMB(3.9,55,2,19112,0)=" S IBLIMIT=$S(IBEFTFL=""A"":6,IBEFTFL=""LF"":5,1:"""")"
^XMB(3.9,55,2,19113,0)="""RTN"",""IBCEP7C"",134,0)"
^XMB(3.9,55,2,19114,0)=" I IBOK,IBFUNC=""A"",IBEFTFL'=""E"" D"
^XMB(3.9,55,2,19115,0)="""RTN"",""IBCEP7C"",135,0)"
^XMB(3.9,55,2,19116,0)=" . I "".1.2.""[("".""_IBFORM_""."") D  Q"
^XMB(3.9,55,2,19117,0)="""RTN"",""IBCEP7C"",136,0)"
^XMB(3.9,55,2,19118,0)=" .. I $G(IBCNTADD(IBFORM))>(IBLIMIT-1) S IBOK=""0^LIMIT"""
^XMB(3.9,55,2,19119,0)="""RTN"",""IBCEP7C"",137,0)"
^XMB(3.9,55,2,19120,0)=" . N I"
^XMB(3.9,55,2,19121,0)="""RTN"",""IBCEP7C"",138,0)"
^XMB(3.9,55,2,19122,0)=" . I IBFORM=0 F I=1,2 I $G(IBCNTADD(I))>IBLIMIT S IBOK=""0^LIMIT"" Q"
^XMB(3.9,55,2,19123,0)="""RTN"",""IBCEP7C"",139,0)"
^XMB(3.9,55,2,19124,0)=" ;"
^XMB(3.9,55,2,19125,0)="""RTN"",""IBCEP7C"",140,0)"
^XMB(3.9,55,2,19126,0)=" I 'IBOK D"
^XMB(3.9,55,2,19127,0)="""RTN"",""IBCEP7C"",141,0)"
^XMB(3.9,55,2,19128,0)=" . I $P(IBOK,U,2)=""DUPLICATE"" D  Q"
^XMB(3.9,55,2,19129,0)="""RTN"",""IBCEP7C"",142,0)"
^XMB(3.9,55,2,19130,0)=" .. S DIR(""A"",1)=""This ID combination is already defined"",DIR(""A"",2)="""""
^XMB(3.9,55,2,19131,0)="""RTN"",""IBCEP7C"",143,0)"
^XMB(3.9,55,2,19132,0)=" .. ; under ""_$S($P(IBOK,U,3)=""A"":"" Additonal IDs"",$P(IBOK,U,3)=""E"":""Billing Provider Secondary ID"",1:""VA Lab/Facility IDs"")_$S(IBFUNC=""A"":"" - try editing it instead"",1:""""),DIR(""A"",2)="" """
^XMB(3.9,55,2,19133,0)="""RTN"",""IBCEP7C"",144,0)"
^XMB(3.9,55,2,19134,0)=" . ;"
^XMB(3.9,55,2,19135,0)="""RTN"",""IBCEP7C"",145,0)"
^XMB(3.9,55,2,19136,0)=" . I $P(IBOK,U,2)=""BOTH"" D  Q"
^XMB(3.9,55,2,19137,0)="""RTN"",""IBCEP7C"",146,0)"
^XMB(3.9,55,2,19138,0)=" .. S DIR(""A"",1)=""An ID combination for both form types already exists.  Delete this one"",DIR(""A"",2)=""before defining and form specific IDs""_$S(IBDIV:"" for this division""),DIR(""A"",4)="" """
^XMB(3.9,55,2,19139,0)="""RTN"",""IBCEP7C"",147,0)"
^XMB(3.9,55,2,19140,0)=" . ;"
^XMB(3.9,55,2,19141,0)="""RTN"",""IBCEP7C"",148,0)"
^XMB(3.9,55,2,19142,0)=" . I $P(IBOK,U,2)=""FORM"" D  Q"
^XMB(3.9,55,2,19143,0)="""RTN"",""IBCEP7C"",149,0)"
^XMB(3.9,55,2,19144,0)=" .. I $P(IBOK,U,3)=""BOTH"" S DIR(""A"",1)=""This ID already exists for both form types - Delete it to enter this ID for"",DIR(""A"",2)="" a specific form type"",DIR(""A"",3)="" "" Q"
^XMB(3.9,55,2,19145,0)="""RTN"",""IBCEP7C"",150,0)"
^XMB(3.9,55,2,19146,0)=" .. S DIR(""A"",1)=""This ID already exists for a specific form type - Delete specific form type"",DIR(""A"",2)="" ID(s) before entering one for both form types"",DIR(""A"",3)="" """
^XMB(3.9,55,2,19147,0)="""RTN"",""IBCEP7C"",151,0)"
^XMB(3.9,55,2,19148,0)=" . ;     "
^XMB(3.9,55,2,19149,0)="""RTN"",""IBCEP7C"",152,0)"
^XMB(3.9,55,2,19150,0)=" . I $P(IBOK,U,2)=""LIMIT"" D  Q"
^XMB(3.9,55,2,19151,0)="""RTN"",""IBCEP7C"",153,0)"
^XMB(3.9,55,2,19152,0)=" .. S DIR(""A"",1)=""Limit is ""_IBLIMIT_"" IDs for each form type"",DIR(""A"",2)="" """
^XMB(3.9,55,2,19153,0)="""RTN"",""IBCEP7C"",154,0)"
^XMB(3.9,55,2,19154,0)=" .. I IBEFTFL=""A"" D"
^XMB(3.9,55,2,19155,0)="""RTN"",""IBCEP7C"",155,0)"
^XMB(3.9,55,2,19156,0)=" ... S DIR(""A"",1)=""A maximum of 6 Additional Billing Provider Sec IDs can be entered for each Form"""
^XMB(3.9,55,2,19157,0)="""RTN"",""IBCEP7C"",156,0)"
^XMB(3.9,55,2,19158,0)=" ... S DIR(""A"",2)=""Type.  Before you can add another ID, you must delete an existing ID."""
^XMB(3.9,55,2,19159,0)="""RTN"",""IBCEP7C"",157,0)"
^XMB(3.9,55,2,19160,0)=" ... S DIR(""A"",3)="" """
^XMB(3.9,55,2,19161,0)="""RTN"",""IBCEP7C"",158,0)"
^XMB(3.9,55,2,19162,0)=" ;"
^XMB(3.9,55,2,19163,0)="""RTN"",""IBCEP7C"",159,0)"
^XMB(3.9,55,2,19164,0)=" I 'IBOK S DIR(0)=""EA"",DIR(""A"")=""PRESS RETURN TO CONTINUE: "" W ! D ^DIR K DIR"
^XMB(3.9,55,2,19165,0)="""RTN"",""IBCEP7C"",160,0)"
^XMB(3.9,55,2,19166,0)=" ;"
^XMB(3.9,55,2,19167,0)="""RTN"",""IBCEP7C"",161,0)"
^XMB(3.9,55,2,19168,0)="FLDSQ Q +IBOK"
^XMB(3.9,55,2,19169,0)="""RTN"",""IBCEP8"")"
^XMB(3.9,55,2,19170,0)="0^29^B54137838^B35023903"
^XMB(3.9,55,2,19171,0)="""RTN"",""IBCEP8"",1,0)"
^XMB(3.9,55,2,19172,0)="IBCEP8 ;ALB/TMP - Functions for NON-VA PROVIDER ;11-07-00"
^XMB(3.9,55,2,19173,0)="""RTN"",""IBCEP8"",2,0)"
^XMB(3.9,55,2,19174,0)=" ;;2.0;INTEGRATED BILLING;**51,137,232,288,320**;21-MAR-94"
^XMB(3.9,55,2,19175,0)="""RTN"",""IBCEP8"",3,0)"
^XMB(3.9,55,2,19176,0)=" ;"
^XMB(3.9,55,2,19177,0)="""RTN"",""IBCEP8"",4,0)"
^XMB(3.9,55,2,19178,0)="EN ; -- main entry point"
^XMB(3.9,55,2,19179,0)="""RTN"",""IBCEP8"",5,0)"
^XMB(3.9,55,2,19180,0)=" N IBNPRV"
^XMB(3.9,55,2,19181,0)="""RTN"",""IBCEP8"",6,0)"
^XMB(3.9,55,2,19182,0)=" K IBFASTXT"
^XMB(3.9,55,2,19183,0)="""RTN"",""IBCEP8"",7,0)"
^XMB(3.9,55,2,19184,0)=" D FULL^VALM1"
^XMB(3.9,55,2,19185,0)="""RTN"",""IBCEP8"",8,0)"
^XMB(3.9,55,2,19186,0)=" D EN^VALM(""IBCE PRVNVA MAINT"")"
^XMB(3.9,55,2,19187,0)="""RTN"",""IBCEP8"",9,0)"
^XMB(3.9,55,2,19188,0)=" Q"
^XMB(3.9,55,2,19189,0)="""RTN"",""IBCEP8"",10,0)"
^XMB(3.9,55,2,19190,0)=" ;"
^XMB(3.9,55,2,19191,0)="""RTN"",""IBCEP8"",11,0)"
^XMB(3.9,55,2,19192,0)="HDR ; -- header code"
^XMB(3.9,55,2,19193,0)="""RTN"",""IBCEP8"",12,0)"
^XMB(3.9,55,2,19194,0)=" K VALMHDR"
^XMB(3.9,55,2,19195,0)="""RTN"",""IBCEP8"",13,0)"
^XMB(3.9,55,2,19196,0)=" Q"
^XMB(3.9,55,2,19197,0)="""RTN"",""IBCEP8"",14,0)"
^XMB(3.9,55,2,19198,0)=" ;"
^XMB(3.9,55,2,19199,0)="""RTN"",""IBCEP8"",15,0)"
^XMB(3.9,55,2,19200,0)="INIT ; Initialization"
^XMB(3.9,55,2,19201,0)="""RTN"",""IBCEP8"",16,0)"
^XMB(3.9,55,2,19202,0)=" N DIC,DA,X,Y,DLAYGO,IBIF,DIR,DTOUT,DUOUT"
^XMB(3.9,55,2,19203,0)="""RTN"",""IBCEP8"",17,0)"
^XMB(3.9,55,2,19204,0)=" K ^TMP(""IBCE_PRVNVA_MAINT"",$J)"
^XMB(3.9,55,2,19205,0)="""RTN"",""IBCEP8"",18,0)"
^XMB(3.9,55,2,19206,0)=" S DIR(""A"")=""(I)NDIVIDUAL OR (F)ACILITY?: "",DIR(0)=""SA^I:INDIVIDUAL;F:FACILITY"" D ^DIR K DIR"
^XMB(3.9,55,2,19207,0)="""RTN"",""IBCEP8"",19,0)"
^XMB(3.9,55,2,19208,0)=" I $D(DUOUT)!$D(DTOUT) S VALMQUIT=1 G INITQ"
^XMB(3.9,55,2,19209,0)="""RTN"",""IBCEP8"",20,0)"
^XMB(3.9,55,2,19210,0)=" S IBIF=Y"
^XMB(3.9,55,2,19211,0)="""RTN"",""IBCEP8"",21,0)"
^XMB(3.9,55,2,19212,0)=" ;"
^XMB(3.9,55,2,19213,0)="""RTN"",""IBCEP8"",22,0)"
^XMB(3.9,55,2,19214,0)=" I IBIF=""F"" D"
^XMB(3.9,55,2,19215,0)="""RTN"",""IBCEP8"",23,0)"
^XMB(3.9,55,2,19216,0)=" . S VALM(""TITLE"")=""Non-VA Lab or Facility Info"""
^XMB(3.9,55,2,19217,0)="""RTN"",""IBCEP8"",24,0)"
^XMB(3.9,55,2,19218,0)=" . K VALM(""PROTOCOL"")"
^XMB(3.9,55,2,19219,0)="""RTN"",""IBCEP8"",25,0)"
^XMB(3.9,55,2,19220,0)=" . S Y=$$FIND1^DIC(101,,,""IBCE PRVNVA NONIND MAINT"")"
^XMB(3.9,55,2,19221,0)="""RTN"",""IBCEP8"",26,0)"
^XMB(3.9,55,2,19222,0)=" . I Y S VALM(""PROTOCOL"")=+Y_"";ORD(101,"""
^XMB(3.9,55,2,19223,0)="""RTN"",""IBCEP8"",27,0)"
^XMB(3.9,55,2,19224,0)=" ;"
^XMB(3.9,55,2,19225,0)="""RTN"",""IBCEP8"",28,0)"
^XMB(3.9,55,2,19226,0)=" S DIC=""^IBA(355.93,"",DIC(""DR"")="".02////""_$S(IBIF'=""F"":2,1:1)"
^XMB(3.9,55,2,19227,0)="""RTN"",""IBCEP8"",29,0)"
^XMB(3.9,55,2,19228,0)=" S DIC(""S"")=""I $P(^(0),U,2)=""_$S(IBIF'=""F"":2,1:1)"
^XMB(3.9,55,2,19229,0)="""RTN"",""IBCEP8"",30,0)"
^XMB(3.9,55,2,19230,0)=" S DLAYGO=355.93,DIC(0)=""AELMQ"",DIC(""A"")=""Select a NON""_$S(IBIF=""I"":""-"",1:""/OTHER "")_""VA PROVIDER: """
^XMB(3.9,55,2,19231,0)="""RTN"",""IBCEP8"",31,0)"
^XMB(3.9,55,2,19232,0)=" D ^DIC K DIC,DLAYGO"
^XMB(3.9,55,2,19233,0)="""RTN"",""IBCEP8"",32,0)"
^XMB(3.9,55,2,19234,0)=" I Y'>0 S VALMQUIT=1 G INITQ"
^XMB(3.9,55,2,19235,0)="""RTN"",""IBCEP8"",33,0)"
^XMB(3.9,55,2,19236,0)=" S IBNPRV=+Y"
^XMB(3.9,55,2,19237,0)="""RTN"",""IBCEP8"",34,0)"
^XMB(3.9,55,2,19238,0)=" D BLD"
^XMB(3.9,55,2,19239,0)="""RTN"",""IBCEP8"",35,0)"
^XMB(3.9,55,2,19240,0)="INITQ Q"
^XMB(3.9,55,2,19241,0)="""RTN"",""IBCEP8"",36,0)"
^XMB(3.9,55,2,19242,0)=" ;"
^XMB(3.9,55,2,19243,0)="""RTN"",""IBCEP8"",37,0)"
^XMB(3.9,55,2,19244,0)="BLD ; Build/Rebuild display"
^XMB(3.9,55,2,19245,0)="""RTN"",""IBCEP8"",38,0)"
^XMB(3.9,55,2,19246,0)=" N IBLCT,IBCT,Z,Z1,Z2"
^XMB(3.9,55,2,19247,0)="""RTN"",""IBCEP8"",39,0)"
^XMB(3.9,55,2,19248,0)=" S (IBLCT,IBCT)=0,Z=$G(^IBA(355.93,IBNPRV,0))"
^XMB(3.9,55,2,19249,0)="""RTN"",""IBCEP8"",40,0)"
^XMB(3.9,55,2,19250,0)=" S IBCT=IBCT+1"
^XMB(3.9,55,2,19251,0)="""RTN"",""IBCEP8"",41,0)"
^XMB(3.9,55,2,19252,0)=" S Z1=$J(""Name: "",15)_$P(Z,U) D SET1(.IBLCT,Z1,IBCT)"
^XMB(3.9,55,2,19253,0)="""RTN"",""IBCEP8"",42,0)"
^XMB(3.9,55,2,19254,0)=" I $P(Z,U,2)=2 D"
^XMB(3.9,55,2,19255,0)="""RTN"",""IBCEP8"",43,0)"
^XMB(3.9,55,2,19256,0)=" . S IBCT=IBCT+1"
^XMB(3.9,55,2,19257,0)="""RTN"",""IBCEP8"",44,0)"
^XMB(3.9,55,2,19258,0)=" . S Z1=$J(""Type: "",15)_$S($P(Z,U,2)=2:""INDIVIDUAL PROVIDER"",1:""OUTSIDE OR OTHER VA FACILITY"") D SET1(.IBLCT,Z1,IBCT)"
^XMB(3.9,55,2,19259,0)="""RTN"",""IBCEP8"",45,0)"
^XMB(3.9,55,2,19260,0)=" . S IBCT=IBCT+1"
^XMB(3.9,55,2,19261,0)="""RTN"",""IBCEP8"",46,0)"
^XMB(3.9,55,2,19262,0)=" . S Z1=$J(""Credentials: "",15)_$P(Z,U,3) D SET1(.IBLCT,Z1,IBCT)"
^XMB(3.9,55,2,19263,0)="""RTN"",""IBCEP8"",47,0)"
^XMB(3.9,55,2,19264,0)=" . S IBCT=IBCT+1"
^XMB(3.9,55,2,19265,0)="""RTN"",""IBCEP8"",48,0)"
^XMB(3.9,55,2,19266,0)=" . S Z1=$J(""Specialty: "",15)_$P(Z,U,4) D SET1(.IBLCT,Z1,IBCT)"
^XMB(3.9,55,2,19267,0)="""RTN"",""IBCEP8"",49,0)"
^XMB(3.9,55,2,19268,0)=" E  D"
^XMB(3.9,55,2,19269,0)="""RTN"",""IBCEP8"",50,0)"
^XMB(3.9,55,2,19270,0)=" . S IBCT=IBCT+1"
^XMB(3.9,55,2,19271,0)="""RTN"",""IBCEP8"",51,0)"
^XMB(3.9,55,2,19272,0)=" . S Z1=$J(""Address: "",15)_$P(Z,U,5) D SET1(.IBLCT,Z1,IBCT)"
^XMB(3.9,55,2,19273,0)="""RTN"",""IBCEP8"",52,0)"
^XMB(3.9,55,2,19274,0)=" . I $P(Z,U,10) D"
^XMB(3.9,55,2,19275,0)="""RTN"",""IBCEP8"",53,0)"
^XMB(3.9,55,2,19276,0)=" .. S IBCT=IBCT+1"
^XMB(3.9,55,2,19277,0)="""RTN"",""IBCEP8"",54,0)"
^XMB(3.9,55,2,19278,0)=" .. S Z1=$J("""",15)_$P(Z,U,10)"
^XMB(3.9,55,2,19279,0)="""RTN"",""IBCEP8"",55,0)"
^XMB(3.9,55,2,19280,0)=" . S IBCT=IBCT+1"
^XMB(3.9,55,2,19281,0)="""RTN"",""IBCEP8"",56,0)"
^XMB(3.9,55,2,19282,0)=" . S Z1=$J("""",15)_$P(Z,U,6)_$S($P(Z,U,6)'="""":"", "",1:"""")_$S($P(Z,U,7):$$EXTERNAL^DILFD(355.93,.07,"""",$P(Z,U,7))_""  "",1:"""")_$P(Z,U,8)"
^XMB(3.9,55,2,19283,0)="""RTN"",""IBCEP8"",57,0)"
^XMB(3.9,55,2,19284,0)=" . D SET1(.IBLCT,Z1,IBCT)"
^XMB(3.9,55,2,19285,0)="""RTN"",""IBCEP8"",58,0)"
^XMB(3.9,55,2,19286,0)=" . S IBCT=IBCT+1"
^XMB(3.9,55,2,19287,0)="""RTN"",""IBCEP8"",59,0)"
^XMB(3.9,55,2,19288,0)=" . S Z1="" "" D SET1(.IBLCT,Z1,IBCT)"
^XMB(3.9,55,2,19289,0)="""RTN"",""IBCEP8"",60,0)"
^XMB(3.9,55,2,19290,0)=" . S IBCT=IBCT+1"
^XMB(3.9,55,2,19291,0)="""RTN"",""IBCEP8"",61,0)"
^XMB(3.9,55,2,19292,0)=" . S Z1=$J(""Type of Facility: "",30)_$$EXTERNAL^DILFD(355.93,.11,,$P(Z,U,11))"
^XMB(3.9,55,2,19293,0)="""RTN"",""IBCEP8"",62,0)"
^XMB(3.9,55,2,19294,0)=" . D SET1(.IBLCT,Z1,IBCT)"
^XMB(3.9,55,2,19295,0)="""RTN"",""IBCEP8"",63,0)"
^XMB(3.9,55,2,19296,0)=" . S IBCT=IBCT+1"
^XMB(3.9,55,2,19297,0)="""RTN"",""IBCEP8"",64,0)"
^XMB(3.9,55,2,19298,0)=" . S Z1=$J(""Primary ID: "",30)_$P(Z,U,9)"
^XMB(3.9,55,2,19299,0)="""RTN"",""IBCEP8"",65,0)"
^XMB(3.9,55,2,19300,0)=" . D SET1(.IBLCT,Z1,IBCT)"
^XMB(3.9,55,2,19301,0)="""RTN"",""IBCEP8"",66,0)"
^XMB(3.9,55,2,19302,0)=" . S IBCT=IBCT+1"
^XMB(3.9,55,2,19303,0)="""RTN"",""IBCEP8"",67,0)"
^XMB(3.9,55,2,19304,0)=" . S Z1=$J(""ID Qualifier: "",30)_$$GET1^DIQ(355.97,$P(Z,U,13),.03) I $P(Z,U,13)]"""" S Z1=Z1_"" - ""_$$GET1^DIQ(355.97,$P(Z,U,13),.01)"
^XMB(3.9,55,2,19305,0)="""RTN"",""IBCEP8"",68,0)"
^XMB(3.9,55,2,19306,0)=" . D SET1(.IBLCT,Z1,IBCT)"
^XMB(3.9,55,2,19307,0)="""RTN"",""IBCEP8"",69,0)"
^XMB(3.9,55,2,19308,0)=" . S IBCT=IBCT+1"
^XMB(3.9,55,2,19309,0)="""RTN"",""IBCEP8"",70,0)"
^XMB(3.9,55,2,19310,0)=" . S Z1=$J(""Mammography Certification #: "",30)_$P(Z,U,15)"
^XMB(3.9,55,2,19311,0)="""RTN"",""IBCEP8"",71,0)"
^XMB(3.9,55,2,19312,0)=" . D SET1(.IBLCT,Z1,IBCT)"
^XMB(3.9,55,2,19313,0)="""RTN"",""IBCEP8"",72,0)"
^XMB(3.9,55,2,19314,0)=" K VALMBG,VALMCNT"
^XMB(3.9,55,2,19315,0)="""RTN"",""IBCEP8"",73,0)"
^XMB(3.9,55,2,19316,0)=" S VALMBG=1,VALMCNT=IBLCT"
^XMB(3.9,55,2,19317,0)="""RTN"",""IBCEP8"",74,0)"
^XMB(3.9,55,2,19318,0)=" Q"
^XMB(3.9,55,2,19319,0)="""RTN"",""IBCEP8"",75,0)"
^XMB(3.9,55,2,19320,0)=" ;"
^XMB(3.9,55,2,19321,0)="""RTN"",""IBCEP8"",76,0)"
^XMB(3.9,55,2,19322,0)="SET1(IBLCT,TEXT,IBCT) ;"
^XMB(3.9,55,2,19323,0)="""RTN"",""IBCEP8"",77,0)"
^XMB(3.9,55,2,19324,0)=" S IBLCT=IBLCT+1 D SET^VALM10(IBLCT,TEXT,$G(IBCT))"
^XMB(3.9,55,2,19325,0)="""RTN"",""IBCEP8"",78,0)"
^XMB(3.9,55,2,19326,0)=" Q"
^XMB(3.9,55,2,19327,0)="""RTN"",""IBCEP8"",79,0)"
^XMB(3.9,55,2,19328,0)="EXPND ;"
^XMB(3.9,55,2,19329,0)="""RTN"",""IBCEP8"",80,0)"
^XMB(3.9,55,2,19330,0)=" Q"
^XMB(3.9,55,2,19331,0)="""RTN"",""IBCEP8"",81,0)"
^XMB(3.9,55,2,19332,0)=" ;"
^XMB(3.9,55,2,19333,0)="""RTN"",""IBCEP8"",82,0)"
^XMB(3.9,55,2,19334,0)="HELP ;"
^XMB(3.9,55,2,19335,0)="""RTN"",""IBCEP8"",83,0)"
^XMB(3.9,55,2,19336,0)=" Q"
^XMB(3.9,55,2,19337,0)="""RTN"",""IBCEP8"",84,0)"
^XMB(3.9,55,2,19338,0)=" ;"
^XMB(3.9,55,2,19339,0)="""RTN"",""IBCEP8"",85,0)"
^XMB(3.9,55,2,19340,0)="EXIT ;"
^XMB(3.9,55,2,19341,0)="""RTN"",""IBCEP8"",86,0)"
^XMB(3.9,55,2,19342,0)=" K ^TMP(""IBCE_PRVNVA_MAINT"",$J)"
^XMB(3.9,55,2,19343,0)="""RTN"",""IBCEP8"",87,0)"
^XMB(3.9,55,2,19344,0)=" D CLEAN^VALM10"
^XMB(3.9,55,2,19345,0)="""RTN"",""IBCEP8"",88,0)"
^XMB(3.9,55,2,19346,0)=" K IBFASTXT"
^XMB(3.9,55,2,19347,0)="""RTN"",""IBCEP8"",89,0)"
^XMB(3.9,55,2,19348,0)=" Q"
^XMB(3.9,55,2,19349,0)="""RTN"",""IBCEP8"",90,0)"
^XMB(3.9,55,2,19350,0)=" ;"
^XMB(3.9,55,2,19351,0)="""RTN"",""IBCEP8"",91,0)"
^XMB(3.9,55,2,19352,0)="EDIT1(IBNPRV,IBNOLM) ; Edit non-VA provider/facility demographics"
^XMB(3.9,55,2,19353,0)="""RTN"",""IBCEP8"",92,0)"
^XMB(3.9,55,2,19354,0)=" ; IBNPRV = ien of entry in file 355.93"
^XMB(3.9,55,2,19355,0)="""RTN"",""IBCEP8"",93,0)"
^XMB(3.9,55,2,19356,0)=" ; IBNOLM = 1 if not called from list manager"
^XMB(3.9,55,2,19357,0)="""RTN"",""IBCEP8"",94,0)"
^XMB(3.9,55,2,19358,0)=" ;"
^XMB(3.9,55,2,19359,0)="""RTN"",""IBCEP8"",95,0)"
^XMB(3.9,55,2,19360,0)=" N DA,X,Y,DIE,DR,IBP"
^XMB(3.9,55,2,19361,0)="""RTN"",""IBCEP8"",96,0)"
^XMB(3.9,55,2,19362,0)=" I '$G(IBNOLM) D FULL^VALM1"
^XMB(3.9,55,2,19363,0)="""RTN"",""IBCEP8"",97,0)"
^XMB(3.9,55,2,19364,0)=" I IBNPRV D"
^XMB(3.9,55,2,19365,0)="""RTN"",""IBCEP8"",98,0)"
^XMB(3.9,55,2,19366,0)=" . I '$G(IBNOLM) D CLEAR^VALM1"
^XMB(3.9,55,2,19367,0)="""RTN"",""IBCEP8"",99,0)"
^XMB(3.9,55,2,19368,0)=" . S DIE=""^IBA(355.93,"",DA=IBNPRV,IBP=($P($G(^IBA(355.93,IBNPRV,0)),U,2)=2)"
^XMB(3.9,55,2,19369,0)="""RTN"",""IBCEP8"",100,0)"
^XMB(3.9,55,2,19370,0)=" . S DR="".01;""_$S(IBP:"".03;.04"",1:"".05;.1;.06;.07;.08;.13///24;W !,""""ID Qualifier: 24 - EMPLOYER'S IDENTIFICATION #"""";.09Lab or Facility Primary ID;.11;.15"")"
^XMB(3.9,55,2,19371,0)="""RTN"",""IBCEP8"",101,0)"
^XMB(3.9,55,2,19372,0)=" . D ^DIE"
^XMB(3.9,55,2,19373,0)="""RTN"",""IBCEP8"",102,0)"
^XMB(3.9,55,2,19374,0)=" . Q:$G(IBNOLM)"
^XMB(3.9,55,2,19375,0)="""RTN"",""IBCEP8"",103,0)"
^XMB(3.9,55,2,19376,0)=" . D BLD"
^XMB(3.9,55,2,19377,0)="""RTN"",""IBCEP8"",104,0)"
^XMB(3.9,55,2,19378,0)=" I '$G(IBNOLM) K VALMBCK S VALMBCK=""R"""
^XMB(3.9,55,2,19379,0)="""RTN"",""IBCEP8"",105,0)"
^XMB(3.9,55,2,19380,0)=" Q"
^XMB(3.9,55,2,19381,0)="""RTN"",""IBCEP8"",106,0)"
^XMB(3.9,55,2,19382,0)=" ;"
^XMB(3.9,55,2,19383,0)="""RTN"",""IBCEP8"",107,0)"
^XMB(3.9,55,2,19384,0)="EDITID(IBNPRV) ; Link from this list template to maintain provider-specific ids"
^XMB(3.9,55,2,19385,0)="""RTN"",""IBCEP8"",108,0)"
^XMB(3.9,55,2,19386,0)=" ; IBNPRV = ien of entry in file 355.93"
^XMB(3.9,55,2,19387,0)="""RTN"",""IBCEP8"",109,0)"
^XMB(3.9,55,2,19388,0)=" N IBPRV"
^XMB(3.9,55,2,19389,0)="""RTN"",""IBCEP8"",110,0)"
^XMB(3.9,55,2,19390,0)=" D FULL^VALM1"
^XMB(3.9,55,2,19391,0)="""RTN"",""IBCEP8"",111,0)"
^XMB(3.9,55,2,19392,0)=" D CLEAR^VALM1"
^XMB(3.9,55,2,19393,0)="""RTN"",""IBCEP8"",112,0)"
^XMB(3.9,55,2,19394,0)=" S IBPRV=IBNPRV"
^XMB(3.9,55,2,19395,0)="""RTN"",""IBCEP8"",113,0)"
^XMB(3.9,55,2,19396,0)=" D EN1^IBCEP5"
^XMB(3.9,55,2,19397,0)="""RTN"",""IBCEP8"",114,0)"
^XMB(3.9,55,2,19398,0)=" K VALMQUIT"
^XMB(3.9,55,2,19399,0)="""RTN"",""IBCEP8"",115,0)"
^XMB(3.9,55,2,19400,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,19401,0)="""RTN"",""IBCEP8"",116,0)"
^XMB(3.9,55,2,19402,0)=" Q"
^XMB(3.9,55,2,19403,0)="""RTN"",""IBCEP8"",117,0)"
^XMB(3.9,55,2,19404,0)=" ;"
^XMB(3.9,55,2,19405,0)="""RTN"",""IBCEP8"",118,0)"
^XMB(3.9,55,2,19406,0)="NVAFAC ; Enter/edit Non-VA facility information"
^XMB(3.9,55,2,19407,0)="""RTN"",""IBCEP8"",119,0)"
^XMB(3.9,55,2,19408,0)=" N X,Y,DA,DIC,IBNPRV,DLAYGO"
^XMB(3.9,55,2,19409,0)="""RTN"",""IBCEP8"",120,0)"
^XMB(3.9,55,2,19410,0)=" S DIC=""^IBA(355.93,"",DIC(""S"")=""I $P(^(0),U,2)=1"",DIC(""DR"")="".02////1"""
^XMB(3.9,55,2,19411,0)="""RTN"",""IBCEP8"",121,0)"
^XMB(3.9,55,2,19412,0)=" S DLAYGO=355.93,DIC(0)=""AELMQ"",DIC(""A"")=""Select a NON/Other VA FACILITY: """
^XMB(3.9,55,2,19413,0)="""RTN"",""IBCEP8"",122,0)"
^XMB(3.9,55,2,19414,0)=" D ^DIC K DIC,DLAYGO"
^XMB(3.9,55,2,19415,0)="""RTN"",""IBCEP8"",123,0)"
^XMB(3.9,55,2,19416,0)=" I Y'>0 S VALMQUIT=1 G NVAFACQ"
^XMB(3.9,55,2,19417,0)="""RTN"",""IBCEP8"",124,0)"
^XMB(3.9,55,2,19418,0)=" S IBNPRV=+Y"
^XMB(3.9,55,2,19419,0)="""RTN"",""IBCEP8"",125,0)"
^XMB(3.9,55,2,19420,0)=" D EDIT1(IBNPRV,1)"
^XMB(3.9,55,2,19421,0)="""RTN"",""IBCEP8"",126,0)"
^XMB(3.9,55,2,19422,0)=" ;"
^XMB(3.9,55,2,19423,0)="""RTN"",""IBCEP8"",127,0)"
^XMB(3.9,55,2,19424,0)="NVAFACQ Q"
^XMB(3.9,55,2,19425,0)="""RTN"",""IBCEP8"",128,0)"
^XMB(3.9,55,2,19426,0)=" ;"
^XMB(3.9,55,2,19427,0)="""RTN"",""IBCEP8"",129,0)"
^XMB(3.9,55,2,19428,0)="GETFAC(IB,IBFILE,IBELE,IBSFD) ; Returns facility name,address lines or city-state-zip"
^XMB(3.9,55,2,19429,0)="""RTN"",""IBCEP8"",130,0)"
^XMB(3.9,55,2,19430,0)=" ; IB = ien of entry in file"
^XMB(3.9,55,2,19431,0)="""RTN"",""IBCEP8"",131,0)"
^XMB(3.9,55,2,19432,0)=" ; IBFILE = 0 for retrieval from file 4, 1 for retrieval from file 355.93"
^XMB(3.9,55,2,19433,0)="""RTN"",""IBCEP8"",132,0)"
^XMB(3.9,55,2,19434,0)=" ; If IBELE=0, returns name"
^XMB(3.9,55,2,19435,0)="""RTN"",""IBCEP8"",133,0)"
^XMB(3.9,55,2,19436,0)=" ;         =1, returns address line 1"
^XMB(3.9,55,2,19437,0)="""RTN"",""IBCEP8"",134,0)"
^XMB(3.9,55,2,19438,0)=" ;         =2, returns address line 2"
^XMB(3.9,55,2,19439,0)="""RTN"",""IBCEP8"",135,0)"
^XMB(3.9,55,2,19440,0)=" ;         =3, returns city, state zip"
^XMB(3.9,55,2,19441,0)="""RTN"",""IBCEP8"",136,0)"
^XMB(3.9,55,2,19442,0)=" ;         = ""3C"", returns city  = ""3S"", state    = ""3Z"", zip"
^XMB(3.9,55,2,19443,0)="""RTN"",""IBCEP8"",137,0)"
^XMB(3.9,55,2,19444,0)=" ; IBSFD (optional) = Output formatter segment name if the output needs"
^XMB(3.9,55,2,19445,0)="""RTN"",""IBCEP8"",138,0)"
^XMB(3.9,55,2,19446,0)=" ;       to be screened thru the VAMCFD^IBCEF75 procedure for the flag"
^XMB(3.9,55,2,19447,0)="""RTN"",""IBCEP8"",139,0)"
^XMB(3.9,55,2,19448,0)=" ;       in the insurance company file"
^XMB(3.9,55,2,19449,0)="""RTN"",""IBCEP8"",140,0)"
^XMB(3.9,55,2,19450,0)=" ;"
^XMB(3.9,55,2,19451,0)="""RTN"",""IBCEP8"",141,0)"
^XMB(3.9,55,2,19452,0)=" N Z,IBX,IBZ"
^XMB(3.9,55,2,19453,0)="""RTN"",""IBCEP8"",142,0)"
^XMB(3.9,55,2,19454,0)=" S IBX="""""
^XMB(3.9,55,2,19455,0)="""RTN"",""IBCEP8"",143,0)"
^XMB(3.9,55,2,19456,0)=" ;"
^XMB(3.9,55,2,19457,0)="""RTN"",""IBCEP8"",144,0)"
^XMB(3.9,55,2,19458,0)=" I $G(IBSFD)=""SUB"" D VAMCFD^IBCEF75(+$G(IBXIEN),.IBZ) I $D(IBZ),'$G(IBZ(""C"",1)) G GETFACX"
^XMB(3.9,55,2,19459,0)="""RTN"",""IBCEP8"",145,0)"
^XMB(3.9,55,2,19460,0)=" ;"
^XMB(3.9,55,2,19461,0)="""RTN"",""IBCEP8"",146,0)"
^XMB(3.9,55,2,19462,0)=" S Z=$S('IBFILE:$G(^DIC(4,+IB,1)),1:$G(^IBA(355.93,+IB,0)))"
^XMB(3.9,55,2,19463,0)="""RTN"",""IBCEP8"",147,0)"
^XMB(3.9,55,2,19464,0)=" I +IBELE=0 S IBX=$S('IBFILE:$P($G(^DIC(4,+IB,0)),U),1:$P($G(^IBA(355.93,+IB,0)),U))"
^XMB(3.9,55,2,19465,0)="""RTN"",""IBCEP8"",148,0)"
^XMB(3.9,55,2,19466,0)=" I IBELE=1!(IBELE=12) S IBX=$S('IBFILE:$P(Z,U),1:$P(Z,U,5))"
^XMB(3.9,55,2,19467,0)="""RTN"",""IBCEP8"",149,0)"
^XMB(3.9,55,2,19468,0)=" I IBELE=2!(IBELE=12) S IBX=$S(IBELE=12:IBX_"" "",1:"""")_$S('IBFILE:$P(Z,U,2),1:$P(Z,U,10))"
^XMB(3.9,55,2,19469,0)="""RTN"",""IBCEP8"",150,0)"
^XMB(3.9,55,2,19470,0)=" ;"
^XMB(3.9,55,2,19471,0)="""RTN"",""IBCEP8"",151,0)"
^XMB(3.9,55,2,19472,0)=" I +IBELE=3,'IBFILE D"
^XMB(3.9,55,2,19473,0)="""RTN"",""IBCEP8"",152,0)"
^XMB(3.9,55,2,19474,0)=" . S:IBELE=3!(IBELE[""C"") IBX=$P(Z,U,3) Q:IBELE[""C"""
^XMB(3.9,55,2,19475,0)="""RTN"",""IBCEP8"",153,0)"
^XMB(3.9,55,2,19476,0)=" . S:IBELE=3 IBX=IBX_$S(IBX'="""":"", "",1:"""") S:IBELE=3!(IBELE[""S"") IBX=IBX_$$STATE^IBCEFG1($P($G(^DIC(4,+IB,0)),U,2)) Q:IBELE[""S"""
^XMB(3.9,55,2,19477,0)="""RTN"",""IBCEP8"",154,0)"
^XMB(3.9,55,2,19478,0)=" . S:IBELE=3 IBX=IBX_"" "" S:IBELE=3!(IBELE[""Z"") IBX=IBX_$P(Z,U,4)"
^XMB(3.9,55,2,19479,0)="""RTN"",""IBCEP8"",155,0)"
^XMB(3.9,55,2,19480,0)=" . Q"
^XMB(3.9,55,2,19481,0)="""RTN"",""IBCEP8"",156,0)"
^XMB(3.9,55,2,19482,0)=" ;"
^XMB(3.9,55,2,19483,0)="""RTN"",""IBCEP8"",157,0)"
^XMB(3.9,55,2,19484,0)=" I +IBELE=3,IBFILE D"
^XMB(3.9,55,2,19485,0)="""RTN"",""IBCEP8"",158,0)"
^XMB(3.9,55,2,19486,0)=" . S:IBELE=3!(IBELE[""C"") IBX=$P(Z,U,6) Q:IBELE[""C"""
^XMB(3.9,55,2,19487,0)="""RTN"",""IBCEP8"",159,0)"
^XMB(3.9,55,2,19488,0)=" . S:IBELE=3 IBX=IBX_$S(IBX'="""":"", "",1:"""") S:IBELE=3!(IBELE[""S"") IBX=IBX_$$STATE^IBCEFG1($P(Z,U,7))"
^XMB(3.9,55,2,19489,0)="""RTN"",""IBCEP8"",160,0)"
^XMB(3.9,55,2,19490,0)=" . S:IBELE=3 IBX=IBX_"" "" S:IBELE=3!(IBELE[""Z"") IBX=IBX_$P(Z,U,8)"
^XMB(3.9,55,2,19491,0)="""RTN"",""IBCEP8"",161,0)"
^XMB(3.9,55,2,19492,0)=" . Q"
^XMB(3.9,55,2,19493,0)="""RTN"",""IBCEP8"",162,0)"
^XMB(3.9,55,2,19494,0)="GETFACX ;"
^XMB(3.9,55,2,19495,0)="""RTN"",""IBCEP8"",163,0)"
^XMB(3.9,55,2,19496,0)=" Q IBX"
^XMB(3.9,55,2,19497,0)="""RTN"",""IBCEP8"",164,0)"
^XMB(3.9,55,2,19498,0)=" ;"
^XMB(3.9,55,2,19499,0)="""RTN"",""IBCEP8"",165,0)"
^XMB(3.9,55,2,19500,0)="ALLID(IBPRV,IBPTYP,IBZ) ; Returns array IBZ for all ids for provider IBPRV"
^XMB(3.9,55,2,19501,0)="""RTN"",""IBCEP8"",166,0)"
^XMB(3.9,55,2,19502,0)=" ; for all provider id types or for id type in IBPTYP"
^XMB(3.9,55,2,19503,0)="""RTN"",""IBCEP8"",167,0)"
^XMB(3.9,55,2,19504,0)=" ; IBPRV = vp ien of provider"
^XMB(3.9,55,2,19505,0)="""RTN"",""IBCEP8"",168,0)"
^XMB(3.9,55,2,19506,0)=" ; IBPTYP = ien of provider id type to return or """" for all"
^XMB(3.9,55,2,19507,0)="""RTN"",""IBCEP8"",169,0)"
^XMB(3.9,55,2,19508,0)=" ; IBZ = array returned with internal data:"
^XMB(3.9,55,2,19509,0)="""RTN"",""IBCEP8"",170,0)"
^XMB(3.9,55,2,19510,0)=" ;  IBZ(file 355.9 ien)=ID type^ID#^ins co^form typ^bill care typ^care un^X12 code for id type"
^XMB(3.9,55,2,19511,0)="""RTN"",""IBCEP8"",171,0)"
^XMB(3.9,55,2,19512,0)=" N Z,Z0"
^XMB(3.9,55,2,19513,0)="""RTN"",""IBCEP8"",172,0)"
^XMB(3.9,55,2,19514,0)=" K IBZ"
^XMB(3.9,55,2,19515,0)="""RTN"",""IBCEP8"",173,0)"
^XMB(3.9,55,2,19516,0)=" G:'$G(IBPRV) ALLIDQ"
^XMB(3.9,55,2,19517,0)="""RTN"",""IBCEP8"",174,0)"
^XMB(3.9,55,2,19518,0)=" S IBPTYP=$G(IBPTYP)"
^XMB(3.9,55,2,19519,0)="""RTN"",""IBCEP8"",175,0)"
^XMB(3.9,55,2,19520,0)=" S Z=0 F  S Z=$O(^IBA(355.9,""B"",IBPRV,Z)) Q:'Z  S Z0=$G(^IBA(355.9,Z,0)) D"
^XMB(3.9,55,2,19521,0)="""RTN"",""IBCEP8"",176,0)"
^XMB(3.9,55,2,19522,0)=" . I $S(IBPTYP="""":1,1:($P(Z0,U,6)=IBPTYP)) S IBZ(Z)=($P(Z0,U,6)_U_$P(Z0,U,7)_U_$P(Z0,U,2)_U_$P(Z0,U,4)_U_$P(Z0,U,5)_U_$P(Z0,U,3))_U_$P($G(^IBE(355.97,+$P(Z0,U,6),0)),U,3)"
^XMB(3.9,55,2,19523,0)="""RTN"",""IBCEP8"",177,0)"
^XMB(3.9,55,2,19524,0)=" ;"
^XMB(3.9,55,2,19525,0)="""RTN"",""IBCEP8"",178,0)"
^XMB(3.9,55,2,19526,0)="ALLIDQ Q"
^XMB(3.9,55,2,19527,0)="""RTN"",""IBCEP8"",179,0)"
^XMB(3.9,55,2,19528,0)=" ;"
^XMB(3.9,55,2,19529,0)="""RTN"",""IBCEP8"",180,0)"
^XMB(3.9,55,2,19530,0)="CLIA() ; Returns ien of CLIA # provider id type"
^XMB(3.9,55,2,19531,0)="""RTN"",""IBCEP8"",181,0)"
^XMB(3.9,55,2,19532,0)=" N Z,IBZ"
^XMB(3.9,55,2,19533,0)="""RTN"",""IBCEP8"",182,0)"
^XMB(3.9,55,2,19534,0)=" S (IBZ,Z)=0 F  S Z=$O(^IBE(355.97,Z)) Q:'Z  I $P($G(^(Z,0)),U,3)=""X4"",$P(^(0),U)[""CLIA"" S IBZ=Z Q"
^XMB(3.9,55,2,19535,0)="""RTN"",""IBCEP8"",183,0)"
^XMB(3.9,55,2,19536,0)=" Q IBZ"
^XMB(3.9,55,2,19537,0)="""RTN"",""IBCEP8"",184,0)"
^XMB(3.9,55,2,19538,0)=" ;"
^XMB(3.9,55,2,19539,0)="""RTN"",""IBCEP8"",185,0)"
^XMB(3.9,55,2,19540,0)="STLIC() ; Returns ien of STLIC# provider id type"
^XMB(3.9,55,2,19541,0)="""RTN"",""IBCEP8"",186,0)"
^XMB(3.9,55,2,19542,0)=" N Z,IBZ"
^XMB(3.9,55,2,19543,0)="""RTN"",""IBCEP8"",187,0)"
^XMB(3.9,55,2,19544,0)=" S (IBZ,Z)=0 F  S Z=$O(^IBE(355.97,Z)) Q:'Z  I $P($G(^(Z,1)),U,3) S IBZ=Z Q"
^XMB(3.9,55,2,19545,0)="""RTN"",""IBCEP8"",188,0)"
^XMB(3.9,55,2,19546,0)=" Q IBZ"
^XMB(3.9,55,2,19547,0)="""RTN"",""IBCEP8"",189,0)"
^XMB(3.9,55,2,19548,0)=" ;"
^XMB(3.9,55,2,19549,0)="""RTN"",""IBCEP8"",190,0)"
^XMB(3.9,55,2,19550,0)="TAXID() ; Returns ien of Fed tax id provider id type"
^XMB(3.9,55,2,19551,0)="""RTN"",""IBCEP8"",191,0)"
^XMB(3.9,55,2,19552,0)=" N Z,IBZ"
^XMB(3.9,55,2,19553,0)="""RTN"",""IBCEP8"",192,0)"
^XMB(3.9,55,2,19554,0)=" S (IBZ,Z)=0 F  S Z=$O(^IBE(355.97,Z)) Q:'Z  I $P($G(^(Z,1)),U,4) S IBZ=Z Q"
^XMB(3.9,55,2,19555,0)="""RTN"",""IBCEP8"",193,0)"
^XMB(3.9,55,2,19556,0)=" Q IBZ"
^XMB(3.9,55,2,19557,0)="""RTN"",""IBCEP8"",194,0)"
^XMB(3.9,55,2,19558,0)=" ;"
^XMB(3.9,55,2,19559,0)="""RTN"",""IBCEP8"",195,0)"
^XMB(3.9,55,2,19560,0)="CLIANVA(IBIFN) ; Returns CLIA # for a non-VA facility on bill ien IBIFN"
^XMB(3.9,55,2,19561,0)="""RTN"",""IBCEP8"",196,0)"
^XMB(3.9,55,2,19562,0)=" N IBCLIA,IBZ,IBNVA,Z"
^XMB(3.9,55,2,19563,0)="""RTN"",""IBCEP8"",197,0)"
^XMB(3.9,55,2,19564,0)=" S IBCLIA="""",IBZ=$$CLIA()"
^XMB(3.9,55,2,19565,0)="""RTN"",""IBCEP8"",198,0)"
^XMB(3.9,55,2,19566,0)=" I IBZ D"
^XMB(3.9,55,2,19567,0)="""RTN"",""IBCEP8"",199,0)"
^XMB(3.9,55,2,19568,0)=" . S IBNVA=$P($G(^DGCR(399,IBIFN,""U2"")),U,10) Q:'IBNVA"
^XMB(3.9,55,2,19569,0)="""RTN"",""IBCEP8"",200,0)"
^XMB(3.9,55,2,19570,0)=" . S IBCLIA=$$IDFIND^IBCEP2(IBIFN,IBZ,IBNVA_"";IBA(355.93,"","""",1)"
^XMB(3.9,55,2,19571,0)="""RTN"",""IBCEP8"",201,0)"
^XMB(3.9,55,2,19572,0)=" Q IBCLIA"
^XMB(3.9,55,2,19573,0)="""RTN"",""IBCEP8"",202,0)"
^XMB(3.9,55,2,19574,0)=" ;"
^XMB(3.9,55,2,19575,0)="""RTN"",""IBCEP8"",203,0)"
^XMB(3.9,55,2,19576,0)="VALFAC(X) ; Function returns 1 if format is valid for X12 facility name"
^XMB(3.9,55,2,19577,0)="""RTN"",""IBCEP8"",204,0)"
^XMB(3.9,55,2,19578,0)=" ; Alpha/numeric/certain punctuation valid.  Must start with an Alpha"
^XMB(3.9,55,2,19579,0)="""RTN"",""IBCEP8"",205,0)"
^XMB(3.9,55,2,19580,0)=" N OK,VAL"
^XMB(3.9,55,2,19581,0)="""RTN"",""IBCEP8"",206,0)"
^XMB(3.9,55,2,19582,0)=" S OK=1"
^XMB(3.9,55,2,19583,0)="""RTN"",""IBCEP8"",207,0)"
^XMB(3.9,55,2,19584,0)=" S VAL(""A"")="""",VAL(""N"")="""",VAL="",.- """
^XMB(3.9,55,2,19585,0)="""RTN"",""IBCEP8"",208,0)"
^XMB(3.9,55,2,19586,0)=" I $E(X)'?1A!'$$VALFMT(X,.VAL) S OK=0"
^XMB(3.9,55,2,19587,0)="""RTN"",""IBCEP8"",209,0)"
^XMB(3.9,55,2,19588,0)=" Q OK"
^XMB(3.9,55,2,19589,0)="""RTN"",""IBCEP8"",210,0)"
^XMB(3.9,55,2,19590,0)=" ;"
^XMB(3.9,55,2,19591,0)="""RTN"",""IBCEP8"",211,0)"
^XMB(3.9,55,2,19592,0)="VALFMT(X,VAL) ; Returns 1 if format of X is valid, 0 if not"
^XMB(3.9,55,2,19593,0)="""RTN"",""IBCEP8"",212,0)"
^XMB(3.9,55,2,19594,0)=" ; X = data to be examined"
^XMB(3.9,55,2,19595,0)="""RTN"",""IBCEP8"",213,0)"
^XMB(3.9,55,2,19596,0)=" ; VAL = a 'string' of valid characters AND/OR (passed by reference)"
^XMB(3.9,55,2,19597,0)="""RTN"",""IBCEP8"",214,0)"
^XMB(3.9,55,2,19598,0)=" ;    if VAL(""A"") defined ==> Alpha"
^XMB(3.9,55,2,19599,0)="""RTN"",""IBCEP8"",215,0)"
^XMB(3.9,55,2,19600,0)=" ;    if VAL(""A"") defined ==> Numeric valid"
^XMB(3.9,55,2,19601,0)="""RTN"",""IBCEP8"",216,0)"
^XMB(3.9,55,2,19602,0)=" ;    if VAL(""A"") defined ==> Punctuation valid"
^XMB(3.9,55,2,19603,0)="""RTN"",""IBCEP8"",217,0)"
^XMB(3.9,55,2,19604,0)=" ;   any other character included in the string is checked individually"
^XMB(3.9,55,2,19605,0)="""RTN"",""IBCEP8"",218,0)"
^XMB(3.9,55,2,19606,0)=" N Z"
^XMB(3.9,55,2,19607,0)="""RTN"",""IBCEP8"",219,0)"
^XMB(3.9,55,2,19608,0)=" I $D(VAL(""A"")) D"
^XMB(3.9,55,2,19609,0)="""RTN"",""IBCEP8"",220,0)"
^XMB(3.9,55,2,19610,0)=" . N Z0"
^XMB(3.9,55,2,19611,0)="""RTN"",""IBCEP8"",221,0)"
^XMB(3.9,55,2,19612,0)=" . F Z=1:1:$L(X) I $E(X,Z)?1A S Z0(Z)="""""
^XMB(3.9,55,2,19613,0)="""RTN"",""IBCEP8"",222,0)"
^XMB(3.9,55,2,19614,0)=" . S Z0="""" F  S Z0=$O(Z0(Z0),-1) Q:'Z0  S $E(X,Z0)="""""
^XMB(3.9,55,2,19615,0)="""RTN"",""IBCEP8"",223,0)"
^XMB(3.9,55,2,19616,0)=" I $D(VAL(""N"")) D"
^XMB(3.9,55,2,19617,0)="""RTN"",""IBCEP8"",224,0)"
^XMB(3.9,55,2,19618,0)=" . N Z0"
^XMB(3.9,55,2,19619,0)="""RTN"",""IBCEP8"",225,0)"
^XMB(3.9,55,2,19620,0)=" . F Z=1:1:$L(X) I $E(X,Z)?1N S Z0(Z)="""""
^XMB(3.9,55,2,19621,0)="""RTN"",""IBCEP8"",226,0)"
^XMB(3.9,55,2,19622,0)=" . S Z0="""" F  S Z0=$O(Z0(Z0),-1) Q:'Z0  S $E(X,Z0)="""""
^XMB(3.9,55,2,19623,0)="""RTN"",""IBCEP8"",227,0)"
^XMB(3.9,55,2,19624,0)=" I $D(VAL(""P"")) D"
^XMB(3.9,55,2,19625,0)="""RTN"",""IBCEP8"",228,0)"
^XMB(3.9,55,2,19626,0)=" . N Z0"
^XMB(3.9,55,2,19627,0)="""RTN"",""IBCEP8"",229,0)"
^XMB(3.9,55,2,19628,0)=" . F Z=1:1:$L(X) I $E(X,Z)?1P S Z0(Z)="""""
^XMB(3.9,55,2,19629,0)="""RTN"",""IBCEP8"",230,0)"
^XMB(3.9,55,2,19630,0)=" . S Z0="""" F  S Z0=$O(Z0(Z0),-1) Q:'Z0  S $E(X,Z0)="""""
^XMB(3.9,55,2,19631,0)="""RTN"",""IBCEP8"",231,0)"
^XMB(3.9,55,2,19632,0)=" I $G(VAL)'="""" S X=$TR(X,VAL,"""")"
^XMB(3.9,55,2,19633,0)="""RTN"",""IBCEP8"",232,0)"
^XMB(3.9,55,2,19634,0)=" Q (X="""")"
^XMB(3.9,55,2,19635,0)="""RTN"",""IBCEP8"",233,0)"
^XMB(3.9,55,2,19636,0)=" ;"
^XMB(3.9,55,2,19637,0)="""RTN"",""IBCEP8"",234,0)"
^XMB(3.9,55,2,19638,0)="PS(IBXSAVE) ; Returns 1 if IBXSAVE(""PSVC"") indicates the svc was non-lab"
^XMB(3.9,55,2,19639,0)="""RTN"",""IBCEP8"",235,0)"
^XMB(3.9,55,2,19640,0)=" ; "
^XMB(3.9,55,2,19641,0)="""RTN"",""IBCEP8"",236,0)"
^XMB(3.9,55,2,19642,0)=" Q $S($G(IBXSAVE(""PSVC""))="""":0,1:""13""[IBXSAVE(""PSVC""))"
^XMB(3.9,55,2,19643,0)="""RTN"",""IBCEP8"",237,0)"
^XMB(3.9,55,2,19644,0)=" ;"
^XMB(3.9,55,2,19645,0)="""RTN"",""IBCEP8"",238,0)"
^XMB(3.9,55,2,19646,0)=" ; Pass in the Internal Entry number to File 355.93"
^XMB(3.9,55,2,19647,0)="""RTN"",""IBCEP8"",239,0)"
^XMB(3.9,55,2,19648,0)=" ; Return the Primary ID and Qualifier (ID Type) from 355.9"
^XMB(3.9,55,2,19649,0)="""RTN"",""IBCEP8"",240,0)"
^XMB(3.9,55,2,19650,0)="PRIMID(IEN35593) ; Return External Primary ID and ID Quailier"
^XMB(3.9,55,2,19651,0)="""RTN"",""IBCEP8"",241,0)"
^XMB(3.9,55,2,19652,0)=" N INDXVAL,LIST,MSG,IDCODE"
^XMB(3.9,55,2,19653,0)="""RTN"",""IBCEP8"",242,0)"
^XMB(3.9,55,2,19654,0)=" S INDXVAL=IEN35593_"";IBA(355.93,"""
^XMB(3.9,55,2,19655,0)="""RTN"",""IBCEP8"",243,0)"
^XMB(3.9,55,2,19656,0)=" N SCREEN S SCREEN=""I $P(^(0),U,8)"""
^XMB(3.9,55,2,19657,0)="""RTN"",""IBCEP8"",244,0)"
^XMB(3.9,55,2,19658,0)=" D FIND^DIC(355.9,,""@;.06EI;.07"",""Q"",INDXVAL,,,SCREEN,,""LIST"",""MSG"")"
^XMB(3.9,55,2,19659,0)="""RTN"",""IBCEP8"",245,0)"
^XMB(3.9,55,2,19660,0)=" I '+$G(LIST(""DILIST"",0)) Q """"   ; No Primary ID"
^XMB(3.9,55,2,19661,0)="""RTN"",""IBCEP8"",246,0)"
^XMB(3.9,55,2,19662,0)=" I +$G(LIST(""DILIST"",0))>1 Q ""***ERROR***^***ERROR***""  ; Bad.  More than one. "
^XMB(3.9,55,2,19663,0)="""RTN"",""IBCEP8"",247,0)"
^XMB(3.9,55,2,19664,0)=" ; Found just one"
^XMB(3.9,55,2,19665,0)="""RTN"",""IBCEP8"",248,0)"
^XMB(3.9,55,2,19666,0)=" S IDCODE=$$GET1^DIQ(355.97,LIST(""DILIST"",""ID"",1,.06,""I""),.03)"
^XMB(3.9,55,2,19667,0)="""RTN"",""IBCEP8"",249,0)"
^XMB(3.9,55,2,19668,0)=" Q $G(LIST(""DILIST"",""ID"",1,.07))_U_IDCODE_"" - ""_$G(LIST(""DILIST"",""ID"",1,.06,""E""))"
^XMB(3.9,55,2,19669,0)="""RTN"",""IBCEP8A"")"
^XMB(3.9,55,2,19670,0)="0^44^B25216435"
^XMB(3.9,55,2,19671,0)="""RTN"",""IBCEP8A"",1,0)"
^XMB(3.9,55,2,19672,0)="IBCEP8A ;ALB/ESG - Functions for provider ID maint ;12/27/2005"
^XMB(3.9,55,2,19673,0)="""RTN"",""IBCEP8A"",2,0)"
^XMB(3.9,55,2,19674,0)=" ;;2.0;INTEGRATED BILLING;**320**;21-MAR-94"
^XMB(3.9,55,2,19675,0)="""RTN"",""IBCEP8A"",3,0)"
^XMB(3.9,55,2,19676,0)=" ;"
^XMB(3.9,55,2,19677,0)="""RTN"",""IBCEP8A"",4,0)"
^XMB(3.9,55,2,19678,0)=" Q"
^XMB(3.9,55,2,19679,0)="""RTN"",""IBCEP8A"",5,0)"
^XMB(3.9,55,2,19680,0)=" ;"
^XMB(3.9,55,2,19681,0)="""RTN"",""IBCEP8A"",6,0)"
^XMB(3.9,55,2,19682,0)="CLIA(IBIFN) ; Default CLIA# for claim"
^XMB(3.9,55,2,19683,0)="""RTN"",""IBCEP8A"",7,0)"
^XMB(3.9,55,2,19684,0)=" NEW CLIA,NONVA,DIV,INST"
^XMB(3.9,55,2,19685,0)="""RTN"",""IBCEP8A"",8,0)"
^XMB(3.9,55,2,19686,0)=" S CLIA="""",IBIFN=+$G(IBIFN)"
^XMB(3.9,55,2,19687,0)="""RTN"",""IBCEP8A"",9,0)"
^XMB(3.9,55,2,19688,0)=" S NONVA=+$P($G(^DGCR(399,IBIFN,""U2"")),U,10)    ; non-VA facility ptr"
^XMB(3.9,55,2,19689,0)="""RTN"",""IBCEP8A"",10,0)"
^XMB(3.9,55,2,19690,0)=" I NONVA S CLIA=$$CLIANVA^IBCEP8(IBIFN) G CLIAX"
^XMB(3.9,55,2,19691,0)="""RTN"",""IBCEP8A"",11,0)"
^XMB(3.9,55,2,19692,0)=" ;"
^XMB(3.9,55,2,19693,0)="""RTN"",""IBCEP8A"",12,0)"
^XMB(3.9,55,2,19694,0)=" ; retrieve the default VA clia# based on claim data"
^XMB(3.9,55,2,19695,0)="""RTN"",""IBCEP8A"",13,0)"
^XMB(3.9,55,2,19696,0)=" S DIV=+$P($G(^DGCR(399,IBIFN,0)),U,22)         ; claim's division"
^XMB(3.9,55,2,19697,0)="""RTN"",""IBCEP8A"",14,0)"
^XMB(3.9,55,2,19698,0)=" I 'DIV G CLIAX"
^XMB(3.9,55,2,19699,0)="""RTN"",""IBCEP8A"",15,0)"
^XMB(3.9,55,2,19700,0)=" S INST=+$P($G(^DG(40.8,DIV,0)),U,7)            ; inst file pointer"
^XMB(3.9,55,2,19701,0)="""RTN"",""IBCEP8A"",16,0)"
^XMB(3.9,55,2,19702,0)=" I 'INST G CLIAX"
^XMB(3.9,55,2,19703,0)="""RTN"",""IBCEP8A"",17,0)"
^XMB(3.9,55,2,19704,0)=" S CLIA=$$ID^XUAF4(""CLIA"",INST)                 ; API for clia#"
^XMB(3.9,55,2,19705,0)="""RTN"",""IBCEP8A"",18,0)"
^XMB(3.9,55,2,19706,0)="CLIAX ;"
^XMB(3.9,55,2,19707,0)="""RTN"",""IBCEP8A"",19,0)"
^XMB(3.9,55,2,19708,0)=" Q CLIA"
^XMB(3.9,55,2,19709,0)="""RTN"",""IBCEP8A"",20,0)"
^XMB(3.9,55,2,19710,0)=" ;"
^XMB(3.9,55,2,19711,0)="""RTN"",""IBCEP8A"",21,0)"
^XMB(3.9,55,2,19712,0)="LAB(IBIFN) ; Function determines if LAB type of service is on claim"
^XMB(3.9,55,2,19713,0)="""RTN"",""IBCEP8A"",22,0)"
^XMB(3.9,55,2,19714,0)=" ; Claim must be a HCFA-1500 claim form type"
^XMB(3.9,55,2,19715,0)="""RTN"",""IBCEP8A"",23,0)"
^XMB(3.9,55,2,19716,0)=" NEW LAB,LN,IBXDATA"
^XMB(3.9,55,2,19717,0)="""RTN"",""IBCEP8A"",24,0)"
^XMB(3.9,55,2,19718,0)=" S LAB=0"
^XMB(3.9,55,2,19719,0)="""RTN"",""IBCEP8A"",25,0)"
^XMB(3.9,55,2,19720,0)=" I $$FT^IBCEF(IBIFN)'=2 G LABX    ;hcfa 1500 form types only"
^XMB(3.9,55,2,19721,0)="""RTN"",""IBCEP8A"",26,0)"
^XMB(3.9,55,2,19722,0)=" D F^IBCEF(""N-HCFA 1500 SERVICES (PRINT)"",,,IBIFN)"
^XMB(3.9,55,2,19723,0)="""RTN"",""IBCEP8A"",27,0)"
^XMB(3.9,55,2,19724,0)=" S LN=0"
^XMB(3.9,55,2,19725,0)="""RTN"",""IBCEP8A"",28,0)"
^XMB(3.9,55,2,19726,0)=" F  S LN=$O(IBXDATA(LN)) Q:'LN  I $P(IBXDATA(LN),U,4)=5 S LAB=1 Q"
^XMB(3.9,55,2,19727,0)="""RTN"",""IBCEP8A"",29,0)"
^XMB(3.9,55,2,19728,0)="LABX ;"
^XMB(3.9,55,2,19729,0)="""RTN"",""IBCEP8A"",30,0)"
^XMB(3.9,55,2,19730,0)=" Q LAB"
^XMB(3.9,55,2,19731,0)="""RTN"",""IBCEP8A"",31,0)"
^XMB(3.9,55,2,19732,0)=" ;"
^XMB(3.9,55,2,19733,0)="""RTN"",""IBCEP8A"",32,0)"
^XMB(3.9,55,2,19734,0)="CLIAREQ(IBIFN) ; Function determines if the CLIA# is required for claim"
^XMB(3.9,55,2,19735,0)="""RTN"",""IBCEP8A"",33,0)"
^XMB(3.9,55,2,19736,0)=" ; Return value=1 Yes, the CLIA# is required; otherwise 0."
^XMB(3.9,55,2,19737,0)="""RTN"",""IBCEP8A"",34,0)"
^XMB(3.9,55,2,19738,0)=" NEW REQ S REQ=0"
^XMB(3.9,55,2,19739,0)="""RTN"",""IBCEP8A"",35,0)"
^XMB(3.9,55,2,19740,0)=" I $$FT^IBCEF(IBIFN)'=2 G CLIAREQX        ; hcfa-1500 claim"
^XMB(3.9,55,2,19741,0)="""RTN"",""IBCEP8A"",36,0)"
^XMB(3.9,55,2,19742,0)=" I '$$LAB(IBIFN) G CLIAREQX               ; lab type of service"
^XMB(3.9,55,2,19743,0)="""RTN"",""IBCEP8A"",37,0)"
^XMB(3.9,55,2,19744,0)=" ;"
^XMB(3.9,55,2,19745,0)="""RTN"",""IBCEP8A"",38,0)"
^XMB(3.9,55,2,19746,0)=" ; this is required for VA facility"
^XMB(3.9,55,2,19747,0)="""RTN"",""IBCEP8A"",39,0)"
^XMB(3.9,55,2,19748,0)=" I '$P($G(^DGCR(399,IBIFN,""U2"")),U,10) S REQ=1 G CLIAREQX"
^XMB(3.9,55,2,19749,0)="""RTN"",""IBCEP8A"",40,0)"
^XMB(3.9,55,2,19750,0)=" ;"
^XMB(3.9,55,2,19751,0)="""RTN"",""IBCEP8A"",41,0)"
^XMB(3.9,55,2,19752,0)=" ; for non-VA facility, further check non-VA care type"
^XMB(3.9,55,2,19753,0)="""RTN"",""IBCEP8A"",42,0)"
^XMB(3.9,55,2,19754,0)=" ;     Codes 1 and 3 are specifically Non-Lab"
^XMB(3.9,55,2,19755,0)="""RTN"",""IBCEP8A"",43,0)"
^XMB(3.9,55,2,19756,0)=" I '$F("".1.3."","".""_$P($G(^DGCR(399,IBIFN,""U2"")),U,11)_""."") S REQ=1"
^XMB(3.9,55,2,19757,0)="""RTN"",""IBCEP8A"",44,0)"
^XMB(3.9,55,2,19758,0)="CLIAREQX ;"
^XMB(3.9,55,2,19759,0)="""RTN"",""IBCEP8A"",45,0)"
^XMB(3.9,55,2,19760,0)=" Q REQ"
^XMB(3.9,55,2,19761,0)="""RTN"",""IBCEP8A"",46,0)"
^XMB(3.9,55,2,19762,0)=" ;"
^XMB(3.9,55,2,19763,0)="""RTN"",""IBCEP8A"",47,0)"
^XMB(3.9,55,2,19764,0)="MAMMO(IBIFN,IBMC) ; Function to determine the default mammography certification"
^XMB(3.9,55,2,19765,0)="""RTN"",""IBCEP8A"",48,0)"
^XMB(3.9,55,2,19766,0)=" ; number for the claim"
^XMB(3.9,55,2,19767,0)="""RTN"",""IBCEP8A"",49,0)"
^XMB(3.9,55,2,19768,0)=" ; Array IBMC is returned if passed by reference"
^XMB(3.9,55,2,19769,0)="""RTN"",""IBCEP8A"",50,0)"
^XMB(3.9,55,2,19770,0)=" ;   IBMC = # of associated mammo#'s"
^XMB(3.9,55,2,19771,0)="""RTN"",""IBCEP8A"",51,0)"
^XMB(3.9,55,2,19772,0)=" ;   IBMC(n) = [1] coding system or """" for Non-VA Facilities"
^XMB(3.9,55,2,19773,0)="""RTN"",""IBCEP8A"",52,0)"
^XMB(3.9,55,2,19774,0)=" ;             [2] mammo cert#"
^XMB(3.9,55,2,19775,0)="""RTN"",""IBCEP8A"",53,0)"
^XMB(3.9,55,2,19776,0)=" NEW MAMMO,NONVA,INST,CODSYS,IBMCID,CDSYS"
^XMB(3.9,55,2,19777,0)="""RTN"",""IBCEP8A"",54,0)"
^XMB(3.9,55,2,19778,0)=" S MAMMO="""",IBIFN=+$G(IBIFN),IBMC=0"
^XMB(3.9,55,2,19779,0)="""RTN"",""IBCEP8A"",55,0)"
^XMB(3.9,55,2,19780,0)=" S NONVA=+$P($G(^DGCR(399,IBIFN,""U2"")),U,10)    ; non-VA facility ptr"
^XMB(3.9,55,2,19781,0)="""RTN"",""IBCEP8A"",56,0)"
^XMB(3.9,55,2,19782,0)=" I NONVA D  G MAMMOX"
^XMB(3.9,55,2,19783,0)="""RTN"",""IBCEP8A"",57,0)"
^XMB(3.9,55,2,19784,0)=" . S MAMMO=$P($G(^IBA(355.93,NONVA,0)),U,15) Q:MAMMO="""""
^XMB(3.9,55,2,19785,0)="""RTN"",""IBCEP8A"",58,0)"
^XMB(3.9,55,2,19786,0)=" . S IBMC=1,IBMC(1)=""""_U_MAMMO"
^XMB(3.9,55,2,19787,0)="""RTN"",""IBCEP8A"",59,0)"
^XMB(3.9,55,2,19788,0)=" . Q"
^XMB(3.9,55,2,19789,0)="""RTN"",""IBCEP8A"",60,0)"
^XMB(3.9,55,2,19790,0)=" ;"
^XMB(3.9,55,2,19791,0)="""RTN"",""IBCEP8A"",61,0)"
^XMB(3.9,55,2,19792,0)=" ; retrieve the default VA mammo# based on claim data"
^XMB(3.9,55,2,19793,0)="""RTN"",""IBCEP8A"",62,0)"
^XMB(3.9,55,2,19794,0)=" S INST=+$$SITE^VASITE()                            ; inst file pointer"
^XMB(3.9,55,2,19795,0)="""RTN"",""IBCEP8A"",63,0)"
^XMB(3.9,55,2,19796,0)=" I 'INST G MAMMOX"
^XMB(3.9,55,2,19797,0)="""RTN"",""IBCEP8A"",64,0)"
^XMB(3.9,55,2,19798,0)=" ;"
^XMB(3.9,55,2,19799,0)="""RTN"",""IBCEP8A"",65,0)"
^XMB(3.9,55,2,19800,0)=" ; Kernel API from XU*8*394 to get a list of coding systems"
^XMB(3.9,55,2,19801,0)="""RTN"",""IBCEP8A"",66,0)"
^XMB(3.9,55,2,19802,0)=" D LCDSYS^XUAF4(.CDSYS)"
^XMB(3.9,55,2,19803,0)="""RTN"",""IBCEP8A"",67,0)"
^XMB(3.9,55,2,19804,0)=" S CODSYS=""MAMMO"""
^XMB(3.9,55,2,19805,0)="""RTN"",""IBCEP8A"",68,0)"
^XMB(3.9,55,2,19806,0)=" F  S CODSYS=$O(CDSYS(CODSYS)) Q:$E(CODSYS,1,5)'=""MAMMO""  D"
^XMB(3.9,55,2,19807,0)="""RTN"",""IBCEP8A"",69,0)"
^XMB(3.9,55,2,19808,0)=" . S IBMCID=$$ID^XUAF4(CODSYS,INST) Q:IBMCID="""""
^XMB(3.9,55,2,19809,0)="""RTN"",""IBCEP8A"",70,0)"
^XMB(3.9,55,2,19810,0)=" . S IBMC=IBMC+1"
^XMB(3.9,55,2,19811,0)="""RTN"",""IBCEP8A"",71,0)"
^XMB(3.9,55,2,19812,0)=" . S IBMC(IBMC)=$P(CODSYS,""-"",2)_U_IBMCID"
^XMB(3.9,55,2,19813,0)="""RTN"",""IBCEP8A"",72,0)"
^XMB(3.9,55,2,19814,0)=" . I $P(CODSYS,""-"",2)=""FDA"" S MAMMO=IBMCID    ; FDA is default ID#"
^XMB(3.9,55,2,19815,0)="""RTN"",""IBCEP8A"",73,0)"
^XMB(3.9,55,2,19816,0)=" . Q"
^XMB(3.9,55,2,19817,0)="""RTN"",""IBCEP8A"",74,0)"
^XMB(3.9,55,2,19818,0)=" I IBMC,MAMMO="""" S MAMMO=$P(IBMC(1),U,2)"
^XMB(3.9,55,2,19819,0)="""RTN"",""IBCEP8A"",75,0)"
^XMB(3.9,55,2,19820,0)="MAMMOX ;"
^XMB(3.9,55,2,19821,0)="""RTN"",""IBCEP8A"",76,0)"
^XMB(3.9,55,2,19822,0)=" Q MAMMO"
^XMB(3.9,55,2,19823,0)="""RTN"",""IBCEP8A"",77,0)"
^XMB(3.9,55,2,19824,0)=" ;"
^XMB(3.9,55,2,19825,0)="""RTN"",""IBCEP8A"",78,0)"
^XMB(3.9,55,2,19826,0)="MAMMODP(IBIFN) ; Procedure to display a listing of default mammo cert#'s"
^XMB(3.9,55,2,19827,0)="""RTN"",""IBCEP8A"",79,0)"
^XMB(3.9,55,2,19828,0)=" ; Used during input template on screen 8 HCFA"
^XMB(3.9,55,2,19829,0)="""RTN"",""IBCEP8A"",80,0)"
^XMB(3.9,55,2,19830,0)=" NEW IBMC,IBZ"
^XMB(3.9,55,2,19831,0)="""RTN"",""IBCEP8A"",81,0)"
^XMB(3.9,55,2,19832,0)=" I $$MAMMO(IBIFN,.IBMC)"
^XMB(3.9,55,2,19833,0)="""RTN"",""IBCEP8A"",82,0)"
^XMB(3.9,55,2,19834,0)=" I 'IBMC W !!?3,""No default mammography certification numbers on file."",! G MAMMODPX"
^XMB(3.9,55,2,19835,0)="""RTN"",""IBCEP8A"",83,0)"
^XMB(3.9,55,2,19836,0)=" W !!?3,""The Mammography Certification #"" W:IBMC>1 ""'s"""
^XMB(3.9,55,2,19837,0)="""RTN"",""IBCEP8A"",84,0)"
^XMB(3.9,55,2,19838,0)=" W "" defined for this "" W:$P($G(^DGCR(399,IBIFN,""U2"")),U,10) ""non-"""
^XMB(3.9,55,2,19839,0)="""RTN"",""IBCEP8A"",85,0)"
^XMB(3.9,55,2,19840,0)=" W ""VA facility "" W:IBMC>1 ""are:"" W:IBMC'>1 ""is:"""
^XMB(3.9,55,2,19841,0)="""RTN"",""IBCEP8A"",86,0)"
^XMB(3.9,55,2,19842,0)=" S IBZ=0"
^XMB(3.9,55,2,19843,0)="""RTN"",""IBCEP8A"",87,0)"
^XMB(3.9,55,2,19844,0)=" F  S IBZ=$O(IBMC(IBZ)) Q:'IBZ  W !?7,$P(IBMC(IBZ),U,2),?21,$P(IBMC(IBZ),U,1)"
^XMB(3.9,55,2,19845,0)="""RTN"",""IBCEP8A"",88,0)"
^XMB(3.9,55,2,19846,0)=" W !?3,""If you enter a different number it will be sent with this claim only."""
^XMB(3.9,55,2,19847,0)="""RTN"",""IBCEP8A"",89,0)"
^XMB(3.9,55,2,19848,0)=" I $P($G(^DGCR(399,IBIFN,""U2"")),U,10) W !?3,""To change the defined Mammography Certification #, use Prov ID Maint."""
^XMB(3.9,55,2,19849,0)="""RTN"",""IBCEP8A"",90,0)"
^XMB(3.9,55,2,19850,0)=" W !"
^XMB(3.9,55,2,19851,0)="""RTN"",""IBCEP8A"",91,0)"
^XMB(3.9,55,2,19852,0)="MAMMODPX ;"
^XMB(3.9,55,2,19853,0)="""RTN"",""IBCEP8A"",92,0)"
^XMB(3.9,55,2,19854,0)=" Q"
^XMB(3.9,55,2,19855,0)="""RTN"",""IBCEP8A"",93,0)"
^XMB(3.9,55,2,19856,0)=" ;"
^XMB(3.9,55,2,19857,0)="""RTN"",""IBCEP8A"",94,0)"
^XMB(3.9,55,2,19858,0)="XRAY(IBIFN) ; Function determines if X-RAY type of service is on claim"
^XMB(3.9,55,2,19859,0)="""RTN"",""IBCEP8A"",95,0)"
^XMB(3.9,55,2,19860,0)=" ; Claim must be a HCFA-1500 claim form type"
^XMB(3.9,55,2,19861,0)="""RTN"",""IBCEP8A"",96,0)"
^XMB(3.9,55,2,19862,0)=" NEW XRAY,LN,IBXDATA"
^XMB(3.9,55,2,19863,0)="""RTN"",""IBCEP8A"",97,0)"
^XMB(3.9,55,2,19864,0)=" S XRAY=0"
^XMB(3.9,55,2,19865,0)="""RTN"",""IBCEP8A"",98,0)"
^XMB(3.9,55,2,19866,0)=" I $$FT^IBCEF(IBIFN)'=2 G XRAYX    ;hcfa 1500 form types only"
^XMB(3.9,55,2,19867,0)="""RTN"",""IBCEP8A"",99,0)"
^XMB(3.9,55,2,19868,0)=" D F^IBCEF(""N-HCFA 1500 SERVICES (PRINT)"",,,IBIFN)"
^XMB(3.9,55,2,19869,0)="""RTN"",""IBCEP8A"",100,0)"
^XMB(3.9,55,2,19870,0)=" S LN=0"
^XMB(3.9,55,2,19871,0)="""RTN"",""IBCEP8A"",101,0)"
^XMB(3.9,55,2,19872,0)=" F  S LN=$O(IBXDATA(LN)) Q:'LN  I $P(IBXDATA(LN),U,4)=4 S XRAY=1 Q"
^XMB(3.9,55,2,19873,0)="""RTN"",""IBCEP8A"",102,0)"
^XMB(3.9,55,2,19874,0)="XRAYX ;"
^XMB(3.9,55,2,19875,0)="""RTN"",""IBCEP8A"",103,0)"
^XMB(3.9,55,2,19876,0)=" Q XRAY"
^XMB(3.9,55,2,19877,0)="""RTN"",""IBCEP8A"",104,0)"
^XMB(3.9,55,2,19878,0)=" ;"
^XMB(3.9,55,2,19879,0)="""RTN"",""IBCEP8A"",105,0)"
^XMB(3.9,55,2,19880,0)="EIN(IBIFN) ; Function to return the EIN/tax ID for either the VA facility"
^XMB(3.9,55,2,19881,0)="""RTN"",""IBCEP8A"",106,0)"
^XMB(3.9,55,2,19882,0)=" ; or the non-VA facility.  Used for SUB-9."
^XMB(3.9,55,2,19883,0)="""RTN"",""IBCEP8A"",107,0)"
^XMB(3.9,55,2,19884,0)=" NEW ID,IBU2,NONVA"
^XMB(3.9,55,2,19885,0)="""RTN"",""IBCEP8A"",108,0)"
^XMB(3.9,55,2,19886,0)=" S ID="""",IBU2=$G(^DGCR(399,IBIFN,""U2""))"
^XMB(3.9,55,2,19887,0)="""RTN"",""IBCEP8A"",109,0)"
^XMB(3.9,55,2,19888,0)=" S NONVA=+$P(IBU2,U,10)                         ; non-VA facility ptr"
^XMB(3.9,55,2,19889,0)="""RTN"",""IBCEP8A"",110,0)"
^XMB(3.9,55,2,19890,0)=" I NONVA D  G EINX"
^XMB(3.9,55,2,19891,0)="""RTN"",""IBCEP8A"",111,0)"
^XMB(3.9,55,2,19892,0)=" . S ID=$P($G(^IBA(355.93,NONVA,0)),U,9)        ; ID# from file 355.93"
^XMB(3.9,55,2,19893,0)="""RTN"",""IBCEP8A"",112,0)"
^XMB(3.9,55,2,19894,0)=" . ;"
^XMB(3.9,55,2,19895,0)="""RTN"",""IBCEP8A"",113,0)"
^XMB(3.9,55,2,19896,0)=" . ; if not defined in file 355.93, then use legacy field# 234 in file"
^XMB(3.9,55,2,19897,0)="""RTN"",""IBCEP8A"",114,0)"
^XMB(3.9,55,2,19898,0)=" . ; 399 - non-va care id#.  See NONVAID^IBCEF72."
^XMB(3.9,55,2,19899,0)="""RTN"",""IBCEP8A"",115,0)"
^XMB(3.9,55,2,19900,0)=" . I ID="""",$P(IBU2,U,12)'="""" S ID=$P(IBU2,U,12)"
^XMB(3.9,55,2,19901,0)="""RTN"",""IBCEP8A"",116,0)"
^XMB(3.9,55,2,19902,0)=" . Q"
^XMB(3.9,55,2,19903,0)="""RTN"",""IBCEP8A"",117,0)"
^XMB(3.9,55,2,19904,0)=" ;"
^XMB(3.9,55,2,19905,0)="""RTN"",""IBCEP8A"",118,0)"
^XMB(3.9,55,2,19906,0)=" ; VA facility"
^XMB(3.9,55,2,19907,0)="""RTN"",""IBCEP8A"",119,0)"
^XMB(3.9,55,2,19908,0)=" S ID=$P($G(^IBE(350.9,1,1)),U,5)    ; Federal tax id from site params"
^XMB(3.9,55,2,19909,0)="""RTN"",""IBCEP8A"",120,0)"
^XMB(3.9,55,2,19910,0)="EINX ;"
^XMB(3.9,55,2,19911,0)="""RTN"",""IBCEP8A"",121,0)"
^XMB(3.9,55,2,19912,0)=" Q ID"
^XMB(3.9,55,2,19913,0)="""RTN"",""IBCEP8A"",122,0)"
^XMB(3.9,55,2,19914,0)=" ;"
^XMB(3.9,55,2,19915,0)="""RTN"",""IBCEP8A"",123,0)"
^XMB(3.9,55,2,19916,0)="BOX324(IBIFN,IBXSAVE,IBXDATA) ; Procedure which further defines and formats"
^XMB(3.9,55,2,19917,0)="""RTN"",""IBCEP8A"",124,0)"
^XMB(3.9,55,2,19918,0)=" ; form HCFA-1500, box 32, line 4."
^XMB(3.9,55,2,19919,0)="""RTN"",""IBCEP8A"",125,0)"
^XMB(3.9,55,2,19920,0)=" ; This is either the facility Tax ID or it is the mammography"
^XMB(3.9,55,2,19921,0)="""RTN"",""IBCEP8A"",126,0)"
^XMB(3.9,55,2,19922,0)=" ; certification number."
^XMB(3.9,55,2,19923,0)="""RTN"",""IBCEP8A"",127,0)"
^XMB(3.9,55,2,19924,0)=" ;  Input:  IBIFN, IBXSAVE array (pass by ref), IBXDATA (pass by ref)"
^XMB(3.9,55,2,19925,0)="""RTN"",""IBCEP8A"",128,0)"
^XMB(3.9,55,2,19926,0)=" ; Output:  IBXDATA (pass by ref)"
^XMB(3.9,55,2,19927,0)="""RTN"",""IBCEP8A"",129,0)"
^XMB(3.9,55,2,19928,0)=" ;"
^XMB(3.9,55,2,19929,0)="""RTN"",""IBCEP8A"",130,0)"
^XMB(3.9,55,2,19930,0)=" NEW IBZ"
^XMB(3.9,55,2,19931,0)="""RTN"",""IBCEP8A"",131,0)"
^XMB(3.9,55,2,19932,0)=" ;"
^XMB(3.9,55,2,19933,0)="""RTN"",""IBCEP8A"",132,0)"
^XMB(3.9,55,2,19934,0)=" ; retrieve the mammo# if it exists into variable IBZ"
^XMB(3.9,55,2,19935,0)="""RTN"",""IBCEP8A"",133,0)"
^XMB(3.9,55,2,19936,0)=" D F^IBCEF(""N-MAMMOGRAPHY CERT#"",""IBZ"",,IBIFN)"
^XMB(3.9,55,2,19937,0)="""RTN"",""IBCEP8A"",134,0)"
^XMB(3.9,55,2,19938,0)=" ;"
^XMB(3.9,55,2,19939,0)="""RTN"",""IBCEP8A"",135,0)"
^XMB(3.9,55,2,19940,0)=" ; If the claim is for the main VAMC and there is no mammo# then print"
^XMB(3.9,55,2,19941,0)="""RTN"",""IBCEP8A"",136,0)"
^XMB(3.9,55,2,19942,0)=" ; nothing here.  See 364.7 iens# 348, 319, 327 for similar"
^XMB(3.9,55,2,19943,0)="""RTN"",""IBCEP8A"",137,0)"
^XMB(3.9,55,2,19944,0)=" I '$G(IBXSAVE(""REMOTE"")),IBZ="""" KILL IBXDATA G BOX32X"
^XMB(3.9,55,2,19945,0)="""RTN"",""IBCEP8A"",138,0)"
^XMB(3.9,55,2,19946,0)=" ;"
^XMB(3.9,55,2,19947,0)="""RTN"",""IBCEP8A"",139,0)"
^XMB(3.9,55,2,19948,0)=" ; If the mammo# exists, then display that"
^XMB(3.9,55,2,19949,0)="""RTN"",""IBCEP8A"",140,0)"
^XMB(3.9,55,2,19950,0)=" I IBZ'="""" S IBXDATA=""Mammography Cert# ""_IBZ G BOX32X"
^XMB(3.9,55,2,19951,0)="""RTN"",""IBCEP8A"",141,0)"
^XMB(3.9,55,2,19952,0)=" ;"
^XMB(3.9,55,2,19953,0)="""RTN"",""IBCEP8A"",142,0)"
^XMB(3.9,55,2,19954,0)=" ; Otherwise, display the facility tax id"
^XMB(3.9,55,2,19955,0)="""RTN"",""IBCEP8A"",143,0)"
^XMB(3.9,55,2,19956,0)=" S IBXDATA=""FAC. ID:""_$G(IBXDATA)"
^XMB(3.9,55,2,19957,0)="""RTN"",""IBCEP8A"",144,0)"
^XMB(3.9,55,2,19958,0)="BOX32X ;"
^XMB(3.9,55,2,19959,0)="""RTN"",""IBCEP8A"",145,0)"
^XMB(3.9,55,2,19960,0)=" KILL IBXSAVE(""OFAC""),IBXSAVE(""REMOTE"")   ; cleanup"
^XMB(3.9,55,2,19961,0)="""RTN"",""IBCEP8A"",146,0)"
^XMB(3.9,55,2,19962,0)=" Q"
^XMB(3.9,55,2,19963,0)="""RTN"",""IBCEP8A"",147,0)"
^XMB(3.9,55,2,19964,0)=" ;"
^XMB(3.9,55,2,19965,0)="""RTN"",""IBCEP8A"",148,0)"
^XMB(3.9,55,2,19966,0)="SUB1OK(IBIFN) ; This function determines if the claim meets the criteria"
^XMB(3.9,55,2,19967,0)="""RTN"",""IBCEP8A"",149,0)"
^XMB(3.9,55,2,19968,0)=" ; for being eligible to output a SUB1 segment which is for professional"
^XMB(3.9,55,2,19969,0)="""RTN"",""IBCEP8A"",150,0)"
^XMB(3.9,55,2,19970,0)=" ; purchased services.  Must be HCFA, non-VA facility, and Fee Basis."
^XMB(3.9,55,2,19971,0)="""RTN"",""IBCEP8A"",151,0)"
^XMB(3.9,55,2,19972,0)=" ;"
^XMB(3.9,55,2,19973,0)="""RTN"",""IBCEP8A"",152,0)"
^XMB(3.9,55,2,19974,0)=" NEW OK,IBU2"
^XMB(3.9,55,2,19975,0)="""RTN"",""IBCEP8A"",153,0)"
^XMB(3.9,55,2,19976,0)=" S OK=0,IBU2=$G(^DGCR(399,IBIFN,""U2""))"
^XMB(3.9,55,2,19977,0)="""RTN"",""IBCEP8A"",154,0)"
^XMB(3.9,55,2,19978,0)=" ;"
^XMB(3.9,55,2,19979,0)="""RTN"",""IBCEP8A"",155,0)"
^XMB(3.9,55,2,19980,0)=" I $$FT^IBCEF(IBIFN)'=2 G SX                      ; must be hcfa-1500"
^XMB(3.9,55,2,19981,0)="""RTN"",""IBCEP8A"",156,0)"
^XMB(3.9,55,2,19982,0)=" I '$P(IBU2,U,10) G SX                            ; must be non-VA fac"
^XMB(3.9,55,2,19983,0)="""RTN"",""IBCEP8A"",157,0)"
^XMB(3.9,55,2,19984,0)=" I '$F("".1.2."","".""_$P(IBU2,U,11)_""."") G SX        ; must be FEE services"
^XMB(3.9,55,2,19985,0)="""RTN"",""IBCEP8A"",158,0)"
^XMB(3.9,55,2,19986,0)=" ;"
^XMB(3.9,55,2,19987,0)="""RTN"",""IBCEP8A"",159,0)"
^XMB(3.9,55,2,19988,0)=" S OK=1    ; all checks passed, OK for SUB1 output"
^XMB(3.9,55,2,19989,0)="""RTN"",""IBCEP8A"",160,0)"
^XMB(3.9,55,2,19990,0)="SX ;"
^XMB(3.9,55,2,19991,0)="""RTN"",""IBCEP8A"",161,0)"
^XMB(3.9,55,2,19992,0)=" Q OK"
^XMB(3.9,55,2,19993,0)="""RTN"",""IBCEP8A"",162,0)"
^XMB(3.9,55,2,19994,0)=" ;"
^XMB(3.9,55,2,19995,0)="""RTN"",""IBCEP9"")"
^XMB(3.9,55,2,19996,0)="0^76^B73023776^B82786820"
^XMB(3.9,55,2,19997,0)="""RTN"",""IBCEP9"",1,0)"
^XMB(3.9,55,2,19998,0)="IBCEP9 ;ALB/TMP - MASS UPDATE OF PROVIDER ID FROM FILE OR MANUAL ;08-NOV-00"
^XMB(3.9,55,2,19999,0)="""RTN"",""IBCEP9"",2,0)"
^XMB(3.9,55,2,20000,0)=" ;;2.0;INTEGRATED BILLING;**137,200,320**;21-MAR-94"
^XMB(3.9,55,2,20001,0)="""RTN"",""IBCEP9"",3,0)"
^XMB(3.9,55,2,20002,0)=" ;"
^XMB(3.9,55,2,20003,0)="""RTN"",""IBCEP9"",4,0)"
^XMB(3.9,55,2,20004,0)="EN ; Get parameters and mass input provider id by ins co"
^XMB(3.9,55,2,20005,0)="""RTN"",""IBCEP9"",5,0)"
^XMB(3.9,55,2,20006,0)=" N A,DA,DIC,DIE,DIK,DIR,DR,POP,Q,Q0,X,Y,Y3,Z,Z0"
^XMB(3.9,55,2,20007,0)="""RTN"",""IBCEP9"",6,0)"
^XMB(3.9,55,2,20008,0)=" N IBCND,IBCU,IBCT,IBDELIM,IBFILE,IBFILEN,IBFILEP,IBFORMAT"
^XMB(3.9,55,2,20009,0)="""RTN"",""IBCEP9"",7,0)"
^XMB(3.9,55,2,20010,0)=" N IBFT,IBINFILE,IBINS,IBL,IBN,IBOK,IBOPEN,IBPOS,IBPT,IBQUIT"
^XMB(3.9,55,2,20011,0)="""RTN"",""IBCEP9"",8,0)"
^XMB(3.9,55,2,20012,0)=" N IBQUIT1,IBQUOTES,IBRA,IBS,IBSA,IBSTART,IBSRC,IBVERIFY,IBVNAME"
^XMB(3.9,55,2,20013,0)="""RTN"",""IBCEP9"",9,0)"
^XMB(3.9,55,2,20014,0)=" K ^TMP(""IBPID_IN"",$J),^TMP(""IBPID-ERR"",$J),^TMP(""IBPID"",$J)"
^XMB(3.9,55,2,20015,0)="""RTN"",""IBCEP9"",10,0)"
^XMB(3.9,55,2,20016,0)=" S IBQUIT=0"
^XMB(3.9,55,2,20017,0)="""RTN"",""IBCEP9"",11,0)"
^XMB(3.9,55,2,20018,0)="1 ; Select INSURANCE COMPANY NAME:"
^XMB(3.9,55,2,20019,0)="""RTN"",""IBCEP9"",12,0)"
^XMB(3.9,55,2,20020,0)=" G:IBQUIT ENQ"
^XMB(3.9,55,2,20021,0)="""RTN"",""IBCEP9"",13,0)"
^XMB(3.9,55,2,20022,0)=" S IBQUIT1=0"
^XMB(3.9,55,2,20023,0)="""RTN"",""IBCEP9"",14,0)"
^XMB(3.9,55,2,20024,0)=" S DIC(""S"")=""I $P($G(^DIC(36,+Y,3)),U,13)'=""""C"""""""
^XMB(3.9,55,2,20025,0)="""RTN"",""IBCEP9"",15,0)"
^XMB(3.9,55,2,20026,0)=" S DIC(0)=""AEMQ"",DIC=""^DIC(36,"" D ^DIC"
^XMB(3.9,55,2,20027,0)="""RTN"",""IBCEP9"",16,0)"
^XMB(3.9,55,2,20028,0)=" I Y'>0 G ENQ"
^XMB(3.9,55,2,20029,0)="""RTN"",""IBCEP9"",17,0)"
^XMB(3.9,55,2,20030,0)=" S IBINS=+Y"
^XMB(3.9,55,2,20031,0)="""RTN"",""IBCEP9"",18,0)"
^XMB(3.9,55,2,20032,0)=" S IBQUIT=$$LOCK^IBCEP9B(IBINS)"
^XMB(3.9,55,2,20033,0)="""RTN"",""IBCEP9"",19,0)"
^XMB(3.9,55,2,20034,0)=" I IBQUIT,$G(IBINS) D  G 1"
^XMB(3.9,55,2,20035,0)="""RTN"",""IBCEP9"",20,0)"
^XMB(3.9,55,2,20036,0)=" . D UNLOCK^IBCEP9B(IBINS)"
^XMB(3.9,55,2,20037,0)="""RTN"",""IBCEP9"",21,0)"
^XMB(3.9,55,2,20038,0)=" . S IBINS="""",IBQUIT=0"
^XMB(3.9,55,2,20039,0)="""RTN"",""IBCEP9"",22,0)"
^XMB(3.9,55,2,20040,0)=" . W !!,""Unable to lock all associated insurance companies."",!,""Please try again later."",!!"
^XMB(3.9,55,2,20041,0)="""RTN"",""IBCEP9"",23,0)"
^XMB(3.9,55,2,20042,0)=" ;"
^XMB(3.9,55,2,20043,0)="""RTN"",""IBCEP9"",24,0)"
^XMB(3.9,55,2,20044,0)="2 ; get data source"
^XMB(3.9,55,2,20045,0)="""RTN"",""IBCEP9"",25,0)"
^XMB(3.9,55,2,20046,0)=" S IBQUIT1=0"
^XMB(3.9,55,2,20047,0)="""RTN"",""IBCEP9"",26,0)"
^XMB(3.9,55,2,20048,0)=" S DIR(0)=""SA^M:Manual Entry;F:Entry from file"""
^XMB(3.9,55,2,20049,0)="""RTN"",""IBCEP9"",27,0)"
^XMB(3.9,55,2,20050,0)=" S DIR(""A"")=""PROVIDER ID DATA SOURCE: "",DIR(""B"")=""Manual Entry"""
^XMB(3.9,55,2,20051,0)="""RTN"",""IBCEP9"",28,0)"
^XMB(3.9,55,2,20052,0)=" S Y=$$DIR(.DIR,.IBQUIT,.IBQUIT1)"
^XMB(3.9,55,2,20053,0)="""RTN"",""IBCEP9"",29,0)"
^XMB(3.9,55,2,20054,0)=" I Y=""""!(""FM""'[Y)!IBQUIT1 D UNLOCK^IBCEP9B(IBINS) G 1"
^XMB(3.9,55,2,20055,0)="""RTN"",""IBCEP9"",30,0)"
^XMB(3.9,55,2,20056,0)=" S IBSRC=Y,IBVERIFY=0"
^XMB(3.9,55,2,20057,0)="""RTN"",""IBCEP9"",31,0)"
^XMB(3.9,55,2,20058,0)=" S IBVERIFY=(Y=""M"")"
^XMB(3.9,55,2,20059,0)="""RTN"",""IBCEP9"",32,0)"
^XMB(3.9,55,2,20060,0)=" I 'IBVERIFY D  G:IBQUIT ENQ G:IBQUIT 2"
^XMB(3.9,55,2,20061,0)="""RTN"",""IBCEP9"",33,0)"
^XMB(3.9,55,2,20062,0)=" . S DIR(0)=""YA"",DIR(""A"")=""DO YOU WANT TO VIEW/VERIFY EACH ENTRY BEFORE IT GETS UPDATED?: """
^XMB(3.9,55,2,20063,0)="""RTN"",""IBCEP9"",34,0)"
^XMB(3.9,55,2,20064,0)=" . S Y=$$DIR(.DIR,.IBQUIT,.IBQUIT1)"
^XMB(3.9,55,2,20065,0)="""RTN"",""IBCEP9"",35,0)"
^XMB(3.9,55,2,20066,0)=" . I Y=1 S IBVERIFY=1"
^XMB(3.9,55,2,20067,0)="""RTN"",""IBCEP9"",36,0)"
^XMB(3.9,55,2,20068,0)=" ;"
^XMB(3.9,55,2,20069,0)="""RTN"",""IBCEP9"",37,0)"
^XMB(3.9,55,2,20070,0)=" G:IBSRC=""M"" 4"
^XMB(3.9,55,2,20071,0)="""RTN"",""IBCEP9"",38,0)"
^XMB(3.9,55,2,20072,0)="21 ; get parameters for file type"
^XMB(3.9,55,2,20073,0)="""RTN"",""IBCEP9"",39,0)"
^XMB(3.9,55,2,20074,0)=" G:IBQUIT ENQ"
^XMB(3.9,55,2,20075,0)="""RTN"",""IBCEP9"",40,0)"
^XMB(3.9,55,2,20076,0)=" S IBQUIT1=0"
^XMB(3.9,55,2,20077,0)="""RTN"",""IBCEP9"",41,0)"
^XMB(3.9,55,2,20078,0)=" S DIR(0)=""SA^D:DELIMITED;F:FIXED LENGTH"",DIR(""B"")=""D"",DIR(""A"")=""SELECT FILE FORMAT: """
^XMB(3.9,55,2,20079,0)="""RTN"",""IBCEP9"",42,0)"
^XMB(3.9,55,2,20080,0)=" S Y=$$DIR(.DIR,.IBQUIT,.IBQUIT1)"
^XMB(3.9,55,2,20081,0)="""RTN"",""IBCEP9"",43,0)"
^XMB(3.9,55,2,20082,0)=" I IBQUIT1 G 2"
^XMB(3.9,55,2,20083,0)="""RTN"",""IBCEP9"",44,0)"
^XMB(3.9,55,2,20084,0)=" S IBPOS=Y"
^XMB(3.9,55,2,20085,0)="""RTN"",""IBCEP9"",45,0)"
^XMB(3.9,55,2,20086,0)=" I IBPOS=""D"" D  G:IBQUIT1 21"
^XMB(3.9,55,2,20087,0)="""RTN"",""IBCEP9"",46,0)"
^XMB(3.9,55,2,20088,0)=" . S DIR(0)=""FA^1:1"",DIR(""B"")="","",DIR(""A"")=""DELIMITER CHARACTER: """
^XMB(3.9,55,2,20089,0)="""RTN"",""IBCEP9"",47,0)"
^XMB(3.9,55,2,20090,0)=" . S Y=$$DIR(.DIR,.IBQUIT,.IBQUIT1)"
^XMB(3.9,55,2,20091,0)="""RTN"",""IBCEP9"",48,0)"
^XMB(3.9,55,2,20092,0)=" . Q:IBQUIT1"
^XMB(3.9,55,2,20093,0)="""RTN"",""IBCEP9"",49,0)"
^XMB(3.9,55,2,20094,0)=" . S $P(IBPOS,U,2)=Y"
^XMB(3.9,55,2,20095,0)="""RTN"",""IBCEP9"",50,0)"
^XMB(3.9,55,2,20096,0)=" . S DIR(0)=""YA"",DIR(""B"")=""NO"",DIR(""A"")=""ARE QUOTES WITHIN A FIELD DOUBLE QUOTED?: """
^XMB(3.9,55,2,20097,0)="""RTN"",""IBCEP9"",51,0)"
^XMB(3.9,55,2,20098,0)=" . S Y=$$DIR(.DIR,.IBQUIT,.IBQUIT1,,,1)"
^XMB(3.9,55,2,20099,0)="""RTN"",""IBCEP9"",52,0)"
^XMB(3.9,55,2,20100,0)=" . Q:IBQUIT1"
^XMB(3.9,55,2,20101,0)="""RTN"",""IBCEP9"",53,0)"
^XMB(3.9,55,2,20102,0)=" . S $P(IBPOS,U,3)=Y"
^XMB(3.9,55,2,20103,0)="""RTN"",""IBCEP9"",54,0)"
^XMB(3.9,55,2,20104,0)="3 ; select external file name"
^XMB(3.9,55,2,20105,0)="""RTN"",""IBCEP9"",55,0)"
^XMB(3.9,55,2,20106,0)=" G:IBQUIT ENQ"
^XMB(3.9,55,2,20107,0)="""RTN"",""IBCEP9"",56,0)"
^XMB(3.9,55,2,20108,0)=" S IBQUIT1=0"
^XMB(3.9,55,2,20109,0)="""RTN"",""IBCEP9"",57,0)"
^XMB(3.9,55,2,20110,0)=" G:IBSRC=""M"" 2"
^XMB(3.9,55,2,20111,0)="""RTN"",""IBCEP9"",58,0)"
^XMB(3.9,55,2,20112,0)=" S DIR(0)=""FA^1:60"""
^XMB(3.9,55,2,20113,0)="""RTN"",""IBCEP9"",59,0)"
^XMB(3.9,55,2,20114,0)=" S DIR(""A"")=""FILE NAME PATH: "",DIR(""B"")=$$PWD^%ZISH"
^XMB(3.9,55,2,20115,0)="""RTN"",""IBCEP9"",60,0)"
^XMB(3.9,55,2,20116,0)=" S Y=$$DIR(.DIR,.IBQUIT,.IBQUIT1)"
^XMB(3.9,55,2,20117,0)="""RTN"",""IBCEP9"",61,0)"
^XMB(3.9,55,2,20118,0)=" G:IBQUIT1 2"
^XMB(3.9,55,2,20119,0)="""RTN"",""IBCEP9"",62,0)"
^XMB(3.9,55,2,20120,0)=" S IBFILEP=$P(Y,U)"
^XMB(3.9,55,2,20121,0)="""RTN"",""IBCEP9"",63,0)"
^XMB(3.9,55,2,20122,0)=" S DIR(0)=""FA^1:60"""
^XMB(3.9,55,2,20123,0)="""RTN"",""IBCEP9"",64,0)"
^XMB(3.9,55,2,20124,0)=" S DIR(""A"")=""FILE NAME: """
^XMB(3.9,55,2,20125,0)="""RTN"",""IBCEP9"",65,0)"
^XMB(3.9,55,2,20126,0)=" S IBSA(""*"")="""""
^XMB(3.9,55,2,20127,0)="""RTN"",""IBCEP9"",66,0)"
^XMB(3.9,55,2,20128,0)=" S DIR(""?"")=""^S Y3=$$LIST^%ZISH(IBFILEP,""""IBSA"""",""""IBRA"""") I Y3=1 S Y3="""""""" F  S Y3=$O(IBRA(Y3)) Q:Y3=""""""""  W !,Y3"""
^XMB(3.9,55,2,20129,0)="""RTN"",""IBCEP9"",67,0)"
^XMB(3.9,55,2,20130,0)=" S Y=$$DIR(.DIR,.IBQUIT,.IBQUIT1,,,1)"
^XMB(3.9,55,2,20131,0)="""RTN"",""IBCEP9"",68,0)"
^XMB(3.9,55,2,20132,0)=" G:IBQUIT1 2"
^XMB(3.9,55,2,20133,0)="""RTN"",""IBCEP9"",69,0)"
^XMB(3.9,55,2,20134,0)=" S IBFILEN=$P(Y,U)"
^XMB(3.9,55,2,20135,0)="""RTN"",""IBCEP9"",70,0)"
^XMB(3.9,55,2,20136,0)=" K ^TMP($J),IBRA,Y3"
^XMB(3.9,55,2,20137,0)="""RTN"",""IBCEP9"",71,0)"
^XMB(3.9,55,2,20138,0)=" N Y S Y=$$FTG^%ZISH(IBFILEP,IBFILEN,$NA(^TMP($J,1)),2)"
^XMB(3.9,55,2,20139,0)="""RTN"",""IBCEP9"",72,0)"
^XMB(3.9,55,2,20140,0)=" I Y=0 W !,""FILE "",IBFILEP,IBFILEN,"" COULD NOT BE FOUND OR COULD NOT BE OPENED"",! G 3"
^XMB(3.9,55,2,20141,0)="""RTN"",""IBCEP9"",73,0)"
^XMB(3.9,55,2,20142,0)=" S IBFILE=IO"
^XMB(3.9,55,2,20143,0)="""RTN"",""IBCEP9"",74,0)"
^XMB(3.9,55,2,20144,0)="4 ; select Provider ID Type"
^XMB(3.9,55,2,20145,0)="""RTN"",""IBCEP9"",75,0)"
^XMB(3.9,55,2,20146,0)=" G:IBQUIT ENQ"
^XMB(3.9,55,2,20147,0)="""RTN"",""IBCEP9"",76,0)"
^XMB(3.9,55,2,20148,0)=" S IBQUIT1=0"
^XMB(3.9,55,2,20149,0)="""RTN"",""IBCEP9"",77,0)"
^XMB(3.9,55,2,20150,0)=" S DIR(0)=""355.9,.06"""
^XMB(3.9,55,2,20151,0)="""RTN"",""IBCEP9"",78,0)"
^XMB(3.9,55,2,20152,0)=" I IBSRC=""M"" S Z=$P($G(^IBE(355.97,+$$PPTYP^IBCEP0(IBINS),0)),U) S:Z'="""" DIR(""B"")=Z"
^XMB(3.9,55,2,20153,0)="""RTN"",""IBCEP9"",79,0)"
^XMB(3.9,55,2,20154,0)=" S Y=$$DIR(.DIR,.IBQUIT,.IBQUIT1)"
^XMB(3.9,55,2,20155,0)="""RTN"",""IBCEP9"",80,0)"
^XMB(3.9,55,2,20156,0)=" G:Y=""""!IBQUIT1 3"
^XMB(3.9,55,2,20157,0)="""RTN"",""IBCEP9"",81,0)"
^XMB(3.9,55,2,20158,0)=" S IBPTYP=$P(Y,U)"
^XMB(3.9,55,2,20159,0)="""RTN"",""IBCEP9"",82,0)"
^XMB(3.9,55,2,20160,0)="5 ; select Forms Type"
^XMB(3.9,55,2,20161,0)="""RTN"",""IBCEP9"",83,0)"
^XMB(3.9,55,2,20162,0)=" G:IBQUIT ENQ"
^XMB(3.9,55,2,20163,0)="""RTN"",""IBCEP9"",84,0)"
^XMB(3.9,55,2,20164,0)=" S IBQUIT1=0"
^XMB(3.9,55,2,20165,0)="""RTN"",""IBCEP9"",85,0)"
^XMB(3.9,55,2,20166,0)=" S DIR(0)=""355.9,.04r"",DIR(""B"")=""BOTH UB92 AND HCFA 1500 FORMS"""
^XMB(3.9,55,2,20167,0)="""RTN"",""IBCEP9"",86,0)"
^XMB(3.9,55,2,20168,0)=" S Y=$$DIR(.DIR,.IBQUIT,.IBQUIT1)"
^XMB(3.9,55,2,20169,0)="""RTN"",""IBCEP9"",87,0)"
^XMB(3.9,55,2,20170,0)=" G:IBQUIT1 4"
^XMB(3.9,55,2,20171,0)="""RTN"",""IBCEP9"",88,0)"
^XMB(3.9,55,2,20172,0)=" I Y=""""!(""012""'[Y) G 5"
^XMB(3.9,55,2,20173,0)="""RTN"",""IBCEP9"",89,0)"
^XMB(3.9,55,2,20174,0)=" S IBFT=$P(Y,U)"
^XMB(3.9,55,2,20175,0)="""RTN"",""IBCEP9"",90,0)"
^XMB(3.9,55,2,20176,0)="6 ; select Bill Care Type"
^XMB(3.9,55,2,20177,0)="""RTN"",""IBCEP9"",91,0)"
^XMB(3.9,55,2,20178,0)=" G:IBQUIT ENQ"
^XMB(3.9,55,2,20179,0)="""RTN"",""IBCEP9"",92,0)"
^XMB(3.9,55,2,20180,0)=" S IBQUIT1=0"
^XMB(3.9,55,2,20181,0)="""RTN"",""IBCEP9"",93,0)"
^XMB(3.9,55,2,20182,0)=" S DIR(0)=""355.9,.05r"",DIR(""B"")=""BOTH INPATIENT AND OUTPATIENT"""
^XMB(3.9,55,2,20183,0)="""RTN"",""IBCEP9"",94,0)"
^XMB(3.9,55,2,20184,0)=" S Y=$$DIR(.DIR,.IBQUIT,.IBQUIT1)"
^XMB(3.9,55,2,20185,0)="""RTN"",""IBCEP9"",95,0)"
^XMB(3.9,55,2,20186,0)=" G:IBQUIT1 5"
^XMB(3.9,55,2,20187,0)="""RTN"",""IBCEP9"",96,0)"
^XMB(3.9,55,2,20188,0)=" I Y=""""!(""0123""'[$P(Y,U)) G 6"
^XMB(3.9,55,2,20189,0)="""RTN"",""IBCEP9"",97,0)"
^XMB(3.9,55,2,20190,0)=" S IBCT=$P(Y,U)"
^XMB(3.9,55,2,20191,0)="""RTN"",""IBCEP9"",98,0)"
^XMB(3.9,55,2,20192,0)=" ;"
^XMB(3.9,55,2,20193,0)="""RTN"",""IBCEP9"",99,0)"
^XMB(3.9,55,2,20194,0)=" S IBCND=$$CAREUN^IBCEP3(IBINS,IBPTYP,IBFT,IBCT,IBCT=3)"
^XMB(3.9,55,2,20195,0)="""RTN"",""IBCEP9"",100,0)"
^XMB(3.9,55,2,20196,0)="7 ; get Care Unit"
^XMB(3.9,55,2,20197,0)="""RTN"",""IBCEP9"",101,0)"
^XMB(3.9,55,2,20198,0)=" G:IBQUIT ENQ"
^XMB(3.9,55,2,20199,0)="""RTN"",""IBCEP9"",102,0)"
^XMB(3.9,55,2,20200,0)=" S IBQUIT1=0"
^XMB(3.9,55,2,20201,0)="""RTN"",""IBCEP9"",103,0)"
^XMB(3.9,55,2,20202,0)=" I IBCND D  G:IBQUIT1 6"
^XMB(3.9,55,2,20203,0)="""RTN"",""IBCEP9"",104,0)"
^XMB(3.9,55,2,20204,0)=" . S DIR(0)=""355.9,.03O"""
^XMB(3.9,55,2,20205,0)="""RTN"",""IBCEP9"",105,0)"
^XMB(3.9,55,2,20206,0)=" . S Y=$$DIR(.DIR,.IBQUIT,.IBQUIT1)"
^XMB(3.9,55,2,20207,0)="""RTN"",""IBCEP9"",106,0)"
^XMB(3.9,55,2,20208,0)=" . Q:IBQUIT1"
^XMB(3.9,55,2,20209,0)="""RTN"",""IBCEP9"",107,0)"
^XMB(3.9,55,2,20210,0)=" . S IBCU=$P(Y,U)"
^XMB(3.9,55,2,20211,0)="""RTN"",""IBCEP9"",108,0)"
^XMB(3.9,55,2,20212,0)=" . I IBCU="""" W !!,$J("""",22),""***** WARNING *****"",!,"" YOU WILL NEED TO MANUALLY ENTER THE CARE UNIT FOR EACH PROVIDER"",!!"
^XMB(3.9,55,2,20213,0)="""RTN"",""IBCEP9"",109,0)"
^XMB(3.9,55,2,20214,0)=" ;"
^XMB(3.9,55,2,20215,0)="""RTN"",""IBCEP9"",110,0)"
^XMB(3.9,55,2,20216,0)=" ; Manual entry to get providers from VistA"
^XMB(3.9,55,2,20217,0)="""RTN"",""IBCEP9"",111,0)"
^XMB(3.9,55,2,20218,0)=" I IBSRC=""M"" D MANUAL^IBCEP9B G:IBQUIT1 6"
^XMB(3.9,55,2,20219,0)="""RTN"",""IBCEP9"",112,0)"
^XMB(3.9,55,2,20220,0)=" ; For 'OTHER' files ask position/length or delimiter/piece for data"
^XMB(3.9,55,2,20221,0)="""RTN"",""IBCEP9"",113,0)"
^XMB(3.9,55,2,20222,0)=" I IBSRC=""F"" D  I IBQUIT1 G:'IBCND 6 G 7"
^XMB(3.9,55,2,20223,0)="""RTN"",""IBCEP9"",114,0)"
^XMB(3.9,55,2,20224,0)=" . F Z=""PROV. SSN^SSN^15^1"",""PROV. NAME^NAM^30"",""PROV. HCFA ID^PROF_ID^15"",""PROV. UB-92 ID^INST_ID^15"" D  Q:IBQUIT1"
^XMB(3.9,55,2,20225,0)="""RTN"",""IBCEP9"",115,0)"
^XMB(3.9,55,2,20226,0)=" .. I $P(IBPOS,U)'=""D"" D"
^XMB(3.9,55,2,20227,0)="""RTN"",""IBCEP9"",116,0)"
^XMB(3.9,55,2,20228,0)=" ... N X"
^XMB(3.9,55,2,20229,0)="""RTN"",""IBCEP9"",117,0)"
^XMB(3.9,55,2,20230,0)=" ... I IBFT=0!(IBFT=1) Q:Z[""PROF_ID""  I Z[""INST_ID"" S $P(Z,U)=""PROV. ID"""
^XMB(3.9,55,2,20231,0)="""RTN"",""IBCEP9"",118,0)"
^XMB(3.9,55,2,20232,0)=" ... I IBFT=2 Q:Z[""INST_ID"""
^XMB(3.9,55,2,20233,0)="""RTN"",""IBCEP9"",119,0)"
^XMB(3.9,55,2,20234,0)=" ... S DIR(""A"")=""START POSITION OF ""_$P(Z,U)_"" FIELD: """
^XMB(3.9,55,2,20235,0)="""RTN"",""IBCEP9"",120,0)"
^XMB(3.9,55,2,20236,0)=" ... S DIR(0)=""NA""_$S($P(Z,U,4)!($P(Z,U)[""PROV. ID"")!($P(Z,U)[""_ID""):"""",1:""O"")_""^1:250"""
^XMB(3.9,55,2,20237,0)="""RTN"",""IBCEP9"",121,0)"
^XMB(3.9,55,2,20238,0)=" ... W ! S X=$$DIR1^IBCEP9B(.DIR,Z,.IBQUIT,.IBQUIT1)"
^XMB(3.9,55,2,20239,0)="""RTN"",""IBCEP9"",122,0)"
^XMB(3.9,55,2,20240,0)=" ... Q:IBQUIT1"
^XMB(3.9,55,2,20241,0)="""RTN"",""IBCEP9"",123,0)"
^XMB(3.9,55,2,20242,0)=" ... I X>0 D"
^XMB(3.9,55,2,20243,0)="""RTN"",""IBCEP9"",124,0)"
^XMB(3.9,55,2,20244,0)=" .... S IBPOS($P(Z,U,2))=X"
^XMB(3.9,55,2,20245,0)="""RTN"",""IBCEP9"",125,0)"
^XMB(3.9,55,2,20246,0)=" .... S DIR(""A"")=""LENGTH OF ""_$P(Z,U)_"" FIELD: """
^XMB(3.9,55,2,20247,0)="""RTN"",""IBCEP9"",126,0)"
^XMB(3.9,55,2,20248,0)=" .... S DIR(0)=""NA""_$S($P(Z,U,3):""^1:""_$P(Z,U,3),1:"""")"
^XMB(3.9,55,2,20249,0)="""RTN"",""IBCEP9"",127,0)"
^XMB(3.9,55,2,20250,0)=" .... S X=$$DIR1^IBCEP9B(.DIR,Z,.IBQUIT,.IBQUIT1)"
^XMB(3.9,55,2,20251,0)="""RTN"",""IBCEP9"",128,0)"
^XMB(3.9,55,2,20252,0)=" .... Q:IBQUIT1"
^XMB(3.9,55,2,20253,0)="""RTN"",""IBCEP9"",129,0)"
^XMB(3.9,55,2,20254,0)=" .... S $P(IBPOS($P(Z,U,2)),U,2)=IBPOS($P(Z,U,2))+X-1"
^XMB(3.9,55,2,20255,0)="""RTN"",""IBCEP9"",130,0)"
^XMB(3.9,55,2,20256,0)=" .. ;"
^XMB(3.9,55,2,20257,0)="""RTN"",""IBCEP9"",131,0)"
^XMB(3.9,55,2,20258,0)=" .. I $P(IBPOS,U)=""D"" D"
^XMB(3.9,55,2,20259,0)="""RTN"",""IBCEP9"",132,0)"
^XMB(3.9,55,2,20260,0)=" ... I IBFT=0!(IBFT=1) Q:Z[""PROF_ID""  I Z[""INST_ID"" S $P(Z,U)=""PROV. ID"""
^XMB(3.9,55,2,20261,0)="""RTN"",""IBCEP9"",133,0)"
^XMB(3.9,55,2,20262,0)=" ... I IBFT=2 Q:Z[""INST_ID"""
^XMB(3.9,55,2,20263,0)="""RTN"",""IBCEP9"",134,0)"
^XMB(3.9,55,2,20264,0)=" ... W ! S DIR(""A"")=""STARTING '""_$P(IBPOS,U,2)_""' PIECE # OF ""_$P(Z,U)_"" FIELD: """
^XMB(3.9,55,2,20265,0)="""RTN"",""IBCEP9"",135,0)"
^XMB(3.9,55,2,20266,0)=" ... S DIR(0)=""NA""_$S($P(Z,U,4)!($P(Z,U)[""PROV. ID"")!($P(Z,U)[""_ID""):"""",1:""O"")"
^XMB(3.9,55,2,20267,0)="""RTN"",""IBCEP9"",136,0)"
^XMB(3.9,55,2,20268,0)=" ... S X=$$DIR1^IBCEP9B(.DIR,Z,.IBQUIT,.IBQUIT1)"
^XMB(3.9,55,2,20269,0)="""RTN"",""IBCEP9"",137,0)"
^XMB(3.9,55,2,20270,0)=" ... Q:IBQUIT1"
^XMB(3.9,55,2,20271,0)="""RTN"",""IBCEP9"",138,0)"
^XMB(3.9,55,2,20272,0)=" ... I X>0 D"
^XMB(3.9,55,2,20273,0)="""RTN"",""IBCEP9"",139,0)"
^XMB(3.9,55,2,20274,0)=" .... S (DIR(""B""),IBPOS($P(Z,U,2)))=X"
^XMB(3.9,55,2,20275,0)="""RTN"",""IBCEP9"",140,0)"
^XMB(3.9,55,2,20276,0)=" .... S DIR(""A"")=""ENDING '""_$P(IBPOS,U,2)_""' PIECE # OF ""_$P(Z,U)_"" FIELD: """
^XMB(3.9,55,2,20277,0)="""RTN"",""IBCEP9"",141,0)"
^XMB(3.9,55,2,20278,0)=" .... S DIR(0)=""NA""_$S($P(Z,U,4):"""",1:""O"")_U_(IBPOS($P(Z,U,2)))_"":99"""
^XMB(3.9,55,2,20279,0)="""RTN"",""IBCEP9"",142,0)"
^XMB(3.9,55,2,20280,0)=" .... S DIR(""?"")=""JUST PRESS THE ENTER KEY IF THIS FIELD IS CONTAINED IN ONLY 1 PIECE"""
^XMB(3.9,55,2,20281,0)="""RTN"",""IBCEP9"",143,0)"
^XMB(3.9,55,2,20282,0)=" .... S Y=$$DIR1^IBCEP9B(.DIR,Z,.IBQUIT,.IBQUIT1)"
^XMB(3.9,55,2,20283,0)="""RTN"",""IBCEP9"",144,0)"
^XMB(3.9,55,2,20284,0)=" .... Q:IBQUIT1"
^XMB(3.9,55,2,20285,0)="""RTN"",""IBCEP9"",145,0)"
^XMB(3.9,55,2,20286,0)=" .... W ! I Y>0,Y'=IBPOS($P(Z,U,2)) S $P(IBPOS($P(Z,U,2)),U,2)=Y"
^XMB(3.9,55,2,20287,0)="""RTN"",""IBCEP9"",146,0)"
^XMB(3.9,55,2,20288,0)=" .. ;"
^XMB(3.9,55,2,20289,0)="""RTN"",""IBCEP9"",147,0)"
^XMB(3.9,55,2,20290,0)=" . Q:IBQUIT1"
^XMB(3.9,55,2,20291,0)="""RTN"",""IBCEP9"",148,0)"
^XMB(3.9,55,2,20292,0)=" . D READFILE^IBCEP9B"
^XMB(3.9,55,2,20293,0)="""RTN"",""IBCEP9"",149,0)"
^XMB(3.9,55,2,20294,0)=" . ;"
^XMB(3.9,55,2,20295,0)="""RTN"",""IBCEP9"",150,0)"
^XMB(3.9,55,2,20296,0)="P1 ;"
^XMB(3.9,55,2,20297,0)="""RTN"",""IBCEP9"",151,0)"
^XMB(3.9,55,2,20298,0)=" S Z="""" F  S Z=$O(^TMP(""IBPID_IN"",$J,Z)) Q:Z=""""  S Z0=0 F  S Z0=$O(^TMP(""IBPID_IN"",$J,Z,Z0)) Q:'Z0  S Q=$G(^(Z0)) D  G:IBQUIT ENQ"
^XMB(3.9,55,2,20299,0)="""RTN"",""IBCEP9"",152,0)"
^XMB(3.9,55,2,20300,0)=" . ;"
^XMB(3.9,55,2,20301,0)="""RTN"",""IBCEP9"",153,0)"
^XMB(3.9,55,2,20302,0)=" . I IBSRC=""M"" D  Q"
^XMB(3.9,55,2,20303,0)="""RTN"",""IBCEP9"",154,0)"
^XMB(3.9,55,2,20304,0)=" .. D DISP^IBCEP9B(Q,0,IBINS,IBPTYP,IBFT,IBCT,$G(IBCU),,IBSRC)"
^XMB(3.9,55,2,20305,0)="""RTN"",""IBCEP9"",155,0)"
^XMB(3.9,55,2,20306,0)=" .. ; Manually add IDs"
^XMB(3.9,55,2,20307,0)="""RTN"",""IBCEP9"",156,0)"
^XMB(3.9,55,2,20308,0)=" .. S IBN=$$DUP(+Z0_"";VA(200,"",IBINS,$S($G(IBCU)'="""":IBCU,1:""*N/A*""),IBFT,IBCT,IBPTYP)"
^XMB(3.9,55,2,20309,0)="""RTN"",""IBCEP9"",157,0)"
^XMB(3.9,55,2,20310,0)=" .. I 'IBN D  Q:IBQUIT!(IBN'>0)"
^XMB(3.9,55,2,20311,0)="""RTN"",""IBCEP9"",158,0)"
^XMB(3.9,55,2,20312,0)=" ... S IBN=$$ADDID^IBCEP9B(Z0,IBINS,$G(IBCU),IBFT,IBCT,IBPTYP,,.IBQUIT)"
^XMB(3.9,55,2,20313,0)="""RTN"",""IBCEP9"",159,0)"
^XMB(3.9,55,2,20314,0)=" .. S DIE=""^IBA(355.9,"",DR="".07"",DA=+IBN D ^DIE"
^XMB(3.9,55,2,20315,0)="""RTN"",""IBCEP9"",160,0)"
^XMB(3.9,55,2,20316,0)=" .. I $D(Y)!($P($G(^IBA(355.9,+IBN,0)),U,7)="""") D"
^XMB(3.9,55,2,20317,0)="""RTN"",""IBCEP9"",161,0)"
^XMB(3.9,55,2,20318,0)=" ... I $P(IBN,U,3) S DA=+IBN,DIK=""^IBA(355.9,"" D ^DIK"
^XMB(3.9,55,2,20319,0)="""RTN"",""IBCEP9"",162,0)"
^XMB(3.9,55,2,20320,0)=" ... S DIR(0)=""YA"",DIR(""B"")=""NO"",DIR(""A"")=""DO YOU WANT TO STOP ENTERING PROVIDER IDs?: """
^XMB(3.9,55,2,20321,0)="""RTN"",""IBCEP9"",163,0)"
^XMB(3.9,55,2,20322,0)=" ... S Y=$$DIR(.DIR,.IBQUIT,.IBQUIT1,,1,1)"
^XMB(3.9,55,2,20323,0)="""RTN"",""IBCEP9"",164,0)"
^XMB(3.9,55,2,20324,0)=" ... I Y=1 S IBQUIT=1"
^XMB(3.9,55,2,20325,0)="""RTN"",""IBCEP9"",165,0)"
^XMB(3.9,55,2,20326,0)=" .. S IBID=$P($G(^IBA(355.9,+IBN,0)),U,7)"
^XMB(3.9,55,2,20327,0)="""RTN"",""IBCEP9"",166,0)"
^XMB(3.9,55,2,20328,0)=" .. S:$L(IBID) ^TMP(""IBPID_IN"",$J,U,Z0,""INST_ID"")=IBID"
^XMB(3.9,55,2,20329,0)="""RTN"",""IBCEP9"",167,0)"
^XMB(3.9,55,2,20330,0)=" .. I IBID="""" K ^TMP(""IBPID_IN"",$J,U,Z0)"
^XMB(3.9,55,2,20331,0)="""RTN"",""IBCEP9"",168,0)"
^XMB(3.9,55,2,20332,0)=" .. I IBQUIT=1 F  S Z0=$O(^TMP(""IBPID_IN"",$J,U,Z0)) Q:Z0=""""  K ^TMP(""IBPID_IN"",$J,U,Z0) ; user wants to stop, remove all remaining names from list"
^XMB(3.9,55,2,20333,0)="""RTN"",""IBCEP9"",169,0)"
^XMB(3.9,55,2,20334,0)=" . ;"
^XMB(3.9,55,2,20335,0)="""RTN"",""IBCEP9"",170,0)"
^XMB(3.9,55,2,20336,0)=" . S IBOK=1"
^XMB(3.9,55,2,20337,0)="""RTN"",""IBCEP9"",171,0)"
^XMB(3.9,55,2,20338,0)=" . N IBX,IBID"
^XMB(3.9,55,2,20339,0)="""RTN"",""IBCEP9"",172,0)"
^XMB(3.9,55,2,20340,0)=" . M IBX=^TMP(""IBPID_IN"",$J,Z,Z0)"
^XMB(3.9,55,2,20341,0)="""RTN"",""IBCEP9"",173,0)"
^XMB(3.9,55,2,20342,0)=" . I IBSRC=""F"" S IBID=$S(IBFT=0!(IBFT=1):$G(IBX(""INST_ID"")),1:$G(IBX(""PROF_ID"")))"
^XMB(3.9,55,2,20343,0)="""RTN"",""IBCEP9"",174,0)"
^XMB(3.9,55,2,20344,0)=" . I $G(IBVERIFY) D  ; Display record, ask OK to file id's"
^XMB(3.9,55,2,20345,0)="""RTN"",""IBCEP9"",175,0)"
^XMB(3.9,55,2,20346,0)=" .. D DISP^IBCEP9B(Q,0,IBINS,IBPTYP,IBFT,IBCT,$G(IBCU),,IBSRC)"
^XMB(3.9,55,2,20347,0)="""RTN"",""IBCEP9"",176,0)"
^XMB(3.9,55,2,20348,0)=" .. W !,""PROVIDER ID: "",IBID"
^XMB(3.9,55,2,20349,0)="""RTN"",""IBCEP9"",177,0)"
^XMB(3.9,55,2,20350,0)=" .. S DIR(""A"")=""OK TO FILE THIS ID FOR THIS PROVIDER?: "",DIR(0)=""YA"",DIR(""B"")=""NO"""
^XMB(3.9,55,2,20351,0)="""RTN"",""IBCEP9"",178,0)"
^XMB(3.9,55,2,20352,0)=" .. S Y=$$DIR(.DIR,,,,1,1)"
^XMB(3.9,55,2,20353,0)="""RTN"",""IBCEP9"",179,0)"
^XMB(3.9,55,2,20354,0)=" .. I Y'=1 D  Q  ; Send to error array"
^XMB(3.9,55,2,20355,0)="""RTN"",""IBCEP9"",180,0)"
^XMB(3.9,55,2,20356,0)=" ... S IBOK=0"
^XMB(3.9,55,2,20357,0)="""RTN"",""IBCEP9"",181,0)"
^XMB(3.9,55,2,20358,0)=" ... S ^TMP(""IBPID-ERR"",$J,2,$P(IBX,U),$P(IBX,U,2)_"" "",""PROV ID"")=IBID"
^XMB(3.9,55,2,20359,0)="""RTN"",""IBCEP9"",182,0)"
^XMB(3.9,55,2,20360,0)=" ... S ^TMP(""IBPID_IN"",$J,U,Z0,0)=""NO PRINT"""
^XMB(3.9,55,2,20361,0)="""RTN"",""IBCEP9"",183,0)"
^XMB(3.9,55,2,20362,0)=" ... N Z1"
^XMB(3.9,55,2,20363,0)="""RTN"",""IBCEP9"",184,0)"
^XMB(3.9,55,2,20364,0)=" ... S Z1="""" F  S Z1=$O(IBX(Z1)) Q:Z1=""""  I $G(IBX(Z1))'="""",Z1'[""_ID"" S ^TMP(""IBPID-ERR"",$J,2,$P(IBX,U),$P(IBX,U,2)_"" "",Z1)=IBX(Z1)"
^XMB(3.9,55,2,20365,0)="""RTN"",""IBCEP9"",185,0)"
^XMB(3.9,55,2,20366,0)=" . I IBOK D  ; Add/update the record"
^XMB(3.9,55,2,20367,0)="""RTN"",""IBCEP9"",186,0)"
^XMB(3.9,55,2,20368,0)=" .. I IBSRC=""F"" D"
^XMB(3.9,55,2,20369,0)="""RTN"",""IBCEP9"",187,0)"
^XMB(3.9,55,2,20370,0)=" ... I IBID'="""" D"
^XMB(3.9,55,2,20371,0)="""RTN"",""IBCEP9"",188,0)"
^XMB(3.9,55,2,20372,0)=" .... S IBN=$$ADDID^IBCEP9B(+Z0,IBINS,$G(IBCU),IBFT,IBCT,IBPTYP,,.IBQUIT)"
^XMB(3.9,55,2,20373,0)="""RTN"",""IBCEP9"",189,0)"
^XMB(3.9,55,2,20374,0)=" .... I IBQUIT D:IBN>0  Q"
^XMB(3.9,55,2,20375,0)="""RTN"",""IBCEP9"",190,0)"
^XMB(3.9,55,2,20376,0)=" ..... S DA=+IBN,DIK=""^IBA(355.9,"" D ^DIK"
^XMB(3.9,55,2,20377,0)="""RTN"",""IBCEP9"",191,0)"
^XMB(3.9,55,2,20378,0)=" .... I IBN>0 S DIE=""^IBA(355.9,"",DA=+IBN,DR="".07////""_IBID D ^DIE"
^XMB(3.9,55,2,20379,0)="""RTN"",""IBCEP9"",192,0)"
^XMB(3.9,55,2,20380,0)=" .. ;"
^XMB(3.9,55,2,20381,0)="""RTN"",""IBCEP9"",193,0)"
^XMB(3.9,55,2,20382,0)=" ;"
^XMB(3.9,55,2,20383,0)="""RTN"",""IBCEP9"",194,0)"
^XMB(3.9,55,2,20384,0)="ENQ ; Print report, exit"
^XMB(3.9,55,2,20385,0)="""RTN"",""IBCEP9"",195,0)"
^XMB(3.9,55,2,20386,0)=" I $G(IBINS) D"
^XMB(3.9,55,2,20387,0)="""RTN"",""IBCEP9"",196,0)"
^XMB(3.9,55,2,20388,0)=" . D COPY^IBCEPCID(IBINS)"
^XMB(3.9,55,2,20389,0)="""RTN"",""IBCEP9"",197,0)"
^XMB(3.9,55,2,20390,0)=" . D UNLOCK^IBCEP9B(IBINS)"
^XMB(3.9,55,2,20391,0)="""RTN"",""IBCEP9"",198,0)"
^XMB(3.9,55,2,20392,0)=" ;"
^XMB(3.9,55,2,20393,0)="""RTN"",""IBCEP9"",199,0)"
^XMB(3.9,55,2,20394,0)=" I ($D(^TMP(""IBPID-ERR"",$J)))!($D(^TMP(""IBPID_IN"",$J))) D"
^XMB(3.9,55,2,20395,0)="""RTN"",""IBCEP9"",200,0)"
^XMB(3.9,55,2,20396,0)=" . N %ZIS,ZTSAVE,ZTRTN,ZTDESC,IBDUZ"
^XMB(3.9,55,2,20397,0)="""RTN"",""IBCEP9"",201,0)"
^XMB(3.9,55,2,20398,0)=" . S IBDUZ=$G(DUZ)"
^XMB(3.9,55,2,20399,0)="""RTN"",""IBCEP9"",202,0)"
^XMB(3.9,55,2,20400,0)=" . S %ZIS=""QM"" D ^%ZIS Q:POP"
^XMB(3.9,55,2,20401,0)="""RTN"",""IBCEP9"",203,0)"
^XMB(3.9,55,2,20402,0)=" . I $D(IO(""Q"")) K IO(""Q"") D  D ^%ZTLOAD K ZTSK D HOME^%ZIS Q"
^XMB(3.9,55,2,20403,0)="""RTN"",""IBCEP9"",204,0)"
^XMB(3.9,55,2,20404,0)=" .. S ZTRTN=""PRTERR^IBCEP9B"",ZTSAVE(""^TMP(""""IBPID-ERR"""",$J,"")="""""
^XMB(3.9,55,2,20405,0)="""RTN"",""IBCEP9"",205,0)"
^XMB(3.9,55,2,20406,0)=" .. S ZTSAVE(""^TMP(""""IBPID_IN"""",$J,"")="""",ZTSAVE(""IB*"")="""""
^XMB(3.9,55,2,20407,0)="""RTN"",""IBCEP9"",206,0)"
^XMB(3.9,55,2,20408,0)=" .. S ZTDESC=""IB - PROVIDER ID BATCH UPDATE ERROR LOG"""
^XMB(3.9,55,2,20409,0)="""RTN"",""IBCEP9"",207,0)"
^XMB(3.9,55,2,20410,0)=" . U IO"
^XMB(3.9,55,2,20411,0)="""RTN"",""IBCEP9"",208,0)"
^XMB(3.9,55,2,20412,0)=" . D PRTERR^IBCEP9B"
^XMB(3.9,55,2,20413,0)="""RTN"",""IBCEP9"",209,0)"
^XMB(3.9,55,2,20414,0)=" K ^TMP(""IBPID_IN"",$J),^TMP(""IBPID-ERR"",$J),^TMP(""IBPID"",$J)"
^XMB(3.9,55,2,20415,0)="""RTN"",""IBCEP9"",210,0)"
^XMB(3.9,55,2,20416,0)=" U IO(0)"
^XMB(3.9,55,2,20417,0)="""RTN"",""IBCEP9"",211,0)"
^XMB(3.9,55,2,20418,0)=" Q"
^XMB(3.9,55,2,20419,0)="""RTN"",""IBCEP9"",212,0)"
^XMB(3.9,55,2,20420,0)=" ;"
^XMB(3.9,55,2,20421,0)="""RTN"",""IBCEP9"",213,0)"
^XMB(3.9,55,2,20422,0)="DUP(IBPRV,IBINS,IBCU,IBFT,IBCT,IBPTYP) ; Check if provider id record already exists in file 355.9"
^XMB(3.9,55,2,20423,0)="""RTN"",""IBCEP9"",214,0)"
^XMB(3.9,55,2,20424,0)=" Q +$O(^IBA(355.9,""AUNIQ"",IBPRV,IBINS,IBCU,IBFT,IBCT,IBPTYP,0))"
^XMB(3.9,55,2,20425,0)="""RTN"",""IBCEP9"",215,0)"
^XMB(3.9,55,2,20426,0)=" ;"
^XMB(3.9,55,2,20427,0)="""RTN"",""IBCEP9"",216,0)"
^XMB(3.9,55,2,20428,0)="ERREOF ; Traps EOF error on file read for non-DSM systems"
^XMB(3.9,55,2,20429,0)="""RTN"",""IBCEP9"",217,0)"
^XMB(3.9,55,2,20430,0)=" N IBERROR S IBERROR=$$EC^%ZOSV"
^XMB(3.9,55,2,20431,0)="""RTN"",""IBCEP9"",218,0)"
^XMB(3.9,55,2,20432,0)=" I IBERROR[""ENDOFFILE"" D CLOSE(.IBOPEN) G ENQ"
^XMB(3.9,55,2,20433,0)="""RTN"",""IBCEP9"",219,0)"
^XMB(3.9,55,2,20434,0)=" D ^%ZTER"
^XMB(3.9,55,2,20435,0)="""RTN"",""IBCEP9"",220,0)"
^XMB(3.9,55,2,20436,0)=" Q"
^XMB(3.9,55,2,20437,0)="""RTN"",""IBCEP9"",221,0)"
^XMB(3.9,55,2,20438,0)=" ;"
^XMB(3.9,55,2,20439,0)="""RTN"",""IBCEP9"",222,0)"
^XMB(3.9,55,2,20440,0)="CLOSE(IBOPEN) ; Close file"
^XMB(3.9,55,2,20441,0)="""RTN"",""IBCEP9"",223,0)"
^XMB(3.9,55,2,20442,0)=" D CLOSE^%ZISH(""IBINFILE"") S IBOPEN=0"
^XMB(3.9,55,2,20443,0)="""RTN"",""IBCEP9"",224,0)"
^XMB(3.9,55,2,20444,0)=" Q"
^XMB(3.9,55,2,20445,0)="""RTN"",""IBCEP9"",225,0)"
^XMB(3.9,55,2,20446,0)=" ;"
^XMB(3.9,55,2,20447,0)="""RTN"",""IBCEP9"",226,0)"
^XMB(3.9,55,2,20448,0)="DIR(DIR,IBQUIT,IBQUIT1,X,IBW1,IBW2) ; Standard call to ^DIR"
^XMB(3.9,55,2,20449,0)="""RTN"",""IBCEP9"",227,0)"
^XMB(3.9,55,2,20450,0)=" ;  Inputs DIR array"
^XMB(3.9,55,2,20451,0)="""RTN"",""IBCEP9"",228,0)"
^XMB(3.9,55,2,20452,0)=" ;  Returns IBQUIT,IBQUIT1,X if passed by reference"
^XMB(3.9,55,2,20453,0)="""RTN"",""IBCEP9"",229,0)"
^XMB(3.9,55,2,20454,0)=" ;    AND"
^XMB(3.9,55,2,20455,0)="""RTN"",""IBCEP9"",230,0)"
^XMB(3.9,55,2,20456,0)=" ;      FUNCTION returns the value of Y"
^XMB(3.9,55,2,20457,0)="""RTN"",""IBCEP9"",231,0)"
^XMB(3.9,55,2,20458,0)=" ;  IBW1 = 1 if initial write ! should be done"
^XMB(3.9,55,2,20459,0)="""RTN"",""IBCEP9"",232,0)"
^XMB(3.9,55,2,20460,0)=" ;  IBW2 = 1 if last write ! should be done"
^XMB(3.9,55,2,20461,0)="""RTN"",""IBCEP9"",233,0)"
^XMB(3.9,55,2,20462,0)=" N DIROUT,DTOUT,DUOUT,DA"
^XMB(3.9,55,2,20463,0)="""RTN"",""IBCEP9"",234,0)"
^XMB(3.9,55,2,20464,0)=" W:$G(IBW1) ! D ^DIR K DIR W:$G(IBW2) !"
^XMB(3.9,55,2,20465,0)="""RTN"",""IBCEP9"",235,0)"
^XMB(3.9,55,2,20466,0)=" S (IBQUIT,IBQUIT1)=0"
^XMB(3.9,55,2,20467,0)="""RTN"",""IBCEP9"",236,0)"
^XMB(3.9,55,2,20468,0)=" S DIR(""?"")=""Enter '^' to back up one prompt or '^^' to exit the option"""
^XMB(3.9,55,2,20469,0)="""RTN"",""IBCEP9"",237,0)"
^XMB(3.9,55,2,20470,0)=" I $D(DIROUT) S (IBQUIT,IBQUIT1)=1"
^XMB(3.9,55,2,20471,0)="""RTN"",""IBCEP9"",238,0)"
^XMB(3.9,55,2,20472,0)=" I $D(DTOUT)!$D(DUOUT) S IBQUIT1=1"
^XMB(3.9,55,2,20473,0)="""RTN"",""IBCEP9"",239,0)"
^XMB(3.9,55,2,20474,0)=" Q Y"
^XMB(3.9,55,2,20475,0)="""RTN"",""IBCEP9"",240,0)"
^XMB(3.9,55,2,20476,0)=" ;"
^XMB(3.9,55,2,20477,0)="""RTN"",""IBCEP9"",241,0)"
^XMB(3.9,55,2,20478,0)="ERR ; Error list"
^XMB(3.9,55,2,20479,0)="""RTN"",""IBCEP9"",242,0)"
^XMB(3.9,55,2,20480,0)=" ;; INVALID OR MISSING SSN - NO PROVIDER MATCH FOUND"
^XMB(3.9,55,2,20481,0)="""RTN"",""IBCEP9"",243,0)"
^XMB(3.9,55,2,20482,0)=" ;; NO UPDATE PER USER REQUEST"
^XMB(3.9,55,2,20483,0)="""RTN"",""IBCEP9"",244,0)"
^XMB(3.9,55,2,20484,0)=" ;;"
^XMB(3.9,55,2,20485,0)="""RTN"",""IBCEP9B"")"
^XMB(3.9,55,2,20486,0)="0^77^B57215054^B40515997"
^XMB(3.9,55,2,20487,0)="""RTN"",""IBCEP9B"",1,0)"
^XMB(3.9,55,2,20488,0)="IBCEP9B ;ALB/TMP - UPDATE OF PROVIDER ID FROM FILE UTILITIES ;14-NOV-00"
^XMB(3.9,55,2,20489,0)="""RTN"",""IBCEP9B"",2,0)"
^XMB(3.9,55,2,20490,0)=" ;;2.0;INTEGRATED BILLING;**137,200,320**;21-MAR-94"
^XMB(3.9,55,2,20491,0)="""RTN"",""IBCEP9B"",3,0)"
^XMB(3.9,55,2,20492,0)=" ;"
^XMB(3.9,55,2,20493,0)="""RTN"",""IBCEP9B"",4,0)"
^XMB(3.9,55,2,20494,0)=" Q"
^XMB(3.9,55,2,20495,0)="""RTN"",""IBCEP9B"",5,0)"
^XMB(3.9,55,2,20496,0)=" ;"
^XMB(3.9,55,2,20497,0)="""RTN"",""IBCEP9B"",6,0)"
^XMB(3.9,55,2,20498,0)="READFILE ; Read records stored in ^TMP($J"
^XMB(3.9,55,2,20499,0)="""RTN"",""IBCEP9B"",7,0)"
^XMB(3.9,55,2,20500,0)=" ;"
^XMB(3.9,55,2,20501,0)="""RTN"",""IBCEP9B"",8,0)"
^XMB(3.9,55,2,20502,0)=" N D,DA,DIC,IBCT,IBP,IBQUIT,IBS,IBX,P,P3,X,Y,Z"
^XMB(3.9,55,2,20503,0)="""RTN"",""IBCEP9B"",9,0)"
^XMB(3.9,55,2,20504,0)=" S (IBCT,IBQUIT,IBQUIT1,IBS)=0"
^XMB(3.9,55,2,20505,0)="""RTN"",""IBCEP9B"",10,0)"
^XMB(3.9,55,2,20506,0)=" U IO(0)"
^XMB(3.9,55,2,20507,0)="""RTN"",""IBCEP9B"",11,0)"
^XMB(3.9,55,2,20508,0)=" ;"
^XMB(3.9,55,2,20509,0)="""RTN"",""IBCEP9B"",12,0)"
^XMB(3.9,55,2,20510,0)=" F  S IBCT=$O(^TMP($J,IBCT)) Q:'IBCT  S X=$G(^(IBCT)) I X'="""" D  Q:IBQUIT"
^XMB(3.9,55,2,20511,0)="""RTN"",""IBCEP9B"",13,0)"
^XMB(3.9,55,2,20512,0)=" . D  Q:IBQUIT"
^XMB(3.9,55,2,20513,0)="""RTN"",""IBCEP9B"",14,0)"
^XMB(3.9,55,2,20514,0)=" .. I $P($G(IBPOS),U)=""D"" D"
^XMB(3.9,55,2,20515,0)="""RTN"",""IBCEP9B"",15,0)"
^XMB(3.9,55,2,20516,0)=" ... D CSV(X,.IBX,$P(IBPOS,U,2),$P(IBPOS,U,3))"
^XMB(3.9,55,2,20517,0)="""RTN"",""IBCEP9B"",16,0)"
^XMB(3.9,55,2,20518,0)=" ... D DSETUP(.IBX,.IBPOS,.P) K IBX"
^XMB(3.9,55,2,20519,0)="""RTN"",""IBCEP9B"",17,0)"
^XMB(3.9,55,2,20520,0)=" .. I $P($G(IBPOS),U)'=""D"" D FSETUP(X,.IBPOS,.P)"
^XMB(3.9,55,2,20521,0)="""RTN"",""IBCEP9B"",18,0)"
^XMB(3.9,55,2,20522,0)=" . ;"
^XMB(3.9,55,2,20523,0)="""RTN"",""IBCEP9B"",19,0)"
^XMB(3.9,55,2,20524,0)=" . I $G(P(1))'="""" S P(1)=$$NOPUNCT^IBCEF(P(1),1),X=P(1),D=""SSN"",DIC=""^VA(200,"",DIC(0)="""" D IX^DIC"
^XMB(3.9,55,2,20525,0)="""RTN"",""IBCEP9B"",20,0)"
^XMB(3.9,55,2,20526,0)=" . S IBP=+Y,IBVNAME=$P(Y,U,2)"
^XMB(3.9,55,2,20527,0)="""RTN"",""IBCEP9B"",21,0)"
^XMB(3.9,55,2,20528,0)=" . I $S($G(P(1))="""":1,1:Y'>0) D  Q"
^XMB(3.9,55,2,20529,0)="""RTN"",""IBCEP9B"",22,0)"
^XMB(3.9,55,2,20530,0)=" .. S ^TMP(""IBPID-ERR"",$J,1,$S($G(P(1))'="""":P(1),1:""NO SSN""),$G(P(2))_"" "",""??"")="""""
^XMB(3.9,55,2,20531,0)="""RTN"",""IBCEP9B"",23,0)"
^XMB(3.9,55,2,20532,0)=" .. N IBID"
^XMB(3.9,55,2,20533,0)="""RTN"",""IBCEP9B"",24,0)"
^XMB(3.9,55,2,20534,0)=" .. S IBID=$S(IBFT=0!(IBFT=1):$G(P(""INST_ID"")),1:$G(P(""PROF_ID"")))"
^XMB(3.9,55,2,20535,0)="""RTN"",""IBCEP9B"",25,0)"
^XMB(3.9,55,2,20536,0)=" .. S ^TMP(""IBPID-ERR"",$J,1,$S($G(P(1))'="""":P(1),1:""NO SSN""),$G(P(2))_"" "",""PROV ID"")=IBID"
^XMB(3.9,55,2,20537,0)="""RTN"",""IBCEP9B"",26,0)"
^XMB(3.9,55,2,20538,0)=" . ;"
^XMB(3.9,55,2,20539,0)="""RTN"",""IBCEP9B"",27,0)"
^XMB(3.9,55,2,20540,0)=" . S ^TMP(""IBPID_IN"",$J,U,IBP)=P(1)_U_P(2)_U_IBVNAME"
^XMB(3.9,55,2,20541,0)="""RTN"",""IBCEP9B"",28,0)"
^XMB(3.9,55,2,20542,0)=" . F Q0=0,""TID"",""UPIN"",""INST_ID"",""PROF_ID"",""CU"",""CRED"" S ^TMP(""IBPID_IN"",$J,U,IBP,Q0)=$G(P(Q0))"
^XMB(3.9,55,2,20543,0)="""RTN"",""IBCEP9B"",29,0)"
^XMB(3.9,55,2,20544,0)=" Q"
^XMB(3.9,55,2,20545,0)="""RTN"",""IBCEP9B"",30,0)"
^XMB(3.9,55,2,20546,0)=" ;"
^XMB(3.9,55,2,20547,0)="""RTN"",""IBCEP9B"",31,0)"
^XMB(3.9,55,2,20548,0)="CSV(X,IBX,IBDEL,IBQUOTES) ; Parse out fields from a delimited file"
^XMB(3.9,55,2,20549,0)="""RTN"",""IBCEP9B"",32,0)"
^XMB(3.9,55,2,20550,0)=" ; X = data string in CSV format to be parsed"
^XMB(3.9,55,2,20551,0)="""RTN"",""IBCEP9B"",33,0)"
^XMB(3.9,55,2,20552,0)=" ; IBX = array returned if passed by reference, subscripted by field #"
^XMB(3.9,55,2,20553,0)="""RTN"",""IBCEP9B"",34,0)"
^XMB(3.9,55,2,20554,0)=" ; IBDEL = the delimiter"
^XMB(3.9,55,2,20555,0)="""RTN"",""IBCEP9B"",35,0)"
^XMB(3.9,55,2,20556,0)=" ; If IBQUOTES=1, quoted strings are double quoted within a field"
^XMB(3.9,55,2,20557,0)="""RTN"",""IBCEP9B"",36,0)"
^XMB(3.9,55,2,20558,0)=" N FC,I,PC,QCT,QM,QM2,QM4,STR,TPC"
^XMB(3.9,55,2,20559,0)="""RTN"",""IBCEP9B"",37,0)"
^XMB(3.9,55,2,20560,0)=" S FC=0,TPC=$L(X,IBDEL),QM=$C(34),QM2=QM_QM,QM4=QM2_QM2"
^XMB(3.9,55,2,20561,0)="""RTN"",""IBCEP9B"",38,0)"
^XMB(3.9,55,2,20562,0)=" F PC=1:1:TPC D"
^XMB(3.9,55,2,20563,0)="""RTN"",""IBCEP9B"",39,0)"
^XMB(3.9,55,2,20564,0)=" . S STR=$P(X,IBDEL,PC)"
^XMB(3.9,55,2,20565,0)="""RTN"",""IBCEP9B"",40,0)"
^XMB(3.9,55,2,20566,0)=" . S FC=FC+1"
^XMB(3.9,55,2,20567,0)="""RTN"",""IBCEP9B"",41,0)"
^XMB(3.9,55,2,20568,0)=" . I (STR=QM2)!(STR=QM4) S IBX(FC)="""" Q"
^XMB(3.9,55,2,20569,0)="""RTN"",""IBCEP9B"",42,0)"
^XMB(3.9,55,2,20570,0)=" . I $E(STR,1)=QM D"
^XMB(3.9,55,2,20571,0)="""RTN"",""IBCEP9B"",43,0)"
^XMB(3.9,55,2,20572,0)=" .. F QCT=0:1 Q:$E(STR,QCT+1)'=QM"
^XMB(3.9,55,2,20573,0)="""RTN"",""IBCEP9B"",44,0)"
^XMB(3.9,55,2,20574,0)=" .. F  Q:($E(STR,1,QCT)=$E(STR,$L(STR)-(QCT-1),$L(STR)))  S PC=PC+1 Q:PC>TPC  S STR=STR_IBDEL_$P(X,IBDEL,PC)"
^XMB(3.9,55,2,20575,0)="""RTN"",""IBCEP9B"",45,0)"
^XMB(3.9,55,2,20576,0)=" .. I PC>TPC S IBX(0)=""-1^UNMATCHED QUOTE MARKS"" Q"
^XMB(3.9,55,2,20577,0)="""RTN"",""IBCEP9B"",46,0)"
^XMB(3.9,55,2,20578,0)=" .. F  Q:$E(STR,1)'=QM  I $E(STR,$L(STR))=QM S STR=$E(STR,2,$L(STR)-1)"
^XMB(3.9,55,2,20579,0)="""RTN"",""IBCEP9B"",47,0)"
^XMB(3.9,55,2,20580,0)=" . I IBQUOTES,STR[QM2 D"
^XMB(3.9,55,2,20581,0)="""RTN"",""IBCEP9B"",48,0)"
^XMB(3.9,55,2,20582,0)=" .. F I=1:1:$L(STR) I $E(STR,I,I+1)=QM2 S STR=$E(STR,1,I)_$E(STR,I+2,9999)"
^XMB(3.9,55,2,20583,0)="""RTN"",""IBCEP9B"",49,0)"
^XMB(3.9,55,2,20584,0)=" . S IBX(FC)=STR"
^XMB(3.9,55,2,20585,0)="""RTN"",""IBCEP9B"",50,0)"
^XMB(3.9,55,2,20586,0)=" Q"
^XMB(3.9,55,2,20587,0)="""RTN"",""IBCEP9B"",51,0)"
^XMB(3.9,55,2,20588,0)=" ;"
^XMB(3.9,55,2,20589,0)="""RTN"",""IBCEP9B"",52,0)"
^XMB(3.9,55,2,20590,0)="MANUAL ; Manual entry to get providers from VistA"
^XMB(3.9,55,2,20591,0)="""RTN"",""IBCEP9B"",53,0)"
^XMB(3.9,55,2,20592,0)=" N IBCRED,IBDA,IBNAM,IBSSN"
^XMB(3.9,55,2,20593,0)="""RTN"",""IBCEP9B"",54,0)"
^XMB(3.9,55,2,20594,0)=" ; S IBCNT=0 ; this looks like extraneous code, IBCNT not used anywhere."
^XMB(3.9,55,2,20595,0)="""RTN"",""IBCEP9B"",55,0)"
^XMB(3.9,55,2,20596,0)=" F  D  I X=""""!(X[""^"") Q"
^XMB(3.9,55,2,20597,0)="""RTN"",""IBCEP9B"",56,0)"
^XMB(3.9,55,2,20598,0)=" . S Y=$$LOOKUP^XUSER Q:X=""""  I X[""^"" S IBQUIT1=1 Q"
^XMB(3.9,55,2,20599,0)="""RTN"",""IBCEP9B"",57,0)"
^XMB(3.9,55,2,20600,0)=" . S IBDA=+Y,IBNAM=$P(Y,U,2)"
^XMB(3.9,55,2,20601,0)="""RTN"",""IBCEP9B"",58,0)"
^XMB(3.9,55,2,20602,0)=" . S IBSSN=$$GET1^DIQ(200,IBDA_"","",9,""I"")"
^XMB(3.9,55,2,20603,0)="""RTN"",""IBCEP9B"",59,0)"
^XMB(3.9,55,2,20604,0)=" . S IBCRED=$$GET1^DIQ(200,IBDA_"","",10.6,""I"")"
^XMB(3.9,55,2,20605,0)="""RTN"",""IBCEP9B"",60,0)"
^XMB(3.9,55,2,20606,0)=" . S ^TMP(""IBPID_IN"",$J,U,IBDA)=IBSSN_U_IBNAM_"" ""_IBCRED"
^XMB(3.9,55,2,20607,0)="""RTN"",""IBCEP9B"",61,0)"
^XMB(3.9,55,2,20608,0)=" Q"
^XMB(3.9,55,2,20609,0)="""RTN"",""IBCEP9B"",62,0)"
^XMB(3.9,55,2,20610,0)=" ;"
^XMB(3.9,55,2,20611,0)="""RTN"",""IBCEP9B"",63,0)"
^XMB(3.9,55,2,20612,0)="DIR1(DIR,Z,IBQUIT,IBQUIT1) ; Ask position"
^XMB(3.9,55,2,20613,0)="""RTN"",""IBCEP9B"",64,0)"
^XMB(3.9,55,2,20614,0)=" N X,Y"
^XMB(3.9,55,2,20615,0)="""RTN"",""IBCEP9B"",65,0)"
^XMB(3.9,55,2,20616,0)=" S Y=$$DIR^IBCEP9(.DIR,.IBQUIT,.IBQUIT1)"
^XMB(3.9,55,2,20617,0)="""RTN"",""IBCEP9B"",66,0)"
^XMB(3.9,55,2,20618,0)=" I IBQUIT1 S Y="""" G DIRQ"
^XMB(3.9,55,2,20619,0)="""RTN"",""IBCEP9B"",67,0)"
^XMB(3.9,55,2,20620,0)=" I $P(Z,U,4),Y'>0 S Y="""",(IBQUIT1,IBQUIT)=1"
^XMB(3.9,55,2,20621,0)="""RTN"",""IBCEP9B"",68,0)"
^XMB(3.9,55,2,20622,0)=" I Y'>0 S Y="""""
^XMB(3.9,55,2,20623,0)="""RTN"",""IBCEP9B"",69,0)"
^XMB(3.9,55,2,20624,0)="DIRQ Q Y"
^XMB(3.9,55,2,20625,0)="""RTN"",""IBCEP9B"",70,0)"
^XMB(3.9,55,2,20626,0)=" ;"
^XMB(3.9,55,2,20627,0)="""RTN"",""IBCEP9B"",71,0)"
^XMB(3.9,55,2,20628,0)="DISP(Q,IBID,IBINS,IBPTYP,IBFT,IBCT,IBCU,IBPID,IBSRC) ; Display provider data"
^XMB(3.9,55,2,20629,0)="""RTN"",""IBCEP9B"",72,0)"
^XMB(3.9,55,2,20630,0)=" ;  includes ID data if IBID=1"
^XMB(3.9,55,2,20631,0)="""RTN"",""IBCEP9B"",73,0)"
^XMB(3.9,55,2,20632,0)=" ; Q = SSN^provider name from input^provider name from file #200"
^XMB(3.9,55,2,20633,0)="""RTN"",""IBCEP9B"",74,0)"
^XMB(3.9,55,2,20634,0)=" ; IBPID = array of id numbers to be stored"
^XMB(3.9,55,2,20635,0)="""RTN"",""IBCEP9B"",75,0)"
^XMB(3.9,55,2,20636,0)=" N A,IBL,Q0,Z"
^XMB(3.9,55,2,20637,0)="""RTN"",""IBCEP9B"",76,0)"
^XMB(3.9,55,2,20638,0)=" S $P(Q,U,2)=$$FLEN($P(Q,U,2))"
^XMB(3.9,55,2,20639,0)="""RTN"",""IBCEP9B"",77,0)"
^XMB(3.9,55,2,20640,0)=" S Q0(1)=""PROVIDER : ""_$P(Q,U)_$S($P(Q,U,2)'="""":"" (""_$P(Q,U,2)_"")"",1:"""")_$S(IBSRC=""F"":"" <- input file data"",1:"""")"
^XMB(3.9,55,2,20641,0)="""RTN"",""IBCEP9B"",78,0)"
^XMB(3.9,55,2,20642,0)=" S Q0(2)="""" S:IBSRC=""F"" Q0(2)=$J(""(""_$P(Q,U,3),22+$L($P(Q,U,3)))_"") <- VA match"""
^XMB(3.9,55,2,20643,0)="""RTN"",""IBCEP9B"",79,0)"
^XMB(3.9,55,2,20644,0)=" S IBL=0"
^XMB(3.9,55,2,20645,0)="""RTN"",""IBCEP9B"",80,0)"
^XMB(3.9,55,2,20646,0)=" D DISP^IBCEP4(""Q0"",IBINS,IBPTYP,IBFT,IBCT,3,.IBL)"
^XMB(3.9,55,2,20647,0)="""RTN"",""IBCEP9B"",81,0)"
^XMB(3.9,55,2,20648,0)=" I $G(IBCU)'="""" S Q0(IBL+1)=""CARE UNIT: ""_IBCU"
^XMB(3.9,55,2,20649,0)="""RTN"",""IBCEP9B"",82,0)"
^XMB(3.9,55,2,20650,0)=" W !"
^XMB(3.9,55,2,20651,0)="""RTN"",""IBCEP9B"",83,0)"
^XMB(3.9,55,2,20652,0)=" S A=0 F  S A=$O(Q0(A)) Q:'A  W !,Q0(A)"
^XMB(3.9,55,2,20653,0)="""RTN"",""IBCEP9B"",84,0)"
^XMB(3.9,55,2,20654,0)=" I $G(IBID),$O(IBPID(""""))'="""" D  ; Display id's to be filed"
^XMB(3.9,55,2,20655,0)="""RTN"",""IBCEP9B"",85,0)"
^XMB(3.9,55,2,20656,0)=" . W ! S Z="""" F  S Z=$O(IBPID(Z)) Q:Z=""""  I IBPID(Z)'="""" D"
^XMB(3.9,55,2,20657,0)="""RTN"",""IBCEP9B"",86,0)"
^XMB(3.9,55,2,20658,0)=" .. W !,$S(Z=""TID"":""TAX ID NUMBER"",Z=""INST_ID"":""INSTITUTIONAL ID"",Z=""PROF_ID"":""PROFESSIONAL ID"",Z=""UPIN"":""UPIN"",1:""PROV ID""),"": "",IBPID(Z)"
^XMB(3.9,55,2,20659,0)="""RTN"",""IBCEP9B"",87,0)"
^XMB(3.9,55,2,20660,0)=" Q"
^XMB(3.9,55,2,20661,0)="""RTN"",""IBCEP9B"",88,0)"
^XMB(3.9,55,2,20662,0)=" ;"
^XMB(3.9,55,2,20663,0)="""RTN"",""IBCEP9B"",89,0)"
^XMB(3.9,55,2,20664,0)="DSETUP(IBX,IBPOS,P) ; Set up the subscripted array P with the correct data"
^XMB(3.9,55,2,20665,0)="""RTN"",""IBCEP9B"",90,0)"
^XMB(3.9,55,2,20666,0)=" ; from IBX(pc #) based on the parameters in array IBPOS"
^XMB(3.9,55,2,20667,0)="""RTN"",""IBCEP9B"",91,0)"
^XMB(3.9,55,2,20668,0)=" ; RETURNED: P(data index)=data value (pass by reference)"
^XMB(3.9,55,2,20669,0)="""RTN"",""IBCEP9B"",92,0)"
^XMB(3.9,55,2,20670,0)=" N Q,Z,Z0"
^XMB(3.9,55,2,20671,0)="""RTN"",""IBCEP9B"",93,0)"
^XMB(3.9,55,2,20672,0)=" S Z=$G(IBPOS(""SSN"")),P(1)="""""
^XMB(3.9,55,2,20673,0)="""RTN"",""IBCEP9B"",94,0)"
^XMB(3.9,55,2,20674,0)=" F Z0=+Z:1:$S('$P(Z,U,2):Z,1:$P(Z,U,2)) S P(1)=P(1)_$S(P(1)'=""""&($G(IBX(Z0))'=""""):"" "",1:"""")_$G(IBX(Z0))"
^XMB(3.9,55,2,20675,0)="""RTN"",""IBCEP9B"",95,0)"
^XMB(3.9,55,2,20676,0)=" S Z=$G(IBPOS(""NAM"")),P(2)="""""
^XMB(3.9,55,2,20677,0)="""RTN"",""IBCEP9B"",96,0)"
^XMB(3.9,55,2,20678,0)=" F Z0=+Z:1:$S('$P(Z,U,2):Z,1:$P(Z,U,2)) S P(2)=P(2)_$S(P(2)'=""""&($G(IBX(Z0))'=""""):"" "",1:"""")_$G(IBX(Z0))"
^XMB(3.9,55,2,20679,0)="""RTN"",""IBCEP9B"",97,0)"
^XMB(3.9,55,2,20680,0)=" F Q=""TID"",""UPIN"",""INST_ID"",""PROF_ID"",""CRED"",""CU"",""LIC"" D"
^XMB(3.9,55,2,20681,0)="""RTN"",""IBCEP9B"",98,0)"
^XMB(3.9,55,2,20682,0)=" . S Z=$G(IBPOS(Q)),P(Q)="""""
^XMB(3.9,55,2,20683,0)="""RTN"",""IBCEP9B"",99,0)"
^XMB(3.9,55,2,20684,0)=" . Q:'Z"
^XMB(3.9,55,2,20685,0)="""RTN"",""IBCEP9B"",100,0)"
^XMB(3.9,55,2,20686,0)=" . F Z0=+Z:1:$S('$P(Z,U,2):Z,1:$P(Z,U,2)) S P(Q)=P(Q)_$S(P(Q)'=""""&($G(IBX(Z0))'=""""):"" "",1:"""")_$G(IBX(Z0))"
^XMB(3.9,55,2,20687,0)="""RTN"",""IBCEP9B"",101,0)"
^XMB(3.9,55,2,20688,0)=" Q"
^XMB(3.9,55,2,20689,0)="""RTN"",""IBCEP9B"",102,0)"
^XMB(3.9,55,2,20690,0)=" ;"
^XMB(3.9,55,2,20691,0)="""RTN"",""IBCEP9B"",103,0)"
^XMB(3.9,55,2,20692,0)="FSETUP(X,IBPOS,P) ;Set up the subscripted array P with the correct data"
^XMB(3.9,55,2,20693,0)="""RTN"",""IBCEP9B"",104,0)"
^XMB(3.9,55,2,20694,0)=" ; from record data in X, based on the parameters in array IBPOS for a"
^XMB(3.9,55,2,20695,0)="""RTN"",""IBCEP9B"",105,0)"
^XMB(3.9,55,2,20696,0)=" ; fixed length data field format"
^XMB(3.9,55,2,20697,0)="""RTN"",""IBCEP9B"",106,0)"
^XMB(3.9,55,2,20698,0)=" ; RETURNED: P(data index)=data value (pass by reference)"
^XMB(3.9,55,2,20699,0)="""RTN"",""IBCEP9B"",107,0)"
^XMB(3.9,55,2,20700,0)=" ;"
^XMB(3.9,55,2,20701,0)="""RTN"",""IBCEP9B"",108,0)"
^XMB(3.9,55,2,20702,0)=" N Q,Z"
^XMB(3.9,55,2,20703,0)="""RTN"",""IBCEP9B"",109,0)"
^XMB(3.9,55,2,20704,0)=" S Z=$G(IBPOS(""SSN"")),P(1)="""""
^XMB(3.9,55,2,20705,0)="""RTN"",""IBCEP9B"",110,0)"
^XMB(3.9,55,2,20706,0)=" S P(1)=$E(X,+Z,$S($P(Z,U,2):$P(Z,U,2),1:+Z))"
^XMB(3.9,55,2,20707,0)="""RTN"",""IBCEP9B"",111,0)"
^XMB(3.9,55,2,20708,0)=" S Z=$G(IBPOS(""NAM"")),P(2)="""""
^XMB(3.9,55,2,20709,0)="""RTN"",""IBCEP9B"",112,0)"
^XMB(3.9,55,2,20710,0)=" S P(2)=$E(X,+Z,$S($P(Z,U,2):$P(Z,U,2),1:+Z))"
^XMB(3.9,55,2,20711,0)="""RTN"",""IBCEP9B"",113,0)"
^XMB(3.9,55,2,20712,0)=" F Q=""TID"",""UPIN"",""INST_ID"",""PROF_ID"",""CRED"",""CU"",""LIC"" D"
^XMB(3.9,55,2,20713,0)="""RTN"",""IBCEP9B"",114,0)"
^XMB(3.9,55,2,20714,0)=" . S Z=$G(IBPOS(Q)),P(Q)="""""
^XMB(3.9,55,2,20715,0)="""RTN"",""IBCEP9B"",115,0)"
^XMB(3.9,55,2,20716,0)=" . Q:'Z"
^XMB(3.9,55,2,20717,0)="""RTN"",""IBCEP9B"",116,0)"
^XMB(3.9,55,2,20718,0)=" . S P(Q)=$$FLEN($E(X,+Z,$S($P(Z,U,2):$P(Z,U,2),1:+Z)))"
^XMB(3.9,55,2,20719,0)="""RTN"",""IBCEP9B"",117,0)"
^XMB(3.9,55,2,20720,0)=" Q"
^XMB(3.9,55,2,20721,0)="""RTN"",""IBCEP9B"",118,0)"
^XMB(3.9,55,2,20722,0)=" ;"
^XMB(3.9,55,2,20723,0)="""RTN"",""IBCEP9B"",119,0)"
^XMB(3.9,55,2,20724,0)="FLEN(IBX) ; Strip out trailing spaces from field"
^XMB(3.9,55,2,20725,0)="""RTN"",""IBCEP9B"",120,0)"
^XMB(3.9,55,2,20726,0)=" ; FUNCTION returns stripped data"
^XMB(3.9,55,2,20727,0)="""RTN"",""IBCEP9B"",121,0)"
^XMB(3.9,55,2,20728,0)=" N Z,IB,IB1"
^XMB(3.9,55,2,20729,0)="""RTN"",""IBCEP9B"",122,0)"
^XMB(3.9,55,2,20730,0)=" S IB1=IBX,IB=$TR(IB1,"" "")"
^XMB(3.9,55,2,20731,0)="""RTN"",""IBCEP9B"",123,0)"
^XMB(3.9,55,2,20732,0)=" I IB'="""" F Z=$L(IB1):-1:1 I $E(IB1,Z)'="" "" S IB=$E(IB1,1,Z) Q"
^XMB(3.9,55,2,20733,0)="""RTN"",""IBCEP9B"",124,0)"
^XMB(3.9,55,2,20734,0)=" Q IB"
^XMB(3.9,55,2,20735,0)="""RTN"",""IBCEP9B"",125,0)"
^XMB(3.9,55,2,20736,0)=" ;"
^XMB(3.9,55,2,20737,0)="""RTN"",""IBCEP9B"",126,0)"
^XMB(3.9,55,2,20738,0)="ADDID(IB200,IBINS,IBCU,IBFT,IBCT,IBPTYP,IBQUIT,IBQUIT1) ; Add ID record (file 355.9) if not already there"
^XMB(3.9,55,2,20739,0)="""RTN"",""IBCEP9B"",127,0)"
^XMB(3.9,55,2,20740,0)=" N DIC,X,Y,DO,DD,DLAYGO,DIR"
^XMB(3.9,55,2,20741,0)="""RTN"",""IBCEP9B"",128,0)"
^XMB(3.9,55,2,20742,0)=" S X=IB200_"";VA(200,"""
^XMB(3.9,55,2,20743,0)="""RTN"",""IBCEP9B"",129,0)"
^XMB(3.9,55,2,20744,0)=" S Y=+$O(^IBA(355.9,""AUNIQ"",X,$S(IBINS:IBINS,1:""*ALL*""),$S($G(IBCU)'="""":IBCU,1:""*N/A*""),IBFT,IBCT,IBPTYP,0))"
^XMB(3.9,55,2,20745,0)="""RTN"",""IBCEP9B"",130,0)"
^XMB(3.9,55,2,20746,0)=" I 'Y D"
^XMB(3.9,55,2,20747,0)="""RTN"",""IBCEP9B"",131,0)"
^XMB(3.9,55,2,20748,0)=" . S DIC(0)=""L"",DIC=""^IBA(355.9,"",DLAYGO=355.9,DIC(""DR"")="".02////""_IBINS_$S($G(IBCU)'="""":"";.03////""_IBCU,1:"""")_"";.04////""_IBFT_"";.05////""_IBCT_"";.06////""_IBPTYP"
^XMB(3.9,55,2,20749,0)="""RTN"",""IBCEP9B"",132,0)"
^XMB(3.9,55,2,20750,0)=" . D FILE^DICN K DIC,DO,DD,DLAYGO"
^XMB(3.9,55,2,20751,0)="""RTN"",""IBCEP9B"",133,0)"
^XMB(3.9,55,2,20752,0)=" I Y'>0 D  Q"
^XMB(3.9,55,2,20753,0)="""RTN"",""IBCEP9B"",134,0)"
^XMB(3.9,55,2,20754,0)=" . S DIR(0)=""AE"",DIR(""A"",1)=""A PROBLEM WAS ENCOUNTERED ADDING THIS PROVIDER ID RECORD - NO RECORD ADDED"",DIR(""A"")=""PRESS ENTER TO CONTINUE """
^XMB(3.9,55,2,20755,0)="""RTN"",""IBCEP9B"",135,0)"
^XMB(3.9,55,2,20756,0)=" . S Y=$$DIR^IBCEP9(.DIR,.IBQUIT,.IBQUIT1,,1,1)"
^XMB(3.9,55,2,20757,0)="""RTN"",""IBCEP9B"",136,0)"
^XMB(3.9,55,2,20758,0)=" S IBN=Y"
^XMB(3.9,55,2,20759,0)="""RTN"",""IBCEP9B"",137,0)"
^XMB(3.9,55,2,20760,0)=" Q $S(IBN>0:IBN,1:0)"
^XMB(3.9,55,2,20761,0)="""RTN"",""IBCEP9B"",138,0)"
^XMB(3.9,55,2,20762,0)=" ;"
^XMB(3.9,55,2,20763,0)="""RTN"",""IBCEP9B"",139,0)"
^XMB(3.9,55,2,20764,0)="PRTERR ; Prints error report"
^XMB(3.9,55,2,20765,0)="""RTN"",""IBCEP9B"",140,0)"
^XMB(3.9,55,2,20766,0)=" N IBPAGE,Z,Z0,Z1,Z2,Z3,IBLCT,IBSTOP,IBHDT"
^XMB(3.9,55,2,20767,0)="""RTN"",""IBCEP9B"",141,0)"
^XMB(3.9,55,2,20768,0)=" W:$E(IOST,1,2)[""C-"" @IOF"
^XMB(3.9,55,2,20769,0)="""RTN"",""IBCEP9B"",142,0)"
^XMB(3.9,55,2,20770,0)=" I $D(^TMP(""IBPID-ERR"",$J)) D"
^XMB(3.9,55,2,20771,0)="""RTN"",""IBCEP9B"",143,0)"
^XMB(3.9,55,2,20772,0)=" . S IBSTOP=0,IBLCT=$$HDR(.IBPAGE,.IBSTOP,.IBHDT)"
^XMB(3.9,55,2,20773,0)="""RTN"",""IBCEP9B"",144,0)"
^XMB(3.9,55,2,20774,0)=" . S Z=0 F  S Z=$O(^TMP(""IBPID-ERR"",$J,Z)) Q:'Z  W !!,$P($T(ERR+Z^IBCEP9),"";;"",2)_"":"" D"
^XMB(3.9,55,2,20775,0)="""RTN"",""IBCEP9B"",145,0)"
^XMB(3.9,55,2,20776,0)=" .. S Z0="""""
^XMB(3.9,55,2,20777,0)="""RTN"",""IBCEP9B"",146,0)"
^XMB(3.9,55,2,20778,0)=" .. F  S Z0=$O(^TMP(""IBPID-ERR"",$J,Z,Z0)) Q:Z0=""""  S IBLCT=IBLCT+1 S:(IBLCT+5)>IOSL IBLCT=$$HDR(.IBPAGE,.IBSTOP) Q:IBSTOP  D"
^XMB(3.9,55,2,20779,0)="""RTN"",""IBCEP9B"",147,0)"
^XMB(3.9,55,2,20780,0)=" ... S Z1="""" F  S Z1=$O(^TMP(""IBPID-ERR"",$J,Z,Z0,Z1)) Q:Z1=""""  W !,$E(Z0_$J("""",9),1,9) W:$P(Z1,U)'="""" ""  ""_$E($P(Z1,U)_$J("""",40),1,40) D"
^XMB(3.9,55,2,20781,0)="""RTN"",""IBCEP9B"",148,0)"
^XMB(3.9,55,2,20782,0)=" .... S Z2="""" F  S Z2=$O(^TMP(""IBPID-ERR"",$J,Z,Z0,Z1,Z2)) Q:Z2=""""  S Z3=$G(^(Z2)) I Z3'="""" D"
^XMB(3.9,55,2,20783,0)="""RTN"",""IBCEP9B"",149,0)"
^XMB(3.9,55,2,20784,0)=" ..... W ""  ""_$S(Z2=""CU"":""CARE UNIT"",Z2=""CRED"":""CREDENTIALS"",Z2=""TID"":""TAX ID #"",Z2=""LIC_ST"":""LICENSE STATE"",Z2=""LIC"":""LICENSE"",Z2=""UPIN"":""UPIN"",1:Z2)_"": ""_Z3"
^XMB(3.9,55,2,20785,0)="""RTN"",""IBCEP9B"",150,0)"
^XMB(3.9,55,2,20786,0)="FILED ; Prints all filed records"
^XMB(3.9,55,2,20787,0)="""RTN"",""IBCEP9B"",151,0)"
^XMB(3.9,55,2,20788,0)=" I $D(^TMP(""IBPID_IN"",$J)) D"
^XMB(3.9,55,2,20789,0)="""RTN"",""IBCEP9B"",152,0)"
^XMB(3.9,55,2,20790,0)=" . S IBSTOP=0,IBLCT=$$HDR(.IBPAGE,.IBSTOP,.IBHDT)"
^XMB(3.9,55,2,20791,0)="""RTN"",""IBCEP9B"",153,0)"
^XMB(3.9,55,2,20792,0)=" . W !!,"" RECORDS SELECTED FOR FILING:"""
^XMB(3.9,55,2,20793,0)="""RTN"",""IBCEP9B"",154,0)"
^XMB(3.9,55,2,20794,0)=" . S Z0="""""
^XMB(3.9,55,2,20795,0)="""RTN"",""IBCEP9B"",155,0)"
^XMB(3.9,55,2,20796,0)=" . F  S Z0=$O(^TMP(""IBPID_IN"",$J,U,Z0)) Q:Z0=""""  S IBLCT=IBLCT+1 S:(IBLCT+5)>IOSL IBLCT=$$HDR(.IBPAGE,.IBSTOP) Q:IBSTOP  D"
^XMB(3.9,55,2,20797,0)="""RTN"",""IBCEP9B"",156,0)"
^XMB(3.9,55,2,20798,0)=" .. I $G(^TMP(""IBPID_IN"",$J,U,Z0,0))=""NO PRINT"" S:IBLCT>6 IBLCT=IBLCT-1 Q"
^XMB(3.9,55,2,20799,0)="""RTN"",""IBCEP9B"",157,0)"
^XMB(3.9,55,2,20800,0)=" .. S Z=^TMP(""IBPID_IN"",$J,U,Z0)"
^XMB(3.9,55,2,20801,0)="""RTN"",""IBCEP9B"",158,0)"
^XMB(3.9,55,2,20802,0)=" .. W !,$P(Z,U,1),?12,$P(Z,U,2),?52,$G(^TMP(""IBPID_IN"",$J,U,Z0,""INST_ID""))"
^XMB(3.9,55,2,20803,0)="""RTN"",""IBCEP9B"",159,0)"
^XMB(3.9,55,2,20804,0)=" ;"
^XMB(3.9,55,2,20805,0)="""RTN"",""IBCEP9B"",160,0)"
^XMB(3.9,55,2,20806,0)=" I $E(IOST,1,2)[""C-"",'IBSTOP K DIR S DIR(0)=""E"" D ^DIR K DIR"
^XMB(3.9,55,2,20807,0)="""RTN"",""IBCEP9B"",161,0)"
^XMB(3.9,55,2,20808,0)=" W @IOF"
^XMB(3.9,55,2,20809,0)="""RTN"",""IBCEP9B"",162,0)"
^XMB(3.9,55,2,20810,0)=" I $D(ZTQUEUED) S ZTREQ=""@"""
^XMB(3.9,55,2,20811,0)="""RTN"",""IBCEP9B"",163,0)"
^XMB(3.9,55,2,20812,0)=" I '$D(ZTQUEUED) W ! D ^%ZISC"
^XMB(3.9,55,2,20813,0)="""RTN"",""IBCEP9B"",164,0)"
^XMB(3.9,55,2,20814,0)=" Q"
^XMB(3.9,55,2,20815,0)="""RTN"",""IBCEP9B"",165,0)"
^XMB(3.9,55,2,20816,0)="HDR(PG,IBSTOP,IBHDT) ; Prints error report header, function returns # of lines used"
^XMB(3.9,55,2,20817,0)="""RTN"",""IBCEP9B"",166,0)"
^XMB(3.9,55,2,20818,0)=" ; PG = the last page # printed"
^XMB(3.9,55,2,20819,0)="""RTN"",""IBCEP9B"",167,0)"
^XMB(3.9,55,2,20820,0)=" ; IBHDT = the run date of the report"
^XMB(3.9,55,2,20821,0)="""RTN"",""IBCEP9B"",168,0)"
^XMB(3.9,55,2,20822,0)=" N Z,IBLCT"
^XMB(3.9,55,2,20823,0)="""RTN"",""IBCEP9B"",169,0)"
^XMB(3.9,55,2,20824,0)=" S IBLCT=0"
^XMB(3.9,55,2,20825,0)="""RTN"",""IBCEP9B"",170,0)"
^XMB(3.9,55,2,20826,0)=" I '$G(PG) S IBHDT=""RUN DATE: ""_$$FMTE^XLFDT($$NOW^XLFDT(),2)_U_""RUN BY: ""_$P($G(^VA(200,+$G(IBDUZ),0)),U)"
^XMB(3.9,55,2,20827,0)="""RTN"",""IBCEP9B"",171,0)"
^XMB(3.9,55,2,20828,0)=" I $G(PG),$E(IOST,1,2)[""C-"" K DIR S DIR(0)=""E"" D ^DIR K DIR S IBSTOP=('Y) G:IBSTOP HDRQ  W @IOF"
^XMB(3.9,55,2,20829,0)="""RTN"",""IBCEP9B"",172,0)"
^XMB(3.9,55,2,20830,0)=" S PG=$G(PG)+1"
^XMB(3.9,55,2,20831,0)="""RTN"",""IBCEP9B"",173,0)"
^XMB(3.9,55,2,20832,0)=" W $J("""",23)_""BATCH UPDATE OF PROVIDER ID REPORT""_$J("""",13)_""PAGE: "",PG"
^XMB(3.9,55,2,20833,0)="""RTN"",""IBCEP9B"",174,0)"
^XMB(3.9,55,2,20834,0)=" W !,$J("""",(80-$L($P($G(IBHDT),U)))\2),$P($G(IBHDT),U)"
^XMB(3.9,55,2,20835,0)="""RTN"",""IBCEP9B"",175,0)"
^XMB(3.9,55,2,20836,0)=" W !,$J("""",(80-$L($P($G(IBHDT),U,2)))\2),$P($G(IBHDT),U,2)"
^XMB(3.9,55,2,20837,0)="""RTN"",""IBCEP9B"",176,0)"
^XMB(3.9,55,2,20838,0)=" W !!,""    INSURANCE CO: ""_$P($G(^DIC(36,+$G(IBINS),0)),U)"
^XMB(3.9,55,2,20839,0)="""RTN"",""IBCEP9B"",177,0)"
^XMB(3.9,55,2,20840,0)=" W !,""PROVIDER ID TYPE: ""_$P($G(^IBE(355.97,+$G(IBPTYP),0)),U)"
^XMB(3.9,55,2,20841,0)="""RTN"",""IBCEP9B"",178,0)"
^XMB(3.9,55,2,20842,0)=" W !,""       FORM TYPE: ""_$$EXPAND^IBTRE(355.91,.04,$G(IBFT))"
^XMB(3.9,55,2,20843,0)="""RTN"",""IBCEP9B"",179,0)"
^XMB(3.9,55,2,20844,0)=" W !,""       CARE TYPE: ""_$$EXPAND^IBTRE(355.91,.05,$G(IBCT))"
^XMB(3.9,55,2,20845,0)="""RTN"",""IBCEP9B"",180,0)"
^XMB(3.9,55,2,20846,0)=" S IBLCT=7"
^XMB(3.9,55,2,20847,0)="""RTN"",""IBCEP9B"",181,0)"
^XMB(3.9,55,2,20848,0)=" I $G(IBCU)'="""" W !,$J("""",7)_""CARE UNIT: ""_IBCU S IBLCT=IBLCT+1"
^XMB(3.9,55,2,20849,0)="""RTN"",""IBCEP9B"",182,0)"
^XMB(3.9,55,2,20850,0)=" S Z="""",$P(Z,""="",81)="""",IBLCT=IBLCT+1"
^XMB(3.9,55,2,20851,0)="""RTN"",""IBCEP9B"",183,0)"
^XMB(3.9,55,2,20852,0)=" W !,Z"
^XMB(3.9,55,2,20853,0)="""RTN"",""IBCEP9B"",184,0)"
^XMB(3.9,55,2,20854,0)="HDRQ Q $G(IBLCT)"
^XMB(3.9,55,2,20855,0)="""RTN"",""IBCEP9B"",185,0)"
^XMB(3.9,55,2,20856,0)=" ;"
^XMB(3.9,55,2,20857,0)="""RTN"",""IBCEP9B"",186,0)"
^XMB(3.9,55,2,20858,0)="LOCK(IBINS) ; Lock Parent and Children up"
^XMB(3.9,55,2,20859,0)="""RTN"",""IBCEP9B"",187,0)"
^XMB(3.9,55,2,20860,0)=" N IBQUIT"
^XMB(3.9,55,2,20861,0)="""RTN"",""IBCEP9B"",188,0)"
^XMB(3.9,55,2,20862,0)=" S IBQUIT=0"
^XMB(3.9,55,2,20863,0)="""RTN"",""IBCEP9B"",189,0)"
^XMB(3.9,55,2,20864,0)=" I $P($G(^DIC(36,IBINS,3)),U,13)=""P"" D"
^XMB(3.9,55,2,20865,0)="""RTN"",""IBCEP9B"",190,0)"
^XMB(3.9,55,2,20866,0)=" . L +^DIC(36,IBINS):5 E  S IBQUIT=1 Q"
^XMB(3.9,55,2,20867,0)="""RTN"",""IBCEP9B"",191,0)"
^XMB(3.9,55,2,20868,0)=" . N CHILD"
^XMB(3.9,55,2,20869,0)="""RTN"",""IBCEP9B"",192,0)"
^XMB(3.9,55,2,20870,0)=" . S CHILD="""" F  S CHILD=$O(^DIC(36,""APC"",IBINS,CHILD)) Q:'+CHILD  D  Q:IBQUIT"
^XMB(3.9,55,2,20871,0)="""RTN"",""IBCEP9B"",193,0)"
^XMB(3.9,55,2,20872,0)=" .. L +^DIC(36,CHILD):5 E  S IBQUIT=1"
^XMB(3.9,55,2,20873,0)="""RTN"",""IBCEP9B"",194,0)"
^XMB(3.9,55,2,20874,0)=" Q IBQUIT"
^XMB(3.9,55,2,20875,0)="""RTN"",""IBCEP9B"",195,0)"
^XMB(3.9,55,2,20876,0)=" ;"
^XMB(3.9,55,2,20877,0)="""RTN"",""IBCEP9B"",196,0)"
^XMB(3.9,55,2,20878,0)="UNLOCK(IBINS) ; Unlock the family"
^XMB(3.9,55,2,20879,0)="""RTN"",""IBCEP9B"",197,0)"
^XMB(3.9,55,2,20880,0)=" I $P($G(^DIC(36,IBINS,3)),U,13)=""P"" D"
^XMB(3.9,55,2,20881,0)="""RTN"",""IBCEP9B"",198,0)"
^XMB(3.9,55,2,20882,0)=" . L -^DIC(36,IBINS)"
^XMB(3.9,55,2,20883,0)="""RTN"",""IBCEP9B"",199,0)"
^XMB(3.9,55,2,20884,0)=" . N CHILD"
^XMB(3.9,55,2,20885,0)="""RTN"",""IBCEP9B"",200,0)"
^XMB(3.9,55,2,20886,0)=" . S CHILD="""" F  S CHILD=$O(^DIC(36,""APC"",IBINS,CHILD)) Q:'+CHILD  D"
^XMB(3.9,55,2,20887,0)="""RTN"",""IBCEP9B"",201,0)"
^XMB(3.9,55,2,20888,0)=" .. L -^DIC(36,CHILD)"
^XMB(3.9,55,2,20889,0)="""RTN"",""IBCEP9B"",202,0)"
^XMB(3.9,55,2,20890,0)=" Q"
^XMB(3.9,55,2,20891,0)="""RTN"",""IBCEP9B"",203,0)"
^XMB(3.9,55,2,20892,0)=" ;"
^XMB(3.9,55,2,20893,0)="""RTN"",""IBCEPA"")"
^XMB(3.9,55,2,20894,0)="0^30^B50476758"
^XMB(3.9,55,2,20895,0)="""RTN"",""IBCEPA"",1,0)"
^XMB(3.9,55,2,20896,0)="IBCEPA ; ; 21-OCT-2005"
^XMB(3.9,55,2,20897,0)="""RTN"",""IBCEPA"",2,0)"
^XMB(3.9,55,2,20898,0)=" ;;2.0;INTEGRATED BILLING;**320**;21-MAR-94"
^XMB(3.9,55,2,20899,0)="""RTN"",""IBCEPA"",3,0)"
^XMB(3.9,55,2,20900,0)="EN ; -- main entry point for IBCE 2ND PRVID CARE UNIT MAINT"
^XMB(3.9,55,2,20901,0)="""RTN"",""IBCEPA"",4,0)"
^XMB(3.9,55,2,20902,0)=" D EN^VALM(""IBCE 2ND PRVID CARE UNIT MAINT"")"
^XMB(3.9,55,2,20903,0)="""RTN"",""IBCEPA"",5,0)"
^XMB(3.9,55,2,20904,0)=" Q"
^XMB(3.9,55,2,20905,0)="""RTN"",""IBCEPA"",6,0)"
^XMB(3.9,55,2,20906,0)=" ;"
^XMB(3.9,55,2,20907,0)="""RTN"",""IBCEPA"",7,0)"
^XMB(3.9,55,2,20908,0)="HDR ; -- header code"
^XMB(3.9,55,2,20909,0)="""RTN"",""IBCEPA"",8,0)"
^XMB(3.9,55,2,20910,0)=" K VALMHDR"
^XMB(3.9,55,2,20911,0)="""RTN"",""IBCEPA"",9,0)"
^XMB(3.9,55,2,20912,0)=" S VALMHDR(1)="" """
^XMB(3.9,55,2,20913,0)="""RTN"",""IBCEPA"",10,0)"
^XMB(3.9,55,2,20914,0)=" S VALMHDR(2)=""Insurance Co: ""_$S('$G(IBALL)&$G(IBINS):$P($G(^DIC(36,+IBINS,0)),U),1:""ALL"")"
^XMB(3.9,55,2,20915,0)="""RTN"",""IBCEPA"",11,0)"
^XMB(3.9,55,2,20916,0)=" Q"
^XMB(3.9,55,2,20917,0)="""RTN"",""IBCEPA"",12,0)"
^XMB(3.9,55,2,20918,0)=" ;"
^XMB(3.9,55,2,20919,0)="""RTN"",""IBCEPA"",13,0)"
^XMB(3.9,55,2,20920,0)="INIT ; -- init variables and list array"
^XMB(3.9,55,2,20921,0)="""RTN"",""IBCEPA"",14,0)"
^XMB(3.9,55,2,20922,0)=" N DIR,Y"
^XMB(3.9,55,2,20923,0)="""RTN"",""IBCEPA"",15,0)"
^XMB(3.9,55,2,20924,0)=" I '$G(IBINS) D  I +Y<0 S VALMQUIT=1 Q"
^XMB(3.9,55,2,20925,0)="""RTN"",""IBCEPA"",16,0)"
^XMB(3.9,55,2,20926,0)=" . S DIR(0)=""PA^DIC(36,:AEMQ"",DIR(""A"")=""Select INSURANCE CO: "",DIR(""?"")=""Select an INSURANCE CO to display its care units"""
^XMB(3.9,55,2,20927,0)="""RTN"",""IBCEPA"",17,0)"
^XMB(3.9,55,2,20928,0)=" . D ^DIR K DIR"
^XMB(3.9,55,2,20929,0)="""RTN"",""IBCEPA"",18,0)"
^XMB(3.9,55,2,20930,0)=" . I $D(DTOUT)!$D(DUOUT) S Y=-2 Q"
^XMB(3.9,55,2,20931,0)="""RTN"",""IBCEPA"",19,0)"
^XMB(3.9,55,2,20932,0)=" . I Y>0 S IBINS=+Y Q"
^XMB(3.9,55,2,20933,0)="""RTN"",""IBCEPA"",20,0)"
^XMB(3.9,55,2,20934,0)=" ;"
^XMB(3.9,55,2,20935,0)="""RTN"",""IBCEPA"",21,0)"
^XMB(3.9,55,2,20936,0)=" D BLD"
^XMB(3.9,55,2,20937,0)="""RTN"",""IBCEPA"",22,0)"
^XMB(3.9,55,2,20938,0)=" Q"
^XMB(3.9,55,2,20939,0)="""RTN"",""IBCEPA"",23,0)"
^XMB(3.9,55,2,20940,0)=" ;"
^XMB(3.9,55,2,20941,0)="""RTN"",""IBCEPA"",24,0)"
^XMB(3.9,55,2,20942,0)="BLD ;"
^XMB(3.9,55,2,20943,0)="""RTN"",""IBCEPA"",25,0)"
^XMB(3.9,55,2,20944,0)=" D CLEAN^VALM10"
^XMB(3.9,55,2,20945,0)="""RTN"",""IBCEPA"",26,0)"
^XMB(3.9,55,2,20946,0)=" K ^TMP(""IBPRV_CU"",$J)"
^XMB(3.9,55,2,20947,0)="""RTN"",""IBCEPA"",27,0)"
^XMB(3.9,55,2,20948,0)=" N TAR,MSG,I,D0,IBLCT,Z,DIV,SCREEN"
^XMB(3.9,55,2,20949,0)="""RTN"",""IBCEPA"",28,0)"
^XMB(3.9,55,2,20950,0)=" ;"
^XMB(3.9,55,2,20951,0)="""RTN"",""IBCEPA"",29,0)"
^XMB(3.9,55,2,20952,0)=" S VALMBG=1"
^XMB(3.9,55,2,20953,0)="""RTN"",""IBCEPA"",30,0)"
^XMB(3.9,55,2,20954,0)=" ;"
^XMB(3.9,55,2,20955,0)="""RTN"",""IBCEPA"",31,0)"
^XMB(3.9,55,2,20956,0)=" ; Get all care units for this insurance company that have a division"
^XMB(3.9,55,2,20957,0)="""RTN"",""IBCEPA"",32,0)"
^XMB(3.9,55,2,20958,0)=" ; If there is no division, then it is part of the other care units code (IBCEP4)"
^XMB(3.9,55,2,20959,0)="""RTN"",""IBCEPA"",33,0)"
^XMB(3.9,55,2,20960,0)=" ; "
^XMB(3.9,55,2,20961,0)="""RTN"",""IBCEPA"",34,0)"
^XMB(3.9,55,2,20962,0)=" S SCREEN=""I $P(^(0),U,4)'="""""""",$P(^(0),U,3)=IBINS"""
^XMB(3.9,55,2,20963,0)="""RTN"",""IBCEPA"",35,0)"
^XMB(3.9,55,2,20964,0)=" D LIST^DIC(355.95,,""@;.01;.02;.04"",,,,,,SCREEN,,""TAR"")"
^XMB(3.9,55,2,20965,0)="""RTN"",""IBCEPA"",36,0)"
^XMB(3.9,55,2,20966,0)=" ;"
^XMB(3.9,55,2,20967,0)="""RTN"",""IBCEPA"",37,0)"
^XMB(3.9,55,2,20968,0)=" I '+TAR(""DILIST"",0) D"
^XMB(3.9,55,2,20969,0)="""RTN"",""IBCEPA"",38,0)"
^XMB(3.9,55,2,20970,0)=" . D SET^VALM10(1,""No CARE UNITs found for this Insurance Company"")"
^XMB(3.9,55,2,20971,0)="""RTN"",""IBCEPA"",39,0)"
^XMB(3.9,55,2,20972,0)=" ;"
^XMB(3.9,55,2,20973,0)="""RTN"",""IBCEPA"",40,0)"
^XMB(3.9,55,2,20974,0)=" I +TAR(""DILIST"",0) D"
^XMB(3.9,55,2,20975,0)="""RTN"",""IBCEPA"",41,0)"
^XMB(3.9,55,2,20976,0)=" . S IBCT=0"
^XMB(3.9,55,2,20977,0)="""RTN"",""IBCEPA"",42,0)"
^XMB(3.9,55,2,20978,0)=" . F VALMCNT=1:1:+TAR(""DILIST"",0) D"
^XMB(3.9,55,2,20979,0)="""RTN"",""IBCEPA"",43,0)"
^XMB(3.9,55,2,20980,0)=" .. S ^TMP(""IBPRV_CU"",$J,""SORT"",TAR(""DILIST"",""ID"",VALMCNT,.04),TAR(""DILIST"",2,VALMCNT))=VALMCNT"
^XMB(3.9,55,2,20981,0)="""RTN"",""IBCEPA"",44,0)"
^XMB(3.9,55,2,20982,0)=" . S DIV="""" F  S DIV=$O(^TMP(""IBPRV_CU"",$J,""SORT"",DIV)) Q:DIV=""""  D"
^XMB(3.9,55,2,20983,0)="""RTN"",""IBCEPA"",45,0)"
^XMB(3.9,55,2,20984,0)=" .. S Z=""Division: ""_DIV"
^XMB(3.9,55,2,20985,0)="""RTN"",""IBCEPA"",46,0)"
^XMB(3.9,55,2,20986,0)=" .. S IBCT=IBCT+1"
^XMB(3.9,55,2,20987,0)="""RTN"",""IBCEPA"",47,0)"
^XMB(3.9,55,2,20988,0)=" .. D SET^VALM10(IBCT,Z)"
^XMB(3.9,55,2,20989,0)="""RTN"",""IBCEPA"",48,0)"
^XMB(3.9,55,2,20990,0)=" .. S D0=0 F  S D0=$O(^TMP(""IBPRV_CU"",$J,""SORT"",DIV,D0)) Q:'D0  D"
^XMB(3.9,55,2,20991,0)="""RTN"",""IBCEPA"",49,0)"
^XMB(3.9,55,2,20992,0)=" ... S IN=^TMP(""IBPRV_CU"",$J,""SORT"",DIV,D0)"
^XMB(3.9,55,2,20993,0)="""RTN"",""IBCEPA"",50,0)"
^XMB(3.9,55,2,20994,0)=" ... S Z=$J("""",2)"
^XMB(3.9,55,2,20995,0)="""RTN"",""IBCEPA"",51,0)"
^XMB(3.9,55,2,20996,0)=" ... S Z=Z_$E(TAR(""DILIST"",""ID"",IN,.01),1,36)"
^XMB(3.9,55,2,20997,0)="""RTN"",""IBCEPA"",52,0)"
^XMB(3.9,55,2,20998,0)=" ... S Z=Z_$J("""",40-$L(Z))"
^XMB(3.9,55,2,20999,0)="""RTN"",""IBCEPA"",53,0)"
^XMB(3.9,55,2,21000,0)=" ... S Z=Z_$E(TAR(""DILIST"",""ID"",IN,.02),1,38)"
^XMB(3.9,55,2,21001,0)="""RTN"",""IBCEPA"",54,0)"
^XMB(3.9,55,2,21002,0)=" ... S IBCT=IBCT+1"
^XMB(3.9,55,2,21003,0)="""RTN"",""IBCEPA"",55,0)"
^XMB(3.9,55,2,21004,0)=" ... D SET^VALM10(IBCT,Z)"
^XMB(3.9,55,2,21005,0)="""RTN"",""IBCEPA"",56,0)"
^XMB(3.9,55,2,21006,0)=" Q"
^XMB(3.9,55,2,21007,0)="""RTN"",""IBCEPA"",57,0)"
^XMB(3.9,55,2,21008,0)=" ;"
^XMB(3.9,55,2,21009,0)="""RTN"",""IBCEPA"",58,0)"
^XMB(3.9,55,2,21010,0)="HELP ; -- help code"
^XMB(3.9,55,2,21011,0)="""RTN"",""IBCEPA"",59,0)"
^XMB(3.9,55,2,21012,0)=" S X=""?"" D DISP^XQORM1 W !!"
^XMB(3.9,55,2,21013,0)="""RTN"",""IBCEPA"",60,0)"
^XMB(3.9,55,2,21014,0)=" Q"
^XMB(3.9,55,2,21015,0)="""RTN"",""IBCEPA"",61,0)"
^XMB(3.9,55,2,21016,0)=" ;"
^XMB(3.9,55,2,21017,0)="""RTN"",""IBCEPA"",62,0)"
^XMB(3.9,55,2,21018,0)="EXIT ; -- exit code"
^XMB(3.9,55,2,21019,0)="""RTN"",""IBCEPA"",63,0)"
^XMB(3.9,55,2,21020,0)=" D CLEAN^VALM10"
^XMB(3.9,55,2,21021,0)="""RTN"",""IBCEPA"",64,0)"
^XMB(3.9,55,2,21022,0)=" Q"
^XMB(3.9,55,2,21023,0)="""RTN"",""IBCEPA"",65,0)"
^XMB(3.9,55,2,21024,0)=" ;"
^XMB(3.9,55,2,21025,0)="""RTN"",""IBCEPA"",66,0)"
^XMB(3.9,55,2,21026,0)="EXPND ; -- expand code"
^XMB(3.9,55,2,21027,0)="""RTN"",""IBCEPA"",67,0)"
^XMB(3.9,55,2,21028,0)=" Q"
^XMB(3.9,55,2,21029,0)="""RTN"",""IBCEPA"",68,0)"
^XMB(3.9,55,2,21030,0)=" ;"
^XMB(3.9,55,2,21031,0)="""RTN"",""IBCEPA"",69,0)"
^XMB(3.9,55,2,21032,0)="NEW ; Add care unit"
^XMB(3.9,55,2,21033,0)="""RTN"",""IBCEPA"",70,0)"
^XMB(3.9,55,2,21034,0)=" ; Assumes IBINS is defined as ins co ien (file 36)"
^XMB(3.9,55,2,21035,0)="""RTN"",""IBCEPA"",71,0)"
^XMB(3.9,55,2,21036,0)=" ; IB = 0 or null if called from list manager, 1 if not"
^XMB(3.9,55,2,21037,0)="""RTN"",""IBCEPA"",72,0)"
^XMB(3.9,55,2,21038,0)=" N DIC,DIR,X,Y,Z,DA,DR,DIE,DO,DD,DLAYGO,IB95,IBADD,IBOK,IBDIV,MAIN,IBDIVNM"
^XMB(3.9,55,2,21039,0)="""RTN"",""IBCEPA"",73,0)"
^XMB(3.9,55,2,21040,0)=" ;"
^XMB(3.9,55,2,21041,0)="""RTN"",""IBCEPA"",74,0)"
^XMB(3.9,55,2,21042,0)=" D FULL^VALM1"
^XMB(3.9,55,2,21043,0)="""RTN"",""IBCEPA"",75,0)"
^XMB(3.9,55,2,21044,0)=" ; Add an entry - either new care unit/ins co or a combination for"
^XMB(3.9,55,2,21045,0)="""RTN"",""IBCEPA"",76,0)"
^XMB(3.9,55,2,21046,0)=" ; existing care unit/ins co"
^XMB(3.9,55,2,21047,0)="""RTN"",""IBCEPA"",77,0)"
^XMB(3.9,55,2,21048,0)=" ;"
^XMB(3.9,55,2,21049,0)="""RTN"",""IBCEPA"",78,0)"
^XMB(3.9,55,2,21050,0)=" S MAIN=$$MAIN^IBCEP2B()"
^XMB(3.9,55,2,21051,0)="""RTN"",""IBCEPA"",79,0)"
^XMB(3.9,55,2,21052,0)=" S MAIN=$$EXTERNAL^DILFD(355.92,.05,"""",MAIN)"
^XMB(3.9,55,2,21053,0)="""RTN"",""IBCEPA"",80,0)"
^XMB(3.9,55,2,21054,0)=" S DIC=40.8,DIC(""A"")=""Enter the Division for this Care Unit: "",DIC(""B"")=MAIN,DIC(0)=""AEMQ"""
^XMB(3.9,55,2,21055,0)="""RTN"",""IBCEPA"",81,0)"
^XMB(3.9,55,2,21056,0)=" D ^DIC"
^XMB(3.9,55,2,21057,0)="""RTN"",""IBCEPA"",82,0)"
^XMB(3.9,55,2,21058,0)=" I Y'>0 G NEWQ"
^XMB(3.9,55,2,21059,0)="""RTN"",""IBCEPA"",83,0)"
^XMB(3.9,55,2,21060,0)=" S IBDIV=+Y"
^XMB(3.9,55,2,21061,0)="""RTN"",""IBCEPA"",84,0)"
^XMB(3.9,55,2,21062,0)=" S IBDIVNM=$$EXTERNAL^DILFD(355.92,.05,"""",IBDIV)"
^XMB(3.9,55,2,21063,0)="""RTN"",""IBCEPA"",85,0)"
^XMB(3.9,55,2,21064,0)=" ;"
^XMB(3.9,55,2,21065,0)="""RTN"",""IBCEPA"",86,0)"
^XMB(3.9,55,2,21066,0)=" N SCREEN,TAR,MESS,I"
^XMB(3.9,55,2,21067,0)="""RTN"",""IBCEPA"",87,0)"
^XMB(3.9,55,2,21068,0)=" S SCREEN=""I $P(^(0),U,3)=+$G(IBINS),$P(^(0),U,4)=+$G(IBDIV)"""
^XMB(3.9,55,2,21069,0)="""RTN"",""IBCEPA"",88,0)"
^XMB(3.9,55,2,21070,0)=" D LIST^DIC(355.95,,.01,,,,,,SCREEN,,""TAR"")"
^XMB(3.9,55,2,21071,0)="""RTN"",""IBCEPA"",89,0)"
^XMB(3.9,55,2,21072,0)=" ;"
^XMB(3.9,55,2,21073,0)="""RTN"",""IBCEPA"",90,0)"
^XMB(3.9,55,2,21074,0)="ACU K DIR"
^XMB(3.9,55,2,21075,0)="""RTN"",""IBCEPA"",91,0)"
^XMB(3.9,55,2,21076,0)=" S I=0"
^XMB(3.9,55,2,21077,0)="""RTN"",""IBCEPA"",92,0)"
^XMB(3.9,55,2,21078,0)=" I $G(TAR(""DILIST"",0)) D "
^XMB(3.9,55,2,21079,0)="""RTN"",""IBCEPA"",93,0)"
^XMB(3.9,55,2,21080,0)=" . S DIR(""?"",1)=""Current Entries are:"""
^XMB(3.9,55,2,21081,0)="""RTN"",""IBCEPA"",94,0)"
^XMB(3.9,55,2,21082,0)=" . F I=2:1 Q:'$D(TAR(""DILIST"",1,I-1))  S DIR(""?"",I)=""     ""_TAR(""DILIST"",1,I-1)"
^XMB(3.9,55,2,21083,0)="""RTN"",""IBCEPA"",95,0)"
^XMB(3.9,55,2,21084,0)=" . S DIR(""?"",I)="" """
^XMB(3.9,55,2,21085,0)="""RTN"",""IBCEPA"",96,0)"
^XMB(3.9,55,2,21086,0)=" ;"
^XMB(3.9,55,2,21087,0)="""RTN"",""IBCEPA"",97,0)"
^XMB(3.9,55,2,21088,0)=" S DIR(""?"",I+1)=""You may enter the name of a new Care Unit for this Insurance Company."""
^XMB(3.9,55,2,21089,0)="""RTN"",""IBCEPA"",98,0)"
^XMB(3.9,55,2,21090,0)=" S DIR(""?"",I+2)=""You can then define a Billing Provider Secondary ID - Billing Screen 3 - for"""
^XMB(3.9,55,2,21091,0)="""RTN"",""IBCEPA"",99,0)"
^XMB(3.9,55,2,21092,0)=" S DIR(""?"")=""this Care Unit and Insurance Company using the Insurance Company Editor."""
^XMB(3.9,55,2,21093,0)="""RTN"",""IBCEPA"",100,0)"
^XMB(3.9,55,2,21094,0)=" S DIR(""A"")=""Enter the Care Unit name"""
^XMB(3.9,55,2,21095,0)="""RTN"",""IBCEPA"",101,0)"
^XMB(3.9,55,2,21096,0)=" S DIR(0)=""FO^1:30"""
^XMB(3.9,55,2,21097,0)="""RTN"",""IBCEPA"",102,0)"
^XMB(3.9,55,2,21098,0)=" D ^DIR"
^XMB(3.9,55,2,21099,0)="""RTN"",""IBCEPA"",103,0)"
^XMB(3.9,55,2,21100,0)=" I X=""""!$G(DUOUT)!$G(DTOUT)!$G(DIROUT) G NEWQ"
^XMB(3.9,55,2,21101,0)="""RTN"",""IBCEPA"",104,0)"
^XMB(3.9,55,2,21102,0)=" S CAREUNIT=X"
^XMB(3.9,55,2,21103,0)="""RTN"",""IBCEPA"",105,0)"
^XMB(3.9,55,2,21104,0)=" ; "
^XMB(3.9,55,2,21105,0)="""RTN"",""IBCEPA"",106,0)"
^XMB(3.9,55,2,21106,0)=" ; At this point, we have X and it'a not a ? or ^"
^XMB(3.9,55,2,21107,0)="""RTN"",""IBCEPA"",107,0)"
^XMB(3.9,55,2,21108,0)=" ;"
^XMB(3.9,55,2,21109,0)="""RTN"",""IBCEPA"",108,0)"
^XMB(3.9,55,2,21110,0)=" K DIC"
^XMB(3.9,55,2,21111,0)="""RTN"",""IBCEPA"",109,0)"
^XMB(3.9,55,2,21112,0)=" S DIC=""^IBA(355.95,"",DIC(""S"")=""I $P(^(0),U,3)=+$G(IBINS),$P(^(0),U,4)=+$G(IBDIV)"",DIC(0)=""EX"""
^XMB(3.9,55,2,21113,0)="""RTN"",""IBCEPA"",110,0)"
^XMB(3.9,55,2,21114,0)=" D ^DIC"
^XMB(3.9,55,2,21115,0)="""RTN"",""IBCEPA"",111,0)"
^XMB(3.9,55,2,21116,0)=" ;"
^XMB(3.9,55,2,21117,0)="""RTN"",""IBCEPA"",112,0)"
^XMB(3.9,55,2,21118,0)=" ; Check if we have an exisitng entry and if so, get out of Dodge (This option was for new care units)"
^XMB(3.9,55,2,21119,0)="""RTN"",""IBCEPA"",113,0)"
^XMB(3.9,55,2,21120,0)=" I Y>0 D  G ACU"
^XMB(3.9,55,2,21121,0)="""RTN"",""IBCEPA"",114,0)"
^XMB(3.9,55,2,21122,0)=" . D DISPMESS(""This action is for adding new entries, not editing existing entries."")"
^XMB(3.9,55,2,21123,0)="""RTN"",""IBCEPA"",115,0)"
^XMB(3.9,55,2,21124,0)=" ;"
^XMB(3.9,55,2,21125,0)="""RTN"",""IBCEPA"",116,0)"
^XMB(3.9,55,2,21126,0)=" ; New entry , validate field"
^XMB(3.9,55,2,21127,0)="""RTN"",""IBCEPA"",117,0)"
^XMB(3.9,55,2,21128,0)=" N TAR2"
^XMB(3.9,55,2,21129,0)="""RTN"",""IBCEPA"",118,0)"
^XMB(3.9,55,2,21130,0)=" D FIELD^DID(355.95,.01,""N"",""INPUT TRANSFORM"",""TAR2"")"
^XMB(3.9,55,2,21131,0)="""RTN"",""IBCEPA"",119,0)"
^XMB(3.9,55,2,21132,0)=" S X=CAREUNIT"
^XMB(3.9,55,2,21133,0)="""RTN"",""IBCEPA"",120,0)"
^XMB(3.9,55,2,21134,0)=" X TAR2(""INPUT TRANSFORM"")"
^XMB(3.9,55,2,21135,0)="""RTN"",""IBCEPA"",121,0)"
^XMB(3.9,55,2,21136,0)=" I '$D(X) D  G ACU  ; Failed input transform"
^XMB(3.9,55,2,21137,0)="""RTN"",""IBCEPA"",122,0)"
^XMB(3.9,55,2,21138,0)=" . D DISPMESS(""Invalid Format."")"
^XMB(3.9,55,2,21139,0)="""RTN"",""IBCEPA"",123,0)"
^XMB(3.9,55,2,21140,0)=" ;"
^XMB(3.9,55,2,21141,0)="""RTN"",""IBCEPA"",124,0)"
^XMB(3.9,55,2,21142,0)=" K DIR"
^XMB(3.9,55,2,21143,0)="""RTN"",""IBCEPA"",125,0)"
^XMB(3.9,55,2,21144,0)=" S DIR(""A"")=""Are you adding '""_X_""' as a new Care Unit for '""_IBDIVNM_""'"""
^XMB(3.9,55,2,21145,0)="""RTN"",""IBCEPA"",126,0)"
^XMB(3.9,55,2,21146,0)=" S DIR(""B"")=""N"""
^XMB(3.9,55,2,21147,0)="""RTN"",""IBCEPA"",127,0)"
^XMB(3.9,55,2,21148,0)=" S DIR(0)=""Y"""
^XMB(3.9,55,2,21149,0)="""RTN"",""IBCEPA"",128,0)"
^XMB(3.9,55,2,21150,0)=" D ^DIR"
^XMB(3.9,55,2,21151,0)="""RTN"",""IBCEPA"",129,0)"
^XMB(3.9,55,2,21152,0)=" I Y=0 G ACU"
^XMB(3.9,55,2,21153,0)="""RTN"",""IBCEPA"",130,0)"
^XMB(3.9,55,2,21154,0)=" I Y[""^"" G NEWQ"
^XMB(3.9,55,2,21155,0)="""RTN"",""IBCEPA"",131,0)"
^XMB(3.9,55,2,21156,0)=" ;"
^XMB(3.9,55,2,21157,0)="""RTN"",""IBCEPA"",132,0)"
^XMB(3.9,55,2,21158,0)=" ; If it got this far, we have an exact match or a new entry.   "
^XMB(3.9,55,2,21159,0)="""RTN"",""IBCEPA"",133,0)"
^XMB(3.9,55,2,21160,0)=" S X=CAREUNIT"
^XMB(3.9,55,2,21161,0)="""RTN"",""IBCEPA"",134,0)"
^XMB(3.9,55,2,21162,0)=" S DIC=""^IBA(355.95,"",DIC(""S"")=""I $P(^(0),U,3)=+$G(IBINS),$P(^(0),U,4)=+$G(IBDIV)"",DIC(0)=""XL"",DLAYGO=355.95"
^XMB(3.9,55,2,21163,0)="""RTN"",""IBCEPA"",135,0)"
^XMB(3.9,55,2,21164,0)=" S DIC(""DR"")="".03////""_+$G(IBINS)_"";.04////""_$G(IBDIV)"
^XMB(3.9,55,2,21165,0)="""RTN"",""IBCEPA"",136,0)"
^XMB(3.9,55,2,21166,0)=" D ^DIC"
^XMB(3.9,55,2,21167,0)="""RTN"",""IBCEPA"",137,0)"
^XMB(3.9,55,2,21168,0)=" I Y>0 D"
^XMB(3.9,55,2,21169,0)="""RTN"",""IBCEPA"",138,0)"
^XMB(3.9,55,2,21170,0)=" . S DA=+Y,DIE=""^IBA(355.95,"""
^XMB(3.9,55,2,21171,0)="""RTN"",""IBCEPA"",139,0)"
^XMB(3.9,55,2,21172,0)=" . S DR="".02Enter the Care Unit Description"""
^XMB(3.9,55,2,21173,0)="""RTN"",""IBCEPA"",140,0)"
^XMB(3.9,55,2,21174,0)=" . D ^DIE"
^XMB(3.9,55,2,21175,0)="""RTN"",""IBCEPA"",141,0)"
^XMB(3.9,55,2,21176,0)=" D BLD"
^XMB(3.9,55,2,21177,0)="""RTN"",""IBCEPA"",142,0)"
^XMB(3.9,55,2,21178,0)=" ;"
^XMB(3.9,55,2,21179,0)="""RTN"",""IBCEPA"",143,0)"
^XMB(3.9,55,2,21180,0)="NEWQ S VALMBCK=""R"""
^XMB(3.9,55,2,21181,0)="""RTN"",""IBCEPA"",144,0)"
^XMB(3.9,55,2,21182,0)=" Q"
^XMB(3.9,55,2,21183,0)="""RTN"",""IBCEPA"",145,0)"
^XMB(3.9,55,2,21184,0)=" ;"
^XMB(3.9,55,2,21185,0)="""RTN"",""IBCEPA"",146,0)"
^XMB(3.9,55,2,21186,0)="CHANGE ; Edit care unit"
^XMB(3.9,55,2,21187,0)="""RTN"",""IBCEPA"",147,0)"
^XMB(3.9,55,2,21188,0)=" ; Assumes IBINS is defined as ins co ien (file 36)"
^XMB(3.9,55,2,21189,0)="""RTN"",""IBCEPA"",148,0)"
^XMB(3.9,55,2,21190,0)=" ; "
^XMB(3.9,55,2,21191,0)="""RTN"",""IBCEPA"",149,0)"
^XMB(3.9,55,2,21192,0)=" D FULL^VALM1"
^XMB(3.9,55,2,21193,0)="""RTN"",""IBCEPA"",150,0)"
^XMB(3.9,55,2,21194,0)=" ;"
^XMB(3.9,55,2,21195,0)="""RTN"",""IBCEPA"",151,0)"
^XMB(3.9,55,2,21196,0)=" N X,Y,Z,DA,DD,DIC,DIK,DIR,IBDIV,CAREUNIT,SCREEN,TAR,DIVISION"
^XMB(3.9,55,2,21197,0)="""RTN"",""IBCEPA"",152,0)"
^XMB(3.9,55,2,21198,0)=" ;"
^XMB(3.9,55,2,21199,0)="""RTN"",""IBCEPA"",153,0)"
^XMB(3.9,55,2,21200,0)=" S SCREEN=""I $P(^(0),U,3)=+$G(IBINS),$P(^(0),U,4)]"""""""""""
^XMB(3.9,55,2,21201,0)="""RTN"",""IBCEPA"",154,0)"
^XMB(3.9,55,2,21202,0)=" D LIST^DIC(355.95,,"".01;.04"",,,,,,SCREEN,,""TAR"")"
^XMB(3.9,55,2,21203,0)="""RTN"",""IBCEPA"",155,0)"
^XMB(3.9,55,2,21204,0)=" ;"
^XMB(3.9,55,2,21205,0)="""RTN"",""IBCEPA"",156,0)"
^XMB(3.9,55,2,21206,0)=" I '+$G(TAR(""DILIST"",0)) D  G CHANGEQ"
^XMB(3.9,55,2,21207,0)="""RTN"",""IBCEPA"",157,0)"
^XMB(3.9,55,2,21208,0)=" .D DISPMESS(""No Care Units Defined for this insurance company."")"
^XMB(3.9,55,2,21209,0)="""RTN"",""IBCEPA"",158,0)"
^XMB(3.9,55,2,21210,0)=" ;"
^XMB(3.9,55,2,21211,0)="""RTN"",""IBCEPA"",159,0)"
^XMB(3.9,55,2,21212,0)=" ; Store all Divisons with at least one care unit in DIVISION array"
^XMB(3.9,55,2,21213,0)="""RTN"",""IBCEPA"",160,0)"
^XMB(3.9,55,2,21214,0)=" F I=1:1 Q:'$D(TAR(""DILIST"",""ID"",I,.04))  D"
^XMB(3.9,55,2,21215,0)="""RTN"",""IBCEPA"",161,0)"
^XMB(3.9,55,2,21216,0)=" . S DIVISION(TAR(""DILIST"",""ID"",I,.04))="""""
^XMB(3.9,55,2,21217,0)="""RTN"",""IBCEPA"",162,0)"
^XMB(3.9,55,2,21218,0)=" ;"
^XMB(3.9,55,2,21219,0)="""RTN"",""IBCEPA"",163,0)"
^XMB(3.9,55,2,21220,0)=" ; Only allow divisions that have care units to be selected"
^XMB(3.9,55,2,21221,0)="""RTN"",""IBCEPA"",164,0)"
^XMB(3.9,55,2,21222,0)=" S DIC=40.8"
^XMB(3.9,55,2,21223,0)="""RTN"",""IBCEPA"",165,0)"
^XMB(3.9,55,2,21224,0)=" S DIC(""A"")=""Enter the Division for this Care Unit: """
^XMB(3.9,55,2,21225,0)="""RTN"",""IBCEPA"",166,0)"
^XMB(3.9,55,2,21226,0)=" S DIC(0)=""AEMQ"""
^XMB(3.9,55,2,21227,0)="""RTN"",""IBCEPA"",167,0)"
^XMB(3.9,55,2,21228,0)=" S DIC(""S"")=""I $D(DIVISION($P(^(0),U)))"""
^XMB(3.9,55,2,21229,0)="""RTN"",""IBCEPA"",168,0)"
^XMB(3.9,55,2,21230,0)=" D ^DIC"
^XMB(3.9,55,2,21231,0)="""RTN"",""IBCEPA"",169,0)"
^XMB(3.9,55,2,21232,0)=" I Y'>0 G CHANGEQ"
^XMB(3.9,55,2,21233,0)="""RTN"",""IBCEPA"",170,0)"
^XMB(3.9,55,2,21234,0)=" S IBDIV=+Y"
^XMB(3.9,55,2,21235,0)="""RTN"",""IBCEPA"",171,0)"
^XMB(3.9,55,2,21236,0)=" ;"
^XMB(3.9,55,2,21237,0)="""RTN"",""IBCEPA"",172,0)"
^XMB(3.9,55,2,21238,0)=" S DIC(""A"")=""Enter the Care Unit name: """
^XMB(3.9,55,2,21239,0)="""RTN"",""IBCEPA"",173,0)"
^XMB(3.9,55,2,21240,0)=" S DIC=355.95,DIC(""S"")=""I $P(^(0),U,3)=+$G(IBINS),$P(^(0),U,4)=+$G(IBDIV)"",DIC(0)=""AEMQ"""
^XMB(3.9,55,2,21241,0)="""RTN"",""IBCEPA"",174,0)"
^XMB(3.9,55,2,21242,0)=" D ^DIC"
^XMB(3.9,55,2,21243,0)="""RTN"",""IBCEPA"",175,0)"
^XMB(3.9,55,2,21244,0)=" I Y<1 G CHANGEQ"
^XMB(3.9,55,2,21245,0)="""RTN"",""IBCEPA"",176,0)"
^XMB(3.9,55,2,21246,0)=" ;"
^XMB(3.9,55,2,21247,0)="""RTN"",""IBCEPA"",177,0)"
^XMB(3.9,55,2,21248,0)=" S DA=+Y,DIE=355.95"
^XMB(3.9,55,2,21249,0)="""RTN"",""IBCEPA"",178,0)"
^XMB(3.9,55,2,21250,0)=" S DR="".01Care Unit;.04Division;.02Description"""
^XMB(3.9,55,2,21251,0)="""RTN"",""IBCEPA"",179,0)"
^XMB(3.9,55,2,21252,0)=" D ^DIE"
^XMB(3.9,55,2,21253,0)="""RTN"",""IBCEPA"",180,0)"
^XMB(3.9,55,2,21254,0)=" ;"
^XMB(3.9,55,2,21255,0)="""RTN"",""IBCEPA"",181,0)"
^XMB(3.9,55,2,21256,0)=" D BLD"
^XMB(3.9,55,2,21257,0)="""RTN"",""IBCEPA"",182,0)"
^XMB(3.9,55,2,21258,0)=" ;"
^XMB(3.9,55,2,21259,0)="""RTN"",""IBCEPA"",183,0)"
^XMB(3.9,55,2,21260,0)="CHANGEQ S VALMBCK=""R"""
^XMB(3.9,55,2,21261,0)="""RTN"",""IBCEPA"",184,0)"
^XMB(3.9,55,2,21262,0)=" Q"
^XMB(3.9,55,2,21263,0)="""RTN"",""IBCEPA"",185,0)"
^XMB(3.9,55,2,21264,0)=" ;"
^XMB(3.9,55,2,21265,0)="""RTN"",""IBCEPA"",186,0)"
^XMB(3.9,55,2,21266,0)="DEL ; Delete a Care Unit"
^XMB(3.9,55,2,21267,0)="""RTN"",""IBCEPA"",187,0)"
^XMB(3.9,55,2,21268,0)=" ; Assumes IBINS is defined as ins co ien (file 36)"
^XMB(3.9,55,2,21269,0)="""RTN"",""IBCEPA"",188,0)"
^XMB(3.9,55,2,21270,0)=" ; "
^XMB(3.9,55,2,21271,0)="""RTN"",""IBCEPA"",189,0)"
^XMB(3.9,55,2,21272,0)=" D FULL^VALM1"
^XMB(3.9,55,2,21273,0)="""RTN"",""IBCEPA"",190,0)"
^XMB(3.9,55,2,21274,0)=" N X,Y,Z,DA,DD,DIC,DIK,DIR,IBDIV,CAREUNIT,SCREEN,TAR,DIVISION"
^XMB(3.9,55,2,21275,0)="""RTN"",""IBCEPA"",191,0)"
^XMB(3.9,55,2,21276,0)=" ;"
^XMB(3.9,55,2,21277,0)="""RTN"",""IBCEPA"",192,0)"
^XMB(3.9,55,2,21278,0)=" S SCREEN=""I $P(^(0),U,3)=+$G(IBINS),$P(^(0),U,4)]"""""""""""
^XMB(3.9,55,2,21279,0)="""RTN"",""IBCEPA"",193,0)"
^XMB(3.9,55,2,21280,0)=" D LIST^DIC(355.95,,"".01;.04"",,,,,,SCREEN,,""TAR"")"
^XMB(3.9,55,2,21281,0)="""RTN"",""IBCEPA"",194,0)"
^XMB(3.9,55,2,21282,0)=" ;"
^XMB(3.9,55,2,21283,0)="""RTN"",""IBCEPA"",195,0)"
^XMB(3.9,55,2,21284,0)=" I '+$G(TAR(""DILIST"",0)) D  G DELQ"
^XMB(3.9,55,2,21285,0)="""RTN"",""IBCEPA"",196,0)"
^XMB(3.9,55,2,21286,0)=" .D DISPMESS(""No Care Units Defined for this insurance company."")"
^XMB(3.9,55,2,21287,0)="""RTN"",""IBCEPA"",197,0)"
^XMB(3.9,55,2,21288,0)=" ;"
^XMB(3.9,55,2,21289,0)="""RTN"",""IBCEPA"",198,0)"
^XMB(3.9,55,2,21290,0)=" ; Store all Divisons with at least one care unit in DIVISION array"
^XMB(3.9,55,2,21291,0)="""RTN"",""IBCEPA"",199,0)"
^XMB(3.9,55,2,21292,0)=" F I=1:1 Q:'$D(TAR(""DILIST"",""ID"",I,.04))  D"
^XMB(3.9,55,2,21293,0)="""RTN"",""IBCEPA"",200,0)"
^XMB(3.9,55,2,21294,0)=" . S DIVISION(TAR(""DILIST"",""ID"",I,.04))="""""
^XMB(3.9,55,2,21295,0)="""RTN"",""IBCEPA"",201,0)"
^XMB(3.9,55,2,21296,0)=" ;"
^XMB(3.9,55,2,21297,0)="""RTN"",""IBCEPA"",202,0)"
^XMB(3.9,55,2,21298,0)=" ; Only allow divisions that have care units to be selected"
^XMB(3.9,55,2,21299,0)="""RTN"",""IBCEPA"",203,0)"
^XMB(3.9,55,2,21300,0)=" S DIC=40.8"
^XMB(3.9,55,2,21301,0)="""RTN"",""IBCEPA"",204,0)"
^XMB(3.9,55,2,21302,0)=" S DIC(""A"")=""Enter the Division for this Care Unit: """
^XMB(3.9,55,2,21303,0)="""RTN"",""IBCEPA"",205,0)"
^XMB(3.9,55,2,21304,0)=" S DIC(0)=""AEMQ"""
^XMB(3.9,55,2,21305,0)="""RTN"",""IBCEPA"",206,0)"
^XMB(3.9,55,2,21306,0)=" S DIC(""S"")=""I $D(DIVISION($P(^(0),U)))"""
^XMB(3.9,55,2,21307,0)="""RTN"",""IBCEPA"",207,0)"
^XMB(3.9,55,2,21308,0)=" D ^DIC"
^XMB(3.9,55,2,21309,0)="""RTN"",""IBCEPA"",208,0)"
^XMB(3.9,55,2,21310,0)=" I Y'>0 G DELQ"
^XMB(3.9,55,2,21311,0)="""RTN"",""IBCEPA"",209,0)"
^XMB(3.9,55,2,21312,0)=" S IBDIV=+Y"
^XMB(3.9,55,2,21313,0)="""RTN"",""IBCEPA"",210,0)"
^XMB(3.9,55,2,21314,0)=" ;"
^XMB(3.9,55,2,21315,0)="""RTN"",""IBCEPA"",211,0)"
^XMB(3.9,55,2,21316,0)=" K DIC"
^XMB(3.9,55,2,21317,0)="""RTN"",""IBCEPA"",212,0)"
^XMB(3.9,55,2,21318,0)=" S DIC(""A"")=""Enter the Care Unit name: """
^XMB(3.9,55,2,21319,0)="""RTN"",""IBCEPA"",213,0)"
^XMB(3.9,55,2,21320,0)=" S DIC=355.95,DIC(""S"")=""I $P(^(0),U,3)=+$G(IBINS),$P(^(0),U,4)=+$G(IBDIV)"",DIC(0)=""AEMQ"""
^XMB(3.9,55,2,21321,0)="""RTN"",""IBCEPA"",214,0)"
^XMB(3.9,55,2,21322,0)=" D ^DIC"
^XMB(3.9,55,2,21323,0)="""RTN"",""IBCEPA"",215,0)"
^XMB(3.9,55,2,21324,0)=" I Y<1 G DELQ"
^XMB(3.9,55,2,21325,0)="""RTN"",""IBCEPA"",216,0)"
^XMB(3.9,55,2,21326,0)=" S CAREUNIT=+Y"
^XMB(3.9,55,2,21327,0)="""RTN"",""IBCEPA"",217,0)"
^XMB(3.9,55,2,21328,0)=" ;"
^XMB(3.9,55,2,21329,0)="""RTN"",""IBCEPA"",218,0)"
^XMB(3.9,55,2,21330,0)=" I $D(^IBA(355.92,""AC"",+Y)) D  G DELQ"
^XMB(3.9,55,2,21331,0)="""RTN"",""IBCEPA"",219,0)"
^XMB(3.9,55,2,21332,0)=" . S DIR(0)=""EA"""
^XMB(3.9,55,2,21333,0)="""RTN"",""IBCEPA"",220,0)"
^XMB(3.9,55,2,21334,0)=" . S DIR(""A"",1)=""IDs that are assigned to the Care Unit in the Insurance Company Editor must be"""
^XMB(3.9,55,2,21335,0)="""RTN"",""IBCEPA"",221,0)"
^XMB(3.9,55,2,21336,0)=" . S DIR(""A"",2)=""deleted before deleting the Care Unit."""
^XMB(3.9,55,2,21337,0)="""RTN"",""IBCEPA"",222,0)"
^XMB(3.9,55,2,21338,0)="    . S DIR(""A"")=""Press return to continue """
^XMB(3.9,55,2,21339,0)="""RTN"",""IBCEPA"",223,0)"
^XMB(3.9,55,2,21340,0)="    . W ! D ^DIR K DIR"
^XMB(3.9,55,2,21341,0)="""RTN"",""IBCEPA"",224,0)"
^XMB(3.9,55,2,21342,0)=" ;"
^XMB(3.9,55,2,21343,0)="""RTN"",""IBCEPA"",225,0)"
^XMB(3.9,55,2,21344,0)=" S DIR(""A"")=""OK to Delete: """
^XMB(3.9,55,2,21345,0)="""RTN"",""IBCEPA"",226,0)"
^XMB(3.9,55,2,21346,0)=" S DIR(""B"")=""No"""
^XMB(3.9,55,2,21347,0)="""RTN"",""IBCEPA"",227,0)"
^XMB(3.9,55,2,21348,0)=" S DIR(0)=""YAO"""
^XMB(3.9,55,2,21349,0)="""RTN"",""IBCEPA"",228,0)"
^XMB(3.9,55,2,21350,0)=" D ^DIR"
^XMB(3.9,55,2,21351,0)="""RTN"",""IBCEPA"",229,0)"
^XMB(3.9,55,2,21352,0)=" I '$G(Y) G DELQ"
^XMB(3.9,55,2,21353,0)="""RTN"",""IBCEPA"",230,0)"
^XMB(3.9,55,2,21354,0)=" K DIR"
^XMB(3.9,55,2,21355,0)="""RTN"",""IBCEPA"",231,0)"
^XMB(3.9,55,2,21356,0)=" ;"
^XMB(3.9,55,2,21357,0)="""RTN"",""IBCEPA"",232,0)"
^XMB(3.9,55,2,21358,0)=" S DA=CAREUNIT"
^XMB(3.9,55,2,21359,0)="""RTN"",""IBCEPA"",233,0)"
^XMB(3.9,55,2,21360,0)=" S DIK=""^IBA(""_355.95_"","""
^XMB(3.9,55,2,21361,0)="""RTN"",""IBCEPA"",234,0)"
^XMB(3.9,55,2,21362,0)=" D ^DIK"
^XMB(3.9,55,2,21363,0)="""RTN"",""IBCEPA"",235,0)"
^XMB(3.9,55,2,21364,0)=" ;"
^XMB(3.9,55,2,21365,0)="""RTN"",""IBCEPA"",236,0)"
^XMB(3.9,55,2,21366,0)=" D BLD"
^XMB(3.9,55,2,21367,0)="""RTN"",""IBCEPA"",237,0)"
^XMB(3.9,55,2,21368,0)=" ;"
^XMB(3.9,55,2,21369,0)="""RTN"",""IBCEPA"",238,0)"
^XMB(3.9,55,2,21370,0)="DELQ S VALMBCK=""R"""
^XMB(3.9,55,2,21371,0)="""RTN"",""IBCEPA"",239,0)"
^XMB(3.9,55,2,21372,0)=" Q"
^XMB(3.9,55,2,21373,0)="""RTN"",""IBCEPA"",240,0)"
^XMB(3.9,55,2,21374,0)=" ;"
^XMB(3.9,55,2,21375,0)="""RTN"",""IBCEPA"",241,0)"
^XMB(3.9,55,2,21376,0)="DISPMESS(MESS) ;"
^XMB(3.9,55,2,21377,0)="""RTN"",""IBCEPA"",242,0)"
^XMB(3.9,55,2,21378,0)=" N DIR,X,Y"
^XMB(3.9,55,2,21379,0)="""RTN"",""IBCEPA"",243,0)"
^XMB(3.9,55,2,21380,0)=" S DIR(0)=""EA"",DIR(""A"",1)=MESS"
^XMB(3.9,55,2,21381,0)="""RTN"",""IBCEPA"",244,0)"
^XMB(3.9,55,2,21382,0)=" S DIR(""A"")=""PRESS ENTER to continue """
^XMB(3.9,55,2,21383,0)="""RTN"",""IBCEPA"",245,0)"
^XMB(3.9,55,2,21384,0)=" D ^DIR"
^XMB(3.9,55,2,21385,0)="""RTN"",""IBCEPA"",246,0)"
^XMB(3.9,55,2,21386,0)=" Q"
^XMB(3.9,55,2,21387,0)="""RTN"",""IBCEPA"",247,0)"
^XMB(3.9,55,2,21388,0)=" ;"
^XMB(3.9,55,2,21389,0)="""RTN"",""IBCEPB"")"
^XMB(3.9,55,2,21390,0)="0^68^B8186996"
^XMB(3.9,55,2,21391,0)="""RTN"",""IBCEPB"",1,0)"
^XMB(3.9,55,2,21392,0)="IBCEPB ; ; 22-DEC-2005"
^XMB(3.9,55,2,21393,0)="""RTN"",""IBCEPB"",2,0)"
^XMB(3.9,55,2,21394,0)=" ;;2.0;INTEGRATED BILLING;**320**;21-MAR-94"
^XMB(3.9,55,2,21395,0)="""RTN"",""IBCEPB"",3,0)"
^XMB(3.9,55,2,21396,0)="EN ; -- main entry point for IBCE INSCO ID MAINT"
^XMB(3.9,55,2,21397,0)="""RTN"",""IBCEPB"",4,0)"
^XMB(3.9,55,2,21398,0)=" D EN^VALM(""IBCE INSCO ID MAINT"")"
^XMB(3.9,55,2,21399,0)="""RTN"",""IBCEPB"",5,0)"
^XMB(3.9,55,2,21400,0)=" Q"
^XMB(3.9,55,2,21401,0)="""RTN"",""IBCEPB"",6,0)"
^XMB(3.9,55,2,21402,0)=" ;"
^XMB(3.9,55,2,21403,0)="""RTN"",""IBCEPB"",7,0)"
^XMB(3.9,55,2,21404,0)="HDR ; -- header code"
^XMB(3.9,55,2,21405,0)="""RTN"",""IBCEPB"",8,0)"
^XMB(3.9,55,2,21406,0)=" N PCF,PCDISP"
^XMB(3.9,55,2,21407,0)="""RTN"",""IBCEPB"",9,0)"
^XMB(3.9,55,2,21408,0)=" I '$D(IBCNS) N IBCNS S IBCNS=IBINS"
^XMB(3.9,55,2,21409,0)="""RTN"",""IBCEPB"",10,0)"
^XMB(3.9,55,2,21410,0)=" S PCF=$P($G(^DIC(36,+IBCNS,3)),U,13),PCDISP=$S(PCF=""P"":""(Parent)"",1:"""")"
^XMB(3.9,55,2,21411,0)="""RTN"",""IBCEPB"",11,0)"
^XMB(3.9,55,2,21412,0)=" S VALMHDR(1)=""Insurance Co: ""_$P($G(^DIC(36,+IBCNS,0)),U)_PCDISP"
^XMB(3.9,55,2,21413,0)="""RTN"",""IBCEPB"",12,0)"
^XMB(3.9,55,2,21414,0)=" Q"
^XMB(3.9,55,2,21415,0)="""RTN"",""IBCEPB"",13,0)"
^XMB(3.9,55,2,21416,0)=" ;"
^XMB(3.9,55,2,21417,0)="""RTN"",""IBCEPB"",14,0)"
^XMB(3.9,55,2,21418,0)="INIT ; Initialize"
^XMB(3.9,55,2,21419,0)="""RTN"",""IBCEPB"",15,0)"
^XMB(3.9,55,2,21420,0)=" I '$D(IBCNS) N IBCNS S IBCNS=IBINS"
^XMB(3.9,55,2,21421,0)="""RTN"",""IBCEPB"",16,0)"
^XMB(3.9,55,2,21422,0)=" N IBLCT"
^XMB(3.9,55,2,21423,0)="""RTN"",""IBCEPB"",17,0)"
^XMB(3.9,55,2,21424,0)=" S IBLCT=0"
^XMB(3.9,55,2,21425,0)="""RTN"",""IBCEPB"",18,0)"
^XMB(3.9,55,2,21426,0)=" ; Display the list"
^XMB(3.9,55,2,21427,0)="""RTN"",""IBCEPB"",19,0)"
^XMB(3.9,55,2,21428,0)=" D SET1(.IBLCT,""Attending/Rendering Provider Secondary ID"")"
^XMB(3.9,55,2,21429,0)="""RTN"",""IBCEPB"",20,0)"
^XMB(3.9,55,2,21430,0)=" D SET1(.IBLCT,""Default ID (HCFA): ""_$$GET1^DIQ(36,IBCNS,4.01))"
^XMB(3.9,55,2,21431,0)="""RTN"",""IBCEPB"",21,0)"
^XMB(3.9,55,2,21432,0)=" D SET1(.IBLCT,""Default ID (UB92): ""_$$GET1^DIQ(36,IBCNS,4.02))"
^XMB(3.9,55,2,21433,0)="""RTN"",""IBCEPB"",22,0)"
^XMB(3.9,55,2,21434,0)=" D SET1(.IBLCT,""Require ID on Claim: ""_$$GET1^DIQ(36,IBCNS,4.03))"
^XMB(3.9,55,2,21435,0)="""RTN"",""IBCEPB"",23,0)"
^XMB(3.9,55,2,21436,0)=" D SET1(.IBLCT,"" "")"
^XMB(3.9,55,2,21437,0)="""RTN"",""IBCEPB"",24,0)"
^XMB(3.9,55,2,21438,0)=" D SET1(.IBLCT,""Referring Provider Secondary ID"")"
^XMB(3.9,55,2,21439,0)="""RTN"",""IBCEPB"",25,0)"
^XMB(3.9,55,2,21440,0)=" D SET1(.IBLCT,""Default ID (HCFA): ""_$$GET1^DIQ(36,IBCNS,4.04))"
^XMB(3.9,55,2,21441,0)="""RTN"",""IBCEPB"",26,0)"
^XMB(3.9,55,2,21442,0)=" D SET1(.IBLCT,""Require ID on Claim: ""_$$GET1^DIQ(36,IBCNS,4.05))"
^XMB(3.9,55,2,21443,0)="""RTN"",""IBCEPB"",27,0)"
^XMB(3.9,55,2,21444,0)=" D SET1(.IBLCT,"" "")"
^XMB(3.9,55,2,21445,0)="""RTN"",""IBCEPB"",28,0)"
^XMB(3.9,55,2,21446,0)=" D SET1(.IBLCT,""Billing Provider Secondary IDs"")"
^XMB(3.9,55,2,21447,0)="""RTN"",""IBCEPB"",29,0)"
^XMB(3.9,55,2,21448,0)=" D SET1(.IBLCT,""Use Att/Rend ID as Billing Provider Sec. ID (HCFA)?: ""_$$GET1^DIQ(36,IBCNS,4.06))"
^XMB(3.9,55,2,21449,0)="""RTN"",""IBCEPB"",30,0)"
^XMB(3.9,55,2,21450,0)=" D SET1(.IBLCT,""Use Att/Rend ID as Billing Provider Sec. ID (UB92)?: ""_$$GET1^DIQ(36,IBCNS,4.08))"
^XMB(3.9,55,2,21451,0)="""RTN"",""IBCEPB"",31,0)"
^XMB(3.9,55,2,21452,0)=" D SET1(.IBLCT,""Transmit no Billing Provider Sec ID for the following Electronic Plan Types:"")"
^XMB(3.9,55,2,21453,0)="""RTN"",""IBCEPB"",32,0)"
^XMB(3.9,55,2,21454,0)=" D LIST^DIC(36.013,"",""_IBCNS_"","","".01"",,10,,,,,,""TAR"",""ERR"")"
^XMB(3.9,55,2,21455,0)="""RTN"",""IBCEPB"",33,0)"
^XMB(3.9,55,2,21456,0)=" F I=1:1:+$G(TAR(""DILIST"",0)) D"
^XMB(3.9,55,2,21457,0)="""RTN"",""IBCEPB"",34,0)"
^XMB(3.9,55,2,21458,0)=" . D SET1(.IBLCT,TAR(""DILIST"",1,I))"
^XMB(3.9,55,2,21459,0)="""RTN"",""IBCEPB"",35,0)"
^XMB(3.9,55,2,21460,0)=" D SET1(.IBLCT,"" "")"
^XMB(3.9,55,2,21461,0)="""RTN"",""IBCEPB"",36,0)"
^XMB(3.9,55,2,21462,0)=" D SET1(.IBLCT,""VA-Laboratory or Facility IDs"")"
^XMB(3.9,55,2,21463,0)="""RTN"",""IBCEPB"",37,0)"
^XMB(3.9,55,2,21464,0)=" D SET1(.IBLCT,""Send VA Lab/Facility IDs or Facility Data for VAMC?: ""_$$GET1^DIQ(36,IBCNS,4.07))"
^XMB(3.9,55,2,21465,0)="""RTN"",""IBCEPB"",38,0)"
^XMB(3.9,55,2,21466,0)=" D SET1(.IBLCT,"" "")"
^XMB(3.9,55,2,21467,0)="""RTN"",""IBCEPB"",39,0)"
^XMB(3.9,55,2,21468,0)=" D SET1(.IBLCT,""Print SSN on claim"")"
^XMB(3.9,55,2,21469,0)="""RTN"",""IBCEPB"",40,0)"
^XMB(3.9,55,2,21470,0)=" D SET1(.IBLCT,""Print on HCFA?: ""_$$GET1^DIQ(36,IBCNS,3.11))"
^XMB(3.9,55,2,21471,0)="""RTN"",""IBCEPB"",41,0)"
^XMB(3.9,55,2,21472,0)=" D SET1(.IBLCT,""Print on UB92?: ""_$$GET1^DIQ(36,IBCNS,3.12))"
^XMB(3.9,55,2,21473,0)="""RTN"",""IBCEPB"",42,0)"
^XMB(3.9,55,2,21474,0)=" S VALMBG=1,VALMCNT=IBLCT"
^XMB(3.9,55,2,21475,0)="""RTN"",""IBCEPB"",43,0)"
^XMB(3.9,55,2,21476,0)=" Q"
^XMB(3.9,55,2,21477,0)="""RTN"",""IBCEPB"",44,0)"
^XMB(3.9,55,2,21478,0)=" ;"
^XMB(3.9,55,2,21479,0)="""RTN"",""IBCEPB"",45,0)"
^XMB(3.9,55,2,21480,0)="SET1(IBLCT,TEXT,IBCT) ;"
^XMB(3.9,55,2,21481,0)="""RTN"",""IBCEPB"",46,0)"
^XMB(3.9,55,2,21482,0)=" S IBLCT=IBLCT+1 D SET^VALM10(IBLCT,TEXT)"
^XMB(3.9,55,2,21483,0)="""RTN"",""IBCEPB"",47,0)"
^XMB(3.9,55,2,21484,0)=" Q"
^XMB(3.9,55,2,21485,0)="""RTN"",""IBCEPB"",48,0)"
^XMB(3.9,55,2,21486,0)=" ;"
^XMB(3.9,55,2,21487,0)="""RTN"",""IBCEPB"",49,0)"
^XMB(3.9,55,2,21488,0)="EXPND ;"
^XMB(3.9,55,2,21489,0)="""RTN"",""IBCEPB"",50,0)"
^XMB(3.9,55,2,21490,0)=" Q"
^XMB(3.9,55,2,21491,0)="""RTN"",""IBCEPB"",51,0)"
^XMB(3.9,55,2,21492,0)="HELP ;"
^XMB(3.9,55,2,21493,0)="""RTN"",""IBCEPB"",52,0)"
^XMB(3.9,55,2,21494,0)=" Q"
^XMB(3.9,55,2,21495,0)="""RTN"",""IBCEPB"",53,0)"
^XMB(3.9,55,2,21496,0)="EXIT ;"
^XMB(3.9,55,2,21497,0)="""RTN"",""IBCEPB"",54,0)"
^XMB(3.9,55,2,21498,0)=" D CLEAN^VALM10"
^XMB(3.9,55,2,21499,0)="""RTN"",""IBCEPB"",55,0)"
^XMB(3.9,55,2,21500,0)=" Q"
^XMB(3.9,55,2,21501,0)="""RTN"",""IBCEPB"",56,0)"
^XMB(3.9,55,2,21502,0)=" ;"
^XMB(3.9,55,2,21503,0)="""RTN"",""IBCEPB"",57,0)"
^XMB(3.9,55,2,21504,0)="IDPARAM ;"
^XMB(3.9,55,2,21505,0)="""RTN"",""IBCEPB"",58,0)"
^XMB(3.9,55,2,21506,0)=" D FULL^VALM1"
^XMB(3.9,55,2,21507,0)="""RTN"",""IBCEPB"",59,0)"
^XMB(3.9,55,2,21508,0)=" N DIE,DA,DR"
^XMB(3.9,55,2,21509,0)="""RTN"",""IBCEPB"",60,0)"
^XMB(3.9,55,2,21510,0)=" I '$D(IBCNS) N IBCNS S IBCNS=IBINS"
^XMB(3.9,55,2,21511,0)="""RTN"",""IBCEPB"",61,0)"
^XMB(3.9,55,2,21512,0)=" S DIE=""^DIC(36,"",(DA,Y)=IBCNS,DR=""[IBEDIT INS CO1]"""
^XMB(3.9,55,2,21513,0)="""RTN"",""IBCEPB"",62,0)"
^XMB(3.9,55,2,21514,0)=" I '$D(IBY) N IBY S IBY="",12,"""
^XMB(3.9,55,2,21515,0)="""RTN"",""IBCEPB"",63,0)"
^XMB(3.9,55,2,21516,0)=" D ^DIE K DIE"
^XMB(3.9,55,2,21517,0)="""RTN"",""IBCEPB"",64,0)"
^XMB(3.9,55,2,21518,0)=" K ^TMP(""IBCE_PRVFAC_MAINT"",$J)"
^XMB(3.9,55,2,21519,0)="""RTN"",""IBCEPB"",65,0)"
^XMB(3.9,55,2,21520,0)=" D INIT"
^XMB(3.9,55,2,21521,0)="""RTN"",""IBCEPB"",66,0)"
^XMB(3.9,55,2,21522,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,21523,0)="""RTN"",""IBCEPB"",67,0)"
^XMB(3.9,55,2,21524,0)=" Q"
^XMB(3.9,55,2,21525,0)="""RTN"",""IBCEPB"",68,0)"
^XMB(3.9,55,2,21526,0)=" ;"
^XMB(3.9,55,2,21527,0)="""RTN"",""IBCEPB"",69,0)"
^XMB(3.9,55,2,21528,0)="BILLPRVP ;"
^XMB(3.9,55,2,21529,0)="""RTN"",""IBCEPB"",70,0)"
^XMB(3.9,55,2,21530,0)=" D FULL^VALM1"
^XMB(3.9,55,2,21531,0)="""RTN"",""IBCEPB"",71,0)"
^XMB(3.9,55,2,21532,0)=" D EN^IBCEPC"
^XMB(3.9,55,2,21533,0)="""RTN"",""IBCEPB"",72,0)"
^XMB(3.9,55,2,21534,0)=" D INIT"
^XMB(3.9,55,2,21535,0)="""RTN"",""IBCEPB"",73,0)"
^XMB(3.9,55,2,21536,0)=" K ^TMP(""IBCE_PRVFAC_MAINT"",$J)"
^XMB(3.9,55,2,21537,0)="""RTN"",""IBCEPB"",74,0)"
^XMB(3.9,55,2,21538,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,21539,0)="""RTN"",""IBCEPB"",75,0)"
^XMB(3.9,55,2,21540,0)=" Q"
^XMB(3.9,55,2,21541,0)="""RTN"",""IBCEPC"")"
^XMB(3.9,55,2,21542,0)="0^63^B5826861"
^XMB(3.9,55,2,21543,0)="""RTN"",""IBCEPC"",1,0)"
^XMB(3.9,55,2,21544,0)="IBCEPC ; ; 22-DEC-2005"
^XMB(3.9,55,2,21545,0)="""RTN"",""IBCEPC"",2,0)"
^XMB(3.9,55,2,21546,0)=" ;;2.0;INTEGRATED BILLING;**320**;21-MAR-94"
^XMB(3.9,55,2,21547,0)="""RTN"",""IBCEPC"",3,0)"
^XMB(3.9,55,2,21548,0)="EN ; -- main entry point for IBCE INSCO BILL PROV MAINT"
^XMB(3.9,55,2,21549,0)="""RTN"",""IBCEPC"",4,0)"
^XMB(3.9,55,2,21550,0)=" D EN^VALM(""IBCE INSCO BILL PROV MAINT"")"
^XMB(3.9,55,2,21551,0)="""RTN"",""IBCEPC"",5,0)"
^XMB(3.9,55,2,21552,0)=" Q"
^XMB(3.9,55,2,21553,0)="""RTN"",""IBCEPC"",6,0)"
^XMB(3.9,55,2,21554,0)=" ;"
^XMB(3.9,55,2,21555,0)="""RTN"",""IBCEPC"",7,0)"
^XMB(3.9,55,2,21556,0)="HDR ; -- header code"
^XMB(3.9,55,2,21557,0)="""RTN"",""IBCEPC"",8,0)"
^XMB(3.9,55,2,21558,0)=" N PCF,PCDISP"
^XMB(3.9,55,2,21559,0)="""RTN"",""IBCEPC"",9,0)"
^XMB(3.9,55,2,21560,0)=" I '$D(IBCNS) N IBCNS S IBCNS=IBINS"
^XMB(3.9,55,2,21561,0)="""RTN"",""IBCEPC"",10,0)"
^XMB(3.9,55,2,21562,0)=" S PCF=$P($G(^DIC(36,+IBCNS,3)),U,13),PCDISP=$S(PCF=""P"":""(Parent)"",1:"""")"
^XMB(3.9,55,2,21563,0)="""RTN"",""IBCEPC"",11,0)"
^XMB(3.9,55,2,21564,0)=" S VALMHDR(1)=""Insurance Co: ""_$P($G(^DIC(36,+IBCNS,0)),U)_PCDISP"
^XMB(3.9,55,2,21565,0)="""RTN"",""IBCEPC"",12,0)"
^XMB(3.9,55,2,21566,0)=" Q"
^XMB(3.9,55,2,21567,0)="""RTN"",""IBCEPC"",13,0)"
^XMB(3.9,55,2,21568,0)=" ;"
^XMB(3.9,55,2,21569,0)="""RTN"",""IBCEPC"",14,0)"
^XMB(3.9,55,2,21570,0)="INIT ; Initialize"
^XMB(3.9,55,2,21571,0)="""RTN"",""IBCEPC"",15,0)"
^XMB(3.9,55,2,21572,0)=" N IBLCT,IBCT"
^XMB(3.9,55,2,21573,0)="""RTN"",""IBCEPC"",16,0)"
^XMB(3.9,55,2,21574,0)=" I '$D(IBCNS) N IBCNS S IBCNS=IBINS"
^XMB(3.9,55,2,21575,0)="""RTN"",""IBCEPC"",17,0)"
^XMB(3.9,55,2,21576,0)=" S (IBCT,IBLCT)=0"
^XMB(3.9,55,2,21577,0)="""RTN"",""IBCEPC"",18,0)"
^XMB(3.9,55,2,21578,0)=" ; Display the list"
^XMB(3.9,55,2,21579,0)="""RTN"",""IBCEPC"",19,0)"
^XMB(3.9,55,2,21580,0)=" D SET1(.IBLCT,""Transmit no billing Provider Sec ID for the following Electronic Plan Types:"",IBCT+1)"
^XMB(3.9,55,2,21581,0)="""RTN"",""IBCEPC"",20,0)"
^XMB(3.9,55,2,21582,0)=" D LIST^DIC(36.013,"",""_IBCNS_"","","".01"",,10,,,,,,""TAR"",""ERR"")"
^XMB(3.9,55,2,21583,0)="""RTN"",""IBCEPC"",21,0)"
^XMB(3.9,55,2,21584,0)=" F IBCT=1:1:+$G(TAR(""DILIST"",0)) D"
^XMB(3.9,55,2,21585,0)="""RTN"",""IBCEPC"",22,0)"
^XMB(3.9,55,2,21586,0)=" . D SET1(.IBLCT,IBCT_""   ""_TAR(""DILIST"",1,IBCT),IBCT)"
^XMB(3.9,55,2,21587,0)="""RTN"",""IBCEPC"",23,0)"
^XMB(3.9,55,2,21588,0)=" . S ^TMP(""IBCE INSCO BILL PROV MAINT"",$J,""ZIDX"",IBCT)=TAR(""DILIST"",2,IBCT)_U_TAR(""DILIST"",1,IBCT)"
^XMB(3.9,55,2,21589,0)="""RTN"",""IBCEPC"",24,0)"
^XMB(3.9,55,2,21590,0)=" S VALMBG=1,VALMCNT=IBLCT"
^XMB(3.9,55,2,21591,0)="""RTN"",""IBCEPC"",25,0)"
^XMB(3.9,55,2,21592,0)=" Q"
^XMB(3.9,55,2,21593,0)="""RTN"",""IBCEPC"",26,0)"
^XMB(3.9,55,2,21594,0)=" ;"
^XMB(3.9,55,2,21595,0)="""RTN"",""IBCEPC"",27,0)"
^XMB(3.9,55,2,21596,0)="SET1(IBLCT,TEXT,IBCT) ;"
^XMB(3.9,55,2,21597,0)="""RTN"",""IBCEPC"",28,0)"
^XMB(3.9,55,2,21598,0)=" S IBLCT=IBLCT+1 D SET^VALM10(IBLCT,TEXT,$G(IBCT))"
^XMB(3.9,55,2,21599,0)="""RTN"",""IBCEPC"",29,0)"
^XMB(3.9,55,2,21600,0)=" Q"
^XMB(3.9,55,2,21601,0)="""RTN"",""IBCEPC"",30,0)"
^XMB(3.9,55,2,21602,0)=" ;"
^XMB(3.9,55,2,21603,0)="""RTN"",""IBCEPC"",31,0)"
^XMB(3.9,55,2,21604,0)="EXPND ;"
^XMB(3.9,55,2,21605,0)="""RTN"",""IBCEPC"",32,0)"
^XMB(3.9,55,2,21606,0)=" Q"
^XMB(3.9,55,2,21607,0)="""RTN"",""IBCEPC"",33,0)"
^XMB(3.9,55,2,21608,0)="HELP ;"
^XMB(3.9,55,2,21609,0)="""RTN"",""IBCEPC"",34,0)"
^XMB(3.9,55,2,21610,0)=" Q"
^XMB(3.9,55,2,21611,0)="""RTN"",""IBCEPC"",35,0)"
^XMB(3.9,55,2,21612,0)="EXIT ;"
^XMB(3.9,55,2,21613,0)="""RTN"",""IBCEPC"",36,0)"
^XMB(3.9,55,2,21614,0)=" D CLEAN^VALM10"
^XMB(3.9,55,2,21615,0)="""RTN"",""IBCEPC"",37,0)"
^XMB(3.9,55,2,21616,0)=" Q"
^XMB(3.9,55,2,21617,0)="""RTN"",""IBCEPC"",38,0)"
^XMB(3.9,55,2,21618,0)="ADD ;"
^XMB(3.9,55,2,21619,0)="""RTN"",""IBCEPC"",39,0)"
^XMB(3.9,55,2,21620,0)=" D FULL^VALM1"
^XMB(3.9,55,2,21621,0)="""RTN"",""IBCEPC"",40,0)"
^XMB(3.9,55,2,21622,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,21623,0)="""RTN"",""IBCEPC"",41,0)"
^XMB(3.9,55,2,21624,0)=" N DIR,X,Y,DIC,DA"
^XMB(3.9,55,2,21625,0)="""RTN"",""IBCEPC"",42,0)"
^XMB(3.9,55,2,21626,0)=" I '$D(IBCNS) N IBCNS S IBCNS=IBINS"
^XMB(3.9,55,2,21627,0)="""RTN"",""IBCEPC"",43,0)"
^XMB(3.9,55,2,21628,0)=" S DIR(""A"")=""Plan Type: "",DIR(0)=""36.013,.01AOr"""
^XMB(3.9,55,2,21629,0)="""RTN"",""IBCEPC"",44,0)"
^XMB(3.9,55,2,21630,0)=" D ^DIR K DIR"
^XMB(3.9,55,2,21631,0)="""RTN"",""IBCEPC"",45,0)"
^XMB(3.9,55,2,21632,0)=" Q:$D(DTOUT)!$D(DUOUT)"
^XMB(3.9,55,2,21633,0)="""RTN"",""IBCEPC"",46,0)"
^XMB(3.9,55,2,21634,0)=" ;"
^XMB(3.9,55,2,21635,0)="""RTN"",""IBCEPC"",47,0)"
^XMB(3.9,55,2,21636,0)=" S X=Y"
^XMB(3.9,55,2,21637,0)="""RTN"",""IBCEPC"",48,0)"
^XMB(3.9,55,2,21638,0)=" S DIC(0)=""L"",DA(1)=IBCNS"
^XMB(3.9,55,2,21639,0)="""RTN"",""IBCEPC"",49,0)"
^XMB(3.9,55,2,21640,0)=" S DIC=""^DIC(36,""_DA(1)_"",13,"""
^XMB(3.9,55,2,21641,0)="""RTN"",""IBCEPC"",50,0)"
^XMB(3.9,55,2,21642,0)=" D ^DIC"
^XMB(3.9,55,2,21643,0)="""RTN"",""IBCEPC"",51,0)"
^XMB(3.9,55,2,21644,0)=" K ^TMP(""IBCE INSCO BILL PROV MAINT"",$J)"
^XMB(3.9,55,2,21645,0)="""RTN"",""IBCEPC"",52,0)"
^XMB(3.9,55,2,21646,0)=" D INIT"
^XMB(3.9,55,2,21647,0)="""RTN"",""IBCEPC"",53,0)"
^XMB(3.9,55,2,21648,0)=" ;"
^XMB(3.9,55,2,21649,0)="""RTN"",""IBCEPC"",54,0)"
^XMB(3.9,55,2,21650,0)=" Q"
^XMB(3.9,55,2,21651,0)="""RTN"",""IBCEPC"",55,0)"
^XMB(3.9,55,2,21652,0)="DEL ;"
^XMB(3.9,55,2,21653,0)="""RTN"",""IBCEPC"",56,0)"
^XMB(3.9,55,2,21654,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,21655,0)="""RTN"",""IBCEPC"",57,0)"
^XMB(3.9,55,2,21656,0)=" I '$D(^TMP(""IBCE INSCO BILL PROV MAINT"",$J,""ZIDX"")) Q    ;nothing to delete"
^XMB(3.9,55,2,21657,0)="""RTN"",""IBCEPC"",58,0)"
^XMB(3.9,55,2,21658,0)=" N IBDA"
^XMB(3.9,55,2,21659,0)="""RTN"",""IBCEPC"",59,0)"
^XMB(3.9,55,2,21660,0)=" I '$D(IBCNS) N IBCNS S IBCNS=IBINS"
^XMB(3.9,55,2,21661,0)="""RTN"",""IBCEPC"",60,0)"
^XMB(3.9,55,2,21662,0)=" D SEL"
^XMB(3.9,55,2,21663,0)="""RTN"",""IBCEPC"",61,0)"
^XMB(3.9,55,2,21664,0)=" Q:'$G(IBDA)"
^XMB(3.9,55,2,21665,0)="""RTN"",""IBCEPC"",62,0)"
^XMB(3.9,55,2,21666,0)=" N DA,DIK,X,Y"
^XMB(3.9,55,2,21667,0)="""RTN"",""IBCEPC"",63,0)"
^XMB(3.9,55,2,21668,0)=" S DA=+IBDA,DA(1)=IBCNS"
^XMB(3.9,55,2,21669,0)="""RTN"",""IBCEPC"",64,0)"
^XMB(3.9,55,2,21670,0)=" S DIK=""^DIC(36,""_IBCNS_"",13,"""
^XMB(3.9,55,2,21671,0)="""RTN"",""IBCEPC"",65,0)"
^XMB(3.9,55,2,21672,0)=" D ^DIK"
^XMB(3.9,55,2,21673,0)="""RTN"",""IBCEPC"",66,0)"
^XMB(3.9,55,2,21674,0)=" K ^TMP(""IBCE INSCO BILL PROV MAINT"",$J)"
^XMB(3.9,55,2,21675,0)="""RTN"",""IBCEPC"",67,0)"
^XMB(3.9,55,2,21676,0)=" D INIT"
^XMB(3.9,55,2,21677,0)="""RTN"",""IBCEPC"",68,0)"
^XMB(3.9,55,2,21678,0)=" Q"
^XMB(3.9,55,2,21679,0)="""RTN"",""IBCEPC"",69,0)"
^XMB(3.9,55,2,21680,0)=" ;"
^XMB(3.9,55,2,21681,0)="""RTN"",""IBCEPC"",70,0)"
^XMB(3.9,55,2,21682,0)="SEL ;"
^XMB(3.9,55,2,21683,0)="""RTN"",""IBCEPC"",71,0)"
^XMB(3.9,55,2,21684,0)=" N Z"
^XMB(3.9,55,2,21685,0)="""RTN"",""IBCEPC"",72,0)"
^XMB(3.9,55,2,21686,0)=" K IBDA"
^XMB(3.9,55,2,21687,0)="""RTN"",""IBCEPC"",73,0)"
^XMB(3.9,55,2,21688,0)=" D FULL^VALM1"
^XMB(3.9,55,2,21689,0)="""RTN"",""IBCEPC"",74,0)"
^XMB(3.9,55,2,21690,0)=" D EN^VALM2($G(XQORNOD(0)),""OS"")"
^XMB(3.9,55,2,21691,0)="""RTN"",""IBCEPC"",75,0)"
^XMB(3.9,55,2,21692,0)=" S Z=+$O(VALMY(0)) Q:'Z"
^XMB(3.9,55,2,21693,0)="""RTN"",""IBCEPC"",76,0)"
^XMB(3.9,55,2,21694,0)=" ; fac/ins co default"
^XMB(3.9,55,2,21695,0)="""RTN"",""IBCEPC"",77,0)"
^XMB(3.9,55,2,21696,0)=" S IBDA=$G(^TMP(""IBCE INSCO BILL PROV MAINT"",$J,""ZIDX"",Z))"
^XMB(3.9,55,2,21697,0)="""RTN"",""IBCEPC"",78,0)"
^XMB(3.9,55,2,21698,0)=" Q"
^XMB(3.9,55,2,21699,0)="""RTN"",""IBCEPCID"")"
^XMB(3.9,55,2,21700,0)="0^75^B34815450"
^XMB(3.9,55,2,21701,0)="""RTN"",""IBCEPCID"",1,0)"
^XMB(3.9,55,2,21702,0)="IBCEPCID ;ALB/WCJ - Provider ID functions ;13 Feb 2006"
^XMB(3.9,55,2,21703,0)="""RTN"",""IBCEPCID"",2,0)"
^XMB(3.9,55,2,21704,0)=" ;;2.0;INTEGRATED BILLING;**320**;21-MAR-94"
^XMB(3.9,55,2,21705,0)="""RTN"",""IBCEPCID"",3,0)"
^XMB(3.9,55,2,21706,0)=" ;; Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,21707,0)="""RTN"",""IBCEPCID"",4,0)"
^XMB(3.9,55,2,21708,0)=" ;"
^XMB(3.9,55,2,21709,0)="""RTN"",""IBCEPCID"",5,0)"
^XMB(3.9,55,2,21710,0)=" G AWAY"
^XMB(3.9,55,2,21711,0)="""RTN"",""IBCEPCID"",6,0)"
^XMB(3.9,55,2,21712,0)="AWAY Q"
^XMB(3.9,55,2,21713,0)="""RTN"",""IBCEPCID"",7,0)"
^XMB(3.9,55,2,21714,0)=" ;"
^XMB(3.9,55,2,21715,0)="""RTN"",""IBCEPCID"",8,0)"
^XMB(3.9,55,2,21716,0)="COPY(IBINS) ;  The purpose of this routine is to sync up insurance company IDs"
^XMB(3.9,55,2,21717,0)="""RTN"",""IBCEPCID"",9,0)"
^XMB(3.9,55,2,21718,0)=" ; It is passed an insurance company.  If the insurance company is a stand alone company,"
^XMB(3.9,55,2,21719,0)="""RTN"",""IBCEPCID"",10,0)"
^XMB(3.9,55,2,21720,0)=" ; it quits.  If it is passed a child, it synchs up with the parent.  If it is passed a parent, it syncs"
^XMB(3.9,55,2,21721,0)="""RTN"",""IBCEPCID"",11,0)"
^XMB(3.9,55,2,21722,0)=" ; up with all it's children."
^XMB(3.9,55,2,21723,0)="""RTN"",""IBCEPCID"",12,0)"
^XMB(3.9,55,2,21724,0)=" ; "
^XMB(3.9,55,2,21725,0)="""RTN"",""IBCEPCID"",13,0)"
^XMB(3.9,55,2,21726,0)=" ; The IDs that synched up are Provider ID's defined for providers by an insurance company, default IDs for all"
^XMB(3.9,55,2,21727,0)="""RTN"",""IBCEPCID"",14,0)"
^XMB(3.9,55,2,21728,0)=" ; Providers for and an insurance company, and additonal billing providers IDs for an insuracne company."
^XMB(3.9,55,2,21729,0)="""RTN"",""IBCEPCID"",15,0)"
^XMB(3.9,55,2,21730,0)=" ; "
^XMB(3.9,55,2,21731,0)="""RTN"",""IBCEPCID"",16,0)"
^XMB(3.9,55,2,21732,0)=" ;"
^XMB(3.9,55,2,21733,0)="""RTN"",""IBCEPCID"",17,0)"
^XMB(3.9,55,2,21734,0)=" N TYPE,PARENT,CHILD,COPYINS"
^XMB(3.9,55,2,21735,0)="""RTN"",""IBCEPCID"",18,0)"
^XMB(3.9,55,2,21736,0)=" Q:$G(IBINS)="""""
^XMB(3.9,55,2,21737,0)="""RTN"",""IBCEPCID"",19,0)"
^XMB(3.9,55,2,21738,0)=" S TYPE=$$TYPE(IBINS)"
^XMB(3.9,55,2,21739,0)="""RTN"",""IBCEPCID"",20,0)"
^XMB(3.9,55,2,21740,0)=" Q:TYPE="""""
^XMB(3.9,55,2,21741,0)="""RTN"",""IBCEPCID"",21,0)"
^XMB(3.9,55,2,21742,0)=" I TYPE=""P"" S PARENT=IBINS,CHILD="""""
^XMB(3.9,55,2,21743,0)="""RTN"",""IBCEPCID"",22,0)"
^XMB(3.9,55,2,21744,0)=" I TYPE=""C"" S CHILD=IBINS,PARENT=$P($G(^DIC(36,IBINS,3)),U,14) Q:PARENT="""""
^XMB(3.9,55,2,21745,0)="""RTN"",""IBCEPCID"",23,0)"
^XMB(3.9,55,2,21746,0)=" D COPYTO(PARENT,CHILD,.COPYINS)"
^XMB(3.9,55,2,21747,0)="""RTN"",""IBCEPCID"",24,0)"
^XMB(3.9,55,2,21748,0)=" D LOOPTRNS(.COPYINS)"
^XMB(3.9,55,2,21749,0)="""RTN"",""IBCEPCID"",25,0)"
^XMB(3.9,55,2,21750,0)=" Q"
^XMB(3.9,55,2,21751,0)="""RTN"",""IBCEPCID"",26,0)"
^XMB(3.9,55,2,21752,0)=" ;"
^XMB(3.9,55,2,21753,0)="""RTN"",""IBCEPCID"",27,0)"
^XMB(3.9,55,2,21754,0)="TYPE(IBINS) ;"
^XMB(3.9,55,2,21755,0)="""RTN"",""IBCEPCID"",28,0)"
^XMB(3.9,55,2,21756,0)=" Q $P($G(^DIC(36,+IBINS,3)),U,13)"
^XMB(3.9,55,2,21757,0)="""RTN"",""IBCEPCID"",29,0)"
^XMB(3.9,55,2,21758,0)=" ;"
^XMB(3.9,55,2,21759,0)="""RTN"",""IBCEPCID"",30,0)"
^XMB(3.9,55,2,21760,0)="COPYTO(PARENT,CHILD,COPYINS) ; Figure out who to copy to:"
^XMB(3.9,55,2,21761,0)="""RTN"",""IBCEPCID"",31,0)"
^XMB(3.9,55,2,21762,0)=" I CHILD]"""" S COPYINS(PARENT,CHILD)="""" Q"
^XMB(3.9,55,2,21763,0)="""RTN"",""IBCEPCID"",32,0)"
^XMB(3.9,55,2,21764,0)=" F  S CHILD=$O(^DIC(36,""APC"",PARENT,CHILD)) Q:'CHILD   S COPYINS(PARENT,CHILD)="""""
^XMB(3.9,55,2,21765,0)="""RTN"",""IBCEPCID"",33,0)"
^XMB(3.9,55,2,21766,0)=" Q"
^XMB(3.9,55,2,21767,0)="""RTN"",""IBCEPCID"",34,0)"
^XMB(3.9,55,2,21768,0)=" ;"
^XMB(3.9,55,2,21769,0)="""RTN"",""IBCEPCID"",35,0)"
^XMB(3.9,55,2,21770,0)="LOOPTRNS(COPYINS) ;"
^XMB(3.9,55,2,21771,0)="""RTN"",""IBCEPCID"",36,0)"
^XMB(3.9,55,2,21772,0)=" N PARENT,CHILD,IBFILE"
^XMB(3.9,55,2,21773,0)="""RTN"",""IBCEPCID"",37,0)"
^XMB(3.9,55,2,21774,0)=" S PARENT=$O(COPYINS(""""))"
^XMB(3.9,55,2,21775,0)="""RTN"",""IBCEPCID"",38,0)"
^XMB(3.9,55,2,21776,0)=" Q:PARENT=""""   ; just in case"
^XMB(3.9,55,2,21777,0)="""RTN"",""IBCEPCID"",39,0)"
^XMB(3.9,55,2,21778,0)=" ;"
^XMB(3.9,55,2,21779,0)="""RTN"",""IBCEPCID"",40,0)"
^XMB(3.9,55,2,21780,0)=" S CHILD=""""  F  S CHILD=$O(COPYINS(PARENT,CHILD)) Q:CHILD=""""  D"
^XMB(3.9,55,2,21781,0)="""RTN"",""IBCEPCID"",41,0)"
^XMB(3.9,55,2,21782,0)=" .F IBFILE=355.9,355.91,355.92 D"
^XMB(3.9,55,2,21783,0)="""RTN"",""IBCEPCID"",42,0)"
^XMB(3.9,55,2,21784,0)=" .. I IBFILE=355.9 D  Q"
^XMB(3.9,55,2,21785,0)="""RTN"",""IBCEPCID"",43,0)"
^XMB(3.9,55,2,21786,0)=" ... N IBPRV,CU,FT,CT,QUAL,CDA,PDA"
^XMB(3.9,55,2,21787,0)="""RTN"",""IBCEPCID"",44,0)"
^XMB(3.9,55,2,21788,0)=" ... ;"
^XMB(3.9,55,2,21789,0)="""RTN"",""IBCEPCID"",45,0)"
^XMB(3.9,55,2,21790,0)=" ... ; File 355.9"
^XMB(3.9,55,2,21791,0)="""RTN"",""IBCEPCID"",46,0)"
^XMB(3.9,55,2,21792,0)=" ... ; Delete IDs in child but not parent"
^XMB(3.9,55,2,21793,0)="""RTN"",""IBCEPCID"",47,0)"
^XMB(3.9,55,2,21794,0)=" ... ; Edit IDs that are in both "
^XMB(3.9,55,2,21795,0)="""RTN"",""IBCEPCID"",48,0)"
^XMB(3.9,55,2,21796,0)=" ... S IBPRV="""" F  S IBPRV=$O(^IBA(IBFILE,""AUNIQ"",IBPRV)) Q:IBPRV=""""  D"
^XMB(3.9,55,2,21797,0)="""RTN"",""IBCEPCID"",49,0)"
^XMB(3.9,55,2,21798,0)=" .... Q:IBPRV'["";VA(200,""    ; only copying VA providers"
^XMB(3.9,55,2,21799,0)="""RTN"",""IBCEPCID"",50,0)"
^XMB(3.9,55,2,21800,0)=" .... Q:'$D(^IBA(IBFILE,""AUNIQ"",IBPRV,CHILD))"
^XMB(3.9,55,2,21801,0)="""RTN"",""IBCEPCID"",51,0)"
^XMB(3.9,55,2,21802,0)=" .... S CU="""" F  S CU=$O(^IBA(IBFILE,""AUNIQ"",IBPRV,CHILD,CU)) Q:CU=""""  D"
^XMB(3.9,55,2,21803,0)="""RTN"",""IBCEPCID"",52,0)"
^XMB(3.9,55,2,21804,0)=" ..... S FT="""" F  S FT=$O(^IBA(IBFILE,""AUNIQ"",IBPRV,CHILD,CU,FT)) Q:FT=""""  D"
^XMB(3.9,55,2,21805,0)="""RTN"",""IBCEPCID"",53,0)"
^XMB(3.9,55,2,21806,0)=" ...... S CT=""""  F  S CT=$O(^IBA(IBFILE,""AUNIQ"",IBPRV,CHILD,CU,FT,CT)) Q:CT=""""  D"
^XMB(3.9,55,2,21807,0)="""RTN"",""IBCEPCID"",54,0)"
^XMB(3.9,55,2,21808,0)=" ....... S QUAL=""""  F  S QUAL=$O(^IBA(IBFILE,""AUNIQ"",IBPRV,CHILD,CU,FT,CT,QUAL)) Q:QUAL=""""  D"
^XMB(3.9,55,2,21809,0)="""RTN"",""IBCEPCID"",55,0)"
^XMB(3.9,55,2,21810,0)=" ........ S CDA=$O(^IBA(IBFILE,""AUNIQ"",IBPRV,CHILD,CU,FT,CT,QUAL,0))"
^XMB(3.9,55,2,21811,0)="""RTN"",""IBCEPCID"",56,0)"
^XMB(3.9,55,2,21812,0)=" ........ Q:'CDA"
^XMB(3.9,55,2,21813,0)="""RTN"",""IBCEPCID"",57,0)"
^XMB(3.9,55,2,21814,0)=" ........ I '$D(^IBA(IBFILE,""AUNIQ"",IBPRV,PARENT,CU,FT,CT,QUAL)) D DEL(IBFILE,CDA) Q"
^XMB(3.9,55,2,21815,0)="""RTN"",""IBCEPCID"",58,0)"
^XMB(3.9,55,2,21816,0)=" ........ S PDA=$O(^IBA(IBFILE,""AUNIQ"",IBPRV,PARENT,CU,FT,CT,QUAL,0))"
^XMB(3.9,55,2,21817,0)="""RTN"",""IBCEPCID"",59,0)"
^XMB(3.9,55,2,21818,0)=" ........ Q:PDA="""""
^XMB(3.9,55,2,21819,0)="""RTN"",""IBCEPCID"",60,0)"
^XMB(3.9,55,2,21820,0)=" ........ D MOD(IBFILE,CDA,PDA) Q"
^XMB(3.9,55,2,21821,0)="""RTN"",""IBCEPCID"",61,0)"
^XMB(3.9,55,2,21822,0)=" ... ;"
^XMB(3.9,55,2,21823,0)="""RTN"",""IBCEPCID"",62,0)"
^XMB(3.9,55,2,21824,0)=" ... ; File 355.9"
^XMB(3.9,55,2,21825,0)="""RTN"",""IBCEPCID"",63,0)"
^XMB(3.9,55,2,21826,0)=" ... ; Add IDs in parent but not child"
^XMB(3.9,55,2,21827,0)="""RTN"",""IBCEPCID"",64,0)"
^XMB(3.9,55,2,21828,0)=" ... S IBPRV="""" F  S IBPRV=$O(^IBA(IBFILE,""AUNIQ"",IBPRV)) Q:IBPRV=""""  D"
^XMB(3.9,55,2,21829,0)="""RTN"",""IBCEPCID"",65,0)"
^XMB(3.9,55,2,21830,0)=" .... Q:IBPRV'["";VA(200,""    ; only copying VA providers"
^XMB(3.9,55,2,21831,0)="""RTN"",""IBCEPCID"",66,0)"
^XMB(3.9,55,2,21832,0)=" .... Q:'$D(^IBA(IBFILE,""AUNIQ"",IBPRV,PARENT))"
^XMB(3.9,55,2,21833,0)="""RTN"",""IBCEPCID"",67,0)"
^XMB(3.9,55,2,21834,0)=" .... S CU="""" F  S CU=$O(^IBA(IBFILE,""AUNIQ"",IBPRV,PARENT,CU)) Q:CU=""""  D"
^XMB(3.9,55,2,21835,0)="""RTN"",""IBCEPCID"",68,0)"
^XMB(3.9,55,2,21836,0)=" ..... S FT="""" F  S FT=$O(^IBA(IBFILE,""AUNIQ"",IBPRV,PARENT,CU,FT)) Q:FT=""""  D"
^XMB(3.9,55,2,21837,0)="""RTN"",""IBCEPCID"",69,0)"
^XMB(3.9,55,2,21838,0)=" ...... S CT=""""  F  S CT=$O(^IBA(IBFILE,""AUNIQ"",IBPRV,PARENT,CU,FT,CT)) Q:CT=""""  D"
^XMB(3.9,55,2,21839,0)="""RTN"",""IBCEPCID"",70,0)"
^XMB(3.9,55,2,21840,0)=" ....... S QUAL=""""  F  S QUAL=$O(^IBA(IBFILE,""AUNIQ"",IBPRV,PARENT,CU,FT,CT,QUAL)) Q:QUAL=""""  D"
^XMB(3.9,55,2,21841,0)="""RTN"",""IBCEPCID"",71,0)"
^XMB(3.9,55,2,21842,0)=" ........ S PDA=$O(^IBA(IBFILE,""AUNIQ"",IBPRV,PARENT,CU,FT,CT,QUAL,0))"
^XMB(3.9,55,2,21843,0)="""RTN"",""IBCEPCID"",72,0)"
^XMB(3.9,55,2,21844,0)=" ........ Q:'PDA"
^XMB(3.9,55,2,21845,0)="""RTN"",""IBCEPCID"",73,0)"
^XMB(3.9,55,2,21846,0)=" ........ I '$D(^IBA(IBFILE,""AUNIQ"",IBPRV,CHILD,CU,FT,CT,QUAL)) D ADD(IBFILE,PDA,CHILD) Q"
^XMB(3.9,55,2,21847,0)="""RTN"",""IBCEPCID"",74,0)"
^XMB(3.9,55,2,21848,0)=" .. ;"
^XMB(3.9,55,2,21849,0)="""RTN"",""IBCEPCID"",75,0)"
^XMB(3.9,55,2,21850,0)=" .. ; Files 355.91 and 355.92"
^XMB(3.9,55,2,21851,0)="""RTN"",""IBCEPCID"",76,0)"
^XMB(3.9,55,2,21852,0)=" .. ; Delete IDs in Child but not parent"
^XMB(3.9,55,2,21853,0)="""RTN"",""IBCEPCID"",77,0)"
^XMB(3.9,55,2,21854,0)=" .. ; Edit IDs that are in both"
^XMB(3.9,55,2,21855,0)="""RTN"",""IBCEPCID"",78,0)"
^XMB(3.9,55,2,21856,0)=" .. I $D(^IBA(IBFILE,""AUNIQ"",CHILD)) D"
^XMB(3.9,55,2,21857,0)="""RTN"",""IBCEPCID"",79,0)"
^XMB(3.9,55,2,21858,0)=" ... N CU,FT,CTORD,QUAL,PDA,CDA,DELFL"
^XMB(3.9,55,2,21859,0)="""RTN"",""IBCEPCID"",80,0)"
^XMB(3.9,55,2,21860,0)=" ... S CU="""" F  S CU=$O(^IBA(IBFILE,""AUNIQ"",CHILD,CU)) Q:CU=""""  D"
^XMB(3.9,55,2,21861,0)="""RTN"",""IBCEPCID"",81,0)"
^XMB(3.9,55,2,21862,0)=" .... S FT="""" F  S FT=$O(^IBA(IBFILE,""AUNIQ"",CHILD,CU,FT)) Q:FT=""""  D"
^XMB(3.9,55,2,21863,0)="""RTN"",""IBCEPCID"",82,0)"
^XMB(3.9,55,2,21864,0)=" ..... S CTORD=""""  F  S CTORD=$O(^IBA(IBFILE,""AUNIQ"",CHILD,CU,FT,CTORD)) Q:CTORD=""""  D"
^XMB(3.9,55,2,21865,0)="""RTN"",""IBCEPCID"",83,0)"
^XMB(3.9,55,2,21866,0)=" ...... S QUAL=""""  F  S QUAL=$O(^IBA(IBFILE,""AUNIQ"",CHILD,CU,FT,CTORD,QUAL)) Q:QUAL=""""  D"
^XMB(3.9,55,2,21867,0)="""RTN"",""IBCEPCID"",84,0)"
^XMB(3.9,55,2,21868,0)=" ....... S CDA=""""  F  S CDA=$O(^IBA(IBFILE,""AUNIQ"",CHILD,CU,FT,CTORD,QUAL,CDA)) Q:CDA=""""  D"
^XMB(3.9,55,2,21869,0)="""RTN"",""IBCEPCID"",85,0)"
^XMB(3.9,55,2,21870,0)=" ........ S PDA=$O(^IBA(IBFILE,""AUNIQ"",PARENT,CU,FT,CTORD,QUAL,0))"
^XMB(3.9,55,2,21871,0)="""RTN"",""IBCEPCID"",86,0)"
^XMB(3.9,55,2,21872,0)=" ........ S DELFL=1"
^XMB(3.9,55,2,21873,0)="""RTN"",""IBCEPCID"",87,0)"
^XMB(3.9,55,2,21874,0)=" ........ I PDA,IBFILE=355.91,$D(^IBA(IBFILE,""AUNIQ"",PARENT,CU,FT,CTORD,QUAL)) S DELFL=0"
^XMB(3.9,55,2,21875,0)="""RTN"",""IBCEPCID"",88,0)"
^XMB(3.9,55,2,21876,0)=" ........ I PDA,IBFILE=355.92 S DELFL=0"
^XMB(3.9,55,2,21877,0)="""RTN"",""IBCEPCID"",89,0)"
^XMB(3.9,55,2,21878,0)=" ........ D:DELFL DEL(IBFILE,CDA)"
^XMB(3.9,55,2,21879,0)="""RTN"",""IBCEPCID"",90,0)"
^XMB(3.9,55,2,21880,0)=" ........ D:'DELFL MOD(IBFILE,CDA,PDA)"
^XMB(3.9,55,2,21881,0)="""RTN"",""IBCEPCID"",91,0)"
^XMB(3.9,55,2,21882,0)=" .. ;"
^XMB(3.9,55,2,21883,0)="""RTN"",""IBCEPCID"",92,0)"
^XMB(3.9,55,2,21884,0)=" .. ; Files 355.91 and 355.92"
^XMB(3.9,55,2,21885,0)="""RTN"",""IBCEPCID"",93,0)"
^XMB(3.9,55,2,21886,0)=" .. ; Add IDs that are in parent but not child"
^XMB(3.9,55,2,21887,0)="""RTN"",""IBCEPCID"",94,0)"
^XMB(3.9,55,2,21888,0)=" .. I $D(^IBA(IBFILE,""AUNIQ"",PARENT)) D"
^XMB(3.9,55,2,21889,0)="""RTN"",""IBCEPCID"",95,0)"
^XMB(3.9,55,2,21890,0)=" ... N CU,FT,CTORD,QUAL,PDA"
^XMB(3.9,55,2,21891,0)="""RTN"",""IBCEPCID"",96,0)"
^XMB(3.9,55,2,21892,0)=" ... S CU="""" F  S CU=$O(^IBA(IBFILE,""AUNIQ"",PARENT,CU)) Q:CU=""""  D"
^XMB(3.9,55,2,21893,0)="""RTN"",""IBCEPCID"",97,0)"
^XMB(3.9,55,2,21894,0)=" .... S FT="""" F  S FT=$O(^IBA(IBFILE,""AUNIQ"",PARENT,CU,FT)) Q:FT=""""  D"
^XMB(3.9,55,2,21895,0)="""RTN"",""IBCEPCID"",98,0)"
^XMB(3.9,55,2,21896,0)=" ..... S CTORD=""""  F  S CTORD=$O(^IBA(IBFILE,""AUNIQ"",PARENT,CU,FT,CTORD)) Q:CTORD=""""  D"
^XMB(3.9,55,2,21897,0)="""RTN"",""IBCEPCID"",99,0)"
^XMB(3.9,55,2,21898,0)=" ...... S QUAL=""""  F  S QUAL=$O(^IBA(IBFILE,""AUNIQ"",PARENT,CU,FT,CTORD,QUAL)) Q:QUAL=""""  D"
^XMB(3.9,55,2,21899,0)="""RTN"",""IBCEPCID"",100,0)"
^XMB(3.9,55,2,21900,0)=" ....... S PDA="""" F  S PDA=$O(^IBA(IBFILE,""AUNIQ"",PARENT,CU,FT,CTORD,QUAL,PDA)) Q:PDA=""""  D"
^XMB(3.9,55,2,21901,0)="""RTN"",""IBCEPCID"",101,0)"
^XMB(3.9,55,2,21902,0)=" ........ Q:$O(^IBA(IBFILE,""AUNIQ"",CHILD,CU,FT,CTORD,QUAL,0))"
^XMB(3.9,55,2,21903,0)="""RTN"",""IBCEPCID"",102,0)"
^XMB(3.9,55,2,21904,0)=" ........ D ADD(IBFILE,PDA,CHILD) Q"
^XMB(3.9,55,2,21905,0)="""RTN"",""IBCEPCID"",103,0)"
^XMB(3.9,55,2,21906,0)=" Q"
^XMB(3.9,55,2,21907,0)="""RTN"",""IBCEPCID"",104,0)"
^XMB(3.9,55,2,21908,0)=" ;"
^XMB(3.9,55,2,21909,0)="""RTN"",""IBCEPCID"",105,0)"
^XMB(3.9,55,2,21910,0)="ADD(IBFILE,IEN,INS) ; Add a provider ID"
^XMB(3.9,55,2,21911,0)="""RTN"",""IBCEPCID"",106,0)"
^XMB(3.9,55,2,21912,0)=" N DIC,DIR,X,Y,Z,DA,DR,DIE,DO,DD,DLAYGO,DTOUT,DUOUT"
^XMB(3.9,55,2,21913,0)="""RTN"",""IBCEPCID"",107,0)"
^XMB(3.9,55,2,21914,0)=" N ZERO,CU,FT,CTORD,QUAL,ID"
^XMB(3.9,55,2,21915,0)="""RTN"",""IBCEPCID"",108,0)"
^XMB(3.9,55,2,21916,0)=" S ZERO=$G(^IBA(IBFILE,IEN,0))"
^XMB(3.9,55,2,21917,0)="""RTN"",""IBCEPCID"",109,0)"
^XMB(3.9,55,2,21918,0)=" Q:ZERO="""""
^XMB(3.9,55,2,21919,0)="""RTN"",""IBCEPCID"",110,0)"
^XMB(3.9,55,2,21920,0)=" S CU=$P(ZERO,U,3)"
^XMB(3.9,55,2,21921,0)="""RTN"",""IBCEPCID"",111,0)"
^XMB(3.9,55,2,21922,0)=" S FT=$P(ZERO,U,4)"
^XMB(3.9,55,2,21923,0)="""RTN"",""IBCEPCID"",112,0)"
^XMB(3.9,55,2,21924,0)=" S CTORD=$P(ZERO,U,5)"
^XMB(3.9,55,2,21925,0)="""RTN"",""IBCEPCID"",113,0)"
^XMB(3.9,55,2,21926,0)=" S QUAL=$P(ZERO,U,6)"
^XMB(3.9,55,2,21927,0)="""RTN"",""IBCEPCID"",114,0)"
^XMB(3.9,55,2,21928,0)=" S ID=$P(ZERO,U,7)"
^XMB(3.9,55,2,21929,0)="""RTN"",""IBCEPCID"",115,0)"
^XMB(3.9,55,2,21930,0)=" ;"
^XMB(3.9,55,2,21931,0)="""RTN"",""IBCEPCID"",116,0)"
^XMB(3.9,55,2,21932,0)=" I IBFILE=355.91!(IBFILE=355.92) D"
^XMB(3.9,55,2,21933,0)="""RTN"",""IBCEPCID"",117,0)"
^XMB(3.9,55,2,21934,0)=" . S X=INS"
^XMB(3.9,55,2,21935,0)="""RTN"",""IBCEPCID"",118,0)"
^XMB(3.9,55,2,21936,0)=" . S DIC(""DR"")="".03////""_CU_"";.04////""_FT_"";.05////""_CTORD_"";.06////""_QUAL_"";.07////""_ID"
^XMB(3.9,55,2,21937,0)="""RTN"",""IBCEPCID"",119,0)"
^XMB(3.9,55,2,21938,0)=" . I IBFILE=355.92 S DIC(""DR"")=DIC(""DR"")_"";.08////A"""
^XMB(3.9,55,2,21939,0)="""RTN"",""IBCEPCID"",120,0)"
^XMB(3.9,55,2,21940,0)=" ;"
^XMB(3.9,55,2,21941,0)="""RTN"",""IBCEPCID"",121,0)"
^XMB(3.9,55,2,21942,0)=" I IBFILE=355.9 D"
^XMB(3.9,55,2,21943,0)="""RTN"",""IBCEPCID"",122,0)"
^XMB(3.9,55,2,21944,0)=" . S DIC(""DR"")="".02////""_INS_"";.03////""_CU_"";.04////""_FT_"";.05////""_CTORD_"";.06////""_QUAL_"";.07////""_ID"
^XMB(3.9,55,2,21945,0)="""RTN"",""IBCEPCID"",123,0)"
^XMB(3.9,55,2,21946,0)=" . S X=$P(ZERO,U)"
^XMB(3.9,55,2,21947,0)="""RTN"",""IBCEPCID"",124,0)"
^XMB(3.9,55,2,21948,0)=" ;"
^XMB(3.9,55,2,21949,0)="""RTN"",""IBCEPCID"",125,0)"
^XMB(3.9,55,2,21950,0)=" S DIC(0)=""L"",(DIC,DLAYGO)=IBFILE"
^XMB(3.9,55,2,21951,0)="""RTN"",""IBCEPCID"",126,0)"
^XMB(3.9,55,2,21952,0)=" D FILE^DICN"
^XMB(3.9,55,2,21953,0)="""RTN"",""IBCEPCID"",127,0)"
^XMB(3.9,55,2,21954,0)=" Q"
^XMB(3.9,55,2,21955,0)="""RTN"",""IBCEPCID"",128,0)"
^XMB(3.9,55,2,21956,0)=" ;"
^XMB(3.9,55,2,21957,0)="""RTN"",""IBCEPCID"",129,0)"
^XMB(3.9,55,2,21958,0)="DEL(IBFILE,DA) ; Delete a Provider ID"
^XMB(3.9,55,2,21959,0)="""RTN"",""IBCEPCID"",130,0)"
^XMB(3.9,55,2,21960,0)=" N DIK,DIR,X,Y,Z,I"
^XMB(3.9,55,2,21961,0)="""RTN"",""IBCEPCID"",131,0)"
^XMB(3.9,55,2,21962,0)=" S DIK=""^IBA(""_IBFILE_"","""
^XMB(3.9,55,2,21963,0)="""RTN"",""IBCEPCID"",132,0)"
^XMB(3.9,55,2,21964,0)=" F I=1:1 L +^IBA(IBFILE,DA):5 I  Q"
^XMB(3.9,55,2,21965,0)="""RTN"",""IBCEPCID"",133,0)"
^XMB(3.9,55,2,21966,0)=" D ^DIK"
^XMB(3.9,55,2,21967,0)="""RTN"",""IBCEPCID"",134,0)"
^XMB(3.9,55,2,21968,0)=" L -^IBA(IBFILE,DA)"
^XMB(3.9,55,2,21969,0)="""RTN"",""IBCEPCID"",135,0)"
^XMB(3.9,55,2,21970,0)=" Q"
^XMB(3.9,55,2,21971,0)="""RTN"",""IBCEPCID"",136,0)"
^XMB(3.9,55,2,21972,0)=" ;"
^XMB(3.9,55,2,21973,0)="""RTN"",""IBCEPCID"",137,0)"
^XMB(3.9,55,2,21974,0)="MOD(IBFILE,IEN,PIEN) ; Modify an existing Provider ID"
^XMB(3.9,55,2,21975,0)="""RTN"",""IBCEPCID"",138,0)"
^XMB(3.9,55,2,21976,0)=" N I,ZERO,ID,PID,PZERO,FDAROOT"
^XMB(3.9,55,2,21977,0)="""RTN"",""IBCEPCID"",139,0)"
^XMB(3.9,55,2,21978,0)=" S ZERO=$G(^IBA(IBFILE,IEN,0))"
^XMB(3.9,55,2,21979,0)="""RTN"",""IBCEPCID"",140,0)"
^XMB(3.9,55,2,21980,0)=" Q:ZERO="""""
^XMB(3.9,55,2,21981,0)="""RTN"",""IBCEPCID"",141,0)"
^XMB(3.9,55,2,21982,0)=" S PZERO=$G(^IBA(IBFILE,PIEN,0))"
^XMB(3.9,55,2,21983,0)="""RTN"",""IBCEPCID"",142,0)"
^XMB(3.9,55,2,21984,0)=" Q:PZERO="""""
^XMB(3.9,55,2,21985,0)="""RTN"",""IBCEPCID"",143,0)"
^XMB(3.9,55,2,21986,0)=" S ID=$P(ZERO,U,7)"
^XMB(3.9,55,2,21987,0)="""RTN"",""IBCEPCID"",144,0)"
^XMB(3.9,55,2,21988,0)=" S PID=$P(PZERO,U,7)"
^XMB(3.9,55,2,21989,0)="""RTN"",""IBCEPCID"",145,0)"
^XMB(3.9,55,2,21990,0)=" Q:ID=PID"
^XMB(3.9,55,2,21991,0)="""RTN"",""IBCEPCID"",146,0)"
^XMB(3.9,55,2,21992,0)=" S FDAROOT(IBFILE,IEN_"","",.07)=PID"
^XMB(3.9,55,2,21993,0)="""RTN"",""IBCEPCID"",147,0)"
^XMB(3.9,55,2,21994,0)=" F I=1:1 L +^IBA(IBFILE,IEN):5 I  Q"
^XMB(3.9,55,2,21995,0)="""RTN"",""IBCEPCID"",148,0)"
^XMB(3.9,55,2,21996,0)=" D FILE^DIE(,""FDAROOT"")"
^XMB(3.9,55,2,21997,0)="""RTN"",""IBCEPCID"",149,0)"
^XMB(3.9,55,2,21998,0)=" L -^IBA(IBFILE,IEN)"
^XMB(3.9,55,2,21999,0)="""RTN"",""IBCEPCID"",150,0)"
^XMB(3.9,55,2,22000,0)=" Q"
^XMB(3.9,55,2,22001,0)="""RTN"",""IBCEPCID"",151,0)"
^XMB(3.9,55,2,22002,0)=" ;"
^XMB(3.9,55,2,22003,0)="""RTN"",""IBCEPCID"",152,0)"
^XMB(3.9,55,2,22004,0)="RESYNCH() ; Resynch everything"
^XMB(3.9,55,2,22005,0)="""RTN"",""IBCEPCID"",153,0)"
^XMB(3.9,55,2,22006,0)=" L +^DIC(36):5 E  W *7,!!,""Can not lock insurance company file, please try later."",!! Q"
^XMB(3.9,55,2,22007,0)="""RTN"",""IBCEPCID"",154,0)"
^XMB(3.9,55,2,22008,0)=" N INS"
^XMB(3.9,55,2,22009,0)="""RTN"",""IBCEPCID"",155,0)"
^XMB(3.9,55,2,22010,0)=" S INS="""" F  S INS=$O(^DIC(36,""APC"",INS)) Q:INS=""""  D COPY(INS)"
^XMB(3.9,55,2,22011,0)="""RTN"",""IBCEPCID"",156,0)"
^XMB(3.9,55,2,22012,0)=" L -^DIC(36)"
^XMB(3.9,55,2,22013,0)="""RTN"",""IBCEPCID"",157,0)"
^XMB(3.9,55,2,22014,0)=" Q"
^XMB(3.9,55,2,22015,0)="""RTN"",""IBCEPTC"")"
^XMB(3.9,55,2,22016,0)="0^37^B73154243^B76107532"
^XMB(3.9,55,2,22017,0)="""RTN"",""IBCEPTC"",1,0)"
^XMB(3.9,55,2,22018,0)="IBCEPTC ;ALB/TMK - EDI PREVIOUSLY TRANSMITTED CLAIMS ; 4/12/05 11:15am"
^XMB(3.9,55,2,22019,0)="""RTN"",""IBCEPTC"",2,0)"
^XMB(3.9,55,2,22020,0)=" ;;2.0;INTEGRATED BILLING;**296,320**;21-MAR-94"
^XMB(3.9,55,2,22021,0)="""RTN"",""IBCEPTC"",3,0)"
^XMB(3.9,55,2,22022,0)=" ;"
^XMB(3.9,55,2,22023,0)="""RTN"",""IBCEPTC"",4,0)"
^XMB(3.9,55,2,22024,0)="EN ; Main entrypoint"
^XMB(3.9,55,2,22025,0)="""RTN"",""IBCEPTC"",5,0)"
^XMB(3.9,55,2,22026,0)=" ; IBDT1,IBDT2 = last transmit date range to use"
^XMB(3.9,55,2,22027,0)="""RTN"",""IBCEPTC"",6,0)"
^XMB(3.9,55,2,22028,0)=" ; IBSORT = primary sort criteria to use B=BATCH #,I=INS CO NAME"
^XMB(3.9,55,2,22029,0)="""RTN"",""IBCEPTC"",7,0)"
^XMB(3.9,55,2,22030,0)=" ; IBFORM = form type to limit selection to U=UB92,H=HCFA 1500,B=BOTH"
^XMB(3.9,55,2,22031,0)="""RTN"",""IBCEPTC"",8,0)"
^XMB(3.9,55,2,22032,0)=" ; IBCRIT = the additional sort criteria needed"
^XMB(3.9,55,2,22033,0)="""RTN"",""IBCEPTC"",9,0)"
^XMB(3.9,55,2,22034,0)=" ; IBPTCCAN = whether or not to include cancelled claims"
^XMB(3.9,55,2,22035,0)="""RTN"",""IBCEPTC"",10,0)"
^XMB(3.9,55,2,22036,0)=" ; IBRCBFPC = whether or not to include force print @ clearinghouse"
^XMB(3.9,55,2,22037,0)="""RTN"",""IBCEPTC"",11,0)"
^XMB(3.9,55,2,22038,0)=" ; ^TMP(""IB_PREV_CLAIM_INS"",$J) = 1 for specific ins co/null for all"
^XMB(3.9,55,2,22039,0)="""RTN"",""IBCEPTC"",12,0)"
^XMB(3.9,55,2,22040,0)=" ;                        ^($J,1,ien)="""" for ien of each ins co selected"
^XMB(3.9,55,2,22041,0)="""RTN"",""IBCEPTC"",13,0)"
^XMB(3.9,55,2,22042,0)=" ;                        ^($J,2,payer ID,ien)="""" if selected"
^XMB(3.9,55,2,22043,0)="""RTN"",""IBCEPTC"",14,0)"
^XMB(3.9,55,2,22044,0)=" ; IBREP = format output should be put in R=report,S=Listman"
^XMB(3.9,55,2,22045,0)="""RTN"",""IBCEPTC"",15,0)"
^XMB(3.9,55,2,22046,0)=" ;"
^XMB(3.9,55,2,22047,0)="""RTN"",""IBCEPTC"",16,0)"
^XMB(3.9,55,2,22048,0)=" N DIR,DIC,X,Y,Z,Z0,Z1,IBHOW,IBACT,IBCT,IBREP,IBCRIT,IBDT1,IBDT2"
^XMB(3.9,55,2,22049,0)="""RTN"",""IBCEPTC"",17,0)"
^XMB(3.9,55,2,22050,0)=" N IBFORM,IBOK,IBQUIT,IBSORT,IBY,DTOUT,DUOUT,%ZIS,ZTSAVE,ZTRTN,ZTDESC"
^XMB(3.9,55,2,22051,0)="""RTN"",""IBCEPTC"",18,0)"
^XMB(3.9,55,2,22052,0)=" N POP,IBPAYER,EDI,INST,PROF,IBPTCCAN,DIROUT,DIRUT,DTOUT,DUOUT,IBRCBFPC"
^XMB(3.9,55,2,22053,0)="""RTN"",""IBCEPTC"",19,0)"
^XMB(3.9,55,2,22054,0)=" ;"
^XMB(3.9,55,2,22055,0)="""RTN"",""IBCEPTC"",20,0)"
^XMB(3.9,55,2,22056,0)="Q1 ;"
^XMB(3.9,55,2,22057,0)="""RTN"",""IBCEPTC"",21,0)"
^XMB(3.9,55,2,22058,0)=" W !!,""*** Please Note ***"""
^XMB(3.9,55,2,22059,0)="""RTN"",""IBCEPTC"",22,0)"
^XMB(3.9,55,2,22060,0)=" W ?20,""2 '^' are needed to abort this option (^^)"""
^XMB(3.9,55,2,22061,0)="""RTN"",""IBCEPTC"",23,0)"
^XMB(3.9,55,2,22062,0)=" W !?20,""1 '^' brings you back to the previous prompt (^)"""
^XMB(3.9,55,2,22063,0)="""RTN"",""IBCEPTC"",24,0)"
^XMB(3.9,55,2,22064,0)=" W !"
^XMB(3.9,55,2,22065,0)="""RTN"",""IBCEPTC"",25,0)"
^XMB(3.9,55,2,22066,0)=" ;"
^XMB(3.9,55,2,22067,0)="""RTN"",""IBCEPTC"",26,0)"
^XMB(3.9,55,2,22068,0)=" S DIR(0)=""SA^C:Claim;B:Batch;L:List"",DIR(""A"")=""Select By: (C)laim, (B)atch or see a (L)ist to pick from?: "",DIR(""B"")=""List"""
^XMB(3.9,55,2,22069,0)="""RTN"",""IBCEPTC"",27,0)"
^XMB(3.9,55,2,22070,0)=" D ^DIR K DIR"
^XMB(3.9,55,2,22071,0)="""RTN"",""IBCEPTC"",28,0)"
^XMB(3.9,55,2,22072,0)=" I $D(DTOUT)!$D(DUOUT) G ENQ"
^XMB(3.9,55,2,22073,0)="""RTN"",""IBCEPTC"",29,0)"
^XMB(3.9,55,2,22074,0)=" S IBHOW=Y"
^XMB(3.9,55,2,22075,0)="""RTN"",""IBCEPTC"",30,0)"
^XMB(3.9,55,2,22076,0)=" I IBHOW=""L"" G Q1A"
^XMB(3.9,55,2,22077,0)="""RTN"",""IBCEPTC"",31,0)"
^XMB(3.9,55,2,22078,0)=" ;"
^XMB(3.9,55,2,22079,0)="""RTN"",""IBCEPTC"",32,0)"
^XMB(3.9,55,2,22080,0)=" S IBQUIT=0,IBCT=0"
^XMB(3.9,55,2,22081,0)="""RTN"",""IBCEPTC"",33,0)"
^XMB(3.9,55,2,22082,0)=" K ^TMP($J,IBHOW)"
^XMB(3.9,55,2,22083,0)="""RTN"",""IBCEPTC"",34,0)"
^XMB(3.9,55,2,22084,0)=" F  D  Q:IBQUIT"
^XMB(3.9,55,2,22085,0)="""RTN"",""IBCEPTC"",35,0)"
^XMB(3.9,55,2,22086,0)=" . I IBHOW=""C"" S DIR(""A"")=""Select a""_$S(IBCT:""nother"",1:"""")_"" Claim: "",DIR(0)=""PA^364:AEMQZ"",DIR(""S"")=""I '$P(^(0),U,7),'$O(^IBA(364,""""B"""",+^(0),Y))"""
^XMB(3.9,55,2,22087,0)="""RTN"",""IBCEPTC"",36,0)"
^XMB(3.9,55,2,22088,0)=" . I IBHOW=""B"" S DIR(""A"")=""Select a""_$S(IBCT:""nother"",1:"""")_"" Batch: "",DIR(0)=""PA^IBA(364.1,:AEMQ^W """"  """",$P(^(0),U,3),"""" Claims"""""",DIR(""S"")=""I '$P(^(0),U,14)"""
^XMB(3.9,55,2,22089,0)="""RTN"",""IBCEPTC"",37,0)"
^XMB(3.9,55,2,22090,0)=" . S DIR(""?"")=""^D SELDSP^IBCEPTC(IBHOW)"""
^XMB(3.9,55,2,22091,0)="""RTN"",""IBCEPTC"",38,0)"
^XMB(3.9,55,2,22092,0)=" . S:IBCT $P(DIR(0),U)=$P(DIR(0),U)_""O"" ; Optional prompt after one is selected"
^XMB(3.9,55,2,22093,0)="""RTN"",""IBCEPTC"",39,0)"
^XMB(3.9,55,2,22094,0)=" . D ^DIR K DIR"
^XMB(3.9,55,2,22095,0)="""RTN"",""IBCEPTC"",40,0)"
^XMB(3.9,55,2,22096,0)=" . I Y'>0 S IBQUIT=$S(X=""^"":2,X=""^^"":3,1:1) Q"
^XMB(3.9,55,2,22097,0)="""RTN"",""IBCEPTC"",41,0)"
^XMB(3.9,55,2,22098,0)=" . S IBY=$S(IBHOW=""C"":+Y,1:""""),Y=$S(IBHOW=""C"":+Y(0),1:Y)"
^XMB(3.9,55,2,22099,0)="""RTN"",""IBCEPTC"",42,0)"
^XMB(3.9,55,2,22100,0)=" . I '$D(^TMP($J,IBHOW,+Y)) S IBCT=IBCT+1,^TMP($J,IBHOW,+Y)=IBY"
^XMB(3.9,55,2,22101,0)="""RTN"",""IBCEPTC"",43,0)"
^XMB(3.9,55,2,22102,0)=" ;"
^XMB(3.9,55,2,22103,0)="""RTN"",""IBCEPTC"",44,0)"
^XMB(3.9,55,2,22104,0)=" G:IBQUIT=3 ENQ"
^XMB(3.9,55,2,22105,0)="""RTN"",""IBCEPTC"",45,0)"
^XMB(3.9,55,2,22106,0)=" G:IBQUIT=2!'$O(^TMP($J,IBHOW,0)) Q1"
^XMB(3.9,55,2,22107,0)="""RTN"",""IBCEPTC"",46,0)"
^XMB(3.9,55,2,22108,0)=" S Z=0"
^XMB(3.9,55,2,22109,0)="""RTN"",""IBCEPTC"",47,0)"
^XMB(3.9,55,2,22110,0)=" I IBHOW=""C"" F  S Z=$O(^TMP($J,""C"",Z)) Q:'Z  S ^TMP(""IB_PREV_CLAIM_SELECT"",$J,Z,0)=^TMP($J,""C"",Z)"
^XMB(3.9,55,2,22111,0)="""RTN"",""IBCEPTC"",48,0)"
^XMB(3.9,55,2,22112,0)=" I IBHOW=""B"" S (Z,IBCT)=0 F  S Z=$O(^TMP($J,""B"",Z)) Q:'Z  D"
^XMB(3.9,55,2,22113,0)="""RTN"",""IBCEPTC"",49,0)"
^XMB(3.9,55,2,22114,0)=" . S Z0=0 F  S Z0=$O(^IBA(364,""C"",Z,Z0)) Q:'Z0  S Z1=+$G(^IBA(364,Z0,0)) I Z1,'$D(^TMP(""IB_PREV_CLAIM_SELECT"",$J,Z1,0)) S ^(0)=Z0,IBCT=IBCT+1"
^XMB(3.9,55,2,22115,0)="""RTN"",""IBCEPTC"",50,0)"
^XMB(3.9,55,2,22116,0)=" S ^TMP(""IB_PREV_CLAIM_SELECT"",$J)=IBCT"
^XMB(3.9,55,2,22117,0)="""RTN"",""IBCEPTC"",51,0)"
^XMB(3.9,55,2,22118,0)=" D RESUB^IBCEPTC3"
^XMB(3.9,55,2,22119,0)="""RTN"",""IBCEPTC"",52,0)"
^XMB(3.9,55,2,22120,0)=" G ENQ"
^XMB(3.9,55,2,22121,0)="""RTN"",""IBCEPTC"",53,0)"
^XMB(3.9,55,2,22122,0)=" ;"
^XMB(3.9,55,2,22123,0)="""RTN"",""IBCEPTC"",54,0)"
^XMB(3.9,55,2,22124,0)="Q1A K ^TMP(""IB_PREV_CLAIM_INS"",$J)"
^XMB(3.9,55,2,22125,0)="""RTN"",""IBCEPTC"",55,0)"
^XMB(3.9,55,2,22126,0)=" S DIR(0)=""SA^A:All Payers;S:Selected Payers"""
^XMB(3.9,55,2,22127,0)="""RTN"",""IBCEPTC"",56,0)"
^XMB(3.9,55,2,22128,0)=" S DIR(""A"")=""Run for (A)ll Payers or (S)elected Payers?: "" S DIR(""B"")=""Selected Payers"""
^XMB(3.9,55,2,22129,0)="""RTN"",""IBCEPTC"",57,0)"
^XMB(3.9,55,2,22130,0)=" W !!,""PAYER SELECTION:"" D ^DIR K DIR"
^XMB(3.9,55,2,22131,0)="""RTN"",""IBCEPTC"",58,0)"
^XMB(3.9,55,2,22132,0)=" I X=""^^"" G ENQ"
^XMB(3.9,55,2,22133,0)="""RTN"",""IBCEPTC"",59,0)"
^XMB(3.9,55,2,22134,0)=" I $D(DTOUT)!$D(DUOUT) G Q1"
^XMB(3.9,55,2,22135,0)="""RTN"",""IBCEPTC"",60,0)"
^XMB(3.9,55,2,22136,0)=" ;"
^XMB(3.9,55,2,22137,0)="""RTN"",""IBCEPTC"",61,0)"
^XMB(3.9,55,2,22138,0)=" I Y=""A"" S ^TMP(""IB_PREV_CLAIM_INS"",$J)="""" G Q2"
^XMB(3.9,55,2,22139,0)="""RTN"",""IBCEPTC"",62,0)"
^XMB(3.9,55,2,22140,0)=" ;"
^XMB(3.9,55,2,22141,0)="""RTN"",""IBCEPTC"",63,0)"
^XMB(3.9,55,2,22142,0)=" ; esg - 11/21/05 - patch 320 question"
^XMB(3.9,55,2,22143,0)="""RTN"",""IBCEPTC"",64,0)"
^XMB(3.9,55,2,22144,0)=" W !"
^XMB(3.9,55,2,22145,0)="""RTN"",""IBCEPTC"",65,0)"
^XMB(3.9,55,2,22146,0)=" S DIR(0)=""Y"",DIR(""A"")=""   Include all payers with the same electronic Payer ID"",DIR(""B"")=""Yes"" D ^DIR K DIR"
^XMB(3.9,55,2,22147,0)="""RTN"",""IBCEPTC"",66,0)"
^XMB(3.9,55,2,22148,0)=" I $D(DIROUT) G ENQ"
^XMB(3.9,55,2,22149,0)="""RTN"",""IBCEPTC"",67,0)"
^XMB(3.9,55,2,22150,0)=" I $D(DIRUT) G Q1A"
^XMB(3.9,55,2,22151,0)="""RTN"",""IBCEPTC"",68,0)"
^XMB(3.9,55,2,22152,0)=" S IBPAYER=Y"
^XMB(3.9,55,2,22153,0)="""RTN"",""IBCEPTC"",69,0)"
^XMB(3.9,55,2,22154,0)=" W !"
^XMB(3.9,55,2,22155,0)="""RTN"",""IBCEPTC"",70,0)"
^XMB(3.9,55,2,22156,0)=" ;"
^XMB(3.9,55,2,22157,0)="""RTN"",""IBCEPTC"",71,0)"
^XMB(3.9,55,2,22158,0)=" S ^TMP(""IB_PREV_CLAIM_INS"",$J)=1"
^XMB(3.9,55,2,22159,0)="""RTN"",""IBCEPTC"",72,0)"
^XMB(3.9,55,2,22160,0)=" S IBQUIT=0"
^XMB(3.9,55,2,22161,0)="""RTN"",""IBCEPTC"",73,0)"
^XMB(3.9,55,2,22162,0)=" F  D  Q:IBQUIT"
^XMB(3.9,55,2,22163,0)="""RTN"",""IBCEPTC"",74,0)"
^XMB(3.9,55,2,22164,0)=" . S DIC(0)=""AEMQ"",DIC=36,DIC(""A"")=""   Select Insurance Company: """
^XMB(3.9,55,2,22165,0)="""RTN"",""IBCEPTC"",75,0)"
^XMB(3.9,55,2,22166,0)=" . I $O(^TMP(""IB_PREV_CLAIM_INS"",$J,1,"""")) S DIC(""A"")=""   Select Another Insurance Company: """
^XMB(3.9,55,2,22167,0)="""RTN"",""IBCEPTC"",76,0)"
^XMB(3.9,55,2,22168,0)=" . S DIC(""W"")=""D INSLIST^IBCEMCA(Y)"""
^XMB(3.9,55,2,22169,0)="""RTN"",""IBCEPTC"",77,0)"
^XMB(3.9,55,2,22170,0)=" . D ^DIC K DIC                   ; lookup"
^XMB(3.9,55,2,22171,0)="""RTN"",""IBCEPTC"",78,0)"
^XMB(3.9,55,2,22172,0)=" . I X=""^^"" S IBQUIT=2 Q          ; user entered ""^^"""
^XMB(3.9,55,2,22173,0)="""RTN"",""IBCEPTC"",79,0)"
^XMB(3.9,55,2,22174,0)=" . I +Y'>0 S IBQUIT=1 Q           ; user is done"
^XMB(3.9,55,2,22175,0)="""RTN"",""IBCEPTC"",80,0)"
^XMB(3.9,55,2,22176,0)=" . W !"
^XMB(3.9,55,2,22177,0)="""RTN"",""IBCEPTC"",81,0)"
^XMB(3.9,55,2,22178,0)=" . S ^TMP(""IB_PREV_CLAIM_INS"",$J,1,+Y)="""""
^XMB(3.9,55,2,22179,0)="""RTN"",""IBCEPTC"",82,0)"
^XMB(3.9,55,2,22180,0)=" . I 'IBPAYER Q"
^XMB(3.9,55,2,22181,0)="""RTN"",""IBCEPTC"",83,0)"
^XMB(3.9,55,2,22182,0)=" . S EDI=$$UP^XLFSTR($G(^DIC(36,+Y,3)))"
^XMB(3.9,55,2,22183,0)="""RTN"",""IBCEPTC"",84,0)"
^XMB(3.9,55,2,22184,0)=" . S PROF=$P(EDI,U,2),INST=$P(EDI,U,4)"
^XMB(3.9,55,2,22185,0)="""RTN"",""IBCEPTC"",85,0)"
^XMB(3.9,55,2,22186,0)=" . I PROF'="""",PROF'[""PRNT"" S ^TMP(""IB_PREV_CLAIM_INS"",$J,2,PROF,+Y)="""""
^XMB(3.9,55,2,22187,0)="""RTN"",""IBCEPTC"",86,0)"
^XMB(3.9,55,2,22188,0)=" . I INST'="""",INST'[""PRNT"" S ^TMP(""IB_PREV_CLAIM_INS"",$J,2,INST,+Y)="""""
^XMB(3.9,55,2,22189,0)="""RTN"",""IBCEPTC"",87,0)"
^XMB(3.9,55,2,22190,0)=" . Q"
^XMB(3.9,55,2,22191,0)="""RTN"",""IBCEPTC"",88,0)"
^XMB(3.9,55,2,22192,0)=" ;"
^XMB(3.9,55,2,22193,0)="""RTN"",""IBCEPTC"",89,0)"
^XMB(3.9,55,2,22194,0)=" I IBQUIT=2 G ENQ"
^XMB(3.9,55,2,22195,0)="""RTN"",""IBCEPTC"",90,0)"
^XMB(3.9,55,2,22196,0)=" ;"
^XMB(3.9,55,2,22197,0)="""RTN"",""IBCEPTC"",91,0)"
^XMB(3.9,55,2,22198,0)=" I '$O(^TMP(""IB_PREV_CLAIM_INS"",$J,1,0)) D  G Q1A"
^XMB(3.9,55,2,22199,0)="""RTN"",""IBCEPTC"",92,0)"
^XMB(3.9,55,2,22200,0)=" . W *7,!!?3,""No payers have been selected.  Please try again."""
^XMB(3.9,55,2,22201,0)="""RTN"",""IBCEPTC"",93,0)"
^XMB(3.9,55,2,22202,0)=" . Q"
^XMB(3.9,55,2,22203,0)="""RTN"",""IBCEPTC"",94,0)"
^XMB(3.9,55,2,22204,0)=" ;"
^XMB(3.9,55,2,22205,0)="""RTN"",""IBCEPTC"",95,0)"
^XMB(3.9,55,2,22206,0)="Q2 S DIR(0)=""SA^H:HCFA 1500;U:UB92;B:Both"",DIR(""B"")=""Both"""
^XMB(3.9,55,2,22207,0)="""RTN"",""IBCEPTC"",96,0)"
^XMB(3.9,55,2,22208,0)=" S DIR(""A"")=""Run for (U)B92, (H)CFA 1500 or (B)oth: """
^XMB(3.9,55,2,22209,0)="""RTN"",""IBCEPTC"",97,0)"
^XMB(3.9,55,2,22210,0)=" W !!,""BILL FORM TYPE SELECTION:"" D ^DIR K DIR"
^XMB(3.9,55,2,22211,0)="""RTN"",""IBCEPTC"",98,0)"
^XMB(3.9,55,2,22212,0)=" I X=""^^"" G ENQ"
^XMB(3.9,55,2,22213,0)="""RTN"",""IBCEPTC"",99,0)"
^XMB(3.9,55,2,22214,0)=" I $D(DTOUT)!$D(DUOUT) G Q1A"
^XMB(3.9,55,2,22215,0)="""RTN"",""IBCEPTC"",100,0)"
^XMB(3.9,55,2,22216,0)=" S IBFORM=Y"
^XMB(3.9,55,2,22217,0)="""RTN"",""IBCEPTC"",101,0)"
^XMB(3.9,55,2,22218,0)=" ;"
^XMB(3.9,55,2,22219,0)="""RTN"",""IBCEPTC"",102,0)"
^XMB(3.9,55,2,22220,0)="Q3 S DIR(0)=""DA^0:9999999:EPX"",DIR(""A"")=""Start with Date Last Transmitted: """
^XMB(3.9,55,2,22221,0)="""RTN"",""IBCEPTC"",103,0)"
^XMB(3.9,55,2,22222,0)=" S DIR(""?"",1)=""This is the earliest date on which a batch that you want to include on this"",DIR(""?"",2)="" report was last transmitted. You may choose a maximum date range of 90 days."",DIR(""?"")="" """
^XMB(3.9,55,2,22223,0)="""RTN"",""IBCEPTC"",104,0)"
^XMB(3.9,55,2,22224,0)=" W !!,""LAST BATCH TRANSMIT DATE RANGE SELECTION:"" D ^DIR K DIR"
^XMB(3.9,55,2,22225,0)="""RTN"",""IBCEPTC"",105,0)"
^XMB(3.9,55,2,22226,0)=" I X=""^^"" G ENQ"
^XMB(3.9,55,2,22227,0)="""RTN"",""IBCEPTC"",106,0)"
^XMB(3.9,55,2,22228,0)=" I $D(DTOUT)!$D(DUOUT) G Q2"
^XMB(3.9,55,2,22229,0)="""RTN"",""IBCEPTC"",107,0)"
^XMB(3.9,55,2,22230,0)=" S IBDT1=Y"
^XMB(3.9,55,2,22231,0)="""RTN"",""IBCEPTC"",108,0)"
^XMB(3.9,55,2,22232,0)=" S IBDT2=$$FMADD^XLFDT(IBDT1,90) I IBDT2>DT S IBDT2=DT"
^XMB(3.9,55,2,22233,0)="""RTN"",""IBCEPTC"",109,0)"
^XMB(3.9,55,2,22234,0)=" S DIR(""?"",1)=""This is the latest date on which a batch that you want to include on this"",DIR(""?"",2)="" report was last transmitted. You may choose a maximum date range of 90 days."",DIR(""?"")="" """
^XMB(3.9,55,2,22235,0)="""RTN"",""IBCEPTC"",110,0)"
^XMB(3.9,55,2,22236,0)=" S DIR(""B"")=$$FMTE^XLFDT(IBDT2,2),DIR(0)=""DA^""_IBDT1_"":""_IBDT2_"":EPX"""
^XMB(3.9,55,2,22237,0)="""RTN"",""IBCEPTC"",111,0)"
^XMB(3.9,55,2,22238,0)=" S DIR(""A"")=""Go to Date Last Transmitted:(""_$$FMTE^XLFDT(IBDT1,2)_""-""_$$FMTE^XLFDT(IBDT2,2)_""): "" D ^DIR K DIR"
^XMB(3.9,55,2,22239,0)="""RTN"",""IBCEPTC"",112,0)"
^XMB(3.9,55,2,22240,0)=" I X=""^^"" G ENQ"
^XMB(3.9,55,2,22241,0)="""RTN"",""IBCEPTC"",113,0)"
^XMB(3.9,55,2,22242,0)=" I $D(DTOUT)!$D(DUOUT) G Q3"
^XMB(3.9,55,2,22243,0)="""RTN"",""IBCEPTC"",114,0)"
^XMB(3.9,55,2,22244,0)=" S IBDT2=Y"
^XMB(3.9,55,2,22245,0)="""RTN"",""IBCEPTC"",115,0)"
^XMB(3.9,55,2,22246,0)=" ;"
^XMB(3.9,55,2,22247,0)="""RTN"",""IBCEPTC"",116,0)"
^XMB(3.9,55,2,22248,0)="Q4 ; Additional selection criteria"
^XMB(3.9,55,2,22249,0)="""RTN"",""IBCEPTC"",117,0)"
^XMB(3.9,55,2,22250,0)=" S DIR(0)=""SAO^1:MRA Secondary Only;2:Primary Claims Only;3:Secondary Claims Only;4:Claims Previously Printed at Clearinghouse"""
^XMB(3.9,55,2,22251,0)="""RTN"",""IBCEPTC"",118,0)"
^XMB(3.9,55,2,22252,0)=" S DIR(""A"",1)=""ADDITIONAL SELECTION CRITERIA:"",DIR(""A"",2)="" "",DIR(""A"",3)=""1 - MRA Secondary Only"",DIR(""A"",4)=""2 - Primary Claims Only"",DIR(""A"",5)=""3 - Secondary Claims Only"""
^XMB(3.9,55,2,22253,0)="""RTN"",""IBCEPTC"",119,0)"
^XMB(3.9,55,2,22254,0)=" S DIR(""A"",6)=""4 - Claims Sent to Print at Clearinghouse Only"",DIR(""A"",7)="" "",DIR(""A"")=""Select Additional Limiting Criteria (optional): """
^XMB(3.9,55,2,22255,0)="""RTN"",""IBCEPTC"",120,0)"
^XMB(3.9,55,2,22256,0)=" S DIR(""?"")=""Select one of the listed criteria to further limit the claims to include"""
^XMB(3.9,55,2,22257,0)="""RTN"",""IBCEPTC"",121,0)"
^XMB(3.9,55,2,22258,0)=" W ! D ^DIR K DIR"
^XMB(3.9,55,2,22259,0)="""RTN"",""IBCEPTC"",122,0)"
^XMB(3.9,55,2,22260,0)=" I X=""^^"" G ENQ"
^XMB(3.9,55,2,22261,0)="""RTN"",""IBCEPTC"",123,0)"
^XMB(3.9,55,2,22262,0)=" I $D(DTOUT)!$D(DUOUT) G Q3"
^XMB(3.9,55,2,22263,0)="""RTN"",""IBCEPTC"",124,0)"
^XMB(3.9,55,2,22264,0)=" S IBCRIT=Y"
^XMB(3.9,55,2,22265,0)="""RTN"",""IBCEPTC"",125,0)"
^XMB(3.9,55,2,22266,0)=" ;"
^XMB(3.9,55,2,22267,0)="""RTN"",""IBCEPTC"",126,0)"
^XMB(3.9,55,2,22268,0)="Q41 ; Ask user if they want to include cancelled claims"
^XMB(3.9,55,2,22269,0)="""RTN"",""IBCEPTC"",127,0)"
^XMB(3.9,55,2,22270,0)=" S DIR(0)=""Y"",DIR(""B"")=""No"",DIR(""A"")=""Would you like to include cancelled claims"""
^XMB(3.9,55,2,22271,0)="""RTN"",""IBCEPTC"",128,0)"
^XMB(3.9,55,2,22272,0)=" W ! D ^DIR K DIR"
^XMB(3.9,55,2,22273,0)="""RTN"",""IBCEPTC"",129,0)"
^XMB(3.9,55,2,22274,0)=" I X=""^^"" G ENQ"
^XMB(3.9,55,2,22275,0)="""RTN"",""IBCEPTC"",130,0)"
^XMB(3.9,55,2,22276,0)=" I $D(DIRUT) G Q4"
^XMB(3.9,55,2,22277,0)="""RTN"",""IBCEPTC"",131,0)"
^XMB(3.9,55,2,22278,0)=" S IBPTCCAN=Y"
^XMB(3.9,55,2,22279,0)="""RTN"",""IBCEPTC"",132,0)"
^XMB(3.9,55,2,22280,0)=" ;"
^XMB(3.9,55,2,22281,0)="""RTN"",""IBCEPTC"",133,0)"
^XMB(3.9,55,2,22282,0)="Q42 ; Include claims that are forced to print at clearinghouse?"
^XMB(3.9,55,2,22283,0)="""RTN"",""IBCEPTC"",134,0)"
^XMB(3.9,55,2,22284,0)=" S DIR(0)=""Y"",DIR(""B"")=""No"",DIR(""A"")=""Would you like to include claims Forced to Print at the Clearinghouse"""
^XMB(3.9,55,2,22285,0)="""RTN"",""IBCEPTC"",135,0)"
^XMB(3.9,55,2,22286,0)=" W ! D ^DIR K DIR"
^XMB(3.9,55,2,22287,0)="""RTN"",""IBCEPTC"",136,0)"
^XMB(3.9,55,2,22288,0)=" I X=""^^"" G ENQ"
^XMB(3.9,55,2,22289,0)="""RTN"",""IBCEPTC"",137,0)"
^XMB(3.9,55,2,22290,0)=" I $D(DIRUT) G Q41"
^XMB(3.9,55,2,22291,0)="""RTN"",""IBCEPTC"",138,0)"
^XMB(3.9,55,2,22292,0)=" S IBRCBFPC=Y"
^XMB(3.9,55,2,22293,0)="""RTN"",""IBCEPTC"",139,0)"
^XMB(3.9,55,2,22294,0)=" ;"
^XMB(3.9,55,2,22295,0)="""RTN"",""IBCEPTC"",140,0)"
^XMB(3.9,55,2,22296,0)="Q5 S DIR(""L"",1)=""Select one of the following: "",DIR(""L"",2)="" "",DIR(""L"",3)=$J("""",10)_""1         Batch By Last Transmitted Date (Claims within a Batch)"",DIR(""L"",4)=$J("""",10)_""2         Current Payer (Insurance Company)"""
^XMB(3.9,55,2,22297,0)="""RTN"",""IBCEPTC"",141,0)"
^XMB(3.9,55,2,22298,0)=" S DIR(""L"",5)="" """
^XMB(3.9,55,2,22299,0)="""RTN"",""IBCEPTC"",142,0)"
^XMB(3.9,55,2,22300,0)=" S DIR(0)=""SA^1:Batch By Last Transmitted Date (Claims within a Batch);2:Current Payer (Insurance Company)"",DIR(""B"")=""Current Payer"""
^XMB(3.9,55,2,22301,0)="""RTN"",""IBCEPTC"",143,0)"
^XMB(3.9,55,2,22302,0)=" S DIR(""A"")=""Sort By: """
^XMB(3.9,55,2,22303,0)="""RTN"",""IBCEPTC"",144,0)"
^XMB(3.9,55,2,22304,0)=" W ! D ^DIR K DIR"
^XMB(3.9,55,2,22305,0)="""RTN"",""IBCEPTC"",145,0)"
^XMB(3.9,55,2,22306,0)=" I X=""^^"" G ENQ"
^XMB(3.9,55,2,22307,0)="""RTN"",""IBCEPTC"",146,0)"
^XMB(3.9,55,2,22308,0)=" I $D(DTOUT)!$D(DUOUT) G Q42"
^XMB(3.9,55,2,22309,0)="""RTN"",""IBCEPTC"",147,0)"
^XMB(3.9,55,2,22310,0)=" S IBSORT=Y"
^XMB(3.9,55,2,22311,0)="""RTN"",""IBCEPTC"",148,0)"
^XMB(3.9,55,2,22312,0)=" ;"
^XMB(3.9,55,2,22313,0)="""RTN"",""IBCEPTC"",149,0)"
^XMB(3.9,55,2,22314,0)="Q6 S DIR(0)=""SA^R:Report;S:Screen List"""
^XMB(3.9,55,2,22315,0)="""RTN"",""IBCEPTC"",150,0)"
^XMB(3.9,55,2,22316,0)=" S DIR(""A"")=""Do you want a (R)eport or a (S)creen List format?: """
^XMB(3.9,55,2,22317,0)="""RTN"",""IBCEPTC"",151,0)"
^XMB(3.9,55,2,22318,0)=" S DIR(""B"")=""Screen List"""
^XMB(3.9,55,2,22319,0)="""RTN"",""IBCEPTC"",152,0)"
^XMB(3.9,55,2,22320,0)=" W ! D ^DIR K DIR"
^XMB(3.9,55,2,22321,0)="""RTN"",""IBCEPTC"",153,0)"
^XMB(3.9,55,2,22322,0)=" I X=""^^"" G ENQ"
^XMB(3.9,55,2,22323,0)="""RTN"",""IBCEPTC"",154,0)"
^XMB(3.9,55,2,22324,0)=" I $D(DTOUT)!$D(DUOUT) G Q5"
^XMB(3.9,55,2,22325,0)="""RTN"",""IBCEPTC"",155,0)"
^XMB(3.9,55,2,22326,0)=" S IBREP=Y"
^XMB(3.9,55,2,22327,0)="""RTN"",""IBCEPTC"",156,0)"
^XMB(3.9,55,2,22328,0)=" ;"
^XMB(3.9,55,2,22329,0)="""RTN"",""IBCEPTC"",157,0)"
^XMB(3.9,55,2,22330,0)=" I IBREP=""S"" D LIST^IBCEPTC0 G ENQ"
^XMB(3.9,55,2,22331,0)="""RTN"",""IBCEPTC"",158,0)"
^XMB(3.9,55,2,22332,0)=" ;"
^XMB(3.9,55,2,22333,0)="""RTN"",""IBCEPTC"",159,0)"
^XMB(3.9,55,2,22334,0)="Q7 ; Select device"
^XMB(3.9,55,2,22335,0)="""RTN"",""IBCEPTC"",160,0)"
^XMB(3.9,55,2,22336,0)=" F  S IBACT=0 D DEVSEL(.IBACT) Q:IBACT"
^XMB(3.9,55,2,22337,0)="""RTN"",""IBCEPTC"",161,0)"
^XMB(3.9,55,2,22338,0)=" I IBACT=99 G ENQ"
^XMB(3.9,55,2,22339,0)="""RTN"",""IBCEPTC"",162,0)"
^XMB(3.9,55,2,22340,0)=" U IO"
^XMB(3.9,55,2,22341,0)="""RTN"",""IBCEPTC"",163,0)"
^XMB(3.9,55,2,22342,0)=" D LIST^IBCEPTC0"
^XMB(3.9,55,2,22343,0)="""RTN"",""IBCEPTC"",164,0)"
^XMB(3.9,55,2,22344,0)=" ;"
^XMB(3.9,55,2,22345,0)="""RTN"",""IBCEPTC"",165,0)"
^XMB(3.9,55,2,22346,0)="ENQ K ^TMP(""IB_PREV_CLAIM_INS"",$J),^TMP(""IB_PREV_CLAIM_SELECT"",$J)"
^XMB(3.9,55,2,22347,0)="""RTN"",""IBCEPTC"",166,0)"
^XMB(3.9,55,2,22348,0)=" Q"
^XMB(3.9,55,2,22349,0)="""RTN"",""IBCEPTC"",167,0)"
^XMB(3.9,55,2,22350,0)=" ;"
^XMB(3.9,55,2,22351,0)="""RTN"",""IBCEPTC"",168,0)"
^XMB(3.9,55,2,22352,0)="DEVSEL(IBACT) ;"
^XMB(3.9,55,2,22353,0)="""RTN"",""IBCEPTC"",169,0)"
^XMB(3.9,55,2,22354,0)=" N DIR,POP,X,Y,ZTRTN,ZTSAVE"
^XMB(3.9,55,2,22355,0)="""RTN"",""IBCEPTC"",170,0)"
^XMB(3.9,55,2,22356,0)=" W !!,""You will need a 132 column printer for this report!"""
^XMB(3.9,55,2,22357,0)="""RTN"",""IBCEPTC"",171,0)"
^XMB(3.9,55,2,22358,0)=" S %ZIS=""QM"" D ^%ZIS I POP S IBACT=99 G DEVSELQ"
^XMB(3.9,55,2,22359,0)="""RTN"",""IBCEPTC"",172,0)"
^XMB(3.9,55,2,22360,0)=" I $G(IOM),IOM<132 S IBOK=1 D  I 'IBOK S IBACT=0 G DEVSELQ"
^XMB(3.9,55,2,22361,0)="""RTN"",""IBCEPTC"",173,0)"
^XMB(3.9,55,2,22362,0)=" . S DIR(0)=""YA"",DIR(""A"",1)=""This report requires output to a 132 column device."",DIR(""A"",2)=""The device you have chosen is only set for ""_IOM_""."",DIR(""A"")=""Are you sure you want to continue?: "",DIR(""B"")=""No"""
^XMB(3.9,55,2,22363,0)="""RTN"",""IBCEPTC"",174,0)"
^XMB(3.9,55,2,22364,0)=" . W ! D ^DIR K DIR"
^XMB(3.9,55,2,22365,0)="""RTN"",""IBCEPTC"",175,0)"
^XMB(3.9,55,2,22366,0)=" . I Y'=1 S IBOK=0 W !"
^XMB(3.9,55,2,22367,0)="""RTN"",""IBCEPTC"",176,0)"
^XMB(3.9,55,2,22368,0)=" I $D(IO(""Q"")) D  S IBACT=99 G DEVSELQ"
^XMB(3.9,55,2,22369,0)="""RTN"",""IBCEPTC"",177,0)"
^XMB(3.9,55,2,22370,0)=" . K IO(""Q"")"
^XMB(3.9,55,2,22371,0)="""RTN"",""IBCEPTC"",178,0)"
^XMB(3.9,55,2,22372,0)=" . S ZTRTN=""LIST^IBCEPTC0"",ZTSAVE(""IBCRIT("")="""",ZTSAVE(""IB*"")="""",ZTSAVE(""^TMP(""""IB_PREV_CLAIM_INS"""",$J)"")="""",ZTSAVE(""^TMP(""""IB_PREV_CLAIM_INS"""",$J,"")="""",ZTDESC=""IB - Previously Transmitted Claims Report"""
^XMB(3.9,55,2,22373,0)="""RTN"",""IBCEPTC"",179,0)"
^XMB(3.9,55,2,22374,0)=" . D ^%ZTLOAD K ZTSK D HOME^%ZIS"
^XMB(3.9,55,2,22375,0)="""RTN"",""IBCEPTC"",180,0)"
^XMB(3.9,55,2,22376,0)=" S IBACT=1"
^XMB(3.9,55,2,22377,0)="""RTN"",""IBCEPTC"",181,0)"
^XMB(3.9,55,2,22378,0)="DEVSELQ Q"
^XMB(3.9,55,2,22379,0)="""RTN"",""IBCEPTC"",182,0)"
^XMB(3.9,55,2,22380,0)=" ;"
^XMB(3.9,55,2,22381,0)="""RTN"",""IBCEPTC"",183,0)"
^XMB(3.9,55,2,22382,0)="SELDSP(IBHOW) ; Display list of selected claims/batches"
^XMB(3.9,55,2,22383,0)="""RTN"",""IBCEPTC"",184,0)"
^XMB(3.9,55,2,22384,0)=" ; IBHOW = ""C"" for claims   ""B"" for batches"
^XMB(3.9,55,2,22385,0)="""RTN"",""IBCEPTC"",185,0)"
^XMB(3.9,55,2,22386,0)=" N Z,DIR,CT,QUIT"
^XMB(3.9,55,2,22387,0)="""RTN"",""IBCEPTC"",186,0)"
^XMB(3.9,55,2,22388,0)=" I '$O(^TMP($J,IBHOW,0)) Q"
^XMB(3.9,55,2,22389,0)="""RTN"",""IBCEPTC"",187,0)"
^XMB(3.9,55,2,22390,0)=" S (CT,QUIT)=0"
^XMB(3.9,55,2,22391,0)="""RTN"",""IBCEPTC"",188,0)"
^XMB(3.9,55,2,22392,0)=" W !!,$S(IBHOW=""C"":""Claims"",1:""Batches""),"" Already Selected:"""
^XMB(3.9,55,2,22393,0)="""RTN"",""IBCEPTC"",189,0)"
^XMB(3.9,55,2,22394,0)=" S Z=0 F  S Z=$O(^TMP($J,IBHOW,Z)) Q:'Z!QUIT  S Z0=$G(^(Z)) D  Q:QUIT"
^XMB(3.9,55,2,22395,0)="""RTN"",""IBCEPTC"",190,0)"
^XMB(3.9,55,2,22396,0)=" . I IBHOW=""C"" W !,?3,$P($G(^DGCR(399,Z,0)),U) Q"
^XMB(3.9,55,2,22397,0)="""RTN"",""IBCEPTC"",191,0)"
^XMB(3.9,55,2,22398,0)=" . W !,?3,$P($G(^IBA(364.1,Z,0)),U),""  "",$P(^(0),U,3),"" Claims"""
^XMB(3.9,55,2,22399,0)="""RTN"",""IBCEPTC"",192,0)"
^XMB(3.9,55,2,22400,0)=" . S CT=CT+1"
^XMB(3.9,55,2,22401,0)="""RTN"",""IBCEPTC"",193,0)"
^XMB(3.9,55,2,22402,0)=" . I '(CT#10),$O(^TMP($J,IBHOW,Z)) S DIR(""A"")=""Press return for more or '^' to exit "",DIR(0)=""EA"" W ! D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S QUIT=1"
^XMB(3.9,55,2,22403,0)="""RTN"",""IBCEPTC"",194,0)"
^XMB(3.9,55,2,22404,0)=" W !"
^XMB(3.9,55,2,22405,0)="""RTN"",""IBCEPTC"",195,0)"
^XMB(3.9,55,2,22406,0)=" Q"
^XMB(3.9,55,2,22407,0)="""RTN"",""IBCEPTC"",196,0)"
^XMB(3.9,55,2,22408,0)=" ;"
^XMB(3.9,55,2,22409,0)="""RTN"",""IBCEPTC0"")"
^XMB(3.9,55,2,22410,0)="0^38^B19867534"
^XMB(3.9,55,2,22411,0)="""RTN"",""IBCEPTC0"",1,0)"
^XMB(3.9,55,2,22412,0)="IBCEPTC0 ;ALB/ESG - EDI PREVIOUSLY TRANSMITTED CLAIMS CONT; 12/19/05"
^XMB(3.9,55,2,22413,0)="""RTN"",""IBCEPTC0"",2,0)"
^XMB(3.9,55,2,22414,0)=" ;;2.0;INTEGRATED BILLING;**320**;21-MAR-94"
^XMB(3.9,55,2,22415,0)="""RTN"",""IBCEPTC0"",3,0)"
^XMB(3.9,55,2,22416,0)=" ;"
^XMB(3.9,55,2,22417,0)="""RTN"",""IBCEPTC0"",4,0)"
^XMB(3.9,55,2,22418,0)=" Q"
^XMB(3.9,55,2,22419,0)="""RTN"",""IBCEPTC0"",5,0)"
^XMB(3.9,55,2,22420,0)=" ;"
^XMB(3.9,55,2,22421,0)="""RTN"",""IBCEPTC0"",6,0)"
^XMB(3.9,55,2,22422,0)="LIST ; Queued report format entrypoint"
^XMB(3.9,55,2,22423,0)="""RTN"",""IBCEPTC0"",7,0)"
^XMB(3.9,55,2,22424,0)=" ; variables pre-defined: IBREP,IBSORT,IBFORM,IBDT1,IBDT2,"
^XMB(3.9,55,2,22425,0)="""RTN"",""IBCEPTC0"",8,0)"
^XMB(3.9,55,2,22426,0)=" ;                        IBCRIT,IBPTCCAN,IBRCBFPC"
^XMB(3.9,55,2,22427,0)="""RTN"",""IBCEPTC0"",9,0)"
^XMB(3.9,55,2,22428,0)=" ;  ^TMP(""IB_PREV_CLAIM_INS,$J) global"
^XMB(3.9,55,2,22429,0)="""RTN"",""IBCEPTC0"",10,0)"
^XMB(3.9,55,2,22430,0)=" K ^TMP(""IB_PREV_CLAIM"",$J)"
^XMB(3.9,55,2,22431,0)="""RTN"",""IBCEPTC0"",11,0)"
^XMB(3.9,55,2,22432,0)=" N IBBDA,IBBDA0,IBCURI,IBDA,IBDT,IBFT,IBIFN,IBS1,IBS2,IBDTX"
^XMB(3.9,55,2,22433,0)="""RTN"",""IBCEPTC0"",12,0)"
^XMB(3.9,55,2,22434,0)=" N INCLUDE,EDI,PROF,INST,IB0,IBZ1,DATA,IB364,CURSEQ,IBZ,IBZDAT"
^XMB(3.9,55,2,22435,0)="""RTN"",""IBCEPTC0"",13,0)"
^XMB(3.9,55,2,22436,0)=" I IBREP=""R"" N IBPAGE,IBSTOP,IBHDRDT S (IBPAGE,IBSTOP)=0"
^XMB(3.9,55,2,22437,0)="""RTN"",""IBCEPTC0"",14,0)"
^XMB(3.9,55,2,22438,0)=" ;"
^XMB(3.9,55,2,22439,0)="""RTN"",""IBCEPTC0"",15,0)"
^XMB(3.9,55,2,22440,0)=" ; evaluate claim transmission data from files 364.1 and 364"
^XMB(3.9,55,2,22441,0)="""RTN"",""IBCEPTC0"",16,0)"
^XMB(3.9,55,2,22442,0)=" S IBDT=IBDT1-.1"
^XMB(3.9,55,2,22443,0)="""RTN"",""IBCEPTC0"",17,0)"
^XMB(3.9,55,2,22444,0)=" F  S IBDT=$O(^IBA(364.1,""ALT"",IBDT)) Q:'IBDT!((IBDT\1)>IBDT2)  S IBBDA=0 F  S IBBDA=$O(^IBA(364.1,""ALT"",IBDT,IBBDA)) Q:'IBBDA  D"
^XMB(3.9,55,2,22445,0)="""RTN"",""IBCEPTC0"",18,0)"
^XMB(3.9,55,2,22446,0)=" . S IBDTX=IBDT\1"
^XMB(3.9,55,2,22447,0)="""RTN"",""IBCEPTC0"",19,0)"
^XMB(3.9,55,2,22448,0)=" . S IBDA=0 F  S IBDA=$O(^IBA(364,""C"",IBBDA,IBDA)) Q:'IBDA  D"
^XMB(3.9,55,2,22449,0)="""RTN"",""IBCEPTC0"",20,0)"
^XMB(3.9,55,2,22450,0)=" .. D STORE(IBDA,IBBDA,IBDTX,$P($G(^IBA(364,IBDA,0)),U,7)+1)"
^XMB(3.9,55,2,22451,0)="""RTN"",""IBCEPTC0"",21,0)"
^XMB(3.9,55,2,22452,0)=" .. Q"
^XMB(3.9,55,2,22453,0)="""RTN"",""IBCEPTC0"",22,0)"
^XMB(3.9,55,2,22454,0)=" . Q"
^XMB(3.9,55,2,22455,0)="""RTN"",""IBCEPTC0"",23,0)"
^XMB(3.9,55,2,22456,0)=" ;"
^XMB(3.9,55,2,22457,0)="""RTN"",""IBCEPTC0"",24,0)"
^XMB(3.9,55,2,22458,0)=" ; evaluate the test transmissions from file 361.4 (SRS 3.2.10.3)"
^XMB(3.9,55,2,22459,0)="""RTN"",""IBCEPTC0"",25,0)"
^XMB(3.9,55,2,22460,0)=" S IBDT=IBDT1-.1"
^XMB(3.9,55,2,22461,0)="""RTN"",""IBCEPTC0"",26,0)"
^XMB(3.9,55,2,22462,0)=" F  S IBDT=$O(^IBM(361.4,""ALT"",IBDT)) Q:'IBDT!(IBDT>IBDT2)  S IBIFN=0 F  S IBIFN=$O(^IBM(361.4,""ALT"",IBDT,IBIFN)) Q:'IBIFN  S IBZ1=0 F  S IBZ1=$O(^IBM(361.4,IBIFN,1,IBZ1)) Q:'IBZ1  D"
^XMB(3.9,55,2,22463,0)="""RTN"",""IBCEPTC0"",27,0)"
^XMB(3.9,55,2,22464,0)=" . S DATA=$G(^IBM(361.4,IBIFN,1,IBZ1,0)) Q:DATA="""""
^XMB(3.9,55,2,22465,0)="""RTN"",""IBCEPTC0"",28,0)"
^XMB(3.9,55,2,22466,0)=" . S IBDTX=$P(DATA,U,1)\1    ; transmit date"
^XMB(3.9,55,2,22467,0)="""RTN"",""IBCEPTC0"",29,0)"
^XMB(3.9,55,2,22468,0)=" . Q:IBDTX<IBDT1             ;  too early"
^XMB(3.9,55,2,22469,0)="""RTN"",""IBCEPTC0"",30,0)"
^XMB(3.9,55,2,22470,0)=" . Q:IBDTX>IBDT2             ;  too late"
^XMB(3.9,55,2,22471,0)="""RTN"",""IBCEPTC0"",31,0)"
^XMB(3.9,55,2,22472,0)=" . S IBBDA=+$P(DATA,U,2)     ; batch ien"
^XMB(3.9,55,2,22473,0)="""RTN"",""IBCEPTC0"",32,0)"
^XMB(3.9,55,2,22474,0)=" . Q:'IBBDA"
^XMB(3.9,55,2,22475,0)="""RTN"",""IBCEPTC0"",33,0)"
^XMB(3.9,55,2,22476,0)=" . ;"
^XMB(3.9,55,2,22477,0)="""RTN"",""IBCEPTC0"",34,0)"
^XMB(3.9,55,2,22478,0)=" . ; attempt to find the corresponding entry in file 364 for this one"
^XMB(3.9,55,2,22479,0)="""RTN"",""IBCEPTC0"",35,0)"
^XMB(3.9,55,2,22480,0)=" . S IB364="""",CURSEQ=$TR(+$P(DATA,U,4),""123"",""PST"")"
^XMB(3.9,55,2,22481,0)="""RTN"",""IBCEPTC0"",36,0)"
^XMB(3.9,55,2,22482,0)=" . S IBZ="" "" F  S IBZ=$O(^IBA(364,""B"",IBIFN,IBZ),-1) Q:'IBZ  D  Q:IB364"
^XMB(3.9,55,2,22483,0)="""RTN"",""IBCEPTC0"",37,0)"
^XMB(3.9,55,2,22484,0)=" .. S IBZDAT=$G(^IBA(364,IBZ,0))"
^XMB(3.9,55,2,22485,0)="""RTN"",""IBCEPTC0"",38,0)"
^XMB(3.9,55,2,22486,0)=" .. I $P(IBZDAT,U,8)'=CURSEQ Q      ; no match on payer sequence"
^XMB(3.9,55,2,22487,0)="""RTN"",""IBCEPTC0"",39,0)"
^XMB(3.9,55,2,22488,0)=" .. I $F("".X.P."","".""_$P(IBZDAT,U,3)_""."") Q    ; transmission status must be farther than this"
^XMB(3.9,55,2,22489,0)="""RTN"",""IBCEPTC0"",40,0)"
^XMB(3.9,55,2,22490,0)=" .. S IB364=IBZ Q"
^XMB(3.9,55,2,22491,0)="""RTN"",""IBCEPTC0"",41,0)"
^XMB(3.9,55,2,22492,0)=" .. Q"
^XMB(3.9,55,2,22493,0)="""RTN"",""IBCEPTC0"",42,0)"
^XMB(3.9,55,2,22494,0)=" . ;"
^XMB(3.9,55,2,22495,0)="""RTN"",""IBCEPTC0"",43,0)"
^XMB(3.9,55,2,22496,0)=" . I 'IB364 Q      ; need to have an entry in file 364 to proceed"
^XMB(3.9,55,2,22497,0)="""RTN"",""IBCEPTC0"",44,0)"
^XMB(3.9,55,2,22498,0)=" . ;"
^XMB(3.9,55,2,22499,0)="""RTN"",""IBCEPTC0"",45,0)"
^XMB(3.9,55,2,22500,0)=" . D STORE(IB364,IBBDA,IBDTX,3)"
^XMB(3.9,55,2,22501,0)="""RTN"",""IBCEPTC0"",46,0)"
^XMB(3.9,55,2,22502,0)=" . Q"
^XMB(3.9,55,2,22503,0)="""RTN"",""IBCEPTC0"",47,0)"
^XMB(3.9,55,2,22504,0)=" ;"
^XMB(3.9,55,2,22505,0)="""RTN"",""IBCEPTC0"",48,0)"
^XMB(3.9,55,2,22506,0)=" I IBREP=""R"" D RPT^IBCEPTC1(IBSORT,IBDT1,IBDT2) G END  ; Output report"
^XMB(3.9,55,2,22507,0)="""RTN"",""IBCEPTC0"",49,0)"
^XMB(3.9,55,2,22508,0)=" ;"
^XMB(3.9,55,2,22509,0)="""RTN"",""IBCEPTC0"",50,0)"
^XMB(3.9,55,2,22510,0)=" D EN^VALM(""IBCE VIEW PREV TRANS""_IBSORT) ; List Manager"
^XMB(3.9,55,2,22511,0)="""RTN"",""IBCEPTC0"",51,0)"
^XMB(3.9,55,2,22512,0)=" ;"
^XMB(3.9,55,2,22513,0)="""RTN"",""IBCEPTC0"",52,0)"
^XMB(3.9,55,2,22514,0)="END K ^TMP(""IB_PREV_CLAIM"",$J),^TMP(""IB_PREV_CLAIM_INS"",$J)"
^XMB(3.9,55,2,22515,0)="""RTN"",""IBCEPTC0"",53,0)"
^XMB(3.9,55,2,22516,0)=" Q"
^XMB(3.9,55,2,22517,0)="""RTN"",""IBCEPTC0"",54,0)"
^XMB(3.9,55,2,22518,0)=" ;"
^XMB(3.9,55,2,22519,0)="""RTN"",""IBCEPTC0"",55,0)"
^XMB(3.9,55,2,22520,0)="STORE(IB364,IBBDA,IBDTX,IBTYP) ; Check and store transmission data"
^XMB(3.9,55,2,22521,0)="""RTN"",""IBCEPTC0"",56,0)"
^XMB(3.9,55,2,22522,0)=" ; Parameters"
^XMB(3.9,55,2,22523,0)="""RTN"",""IBCEPTC0"",57,0)"
^XMB(3.9,55,2,22524,0)=" ; IB364 - ien to file 364 (claim transmission ien)"
^XMB(3.9,55,2,22525,0)="""RTN"",""IBCEPTC0"",58,0)"
^XMB(3.9,55,2,22526,0)=" ; IBBDA - ien to file 364.1 (batch ien)"
^XMB(3.9,55,2,22527,0)="""RTN"",""IBCEPTC0"",59,0)"
^XMB(3.9,55,2,22528,0)=" ; IBDTX - fm transmit date (no time) (either from 364.1 or 361.41)"
^XMB(3.9,55,2,22529,0)="""RTN"",""IBCEPTC0"",60,0)"
^XMB(3.9,55,2,22530,0)=" ; IBTYP - 1 = transmission data from file 364 (field .07 is live)"
^XMB(3.9,55,2,22531,0)="""RTN"",""IBCEPTC0"",61,0)"
^XMB(3.9,55,2,22532,0)=" ;         2 = transmission data from file 364 (field .07 is test)"
^XMB(3.9,55,2,22533,0)="""RTN"",""IBCEPTC0"",62,0)"
^XMB(3.9,55,2,22534,0)=" ;         3 = transmission data from file 361.41 (test always)"
^XMB(3.9,55,2,22535,0)="""RTN"",""IBCEPTC0"",63,0)"
^XMB(3.9,55,2,22536,0)=" ; Note:"
^XMB(3.9,55,2,22537,0)="""RTN"",""IBCEPTC0"",64,0)"
^XMB(3.9,55,2,22538,0)=" ; Variables IBFORM, IBCRIT, IBPTCCAN, IBRCBFPC, and IBSORT are"
^XMB(3.9,55,2,22539,0)="""RTN"",""IBCEPTC0"",65,0)"
^XMB(3.9,55,2,22540,0)=" ;     assumed to exist here in this procedure."
^XMB(3.9,55,2,22541,0)="""RTN"",""IBCEPTC0"",66,0)"
^XMB(3.9,55,2,22542,0)=" ;"
^XMB(3.9,55,2,22543,0)="""RTN"",""IBCEPTC0"",67,0)"
^XMB(3.9,55,2,22544,0)=" NEW IBIFN,IB0,IBFT,IBCURI,INCLUDE,EDI,PROF,INST,IBBDA0,IBS1,IBS2"
^XMB(3.9,55,2,22545,0)="""RTN"",""IBCEPTC0"",68,0)"
^XMB(3.9,55,2,22546,0)=" ;"
^XMB(3.9,55,2,22547,0)="""RTN"",""IBCEPTC0"",69,0)"
^XMB(3.9,55,2,22548,0)=" S IBIFN=+$G(^IBA(364,IB364,0))"
^XMB(3.9,55,2,22549,0)="""RTN"",""IBCEPTC0"",70,0)"
^XMB(3.9,55,2,22550,0)=" S IB0=$G(^DGCR(399,IBIFN,0))"
^XMB(3.9,55,2,22551,0)="""RTN"",""IBCEPTC0"",71,0)"
^XMB(3.9,55,2,22552,0)=" S IBFT=$$FT^IBCEF(IBIFN)   ; form type of claim"
^XMB(3.9,55,2,22553,0)="""RTN"",""IBCEPTC0"",72,0)"
^XMB(3.9,55,2,22554,0)=" I IBFORM'=""B"",$S(IBFT=3:IBFORM=""H"",IBFT=2:IBFORM=""U"",1:1) G STOREX"
^XMB(3.9,55,2,22555,0)="""RTN"",""IBCEPTC0"",73,0)"
^XMB(3.9,55,2,22556,0)=" S IBCURI=$$CURR^IBCEF2(IBIFN) I 'IBCURI G STOREX   ; current ins ien"
^XMB(3.9,55,2,22557,0)="""RTN"",""IBCEPTC0"",74,0)"
^XMB(3.9,55,2,22558,0)=" S EDI=$$UP^XLFSTR($G(^DIC(36,IBCURI,3)))           ; 3 node EDI data"
^XMB(3.9,55,2,22559,0)="""RTN"",""IBCEPTC0"",75,0)"
^XMB(3.9,55,2,22560,0)=" S PROF=$P(EDI,U,2),INST=$P(EDI,U,4)                ; payer IDs"
^XMB(3.9,55,2,22561,0)="""RTN"",""IBCEPTC0"",76,0)"
^XMB(3.9,55,2,22562,0)=" ;"
^XMB(3.9,55,2,22563,0)="""RTN"",""IBCEPTC0"",77,0)"
^XMB(3.9,55,2,22564,0)=" ; screen for user selected insurance companies/payers"
^XMB(3.9,55,2,22565,0)="""RTN"",""IBCEPTC0"",78,0)"
^XMB(3.9,55,2,22566,0)=" I +$G(^TMP(""IB_PREV_CLAIM_INS"",$J)) D  I 'INCLUDE G STOREX"
^XMB(3.9,55,2,22567,0)="""RTN"",""IBCEPTC0"",79,0)"
^XMB(3.9,55,2,22568,0)=" . S INCLUDE=0"
^XMB(3.9,55,2,22569,0)="""RTN"",""IBCEPTC0"",80,0)"
^XMB(3.9,55,2,22570,0)=" . I $D(^TMP(""IB_PREV_CLAIM_INS"",$J,1,IBCURI)) S INCLUDE=1 Q"
^XMB(3.9,55,2,22571,0)="""RTN"",""IBCEPTC0"",81,0)"
^XMB(3.9,55,2,22572,0)=" . I '$D(^TMP(""IB_PREV_CLAIM_INS"",$J,2)) Q"
^XMB(3.9,55,2,22573,0)="""RTN"",""IBCEPTC0"",82,0)"
^XMB(3.9,55,2,22574,0)=" . I PROF'="""",$D(^TMP(""IB_PREV_CLAIM_INS"",$J,2,PROF)) S INCLUDE=1 Q"
^XMB(3.9,55,2,22575,0)="""RTN"",""IBCEPTC0"",83,0)"
^XMB(3.9,55,2,22576,0)=" . I INST'="""",$D(^TMP(""IB_PREV_CLAIM_INS"",$J,2,INST)) S INCLUDE=1 Q"
^XMB(3.9,55,2,22577,0)="""RTN"",""IBCEPTC0"",84,0)"
^XMB(3.9,55,2,22578,0)=" . Q"
^XMB(3.9,55,2,22579,0)="""RTN"",""IBCEPTC0"",85,0)"
^XMB(3.9,55,2,22580,0)=" ;"
^XMB(3.9,55,2,22581,0)="""RTN"",""IBCEPTC0"",86,0)"
^XMB(3.9,55,2,22582,0)=" I IBCRIT=1,'$$MRASEC^IBCEF4(IBIFN) G STOREX"
^XMB(3.9,55,2,22583,0)="""RTN"",""IBCEPTC0"",87,0)"
^XMB(3.9,55,2,22584,0)=" I IBCRIT=2,($$COBN^IBCEF(IBIFN)>1) G STOREX"
^XMB(3.9,55,2,22585,0)="""RTN"",""IBCEPTC0"",88,0)"
^XMB(3.9,55,2,22586,0)=" I IBCRIT=3,($$COBN^IBCEF(IBIFN)=1) G STOREX"
^XMB(3.9,55,2,22587,0)="""RTN"",""IBCEPTC0"",89,0)"
^XMB(3.9,55,2,22588,0)=" I IBCRIT=4,'$P($G(^DGCR(399,IBIFN,""TX"")),U,7) G STOREX"
^XMB(3.9,55,2,22589,0)="""RTN"",""IBCEPTC0"",90,0)"
^XMB(3.9,55,2,22590,0)=" ;"
^XMB(3.9,55,2,22591,0)="""RTN"",""IBCEPTC0"",91,0)"
^XMB(3.9,55,2,22592,0)=" ; skip cancelled claims conditionally"
^XMB(3.9,55,2,22593,0)="""RTN"",""IBCEPTC0"",92,0)"
^XMB(3.9,55,2,22594,0)=" I $P(IB0,U,13)=7,'IBPTCCAN G STOREX"
^XMB(3.9,55,2,22595,0)="""RTN"",""IBCEPTC0"",93,0)"
^XMB(3.9,55,2,22596,0)=" ;"
^XMB(3.9,55,2,22597,0)="""RTN"",""IBCEPTC0"",94,0)"
^XMB(3.9,55,2,22598,0)=" ; skip claims forced to print at clearinghouse (claim check)"
^XMB(3.9,55,2,22599,0)="""RTN"",""IBCEPTC0"",95,0)"
^XMB(3.9,55,2,22600,0)=" I $P($G(^DGCR(399,IBIFN,""TX"")),U,8)=2,'IBRCBFPC G STOREX"
^XMB(3.9,55,2,22601,0)="""RTN"",""IBCEPTC0"",96,0)"
^XMB(3.9,55,2,22602,0)=" ;"
^XMB(3.9,55,2,22603,0)="""RTN"",""IBCEPTC0"",97,0)"
^XMB(3.9,55,2,22604,0)=" ; skip claims forced to print at clearinghouse (payer check)"
^XMB(3.9,55,2,22605,0)="""RTN"",""IBCEPTC0"",98,0)"
^XMB(3.9,55,2,22606,0)=" I IBFT=2,PROF[""PRNT"",'IBRCBFPC G STOREX    ; hcfa, prof payer ID"
^XMB(3.9,55,2,22607,0)="""RTN"",""IBCEPTC0"",99,0)"
^XMB(3.9,55,2,22608,0)=" I IBFT=3,INST[""PRNT"",'IBRCBFPC G STOREX    ;   ub, inst payer ID"
^XMB(3.9,55,2,22609,0)="""RTN"",""IBCEPTC0"",100,0)"
^XMB(3.9,55,2,22610,0)=" ;"
^XMB(3.9,55,2,22611,0)="""RTN"",""IBCEPTC0"",101,0)"
^XMB(3.9,55,2,22612,0)=" S IBBDA0=$G(^IBA(364.1,+IBBDA,0))             ; 0 node of batch"
^XMB(3.9,55,2,22613,0)="""RTN"",""IBCEPTC0"",102,0)"
^XMB(3.9,55,2,22614,0)=" ;"
^XMB(3.9,55,2,22615,0)="""RTN"",""IBCEPTC0"",103,0)"
^XMB(3.9,55,2,22616,0)=" S IBS1=$S(IBSORT=1:(99999999-IBDTX)_U_$P(IBBDA0,U)_U_$P(IBBDA0,U,14)_U_+$P(IBBDA0,U,5),1:$P($G(^DIC(36,+IBCURI,0)),U)_U_+IBCURI)"
^XMB(3.9,55,2,22617,0)="""RTN"",""IBCEPTC0"",104,0)"
^XMB(3.9,55,2,22618,0)=" S IBS2=$S(IBSORT=1:$P(IB0,U,1),1:99999999-IBDTX)"
^XMB(3.9,55,2,22619,0)="""RTN"",""IBCEPTC0"",105,0)"
^XMB(3.9,55,2,22620,0)=" ;"
^XMB(3.9,55,2,22621,0)="""RTN"",""IBCEPTC0"",106,0)"
^XMB(3.9,55,2,22622,0)=" ; Meets all selection criteria - extract to sort global"
^XMB(3.9,55,2,22623,0)="""RTN"",""IBCEPTC0"",107,0)"
^XMB(3.9,55,2,22624,0)=" S:IBS1="""" IBS1="" "" S:IBS2="""" IBS2="" """
^XMB(3.9,55,2,22625,0)="""RTN"",""IBCEPTC0"",108,0)"
^XMB(3.9,55,2,22626,0)=" I '$D(^TMP(""IB_PREV_CLAIM"",$J,IBS1)) S ^TMP(""IB_PREV_CLAIM"",$J,IBS1)=$S(IBSORT=1:$$FMTE^XLFDT(IBDTX,""1""),1:IBIFN)"
^XMB(3.9,55,2,22627,0)="""RTN"",""IBCEPTC0"",109,0)"
^XMB(3.9,55,2,22628,0)=" S ^TMP(""IB_PREV_CLAIM"",$J,IBS1,IBS2,IB364)=IBTYP"
^XMB(3.9,55,2,22629,0)="""RTN"",""IBCEPTC0"",110,0)"
^XMB(3.9,55,2,22630,0)=" ;"
^XMB(3.9,55,2,22631,0)="""RTN"",""IBCEPTC0"",111,0)"
^XMB(3.9,55,2,22632,0)="STOREX ;"
^XMB(3.9,55,2,22633,0)="""RTN"",""IBCEPTC0"",112,0)"
^XMB(3.9,55,2,22634,0)=" Q"
^XMB(3.9,55,2,22635,0)="""RTN"",""IBCEPTC0"",113,0)"
^XMB(3.9,55,2,22636,0)=" ;"
^XMB(3.9,55,2,22637,0)="""RTN"",""IBCEPTC1"")"
^XMB(3.9,55,2,22638,0)="0^39^B16490219^B16175723"
^XMB(3.9,55,2,22639,0)="""RTN"",""IBCEPTC1"",1,0)"
^XMB(3.9,55,2,22640,0)="IBCEPTC1 ;ALB/TMK - EDI PREV TRANSMITTED CLAIMS REPORT OUTPUT ;01/20/05"
^XMB(3.9,55,2,22641,0)="""RTN"",""IBCEPTC1"",2,0)"
^XMB(3.9,55,2,22642,0)=" ;;2.0;INTEGRATED BILLING;**296,320**;21-MAR-94"
^XMB(3.9,55,2,22643,0)="""RTN"",""IBCEPTC1"",3,0)"
^XMB(3.9,55,2,22644,0)=" ;"
^XMB(3.9,55,2,22645,0)="""RTN"",""IBCEPTC1"",4,0)"
^XMB(3.9,55,2,22646,0)="RPT(IBSORT,IBDT1,IBDT2) ; Output transmitted claims report"
^XMB(3.9,55,2,22647,0)="""RTN"",""IBCEPTC1"",5,0)"
^XMB(3.9,55,2,22648,0)=" ; global ^TMP(""IB_PREV_CLAIM"",$J,srt1,srt2,ien of entry file 364)="""""
^XMB(3.9,55,2,22649,0)="""RTN"",""IBCEPTC1"",6,0)"
^XMB(3.9,55,2,22650,0)=" N IBDA,IBIFN,IBPAGE,IBSTOP,IBHDR,IBS1,IBS2,Z,IBZ,IBREP"
^XMB(3.9,55,2,22651,0)="""RTN"",""IBCEPTC1"",7,0)"
^XMB(3.9,55,2,22652,0)=" S (IBPAGE,IBSTOP)=0,IBPAGE(0)="""",IBPAGE(1)="""",IBREP=""R"""
^XMB(3.9,55,2,22653,0)="""RTN"",""IBCEPTC1"",8,0)"
^XMB(3.9,55,2,22654,0)=" S IBHDR=""Transmitted Claims Report for period covering ""_$$FMTE^XLFDT(IBDT1,1)_"" thru ""_$$FMTE^XLFDT(IBDT2,1)_$J("""",14)_$$HTE^XLFDT($H,""1M""),IBHDR=IBHDR_$J("""",124-$L(IBHDR))_""Page"""
^XMB(3.9,55,2,22655,0)="""RTN"",""IBCEPTC1"",9,0)"
^XMB(3.9,55,2,22656,0)=" S IBS1="""" F  S IBS1=$O(^TMP(""IB_PREV_CLAIM"",$J,IBS1)) Q:IBS1=""""  D  Q:IBSTOP"
^XMB(3.9,55,2,22657,0)="""RTN"",""IBCEPTC1"",10,0)"
^XMB(3.9,55,2,22658,0)=" . ; First level sort"
^XMB(3.9,55,2,22659,0)="""RTN"",""IBCEPTC1"",11,0)"
^XMB(3.9,55,2,22660,0)=" . D:($Y+6)>IOSL!'IBPAGE HDR(IBHDR,IBSORT,.IBPAGE,.IBSTOP) Q:IBSTOP"
^XMB(3.9,55,2,22661,0)="""RTN"",""IBCEPTC1"",12,0)"
^XMB(3.9,55,2,22662,0)=" . S IBPAGE(1)=IBS1,IBPAGE(0)="""" ; Hold data for hdr repeated on new pg"
^XMB(3.9,55,2,22663,0)="""RTN"",""IBCEPTC1"",13,0)"
^XMB(3.9,55,2,22664,0)=" . D HDR1(IBSORT,IBS1,.IBPAGE,.IBSTOP) Q:IBSTOP"
^XMB(3.9,55,2,22665,0)="""RTN"",""IBCEPTC1"",14,0)"
^XMB(3.9,55,2,22666,0)=" . ;"
^XMB(3.9,55,2,22667,0)="""RTN"",""IBCEPTC1"",15,0)"
^XMB(3.9,55,2,22668,0)=" . S IBPAGE(0)=1"
^XMB(3.9,55,2,22669,0)="""RTN"",""IBCEPTC1"",16,0)"
^XMB(3.9,55,2,22670,0)=" . S IBS2="""" F  S IBS2=$O(^TMP(""IB_PREV_CLAIM"",$J,IBS1,IBS2)) Q:IBS2=""""!IBSTOP  S IBDA=0 F  S IBDA=$O(^TMP(""IB_PREV_CLAIM"",$J,IBS1,IBS2,IBDA)) Q:'IBDA!IBSTOP  D"
^XMB(3.9,55,2,22671,0)="""RTN"",""IBCEPTC1"",17,0)"
^XMB(3.9,55,2,22672,0)=" .. S IBIFN=+$G(^IBA(364,+IBDA,0))"
^XMB(3.9,55,2,22673,0)="""RTN"",""IBCEPTC1"",18,0)"
^XMB(3.9,55,2,22674,0)=" .. ;"
^XMB(3.9,55,2,22675,0)="""RTN"",""IBCEPTC1"",19,0)"
^XMB(3.9,55,2,22676,0)=" .. D:($Y+5)>IOSL!'IBPAGE HDR(IBHDR,IBSORT,.IBPAGE,.IBSTOP) Q:IBSTOP"
^XMB(3.9,55,2,22677,0)="""RTN"",""IBCEPTC1"",20,0)"
^XMB(3.9,55,2,22678,0)=" .. D WRT^IBCEPTC2(IBS1,IBS2,IBDA,IBIFN,IBSORT,IBREP,"""",.IBPAGE,.IBSTOP) Q:IBSTOP"
^XMB(3.9,55,2,22679,0)="""RTN"",""IBCEPTC1"",21,0)"
^XMB(3.9,55,2,22680,0)=" . S IBPAGE(0)="""""
^XMB(3.9,55,2,22681,0)="""RTN"",""IBCEPTC1"",22,0)"
^XMB(3.9,55,2,22682,0)=" ;"
^XMB(3.9,55,2,22683,0)="""RTN"",""IBCEPTC1"",23,0)"
^XMB(3.9,55,2,22684,0)=" G:IBSTOP STOP"
^XMB(3.9,55,2,22685,0)="""RTN"",""IBCEPTC1"",24,0)"
^XMB(3.9,55,2,22686,0)=" I 'IBPAGE D WRT^IBCEPTC2(""NO PREVIOUSLY TRANSMITTED CLAIMS EXIST TO MATCH THE SEARCH CRITERIA SELECTED"","""",0,0,IBSORT,IBREP,IBHDR,0,0)"
^XMB(3.9,55,2,22687,0)="""RTN"",""IBCEPTC1"",25,0)"
^XMB(3.9,55,2,22688,0)=" ;"
^XMB(3.9,55,2,22689,0)="""RTN"",""IBCEPTC1"",26,0)"
^XMB(3.9,55,2,22690,0)=" I $E(IOST,1,2)[""C-"" K DIR S DIR(0)=""E"" D ^DIR K DIR"
^XMB(3.9,55,2,22691,0)="""RTN"",""IBCEPTC1"",27,0)"
^XMB(3.9,55,2,22692,0)=" ;"
^XMB(3.9,55,2,22693,0)="""RTN"",""IBCEPTC1"",28,0)"
^XMB(3.9,55,2,22694,0)="STOP I $D(ZTQUEUED) S ZTREQ=""@"""
^XMB(3.9,55,2,22695,0)="""RTN"",""IBCEPTC1"",29,0)"
^XMB(3.9,55,2,22696,0)=" I '$D(ZTQUEUED) W ! D ^%ZISC"
^XMB(3.9,55,2,22697,0)="""RTN"",""IBCEPTC1"",30,0)"
^XMB(3.9,55,2,22698,0)=" ;"
^XMB(3.9,55,2,22699,0)="""RTN"",""IBCEPTC1"",31,0)"
^XMB(3.9,55,2,22700,0)=" Q"
^XMB(3.9,55,2,22701,0)="""RTN"",""IBCEPTC1"",32,0)"
^XMB(3.9,55,2,22702,0)=" ;"
^XMB(3.9,55,2,22703,0)="""RTN"",""IBCEPTC1"",33,0)"
^XMB(3.9,55,2,22704,0)="HDR1(IBSORT,IBDATA,IBPAGE,IBSTOP) ; First level report sort headers"
^XMB(3.9,55,2,22705,0)="""RTN"",""IBCEPTC1"",34,0)"
^XMB(3.9,55,2,22706,0)=" ; IBSORT = sort type"
^XMB(3.9,55,2,22707,0)="""RTN"",""IBCEPTC1"",35,0)"
^XMB(3.9,55,2,22708,0)=" ; IBDATA = data at the 1st sort level"
^XMB(3.9,55,2,22709,0)="""RTN"",""IBCEPTC1"",36,0)"
^XMB(3.9,55,2,22710,0)=" I ($Y+11)>IOSL D HDR(IBHDR,IBSORT,.IBPAGE,.IBSTOP) Q:IBSTOP"
^XMB(3.9,55,2,22711,0)="""RTN"",""IBCEPTC1"",37,0)"
^XMB(3.9,55,2,22712,0)=" N Z,X,Y,Q"
^XMB(3.9,55,2,22713,0)="""RTN"",""IBCEPTC1"",38,0)"
^XMB(3.9,55,2,22714,0)=" I IBSORT=1 D"
^XMB(3.9,55,2,22715,0)="""RTN"",""IBCEPTC1"",39,0)"
^XMB(3.9,55,2,22716,0)=" . S Q=""Batch Number: ""_$P(IBDATA,U,2)_$S('$P(IBDATA,U,4):"""",1:""  ** This batch was rejected **"")_$S('$P(IBDATA,U,3):"""",1:""  ** This batch was a test batch **"")"
^XMB(3.9,55,2,22717,0)="""RTN"",""IBCEPTC1"",40,0)"
^XMB(3.9,55,2,22718,0)=" . W !!,Q W:$G(IBPAGE(0)) $J("""",120-$L(Q)),""(Continued)"" W !,""Date Last Transmitted: "",$$FMTE^XLFDT(99999999-IBDATA,1)"
^XMB(3.9,55,2,22719,0)="""RTN"",""IBCEPTC1"",41,0)"
^XMB(3.9,55,2,22720,0)=" . S Z="""",$P(Z,""="",133)="""" W !,Z"
^XMB(3.9,55,2,22721,0)="""RTN"",""IBCEPTC1"",42,0)"
^XMB(3.9,55,2,22722,0)=" . W !,""Claim #   Form Type Seq  Status      A/R  Current Payer"",$J("""",13),""Payer Address"",$J("""",17),""Other Payer(s)  Patient Name"",!"
^XMB(3.9,55,2,22723,0)="""RTN"",""IBCEPTC1"",43,0)"
^XMB(3.9,55,2,22724,0)=" ;"
^XMB(3.9,55,2,22725,0)="""RTN"",""IBCEPTC1"",44,0)"
^XMB(3.9,55,2,22726,0)=" I IBSORT=2 D"
^XMB(3.9,55,2,22727,0)="""RTN"",""IBCEPTC1"",45,0)"
^XMB(3.9,55,2,22728,0)=" . N IBZ,IBIFN"
^XMB(3.9,55,2,22729,0)="""RTN"",""IBCEPTC1"",46,0)"
^XMB(3.9,55,2,22730,0)=" . S IBIFN="""""
^XMB(3.9,55,2,22731,0)="""RTN"",""IBCEPTC1"",47,0)"
^XMB(3.9,55,2,22732,0)=" . I IBDATA'="""" S IBIFN=+$G(^TMP(""IB_PREV_CLAIM"",$J,IBDATA))"
^XMB(3.9,55,2,22733,0)="""RTN"",""IBCEPTC1"",48,0)"
^XMB(3.9,55,2,22734,0)=" . S Q=""Current Payer: ""_$P(IBDATA,U)"
^XMB(3.9,55,2,22735,0)="""RTN"",""IBCEPTC1"",49,0)"
^XMB(3.9,55,2,22736,0)=" . D F^IBCEF(""N-CURR INS CO FULL ADDRESS"",""IBZ"",,IBIFN)"
^XMB(3.9,55,2,22737,0)="""RTN"",""IBCEPTC1"",50,0)"
^XMB(3.9,55,2,22738,0)=" . S Q=Q_""  ""_$G(IBZ(1))_$S($G(IBZ(1))'="""":"","",1:"""")_"" ""_$G(IBZ(4))_$S($G(IBZ(4))'="""":"","",1:"""")_"" ""_$P($G(^DIC(5,+$G(IBZ(5)),0)),U,2)"
^XMB(3.9,55,2,22739,0)="""RTN"",""IBCEPTC1"",51,0)"
^XMB(3.9,55,2,22740,0)=" . W !!,Q"
^XMB(3.9,55,2,22741,0)="""RTN"",""IBCEPTC1"",52,0)"
^XMB(3.9,55,2,22742,0)=" . I $G(IBPAGE(0)) D"
^XMB(3.9,55,2,22743,0)="""RTN"",""IBCEPTC1"",53,0)"
^XMB(3.9,55,2,22744,0)=" .. I $L(Q)>119 S Q="""" W !"
^XMB(3.9,55,2,22745,0)="""RTN"",""IBCEPTC1"",54,0)"
^XMB(3.9,55,2,22746,0)=" .. W $J("""",120-$L(Q)),""(Continued)"""
^XMB(3.9,55,2,22747,0)="""RTN"",""IBCEPTC1"",55,0)"
^XMB(3.9,55,2,22748,0)=" . S Z="""",$P(Z,""="",133)="""" W !,Z"
^XMB(3.9,55,2,22749,0)="""RTN"",""IBCEPTC1"",56,0)"
^XMB(3.9,55,2,22750,0)=" . W !,""Claim #   Form Type Seq  Status      A/R    Other Payer(s)"",$J("""",6),""Patient Name"",$J("""",10),""Last Transmit    Batch Number"",!"
^XMB(3.9,55,2,22751,0)="""RTN"",""IBCEPTC1"",57,0)"
^XMB(3.9,55,2,22752,0)=" ;"
^XMB(3.9,55,2,22753,0)="""RTN"",""IBCEPTC1"",58,0)"
^XMB(3.9,55,2,22754,0)=" Q"
^XMB(3.9,55,2,22755,0)="""RTN"",""IBCEPTC1"",59,0)"
^XMB(3.9,55,2,22756,0)=" ;"
^XMB(3.9,55,2,22757,0)="""RTN"",""IBCEPTC1"",60,0)"
^XMB(3.9,55,2,22758,0)="HDR(IBHDR,IBSORT,IBPAGE,IBSTOP) ; Report header"
^XMB(3.9,55,2,22759,0)="""RTN"",""IBCEPTC1"",61,0)"
^XMB(3.9,55,2,22760,0)=" ;"
^XMB(3.9,55,2,22761,0)="""RTN"",""IBCEPTC1"",62,0)"
^XMB(3.9,55,2,22762,0)=" N Z,DIR,X,Y"
^XMB(3.9,55,2,22763,0)="""RTN"",""IBCEPTC1"",63,0)"
^XMB(3.9,55,2,22764,0)=" I IBPAGE D  Q:IBSTOP"
^XMB(3.9,55,2,22765,0)="""RTN"",""IBCEPTC1"",64,0)"
^XMB(3.9,55,2,22766,0)=" . I $E(IOST,1,2)[""C-"" K DIR S DIR(0)=""E"" D ^DIR K DIR S IBSTOP=('Y) Q:IBSTOP"
^XMB(3.9,55,2,22767,0)="""RTN"",""IBCEPTC1"",65,0)"
^XMB(3.9,55,2,22768,0)=" . W @IOF"
^XMB(3.9,55,2,22769,0)="""RTN"",""IBCEPTC1"",66,0)"
^XMB(3.9,55,2,22770,0)=" S IBPAGE=IBPAGE+1,Z=IBHDR_$J(IBPAGE,4)"
^XMB(3.9,55,2,22771,0)="""RTN"",""IBCEPTC1"",67,0)"
^XMB(3.9,55,2,22772,0)=" W !,Z"
^XMB(3.9,55,2,22773,0)="""RTN"",""IBCEPTC1"",68,0)"
^XMB(3.9,55,2,22774,0)=" W !,""** A claim may appear on this report multiple times if it has been transmitted more than once. **"""
^XMB(3.9,55,2,22775,0)="""RTN"",""IBCEPTC1"",69,0)"
^XMB(3.9,55,2,22776,0)=" I IBSORT=2 D"
^XMB(3.9,55,2,22777,0)="""RTN"",""IBCEPTC1"",70,0)"
^XMB(3.9,55,2,22778,0)=" . W !,""** T indicates the claim was transmitted as a test claim prior to turning on EDI live for the payer. **"""
^XMB(3.9,55,2,22779,0)="""RTN"",""IBCEPTC1"",71,0)"
^XMB(3.9,55,2,22780,0)=" . W !,""** R indicates that the batch was rejected. **"""
^XMB(3.9,55,2,22781,0)="""RTN"",""IBCEPTC1"",72,0)"
^XMB(3.9,55,2,22782,0)=" I IBPAGE>1,$G(IBPAGE(0)) D HDR1(IBSORT,IBPAGE(1),.IBPAGE,.IBSTOP)"
^XMB(3.9,55,2,22783,0)="""RTN"",""IBCEPTC1"",73,0)"
^XMB(3.9,55,2,22784,0)=" Q"
^XMB(3.9,55,2,22785,0)="""RTN"",""IBCEPTC1"",74,0)"
^XMB(3.9,55,2,22786,0)=" ;"
^XMB(3.9,55,2,22787,0)="""RTN"",""IBCEPTC2"")"
^XMB(3.9,55,2,22788,0)="0^40^B47686748^B95600462"
^XMB(3.9,55,2,22789,0)="""RTN"",""IBCEPTC2"",1,0)"
^XMB(3.9,55,2,22790,0)="IBCEPTC2 ;ALB/TMK - EDI PREVIOUSLY TRANSMITTED CLAIMS LIST MGR ;01/20/05"
^XMB(3.9,55,2,22791,0)="""RTN"",""IBCEPTC2"",2,0)"
^XMB(3.9,55,2,22792,0)=" ;;2.0;INTEGRATED BILLING;**296,320**;21-MAR-94"
^XMB(3.9,55,2,22793,0)="""RTN"",""IBCEPTC2"",3,0)"
^XMB(3.9,55,2,22794,0)=" ; IA 3337 for file 430.3"
^XMB(3.9,55,2,22795,0)="""RTN"",""IBCEPTC2"",4,0)"
^XMB(3.9,55,2,22796,0)=" ;"
^XMB(3.9,55,2,22797,0)="""RTN"",""IBCEPTC2"",5,0)"
^XMB(3.9,55,2,22798,0)="HDR ;"
^XMB(3.9,55,2,22799,0)="""RTN"",""IBCEPTC2"",6,0)"
^XMB(3.9,55,2,22800,0)=" K VALMHDR"
^XMB(3.9,55,2,22801,0)="""RTN"",""IBCEPTC2"",7,0)"
^XMB(3.9,55,2,22802,0)=" S VALMHDR(1)=""** A claim may appear multiple times if transmitted more than once. **"""
^XMB(3.9,55,2,22803,0)="""RTN"",""IBCEPTC2"",8,0)"
^XMB(3.9,55,2,22804,0)=" ;"
^XMB(3.9,55,2,22805,0)="""RTN"",""IBCEPTC2"",9,0)"
^XMB(3.9,55,2,22806,0)=" I $G(IBSORT)=1 D"
^XMB(3.9,55,2,22807,0)="""RTN"",""IBCEPTC2"",10,0)"
^XMB(3.9,55,2,22808,0)=" . S VALMHDR(2)=""Claims Selected: ""_+$G(^TMP(""IB_PREV_CLAIM_SELECT"",$J))_"" (marked with *)"""
^XMB(3.9,55,2,22809,0)="""RTN"",""IBCEPTC2"",11,0)"
^XMB(3.9,55,2,22810,0)=" . Q"
^XMB(3.9,55,2,22811,0)="""RTN"",""IBCEPTC2"",12,0)"
^XMB(3.9,55,2,22812,0)=" ;"
^XMB(3.9,55,2,22813,0)="""RTN"",""IBCEPTC2"",13,0)"
^XMB(3.9,55,2,22814,0)=" I $G(IBSORT)=2 D"
^XMB(3.9,55,2,22815,0)="""RTN"",""IBCEPTC2"",14,0)"
^XMB(3.9,55,2,22816,0)=" . S VALMHDR(2)=""** T = Test Claim   ** R = Batch Rejected"""
^XMB(3.9,55,2,22817,0)="""RTN"",""IBCEPTC2"",15,0)"
^XMB(3.9,55,2,22818,0)=" . S VALMHDR(3)=""Claims Selected: ""_+$G(^TMP(""IB_PREV_CLAIM_SELECT"",$J))_"" (marked with *)"""
^XMB(3.9,55,2,22819,0)="""RTN"",""IBCEPTC2"",16,0)"
^XMB(3.9,55,2,22820,0)=" . Q"
^XMB(3.9,55,2,22821,0)="""RTN"",""IBCEPTC2"",17,0)"
^XMB(3.9,55,2,22822,0)=" ;"
^XMB(3.9,55,2,22823,0)="""RTN"",""IBCEPTC2"",18,0)"
^XMB(3.9,55,2,22824,0)=" Q"
^XMB(3.9,55,2,22825,0)="""RTN"",""IBCEPTC2"",19,0)"
^XMB(3.9,55,2,22826,0)=" ;"
^XMB(3.9,55,2,22827,0)="""RTN"",""IBCEPTC2"",20,0)"
^XMB(3.9,55,2,22828,0)="INIT ;"
^XMB(3.9,55,2,22829,0)="""RTN"",""IBCEPTC2"",21,0)"
^XMB(3.9,55,2,22830,0)=" S VALMCNT=0,VALMBG=1"
^XMB(3.9,55,2,22831,0)="""RTN"",""IBCEPTC2"",22,0)"
^XMB(3.9,55,2,22832,0)=" D BLD"
^XMB(3.9,55,2,22833,0)="""RTN"",""IBCEPTC2"",23,0)"
^XMB(3.9,55,2,22834,0)=" Q"
^XMB(3.9,55,2,22835,0)="""RTN"",""IBCEPTC2"",24,0)"
^XMB(3.9,55,2,22836,0)=" ;"
^XMB(3.9,55,2,22837,0)="""RTN"",""IBCEPTC2"",25,0)"
^XMB(3.9,55,2,22838,0)="BLD ; Build display lines"
^XMB(3.9,55,2,22839,0)="""RTN"",""IBCEPTC2"",26,0)"
^XMB(3.9,55,2,22840,0)=" N IBDA,IBS1,IBS2,IBIFN,IB0,IBX,IBCNT,IBLEV1,IBBDA"
^XMB(3.9,55,2,22841,0)="""RTN"",""IBCEPTC2"",27,0)"
^XMB(3.9,55,2,22842,0)=" K ^TMP(""IB_PREV_CLAIM_LIST"",$J),^TMP(""IB_PREV_CLAIM_SELECT"",$J),^TMP(""IB_PREV_CLAIM_BATCH"",$J)"
^XMB(3.9,55,2,22843,0)="""RTN"",""IBCEPTC2"",28,0)"
^XMB(3.9,55,2,22844,0)=" S IBCNT=0"
^XMB(3.9,55,2,22845,0)="""RTN"",""IBCEPTC2"",29,0)"
^XMB(3.9,55,2,22846,0)=" I $O(^TMP(""IB_PREV_CLAIM"",$J,""""))="""" D  G BLDQ"
^XMB(3.9,55,2,22847,0)="""RTN"",""IBCEPTC2"",30,0)"
^XMB(3.9,55,2,22848,0)=" . S IBX="" ** NO PREVIOUSLY TRANSMITTED CLAIMS EXIST FOR SEARCH CRITERIA SELECTED **"""
^XMB(3.9,55,2,22849,0)="""RTN"",""IBCEPTC2"",31,0)"
^XMB(3.9,55,2,22850,0)=" . D WRT(IBX,"""",0,0,"""",""S"","""",.IBCNT,0)"
^XMB(3.9,55,2,22851,0)="""RTN"",""IBCEPTC2"",32,0)"
^XMB(3.9,55,2,22852,0)=" ;"
^XMB(3.9,55,2,22853,0)="""RTN"",""IBCEPTC2"",33,0)"
^XMB(3.9,55,2,22854,0)=" S IBS1="""" F  S IBS1=$O(^TMP(""IB_PREV_CLAIM"",$J,IBS1)) Q:IBS1=""""  D"
^XMB(3.9,55,2,22855,0)="""RTN"",""IBCEPTC2"",34,0)"
^XMB(3.9,55,2,22856,0)=" . ; First level sort"
^XMB(3.9,55,2,22857,0)="""RTN"",""IBCEPTC2"",35,0)"
^XMB(3.9,55,2,22858,0)=" . ; for sort by batch, display batch ID and transmit date"
^XMB(3.9,55,2,22859,0)="""RTN"",""IBCEPTC2"",36,0)"
^XMB(3.9,55,2,22860,0)=" . I IBSORT=1 D"
^XMB(3.9,55,2,22861,0)="""RTN"",""IBCEPTC2"",37,0)"
^XMB(3.9,55,2,22862,0)=" .. S IBLEV1=""  Batch: ""_$P(IBS1,U,2)_""  Last Transmitted: ""_$G(^TMP(""IB_PREV_CLAIM"",$J,IBS1))"
^XMB(3.9,55,2,22863,0)="""RTN"",""IBCEPTC2"",38,0)"
^XMB(3.9,55,2,22864,0)=" .. S IBBDA=+$O(^IBA(364.1,""B"",$P(IBS1,U,2),0))"
^XMB(3.9,55,2,22865,0)="""RTN"",""IBCEPTC2"",39,0)"
^XMB(3.9,55,2,22866,0)=" .. I $P(IBS1,U,3) S IBLEV1=IBLEV1_"" ** Test"""
^XMB(3.9,55,2,22867,0)="""RTN"",""IBCEPTC2"",40,0)"
^XMB(3.9,55,2,22868,0)=" .. I $P(IBS1,U,4) S IBLEV1=IBLEV1_"" ** Rejected"""
^XMB(3.9,55,2,22869,0)="""RTN"",""IBCEPTC2"",41,0)"
^XMB(3.9,55,2,22870,0)=" .. Q"
^XMB(3.9,55,2,22871,0)="""RTN"",""IBCEPTC2"",42,0)"
^XMB(3.9,55,2,22872,0)=" . ;"
^XMB(3.9,55,2,22873,0)="""RTN"",""IBCEPTC2"",43,0)"
^XMB(3.9,55,2,22874,0)=" . ; for sort by payer, display ins co name and payer address"
^XMB(3.9,55,2,22875,0)="""RTN"",""IBCEPTC2"",44,0)"
^XMB(3.9,55,2,22876,0)=" . I IBSORT=2 D"
^XMB(3.9,55,2,22877,0)="""RTN"",""IBCEPTC2"",45,0)"
^XMB(3.9,55,2,22878,0)=" .. S IBLEV1=""  ""_$P(IBS1,U)_""  ""_$$CURRINS(+$G(^TMP(""IB_PREV_CLAIM"",$J,IBS1)),0)"
^XMB(3.9,55,2,22879,0)="""RTN"",""IBCEPTC2"",46,0)"
^XMB(3.9,55,2,22880,0)=" .. Q"
^XMB(3.9,55,2,22881,0)="""RTN"",""IBCEPTC2"",47,0)"
^XMB(3.9,55,2,22882,0)=" . ;"
^XMB(3.9,55,2,22883,0)="""RTN"",""IBCEPTC2"",48,0)"
^XMB(3.9,55,2,22884,0)=" . ; output sort header line"
^XMB(3.9,55,2,22885,0)="""RTN"",""IBCEPTC2"",49,0)"
^XMB(3.9,55,2,22886,0)=" . D WRT(IBLEV1,"""",0,0,IBSORT,""S"","""",IBCNT,0) ; Add header line"
^XMB(3.9,55,2,22887,0)="""RTN"",""IBCEPTC2"",50,0)"
^XMB(3.9,55,2,22888,0)=" . ;"
^XMB(3.9,55,2,22889,0)="""RTN"",""IBCEPTC2"",51,0)"
^XMB(3.9,55,2,22890,0)=" . I IBSORT=1,IBBDA S ^TMP(""IB_PREV_CLAIM_BATCH"",$J,IBBDA)=VALMCNT"
^XMB(3.9,55,2,22891,0)="""RTN"",""IBCEPTC2"",52,0)"
^XMB(3.9,55,2,22892,0)=" . S IBS2="""" F  S IBS2=$O(^TMP(""IB_PREV_CLAIM"",$J,IBS1,IBS2)) Q:IBS2=""""  S IBDA=0 F  S IBDA=$O(^TMP(""IB_PREV_CLAIM"",$J,IBS1,IBS2,IBDA)) Q:'IBDA  D"
^XMB(3.9,55,2,22893,0)="""RTN"",""IBCEPTC2"",53,0)"
^XMB(3.9,55,2,22894,0)=" .. N IBX,IBTEST"
^XMB(3.9,55,2,22895,0)="""RTN"",""IBCEPTC2"",54,0)"
^XMB(3.9,55,2,22896,0)=" .. S IBIFN=+$G(^IBA(364,+IBDA,0)),IB0=$G(^DGCR(399,IBIFN,0))"
^XMB(3.9,55,2,22897,0)="""RTN"",""IBCEPTC2"",55,0)"
^XMB(3.9,55,2,22898,0)=" .. S IBX=$P(^TMP(""IB_PREV_CLAIM"",$J,IBS1,IBS2,IBDA),U,1)"
^XMB(3.9,55,2,22899,0)="""RTN"",""IBCEPTC2"",56,0)"
^XMB(3.9,55,2,22900,0)=" .. I IBX=1 S IBTEST=0    ; live 364 transmission"
^XMB(3.9,55,2,22901,0)="""RTN"",""IBCEPTC2"",57,0)"
^XMB(3.9,55,2,22902,0)=" .. I IBX=2 S IBTEST=1    ; test 364 transmission"
^XMB(3.9,55,2,22903,0)="""RTN"",""IBCEPTC2"",58,0)"
^XMB(3.9,55,2,22904,0)=" .. I IBX=3 S IBTEST=1    ; test 361.4 transmission"
^XMB(3.9,55,2,22905,0)="""RTN"",""IBCEPTC2"",59,0)"
^XMB(3.9,55,2,22906,0)=" .. D WRT(IBS1,IBS2,IBDA,IBIFN,IBSORT,""S"","""",.IBCNT,0,IBTEST)"
^XMB(3.9,55,2,22907,0)="""RTN"",""IBCEPTC2"",60,0)"
^XMB(3.9,55,2,22908,0)=" .. I IBSORT=1,IBBDA S ^TMP(""IB_PREV_CLAIM_BATCH"",$J,IBBDA,VALMCNT)=IBIFN_U_IBCNT"
^XMB(3.9,55,2,22909,0)="""RTN"",""IBCEPTC2"",61,0)"
^XMB(3.9,55,2,22910,0)=" .. Q"
^XMB(3.9,55,2,22911,0)="""RTN"",""IBCEPTC2"",62,0)"
^XMB(3.9,55,2,22912,0)=" . Q"
^XMB(3.9,55,2,22913,0)="""RTN"",""IBCEPTC2"",63,0)"
^XMB(3.9,55,2,22914,0)=" ;"
^XMB(3.9,55,2,22915,0)="""RTN"",""IBCEPTC2"",64,0)"
^XMB(3.9,55,2,22916,0)="BLDQ Q"
^XMB(3.9,55,2,22917,0)="""RTN"",""IBCEPTC2"",65,0)"
^XMB(3.9,55,2,22918,0)=" ;"
^XMB(3.9,55,2,22919,0)="""RTN"",""IBCEPTC2"",66,0)"
^XMB(3.9,55,2,22920,0)="EXIT ; Clean up code"
^XMB(3.9,55,2,22921,0)="""RTN"",""IBCEPTC2"",67,0)"
^XMB(3.9,55,2,22922,0)=" ;"
^XMB(3.9,55,2,22923,0)="""RTN"",""IBCEPTC2"",68,0)"
^XMB(3.9,55,2,22924,0)=" K ^TMP(""IB_PREV_CLAIM_LIST"",$J)"
^XMB(3.9,55,2,22925,0)="""RTN"",""IBCEPTC2"",69,0)"
^XMB(3.9,55,2,22926,0)=" K ^TMP(""IB_PREV_CLAIM_SELECT"",$J)"
^XMB(3.9,55,2,22927,0)="""RTN"",""IBCEPTC2"",70,0)"
^XMB(3.9,55,2,22928,0)=" K ^TMP(""IB_PREV_CLAIM_LIST_DX"",$J)"
^XMB(3.9,55,2,22929,0)="""RTN"",""IBCEPTC2"",71,0)"
^XMB(3.9,55,2,22930,0)=" K ^TMP(""IB_PREV_CLAIM_BATCH"",$J)"
^XMB(3.9,55,2,22931,0)="""RTN"",""IBCEPTC2"",72,0)"
^XMB(3.9,55,2,22932,0)=" D CLEAR^VALM1"
^XMB(3.9,55,2,22933,0)="""RTN"",""IBCEPTC2"",73,0)"
^XMB(3.9,55,2,22934,0)=" Q"
^XMB(3.9,55,2,22935,0)="""RTN"",""IBCEPTC2"",74,0)"
^XMB(3.9,55,2,22936,0)=" ;"
^XMB(3.9,55,2,22937,0)="""RTN"",""IBCEPTC2"",75,0)"
^XMB(3.9,55,2,22938,0)="WRT(IBS1,IBS2,IBDA,IBIFN,IBSORT,IBREP,IBHDR,IBPAGE,IBSTOP,IBTEST) ; Wrt/output"
^XMB(3.9,55,2,22939,0)="""RTN"",""IBCEPTC2"",76,0)"
^XMB(3.9,55,2,22940,0)=" ;"
^XMB(3.9,55,2,22941,0)="""RTN"",""IBCEPTC2"",77,0)"
^XMB(3.9,55,2,22942,0)=" N IBX,IB0,Z,IBCNT,ARSTAT"
^XMB(3.9,55,2,22943,0)="""RTN"",""IBCEPTC2"",78,0)"
^XMB(3.9,55,2,22944,0)=" S IBCNT=IBPAGE"
^XMB(3.9,55,2,22945,0)="""RTN"",""IBCEPTC2"",79,0)"
^XMB(3.9,55,2,22946,0)=" ;"
^XMB(3.9,55,2,22947,0)="""RTN"",""IBCEPTC2"",80,0)"
^XMB(3.9,55,2,22948,0)=" I 'IBIFN D  G WRTQ"
^XMB(3.9,55,2,22949,0)="""RTN"",""IBCEPTC2"",81,0)"
^XMB(3.9,55,2,22950,0)=" . ;"
^XMB(3.9,55,2,22951,0)="""RTN"",""IBCEPTC2"",82,0)"
^XMB(3.9,55,2,22952,0)=" . ; for report output"
^XMB(3.9,55,2,22953,0)="""RTN"",""IBCEPTC2"",83,0)"
^XMB(3.9,55,2,22954,0)=" . I IBREP=""R"" D  Q"
^XMB(3.9,55,2,22955,0)="""RTN"",""IBCEPTC2"",84,0)"
^XMB(3.9,55,2,22956,0)=" .. S Z="""",$P(Z,""="",133)="""""
^XMB(3.9,55,2,22957,0)="""RTN"",""IBCEPTC2"",85,0)"
^XMB(3.9,55,2,22958,0)=" .. D SET(Z,1,IBDA,IBREP,IBHDR,1,0,.IBPAGE,.IBSTOP)"
^XMB(3.9,55,2,22959,0)="""RTN"",""IBCEPTC2"",86,0)"
^XMB(3.9,55,2,22960,0)=" .. D SET(IBS1,2,IBDA,IBREP,IBHDR,1,0,.IBPAGE,.IBSTOP)"
^XMB(3.9,55,2,22961,0)="""RTN"",""IBCEPTC2"",87,0)"
^XMB(3.9,55,2,22962,0)=" .. Q"
^XMB(3.9,55,2,22963,0)="""RTN"",""IBCEPTC2"",88,0)"
^XMB(3.9,55,2,22964,0)=" . ;"
^XMB(3.9,55,2,22965,0)="""RTN"",""IBCEPTC2"",89,0)"
^XMB(3.9,55,2,22966,0)=" . ; for ListMan screen output"
^XMB(3.9,55,2,22967,0)="""RTN"",""IBCEPTC2"",90,0)"
^XMB(3.9,55,2,22968,0)=" . D SET(IBS1,0,IBDA,IBREP,IBHDR,IBCNT+1,.VALMCNT,.IBPAGE,.IBSTOP)"
^XMB(3.9,55,2,22969,0)="""RTN"",""IBCEPTC2"",91,0)"
^XMB(3.9,55,2,22970,0)=" . Q"
^XMB(3.9,55,2,22971,0)="""RTN"",""IBCEPTC2"",92,0)"
^XMB(3.9,55,2,22972,0)=" ;"
^XMB(3.9,55,2,22973,0)="""RTN"",""IBCEPTC2"",93,0)"
^XMB(3.9,55,2,22974,0)=" S IB0=$G(^DGCR(399,IBIFN,0))"
^XMB(3.9,55,2,22975,0)="""RTN"",""IBCEPTC2"",94,0)"
^XMB(3.9,55,2,22976,0)=" S IBX=$$FO^IBCNEUT1($P(IB0,U,1),8)        ; claim#"
^XMB(3.9,55,2,22977,0)="""RTN"",""IBCEPTC2"",95,0)"
^XMB(3.9,55,2,22978,0)=" S IBX=IBX_$S(IBSORT=2&$G(IBTEST):""T"",1:"" "")_"" """
^XMB(3.9,55,2,22979,0)="""RTN"",""IBCEPTC2"",96,0)"
^XMB(3.9,55,2,22980,0)=" S IBX=IBX_$S($P(IB0,U,19)=2:""HCFA"",1:""UB92"")_"" """
^XMB(3.9,55,2,22981,0)="""RTN"",""IBCEPTC2"",97,0)"
^XMB(3.9,55,2,22982,0)=" S Z=$$INPAT^IBCEF(IBIFN) S IBX=IBX_$S(Z:""INPT "",1:""OUTPT"")"
^XMB(3.9,55,2,22983,0)="""RTN"",""IBCEPTC2"",98,0)"
^XMB(3.9,55,2,22984,0)=" S IBX=IBX_$J($P(IB0,U,21),3)_""  """
^XMB(3.9,55,2,22985,0)="""RTN"",""IBCEPTC2"",99,0)"
^XMB(3.9,55,2,22986,0)=" S Z=$$EXTERNAL^DILFD(399,.13,"""",$P(IB0,U,13))"
^XMB(3.9,55,2,22987,0)="""RTN"",""IBCEPTC2"",100,0)"
^XMB(3.9,55,2,22988,0)=" S IBX=IBX_$$FO^IBCNEUT1(Z,11)_""  ""             ; claim status"
^XMB(3.9,55,2,22989,0)="""RTN"",""IBCEPTC2"",101,0)"
^XMB(3.9,55,2,22990,0)=" S ARSTAT=+$P($$BILL^RCJIBFN2(IBIFN),U,2)       ; ien"
^XMB(3.9,55,2,22991,0)="""RTN"",""IBCEPTC2"",102,0)"
^XMB(3.9,55,2,22992,0)=" S ARSTAT=$P($G(^PRCA(430.3,ARSTAT,0)),U,2)     ; abbreviation"
^XMB(3.9,55,2,22993,0)="""RTN"",""IBCEPTC2"",103,0)"
^XMB(3.9,55,2,22994,0)=" S IBX=IBX_$$FO^IBCNEUT1(ARSTAT,4)              ; a/r status display"
^XMB(3.9,55,2,22995,0)="""RTN"",""IBCEPTC2"",104,0)"
^XMB(3.9,55,2,22996,0)=" ;"
^XMB(3.9,55,2,22997,0)="""RTN"",""IBCEPTC2"",105,0)"
^XMB(3.9,55,2,22998,0)=" I IBSORT=1 D                    ; sort by batch"
^XMB(3.9,55,2,22999,0)="""RTN"",""IBCEPTC2"",106,0)"
^XMB(3.9,55,2,23000,0)=" . N Z,IBZ,IBXDATA"
^XMB(3.9,55,2,23001,0)="""RTN"",""IBCEPTC2"",107,0)"
^XMB(3.9,55,2,23002,0)=" . ; Print current payer, payer address, other payers, pat name"
^XMB(3.9,55,2,23003,0)="""RTN"",""IBCEPTC2"",108,0)"
^XMB(3.9,55,2,23004,0)=" . D F^IBCEF(""N-CURR INSURANCE COMPANY NAME"",""IBZ"",,IBIFN)"
^XMB(3.9,55,2,23005,0)="""RTN"",""IBCEPTC2"",109,0)"
^XMB(3.9,55,2,23006,0)=" . S IBX=IBX_$$FO^IBCNEUT1(IBZ,25)_"" ""                     ; ins co name"
^XMB(3.9,55,2,23007,0)="""RTN"",""IBCEPTC2"",110,0)"
^XMB(3.9,55,2,23008,0)=" . S IBX=IBX_$$FO^IBCNEUT1($$CURRINS(IBIFN,1),29)_"" ""      ; address"
^XMB(3.9,55,2,23009,0)="""RTN"",""IBCEPTC2"",111,0)"
^XMB(3.9,55,2,23010,0)=" . K IBZ D F^IBCEF(""N-OTH INSURANCE CO. NAME"",""IBZ"",,IBIFN)"
^XMB(3.9,55,2,23011,0)="""RTN"",""IBCEPTC2"",112,0)"
^XMB(3.9,55,2,23012,0)=" . S IBX=IBX_$$FO^IBCNEUT1($P($G(IBZ(1)),U,1),15)_"" ""      ; other payer"
^XMB(3.9,55,2,23013,0)="""RTN"",""IBCEPTC2"",113,0)"
^XMB(3.9,55,2,23014,0)=" . S Z=$P($G(^DPT(+$P(IB0,U,2),0)),U,1)"
^XMB(3.9,55,2,23015,0)="""RTN"",""IBCEPTC2"",114,0)"
^XMB(3.9,55,2,23016,0)=" . S IBX=IBX_$E(Z,1,18)                       ; patient name"
^XMB(3.9,55,2,23017,0)="""RTN"",""IBCEPTC2"",115,0)"
^XMB(3.9,55,2,23018,0)=" . ;"
^XMB(3.9,55,2,23019,0)="""RTN"",""IBCEPTC2"",116,0)"
^XMB(3.9,55,2,23020,0)=" . ; set line into list"
^XMB(3.9,55,2,23021,0)="""RTN"",""IBCEPTC2"",117,0)"
^XMB(3.9,55,2,23022,0)=" . S IBCNT=IBCNT+1"
^XMB(3.9,55,2,23023,0)="""RTN"",""IBCEPTC2"",118,0)"
^XMB(3.9,55,2,23024,0)=" . D SET(.IBX,1,IBDA,IBREP,IBHDR,IBCNT,.VALMCNT,.IBPAGE,.IBSTOP)"
^XMB(3.9,55,2,23025,0)="""RTN"",""IBCEPTC2"",119,0)"
^XMB(3.9,55,2,23026,0)=" . S IBX="""""
^XMB(3.9,55,2,23027,0)="""RTN"",""IBCEPTC2"",120,0)"
^XMB(3.9,55,2,23028,0)=" . ;"
^XMB(3.9,55,2,23029,0)="""RTN"",""IBCEPTC2"",121,0)"
^XMB(3.9,55,2,23030,0)=" . I $G(IBZ(2))'="""" D    ; other payer #2 if it exists"
^XMB(3.9,55,2,23031,0)="""RTN"",""IBCEPTC2"",122,0)"
^XMB(3.9,55,2,23032,0)=" .. S IBX=$J("""",98)_$E($P(IBZ(2),U,1),1,15)"
^XMB(3.9,55,2,23033,0)="""RTN"",""IBCEPTC2"",123,0)"
^XMB(3.9,55,2,23034,0)=" .. D SET(.IBX,1,IBDA,IBREP,IBHDR,IBCNT,.VALMCNT,.IBPAGE,.IBSTOP)"
^XMB(3.9,55,2,23035,0)="""RTN"",""IBCEPTC2"",124,0)"
^XMB(3.9,55,2,23036,0)=" .. Q"
^XMB(3.9,55,2,23037,0)="""RTN"",""IBCEPTC2"",125,0)"
^XMB(3.9,55,2,23038,0)=" . Q"
^XMB(3.9,55,2,23039,0)="""RTN"",""IBCEPTC2"",126,0)"
^XMB(3.9,55,2,23040,0)=" ;"
^XMB(3.9,55,2,23041,0)="""RTN"",""IBCEPTC2"",127,0)"
^XMB(3.9,55,2,23042,0)=" I IBSORT=2 D                    ; sort by payer"
^XMB(3.9,55,2,23043,0)="""RTN"",""IBCEPTC2"",128,0)"
^XMB(3.9,55,2,23044,0)=" . N Z,IBZ"
^XMB(3.9,55,2,23045,0)="""RTN"",""IBCEPTC2"",129,0)"
^XMB(3.9,55,2,23046,0)=" . S IBX=IBX_""  """
^XMB(3.9,55,2,23047,0)="""RTN"",""IBCEPTC2"",130,0)"
^XMB(3.9,55,2,23048,0)=" . ; Print other payers, patient name, date last trans, batch #, reject flag"
^XMB(3.9,55,2,23049,0)="""RTN"",""IBCEPTC2"",131,0)"
^XMB(3.9,55,2,23050,0)=" . D F^IBCEF(""N-OTH INSURANCE CO. NAME"",""IBZ"",,IBIFN)"
^XMB(3.9,55,2,23051,0)="""RTN"",""IBCEPTC2"",132,0)"
^XMB(3.9,55,2,23052,0)=" . S IBX=IBX_$$FO^IBCNEUT1($P($G(IBZ(1)),U,1),18)_""  ""   ; oth payer#1"
^XMB(3.9,55,2,23053,0)="""RTN"",""IBCEPTC2"",133,0)"
^XMB(3.9,55,2,23054,0)=" . S Z=$P($G(^DPT(+$P(IB0,U,2),0)),U,1)"
^XMB(3.9,55,2,23055,0)="""RTN"",""IBCEPTC2"",134,0)"
^XMB(3.9,55,2,23056,0)=" . S IBX=IBX_$$FO^IBCNEUT1(Z,18)_""    ""                  ; patient name"
^XMB(3.9,55,2,23057,0)="""RTN"",""IBCEPTC2"",135,0)"
^XMB(3.9,55,2,23058,0)=" . ;"
^XMB(3.9,55,2,23059,0)="""RTN"",""IBCEPTC2"",136,0)"
^XMB(3.9,55,2,23060,0)=" . S Z=+$P($G(^IBA(364,+IBDA,0)),U,2) ; Batch ptr"
^XMB(3.9,55,2,23061,0)="""RTN"",""IBCEPTC2"",137,0)"
^XMB(3.9,55,2,23062,0)=" . S IBX=IBX_$$FO^IBCNEUT1($$FMTE^XLFDT($P($G(^IBA(364.1,+Z,1)),U,3)\1,""1""),17)     ; date last transmitted"
^XMB(3.9,55,2,23063,0)="""RTN"",""IBCEPTC2"",138,0)"
^XMB(3.9,55,2,23064,0)=" . S IBX=IBX_$$FO^IBCNEUT1($P($G(^IBA(364.1,Z,0)),U,1),10)   ; batch#"
^XMB(3.9,55,2,23065,0)="""RTN"",""IBCEPTC2"",139,0)"
^XMB(3.9,55,2,23066,0)=" . S IBX=IBX_$S($P($G(^IBA(364.1,Z,0)),U,5):"" R"",1:"""")  ; batch rejected flag"
^XMB(3.9,55,2,23067,0)="""RTN"",""IBCEPTC2"",140,0)"
^XMB(3.9,55,2,23068,0)=" . ;"
^XMB(3.9,55,2,23069,0)="""RTN"",""IBCEPTC2"",141,0)"
^XMB(3.9,55,2,23070,0)=" . ; set line into list"
^XMB(3.9,55,2,23071,0)="""RTN"",""IBCEPTC2"",142,0)"
^XMB(3.9,55,2,23072,0)=" . S IBCNT=IBCNT+1"
^XMB(3.9,55,2,23073,0)="""RTN"",""IBCEPTC2"",143,0)"
^XMB(3.9,55,2,23074,0)=" . D SET(.IBX,1,IBDA,IBREP,IBHDR,IBCNT,.VALMCNT,.IBPAGE,.IBSTOP)"
^XMB(3.9,55,2,23075,0)="""RTN"",""IBCEPTC2"",144,0)"
^XMB(3.9,55,2,23076,0)=" . S IBX="""""
^XMB(3.9,55,2,23077,0)="""RTN"",""IBCEPTC2"",145,0)"
^XMB(3.9,55,2,23078,0)=" . ;"
^XMB(3.9,55,2,23079,0)="""RTN"",""IBCEPTC2"",146,0)"
^XMB(3.9,55,2,23080,0)=" . I $G(IBZ(2))'="""" D       ; other payer#2 if it exists"
^XMB(3.9,55,2,23081,0)="""RTN"",""IBCEPTC2"",147,0)"
^XMB(3.9,55,2,23082,0)=" .. S IBX=$J("""",44)_$E($P(IBZ(2),U),1,18)"
^XMB(3.9,55,2,23083,0)="""RTN"",""IBCEPTC2"",148,0)"
^XMB(3.9,55,2,23084,0)=" .. D SET(.IBX,1,IBDA,IBREP,IBHDR,IBCNT,.VALMCNT,.IBPAGE,.IBSTOP)"
^XMB(3.9,55,2,23085,0)="""RTN"",""IBCEPTC2"",149,0)"
^XMB(3.9,55,2,23086,0)=" .. Q"
^XMB(3.9,55,2,23087,0)="""RTN"",""IBCEPTC2"",150,0)"
^XMB(3.9,55,2,23088,0)=" . Q"
^XMB(3.9,55,2,23089,0)="""RTN"",""IBCEPTC2"",151,0)"
^XMB(3.9,55,2,23090,0)=" ;"
^XMB(3.9,55,2,23091,0)="""RTN"",""IBCEPTC2"",152,0)"
^XMB(3.9,55,2,23092,0)="WRTQ I IBREP=""S"" S IBPAGE=IBCNT"
^XMB(3.9,55,2,23093,0)="""RTN"",""IBCEPTC2"",153,0)"
^XMB(3.9,55,2,23094,0)=" Q"
^XMB(3.9,55,2,23095,0)="""RTN"",""IBCEPTC2"",154,0)"
^XMB(3.9,55,2,23096,0)=" ;"
^XMB(3.9,55,2,23097,0)="""RTN"",""IBCEPTC2"",155,0)"
^XMB(3.9,55,2,23098,0)="SET(IBX,IBLINE,IBDA,IBREP,IBHDR,IBCNT,VALMCNT,IBPAGE,IBSTOP) ;"
^XMB(3.9,55,2,23099,0)="""RTN"",""IBCEPTC2"",156,0)"
^XMB(3.9,55,2,23100,0)=" N Q,Z,IBZ"
^XMB(3.9,55,2,23101,0)="""RTN"",""IBCEPTC2"",157,0)"
^XMB(3.9,55,2,23102,0)=" S IBZ=IBX,IBX="""""
^XMB(3.9,55,2,23103,0)="""RTN"",""IBCEPTC2"",158,0)"
^XMB(3.9,55,2,23104,0)=" I IBREP=""R"" D  Q"
^XMB(3.9,55,2,23105,0)="""RTN"",""IBCEPTC2"",159,0)"
^XMB(3.9,55,2,23106,0)=" . D:($Y+5)>IOSL!'IBPAGE HDR^IBCEPTC1(IBHDR,IBSORT,.IBPAGE,.IBSTOP) D"
^XMB(3.9,55,2,23107,0)="""RTN"",""IBCEPTC2"",160,0)"
^XMB(3.9,55,2,23108,0)=" . I IBLINE F Z=1:1:IBLINE W !"
^XMB(3.9,55,2,23109,0)="""RTN"",""IBCEPTC2"",161,0)"
^XMB(3.9,55,2,23110,0)=" . W:'IBSTOP IBZ"
^XMB(3.9,55,2,23111,0)="""RTN"",""IBCEPTC2"",162,0)"
^XMB(3.9,55,2,23112,0)=" . Q"
^XMB(3.9,55,2,23113,0)="""RTN"",""IBCEPTC2"",163,0)"
^XMB(3.9,55,2,23114,0)=" ;"
^XMB(3.9,55,2,23115,0)="""RTN"",""IBCEPTC2"",164,0)"
^XMB(3.9,55,2,23116,0)=" ; only display the counter if we have a line with the claim#"
^XMB(3.9,55,2,23117,0)="""RTN"",""IBCEPTC2"",165,0)"
^XMB(3.9,55,2,23118,0)=" S VALMCNT=VALMCNT+1"
^XMB(3.9,55,2,23119,0)="""RTN"",""IBCEPTC2"",166,0)"
^XMB(3.9,55,2,23120,0)=" I IBDA,$TR($E(IBZ,1,8),"" "")'="""" S IBZ=$$FO^IBCNEUT1($J(IBCNT,3),6)_IBZ"
^XMB(3.9,55,2,23121,0)="""RTN"",""IBCEPTC2"",167,0)"
^XMB(3.9,55,2,23122,0)=" I IBDA,$TR($E(IBZ,1,8),"" "")="""" S IBZ=""      ""_IBZ"
^XMB(3.9,55,2,23123,0)="""RTN"",""IBCEPTC2"",168,0)"
^XMB(3.9,55,2,23124,0)=" ;"
^XMB(3.9,55,2,23125,0)="""RTN"",""IBCEPTC2"",169,0)"
^XMB(3.9,55,2,23126,0)=" S ^TMP(""IB_PREV_CLAIM_LIST"",$J,VALMCNT,0)=IBZ"
^XMB(3.9,55,2,23127,0)="""RTN"",""IBCEPTC2"",170,0)"
^XMB(3.9,55,2,23128,0)=" S ^TMP(""IB_PREV_CLAIM_LIST"",$J,""IDX"",VALMCNT,IBCNT)="""""
^XMB(3.9,55,2,23129,0)="""RTN"",""IBCEPTC2"",171,0)"
^XMB(3.9,55,2,23130,0)=" I IBDA,$TR($E(IBZ,1,8),"" "")'="""" S ^TMP(""IB_PREV_CLAIM_LIST_DX"",$J,IBCNT)=VALMCNT_U_IBDA"
^XMB(3.9,55,2,23131,0)="""RTN"",""IBCEPTC2"",172,0)"
^XMB(3.9,55,2,23132,0)=" Q"
^XMB(3.9,55,2,23133,0)="""RTN"",""IBCEPTC2"",173,0)"
^XMB(3.9,55,2,23134,0)=" ;"
^XMB(3.9,55,2,23135,0)="""RTN"",""IBCEPTC2"",174,0)"
^XMB(3.9,55,2,23136,0)="CURRINS(IBIFN,TRUNC) ; Returns Current insurance address for given claim"
^XMB(3.9,55,2,23137,0)="""RTN"",""IBCEPTC2"",175,0)"
^XMB(3.9,55,2,23138,0)=" ; TRUNC = truncate flag; 1 to truncate the address and city"
^XMB(3.9,55,2,23139,0)="""RTN"",""IBCEPTC2"",176,0)"
^XMB(3.9,55,2,23140,0)=" N IBX,IBZ,L1,CITY,ST"
^XMB(3.9,55,2,23141,0)="""RTN"",""IBCEPTC2"",177,0)"
^XMB(3.9,55,2,23142,0)=" D F^IBCEF(""N-CURR INS CO FULL ADDRESS"",""IBZ"",,IBIFN)"
^XMB(3.9,55,2,23143,0)="""RTN"",""IBCEPTC2"",178,0)"
^XMB(3.9,55,2,23144,0)=" S L1=$G(IBZ(1)) I +$G(TRUNC) S L1=$E(L1,1,15)"
^XMB(3.9,55,2,23145,0)="""RTN"",""IBCEPTC2"",179,0)"
^XMB(3.9,55,2,23146,0)=" S CITY=$G(IBZ(4)) I +$G(TRUNC) S CITY=$E(CITY,1,10)"
^XMB(3.9,55,2,23147,0)="""RTN"",""IBCEPTC2"",180,0)"
^XMB(3.9,55,2,23148,0)=" S ST=$G(IBZ(5))"
^XMB(3.9,55,2,23149,0)="""RTN"",""IBCEPTC2"",181,0)"
^XMB(3.9,55,2,23150,0)=" I ST S ST=$P($G(^DIC(5,ST,0)),U,2)"
^XMB(3.9,55,2,23151,0)="""RTN"",""IBCEPTC2"",182,0)"
^XMB(3.9,55,2,23152,0)=" S IBX=L1_"" ""_CITY"
^XMB(3.9,55,2,23153,0)="""RTN"",""IBCEPTC2"",183,0)"
^XMB(3.9,55,2,23154,0)=" I CITY'="""",ST'="""" S IBX=IBX_"",""_ST"
^XMB(3.9,55,2,23155,0)="""RTN"",""IBCEPTC2"",184,0)"
^XMB(3.9,55,2,23156,0)=" E  S IBX=IBX_"" ""_ST"
^XMB(3.9,55,2,23157,0)="""RTN"",""IBCEPTC2"",185,0)"
^XMB(3.9,55,2,23158,0)=" Q IBX"
^XMB(3.9,55,2,23159,0)="""RTN"",""IBCEPTC2"",186,0)"
^XMB(3.9,55,2,23160,0)=" ;"
^XMB(3.9,55,2,23161,0)="""RTN"",""IBCEPTC3"")"
^XMB(3.9,55,2,23162,0)="0^41^B61167367"
^XMB(3.9,55,2,23163,0)="""RTN"",""IBCEPTC3"",1,0)"
^XMB(3.9,55,2,23164,0)="IBCEPTC3 ;ALB/ESG - EDI PREVIOUSLY TRANSMITTED CLAIMS ACTIONS ;12/19/05"
^XMB(3.9,55,2,23165,0)="""RTN"",""IBCEPTC3"",2,0)"
^XMB(3.9,55,2,23166,0)=" ;;2.0;INTEGRATED BILLING;**320**;21-MAR-94"
^XMB(3.9,55,2,23167,0)="""RTN"",""IBCEPTC3"",3,0)"
^XMB(3.9,55,2,23168,0)=" ;"
^XMB(3.9,55,2,23169,0)="""RTN"",""IBCEPTC3"",4,0)"
^XMB(3.9,55,2,23170,0)=" Q"
^XMB(3.9,55,2,23171,0)="""RTN"",""IBCEPTC3"",5,0)"
^XMB(3.9,55,2,23172,0)=" ;"
^XMB(3.9,55,2,23173,0)="""RTN"",""IBCEPTC3"",6,0)"
^XMB(3.9,55,2,23174,0)="SELECT ; Select claims to resubmit"
^XMB(3.9,55,2,23175,0)="""RTN"",""IBCEPTC3"",7,0)"
^XMB(3.9,55,2,23176,0)=" N IBIFN,IBZ,IBI,IBQ,DIR,VALMY,X,Y"
^XMB(3.9,55,2,23177,0)="""RTN"",""IBCEPTC3"",8,0)"
^XMB(3.9,55,2,23178,0)=" D FULL^VALM1"
^XMB(3.9,55,2,23179,0)="""RTN"",""IBCEPTC3"",9,0)"
^XMB(3.9,55,2,23180,0)=" D EN^VALM2($G(XQORNOD(0)))"
^XMB(3.9,55,2,23181,0)="""RTN"",""IBCEPTC3"",10,0)"
^XMB(3.9,55,2,23182,0)=" S IBZ=0 F  S IBZ=$O(VALMY(IBZ)) Q:'IBZ  D"
^XMB(3.9,55,2,23183,0)="""RTN"",""IBCEPTC3"",11,0)"
^XMB(3.9,55,2,23184,0)=" . S IBQ=$G(^TMP(""IB_PREV_CLAIM_LIST_DX"",$J,IBZ)),IBI=+$P(IBQ,U,2),IBQ=+IBQ"
^XMB(3.9,55,2,23185,0)="""RTN"",""IBCEPTC3"",12,0)"
^XMB(3.9,55,2,23186,0)=" . S IBIFN=+$G(^IBA(364,IBI,0))"
^XMB(3.9,55,2,23187,0)="""RTN"",""IBCEPTC3"",13,0)"
^XMB(3.9,55,2,23188,0)=" . Q:'IBIFN"
^XMB(3.9,55,2,23189,0)="""RTN"",""IBCEPTC3"",14,0)"
^XMB(3.9,55,2,23190,0)=" . D MARK(IBIFN,IBZ,IBQ,IBI,1,.VALMHDR)"
^XMB(3.9,55,2,23191,0)="""RTN"",""IBCEPTC3"",15,0)"
^XMB(3.9,55,2,23192,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,23193,0)="""RTN"",""IBCEPTC3"",16,0)"
^XMB(3.9,55,2,23194,0)=" Q"
^XMB(3.9,55,2,23195,0)="""RTN"",""IBCEPTC3"",17,0)"
^XMB(3.9,55,2,23196,0)=" ;"
^XMB(3.9,55,2,23197,0)="""RTN"",""IBCEPTC3"",18,0)"
^XMB(3.9,55,2,23198,0)="SELBATCH ; Select a batch to resubmit"
^XMB(3.9,55,2,23199,0)="""RTN"",""IBCEPTC3"",19,0)"
^XMB(3.9,55,2,23200,0)=" ; Assumes IBSORT is defined"
^XMB(3.9,55,2,23201,0)="""RTN"",""IBCEPTC3"",20,0)"
^XMB(3.9,55,2,23202,0)=" N DIC,DIR,X,Y,Z,IBQ,IBZ,IBI,IBDX,IBASK,IBOK,IBY,DTOUT,DUOUT"
^XMB(3.9,55,2,23203,0)="""RTN"",""IBCEPTC3"",21,0)"
^XMB(3.9,55,2,23204,0)=" D FULL^VALM1"
^XMB(3.9,55,2,23205,0)="""RTN"",""IBCEPTC3"",22,0)"
^XMB(3.9,55,2,23206,0)=" I IBSORT'=1 D  G SELBQ"
^XMB(3.9,55,2,23207,0)="""RTN"",""IBCEPTC3"",23,0)"
^XMB(3.9,55,2,23208,0)=" . S DIR(0)=""EA"",DIR(""A"",1)=""This action is not available unless you chose to sort by batch"",DIR(""A"")=""Press return to continue: """
^XMB(3.9,55,2,23209,0)="""RTN"",""IBCEPTC3"",24,0)"
^XMB(3.9,55,2,23210,0)=" . W ! D ^DIR K DIR"
^XMB(3.9,55,2,23211,0)="""RTN"",""IBCEPTC3"",25,0)"
^XMB(3.9,55,2,23212,0)=" S DIC=""^IBA(364.1,"",DIC(0)=""AEMQ"",DIC(""S"")=""I $D(^TMP(""""IB_PREV_CLAIM_BATCH"""",$J,+Y))"""
^XMB(3.9,55,2,23213,0)="""RTN"",""IBCEPTC3"",26,0)"
^XMB(3.9,55,2,23214,0)=" D ^DIC K DIC"
^XMB(3.9,55,2,23215,0)="""RTN"",""IBCEPTC3"",27,0)"
^XMB(3.9,55,2,23216,0)=" I Y'>0 G SELBQ"
^XMB(3.9,55,2,23217,0)="""RTN"",""IBCEPTC3"",28,0)"
^XMB(3.9,55,2,23218,0)=" S IBY=+Y,VALMBG=+$G(^TMP(""IB_PREV_CLAIM_BATCH"",$J,IBY))"
^XMB(3.9,55,2,23219,0)="""RTN"",""IBCEPTC3"",29,0)"
^XMB(3.9,55,2,23220,0)=" ;"
^XMB(3.9,55,2,23221,0)="""RTN"",""IBCEPTC3"",30,0)"
^XMB(3.9,55,2,23222,0)=" S (IBOK,IBASK)=1"
^XMB(3.9,55,2,23223,0)="""RTN"",""IBCEPTC3"",31,0)"
^XMB(3.9,55,2,23224,0)=" I $G(^TMP(""IB_PREV_CLAIM_BATCH"",$J,IBY,""SEL"")) D  G:'IBOK SELBQ"
^XMB(3.9,55,2,23225,0)="""RTN"",""IBCEPTC3"",32,0)"
^XMB(3.9,55,2,23226,0)=" . S DIR(0)=""YA"",DIR(""A"",1)=""This batch was previously selected."",DIR(""A"")=""Do you want to de-select all claims in this batch?: "",DIR(""B"")=""No"""
^XMB(3.9,55,2,23227,0)="""RTN"",""IBCEPTC3"",33,0)"
^XMB(3.9,55,2,23228,0)=" . W ! D ^DIR K DIR"
^XMB(3.9,55,2,23229,0)="""RTN"",""IBCEPTC3"",34,0)"
^XMB(3.9,55,2,23230,0)=" . I $D(DTOUT)!$D(DUOUT) S IBOK=0 Q"
^XMB(3.9,55,2,23231,0)="""RTN"",""IBCEPTC3"",35,0)"
^XMB(3.9,55,2,23232,0)=" . I Y S IBASK=0 K ^TMP(""IB_PREV_CLAIM_BATCH"",$J,IBY,""SEL"")"
^XMB(3.9,55,2,23233,0)="""RTN"",""IBCEPTC3"",36,0)"
^XMB(3.9,55,2,23234,0)=" ;"
^XMB(3.9,55,2,23235,0)="""RTN"",""IBCEPTC3"",37,0)"
^XMB(3.9,55,2,23236,0)=" S IBQ=0      ; last screen row# for claim"
^XMB(3.9,55,2,23237,0)="""RTN"",""IBCEPTC3"",38,0)"
^XMB(3.9,55,2,23238,0)=" F  S IBQ=$O(^TMP(""IB_PREV_CLAIM_BATCH"",$J,IBY,IBQ)) Q:'IBQ  D"
^XMB(3.9,55,2,23239,0)="""RTN"",""IBCEPTC3"",39,0)"
^XMB(3.9,55,2,23240,0)=" . S IBZ=$G(^(IBQ))      ; IBIFN^selection#"
^XMB(3.9,55,2,23241,0)="""RTN"",""IBCEPTC3"",40,0)"
^XMB(3.9,55,2,23242,0)=" . S Z=$P(IBZ,U,2)       ; selection#"
^XMB(3.9,55,2,23243,0)="""RTN"",""IBCEPTC3"",41,0)"
^XMB(3.9,55,2,23244,0)=" . S IBDX=$G(^TMP(""IB_PREV_CLAIM_LIST_DX"",$J,+Z))   ; 1st screen row# for claim^364 ien"
^XMB(3.9,55,2,23245,0)="""RTN"",""IBCEPTC3"",42,0)"
^XMB(3.9,55,2,23246,0)=" . S IBI=$P(IBDX,U,2)    ; 364 ien"
^XMB(3.9,55,2,23247,0)="""RTN"",""IBCEPTC3"",43,0)"
^XMB(3.9,55,2,23248,0)=" . D MARK(+IBZ,Z,+IBDX,IBI,IBASK,.VALMHDR)"
^XMB(3.9,55,2,23249,0)="""RTN"",""IBCEPTC3"",44,0)"
^XMB(3.9,55,2,23250,0)=" ;"
^XMB(3.9,55,2,23251,0)="""RTN"",""IBCEPTC3"",45,0)"
^XMB(3.9,55,2,23252,0)=" I IBASK S ^TMP(""IB_PREV_CLAIM_BATCH"",$J,IBY,""SEL"")=1"
^XMB(3.9,55,2,23253,0)="""RTN"",""IBCEPTC3"",46,0)"
^XMB(3.9,55,2,23254,0)=" ;"
^XMB(3.9,55,2,23255,0)="""RTN"",""IBCEPTC3"",47,0)"
^XMB(3.9,55,2,23256,0)="SELBQ S VALMBCK=""R"""
^XMB(3.9,55,2,23257,0)="""RTN"",""IBCEPTC3"",48,0)"
^XMB(3.9,55,2,23258,0)=" Q"
^XMB(3.9,55,2,23259,0)="""RTN"",""IBCEPTC3"",49,0)"
^XMB(3.9,55,2,23260,0)=" ;"
^XMB(3.9,55,2,23261,0)="""RTN"",""IBCEPTC3"",50,0)"
^XMB(3.9,55,2,23262,0)="MARK(IBIFN,IBZ,IBQ,IBI,IBASK,VALMHDR) ; Mark claim as selected for resubmit"
^XMB(3.9,55,2,23263,0)="""RTN"",""IBCEPTC3"",51,0)"
^XMB(3.9,55,2,23264,0)=" ; Returns VALMHDR killed if any selections/de-selections made"
^XMB(3.9,55,2,23265,0)="""RTN"",""IBCEPTC3"",52,0)"
^XMB(3.9,55,2,23266,0)=" N DIR,X,Y"
^XMB(3.9,55,2,23267,0)="""RTN"",""IBCEPTC3"",53,0)"
^XMB(3.9,55,2,23268,0)=" I $D(^TMP(""IB_PREV_CLAIM_SELECT"",$J,IBIFN)) D  Q"
^XMB(3.9,55,2,23269,0)="""RTN"",""IBCEPTC3"",54,0)"
^XMB(3.9,55,2,23270,0)=" . S Y=1"
^XMB(3.9,55,2,23271,0)="""RTN"",""IBCEPTC3"",55,0)"
^XMB(3.9,55,2,23272,0)=" . I IBASK D"
^XMB(3.9,55,2,23273,0)="""RTN"",""IBCEPTC3"",56,0)"
^XMB(3.9,55,2,23274,0)=" .. S DIR(0)=""YA"",DIR(""B"")=""No"",DIR(""A"",1)=""Claim ""_$P($G(^DGCR(399,IBIFN,0)),U)_"" for entry # ""_IBZ_"" has already been selected"",DIR(""A"")=""Do you want to de-select it?: "" W ! D ^DIR K DIR"
^XMB(3.9,55,2,23275,0)="""RTN"",""IBCEPTC3"",57,0)"
^XMB(3.9,55,2,23276,0)=" . I Y=1 K ^TMP(""IB_PREV_CLAIM_SELECT"",$J,IBIFN) S $E(^TMP(""IB_PREV_CLAIM_LIST"",$J,IBQ,0),6)="" "",^TMP(""IB_PREV_CLAIM_SELECT"",$J)=^TMP(""IB_PREV_CLAIM_SELECT"",$J)-1 K VALMHDR"
^XMB(3.9,55,2,23277,0)="""RTN"",""IBCEPTC3"",58,0)"
^XMB(3.9,55,2,23278,0)=" ;"
^XMB(3.9,55,2,23279,0)="""RTN"",""IBCEPTC3"",59,0)"
^XMB(3.9,55,2,23280,0)=" S ^TMP(""IB_PREV_CLAIM_SELECT"",$J,IBIFN)=IBQ,^TMP(""IB_PREV_CLAIM_SELECT"",$J,IBIFN,0)=IBI,^TMP(""IB_PREV_CLAIM_SELECT"",$J)=$G(^TMP(""IB_PREV_CLAIM_SELECT"",$J))+1"
^XMB(3.9,55,2,23281,0)="""RTN"",""IBCEPTC3"",60,0)"
^XMB(3.9,55,2,23282,0)=" S $E(^TMP(""IB_PREV_CLAIM_LIST"",$J,IBQ,0),6)=""*"" K VALMHDR"
^XMB(3.9,55,2,23283,0)="""RTN"",""IBCEPTC3"",61,0)"
^XMB(3.9,55,2,23284,0)=" Q"
^XMB(3.9,55,2,23285,0)="""RTN"",""IBCEPTC3"",62,0)"
^XMB(3.9,55,2,23286,0)=" ;"
^XMB(3.9,55,2,23287,0)="""RTN"",""IBCEPTC3"",63,0)"
^XMB(3.9,55,2,23288,0)="VIEW ; View claims selected"
^XMB(3.9,55,2,23289,0)="""RTN"",""IBCEPTC3"",64,0)"
^XMB(3.9,55,2,23290,0)=" N IBCT,IBQUIT,DIR,X,Y,Z,Z0"
^XMB(3.9,55,2,23291,0)="""RTN"",""IBCEPTC3"",65,0)"
^XMB(3.9,55,2,23292,0)=" D FULL^VALM1"
^XMB(3.9,55,2,23293,0)="""RTN"",""IBCEPTC3"",66,0)"
^XMB(3.9,55,2,23294,0)=" I '$O(^TMP(""IB_PREV_CLAIM_SELECT"",$J,0)) D  G VIEWQ"
^XMB(3.9,55,2,23295,0)="""RTN"",""IBCEPTC3"",67,0)"
^XMB(3.9,55,2,23296,0)=" . S DIR(0)=""EA"",DIR(""A"")=""No claims have been selected - Press return to continue "" D ^DIR K DIR"
^XMB(3.9,55,2,23297,0)="""RTN"",""IBCEPTC3"",68,0)"
^XMB(3.9,55,2,23298,0)=" W @IOF"
^XMB(3.9,55,2,23299,0)="""RTN"",""IBCEPTC3"",69,0)"
^XMB(3.9,55,2,23300,0)=" S (IBQUIT,IBCT)=0"
^XMB(3.9,55,2,23301,0)="""RTN"",""IBCEPTC3"",70,0)"
^XMB(3.9,55,2,23302,0)=" W !,+^TMP(""IB_PREV_CLAIM_SELECT"",$J),"" claims selected:"""
^XMB(3.9,55,2,23303,0)="""RTN"",""IBCEPTC3"",71,0)"
^XMB(3.9,55,2,23304,0)=" S Z="""" F  S Z=$O(^TMP(""IB_PREV_CLAIM_SELECT"",$J,Z)) Q:'Z  S Z0=+$G(^(Z)) D"
^XMB(3.9,55,2,23305,0)="""RTN"",""IBCEPTC3"",72,0)"
^XMB(3.9,55,2,23306,0)=" . Q:'$D(^TMP(""IB_PREV_CLAIM_LIST"",$J,Z0,0))"
^XMB(3.9,55,2,23307,0)="""RTN"",""IBCEPTC3"",73,0)"
^XMB(3.9,55,2,23308,0)=" . S IBCT=IBCT+1"
^XMB(3.9,55,2,23309,0)="""RTN"",""IBCEPTC3"",74,0)"
^XMB(3.9,55,2,23310,0)=" . I '(IBCT#15) S IBQUIT=0 D  Q:IBQUIT"
^XMB(3.9,55,2,23311,0)="""RTN"",""IBCEPTC3"",75,0)"
^XMB(3.9,55,2,23312,0)=" .. S DIR(0)=""E"" D ^DIR K DIR"
^XMB(3.9,55,2,23313,0)="""RTN"",""IBCEPTC3"",76,0)"
^XMB(3.9,55,2,23314,0)=" .. I 'Y S IBQUIT=1"
^XMB(3.9,55,2,23315,0)="""RTN"",""IBCEPTC3"",77,0)"
^XMB(3.9,55,2,23316,0)=" . W !,""  "",$E(^TMP(""IB_PREV_CLAIM_LIST"",$J,Z0,0),7,47)"
^XMB(3.9,55,2,23317,0)="""RTN"",""IBCEPTC3"",78,0)"
^XMB(3.9,55,2,23318,0)=" ;"
^XMB(3.9,55,2,23319,0)="""RTN"",""IBCEPTC3"",79,0)"
^XMB(3.9,55,2,23320,0)=" G:IBQUIT VIEWQ"
^XMB(3.9,55,2,23321,0)="""RTN"",""IBCEPTC3"",80,0)"
^XMB(3.9,55,2,23322,0)=" S DIR(0)=""E"" D ^DIR K DIR"
^XMB(3.9,55,2,23323,0)="""RTN"",""IBCEPTC3"",81,0)"
^XMB(3.9,55,2,23324,0)=" ;"
^XMB(3.9,55,2,23325,0)="""RTN"",""IBCEPTC3"",82,0)"
^XMB(3.9,55,2,23326,0)="VIEWQ S VALMBCK=""R"""
^XMB(3.9,55,2,23327,0)="""RTN"",""IBCEPTC3"",83,0)"
^XMB(3.9,55,2,23328,0)=" Q"
^XMB(3.9,55,2,23329,0)="""RTN"",""IBCEPTC3"",84,0)"
^XMB(3.9,55,2,23330,0)=" ;"
^XMB(3.9,55,2,23331,0)="""RTN"",""IBCEPTC3"",85,0)"
^XMB(3.9,55,2,23332,0)="RESUB ; Resubmit selected claims"
^XMB(3.9,55,2,23333,0)="""RTN"",""IBCEPTC3"",86,0)"
^XMB(3.9,55,2,23334,0)=" N DIR,X,Y,IBIFN,IB364,Z1,IBTYPPTC,DIRUT,DIROUT,DTOUT,DUOUT,IBFSKIP,IBABORT"
^XMB(3.9,55,2,23335,0)="""RTN"",""IBCEPTC3"",87,0)"
^XMB(3.9,55,2,23336,0)=" D FULL^VALM1"
^XMB(3.9,55,2,23337,0)="""RTN"",""IBCEPTC3"",88,0)"
^XMB(3.9,55,2,23338,0)=" I '$O(^TMP(""IB_PREV_CLAIM_SELECT"",$J,0)) D  G RESUBQ"
^XMB(3.9,55,2,23339,0)="""RTN"",""IBCEPTC3"",89,0)"
^XMB(3.9,55,2,23340,0)=" . N DIR,X,Y"
^XMB(3.9,55,2,23341,0)="""RTN"",""IBCEPTC3"",90,0)"
^XMB(3.9,55,2,23342,0)=" . S DIR(0)=""EA"",DIR(""A"")=""No claims have been selected - Press return to continue "" D ^DIR K DIR"
^XMB(3.9,55,2,23343,0)="""RTN"",""IBCEPTC3"",91,0)"
^XMB(3.9,55,2,23344,0)=" ;"
^XMB(3.9,55,2,23345,0)="""RTN"",""IBCEPTC3"",92,0)"
^XMB(3.9,55,2,23346,0)=" ; Ask user if resubmit as production or as test"
^XMB(3.9,55,2,23347,0)="""RTN"",""IBCEPTC3"",93,0)"
^XMB(3.9,55,2,23348,0)=" S DIR(0)=""SA^P:Production;T:Test Only"""
^XMB(3.9,55,2,23349,0)="""RTN"",""IBCEPTC3"",94,0)"
^XMB(3.9,55,2,23350,0)=" S DIR(""A"")=""Resubmit Claims: """
^XMB(3.9,55,2,23351,0)="""RTN"",""IBCEPTC3"",95,0)"
^XMB(3.9,55,2,23352,0)=" S DIR(""B"")=""Production"""
^XMB(3.9,55,2,23353,0)="""RTN"",""IBCEPTC3"",96,0)"
^XMB(3.9,55,2,23354,0)=" S DIR(""?"",1)=""  Select Production to resubmit the claims to the payer for payment."""
^XMB(3.9,55,2,23355,0)="""RTN"",""IBCEPTC3"",97,0)"
^XMB(3.9,55,2,23356,0)=" S DIR(""?"")=""  Select Test to resubmit the claims as Test claims only."""
^XMB(3.9,55,2,23357,0)="""RTN"",""IBCEPTC3"",98,0)"
^XMB(3.9,55,2,23358,0)=" W ! D ^DIR K DIR"
^XMB(3.9,55,2,23359,0)="""RTN"",""IBCEPTC3"",99,0)"
^XMB(3.9,55,2,23360,0)=" I $D(DIRUT) G RESUBQ"
^XMB(3.9,55,2,23361,0)="""RTN"",""IBCEPTC3"",100,0)"
^XMB(3.9,55,2,23362,0)=" S IBTYPPTC=""TEST"""
^XMB(3.9,55,2,23363,0)="""RTN"",""IBCEPTC3"",101,0)"
^XMB(3.9,55,2,23364,0)=" I Y=""P"" S IBTYPPTC=""PRODUCTION"""
^XMB(3.9,55,2,23365,0)="""RTN"",""IBCEPTC3"",102,0)"
^XMB(3.9,55,2,23366,0)=" ;"
^XMB(3.9,55,2,23367,0)="""RTN"",""IBCEPTC3"",103,0)"
^XMB(3.9,55,2,23368,0)=" S DIR(0)=""YA"",DIR(""B"")=""No"""
^XMB(3.9,55,2,23369,0)="""RTN"",""IBCEPTC3"",104,0)"
^XMB(3.9,55,2,23370,0)=" S DIR(""A"",1)=""You are about to resubmit ""_+^TMP(""IB_PREV_CLAIM_SELECT"",$J)_"" claims as ""_IBTYPPTC_"" claims."""
^XMB(3.9,55,2,23371,0)="""RTN"",""IBCEPTC3"",105,0)"
^XMB(3.9,55,2,23372,0)=" S DIR(""A"")=""Are you sure you want to continue?: """
^XMB(3.9,55,2,23373,0)="""RTN"",""IBCEPTC3"",106,0)"
^XMB(3.9,55,2,23374,0)=" W ! D ^DIR K DIR"
^XMB(3.9,55,2,23375,0)="""RTN"",""IBCEPTC3"",107,0)"
^XMB(3.9,55,2,23376,0)=" I Y'=1 G RESUBQ"
^XMB(3.9,55,2,23377,0)="""RTN"",""IBCEPTC3"",108,0)"
^XMB(3.9,55,2,23378,0)=" ;"
^XMB(3.9,55,2,23379,0)="""RTN"",""IBCEPTC3"",109,0)"
^XMB(3.9,55,2,23380,0)=" ; OK to proceed and resubmit"
^XMB(3.9,55,2,23381,0)="""RTN"",""IBCEPTC3"",110,0)"
^XMB(3.9,55,2,23382,0)=" W !!,""Resubmission in process ... """
^XMB(3.9,55,2,23383,0)="""RTN"",""IBCEPTC3"",111,0)"
^XMB(3.9,55,2,23384,0)=" ;"
^XMB(3.9,55,2,23385,0)="""RTN"",""IBCEPTC3"",112,0)"
^XMB(3.9,55,2,23386,0)=" ; loop thru selected claims and set into scratch globals"
^XMB(3.9,55,2,23387,0)="""RTN"",""IBCEPTC3"",113,0)"
^XMB(3.9,55,2,23388,0)=" S IBFSKIP=0"
^XMB(3.9,55,2,23389,0)="""RTN"",""IBCEPTC3"",114,0)"
^XMB(3.9,55,2,23390,0)=" KILL ^TMP(""IBRCBOLD"",$J)"
^XMB(3.9,55,2,23391,0)="""RTN"",""IBCEPTC3"",115,0)"
^XMB(3.9,55,2,23392,0)=" S IBIFN=0 F  S IBIFN=$O(^TMP(""IB_PREV_CLAIM_SELECT"",$J,IBIFN)) Q:'IBIFN  S Z1=+$G(^(IBIFN)),IB364=+$G(^(IBIFN,0)) I IB364 D"
^XMB(3.9,55,2,23393,0)="""RTN"",""IBCEPTC3"",116,0)"
^XMB(3.9,55,2,23394,0)=" . ;"
^XMB(3.9,55,2,23395,0)="""RTN"",""IBCEPTC3"",117,0)"
^XMB(3.9,55,2,23396,0)=" . I IBTYPPTC=""TEST"" D"
^XMB(3.9,55,2,23397,0)="""RTN"",""IBCEPTC3"",118,0)"
^XMB(3.9,55,2,23398,0)=" .. S ^TMP(""IBEDI_TEST_BATCH"",$J,IB364)="""""
^XMB(3.9,55,2,23399,0)="""RTN"",""IBCEPTC3"",119,0)"
^XMB(3.9,55,2,23400,0)=" .. S ^TMP(""IBRESUBMIT"",$J,IB364)="""""
^XMB(3.9,55,2,23401,0)="""RTN"",""IBCEPTC3"",120,0)"
^XMB(3.9,55,2,23402,0)=" .. I Z1 D MARK(IBIFN,"""",Z1,IB364,0,.VALMHDR)"
^XMB(3.9,55,2,23403,0)="""RTN"",""IBCEPTC3"",121,0)"
^XMB(3.9,55,2,23404,0)=" .. Q"
^XMB(3.9,55,2,23405,0)="""RTN"",""IBCEPTC3"",122,0)"
^XMB(3.9,55,2,23406,0)=" . ;"
^XMB(3.9,55,2,23407,0)="""RTN"",""IBCEPTC3"",123,0)"
^XMB(3.9,55,2,23408,0)=" . I IBTYPPTC=""PRODUCTION"" D"
^XMB(3.9,55,2,23409,0)="""RTN"",""IBCEPTC3"",124,0)"
^XMB(3.9,55,2,23410,0)=" .. I '$$TXOK(IBIFN) S IBFSKIP=IBFSKIP+1 Q    ; transmission not allowed"
^XMB(3.9,55,2,23411,0)="""RTN"",""IBCEPTC3"",125,0)"
^XMB(3.9,55,2,23412,0)=" .. N Y S Y=$$ADDTBILL^IBCB1(IBIFN)  ; new entry in file 364 - ""X"" status"
^XMB(3.9,55,2,23413,0)="""RTN"",""IBCEPTC3"",126,0)"
^XMB(3.9,55,2,23414,0)=" .. I '$P(Y,U,3) Q                   ; quit if new entry didn't get added"
^XMB(3.9,55,2,23415,0)="""RTN"",""IBCEPTC3"",127,0)"
^XMB(3.9,55,2,23416,0)=" .. S ^TMP(""IBSELX"",$J,+Y)="""""
^XMB(3.9,55,2,23417,0)="""RTN"",""IBCEPTC3"",128,0)"
^XMB(3.9,55,2,23418,0)=" .. S ^TMP(""IBRCBOLD"",$J,IB364)=""""   ; save list of old transmit bills"
^XMB(3.9,55,2,23419,0)="""RTN"",""IBCEPTC3"",129,0)"
^XMB(3.9,55,2,23420,0)=" .. I Z1 D MARK(IBIFN,"""",Z1,IB364,0,.VALMHDR)"
^XMB(3.9,55,2,23421,0)="""RTN"",""IBCEPTC3"",130,0)"
^XMB(3.9,55,2,23422,0)=" .. Q"
^XMB(3.9,55,2,23423,0)="""RTN"",""IBCEPTC3"",131,0)"
^XMB(3.9,55,2,23424,0)=" . ;"
^XMB(3.9,55,2,23425,0)="""RTN"",""IBCEPTC3"",132,0)"
^XMB(3.9,55,2,23426,0)=" . Q"
^XMB(3.9,55,2,23427,0)="""RTN"",""IBCEPTC3"",133,0)"
^XMB(3.9,55,2,23428,0)=" ;"
^XMB(3.9,55,2,23429,0)="""RTN"",""IBCEPTC3"",134,0)"
^XMB(3.9,55,2,23430,0)=" ; set top level of scratch globals based on test or production"
^XMB(3.9,55,2,23431,0)="""RTN"",""IBCEPTC3"",135,0)"
^XMB(3.9,55,2,23432,0)=" I IBTYPPTC=""TEST"" S ^TMP(""IBRESUBMIT"",$J)=""^^0^1"",^TMP(""IBEDI_TEST_BATCH"",$J)=1"
^XMB(3.9,55,2,23433,0)="""RTN"",""IBCEPTC3"",136,0)"
^XMB(3.9,55,2,23434,0)=" E  KILL ^TMP(""IBRESUBMIT"",$J),^TMP(""IBEDI_TEST_BATCH"",$J),^TMP(""IBONE"",$J) S ^TMP(""IBSELX"",$J)=0"
^XMB(3.9,55,2,23435,0)="""RTN"",""IBCEPTC3"",137,0)"
^XMB(3.9,55,2,23436,0)=" ;"
^XMB(3.9,55,2,23437,0)="""RTN"",""IBCEPTC3"",138,0)"
^XMB(3.9,55,2,23438,0)=" ; resubmit call"
^XMB(3.9,55,2,23439,0)="""RTN"",""IBCEPTC3"",139,0)"
^XMB(3.9,55,2,23440,0)=" D EN1^IBCE837B("""","""","""",.IBABORT)"
^XMB(3.9,55,2,23441,0)="""RTN"",""IBCEPTC3"",140,0)"
^XMB(3.9,55,2,23442,0)=" ;"
^XMB(3.9,55,2,23443,0)="""RTN"",""IBCEPTC3"",141,0)"
^XMB(3.9,55,2,23444,0)=" ; if user aborted at the last minute, then get rid of the new entries"
^XMB(3.9,55,2,23445,0)="""RTN"",""IBCEPTC3"",142,0)"
^XMB(3.9,55,2,23446,0)=" ; in file 364 that were added for production claim sending"
^XMB(3.9,55,2,23447,0)="""RTN"",""IBCEPTC3"",143,0)"
^XMB(3.9,55,2,23448,0)=" I IBABORT D"
^XMB(3.9,55,2,23449,0)="""RTN"",""IBCEPTC3"",144,0)"
^XMB(3.9,55,2,23450,0)=" . N IB,DIK,DA"
^XMB(3.9,55,2,23451,0)="""RTN"",""IBCEPTC3"",145,0)"
^XMB(3.9,55,2,23452,0)=" . S IB=0 F  S IB=$O(^TMP(""IBSELX"",$J,IB)) Q:'IB  S DIK=""^IBA(364,"",DA=IB D ^DIK"
^XMB(3.9,55,2,23453,0)="""RTN"",""IBCEPTC3"",146,0)"
^XMB(3.9,55,2,23454,0)=" . Q"
^XMB(3.9,55,2,23455,0)="""RTN"",""IBCEPTC3"",147,0)"
^XMB(3.9,55,2,23456,0)=" ;"
^XMB(3.9,55,2,23457,0)="""RTN"",""IBCEPTC3"",148,0)"
^XMB(3.9,55,2,23458,0)=" ; update EDI files for the old transmit bills"
^XMB(3.9,55,2,23459,0)="""RTN"",""IBCEPTC3"",149,0)"
^XMB(3.9,55,2,23460,0)=" I 'IBABORT D"
^XMB(3.9,55,2,23461,0)="""RTN"",""IBCEPTC3"",150,0)"
^XMB(3.9,55,2,23462,0)=" . N IB"
^XMB(3.9,55,2,23463,0)="""RTN"",""IBCEPTC3"",151,0)"
^XMB(3.9,55,2,23464,0)=" . S IB=0 F  S IB=$O(^TMP(""IBRCBOLD"",$J,IB)) Q:'IB  D UPDEDI^IBCEM(IB,""R"")"
^XMB(3.9,55,2,23465,0)="""RTN"",""IBCEPTC3"",152,0)"
^XMB(3.9,55,2,23466,0)=" . Q"
^XMB(3.9,55,2,23467,0)="""RTN"",""IBCEPTC3"",153,0)"
^XMB(3.9,55,2,23468,0)=" ;"
^XMB(3.9,55,2,23469,0)="""RTN"",""IBCEPTC3"",154,0)"
^XMB(3.9,55,2,23470,0)=" ; cleanup"
^XMB(3.9,55,2,23471,0)="""RTN"",""IBCEPTC3"",155,0)"
^XMB(3.9,55,2,23472,0)=" K ^TMP(""IBEDI_TEST_BATCH"",$J),^TMP(""IBRESUBMIT"",$J),^TMP(""IBSELX"",$J),^TMP(""IBRCBOLD"",$J)"
^XMB(3.9,55,2,23473,0)="""RTN"",""IBCEPTC3"",156,0)"
^XMB(3.9,55,2,23474,0)=" I '$O(^TMP(""IB_PREV_CLAIM_SELECT"",$J,0)) K ^TMP(""IB_PREV_CLAIM_SELECT"",$J)"
^XMB(3.9,55,2,23475,0)="""RTN"",""IBCEPTC3"",157,0)"
^XMB(3.9,55,2,23476,0)=" S DIR(0)=""EA"""
^XMB(3.9,55,2,23477,0)="""RTN"",""IBCEPTC3"",158,0)"
^XMB(3.9,55,2,23478,0)=" S DIR(""A"",1)=""Selected claims have been resubmitted as ""_IBTYPPTC_""."""
^XMB(3.9,55,2,23479,0)="""RTN"",""IBCEPTC3"",159,0)"
^XMB(3.9,55,2,23480,0)=" I IBFSKIP D"
^XMB(3.9,55,2,23481,0)="""RTN"",""IBCEPTC3"",160,0)"
^XMB(3.9,55,2,23482,0)=" . S DIR(""A"",2)=""Please note: Some claims were not eligible to be resubmitted as live claims."""
^XMB(3.9,55,2,23483,0)="""RTN"",""IBCEPTC3"",161,0)"
^XMB(3.9,55,2,23484,0)=" . S DIR(""A"",3)=""             These claims are still indicated as being selected."""
^XMB(3.9,55,2,23485,0)="""RTN"",""IBCEPTC3"",162,0)"
^XMB(3.9,55,2,23486,0)=" . Q"
^XMB(3.9,55,2,23487,0)="""RTN"",""IBCEPTC3"",163,0)"
^XMB(3.9,55,2,23488,0)=" I IBABORT K DIR(""A"") S DIR(""A"",1)=""No claims were resubmitted."""
^XMB(3.9,55,2,23489,0)="""RTN"",""IBCEPTC3"",164,0)"
^XMB(3.9,55,2,23490,0)=" S DIR(""A"")=""Press return to continue """
^XMB(3.9,55,2,23491,0)="""RTN"",""IBCEPTC3"",165,0)"
^XMB(3.9,55,2,23492,0)=" W ! D ^DIR K DIR"
^XMB(3.9,55,2,23493,0)="""RTN"",""IBCEPTC3"",166,0)"
^XMB(3.9,55,2,23494,0)=" K VALMHDR"
^XMB(3.9,55,2,23495,0)="""RTN"",""IBCEPTC3"",167,0)"
^XMB(3.9,55,2,23496,0)=" ;"
^XMB(3.9,55,2,23497,0)="""RTN"",""IBCEPTC3"",168,0)"
^XMB(3.9,55,2,23498,0)="RESUBQ ;"
^XMB(3.9,55,2,23499,0)="""RTN"",""IBCEPTC3"",169,0)"
^XMB(3.9,55,2,23500,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,23501,0)="""RTN"",""IBCEPTC3"",170,0)"
^XMB(3.9,55,2,23502,0)=" Q"
^XMB(3.9,55,2,23503,0)="""RTN"",""IBCEPTC3"",171,0)"
^XMB(3.9,55,2,23504,0)=" ;"
^XMB(3.9,55,2,23505,0)="""RTN"",""IBCEPTC3"",172,0)"
^XMB(3.9,55,2,23506,0)="REPORT ; Print report"
^XMB(3.9,55,2,23507,0)="""RTN"",""IBCEPTC3"",173,0)"
^XMB(3.9,55,2,23508,0)=" ; Assumes IBSORT, IBDT1, IBDT2 defined"
^XMB(3.9,55,2,23509,0)="""RTN"",""IBCEPTC3"",174,0)"
^XMB(3.9,55,2,23510,0)=" N IBACT,Z"
^XMB(3.9,55,2,23511,0)="""RTN"",""IBCEPTC3"",175,0)"
^XMB(3.9,55,2,23512,0)=" D FULL^VALM1"
^XMB(3.9,55,2,23513,0)="""RTN"",""IBCEPTC3"",176,0)"
^XMB(3.9,55,2,23514,0)=" F  S IBACT=0 D DEVSEL^IBCEPTC(.IBACT) Q:IBACT "
^XMB(3.9,55,2,23515,0)="""RTN"",""IBCEPTC3"",177,0)"
^XMB(3.9,55,2,23516,0)=" I IBACT'=99 D"
^XMB(3.9,55,2,23517,0)="""RTN"",""IBCEPTC3"",178,0)"
^XMB(3.9,55,2,23518,0)=" . N IBREP"
^XMB(3.9,55,2,23519,0)="""RTN"",""IBCEPTC3"",179,0)"
^XMB(3.9,55,2,23520,0)=" . S IBREP=""R"" D RPT^IBCEPTC1(IBSORT,IBDT1,IBDT2)"
^XMB(3.9,55,2,23521,0)="""RTN"",""IBCEPTC3"",180,0)"
^XMB(3.9,55,2,23522,0)=" ;"
^XMB(3.9,55,2,23523,0)="""RTN"",""IBCEPTC3"",181,0)"
^XMB(3.9,55,2,23524,0)=" D HOME^%ZIS"
^XMB(3.9,55,2,23525,0)="""RTN"",""IBCEPTC3"",182,0)"
^XMB(3.9,55,2,23526,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,23527,0)="""RTN"",""IBCEPTC3"",183,0)"
^XMB(3.9,55,2,23528,0)=" Q"
^XMB(3.9,55,2,23529,0)="""RTN"",""IBCEPTC3"",184,0)"
^XMB(3.9,55,2,23530,0)=" ;"
^XMB(3.9,55,2,23531,0)="""RTN"",""IBCEPTC3"",185,0)"
^XMB(3.9,55,2,23532,0)="CKSENT(VALMBCK) ; Make sure selected entries are transmitted"
^XMB(3.9,55,2,23533,0)="""RTN"",""IBCEPTC3"",186,0)"
^XMB(3.9,55,2,23534,0)=" ;"
^XMB(3.9,55,2,23535,0)="""RTN"",""IBCEPTC3"",187,0)"
^XMB(3.9,55,2,23536,0)=" N IBOK,DIR,X,Y"
^XMB(3.9,55,2,23537,0)="""RTN"",""IBCEPTC3"",188,0)"
^XMB(3.9,55,2,23538,0)=" S IBOK=1"
^XMB(3.9,55,2,23539,0)="""RTN"",""IBCEPTC3"",189,0)"
^XMB(3.9,55,2,23540,0)=" I $O(^TMP(""IB_PREV_CLAIM_SELECT"",$J,0)) D"
^XMB(3.9,55,2,23541,0)="""RTN"",""IBCEPTC3"",190,0)"
^XMB(3.9,55,2,23542,0)=" . D FULL^VALM1"
^XMB(3.9,55,2,23543,0)="""RTN"",""IBCEPTC3"",191,0)"
^XMB(3.9,55,2,23544,0)=" . S DIR(0)=""YA"",DIR(""A"",1)=""You have selected ""_+$G(^TMP(""IB_PREV_CLAIM_SELECT"",$J))_"" claims, but have not resubmitted them"",DIR(""A"")=""Are you sure you want to quit before you resubmit them?: "",DIR(""B"")=""No"""
^XMB(3.9,55,2,23545,0)="""RTN"",""IBCEPTC3"",192,0)"
^XMB(3.9,55,2,23546,0)=" . W ! D ^DIR K DIR"
^XMB(3.9,55,2,23547,0)="""RTN"",""IBCEPTC3"",193,0)"
^XMB(3.9,55,2,23548,0)=" . I Y'=1 S VALMBCK=""R"",IBOK=0"
^XMB(3.9,55,2,23549,0)="""RTN"",""IBCEPTC3"",194,0)"
^XMB(3.9,55,2,23550,0)=" I IBOK S VALMBCK=""Q"""
^XMB(3.9,55,2,23551,0)="""RTN"",""IBCEPTC3"",195,0)"
^XMB(3.9,55,2,23552,0)=" Q"
^XMB(3.9,55,2,23553,0)="""RTN"",""IBCEPTC3"",196,0)"
^XMB(3.9,55,2,23554,0)=" ;"
^XMB(3.9,55,2,23555,0)="""RTN"",""IBCEPTC3"",197,0)"
^XMB(3.9,55,2,23556,0)="TXOK(IBIFN) ; Function determines if claim is OK for live resubmission"
^XMB(3.9,55,2,23557,0)="""RTN"",""IBCEPTC3"",198,0)"
^XMB(3.9,55,2,23558,0)=" NEW OK,IB364,IBD,IBSTAT"
^XMB(3.9,55,2,23559,0)="""RTN"",""IBCEPTC3"",199,0)"
^XMB(3.9,55,2,23560,0)=" S OK=0"
^XMB(3.9,55,2,23561,0)="""RTN"",""IBCEPTC3"",200,0)"
^XMB(3.9,55,2,23562,0)=" I '$P($G(^DGCR(399,+$G(IBIFN),""TX"")),U,2) G TXOKX                  ; last electronic extract date"
^XMB(3.9,55,2,23563,0)="""RTN"",""IBCEPTC3"",201,0)"
^XMB(3.9,55,2,23564,0)=" I '$F("".2.3.4."","".""_$P($G(^DGCR(399,IBIFN,0)),U,13)_""."") G TXOKX   ; claim status"
^XMB(3.9,55,2,23565,0)="""RTN"",""IBCEPTC3"",202,0)"
^XMB(3.9,55,2,23566,0)=" S IB364=+$$LAST364^IBCEF4(+$G(IBIFN)) I 'IB364 G TXOKX             ; transmit bill exists"
^XMB(3.9,55,2,23567,0)="""RTN"",""IBCEPTC3"",203,0)"
^XMB(3.9,55,2,23568,0)=" S IBD=$G(^IBA(364,IB364,0)) I IBD="""" G TXOKX"
^XMB(3.9,55,2,23569,0)="""RTN"",""IBCEPTC3"",204,0)"
^XMB(3.9,55,2,23570,0)=" S IBSTAT=$P(IBD,U,3) I IBSTAT=""X"" G TXOKX                          ; already awaiting extract"
^XMB(3.9,55,2,23571,0)="""RTN"",""IBCEPTC3"",205,0)"
^XMB(3.9,55,2,23572,0)=" S OK=1"
^XMB(3.9,55,2,23573,0)="""RTN"",""IBCEPTC3"",206,0)"
^XMB(3.9,55,2,23574,0)="TXOKX ;"
^XMB(3.9,55,2,23575,0)="""RTN"",""IBCEPTC3"",207,0)"
^XMB(3.9,55,2,23576,0)=" Q OK"
^XMB(3.9,55,2,23577,0)="""RTN"",""IBCEPTC3"",208,0)"
^XMB(3.9,55,2,23578,0)=" ;"
^XMB(3.9,55,2,23579,0)="""RTN"",""IBCEPTR"")"
^XMB(3.9,55,2,23580,0)="0^47^B101970593^B75024492"
^XMB(3.9,55,2,23581,0)="""RTN"",""IBCEPTR"",1,0)"
^XMB(3.9,55,2,23582,0)="IBCEPTR ;ALB/ESG - Test Claim Messages Report ;28-JAN-2005"
^XMB(3.9,55,2,23583,0)="""RTN"",""IBCEPTR"",2,0)"
^XMB(3.9,55,2,23584,0)=" ;;2.0;INTEGRATED BILLING;**296,320**;21-MAR-94"
^XMB(3.9,55,2,23585,0)="""RTN"",""IBCEPTR"",3,0)"
^XMB(3.9,55,2,23586,0)=" ;"
^XMB(3.9,55,2,23587,0)="""RTN"",""IBCEPTR"",4,0)"
^XMB(3.9,55,2,23588,0)=" ; eClaims Plus"
^XMB(3.9,55,2,23589,0)="""RTN"",""IBCEPTR"",5,0)"
^XMB(3.9,55,2,23590,0)=" ; Report on Test Claim Transmissions and Status Messages"
^XMB(3.9,55,2,23591,0)="""RTN"",""IBCEPTR"",6,0)"
^XMB(3.9,55,2,23592,0)=" ;"
^XMB(3.9,55,2,23593,0)="""RTN"",""IBCEPTR"",7,0)"
^XMB(3.9,55,2,23594,0)="EN ; Entry Point"
^XMB(3.9,55,2,23595,0)="""RTN"",""IBCEPTR"",8,0)"
^XMB(3.9,55,2,23596,0)=" NEW STOP,IBRMETH,IBRDATA"
^XMB(3.9,55,2,23597,0)="""RTN"",""IBCEPTR"",9,0)"
^XMB(3.9,55,2,23598,0)=" D SELECT I STOP G EXIT"
^XMB(3.9,55,2,23599,0)="""RTN"",""IBCEPTR"",10,0)"
^XMB(3.9,55,2,23600,0)=" D DEVICE"
^XMB(3.9,55,2,23601,0)="""RTN"",""IBCEPTR"",11,0)"
^XMB(3.9,55,2,23602,0)="EXIT ; Exit Point"
^XMB(3.9,55,2,23603,0)="""RTN"",""IBCEPTR"",12,0)"
^XMB(3.9,55,2,23604,0)=" Q"
^XMB(3.9,55,2,23605,0)="""RTN"",""IBCEPTR"",13,0)"
^XMB(3.9,55,2,23606,0)=" ;"
^XMB(3.9,55,2,23607,0)="""RTN"",""IBCEPTR"",14,0)"
^XMB(3.9,55,2,23608,0)="SELECT ; Determine which claim#'s or batch#'s to report on"
^XMB(3.9,55,2,23609,0)="""RTN"",""IBCEPTR"",15,0)"
^XMB(3.9,55,2,23610,0)=" NEW DIC,DIR,X,Y,DIRUT,DTOUT,DUOUT,DIROUT,D"
^XMB(3.9,55,2,23611,0)="""RTN"",""IBCEPTR"",16,0)"
^XMB(3.9,55,2,23612,0)=" S STOP=0"
^XMB(3.9,55,2,23613,0)="""RTN"",""IBCEPTR"",17,0)"
^XMB(3.9,55,2,23614,0)=" W @IOF"
^XMB(3.9,55,2,23615,0)="""RTN"",""IBCEPTR"",18,0)"
^XMB(3.9,55,2,23616,0)=" W !!?23,""Test Claim EDI Transmission Report"""
^XMB(3.9,55,2,23617,0)="""RTN"",""IBCEPTR"",19,0)"
^XMB(3.9,55,2,23618,0)=" W !!?7,""This report will display EDI transmission data and returned status"""
^XMB(3.9,55,2,23619,0)="""RTN"",""IBCEPTR"",20,0)"
^XMB(3.9,55,2,23620,0)=" W !?7,""message data for selected test claims.  You may select test claims"""
^XMB(3.9,55,2,23621,0)="""RTN"",""IBCEPTR"",21,0)"
^XMB(3.9,55,2,23622,0)=" W !?7,""by claim number or by batch number or you may search for claims that"""
^XMB(3.9,55,2,23623,0)="""RTN"",""IBCEPTR"",22,0)"
^XMB(3.9,55,2,23624,0)=" W !?7,""were transmitted within a date range."",!"
^XMB(3.9,55,2,23625,0)="""RTN"",""IBCEPTR"",23,0)"
^XMB(3.9,55,2,23626,0)=" S DIR(0)=""SO^C:Claim;B:Batch;D:Date Range (Date Transmitted)"""
^XMB(3.9,55,2,23627,0)="""RTN"",""IBCEPTR"",24,0)"
^XMB(3.9,55,2,23628,0)=" S DIR(""A"")=""Selection Method"",DIR(""B"")=""D"""
^XMB(3.9,55,2,23629,0)="""RTN"",""IBCEPTR"",25,0)"
^XMB(3.9,55,2,23630,0)=" D ^DIR K DIR"
^XMB(3.9,55,2,23631,0)="""RTN"",""IBCEPTR"",26,0)"
^XMB(3.9,55,2,23632,0)=" I $D(DIRUT) S STOP=1 G SELECTX"
^XMB(3.9,55,2,23633,0)="""RTN"",""IBCEPTR"",27,0)"
^XMB(3.9,55,2,23634,0)=" S IBRMETH=Y"
^XMB(3.9,55,2,23635,0)="""RTN"",""IBCEPTR"",28,0)"
^XMB(3.9,55,2,23636,0)=" I IBRMETH'=""C"",IBRMETH'=""B"",IBRMETH'=""D"" S STOP=1 G SELECTX"
^XMB(3.9,55,2,23637,0)="""RTN"",""IBCEPTR"",29,0)"
^XMB(3.9,55,2,23638,0)=" ;"
^XMB(3.9,55,2,23639,0)="""RTN"",""IBCEPTR"",30,0)"
^XMB(3.9,55,2,23640,0)=" K IBRDATA"
^XMB(3.9,55,2,23641,0)="""RTN"",""IBCEPTR"",31,0)"
^XMB(3.9,55,2,23642,0)=" I IBRMETH=""C"" D"
^XMB(3.9,55,2,23643,0)="""RTN"",""IBCEPTR"",32,0)"
^XMB(3.9,55,2,23644,0)=" . F  D  Q:Y'>0"
^XMB(3.9,55,2,23645,0)="""RTN"",""IBCEPTR"",33,0)"
^XMB(3.9,55,2,23646,0)=" .. W !"
^XMB(3.9,55,2,23647,0)="""RTN"",""IBCEPTR"",34,0)"
^XMB(3.9,55,2,23648,0)=" .. S DIC(""A"")=""Test Claim: """
^XMB(3.9,55,2,23649,0)="""RTN"",""IBCEPTR"",35,0)"
^XMB(3.9,55,2,23650,0)=" .. I $O(IBRDATA("""")) S DIC(""A"")=""Another Test Claim: """
^XMB(3.9,55,2,23651,0)="""RTN"",""IBCEPTR"",36,0)"
^XMB(3.9,55,2,23652,0)=" .. S DIC(""W"")=""D CLMLST^IBCEPTR(Y)"""
^XMB(3.9,55,2,23653,0)="""RTN"",""IBCEPTR"",37,0)"
^XMB(3.9,55,2,23654,0)=" .. S DIC=361.4,DIC(0)=""AEMQ"",D=""B"" D MIX^DIC1"
^XMB(3.9,55,2,23655,0)="""RTN"",""IBCEPTR"",38,0)"
^XMB(3.9,55,2,23656,0)=" .. Q:Y'>0"
^XMB(3.9,55,2,23657,0)="""RTN"",""IBCEPTR"",39,0)"
^XMB(3.9,55,2,23658,0)=" .. S IBRDATA(+Y)="""""
^XMB(3.9,55,2,23659,0)="""RTN"",""IBCEPTR"",40,0)"
^XMB(3.9,55,2,23660,0)=" .. Q"
^XMB(3.9,55,2,23661,0)="""RTN"",""IBCEPTR"",41,0)"
^XMB(3.9,55,2,23662,0)=" . Q"
^XMB(3.9,55,2,23663,0)="""RTN"",""IBCEPTR"",42,0)"
^XMB(3.9,55,2,23664,0)=" ;"
^XMB(3.9,55,2,23665,0)="""RTN"",""IBCEPTR"",43,0)"
^XMB(3.9,55,2,23666,0)=" I IBRMETH=""B"" D"
^XMB(3.9,55,2,23667,0)="""RTN"",""IBCEPTR"",44,0)"
^XMB(3.9,55,2,23668,0)=" . F  D  Q:Y'>0"
^XMB(3.9,55,2,23669,0)="""RTN"",""IBCEPTR"",45,0)"
^XMB(3.9,55,2,23670,0)=" .. W !"
^XMB(3.9,55,2,23671,0)="""RTN"",""IBCEPTR"",46,0)"
^XMB(3.9,55,2,23672,0)=" .. S DIC(""A"")=""Test Batch: """
^XMB(3.9,55,2,23673,0)="""RTN"",""IBCEPTR"",47,0)"
^XMB(3.9,55,2,23674,0)=" .. I $O(IBRDATA("""")) S DIC(""A"")=""Another Test Batch: """
^XMB(3.9,55,2,23675,0)="""RTN"",""IBCEPTR"",48,0)"
^XMB(3.9,55,2,23676,0)=" .. S DIC(""S"")=""I $P(^(0),U,14),$O(^IBM(361.4,""""C"""",+Y,0))"""
^XMB(3.9,55,2,23677,0)="""RTN"",""IBCEPTR"",49,0)"
^XMB(3.9,55,2,23678,0)=" .. S DIC=364.1,DIC(0)=""AEMQ"",D=""B^C"" D MIX^DIC1"
^XMB(3.9,55,2,23679,0)="""RTN"",""IBCEPTR"",50,0)"
^XMB(3.9,55,2,23680,0)=" .. Q:Y'>0"
^XMB(3.9,55,2,23681,0)="""RTN"",""IBCEPTR"",51,0)"
^XMB(3.9,55,2,23682,0)=" .. S IBRDATA(+Y)="""""
^XMB(3.9,55,2,23683,0)="""RTN"",""IBCEPTR"",52,0)"
^XMB(3.9,55,2,23684,0)=" .. Q"
^XMB(3.9,55,2,23685,0)="""RTN"",""IBCEPTR"",53,0)"
^XMB(3.9,55,2,23686,0)=" . Q"
^XMB(3.9,55,2,23687,0)="""RTN"",""IBCEPTR"",54,0)"
^XMB(3.9,55,2,23688,0)=" ;"
^XMB(3.9,55,2,23689,0)="""RTN"",""IBCEPTR"",55,0)"
^XMB(3.9,55,2,23690,0)=" I IBRMETH=""D"" D"
^XMB(3.9,55,2,23691,0)="""RTN"",""IBCEPTR"",56,0)"
^XMB(3.9,55,2,23692,0)=" . W !"
^XMB(3.9,55,2,23693,0)="""RTN"",""IBCEPTR"",57,0)"
^XMB(3.9,55,2,23694,0)=" . S DIR(0)=""DAO^:""_DT_"":AEX"",DIR(""A"")=""  Earliest Date Claims Transmitted: """
^XMB(3.9,55,2,23695,0)="""RTN"",""IBCEPTR"",58,0)"
^XMB(3.9,55,2,23696,0)=" . D ^DIR K DIR"
^XMB(3.9,55,2,23697,0)="""RTN"",""IBCEPTR"",59,0)"
^XMB(3.9,55,2,23698,0)=" . I $D(DIRUT)!'Y Q"
^XMB(3.9,55,2,23699,0)="""RTN"",""IBCEPTR"",60,0)"
^XMB(3.9,55,2,23700,0)=" . S IBRDATA(1)=Y"
^XMB(3.9,55,2,23701,0)="""RTN"",""IBCEPTR"",61,0)"
^XMB(3.9,55,2,23702,0)=" . W !"
^XMB(3.9,55,2,23703,0)="""RTN"",""IBCEPTR"",62,0)"
^XMB(3.9,55,2,23704,0)=" . S DIR(0)=""DAO^""_Y_"":""_DT_"":AEX"",DIR(""A"")=""    Latest Date Claims Transmitted: "",DIR(""B"")=""Today"""
^XMB(3.9,55,2,23705,0)="""RTN"",""IBCEPTR"",63,0)"
^XMB(3.9,55,2,23706,0)=" . D ^DIR K DIR"
^XMB(3.9,55,2,23707,0)="""RTN"",""IBCEPTR"",64,0)"
^XMB(3.9,55,2,23708,0)=" . I $D(DIRUT)!'Y Q"
^XMB(3.9,55,2,23709,0)="""RTN"",""IBCEPTR"",65,0)"
^XMB(3.9,55,2,23710,0)=" . S IBRDATA(2)=Y"
^XMB(3.9,55,2,23711,0)="""RTN"",""IBCEPTR"",66,0)"
^XMB(3.9,55,2,23712,0)=" . Q"
^XMB(3.9,55,2,23713,0)="""RTN"",""IBCEPTR"",67,0)"
^XMB(3.9,55,2,23714,0)=" ;"
^XMB(3.9,55,2,23715,0)="""RTN"",""IBCEPTR"",68,0)"
^XMB(3.9,55,2,23716,0)=" I '$O(IBRDATA("""")) S STOP=1 G SELECTX"
^XMB(3.9,55,2,23717,0)="""RTN"",""IBCEPTR"",69,0)"
^XMB(3.9,55,2,23718,0)=" I IBRMETH=""D"",'$G(IBRDATA(1)) S STOP=1 G SELECTX"
^XMB(3.9,55,2,23719,0)="""RTN"",""IBCEPTR"",70,0)"
^XMB(3.9,55,2,23720,0)=" I IBRMETH=""D"",'$G(IBRDATA(2)) S STOP=1 G SELECTX"
^XMB(3.9,55,2,23721,0)="""RTN"",""IBCEPTR"",71,0)"
^XMB(3.9,55,2,23722,0)=" ;"
^XMB(3.9,55,2,23723,0)="""RTN"",""IBCEPTR"",72,0)"
^XMB(3.9,55,2,23724,0)="SELECTX ;"
^XMB(3.9,55,2,23725,0)="""RTN"",""IBCEPTR"",73,0)"
^XMB(3.9,55,2,23726,0)=" Q"
^XMB(3.9,55,2,23727,0)="""RTN"",""IBCEPTR"",74,0)"
^XMB(3.9,55,2,23728,0)=" ;"
^XMB(3.9,55,2,23729,0)="""RTN"",""IBCEPTR"",75,0)"
^XMB(3.9,55,2,23730,0)="DEVICE ; standard device selection"
^XMB(3.9,55,2,23731,0)="""RTN"",""IBCEPTR"",76,0)"
^XMB(3.9,55,2,23732,0)=" NEW ZTRTN,ZTDESC,ZTSAVE,POP"
^XMB(3.9,55,2,23733,0)="""RTN"",""IBCEPTR"",77,0)"
^XMB(3.9,55,2,23734,0)=" W !!!,""This report is 80 characters wide."",!"
^XMB(3.9,55,2,23735,0)="""RTN"",""IBCEPTR"",78,0)"
^XMB(3.9,55,2,23736,0)=" S ZTRTN=""COMPILE^IBCEPTR"""
^XMB(3.9,55,2,23737,0)="""RTN"",""IBCEPTR"",79,0)"
^XMB(3.9,55,2,23738,0)=" S ZTDESC=""Test Claim EDI Transmission Report"""
^XMB(3.9,55,2,23739,0)="""RTN"",""IBCEPTR"",80,0)"
^XMB(3.9,55,2,23740,0)=" S ZTSAVE(""IBRMETH"")="""""
^XMB(3.9,55,2,23741,0)="""RTN"",""IBCEPTR"",81,0)"
^XMB(3.9,55,2,23742,0)=" S ZTSAVE(""IBRDATA"")="""""
^XMB(3.9,55,2,23743,0)="""RTN"",""IBCEPTR"",82,0)"
^XMB(3.9,55,2,23744,0)=" D EN^XUTMDEVQ(ZTRTN,ZTDESC,.ZTSAVE,""QM"")"
^XMB(3.9,55,2,23745,0)="""RTN"",""IBCEPTR"",83,0)"
^XMB(3.9,55,2,23746,0)="DEVX ;"
^XMB(3.9,55,2,23747,0)="""RTN"",""IBCEPTR"",84,0)"
^XMB(3.9,55,2,23748,0)=" Q"
^XMB(3.9,55,2,23749,0)="""RTN"",""IBCEPTR"",85,0)"
^XMB(3.9,55,2,23750,0)=" ;"
^XMB(3.9,55,2,23751,0)="""RTN"",""IBCEPTR"",86,0)"
^XMB(3.9,55,2,23752,0)="COMPILE ; compile the data into a scratch global"
^XMB(3.9,55,2,23753,0)="""RTN"",""IBCEPTR"",87,0)"
^XMB(3.9,55,2,23754,0)=" NEW RTN,EXTBCH,IBIFN,BCHIEN,TXDATM"
^XMB(3.9,55,2,23755,0)="""RTN"",""IBCEPTR"",88,0)"
^XMB(3.9,55,2,23756,0)=" S RTN=""IBCEPTR"""
^XMB(3.9,55,2,23757,0)="""RTN"",""IBCEPTR"",89,0)"
^XMB(3.9,55,2,23758,0)=" KILL ^TMP($J,RTN)  ; init scratch global"
^XMB(3.9,55,2,23759,0)="""RTN"",""IBCEPTR"",90,0)"
^XMB(3.9,55,2,23760,0)=" ;"
^XMB(3.9,55,2,23761,0)="""RTN"",""IBCEPTR"",91,0)"
^XMB(3.9,55,2,23762,0)=" I IBRMETH=""C"" D    ; claim search"
^XMB(3.9,55,2,23763,0)="""RTN"",""IBCEPTR"",92,0)"
^XMB(3.9,55,2,23764,0)=" . S EXTBCH=0"
^XMB(3.9,55,2,23765,0)="""RTN"",""IBCEPTR"",93,0)"
^XMB(3.9,55,2,23766,0)=" . S IBIFN=0"
^XMB(3.9,55,2,23767,0)="""RTN"",""IBCEPTR"",94,0)"
^XMB(3.9,55,2,23768,0)=" . F  S IBIFN=$O(IBRDATA(IBIFN)) Q:'IBIFN  D STORE(IBIFN)"
^XMB(3.9,55,2,23769,0)="""RTN"",""IBCEPTR"",95,0)"
^XMB(3.9,55,2,23770,0)=" . Q"
^XMB(3.9,55,2,23771,0)="""RTN"",""IBCEPTR"",96,0)"
^XMB(3.9,55,2,23772,0)=" ;"
^XMB(3.9,55,2,23773,0)="""RTN"",""IBCEPTR"",97,0)"
^XMB(3.9,55,2,23774,0)=" I IBRMETH=""B"" D    ; batch search"
^XMB(3.9,55,2,23775,0)="""RTN"",""IBCEPTR"",98,0)"
^XMB(3.9,55,2,23776,0)=" . S BCHIEN=0"
^XMB(3.9,55,2,23777,0)="""RTN"",""IBCEPTR"",99,0)"
^XMB(3.9,55,2,23778,0)=" . F  S BCHIEN=$O(IBRDATA(BCHIEN)) Q:'BCHIEN  D"
^XMB(3.9,55,2,23779,0)="""RTN"",""IBCEPTR"",100,0)"
^XMB(3.9,55,2,23780,0)=" .. S EXTBCH=$P($G(^IBA(364.1,BCHIEN,0)),U,1)"
^XMB(3.9,55,2,23781,0)="""RTN"",""IBCEPTR"",101,0)"
^XMB(3.9,55,2,23782,0)=" .. I EXTBCH="""" S EXTBCH=""~unknown"""
^XMB(3.9,55,2,23783,0)="""RTN"",""IBCEPTR"",102,0)"
^XMB(3.9,55,2,23784,0)=" .. S IBIFN=0"
^XMB(3.9,55,2,23785,0)="""RTN"",""IBCEPTR"",103,0)"
^XMB(3.9,55,2,23786,0)=" .. F  S IBIFN=$O(^IBM(361.4,""C"",BCHIEN,IBIFN)) Q:'IBIFN  D STORE(IBIFN)"
^XMB(3.9,55,2,23787,0)="""RTN"",""IBCEPTR"",104,0)"
^XMB(3.9,55,2,23788,0)=" .. Q"
^XMB(3.9,55,2,23789,0)="""RTN"",""IBCEPTR"",105,0)"
^XMB(3.9,55,2,23790,0)=" . Q"
^XMB(3.9,55,2,23791,0)="""RTN"",""IBCEPTR"",106,0)"
^XMB(3.9,55,2,23792,0)=" ;"
^XMB(3.9,55,2,23793,0)="""RTN"",""IBCEPTR"",107,0)"
^XMB(3.9,55,2,23794,0)=" I IBRMETH=""D"" D    ; date range search"
^XMB(3.9,55,2,23795,0)="""RTN"",""IBCEPTR"",108,0)"
^XMB(3.9,55,2,23796,0)=" . S EXTBCH=0"
^XMB(3.9,55,2,23797,0)="""RTN"",""IBCEPTR"",109,0)"
^XMB(3.9,55,2,23798,0)=" . S TXDATM=$O(^IBM(361.4,""ATD"",IBRDATA(1)),-1)"
^XMB(3.9,55,2,23799,0)="""RTN"",""IBCEPTR"",110,0)"
^XMB(3.9,55,2,23800,0)=" . F  S TXDATM=$O(^IBM(361.4,""ATD"",TXDATM)) Q:'TXDATM  Q:(TXDATM\1)>IBRDATA(2)  D"
^XMB(3.9,55,2,23801,0)="""RTN"",""IBCEPTR"",111,0)"
^XMB(3.9,55,2,23802,0)=" .. S IBIFN=0"
^XMB(3.9,55,2,23803,0)="""RTN"",""IBCEPTR"",112,0)"
^XMB(3.9,55,2,23804,0)=" .. F  S IBIFN=$O(^IBM(361.4,""ATD"",TXDATM,IBIFN)) Q:'IBIFN  D STORE(IBIFN)"
^XMB(3.9,55,2,23805,0)="""RTN"",""IBCEPTR"",113,0)"
^XMB(3.9,55,2,23806,0)=" .. Q"
^XMB(3.9,55,2,23807,0)="""RTN"",""IBCEPTR"",114,0)"
^XMB(3.9,55,2,23808,0)=" . Q"
^XMB(3.9,55,2,23809,0)="""RTN"",""IBCEPTR"",115,0)"
^XMB(3.9,55,2,23810,0)=" ;"
^XMB(3.9,55,2,23811,0)="""RTN"",""IBCEPTR"",116,0)"
^XMB(3.9,55,2,23812,0)=" D PRINT                           ; print the report"
^XMB(3.9,55,2,23813,0)="""RTN"",""IBCEPTR"",117,0)"
^XMB(3.9,55,2,23814,0)=" D ^%ZISC                          ; close the device"
^XMB(3.9,55,2,23815,0)="""RTN"",""IBCEPTR"",118,0)"
^XMB(3.9,55,2,23816,0)=" KILL ^TMP($J,RTN)                 ; clean up scratch global"
^XMB(3.9,55,2,23817,0)="""RTN"",""IBCEPTR"",119,0)"
^XMB(3.9,55,2,23818,0)=" I $D(ZTQUEUED) S ZTREQ=""@""        ; purge the task record"
^XMB(3.9,55,2,23819,0)="""RTN"",""IBCEPTR"",120,0)"
^XMB(3.9,55,2,23820,0)="COMPX ;"
^XMB(3.9,55,2,23821,0)="""RTN"",""IBCEPTR"",121,0)"
^XMB(3.9,55,2,23822,0)=" Q"
^XMB(3.9,55,2,23823,0)="""RTN"",""IBCEPTR"",122,0)"
^XMB(3.9,55,2,23824,0)=" ;"
^XMB(3.9,55,2,23825,0)="""RTN"",""IBCEPTR"",123,0)"
^XMB(3.9,55,2,23826,0)="STORE(IBIFN) ; Input = internal bill#; continue compilation"
^XMB(3.9,55,2,23827,0)="""RTN"",""IBCEPTR"",124,0)"
^XMB(3.9,55,2,23828,0)=" NEW IB0,CLAIM,IBRTXD0,TXIEN,SMIEN,DATA,TXDTM"
^XMB(3.9,55,2,23829,0)="""RTN"",""IBCEPTR"",125,0)"
^XMB(3.9,55,2,23830,0)=" S IB0=$G(^DGCR(399,IBIFN,0))"
^XMB(3.9,55,2,23831,0)="""RTN"",""IBCEPTR"",126,0)"
^XMB(3.9,55,2,23832,0)=" S CLAIM=$P(IB0,U,1)  ; external claim#"
^XMB(3.9,55,2,23833,0)="""RTN"",""IBCEPTR"",127,0)"
^XMB(3.9,55,2,23834,0)=" I CLAIM="""" S CLAIM=""~unknown"""
^XMB(3.9,55,2,23835,0)="""RTN"",""IBCEPTR"",128,0)"
^XMB(3.9,55,2,23836,0)=" S IBRTXD0=99999999   ; initial value for earliest transmission date"
^XMB(3.9,55,2,23837,0)="""RTN"",""IBCEPTR"",129,0)"
^XMB(3.9,55,2,23838,0)=" ;"
^XMB(3.9,55,2,23839,0)="""RTN"",""IBCEPTR"",130,0)"
^XMB(3.9,55,2,23840,0)=" I IBRMETH=""C"" D   ; claim search for transmission data (all)"
^XMB(3.9,55,2,23841,0)="""RTN"",""IBCEPTR"",131,0)"
^XMB(3.9,55,2,23842,0)=" . S TXIEN=0"
^XMB(3.9,55,2,23843,0)="""RTN"",""IBCEPTR"",132,0)"
^XMB(3.9,55,2,23844,0)=" . F  S TXIEN=$O(^IBM(361.4,IBIFN,1,TXIEN)) Q:'TXIEN  D STORETX(IBIFN,TXIEN)"
^XMB(3.9,55,2,23845,0)="""RTN"",""IBCEPTR"",133,0)"
^XMB(3.9,55,2,23846,0)=" . Q"
^XMB(3.9,55,2,23847,0)="""RTN"",""IBCEPTR"",134,0)"
^XMB(3.9,55,2,23848,0)=" ;"
^XMB(3.9,55,2,23849,0)="""RTN"",""IBCEPTR"",135,0)"
^XMB(3.9,55,2,23850,0)=" I IBRMETH=""B"" D   ; batch search for transmission data (""C"" x-ref)"
^XMB(3.9,55,2,23851,0)="""RTN"",""IBCEPTR"",136,0)"
^XMB(3.9,55,2,23852,0)=" . S TXIEN=0"
^XMB(3.9,55,2,23853,0)="""RTN"",""IBCEPTR"",137,0)"
^XMB(3.9,55,2,23854,0)=" . F  S TXIEN=$O(^IBM(361.4,""C"",BCHIEN,IBIFN,TXIEN)) Q:'TXIEN  D STORETX(IBIFN,TXIEN)"
^XMB(3.9,55,2,23855,0)="""RTN"",""IBCEPTR"",138,0)"
^XMB(3.9,55,2,23856,0)=" . Q"
^XMB(3.9,55,2,23857,0)="""RTN"",""IBCEPTR"",139,0)"
^XMB(3.9,55,2,23858,0)=" ;"
^XMB(3.9,55,2,23859,0)="""RTN"",""IBCEPTR"",140,0)"
^XMB(3.9,55,2,23860,0)=" I IBRMETH=""D"" D   ; date range search for transmission data (""ATD"" xref)"
^XMB(3.9,55,2,23861,0)="""RTN"",""IBCEPTR"",141,0)"
^XMB(3.9,55,2,23862,0)=" . S TXIEN=0"
^XMB(3.9,55,2,23863,0)="""RTN"",""IBCEPTR"",142,0)"
^XMB(3.9,55,2,23864,0)=" . F  S TXIEN=$O(^IBM(361.4,""ATD"",TXDATM,IBIFN,TXIEN)) Q:'TXIEN  D STORETX(IBIFN,TXIEN)"
^XMB(3.9,55,2,23865,0)="""RTN"",""IBCEPTR"",143,0)"
^XMB(3.9,55,2,23866,0)=" . Q"
^XMB(3.9,55,2,23867,0)="""RTN"",""IBCEPTR"",144,0)"
^XMB(3.9,55,2,23868,0)=" ;"
^XMB(3.9,55,2,23869,0)="""RTN"",""IBCEPTR"",145,0)"
^XMB(3.9,55,2,23870,0)=" ; loop thru all returned messages for claim"
^XMB(3.9,55,2,23871,0)="""RTN"",""IBCEPTR"",146,0)"
^XMB(3.9,55,2,23872,0)=" S SMIEN=0"
^XMB(3.9,55,2,23873,0)="""RTN"",""IBCEPTR"",147,0)"
^XMB(3.9,55,2,23874,0)=" F  S SMIEN=$O(^IBM(361.4,IBIFN,2,SMIEN)) Q:'SMIEN  D"
^XMB(3.9,55,2,23875,0)="""RTN"",""IBCEPTR"",148,0)"
^XMB(3.9,55,2,23876,0)=" . S DATA=$G(^IBM(361.4,IBIFN,2,SMIEN,0)) Q:DATA=""""   ; received msg data"
^XMB(3.9,55,2,23877,0)="""RTN"",""IBCEPTR"",149,0)"
^XMB(3.9,55,2,23878,0)=" . S TXDTM=$P(DATA,U,1) Q:'TXDTM    ; msg rec'd date/time"
^XMB(3.9,55,2,23879,0)="""RTN"",""IBCEPTR"",150,0)"
^XMB(3.9,55,2,23880,0)=" . ;"
^XMB(3.9,55,2,23881,0)="""RTN"",""IBCEPTR"",151,0)"
^XMB(3.9,55,2,23882,0)=" . ; Batch only: if this status message was received before the"
^XMB(3.9,55,2,23883,0)="""RTN"",""IBCEPTR"",152,0)"
^XMB(3.9,55,2,23884,0)=" . ; earliest transmission for this batch, then don't include it"
^XMB(3.9,55,2,23885,0)="""RTN"",""IBCEPTR"",153,0)"
^XMB(3.9,55,2,23886,0)=" . I IBRMETH=""B"",TXDTM'>IBRTXD0 Q"
^XMB(3.9,55,2,23887,0)="""RTN"",""IBCEPTR"",154,0)"
^XMB(3.9,55,2,23888,0)=" . ;"
^XMB(3.9,55,2,23889,0)="""RTN"",""IBCEPTR"",155,0)"
^XMB(3.9,55,2,23890,0)=" . ; Date range search only:  make sure the date/time the status message"
^XMB(3.9,55,2,23891,0)="""RTN"",""IBCEPTR"",156,0)"
^XMB(3.9,55,2,23892,0)=" . ; was received is inside the user specified date range for this report"
^XMB(3.9,55,2,23893,0)="""RTN"",""IBCEPTR"",157,0)"
^XMB(3.9,55,2,23894,0)=" . I IBRMETH=""D"",(TXDTM\1)<IBRDATA(1) Q    ; rec'd too early"
^XMB(3.9,55,2,23895,0)="""RTN"",""IBCEPTR"",158,0)"
^XMB(3.9,55,2,23896,0)=" . I IBRMETH=""D"",(TXDTM\1)>IBRDATA(2) Q    ; rec'd too late"
^XMB(3.9,55,2,23897,0)="""RTN"",""IBCEPTR"",159,0)"
^XMB(3.9,55,2,23898,0)=" . ;"
^XMB(3.9,55,2,23899,0)="""RTN"",""IBCEPTR"",160,0)"
^XMB(3.9,55,2,23900,0)=" . ; store it"
^XMB(3.9,55,2,23901,0)="""RTN"",""IBCEPTR"",161,0)"
^XMB(3.9,55,2,23902,0)=" . M ^TMP($J,RTN,EXTBCH,CLAIM,TXDTM,2,SMIEN)=^IBM(361.4,IBIFN,2,SMIEN)"
^XMB(3.9,55,2,23903,0)="""RTN"",""IBCEPTR"",162,0)"
^XMB(3.9,55,2,23904,0)=" . Q"
^XMB(3.9,55,2,23905,0)="""RTN"",""IBCEPTR"",163,0)"
^XMB(3.9,55,2,23906,0)="STOREX ;"
^XMB(3.9,55,2,23907,0)="""RTN"",""IBCEPTR"",164,0)"
^XMB(3.9,55,2,23908,0)=" Q"
^XMB(3.9,55,2,23909,0)="""RTN"",""IBCEPTR"",165,0)"
^XMB(3.9,55,2,23910,0)=" ;"
^XMB(3.9,55,2,23911,0)="""RTN"",""IBCEPTR"",166,0)"
^XMB(3.9,55,2,23912,0)="STORETX(IBIFN,TXIEN) ; store transmission info"
^XMB(3.9,55,2,23913,0)="""RTN"",""IBCEPTR"",167,0)"
^XMB(3.9,55,2,23914,0)=" NEW DATA,TXDTM"
^XMB(3.9,55,2,23915,0)="""RTN"",""IBCEPTR"",168,0)"
^XMB(3.9,55,2,23916,0)=" S DATA=$G(^IBM(361.4,IBIFN,1,TXIEN,0))"
^XMB(3.9,55,2,23917,0)="""RTN"",""IBCEPTR"",169,0)"
^XMB(3.9,55,2,23918,0)=" I DATA="""" G STTXXX"
^XMB(3.9,55,2,23919,0)="""RTN"",""IBCEPTR"",170,0)"
^XMB(3.9,55,2,23920,0)=" S TXDTM=$P(DATA,U,1)   ; transmit date/time"
^XMB(3.9,55,2,23921,0)="""RTN"",""IBCEPTR"",171,0)"
^XMB(3.9,55,2,23922,0)=" I 'TXDTM G STTXXX"
^XMB(3.9,55,2,23923,0)="""RTN"",""IBCEPTR"",172,0)"
^XMB(3.9,55,2,23924,0)=" I TXDTM<IBRTXD0 S IBRTXD0=TXDTM"
^XMB(3.9,55,2,23925,0)="""RTN"",""IBCEPTR"",173,0)"
^XMB(3.9,55,2,23926,0)=" ;"
^XMB(3.9,55,2,23927,0)="""RTN"",""IBCEPTR"",174,0)"
^XMB(3.9,55,2,23928,0)=" ; store it"
^XMB(3.9,55,2,23929,0)="""RTN"",""IBCEPTR"",175,0)"
^XMB(3.9,55,2,23930,0)=" M ^TMP($J,RTN,EXTBCH,CLAIM,TXDTM,1,TXIEN)=^IBM(361.4,IBIFN,1,TXIEN)"
^XMB(3.9,55,2,23931,0)="""RTN"",""IBCEPTR"",176,0)"
^XMB(3.9,55,2,23932,0)="STTXXX ;"
^XMB(3.9,55,2,23933,0)="""RTN"",""IBCEPTR"",177,0)"
^XMB(3.9,55,2,23934,0)=" Q"
^XMB(3.9,55,2,23935,0)="""RTN"",""IBCEPTR"",178,0)"
^XMB(3.9,55,2,23936,0)=" ;"
^XMB(3.9,55,2,23937,0)="""RTN"",""IBCEPTR"",179,0)"
^XMB(3.9,55,2,23938,0)="PRINT ; print the report to the specified device"
^XMB(3.9,55,2,23939,0)="""RTN"",""IBCEPTR"",180,0)"
^XMB(3.9,55,2,23940,0)=" NEW MAXCNT,CRT,PAGECNT,STOP,DIR,X,Y,DIRUT,DUOUT,DTOUT,DIROUT"
^XMB(3.9,55,2,23941,0)="""RTN"",""IBCEPTR"",181,0)"
^XMB(3.9,55,2,23942,0)=" NEW BATCH,CLAIM,IBIFN,CLMD,TXD,TYPE,IEN"
^XMB(3.9,55,2,23943,0)="""RTN"",""IBCEPTR"",182,0)"
^XMB(3.9,55,2,23944,0)=" I IOST[""C-"" S MAXCNT=IOSL-3,CRT=1"
^XMB(3.9,55,2,23945,0)="""RTN"",""IBCEPTR"",183,0)"
^XMB(3.9,55,2,23946,0)=" E  S MAXCNT=IOSL-6,CRT=0"
^XMB(3.9,55,2,23947,0)="""RTN"",""IBCEPTR"",184,0)"
^XMB(3.9,55,2,23948,0)=" S PAGECNT=0,STOP=0"
^XMB(3.9,55,2,23949,0)="""RTN"",""IBCEPTR"",185,0)"
^XMB(3.9,55,2,23950,0)=" ;"
^XMB(3.9,55,2,23951,0)="""RTN"",""IBCEPTR"",186,0)"
^XMB(3.9,55,2,23952,0)=" I '$D(^TMP($J,RTN)) D HEADER W !!!?5,""No Data Found"""
^XMB(3.9,55,2,23953,0)="""RTN"",""IBCEPTR"",187,0)"
^XMB(3.9,55,2,23954,0)=" ;"
^XMB(3.9,55,2,23955,0)="""RTN"",""IBCEPTR"",188,0)"
^XMB(3.9,55,2,23956,0)=" S BATCH="""""
^XMB(3.9,55,2,23957,0)="""RTN"",""IBCEPTR"",189,0)"
^XMB(3.9,55,2,23958,0)=" F  S BATCH=$O(^TMP($J,RTN,BATCH)) Q:BATCH=""""  D  Q:STOP"
^XMB(3.9,55,2,23959,0)="""RTN"",""IBCEPTR"",190,0)"
^XMB(3.9,55,2,23960,0)=" . D HEADER Q:STOP"
^XMB(3.9,55,2,23961,0)="""RTN"",""IBCEPTR"",191,0)"
^XMB(3.9,55,2,23962,0)=" . I BATCH'=0 W !!,""Batch#:  "",BATCH"
^XMB(3.9,55,2,23963,0)="""RTN"",""IBCEPTR"",192,0)"
^XMB(3.9,55,2,23964,0)=" . S CLAIM="""""
^XMB(3.9,55,2,23965,0)="""RTN"",""IBCEPTR"",193,0)"
^XMB(3.9,55,2,23966,0)=" . F  S CLAIM=$O(^TMP($J,RTN,BATCH,CLAIM)) Q:CLAIM=""""  D  Q:STOP"
^XMB(3.9,55,2,23967,0)="""RTN"",""IBCEPTR"",194,0)"
^XMB(3.9,55,2,23968,0)=" .. I $Y+2>MAXCNT!'PAGECNT D HEADER Q:STOP"
^XMB(3.9,55,2,23969,0)="""RTN"",""IBCEPTR"",195,0)"
^XMB(3.9,55,2,23970,0)=" .. I BATCH=0 W !"
^XMB(3.9,55,2,23971,0)="""RTN"",""IBCEPTR"",196,0)"
^XMB(3.9,55,2,23972,0)=" .. W !,""Claim#:  "",CLAIM"
^XMB(3.9,55,2,23973,0)="""RTN"",""IBCEPTR"",197,0)"
^XMB(3.9,55,2,23974,0)=" .. S IBIFN=+$O(^DGCR(399,""B"",CLAIM,""""))"
^XMB(3.9,55,2,23975,0)="""RTN"",""IBCEPTR"",198,0)"
^XMB(3.9,55,2,23976,0)=" .. I IBIFN S CLMD=$$BT(IBIFN) W ?18,$E($P(CLMD,U,3),1,20),?40,""("",$P(CLMD,U,1),"")"""
^XMB(3.9,55,2,23977,0)="""RTN"",""IBCEPTR"",199,0)"
^XMB(3.9,55,2,23978,0)=" .. W !,$$RJ^XLFSTR("""",80,""-"")"
^XMB(3.9,55,2,23979,0)="""RTN"",""IBCEPTR"",200,0)"
^XMB(3.9,55,2,23980,0)=" .. ;"
^XMB(3.9,55,2,23981,0)="""RTN"",""IBCEPTR"",201,0)"
^XMB(3.9,55,2,23982,0)=" .. S TXD=0"
^XMB(3.9,55,2,23983,0)="""RTN"",""IBCEPTR"",202,0)"
^XMB(3.9,55,2,23984,0)=" .. F  S TXD=$O(^TMP($J,RTN,BATCH,CLAIM,TXD)) Q:'TXD!STOP  S TYPE=0 F  S TYPE=$O(^TMP($J,RTN,BATCH,CLAIM,TXD,TYPE)) Q:'TYPE!STOP  S IEN=0 F  S IEN=$O(^TMP($J,RTN,BATCH,CLAIM,TXD,TYPE,IEN)) Q:'IEN!STOP  D  Q:STOP"
^XMB(3.9,55,2,23985,0)="""RTN"",""IBCEPTR"",203,0)"
^XMB(3.9,55,2,23986,0)=" ... I TYPE=1 D TXPRT"
^XMB(3.9,55,2,23987,0)="""RTN"",""IBCEPTR"",204,0)"
^XMB(3.9,55,2,23988,0)=" ... I TYPE=2 D SMPRT"
^XMB(3.9,55,2,23989,0)="""RTN"",""IBCEPTR"",205,0)"
^XMB(3.9,55,2,23990,0)=" ... Q"
^XMB(3.9,55,2,23991,0)="""RTN"",""IBCEPTR"",206,0)"
^XMB(3.9,55,2,23992,0)=" .. Q"
^XMB(3.9,55,2,23993,0)="""RTN"",""IBCEPTR"",207,0)"
^XMB(3.9,55,2,23994,0)=" . Q"
^XMB(3.9,55,2,23995,0)="""RTN"",""IBCEPTR"",208,0)"
^XMB(3.9,55,2,23996,0)=" ;"
^XMB(3.9,55,2,23997,0)="""RTN"",""IBCEPTR"",209,0)"
^XMB(3.9,55,2,23998,0)=" I STOP G PRINTX"
^XMB(3.9,55,2,23999,0)="""RTN"",""IBCEPTR"",210,0)"
^XMB(3.9,55,2,24000,0)=" I $Y+2>MAXCNT!'PAGECNT D HEADER I STOP G PRINTX"
^XMB(3.9,55,2,24001,0)="""RTN"",""IBCEPTR"",211,0)"
^XMB(3.9,55,2,24002,0)=" W !!?5,""*** End of Report ***"""
^XMB(3.9,55,2,24003,0)="""RTN"",""IBCEPTR"",212,0)"
^XMB(3.9,55,2,24004,0)=" I CRT,'$D(ZTQUEUED) S DIR(0)=""E"" D ^DIR K DIR"
^XMB(3.9,55,2,24005,0)="""RTN"",""IBCEPTR"",213,0)"
^XMB(3.9,55,2,24006,0)="PRINTX ;"
^XMB(3.9,55,2,24007,0)="""RTN"",""IBCEPTR"",214,0)"
^XMB(3.9,55,2,24008,0)=" Q"
^XMB(3.9,55,2,24009,0)="""RTN"",""IBCEPTR"",215,0)"
^XMB(3.9,55,2,24010,0)=" ;"
^XMB(3.9,55,2,24011,0)="""RTN"",""IBCEPTR"",216,0)"
^XMB(3.9,55,2,24012,0)="TXPRT ; print transmission information"
^XMB(3.9,55,2,24013,0)="""RTN"",""IBCEPTR"",217,0)"
^XMB(3.9,55,2,24014,0)=" NEW DATA,TXDTM,EXTBCH,TXBY,INSIEN,PAYER,PSEQ,INZ"
^XMB(3.9,55,2,24015,0)="""RTN"",""IBCEPTR"",218,0)"
^XMB(3.9,55,2,24016,0)=" S DATA=$G(^TMP($J,RTN,BATCH,CLAIM,TXD,TYPE,IEN,0)) I DATA="""" G TXPRTX"
^XMB(3.9,55,2,24017,0)="""RTN"",""IBCEPTR"",219,0)"
^XMB(3.9,55,2,24018,0)=" S TXDTM=$$FMTE^XLFDT($P(DATA,U,1),""5Z"")"
^XMB(3.9,55,2,24019,0)="""RTN"",""IBCEPTR"",220,0)"
^XMB(3.9,55,2,24020,0)=" S EXTBCH=$$EXTERNAL^DILFD(361.41,.02,,$P(DATA,U,2))  ; batch"
^XMB(3.9,55,2,24021,0)="""RTN"",""IBCEPTR"",221,0)"
^XMB(3.9,55,2,24022,0)=" S TXBY=$$EXTERNAL^DILFD(361.41,.03,,$P(DATA,U,3))    ; who tx"
^XMB(3.9,55,2,24023,0)="""RTN"",""IBCEPTR"",222,0)"
^XMB(3.9,55,2,24024,0)=" S INSIEN=+$$FINDINS^IBCEF1(IBIFN,$P(DATA,U,4))       ; insurance"
^XMB(3.9,55,2,24025,0)="""RTN"",""IBCEPTR"",223,0)"
^XMB(3.9,55,2,24026,0)=" S INZ=$$INSADD^IBCNSC02(INSIEN)                      ; ins name/addr"
^XMB(3.9,55,2,24027,0)="""RTN"",""IBCEPTR"",224,0)"
^XMB(3.9,55,2,24028,0)=" S PAYER=$P(INZ,U,1)                                  ; ins name"
^XMB(3.9,55,2,24029,0)="""RTN"",""IBCEPTR"",225,0)"
^XMB(3.9,55,2,24030,0)=" S PSEQ=$TR($P(DATA,U,4),""123"",""PST"")                 ; payer seq"
^XMB(3.9,55,2,24031,0)="""RTN"",""IBCEPTR"",226,0)"
^XMB(3.9,55,2,24032,0)=" ;"
^XMB(3.9,55,2,24033,0)="""RTN"",""IBCEPTR"",227,0)"
^XMB(3.9,55,2,24034,0)=" I $Y+2>MAXCNT!'PAGECNT D HEADER I STOP G TXPRTX"
^XMB(3.9,55,2,24035,0)="""RTN"",""IBCEPTR"",228,0)"
^XMB(3.9,55,2,24036,0)=" W !,""Transmission Information"""
^XMB(3.9,55,2,24037,0)="""RTN"",""IBCEPTR"",229,0)"
^XMB(3.9,55,2,24038,0)=" W !?1,TXDTM,?22,""Bch#"",+$E(EXTBCH,4,99),?33,$E(TXBY,1,15),?50,$E(PAYER,1,20),""  ("",PSEQ,"")"""
^XMB(3.9,55,2,24039,0)="""RTN"",""IBCEPTR"",230,0)"
^XMB(3.9,55,2,24040,0)=" ; display address info if not Medicare"
^XMB(3.9,55,2,24041,0)="""RTN"",""IBCEPTR"",231,0)"
^XMB(3.9,55,2,24042,0)=" I '$$MCRWNR^IBEFUNC(INSIEN) W !?50,$E($P(INZ,U,2),1,15),"","",$E($P(INZ,U,3),1,11),"","",$E($P(INZ,U,4),1,2)"
^XMB(3.9,55,2,24043,0)="""RTN"",""IBCEPTR"",232,0)"
^XMB(3.9,55,2,24044,0)=" W !"
^XMB(3.9,55,2,24045,0)="""RTN"",""IBCEPTR"",233,0)"
^XMB(3.9,55,2,24046,0)="TXPRTX ;"
^XMB(3.9,55,2,24047,0)="""RTN"",""IBCEPTR"",234,0)"
^XMB(3.9,55,2,24048,0)=" Q"
^XMB(3.9,55,2,24049,0)="""RTN"",""IBCEPTR"",235,0)"
^XMB(3.9,55,2,24050,0)=" ;"
^XMB(3.9,55,2,24051,0)="""RTN"",""IBCEPTR"",236,0)"
^XMB(3.9,55,2,24052,0)="SMPRT ; print returned status message information"
^XMB(3.9,55,2,24053,0)="""RTN"",""IBCEPTR"",237,0)"
^XMB(3.9,55,2,24054,0)=" NEW DATA,TXDTM,SEVERITY,Z"
^XMB(3.9,55,2,24055,0)="""RTN"",""IBCEPTR"",238,0)"
^XMB(3.9,55,2,24056,0)=" S DATA=$G(^TMP($J,RTN,BATCH,CLAIM,TXD,TYPE,IEN,0)) I DATA="""" G SMPRTX"
^XMB(3.9,55,2,24057,0)="""RTN"",""IBCEPTR"",239,0)"
^XMB(3.9,55,2,24058,0)=" S TXDTM=$$FMTE^XLFDT($P(DATA,U,1),""5Z"")"
^XMB(3.9,55,2,24059,0)="""RTN"",""IBCEPTR"",240,0)"
^XMB(3.9,55,2,24060,0)=" S SEVERITY=$$EXTERNAL^DILFD(361.42,.02,,$P(DATA,U,2))  ; msg severity"
^XMB(3.9,55,2,24061,0)="""RTN"",""IBCEPTR"",241,0)"
^XMB(3.9,55,2,24062,0)=" ;"
^XMB(3.9,55,2,24063,0)="""RTN"",""IBCEPTR"",242,0)"
^XMB(3.9,55,2,24064,0)=" I $Y+2>MAXCNT!'PAGECNT D HEADER I STOP G SMPRTX"
^XMB(3.9,55,2,24065,0)="""RTN"",""IBCEPTR"",243,0)"
^XMB(3.9,55,2,24066,0)=" W !,""Status Message Information"""
^XMB(3.9,55,2,24067,0)="""RTN"",""IBCEPTR"",244,0)"
^XMB(3.9,55,2,24068,0)=" W !?1,TXDTM,?22,SEVERITY,?65,""Msg#"",$P(DATA,U,3)"
^XMB(3.9,55,2,24069,0)="""RTN"",""IBCEPTR"",245,0)"
^XMB(3.9,55,2,24070,0)=" S Z=0"
^XMB(3.9,55,2,24071,0)="""RTN"",""IBCEPTR"",246,0)"
^XMB(3.9,55,2,24072,0)=" F  S Z=$O(^TMP($J,RTN,BATCH,CLAIM,TXD,TYPE,IEN,1,Z)) Q:'Z  D  Q:STOP"
^XMB(3.9,55,2,24073,0)="""RTN"",""IBCEPTR"",247,0)"
^XMB(3.9,55,2,24074,0)=" . I $Y+1>MAXCNT!'PAGECNT D HEADER Q:STOP"
^XMB(3.9,55,2,24075,0)="""RTN"",""IBCEPTR"",248,0)"
^XMB(3.9,55,2,24076,0)=" . W !?2,$G(^TMP($J,RTN,BATCH,CLAIM,TXD,TYPE,IEN,1,Z,0))"
^XMB(3.9,55,2,24077,0)="""RTN"",""IBCEPTR"",249,0)"
^XMB(3.9,55,2,24078,0)=" . Q"
^XMB(3.9,55,2,24079,0)="""RTN"",""IBCEPTR"",250,0)"
^XMB(3.9,55,2,24080,0)=" W !"
^XMB(3.9,55,2,24081,0)="""RTN"",""IBCEPTR"",251,0)"
^XMB(3.9,55,2,24082,0)="SMPRTX ;"
^XMB(3.9,55,2,24083,0)="""RTN"",""IBCEPTR"",252,0)"
^XMB(3.9,55,2,24084,0)=" Q"
^XMB(3.9,55,2,24085,0)="""RTN"",""IBCEPTR"",253,0)"
^XMB(3.9,55,2,24086,0)=" ;"
^XMB(3.9,55,2,24087,0)="""RTN"",""IBCEPTR"",254,0)"
^XMB(3.9,55,2,24088,0)="HEADER ; page break and header"
^XMB(3.9,55,2,24089,0)="""RTN"",""IBCEPTR"",255,0)"
^XMB(3.9,55,2,24090,0)=" NEW LIN,HDR,TAB"
^XMB(3.9,55,2,24091,0)="""RTN"",""IBCEPTR"",256,0)"
^XMB(3.9,55,2,24092,0)=" S STOP=0"
^XMB(3.9,55,2,24093,0)="""RTN"",""IBCEPTR"",257,0)"
^XMB(3.9,55,2,24094,0)=" I CRT,PAGECNT>0,'$D(ZTQUEUED) D  I STOP G HEADX"
^XMB(3.9,55,2,24095,0)="""RTN"",""IBCEPTR"",258,0)"
^XMB(3.9,55,2,24096,0)=" . I MAXCNT<51 F LIN=1:1:(MAXCNT-$Y) W !"
^XMB(3.9,55,2,24097,0)="""RTN"",""IBCEPTR"",259,0)"
^XMB(3.9,55,2,24098,0)=" . S DIR(0)=""E"" D ^DIR K DIR"
^XMB(3.9,55,2,24099,0)="""RTN"",""IBCEPTR"",260,0)"
^XMB(3.9,55,2,24100,0)=" . I 'Y S STOP=1 Q"
^XMB(3.9,55,2,24101,0)="""RTN"",""IBCEPTR"",261,0)"
^XMB(3.9,55,2,24102,0)=" . Q"
^XMB(3.9,55,2,24103,0)="""RTN"",""IBCEPTR"",262,0)"
^XMB(3.9,55,2,24104,0)=" ;"
^XMB(3.9,55,2,24105,0)="""RTN"",""IBCEPTR"",263,0)"
^XMB(3.9,55,2,24106,0)=" S PAGECNT=PAGECNT+1"
^XMB(3.9,55,2,24107,0)="""RTN"",""IBCEPTR"",264,0)"
^XMB(3.9,55,2,24108,0)=" W @IOF,!"
^XMB(3.9,55,2,24109,0)="""RTN"",""IBCEPTR"",265,0)"
^XMB(3.9,55,2,24110,0)=" ;"
^XMB(3.9,55,2,24111,0)="""RTN"",""IBCEPTR"",266,0)"
^XMB(3.9,55,2,24112,0)=" W ""Test Claim EDI Transmission Report"""
^XMB(3.9,55,2,24113,0)="""RTN"",""IBCEPTR"",267,0)"
^XMB(3.9,55,2,24114,0)=" S HDR=""Page: ""_PAGECNT,TAB=80-$L(HDR)-1"
^XMB(3.9,55,2,24115,0)="""RTN"",""IBCEPTR"",268,0)"
^XMB(3.9,55,2,24116,0)=" W ?TAB,HDR"
^XMB(3.9,55,2,24117,0)="""RTN"",""IBCEPTR"",269,0)"
^XMB(3.9,55,2,24118,0)=" W !,""Selected "",$S(IBRMETH=""B"":""Batches"",IBRMETH=""C"":""Claims"",1:""Date Range"")"
^XMB(3.9,55,2,24119,0)="""RTN"",""IBCEPTR"",270,0)"
^XMB(3.9,55,2,24120,0)=" S HDR=$$FMTE^XLFDT($$NOW^XLFDT,""1Z""),TAB=80-$L(HDR)-1"
^XMB(3.9,55,2,24121,0)="""RTN"",""IBCEPTR"",271,0)"
^XMB(3.9,55,2,24122,0)=" W ?TAB,HDR"
^XMB(3.9,55,2,24123,0)="""RTN"",""IBCEPTR"",272,0)"
^XMB(3.9,55,2,24124,0)=" W !,$$RJ^XLFSTR("""",80,""="")"
^XMB(3.9,55,2,24125,0)="""RTN"",""IBCEPTR"",273,0)"
^XMB(3.9,55,2,24126,0)=" ;"
^XMB(3.9,55,2,24127,0)="""RTN"",""IBCEPTR"",274,0)"
^XMB(3.9,55,2,24128,0)=" ; check for a stop request"
^XMB(3.9,55,2,24129,0)="""RTN"",""IBCEPTR"",275,0)"
^XMB(3.9,55,2,24130,0)=" I $D(ZTQUEUED),$$S^%ZTLOAD() D  G HEADX"
^XMB(3.9,55,2,24131,0)="""RTN"",""IBCEPTR"",276,0)"
^XMB(3.9,55,2,24132,0)=" . S (ZTSTOP,STOP)=1"
^XMB(3.9,55,2,24133,0)="""RTN"",""IBCEPTR"",277,0)"
^XMB(3.9,55,2,24134,0)=" . W !!!?5,""*** Report Halted by TaskManager Request ***"""
^XMB(3.9,55,2,24135,0)="""RTN"",""IBCEPTR"",278,0)"
^XMB(3.9,55,2,24136,0)=" . Q"
^XMB(3.9,55,2,24137,0)="""RTN"",""IBCEPTR"",279,0)"
^XMB(3.9,55,2,24138,0)=" ;"
^XMB(3.9,55,2,24139,0)="""RTN"",""IBCEPTR"",280,0)"
^XMB(3.9,55,2,24140,0)="HEADX ;"
^XMB(3.9,55,2,24141,0)="""RTN"",""IBCEPTR"",281,0)"
^XMB(3.9,55,2,24142,0)=" Q"
^XMB(3.9,55,2,24143,0)="""RTN"",""IBCEPTR"",282,0)"
^XMB(3.9,55,2,24144,0)=" ;"
^XMB(3.9,55,2,24145,0)="""RTN"",""IBCEPTR"",283,0)"
^XMB(3.9,55,2,24146,0)="BT(IBIFN) ; bill type and info"
^XMB(3.9,55,2,24147,0)="""RTN"",""IBCEPTR"",284,0)"
^XMB(3.9,55,2,24148,0)=" ; [1] TYPE (form type, charge type, inp/outp)"
^XMB(3.9,55,2,24149,0)="""RTN"",""IBCEPTR"",285,0)"
^XMB(3.9,55,2,24150,0)=" ; [2] claim#"
^XMB(3.9,55,2,24151,0)="""RTN"",""IBCEPTR"",286,0)"
^XMB(3.9,55,2,24152,0)=" ; [3] patient name"
^XMB(3.9,55,2,24153,0)="""RTN"",""IBCEPTR"",287,0)"
^XMB(3.9,55,2,24154,0)=" NEW TYPE,IB0,F,C,S S TYPE="""""
^XMB(3.9,55,2,24155,0)="""RTN"",""IBCEPTR"",288,0)"
^XMB(3.9,55,2,24156,0)=" S IB0=$G(^DGCR(399,+$G(IBIFN),0)) I IB0="""" Q """""
^XMB(3.9,55,2,24157,0)="""RTN"",""IBCEPTR"",289,0)"
^XMB(3.9,55,2,24158,0)=" S F=$P(IB0,U,19),F=$S(F=2:""Hcfa"",1:""UB92"")"
^XMB(3.9,55,2,24159,0)="""RTN"",""IBCEPTR"",290,0)"
^XMB(3.9,55,2,24160,0)=" S C=$P(IB0,U,27),C=$S(C=1:""Inst"",1:""Prof"")"
^XMB(3.9,55,2,24161,0)="""RTN"",""IBCEPTR"",291,0)"
^XMB(3.9,55,2,24162,0)=" S S=$$INPAT^IBCEF(IBIFN),S=$S(S=1:""Inpat"",1:""Outpat"")"
^XMB(3.9,55,2,24163,0)="""RTN"",""IBCEPTR"",292,0)"
^XMB(3.9,55,2,24164,0)=" S TYPE=F_"", ""_C_"", ""_S"
^XMB(3.9,55,2,24165,0)="""RTN"",""IBCEPTR"",293,0)"
^XMB(3.9,55,2,24166,0)=" Q TYPE_U_$P(IB0,U,1)_U_$P($G(^DPT(+$P(IB0,U,2),0)),U,1)"
^XMB(3.9,55,2,24167,0)="""RTN"",""IBCEPTR"",294,0)"
^XMB(3.9,55,2,24168,0)=" ;"
^XMB(3.9,55,2,24169,0)="""RTN"",""IBCEPTR"",295,0)"
^XMB(3.9,55,2,24170,0)="CLMLST(IBIFN) ; DIC lister"
^XMB(3.9,55,2,24171,0)="""RTN"",""IBCEPTR"",296,0)"
^XMB(3.9,55,2,24172,0)=" NEW TYPE,LTD,N1,N2"
^XMB(3.9,55,2,24173,0)="""RTN"",""IBCEPTR"",297,0)"
^XMB(3.9,55,2,24174,0)=" S TYPE=$P($$BT(IBIFN),U,1)"
^XMB(3.9,55,2,24175,0)="""RTN"",""IBCEPTR"",298,0)"
^XMB(3.9,55,2,24176,0)=" S LTD=$$FMTE^XLFDT($P($G(^IBM(361.4,IBIFN,0)),U,2),""2Z"")"
^XMB(3.9,55,2,24177,0)="""RTN"",""IBCEPTR"",299,0)"
^XMB(3.9,55,2,24178,0)=" S N1=+$P($G(^IBM(361.4,IBIFN,1,0)),U,4)  ; # transmissions"
^XMB(3.9,55,2,24179,0)="""RTN"",""IBCEPTR"",300,0)"
^XMB(3.9,55,2,24180,0)=" S N2=+$P($G(^IBM(361.4,IBIFN,2,0)),U,4)  ; # return messages"
^XMB(3.9,55,2,24181,0)="""RTN"",""IBCEPTR"",301,0)"
^XMB(3.9,55,2,24182,0)=" W "" "",TYPE,?34,"" "",LTD,?45,"" "",N1,"" Transmission"",$S(N1'=1:""s"",1:"""")"
^XMB(3.9,55,2,24183,0)="""RTN"",""IBCEPTR"",302,0)"
^XMB(3.9,55,2,24184,0)=" W ?63,"" "",N2,"" Message"",$S(N2'=1:""s"",1:"""")"
^XMB(3.9,55,2,24185,0)="""RTN"",""IBCEPTR"",303,0)"
^XMB(3.9,55,2,24186,0)="CLMLSTX ;"
^XMB(3.9,55,2,24187,0)="""RTN"",""IBCEPTR"",304,0)"
^XMB(3.9,55,2,24188,0)=" Q"
^XMB(3.9,55,2,24189,0)="""RTN"",""IBCEPTR"",305,0)"
^XMB(3.9,55,2,24190,0)=" ;"
^XMB(3.9,55,2,24191,0)="""RTN"",""IBCEPU"")"
^XMB(3.9,55,2,24192,0)="0^52^B931985"
^XMB(3.9,55,2,24193,0)="""RTN"",""IBCEPU"",1,0)"
^XMB(3.9,55,2,24194,0)="IBCEPU ;ALB/TMP - Functions for PROVIDER ID MAINTENANCE ;13-DEC-99"
^XMB(3.9,55,2,24195,0)="""RTN"",""IBCEPU"",2,0)"
^XMB(3.9,55,2,24196,0)=" ;;2.0;INTEGRATED BILLING;**320**;21-MAR-94"
^XMB(3.9,55,2,24197,0)="""RTN"",""IBCEPU"",3,0)"
^XMB(3.9,55,2,24198,0)=" G AWAY"
^XMB(3.9,55,2,24199,0)="""RTN"",""IBCEPU"",4,0)"
^XMB(3.9,55,2,24200,0)="AWAY Q"
^XMB(3.9,55,2,24201,0)="""RTN"",""IBCEPU"",5,0)"
^XMB(3.9,55,2,24202,0)=" ; This routine is used by various input transforms to make sure the qualifiers "
^XMB(3.9,55,2,24203,0)="""RTN"",""IBCEPU"",6,0)"
^XMB(3.9,55,2,24204,0)=" ; comply with the spreadsheet of valid qualiers provided by CBO."
^XMB(3.9,55,2,24205,0)="""RTN"",""IBCEPU"",7,0)"
^XMB(3.9,55,2,24206,0)=" ;"
^XMB(3.9,55,2,24207,0)="""RTN"",""IBCEPU"",8,0)"
^XMB(3.9,55,2,24208,0)="LFINS(Y) ; Lab or Facility provided by insuance"
^XMB(3.9,55,2,24209,0)="""RTN"",""IBCEPU"",9,0)"
^XMB(3.9,55,2,24210,0)=" Q $$CHECK(""^1A^1B^1C^1H^G2^LU^N5^X5^"",Y)"
^XMB(3.9,55,2,24211,0)="""RTN"",""IBCEPU"",10,0)"
^XMB(3.9,55,2,24212,0)=" ;"
^XMB(3.9,55,2,24213,0)="""RTN"",""IBCEPU"",11,0)"
^XMB(3.9,55,2,24214,0)="NVALFOWN(Y) ; Non-VA Lab or Facility provided by Lab or Facility "
^XMB(3.9,55,2,24215,0)="""RTN"",""IBCEPU"",12,0)"
^XMB(3.9,55,2,24216,0)=" Q $$CHECK(""^0B^TJ^X4^X5^1G^"",Y)"
^XMB(3.9,55,2,24217,0)="""RTN"",""IBCEPU"",13,0)"
^XMB(3.9,55,2,24218,0)=" ;"
^XMB(3.9,55,2,24219,0)="""RTN"",""IBCEPU"",14,0)"
^XMB(3.9,55,2,24220,0)="BPS(Y) ; Billing Provider Secodnary IDs"
^XMB(3.9,55,2,24221,0)="""RTN"",""IBCEPU"",15,0)"
^XMB(3.9,55,2,24222,0)=" Q $$CHECK(""^0B^1A^1B^1C^1G^1H^B3^BQ^EI^FH^G2^LU^U3^X5^"",Y)"
^XMB(3.9,55,2,24223,0)="""RTN"",""IBCEPU"",16,0)"
^XMB(3.9,55,2,24224,0)=" ;"
^XMB(3.9,55,2,24225,0)="""RTN"",""IBCEPU"",17,0)"
^XMB(3.9,55,2,24226,0)="RAOWN(Y) ; Rendering/Attending et al own IDs"
^XMB(3.9,55,2,24227,0)="""RTN"",""IBCEPU"",18,0)"
^XMB(3.9,55,2,24228,0)=" Q $$CHECK(""^0B^1G^EI^X5^SY^"",Y)"
^XMB(3.9,55,2,24229,0)="""RTN"",""IBCEPU"",19,0)"
^XMB(3.9,55,2,24230,0)=" ;"
^XMB(3.9,55,2,24231,0)="""RTN"",""IBCEPU"",20,0)"
^XMB(3.9,55,2,24232,0)="RAINS(Y) ; Rendering/Attending et al provided by insurance"
^XMB(3.9,55,2,24233,0)="""RTN"",""IBCEPU"",21,0)"
^XMB(3.9,55,2,24234,0)=" Q $$CHECK(""^1A^1B^1C^1G^1H^G2^LU^N5^"",Y)"
^XMB(3.9,55,2,24235,0)="""RTN"",""IBCEPU"",22,0)"
^XMB(3.9,55,2,24236,0)=" ;"
^XMB(3.9,55,2,24237,0)="""RTN"",""IBCEPU"",23,0)"
^XMB(3.9,55,2,24238,0)="EPT(Y) ; Electronic Plan Type (used to calculate ID based on plan type)"
^XMB(3.9,55,2,24239,0)="""RTN"",""IBCEPU"",24,0)"
^XMB(3.9,55,2,24240,0)=" Q $$CHECK(""^1J^"",Y)"
^XMB(3.9,55,2,24241,0)="""RTN"",""IBCEPU"",25,0)"
^XMB(3.9,55,2,24242,0)="CHECK(X,Y) ;"
^XMB(3.9,55,2,24243,0)="""RTN"",""IBCEPU"",26,0)"
^XMB(3.9,55,2,24244,0)=" I '$P($G(^IBE(355.97,+Y,0)),U,8) Q 0"
^XMB(3.9,55,2,24245,0)="""RTN"",""IBCEPU"",27,0)"
^XMB(3.9,55,2,24246,0)=" N X12"
^XMB(3.9,55,2,24247,0)="""RTN"",""IBCEPU"",28,0)"
^XMB(3.9,55,2,24248,0)=" S X12=$P($G(^IBE(355.97,+Y,0)),U,3)"
^XMB(3.9,55,2,24249,0)="""RTN"",""IBCEPU"",29,0)"
^XMB(3.9,55,2,24250,0)=" Q:X12="""" 0"
^XMB(3.9,55,2,24251,0)="""RTN"",""IBCEPU"",30,0)"
^XMB(3.9,55,2,24252,0)=" S X12=U_X12_U"
^XMB(3.9,55,2,24253,0)="""RTN"",""IBCEPU"",31,0)"
^XMB(3.9,55,2,24254,0)=" I X[X12 Q 1"
^XMB(3.9,55,2,24255,0)="""RTN"",""IBCEPU"",32,0)"
^XMB(3.9,55,2,24256,0)=" Q 0"
^XMB(3.9,55,2,24257,0)="""RTN"",""IBCESRV"")"
^XMB(3.9,55,2,24258,0)="0^78^B69133762^B67439456"
^XMB(3.9,55,2,24259,0)="""RTN"",""IBCESRV"",1,0)"
^XMB(3.9,55,2,24260,0)="IBCESRV ;ALB/TMP - Server interface to IB from Austin ;8/6/03 10:04am"
^XMB(3.9,55,2,24261,0)="""RTN"",""IBCESRV"",2,0)"
^XMB(3.9,55,2,24262,0)=" ;;2.0;INTEGRATED BILLING;**137,181,196,232,296,320**;21-MAR-94"
^XMB(3.9,55,2,24263,0)="""RTN"",""IBCESRV"",3,0)"
^XMB(3.9,55,2,24264,0)=" ;"
^XMB(3.9,55,2,24265,0)="""RTN"",""IBCESRV"",4,0)"
^XMB(3.9,55,2,24266,0)="SERVER ; Entry point for server option to process EDI msgs received from Austin"
^XMB(3.9,55,2,24267,0)="""RTN"",""IBCESRV"",5,0)"
^XMB(3.9,55,2,24268,0)=" ;"
^XMB(3.9,55,2,24269,0)="""RTN"",""IBCESRV"",6,0)"
^XMB(3.9,55,2,24270,0)=" N IBEFLG,IBERR,IBTDA,XMER,IBXMZ,IBHOLDCT"
^XMB(3.9,55,2,24271,0)="""RTN"",""IBCESRV"",7,0)"
^XMB(3.9,55,2,24272,0)=" K ^TMP(""IBERR"",$J),^TMP(""IBMSG"",$J),^TMP(""IBMSGH"",$J),^TMP(""IB-HOLD"",$J),^TMP(""IBMSG-H"",$J)"
^XMB(3.9,55,2,24273,0)="""RTN"",""IBCESRV"",8,0)"
^XMB(3.9,55,2,24274,0)=" S IBXMZ=$G(XMZ)"
^XMB(3.9,55,2,24275,0)="""RTN"",""IBCESRV"",9,0)"
^XMB(3.9,55,2,24276,0)=" S IBEFLG=$$MSG(.XMER,.IBTDA,IBXMZ)"
^XMB(3.9,55,2,24277,0)="""RTN"",""IBCESRV"",10,0)"
^XMB(3.9,55,2,24278,0)=" D:$G(IBEFLG) PERROR^IBCESRV1(.IBERR,.IBTDA,""G.IB EDI"",IBXMZ)"
^XMB(3.9,55,2,24279,0)="""RTN"",""IBCESRV"",11,0)"
^XMB(3.9,55,2,24280,0)=" N ZTREQ"
^XMB(3.9,55,2,24281,0)="""RTN"",""IBCESRV"",12,0)"
^XMB(3.9,55,2,24282,0)=" D DKILL^IBCESRV1(IBXMZ) S ZTREQ=""@"""
^XMB(3.9,55,2,24283,0)="""RTN"",""IBCESRV"",13,0)"
^XMB(3.9,55,2,24284,0)=" K ^TMP(""IBERR"",$J),^TMP(""IBMSG"",$J),^TMP(""IBMSGH"",$J),^TMP(""IB-HOLD"",$J),^TMP(""IBMSG-H"",$J)"
^XMB(3.9,55,2,24285,0)="""RTN"",""IBCESRV"",14,0)"
^XMB(3.9,55,2,24286,0)=" Q"
^XMB(3.9,55,2,24287,0)="""RTN"",""IBCESRV"",15,0)"
^XMB(3.9,55,2,24288,0)=" ;"
^XMB(3.9,55,2,24289,0)="""RTN"",""IBCESRV"",16,0)"
^XMB(3.9,55,2,24290,0)="MSG(XMER,IBTDA,IBXMZ) ; Read/Store message lines"
^XMB(3.9,55,2,24291,0)="""RTN"",""IBCESRV"",17,0)"
^XMB(3.9,55,2,24292,0)=" ;     Return message formats:"
^XMB(3.9,55,2,24293,0)="""RTN"",""IBCESRV"",18,0)"
^XMB(3.9,55,2,24294,0)=" ;        Ref:  Your <queue name> message #<msg#> with Austin ID #<id #>,"
^XMB(3.9,55,2,24295,0)="""RTN"",""IBCESRV"",19,0)"
^XMB(3.9,55,2,24296,0)=" ;              is assigned confirmation number <confirmation #>."
^XMB(3.9,55,2,24297,0)="""RTN"",""IBCESRV"",20,0)"
^XMB(3.9,55,2,24298,0)=" ;              Generates an 837REC0 message"
^XMB(3.9,55,2,24299,0)="""RTN"",""IBCESRV"",21,0)"
^XMB(3.9,55,2,24300,0)=" ;        277STAT - claim status messages - Generates one or more 837REC1"
^XMB(3.9,55,2,24301,0)="""RTN"",""IBCESRV"",22,0)"
^XMB(3.9,55,2,24302,0)=" ;                                          837REC2 or 837REJ1 messages"
^XMB(3.9,55,2,24303,0)="""RTN"",""IBCESRV"",23,0)"
^XMB(3.9,55,2,24304,0)=" ;        837DEL - bill entry # from File 364"
^XMB(3.9,55,2,24305,0)="""RTN"",""IBCESRV"",24,0)"
^XMB(3.9,55,2,24306,0)=" ;        835EOB - Explanation of Benefits messages"
^XMB(3.9,55,2,24307,0)="""RTN"",""IBCESRV"",25,0)"
^XMB(3.9,55,2,24308,0)=" ;        REPORT - Free text Envoy report file - may contain one or more"
^XMB(3.9,55,2,24309,0)="""RTN"",""IBCESRV"",26,0)"
^XMB(3.9,55,2,24310,0)=" ;                 reports that are turned into bulletins"
^XMB(3.9,55,2,24311,0)="""RTN"",""IBCESRV"",27,0)"
^XMB(3.9,55,2,24312,0)=" ;"
^XMB(3.9,55,2,24313,0)="""RTN"",""IBCESRV"",28,0)"
^XMB(3.9,55,2,24314,0)=" ; OUTPUT:"
^XMB(3.9,55,2,24315,0)="""RTN"",""IBCESRV"",29,0)"
^XMB(3.9,55,2,24316,0)=" ;  Function returns flag ... 0 = no errors    1 = errors"
^XMB(3.9,55,2,24317,0)="""RTN"",""IBCESRV"",30,0)"
^XMB(3.9,55,2,24318,0)=" ;  IBTDA - array subscripted by ien of message file entries created"
^XMB(3.9,55,2,24319,0)="""RTN"",""IBCESRV"",31,0)"
^XMB(3.9,55,2,24320,0)=" ;          If array entry = 1, the message was only partially stored"
^XMB(3.9,55,2,24321,0)="""RTN"",""IBCESRV"",32,0)"
^XMB(3.9,55,2,24322,0)=" ;"
^XMB(3.9,55,2,24323,0)="""RTN"",""IBCESRV"",33,0)"
^XMB(3.9,55,2,24324,0)=" N IBLAST,IBTYP,IBTYP1,IB0,IBBTCH,IBDATE,IBHD,IBMG,IBRTN,IBTXN,IBTXND,XMDUZ,IBGBL,IBD,IBEFLG,IBHOLDCT,IBWANT,X,Y,Z"
^XMB(3.9,55,2,24325,0)="""RTN"",""IBCESRV"",34,0)"
^XMB(3.9,55,2,24326,0)=" K ^TMP(""IBERR"",$J),^TMP(""IBMSG"",$J),^TMP(""IBMSGH"",$J),^TMP(""IB-HOLD"",$J)"
^XMB(3.9,55,2,24327,0)="""RTN"",""IBCESRV"",35,0)"
^XMB(3.9,55,2,24328,0)=" ;"
^XMB(3.9,55,2,24329,0)="""RTN"",""IBCESRV"",36,0)"
^XMB(3.9,55,2,24330,0)=" S (IBEFLG,IBERR,IBTXN)="""",IBGBL=""IBTXN"",IBLAST=0"
^XMB(3.9,55,2,24331,0)="""RTN"",""IBCESRV"",37,0)"
^XMB(3.9,55,2,24332,0)=" S IBD(""MSG#"")=IBXMZ"
^XMB(3.9,55,2,24333,0)="""RTN"",""IBCESRV"",38,0)"
^XMB(3.9,55,2,24334,0)=" S IBHD=$$NET^XMRENT(IBXMZ)"
^XMB(3.9,55,2,24335,0)="""RTN"",""IBCESRV"",39,0)"
^XMB(3.9,55,2,24336,0)=" S IBD(""SUBJ"")=$P(IBHD,U,6)"
^XMB(3.9,55,2,24337,0)="""RTN"",""IBCESRV"",40,0)"
^XMB(3.9,55,2,24338,0)=" S (X,IBDATE)=$P(IBHD,U)"
^XMB(3.9,55,2,24339,0)="""RTN"",""IBCESRV"",41,0)"
^XMB(3.9,55,2,24340,0)=" I X'="""" D  ;Reformat date, if needed"
^XMB(3.9,55,2,24341,0)="""RTN"",""IBCESRV"",42,0)"
^XMB(3.9,55,2,24342,0)=" . I X'[""@"" S X=$P(X,"" "",1,3)_""@""_$P(X,"" "",4)"
^XMB(3.9,55,2,24343,0)="""RTN"",""IBCESRV"",43,0)"
^XMB(3.9,55,2,24344,0)=" . N %DT"
^XMB(3.9,55,2,24345,0)="""RTN"",""IBCESRV"",44,0)"
^XMB(3.9,55,2,24346,0)=" . S %DT=""XTS"" D ^%DT S:Y>0 IBDATE=Y\.0001*.0001"
^XMB(3.9,55,2,24347,0)="""RTN"",""IBCESRV"",45,0)"
^XMB(3.9,55,2,24348,0)=" ;"
^XMB(3.9,55,2,24349,0)="""RTN"",""IBCESRV"",46,0)"
^XMB(3.9,55,2,24350,0)=" K ^TMP(""IB-HOLD"",$J) N IBHOLDCT S IBHOLDCT=0"
^XMB(3.9,55,2,24351,0)="""RTN"",""IBCESRV"",47,0)"
^XMB(3.9,55,2,24352,0)=" S IBD(""Q"")=$E(IBD(""SUBJ""),1,3)"
^XMB(3.9,55,2,24353,0)="""RTN"",""IBCESRV"",48,0)"
^XMB(3.9,55,2,24354,0)=" I $G(IBD(""SUBJ""))?.E1(1"" MCR"",1"" MCT"",1"" MCH"")1"" Confirmation"" D  G MSGQ:$G(IBERR),MSG1"
^XMB(3.9,55,2,24355,0)="""RTN"",""IBCESRV"",49,0)"
^XMB(3.9,55,2,24356,0)=" . S IBD(""Q"")=""MC""_$E($P(IBD(""SUBJ""),"" MC"",2))"
^XMB(3.9,55,2,24357,0)="""RTN"",""IBCESRV"",50,0)"
^XMB(3.9,55,2,24358,0)=" . ;Austin confirmation"
^XMB(3.9,55,2,24359,0)="""RTN"",""IBCESRV"",51,0)"
^XMB(3.9,55,2,24360,0)=" . X XMREC ; Line 1 of message"
^XMB(3.9,55,2,24361,0)="""RTN"",""IBCESRV"",52,0)"
^XMB(3.9,55,2,24362,0)=" . S:XMER'<0 IBHOLDCT=IBHOLDCT+1,^TMP(""IB-HOLD"",$J,IBHOLDCT)=XMRG"
^XMB(3.9,55,2,24363,0)="""RTN"",""IBCESRV"",53,0)"
^XMB(3.9,55,2,24364,0)=" . I XMER<0 D  Q"
^XMB(3.9,55,2,24365,0)="""RTN"",""IBCESRV"",54,0)"
^XMB(3.9,55,2,24366,0)=" .. S IBERR=3"
^XMB(3.9,55,2,24367,0)="""RTN"",""IBCESRV"",55,0)"
^XMB(3.9,55,2,24368,0)=" .. S ^TMP(""IBERR"",$J,""MSG"",1)=IBHD"
^XMB(3.9,55,2,24369,0)="""RTN"",""IBCESRV"",56,0)"
^XMB(3.9,55,2,24370,0)=" .. S ^TMP(""IBERR"",$J,""MSG"",2)=$G(XMRG)"
^XMB(3.9,55,2,24371,0)="""RTN"",""IBCESRV"",57,0)"
^XMB(3.9,55,2,24372,0)=" . S IBTXN=XMRG"
^XMB(3.9,55,2,24373,0)="""RTN"",""IBCESRV"",58,0)"
^XMB(3.9,55,2,24374,0)=" . S IBBTCH=+$O(^IBA(364.1,""MSG"",+$P(IBTXN,""#"",2)\1,""""))"
^XMB(3.9,55,2,24375,0)="""RTN"",""IBCESRV"",59,0)"
^XMB(3.9,55,2,24376,0)=" . I 'IBBTCH S IBERR=6 D REST(.IBTXN,IBGBL) Q  ;No msgs match conf recpt"
^XMB(3.9,55,2,24377,0)="""RTN"",""IBCESRV"",60,0)"
^XMB(3.9,55,2,24378,0)=" . S IBTXN(""BATCH"",IBBTCH,0)=""837REC0^""_IBD(""MSG#"")_U_+$E($P(IBD(""SUBJ""),"" ""),4,14)_""^^""_IBBTCH_U_IBDATE"
^XMB(3.9,55,2,24379,0)="""RTN"",""IBCESRV"",61,0)"
^XMB(3.9,55,2,24380,0)=" . ;"
^XMB(3.9,55,2,24381,0)="""RTN"",""IBCESRV"",62,0)"
^XMB(3.9,55,2,24382,0)=" . X XMREC ;Get second line of the message"
^XMB(3.9,55,2,24383,0)="""RTN"",""IBCESRV"",63,0)"
^XMB(3.9,55,2,24384,0)=" . I XMER<0 S IBERR=2 Q"
^XMB(3.9,55,2,24385,0)="""RTN"",""IBCESRV"",64,0)"
^XMB(3.9,55,2,24386,0)=" . S IBTXN(""BATCH"",IBBTCH,1)=IBTXN_"" ""_XMRG_""$"",IBTXN=IBTXN(""BATCH"",IBBTCH,0)"
^XMB(3.9,55,2,24387,0)="""RTN"",""IBCESRV"",65,0)"
^XMB(3.9,55,2,24388,0)=" . S IBHOLDCT=IBHOLDCT+1,^TMP(""IB-HOLD"",$J,IBHOLDCT)=XMRG"
^XMB(3.9,55,2,24389,0)="""RTN"",""IBCESRV"",66,0)"
^XMB(3.9,55,2,24390,0)=" . S IBLAST=1"
^XMB(3.9,55,2,24391,0)="""RTN"",""IBCESRV"",67,0)"
^XMB(3.9,55,2,24392,0)=" ;"
^XMB(3.9,55,2,24393,0)="""RTN"",""IBCESRV"",68,0)"
^XMB(3.9,55,2,24394,0)=" ; Read header line of non-confirmation message (line 1)"
^XMB(3.9,55,2,24395,0)="""RTN"",""IBCESRV"",69,0)"
^XMB(3.9,55,2,24396,0)=" F  X XMREC Q:$S(XMER<0:1,1:$E(XMRG,1,13)'=""RACUBOTH RUCH"")"
^XMB(3.9,55,2,24397,0)="""RTN"",""IBCESRV"",70,0)"
^XMB(3.9,55,2,24398,0)=" S:XMER'<0 IBHOLDCT=IBHOLDCT+1,^TMP(""IB-HOLD"",$J,IBHOLDCT)=XMRG"
^XMB(3.9,55,2,24399,0)="""RTN"",""IBCESRV"",71,0)"
^XMB(3.9,55,2,24400,0)=" I XMER<0 D  G MSGQ"
^XMB(3.9,55,2,24401,0)="""RTN"",""IBCESRV"",72,0)"
^XMB(3.9,55,2,24402,0)=" . S IBERR=3"
^XMB(3.9,55,2,24403,0)="""RTN"",""IBCESRV"",73,0)"
^XMB(3.9,55,2,24404,0)=" . S ^TMP(""IBERR"",$J,""MSG"",1)=IBHD"
^XMB(3.9,55,2,24405,0)="""RTN"",""IBCESRV"",74,0)"
^XMB(3.9,55,2,24406,0)=" . S ^TMP(""IBERR"",$J,""MSG"",2)=$G(XMRG)"
^XMB(3.9,55,2,24407,0)="""RTN"",""IBCESRV"",75,0)"
^XMB(3.9,55,2,24408,0)=" ;"
^XMB(3.9,55,2,24409,0)="""RTN"",""IBCESRV"",76,0)"
^XMB(3.9,55,2,24410,0)=" S IBTXN=XMRG"
^XMB(3.9,55,2,24411,0)="""RTN"",""IBCESRV"",77,0)"
^XMB(3.9,55,2,24412,0)="MSG1 I $E(IBTXN,$L(IBTXN)-3,$L(IBTXN))?3A1"".""!(IBTXN=""NNNN""),IBHOLDCT>1 S XMER=-1,IBLAST=1 G MSGQ"
^XMB(3.9,55,2,24413,0)="""RTN"",""IBCESRV"",78,0)"
^XMB(3.9,55,2,24414,0)=" ;"
^XMB(3.9,55,2,24415,0)="""RTN"",""IBCESRV"",79,0)"
^XMB(3.9,55,2,24416,0)=" S IBTYP1=$S($P(IBTXN,U)=""277STAT"":""837REC1"",1:$P(IBTXN,U))"
^XMB(3.9,55,2,24417,0)="""RTN"",""IBCESRV"",80,0)"
^XMB(3.9,55,2,24418,0)=" S IBTYP=$S(IBTYP1="""":"""",1:$O(^IBE(364.3,""B"",IBTYP1,"""")))"
^XMB(3.9,55,2,24419,0)="""RTN"",""IBCESRV"",81,0)"
^XMB(3.9,55,2,24420,0)=" I IBTYP="""" S IBERR=1 D REST(.IBTXN,IBGBL) G MSGQ ;Bad msg type"
^XMB(3.9,55,2,24421,0)="""RTN"",""IBCESRV"",82,0)"
^XMB(3.9,55,2,24422,0)=" ;"
^XMB(3.9,55,2,24423,0)="""RTN"",""IBCESRV"",83,0)"
^XMB(3.9,55,2,24424,0)=" S IB0=$G(^IBE(364.3,IBTYP,0)),IBRTN=$P(IB0,U,3,4),IBMG=$P(IB0,U,2)"
^XMB(3.9,55,2,24425,0)="""RTN"",""IBCESRV"",84,0)"
^XMB(3.9,55,2,24426,0)=" I $TR(IBRTN,U)="""" S IBERR=5 D REST(.IBTXN,IBGBL) G MSGQ ;No routine defined"
^XMB(3.9,55,2,24427,0)="""RTN"",""IBCESRV"",85,0)"
^XMB(3.9,55,2,24428,0)=" ;"
^XMB(3.9,55,2,24429,0)="""RTN"",""IBCESRV"",86,0)"
^XMB(3.9,55,2,24430,0)=" S IBWANT=1"
^XMB(3.9,55,2,24431,0)="""RTN"",""IBCESRV"",87,0)"
^XMB(3.9,55,2,24432,0)=" I 'IBLAST,XMER'<0 D  G:IBLAST&(XMER<0) MSGQ ;Message is other than Austin confirmation"
^XMB(3.9,55,2,24433,0)="""RTN"",""IBCESRV"",88,0)"
^XMB(3.9,55,2,24434,0)=" . S IBGBL=""^TMP(""""IBMSG"""",""_$J_"")"""
^XMB(3.9,55,2,24435,0)="""RTN"",""IBCESRV"",89,0)"
^XMB(3.9,55,2,24436,0)=" . S @IBGBL=$P(IBTXN,U),^TMP(""IBMSGH"",$J,0)=IBTXN"
^XMB(3.9,55,2,24437,0)="""RTN"",""IBCESRV"",90,0)"
^XMB(3.9,55,2,24438,0)=" . ;"
^XMB(3.9,55,2,24439,0)="""RTN"",""IBCESRV"",91,0)"
^XMB(3.9,55,2,24440,0)=" . I $P(IBTXN,U)=""277STAT"" D  Q  ;Claim status message"
^XMB(3.9,55,2,24441,0)="""RTN"",""IBCESRV"",92,0)"
^XMB(3.9,55,2,24442,0)=" .. F  X XMREC Q:XMER<0  D  Q:IBLAST  ;Extract rest of message"
^XMB(3.9,55,2,24443,0)="""RTN"",""IBCESRV"",93,0)"
^XMB(3.9,55,2,24444,0)=" ... S IBHOLDCT=IBHOLDCT+1,^TMP(""IB-HOLD"",$J,IBHOLDCT)=XMRG"
^XMB(3.9,55,2,24445,0)="""RTN"",""IBCESRV"",94,0)"
^XMB(3.9,55,2,24446,0)=" ... I +XMRG=99,$P(XMRG,U,2)=""$"" S IBLAST=1 Q"
^XMB(3.9,55,2,24447,0)="""RTN"",""IBCESRV"",95,0)"
^XMB(3.9,55,2,24448,0)=" ... S IBD=XMRG,Z=+XMRG_""^IBCE277(.IBD)"""
^XMB(3.9,55,2,24449,0)="""RTN"",""IBCESRV"",96,0)"
^XMB(3.9,55,2,24450,0)=" ... S IBTXN=XMRG"
^XMB(3.9,55,2,24451,0)="""RTN"",""IBCESRV"",97,0)"
^XMB(3.9,55,2,24452,0)=" ... I '$$CKLABEL(Z,.IBTXN,IBGBL) S IBLAST=1,IBWANT=0,XMER=-1,IBERR=7 Q"
^XMB(3.9,55,2,24453,0)="""RTN"",""IBCESRV"",98,0)"
^XMB(3.9,55,2,24454,0)=" ... D @Z"
^XMB(3.9,55,2,24455,0)="""RTN"",""IBCESRV"",99,0)"
^XMB(3.9,55,2,24456,0)=" . ;"
^XMB(3.9,55,2,24457,0)="""RTN"",""IBCESRV"",100,0)"
^XMB(3.9,55,2,24458,0)=" . I $P(IBTXN,U)=""835EOB"" D  Q  ;Explanation of Benefits message"
^XMB(3.9,55,2,24459,0)="""RTN"",""IBCESRV"",101,0)"
^XMB(3.9,55,2,24460,0)=" .. F  X XMREC Q:XMER<0  D  Q:IBLAST  ;Extract rest of message"
^XMB(3.9,55,2,24461,0)="""RTN"",""IBCESRV"",102,0)"
^XMB(3.9,55,2,24462,0)=" ... S IBHOLDCT=IBHOLDCT+1,^TMP(""IB-HOLD"",$J,IBHOLDCT)=XMRG"
^XMB(3.9,55,2,24463,0)="""RTN"",""IBCESRV"",103,0)"
^XMB(3.9,55,2,24464,0)=" ... I +XMRG=99,$P(XMRG,U,2)=""$"" S IBLAST=1 Q"
^XMB(3.9,55,2,24465,0)="""RTN"",""IBCESRV"",104,0)"
^XMB(3.9,55,2,24466,0)=" ... S IBD=XMRG,Z=+XMRG_""^IBCE835(.IBD)"""
^XMB(3.9,55,2,24467,0)="""RTN"",""IBCESRV"",105,0)"
^XMB(3.9,55,2,24468,0)=" ... S IBTXN=XMRG"
^XMB(3.9,55,2,24469,0)="""RTN"",""IBCESRV"",106,0)"
^XMB(3.9,55,2,24470,0)=" ... I '$$CKLABEL(Z,.IBTXN,IBGBL) S IBLAST=1,IBWANT=0,XMER=-1,IBERR=7 Q"
^XMB(3.9,55,2,24471,0)="""RTN"",""IBCESRV"",107,0)"
^XMB(3.9,55,2,24472,0)=" ... D @Z"
^XMB(3.9,55,2,24473,0)="""RTN"",""IBCESRV"",108,0)"
^XMB(3.9,55,2,24474,0)=" . ;"
^XMB(3.9,55,2,24475,0)="""RTN"",""IBCESRV"",109,0)"
^XMB(3.9,55,2,24476,0)=" . I $P(IBTXN,U)=""REPORT"" D  Q  ; Report file"
^XMB(3.9,55,2,24477,0)="""RTN"",""IBCESRV"",110,0)"
^XMB(3.9,55,2,24478,0)=" .. D REPORT^IBCERPT(IBHD,IBDATE,.IBD,IBTXN)"
^XMB(3.9,55,2,24479,0)="""RTN"",""IBCESRV"",111,0)"
^XMB(3.9,55,2,24480,0)=" .. I '$O(^TMP(""IBMSG"",$J,""REPORT"",0,""D"",0,0)) S IBWANT=0"
^XMB(3.9,55,2,24481,0)="""RTN"",""IBCESRV"",112,0)"
^XMB(3.9,55,2,24482,0)=" . ;"
^XMB(3.9,55,2,24483,0)="""RTN"",""IBCESRV"",113,0)"
^XMB(3.9,55,2,24484,0)=" . ; ****** Insert code for additional message types here and in ^IBCEM"
^XMB(3.9,55,2,24485,0)="""RTN"",""IBCESRV"",114,0)"
^XMB(3.9,55,2,24486,0)=" ;"
^XMB(3.9,55,2,24487,0)="""RTN"",""IBCESRV"",115,0)"
^XMB(3.9,55,2,24488,0)=" I IBLAST,IBWANT D ADD(IBGBL,.IBTDA,.IBERR)"
^XMB(3.9,55,2,24489,0)="""RTN"",""IBCESRV"",116,0)"
^XMB(3.9,55,2,24490,0)=" ;"
^XMB(3.9,55,2,24491,0)="""RTN"",""IBCESRV"",117,0)"
^XMB(3.9,55,2,24492,0)=" I 'IBLAST,'$G(IBERR) K @IBGBL S IBERR=2 ;No $ as last character of message"
^XMB(3.9,55,2,24493,0)="""RTN"",""IBCESRV"",118,0)"
^XMB(3.9,55,2,24494,0)="MSGQ I $G(IBERR) D ERRUPD^IBCESRV1(IBGBL,.IBERR) S IBEFLG=1"
^XMB(3.9,55,2,24495,0)="""RTN"",""IBCESRV"",119,0)"
^XMB(3.9,55,2,24496,0)=" Q IBEFLG"
^XMB(3.9,55,2,24497,0)="""RTN"",""IBCESRV"",120,0)"
^XMB(3.9,55,2,24498,0)=" ;"
^XMB(3.9,55,2,24499,0)="""RTN"",""IBCESRV"",121,0)"
^XMB(3.9,55,2,24500,0)="REST(IBTXN,IBGBL) ;Extract raw message data if not id-ed or can't process"
^XMB(3.9,55,2,24501,0)="""RTN"",""IBCESRV"",122,0)"
^XMB(3.9,55,2,24502,0)=" N CT,Z"
^XMB(3.9,55,2,24503,0)="""RTN"",""IBCESRV"",123,0)"
^XMB(3.9,55,2,24504,0)=" S CT=0"
^XMB(3.9,55,2,24505,0)="""RTN"",""IBCESRV"",124,0)"
^XMB(3.9,55,2,24506,0)=" S Z=0 F  S Z=$O(^TMP(""IB-HOLD"",$J,Z)) Q:'Z  S CT=CT+1,@IBGBL@(""BATCH"",0,""D"",0,CT)=""##RAW DATA: ""_$G(^TMP(""IB-HOLD"",$J,Z))"
^XMB(3.9,55,2,24507,0)="""RTN"",""IBCESRV"",125,0)"
^XMB(3.9,55,2,24508,0)=" F  X XMREC Q:XMER<0  S:XMRG'="""" CT=CT+1,@IBGBL@(""BATCH"",0,""D"",0,CT)=""##RAW DATA: ""_XMRG"
^XMB(3.9,55,2,24509,0)="""RTN"",""IBCESRV"",126,0)"
^XMB(3.9,55,2,24510,0)=" Q"
^XMB(3.9,55,2,24511,0)="""RTN"",""IBCESRV"",127,0)"
^XMB(3.9,55,2,24512,0)=" ;"
^XMB(3.9,55,2,24513,0)="""RTN"",""IBCESRV"",128,0)"
^XMB(3.9,55,2,24514,0)="ADD(IBGBL,IBTDA,IBERR) ; Add message(s) in @IBGBL to file #364.2"
^XMB(3.9,55,2,24515,0)="""RTN"",""IBCESRV"",129,0)"
^XMB(3.9,55,2,24516,0)=" ;   Errors returned in IBERR"
^XMB(3.9,55,2,24517,0)="""RTN"",""IBCESRV"",130,0)"
^XMB(3.9,55,2,24518,0)=" ;   Message entry #'s are returned in IBTDA(ien)="""""
^XMB(3.9,55,2,24519,0)="""RTN"",""IBCESRV"",131,0)"
^XMB(3.9,55,2,24520,0)=" ;"
^XMB(3.9,55,2,24521,0)="""RTN"",""IBCESRV"",132,0)"
^XMB(3.9,55,2,24522,0)=" N IB,IBA,IBB,IBC,IBDATA,IBHDR,IBLINE,IBTYP,IBRTN"
^XMB(3.9,55,2,24523,0)="""RTN"",""IBCESRV"",133,0)"
^XMB(3.9,55,2,24524,0)=" S IBA="""" F  S IBA=$O(@IBGBL@(IBA)) Q:IBA=""""!(IBERR=3)  S IBB="""" F  S IBB=$O(@IBGBL@(IBA,IBB)) Q:IBB=""""!(IBERR=3)  D"
^XMB(3.9,55,2,24525,0)="""RTN"",""IBCESRV"",134,0)"
^XMB(3.9,55,2,24526,0)=" . S IBHDR=$G(@IBGBL@(IBA,IBB,0))"
^XMB(3.9,55,2,24527,0)="""RTN"",""IBCESRV"",135,0)"
^XMB(3.9,55,2,24528,0)=" . Q:IBHDR="""""
^XMB(3.9,55,2,24529,0)="""RTN"",""IBCESRV"",136,0)"
^XMB(3.9,55,2,24530,0)=" . S IBTYP=$S($P(IBHDR,U)="""":"""",1:$O(^IBE(364.3,""B"",$P(IBHDR,U),""""))),IBRTN=$P($G(^IBE(364.3,IBTYP,0)),U,3,4)"
^XMB(3.9,55,2,24531,0)="""RTN"",""IBCESRV"",137,0)"
^XMB(3.9,55,2,24532,0)=" . S IBTDA=$$ADDTXN(IBHDR) ;File message hdr data"
^XMB(3.9,55,2,24533,0)="""RTN"",""IBCESRV"",138,0)"
^XMB(3.9,55,2,24534,0)=" . I IBTDA'>0 S IBERR=3 Q  ;msg hdr can't be filed"
^XMB(3.9,55,2,24535,0)="""RTN"",""IBCESRV"",139,0)"
^XMB(3.9,55,2,24536,0)=" . S IBTDA(IBTDA)="""""
^XMB(3.9,55,2,24537,0)="""RTN"",""IBCESRV"",140,0)"
^XMB(3.9,55,2,24538,0)=" . D LOADDET(IBA,IBB,.IBTDA,IBGBL,.IBERR,$P(IBHDR,U,1))"
^XMB(3.9,55,2,24539,0)="""RTN"",""IBCESRV"",141,0)"
^XMB(3.9,55,2,24540,0)=" . Q:$G(IBERR)  ;Message not completely filed"
^XMB(3.9,55,2,24541,0)="""RTN"",""IBCESRV"",142,0)"
^XMB(3.9,55,2,24542,0)=" . D TRTN^IBCESRV1(IBTDA):$TR(IBRTN,U)'="""" ;Task update to run"
^XMB(3.9,55,2,24543,0)="""RTN"",""IBCESRV"",143,0)"
^XMB(3.9,55,2,24544,0)=" Q"
^XMB(3.9,55,2,24545,0)="""RTN"",""IBCESRV"",144,0)"
^XMB(3.9,55,2,24546,0)=" ;"
^XMB(3.9,55,2,24547,0)="""RTN"",""IBCESRV"",145,0)"
^XMB(3.9,55,2,24548,0)="ADDTXN(IBDATA,REPORT) ; Add a trxn for msg in IBDATA to file 364.2"
^XMB(3.9,55,2,24549,0)="""RTN"",""IBCESRV"",146,0)"
^XMB(3.9,55,2,24550,0)=" ; REPORT = 1 if storing a report format message"
^XMB(3.9,55,2,24551,0)="""RTN"",""IBCESRV"",147,0)"
^XMB(3.9,55,2,24552,0)=" ;Function returns ien of the new entry in file 364.2 or """" if an error"
^XMB(3.9,55,2,24553,0)="""RTN"",""IBCESRV"",148,0)"
^XMB(3.9,55,2,24554,0)=" ;"
^XMB(3.9,55,2,24555,0)="""RTN"",""IBCESRV"",149,0)"
^XMB(3.9,55,2,24556,0)=" N A,IBDA,IBBTCH,IBBILL,IBDT,IBTEST,DLAYGO,DIC,DD,DO,X,Y,Z,IBIFN"
^XMB(3.9,55,2,24557,0)="""RTN"",""IBCESRV"",150,0)"
^XMB(3.9,55,2,24558,0)=" ;"
^XMB(3.9,55,2,24559,0)="""RTN"",""IBCESRV"",151,0)"
^XMB(3.9,55,2,24560,0)=" S IBDA="""",IBBTCH=$P(IBDATA,U,5),IBBILL=$P(IBDATA,U,4),IBIFN=0"
^XMB(3.9,55,2,24561,0)="""RTN"",""IBCESRV"",152,0)"
^XMB(3.9,55,2,24562,0)=" I IBBILL S IBIFN=+$G(^IBA(364,IBBILL,0))"
^XMB(3.9,55,2,24563,0)="""RTN"",""IBCESRV"",153,0)"
^XMB(3.9,55,2,24564,0)=" S IBDT=$P(IBDATA,U,6)"
^XMB(3.9,55,2,24565,0)="""RTN"",""IBCESRV"",154,0)"
^XMB(3.9,55,2,24566,0)=" S IBTEST=0"
^XMB(3.9,55,2,24567,0)="""RTN"",""IBCESRV"",155,0)"
^XMB(3.9,55,2,24568,0)=" I $E($G(IBD(""Q"")),1,3)=""MCT"" D"
^XMB(3.9,55,2,24569,0)="""RTN"",""IBCESRV"",156,0)"
^XMB(3.9,55,2,24570,0)=" . I IBBILL,'$P($G(^IBA(364,IBBILL,0)),U,7),$D(^IBM(361.4,IBIFN,0)) S IBTEST=1 Q  ; Resubmit live claim for test (make sure 361.4 exists)"
^XMB(3.9,55,2,24571,0)="""RTN"",""IBCESRV"",157,0)"
^XMB(3.9,55,2,24572,0)=" . I IBBTCH,$O(^IBM(361.4,""C"",IBBTCH,0)) S IBTEST=1 Q  ; Resubmit live claim as test batch"
^XMB(3.9,55,2,24573,0)="""RTN"",""IBCESRV"",158,0)"
^XMB(3.9,55,2,24574,0)=" ;"
^XMB(3.9,55,2,24575,0)="""RTN"",""IBCESRV"",159,0)"
^XMB(3.9,55,2,24576,0)=" S (X,A)=$G(IBD(""MSG#"")) ; Use msg ID for .01 field"
^XMB(3.9,55,2,24577,0)="""RTN"",""IBCESRV"",160,0)"
^XMB(3.9,55,2,24578,0)=" F Z=1:1 Q:'$D(^IBA(364.2,""B"",A))  S A=X_"".""_Z"
^XMB(3.9,55,2,24579,0)="""RTN"",""IBCESRV"",161,0)"
^XMB(3.9,55,2,24580,0)=" S X=A"
^XMB(3.9,55,2,24581,0)="""RTN"",""IBCESRV"",162,0)"
^XMB(3.9,55,2,24582,0)=" S DIC(0)=""L"",DIC=""^IBA(364.2,"",DLAYGO=364.2"
^XMB(3.9,55,2,24583,0)="""RTN"",""IBCESRV"",163,0)"
^XMB(3.9,55,2,24584,0)=" S DIC(""DR"")="".02///""_$P(IBDATA,U)_"";.03///^S X=""""NOW"""";.08////""_($P(IBDATA,U,7)=""Y"")_"";.13////""_$P(IBDATA,U,8)_$S(IBBILL="""":"""",1:"";.05////""_IBBILL)_"";.06////P;.1////""_IBDT_$S(IBBTCH="""":"""",1:"";.04////""_IBBTCH)_"";.14////""_IBTEST"
^XMB(3.9,55,2,24585,0)="""RTN"",""IBCESRV"",164,0)"
^XMB(3.9,55,2,24586,0)=" D FILE^DICN"
^XMB(3.9,55,2,24587,0)="""RTN"",""IBCESRV"",165,0)"
^XMB(3.9,55,2,24588,0)=" S:Y>0 IBDA=+Y"
^XMB(3.9,55,2,24589,0)="""RTN"",""IBCESRV"",166,0)"
^XMB(3.9,55,2,24590,0)=" ;"
^XMB(3.9,55,2,24591,0)="""RTN"",""IBCESRV"",167,0)"
^XMB(3.9,55,2,24592,0)=" Q IBDA"
^XMB(3.9,55,2,24593,0)="""RTN"",""IBCESRV"",168,0)"
^XMB(3.9,55,2,24594,0)=" ;"
^XMB(3.9,55,2,24595,0)="""RTN"",""IBCESRV"",169,0)"
^XMB(3.9,55,2,24596,0)="LOADDET(IB1,IB2,IBTDA,IBGBL,IBERR,IBTNM) ; Load the rest of the message text into the message"
^XMB(3.9,55,2,24597,0)="""RTN"",""IBCESRV"",170,0)"
^XMB(3.9,55,2,24598,0)=" ; IB1 = ""BATCH"" or ""CLAIM"" or ""REPORT"""
^XMB(3.9,55,2,24599,0)="""RTN"",""IBCESRV"",171,0)"
^XMB(3.9,55,2,24600,0)=" ; IB2 = batch # or claim # or 0"
^XMB(3.9,55,2,24601,0)="""RTN"",""IBCESRV"",172,0)"
^XMB(3.9,55,2,24602,0)=" ; IBTDA = ien in file 364.2 being updated"
^XMB(3.9,55,2,24603,0)="""RTN"",""IBCESRV"",173,0)"
^XMB(3.9,55,2,24604,0)=" ; IBGBL = name of the array holding the detail message text to be loaded"
^XMB(3.9,55,2,24605,0)="""RTN"",""IBCESRV"",174,0)"
^XMB(3.9,55,2,24606,0)=" ; IBTNM = message name (i.e. ""835EOB"",""837REC0"",""REPORT"",etc.)"
^XMB(3.9,55,2,24607,0)="""RTN"",""IBCESRV"",175,0)"
^XMB(3.9,55,2,24608,0)=" ;"
^XMB(3.9,55,2,24609,0)="""RTN"",""IBCESRV"",176,0)"
^XMB(3.9,55,2,24610,0)=" ; OUTPUT: IBERR if any errors found, pass by reference"
^XMB(3.9,55,2,24611,0)="""RTN"",""IBCESRV"",177,0)"
^XMB(3.9,55,2,24612,0)=" ;         IBTDA(IBTDA)=1 if errors - pass by reference"
^XMB(3.9,55,2,24613,0)="""RTN"",""IBCESRV"",178,0)"
^XMB(3.9,55,2,24614,0)=" ;"
^XMB(3.9,55,2,24615,0)="""RTN"",""IBCESRV"",179,0)"
^XMB(3.9,55,2,24616,0)=" S IBTDA=+$G(IBTDA)"
^XMB(3.9,55,2,24617,0)="""RTN"",""IBCESRV"",180,0)"
^XMB(3.9,55,2,24618,0)=" N CT,IB3,IBE,IBZ,Q"
^XMB(3.9,55,2,24619,0)="""RTN"",""IBCESRV"",181,0)"
^XMB(3.9,55,2,24620,0)=" ;"
^XMB(3.9,55,2,24621,0)="""RTN"",""IBCESRV"",182,0)"
^XMB(3.9,55,2,24622,0)=" K ^TMP(""IBTEXT"",$J)"
^XMB(3.9,55,2,24623,0)="""RTN"",""IBCESRV"",183,0)"
^XMB(3.9,55,2,24624,0)=" ;"
^XMB(3.9,55,2,24625,0)="""RTN"",""IBCESRV"",184,0)"
^XMB(3.9,55,2,24626,0)=" S (CT,IB3)=0 ;Put formatted data into msg"
^XMB(3.9,55,2,24627,0)="""RTN"",""IBCESRV"",185,0)"
^XMB(3.9,55,2,24628,0)=" F  S IB3=$O(@IBGBL@(IB1,IB2,IB3)) Q:'IB3  S CT=CT+1,^TMP(""IBTEXT"",$J,CT)=@IBGBL@(IB1,IB2,IB3)"
^XMB(3.9,55,2,24629,0)="""RTN"",""IBCESRV"",186,0)"
^XMB(3.9,55,2,24630,0)=" ; Add identifying data from hdr record"
^XMB(3.9,55,2,24631,0)="""RTN"",""IBCESRV"",187,0)"
^XMB(3.9,55,2,24632,0)=" S IB3=0 F  S IB3=$O(^TMP(""IBMSG-H"",$J,IB1,IB2,IB3)) Q:'IB3  S CT=CT+1,^TMP(""IBTEXT"",$J,CT)=^TMP(""IBMSG-H"",$J,IB1,IB2,IB3)"
^XMB(3.9,55,2,24633,0)="""RTN"",""IBCESRV"",188,0)"
^XMB(3.9,55,2,24634,0)=" ;"
^XMB(3.9,55,2,24635,0)="""RTN"",""IBCESRV"",189,0)"
^XMB(3.9,55,2,24636,0)=" ; Put raw data into msg"
^XMB(3.9,55,2,24637,0)="""RTN"",""IBCESRV"",190,0)"
^XMB(3.9,55,2,24638,0)=" I $G(IBTNM)'=""835EOB"" D"
^XMB(3.9,55,2,24639,0)="""RTN"",""IBCESRV"",191,0)"
^XMB(3.9,55,2,24640,0)=" . S IBZ="""" F  S IBZ=$O(@IBGBL@(IB1,IB2,""D"",IBZ)) Q:IBZ=""""  S IB3=0 F  S IB3=$O(@IBGBL@(IB1,IB2,""D"",IBZ,IB3)) Q:'IB3  S CT=CT+1,^TMP(""IBTEXT"",$J,CT)=@IBGBL@(IB1,IB2,""D"",IBZ,IB3)"
^XMB(3.9,55,2,24641,0)="""RTN"",""IBCESRV"",192,0)"
^XMB(3.9,55,2,24642,0)=" I $G(IBTNM)=""835EOB"" D"
^XMB(3.9,55,2,24643,0)="""RTN"",""IBCESRV"",193,0)"
^XMB(3.9,55,2,24644,0)=" . S IB3=0 F  S IB3=$O(@IBGBL@(IB1,IB2,""D1"",IB3)) Q:'IB3  S IBZ="""" F  S IBZ=$O(@IBGBL@(IB1,IB2,""D1"",IB3,IBZ)) Q:IBZ=""""  S CT=CT+1,^TMP(""IBTEXT"",$J,CT)=@IBGBL@(IB1,IB2,""D1"",IB3,IBZ)"
^XMB(3.9,55,2,24645,0)="""RTN"",""IBCESRV"",194,0)"
^XMB(3.9,55,2,24646,0)=" ;"
^XMB(3.9,55,2,24647,0)="""RTN"",""IBCESRV"",195,0)"
^XMB(3.9,55,2,24648,0)=" D STOREM^IBCESRV2(IBTDA,""^TMP(""""IBTEXT"""",$J)"",.IBE)"
^XMB(3.9,55,2,24649,0)="""RTN"",""IBCESRV"",196,0)"
^XMB(3.9,55,2,24650,0)=" ;"
^XMB(3.9,55,2,24651,0)="""RTN"",""IBCESRV"",197,0)"
^XMB(3.9,55,2,24652,0)=" I $D(IBE(""DIERR"")) D  S:$L($G(IBE)) IBERR(IBTDA,IB1,IB2)=IBE ; Extract error"
^XMB(3.9,55,2,24653,0)="""RTN"",""IBCESRV"",198,0)"
^XMB(3.9,55,2,24654,0)=" . D EXTERR^IBCESRV1(.IBERR,.IBTDA,.IBE)"
^XMB(3.9,55,2,24655,0)="""RTN"",""IBCESRV"",199,0)"
^XMB(3.9,55,2,24656,0)=" K ^TMP(""IBTEXT"",$J)"
^XMB(3.9,55,2,24657,0)="""RTN"",""IBCESRV"",200,0)"
^XMB(3.9,55,2,24658,0)=" Q"
^XMB(3.9,55,2,24659,0)="""RTN"",""IBCESRV"",201,0)"
^XMB(3.9,55,2,24660,0)=" ;"
^XMB(3.9,55,2,24661,0)="""RTN"",""IBCESRV"",202,0)"
^XMB(3.9,55,2,24662,0)="CKLABEL(Z,IBTXN,IBGBL) ;  Checks to be sure label in Z exists."
^XMB(3.9,55,2,24663,0)="""RTN"",""IBCESRV"",203,0)"
^XMB(3.9,55,2,24664,0)=" ; If it doesn't exist, files an error and returns 0 "
^XMB(3.9,55,2,24665,0)="""RTN"",""IBCESRV"",204,0)"
^XMB(3.9,55,2,24666,0)=" ;  OR  returns 1 if it does exist"
^XMB(3.9,55,2,24667,0)="""RTN"",""IBCESRV"",205,0)"
^XMB(3.9,55,2,24668,0)=" N X,LAB"
^XMB(3.9,55,2,24669,0)="""RTN"",""IBCESRV"",206,0)"
^XMB(3.9,55,2,24670,0)=" S X=1,LAB=$P(Z,""("")"
^XMB(3.9,55,2,24671,0)="""RTN"",""IBCESRV"",207,0)"
^XMB(3.9,55,2,24672,0)=" I $S('LAB!($L($P(LAB,U))>8):1,1:$T(@LAB)="""") S X=0 D REST(.IBTXN,IBGBL)"
^XMB(3.9,55,2,24673,0)="""RTN"",""IBCESRV"",208,0)"
^XMB(3.9,55,2,24674,0)=" Q X"
^XMB(3.9,55,2,24675,0)="""RTN"",""IBCESRV"",209,0)"
^XMB(3.9,55,2,24676,0)=" ;"
^XMB(3.9,55,2,24677,0)="""RTN"",""IBCESRV"",210,0)"
^XMB(3.9,55,2,24678,0)="ERROR ; Error condition messages"
^XMB(3.9,55,2,24679,0)="""RTN"",""IBCESRV"",211,0)"
^XMB(3.9,55,2,24680,0)=" ;;Message code does not exist in IB MESSAGE ROUTER file (364.3)."
^XMB(3.9,55,2,24681,0)="""RTN"",""IBCESRV"",212,0)"
^XMB(3.9,55,2,24682,0)=" ;;This message has no ending $."
^XMB(3.9,55,2,24683,0)="""RTN"",""IBCESRV"",213,0)"
^XMB(3.9,55,2,24684,0)=" ;;Message file problem - no message stored."
^XMB(3.9,55,2,24685,0)="""RTN"",""IBCESRV"",214,0)"
^XMB(3.9,55,2,24686,0)=" ;;Message file problem - message partially stored."
^XMB(3.9,55,2,24687,0)="""RTN"",""IBCESRV"",215,0)"
^XMB(3.9,55,2,24688,0)=" ;;Routine to process this message type does not exist."
^XMB(3.9,55,2,24689,0)="""RTN"",""IBCESRV"",216,0)"
^XMB(3.9,55,2,24690,0)=" ;;Batch does not exist for this confirmation message."
^XMB(3.9,55,2,24691,0)="""RTN"",""IBCESRV"",217,0)"
^XMB(3.9,55,2,24692,0)=" ;;Bad message format found - cannot store message."
^XMB(3.9,55,2,24693,0)="""RTN"",""IBCESRV"",218,0)"
^XMB(3.9,55,2,24694,0)=" ;"
^XMB(3.9,55,2,24695,0)="""RTN"",""IBCEST"")"
^XMB(3.9,55,2,24696,0)="0^1^B66454874^B65571445"
^XMB(3.9,55,2,24697,0)="""RTN"",""IBCEST"",1,0)"
^XMB(3.9,55,2,24698,0)="IBCEST ;ALB/TMP - 837 EDI STATUS MESSAGE PROCESSING ;17-APR-96"
^XMB(3.9,55,2,24699,0)="""RTN"",""IBCEST"",2,0)"
^XMB(3.9,55,2,24700,0)=" ;;2.0;INTEGRATED BILLING;**137,189,197,135,283,320**;21-MAR-94"
^XMB(3.9,55,2,24701,0)="""RTN"",""IBCEST"",3,0)"
^XMB(3.9,55,2,24702,0)=" ; IA 4042 for call to AUDITX^PRCAUDT"
^XMB(3.9,55,2,24703,0)="""RTN"",""IBCEST"",4,0)"
^XMB(3.9,55,2,24704,0)=" Q"
^XMB(3.9,55,2,24705,0)="""RTN"",""IBCEST"",5,0)"
^XMB(3.9,55,2,24706,0)=" ;"
^XMB(3.9,55,2,24707,0)="""RTN"",""IBCEST"",6,0)"
^XMB(3.9,55,2,24708,0)="UPD361(IBTDA) ; Update IB BILL STATUS MESSAGES file"
^XMB(3.9,55,2,24709,0)="""RTN"",""IBCEST"",7,0)"
^XMB(3.9,55,2,24710,0)=" ; IBTDA = ien of return message in file 364.2"
^XMB(3.9,55,2,24711,0)="""RTN"",""IBCEST"",8,0)"
^XMB(3.9,55,2,24712,0)=" ;"
^XMB(3.9,55,2,24713,0)="""RTN"",""IBCEST"",9,0)"
^XMB(3.9,55,2,24714,0)=" N IB,IB0,IBSEQ,IB00,IBBILL,IBBTCH,IBMNUM"
^XMB(3.9,55,2,24715,0)="""RTN"",""IBCEST"",10,0)"
^XMB(3.9,55,2,24716,0)=" ;"
^XMB(3.9,55,2,24717,0)="""RTN"",""IBCEST"",11,0)"
^XMB(3.9,55,2,24718,0)=" I '$$LOCK^IBCEM(IBTDA) G UPDQ ;Lock message in file 364.2"
^XMB(3.9,55,2,24719,0)="""RTN"",""IBCEST"",12,0)"
^XMB(3.9,55,2,24720,0)=" ;"
^XMB(3.9,55,2,24721,0)="""RTN"",""IBCEST"",13,0)"
^XMB(3.9,55,2,24722,0)=" S IB0=$G(^IBA(364.2,IBTDA,0))"
^XMB(3.9,55,2,24723,0)="""RTN"",""IBCEST"",14,0)"
^XMB(3.9,55,2,24724,0)=" S IBMNUM=$P(IB0,U) ; Message number"
^XMB(3.9,55,2,24725,0)="""RTN"",""IBCEST"",15,0)"
^XMB(3.9,55,2,24726,0)=" S IB00=$G(^IBA(364,+$P(IB0,U,5),0)) ; Transmit bill entry"
^XMB(3.9,55,2,24727,0)="""RTN"",""IBCEST"",16,0)"
^XMB(3.9,55,2,24728,0)=" S IBBILL=+IB00 ; Actual bill ien in file 399"
^XMB(3.9,55,2,24729,0)="""RTN"",""IBCEST"",17,0)"
^XMB(3.9,55,2,24730,0)=" S IBBTCH=$P(IB0,U,4) ; Batch #"
^XMB(3.9,55,2,24731,0)="""RTN"",""IBCEST"",18,0)"
^XMB(3.9,55,2,24732,0)=" ;"
^XMB(3.9,55,2,24733,0)="""RTN"",""IBCEST"",19,0)"
^XMB(3.9,55,2,24734,0)=" ; Auto-audit bills based on status code on '10' record of status msg"
^XMB(3.9,55,2,24735,0)="""RTN"",""IBCEST"",20,0)"
^XMB(3.9,55,2,24736,0)=" ; flat file"
^XMB(3.9,55,2,24737,0)="""RTN"",""IBCEST"",21,0)"
^XMB(3.9,55,2,24738,0)=" I IBBILL,$P($T(PRCAUDT+1^PRCAUDT),""**"",2)["",173"" D"
^XMB(3.9,55,2,24739,0)="""RTN"",""IBCEST"",22,0)"
^XMB(3.9,55,2,24740,0)=" . N Z,Z0,Z1,OK"
^XMB(3.9,55,2,24741,0)="""RTN"",""IBCEST"",23,0)"
^XMB(3.9,55,2,24742,0)=" . Q:+$$STA^PRCAFN(IBBILL)'=104"
^XMB(3.9,55,2,24743,0)="""RTN"",""IBCEST"",24,0)"
^XMB(3.9,55,2,24744,0)=" . S (Z,OK)=0"
^XMB(3.9,55,2,24745,0)="""RTN"",""IBCEST"",25,0)"
^XMB(3.9,55,2,24746,0)=" . F  S Z=$O(^IBA(364.2,IBTDA,2,Z)) Q:'Z  S Z0=$P($G(^(Z,0)),""##RAW DATA: "",2) I +Z0=10 S Z0=$P(Z0,U,5) D  Q:OK"
^XMB(3.9,55,2,24747,0)="""RTN"",""IBCEST"",26,0)"
^XMB(3.9,55,2,24748,0)=" .. ; Strip leading spaces"
^XMB(3.9,55,2,24749,0)="""RTN"",""IBCEST"",27,0)"
^XMB(3.9,55,2,24750,0)=" .. F  S Z0=$P(Z0,"" "",2,99) Q:$E(Z0)'="" """
^XMB(3.9,55,2,24751,0)="""RTN"",""IBCEST"",28,0)"
^XMB(3.9,55,2,24752,0)=" .. Q:Z0="""""
^XMB(3.9,55,2,24753,0)="""RTN"",""IBCEST"",29,0)"
^XMB(3.9,55,2,24754,0)=" .. I ""A3^AC^A7^A8^AA^2P^10^11""[Z0,$P($G(^DGCR(399.3,+$P($G(^DGCR(399,IBBILL,0)),U,7),0)),U,11) D AUDITX^PRCAUDT(IBBILL) S OK=1 ; IA 4042"
^XMB(3.9,55,2,24755,0)="""RTN"",""IBCEST"",30,0)"
^XMB(3.9,55,2,24756,0)=" ;"
^XMB(3.9,55,2,24757,0)="""RTN"",""IBCEST"",31,0)"
^XMB(3.9,55,2,24758,0)=" I $S(IBMNUM="""":1,1:'IBBILL&(IBBTCH="""")) D DELMSG^IBCESRV2(IBTDA) G UPDQ"
^XMB(3.9,55,2,24759,0)="""RTN"",""IBCEST"",32,0)"
^XMB(3.9,55,2,24760,0)=" ;"
^XMB(3.9,55,2,24761,0)="""RTN"",""IBCEST"",33,0)"
^XMB(3.9,55,2,24762,0)=" ; Individual bill"
^XMB(3.9,55,2,24763,0)="""RTN"",""IBCEST"",34,0)"
^XMB(3.9,55,2,24764,0)=" I IBBILL D  G UPDQ"
^XMB(3.9,55,2,24765,0)="""RTN"",""IBCEST"",35,0)"
^XMB(3.9,55,2,24766,0)=" . N IBA1,IBMSG0,IBPID"
^XMB(3.9,55,2,24767,0)="""RTN"",""IBCEST"",36,0)"
^XMB(3.9,55,2,24768,0)=" . S IBPID="""",IBA1=0"
^XMB(3.9,55,2,24769,0)="""RTN"",""IBCEST"",37,0)"
^XMB(3.9,55,2,24770,0)=" . F  S IBA1=$O(^IBA(364.2,IBTDA,2,IBA1)) Q:'IBA1  S IBMSG0=$P($G(^(IBA1,0)),""##RAW DATA: "",2) I +IBMSG0=277,$P(IBMSG0,U,5)=""N"" S IBPID=$P(IBMSG0,U,11) Q"
^XMB(3.9,55,2,24771,0)="""RTN"",""IBCEST"",38,0)"
^XMB(3.9,55,2,24772,0)=" . S IBSEQ=$P(IB00,U,8) S:IBSEQ="""" IBSEQ=""P"""
^XMB(3.9,55,2,24773,0)="""RTN"",""IBCEST"",39,0)"
^XMB(3.9,55,2,24774,0)=" . D STORE(IB0,IBBTCH,IBMNUM,IBTDA,IBBILL,IBSEQ,IBPID,1)"
^XMB(3.9,55,2,24775,0)="""RTN"",""IBCEST"",40,0)"
^XMB(3.9,55,2,24776,0)=" ;"
^XMB(3.9,55,2,24777,0)="""RTN"",""IBCEST"",41,0)"
^XMB(3.9,55,2,24778,0)=" ; Batch - update each bill separately"
^XMB(3.9,55,2,24779,0)="""RTN"",""IBCEST"",42,0)"
^XMB(3.9,55,2,24780,0)=" S IBBILL="""""
^XMB(3.9,55,2,24781,0)="""RTN"",""IBCEST"",43,0)"
^XMB(3.9,55,2,24782,0)=" F  S IBBILL=$O(^IBA(364,""ABABI"",+IBBTCH,IBBILL)) Q:'IBBILL  D"
^XMB(3.9,55,2,24783,0)="""RTN"",""IBCEST"",44,0)"
^XMB(3.9,55,2,24784,0)=" . Q:$D(^TMP(""IBCONF"",$J,IBBILL))  ;Bill was rejected"
^XMB(3.9,55,2,24785,0)="""RTN"",""IBCEST"",45,0)"
^XMB(3.9,55,2,24786,0)=" . S IB=$O(^IBA(364,""ABABI"",+IBBTCH,IBBILL,0)) Q:'IB"
^XMB(3.9,55,2,24787,0)="""RTN"",""IBCEST"",46,0)"
^XMB(3.9,55,2,24788,0)=" . S IBSEQ=$P($G(^IBA(364,IB,0)),U,8) S:IBSEQ="""" IBSEQ=""P"""
^XMB(3.9,55,2,24789,0)="""RTN"",""IBCEST"",47,0)"
^XMB(3.9,55,2,24790,0)=" . D STORE(IB0,IBBTCH,IBMNUM,IBTDA,IBBILL,IBSEQ,"""",0)"
^XMB(3.9,55,2,24791,0)="""RTN"",""IBCEST"",48,0)"
^XMB(3.9,55,2,24792,0)=" ;"
^XMB(3.9,55,2,24793,0)="""RTN"",""IBCEST"",49,0)"
^XMB(3.9,55,2,24794,0)=" Q"
^XMB(3.9,55,2,24795,0)="""RTN"",""IBCEST"",50,0)"
^XMB(3.9,55,2,24796,0)=" ;"
^XMB(3.9,55,2,24797,0)="""RTN"",""IBCEST"",51,0)"
^XMB(3.9,55,2,24798,0)="STORE(IB0,IBBTCH,IBMNUM,IBTDA,IBBILL,IBSEQ,IBPID,IB1) ;"
^XMB(3.9,55,2,24799,0)="""RTN"",""IBCEST"",52,0)"
^XMB(3.9,55,2,24800,0)=" ;"
^XMB(3.9,55,2,24801,0)="""RTN"",""IBCEST"",53,0)"
^XMB(3.9,55,2,24802,0)=" ; IB0 = 0-node of message in file 364.2"
^XMB(3.9,55,2,24803,0)="""RTN"",""IBCEST"",54,0)"
^XMB(3.9,55,2,24804,0)=" ; IBBTCH = ien of batch in file 364.1"
^XMB(3.9,55,2,24805,0)="""RTN"",""IBCEST"",55,0)"
^XMB(3.9,55,2,24806,0)=" ; IBMNUM = actual message number"
^XMB(3.9,55,2,24807,0)="""RTN"",""IBCEST"",56,0)"
^XMB(3.9,55,2,24808,0)=" ; IBTDA = ien of message in file 364.2"
^XMB(3.9,55,2,24809,0)="""RTN"",""IBCEST"",57,0)"
^XMB(3.9,55,2,24810,0)=" ; IBBILL = ien of bill in 399"
^XMB(3.9,55,2,24811,0)="""RTN"",""IBCEST"",58,0)"
^XMB(3.9,55,2,24812,0)=" ; IBSEQ = P/S/T/ for COB sequence related to message"
^XMB(3.9,55,2,24813,0)="""RTN"",""IBCEST"",59,0)"
^XMB(3.9,55,2,24814,0)=" ; IBPID = the payer id returned from clearinghouse for the claim"
^XMB(3.9,55,2,24815,0)="""RTN"",""IBCEST"",60,0)"
^XMB(3.9,55,2,24816,0)=" ; IB1 = flag that says if the message was for a single bill or a batch."
^XMB(3.9,55,2,24817,0)="""RTN"",""IBCEST"",61,0)"
^XMB(3.9,55,2,24818,0)=" ;       Batch statuses have an additional standard text entry."
^XMB(3.9,55,2,24819,0)="""RTN"",""IBCEST"",62,0)"
^XMB(3.9,55,2,24820,0)=" ;       1 = single bill 0 = batch"
^XMB(3.9,55,2,24821,0)="""RTN"",""IBCEST"",63,0)"
^XMB(3.9,55,2,24822,0)=" ; "
^XMB(3.9,55,2,24823,0)="""RTN"",""IBCEST"",64,0)"
^XMB(3.9,55,2,24824,0)=" N DA,DIK,DIE,DIC,X,Y,DR,DO,DD,DLAYGO,Z,Z0,Z1,IBT,IBDUP,IBFLDS,IBY,IBAUTO"
^XMB(3.9,55,2,24825,0)="""RTN"",""IBCEST"",65,0)"
^XMB(3.9,55,2,24826,0)=" ;"
^XMB(3.9,55,2,24827,0)="""RTN"",""IBCEST"",66,0)"
^XMB(3.9,55,2,24828,0)=" S X=IBBILL,IBDUP=0"
^XMB(3.9,55,2,24829,0)="""RTN"",""IBCEST"",67,0)"
^XMB(3.9,55,2,24830,0)=" ;"
^XMB(3.9,55,2,24831,0)="""RTN"",""IBCEST"",68,0)"
^XMB(3.9,55,2,24832,0)=" I $D(^IBM(361,""AC"",IBMNUM\1)) D  ; Message already there for bill"
^XMB(3.9,55,2,24833,0)="""RTN"",""IBCEST"",69,0)"
^XMB(3.9,55,2,24834,0)=" . S Z=0 F  S Z=$O(^IBM(361,""AC"",IBMNUM\1,Z)) Q:'Z  I +$G(^IBM(361,Z,0))=IBBILL S IBDUP=Z Q"
^XMB(3.9,55,2,24835,0)="""RTN"",""IBCEST"",70,0)"
^XMB(3.9,55,2,24836,0)=" ;"
^XMB(3.9,55,2,24837,0)="""RTN"",""IBCEST"",71,0)"
^XMB(3.9,55,2,24838,0)=" S IBFLDS="".02////""_$P(IB0,U,3)"
^XMB(3.9,55,2,24839,0)="""RTN"",""IBCEST"",72,0)"
^XMB(3.9,55,2,24840,0)=" S IBFLDS=IBFLDS_"";.03////""_$S($$EXTERNAL^DILFD(364.2,.02,""U"",$P(IB0,U,2))[""REJ"":""R"",1:""I"")_"";.05////""_IBBTCH_"";.06////""_IBMNUM_"";.04////""_+$P(IB0,U,8)_"";.07////""_IBSEQ_$S($P(IB0,U,5):"";.11////""_$P(IB0,U,5),1:"""")"
^XMB(3.9,55,2,24841,0)="""RTN"",""IBCEST"",73,0)"
^XMB(3.9,55,2,24842,0)=" S IBFLDS=IBFLDS_"";.12////""_$P(IB0,U,10)_"";.09////0"""
^XMB(3.9,55,2,24843,0)="""RTN"",""IBCEST"",74,0)"
^XMB(3.9,55,2,24844,0)=" S IBFLDS=IBFLDS_"";.15////""_$$CHKSUM^IBCEST1(""^IBA(364.2,""_IBTDA_"",2)"")"
^XMB(3.9,55,2,24845,0)="""RTN"",""IBCEST"",75,0)"
^XMB(3.9,55,2,24846,0)=" I IBPID'="""" D"
^XMB(3.9,55,2,24847,0)="""RTN"",""IBCEST"",76,0)"
^XMB(3.9,55,2,24848,0)=" . S IBPID(""TYPE"")=$S($$FT^IBCEF(IBBILL)=2:""P"",1:""I"")"
^XMB(3.9,55,2,24849,0)="""RTN"",""IBCEST"",77,0)"
^XMB(3.9,55,2,24850,0)=" . D UPDINS(.IBPID,$$POLICY^IBCEF(IBBILL,1,$TR(IBSEQ,""PST"",""123"")),IBBILL)"
^XMB(3.9,55,2,24851,0)="""RTN"",""IBCEST"",78,0)"
^XMB(3.9,55,2,24852,0)=" ;"
^XMB(3.9,55,2,24853,0)="""RTN"",""IBCEST"",79,0)"
^XMB(3.9,55,2,24854,0)=" I IBDUP D  I $D(Y) G UPDQ"
^XMB(3.9,55,2,24855,0)="""RTN"",""IBCEST"",80,0)"
^XMB(3.9,55,2,24856,0)=" . ; Stuff fields into existing entry"
^XMB(3.9,55,2,24857,0)="""RTN"",""IBCEST"",81,0)"
^XMB(3.9,55,2,24858,0)=" . ; (may be needed for reprocessing of aborted updates)"
^XMB(3.9,55,2,24859,0)="""RTN"",""IBCEST"",82,0)"
^XMB(3.9,55,2,24860,0)=" . S DIE=""^IBM(361,"",DA=IBDUP,DR=IBFLDS_"";1///@"""
^XMB(3.9,55,2,24861,0)="""RTN"",""IBCEST"",83,0)"
^XMB(3.9,55,2,24862,0)=" . D ^DIE"
^XMB(3.9,55,2,24863,0)="""RTN"",""IBCEST"",84,0)"
^XMB(3.9,55,2,24864,0)=" . I $D(Y) S IBY=-1 Q  ;Update not successful"
^XMB(3.9,55,2,24865,0)="""RTN"",""IBCEST"",85,0)"
^XMB(3.9,55,2,24866,0)=" . S IBY=IBDUP"
^XMB(3.9,55,2,24867,0)="""RTN"",""IBCEST"",86,0)"
^XMB(3.9,55,2,24868,0)=" ;"
^XMB(3.9,55,2,24869,0)="""RTN"",""IBCEST"",87,0)"
^XMB(3.9,55,2,24870,0)=" K IBT"
^XMB(3.9,55,2,24871,0)="""RTN"",""IBCEST"",88,0)"
^XMB(3.9,55,2,24872,0)=" I 'IBDUP D  ; Create new entry and stuff fields"
^XMB(3.9,55,2,24873,0)="""RTN"",""IBCEST"",89,0)"
^XMB(3.9,55,2,24874,0)=" . S DIC(0)=""L"",DIC=""^IBM(361,"",DLAYGO=361"
^XMB(3.9,55,2,24875,0)="""RTN"",""IBCEST"",90,0)"
^XMB(3.9,55,2,24876,0)=" . S DIC(""DR"")=IBFLDS"
^XMB(3.9,55,2,24877,0)="""RTN"",""IBCEST"",91,0)"
^XMB(3.9,55,2,24878,0)=" . D FILE^DICN"
^XMB(3.9,55,2,24879,0)="""RTN"",""IBCEST"",92,0)"
^XMB(3.9,55,2,24880,0)=" . K DO,DD,DLAYGO,DIC"
^XMB(3.9,55,2,24881,0)="""RTN"",""IBCEST"",93,0)"
^XMB(3.9,55,2,24882,0)=" . S IBY=+Y"
^XMB(3.9,55,2,24883,0)="""RTN"",""IBCEST"",94,0)"
^XMB(3.9,55,2,24884,0)=" . Q:IBY'>0"
^XMB(3.9,55,2,24885,0)="""RTN"",""IBCEST"",95,0)"
^XMB(3.9,55,2,24886,0)=" . ;"
^XMB(3.9,55,2,24887,0)="""RTN"",""IBCEST"",96,0)"
^XMB(3.9,55,2,24888,0)=" . ; IB*2*320 - Check for duplicate status message"
^XMB(3.9,55,2,24889,0)="""RTN"",""IBCEST"",97,0)"
^XMB(3.9,55,2,24890,0)=" . NEW IBNEW,IBOLD,PCE,Z,DIK,DA"
^XMB(3.9,55,2,24891,0)="""RTN"",""IBCEST"",98,0)"
^XMB(3.9,55,2,24892,0)=" . S IBNEW="""""
^XMB(3.9,55,2,24893,0)="""RTN"",""IBCEST"",99,0)"
^XMB(3.9,55,2,24894,0)=" . F PCE=3,4,5,7,8,11,15 S IBNEW=IBNEW_$P($G(^IBM(361,IBY,0)),U,PCE)_U"
^XMB(3.9,55,2,24895,0)="""RTN"",""IBCEST"",100,0)"
^XMB(3.9,55,2,24896,0)=" . S Z=0"
^XMB(3.9,55,2,24897,0)="""RTN"",""IBCEST"",101,0)"
^XMB(3.9,55,2,24898,0)=" . F  S Z=$O(^IBM(361,""B"",IBBILL,Z)) Q:'Z  I Z'=IBY D  Q:IBY'>0"
^XMB(3.9,55,2,24899,0)="""RTN"",""IBCEST"",102,0)"
^XMB(3.9,55,2,24900,0)=" .. S IBOLD="""""
^XMB(3.9,55,2,24901,0)="""RTN"",""IBCEST"",103,0)"
^XMB(3.9,55,2,24902,0)=" .. F PCE=3,4,5,7,8,11,15 S IBOLD=IBOLD_$P($G(^IBM(361,Z,0)),U,PCE)_U"
^XMB(3.9,55,2,24903,0)="""RTN"",""IBCEST"",104,0)"
^XMB(3.9,55,2,24904,0)=" .. I IBNEW'=IBOLD Q   ; no duplicate so get the next one"
^XMB(3.9,55,2,24905,0)="""RTN"",""IBCEST"",105,0)"
^XMB(3.9,55,2,24906,0)=" .. S DIK=""^IBM(361,"",DA=IBY,IBY=-1 D ^DIK D DELMSG^IBCESRV2(IBTDA)"
^XMB(3.9,55,2,24907,0)="""RTN"",""IBCEST"",106,0)"
^XMB(3.9,55,2,24908,0)=" .. Q"
^XMB(3.9,55,2,24909,0)="""RTN"",""IBCEST"",107,0)"
^XMB(3.9,55,2,24910,0)=" . Q"
^XMB(3.9,55,2,24911,0)="""RTN"",""IBCEST"",108,0)"
^XMB(3.9,55,2,24912,0)=" ;"
^XMB(3.9,55,2,24913,0)="""RTN"",""IBCEST"",109,0)"
^XMB(3.9,55,2,24914,0)=" I IBY>0 D  ;Move text over"
^XMB(3.9,55,2,24915,0)="""RTN"",""IBCEST"",110,0)"
^XMB(3.9,55,2,24916,0)=" . K IBT"
^XMB(3.9,55,2,24917,0)="""RTN"",""IBCEST"",111,0)"
^XMB(3.9,55,2,24918,0)=" . ;"
^XMB(3.9,55,2,24919,0)="""RTN"",""IBCEST"",112,0)"
^XMB(3.9,55,2,24920,0)=" . D BLDMSG(IB1,IBTDA,.IBT,.IBAUTO)"
^XMB(3.9,55,2,24921,0)="""RTN"",""IBCEST"",113,0)"
^XMB(3.9,55,2,24922,0)=" . ;"
^XMB(3.9,55,2,24923,0)="""RTN"",""IBCEST"",114,0)"
^XMB(3.9,55,2,24924,0)=" . ; IB*2*320 - esg - 2Q messages will be filed as informational"
^XMB(3.9,55,2,24925,0)="""RTN"",""IBCEST"",115,0)"
^XMB(3.9,55,2,24926,0)=" . I $P($G(^IBM(361,+IBY,0)),U,3)=""R"",$G(IBT(1))[""2Q  CLAIM REJECTED BY CLEARINGHOUSE"" D"
^XMB(3.9,55,2,24927,0)="""RTN"",""IBCEST"",116,0)"
^XMB(3.9,55,2,24928,0)=" .. S IBAUTO=1"
^XMB(3.9,55,2,24929,0)="""RTN"",""IBCEST"",117,0)"
^XMB(3.9,55,2,24930,0)=" .. S DIE=361,DA=+IBY,DR="".03////I"" D ^DIE"
^XMB(3.9,55,2,24931,0)="""RTN"",""IBCEST"",118,0)"
^XMB(3.9,55,2,24932,0)=" .. Q"
^XMB(3.9,55,2,24933,0)="""RTN"",""IBCEST"",119,0)"
^XMB(3.9,55,2,24934,0)=" . ;"
^XMB(3.9,55,2,24935,0)="""RTN"",""IBCEST"",120,0)"
^XMB(3.9,55,2,24936,0)=" . ; if info msg, ck for no review needed based on first line of text"
^XMB(3.9,55,2,24937,0)="""RTN"",""IBCEST"",121,0)"
^XMB(3.9,55,2,24938,0)=" . I $G(IBAUTO),$P($G(^IBM(361,+IBY,0)),U,3)=""I"" D"
^XMB(3.9,55,2,24939,0)="""RTN"",""IBCEST"",122,0)"
^XMB(3.9,55,2,24940,0)=" .. S DIE=""^IBM(361,"",DR="".09////2;.14////1;.1////F"",DA=+IBY D ^DIE"
^XMB(3.9,55,2,24941,0)="""RTN"",""IBCEST"",123,0)"
^XMB(3.9,55,2,24942,0)=" .. I IB1,$P($G(^IBM(361,+IBY,0)),U,11),$$PRINTUPD^IBCEU0($G(IBT(1)),$P($G(^IBM(361,+IBY,0)),U,11))"
^XMB(3.9,55,2,24943,0)="""RTN"",""IBCEST"",124,0)"
^XMB(3.9,55,2,24944,0)=" . ;"
^XMB(3.9,55,2,24945,0)="""RTN"",""IBCEST"",125,0)"
^XMB(3.9,55,2,24946,0)=" . D WP^DIE(361,+IBY_"","",1,""A"",""IBT"")    ; file message text"
^XMB(3.9,55,2,24947,0)="""RTN"",""IBCEST"",126,0)"
^XMB(3.9,55,2,24948,0)=" . ;"
^XMB(3.9,55,2,24949,0)="""RTN"",""IBCEST"",127,0)"
^XMB(3.9,55,2,24950,0)=" . ; Delete message after it successfully updates the database."
^XMB(3.9,55,2,24951,0)="""RTN"",""IBCEST"",128,0)"
^XMB(3.9,55,2,24952,0)=" . D DELMSG^IBCESRV2(IBTDA)"
^XMB(3.9,55,2,24953,0)="""RTN"",""IBCEST"",129,0)"
^XMB(3.9,55,2,24954,0)=" . Q"
^XMB(3.9,55,2,24955,0)="""RTN"",""IBCEST"",130,0)"
^XMB(3.9,55,2,24956,0)=" ;"
^XMB(3.9,55,2,24957,0)="""RTN"",""IBCEST"",131,0)"
^XMB(3.9,55,2,24958,0)="UPDQ L -^IBA(364.2,IBTDA,0)"
^XMB(3.9,55,2,24959,0)="""RTN"",""IBCEST"",132,0)"
^XMB(3.9,55,2,24960,0)=" Q"
^XMB(3.9,55,2,24961,0)="""RTN"",""IBCEST"",133,0)"
^XMB(3.9,55,2,24962,0)=" ;"
^XMB(3.9,55,2,24963,0)="""RTN"",""IBCEST"",134,0)"
^XMB(3.9,55,2,24964,0)="BLDMSG(IB1,IBTDA,IBT,IBAUTO) ; Builds message text"
^XMB(3.9,55,2,24965,0)="""RTN"",""IBCEST"",135,0)"
^XMB(3.9,55,2,24966,0)=" ; IB1 = flag for batch message"
^XMB(3.9,55,2,24967,0)="""RTN"",""IBCEST"",136,0)"
^XMB(3.9,55,2,24968,0)=" ; IBTDA = ien of entry in file 364.2"
^XMB(3.9,55,2,24969,0)="""RTN"",""IBCEST"",137,0)"
^XMB(3.9,55,2,24970,0)=" ; IBT = array returned with message text"
^XMB(3.9,55,2,24971,0)="""RTN"",""IBCEST"",138,0)"
^XMB(3.9,55,2,24972,0)=" ; IBAUTO = if passed by reference, returns 1 if text indicates review"
^XMB(3.9,55,2,24973,0)="""RTN"",""IBCEST"",139,0)"
^XMB(3.9,55,2,24974,0)=" ;          not needed"
^XMB(3.9,55,2,24975,0)="""RTN"",""IBCEST"",140,0)"
^XMB(3.9,55,2,24976,0)=" N IBDATA,IBCK,IBZ,IBZ0,IBZ1,Z"
^XMB(3.9,55,2,24977,0)="""RTN"",""IBCEST"",141,0)"
^XMB(3.9,55,2,24978,0)=" S (IBZ,IBZ0,IBDATA,IBAUTO,IBCK)=0"
^XMB(3.9,55,2,24979,0)="""RTN"",""IBCEST"",142,0)"
^XMB(3.9,55,2,24980,0)=" I 'IB1 S IBT(1)=""Status message received for batch ""_$P($G(^IBA(364.1,IBBTCH,0)),U)_"" dated ""_$$FMTE^XLFDT($P($G(^IBA(364.2,IBTDA,0)),U,10),2),IBZ0=1"
^XMB(3.9,55,2,24981,0)="""RTN"",""IBCEST"",143,0)"
^XMB(3.9,55,2,24982,0)=" ; Don't move the raw data over, just move the text of the message"
^XMB(3.9,55,2,24983,0)="""RTN"",""IBCEST"",144,0)"
^XMB(3.9,55,2,24984,0)=" F  S IBZ=$O(^IBA(364.2,IBTDA,2,IBZ)) Q:'IBZ  S IBZ1=$G(^(IBZ,0)) S IBDATA=($E(IBZ1,1,2)=""##"") Q:IBDATA  S IBZ0=IBZ0+1,IBT(IBZ0)=IBZ1 I 'IBCK S Z=$$CKREVU^IBCEM4(IBZ1,,,.IBCK),IBAUTO=$S(IBCK:0,Z:1,1:IBAUTO)"
^XMB(3.9,55,2,24985,0)="""RTN"",""IBCEST"",145,0)"
^XMB(3.9,55,2,24986,0)=" ;"
^XMB(3.9,55,2,24987,0)="""RTN"",""IBCEST"",146,0)"
^XMB(3.9,55,2,24988,0)=" ; Convert Message Lines in IBT to be no longer than 70 chars"
^XMB(3.9,55,2,24989,0)="""RTN"",""IBCEST"",147,0)"
^XMB(3.9,55,2,24990,0)=" D MSGLNSZ(.IBT)"
^XMB(3.9,55,2,24991,0)="""RTN"",""IBCEST"",148,0)"
^XMB(3.9,55,2,24992,0)=" Q"
^XMB(3.9,55,2,24993,0)="""RTN"",""IBCEST"",149,0)"
^XMB(3.9,55,2,24994,0)=" ;"
^XMB(3.9,55,2,24995,0)="""RTN"",""IBCEST"",150,0)"
^XMB(3.9,55,2,24996,0)="UPDINS(IBPID,IBINS,IBIFN) ; Update the insurance id or the bill printed at"
^XMB(3.9,55,2,24997,0)="""RTN"",""IBCEST"",151,0)"
^XMB(3.9,55,2,24998,0)=" ;    the EDI contractor's print shop and mailed to the ins co."
^XMB(3.9,55,2,24999,0)="""RTN"",""IBCEST"",152,0)"
^XMB(3.9,55,2,25000,0)=" ; IBPID = the id returned from the EDI contractor for the ins co"
^XMB(3.9,55,2,25001,0)="""RTN"",""IBCEST"",153,0)"
^XMB(3.9,55,2,25002,0)=" ;      (""TYPE"") = P if professional id or I if institutional id"
^XMB(3.9,55,2,25003,0)="""RTN"",""IBCEST"",154,0)"
^XMB(3.9,55,2,25004,0)=" ; IBINS = the ien of the insurance co it was sent to (file 36)"
^XMB(3.9,55,2,25005,0)="""RTN"",""IBCEST"",155,0)"
^XMB(3.9,55,2,25006,0)=" ; IBIFN = the ien of the claim (file 399)"
^XMB(3.9,55,2,25007,0)="""RTN"",""IBCEST"",156,0)"
^XMB(3.9,55,2,25008,0)=" ;"
^XMB(3.9,55,2,25009,0)="""RTN"",""IBCEST"",157,0)"
^XMB(3.9,55,2,25010,0)=" N IBID,IBIDFLD,IBPRT,IBLOOK,DA,DR,DIE,X,Y,Z"
^XMB(3.9,55,2,25011,0)="""RTN"",""IBCEST"",158,0)"
^XMB(3.9,55,2,25012,0)=" ;"
^XMB(3.9,55,2,25013,0)="""RTN"",""IBCEST"",159,0)"
^XMB(3.9,55,2,25014,0)=" Q:'$G(IBINS)!($G(IBPID)="""")"
^XMB(3.9,55,2,25015,0)="""RTN"",""IBCEST"",160,0)"
^XMB(3.9,55,2,25016,0)=" ;"
^XMB(3.9,55,2,25017,0)="""RTN"",""IBCEST"",161,0)"
^XMB(3.9,55,2,25018,0)=" ; Strip spaces off the end of data"
^XMB(3.9,55,2,25019,0)="""RTN"",""IBCEST"",162,0)"
^XMB(3.9,55,2,25020,0)=" S IBLOOK="""""
^XMB(3.9,55,2,25021,0)="""RTN"",""IBCEST"",163,0)"
^XMB(3.9,55,2,25022,0)=" I $L(IBPID) F Z=$L(IBPID):-1:1 I $E(IBPID,Z)'="" "" S IBLOOK=$E(IBPID,1,Z) Q"
^XMB(3.9,55,2,25023,0)="""RTN"",""IBCEST"",164,0)"
^XMB(3.9,55,2,25024,0)=" ;"
^XMB(3.9,55,2,25025,0)="""RTN"",""IBCEST"",165,0)"
^XMB(3.9,55,2,25026,0)=" S IBPRT=($E(IBLOOK,2,5)=""PRNT"")"
^XMB(3.9,55,2,25027,0)="""RTN"",""IBCEST"",166,0)"
^XMB(3.9,55,2,25028,0)=" I IBPRT D  ; Set printed via EDI field on bill"
^XMB(3.9,55,2,25029,0)="""RTN"",""IBCEST"",167,0)"
^XMB(3.9,55,2,25030,0)=" . S DA=IBIFN,DIE=""^DGCR(399,"",DR=""26////1"" D ^DIE"
^XMB(3.9,55,2,25031,0)="""RTN"",""IBCEST"",168,0)"
^XMB(3.9,55,2,25032,0)=" ;"
^XMB(3.9,55,2,25033,0)="""RTN"",""IBCEST"",169,0)"
^XMB(3.9,55,2,25034,0)=" S IBLOOK=$E($S('IBPRT:$P(IBLOOK,""PAYID="",2),1:""""),1,5)"
^XMB(3.9,55,2,25035,0)="""RTN"",""IBCEST"",170,0)"
^XMB(3.9,55,2,25036,0)=" Q:IBLOOK=""""!($E(IBLOOK,2,5)=""PRNT"")"
^XMB(3.9,55,2,25037,0)="""RTN"",""IBCEST"",171,0)"
^XMB(3.9,55,2,25038,0)=" S IBIDFLD=""3.0""_$S($G(IBPID(""TYPE""))=""I"":4,1:2)"
^XMB(3.9,55,2,25039,0)="""RTN"",""IBCEST"",172,0)"
^XMB(3.9,55,2,25040,0)=" S IBID=$P($G(^DIC(36,+IBINS,3)),U,IBIDFLD*100#100)"
^XMB(3.9,55,2,25041,0)="""RTN"",""IBCEST"",173,0)"
^XMB(3.9,55,2,25042,0)=" Q:IBID=IBLOOK"
^XMB(3.9,55,2,25043,0)="""RTN"",""IBCEST"",174,0)"
^XMB(3.9,55,2,25044,0)=" I IBID="""" D  G UPDINSQ ; Update insurance co electronic id # if blank"
^XMB(3.9,55,2,25045,0)="""RTN"",""IBCEST"",175,0)"
^XMB(3.9,55,2,25046,0)=" . S DIE=""^DIC(36,"",DR=IBIDFLD_""////""_IBLOOK,DA=IBINS D ^DIE"
^XMB(3.9,55,2,25047,0)="""RTN"",""IBCEST"",176,0)"
^XMB(3.9,55,2,25048,0)=" I IBID'="""",IBLOOK'="""" D  ; Bulletin that the id on file and id returned"
^XMB(3.9,55,2,25049,0)="""RTN"",""IBCEST"",177,0)"
^XMB(3.9,55,2,25050,0)=" . ; are different"
^XMB(3.9,55,2,25051,0)="""RTN"",""IBCEST"",178,0)"
^XMB(3.9,55,2,25052,0)=" . N XMTO,XMDUZ,XMBODY,IBXM,XMSUBJ,XMZ"
^XMB(3.9,55,2,25053,0)="""RTN"",""IBCEST"",179,0)"
^XMB(3.9,55,2,25054,0)=" . S XMTO(""I:G.IB EDI"")="""""
^XMB(3.9,55,2,25055,0)="""RTN"",""IBCEST"",180,0)"
^XMB(3.9,55,2,25056,0)=" . S XMDUZ="""",XMBODY=""IBXM"",XMSUBJ=""PAYER ID RETURNED IS DIFFERENT THAN PAYER ID ON FILE"""
^XMB(3.9,55,2,25057,0)="""RTN"",""IBCEST"",181,0)"
^XMB(3.9,55,2,25058,0)=" . S IBXM(1)=""BILL #     : ""_$P($G(^DGCR(399,IBIFN,0)),U)"
^XMB(3.9,55,2,25059,0)="""RTN"",""IBCEST"",182,0)"
^XMB(3.9,55,2,25060,0)=" . S IBXM(2)=""PAYER      : ""_$P($G(^DIC(36,+IBINS,0)),U)"
^XMB(3.9,55,2,25061,0)="""RTN"",""IBCEST"",183,0)"
^XMB(3.9,55,2,25062,0)=" . S IBXM(3)=""BILL TYPE  : ""_$S($G(IBPID(""TYPE""))=""I"":""INSTITUT"",1:""PROFESS"")_""IONAL"""
^XMB(3.9,55,2,25063,0)="""RTN"",""IBCEST"",184,0)"
^XMB(3.9,55,2,25064,0)=" . S IBXM(4)=""ID ON FILE : ""_IBID"
^XMB(3.9,55,2,25065,0)="""RTN"",""IBCEST"",185,0)"
^XMB(3.9,55,2,25066,0)=" . S IBXM(5)=""ID RETURNED: ""_IBLOOK"
^XMB(3.9,55,2,25067,0)="""RTN"",""IBCEST"",186,0)"
^XMB(3.9,55,2,25068,0)=" . S IBXM(6)="" "",IBXM(7)=""   Please determine which id number is correct and correct the id in the"",IBXM(8)=""insurance file for this payer, if needed"""
^XMB(3.9,55,2,25069,0)="""RTN"",""IBCEST"",187,0)"
^XMB(3.9,55,2,25070,0)=" . D SENDMSG^XMXAPI(XMDUZ,XMSUBJ,XMBODY,.XMTO,,.XMZ)"
^XMB(3.9,55,2,25071,0)="""RTN"",""IBCEST"",188,0)"
^XMB(3.9,55,2,25072,0)=" ;"
^XMB(3.9,55,2,25073,0)="""RTN"",""IBCEST"",189,0)"
^XMB(3.9,55,2,25074,0)="UPDINSQ Q"
^XMB(3.9,55,2,25075,0)="""RTN"",""IBCEST"",190,0)"
^XMB(3.9,55,2,25076,0)=" ;"
^XMB(3.9,55,2,25077,0)="""RTN"",""IBCEST"",191,0)"
^XMB(3.9,55,2,25078,0)="MSGLNSZ(MSG) ; Change Input Message Lines to be no more than 70 characters long each"
^XMB(3.9,55,2,25079,0)="""RTN"",""IBCEST"",192,0)"
^XMB(3.9,55,2,25080,0)=" ;"
^XMB(3.9,55,2,25081,0)="""RTN"",""IBCEST"",193,0)"
^XMB(3.9,55,2,25082,0)=" ; Input/Output:   MSG  - array of Input Message Lines; this is also the Output Message"
^XMB(3.9,55,2,25083,0)="""RTN"",""IBCEST"",194,0)"
^XMB(3.9,55,2,25084,0)=" ; which is an array of Converted Message Lines (with lines no more than 70 chars each)"
^XMB(3.9,55,2,25085,0)="""RTN"",""IBCEST"",195,0)"
^XMB(3.9,55,2,25086,0)=" ;"
^XMB(3.9,55,2,25087,0)="""RTN"",""IBCEST"",196,0)"
^XMB(3.9,55,2,25088,0)=" N LN,XARY,XARYLN,CNT,OUTMSG,TMPMSG,LDNGSP"
^XMB(3.9,55,2,25089,0)="""RTN"",""IBCEST"",197,0)"
^XMB(3.9,55,2,25090,0)=" S LN="""",CNT=0"
^XMB(3.9,55,2,25091,0)="""RTN"",""IBCEST"",198,0)"
^XMB(3.9,55,2,25092,0)=" F  S LN=$O(MSG(LN)) Q:LN=""""  D  ;"
^XMB(3.9,55,2,25093,0)="""RTN"",""IBCEST"",199,0)"
^XMB(3.9,55,2,25094,0)=" . ;"
^XMB(3.9,55,2,25095,0)="""RTN"",""IBCEST"",200,0)"
^XMB(3.9,55,2,25096,0)=" . ; Find any leading spaces in original message line, "
^XMB(3.9,55,2,25097,0)="""RTN"",""IBCEST"",201,0)"
^XMB(3.9,55,2,25098,0)=" . ; to be used if line got split below"
^XMB(3.9,55,2,25099,0)="""RTN"",""IBCEST"",202,0)"
^XMB(3.9,55,2,25100,0)=" . S TMPMSG=$$TRIM^XLFSTR(MSG(LN),""L"","" "")  ;Trim Leading Spaces"
^XMB(3.9,55,2,25101,0)="""RTN"",""IBCEST"",203,0)"
^XMB(3.9,55,2,25102,0)=" . S LDNGSP=$P(MSG(LN),TMPMSG,1)  ;get leading spaces if any"
^XMB(3.9,55,2,25103,0)="""RTN"",""IBCEST"",204,0)"
^XMB(3.9,55,2,25104,0)=" . ;"
^XMB(3.9,55,2,25105,0)="""RTN"",""IBCEST"",205,0)"
^XMB(3.9,55,2,25106,0)=" . ; Converts a single line to multiple lines with a maximum width of 70 each"
^XMB(3.9,55,2,25107,0)="""RTN"",""IBCEST"",206,0)"
^XMB(3.9,55,2,25108,0)=" . ; If line is 70 chars or less, this call returns the exact line"
^XMB(3.9,55,2,25109,0)="""RTN"",""IBCEST"",207,0)"
^XMB(3.9,55,2,25110,0)=" . K XARY D FSTRNG^IBJU1(MSG(LN),70,.XARY)"
^XMB(3.9,55,2,25111,0)="""RTN"",""IBCEST"",208,0)"
^XMB(3.9,55,2,25112,0)=" . ;"
^XMB(3.9,55,2,25113,0)="""RTN"",""IBCEST"",209,0)"
^XMB(3.9,55,2,25114,0)=" . ; Scan lines and merge them into the final output array (OUTMSG)"
^XMB(3.9,55,2,25115,0)="""RTN"",""IBCEST"",210,0)"
^XMB(3.9,55,2,25116,0)=" . ; On lines 2 and higher, add Leading Spaces found above, if any."
^XMB(3.9,55,2,25117,0)="""RTN"",""IBCEST"",211,0)"
^XMB(3.9,55,2,25118,0)=" . S XARYLN="""""
^XMB(3.9,55,2,25119,0)="""RTN"",""IBCEST"",212,0)"
^XMB(3.9,55,2,25120,0)=" . F  S XARYLN=$O(XARY(XARYLN)) Q:XARYLN=""""  S CNT=CNT+1,OUTMSG(CNT)=$S(XARYLN=1:XARY(XARYLN),1:LDNGSP_XARY(XARYLN))"
^XMB(3.9,55,2,25121,0)="""RTN"",""IBCEST"",213,0)"
^XMB(3.9,55,2,25122,0)=" ;"
^XMB(3.9,55,2,25123,0)="""RTN"",""IBCEST"",214,0)"
^XMB(3.9,55,2,25124,0)=" ; Move the final Message Lines (OUTMSG) into MSG array to be returned"
^XMB(3.9,55,2,25125,0)="""RTN"",""IBCEST"",215,0)"
^XMB(3.9,55,2,25126,0)=" K MSG M MSG=OUTMSG"
^XMB(3.9,55,2,25127,0)="""RTN"",""IBCEST"",216,0)"
^XMB(3.9,55,2,25128,0)=" Q  ;MSGLNSZ"
^XMB(3.9,55,2,25129,0)="""RTN"",""IBCEST"",217,0)"
^XMB(3.9,55,2,25130,0)=" ;"
^XMB(3.9,55,2,25131,0)="""RTN"",""IBCEST1"")"
^XMB(3.9,55,2,25132,0)="0^79^B1659665"
^XMB(3.9,55,2,25133,0)="""RTN"",""IBCEST1"",1,0)"
^XMB(3.9,55,2,25134,0)="IBCEST1 ;ALB/ESG - IB 837 EDI Status Message Processing Cont ;18-JUL-2005"
^XMB(3.9,55,2,25135,0)="""RTN"",""IBCEST1"",2,0)"
^XMB(3.9,55,2,25136,0)=" ;;2.0;INTEGRATED BILLING;**320**;21-MAR-94"
^XMB(3.9,55,2,25137,0)="""RTN"",""IBCEST1"",3,0)"
^XMB(3.9,55,2,25138,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,25139,0)="""RTN"",""IBCEST1"",4,0)"
^XMB(3.9,55,2,25140,0)=" ;"
^XMB(3.9,55,2,25141,0)="""RTN"",""IBCEST1"",5,0)"
^XMB(3.9,55,2,25142,0)=" Q"
^XMB(3.9,55,2,25143,0)="""RTN"",""IBCEST1"",6,0)"
^XMB(3.9,55,2,25144,0)=" ;"
^XMB(3.9,55,2,25145,0)="""RTN"",""IBCEST1"",7,0)"
^XMB(3.9,55,2,25146,0)="CHKSUM(IBARRAY) ; Incoming 277STAT status message checksum calculation"
^XMB(3.9,55,2,25147,0)="""RTN"",""IBCEST1"",8,0)"
^XMB(3.9,55,2,25148,0)=" ; This function calculates the checksum of the raw 277stat data from"
^XMB(3.9,55,2,25149,0)="""RTN"",""IBCEST1"",9,0)"
^XMB(3.9,55,2,25150,0)=" ; the data in array IBARRAY.  This is done to prevent duplicates."
^XMB(3.9,55,2,25151,0)="""RTN"",""IBCEST1"",10,0)"
^XMB(3.9,55,2,25152,0)=" ; Input parameter IBARRAY is the array reference where the data exists"
^XMB(3.9,55,2,25153,0)="""RTN"",""IBCEST1"",11,0)"
^XMB(3.9,55,2,25154,0)=" ;    at @IBARRAY@(n,0) where n is a sequential #"
^XMB(3.9,55,2,25155,0)="""RTN"",""IBCEST1"",12,0)"
^XMB(3.9,55,2,25156,0)=" ; For file 364.2, IBARRAY = ""^IBA(364.2,IBTDA,2)"" where IBTDA = the ien"
^XMB(3.9,55,2,25157,0)="""RTN"",""IBCEST1"",13,0)"
^XMB(3.9,55,2,25158,0)=" ;    of the entry in file 364.2 being evaluated"
^XMB(3.9,55,2,25159,0)="""RTN"",""IBCEST1"",14,0)"
^XMB(3.9,55,2,25160,0)=" ;"
^XMB(3.9,55,2,25161,0)="""RTN"",""IBCEST1"",15,0)"
^XMB(3.9,55,2,25162,0)=" NEW Y,LN,DATA,IBREC,POS,STSFLG"
^XMB(3.9,55,2,25163,0)="""RTN"",""IBCEST1"",16,0)"
^XMB(3.9,55,2,25164,0)=" S Y=0,STSFLG=0"
^XMB(3.9,55,2,25165,0)="""RTN"",""IBCEST1"",17,0)"
^XMB(3.9,55,2,25166,0)=" S LN=0"
^XMB(3.9,55,2,25167,0)="""RTN"",""IBCEST1"",18,0)"
^XMB(3.9,55,2,25168,0)=" F  S LN=$O(@IBARRAY@(LN)) Q:'LN  D"
^XMB(3.9,55,2,25169,0)="""RTN"",""IBCEST1"",19,0)"
^XMB(3.9,55,2,25170,0)=" . S DATA=$$EXT($G(@IBARRAY@(LN,0))) Q:DATA="""""
^XMB(3.9,55,2,25171,0)="""RTN"",""IBCEST1"",20,0)"
^XMB(3.9,55,2,25172,0)=" . S IBREC=$P(DATA,U,1)"
^XMB(3.9,55,2,25173,0)="""RTN"",""IBCEST1"",21,0)"
^XMB(3.9,55,2,25174,0)=" . I IBREC=""277STAT"" S STSFLG=1 Q      ; set the STS flag"
^XMB(3.9,55,2,25175,0)="""RTN"",""IBCEST1"",22,0)"
^XMB(3.9,55,2,25176,0)=" . I IBREC<1 Q             ; rec# too low"
^XMB(3.9,55,2,25177,0)="""RTN"",""IBCEST1"",23,0)"
^XMB(3.9,55,2,25178,0)=" . I IBREC'<99 Q           ; rec# too high"
^XMB(3.9,55,2,25179,0)="""RTN"",""IBCEST1"",24,0)"
^XMB(3.9,55,2,25180,0)=" . F POS=1:1:$L(DATA) S Y=Y+($A(DATA,POS)*POS)"
^XMB(3.9,55,2,25181,0)="""RTN"",""IBCEST1"",25,0)"
^XMB(3.9,55,2,25182,0)=" . Q"
^XMB(3.9,55,2,25183,0)="""RTN"",""IBCEST1"",26,0)"
^XMB(3.9,55,2,25184,0)=" ;"
^XMB(3.9,55,2,25185,0)="""RTN"",""IBCEST1"",27,0)"
^XMB(3.9,55,2,25186,0)=" I 'STSFLG S Y=0   ; if this array is not a 277stat message"
^XMB(3.9,55,2,25187,0)="""RTN"",""IBCEST1"",28,0)"
^XMB(3.9,55,2,25188,0)=" Q Y"
^XMB(3.9,55,2,25189,0)="""RTN"",""IBCEST1"",29,0)"
^XMB(3.9,55,2,25190,0)=" ;"
^XMB(3.9,55,2,25191,0)="""RTN"",""IBCEST1"",30,0)"
^XMB(3.9,55,2,25192,0)="EXT(DATA) ; Extracts from the text in DATA if the text contains "
^XMB(3.9,55,2,25193,0)="""RTN"",""IBCEST1"",31,0)"
^XMB(3.9,55,2,25194,0)=" ;  ""##RAW DATA: """
^XMB(3.9,55,2,25195,0)="""RTN"",""IBCEST1"",32,0)"
^XMB(3.9,55,2,25196,0)=" Q $S(DATA[""##RAW DATA: "":$P(DATA,""##RAW DATA: "",2,99),1:DATA)"
^XMB(3.9,55,2,25197,0)="""RTN"",""IBCEST1"",33,0)"
^XMB(3.9,55,2,25198,0)=" ;"
^XMB(3.9,55,2,25199,0)="""RTN"",""IBCFP1"")"
^XMB(3.9,55,2,25200,0)="0^22^B33631841^B33019277"
^XMB(3.9,55,2,25201,0)="""RTN"",""IBCFP1"",1,0)"
^XMB(3.9,55,2,25202,0)="IBCFP1 ;ALB/ARH - PRINT AUTHORIZED BILLS IN ORDER ;6-DEC-94"
^XMB(3.9,55,2,25203,0)="""RTN"",""IBCFP1"",2,0)"
^XMB(3.9,55,2,25204,0)=" ;;2.0;INTEGRATED BILLING;**54,52,80,121,51,137,155,320**;21-MAR-94"
^XMB(3.9,55,2,25205,0)="""RTN"",""IBCFP1"",3,0)"
^XMB(3.9,55,2,25206,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,25207,0)="""RTN"",""IBCFP1"",4,0)"
^XMB(3.9,55,2,25208,0)=" ;"
^XMB(3.9,55,2,25209,0)="""RTN"",""IBCFP1"",5,0)"
^XMB(3.9,55,2,25210,0)=" ;"
^XMB(3.9,55,2,25211,0)="""RTN"",""IBCFP1"",6,0)"
^XMB(3.9,55,2,25212,0)="QTASK ; 1st part sorts authorized bills into order requested by bill form type then queues off 1 job for each type to print bills"
^XMB(3.9,55,2,25213,0)="""RTN"",""IBCFP1"",7,0)"
^XMB(3.9,55,2,25214,0)=" ;"
^XMB(3.9,55,2,25215,0)="""RTN"",""IBCFP1"",8,0)"
^XMB(3.9,55,2,25216,0)=" D GCLEAN S IBXP=$$FMADD^XLFDT(DT,1)_""^""_DT_""^BATCH PRINT BILLS ""_$$HTE^XLFDT($H)_"" by ""_$S($D(^VA(200,+$G(DUZ),0)):$P(^(0),""^""),1:""Unknown User"")"
^XMB(3.9,55,2,25217,0)="""RTN"",""IBCFP1"",9,0)"
^XMB(3.9,55,2,25218,0)="SORT ;sort authorized bills by form type and requested sort order (notice bill addendums only print for HCFA 1500's)"
^XMB(3.9,55,2,25219,0)="""RTN"",""IBCFP1"",10,0)"
^XMB(3.9,55,2,25220,0)=" S (IBQ,IBIFN)=0 F  S IBIFN=$O(^DGCR(399,""AST"",3,IBIFN)) Q:'IBIFN!IBQ  D  I $$STOP S IBQ=1 Q"
^XMB(3.9,55,2,25221,0)="""RTN"",""IBCFP1"",11,0)"
^XMB(3.9,55,2,25222,0)=" . Q:+$$TXMT^IBCEF4(IBIFN)=1  ;Exclude transmittable bills"
^XMB(3.9,55,2,25223,0)="""RTN"",""IBCFP1"",12,0)"
^XMB(3.9,55,2,25224,0)=" . S IBFT=$$FT^IBCU3(IBIFN) Q:$P($G(^IBE(353,+IBFT,0)),U,2)=""""  I IBFT'?1N Q  ;No device for form type"
^XMB(3.9,55,2,25225,0)="""RTN"",""IBCFP1"",13,0)"
^XMB(3.9,55,2,25226,0)=" . S IBX=$G(^DGCR(399,IBIFN,0)),IBPAT=$P($G(^DPT(+$P(IBX,U,2),0)),U,1) Q:$P(IBX,U,13)'=3"
^XMB(3.9,55,2,25227,0)="""RTN"",""IBCFP1"",14,0)"
^XMB(3.9,55,2,25228,0)=" . S IBZIP=$P($G(^DGCR(399,IBIFN,""M"")),U,9),IBINS=$P($G(^DIC(36,+$G(^DGCR(399,IBIFN,""MP"")),0)),U,1)"
^XMB(3.9,55,2,25229,0)="""RTN"",""IBCFP1"",15,0)"
^XMB(3.9,55,2,25230,0)=" . S IBX=IBZIP_U_IBINS_U_IBPAT,IBS1=$P(IBX,U,$E(IBS,1))_"" "",IBS2=$P(IBX,U,$E(IBS,2))_"" "",IBS3=$P(IBX,U,$E(IBS,3))_"" """
^XMB(3.9,55,2,25231,0)="""RTN"",""IBCFP1"",16,0)"
^XMB(3.9,55,2,25232,0)=" . S ^XTMP(""IBCFP""_IBFT,0)=IBXP,^XTMP(""IBCFP""_IBFT,$J,IBS1,IBS2,IBS3,IBIFN)="""""
^XMB(3.9,55,2,25233,0)="""RTN"",""IBCFP1"",17,0)"
^XMB(3.9,55,2,25234,0)=" . S XIBFT=IBFT  ;save off curent value of IBFT"
^XMB(3.9,55,2,25235,0)="""RTN"",""IBCFP1"",18,0)"
^XMB(3.9,55,2,25236,0)=" . ;"
^XMB(3.9,55,2,25237,0)="""RTN"",""IBCFP1"",19,0)"
^XMB(3.9,55,2,25238,0)=" . ; set MRA queue to print"
^XMB(3.9,55,2,25239,0)="""RTN"",""IBCFP1"",20,0)"
^XMB(3.9,55,2,25240,0)=" . S IBFT=$$FNT^IBCU3(""MRA"")"
^XMB(3.9,55,2,25241,0)="""RTN"",""IBCFP1"",21,0)"
^XMB(3.9,55,2,25242,0)=" . ; Merge the data from ^XTMP(""IBCFP"" queue, into ""IBMRA"" queue"
^XMB(3.9,55,2,25243,0)="""RTN"",""IBCFP1"",22,0)"
^XMB(3.9,55,2,25244,0)=" . I +IBFT,$P($G(^IBE(353,+IBFT,0)),U,2)'="""" S ^XTMP(""IBMRA""_IBFT,0)=IBXP M ^XTMP(""IBMRA""_IBFT,$J)=^XTMP(""IBCFP""_XIBFT,$J)"
^XMB(3.9,55,2,25245,0)="""RTN"",""IBCFP1"",23,0)"
^XMB(3.9,55,2,25246,0)=" . ;"
^XMB(3.9,55,2,25247,0)="""RTN"",""IBCFP1"",24,0)"
^XMB(3.9,55,2,25248,0)=" . ; Print Bill Addendums only for HCFA 1500's"
^XMB(3.9,55,2,25249,0)="""RTN"",""IBCFP1"",25,0)"
^XMB(3.9,55,2,25250,0)=" . I $$FTN^IBCU3(XIBFT)'[""HCFA 1500"" Q"
^XMB(3.9,55,2,25251,0)="""RTN"",""IBCFP1"",26,0)"
^XMB(3.9,55,2,25252,0)=" . S IBFT=$$FNT^IBCU3(""BILL ADDENDUM"")"
^XMB(3.9,55,2,25253,0)="""RTN"",""IBCFP1"",27,0)"
^XMB(3.9,55,2,25254,0)=" . I +IBFT,$P($G(^IBE(353,+IBFT,0)),U,2)'="""" S ^XTMP(""IBCFP""_IBFT,0)=IBXP,^XTMP(""IBCFP""_IBFT,$J,IBS1,IBS2,IBS3,IBIFN)="""""
^XMB(3.9,55,2,25255,0)="""RTN"",""IBCFP1"",28,0)"
^XMB(3.9,55,2,25256,0)=" . Q"
^XMB(3.9,55,2,25257,0)="""RTN"",""IBCFP1"",29,0)"
^XMB(3.9,55,2,25258,0)=" K IBIFN,IBFT,XIBFT,IBX,IBY,IBPAT,IBZIP,IBINS,IBS1,IBS2,IBS3,IBS,IBXP"
^XMB(3.9,55,2,25259,0)="""RTN"",""IBCFP1"",30,0)"
^XMB(3.9,55,2,25260,0)=" ;"
^XMB(3.9,55,2,25261,0)="""RTN"",""IBCFP1"",31,0)"
^XMB(3.9,55,2,25262,0)="QUEUE ; starts a queued job for each form type that an authorized bill was found for"
^XMB(3.9,55,2,25263,0)="""RTN"",""IBCFP1"",32,0)"
^XMB(3.9,55,2,25264,0)=" ; no form types without defined device"
^XMB(3.9,55,2,25265,0)="""RTN"",""IBCFP1"",33,0)"
^XMB(3.9,55,2,25266,0)=" I IBQ D GCLEAN ;queued job stopped"
^XMB(3.9,55,2,25267,0)="""RTN"",""IBCFP1"",34,0)"
^XMB(3.9,55,2,25268,0)=" I 'IBQ D"
^XMB(3.9,55,2,25269,0)="""RTN"",""IBCFP1"",35,0)"
^XMB(3.9,55,2,25270,0)=" . ; queue a job for each form type"
^XMB(3.9,55,2,25271,0)="""RTN"",""IBCFP1"",36,0)"
^XMB(3.9,55,2,25272,0)=" . S IBIX=""IBCFP"" F  S IBIX=$O(^XTMP(IBIX)) Q:(IBIX'?1""IBCFP""1N)  I $D(^XTMP(IBIX,$J)) S IBFT=$E(IBIX,6) D"
^XMB(3.9,55,2,25273,0)="""RTN"",""IBCFP1"",37,0)"
^XMB(3.9,55,2,25274,0)=" . . S ZTIO=$P($G(^IBE(353,+IBFT,0)),U,2),IBFTP=IBIX,IBJ=$J"
^XMB(3.9,55,2,25275,0)="""RTN"",""IBCFP1"",38,0)"
^XMB(3.9,55,2,25276,0)=" . . S ZTDTH=$H,ZTSAVE(""IBFTP"")="""",ZTSAVE(""IBFT"")="""",ZTSAVE(""IBJ"")="""""
^XMB(3.9,55,2,25277,0)="""RTN"",""IBCFP1"",39,0)"
^XMB(3.9,55,2,25278,0)=" . . S ZTDESC=""BATCH PRINTING ""_$$FTN^IBCU3(+IBFT),ZTRTN=""QBILL^IBCFP1"" D ^%ZTLOAD"
^XMB(3.9,55,2,25279,0)="""RTN"",""IBCFP1"",40,0)"
^XMB(3.9,55,2,25280,0)=" . ; Also queue a job to print MRA's, if any, for each bill"
^XMB(3.9,55,2,25281,0)="""RTN"",""IBCFP1"",41,0)"
^XMB(3.9,55,2,25282,0)=" . S IBIX=""IBMRA"" F  S IBIX=$O(^XTMP(IBIX)) Q:(IBIX'?1""IBMRA""1N)  I $D(^XTMP(IBIX,$J)) S IBFT=$E(IBIX,6) D"
^XMB(3.9,55,2,25283,0)="""RTN"",""IBCFP1"",42,0)"
^XMB(3.9,55,2,25284,0)=" . . S ZTIO=$P($G(^IBE(353,+IBFT,0)),U,2),IBFTP=IBIX,IBJ=$J"
^XMB(3.9,55,2,25285,0)="""RTN"",""IBCFP1"",43,0)"
^XMB(3.9,55,2,25286,0)=" . . S ZTDTH=$H,ZTSAVE(""IBFTP"")="""",ZTSAVE(""IBFT"")="""",ZTSAVE(""IBJ"")="""""
^XMB(3.9,55,2,25287,0)="""RTN"",""IBCFP1"",44,0)"
^XMB(3.9,55,2,25288,0)=" . . S ZTDESC=""BATCH PRINTING MRA'S"",ZTRTN=""QMRA^IBCEMU2"" D ^%ZTLOAD"
^XMB(3.9,55,2,25289,0)="""RTN"",""IBCFP1"",45,0)"
^XMB(3.9,55,2,25290,0)=" K IBIX,IBY,IBFTP,IBJ ; end of first queued part"
^XMB(3.9,55,2,25291,0)="""RTN"",""IBCFP1"",46,0)"
^XMB(3.9,55,2,25292,0)=" Q"
^XMB(3.9,55,2,25293,0)="""RTN"",""IBCFP1"",47,0)"
^XMB(3.9,55,2,25294,0)=" ;"
^XMB(3.9,55,2,25295,0)="""RTN"",""IBCFP1"",48,0)"
^XMB(3.9,55,2,25296,0)="GCLEAN ; Clean up XTMP global for $J of IBCFP and IBMRA entries"
^XMB(3.9,55,2,25297,0)="""RTN"",""IBCFP1"",49,0)"
^XMB(3.9,55,2,25298,0)=" N I"
^XMB(3.9,55,2,25299,0)="""RTN"",""IBCFP1"",50,0)"
^XMB(3.9,55,2,25300,0)=" S I=""IBCFP"" F  S I=$O(^XTMP(I)) Q:I'?1""IBCFP""1N.N  K ^XTMP(I)"
^XMB(3.9,55,2,25301,0)="""RTN"",""IBCFP1"",51,0)"
^XMB(3.9,55,2,25302,0)=" S I=""IBMRA"" F  S I=$O(^XTMP(I)) Q:I'?1""IBMRA""1N.N  K ^XTMP(I)"
^XMB(3.9,55,2,25303,0)="""RTN"",""IBCFP1"",52,0)"
^XMB(3.9,55,2,25304,0)=" Q"
^XMB(3.9,55,2,25305,0)="""RTN"",""IBCFP1"",53,0)"
^XMB(3.9,55,2,25306,0)=" ;"
^XMB(3.9,55,2,25307,0)="""RTN"",""IBCFP1"",54,0)"
^XMB(3.9,55,2,25308,0)="QBILL ; 2nd queued part will print all authorized bills for a specific form type"
^XMB(3.9,55,2,25309,0)="""RTN"",""IBCFP1"",55,0)"
^XMB(3.9,55,2,25310,0)=" N IBF,IBFORM,IBPNT"
^XMB(3.9,55,2,25311,0)="""RTN"",""IBCFP1"",56,0)"
^XMB(3.9,55,2,25312,0)=" S IBF=$P($G(^IBE(353,+IBFT,2)),U,8),IBPNT=1"
^XMB(3.9,55,2,25313,0)="""RTN"",""IBCFP1"",57,0)"
^XMB(3.9,55,2,25314,0)=" I $D(IBMCSPNT) S IBPNT=IBMCSPNT    ; IB*320 - MCS resubmit by print"
^XMB(3.9,55,2,25315,0)="""RTN"",""IBCFP1"",58,0)"
^XMB(3.9,55,2,25316,0)=" I IBF'="""" S IBFORM=IBF D FORMOUT^IBCEFG7 Q  ;call formatter"
^XMB(3.9,55,2,25317,0)="""RTN"",""IBCFP1"",59,0)"
^XMB(3.9,55,2,25318,0)=" ;"
^XMB(3.9,55,2,25319,0)="""RTN"",""IBCFP1"",60,0)"
^XMB(3.9,55,2,25320,0)="QB1 ; Entrypoint for output logic of formatter"
^XMB(3.9,55,2,25321,0)="""RTN"",""IBCFP1"",61,0)"
^XMB(3.9,55,2,25322,0)=" ; pass in ""^XTMP(IBFTP,IBJ)"" sorted array of bills to print"
^XMB(3.9,55,2,25323,0)="""RTN"",""IBCFP1"",62,0)"
^XMB(3.9,55,2,25324,0)=" ;         IBFTP = ""IBCFP""_(form type) subscript indicating which part of array to print"
^XMB(3.9,55,2,25325,0)="""RTN"",""IBCFP1"",63,0)"
^XMB(3.9,55,2,25326,0)=" ;         IBPNT = reprint status of bill (1-original, 0-copy, etc)"
^XMB(3.9,55,2,25327,0)="""RTN"",""IBCFP1"",64,0)"
^XMB(3.9,55,2,25328,0)=" ;         IBFT  = IFN of bill form type to be printed"
^XMB(3.9,55,2,25329,0)="""RTN"",""IBCFP1"",65,0)"
^XMB(3.9,55,2,25330,0)=" ;         IBJ   = $J of starting job (for when multiple print jobs might be queued)"
^XMB(3.9,55,2,25331,0)="""RTN"",""IBCFP1"",66,0)"
^XMB(3.9,55,2,25332,0)=" ;                 if a single bill printed and queued, IBJ will be null"
^XMB(3.9,55,2,25333,0)="""RTN"",""IBCFP1"",67,0)"
^XMB(3.9,55,2,25334,0)=" S:$G(IBJ)="""" IBJ=$J"
^XMB(3.9,55,2,25335,0)="""RTN"",""IBCFP1"",68,0)"
^XMB(3.9,55,2,25336,0)=" S:'$D(IBPNT) IBPNT=1"
^XMB(3.9,55,2,25337,0)="""RTN"",""IBCFP1"",69,0)"
^XMB(3.9,55,2,25338,0)=" N IBCT,IBBN,IBS1,IBS2,IBS3,IBQ,IBIFN"
^XMB(3.9,55,2,25339,0)="""RTN"",""IBCFP1"",70,0)"
^XMB(3.9,55,2,25340,0)=" S (IBCT,IBQ,IBS1)=0"
^XMB(3.9,55,2,25341,0)="""RTN"",""IBCFP1"",71,0)"
^XMB(3.9,55,2,25342,0)=" S ZTREQ=""@"""
^XMB(3.9,55,2,25343,0)="""RTN"",""IBCFP1"",72,0)"
^XMB(3.9,55,2,25344,0)=" F  S IBS1=$O(^XTMP(IBFTP,IBJ,IBS1)) Q:IBS1=""""!IBQ  D"
^XMB(3.9,55,2,25345,0)="""RTN"",""IBCFP1"",73,0)"
^XMB(3.9,55,2,25346,0)=" . S IBS2=0 F  S IBS2=$O(^XTMP(IBFTP,IBJ,IBS1,IBS2)) Q:IBS2=""""!IBQ  D"
^XMB(3.9,55,2,25347,0)="""RTN"",""IBCFP1"",74,0)"
^XMB(3.9,55,2,25348,0)=" .. S IBS3=0 F  S IBS3=$O(^XTMP(IBFTP,IBJ,IBS1,IBS2,IBS3)) Q:IBS3=""""!IBQ  D"
^XMB(3.9,55,2,25349,0)="""RTN"",""IBCFP1"",75,0)"
^XMB(3.9,55,2,25350,0)=" ... S IBBN=0 F  S IBBN=$O(^XTMP(IBFTP,IBJ,IBS1,IBS2,IBS3,IBBN)) Q:IBBN=""""  D  I $$STOP S IBQ=1 Q"
^XMB(3.9,55,2,25351,0)="""RTN"",""IBCFP1"",76,0)"
^XMB(3.9,55,2,25352,0)=" .... D ROUT(IBFT,IBPNT,IBBN,.IBCT)"
^XMB(3.9,55,2,25353,0)="""RTN"",""IBCFP1"",77,0)"
^XMB(3.9,55,2,25354,0)=" K ^XTMP(IBFTP,IBJ) ; end of last queued part"
^XMB(3.9,55,2,25355,0)="""RTN"",""IBCFP1"",78,0)"
^XMB(3.9,55,2,25356,0)=" Q"
^XMB(3.9,55,2,25357,0)="""RTN"",""IBCFP1"",79,0)"
^XMB(3.9,55,2,25358,0)=" ;"
^XMB(3.9,55,2,25359,0)="""RTN"",""IBCFP1"",80,0)"
^XMB(3.9,55,2,25360,0)="ROUT(IBFT,IBPNT,IBIFN,IBCT,IBF) ; sub procedure to protect variables with new"
^XMB(3.9,55,2,25361,0)="""RTN"",""IBCFP1"",81,0)"
^XMB(3.9,55,2,25362,0)=" N IBBN,IBS1,IBS2,IBS3,IBQ,IBFTP,IBJ,IBXPARM,Z"
^XMB(3.9,55,2,25363,0)="""RTN"",""IBCFP1"",82,0)"
^XMB(3.9,55,2,25364,0)=" D BILLPARM^IBCEFG0(IBIFN,.IBXPARM)"
^XMB(3.9,55,2,25365,0)="""RTN"",""IBCFP1"",83,0)"
^XMB(3.9,55,2,25366,0)=" S IBF=$S($G(IBF)'="""":IBF,1:$P($G(^IBE(353,+IBFT,2)),U,8)),IBCT=$G(IBCT)+1"
^XMB(3.9,55,2,25367,0)="""RTN"",""IBCFP1"",84,0)"
^XMB(3.9,55,2,25368,0)=" I IBF'="""" S Z=$$EXTRACT^IBCEFG(IBF,IBIFN,.IBCT,.IBXPARM) G REX"
^XMB(3.9,55,2,25369,0)="""RTN"",""IBCFP1"",85,0)"
^XMB(3.9,55,2,25370,0)=" I IBFT=1 S DFN=$P($G(^DGCR(399,+IBIFN,0)),U,2) D ENP^IBCF1 W @IOF G REX"
^XMB(3.9,55,2,25371,0)="""RTN"",""IBCFP1"",86,0)"
^XMB(3.9,55,2,25372,0)=" I IBFT=2 D EN^IBCF2 W @IOF G REX"
^XMB(3.9,55,2,25373,0)="""RTN"",""IBCFP1"",87,0)"
^XMB(3.9,55,2,25374,0)=" I $$FTN^IBCU3(+IBFT)=""UB-92"" D EN^IBCF3 W @IOF G REX"
^XMB(3.9,55,2,25375,0)="""RTN"",""IBCFP1"",88,0)"
^XMB(3.9,55,2,25376,0)=" I $$FTN^IBCU3(+IBFT)=""BILL ADDENDUM"" I +$$BILLAD^IBCF4(IBIFN) D EN^IBCF4 W @IOF G REX"
^XMB(3.9,55,2,25377,0)="""RTN"",""IBCFP1"",89,0)"
^XMB(3.9,55,2,25378,0)="REX Q"
^XMB(3.9,55,2,25379,0)="""RTN"",""IBCFP1"",90,0)"
^XMB(3.9,55,2,25380,0)=" ;"
^XMB(3.9,55,2,25381,0)="""RTN"",""IBCFP1"",91,0)"
^XMB(3.9,55,2,25382,0)="DATE(X) Q $E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3)"
^XMB(3.9,55,2,25383,0)="""RTN"",""IBCFP1"",92,0)"
^XMB(3.9,55,2,25384,0)=" ;"
^XMB(3.9,55,2,25385,0)="""RTN"",""IBCFP1"",93,0)"
^XMB(3.9,55,2,25386,0)="STOP() ;determine if user has requested the queued report to stop"
^XMB(3.9,55,2,25387,0)="""RTN"",""IBCFP1"",94,0)"
^XMB(3.9,55,2,25388,0)=" I $D(ZTQUEUED),$$S^%ZTLOAD S ZTSTOP=1 K ZTREQ I +$G(IBPGN) W !,""***TASK STOPPED BY USER***"""
^XMB(3.9,55,2,25389,0)="""RTN"",""IBCFP1"",95,0)"
^XMB(3.9,55,2,25390,0)=" Q +$G(ZTSTOP)"
^XMB(3.9,55,2,25391,0)="""RTN"",""IBCFP1"",96,0)"
^XMB(3.9,55,2,25392,0)=" ;"
^XMB(3.9,55,2,25393,0)="""RTN"",""IBCFP1"",97,0)"
^XMB(3.9,55,2,25394,0)="FORMPRE ; Set up environment for bill message"
^XMB(3.9,55,2,25395,0)="""RTN"",""IBCFP1"",98,0)"
^XMB(3.9,55,2,25396,0)=" K ^TMP(""IBXMSG"",$J),^TMP(""IBXERR"",$J),IBXERR,^TMP(""IBXDATA"",$J)"
^XMB(3.9,55,2,25397,0)="""RTN"",""IBCFP1"",99,0)"
^XMB(3.9,55,2,25398,0)=" Q"
^XMB(3.9,55,2,25399,0)="""RTN"",""IBCFP1"",100,0)"
^XMB(3.9,55,2,25400,0)=" ;"
^XMB(3.9,55,2,25401,0)="""RTN"",""IBCFP1"",101,0)"
^XMB(3.9,55,2,25402,0)="FORMPOST ; Clean up"
^XMB(3.9,55,2,25403,0)="""RTN"",""IBCFP1"",102,0)"
^XMB(3.9,55,2,25404,0)=" I $O(^TMP(""IBXERR"",$J,"""")) D  ;Error messages to mail group"
^XMB(3.9,55,2,25405,0)="""RTN"",""IBCFP1"",103,0)"
^XMB(3.9,55,2,25406,0)=" .N XMTO,XMBODY,XMDUZ,XMSUBJ,IBCT,IBERR"
^XMB(3.9,55,2,25407,0)="""RTN"",""IBCFP1"",104,0)"
^XMB(3.9,55,2,25408,0)=" .K ^TMP(""IBXMSG"",$J)"
^XMB(3.9,55,2,25409,0)="""RTN"",""IBCFP1"",105,0)"
^XMB(3.9,55,2,25410,0)=" .S ^TMP(""IBXMSG"",$J,1)=""The following bill(s) were not printed due to errors indicated."",^(2)=""Once the errors are corrected, the bill(s) can be printed again."",^(3)="" """
^XMB(3.9,55,2,25411,0)="""RTN"",""IBCFP1"",106,0)"
^XMB(3.9,55,2,25412,0)=" .;"
^XMB(3.9,55,2,25413,0)="""RTN"",""IBCFP1"",107,0)"
^XMB(3.9,55,2,25414,0)=" .S IBERR=0,IBCT=3"
^XMB(3.9,55,2,25415,0)="""RTN"",""IBCFP1"",108,0)"
^XMB(3.9,55,2,25416,0)=" .F  S IBERR=$O(^TMP(""IBXERR"",$J,IBERR)) Q:'IBERR  S IBCT=IBCT+1,^TMP(""IBXMSG"",$J,IBCT)=""Bill #: ""_$P($G(^DGCR(399,IBERR,0)),U),IBCT=IBCT+1,^TMP(""IBXMSG"",$J,IBCT)=$J("""",5)_^TMP(""IBXERR"",$J,IBERR)"
^XMB(3.9,55,2,25417,0)="""RTN"",""IBCFP1"",109,0)"
^XMB(3.9,55,2,25418,0)=" .S XMBODY=""^TMP(""""IBXMSG"""",""_$J_"")"" D ERRMSG(XMBODY)"
^XMB(3.9,55,2,25419,0)="""RTN"",""IBCFP1"",110,0)"
^XMB(3.9,55,2,25420,0)=" .K ^TMP(""IBXMSG"",$J),^TMP($J,""IBICT"")"
^XMB(3.9,55,2,25421,0)="""RTN"",""IBCFP1"",111,0)"
^XMB(3.9,55,2,25422,0)=" ;"
^XMB(3.9,55,2,25423,0)="""RTN"",""IBCFP1"",112,0)"
^XMB(3.9,55,2,25424,0)=" K ^TMP(""IBXERR"",$J),IBXERR"
^XMB(3.9,55,2,25425,0)="""RTN"",""IBCFP1"",113,0)"
^XMB(3.9,55,2,25426,0)=" D CLEAN^DILF"
^XMB(3.9,55,2,25427,0)="""RTN"",""IBCFP1"",114,0)"
^XMB(3.9,55,2,25428,0)=" Q"
^XMB(3.9,55,2,25429,0)="""RTN"",""IBCFP1"",115,0)"
^XMB(3.9,55,2,25430,0)=" ;"
^XMB(3.9,55,2,25431,0)="""RTN"",""IBCFP1"",116,0)"
^XMB(3.9,55,2,25432,0)="ENTPRE ; Run before processing a bill entry"
^XMB(3.9,55,2,25433,0)="""RTN"",""IBCFP1"",117,0)"
^XMB(3.9,55,2,25434,0)=" K IBXSAVE,IBXERR,^UTILITY(""VAPA"",$J),^TMP(""IBXSAVE"",$J),^TMP($J),^TMP(""DIERR"",$J)"
^XMB(3.9,55,2,25435,0)="""RTN"",""IBCFP1"",118,0)"
^XMB(3.9,55,2,25436,0)=" Q"
^XMB(3.9,55,2,25437,0)="""RTN"",""IBCFP1"",119,0)"
^XMB(3.9,55,2,25438,0)=" ;"
^XMB(3.9,55,2,25439,0)="""RTN"",""IBCFP1"",120,0)"
^XMB(3.9,55,2,25440,0)="ENTPOST ; Run after processing a bill entry"
^XMB(3.9,55,2,25441,0)="""RTN"",""IBCFP1"",121,0)"
^XMB(3.9,55,2,25442,0)=" N IBIFN"
^XMB(3.9,55,2,25443,0)="""RTN"",""IBCFP1"",122,0)"
^XMB(3.9,55,2,25444,0)=" I $G(IBXERR)'="""" S ^TMP(""IBXERR"",$J,IBXIEN)=IBXERR K ^TMP(""IBXDATA"",$J)"
^XMB(3.9,55,2,25445,0)="""RTN"",""IBCFP1"",123,0)"
^XMB(3.9,55,2,25446,0)=" S IBIFN=IBXIEN D END^IBCF2"
^XMB(3.9,55,2,25447,0)="""RTN"",""IBCFP1"",124,0)"
^XMB(3.9,55,2,25448,0)=" K IBXSAVE,^UTILITY(""VAPA"",$J),^TMP($J),^TMP(""IBXSAVE"",$J)"
^XMB(3.9,55,2,25449,0)="""RTN"",""IBCFP1"",125,0)"
^XMB(3.9,55,2,25450,0)=" D CLEAN^DILF"
^XMB(3.9,55,2,25451,0)="""RTN"",""IBCFP1"",126,0)"
^XMB(3.9,55,2,25452,0)=" Q"
^XMB(3.9,55,2,25453,0)="""RTN"",""IBCFP1"",127,0)"
^XMB(3.9,55,2,25454,0)=" ;"
^XMB(3.9,55,2,25455,0)="""RTN"",""IBCFP1"",128,0)"
^XMB(3.9,55,2,25456,0)="ERRMSG(XMBODY) ; Send bulletin for error message"
^XMB(3.9,55,2,25457,0)="""RTN"",""IBCFP1"",129,0)"
^XMB(3.9,55,2,25458,0)=" N XMTO,XMSUBJ"
^XMB(3.9,55,2,25459,0)="""RTN"",""IBCFP1"",130,0)"
^XMB(3.9,55,2,25460,0)=" S XMTO($G(DUZ))="""",XMSUBJ=""PRINT BILL ERRORS"""
^XMB(3.9,55,2,25461,0)="""RTN"",""IBCFP1"",131,0)"
^XMB(3.9,55,2,25462,0)=" ;"
^XMB(3.9,55,2,25463,0)="""RTN"",""IBCFP1"",132,0)"
^XMB(3.9,55,2,25464,0)=" D SENDMSG^XMXAPI(,XMSUBJ,XMBODY,.XMTO)"
^XMB(3.9,55,2,25465,0)="""RTN"",""IBCFP1"",133,0)"
^XMB(3.9,55,2,25466,0)=" D ALERT(""One or more bills were not printed.  Check your mail for details"",$G(DUZ))"
^XMB(3.9,55,2,25467,0)="""RTN"",""IBCFP1"",134,0)"
^XMB(3.9,55,2,25468,0)=" Q"
^XMB(3.9,55,2,25469,0)="""RTN"",""IBCFP1"",135,0)"
^XMB(3.9,55,2,25470,0)=" ;"
^XMB(3.9,55,2,25471,0)="""RTN"",""IBCFP1"",136,0)"
^XMB(3.9,55,2,25472,0)="ALERT(XQAMSG,IBGRP) ; Send alert message"
^XMB(3.9,55,2,25473,0)="""RTN"",""IBCFP1"",137,0)"
^XMB(3.9,55,2,25474,0)=" N XQA"
^XMB(3.9,55,2,25475,0)="""RTN"",""IBCFP1"",138,0)"
^XMB(3.9,55,2,25476,0)=" S XQA(IBGRP)="""""
^XMB(3.9,55,2,25477,0)="""RTN"",""IBCFP1"",139,0)"
^XMB(3.9,55,2,25478,0)=" D SETUP^XQALERT"
^XMB(3.9,55,2,25479,0)="""RTN"",""IBCFP1"",140,0)"
^XMB(3.9,55,2,25480,0)=" Q"
^XMB(3.9,55,2,25481,0)="""RTN"",""IBCNQ"")"
^XMB(3.9,55,2,25482,0)="0^5^B25553746^B19965912"
^XMB(3.9,55,2,25483,0)="""RTN"",""IBCNQ"",1,0)"
^XMB(3.9,55,2,25484,0)="IBCNQ ;ALB/MJB - MCCR PATIENT BILLING INQUIRY ;13 JUN 88 13:52"
^XMB(3.9,55,2,25485,0)="""RTN"",""IBCNQ"",2,0)"
^XMB(3.9,55,2,25486,0)=" ;;2.0;INTEGRATED BILLING;**51,320**;21-MAR-94"
^XMB(3.9,55,2,25487,0)="""RTN"",""IBCNQ"",3,0)"
^XMB(3.9,55,2,25488,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,25489,0)="""RTN"",""IBCNQ"",4,0)"
^XMB(3.9,55,2,25490,0)=" ;"
^XMB(3.9,55,2,25491,0)="""RTN"",""IBCNQ"",5,0)"
^XMB(3.9,55,2,25492,0)=" ;MAP TO DGCRNQ"
^XMB(3.9,55,2,25493,0)="""RTN"",""IBCNQ"",6,0)"
^XMB(3.9,55,2,25494,0)=" ;"
^XMB(3.9,55,2,25495,0)="""RTN"",""IBCNQ"",7,0)"
^XMB(3.9,55,2,25496,0)=" D HOME^%ZIS"
^XMB(3.9,55,2,25497,0)="""RTN"",""IBCNQ"",8,0)"
^XMB(3.9,55,2,25498,0)="ASKPAT S DIC=""^DGCR(399,"",DIC(0)=""AEMQZ"",DIC(""A"")=""Enter BILL NUMBER or PATIENT NAME: "" W !! D ^DIC G:X=""""!(X[""^"") Q"
^XMB(3.9,55,2,25499,0)="""RTN"",""IBCNQ"",9,0)"
^XMB(3.9,55,2,25500,0)=" ;"
^XMB(3.9,55,2,25501,0)="""RTN"",""IBCNQ"",10,0)"
^XMB(3.9,55,2,25502,0)=" S IBIFN=+Y,IBQUIT=0,IBAC=7"
^XMB(3.9,55,2,25503,0)="""RTN"",""IBCNQ"",11,0)"
^XMB(3.9,55,2,25504,0)="VIEW ;"
^XMB(3.9,55,2,25505,0)="""RTN"",""IBCNQ"",12,0)"
^XMB(3.9,55,2,25506,0)=" ;***"
^XMB(3.9,55,2,25507,0)="""RTN"",""IBCNQ"",13,0)"
^XMB(3.9,55,2,25508,0)=" ;S XRTL=$ZU(0),XRTN=""IBCNQ-2"" D T0^%ZOSV ;start rt clock"
^XMB(3.9,55,2,25509,0)="""RTN"",""IBCNQ"",14,0)"
^XMB(3.9,55,2,25510,0)=" F I=0,""S"",""U"",""U1"" S IB(I)=$G(^DGCR(399,IBIFN,I))"
^XMB(3.9,55,2,25511,0)="""RTN"",""IBCNQ"",15,0)"
^XMB(3.9,55,2,25512,0)=" S DFN=$P(IB(0),""^"",2),IBSTAT=$P(IB(0),""^"",13),IBBNO=$$BN^PRCAFN(IBIFN),IBPAGE=0 S:IBBNO=-1 IBBNO=$S($D(IBIL):IBIL,1:$P(IB(0),""^""))"
^XMB(3.9,55,2,25513,0)="""RTN"",""IBCNQ"",16,0)"
^XMB(3.9,55,2,25514,0)=" ;"
^XMB(3.9,55,2,25515,0)="""RTN"",""IBCNQ"",17,0)"
^XMB(3.9,55,2,25516,0)=" D NOW^%DTC S Y=$E(%,1,12) D D^DIQ S IBNOW=Y,IBPT=$$PT^IBEFUNC(DFN) D HDR1"
^XMB(3.9,55,2,25517,0)="""RTN"",""IBCNQ"",18,0)"
^XMB(3.9,55,2,25518,0)=" ;"
^XMB(3.9,55,2,25519,0)="""RTN"",""IBCNQ"",19,0)"
^XMB(3.9,55,2,25520,0)=" S IBUN=""UNSPECIFIED"",IBUK=""UNKNOWN USER"""
^XMB(3.9,55,2,25521,0)="""RTN"",""IBCNQ"",20,0)"
^XMB(3.9,55,2,25522,0)=" W !,""Bill Status"",?15,"": "",$S(IBSTAT=1:""ENTERED/NOT REVIEWED"",IBSTAT=2:""MRA REQUESTED"",IBSTAT=3:""AUTHORIZED"",IBSTAT=4:""PRINTED/TRANSMITTED"",IBSTAT=7:""CANCELLED"",1:IBUN),"" - RECORD IS "",$S(IBSTAT<3:"""",1:""UN""),""EDITABLE"""
^XMB(3.9,55,2,25523,0)="""RTN"",""IBCNQ"",21,0)"
^XMB(3.9,55,2,25524,0)=" W !,""Rate Type"",?15,"": "",$S($P(IB(0),""^"",7)="""":IBUN,'$D(^DGCR(399.3,$P(IB(0),""^"",7),0)):IBUN,1:$P(^DGCR(399.3,$P(IB(0),""^"",7),0),""^""))"
^XMB(3.9,55,2,25525,0)="""RTN"",""IBCNQ"",22,0)"
^XMB(3.9,55,2,25526,0)=" W:+$P(^IBE(350.9,1,1),""^"",22) !,""Form Type"",?15,"": "",$S($P($G(^IBE(353,+$P(IB(0),""^"",19),0)),""^"")]"""":$P(^(0),""^""),1:IBUN)"
^XMB(3.9,55,2,25527,0)="""RTN"",""IBCNQ"",23,0)"
^XMB(3.9,55,2,25528,0)=" W:IBSTAT=7 !,""Reason Canceled"",?15,"": "",$S($P(IB(""S""),""^"",19)]"""":$P(IB(""S""),""^"",19),1:IBUN)"
^XMB(3.9,55,2,25529,0)="""RTN"",""IBCNQ"",24,0)"
^XMB(3.9,55,2,25530,0)=" I $$INPAT^IBCEF(IBIFN) S Y=$P(IB(0),""^"",3) D D^DIQ W !!,""Admission Date : "",Y"
^XMB(3.9,55,2,25531,0)="""RTN"",""IBCNQ"",25,0)"
^XMB(3.9,55,2,25532,0)=" E  D OPDATE"
^XMB(3.9,55,2,25533,0)="""RTN"",""IBCNQ"",26,0)"
^XMB(3.9,55,2,25534,0)=" W !!,""Charges"",?15,"": "" S X=$P(IB(""U1""),U,1),X2=""2$"" D:X]"""" COMMA^%DTC W $S(X]"""":X,1:IBUN)"
^XMB(3.9,55,2,25535,0)="""RTN"",""IBCNQ"",27,0)"
^XMB(3.9,55,2,25536,0)=" I $P(IB(""U1""),U,2)]"""" W !,""LESS Offset"",?15,"": "" S X=$P(IB(""U1""),U,2),X2=""2$"" D COMMA^%DTC W X,""   ["",$P(IB(""U1""),U,3),""]"",!,""Bill Total"",?15,"": "" S X=($P(IB(""U1""),U,1)-$P(IB(""U1""),U,2)),X2=""2$"" D COMMA^%DTC W X"
^XMB(3.9,55,2,25537,0)="""RTN"",""IBCNQ"",28,0)"
^XMB(3.9,55,2,25538,0)=" S X=$$TPR^PRCAFN(IBIFN) I X>0 S X2=""2$"" D COMMA^%DTC W !,""Amount Paid"",?15,"": "",X"
^XMB(3.9,55,2,25539,0)="""RTN"",""IBCNQ"",29,0)"
^XMB(3.9,55,2,25540,0)=" S X=$$STA^PRCAFN(IBIFN) I X>0 W !,""AR Status"",?15,"": "",$P(X,""^"",2)"
^XMB(3.9,55,2,25541,0)="""RTN"",""IBCNQ"",30,0)"
^XMB(3.9,55,2,25542,0)=" I $P(IB(""U""),U)]"""" S Y=$P(IB(""U""),U) D D^DIQ W !!,""Statement From"",?15,"": "",Y S Y=$P(IB(""U""),""^"",2) D D^DIQ W !,""Statement To"",?15,"": "",Y,!"
^XMB(3.9,55,2,25543,0)="""RTN"",""IBCNQ"",31,0)"
^XMB(3.9,55,2,25544,0)=" I $P(IB(""U""),U)']"""" W !!,""Statement From"",?15,"": "",IBUN,!,""Statement To"",?15,"": "",IBUN,!"
^XMB(3.9,55,2,25545,0)="""RTN"",""IBCNQ"",32,0)"
^XMB(3.9,55,2,25546,0)=" D DISP I IBQUIT Q:IBAC[8  G Q"
^XMB(3.9,55,2,25547,0)="""RTN"",""IBCNQ"",33,0)"
^XMB(3.9,55,2,25548,0)=" I IBSTAT<5 D NOPTF^IBCB2 I 'IBAC1 D:$Y>(IOSL-6) HDR Q:IBQUIT&(IBAC[8)  G Q:IBQUIT D NOPTF1^IBCB2"
^XMB(3.9,55,2,25549,0)="""RTN"",""IBCNQ"",34,0)"
^XMB(3.9,55,2,25550,0)=" D PAUSE,^IBOLK1:$G(IBFULL)&('IBQUIT) Q:IBAC[8  ; Called from Outpatient Visit Date Inquiry"
^XMB(3.9,55,2,25551,0)="""RTN"",""IBCNQ"",35,0)"
^XMB(3.9,55,2,25552,0)=" G Q:IBQUIT,ASKPAT"
^XMB(3.9,55,2,25553,0)="""RTN"",""IBCNQ"",36,0)"
^XMB(3.9,55,2,25554,0)=" ;"
^XMB(3.9,55,2,25555,0)="""RTN"",""IBCNQ"",37,0)"
^XMB(3.9,55,2,25556,0)="DISP ; The variable IBAC must be defined as input to this sub-routine."
^XMB(3.9,55,2,25557,0)="""RTN"",""IBCNQ"",38,0)"
^XMB(3.9,55,2,25558,0)=" G:'$D(IBAC) DISPQ"
^XMB(3.9,55,2,25559,0)="""RTN"",""IBCNQ"",39,0)"
^XMB(3.9,55,2,25560,0)=" S IBUN=""UNSPECIFIED"",IBUK=""UNKNOWN USER"""
^XMB(3.9,55,2,25561,0)="""RTN"",""IBCNQ"",40,0)"
^XMB(3.9,55,2,25562,0)=" I IB(""S"")']"""" W !,""Past actions of this billing record unspecified."" G DISPQ"
^XMB(3.9,55,2,25563,0)="""RTN"",""IBCNQ"",41,0)"
^XMB(3.9,55,2,25564,0)=" S IBX=""Entered^^^^^^MRA Requested^^^Authorized^^^^Last Printed^^^Cancelled"""
^XMB(3.9,55,2,25565,0)="""RTN"",""IBCNQ"",42,0)"
^XMB(3.9,55,2,25566,0)=" F I=1,10,14,17 I $P(IB(""S""),U,I)]"""" D:IBAC[7&($Y>(IOSL-4)) HDR Q:$S(IBAC'[7:0,1:IBQUIT)  D DISP1"
^XMB(3.9,55,2,25567,0)="""RTN"",""IBCNQ"",43,0)"
^XMB(3.9,55,2,25568,0)=" ;"
^XMB(3.9,55,2,25569,0)="""RTN"",""IBCNQ"",44,0)"
^XMB(3.9,55,2,25570,0)=" ;Patch 320 - Added call to retrieve claim clone history."
^XMB(3.9,55,2,25571,0)="""RTN"",""IBCNQ"",45,0)"
^XMB(3.9,55,2,25572,0)=" N IBCCR,IBCURR,IBNEXT,IBBCH,IBINDENT"
^XMB(3.9,55,2,25573,0)="""RTN"",""IBCNQ"",46,0)"
^XMB(3.9,55,2,25574,0)=" S IBINDENT=0"
^XMB(3.9,55,2,25575,0)="""RTN"",""IBCNQ"",47,0)"
^XMB(3.9,55,2,25576,0)=" D EN^IBCCR(IBIFN,.IBCCR)   ; utility to pull cloning history"
^XMB(3.9,55,2,25577,0)="""RTN"",""IBCNQ"",48,0)"
^XMB(3.9,55,2,25578,0)=" ;"
^XMB(3.9,55,2,25579,0)="""RTN"",""IBCNQ"",49,0)"
^XMB(3.9,55,2,25580,0)=" ; attempt to go one claim forward from the current claim"
^XMB(3.9,55,2,25581,0)="""RTN"",""IBCNQ"",50,0)"
^XMB(3.9,55,2,25582,0)=" S IBCURR=""IBCCR(""_+$P(IB(""S""),U,1)_"",""_IBIFN_"")"""
^XMB(3.9,55,2,25583,0)="""RTN"",""IBCNQ"",51,0)"
^XMB(3.9,55,2,25584,0)=" S IBNEXT=$Q(@IBCURR)"
^XMB(3.9,55,2,25585,0)="""RTN"",""IBCNQ"",52,0)"
^XMB(3.9,55,2,25586,0)=" I IBNEXT'="""" D"
^XMB(3.9,55,2,25587,0)="""RTN"",""IBCNQ"",53,0)"
^XMB(3.9,55,2,25588,0)=" . N IBX S IBX=@IBNEXT"
^XMB(3.9,55,2,25589,0)="""RTN"",""IBCNQ"",54,0)"
^XMB(3.9,55,2,25590,0)=" . W !,""Copied"""
^XMB(3.9,55,2,25591,0)="""RTN"",""IBCNQ"",55,0)"
^XMB(3.9,55,2,25592,0)=" . W ?15,"": "",$$FMTE^XLFDT($P(IBX,U,1),""1Z"")_"" by ""_$P(IBX,U,3)"
^XMB(3.9,55,2,25593,0)="""RTN"",""IBCNQ"",56,0)"
^XMB(3.9,55,2,25594,0)=" . W !,""Copied To"",?15,"": "",$P(IBX,U,2)"
^XMB(3.9,55,2,25595,0)="""RTN"",""IBCNQ"",57,0)"
^XMB(3.9,55,2,25596,0)=" . S IBINDENT=1"
^XMB(3.9,55,2,25597,0)="""RTN"",""IBCNQ"",58,0)"
^XMB(3.9,55,2,25598,0)=" . Q"
^XMB(3.9,55,2,25599,0)="""RTN"",""IBCNQ"",59,0)"
^XMB(3.9,55,2,25600,0)=" ;"
^XMB(3.9,55,2,25601,0)="""RTN"",""IBCNQ"",60,0)"
^XMB(3.9,55,2,25602,0)=" ; now go backwards for claim cloning history all the way back"
^XMB(3.9,55,2,25603,0)="""RTN"",""IBCNQ"",61,0)"
^XMB(3.9,55,2,25604,0)=" S IBBCH=IBCURR"
^XMB(3.9,55,2,25605,0)="""RTN"",""IBCNQ"",62,0)"
^XMB(3.9,55,2,25606,0)=" F  S IBBCH=$Q(@IBBCH,-1) Q:IBBCH=""""  D"
^XMB(3.9,55,2,25607,0)="""RTN"",""IBCNQ"",63,0)"
^XMB(3.9,55,2,25608,0)=" . N IBX,TS1,TS2 S IBX=@IBBCH"
^XMB(3.9,55,2,25609,0)="""RTN"",""IBCNQ"",64,0)"
^XMB(3.9,55,2,25610,0)=" . I IBINDENT S TS1=4,TS2=19     ; set tab stops"
^XMB(3.9,55,2,25611,0)="""RTN"",""IBCNQ"",65,0)"
^XMB(3.9,55,2,25612,0)=" . E  S TS1=0,TS2=15"
^XMB(3.9,55,2,25613,0)="""RTN"",""IBCNQ"",66,0)"
^XMB(3.9,55,2,25614,0)=" . W !?TS1,""Copied"",?TS2,"": """
^XMB(3.9,55,2,25615,0)="""RTN"",""IBCNQ"",67,0)"
^XMB(3.9,55,2,25616,0)=" . W $$FMTE^XLFDT($P(IBX,U,1),""1Z"")_"" by ""_$P(IBX,U,3)"
^XMB(3.9,55,2,25617,0)="""RTN"",""IBCNQ"",68,0)"
^XMB(3.9,55,2,25618,0)=" . W !?TS1,""Copied From"",?TS2,"": "",$P(IBX,U,2)"
^XMB(3.9,55,2,25619,0)="""RTN"",""IBCNQ"",69,0)"
^XMB(3.9,55,2,25620,0)=" . W !?TS1,""Reason Copied"",?TS2,"": "",$P(IBX,U,4)"
^XMB(3.9,55,2,25621,0)="""RTN"",""IBCNQ"",70,0)"
^XMB(3.9,55,2,25622,0)=" . S IBINDENT=1"
^XMB(3.9,55,2,25623,0)="""RTN"",""IBCNQ"",71,0)"
^XMB(3.9,55,2,25624,0)=" . Q"
^XMB(3.9,55,2,25625,0)="""RTN"",""IBCNQ"",72,0)"
^XMB(3.9,55,2,25626,0)=" ;"
^XMB(3.9,55,2,25627,0)="""RTN"",""IBCNQ"",73,0)"
^XMB(3.9,55,2,25628,0)=" I $D(^DGCR(399,IBIFN,""R"",""AC"",1)) S IB=0 F I=0:0 S IB=$O(^DGCR(399,IBIFN,""R"",""AC"",1,IB)) Q:'IB  D:IBAC[7&($Y>(IOSL-4)) HDR Q:$S(IBAC'[7:0,1:IBQUIT)  W !,""Returned to AR : "" D RETN"
^XMB(3.9,55,2,25629,0)="""RTN"",""IBCNQ"",74,0)"
^XMB(3.9,55,2,25630,0)="DISPQ Q"
^XMB(3.9,55,2,25631,0)="""RTN"",""IBCNQ"",75,0)"
^XMB(3.9,55,2,25632,0)=" ;"
^XMB(3.9,55,2,25633,0)="""RTN"",""IBCNQ"",76,0)"
^XMB(3.9,55,2,25634,0)="DISP1 W !,$P(IBX,U,I) S Y=$P(IB(""S""),U,I) D D^DIQ W ?15,"": "",Y,?28,"" by "" S IBN=$P(IB(""S""),U,(I+1)) W $S(IBN']"""":IBUK,$D(^VA(200,IBN,0)):$P(^(0),U,1),1:IBUK)"
^XMB(3.9,55,2,25635,0)="""RTN"",""IBCNQ"",77,0)"
^XMB(3.9,55,2,25636,0)=" Q"
^XMB(3.9,55,2,25637,0)="""RTN"",""IBCNQ"",78,0)"
^XMB(3.9,55,2,25638,0)=" ;"
^XMB(3.9,55,2,25639,0)="""RTN"",""IBCNQ"",79,0)"
^XMB(3.9,55,2,25640,0)="Q K DFN,IB,IBAC,IBBNO,IBN,IBNOW,IBPAGE,IBPT,IBU,IBQUIT,IBUK,IBUN,IBX,IBSTAT,IBAC1,IBIFN,IBOPD,DIC,X,X2,Y"
^XMB(3.9,55,2,25641,0)="""RTN"",""IBCNQ"",80,0)"
^XMB(3.9,55,2,25642,0)=" Q"
^XMB(3.9,55,2,25643,0)="""RTN"",""IBCNQ"",81,0)"
^XMB(3.9,55,2,25644,0)=" ;"
^XMB(3.9,55,2,25645,0)="""RTN"",""IBCNQ"",82,0)"
^XMB(3.9,55,2,25646,0)="RETN I $D(^DGCR(399,IBIFN,""R"",IB,0)) S IBN=^(0),Y=$P($P(IBN,""^""),""."") D D^DIQ W Y,?28,"" by "" S IBN=$P(IBN,""^"",2) I IBN]"""",$D(^VA(200,IBN,0)) W $P(^VA(200,IBN,0),""^"")"
^XMB(3.9,55,2,25647,0)="""RTN"",""IBCNQ"",83,0)"
^XMB(3.9,55,2,25648,0)=" Q"
^XMB(3.9,55,2,25649,0)="""RTN"",""IBCNQ"",84,0)"
^XMB(3.9,55,2,25650,0)=" ;"
^XMB(3.9,55,2,25651,0)="""RTN"",""IBCNQ"",85,0)"
^XMB(3.9,55,2,25652,0)="HDR D PAUSE Q:IBQUIT"
^XMB(3.9,55,2,25653,0)="""RTN"",""IBCNQ"",86,0)"
^XMB(3.9,55,2,25654,0)="HDR1 S L="""",$P(L,""="",80)="""",IBPAGE=IBPAGE+1"
^XMB(3.9,55,2,25655,0)="""RTN"",""IBCNQ"",87,0)"
^XMB(3.9,55,2,25656,0)=" W:$E(IOST,1,2)[""C-""!(IBPAGE>1) @IOF"
^XMB(3.9,55,2,25657,0)="""RTN"",""IBCNQ"",88,0)"
^XMB(3.9,55,2,25658,0)=" W $E($P(IBPT,""^""),1,20),""   "",$P(IBPT,""^"",2),?38,IBBNO,?51,IBNOW,?72,""PAGE: "",IBPAGE,!,L"
^XMB(3.9,55,2,25659,0)="""RTN"",""IBCNQ"",89,0)"
^XMB(3.9,55,2,25660,0)=" K L Q"
^XMB(3.9,55,2,25661,0)="""RTN"",""IBCNQ"",90,0)"
^XMB(3.9,55,2,25662,0)=" ;"
^XMB(3.9,55,2,25663,0)="""RTN"",""IBCNQ"",91,0)"
^XMB(3.9,55,2,25664,0)="OPDATE ; List Outpatient Visit Dates."
^XMB(3.9,55,2,25665,0)="""RTN"",""IBCNQ"",92,0)"
^XMB(3.9,55,2,25666,0)=" Q:'$O(^DGCR(399,IBIFN,""OP"",0))"
^XMB(3.9,55,2,25667,0)="""RTN"",""IBCNQ"",93,0)"
^XMB(3.9,55,2,25668,0)=" W !!,""OP Visit Dates :"" S IBOPD=0"
^XMB(3.9,55,2,25669,0)="""RTN"",""IBCNQ"",94,0)"
^XMB(3.9,55,2,25670,0)=" F I=1:1 S IBOPD=$O(^DGCR(399,IBIFN,""OP"",IBOPD)) Q:'IBOPD  D"
^XMB(3.9,55,2,25671,0)="""RTN"",""IBCNQ"",95,0)"
^XMB(3.9,55,2,25672,0)=" . W:'((I-1)#4)&(I>1) !"
^XMB(3.9,55,2,25673,0)="""RTN"",""IBCNQ"",96,0)"
^XMB(3.9,55,2,25674,0)=" . S Y=IBOPD D D^DIQ W ?($S(I#4:I#4,1:4)*14+3),Y"
^XMB(3.9,55,2,25675,0)="""RTN"",""IBCNQ"",97,0)"
^XMB(3.9,55,2,25676,0)=" Q"
^XMB(3.9,55,2,25677,0)="""RTN"",""IBCNQ"",98,0)"
^XMB(3.9,55,2,25678,0)=" ;"
^XMB(3.9,55,2,25679,0)="""RTN"",""IBCNQ"",99,0)"
^XMB(3.9,55,2,25680,0)="PAUSE Q:$E(IOST,1,2)'=""C-"""
^XMB(3.9,55,2,25681,0)="""RTN"",""IBCNQ"",100,0)"
^XMB(3.9,55,2,25682,0)=" F I=$Y:1:(IOSL-3) W !"
^XMB(3.9,55,2,25683,0)="""RTN"",""IBCNQ"",101,0)"
^XMB(3.9,55,2,25684,0)=" S DIR(0)=""E"" D ^DIR K DIR I $D(DIRUT)!($D(DUOUT)) S IBQUIT=1 K DIRUT,DTOUT,DUOUT"
^XMB(3.9,55,2,25685,0)="""RTN"",""IBCNQ"",102,0)"
^XMB(3.9,55,2,25686,0)=" Q"
^XMB(3.9,55,2,25687,0)="""RTN"",""IBCNSC"")"
^XMB(3.9,55,2,25688,0)="0^31^B21343309^B16200717"
^XMB(3.9,55,2,25689,0)="""RTN"",""IBCNSC"",1,0)"
^XMB(3.9,55,2,25690,0)="IBCNSC ;ALB/NLR - INSURANCE COMPANY EDIT ; 6/1/05 9:42am"
^XMB(3.9,55,2,25691,0)="""RTN"",""IBCNSC"",2,0)"
^XMB(3.9,55,2,25692,0)=" ;;2.0;INTEGRATED BILLING;**46,137,184,276,320**;21-MAR-94"
^XMB(3.9,55,2,25693,0)="""RTN"",""IBCNSC"",3,0)"
^XMB(3.9,55,2,25694,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,25695,0)="""RTN"",""IBCNSC"",4,0)"
^XMB(3.9,55,2,25696,0)=" ;"
^XMB(3.9,55,2,25697,0)="""RTN"",""IBCNSC"",5,0)"
^XMB(3.9,55,2,25698,0)=" ;also used for IA #4694"
^XMB(3.9,55,2,25699,0)="""RTN"",""IBCNSC"",6,0)"
^XMB(3.9,55,2,25700,0)=" ;"
^XMB(3.9,55,2,25701,0)="""RTN"",""IBCNSC"",7,0)"
^XMB(3.9,55,2,25702,0)="EN ; -- main entry point for IBCNS INSURANCE COMPANY, IBCNS VIEW INS CO"
^XMB(3.9,55,2,25703,0)="""RTN"",""IBCNSC"",8,0)"
^XMB(3.9,55,2,25704,0)=" NEW IB1ST"
^XMB(3.9,55,2,25705,0)="""RTN"",""IBCNSC"",9,0)"
^XMB(3.9,55,2,25706,0)=" K IBFASTXT,VALMQUIT,VALMEVL,XQORS,^TMP(""XQORS"",$J),IBCNS"
^XMB(3.9,55,2,25707,0)="""RTN"",""IBCNSC"",10,0)"
^XMB(3.9,55,2,25708,0)=" S IBCHANGE=""OKAY"""
^XMB(3.9,55,2,25709,0)="""RTN"",""IBCNSC"",11,0)"
^XMB(3.9,55,2,25710,0)=" I '$G(IBVIEW) D EN^VALM(""IBCNS INSURANCE COMPANY"") G ENQ"
^XMB(3.9,55,2,25711,0)="""RTN"",""IBCNSC"",12,0)"
^XMB(3.9,55,2,25712,0)=" D EN^VALM(""IBCNS VIEW INS CO"")"
^XMB(3.9,55,2,25713,0)="""RTN"",""IBCNSC"",13,0)"
^XMB(3.9,55,2,25714,0)="ENQ Q"
^XMB(3.9,55,2,25715,0)="""RTN"",""IBCNSC"",14,0)"
^XMB(3.9,55,2,25716,0)=" ;"
^XMB(3.9,55,2,25717,0)="""RTN"",""IBCNSC"",15,0)"
^XMB(3.9,55,2,25718,0)="HDR ; -- header code"
^XMB(3.9,55,2,25719,0)="""RTN"",""IBCNSC"",16,0)"
^XMB(3.9,55,2,25720,0)=" S VALMHDR(1)=""Insurance Company Information for: ""_$E($P(^DIC(36,IBCNS,0),""^""),1,30)"
^XMB(3.9,55,2,25721,0)="""RTN"",""IBCNSC"",17,0)"
^XMB(3.9,55,2,25722,0)=" S VALMHDR(2)=""Type of Company: ""_$E($P($G(^IBE(355.2,+$P($G(^DIC(36,+IBCNS,0)),""^"",13),0)),""^""),1,20)_""                     Currently ""_$S(+($P($G(^DIC(36,+IBCNS,0)),""^"",5)):""Inactive"",1:""Active"")"
^XMB(3.9,55,2,25723,0)="""RTN"",""IBCNSC"",18,0)"
^XMB(3.9,55,2,25724,0)=" Q"
^XMB(3.9,55,2,25725,0)="""RTN"",""IBCNSC"",19,0)"
^XMB(3.9,55,2,25726,0)=" ;"
^XMB(3.9,55,2,25727,0)="""RTN"",""IBCNSC"",20,0)"
^XMB(3.9,55,2,25728,0)="INIT ; -- init variables and list array"
^XMB(3.9,55,2,25729,0)="""RTN"",""IBCNSC"",21,0)"
^XMB(3.9,55,2,25730,0)=" K VALMQUIT"
^XMB(3.9,55,2,25731,0)="""RTN"",""IBCNSC"",22,0)"
^XMB(3.9,55,2,25732,0)=" S VALMCNT=0,VALMBG=1"
^XMB(3.9,55,2,25733,0)="""RTN"",""IBCNSC"",23,0)"
^XMB(3.9,55,2,25734,0)=" I '$D(IBCNS) D INSCO Q:$D(VALMQUIT)"
^XMB(3.9,55,2,25735,0)="""RTN"",""IBCNSC"",24,0)"
^XMB(3.9,55,2,25736,0)=" D BLD,HDR"
^XMB(3.9,55,2,25737,0)="""RTN"",""IBCNSC"",25,0)"
^XMB(3.9,55,2,25738,0)=" Q"
^XMB(3.9,55,2,25739,0)="""RTN"",""IBCNSC"",26,0)"
^XMB(3.9,55,2,25740,0)="BLD ; -- list builder"
^XMB(3.9,55,2,25741,0)="""RTN"",""IBCNSC"",27,0)"
^XMB(3.9,55,2,25742,0)=" NEW BLNKI"
^XMB(3.9,55,2,25743,0)="""RTN"",""IBCNSC"",28,0)"
^XMB(3.9,55,2,25744,0)=" K ^TMP(""IBCNSC"",$J)"
^XMB(3.9,55,2,25745,0)="""RTN"",""IBCNSC"",29,0)"
^XMB(3.9,55,2,25746,0)=" D KILL^VALM10()    ; delete all video attributes"
^XMB(3.9,55,2,25747,0)="""RTN"",""IBCNSC"",30,0)"
^XMB(3.9,55,2,25748,0)=" F BLNKI=1:1:54 D BLANK(.BLNKI)     ; 54 blank lines to start with"
^XMB(3.9,55,2,25749,0)="""RTN"",""IBCNSC"",31,0)"
^XMB(3.9,55,2,25750,0)=" D PARAM^IBCNSC01      ; billing parameters"
^XMB(3.9,55,2,25751,0)="""RTN"",""IBCNSC"",32,0)"
^XMB(3.9,55,2,25752,0)=" D MAIN^IBCNSC01       ; main mailing address"
^XMB(3.9,55,2,25753,0)="""RTN"",""IBCNSC"",33,0)"
^XMB(3.9,55,2,25754,0)=" D CLAIMS1^IBCNSC0     ; inpatient claims office"
^XMB(3.9,55,2,25755,0)="""RTN"",""IBCNSC"",34,0)"
^XMB(3.9,55,2,25756,0)=" D CLAIMS2^IBCNSC0     ; outpatient claims office"
^XMB(3.9,55,2,25757,0)="""RTN"",""IBCNSC"",35,0)"
^XMB(3.9,55,2,25758,0)=" D PRESCR^IBCNSC1      ; prescription claims office"
^XMB(3.9,55,2,25759,0)="""RTN"",""IBCNSC"",36,0)"
^XMB(3.9,55,2,25760,0)=" D APPEALS             ; appeals office"
^XMB(3.9,55,2,25761,0)="""RTN"",""IBCNSC"",37,0)"
^XMB(3.9,55,2,25762,0)=" D INQUIRY             ; inquiry office"
^XMB(3.9,55,2,25763,0)="""RTN"",""IBCNSC"",38,0)"
^XMB(3.9,55,2,25764,0)=" D DISP^IBCNSC02       ; parent/child associations (ESG 11/3/05)"
^XMB(3.9,55,2,25765,0)="""RTN"",""IBCNSC"",39,0)"
^XMB(3.9,55,2,25766,0)=" D PROVID^IBCNSC1      ; provider IDs"
^XMB(3.9,55,2,25767,0)="""RTN"",""IBCNSC"",40,0)"
^XMB(3.9,55,2,25768,0)=" D PAYER^IBCNSC01      ; payer/payer apps (ESG 7/29/02 IIV project)"
^XMB(3.9,55,2,25769,0)="""RTN"",""IBCNSC"",41,0)"
^XMB(3.9,55,2,25770,0)=" D REMARKS^IBCNSC01    ; remarks"
^XMB(3.9,55,2,25771,0)="""RTN"",""IBCNSC"",42,0)"
^XMB(3.9,55,2,25772,0)=" D SYN^IBCNSC01        ; synonyms"
^XMB(3.9,55,2,25773,0)="""RTN"",""IBCNSC"",43,0)"
^XMB(3.9,55,2,25774,0)=" S VALMCNT=+$O(^TMP(""IBCNSC"",$J,""""),-1)"
^XMB(3.9,55,2,25775,0)="""RTN"",""IBCNSC"",44,0)"
^XMB(3.9,55,2,25776,0)=" Q"
^XMB(3.9,55,2,25777,0)="""RTN"",""IBCNSC"",45,0)"
^XMB(3.9,55,2,25778,0)=" ;"
^XMB(3.9,55,2,25779,0)="""RTN"",""IBCNSC"",46,0)"
^XMB(3.9,55,2,25780,0)="APPEALS ;"
^XMB(3.9,55,2,25781,0)="""RTN"",""IBCNSC"",47,0)"
^XMB(3.9,55,2,25782,0)=" N OFFSET,START,IBCNS14,IBADD"
^XMB(3.9,55,2,25783,0)="""RTN"",""IBCNSC"",48,0)"
^XMB(3.9,55,2,25784,0)=" S IBCNS14=$$ADDRESS^IBCNSC0(IBCNS,.14,7)"
^XMB(3.9,55,2,25785,0)="""RTN"",""IBCNSC"",49,0)"
^XMB(3.9,55,2,25786,0)=" S START=40,OFFSET=2"
^XMB(3.9,55,2,25787,0)="""RTN"",""IBCNSC"",50,0)"
^XMB(3.9,55,2,25788,0)=" D SET^IBCNSP(START,OFFSET+25,"" Appeals Office Information "",IORVON,IORVOFF)"
^XMB(3.9,55,2,25789,0)="""RTN"",""IBCNSC"",51,0)"
^XMB(3.9,55,2,25790,0)=" D SET^IBCNSP(START+1,OFFSET,"" Company Name: ""_$P($G(^DIC(36,+$P(IBCNS14,""^"",7),0)),""^"",1))"
^XMB(3.9,55,2,25791,0)="""RTN"",""IBCNSC"",52,0)"
^XMB(3.9,55,2,25792,0)=" D SET^IBCNSP(START+2,OFFSET,""       Street: ""_$P(IBCNS14,""^"",1))"
^XMB(3.9,55,2,25793,0)="""RTN"",""IBCNSC"",53,0)"
^XMB(3.9,55,2,25794,0)=" D SET^IBCNSP(START+3,OFFSET,""     Street 2: ""_$P(IBCNS14,""^"",2))"
^XMB(3.9,55,2,25795,0)="""RTN"",""IBCNSC"",54,0)"
^XMB(3.9,55,2,25796,0)=" N OFFSET S OFFSET=45"
^XMB(3.9,55,2,25797,0)="""RTN"",""IBCNSC"",55,0)"
^XMB(3.9,55,2,25798,0)=" D SET^IBCNSP(START+1,OFFSET,""     Street 3: ""_$P(IBCNS14,""^"",3)) S IBADD=1"
^XMB(3.9,55,2,25799,0)="""RTN"",""IBCNSC"",56,0)"
^XMB(3.9,55,2,25800,0)=" D SET^IBCNSP(START+1+IBADD,OFFSET,""   City/State: ""_$E($P(IBCNS14,""^"",4),1,15)_$S($P(IBCNS14,""^"",4)="""":"""",1:"", "")_$P($G(^DIC(5,+$P(IBCNS14,""^"",5),0)),""^"",2)_"" ""_$E($P(IBCNS14,""^"",6),1,5))"
^XMB(3.9,55,2,25801,0)="""RTN"",""IBCNSC"",57,0)"
^XMB(3.9,55,2,25802,0)=" D SET^IBCNSP(START+2+IBADD,OFFSET,""        Phone: ""_$P(IBCNS14,""^"",8))"
^XMB(3.9,55,2,25803,0)="""RTN"",""IBCNSC"",58,0)"
^XMB(3.9,55,2,25804,0)=" D SET^IBCNSP(START+3+IBADD,OFFSET,""          Fax: ""_$P(IBCNS14,""^"",9))"
^XMB(3.9,55,2,25805,0)="""RTN"",""IBCNSC"",59,0)"
^XMB(3.9,55,2,25806,0)=" Q"
^XMB(3.9,55,2,25807,0)="""RTN"",""IBCNSC"",60,0)"
^XMB(3.9,55,2,25808,0)=" ;"
^XMB(3.9,55,2,25809,0)="""RTN"",""IBCNSC"",61,0)"
^XMB(3.9,55,2,25810,0)="INQUIRY ;"
^XMB(3.9,55,2,25811,0)="""RTN"",""IBCNSC"",62,0)"
^XMB(3.9,55,2,25812,0)=" ;"
^XMB(3.9,55,2,25813,0)="""RTN"",""IBCNSC"",63,0)"
^XMB(3.9,55,2,25814,0)=" N OFFSET,START,IBCNS15,IBADD"
^XMB(3.9,55,2,25815,0)="""RTN"",""IBCNSC"",64,0)"
^XMB(3.9,55,2,25816,0)=" S IBCNS15=$$ADDRESS^IBCNSC0(IBCNS,.15,8)"
^XMB(3.9,55,2,25817,0)="""RTN"",""IBCNSC"",65,0)"
^XMB(3.9,55,2,25818,0)=" S START=47,OFFSET=2"
^XMB(3.9,55,2,25819,0)="""RTN"",""IBCNSC"",66,0)"
^XMB(3.9,55,2,25820,0)=" D SET^IBCNSP(START,OFFSET+25,"" Inquiry Office Information "",IORVON,IORVOFF)"
^XMB(3.9,55,2,25821,0)="""RTN"",""IBCNSC"",67,0)"
^XMB(3.9,55,2,25822,0)=" D SET^IBCNSP(START+1,OFFSET,"" Company Name: ""_$P($G(^DIC(36,+$P(IBCNS15,""^"",7),0)),""^"",1))"
^XMB(3.9,55,2,25823,0)="""RTN"",""IBCNSC"",68,0)"
^XMB(3.9,55,2,25824,0)=" D SET^IBCNSP(START+2,OFFSET,""       Street: ""_$P(IBCNS15,""^""))"
^XMB(3.9,55,2,25825,0)="""RTN"",""IBCNSC"",69,0)"
^XMB(3.9,55,2,25826,0)=" D SET^IBCNSP(START+3,OFFSET,""     Street 2: ""_$P(IBCNS15,""^"",2))"
^XMB(3.9,55,2,25827,0)="""RTN"",""IBCNSC"",70,0)"
^XMB(3.9,55,2,25828,0)=" N OFFSET S OFFSET=45"
^XMB(3.9,55,2,25829,0)="""RTN"",""IBCNSC"",71,0)"
^XMB(3.9,55,2,25830,0)=" D SET^IBCNSP(START+1,OFFSET,""     Street 3: ""_$P(IBCNS15,""^"",3)) S IBADD=1"
^XMB(3.9,55,2,25831,0)="""RTN"",""IBCNSC"",72,0)"
^XMB(3.9,55,2,25832,0)=" D SET^IBCNSP(START+1+IBADD,OFFSET,""   City/State: ""_$E($P(IBCNS15,""^"",4),1,15)_$S($P(IBCNS15,""^"",4)="""":"""",1:"", "")_$P($G(^DIC(5,+$P(IBCNS15,""^"",5),0)),""^"",2)_"" ""_$E($P(IBCNS15,""^"",6),1,5))"
^XMB(3.9,55,2,25833,0)="""RTN"",""IBCNSC"",73,0)"
^XMB(3.9,55,2,25834,0)=" D SET^IBCNSP(START+2+IBADD,OFFSET,""        Phone: ""_$P(IBCNS15,""^"",8))"
^XMB(3.9,55,2,25835,0)="""RTN"",""IBCNSC"",74,0)"
^XMB(3.9,55,2,25836,0)=" D SET^IBCNSP(START+3+IBADD,OFFSET,""          Fax: ""_$P(IBCNS15,""^"",9))"
^XMB(3.9,55,2,25837,0)="""RTN"",""IBCNSC"",75,0)"
^XMB(3.9,55,2,25838,0)=" Q"
^XMB(3.9,55,2,25839,0)="""RTN"",""IBCNSC"",76,0)"
^XMB(3.9,55,2,25840,0)=" ;"
^XMB(3.9,55,2,25841,0)="""RTN"",""IBCNSC"",77,0)"
^XMB(3.9,55,2,25842,0)="HELP ; -- help code"
^XMB(3.9,55,2,25843,0)="""RTN"",""IBCNSC"",78,0)"
^XMB(3.9,55,2,25844,0)=" S X=""?"" D DISP^XQORM1 W !!"
^XMB(3.9,55,2,25845,0)="""RTN"",""IBCNSC"",79,0)"
^XMB(3.9,55,2,25846,0)=" Q"
^XMB(3.9,55,2,25847,0)="""RTN"",""IBCNSC"",80,0)"
^XMB(3.9,55,2,25848,0)=" ;"
^XMB(3.9,55,2,25849,0)="""RTN"",""IBCNSC"",81,0)"
^XMB(3.9,55,2,25850,0)="EXIT ; -- exit code"
^XMB(3.9,55,2,25851,0)="""RTN"",""IBCNSC"",82,0)"
^XMB(3.9,55,2,25852,0)=" K VALMQUIT,IBCNS,IBCHANGE,IBFASTXT"
^XMB(3.9,55,2,25853,0)="""RTN"",""IBCNSC"",83,0)"
^XMB(3.9,55,2,25854,0)=" D CLEAN^VALM10"
^XMB(3.9,55,2,25855,0)="""RTN"",""IBCNSC"",84,0)"
^XMB(3.9,55,2,25856,0)=" Q"
^XMB(3.9,55,2,25857,0)="""RTN"",""IBCNSC"",85,0)"
^XMB(3.9,55,2,25858,0)=" ;"
^XMB(3.9,55,2,25859,0)="""RTN"",""IBCNSC"",86,0)"
^XMB(3.9,55,2,25860,0)="INSCO ; -- select insurance company"
^XMB(3.9,55,2,25861,0)="""RTN"",""IBCNSC"",87,0)"
^XMB(3.9,55,2,25862,0)=" NEW DLAYGO,DIC,X,Y,DTOUT,DUOUT"
^XMB(3.9,55,2,25863,0)="""RTN"",""IBCNSC"",88,0)"
^XMB(3.9,55,2,25864,0)=" I '$D(IBCNS) D  G:$D(VALMQUIT) INSCOQ"
^XMB(3.9,55,2,25865,0)="""RTN"",""IBCNSC"",89,0)"
^XMB(3.9,55,2,25866,0)=" .S DIC=""^DIC(36,"",DIC(0)=""AEQMZ"",DIC(""S"")=""I '$G(^(5))"""
^XMB(3.9,55,2,25867,0)="""RTN"",""IBCNSC"",90,0)"
^XMB(3.9,55,2,25868,0)=" .I '$G(IBVIEW) S DLAYGO=36,DIC(0)=DIC(0)_""L"""
^XMB(3.9,55,2,25869,0)="""RTN"",""IBCNSC"",91,0)"
^XMB(3.9,55,2,25870,0)=" .D ^DIC K DIC"
^XMB(3.9,55,2,25871,0)="""RTN"",""IBCNSC"",92,0)"
^XMB(3.9,55,2,25872,0)=" .S IBCNS=+Y"
^XMB(3.9,55,2,25873,0)="""RTN"",""IBCNSC"",93,0)"
^XMB(3.9,55,2,25874,0)=" I $G(IBCNS)<1 K IBCNS S VALMQUIT="""" G INSCOQ"
^XMB(3.9,55,2,25875,0)="""RTN"",""IBCNSC"",94,0)"
^XMB(3.9,55,2,25876,0)="INSCOQ ;"
^XMB(3.9,55,2,25877,0)="""RTN"",""IBCNSC"",95,0)"
^XMB(3.9,55,2,25878,0)=" K DIC"
^XMB(3.9,55,2,25879,0)="""RTN"",""IBCNSC"",96,0)"
^XMB(3.9,55,2,25880,0)=" Q"
^XMB(3.9,55,2,25881,0)="""RTN"",""IBCNSC"",97,0)"
^XMB(3.9,55,2,25882,0)=" ;"
^XMB(3.9,55,2,25883,0)="""RTN"",""IBCNSC"",98,0)"
^XMB(3.9,55,2,25884,0)="BLANK(LINE) ; -- Build blank line"
^XMB(3.9,55,2,25885,0)="""RTN"",""IBCNSC"",99,0)"
^XMB(3.9,55,2,25886,0)=" D SET^VALM10(.LINE,$J("""",80))"
^XMB(3.9,55,2,25887,0)="""RTN"",""IBCNSC"",100,0)"
^XMB(3.9,55,2,25888,0)=" Q"
^XMB(3.9,55,2,25889,0)="""RTN"",""IBCNSC"",101,0)"
^XMB(3.9,55,2,25890,0)=" ;"
^XMB(3.9,55,2,25891,0)="""RTN"",""IBCNSC"",102,0)"
^XMB(3.9,55,2,25892,0)="EDIKEY() ; input transform code to determine if user is allowed to edit"
^XMB(3.9,55,2,25893,0)="""RTN"",""IBCNSC"",103,0)"
^XMB(3.9,55,2,25894,0)=" ; certain fields in the insurance company file"
^XMB(3.9,55,2,25895,0)="""RTN"",""IBCNSC"",104,0)"
^XMB(3.9,55,2,25896,0)=" NEW OK S OK=0"
^XMB(3.9,55,2,25897,0)="""RTN"",""IBCNSC"",105,0)"
^XMB(3.9,55,2,25898,0)=" I $$KCHK^XUSRB(""IB EDI INSURANCE EDIT"") S OK=1 G EDIKEYX"
^XMB(3.9,55,2,25899,0)="""RTN"",""IBCNSC"",106,0)"
^XMB(3.9,55,2,25900,0)=" D EN^DDIOL(""You must hold the IB EDI INSURANCE EDIT security key to edit this field."",,""!!"")"
^XMB(3.9,55,2,25901,0)="""RTN"",""IBCNSC"",107,0)"
^XMB(3.9,55,2,25902,0)=" D EN^DDIOL("""",,""!!?5"")"
^XMB(3.9,55,2,25903,0)="""RTN"",""IBCNSC"",108,0)"
^XMB(3.9,55,2,25904,0)="EDIKEYX ;"
^XMB(3.9,55,2,25905,0)="""RTN"",""IBCNSC"",109,0)"
^XMB(3.9,55,2,25906,0)=" Q OK"
^XMB(3.9,55,2,25907,0)="""RTN"",""IBCNSC"",110,0)"
^XMB(3.9,55,2,25908,0)=" ;"
^XMB(3.9,55,2,25909,0)="""RTN"",""IBCNSC01"")"
^XMB(3.9,55,2,25910,0)="0^34^B50893102^B49699490"
^XMB(3.9,55,2,25911,0)="""RTN"",""IBCNSC01"",1,0)"
^XMB(3.9,55,2,25912,0)="IBCNSC01 ;ALB/NLR - INSURANCE COMPANY EDIT ; 6/1/05 10:06am"
^XMB(3.9,55,2,25913,0)="""RTN"",""IBCNSC01"",2,0)"
^XMB(3.9,55,2,25914,0)=" ;;2.0;INTEGRATED BILLING;**52,137,191,184,232,320**;21-MAR-94"
^XMB(3.9,55,2,25915,0)="""RTN"",""IBCNSC01"",3,0)"
^XMB(3.9,55,2,25916,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,25917,0)="""RTN"",""IBCNSC01"",4,0)"
^XMB(3.9,55,2,25918,0)=" ;"
^XMB(3.9,55,2,25919,0)="""RTN"",""IBCNSC01"",5,0)"
^XMB(3.9,55,2,25920,0)="PARAM ; -- Insurance company parameters region"
^XMB(3.9,55,2,25921,0)="""RTN"",""IBCNSC01"",6,0)"
^XMB(3.9,55,2,25922,0)=" N OFFSET,START,IBCNS0,IBCNS03,IBCNS06,IBCNS08,IBCNS13,IBCNS3"
^XMB(3.9,55,2,25923,0)="""RTN"",""IBCNSC01"",7,0)"
^XMB(3.9,55,2,25924,0)=" S IBCNS0=$G(^DIC(36,+IBCNS,0)),IBCNS3=$G(^(3))"
^XMB(3.9,55,2,25925,0)="""RTN"",""IBCNSC01"",8,0)"
^XMB(3.9,55,2,25926,0)=" S IBCNS03=$P(IBCNS0,""^"",3),IBCNS06=$P(IBCNS0,""^"",6),IBCNS08=$P(IBCNS0,""^"",8)"
^XMB(3.9,55,2,25927,0)="""RTN"",""IBCNSC01"",9,0)"
^XMB(3.9,55,2,25928,0)=" S IBCNS13=$G(^DIC(36,+IBCNS,.13))"
^XMB(3.9,55,2,25929,0)="""RTN"",""IBCNSC01"",10,0)"
^XMB(3.9,55,2,25930,0)=" S START=1,OFFSET=2"
^XMB(3.9,55,2,25931,0)="""RTN"",""IBCNSC01"",11,0)"
^XMB(3.9,55,2,25932,0)=" D SET^IBCNSP(START,OFFSET+25,"" Billing Parameters "",IORVON,IORVOFF)"
^XMB(3.9,55,2,25933,0)="""RTN"",""IBCNSC01"",12,0)"
^XMB(3.9,55,2,25934,0)=" ;"
^XMB(3.9,55,2,25935,0)="""RTN"",""IBCNSC01"",13,0)"
^XMB(3.9,55,2,25936,0)=" D SET^IBCNSP(START+1,OFFSET+1,""Signature Required?: ""_$S(+IBCNS03:""YES"",1:""NO""))"
^XMB(3.9,55,2,25937,0)="""RTN"",""IBCNSC01"",14,0)"
^XMB(3.9,55,2,25938,0)=" D SET^IBCNSP(START+2,OFFSET+10,""Reimburse?: ""_$E($$EXPAND^IBTRE(36,1,$P(IBCNS0,""^"",2)),1,21))"
^XMB(3.9,55,2,25939,0)="""RTN"",""IBCNSC01"",15,0)"
^XMB(3.9,55,2,25940,0)=" D SET^IBCNSP(START+3,OFFSET+3,""Mult. Bedsections: ""_$S(+IBCNS06:""YES"",IBCNS06=0:""NO"",1:""""))"
^XMB(3.9,55,2,25941,0)="""RTN"",""IBCNSC01"",16,0)"
^XMB(3.9,55,2,25942,0)=" D SET^IBCNSP(START+4,OFFSET+4,""Diff. Rev. Codes: ""_$P(IBCNS0,""^"",7))"
^XMB(3.9,55,2,25943,0)="""RTN"",""IBCNSC01"",17,0)"
^XMB(3.9,55,2,25944,0)=" D SET^IBCNSP(START+5,OFFSET+6,""One Opt. Visit: ""_$S(+IBCNS08:""YES"",1:""NO""))"
^XMB(3.9,55,2,25945,0)="""RTN"",""IBCNSC01"",18,0)"
^XMB(3.9,55,2,25946,0)=" D SET^IBCNSP(START+6,OFFSET+1,""Amb. Sur. Rev. Code: ""_$P(IBCNS0,""^"",9))"
^XMB(3.9,55,2,25947,0)="""RTN"",""IBCNSC01"",19,0)"
^XMB(3.9,55,2,25948,0)=" D SET^IBCNSP(START+7,OFFSET+1,""Rx Refill Rev. Code: ""_$P(IBCNS0,""^"",15))"
^XMB(3.9,55,2,25949,0)="""RTN"",""IBCNSC01"",20,0)"
^XMB(3.9,55,2,25950,0)=" D SET^IBCNSP(START+8,OFFSET+3,""Filing Time Frame: ""_$P(IBCNS0,""^"",12))"
^XMB(3.9,55,2,25951,0)="""RTN"",""IBCNSC01"",21,0)"
^XMB(3.9,55,2,25952,0)=" D SET^IBCNSP(START+9,OFFSET+4,""Type Of Coverage: ""_$$EXPAND^IBTRE(36,.13,+$P(IBCNS0,U,13)))"
^XMB(3.9,55,2,25953,0)="""RTN"",""IBCNSC01"",22,0)"
^XMB(3.9,55,2,25954,0)=" D SET^IBCNSP(START+10,OFFSET+3,""Primary Form Type: ""_$$EXPAND^IBTRE(36,.14,$P(IBCNS0,""^"",14)))"
^XMB(3.9,55,2,25955,0)="""RTN"",""IBCNSC01"",23,0)"
^XMB(3.9,55,2,25956,0)=" ;;;;K ^TMP($J,""IBBF_ID"")"
^XMB(3.9,55,2,25957,0)="""RTN"",""IBCNSC01"",24,0)"
^XMB(3.9,55,2,25958,0)=" ;;;;D GETBPNUM^IBCEP2B(+IBCNS)"
^XMB(3.9,55,2,25959,0)="""RTN"",""IBCNSC01"",25,0)"
^XMB(3.9,55,2,25960,0)=" ;;;;D SET^IBCNSP(START+10,OFFSET,"" Def. Div UB92 Prov #: ""_$E($G(^TMP($J,""IBBF_ID"",0,1)),1,15))"
^XMB(3.9,55,2,25961,0)="""RTN"",""IBCNSC01"",26,0)"
^XMB(3.9,55,2,25962,0)=" ;;;;D SET^IBCNSP(START+11,OFFSET,"" Def. Div HCFA Prov #: ""_$E($G(^TMP($J,""IBBF_ID"",0,2)),1,15))"
^XMB(3.9,55,2,25963,0)="""RTN"",""IBCNSC01"",27,0)"
^XMB(3.9,55,2,25964,0)=" ;;;;K ^TMP($J,""IBBF_ID"")"
^XMB(3.9,55,2,25965,0)="""RTN"",""IBCNSC01"",28,0)"
^XMB(3.9,55,2,25966,0)=" N START,OFFSET"
^XMB(3.9,55,2,25967,0)="""RTN"",""IBCNSC01"",29,0)"
^XMB(3.9,55,2,25968,0)=" S START=1,OFFSET=45"
^XMB(3.9,55,2,25969,0)="""RTN"",""IBCNSC01"",30,0)"
^XMB(3.9,55,2,25970,0)=" D SET^IBCNSP(START+1,OFFSET+7,""Billing Phone: ""_$P(IBCNS13,""^"",2))"
^XMB(3.9,55,2,25971,0)="""RTN"",""IBCNSC01"",31,0)"
^XMB(3.9,55,2,25972,0)=" D SET^IBCNSP(START+2,OFFSET+2,""Verification Phone: ""_$P(IBCNS13,""^"",4))"
^XMB(3.9,55,2,25973,0)="""RTN"",""IBCNSC01"",32,0)"
^XMB(3.9,55,2,25974,0)=" D SET^IBCNSP(START+3,OFFSET+2,""Precert Comp. Name: ""_$P($G(^DIC(36,+$P(IBCNS13,""^"",9),0)),""^"",1))"
^XMB(3.9,55,2,25975,0)="""RTN"",""IBCNSC01"",33,0)"
^XMB(3.9,55,2,25976,0)=" D SET^IBCNSP(START+4,OFFSET+7,""Precert Phone: ""_$$PHONE(IBCNS13))"
^XMB(3.9,55,2,25977,0)="""RTN"",""IBCNSC01"",34,0)"
^XMB(3.9,55,2,25978,0)=" D SET^IBCNSP(START+5,OFFSET+6,""   *** EDI Parameters ***   "",IOINHI,IOINORM)"
^XMB(3.9,55,2,25979,0)="""RTN"",""IBCNSC01"",35,0)"
^XMB(3.9,55,2,25980,0)=" D SET^IBCNSP(START+6,OFFSET+11,""Transmit?: ""_$S(+IBCNS3=1:""YES-LIVE"",+IBCNS3=2:""TEST ONLY"",1:""NO""))"
^XMB(3.9,55,2,25981,0)="""RTN"",""IBCNSC01"",36,0)"
^XMB(3.9,55,2,25982,0)=" D SET^IBCNSP(START+7,OFFSET+7,""Inst Payer ID: ""_$P(IBCNS3,U,4))"
^XMB(3.9,55,2,25983,0)="""RTN"",""IBCNSC01"",37,0)"
^XMB(3.9,55,2,25984,0)=" D SET^IBCNSP(START+8,OFFSET+7,""Prof Payer ID: ""_$P(IBCNS3,U,2))"
^XMB(3.9,55,2,25985,0)="""RTN"",""IBCNSC01"",38,0)"
^XMB(3.9,55,2,25986,0)=" D SET^IBCNSP(START+9,OFFSET+6,""Insurance Type: ""_$$EXPAND^IBTRE(36,3.09,+$P(IBCNS3,U,9)))"
^XMB(3.9,55,2,25987,0)="""RTN"",""IBCNSC01"",39,0)"
^XMB(3.9,55,2,25988,0)=" D SET^IBCNSP(START+10,OFFSET+10,""Bin Number: ""_$P($G(^DIC(36,+IBCNS,3)),""^"",3))"
^XMB(3.9,55,2,25989,0)="""RTN"",""IBCNSC01"",40,0)"
^XMB(3.9,55,2,25990,0)=" I +IBCNS3=2 D SET^IBCNSP(START+11,OFFSET,""Max # Test Bills/Day: ""_$P(IBCNS3,U,6))"
^XMB(3.9,55,2,25991,0)="""RTN"",""IBCNSC01"",41,0)"
^XMB(3.9,55,2,25992,0)=" Q"
^XMB(3.9,55,2,25993,0)="""RTN"",""IBCNSC01"",42,0)"
^XMB(3.9,55,2,25994,0)=" ;"
^XMB(3.9,55,2,25995,0)="""RTN"",""IBCNSC01"",43,0)"
^XMB(3.9,55,2,25996,0)="PHONE(IBCNS13) ; -- Compute precert company phone"
^XMB(3.9,55,2,25997,0)="""RTN"",""IBCNSC01"",44,0)"
^XMB(3.9,55,2,25998,0)=" N IBX,IBSAVE,IBCNT S IBX="""""
^XMB(3.9,55,2,25999,0)="""RTN"",""IBCNSC01"",45,0)"
^XMB(3.9,55,2,26000,0)=" I '$P(IBCNS13,""^"",9) S IBX=$P(IBCNS13,""^"",3) G PHONEQ"
^XMB(3.9,55,2,26001,0)="""RTN"",""IBCNSC01"",46,0)"
^XMB(3.9,55,2,26002,0)="REDOX S IBSAVE=+$P(IBCNS13,""^"",9)"
^XMB(3.9,55,2,26003,0)="""RTN"",""IBCNSC01"",47,0)"
^XMB(3.9,55,2,26004,0)=" S IBCNT=$G(IBCNT)+1"
^XMB(3.9,55,2,26005,0)="""RTN"",""IBCNSC01"",48,0)"
^XMB(3.9,55,2,26006,0)=" ; -- if you process the same co. more than once you are in an infinite loop"
^XMB(3.9,55,2,26007,0)="""RTN"",""IBCNSC01"",49,0)"
^XMB(3.9,55,2,26008,0)=" I $D(IBCNT(IBCNS)) G PHONEQ"
^XMB(3.9,55,2,26009,0)="""RTN"",""IBCNSC01"",50,0)"
^XMB(3.9,55,2,26010,0)=" S IBCNT(IBCNS)="""""
^XMB(3.9,55,2,26011,0)="""RTN"",""IBCNSC01"",51,0)"
^XMB(3.9,55,2,26012,0)=" S IBCNS13=$G(^DIC(36,+$P(IBCNS13,""^"",9),.13))"
^XMB(3.9,55,2,26013,0)="""RTN"",""IBCNSC01"",52,0)"
^XMB(3.9,55,2,26014,0)=" S IBX=$P(IBCNS13,""^"") S:$L($P(IBCNS13,""^"",3)) IBX=$P(IBCNS13,""^"",3)"
^XMB(3.9,55,2,26015,0)="""RTN"",""IBCNSC01"",53,0)"
^XMB(3.9,55,2,26016,0)=" ; -- if process the same co. more than once you are in an infinite loop"
^XMB(3.9,55,2,26017,0)="""RTN"",""IBCNSC01"",54,0)"
^XMB(3.9,55,2,26018,0)=" I $P(IBCNS13,""^"",9),$P(IBCNS13,""^"",9)'=IBSAVE G REDOX"
^XMB(3.9,55,2,26019,0)="""RTN"",""IBCNSC01"",55,0)"
^XMB(3.9,55,2,26020,0)="PHONEQ Q IBX"
^XMB(3.9,55,2,26021,0)="""RTN"",""IBCNSC01"",56,0)"
^XMB(3.9,55,2,26022,0)=" ;"
^XMB(3.9,55,2,26023,0)="""RTN"",""IBCNSC01"",57,0)"
^XMB(3.9,55,2,26024,0)="MAIN ; -- Insurance company main address"
^XMB(3.9,55,2,26025,0)="""RTN"",""IBCNSC01"",58,0)"
^XMB(3.9,55,2,26026,0)=" N OFFSET,START,IBCNS11,IBCNS13,IBADD"
^XMB(3.9,55,2,26027,0)="""RTN"",""IBCNSC01"",59,0)"
^XMB(3.9,55,2,26028,0)=" S IBCNS11=$G(^DIC(36,+IBCNS,.11))"
^XMB(3.9,55,2,26029,0)="""RTN"",""IBCNSC01"",60,0)"
^XMB(3.9,55,2,26030,0)=" S IBCNS13=$G(^DIC(36,+IBCNS,.13))"
^XMB(3.9,55,2,26031,0)="""RTN"",""IBCNSC01"",61,0)"
^XMB(3.9,55,2,26032,0)=" S START=15,OFFSET=25"
^XMB(3.9,55,2,26033,0)="""RTN"",""IBCNSC01"",62,0)"
^XMB(3.9,55,2,26034,0)=" D SET^IBCNSP(START,OFFSET,"" Main Mailing Address "",IORVON,IORVOFF)"
^XMB(3.9,55,2,26035,0)="""RTN"",""IBCNSC01"",63,0)"
^XMB(3.9,55,2,26036,0)=" N OFFSET S OFFSET=2"
^XMB(3.9,55,2,26037,0)="""RTN"",""IBCNSC01"",64,0)"
^XMB(3.9,55,2,26038,0)=" D SET^IBCNSP(START+1,OFFSET,""       Street: ""_$P(IBCNS11,""^"",1)) S IBADD=1"
^XMB(3.9,55,2,26039,0)="""RTN"",""IBCNSC01"",65,0)"
^XMB(3.9,55,2,26040,0)=" D SET^IBCNSP(START+2,OFFSET,""     Street 2: ""_$P(IBCNS11,""^"",2)) S IBADD=2"
^XMB(3.9,55,2,26041,0)="""RTN"",""IBCNSC01"",66,0)"
^XMB(3.9,55,2,26042,0)=" D SET^IBCNSP(START+3,OFFSET,""     Street 3: ""_$P(IBCNS11,""^"",3)) S IBADD=3"
^XMB(3.9,55,2,26043,0)="""RTN"",""IBCNSC01"",67,0)"
^XMB(3.9,55,2,26044,0)=" ; D SET^IBCNSP(START+4,OFFSET,""Claim Off. ID: ""_$P(IBCNS11,U,11))"
^XMB(3.9,55,2,26045,0)="""RTN"",""IBCNSC01"",68,0)"
^XMB(3.9,55,2,26046,0)=" N OFFSET S OFFSET=45"
^XMB(3.9,55,2,26047,0)="""RTN"",""IBCNSC01"",69,0)"
^XMB(3.9,55,2,26048,0)=" D SET^IBCNSP(START+1,OFFSET,""   City/State: ""_$E($P(IBCNS11,""^"",4),1,15)_$S($P(IBCNS11,""^"",4)="""":"""",1:"", "")_$P($G(^DIC(5,+$P(IBCNS11,""^"",5),0)),""^"",2)_"" ""_$E($P(IBCNS11,""^"",6),1,5))"
^XMB(3.9,55,2,26049,0)="""RTN"",""IBCNSC01"",70,0)"
^XMB(3.9,55,2,26050,0)=" D SET^IBCNSP(START+2,OFFSET,""        Phone: ""_$P(IBCNS13,""^"",1))"
^XMB(3.9,55,2,26051,0)="""RTN"",""IBCNSC01"",71,0)"
^XMB(3.9,55,2,26052,0)=" D SET^IBCNSP(START+3,OFFSET,""          Fax: ""_$P(IBCNS11,""^"",9))"
^XMB(3.9,55,2,26053,0)="""RTN"",""IBCNSC01"",72,0)"
^XMB(3.9,55,2,26054,0)=" Q"
^XMB(3.9,55,2,26055,0)="""RTN"",""IBCNSC01"",73,0)"
^XMB(3.9,55,2,26056,0)=" ;"
^XMB(3.9,55,2,26057,0)="""RTN"",""IBCNSC01"",74,0)"
^XMB(3.9,55,2,26058,0)=" ;"
^XMB(3.9,55,2,26059,0)="""RTN"",""IBCNSC01"",75,0)"
^XMB(3.9,55,2,26060,0)="PAYER ; This procedure builds the display for the payer associated with"
^XMB(3.9,55,2,26061,0)="""RTN"",""IBCNSC01"",76,0)"
^XMB(3.9,55,2,26062,0)=" ; this insurance company."
^XMB(3.9,55,2,26063,0)="""RTN"",""IBCNSC01"",77,0)"
^XMB(3.9,55,2,26064,0)=" ; ESG - 7/29/02 - IIV project"
^XMB(3.9,55,2,26065,0)="""RTN"",""IBCNSC01"",78,0)"
^XMB(3.9,55,2,26066,0)=" ;"
^XMB(3.9,55,2,26067,0)="""RTN"",""IBCNSC01"",79,0)"
^XMB(3.9,55,2,26068,0)=" NEW PAYERIEN,PAYR,APPDATA,APP,DATA,APPNAME,A1,A2,A3,A4,A5,A6,A7,A8"
^XMB(3.9,55,2,26069,0)="""RTN"",""IBCNSC01"",80,0)"
^XMB(3.9,55,2,26070,0)=" NEW START,TITLE,OFFSET,IBLINE"
^XMB(3.9,55,2,26071,0)="""RTN"",""IBCNSC01"",81,0)"
^XMB(3.9,55,2,26072,0)=" S PAYERIEN=$P($G(^DIC(36,+IBCNS,3)),U,10),PAYR="""",APPDATA=0"
^XMB(3.9,55,2,26073,0)="""RTN"",""IBCNSC01"",82,0)"
^XMB(3.9,55,2,26074,0)=" I PAYERIEN D"
^XMB(3.9,55,2,26075,0)="""RTN"",""IBCNSC01"",83,0)"
^XMB(3.9,55,2,26076,0)=" . S PAYR=$G(^IBE(365.12,PAYERIEN,0))"
^XMB(3.9,55,2,26077,0)="""RTN"",""IBCNSC01"",84,0)"
^XMB(3.9,55,2,26078,0)=" . S APP=0"
^XMB(3.9,55,2,26079,0)="""RTN"",""IBCNSC01"",85,0)"
^XMB(3.9,55,2,26080,0)=" . F  S APP=$O(^IBE(365.12,PAYERIEN,1,APP)) Q:'APP  D"
^XMB(3.9,55,2,26081,0)="""RTN"",""IBCNSC01"",86,0)"
^XMB(3.9,55,2,26082,0)=" .. S DATA=$G(^IBE(365.12,PAYERIEN,1,APP,0))"
^XMB(3.9,55,2,26083,0)="""RTN"",""IBCNSC01"",87,0)"
^XMB(3.9,55,2,26084,0)=" .. S APPNAME=$$EXTERNAL^DILFD(365.121,.01,"""",$P(DATA,U,1))"
^XMB(3.9,55,2,26085,0)="""RTN"",""IBCNSC01"",88,0)"
^XMB(3.9,55,2,26086,0)=" .. I APPNAME="""" Q"
^XMB(3.9,55,2,26087,0)="""RTN"",""IBCNSC01"",89,0)"
^XMB(3.9,55,2,26088,0)=" .. I $D(APPDATA(APPNAME)) Q"
^XMB(3.9,55,2,26089,0)="""RTN"",""IBCNSC01"",90,0)"
^XMB(3.9,55,2,26090,0)=" .. S (A1,A2,A3,A4,A5,A6,A7)=""NO"",A8="""""
^XMB(3.9,55,2,26091,0)="""RTN"",""IBCNSC01"",91,0)"
^XMB(3.9,55,2,26092,0)=" .. I $P(DATA,U,2) S A1=""YES""      ; national active"
^XMB(3.9,55,2,26093,0)="""RTN"",""IBCNSC01"",92,0)"
^XMB(3.9,55,2,26094,0)=" .. I $P(DATA,U,3) S A2=""YES""      ; local active"
^XMB(3.9,55,2,26095,0)="""RTN"",""IBCNSC01"",93,0)"
^XMB(3.9,55,2,26096,0)=" .. I $P(DATA,U,7) S A3=""YES""      ; auto-accept"
^XMB(3.9,55,2,26097,0)="""RTN"",""IBCNSC01"",94,0)"
^XMB(3.9,55,2,26098,0)=" .. I $P(DATA,U,8) S A4=""YES""      ; ident inquiries require subscr ID"
^XMB(3.9,55,2,26099,0)="""RTN"",""IBCNSC01"",95,0)"
^XMB(3.9,55,2,26100,0)=" .. I $P(DATA,U,9) S A5=""YES""      ; use SSN for subscriber ID"
^XMB(3.9,55,2,26101,0)="""RTN"",""IBCNSC01"",96,0)"
^XMB(3.9,55,2,26102,0)=" .. I $P(DATA,U,10) S A6=""YES""     ; transmit SSN"
^XMB(3.9,55,2,26103,0)="""RTN"",""IBCNSC01"",97,0)"
^XMB(3.9,55,2,26104,0)=" .. I $P(DATA,U,11) S A7=""YES""     ; deactivated?"
^XMB(3.9,55,2,26105,0)="""RTN"",""IBCNSC01"",98,0)"
^XMB(3.9,55,2,26106,0)=" .. ; A8 = deactivation date"
^XMB(3.9,55,2,26107,0)="""RTN"",""IBCNSC01"",99,0)"
^XMB(3.9,55,2,26108,0)=" .. I $P(DATA,U,12) S A8=$P($$FMTE^XLFDT($P(DATA,U,12),""5Z""),""@"",1)"
^XMB(3.9,55,2,26109,0)="""RTN"",""IBCNSC01"",100,0)"
^XMB(3.9,55,2,26110,0)=" .. S APPDATA(APPNAME)=A1_U_A2_U_A3_U_A4_U_A5_U_A6_U_A7_U_A8"
^XMB(3.9,55,2,26111,0)="""RTN"",""IBCNSC01"",101,0)"
^XMB(3.9,55,2,26112,0)=" .. S APPDATA=APPDATA+1"
^XMB(3.9,55,2,26113,0)="""RTN"",""IBCNSC01"",102,0)"
^XMB(3.9,55,2,26114,0)=" .. Q"
^XMB(3.9,55,2,26115,0)="""RTN"",""IBCNSC01"",103,0)"
^XMB(3.9,55,2,26116,0)=" . Q"
^XMB(3.9,55,2,26117,0)="""RTN"",""IBCNSC01"",104,0)"
^XMB(3.9,55,2,26118,0)=" ;"
^XMB(3.9,55,2,26119,0)="""RTN"",""IBCNSC01"",105,0)"
^XMB(3.9,55,2,26120,0)=" S START=$O(^TMP(""IBCNSC"",$J,""""),-1)+1"
^XMB(3.9,55,2,26121,0)="""RTN"",""IBCNSC01"",106,0)"
^XMB(3.9,55,2,26122,0)=" S IB1ST(""PAYER"")=START"
^XMB(3.9,55,2,26123,0)="""RTN"",""IBCNSC01"",107,0)"
^XMB(3.9,55,2,26124,0)=" S TITLE="" Payer Information/Electronic Insurance Verification """
^XMB(3.9,55,2,26125,0)="""RTN"",""IBCNSC01"",108,0)"
^XMB(3.9,55,2,26126,0)=" S OFFSET=(40-($L(TITLE)/2))\1+1"
^XMB(3.9,55,2,26127,0)="""RTN"",""IBCNSC01"",109,0)"
^XMB(3.9,55,2,26128,0)=" D SET^IBCNSP(START,OFFSET,TITLE,IORVON,IORVOFF)"
^XMB(3.9,55,2,26129,0)="""RTN"",""IBCNSC01"",110,0)"
^XMB(3.9,55,2,26130,0)=" D SET^IBCNSP(START+1,9,""Payer Name: ""_$P(PAYR,U,1))"
^XMB(3.9,55,2,26131,0)="""RTN"",""IBCNSC01"",111,0)"
^XMB(3.9,55,2,26132,0)=" D SET^IBCNSP(START+2,5,""VA National ID: ""_$P(PAYR,U,2))"
^XMB(3.9,55,2,26133,0)="""RTN"",""IBCNSC01"",112,0)"
^XMB(3.9,55,2,26134,0)=" D SET^IBCNSP(START+2,51,""CMS National ID: ""_$P(PAYR,U,3))"
^XMB(3.9,55,2,26135,0)="""RTN"",""IBCNSC01"",113,0)"
^XMB(3.9,55,2,26136,0)=" S IBLINE=START+2"
^XMB(3.9,55,2,26137,0)="""RTN"",""IBCNSC01"",114,0)"
^XMB(3.9,55,2,26138,0)=" ;"
^XMB(3.9,55,2,26139,0)="""RTN"",""IBCNSC01"",115,0)"
^XMB(3.9,55,2,26140,0)=" ; Handle the case where no application data is defined"
^XMB(3.9,55,2,26141,0)="""RTN"",""IBCNSC01"",116,0)"
^XMB(3.9,55,2,26142,0)=" I 'APPDATA D  G PAYERX"
^XMB(3.9,55,2,26143,0)="""RTN"",""IBCNSC01"",117,0)"
^XMB(3.9,55,2,26144,0)=" . S IBLINE=IBLINE+1"
^XMB(3.9,55,2,26145,0)="""RTN"",""IBCNSC01"",118,0)"
^XMB(3.9,55,2,26146,0)=" . D SET^IBCNSP(IBLINE,2,"" "")    ; blank line"
^XMB(3.9,55,2,26147,0)="""RTN"",""IBCNSC01"",119,0)"
^XMB(3.9,55,2,26148,0)=" . S IBLINE=IBLINE+1"
^XMB(3.9,55,2,26149,0)="""RTN"",""IBCNSC01"",120,0)"
^XMB(3.9,55,2,26150,0)=" . D SET^IBCNSP(IBLINE,16,""Payer Application data is not defined!"")"
^XMB(3.9,55,2,26151,0)="""RTN"",""IBCNSC01"",121,0)"
^XMB(3.9,55,2,26152,0)=" . Q"
^XMB(3.9,55,2,26153,0)="""RTN"",""IBCNSC01"",122,0)"
^XMB(3.9,55,2,26154,0)=" ;"
^XMB(3.9,55,2,26155,0)="""RTN"",""IBCNSC01"",123,0)"
^XMB(3.9,55,2,26156,0)=" ; Display all the applications"
^XMB(3.9,55,2,26157,0)="""RTN"",""IBCNSC01"",124,0)"
^XMB(3.9,55,2,26158,0)=" S APPNAME="""""
^XMB(3.9,55,2,26159,0)="""RTN"",""IBCNSC01"",125,0)"
^XMB(3.9,55,2,26160,0)=" F  S APPNAME=$O(APPDATA(APPNAME)) Q:APPNAME=""""  D"
^XMB(3.9,55,2,26161,0)="""RTN"",""IBCNSC01"",126,0)"
^XMB(3.9,55,2,26162,0)=" . S IBLINE=IBLINE+1"
^XMB(3.9,55,2,26163,0)="""RTN"",""IBCNSC01"",127,0)"
^XMB(3.9,55,2,26164,0)=" . D SET^IBCNSP(IBLINE,2,"" "")    ; blank line"
^XMB(3.9,55,2,26165,0)="""RTN"",""IBCNSC01"",128,0)"
^XMB(3.9,55,2,26166,0)=" . ;"
^XMB(3.9,55,2,26167,0)="""RTN"",""IBCNSC01"",129,0)"
^XMB(3.9,55,2,26168,0)=" . S IBLINE=IBLINE+1"
^XMB(3.9,55,2,26169,0)="""RTN"",""IBCNSC01"",130,0)"
^XMB(3.9,55,2,26170,0)=" . D SET^IBCNSP(IBLINE,2,""Payer Application: ""_APPNAME)"
^XMB(3.9,55,2,26171,0)="""RTN"",""IBCNSC01"",131,0)"
^XMB(3.9,55,2,26172,0)=" . D SET^IBCNSP(IBLINE,50,""Auto-Accept Info: ""_$P(APPDATA(APPNAME),U,3))"
^XMB(3.9,55,2,26173,0)="""RTN"",""IBCNSC01"",132,0)"
^XMB(3.9,55,2,26174,0)=" . ;"
^XMB(3.9,55,2,26175,0)="""RTN"",""IBCNSC01"",133,0)"
^XMB(3.9,55,2,26176,0)=" . S IBLINE=IBLINE+1"
^XMB(3.9,55,2,26177,0)="""RTN"",""IBCNSC01"",134,0)"
^XMB(3.9,55,2,26178,0)=" . D SET^IBCNSP(IBLINE,4,""National Active: ""_$P(APPDATA(APPNAME),U,1))"
^XMB(3.9,55,2,26179,0)="""RTN"",""IBCNSC01"",135,0)"
^XMB(3.9,55,2,26180,0)=" . D SET^IBCNSP(IBLINE,47,""Ident Req Subscr ID: ""_$P(APPDATA(APPNAME),U,4))"
^XMB(3.9,55,2,26181,0)="""RTN"",""IBCNSC01"",136,0)"
^XMB(3.9,55,2,26182,0)=" . ;"
^XMB(3.9,55,2,26183,0)="""RTN"",""IBCNSC01"",137,0)"
^XMB(3.9,55,2,26184,0)=" . S IBLINE=IBLINE+1"
^XMB(3.9,55,2,26185,0)="""RTN"",""IBCNSC01"",138,0)"
^XMB(3.9,55,2,26186,0)=" . D SET^IBCNSP(IBLINE,7,""Local Active: ""_$P(APPDATA(APPNAME),U,2))"
^XMB(3.9,55,2,26187,0)="""RTN"",""IBCNSC01"",139,0)"
^XMB(3.9,55,2,26188,0)=" . D SET^IBCNSP(IBLINE,51,""SSN = Subscr ID: ""_$P(APPDATA(APPNAME),U,5))"
^XMB(3.9,55,2,26189,0)="""RTN"",""IBCNSC01"",140,0)"
^XMB(3.9,55,2,26190,0)=" . ;"
^XMB(3.9,55,2,26191,0)="""RTN"",""IBCNSC01"",141,0)"
^XMB(3.9,55,2,26192,0)=" . S IBLINE=IBLINE+1"
^XMB(3.9,55,2,26193,0)="""RTN"",""IBCNSC01"",142,0)"
^XMB(3.9,55,2,26194,0)=" . D SET^IBCNSP(IBLINE,8,""Deactivated: ""_$P(APPDATA(APPNAME),U,7))"
^XMB(3.9,55,2,26195,0)="""RTN"",""IBCNSC01"",143,0)"
^XMB(3.9,55,2,26196,0)=" . D SET^IBCNSP(IBLINE,54,""Transmit SSN: ""_$P(APPDATA(APPNAME),U,6))"
^XMB(3.9,55,2,26197,0)="""RTN"",""IBCNSC01"",144,0)"
^XMB(3.9,55,2,26198,0)=" . ;"
^XMB(3.9,55,2,26199,0)="""RTN"",""IBCNSC01"",145,0)"
^XMB(3.9,55,2,26200,0)=" . ; If no deactivated date, then exit"
^XMB(3.9,55,2,26201,0)="""RTN"",""IBCNSC01"",146,0)"
^XMB(3.9,55,2,26202,0)=" . I $P(APPDATA(APPNAME),U,8)="""" Q"
^XMB(3.9,55,2,26203,0)="""RTN"",""IBCNSC01"",147,0)"
^XMB(3.9,55,2,26204,0)=" . ;"
^XMB(3.9,55,2,26205,0)="""RTN"",""IBCNSC01"",148,0)"
^XMB(3.9,55,2,26206,0)=" . S IBLINE=IBLINE+1"
^XMB(3.9,55,2,26207,0)="""RTN"",""IBCNSC01"",149,0)"
^XMB(3.9,55,2,26208,0)=" . D SET^IBCNSP(IBLINE,13,""D-Date: ""_$P(APPDATA(APPNAME),U,8))"
^XMB(3.9,55,2,26209,0)="""RTN"",""IBCNSC01"",150,0)"
^XMB(3.9,55,2,26210,0)=" . ;"
^XMB(3.9,55,2,26211,0)="""RTN"",""IBCNSC01"",151,0)"
^XMB(3.9,55,2,26212,0)=" . Q"
^XMB(3.9,55,2,26213,0)="""RTN"",""IBCNSC01"",152,0)"
^XMB(3.9,55,2,26214,0)="PAYERX ;"
^XMB(3.9,55,2,26215,0)="""RTN"",""IBCNSC01"",153,0)"
^XMB(3.9,55,2,26216,0)=" ; Two trailing blank lines after payer information display"
^XMB(3.9,55,2,26217,0)="""RTN"",""IBCNSC01"",154,0)"
^XMB(3.9,55,2,26218,0)=" S IBLINE=IBLINE+1"
^XMB(3.9,55,2,26219,0)="""RTN"",""IBCNSC01"",155,0)"
^XMB(3.9,55,2,26220,0)=" D SET^IBCNSP(IBLINE,2,"" "")    ; blank line"
^XMB(3.9,55,2,26221,0)="""RTN"",""IBCNSC01"",156,0)"
^XMB(3.9,55,2,26222,0)=" S IBLINE=IBLINE+1"
^XMB(3.9,55,2,26223,0)="""RTN"",""IBCNSC01"",157,0)"
^XMB(3.9,55,2,26224,0)=" D SET^IBCNSP(IBLINE,2,"" "")    ; blank line"
^XMB(3.9,55,2,26225,0)="""RTN"",""IBCNSC01"",158,0)"
^XMB(3.9,55,2,26226,0)=" Q"
^XMB(3.9,55,2,26227,0)="""RTN"",""IBCNSC01"",159,0)"
^XMB(3.9,55,2,26228,0)=" ;"
^XMB(3.9,55,2,26229,0)="""RTN"",""IBCNSC01"",160,0)"
^XMB(3.9,55,2,26230,0)=" ;"
^XMB(3.9,55,2,26231,0)="""RTN"",""IBCNSC01"",161,0)"
^XMB(3.9,55,2,26232,0)="REMARKS ;"
^XMB(3.9,55,2,26233,0)="""RTN"",""IBCNSC01"",162,0)"
^XMB(3.9,55,2,26234,0)=" ;"
^XMB(3.9,55,2,26235,0)="""RTN"",""IBCNSC01"",163,0)"
^XMB(3.9,55,2,26236,0)=" N OFFSET,START,IBLCNT,IBI"
^XMB(3.9,55,2,26237,0)="""RTN"",""IBCNSC01"",164,0)"
^XMB(3.9,55,2,26238,0)=" S START=$O(^TMP(""IBCNSC"",$J,""""),-1)+1,OFFSET=2"
^XMB(3.9,55,2,26239,0)="""RTN"",""IBCNSC01"",165,0)"
^XMB(3.9,55,2,26240,0)=" S IB1ST(""REM"")=START"
^XMB(3.9,55,2,26241,0)="""RTN"",""IBCNSC01"",166,0)"
^XMB(3.9,55,2,26242,0)=" ;"
^XMB(3.9,55,2,26243,0)="""RTN"",""IBCNSC01"",167,0)"
^XMB(3.9,55,2,26244,0)=" D SET^IBCNSP(START,OFFSET,"" Remarks "",IORVON,IORVOFF)"
^XMB(3.9,55,2,26245,0)="""RTN"",""IBCNSC01"",168,0)"
^XMB(3.9,55,2,26246,0)=" S (IBLCNT,IBI)=0 F  S IBI=$O(^DIC(36,+IBCNS,11,IBI)) Q:IBI<1  D"
^XMB(3.9,55,2,26247,0)="""RTN"",""IBCNSC01"",169,0)"
^XMB(3.9,55,2,26248,0)=" . S IBLCNT=IBLCNT+1"
^XMB(3.9,55,2,26249,0)="""RTN"",""IBCNSC01"",170,0)"
^XMB(3.9,55,2,26250,0)=" . D SET^IBCNSP(START+IBLCNT,OFFSET,""  ""_$E($G(^DIC(36,+IBCNS,11,IBI,0)),1,80))"
^XMB(3.9,55,2,26251,0)="""RTN"",""IBCNSC01"",171,0)"
^XMB(3.9,55,2,26252,0)=" . Q"
^XMB(3.9,55,2,26253,0)="""RTN"",""IBCNSC01"",172,0)"
^XMB(3.9,55,2,26254,0)=" D SET^IBCNSP(START+IBLCNT+1,OFFSET,"" "")   ; blank line after remarks"
^XMB(3.9,55,2,26255,0)="""RTN"",""IBCNSC01"",173,0)"
^XMB(3.9,55,2,26256,0)=" Q"
^XMB(3.9,55,2,26257,0)="""RTN"",""IBCNSC01"",174,0)"
^XMB(3.9,55,2,26258,0)=" ;"
^XMB(3.9,55,2,26259,0)="""RTN"",""IBCNSC01"",175,0)"
^XMB(3.9,55,2,26260,0)="SYN ;"
^XMB(3.9,55,2,26261,0)="""RTN"",""IBCNSC01"",176,0)"
^XMB(3.9,55,2,26262,0)=" N OFFSET,START,SYN,SYNOI"
^XMB(3.9,55,2,26263,0)="""RTN"",""IBCNSC01"",177,0)"
^XMB(3.9,55,2,26264,0)=" S START=$O(^TMP(""IBCNSC"",$J,""""),-1)+1,OFFSET=2"
^XMB(3.9,55,2,26265,0)="""RTN"",""IBCNSC01"",178,0)"
^XMB(3.9,55,2,26266,0)=" S IB1ST(""SYN"")=START"
^XMB(3.9,55,2,26267,0)="""RTN"",""IBCNSC01"",179,0)"
^XMB(3.9,55,2,26268,0)=" D SET^IBCNSP(START,OFFSET,"" Synonyms "",IORVON,IORVOFF)"
^XMB(3.9,55,2,26269,0)="""RTN"",""IBCNSC01"",180,0)"
^XMB(3.9,55,2,26270,0)=" S SYN="""" F SYNOI=1:1:8 S SYN=$O(^DIC(36,+IBCNS,10,""B"",SYN)) Q:SYN=""""  D SET^IBCNSP(START+SYNOI,OFFSET,$S(SYNOI>7:""  ...edit to see more..."",1:""  ""_SYN))"
^XMB(3.9,55,2,26271,0)="""RTN"",""IBCNSC01"",181,0)"
^XMB(3.9,55,2,26272,0)=" Q"
^XMB(3.9,55,2,26273,0)="""RTN"",""IBCNSC01"",182,0)"
^XMB(3.9,55,2,26274,0)=" ;"
^XMB(3.9,55,2,26275,0)="""RTN"",""IBCNSC02"")"
^XMB(3.9,55,2,26276,0)="0^33^B55607158"
^XMB(3.9,55,2,26277,0)="""RTN"",""IBCNSC02"",1,0)"
^XMB(3.9,55,2,26278,0)="IBCNSC02 ;ALB/ESG - Insurance Company parent/child management ;01-NOV-2005"
^XMB(3.9,55,2,26279,0)="""RTN"",""IBCNSC02"",2,0)"
^XMB(3.9,55,2,26280,0)=" ;;2.0;INTEGRATED BILLING;**320**;21-MAR-1994"
^XMB(3.9,55,2,26281,0)="""RTN"",""IBCNSC02"",3,0)"
^XMB(3.9,55,2,26282,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,26283,0)="""RTN"",""IBCNSC02"",4,0)"
^XMB(3.9,55,2,26284,0)=" ;"
^XMB(3.9,55,2,26285,0)="""RTN"",""IBCNSC02"",5,0)"
^XMB(3.9,55,2,26286,0)=" Q"
^XMB(3.9,55,2,26287,0)="""RTN"",""IBCNSC02"",6,0)"
^XMB(3.9,55,2,26288,0)=" ;"
^XMB(3.9,55,2,26289,0)="""RTN"",""IBCNSC02"",7,0)"
^XMB(3.9,55,2,26290,0)="DISP ; entry point for display of parent/child companies"
^XMB(3.9,55,2,26291,0)="""RTN"",""IBCNSC02"",8,0)"
^XMB(3.9,55,2,26292,0)=" NEW PCFLG,PARENT,PCDESC,TITLE,START,IBLINE,OFFSET,INSDATA,CNT,TXT"
^XMB(3.9,55,2,26293,0)="""RTN"",""IBCNSC02"",9,0)"
^XMB(3.9,55,2,26294,0)=" S PCFLG=$P($G(^DIC(36,+IBCNS,3)),U,13),PARENT="""""
^XMB(3.9,55,2,26295,0)="""RTN"",""IBCNSC02"",10,0)"
^XMB(3.9,55,2,26296,0)=" I PCFLG=""C"" S PARENT=$P($G(^DIC(36,+IBCNS,3)),U,14),PCDESC=""Child"""
^XMB(3.9,55,2,26297,0)="""RTN"",""IBCNSC02"",11,0)"
^XMB(3.9,55,2,26298,0)=" I PCFLG=""P"" S PCDESC=""Parent"""
^XMB(3.9,55,2,26299,0)="""RTN"",""IBCNSC02"",12,0)"
^XMB(3.9,55,2,26300,0)=" S TITLE="" Associated Insurance Companies """
^XMB(3.9,55,2,26301,0)="""RTN"",""IBCNSC02"",13,0)"
^XMB(3.9,55,2,26302,0)=" S (START,IBLINE)=54"
^XMB(3.9,55,2,26303,0)="""RTN"",""IBCNSC02"",14,0)"
^XMB(3.9,55,2,26304,0)=" S OFFSET=(40-($L(TITLE)/2))\1+1"
^XMB(3.9,55,2,26305,0)="""RTN"",""IBCNSC02"",15,0)"
^XMB(3.9,55,2,26306,0)=" D SET^IBCNSP(START,OFFSET,TITLE,IORVON,IORVOFF)"
^XMB(3.9,55,2,26307,0)="""RTN"",""IBCNSC02"",16,0)"
^XMB(3.9,55,2,26308,0)=" ;"
^XMB(3.9,55,2,26309,0)="""RTN"",""IBCNSC02"",17,0)"
^XMB(3.9,55,2,26310,0)=" ; no link - display this and get out"
^XMB(3.9,55,2,26311,0)="""RTN"",""IBCNSC02"",18,0)"
^XMB(3.9,55,2,26312,0)=" I PCFLG="""" D  G DISPX"
^XMB(3.9,55,2,26313,0)="""RTN"",""IBCNSC02"",19,0)"
^XMB(3.9,55,2,26314,0)=" . S IBLINE=IBLINE+1"
^XMB(3.9,55,2,26315,0)="""RTN"",""IBCNSC02"",20,0)"
^XMB(3.9,55,2,26316,0)=" . D SET^IBCNSP(IBLINE,3,""This insurance company is not defined as either a Parent or a Child."")"
^XMB(3.9,55,2,26317,0)="""RTN"",""IBCNSC02"",21,0)"
^XMB(3.9,55,2,26318,0)=" . Q"
^XMB(3.9,55,2,26319,0)="""RTN"",""IBCNSC02"",22,0)"
^XMB(3.9,55,2,26320,0)=" ;"
^XMB(3.9,55,2,26321,0)="""RTN"",""IBCNSC02"",23,0)"
^XMB(3.9,55,2,26322,0)=" ; display for either parent or child"
^XMB(3.9,55,2,26323,0)="""RTN"",""IBCNSC02"",24,0)"
^XMB(3.9,55,2,26324,0)=" S IBLINE=IBLINE+1"
^XMB(3.9,55,2,26325,0)="""RTN"",""IBCNSC02"",25,0)"
^XMB(3.9,55,2,26326,0)=" D SET^IBCNSP(IBLINE,3,""This insurance company is defined as a ""_PCDESC_"" Insurance Company."")"
^XMB(3.9,55,2,26327,0)="""RTN"",""IBCNSC02"",26,0)"
^XMB(3.9,55,2,26328,0)=" ;"
^XMB(3.9,55,2,26329,0)="""RTN"",""IBCNSC02"",27,0)"
^XMB(3.9,55,2,26330,0)=" ; child display"
^XMB(3.9,55,2,26331,0)="""RTN"",""IBCNSC02"",28,0)"
^XMB(3.9,55,2,26332,0)=" I PCFLG=""C"" D  G DISPX"
^XMB(3.9,55,2,26333,0)="""RTN"",""IBCNSC02"",29,0)"
^XMB(3.9,55,2,26334,0)=" . S IBLINE=IBLINE+1"
^XMB(3.9,55,2,26335,0)="""RTN"",""IBCNSC02"",30,0)"
^XMB(3.9,55,2,26336,0)=" . D SET^IBCNSP(IBLINE,3,""It is associated with the following Parent Insurance Company:"")"
^XMB(3.9,55,2,26337,0)="""RTN"",""IBCNSC02"",31,0)"
^XMB(3.9,55,2,26338,0)=" . S IBLINE=IBLINE+1"
^XMB(3.9,55,2,26339,0)="""RTN"",""IBCNSC02"",32,0)"
^XMB(3.9,55,2,26340,0)=" . D SET^IBCNSP(IBLINE,2,"" "")    ; blank line"
^XMB(3.9,55,2,26341,0)="""RTN"",""IBCNSC02"",33,0)"
^XMB(3.9,55,2,26342,0)=" . S INSDATA="""""
^XMB(3.9,55,2,26343,0)="""RTN"",""IBCNSC02"",34,0)"
^XMB(3.9,55,2,26344,0)=" . I 'PARENT S INSDATA=""*** Parent Insurance Company not defined ***"""
^XMB(3.9,55,2,26345,0)="""RTN"",""IBCNSC02"",35,0)"
^XMB(3.9,55,2,26346,0)=" . I PARENT D"
^XMB(3.9,55,2,26347,0)="""RTN"",""IBCNSC02"",36,0)"
^XMB(3.9,55,2,26348,0)=" .. N AD S AD=$$INSADD(PARENT)   ; get parent ins co data"
^XMB(3.9,55,2,26349,0)="""RTN"",""IBCNSC02"",37,0)"
^XMB(3.9,55,2,26350,0)=" .. S INSDATA=$P(AD,U,1)_""  ""_$P(AD,U,2)_""  ""_$P(AD,U,6)"
^XMB(3.9,55,2,26351,0)="""RTN"",""IBCNSC02"",38,0)"
^XMB(3.9,55,2,26352,0)=" .. Q"
^XMB(3.9,55,2,26353,0)="""RTN"",""IBCNSC02"",39,0)"
^XMB(3.9,55,2,26354,0)=" . S IBLINE=IBLINE+1"
^XMB(3.9,55,2,26355,0)="""RTN"",""IBCNSC02"",40,0)"
^XMB(3.9,55,2,26356,0)=" . D SET^IBCNSP(IBLINE,8,INSDATA)"
^XMB(3.9,55,2,26357,0)="""RTN"",""IBCNSC02"",41,0)"
^XMB(3.9,55,2,26358,0)=" . Q"
^XMB(3.9,55,2,26359,0)="""RTN"",""IBCNSC02"",42,0)"
^XMB(3.9,55,2,26360,0)=" ;"
^XMB(3.9,55,2,26361,0)="""RTN"",""IBCNSC02"",43,0)"
^XMB(3.9,55,2,26362,0)=" ; parent display"
^XMB(3.9,55,2,26363,0)="""RTN"",""IBCNSC02"",44,0)"
^XMB(3.9,55,2,26364,0)=" S CNT=$$PCNT(IBCNS)    ; count # of children"
^XMB(3.9,55,2,26365,0)="""RTN"",""IBCNSC02"",45,0)"
^XMB(3.9,55,2,26366,0)=" S TXT=""There are ""_CNT_"" Child Insurance Companies"""
^XMB(3.9,55,2,26367,0)="""RTN"",""IBCNSC02"",46,0)"
^XMB(3.9,55,2,26368,0)=" I CNT=1 S TXT=""There is 1 Child Insurance Company"""
^XMB(3.9,55,2,26369,0)="""RTN"",""IBCNSC02"",47,0)"
^XMB(3.9,55,2,26370,0)=" S TXT=TXT_"" associated with it."""
^XMB(3.9,55,2,26371,0)="""RTN"",""IBCNSC02"",48,0)"
^XMB(3.9,55,2,26372,0)=" S IBLINE=IBLINE+1"
^XMB(3.9,55,2,26373,0)="""RTN"",""IBCNSC02"",49,0)"
^XMB(3.9,55,2,26374,0)=" D SET^IBCNSP(IBLINE,3,TXT)"
^XMB(3.9,55,2,26375,0)="""RTN"",""IBCNSC02"",50,0)"
^XMB(3.9,55,2,26376,0)=" S IBLINE=IBLINE+1"
^XMB(3.9,55,2,26377,0)="""RTN"",""IBCNSC02"",51,0)"
^XMB(3.9,55,2,26378,0)=" D SET^IBCNSP(IBLINE,3,""Select the """"AC  Associate Companies"""" action to enter/edit the children."")"
^XMB(3.9,55,2,26379,0)="""RTN"",""IBCNSC02"",52,0)"
^XMB(3.9,55,2,26380,0)=" ;"
^XMB(3.9,55,2,26381,0)="""RTN"",""IBCNSC02"",53,0)"
^XMB(3.9,55,2,26382,0)="DISPX ; end with 2 blank lines"
^XMB(3.9,55,2,26383,0)="""RTN"",""IBCNSC02"",54,0)"
^XMB(3.9,55,2,26384,0)=" S IBLINE=IBLINE+1"
^XMB(3.9,55,2,26385,0)="""RTN"",""IBCNSC02"",55,0)"
^XMB(3.9,55,2,26386,0)=" D SET^IBCNSP(IBLINE,2,"" "")    ; blank line"
^XMB(3.9,55,2,26387,0)="""RTN"",""IBCNSC02"",56,0)"
^XMB(3.9,55,2,26388,0)=" S IBLINE=IBLINE+1"
^XMB(3.9,55,2,26389,0)="""RTN"",""IBCNSC02"",57,0)"
^XMB(3.9,55,2,26390,0)=" D SET^IBCNSP(IBLINE,2,"" "")    ; blank line"
^XMB(3.9,55,2,26391,0)="""RTN"",""IBCNSC02"",58,0)"
^XMB(3.9,55,2,26392,0)=" Q"
^XMB(3.9,55,2,26393,0)="""RTN"",""IBCNSC02"",59,0)"
^XMB(3.9,55,2,26394,0)=" ;"
^XMB(3.9,55,2,26395,0)="""RTN"",""IBCNSC02"",60,0)"
^XMB(3.9,55,2,26396,0)="PARENT(IBCNS) ; Insurance company parent/child management"
^XMB(3.9,55,2,26397,0)="""RTN"",""IBCNSC02"",61,0)"
^XMB(3.9,55,2,26398,0)=" ; Calls ListMan screen for parent insurance companies"
^XMB(3.9,55,2,26399,0)="""RTN"",""IBCNSC02"",62,0)"
^XMB(3.9,55,2,26400,0)=" NEW PCFLG"
^XMB(3.9,55,2,26401,0)="""RTN"",""IBCNSC02"",63,0)"
^XMB(3.9,55,2,26402,0)=" I '$G(IBCNS) G PARENTX"
^XMB(3.9,55,2,26403,0)="""RTN"",""IBCNSC02"",64,0)"
^XMB(3.9,55,2,26404,0)=" S PCFLG=$P($G(^DIC(36,IBCNS,3)),U,13)"
^XMB(3.9,55,2,26405,0)="""RTN"",""IBCNSC02"",65,0)"
^XMB(3.9,55,2,26406,0)=" ;"
^XMB(3.9,55,2,26407,0)="""RTN"",""IBCNSC02"",66,0)"
^XMB(3.9,55,2,26408,0)=" ; special check to remove 3.13 field if 3.14 field is nil"
^XMB(3.9,55,2,26409,0)="""RTN"",""IBCNSC02"",67,0)"
^XMB(3.9,55,2,26410,0)=" I PCFLG=""C"",'$P($G(^DIC(36,IBCNS,3)),U,14) D"
^XMB(3.9,55,2,26411,0)="""RTN"",""IBCNSC02"",68,0)"
^XMB(3.9,55,2,26412,0)=" . N DIE,DA,DR S DIE=36,DA=IBCNS,DR=""3.13////@"" D ^DIE"
^XMB(3.9,55,2,26413,0)="""RTN"",""IBCNSC02"",69,0)"
^XMB(3.9,55,2,26414,0)=" . Q"
^XMB(3.9,55,2,26415,0)="""RTN"",""IBCNSC02"",70,0)"
^XMB(3.9,55,2,26416,0)=" ;"
^XMB(3.9,55,2,26417,0)="""RTN"",""IBCNSC02"",71,0)"
^XMB(3.9,55,2,26418,0)=" ; get out if not a parent insurance company"
^XMB(3.9,55,2,26419,0)="""RTN"",""IBCNSC02"",72,0)"
^XMB(3.9,55,2,26420,0)=" I PCFLG'=""P"" G PARENTX"
^XMB(3.9,55,2,26421,0)="""RTN"",""IBCNSC02"",73,0)"
^XMB(3.9,55,2,26422,0)=" ;"
^XMB(3.9,55,2,26423,0)="""RTN"",""IBCNSC02"",74,0)"
^XMB(3.9,55,2,26424,0)=" ; call ListMan for parent/children management"
^XMB(3.9,55,2,26425,0)="""RTN"",""IBCNSC02"",75,0)"
^XMB(3.9,55,2,26426,0)=" D EN^VALM(""IBCNS ASSOCIATIONS LIST"")"
^XMB(3.9,55,2,26427,0)="""RTN"",""IBCNSC02"",76,0)"
^XMB(3.9,55,2,26428,0)=" KILL ^TMP($J,""IBCNSL"")"
^XMB(3.9,55,2,26429,0)="""RTN"",""IBCNSC02"",77,0)"
^XMB(3.9,55,2,26430,0)="PARENTX ;"
^XMB(3.9,55,2,26431,0)="""RTN"",""IBCNSC02"",78,0)"
^XMB(3.9,55,2,26432,0)=" Q"
^XMB(3.9,55,2,26433,0)="""RTN"",""IBCNSC02"",79,0)"
^XMB(3.9,55,2,26434,0)=" ;"
^XMB(3.9,55,2,26435,0)="""RTN"",""IBCNSC02"",80,0)"
^XMB(3.9,55,2,26436,0)="HDR ; List header info"
^XMB(3.9,55,2,26437,0)="""RTN"",""IBCNSC02"",81,0)"
^XMB(3.9,55,2,26438,0)=" S VALMHDR(1)=""Parent Insurance Company:"""
^XMB(3.9,55,2,26439,0)="""RTN"",""IBCNSC02"",82,0)"
^XMB(3.9,55,2,26440,0)=" S VALMHDR(2)=""     ""_$$INSCO(IBCNS)"
^XMB(3.9,55,2,26441,0)="""RTN"",""IBCNSC02"",83,0)"
^XMB(3.9,55,2,26442,0)=" S VALMHDR(3)="""""
^XMB(3.9,55,2,26443,0)="""RTN"",""IBCNSC02"",84,0)"
^XMB(3.9,55,2,26444,0)="HDRX ;"
^XMB(3.9,55,2,26445,0)="""RTN"",""IBCNSC02"",85,0)"
^XMB(3.9,55,2,26446,0)=" Q"
^XMB(3.9,55,2,26447,0)="""RTN"",""IBCNSC02"",86,0)"
^XMB(3.9,55,2,26448,0)=" ;"
^XMB(3.9,55,2,26449,0)="""RTN"",""IBCNSC02"",87,0)"
^XMB(3.9,55,2,26450,0)="BLD ; Build list contents"
^XMB(3.9,55,2,26451,0)="""RTN"",""IBCNSC02"",88,0)"
^XMB(3.9,55,2,26452,0)=" NEW C,INSDATA,INSNAME,STCITY,ENTRY,NM,ST,IEN,X"
^XMB(3.9,55,2,26453,0)="""RTN"",""IBCNSC02"",89,0)"
^XMB(3.9,55,2,26454,0)=" KILL ^TMP($J,""IBCNSL"")"
^XMB(3.9,55,2,26455,0)="""RTN"",""IBCNSC02"",90,0)"
^XMB(3.9,55,2,26456,0)=" S C=0"
^XMB(3.9,55,2,26457,0)="""RTN"",""IBCNSC02"",91,0)"
^XMB(3.9,55,2,26458,0)=" F  S C=$O(^DIC(36,""APC"",IBCNS,C)) Q:'C  D"
^XMB(3.9,55,2,26459,0)="""RTN"",""IBCNSC02"",92,0)"
^XMB(3.9,55,2,26460,0)=" . S INSDATA=$$INSADD(C)"
^XMB(3.9,55,2,26461,0)="""RTN"",""IBCNSC02"",93,0)"
^XMB(3.9,55,2,26462,0)=" . S INSNAME=$P(INSDATA,U,1)"
^XMB(3.9,55,2,26463,0)="""RTN"",""IBCNSC02"",94,0)"
^XMB(3.9,55,2,26464,0)=" . I INSNAME="""" S INSNAME=""~UNKNOWN"""
^XMB(3.9,55,2,26465,0)="""RTN"",""IBCNSC02"",95,0)"
^XMB(3.9,55,2,26466,0)=" . S STCITY=$P(INSDATA,U,7)"
^XMB(3.9,55,2,26467,0)="""RTN"",""IBCNSC02"",96,0)"
^XMB(3.9,55,2,26468,0)=" . I STCITY="""" S STCITY=""~UNKNOWN"""
^XMB(3.9,55,2,26469,0)="""RTN"",""IBCNSC02"",97,0)"
^XMB(3.9,55,2,26470,0)=" . S ^TMP($J,""IBCNSL"",1,INSNAME,STCITY,C)="""""
^XMB(3.9,55,2,26471,0)="""RTN"",""IBCNSC02"",98,0)"
^XMB(3.9,55,2,26472,0)=" . Q"
^XMB(3.9,55,2,26473,0)="""RTN"",""IBCNSC02"",99,0)"
^XMB(3.9,55,2,26474,0)=" ;"
^XMB(3.9,55,2,26475,0)="""RTN"",""IBCNSC02"",100,0)"
^XMB(3.9,55,2,26476,0)=" I '$D(^TMP($J,""IBCNSL"",1)) D  G BLDX"
^XMB(3.9,55,2,26477,0)="""RTN"",""IBCNSC02"",101,0)"
^XMB(3.9,55,2,26478,0)=" . ; no children insurance companies found"
^XMB(3.9,55,2,26479,0)="""RTN"",""IBCNSC02"",102,0)"
^XMB(3.9,55,2,26480,0)=" . S ^TMP($J,""IBCNSL"",2,1,0)="""""
^XMB(3.9,55,2,26481,0)="""RTN"",""IBCNSC02"",103,0)"
^XMB(3.9,55,2,26482,0)=" . S ^TMP($J,""IBCNSL"",2,2,0)=""     No Children Insurance Companies Found"""
^XMB(3.9,55,2,26483,0)="""RTN"",""IBCNSC02"",104,0)"
^XMB(3.9,55,2,26484,0)=" . S VALMCNT=2"
^XMB(3.9,55,2,26485,0)="""RTN"",""IBCNSC02"",105,0)"
^XMB(3.9,55,2,26486,0)=" . Q"
^XMB(3.9,55,2,26487,0)="""RTN"",""IBCNSC02"",106,0)"
^XMB(3.9,55,2,26488,0)=" ;"
^XMB(3.9,55,2,26489,0)="""RTN"",""IBCNSC02"",107,0)"
^XMB(3.9,55,2,26490,0)=" S VALMCNT=0,ENTRY=0"
^XMB(3.9,55,2,26491,0)="""RTN"",""IBCNSC02"",108,0)"
^XMB(3.9,55,2,26492,0)=" S NM="""""
^XMB(3.9,55,2,26493,0)="""RTN"",""IBCNSC02"",109,0)"
^XMB(3.9,55,2,26494,0)=" F  S NM=$O(^TMP($J,""IBCNSL"",1,NM)) Q:NM=""""  D"
^XMB(3.9,55,2,26495,0)="""RTN"",""IBCNSC02"",110,0)"
^XMB(3.9,55,2,26496,0)=" . S ST="""""
^XMB(3.9,55,2,26497,0)="""RTN"",""IBCNSC02"",111,0)"
^XMB(3.9,55,2,26498,0)=" . F  S ST=$O(^TMP($J,""IBCNSL"",1,NM,ST)) Q:ST=""""  D"
^XMB(3.9,55,2,26499,0)="""RTN"",""IBCNSC02"",112,0)"
^XMB(3.9,55,2,26500,0)=" .. S IEN=0"
^XMB(3.9,55,2,26501,0)="""RTN"",""IBCNSC02"",113,0)"
^XMB(3.9,55,2,26502,0)=" .. F  S IEN=$O(^TMP($J,""IBCNSL"",1,NM,ST,IEN)) Q:'IEN  D"
^XMB(3.9,55,2,26503,0)="""RTN"",""IBCNSC02"",114,0)"
^XMB(3.9,55,2,26504,0)=" ... S VALMCNT=VALMCNT+1,ENTRY=ENTRY+1"
^XMB(3.9,55,2,26505,0)="""RTN"",""IBCNSC02"",115,0)"
^XMB(3.9,55,2,26506,0)=" ... S X=$$FO^IBCNEUT1($J(ENTRY,3),5)_$$INSCO(IEN)"
^XMB(3.9,55,2,26507,0)="""RTN"",""IBCNSC02"",116,0)"
^XMB(3.9,55,2,26508,0)=" ... S ^TMP($J,""IBCNSL"",2,VALMCNT,0)=X"
^XMB(3.9,55,2,26509,0)="""RTN"",""IBCNSC02"",117,0)"
^XMB(3.9,55,2,26510,0)=" ... S ^TMP($J,""IBCNSL"",2,""IDX"",VALMCNT,ENTRY)="""""
^XMB(3.9,55,2,26511,0)="""RTN"",""IBCNSC02"",118,0)"
^XMB(3.9,55,2,26512,0)=" ... S ^TMP($J,""IBCNSL"",3,ENTRY)=IEN_U_VALMCNT"
^XMB(3.9,55,2,26513,0)="""RTN"",""IBCNSC02"",119,0)"
^XMB(3.9,55,2,26514,0)=" ... Q"
^XMB(3.9,55,2,26515,0)="""RTN"",""IBCNSC02"",120,0)"
^XMB(3.9,55,2,26516,0)=" .. Q"
^XMB(3.9,55,2,26517,0)="""RTN"",""IBCNSC02"",121,0)"
^XMB(3.9,55,2,26518,0)=" . Q"
^XMB(3.9,55,2,26519,0)="""RTN"",""IBCNSC02"",122,0)"
^XMB(3.9,55,2,26520,0)="BLDX ;"
^XMB(3.9,55,2,26521,0)="""RTN"",""IBCNSC02"",123,0)"
^XMB(3.9,55,2,26522,0)=" Q"
^XMB(3.9,55,2,26523,0)="""RTN"",""IBCNSC02"",124,0)"
^XMB(3.9,55,2,26524,0)=" ;"
^XMB(3.9,55,2,26525,0)="""RTN"",""IBCNSC02"",125,0)"
^XMB(3.9,55,2,26526,0)="LINK ; action protocol IBCNSL LINK used to associate children insurance"
^XMB(3.9,55,2,26527,0)="""RTN"",""IBCNSC02"",126,0)"
^XMB(3.9,55,2,26528,0)=" ; companies to the current parent ins co for the list"
^XMB(3.9,55,2,26529,0)="""RTN"",""IBCNSC02"",127,0)"
^XMB(3.9,55,2,26530,0)=" NEW DIC,X,Y,DIE,DR,DA,NEWINS,IBSTOP,PAR,DIR,DIRUT,DTOUT,DUOUT,DIROUT"
^XMB(3.9,55,2,26531,0)="""RTN"",""IBCNSC02"",128,0)"
^XMB(3.9,55,2,26532,0)=" D FULL^VALM1"
^XMB(3.9,55,2,26533,0)="""RTN"",""IBCNSC02"",129,0)"
^XMB(3.9,55,2,26534,0)=" I '$$KCHK^XUSRB(""IB EDI INSURANCE EDIT"") D  G LINKX"
^XMB(3.9,55,2,26535,0)="""RTN"",""IBCNSC02"",130,0)"
^XMB(3.9,55,2,26536,0)=" . W !!?5,""You must hold the IB EDI INSURANCE EDIT key to access this option."""
^XMB(3.9,55,2,26537,0)="""RTN"",""IBCNSC02"",131,0)"
^XMB(3.9,55,2,26538,0)=" . D PAUSE^VALM1"
^XMB(3.9,55,2,26539,0)="""RTN"",""IBCNSC02"",132,0)"
^XMB(3.9,55,2,26540,0)=" . Q"
^XMB(3.9,55,2,26541,0)="""RTN"",""IBCNSC02"",133,0)"
^XMB(3.9,55,2,26542,0)=" ;"
^XMB(3.9,55,2,26543,0)="""RTN"",""IBCNSC02"",134,0)"
^XMB(3.9,55,2,26544,0)=" ; lookup ins company"
^XMB(3.9,55,2,26545,0)="""RTN"",""IBCNSC02"",135,0)"
^XMB(3.9,55,2,26546,0)=" W !"
^XMB(3.9,55,2,26547,0)="""RTN"",""IBCNSC02"",136,0)"
^XMB(3.9,55,2,26548,0)=" S DIC=36,DIC(0)=""AEMQ"",DIC(""A"")=""Select Insurance Company: """
^XMB(3.9,55,2,26549,0)="""RTN"",""IBCNSC02"",137,0)"
^XMB(3.9,55,2,26550,0)=" S DIC(""W"")=""D INSLIST^IBCNSC02(Y)"""
^XMB(3.9,55,2,26551,0)="""RTN"",""IBCNSC02"",138,0)"
^XMB(3.9,55,2,26552,0)=" ; screen - ins co Y is not a parent and also it is not already in the list of children"
^XMB(3.9,55,2,26553,0)="""RTN"",""IBCNSC02"",139,0)"
^XMB(3.9,55,2,26554,0)=" S DIC(""S"")=""I $P($G(^DIC(36,Y,3)),U,13)'=""""P""""&'$D(^DIC(36,""""APC"""",IBCNS,Y))"""
^XMB(3.9,55,2,26555,0)="""RTN"",""IBCNSC02"",140,0)"
^XMB(3.9,55,2,26556,0)=" D ^DIC K DIC"
^XMB(3.9,55,2,26557,0)="""RTN"",""IBCNSC02"",141,0)"
^XMB(3.9,55,2,26558,0)=" I +Y'>0 G LINKX"
^XMB(3.9,55,2,26559,0)="""RTN"",""IBCNSC02"",142,0)"
^XMB(3.9,55,2,26560,0)=" S NEWINS=+Y"
^XMB(3.9,55,2,26561,0)="""RTN"",""IBCNSC02"",143,0)"
^XMB(3.9,55,2,26562,0)=" ;"
^XMB(3.9,55,2,26563,0)="""RTN"",""IBCNSC02"",144,0)"
^XMB(3.9,55,2,26564,0)=" ; check to see if this selected insurance company is already a child"
^XMB(3.9,55,2,26565,0)="""RTN"",""IBCNSC02"",145,0)"
^XMB(3.9,55,2,26566,0)=" ; for some other parent"
^XMB(3.9,55,2,26567,0)="""RTN"",""IBCNSC02"",146,0)"
^XMB(3.9,55,2,26568,0)=" S PAR=+$P($G(^DIC(36,NEWINS,3)),U,14),IBSTOP=0"
^XMB(3.9,55,2,26569,0)="""RTN"",""IBCNSC02"",147,0)"
^XMB(3.9,55,2,26570,0)=" I PAR,PAR'=IBCNS D"
^XMB(3.9,55,2,26571,0)="""RTN"",""IBCNSC02"",148,0)"
^XMB(3.9,55,2,26572,0)=" . W !"
^XMB(3.9,55,2,26573,0)="""RTN"",""IBCNSC02"",149,0)"
^XMB(3.9,55,2,26574,0)=" . S DIR(0)=""YO"",DIR(""B"")=""No"""
^XMB(3.9,55,2,26575,0)="""RTN"",""IBCNSC02"",150,0)"
^XMB(3.9,55,2,26576,0)=" . S DIR(""A"",1)=""Please Note:  The insurance company you selected is currently identified"""
^XMB(3.9,55,2,26577,0)="""RTN"",""IBCNSC02"",151,0)"
^XMB(3.9,55,2,26578,0)=" . S DIR(""A"",2)=""as a Child insurance company associated with the following Parent:"""
^XMB(3.9,55,2,26579,0)="""RTN"",""IBCNSC02"",152,0)"
^XMB(3.9,55,2,26580,0)=" . S DIR(""A"",3)="""""
^XMB(3.9,55,2,26581,0)="""RTN"",""IBCNSC02"",153,0)"
^XMB(3.9,55,2,26582,0)=" . S DIR(""A"",4)=""     ""_$$INSCO(PAR)"
^XMB(3.9,55,2,26583,0)="""RTN"",""IBCNSC02"",154,0)"
^XMB(3.9,55,2,26584,0)=" . S DIR(""A"",5)="""""
^XMB(3.9,55,2,26585,0)="""RTN"",""IBCNSC02"",155,0)"
^XMB(3.9,55,2,26586,0)=" . S DIR(""A"")=""OK to proceed and make this switch"""
^XMB(3.9,55,2,26587,0)="""RTN"",""IBCNSC02"",156,0)"
^XMB(3.9,55,2,26588,0)=" . D ^DIR K DIR"
^XMB(3.9,55,2,26589,0)="""RTN"",""IBCNSC02"",157,0)"
^XMB(3.9,55,2,26590,0)=" . I Y'=1 S IBSTOP=1 Q"
^XMB(3.9,55,2,26591,0)="""RTN"",""IBCNSC02"",158,0)"
^XMB(3.9,55,2,26592,0)=" . Q"
^XMB(3.9,55,2,26593,0)="""RTN"",""IBCNSC02"",159,0)"
^XMB(3.9,55,2,26594,0)=" I IBSTOP G LINKX"
^XMB(3.9,55,2,26595,0)="""RTN"",""IBCNSC02"",160,0)"
^XMB(3.9,55,2,26596,0)=" ;"
^XMB(3.9,55,2,26597,0)="""RTN"",""IBCNSC02"",161,0)"
^XMB(3.9,55,2,26598,0)=" ; lock the potential new child ins company"
^XMB(3.9,55,2,26599,0)="""RTN"",""IBCNSC02"",162,0)"
^XMB(3.9,55,2,26600,0)=" L +^DIC(36,NEWINS):0 I '$T D LOCKED^IBTRCD1 G LINKX"
^XMB(3.9,55,2,26601,0)="""RTN"",""IBCNSC02"",163,0)"
^XMB(3.9,55,2,26602,0)=" ;"
^XMB(3.9,55,2,26603,0)="""RTN"",""IBCNSC02"",164,0)"
^XMB(3.9,55,2,26604,0)=" ; update selected child"
^XMB(3.9,55,2,26605,0)="""RTN"",""IBCNSC02"",165,0)"
^XMB(3.9,55,2,26606,0)=" S DIE=36,DA=NEWINS,DR=""3.13////C;3.14////""_IBCNS D ^DIE"
^XMB(3.9,55,2,26607,0)="""RTN"",""IBCNSC02"",166,0)"
^XMB(3.9,55,2,26608,0)=" ;"
^XMB(3.9,55,2,26609,0)="""RTN"",""IBCNSC02"",167,0)"
^XMB(3.9,55,2,26610,0)=" ; Copy the IDs from the parent"
^XMB(3.9,55,2,26611,0)="""RTN"",""IBCNSC02"",168,0)"
^XMB(3.9,55,2,26612,0)=" D COPY^IBCEPCID(NEWINS)"
^XMB(3.9,55,2,26613,0)="""RTN"",""IBCNSC02"",169,0)"
^XMB(3.9,55,2,26614,0)=" ;"
^XMB(3.9,55,2,26615,0)="""RTN"",""IBCNSC02"",170,0)"
^XMB(3.9,55,2,26616,0)=" ; unlock"
^XMB(3.9,55,2,26617,0)="""RTN"",""IBCNSC02"",171,0)"
^XMB(3.9,55,2,26618,0)=" L -^DIC(36,NEWINS)"
^XMB(3.9,55,2,26619,0)="""RTN"",""IBCNSC02"",172,0)"
^XMB(3.9,55,2,26620,0)=" ;"
^XMB(3.9,55,2,26621,0)="""RTN"",""IBCNSC02"",173,0)"
^XMB(3.9,55,2,26622,0)=" D BLD   ; rebuild list of children"
^XMB(3.9,55,2,26623,0)="""RTN"",""IBCNSC02"",174,0)"
^XMB(3.9,55,2,26624,0)="LINKX ;"
^XMB(3.9,55,2,26625,0)="""RTN"",""IBCNSC02"",175,0)"
^XMB(3.9,55,2,26626,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,26627,0)="""RTN"",""IBCNSC02"",176,0)"
^XMB(3.9,55,2,26628,0)=" Q"
^XMB(3.9,55,2,26629,0)="""RTN"",""IBCNSC02"",177,0)"
^XMB(3.9,55,2,26630,0)=" ;"
^XMB(3.9,55,2,26631,0)="""RTN"",""IBCNSC02"",178,0)"
^XMB(3.9,55,2,26632,0)="UNLINK ; action protocol IBCNSL UNLINK used to disassociate selected children"
^XMB(3.9,55,2,26633,0)="""RTN"",""IBCNSC02"",179,0)"
^XMB(3.9,55,2,26634,0)=" ; insurance companies from the list."
^XMB(3.9,55,2,26635,0)="""RTN"",""IBCNSC02"",180,0)"
^XMB(3.9,55,2,26636,0)=" NEW DIR,X,Y,DIRUT,DTOUT,DUOUT,DIROUT,IBLST,IBSUB,IBPCE,IBSEL,DA,DIE,DR"
^XMB(3.9,55,2,26637,0)="""RTN"",""IBCNSC02"",181,0)"
^XMB(3.9,55,2,26638,0)=" D FULL^VALM1"
^XMB(3.9,55,2,26639,0)="""RTN"",""IBCNSC02"",182,0)"
^XMB(3.9,55,2,26640,0)=" I '$$KCHK^XUSRB(""IB EDI INSURANCE EDIT"") D  G UNLINKX"
^XMB(3.9,55,2,26641,0)="""RTN"",""IBCNSC02"",183,0)"
^XMB(3.9,55,2,26642,0)=" . W !!?5,""You must hold the IB EDI INSURANCE EDIT key to access this option."""
^XMB(3.9,55,2,26643,0)="""RTN"",""IBCNSC02"",184,0)"
^XMB(3.9,55,2,26644,0)=" . D PAUSE^VALM1"
^XMB(3.9,55,2,26645,0)="""RTN"",""IBCNSC02"",185,0)"
^XMB(3.9,55,2,26646,0)=" . Q"
^XMB(3.9,55,2,26647,0)="""RTN"",""IBCNSC02"",186,0)"
^XMB(3.9,55,2,26648,0)=" ;"
^XMB(3.9,55,2,26649,0)="""RTN"",""IBCNSC02"",187,0)"
^XMB(3.9,55,2,26650,0)=" I '$D(^TMP($J,""IBCNSL"",3)) D  G UNLINKX"
^XMB(3.9,55,2,26651,0)="""RTN"",""IBCNSC02"",188,0)"
^XMB(3.9,55,2,26652,0)=" . W !!?5,""There are no insurance companies to select."" D PAUSE^VALM1"
^XMB(3.9,55,2,26653,0)="""RTN"",""IBCNSC02"",189,0)"
^XMB(3.9,55,2,26654,0)=" . Q"
^XMB(3.9,55,2,26655,0)="""RTN"",""IBCNSC02"",190,0)"
^XMB(3.9,55,2,26656,0)=" S DIR(0)=""LO^1:""_+$O(^TMP($J,""IBCNSL"",3,""""),-1)"
^XMB(3.9,55,2,26657,0)="""RTN"",""IBCNSC02"",191,0)"
^XMB(3.9,55,2,26658,0)=" S DIR(""A"")=""Select Insurance Company(s)"""
^XMB(3.9,55,2,26659,0)="""RTN"",""IBCNSC02"",192,0)"
^XMB(3.9,55,2,26660,0)=" W ! D ^DIR K DIR"
^XMB(3.9,55,2,26661,0)="""RTN"",""IBCNSC02"",193,0)"
^XMB(3.9,55,2,26662,0)=" I $D(DIRUT) G UNLINKX"
^XMB(3.9,55,2,26663,0)="""RTN"",""IBCNSC02"",194,0)"
^XMB(3.9,55,2,26664,0)=" M IBLST=Y"
^XMB(3.9,55,2,26665,0)="""RTN"",""IBCNSC02"",195,0)"
^XMB(3.9,55,2,26666,0)=" ;"
^XMB(3.9,55,2,26667,0)="""RTN"",""IBCNSC02"",196,0)"
^XMB(3.9,55,2,26668,0)=" W !"
^XMB(3.9,55,2,26669,0)="""RTN"",""IBCNSC02"",197,0)"
^XMB(3.9,55,2,26670,0)=" S DIR(0)=""YO"""
^XMB(3.9,55,2,26671,0)="""RTN"",""IBCNSC02"",198,0)"
^XMB(3.9,55,2,26672,0)=" S DIR(""A"")=""OK to proceed"",DIR(""B"")=""No"""
^XMB(3.9,55,2,26673,0)="""RTN"",""IBCNSC02"",199,0)"
^XMB(3.9,55,2,26674,0)=" D ^DIR K DIR"
^XMB(3.9,55,2,26675,0)="""RTN"",""IBCNSC02"",200,0)"
^XMB(3.9,55,2,26676,0)=" I Y'=1 G UNLINKX"
^XMB(3.9,55,2,26677,0)="""RTN"",""IBCNSC02"",201,0)"
^XMB(3.9,55,2,26678,0)=" ;"
^XMB(3.9,55,2,26679,0)="""RTN"",""IBCNSC02"",202,0)"
^XMB(3.9,55,2,26680,0)=" F IBSUB=0:1 Q:'$D(IBLST(IBSUB))  F IBPCE=1:1 S IBSEL=$P(IBLST(IBSUB),"","",IBPCE) Q:'IBSEL  D"
^XMB(3.9,55,2,26681,0)="""RTN"",""IBCNSC02"",203,0)"
^XMB(3.9,55,2,26682,0)=" . S DA=+$G(^TMP($J,""IBCNSL"",3,IBSEL)) I 'DA Q"
^XMB(3.9,55,2,26683,0)="""RTN"",""IBCNSC02"",204,0)"
^XMB(3.9,55,2,26684,0)=" . S DIE=36,DR=""3.13////@;3.14////@"" D ^DIE"
^XMB(3.9,55,2,26685,0)="""RTN"",""IBCNSC02"",205,0)"
^XMB(3.9,55,2,26686,0)=" . Q"
^XMB(3.9,55,2,26687,0)="""RTN"",""IBCNSC02"",206,0)"
^XMB(3.9,55,2,26688,0)=" ;"
^XMB(3.9,55,2,26689,0)="""RTN"",""IBCNSC02"",207,0)"
^XMB(3.9,55,2,26690,0)=" D BLD   ; rebuild list of children"
^XMB(3.9,55,2,26691,0)="""RTN"",""IBCNSC02"",208,0)"
^XMB(3.9,55,2,26692,0)="UNLINKX ;"
^XMB(3.9,55,2,26693,0)="""RTN"",""IBCNSC02"",209,0)"
^XMB(3.9,55,2,26694,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,26695,0)="""RTN"",""IBCNSC02"",210,0)"
^XMB(3.9,55,2,26696,0)=" Q"
^XMB(3.9,55,2,26697,0)="""RTN"",""IBCNSC02"",211,0)"
^XMB(3.9,55,2,26698,0)=" ;"
^XMB(3.9,55,2,26699,0)="""RTN"",""IBCNSC02"",212,0)"
^XMB(3.9,55,2,26700,0)="PCNT(Z) ; count number of children for parent ins co Z"
^XMB(3.9,55,2,26701,0)="""RTN"",""IBCNSC02"",213,0)"
^XMB(3.9,55,2,26702,0)=" NEW C,CNT"
^XMB(3.9,55,2,26703,0)="""RTN"",""IBCNSC02"",214,0)"
^XMB(3.9,55,2,26704,0)=" S C=0,Z=+$G(Z)"
^XMB(3.9,55,2,26705,0)="""RTN"",""IBCNSC02"",215,0)"
^XMB(3.9,55,2,26706,0)=" F CNT=0:1 S C=$O(^DIC(36,""APC"",Z,C)) Q:'C"
^XMB(3.9,55,2,26707,0)="""RTN"",""IBCNSC02"",216,0)"
^XMB(3.9,55,2,26708,0)=" Q CNT"
^XMB(3.9,55,2,26709,0)="""RTN"",""IBCNSC02"",217,0)"
^XMB(3.9,55,2,26710,0)=" ;"
^XMB(3.9,55,2,26711,0)="""RTN"",""IBCNSC02"",218,0)"
^XMB(3.9,55,2,26712,0)="INSADD(Z) ; function to return ins co address components"
^XMB(3.9,55,2,26713,0)="""RTN"",""IBCNSC02"",219,0)"
^XMB(3.9,55,2,26714,0)=" NEW INSDATA,AD,NM,L1,CITY,ST,ZIP,CITYST,STCITY"
^XMB(3.9,55,2,26715,0)="""RTN"",""IBCNSC02"",220,0)"
^XMB(3.9,55,2,26716,0)=" S INSDATA="""""
^XMB(3.9,55,2,26717,0)="""RTN"",""IBCNSC02"",221,0)"
^XMB(3.9,55,2,26718,0)=" S AD=$G(^DIC(36,+$G(Z),.11))"
^XMB(3.9,55,2,26719,0)="""RTN"",""IBCNSC02"",222,0)"
^XMB(3.9,55,2,26720,0)=" S NM=$P($G(^DIC(36,Z,0)),U,1)"
^XMB(3.9,55,2,26721,0)="""RTN"",""IBCNSC02"",223,0)"
^XMB(3.9,55,2,26722,0)=" S L1=$P(AD,U,1),CITY=$P(AD,U,4),ST=$P(AD,U,5),ZIP=$P(AD,U,6)"
^XMB(3.9,55,2,26723,0)="""RTN"",""IBCNSC02"",224,0)"
^XMB(3.9,55,2,26724,0)=" I ST S ST=$P($G(^DIC(5,ST,0)),U,2)"
^XMB(3.9,55,2,26725,0)="""RTN"",""IBCNSC02"",225,0)"
^XMB(3.9,55,2,26726,0)=" S CITYST=$E(CITY,1,15)_"" ""_ST"
^XMB(3.9,55,2,26727,0)="""RTN"",""IBCNSC02"",226,0)"
^XMB(3.9,55,2,26728,0)=" I CITY'="""",ST'="""" S CITYST=$E(CITY,1,15)_"",""_ST"
^XMB(3.9,55,2,26729,0)="""RTN"",""IBCNSC02"",227,0)"
^XMB(3.9,55,2,26730,0)=" ;"
^XMB(3.9,55,2,26731,0)="""RTN"",""IBCNSC02"",228,0)"
^XMB(3.9,55,2,26732,0)=" S $P(STCITY,""|"",1)=ST"
^XMB(3.9,55,2,26733,0)="""RTN"",""IBCNSC02"",229,0)"
^XMB(3.9,55,2,26734,0)=" I ST="""" S $P(STCITY,""|"",1)=""~~"""
^XMB(3.9,55,2,26735,0)="""RTN"",""IBCNSC02"",230,0)"
^XMB(3.9,55,2,26736,0)=" S $P(STCITY,""|"",2)=CITY"
^XMB(3.9,55,2,26737,0)="""RTN"",""IBCNSC02"",231,0)"
^XMB(3.9,55,2,26738,0)=" I CITY="""" S $P(STCITY,""|"",2)=""~~~~"""
^XMB(3.9,55,2,26739,0)="""RTN"",""IBCNSC02"",232,0)"
^XMB(3.9,55,2,26740,0)=" ;"
^XMB(3.9,55,2,26741,0)="""RTN"",""IBCNSC02"",233,0)"
^XMB(3.9,55,2,26742,0)=" S INSDATA=NM_U_L1_U_CITY_U_ST_U_ZIP_U_CITYST_U_STCITY"
^XMB(3.9,55,2,26743,0)="""RTN"",""IBCNSC02"",234,0)"
^XMB(3.9,55,2,26744,0)=" ;         1    2    3      4    5     6        7"
^XMB(3.9,55,2,26745,0)="""RTN"",""IBCNSC02"",235,0)"
^XMB(3.9,55,2,26746,0)="INSADDX ;"
^XMB(3.9,55,2,26747,0)="""RTN"",""IBCNSC02"",236,0)"
^XMB(3.9,55,2,26748,0)=" Q INSDATA"
^XMB(3.9,55,2,26749,0)="""RTN"",""IBCNSC02"",237,0)"
^XMB(3.9,55,2,26750,0)=" ;"
^XMB(3.9,55,2,26751,0)="""RTN"",""IBCNSC02"",238,0)"
^XMB(3.9,55,2,26752,0)="INSCO(Z) ; return display data for ins co Z"
^XMB(3.9,55,2,26753,0)="""RTN"",""IBCNSC02"",239,0)"
^XMB(3.9,55,2,26754,0)=" NEW X,Y"
^XMB(3.9,55,2,26755,0)="""RTN"",""IBCNSC02"",240,0)"
^XMB(3.9,55,2,26756,0)=" S Y=$$INSADD(Z)"
^XMB(3.9,55,2,26757,0)="""RTN"",""IBCNSC02"",241,0)"
^XMB(3.9,55,2,26758,0)=" S X=$$FO^IBCNEUT1($P(Y,U,1),27)"
^XMB(3.9,55,2,26759,0)="""RTN"",""IBCNSC02"",242,0)"
^XMB(3.9,55,2,26760,0)=" S X=X_$$FO^IBCNEUT1($P(Y,U,2),26)"
^XMB(3.9,55,2,26761,0)="""RTN"",""IBCNSC02"",243,0)"
^XMB(3.9,55,2,26762,0)=" S X=X_$$FO^IBCNEUT1($P(Y,U,6),18)"
^XMB(3.9,55,2,26763,0)="""RTN"",""IBCNSC02"",244,0)"
^XMB(3.9,55,2,26764,0)="INSCOX ;"
^XMB(3.9,55,2,26765,0)="""RTN"",""IBCNSC02"",245,0)"
^XMB(3.9,55,2,26766,0)=" Q X"
^XMB(3.9,55,2,26767,0)="""RTN"",""IBCNSC02"",246,0)"
^XMB(3.9,55,2,26768,0)=" ;"
^XMB(3.9,55,2,26769,0)="""RTN"",""IBCNSC02"",247,0)"
^XMB(3.9,55,2,26770,0)="INSLIST(INS) ; insurance company lister for ^DIC call"
^XMB(3.9,55,2,26771,0)="""RTN"",""IBCNSC02"",248,0)"
^XMB(3.9,55,2,26772,0)=" NEW Z"
^XMB(3.9,55,2,26773,0)="""RTN"",""IBCNSC02"",249,0)"
^XMB(3.9,55,2,26774,0)=" S Z=$$INSADD(INS)"
^XMB(3.9,55,2,26775,0)="""RTN"",""IBCNSC02"",250,0)"
^XMB(3.9,55,2,26776,0)=" W ?27,$E($P(Z,U,2),1,20)   ; address line 1"
^XMB(3.9,55,2,26777,0)="""RTN"",""IBCNSC02"",251,0)"
^XMB(3.9,55,2,26778,0)=" W ?47,""  "",$P(Z,U,6)       ; city, state"
^XMB(3.9,55,2,26779,0)="""RTN"",""IBCNSC02"",252,0)"
^XMB(3.9,55,2,26780,0)="INSLISTX ;"
^XMB(3.9,55,2,26781,0)="""RTN"",""IBCNSC02"",253,0)"
^XMB(3.9,55,2,26782,0)=" Q"
^XMB(3.9,55,2,26783,0)="""RTN"",""IBCNSC02"",254,0)"
^XMB(3.9,55,2,26784,0)=" ;"
^XMB(3.9,55,2,26785,0)="""RTN"",""IBCNSC1"")"
^XMB(3.9,55,2,26786,0)="0^32^B69640933^B17304683"
^XMB(3.9,55,2,26787,0)="""RTN"",""IBCNSC1"",1,0)"
^XMB(3.9,55,2,26788,0)="IBCNSC1 ;ALB/NLR - IBCNS INSURANCE COMPANY ;23-MAR-93"
^XMB(3.9,55,2,26789,0)="""RTN"",""IBCNSC1"",2,0)"
^XMB(3.9,55,2,26790,0)=" ;;2.0;INTEGRATED BILLING;**62,137,232,291,320**;21-MAR-94"
^XMB(3.9,55,2,26791,0)="""RTN"",""IBCNSC1"",3,0)"
^XMB(3.9,55,2,26792,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,26793,0)="""RTN"",""IBCNSC1"",4,0)"
^XMB(3.9,55,2,26794,0)=" ;"
^XMB(3.9,55,2,26795,0)="""RTN"",""IBCNSC1"",5,0)"
^XMB(3.9,55,2,26796,0)="% G EN^IBCNSC"
^XMB(3.9,55,2,26797,0)="""RTN"",""IBCNSC1"",6,0)"
^XMB(3.9,55,2,26798,0)=" ;"
^XMB(3.9,55,2,26799,0)="""RTN"",""IBCNSC1"",7,0)"
^XMB(3.9,55,2,26800,0)="AI ; -- (In)Activate Company"
^XMB(3.9,55,2,26801,0)="""RTN"",""IBCNSC1"",8,0)"
^XMB(3.9,55,2,26802,0)=" D FULL^VALM1 W !!"
^XMB(3.9,55,2,26803,0)="""RTN"",""IBCNSC1"",9,0)"
^XMB(3.9,55,2,26804,0)=" I '$D(^XUSEC(""IB INSURANCE SUPERVISOR"",DUZ)) D SORRY G EXIT"
^XMB(3.9,55,2,26805,0)="""RTN"",""IBCNSC1"",10,0)"
^XMB(3.9,55,2,26806,0)=" D ^IBCNSC2"
^XMB(3.9,55,2,26807,0)="""RTN"",""IBCNSC1"",11,0)"
^XMB(3.9,55,2,26808,0)=" G EXIT"
^XMB(3.9,55,2,26809,0)="""RTN"",""IBCNSC1"",12,0)"
^XMB(3.9,55,2,26810,0)="CC ; -- Change Insurance Company"
^XMB(3.9,55,2,26811,0)="""RTN"",""IBCNSC1"",13,0)"
^XMB(3.9,55,2,26812,0)=" D FULL^VALM1 W !!"
^XMB(3.9,55,2,26813,0)="""RTN"",""IBCNSC1"",14,0)"
^XMB(3.9,55,2,26814,0)=" S IBCNS1=IBCNS K IBCNS D INSCO^IBCNSC"
^XMB(3.9,55,2,26815,0)="""RTN"",""IBCNSC1"",15,0)"
^XMB(3.9,55,2,26816,0)=" I '$D(IBCNS) S IBCNS=IBCNS1"
^XMB(3.9,55,2,26817,0)="""RTN"",""IBCNSC1"",16,0)"
^XMB(3.9,55,2,26818,0)=" K IBCNS1,VALMQUIT"
^XMB(3.9,55,2,26819,0)="""RTN"",""IBCNSC1"",17,0)"
^XMB(3.9,55,2,26820,0)=" G EXIT"
^XMB(3.9,55,2,26821,0)="""RTN"",""IBCNSC1"",18,0)"
^XMB(3.9,55,2,26822,0)="EA ; -- Billing,Claims,Appeals,Inquiry,Telephone,Main,Remarks,Synonyms"
^XMB(3.9,55,2,26823,0)="""RTN"",""IBCNSC1"",19,0)"
^XMB(3.9,55,2,26824,0)=" D FULL^VALM1"
^XMB(3.9,55,2,26825,0)="""RTN"",""IBCNSC1"",20,0)"
^XMB(3.9,55,2,26826,0)=" ;"
^XMB(3.9,55,2,26827,0)="""RTN"",""IBCNSC1"",21,0)"
^XMB(3.9,55,2,26828,0)=" ; IB*2*320 - check key for associate company action"
^XMB(3.9,55,2,26829,0)="""RTN"",""IBCNSC1"",22,0)"
^XMB(3.9,55,2,26830,0)=" I $G(IBY)="",13,"",'$$KCHK^XUSRB(""IB EDI INSURANCE EDIT"") D  G EXIT"
^XMB(3.9,55,2,26831,0)="""RTN"",""IBCNSC1"",23,0)"
^XMB(3.9,55,2,26832,0)=" . W !!?5,""You must hold the IB EDI INSURANCE EDIT key to access this option."""
^XMB(3.9,55,2,26833,0)="""RTN"",""IBCNSC1"",24,0)"
^XMB(3.9,55,2,26834,0)=" . D PAUSE^VALM1"
^XMB(3.9,55,2,26835,0)="""RTN"",""IBCNSC1"",25,0)"
^XMB(3.9,55,2,26836,0)=" . Q"
^XMB(3.9,55,2,26837,0)="""RTN"",""IBCNSC1"",26,0)"
^XMB(3.9,55,2,26838,0)=" ;"
^XMB(3.9,55,2,26839,0)="""RTN"",""IBCNSC1"",27,0)"
^XMB(3.9,55,2,26840,0)=" W !!"
^XMB(3.9,55,2,26841,0)="""RTN"",""IBCNSC1"",28,0)"
^XMB(3.9,55,2,26842,0)=" D MAIN"
^XMB(3.9,55,2,26843,0)="""RTN"",""IBCNSC1"",29,0)"
^XMB(3.9,55,2,26844,0)=" ;"
^XMB(3.9,55,2,26845,0)="""RTN"",""IBCNSC1"",30,0)"
^XMB(3.9,55,2,26846,0)=" ; -- was company deleted"
^XMB(3.9,55,2,26847,0)="""RTN"",""IBCNSC1"",31,0)"
^XMB(3.9,55,2,26848,0)=" I '$D(^DIC(36,IBCNS)) W !!,""<DELETED>"",!! S VALMQUIT="""" Q"
^XMB(3.9,55,2,26849,0)="""RTN"",""IBCNSC1"",32,0)"
^XMB(3.9,55,2,26850,0)=" ;"
^XMB(3.9,55,2,26851,0)="""RTN"",""IBCNSC1"",33,0)"
^XMB(3.9,55,2,26852,0)="EXIT ;"
^XMB(3.9,55,2,26853,0)="""RTN"",""IBCNSC1"",34,0)"
^XMB(3.9,55,2,26854,0)=" D HDR^IBCNSC,BLD^IBCNSC"
^XMB(3.9,55,2,26855,0)="""RTN"",""IBCNSC1"",35,0)"
^XMB(3.9,55,2,26856,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,26857,0)="""RTN"",""IBCNSC1"",36,0)"
^XMB(3.9,55,2,26858,0)=" Q"
^XMB(3.9,55,2,26859,0)="""RTN"",""IBCNSC1"",37,0)"
^XMB(3.9,55,2,26860,0)="MAIN ; -- Call edit template"
^XMB(3.9,55,2,26861,0)="""RTN"",""IBCNSC1"",38,0)"
^XMB(3.9,55,2,26862,0)=" N IBEDIKEY,Z"
^XMB(3.9,55,2,26863,0)="""RTN"",""IBCNSC1"",39,0)"
^XMB(3.9,55,2,26864,0)=" L +^DIC(36,+IBCNS):5 I '$T D LOCKED^IBTRCD1 G MAINQ"
^XMB(3.9,55,2,26865,0)="""RTN"",""IBCNSC1"",40,0)"
^XMB(3.9,55,2,26866,0)=" I $G(IBY)="",12,"" D FACID"
^XMB(3.9,55,2,26867,0)="""RTN"",""IBCNSC1"",41,0)"
^XMB(3.9,55,2,26868,0)=" F Z=1,2,4,9,13,14 S IBEDIKEY(Z)=$P($G(^DIC(36,+IBCNS,3)),U,Z)   ; save EDI data fields"
^XMB(3.9,55,2,26869,0)="""RTN"",""IBCNSC1"",42,0)"
^XMB(3.9,55,2,26870,0)=" I $G(IBY)'="",12,"" N DIE,DA,DR S DIE=""^DIC(36,"",(DA,Y)=IBCNS,DR=""[IBEDIT INS CO1]"" D ^DIE K DIE I $D(Y) S IB(""^"")=1"
^XMB(3.9,55,2,26871,0)="""RTN"",""IBCNSC1"",43,0)"
^XMB(3.9,55,2,26872,0)=" I $G(IBY)="",12,"" D EDITID^IBCEP(+IBCNS)"
^XMB(3.9,55,2,26873,0)="""RTN"",""IBCNSC1"",44,0)"
^XMB(3.9,55,2,26874,0)=" I $F("",6,13,"",$G(IBY)) D PARENT^IBCNSC02(+IBCNS)   ; parent/child management"
^XMB(3.9,55,2,26875,0)="""RTN"",""IBCNSC1"",45,0)"
^XMB(3.9,55,2,26876,0)=" L -^DIC(36,+IBCNS)"
^XMB(3.9,55,2,26877,0)="""RTN"",""IBCNSC1"",46,0)"
^XMB(3.9,55,2,26878,0)="MAINQ Q"
^XMB(3.9,55,2,26879,0)="""RTN"",""IBCNSC1"",47,0)"
^XMB(3.9,55,2,26880,0)=" ;"
^XMB(3.9,55,2,26881,0)="""RTN"",""IBCNSC1"",48,0)"
^XMB(3.9,55,2,26882,0)="FACID ; -- Edit facility ids"
^XMB(3.9,55,2,26883,0)="""RTN"",""IBCNSC1"",49,0)"
^XMB(3.9,55,2,26884,0)=" D FACID^IBCEP2B(+IBCNS,""E"")"
^XMB(3.9,55,2,26885,0)="""RTN"",""IBCNSC1"",50,0)"
^XMB(3.9,55,2,26886,0)=" Q"
^XMB(3.9,55,2,26887,0)="""RTN"",""IBCNSC1"",51,0)"
^XMB(3.9,55,2,26888,0)=" ;"
^XMB(3.9,55,2,26889,0)="""RTN"",""IBCNSC1"",52,0)"
^XMB(3.9,55,2,26890,0)="SORRY ; -- can't inactivate, don't have key"
^XMB(3.9,55,2,26891,0)="""RTN"",""IBCNSC1"",53,0)"
^XMB(3.9,55,2,26892,0)=" W !!,""You do not have access to Inactivate entries.  See your application coordinator."",! D PAUSE^VALM1"
^XMB(3.9,55,2,26893,0)="""RTN"",""IBCNSC1"",54,0)"
^XMB(3.9,55,2,26894,0)=" Q"
^XMB(3.9,55,2,26895,0)="""RTN"",""IBCNSC1"",55,0)"
^XMB(3.9,55,2,26896,0)="PRESCR ;"
^XMB(3.9,55,2,26897,0)="""RTN"",""IBCNSC1"",56,0)"
^XMB(3.9,55,2,26898,0)=" N OFFSET,START,IBCNS18,IBADD"
^XMB(3.9,55,2,26899,0)="""RTN"",""IBCNSC1"",57,0)"
^XMB(3.9,55,2,26900,0)=" S IBCNS18=$$ADDRESS^IBCNSC0(IBCNS,.18,11)"
^XMB(3.9,55,2,26901,0)="""RTN"",""IBCNSC1"",58,0)"
^XMB(3.9,55,2,26902,0)=" S START=34,OFFSET=2"
^XMB(3.9,55,2,26903,0)="""RTN"",""IBCNSC1"",59,0)"
^XMB(3.9,55,2,26904,0)=" D SET^IBCNSP(START,OFFSET+19,"" Prescription Claims Office Information "",IORVON,IORVOFF)"
^XMB(3.9,55,2,26905,0)="""RTN"",""IBCNSC1"",60,0)"
^XMB(3.9,55,2,26906,0)=" D SET^IBCNSP(START+1,OFFSET,"" Company Name: ""_$P($G(^DIC(36,+$P(IBCNS18,""^"",7),0)),""^"",1))"
^XMB(3.9,55,2,26907,0)="""RTN"",""IBCNSC1"",61,0)"
^XMB(3.9,55,2,26908,0)=" D SET^IBCNSP(START+2,OFFSET,""       Street: ""_$P(IBCNS18,""^"",1))"
^XMB(3.9,55,2,26909,0)="""RTN"",""IBCNSC1"",62,0)"
^XMB(3.9,55,2,26910,0)=" D SET^IBCNSP(START+3,OFFSET,""     Street 2: ""_$P(IBCNS18,""^"",2))"
^XMB(3.9,55,2,26911,0)="""RTN"",""IBCNSC1"",63,0)"
^XMB(3.9,55,2,26912,0)=" ; D SET^IBCNSP(START+4,OFFSET,""Claim Off. ID: ""_$P(IBCNS18,""^"",11))"
^XMB(3.9,55,2,26913,0)="""RTN"",""IBCNSC1"",64,0)"
^XMB(3.9,55,2,26914,0)=" N OFFSET S OFFSET=45"
^XMB(3.9,55,2,26915,0)="""RTN"",""IBCNSC1"",65,0)"
^XMB(3.9,55,2,26916,0)=" D SET^IBCNSP(START+1,OFFSET,""     Street 3: ""_$P(IBCNS18,""^"",3)) S IBADD=1"
^XMB(3.9,55,2,26917,0)="""RTN"",""IBCNSC1"",66,0)"
^XMB(3.9,55,2,26918,0)=" D SET^IBCNSP(START+1+IBADD,OFFSET,""   City/State: ""_$E($P(IBCNS18,""^"",4),1,15)_$S($P(IBCNS18,""^"",4)="""":"""",1:"", "")_$P($G(^DIC(5,+$P(IBCNS18,""^"",5),0)),""^"",2)_"" ""_$E($P(IBCNS18,""^"",6),1,5))"
^XMB(3.9,55,2,26919,0)="""RTN"",""IBCNSC1"",67,0)"
^XMB(3.9,55,2,26920,0)=" D SET^IBCNSP(START+2+IBADD,OFFSET,""        Phone: ""_$P(IBCNS18,""^"",8))"
^XMB(3.9,55,2,26921,0)="""RTN"",""IBCNSC1"",68,0)"
^XMB(3.9,55,2,26922,0)=" D SET^IBCNSP(START+3+IBADD,OFFSET,""          Fax: ""_$P(IBCNS18,""^"",9))"
^XMB(3.9,55,2,26923,0)="""RTN"",""IBCNSC1"",69,0)"
^XMB(3.9,55,2,26924,0)=" Q"
^XMB(3.9,55,2,26925,0)="""RTN"",""IBCNSC1"",70,0)"
^XMB(3.9,55,2,26926,0)=" ;"
^XMB(3.9,55,2,26927,0)="""RTN"",""IBCNSC1"",71,0)"
^XMB(3.9,55,2,26928,0)="PROVID N OFFSET,START,IBCNS4,IBCNS3,IBDISP,Z,LINE"
^XMB(3.9,55,2,26929,0)="""RTN"",""IBCNSC1"",72,0)"
^XMB(3.9,55,2,26930,0)=" S START=$O(^TMP(""IBCNSC"",$J,""""),-1)+1"
^XMB(3.9,55,2,26931,0)="""RTN"",""IBCNSC1"",73,0)"
^XMB(3.9,55,2,26932,0)=" S (IB1ST(""PROVID""),LINE)=START"
^XMB(3.9,55,2,26933,0)="""RTN"",""IBCNSC1"",74,0)"
^XMB(3.9,55,2,26934,0)=" S OFFSET=2,IBCNS4=$G(^DIC(36,IBCNS,4)),IBCNS3=$G(^(3))"
^XMB(3.9,55,2,26935,0)="""RTN"",""IBCNSC1"",75,0)"
^XMB(3.9,55,2,26936,0)=" ;       "
^XMB(3.9,55,2,26937,0)="""RTN"",""IBCNSC1"",76,0)"
^XMB(3.9,55,2,26938,0)=" D SET^IBCNSP(LINE,OFFSET+25,""Provider IDs"",IORVON,IORVOFF)"
^XMB(3.9,55,2,26939,0)="""RTN"",""IBCNSC1"",77,0)"
^XMB(3.9,55,2,26940,0)=" N OFFSET"
^XMB(3.9,55,2,26941,0)="""RTN"",""IBCNSC1"",78,0)"
^XMB(3.9,55,2,26942,0)=" S LINE=LINE+1,OFFSET=1"
^XMB(3.9,55,2,26943,0)="""RTN"",""IBCNSC1"",79,0)"
^XMB(3.9,55,2,26944,0)=" D SET^IBCNSP(LINE,OFFSET,""Billing Provider Secondary ID"")"
^XMB(3.9,55,2,26945,0)="""RTN"",""IBCNSC1"",80,0)"
^XMB(3.9,55,2,26946,0)=" ;"
^XMB(3.9,55,2,26947,0)="""RTN"",""IBCNSC1"",81,0)"
^XMB(3.9,55,2,26948,0)=" N Z,Z0,Z1,IBS,I,DIV,FT,CU,CUF,DIVISION,FORMTYPE,PIDT"
^XMB(3.9,55,2,26949,0)="""RTN"",""IBCNSC1"",82,0)"
^XMB(3.9,55,2,26950,0)=" S Z=0 F  S Z=$O(^IBA(355.92,""B"",+IBCNS,Z)) Q:'Z  D"
^XMB(3.9,55,2,26951,0)="""RTN"",""IBCNSC1"",83,0)"
^XMB(3.9,55,2,26952,0)=" . S Z0=$G(^IBA(355.92,Z,0))"
^XMB(3.9,55,2,26953,0)="""RTN"",""IBCNSC1"",84,0)"
^XMB(3.9,55,2,26954,0)=" . Q:'$P(Z0,U,6)!($P(Z0,U,7)="""")  ; Quit if no provider id or id type"
^XMB(3.9,55,2,26955,0)="""RTN"",""IBCNSC1"",85,0)"
^XMB(3.9,55,2,26956,0)=" . Q:'($P(Z0,U,8)=""E"")"
^XMB(3.9,55,2,26957,0)="""RTN"",""IBCNSC1"",86,0)"
^XMB(3.9,55,2,26958,0)=" . S IBS(+$P(Z0,U,5),+$P(Z0,U,3),+$P(Z0,U,4))=$P(Z0,U,6)_U_$P(Z0,U,7)"
^XMB(3.9,55,2,26959,0)="""RTN"",""IBCNSC1"",87,0)"
^XMB(3.9,55,2,26960,0)=" ;"
^XMB(3.9,55,2,26961,0)="""RTN"",""IBCNSC1"",88,0)"
^XMB(3.9,55,2,26962,0)=" S DIV="""" F  S DIV=$O(IBS(DIV)) Q:DIV=""""  D"
^XMB(3.9,55,2,26963,0)="""RTN"",""IBCNSC1"",89,0)"
^XMB(3.9,55,2,26964,0)=" . S DIVISION=$$DIV^IBCEP7(DIV)"
^XMB(3.9,55,2,26965,0)="""RTN"",""IBCNSC1"",90,0)"
^XMB(3.9,55,2,26966,0)=" . S CU="""",CUF=0 F  S CU=$O(IBS(DIV,CU)) Q:CU=""""  D"
^XMB(3.9,55,2,26967,0)="""RTN"",""IBCNSC1"",91,0)"
^XMB(3.9,55,2,26968,0)=" .. S FT="""" F  S FT=$O(IBS(DIV,CU,FT)) Q:FT=""""  D"
^XMB(3.9,55,2,26969,0)="""RTN"",""IBCNSC1"",92,0)"
^XMB(3.9,55,2,26970,0)=" ... S FORMTYPE=$S(FT=1:""UB92"",FT=2:""HCFA"",1:""UNKNOWN"")"
^XMB(3.9,55,2,26971,0)="""RTN"",""IBCNSC1"",93,0)"
^XMB(3.9,55,2,26972,0)=" ... S LINE=LINE+1"
^XMB(3.9,55,2,26973,0)="""RTN"",""IBCNSC1"",94,0)"
^XMB(3.9,55,2,26974,0)=" ... I 'CUF,+CU S CUF=1 S TEXT=$P(DIVISION,""/"")_"" Care Units :"",OFFSET=5 D SET^IBCNSP(LINE,OFFSET,TEXT) S LINE=LINE+1"
^XMB(3.9,55,2,26975,0)="""RTN"",""IBCNSC1"",95,0)"
^XMB(3.9,55,2,26976,0)=" ... I CU=0 S TEXT=DIVISION_""/""_FORMTYPE_"": ""_$$GET1^DIQ(355.97,$P(IBS(DIV,CU,FT),U),.03,""E"")_"" ""_$P(IBS(DIV,CU,FT),U,2),OFFSET=2"
^XMB(3.9,55,2,26977,0)="""RTN"",""IBCNSC1"",96,0)"
^XMB(3.9,55,2,26978,0)=" ... I +CU S TEXT=$$EXPAND^IBTRE(355.92,.03,CU)_""/""_FORMTYPE_"": ""_$$GET1^DIQ(355.97,$P(IBS(DIV,CU,FT),U),.03,""E"")_"" ""_$P(IBS(DIV,CU,FT),U,2),OFFSET=5"
^XMB(3.9,55,2,26979,0)="""RTN"",""IBCNSC1"",97,0)"
^XMB(3.9,55,2,26980,0)=" ... D SET^IBCNSP(LINE,OFFSET,TEXT)"
^XMB(3.9,55,2,26981,0)="""RTN"",""IBCNSC1"",98,0)"
^XMB(3.9,55,2,26982,0)=" ;"
^XMB(3.9,55,2,26983,0)="""RTN"",""IBCNSC1"",99,0)"
^XMB(3.9,55,2,26984,0)=" S LINE=LINE+1 D SET^IBCNSP(LINE,2,"" "")"
^XMB(3.9,55,2,26985,0)="""RTN"",""IBCNSC1"",100,0)"
^XMB(3.9,55,2,26986,0)=" ;"
^XMB(3.9,55,2,26987,0)="""RTN"",""IBCNSC1"",101,0)"
^XMB(3.9,55,2,26988,0)=" K IBS"
^XMB(3.9,55,2,26989,0)="""RTN"",""IBCNSC1"",102,0)"
^XMB(3.9,55,2,26990,0)=" S OFFSET=1,LINE=LINE+1"
^XMB(3.9,55,2,26991,0)="""RTN"",""IBCNSC1"",103,0)"
^XMB(3.9,55,2,26992,0)=" D SET^IBCNSP(LINE,OFFSET,""Additional Billing Provider Secondary IDs"")"
^XMB(3.9,55,2,26993,0)="""RTN"",""IBCNSC1"",104,0)"
^XMB(3.9,55,2,26994,0)=" S Z=0 F  S Z=$O(^IBA(355.92,""B"",+IBCNS,Z)) Q:'Z  D"
^XMB(3.9,55,2,26995,0)="""RTN"",""IBCNSC1"",105,0)"
^XMB(3.9,55,2,26996,0)=" . S Z0=$G(^IBA(355.92,Z,0))"
^XMB(3.9,55,2,26997,0)="""RTN"",""IBCNSC1"",106,0)"
^XMB(3.9,55,2,26998,0)=" . Q:'$P(Z0,U,6)!($P(Z0,U,7)="""")  ; Quit if no provider id or id type"
^XMB(3.9,55,2,26999,0)="""RTN"",""IBCNSC1"",107,0)"
^XMB(3.9,55,2,27000,0)=" . Q:'($P(Z0,U,8)=""A"")"
^XMB(3.9,55,2,27001,0)="""RTN"",""IBCNSC1"",108,0)"
^XMB(3.9,55,2,27002,0)=" . ; IBS(DIVISION,FORMTYPE,IDTYPE)=ID"
^XMB(3.9,55,2,27003,0)="""RTN"",""IBCNSC1"",109,0)"
^XMB(3.9,55,2,27004,0)=" . S IBS(+$P(Z0,U,5),+$P(Z0,U,4),+$P(Z0,U,6))=$P(Z0,U,7)"
^XMB(3.9,55,2,27005,0)="""RTN"",""IBCNSC1"",110,0)"
^XMB(3.9,55,2,27006,0)=" ;"
^XMB(3.9,55,2,27007,0)="""RTN"",""IBCNSC1"",111,0)"
^XMB(3.9,55,2,27008,0)=" S DIVISION=$$DIV^IBCEP7(0)"
^XMB(3.9,55,2,27009,0)="""RTN"",""IBCNSC1"",112,0)"
^XMB(3.9,55,2,27010,0)=" S DIV="""" F  S DIV=$O(IBS(DIV)) Q:DIV=""""  D"
^XMB(3.9,55,2,27011,0)="""RTN"",""IBCNSC1"",113,0)"
^XMB(3.9,55,2,27012,0)=" . S FT="""" F  S FT=$O(IBS(DIV,FT)) Q:FT=""""  D"
^XMB(3.9,55,2,27013,0)="""RTN"",""IBCNSC1"",114,0)"
^XMB(3.9,55,2,27014,0)=" .. S FORMTYPE=$S(FT=1:""UB92"",FT=2:""HCFA"",1:""UNKNOWN"")"
^XMB(3.9,55,2,27015,0)="""RTN"",""IBCNSC1"",115,0)"
^XMB(3.9,55,2,27016,0)=" .. S TEXT=DIVISION_""/""_FORMTYPE_"": """
^XMB(3.9,55,2,27017,0)="""RTN"",""IBCNSC1"",116,0)"
^XMB(3.9,55,2,27018,0)=" .. S LINE=LINE+1,OFFSET=2"
^XMB(3.9,55,2,27019,0)="""RTN"",""IBCNSC1"",117,0)"
^XMB(3.9,55,2,27020,0)=" .. D SET^IBCNSP(LINE,OFFSET,TEXT)"
^XMB(3.9,55,2,27021,0)="""RTN"",""IBCNSC1"",118,0)"
^XMB(3.9,55,2,27022,0)=" .. S PIDT="""" F  S PIDT=$O(IBS(DIV,FT,PIDT)) Q:PIDT=""""  D"
^XMB(3.9,55,2,27023,0)="""RTN"",""IBCNSC1"",119,0)"
^XMB(3.9,55,2,27024,0)=" ... S LINE=LINE+1"
^XMB(3.9,55,2,27025,0)="""RTN"",""IBCNSC1"",120,0)"
^XMB(3.9,55,2,27026,0)=" ... S TEXT=$$GET1^DIQ(355.97,PIDT,.03,""E"")_"" ""_IBS(DIV,FT,PIDT),OFFSET=5"
^XMB(3.9,55,2,27027,0)="""RTN"",""IBCNSC1"",121,0)"
^XMB(3.9,55,2,27028,0)=" ... D SET^IBCNSP(LINE,OFFSET,TEXT)"
^XMB(3.9,55,2,27029,0)="""RTN"",""IBCNSC1"",122,0)"
^XMB(3.9,55,2,27030,0)=" ;"
^XMB(3.9,55,2,27031,0)="""RTN"",""IBCNSC1"",123,0)"
^XMB(3.9,55,2,27032,0)=" S LINE=LINE+1 D SET^IBCNSP(LINE,2,"" "")"
^XMB(3.9,55,2,27033,0)="""RTN"",""IBCNSC1"",124,0)"
^XMB(3.9,55,2,27034,0)=" ;"
^XMB(3.9,55,2,27035,0)="""RTN"",""IBCNSC1"",125,0)"
^XMB(3.9,55,2,27036,0)=" K IBS"
^XMB(3.9,55,2,27037,0)="""RTN"",""IBCNSC1"",126,0)"
^XMB(3.9,55,2,27038,0)=" S OFFSET=1,LINE=LINE+1"
^XMB(3.9,55,2,27039,0)="""RTN"",""IBCNSC1"",127,0)"
^XMB(3.9,55,2,27040,0)=" D SET^IBCNSP(LINE,OFFSET,""VA-Laboratory or Facility Secondary IDs"")"
^XMB(3.9,55,2,27041,0)="""RTN"",""IBCNSC1"",128,0)"
^XMB(3.9,55,2,27042,0)=" S Z=0 F  S Z=$O(^IBA(355.92,""B"",+IBCNS,Z)) Q:'Z  D"
^XMB(3.9,55,2,27043,0)="""RTN"",""IBCNSC1"",129,0)"
^XMB(3.9,55,2,27044,0)=" . S Z0=$G(^IBA(355.92,Z,0))"
^XMB(3.9,55,2,27045,0)="""RTN"",""IBCNSC1"",130,0)"
^XMB(3.9,55,2,27046,0)=" . Q:'$P(Z0,U,6)!($P(Z0,U,7)="""")  ; Quit if no provider id or id type"
^XMB(3.9,55,2,27047,0)="""RTN"",""IBCNSC1"",131,0)"
^XMB(3.9,55,2,27048,0)=" . Q:'($P(Z0,U,8)=""LF"")"
^XMB(3.9,55,2,27049,0)="""RTN"",""IBCNSC1"",132,0)"
^XMB(3.9,55,2,27050,0)=" . ; IBS(DIVISION,FORMTYPE,IDTYPE)=ID"
^XMB(3.9,55,2,27051,0)="""RTN"",""IBCNSC1"",133,0)"
^XMB(3.9,55,2,27052,0)=" . S IBS(+$P(Z0,U,5),+$P(Z0,U,4),+$P(Z0,U,6))=$P(Z0,U,7)"
^XMB(3.9,55,2,27053,0)="""RTN"",""IBCNSC1"",134,0)"
^XMB(3.9,55,2,27054,0)=" ;"
^XMB(3.9,55,2,27055,0)="""RTN"",""IBCNSC1"",135,0)"
^XMB(3.9,55,2,27056,0)=" S DIVISION=$$DIV^IBCEP7(0)"
^XMB(3.9,55,2,27057,0)="""RTN"",""IBCNSC1"",136,0)"
^XMB(3.9,55,2,27058,0)=" S DIV="""" F  S DIV=$O(IBS(DIV)) Q:DIV=""""  D"
^XMB(3.9,55,2,27059,0)="""RTN"",""IBCNSC1"",137,0)"
^XMB(3.9,55,2,27060,0)=" . S FT="""" F  S FT=$O(IBS(DIV,FT)) Q:FT=""""  D"
^XMB(3.9,55,2,27061,0)="""RTN"",""IBCNSC1"",138,0)"
^XMB(3.9,55,2,27062,0)=" .. S FORMTYPE=$S(FT=1:""UB92"",FT=2:""HCFA"",1:""UNKNOWN"")"
^XMB(3.9,55,2,27063,0)="""RTN"",""IBCNSC1"",139,0)"
^XMB(3.9,55,2,27064,0)=" .. S TEXT=DIVISION_""/""_FORMTYPE_"": """
^XMB(3.9,55,2,27065,0)="""RTN"",""IBCNSC1"",140,0)"
^XMB(3.9,55,2,27066,0)=" .. S LINE=LINE+1,OFFSET=2"
^XMB(3.9,55,2,27067,0)="""RTN"",""IBCNSC1"",141,0)"
^XMB(3.9,55,2,27068,0)=" .. D SET^IBCNSP(LINE,OFFSET,TEXT)"
^XMB(3.9,55,2,27069,0)="""RTN"",""IBCNSC1"",142,0)"
^XMB(3.9,55,2,27070,0)=" .. S PIDT="""" F  S PIDT=$O(IBS(DIV,FT,PIDT)) Q:PIDT=""""  D"
^XMB(3.9,55,2,27071,0)="""RTN"",""IBCNSC1"",143,0)"
^XMB(3.9,55,2,27072,0)=" ... S LINE=LINE+1"
^XMB(3.9,55,2,27073,0)="""RTN"",""IBCNSC1"",144,0)"
^XMB(3.9,55,2,27074,0)=" ... ;S TEXT=$$EXPAND^IBTRE(355.92,.06,PIDT)_"" ""_IBS(DIV,FT,PIDT),OFFSET=5"
^XMB(3.9,55,2,27075,0)="""RTN"",""IBCNSC1"",145,0)"
^XMB(3.9,55,2,27076,0)=" ... S TEXT=$$GET1^DIQ(355.97,PIDT,.03,""E"")_"" ""_IBS(DIV,FT,PIDT),OFFSET=5"
^XMB(3.9,55,2,27077,0)="""RTN"",""IBCNSC1"",146,0)"
^XMB(3.9,55,2,27078,0)=" ... D SET^IBCNSP(LINE,OFFSET,TEXT)"
^XMB(3.9,55,2,27079,0)="""RTN"",""IBCNSC1"",147,0)"
^XMB(3.9,55,2,27080,0)=" ;"
^XMB(3.9,55,2,27081,0)="""RTN"",""IBCNSC1"",148,0)"
^XMB(3.9,55,2,27082,0)=" ;"
^XMB(3.9,55,2,27083,0)="""RTN"",""IBCNSC1"",149,0)"
^XMB(3.9,55,2,27084,0)=" S LINE=LINE+1 D SET^IBCNSP(LINE,2,"" "")"
^XMB(3.9,55,2,27085,0)="""RTN"",""IBCNSC1"",150,0)"
^XMB(3.9,55,2,27086,0)=" S LINE=LINE+1 D SET^IBCNSP(LINE,2,"" "")"
^XMB(3.9,55,2,27087,0)="""RTN"",""IBCNSC1"",151,0)"
^XMB(3.9,55,2,27088,0)=" S OFFSET=2"
^XMB(3.9,55,2,27089,0)="""RTN"",""IBCNSC1"",152,0)"
^XMB(3.9,55,2,27090,0)=" S LINE=LINE+1 D SET^IBCNSP(LINE,OFFSET+25,""ID Parameters"",IORVON,IORVOFF)"
^XMB(3.9,55,2,27091,0)="""RTN"",""IBCNSC1"",153,0)"
^XMB(3.9,55,2,27092,0)=" ;"
^XMB(3.9,55,2,27093,0)="""RTN"",""IBCNSC1"",154,0)"
^XMB(3.9,55,2,27094,0)=" S IBCNS4=$G(^DIC(36,IBCNS,4)),IBCNS3=$G(^(3)),OFFSET=1"
^XMB(3.9,55,2,27095,0)="""RTN"",""IBCNSC1"",155,0)"
^XMB(3.9,55,2,27096,0)=" S TEXT=""Attending/Rendering Provider Secondary ID Qualifier (HCFA): ""_$$EXPAND^IBTRE(36,4.01,+$P(IBCNS4,U))"
^XMB(3.9,55,2,27097,0)="""RTN"",""IBCNSC1"",156,0)"
^XMB(3.9,55,2,27098,0)=" S LINE=LINE+1"
^XMB(3.9,55,2,27099,0)="""RTN"",""IBCNSC1"",157,0)"
^XMB(3.9,55,2,27100,0)=" D SET^IBCNSP(LINE,OFFSET,TEXT)"
^XMB(3.9,55,2,27101,0)="""RTN"",""IBCNSC1"",158,0)"
^XMB(3.9,55,2,27102,0)=" ;"
^XMB(3.9,55,2,27103,0)="""RTN"",""IBCNSC1"",159,0)"
^XMB(3.9,55,2,27104,0)=" S TEXT=""Attending/Rendering Provider Secondary ID Qualifier (UB92): ""_$$EXPAND^IBTRE(36,4.02,+$P(IBCNS4,U,2))"
^XMB(3.9,55,2,27105,0)="""RTN"",""IBCNSC1"",160,0)"
^XMB(3.9,55,2,27106,0)=" S LINE=LINE+1"
^XMB(3.9,55,2,27107,0)="""RTN"",""IBCNSC1"",161,0)"
^XMB(3.9,55,2,27108,0)=" D SET^IBCNSP(LINE,OFFSET,TEXT)"
^XMB(3.9,55,2,27109,0)="""RTN"",""IBCNSC1"",162,0)"
^XMB(3.9,55,2,27110,0)=" ;"
^XMB(3.9,55,2,27111,0)="""RTN"",""IBCNSC1"",163,0)"
^XMB(3.9,55,2,27112,0)=" S TEXT=""Attending/Rendering Secondary ID Requirement: ""_$$EXPAND^IBTRE(36,4.03,+$P(IBCNS4,U,3))"
^XMB(3.9,55,2,27113,0)="""RTN"",""IBCNSC1"",164,0)"
^XMB(3.9,55,2,27114,0)=" S LINE=LINE+1"
^XMB(3.9,55,2,27115,0)="""RTN"",""IBCNSC1"",165,0)"
^XMB(3.9,55,2,27116,0)=" D SET^IBCNSP(LINE,OFFSET,TEXT)"
^XMB(3.9,55,2,27117,0)="""RTN"",""IBCNSC1"",166,0)"
^XMB(3.9,55,2,27118,0)=" ;"
^XMB(3.9,55,2,27119,0)="""RTN"",""IBCNSC1"",167,0)"
^XMB(3.9,55,2,27120,0)=" S TEXT=""Referring Provider Secondary ID Qualifier (HCFA): ""_$$EXPAND^IBTRE(36,4.04,+$P(IBCNS4,U,4))"
^XMB(3.9,55,2,27121,0)="""RTN"",""IBCNSC1"",168,0)"
^XMB(3.9,55,2,27122,0)=" S LINE=LINE+1"
^XMB(3.9,55,2,27123,0)="""RTN"",""IBCNSC1"",169,0)"
^XMB(3.9,55,2,27124,0)=" D SET^IBCNSP(LINE,OFFSET,TEXT)"
^XMB(3.9,55,2,27125,0)="""RTN"",""IBCNSC1"",170,0)"
^XMB(3.9,55,2,27126,0)=" ;"
^XMB(3.9,55,2,27127,0)="""RTN"",""IBCNSC1"",171,0)"
^XMB(3.9,55,2,27128,0)=" S TEXT=""Referring Provider Secondary ID Requirement: ""_$$EXPAND^IBTRE(36,4.05,+$P(IBCNS4,U,5))"
^XMB(3.9,55,2,27129,0)="""RTN"",""IBCNSC1"",172,0)"
^XMB(3.9,55,2,27130,0)=" S LINE=LINE+1"
^XMB(3.9,55,2,27131,0)="""RTN"",""IBCNSC1"",173,0)"
^XMB(3.9,55,2,27132,0)=" D SET^IBCNSP(LINE,OFFSET,TEXT)"
^XMB(3.9,55,2,27133,0)="""RTN"",""IBCNSC1"",174,0)"
^XMB(3.9,55,2,27134,0)=" ;"
^XMB(3.9,55,2,27135,0)="""RTN"",""IBCNSC1"",175,0)"
^XMB(3.9,55,2,27136,0)=" S TEXT=""Use Att/Rend ID as Billing Provider Sec. ID (HCFA): ""_$$EXPAND^IBTRE(36,4.06,+$P(IBCNS4,U,6))"
^XMB(3.9,55,2,27137,0)="""RTN"",""IBCNSC1"",176,0)"
^XMB(3.9,55,2,27138,0)=" S LINE=LINE+1"
^XMB(3.9,55,2,27139,0)="""RTN"",""IBCNSC1"",177,0)"
^XMB(3.9,55,2,27140,0)=" D SET^IBCNSP(LINE,OFFSET,TEXT)"
^XMB(3.9,55,2,27141,0)="""RTN"",""IBCNSC1"",178,0)"
^XMB(3.9,55,2,27142,0)=" ;"
^XMB(3.9,55,2,27143,0)="""RTN"",""IBCNSC1"",179,0)"
^XMB(3.9,55,2,27144,0)=" S TEXT=""Use Att/Rend ID as Billing Provider Sec. ID (UB92): ""_$$EXPAND^IBTRE(36,4.08,+$P(IBCNS4,U,8))"
^XMB(3.9,55,2,27145,0)="""RTN"",""IBCNSC1"",180,0)"
^XMB(3.9,55,2,27146,0)=" S LINE=LINE+1"
^XMB(3.9,55,2,27147,0)="""RTN"",""IBCNSC1"",181,0)"
^XMB(3.9,55,2,27148,0)=" D SET^IBCNSP(LINE,OFFSET,TEXT)"
^XMB(3.9,55,2,27149,0)="""RTN"",""IBCNSC1"",182,0)"
^XMB(3.9,55,2,27150,0)=" ;"
^XMB(3.9,55,2,27151,0)="""RTN"",""IBCNSC1"",183,0)"
^XMB(3.9,55,2,27152,0)=" S TEXT=""Send VA Lab/Facility IDs or Facility Data for VAMC?: ""_$$EXPAND^IBTRE(36,4.07,+$P(IBCNS4,U,7))"
^XMB(3.9,55,2,27153,0)="""RTN"",""IBCNSC1"",184,0)"
^XMB(3.9,55,2,27154,0)=" S LINE=LINE+1"
^XMB(3.9,55,2,27155,0)="""RTN"",""IBCNSC1"",185,0)"
^XMB(3.9,55,2,27156,0)=" D SET^IBCNSP(LINE,OFFSET,TEXT)"
^XMB(3.9,55,2,27157,0)="""RTN"",""IBCNSC1"",186,0)"
^XMB(3.9,55,2,27158,0)=" ;"
^XMB(3.9,55,2,27159,0)="""RTN"",""IBCNSC1"",187,0)"
^XMB(3.9,55,2,27160,0)=" S TEXT=""Transmit no Billing Provider Sec. ID for the Electronic Plan Types: """
^XMB(3.9,55,2,27161,0)="""RTN"",""IBCNSC1"",188,0)"
^XMB(3.9,55,2,27162,0)=" S LINE=LINE+1"
^XMB(3.9,55,2,27163,0)="""RTN"",""IBCNSC1"",189,0)"
^XMB(3.9,55,2,27164,0)=" D SET^IBCNSP(LINE,OFFSET,TEXT)"
^XMB(3.9,55,2,27165,0)="""RTN"",""IBCNSC1"",190,0)"
^XMB(3.9,55,2,27166,0)=" ;"
^XMB(3.9,55,2,27167,0)="""RTN"",""IBCNSC1"",191,0)"
^XMB(3.9,55,2,27168,0)=" N TAR,ERR,IBCT"
^XMB(3.9,55,2,27169,0)="""RTN"",""IBCNSC1"",192,0)"
^XMB(3.9,55,2,27170,0)=" D LIST^DIC(36.013,"",""_IBCNS_"","","".01"",,10,,,,,,""TAR"",""ERR"")"
^XMB(3.9,55,2,27171,0)="""RTN"",""IBCNSC1"",193,0)"
^XMB(3.9,55,2,27172,0)=" F IBCT=1:1:+$G(TAR(""DILIST"",0)) D"
^XMB(3.9,55,2,27173,0)="""RTN"",""IBCNSC1"",194,0)"
^XMB(3.9,55,2,27174,0)=" . S TEXT=TAR(""DILIST"",1,IBCT)"
^XMB(3.9,55,2,27175,0)="""RTN"",""IBCNSC1"",195,0)"
^XMB(3.9,55,2,27176,0)=" . S LINE=LINE+1"
^XMB(3.9,55,2,27177,0)="""RTN"",""IBCNSC1"",196,0)"
^XMB(3.9,55,2,27178,0)=" . D SET^IBCNSP(LINE,OFFSET,TEXT)"
^XMB(3.9,55,2,27179,0)="""RTN"",""IBCNSC1"",197,0)"
^XMB(3.9,55,2,27180,0)=" ;"
^XMB(3.9,55,2,27181,0)="""RTN"",""IBCNSC1"",198,0)"
^XMB(3.9,55,2,27182,0)=" S TEXT=""Require Provider's SSN To Print (HCFA): ""_$$EXPAND^IBTRE(36,3.11,+$P(IBCNS3,U,11))"
^XMB(3.9,55,2,27183,0)="""RTN"",""IBCNSC1"",199,0)"
^XMB(3.9,55,2,27184,0)=" S LINE=LINE+1"
^XMB(3.9,55,2,27185,0)="""RTN"",""IBCNSC1"",200,0)"
^XMB(3.9,55,2,27186,0)=" D SET^IBCNSP(LINE,OFFSET,TEXT)"
^XMB(3.9,55,2,27187,0)="""RTN"",""IBCNSC1"",201,0)"
^XMB(3.9,55,2,27188,0)=" ;"
^XMB(3.9,55,2,27189,0)="""RTN"",""IBCNSC1"",202,0)"
^XMB(3.9,55,2,27190,0)=" S TEXT=""Require Provider's SSN To Print (UB92): ""_$$EXPAND^IBTRE(36,3.12,+$P(IBCNS3,U,12))"
^XMB(3.9,55,2,27191,0)="""RTN"",""IBCNSC1"",203,0)"
^XMB(3.9,55,2,27192,0)=" S LINE=LINE+1"
^XMB(3.9,55,2,27193,0)="""RTN"",""IBCNSC1"",204,0)"
^XMB(3.9,55,2,27194,0)=" D SET^IBCNSP(LINE,OFFSET,TEXT)"
^XMB(3.9,55,2,27195,0)="""RTN"",""IBCNSC1"",205,0)"
^XMB(3.9,55,2,27196,0)=" ;"
^XMB(3.9,55,2,27197,0)="""RTN"",""IBCNSC1"",206,0)"
^XMB(3.9,55,2,27198,0)=" S LINE=LINE+1 D SET^IBCNSP(LINE,2,"" "")"
^XMB(3.9,55,2,27199,0)="""RTN"",""IBCNSC1"",207,0)"
^XMB(3.9,55,2,27200,0)=" S LINE=LINE+1 D SET^IBCNSP(LINE,2,"" "")"
^XMB(3.9,55,2,27201,0)="""RTN"",""IBCNSC1"",208,0)"
^XMB(3.9,55,2,27202,0)=" Q"
^XMB(3.9,55,2,27203,0)="""RTN"",""IBCNSC1"",209,0)"
^XMB(3.9,55,2,27204,0)=" ;       "
^XMB(3.9,55,2,27205,0)="""RTN"",""IBCNSC1"",210,0)"
^XMB(3.9,55,2,27206,0)="INSDEF(IBINS,IBPTYP) ; Returns the default id # for an ins co, if possible"
^XMB(3.9,55,2,27207,0)="""RTN"",""IBCNSC1"",211,0)"
^XMB(3.9,55,2,27208,0)=" N X"
^XMB(3.9,55,2,27209,0)="""RTN"",""IBCNSC1"",212,0)"
^XMB(3.9,55,2,27210,0)=" S X="""""
^XMB(3.9,55,2,27211,0)="""RTN"",""IBCNSC1"",213,0)"
^XMB(3.9,55,2,27212,0)=" I IBINS,IBPTYP S X=$P($G(^IBA(355.91,+$O(^IBA(355.91,""AC"",IBINS,IBPTYP,""*N/A*"","""")),0)),U,7)"
^XMB(3.9,55,2,27213,0)="""RTN"",""IBCNSC1"",214,0)"
^XMB(3.9,55,2,27214,0)=" Q X"
^XMB(3.9,55,2,27215,0)="""RTN"",""IBCSC3"")"
^XMB(3.9,55,2,27216,0)="0^69^B36137301^B31826832"
^XMB(3.9,55,2,27217,0)="""RTN"",""IBCSC3"",1,0)"
^XMB(3.9,55,2,27218,0)="IBCSC3 ;ALB/MJB - MCCR SCREEN 3 (PAYER/MAILING ADDRESS) ;27 MAY 88 10:15"
^XMB(3.9,55,2,27219,0)="""RTN"",""IBCSC3"",2,0)"
^XMB(3.9,55,2,27220,0)=" ;;2.0;INTEGRATED BILLING;**8,43,52,80,82,51,137,232,320**;21-MAR-94"
^XMB(3.9,55,2,27221,0)="""RTN"",""IBCSC3"",3,0)"
^XMB(3.9,55,2,27222,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,27223,0)="""RTN"",""IBCSC3"",4,0)"
^XMB(3.9,55,2,27224,0)=" ;"
^XMB(3.9,55,2,27225,0)="""RTN"",""IBCSC3"",5,0)"
^XMB(3.9,55,2,27226,0)=" ;MAP TO DGCRSC3"
^XMB(3.9,55,2,27227,0)="""RTN"",""IBCSC3"",6,0)"
^XMB(3.9,55,2,27228,0)=" ;"
^XMB(3.9,55,2,27229,0)="""RTN"",""IBCSC3"",7,0)"
^XMB(3.9,55,2,27230,0)="EN N IB,IBX,IBINS,Y,Z"
^XMB(3.9,55,2,27231,0)="""RTN"",""IBCSC3"",8,0)"
^XMB(3.9,55,2,27232,0)=" I $D(DGRVRCAL) D ^IBCU6 K DGRVRCAL"
^XMB(3.9,55,2,27233,0)="""RTN"",""IBCSC3"",9,0)"
^XMB(3.9,55,2,27234,0)=" D ^IBCSCU S IBSR=3,IBSR1="""",IBV1=""000"" I IBV S IBV1=""111"""
^XMB(3.9,55,2,27235,0)="""RTN"",""IBCSC3"",10,0)"
^XMB(3.9,55,2,27236,0)=" D H^IBCSCU"
^XMB(3.9,55,2,27237,0)="""RTN"",""IBCSC3"",11,0)"
^XMB(3.9,55,2,27238,0)=" D:$D(^DGCR(399,IBIFN,""AIC"")) 3^IBCVA0"
^XMB(3.9,55,2,27239,0)="""RTN"",""IBCSC3"",12,0)"
^XMB(3.9,55,2,27240,0)=" D:'$D(^DGCR(399,IBIFN,""AIC"")) 123^IBCVA"
^XMB(3.9,55,2,27241,0)="""RTN"",""IBCSC3"",13,0)"
^XMB(3.9,55,2,27242,0)=" D POL^IBCNSU41(DFN)"
^XMB(3.9,55,2,27243,0)="""RTN"",""IBCSC3"",14,0)"
^XMB(3.9,55,2,27244,0)=" F I=0,""M"",""M1"",""U"",""U2"" S IB(I)=$S($D(^DGCR(399,IBIFN,I)):(^(I)),1:"""")"
^XMB(3.9,55,2,27245,0)="""RTN"",""IBCSC3"",15,0)"
^XMB(3.9,55,2,27246,0)=" S IBOUTP=2,IBINDT=$S(+$G(IB(""U"")):+IB(""U""),1:DT)"
^XMB(3.9,55,2,27247,0)="""RTN"",""IBCSC3"",16,0)"
^XMB(3.9,55,2,27248,0)=" ;S Z=1,IBW=1 X IBWW W "" Rate Type  : "",$S($P(IB(0),U,7)']"""":IBU,$D(^DGCR(399.3,$P(IB(0),U,7),0)):$P(^(0),U),1:IBUN)"
^XMB(3.9,55,2,27249,0)="""RTN"",""IBCSC3"",17,0)"
^XMB(3.9,55,2,27250,0)=" ;"
^XMB(3.9,55,2,27251,0)="""RTN"",""IBCSC3"",18,0)"
^XMB(3.9,55,2,27252,0)=" S X="" Rate Type  : ""_$S($P(IB(0),U,7)']"""":IBU,$D(^DGCR(399.3,$P(IB(0),U,7),0)):$P(^(0),U),1:IBUN)"
^XMB(3.9,55,2,27253,0)="""RTN"",""IBCSC3"",19,0)"
^XMB(3.9,55,2,27254,0)=" S Z=1,IBW=1 X IBWW W X"
^XMB(3.9,55,2,27255,0)="""RTN"",""IBCSC3"",20,0)"
^XMB(3.9,55,2,27256,0)=" I +$P($G(^IBE(350.9,1,1)),U,22) W $J("""",(42-$L(X))),""Form Type: "",$P($G(^IBE(353,+$P(IB(0),U,19),0)),U,1)"
^XMB(3.9,55,2,27257,0)="""RTN"",""IBCSC3"",21,0)"
^XMB(3.9,55,2,27258,0)=" W !?4,""Responsible: "",$S($P(IB(0),U,11)']"""":IBU,$P(IB(0),U,11)=""p"":""PATIENT"",$P(IB(0),U,11)=""i"":""INSURER"",1:""OTHER"")"
^XMB(3.9,55,2,27259,0)="""RTN"",""IBCSC3"",22,0)"
^XMB(3.9,55,2,27260,0)=" W ?45,""Payer Sequence: "" S IBX=$P(IB(0),U,21) W $S(IBX=""P"":""Primary"",IBX=""S"":""Secondary"",IBX=""T"":""Tertiary"",IBX=""A"":""Patient"",1:"""")"
^XMB(3.9,55,2,27261,0)="""RTN"",""IBCSC3"",23,0)"
^XMB(3.9,55,2,27262,0)=" I $P(IB(0),U,11)=""i"" D"
^XMB(3.9,55,2,27263,0)="""RTN"",""IBCSC3"",24,0)"
^XMB(3.9,55,2,27264,0)=" . W !?4,""Bill Payer : "" S X=$G(^DGCR(399,IBIFN,""MP""))"
^XMB(3.9,55,2,27265,0)="""RTN"",""IBCSC3"",25,0)"
^XMB(3.9,55,2,27266,0)=" . W $S(+X:$P($G(^DIC(36,+X,0)),U,1),$$MCRWNR^IBEFUNC($$CURR^IBCEF2(IBIFN)):""MRA NEEDED FROM MEDICARE"",1:IBU)"
^XMB(3.9,55,2,27267,0)="""RTN"",""IBCSC3"",26,0)"
^XMB(3.9,55,2,27268,0)=" . W ?45,""Transmit: "" S Z=0,X=$$TXMT^IBCEF4(IBIFN,.Z)"
^XMB(3.9,55,2,27269,0)="""RTN"",""IBCSC3"",27,0)"
^XMB(3.9,55,2,27270,0)=" . W $S(X:""Yes"",1:""No-""_$S(Z=1:""Forced to print local"",Z=2&($$WNRBILL^IBEFUNC(IBIFN)):""MRA not active"",Z=2:""EDI not active"",Z=3:""Rate typ transmit off"",Z=4:""Ins. co transmit off"",Z=5:""Failed RULE #""_$G(Z(0)),Z=6:""Invalid NDC code type"",1:""??""))"
^XMB(3.9,55,2,27271,0)="""RTN"",""IBCSC3"",28,0)"
^XMB(3.9,55,2,27272,0)=" I $P(IB(0),U,11)']"""" G MAIL"
^XMB(3.9,55,2,27273,0)="""RTN"",""IBCSC3"",29,0)"
^XMB(3.9,55,2,27274,0)=" I $P(IB(0),U,11)=""p"" G MAIL"
^XMB(3.9,55,2,27275,0)="""RTN"",""IBCSC3"",30,0)"
^XMB(3.9,55,2,27276,0)=" I $P(IB(0),U,11)=""o"" W !?4,""Inst. Name : "",$S($P(IB(""M""),U,11)']"""":IBU,$D(^DIC(4,$P(IB(""M""),U,11),0)):$P(^(0),U,1),1:""UNKNOWN INSTITUTION"") G MAIL"
^XMB(3.9,55,2,27277,0)="""RTN"",""IBCSC3"",31,0)"
^XMB(3.9,55,2,27278,0)=" I $P(IB(0),U,11)=""i"" I $D(IBDD)>1,$D(^DGCR(399,IBIFN,""AIC"")) G SHW"
^XMB(3.9,55,2,27279,0)="""RTN"",""IBCSC3"",32,0)"
^XMB(3.9,55,2,27280,0)=" D UP G LST:$D(IBDD)>1 W !?4,""Insurance : NO REIMBURSABLE INSURANCE INFORMATION ON FILE"",!?17,""[Add Insurance Information by entering '1' at the prompt below]"" G MAIL"
^XMB(3.9,55,2,27281,0)="""RTN"",""IBCSC3"",33,0)"
^XMB(3.9,55,2,27282,0)=" ;W !?4,""Insurance Carrier"",?40,""Whose"",?66,""Relationship"" S X="""",$P(X,""="",81)="""" W !,X"
^XMB(3.9,55,2,27283,0)="""RTN"",""IBCSC3"",34,0)"
^XMB(3.9,55,2,27284,0)="LST N IBDTIN,IBICT"
^XMB(3.9,55,2,27285,0)="""RTN"",""IBCSC3"",35,0)"
^XMB(3.9,55,2,27286,0)=" S IBDTIN=+$G(IB(""U"")),IBICT=0"
^XMB(3.9,55,2,27287,0)="""RTN"",""IBCSC3"",36,0)"
^XMB(3.9,55,2,27288,0)=" W ! D HDR^IBCNS"
^XMB(3.9,55,2,27289,0)="""RTN"",""IBCSC3"",37,0)"
^XMB(3.9,55,2,27290,0)=" S I=0 F  S I=$O(IBDD(""S"",I)) Q:'I  D  Q:IBICT'<5"
^XMB(3.9,55,2,27291,0)="""RTN"",""IBCSC3"",38,0)"
^XMB(3.9,55,2,27292,0)=" .S IBX=0 F  S IBX=$O(IBDD(""S"",I,IBX)) Q:'IBX  S IBINS=$G(IBDD(IBX,0)) I IBINS'="""" S IBICT=IBICT+1 D:IBICT<5 D1^IBCNS I IBICT'<5 W !,?1,""**Patient has additional insurance - use ?INS to see the entire list"" Q"
^XMB(3.9,55,2,27293,0)="""RTN"",""IBCSC3"",39,0)"
^XMB(3.9,55,2,27294,0)=" G MAIL"
^XMB(3.9,55,2,27295,0)="""RTN"",""IBCSC3"",40,0)"
^XMB(3.9,55,2,27296,0)="LST1 W !?4,$S($D(^DIC(36,+IBDD(IBX,0),0)):$E($P(^(0),""^"",1),1,20),1:""UNKNOWN"") S X=$P(IBDD(IBX,0),""^"",6) W ?26,$S(X=""v"":""VETERAN"",X=""s"":""SPOUSE"",1:""OTHER"") S X=$P(IBDD(IBX,0),""^"",16)"
^XMB(3.9,55,2,27297,0)="""RTN"",""IBCSC3"",41,0)"
^XMB(3.9,55,2,27298,0)=" S X=$S(+X=1:""PATIENT"",+X=2:""SPOUSE"",+X=3:""CHILD"",+X=8:""EMPLOYEE"",+X=11:""ORGAN DONOR"",+X=18:""PARENT"",+X=15:""PLANTIFF"",1:""UNKNOWN"")"
^XMB(3.9,55,2,27299,0)="""RTN"",""IBCSC3"",42,0)"
^XMB(3.9,55,2,27300,0)=" I X=""UNKNOWN"" S X1=$S($D(IBDD(IBX,0)):$P(IBDD(IBX,0),""^"",6),1:""""),X=$S(X1=""v"":""PATIENT"",X1=""s"":""SPOUSE"",1:X)"
^XMB(3.9,55,2,27301,0)="""RTN"",""IBCSC3"",43,0)"
^XMB(3.9,55,2,27302,0)=" W ?37,X,?49 S Y=$P(IBDD(IBX,0),""^"",8) X ^DD(""DD"") W Y,?64 S Y=$P(IBDD(IBX,0),""^"",4) X ^DD(""DD"") W Y"
^XMB(3.9,55,2,27303,0)="""RTN"",""IBCSC3"",44,0)"
^XMB(3.9,55,2,27304,0)=" Q"
^XMB(3.9,55,2,27305,0)="""RTN"",""IBCSC3"",45,0)"
^XMB(3.9,55,2,27306,0)="SHW I $D(IBDD) S I="""" F  S I=$O(IBDD(I)) Q:'I  D SHW1"
^XMB(3.9,55,2,27307,0)="""RTN"",""IBCSC3"",46,0)"
^XMB(3.9,55,2,27308,0)="MAIL I $$BUFFER^IBCNBU1(DFN) W !!,?17,""***  Patient has Insurance Buffer entries  ***"""
^XMB(3.9,55,2,27309,0)="""RTN"",""IBCSC3"",47,0)"
^XMB(3.9,55,2,27310,0)=" S IB(""M"")=$S($D(^DGCR(399,IBIFN,""M"")):^(""M""),1:""""),IB(""M1"")=$S($D(^DGCR(399,IBIFN,""M1"")):^(""M1""),1:""""),IB(0)=^DGCR(399,IBIFN,0)"
^XMB(3.9,55,2,27311,0)="""RTN"",""IBCSC3"",48,0)"
^XMB(3.9,55,2,27312,0)=" S Z=2,IBW=1 W ! X IBWW"
^XMB(3.9,55,2,27313,0)="""RTN"",""IBCSC3"",49,0)"
^XMB(3.9,55,2,27314,0)=" N IBRAMS S IBRAMS=4.06"
^XMB(3.9,55,2,27315,0)="""RTN"",""IBCSC3"",50,0)"
^XMB(3.9,55,2,27316,0)=" I $$FT^IBCEF(IBIFN)=3 S IBRAMS=4.08"
^XMB(3.9,55,2,27317,0)="""RTN"",""IBCSC3"",51,0)"
^XMB(3.9,55,2,27318,0)=" S IB(""RAFLAG"",1)=$S($P(IB(""M""),U,1)="""":0,1:$$GET1^DIQ(36,$P(IB(""M""),U,1),IBRAMS,""I""))"
^XMB(3.9,55,2,27319,0)="""RTN"",""IBCSC3"",52,0)"
^XMB(3.9,55,2,27320,0)=" S IB(""RAFLAG"",2)=$S($P(IB(""M""),U,2)="""":0,1:$$GET1^DIQ(36,$P(IB(""M""),U,2),IBRAMS,""I""))"
^XMB(3.9,55,2,27321,0)="""RTN"",""IBCSC3"",53,0)"
^XMB(3.9,55,2,27322,0)=" S IB(""RAFLAG"",3)=$S($P(IB(""M""),U,3)="""":0,1:$$GET1^DIQ(36,$P(IB(""M""),U,3),IBRAMS,""I""))"
^XMB(3.9,55,2,27323,0)="""RTN"",""IBCSC3"",54,0)"
^XMB(3.9,55,2,27324,0)=" S X=0 I $P(IB(""M1""),U,2)="""",'IB(""RAFLAG"",1),$P(IB(""M1""),U,3)="""",'IB(""RAFLAG"",2),$P(IB(""M1""),U,4)="""",'IB(""RAFLAG"",3) S X=1 W "" Facility ID #s: "",IBUN"
^XMB(3.9,55,2,27325,0)="""RTN"",""IBCSC3"",55,0)"
^XMB(3.9,55,2,27326,0)=" I 'X D"
^XMB(3.9,55,2,27327,0)="""RTN"",""IBCSC3"",56,0)"
^XMB(3.9,55,2,27328,0)=" . W "" Primary Payer: "",$S($P(IB(""M1""),U,2)]"""":$P(IB(""M1""),U,2),IB(""RAFLAG"",1):""ATT/REND ID"",1:"""")"
^XMB(3.9,55,2,27329,0)="""RTN"",""IBCSC3"",57,0)"
^XMB(3.9,55,2,27330,0)=" . W !?4,""Secondary Payer: "",$S($P(IB(""M1""),U,3)]"""":$P(IB(""M1""),U,3),IB(""RAFLAG"",2):""ATT/REND ID"",1:"""")"
^XMB(3.9,55,2,27331,0)="""RTN"",""IBCSC3"",58,0)"
^XMB(3.9,55,2,27332,0)=" . W ?45,""Tertiary Payer: "",$S($P(IB(""M1""),U,4)]"""":$P(IB(""M1""),U,4),IB(""RAFLAG"",3):""ATT/REND ID"",1:"""")"
^XMB(3.9,55,2,27333,0)="""RTN"",""IBCSC3"",59,0)"
^XMB(3.9,55,2,27334,0)=" S Z=3,IBW=1 W ! X IBWW"
^XMB(3.9,55,2,27335,0)="""RTN"",""IBCSC3"",60,0)"
^XMB(3.9,55,2,27336,0)=" W "" Mailing Address : """
^XMB(3.9,55,2,27337,0)="""RTN"",""IBCSC3"",61,0)"
^XMB(3.9,55,2,27338,0)=" S X=+$G(^DGCR(399,IBIFN,""MP""))"
^XMB(3.9,55,2,27339,0)="""RTN"",""IBCSC3"",62,0)"
^XMB(3.9,55,2,27340,0)=" I 'X,$$MCRWNR^IBEFUNC(+$$CURR^IBCEF2(IBIFN)) S X=+$$CURR^IBCEF2(IBIFN)"
^XMB(3.9,55,2,27341,0)="""RTN"",""IBCSC3"",63,0)"
^XMB(3.9,55,2,27342,0)=" I X,+$G(^DIC(36,X,3)) S I=$P(^(3),U,$S($$FT^IBCEF(IBIFN)=2:2,1:4)) W ?56,""Electronic ID: "",$S(I'="""":I,1:""<NONE>"")"
^XMB(3.9,55,2,27343,0)="""RTN"",""IBCSC3"",64,0)"
^XMB(3.9,55,2,27344,0)=" S X="""" I IB(""M"")]"""" F I=4:1:9 Q:X]""""  S X=$P(IB(""M""),""^"",I)"
^XMB(3.9,55,2,27345,0)="""RTN"",""IBCSC3"",65,0)"
^XMB(3.9,55,2,27346,0)=" I X']"""" W !?4,""NO MAILING ADDRESS HAS BEEN SPECIFIED!"",?45,$$UP1,!?4,""Send Bill to PAYER listed above."" G ENDSCR"
^XMB(3.9,55,2,27347,0)="""RTN"",""IBCSC3"",66,0)"
^XMB(3.9,55,2,27348,0)=" S X=IB(""M"") W !,?4,$S($P(X,""^"",4)]"""":$P(X,""^"",4),1:""'MAIL TO' PERSON/PLACE UNSPECIFIED""),?45,$$UP1"
^XMB(3.9,55,2,27349,0)="""RTN"",""IBCSC3"",67,0)"
^XMB(3.9,55,2,27350,0)=" W !?4,$S($P(X,""^"",5)]"""":$P(X,""^"",5),1:""STREET ADDRESS UNSPECIFIED"") W:$P(X,""^"",6)]"""" "", "",$P(X,""^"",6)"
^XMB(3.9,55,2,27351,0)="""RTN"",""IBCSC3"",68,0)"
^XMB(3.9,55,2,27352,0)=" W ! W:$P(IB(""M1""),""^"",1)]"""" ?4,$P(IB(""M1""),""^"",1),"", """
^XMB(3.9,55,2,27353,0)="""RTN"",""IBCSC3"",69,0)"
^XMB(3.9,55,2,27354,0)=" W ?4,$S($P(X,""^"",7)]"""":$P(X,""^"",7),1:""CITY UNSPECIFIED""),"", "",$S($D(^DIC(5,+$P(X,""^"",8),0)):$P(^(0),""^"",2),1:""STATE UNSPECIFIED""),""  "",$S($P(X,""^"",9)]"""":$P(X,""^"",9),1:""ZIP UNSPECIFIED"")"
^XMB(3.9,55,2,27355,0)="""RTN"",""IBCSC3"",70,0)"
^XMB(3.9,55,2,27356,0)=" ;"
^XMB(3.9,55,2,27357,0)="""RTN"",""IBCSC3"",71,0)"
^XMB(3.9,55,2,27358,0)="ENDSCR K IBADI,IBDD,IBOUTP,IBINDT,I,X,X1"
^XMB(3.9,55,2,27359,0)="""RTN"",""IBCSC3"",72,0)"
^XMB(3.9,55,2,27360,0)=" G ^IBCSCP"
^XMB(3.9,55,2,27361,0)="""RTN"",""IBCSC3"",73,0)"
^XMB(3.9,55,2,27362,0)=" ;"
^XMB(3.9,55,2,27363,0)="""RTN"",""IBCSC3"",74,0)"
^XMB(3.9,55,2,27364,0)="SHW1 S X=IBDD(I,0),Z=$G(^DIC(36,+X,0))"
^XMB(3.9,55,2,27365,0)="""RTN"",""IBCSC3"",75,0)"
^XMB(3.9,55,2,27366,0)=" W !!?4,""Ins "",I,"": "" W $E($S($P(Z,U,1)'="""":$P(Z,U,1),1:IBU),1,16)"
^XMB(3.9,55,2,27367,0)="""RTN"",""IBCSC3"",76,0)"
^XMB(3.9,55,2,27368,0)=" I $P(Z,U,2)=""N"" W ?30,""WILL NOT REIMBURSE"""
^XMB(3.9,55,2,27369,0)="""RTN"",""IBCSC3"",77,0)"
^XMB(3.9,55,2,27370,0)=" W ?51,""Policy #: "",$E($S($P(X,""^"",2)]"""":$P(X,""^"",2),1:IBU),1,18)"
^XMB(3.9,55,2,27371,0)="""RTN"",""IBCSC3"",78,0)"
^XMB(3.9,55,2,27372,0)=" W !?4,""Grp #: "",$E($S($P(X,""^"",3)]"""":$P(X,""^"",3),1:IBU),1,16)"
^XMB(3.9,55,2,27373,0)="""RTN"",""IBCSC3"",79,0)"
^XMB(3.9,55,2,27374,0)=" W ?30,""Whose: "",$S($P(X,""^"",6)=""v"":""VETERAN"",$P(X,""^"",6)=""s"":""SPOUSE"",1:""OTHER"")"
^XMB(3.9,55,2,27375,0)="""RTN"",""IBCSC3"",80,0)"
^XMB(3.9,55,2,27376,0)=" W ?51,""Rel to Insd: "",IBIR(I)"
^XMB(3.9,55,2,27377,0)="""RTN"",""IBCSC3"",81,0)"
^XMB(3.9,55,2,27378,0)=" W !?4,""Grp Nm: "",$E($S($P(X,""^"",15)]"""":$P(X,""^"",15),1:IBU),1,16)"
^XMB(3.9,55,2,27379,0)="""RTN"",""IBCSC3"",82,0)"
^XMB(3.9,55,2,27380,0)=" W ?30,""Insd Sex: "",$S($D(IBISEX(I)):IBISEX(I),1:IBU)"
^XMB(3.9,55,2,27381,0)="""RTN"",""IBCSC3"",83,0)"
^XMB(3.9,55,2,27382,0)=" W ?51,""Insured: "",$E($P(X,""^"",17),1,19)"
^XMB(3.9,55,2,27383,0)="""RTN"",""IBCSC3"",84,0)"
^XMB(3.9,55,2,27384,0)=" Q"
^XMB(3.9,55,2,27385,0)="""RTN"",""IBCSC3"",85,0)"
^XMB(3.9,55,2,27386,0)=" ;"
^XMB(3.9,55,2,27387,0)="""RTN"",""IBCSC3"",86,0)"
^XMB(3.9,55,2,27388,0)="UP K IBDD D ALL^IBCNS1(DFN,""IBDD"",2,IBINDT,1)"
^XMB(3.9,55,2,27389,0)="""RTN"",""IBCSC3"",87,0)"
^XMB(3.9,55,2,27390,0)=" I $D(IBDD(""S"",.5)) D  ; At least 1 MCR WNR insurance policy exists"
^XMB(3.9,55,2,27391,0)="""RTN"",""IBCSC3"",88,0)"
^XMB(3.9,55,2,27392,0)=" . ;try to put correct part (A for institution and B for facility)"
^XMB(3.9,55,2,27393,0)="""RTN"",""IBCSC3"",89,0)"
^XMB(3.9,55,2,27394,0)=" . N Z,IBAB"
^XMB(3.9,55,2,27395,0)="""RTN"",""IBCSC3"",90,0)"
^XMB(3.9,55,2,27396,0)=" . S IBAB=$S($$FT^IBCEF(IBIFN)=3:""A"",1:""B"")"
^XMB(3.9,55,2,27397,0)="""RTN"",""IBCSC3"",91,0)"
^XMB(3.9,55,2,27398,0)=" . S Z=0 F  S Z=$O(IBDD(""S"",.5,Z)) Q:'Z  D"
^XMB(3.9,55,2,27399,0)="""RTN"",""IBCSC3"",92,0)"
^XMB(3.9,55,2,27400,0)=" .. I $P($G(IBDD(Z,355.3)),U,14)=IBAB S IBDD(""S"",.1,Z,0)="""" K IBDD(""S"",.5,Z)"
^XMB(3.9,55,2,27401,0)="""RTN"",""IBCSC3"",93,0)"
^XMB(3.9,55,2,27402,0)=" Q"
^XMB(3.9,55,2,27403,0)="""RTN"",""IBCSC3"",94,0)"
^XMB(3.9,55,2,27404,0)=" ;"
^XMB(3.9,55,2,27405,0)="""RTN"",""IBCSC3"",95,0)"
^XMB(3.9,55,2,27406,0)="UP1() ;check if patient has medicare so can print a flag for the user"
^XMB(3.9,55,2,27407,0)="""RTN"",""IBCSC3"",96,0)"
^XMB(3.9,55,2,27408,0)=" N IBDD,IBX,IBY S IBY="""" D ALL^IBCNS1(DFN,""IBDD"",2,IBINDT)"
^XMB(3.9,55,2,27409,0)="""RTN"",""IBCSC3"",97,0)"
^XMB(3.9,55,2,27410,0)=" S IBX=0 F  S IBX=$O(IBDD(IBX)) Q:'IBX  I $P($G(IBDD(IBX,355.3)),U,9)=33 S IBY=""(Patient has Medicare)"""
^XMB(3.9,55,2,27411,0)="""RTN"",""IBCSC3"",98,0)"
^XMB(3.9,55,2,27412,0)=" Q IBY"
^XMB(3.9,55,2,27413,0)="""RTN"",""IBCSC3"",99,0)"
^XMB(3.9,55,2,27414,0)=" ;IBCSC3"
^XMB(3.9,55,2,27415,0)="""RTN"",""IBCSC8H"")"
^XMB(3.9,55,2,27416,0)="0^45^B30414621^B22724982"
^XMB(3.9,55,2,27417,0)="""RTN"",""IBCSC8H"",1,0)"
^XMB(3.9,55,2,27418,0)="IBCSC8H ;ALB/ARH - MCCR SCREEN 8 (BILL SPECIFIC INFO) HCFA 1500 ;4/21/92"
^XMB(3.9,55,2,27419,0)="""RTN"",""IBCSC8H"",2,0)"
^XMB(3.9,55,2,27420,0)=" ;;2.0;INTEGRATED BILLING;**51,137,207,210,232,155,320**;21-MAR-94"
^XMB(3.9,55,2,27421,0)="""RTN"",""IBCSC8H"",3,0)"
^XMB(3.9,55,2,27422,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,27423,0)="""RTN"",""IBCSC8H"",4,0)"
^XMB(3.9,55,2,27424,0)=" ; HCFA 1500 screen 8"
^XMB(3.9,55,2,27425,0)="""RTN"",""IBCSC8H"",5,0)"
^XMB(3.9,55,2,27426,0)=" ;"
^XMB(3.9,55,2,27427,0)="""RTN"",""IBCSC8H"",6,0)"
^XMB(3.9,55,2,27428,0)=" ; MAP TO DGCRSC8H"
^XMB(3.9,55,2,27429,0)="""RTN"",""IBCSC8H"",7,0)"
^XMB(3.9,55,2,27430,0)=" ;"
^XMB(3.9,55,2,27431,0)="""RTN"",""IBCSC8H"",8,0)"
^XMB(3.9,55,2,27432,0)="EN N I,IB,Y,Z"
^XMB(3.9,55,2,27433,0)="""RTN"",""IBCSC8H"",9,0)"
^XMB(3.9,55,2,27434,0)=" D ^IBCSCU S IBSR=8,IBSR1=""H"",IBV1=""0000000"" S:IBV IBV1=""1111111"" F I=""U"",""U1"",""UF2"",""UF3"",""U2"",""M"",""TX"",0,""U3"" S IB(I)=$G(^DGCR(399,IBIFN,I))"
^XMB(3.9,55,2,27435,0)="""RTN"",""IBCSC8H"",10,0)"
^XMB(3.9,55,2,27436,0)=" N IBZ,IBPRV,IBDATE,IBREQ,IBMRASEC,IBZ1"
^XMB(3.9,55,2,27437,0)="""RTN"",""IBCSC8H"",11,0)"
^XMB(3.9,55,2,27438,0)=" ;"
^XMB(3.9,55,2,27439,0)="""RTN"",""IBCSC8H"",12,0)"
^XMB(3.9,55,2,27440,0)=" S IBDATE=$$BDATE^IBACSV(IBIFN) ; Date of service for the bill"
^XMB(3.9,55,2,27441,0)="""RTN"",""IBCSC8H"",13,0)"
^XMB(3.9,55,2,27442,0)=" S IBPRV="""""
^XMB(3.9,55,2,27443,0)="""RTN"",""IBCSC8H"",14,0)"
^XMB(3.9,55,2,27444,0)=" D GETPRV^IBCEU(IBIFN,""ALL"",.IBPRV)"
^XMB(3.9,55,2,27445,0)="""RTN"",""IBCSC8H"",15,0)"
^XMB(3.9,55,2,27446,0)=" K IB(""PRV"")"
^XMB(3.9,55,2,27447,0)="""RTN"",""IBCSC8H"",16,0)"
^XMB(3.9,55,2,27448,0)=" S IBZ=0 F  S IBZ=$O(IBPRV(IBZ)) Q:'IBZ  I $O(IBPRV(IBZ,0))!$D(IBPRV(IBZ,""NOTOPT"")) M IB(""PRV"",IBZ)=IBPRV(IBZ)"
^XMB(3.9,55,2,27449,0)="""RTN"",""IBCSC8H"",17,0)"
^XMB(3.9,55,2,27450,0)=" ;"
^XMB(3.9,55,2,27451,0)="""RTN"",""IBCSC8H"",18,0)"
^XMB(3.9,55,2,27452,0)=" D H^IBCSCU"
^XMB(3.9,55,2,27453,0)="""RTN"",""IBCSC8H"",19,0)"
^XMB(3.9,55,2,27454,0)=" S Z=1,IBW=1 X IBWW W "" Unable To Work From: "" S Y=$P(IB(""U""),U,16) X ^DD(""DD"") W $S(Y'="""":Y,1:IBUN)"
^XMB(3.9,55,2,27455,0)="""RTN"",""IBCSC8H"",20,0)"
^XMB(3.9,55,2,27456,0)=" W !?4,""Unable To Work To  : "" S Y=$P(IB(""U""),U,17) X ^DD(""DD"") W $S(Y'="""":Y,1:IBUN)"
^XMB(3.9,55,2,27457,0)="""RTN"",""IBCSC8H"",21,0)"
^XMB(3.9,55,2,27458,0)=" S Z=2,IBW=1 X IBWW W "" Admitting Dx       : "" S IBZ=$$ICD9^IBACSV(+IB(""U2""),IBDATE) W $S(IBZ'="""":$P(IBZ,U)_"" - ""_$P(IBZ,U,3),1:IBUN)"
^XMB(3.9,55,2,27459,0)="""RTN"",""IBCSC8H"",22,0)"
^XMB(3.9,55,2,27460,0)=" S IBZ="""",IBZ=$S($P(IB(""UF3""),U,4)]"""":""Pri: ""_$P(IB(""UF3""),U,4),1:"""")_$S($P(IB(""UF3""),U,5)'="""":""  Sec: ""_$P(IB(""UF3""),U,5),1:"""")_$S($P(IB(""UF3""),U,6)'="""":"" Ter: ""_$P(IB(""UF3""),U,6),1:"""")"
^XMB(3.9,55,2,27461,0)="""RTN"",""IBCSC8H"",23,0)"
^XMB(3.9,55,2,27462,0)=" S:IBZ="""" IBZ=IBUN"
^XMB(3.9,55,2,27463,0)="""RTN"",""IBCSC8H"",24,0)"
^XMB(3.9,55,2,27464,0)=" W !,?4,""ICN/DCN(s)         : "",IBZ"
^XMB(3.9,55,2,27465,0)="""RTN"",""IBCSC8H"",25,0)"
^XMB(3.9,55,2,27466,0)=" S IBZ=$$CKPROV^IBCEU(IBIFN,3)"
^XMB(3.9,55,2,27467,0)="""RTN"",""IBCSC8H"",26,0)"
^XMB(3.9,55,2,27468,0)=" S IBZ="""",IBZ=$S($P(IB(""U""),U,13)]"""":""Pri: ""_$P(IB(""U""),U,13),1:"""")_$S($P(IB(""U2""),U,8)'="""":""  Sec: ""_$P(IB(""U2""),U,8),1:"""")_$S($P(IB(""U2""),U,9)'="""":""  Ter: ""_$P(IB(""U2""),U,9),1:"""")"
^XMB(3.9,55,2,27469,0)="""RTN"",""IBCSC8H"",27,0)"
^XMB(3.9,55,2,27470,0)=" S:IBZ="""" IBZ=IBUN"
^XMB(3.9,55,2,27471,0)="""RTN"",""IBCSC8H"",28,0)"
^XMB(3.9,55,2,27472,0)=" W !?4,""Tx Auth. Code(s)   : "",IBZ"
^XMB(3.9,55,2,27473,0)="""RTN"",""IBCSC8H"",29,0)"
^XMB(3.9,55,2,27474,0)=" S Z=3,IBW=1 X IBWW"
^XMB(3.9,55,2,27475,0)="""RTN"",""IBCSC8H"",30,0)"
^XMB(3.9,55,2,27476,0)=" W "" Providers          : "",$S('$O(IB(""PRV"",0)):IBU,1:"""")"
^XMB(3.9,55,2,27477,0)="""RTN"",""IBCSC8H"",31,0)"
^XMB(3.9,55,2,27478,0)=" I $D(IB(""PRV"")) D  ; at least 1 provider found"
^XMB(3.9,55,2,27479,0)="""RTN"",""IBCSC8H"",32,0)"
^XMB(3.9,55,2,27480,0)=" . N IBQ,A,A1,IBARR"
^XMB(3.9,55,2,27481,0)="""RTN"",""IBCSC8H"",33,0)"
^XMB(3.9,55,2,27482,0)=" . S IBZ=0"
^XMB(3.9,55,2,27483,0)="""RTN"",""IBCSC8H"",34,0)"
^XMB(3.9,55,2,27484,0)=" . D DEFSEC^IBCEF74(IBIFN,.IBARR)"
^XMB(3.9,55,2,27485,0)="""RTN"",""IBCSC8H"",35,0)"
^XMB(3.9,55,2,27486,0)=" . F  S IBZ=$O(IB(""PRV"",IBZ)) Q:'IBZ  D"
^XMB(3.9,55,2,27487,0)="""RTN"",""IBCSC8H"",36,0)"
^XMB(3.9,55,2,27488,0)=" .. S IBQ="""""
^XMB(3.9,55,2,27489,0)="""RTN"",""IBCSC8H"",37,0)"
^XMB(3.9,55,2,27490,0)=" .. W !,?5,""- """
^XMB(3.9,55,2,27491,0)="""RTN"",""IBCSC8H"",38,0)"
^XMB(3.9,55,2,27492,0)=" .. S A=$$EXPAND^IBTRE(399.0222,.01,IBZ)"
^XMB(3.9,55,2,27493,0)="""RTN"",""IBCSC8H"",39,0)"
^XMB(3.9,55,2,27494,0)=" .. I $P($G(IB(""PRV"",IBZ,1)),U,4)'="""" S A1="" (""_$E($P(IB(""PRV"",IBZ,1),U,4),1,3)_"")"",A=$E(A,1,16-$L(A1))_A1"
^XMB(3.9,55,2,27495,0)="""RTN"",""IBCSC8H"",40,0)"
^XMB(3.9,55,2,27496,0)=" .. W $E(A_$J("""",16),1,16),"": """
^XMB(3.9,55,2,27497,0)="""RTN"",""IBCSC8H"",41,0)"
^XMB(3.9,55,2,27498,0)=" .. I '$P($G(IB(""PRV"",IBZ,1)),U,3),$P($G(IB(""PRV"",IBZ,1)),U)="""" W IBU Q"
^XMB(3.9,55,2,27499,0)="""RTN"",""IBCSC8H"",42,0)"
^XMB(3.9,55,2,27500,0)=" .. I $P($G(IB(""PRV"",IBZ,1)),U)'="""" W:'$G(IB(""PRV"",IBZ)) $E($P(IB(""PRV"",IBZ,1),U)_$J("""",16),1,16) W:$G(IB(""PRV"",IBZ)) ""(OLD BOX 31 DATA) ""_$P(IB(""PRV"",IBZ,1),U)"
^XMB(3.9,55,2,27501,0)="""RTN"",""IBCSC8H"",43,0)"
^XMB(3.9,55,2,27502,0)=" .. I $P($G(IB(""PRV"",IBZ,1)),U)="""",$P($G(IB(""PRV"",IBZ)),U)'="""" W $E($P(IB(""PRV"",IBZ),U)_$J("""",16),1,16)"
^XMB(3.9,55,2,27503,0)="""RTN"",""IBCSC8H"",44,0)"
^XMB(3.9,55,2,27504,0)=" .. F A=1:1:3 I $G(IBARR(IBZ,A))'="""" S IBQ=IBQ_""[""_$E(""PST"",A)_""]""_IBARR(IBZ,A)_"" """
^XMB(3.9,55,2,27505,0)="""RTN"",""IBCSC8H"",45,0)"
^XMB(3.9,55,2,27506,0)=" .. I $L(IBQ) W $E(IBQ,1,39)"
^XMB(3.9,55,2,27507,0)="""RTN"",""IBCSC8H"",46,0)"
^XMB(3.9,55,2,27508,0)=" ;"
^XMB(3.9,55,2,27509,0)="""RTN"",""IBCSC8H"",47,0)"
^XMB(3.9,55,2,27510,0)=" K IB(""PRV"")"
^XMB(3.9,55,2,27511,0)="""RTN"",""IBCSC8H"",48,0)"
^XMB(3.9,55,2,27512,0)=" ;"
^XMB(3.9,55,2,27513,0)="""RTN"",""IBCSC8H"",49,0)"
^XMB(3.9,55,2,27514,0)=" S Z=4,IBW=1 X IBWW"
^XMB(3.9,55,2,27515,0)="""RTN"",""IBCSC8H"",50,0)"
^XMB(3.9,55,2,27516,0)=" W "" Other Facility (VA/non): "" S IBZ=$$EXPAND^IBTRE(399,232,+$P(IB(""U2""),U,10))"
^XMB(3.9,55,2,27517,0)="""RTN"",""IBCSC8H"",51,0)"
^XMB(3.9,55,2,27518,0)=" W $S(IBZ'="""":IBZ,$$PSRV^IBCEU(IBIFN):IBU,1:IBUN)"
^XMB(3.9,55,2,27519,0)="""RTN"",""IBCSC8H"",52,0)"
^XMB(3.9,55,2,27520,0)=" ;"
^XMB(3.9,55,2,27521,0)="""RTN"",""IBCSC8H"",53,0)"
^XMB(3.9,55,2,27522,0)=" ; clia# display - IB patch 320"
^XMB(3.9,55,2,27523,0)="""RTN"",""IBCSC8H"",54,0)"
^XMB(3.9,55,2,27524,0)=" S (IBZ,IBZ1)=$P(IB(""U2""),U,13)     ; retrieve CLIA# from database"
^XMB(3.9,55,2,27525,0)="""RTN"",""IBCSC8H"",55,0)"
^XMB(3.9,55,2,27526,0)=" ;"
^XMB(3.9,55,2,27527,0)="""RTN"",""IBCSC8H"",56,0)"
^XMB(3.9,55,2,27528,0)=" I IBZ="""" D"
^XMB(3.9,55,2,27529,0)="""RTN"",""IBCSC8H"",57,0)"
^XMB(3.9,55,2,27530,0)=" . NEW CLIAREQ,DEFCLIA,DIE,DA,DR"
^XMB(3.9,55,2,27531,0)="""RTN"",""IBCSC8H"",58,0)"
^XMB(3.9,55,2,27532,0)=" . S CLIAREQ=$$CLIAREQ^IBCEP8A(IBIFN)"
^XMB(3.9,55,2,27533,0)="""RTN"",""IBCSC8H"",59,0)"
^XMB(3.9,55,2,27534,0)=" . I 'CLIAREQ S IBZ1=IBUN Q          ; clia# not needed"
^XMB(3.9,55,2,27535,0)="""RTN"",""IBCSC8H"",60,0)"
^XMB(3.9,55,2,27536,0)=" . S DEFCLIA=$$CLIA^IBCEP8A(IBIFN)   ; default clia# for claim"
^XMB(3.9,55,2,27537,0)="""RTN"",""IBCSC8H"",61,0)"
^XMB(3.9,55,2,27538,0)=" . I DEFCLIA="""" S IBZ1=IBU Q         ; no default found"
^XMB(3.9,55,2,27539,0)="""RTN"",""IBCSC8H"",62,0)"
^XMB(3.9,55,2,27540,0)=" . I $G(IBMDOTCN) K IBMDOTCN S IBZ1=IBU Q     ; user @-deleted clia#"
^XMB(3.9,55,2,27541,0)="""RTN"",""IBCSC8H"",63,0)"
^XMB(3.9,55,2,27542,0)=" . S IBZ1=DEFCLIA                    ; display and stuff default clia#"
^XMB(3.9,55,2,27543,0)="""RTN"",""IBCSC8H"",64,0)"
^XMB(3.9,55,2,27544,0)=" . S DIE=399,DA=IBIFN,DR=""235///""_DEFCLIA D ^DIE    ; stuff in default"
^XMB(3.9,55,2,27545,0)="""RTN"",""IBCSC8H"",65,0)"
^XMB(3.9,55,2,27546,0)=" . Q"
^XMB(3.9,55,2,27547,0)="""RTN"",""IBCSC8H"",66,0)"
^XMB(3.9,55,2,27548,0)=" ;"
^XMB(3.9,55,2,27549,0)="""RTN"",""IBCSC8H"",67,0)"
^XMB(3.9,55,2,27550,0)=" W !,?4,""Lab CLIA #         : "",IBZ1"
^XMB(3.9,55,2,27551,0)="""RTN"",""IBCSC8H"",68,0)"
^XMB(3.9,55,2,27552,0)=" ;"
^XMB(3.9,55,2,27553,0)="""RTN"",""IBCSC8H"",69,0)"
^XMB(3.9,55,2,27554,0)=" ; Mammo# display IB patch 320"
^XMB(3.9,55,2,27555,0)="""RTN"",""IBCSC8H"",70,0)"
^XMB(3.9,55,2,27556,0)=" S (IBZ,IBZ1)=$P(IB(""U3""),U,1)    ; retrieve mammo# from database"
^XMB(3.9,55,2,27557,0)="""RTN"",""IBCSC8H"",71,0)"
^XMB(3.9,55,2,27558,0)=" ;"
^XMB(3.9,55,2,27559,0)="""RTN"",""IBCSC8H"",72,0)"
^XMB(3.9,55,2,27560,0)=" ; If mammo# is there, but should not be, then blank it out"
^XMB(3.9,55,2,27561,0)="""RTN"",""IBCSC8H"",73,0)"
^XMB(3.9,55,2,27562,0)=" I IBZ'="""",'$$XRAY^IBCEP8A(IBIFN) D"
^XMB(3.9,55,2,27563,0)="""RTN"",""IBCSC8H"",74,0)"
^XMB(3.9,55,2,27564,0)=" . NEW DIE,DA,DR"
^XMB(3.9,55,2,27565,0)="""RTN"",""IBCSC8H"",75,0)"
^XMB(3.9,55,2,27566,0)=" . S IBZ1=IBUN        ; mammo# not needed"
^XMB(3.9,55,2,27567,0)="""RTN"",""IBCSC8H"",76,0)"
^XMB(3.9,55,2,27568,0)=" . S DIE=399,DA=IBIFN,DR=""242////@"" D ^DIE"
^XMB(3.9,55,2,27569,0)="""RTN"",""IBCSC8H"",77,0)"
^XMB(3.9,55,2,27570,0)=" . Q"
^XMB(3.9,55,2,27571,0)="""RTN"",""IBCSC8H"",78,0)"
^XMB(3.9,55,2,27572,0)=" ;"
^XMB(3.9,55,2,27573,0)="""RTN"",""IBCSC8H"",79,0)"
^XMB(3.9,55,2,27574,0)=" I IBZ="""" S IBZ1=IBUN"
^XMB(3.9,55,2,27575,0)="""RTN"",""IBCSC8H"",80,0)"
^XMB(3.9,55,2,27576,0)=" W !?4,""Mammography Cert # : "",IBZ1"
^XMB(3.9,55,2,27577,0)="""RTN"",""IBCSC8H"",81,0)"
^XMB(3.9,55,2,27578,0)=" ;"
^XMB(3.9,55,2,27579,0)="""RTN"",""IBCSC8H"",82,0)"
^XMB(3.9,55,2,27580,0)=" S Z=5,IBW=1 X IBWW"
^XMB(3.9,55,2,27581,0)="""RTN"",""IBCSC8H"",83,0)"
^XMB(3.9,55,2,27582,0)=" W "" Form Locator 19    : "" S IBZ=$P($G(^DGCR(399,IBIFN,""UF31"")),U,3) W $S(IBZ'="""":IBZ,1:IBUN)"
^XMB(3.9,55,2,27583,0)="""RTN"",""IBCSC8H"",84,0)"
^XMB(3.9,55,2,27584,0)=" I $P(IB(""U2""),U,14)'="""" W !,?4,""Homebound          : "",$$EXPAND^IBTRE(399,236,$P(IB(""U2""),U,14))"
^XMB(3.9,55,2,27585,0)="""RTN"",""IBCSC8H"",85,0)"
^XMB(3.9,55,2,27586,0)=" I $P(IB(""U2""),U,15)'="""" W !,?4,""Date Last Seen     : "",$$EXPAND^IBTRE(399,237,$P(IB(""U2""),U,15))"
^XMB(3.9,55,2,27587,0)="""RTN"",""IBCSC8H"",86,0)"
^XMB(3.9,55,2,27588,0)=" I $P(IB(""U2""),U,16)'="""" W !,?4,""Spec Prog Indicator: "" S IBZ=$$EXPAND^IBTRE(399,238,$P(IB(""U2""),U,16)) W $S(IBZ'="""":IBZ,$$WNRBILL^IBEFUNC(IBIFN):""31"",1:"""")"
^XMB(3.9,55,2,27589,0)="""RTN"",""IBCSC8H"",87,0)"
^XMB(3.9,55,2,27590,0)=" S Z=6,IBW=1 X IBWW"
^XMB(3.9,55,2,27591,0)="""RTN"",""IBCSC8H"",88,0)"
^XMB(3.9,55,2,27592,0)=" W "" Print Main Facility Box 32: "",$S($P($G(^IBE(350.9,1,0)),U,2)'=$P($G(^DG(40.8,+$P(IB(0),U,22),0)),U,7):""[DOES NOT APPLY]"",$P(IB(""UF2""),U,2):$$EXPAND^IBTRE(399,401,$P(IB(""UF2""),U,2)),1:IBUN)"
^XMB(3.9,55,2,27593,0)="""RTN"",""IBCSC8H"",89,0)"
^XMB(3.9,55,2,27594,0)=" S IBREQ=+$$REQMRA^IBEFUNC(IBIFN) S:IBREQ IBREQ=1"
^XMB(3.9,55,2,27595,0)="""RTN"",""IBCSC8H"",90,0)"
^XMB(3.9,55,2,27596,0)=" S IBMRASEC=$$MRASEC^IBCEF4(IBIFN)"
^XMB(3.9,55,2,27597,0)="""RTN"",""IBCSC8H"",91,0)"
^XMB(3.9,55,2,27598,0)=" W !,?4,$S('IBREQ:""Force To Print?    : "",1:""Force MRA Sec Prt? : "")"
^XMB(3.9,55,2,27599,0)="""RTN"",""IBCSC8H"",92,0)"
^XMB(3.9,55,2,27600,0)=" S IBZ=$$EXTERNAL^DILFD(399,27+IBREQ,,+$P(IB(""TX""),U,8+IBREQ))"
^XMB(3.9,55,2,27601,0)="""RTN"",""IBCSC8H"",93,0)"
^XMB(3.9,55,2,27602,0)=" I IBMRASEC,'$P(IB(""TX""),U,8),$P(IB(""TX""),U,9) S IBZ=""FORCED TO PRINT BY MRA PRIMARY"",$P(IB(""TX""),U,8)=0"
^XMB(3.9,55,2,27603,0)="""RTN"",""IBCSC8H"",94,0)"
^XMB(3.9,55,2,27604,0)=" W $S(IBZ'=""""&($P(IB(""TX""),U,8+IBREQ)'=""""):IBZ,'$$TXMT^IBCEF4(IBIFN):""[NOT APPLICABLE - NOT TRANSMITTABLE]"",IBREQ:""NO FORCED PRINT"",1:IBZ)"
^XMB(3.9,55,2,27605,0)="""RTN"",""IBCSC8H"",95,0)"
^XMB(3.9,55,2,27606,0)=" S Z=7,IBW=1 X IBWW"
^XMB(3.9,55,2,27607,0)="""RTN"",""IBCSC8H"",96,0)"
^XMB(3.9,55,2,27608,0)=" W "" Provider ID Maint  : (Edit Provider ID information)"",!"
^XMB(3.9,55,2,27609,0)="""RTN"",""IBCSC8H"",97,0)"
^XMB(3.9,55,2,27610,0)=" G ^IBCSCP"
^XMB(3.9,55,2,27611,0)="""RTN"",""IBCSC8H"",98,0)"
^XMB(3.9,55,2,27612,0)="Q Q"
^XMB(3.9,55,2,27613,0)="""RTN"",""IBCSC8H"",99,0)"
^XMB(3.9,55,2,27614,0)=" ;"
^XMB(3.9,55,2,27615,0)="""RTN"",""IBCSC8H"",100,0)"
^XMB(3.9,55,2,27616,0)="WRT1(IBCRED) ; Write credentials mismatch"
^XMB(3.9,55,2,27617,0)="""RTN"",""IBCSC8H"",101,0)"
^XMB(3.9,55,2,27618,0)=" W !,*7,""  **Warning** Credentials differ from those found in NEW PERSON or IB NON VA"",!,$J("""",14),""BILLING PROVIDER file ("",$S(IBCRED="""":""none"",1:IBCRED),"")"""
^XMB(3.9,55,2,27619,0)="""RTN"",""IBCSC8H"",102,0)"
^XMB(3.9,55,2,27620,0)=" W !,$J("""",14),""Changes will print local, but only credentials on file transmit"""
^XMB(3.9,55,2,27621,0)="""RTN"",""IBCSC8H"",103,0)"
^XMB(3.9,55,2,27622,0)=" Q"
^XMB(3.9,55,2,27623,0)="""RTN"",""IBCSC8H"",104,0)"
^XMB(3.9,55,2,27624,0)=" ;"
^XMB(3.9,55,2,27625,0)="""RTN"",""IBCSC8H"",105,0)"
^XMB(3.9,55,2,27626,0)="NSAME(DA) ; Returns 1 if div on bill is not the default billing facility"
^XMB(3.9,55,2,27627,0)="""RTN"",""IBCSC8H"",106,0)"
^XMB(3.9,55,2,27628,0)=" Q ($P($G(^IBE(350.9,1,0)),U,2)'=$P($G(^DG(40.8,+$P(^DGCR(399,DA,0),U,22),0)),U,7))"
^XMB(3.9,55,2,27629,0)="""RTN"",""IBCSC8H"",107,0)"
^XMB(3.9,55,2,27630,0)=" ;"
^XMB(3.9,55,2,27631,0)="""RTN"",""IBCSC8H"",108,0)"
^XMB(3.9,55,2,27632,0)=" ;IBCSC8H"
^XMB(3.9,55,2,27633,0)="""RTN"",""IBCU"")"
^XMB(3.9,55,2,27634,0)="0^51^B57362986^B37317111"
^XMB(3.9,55,2,27635,0)="""RTN"",""IBCU"",1,0)"
^XMB(3.9,55,2,27636,0)="IBCU ;ALB/MRL - BILLING UTILITY ROUTINE ;01 JUN 88 12:00"
^XMB(3.9,55,2,27637,0)="""RTN"",""IBCU"",2,0)"
^XMB(3.9,55,2,27638,0)=" ;;2.0;INTEGRATED BILLING;**52,106,51,191,232,323,320**;21-MAR-94"
^XMB(3.9,55,2,27639,0)="""RTN"",""IBCU"",3,0)"
^XMB(3.9,55,2,27640,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,27641,0)="""RTN"",""IBCU"",4,0)"
^XMB(3.9,55,2,27642,0)=" ;"
^XMB(3.9,55,2,27643,0)="""RTN"",""IBCU"",5,0)"
^XMB(3.9,55,2,27644,0)=" ;MAP TO DGCRU"
^XMB(3.9,55,2,27645,0)="""RTN"",""IBCU"",6,0)"
^XMB(3.9,55,2,27646,0)=" ;"
^XMB(3.9,55,2,27647,0)="""RTN"",""IBCU"",7,0)"
^XMB(3.9,55,2,27648,0)="ARSTAT ;find status of bill in file 430.3 (ar) return status number"
^XMB(3.9,55,2,27649,0)="""RTN"",""IBCU"",8,0)"
^XMB(3.9,55,2,27650,0)=" S IBARST=$$STA^PRCAFN(IBIFN)"
^XMB(3.9,55,2,27651,0)="""RTN"",""IBCU"",9,0)"
^XMB(3.9,55,2,27652,0)=" Q"
^XMB(3.9,55,2,27653,0)="""RTN"",""IBCU"",10,0)"
^XMB(3.9,55,2,27654,0)=" ;"
^XMB(3.9,55,2,27655,0)="""RTN"",""IBCU"",11,0)"
^XMB(3.9,55,2,27656,0)="ARCAT ;Trigger logic to set who's responsible in 399.3 from AR Category"
^XMB(3.9,55,2,27657,0)="""RTN"",""IBCU"",12,0)"
^XMB(3.9,55,2,27658,0)=" S X=$P($$CATN^PRCAFN($P(^DGCR(399.3,DA,0),""^"",6)),""^"",3)"
^XMB(3.9,55,2,27659,0)="""RTN"",""IBCU"",13,0)"
^XMB(3.9,55,2,27660,0)=" S:X'="""" X=$S(""PC""[X:""p"",X=""N"":""o"",X=""T"":""i"",1:"""")"
^XMB(3.9,55,2,27661,0)="""RTN"",""IBCU"",14,0)"
^XMB(3.9,55,2,27662,0)=" Q"
^XMB(3.9,55,2,27663,0)="""RTN"",""IBCU"",15,0)"
^XMB(3.9,55,2,27664,0)=" ;"
^XMB(3.9,55,2,27665,0)="""RTN"",""IBCU"",16,0)"
^XMB(3.9,55,2,27666,0)="PTF ;Screen for appropriate PTF records"
^XMB(3.9,55,2,27667,0)="""RTN"",""IBCU"",17,0)"
^XMB(3.9,55,2,27668,0)=" K IBDD1 S DFN=+$P(^DGCR(399,+DA,0),""^"",2) Q:'$D(^DPT(+DFN,0))  S IB05=$P(^(0),""^"",1),IB03=$P(^DGCR(399,+DA,0),""^"",3)"
^XMB(3.9,55,2,27669,0)="""RTN"",""IBCU"",18,0)"
^XMB(3.9,55,2,27670,0)=" S IB01="""",IB02=0 F IB02=0:0 S IB01=$O(^DD(45,0,""ID"",IB01)) Q:'IB01  S IB02=IB02+1,IBDD(IB02)=^(IB01)"
^XMB(3.9,55,2,27671,0)="""RTN"",""IBCU"",19,0)"
^XMB(3.9,55,2,27672,0)=" F IB01=0:0 S IB01=$O(^DGPT(""B"",+DFN,IB01)) Q:'IB01  I $D(^DGPT(+IB01,0)) S IB04=$P(^(0),""^"",2),Y=+IB01 I $P(IB03,""."",1)=$P(IB04,""."",1) S IBDD1(+Y)="""" I $S('$D(X):0,X[""?"":1,1:0) D PTFW"
^XMB(3.9,55,2,27673,0)="""RTN"",""IBCU"",20,0)"
^XMB(3.9,55,2,27674,0)=" G PTFQ:X'[""?"" I '$O(IBDD1(0)) W !,""Patient has no ACTIVE PTF RECORDS for this event date."",!,""A 'PTF NUMBER' is required for inpatient billing records."""
^XMB(3.9,55,2,27675,0)="""RTN"",""IBCU"",21,0)"
^XMB(3.9,55,2,27676,0)=" E  W !!,""Select the appropriate billing record from the above listing by number."""
^XMB(3.9,55,2,27677,0)="""RTN"",""IBCU"",22,0)"
^XMB(3.9,55,2,27678,0)="PTFQ W ! K IB01,IB02,IB03,IB04,IB05,IBDD Q"
^XMB(3.9,55,2,27679,0)="""RTN"",""IBCU"",23,0)"
^XMB(3.9,55,2,27680,0)="PTFW W !,Y,?15,IB05 F IB02=0:0 S IB02=$O(IBDD(IB02)) Q:'IB02  X IBDD(IB02)"
^XMB(3.9,55,2,27681,0)="""RTN"",""IBCU"",24,0)"
^XMB(3.9,55,2,27682,0)=" Q"
^XMB(3.9,55,2,27683,0)="""RTN"",""IBCU"",25,0)"
^XMB(3.9,55,2,27684,0)=" ;"
^XMB(3.9,55,2,27685,0)="""RTN"",""IBCU"",26,0)"
^XMB(3.9,55,2,27686,0)="AGE ;Input Transform for Condition Code 17"
^XMB(3.9,55,2,27687,0)="""RTN"",""IBCU"",27,0)"
^XMB(3.9,55,2,27688,0)=" I X=18 G SEX"
^XMB(3.9,55,2,27689,0)="""RTN"",""IBCU"",28,0)"
^XMB(3.9,55,2,27690,0)=" I X=17 S IBC=X,DFN=$P(^DGCR(399,D0,0),""^"",2) D DEM^VADPT I VADM(4)<100 W !!,""This patient is only "",VADM(4),"" years old!!"",!! K IBC Q"
^XMB(3.9,55,2,27691,0)="""RTN"",""IBCU"",29,0)"
^XMB(3.9,55,2,27692,0)=" I $D(IBC) S X=IBC"
^XMB(3.9,55,2,27693,0)="""RTN"",""IBCU"",30,0)"
^XMB(3.9,55,2,27694,0)=" Q"
^XMB(3.9,55,2,27695,0)="""RTN"",""IBCU"",31,0)"
^XMB(3.9,55,2,27696,0)=" ;"
^XMB(3.9,55,2,27697,0)="""RTN"",""IBCU"",32,0)"
^XMB(3.9,55,2,27698,0)="SEX ;Input Transform for Condition Code 18"
^XMB(3.9,55,2,27699,0)="""RTN"",""IBCU"",33,0)"
^XMB(3.9,55,2,27700,0)=" I X=18 S IBC=X,DFN=$P(^DGCR(399,D0,0),""^"",2) D DEM^VADPT I $E(VADM(5))=""M"" W !!,""This patient is a MALE!! Condition code 18 applies only to FEMALES!!"",!! K IBC,X"
^XMB(3.9,55,2,27701,0)="""RTN"",""IBCU"",34,0)"
^XMB(3.9,55,2,27702,0)=" I $D(IBC) S X=IBC"
^XMB(3.9,55,2,27703,0)="""RTN"",""IBCU"",35,0)"
^XMB(3.9,55,2,27704,0)=" Q"
^XMB(3.9,55,2,27705,0)="""RTN"",""IBCU"",36,0)"
^XMB(3.9,55,2,27706,0)=" ;"
^XMB(3.9,55,2,27707,0)="""RTN"",""IBCU"",37,0)"
^XMB(3.9,55,2,27708,0)="REV ;Input Transform for Revenue Code"
^XMB(3.9,55,2,27709,0)="""RTN"",""IBCU"",38,0)"
^XMB(3.9,55,2,27710,0)=" I X=-1 W !!,""Choose only ACTIVE Revenue Codes!!"",!! S D=""AC"" ;S X="""" S X=$O(^DGCR(399.2,""AC"",X)) Q:X=""""  W !,$P(^DGCR(399.2,X,0),""^"",1),?30,$P(^(0),""^"",2) K X Q"
^XMB(3.9,55,2,27711,0)="""RTN"",""IBCU"",39,0)"
^XMB(3.9,55,2,27712,0)=" I '$D(IBC) I $D(^DGCR(399.2,X,0)) I '$P(^DGCR(399.2,X,0),""^"",3) W !!,""Only ACTIVE Revenue Codes may be selected!!"",!! K X Q"
^XMB(3.9,55,2,27713,0)="""RTN"",""IBCU"",40,0)"
^XMB(3.9,55,2,27714,0)=" Q"
^XMB(3.9,55,2,27715,0)="""RTN"",""IBCU"",41,0)"
^XMB(3.9,55,2,27716,0)=" ;"
^XMB(3.9,55,2,27717,0)="""RTN"",""IBCU"",42,0)"
^XMB(3.9,55,2,27718,0)="YN S X=$E(X),X=$S(X=1:X,X=0:X,X=""Y"":1,X=""y"":1,X=""n"":0,X=""N"":0,1:2) I X'=2 W ""  ("",$S(X:""YES"",1:""NO""),"")"" Q"
^XMB(3.9,55,2,27719,0)="""RTN"",""IBCU"",43,0)"
^XMB(3.9,55,2,27720,0)=" W !?4,""NOT A VALID CHOICE!"",*7 K X Q"
^XMB(3.9,55,2,27721,0)="""RTN"",""IBCU"",44,0)"
^XMB(3.9,55,2,27722,0)=" Q"
^XMB(3.9,55,2,27723,0)="""RTN"",""IBCU"",45,0)"
^XMB(3.9,55,2,27724,0)=" ;"
^XMB(3.9,55,2,27725,0)="""RTN"",""IBCU"",46,0)"
^XMB(3.9,55,2,27726,0)="NOPTF ; Input transform for file 399, field 159.5 (NON-VA ADMIT TIME)"
^XMB(3.9,55,2,27727,0)="""RTN"",""IBCU"",47,0)"
^XMB(3.9,55,2,27728,0)=" N %DT"
^XMB(3.9,55,2,27729,0)="""RTN"",""IBCU"",48,0)"
^XMB(3.9,55,2,27730,0)=" I X>24 K:X'=99 X Q"
^XMB(3.9,55,2,27731,0)="""RTN"",""IBCU"",49,0)"
^XMB(3.9,55,2,27732,0)=" I $P($G(^DGCR(399,DA,0)),U,8) K X Q  ; PTF pointer exists "
^XMB(3.9,55,2,27733,0)="""RTN"",""IBCU"",50,0)"
^XMB(3.9,55,2,27734,0)=" S X=$TR(X,""M "") S:X=0 X=""12A"" S:X<12 X=$TR(X,""A"")"
^XMB(3.9,55,2,27735,0)="""RTN"",""IBCU"",51,0)"
^XMB(3.9,55,2,27736,0)=" S:X?1N.N&($L(X)<3) Y="".""_$E(""0"",$L(X))_X S:X'?1.2N %DT=""TPR"",X=DT_""@""_X D:$L(X)>2 ^%DT S X=$E($P(Y,""."",2)_""00"",1,2)#24 K:Y=-1 X"
^XMB(3.9,55,2,27737,0)="""RTN"",""IBCU"",52,0)"
^XMB(3.9,55,2,27738,0)=" Q"
^XMB(3.9,55,2,27739,0)="""RTN"",""IBCU"",53,0)"
^XMB(3.9,55,2,27740,0)=" ;"
^XMB(3.9,55,2,27741,0)="""RTN"",""IBCU"",54,0)"
^XMB(3.9,55,2,27742,0)="DIS ;Determine Billing Discharge status from PTF"
^XMB(3.9,55,2,27743,0)="""RTN"",""IBCU"",55,0)"
^XMB(3.9,55,2,27744,0)=" ;Called from triggers on fields .08 and 161"
^XMB(3.9,55,2,27745,0)="""RTN"",""IBCU"",56,0)"
^XMB(3.9,55,2,27746,0)=" N A"
^XMB(3.9,55,2,27747,0)="""RTN"",""IBCU"",57,0)"
^XMB(3.9,55,2,27748,0)=" I '$D(^DGCR(399,DA,0)) S X="""" G DISQ"
^XMB(3.9,55,2,27749,0)="""RTN"",""IBCU"",58,0)"
^XMB(3.9,55,2,27750,0)=" S X=$P(^DGCR(399,DA,0),""^"",6) I X=2!(X=3) S X=$O(^DGCR(399.1,""B"",""STILL PATIENT"",0)) G DISQ"
^XMB(3.9,55,2,27751,0)="""RTN"",""IBCU"",59,0)"
^XMB(3.9,55,2,27752,0)=" S X=$P(^DGCR(399,DA,0),""^"",8) I $S(X="""":1,'$D(^DGPT(X)):1,1:0) S X="""" G DISQ"
^XMB(3.9,55,2,27753,0)="""RTN"",""IBCU"",60,0)"
^XMB(3.9,55,2,27754,0)=" I '+$G(^DGPT(X,70)) S X=$O(^DGCR(399.1,""B"",""STILL PATIENT"",0)) G DISQ"
^XMB(3.9,55,2,27755,0)="""RTN"",""IBCU"",61,0)"
^XMB(3.9,55,2,27756,0)=" S A=$P($G(^DGCR(399,DA,""U"")),""^"",2) I A,(A+.24)<+$G(^DGPT(X,70)) S X=$O(^DGCR(399.1,""B"",""STILL PATIENT"",0)) G DISQ"
^XMB(3.9,55,2,27757,0)="""RTN"",""IBCU"",62,0)"
^XMB(3.9,55,2,27758,0)=" S X=+$P($G(^DGPT(X,70)),""^"",3)"
^XMB(3.9,55,2,27759,0)="""RTN"",""IBCU"",63,0)"
^XMB(3.9,55,2,27760,0)=" I X=1 S X=$O(^DGCR(399.1,""B"",$E(""DISCHARGED TO HOME OR SELF CARE"",1,30),0)) G DISQ"
^XMB(3.9,55,2,27761,0)="""RTN"",""IBCU"",64,0)"
^XMB(3.9,55,2,27762,0)=" I X=4 S X=$O(^DGCR(399.1,""B"",$E(""LEFT AGAINST MEDICAL ADVICE"",1,30),0)) G DISQ"
^XMB(3.9,55,2,27763,0)="""RTN"",""IBCU"",65,0)"
^XMB(3.9,55,2,27764,0)=" I X=6!(X=7) S X=$O(^DGCR(399.1,""B"",""EXPIRED"",0)) G DISQ"
^XMB(3.9,55,2,27765,0)="""RTN"",""IBCU"",66,0)"
^XMB(3.9,55,2,27766,0)=" I X=5!(X=2) S X=$O(^DGCR(399.1,""B"",$E(""DISCHARGED TO ANOTHER SHORT-TERM GENERAL HOSPITAL"",1,30),0)) G DISQ"
^XMB(3.9,55,2,27767,0)="""RTN"",""IBCU"",67,0)"
^XMB(3.9,55,2,27768,0)=" S X="""""
^XMB(3.9,55,2,27769,0)="""RTN"",""IBCU"",68,0)"
^XMB(3.9,55,2,27770,0)="DISQ Q"
^XMB(3.9,55,2,27771,0)="""RTN"",""IBCU"",69,0)"
^XMB(3.9,55,2,27772,0)=" ;"
^XMB(3.9,55,2,27773,0)="""RTN"",""IBCU"",70,0)"
^XMB(3.9,55,2,27774,0)="INST ;Ask Institutution address info"
^XMB(3.9,55,2,27775,0)="""RTN"",""IBCU"",71,0)"
^XMB(3.9,55,2,27776,0)=" S DIC(""DR"")=""1.01;1.02;1.03;.02;1.04"" I $D(^XUSEC(""IB SUPERVISOR"",DUZ)) S DLAYGO=4"
^XMB(3.9,55,2,27777,0)="""RTN"",""IBCU"",72,0)"
^XMB(3.9,55,2,27778,0)=" Q"
^XMB(3.9,55,2,27779,0)="""RTN"",""IBCU"",73,0)"
^XMB(3.9,55,2,27780,0)=" ;"
^XMB(3.9,55,2,27781,0)="""RTN"",""IBCU"",74,0)"
^XMB(3.9,55,2,27782,0)="PTADD(DFN,MAXL) ; outputs patient address for the trigger on Patient Short Address (399,110)"
^XMB(3.9,55,2,27783,0)="""RTN"",""IBCU"",75,0)"
^XMB(3.9,55,2,27784,0)=" N IBX,IBY,IBI,IBDPT S (IBX,IBDPT)="""" I $G(MAXL)=""PSA"" S MAXL=47"
^XMB(3.9,55,2,27785,0)="""RTN"",""IBCU"",76,0)"
^XMB(3.9,55,2,27786,0)=" I +$G(DFN) S IBDPT=$G(^DPT(DFN,.11)) F IBI=1:1:4 S IBY=$P(IBDPT,U,IBI) I IBY'="""" S IBX=IBX_IBY_"","""
^XMB(3.9,55,2,27787,0)="""RTN"",""IBCU"",77,0)"
^XMB(3.9,55,2,27788,0)=" I +$P(IBDPT,U,5) S IBY=$P($G(^DIC(5,+$P(IBDPT,U,5),0)),U,2),IBX=IBX_IBY"
^XMB(3.9,55,2,27789,0)="""RTN"",""IBCU"",78,0)"
^XMB(3.9,55,2,27790,0)=" I $P(IBDPT,U,12)'="""" S IBX=IBX_"" ""_$P(IBDPT,U,12)"
^XMB(3.9,55,2,27791,0)="""RTN"",""IBCU"",79,0)"
^XMB(3.9,55,2,27792,0)=" I +$G(MAXL),$L(IBX)>+MAXL S IBX="""""
^XMB(3.9,55,2,27793,0)="""RTN"",""IBCU"",80,0)"
^XMB(3.9,55,2,27794,0)=" Q IBX"
^XMB(3.9,55,2,27795,0)="""RTN"",""IBCU"",81,0)"
^XMB(3.9,55,2,27796,0)=" ;"
^XMB(3.9,55,2,27797,0)="""RTN"",""IBCU"",82,0)"
^XMB(3.9,55,2,27798,0)="SM ;Flag for printing medicare statment on UB-82"
^XMB(3.9,55,2,27799,0)="""RTN"",""IBCU"",83,0)"
^XMB(3.9,55,2,27800,0)=" ;DGSM=0 means figure out which statement, DGSM=1 means no statements"
^XMB(3.9,55,2,27801,0)="""RTN"",""IBCU"",84,0)"
^XMB(3.9,55,2,27802,0)=" S DGSM=0 Q"
^XMB(3.9,55,2,27803,0)="""RTN"",""IBCU"",85,0)"
^XMB(3.9,55,2,27804,0)=" ;IBCU"
^XMB(3.9,55,2,27805,0)="""RTN"",""IBCU"",86,0)"
^XMB(3.9,55,2,27806,0)=" ;"
^XMB(3.9,55,2,27807,0)="""RTN"",""IBCU"",87,0)"
^XMB(3.9,55,2,27808,0)="CHGTYP(IBIFN,ARR) ; sets up array of all charge types defined on a bill:  ARR(TYPE, COMPONENT)="""""
^XMB(3.9,55,2,27809,0)="""RTN"",""IBCU"",88,0)"
^XMB(3.9,55,2,27810,0)=" N IBI,IBX,IBT K ARR"
^XMB(3.9,55,2,27811,0)="""RTN"",""IBCU"",89,0)"
^XMB(3.9,55,2,27812,0)=" I +$O(^DGCR(399,+$G(IBIFN),""RC"",0)) S IBI=0 F  S IBI=$O(^DGCR(399,+IBIFN,""RC"",IBI))  Q:'IBI  D"
^XMB(3.9,55,2,27813,0)="""RTN"",""IBCU"",90,0)"
^XMB(3.9,55,2,27814,0)=" . S IBX=$G(^DGCR(399,+IBIFN,""RC"",IBI,0)),IBT=$P(IBX,U,10) I +IBT S ARR(IBT,+$P(IBX,U,12))="""""
^XMB(3.9,55,2,27815,0)="""RTN"",""IBCU"",91,0)"
^XMB(3.9,55,2,27816,0)=" Q"
^XMB(3.9,55,2,27817,0)="""RTN"",""IBCU"",92,0)"
^XMB(3.9,55,2,27818,0)=" ;"
^XMB(3.9,55,2,27819,0)="""RTN"",""IBCU"",93,0)"
^XMB(3.9,55,2,27820,0)="CHGTYPE(IBIFN) ; returns list of charge types on a bill: TYPE ^ TYPE ^ ... ; EXTERNAL TYPE , EXTERNAL TYPE , ..."
^XMB(3.9,55,2,27821,0)="""RTN"",""IBCU"",94,0)"
^XMB(3.9,55,2,27822,0)=" N IBAR,IBY,IBS,IBI,IBC,IBJ,IBX"
^XMB(3.9,55,2,27823,0)="""RTN"",""IBCU"",95,0)"
^XMB(3.9,55,2,27824,0)=" D CHGTYP($G(IBIFN),.IBAR)"
^XMB(3.9,55,2,27825,0)="""RTN"",""IBCU"",96,0)"
^XMB(3.9,55,2,27826,0)=" S (IBX,IBY,IBS)="""",IBI=0 F  S IBI=$O(IBAR(IBI)) Q:'IBI  D"
^XMB(3.9,55,2,27827,0)="""RTN"",""IBCU"",97,0)"
^XMB(3.9,55,2,27828,0)=" . S IBX=IBX_IBI_U"
^XMB(3.9,55,2,27829,0)="""RTN"",""IBCU"",98,0)"
^XMB(3.9,55,2,27830,0)=" . S IBC=""INPT"" I IBI=1 S IBJ=$O(IBAR(IBI,0)),IBC=$S(IBJ=1:""INST"",IBJ=2:""PF"",1:""INPT"") I +$O(IBAR(IBI,IBJ)) S IBC=""INPT"""
^XMB(3.9,55,2,27831,0)="""RTN"",""IBCU"",99,0)"
^XMB(3.9,55,2,27832,0)=" . S IBY=IBY_IBS_$S(IBI=1:IBC,IBI=2:""VST"",IBI=3:""RX"",IBI=4:""CPT"",IBI=5:""PI"",IBI=6:""DRG"",IBI=9:""UN"",1:""""),IBS="","""
^XMB(3.9,55,2,27833,0)="""RTN"",""IBCU"",100,0)"
^XMB(3.9,55,2,27834,0)=" S IBY=IBX_"";""_IBY"
^XMB(3.9,55,2,27835,0)="""RTN"",""IBCU"",101,0)"
^XMB(3.9,55,2,27836,0)=" Q IBY"
^XMB(3.9,55,2,27837,0)="""RTN"",""IBCU"",102,0)"
^XMB(3.9,55,2,27838,0)=" ;"
^XMB(3.9,55,2,27839,0)="""RTN"",""IBCU"",103,0)"
^XMB(3.9,55,2,27840,0)="BCHGTYPE(IBIFN) ; returns type of bill and charges: (CLASS (.05): TYPE, TYPE, ...)"
^XMB(3.9,55,2,27841,0)="""RTN"",""IBCU"",104,0)"
^XMB(3.9,55,2,27842,0)=" N IBCLASS,IBTYPE,IBY S IBY="""""
^XMB(3.9,55,2,27843,0)="""RTN"",""IBCU"",105,0)"
^XMB(3.9,55,2,27844,0)=" S IBCLASS=$P($G(^DGCR(399,+$G(IBIFN),0)),U,5)"
^XMB(3.9,55,2,27845,0)="""RTN"",""IBCU"",106,0)"
^XMB(3.9,55,2,27846,0)=" S IBTYPE=$P($$CHGTYPE(+$G(IBIFN)),"";"",2) I IBTYPE=""INPT"" S IBTYPE="""""
^XMB(3.9,55,2,27847,0)="""RTN"",""IBCU"",107,0)"
^XMB(3.9,55,2,27848,0)=" I +IBCLASS S IBY=$S(IBCLASS<3:""Inpt"",1:""Opt"") I IBTYPE'="""" S IBY=IBY_"" (""_IBTYPE_"")"""
^XMB(3.9,55,2,27849,0)="""RTN"",""IBCU"",108,0)"
^XMB(3.9,55,2,27850,0)=" Q IBY"
^XMB(3.9,55,2,27851,0)="""RTN"",""IBCU"",109,0)"
^XMB(3.9,55,2,27852,0)=" ;"
^XMB(3.9,55,2,27853,0)="""RTN"",""IBCU"",110,0)"
^XMB(3.9,55,2,27854,0)="CLNSCRN(IBDT,CLIFN) ; screen for a Procedures Associated Clinic  (399, 304, 6), returns true if clinic can be used"
^XMB(3.9,55,2,27855,0)="""RTN"",""IBCU"",111,0)"
^XMB(3.9,55,2,27856,0)=" ; clinic must be defined as a 'Clinic' and it must be active on date of procedure"
^XMB(3.9,55,2,27857,0)="""RTN"",""IBCU"",112,0)"
^XMB(3.9,55,2,27858,0)=" ;"
^XMB(3.9,55,2,27859,0)="""RTN"",""IBCU"",113,0)"
^XMB(3.9,55,2,27860,0)=" N IBCL0,IBCLI,IBX S IBX=0"
^XMB(3.9,55,2,27861,0)="""RTN"",""IBCU"",114,0)"
^XMB(3.9,55,2,27862,0)=" S IBCL0=$G(^SC(+$G(CLIFN),0)),IBCLI=$G(^SC(+$G(CLIFN),""I""))"
^XMB(3.9,55,2,27863,0)="""RTN"",""IBCU"",115,0)"
^XMB(3.9,55,2,27864,0)=" S IBX=$S($P(IBCL0,U,3)'=""C"":0,'$G(IBDT):0,'IBCLI:1,+IBCLI>+IBDT:1,'$P(IBCLI,U,2):0,1:$P(IBCLI,U,2)'>IBDT)"
^XMB(3.9,55,2,27865,0)="""RTN"",""IBCU"",116,0)"
^XMB(3.9,55,2,27866,0)=" Q IBX"
^XMB(3.9,55,2,27867,0)="""RTN"",""IBCU"",117,0)"
^XMB(3.9,55,2,27868,0)=" ;"
^XMB(3.9,55,2,27869,0)="""RTN"",""IBCU"",118,0)"
^XMB(3.9,55,2,27870,0)="PRVNUM(IBIFN,IBINS,COB) ; Trigger code (399:122,123,124)"
^XMB(3.9,55,2,27871,0)="""RTN"",""IBCU"",119,0)"
^XMB(3.9,55,2,27872,0)=" ; on Primary Secondary/Tertiary Carrier (399:101,102,103)"
^XMB(3.9,55,2,27873,0)="""RTN"",""IBCU"",120,0)"
^XMB(3.9,55,2,27874,0)=" ; returns the Provider Number for the Insurance Company"
^XMB(3.9,55,2,27875,0)="""RTN"",""IBCU"",121,0)"
^XMB(3.9,55,2,27876,0)=" ;         Hospital Provider Number for prov id in file 355.92"
^XMB(3.9,55,2,27877,0)="""RTN"",""IBCU"",122,0)"
^XMB(3.9,55,2,27878,0)=" ;         or Medicare A provider Number (psych/non-psych) if Medicare A"
^XMB(3.9,55,2,27879,0)="""RTN"",""IBCU"",123,0)"
^XMB(3.9,55,2,27880,0)=" ;"
^XMB(3.9,55,2,27881,0)="""RTN"",""IBCU"",124,0)"
^XMB(3.9,55,2,27882,0)=" ; Input   IBIFN - bill ifn"
^XMB(3.9,55,2,27883,0)="""RTN"",""IBCU"",125,0)"
^XMB(3.9,55,2,27884,0)=" ;         IBINS - insurance company ifn (opt)"
^XMB(3.9,55,2,27885,0)="""RTN"",""IBCU"",126,0)"
^XMB(3.9,55,2,27886,0)=" ;         COB   - 1 for primary, 2 for secondary, 3 for tertiary"
^XMB(3.9,55,2,27887,0)="""RTN"",""IBCU"",127,0)"
^XMB(3.9,55,2,27888,0)=" ;"
^XMB(3.9,55,2,27889,0)="""RTN"",""IBCU"",128,0)"
^XMB(3.9,55,2,27890,0)=" N IBX,IBB0,IBBF,IBFT,Z,Z0"
^XMB(3.9,55,2,27891,0)="""RTN"",""IBCU"",129,0)"
^XMB(3.9,55,2,27892,0)=" S:'$G(COB) COB=1"
^XMB(3.9,55,2,27893,0)="""RTN"",""IBCU"",130,0)"
^XMB(3.9,55,2,27894,0)=" S IBX=$P($G(^DGCR(399,+$G(IBIFN),""M1"")),U,COB+1),IBB0=$G(^DGCR(399,+$G(IBIFN),0))"
^XMB(3.9,55,2,27895,0)="""RTN"",""IBCU"",131,0)"
^XMB(3.9,55,2,27896,0)=" I $G(IBINS)="""" S IBINS=+$G(^DGCR(399,+$G(IBIFN),""I""_COB))"
^XMB(3.9,55,2,27897,0)="""RTN"",""IBCU"",132,0)"
^XMB(3.9,55,2,27898,0)=" G:'IBINS PRVNQ"
^XMB(3.9,55,2,27899,0)="""RTN"",""IBCU"",133,0)"
^XMB(3.9,55,2,27900,0)=" ;"
^XMB(3.9,55,2,27901,0)="""RTN"",""IBCU"",134,0)"
^XMB(3.9,55,2,27902,0)=" ; OEC - 12/21/05 - If an MRA is being processed into an MRA secondary"
^XMB(3.9,55,2,27903,0)="""RTN"",""IBCU"",135,0)"
^XMB(3.9,55,2,27904,0)=" ; claim and the billing provider # already exists, then leave it"
^XMB(3.9,55,2,27905,0)="""RTN"",""IBCU"",136,0)"
^XMB(3.9,55,2,27906,0)=" I $G(IBPRCOB),IBX'="""" G PRVNQ"
^XMB(3.9,55,2,27907,0)="""RTN"",""IBCU"",137,0)"
^XMB(3.9,55,2,27908,0)=" ;"
^XMB(3.9,55,2,27909,0)="""RTN"",""IBCU"",138,0)"
^XMB(3.9,55,2,27910,0)=" I +$G(IBIFN),COB N DA S DA=IBIFN I $$MCRACK^IBCBB3(+IBIFN,$P($G(^DGCR(399,+IBIFN,""TX"")),U,5),+COB) S IBX=$$MCRANUM^IBCBB3(+IBIFN) G PRVNQ"
^XMB(3.9,55,2,27911,0)="""RTN"",""IBCU"",139,0)"
^XMB(3.9,55,2,27912,0)=" ;"
^XMB(3.9,55,2,27913,0)="""RTN"",""IBCU"",140,0)"
^XMB(3.9,55,2,27914,0)=" ; WCJ - 1/17/06 - Some Insurances require certain electronic plan types to have no secondary ID"
^XMB(3.9,55,2,27915,0)="""RTN"",""IBCU"",141,0)"
^XMB(3.9,55,2,27916,0)=" ; Check if this plan type requires a blank sec id to go out for this insurance"
^XMB(3.9,55,2,27917,0)="""RTN"",""IBCU"",142,0)"
^XMB(3.9,55,2,27918,0)=" N NOSEC S NOSEC=0"
^XMB(3.9,55,2,27919,0)="""RTN"",""IBCU"",143,0)"
^XMB(3.9,55,2,27920,0)=" I $D(^DIC(36,IBINS,13)),$G(IBIFN) D"
^XMB(3.9,55,2,27921,0)="""RTN"",""IBCU"",144,0)"
^XMB(3.9,55,2,27922,0)=" . N PLAN,PLANTYPE"
^XMB(3.9,55,2,27923,0)="""RTN"",""IBCU"",145,0)"
^XMB(3.9,55,2,27924,0)=" . S PLAN=$P($G(^DGCR(399,IBIFN,""I""_COB)),U,18) Q:'PLAN"
^XMB(3.9,55,2,27925,0)="""RTN"",""IBCU"",146,0)"
^XMB(3.9,55,2,27926,0)=" . S PLANTYPE=$P($G(^IBA(355.3,PLAN,0)),U,15) Q:'PLANTYPE"
^XMB(3.9,55,2,27927,0)="""RTN"",""IBCU"",147,0)"
^XMB(3.9,55,2,27928,0)=" . Q:'$D(^DIC(36,IBINS,13,""B"",PLANTYPE))"
^XMB(3.9,55,2,27929,0)="""RTN"",""IBCU"",148,0)"
^XMB(3.9,55,2,27930,0)=" . S NOSEC=1,IBX="""""
^XMB(3.9,55,2,27931,0)="""RTN"",""IBCU"",149,0)"
^XMB(3.9,55,2,27932,0)=" I NOSEC G PRVNQ"
^XMB(3.9,55,2,27933,0)="""RTN"",""IBCU"",150,0)"
^XMB(3.9,55,2,27934,0)=" ;"
^XMB(3.9,55,2,27935,0)="""RTN"",""IBCU"",151,0)"
^XMB(3.9,55,2,27936,0)=" ; If using attending/rendering secondary ID, don't do anything"
^XMB(3.9,55,2,27937,0)="""RTN"",""IBCU"",152,0)"
^XMB(3.9,55,2,27938,0)=" I $$FT^IBCEF(IBIFN)=2,$$GET1^DIQ(36,IBINS,4.06,""I"") G PRVNQ"
^XMB(3.9,55,2,27939,0)="""RTN"",""IBCU"",153,0)"
^XMB(3.9,55,2,27940,0)=" I $$FT^IBCEF(IBIFN)=3,$$GET1^DIQ(36,IBINS,4.08,""I"") G PRVNQ"
^XMB(3.9,55,2,27941,0)="""RTN"",""IBCU"",154,0)"
^XMB(3.9,55,2,27942,0)=" ;"
^XMB(3.9,55,2,27943,0)="""RTN"",""IBCU"",155,0)"
^XMB(3.9,55,2,27944,0)=" S IBX=$$FACNUM^IBCEP2B(IBIFN,COB)"
^XMB(3.9,55,2,27945,0)="""RTN"",""IBCU"",156,0)"
^XMB(3.9,55,2,27946,0)=" ;"
^XMB(3.9,55,2,27947,0)="""RTN"",""IBCU"",157,0)"
^XMB(3.9,55,2,27948,0)=" I IBX="""" S IBX=$$GET1^DIQ(350.9,1,1.05)"
^XMB(3.9,55,2,27949,0)="""RTN"",""IBCU"",158,0)"
^XMB(3.9,55,2,27950,0)=" ;"
^XMB(3.9,55,2,27951,0)="""RTN"",""IBCU"",159,0)"
^XMB(3.9,55,2,27952,0)="PRVNQ Q IBX"
^XMB(3.9,55,2,27953,0)="""RTN"",""IBCU"",160,0)"
^XMB(3.9,55,2,27954,0)=" ;"
^XMB(3.9,55,2,27955,0)="""RTN"",""IBCU"",161,0)"
^XMB(3.9,55,2,27956,0)="BF() ; Returns ien of billing fac primary id type"
^XMB(3.9,55,2,27957,0)="""RTN"",""IBCU"",162,0)"
^XMB(3.9,55,2,27958,0)=" N Z,IBX"
^XMB(3.9,55,2,27959,0)="""RTN"",""IBCU"",163,0)"
^XMB(3.9,55,2,27960,0)=" S IBX="""",Z=0 F  S Z=$O(^IBE(355.97,Z)) Q:'Z  I $P($G(^(Z,1)),U,9) S IBX=Z Q"
^XMB(3.9,55,2,27961,0)="""RTN"",""IBCU"",164,0)"
^XMB(3.9,55,2,27962,0)=" Q IBX"
^XMB(3.9,55,2,27963,0)="""RTN"",""IBCU"",165,0)"
^XMB(3.9,55,2,27964,0)=" ;"
^XMB(3.9,55,2,27965,0)="""RTN"",""IBCU"",166,0)"
^XMB(3.9,55,2,27966,0)="BILLPNS(IBIFN) ; Trigger Code that sets all Bill P/S/T Prov# and QUAL (399: .122,123,124,128,129,130)"
^XMB(3.9,55,2,27967,0)="""RTN"",""IBCU"",167,0)"
^XMB(3.9,55,2,27968,0)=" ; on Bill Form Type (399:.19)"
^XMB(3.9,55,2,27969,0)="""RTN"",""IBCU"",168,0)"
^XMB(3.9,55,2,27970,0)=" N IBDR"
^XMB(3.9,55,2,27971,0)="""RTN"",""IBCU"",169,0)"
^XMB(3.9,55,2,27972,0)=" ;"
^XMB(3.9,55,2,27973,0)="""RTN"",""IBCU"",170,0)"
^XMB(3.9,55,2,27974,0)=" I +$G(^DGCR(399,+$G(IBIFN),""I1"")) S IBDR(399,IBIFN_"","",122)=$$PRVNUM(IBIFN,"""",1),IBDR(399,IBIFN_"","",128)=$$PRVQUAL(IBIFN,"""",1)"
^XMB(3.9,55,2,27975,0)="""RTN"",""IBCU"",171,0)"
^XMB(3.9,55,2,27976,0)=" I +$G(^DGCR(399,+$G(IBIFN),""I2"")) S IBDR(399,IBIFN_"","",123)=$$PRVNUM(IBIFN,"""",2),IBDR(399,IBIFN_"","",129)=$$PRVQUAL(IBIFN,"""",2)"
^XMB(3.9,55,2,27977,0)="""RTN"",""IBCU"",172,0)"
^XMB(3.9,55,2,27978,0)=" I +$G(^DGCR(399,+$G(IBIFN),""I3"")) S IBDR(399,IBIFN_"","",124)=$$PRVNUM(IBIFN,"""",3),IBDR(399,IBIFN_"","",130)=$$PRVQUAL(IBIFN,"""",3)"
^XMB(3.9,55,2,27979,0)="""RTN"",""IBCU"",173,0)"
^XMB(3.9,55,2,27980,0)=" ;"
^XMB(3.9,55,2,27981,0)="""RTN"",""IBCU"",174,0)"
^XMB(3.9,55,2,27982,0)=" I $O(IBDR(0)) D FILE^DIE("""",""IBDR"")"
^XMB(3.9,55,2,27983,0)="""RTN"",""IBCU"",175,0)"
^XMB(3.9,55,2,27984,0)=" Q"
^XMB(3.9,55,2,27985,0)="""RTN"",""IBCU"",176,0)"
^XMB(3.9,55,2,27986,0)=" ;"
^XMB(3.9,55,2,27987,0)="""RTN"",""IBCU"",177,0)"
^XMB(3.9,55,2,27988,0)="PRVQUAL(IBIFN,IBINS,COB) ; Trigger code for Bill P/S/T Prov QUAL (399:128,129,130)"
^XMB(3.9,55,2,27989,0)="""RTN"",""IBCU"",178,0)"
^XMB(3.9,55,2,27990,0)=" ; on P/S/T Carrier (399: 101,102,103)"
^XMB(3.9,55,2,27991,0)="""RTN"",""IBCU"",179,0)"
^XMB(3.9,55,2,27992,0)=" ; returns the Provider ID QUALIFIER"
^XMB(3.9,55,2,27993,0)="""RTN"",""IBCU"",180,0)"
^XMB(3.9,55,2,27994,0)=" ;"
^XMB(3.9,55,2,27995,0)="""RTN"",""IBCU"",181,0)"
^XMB(3.9,55,2,27996,0)=" ; Input   IBIFN - bill ifn"
^XMB(3.9,55,2,27997,0)="""RTN"",""IBCU"",182,0)"
^XMB(3.9,55,2,27998,0)=" ;         IBINS - insurance company ifn (opt)"
^XMB(3.9,55,2,27999,0)="""RTN"",""IBCU"",183,0)"
^XMB(3.9,55,2,28000,0)=" ;         COB   - 1 for primary, 2 for secondary, 3 for tertiary"
^XMB(3.9,55,2,28001,0)="""RTN"",""IBCU"",184,0)"
^XMB(3.9,55,2,28002,0)=" ;"
^XMB(3.9,55,2,28003,0)="""RTN"",""IBCU"",185,0)"
^XMB(3.9,55,2,28004,0)=" N IBX,IBB0,IBBF,IBFT,Z,Z0"
^XMB(3.9,55,2,28005,0)="""RTN"",""IBCU"",186,0)"
^XMB(3.9,55,2,28006,0)=" S:'$G(COB) COB=1"
^XMB(3.9,55,2,28007,0)="""RTN"",""IBCU"",187,0)"
^XMB(3.9,55,2,28008,0)=" S IBX=$P($G(^DGCR(399,+$G(IBIFN),""M1"")),U,COB+9),IBB0=$G(^DGCR(399,+$G(IBIFN),0))"
^XMB(3.9,55,2,28009,0)="""RTN"",""IBCU"",188,0)"
^XMB(3.9,55,2,28010,0)=" I $G(IBINS)="""" S IBINS=+$G(^DGCR(399,+$G(IBIFN),""I""_COB))"
^XMB(3.9,55,2,28011,0)="""RTN"",""IBCU"",189,0)"
^XMB(3.9,55,2,28012,0)=" G:'IBINS PRVQUALQ"
^XMB(3.9,55,2,28013,0)="""RTN"",""IBCU"",190,0)"
^XMB(3.9,55,2,28014,0)=" ;"
^XMB(3.9,55,2,28015,0)="""RTN"",""IBCU"",191,0)"
^XMB(3.9,55,2,28016,0)=" ; If an MRA is being processed into an MRA secondary claim and the"
^XMB(3.9,55,2,28017,0)="""RTN"",""IBCU"",192,0)"
^XMB(3.9,55,2,28018,0)=" ; billing provider qualifier already exists, then leave it alone"
^XMB(3.9,55,2,28019,0)="""RTN"",""IBCU"",193,0)"
^XMB(3.9,55,2,28020,0)=" I $G(IBPRCOB),IBX'="""" G PRVQUALQ"
^XMB(3.9,55,2,28021,0)="""RTN"",""IBCU"",194,0)"
^XMB(3.9,55,2,28022,0)=" ;"
^XMB(3.9,55,2,28023,0)="""RTN"",""IBCU"",195,0)"
^XMB(3.9,55,2,28024,0)=" I +$G(IBIFN),COB N DA S DA=IBIFN I $$MCRACK^IBCBB3(+IBIFN,$P($G(^DGCR(399,+IBIFN,""TX"")),U,5),+COB) S IBX=$$FIND1^DIC(355.97,,""MX"",""MEDICARE PART A"") G PRVQUALQ"
^XMB(3.9,55,2,28025,0)="""RTN"",""IBCU"",196,0)"
^XMB(3.9,55,2,28026,0)=" ;"
^XMB(3.9,55,2,28027,0)="""RTN"",""IBCU"",197,0)"
^XMB(3.9,55,2,28028,0)=" ; Some Insurances require certain electronic plan types to have no secondary ID"
^XMB(3.9,55,2,28029,0)="""RTN"",""IBCU"",198,0)"
^XMB(3.9,55,2,28030,0)=" ; If this is the case, there is no qualifier"
^XMB(3.9,55,2,28031,0)="""RTN"",""IBCU"",199,0)"
^XMB(3.9,55,2,28032,0)=" N NOSEC S NOSEC=0"
^XMB(3.9,55,2,28033,0)="""RTN"",""IBCU"",200,0)"
^XMB(3.9,55,2,28034,0)=" I $D(^DIC(36,IBINS,13)),$G(IBIFN) D"
^XMB(3.9,55,2,28035,0)="""RTN"",""IBCU"",201,0)"
^XMB(3.9,55,2,28036,0)=" . N PLAN,PLANTYPE"
^XMB(3.9,55,2,28037,0)="""RTN"",""IBCU"",202,0)"
^XMB(3.9,55,2,28038,0)=" . S PLAN=$P($G(^DGCR(399,IBIFN,""I""_COB)),U,18) Q:'PLAN"
^XMB(3.9,55,2,28039,0)="""RTN"",""IBCU"",203,0)"
^XMB(3.9,55,2,28040,0)=" . S PLANTYPE=$P($G(^IBA(355.3,PLAN,0)),U,15) Q:'PLANTYPE"
^XMB(3.9,55,2,28041,0)="""RTN"",""IBCU"",204,0)"
^XMB(3.9,55,2,28042,0)=" . Q:'$D(^DIC(36,IBINS,13,""B"",PLANTYPE))"
^XMB(3.9,55,2,28043,0)="""RTN"",""IBCU"",205,0)"
^XMB(3.9,55,2,28044,0)=" . S NOSEC=1,IBX="""""
^XMB(3.9,55,2,28045,0)="""RTN"",""IBCU"",206,0)"
^XMB(3.9,55,2,28046,0)=" I NOSEC G PRVQUALQ"
^XMB(3.9,55,2,28047,0)="""RTN"",""IBCU"",207,0)"
^XMB(3.9,55,2,28048,0)=" ;"
^XMB(3.9,55,2,28049,0)="""RTN"",""IBCU"",208,0)"
^XMB(3.9,55,2,28050,0)=" ; Leave qualifer blank if sending REND/ATT ID"
^XMB(3.9,55,2,28051,0)="""RTN"",""IBCU"",209,0)"
^XMB(3.9,55,2,28052,0)=" I $$FT^IBCEF(IBIFN)=2,$$GET1^DIQ(36,IBINS,4.06,""I"") G PRVQUALQ"
^XMB(3.9,55,2,28053,0)="""RTN"",""IBCU"",210,0)"
^XMB(3.9,55,2,28054,0)=" I $$FT^IBCEF(IBIFN)=3,$$GET1^DIQ(36,IBINS,4.08,""I"") G PRVQUALQ"
^XMB(3.9,55,2,28055,0)="""RTN"",""IBCU"",211,0)"
^XMB(3.9,55,2,28056,0)=" ;"
^XMB(3.9,55,2,28057,0)="""RTN"",""IBCU"",212,0)"
^XMB(3.9,55,2,28058,0)=" S IBX=$$FACNUM^IBCEP2B(IBIFN,COB,1)"
^XMB(3.9,55,2,28059,0)="""RTN"",""IBCU"",213,0)"
^XMB(3.9,55,2,28060,0)=" ;"
^XMB(3.9,55,2,28061,0)="""RTN"",""IBCU"",214,0)"
^XMB(3.9,55,2,28062,0)=" I IBX="""",$$GET1^DIQ(350.9,1,1.05)=$P($G(^DGCR(399,IBIFN,""M1"")),U,COB+1) S IBX=$$FIND1^DIC(355.97,,""MX"",""1J"")"
^XMB(3.9,55,2,28063,0)="""RTN"",""IBCU"",215,0)"
^XMB(3.9,55,2,28064,0)=" ;"
^XMB(3.9,55,2,28065,0)="""RTN"",""IBCU"",216,0)"
^XMB(3.9,55,2,28066,0)="PRVQUALQ Q IBX"
^XMB(3.9,55,2,28067,0)="""RTN"",""IBCU1"")"
^XMB(3.9,55,2,28068,0)="0^80^B42846592^B25353879"
^XMB(3.9,55,2,28069,0)="""RTN"",""IBCU1"",1,0)"
^XMB(3.9,55,2,28070,0)="IBCU1 ;ALB/MRL - BILLING UTILITY ROUTINE (CONTINUED) ;01 JUN 88 12:00"
^XMB(3.9,55,2,28071,0)="""RTN"",""IBCU1"",2,0)"
^XMB(3.9,55,2,28072,0)=" ;;2.0;INTEGRATED BILLING;**27,52,106,138,51,182,210,266,309,320**;21-MAR-94"
^XMB(3.9,55,2,28073,0)="""RTN"",""IBCU1"",3,0)"
^XMB(3.9,55,2,28074,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,28075,0)="""RTN"",""IBCU1"",4,0)"
^XMB(3.9,55,2,28076,0)=" ;"
^XMB(3.9,55,2,28077,0)="""RTN"",""IBCU1"",5,0)"
^XMB(3.9,55,2,28078,0)=" ;MAP TO DGCRU1"
^XMB(3.9,55,2,28079,0)="""RTN"",""IBCU1"",6,0)"
^XMB(3.9,55,2,28080,0)=" ;"
^XMB(3.9,55,2,28081,0)="""RTN"",""IBCU1"",7,0)"
^XMB(3.9,55,2,28082,0)=" ;procedure doesn't appear to be used (6/4/93), if it is used, what for??"
^XMB(3.9,55,2,28083,0)="""RTN"",""IBCU1"",8,0)"
^XMB(3.9,55,2,28084,0)=" ;where would multiple provider numbers comde from?  ARH"
^XMB(3.9,55,2,28085,0)="""RTN"",""IBCU1"",9,0)"
^XMB(3.9,55,2,28086,0)=" ;BCH    ;Blue Cross/Shield Help"
^XMB(3.9,55,2,28087,0)="""RTN"",""IBCU1"",10,0)"
^XMB(3.9,55,2,28088,0)=" W ! S IB01=$P($G(^IBE(350.9,1,1)),""^"",6)"
^XMB(3.9,55,2,28089,0)="""RTN"",""IBCU1"",11,0)"
^XMB(3.9,55,2,28090,0)=" I IB01]"""" W ""CHOOSE FROM"",!!?4,""1 - "",$P(IB01,""^"",6) F IB00=2,3 I $P(IB01,""^"",$S(IB00=2:14,1:15))]"""" W !?4,IB00,"" - "",$P(IB01,""^"",$S(IB00=2:14,1:15))"
^XMB(3.9,55,2,28091,0)="""RTN"",""IBCU1"",12,0)"
^XMB(3.9,55,2,28092,0)=" W:IB01']"""" ""NO BLUE CROSS/SHIELD PROVIDER NUMBERS IDENTIFIED TO SELECT FROM!"" W ! W:IB01]"""" !,""OR "" W ""ENTER BLUE CROSS/SHIELD PROVIDER # (BETWEEN 3-13 CHARACTERS)"",! K IB00,IB01 Q"
^XMB(3.9,55,2,28093,0)="""RTN"",""IBCU1"",13,0)"
^XMB(3.9,55,2,28094,0)=" ;"
^XMB(3.9,55,2,28095,0)="""RTN"",""IBCU1"",14,0)"
^XMB(3.9,55,2,28096,0)="RCD ;Revenue Code Display"
^XMB(3.9,55,2,28097,0)="""RTN"",""IBCU1"",15,0)"
^XMB(3.9,55,2,28098,0)=" Q:'$D(^DGCR(399,IBIFN,""RC""))"
^XMB(3.9,55,2,28099,0)="""RTN"",""IBCU1"",16,0)"
^XMB(3.9,55,2,28100,0)=" W @IOF,!,""Revenue Code Listing"",?34,""Units"",?45,""Charge"" W:$$FT^IBCEF(IBIFN)=3 ?56,""Non-Cov"""
^XMB(3.9,55,2,28101,0)="""RTN"",""IBCU1"",17,0)"
^XMB(3.9,55,2,28102,0)=" S DGIFN=0 F IBI=0:0 S DGIFN=$O(^DGCR(399,IBIFN,""RC"",DGIFN)) Q:'DGIFN  I $D(^DGCR(399,IBIFN,""RC"",DGIFN,0)) S Z=^(0) D DISRC"
^XMB(3.9,55,2,28103,0)="""RTN"",""IBCU1"",18,0)"
^XMB(3.9,55,2,28104,0)=" W !"
^XMB(3.9,55,2,28105,0)="""RTN"",""IBCU1"",19,0)"
^XMB(3.9,55,2,28106,0)=" I $D(DIC(0)) S DIC(0)=DIC(0)_""N"""
^XMB(3.9,55,2,28107,0)="""RTN"",""IBCU1"",20,0)"
^XMB(3.9,55,2,28108,0)=" Q"
^XMB(3.9,55,2,28109,0)="""RTN"",""IBCU1"",21,0)"
^XMB(3.9,55,2,28110,0)="DISRC N Z0 W !?1,DGIFN,?4,$P(^DGCR(399.2,+Z,0),""^""),""-"",$E($P(^DGCR(399.2,+Z,0),""^"",2),1,19)"
^XMB(3.9,55,2,28111,0)="""RTN"",""IBCU1"",22,0)"
^XMB(3.9,55,2,28112,0)=" I +$P(Z,U,6) W ?28,$P($$CPT^ICPTCOD(+$P(Z,U,6)),U,2)"
^XMB(3.9,55,2,28113,0)="""RTN"",""IBCU1"",23,0)"
^XMB(3.9,55,2,28114,0)=" W ?36,$P(Z,""^"",3),?40 S X=$P(Z,""^"",2),X2=""2$"" D COMMA^%DTC W X"
^XMB(3.9,55,2,28115,0)="""RTN"",""IBCU1"",24,0)"
^XMB(3.9,55,2,28116,0)=" I $$FT^IBCEF(IBIFN)=3,$P(Z,U,9)'="""" S X=$P(Z,U,9),X2=""2$"" D COMMA^%DTC W ?51,X"
^XMB(3.9,55,2,28117,0)="""RTN"",""IBCU1"",25,0)"
^XMB(3.9,55,2,28118,0)=" I $D(^DGCR(399.1,+$P(Z,""^"",5),0)) W ?64,$E($P(^(0),""^""),1,15)"
^XMB(3.9,55,2,28119,0)="""RTN"",""IBCU1"",26,0)"
^XMB(3.9,55,2,28120,0)=" I $S($P(Z,U,15):1,1:$P(Z,U,10)=3) D"
^XMB(3.9,55,2,28121,0)="""RTN"",""IBCU1"",27,0)"
^XMB(3.9,55,2,28122,0)=" . W !,?5,""(Rx: "",$S($P(Z,U,11):$P($G(^IBA(362.4,$P(Z,U,11),0)),U),1:""Link Missing""),""  Procedure ""_$S($P(Z,U,15):""#""_$P(Z,U,15)_"" ""_$$CPTNM^IBCRBH1(IBIFN,4,$P(Z,U,15)),1:""Link Missing""),"")"""
^XMB(3.9,55,2,28123,0)="""RTN"",""IBCU1"",28,0)"
^XMB(3.9,55,2,28124,0)=" Q"
^XMB(3.9,55,2,28125,0)="""RTN"",""IBCU1"",29,0)"
^XMB(3.9,55,2,28126,0)=" ;"
^XMB(3.9,55,2,28127,0)="""RTN"",""IBCU1"",30,0)"
^XMB(3.9,55,2,28128,0)="RVCPRC(IBIFN,IBD0) ; returns 1 if CHAMPVA rate type + 2 if HCFA 1500, 0 otherwise"
^XMB(3.9,55,2,28129,0)="""RTN"",""IBCU1"",31,0)"
^XMB(3.9,55,2,28130,0)=" ; IBD0 - zero node of bill if available, not required"
^XMB(3.9,55,2,28131,0)="""RTN"",""IBCU1"",32,0)"
^XMB(3.9,55,2,28132,0)=" N X S X=0"
^XMB(3.9,55,2,28133,0)="""RTN"",""IBCU1"",33,0)"
^XMB(3.9,55,2,28134,0)=" I $G(IBD0)="""" S IBD0=$G(^DGCR(399,+$G(IBIFN),0))"
^XMB(3.9,55,2,28135,0)="""RTN"",""IBCU1"",34,0)"
^XMB(3.9,55,2,28136,0)=" I $P($G(^DGCR(399.3,+$P(IBD0,U,7),0)),U,1)=""CHAMPVA"" S X=X+1"
^XMB(3.9,55,2,28137,0)="""RTN"",""IBCU1"",35,0)"
^XMB(3.9,55,2,28138,0)=" I $P(IBD0,U,19)=2 S X=X+2"
^XMB(3.9,55,2,28139,0)="""RTN"",""IBCU1"",36,0)"
^XMB(3.9,55,2,28140,0)=" Q X"
^XMB(3.9,55,2,28141,0)="""RTN"",""IBCU1"",37,0)"
^XMB(3.9,55,2,28142,0)=" ;"
^XMB(3.9,55,2,28143,0)="""RTN"",""IBCU1"",38,0)"
^XMB(3.9,55,2,28144,0)="ORDNXT(IFN) ;CALLED BY TRIGGER ON (362.3,.02) THAT SETS DX PRINT ORDER (362.3,.03),"
^XMB(3.9,55,2,28145,0)="""RTN"",""IBCU1"",39,0)"
^XMB(3.9,55,2,28146,0)=" ;returns the highest print order used on the bill plus 3, returns 3 if no existing print order"
^XMB(3.9,55,2,28147,0)="""RTN"",""IBCU1"",40,0)"
^XMB(3.9,55,2,28148,0)=" ;used for the default print order so that dx's can be printed in order of entry without any input by the user,"
^XMB(3.9,55,2,28149,0)="""RTN"",""IBCU1"",41,0)"
^XMB(3.9,55,2,28150,0)=" ;3 is added to allow spaces for additions, changes, moves"
^XMB(3.9,55,2,28151,0)="""RTN"",""IBCU1"",42,0)"
^XMB(3.9,55,2,28152,0)=" N X,Y S X="""" I $D(^DGCR(399,+$G(IFN),0)) S X=3,Y=0 F  S Y=$O(^IBA(362.3,""AO"",+IFN,Y)) Q:'Y  S X=Y+3"
^XMB(3.9,55,2,28153,0)="""RTN"",""IBCU1"",43,0)"
^XMB(3.9,55,2,28154,0)=" Q X"
^XMB(3.9,55,2,28155,0)="""RTN"",""IBCU1"",44,0)"
^XMB(3.9,55,2,28156,0)=" ;"
^XMB(3.9,55,2,28157,0)="""RTN"",""IBCU1"",45,0)"
^XMB(3.9,55,2,28158,0)="ORDDUP(ORD,DIFN) ;returns true if print order ORD is already defined for a bill (not same entry)"
^XMB(3.9,55,2,28159,0)="""RTN"",""IBCU1"",46,0)"
^XMB(3.9,55,2,28160,0)=" N IBX,IBY S IBY=0"
^XMB(3.9,55,2,28161,0)="""RTN"",""IBCU1"",47,0)"
^XMB(3.9,55,2,28162,0)=" I +$G(ORD) S IBX=$G(^IBA(362.3,+$G(DIFN),0)) I +IBX,+$P(IBX,U,3)'=ORD,$D(^IBA(362.3,""AO"",+$P(IBX,U,2),+ORD)) S IBY=1"
^XMB(3.9,55,2,28163,0)="""RTN"",""IBCU1"",48,0)"
^XMB(3.9,55,2,28164,0)=" Q IBY"
^XMB(3.9,55,2,28165,0)="""RTN"",""IBCU1"",49,0)"
^XMB(3.9,55,2,28166,0)=" ;"
^XMB(3.9,55,2,28167,0)="""RTN"",""IBCU1"",50,0)"
^XMB(3.9,55,2,28168,0)="DXDUP(DX,DIFN,IFN) ;returns true if DX is already defined for a bill (not same entry)"
^XMB(3.9,55,2,28169,0)="""RTN"",""IBCU1"",51,0)"
^XMB(3.9,55,2,28170,0)=" ;either DIFN or IFN can be passed, both are not needed, DIFN is needed during edit so can reenter the same dx"
^XMB(3.9,55,2,28171,0)="""RTN"",""IBCU1"",52,0)"
^XMB(3.9,55,2,28172,0)=" N IBX,IBY S IBY=0 I +$G(DX),'$G(IFN) S IBX=$G(^IBA(362.3,+$G(DIFN),0)),IFN=+$P(IBX,U,2)"
^XMB(3.9,55,2,28173,0)="""RTN"",""IBCU1"",53,0)"
^XMB(3.9,55,2,28174,0)=" I +$G(DX),$D(^IBA(362.3,""AIFN""_+IFN,+DX)),$O(^IBA(362.3,""AIFN""_+IFN,+DX,0))'=+$G(DIFN) S IBY=1"
^XMB(3.9,55,2,28175,0)="""RTN"",""IBCU1"",54,0)"
^XMB(3.9,55,2,28176,0)=" Q IBY"
^XMB(3.9,55,2,28177,0)="""RTN"",""IBCU1"",55,0)"
^XMB(3.9,55,2,28178,0)=" ;"
^XMB(3.9,55,2,28179,0)="""RTN"",""IBCU1"",56,0)"
^XMB(3.9,55,2,28180,0)="DXBSTAT(DIFN,IFN) ;returns a diagnosis' bill status (either DIFN or IFN can be passed, both are not needed)"
^XMB(3.9,55,2,28181,0)="""RTN"",""IBCU1"",57,0)"
^XMB(3.9,55,2,28182,0)=" N IBX,IBY I '$G(IFN) S IBX=$G(^IBA(362.3,+$G(DIFN),0)),IFN=+$P(IBX,U,2)"
^XMB(3.9,55,2,28183,0)="""RTN"",""IBCU1"",58,0)"
^XMB(3.9,55,2,28184,0)=" S IBY=+$P($G(^DGCR(399,+IFN,0)),U,13)"
^XMB(3.9,55,2,28185,0)="""RTN"",""IBCU1"",59,0)"
^XMB(3.9,55,2,28186,0)=" Q IBY"
^XMB(3.9,55,2,28187,0)="""RTN"",""IBCU1"",60,0)"
^XMB(3.9,55,2,28188,0)=" ;"
^XMB(3.9,55,2,28189,0)="""RTN"",""IBCU1"",61,0)"
^XMB(3.9,55,2,28190,0)="RXSTAT(DRUG,PIFN,FILLDT) ; returns status/definition of rx"
^XMB(3.9,55,2,28191,0)="""RTN"",""IBCU1"",62,0)"
^XMB(3.9,55,2,28192,0)=" ; returns: ORIGINAL ^ RELEASED/RETURNED TO STOCK ^ DRUG DEA"
^XMB(3.9,55,2,28193,0)="""RTN"",""IBCU1"",63,0)"
^XMB(3.9,55,2,28194,0)=" N IBX,IBY,IBZ,IBLN S IBLN="""",DRUG=+$G(DRUG),PIFN=+$G(PIFN),FILLDT=+$G(FILLDT)"
^XMB(3.9,55,2,28195,0)="""RTN"",""IBCU1"",64,0)"
^XMB(3.9,55,2,28196,0)=" ;"
^XMB(3.9,55,2,28197,0)="""RTN"",""IBCU1"",65,0)"
^XMB(3.9,55,2,28198,0)=" S IBX=$G(^PSRX(PIFN,2)),IBZ="""" I IBX'="""",$P(IBX,U,2)=$G(FILLDT) D  I IBZ'="""" S $P(IBLN,U,2)=IBZ"
^XMB(3.9,55,2,28199,0)="""RTN"",""IBCU1"",66,0)"
^XMB(3.9,55,2,28200,0)=" . S IBLN=""ORG"""
^XMB(3.9,55,2,28201,0)="""RTN"",""IBCU1"",67,0)"
^XMB(3.9,55,2,28202,0)=" . ;I +$G(^PS(59.7,1,49.99))<6 Q"
^XMB(3.9,55,2,28203,0)="""RTN"",""IBCU1"",68,0)"
^XMB(3.9,55,2,28204,0)=" . I '$P(IBX,U,13) S IBZ=""NR"""
^XMB(3.9,55,2,28205,0)="""RTN"",""IBCU1"",69,0)"
^XMB(3.9,55,2,28206,0)=" . I +$P(IBX,U,15) S:IBZ'="""" IBZ=IBZ_""-"" S IBZ=IBZ_""RTS"""
^XMB(3.9,55,2,28207,0)="""RTN"",""IBCU1"",70,0)"
^XMB(3.9,55,2,28208,0)=" ;"
^XMB(3.9,55,2,28209,0)="""RTN"",""IBCU1"",71,0)"
^XMB(3.9,55,2,28210,0)=" I IBLN="""" S IBX=$O(^PSRX(PIFN,1,""B"",FILLDT,0)),IBX=$G(^PSRX(PIFN,1,+IBX,0)),IBZ="""" I IBX'="""" D  I IBZ'="""" S $P(IBLN,U,2)=IBZ"
^XMB(3.9,55,2,28211,0)="""RTN"",""IBCU1"",72,0)"
^XMB(3.9,55,2,28212,0)=" . ;I +$G(^PS(59.7,1,49.99))<6 Q"
^XMB(3.9,55,2,28213,0)="""RTN"",""IBCU1"",73,0)"
^XMB(3.9,55,2,28214,0)=" . I '$P(IBX,U,18) S IBZ=""NR"""
^XMB(3.9,55,2,28215,0)="""RTN"",""IBCU1"",74,0)"
^XMB(3.9,55,2,28216,0)=" . I +$P(IBX,U,16) S:IBZ'="""" IBZ=IBZ_""-"" S IBZ=IBZ_""RTS"""
^XMB(3.9,55,2,28217,0)="""RTN"",""IBCU1"",75,0)"
^XMB(3.9,55,2,28218,0)=" ;"
^XMB(3.9,55,2,28219,0)="""RTN"",""IBCU1"",76,0)"
^XMB(3.9,55,2,28220,0)=" D ZERO^IBRXUTL(DRUG)"
^XMB(3.9,55,2,28221,0)="""RTN"",""IBCU1"",77,0)"
^XMB(3.9,55,2,28222,0)=" S IBX=$G(^TMP($J,""IBDRUG"",0)) I IBX'="""" S IBY=$G(^TMP($J,""IBDRUG"",DRUG,3)),IBZ="""" D  I IBZ'="""" S $P(IBLN,U,3)=IBZ"
^XMB(3.9,55,2,28223,0)="""RTN"",""IBCU1"",78,0)"
^XMB(3.9,55,2,28224,0)=" . I IBY[""9"" S IBZ=""OTC"""
^XMB(3.9,55,2,28225,0)="""RTN"",""IBCU1"",79,0)"
^XMB(3.9,55,2,28226,0)=" . I IBY[""I"" S:IBZ'="""" IBZ=IBZ_""-"" S IBZ=IBZ_""INV"""
^XMB(3.9,55,2,28227,0)="""RTN"",""IBCU1"",80,0)"
^XMB(3.9,55,2,28228,0)=" . I IBY[""S"" S:IBZ'="""" IBZ=IBZ_""-"" S IBZ=IBZ_""SUP"""
^XMB(3.9,55,2,28229,0)="""RTN"",""IBCU1"",81,0)"
^XMB(3.9,55,2,28230,0)=" K ^TMP($J,""IBDRUG"")"
^XMB(3.9,55,2,28231,0)="""RTN"",""IBCU1"",82,0)"
^XMB(3.9,55,2,28232,0)=" Q IBLN"
^XMB(3.9,55,2,28233,0)="""RTN"",""IBCU1"",83,0)"
^XMB(3.9,55,2,28234,0)=" ;"
^XMB(3.9,55,2,28235,0)="""RTN"",""IBCU1"",84,0)"
^XMB(3.9,55,2,28236,0)="PRVLIC(NPIFN,IBDT,ARR,STIFN) ; returns the Provider License data from the New Person file active on a date"
^XMB(3.9,55,2,28237,0)="""RTN"",""IBCU1"",85,0)"
^XMB(3.9,55,2,28238,0)=" ; Input:   NPIFN = pointer to file 200,              IBDT = date to check (if none passed then all returned)"
^XMB(3.9,55,2,28239,0)="""RTN"",""IBCU1"",86,0)"
^XMB(3.9,55,2,28240,0)=" ;          ARR = array pass by reference (optional), STIFN = state to return as value of function (optional)"
^XMB(3.9,55,2,28241,0)="""RTN"",""IBCU1"",87,0)"
^XMB(3.9,55,2,28242,0)=" ; Output:  ARR(X) = license state (ifn) ^ license ^ expiration date (200,541)"
^XMB(3.9,55,2,28243,0)="""RTN"",""IBCU1"",88,0)"
^XMB(3.9,55,2,28244,0)=" ;          return value = license data of state requested or if no state passed in then count found"
^XMB(3.9,55,2,28245,0)="""RTN"",""IBCU1"",89,0)"
^XMB(3.9,55,2,28246,0)=" N IBX,IBY,IBLN,IBCNT S IBX=0,IBCNT=0 K ARR"
^XMB(3.9,55,2,28247,0)="""RTN"",""IBCU1"",90,0)"
^XMB(3.9,55,2,28248,0)=" I +$G(NPIFN) S IBY=0 F  S IBY=$O(^VA(200,NPIFN,""PS1"",IBY)) Q:'IBY  D"
^XMB(3.9,55,2,28249,0)="""RTN"",""IBCU1"",91,0)"
^XMB(3.9,55,2,28250,0)=" . S IBLN=$G(^VA(200,NPIFN,""PS1"",IBY,0))"
^XMB(3.9,55,2,28251,0)="""RTN"",""IBCU1"",92,0)"
^XMB(3.9,55,2,28252,0)=" . I +$G(IBDT),+$P(IBLN,U,3),$P(IBLN,U,3)<IBDT Q"
^XMB(3.9,55,2,28253,0)="""RTN"",""IBCU1"",93,0)"
^XMB(3.9,55,2,28254,0)=" . I +$G(STIFN),+STIFN=+IBLN S IBX=IBLN"
^XMB(3.9,55,2,28255,0)="""RTN"",""IBCU1"",94,0)"
^XMB(3.9,55,2,28256,0)=" . S IBCNT=IBCNT+1,ARR(IBCNT)=IBLN"
^XMB(3.9,55,2,28257,0)="""RTN"",""IBCU1"",95,0)"
^XMB(3.9,55,2,28258,0)=" S ARR=IBCNT I '$G(STIFN) S IBX=IBCNT"
^XMB(3.9,55,2,28259,0)="""RTN"",""IBCU1"",96,0)"
^XMB(3.9,55,2,28260,0)=" Q IBX"
^XMB(3.9,55,2,28261,0)="""RTN"",""IBCU1"",97,0)"
^XMB(3.9,55,2,28262,0)=" ;"
^XMB(3.9,55,2,28263,0)="""RTN"",""IBCU1"",98,0)"
^XMB(3.9,55,2,28264,0)="DELPR(IB,IBX) ; Deletes the corresponding RX proc when the RX pointer is"
^XMB(3.9,55,2,28265,0)="""RTN"",""IBCU1"",99,0)"
^XMB(3.9,55,2,28266,0)=" ; deleted"
^XMB(3.9,55,2,28267,0)="""RTN"",""IBCU1"",100,0)"
^XMB(3.9,55,2,28268,0)=" ; IB = the ien of the bill in file 399"
^XMB(3.9,55,2,28269,0)="""RTN"",""IBCU1"",101,0)"
^XMB(3.9,55,2,28270,0)=" ; IBX = the ien of the entry in the procedure multiple to be deleted"
^XMB(3.9,55,2,28271,0)="""RTN"",""IBCU1"",102,0)"
^XMB(3.9,55,2,28272,0)=" ;"
^XMB(3.9,55,2,28273,0)="""RTN"",""IBCU1"",103,0)"
^XMB(3.9,55,2,28274,0)=" N DA,DIK,X,Y"
^XMB(3.9,55,2,28275,0)="""RTN"",""IBCU1"",104,0)"
^XMB(3.9,55,2,28276,0)=" S DA(1)=IB,DA=IBX"
^XMB(3.9,55,2,28277,0)="""RTN"",""IBCU1"",105,0)"
^XMB(3.9,55,2,28278,0)=" I $D(^DGCR(399,DA(1),""CP"",DA,0)) S DIK=""^DGCR(399,""_DA(1)_"",""""CP"""","" D ^DIK"
^XMB(3.9,55,2,28279,0)="""RTN"",""IBCU1"",106,0)"
^XMB(3.9,55,2,28280,0)=" Q"
^XMB(3.9,55,2,28281,0)="""RTN"",""IBCU1"",107,0)"
^XMB(3.9,55,2,28282,0)=" ;"
^XMB(3.9,55,2,28283,0)="""RTN"",""IBCU1"",108,0)"
^XMB(3.9,55,2,28284,0)="MODHLP(DA) ; Executable modifier help 399.042  .14"
^XMB(3.9,55,2,28285,0)="""RTN"",""IBCU1"",109,0)"
^XMB(3.9,55,2,28286,0)=" ; DA = iens of the current entry DA(1) = file 399 ien"
^XMB(3.9,55,2,28287,0)="""RTN"",""IBCU1"",110,0)"
^XMB(3.9,55,2,28288,0)=" ;                                DA    = file 399.042 ien"
^XMB(3.9,55,2,28289,0)="""RTN"",""IBCU1"",111,0)"
^XMB(3.9,55,2,28290,0)=" N Z,IBZ,DIC,IBDATE"
^XMB(3.9,55,2,28291,0)="""RTN"",""IBCU1"",112,0)"
^XMB(3.9,55,2,28292,0)=" S IBDATE=$$BDATE^IBACSV(+$G(DA(1))) ; The date of service"
^XMB(3.9,55,2,28293,0)="""RTN"",""IBCU1"",113,0)"
^XMB(3.9,55,2,28294,0)=" I $P($G(^DGCR(399,+$G(DA(1)),""RC"",+$G(DA),0)),U,14)'="""" S Z=$P(^(0),U,14) D"
^XMB(3.9,55,2,28295,0)="""RTN"",""IBCU1"",114,0)"
^XMB(3.9,55,2,28296,0)=" . N Q"
^XMB(3.9,55,2,28297,0)="""RTN"",""IBCU1"",115,0)"
^XMB(3.9,55,2,28298,0)=" . S Q=1"
^XMB(3.9,55,2,28299,0)="""RTN"",""IBCU1"",116,0)"
^XMB(3.9,55,2,28300,0)=" . S IBZ(1)=""Current modifier""_$S($P(Z,"";"",2)'="""":""s are:"",1:""is:"")"
^XMB(3.9,55,2,28301,0)="""RTN"",""IBCU1"",117,0)"
^XMB(3.9,55,2,28302,0)=" . I $P(Z,"";"")'="""" S Q=Q+1,IBZ(Q)=""  ""_$P(Z,"";"")_""  ""_$P($$MOD^ICPTMOD($P(Z,"";""),""E"",IBDATE),U,3)"
^XMB(3.9,55,2,28303,0)="""RTN"",""IBCU1"",118,0)"
^XMB(3.9,55,2,28304,0)=" . I $P(Z,"";"",2)'="""" S Q=Q+1,IBZ(Q)=""  ""_$P(Z,"";"",2)_""  ""_$P($$MOD^ICPTMOD($P(Z,"";"",2),""E"",IBDATE),U,3)"
^XMB(3.9,55,2,28305,0)="""RTN"",""IBCU1"",119,0)"
^XMB(3.9,55,2,28306,0)=" . S Q=Q+1,IBZ(Q)="" """
^XMB(3.9,55,2,28307,0)="""RTN"",""IBCU1"",120,0)"
^XMB(3.9,55,2,28308,0)=" . D EN^DDIOL(.IBZ)"
^XMB(3.9,55,2,28309,0)="""RTN"",""IBCU1"",121,0)"
^XMB(3.9,55,2,28310,0)=" ;"
^XMB(3.9,55,2,28311,0)="""RTN"",""IBCU1"",122,0)"
^XMB(3.9,55,2,28312,0)=" S DIC=""^DIC(81.3,"",DIC(0)=""E"""
^XMB(3.9,55,2,28313,0)="""RTN"",""IBCU1"",123,0)"
^XMB(3.9,55,2,28314,0)=" S DIC(""S"")=""I $$MODP^ICPTMOD($P($G(^DGCR(399,DA(1),""""RC"""",DA,0)),U,6),Y,""""I"""",IBDATE)>0"""
^XMB(3.9,55,2,28315,0)="""RTN"",""IBCU1"",124,0)"
^XMB(3.9,55,2,28316,0)=" S DIC(""W"")=""W ?14,$P($$MOD^ICPTMOD(Y,""""I"""",IBDATE),U,3)"""
^XMB(3.9,55,2,28317,0)="""RTN"",""IBCU1"",125,0)"
^XMB(3.9,55,2,28318,0)=" D ^DIC"
^XMB(3.9,55,2,28319,0)="""RTN"",""IBCU1"",126,0)"
^XMB(3.9,55,2,28320,0)=" Q"
^XMB(3.9,55,2,28321,0)="""RTN"",""IBCU1"",127,0)"
^XMB(3.9,55,2,28322,0)=" ;"
^XMB(3.9,55,2,28323,0)="""RTN"",""IBCU1"",128,0)"
^XMB(3.9,55,2,28324,0)="QMED(IBRTN,IBIFN) ; DSS QuadraMed Interface: DSS/QuadraMed Available"
^XMB(3.9,55,2,28325,0)="""RTN"",""IBCU1"",129,0)"
^XMB(3.9,55,2,28326,0)=" ; return 1 if QuadraMed Interface is On and available for the type of bill"
^XMB(3.9,55,2,28327,0)="""RTN"",""IBCU1"",130,0)"
^XMB(3.9,55,2,28328,0)=" ; - routine must exist on the system (interface is 'On')"
^XMB(3.9,55,2,28329,0)="""RTN"",""IBCU1"",131,0)"
^XMB(3.9,55,2,28330,0)=" ; Input: IBRTN = tag^routine, if it exists then Interface is 'On'"
^XMB(3.9,55,2,28331,0)="""RTN"",""IBCU1"",132,0)"
^XMB(3.9,55,2,28332,0)=" ;        IBIFN = Bill IFN, bill to check if appropriate for sending to QuadraMed"
^XMB(3.9,55,2,28333,0)="""RTN"",""IBCU1"",133,0)"
^XMB(3.9,55,2,28334,0)=" ;"
^XMB(3.9,55,2,28335,0)="""RTN"",""IBCU1"",134,0)"
^XMB(3.9,55,2,28336,0)=" N IBON S IBON=0"
^XMB(3.9,55,2,28337,0)="""RTN"",""IBCU1"",135,0)"
^XMB(3.9,55,2,28338,0)=" I +$G(IBIFN),$G(IBRTN)'="""",$T(@IBRTN)'="""" S IBON=1"
^XMB(3.9,55,2,28339,0)="""RTN"",""IBCU1"",136,0)"
^XMB(3.9,55,2,28340,0)=" Q IBON"
^XMB(3.9,55,2,28341,0)="""RTN"",""IBCU1"",137,0)"
^XMB(3.9,55,2,28342,0)=" ;"
^XMB(3.9,55,2,28343,0)="""RTN"",""IBCU1"",138,0)"
^XMB(3.9,55,2,28344,0)="ATTREND(IBIFN,IBIFN1,FIELD) ; This function is called from Mumps Cross References in the claim file 399 and "
^XMB(3.9,55,2,28345,0)="""RTN"",""IBCU1"",139,0)"
^XMB(3.9,55,2,28346,0)=" ; also the PROVIDER subfile 399.0222."
^XMB(3.9,55,2,28347,0)="""RTN"",""IBCU1"",140,0)"
^XMB(3.9,55,2,28348,0)=" ;"
^XMB(3.9,55,2,28349,0)="""RTN"",""IBCU1"",141,0)"
^XMB(3.9,55,2,28350,0)=" ; IBIFN = IEN to claim file"
^XMB(3.9,55,2,28351,0)="""RTN"",""IBCU1"",142,0)"
^XMB(3.9,55,2,28352,0)=" ; IBIFN1 = IEN to provider sub-file in claim file"
^XMB(3.9,55,2,28353,0)="""RTN"",""IBCU1"",143,0)"
^XMB(3.9,55,2,28354,0)=" ; FIELD = Field in sub-file being modified (the triggering event).  If field has no value, all 6 fields are"
^XMB(3.9,55,2,28355,0)="""RTN"",""IBCU1"",144,0)"
^XMB(3.9,55,2,28356,0)=" ; possibly updated"
^XMB(3.9,55,2,28357,0)="""RTN"",""IBCU1"",145,0)"
^XMB(3.9,55,2,28358,0)=" ;  "
^XMB(3.9,55,2,28359,0)="""RTN"",""IBCU1"",146,0)"
^XMB(3.9,55,2,28360,0)=" ; The following fields are the ""triggering"" events"
^XMB(3.9,55,2,28361,0)="""RTN"",""IBCU1"",147,0)"
^XMB(3.9,55,2,28362,0)=" ; File 399"
^XMB(3.9,55,2,28363,0)="""RTN"",""IBCU1"",148,0)"
^XMB(3.9,55,2,28364,0)=" ; #19 FORM TYPE - This triggers all 6 fields (122, 123, 124, 128, 129, 130)."
^XMB(3.9,55,2,28365,0)="""RTN"",""IBCU1"",149,0)"
^XMB(3.9,55,2,28366,0)=" ; "
^XMB(3.9,55,2,28367,0)="""RTN"",""IBCU1"",150,0)"
^XMB(3.9,55,2,28368,0)=" ; Sub-File 399.0222"
^XMB(3.9,55,2,28369,0)="""RTN"",""IBCU1"",151,0)"
^XMB(3.9,55,2,28370,0)=" ; #.05 PRIMARY INS CO ID NUMBER triggers 122"
^XMB(3.9,55,2,28371,0)="""RTN"",""IBCU1"",152,0)"
^XMB(3.9,55,2,28372,0)=" ; #.06 SECONDARY INS CO ID NUMBER triggers 123"
^XMB(3.9,55,2,28373,0)="""RTN"",""IBCU1"",153,0)"
^XMB(3.9,55,2,28374,0)=" ; #.07 TERTIARY INS CO ID NUMBER triggers 124"
^XMB(3.9,55,2,28375,0)="""RTN"",""IBCU1"",154,0)"
^XMB(3.9,55,2,28376,0)=" ; #.12 PRIM INS PROVIDER ID TYPE triggers 128"
^XMB(3.9,55,2,28377,0)="""RTN"",""IBCU1"",155,0)"
^XMB(3.9,55,2,28378,0)=" ; #.13 SEC INS PROVIDER ID TYPE triggers 129"
^XMB(3.9,55,2,28379,0)="""RTN"",""IBCU1"",156,0)"
^XMB(3.9,55,2,28380,0)=" ; #.14 TERT INS PROVIDER ID TYPE triggers 130"
^XMB(3.9,55,2,28381,0)="""RTN"",""IBCU1"",157,0)"
^XMB(3.9,55,2,28382,0)=" ; "
^XMB(3.9,55,2,28383,0)="""RTN"",""IBCU1"",158,0)"
^XMB(3.9,55,2,28384,0)=" ; The following fields are the ones being ""triggered"""
^XMB(3.9,55,2,28385,0)="""RTN"",""IBCU1"",159,0)"
^XMB(3.9,55,2,28386,0)=" ; #122 PRIMARY PROVIDER #"
^XMB(3.9,55,2,28387,0)="""RTN"",""IBCU1"",160,0)"
^XMB(3.9,55,2,28388,0)=" ; #123 SECONDARY PROVIDER #"
^XMB(3.9,55,2,28389,0)="""RTN"",""IBCU1"",161,0)"
^XMB(3.9,55,2,28390,0)=" ; #124 TERTIARY PROVIDER #"
^XMB(3.9,55,2,28391,0)="""RTN"",""IBCU1"",162,0)"
^XMB(3.9,55,2,28392,0)=" ; #128 PRIMARY ID QUALIFER"
^XMB(3.9,55,2,28393,0)="""RTN"",""IBCU1"",163,0)"
^XMB(3.9,55,2,28394,0)=" ; #129 SECONDARY ID QUALIFIER"
^XMB(3.9,55,2,28395,0)="""RTN"",""IBCU1"",164,0)"
^XMB(3.9,55,2,28396,0)=" ; #130 TERTIARY ID QUALIFIER"
^XMB(3.9,55,2,28397,0)="""RTN"",""IBCU1"",165,0)"
^XMB(3.9,55,2,28398,0)=" ;"
^XMB(3.9,55,2,28399,0)="""RTN"",""IBCU1"",166,0)"
^XMB(3.9,55,2,28400,0)=" Q:$G(IBPRCOB)  ; this is set when creating an MRA scondary claim.  Don't want to be changing the data on"
^XMB(3.9,55,2,28401,0)="""RTN"",""IBCU1"",167,0)"
^XMB(3.9,55,2,28402,0)=" ; a secondary claim"
^XMB(3.9,55,2,28403,0)="""RTN"",""IBCU1"",168,0)"
^XMB(3.9,55,2,28404,0)=" ;"
^XMB(3.9,55,2,28405,0)="""RTN"",""IBCU1"",169,0)"
^XMB(3.9,55,2,28406,0)=" N FT,DATA,I,PC,INS,IFUNC,ATTRENDD,IBDR"
^XMB(3.9,55,2,28407,0)="""RTN"",""IBCU1"",170,0)"
^XMB(3.9,55,2,28408,0)=" S FT=$$FT^IBCEF(IBIFN)"
^XMB(3.9,55,2,28409,0)="""RTN"",""IBCU1"",171,0)"
^XMB(3.9,55,2,28410,0)=" Q:'FT"
^XMB(3.9,55,2,28411,0)="""RTN"",""IBCU1"",172,0)"
^XMB(3.9,55,2,28412,0)=" ;"
^XMB(3.9,55,2,28413,0)="""RTN"",""IBCU1"",173,0)"
^XMB(3.9,55,2,28414,0)=" S IFUNC=$O(^DGCR(399,IBIFN,""PRV"",""B"",$S(FT=3:4,1:3),""""))"
^XMB(3.9,55,2,28415,0)="""RTN"",""IBCU1"",174,0)"
^XMB(3.9,55,2,28416,0)=" I $G(IBIFN1),$G(IFUNC)'=IBIFN1 Q   ; if called from subfile, quits if att/rend provider was not the one being modified"
^XMB(3.9,55,2,28417,0)="""RTN"",""IBCU1"",175,0)"
^XMB(3.9,55,2,28418,0)=" S ATTRENDD=$S('$G(IFUNC):"""",1:$G(^DGCR(399,IBIFN,""PRV"",IFUNC,0)))"
^XMB(3.9,55,2,28419,0)="""RTN"",""IBCU1"",176,0)"
^XMB(3.9,55,2,28420,0)=" ;"
^XMB(3.9,55,2,28421,0)="""RTN"",""IBCU1"",177,0)"
^XMB(3.9,55,2,28422,0)=" S PC=$S(FT=2:6,FT=3:8,1:"""")  ; get the correct piece from the ins co dictionary"
^XMB(3.9,55,2,28423,0)="""RTN"",""IBCU1"",178,0)"
^XMB(3.9,55,2,28424,0)=" Q:'+PC"
^XMB(3.9,55,2,28425,0)="""RTN"",""IBCU1"",179,0)"
^XMB(3.9,55,2,28426,0)=" ;"
^XMB(3.9,55,2,28427,0)="""RTN"",""IBCU1"",180,0)"
^XMB(3.9,55,2,28428,0)=" F I=""I1"",""I2"",""I3"" D"
^XMB(3.9,55,2,28429,0)="""RTN"",""IBCU1"",181,0)"
^XMB(3.9,55,2,28430,0)=" . S INS=$P($G(^DGCR(399,IBIFN,I)),U)"
^XMB(3.9,55,2,28431,0)="""RTN"",""IBCU1"",182,0)"
^XMB(3.9,55,2,28432,0)=" . Q:'+INS"
^XMB(3.9,55,2,28433,0)="""RTN"",""IBCU1"",183,0)"
^XMB(3.9,55,2,28434,0)=" . Q:'$P($G(^DIC(36,INS,4)),U,PC)"
^XMB(3.9,55,2,28435,0)="""RTN"",""IBCU1"",184,0)"
^XMB(3.9,55,2,28436,0)=" . D:I=""I1"""
^XMB(3.9,55,2,28437,0)="""RTN"",""IBCU1"",185,0)"
^XMB(3.9,55,2,28438,0)=" .. S:"".05""[FIELD IBDR(399,IBIFN_"","",122)=$S($P(ATTRENDD,U,5)]"""":$P(ATTRENDD,U,5),1:""@"")"
^XMB(3.9,55,2,28439,0)="""RTN"",""IBCU1"",186,0)"
^XMB(3.9,55,2,28440,0)=" .. S:"".12""[FIELD IBDR(399,IBIFN_"","",128)=$S($P(ATTRENDD,U,12)]"""":$P(ATTRENDD,U,12),1:""@"")"
^XMB(3.9,55,2,28441,0)="""RTN"",""IBCU1"",187,0)"
^XMB(3.9,55,2,28442,0)=" . D:I=""I2"""
^XMB(3.9,55,2,28443,0)="""RTN"",""IBCU1"",188,0)"
^XMB(3.9,55,2,28444,0)=" .. S:"".06""[FIELD IBDR(399,IBIFN_"","",123)=$S($P(ATTRENDD,U,6)]"""":$P(ATTRENDD,U,6),1:""@"")"
^XMB(3.9,55,2,28445,0)="""RTN"",""IBCU1"",189,0)"
^XMB(3.9,55,2,28446,0)=" .. S:"".13""[FIELD IBDR(399,IBIFN_"","",129)=$S($P(ATTRENDD,U,13)]"""":$P(ATTRENDD,U,13),1:""@"")"
^XMB(3.9,55,2,28447,0)="""RTN"",""IBCU1"",190,0)"
^XMB(3.9,55,2,28448,0)=" . D:I=""I3"""
^XMB(3.9,55,2,28449,0)="""RTN"",""IBCU1"",191,0)"
^XMB(3.9,55,2,28450,0)=" .. S:"".07""[FIELD IBDR(399,IBIFN_"","",124)=$S($P(ATTRENDD,U,7)]"""":$P(ATTRENDD,U,7),1:""@"")"
^XMB(3.9,55,2,28451,0)="""RTN"",""IBCU1"",192,0)"
^XMB(3.9,55,2,28452,0)=" .. S:"".14""[FIELD IBDR(399,IBIFN_"","",130)=$S($P(ATTRENDD,U,14)]"""":$P(ATTRENDD,U,14),1:""@"")"
^XMB(3.9,55,2,28453,0)="""RTN"",""IBCU1"",193,0)"
^XMB(3.9,55,2,28454,0)=" ;"
^XMB(3.9,55,2,28455,0)="""RTN"",""IBCU1"",194,0)"
^XMB(3.9,55,2,28456,0)=" I $O(IBDR(0)) D FILE^DIE("""",""IBDR"")"
^XMB(3.9,55,2,28457,0)="""RTN"",""IBCU1"",195,0)"
^XMB(3.9,55,2,28458,0)=" Q"
^XMB(3.9,55,2,28459,0)="""RTN"",""IBJPS"")"
^XMB(3.9,55,2,28460,0)="0^49^B5289854^B5742162"
^XMB(3.9,55,2,28461,0)="""RTN"",""IBJPS"",1,0)"
^XMB(3.9,55,2,28462,0)="IBJPS ;ALB/MAF,ARH - IBSP IB SITE PARAMETER SCREEN ;22-DEC-1995"
^XMB(3.9,55,2,28463,0)="""RTN"",""IBJPS"",2,0)"
^XMB(3.9,55,2,28464,0)=" ;;2.0;INTEGRATED BILLING;**39,52,70,115,143,51,137,161,155,320**;21-MAR-94"
^XMB(3.9,55,2,28465,0)="""RTN"",""IBJPS"",3,0)"
^XMB(3.9,55,2,28466,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,28467,0)="""RTN"",""IBJPS"",4,0)"
^XMB(3.9,55,2,28468,0)=" ;"
^XMB(3.9,55,2,28469,0)="""RTN"",""IBJPS"",5,0)"
^XMB(3.9,55,2,28470,0)="EN ; -- main entry point for IBJP IB SITE PARAMETERS, display IB site parameters"
^XMB(3.9,55,2,28471,0)="""RTN"",""IBJPS"",6,0)"
^XMB(3.9,55,2,28472,0)=" D EN^VALM(""IBJP IB SITE PARAMETERS"")"
^XMB(3.9,55,2,28473,0)="""RTN"",""IBJPS"",7,0)"
^XMB(3.9,55,2,28474,0)=" Q"
^XMB(3.9,55,2,28475,0)="""RTN"",""IBJPS"",8,0)"
^XMB(3.9,55,2,28476,0)=" ;"
^XMB(3.9,55,2,28477,0)="""RTN"",""IBJPS"",9,0)"
^XMB(3.9,55,2,28478,0)="HDR ; -- header code"
^XMB(3.9,55,2,28479,0)="""RTN"",""IBJPS"",10,0)"
^XMB(3.9,55,2,28480,0)=" S VALMHDR(1)=""Only authorized persons may edit this data."""
^XMB(3.9,55,2,28481,0)="""RTN"",""IBJPS"",11,0)"
^XMB(3.9,55,2,28482,0)=" Q"
^XMB(3.9,55,2,28483,0)="""RTN"",""IBJPS"",12,0)"
^XMB(3.9,55,2,28484,0)=" ;"
^XMB(3.9,55,2,28485,0)="""RTN"",""IBJPS"",13,0)"
^XMB(3.9,55,2,28486,0)="INIT ; -- init variables and list array"
^XMB(3.9,55,2,28487,0)="""RTN"",""IBJPS"",14,0)"
^XMB(3.9,55,2,28488,0)=" K ^TMP(""IBJPS"",$J),^TMP(""IBJPSAX"",$J)"
^XMB(3.9,55,2,28489,0)="""RTN"",""IBJPS"",15,0)"
^XMB(3.9,55,2,28490,0)=" D BLD^IBJPS1"
^XMB(3.9,55,2,28491,0)="""RTN"",""IBJPS"",16,0)"
^XMB(3.9,55,2,28492,0)=" Q"
^XMB(3.9,55,2,28493,0)="""RTN"",""IBJPS"",17,0)"
^XMB(3.9,55,2,28494,0)=" ;"
^XMB(3.9,55,2,28495,0)="""RTN"",""IBJPS"",18,0)"
^XMB(3.9,55,2,28496,0)="HELP ; -- help code"
^XMB(3.9,55,2,28497,0)="""RTN"",""IBJPS"",19,0)"
^XMB(3.9,55,2,28498,0)=" S X=""?"" D DISP^XQORM1 W !!"
^XMB(3.9,55,2,28499,0)="""RTN"",""IBJPS"",20,0)"
^XMB(3.9,55,2,28500,0)=" Q"
^XMB(3.9,55,2,28501,0)="""RTN"",""IBJPS"",21,0)"
^XMB(3.9,55,2,28502,0)=" ;"
^XMB(3.9,55,2,28503,0)="""RTN"",""IBJPS"",22,0)"
^XMB(3.9,55,2,28504,0)="EXIT ; -- exit code"
^XMB(3.9,55,2,28505,0)="""RTN"",""IBJPS"",23,0)"
^XMB(3.9,55,2,28506,0)=" K ^TMP(""IBJPS"",$J),^TMP(""IBJPSAX"",$J)"
^XMB(3.9,55,2,28507,0)="""RTN"",""IBJPS"",24,0)"
^XMB(3.9,55,2,28508,0)=" D CLEAR^VALM1"
^XMB(3.9,55,2,28509,0)="""RTN"",""IBJPS"",25,0)"
^XMB(3.9,55,2,28510,0)=" Q"
^XMB(3.9,55,2,28511,0)="""RTN"",""IBJPS"",26,0)"
^XMB(3.9,55,2,28512,0)=" ;"
^XMB(3.9,55,2,28513,0)="""RTN"",""IBJPS"",27,0)"
^XMB(3.9,55,2,28514,0)="NXEDIT ; -- IBJP IB SITE PARAMETER EDIT ACTION (EP): Select data set to edit, do edit"
^XMB(3.9,55,2,28515,0)="""RTN"",""IBJPS"",28,0)"
^XMB(3.9,55,2,28516,0)=" N VALMY,IBSELN,IBSET"
^XMB(3.9,55,2,28517,0)="""RTN"",""IBJPS"",29,0)"
^XMB(3.9,55,2,28518,0)=" D EN^VALM2($G(XQORNOD(0)))"
^XMB(3.9,55,2,28519,0)="""RTN"",""IBJPS"",30,0)"
^XMB(3.9,55,2,28520,0)=" I $D(VALMY) S IBSELN=0 F  S IBSELN=$O(VALMY(IBSELN)) Q:'IBSELN  D"
^XMB(3.9,55,2,28521,0)="""RTN"",""IBJPS"",31,0)"
^XMB(3.9,55,2,28522,0)=" . S IBSET=$P($G(^TMP(""IBJPSAX"",$J,IBSELN)),U,1) Q:'IBSET"
^XMB(3.9,55,2,28523,0)="""RTN"",""IBJPS"",32,0)"
^XMB(3.9,55,2,28524,0)=" . D EDIT(IBSET)"
^XMB(3.9,55,2,28525,0)="""RTN"",""IBJPS"",33,0)"
^XMB(3.9,55,2,28526,0)=" S VALMBCK=""R"""
^XMB(3.9,55,2,28527,0)="""RTN"",""IBJPS"",34,0)"
^XMB(3.9,55,2,28528,0)=" Q"
^XMB(3.9,55,2,28529,0)="""RTN"",""IBJPS"",35,0)"
^XMB(3.9,55,2,28530,0)=" ;"
^XMB(3.9,55,2,28531,0)="""RTN"",""IBJPS"",36,0)"
^XMB(3.9,55,2,28532,0)="EDIT(IBSET) ; edit IB Site Parameters"
^XMB(3.9,55,2,28533,0)="""RTN"",""IBJPS"",37,0)"
^XMB(3.9,55,2,28534,0)=" D FULL^VALM1"
^XMB(3.9,55,2,28535,0)="""RTN"",""IBJPS"",38,0)"
^XMB(3.9,55,2,28536,0)=" I IBSET'="""" S DR=$P($T(@IBSET),"";;"",2,999)"
^XMB(3.9,55,2,28537,0)="""RTN"",""IBJPS"",39,0)"
^XMB(3.9,55,2,28538,0)=" I DR'="""" S DIE=""^IBE(350.9,"",DA=1 D ^DIE K DA,DR,DIE,DIC,X,Y"
^XMB(3.9,55,2,28539,0)="""RTN"",""IBJPS"",40,0)"
^XMB(3.9,55,2,28540,0)=" D INIT^IBJPS S VALMBCK=""R"""
^XMB(3.9,55,2,28541,0)="""RTN"",""IBJPS"",41,0)"
^XMB(3.9,55,2,28542,0)=" Q"
^XMB(3.9,55,2,28543,0)="""RTN"",""IBJPS"",42,0)"
^XMB(3.9,55,2,28544,0)=" ;"
^XMB(3.9,55,2,28545,0)="""RTN"",""IBJPS"",43,0)"
^XMB(3.9,55,2,28546,0)="1 ;;.09;.13;.14"
^XMB(3.9,55,2,28547,0)="""RTN"",""IBJPS"",44,0)"
^XMB(3.9,55,2,28548,0)="2 ;;1.2;.15;.11;.12;7.04"
^XMB(3.9,55,2,28549,0)="""RTN"",""IBJPS"",45,0)"
^XMB(3.9,55,2,28550,0)="3 ;;1.09;1.07;2.07"
^XMB(3.9,55,2,28551,0)="""RTN"",""IBJPS"",46,0)"
^XMB(3.9,55,2,28552,0)="4 ;;4.04;6.25;6.24"
^XMB(3.9,55,2,28553,0)="""RTN"",""IBJPS"",47,0)"
^XMB(3.9,55,2,28554,0)="5 ;;.02;1.14;1.25;1.08"
^XMB(3.9,55,2,28555,0)="""RTN"",""IBJPS"",48,0)"
^XMB(3.9,55,2,28556,0)="6 ;;1.23;1.16;1.22;1.19;1.15;1.17"
^XMB(3.9,55,2,28557,0)="""RTN"",""IBJPS"",49,0)"
^XMB(3.9,55,2,28558,0)="7 ;;1.26;1.1;1.31;1.27"
^XMB(3.9,55,2,28559,0)="""RTN"",""IBJPS"",50,0)"
^XMB(3.9,55,2,28560,0)="8 ;;1.29;1.3;1.18;1.28"
^XMB(3.9,55,2,28561,0)="""RTN"",""IBJPS"",51,0)"
^XMB(3.9,55,2,28562,0)="9 ;;1.01;1.02;1.05;1.04"
^XMB(3.9,55,2,28563,0)="""RTN"",""IBJPS"",52,0)"
^XMB(3.9,55,2,28564,0)="10 ;;2.12;2.1;2.02;2.03;2.04;2.05;2.06;2.01"
^XMB(3.9,55,2,28565,0)="""RTN"",""IBJPS"",53,0)"
^XMB(3.9,55,2,28566,0)="11 ;;2.08;2.09"
^XMB(3.9,55,2,28567,0)="""RTN"",""IBJPS"",54,0)"
^XMB(3.9,55,2,28568,0)="12 ;;9.01;9.02;9.03;9.11;9.12;9.13;9.14;9.15"
^XMB(3.9,55,2,28569,0)="""RTN"",""IBJPS"",55,0)"
^XMB(3.9,55,2,28570,0)="13 ;;10.02;10.03;10.04;10.05;D INIT^IBATFILE"
^XMB(3.9,55,2,28571,0)="""RTN"",""IBJPS"",56,0)"
^XMB(3.9,55,2,28572,0)="14 ;;2.11;8.01;8.09;8.03;8.06;8.04;8.07;8.02;8.12T;8.11T"
^XMB(3.9,55,2,28573,0)="""RTN"",""IBJPS"",57,0)"
^XMB(3.9,55,2,28574,0)="15 ;;50.01;50.02;50.05;50.06;50.03;50.04;50.07"
^XMB(3.9,55,2,28575,0)="""RTN"",""IBJPS"",58,0)"
^XMB(3.9,55,2,28576,0)=" ;"
^XMB(3.9,55,2,28577,0)="""RTN"",""IBJPS"",59,0)"
^XMB(3.9,55,2,28578,0)=" ;"
^XMB(3.9,55,2,28579,0)="""RTN"",""IBJPS"",60,0)"
^XMB(3.9,55,2,28580,0)="ADD(IBLN,LNG,ARR) ; output array of address in X, line length=LNG"
^XMB(3.9,55,2,28581,0)="""RTN"",""IBJPS"",61,0)"
^XMB(3.9,55,2,28582,0)=" N IBCNT,IBI,IBY,IBX,IBZ K ARR S IBCNT=1"
^XMB(3.9,55,2,28583,0)="""RTN"",""IBJPS"",62,0)"
^XMB(3.9,55,2,28584,0)=" F IBI=2:1:4 S IBY=$P(IBLN,U,IBI) I IBY'="""" D  S ARR(IBCNT)=IBY"
^XMB(3.9,55,2,28585,0)="""RTN"",""IBJPS"",63,0)"
^XMB(3.9,55,2,28586,0)=" . S IBX=$G(ARR(IBCNT)) I IBI=4 S IBY=$P($G(^DIC(5,+IBY,0)),U,2)_"" ""_$P(IBLN,U,5)"
^XMB(3.9,55,2,28587,0)="""RTN"",""IBJPS"",64,0)"
^XMB(3.9,55,2,28588,0)=" . S IBZ=$S(IBX'="""":IBX_"", "",1:"""")_IBY I $L(IBZ)'>LNG S IBY=IBZ Q"
^XMB(3.9,55,2,28589,0)="""RTN"",""IBJPS"",65,0)"
^XMB(3.9,55,2,28590,0)=" . S IBCNT=IBCNT+1"
^XMB(3.9,55,2,28591,0)="""RTN"",""IBJPS"",66,0)"
^XMB(3.9,55,2,28592,0)=" Q"
^XMB(3.9,55,2,28593,0)="""RTN"",""IBJPS2"")"
^XMB(3.9,55,2,28594,0)="0^50^B48143504^B51439573"
^XMB(3.9,55,2,28595,0)="""RTN"",""IBJPS2"",1,0)"
^XMB(3.9,55,2,28596,0)="IBJPS2 ;ALB/MAF,ARH - IBSP IB SITE PARAMETER BUILD (cont) ;22-DEC-1995"
^XMB(3.9,55,2,28597,0)="""RTN"",""IBJPS2"",2,0)"
^XMB(3.9,55,2,28598,0)=" ;;2.0;INTEGRATED BILLING;**39,52,115,143,51,137,161,155,320**;21-MAR-94"
^XMB(3.9,55,2,28599,0)="""RTN"",""IBJPS2"",3,0)"
^XMB(3.9,55,2,28600,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,28601,0)="""RTN"",""IBJPS2"",4,0)"
^XMB(3.9,55,2,28602,0)=" ;"
^XMB(3.9,55,2,28603,0)="""RTN"",""IBJPS2"",5,0)"
^XMB(3.9,55,2,28604,0)="BLD2 ; - continue build screen array for IB parameters"
^XMB(3.9,55,2,28605,0)="""RTN"",""IBJPS2"",6,0)"
^XMB(3.9,55,2,28606,0)=" ;"
^XMB(3.9,55,2,28607,0)="""RTN"",""IBJPS2"",7,0)"
^XMB(3.9,55,2,28608,0)=" N Z,Z0"
^XMB(3.9,55,2,28609,0)="""RTN"",""IBJPS2"",8,0)"
^XMB(3.9,55,2,28610,0)=" D RIGHT(1,1,1) ; - facility/med center  (new line for each)"
^XMB(3.9,55,2,28611,0)="""RTN"",""IBJPS2"",9,0)"
^XMB(3.9,55,2,28612,0)=" S IBLN=$$SET(""Medical Center"",$$EXSET^IBJU1($P(IBPD0,U,2),350.9,.02),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28613,0)="""RTN"",""IBJPS2"",10,0)"
^XMB(3.9,55,2,28614,0)=" S IBLN=$$SET(""MAS Service"",$$EXSET^IBJU1($P(IBPD1,U,14),350.9,1.14),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28615,0)="""RTN"",""IBJPS2"",11,0)"
^XMB(3.9,55,2,28616,0)=" ;"
^XMB(3.9,55,2,28617,0)="""RTN"",""IBJPS2"",12,0)"
^XMB(3.9,55,2,28618,0)=" D LEFT(2)"
^XMB(3.9,55,2,28619,0)="""RTN"",""IBJPS2"",13,0)"
^XMB(3.9,55,2,28620,0)=" S IBLN=$$SET(""Default Division"",$$EXSET^IBJU1($P(IBPD1,U,25),350.9,1.25),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28621,0)="""RTN"",""IBJPS2"",14,0)"
^XMB(3.9,55,2,28622,0)=" S IBLN=$$SET(""Billing Supervisor"",$$EXSET^IBJU1($P(IBPD1,U,8),350.9,1.08),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28623,0)="""RTN"",""IBJPS2"",15,0)"
^XMB(3.9,55,2,28624,0)=" ;"
^XMB(3.9,55,2,28625,0)="""RTN"",""IBJPS2"",16,0)"
^XMB(3.9,55,2,28626,0)=" D RIGHT(1,1,1)"
^XMB(3.9,55,2,28627,0)="""RTN"",""IBJPS2"",17,0)"
^XMB(3.9,55,2,28628,0)=" S IBLN=$$SET(""Initiator Authorize"",$$YN(+$P(IBPD1,U,23)),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28629,0)="""RTN"",""IBJPS2"",18,0)"
^XMB(3.9,55,2,28630,0)=" S IBLN=$$SET(""Ask HINQ in MCCR"",$$YN(+$P(IBPD1,U,16)),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28631,0)="""RTN"",""IBJPS2"",19,0)"
^XMB(3.9,55,2,28632,0)=" S IBLN=$$SET(""Multiple Form Types"",$$YN(+$P(IBPD1,U,22)),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28633,0)="""RTN"",""IBJPS2"",20,0)"
^XMB(3.9,55,2,28634,0)=" ;"
^XMB(3.9,55,2,28635,0)="""RTN"",""IBJPS2"",21,0)"
^XMB(3.9,55,2,28636,0)=" D LEFT(2)"
^XMB(3.9,55,2,28637,0)="""RTN"",""IBJPS2"",22,0)"
^XMB(3.9,55,2,28638,0)=" S IBLN=$$SET(""Xfer Proc to Sched"",$$YN(+$P(IBPD1,U,19)),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28639,0)="""RTN"",""IBJPS2"",23,0)"
^XMB(3.9,55,2,28640,0)=" S IBLN=$$SET(""Use Non-PTF Codes"",$$YN(+$P(IBPD1,U,15)),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28641,0)="""RTN"",""IBJPS2"",24,0)"
^XMB(3.9,55,2,28642,0)=" S IBLN=$$SET(""Use OP CPT screen"",$$YN(+$P(IBPD1,U,17)),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28643,0)="""RTN"",""IBJPS2"",25,0)"
^XMB(3.9,55,2,28644,0)=" ;"
^XMB(3.9,55,2,28645,0)="""RTN"",""IBJPS2"",26,0)"
^XMB(3.9,55,2,28646,0)=" D RIGHT(1,1,1)"
^XMB(3.9,55,2,28647,0)="""RTN"",""IBJPS2"",27,0)"
^XMB(3.9,55,2,28648,0)=" S IBLN=$$SET(""Default Form Type"",$$EXSET^IBJU1($P(IBPD1,U,26),350.9,1.26),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28649,0)="""RTN"",""IBJPS2"",28,0)"
^XMB(3.9,55,2,28650,0)=" S IBLN=$$SET(""'001' for Total"",$$YN(+$P(IBPD1,U,10)),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28651,0)="""RTN"",""IBJPS2"",29,0)"
^XMB(3.9,55,2,28652,0)=" ;"
^XMB(3.9,55,2,28653,0)="""RTN"",""IBJPS2"",30,0)"
^XMB(3.9,55,2,28654,0)=" D LEFT(2)"
^XMB(3.9,55,2,28655,0)="""RTN"",""IBJPS2"",31,0)"
^XMB(3.9,55,2,28656,0)=" S IBLN=$$SET(""UB-92 Address Col"",$P(IBPD1,U,31),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28657,0)="""RTN"",""IBJPS2"",32,0)"
^XMB(3.9,55,2,28658,0)=" S IBLN=$$SET(""HCFA 1500 Addr Col"",$P(IBPD1,U,27),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28659,0)="""RTN"",""IBJPS2"",33,0)"
^XMB(3.9,55,2,28660,0)=" ;"
^XMB(3.9,55,2,28661,0)="""RTN"",""IBJPS2"",34,0)"
^XMB(3.9,55,2,28662,0)=" D RIGHT(1,1,1)"
^XMB(3.9,55,2,28663,0)="""RTN"",""IBJPS2"",35,0)"
^XMB(3.9,55,2,28664,0)=" S IBLN=$$SET(""Default RX DX Cd"",$$EXSET^IBJU1($P(IBPD1,U,29),350.9,1.29),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28665,0)="""RTN"",""IBJPS2"",36,0)"
^XMB(3.9,55,2,28666,0)=" S IBLN=$$SET(""Default RX CPT Cd"",$$EXSET^IBJU1($P(IBPD1,U,30),350.9,1.30),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28667,0)="""RTN"",""IBJPS2"",37,0)"
^XMB(3.9,55,2,28668,0)=" ;"
^XMB(3.9,55,2,28669,0)="""RTN"",""IBJPS2"",38,0)"
^XMB(3.9,55,2,28670,0)=" D LEFT(2)"
^XMB(3.9,55,2,28671,0)="""RTN"",""IBJPS2"",39,0)"
^XMB(3.9,55,2,28672,0)=" S IBLN=$$SET(""Default ASC Rev Cd"",$$EXSET^IBJU1($P(IBPD1,U,18),350.9,1.18),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28673,0)="""RTN"",""IBJPS2"",40,0)"
^XMB(3.9,55,2,28674,0)=" S IBLN=$$SET(""Default RX Rev Cd"",$$EXSET^IBJU1($P(IBPD1,U,28),350.9,1.28),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28675,0)="""RTN"",""IBJPS2"",41,0)"
^XMB(3.9,55,2,28676,0)=" ;"
^XMB(3.9,55,2,28677,0)="""RTN"",""IBJPS2"",42,0)"
^XMB(3.9,55,2,28678,0)=" D RIGHT(1,1,1)"
^XMB(3.9,55,2,28679,0)="""RTN"",""IBJPS2"",43,0)"
^XMB(3.9,55,2,28680,0)=" S IBLN=$$SET(""Bill Signer Name"",""<No longer used>"",IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28681,0)="""RTN"",""IBJPS2"",44,0)"
^XMB(3.9,55,2,28682,0)=" S IBLN=$$SET(""Bill Signer Title"",""<No longer used>"",IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28683,0)="""RTN"",""IBJPS2"",45,0)"
^XMB(3.9,55,2,28684,0)=" ;"
^XMB(3.9,55,2,28685,0)="""RTN"",""IBJPS2"",46,0)"
^XMB(3.9,55,2,28686,0)=" D LEFT(2)"
^XMB(3.9,55,2,28687,0)="""RTN"",""IBJPS2"",47,0)"
^XMB(3.9,55,2,28688,0)=" S IBLN=$$SET(""Federal Tax #"",$P(IBPD1,U,5),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28689,0)="""RTN"",""IBJPS2"",48,0)"
^XMB(3.9,55,2,28690,0)=" ;"
^XMB(3.9,55,2,28691,0)="""RTN"",""IBJPS2"",49,0)"
^XMB(3.9,55,2,28692,0)=" D RIGHT(3,"""","""")"
^XMB(3.9,55,2,28693,0)="""RTN"",""IBJPS2"",50,0)"
^XMB(3.9,55,2,28694,0)=" S IBLN=$$SET(""Remark on Each Bill"",$P(IBPD1,U,4),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28695,0)="""RTN"",""IBJPS2"",51,0)"
^XMB(3.9,55,2,28696,0)=" ;"
^XMB(3.9,55,2,28697,0)="""RTN"",""IBJPS2"",52,0)"
^XMB(3.9,55,2,28698,0)=" D RIGHT(3,1,1) ; - Remittance/Agent Cashier Address"
^XMB(3.9,55,2,28699,0)="""RTN"",""IBJPS2"",53,0)"
^XMB(3.9,55,2,28700,0)=" S IBLN=$$SET(""Billing Facility is Another Facility"",$$EXPAND^IBTRE(350.9,2.12,+$P(IBPD2,U,12)),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28701,0)="""RTN"",""IBJPS2"",54,0)"
^XMB(3.9,55,2,28702,0)=" S IBLN=$$SET(""Billing Facility Name"",$P(IBPD2,U,10),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28703,0)="""RTN"",""IBJPS2"",55,0)"
^XMB(3.9,55,2,28704,0)=" D ADD^IBJPS(IBPD2,IBSW(3),.IBX) D  K IBX"
^XMB(3.9,55,2,28705,0)="""RTN"",""IBJPS2"",56,0)"
^XMB(3.9,55,2,28706,0)=" . S IBT=""Remittance Address"",IBX=0 F  S IBX=$O(IBX(IBX)) Q:'IBX  D"
^XMB(3.9,55,2,28707,0)="""RTN"",""IBJPS2"",57,0)"
^XMB(3.9,55,2,28708,0)=" .. S IBLN=$$SET(IBT,IBX(IBX),IBLN,IBLR,IBSEL),IBT="""""
^XMB(3.9,55,2,28709,0)="""RTN"",""IBJPS2"",58,0)"
^XMB(3.9,55,2,28710,0)=" S IBLN=$$SET(""Phone"",$P(IBPD2,U,6),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28711,0)="""RTN"",""IBJPS2"",59,0)"
^XMB(3.9,55,2,28712,0)=" ;"
^XMB(3.9,55,2,28713,0)="""RTN"",""IBJPS2"",60,0)"
^XMB(3.9,55,2,28714,0)=" D RIGHT(3,1,1)"
^XMB(3.9,55,2,28715,0)="""RTN"",""IBJPS2"",61,0)"
^XMB(3.9,55,2,28716,0)=" S IBLN=$$SET(""Inpt Health Summary"",$$EXSET^IBJU1($P(IBPD2,U,8),350.9,2.08),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28717,0)="""RTN"",""IBJPS2"",62,0)"
^XMB(3.9,55,2,28718,0)=" S IBLN=$$SET(""Opt Health Summary"",$$EXSET^IBJU1($P(IBPD2,U,9),350.9,2.09),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28719,0)="""RTN"",""IBJPS2"",63,0)"
^XMB(3.9,55,2,28720,0)=" ;"
^XMB(3.9,55,2,28721,0)="""RTN"",""IBJPS2"",64,0)"
^XMB(3.9,55,2,28722,0)=" D RIGHT(5,1,1)"
^XMB(3.9,55,2,28723,0)="""RTN"",""IBJPS2"",65,0)"
^XMB(3.9,55,2,28724,0)=" S IBLN=$$SET(""Rx Billing Port"",$P(IBPD9,U),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28725,0)="""RTN"",""IBJPS2"",66,0)"
^XMB(3.9,55,2,28726,0)=" S IBLN=$$SET(""AWP Update Port"",$P(IBPD9,U,2),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28727,0)="""RTN"",""IBJPS2"",67,0)"
^XMB(3.9,55,2,28728,0)=" S IBLN=$$SET(""TCP/IP Address"",$P(IBPD9,U,3),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28729,0)="""RTN"",""IBJPS2"",68,0)"
^XMB(3.9,55,2,28730,0)=" S IBLN=$$SET(""Task UCI/VOL"",$P(IBPD9,U,11),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28731,0)="""RTN"",""IBJPS2"",69,0)"
^XMB(3.9,55,2,28732,0)=" S IBLN=$$SET(""AWP Charge Set"",$$EXSET^IBJU1($P(IBPD9,U,12),350.9,9.12),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28733,0)="""RTN"",""IBJPS2"",70,0)"
^XMB(3.9,55,2,28734,0)=" S IBLN=$$SET(""Prescriber ID"",$P(IBPD9,U,13),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28735,0)="""RTN"",""IBJPS2"",71,0)"
^XMB(3.9,55,2,28736,0)=" S IBLN=$$SET(""DEA vs Presc.ID"",$$YN($P(IBPD9,U,14)),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28737,0)="""RTN"",""IBJPS2"",72,0)"
^XMB(3.9,55,2,28738,0)=" S IBLN=$$SET(""Calc comp code"",$$YN($P(IBPD9,U,15)),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28739,0)="""RTN"",""IBJPS2"",73,0)"
^XMB(3.9,55,2,28740,0)=" ;"
^XMB(3.9,55,2,28741,0)="""RTN"",""IBJPS2"",74,0)"
^XMB(3.9,55,2,28742,0)=" D LEFT(6)"
^XMB(3.9,55,2,28743,0)="""RTN"",""IBJPS2"",75,0)"
^XMB(3.9,55,2,28744,0)=" S IBLN=$$SET(""Prim Billing Task"",$P(IBPD9,U,4),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28745,0)="""RTN"",""IBJPS2"",76,0)"
^XMB(3.9,55,2,28746,0)=" S IBLN=$$SET(""Sec Billing Task"",$P(IBPD9,U,5),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28747,0)="""RTN"",""IBJPS2"",77,0)"
^XMB(3.9,55,2,28748,0)=" S IBLN=$$SET(""Prim AWP Upd Task"",$P(IBPD9,U,6),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28749,0)="""RTN"",""IBJPS2"",78,0)"
^XMB(3.9,55,2,28750,0)=" S IBLN=$$SET(""Sec AWP Upd Task"",$P(IBPD9,U,7),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28751,0)="""RTN"",""IBJPS2"",79,0)"
^XMB(3.9,55,2,28752,0)=" S IBLN=$$SET(""Task Started"",$$DAT1^IBOUTL($P(IBPD9,U,8),1),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28753,0)="""RTN"",""IBJPS2"",80,0)"
^XMB(3.9,55,2,28754,0)=" S IBLN=$$SET(""Task Last Ran"",$$DAT1^IBOUTL($P(IBPD9,U,9),1),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28755,0)="""RTN"",""IBJPS2"",81,0)"
^XMB(3.9,55,2,28756,0)=" S IBLN=$$SET(""Shutdown Tasks?"",$$YN($P(IBPD9,U,10)),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28757,0)="""RTN"",""IBJPS2"",82,0)"
^XMB(3.9,55,2,28758,0)=" ;"
^XMB(3.9,55,2,28759,0)="""RTN"",""IBJPS2"",83,0)"
^XMB(3.9,55,2,28760,0)=" ; transfer pricing"
^XMB(3.9,55,2,28761,0)="""RTN"",""IBJPS2"",84,0)"
^XMB(3.9,55,2,28762,0)=" D RIGHT(1,1,1)"
^XMB(3.9,55,2,28763,0)="""RTN"",""IBJPS2"",85,0)"
^XMB(3.9,55,2,28764,0)=" S IBLN=$$SET(""Inpatient TP Active "",$$YN(+$P(IBPD10,U,2)),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28765,0)="""RTN"",""IBJPS2"",86,0)"
^XMB(3.9,55,2,28766,0)=" S IBLN=$$SET(""Outpatient TP Active"",$$YN(+$P(IBPD10,U,3)),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28767,0)="""RTN"",""IBJPS2"",87,0)"
^XMB(3.9,55,2,28768,0)=" S IBLN=$$SET(""Pharmacy TP Active  "",$$YN(+$P(IBPD10,U,4)),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28769,0)="""RTN"",""IBJPS2"",88,0)"
^XMB(3.9,55,2,28770,0)=" S IBLN=$$SET(""Prosthetic TP Active"",$$YN(+$P(IBPD10,U,5)),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28771,0)="""RTN"",""IBJPS2"",89,0)"
^XMB(3.9,55,2,28772,0)=" ;"
^XMB(3.9,55,2,28773,0)="""RTN"",""IBJPS2"",90,0)"
^XMB(3.9,55,2,28774,0)=" ; EDI/MRA parameters"
^XMB(3.9,55,2,28775,0)="""RTN"",""IBJPS2"",91,0)"
^XMB(3.9,55,2,28776,0)=" D RIGHT(7,1,1)"
^XMB(3.9,55,2,28777,0)="""RTN"",""IBJPS2"",92,0)"
^XMB(3.9,55,2,28778,0)=" N IBZ S IBZ=$P(IBPD8,U,3)"
^XMB(3.9,55,2,28779,0)="""RTN"",""IBJPS2"",93,0)"
^XMB(3.9,55,2,28780,0)=" S IBLN=$$SET("" EDI/MRA Activated"",$$EXSET^IBJU1(+$P(IBPD8,U,10),350.9,8.1),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28781,0)="""RTN"",""IBJPS2"",94,0)"
^XMB(3.9,55,2,28782,0)=" S IBLN=$$SET("" EDI Contact Phone"",$P(IBPD2,U,11),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28783,0)="""RTN"",""IBJPS2"",95,0)"
^XMB(3.9,55,2,28784,0)=" S IBLN=$$SET("" EDI 837 Live Transmit Queue"",$P(IBPD8,U),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28785,0)="""RTN"",""IBJPS2"",96,0)"
^XMB(3.9,55,2,28786,0)=" S IBLN=$$SET("" EDI 837 Test Transmit Queue"",$P(IBPD8,U,9),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28787,0)="""RTN"",""IBJPS2"",97,0)"
^XMB(3.9,55,2,28788,0)=" S IBLN=$$SET("" Auto-Txmt Bill Frequency"",$S(IBZ:""Every""_$S(IBZ>1:"" ""_$P(IBPD8,U,3),1:""""),1:"""")_$S(IBZ:"" Day""_$S(IBZ=1:"""",1:""s""),1:""Never Run""),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28789,0)="""RTN"",""IBJPS2"",98,0)"
^XMB(3.9,55,2,28790,0)=" S IBLN=$$SET("" Hours To Auto-Transmit"",$P(IBPD8,U,6),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28791,0)="""RTN"",""IBJPS2"",99,0)"
^XMB(3.9,55,2,28792,0)=" S IBLN=$$SET("" Max # Bills Per Batch"",$P(IBPD8,U,4),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28793,0)="""RTN"",""IBJPS2"",100,0)"
^XMB(3.9,55,2,28794,0)=" S IBLN=$$SET("" Only Allow 1 Ins Co/Claim Batch?"",$$EXPAND^IBTRE(350.9,8.07,+$P(IBPD8,U,7)),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28795,0)="""RTN"",""IBJPS2"",101,0)"
^XMB(3.9,55,2,28796,0)=" S IBLN=$$SET("" Last Auto-Txmt Run Date"",$$DATE^IBJU1($P(IBPD8,U,5)),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28797,0)="""RTN"",""IBJPS2"",102,0)"
^XMB(3.9,55,2,28798,0)=" S IBLN=$$SET("" Days To Wait To Purge Msgs"",$P(IBPD8,U,2),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28799,0)="""RTN"",""IBJPS2"",103,0)"
^XMB(3.9,55,2,28800,0)=" S IBLN=$$SET("" Allow MRA Processing?"",$$YN(+$P(IBPD8,U,12)),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28801,0)="""RTN"",""IBJPS2"",104,0)"
^XMB(3.9,55,2,28802,0)=" S IBLN=$$SET("" Enable Automatic MRA Processing?"",$$YN(+$P(IBPD8,U,11)),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28803,0)="""RTN"",""IBJPS2"",105,0)"
^XMB(3.9,55,2,28804,0)=" ;"
^XMB(3.9,55,2,28805,0)="""RTN"",""IBJPS2"",106,0)"
^XMB(3.9,55,2,28806,0)=" ; Ingenix ClaimsManager Information"
^XMB(3.9,55,2,28807,0)="""RTN"",""IBJPS2"",107,0)"
^XMB(3.9,55,2,28808,0)=" D RIGHT(9,1,1)"
^XMB(3.9,55,2,28809,0)="""RTN"",""IBJPS2"",108,0)"
^XMB(3.9,55,2,28810,0)=" S IBLN=$$SET(""Are we using ClaimsManager?"",$$YN(+$P(IBPD50,U,1)),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28811,0)="""RTN"",""IBJPS2"",109,0)"
^XMB(3.9,55,2,28812,0)=" S IBLN=$$SET(""Is ClaimsManager working OK?"",$$YN(+$P(IBPD50,U,2)),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28813,0)="""RTN"",""IBJPS2"",110,0)"
^XMB(3.9,55,2,28814,0)=" S IBLN=$$SET(""ClaimsManager TCP/IP Address"",$P(IBPD50,U,5),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28815,0)="""RTN"",""IBJPS2"",111,0)"
^XMB(3.9,55,2,28816,0)=" S IBCISOCK=$O(^IBE(350.9,1,50.06,""B"",""""))"
^XMB(3.9,55,2,28817,0)="""RTN"",""IBJPS2"",112,0)"
^XMB(3.9,55,2,28818,0)=" S IBLN=$$SET(""ClaimsManager TCP/IP Ports"",IBCISOCK,IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28819,0)="""RTN"",""IBJPS2"",113,0)"
^XMB(3.9,55,2,28820,0)=" F  S IBCISOCK=$O(^IBE(350.9,1,50.06,""B"",IBCISOCK)) Q:IBCISOCK=""""  D"
^XMB(3.9,55,2,28821,0)="""RTN"",""IBJPS2"",114,0)"
^XMB(3.9,55,2,28822,0)=" . S IBLN=$$SET("""",IBCISOCK,IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28823,0)="""RTN"",""IBJPS2"",115,0)"
^XMB(3.9,55,2,28824,0)=" . Q"
^XMB(3.9,55,2,28825,0)="""RTN"",""IBJPS2"",116,0)"
^XMB(3.9,55,2,28826,0)=" S IBLN=$$SET(""General Error MailGroup"",$$EXSET^IBJU1($P(IBPD50,U,3),350.9,50.03),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28827,0)="""RTN"",""IBJPS2"",117,0)"
^XMB(3.9,55,2,28828,0)=" S IBLN=$$SET(""Communication Error MailGroup"",$$EXSET^IBJU1($P(IBPD50,U,4),350.9,50.04),IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28829,0)="""RTN"",""IBJPS2"",118,0)"
^XMB(3.9,55,2,28830,0)=" S IBCIMFLG=$$EXTERNAL^DILFD(350.9,50.07,"""",$P(IBPD50,U,7))"
^XMB(3.9,55,2,28831,0)="""RTN"",""IBJPS2"",119,0)"
^XMB(3.9,55,2,28832,0)=" I IBCIMFLG="""" S IBCIMFLG=""PRIORITY"""
^XMB(3.9,55,2,28833,0)="""RTN"",""IBJPS2"",120,0)"
^XMB(3.9,55,2,28834,0)=" S IBLN=$$SET(""MailMan Messages"",IBCIMFLG,IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28835,0)="""RTN"",""IBJPS2"",121,0)"
^XMB(3.9,55,2,28836,0)=" ;"
^XMB(3.9,55,2,28837,0)="""RTN"",""IBJPS2"",122,0)"
^XMB(3.9,55,2,28838,0)=" Q"
^XMB(3.9,55,2,28839,0)="""RTN"",""IBJPS2"",123,0)"
^XMB(3.9,55,2,28840,0)=" ;"
^XMB(3.9,55,2,28841,0)="""RTN"",""IBJPS2"",124,0)"
^XMB(3.9,55,2,28842,0)="SET(TTL,DATA,LN,LR,SEL,HDR) ;"
^XMB(3.9,55,2,28843,0)="""RTN"",""IBJPS2"",125,0)"
^XMB(3.9,55,2,28844,0)=" N IBY,IBX,IBC S IBC="": "" I TTL="""" S IBC=""  """
^XMB(3.9,55,2,28845,0)="""RTN"",""IBJPS2"",126,0)"
^XMB(3.9,55,2,28846,0)=" S IBY=TTL_$J("""",(IBTW(LR)-$L(TTL)-2))_$S('$G(HDR):IBC_DATA,1:""""),IBX=$G(^TMP(""IBJPS"",$J,LN,0))"
^XMB(3.9,55,2,28847,0)="""RTN"",""IBJPS2"",127,0)"
^XMB(3.9,55,2,28848,0)=" S IBX=$$SETSTR^VALM1(IBY,IBX,IBTC(LR),(IBTW(LR)+IBSW(LR)))"
^XMB(3.9,55,2,28849,0)="""RTN"",""IBJPS2"",128,0)"
^XMB(3.9,55,2,28850,0)=" D SET1(IBX,LN,SEL)"
^XMB(3.9,55,2,28851,0)="""RTN"",""IBJPS2"",129,0)"
^XMB(3.9,55,2,28852,0)=" S LN=LN+1"
^XMB(3.9,55,2,28853,0)="""RTN"",""IBJPS2"",130,0)"
^XMB(3.9,55,2,28854,0)=" Q LN"
^XMB(3.9,55,2,28855,0)="""RTN"",""IBJPS2"",131,0)"
^XMB(3.9,55,2,28856,0)=" ;"
^XMB(3.9,55,2,28857,0)="""RTN"",""IBJPS2"",132,0)"
^XMB(3.9,55,2,28858,0)="SET1(STR,LN,SEL,HI) ; set up TMP array with screen data"
^XMB(3.9,55,2,28859,0)="""RTN"",""IBJPS2"",133,0)"
^XMB(3.9,55,2,28860,0)=" S ^TMP(""IBJPS"",$J,LN,0)=STR"
^XMB(3.9,55,2,28861,0)="""RTN"",""IBJPS2"",134,0)"
^XMB(3.9,55,2,28862,0)=" S ^TMP(""IBJPS"",$J,""IDX"",LN,SEL)="""""
^XMB(3.9,55,2,28863,0)="""RTN"",""IBJPS2"",135,0)"
^XMB(3.9,55,2,28864,0)=" S ^TMP(""IBJPSAX"",$J,SEL)=SEL"
^XMB(3.9,55,2,28865,0)="""RTN"",""IBJPS2"",136,0)"
^XMB(3.9,55,2,28866,0)=" I $G(HI)'="""" D CNTRL^VALM10(LN,1,4,IOINHI,IOINORM)"
^XMB(3.9,55,2,28867,0)="""RTN"",""IBJPS2"",137,0)"
^XMB(3.9,55,2,28868,0)=" ;I $G(RV) D CNTRL^VALM10(LN,6,19,IOUON,IOUOFF)"
^XMB(3.9,55,2,28869,0)="""RTN"",""IBJPS2"",138,0)"
^XMB(3.9,55,2,28870,0)=" Q"
^XMB(3.9,55,2,28871,0)="""RTN"",""IBJPS2"",139,0)"
^XMB(3.9,55,2,28872,0)=" ;"
^XMB(3.9,55,2,28873,0)="""RTN"",""IBJPS2"",140,0)"
^XMB(3.9,55,2,28874,0)="YN(X) Q $S(+X:""YES"",1:""NO"")"
^XMB(3.9,55,2,28875,0)="""RTN"",""IBJPS2"",141,0)"
^XMB(3.9,55,2,28876,0)=" ;"
^XMB(3.9,55,2,28877,0)="""RTN"",""IBJPS2"",142,0)"
^XMB(3.9,55,2,28878,0)="RIGHT(LR,SEL,BL) ; - reset control variables for right side of screen"
^XMB(3.9,55,2,28879,0)="""RTN"",""IBJPS2"",143,0)"
^XMB(3.9,55,2,28880,0)=" S IBLN=$S(IBLN>IBGRPE:IBLN,1:IBGRPE) I $G(BL) S IBLN=$$SET("""","""",IBLN,IBLR,IBSEL)"
^XMB(3.9,55,2,28881,0)="""RTN"",""IBJPS2"",144,0)"
^XMB(3.9,55,2,28882,0)=" S IBLR=$G(LR),IBGRPB=IBLN I +$G(SEL) S IBSEL=IBSEL+1 D SET1(""[""_IBSEL_""]"",IBLN,IBSEL,1)"
^XMB(3.9,55,2,28883,0)="""RTN"",""IBJPS2"",145,0)"
^XMB(3.9,55,2,28884,0)=" Q"
^XMB(3.9,55,2,28885,0)="""RTN"",""IBJPS2"",146,0)"
^XMB(3.9,55,2,28886,0)=" ;"
^XMB(3.9,55,2,28887,0)="""RTN"",""IBJPS2"",147,0)"
^XMB(3.9,55,2,28888,0)="LEFT(LR) ; - reset control variables for left side of screen"
^XMB(3.9,55,2,28889,0)="""RTN"",""IBJPS2"",148,0)"
^XMB(3.9,55,2,28890,0)=" S IBLR=$G(LR),IBGRPE=IBLN,IBLN=IBGRPB"
^XMB(3.9,55,2,28891,0)="""RTN"",""IBJPS2"",149,0)"
^XMB(3.9,55,2,28892,0)=" Q"
^XMB(3.9,55,2,28893,0)="""RTN"",""IBJTCA2"")"
^XMB(3.9,55,2,28894,0)="0^6^B23068552^B15221038"
^XMB(3.9,55,2,28895,0)="""RTN"",""IBJTCA2"",1,0)"
^XMB(3.9,55,2,28896,0)="IBJTCA2 ;ALB/ARH - TPI CLAIMS INFO BUILD (CONT) ;16-FEB-1995"
^XMB(3.9,55,2,28897,0)="""RTN"",""IBJTCA2"",2,0)"
^XMB(3.9,55,2,28898,0)=" ;;2.0;INTEGRATED BILLING;**39,80,155,320**;21-MAR-94"
^XMB(3.9,55,2,28899,0)="""RTN"",""IBJTCA2"",3,0)"
^XMB(3.9,55,2,28900,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,55,2,28901,0)="""RTN"",""IBJTCA2"",4,0)"
^XMB(3.9,55,2,28902,0)=" ;"
^XMB(3.9,55,2,28903,0)="""RTN"",""IBJTCA2"",5,0)"
^XMB(3.9,55,2,28904,0)="CONT ; Continuation of Claim Information Screen Build"
^XMB(3.9,55,2,28905,0)="""RTN"",""IBJTCA2"",6,0)"
^XMB(3.9,55,2,28906,0)=" ; reason cancelled"
^XMB(3.9,55,2,28907,0)="""RTN"",""IBJTCA2"",7,0)"
^XMB(3.9,55,2,28908,0)=" I $P(IBD0,U,13)=7 D"
^XMB(3.9,55,2,28909,0)="""RTN"",""IBJTCA2"",8,0)"
^XMB(3.9,55,2,28910,0)=" . S (IBNC(1),IBTC(1))=2,(IBNC(2),IBTC(2))=0,IBNC(3)=28,IBTW(1)=29,IBTW(2)=0,IBSW(1)=49,IBSW(2)=0"
^XMB(3.9,55,2,28911,0)="""RTN"",""IBJTCA2"",9,0)"
^XMB(3.9,55,2,28912,0)=" . S (IBT,IBD)="""" S IBLN=$$SET(IBT,IBD,IBLN,1)"
^XMB(3.9,55,2,28913,0)="""RTN"",""IBJTCA2"",10,0)"
^XMB(3.9,55,2,28914,0)=" . ;"
^XMB(3.9,55,2,28915,0)="""RTN"",""IBJTCA2"",11,0)"
^XMB(3.9,55,2,28916,0)=" . S IBGRPB=IBLN,IBLR=1"
^XMB(3.9,55,2,28917,0)="""RTN"",""IBJTCA2"",12,0)"
^XMB(3.9,55,2,28918,0)=" . K IBY D RCANC^IBJTU2(IBIFN,.IBY,50)"
^XMB(3.9,55,2,28919,0)="""RTN"",""IBJTCA2"",13,0)"
^XMB(3.9,55,2,28920,0)=" . S IBT=""Reason Cancelled by (""_$P(IBY,U,3)_""): """
^XMB(3.9,55,2,28921,0)="""RTN"",""IBJTCA2"",14,0)"
^XMB(3.9,55,2,28922,0)=" . S IBI=0 F  S IBI=$O(IBY(IBI)) Q:'IBI  S IBD=IBY(IBI) S IBLN=$$SET(IBT,IBD,IBLN,IBLR),IBT="""""
^XMB(3.9,55,2,28923,0)="""RTN"",""IBJTCA2"",15,0)"
^XMB(3.9,55,2,28924,0)=" ;"
^XMB(3.9,55,2,28925,0)="""RTN"",""IBJTCA2"",16,0)"
^XMB(3.9,55,2,28926,0)=" S (IBLN,VALMCNT)=$S(IBLN>IBGRPE:IBLN,1:IBGRPE)"
^XMB(3.9,55,2,28927,0)="""RTN"",""IBJTCA2"",17,0)"
^XMB(3.9,55,2,28928,0)=" S (IBNC(1),IBTC(1))=2,IBTW(1)=16,IBSW(1)=50"
^XMB(3.9,55,2,28929,0)="""RTN"",""IBJTCA2"",18,0)"
^XMB(3.9,55,2,28930,0)=" S (IBT,IBD)="""" S IBLN=$$SET(IBT,IBD,IBLN,IBLR)"
^XMB(3.9,55,2,28931,0)="""RTN"",""IBJTCA2"",19,0)"
^XMB(3.9,55,2,28932,0)=" ;"
^XMB(3.9,55,2,28933,0)="""RTN"",""IBJTCA2"",20,0)"
^XMB(3.9,55,2,28934,0)=" S IBGRPB=IBLN,IBLR=1"
^XMB(3.9,55,2,28935,0)="""RTN"",""IBJTCA2"",21,0)"
^XMB(3.9,55,2,28936,0)=" ;"
^XMB(3.9,55,2,28937,0)="""RTN"",""IBJTCA2"",22,0)"
^XMB(3.9,55,2,28938,0)=" I +$P(IBDS,U,1) S IBT=""Entered: "",IBD=$$EXT(IBDS,1,2) S IBLN=$$SET(IBT,IBD,IBLN,IBLR)"
^XMB(3.9,55,2,28939,0)="""RTN"",""IBJTCA2"",23,0)"
^XMB(3.9,55,2,28940,0)=" I +$P(IBDS,U,4) S IBT=""Initial Review: "",IBD=$$EXT(IBDS,4,5) S IBLN=$$SET(IBT,IBD,IBLN,IBLR)"
^XMB(3.9,55,2,28941,0)="""RTN"",""IBJTCA2"",24,0)"
^XMB(3.9,55,2,28942,0)=" I +$P(IBDS,U,7) S IBT=""MRA Request: "",IBD=$$EXT(IBDS,7,8) S IBLN=$$SET(IBT,IBD,IBLN,IBLR)"
^XMB(3.9,55,2,28943,0)="""RTN"",""IBJTCA2"",25,0)"
^XMB(3.9,55,2,28944,0)=" I +$P(IBDS,U,10) S IBT=""Authorized: "",IBD=$$EXT(IBDS,10,11) S IBLN=$$SET(IBT,IBD,IBLN,IBLR)"
^XMB(3.9,55,2,28945,0)="""RTN"",""IBJTCA2"",26,0)"
^XMB(3.9,55,2,28946,0)=" I +$P(IBDS,U,12) S IBT=""First Printed: "",IBD=$$EXT(IBDS,12,13) S IBLN=$$SET(IBT,IBD,IBLN,IBLR)"
^XMB(3.9,55,2,28947,0)="""RTN"",""IBJTCA2"",27,0)"
^XMB(3.9,55,2,28948,0)=" I $P(IBDS,U,14)>$P(IBDS,U,12) S IBT=""Last Printed: "",IBD=$$EXT(IBDS,14,15) S IBLN=$$SET(IBT,IBD,IBLN,IBLR)"
^XMB(3.9,55,2,28949,0)="""RTN"",""IBJTCA2"",28,0)"
^XMB(3.9,55,2,28950,0)=" I +$P(IBDS,U,17) S IBT=""Cancelled: "",IBD=$$EXT(IBDS,17,18) S IBLN=$$SET(IBT,IBD,IBLN,IBLR)"
^XMB(3.9,55,2,28951,0)="""RTN"",""IBJTCA2"",29,0)"
^XMB(3.9,55,2,28952,0)=" ;"
^XMB(3.9,55,2,28953,0)="""RTN"",""IBJTCA2"",30,0)"
^XMB(3.9,55,2,28954,0)=" ; Patch 320 - added bill cloning history to TPJI report. "
^XMB(3.9,55,2,28955,0)="""RTN"",""IBJTCA2"",31,0)"
^XMB(3.9,55,2,28956,0)=" N IBCCR,IBCURR,IBNEXT,IBBCH,IBINDENT"
^XMB(3.9,55,2,28957,0)="""RTN"",""IBJTCA2"",32,0)"
^XMB(3.9,55,2,28958,0)=" S IBINDENT=0"
^XMB(3.9,55,2,28959,0)="""RTN"",""IBJTCA2"",33,0)"
^XMB(3.9,55,2,28960,0)=" D EN^IBCCR(IBIFN,.IBCCR)   ; utility to pull cloning history"
^XMB(3.9,55,2,28961,0)="""RTN"",""IBJTCA2"",34,0)"
^XMB(3.9,55,2,28962,0)=" ;"
^XMB(3.9,55,2,28963,0)="""RTN"",""IBJTCA2"",35,0)"
^XMB(3.9,55,2,28964,0)=" ; attempt to go one claim forward from the current claim"
^XMB(3.9,55,2,28965,0)="""RTN"",""IBJTCA2"",36,0)"
^XMB(3.9,55,2,28966,0)=" S IBCURR=""IBCCR(""_+$P(IBDS,U,1)_"",""_IBIFN_"")"""
^XMB(3.9,55,2,28967,0)="""RTN"",""IBJTCA2"",37,0)"
^XMB(3.9,55,2,28968,0)=" S IBNEXT=$Q(@IBCURR)"
^XMB(3.9,55,2,28969,0)="""RTN"",""IBJTCA2"",38,0)"
^XMB(3.9,55,2,28970,0)=" I IBNEXT'="""" D"
^XMB(3.9,55,2,28971,0)="""RTN"",""IBJTCA2"",39,0)"
^XMB(3.9,55,2,28972,0)=" . N IBX S IBX=@IBNEXT"
^XMB(3.9,55,2,28973,0)="""RTN"",""IBJTCA2"",40,0)"
^XMB(3.9,55,2,28974,0)=" . S IBT=""Copied: """
^XMB(3.9,55,2,28975,0)="""RTN"",""IBJTCA2"",41,0)"
^XMB(3.9,55,2,28976,0)=" . S IBD=$$FMTE^XLFDT($P(IBX,U,1),""2Z"")_""  by  ""_$P(IBX,U,3)"
^XMB(3.9,55,2,28977,0)="""RTN"",""IBJTCA2"",42,0)"
^XMB(3.9,55,2,28978,0)=" . S IBLN=$$SET(IBT,IBD,IBLN,IBLR)"
^XMB(3.9,55,2,28979,0)="""RTN"",""IBJTCA2"",43,0)"
^XMB(3.9,55,2,28980,0)=" . S IBT=""Copied To: "",IBD=$P(IBX,U,2),IBLN=$$SET(IBT,IBD,IBLN,IBLR)"
^XMB(3.9,55,2,28981,0)="""RTN"",""IBJTCA2"",44,0)"
^XMB(3.9,55,2,28982,0)=" . S IBINDENT=1"
^XMB(3.9,55,2,28983,0)="""RTN"",""IBJTCA2"",45,0)"
^XMB(3.9,55,2,28984,0)=" . Q"
^XMB(3.9,55,2,28985,0)="""RTN"",""IBJTCA2"",46,0)"
^XMB(3.9,55,2,28986,0)=" ;"
^XMB(3.9,55,2,28987,0)="""RTN"",""IBJTCA2"",47,0)"
^XMB(3.9,55,2,28988,0)=" ; now go backwards for claim cloning history all the way back"
^XMB(3.9,55,2,28989,0)="""RTN"",""IBJTCA2"",48,0)"
^XMB(3.9,55,2,28990,0)=" S IBBCH=IBCURR"
^XMB(3.9,55,2,28991,0)="""RTN"",""IBJTCA2"",49,0)"
^XMB(3.9,55,2,28992,0)=" F  S IBBCH=$Q(@IBBCH,-1) Q:IBBCH=""""  D"
^XMB(3.9,55,2,28993,0)="""RTN"",""IBJTCA2"",50,0)"
^XMB(3.9,55,2,28994,0)=" . N IBX S IBX=@IBBCH"
^XMB(3.9,55,2,28995,0)="""RTN"",""IBJTCA2"",51,0)"
^XMB(3.9,55,2,28996,0)=" . S IBT=""Copied: "" I IBINDENT S IBT=""                  ""_IBT"
^XMB(3.9,55,2,28997,0)="""RTN"",""IBJTCA2"",52,0)"
^XMB(3.9,55,2,28998,0)=" . S IBD=$$FMTE^XLFDT($P(IBX,U,1),""2Z"")_""  by  ""_$P(IBX,U,3)"
^XMB(3.9,55,2,28999,0)="""RTN"",""IBJTCA2"",53,0)"
^XMB(3.9,55,2,29000,0)=" . S IBLN=$$SET(IBT,IBD,IBLN,IBLR)"
^XMB(3.9,55,2,29001,0)="""RTN"",""IBJTCA2"",54,0)"
^XMB(3.9,55,2,29002,0)=" . S IBT=""Copied From: "" I IBINDENT S IBT=""             ""_IBT"
^XMB(3.9,55,2,29003,0)="""RTN"",""IBJTCA2"",55,0)"
^XMB(3.9,55,2,29004,0)=" . S IBD=$P(IBX,U,2),IBLN=$$SET(IBT,IBD,IBLN,IBLR)"
^XMB(3.9,55,2,29005,0)="""RTN"",""IBJTCA2"",56,0)"
^XMB(3.9,55,2,29006,0)=" . S IBT=""Reason Copied: "" I IBINDENT S IBT=""           ""_IBT"
^XMB(3.9,55,2,29007,0)="""RTN"",""IBJTCA2"",57,0)"
^XMB(3.9,55,2,29008,0)=" . S IBD=$P(IBX,U,4),IBLN=$$SET(IBT,IBD,IBLN,IBLR)"
^XMB(3.9,55,2,29009,0)="""RTN"",""IBJTCA2"",58,0)"
^XMB(3.9,55,2,29010,0)=" . S IBINDENT=1"
^XMB(3.9,55,2,29011,0)="""RTN"",""IBJTCA2"",59,0)"
^XMB(3.9,55,2,29012,0)=" . Q"
^XMB(3.9,55,2,29013,0)="""RTN"",""IBJTCA2"",60,0)"
^XMB(3.9,55,2,29014,0)=" ;"
^XMB(3.9,55,2,29015,0)="""RTN"",""IBJTCA2"",61,0)"
^XMB(3.9,55,2,29016,0)=" I $D(^DGCR(399,IBIFN,""R"",""AC"",1)) S IBT=""Returned to AR: "",X=0 F  S X=$O(^DGCR(399,IBIFN,""R"",""AC"",1,X)) Q:'X  D"
^XMB(3.9,55,2,29017,0)="""RTN"",""IBJTCA2"",62,0)"
^XMB(3.9,55,2,29018,0)=" . S IBY=$G(^DGCR(399,IBIFN,""R"",X,0)),IBD=$$EXT(IBY,1,2) S IBLN=$$SET(IBT,IBD,IBLN,IBLR)"
^XMB(3.9,55,2,29019,0)="""RTN"",""IBJTCA2"",63,0)"
^XMB(3.9,55,2,29020,0)=" ;"
^XMB(3.9,55,2,29021,0)="""RTN"",""IBJTCA2"",64,0)"
^XMB(3.9,55,2,29022,0)=" N IBCOB,IBX,IBY,IBI,IBJ,IBK D BCOB^IBCU3(IBIFN,.IBCOB) I $O(IBCOB(0)) D"
^XMB(3.9,55,2,29023,0)="""RTN"",""IBJTCA2"",65,0)"
^XMB(3.9,55,2,29024,0)=" . S IBTC(1)=2,IBTW(1)=12,IBSW(1)=68,IBLR=1,IBNC(1)=26"
^XMB(3.9,55,2,29025,0)="""RTN"",""IBJTCA2"",66,0)"
^XMB(3.9,55,2,29026,0)=" . S (IBT,IBD)="""" S IBLN=$$SET(IBT,IBD,IBLN,1)"
^XMB(3.9,55,2,29027,0)="""RTN"",""IBJTCA2"",67,0)"
^XMB(3.9,55,2,29028,0)=" . S IBT=""Payers and Related Bills"" S IBLN=$$SETN^IBJTCA1(IBT,IBLN,IBLR,1)"
^XMB(3.9,55,2,29029,0)="""RTN"",""IBJTCA2"",68,0)"
^XMB(3.9,55,2,29030,0)=" . S (IBT,IBD)="""" S IBLN=$$SET(IBT,IBD,IBLN,1)"
^XMB(3.9,55,2,29031,0)="""RTN"",""IBJTCA2"",69,0)"
^XMB(3.9,55,2,29032,0)=" . S IBT="""",IBD=""Insurance Co.    Bill #     Status   Original  Collected    Balance"""
^XMB(3.9,55,2,29033,0)="""RTN"",""IBJTCA2"",70,0)"
^XMB(3.9,55,2,29034,0)=" . S IBLN=$$SET(IBT,IBD,IBLN,IBLR) D CNTRL^VALM10(IBLN-1,(IBTC(1)+IBTW(1)),IBSW(1),IOUON,IOUOFF)"
^XMB(3.9,55,2,29035,0)="""RTN"",""IBJTCA2"",71,0)"
^XMB(3.9,55,2,29036,0)=" . S IBI=0 F  S IBI=$O(IBCOB(IBI)) Q:'IBI  D"
^XMB(3.9,55,2,29037,0)="""RTN"",""IBJTCA2"",72,0)"
^XMB(3.9,55,2,29038,0)=" .. S IBT=$S(IBI=1:""Primary"",IBI=2:""Secondary"",IBI=3:""Tertiary"",1:""Other"")_"":  """
^XMB(3.9,55,2,29039,0)="""RTN"",""IBJTCA2"",73,0)"
^XMB(3.9,55,2,29040,0)=" .. S IBJ=0 F  S IBJ=$O(IBCOB(IBI,IBJ)) Q:'IBJ  S IBK="""" F  S IBK=$O(IBCOB(IBI,IBJ,IBK)) Q:IBK=""""  D"
^XMB(3.9,55,2,29041,0)="""RTN"",""IBJTCA2"",74,0)"
^XMB(3.9,55,2,29042,0)=" ... S IBD="""",IBY=$$BILL^RCJIBFN2(IBK)"
^XMB(3.9,55,2,29043,0)="""RTN"",""IBJTCA2"",75,0)"
^XMB(3.9,55,2,29044,0)=" ... S IBX=$P($G(^DIC(36,+IBJ,0)),U,1) S IBD=$$SLINE(IBD,IBX,0,15)"
^XMB(3.9,55,2,29045,0)="""RTN"",""IBJTCA2"",76,0)"
^XMB(3.9,55,2,29046,0)=" ... I +IBK D"
^XMB(3.9,55,2,29047,0)="""RTN"",""IBJTCA2"",77,0)"
^XMB(3.9,55,2,29048,0)=" .... S IBX=$P($G(^DGCR(399,+IBK,0)),U,1) S IBD=$$SLINE(IBD,IBX,17,10)"
^XMB(3.9,55,2,29049,0)="""RTN"",""IBJTCA2"",78,0)"
^XMB(3.9,55,2,29050,0)=" .... S IBX=$P($$STNO^RCJIBFN2(+$P(IBY,U,2)),U,2) ;bill status"
^XMB(3.9,55,2,29051,0)="""RTN"",""IBJTCA2"",79,0)"
^XMB(3.9,55,2,29052,0)=" .... ; if MRA active & bill pyr seq >1 & dsply'g prmry & prmry ins is WNR"
^XMB(3.9,55,2,29053,0)="""RTN"",""IBJTCA2"",80,0)"
^XMB(3.9,55,2,29054,0)=" .... I $$EDIACTV^IBCEF4(2),$$COBN^IBCEF(+IBK)>1,IBI=1,$$MCRWNR^IBEFUNC(+IBJ) D"
^XMB(3.9,55,2,29055,0)="""RTN"",""IBJTCA2"",81,0)"
^XMB(3.9,55,2,29056,0)=" ..... S IBX="" "",IBY=""0^^0^0^0"" ;blank out status & reset WNR amounts"
^XMB(3.9,55,2,29057,0)="""RTN"",""IBJTCA2"",82,0)"
^XMB(3.9,55,2,29058,0)=" .... S IBD=$$SLINE(IBD,IBX,30,3)"
^XMB(3.9,55,2,29059,0)="""RTN"",""IBJTCA2"",83,0)"
^XMB(3.9,55,2,29060,0)=" .... S IBX=$J($P(IBY,U,1),10,2) S IBD=$$SLINE(IBD,IBX,35,10)"
^XMB(3.9,55,2,29061,0)="""RTN"",""IBJTCA2"",84,0)"
^XMB(3.9,55,2,29062,0)=" .... S IBX=$J($P(IBY,U,4),10,2) S IBD=$$SLINE(IBD,IBX,46,10)"
^XMB(3.9,55,2,29063,0)="""RTN"",""IBJTCA2"",85,0)"
^XMB(3.9,55,2,29064,0)=" .... S IBX=$J($P(IBY,U,3),10,2) S IBD=$$SLINE(IBD,IBX,57,10)"
^XMB(3.9,55,2,29065,0)="""RTN"",""IBJTCA2"",86,0)"
^XMB(3.9,55,2,29066,0)=" ... S IBLN=$$SET(IBT,IBD,IBLN,IBLR),IBT="""""
^XMB(3.9,55,2,29067,0)="""RTN"",""IBJTCA2"",87,0)"
^XMB(3.9,55,2,29068,0)=" Q"
^XMB(3.9,55,2,29069,0)="""RTN"",""IBJTCA2"",88,0)"
^XMB(3.9,55,2,29070,0)=" ;"
^XMB(3.9,55,2,29071,0)="""RTN"",""IBJTCA2"",89,0)"
^XMB(3.9,55,2,29072,0)="EXT(STR,DT,USER) ; returns external form of user and date, given their position in the string"
^XMB(3.9,55,2,29073,0)="""RTN"",""IBJTCA2"",90,0)"
^XMB(3.9,55,2,29074,0)=" N X,Y S Y="""",STR=$G(STR),DT=+$G(DT),USER=+$G(USER)"
^XMB(3.9,55,2,29075,0)="""RTN"",""IBJTCA2"",91,0)"
^XMB(3.9,55,2,29076,0)=" S X=$P(STR,U,DT),DT="""" I +X S DT=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3)"
^XMB(3.9,55,2,29077,0)="""RTN"",""IBJTCA2"",92,0)"
^XMB(3.9,55,2,29078,0)=" S X=$P(STR,U,USER),USER="""" I +X S USER=$P($G(^VA(200,+X,0)),U,1)"
^XMB(3.9,55,2,29079,0)="""RTN"",""IBJTCA2"",93,0)"
^XMB(3.9,55,2,29080,0)=" S Y=DT_""  by  ""_$S(USER="""":""UNKNOWN"",1:USER)"
^XMB(3.9,55,2,29081,0)="""RTN"",""IBJTCA2"",94,0)"
^XMB(3.9,55,2,29082,0)=" Q Y"
^XMB(3.9,55,2,29083,0)="""RTN"",""IBJTCA2"",95,0)"
^XMB(3.9,55,2,29084,0)=" ;"
^XMB(3.9,55,2,29085,0)="""RTN"",""IBJTCA2"",96,0)"
^XMB(3.9,55,2,29086,0)="SET(IBT,IBD,IBLN,IBLR) ;"
^XMB(3.9,55,2,29087,0)="""RTN"",""IBJTCA2"",97,0)"
^XMB(3.9,55,2,29088,0)=" N LN S LN=$$SET^IBJTCA1(IBT,IBD,IBLN,IBLR)"
^XMB(3.9,55,2,29089,0)="""RTN"",""IBJTCA2"",98,0)"
^XMB(3.9,55,2,29090,0)=" Q LN"
^XMB(3.9,55,2,29091,0)="""RTN"",""IBJTCA2"",99,0)"
^XMB(3.9,55,2,29092,0)=" ;"
^XMB(3.9,55,2,29093,0)="""RTN"",""IBJTCA2"",100,0)"
^XMB(3.9,55,2,29094,0)="SLINE(IBD,DATA,COL,WD) ; format a single line with multiple data fields"
^XMB(3.9,55,2,29095,0)="""RTN"",""IBJTCA2"",101,0)"
^XMB(3.9,55,2,29096,0)=" S IBD=$E(IBD,1,(COL-1)),IBD=IBD_$J("""",(COL-$L(IBD))),IBD=IBD_$E(DATA,1,WD)"
^XMB(3.9,55,2,29097,0)="""RTN"",""IBJTCA2"",102,0)"
^XMB(3.9,55,2,29098,0)=" Q IBD"
^XMB(3.9,55,2,29099,0)="""RTN"",""IBY320PO"")"
^XMB(3.9,55,2,29100,0)="0^^B97753326"
^XMB(3.9,55,2,29101,0)="""RTN"",""IBY320PO"",1,0)"
^XMB(3.9,55,2,29102,0)="IBY320PO ;ALB/ESG - Post Install for IB patch 320 ;28-JUL-2005"
^XMB(3.9,55,2,29103,0)="""RTN"",""IBY320PO"",2,0)"
^XMB(3.9,55,2,29104,0)=" ;;2.0;INTEGRATED BILLING;**320**;21-MAR-94"
^XMB(3.9,55,2,29105,0)="""RTN"",""IBY320PO"",3,0)"
^XMB(3.9,55,2,29106,0)=" ;"
^XMB(3.9,55,2,29107,0)="""RTN"",""IBY320PO"",4,0)"
^XMB(3.9,55,2,29108,0)="EN ;"
^XMB(3.9,55,2,29109,0)="""RTN"",""IBY320PO"",5,0)"
^XMB(3.9,55,2,29110,0)=" N XPDIDTOT S XPDIDTOT=9"
^XMB(3.9,55,2,29111,0)="""RTN"",""IBY320PO"",6,0)"
^XMB(3.9,55,2,29112,0)=" D TWOQ         ; 1. get rid of 2Q status messages on CSA"
^XMB(3.9,55,2,29113,0)="""RTN"",""IBY320PO"",7,0)"
^XMB(3.9,55,2,29114,0)=" D RCB          ; 2. change one EDI menu mnemonic"
^XMB(3.9,55,2,29115,0)="""RTN"",""IBY320PO"",8,0)"
^XMB(3.9,55,2,29116,0)=" D ATD          ; 3. create regular style x-ref for file 361.4"
^XMB(3.9,55,2,29117,0)="""RTN"",""IBY320PO"",9,0)"
^XMB(3.9,55,2,29118,0)=" D MCRWNR       ; 4. create 2 new entries in file 355.92 for Medicare"
^XMB(3.9,55,2,29119,0)="""RTN"",""IBY320PO"",10,0)"
^XMB(3.9,55,2,29120,0)=" D TRIGGERS     ; 5. Trigger defaults in 36 and 355.93"
^XMB(3.9,55,2,29121,0)="""RTN"",""IBY320PO"",11,0)"
^XMB(3.9,55,2,29122,0)=" D IBEFTFLG     ; 6. Set flag in 355.9 for what kind of ID it is"
^XMB(3.9,55,2,29123,0)="""RTN"",""IBY320PO"",12,0)"
^XMB(3.9,55,2,29124,0)=" D AUNIQ        ; 7. create new style x-ref IBA(355.92,""AUNIQ"")"
^XMB(3.9,55,2,29125,0)="""RTN"",""IBY320PO"",13,0)"
^XMB(3.9,55,2,29126,0)=" D F35597       ; 8. Update file 355.97"
^XMB(3.9,55,2,29127,0)="""RTN"",""IBY320PO"",14,0)"
^XMB(3.9,55,2,29128,0)=" D RIT          ; 9. Recompile input templates"
^XMB(3.9,55,2,29129,0)="""RTN"",""IBY320PO"",15,0)"
^XMB(3.9,55,2,29130,0)=" ;"
^XMB(3.9,55,2,29131,0)="""RTN"",""IBY320PO"",16,0)"
^XMB(3.9,55,2,29132,0)="EX ;"
^XMB(3.9,55,2,29133,0)="""RTN"",""IBY320PO"",17,0)"
^XMB(3.9,55,2,29134,0)=" Q"
^XMB(3.9,55,2,29135,0)="""RTN"",""IBY320PO"",18,0)"
^XMB(3.9,55,2,29136,0)=" ;"
^XMB(3.9,55,2,29137,0)="""RTN"",""IBY320PO"",19,0)"
^XMB(3.9,55,2,29138,0)="TWOQ ; Remove 2Q rejection messages from the current CSA screen"
^XMB(3.9,55,2,29139,0)="""RTN"",""IBY320PO"",20,0)"
^XMB(3.9,55,2,29140,0)=" NEW DATA,TXT,DO,DA,DIC,X,Y,IBRS,IEN"
^XMB(3.9,55,2,29141,0)="""RTN"",""IBY320PO"",21,0)"
^XMB(3.9,55,2,29142,0)=" D BMES^XPDUTL("" STEP 1 of ""_XPDIDTOT)"
^XMB(3.9,55,2,29143,0)="""RTN"",""IBY320PO"",22,0)"
^XMB(3.9,55,2,29144,0)=" D MES^XPDUTL(""-------------"")"
^XMB(3.9,55,2,29145,0)="""RTN"",""IBY320PO"",23,0)"
^XMB(3.9,55,2,29146,0)=" D MES^XPDUTL(""Removing 2Q rejection messages from the CSA screen ...."")"
^XMB(3.9,55,2,29147,0)="""RTN"",""IBY320PO"",24,0)"
^XMB(3.9,55,2,29148,0)=" F IBRS=0,1 S IEN=0 F  S IEN=$O(^IBM(361,""ACSA"",""R"",IBRS,IEN)) Q:'IEN  D"
^XMB(3.9,55,2,29149,0)="""RTN"",""IBY320PO"",25,0)"
^XMB(3.9,55,2,29150,0)=" . I $G(^IBM(361,IEN,1,1,0))'[""2Q  CLAIM REJECTED BY CLEARINGHOUSE"" Q"
^XMB(3.9,55,2,29151,0)="""RTN"",""IBY320PO"",26,0)"
^XMB(3.9,55,2,29152,0)=" . S DIE=361,DA=IEN"
^XMB(3.9,55,2,29153,0)="""RTN"",""IBY320PO"",27,0)"
^XMB(3.9,55,2,29154,0)=" . ; Change the status message"
^XMB(3.9,55,2,29155,0)="""RTN"",""IBY320PO"",28,0)"
^XMB(3.9,55,2,29156,0)=" . ; .03 - informational; .09 - review complete; .14 - auto filed"
^XMB(3.9,55,2,29157,0)="""RTN"",""IBY320PO"",29,0)"
^XMB(3.9,55,2,29158,0)=" . ;  .1 - final review action (filed - no action)"
^XMB(3.9,55,2,29159,0)="""RTN"",""IBY320PO"",30,0)"
^XMB(3.9,55,2,29160,0)=" . S DR="".03////I;.09////2;.14////1;.1////F"""
^XMB(3.9,55,2,29161,0)="""RTN"",""IBY320PO"",31,0)"
^XMB(3.9,55,2,29162,0)=" . D ^DIE"
^XMB(3.9,55,2,29163,0)="""RTN"",""IBY320PO"",32,0)"
^XMB(3.9,55,2,29164,0)=" . Q"
^XMB(3.9,55,2,29165,0)="""RTN"",""IBY320PO"",33,0)"
^XMB(3.9,55,2,29166,0)=" ;"
^XMB(3.9,55,2,29167,0)="""RTN"",""IBY320PO"",34,0)"
^XMB(3.9,55,2,29168,0)="TWOQX ;"
^XMB(3.9,55,2,29169,0)="""RTN"",""IBY320PO"",35,0)"
^XMB(3.9,55,2,29170,0)=" D MES^XPDUTL("" Done."")"
^XMB(3.9,55,2,29171,0)="""RTN"",""IBY320PO"",36,0)"
^XMB(3.9,55,2,29172,0)=" D UPDATE^XPDID(1)"
^XMB(3.9,55,2,29173,0)="""RTN"",""IBY320PO"",37,0)"
^XMB(3.9,55,2,29174,0)=" Q"
^XMB(3.9,55,2,29175,0)="""RTN"",""IBY320PO"",38,0)"
^XMB(3.9,55,2,29176,0)=" ;"
^XMB(3.9,55,2,29177,0)="""RTN"",""IBY320PO"",39,0)"
^XMB(3.9,55,2,29178,0)="RCB ; Change the menu mnemonic on the EDI menu for RCB"
^XMB(3.9,55,2,29179,0)="""RTN"",""IBY320PO"",40,0)"
^XMB(3.9,55,2,29180,0)=" NEW MENUIEN,ITEMIEN,STOP,IBX,DIE,DA,DR"
^XMB(3.9,55,2,29181,0)="""RTN"",""IBY320PO"",41,0)"
^XMB(3.9,55,2,29182,0)=" D BMES^XPDUTL("" STEP 2 of ""_XPDIDTOT)"
^XMB(3.9,55,2,29183,0)="""RTN"",""IBY320PO"",42,0)"
^XMB(3.9,55,2,29184,0)=" D MES^XPDUTL(""-------------"")"
^XMB(3.9,55,2,29185,0)="""RTN"",""IBY320PO"",43,0)"
^XMB(3.9,55,2,29186,0)=" D MES^XPDUTL(""Updating EDI menu mnemonics ...."")"
^XMB(3.9,55,2,29187,0)="""RTN"",""IBY320PO"",44,0)"
^XMB(3.9,55,2,29188,0)=" ;"
^XMB(3.9,55,2,29189,0)="""RTN"",""IBY320PO"",45,0)"
^XMB(3.9,55,2,29190,0)=" S MENUIEN=$O(^DIC(19,""B"",""IBCE 837 EDI MENU"",0)) I 'MENUIEN G RCBX"
^XMB(3.9,55,2,29191,0)="""RTN"",""IBY320PO"",46,0)"
^XMB(3.9,55,2,29192,0)=" S ITEMIEN=0,STOP=0"
^XMB(3.9,55,2,29193,0)="""RTN"",""IBY320PO"",47,0)"
^XMB(3.9,55,2,29194,0)=" F  S ITEMIEN=$O(^DIC(19,MENUIEN,10,ITEMIEN)) Q:'ITEMIEN  D  Q:STOP"
^XMB(3.9,55,2,29195,0)="""RTN"",""IBY320PO"",48,0)"
^XMB(3.9,55,2,29196,0)=" . S IBX=$P($G(^DIC(19,MENUIEN,10,ITEMIEN,0)),U,1) Q:'IBX"
^XMB(3.9,55,2,29197,0)="""RTN"",""IBY320PO"",49,0)"
^XMB(3.9,55,2,29198,0)=" . I $P($G(^DIC(19,IBX,0)),U,1)'=""IBCE PREV TRANSMITTED CLAIMS"" Q"
^XMB(3.9,55,2,29199,0)="""RTN"",""IBY320PO"",50,0)"
^XMB(3.9,55,2,29200,0)=" . S DIE=""^DIC(19,""_MENUIEN_"",10,"""
^XMB(3.9,55,2,29201,0)="""RTN"",""IBY320PO"",51,0)"
^XMB(3.9,55,2,29202,0)=" . S DA=ITEMIEN,DA(1)=MENUIEN"
^XMB(3.9,55,2,29203,0)="""RTN"",""IBY320PO"",52,0)"
^XMB(3.9,55,2,29204,0)=" . S DR=""2////RCB;3////40"""
^XMB(3.9,55,2,29205,0)="""RTN"",""IBY320PO"",53,0)"
^XMB(3.9,55,2,29206,0)=" . D ^DIE"
^XMB(3.9,55,2,29207,0)="""RTN"",""IBY320PO"",54,0)"
^XMB(3.9,55,2,29208,0)=" . S STOP=1"
^XMB(3.9,55,2,29209,0)="""RTN"",""IBY320PO"",55,0)"
^XMB(3.9,55,2,29210,0)=" . Q"
^XMB(3.9,55,2,29211,0)="""RTN"",""IBY320PO"",56,0)"
^XMB(3.9,55,2,29212,0)="RCBX ;"
^XMB(3.9,55,2,29213,0)="""RTN"",""IBY320PO"",57,0)"
^XMB(3.9,55,2,29214,0)=" D MES^XPDUTL("" Done."")"
^XMB(3.9,55,2,29215,0)="""RTN"",""IBY320PO"",58,0)"
^XMB(3.9,55,2,29216,0)=" D UPDATE^XPDID(2)"
^XMB(3.9,55,2,29217,0)="""RTN"",""IBY320PO"",59,0)"
^XMB(3.9,55,2,29218,0)=" Q"
^XMB(3.9,55,2,29219,0)="""RTN"",""IBY320PO"",60,0)"
^XMB(3.9,55,2,29220,0)=" ;"
^XMB(3.9,55,2,29221,0)="""RTN"",""IBY320PO"",61,0)"
^XMB(3.9,55,2,29222,0)="ATD ; create ATD x-ref on file 361.4"
^XMB(3.9,55,2,29223,0)="""RTN"",""IBY320PO"",62,0)"
^XMB(3.9,55,2,29224,0)=" NEW IBIFN,DA,DIK"
^XMB(3.9,55,2,29225,0)="""RTN"",""IBY320PO"",63,0)"
^XMB(3.9,55,2,29226,0)=" D BMES^XPDUTL("" STEP 3 of ""_XPDIDTOT)"
^XMB(3.9,55,2,29227,0)="""RTN"",""IBY320PO"",64,0)"
^XMB(3.9,55,2,29228,0)=" D MES^XPDUTL(""-------------"")"
^XMB(3.9,55,2,29229,0)="""RTN"",""IBY320PO"",65,0)"
^XMB(3.9,55,2,29230,0)=" D MES^XPDUTL(""Creating 'ATD' x-ref for File 361.4 ...."")"
^XMB(3.9,55,2,29231,0)="""RTN"",""IBY320PO"",66,0)"
^XMB(3.9,55,2,29232,0)=" KILL ^IBM(361.4,""ATD"")"
^XMB(3.9,55,2,29233,0)="""RTN"",""IBY320PO"",67,0)"
^XMB(3.9,55,2,29234,0)=" S IBIFN=0"
^XMB(3.9,55,2,29235,0)="""RTN"",""IBY320PO"",68,0)"
^XMB(3.9,55,2,29236,0)=" F  S IBIFN=$O(^IBM(361.4,IBIFN)) Q:'IBIFN  D"
^XMB(3.9,55,2,29237,0)="""RTN"",""IBY320PO"",69,0)"
^XMB(3.9,55,2,29238,0)=" . S DA(1)=IBIFN"
^XMB(3.9,55,2,29239,0)="""RTN"",""IBY320PO"",70,0)"
^XMB(3.9,55,2,29240,0)=" . S DIK=""^IBM(361.4,""_DA(1)_"",1,"""
^XMB(3.9,55,2,29241,0)="""RTN"",""IBY320PO"",71,0)"
^XMB(3.9,55,2,29242,0)=" . S DIK(1)="".01^ATD"""
^XMB(3.9,55,2,29243,0)="""RTN"",""IBY320PO"",72,0)"
^XMB(3.9,55,2,29244,0)=" . D ENALL^DIK"
^XMB(3.9,55,2,29245,0)="""RTN"",""IBY320PO"",73,0)"
^XMB(3.9,55,2,29246,0)=" . Q"
^XMB(3.9,55,2,29247,0)="""RTN"",""IBY320PO"",74,0)"
^XMB(3.9,55,2,29248,0)="ATDX ;"
^XMB(3.9,55,2,29249,0)="""RTN"",""IBY320PO"",75,0)"
^XMB(3.9,55,2,29250,0)=" D MES^XPDUTL("" Done."")"
^XMB(3.9,55,2,29251,0)="""RTN"",""IBY320PO"",76,0)"
^XMB(3.9,55,2,29252,0)=" D UPDATE^XPDID(3)"
^XMB(3.9,55,2,29253,0)="""RTN"",""IBY320PO"",77,0)"
^XMB(3.9,55,2,29254,0)=" Q"
^XMB(3.9,55,2,29255,0)="""RTN"",""IBY320PO"",78,0)"
^XMB(3.9,55,2,29256,0)=" ;"
^XMB(3.9,55,2,29257,0)="""RTN"",""IBY320PO"",79,0)"
^XMB(3.9,55,2,29258,0)="MCRWNR ; Medicare (WNR) clean up file 355.92 entries and add 2 new entries"
^XMB(3.9,55,2,29259,0)="""RTN"",""IBY320PO"",80,0)"
^XMB(3.9,55,2,29260,0)=" NEW DA,DIK,INSCO,MCRWNR,DO,DIC,X,Y,DFN,OK,IBIFN,BPID,DIE,DR"
^XMB(3.9,55,2,29261,0)="""RTN"",""IBY320PO"",81,0)"
^XMB(3.9,55,2,29262,0)=" D BMES^XPDUTL("" STEP 4 of ""_XPDIDTOT)"
^XMB(3.9,55,2,29263,0)="""RTN"",""IBY320PO"",82,0)"
^XMB(3.9,55,2,29264,0)=" D MES^XPDUTL(""-------------"")"
^XMB(3.9,55,2,29265,0)="""RTN"",""IBY320PO"",83,0)"
^XMB(3.9,55,2,29266,0)=" D MES^XPDUTL(""Updating Billing Provider IDs for MEDICARE (WNR) ...."")"
^XMB(3.9,55,2,29267,0)="""RTN"",""IBY320PO"",84,0)"
^XMB(3.9,55,2,29268,0)=" ;"
^XMB(3.9,55,2,29269,0)="""RTN"",""IBY320PO"",85,0)"
^XMB(3.9,55,2,29270,0)=" ; First, find the MEDICARE (WNR) ins co ien"
^XMB(3.9,55,2,29271,0)="""RTN"",""IBY320PO"",86,0)"
^XMB(3.9,55,2,29272,0)=" S INSCO=0"
^XMB(3.9,55,2,29273,0)="""RTN"",""IBY320PO"",87,0)"
^XMB(3.9,55,2,29274,0)=" F  S INSCO=$O(^DIC(36,""B"",""MEDICARE (WNR)"",INSCO)) Q:'INSCO  D"
^XMB(3.9,55,2,29275,0)="""RTN"",""IBY320PO"",88,0)"
^XMB(3.9,55,2,29276,0)=" . I $$MCRWNR^IBEFUNC(INSCO) S MCRWNR(INSCO)="""" Q"
^XMB(3.9,55,2,29277,0)="""RTN"",""IBY320PO"",89,0)"
^XMB(3.9,55,2,29278,0)=" . D MES^XPDUTL(""ERROR: Insurance company on file named 'MEDICARE (WNR)' incorrectly set-up."")"
^XMB(3.9,55,2,29279,0)="""RTN"",""IBY320PO"",90,0)"
^XMB(3.9,55,2,29280,0)=" . Q"
^XMB(3.9,55,2,29281,0)="""RTN"",""IBY320PO"",91,0)"
^XMB(3.9,55,2,29282,0)=" ;"
^XMB(3.9,55,2,29283,0)="""RTN"",""IBY320PO"",92,0)"
^XMB(3.9,55,2,29284,0)=" I '$D(MCRWNR) D MES^XPDUTL(""ERROR: Insurance company 'MEDICARE (WNR)' not found."") G MCRX"
^XMB(3.9,55,2,29285,0)="""RTN"",""IBY320PO"",93,0)"
^XMB(3.9,55,2,29286,0)=" ;"
^XMB(3.9,55,2,29287,0)="""RTN"",""IBY320PO"",94,0)"
^XMB(3.9,55,2,29288,0)=" I $O(MCRWNR(""""))'=$O(MCRWNR(""""),-1) D MES^XPDUTL(""ERROR: Multiple insurance companies named 'MEDICARE (WNR)' found."")"
^XMB(3.9,55,2,29289,0)="""RTN"",""IBY320PO"",95,0)"
^XMB(3.9,55,2,29290,0)=" ;"
^XMB(3.9,55,2,29291,0)="""RTN"",""IBY320PO"",96,0)"
^XMB(3.9,55,2,29292,0)=" ; Next, get rid of any entries in this file for Medicare (clean-up)"
^XMB(3.9,55,2,29293,0)="""RTN"",""IBY320PO"",97,0)"
^XMB(3.9,55,2,29294,0)=" S INSCO=0,DIK=""^IBA(355.92,"""
^XMB(3.9,55,2,29295,0)="""RTN"",""IBY320PO"",98,0)"
^XMB(3.9,55,2,29296,0)=" F  S INSCO=$O(MCRWNR(INSCO)) Q:'INSCO  D"
^XMB(3.9,55,2,29297,0)="""RTN"",""IBY320PO"",99,0)"
^XMB(3.9,55,2,29298,0)=" . S DA=0"
^XMB(3.9,55,2,29299,0)="""RTN"",""IBY320PO"",100,0)"
^XMB(3.9,55,2,29300,0)=" . F  S DA=$O(^IBA(355.92,""B"",INSCO,DA)) Q:'DA  D ^DIK"
^XMB(3.9,55,2,29301,0)="""RTN"",""IBY320PO"",101,0)"
^XMB(3.9,55,2,29302,0)=" . Q"
^XMB(3.9,55,2,29303,0)="""RTN"",""IBY320PO"",102,0)"
^XMB(3.9,55,2,29304,0)=" ;"
^XMB(3.9,55,2,29305,0)="""RTN"",""IBY320PO"",103,0)"
^XMB(3.9,55,2,29306,0)=" ; Next, add 2 entries for each Medicare (wnr) (should only be one)"
^XMB(3.9,55,2,29307,0)="""RTN"",""IBY320PO"",104,0)"
^XMB(3.9,55,2,29308,0)=" S INSCO=0"
^XMB(3.9,55,2,29309,0)="""RTN"",""IBY320PO"",105,0)"
^XMB(3.9,55,2,29310,0)=" F  S INSCO=$O(MCRWNR(INSCO)) Q:'INSCO  D"
^XMB(3.9,55,2,29311,0)="""RTN"",""IBY320PO"",106,0)"
^XMB(3.9,55,2,29312,0)=" . K DO"
^XMB(3.9,55,2,29313,0)="""RTN"",""IBY320PO"",107,0)"
^XMB(3.9,55,2,29314,0)=" . S DIC=""^IBA(355.92,"",DIC(0)="""",X=INSCO"
^XMB(3.9,55,2,29315,0)="""RTN"",""IBY320PO"",108,0)"
^XMB(3.9,55,2,29316,0)=" . S DIC(""DR"")="".04///1;.06///MEDICARE PART A;.07///670899;.08///E"""
^XMB(3.9,55,2,29317,0)="""RTN"",""IBY320PO"",109,0)"
^XMB(3.9,55,2,29318,0)=" . D FILE^DICN"
^XMB(3.9,55,2,29319,0)="""RTN"",""IBY320PO"",110,0)"
^XMB(3.9,55,2,29320,0)=" . K DO"
^XMB(3.9,55,2,29321,0)="""RTN"",""IBY320PO"",111,0)"
^XMB(3.9,55,2,29322,0)=" . S DIC=""^IBA(355.92,"",DIC(0)="""",X=INSCO"
^XMB(3.9,55,2,29323,0)="""RTN"",""IBY320PO"",112,0)"
^XMB(3.9,55,2,29324,0)=" . S DIC(""DR"")="".04///2;.06///MEDICARE PART B;.07///VA0""_$P($$SITE^VASITE,U,3)_"";.08///E"""
^XMB(3.9,55,2,29325,0)="""RTN"",""IBY320PO"",113,0)"
^XMB(3.9,55,2,29326,0)=" . D FILE^DICN"
^XMB(3.9,55,2,29327,0)="""RTN"",""IBY320PO"",114,0)"
^XMB(3.9,55,2,29328,0)=" . Q"
^XMB(3.9,55,2,29329,0)="""RTN"",""IBY320PO"",115,0)"
^XMB(3.9,55,2,29330,0)=" ;"
^XMB(3.9,55,2,29331,0)="""RTN"",""IBY320PO"",116,0)"
^XMB(3.9,55,2,29332,0)=" ; Correct billing provider secondary IDs for Medicare (current ins only)"
^XMB(3.9,55,2,29333,0)="""RTN"",""IBY320PO"",117,0)"
^XMB(3.9,55,2,29334,0)=" S DFN=0"
^XMB(3.9,55,2,29335,0)="""RTN"",""IBY320PO"",118,0)"
^XMB(3.9,55,2,29336,0)=" ; ""AOP"" x-ref lists bills by patient with claim status 1 or 2"
^XMB(3.9,55,2,29337,0)="""RTN"",""IBY320PO"",119,0)"
^XMB(3.9,55,2,29338,0)=" F  S DFN=$O(^DGCR(399,""AOP"",DFN)) Q:'DFN  D"
^XMB(3.9,55,2,29339,0)="""RTN"",""IBY320PO"",120,0)"
^XMB(3.9,55,2,29340,0)=" . S INSCO=0,OK=0"
^XMB(3.9,55,2,29341,0)="""RTN"",""IBY320PO"",121,0)"
^XMB(3.9,55,2,29342,0)=" . F  S INSCO=$O(MCRWNR(INSCO)) Q:'INSCO  I $D(^DGCR(399,""AE"",DFN,INSCO)) S OK=1 Q"
^XMB(3.9,55,2,29343,0)="""RTN"",""IBY320PO"",122,0)"
^XMB(3.9,55,2,29344,0)=" . ; OK=1: claims exist for this patient in which MCRWNR is curr ins"
^XMB(3.9,55,2,29345,0)="""RTN"",""IBY320PO"",123,0)"
^XMB(3.9,55,2,29346,0)=" . I 'OK Q"
^XMB(3.9,55,2,29347,0)="""RTN"",""IBY320PO"",124,0)"
^XMB(3.9,55,2,29348,0)=" . S IBIFN=0"
^XMB(3.9,55,2,29349,0)="""RTN"",""IBY320PO"",125,0)"
^XMB(3.9,55,2,29350,0)=" . F  S IBIFN=$O(^DGCR(399,""AOP"",DFN,IBIFN)) Q:'IBIFN  D"
^XMB(3.9,55,2,29351,0)="""RTN"",""IBY320PO"",126,0)"
^XMB(3.9,55,2,29352,0)=" .. I $$COBN^IBCEF(IBIFN)'=1 Q      ; current payer seq must be primary"
^XMB(3.9,55,2,29353,0)="""RTN"",""IBY320PO"",127,0)"
^XMB(3.9,55,2,29354,0)=" .. I '$$WNRBILL^IBEFUNC(IBIFN) Q   ; and payer must be Medicare"
^XMB(3.9,55,2,29355,0)="""RTN"",""IBY320PO"",128,0)"
^XMB(3.9,55,2,29356,0)=" .. S BPID=670899"
^XMB(3.9,55,2,29357,0)="""RTN"",""IBY320PO"",129,0)"
^XMB(3.9,55,2,29358,0)=" .. I $$FT^IBCEF(IBIFN)=2 S BPID=""VA0""_$P($$SITE^VASITE,U,3)"
^XMB(3.9,55,2,29359,0)="""RTN"",""IBY320PO"",130,0)"
^XMB(3.9,55,2,29360,0)=" .. ; BPID = what the billing provider ID should be"
^XMB(3.9,55,2,29361,0)="""RTN"",""IBY320PO"",131,0)"
^XMB(3.9,55,2,29362,0)=" .. I $P($G(^DGCR(399,IBIFN,""M1"")),U,2)=BPID Q    ; it is OK"
^XMB(3.9,55,2,29363,0)="""RTN"",""IBY320PO"",132,0)"
^XMB(3.9,55,2,29364,0)=" .. S DIE=399,DA=IBIFN,DR=""122///""_BPID D ^DIE    ; change it"
^XMB(3.9,55,2,29365,0)="""RTN"",""IBY320PO"",133,0)"
^XMB(3.9,55,2,29366,0)=" .. Q"
^XMB(3.9,55,2,29367,0)="""RTN"",""IBY320PO"",134,0)"
^XMB(3.9,55,2,29368,0)=" . Q"
^XMB(3.9,55,2,29369,0)="""RTN"",""IBY320PO"",135,0)"
^XMB(3.9,55,2,29370,0)=" ;"
^XMB(3.9,55,2,29371,0)="""RTN"",""IBY320PO"",136,0)"
^XMB(3.9,55,2,29372,0)="MCRX ;"
^XMB(3.9,55,2,29373,0)="""RTN"",""IBY320PO"",137,0)"
^XMB(3.9,55,2,29374,0)=" D MES^XPDUTL("" Done."")"
^XMB(3.9,55,2,29375,0)="""RTN"",""IBY320PO"",138,0)"
^XMB(3.9,55,2,29376,0)=" D UPDATE^XPDID(4)"
^XMB(3.9,55,2,29377,0)="""RTN"",""IBY320PO"",139,0)"
^XMB(3.9,55,2,29378,0)=" Q"
^XMB(3.9,55,2,29379,0)="""RTN"",""IBY320PO"",140,0)"
^XMB(3.9,55,2,29380,0)=" ;"
^XMB(3.9,55,2,29381,0)="""RTN"",""IBY320PO"",141,0)"
^XMB(3.9,55,2,29382,0)="TRIGGERS ;"
^XMB(3.9,55,2,29383,0)="""RTN"",""IBY320PO"",142,0)"
^XMB(3.9,55,2,29384,0)=" D BMES^XPDUTL("" STEP 5 of ""_XPDIDTOT)"
^XMB(3.9,55,2,29385,0)="""RTN"",""IBY320PO"",143,0)"
^XMB(3.9,55,2,29386,0)=" D MES^XPDUTL(""-------------"")"
^XMB(3.9,55,2,29387,0)="""RTN"",""IBY320PO"",144,0)"
^XMB(3.9,55,2,29388,0)=" D MES^XPDUTL(""Firing Triggers for default values file 36 and 355.93 and indexing new xrefs"")"
^XMB(3.9,55,2,29389,0)="""RTN"",""IBY320PO"",145,0)"
^XMB(3.9,55,2,29390,0)=" ;"
^XMB(3.9,55,2,29391,0)="""RTN"",""IBY320PO"",146,0)"
^XMB(3.9,55,2,29392,0)=" S DIK=""^DIC(36,"""
^XMB(3.9,55,2,29393,0)="""RTN"",""IBY320PO"",147,0)"
^XMB(3.9,55,2,29394,0)=" S DIK(1)="".01^2^3^4^5^6"""
^XMB(3.9,55,2,29395,0)="""RTN"",""IBY320PO"",148,0)"
^XMB(3.9,55,2,29396,0)=" D ENALL^DIK"
^XMB(3.9,55,2,29397,0)="""RTN"",""IBY320PO"",149,0)"
^XMB(3.9,55,2,29398,0)=" ;"
^XMB(3.9,55,2,29399,0)="""RTN"",""IBY320PO"",150,0)"
^XMB(3.9,55,2,29400,0)=" S DIK=""^IBA(355.93,"""
^XMB(3.9,55,2,29401,0)="""RTN"",""IBY320PO"",151,0)"
^XMB(3.9,55,2,29402,0)=" S DIK(1)="".09^1"""
^XMB(3.9,55,2,29403,0)="""RTN"",""IBY320PO"",152,0)"
^XMB(3.9,55,2,29404,0)=" D ENALL^DIK"
^XMB(3.9,55,2,29405,0)="""RTN"",""IBY320PO"",153,0)"
^XMB(3.9,55,2,29406,0)=" ;"
^XMB(3.9,55,2,29407,0)="""RTN"",""IBY320PO"",154,0)"
^XMB(3.9,55,2,29408,0)=" S DIK=""^IBA(355.93,"""
^XMB(3.9,55,2,29409,0)="""RTN"",""IBY320PO"",155,0)"
^XMB(3.9,55,2,29410,0)=" S DIK(1)="".02^8"""
^XMB(3.9,55,2,29411,0)="""RTN"",""IBY320PO"",156,0)"
^XMB(3.9,55,2,29412,0)=" D ENALL^DIK"
^XMB(3.9,55,2,29413,0)="""RTN"",""IBY320PO"",157,0)"
^XMB(3.9,55,2,29414,0)=" ;"
^XMB(3.9,55,2,29415,0)="""RTN"",""IBY320PO"",158,0)"
^XMB(3.9,55,2,29416,0)=" S DIK=""^IBE(355.97,"""
^XMB(3.9,55,2,29417,0)="""RTN"",""IBY320PO"",159,0)"
^XMB(3.9,55,2,29418,0)=" S DIK(1)="".03^1"""
^XMB(3.9,55,2,29419,0)="""RTN"",""IBY320PO"",160,0)"
^XMB(3.9,55,2,29420,0)=" D ENALL^DIK"
^XMB(3.9,55,2,29421,0)="""RTN"",""IBY320PO"",161,0)"
^XMB(3.9,55,2,29422,0)=" ;"
^XMB(3.9,55,2,29423,0)="""RTN"",""IBY320PO"",162,0)"
^XMB(3.9,55,2,29424,0)=" ;"
^XMB(3.9,55,2,29425,0)="""RTN"",""IBY320PO"",163,0)"
^XMB(3.9,55,2,29426,0)=" D MES^XPDUTL("" Done."")"
^XMB(3.9,55,2,29427,0)="""RTN"",""IBY320PO"",164,0)"
^XMB(3.9,55,2,29428,0)=" D UPDATE^XPDID(5)"
^XMB(3.9,55,2,29429,0)="""RTN"",""IBY320PO"",165,0)"
^XMB(3.9,55,2,29430,0)=" Q"
^XMB(3.9,55,2,29431,0)="""RTN"",""IBY320PO"",166,0)"
^XMB(3.9,55,2,29432,0)=" ;"
^XMB(3.9,55,2,29433,0)="""RTN"",""IBY320PO"",167,0)"
^XMB(3.9,55,2,29434,0)="IBEFTFLG ;"
^XMB(3.9,55,2,29435,0)="""RTN"",""IBY320PO"",168,0)"
^XMB(3.9,55,2,29436,0)=" ;"
^XMB(3.9,55,2,29437,0)="""RTN"",""IBY320PO"",169,0)"
^XMB(3.9,55,2,29438,0)=" D BMES^XPDUTL("" STEP 6 of ""_XPDIDTOT)"
^XMB(3.9,55,2,29439,0)="""RTN"",""IBY320PO"",170,0)"
^XMB(3.9,55,2,29440,0)=" D MES^XPDUTL(""-------------"")"
^XMB(3.9,55,2,29441,0)="""RTN"",""IBY320PO"",171,0)"
^XMB(3.9,55,2,29442,0)=" D MES^XPDUTL(""Setting ID Type flag for 355.92"")"
^XMB(3.9,55,2,29443,0)="""RTN"",""IBY320PO"",172,0)"
^XMB(3.9,55,2,29444,0)=" N DA,N0,Q,DIC,DR,DA"
^XMB(3.9,55,2,29445,0)="""RTN"",""IBY320PO"",173,0)"
^XMB(3.9,55,2,29446,0)=" S DA=0 F  S DA=$O(^IBA(355.92,DA)) Q:'+DA  D"
^XMB(3.9,55,2,29447,0)="""RTN"",""IBY320PO"",174,0)"
^XMB(3.9,55,2,29448,0)=" . S N0=$G(^IBA(355.92,DA,0))"
^XMB(3.9,55,2,29449,0)="""RTN"",""IBY320PO"",175,0)"
^XMB(3.9,55,2,29450,0)=" . Q:N0="""""
^XMB(3.9,55,2,29451,0)="""RTN"",""IBY320PO"",176,0)"
^XMB(3.9,55,2,29452,0)=" . Q:$P(N0,U,8)]""""   ; already been done"
^XMB(3.9,55,2,29453,0)="""RTN"",""IBY320PO"",177,0)"
^XMB(3.9,55,2,29454,0)=" . S Q=$P(N0,U,6)"
^XMB(3.9,55,2,29455,0)="""RTN"",""IBY320PO"",178,0)"
^XMB(3.9,55,2,29456,0)=" . Q:Q=""""    ; no qualifier"
^XMB(3.9,55,2,29457,0)="""RTN"",""IBY320PO"",179,0)"
^XMB(3.9,55,2,29458,0)=" . S DR="".08////""_$S(Q=29:""E"",1:""LF"")"
^XMB(3.9,55,2,29459,0)="""RTN"",""IBY320PO"",180,0)"
^XMB(3.9,55,2,29460,0)=" . S DIE=""^IBA(355.92,"""
^XMB(3.9,55,2,29461,0)="""RTN"",""IBY320PO"",181,0)"
^XMB(3.9,55,2,29462,0)=" . D ^DIE"
^XMB(3.9,55,2,29463,0)="""RTN"",""IBY320PO"",182,0)"
^XMB(3.9,55,2,29464,0)=" D MES^XPDUTL("" Done."")"
^XMB(3.9,55,2,29465,0)="""RTN"",""IBY320PO"",183,0)"
^XMB(3.9,55,2,29466,0)=" D UPDATE^XPDID(6)"
^XMB(3.9,55,2,29467,0)="""RTN"",""IBY320PO"",184,0)"
^XMB(3.9,55,2,29468,0)=" Q"
^XMB(3.9,55,2,29469,0)="""RTN"",""IBY320PO"",185,0)"
^XMB(3.9,55,2,29470,0)=" ;"
^XMB(3.9,55,2,29471,0)="""RTN"",""IBY320PO"",186,0)"
^XMB(3.9,55,2,29472,0)="AUNIQ ;xxxx/WCJ-CREATE NEW-STYLE XREF ;1:27 PM  30 Dec 2005"
^XMB(3.9,55,2,29473,0)="""RTN"",""IBY320PO"",187,0)"
^XMB(3.9,55,2,29474,0)=" ;;1.0"
^XMB(3.9,55,2,29475,0)="""RTN"",""IBY320PO"",188,0)"
^XMB(3.9,55,2,29476,0)=" ;"
^XMB(3.9,55,2,29477,0)="""RTN"",""IBY320PO"",189,0)"
^XMB(3.9,55,2,29478,0)=" N ZZWJXR,ZZWJRES,ZZWJOUT"
^XMB(3.9,55,2,29479,0)="""RTN"",""IBY320PO"",190,0)"
^XMB(3.9,55,2,29480,0)=" D BMES^XPDUTL("" STEP 7 of ""_XPDIDTOT)"
^XMB(3.9,55,2,29481,0)="""RTN"",""IBY320PO"",191,0)"
^XMB(3.9,55,2,29482,0)=" D MES^XPDUTL(""-------------"")"
^XMB(3.9,55,2,29483,0)="""RTN"",""IBY320PO"",192,0)"
^XMB(3.9,55,2,29484,0)=" D MES^XPDUTL(""Create cross reference for file 355.92 ...."")"
^XMB(3.9,55,2,29485,0)="""RTN"",""IBY320PO"",193,0)"
^XMB(3.9,55,2,29486,0)=" S ZZWJXR(""FILE"")=355.92"
^XMB(3.9,55,2,29487,0)="""RTN"",""IBY320PO"",194,0)"
^XMB(3.9,55,2,29488,0)=" S ZZWJXR(""NAME"")=""AUNIQ"""
^XMB(3.9,55,2,29489,0)="""RTN"",""IBY320PO"",195,0)"
^XMB(3.9,55,2,29490,0)=" S ZZWJXR(""TYPE"")=""MU"""
^XMB(3.9,55,2,29491,0)="""RTN"",""IBY320PO"",196,0)"
^XMB(3.9,55,2,29492,0)=" S ZZWJXR(""USE"")=""S"""
^XMB(3.9,55,2,29493,0)="""RTN"",""IBY320PO"",197,0)"
^XMB(3.9,55,2,29494,0)=" S ZZWJXR(""EXECUTION"")=""R"""
^XMB(3.9,55,2,29495,0)="""RTN"",""IBY320PO"",198,0)"
^XMB(3.9,55,2,29496,0)=" S ZZWJXR(""ACTIVITY"")=""IR"""
^XMB(3.9,55,2,29497,0)="""RTN"",""IBY320PO"",199,0)"
^XMB(3.9,55,2,29498,0)=" S ZZWJXR(""SHORT DESCR"")=""Xref by ins co,care unit,form type,division,prov id type"""
^XMB(3.9,55,2,29499,0)="""RTN"",""IBY320PO"",200,0)"
^XMB(3.9,55,2,29500,0)=" S ZZWJXR(""DESCR"",1)=""This cross reference allows edits to the additonal provider id's to be """
^XMB(3.9,55,2,29501,0)="""RTN"",""IBY320PO"",201,0)"
^XMB(3.9,55,2,29502,0)=" S ZZWJXR(""DESCR"",2)=""replicated to linked insurance companies."""
^XMB(3.9,55,2,29503,0)="""RTN"",""IBY320PO"",202,0)"
^XMB(3.9,55,2,29504,0)=" S ZZWJXR(""SET"")=""S ^IBA(355.92,""""AUNIQ"""",X(1),$E(X(2),1,30),X(3),X(4),X(5),DA)="""""""""""
^XMB(3.9,55,2,29505,0)="""RTN"",""IBY320PO"",203,0)"
^XMB(3.9,55,2,29506,0)=" S ZZWJXR(""KILL"")=""K ^IBA(355.92,""""AUNIQ"""",X(1),$E(X(2),1,30),X(3),X(4),X(5),DA)"""
^XMB(3.9,55,2,29507,0)="""RTN"",""IBY320PO"",204,0)"
^XMB(3.9,55,2,29508,0)=" S ZZWJXR(""WHOLE KILL"")=""K ^IBA(355.92,""""AUNIQ"""")"""
^XMB(3.9,55,2,29509,0)="""RTN"",""IBY320PO"",205,0)"
^XMB(3.9,55,2,29510,0)=" S ZZWJXR(""SET CONDITION"")=""S X=0 I X(1)]"""""""",X(2)]"""""""",X(3)]"""""""",X(4)]"""""""",X(5)]"""""""",$P($G(^IBA(355.92,DA,0)),U,8)=""""A"""" S X=1"""
^XMB(3.9,55,2,29511,0)="""RTN"",""IBY320PO"",206,0)"
^XMB(3.9,55,2,29512,0)=" S ZZWJXR(""KILL CONDITION"")=""S X=0 I X(1)]"""""""",X(2)]"""""""",X(3)]"""""""",X(4)]"""""""",X(5)]"""""""" S X=1"""
^XMB(3.9,55,2,29513,0)="""RTN"",""IBY320PO"",207,0)"
^XMB(3.9,55,2,29514,0)=" S ZZWJXR(""VAL"",1)=.01"
^XMB(3.9,55,2,29515,0)="""RTN"",""IBY320PO"",208,0)"
^XMB(3.9,55,2,29516,0)=" S ZZWJXR(""VAL"",1,""COLLATION"")=""F"""
^XMB(3.9,55,2,29517,0)="""RTN"",""IBY320PO"",209,0)"
^XMB(3.9,55,2,29518,0)=" S ZZWJXR(""VAL"",2)=.1"
^XMB(3.9,55,2,29519,0)="""RTN"",""IBY320PO"",210,0)"
^XMB(3.9,55,2,29520,0)=" S ZZWJXR(""VAL"",2,""LENGTH"")=30"
^XMB(3.9,55,2,29521,0)="""RTN"",""IBY320PO"",211,0)"
^XMB(3.9,55,2,29522,0)=" S ZZWJXR(""VAL"",2,""COLLATION"")=""F"""
^XMB(3.9,55,2,29523,0)="""RTN"",""IBY320PO"",212,0)"
^XMB(3.9,55,2,29524,0)=" S ZZWJXR(""VAL"",3)=.04"
^XMB(3.9,55,2,29525,0)="""RTN"",""IBY320PO"",213,0)"
^XMB(3.9,55,2,29526,0)=" S ZZWJXR(""VAL"",3,""COLLATION"")=""F"""
^XMB(3.9,55,2,29527,0)="""RTN"",""IBY320PO"",214,0)"
^XMB(3.9,55,2,29528,0)=" S ZZWJXR(""VAL"",4)=.11"
^XMB(3.9,55,2,29529,0)="""RTN"",""IBY320PO"",215,0)"
^XMB(3.9,55,2,29530,0)=" S ZZWJXR(""VAL"",4,""COLLATION"")=""F"""
^XMB(3.9,55,2,29531,0)="""RTN"",""IBY320PO"",216,0)"
^XMB(3.9,55,2,29532,0)=" S ZZWJXR(""VAL"",5)=.06"
^XMB(3.9,55,2,29533,0)="""RTN"",""IBY320PO"",217,0)"
^XMB(3.9,55,2,29534,0)=" S ZZWJXR(""VAL"",5,""COLLATION"")=""F"""
^XMB(3.9,55,2,29535,0)="""RTN"",""IBY320PO"",218,0)"
^XMB(3.9,55,2,29536,0)=" D CREIXN^DDMOD(.ZZWJXR,""SW"",.ZZWJRES,""ZZWJOUT"")"
^XMB(3.9,55,2,29537,0)="""RTN"",""IBY320PO"",219,0)"
^XMB(3.9,55,2,29538,0)=" D MES^XPDUTL("" Done."")"
^XMB(3.9,55,2,29539,0)="""RTN"",""IBY320PO"",220,0)"
^XMB(3.9,55,2,29540,0)=" D UPDATE^XPDID(7)"
^XMB(3.9,55,2,29541,0)="""RTN"",""IBY320PO"",221,0)"
^XMB(3.9,55,2,29542,0)=" Q"
^XMB(3.9,55,2,29543,0)="""RTN"",""IBY320PO"",222,0)"
^XMB(3.9,55,2,29544,0)=" ;"
^XMB(3.9,55,2,29545,0)="""RTN"",""IBY320PO"",223,0)"
^XMB(3.9,55,2,29546,0)="F35597 ;"
^XMB(3.9,55,2,29547,0)="""RTN"",""IBY320PO"",224,0)"
^XMB(3.9,55,2,29548,0)=" ;"
^XMB(3.9,55,2,29549,0)="""RTN"",""IBY320PO"",225,0)"
^XMB(3.9,55,2,29550,0)=" D BMES^XPDUTL("" STEP 8 of ""_XPDIDTOT)"
^XMB(3.9,55,2,29551,0)="""RTN"",""IBY320PO"",226,0)"
^XMB(3.9,55,2,29552,0)=" D MES^XPDUTL(""-------------"")"
^XMB(3.9,55,2,29553,0)="""RTN"",""IBY320PO"",227,0)"
^XMB(3.9,55,2,29554,0)=" D MES^XPDUTL(""Updating 355.97 ...."")"
^XMB(3.9,55,2,29555,0)="""RTN"",""IBY320PO"",228,0)"
^XMB(3.9,55,2,29556,0)=" ;"
^XMB(3.9,55,2,29557,0)="""RTN"",""IBY320PO"",229,0)"
^XMB(3.9,55,2,29558,0)=" N IEN,CNV,NEW,OLD,DR,DIC,DIE,DA,X,DAT0,DAT1"
^XMB(3.9,55,2,29559,0)="""RTN"",""IBY320PO"",230,0)"
^XMB(3.9,55,2,29560,0)=" ;"
^XMB(3.9,55,2,29561,0)="""RTN"",""IBY320PO"",231,0)"
^XMB(3.9,55,2,29562,0)=" S CNV(""BLUE CROSS ID"")=""BLUE CROSS^B"""
^XMB(3.9,55,2,29563,0)="""RTN"",""IBY320PO"",232,0)"
^XMB(3.9,55,2,29564,0)=" S CNV(""BLUE SHIELD ID"")=""BLUE SHIELD^B"""
^XMB(3.9,55,2,29565,0)="""RTN"",""IBY320PO"",233,0)"
^XMB(3.9,55,2,29566,0)=" S CNV(""TRICARE ID"")=""CHAMPUS^P"""
^XMB(3.9,55,2,29567,0)="""RTN"",""IBY320PO"",234,0)"
^XMB(3.9,55,2,29568,0)=" S CNV(""COMMERCIAL ID"")=""COMMERCIAL^B"""
^XMB(3.9,55,2,29569,0)="""RTN"",""IBY320PO"",235,0)"
^XMB(3.9,55,2,29570,0)=" S CNV(""CLIA #"")=""^P"""
^XMB(3.9,55,2,29571,0)="""RTN"",""IBY320PO"",236,0)"
^XMB(3.9,55,2,29572,0)=" S CNV(""MEDICARE PART A"")=""^B"""
^XMB(3.9,55,2,29573,0)="""RTN"",""IBY320PO"",237,0)"
^XMB(3.9,55,2,29574,0)=" S CNV(""MEDICARE PART B"")=""^B"""
^XMB(3.9,55,2,29575,0)="""RTN"",""IBY320PO"",238,0)"
^XMB(3.9,55,2,29576,0)=" S CNV(""FACILITY FED TAX ID #"")=""EMPLOYER'S IDENTIFICATION #"""
^XMB(3.9,55,2,29577,0)="""RTN"",""IBY320PO"",239,0)"
^XMB(3.9,55,2,29578,0)=" S CNV(""NETWORK ID"")=""PROVIDER PLAN NETWORK^B"""
^XMB(3.9,55,2,29579,0)="""RTN"",""IBY320PO"",240,0)"
^XMB(3.9,55,2,29580,0)=" S CNV(""PROVIDER FED TAX ID #"")=""FEDERAL TAXPAYER'S #^^TJ"""
^XMB(3.9,55,2,29581,0)="""RTN"",""IBY320PO"",241,0)"
^XMB(3.9,55,2,29582,0)=" S CNV(""UPIN"")=""^P"""
^XMB(3.9,55,2,29583,0)="""RTN"",""IBY320PO"",242,0)"
^XMB(3.9,55,2,29584,0)=" S CNV(""STATE LICENSE"")=""^B"""
^XMB(3.9,55,2,29585,0)="""RTN"",""IBY320PO"",243,0)"
^XMB(3.9,55,2,29586,0)=" S CNV(""HMO NUMBER"")=""HMO"""
^XMB(3.9,55,2,29587,0)="""RTN"",""IBY320PO"",244,0)"
^XMB(3.9,55,2,29588,0)=" S CNV(""STATE INDUSTRIAL ACCIDENT PRV"")=""ACCIDENT PROVIDER NUMBER^B"""
^XMB(3.9,55,2,29589,0)="""RTN"",""IBY320PO"",245,0)"
^XMB(3.9,55,2,29590,0)=" S CNV(""BILLING FACILITY PRIMARY ID"")=""ELECTRONIC PLAN TYPE^I"""
^XMB(3.9,55,2,29591,0)="""RTN"",""IBY320PO"",246,0)"
^XMB(3.9,55,2,29592,0)=" S CNV(""LOCATION NUMBER"")=""^B"""
^XMB(3.9,55,2,29593,0)="""RTN"",""IBY320PO"",247,0)"
^XMB(3.9,55,2,29594,0)=" ;"
^XMB(3.9,55,2,29595,0)="""RTN"",""IBY320PO"",248,0)"
^XMB(3.9,55,2,29596,0)=" S IEN=0 F  S IEN=$O(^IBE(355.97,IEN)) Q:'+IEN  D"
^XMB(3.9,55,2,29597,0)="""RTN"",""IBY320PO"",249,0)"
^XMB(3.9,55,2,29598,0)=" . S OLD=$P($G(^IBE(355.97,IEN,0)),U)"
^XMB(3.9,55,2,29599,0)="""RTN"",""IBY320PO"",250,0)"
^XMB(3.9,55,2,29600,0)=" . Q:OLD="""""
^XMB(3.9,55,2,29601,0)="""RTN"",""IBY320PO"",251,0)"
^XMB(3.9,55,2,29602,0)=" . S DATA=$G(CNV(OLD))"
^XMB(3.9,55,2,29603,0)="""RTN"",""IBY320PO"",252,0)"
^XMB(3.9,55,2,29604,0)=" . N FLAG"
^XMB(3.9,55,2,29605,0)="""RTN"",""IBY320PO"",253,0)"
^XMB(3.9,55,2,29606,0)=" . S FLAG=$S("".1.2.3.6.8.11.12.16.18.20.21.22.23.24.25.26.27.28.29.30.31.32.33.34.""[("".""_IEN_"".""):1,1:0)"
^XMB(3.9,55,2,29607,0)="""RTN"",""IBY320PO"",254,0)"
^XMB(3.9,55,2,29608,0)=" . S DA=IEN"
^XMB(3.9,55,2,29609,0)="""RTN"",""IBY320PO"",255,0)"
^XMB(3.9,55,2,29610,0)=" . S DIE=355.97"
^XMB(3.9,55,2,29611,0)="""RTN"",""IBY320PO"",256,0)"
^XMB(3.9,55,2,29612,0)=" . S DR="""""
^XMB(3.9,55,2,29613,0)="""RTN"",""IBY320PO"",257,0)"
^XMB(3.9,55,2,29614,0)=" . S:$P(DATA,U)]"""" DR=DR_"".01///""_$P(DATA,U)_"";"""
^XMB(3.9,55,2,29615,0)="""RTN"",""IBY320PO"",258,0)"
^XMB(3.9,55,2,29616,0)=" . S:$P(DATA,U,2)]"""" DR=DR_"".07///""_$P(DATA,U,2)_"";"""
^XMB(3.9,55,2,29617,0)="""RTN"",""IBY320PO"",259,0)"
^XMB(3.9,55,2,29618,0)=" . S:$P(DATA,U,3)]"""" DR=DR_"".03///""_$P(DATA,U,3)_"";"""
^XMB(3.9,55,2,29619,0)="""RTN"",""IBY320PO"",260,0)"
^XMB(3.9,55,2,29620,0)=" . S DR=DR_"".04////@;.08////""_FLAG"
^XMB(3.9,55,2,29621,0)="""RTN"",""IBY320PO"",261,0)"
^XMB(3.9,55,2,29622,0)=" . D ^DIE"
^XMB(3.9,55,2,29623,0)="""RTN"",""IBY320PO"",262,0)"
^XMB(3.9,55,2,29624,0)=" . Q"
^XMB(3.9,55,2,29625,0)="""RTN"",""IBY320PO"",263,0)"
^XMB(3.9,55,2,29626,0)=" ;"
^XMB(3.9,55,2,29627,0)="""RTN"",""IBY320PO"",264,0)"
^XMB(3.9,55,2,29628,0)=" S NEW(30,0)=""MEDICAID^0^1D^^^^B^1"""
^XMB(3.9,55,2,29629,0)="""RTN"",""IBY320PO"",265,0)"
^XMB(3.9,55,2,29630,0)=" S NEW(30,1)=""^^^^^^1"""
^XMB(3.9,55,2,29631,0)="""RTN"",""IBY320PO"",266,0)"
^XMB(3.9,55,2,29632,0)=" S NEW(31,0)=""USIN^0^U3^^^1^P^1"""
^XMB(3.9,55,2,29633,0)="""RTN"",""IBY320PO"",267,0)"
^XMB(3.9,55,2,29634,0)=" S NEW(31,1)=""^^^^^^0"""
^XMB(3.9,55,2,29635,0)="""RTN"",""IBY320PO"",268,0)"
^XMB(3.9,55,2,29636,0)=" S NEW(32,0)=""EIN^0^EI^^^1^B^1"""
^XMB(3.9,55,2,29637,0)="""RTN"",""IBY320PO"",269,0)"
^XMB(3.9,55,2,29638,0)=" S NEW(33,0)=""CLINIC NUMBER^0^FH^^^1^B^1"""
^XMB(3.9,55,2,29639,0)="""RTN"",""IBY320PO"",270,0)"
^XMB(3.9,55,2,29640,0)=" S NEW(34,0)=""PROVIDER SITE NUMBER^0^G5^^^1^B^1"""
^XMB(3.9,55,2,29641,0)="""RTN"",""IBY320PO"",271,0)"
^XMB(3.9,55,2,29642,0)=" ;"
^XMB(3.9,55,2,29643,0)="""RTN"",""IBY320PO"",272,0)"
^XMB(3.9,55,2,29644,0)=" S NEW="""" F  S NEW=$O(NEW(NEW)) Q:NEW=""""  D"
^XMB(3.9,55,2,29645,0)="""RTN"",""IBY320PO"",273,0)"
^XMB(3.9,55,2,29646,0)=" . K DO"
^XMB(3.9,55,2,29647,0)="""RTN"",""IBY320PO"",274,0)"
^XMB(3.9,55,2,29648,0)=" . S DAT0=$G(NEW(NEW,0))"
^XMB(3.9,55,2,29649,0)="""RTN"",""IBY320PO"",275,0)"
^XMB(3.9,55,2,29650,0)=" . S DAT1=$G(NEW(NEW,1))"
^XMB(3.9,55,2,29651,0)="""RTN"",""IBY320PO"",276,0)"
^XMB(3.9,55,2,29652,0)=" . S DIC=""^IBE(355.97,"""
^XMB(3.9,55,2,29653,0)="""RTN"",""IBY320PO"",277,0)"
^XMB(3.9,55,2,29654,0)=" . S DIC(0)="""""
^XMB(3.9,55,2,29655,0)="""RTN"",""IBY320PO"",278,0)"
^XMB(3.9,55,2,29656,0)=" . S X=$P(DAT0,U)"
^XMB(3.9,55,2,29657,0)="""RTN"",""IBY320PO"",279,0)"
^XMB(3.9,55,2,29658,0)=" . Q:X="""""
^XMB(3.9,55,2,29659,0)="""RTN"",""IBY320PO"",280,0)"
^XMB(3.9,55,2,29660,0)=" . Q:$D(^IBE(355.97,""B"",X))   ; already there (for running multiple times)"
^XMB(3.9,55,2,29661,0)="""RTN"",""IBY320PO"",281,0)"
^XMB(3.9,55,2,29662,0)=" . S DIC(""DR"")="".02////0;.03////""_$P(DAT0,U,3)_$S($P(DAT0,U,6)]"""":"";.06////""_$P(DAT0,U,6),1:"""")_"";.07////""_$P(DAT0,U,7)_$S($P(DAT1,U,7)]"""":"";1.07////""_$P(DAT1,U,7),1:"""")_"";.08////""_$P(DAT0,U,8)"
^XMB(3.9,55,2,29663,0)="""RTN"",""IBY320PO"",282,0)"
^XMB(3.9,55,2,29664,0)=" . D FILE^DICN"
^XMB(3.9,55,2,29665,0)="""RTN"",""IBY320PO"",283,0)"
^XMB(3.9,55,2,29666,0)=" D MES^XPDUTL("" Done."")"
^XMB(3.9,55,2,29667,0)="""RTN"",""IBY320PO"",284,0)"
^XMB(3.9,55,2,29668,0)=" D UPDATE^XPDID(8)"
^XMB(3.9,55,2,29669,0)="""RTN"",""IBY320PO"",285,0)"
^XMB(3.9,55,2,29670,0)=" Q"
^XMB(3.9,55,2,29671,0)="""RTN"",""IBY320PO"",286,0)"
^XMB(3.9,55,2,29672,0)=" ;"
^XMB(3.9,55,2,29673,0)="""RTN"",""IBY320PO"",287,0)"
^XMB(3.9,55,2,29674,0)="RIT ; Recompile input templates for billing screens"
^XMB(3.9,55,2,29675,0)="""RTN"",""IBY320PO"",288,0)"
^XMB(3.9,55,2,29676,0)=" NEW X,Y,DMAX"
^XMB(3.9,55,2,29677,0)="""RTN"",""IBY320PO"",289,0)"
^XMB(3.9,55,2,29678,0)=" D BMES^XPDUTL("" STEP 9 of ""_XPDIDTOT)"
^XMB(3.9,55,2,29679,0)="""RTN"",""IBY320PO"",290,0)"
^XMB(3.9,55,2,29680,0)=" D MES^XPDUTL(""-------------"")"
^XMB(3.9,55,2,29681,0)="""RTN"",""IBY320PO"",291,0)"
^XMB(3.9,55,2,29682,0)=" D MES^XPDUTL(""Recompiling Input Templates for Billing Screens 6 & 7...."")"
^XMB(3.9,55,2,29683,0)="""RTN"",""IBY320PO"",292,0)"
^XMB(3.9,55,2,29684,0)=" S X=""IBXSC6"",Y=$$FIND1^DIC(.402,,""X"",""IB SCREEN6"",""B""),DMAX=8000"
^XMB(3.9,55,2,29685,0)="""RTN"",""IBY320PO"",293,0)"
^XMB(3.9,55,2,29686,0)=" I Y D EN^DIEZ"
^XMB(3.9,55,2,29687,0)="""RTN"",""IBY320PO"",294,0)"
^XMB(3.9,55,2,29688,0)=" S X=""IBXSC7"",Y=$$FIND1^DIC(.402,,""X"",""IB SCREEN7"",""B""),DMAX=8000"
^XMB(3.9,55,2,29689,0)="""RTN"",""IBY320PO"",295,0)"
^XMB(3.9,55,2,29690,0)=" I Y D EN^DIEZ"
^XMB(3.9,55,2,29691,0)="""RTN"",""IBY320PO"",296,0)"
^XMB(3.9,55,2,29692,0)="RITX ;"
^XMB(3.9,55,2,29693,0)="""RTN"",""IBY320PO"",297,0)"
^XMB(3.9,55,2,29694,0)=" D MES^XPDUTL("" Done."")"
^XMB(3.9,55,2,29695,0)="""RTN"",""IBY320PO"",298,0)"
^XMB(3.9,55,2,29696,0)=" D UPDATE^XPDID(9)"
^XMB(3.9,55,2,29697,0)="""RTN"",""IBY320PO"",299,0)"
^XMB(3.9,55,2,29698,0)=" Q"
^XMB(3.9,55,2,29699,0)="""RTN"",""IBY320PO"",300,0)"
^XMB(3.9,55,2,29700,0)=" ;"
^XMB(3.9,55,2,29701,0)="""RTN"",""IBY320PR"")"
^XMB(3.9,55,2,29702,0)="0^^B90464501"
^XMB(3.9,55,2,29703,0)="""RTN"",""IBY320PR"",1,0)"
^XMB(3.9,55,2,29704,0)="IBY320PR ;ALB/ESG - Pre-Install for IB patch 320 ;05-JAN-2006"
^XMB(3.9,55,2,29705,0)="""RTN"",""IBY320PR"",2,0)"
^XMB(3.9,55,2,29706,0)=" ;;2.0;INTEGRATED BILLING;**320**;21-MAR-94"
^XMB(3.9,55,2,29707,0)="""RTN"",""IBY320PR"",3,0)"
^XMB(3.9,55,2,29708,0)=" ;"
^XMB(3.9,55,2,29709,0)="""RTN"",""IBY320PR"",4,0)"
^XMB(3.9,55,2,29710,0)=" D DELLOC      ; delete local output formatter overrides"
^XMB(3.9,55,2,29711,0)="""RTN"",""IBY320PR"",5,0)"
^XMB(3.9,55,2,29712,0)=" D DELOF       ; delete output formatter entries"
^XMB(3.9,55,2,29713,0)="""RTN"",""IBY320PR"",6,0)"
^XMB(3.9,55,2,29714,0)=" D DELLIST     ; delete modified list templates"
^XMB(3.9,55,2,29715,0)="""RTN"",""IBY320PR"",7,0)"
^XMB(3.9,55,2,29716,0)=" D DELXREFS    ; Delete XREFS added in ealier version of this patch"
^XMB(3.9,55,2,29717,0)="""RTN"",""IBY320PR"",8,0)"
^XMB(3.9,55,2,29718,0)=" D EMAIL       ; generate message with existing provider ID types"
^XMB(3.9,55,2,29719,0)="""RTN"",""IBY320PR"",9,0)"
^XMB(3.9,55,2,29720,0)=" ;"
^XMB(3.9,55,2,29721,0)="""RTN"",""IBY320PR"",10,0)"
^XMB(3.9,55,2,29722,0)=" Q"
^XMB(3.9,55,2,29723,0)="""RTN"",""IBY320PR"",11,0)"
^XMB(3.9,55,2,29724,0)=" ;"
^XMB(3.9,55,2,29725,0)="""RTN"",""IBY320PR"",12,0)"
^XMB(3.9,55,2,29726,0)="DELOF ; Delete included output formatter entries"
^XMB(3.9,55,2,29727,0)="""RTN"",""IBY320PR"",13,0)"
^XMB(3.9,55,2,29728,0)=" NEW FILE,DIK,LN,TAG,DATA,PCE,DA,Y"
^XMB(3.9,55,2,29729,0)="""RTN"",""IBY320PR"",14,0)"
^XMB(3.9,55,2,29730,0)=" F FILE=5,6,7 S DIK=""^IBA(364.""_FILE_"","" F LN=2:1 S TAG=""ENT""_FILE_""+""_LN,DATA=$P($T(@TAG),"";;"",2) Q:DATA=""""  D"
^XMB(3.9,55,2,29731,0)="""RTN"",""IBY320PR"",15,0)"
^XMB(3.9,55,2,29732,0)=" . F PCE=2:1 S DA=$P(DATA,U,PCE) Q:'DA  I $D(^IBA(""364.""_FILE,DA,0)) D ^DIK"
^XMB(3.9,55,2,29733,0)="""RTN"",""IBY320PR"",16,0)"
^XMB(3.9,55,2,29734,0)=" . Q"
^XMB(3.9,55,2,29735,0)="""RTN"",""IBY320PR"",17,0)"
^XMB(3.9,55,2,29736,0)=" ;"
^XMB(3.9,55,2,29737,0)="""RTN"",""IBY320PR"",18,0)"
^XMB(3.9,55,2,29738,0)=" ; Also delete output formatter entries which are not going to be"
^XMB(3.9,55,2,29739,0)="""RTN"",""IBY320PR"",19,0)"
^XMB(3.9,55,2,29740,0)=" ; re-added later.  These are erroneous entries in file 364.6."
^XMB(3.9,55,2,29741,0)="""RTN"",""IBY320PR"",20,0)"
^XMB(3.9,55,2,29742,0)=" S DIK=""^IBA(364.6,"",TAG=""DEL6+2"",DATA=$P($T(@TAG),"";;"",2)"
^XMB(3.9,55,2,29743,0)="""RTN"",""IBY320PR"",21,0)"
^XMB(3.9,55,2,29744,0)=" I DATA'="""" D"
^XMB(3.9,55,2,29745,0)="""RTN"",""IBY320PR"",22,0)"
^XMB(3.9,55,2,29746,0)=" . F PCE=2:1 S DA=$P(DATA,U,PCE) Q:'DA  I $D(^IBA(364.6,DA,0)) D ^DIK"
^XMB(3.9,55,2,29747,0)="""RTN"",""IBY320PR"",23,0)"
^XMB(3.9,55,2,29748,0)=" . Q"
^XMB(3.9,55,2,29749,0)="""RTN"",""IBY320PR"",24,0)"
^XMB(3.9,55,2,29750,0)=" ;"
^XMB(3.9,55,2,29751,0)="""RTN"",""IBY320PR"",25,0)"
^XMB(3.9,55,2,29752,0)=" ; Also delete output formatter entries which are not going to be"
^XMB(3.9,55,2,29753,0)="""RTN"",""IBY320PR"",26,0)"
^XMB(3.9,55,2,29754,0)=" ; re-added later.  These are erroneous entries in file 364.7."
^XMB(3.9,55,2,29755,0)="""RTN"",""IBY320PR"",27,0)"
^XMB(3.9,55,2,29756,0)=" S DIK=""^IBA(364.7,"",TAG=""DEL7+2"",DATA=$P($T(@TAG),"";;"",2)"
^XMB(3.9,55,2,29757,0)="""RTN"",""IBY320PR"",28,0)"
^XMB(3.9,55,2,29758,0)=" I DATA'="""" D"
^XMB(3.9,55,2,29759,0)="""RTN"",""IBY320PR"",29,0)"
^XMB(3.9,55,2,29760,0)=" . F PCE=2:1 S DA=$P(DATA,U,PCE) Q:'DA  I $D(^IBA(364.7,DA,0)) D ^DIK"
^XMB(3.9,55,2,29761,0)="""RTN"",""IBY320PR"",30,0)"
^XMB(3.9,55,2,29762,0)=" . Q"
^XMB(3.9,55,2,29763,0)="""RTN"",""IBY320PR"",31,0)"
^XMB(3.9,55,2,29764,0)="DELOFX ;"
^XMB(3.9,55,2,29765,0)="""RTN"",""IBY320PR"",32,0)"
^XMB(3.9,55,2,29766,0)=" Q"
^XMB(3.9,55,2,29767,0)="""RTN"",""IBY320PR"",33,0)"
^XMB(3.9,55,2,29768,0)=" ;"
^XMB(3.9,55,2,29769,0)="""RTN"",""IBY320PR"",34,0)"
^XMB(3.9,55,2,29770,0)="INCLUDE(FILE,Y) ; function to determine if output formatter entry should be"
^XMB(3.9,55,2,29771,0)="""RTN"",""IBY320PR"",35,0)"
^XMB(3.9,55,2,29772,0)=" ; included in the build"
^XMB(3.9,55,2,29773,0)="""RTN"",""IBY320PR"",36,0)"
^XMB(3.9,55,2,29774,0)=" ; FILE=5,6,7 indicating file 364.x"
^XMB(3.9,55,2,29775,0)="""RTN"",""IBY320PR"",37,0)"
^XMB(3.9,55,2,29776,0)=" ; Y=ien to file"
^XMB(3.9,55,2,29777,0)="""RTN"",""IBY320PR"",38,0)"
^XMB(3.9,55,2,29778,0)=" ;"
^XMB(3.9,55,2,29779,0)="""RTN"",""IBY320PR"",39,0)"
^XMB(3.9,55,2,29780,0)=" NEW OK,LN,TAG,DATA"
^XMB(3.9,55,2,29781,0)="""RTN"",""IBY320PR"",40,0)"
^XMB(3.9,55,2,29782,0)=" S OK=0"
^XMB(3.9,55,2,29783,0)="""RTN"",""IBY320PR"",41,0)"
^XMB(3.9,55,2,29784,0)=" F LN=2:1 S TAG=""ENT""_FILE_""+""_LN,DATA=$P($T(@TAG),"";;"",2) Q:DATA=""""  I $F(DATA,U_Y_U) S OK=1 Q"
^XMB(3.9,55,2,29785,0)="""RTN"",""IBY320PR"",42,0)"
^XMB(3.9,55,2,29786,0)="INCLUDEX ;"
^XMB(3.9,55,2,29787,0)="""RTN"",""IBY320PR"",43,0)"
^XMB(3.9,55,2,29788,0)=" Q OK"
^XMB(3.9,55,2,29789,0)="""RTN"",""IBY320PR"",44,0)"
^XMB(3.9,55,2,29790,0)=" ;"
^XMB(3.9,55,2,29791,0)="""RTN"",""IBY320PR"",45,0)"
^XMB(3.9,55,2,29792,0)="ENT5 ; output formatter entries in file 364.5 to be included"
^XMB(3.9,55,2,29793,0)="""RTN"",""IBY320PR"",46,0)"
^XMB(3.9,55,2,29794,0)=" ;"
^XMB(3.9,55,2,29795,0)="""RTN"",""IBY320PR"",47,0)"
^XMB(3.9,55,2,29796,0)=" ;;^111^112^113^"
^XMB(3.9,55,2,29797,0)="""RTN"",""IBY320PR"",48,0)"
^XMB(3.9,55,2,29798,0)=" ;;"
^XMB(3.9,55,2,29799,0)="""RTN"",""IBY320PR"",49,0)"
^XMB(3.9,55,2,29800,0)=" ;"
^XMB(3.9,55,2,29801,0)="""RTN"",""IBY320PR"",50,0)"
^XMB(3.9,55,2,29802,0)="ENT6 ; output formatter entries in file 364.6 to be included"
^XMB(3.9,55,2,29803,0)="""RTN"",""IBY320PR"",51,0)"
^XMB(3.9,55,2,29804,0)=" ;"
^XMB(3.9,55,2,29805,0)="""RTN"",""IBY320PR"",52,0)"
^XMB(3.9,55,2,29806,0)=" ;;^169^226^227^968^971^1015^1051^1065^1094^1095^1096^1097^"
^XMB(3.9,55,2,29807,0)="""RTN"",""IBY320PR"",53,0)"
^XMB(3.9,55,2,29808,0)=" ;;^1098^1099^1100^1101^1102^1103^1104^1190^1191^1192^1289^1316^1317^"
^XMB(3.9,55,2,29809,0)="""RTN"",""IBY320PR"",54,0)"
^XMB(3.9,55,2,29810,0)=" ;;"
^XMB(3.9,55,2,29811,0)="""RTN"",""IBY320PR"",55,0)"
^XMB(3.9,55,2,29812,0)=" ;"
^XMB(3.9,55,2,29813,0)="""RTN"",""IBY320PR"",56,0)"
^XMB(3.9,55,2,29814,0)="ENT7 ; output formatter entries in file 364.7 to be included"
^XMB(3.9,55,2,29815,0)="""RTN"",""IBY320PR"",57,0)"
^XMB(3.9,55,2,29816,0)=" ;"
^XMB(3.9,55,2,29817,0)="""RTN"",""IBY320PR"",58,0)"
^XMB(3.9,55,2,29818,0)=" ;;^12^156^157^159^160^188^196^203^204^208^209^211^225^226^227^256^"
^XMB(3.9,55,2,29819,0)="""RTN"",""IBY320PR"",59,0)"
^XMB(3.9,55,2,29820,0)=" ;;^375^376^377^378^379^380^381^382^383^384^"
^XMB(3.9,55,2,29821,0)="""RTN"",""IBY320PR"",60,0)"
^XMB(3.9,55,2,29822,0)=" ;;^385^387^388^389^390^392^393^395^396^397^398^399^400^401^402^"
^XMB(3.9,55,2,29823,0)="""RTN"",""IBY320PR"",61,0)"
^XMB(3.9,55,2,29824,0)=" ;;^403^405^406^407^408^409^410^411^412^413^552^553^554^555^556^557^558^"
^XMB(3.9,55,2,29825,0)="""RTN"",""IBY320PR"",62,0)"
^XMB(3.9,55,2,29826,0)=" ;;^559^576^577^578^579^580^581^582^583^584^585^586^587^588^589^590^591^"
^XMB(3.9,55,2,29827,0)="""RTN"",""IBY320PR"",63,0)"
^XMB(3.9,55,2,29828,0)=" ;;^646^900^947^948^954^1009^1015^1020^1022^1023^1031^1032^1033^"
^XMB(3.9,55,2,29829,0)="""RTN"",""IBY320PR"",64,0)"
^XMB(3.9,55,2,29830,0)=" ;;"
^XMB(3.9,55,2,29831,0)="""RTN"",""IBY320PR"",65,0)"
^XMB(3.9,55,2,29832,0)=" ;"
^XMB(3.9,55,2,29833,0)="""RTN"",""IBY320PR"",66,0)"
^XMB(3.9,55,2,29834,0)="DEL6 ; remove output formatter entries in file 364.6 (not re-added)"
^XMB(3.9,55,2,29835,0)="""RTN"",""IBY320PR"",67,0)"
^XMB(3.9,55,2,29836,0)=" ;"
^XMB(3.9,55,2,29837,0)="""RTN"",""IBY320PR"",68,0)"
^XMB(3.9,55,2,29838,0)=" ;;^1066^1067^1068^1069^1071^1013^1302^"
^XMB(3.9,55,2,29839,0)="""RTN"",""IBY320PR"",69,0)"
^XMB(3.9,55,2,29840,0)=" ;;"
^XMB(3.9,55,2,29841,0)="""RTN"",""IBY320PR"",70,0)"
^XMB(3.9,55,2,29842,0)=" ;"
^XMB(3.9,55,2,29843,0)="""RTN"",""IBY320PR"",71,0)"
^XMB(3.9,55,2,29844,0)="DEL7 ; remove output formatter entries in file 364.7 (not re-added)"
^XMB(3.9,55,2,29845,0)="""RTN"",""IBY320PR"",72,0)"
^XMB(3.9,55,2,29846,0)=" ;"
^XMB(3.9,55,2,29847,0)="""RTN"",""IBY320PR"",73,0)"
^XMB(3.9,55,2,29848,0)=" ;;^187^214^249^302^316^324^325^353^468^568^570^571^572^573^574^575^899^1014^1017^"
^XMB(3.9,55,2,29849,0)="""RTN"",""IBY320PR"",74,0)"
^XMB(3.9,55,2,29850,0)=" ;;"
^XMB(3.9,55,2,29851,0)="""RTN"",""IBY320PR"",75,0)"
^XMB(3.9,55,2,29852,0)=" ;"
^XMB(3.9,55,2,29853,0)="""RTN"",""IBY320PR"",76,0)"
^XMB(3.9,55,2,29854,0)=" Q"
^XMB(3.9,55,2,29855,0)="""RTN"",""IBY320PR"",77,0)"
^XMB(3.9,55,2,29856,0)=" ;"
^XMB(3.9,55,2,29857,0)="""RTN"",""IBY320PR"",78,0)"
^XMB(3.9,55,2,29858,0)="DELLOC ; This procedure removes certain local output formatter overrides"
^XMB(3.9,55,2,29859,0)="""RTN"",""IBY320PR"",79,0)"
^XMB(3.9,55,2,29860,0)=" ;"
^XMB(3.9,55,2,29861,0)="""RTN"",""IBY320PR"",80,0)"
^XMB(3.9,55,2,29862,0)=" NEW FORM,IBX2,NI6,NI7,LI6,LI7,DIK,DA,DIE,DR,IBY,XMDUZ,XMSUBJ,XMBODY,XMTO"
^XMB(3.9,55,2,29863,0)="""RTN"",""IBY320PR"",81,0)"
^XMB(3.9,55,2,29864,0)=" ;"
^XMB(3.9,55,2,29865,0)="""RTN"",""IBY320PR"",82,0)"
^XMB(3.9,55,2,29866,0)=" S DIE=353,DA=8,DR=""2.08///@;2.05///@"" D ^DIE   ; to make sure EDI uses #8"
^XMB(3.9,55,2,29867,0)="""RTN"",""IBY320PR"",83,0)"
^XMB(3.9,55,2,29868,0)=" ;"
^XMB(3.9,55,2,29869,0)="""RTN"",""IBY320PR"",84,0)"
^XMB(3.9,55,2,29870,0)=" S IBY=""P320-LOFO""   ; patch 320 local output formatter override"
^XMB(3.9,55,2,29871,0)="""RTN"",""IBY320PR"",85,0)"
^XMB(3.9,55,2,29872,0)=" KILL ^TMP($J,IBY)"
^XMB(3.9,55,2,29873,0)="""RTN"",""IBY320PR"",86,0)"
^XMB(3.9,55,2,29874,0)=" S ^TMP($J,IBY)=0"
^XMB(3.9,55,2,29875,0)="""RTN"",""IBY320PR"",87,0)"
^XMB(3.9,55,2,29876,0)=" ;"
^XMB(3.9,55,2,29877,0)="""RTN"",""IBY320PR"",88,0)"
^XMB(3.9,55,2,29878,0)=" S FORM=8   ; start here to skip over the normal national form types"
^XMB(3.9,55,2,29879,0)="""RTN"",""IBY320PR"",89,0)"
^XMB(3.9,55,2,29880,0)=" F  S FORM=$O(^IBE(353,FORM)) Q:'FORM  D"
^XMB(3.9,55,2,29881,0)="""RTN"",""IBY320PR"",90,0)"
^XMB(3.9,55,2,29882,0)=" . S IBX2=$G(^IBE(353,FORM,2))"
^XMB(3.9,55,2,29883,0)="""RTN"",""IBY320PR"",91,0)"
^XMB(3.9,55,2,29884,0)=" . I $P(IBX2,U,2)'=""T"" Q      ; only deal with transmitted forms"
^XMB(3.9,55,2,29885,0)="""RTN"",""IBY320PR"",92,0)"
^XMB(3.9,55,2,29886,0)=" . I $P(IBX2,U,4) Q           ; don't mess with national form types"
^XMB(3.9,55,2,29887,0)="""RTN"",""IBY320PR"",93,0)"
^XMB(3.9,55,2,29888,0)=" . I '$P(IBX2,U,5) D DELFRM(FORM) Q    ; no parent form type"
^XMB(3.9,55,2,29889,0)="""RTN"",""IBY320PR"",94,0)"
^XMB(3.9,55,2,29890,0)=" . ;"
^XMB(3.9,55,2,29891,0)="""RTN"",""IBY320PR"",95,0)"
^XMB(3.9,55,2,29892,0)=" . ; Check local overrides one by one"
^XMB(3.9,55,2,29893,0)="""RTN"",""IBY320PR"",96,0)"
^XMB(3.9,55,2,29894,0)=" . S NI6=0 F  S NI6=$O(^IBA(364.6,""APAR"",FORM,NI6)) Q:'NI6  D"
^XMB(3.9,55,2,29895,0)="""RTN"",""IBY320PR"",97,0)"
^XMB(3.9,55,2,29896,0)=" .. S NI7=$O(^IBA(364.7,""B"",NI6,0)) Q:'NI7"
^XMB(3.9,55,2,29897,0)="""RTN"",""IBY320PR"",98,0)"
^XMB(3.9,55,2,29898,0)=" .. I '$$INCLUDE(6,NI6),'$$INCLUDE(7,NI7) Q    ; not included with patch"
^XMB(3.9,55,2,29899,0)="""RTN"",""IBY320PR"",99,0)"
^XMB(3.9,55,2,29900,0)=" .. S LI6=0 F  S LI6=$O(^IBA(364.6,""APAR"",FORM,NI6,LI6)) Q:'LI6  D"
^XMB(3.9,55,2,29901,0)="""RTN"",""IBY320PR"",100,0)"
^XMB(3.9,55,2,29902,0)=" ... S LI7=0 F  S LI7=$O(^IBA(364.7,""B"",LI6,LI7)) Q:'LI7  D"
^XMB(3.9,55,2,29903,0)="""RTN"",""IBY320PR"",101,0)"
^XMB(3.9,55,2,29904,0)=" .... D DISP(LI6,LI7)    ; display data before deletion"
^XMB(3.9,55,2,29905,0)="""RTN"",""IBY320PR"",102,0)"
^XMB(3.9,55,2,29906,0)=" .... S DIK=""^IBA(364.7,"",DA=LI7 D ^DIK"
^XMB(3.9,55,2,29907,0)="""RTN"",""IBY320PR"",103,0)"
^XMB(3.9,55,2,29908,0)=" .... Q"
^XMB(3.9,55,2,29909,0)="""RTN"",""IBY320PR"",104,0)"
^XMB(3.9,55,2,29910,0)=" ... S DIK=""^IBA(364.6,"",DA=LI6 D ^DIK"
^XMB(3.9,55,2,29911,0)="""RTN"",""IBY320PR"",105,0)"
^XMB(3.9,55,2,29912,0)=" ... Q"
^XMB(3.9,55,2,29913,0)="""RTN"",""IBY320PR"",106,0)"
^XMB(3.9,55,2,29914,0)=" .. Q"
^XMB(3.9,55,2,29915,0)="""RTN"",""IBY320PR"",107,0)"
^XMB(3.9,55,2,29916,0)=" . ;"
^XMB(3.9,55,2,29917,0)="""RTN"",""IBY320PR"",108,0)"
^XMB(3.9,55,2,29918,0)=" . ; delete the local form if there are no more overrides"
^XMB(3.9,55,2,29919,0)="""RTN"",""IBY320PR"",109,0)"
^XMB(3.9,55,2,29920,0)=" . I '$D(^IBA(364.6,""APAR"",FORM)) S DIK=""^IBE(353,"",DA=FORM D ^DIK"
^XMB(3.9,55,2,29921,0)="""RTN"",""IBY320PR"",110,0)"
^XMB(3.9,55,2,29922,0)=" . Q"
^XMB(3.9,55,2,29923,0)="""RTN"",""IBY320PR"",111,0)"
^XMB(3.9,55,2,29924,0)=" ;"
^XMB(3.9,55,2,29925,0)="""RTN"",""IBY320PR"",112,0)"
^XMB(3.9,55,2,29926,0)=" I '$G(^TMP($J,IBY)) G DELLOCX    ; no message data to send"
^XMB(3.9,55,2,29927,0)="""RTN"",""IBY320PR"",113,0)"
^XMB(3.9,55,2,29928,0)=" ;"
^XMB(3.9,55,2,29929,0)="""RTN"",""IBY320PR"",114,0)"
^XMB(3.9,55,2,29930,0)=" ; send message"
^XMB(3.9,55,2,29931,0)="""RTN"",""IBY320PR"",115,0)"
^XMB(3.9,55,2,29932,0)=" S XMDUZ=DUZ"
^XMB(3.9,55,2,29933,0)="""RTN"",""IBY320PR"",116,0)"
^XMB(3.9,55,2,29934,0)=" S XMSUBJ=""Removal of local output formatter overrides (IB*2*320)"""
^XMB(3.9,55,2,29935,0)="""RTN"",""IBY320PR"",117,0)"
^XMB(3.9,55,2,29936,0)=" S XMBODY=""^TMP($J,""""""_IBY_"""""")"""
^XMB(3.9,55,2,29937,0)="""RTN"",""IBY320PR"",118,0)"
^XMB(3.9,55,2,29938,0)=" S XMTO(DUZ)="""""
^XMB(3.9,55,2,29939,0)="""RTN"",""IBY320PR"",119,0)"
^XMB(3.9,55,2,29940,0)=" S XMTO(""G.IB EDI SUPERVISOR"")="""""
^XMB(3.9,55,2,29941,0)="""RTN"",""IBY320PR"",120,0)"
^XMB(3.9,55,2,29942,0)=" D SENDMSG^XMXAPI(XMDUZ,XMSUBJ,XMBODY,.XMTO)"
^XMB(3.9,55,2,29943,0)="""RTN"",""IBY320PR"",121,0)"
^XMB(3.9,55,2,29944,0)=" KILL ^TMP($J,IBY)"
^XMB(3.9,55,2,29945,0)="""RTN"",""IBY320PR"",122,0)"
^XMB(3.9,55,2,29946,0)="DELLOCX ;"
^XMB(3.9,55,2,29947,0)="""RTN"",""IBY320PR"",123,0)"
^XMB(3.9,55,2,29948,0)=" Q"
^XMB(3.9,55,2,29949,0)="""RTN"",""IBY320PR"",124,0)"
^XMB(3.9,55,2,29950,0)=" ;"
^XMB(3.9,55,2,29951,0)="""RTN"",""IBY320PR"",125,0)"
^XMB(3.9,55,2,29952,0)="DISP(LI6,LI7) ; Display output formatter data on screen and in install file"
^XMB(3.9,55,2,29953,0)="""RTN"",""IBY320PR"",126,0)"
^XMB(3.9,55,2,29954,0)=" ; LI6 - local ien to file 364.6"
^XMB(3.9,55,2,29955,0)="""RTN"",""IBY320PR"",127,0)"
^XMB(3.9,55,2,29956,0)=" ; LI7 - local ien to file 364.7"
^XMB(3.9,55,2,29957,0)="""RTN"",""IBY320PR"",128,0)"
^XMB(3.9,55,2,29958,0)=" NEW LD6,NI6,ND6,LD70,LD71,INS,LDC,MSG,Q,ZLN,FIEN,FL,GG"
^XMB(3.9,55,2,29959,0)="""RTN"",""IBY320PR"",129,0)"
^XMB(3.9,55,2,29960,0)=" S LD6=$G(^IBA(364.6,LI6,0)),NI6=+$P(LD6,U,3),ND6=$G(^IBA(364.6,NI6,0))"
^XMB(3.9,55,2,29961,0)="""RTN"",""IBY320PR"",130,0)"
^XMB(3.9,55,2,29962,0)=" S LD70=$G(^IBA(364.7,LI7,0)),LD71=$G(^IBA(364.7,LI7,1))"
^XMB(3.9,55,2,29963,0)="""RTN"",""IBY320PR"",131,0)"
^XMB(3.9,55,2,29964,0)=" S INS=$$INSCO^IBCNSC02(+$P(LD70,U,5)),FIEN=+$P(LD6,U,1)"
^XMB(3.9,55,2,29965,0)="""RTN"",""IBY320PR"",132,0)"
^XMB(3.9,55,2,29966,0)=" M LDC=^IBA(364.7,LI7,3)"
^XMB(3.9,55,2,29967,0)="""RTN"",""IBY320PR"",133,0)"
^XMB(3.9,55,2,29968,0)=" S MSG(1)=""Removing local output formatter field:  Sequence# """
^XMB(3.9,55,2,29969,0)="""RTN"",""IBY320PR"",134,0)"
^XMB(3.9,55,2,29970,0)=" S MSG(1)=MSG(1)_$P(ND6,U,4)_"", Piece# ""_$P(ND6,U,8)"
^XMB(3.9,55,2,29971,0)="""RTN"",""IBY320PR"",135,0)"
^XMB(3.9,55,2,29972,0)=" S MSG(2)=$$FO^IBCNEUT1(""  Local 364.6 ien=""_LI6,25)"
^XMB(3.9,55,2,29973,0)="""RTN"",""IBY320PR"",136,0)"
^XMB(3.9,55,2,29974,0)=" S MSG(2)=MSG(2)_""- ""_$P(LD6,U,10)"
^XMB(3.9,55,2,29975,0)="""RTN"",""IBY320PR"",137,0)"
^XMB(3.9,55,2,29976,0)=" S MSG(3)=$$FO^IBCNEUT1(""  Nat'l 364.6 ien=""_NI6,25)"
^XMB(3.9,55,2,29977,0)="""RTN"",""IBY320PR"",138,0)"
^XMB(3.9,55,2,29978,0)=" S MSG(3)=MSG(3)_""- ""_$P(ND6,U,10)"
^XMB(3.9,55,2,29979,0)="""RTN"",""IBY320PR"",139,0)"
^XMB(3.9,55,2,29980,0)=" S MSG(4)=""  Local 364.7 ien=""_LI7"
^XMB(3.9,55,2,29981,0)="""RTN"",""IBY320PR"",140,0)"
^XMB(3.9,55,2,29982,0)=" S MSG(5)=""          Form:  ""_$$EXTERNAL^DILFD(364.6,.01,,$P(LD6,U,1))_""  (""_$P(LD6,U,1)_"")"""
^XMB(3.9,55,2,29983,0)="""RTN"",""IBY320PR"",141,0)"
^XMB(3.9,55,2,29984,0)=" S MSG(6)=""  Data Element:  ""_$$EXTERNAL^DILFD(364.7,.03,,$P(LD70,U,3))"
^XMB(3.9,55,2,29985,0)="""RTN"",""IBY320PR"",142,0)"
^XMB(3.9,55,2,29986,0)=" S MSG(7)=""  Ins. Company:  ""_$E(INS,1,53)"
^XMB(3.9,55,2,29987,0)="""RTN"",""IBY320PR"",143,0)"
^XMB(3.9,55,2,29988,0)=" S MSG(8)=$J("""",44)_$E(INS,54,99)"
^XMB(3.9,55,2,29989,0)="""RTN"",""IBY320PR"",144,0)"
^XMB(3.9,55,2,29990,0)=" S MSG(9)=""     Bill Type:  ""_$$EXTERNAL^DILFD(364.7,.06,,$P(LD70,U,6))"
^XMB(3.9,55,2,29991,0)="""RTN"",""IBY320PR"",145,0)"
^XMB(3.9,55,2,29992,0)=" S MSG(10)=""   Format Code:  ""_LD71"
^XMB(3.9,55,2,29993,0)="""RTN"",""IBY320PR"",146,0)"
^XMB(3.9,55,2,29994,0)=" S MSG(11)=""   Description:  ""_$G(LDC(1,0))"
^XMB(3.9,55,2,29995,0)="""RTN"",""IBY320PR"",147,0)"
^XMB(3.9,55,2,29996,0)=" S Q=1,ZLN=11 F  S Q=$O(LDC(Q)) Q:'Q  S ZLN=ZLN+1,MSG(ZLN)=""                 ""_$G(LDC(Q,0))"
^XMB(3.9,55,2,29997,0)="""RTN"",""IBY320PR"",148,0)"
^XMB(3.9,55,2,29998,0)=" S ZLN=ZLN+1,MSG(ZLN)=""--------------------------------------------------------------------------"""
^XMB(3.9,55,2,29999,0)="""RTN"",""IBY320PR"",149,0)"
^XMB(3.9,55,2,30000,0)=" S ZLN=ZLN+1,MSG(ZLN)="""""
^XMB(3.9,55,2,30001,0)="""RTN"",""IBY320PR"",150,0)"
^XMB(3.9,55,2,30002,0)=" ;"
^XMB(3.9,55,2,30003,0)="""RTN"",""IBY320PR"",151,0)"
^XMB(3.9,55,2,30004,0)=" ; update mailman message array"
^XMB(3.9,55,2,30005,0)="""RTN"",""IBY320PR"",152,0)"
^XMB(3.9,55,2,30006,0)=" S GG=+$G(^TMP($J,IBY))"
^XMB(3.9,55,2,30007,0)="""RTN"",""IBY320PR"",153,0)"
^XMB(3.9,55,2,30008,0)=" F FL=1:1:ZLN S GG=GG+1,^TMP($J,IBY,GG)=$G(MSG(FL)),^TMP($J,IBY)=GG"
^XMB(3.9,55,2,30009,0)="""RTN"",""IBY320PR"",154,0)"
^XMB(3.9,55,2,30010,0)=" ;"
^XMB(3.9,55,2,30011,0)="""RTN"",""IBY320PR"",155,0)"
^XMB(3.9,55,2,30012,0)=" D MES^XPDUTL(.MSG)"
^XMB(3.9,55,2,30013,0)="""RTN"",""IBY320PR"",156,0)"
^XMB(3.9,55,2,30014,0)="DISPX ;"
^XMB(3.9,55,2,30015,0)="""RTN"",""IBY320PR"",157,0)"
^XMB(3.9,55,2,30016,0)=" Q"
^XMB(3.9,55,2,30017,0)="""RTN"",""IBY320PR"",158,0)"
^XMB(3.9,55,2,30018,0)=" ;"
^XMB(3.9,55,2,30019,0)="""RTN"",""IBY320PR"",159,0)"
^XMB(3.9,55,2,30020,0)="DELFRM(FORM) ; Delete the local form and all entries in files 364.6 & 364.7"
^XMB(3.9,55,2,30021,0)="""RTN"",""IBY320PR"",160,0)"
^XMB(3.9,55,2,30022,0)=" NEW I6,I7,DIK,DA"
^XMB(3.9,55,2,30023,0)="""RTN"",""IBY320PR"",161,0)"
^XMB(3.9,55,2,30024,0)=" I '$G(FORM) G DELFRMX"
^XMB(3.9,55,2,30025,0)="""RTN"",""IBY320PR"",162,0)"
^XMB(3.9,55,2,30026,0)=" S I6=0 F  S I6=$O(^IBA(364.6,""B"",FORM,I6)) Q:'I6  D"
^XMB(3.9,55,2,30027,0)="""RTN"",""IBY320PR"",163,0)"
^XMB(3.9,55,2,30028,0)=" . S I7=0 F  S I7=$O(^IBA(364.7,""B"",I6,I7)) Q:'I7  D"
^XMB(3.9,55,2,30029,0)="""RTN"",""IBY320PR"",164,0)"
^XMB(3.9,55,2,30030,0)=" .. D DISP(I6,I7)   ; display data before deletion"
^XMB(3.9,55,2,30031,0)="""RTN"",""IBY320PR"",165,0)"
^XMB(3.9,55,2,30032,0)=" .. S DIK=""^IBA(364.7,"",DA=I7 D ^DIK"
^XMB(3.9,55,2,30033,0)="""RTN"",""IBY320PR"",166,0)"
^XMB(3.9,55,2,30034,0)=" .. Q"
^XMB(3.9,55,2,30035,0)="""RTN"",""IBY320PR"",167,0)"
^XMB(3.9,55,2,30036,0)=" . S DIK=""^IBA(364.6,"",DA=I6 D ^DIK"
^XMB(3.9,55,2,30037,0)="""RTN"",""IBY320PR"",168,0)"
^XMB(3.9,55,2,30038,0)=" . Q"
^XMB(3.9,55,2,30039,0)="""RTN"",""IBY320PR"",169,0)"
^XMB(3.9,55,2,30040,0)=" S DIK=""^IBE(353,"",DA=FORM D ^DIK"
^XMB(3.9,55,2,30041,0)="""RTN"",""IBY320PR"",170,0)"
^XMB(3.9,55,2,30042,0)="DELFRMX ;"
^XMB(3.9,55,2,30043,0)="""RTN"",""IBY320PR"",171,0)"
^XMB(3.9,55,2,30044,0)=" Q"
^XMB(3.9,55,2,30045,0)="""RTN"",""IBY320PR"",172,0)"
^XMB(3.9,55,2,30046,0)=" ;"
^XMB(3.9,55,2,30047,0)="""RTN"",""IBY320PR"",173,0)"
^XMB(3.9,55,2,30048,0)="DELLIST ; delete existing list templates which are included in the build"
^XMB(3.9,55,2,30049,0)="""RTN"",""IBY320PR"",174,0)"
^XMB(3.9,55,2,30050,0)=" NEW LST,DIK,DA"
^XMB(3.9,55,2,30051,0)="""RTN"",""IBY320PR"",175,0)"
^XMB(3.9,55,2,30052,0)=" S DIK=""^SD(409.61,"""
^XMB(3.9,55,2,30053,0)="""RTN"",""IBY320PR"",176,0)"
^XMB(3.9,55,2,30054,0)=" S LST=""IBCE PRVFAC MAINT"",DA=$O(^SD(409.61,""B"",LST,0)) I DA D ^DIK"
^XMB(3.9,55,2,30055,0)="""RTN"",""IBY320PR"",177,0)"
^XMB(3.9,55,2,30056,0)=" S LST=""IBCE PRVMAINT"",DA=$O(^SD(409.61,""B"",LST,0)) I DA D ^DIK"
^XMB(3.9,55,2,30057,0)="""RTN"",""IBY320PR"",178,0)"
^XMB(3.9,55,2,30058,0)=" S LST=""IBCE PRVNVA MAINT"",DA=$O(^SD(409.61,""B"",LST,0)) I DA D ^DIK"
^XMB(3.9,55,2,30059,0)="""RTN"",""IBY320PR"",179,0)"
^XMB(3.9,55,2,30060,0)=" S LST=""IBCE PRVPRV MAINT"",DA=$O(^SD(409.61,""B"",LST,0)) I DA D ^DIK"
^XMB(3.9,55,2,30061,0)="""RTN"",""IBY320PR"",180,0)"
^XMB(3.9,55,2,30062,0)=" S LST=""IBCE VIEW PREV TRANS1"",DA=$O(^SD(409.61,""B"",LST,0)) I DA D ^DIK"
^XMB(3.9,55,2,30063,0)="""RTN"",""IBY320PR"",181,0)"
^XMB(3.9,55,2,30064,0)=" S LST=""IBCE VIEW PREV TRANS2"",DA=$O(^SD(409.61,""B"",LST,0)) I DA D ^DIK"
^XMB(3.9,55,2,30065,0)="""RTN"",""IBY320PR"",182,0)"
^XMB(3.9,55,2,30066,0)=" S LST=""IBCEM CSA LIST"",DA=$O(^SD(409.61,""B"",LST,0)) I DA D ^DIK"
^XMB(3.9,55,2,30067,0)="""RTN"",""IBY320PR"",183,0)"
^XMB(3.9,55,2,30068,0)=" S LST=""IBCEM CSA MSG"",DA=$O(^SD(409.61,""B"",LST,0)) I DA D ^DIK"
^XMB(3.9,55,2,30069,0)="""RTN"",""IBY320PR"",184,0)"
^XMB(3.9,55,2,30070,0)="DELLISTX ;"
^XMB(3.9,55,2,30071,0)="""RTN"",""IBY320PR"",185,0)"
^XMB(3.9,55,2,30072,0)=" Q"
^XMB(3.9,55,2,30073,0)="""RTN"",""IBY320PR"",186,0)"
^XMB(3.9,55,2,30074,0)=" ;"
^XMB(3.9,55,2,30075,0)="""RTN"",""IBY320PR"",187,0)"
^XMB(3.9,55,2,30076,0)="EMAIL ; This procedure generates and sends a message about the pre-patch 320"
^XMB(3.9,55,2,30077,0)="""RTN"",""IBY320PR"",188,0)"
^XMB(3.9,55,2,30078,0)=" ; entries in file 355.97 - provider ID types"
^XMB(3.9,55,2,30079,0)="""RTN"",""IBY320PR"",189,0)"
^XMB(3.9,55,2,30080,0)=" NEW IEN,DATA,Z1,Z2,Z4,IBX,ZLN,MSG,XMDUZ,XMSUBJ,XMBODY,XMTO,BFLG,IBZ"
^XMB(3.9,55,2,30081,0)="""RTN"",""IBY320PR"",190,0)"
^XMB(3.9,55,2,30082,0)=" S IEN=0,BFLG=0"
^XMB(3.9,55,2,30083,0)="""RTN"",""IBY320PR"",191,0)"
^XMB(3.9,55,2,30084,0)=" F  S IEN=$O(^IBE(355.97,IEN)) Q:'IEN  D"
^XMB(3.9,55,2,30085,0)="""RTN"",""IBY320PR"",192,0)"
^XMB(3.9,55,2,30086,0)=" . S DATA=$G(^IBE(355.97,IEN,0))"
^XMB(3.9,55,2,30087,0)="""RTN"",""IBY320PR"",193,0)"
^XMB(3.9,55,2,30088,0)=" . I $P($G(^IBE(355.97,IEN,1)),U,4) S $P(DATA,U,4)=$P($G(^IBE(350.9,1,1)),U,5)    ; federal tax id#"
^XMB(3.9,55,2,30089,0)="""RTN"",""IBY320PR"",194,0)"
^XMB(3.9,55,2,30090,0)=" . S Z2=$S($P(DATA,U,2)=0:0,$P(DATA,U,2)=2:2,1:""OTHER"")"
^XMB(3.9,55,2,30091,0)="""RTN"",""IBY320PR"",195,0)"
^XMB(3.9,55,2,30092,0)=" . S Z1=$P(DATA,U,1) I Z1="""" S Z1=""~Unknown"""
^XMB(3.9,55,2,30093,0)="""RTN"",""IBY320PR"",196,0)"
^XMB(3.9,55,2,30094,0)=" . S Z4="" ""_$P(DATA,U,4)"
^XMB(3.9,55,2,30095,0)="""RTN"",""IBY320PR"",197,0)"
^XMB(3.9,55,2,30096,0)=" . S IBX(Z2,Z1,Z4)="""""
^XMB(3.9,55,2,30097,0)="""RTN"",""IBY320PR"",198,0)"
^XMB(3.9,55,2,30098,0)=" . I $O(^IBE(355.97,""B"",Z1,""""))'=$O(^IBE(355.97,""B"",Z1,""""),-1) S BFLG=1"
^XMB(3.9,55,2,30099,0)="""RTN"",""IBY320PR"",199,0)"
^XMB(3.9,55,2,30100,0)=" . Q"
^XMB(3.9,55,2,30101,0)="""RTN"",""IBY320PR"",200,0)"
^XMB(3.9,55,2,30102,0)=" ;"
^XMB(3.9,55,2,30103,0)="""RTN"",""IBY320PR"",201,0)"
^XMB(3.9,55,2,30104,0)=" S MSG(1)=""This message is generated by the pre-install routine for IB patch 320 which"""
^XMB(3.9,55,2,30105,0)="""RTN"",""IBY320PR"",202,0)"
^XMB(3.9,55,2,30106,0)=" S MSG(2)=""is eClaims Plus Iteration 2."""
^XMB(3.9,55,2,30107,0)="""RTN"",""IBY320PR"",203,0)"
^XMB(3.9,55,2,30108,0)=" S MSG(3)="""""
^XMB(3.9,55,2,30109,0)="""RTN"",""IBY320PR"",204,0)"
^XMB(3.9,55,2,30110,0)=" S MSG(4)=""This patch removes the ability to view or edit the IDs that were previously"""
^XMB(3.9,55,2,30111,0)="""RTN"",""IBY320PR"",205,0)"
^XMB(3.9,55,2,30112,0)=" S MSG(5)=""defined in Set #14 of the IB Site Parameters and also in the Provider ID"""
^XMB(3.9,55,2,30113,0)="""RTN"",""IBY320PR"",206,0)"
^XMB(3.9,55,2,30114,0)=" S MSG(6)=""Maintenance option, Selection #3."""
^XMB(3.9,55,2,30115,0)="""RTN"",""IBY320PR"",207,0)"
^XMB(3.9,55,2,30116,0)=" S MSG(7)="""""
^XMB(3.9,55,2,30117,0)="""RTN"",""IBY320PR"",208,0)"
^XMB(3.9,55,2,30118,0)=" S MSG(8)=""This message is being generated to capture a snapshot of what this data"""
^XMB(3.9,55,2,30119,0)="""RTN"",""IBY320PR"",209,0)"
^XMB(3.9,55,2,30120,0)=" S MSG(9)=""looked like prior to the installation of IB patch 320."""
^XMB(3.9,55,2,30121,0)="""RTN"",""IBY320PR"",210,0)"
^XMB(3.9,55,2,30122,0)=" S MSG(10)="""""
^XMB(3.9,55,2,30123,0)="""RTN"",""IBY320PR"",211,0)"
^XMB(3.9,55,2,30124,0)=" S MSG(11)=""If any of these IDs are still needed, then they may be defined by using the"""
^XMB(3.9,55,2,30125,0)="""RTN"",""IBY320PR"",212,0)"
^XMB(3.9,55,2,30126,0)=" S MSG(12)=""Additional IDs screen in the Insurance Company Editor --> Provider IDs/ID"""
^XMB(3.9,55,2,30127,0)="""RTN"",""IBY320PR"",213,0)"
^XMB(3.9,55,2,30128,0)=" S MSG(13)=""Parameters.   The correct Medicare numbers will be automatically populated"""
^XMB(3.9,55,2,30129,0)="""RTN"",""IBY320PR"",214,0)"
^XMB(3.9,55,2,30130,0)=" S MSG(14)=""by the software.  The default UPIN for Medicare can be defined in the"""
^XMB(3.9,55,2,30131,0)="""RTN"",""IBY320PR"",215,0)"
^XMB(3.9,55,2,30132,0)=" S MSG(15)=""Provider ID Maintenance option, Selection #2 as the insurance company"""
^XMB(3.9,55,2,30133,0)="""RTN"",""IBY320PR"",216,0)"
^XMB(3.9,55,2,30134,0)=" S MSG(16)=""default if it is not already there."""
^XMB(3.9,55,2,30135,0)="""RTN"",""IBY320PR"",217,0)"
^XMB(3.9,55,2,30136,0)=" S MSG(17)="""""
^XMB(3.9,55,2,30137,0)="""RTN"",""IBY320PR"",218,0)"
^XMB(3.9,55,2,30138,0)=" S MSG(18)=""Provider ID Type                Provider ID"""
^XMB(3.9,55,2,30139,0)="""RTN"",""IBY320PR"",219,0)"
^XMB(3.9,55,2,30140,0)=" S MSG(19)=""----------------------------------------------------------------"""
^XMB(3.9,55,2,30141,0)="""RTN"",""IBY320PR"",220,0)"
^XMB(3.9,55,2,30142,0)=" ;"
^XMB(3.9,55,2,30143,0)="""RTN"",""IBY320PR"",221,0)"
^XMB(3.9,55,2,30144,0)=" S ZLN=19"
^XMB(3.9,55,2,30145,0)="""RTN"",""IBY320PR"",222,0)"
^XMB(3.9,55,2,30146,0)=" F Z2=2,0,""OTHER"" S Z1="""" F  S Z1=$O(IBX(Z2,Z1)) Q:Z1=""""  S Z4="""" F  S Z4=$O(IBX(Z2,Z1,Z4)) Q:Z4=""""  D"
^XMB(3.9,55,2,30147,0)="""RTN"",""IBY320PR"",223,0)"
^XMB(3.9,55,2,30148,0)=" . S ZLN=ZLN+1,MSG(ZLN)=$$FO^IBCNEUT1(Z1,30)_"":""_Z4"
^XMB(3.9,55,2,30149,0)="""RTN"",""IBY320PR"",224,0)"
^XMB(3.9,55,2,30150,0)=" . Q"
^XMB(3.9,55,2,30151,0)="""RTN"",""IBY320PR"",225,0)"
^XMB(3.9,55,2,30152,0)=" ;"
^XMB(3.9,55,2,30153,0)="""RTN"",""IBY320PR"",226,0)"
^XMB(3.9,55,2,30154,0)=" ; send message"
^XMB(3.9,55,2,30155,0)="""RTN"",""IBY320PR"",227,0)"
^XMB(3.9,55,2,30156,0)=" S XMDUZ=DUZ"
^XMB(3.9,55,2,30157,0)="""RTN"",""IBY320PR"",228,0)"
^XMB(3.9,55,2,30158,0)=" S XMSUBJ=""Legacy Billing Provider Secondary IDs and ID Types (IB*2*320)"""
^XMB(3.9,55,2,30159,0)="""RTN"",""IBY320PR"",229,0)"
^XMB(3.9,55,2,30160,0)=" S XMBODY=""MSG"""
^XMB(3.9,55,2,30161,0)="""RTN"",""IBY320PR"",230,0)"
^XMB(3.9,55,2,30162,0)=" S XMTO(DUZ)="""""
^XMB(3.9,55,2,30163,0)="""RTN"",""IBY320PR"",231,0)"
^XMB(3.9,55,2,30164,0)=" S XMTO(""G.IB EDI SUPERVISOR"")="""""
^XMB(3.9,55,2,30165,0)="""RTN"",""IBY320PR"",232,0)"
^XMB(3.9,55,2,30166,0)=" D SENDMSG^XMXAPI(XMDUZ,XMSUBJ,XMBODY,.XMTO)"
^XMB(3.9,55,2,30167,0)="""RTN"",""IBY320PR"",233,0)"
^XMB(3.9,55,2,30168,0)=" ;"
^XMB(3.9,55,2,30169,0)="""RTN"",""IBY320PR"",234,0)"
^XMB(3.9,55,2,30170,0)=" ; send another msg if duplicate data found"
^XMB(3.9,55,2,30171,0)="""RTN"",""IBY320PR"",235,0)"
^XMB(3.9,55,2,30172,0)=" I 'BFLG G EMAILX"
^XMB(3.9,55,2,30173,0)="""RTN"",""IBY320PR"",236,0)"
^XMB(3.9,55,2,30174,0)=" ;"
^XMB(3.9,55,2,30175,0)="""RTN"",""IBY320PR"",237,0)"
^XMB(3.9,55,2,30176,0)=" K MSG,XMTO S MSG(1)=""Site Identification:  ""_$$SITE^VASITE(),MSG(2)="""""
^XMB(3.9,55,2,30177,0)="""RTN"",""IBY320PR"",238,0)"
^XMB(3.9,55,2,30178,0)=" ;"
^XMB(3.9,55,2,30179,0)="""RTN"",""IBY320PR"",239,0)"
^XMB(3.9,55,2,30180,0)=" S IBZ=""^IBE(355.97)"",ZLN=2"
^XMB(3.9,55,2,30181,0)="""RTN"",""IBY320PR"",240,0)"
^XMB(3.9,55,2,30182,0)=" F  S IBZ=$Q(@IBZ) Q:IBZ'[355.97  D"
^XMB(3.9,55,2,30183,0)="""RTN"",""IBY320PR"",241,0)"
^XMB(3.9,55,2,30184,0)=" . I $P(IBZ,"","",3)=""1)"" Q"
^XMB(3.9,55,2,30185,0)="""RTN"",""IBY320PR"",242,0)"
^XMB(3.9,55,2,30186,0)=" . S ZLN=ZLN+1"
^XMB(3.9,55,2,30187,0)="""RTN"",""IBY320PR"",243,0)"
^XMB(3.9,55,2,30188,0)=" . S MSG(ZLN)=IBZ_"" = ""_$G(@IBZ)"
^XMB(3.9,55,2,30189,0)="""RTN"",""IBY320PR"",244,0)"
^XMB(3.9,55,2,30190,0)=" . Q"
^XMB(3.9,55,2,30191,0)="""RTN"",""IBY320PR"",245,0)"
^XMB(3.9,55,2,30192,0)=" ;"
^XMB(3.9,55,2,30193,0)="""RTN"",""IBY320PR"",246,0)"
^XMB(3.9,55,2,30194,0)=" ; send message"
^XMB(3.9,55,2,30195,0)="""RTN"",""IBY320PR"",247,0)"
^XMB(3.9,55,2,30196,0)=" S XMDUZ=DUZ"
^XMB(3.9,55,2,30197,0)="""RTN"",""IBY320PR"",248,0)"
^XMB(3.9,55,2,30198,0)=" S XMSUBJ=""Duplicate Data found in file 355.97 (IB*2*320)"""
^XMB(3.9,55,2,30199,0)="""RTN"",""IBY320PR"",249,0)"
^XMB(3.9,55,2,30200,0)=" S XMBODY=""MSG"""
^XMB(3.9,55,2,30201,0)="""RTN"",""IBY320PR"",250,0)"
^XMB(3.9,55,2,30202,0)=" S XMTO(""Bill.Jutzi@va.gov"")="""""
^XMB(3.9,55,2,30203,0)="""RTN"",""IBY320PR"",251,0)"
^XMB(3.9,55,2,30204,0)=" S XMTO(""Eric.Gustafson@va.gov"")="""""
^XMB(3.9,55,2,30205,0)="""RTN"",""IBY320PR"",252,0)"
^XMB(3.9,55,2,30206,0)=" D SENDMSG^XMXAPI(XMDUZ,XMSUBJ,XMBODY,.XMTO)"
^XMB(3.9,55,2,30207,0)="""RTN"",""IBY320PR"",253,0)"
^XMB(3.9,55,2,30208,0)=" ;"
^XMB(3.9,55,2,30209,0)="""RTN"",""IBY320PR"",254,0)"
^XMB(3.9,55,2,30210,0)="EMAILX ;"
^XMB(3.9,55,2,30211,0)="""RTN"",""IBY320PR"",255,0)"
^XMB(3.9,55,2,30212,0)=" Q"
^XMB(3.9,55,2,30213,0)="""RTN"",""IBY320PR"",256,0)"
^XMB(3.9,55,2,30214,0)=" ;"
^XMB(3.9,55,2,30215,0)="""RTN"",""IBY320PR"",257,0)"
^XMB(3.9,55,2,30216,0)="DELXREFS ;"
^XMB(3.9,55,2,30217,0)="""RTN"",""IBY320PR"",258,0)"
^XMB(3.9,55,2,30218,0)=" D BMES^XPDUTL(""Removing triggers"")"
^XMB(3.9,55,2,30219,0)="""RTN"",""IBY320PR"",259,0)"
^XMB(3.9,55,2,30220,0)=" D DELIX^DDMOD(399.0222,.05,2)"
^XMB(3.9,55,2,30221,0)="""RTN"",""IBY320PR"",260,0)"
^XMB(3.9,55,2,30222,0)=" N III F III=.06,.07,.12,.13,.14 D DELIX^DDMOD(399.0222,III,1)"
^XMB(3.9,55,2,30223,0)="""RTN"",""IBY320PR"",261,0)"
^XMB(3.9,55,2,30224,0)=" D MES^XPDUTL(""Done"")"
^XMB(3.9,55,2,30225,0)="""RTN"",""IBY320PR"",262,0)"
^XMB(3.9,55,2,30226,0)=" ;"
^XMB(3.9,55,2,30227,0)="""UP"",36,36.013,-1)"
^XMB(3.9,55,2,30228,0)="36^13"
^XMB(3.9,55,2,30229,0)="""UP"",36,36.013,0)"
^XMB(3.9,55,2,30230,0)="36.013"
^XMB(3.9,55,2,30231,0)="""UP"",361.4,361.41,-1)"
^XMB(3.9,55,2,30232,0)="361.4^1"
^XMB(3.9,55,2,30233,0)="""UP"",361.4,361.41,0)"
^XMB(3.9,55,2,30234,0)="361.41"
^XMB(3.9,55,2,30235,0)="""UP"",399,399.0222,-1)"
^XMB(3.9,55,2,30236,0)="399^PRV"
^XMB(3.9,55,2,30237,0)="""UP"",399,399.0222,0)"
^XMB(3.9,55,2,30238,0)="399.0222"
^XMB(3.9,55,2,30239,0)="""VER"")"
^XMB(3.9,55,2,30240,0)="8.0^22.0"
^XMB(3.9,55,2,30241,0)="""^DD"",36,36,.01,0)"
^XMB(3.9,55,2,30242,0)="NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^XMB(3.9,55,2,30243,0)="""^DD"",36,36,.01,.1)"
^XMB(3.9,55,2,30244,0)="INSURANCE COMPANY FILE"
^XMB(3.9,55,2,30245,0)="""^DD"",36,36,.01,1,0)"
^XMB(3.9,55,2,30246,0)="^.1"
^XMB(3.9,55,2,30247,0)="""^DD"",36,36,.01,1,1,0)"
^XMB(3.9,55,2,30248,0)="36^B"
^XMB(3.9,55,2,30249,0)="""^DD"",36,36,.01,1,1,1)"
^XMB(3.9,55,2,30250,0)="S ^DIC(36,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,55,2,30251,0)="""^DD"",36,36,.01,1,1,2)"
^XMB(3.9,55,2,30252,0)="K ^DIC(36,""B"",$E(X,1,30),DA)"
^XMB(3.9,55,2,30253,0)="""^DD"",36,36,.01,1,2,0)"
^XMB(3.9,55,2,30254,0)="^^TRIGGER^36^4.04"
^XMB(3.9,55,2,30255,0)="""^DD"",36,36,.01,1,2,1)"
^XMB(3.9,55,2,30256,0)="X ^DD(36,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,4)):^(4),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=""22"" S DIH=$G(^DIC(36,DIV(0),4)),DIV=X S $P(^(4),U,4)=DIV,DIH=36,DIG=4.04 D ^DICR"
^XMB(3.9,55,2,30257,0)="""^DD"",36,36,.01,1,2,1.3)"
^XMB(3.9,55,2,30258,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DIC(36,D0,4)):^(4),1:"""") S X=$P($G(^IBE(355.97,+$P(Y(1),U,4),0)),U)="""""
^XMB(3.9,55,2,30259,0)="""^DD"",36,36,.01,1,2,2)"
^XMB(3.9,55,2,30260,0)="Q"
^XMB(3.9,55,2,30261,0)="""^DD"",36,36,.01,1,2,""CREATE CONDITION"")"
^XMB(3.9,55,2,30262,0)="REF PROV SEC ID DEF HCFA="""""
^XMB(3.9,55,2,30263,0)="""^DD"",36,36,.01,1,2,""CREATE VALUE"")"
^XMB(3.9,55,2,30264,0)="""22"""
^XMB(3.9,55,2,30265,0)="""^DD"",36,36,.01,1,2,""DELETE VALUE"")"
^XMB(3.9,55,2,30266,0)="NO EFFECT"
^XMB(3.9,55,2,30267,0)="""^DD"",36,36,.01,1,2,""DT"")"
^XMB(3.9,55,2,30268,0)="3060308"
^XMB(3.9,55,2,30269,0)="""^DD"",36,36,.01,1,2,""FIELD"")"
^XMB(3.9,55,2,30270,0)="REF PROV SEC ID DEF HCFA"
^XMB(3.9,55,2,30271,0)="""^DD"",36,36,.01,1,3,0)"
^XMB(3.9,55,2,30272,0)="^^TRIGGER^36^4.05"
^XMB(3.9,55,2,30273,0)="""^DD"",36,36,.01,1,3,1)"
^XMB(3.9,55,2,30274,0)="X ^DD(36,.01,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,4)):^(4),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=""0"" S DIH=$G(^DIC(36,DIV(0),4)),DIV=X S $P(^(4),U,5)=DIV,DIH=36,DIG=4.05 D ^DICR"
^XMB(3.9,55,2,30275,0)="""^DD"",36,36,.01,1,3,1.3)"
^XMB(3.9,55,2,30276,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(36,4.05,0)),U,3),Y(1)=$S($D(^DIC(36,D0,4)):^(4),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,5)_"":"",2),$C(59))="""""
^XMB(3.9,55,2,30277,0)="""^DD"",36,36,.01,1,3,2)"
^XMB(3.9,55,2,30278,0)="Q"
^XMB(3.9,55,2,30279,0)="""^DD"",36,36,.01,1,3,""CREATE CONDITION"")"
^XMB(3.9,55,2,30280,0)="REF PROV SEC ID REQ ON CLAIMS="""""
^XMB(3.9,55,2,30281,0)="""^DD"",36,36,.01,1,3,""CREATE VALUE"")"
^XMB(3.9,55,2,30282,0)="""0"""
^XMB(3.9,55,2,30283,0)="""^DD"",36,36,.01,1,3,""DELETE VALUE"")"
^XMB(3.9,55,2,30284,0)="NO EFFECT"
^XMB(3.9,55,2,30285,0)="""^DD"",36,36,.01,1,3,""DT"")"
^XMB(3.9,55,2,30286,0)="3060308"
^XMB(3.9,55,2,30287,0)="""^DD"",36,36,.01,1,3,""FIELD"")"
^XMB(3.9,55,2,30288,0)="REF PROV SEC ID REQ ON CLAIMS"
^XMB(3.9,55,2,30289,0)="""^DD"",36,36,.01,1,4,0)"
^XMB(3.9,55,2,30290,0)="^^TRIGGER^36^4.06"
^XMB(3.9,55,2,30291,0)="""^DD"",36,36,.01,1,4,1)"
^XMB(3.9,55,2,30292,0)="X ^DD(36,.01,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,4)):^(4),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=""0"" S DIH=$G(^DIC(36,DIV(0),4)),DIV=X S $P(^(4),U,6)=DIV,DIH=36,DIG=4.06 D ^DICR"
^XMB(3.9,55,2,30293,0)="""^DD"",36,36,.01,1,4,1.3)"
^XMB(3.9,55,2,30294,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(36,4.06,0)),U,3),Y(1)=$S($D(^DIC(36,D0,4)):^(4),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,6)_"":"",2),$C(59))="""""
^XMB(3.9,55,2,30295,0)="""^DD"",36,36,.01,1,4,2)"
^XMB(3.9,55,2,30296,0)="Q"
^XMB(3.9,55,2,30297,0)="""^DD"",36,36,.01,1,4,""CREATE CONDITION"")"
^XMB(3.9,55,2,30298,0)="#4.06="""""
^XMB(3.9,55,2,30299,0)="""^DD"",36,36,.01,1,4,""CREATE VALUE"")"
^XMB(3.9,55,2,30300,0)="""0"""
^XMB(3.9,55,2,30301,0)="""^DD"",36,36,.01,1,4,""DELETE VALUE"")"
^XMB(3.9,55,2,30302,0)="NO EFFECT"
^XMB(3.9,55,2,30303,0)="""^DD"",36,36,.01,1,4,""DT"")"
^XMB(3.9,55,2,30304,0)="3060504"
^XMB(3.9,55,2,30305,0)="""^DD"",36,36,.01,1,4,""FIELD"")"
^XMB(3.9,55,2,30306,0)="ATT/REND ID BILL SEC ID PROF"
^XMB(3.9,55,2,30307,0)="""^DD"",36,36,.01,1,5,0)"
^XMB(3.9,55,2,30308,0)="^^TRIGGER^36^4.07"
^XMB(3.9,55,2,30309,0)="""^DD"",36,36,.01,1,5,1)"
^XMB(3.9,55,2,30310,0)="X ^DD(36,.01,1,5,1.3) I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,4)):^(4),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=""1"" S DIH=$G(^DIC(36,DIV(0),4)),DIV=X S $P(^(4),U,7)=DIV,DIH=36,DIG=4.07 D ^DICR"
^XMB(3.9,55,2,30311,0)="""^DD"",36,36,.01,1,5,1.3)"
^XMB(3.9,55,2,30312,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(36,4.07,0)),U,3),Y(1)=$S($D(^DIC(36,D0,4)):^(4),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,7)_"":"",2),$C(59))="""""
^XMB(3.9,55,2,30313,0)="""^DD"",36,36,.01,1,5,2)"
^XMB(3.9,55,2,30314,0)="Q"
^XMB(3.9,55,2,30315,0)="""^DD"",36,36,.01,1,5,""CREATE CONDITION"")"
^XMB(3.9,55,2,30316,0)="SEND LAB OR FAC IDS FOR VAMC="""""
^XMB(3.9,55,2,30317,0)="""^DD"",36,36,.01,1,5,""CREATE VALUE"")"
^XMB(3.9,55,2,30318,0)="""1"""
^XMB(3.9,55,2,30319,0)="""^DD"",36,36,.01,1,5,""DELETE VALUE"")"
^XMB(3.9,55,2,30320,0)="NO EFFECT"
^XMB(3.9,55,2,30321,0)="""^DD"",36,36,.01,1,5,""DT"")"
^XMB(3.9,55,2,30322,0)="3060308"
^XMB(3.9,55,2,30323,0)="""^DD"",36,36,.01,1,5,""FIELD"")"
^XMB(3.9,55,2,30324,0)="SEND LAB OR FAC IDS FOR VAMC"
^XMB(3.9,55,2,30325,0)="""^DD"",36,36,.01,1,6,0)"
^XMB(3.9,55,2,30326,0)="^^TRIGGER^36^4.08"
^XMB(3.9,55,2,30327,0)="""^DD"",36,36,.01,1,6,1)"
^XMB(3.9,55,2,30328,0)="X ^DD(36,.01,1,6,1.3) I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,4)):^(4),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=""0"" S DIH=$G(^DIC(36,DIV(0),4)),DIV=X S $P(^(4),U,8)=DIV,DIH=36,DIG=4.08 D ^DICR"
^XMB(3.9,55,2,30329,0)="""^DD"",36,36,.01,1,6,1.3)"
^XMB(3.9,55,2,30330,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(36,4.08,0)),U,3),Y(1)=$S($D(^DIC(36,D0,4)):^(4),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,8)_"":"",2),$C(59))="""""
^XMB(3.9,55,2,30331,0)="""^DD"",36,36,.01,1,6,2)"
^XMB(3.9,55,2,30332,0)="Q"
^XMB(3.9,55,2,30333,0)="""^DD"",36,36,.01,1,6,""CREATE CONDITION"")"
^XMB(3.9,55,2,30334,0)="#4.08="""""
^XMB(3.9,55,2,30335,0)="""^DD"",36,36,.01,1,6,""CREATE VALUE"")"
^XMB(3.9,55,2,30336,0)="""0"""
^XMB(3.9,55,2,30337,0)="""^DD"",36,36,.01,1,6,""DELETE VALUE"")"
^XMB(3.9,55,2,30338,0)="NO EFFECT"
^XMB(3.9,55,2,30339,0)="""^DD"",36,36,.01,1,6,""DT"")"
^XMB(3.9,55,2,30340,0)="3060504"
^XMB(3.9,55,2,30341,0)="""^DD"",36,36,.01,1,6,""FIELD"")"
^XMB(3.9,55,2,30342,0)="ATT/REND ID BILL SEC ID INST"
^XMB(3.9,55,2,30343,0)="""^DD"",36,36,.01,3)"
^XMB(3.9,55,2,30344,0)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^XMB(3.9,55,2,30345,0)="""^DD"",36,36,.01,21,0)"
^XMB(3.9,55,2,30346,0)="^^5^5^2941201^^^^"
^XMB(3.9,55,2,30347,0)="""^DD"",36,36,.01,21,1,0)"
^XMB(3.9,55,2,30348,0)="Enter the name of the insurance carrier which at least one patient seen"
^XMB(3.9,55,2,30349,0)="""^DD"",36,36,.01,21,2,0)"
^XMB(3.9,55,2,30350,0)="at your facility has.  This information must be updated using the 'Insurance"
^XMB(3.9,55,2,30351,0)="""^DD"",36,36,.01,21,3,0)"
^XMB(3.9,55,2,30352,0)="Company Entry/Edit' option, NOT using VA FileMan.  Editing of this data"
^XMB(3.9,55,2,30353,0)="""^DD"",36,36,.01,21,4,0)"
^XMB(3.9,55,2,30354,0)="through a filemanager option could cause negative impacts on the MAS and"
^XMB(3.9,55,2,30355,0)="""^DD"",36,36,.01,21,5,0)"
^XMB(3.9,55,2,30356,0)="IB software modules in addition to other DHCP modules."
^XMB(3.9,55,2,30357,0)="""^DD"",36,36,.01,""DEL"",1,0)"
^XMB(3.9,55,2,30358,0)="I 1 W !!,""You must use the 'Delete Company' action to delete a company... """
^XMB(3.9,55,2,30359,0)="""^DD"",36,36,.01,""DT"")"
^XMB(3.9,55,2,30360,0)="3060504"
^XMB(3.9,55,2,30361,0)="""^DD"",36,36,.06,0)"
^XMB(3.9,55,2,30362,0)="ALLOW MULTIPLE BEDSECTIONS^S^0:NO;1:YES;^0;6^Q"
^XMB(3.9,55,2,30363,0)="""^DD"",36,36,.06,3)"
^XMB(3.9,55,2,30364,0)="Enter whether or not this Insurance Company will accept multiple bedsections on a claim form.  If left blank a NO is assumed."
^XMB(3.9,55,2,30365,0)="""^DD"",36,36,.06,21,0)"
^XMB(3.9,55,2,30366,0)="^^7^7^3051117^"
^XMB(3.9,55,2,30367,0)="""^DD"",36,36,.06,21,1,0)"
^XMB(3.9,55,2,30368,0)="This field determines whether this insurance company will accept"
^XMB(3.9,55,2,30369,0)="""^DD"",36,36,.06,21,2,0)"
^XMB(3.9,55,2,30370,0)="multiple bedsections on one claim form.  If answered 'YES' then"
^XMB(3.9,55,2,30371,0)="""^DD"",36,36,.06,21,3,0)"
^XMB(3.9,55,2,30372,0)="selection of the PRIMARY INSURANCE CARRIER in MCCR will trigger"
^XMB(3.9,55,2,30373,0)="""^DD"",36,36,.06,21,4,0)"
^XMB(3.9,55,2,30374,0)="revenue codes for all bedsections within the STATEMENT COVERS FROM"
^XMB(3.9,55,2,30375,0)="""^DD"",36,36,.06,21,5,0)"
^XMB(3.9,55,2,30376,0)="and STATEMENT COVERS TO dates."
^XMB(3.9,55,2,30377,0)="""^DD"",36,36,.06,21,6,0)"
^XMB(3.9,55,2,30378,0)="If this is answered 'NO' or left blank then only the first"
^XMB(3.9,55,2,30379,0)="""^DD"",36,36,.06,21,7,0)"
^XMB(3.9,55,2,30380,0)="bedsection in the date range will be used."
^XMB(3.9,55,2,30381,0)="""^DD"",36,36,.06,""DT"")"
^XMB(3.9,55,2,30382,0)="3051117"
^XMB(3.9,55,2,30383,0)="""^DD"",36,36,.07,0)"
^XMB(3.9,55,2,30384,0)="DIFFERENT REVENUE CODES TO USE^FX^^0;7^K:$L(X)>40!($L(X)<3) X I $D(X) X ""F DGII=1:1:10 S DGINX=$P(X,"""","""",DGII) Q:DGINX=""""""""  I DGINX'?3N."""":""""3N K X Q"" K DGII,DGINX"
^XMB(3.9,55,2,30385,0)="""^DD"",36,36,.07,3)"
^XMB(3.9,55,2,30386,0)="Answer must be 3-40 characters in length.  Enter the 3 digit rev code that is being replaced followed by a ':' followed by the rev code to be used for this Ins Company.  (old RC:new RC,old RC:new RC)"
^XMB(3.9,55,2,30387,0)="""^DD"",36,36,.07,21,0)"
^XMB(3.9,55,2,30388,0)="^^15^15^3051117^"
^XMB(3.9,55,2,30389,0)="""^DD"",36,36,.07,21,1,0)"
^XMB(3.9,55,2,30390,0)="This field is used to replace standard revenue codes used on a"
^XMB(3.9,55,2,30391,0)="""^DD"",36,36,.07,21,2,0)"
^XMB(3.9,55,2,30392,0)="bill with revenue codes requested by an insurance company."
^XMB(3.9,55,2,30393,0)="""^DD"",36,36,.07,21,3,0)"
^XMB(3.9,55,2,30394,0)=" "
^XMB(3.9,55,2,30395,0)="""^DD"",36,36,.07,21,4,0)"
^XMB(3.9,55,2,30396,0)="The standard revenue codes are those codes found in the"
^XMB(3.9,55,2,30397,0)="""^DD"",36,36,.07,21,5,0)"
^XMB(3.9,55,2,30398,0)="Charge Master and are used for most bills."
^XMB(3.9,55,2,30399,0)="""^DD"",36,36,.07,21,6,0)"
^XMB(3.9,55,2,30400,0)=" "
^XMB(3.9,55,2,30401,0)="""^DD"",36,36,.07,21,7,0)"
^XMB(3.9,55,2,30402,0)="Enter the standard revenue code to be replaced followed by ':'"
^XMB(3.9,55,2,30403,0)="""^DD"",36,36,.07,21,8,0)"
^XMB(3.9,55,2,30404,0)="followed by the revenue code the insurance company requires:"
^XMB(3.9,55,2,30405,0)="""^DD"",36,36,.07,21,9,0)"
^XMB(3.9,55,2,30406,0)=" "
^XMB(3.9,55,2,30407,0)="""^DD"",36,36,.07,21,10,0)"
^XMB(3.9,55,2,30408,0)="  500:510  will result in revenue code 500 being replaced"
^XMB(3.9,55,2,30409,0)="""^DD"",36,36,.07,21,11,0)"
^XMB(3.9,55,2,30410,0)="           by 510 on this insurance company bills"
^XMB(3.9,55,2,30411,0)="""^DD"",36,36,.07,21,12,0)"
^XMB(3.9,55,2,30412,0)=" "
^XMB(3.9,55,2,30413,0)="""^DD"",36,36,.07,21,13,0)"
^XMB(3.9,55,2,30414,0)="Separate multiple revenue code replacement sets by a comma:"
^XMB(3.9,55,2,30415,0)="""^DD"",36,36,.07,21,14,0)"
^XMB(3.9,55,2,30416,0)=" "
^XMB(3.9,55,2,30417,0)="""^DD"",36,36,.07,21,15,0)"
^XMB(3.9,55,2,30418,0)="           101:240,500:510"
^XMB(3.9,55,2,30419,0)="""^DD"",36,36,.07,""DT"")"
^XMB(3.9,55,2,30420,0)="3051117"
^XMB(3.9,55,2,30421,0)="""^DD"",36,36,.08,0)"
^XMB(3.9,55,2,30422,0)="ONE OPT. VISIT ON BILL ONLY^S^0:NO;1:YES;^0;8^Q"
^XMB(3.9,55,2,30423,0)="""^DD"",36,36,.08,3)"
^XMB(3.9,55,2,30424,0)="Enter whether or not claom form's to this Insurance Company should allow only 1 outpatient visit per bill."
^XMB(3.9,55,2,30425,0)="""^DD"",36,36,.08,21,0)"
^XMB(3.9,55,2,30426,0)="^^5^5^3051117^"
^XMB(3.9,55,2,30427,0)="""^DD"",36,36,.08,21,1,0)"
^XMB(3.9,55,2,30428,0)="If this field is answered 'YES' then only one outpatient visit"
^XMB(3.9,55,2,30429,0)="""^DD"",36,36,.08,21,2,0)"
^XMB(3.9,55,2,30430,0)="will be allowed per claim form for this Insurance Company."
^XMB(3.9,55,2,30431,0)="""^DD"",36,36,.08,21,3,0)"
^XMB(3.9,55,2,30432,0)=" "
^XMB(3.9,55,2,30433,0)="""^DD"",36,36,.08,21,4,0)"
^XMB(3.9,55,2,30434,0)="If it is unanswered or answered 'NO' then multiple (up to 10)"
^XMB(3.9,55,2,30435,0)="""^DD"",36,36,.08,21,5,0)"
^XMB(3.9,55,2,30436,0)="outpatient bills will be allowed per claim form."
^XMB(3.9,55,2,30437,0)="""^DD"",36,36,.08,""DT"")"
^XMB(3.9,55,2,30438,0)="3051117"
^XMB(3.9,55,2,30439,0)="""^DD"",36,36,.13,0)"
^XMB(3.9,55,2,30440,0)="TYPE OF COVERAGE^P355.2'^IBE(355.2,^0;13^Q"
^XMB(3.9,55,2,30441,0)="""^DD"",36,36,.13,21,0)"
^XMB(3.9,55,2,30442,0)="^^11^11^3051117^"
^XMB(3.9,55,2,30443,0)="""^DD"",36,36,.13,21,1,0)"
^XMB(3.9,55,2,30444,0)="If this insurance carrier provides only one type of coverage then select"
^XMB(3.9,55,2,30445,0)="""^DD"",36,36,.13,21,2,0)"
^XMB(3.9,55,2,30446,0)="the entry that best describes this carriers type of coverage.  If this"
^XMB(3.9,55,2,30447,0)="""^DD"",36,36,.13,21,3,0)"
^XMB(3.9,55,2,30448,0)="carrier provides more than one type of coverage then select HEALTH"
^XMB(3.9,55,2,30449,0)="""^DD"",36,36,.13,21,4,0)"
^XMB(3.9,55,2,30450,0)="INSURANCE.  The default answer if left unanswered is Health Insurance."
^XMB(3.9,55,2,30451,0)="""^DD"",36,36,.13,21,5,0)"
^XMB(3.9,55,2,30452,0)=" "
^XMB(3.9,55,2,30453,0)="""^DD"",36,36,.13,21,6,0)"
^XMB(3.9,55,2,30454,0)="This is useful information when contacting carriers, when creating "
^XMB(3.9,55,2,30455,0)="""^DD"",36,36,.13,21,7,0)"
^XMB(3.9,55,2,30456,0)="claims for reimbursement, and when estimating if the payment"
^XMB(3.9,55,2,30457,0)="""^DD"",36,36,.13,21,8,0)"
^XMB(3.9,55,2,30458,0)="received is appropriate."
^XMB(3.9,55,2,30459,0)="""^DD"",36,36,.13,21,9,0)"
^XMB(3.9,55,2,30460,0)=" "
^XMB(3.9,55,2,30461,0)="""^DD"",36,36,.13,21,10,0)"
^XMB(3.9,55,2,30462,0)="If this field is answered it may affect choices that can be selected"
^XMB(3.9,55,2,30463,0)="""^DD"",36,36,.13,21,11,0)"
^XMB(3.9,55,2,30464,0)="when entering policy or benefit information."
^XMB(3.9,55,2,30465,0)="""^DD"",36,36,.13,""DT"")"
^XMB(3.9,55,2,30466,0)="3051117"
^XMB(3.9,55,2,30467,0)="""^DD"",36,36,.15,0)"
^XMB(3.9,55,2,30468,0)="PRESCRIPTION REFILL REV. CODE^*P399.2'^DGCR(399.2,^0;15^S DIC(""S"")=""I $P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^XMB(3.9,55,2,30469,0)="""^DD"",36,36,.15,3)"
^XMB(3.9,55,2,30470,0)="Enter revenue code to be used for Rx refills."
^XMB(3.9,55,2,30471,0)="""^DD"",36,36,.15,12)"
^XMB(3.9,55,2,30472,0)="This is the Revenue Code that will automatically be generated for this insurance company if a prescription refill is listed on this bill."
^XMB(3.9,55,2,30473,0)="""^DD"",36,36,.15,12.1)"
^XMB(3.9,55,2,30474,0)="S DIC(""S"")=""I $P(^(0),U,3)"""
^XMB(3.9,55,2,30475,0)="""^DD"",36,36,.15,21,0)"
^XMB(3.9,55,2,30476,0)="^^3^3^3051117^"
^XMB(3.9,55,2,30477,0)="""^DD"",36,36,.15,21,1,0)"
^XMB(3.9,55,2,30478,0)="This is the Revenue Code that will automatically be generated"
^XMB(3.9,55,2,30479,0)="""^DD"",36,36,.15,21,2,0)"
^XMB(3.9,55,2,30480,0)="for this insurance company if a prescription refill is listed"
^XMB(3.9,55,2,30481,0)="""^DD"",36,36,.15,21,3,0)"
^XMB(3.9,55,2,30482,0)="on this bill."
^XMB(3.9,55,2,30483,0)="""^DD"",36,36,.15,""DT"")"
^XMB(3.9,55,2,30484,0)="3051117"
^XMB(3.9,55,2,30485,0)="""^DD"",36,36,3.01,0)"
^XMB(3.9,55,2,30486,0)="TRANSMIT ELECTRONICALLY^SX^0:NO;1:YES-LIVE;2:YES-TEST;^3;1^K:'$$EDIKEY^IBCNSC X"
^XMB(3.9,55,2,30487,0)="""^DD"",36,36,3.01,3)"
^XMB(3.9,55,2,30488,0)="Enter 1 to bill electronically; 0 to print bills for this insurance co; 2 to only transmit for testing"
^XMB(3.9,55,2,30489,0)="""^DD"",36,36,3.01,21,0)"
^XMB(3.9,55,2,30490,0)="^^2^2^2990825^^^^"
^XMB(3.9,55,2,30491,0)="""^DD"",36,36,3.01,21,1,0)"
^XMB(3.9,55,2,30492,0)="This is the flag that says whether or not an insurance company is ready"
^XMB(3.9,55,2,30493,0)="""^DD"",36,36,3.01,21,2,0)"
^XMB(3.9,55,2,30494,0)="to be billed electronically via 837/EDI functions."
^XMB(3.9,55,2,30495,0)="""^DD"",36,36,3.01,""DT"")"
^XMB(3.9,55,2,30496,0)="3060203"
^XMB(3.9,55,2,30497,0)="""^DD"",36,36,3.02,0)"
^XMB(3.9,55,2,30498,0)="EDI ID NUMBER - PROF^FX^^3;2^K:$L(X)>30!($L(X)<1) X I $D(X) K:'$$EDIKEY^IBCNSC X"
^XMB(3.9,55,2,30499,0)="""^DD"",36,36,3.02,3)"
^XMB(3.9,55,2,30500,0)="Answer must be 1-30 characters in length."
^XMB(3.9,55,2,30501,0)="""^DD"",36,36,3.02,21,0)"
^XMB(3.9,55,2,30502,0)="^^2^2^2990907^^^^"
^XMB(3.9,55,2,30503,0)="""^DD"",36,36,3.02,21,1,0)"
^XMB(3.9,55,2,30504,0)="This is the ID number used to identify the insurance company for"
^XMB(3.9,55,2,30505,0)="""^DD"",36,36,3.02,21,2,0)"
^XMB(3.9,55,2,30506,0)="professional claim transmissions."
^XMB(3.9,55,2,30507,0)="""^DD"",36,36,3.02,""DT"")"
^XMB(3.9,55,2,30508,0)="3060203"
^XMB(3.9,55,2,30509,0)="""^DD"",36,36,3.04,0)"
^XMB(3.9,55,2,30510,0)="EDI ID NUMBER - INST^FX^^3;4^K:$L(X)>30!($L(X)<1) X I $D(X) K:'$$EDIKEY^IBCNSC X"
^XMB(3.9,55,2,30511,0)="""^DD"",36,36,3.04,3)"
^XMB(3.9,55,2,30512,0)="Answer must be 1-30 characters in length."
^XMB(3.9,55,2,30513,0)="""^DD"",36,36,3.04,21,0)"
^XMB(3.9,55,2,30514,0)="^.001^2^2^3000512^^^"
^XMB(3.9,55,2,30515,0)="""^DD"",36,36,3.04,21,1,0)"
^XMB(3.9,55,2,30516,0)="This is the id number used to identify the insurance company for"
^XMB(3.9,55,2,30517,0)="""^DD"",36,36,3.04,21,2,0)"
^XMB(3.9,55,2,30518,0)="institutional claim transmissions."
^XMB(3.9,55,2,30519,0)="""^DD"",36,36,3.04,""DT"")"
^XMB(3.9,55,2,30520,0)="3060203"
^XMB(3.9,55,2,30521,0)="""^DD"",36,36,3.09,0)"
^XMB(3.9,55,2,30522,0)="ELECTRONIC INSURANCE TYPE^SX^1:HMO;2:COMMERCIAL;3:MEDICARE;4:MEDICAID;5:GROUP POLICY;9:OTHER;^3;9^K:'$$EDIKEY^IBCNSC X"
^XMB(3.9,55,2,30523,0)="""^DD"",36,36,3.09,3)"
^XMB(3.9,55,2,30524,0)="ENTER THE TYPE OF INSURANCE FOR ELECTRONIC TRANSMISSION PURPOSES"
^XMB(3.9,55,2,30525,0)="""^DD"",36,36,3.09,21,0)"
^XMB(3.9,55,2,30526,0)="^^6^6^3051117^"
^XMB(3.9,55,2,30527,0)="""^DD"",36,36,3.09,21,1,0)"
^XMB(3.9,55,2,30528,0)="This field contains the code to be used in the electronic"
^XMB(3.9,55,2,30529,0)="""^DD"",36,36,3.09,21,2,0)"
^XMB(3.9,55,2,30530,0)="transmission of claims to identify the type of insurance"
^XMB(3.9,55,2,30531,0)="""^DD"",36,36,3.09,21,3,0)"
^XMB(3.9,55,2,30532,0)="company the claim is for."
^XMB(3.9,55,2,30533,0)="""^DD"",36,36,3.09,21,4,0)"
^XMB(3.9,55,2,30534,0)="The default, if this field is blank, is Group Policy."
^XMB(3.9,55,2,30535,0)="""^DD"",36,36,3.09,21,5,0)"
^XMB(3.9,55,2,30536,0)="If you select GROUP POLICY, this will force a check in the"
^XMB(3.9,55,2,30537,0)="""^DD"",36,36,3.09,21,6,0)"
^XMB(3.9,55,2,30538,0)="GROUP insurance box of the HCFA 1500/BOX 1."
^XMB(3.9,55,2,30539,0)="""^DD"",36,36,3.09,""DT"")"
^XMB(3.9,55,2,30540,0)="3060203"
^XMB(3.9,55,2,30541,0)="""^DD"",36,36,3.13,0)"
^XMB(3.9,55,2,30542,0)="INS COMPANY LINK TYPE^SX^P:PARENT;C:CHILD;^3;13^K:$D(^DIC(36,""APC"",DA))&(X'=""P"") X K:'$$EDIKEY^IBCNSC X"
^XMB(3.9,55,2,30543,0)="""^DD"",36,36,3.13,.1)"
^XMB(3.9,55,2,30544,0)="Define Insurance Company as Parent or Child"
^XMB(3.9,55,2,30545,0)="""^DD"",36,36,3.13,1,0)"
^XMB(3.9,55,2,30546,0)="^.1"
^XMB(3.9,55,2,30547,0)="""^DD"",36,36,3.13,1,1,0)"
^XMB(3.9,55,2,30548,0)="^^TRIGGER^36^3.14"
^XMB(3.9,55,2,30549,0)="""^DD"",36,36,3.13,1,1,1)"
^XMB(3.9,55,2,30550,0)="Q"
^XMB(3.9,55,2,30551,0)="""^DD"",36,36,3.13,1,1,2)"
^XMB(3.9,55,2,30552,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DIC(36,D0,3)):^(3),1:"""") S X=$P(Y(1),U,13),X=X S X=X'=""C"" I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,3)):^(3),1:"""") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X="""" X ^DD(36,3.13,1,1,2.4)"
^XMB(3.9,55,2,30553,0)="""^DD"",36,36,3.13,1,1,2.4)"
^XMB(3.9,55,2,30554,0)="S DIH=$G(^DIC(36,DIV(0),3)),DIV=X S $P(^(3),U,14)=DIV,DIH=36,DIG=3.14 D ^DICR"
^XMB(3.9,55,2,30555,0)="""^DD"",36,36,3.13,1,1,""CREATE VALUE"")"
^XMB(3.9,55,2,30556,0)="NO EFFECT"
^XMB(3.9,55,2,30557,0)="""^DD"",36,36,3.13,1,1,""DELETE CONDITION"")"
^XMB(3.9,55,2,30558,0)="INTERNAL(INS COMPANY LINK TYPE)'=""C"""
^XMB(3.9,55,2,30559,0)="""^DD"",36,36,3.13,1,1,""DELETE VALUE"")"
^XMB(3.9,55,2,30560,0)="@"
^XMB(3.9,55,2,30561,0)="""^DD"",36,36,3.13,1,1,""DT"")"
^XMB(3.9,55,2,30562,0)="3051118"
^XMB(3.9,55,2,30563,0)="""^DD"",36,36,3.13,1,1,""FIELD"")"
^XMB(3.9,55,2,30564,0)="INS COMPANY LINK PARENT"
^XMB(3.9,55,2,30565,0)="""^DD"",36,36,3.13,3)"
^XMB(3.9,55,2,30566,0)=""
^XMB(3.9,55,2,30567,0)="""^DD"",36,36,3.13,5,1,0)"
^XMB(3.9,55,2,30568,0)="36^3.14^2"
^XMB(3.9,55,2,30569,0)="""^DD"",36,36,3.13,21,0)"
^XMB(3.9,55,2,30570,0)="^^10^10^3051114^"
^XMB(3.9,55,2,30571,0)="""^DD"",36,36,3.13,21,1,0)"
^XMB(3.9,55,2,30572,0)="This field indicates if the insurance company is identified"
^XMB(3.9,55,2,30573,0)="""^DD"",36,36,3.13,21,2,0)"
^XMB(3.9,55,2,30574,0)="as a Parent insurance company or a Child insurance company."
^XMB(3.9,55,2,30575,0)="""^DD"",36,36,3.13,21,3,0)"
^XMB(3.9,55,2,30576,0)="This linkage between parent insurance companies and children"
^XMB(3.9,55,2,30577,0)="""^DD"",36,36,3.13,21,4,0)"
^XMB(3.9,55,2,30578,0)="insurance companies allows for easier maintenance of billing"
^XMB(3.9,55,2,30579,0)="""^DD"",36,36,3.13,21,5,0)"
^XMB(3.9,55,2,30580,0)="provider secondary ID's."
^XMB(3.9,55,2,30581,0)="""^DD"",36,36,3.13,21,6,0)"
^XMB(3.9,55,2,30582,0)=" "
^XMB(3.9,55,2,30583,0)="""^DD"",36,36,3.13,21,7,0)"
^XMB(3.9,55,2,30584,0)="If this insurance company is currently defined as a Parent"
^XMB(3.9,55,2,30585,0)="""^DD"",36,36,3.13,21,8,0)"
^XMB(3.9,55,2,30586,0)="insurance company and there are Children insurance companies"
^XMB(3.9,55,2,30587,0)="""^DD"",36,36,3.13,21,9,0)"
^XMB(3.9,55,2,30588,0)="associated with it, then this field cannot be changed."
^XMB(3.9,55,2,30589,0)="""^DD"",36,36,3.13,21,10,0)"
^XMB(3.9,55,2,30590,0)="You must first disassociate the Children from the Parent."
^XMB(3.9,55,2,30591,0)="""^DD"",36,36,3.13,""DT"")"
^XMB(3.9,55,2,30592,0)="3060504"
^XMB(3.9,55,2,30593,0)="""^DD"",36,36,3.14,0)"
^XMB(3.9,55,2,30594,0)="INS COMPANY LINK PARENT^*P36'X^DIC(36,^3;14^S DIC(""S"")=""I $P($G(^DIC(36,Y,3)),U,13)=""""P"""",$P($G(^DIC(36,DA,3)),U,13)=""""C"""""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X K:'$$EDIKEY^IBCNSC X"
^XMB(3.9,55,2,30595,0)="""^DD"",36,36,3.14,.1)"
^XMB(3.9,55,2,30596,0)="Associate with which Parent Insurance Company"
^XMB(3.9,55,2,30597,0)="""^DD"",36,36,3.14,1,0)"
^XMB(3.9,55,2,30598,0)="^.1"
^XMB(3.9,55,2,30599,0)="""^DD"",36,36,3.14,1,1,0)"
^XMB(3.9,55,2,30600,0)="36^APC"
^XMB(3.9,55,2,30601,0)="""^DD"",36,36,3.14,1,1,1)"
^XMB(3.9,55,2,30602,0)="S ^DIC(36,""APC"",$E(X,1,30),DA)="""""
^XMB(3.9,55,2,30603,0)="""^DD"",36,36,3.14,1,1,2)"
^XMB(3.9,55,2,30604,0)="K ^DIC(36,""APC"",$E(X,1,30),DA)"
^XMB(3.9,55,2,30605,0)="""^DD"",36,36,3.14,1,1,""%D"",0)"
^XMB(3.9,55,2,30606,0)="^.101^1^1^3050623^^"
^XMB(3.9,55,2,30607,0)="""^DD"",36,36,3.14,1,1,""%D"",1,0)"
^XMB(3.9,55,2,30608,0)="Cross reference by Parent insurance company."
^XMB(3.9,55,2,30609,0)="""^DD"",36,36,3.14,1,1,""DT"")"
^XMB(3.9,55,2,30610,0)="3050623"
^XMB(3.9,55,2,30611,0)="""^DD"",36,36,3.14,1,2,0)"
^XMB(3.9,55,2,30612,0)="^^TRIGGER^36^3.13"
^XMB(3.9,55,2,30613,0)="""^DD"",36,36,3.14,1,2,1)"
^XMB(3.9,55,2,30614,0)="X ^DD(36,3.14,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,3)):^(3),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="""" S DIH=$G(^DIC(36,DIV(0),3)),DIV=X S $P(^(3),U,13)=DIV,DIH=36,DIG=3.13 D ^DICR"
^XMB(3.9,55,2,30615,0)="""^DD"",36,36,3.14,1,2,1.3)"
^XMB(3.9,55,2,30616,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(3)=$S($D(^DIC(36,D0,3)):^(3),1:"""") S X=Y(0),X=X S X=X="""",Y(1)=$G(X),Y(2)=$G(X) S X=$P(Y(3),U,13),X=X S X=X=""C"",Y=X,X=Y(1),X=X&Y"
^XMB(3.9,55,2,30617,0)="""^DD"",36,36,3.14,1,2,2)"
^XMB(3.9,55,2,30618,0)="X ^DD(36,3.14,1,2,2.3) I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,3)):^(3),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="""" S DIH=$G(^DIC(36,DIV(0),3)),DIV=X S $P(^(3),U,13)=DIV,DIH=36,DIG=3.13 D ^DICR"
^XMB(3.9,55,2,30619,0)="""^DD"",36,36,3.14,1,2,2.3)"
^XMB(3.9,55,2,30620,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DIC(36,D0,3)):^(3),1:"""") S X=$P(Y(1),U,14),X=X S X=X="""",Y(2)=$G(X),Y(3)=$G(X) S X=$P(Y(1),U,13),X=X S X=X=""C"",Y=X,X=Y(2),X=X&Y"
^XMB(3.9,55,2,30621,0)="""^DD"",36,36,3.14,1,2,""CREATE CONDITION"")"
^XMB(3.9,55,2,30622,0)="INTERNAL(INS COMPANY LINK PARENT)=""""&(INTERNAL(INS COMPANY LINK TYPE)=""C"")"
^XMB(3.9,55,2,30623,0)="""^DD"",36,36,3.14,1,2,""CREATE VALUE"")"
^XMB(3.9,55,2,30624,0)="@"
^XMB(3.9,55,2,30625,0)="""^DD"",36,36,3.14,1,2,""DELETE CONDITION"")"
^XMB(3.9,55,2,30626,0)="INTERNAL(INS COMPANY LINK PARENT)=""""&(INTERNAL(INS COMPANY LINK TYPE)=""C"")"
^XMB(3.9,55,2,30627,0)="""^DD"",36,36,3.14,1,2,""DELETE VALUE"")"
^XMB(3.9,55,2,30628,0)="@"
^XMB(3.9,55,2,30629,0)="""^DD"",36,36,3.14,1,2,""DT"")"
^XMB(3.9,55,2,30630,0)="3051118"
^XMB(3.9,55,2,30631,0)="""^DD"",36,36,3.14,1,2,""FIELD"")"
^XMB(3.9,55,2,30632,0)="INS COMPANY LINK TYPE"
^XMB(3.9,55,2,30633,0)="""^DD"",36,36,3.14,5,1,0)"
^XMB(3.9,55,2,30634,0)="36^3.13^1"
^XMB(3.9,55,2,30635,0)="""^DD"",36,36,3.14,12)"
^XMB(3.9,55,2,30636,0)="Only parent insurance companies may be selected."
^XMB(3.9,55,2,30637,0)="""^DD"",36,36,3.14,12.1)"
^XMB(3.9,55,2,30638,0)="S DIC(""S"")=""I $P($G(^DIC(36,Y,3)),U,13)=""""P"""",$P($G(^DIC(36,DA,3)),U,13)=""""C"""""""
^XMB(3.9,55,2,30639,0)="""^DD"",36,36,3.14,21,0)"
^XMB(3.9,55,2,30640,0)="^^4^4^3050623^"
^XMB(3.9,55,2,30641,0)="""^DD"",36,36,3.14,21,1,0)"
^XMB(3.9,55,2,30642,0)="This field identifies the parent insurance company link for"
^XMB(3.9,55,2,30643,0)="""^DD"",36,36,3.14,21,2,0)"
^XMB(3.9,55,2,30644,0)="maintenance of billing provider secondary ID's."
^XMB(3.9,55,2,30645,0)="""^DD"",36,36,3.14,21,3,0)"
^XMB(3.9,55,2,30646,0)="This field is only valid for insurance companies identified"
^XMB(3.9,55,2,30647,0)="""^DD"",36,36,3.14,21,4,0)"
^XMB(3.9,55,2,30648,0)="as children."
^XMB(3.9,55,2,30649,0)="""^DD"",36,36,3.14,""DT"")"
^XMB(3.9,55,2,30650,0)="3060504"
^XMB(3.9,55,2,30651,0)="""^DD"",36,36,4.01,0)"
^XMB(3.9,55,2,30652,0)="PERF PROV SECOND ID TYPE HCFA^*P355.97'^IBE(355.97,^4;1^S DIC(""S"")=""I $P(^(0),U,3)'=""""1A"""",$P(^(0),U,3)'=""""TJ"""",$$RAINS^IBCEPU(Y)!($$RAOWN^IBCEPU(Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^XMB(3.9,55,2,30653,0)="""^DD"",36,36,4.01,1,0)"
^XMB(3.9,55,2,30654,0)="^.1^^0"
^XMB(3.9,55,2,30655,0)="""^DD"",36,36,4.01,3)"
^XMB(3.9,55,2,30656,0)="Enter the type of performing provider id # the insurance co requires on its HCFA 1500 bills"
^XMB(3.9,55,2,30657,0)="""^DD"",36,36,4.01,12)"
^XMB(3.9,55,2,30658,0)="Must be valid id type for performing provider id"
^XMB(3.9,55,2,30659,0)="""^DD"",36,36,4.01,12.1)"
^XMB(3.9,55,2,30660,0)="S DIC(""S"")=""I $P(^(0),U,3)'=""""1A"""",$P(^(0),U,3)'=""""TJ"""",$$RAINS^IBCEPU(Y)!($$RAOWN^IBCEPU(Y))"""
^XMB(3.9,55,2,30661,0)="""^DD"",36,36,4.01,21,0)"
^XMB(3.9,55,2,30662,0)="^^5^5^3060322^"
^XMB(3.9,55,2,30663,0)="""^DD"",36,36,4.01,21,1,0)"
^XMB(3.9,55,2,30664,0)="This is the type of performing provider secondary id # that the "
^XMB(3.9,55,2,30665,0)="""^DD"",36,36,4.01,21,2,0)"
^XMB(3.9,55,2,30666,0)="insurance company expects on HCFA 1500 bills received from the "
^XMB(3.9,55,2,30667,0)="""^DD"",36,36,4.01,21,3,0)"
^XMB(3.9,55,2,30668,0)="V.A.  When the payer-specific provider id is extracted, this field"
^XMB(3.9,55,2,30669,0)="""^DD"",36,36,4.01,21,4,0)"
^XMB(3.9,55,2,30670,0)="is used to determine where to get the default data from if another"
^XMB(3.9,55,2,30671,0)="""^DD"",36,36,4.01,21,5,0)"
^XMB(3.9,55,2,30672,0)="secondary id is not entered for the claim."
^XMB(3.9,55,2,30673,0)="""^DD"",36,36,4.01,""DT"")"
^XMB(3.9,55,2,30674,0)="3060417"
^XMB(3.9,55,2,30675,0)="""^DD"",36,36,4.02,0)"
^XMB(3.9,55,2,30676,0)="PERF PROV SECOND ID TYPE UB^*P355.97'^IBE(355.97,^4;2^S DIC(""S"")=""I $P(^(0),U,3)'=""""TJ"""",$$RAINS^IBCEPU(Y)!($$RAOWN^IBCEPU(Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^XMB(3.9,55,2,30677,0)="""^DD"",36,36,4.02,3)"
^XMB(3.9,55,2,30678,0)="Enter the type of performing provider id # the insurance co requires on its UB92 bills"
^XMB(3.9,55,2,30679,0)="""^DD"",36,36,4.02,12)"
^XMB(3.9,55,2,30680,0)="Must be valid id type for performing provider id."
^XMB(3.9,55,2,30681,0)="""^DD"",36,36,4.02,12.1)"
^XMB(3.9,55,2,30682,0)="S DIC(""S"")=""I $P(^(0),U,3)'=""""TJ"""",$$RAINS^IBCEPU(Y)!($$RAOWN^IBCEPU(Y))"""
^XMB(3.9,55,2,30683,0)="""^DD"",36,36,4.02,21,0)"
^XMB(3.9,55,2,30684,0)="^^4^4^3060322^"
^XMB(3.9,55,2,30685,0)="""^DD"",36,36,4.02,21,1,0)"
^XMB(3.9,55,2,30686,0)="This is the type of performing provider id # that the insurance"
^XMB(3.9,55,2,30687,0)="""^DD"",36,36,4.02,21,2,0)"
^XMB(3.9,55,2,30688,0)="company expects on UB92 bills received from the V.A.  When the"
^XMB(3.9,55,2,30689,0)="""^DD"",36,36,4.02,21,3,0)"
^XMB(3.9,55,2,30690,0)="payer-specific provider id is extracted, this field is used to "
^XMB(3.9,55,2,30691,0)="""^DD"",36,36,4.02,21,4,0)"
^XMB(3.9,55,2,30692,0)="determine where to get the data from."
^XMB(3.9,55,2,30693,0)="""^DD"",36,36,4.02,""DT"")"
^XMB(3.9,55,2,30694,0)="3060417"
^XMB(3.9,55,2,30695,0)="""^DD"",36,36,4.04,0)"
^XMB(3.9,55,2,30696,0)="REF PROV SEC ID DEF HCFA^*P355.97'^IBE(355.97,^4;4^S DIC(""S"")=""I $P(^(0),U,3)'=""""1A"""",$$RAINS^IBCEPU(Y)!($$RAOWN^IBCEPU(Y))"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^XMB(3.9,55,2,30697,0)="""^DD"",36,36,4.04,3)"
^XMB(3.9,55,2,30698,0)="Enter the referring providers secondary ID type to be used on outgoing claims"
^XMB(3.9,55,2,30699,0)="""^DD"",36,36,4.04,5,1,0)"
^XMB(3.9,55,2,30700,0)="36^.01^2"
^XMB(3.9,55,2,30701,0)="""^DD"",36,36,4.04,12)"
^XMB(3.9,55,2,30702,0)="Must be an allowable ID for a person"
^XMB(3.9,55,2,30703,0)="""^DD"",36,36,4.04,12.1)"
^XMB(3.9,55,2,30704,0)="S DIC(""S"")=""I $P(^(0),U,3)'=""""1A"""",$$RAINS^IBCEPU(Y)!($$RAOWN^IBCEPU(Y))"""
^XMB(3.9,55,2,30705,0)="""^DD"",36,36,4.04,21,0)"
^XMB(3.9,55,2,30706,0)="^^2^2^3060322^^"
^XMB(3.9,55,2,30707,0)="""^DD"",36,36,4.04,21,1,0)"
^XMB(3.9,55,2,30708,0)="This is the default qualifier for a referring provider if there is a "
^XMB(3.9,55,2,30709,0)="""^DD"",36,36,4.04,21,2,0)"
^XMB(3.9,55,2,30710,0)="referring provider and the form type is HCFA."
^XMB(3.9,55,2,30711,0)="""^DD"",36,36,4.04,""DT"")"
^XMB(3.9,55,2,30712,0)="3060418"
^XMB(3.9,55,2,30713,0)="""^DD"",36,36,4.05,0)"
^XMB(3.9,55,2,30714,0)="REF PROV SEC ID REQ ON CLAIMS^S^1:HCFA;0:NONE;^4;5^Q"
^XMB(3.9,55,2,30715,0)="""^DD"",36,36,4.05,3)"
^XMB(3.9,55,2,30716,0)="Enter 1 if this qualifier is required on HCFA claims that have a referring provider"
^XMB(3.9,55,2,30717,0)="""^DD"",36,36,4.05,5,1,0)"
^XMB(3.9,55,2,30718,0)="36^.01^3"
^XMB(3.9,55,2,30719,0)="""^DD"",36,36,4.05,21,0)"
^XMB(3.9,55,2,30720,0)="^^4^4^3060309^"
^XMB(3.9,55,2,30721,0)="""^DD"",36,36,4.05,21,1,0)"
^XMB(3.9,55,2,30722,0)="This is a flag to determine if this qualifier is required on a HCFA.  If "
^XMB(3.9,55,2,30723,0)="""^DD"",36,36,4.05,21,2,0)"
^XMB(3.9,55,2,30724,0)="the flag is set to be required and there is a referring provider on the "
^XMB(3.9,55,2,30725,0)="""^DD"",36,36,4.05,21,3,0)"
^XMB(3.9,55,2,30726,0)="claim, then the referring provider must have the default qualifier"
^XMB(3.9,55,2,30727,0)="""^DD"",36,36,4.05,21,4,0)"
^XMB(3.9,55,2,30728,0)="defined in REF PROV SEC ID DEF HCFA."
^XMB(3.9,55,2,30729,0)="""^DD"",36,36,4.05,""DT"")"
^XMB(3.9,55,2,30730,0)="3060309"
^XMB(3.9,55,2,30731,0)="""^DD"",36,36,4.06,0)"
^XMB(3.9,55,2,30732,0)="ATT/REND ID BILL SEC ID PROF^S^0:NO;1:YES;^4;6^Q"
^XMB(3.9,55,2,30733,0)="""^DD"",36,36,4.06,.1)"
^XMB(3.9,55,2,30734,0)="For HCFA claims, use the Rendering ID as a Billing Provider secondary ID"
^XMB(3.9,55,2,30735,0)="""^DD"",36,36,4.06,3)"
^XMB(3.9,55,2,30736,0)="Enter 1 if att/rend ID should be used as Billing Provider's secondary ID for HCFA claims"
^XMB(3.9,55,2,30737,0)="""^DD"",36,36,4.06,5,1,0)"
^XMB(3.9,55,2,30738,0)="36^.01^4"
^XMB(3.9,55,2,30739,0)="""^DD"",36,36,4.06,21,0)"
^XMB(3.9,55,2,30740,0)="^^3^3^3060504^"
^XMB(3.9,55,2,30741,0)="""^DD"",36,36,4.06,21,1,0)"
^XMB(3.9,55,2,30742,0)="This flag is set for insurance companies that wish to have the "
^XMB(3.9,55,2,30743,0)="""^DD"",36,36,4.06,21,2,0)"
^XMB(3.9,55,2,30744,0)="attending/rendering provider secondary ID used as a billing provider "
^XMB(3.9,55,2,30745,0)="""^DD"",36,36,4.06,21,3,0)"
^XMB(3.9,55,2,30746,0)="secondary ID.  This applies to HCFA claims."
^XMB(3.9,55,2,30747,0)="""^DD"",36,36,4.06,""DT"")"
^XMB(3.9,55,2,30748,0)="3060504"
^XMB(3.9,55,2,30749,0)="""^DD"",36,36,4.07,0)"
^XMB(3.9,55,2,30750,0)="SEND LAB OR FAC IDS FOR VAMC^S^0:NO;1:YES;^4;7^Q"
^XMB(3.9,55,2,30751,0)="""^DD"",36,36,4.07,.1)"
^XMB(3.9,55,2,30752,0)=" "
^XMB(3.9,55,2,30753,0)="""^DD"",36,36,4.07,3)"
^XMB(3.9,55,2,30754,0)="Enter a 1 (YES) if Lab or Facility IDs should be sent for procedures performed at VAMC"
^XMB(3.9,55,2,30755,0)="""^DD"",36,36,4.07,5,1,0)"
^XMB(3.9,55,2,30756,0)="36^.01^5"
^XMB(3.9,55,2,30757,0)="""^DD"",36,36,4.07,21,0)"
^XMB(3.9,55,2,30758,0)="^^4^4^3060309^"
^XMB(3.9,55,2,30759,0)="""^DD"",36,36,4.07,21,1,0)"
^XMB(3.9,55,2,30760,0)="This flag determines whether to send the lab/facility IDs if the services "
^XMB(3.9,55,2,30761,0)="""^DD"",36,36,4.07,21,2,0)"
^XMB(3.9,55,2,30762,0)="are performed at the VAMC.  Some insurances do not which to receive them "
^XMB(3.9,55,2,30763,0)="""^DD"",36,36,4.07,21,3,0)"
^XMB(3.9,55,2,30764,0)="because they are the same as the billing provider secondary IDs when the "
^XMB(3.9,55,2,30765,0)="""^DD"",36,36,4.07,21,4,0)"
^XMB(3.9,55,2,30766,0)="work is performed at the VAMC."
^XMB(3.9,55,2,30767,0)="""^DD"",36,36,4.07,""DT"")"
^XMB(3.9,55,2,30768,0)="3060309"
^XMB(3.9,55,2,30769,0)="""^DD"",36,36,4.08,0)"
^XMB(3.9,55,2,30770,0)="ATT/REND ID BILL SEC ID INST^S^0:NO;1:YES;^4;8^Q"
^XMB(3.9,55,2,30771,0)="""^DD"",36,36,4.08,.1)"
^XMB(3.9,55,2,30772,0)="For UB claims, use the Attending ID as a Billing Provider secondary ID"
^XMB(3.9,55,2,30773,0)="""^DD"",36,36,4.08,3)"
^XMB(3.9,55,2,30774,0)="Enter 1 if att/rend ID should be used as Billing Provider's secondary ID for UB claims"
^XMB(3.9,55,2,30775,0)="""^DD"",36,36,4.08,5,1,0)"
^XMB(3.9,55,2,30776,0)="36^.01^6"
^XMB(3.9,55,2,30777,0)="""^DD"",36,36,4.08,21,0)"
^XMB(3.9,55,2,30778,0)="^^3^3^3060504^"
^XMB(3.9,55,2,30779,0)="""^DD"",36,36,4.08,21,1,0)"
^XMB(3.9,55,2,30780,0)="This flag is set for insurance companies that wish to have the"
^XMB(3.9,55,2,30781,0)="""^DD"",36,36,4.08,21,2,0)"
^XMB(3.9,55,2,30782,0)="attending/rendering provider secondary ID used as a billing provider"
^XMB(3.9,55,2,30783,0)="""^DD"",36,36,4.08,21,3,0)"
^XMB(3.9,55,2,30784,0)="secondary ID.  This applies to UB claims."
^XMB(3.9,55,2,30785,0)="""^DD"",36,36,4.08,""DT"")"
^XMB(3.9,55,2,30786,0)="3060504"
^XMB(3.9,55,2,30787,0)="""^DD"",36,36,13,0)"
^XMB(3.9,55,2,30788,0)="PLAN TYPES NO BILL PRV SEC ID^36.013SA^^13;0"
^XMB(3.9,55,2,30789,0)="""^DD"",36,36,13,21,0)"
^XMB(3.9,55,2,30790,0)="^^2^2^3060307^"
^XMB(3.9,55,2,30791,0)="""^DD"",36,36,13,21,1,0)"
^XMB(3.9,55,2,30792,0)="Enter all the Electronic plan types which will suppress Billing Provider "
^XMB(3.9,55,2,30793,0)="""^DD"",36,36,13,21,2,0)"
^XMB(3.9,55,2,30794,0)="Secondary and Additional IDs from being sent."
^XMB(3.9,55,2,30795,0)="""^DD"",36,36.013,0)"
^XMB(3.9,55,2,30796,0)="PLAN TYPES NO BILL PRV SEC ID SUB-FIELD^^.01^1"
^XMB(3.9,55,2,30797,0)="""^DD"",36,36.013,0,""DT"")"
^XMB(3.9,55,2,30798,0)="3051228"
^XMB(3.9,55,2,30799,0)="""^DD"",36,36.013,0,""IX"",""B"",36.013,.01)"
^XMB(3.9,55,2,30800,0)=""
^XMB(3.9,55,2,30801,0)="""^DD"",36,36.013,0,""NM"",""PLAN TYPES NO BILL PRV SEC ID"")"
^XMB(3.9,55,2,30802,0)=""
^XMB(3.9,55,2,30803,0)="""^DD"",36,36.013,0,""UP"")"
^XMB(3.9,55,2,30804,0)="36"
^XMB(3.9,55,2,30805,0)="""^DD"",36,36.013,.01,0)"
^XMB(3.9,55,2,30806,0)="PLAN TYPES NO BILL PRV SEC ID^MS^16:HMO MEDICARE;MX:MEDICARE A OR B;TV:TITLE V;MC:MEDICAID;BL:BC/BS;CH:TRICARE;15:INDEMNITY;CI:COMMERCIAL;HM:HMO;DS:DISABILITY;12:PPO;13:POS;ZZ:OTHER;^0;1^Q"
^XMB(3.9,55,2,30807,0)="""^DD"",36,36.013,.01,1,0)"
^XMB(3.9,55,2,30808,0)="^.1"
^XMB(3.9,55,2,30809,0)="""^DD"",36,36.013,.01,1,1,0)"
^XMB(3.9,55,2,30810,0)="36.013^B"
^XMB(3.9,55,2,30811,0)="""^DD"",36,36.013,.01,1,1,1)"
^XMB(3.9,55,2,30812,0)="S ^DIC(36,DA(1),13,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,55,2,30813,0)="""^DD"",36,36.013,.01,1,1,2)"
^XMB(3.9,55,2,30814,0)="K ^DIC(36,DA(1),13,""B"",$E(X,1,30),DA)"
^XMB(3.9,55,2,30815,0)="""^DD"",36,36.013,.01,3)"
^XMB(3.9,55,2,30816,0)="Enter all the Electronic plan types which will suppress Billing Provider Secondary and Additional IDs from being sent."
^XMB(3.9,55,2,30817,0)="""^DD"",36,36.013,.01,21,0)"
^XMB(3.9,55,2,30818,0)="^^2^2^3060309^"
^XMB(3.9,55,2,30819,0)="""^DD"",36,36.013,.01,21,1,0)"
^XMB(3.9,55,2,30820,0)="These are electronic plan types which cause the billing provider "
^XMB(3.9,55,2,30821,0)="""^DD"",36,36.013,.01,21,2,0)"
^XMB(3.9,55,2,30822,0)="secondary ids to be suppressed on the claim."
^XMB(3.9,55,2,30823,0)="""^DD"",36,36.013,.01,""DT"")"
^XMB(3.9,55,2,30824,0)="3060309"
^XMB(3.9,55,2,30825,0)="""^DD"",350.8,350.8,0)"
^XMB(3.9,55,2,30826,0)="FIELD^^10^7"
^XMB(3.9,55,2,30827,0)="""^DD"",350.8,350.8,0,""DDA"")"
^XMB(3.9,55,2,30828,0)="N"
^XMB(3.9,55,2,30829,0)="""^DD"",350.8,350.8,0,""DT"")"
^XMB(3.9,55,2,30830,0)="2930322"
^XMB(3.9,55,2,30831,0)="""^DD"",350.8,350.8,0,""ID"",.03)"
^XMB(3.9,55,2,30832,0)="W ""   "",$P(^(0),U,3)"
^XMB(3.9,55,2,30833,0)="""^DD"",350.8,350.8,0,""IX"",""AC"",350.8,.03)"
^XMB(3.9,55,2,30834,0)=""
^XMB(3.9,55,2,30835,0)="""^DD"",350.8,350.8,0,""IX"",""B"",350.8,.01)"
^XMB(3.9,55,2,30836,0)=""
^XMB(3.9,55,2,30837,0)="""^DD"",350.8,350.8,0,""IX"",""C"",350.8,.03)"
^XMB(3.9,55,2,30838,0)=""
^XMB(3.9,55,2,30839,0)="""^DD"",350.8,350.8,0,""NM"",""IB ERROR"")"
^XMB(3.9,55,2,30840,0)=" "
^XMB(3.9,55,2,30841,0)="""^DD"",350.8,350.8,0,""VRPK"")"
^XMB(3.9,55,2,30842,0)="IB"
^XMB(3.9,55,2,30843,0)="""^DD"",350.8,350.8,.01,0)"
^XMB(3.9,55,2,30844,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^XMB(3.9,55,2,30845,0)="""^DD"",350.8,350.8,.01,1,0)"
^XMB(3.9,55,2,30846,0)="^.1"
^XMB(3.9,55,2,30847,0)="""^DD"",350.8,350.8,.01,1,1,0)"
^XMB(3.9,55,2,30848,0)="350.8^B"
^XMB(3.9,55,2,30849,0)="""^DD"",350.8,350.8,.01,1,1,1)"
^XMB(3.9,55,2,30850,0)="S ^IBE(350.8,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,55,2,30851,0)="""^DD"",350.8,350.8,.01,1,1,2)"
^XMB(3.9,55,2,30852,0)="K ^IBE(350.8,""B"",$E(X,1,30),DA)"
^XMB(3.9,55,2,30853,0)="""^DD"",350.8,350.8,.01,3)"
^XMB(3.9,55,2,30854,0)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^XMB(3.9,55,2,30855,0)="""^DD"",350.8,350.8,.01,21,0)"
^XMB(3.9,55,2,30856,0)="^^2^2^2910305^^"
^XMB(3.9,55,2,30857,0)="""^DD"",350.8,350.8,.01,21,1,0)"
^XMB(3.9,55,2,30858,0)="This is a free text name of the entry.  It should be namespaced with"
^XMB(3.9,55,2,30859,0)="""^DD"",350.8,350.8,.01,21,2,0)"
^XMB(3.9,55,2,30860,0)="the namespace of the package reporting the error."
^XMB(3.9,55,2,30861,0)="""^DD"",350.8,350.8,.02,0)"
^XMB(3.9,55,2,30862,0)="ERROR MESSAGE^F^^0;2^K:$L(X)>80!($L(X)<3) X"
^XMB(3.9,55,2,30863,0)="""^DD"",350.8,350.8,.02,3)"
^XMB(3.9,55,2,30864,0)="Answer must be 3-80 characters in length."
^XMB(3.9,55,2,30865,0)="""^DD"",350.8,350.8,.02,21,0)"
^XMB(3.9,55,2,30866,0)="^^3^3^2940209^^^^"
^XMB(3.9,55,2,30867,0)="""^DD"",350.8,350.8,.02,21,1,0)"
^XMB(3.9,55,2,30868,0)="This is the text of the message as it will be displayed to a user or"
^XMB(3.9,55,2,30869,0)="""^DD"",350.8,350.8,.02,21,2,0)"
^XMB(3.9,55,2,30870,0)="posted in a bulletin.  It should be as meaningful as possible to the"
^XMB(3.9,55,2,30871,0)="""^DD"",350.8,350.8,.02,21,3,0)"
^XMB(3.9,55,2,30872,0)="person seeing the message."
^XMB(3.9,55,2,30873,0)="""^DD"",350.8,350.8,.03,0)"
^XMB(3.9,55,2,30874,0)="ERROR CODE^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<1) X"
^XMB(3.9,55,2,30875,0)="""^DD"",350.8,350.8,.03,1,0)"
^XMB(3.9,55,2,30876,0)="^.1"
^XMB(3.9,55,2,30877,0)="""^DD"",350.8,350.8,.03,1,1,0)"
^XMB(3.9,55,2,30878,0)="350.8^AC"
^XMB(3.9,55,2,30879,0)="""^DD"",350.8,350.8,.03,1,1,1)"
^XMB(3.9,55,2,30880,0)="S ^IBE(350.8,""AC"",$E(X,1,30),DA)="""""
^XMB(3.9,55,2,30881,0)="""^DD"",350.8,350.8,.03,1,1,2)"
^XMB(3.9,55,2,30882,0)="K ^IBE(350.8,""AC"",$E(X,1,30),DA)"
^XMB(3.9,55,2,30883,0)="""^DD"",350.8,350.8,.03,1,2,0)"
^XMB(3.9,55,2,30884,0)="350.8^C"
^XMB(3.9,55,2,30885,0)="""^DD"",350.8,350.8,.03,1,2,1)"
^XMB(3.9,55,2,30886,0)="S ^IBE(350.8,""C"",$E(X,1,30),DA)="""""
^XMB(3.9,55,2,30887,0)="""^DD"",350.8,350.8,.03,1,2,2)"
^XMB(3.9,55,2,30888,0)="K ^IBE(350.8,""C"",$E(X,1,30),DA)"
^XMB(3.9,55,2,30889,0)="""^DD"",350.8,350.8,.03,3)"
^XMB(3.9,55,2,30890,0)="Answer must be 1-9 characters in length."
^XMB(3.9,55,2,30891,0)="""^DD"",350.8,350.8,.03,21,0)"
^XMB(3.9,55,2,30892,0)="^^9^9^2920219^^^^"
^XMB(3.9,55,2,30893,0)="""^DD"",350.8,350.8,.03,21,1,0)"
^XMB(3.9,55,2,30894,0)="This is the error code that will be passed to or determined by"
^XMB(3.9,55,2,30895,0)="""^DD"",350.8,350.8,.03,21,2,0)"
^XMB(3.9,55,2,30896,0)="Integrated Billing.  The format for the Error Code should be"
^XMB(3.9,55,2,30897,0)="""^DD"",350.8,350.8,.03,21,3,0)"
^XMB(3.9,55,2,30898,0)="nnxxx, where nn is the reporting package namespace and xxx are numeric"
^XMB(3.9,55,2,30899,0)="""^DD"",350.8,350.8,.03,21,4,0)"
^XMB(3.9,55,2,30900,0)="values."
^XMB(3.9,55,2,30901,0)="""^DD"",350.8,350.8,.03,21,5,0)"
^XMB(3.9,55,2,30902,0)=" "
^XMB(3.9,55,2,30903,0)="""^DD"",350.8,350.8,.03,21,6,0)"
^XMB(3.9,55,2,30904,0)="This is the error code that will be passed as the second piece of"
^XMB(3.9,55,2,30905,0)="""^DD"",350.8,350.8,.03,21,7,0)"
^XMB(3.9,55,2,30906,0)="the variable Y to IB when +Y=-1.  More than one error code can be"
^XMB(3.9,55,2,30907,0)="""^DD"",350.8,350.8,.03,21,8,0)"
^XMB(3.9,55,2,30908,0)="placed in the second ^ piece of Y delimited by semi-colons.  Applications"
^XMB(3.9,55,2,30909,0)="""^DD"",350.8,350.8,.03,21,9,0)"
^XMB(3.9,55,2,30910,0)="may call ^IBAERR to display the error message(s)."
^XMB(3.9,55,2,30911,0)="""^DD"",350.8,350.8,.03,""DT"")"
^XMB(3.9,55,2,30912,0)="2920219"
^XMB(3.9,55,2,30913,0)="""^DD"",350.8,350.8,.04,0)"
^XMB(3.9,55,2,30914,0)="PACKAGE REPORTING ERROR^S^1:INTEGRATED BILLING;2:ACCOUNTS RECEIVABLE;3:PHARMACY;^0;4^Q"
^XMB(3.9,55,2,30915,0)="""^DD"",350.8,350.8,.04,21,0)"
^XMB(3.9,55,2,30916,0)="^^2^2^2920415^^^"
^XMB(3.9,55,2,30917,0)="""^DD"",350.8,350.8,.04,21,1,0)"
^XMB(3.9,55,2,30918,0)="This is the package that requested this entry in this file and will"
^XMB(3.9,55,2,30919,0)="""^DD"",350.8,350.8,.04,21,2,0)"
^XMB(3.9,55,2,30920,0)="report it to IB as an error if the conditions are detected."
^XMB(3.9,55,2,30921,0)="""^DD"",350.8,350.8,.05,0)"
^XMB(3.9,55,2,30922,0)="ERROR ACTION^S^1:DISPLAY MESSAGE;2:SEND BULLETIN;3:EDIT FILE;^0;5^Q"
^XMB(3.9,55,2,30923,0)="""^DD"",350.8,350.8,.05,21,0)"
^XMB(3.9,55,2,30924,0)="^^6^6^2910227^"
^XMB(3.9,55,2,30925,0)="""^DD"",350.8,350.8,.05,21,1,0)"
^XMB(3.9,55,2,30926,0)="This is the type of action that should be taken when this error is"
^XMB(3.9,55,2,30927,0)="""^DD"",350.8,350.8,.05,21,2,0)"
^XMB(3.9,55,2,30928,0)="reported to IB.  If action other than displaying a message is indicated"
^XMB(3.9,55,2,30929,0)="""^DD"",350.8,350.8,.05,21,3,0)"
^XMB(3.9,55,2,30930,0)="then the MUMPS code in the ERROR ACTION field will be executed."
^XMB(3.9,55,2,30931,0)="""^DD"",350.8,350.8,.05,21,4,0)"
^XMB(3.9,55,2,30932,0)=" "
^XMB(3.9,55,2,30933,0)="""^DD"",350.8,350.8,.05,21,5,0)"
^XMB(3.9,55,2,30934,0)="Currently only display actions are implemented.  Please contact the "
^XMB(3.9,55,2,30935,0)="""^DD"",350.8,350.8,.05,21,6,0)"
^XMB(3.9,55,2,30936,0)="developing ISC if other action types are desired."
^XMB(3.9,55,2,30937,0)="""^DD"",350.8,350.8,.06,0)"
^XMB(3.9,55,2,30938,0)="CORRESPONDING ALERT^P354.5'^IBE(354.5,^0;6^Q"
^XMB(3.9,55,2,30939,0)="""^DD"",350.8,350.8,.06,21,0)"
^XMB(3.9,55,2,30940,0)="^^1^1^2940209^"
^XMB(3.9,55,2,30941,0)="""^DD"",350.8,350.8,.06,21,1,0)"
^XMB(3.9,55,2,30942,0)="This is the type of alert that should be sent when this error occurs."
^XMB(3.9,55,2,30943,0)="""^DD"",350.8,350.8,.06,""DT"")"
^XMB(3.9,55,2,30944,0)="2930322"
^XMB(3.9,55,2,30945,0)="""^DD"",350.8,350.8,10,0)"
^XMB(3.9,55,2,30946,0)="EXECUTABLE LOGIC^K^^10;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^XMB(3.9,55,2,30947,0)="""^DD"",350.8,350.8,10,3)"
^XMB(3.9,55,2,30948,0)="This is Standard MUMPS code."
^XMB(3.9,55,2,30949,0)="""^DD"",350.8,350.8,10,21,0)"
^XMB(3.9,55,2,30950,0)="^^2^2^2910227^"
^XMB(3.9,55,2,30951,0)="""^DD"",350.8,350.8,10,21,1,0)"
^XMB(3.9,55,2,30952,0)="This is the MUMPS code that will be executed if an error is reported"
^XMB(3.9,55,2,30953,0)="""^DD"",350.8,350.8,10,21,2,0)"
^XMB(3.9,55,2,30954,0)="with an ERROR ACTION of other than to display a message."
^XMB(3.9,55,2,30955,0)="""^DD"",355.92,355.92,.01,0)"
^XMB(3.9,55,2,30956,0)="INSURANCE COMPANY^RP36'^DIC(36,^0;1^Q"
^XMB(3.9,55,2,30957,0)="""^DD"",355.92,355.92,.01,1,0)"
^XMB(3.9,55,2,30958,0)="^.1^^-1"
^XMB(3.9,55,2,30959,0)="""^DD"",355.92,355.92,.01,1,1,0)"
^XMB(3.9,55,2,30960,0)="355.92^B"
^XMB(3.9,55,2,30961,0)="""^DD"",355.92,355.92,.01,1,1,1)"
^XMB(3.9,55,2,30962,0)="S ^IBA(355.92,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,55,2,30963,0)="""^DD"",355.92,355.92,.01,1,1,2)"
^XMB(3.9,55,2,30964,0)="K ^IBA(355.92,""B"",$E(X,1,30),DA)"
^XMB(3.9,55,2,30965,0)="""^DD"",355.92,355.92,.01,1,2,0)"
^XMB(3.9,55,2,30966,0)="^^TRIGGER^355.92^.1"
^XMB(3.9,55,2,30967,0)="""^DD"",355.92,355.92,.01,1,2,1)"
^XMB(3.9,55,2,30968,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBA(355.92,D0,0)):^(0),1:"""") S X=$P(Y(1),U,10)="""" I X S X=DIV S Y(1)=$S($D(^IBA(355.92,D0,0)):^(0),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=""*N/A*"" X ^DD(355.92,.01,1,2,1.4)"
^XMB(3.9,55,2,30969,0)="""^DD"",355.92,355.92,.01,1,2,1.4)"
^XMB(3.9,55,2,30970,0)="S DIH=$G(^IBA(355.92,DIV(0),0)),DIV=X S $P(^(0),U,10)=DIV,DIH=355.92,DIG=.1 D ^DICR"
^XMB(3.9,55,2,30971,0)="""^DD"",355.92,355.92,.01,1,2,2)"
^XMB(3.9,55,2,30972,0)="Q"
^XMB(3.9,55,2,30973,0)="""^DD"",355.92,355.92,.01,1,2,3)"
^XMB(3.9,55,2,30974,0)="This field is trigger on a new entry to the file and can not be edited."
^XMB(3.9,55,2,30975,0)="""^DD"",355.92,355.92,.01,1,2,""CREATE CONDITION"")"
^XMB(3.9,55,2,30976,0)="INDEX VALUE CARE UNIT="""""
^XMB(3.9,55,2,30977,0)="""^DD"",355.92,355.92,.01,1,2,""CREATE VALUE"")"
^XMB(3.9,55,2,30978,0)="""*N/A*"""
^XMB(3.9,55,2,30979,0)="""^DD"",355.92,355.92,.01,1,2,""DELETE VALUE"")"
^XMB(3.9,55,2,30980,0)="NO EFFECT"
^XMB(3.9,55,2,30981,0)="""^DD"",355.92,355.92,.01,1,2,""DT"")"
^XMB(3.9,55,2,30982,0)="3051227"
^XMB(3.9,55,2,30983,0)="""^DD"",355.92,355.92,.01,1,2,""FIELD"")"
^XMB(3.9,55,2,30984,0)="INDE"
^XMB(3.9,55,2,30985,0)="""^DD"",355.92,355.92,.01,1,3,0)"
^XMB(3.9,55,2,30986,0)="^^TRIGGER^355.92^.11"
^XMB(3.9,55,2,30987,0)="""^DD"",355.92,355.92,.01,1,3,1)"
^XMB(3.9,55,2,30988,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBA(355.92,D0,0)):^(0),1:"""") S X=$P(Y(1),U,11)="""" I X S X=DIV S Y(1)=$S($D(^IBA(355.92,D0,0)):^(0),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=""*N/A*"" X ^DD(355.92,.01,1,3,1.4)"
^XMB(3.9,55,2,30989,0)="""^DD"",355.92,355.92,.01,1,3,1.4)"
^XMB(3.9,55,2,30990,0)="S DIH=$G(^IBA(355.92,DIV(0),0)),DIV=X S $P(^(0),U,11)=DIV,DIH=355.92,DIG=.11 D ^DICR"
^XMB(3.9,55,2,30991,0)="""^DD"",355.92,355.92,.01,1,3,2)"
^XMB(3.9,55,2,30992,0)="Q"
^XMB(3.9,55,2,30993,0)="""^DD"",355.92,355.92,.01,1,3,3)"
^XMB(3.9,55,2,30994,0)="This field is trigger on a new entry to the file and can not be edited."
^XMB(3.9,55,2,30995,0)="""^DD"",355.92,355.92,.01,1,3,""CREATE CONDITION"")"
^XMB(3.9,55,2,30996,0)="INDEX VALUE DIVISION="""""
^XMB(3.9,55,2,30997,0)="""^DD"",355.92,355.92,.01,1,3,""CREATE VALUE"")"
^XMB(3.9,55,2,30998,0)="""*N/A*"""
^XMB(3.9,55,2,30999,0)="""^DD"",355.92,355.92,.01,1,3,""DELETE VALUE"")"
^XMB(3.9,55,2,31000,0)="NO EFFECT"
^XMB(3.9,55,2,31001,0)="""^DD"",355.92,355.92,.01,1,3,""DT"")"
^XMB(3.9,55,2,31002,0)="3051227"
^XMB(3.9,55,2,31003,0)="""^DD"",355.92,355.92,.01,1,3,""FIELD"")"
^XMB(3.9,55,2,31004,0)="INDEX VALUE DIVISION"
^XMB(3.9,55,2,31005,0)="""^DD"",355.92,355.92,.01,3)"
^XMB(3.9,55,2,31006,0)="Enter the name of the insurance company that is providing the id."
^XMB(3.9,55,2,31007,0)="""^DD"",355.92,355.92,.01,21,0)"
^XMB(3.9,55,2,31008,0)="^^1^1^3040511^"
^XMB(3.9,55,2,31009,0)="""^DD"",355.92,355.92,.01,21,1,0)"
^XMB(3.9,55,2,31010,0)="This is the insurance company that is providing the facility id."
^XMB(3.9,55,2,31011,0)="""^DD"",355.92,355.92,.01,""DT"")"
^XMB(3.9,55,2,31012,0)="3060307"
^XMB(3.9,55,2,31013,0)="""^DD"",355.92,355.92,.03,0)"
^XMB(3.9,55,2,31014,0)="CARE UNITS^P355.95'^IBA(355.95,^0;3^Q"
^XMB(3.9,55,2,31015,0)="""^DD"",355.92,355.92,.03,1,0)"
^XMB(3.9,55,2,31016,0)="^.1"
^XMB(3.9,55,2,31017,0)="""^DD"",355.92,355.92,.03,1,1,0)"
^XMB(3.9,55,2,31018,0)="^^TRIGGER^355.92^.1"
^XMB(3.9,55,2,31019,0)="""^DD"",355.92,355.92,.03,1,1,1)"
^XMB(3.9,55,2,31020,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X I X S X=DIV S Y(1)=$S($D(^IBA(355.92,D0,0)):^(0),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(355.92,.03,1,1,1.4)"
^XMB(3.9,55,2,31021,0)="""^DD"",355.92,355.92,.03,1,1,1.4)"
^XMB(3.9,55,2,31022,0)="S DIH=$G(^IBA(355.92,DIV(0),0)),DIV=X S $P(^(0),U,10)=DIV,DIH=355.92,DIG=.1 D ^DICR"
^XMB(3.9,55,2,31023,0)="""^DD"",355.92,355.92,.03,1,1,2)"
^XMB(3.9,55,2,31024,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(355.92,D0,0)):^(0),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=""*N/A*"" S DIH=$G(^IBA(355.92,DIV(0),0)),DIV=X S $P(^(0),U,10)=DIV,DIH=355.92,DIG=.1 D ^DICR"
^XMB(3.9,55,2,31025,0)="""^DD"",355.92,355.92,.03,1,1,""CREATE CONDITION"")"
^XMB(3.9,55,2,31026,0)="INTERNAL(CARE UNITS)"
^XMB(3.9,55,2,31027,0)="""^DD"",355.92,355.92,.03,1,1,""CREATE VALUE"")"
^XMB(3.9,55,2,31028,0)="INTERNAL(CARE UNITS)"
^XMB(3.9,55,2,31029,0)="""^DD"",355.92,355.92,.03,1,1,""DELETE VALUE"")"
^XMB(3.9,55,2,31030,0)="""*N/A*"""
^XMB(3.9,55,2,31031,0)="""^DD"",355.92,355.92,.03,1,1,""FIELD"")"
^XMB(3.9,55,2,31032,0)="IND"
^XMB(3.9,55,2,31033,0)="""^DD"",355.92,355.92,.03,1,2,0)"
^XMB(3.9,55,2,31034,0)="355.92^AC"
^XMB(3.9,55,2,31035,0)="""^DD"",355.92,355.92,.03,1,2,1)"
^XMB(3.9,55,2,31036,0)="S ^IBA(355.92,""AC"",$E(X,1,30),DA)="""""
^XMB(3.9,55,2,31037,0)="""^DD"",355.92,355.92,.03,1,2,2)"
^XMB(3.9,55,2,31038,0)="K ^IBA(355.92,""AC"",$E(X,1,30),DA)"
^XMB(3.9,55,2,31039,0)="""^DD"",355.92,355.92,.03,1,2,""%D"",0)"
^XMB(3.9,55,2,31040,0)="^^2^2^3060321^"
^XMB(3.9,55,2,31041,0)="""^DD"",355.92,355.92,.03,1,2,""%D"",1,0)"
^XMB(3.9,55,2,31042,0)="This cross reference will determine whether a care unit is in use before "
^XMB(3.9,55,2,31043,0)="""^DD"",355.92,355.92,.03,1,2,""%D"",2,0)"
^XMB(3.9,55,2,31044,0)="it can be deleted"
^XMB(3.9,55,2,31045,0)="""^DD"",355.92,355.92,.03,1,2,""DT"")"
^XMB(3.9,55,2,31046,0)="3060321"
^XMB(3.9,55,2,31047,0)="""^DD"",355.92,355.92,.03,21,0)"
^XMB(3.9,55,2,31048,0)="^^2^2^3060309^"
^XMB(3.9,55,2,31049,0)="""^DD"",355.92,355.92,.03,21,1,0)"
^XMB(3.9,55,2,31050,0)="This is the care unit for which this ID is being defined.  Care Units are "
^XMB(3.9,55,2,31051,0)="""^DD"",355.92,355.92,.03,21,2,0)"
^XMB(3.9,55,2,31052,0)="only used for Billing Provider Secondary ID #2 ."
^XMB(3.9,55,2,31053,0)="""^DD"",355.92,355.92,.03,""DT"")"
^XMB(3.9,55,2,31054,0)="3060321"
^XMB(3.9,55,2,31055,0)="""^DD"",355.92,355.92,.05,0)"
^XMB(3.9,55,2,31056,0)="DIVISION^P40.8'^DG(40.8,^0;5^Q"
^XMB(3.9,55,2,31057,0)="""^DD"",355.92,355.92,.05,1,0)"
^XMB(3.9,55,2,31058,0)="^.1"
^XMB(3.9,55,2,31059,0)="""^DD"",355.92,355.92,.05,1,1,0)"
^XMB(3.9,55,2,31060,0)="^^TRIGGER^355.92^.11"
^XMB(3.9,55,2,31061,0)="""^DD"",355.92,355.92,.05,1,1,1)"
^XMB(3.9,55,2,31062,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X I X S X=DIV S Y(1)=$S($D(^IBA(355.92,D0,0)):^(0),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(355.92,.05,1,1,1.4)"
^XMB(3.9,55,2,31063,0)="""^DD"",355.92,355.92,.05,1,1,1.4)"
^XMB(3.9,55,2,31064,0)="S DIH=$G(^IBA(355.92,DIV(0),0)),DIV=X S $P(^(0),U,11)=DIV,DIH=355.92,DIG=.11 D ^DICR"
^XMB(3.9,55,2,31065,0)="""^DD"",355.92,355.92,.05,1,1,2)"
^XMB(3.9,55,2,31066,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(355.92,D0,0)):^(0),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=""*N/A*"" S DIH=$G(^IBA(355.92,DIV(0),0)),DIV=X S $P(^(0),U,11)=DIV,DIH=355.92,DIG=.11 D ^DICR"
^XMB(3.9,55,2,31067,0)="""^DD"",355.92,355.92,.05,1,1,""CREATE CONDITION"")"
^XMB(3.9,55,2,31068,0)="INTERNAL(DIVISION)"
^XMB(3.9,55,2,31069,0)="""^DD"",355.92,355.92,.05,1,1,""CREATE VALUE"")"
^XMB(3.9,55,2,31070,0)="INTERNAL(DIVISION)"
^XMB(3.9,55,2,31071,0)="""^DD"",355.92,355.92,.05,1,1,""DELETE VALUE"")"
^XMB(3.9,55,2,31072,0)="""*N/A*"""
^XMB(3.9,55,2,31073,0)="""^DD"",355.92,355.92,.05,1,1,""FIELD"")"
^XMB(3.9,55,2,31074,0)="INDEX VALUE DIVISION"
^XMB(3.9,55,2,31075,0)="""^DD"",355.92,355.92,.05,3)"
^XMB(3.9,55,2,31076,0)="Enter the specific division this id will be used for."
^XMB(3.9,55,2,31077,0)="""^DD"",355.92,355.92,.05,21,0)"
^XMB(3.9,55,2,31078,0)="^.001^1^1^3040610^^"
^XMB(3.9,55,2,31079,0)="""^DD"",355.92,355.92,.05,21,1,0)"
^XMB(3.9,55,2,31080,0)="This designates which division this id number should be used for."
^XMB(3.9,55,2,31081,0)="""^DD"",355.92,355.92,.05,""DT"")"
^XMB(3.9,55,2,31082,0)="3051227"
^XMB(3.9,55,2,31083,0)="""^DD"",355.92,355.92,.08,0)"
^XMB(3.9,55,2,31084,0)="ID TYPE FLAG^S^E:ELECTRONIC PLAN TYPE;A:ADDITIONAL IDS;LF:VA LAB/FACILITY ID;^0;8^Q"
^XMB(3.9,55,2,31085,0)="""^DD"",355.92,355.92,.08,21,0)"
^XMB(3.9,55,2,31086,0)="^^2^2^3060309^"
^XMB(3.9,55,2,31087,0)="""^DD"",355.92,355.92,.08,21,1,0)"
^XMB(3.9,55,2,31088,0)="This is the flag that enables the code to tell the 3 types of IDs in "
^XMB(3.9,55,2,31089,0)="""^DD"",355.92,355.92,.08,21,2,0)"
^XMB(3.9,55,2,31090,0)="this file apart. "
^XMB(3.9,55,2,31091,0)="""^DD"",355.92,355.92,.08,""DT"")"
^XMB(3.9,55,2,31092,0)="3060309"
^XMB(3.9,55,2,31093,0)="""^DD"",355.92,355.92,.1,0)"
^XMB(3.9,55,2,31094,0)="INDEX VALUE CARE UNIT^F^^0;10^K:$L(X)>30!($L(X)<1) X"
^XMB(3.9,55,2,31095,0)="""^DD"",355.92,355.92,.1,3)"
^XMB(3.9,55,2,31096,0)="Answer must be 1-30 characters in length"
^XMB(3.9,55,2,31097,0)="""^DD"",355.92,355.92,.1,5,1,0)"
^XMB(3.9,55,2,31098,0)="355.92^.01^2"
^XMB(3.9,55,2,31099,0)="""^DD"",355.92,355.92,.1,5,2,0)"
^XMB(3.9,55,2,31100,0)="355.92^.03^1"
^XMB(3.9,55,2,31101,0)="""^DD"",355.92,355.92,.1,9)"
^XMB(3.9,55,2,31102,0)="^"
^XMB(3.9,55,2,31103,0)="""^DD"",355.92,355.92,.1,21,0)"
^XMB(3.9,55,2,31104,0)="^^4^4^3051227^"
^XMB(3.9,55,2,31105,0)="""^DD"",355.92,355.92,.1,21,1,0)"
^XMB(3.9,55,2,31106,0)="This field contains the value for the care unit"
^XMB(3.9,55,2,31107,0)="""^DD"",355.92,355.92,.1,21,2,0)"
^XMB(3.9,55,2,31108,0)="or '*N/A*' if no care unit is selected.  "
^XMB(3.9,55,2,31109,0)="""^DD"",355.92,355.92,.1,21,3,0)"
^XMB(3.9,55,2,31110,0)="This is to assure uniqueness in the records in"
^XMB(3.9,55,2,31111,0)="""^DD"",355.92,355.92,.1,21,4,0)"
^XMB(3.9,55,2,31112,0)="the file even if the care unit is blank."
^XMB(3.9,55,2,31113,0)="""^DD"",355.92,355.92,.1,23,0)"
^XMB(3.9,55,2,31114,0)="^^1^1^3051227^"
^XMB(3.9,55,2,31115,0)="""^DD"",355.92,355.92,.1,23,1,0)"
^XMB(3.9,55,2,31116,0)="Triggered on entry of the record by the .01 field to *N/A*"
^XMB(3.9,55,2,31117,0)="""^DD"",355.92,355.92,.1,""DT"")"
^XMB(3.9,55,2,31118,0)="3051230"
^XMB(3.9,55,2,31119,0)="""^DD"",355.92,355.92,.11,0)"
^XMB(3.9,55,2,31120,0)="INDEX VALUE DIVISION^F^^0;11^K:$L(X)>30!($L(X)<1) X"
^XMB(3.9,55,2,31121,0)="""^DD"",355.92,355.92,.11,3)"
^XMB(3.9,55,2,31122,0)="Answer must be 1-30 characters in length."
^XMB(3.9,55,2,31123,0)="""^DD"",355.92,355.92,.11,5,1,0)"
^XMB(3.9,55,2,31124,0)="355.92^.01^3"
^XMB(3.9,55,2,31125,0)="""^DD"",355.92,355.92,.11,5,2,0)"
^XMB(3.9,55,2,31126,0)="355.92^.05^1"
^XMB(3.9,55,2,31127,0)="""^DD"",355.92,355.92,.11,9)"
^XMB(3.9,55,2,31128,0)="^"
^XMB(3.9,55,2,31129,0)="""^DD"",355.92,355.92,.11,21,0)"
^XMB(3.9,55,2,31130,0)="^^3^3^3051227^"
^XMB(3.9,55,2,31131,0)="""^DD"",355.92,355.92,.11,21,1,0)"
^XMB(3.9,55,2,31132,0)="This field contains the value for the division or '*N/A*' if no division"
^XMB(3.9,55,2,31133,0)="""^DD"",355.92,355.92,.11,21,2,0)"
^XMB(3.9,55,2,31134,0)="is selected.  This is to assure uniqueness in the records in the file even"
^XMB(3.9,55,2,31135,0)="""^DD"",355.92,355.92,.11,21,3,0)"
^XMB(3.9,55,2,31136,0)="if the division is blank."
^XMB(3.9,55,2,31137,0)="""^DD"",355.92,355.92,.11,23,0)"
^XMB(3.9,55,2,31138,0)="^^1^1^3051227^"
^XMB(3.9,55,2,31139,0)="""^DD"",355.92,355.92,.11,23,1,0)"
^XMB(3.9,55,2,31140,0)="Triggered on entry of the record by the .01 field to *N/A*"
^XMB(3.9,55,2,31141,0)="""^DD"",355.92,355.92,.11,""DT"")"
^XMB(3.9,55,2,31142,0)="3051230"
^XMB(3.9,55,2,31143,0)="""^DD"",355.93,355.93,.02,0)"
^XMB(3.9,55,2,31144,0)="PROVIDER TYPE^SX^1:FACILITY/GROUP;2:INDIVIDUAL;^0;2^N Z,Z0 S Z0=X,Z=$P($G(^IBA(355.93,DA,0)),U) I $S(X=1:Z["","",1:Z'["","") D EN^DDIOL($S(Z0=1:""FACILITY NAMES MUST NOT CONTAIN A COMMA"",1:""INDIVIDUAL NAMES REQUIRE LAST,FIRST MI FORMAT"")) K X"
^XMB(3.9,55,2,31145,0)="""^DD"",355.93,355.93,.02,1,0)"
^XMB(3.9,55,2,31146,0)="^.1"
^XMB(3.9,55,2,31147,0)="""^DD"",355.93,355.93,.02,1,1,0)"
^XMB(3.9,55,2,31148,0)="^^TRIGGER^355.93^.03"
^XMB(3.9,55,2,31149,0)="""^DD"",355.93,355.93,.02,1,1,1)"
^XMB(3.9,55,2,31150,0)="Q"
^XMB(3.9,55,2,31151,0)="""^DD"",355.93,355.93,.02,1,1,2)"
^XMB(3.9,55,2,31152,0)="X ^DD(355.93,.02,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^IBA(355.93,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" S DIH=$G(^IBA(355.93,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=355.93,DIG=.03 D ^DICR"
^XMB(3.9,55,2,31153,0)="""^DD"",355.93,355.93,.02,1,1,2.3)"
^XMB(3.9,55,2,31154,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(355.93,.02,0)),U,3) S X=$P($P(Y(1),$C(59)_X_"":"",2),$C(59),1),X=X S X=X=2"
^XMB(3.9,55,2,31155,0)="""^DD"",355.93,355.93,.02,1,1,3)"
^XMB(3.9,55,2,31156,0)="Do not delete"
^XMB(3.9,55,2,31157,0)="""^DD"",355.93,355.93,.02,1,1,""%D"",0)"
^XMB(3.9,55,2,31158,0)="^^2^2^3000905^"
^XMB(3.9,55,2,31159,0)="""^DD"",355.93,355.93,.02,1,1,""%D"",1,0)"
^XMB(3.9,55,2,31160,0)="This trigger deletes the value of the CREDENTIALS field if the type is no"
^XMB(3.9,55,2,31161,0)="""^DD"",355.93,355.93,.02,1,1,""%D"",2,0)"
^XMB(3.9,55,2,31162,0)="longer an individual provider type."
^XMB(3.9,55,2,31163,0)="""^DD"",355.93,355.93,.02,1,1,""CREATE VALUE"")"
^XMB(3.9,55,2,31164,0)="NO EFFECT"
^XMB(3.9,55,2,31165,0)="""^DD"",355.93,355.93,.02,1,1,""DELETE CONDITION"")"
^XMB(3.9,55,2,31166,0)="INTERNAL(OLD PROVIDER TYPE)=2"
^XMB(3.9,55,2,31167,0)="""^DD"",355.93,355.93,.02,1,1,""DELETE VALUE"")"
^XMB(3.9,55,2,31168,0)="@"
^XMB(3.9,55,2,31169,0)="""^DD"",355.93,355.93,.02,1,1,""FIELD"")"
^XMB(3.9,55,2,31170,0)="CREDENTIALS"
^XMB(3.9,55,2,31171,0)="""^DD"",355.93,355.93,.02,1,2,0)"
^XMB(3.9,55,2,31172,0)="^^TRIGGER^355.93^.04"
^XMB(3.9,55,2,31173,0)="""^DD"",355.93,355.93,.02,1,2,1)"
^XMB(3.9,55,2,31174,0)="Q"
^XMB(3.9,55,2,31175,0)="""^DD"",355.93,355.93,.02,1,2,2)"
^XMB(3.9,55,2,31176,0)="X ^DD(355.93,.02,1,2,2.3) I X S X=DIV S Y(1)=$S($D(^IBA(355.93,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" S DIH=$G(^IBA(355.93,DIV(0),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=355.93,DIG=.04 D ^DICR"
^XMB(3.9,55,2,31177,0)="""^DD"",355.93,355.93,.02,1,2,2.3)"
^XMB(3.9,55,2,31178,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(355.93,.02,0)),U,3) S X=$P($P(Y(1),$C(59)_X_"":"",2),$C(59),1),X=X S X=X=2"
^XMB(3.9,55,2,31179,0)="""^DD"",355.93,355.93,.02,1,2,3)"
^XMB(3.9,55,2,31180,0)="Do not delete"
^XMB(3.9,55,2,31181,0)="""^DD"",355.93,355.93,.02,1,2,""%D"",0)"
^XMB(3.9,55,2,31182,0)="^^2^2^3000905^"
^XMB(3.9,55,2,31183,0)="""^DD"",355.93,355.93,.02,1,2,""%D"",1,0)"
^XMB(3.9,55,2,31184,0)="This trigger deletes the value of the SPECIALTY field if the type is no"
^XMB(3.9,55,2,31185,0)="""^DD"",355.93,355.93,.02,1,2,""%D"",2,0)"
^XMB(3.9,55,2,31186,0)="longer an individual provider type."
^XMB(3.9,55,2,31187,0)="""^DD"",355.93,355.93,.02,1,2,""CREATE VALUE"")"
^XMB(3.9,55,2,31188,0)="NO EFFECT"
^XMB(3.9,55,2,31189,0)="""^DD"",355.93,355.93,.02,1,2,""DELETE CONDITION"")"
^XMB(3.9,55,2,31190,0)="INTERNAL(OLD PROVIDER TYPE)=2"
^XMB(3.9,55,2,31191,0)="""^DD"",355.93,355.93,.02,1,2,""DELETE VALUE"")"
^XMB(3.9,55,2,31192,0)="@"
^XMB(3.9,55,2,31193,0)="""^DD"",355.93,355.93,.02,1,2,""DT"")"
^XMB(3.9,55,2,31194,0)="3000905"
^XMB(3.9,55,2,31195,0)="""^DD"",355.93,355.93,.02,1,2,""FIELD"")"
^XMB(3.9,55,2,31196,0)="SPECIALTY"
^XMB(3.9,55,2,31197,0)="""^DD"",355.93,355.93,.02,1,3,0)"
^XMB(3.9,55,2,31198,0)="^^TRIGGER^355.93^.05"
^XMB(3.9,55,2,31199,0)="""^DD"",355.93,355.93,.02,1,3,1)"
^XMB(3.9,55,2,31200,0)="Q"
^XMB(3.9,55,2,31201,0)="""^DD"",355.93,355.93,.02,1,3,2)"
^XMB(3.9,55,2,31202,0)="X ^DD(355.93,.02,1,3,2.3) I X S X=DIV S Y(1)=$S($D(^IBA(355.93,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" S DIH=$G(^IBA(355.93,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=355.93,DIG=.05 D ^DICR"
^XMB(3.9,55,2,31203,0)="""^DD"",355.93,355.93,.02,1,3,2.3)"
^XMB(3.9,55,2,31204,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(355.93,.02,0)),U,3) S X=$P($P(Y(1),$C(59)_X_"":"",2),$C(59),1),X=X S X=X=1"
^XMB(3.9,55,2,31205,0)="""^DD"",355.93,355.93,.02,1,3,3)"
^XMB(3.9,55,2,31206,0)="Do not delete"
^XMB(3.9,55,2,31207,0)="""^DD"",355.93,355.93,.02,1,3,""%D"",0)"
^XMB(3.9,55,2,31208,0)="^^2^2^3000905^"
^XMB(3.9,55,2,31209,0)="""^DD"",355.93,355.93,.02,1,3,""%D"",1,0)"
^XMB(3.9,55,2,31210,0)="This trigger deletes the value of the STREET ADDRESS field if the type is"
^XMB(3.9,55,2,31211,0)="""^DD"",355.93,355.93,.02,1,3,""%D"",2,0)"
^XMB(3.9,55,2,31212,0)="no longer a facility type provider."
^XMB(3.9,55,2,31213,0)="""^DD"",355.93,355.93,.02,1,3,""CREATE VALUE"")"
^XMB(3.9,55,2,31214,0)="NO EFFECT"
^XMB(3.9,55,2,31215,0)="""^DD"",355.93,355.93,.02,1,3,""DELETE CONDITION"")"
^XMB(3.9,55,2,31216,0)="INTERNAL(OLD PROVIDER TYPE)=1"
^XMB(3.9,55,2,31217,0)="""^DD"",355.93,355.93,.02,1,3,""DELETE VALUE"")"
^XMB(3.9,55,2,31218,0)="@"
^XMB(3.9,55,2,31219,0)="""^DD"",355.93,355.93,.02,1,3,""DT"")"
^XMB(3.9,55,2,31220,0)="3000905"
^XMB(3.9,55,2,31221,0)="""^DD"",355.93,355.93,.02,1,3,""FIELD"")"
^XMB(3.9,55,2,31222,0)="STREET ADDRESS"
^XMB(3.9,55,2,31223,0)="""^DD"",355.93,355.93,.02,1,4,0)"
^XMB(3.9,55,2,31224,0)="^^TRIGGER^355.93^.06"
^XMB(3.9,55,2,31225,0)="""^DD"",355.93,355.93,.02,1,4,1)"
^XMB(3.9,55,2,31226,0)="Q"
^XMB(3.9,55,2,31227,0)="""^DD"",355.93,355.93,.02,1,4,2)"
^XMB(3.9,55,2,31228,0)="X ^DD(355.93,.02,1,4,2.3) I X S X=DIV S Y(1)=$S($D(^IBA(355.93,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="""" S DIH=$G(^IBA(355.93,DIV(0),0)),DIV=X S $P(^(0),U,6)=DIV,DIH=355.93,DIG=.06 D ^DICR"
^XMB(3.9,55,2,31229,0)="""^DD"",355.93,355.93,.02,1,4,2.3)"
^XMB(3.9,55,2,31230,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(355.93,.02,0)),U,3) S X=$P($P(Y(1),$C(59)_X_"":"",2),$C(59),1),X=X S X=X=1"
^XMB(3.9,55,2,31231,0)="""^DD"",355.93,355.93,.02,1,4,3)"
^XMB(3.9,55,2,31232,0)="Do not delete"
^XMB(3.9,55,2,31233,0)="""^DD"",355.93,355.93,.02,1,4,""%D"",0)"
^XMB(3.9,55,2,31234,0)="^^2^2^3000905^"
^XMB(3.9,55,2,31235,0)="""^DD"",355.93,355.93,.02,1,4,""%D"",1,0)"
^XMB(3.9,55,2,31236,0)="This trigger deletes the value of the CITY field if the type is no"
^XMB(3.9,55,2,31237,0)="""^DD"",355.93,355.93,.02,1,4,""%D"",2,0)"
^XMB(3.9,55,2,31238,0)="longer a facility type provider."
^XMB(3.9,55,2,31239,0)="""^DD"",355.93,355.93,.02,1,4,""CREATE VALUE"")"
^XMB(3.9,55,2,31240,0)="NO EFFECT"
^XMB(3.9,55,2,31241,0)="""^DD"",355.93,355.93,.02,1,4,""DELETE CONDITION"")"
^XMB(3.9,55,2,31242,0)="INTERNAL(OLD PROVIDER TYPE)=1"
^XMB(3.9,55,2,31243,0)="""^DD"",355.93,355.93,.02,1,4,""DELETE VALUE"")"
^XMB(3.9,55,2,31244,0)="@"
^XMB(3.9,55,2,31245,0)="""^DD"",355.93,355.93,.02,1,4,""DT"")"
^XMB(3.9,55,2,31246,0)="3000905"
^XMB(3.9,55,2,31247,0)="""^DD"",355.93,355.93,.02,1,4,""FIELD"")"
^XMB(3.9,55,2,31248,0)="CITY"
^XMB(3.9,55,2,31249,0)="""^DD"",355.93,355.93,.02,1,5,0)"
^XMB(3.9,55,2,31250,0)="^^TRIGGER^355.93^.07"
^XMB(3.9,55,2,31251,0)="""^DD"",355.93,355.93,.02,1,5,1)"
^XMB(3.9,55,2,31252,0)="Q"
^XMB(3.9,55,2,31253,0)="""^DD"",355.93,355.93,.02,1,5,2)"
^XMB(3.9,55,2,31254,0)="X ^DD(355.93,.02,1,5,2.3) I X S X=DIV S Y(1)=$S($D(^IBA(355.93,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="""" S DIH=$G(^IBA(355.93,DIV(0),0)),DIV=X S $P(^(0),U,7)=DIV,DIH=355.93,DIG=.07 D ^DICR"
^XMB(3.9,55,2,31255,0)="""^DD"",355.93,355.93,.02,1,5,2.3)"
^XMB(3.9,55,2,31256,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(355.93,.02,0)),U,3) S X=$P($P(Y(1),$C(59)_X_"":"",2),$C(59),1),X=X S X=X=1"
^XMB(3.9,55,2,31257,0)="""^DD"",355.93,355.93,.02,1,5,3)"
^XMB(3.9,55,2,31258,0)="Do not delete"
^XMB(3.9,55,2,31259,0)="""^DD"",355.93,355.93,.02,1,5,""%D"",0)"
^XMB(3.9,55,2,31260,0)="^^2^2^3000905^"
^XMB(3.9,55,2,31261,0)="""^DD"",355.93,355.93,.02,1,5,""%D"",1,0)"
^XMB(3.9,55,2,31262,0)="This trigger deletes the value of the STATE field if the type is no"
^XMB(3.9,55,2,31263,0)="""^DD"",355.93,355.93,.02,1,5,""%D"",2,0)"
^XMB(3.9,55,2,31264,0)="longer a facility type provider."
^XMB(3.9,55,2,31265,0)="""^DD"",355.93,355.93,.02,1,5,""CREATE VALUE"")"
^XMB(3.9,55,2,31266,0)="NO EFFECT"
^XMB(3.9,55,2,31267,0)="""^DD"",355.93,355.93,.02,1,5,""DELETE CONDITION"")"
^XMB(3.9,55,2,31268,0)="INTERNAL(OLD PROVIDER TYPE)=1"
^XMB(3.9,55,2,31269,0)="""^DD"",355.93,355.93,.02,1,5,""DELETE VALUE"")"
^XMB(3.9,55,2,31270,0)="@"
^XMB(3.9,55,2,31271,0)="""^DD"",355.93,355.93,.02,1,5,""DT"")"
^XMB(3.9,55,2,31272,0)="3000905"
^XMB(3.9,55,2,31273,0)="""^DD"",355.93,355.93,.02,1,5,""FIELD"")"
^XMB(3.9,55,2,31274,0)="STATE"
^XMB(3.9,55,2,31275,0)="""^DD"",355.93,355.93,.02,1,6,0)"
^XMB(3.9,55,2,31276,0)="^^TRIGGER^355.93^.08"
^XMB(3.9,55,2,31277,0)="""^DD"",355.93,355.93,.02,1,6,1)"
^XMB(3.9,55,2,31278,0)="Q"
^XMB(3.9,55,2,31279,0)="""^DD"",355.93,355.93,.02,1,6,2)"
^XMB(3.9,55,2,31280,0)="X ^DD(355.93,.02,1,6,2.3) I X S X=DIV S Y(1)=$S($D(^IBA(355.93,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="""" S DIH=$G(^IBA(355.93,DIV(0),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=355.93,DIG=.08 D ^DICR"
^XMB(3.9,55,2,31281,0)="""^DD"",355.93,355.93,.02,1,6,2.3)"
^XMB(3.9,55,2,31282,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(355.93,.02,0)),U,3) S X=$P($P(Y(1),$C(59)_X_"":"",2),$C(59),1),X=X S X=X=1"
^XMB(3.9,55,2,31283,0)="""^DD"",355.93,355.93,.02,1,6,3)"
^XMB(3.9,55,2,31284,0)="Do not delete"
^XMB(3.9,55,2,31285,0)="""^DD"",355.93,355.93,.02,1,6,""%D"",0)"
^XMB(3.9,55,2,31286,0)="^^2^2^3000905^"
^XMB(3.9,55,2,31287,0)="""^DD"",355.93,355.93,.02,1,6,""%D"",1,0)"
^XMB(3.9,55,2,31288,0)="This trigger deletes the value of the ZIP CODE field if the type is no"
^XMB(3.9,55,2,31289,0)="""^DD"",355.93,355.93,.02,1,6,""%D"",2,0)"
^XMB(3.9,55,2,31290,0)="longer a facility type provider."
^XMB(3.9,55,2,31291,0)="""^DD"",355.93,355.93,.02,1,6,""CREATE VALUE"")"
^XMB(3.9,55,2,31292,0)="NO EFFECT"
^XMB(3.9,55,2,31293,0)="""^DD"",355.93,355.93,.02,1,6,""DELETE CONDITION"")"
^XMB(3.9,55,2,31294,0)="INTERNAL(OLD PROVIDER TYPE)=1"
^XMB(3.9,55,2,31295,0)="""^DD"",355.93,355.93,.02,1,6,""DELETE VALUE"")"
^XMB(3.9,55,2,31296,0)="@"
^XMB(3.9,55,2,31297,0)="""^DD"",355.93,355.93,.02,1,6,""DT"")"
^XMB(3.9,55,2,31298,0)="3000905"
^XMB(3.9,55,2,31299,0)="""^DD"",355.93,355.93,.02,1,6,""FIELD"")"
^XMB(3.9,55,2,31300,0)="ZIP CODE"
^XMB(3.9,55,2,31301,0)="""^DD"",355.93,355.93,.02,1,7,0)"
^XMB(3.9,55,2,31302,0)="^^TRIGGER^355.93^.09"
^XMB(3.9,55,2,31303,0)="""^DD"",355.93,355.93,.02,1,7,1)"
^XMB(3.9,55,2,31304,0)="Q"
^XMB(3.9,55,2,31305,0)="""^DD"",355.93,355.93,.02,1,7,2)"
^XMB(3.9,55,2,31306,0)="X ^DD(355.93,.02,1,7,2.3) I X S X=DIV S Y(1)=$S($D(^IBA(355.93,D0,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="""" S DIH=$G(^IBA(355.93,DIV(0),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=355.93,DIG=.09 D ^DICR"
^XMB(3.9,55,2,31307,0)="""^DD"",355.93,355.93,.02,1,7,2.3)"
^XMB(3.9,55,2,31308,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(355.93,.02,0)),U,3) S X=$P($P(Y(1),$C(59)_X_"":"",2),$C(59),1),X=X S X=X=1"
^XMB(3.9,55,2,31309,0)="""^DD"",355.93,355.93,.02,1,7,3)"
^XMB(3.9,55,2,31310,0)="Do not delete"
^XMB(3.9,55,2,31311,0)="""^DD"",355.93,355.93,.02,1,7,""%D"",0)"
^XMB(3.9,55,2,31312,0)="^^2^2^3000905^"
^XMB(3.9,55,2,31313,0)="""^DD"",355.93,355.93,.02,1,7,""%D"",1,0)"
^XMB(3.9,55,2,31314,0)="This trigger deletes the value of the FACILITY DEFAULT ID NUMBER field"
^XMB(3.9,55,2,31315,0)="""^DD"",355.93,355.93,.02,1,7,""%D"",2,0)"
^XMB(3.9,55,2,31316,0)="if the type is no longer a facility type provider."
^XMB(3.9,55,2,31317,0)="""^DD"",355.93,355.93,.02,1,7,""CREATE VALUE"")"
^XMB(3.9,55,2,31318,0)="NO EFFECT"
^XMB(3.9,55,2,31319,0)="""^DD"",355.93,355.93,.02,1,7,""DELETE CONDITION"")"
^XMB(3.9,55,2,31320,0)="INTERNAL(OLD PROVIDER TYPE)=1"
^XMB(3.9,55,2,31321,0)="""^DD"",355.93,355.93,.02,1,7,""DELETE VALUE"")"
^XMB(3.9,55,2,31322,0)="@"
^XMB(3.9,55,2,31323,0)="""^DD"",355.93,355.93,.02,1,7,""DT"")"
^XMB(3.9,55,2,31324,0)="3000905"
^XMB(3.9,55,2,31325,0)="""^DD"",355.93,355.93,.02,1,7,""FIELD"")"
^XMB(3.9,55,2,31326,0)="FACILITY DEFAULT ID NUMBER"
^XMB(3.9,55,2,31327,0)="""^DD"",355.93,355.93,.02,1,8,0)"
^XMB(3.9,55,2,31328,0)="^^TRIGGER^355.93^.13"
^XMB(3.9,55,2,31329,0)="""^DD"",355.93,355.93,.02,1,8,1)"
^XMB(3.9,55,2,31330,0)="X ^DD(355.93,.02,1,8,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(355.93,D0,0)):^(0),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=""16"" S DIH=$G(^IBA(355.93,DIV(0),0)),DIV=X S $P(^(0),U,13)=DIV,DIH=355.93,DIG=.13 D ^DICR"
^XMB(3.9,55,2,31331,0)="""^DD"",355.93,355.93,.02,1,8,1.3)"
^XMB(3.9,55,2,31332,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$S($D(^IBA(355.93,D0,0)):^(0),1:"""") S X=Y(0),X=X S X=X=""1"",Y(1)=$G(X) S X=$P(Y(2),U,9)]"""",Y=X,X=Y(1),X=X&Y"
^XMB(3.9,55,2,31333,0)="""^DD"",355.93,355.93,.02,1,8,2)"
^XMB(3.9,55,2,31334,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(355.93,D0,0)):^(0),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="""" S DIH=$G(^IBA(355.93,DIV(0),0)),DIV=X S $P(^(0),U,13)=DIV,DIH=355.93,DIG=.13 D ^DICR"
^XMB(3.9,55,2,31335,0)="""^DD"",355.93,355.93,.02,1,8,""CREATE CONDITION"")"
^XMB(3.9,55,2,31336,0)="INTERNAL(PROVIDER TYPE)=""1""&(FACILITY DEFAULT ID NUMBER]"""")"
^XMB(3.9,55,2,31337,0)="""^DD"",355.93,355.93,.02,1,8,""CREATE VALUE"")"
^XMB(3.9,55,2,31338,0)="""16"""
^XMB(3.9,55,2,31339,0)="""^DD"",355.93,355.93,.02,1,8,""DELETE VALUE"")"
^XMB(3.9,55,2,31340,0)="@"
^XMB(3.9,55,2,31341,0)="""^DD"",355.93,355.93,.02,1,8,""DT"")"
^XMB(3.9,55,2,31342,0)="3060314"
^XMB(3.9,55,2,31343,0)="""^DD"",355.93,355.93,.02,1,8,""FIELD"")"
^XMB(3.9,55,2,31344,0)="PRIMARY ID QUALIFIER"
^XMB(3.9,55,2,31345,0)="""^DD"",355.93,355.93,.02,3)"
^XMB(3.9,55,2,31346,0)="Enter 1 or 2 to designate this entry as a facility or an individual."
^XMB(3.9,55,2,31347,0)="""^DD"",355.93,355.93,.02,5,1,0)"
^XMB(3.9,55,2,31348,0)="355.93^.01^2"
^XMB(3.9,55,2,31349,0)="""^DD"",355.93,355.93,.02,5,2,0)"
^XMB(3.9,55,2,31350,0)="355.93^.01^3"
^XMB(3.9,55,2,31351,0)="""^DD"",355.93,355.93,.02,21,0)"
^XMB(3.9,55,2,31352,0)="^.001^9^9^3040518^^^^"
^XMB(3.9,55,2,31353,0)="""^DD"",355.93,355.93,.02,21,1,0)"
^XMB(3.9,55,2,31354,0)="This field identifies the type of provider being defined.  Facility"
^XMB(3.9,55,2,31355,0)="""^DD"",355.93,355.93,.02,21,2,0)"
^XMB(3.9,55,2,31356,0)="providers can be used to fill in the name and address of the non-VA"
^XMB(3.9,55,2,31357,0)="""^DD"",355.93,355.93,.02,21,3,0)"
^XMB(3.9,55,2,31358,0)="facility where services were rendered (box 32 on the HCFA 1500).  An"
^XMB(3.9,55,2,31359,0)="""^DD"",355.93,355.93,.02,21,4,0)"
^XMB(3.9,55,2,31360,0)="individual provider can be selected as the rendering, attending,"
^XMB(3.9,55,2,31361,0)="""^DD"",355.93,355.93,.02,21,5,0)"
^XMB(3.9,55,2,31362,0)="referring or operating provider on a bill."
^XMB(3.9,55,2,31363,0)="""^DD"",355.93,355.93,.02,21,6,0)"
^XMB(3.9,55,2,31364,0)=" "
^XMB(3.9,55,2,31365,0)="""^DD"",355.93,355.93,.02,21,7,0)"
^XMB(3.9,55,2,31366,0)="For name standarization purposes, individual provider names must be"
^XMB(3.9,55,2,31367,0)="""^DD"",355.93,355.93,.02,21,8,0)"
^XMB(3.9,55,2,31368,0)="entered in LAST,FIRST MIDDLE format and facility names must not contain"
^XMB(3.9,55,2,31369,0)="""^DD"",355.93,355.93,.02,21,9,0)"
^XMB(3.9,55,2,31370,0)="a comma."
^XMB(3.9,55,2,31371,0)="""^DD"",355.93,355.93,.02,""DT"")"
^XMB(3.9,55,2,31372,0)="3060314"
^XMB(3.9,55,2,31373,0)="""^DD"",355.93,355.93,.09,0)"
^XMB(3.9,55,2,31374,0)="FACILITY DEFAULT ID NUMBER^FX^^0;9^K:$L(X)>10!($L(X)<1) X I $D(X),$P($G(^IBA(355.93,DA,0)),U,2)'=1 K X"
^XMB(3.9,55,2,31375,0)="""^DD"",355.93,355.93,.09,1,0)"
^XMB(3.9,55,2,31376,0)="^.1^^-1"
^XMB(3.9,55,2,31377,0)="""^DD"",355.93,355.93,.09,1,1,0)"
^XMB(3.9,55,2,31378,0)="^^TRIGGER^355.93^.13"
^XMB(3.9,55,2,31379,0)="""^DD"",355.93,355.93,.09,1,1,1)"
^XMB(3.9,55,2,31380,0)="X ^DD(355.93,.09,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(355.93,D0,0)):^(0),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=""16"" S DIH=$G(^IBA(355.93,DIV(0),0)),DIV=X S $P(^(0),U,13)=DIV,DIH=355.93,DIG=.13 D ^DICR"
^XMB(3.9,55,2,31381,0)="""^DD"",355.93,355.93,.09,1,1,1.3)"
^XMB(3.9,55,2,31382,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBA(355.93,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S X=X=""1"",Y(2)=$G(X) S X=Y(0)]"""",Y=X,X=Y(2),X=X&Y"
^XMB(3.9,55,2,31383,0)="""^DD"",355.93,355.93,.09,1,1,2)"
^XMB(3.9,55,2,31384,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(355.93,D0,0)):^(0),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="""" S DIH=$G(^IBA(355.93,DIV(0),0)),DIV=X S $P(^(0),U,13)=DIV,DIH=355.93,DIG=.13 D ^DICR"
^XMB(3.9,55,2,31385,0)="""^DD"",355.93,355.93,.09,1,1,""CREATE CONDITION"")"
^XMB(3.9,55,2,31386,0)="INTERNAL(PROVIDER TYPE)=""1""&(FACILITY DEFAULT ID NUMBER]"""")"
^XMB(3.9,55,2,31387,0)="""^DD"",355.93,355.93,.09,1,1,""CREATE VALUE"")"
^XMB(3.9,55,2,31388,0)="""16"""
^XMB(3.9,55,2,31389,0)="""^DD"",355.93,355.93,.09,1,1,""DELETE VALUE"")"
^XMB(3.9,55,2,31390,0)="@"
^XMB(3.9,55,2,31391,0)="""^DD"",355.93,355.93,.09,1,1,""DT"")"
^XMB(3.9,55,2,31392,0)="3060314"
^XMB(3.9,55,2,31393,0)="""^DD"",355.93,355.93,.09,1,1,""FIELD"")"
^XMB(3.9,55,2,31394,0)="PRIMARY ID QUALIFIER"
^XMB(3.9,55,2,31395,0)="""^DD"",355.93,355.93,.09,3)"
^XMB(3.9,55,2,31396,0)="Enter the Federal Tax ID of the outside facility."
^XMB(3.9,55,2,31397,0)="""^DD"",355.93,355.93,.09,5,1,0)"
^XMB(3.9,55,2,31398,0)="355.93^.02^7"
^XMB(3.9,55,2,31399,0)="""^DD"",355.93,355.93,.09,21,0)"
^XMB(3.9,55,2,31400,0)="^^1^1^3060322^"
^XMB(3.9,55,2,31401,0)="""^DD"",355.93,355.93,.09,21,1,0)"
^XMB(3.9,55,2,31402,0)="Enter the Federal Tax ID of the outside facility."
^XMB(3.9,55,2,31403,0)="""^DD"",355.93,355.93,.09,""DT"")"
^XMB(3.9,55,2,31404,0)="3060328"
^XMB(3.9,55,2,31405,0)="""^DD"",355.93,355.93,.13,0)"
^XMB(3.9,55,2,31406,0)="PRIMARY ID QUALIFIER^*P355.97'^IBE(355.97,^0;13^S DIC(""S"")=""I $P($G(^(1)),U,4)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^XMB(3.9,55,2,31407,0)="""^DD"",355.93,355.93,.13,3)"
^XMB(3.9,55,2,31408,0)="The only Qualifier allowed is the TAX ID."
^XMB(3.9,55,2,31409,0)="""^DD"",355.93,355.93,.13,5,1,0)"
^XMB(3.9,55,2,31410,0)="355.93^.09^1"
^XMB(3.9,55,2,31411,0)="""^DD"",355.93,355.93,.13,5,2,0)"
^XMB(3.9,55,2,31412,0)="355.93^.02^8"
^XMB(3.9,55,2,31413,0)="""^DD"",355.93,355.93,.13,12)"
^XMB(3.9,55,2,31414,0)="Only TAX ID allowed"
^XMB(3.9,55,2,31415,0)="""^DD"",355.93,355.93,.13,12.1)"
^XMB(3.9,55,2,31416,0)="S DIC(""S"")=""I $P($G(^(1)),U,4)"""
^XMB(3.9,55,2,31417,0)="""^DD"",355.93,355.93,.13,21,0)"
^XMB(3.9,55,2,31418,0)="^^1^1^3060309^"
^XMB(3.9,55,2,31419,0)="""^DD"",355.93,355.93,.13,21,1,0)"
^XMB(3.9,55,2,31420,0)="This is the Qualifier associated with the FACILITY DEFAULT ID NUMBER. "
^XMB(3.9,55,2,31421,0)="""^DD"",355.93,355.93,.13,""DT"")"
^XMB(3.9,55,2,31422,0)="3060309"
^XMB(3.9,55,2,31423,0)="""^DD"",355.93,355.93,.15,0)"
^XMB(3.9,55,2,31424,0)="MAMMOGRAPHY CERTIFICATION #^F^^0;15^K:$L(X)>15!($L(X)<3) X"
^XMB(3.9,55,2,31425,0)="""^DD"",355.93,355.93,.15,3)"
^XMB(3.9,55,2,31426,0)="Enter the Mammography Certification Number for this facility.   Must be 3-15 characters."
^XMB(3.9,55,2,31427,0)="""^DD"",355.93,355.93,.15,21,0)"
^XMB(3.9,55,2,31428,0)="^^3^3^3060309^"
^XMB(3.9,55,2,31429,0)="""^DD"",355.93,355.93,.15,21,1,0)"
^XMB(3.9,55,2,31430,0)="This is the mammography certification number for the non-VA facility which"
^XMB(3.9,55,2,31431,0)="""^DD"",355.93,355.93,.15,21,2,0)"
^XMB(3.9,55,2,31432,0)="is used as a default on the claim when mammography services are performed."
^XMB(3.9,55,2,31433,0)="""^DD"",355.93,355.93,.15,21,3,0)"
^XMB(3.9,55,2,31434,0)="It is required by some insurance companies."
^XMB(3.9,55,2,31435,0)="""^DD"",355.93,355.93,.15,""DT"")"
^XMB(3.9,55,2,31436,0)="3060309"
^XMB(3.9,55,2,31437,0)="""^DD"",355.95,355.95,.04,0)"
^XMB(3.9,55,2,31438,0)="DIVISION^P40.8'^DG(40.8,^0;4^Q"
^XMB(3.9,55,2,31439,0)="""^DD"",355.95,355.95,.04,1,0)"
^XMB(3.9,55,2,31440,0)="^.1^^0"
^XMB(3.9,55,2,31441,0)="""^DD"",355.95,355.95,.04,3)"
^XMB(3.9,55,2,31442,0)="Enter the Division that this Care Unit is associated with."
^XMB(3.9,55,2,31443,0)="""^DD"",355.95,355.95,.04,21,0)"
^XMB(3.9,55,2,31444,0)="^^4^4^3060309^"
^XMB(3.9,55,2,31445,0)="""^DD"",355.95,355.95,.04,21,1,0)"
^XMB(3.9,55,2,31446,0)="This is the division for which the care unit is being defined for this "
^XMB(3.9,55,2,31447,0)="""^DD"",355.95,355.95,.04,21,2,0)"
^XMB(3.9,55,2,31448,0)="insurance company.  Entries with divisions are for billing provider "
^XMB(3.9,55,2,31449,0)="""^DD"",355.95,355.95,.04,21,3,0)"
^XMB(3.9,55,2,31450,0)="secondary IDs while those with out divisions are used for people providers"
^XMB(3.9,55,2,31451,0)="""^DD"",355.95,355.95,.04,21,4,0)"
^XMB(3.9,55,2,31452,0)="(rendering/attending, referring, etc)   "
^XMB(3.9,55,2,31453,0)="""^DD"",355.95,355.95,.04,""DT"")"
^XMB(3.9,55,2,31454,0)="3060309"
^XMB(3.9,55,2,31455,0)="""^DD"",355.96,355.96,.06,0)"
^XMB(3.9,55,2,31456,0)="ID TYPE^R*P355.97'^IBE(355.97,^0;6^S DIC(""S"")=""I $$RAINS^IBCEPU(Y)"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^XMB(3.9,55,2,31457,0)="""^DD"",355.96,355.96,.06,1,0)"
^XMB(3.9,55,2,31458,0)="^.1"
^XMB(3.9,55,2,31459,0)="""^DD"",355.96,355.96,.06,1,1,0)"
^XMB(3.9,55,2,31460,0)="355.96^C"
^XMB(3.9,55,2,31461,0)="""^DD"",355.96,355.96,.06,1,1,1)"
^XMB(3.9,55,2,31462,0)="S ^IBA(355.96,""C"",$E(X,1,30),DA)="""""
^XMB(3.9,55,2,31463,0)="""^DD"",355.96,355.96,.06,1,1,2)"
^XMB(3.9,55,2,31464,0)="K ^IBA(355.96,""C"",$E(X,1,30),DA)"
^XMB(3.9,55,2,31465,0)="""^DD"",355.96,355.96,.06,1,1,3)"
^XMB(3.9,55,2,31466,0)="Do not delete"
^XMB(3.9,55,2,31467,0)="""^DD"",355.96,355.96,.06,1,1,""%D"",0)"
^XMB(3.9,55,2,31468,0)="^^1^1^3000928^"
^XMB(3.9,55,2,31469,0)="""^DD"",355.96,355.96,.06,1,1,""%D"",1,0)"
^XMB(3.9,55,2,31470,0)="Allow lookup by provider id type"
^XMB(3.9,55,2,31471,0)="""^DD"",355.96,355.96,.06,1,1,""DT"")"
^XMB(3.9,55,2,31472,0)="3000928"
^XMB(3.9,55,2,31473,0)="""^DD"",355.96,355.96,.06,3)"
^XMB(3.9,55,2,31474,0)="Enter the provider id type that this care unit is to apply to."
^XMB(3.9,55,2,31475,0)="""^DD"",355.96,355.96,.06,12)"
^XMB(3.9,55,2,31476,0)="Must be for a type that includes insurance co"
^XMB(3.9,55,2,31477,0)="""^DD"",355.96,355.96,.06,12.1)"
^XMB(3.9,55,2,31478,0)="S DIC(""S"")=""I $$RAINS^IBCEPU(Y)"""
^XMB(3.9,55,2,31479,0)="""^DD"",355.96,355.96,.06,21,0)"
^XMB(3.9,55,2,31480,0)="^.001^2^2^3000911^^"
^XMB(3.9,55,2,31481,0)="""^DD"",355.96,355.96,.06,21,1,0)"
^XMB(3.9,55,2,31482,0)="This is the type of provider ID that the set of care unit is being"
^XMB(3.9,55,2,31483,0)="""^DD"",355.96,355.96,.06,21,2,0)"
^XMB(3.9,55,2,31484,0)="defined for."
^XMB(3.9,55,2,31485,0)="""^DD"",355.96,355.96,.06,""DT"")"
^XMB(3.9,55,2,31486,0)="3060418"
^XMB(3.9,55,2,31487,0)="""^DD"",355.97,355.97,.03,0)"
^XMB(3.9,55,2,31488,0)="X12 CODE^F^^0;3^K:$L(X)>2!($L(X)<1) X"
^XMB(3.9,55,2,31489,0)="""^DD"",355.97,355.97,.03,1,0)"
^XMB(3.9,55,2,31490,0)="^.1"
^XMB(3.9,55,2,31491,0)="""^DD"",355.97,355.97,.03,1,1,0)"
^XMB(3.9,55,2,31492,0)="355.97^C"
^XMB(3.9,55,2,31493,0)="""^DD"",355.97,355.97,.03,1,1,1)"
^XMB(3.9,55,2,31494,0)="S ^IBE(355.97,""C"",$E(X,1,30),DA)="""""
^XMB(3.9,55,2,31495,0)="""^DD"",355.97,355.97,.03,1,1,2)"
^XMB(3.9,55,2,31496,0)="K ^IBE(355.97,""C"",$E(X,1,30),DA)"
^XMB(3.9,55,2,31497,0)="""^DD"",355.97,355.97,.03,1,1,""DT"")"
^XMB(3.9,55,2,31498,0)="3051208"
^XMB(3.9,55,2,31499,0)="""^DD"",355.97,355.97,.03,3)"
^XMB(3.9,55,2,31500,0)="Answer must be 1-2 characters in length."
^XMB(3.9,55,2,31501,0)="""^DD"",355.97,355.97,.03,21,0)"
^XMB(3.9,55,2,31502,0)="^^2^2^3000831^"
^XMB(3.9,55,2,31503,0)="""^DD"",355.97,355.97,.03,21,1,0)"
^XMB(3.9,55,2,31504,0)="This is the X12 code that determines the qualifier to be output in the"
^XMB(3.9,55,2,31505,0)="""^DD"",355.97,355.97,.03,21,2,0)"
^XMB(3.9,55,2,31506,0)="X12 data stream when reporting this type of provider ID number."
^XMB(3.9,55,2,31507,0)="""^DD"",355.97,355.97,.03,""DT"")"
^XMB(3.9,55,2,31508,0)="3051208"
^XMB(3.9,55,2,31509,0)="""^DD"",355.97,355.97,.07,0)"
^XMB(3.9,55,2,31510,0)="ALLOWABLE FORM TYPE^S^I:INSTITUTIONAL;P:PROFESSIONAL;B:BOTH INSTITUTIONAL AND PROFESSIONAL;^0;7^Q"
^XMB(3.9,55,2,31511,0)="""^DD"",355.97,355.97,.07,3)"
^XMB(3.9,55,2,31512,0)="Enter I if this is used on UB type forms, P if used on CMS/HCFA type forms, or B if used on either type."
^XMB(3.9,55,2,31513,0)="""^DD"",355.97,355.97,.07,21,0)"
^XMB(3.9,55,2,31514,0)="^^2^2^3060309^"
^XMB(3.9,55,2,31515,0)="""^DD"",355.97,355.97,.07,21,1,0)"
^XMB(3.9,55,2,31516,0)="This is a flag used to determine what type of form this qualifier is "
^XMB(3.9,55,2,31517,0)="""^DD"",355.97,355.97,.07,21,2,0)"
^XMB(3.9,55,2,31518,0)="valid for.  It is used to validate provider id file set-up."
^XMB(3.9,55,2,31519,0)="""^DD"",355.97,355.97,.07,""DT"")"
^XMB(3.9,55,2,31520,0)="3060309"
^XMB(3.9,55,2,31521,0)="""^DD"",355.97,355.97,.08,0)"
^XMB(3.9,55,2,31522,0)="ACTIVE^S^1:YES;0:NO;^0;8^Q"
^XMB(3.9,55,2,31523,0)="""^DD"",355.97,355.97,.08,3)"
^XMB(3.9,55,2,31524,0)="Enter YES if this entry is Active or NO if it is In-Active"
^XMB(3.9,55,2,31525,0)="""^DD"",355.97,355.97,.08,21,0)"
^XMB(3.9,55,2,31526,0)="^^2^2^3060419^"
^XMB(3.9,55,2,31527,0)="""^DD"",355.97,355.97,.08,21,1,0)"
^XMB(3.9,55,2,31528,0)="This field must be set to YES to allow this qualifier to be selected.  Old"
^XMB(3.9,55,2,31529,0)="""^DD"",355.97,355.97,.08,21,2,0)"
^XMB(3.9,55,2,31530,0)="entries that are no longer allowed should be set to NO."
^XMB(3.9,55,2,31531,0)="""^DD"",355.97,355.97,.08,""DT"")"
^XMB(3.9,55,2,31532,0)="3060419"
^XMB(3.9,55,2,31533,0)="""^DD"",361,361,.15,0)"
^XMB(3.9,55,2,31534,0)="MESSAGE CHECKSUM^F^^0;15^K:$L(X)>18!($L(X)<1) X"
^XMB(3.9,55,2,31535,0)="""^DD"",361,361,.15,3)"
^XMB(3.9,55,2,31536,0)="Answer must be 1-18 characters in length"
^XMB(3.9,55,2,31537,0)="""^DD"",361,361,.15,21,0)"
^XMB(3.9,55,2,31538,0)="^^5^5^3050531^"
^XMB(3.9,55,2,31539,0)="""^DD"",361,361,.15,21,1,0)"
^XMB(3.9,55,2,31540,0)="This field contains the calculated checksum value of the status"
^XMB(3.9,55,2,31541,0)="""^DD"",361,361,.15,21,2,0)"
^XMB(3.9,55,2,31542,0)="message text.  It is a unique number which is mathematically"
^XMB(3.9,55,2,31543,0)="""^DD"",361,361,.15,21,3,0)"
^XMB(3.9,55,2,31544,0)="generated based on the actual data in the 277STAT flat file data"
^XMB(3.9,55,2,31545,0)="""^DD"",361,361,.15,21,4,0)"
^XMB(3.9,55,2,31546,0)="received from Austin.  This checksum value is used to eliminate"
^XMB(3.9,55,2,31547,0)="""^DD"",361,361,.15,21,5,0)"
^XMB(3.9,55,2,31548,0)="duplicate status message transmissions into VistA."
^XMB(3.9,55,2,31549,0)="""^DD"",361,361,.15,23,0)"
^XMB(3.9,55,2,31550,0)="^^1^1^3050722^"
^XMB(3.9,55,2,31551,0)="""^DD"",361,361,.15,23,1,0)"
^XMB(3.9,55,2,31552,0)="This field should never be set manually."
^XMB(3.9,55,2,31553,0)="""^DD"",361,361,.15,""DT"")"
^XMB(3.9,55,2,31554,0)="3050722"
^XMB(3.9,55,2,31555,0)="""^DD"",361,361,.16,0)"
^XMB(3.9,55,2,31556,0)="DATE LAST PRINTED VIA MCS^D^^0;16^S %DT=""EX"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,55,2,31557,0)="""^DD"",361,361,.16,3)"
^XMB(3.9,55,2,31558,0)="(No range limit on date)"
^XMB(3.9,55,2,31559,0)="""^DD"",361,361,.16,21,0)"
^XMB(3.9,55,2,31560,0)="^^2^2^3051026^"
^XMB(3.9,55,2,31561,0)="""^DD"",361,361,.16,21,1,0)"
^XMB(3.9,55,2,31562,0)="This is the date that the associated claim was most recently printed by "
^XMB(3.9,55,2,31563,0)="""^DD"",361,361,.16,21,2,0)"
^XMB(3.9,55,2,31564,0)="the MCS option - Resubmit by Print."
^XMB(3.9,55,2,31565,0)="""^DD"",361,361,.16,""DT"")"
^XMB(3.9,55,2,31566,0)="3051026"
^XMB(3.9,55,2,31567,0)="""^DD"",361.2,361.2,0)"
^XMB(3.9,55,2,31568,0)="FIELD^^.03^3"
^XMB(3.9,55,2,31569,0)="""^DD"",361.2,361.2,0,""DDA"")"
^XMB(3.9,55,2,31570,0)="N"
^XMB(3.9,55,2,31571,0)="""^DD"",361.2,361.2,0,""DT"")"
^XMB(3.9,55,2,31572,0)="3001019"
^XMB(3.9,55,2,31573,0)="""^DD"",361.2,361.2,0,""ID"",.03)"
^XMB(3.9,55,2,31574,0)="W ""   "",$P(^(0),U,3)"
^XMB(3.9,55,2,31575,0)="""^DD"",361.2,361.2,0,""IX"",""B"",361.2,.01)"
^XMB(3.9,55,2,31576,0)=""
^XMB(3.9,55,2,31577,0)="""^DD"",361.2,361.2,0,""NM"",""IB ELECTRONIC REPORT DISPOSITION"")"
^XMB(3.9,55,2,31578,0)=""
^XMB(3.9,55,2,31579,0)="""^DD"",361.2,361.2,0,""VRPK"")"
^XMB(3.9,55,2,31580,0)="IB"
^XMB(3.9,55,2,31581,0)="""^DD"",361.2,361.2,.01,0)"
^XMB(3.9,55,2,31582,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^XMB(3.9,55,2,31583,0)="""^DD"",361.2,361.2,.01,1,0)"
^XMB(3.9,55,2,31584,0)="^.1"
^XMB(3.9,55,2,31585,0)="""^DD"",361.2,361.2,.01,1,1,0)"
^XMB(3.9,55,2,31586,0)="361.2^B"
^XMB(3.9,55,2,31587,0)="""^DD"",361.2,361.2,.01,1,1,1)"
^XMB(3.9,55,2,31588,0)="S ^IBE(361.2,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,55,2,31589,0)="""^DD"",361.2,361.2,.01,1,1,2)"
^XMB(3.9,55,2,31590,0)="K ^IBE(361.2,""B"",$E(X,1,30),DA)"
^XMB(3.9,55,2,31591,0)="""^DD"",361.2,361.2,.01,3)"
^XMB(3.9,55,2,31592,0)="Answer must be 1-30 characters in length."
^XMB(3.9,55,2,31593,0)="""^DD"",361.2,361.2,.01,21,0)"
^XMB(3.9,55,2,31594,0)="^^1^1^3001019^"
^XMB(3.9,55,2,31595,0)="""^DD"",361.2,361.2,.01,21,1,0)"
^XMB(3.9,55,2,31596,0)="This is the name of the electronic billing report."
^XMB(3.9,55,2,31597,0)="""^DD"",361.2,361.2,.01,""DT"")"
^XMB(3.9,55,2,31598,0)="3001019"
^XMB(3.9,55,2,31599,0)="""^DD"",361.2,361.2,.02,0)"
^XMB(3.9,55,2,31600,0)="DISPOSITION^S^0:IGNORE THE REPORT;1:MAIL REPORT TO MAIL GROUP;^0;2^Q"
^XMB(3.9,55,2,31601,0)="""^DD"",361.2,361.2,.02,3)"
^XMB(3.9,55,2,31602,0)="Enter 0 to ignore this report, 1 to save it in a mail message"
^XMB(3.9,55,2,31603,0)="""^DD"",361.2,361.2,.02,21,0)"
^XMB(3.9,55,2,31604,0)="^.001^3^3^3001019^^"
^XMB(3.9,55,2,31605,0)="""^DD"",361.2,361.2,.02,21,1,0)"
^XMB(3.9,55,2,31606,0)="This is the indicator that tells the system what to do when it receives "
^XMB(3.9,55,2,31607,0)="""^DD"",361.2,361.2,.02,21,2,0)"
^XMB(3.9,55,2,31608,0)="an electronic message identified as this report.  It can either be"
^XMB(3.9,55,2,31609,0)="""^DD"",361.2,361.2,.02,21,3,0)"
^XMB(3.9,55,2,31610,0)="ignored or saved via a mail message to the IB EDI SUPERVISOR mail group."
^XMB(3.9,55,2,31611,0)="""^DD"",361.2,361.2,.02,""DT"")"
^XMB(3.9,55,2,31612,0)="3001019"
^XMB(3.9,55,2,31613,0)="""^DD"",361.2,361.2,.03,0)"
^XMB(3.9,55,2,31614,0)="SHORT DESCRIPTION^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^XMB(3.9,55,2,31615,0)="""^DD"",361.2,361.2,.03,3)"
^XMB(3.9,55,2,31616,0)="Answer must be 1-30 characters in length."
^XMB(3.9,55,2,31617,0)="""^DD"",361.2,361.2,.03,21,0)"
^XMB(3.9,55,2,31618,0)="^.001^2^2^3001019^^"
^XMB(3.9,55,2,31619,0)="""^DD"",361.2,361.2,.03,21,1,0)"
^XMB(3.9,55,2,31620,0)="This is the description of the report that will be displayed when the"
^XMB(3.9,55,2,31621,0)="""^DD"",361.2,361.2,.03,21,2,0)"
^XMB(3.9,55,2,31622,0)="report name is."
^XMB(3.9,55,2,31623,0)="""^DD"",361.2,361.2,.03,""DT"")"
^XMB(3.9,55,2,31624,0)="3001019"
^XMB(3.9,55,2,31625,0)="""^DD"",361.4,361.4,1,0)"
^XMB(3.9,55,2,31626,0)="TRANSMIT DATE/TIME^361.41D^^1;0"
^XMB(3.9,55,2,31627,0)="""^DD"",361.4,361.4,1,21,0)"
^XMB(3.9,55,2,31628,0)="^^2^2^3050126^"
^XMB(3.9,55,2,31629,0)="""^DD"",361.4,361.4,1,21,1,0)"
^XMB(3.9,55,2,31630,0)="This multiple contains the date/time, batch and user information for the "
^XMB(3.9,55,2,31631,0)="""^DD"",361.4,361.4,1,21,2,0)"
^XMB(3.9,55,2,31632,0)="transmission of previously transmitted claims for test purposes."
^XMB(3.9,55,2,31633,0)="""^DD"",361.4,361.41,0)"
^XMB(3.9,55,2,31634,0)="TRANSMIT DATE/TIME SUB-FIELD^^.04^4"
^XMB(3.9,55,2,31635,0)="""^DD"",361.4,361.41,0,""NM"",""TRANSMIT DATE/TIME"")"
^XMB(3.9,55,2,31636,0)=""
^XMB(3.9,55,2,31637,0)="""^DD"",361.4,361.41,.01,0)"
^XMB(3.9,55,2,31638,0)="TRANSMIT DATE/TIME^MD^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,55,2,31639,0)="""^DD"",361.4,361.41,.01,1,0)"
^XMB(3.9,55,2,31640,0)="^.1"
^XMB(3.9,55,2,31641,0)="""^DD"",361.4,361.41,.01,1,1,0)"
^XMB(3.9,55,2,31642,0)="361.41^B"
^XMB(3.9,55,2,31643,0)="""^DD"",361.4,361.41,.01,1,1,1)"
^XMB(3.9,55,2,31644,0)="S ^IBM(361.4,DA(1),1,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,55,2,31645,0)="""^DD"",361.4,361.41,.01,1,1,2)"
^XMB(3.9,55,2,31646,0)="K ^IBM(361.4,DA(1),1,""B"",$E(X,1,30),DA)"
^XMB(3.9,55,2,31647,0)="""^DD"",361.4,361.41,.01,1,2,0)"
^XMB(3.9,55,2,31648,0)="^^TRIGGER^361.4^.02"
^XMB(3.9,55,2,31649,0)="""^DD"",361.4,361.41,.01,1,2,1)"
^XMB(3.9,55,2,31650,0)="X ^DD(361.41,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^IBM(361.4,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DIV,X=$P(X,""."",1) S DIH=$G(^IBM(361.4,DIV(0),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=361.4,DIG=.02 D ^DICR"
^XMB(3.9,55,2,31651,0)="""^DD"",361.4,361.41,.01,1,2,1.3)"
^XMB(3.9,55,2,31652,0)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(0)=X S Y(1)=$S($D(^IBM(361.4,D0,0)):^(0),1:"""") S X=Y(0),X=$P(X,""."",1) S X=X>$P(Y(1),U,2)"
^XMB(3.9,55,2,31653,0)="""^DD"",361.4,361.41,.01,1,2,2)"
^XMB(3.9,55,2,31654,0)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^IBM(361.4,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$$LASTDT^IBCEPTU(.DA) X ^DD(361.41,.01,1,2,2.4)"
^XMB(3.9,55,2,31655,0)="""^DD"",361.4,361.41,.01,1,2,2.4)"
^XMB(3.9,55,2,31656,0)="S DIH=$G(^IBM(361.4,DIV(0),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=361.4,DIG=.02 D ^DICR"
^XMB(3.9,55,2,31657,0)="""^DD"",361.4,361.41,.01,1,2,""CREATE CONDITION"")"
^XMB(3.9,55,2,31658,0)="DATE(TRANSMIT DATE)>LAST TRANSMIT DATE"
^XMB(3.9,55,2,31659,0)="""^DD"",361.4,361.41,.01,1,2,""CREATE VALUE"")"
^XMB(3.9,55,2,31660,0)="DATE(TRANSMIT DATE)"
^XMB(3.9,55,2,31661,0)="""^DD"",361.4,361.41,.01,1,2,""DELETE VALUE"")"
^XMB(3.9,55,2,31662,0)="S X=$$LASTDT^IBCEPTU(.DA)"
^XMB(3.9,55,2,31663,0)="""^DD"",361.4,361.41,.01,1,2,""DIC"")"
^XMB(3.9,55,2,31664,0)=""
^XMB(3.9,55,2,31665,0)="""^DD"",361.4,361.41,.01,1,2,""DT"")"
^XMB(3.9,55,2,31666,0)="3050126"
^XMB(3.9,55,2,31667,0)="""^DD"",361.4,361.41,.01,1,2,""FIELD"")"
^XMB(3.9,55,2,31668,0)="LAST TRANSMIT DATE"
^XMB(3.9,55,2,31669,0)="""^DD"",361.4,361.41,.01,1,3,0)"
^XMB(3.9,55,2,31670,0)="361.41^ALTD^MUMPS"
^XMB(3.9,55,2,31671,0)="""^DD"",361.4,361.41,.01,1,3,1)"
^XMB(3.9,55,2,31672,0)="S ^IBM(361.4,DA(1),1,""ALTD"",X\1,DA)="""""
^XMB(3.9,55,2,31673,0)="""^DD"",361.4,361.41,.01,1,3,2)"
^XMB(3.9,55,2,31674,0)="K ^IBM(361.4,DA(1),1,""ALTD"",X\1,DA)"
^XMB(3.9,55,2,31675,0)="""^DD"",361.4,361.41,.01,1,3,3)"
^XMB(3.9,55,2,31676,0)="Do not delete"
^XMB(3.9,55,2,31677,0)="""^DD"",361.4,361.41,.01,1,3,""%D"",0)"
^XMB(3.9,55,2,31678,0)="^.101^2^2^3050128^^"
^XMB(3.9,55,2,31679,0)="""^DD"",361.4,361.41,.01,1,3,""%D"",1,0)"
^XMB(3.9,55,2,31680,0)="This xref is used to determine the last transmit date as it is date"
^XMB(3.9,55,2,31681,0)="""^DD"",361.4,361.41,.01,1,3,""%D"",2,0)"
^XMB(3.9,55,2,31682,0)="without time."
^XMB(3.9,55,2,31683,0)="""^DD"",361.4,361.41,.01,1,3,""DT"")"
^XMB(3.9,55,2,31684,0)="3050128"
^XMB(3.9,55,2,31685,0)="""^DD"",361.4,361.41,.01,1,4,0)"
^XMB(3.9,55,2,31686,0)="361.4^ATD"
^XMB(3.9,55,2,31687,0)="""^DD"",361.4,361.41,.01,1,4,1)"
^XMB(3.9,55,2,31688,0)="S ^IBM(361.4,""ATD"",$E(X,1,30),DA(1),DA)="""""
^XMB(3.9,55,2,31689,0)="""^DD"",361.4,361.41,.01,1,4,2)"
^XMB(3.9,55,2,31690,0)="K ^IBM(361.4,""ATD"",$E(X,1,30),DA(1),DA)"
^XMB(3.9,55,2,31691,0)="""^DD"",361.4,361.41,.01,1,4,""DT"")"
^XMB(3.9,55,2,31692,0)="3060118"
^XMB(3.9,55,2,31693,0)="""^DD"",361.4,361.41,.01,3)"
^XMB(3.9,55,2,31694,0)="Enter the date and time the claim was transmitted as test."
^XMB(3.9,55,2,31695,0)="""^DD"",361.4,361.41,.01,21,0)"
^XMB(3.9,55,2,31696,0)="^.001^1^1^3050126^^"
^XMB(3.9,55,2,31697,0)="""^DD"",361.4,361.41,.01,21,1,0)"
^XMB(3.9,55,2,31698,0)="This is the date and time the claim was transmitted as test."
^XMB(3.9,55,2,31699,0)="""^DD"",361.4,361.41,.01,""DT"")"
^XMB(3.9,55,2,31700,0)="3060118"
^XMB(3.9,55,2,31701,0)="""^DD"",364.5,364.5,0)"
^XMB(3.9,55,2,31702,0)="FIELD^^3^11"
^XMB(3.9,55,2,31703,0)="""^DD"",364.5,364.5,0,""DDA"")"
^XMB(3.9,55,2,31704,0)="N"
^XMB(3.9,55,2,31705,0)="""^DD"",364.5,364.5,0,""DT"")"
^XMB(3.9,55,2,31706,0)="2960311"
^XMB(3.9,55,2,31707,0)="""^DD"",364.5,364.5,0,""ID"",.05)"
^XMB(3.9,55,2,31708,0)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DIC(+$P(^(0),U,5),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^XMB(3.9,55,2,31709,0)="""^DD"",364.5,364.5,0,""IX"",""B"",364.5,.01)"
^XMB(3.9,55,2,31710,0)=""
^XMB(3.9,55,2,31711,0)="""^DD"",364.5,364.5,0,""NM"",""IB DATA ELEMENT DEFINITION"")"
^XMB(3.9,55,2,31712,0)=""
^XMB(3.9,55,2,31713,0)="""^DD"",364.5,364.5,0,""PT"",364.7,.03)"
^XMB(3.9,55,2,31714,0)=""
^XMB(3.9,55,2,31715,0)="""^DD"",364.5,364.5,0,""VRPK"")"
^XMB(3.9,55,2,31716,0)="IB"
^XMB(3.9,55,2,31717,0)="""^DD"",364.5,364.5,.01,0)"
^XMB(3.9,55,2,31718,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^XMB(3.9,55,2,31719,0)="""^DD"",364.5,364.5,.01,1,0)"
^XMB(3.9,55,2,31720,0)="^.1"
^XMB(3.9,55,2,31721,0)="""^DD"",364.5,364.5,.01,1,1,0)"
^XMB(3.9,55,2,31722,0)="364.5^B"
^XMB(3.9,55,2,31723,0)="""^DD"",364.5,364.5,.01,1,1,1)"
^XMB(3.9,55,2,31724,0)="S ^IBA(364.5,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,55,2,31725,0)="""^DD"",364.5,364.5,.01,1,1,2)"
^XMB(3.9,55,2,31726,0)="K ^IBA(364.5,""B"",$E(X,1,30),DA)"
^XMB(3.9,55,2,31727,0)="""^DD"",364.5,364.5,.01,3)"
^XMB(3.9,55,2,31728,0)="Answer must be 3-30 characters in length."
^XMB(3.9,55,2,31729,0)="""^DD"",364.5,364.5,.01,21,0)"
^XMB(3.9,55,2,31730,0)="^^1^1^2951205^"
^XMB(3.9,55,2,31731,0)="""^DD"",364.5,364.5,.01,21,1,0)"
^XMB(3.9,55,2,31732,0)="The name to be used to uniquely identify this data element."
^XMB(3.9,55,2,31733,0)="""^DD"",364.5,364.5,.01,""DT"")"
^XMB(3.9,55,2,31734,0)="2951219"
^XMB(3.9,55,2,31735,0)="""^DD"",364.5,364.5,.02,0)"
^XMB(3.9,55,2,31736,0)="SECURITY LEVEL^RS^N:NATIONAL,NO EDIT;L:LOCAL;^0;2^Q"
^XMB(3.9,55,2,31737,0)="""^DD"",364.5,364.5,.02,21,0)"
^XMB(3.9,55,2,31738,0)="^^2^2^2960215^^^^"
^XMB(3.9,55,2,31739,0)="""^DD"",364.5,364.5,.02,21,1,0)"
^XMB(3.9,55,2,31740,0)="If this field is set to N (NATIONAL,NO EDIT), this is a secured data"
^XMB(3.9,55,2,31741,0)="""^DD"",364.5,364.5,.02,21,2,0)"
^XMB(3.9,55,2,31742,0)="element and will not be allowed to be edited or deleted."
^XMB(3.9,55,2,31743,0)="""^DD"",364.5,364.5,.02,""DT"")"
^XMB(3.9,55,2,31744,0)="2960215"
^XMB(3.9,55,2,31745,0)="""^DD"",364.5,364.5,.03,0)"
^XMB(3.9,55,2,31746,0)="TYPE OF ELEMENT^RS^F:NON-MULTIPLE FILEMAN FIELD;E:EXTRACTED VIA CODE;C:CONSTANT VALUE;^0;3^Q"
^XMB(3.9,55,2,31747,0)="""^DD"",364.5,364.5,.03,1,0)"
^XMB(3.9,55,2,31748,0)="^.1"
^XMB(3.9,55,2,31749,0)="""^DD"",364.5,364.5,.03,1,1,0)"
^XMB(3.9,55,2,31750,0)="^^TRIGGER^364.5^.04"
^XMB(3.9,55,2,31751,0)="""^DD"",364.5,364.5,.03,1,1,1)"
^XMB(3.9,55,2,31752,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=""FC"",Y(1)=X S X=Y(0),X=X S Y=X,X=Y(1),X=X S X=X[Y I X S X=DIV S Y(1)=$S($D(^IBA(364.5,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=""I"" X ^DD(364.5,.03,1,1,1.4)"
^XMB(3.9,55,2,31753,0)="""^DD"",364.5,364.5,.03,1,1,1.4)"
^XMB(3.9,55,2,31754,0)="S DIH=$S($D(^IBA(364.5,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=364.5,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,55,2,31755,0)="""^DD"",364.5,364.5,.03,1,1,2)"
^XMB(3.9,55,2,31756,0)="Q"
^XMB(3.9,55,2,31757,0)="""^DD"",364.5,364.5,.03,1,1,3)"
^XMB(3.9,55,2,31758,0)="DO NOT DELETE"
^XMB(3.9,55,2,31759,0)="""^DD"",364.5,364.5,.03,1,1,""%D"",0)"
^XMB(3.9,55,2,31760,0)="^^1^1^2960215^"
^XMB(3.9,55,2,31761,0)="""^DD"",364.5,364.5,.03,1,1,""%D"",1,0)"
^XMB(3.9,55,2,31762,0)="If TYPE OF ELEMENT is 'F' or 'C' then ELEMENT CATEGORY must be 'I'. "
^XMB(3.9,55,2,31763,0)="""^DD"",364.5,364.5,.03,1,1,""CREATE CONDITION"")"
^XMB(3.9,55,2,31764,0)="""FC""[INTERNAL(TYPE OF ELEMENT)"
^XMB(3.9,55,2,31765,0)="""^DD"",364.5,364.5,.03,1,1,""CREATE VALUE"")"
^XMB(3.9,55,2,31766,0)="S X=""I"""
^XMB(3.9,55,2,31767,0)="""^DD"",364.5,364.5,.03,1,1,""DELETE VALUE"")"
^XMB(3.9,55,2,31768,0)="NO EFFECT"
^XMB(3.9,55,2,31769,0)="""^DD"",364.5,364.5,.03,1,1,""DT"")"
^XMB(3.9,55,2,31770,0)="2960215"
^XMB(3.9,55,2,31771,0)="""^DD"",364.5,364.5,.03,1,1,""FIELD"")"
^XMB(3.9,55,2,31772,0)="ELEMENT CATEGORY"
^XMB(3.9,55,2,31773,0)="""^DD"",364.5,364.5,.03,1,2,0)"
^XMB(3.9,55,2,31774,0)="^^TRIGGER^364.5^.06"
^XMB(3.9,55,2,31775,0)="""^DD"",364.5,364.5,.03,1,2,1)"
^XMB(3.9,55,2,31776,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X S X=X'=""F"" I X S X=DIV S Y(1)=$S($D(^IBA(364.5,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="""" X ^DD(364.5,.03,1,2,1.4)"
^XMB(3.9,55,2,31777,0)="""^DD"",364.5,364.5,.03,1,2,1.4)"
^XMB(3.9,55,2,31778,0)="S DIH=$S($D(^IBA(364.5,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,6)=DIV,DIH=364.5,DIG=.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,55,2,31779,0)="""^DD"",364.5,364.5,.03,1,2,2)"
^XMB(3.9,55,2,31780,0)="Q"
^XMB(3.9,55,2,31781,0)="""^DD"",364.5,364.5,.03,1,2,3)"
^XMB(3.9,55,2,31782,0)="DO NOT DELETE"
^XMB(3.9,55,2,31783,0)="""^DD"",364.5,364.5,.03,1,2,""%D"",0)"
^XMB(3.9,55,2,31784,0)="^^2^2^2960215^"
^XMB(3.9,55,2,31785,0)="""^DD"",364.5,364.5,.03,1,2,""%D"",1,0)"
^XMB(3.9,55,2,31786,0)="This triggers the FILEMAN FIELD REFERENCE field to null if the element type"
^XMB(3.9,55,2,31787,0)="""^DD"",364.5,364.5,.03,1,2,""%D"",2,0)"
^XMB(3.9,55,2,31788,0)="is not FILEMAN field type of element."
^XMB(3.9,55,2,31789,0)="""^DD"",364.5,364.5,.03,1,2,""CREATE CONDITION"")"
^XMB(3.9,55,2,31790,0)="INTERNAL(TYPE OF ELEMENT)'=""F"""
^XMB(3.9,55,2,31791,0)="""^DD"",364.5,364.5,.03,1,2,""CREATE VALUE"")"
^XMB(3.9,55,2,31792,0)="@"
^XMB(3.9,55,2,31793,0)="""^DD"",364.5,364.5,.03,1,2,""DELETE VALUE"")"
^XMB(3.9,55,2,31794,0)="NO EFFECT"
^XMB(3.9,55,2,31795,0)="""^DD"",364.5,364.5,.03,1,2,""DT"")"
^XMB(3.9,55,2,31796,0)="2960215"
^XMB(3.9,55,2,31797,0)="""^DD"",364.5,364.5,.03,1,2,""FIELD"")"
^XMB(3.9,55,2,31798,0)="FILEMAN FIELD REFERENCE"
^XMB(3.9,55,2,31799,0)="""^DD"",364.5,364.5,.03,1,3,0)"
^XMB(3.9,55,2,31800,0)="^^TRIGGER^364.5^.08"
^XMB(3.9,55,2,31801,0)="""^DD"",364.5,364.5,.03,1,3,1)"
^XMB(3.9,55,2,31802,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X S X=X'=""C"" I X S X=DIV S Y(1)=$S($D(^IBA(364.5,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="""" X ^DD(364.5,.03,1,3,1.4)"
^XMB(3.9,55,2,31803,0)="""^DD"",364.5,364.5,.03,1,3,1.4)"
^XMB(3.9,55,2,31804,0)="S DIH=$S($D(^IBA(364.5,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,8)=DIV,DIH=364.5,DIG=.08 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,55,2,31805,0)="""^DD"",364.5,364.5,.03,1,3,2)"
^XMB(3.9,55,2,31806,0)="Q"
^XMB(3.9,55,2,31807,0)="""^DD"",364.5,364.5,.03,1,3,3)"
^XMB(3.9,55,2,31808,0)="DO NOT DELETE"
^XMB(3.9,55,2,31809,0)="""^DD"",364.5,364.5,.03,1,3,""%D"",0)"
^XMB(3.9,55,2,31810,0)="^^2^2^2960215^"
^XMB(3.9,55,2,31811,0)="""^DD"",364.5,364.5,.03,1,3,""%D"",1,0)"
^XMB(3.9,55,2,31812,0)="This triggers the CONSTANT VALUE field to null if the element type is not"
^XMB(3.9,55,2,31813,0)="""^DD"",364.5,364.5,.03,1,3,""%D"",2,0)"
^XMB(3.9,55,2,31814,0)="CONSTANT type of element."
^XMB(3.9,55,2,31815,0)="""^DD"",364.5,364.5,.03,1,3,""CREATE CONDITION"")"
^XMB(3.9,55,2,31816,0)="INTERNAL(TYPE OF ELEMENT)'=""C"""
^XMB(3.9,55,2,31817,0)="""^DD"",364.5,364.5,.03,1,3,""CREATE VALUE"")"
^XMB(3.9,55,2,31818,0)="@"
^XMB(3.9,55,2,31819,0)="""^DD"",364.5,364.5,.03,1,3,""DELETE VALUE"")"
^XMB(3.9,55,2,31820,0)="NO EFFECT"
^XMB(3.9,55,2,31821,0)="""^DD"",364.5,364.5,.03,1,3,""DT"")"
^XMB(3.9,55,2,31822,0)="2960215"
^XMB(3.9,55,2,31823,0)="""^DD"",364.5,364.5,.03,1,3,""FIELD"")"
^XMB(3.9,55,2,31824,0)="CONSTANT VALUE"
^XMB(3.9,55,2,31825,0)="""^DD"",364.5,364.5,.03,1,4,0)"
^XMB(3.9,55,2,31826,0)="^^TRIGGER^364.5^1"
^XMB(3.9,55,2,31827,0)="""^DD"",364.5,364.5,.03,1,4,1)"
^XMB(3.9,55,2,31828,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X S X=X'=""E"" I X S X=DIV S Y(1)=$S($D(^IBA(364.5,D0,1)):^(1),1:"""") S X=$E(Y(1),1,245),X=X S DIU=X K Y S X="""" X ^DD(364.5,.03,1,4,1.4)"
^XMB(3.9,55,2,31829,0)="""^DD"",364.5,364.5,.03,1,4,1.4)"
^XMB(3.9,55,2,31830,0)="S DIH=$S($D(^IBA(364.5,DIV(0),1)):^(1),1:""""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,1,245),Y=$E(DIH,246,999),^(1)=$J("""",$S(DE>0:DE,1:0))_DIV_$S(Y?."" "":"""",1:$J("""",245-$L(DIV))_Y),DIH=364.5,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,55,2,31831,0)="""^DD"",364.5,364.5,.03,1,4,2)"
^XMB(3.9,55,2,31832,0)="Q"
^XMB(3.9,55,2,31833,0)="""^DD"",364.5,364.5,.03,1,4,3)"
^XMB(3.9,55,2,31834,0)="DO NOT DELETE"
^XMB(3.9,55,2,31835,0)="""^DD"",364.5,364.5,.03,1,4,""%D"",0)"
^XMB(3.9,55,2,31836,0)="^^2^2^2960215^"
^XMB(3.9,55,2,31837,0)="""^DD"",364.5,364.5,.03,1,4,""%D"",1,0)"
^XMB(3.9,55,2,31838,0)="This triggers the EXTRACT CODE field to null if the element type is not an"
^XMB(3.9,55,2,31839,0)="""^DD"",364.5,364.5,.03,1,4,""%D"",2,0)"
^XMB(3.9,55,2,31840,0)="EXTRACTED VIA CODE type of element."
^XMB(3.9,55,2,31841,0)="""^DD"",364.5,364.5,.03,1,4,""CREATE CONDITION"")"
^XMB(3.9,55,2,31842,0)="INTERNAL(TYPE OF ELEMENT)'=""E"""
^XMB(3.9,55,2,31843,0)="""^DD"",364.5,364.5,.03,1,4,""CREATE VALUE"")"
^XMB(3.9,55,2,31844,0)="@"
^XMB(3.9,55,2,31845,0)="""^DD"",364.5,364.5,.03,1,4,""DELETE VALUE"")"
^XMB(3.9,55,2,31846,0)="NO EFFECT"
^XMB(3.9,55,2,31847,0)="""^DD"",364.5,364.5,.03,1,4,""DT"")"
^XMB(3.9,55,2,31848,0)="2960215"
^XMB(3.9,55,2,31849,0)="""^DD"",364.5,364.5,.03,1,4,""FIELD"")"
^XMB(3.9,55,2,31850,0)="EXTRACT CODE"
^XMB(3.9,55,2,31851,0)="""^DD"",364.5,364.5,.03,21,0)"
^XMB(3.9,55,2,31852,0)="^^3^3^2951207^^"
^XMB(3.9,55,2,31853,0)="""^DD"",364.5,364.5,.03,21,1,0)"
^XMB(3.9,55,2,31854,0)="The type of data element being defined as needed by one or more forms.  This"
^XMB(3.9,55,2,31855,0)="""^DD"",364.5,364.5,.03,21,2,0)"
^XMB(3.9,55,2,31856,0)="field determines the type of retrieval needed to get the actual data element's"
^XMB(3.9,55,2,31857,0)="""^DD"",364.5,364.5,.03,21,3,0)"
^XMB(3.9,55,2,31858,0)="value for a given bill."
^XMB(3.9,55,2,31859,0)="""^DD"",364.5,364.5,.03,""DT"")"
^XMB(3.9,55,2,31860,0)="2960215"
^XMB(3.9,55,2,31861,0)="""^DD"",364.5,364.5,.04,0)"
^XMB(3.9,55,2,31862,0)="ELEMENT CATEGORY^RSX^I:INDIVIDUAL ELEMENT;G:GROUP ELEMENT;^0;4^I $P($G(^IBA(364.5,DA,0)),U,3)=""F"",$G(X)=""G"" K X"
^XMB(3.9,55,2,31863,0)="""^DD"",364.5,364.5,.04,1,0)"
^XMB(3.9,55,2,31864,0)="^.1"
^XMB(3.9,55,2,31865,0)="""^DD"",364.5,364.5,.04,1,1,0)"
^XMB(3.9,55,2,31866,0)="^^TRIGGER^364.5^.06"
^XMB(3.9,55,2,31867,0)="""^DD"",364.5,364.5,.04,1,1,1)"
^XMB(3.9,55,2,31868,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X S X=X=""G"" I X S X=DIV S Y(1)=$S($D(^IBA(364.5,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="""" X ^DD(364.5,.04,1,1,1.4)"
^XMB(3.9,55,2,31869,0)="""^DD"",364.5,364.5,.04,1,1,1.4)"
^XMB(3.9,55,2,31870,0)="S DIH=$S($D(^IBA(364.5,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,6)=DIV,DIH=364.5,DIG=.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,55,2,31871,0)="""^DD"",364.5,364.5,.04,1,1,2)"
^XMB(3.9,55,2,31872,0)="Q"
^XMB(3.9,55,2,31873,0)="""^DD"",364.5,364.5,.04,1,1,""CREATE CONDITION"")"
^XMB(3.9,55,2,31874,0)="INTERNAL(ELEMENT CATEGORY)=""G"""
^XMB(3.9,55,2,31875,0)="""^DD"",364.5,364.5,.04,1,1,""CREATE VALUE"")"
^XMB(3.9,55,2,31876,0)=""""""
^XMB(3.9,55,2,31877,0)="""^DD"",364.5,364.5,.04,1,1,""DELETE VALUE"")"
^XMB(3.9,55,2,31878,0)="NO EFFECT"
^XMB(3.9,55,2,31879,0)="""^DD"",364.5,364.5,.04,1,1,""FIELD"")"
^XMB(3.9,55,2,31880,0)="FILEMAN FIELD REFERENCE"
^XMB(3.9,55,2,31881,0)="""^DD"",364.5,364.5,.04,3)"
^XMB(3.9,55,2,31882,0)="This indicates an INDIVIDUAL or GROUP of elements will be returned.  Group is not valid for Fileman type elements."
^XMB(3.9,55,2,31883,0)="""^DD"",364.5,364.5,.04,5,1,0)"
^XMB(3.9,55,2,31884,0)="364.5^.03^1"
^XMB(3.9,55,2,31885,0)="""^DD"",364.5,364.5,.04,21,0)"
^XMB(3.9,55,2,31886,0)="^^3^3^2951205^"
^XMB(3.9,55,2,31887,0)="""^DD"",364.5,364.5,.04,21,1,0)"
^XMB(3.9,55,2,31888,0)="This defines whether the data element to be extracted is a single piece of data"
^XMB(3.9,55,2,31889,0)="""^DD"",364.5,364.5,.04,21,2,0)"
^XMB(3.9,55,2,31890,0)="or is a string of related data.  Fileman field references must be designated as"
^XMB(3.9,55,2,31891,0)="""^DD"",364.5,364.5,.04,21,3,0)"
^XMB(3.9,55,2,31892,0)="individual elements."
^XMB(3.9,55,2,31893,0)="""^DD"",364.5,364.5,.04,""DT"")"
^XMB(3.9,55,2,31894,0)="2960215"
^XMB(3.9,55,2,31895,0)="""^DD"",364.5,364.5,.05,0)"
^XMB(3.9,55,2,31896,0)="BASE FILE^P1'^DIC(^0;5^Q"
^XMB(3.9,55,2,31897,0)="""^DD"",364.5,364.5,.05,3)"
^XMB(3.9,55,2,31898,0)="Enter the Fileman file to be used as a 'base' to extract the data from."
^XMB(3.9,55,2,31899,0)="""^DD"",364.5,364.5,.05,21,0)"
^XMB(3.9,55,2,31900,0)="^^2^2^2960311^"
^XMB(3.9,55,2,31901,0)="""^DD"",364.5,364.5,.05,21,1,0)"
^XMB(3.9,55,2,31902,0)="This is the number of the Fileman file to be used as a 'base' to extract"
^XMB(3.9,55,2,31903,0)="""^DD"",364.5,364.5,.05,21,2,0)"
^XMB(3.9,55,2,31904,0)="data for this field."
^XMB(3.9,55,2,31905,0)="""^DD"",364.5,364.5,.05,""DT"")"
^XMB(3.9,55,2,31906,0)="2960311"
^XMB(3.9,55,2,31907,0)="""^DD"",364.5,364.5,.06,0)"
^XMB(3.9,55,2,31908,0)="FILEMAN FIELD REFERENCE^FX^^0;6^K:$L(X)>65!($L(X)<1) X I $D(X),$P($G(^IBA(364.5,DA,0)),U,4)=""G"" K X"
^XMB(3.9,55,2,31909,0)="""^DD"",364.5,364.5,.06,1,0)"
^XMB(3.9,55,2,31910,0)="^.1"
^XMB(3.9,55,2,31911,0)="""^DD"",364.5,364.5,.06,1,1,0)"
^XMB(3.9,55,2,31912,0)="^^TRIGGER^364.5^.07"
^XMB(3.9,55,2,31913,0)="""^DD"",364.5,364.5,.06,1,1,1)"
^XMB(3.9,55,2,31914,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0)="""" I X S X=DIV S Y(1)=$S($D(^IBA(364.5,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="""" X ^DD(364.5,.06,1,1,1.4)"
^XMB(3.9,55,2,31915,0)="""^DD"",364.5,364.5,.06,1,1,1.4)"
^XMB(3.9,55,2,31916,0)="S DIH=$S($D(^IBA(364.5,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=364.5,DIG=.07 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,55,2,31917,0)="""^DD"",364.5,364.5,.06,1,1,2)"
^XMB(3.9,55,2,31918,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(364.5,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="""" X ^DD(364.5,.06,1,1,2.4)"
^XMB(3.9,55,2,31919,0)="""^DD"",364.5,364.5,.06,1,1,2.4)"
^XMB(3.9,55,2,31920,0)="S DIH=$S($D(^IBA(364.5,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=364.5,DIG=.07 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,55,2,31921,0)="""^DD"",364.5,364.5,.06,1,1,""CREATE CONDITION"")"
^XMB(3.9,55,2,31922,0)="FILEMAN FIELD REFERENCE="""""
^XMB(3.9,55,2,31923,0)="""^DD"",364.5,364.5,.06,1,1,""CREATE VALUE"")"
^XMB(3.9,55,2,31924,0)="@"
^XMB(3.9,55,2,31925,0)="""^DD"",364.5,364.5,.06,1,1,""DELETE VALUE"")"
^XMB(3.9,55,2,31926,0)="@"
^XMB(3.9,55,2,31927,0)="""^DD"",364.5,364.5,.06,1,1,""FIELD"")"
^XMB(3.9,55,2,31928,0)="#.07"
^XMB(3.9,55,2,31929,0)="""^DD"",364.5,364.5,.06,3)"
^XMB(3.9,55,2,31930,0)="Must be a valid Fileman reference and ELEMENT CATEGORY must not be GROUP."
^XMB(3.9,55,2,31931,0)="""^DD"",364.5,364.5,.06,5,1,0)"
^XMB(3.9,55,2,31932,0)="364.5^.04^1"
^XMB(3.9,55,2,31933,0)="""^DD"",364.5,364.5,.06,5,2,0)"
^XMB(3.9,55,2,31934,0)="364.5^.03^2"
^XMB(3.9,55,2,31935,0)="""^DD"",364.5,364.5,.06,21,0)"
^XMB(3.9,55,2,31936,0)="^^6^6^2951221^^^"
^XMB(3.9,55,2,31937,0)="""^DD"",364.5,364.5,.06,21,1,0)"
^XMB(3.9,55,2,31938,0)="The valid Fileman field reference or simple Fileman navigation to be used"
^XMB(3.9,55,2,31939,0)="""^DD"",364.5,364.5,.06,21,2,0)"
^XMB(3.9,55,2,31940,0)="to extract using the $$GET^DIQ utility. Note this will not return true"
^XMB(3.9,55,2,31941,0)="""^DD"",364.5,364.5,.06,21,3,0)"
^XMB(3.9,55,2,31942,0)="multiple entries.  Word-processing type fields are able to be retrieved,"
^XMB(3.9,55,2,31943,0)="""^DD"",364.5,364.5,.06,21,4,0)"
^XMB(3.9,55,2,31944,0)="however.  No syntax check is made on this field so the user must be careful"
^XMB(3.9,55,2,31945,0)="""^DD"",364.5,364.5,.06,21,5,0)"
^XMB(3.9,55,2,31946,0)="to type a valid Fileman expression.  This must be designated as an"
^XMB(3.9,55,2,31947,0)="""^DD"",364.5,364.5,.06,21,6,0)"
^XMB(3.9,55,2,31948,0)="INDIVIDUAL element, not a group element."
^XMB(3.9,55,2,31949,0)="""^DD"",364.5,364.5,.06,""DT"")"
^XMB(3.9,55,2,31950,0)="2951221"
^XMB(3.9,55,2,31951,0)="""^DD"",364.5,364.5,.07,0)"
^XMB(3.9,55,2,31952,0)="FILEMAN RETURN FORMAT^S^I:INTERNAL;E:EXTERNAL;^0;7^Q"
^XMB(3.9,55,2,31953,0)="""^DD"",364.5,364.5,.07,5,1,0)"
^XMB(3.9,55,2,31954,0)="364.5^.06^1"
^XMB(3.9,55,2,31955,0)="""^DD"",364.5,364.5,.07,21,0)"
^XMB(3.9,55,2,31956,0)="^^5^5^2951205^"
^XMB(3.9,55,2,31957,0)="""^DD"",364.5,364.5,.07,21,1,0)"
^XMB(3.9,55,2,31958,0)="This is the format for the retrieved data for Fileman-type data elements.  It"
^XMB(3.9,55,2,31959,0)="""^DD"",364.5,364.5,.07,21,2,0)"
^XMB(3.9,55,2,31960,0)="is recommended to use Internal format whenever possible to keep the data"
^XMB(3.9,55,2,31961,0)="""^DD"",364.5,364.5,.07,21,3,0)"
^XMB(3.9,55,2,31962,0)="element definitions in this file as generic as possible to avoid duplication.  "
^XMB(3.9,55,2,31963,0)="""^DD"",364.5,364.5,.07,21,4,0)"
^XMB(3.9,55,2,31964,0)="The format capabilities of the forms generator should be used to interpret and"
^XMB(3.9,55,2,31965,0)="""^DD"",364.5,364.5,.07,21,5,0)"
^XMB(3.9,55,2,31966,0)="reformat the data element when needed."
^XMB(3.9,55,2,31967,0)="""^DD"",364.5,364.5,.07,""DT"")"
^XMB(3.9,55,2,31968,0)="2951205"
^XMB(3.9,55,2,31969,0)="""^DD"",364.5,364.5,.08,0)"
^XMB(3.9,55,2,31970,0)="CONSTANT VALUE^F^^0;8^K:$L(X)>80!($L(X)<1) X"
^XMB(3.9,55,2,31971,0)="""^DD"",364.5,364.5,.08,3)"
^XMB(3.9,55,2,31972,0)="Answer must be 1-80 characters in length."
^XMB(3.9,55,2,31973,0)="""^DD"",364.5,364.5,.08,5,1,0)"
^XMB(3.9,55,2,31974,0)="364.5^.03^3"
^XMB(3.9,55,2,31975,0)="""^DD"",364.5,364.5,.08,21,0)"
^XMB(3.9,55,2,31976,0)="^^1^1^2951205^"
^XMB(3.9,55,2,31977,0)="""^DD"",364.5,364.5,.08,21,1,0)"
^XMB(3.9,55,2,31978,0)="The specific value that this data element should return for this data element."
^XMB(3.9,55,2,31979,0)="""^DD"",364.5,364.5,.08,""DT"")"
^XMB(3.9,55,2,31980,0)="2951205"
^XMB(3.9,55,2,31981,0)="""^DD"",364.5,364.5,1,0)"
^XMB(3.9,55,2,31982,0)="EXTRACT CODE^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^XMB(3.9,55,2,31983,0)="""^DD"",364.5,364.5,1,3)"
^XMB(3.9,55,2,31984,0)="This is Standard MUMPS code."
^XMB(3.9,55,2,31985,0)="""^DD"",364.5,364.5,1,5,1,0)"
^XMB(3.9,55,2,31986,0)="364.5^.03^4"
^XMB(3.9,55,2,31987,0)="""^DD"",364.5,364.5,1,9)"
^XMB(3.9,55,2,31988,0)="@"
^XMB(3.9,55,2,31989,0)="""^DD"",364.5,364.5,1,21,0)"
^XMB(3.9,55,2,31990,0)="^^7^7^2951207^^^"
^XMB(3.9,55,2,31991,0)="""^DD"",364.5,364.5,1,21,1,0)"
^XMB(3.9,55,2,31992,0)="The code to be executed by the forms generator to return the value(s) of the"
^XMB(3.9,55,2,31993,0)="""^DD"",364.5,364.5,1,21,2,0)"
^XMB(3.9,55,2,31994,0)="data element.  If no ARRAY ROOT field is completed for this data element, the"
^XMB(3.9,55,2,31995,0)="""^DD"",364.5,364.5,1,21,3,0)"
^XMB(3.9,55,2,31996,0)="code should set the variable IBXDATA or the array IBXDATA(1) through IBXDATA(n)"
^XMB(3.9,55,2,31997,0)="""^DD"",364.5,364.5,1,21,4,0)"
^XMB(3.9,55,2,31998,0)="where n=the total # of iterations of the data element retrieved.  If the ARRAY "
^XMB(3.9,55,2,31999,0)="""^DD"",364.5,364.5,1,21,5,0)"
^XMB(3.9,55,2,32000,0)="ROOT field has been completed for this data element, this code should set the"
^XMB(3.9,55,2,32001,0)="""^DD"",364.5,364.5,1,21,6,0)"
^XMB(3.9,55,2,32002,0)="variable referenced there.  IBXIEN is assumed to be the internal entry number"
^XMB(3.9,55,2,32003,0)="""^DD"",364.5,364.5,1,21,7,0)"
^XMB(3.9,55,2,32004,0)="of the  file (referenced by the variable IBXFILE) entry."
^XMB(3.9,55,2,32005,0)="""^DD"",364.5,364.5,1,""DT"")"
^XMB(3.9,55,2,32006,0)="2951205"
^XMB(3.9,55,2,32007,0)="""^DD"",364.5,364.5,2,0)"
^XMB(3.9,55,2,32008,0)="ARRAY ROOT^F^^2;E1,50^K:$L(X)>50!($L(X)<1) X"
^XMB(3.9,55,2,32009,0)="""^DD"",364.5,364.5,2,3)"
^XMB(3.9,55,2,32010,0)="Answer must be a valid array root name."
^XMB(3.9,55,2,32011,0)="""^DD"",364.5,364.5,2,21,0)"
^XMB(3.9,55,2,32012,0)="^^3^3^2960117^^"
^XMB(3.9,55,2,32013,0)="""^DD"",364.5,364.5,2,21,1,0)"
^XMB(3.9,55,2,32014,0)=" The local or global base root where multiple-valued output or word processing"
^XMB(3.9,55,2,32015,0)="""^DD"",364.5,364.5,2,21,2,0)"
^XMB(3.9,55,2,32016,0)="data is to be stored for this data element.  IBXDATA is the default if there"
^XMB(3.9,55,2,32017,0)="""^DD"",364.5,364.5,2,21,3,0)"
^XMB(3.9,55,2,32018,0)="is no data in this field.  Example of a global array: ^TMP($J)"
^XMB(3.9,55,2,32019,0)="""^DD"",364.5,364.5,2,""DT"")"
^XMB(3.9,55,2,32020,0)="2960117"
^XMB(3.9,55,2,32021,0)="""^DD"",364.5,364.5,3,0)"
^XMB(3.9,55,2,32022,0)="DESCRIPTION^364.53^^3;0"
^XMB(3.9,55,2,32023,0)="""^DD"",364.5,364.53,0)"
^XMB(3.9,55,2,32024,0)="DESCRIPTION SUB-FIELD^^.01^1"
^XMB(3.9,55,2,32025,0)="""^DD"",364.5,364.53,0,""DT"")"
^XMB(3.9,55,2,32026,0)="2951205"
^XMB(3.9,55,2,32027,0)="""^DD"",364.5,364.53,0,""NM"",""DESCRIPTION"")"
^XMB(3.9,55,2,32028,0)=""
^XMB(3.9,55,2,32029,0)="""^DD"",364.5,364.53,0,""UP"")"
^XMB(3.9,55,2,32030,0)="364.5"
^XMB(3.9,55,2,32031,0)="""^DD"",364.5,364.53,.01,0)"
^XMB(3.9,55,2,32032,0)="DESCRIPTION^W^^0;1^Q"
^XMB(3.9,55,2,32033,0)="""^DD"",364.5,364.53,.01,3)"
^XMB(3.9,55,2,32034,0)="Enter a description of the data element being defined."
^XMB(3.9,55,2,32035,0)="""^DD"",364.5,364.53,.01,21,0)"
^XMB(3.9,55,2,32036,0)="^^1^1^2951205^"
^XMB(3.9,55,2,32037,0)="""^DD"",364.5,364.53,.01,21,1,0)"
^XMB(3.9,55,2,32038,0)="This is a free text description of the data that this data element represents."
^XMB(3.9,55,2,32039,0)="""^DD"",364.5,364.53,.01,""DT"")"
^XMB(3.9,55,2,32040,0)="2951205"
^XMB(3.9,55,2,32041,0)="""^DD"",364.6,364.6,0)"
^XMB(3.9,55,2,32042,0)="FIELD^^.13^13"
^XMB(3.9,55,2,32043,0)="""^DD"",364.6,364.6,0,""DDA"")"
^XMB(3.9,55,2,32044,0)="N"
^XMB(3.9,55,2,32045,0)="""^DD"",364.6,364.6,0,""DT"")"
^XMB(3.9,55,2,32046,0)="3050504"
^XMB(3.9,55,2,32047,0)="""^DD"",364.6,364.6,0,""ID"",.04)"
^XMB(3.9,55,2,32048,0)="W ""   "",$P(^(0),U,4)"
^XMB(3.9,55,2,32049,0)="""^DD"",364.6,364.6,0,""ID"",.05)"
^XMB(3.9,55,2,32050,0)="W ""   "",$P(^(0),U,5)"
^XMB(3.9,55,2,32051,0)="""^DD"",364.6,364.6,0,""ID"",.08)"
^XMB(3.9,55,2,32052,0)="W ""   "",$P(^(0),U,8)"
^XMB(3.9,55,2,32053,0)="""^DD"",364.6,364.6,0,""ID"",.1)"
^XMB(3.9,55,2,32054,0)="W ""   "",$P(^(0),U,10)"
^XMB(3.9,55,2,32055,0)="""^DD"",364.6,364.6,0,""IX"",""APAR"",364.6,.01)"
^XMB(3.9,55,2,32056,0)=""
^XMB(3.9,55,2,32057,0)="""^DD"",364.6,364.6,0,""IX"",""APAR1"",364.6,.03)"
^XMB(3.9,55,2,32058,0)=""
^XMB(3.9,55,2,32059,0)="""^DD"",364.6,364.6,0,""IX"",""ASEQ"",364.6,.01)"
^XMB(3.9,55,2,32060,0)=""
^XMB(3.9,55,2,32061,0)="""^DD"",364.6,364.6,0,""IX"",""ASEQ1"",364.6,.04)"
^XMB(3.9,55,2,32062,0)=""
^XMB(3.9,55,2,32063,0)="""^DD"",364.6,364.6,0,""IX"",""ASEQ2"",364.6,.05)"
^XMB(3.9,55,2,32064,0)=""
^XMB(3.9,55,2,32065,0)="""^DD"",364.6,364.6,0,""IX"",""ASEQ3"",364.6,.08)"
^XMB(3.9,55,2,32066,0)=""
^XMB(3.9,55,2,32067,0)="""^DD"",364.6,364.6,0,""IX"",""B"",364.6,.01)"
^XMB(3.9,55,2,32068,0)=""
^XMB(3.9,55,2,32069,0)="""^DD"",364.6,364.6,0,""IX"",""C"",364.6,.1)"
^XMB(3.9,55,2,32070,0)=""
^XMB(3.9,55,2,32071,0)="""^DD"",364.6,364.6,0,""NM"",""IB FORM SKELETON DEFINITION"")"
^XMB(3.9,55,2,32072,0)=" "
^XMB(3.9,55,2,32073,0)="""^DD"",364.6,364.6,0,""PT"",364.6,.03)"
^XMB(3.9,55,2,32074,0)=""
^XMB(3.9,55,2,32075,0)="""^DD"",364.6,364.6,0,""PT"",364.7,.01)"
^XMB(3.9,55,2,32076,0)=""
^XMB(3.9,55,2,32077,0)="""^DD"",364.6,364.6,0,""VRPK"")"
^XMB(3.9,55,2,32078,0)="IB"
^XMB(3.9,55,2,32079,0)="""^DD"",364.6,364.6,.01,0)"
^XMB(3.9,55,2,32080,0)="BILL FORM^RP353'X^IBE(353,^0;1^I $$DUP^IBCEFG0($G(DA),X,1) K X"
^XMB(3.9,55,2,32081,0)="""^DD"",364.6,364.6,.01,1,0)"
^XMB(3.9,55,2,32082,0)="^.1"
^XMB(3.9,55,2,32083,0)="""^DD"",364.6,364.6,.01,1,1,0)"
^XMB(3.9,55,2,32084,0)="364.6^B"
^XMB(3.9,55,2,32085,0)="""^DD"",364.6,364.6,.01,1,1,1)"
^XMB(3.9,55,2,32086,0)="S ^IBA(364.6,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,55,2,32087,0)="""^DD"",364.6,364.6,.01,1,1,2)"
^XMB(3.9,55,2,32088,0)="K ^IBA(364.6,""B"",$E(X,1,30),DA)"
^XMB(3.9,55,2,32089,0)="""^DD"",364.6,364.6,.01,1,2,0)"
^XMB(3.9,55,2,32090,0)="364.6^ASEQ^MUMPS"
^XMB(3.9,55,2,32091,0)="""^DD"",364.6,364.6,.01,1,2,1)"
^XMB(3.9,55,2,32092,0)="N Z0,Z1,Z2,Z3 S Z0=$G(^IBA(364.6,DA,0)),Z1=$P(Z0,U,4),Z2=$P(Z0,U,5),Z3=$P(Z0,U,8) I Z1,Z2,Z3 S ^IBA(364.6,""ASEQ"",+X,Z1,Z2,Z3,DA)="""""
^XMB(3.9,55,2,32093,0)="""^DD"",364.6,364.6,.01,1,2,2)"
^XMB(3.9,55,2,32094,0)="N Z0,Z1,Z2,Z3 S Z0=$G(^IBA(364.6,DA,0)),Z1=$P(Z0,U,4),Z2=$P(Z0,U,5),Z3=$P(Z0,U,8) I Z1,Z2,Z3 K ^IBA(364.6,""ASEQ"",+X,Z1,Z2,Z3,DA)"
^XMB(3.9,55,2,32095,0)="""^DD"",364.6,364.6,.01,1,2,3)"
^XMB(3.9,55,2,32096,0)="DO NOT DELETE"
^XMB(3.9,55,2,32097,0)="""^DD"",364.6,364.6,.01,1,2,""%D"",0)"
^XMB(3.9,55,2,32098,0)="^^1^1^2960117^^"
^XMB(3.9,55,2,32099,0)="""^DD"",364.6,364.6,.01,1,2,""%D"",1,0)"
^XMB(3.9,55,2,32100,0)="This xref contains the sequence to use to extract or print the form fields."
^XMB(3.9,55,2,32101,0)="""^DD"",364.6,364.6,.01,1,2,""DT"")"
^XMB(3.9,55,2,32102,0)="2960116"
^XMB(3.9,55,2,32103,0)="""^DD"",364.6,364.6,.01,1,3,0)"
^XMB(3.9,55,2,32104,0)="364.6^APAR^MUMPS"
^XMB(3.9,55,2,32105,0)="""^DD"",364.6,364.6,.01,1,3,1)"
^XMB(3.9,55,2,32106,0)="N Z0 S Z0=$P($G(^IBA(364.6,DA,0)),U,3) I Z0,Z0'=X S ^IBA(364.6,""APAR"",$E(X,1,30),Z0,DA)="""""
^XMB(3.9,55,2,32107,0)="""^DD"",364.6,364.6,.01,1,3,2)"
^XMB(3.9,55,2,32108,0)="N Z0 S Z0=$P($G(^IBA(364.6,DA,0)),U,3) I Z0,Z0'=X K ^IBA(364.6,""APAR"",$E(X,1,30),Z0,DA)"
^XMB(3.9,55,2,32109,0)="""^DD"",364.6,364.6,.01,1,3,3)"
^XMB(3.9,55,2,32110,0)="DO NOT DELETE"
^XMB(3.9,55,2,32111,0)="""^DD"",364.6,364.6,.01,1,3,""%D"",0)"
^XMB(3.9,55,2,32112,0)="^^1^1^2960117^"
^XMB(3.9,55,2,32113,0)="""^DD"",364.6,364.6,.01,1,3,""%D"",1,0)"
^XMB(3.9,55,2,32114,0)="Xref by bill form and associated form field definition."
^XMB(3.9,55,2,32115,0)="""^DD"",364.6,364.6,.01,1,3,""DT"")"
^XMB(3.9,55,2,32116,0)="2960117"
^XMB(3.9,55,2,32117,0)="""^DD"",364.6,364.6,.01,1,4,0)"
^XMB(3.9,55,2,32118,0)="^^TRIGGER^364.6^.03"
^XMB(3.9,55,2,32119,0)="""^DD"",364.6,364.6,.01,1,4,1)"
^XMB(3.9,55,2,32120,0)="X ^DD(364.6,.01,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$S('$D(D0):"""",D0<0:"""",1:D0) X ^DD(364.6,.01,1,4,1.4)"
^XMB(3.9,55,2,32121,0)="""^DD"",364.6,364.6,.01,1,4,1.3)"
^XMB(3.9,55,2,32122,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(364.6,.01,1,4,69.2) S X=$P($P(Y(102),$C(59)_$P(Y(101),U,2)_"":"",2),$C(59),1)=""BILLING SCREEN"" S D0=I(0,0)"
^XMB(3.9,55,2,32123,0)="""^DD"",364.6,364.6,.01,1,4,1.4)"
^XMB(3.9,55,2,32124,0)="S DIH=$G(^IBA(364.6,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=364.6,DIG=.03 D ^DICR"
^XMB(3.9,55,2,32125,0)="""^DD"",364.6,364.6,.01,1,4,2)"
^XMB(3.9,55,2,32126,0)="X ^DD(364.6,.01,1,4,2.3) I X S X=DIV S Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" S DIH=$G(^IBA(364.6,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=364.6,DIG=.03 D ^DICR"
^XMB(3.9,55,2,32127,0)="""^DD"",364.6,364.6,.01,1,4,2.3)"
^XMB(3.9,55,2,32128,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(364.6,.01,1,4,79.2) S Y(101)=$S($D(^IBE(353,D0,2)):^(2),1:"""") S X=$P($P(Y(102),$C(59)_$P(Y(101),U,2)_"":"",2),$C(59),1)=""BILLING SCREEN"" S D0=I(0,0)"
^XMB(3.9,55,2,32129,0)="""^DD"",364.6,364.6,.01,1,4,3)"
^XMB(3.9,55,2,32130,0)="DO NOT DELETE"
^XMB(3.9,55,2,32131,0)="""^DD"",364.6,364.6,.01,1,4,69.2)"
^XMB(3.9,55,2,32132,0)="S I(0,0)=$G(D0),D0=Y(0) S:'D0!'$D(^IBE(353,+D0,0)) D0=-1 S Y(102)=$C(59)_$P($G(^DD(353,2.02,0)),U,3),Y(101)=$S($D(^IBE(353,D0,2)):^(2),1:"""")"
^XMB(3.9,55,2,32133,0)="""^DD"",364.6,364.6,.01,1,4,79.2)"
^XMB(3.9,55,2,32134,0)="S I(0,0)=$G(D0),Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'D0!'$D(^IBE(353,+D0,0)) D0=-1 S Y(102)=$C(59)_$P($G(^DD(353,2.02,0)),U,3)"
^XMB(3.9,55,2,32135,0)="""^DD"",364.6,364.6,.01,1,4,""%D"",0)"
^XMB(3.9,55,2,32136,0)="^^1^1^3000613^"
^XMB(3.9,55,2,32137,0)="""^DD"",364.6,364.6,.01,1,4,""%D"",1,0)"
^XMB(3.9,55,2,32138,0)="This trigger is needed for the local screen 9 logic to work correctly."
^XMB(3.9,55,2,32139,0)="""^DD"",364.6,364.6,.01,1,4,""CREATE CONDITION"")"
^XMB(3.9,55,2,32140,0)="BILL FORM:FORMAT TYPE=""BILLING SCREEN"""
^XMB(3.9,55,2,32141,0)="""^DD"",364.6,364.6,.01,1,4,""CREATE VALUE"")"
^XMB(3.9,55,2,32142,0)="NUMBER"
^XMB(3.9,55,2,32143,0)="""^DD"",364.6,364.6,.01,1,4,""DELETE CONDITION"")"
^XMB(3.9,55,2,32144,0)="BILL FORM:FORMAT TYPE=""BILLING SCREEN"""
^XMB(3.9,55,2,32145,0)="""^DD"",364.6,364.6,.01,1,4,""DELETE VALUE"")"
^XMB(3.9,55,2,32146,0)="@"
^XMB(3.9,55,2,32147,0)="""^DD"",364.6,364.6,.01,1,4,""DT"")"
^XMB(3.9,55,2,32148,0)="3000613"
^XMB(3.9,55,2,32149,0)="""^DD"",364.6,364.6,.01,1,4,""FIELD"")"
^XMB(3.9,55,2,32150,0)="ASSOCIATED FORM DEFINITION"
^XMB(3.9,55,2,32151,0)="""^DD"",364.6,364.6,.01,3)"
^XMB(3.9,55,2,32152,0)="Enter a BILLING FORM that the data element will appear on."
^XMB(3.9,55,2,32153,0)="""^DD"",364.6,364.6,.01,21,0)"
^XMB(3.9,55,2,32154,0)="^^2^2^2960318^^^^"
^XMB(3.9,55,2,32155,0)="""^DD"",364.6,364.6,.01,21,1,0)"
^XMB(3.9,55,2,32156,0)="Identifies a billing 'form' or 'screen' where the data element is used."
^XMB(3.9,55,2,32157,0)="""^DD"",364.6,364.6,.01,21,2,0)"
^XMB(3.9,55,2,32158,0)="The combination of form/page/line/column must be unique."
^XMB(3.9,55,2,32159,0)="""^DD"",364.6,364.6,.01,""DT"")"
^XMB(3.9,55,2,32160,0)="3000613"
^XMB(3.9,55,2,32161,0)="""^DD"",364.6,364.6,.02,0)"
^XMB(3.9,55,2,32162,0)="SECURITY LEVEL^SX^N:NATIONAL,NO EDIT;L:LOCAL;^0;2^I X=""N"",$P($G(^IBA(364.6,DA,0)),U,3) K X"
^XMB(3.9,55,2,32163,0)="""^DD"",364.6,364.6,.02,3)"
^XMB(3.9,55,2,32164,0)="Enter an N if no editing is allowed, L if editing is OK because this entry is associated with a locally defined form."
^XMB(3.9,55,2,32165,0)="""^DD"",364.6,364.6,.02,5,1,0)"
^XMB(3.9,55,2,32166,0)="364.6^.03^7"
^XMB(3.9,55,2,32167,0)="""^DD"",364.6,364.6,.02,21,0)"
^XMB(3.9,55,2,32168,0)="^.001^4^4^3001030^^"
^XMB(3.9,55,2,32169,0)="""^DD"",364.6,364.6,.02,21,1,0)"
^XMB(3.9,55,2,32170,0)="This field determines whether or not editing of the entry is allowed.  If"
^XMB(3.9,55,2,32171,0)="""^DD"",364.6,364.6,.02,21,2,0)"
^XMB(3.9,55,2,32172,0)="the security level of the entry is NATIONAL (N), no local editing is"
^XMB(3.9,55,2,32173,0)="""^DD"",364.6,364.6,.02,21,3,0)"
^XMB(3.9,55,2,32174,0)="allowed.  If the security level of the entry is LOCAL (L), it may be"
^XMB(3.9,55,2,32175,0)="""^DD"",364.6,364.6,.02,21,4,0)"
^XMB(3.9,55,2,32176,0)="edited."
^XMB(3.9,55,2,32177,0)="""^DD"",364.6,364.6,.02,""DT"")"
^XMB(3.9,55,2,32178,0)="2960117"
^XMB(3.9,55,2,32179,0)="""^DD"",364.6,364.6,.03,0)"
^XMB(3.9,55,2,32180,0)="ASSOCIATED FORM DEFINITION^P364.6'^IBA(364.6,^0;3^Q"
^XMB(3.9,55,2,32181,0)="""^DD"",364.6,364.6,.03,1,0)"
^XMB(3.9,55,2,32182,0)="^.1"
^XMB(3.9,55,2,32183,0)="""^DD"",364.6,364.6,.03,1,1,0)"
^XMB(3.9,55,2,32184,0)="364.6^APAR1^MUMPS"
^XMB(3.9,55,2,32185,0)="""^DD"",364.6,364.6,.03,1,1,1)"
^XMB(3.9,55,2,32186,0)="N Z0 S Z0=+$G(^IBA(364.6,DA,0)) I Z0,Z0'=X S ^IBA(364.6,""APAR"",Z0,$E(X,1,30),DA)="""""
^XMB(3.9,55,2,32187,0)="""^DD"",364.6,364.6,.03,1,1,2)"
^XMB(3.9,55,2,32188,0)="N Z0 S Z0=+$G(^IBA(364.6,DA,0)) I Z0,Z0'=X K ^IBA(364.6,""APAR"",Z0,$E(X,1,30),DA)"
^XMB(3.9,55,2,32189,0)="""^DD"",364.6,364.6,.03,1,1,3)"
^XMB(3.9,55,2,32190,0)="DO NOT DELETE"
^XMB(3.9,55,2,32191,0)="""^DD"",364.6,364.6,.03,1,1,""%D"",0)"
^XMB(3.9,55,2,32192,0)="^^1^1^2960117^^"
^XMB(3.9,55,2,32193,0)="""^DD"",364.6,364.6,.03,1,1,""%D"",1,0)"
^XMB(3.9,55,2,32194,0)="Xref by bill form and associated form field definition."
^XMB(3.9,55,2,32195,0)="""^DD"",364.6,364.6,.03,1,1,""DT"")"
^XMB(3.9,55,2,32196,0)="2960117"
^XMB(3.9,55,2,32197,0)="""^DD"",364.6,364.6,.03,1,2,0)"
^XMB(3.9,55,2,32198,0)="^^TRIGGER^364.6^.04"
^XMB(3.9,55,2,32199,0)="""^DD"",364.6,364.6,.03,1,2,1)"
^XMB(3.9,55,2,32200,0)="X ^DD(364.6,.03,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" X ^DD(364.6,.03,1,2,1.4)"
^XMB(3.9,55,2,32201,0)="""^DD"",364.6,364.6,.03,1,2,1.3)"
^XMB(3.9,55,2,32202,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(364.6,.03,1,2,69.2) S Y(101)=$S($D(^IBE(353,D0,2)):^(2),1:"""") S X=$P($P(Y(102),$C(59)_$P(Y(101),U,2)_"":"",2),$C(59),1)'=""BILLING SCREEN"" S D0=I(0,0)"
^XMB(3.9,55,2,32203,0)="""^DD"",364.6,364.6,.03,1,2,1.4)"
^XMB(3.9,55,2,32204,0)="S DIH=$S($D(^IBA(364.6,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=364.6,DIG=.04 D ^DICR"
^XMB(3.9,55,2,32205,0)="""^DD"",364.6,364.6,.03,1,2,2)"
^XMB(3.9,55,2,32206,0)="Q"
^XMB(3.9,55,2,32207,0)="""^DD"",364.6,364.6,.03,1,2,3)"
^XMB(3.9,55,2,32208,0)="DO NOT DELETE"
^XMB(3.9,55,2,32209,0)="""^DD"",364.6,364.6,.03,1,2,69.2)"
^XMB(3.9,55,2,32210,0)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^IBE(353,+D0,0)) D0=-1 S Y(102)=$C(59)_$S($D(^DD(353,2.02,0)):$P(^(0),U,3),1:"""")"
^XMB(3.9,55,2,32211,0)="""^DD"",364.6,364.6,.03,1,2,""%D"",0)"
^XMB(3.9,55,2,32212,0)="^.101^2^2^3000424^^"
^XMB(3.9,55,2,32213,0)="""^DD"",364.6,364.6,.03,1,2,""%D"",1,0)"
^XMB(3.9,55,2,32214,0)="If an associated form that is not a screen form, page is taken from the"
^XMB(3.9,55,2,32215,0)="""^DD"",364.6,364.6,.03,1,2,""%D"",2,0)"
^XMB(3.9,55,2,32216,0)="associated with field definition."
^XMB(3.9,55,2,32217,0)="""^DD"",364.6,364.6,.03,1,2,""CREATE CONDITION"")"
^XMB(3.9,55,2,32218,0)="BILL FORM:FORMAT TYPE'=""BILLING SCREEN"""
^XMB(3.9,55,2,32219,0)="""^DD"",364.6,364.6,.03,1,2,""CREATE VALUE"")"
^XMB(3.9,55,2,32220,0)="@"
^XMB(3.9,55,2,32221,0)="""^DD"",364.6,364.6,.03,1,2,""DELETE VALUE"")"
^XMB(3.9,55,2,32222,0)="NO EFFECT"
^XMB(3.9,55,2,32223,0)="""^DD"",364.6,364.6,.03,1,2,""DT"")"
^XMB(3.9,55,2,32224,0)="3000405"
^XMB(3.9,55,2,32225,0)="""^DD"",364.6,364.6,.03,1,2,""FIELD"")"
^XMB(3.9,55,2,32226,0)="PAGE OR SEQUENCE"
^XMB(3.9,55,2,32227,0)="""^DD"",364.6,364.6,.03,1,3,0)"
^XMB(3.9,55,2,32228,0)="^^TRIGGER^364.6^.05"
^XMB(3.9,55,2,32229,0)="""^DD"",364.6,364.6,.03,1,3,1)"
^XMB(3.9,55,2,32230,0)="X ^DD(364.6,.03,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" X ^DD(364.6,.03,1,3,1.4)"
^XMB(3.9,55,2,32231,0)="""^DD"",364.6,364.6,.03,1,3,1.3)"
^XMB(3.9,55,2,32232,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(364.6,.03,1,3,69.2) S Y(101)=$S($D(^IBE(353,D0,2)):^(2),1:"""") S X=$P($P(Y(102),$C(59)_$P(Y(101),U,2)_"":"",2),$C(59),1)'=""BILLING SCREEN"" S D0=I(0,0)"
^XMB(3.9,55,2,32233,0)="""^DD"",364.6,364.6,.03,1,3,1.4)"
^XMB(3.9,55,2,32234,0)="S DIH=$S($D(^IBA(364.6,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,5)=DIV,DIH=364.6,DIG=.05 D ^DICR"
^XMB(3.9,55,2,32235,0)="""^DD"",364.6,364.6,.03,1,3,2)"
^XMB(3.9,55,2,32236,0)="Q"
^XMB(3.9,55,2,32237,0)="""^DD"",364.6,364.6,.03,1,3,3)"
^XMB(3.9,55,2,32238,0)="DO NOT DELETE"
^XMB(3.9,55,2,32239,0)="""^DD"",364.6,364.6,.03,1,3,69.2)"
^XMB(3.9,55,2,32240,0)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^IBE(353,+D0,0)) D0=-1 S Y(102)=$C(59)_$S($D(^DD(353,2.02,0)):$P(^(0),U,3),1:"""")"
^XMB(3.9,55,2,32241,0)="""^DD"",364.6,364.6,.03,1,3,""%D"",0)"
^XMB(3.9,55,2,32242,0)="^^2^2^3000405^"
^XMB(3.9,55,2,32243,0)="""^DD"",364.6,364.6,.03,1,3,""%D"",1,0)"
^XMB(3.9,55,2,32244,0)="If an associated form that is not a screen form, line is taken from the"
^XMB(3.9,55,2,32245,0)="""^DD"",364.6,364.6,.03,1,3,""%D"",2,0)"
^XMB(3.9,55,2,32246,0)="associated with field definition."
^XMB(3.9,55,2,32247,0)="""^DD"",364.6,364.6,.03,1,3,""CREATE CONDITION"")"
^XMB(3.9,55,2,32248,0)="BILL FORM:FORMAT TYPE'=""BILLING SCREEN"""
^XMB(3.9,55,2,32249,0)="""^DD"",364.6,364.6,.03,1,3,""CREATE VALUE"")"
^XMB(3.9,55,2,32250,0)="@"
^XMB(3.9,55,2,32251,0)="""^DD"",364.6,364.6,.03,1,3,""DELETE VALUE"")"
^XMB(3.9,55,2,32252,0)="NO EFFECT"
^XMB(3.9,55,2,32253,0)="""^DD"",364.6,364.6,.03,1,3,""DT"")"
^XMB(3.9,55,2,32254,0)="3000405"
^XMB(3.9,55,2,32255,0)="""^DD"",364.6,364.6,.03,1,3,""FIELD"")"
^XMB(3.9,55,2,32256,0)="FIRST LINE NUMBER"
^XMB(3.9,55,2,32257,0)="""^DD"",364.6,364.6,.03,1,4,0)"
^XMB(3.9,55,2,32258,0)="^^TRIGGER^364.6^.08"
^XMB(3.9,55,2,32259,0)="""^DD"",364.6,364.6,.03,1,4,1)"
^XMB(3.9,55,2,32260,0)="X ^DD(364.6,.03,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="""" X ^DD(364.6,.03,1,4,1.4)"
^XMB(3.9,55,2,32261,0)="""^DD"",364.6,364.6,.03,1,4,1.3)"
^XMB(3.9,55,2,32262,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(364.6,.03,1,4,69.2) S Y(101)=$S($D(^IBE(353,D0,2)):^(2),1:"""") S X=$P($P(Y(102),$C(59)_$P(Y(101),U,2)_"":"",2),$C(59),1)'=""BILLING SCREEN"" S D0=I(0,0)"
^XMB(3.9,55,2,32263,0)="""^DD"",364.6,364.6,.03,1,4,1.4)"
^XMB(3.9,55,2,32264,0)="S DIH=$S($D(^IBA(364.6,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,8)=DIV,DIH=364.6,DIG=.08 D ^DICR"
^XMB(3.9,55,2,32265,0)="""^DD"",364.6,364.6,.03,1,4,2)"
^XMB(3.9,55,2,32266,0)="Q"
^XMB(3.9,55,2,32267,0)="""^DD"",364.6,364.6,.03,1,4,3)"
^XMB(3.9,55,2,32268,0)="DO NOT DELETE"
^XMB(3.9,55,2,32269,0)="""^DD"",364.6,364.6,.03,1,4,69.2)"
^XMB(3.9,55,2,32270,0)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^IBE(353,+D0,0)) D0=-1 S Y(102)=$C(59)_$S($D(^DD(353,2.02,0)):$P(^(0),U,3),1:"""")"
^XMB(3.9,55,2,32271,0)="""^DD"",364.6,364.6,.03,1,4,""%D"",0)"
^XMB(3.9,55,2,32272,0)="^^2^2^3000405^"
^XMB(3.9,55,2,32273,0)="""^DD"",364.6,364.6,.03,1,4,""%D"",1,0)"
^XMB(3.9,55,2,32274,0)="If an associated form that is not a screen form, column is taken from the"
^XMB(3.9,55,2,32275,0)="""^DD"",364.6,364.6,.03,1,4,""%D"",2,0)"
^XMB(3.9,55,2,32276,0)="associated with field definition."
^XMB(3.9,55,2,32277,0)="""^DD"",364.6,364.6,.03,1,4,""CREATE CONDITION"")"
^XMB(3.9,55,2,32278,0)="BILL FORM:FORMAT TYPE'=""BILLING SCREEN"""
^XMB(3.9,55,2,32279,0)="""^DD"",364.6,364.6,.03,1,4,""CREATE VALUE"")"
^XMB(3.9,55,2,32280,0)="@"
^XMB(3.9,55,2,32281,0)="""^DD"",364.6,364.6,.03,1,4,""DELETE VALUE"")"
^XMB(3.9,55,2,32282,0)="NO EFFECT"
^XMB(3.9,55,2,32283,0)="""^DD"",364.6,364.6,.03,1,4,""DT"")"
^XMB(3.9,55,2,32284,0)="3000405"
^XMB(3.9,55,2,32285,0)="""^DD"",364.6,364.6,.03,1,4,""FIELD"")"
^XMB(3.9,55,2,32286,0)="STARTING COLUMN"
^XMB(3.9,55,2,32287,0)="""^DD"",364.6,364.6,.03,1,5,0)"
^XMB(3.9,55,2,32288,0)="^^TRIGGER^364.6^.09"
^XMB(3.9,55,2,32289,0)="""^DD"",364.6,364.6,.03,1,5,1)"
^XMB(3.9,55,2,32290,0)="X ^DD(364.6,.03,1,5,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="""" X ^DD(364.6,.03,1,5,1.4)"
^XMB(3.9,55,2,32291,0)="""^DD"",364.6,364.6,.03,1,5,1.3)"
^XMB(3.9,55,2,32292,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(364.6,.03,1,5,69.2) S Y(101)=$S($D(^IBE(353,D0,2)):^(2),1:"""") S X=$P($P(Y(102),$C(59)_$P(Y(101),U,2)_"":"",2),$C(59),1)'=""BILLING SCREEN"" S D0=I(0,0)"
^XMB(3.9,55,2,32293,0)="""^DD"",364.6,364.6,.03,1,5,1.4)"
^XMB(3.9,55,2,32294,0)="S DIH=$S($D(^IBA(364.6,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,9)=DIV,DIH=364.6,DIG=.09 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,55,2,32295,0)="""^DD"",364.6,364.6,.03,1,5,2)"
^XMB(3.9,55,2,32296,0)="Q"
^XMB(3.9,55,2,32297,0)="""^DD"",364.6,364.6,.03,1,5,3)"
^XMB(3.9,55,2,32298,0)="DO NOT DELETE"
^XMB(3.9,55,2,32299,0)="""^DD"",364.6,364.6,.03,1,5,69.2)"
^XMB(3.9,55,2,32300,0)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^IBE(353,+D0,0)) D0=-1 S Y(102)=$C(59)_$S($D(^DD(353,2.02,0)):$P(^(0),U,3),1:"""")"
^XMB(3.9,55,2,32301,0)="""^DD"",364.6,364.6,.03,1,5,""%D"",0)"
^XMB(3.9,55,2,32302,0)="^^2^2^3000405^"
^XMB(3.9,55,2,32303,0)="""^DD"",364.6,364.6,.03,1,5,""%D"",1,0)"
^XMB(3.9,55,2,32304,0)="If an associated form that is not a screen form, length is taken from the"
^XMB(3.9,55,2,32305,0)="""^DD"",364.6,364.6,.03,1,5,""%D"",2,0)"
^XMB(3.9,55,2,32306,0)="associated with field definition."
^XMB(3.9,55,2,32307,0)="""^DD"",364.6,364.6,.03,1,5,""CREATE CONDITION"")"
^XMB(3.9,55,2,32308,0)="BILL FORM:FORMAT TYPE'=""BILLING SCREEN"""
^XMB(3.9,55,2,32309,0)="""^DD"",364.6,364.6,.03,1,5,""CREATE VALUE"")"
^XMB(3.9,55,2,32310,0)="@"
^XMB(3.9,55,2,32311,0)="""^DD"",364.6,364.6,.03,1,5,""DELETE VALUE"")"
^XMB(3.9,55,2,32312,0)="NO EFFECT"
^XMB(3.9,55,2,32313,0)="""^DD"",364.6,364.6,.03,1,5,""DT"")"
^XMB(3.9,55,2,32314,0)="3000405"
^XMB(3.9,55,2,32315,0)="""^DD"",364.6,364.6,.03,1,5,""FIELD"")"
^XMB(3.9,55,2,32316,0)="LENGTH"
^XMB(3.9,55,2,32317,0)="""^DD"",364.6,364.6,.03,1,6,0)"
^XMB(3.9,55,2,32318,0)="^^TRIGGER^364.6^.06"
^XMB(3.9,55,2,32319,0)="""^DD"",364.6,364.6,.03,1,6,1)"
^XMB(3.9,55,2,32320,0)="X ^DD(364.6,.03,1,6,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="""" X ^DD(364.6,.03,1,6,1.4)"
^XMB(3.9,55,2,32321,0)="""^DD"",364.6,364.6,.03,1,6,1.3)"
^XMB(3.9,55,2,32322,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(364.6,.03,1,6,69.2) S Y(101)=$S($D(^IBE(353,D0,2)):^(2),1:"""") S X=$P($P(Y(102),$C(59)_$P(Y(101),U,2)_"":"",2),$C(59),1)'=""BILLING SCREEN"" S D0=I(0,0)"
^XMB(3.9,55,2,32323,0)="""^DD"",364.6,364.6,.03,1,6,1.4)"
^XMB(3.9,55,2,32324,0)="S DIH=$S($D(^IBA(364.6,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,6)=DIV,DIH=364.6,DIG=.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,55,2,32325,0)="""^DD"",364.6,364.6,.03,1,6,2)"
^XMB(3.9,55,2,32326,0)="Q"
^XMB(3.9,55,2,32327,0)="""^DD"",364.6,364.6,.03,1,6,3)"
^XMB(3.9,55,2,32328,0)="DO NOT DELETE"
^XMB(3.9,55,2,32329,0)="""^DD"",364.6,364.6,.03,1,6,69.2)"
^XMB(3.9,55,2,32330,0)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^IBE(353,+D0,0)) D0=-1 S Y(102)=$C(59)_$S($D(^DD(353,2.02,0)):$P(^(0),U,3),1:"""")"
^XMB(3.9,55,2,32331,0)="""^DD"",364.6,364.6,.03,1,6,""%D"",0)"
^XMB(3.9,55,2,32332,0)="^^2^2^3000405^"
^XMB(3.9,55,2,32333,0)="""^DD"",364.6,364.6,.03,1,6,""%D"",1,0)"
^XMB(3.9,55,2,32334,0)="If associated form that is not a screen form, the max number lines is taken"
^XMB(3.9,55,2,32335,0)="""^DD"",364.6,364.6,.03,1,6,""%D"",2,0)"
^XMB(3.9,55,2,32336,0)="from the associated with field definition."
^XMB(3.9,55,2,32337,0)="""^DD"",364.6,364.6,.03,1,6,""CREATE CONDITION"")"
^XMB(3.9,55,2,32338,0)="BILL FORM:FORMAT TYPE'=""BILLING SCREEN"""
^XMB(3.9,55,2,32339,0)="""^DD"",364.6,364.6,.03,1,6,""CREATE VALUE"")"
^XMB(3.9,55,2,32340,0)="@"
^XMB(3.9,55,2,32341,0)="""^DD"",364.6,364.6,.03,1,6,""DELETE VALUE"")"
^XMB(3.9,55,2,32342,0)="NO EFFECT"
^XMB(3.9,55,2,32343,0)="""^DD"",364.6,364.6,.03,1,6,""DT"")"
^XMB(3.9,55,2,32344,0)="3000405"
^XMB(3.9,55,2,32345,0)="""^DD"",364.6,364.6,.03,1,6,""FIELD"")"
^XMB(3.9,55,2,32346,0)="MAX NUMBER LINES"
^XMB(3.9,55,2,32347,0)="""^DD"",364.6,364.6,.03,1,7,0)"
^XMB(3.9,55,2,32348,0)="^^TRIGGER^364.6^.02"
^XMB(3.9,55,2,32349,0)="""^DD"",364.6,364.6,.03,1,7,1)"
^XMB(3.9,55,2,32350,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=""L"" X ^DD(364.6,.03,1,7,1.4)"
^XMB(3.9,55,2,32351,0)="""^DD"",364.6,364.6,.03,1,7,1.4)"
^XMB(3.9,55,2,32352,0)="S DIH=$S($D(^IBA(364.6,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=364.6,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,55,2,32353,0)="""^DD"",364.6,364.6,.03,1,7,2)"
^XMB(3.9,55,2,32354,0)="Q"
^XMB(3.9,55,2,32355,0)="""^DD"",364.6,364.6,.03,1,7,3)"
^XMB(3.9,55,2,32356,0)="DO NOT DELETE"
^XMB(3.9,55,2,32357,0)="""^DD"",364.6,364.6,.03,1,7,""%D"",0)"
^XMB(3.9,55,2,32358,0)="^^1^1^2960117^"
^XMB(3.9,55,2,32359,0)="""^DD"",364.6,364.6,.03,1,7,""%D"",1,0)"
^XMB(3.9,55,2,32360,0)="Only local entries can be associated."
^XMB(3.9,55,2,32361,0)="""^DD"",364.6,364.6,.03,1,7,""CREATE VALUE"")"
^XMB(3.9,55,2,32362,0)="""L"""
^XMB(3.9,55,2,32363,0)="""^DD"",364.6,364.6,.03,1,7,""DELETE VALUE"")"
^XMB(3.9,55,2,32364,0)="NO EFFECT"
^XMB(3.9,55,2,32365,0)="""^DD"",364.6,364.6,.03,1,7,""DT"")"
^XMB(3.9,55,2,32366,0)="2960117"
^XMB(3.9,55,2,32367,0)="""^DD"",364.6,364.6,.03,1,7,""FIELD"")"
^XMB(3.9,55,2,32368,0)="SECURITY LEVEL"
^XMB(3.9,55,2,32369,0)="""^DD"",364.6,364.6,.03,3)"
^XMB(3.9,55,2,32370,0)="Enter the form definition record this definition will override."
^XMB(3.9,55,2,32371,0)="""^DD"",364.6,364.6,.03,5,1,0)"
^XMB(3.9,55,2,32372,0)="364.6^.01^4"
^XMB(3.9,55,2,32373,0)="""^DD"",364.6,364.6,.03,21,0)"
^XMB(3.9,55,2,32374,0)="^^1^1^2960117^^"
^XMB(3.9,55,2,32375,0)="""^DD"",364.6,364.6,.03,21,1,0)"
^XMB(3.9,55,2,32376,0)="The form definition record this definition will override."
^XMB(3.9,55,2,32377,0)="""^DD"",364.6,364.6,.03,""DT"")"
^XMB(3.9,55,2,32378,0)="3000414"
^XMB(3.9,55,2,32379,0)="""^DD"",364.6,364.6,.04,0)"
^XMB(3.9,55,2,32380,0)="PAGE OR SEQUENCE^FX^^0;4^K:$L(X)>20!($L(X)<1) X I $D(X),$S($P($G(^IBE(353,+$G(^IBA(364.6,+DA,0)),2)),U,2)=""S"":0,1:$P($G(^IBA(364.6,DA,0)),U,3))!$$DUP^IBCEFG0(DA,X,2) K X"
^XMB(3.9,55,2,32381,0)="""^DD"",364.6,364.6,.04,1,0)"
^XMB(3.9,55,2,32382,0)="^.1^^-1"
^XMB(3.9,55,2,32383,0)="""^DD"",364.6,364.6,.04,1,1,0)"
^XMB(3.9,55,2,32384,0)="364.6^ASEQ1^MUMPS"
^XMB(3.9,55,2,32385,0)="""^DD"",364.6,364.6,.04,1,1,1)"
^XMB(3.9,55,2,32386,0)="N Z0,Z1,Z2,Z3 S Z0=$G(^IBA(364.6,DA,0)),Z1=+Z0,Z2=$P(Z0,U,5),Z3=$P(Z0,U,8) I Z1,Z2,Z3 S ^IBA(364.6,""ASEQ"",Z1,$E(X,1,30),Z2,Z3,DA)="""""
^XMB(3.9,55,2,32387,0)="""^DD"",364.6,364.6,.04,1,1,2)"
^XMB(3.9,55,2,32388,0)="N Z0,Z1,Z2,Z3 S Z0=$G(^IBA(364.6,DA,0)),Z1=+Z0,Z2=$P(Z0,U,5),Z3=$P(Z0,U,8) I Z1,Z2,Z3 K ^IBA(364.6,""ASEQ"",Z1,$E(X,1,30),Z2,Z3,DA)"
^XMB(3.9,55,2,32389,0)="""^DD"",364.6,364.6,.04,1,1,3)"
^XMB(3.9,55,2,32390,0)="DO NOT DELETE"
^XMB(3.9,55,2,32391,0)="""^DD"",364.6,364.6,.04,1,1,""%D"",0)"
^XMB(3.9,55,2,32392,0)="^^1^1^2960117^"
^XMB(3.9,55,2,32393,0)="""^DD"",364.6,364.6,.04,1,1,""%D"",1,0)"
^XMB(3.9,55,2,32394,0)="This xref contains the sequence to use to extract or print the form fields."
^XMB(3.9,55,2,32395,0)="""^DD"",364.6,364.6,.04,1,1,""DT"")"
^XMB(3.9,55,2,32396,0)="2960117"
^XMB(3.9,55,2,32397,0)="""^DD"",364.6,364.6,.04,3)"
^XMB(3.9,55,2,32398,0)="This data must be 1-20 char long, can't be an assoc form, and must be a unique form/page/line/column."
^XMB(3.9,55,2,32399,0)="""^DD"",364.6,364.6,.04,5,1,0)"
^XMB(3.9,55,2,32400,0)="364.6^.03^2"
^XMB(3.9,55,2,32401,0)="""^DD"",364.6,364.6,.04,21,0)"
^XMB(3.9,55,2,32402,0)="^^4^4^2960318^^^^"
^XMB(3.9,55,2,32403,0)="""^DD"",364.6,364.6,.04,21,1,0)"
^XMB(3.9,55,2,32404,0)="This field is used to specify the page, section, transaction segment, etc."
^XMB(3.9,55,2,32405,0)="""^DD"",364.6,364.6,.04,21,2,0)"
^XMB(3.9,55,2,32406,0)="that the data element is to be associated with.  This field will be used as"
^XMB(3.9,55,2,32407,0)="""^DD"",364.6,364.6,.04,21,3,0)"
^XMB(3.9,55,2,32408,0)="the second-level sort field when extracting data fields for this form."
^XMB(3.9,55,2,32409,0)="""^DD"",364.6,364.6,.04,21,4,0)"
^XMB(3.9,55,2,32410,0)="The combination of form/page/line/column must be unique."
^XMB(3.9,55,2,32411,0)="""^DD"",364.6,364.6,.04,""DT"")"
^XMB(3.9,55,2,32412,0)="3000428"
^XMB(3.9,55,2,32413,0)="""^DD"",364.6,364.6,.05,0)"
^XMB(3.9,55,2,32414,0)="FIRST LINE NUMBER^NJ4,0X^^0;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X I $D(X),$S($P($G(^IBE(353,+$G(^IBA(364.6,+DA,0)),2)),U,2)=""S"":0,1:$P($G(^IBA(364.6,DA,0)),U,3))!$$DUP^IBCEFG0(DA,X,3) K X"
^XMB(3.9,55,2,32415,0)="""^DD"",364.6,364.6,.05,.1)"
^XMB(3.9,55,2,32416,0)="LINE"
^XMB(3.9,55,2,32417,0)="""^DD"",364.6,364.6,.05,1,0)"
^XMB(3.9,55,2,32418,0)="^.1"
^XMB(3.9,55,2,32419,0)="""^DD"",364.6,364.6,.05,1,1,0)"
^XMB(3.9,55,2,32420,0)="364.6^ASEQ2^MUMPS"
^XMB(3.9,55,2,32421,0)="""^DD"",364.6,364.6,.05,1,1,1)"
^XMB(3.9,55,2,32422,0)="N Z0,Z1,Z2,Z3 S Z0=$G(^IBA(364.6,DA,0)),Z1=+Z0,Z2=$P(Z0,U,4),Z3=$P(Z0,U,8) I Z1,Z2'="""",Z3 S ^IBA(364.6,""ASEQ"",Z1,Z2,$E(X,1,30),Z3,DA)="""""
^XMB(3.9,55,2,32423,0)="""^DD"",364.6,364.6,.05,1,1,2)"
^XMB(3.9,55,2,32424,0)="N Z0,Z1,Z2,Z3 S Z0=$G(^IBA(364.6,DA,0)),Z1=+Z0,Z2=$P(Z0,U,4),Z3=$P(Z0,U,8) I Z1,Z2'="""",Z3 K ^IBA(364.6,""ASEQ"",Z1,Z2,$E(X,1,30),Z3,DA)"
^XMB(3.9,55,2,32425,0)="""^DD"",364.6,364.6,.05,1,1,3)"
^XMB(3.9,55,2,32426,0)="DO NOT DELETE"
^XMB(3.9,55,2,32427,0)="""^DD"",364.6,364.6,.05,1,1,""%D"",0)"
^XMB(3.9,55,2,32428,0)="^^1^1^2960117^^^^"
^XMB(3.9,55,2,32429,0)="""^DD"",364.6,364.6,.05,1,1,""%D"",1,0)"
^XMB(3.9,55,2,32430,0)="This xref contains the sequence to use to extract or print the form fields."
^XMB(3.9,55,2,32431,0)="""^DD"",364.6,364.6,.05,1,1,""DT"")"
^XMB(3.9,55,2,32432,0)="2960117"
^XMB(3.9,55,2,32433,0)="""^DD"",364.6,364.6,.05,3)"
^XMB(3.9,55,2,32434,0)="Type a # 0-9999, 0 Decimals, can't be assoc form, need unique form/pg/line/col."
^XMB(3.9,55,2,32435,0)="""^DD"",364.6,364.6,.05,5,1,0)"
^XMB(3.9,55,2,32436,0)="364.6^.03^3"
^XMB(3.9,55,2,32437,0)="""^DD"",364.6,364.6,.05,21,0)"
^XMB(3.9,55,2,32438,0)="^^5^5^2960318^^^"
^XMB(3.9,55,2,32439,0)="""^DD"",364.6,364.6,.05,21,1,0)"
^XMB(3.9,55,2,32440,0)="If this is a printed form, this is the first line number that this data"
^XMB(3.9,55,2,32441,0)="""^DD"",364.6,364.6,.05,21,2,0)"
^XMB(3.9,55,2,32442,0)="element will appear on.  For transmitted forms, this is assumed to always"
^XMB(3.9,55,2,32443,0)="""^DD"",364.6,364.6,.05,21,3,0)"
^XMB(3.9,55,2,32444,0)="be a 1.  This will be used as the third-level sort field when extracting"
^XMB(3.9,55,2,32445,0)="""^DD"",364.6,364.6,.05,21,4,0)"
^XMB(3.9,55,2,32446,0)="data fields for this form.  The combination of form/page/line/column must"
^XMB(3.9,55,2,32447,0)="""^DD"",364.6,364.6,.05,21,5,0)"
^XMB(3.9,55,2,32448,0)="be unique."
^XMB(3.9,55,2,32449,0)="""^DD"",364.6,364.6,.05,""DT"")"
^XMB(3.9,55,2,32450,0)="3000428"
^XMB(3.9,55,2,32451,0)="""^DD"",364.6,364.6,.06,0)"
^XMB(3.9,55,2,32452,0)="MAX NUMBER LINES^NJ3,0X^^0;6^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X I $D(X),$P($G(^IBA(364.6,DA,0)),U,3) K X"
^XMB(3.9,55,2,32453,0)="""^DD"",364.6,364.6,.06,3)"
^XMB(3.9,55,2,32454,0)="Type a Number between 0 and 999, 0 Decimal Digits (can't be an associated form)."
^XMB(3.9,55,2,32455,0)="""^DD"",364.6,364.6,.06,5,1,0)"
^XMB(3.9,55,2,32456,0)="364.6^.03^6"
^XMB(3.9,55,2,32457,0)="""^DD"",364.6,364.6,.06,21,0)"
^XMB(3.9,55,2,32458,0)="^^2^2^2951205^"
^XMB(3.9,55,2,32459,0)="""^DD"",364.6,364.6,.06,21,1,0)"
^XMB(3.9,55,2,32460,0)="If a printed form, this is the highest numbered line number that this data"
^XMB(3.9,55,2,32461,0)="""^DD"",364.6,364.6,.06,21,2,0)"
^XMB(3.9,55,2,32462,0)="element is allowed to print on."
^XMB(3.9,55,2,32463,0)="""^DD"",364.6,364.6,.06,""DT"")"
^XMB(3.9,55,2,32464,0)="2960117"
^XMB(3.9,55,2,32465,0)="""^DD"",364.6,364.6,.07,0)"
^XMB(3.9,55,2,32466,0)="LOCAL OVERRIDE ALLOWED^S^0:NO;1:YES;^0;7^Q"
^XMB(3.9,55,2,32467,0)="""^DD"",364.6,364.6,.07,3)"
^XMB(3.9,55,2,32468,0)="Enter 0 (NO) to prevent local override, 1 to allow local override."
^XMB(3.9,55,2,32469,0)="""^DD"",364.6,364.6,.07,21,0)"
^XMB(3.9,55,2,32470,0)="^.001^2^2^3020822^^"
^XMB(3.9,55,2,32471,0)="""^DD"",364.6,364.6,.07,21,1,0)"
^XMB(3.9,55,2,32472,0)="This controls whether or not the output forms generator will allow for a"
^XMB(3.9,55,2,32473,0)="""^DD"",364.6,364.6,.07,21,2,0)"
^XMB(3.9,55,2,32474,0)="redefinition of this record via a local override."
^XMB(3.9,55,2,32475,0)="""^DD"",364.6,364.6,.07,""DT"")"
^XMB(3.9,55,2,32476,0)="2960311"
^XMB(3.9,55,2,32477,0)="""^DD"",364.6,364.6,.08,0)"
^XMB(3.9,55,2,32478,0)="STARTING COLUMN OR PIECE^NJ3,1X^^0;8^K:+X'=X!(X>999)!(X<0)!($S(X[""."":X'?.E1"".""1.2N,1:0)) X I $D(X),$S($P($G(^IBE(353,+$G(^IBA(364.6,+DA,0)),2)),U,2)=""S"":0,1:$P($G(^IBA(364.6,DA,0)),U,3))!$$DUP^IBCEFG0(DA,X,4) K X"
^XMB(3.9,55,2,32479,0)="""^DD"",364.6,364.6,.08,.1)"
^XMB(3.9,55,2,32480,0)="COLUMN"
^XMB(3.9,55,2,32481,0)="""^DD"",364.6,364.6,.08,1,0)"
^XMB(3.9,55,2,32482,0)="^.1"
^XMB(3.9,55,2,32483,0)="""^DD"",364.6,364.6,.08,1,1,0)"
^XMB(3.9,55,2,32484,0)="364.6^ASEQ3^MUMPS"
^XMB(3.9,55,2,32485,0)="""^DD"",364.6,364.6,.08,1,1,1)"
^XMB(3.9,55,2,32486,0)="N Z0,Z1,Z2,Z3 S Z0=$G(^IBA(364.6,DA,0)),Z1=+Z0,Z2=$P(Z0,U,4),Z3=$P(Z0,U,5) I Z1,Z2'="""",Z3 S ^IBA(364.6,""ASEQ"",Z1,Z2,Z3,$E(X,1,30),DA)="""""
^XMB(3.9,55,2,32487,0)="""^DD"",364.6,364.6,.08,1,1,2)"
^XMB(3.9,55,2,32488,0)="N Z0,Z1,Z2,Z3 S Z0=$G(^IBA(364.6,DA,0)),Z1=+Z0,Z2=$P(Z0,U,4),Z3=$P(Z0,U,5) I Z1,Z2'="""",Z3 K ^IBA(364.6,""ASEQ"",Z1,Z2,Z3,$E(X,1,30),DA)"
^XMB(3.9,55,2,32489,0)="""^DD"",364.6,364.6,.08,1,1,3)"
^XMB(3.9,55,2,32490,0)="DO NOT DELETE"
^XMB(3.9,55,2,32491,0)="""^DD"",364.6,364.6,.08,1,1,""%D"",0)"
^XMB(3.9,55,2,32492,0)="^^1^1^2960117^"
^XMB(3.9,55,2,32493,0)="""^DD"",364.6,364.6,.08,1,1,""%D"",1,0)"
^XMB(3.9,55,2,32494,0)="This xref contains the sequence to use to extract or print the form fields."
^XMB(3.9,55,2,32495,0)="""^DD"",364.6,364.6,.08,1,1,""DT"")"
^XMB(3.9,55,2,32496,0)="2960117"
^XMB(3.9,55,2,32497,0)="""^DD"",364.6,364.6,.08,1,2,0)"
^XMB(3.9,55,2,32498,0)="^^TRIGGER^364.6^.11"
^XMB(3.9,55,2,32499,0)="""^DD"",364.6,364.6,.08,1,2,1)"
^XMB(3.9,55,2,32500,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0)[""."" I X S X=DIV S Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=1 X ^DD(364.6,.08,1,2,1.4)"
^XMB(3.9,55,2,32501,0)="""^DD"",364.6,364.6,.08,1,2,1.4)"
^XMB(3.9,55,2,32502,0)="S DIH=$S($D(^IBA(364.6,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,11)=DIV,DIH=364.6,DIG=.11 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,55,2,32503,0)="""^DD"",364.6,364.6,.08,1,2,2)"
^XMB(3.9,55,2,32504,0)="Q"
^XMB(3.9,55,2,32505,0)="""^DD"",364.6,364.6,.08,1,2,3)"
^XMB(3.9,55,2,32506,0)="DO NOT DELETE"
^XMB(3.9,55,2,32507,0)="""^DD"",364.6,364.6,.08,1,2,""%D"",0)"
^XMB(3.9,55,2,32508,0)="^^2^2^2960126^^^"
^XMB(3.9,55,2,32509,0)="""^DD"",364.6,364.6,.08,1,2,""%D"",1,0)"
^XMB(3.9,55,2,32510,0)="If the starting column or piece is not a whole number, this must be a"
^XMB(3.9,55,2,32511,0)="""^DD"",364.6,364.6,.08,1,2,""%D"",2,0)"
^XMB(3.9,55,2,32512,0)="calculate only field - no output."
^XMB(3.9,55,2,32513,0)="""^DD"",364.6,364.6,.08,1,2,""CREATE CONDITION"")"
^XMB(3.9,55,2,32514,0)="STARTING COLUMN OR PIECE[""."""
^XMB(3.9,55,2,32515,0)="""^DD"",364.6,364.6,.08,1,2,""CREATE VALUE"")"
^XMB(3.9,55,2,32516,0)="S X=1"
^XMB(3.9,55,2,32517,0)="""^DD"",364.6,364.6,.08,1,2,""DELETE VALUE"")"
^XMB(3.9,55,2,32518,0)="NO EFFECT"
^XMB(3.9,55,2,32519,0)="""^DD"",364.6,364.6,.08,1,2,""DT"")"
^XMB(3.9,55,2,32520,0)="2960126"
^XMB(3.9,55,2,32521,0)="""^DD"",364.6,364.6,.08,1,2,""FIELD"")"
^XMB(3.9,55,2,32522,0)="#.11"
^XMB(3.9,55,2,32523,0)="""^DD"",364.6,364.6,.08,3)"
^XMB(3.9,55,2,32524,0)="Type a # 0-9999, 1-2 Decimals, can't be assoc form, need unique form/pg/line/col."
^XMB(3.9,55,2,32525,0)="""^DD"",364.6,364.6,.08,5,1,0)"
^XMB(3.9,55,2,32526,0)="364.6^.03^4"
^XMB(3.9,55,2,32527,0)="""^DD"",364.6,364.6,.08,21,0)"
^XMB(3.9,55,2,32528,0)="^^5^5^2960318^^^^"
^XMB(3.9,55,2,32529,0)="""^DD"",364.6,364.6,.08,21,1,0)"
^XMB(3.9,55,2,32530,0)="This is the column on the form, position in the data string (for non-printed"
^XMB(3.9,55,2,32531,0)="""^DD"",364.6,364.6,.08,21,2,0)"
^XMB(3.9,55,2,32532,0)="forms) -  starting at position 1, or delimited piece that this data element"
^XMB(3.9,55,2,32533,0)="""^DD"",364.6,364.6,.08,21,3,0)"
^XMB(3.9,55,2,32534,0)="is to be printed or stored in.  This will be used as the fourth-level sort"
^XMB(3.9,55,2,32535,0)="""^DD"",364.6,364.6,.08,21,4,0)"
^XMB(3.9,55,2,32536,0)="field when extracting data fields for this form.  The combination of"
^XMB(3.9,55,2,32537,0)="""^DD"",364.6,364.6,.08,21,5,0)"
^XMB(3.9,55,2,32538,0)="form/page/line/column must be unique."
^XMB(3.9,55,2,32539,0)="""^DD"",364.6,364.6,.08,""DT"")"
^XMB(3.9,55,2,32540,0)="3000428"
^XMB(3.9,55,2,32541,0)="""^DD"",364.6,364.6,.09,0)"
^XMB(3.9,55,2,32542,0)="LENGTH^NJ3,0X^^0;9^K:+X'=X!(X>250)!(X<1)!(X?.E1"".""1N.N) X I $D(X),$P($G(^IBA(364.6,DA,0)),U,3),$P($G(^IBE(353,+^IBA(364.6,DA,0),2)),U,2)'=""S"" K X"
^XMB(3.9,55,2,32543,0)="""^DD"",364.6,364.6,.09,3)"
^XMB(3.9,55,2,32544,0)="Type a Number between 1 and 250, 0 Decimal Digits (can't be an associated form)."
^XMB(3.9,55,2,32545,0)="""^DD"",364.6,364.6,.09,5,1,0)"
^XMB(3.9,55,2,32546,0)="364.6^.03^5"
^XMB(3.9,55,2,32547,0)="""^DD"",364.6,364.6,.09,21,0)"
^XMB(3.9,55,2,32548,0)="^^3^3^2951205^"
^XMB(3.9,55,2,32549,0)="""^DD"",364.6,364.6,.09,21,1,0)"
^XMB(3.9,55,2,32550,0)="The length desired for the data element.  If present, this field will be used"
^XMB(3.9,55,2,32551,0)="""^DD"",364.6,364.6,.09,21,2,0)"
^XMB(3.9,55,2,32552,0)="to truncate or pad the data element to this length after the element has been"
^XMB(3.9,55,2,32553,0)="""^DD"",364.6,364.6,.09,21,3,0)"
^XMB(3.9,55,2,32554,0)="passed through the routine identified in the FORMAT ROUTINE field."
^XMB(3.9,55,2,32555,0)="""^DD"",364.6,364.6,.09,""DT"")"
^XMB(3.9,55,2,32556,0)="3000111"
^XMB(3.9,55,2,32557,0)="""^DD"",364.6,364.6,.1,0)"
^XMB(3.9,55,2,32558,0)="SHORT DESCRIPTION^F^^0;10^K:$L(X)>30!($L(X)<1) X"
^XMB(3.9,55,2,32559,0)="""^DD"",364.6,364.6,.1,1,0)"
^XMB(3.9,55,2,32560,0)="^.1"
^XMB(3.9,55,2,32561,0)="""^DD"",364.6,364.6,.1,1,1,0)"
^XMB(3.9,55,2,32562,0)="364.6^C"
^XMB(3.9,55,2,32563,0)="""^DD"",364.6,364.6,.1,1,1,1)"
^XMB(3.9,55,2,32564,0)="S ^IBA(364.6,""C"",$E(X,1,30),DA)="""""
^XMB(3.9,55,2,32565,0)="""^DD"",364.6,364.6,.1,1,1,2)"
^XMB(3.9,55,2,32566,0)="K ^IBA(364.6,""C"",$E(X,1,30),DA)"
^XMB(3.9,55,2,32567,0)="""^DD"",364.6,364.6,.1,1,1,3)"
^XMB(3.9,55,2,32568,0)="DO NOT DELETE"
^XMB(3.9,55,2,32569,0)="""^DD"",364.6,364.6,.1,1,1,""%D"",0)"
^XMB(3.9,55,2,32570,0)="^^1^1^2960123^"
^XMB(3.9,55,2,32571,0)="""^DD"",364.6,364.6,.1,1,1,""%D"",1,0)"
^XMB(3.9,55,2,32572,0)="Field name lookup"
^XMB(3.9,55,2,32573,0)="""^DD"",364.6,364.6,.1,1,1,""DT"")"
^XMB(3.9,55,2,32574,0)="2960123"
^XMB(3.9,55,2,32575,0)="""^DD"",364.6,364.6,.1,3)"
^XMB(3.9,55,2,32576,0)="Answer must be 1-30 characters in length."
^XMB(3.9,55,2,32577,0)="""^DD"",364.6,364.6,.1,21,0)"
^XMB(3.9,55,2,32578,0)="^^2^2^2951207^"
^XMB(3.9,55,2,32579,0)="""^DD"",364.6,364.6,.1,21,1,0)"
^XMB(3.9,55,2,32580,0)="This is a short description of the field that is used as an identifier to"
^XMB(3.9,55,2,32581,0)="""^DD"",364.6,364.6,.1,21,2,0)"
^XMB(3.9,55,2,32582,0)="make lookups on this file meaningful."
^XMB(3.9,55,2,32583,0)="""^DD"",364.6,364.6,.1,""DT"")"
^XMB(3.9,55,2,32584,0)="2960123"
^XMB(3.9,55,2,32585,0)="""^DD"",364.6,364.6,.11,0)"
^XMB(3.9,55,2,32586,0)="CALCULATE ONLY OR OUTPUT^S^1:CALCULATE ONLY;0:OUTPUT;^0;11^Q"
^XMB(3.9,55,2,32587,0)="""^DD"",364.6,364.6,.11,3)"
^XMB(3.9,55,2,32588,0)="Enter 1 if this field is used for calculation purposes and is not meant to be output"
^XMB(3.9,55,2,32589,0)="""^DD"",364.6,364.6,.11,5,1,0)"
^XMB(3.9,55,2,32590,0)="364.6^.08^2"
^XMB(3.9,55,2,32591,0)="""^DD"",364.6,364.6,.11,21,0)"
^XMB(3.9,55,2,32592,0)="^^4^4^2960715^^^^"
^XMB(3.9,55,2,32593,0)="""^DD"",364.6,364.6,.11,21,1,0)"
^XMB(3.9,55,2,32594,0)="This field is set to 1 if there is a need to do a special extract or"
^XMB(3.9,55,2,32595,0)="""^DD"",364.6,364.6,.11,21,2,0)"
^XMB(3.9,55,2,32596,0)="calculation at some point in the processing, but no output is desired"
^XMB(3.9,55,2,32597,0)="""^DD"",364.6,364.6,.11,21,3,0)"
^XMB(3.9,55,2,32598,0)="from the field's code execution.  Used to set up arrays for group elements"
^XMB(3.9,55,2,32599,0)="""^DD"",364.6,364.6,.11,21,4,0)"
^XMB(3.9,55,2,32600,0)="then the individual elements are output separately."
^XMB(3.9,55,2,32601,0)="""^DD"",364.6,364.6,.11,""DT"")"
^XMB(3.9,55,2,32602,0)="2960715"
^XMB(3.9,55,2,32603,0)="""^DD"",364.6,364.6,.12,0)"
^XMB(3.9,55,2,32604,0)="TRANSMIT IGNORES IF NULL^S^0:FALSE;1:TRUE;^0;12^Q"
^XMB(3.9,55,2,32605,0)="""^DD"",364.6,364.6,.12,3)"
^XMB(3.9,55,2,32606,0)="Enter 1 (TRUE) if there should be no entry made in the output global if the data value of the element is null."
^XMB(3.9,55,2,32607,0)="""^DD"",364.6,364.6,.12,21,0)"
^XMB(3.9,55,2,32608,0)="^.001^5^5^3001030^^^"
^XMB(3.9,55,2,32609,0)="""^DD"",364.6,364.6,.12,21,1,0)"
^XMB(3.9,55,2,32610,0)="This field can be used to suppress output of a field if its value is null."
^XMB(3.9,55,2,32611,0)="""^DD"",364.6,364.6,.12,21,2,0)"
^XMB(3.9,55,2,32612,0)="If not suppressed, an entry is made in the output global used by the"
^XMB(3.9,55,2,32613,0)="""^DD"",364.6,364.6,.12,21,3,0)"
^XMB(3.9,55,2,32614,0)="formatter, regardless of the contents of the data for this field."
^XMB(3.9,55,2,32615,0)="""^DD"",364.6,364.6,.12,21,4,0)"
^XMB(3.9,55,2,32616,0)="Supressing the value results in no output to the formatter's output"
^XMB(3.9,55,2,32617,0)="""^DD"",364.6,364.6,.12,21,5,0)"
^XMB(3.9,55,2,32618,0)="global if the value of the data for this field is determined to be null."
^XMB(3.9,55,2,32619,0)="""^DD"",364.6,364.6,.12,""DT"")"
^XMB(3.9,55,2,32620,0)="2991006"
^XMB(3.9,55,2,32621,0)="""^DD"",364.6,364.6,.13,0)"
^XMB(3.9,55,2,32622,0)="DATA REQUIRED FOR FIELD^S^1:YES;0:NO;^0;13^Q"
^XMB(3.9,55,2,32623,0)="""^DD"",364.6,364.6,.13,3)"
^XMB(3.9,55,2,32624,0)="Enter yes if there should always be data in this field."
^XMB(3.9,55,2,32625,0)="""^DD"",364.6,364.6,.13,21,0)"
^XMB(3.9,55,2,32626,0)="^^2^2^3000216^"
^XMB(3.9,55,2,32627,0)="""^DD"",364.6,364.6,.13,21,1,0)"
^XMB(3.9,55,2,32628,0)="This field is a flag that will stop the output of a record if this field"
^XMB(3.9,55,2,32629,0)="""^DD"",364.6,364.6,.13,21,2,0)"
^XMB(3.9,55,2,32630,0)="indicates data is required and the data extracted is null."
^XMB(3.9,55,2,32631,0)="""^DD"",364.6,364.6,.13,""DT"")"
^XMB(3.9,55,2,32632,0)="3000216"
^XMB(3.9,55,2,32633,0)="""^DD"",364.7,364.7,0)"
^XMB(3.9,55,2,32634,0)="FIELD^^3^12"
^XMB(3.9,55,2,32635,0)="""^DD"",364.7,364.7,0,""DDA"")"
^XMB(3.9,55,2,32636,0)="N"
^XMB(3.9,55,2,32637,0)="""^DD"",364.7,364.7,0,""DT"")"
^XMB(3.9,55,2,32638,0)="2960710"
^XMB(3.9,55,2,32639,0)="""^DD"",364.7,364.7,0,""ID"",.03)"
^XMB(3.9,55,2,32640,0)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^IBA(364.5,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(364.5,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^XMB(3.9,55,2,32641,0)="""^DD"",364.7,364.7,0,""IX"",""AINS"",364.7,.01)"
^XMB(3.9,55,2,32642,0)=""
^XMB(3.9,55,2,32643,0)="""^DD"",364.7,364.7,0,""IX"",""AINS1"",364.7,.05)"
^XMB(3.9,55,2,32644,0)=""
^XMB(3.9,55,2,32645,0)="""^DD"",364.7,364.7,0,""IX"",""AINTYP"",364.7,.01)"
^XMB(3.9,55,2,32646,0)=""
^XMB(3.9,55,2,32647,0)="""^DD"",364.7,364.7,0,""IX"",""AINTYP1"",364.7,.05)"
^XMB(3.9,55,2,32648,0)=""
^XMB(3.9,55,2,32649,0)="""^DD"",364.7,364.7,0,""IX"",""AINTYP2"",364.7,.06)"
^XMB(3.9,55,2,32650,0)=""
^XMB(3.9,55,2,32651,0)="""^DD"",364.7,364.7,0,""IX"",""ATYPE"",364.7,.01)"
^XMB(3.9,55,2,32652,0)=""
^XMB(3.9,55,2,32653,0)="""^DD"",364.7,364.7,0,""IX"",""ATYPE1"",364.7,.06)"
^XMB(3.9,55,2,32654,0)=""
^XMB(3.9,55,2,32655,0)="""^DD"",364.7,364.7,0,""IX"",""B"",364.7,.01)"
^XMB(3.9,55,2,32656,0)=""
^XMB(3.9,55,2,32657,0)="""^DD"",364.7,364.7,0,""IX"",""C"",364.7,.03)"
^XMB(3.9,55,2,32658,0)=""
^XMB(3.9,55,2,32659,0)="""^DD"",364.7,364.7,0,""NM"",""IB FORM FIELD CONTENT"")"
^XMB(3.9,55,2,32660,0)=" "
^XMB(3.9,55,2,32661,0)="""^DD"",364.7,364.7,0,""VRPK"")"
^XMB(3.9,55,2,32662,0)="IB"
^XMB(3.9,55,2,32663,0)="""^DD"",364.7,364.7,.01,0)"
^XMB(3.9,55,2,32664,0)="FORM FIELD REFERENCE^RP364.6'^IBA(364.6,^0;1^Q"
^XMB(3.9,55,2,32665,0)="""^DD"",364.7,364.7,.01,1,0)"
^XMB(3.9,55,2,32666,0)="^.1"
^XMB(3.9,55,2,32667,0)="""^DD"",364.7,364.7,.01,1,1,0)"
^XMB(3.9,55,2,32668,0)="364.7^B"
^XMB(3.9,55,2,32669,0)="""^DD"",364.7,364.7,.01,1,1,1)"
^XMB(3.9,55,2,32670,0)="S ^IBA(364.7,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,55,2,32671,0)="""^DD"",364.7,364.7,.01,1,1,2)"
^XMB(3.9,55,2,32672,0)="K ^IBA(364.7,""B"",$E(X,1,30),DA)"
^XMB(3.9,55,2,32673,0)="""^DD"",364.7,364.7,.01,1,2,0)"
^XMB(3.9,55,2,32674,0)="364.7^ATYPE^MUMPS"
^XMB(3.9,55,2,32675,0)="""^DD"",364.7,364.7,.01,1,2,1)"
^XMB(3.9,55,2,32676,0)="N Z1,Z0 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P(Z0,U,6) I Z1'="""",$P($G(^IBA(364.6,+X,0)),U,3),'$P(Z0,U,5) S ^IBA(364.7,""ATYPE"",$P(^IBA(364.6,+X,0),U,3),Z1,DA)="""""
^XMB(3.9,55,2,32677,0)="""^DD"",364.7,364.7,.01,1,2,2)"
^XMB(3.9,55,2,32678,0)="N Z0,Z1 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P(Z0,U,6) I Z1'="""",$P($G(^IBA(364.6,+X,0)),U,3) K ^IBA(364.7,""ATYPE"",$P(^IBA(364.6,+X,0),U,3),Z1,DA)"
^XMB(3.9,55,2,32679,0)="""^DD"",364.7,364.7,.01,1,2,3)"
^XMB(3.9,55,2,32680,0)="DO NOT DELETE"
^XMB(3.9,55,2,32681,0)="""^DD"",364.7,364.7,.01,1,2,""%D"",0)"
^XMB(3.9,55,2,32682,0)="^^1^1^2980104^^^^"
^XMB(3.9,55,2,32683,0)="""^DD"",364.7,364.7,.01,1,2,""%D"",1,0)"
^XMB(3.9,55,2,32684,0)="Xref by form and bill type"
^XMB(3.9,55,2,32685,0)="""^DD"",364.7,364.7,.01,1,2,""DT"")"
^XMB(3.9,55,2,32686,0)="2960117"
^XMB(3.9,55,2,32687,0)="""^DD"",364.7,364.7,.01,1,3,0)"
^XMB(3.9,55,2,32688,0)="364.7^AINTYP^MUMPS"
^XMB(3.9,55,2,32689,0)="""^DD"",364.7,364.7,.01,1,3,1)"
^XMB(3.9,55,2,32690,0)="N Z0,Z1,Z2 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P(Z0,U,5),Z2=$P(Z0,U,6) I Z1,Z2'="""",$P($G(^IBA(364.6,+X,0)),U,3) S ^IBA(364.7,""AINTYP"",$P(^IBA(364.6,+X,0),U,3),Z1,Z2,DA)="""""
^XMB(3.9,55,2,32691,0)="""^DD"",364.7,364.7,.01,1,3,2)"
^XMB(3.9,55,2,32692,0)="N Z0,Z1,Z2 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P(Z0,U,5),Z2=$P(Z0,U,6) I Z1,Z2'="""",$P($G(^IBA(364.6,+X,0)),U,3) K ^IBA(364.7,""AINTYP"",$P(^IBA(364.6,+X,0),U,3),Z1,Z2,DA)"
^XMB(3.9,55,2,32693,0)="""^DD"",364.7,364.7,.01,1,3,3)"
^XMB(3.9,55,2,32694,0)="DO NOT DELETE"
^XMB(3.9,55,2,32695,0)="""^DD"",364.7,364.7,.01,1,3,""%D"",0)"
^XMB(3.9,55,2,32696,0)="^^1^1^2971231^^^"
^XMB(3.9,55,2,32697,0)="""^DD"",364.7,364.7,.01,1,3,""%D"",1,0)"
^XMB(3.9,55,2,32698,0)="Xref by form, insurance company and bill type"
^XMB(3.9,55,2,32699,0)="""^DD"",364.7,364.7,.01,1,3,""DT"")"
^XMB(3.9,55,2,32700,0)="2960117"
^XMB(3.9,55,2,32701,0)="""^DD"",364.7,364.7,.01,1,4,0)"
^XMB(3.9,55,2,32702,0)="364.7^AINS^MUMPS"
^XMB(3.9,55,2,32703,0)="""^DD"",364.7,364.7,.01,1,4,1)"
^XMB(3.9,55,2,32704,0)="N Z0,Z1 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P(Z0,U,5) I Z1,$P($G(^IBA(364.6,+X,0)),U,3),$P(Z0,U,6)="""" S ^IBA(364.7,""AINS"",$P(^IBA(364.6,+X,0),U,3),Z1,DA)="""""
^XMB(3.9,55,2,32705,0)="""^DD"",364.7,364.7,.01,1,4,2)"
^XMB(3.9,55,2,32706,0)="N Z0,Z1 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P(Z0,U,5) I Z1,$P($G(^IBA(364.6,+X,0)),U,3) K ^IBA(364.7,""AINS"",$P(^IBA(364.6,+X,0),U,3),Z1,DA)"
^XMB(3.9,55,2,32707,0)="""^DD"",364.7,364.7,.01,1,4,3)"
^XMB(3.9,55,2,32708,0)="DO NOT DELETE"
^XMB(3.9,55,2,32709,0)="""^DD"",364.7,364.7,.01,1,4,""%D"",0)"
^XMB(3.9,55,2,32710,0)="^^1^1^2971231^^"
^XMB(3.9,55,2,32711,0)="""^DD"",364.7,364.7,.01,1,4,""%D"",1,0)"
^XMB(3.9,55,2,32712,0)="Xref by form field and insurance company"
^XMB(3.9,55,2,32713,0)="""^DD"",364.7,364.7,.01,1,4,""DT"")"
^XMB(3.9,55,2,32714,0)="2960118"
^XMB(3.9,55,2,32715,0)="""^DD"",364.7,364.7,.01,3)"
^XMB(3.9,55,2,32716,0)="Enter the billing form that this field is associated with"
^XMB(3.9,55,2,32717,0)="""^DD"",364.7,364.7,.01,21,0)"
^XMB(3.9,55,2,32718,0)="^^2^2^2951207^^^^"
^XMB(3.9,55,2,32719,0)="""^DD"",364.7,364.7,.01,21,1,0)"
^XMB(3.9,55,2,32720,0)="This is a pointer to the billing form field that this field is associated"
^XMB(3.9,55,2,32721,0)="""^DD"",364.7,364.7,.01,21,2,0)"
^XMB(3.9,55,2,32722,0)="with."
^XMB(3.9,55,2,32723,0)="""^DD"",364.7,364.7,.01,""DT"")"
^XMB(3.9,55,2,32724,0)="3000428"
^XMB(3.9,55,2,32725,0)="""^DD"",364.7,364.7,.02,0)"
^XMB(3.9,55,2,32726,0)="SECURITY LEVEL^S^N:NATIONAL,NO EDIT;L:LOCAL;^0;2^Q"
^XMB(3.9,55,2,32727,0)="""^DD"",364.7,364.7,.02,3)"
^XMB(3.9,55,2,32728,0)="Enter N for nationally released fields (no edit) or L for locally added fields."
^XMB(3.9,55,2,32729,0)="""^DD"",364.7,364.7,.02,21,0)"
^XMB(3.9,55,2,32730,0)="^^3^3^2951219^^^"
^XMB(3.9,55,2,32731,0)="""^DD"",364.7,364.7,.02,21,1,0)"
^XMB(3.9,55,2,32732,0)="This field determines whether or not editing of the entry is allowed.  For"
^XMB(3.9,55,2,32733,0)="""^DD"",364.7,364.7,.02,21,2,0)"
^XMB(3.9,55,2,32734,0)="NATIONAL (N) field, no local editing is allowed.  If LOCAL (L) field is"
^XMB(3.9,55,2,32735,0)="""^DD"",364.7,364.7,.02,21,3,0)"
^XMB(3.9,55,2,32736,0)="created, editing is allowed."
^XMB(3.9,55,2,32737,0)="""^DD"",364.7,364.7,.02,""DT"")"
^XMB(3.9,55,2,32738,0)="3000428"
^XMB(3.9,55,2,32739,0)="""^DD"",364.7,364.7,.03,0)"
^XMB(3.9,55,2,32740,0)="DATA ELEMENT^P364.5'^IBA(364.5,^0;3^Q"
^XMB(3.9,55,2,32741,0)="""^DD"",364.7,364.7,.03,1,0)"
^XMB(3.9,55,2,32742,0)="^.1"
^XMB(3.9,55,2,32743,0)="""^DD"",364.7,364.7,.03,1,1,0)"
^XMB(3.9,55,2,32744,0)="364.7^C"
^XMB(3.9,55,2,32745,0)="""^DD"",364.7,364.7,.03,1,1,1)"
^XMB(3.9,55,2,32746,0)="S ^IBA(364.7,""C"",$E(X,1,30),DA)="""""
^XMB(3.9,55,2,32747,0)="""^DD"",364.7,364.7,.03,1,1,2)"
^XMB(3.9,55,2,32748,0)="K ^IBA(364.7,""C"",$E(X,1,30),DA)"
^XMB(3.9,55,2,32749,0)="""^DD"",364.7,364.7,.03,1,1,3)"
^XMB(3.9,55,2,32750,0)="DO NOT DELETE"
^XMB(3.9,55,2,32751,0)="""^DD"",364.7,364.7,.03,1,1,""%D"",0)"
^XMB(3.9,55,2,32752,0)="^^1^1^2960702^"
^XMB(3.9,55,2,32753,0)="""^DD"",364.7,364.7,.03,1,1,""%D"",1,0)"
^XMB(3.9,55,2,32754,0)="Xref by DATA ELEMENT NAME"
^XMB(3.9,55,2,32755,0)="""^DD"",364.7,364.7,.03,1,1,""DT"")"
^XMB(3.9,55,2,32756,0)="2960702"
^XMB(3.9,55,2,32757,0)="""^DD"",364.7,364.7,.03,3)"
^XMB(3.9,55,2,32758,0)="Enter the data element that will define this form field.  If used on a screen, it must be a fileman type."
^XMB(3.9,55,2,32759,0)="""^DD"",364.7,364.7,.03,21,0)"
^XMB(3.9,55,2,32760,0)="^^1^1^2960627^^^^"
^XMB(3.9,55,2,32761,0)="""^DD"",364.7,364.7,.03,21,1,0)"
^XMB(3.9,55,2,32762,0)="This identifies the data element that be extracted for this entry."
^XMB(3.9,55,2,32763,0)="""^DD"",364.7,364.7,.03,23,0)"
^XMB(3.9,55,2,32764,0)="^^4^4^2960627^^^^"
^XMB(3.9,55,2,32765,0)="""^DD"",364.7,364.7,.03,23,1,0)"
^XMB(3.9,55,2,32766,0)="This is the data element that will be allowed to be displayed/edited on a"
^XMB(3.9,55,2,32767,0)="""^DD"",364.7,364.7,.03,23,2,0)"
^XMB(3.9,55,2,32768,0)="screen, extracted for a transmit, or printed on a printed form.  If used on"
^XMB(3.9,55,2,32769,0)="""^DD"",364.7,364.7,.03,23,3,0)"
^XMB(3.9,55,2,32770,0)="a screen, the data element must be a fileman type and a local field (>10000"
^XMB(3.9,55,2,32771,0)="""^DD"",364.7,364.7,.03,23,4,0)"
^XMB(3.9,55,2,32772,0)="for ifn and on a node >10000) to be editable."
^XMB(3.9,55,2,32773,0)="""^DD"",364.7,364.7,.03,""DT"")"
^XMB(3.9,55,2,32774,0)="2960702"
^XMB(3.9,55,2,32775,0)="""^DD"",364.7,364.7,.04,0)"
^XMB(3.9,55,2,32776,0)="SCREEN PROMPT^FX^^0;4^K:$L(X)>70!($L(X)<1) X I $D(X),$P($G(^IBE(353,+$G(^IBA(364.6,+$G(^IBA(364.7,DA,0)),0)),2)),U,2)'=""S"" K X"
^XMB(3.9,55,2,32777,0)="""^DD"",364.7,364.7,.04,.1)"
^XMB(3.9,55,2,32778,0)=" "
^XMB(3.9,55,2,32779,0)="""^DD"",364.7,364.7,.04,1,0)"
^XMB(3.9,55,2,32780,0)="^.1^^0"
^XMB(3.9,55,2,32781,0)="""^DD"",364.7,364.7,.04,3)"
^XMB(3.9,55,2,32782,0)="Answer must be 1-70 characters in length."
^XMB(3.9,55,2,32783,0)="""^DD"",364.7,364.7,.04,21,0)"
^XMB(3.9,55,2,32784,0)="3^^2^2^2960321^^^^"
^XMB(3.9,55,2,32785,0)="""^DD"",364.7,364.7,.04,21,1,0)"
^XMB(3.9,55,2,32786,0)="This is used only by screen-type forms to place a prompt on the screen"
^XMB(3.9,55,2,32787,0)="""^DD"",364.7,364.7,.04,21,2,0)"
^XMB(3.9,55,2,32788,0)="for a particular field."
^XMB(3.9,55,2,32789,0)="""^DD"",364.7,364.7,.04,23,0)"
^XMB(3.9,55,2,32790,0)="^^3^3^2960321^^^^"
^XMB(3.9,55,2,32791,0)="""^DD"",364.7,364.7,.04,23,1,0)"
^XMB(3.9,55,2,32792,0)="This is the prompt that will preceed the data element defined for this"
^XMB(3.9,55,2,32793,0)="""^DD"",364.7,364.7,.04,23,2,0)"
^XMB(3.9,55,2,32794,0)="entry.  If no data element, this prompt will display.  This field is only"
^XMB(3.9,55,2,32795,0)="""^DD"",364.7,364.7,.04,23,3,0)"
^XMB(3.9,55,2,32796,0)="used for screen-type forms."
^XMB(3.9,55,2,32797,0)="""^DD"",364.7,364.7,.04,""DT"")"
^XMB(3.9,55,2,32798,0)="2960321"
^XMB(3.9,55,2,32799,0)="""^DD"",364.7,364.7,.05,0)"
^XMB(3.9,55,2,32800,0)="INSURANCE COMPANY^P36'^DIC(36,^0;5^Q"
^XMB(3.9,55,2,32801,0)="""^DD"",364.7,364.7,.05,1,0)"
^XMB(3.9,55,2,32802,0)="^.1"
^XMB(3.9,55,2,32803,0)="""^DD"",364.7,364.7,.05,1,1,0)"
^XMB(3.9,55,2,32804,0)="364.7^AINS1^MUMPS"
^XMB(3.9,55,2,32805,0)="""^DD"",364.7,364.7,.05,1,1,1)"
^XMB(3.9,55,2,32806,0)="N Z0,Z1 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P($G(^IBA(364.6,+Z0,0)),U,3) I Z1,$P(Z0,U,6)="""" S ^IBA(364.7,""AINS"",Z1,$E(X,1,30),DA)="""""
^XMB(3.9,55,2,32807,0)="""^DD"",364.7,364.7,.05,1,1,2)"
^XMB(3.9,55,2,32808,0)="N Z0,Z1,Z2 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P($G(^IBA(364.6,+Z0,0)),U,3),Z2=$P(Z0,U,6) K ^IBA(364.7,""AINS"",Z1,$E(X,1,30),DA) I Z2'="""",$D(^IBA(364.7,""AINTYP"",Z1,X,Z2,DA)) S ^IBA(364.7,""ATYPE"",Z1,Z2,DA)="""""
^XMB(3.9,55,2,32809,0)="""^DD"",364.7,364.7,.05,1,1,3)"
^XMB(3.9,55,2,32810,0)="DO NOT DELETE"
^XMB(3.9,55,2,32811,0)="""^DD"",364.7,364.7,.05,1,1,""%D"",0)"
^XMB(3.9,55,2,32812,0)="^^1^1^2960118^"
^XMB(3.9,55,2,32813,0)="""^DD"",364.7,364.7,.05,1,1,""%D"",1,0)"
^XMB(3.9,55,2,32814,0)="Xref by form field and insurance company."
^XMB(3.9,55,2,32815,0)="""^DD"",364.7,364.7,.05,1,1,""DT"")"
^XMB(3.9,55,2,32816,0)="2960118"
^XMB(3.9,55,2,32817,0)="""^DD"",364.7,364.7,.05,1,2,0)"
^XMB(3.9,55,2,32818,0)="364.7^AINTYP1^MUMPS"
^XMB(3.9,55,2,32819,0)="""^DD"",364.7,364.7,.05,1,2,1)"
^XMB(3.9,55,2,32820,0)="N Z0,Z1,Z2 S Z0=$G(^IBA(364.7,DA,0)),Z1=+$P($G(^IBA(364.6,+Z0,0)),U,3),Z2=$P(Z0,U,6) I Z1,Z2'="""" S ^IBA(364.7,""AINTYP"",Z1,$E(X,1,30),Z2,DA)="""" K ^IBA(364.7,""ATYPE"",Z1,Z2,DA),^IBA(364.7,""AINS"",Z1,X,DA)"
^XMB(3.9,55,2,32821,0)="""^DD"",364.7,364.7,.05,1,2,2)"
^XMB(3.9,55,2,32822,0)="N Z0,Z1,Z2 S Z0=$G(^IBA(364.7,DA,0)),Z1=+$P($G(^IBA(364.6,+Z0,0)),U,3),Z2=$P(Z0,U,6) K:Z1&(Z2'="""") ^IBA(364.7,""AINTYP"",Z1,$E(X,1,30),Z2,DA)"
^XMB(3.9,55,2,32823,0)="""^DD"",364.7,364.7,.05,1,2,3)"
^XMB(3.9,55,2,32824,0)="DO NOT DELETE"
^XMB(3.9,55,2,32825,0)="""^DD"",364.7,364.7,.05,1,2,""%D"",0)"
^XMB(3.9,55,2,32826,0)="^^1^1^2960117^^^^"
^XMB(3.9,55,2,32827,0)="""^DD"",364.7,364.7,.05,1,2,""%D"",1,0)"
^XMB(3.9,55,2,32828,0)="Xref by insurance company and bill type"
^XMB(3.9,55,2,32829,0)="""^DD"",364.7,364.7,.05,1,2,""DT"")"
^XMB(3.9,55,2,32830,0)="2960117"
^XMB(3.9,55,2,32831,0)="""^DD"",364.7,364.7,.05,3)"
^XMB(3.9,55,2,32832,0)="Enter the name of the insurance company that this field is associated with."
^XMB(3.9,55,2,32833,0)="""^DD"",364.7,364.7,.05,21,0)"
^XMB(3.9,55,2,32834,0)="^^2^2^2951207^"
^XMB(3.9,55,2,32835,0)="""^DD"",364.7,364.7,.05,21,1,0)"
^XMB(3.9,55,2,32836,0)="This is the insurance company who has a need for other than the standard"
^XMB(3.9,55,2,32837,0)="""^DD"",364.7,364.7,.05,21,2,0)"
^XMB(3.9,55,2,32838,0)="data in this field."
^XMB(3.9,55,2,32839,0)="""^DD"",364.7,364.7,.05,""DT"")"
^XMB(3.9,55,2,32840,0)="3000428"
^XMB(3.9,55,2,32841,0)="""^DD"",364.7,364.7,.06,0)"
^XMB(3.9,55,2,32842,0)="BILL TYPE^S^I:INPATIENT;O:OUTPATIENT;^0;6^Q"
^XMB(3.9,55,2,32843,0)="""^DD"",364.7,364.7,.06,1,0)"
^XMB(3.9,55,2,32844,0)="^.1"
^XMB(3.9,55,2,32845,0)="""^DD"",364.7,364.7,.06,1,1,0)"
^XMB(3.9,55,2,32846,0)="364.7^ATYPE1^MUMPS"
^XMB(3.9,55,2,32847,0)="""^DD"",364.7,364.7,.06,1,1,1)"
^XMB(3.9,55,2,32848,0)="N Z0,Z1 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P($G(^IBA(364.6,+Z0,0)),U,3) I Z1,'$P(Z0,U,5) S ^IBA(364.7,""ATYPE"",Z1,$E(X,1,30),DA)="""""
^XMB(3.9,55,2,32849,0)="""^DD"",364.7,364.7,.06,1,1,2)"
^XMB(3.9,55,2,32850,0)="N Z0,Z1,Z2 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P($G(^IBA(364.6,+Z0,0)),U,3),Z2=$P(Z0,U,5) I Z1 K ^IBA(364.7,""ATYPE"",Z1,$E(X,1,30),DA) I Z2,$D(^IBA(364.7,""AINTYP"",Z1,Z2,X,DA)) S ^IBA(364.7,""AINS"",Z1,Z2,DA)="""""
^XMB(3.9,55,2,32851,0)="""^DD"",364.7,364.7,.06,1,1,3)"
^XMB(3.9,55,2,32852,0)="DO NOT DELETE"
^XMB(3.9,55,2,32853,0)="""^DD"",364.7,364.7,.06,1,1,""%D"",0)"
^XMB(3.9,55,2,32854,0)="^^1^1^2960117^^"
^XMB(3.9,55,2,32855,0)="""^DD"",364.7,364.7,.06,1,1,""%D"",1,0)"
^XMB(3.9,55,2,32856,0)="Xref by form and bill type."
^XMB(3.9,55,2,32857,0)="""^DD"",364.7,364.7,.06,1,1,""DT"")"
^XMB(3.9,55,2,32858,0)="2960117"
^XMB(3.9,55,2,32859,0)="""^DD"",364.7,364.7,.06,1,2,0)"
^XMB(3.9,55,2,32860,0)="364.7^AINTYP2^MUMPS"
^XMB(3.9,55,2,32861,0)="""^DD"",364.7,364.7,.06,1,2,1)"
^XMB(3.9,55,2,32862,0)="N Z0,Z1,Z2 S Z0=$G(^IBA(364.7,DA,0)),Z1=+$P($G(^IBA(364.6,+Z0,0)),U,3),Z2=$P(Z0,U,5) I Z1,Z2 K:'$D(^IBA(364.7,""AINTYP"",Z1,Z2,X,DA)) ^IBA(364.7,""AINS"",Z1,Z2,DA) S ^IBA(364.7,""AINTYP"",Z1,Z2,$E(X,1,30),DA)="""""
^XMB(3.9,55,2,32863,0)="""^DD"",364.7,364.7,.06,1,2,2)"
^XMB(3.9,55,2,32864,0)="N Z0,Z1,Z2 S Z0=$G(^IBA(364.7,DA,0)),Z1=+$P($G(^IBA(364.6,+Z0,0)),U,3),Z2=$P(Z0,U,5) K:Z1&Z2 ^IBA(364.7,""AINTYP"",Z1,Z2,$E(X,1,30),DA)"
^XMB(3.9,55,2,32865,0)="""^DD"",364.7,364.7,.06,1,2,3)"
^XMB(3.9,55,2,32866,0)="DO NOT DELETE"
^XMB(3.9,55,2,32867,0)="""^DD"",364.7,364.7,.06,1,2,""%D"",0)"
^XMB(3.9,55,2,32868,0)="^^1^1^2960117^^^^"
^XMB(3.9,55,2,32869,0)="""^DD"",364.7,364.7,.06,1,2,""%D"",1,0)"
^XMB(3.9,55,2,32870,0)="Xref by form, insurance company and bill type"
^XMB(3.9,55,2,32871,0)="""^DD"",364.7,364.7,.06,1,2,""DT"")"
^XMB(3.9,55,2,32872,0)="2960117"
^XMB(3.9,55,2,32873,0)="""^DD"",364.7,364.7,.06,3)"
^XMB(3.9,55,2,32874,0)="Enter the type of the bill."
^XMB(3.9,55,2,32875,0)="""^DD"",364.7,364.7,.06,21,0)"
^XMB(3.9,55,2,32876,0)="^^1^1^2960117^^"
^XMB(3.9,55,2,32877,0)="""^DD"",364.7,364.7,.06,21,1,0)"
^XMB(3.9,55,2,32878,0)="This is the type of bill that requires this field."
^XMB(3.9,55,2,32879,0)="""^DD"",364.7,364.7,.06,""DT"")"
^XMB(3.9,55,2,32880,0)="3000428"
^XMB(3.9,55,2,32881,0)="""^DD"",364.7,364.7,.07,0)"
^XMB(3.9,55,2,32882,0)="PAD CHARACTER^S^ZL:ZERO PAD ON LEFT;ZR:ZERO PAD ON RIGHT;SL:SPACE PAD ON LEFT;SR:SPACE PAD ON RIGHT;N:NO PAD REQUIRED;^0;7^Q"
^XMB(3.9,55,2,32883,0)="""^DD"",364.7,364.7,.07,3)"
^XMB(3.9,55,2,32884,0)="Enter the code that corresponds to the format and pad character to use for the data output in this field."
^XMB(3.9,55,2,32885,0)="""^DD"",364.7,364.7,.07,21,0)"
^XMB(3.9,55,2,32886,0)="^^3^3^2960126^^"
^XMB(3.9,55,2,32887,0)="""^DD"",364.7,364.7,.07,21,1,0)"
^XMB(3.9,55,2,32888,0)="If present, this defines the character to be used to pad the DATA"
^XMB(3.9,55,2,32889,0)="""^DD"",364.7,364.7,.07,21,2,0)"
^XMB(3.9,55,2,32890,0)="ELEMENT to its desired length and the orientation of the padding characters"
^XMB(3.9,55,2,32891,0)="""^DD"",364.7,364.7,.07,21,3,0)"
^XMB(3.9,55,2,32892,0)="to the left or right of the data.  The default is space pad to the right."
^XMB(3.9,55,2,32893,0)="""^DD"",364.7,364.7,.07,""DT"")"
^XMB(3.9,55,2,32894,0)="2960126"
^XMB(3.9,55,2,32895,0)="""^DD"",364.7,364.7,.08,0)"
^XMB(3.9,55,2,32896,0)="REQUIRED^S^0:NO;1:YES;^0;8^Q"
^XMB(3.9,55,2,32897,0)="""^DD"",364.7,364.7,.08,3)"
^XMB(3.9,55,2,32898,0)="Enter 1 (YES) if this data element is on a local screen 9 form and the data is required for the bill to be authorized."
^XMB(3.9,55,2,32899,0)="""^DD"",364.7,364.7,.08,21,0)"
^XMB(3.9,55,2,32900,0)="^.001^4^4^3001030^^"
^XMB(3.9,55,2,32901,0)="""^DD"",364.7,364.7,.08,21,1,0)"
^XMB(3.9,55,2,32902,0)="This field controls the required/not required status of a data element"
^XMB(3.9,55,2,32903,0)="""^DD"",364.7,364.7,.08,21,2,0)"
^XMB(3.9,55,2,32904,0)="on a local screen 9 form.  If this field is 1 (YES), this data element"
^XMB(3.9,55,2,32905,0)="""^DD"",364.7,364.7,.08,21,3,0)"
^XMB(3.9,55,2,32906,0)="is always required to have data (not null) in order for a bill to be"
^XMB(3.9,55,2,32907,0)="""^DD"",364.7,364.7,.08,21,4,0)"
^XMB(3.9,55,2,32908,0)="authorized."
^XMB(3.9,55,2,32909,0)="""^DD"",364.7,364.7,.08,""DT"")"
^XMB(3.9,55,2,32910,0)="2951207"
^XMB(3.9,55,2,32911,0)="""^DD"",364.7,364.7,.09,0)"
^XMB(3.9,55,2,32912,0)="EDIT STATUS^S^E:EDITABLE;D:DISPLAY ONLY;^0;9^Q"
^XMB(3.9,55,2,32913,0)="""^DD"",364.7,364.7,.09,3)"
^XMB(3.9,55,2,32914,0)="Enter 'E' to enable editing for this field, 'D' for a display only field."
^XMB(3.9,55,2,32915,0)="""^DD"",364.7,364.7,.09,21,0)"
^XMB(3.9,55,2,32916,0)="^^2^2^2960320^"
^XMB(3.9,55,2,32917,0)="""^DD"",364.7,364.7,.09,21,1,0)"
^XMB(3.9,55,2,32918,0)="This field is used to control whether or not a data element on a screen is"
^XMB(3.9,55,2,32919,0)="""^DD"",364.7,364.7,.09,21,2,0)"
^XMB(3.9,55,2,32920,0)="editable or for display-only purposes."
^XMB(3.9,55,2,32921,0)="""^DD"",364.7,364.7,.09,""DT"")"
^XMB(3.9,55,2,32922,0)="2960320"
^XMB(3.9,55,2,32923,0)="""^DD"",364.7,364.7,.1,0)"
^XMB(3.9,55,2,32924,0)="EDIT GROUP NUMBER^NJ2,0^^0;10^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^XMB(3.9,55,2,32925,0)="""^DD"",364.7,364.7,.1,3)"
^XMB(3.9,55,2,32926,0)=" Enter the edit group # that this field will be included in.  Valid #'s are 1-99."
^XMB(3.9,55,2,32927,0)="""^DD"",364.7,364.7,.1,21,0)"
^XMB(3.9,55,2,32928,0)="^^6^6^2960321^^"
^XMB(3.9,55,2,32929,0)="""^DD"",364.7,364.7,.1,21,1,0)"
^XMB(3.9,55,2,32930,0)="This field contains the # of the edit group that the screen data element"
^XMB(3.9,55,2,32931,0)="""^DD"",364.7,364.7,.1,21,2,0)"
^XMB(3.9,55,2,32932,0)="will be included with.  When this group # is selected on an edit screen,"
^XMB(3.9,55,2,32933,0)="""^DD"",364.7,364.7,.1,21,3,0)"
^XMB(3.9,55,2,32934,0)="all data elements assigned to this group # on this screen will be presented"
^XMB(3.9,55,2,32935,0)="""^DD"",364.7,364.7,.1,21,4,0)"
^XMB(3.9,55,2,32936,0)="for editing.  If no # is entered here, this field will not be available for"
^XMB(3.9,55,2,32937,0)="""^DD"",364.7,364.7,.1,21,5,0)"
^XMB(3.9,55,2,32938,0)="editing.  This field will only apply to screen-type forms' editable data"
^XMB(3.9,55,2,32939,0)="""^DD"",364.7,364.7,.1,21,6,0)"
^XMB(3.9,55,2,32940,0)="element descriptions."
^XMB(3.9,55,2,32941,0)="""^DD"",364.7,364.7,.1,""DT"")"
^XMB(3.9,55,2,32942,0)="2960321"
^XMB(3.9,55,2,32943,0)="""^DD"",364.7,364.7,1,0)"
^XMB(3.9,55,2,32944,0)="FORMAT CODE^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^XMB(3.9,55,2,32945,0)="""^DD"",364.7,364.7,1,3)"
^XMB(3.9,55,2,32946,0)="This is Standard MUMPS code."
^XMB(3.9,55,2,32947,0)="""^DD"",364.7,364.7,1,9)"
^XMB(3.9,55,2,32948,0)="@"
^XMB(3.9,55,2,32949,0)="""^DD"",364.7,364.7,1,21,0)"
^XMB(3.9,55,2,32950,0)="^^8^8^2951207^"
^XMB(3.9,55,2,32951,0)="""^DD"",364.7,364.7,1,21,1,0)"
^XMB(3.9,55,2,32952,0)="This is the code that will be xecuted to format the 'raw' data element"
^XMB(3.9,55,2,32953,0)="""^DD"",364.7,364.7,1,21,2,0)"
^XMB(3.9,55,2,32954,0)="value that is returned from the execution of the DATA ELEMENT's definition."
^XMB(3.9,55,2,32955,0)="""^DD"",364.7,364.7,1,21,3,0)"
^XMB(3.9,55,2,32956,0)="This code can assume the variable/array IBXDATA is available as input and"
^XMB(3.9,55,2,32957,0)="""^DD"",364.7,364.7,1,21,4,0)"
^XMB(3.9,55,2,32958,0)="should set this variable/array as its output.  Standard calls for data"
^XMB(3.9,55,2,32959,0)="""^DD"",364.7,364.7,1,21,5,0)"
^XMB(3.9,55,2,32960,0)="formatting have been provided.  The variables IBXPG, IBXLN, IBXCOL are the"
^XMB(3.9,55,2,32961,0)="""^DD"",364.7,364.7,1,21,6,0)"
^XMB(3.9,55,2,32962,0)="only IBX* variables that should be changed in this routine.  These represent"
^XMB(3.9,55,2,32963,0)="""^DD"",364.7,364.7,1,21,7,0)"
^XMB(3.9,55,2,32964,0)="the page, line, column as the first 3 levels of subscript for the output"
^XMB(3.9,55,2,32965,0)="""^DD"",364.7,364.7,1,21,8,0)"
^XMB(3.9,55,2,32966,0)="array."
^XMB(3.9,55,2,32967,0)="""^DD"",364.7,364.7,1,""DT"")"
^XMB(3.9,55,2,32968,0)="2951207"
^XMB(3.9,55,2,32969,0)="""^DD"",364.7,364.7,3,0)"
^XMB(3.9,55,2,32970,0)="FORMAT CODE DESCRIPTION^364.73^^3;0"
^XMB(3.9,55,2,32971,0)="""^DD"",364.7,364.7,3,21,0)"
^XMB(3.9,55,2,32972,0)="^.001^1^1^3010102^^"
^XMB(3.9,55,2,32973,0)="""^DD"",364.7,364.7,3,21,1,0)"
^XMB(3.9,55,2,32974,0)="This field describes the function of the format code entered."
^XMB(3.9,55,2,32975,0)="""^DD"",364.7,364.7,3,""DT"")"
^XMB(3.9,55,2,32976,0)="2960710"
^XMB(3.9,55,2,32977,0)="""^DD"",364.7,364.73,0)"
^XMB(3.9,55,2,32978,0)="FORMAT CODE DESCRIPTION SUB-FIELD^^.01^1"
^XMB(3.9,55,2,32979,0)="""^DD"",364.7,364.73,0,""DT"")"
^XMB(3.9,55,2,32980,0)="2960710"
^XMB(3.9,55,2,32981,0)="""^DD"",364.7,364.73,0,""NM"",""FORMAT CODE DESCRIPTION"")"
^XMB(3.9,55,2,32982,0)=" "
^XMB(3.9,55,2,32983,0)="""^DD"",364.7,364.73,0,""UP"")"
^XMB(3.9,55,2,32984,0)="364.7"
^XMB(3.9,55,2,32985,0)="""^DD"",364.7,364.73,.01,0)"
^XMB(3.9,55,2,32986,0)="FORMAT CODE DESCRIPTION^W^^0;1^Q"
^XMB(3.9,55,2,32987,0)="""^DD"",364.7,364.73,.01,3)"
^XMB(3.9,55,2,32988,0)="Enter a description of the processing logic of the format code."
^XMB(3.9,55,2,32989,0)="""^DD"",364.7,364.73,.01,21,0)"
^XMB(3.9,55,2,32990,0)="^.001^1^1^3010102^^^^"
^XMB(3.9,55,2,32991,0)="""^DD"",364.7,364.73,.01,21,1,0)"
^XMB(3.9,55,2,32992,0)="This is a description of the processing logic of the format code."
^XMB(3.9,55,2,32993,0)="""^DD"",364.7,364.73,.01,""DT"")"
^XMB(3.9,55,2,32994,0)="2960710"
^XMB(3.9,55,2,32995,0)="""^DD"",399,399,.19,0)"
^XMB(3.9,55,2,32996,0)="FORM TYPE^RP353'^IBE(353,^0;19^Q"
^XMB(3.9,55,2,32997,0)="""^DD"",399,399,.19,1,0)"
^XMB(3.9,55,2,32998,0)="^.1"
^XMB(3.9,55,2,32999,0)="""^DD"",399,399,.19,1,1,0)"
^XMB(3.9,55,2,33000,0)="^^TRIGGER^399^.09"
^XMB(3.9,55,2,33001,0)="""^DD"",399,399,.19,1,1,1)"
^XMB(3.9,55,2,33002,0)="X ^DD(399,.19,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=5 X ^DD(399,.19,1,1,1.4)"
^XMB(3.9,55,2,33003,0)="""^DD"",399,399,.19,1,1,1.3)"
^XMB(3.9,55,2,33004,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(399,.19,1,1,69.2) S Y(1)=X S X=$P($P(Y(3),$C(59)_$P(Y(2),U,9)_"":"",2),$C(59),1)="""",Y=X,X=Y(1),X=X&Y"
^XMB(3.9,55,2,33005,0)="""^DD"",399,399,.19,1,1,1.4)"
^XMB(3.9,55,2,33006,0)="S DIH=$S($D(^DGCR(399,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,9)=DIV,DIH=399,DIG=.09 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,55,2,33007,0)="""^DD"",399,399,.19,1,1,2)"
^XMB(3.9,55,2,33008,0)="Q"
^XMB(3.9,55,2,33009,0)="""^DD"",399,399,.19,1,1,69.2)"
^XMB(3.9,55,2,33010,0)="S Y(3)=$C(59)_$S($D(^DD(399,.09,0)):$P(^(0),U,3),1:""""),Y(2)=$S($D(^DGCR(399,D0,0)):^(0),1:"""") S X=$S('$D(^IBE(353,+Y(0),0)):"""",1:$P(^(0),U,1))=""HCFA 1500"""
^XMB(3.9,55,2,33011,0)="""^DD"",399,399,.19,1,1,""%D"",0)"
^XMB(3.9,55,2,33012,0)="^^2^2^2920430^"
^XMB(3.9,55,2,33013,0)="""^DD"",399,399,.19,1,1,""%D"",1,0)"
^XMB(3.9,55,2,33014,0)="If the HCFA 1500 claim form is used and no coding method defined, then"
^XMB(3.9,55,2,33015,0)="""^DD"",399,399,.19,1,1,""%D"",2,0)"
^XMB(3.9,55,2,33016,0)="set coding method to HCPCS."
^XMB(3.9,55,2,33017,0)="""^DD"",399,399,.19,1,1,""CREATE CONDITION"")"
^XMB(3.9,55,2,33018,0)="FORM TYPE=""HCFA 1500""&(PROCEDURE CODING METHOD="""")"
^XMB(3.9,55,2,33019,0)="""^DD"",399,399,.19,1,1,""CREATE VALUE"")"
^XMB(3.9,55,2,33020,0)="S X=5"
^XMB(3.9,55,2,33021,0)="""^DD"",399,399,.19,1,1,""DELETE VALUE"")"
^XMB(3.9,55,2,33022,0)="NO EFFECT"
^XMB(3.9,55,2,33023,0)="""^DD"",399,399,.19,1,1,""DT"")"
^XMB(3.9,55,2,33024,0)="2920430"
^XMB(3.9,55,2,33025,0)="""^DD"",399,399,.19,1,1,""FIELD"")"
^XMB(3.9,55,2,33026,0)="PROCEDURE CODING METHOD"
^XMB(3.9,55,2,33027,0)="""^DD"",399,399,.19,1,2,0)"
^XMB(3.9,55,2,33028,0)="399^AREV7^MUMPS"
^XMB(3.9,55,2,33029,0)="""^DD"",399,399,.19,1,2,1)"
^XMB(3.9,55,2,33030,0)="S DGRVRCAL=1"
^XMB(3.9,55,2,33031,0)="""^DD"",399,399,.19,1,2,2)"
^XMB(3.9,55,2,33032,0)="S DGRVRCAL=2"
^XMB(3.9,55,2,33033,0)="""^DD"",399,399,.19,1,2,3)"
^XMB(3.9,55,2,33034,0)="DO NOT DELETE"
^XMB(3.9,55,2,33035,0)="""^DD"",399,399,.19,1,2,""%D"",0)"
^XMB(3.9,55,2,33036,0)="^^2^2^2940214^"
^XMB(3.9,55,2,33037,0)="""^DD"",399,399,.19,1,2,""%D"",1,0)"
^XMB(3.9,55,2,33038,0)="Variable causes revenue codes and chrges to be re-calculated on return"
^XMB(3.9,55,2,33039,0)="""^DD"",399,399,.19,1,2,""%D"",2,0)"
^XMB(3.9,55,2,33040,0)="to the enter/edit billing screens."
^XMB(3.9,55,2,33041,0)="""^DD"",399,399,.19,1,2,""DT"")"
^XMB(3.9,55,2,33042,0)="2920428"
^XMB(3.9,55,2,33043,0)="""^DD"",399,399,.19,1,3,0)"
^XMB(3.9,55,2,33044,0)="399^AH^MUMPS"
^XMB(3.9,55,2,33045,0)="""^DD"",399,399,.19,1,3,1)"
^XMB(3.9,55,2,33046,0)="D ALLID^IBCEP3(DA,.19,1)"
^XMB(3.9,55,2,33047,0)="""^DD"",399,399,.19,1,3,2)"
^XMB(3.9,55,2,33048,0)="D ALLID^IBCEP3(DA,.19,2)"
^XMB(3.9,55,2,33049,0)="""^DD"",399,399,.19,1,3,3)"
^XMB(3.9,55,2,33050,0)="Do not delete"
^XMB(3.9,55,2,33051,0)="""^DD"",399,399,.19,1,3,""%D"",0)"
^XMB(3.9,55,2,33052,0)="^.101^3^3^3000926^^^"
^XMB(3.9,55,2,33053,0)="""^DD"",399,399,.19,1,3,""%D"",1,0)"
^XMB(3.9,55,2,33054,0)="This cross reference determines if the change of form type requires the"
^XMB(3.9,55,2,33055,0)="""^DD"",399,399,.19,1,3,""%D"",2,0)"
^XMB(3.9,55,2,33056,0)="provider id's to be updated or deleted.  If it does, the update/deletion"
^XMB(3.9,55,2,33057,0)="""^DD"",399,399,.19,1,3,""%D"",3,0)"
^XMB(3.9,55,2,33058,0)="is performed for the claim."
^XMB(3.9,55,2,33059,0)="""^DD"",399,399,.19,1,3,""DT"")"
^XMB(3.9,55,2,33060,0)="3000926"
^XMB(3.9,55,2,33061,0)="""^DD"",399,399,.19,1,4,0)"
^XMB(3.9,55,2,33062,0)="399^AI^MUMPS"
^XMB(3.9,55,2,33063,0)="""^DD"",399,399,.19,1,4,1)"
^XMB(3.9,55,2,33064,0)="D BILLPNS^IBCU(DA)"
^XMB(3.9,55,2,33065,0)="""^DD"",399,399,.19,1,4,2)"
^XMB(3.9,55,2,33066,0)="Q"
^XMB(3.9,55,2,33067,0)="""^DD"",399,399,.19,1,4,3)"
^XMB(3.9,55,2,33068,0)="Do Not Delete"
^XMB(3.9,55,2,33069,0)="""^DD"",399,399,.19,1,4,""%D"",0)"
^XMB(3.9,55,2,33070,0)="^.101^2^2^3050822^^"
^XMB(3.9,55,2,33071,0)="""^DD"",399,399,.19,1,4,""%D"",1,0)"
^XMB(3.9,55,2,33072,0)="This cross reference updates all Bill Provider #s based on the Form Type,  "
^XMB(3.9,55,2,33073,0)="""^DD"",399,399,.19,1,4,""%D"",2,0)"
^XMB(3.9,55,2,33074,0)="using the Insurance Companies Hospital or Professional Provider Number.  "
^XMB(3.9,55,2,33075,0)="""^DD"",399,399,.19,1,4,""DT"")"
^XMB(3.9,55,2,33076,0)="3020820"
^XMB(3.9,55,2,33077,0)="""^DD"",399,399,.19,1,5,0)"
^XMB(3.9,55,2,33078,0)="399^AJ^MUMPS"
^XMB(3.9,55,2,33079,0)="""^DD"",399,399,.19,1,5,1)"
^XMB(3.9,55,2,33080,0)="D ATTREND^IBCU1(DA,"""","""")"
^XMB(3.9,55,2,33081,0)="""^DD"",399,399,.19,1,5,2)"
^XMB(3.9,55,2,33082,0)="D ATTREND^IBCU1(DA,"""","""")"
^XMB(3.9,55,2,33083,0)="""^DD"",399,399,.19,1,5,3)"
^XMB(3.9,55,2,33084,0)="Do Not Delete"
^XMB(3.9,55,2,33085,0)="""^DD"",399,399,.19,1,5,""%D"",0)"
^XMB(3.9,55,2,33086,0)="^^14^14^3060509^"
^XMB(3.9,55,2,33087,0)="""^DD"",399,399,.19,1,5,""%D"",1,0)"
^XMB(3.9,55,2,33088,0)="This Mumps cross reference is used to potentially trigger 6 other fields "
^XMB(3.9,55,2,33089,0)="""^DD"",399,399,.19,1,5,""%D"",2,0)"
^XMB(3.9,55,2,33090,0)="in file 399.  The fields are triggered when the insurance companies in the"
^XMB(3.9,55,2,33091,0)="""^DD"",399,399,.19,1,5,""%D"",3,0)"
^XMB(3.9,55,2,33092,0)="claim have flags set to use the attending or rendering physicians as the "
^XMB(3.9,55,2,33093,0)="""^DD"",399,399,.19,1,5,""%D"",4,0)"
^XMB(3.9,55,2,33094,0)="billing provider secondary IDs.  The flags in file 36 are field #4.06 "
^XMB(3.9,55,2,33095,0)="""^DD"",399,399,.19,1,5,""%D"",5,0)"
^XMB(3.9,55,2,33096,0)="(ATT/REND ID BILL SEC ID PROF) and field 4.08 (ATT/REND ID BILL SEC ID "
^XMB(3.9,55,2,33097,0)="""^DD"",399,399,.19,1,5,""%D"",6,0)"
^XMB(3.9,55,2,33098,0)="INST)."
^XMB(3.9,55,2,33099,0)="""^DD"",399,399,.19,1,5,""%D"",7,0)"
^XMB(3.9,55,2,33100,0)=" "
^XMB(3.9,55,2,33101,0)="""^DD"",399,399,.19,1,5,""%D"",8,0)"
^XMB(3.9,55,2,33102,0)="The following fields are the ones being ""triggered"":"
^XMB(3.9,55,2,33103,0)="""^DD"",399,399,.19,1,5,""%D"",9,0)"
^XMB(3.9,55,2,33104,0)="#122 PRIMARY PROVIDER #"
^XMB(3.9,55,2,33105,0)="""^DD"",399,399,.19,1,5,""%D"",10,0)"
^XMB(3.9,55,2,33106,0)="#123 SECONDARY PROVIDER #"
^XMB(3.9,55,2,33107,0)="""^DD"",399,399,.19,1,5,""%D"",11,0)"
^XMB(3.9,55,2,33108,0)="#124 TERTIARY PROVIDER #"
^XMB(3.9,55,2,33109,0)="""^DD"",399,399,.19,1,5,""%D"",12,0)"
^XMB(3.9,55,2,33110,0)="#128 PRIMARY ID QUALIFER"
^XMB(3.9,55,2,33111,0)="""^DD"",399,399,.19,1,5,""%D"",13,0)"
^XMB(3.9,55,2,33112,0)="#129 SECONDARY ID QUALIFIER"
^XMB(3.9,55,2,33113,0)="""^DD"",399,399,.19,1,5,""%D"",14,0)"
^XMB(3.9,55,2,33114,0)="#130 TERTIARY ID QUALIFIER "
^XMB(3.9,55,2,33115,0)="""^DD"",399,399,.19,1,5,""DT"")"
^XMB(3.9,55,2,33116,0)="3060508"
^XMB(3.9,55,2,33117,0)="""^DD"",399,399,.19,3)"
^XMB(3.9,55,2,33118,0)="Enter the type of claim form to be used."
^XMB(3.9,55,2,33119,0)="""^DD"",399,399,.19,5,1,0)"
^XMB(3.9,55,2,33120,0)="399^.01^7"
^XMB(3.9,55,2,33121,0)="""^DD"",399,399,.19,5,2,0)"
^XMB(3.9,55,2,33122,0)="399^.27^1"
^XMB(3.9,55,2,33123,0)="""^DD"",399,399,.19,5,3,0)"
^XMB(3.9,55,2,33124,0)="399^135^2"
^XMB(3.9,55,2,33125,0)="""^DD"",399,399,.19,21,0)"
^XMB(3.9,55,2,33126,0)="^^1^1^2991112^^^^"
^XMB(3.9,55,2,33127,0)="""^DD"",399,399,.19,21,1,0)"
^XMB(3.9,55,2,33128,0)="The form type that the bill is printed on."
^XMB(3.9,55,2,33129,0)="""^DD"",399,399,.19,""DT"")"
^XMB(3.9,55,2,33130,0)="3060508"
^XMB(3.9,55,2,33131,0)="""^DD"",399,399,.22,0)"
^XMB(3.9,55,2,33132,0)="DEFAULT DIVISION^P40.8'^DG(40.8,^0;22^Q"
^XMB(3.9,55,2,33133,0)="""^DD"",399,399,.22,1,0)"
^XMB(3.9,55,2,33134,0)="^.1"
^XMB(3.9,55,2,33135,0)="""^DD"",399,399,.22,1,1,0)"
^XMB(3.9,55,2,33136,0)="^^TRIGGER^399^122"
^XMB(3.9,55,2,33137,0)="""^DD"",399,399,.22,1,1,1)"
^XMB(3.9,55,2,33138,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$$PRVNUM^IBCU(DA,"""",1) X ^DD(399,.22,1,1,1.4)"
^XMB(3.9,55,2,33139,0)="""^DD"",399,399,.22,1,1,1.4)"
^XMB(3.9,55,2,33140,0)="S DIH=$G(^DGCR(399,DIV(0),""M1"")),DIV=X S $P(^(""M1""),U,2)=DIV,DIH=399,DIG=122 D ^DICR"
^XMB(3.9,55,2,33141,0)="""^DD"",399,399,.22,1,1,2)"
^XMB(3.9,55,2,33142,0)="Q"
^XMB(3.9,55,2,33143,0)="""^DD"",399,399,.22,1,1,""CREATE VALUE"")"
^XMB(3.9,55,2,33144,0)="S X=$$PRVNUM^IBCU(DA,"""",1)"
^XMB(3.9,55,2,33145,0)="""^DD"",399,399,.22,1,1,""DELETE VALUE"")"
^XMB(3.9,55,2,33146,0)="NO EFFECT"
^XMB(3.9,55,2,33147,0)="""^DD"",399,399,.22,1,1,""FIELD"")"
^XMB(3.9,55,2,33148,0)="PRIMARY PROVIDER #"
^XMB(3.9,55,2,33149,0)="""^DD"",399,399,.22,1,2,0)"
^XMB(3.9,55,2,33150,0)="^^TRIGGER^399^123"
^XMB(3.9,55,2,33151,0)="""^DD"",399,399,.22,1,2,1)"
^XMB(3.9,55,2,33152,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$$PRVNUM^IBCU(DA,"""",2) X ^DD(399,.22,1,2,1.4)"
^XMB(3.9,55,2,33153,0)="""^DD"",399,399,.22,1,2,1.4)"
^XMB(3.9,55,2,33154,0)="S DIH=$G(^DGCR(399,DIV(0),""M1"")),DIV=X S $P(^(""M1""),U,3)=DIV,DIH=399,DIG=123 D ^DICR"
^XMB(3.9,55,2,33155,0)="""^DD"",399,399,.22,1,2,2)"
^XMB(3.9,55,2,33156,0)="Q"
^XMB(3.9,55,2,33157,0)="""^DD"",399,399,.22,1,2,""CREATE VALUE"")"
^XMB(3.9,55,2,33158,0)="S X=$$PRVNUM^IBCU(DA,"""",2)"
^XMB(3.9,55,2,33159,0)="""^DD"",399,399,.22,1,2,""DELETE VALUE"")"
^XMB(3.9,55,2,33160,0)="NO EFFECT"
^XMB(3.9,55,2,33161,0)="""^DD"",399,399,.22,1,2,""DT"")"
^XMB(3.9,55,2,33162,0)="3040611"
^XMB(3.9,55,2,33163,0)="""^DD"",399,399,.22,1,2,""FIELD"")"
^XMB(3.9,55,2,33164,0)="SECONDARY PROVIDER #"
^XMB(3.9,55,2,33165,0)="""^DD"",399,399,.22,1,3,0)"
^XMB(3.9,55,2,33166,0)="^^TRIGGER^399^124"
^XMB(3.9,55,2,33167,0)="""^DD"",399,399,.22,1,3,1)"
^XMB(3.9,55,2,33168,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=$$PRVNUM^IBCU(DA,"""",3) X ^DD(399,.22,1,3,1.4)"
^XMB(3.9,55,2,33169,0)="""^DD"",399,399,.22,1,3,1.4)"
^XMB(3.9,55,2,33170,0)="S DIH=$G(^DGCR(399,DIV(0),""M1"")),DIV=X S $P(^(""M1""),U,4)=DIV,DIH=399,DIG=124 D ^DICR"
^XMB(3.9,55,2,33171,0)="""^DD"",399,399,.22,1,3,2)"
^XMB(3.9,55,2,33172,0)="Q"
^XMB(3.9,55,2,33173,0)="""^DD"",399,399,.22,1,3,""CREATE VALUE"")"
^XMB(3.9,55,2,33174,0)="S X=$$PRVNUM^IBCU(DA,"""",3)"
^XMB(3.9,55,2,33175,0)="""^DD"",399,399,.22,1,3,""DELETE VALUE"")"
^XMB(3.9,55,2,33176,0)="NO EFFECT"
^XMB(3.9,55,2,33177,0)="""^DD"",399,399,.22,1,3,""DT"")"
^XMB(3.9,55,2,33178,0)="3040611"
^XMB(3.9,55,2,33179,0)="""^DD"",399,399,.22,1,3,""FIELD"")"
^XMB(3.9,55,2,33180,0)="TERTIARY PROVIDER #"
^XMB(3.9,55,2,33181,0)="""^DD"",399,399,.22,1,4,0)"
^XMB(3.9,55,2,33182,0)="^^TRIGGER^399^128"
^XMB(3.9,55,2,33183,0)="""^DD"",399,399,.22,1,4,1)"
^XMB(3.9,55,2,33184,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=$$PRVQUAL^IBCU(DA,"""",1) X ^DD(399,.22,1,4,1.4)"
^XMB(3.9,55,2,33185,0)="""^DD"",399,399,.22,1,4,1.4)"
^XMB(3.9,55,2,33186,0)="S DIH=$G(^DGCR(399,DIV(0),""M1"")),DIV=X S $P(^(""M1""),U,10)=DIV,DIH=399,DIG=128 D ^DICR"
^XMB(3.9,55,2,33187,0)="""^DD"",399,399,.22,1,4,2)"
^XMB(3.9,55,2,33188,0)="Q"
^XMB(3.9,55,2,33189,0)="""^DD"",399,399,.22,1,4,""CREATE VALUE"")"
^XMB(3.9,55,2,33190,0)="S X=$$PRVQUAL^IBCU(DA,"""",1)"
^XMB(3.9,55,2,33191,0)="""^DD"",399,399,.22,1,4,""DELETE VALUE"")"
^XMB(3.9,55,2,33192,0)="NO EFFECT"
^XMB(3.9,55,2,33193,0)="""^DD"",399,399,.22,1,4,""DT"")"
^XMB(3.9,55,2,33194,0)="3060219"
^XMB(3.9,55,2,33195,0)="""^DD"",399,399,.22,1,4,""FIELD"")"
^XMB(3.9,55,2,33196,0)="PRIMARY ID QUALIFIER"
^XMB(3.9,55,2,33197,0)="""^DD"",399,399,.22,1,5,0)"
^XMB(3.9,55,2,33198,0)="^^TRIGGER^399^129"
^XMB(3.9,55,2,33199,0)="""^DD"",399,399,.22,1,5,1)"
^XMB(3.9,55,2,33200,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=$$PRVQUAL^IBCU(DA,"""",2) X ^DD(399,.22,1,5,1.4)"
^XMB(3.9,55,2,33201,0)="""^DD"",399,399,.22,1,5,1.4)"
^XMB(3.9,55,2,33202,0)="S DIH=$G(^DGCR(399,DIV(0),""M1"")),DIV=X S $P(^(""M1""),U,11)=DIV,DIH=399,DIG=129 D ^DICR"
^XMB(3.9,55,2,33203,0)="""^DD"",399,399,.22,1,5,2)"
^XMB(3.9,55,2,33204,0)="Q"
^XMB(3.9,55,2,33205,0)="""^DD"",399,399,.22,1,5,""CREATE VALUE"")"
^XMB(3.9,55,2,33206,0)="S X=$$PRVQUAL^IBCU(DA,"""",2)"
^XMB(3.9,55,2,33207,0)="""^DD"",399,399,.22,1,5,""DELETE VALUE"")"
^XMB(3.9,55,2,33208,0)="NO EFFECT"
^XMB(3.9,55,2,33209,0)="""^DD"",399,399,.22,1,5,""DT"")"
^XMB(3.9,55,2,33210,0)="3060219"
^XMB(3.9,55,2,33211,0)="""^DD"",399,399,.22,1,5,""FIELD"")"
^XMB(3.9,55,2,33212,0)="SECONDARY ID QUALIFIER"
^XMB(3.9,55,2,33213,0)="""^DD"",399,399,.22,1,6,0)"
^XMB(3.9,55,2,33214,0)="^^TRIGGER^399^130"
^XMB(3.9,55,2,33215,0)="""^DD"",399,399,.22,1,6,1)"
^XMB(3.9,55,2,33216,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X=DIV S X=$$PRVQUAL^IBCU(DA,"""",3) X ^DD(399,.22,1,6,1.4)"
^XMB(3.9,55,2,33217,0)="""^DD"",399,399,.22,1,6,1.4)"
^XMB(3.9,55,2,33218,0)="S DIH=$G(^DGCR(399,DIV(0),""M1"")),DIV=X S $P(^(""M1""),U,12)=DIV,DIH=399,DIG=130 D ^DICR"
^XMB(3.9,55,2,33219,0)="""^DD"",399,399,.22,1,6,2)"
^XMB(3.9,55,2,33220,0)="Q"
^XMB(3.9,55,2,33221,0)="""^DD"",399,399,.22,1,6,""CREATE VALUE"")"
^XMB(3.9,55,2,33222,0)="S X=$$PRVQUAL^IBCU(DA,"""",3)"
^XMB(3.9,55,2,33223,0)="""^DD"",399,399,.22,1,6,""DELETE VALUE"")"
^XMB(3.9,55,2,33224,0)="NO EFFECT"
^XMB(3.9,55,2,33225,0)="""^DD"",399,399,.22,1,6,""DT"")"
^XMB(3.9,55,2,33226,0)="3060219"
^XMB(3.9,55,2,33227,0)="""^DD"",399,399,.22,1,6,""FIELD"")"
^XMB(3.9,55,2,33228,0)="TERTIARY ID QUALIFIER"
^XMB(3.9,55,2,33229,0)="""^DD"",399,399,.22,1,7,0)"
^XMB(3.9,55,2,33230,0)="^^TRIGGER^399^235"
^XMB(3.9,55,2,33231,0)="""^DD"",399,399,.22,1,7,1)"
^XMB(3.9,55,2,33232,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$$CLIAREQ^IBCEP8A(DA) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""U2"")):^(""U2""),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$CLIA^IBCEP8A(DA) X ^DD(399,.22,1,7,1.4)"
^XMB(3.9,55,2,33233,0)="""^DD"",399,399,.22,1,7,1.4)"
^XMB(3.9,55,2,33234,0)="S DIH=$G(^DGCR(399,DIV(0),""U2"")),DIV=X S $P(^(""U2""),U,13)=DIV,DIH=399,DIG=235 D ^DICR"
^XMB(3.9,55,2,33235,0)="""^DD"",399,399,.22,1,7,2)"
^XMB(3.9,55,2,33236,0)="Q"
^XMB(3.9,55,2,33237,0)="""^DD"",399,399,.22,1,7,""%D"",0)"
^XMB(3.9,55,2,33238,0)="^^3^3^3060614^"
^XMB(3.9,55,2,33239,0)="""^DD"",399,399,.22,1,7,""%D"",1,0)"
^XMB(3.9,55,2,33240,0)="This trigger will set the LAB CLIA NUMBER field to the default CLIA# for "
^XMB(3.9,55,2,33241,0)="""^DD"",399,399,.22,1,7,""%D"",2,0)"
^XMB(3.9,55,2,33242,0)="the division when the division field is entered or changed.  The trigger "
^XMB(3.9,55,2,33243,0)="""^DD"",399,399,.22,1,7,""%D"",3,0)"
^XMB(3.9,55,2,33244,0)="condition ensures that lab services are on the claim."
^XMB(3.9,55,2,33245,0)="""^DD"",399,399,.22,1,7,""CREATE CONDITION"")"
^XMB(3.9,55,2,33246,0)="S X=$$CLIAREQ^IBCEP8A(DA)"
^XMB(3.9,55,2,33247,0)="""^DD"",399,399,.22,1,7,""CREATE VALUE"")"
^XMB(3.9,55,2,33248,0)="S X=$$CLIA^IBCEP8A(DA)"
^XMB(3.9,55,2,33249,0)="""^DD"",399,399,.22,1,7,""DELETE VALUE"")"
^XMB(3.9,55,2,33250,0)="NO EFFECT"
^XMB(3.9,55,2,33251,0)="""^DD"",399,399,.22,1,7,""DT"")"
^XMB(3.9,55,2,33252,0)="3060614"
^XMB(3.9,55,2,33253,0)="""^DD"",399,399,.22,1,7,""FIELD"")"
^XMB(3.9,55,2,33254,0)="LAB CLIA NUMBER"
^XMB(3.9,55,2,33255,0)="""^DD"",399,399,.22,3)"
^XMB(3.9,55,2,33256,0)="Enter the default division that should be used in charge calculations."
^XMB(3.9,55,2,33257,0)="""^DD"",399,399,.22,21,0)"
^XMB(3.9,55,2,33258,0)="^^2^2^2960724^"
^XMB(3.9,55,2,33259,0)="""^DD"",399,399,.22,21,1,0)"
^XMB(3.9,55,2,33260,0)="For rates specific to a division, this division will be used to"
^XMB(3.9,55,2,33261,0)="""^DD"",399,399,.22,21,2,0)"
^XMB(3.9,55,2,33262,0)="determine the charges for all CPT's that do not have a division specified."
^XMB(3.9,55,2,33263,0)="""^DD"",399,399,.22,""DT"")"
^XMB(3.9,55,2,33264,0)="3060614"
^XMB(3.9,55,2,33265,0)="""^DD"",399,399,29,0)"
^XMB(3.9,55,2,33266,0)="BILL CLONED TO^P399'^DGCR(399,^S1;1^Q"
^XMB(3.9,55,2,33267,0)="""^DD"",399,399,29,3)"
^XMB(3.9,55,2,33268,0)="Select the Bill Number for which the new claim is being created. "
^XMB(3.9,55,2,33269,0)="""^DD"",399,399,29,21,0)"
^XMB(3.9,55,2,33270,0)="^.001^1^1^3050712^^"
^XMB(3.9,55,2,33271,0)="""^DD"",399,399,29,21,1,0)"
^XMB(3.9,55,2,33272,0)="This is the Bill Number for which the new claim is being created."
^XMB(3.9,55,2,33273,0)="""^DD"",399,399,29,""DT"")"
^XMB(3.9,55,2,33274,0)="3050712"
^XMB(3.9,55,2,33275,0)="""^DD"",399,399,30,0)"
^XMB(3.9,55,2,33276,0)="BILL CLONED FROM^P399'^DGCR(399,^S1;2^Q"
^XMB(3.9,55,2,33277,0)="""^DD"",399,399,30,3)"
^XMB(3.9,55,2,33278,0)="Select the Bill Number from which this claim was cloned. "
^XMB(3.9,55,2,33279,0)="""^DD"",399,399,30,21,0)"
^XMB(3.9,55,2,33280,0)="^.001^1^1^3050712^^"
^XMB(3.9,55,2,33281,0)="""^DD"",399,399,30,21,1,0)"
^XMB(3.9,55,2,33282,0)="This is the bill number to which this claim is being cloned. "
^XMB(3.9,55,2,33283,0)="""^DD"",399,399,30,""DT"")"
^XMB(3.9,55,2,33284,0)="3050711"
^XMB(3.9,55,2,33285,0)="""^DD"",399,399,31,0)"
^XMB(3.9,55,2,33286,0)="DATE BILL CLONED^D^^S1;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,55,2,33287,0)="""^DD"",399,399,31,3)"
^XMB(3.9,55,2,33288,0)="Enter the date this bill was cloned. "
^XMB(3.9,55,2,33289,0)="""^DD"",399,399,31,21,0)"
^XMB(3.9,55,2,33290,0)="^^1^1^3050712^"
^XMB(3.9,55,2,33291,0)="""^DD"",399,399,31,21,1,0)"
^XMB(3.9,55,2,33292,0)="This is the date this bill was cloned. "
^XMB(3.9,55,2,33293,0)="""^DD"",399,399,31,""DT"")"
^XMB(3.9,55,2,33294,0)="3050711"
^XMB(3.9,55,2,33295,0)="""^DD"",399,399,32,0)"
^XMB(3.9,55,2,33296,0)="BILL CLONED BY^P200'^VA(200,^S1;4^Q"
^XMB(3.9,55,2,33297,0)="""^DD"",399,399,32,3)"
^XMB(3.9,55,2,33298,0)="Enter the name of the person who is cloning the claim. "
^XMB(3.9,55,2,33299,0)="""^DD"",399,399,32,21,0)"
^XMB(3.9,55,2,33300,0)="^^1^1^3050712^"
^XMB(3.9,55,2,33301,0)="""^DD"",399,399,32,21,1,0)"
^XMB(3.9,55,2,33302,0)="This is the user who cloned the claim. "
^XMB(3.9,55,2,33303,0)="""^DD"",399,399,32,""DT"")"
^XMB(3.9,55,2,33304,0)="3050711"
^XMB(3.9,55,2,33305,0)="""^DD"",399,399,33,0)"
^XMB(3.9,55,2,33306,0)="REASON CLONED^F^^S1;5^K:$L(X)>30!($L(X)<3) X"
^XMB(3.9,55,2,33307,0)="""^DD"",399,399,33,3)"
^XMB(3.9,55,2,33308,0)="Answer must be 3-30 characters in length."
^XMB(3.9,55,2,33309,0)="""^DD"",399,399,33,21,0)"
^XMB(3.9,55,2,33310,0)="^^1^1^3050712^"
^XMB(3.9,55,2,33311,0)="""^DD"",399,399,33,21,1,0)"
^XMB(3.9,55,2,33312,0)="This is the reason why the old claim was cloned to a new one. "
^XMB(3.9,55,2,33313,0)="""^DD"",399,399,33,""DT"")"
^XMB(3.9,55,2,33314,0)="3050711"
^XMB(3.9,55,2,33315,0)="""^DD"",399,399,101,0)"
^XMB(3.9,55,2,33316,0)="PRIMARY INSURANCE CARRIER^R*P36'X^DIC(36,^M;1^D DD^IBCNS S DIC(""S"")=""I $D(IBDD(+Y)),'$D(^DGCR(399,DA,""""AIC"""",+Y))"" D ^DIC K DIC,IBDD S DIC=DIE,X=+Y K:Y<0 X"
^XMB(3.9,55,2,33317,0)="""^DD"",399,399,101,1,0)"
^XMB(3.9,55,2,33318,0)="^.1"
^XMB(3.9,55,2,33319,0)="""^DD"",399,399,101,1,1,0)"
^XMB(3.9,55,2,33320,0)="^^TRIGGER^399^122"
^XMB(3.9,55,2,33321,0)="""^DD"",399,399,101,1,1,1)"
^XMB(3.9,55,2,33322,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$$PRVNUM^IBCU(DA,X,1) X ^DD(399,101,1,1,1.4)"
^XMB(3.9,55,2,33323,0)="""^DD"",399,399,101,1,1,1.4)"
^XMB(3.9,55,2,33324,0)="S DIH=$G(^DGCR(399,DIV(0),""M1"")),DIV=X S $P(^(""M1""),U,2)=DIV,DIH=399,DIG=122 D ^DICR"
^XMB(3.9,55,2,33325,0)="""^DD"",399,399,101,1,1,2)"
^XMB(3.9,55,2,33326,0)="Q"
^XMB(3.9,55,2,33327,0)="""^DD"",399,399,101,1,1,3)"
^XMB(3.9,55,2,33328,0)="Do Not Delete"
^XMB(3.9,55,2,33329,0)="""^DD"",399,399,101,1,1,""%D"",0)"
^XMB(3.9,55,2,33330,0)="^.101^3^3^3020819^^"
^XMB(3.9,55,2,33331,0)="""^DD"",399,399,101,1,1,""%D"",1,0)"
^XMB(3.9,55,2,33332,0)="This trigger sets the Bill Primary Provider # based on the Form Type,  "
^XMB(3.9,55,2,33333,0)="""^DD"",399,399,101,1,1,""%D"",2,0)"
^XMB(3.9,55,2,33334,0)="using the Primary Insurance Companies Hospital or Professional Provider "
^XMB(3.9,55,2,33335,0)="""^DD"",399,399,101,1,1,""%D"",3,0)"
^XMB(3.9,55,2,33336,0)="Number.  Special case for Medicare Part A."
^XMB(3.9,55,2,33337,0)="""^DD"",399,399,101,1,1,""CREATE VALUE"")"
^XMB(3.9,55,2,33338,0)="S X=$$PRVNUM^IBCU(DA,X,1)"
^XMB(3.9,55,2,33339,0)="""^DD"",399,399,101,1,1,""DELETE VALUE"")"
^XMB(3.9,55,2,33340,0)="NO EFFECT"
^XMB(3.9,55,2,33341,0)="""^DD"",399,399,101,1,1,""DT"")"
^XMB(3.9,55,2,33342,0)="3020819"
^XMB(3.9,55,2,33343,0)="""^DD"",399,399,101,1,1,""FIELD"")"
^XMB(3.9,55,2,33344,0)="PRIMARY PROVIDER #"
^XMB(3.9,55,2,33345,0)="""^DD"",399,399,101,1,2,0)"
^XMB(3.9,55,2,33346,0)="^^TRIGGER^399^24"
^XMB(3.9,55,2,33347,0)="""^DD"",399,399,101,1,2,1)"
^XMB(3.9,55,2,33348,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $$COBN^IBCEF(DA)=1 I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""TX"")):^(""TX""),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(399,101,1,2,1.1) X ^DD(399,101,1,2,1.4)"
^XMB(3.9,55,2,33349,0)="""^DD"",399,399,101,1,2,1.1)"
^XMB(3.9,55,2,33350,0)="S X=DIV S X=$S($$REQMRA^IBEFUNC(DA):""1N"",1:"""")"
^XMB(3.9,55,2,33351,0)="""^DD"",399,399,101,1,2,1.4)"
^XMB(3.9,55,2,33352,0)="S DIH=$S($D(^DGCR(399,DIV(0),""TX"")):^(""TX""),1:""""),DIV=X S $P(^(""TX""),U,5)=DIV,DIH=399,DIG=24 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,55,2,33353,0)="""^DD"",399,399,101,1,2,2)"
^XMB(3.9,55,2,33354,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $$COBN^IBCEF(DA)=1 I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""TX"")):^(""TX""),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" X ^DD(399,101,1,2,2.4)"
^XMB(3.9,55,2,33355,0)="""^DD"",399,399,101,1,2,2.4)"
^XMB(3.9,55,2,33356,0)="S DIH=$S($D(^DGCR(399,DIV(0),""TX"")):^(""TX""),1:""""),DIV=X S $P(^(""TX""),U,5)=DIV,DIH=399,DIG=24 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,55,2,33357,0)="""^DD"",399,399,101,1,2,3)"
^XMB(3.9,55,2,33358,0)="DO NOT DELETE"
^XMB(3.9,55,2,33359,0)="""^DD"",399,399,101,1,2,""%D"",0)"
^XMB(3.9,55,2,33360,0)="^^2^2^2990628^"
^XMB(3.9,55,2,33361,0)="""^DD"",399,399,101,1,2,""%D"",1,0)"
^XMB(3.9,55,2,33362,0)="This triggers the CLAIM MRA STATUS to 'MRA NEEDED' (1N) if the primary"
^XMB(3.9,55,2,33363,0)="""^DD"",399,399,101,1,2,""%D"",2,0)"
^XMB(3.9,55,2,33364,0)="insurance is the current insurance and the current insurance = MEDICARE WNR."
^XMB(3.9,55,2,33365,0)="""^DD"",399,399,101,1,2,""CREATE CONDITION"")"
^XMB(3.9,55,2,33366,0)="I $$COBN^IBCEF(DA)=1"
^XMB(3.9,55,2,33367,0)="""^DD"",399,399,101,1,2,""CREATE VALUE"")"
^XMB(3.9,55,2,33368,0)="S X=$S($$REQMRA^IBEFUNC(DA):""1N"",1:"""")"
^XMB(3.9,55,2,33369,0)="""^DD"",399,399,101,1,2,""DELETE CONDITION"")"
^XMB(3.9,55,2,33370,0)="I $$COBN^IBCEF(DA)=1"
^XMB(3.9,55,2,33371,0)="""^DD"",399,399,101,1,2,""DELETE VALUE"")"
^XMB(3.9,55,2,33372,0)="@"
^XMB(3.9,55,2,33373,0)="""^DD"",399,399,101,1,2,""DT"")"
^XMB(3.9,55,2,33374,0)="2990628"
^XMB(3.9,55,2,33375,0)="""^DD"",399,399,101,1,2,""FIELD"")"
^XMB(3.9,55,2,33376,0)="CLAIM MRA STATUS"
^XMB(3.9,55,2,33377,0)="""^DD"",399,399,101,1,3,0)"
^XMB(3.9,55,2,33378,0)="^^TRIGGER^399^27"
^XMB(3.9,55,2,33379,0)="""^DD"",399,399,101,1,3,1)"
^XMB(3.9,55,2,33380,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$S($$MCRWNR^IBEFUNC(X):$$COBN^IBCEF(DA)=1,1:0) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""TX"")):^(""TX""),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="""" X ^DD(399,101,1,3,1.4)"
^XMB(3.9,55,2,33381,0)="""^DD"",399,399,101,1,3,1.4)"
^XMB(3.9,55,2,33382,0)="S DIH=$G(^DGCR(399,DIV(0),""TX"")),DIV=X S $P(^(""TX""),U,8)=DIV,DIH=399,DIG=27 D ^DICR"
^XMB(3.9,55,2,33383,0)="""^DD"",399,399,101,1,3,2)"
^XMB(3.9,55,2,33384,0)="Q"
^XMB(3.9,55,2,33385,0)="""^DD"",399,399,101,1,3,3)"
^XMB(3.9,55,2,33386,0)="Do not delete"
^XMB(3.9,55,2,33387,0)="""^DD"",399,399,101,1,3,""%D"",0)"
^XMB(3.9,55,2,33388,0)="^^3^3^3041119^"
^XMB(3.9,55,2,33389,0)="""^DD"",399,399,101,1,3,""%D"",1,0)"
^XMB(3.9,55,2,33390,0)="When the current insurance is the primary insurance and the primary"
^XMB(3.9,55,2,33391,0)="""^DD"",399,399,101,1,3,""%D"",2,0)"
^XMB(3.9,55,2,33392,0)="insurance is MEDICARE WNR, delete the FORCE CLAIM TO PRINT field as it"
^XMB(3.9,55,2,33393,0)="""^DD"",399,399,101,1,3,""%D"",3,0)"
^XMB(3.9,55,2,33394,0)="is not valid to print an MRA request."
^XMB(3.9,55,2,33395,0)="""^DD"",399,399,101,1,3,""CREATE CONDITION"")"
^XMB(3.9,55,2,33396,0)="S X=$S($$MCRWNR^IBEFUNC(X):$$COBN^IBCEF(DA)=1,1:0)"
^XMB(3.9,55,2,33397,0)="""^DD"",399,399,101,1,3,""CREATE VALUE"")"
^XMB(3.9,55,2,33398,0)="@"
^XMB(3.9,55,2,33399,0)="""^DD"",399,399,101,1,3,""DELETE VALUE"")"
^XMB(3.9,55,2,33400,0)="NO EFFECT"
^XMB(3.9,55,2,33401,0)="""^DD"",399,399,101,1,3,""DT"")"
^XMB(3.9,55,2,33402,0)="3041119"
^XMB(3.9,55,2,33403,0)="""^DD"",399,399,101,1,3,""FIELD"")"
^XMB(3.9,55,2,33404,0)="FORCE CLAIM TO PRINT"
^XMB(3.9,55,2,33405,0)="""^DD"",399,399,101,1,4,0)"
^XMB(3.9,55,2,33406,0)="^^TRIGGER^399^128"
^XMB(3.9,55,2,33407,0)="""^DD"",399,399,101,1,4,1)"
^XMB(3.9,55,2,33408,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=$$PRVQUAL^IBCU(DA,X,1) X ^DD(399,101,1,4,1.4)"
^XMB(3.9,55,2,33409,0)="""^DD"",399,399,101,1,4,1.4)"
^XMB(3.9,55,2,33410,0)="S DIH=$G(^DGCR(399,DIV(0),""M1"")),DIV=X S $P(^(""M1""),U,10)=DIV,DIH=399,DIG=128 D ^DICR"
^XMB(3.9,55,2,33411,0)="""^DD"",399,399,101,1,4,2)"
^XMB(3.9,55,2,33412,0)="Q"
^XMB(3.9,55,2,33413,0)="""^DD"",399,399,101,1,4,""CREATE VALUE"")"
^XMB(3.9,55,2,33414,0)="S X=$$PRVQUAL^IBCU(DA,X,1)"
^XMB(3.9,55,2,33415,0)="""^DD"",399,399,101,1,4,""DELETE VALUE"")"
^XMB(3.9,55,2,33416,0)="NO EFFECT"
^XMB(3.9,55,2,33417,0)="""^DD"",399,399,101,1,4,""DT"")"
^XMB(3.9,55,2,33418,0)="3060219"
^XMB(3.9,55,2,33419,0)="""^DD"",399,399,101,1,4,""FIELD"")"
^XMB(3.9,55,2,33420,0)="PRIMARY ID QUALIFIER"
^XMB(3.9,55,2,33421,0)="""^DD"",399,399,101,3)"
^XMB(3.9,55,2,33422,0)="Enter name of insurance carrier to which this bill is to be sent."
^XMB(3.9,55,2,33423,0)="""^DD"",399,399,101,5,1,0)"
^XMB(3.9,55,2,33424,0)="399^112^1"
^XMB(3.9,55,2,33425,0)="""^DD"",399,399,101,12)"
^XMB(3.9,55,2,33426,0)="Only valid insurance companies for this date of care."
^XMB(3.9,55,2,33427,0)="""^DD"",399,399,101,12.1)"
^XMB(3.9,55,2,33428,0)="S DIC(""S"")=""I $D(IBDD(+Y)),'$D(^DGCR(399,DA,""""AIC"""",+Y))"""
^XMB(3.9,55,2,33429,0)="""^DD"",399,399,101,21,0)"
^XMB(3.9,55,2,33430,0)="^^2^2^2990503^^^^"
^XMB(3.9,55,2,33431,0)="""^DD"",399,399,101,21,1,0)"
^XMB(3.9,55,2,33432,0)="This is the name of the insurance carrier to which this bill is to be sent."
^XMB(3.9,55,2,33433,0)="""^DD"",399,399,101,21,2,0)"
^XMB(3.9,55,2,33434,0)="This is from the entries in this patient's file of insurance companies. "
^XMB(3.9,55,2,33435,0)="""^DD"",399,399,101,23,0)"
^XMB(3.9,55,2,33436,0)="^^3^3^2990503^^^"
^XMB(3.9,55,2,33437,0)="""^DD"",399,399,101,23,1,0)"
^XMB(3.9,55,2,33438,0)="Only valid/active insurance companies for this patient can be choosen,"
^XMB(3.9,55,2,33439,0)="""^DD"",399,399,101,23,2,0)"
^XMB(3.9,55,2,33440,0)="as defined by DD^IBCNS.  Company must not already be defined as a carrier "
^XMB(3.9,55,2,33441,0)="""^DD"",399,399,101,23,3,0)"
^XMB(3.9,55,2,33442,0)="(399,102-103) for this bill."
^XMB(3.9,55,2,33443,0)="""^DD"",399,399,101,""DT"")"
^XMB(3.9,55,2,33444,0)="3060219"
^XMB(3.9,55,2,33445,0)="""^DD"",399,399,102,0)"
^XMB(3.9,55,2,33446,0)="SECONDARY INSURANCE CARRIER^*P36'X^DIC(36,^M;2^D ^DIC K DIC,IBDD S DIC=DIE,X=+Y K:Y<0 X"
^XMB(3.9,55,2,33447,0)="""^DD"",399,399,102,1,0)"
^XMB(3.9,55,2,33448,0)="^.1"
^XMB(3.9,55,2,33449,0)="""^DD"",399,399,102,1,1,0)"
^XMB(3.9,55,2,33450,0)="399^AI2^MUMPS"
^XMB(3.9,55,2,33451,0)="""^DD"",399,399,102,1,1,1)"
^XMB(3.9,55,2,33452,0)="Q"
^XMB(3.9,55,2,33453,0)="""^DD"",399,399,102,1,1,2)"
^XMB(3.9,55,2,33454,0)="Q"
^XMB(3.9,55,2,33455,0)="""^DD"",399,399,102,1,1,""DT"")"
^XMB(3.9,55,2,33456,0)="2931220"
^XMB(3.9,55,2,33457,0)="""^DD"",399,399,102,1,2,0)"
^XMB(3.9,55,2,33458,0)="^^TRIGGER^399^123"
^XMB(3.9,55,2,33459,0)="""^DD"",399,399,102,1,2,1)"
^XMB(3.9,55,2,33460,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$$PRVNUM^IBCU(DA,X,2) X ^DD(399,102,1,2,1.4)"
^XMB(3.9,55,2,33461,0)="""^DD"",399,399,102,1,2,1.4)"
^XMB(3.9,55,2,33462,0)="S DIH=$G(^DGCR(399,DIV(0),""M1"")),DIV=X S $P(^(""M1""),U,3)=DIV,DIH=399,DIG=123 D ^DICR"
^XMB(3.9,55,2,33463,0)="""^DD"",399,399,102,1,2,2)"
^XMB(3.9,55,2,33464,0)="Q"
^XMB(3.9,55,2,33465,0)="""^DD"",399,399,102,1,2,3)"
^XMB(3.9,55,2,33466,0)="Do Not Delete"
^XMB(3.9,55,2,33467,0)="""^DD"",399,399,102,1,2,""%D"",0)"
^XMB(3.9,55,2,33468,0)="^^3^3^3020819^"
^XMB(3.9,55,2,33469,0)="""^DD"",399,399,102,1,2,""%D"",1,0)"
^XMB(3.9,55,2,33470,0)="This trigger sets the Bill Secondary Provider # based on the Form Type,  "
^XMB(3.9,55,2,33471,0)="""^DD"",399,399,102,1,2,""%D"",2,0)"
^XMB(3.9,55,2,33472,0)="using the Secondary Insurance Companies Hospital or Professional Provider "
^XMB(3.9,55,2,33473,0)="""^DD"",399,399,102,1,2,""%D"",3,0)"
^XMB(3.9,55,2,33474,0)="Number.  Special case for Medicare Part A."
^XMB(3.9,55,2,33475,0)="""^DD"",399,399,102,1,2,""CREATE VALUE"")"
^XMB(3.9,55,2,33476,0)="S X=$$PRVNUM^IBCU(DA,X,2)"
^XMB(3.9,55,2,33477,0)="""^DD"",399,399,102,1,2,""DELETE VALUE"")"
^XMB(3.9,55,2,33478,0)="NO EFFECT"
^XMB(3.9,55,2,33479,0)="""^DD"",399,399,102,1,2,""DT"")"
^XMB(3.9,55,2,33480,0)="3020819"
^XMB(3.9,55,2,33481,0)="""^DD"",399,399,102,1,2,""FIELD"")"
^XMB(3.9,55,2,33482,0)="SECONDARY PROVIDER "
^XMB(3.9,55,2,33483,0)="""^DD"",399,399,102,1,3,0)"
^XMB(3.9,55,2,33484,0)="^^TRIGGER^399^24"
^XMB(3.9,55,2,33485,0)="""^DD"",399,399,102,1,3,1)"
^XMB(3.9,55,2,33486,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $$COBN^IBCEF(DA)=2 I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""TX"")):^(""TX""),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(399,102,1,3,1.1) X ^DD(399,102,1,3,1.4)"
^XMB(3.9,55,2,33487,0)="""^DD"",399,399,102,1,3,1.1)"
^XMB(3.9,55,2,33488,0)="S X=DIV S X=$S($$REQMRA^IBEFUNC(DA):""1N"",1:"""")"
^XMB(3.9,55,2,33489,0)="""^DD"",399,399,102,1,3,1.4)"
^XMB(3.9,55,2,33490,0)="S DIH=$S($D(^DGCR(399,DIV(0),""TX"")):^(""TX""),1:""""),DIV=X S $P(^(""TX""),U,5)=DIV,DIH=399,DIG=24 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,55,2,33491,0)="""^DD"",399,399,102,1,3,2)"
^XMB(3.9,55,2,33492,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $$COBN^IBCEF(DA)=2 I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""TX"")):^(""TX""),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" X ^DD(399,102,1,3,2.4)"
^XMB(3.9,55,2,33493,0)="""^DD"",399,399,102,1,3,2.4)"
^XMB(3.9,55,2,33494,0)="S DIH=$S($D(^DGCR(399,DIV(0),""TX"")):^(""TX""),1:""""),DIV=X S $P(^(""TX""),U,5)=DIV,DIH=399,DIG=24 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,55,2,33495,0)="""^DD"",399,399,102,1,3,3)"
^XMB(3.9,55,2,33496,0)="DO NOT DELETE"
^XMB(3.9,55,2,33497,0)="""^DD"",399,399,102,1,3,""%D"",0)"
^XMB(3.9,55,2,33498,0)="^^3^3^2990628^"
^XMB(3.9,55,2,33499,0)="""^DD"",399,399,102,1,3,""%D"",1,0)"
^XMB(3.9,55,2,33500,0)="This trigger forces the CLAIM MRA STATUS field to be set appropriately if"
^XMB(3.9,55,2,33501,0)="""^DD"",399,399,102,1,3,""%D"",2,0)"
^XMB(3.9,55,2,33502,0)="the current insurance is the secondary insurance company and it will require"
^XMB(3.9,55,2,33503,0)="""^DD"",399,399,102,1,3,""%D"",3,0)"
^XMB(3.9,55,2,33504,0)="an MRA request."
^XMB(3.9,55,2,33505,0)="""^DD"",399,399,102,1,3,""CREATE CONDITION"")"
^XMB(3.9,55,2,33506,0)="I $$COBN^IBCEF(DA)=2"
^XMB(3.9,55,2,33507,0)="""^DD"",399,399,102,1,3,""CREATE VALUE"")"
^XMB(3.9,55,2,33508,0)="S X=$S($$REQMRA^IBEFUNC(DA):""1N"",1:"""")"
^XMB(3.9,55,2,33509,0)="""^DD"",399,399,102,1,3,""DELETE CONDITION"")"
^XMB(3.9,55,2,33510,0)="I $$COBN^IBCEF(DA)=2"
^XMB(3.9,55,2,33511,0)="""^DD"",399,399,102,1,3,""DELETE VALUE"")"
^XMB(3.9,55,2,33512,0)="@"
^XMB(3.9,55,2,33513,0)="""^DD"",399,399,102,1,3,""DT"")"
^XMB(3.9,55,2,33514,0)="2990628"
^XMB(3.9,55,2,33515,0)="""^DD"",399,399,102,1,3,""FIELD"")"
^XMB(3.9,55,2,33516,0)="CLAIM MRA STATUS"
^XMB(3.9,55,2,33517,0)="""^DD"",399,399,102,1,4,0)"
^XMB(3.9,55,2,33518,0)="^^TRIGGER^399^27"
^XMB(3.9,55,2,33519,0)="""^DD"",399,399,102,1,4,1)"
^XMB(3.9,55,2,33520,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$S($$MCRWNR^IBEFUNC(X):$$COBN^IBCEF(DA)=2,1:0) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""TX"")):^(""TX""),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="""" X ^DD(399,102,1,4,1.4)"
^XMB(3.9,55,2,33521,0)="""^DD"",399,399,102,1,4,1.4)"
^XMB(3.9,55,2,33522,0)="S DIH=$G(^DGCR(399,DIV(0),""TX"")),DIV=X S $P(^(""TX""),U,8)=DIV,DIH=399,DIG=27 D ^DICR"
^XMB(3.9,55,2,33523,0)="""^DD"",399,399,102,1,4,2)"
^XMB(3.9,55,2,33524,0)="Q"
^XMB(3.9,55,2,33525,0)="""^DD"",399,399,102,1,4,3)"
^XMB(3.9,55,2,33526,0)="Do not delete"
^XMB(3.9,55,2,33527,0)="""^DD"",399,399,102,1,4,""%D"",0)"
^XMB(3.9,55,2,33528,0)="^^3^3^3041119^"
^XMB(3.9,55,2,33529,0)="""^DD"",399,399,102,1,4,""%D"",1,0)"
^XMB(3.9,55,2,33530,0)="When the current insurance is the secondary insurance and the secondary"
^XMB(3.9,55,2,33531,0)="""^DD"",399,399,102,1,4,""%D"",2,0)"
^XMB(3.9,55,2,33532,0)="insurance is MEDICARE WNR, delete the FORCE CLAIM TO PRINT field as it"
^XMB(3.9,55,2,33533,0)="""^DD"",399,399,102,1,4,""%D"",3,0)"
^XMB(3.9,55,2,33534,0)="is not valid to print an MRA request."
^XMB(3.9,55,2,33535,0)="""^DD"",399,399,102,1,4,""CREATE CONDITION"")"
^XMB(3.9,55,2,33536,0)="S X=$S($$MCRWNR^IBEFUNC(X):$$COBN^IBCEF(DA)=2,1:0)"
^XMB(3.9,55,2,33537,0)="""^DD"",399,399,102,1,4,""CREATE VALUE"")"
^XMB(3.9,55,2,33538,0)="@"
^XMB(3.9,55,2,33539,0)="""^DD"",399,399,102,1,4,""DELETE VALUE"")"
^XMB(3.9,55,2,33540,0)="NO EFFECT"
^XMB(3.9,55,2,33541,0)="""^DD"",399,399,102,1,4,""DT"")"
^XMB(3.9,55,2,33542,0)="3041119"
^XMB(3.9,55,2,33543,0)="""^DD"",399,399,102,1,4,""FIELD"")"
^XMB(3.9,55,2,33544,0)="FORCE CLAIM TO PRINT"
^XMB(3.9,55,2,33545,0)="""^DD"",399,399,102,1,5,0)"
^XMB(3.9,55,2,33546,0)="^^TRIGGER^399^129"
^XMB(3.9,55,2,33547,0)="""^DD"",399,399,102,1,5,1)"
^XMB(3.9,55,2,33548,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=$$PRVQUAL^IBCU(DA,X,2) X ^DD(399,102,1,5,1.4)"
^XMB(3.9,55,2,33549,0)="""^DD"",399,399,102,1,5,1.4)"
^XMB(3.9,55,2,33550,0)="S DIH=$G(^DGCR(399,DIV(0),""M1"")),DIV=X S $P(^(""M1""),U,11)=DIV,DIH=399,DIG=129 D ^DICR"
^XMB(3.9,55,2,33551,0)="""^DD"",399,399,102,1,5,2)"
^XMB(3.9,55,2,33552,0)="Q"
^XMB(3.9,55,2,33553,0)="""^DD"",399,399,102,1,5,""CREATE VALUE"")"
^XMB(3.9,55,2,33554,0)="S X=$$PRVQUAL^IBCU(DA,X,2)"
^XMB(3.9,55,2,33555,0)="""^DD"",399,399,102,1,5,""DELETE VALUE"")"
^XMB(3.9,55,2,33556,0)="NO EFFECT"
^XMB(3.9,55,2,33557,0)="""^DD"",399,399,102,1,5,""DT"")"
^XMB(3.9,55,2,33558,0)="3060219"
^XMB(3.9,55,2,33559,0)="""^DD"",399,399,102,1,5,""FIELD"")"
^XMB(3.9,55,2,33560,0)="SECONDARY ID QUALIFIER"
^XMB(3.9,55,2,33561,0)="""^DD"",399,399,102,3)"
^XMB(3.9,55,2,33562,0)="Enter name of secondary insurance carrier from which the provider might expect some payment for this bill."
^XMB(3.9,55,2,33563,0)="""^DD"",399,399,102,5,1,0)"
^XMB(3.9,55,2,33564,0)="399^113^1"
^XMB(3.9,55,2,33565,0)="""^DD"",399,399,102,12)"
^XMB(3.9,55,2,33566,0)="Only valid insurance companies for this date of care."
^XMB(3.9,55,2,33567,0)="""^DD"",399,399,102,12.1)"
^XMB(3.9,55,2,33568,0)="S DIC(""S"")=""I $D(IBDD(+Y)),'$D(^DGCR(399,DA,""""AIC"""",+Y))"""
^XMB(3.9,55,2,33569,0)="""^DD"",399,399,102,21,0)"
^XMB(3.9,55,2,33570,0)="^^2^2^2880831^"
^XMB(3.9,55,2,33571,0)="""^DD"",399,399,102,21,1,0)"
^XMB(3.9,55,2,33572,0)="This is the name of the secondary insurance carrier from which the provider"
^XMB(3.9,55,2,33573,0)="""^DD"",399,399,102,21,2,0)"
^XMB(3.9,55,2,33574,0)="might expect some payment for this bill."
^XMB(3.9,55,2,33575,0)="""^DD"",399,399,102,""DT"")"
^XMB(3.9,55,2,33576,0)="3060219"
^XMB(3.9,55,2,33577,0)="""^DD"",399,399,103,0)"
^XMB(3.9,55,2,33578,0)="TERTIARY INSURANCE CARRIER^*P36'X^DIC(36,^M;3^D ^DIC K DIC,IBDD S DIC=DIE,X=+Y K:Y<0 X"
^XMB(3.9,55,2,33579,0)="""^DD"",399,399,103,1,0)"
^XMB(3.9,55,2,33580,0)="^.1"
^XMB(3.9,55,2,33581,0)="""^DD"",399,399,103,1,1,0)"
^XMB(3.9,55,2,33582,0)="399^AI3^MUMPS"
^XMB(3.9,55,2,33583,0)="""^DD"",399,399,103,1,1,1)"
^XMB(3.9,55,2,33584,0)="Q"
^XMB(3.9,55,2,33585,0)="""^DD"",399,399,103,1,1,2)"
^XMB(3.9,55,2,33586,0)="Q"
^XMB(3.9,55,2,33587,0)="""^DD"",399,399,103,1,1,""DT"")"
^XMB(3.9,55,2,33588,0)="2931220"
^XMB(3.9,55,2,33589,0)="""^DD"",399,399,103,1,2,0)"
^XMB(3.9,55,2,33590,0)="^^TRIGGER^399^124"
^XMB(3.9,55,2,33591,0)="""^DD"",399,399,103,1,2,1)"
^XMB(3.9,55,2,33592,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=$$PRVNUM^IBCU(DA,X,3) X ^DD(399,103,1,2,1.4)"
^XMB(3.9,55,2,33593,0)="""^DD"",399,399,103,1,2,1.4)"
^XMB(3.9,55,2,33594,0)="S DIH=$G(^DGCR(399,DIV(0),""M1"")),DIV=X S $P(^(""M1""),U,4)=DIV,DIH=399,DIG=124 D ^DICR"
^XMB(3.9,55,2,33595,0)="""^DD"",399,399,103,1,2,2)"
^XMB(3.9,55,2,33596,0)="Q"
^XMB(3.9,55,2,33597,0)="""^DD"",399,399,103,1,2,3)"
^XMB(3.9,55,2,33598,0)="Do Not Delete"
^XMB(3.9,55,2,33599,0)="""^DD"",399,399,103,1,2,""%D"",0)"
^XMB(3.9,55,2,33600,0)="^^3^3^3020819^"
^XMB(3.9,55,2,33601,0)="""^DD"",399,399,103,1,2,""%D"",1,0)"
^XMB(3.9,55,2,33602,0)="This trigger sets the Bill Tertiary Provider # based on the Form Type,  "
^XMB(3.9,55,2,33603,0)="""^DD"",399,399,103,1,2,""%D"",2,0)"
^XMB(3.9,55,2,33604,0)="using the Tertiary Insurance Companies Hospital or Professional Provider "
^XMB(3.9,55,2,33605,0)="""^DD"",399,399,103,1,2,""%D"",3,0)"
^XMB(3.9,55,2,33606,0)="Number.  Special case for Medicare Part A."
^XMB(3.9,55,2,33607,0)="""^DD"",399,399,103,1,2,""CREATE VALUE"")"
^XMB(3.9,55,2,33608,0)="S X=$$PRVNUM^IBCU(DA,X,3)"
^XMB(3.9,55,2,33609,0)="""^DD"",399,399,103,1,2,""DELETE VALUE"")"
^XMB(3.9,55,2,33610,0)="NO EFFECT"
^XMB(3.9,55,2,33611,0)="""^DD"",399,399,103,1,2,""DT"")"
^XMB(3.9,55,2,33612,0)="3020819"
^XMB(3.9,55,2,33613,0)="""^DD"",399,399,103,1,2,""FIELD"")"
^XMB(3.9,55,2,33614,0)="TERTIARY PROVIDER"
^XMB(3.9,55,2,33615,0)="""^DD"",399,399,103,1,3,0)"
^XMB(3.9,55,2,33616,0)="^^TRIGGER^399^130"
^XMB(3.9,55,2,33617,0)="""^DD"",399,399,103,1,3,1)"
^XMB(3.9,55,2,33618,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X=DIV S X=$$PRVQUAL^IBCU(DA,X,3) X ^DD(399,103,1,3,1.4)"
^XMB(3.9,55,2,33619,0)="""^DD"",399,399,103,1,3,1.4)"
^XMB(3.9,55,2,33620,0)="S DIH=$G(^DGCR(399,DIV(0),""M1"")),DIV=X S $P(^(""M1""),U,12)=DIV,DIH=399,DIG=130 D ^DICR"
^XMB(3.9,55,2,33621,0)="""^DD"",399,399,103,1,3,2)"
^XMB(3.9,55,2,33622,0)="Q"
^XMB(3.9,55,2,33623,0)="""^DD"",399,399,103,1,3,""CREATE VALUE"")"
^XMB(3.9,55,2,33624,0)="S X=$$PRVQUAL^IBCU(DA,X,3)"
^XMB(3.9,55,2,33625,0)="""^DD"",399,399,103,1,3,""DELETE VALUE"")"
^XMB(3.9,55,2,33626,0)="NO EFFECT"
^XMB(3.9,55,2,33627,0)="""^DD"",399,399,103,1,3,""DT"")"
^XMB(3.9,55,2,33628,0)="3060219"
^XMB(3.9,55,2,33629,0)="""^DD"",399,399,103,1,3,""FIELD"")"
^XMB(3.9,55,2,33630,0)="TERTIARY ID QUALIFIER"
^XMB(3.9,55,2,33631,0)="""^DD"",399,399,103,3)"
^XMB(3.9,55,2,33632,0)="Enter name of tertiary insurance carrier from which the provider might expect some payment for this bill."
^XMB(3.9,55,2,33633,0)="""^DD"",399,399,103,5,1,0)"
^XMB(3.9,55,2,33634,0)="399^114^1"
^XMB(3.9,55,2,33635,0)="""^DD"",399,399,103,12)"
^XMB(3.9,55,2,33636,0)="Only valid insurance companies for this date of care."
^XMB(3.9,55,2,33637,0)="""^DD"",399,399,103,12.1)"
^XMB(3.9,55,2,33638,0)="S DIC(""S"")=""I $D(IBDD(+Y)),'$D(^DGCR(399,DA,""""AIC"""",+Y))"""
^XMB(3.9,55,2,33639,0)="""^DD"",399,399,103,21,0)"
^XMB(3.9,55,2,33640,0)="^^2^2^2880831^"
^XMB(3.9,55,2,33641,0)="""^DD"",399,399,103,21,1,0)"
^XMB(3.9,55,2,33642,0)="This is the name of the tertiary insurance carrier from which the provider"
^XMB(3.9,55,2,33643,0)="""^DD"",399,399,103,21,2,0)"
^XMB(3.9,55,2,33644,0)="might expect some payment for this bill."
^XMB(3.9,55,2,33645,0)="""^DD"",399,399,103,""DT"")"
^XMB(3.9,55,2,33646,0)="3060219"
^XMB(3.9,55,2,33647,0)="""^DD"",399,399,122,0)"
^XMB(3.9,55,2,33648,0)="PRIMARY PROVIDER #^F^^M1;2^K:$L(X)>13!($L(X)<3) X"
^XMB(3.9,55,2,33649,0)="""^DD"",399,399,122,1,0)"
^XMB(3.9,55,2,33650,0)="^.1"
^XMB(3.9,55,2,33651,0)="""^DD"",399,399,122,1,1,0)"
^XMB(3.9,55,2,33652,0)="^^TRIGGER^399^128"
^XMB(3.9,55,2,33653,0)="""^DD"",399,399,122,1,1,1)"
^XMB(3.9,55,2,33654,0)="Q"
^XMB(3.9,55,2,33655,0)="""^DD"",399,399,122,1,1,2)"
^XMB(3.9,55,2,33656,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,2)="""" I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X="""" X ^DD(399,122,1,1,2.4)"
^XMB(3.9,55,2,33657,0)="""^DD"",399,399,122,1,1,2.4)"
^XMB(3.9,55,2,33658,0)="S DIH=$G(^DGCR(399,DIV(0),""M1"")),DIV=X S $P(^(""M1""),U,10)=DIV,DIH=399,DIG=128 D ^DICR"
^XMB(3.9,55,2,33659,0)="""^DD"",399,399,122,1,1,""%D"",0)"
^XMB(3.9,55,2,33660,0)="^^2^2^3060410^"
^XMB(3.9,55,2,33661,0)="""^DD"",399,399,122,1,1,""%D"",1,0)"
^XMB(3.9,55,2,33662,0)="This trigger will delete the PRIMARY ID QUALIFIER when the PRIMARY "
^XMB(3.9,55,2,33663,0)="""^DD"",399,399,122,1,1,""%D"",2,0)"
^XMB(3.9,55,2,33664,0)="PROVIDER # is deleted"
^XMB(3.9,55,2,33665,0)="""^DD"",399,399,122,1,1,""CREATE VALUE"")"
^XMB(3.9,55,2,33666,0)="NO EFFECT"
^XMB(3.9,55,2,33667,0)="""^DD"",399,399,122,1,1,""DELETE CONDITION"")"
^XMB(3.9,55,2,33668,0)="PRIMARY PROVIDER #="""""
^XMB(3.9,55,2,33669,0)="""^DD"",399,399,122,1,1,""DELETE VALUE"")"
^XMB(3.9,55,2,33670,0)="@"
^XMB(3.9,55,2,33671,0)="""^DD"",399,399,122,1,1,""FIELD"")"
^XMB(3.9,55,2,33672,0)="PRIMARY ID QUALIFIER"
^XMB(3.9,55,2,33673,0)="""^DD"",399,399,122,3)"
^XMB(3.9,55,2,33674,0)="Answer must be 3-13 characters in length."
^XMB(3.9,55,2,33675,0)="""^DD"",399,399,122,5,1,0)"
^XMB(3.9,55,2,33676,0)="399^101^1"
^XMB(3.9,55,2,33677,0)="""^DD"",399,399,122,5,2,0)"
^XMB(3.9,55,2,33678,0)="399^.22^1"
^XMB(3.9,55,2,33679,0)="""^DD"",399,399,122,21,0)"
^XMB(3.9,55,2,33680,0)="^^2^2^2990210^^^"
^XMB(3.9,55,2,33681,0)="""^DD"",399,399,122,21,1,0)"
^XMB(3.9,55,2,33682,0)="This is the number assigned to the provider by the primary payer."
^XMB(3.9,55,2,33683,0)="""^DD"",399,399,122,21,2,0)"
^XMB(3.9,55,2,33684,0)="Printed in Form Locator 51 for the Primary Insurance Carrier on the UB-92."
^XMB(3.9,55,2,33685,0)="""^DD"",399,399,122,23,0)"
^XMB(3.9,55,2,33686,0)="^^2^2^2990210^^^"
^XMB(3.9,55,2,33687,0)="""^DD"",399,399,122,23,1,0)"
^XMB(3.9,55,2,33688,0)="Loaded with Hospital Provider Number (36,.11) of the Primary Insurance"
^XMB(3.9,55,2,33689,0)="""^DD"",399,399,122,23,2,0)"
^XMB(3.9,55,2,33690,0)="Carrier, if defined."
^XMB(3.9,55,2,33691,0)="""^DD"",399,399,122,""DT"")"
^XMB(3.9,55,2,33692,0)="3060410"
^XMB(3.9,55,2,33693,0)="""^DD"",399,399,123,0)"
^XMB(3.9,55,2,33694,0)="SECONDARY PROVIDER #^F^^M1;3^K:$L(X)>13!($L(X)<3) X"
^XMB(3.9,55,2,33695,0)="""^DD"",399,399,123,1,0)"
^XMB(3.9,55,2,33696,0)="^.1"
^XMB(3.9,55,2,33697,0)="""^DD"",399,399,123,1,1,0)"
^XMB(3.9,55,2,33698,0)="^^TRIGGER^399^129"
^XMB(3.9,55,2,33699,0)="""^DD"",399,399,123,1,1,1)"
^XMB(3.9,55,2,33700,0)="Q"
^XMB(3.9,55,2,33701,0)="""^DD"",399,399,123,1,1,2)"
^XMB(3.9,55,2,33702,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,3)="""" I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X="""" X ^DD(399,123,1,1,2.4)"
^XMB(3.9,55,2,33703,0)="""^DD"",399,399,123,1,1,2.4)"
^XMB(3.9,55,2,33704,0)="S DIH=$G(^DGCR(399,DIV(0),""M1"")),DIV=X S $P(^(""M1""),U,11)=DIV,DIH=399,DIG=129 D ^DICR"
^XMB(3.9,55,2,33705,0)="""^DD"",399,399,123,1,1,""%D"",0)"
^XMB(3.9,55,2,33706,0)="^^2^2^3060410^"
^XMB(3.9,55,2,33707,0)="""^DD"",399,399,123,1,1,""%D"",1,0)"
^XMB(3.9,55,2,33708,0)="This trigger will delete the SECONDARY ID QUALIFIER when the SECONDARY"
^XMB(3.9,55,2,33709,0)="""^DD"",399,399,123,1,1,""%D"",2,0)"
^XMB(3.9,55,2,33710,0)="PROVIDER # is deleted"
^XMB(3.9,55,2,33711,0)="""^DD"",399,399,123,1,1,""CREATE VALUE"")"
^XMB(3.9,55,2,33712,0)="NO EFFECT"
^XMB(3.9,55,2,33713,0)="""^DD"",399,399,123,1,1,""DELETE CONDITION"")"
^XMB(3.9,55,2,33714,0)="SECONDARY PROVIDER #="""""
^XMB(3.9,55,2,33715,0)="""^DD"",399,399,123,1,1,""DELETE VALUE"")"
^XMB(3.9,55,2,33716,0)="@"
^XMB(3.9,55,2,33717,0)="""^DD"",399,399,123,1,1,""FIELD"")"
^XMB(3.9,55,2,33718,0)="SECONDARY ID QUALIFIER"
^XMB(3.9,55,2,33719,0)="""^DD"",399,399,123,3)"
^XMB(3.9,55,2,33720,0)="Answer must be 3-13 characters in length."
^XMB(3.9,55,2,33721,0)="""^DD"",399,399,123,5,1,0)"
^XMB(3.9,55,2,33722,0)="399^102^2"
^XMB(3.9,55,2,33723,0)="""^DD"",399,399,123,5,2,0)"
^XMB(3.9,55,2,33724,0)="399^.22^2"
^XMB(3.9,55,2,33725,0)="""^DD"",399,399,123,21,0)"
^XMB(3.9,55,2,33726,0)="^^2^2^2940201^"
^XMB(3.9,55,2,33727,0)="""^DD"",399,399,123,21,1,0)"
^XMB(3.9,55,2,33728,0)="This is the number assigned to the provider by the secondary payer."
^XMB(3.9,55,2,33729,0)="""^DD"",399,399,123,21,2,0)"
^XMB(3.9,55,2,33730,0)="Printed in Form Locator 51 for the Secondary Insurance Carrier on the UB-92."
^XMB(3.9,55,2,33731,0)="""^DD"",399,399,123,23,0)"
^XMB(3.9,55,2,33732,0)="^^2^2^2940201^"
^XMB(3.9,55,2,33733,0)="""^DD"",399,399,123,23,1,0)"
^XMB(3.9,55,2,33734,0)="Loaded with Hospital Provider Number (36,.11) of the Secondary Insurance"
^XMB(3.9,55,2,33735,0)="""^DD"",399,399,123,23,2,0)"
^XMB(3.9,55,2,33736,0)="Carrier, if defined."
^XMB(3.9,55,2,33737,0)="""^DD"",399,399,123,""DT"")"
^XMB(3.9,55,2,33738,0)="3060410"
^XMB(3.9,55,2,33739,0)="""^DD"",399,399,124,0)"
^XMB(3.9,55,2,33740,0)="TERTIARY PROVIDER #^F^^M1;4^K:$L(X)>13!($L(X)<3) X"
^XMB(3.9,55,2,33741,0)="""^DD"",399,399,124,1,0)"
^XMB(3.9,55,2,33742,0)="^.1"
^XMB(3.9,55,2,33743,0)="""^DD"",399,399,124,1,1,0)"
^XMB(3.9,55,2,33744,0)="^^TRIGGER^399^130"
^XMB(3.9,55,2,33745,0)="""^DD"",399,399,124,1,1,1)"
^XMB(3.9,55,2,33746,0)="Q"
^XMB(3.9,55,2,33747,0)="""^DD"",399,399,124,1,1,2)"
^XMB(3.9,55,2,33748,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,4)="""" I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X="""" X ^DD(399,124,1,1,2.4)"
^XMB(3.9,55,2,33749,0)="""^DD"",399,399,124,1,1,2.4)"
^XMB(3.9,55,2,33750,0)="S DIH=$G(^DGCR(399,DIV(0),""M1"")),DIV=X S $P(^(""M1""),U,12)=DIV,DIH=399,DIG=130 D ^DICR"
^XMB(3.9,55,2,33751,0)="""^DD"",399,399,124,1,1,""%D"",0)"
^XMB(3.9,55,2,33752,0)="^^2^2^3060410^"
^XMB(3.9,55,2,33753,0)="""^DD"",399,399,124,1,1,""%D"",1,0)"
^XMB(3.9,55,2,33754,0)="This trigger will delete the TERTIARY ID QUALIFIER when the TERTIARY"
^XMB(3.9,55,2,33755,0)="""^DD"",399,399,124,1,1,""%D"",2,0)"
^XMB(3.9,55,2,33756,0)="PROVIDER # is deleted"
^XMB(3.9,55,2,33757,0)="""^DD"",399,399,124,1,1,""CREATE VALUE"")"
^XMB(3.9,55,2,33758,0)="NO EFFECT"
^XMB(3.9,55,2,33759,0)="""^DD"",399,399,124,1,1,""DELETE CONDITION"")"
^XMB(3.9,55,2,33760,0)="TERTIARY PROVIDER #="""""
^XMB(3.9,55,2,33761,0)="""^DD"",399,399,124,1,1,""DELETE VALUE"")"
^XMB(3.9,55,2,33762,0)="@"
^XMB(3.9,55,2,33763,0)="""^DD"",399,399,124,1,1,""FIELD"")"
^XMB(3.9,55,2,33764,0)="TERTIARY ID QUALIFIER"
^XMB(3.9,55,2,33765,0)="""^DD"",399,399,124,3)"
^XMB(3.9,55,2,33766,0)="Answer must be 3-13 characters in length."
^XMB(3.9,55,2,33767,0)="""^DD"",399,399,124,5,1,0)"
^XMB(3.9,55,2,33768,0)="399^103^2"
^XMB(3.9,55,2,33769,0)="""^DD"",399,399,124,5,2,0)"
^XMB(3.9,55,2,33770,0)="399^.22^3"
^XMB(3.9,55,2,33771,0)="""^DD"",399,399,124,21,0)"
^XMB(3.9,55,2,33772,0)="^^2^2^2940201^"
^XMB(3.9,55,2,33773,0)="""^DD"",399,399,124,21,1,0)"
^XMB(3.9,55,2,33774,0)="This is the number assigned to the provider by the tertiary payer."
^XMB(3.9,55,2,33775,0)="""^DD"",399,399,124,21,2,0)"
^XMB(3.9,55,2,33776,0)="Printed in Form Locator 51 for the Tertiary Insurance Carrier on the UB-92."
^XMB(3.9,55,2,33777,0)="""^DD"",399,399,124,23,0)"
^XMB(3.9,55,2,33778,0)="^^2^2^2940201^"
^XMB(3.9,55,2,33779,0)="""^DD"",399,399,124,23,1,0)"
^XMB(3.9,55,2,33780,0)="Loaded with Hospital Provider Number (36,.11) of the Tertiary Insurance"
^XMB(3.9,55,2,33781,0)="""^DD"",399,399,124,23,2,0)"
^XMB(3.9,55,2,33782,0)="Carrier, if defined."
^XMB(3.9,55,2,33783,0)="""^DD"",399,399,124,""DT"")"
^XMB(3.9,55,2,33784,0)="3060410"
^XMB(3.9,55,2,33785,0)="""^DD"",399,399,128,0)"
^XMB(3.9,55,2,33786,0)="PRIMARY ID QUALIFIER^*P355.97'^IBE(355.97,^M1;10^S DIC(""S"")=""I $$BPS^IBCEPU(Y)!($$EPT^IBCEPU(Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^XMB(3.9,55,2,33787,0)="""^DD"",399,399,128,3)"
^XMB(3.9,55,2,33788,0)="Enter the Qualifier for the Primary Insurance ID #"
^XMB(3.9,55,2,33789,0)="""^DD"",399,399,128,5,1,0)"
^XMB(3.9,55,2,33790,0)="399^101^4"
^XMB(3.9,55,2,33791,0)="""^DD"",399,399,128,5,2,0)"
^XMB(3.9,55,2,33792,0)="399^.22^4"
^XMB(3.9,55,2,33793,0)="""^DD"",399,399,128,5,4,0)"
^XMB(3.9,55,2,33794,0)="399^122^1"
^XMB(3.9,55,2,33795,0)="""^DD"",399,399,128,12)"
^XMB(3.9,55,2,33796,0)="Only Billing Provider Secondary IDs allowed"
^XMB(3.9,55,2,33797,0)="""^DD"",399,399,128,12.1)"
^XMB(3.9,55,2,33798,0)="S DIC(""S"")=""I $$BPS^IBCEPU(Y)!($$EPT^IBCEPU(Y))"""
^XMB(3.9,55,2,33799,0)="""^DD"",399,399,128,21,0)"
^XMB(3.9,55,2,33800,0)="^^1^1^3060309^"
^XMB(3.9,55,2,33801,0)="""^DD"",399,399,128,21,1,0)"
^XMB(3.9,55,2,33802,0)="This is the qualifier for PRIMARY PROVIDER #."
^XMB(3.9,55,2,33803,0)="""^DD"",399,399,128,""DT"")"
^XMB(3.9,55,2,33804,0)="3060417"
^XMB(3.9,55,2,33805,0)="""^DD"",399,399,129,0)"
^XMB(3.9,55,2,33806,0)="SECONDARY ID QUALIFIER^*P355.97'^IBE(355.97,^M1;11^S DIC(""S"")=""I $$BPS^IBCEPU(Y)!($$EPT^IBCEPU(Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^XMB(3.9,55,2,33807,0)="""^DD"",399,399,129,3)"
^XMB(3.9,55,2,33808,0)="Enter the Qualifier for the Secondary Insurance ID #"
^XMB(3.9,55,2,33809,0)="""^DD"",399,399,129,5,1,0)"
^XMB(3.9,55,2,33810,0)="399^102^5"
^XMB(3.9,55,2,33811,0)="""^DD"",399,399,129,5,2,0)"
^XMB(3.9,55,2,33812,0)="399^.22^5"
^XMB(3.9,55,2,33813,0)="""^DD"",399,399,129,5,4,0)"
^XMB(3.9,55,2,33814,0)="399^123^1"
^XMB(3.9,55,2,33815,0)="""^DD"",399,399,129,12)"
^XMB(3.9,55,2,33816,0)="Only Billing Provider Secondary IDs allowed"
^XMB(3.9,55,2,33817,0)="""^DD"",399,399,129,12.1)"
^XMB(3.9,55,2,33818,0)="S DIC(""S"")=""I $$BPS^IBCEPU(Y)!($$EPT^IBCEPU(Y))"""
^XMB(3.9,55,2,33819,0)="""^DD"",399,399,129,21,0)"
^XMB(3.9,55,2,33820,0)="^^1^1^3060309^"
^XMB(3.9,55,2,33821,0)="""^DD"",399,399,129,21,1,0)"
^XMB(3.9,55,2,33822,0)="This is the qualifier for the SECONDARY PROVIDER #."
^XMB(3.9,55,2,33823,0)="""^DD"",399,399,129,""DT"")"
^XMB(3.9,55,2,33824,0)="3060417"
^XMB(3.9,55,2,33825,0)="""^DD"",399,399,130,0)"
^XMB(3.9,55,2,33826,0)="TERTIARY ID QUALIFIER^*P355.97'^IBE(355.97,^M1;12^S DIC(""S"")=""I $$BPS^IBCEPU(Y)!($$EPT^IBCEPU(Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^XMB(3.9,55,2,33827,0)="""^DD"",399,399,130,3)"
^XMB(3.9,55,2,33828,0)="Enter the Qualifier for the Tertiary Insurance ID #"
^XMB(3.9,55,2,33829,0)="""^DD"",399,399,130,5,1,0)"
^XMB(3.9,55,2,33830,0)="399^103^3"
^XMB(3.9,55,2,33831,0)="""^DD"",399,399,130,5,2,0)"
^XMB(3.9,55,2,33832,0)="399^.22^6"
^XMB(3.9,55,2,33833,0)="""^DD"",399,399,130,5,4,0)"
^XMB(3.9,55,2,33834,0)="399^124^1"
^XMB(3.9,55,2,33835,0)="""^DD"",399,399,130,12)"
^XMB(3.9,55,2,33836,0)="Only Billing Provider Secondary IDs allowed"
^XMB(3.9,55,2,33837,0)="""^DD"",399,399,130,12.1)"
^XMB(3.9,55,2,33838,0)="S DIC(""S"")=""I $$BPS^IBCEPU(Y)!($$EPT^IBCEPU(Y))"""
^XMB(3.9,55,2,33839,0)="""^DD"",399,399,130,21,0)"
^XMB(3.9,55,2,33840,0)="^.001^1^1^3060309^^"
^XMB(3.9,55,2,33841,0)="""^DD"",399,399,130,21,1,0)"
^XMB(3.9,55,2,33842,0)="This is the qualifier for the TERTIARY PROVIDER #."
^XMB(3.9,55,2,33843,0)="""^DD"",399,399,130,""DT"")"
^XMB(3.9,55,2,33844,0)="3060417"
^XMB(3.9,55,2,33845,0)="""^DD"",399,399,232,0)"
^XMB(3.9,55,2,33846,0)="NON-VA FACILITY^*P355.93X^IBA(355.93,^U2;10^S DIC(""S"")=""I $P(^(0),U,2)=1,$P(^(0),U)'["""","""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^XMB(3.9,55,2,33847,0)="""^DD"",399,399,232,1,0)"
^XMB(3.9,55,2,33848,0)="^.1"
^XMB(3.9,55,2,33849,0)="""^DD"",399,399,232,1,1,0)"
^XMB(3.9,55,2,33850,0)="^^TRIGGER^399^234"
^XMB(3.9,55,2,33851,0)="""^DD"",399,399,232,1,1,1)"
^XMB(3.9,55,2,33852,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""U2"")):^(""U2""),1:"""") S X=$P(Y(1),U,12),X=X S DIU=X K Y X ^DD(399,232,1,1,1.1) X ^DD(399,232,1,1,1.4)"
^XMB(3.9,55,2,33853,0)="""^DD"",399,399,232,1,1,1.1)"
^XMB(3.9,55,2,33854,0)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^IBA(355.93,+D0,0)) D0=-1 S Y(101)=$S($D(^IBA(355.93,D0,0)):^(0),1:"""") S X=$P(Y(101),U,9) S D0=I(0,0)"
^XMB(3.9,55,2,33855,0)="""^DD"",399,399,232,1,1,1.4)"
^XMB(3.9,55,2,33856,0)="S DIH=$S($D(^DGCR(399,DIV(0),""U2"")):^(""U2""),1:""""),DIV=X S $P(^(""U2""),U,12)=DIV,DIH=399,DIG=234 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,55,2,33857,0)="""^DD"",399,399,232,1,1,2)"
^XMB(3.9,55,2,33858,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""U2"")):^(""U2""),1:"""") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X="""" X ^DD(399,232,1,1,2.4)"
^XMB(3.9,55,2,33859,0)="""^DD"",399,399,232,1,1,2.4)"
^XMB(3.9,55,2,33860,0)="S DIH=$S($D(^DGCR(399,DIV(0),""U2"")):^(""U2""),1:""""),DIV=X S $P(^(""U2""),U,12)=DIV,DIH=399,DIG=234 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,55,2,33861,0)="""^DD"",399,399,232,1,1,""CREATE VALUE"")"
^XMB(3.9,55,2,33862,0)="NON-VA FACILITY:FACILITY DEFAULT ID NUMBER"
^XMB(3.9,55,2,33863,0)="""^DD"",399,399,232,1,1,""DELETE VALUE"")"
^XMB(3.9,55,2,33864,0)="@"
^XMB(3.9,55,2,33865,0)="""^DD"",399,399,232,1,1,""DT"")"
^XMB(3.9,55,2,33866,0)="3010102"
^XMB(3.9,55,2,33867,0)="""^DD"",399,399,232,1,1,""FIELD"")"
^XMB(3.9,55,2,33868,0)="NON-VA CARE ID #"
^XMB(3.9,55,2,33869,0)="""^DD"",399,399,232,1,2,0)"
^XMB(3.9,55,2,33870,0)="^^TRIGGER^399^233"
^XMB(3.9,55,2,33871,0)="""^DD"",399,399,232,1,2,1)"
^XMB(3.9,55,2,33872,0)="Q"
^XMB(3.9,55,2,33873,0)="""^DD"",399,399,232,1,2,2)"
^XMB(3.9,55,2,33874,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""U2"")):^(""U2""),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X="""" X ^DD(399,232,1,2,2.4)"
^XMB(3.9,55,2,33875,0)="""^DD"",399,399,232,1,2,2.4)"
^XMB(3.9,55,2,33876,0)="S DIH=$S($D(^DGCR(399,DIV(0),""U2"")):^(""U2""),1:""""),DIV=X S $P(^(""U2""),U,11)=DIV,DIH=399,DIG=233 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,55,2,33877,0)="""^DD"",399,399,232,1,2,3)"
^XMB(3.9,55,2,33878,0)="Do not delete"
^XMB(3.9,55,2,33879,0)="""^DD"",399,399,232,1,2,""%D"",0)"
^XMB(3.9,55,2,33880,0)="^^2^2^3010110^"
^XMB(3.9,55,2,33881,0)="""^DD"",399,399,232,1,2,""%D"",1,0)"
^XMB(3.9,55,2,33882,0)="This cross reference deletes the NON-VA CARE TYPE field when the NON-VA"
^XMB(3.9,55,2,33883,0)="""^DD"",399,399,232,1,2,""%D"",2,0)"
^XMB(3.9,55,2,33884,0)="Facility value is deleted."
^XMB(3.9,55,2,33885,0)="""^DD"",399,399,232,1,2,""CREATE VALUE"")"
^XMB(3.9,55,2,33886,0)="NO EFFECT"
^XMB(3.9,55,2,33887,0)="""^DD"",399,399,232,1,2,""DELETE VALUE"")"
^XMB(3.9,55,2,33888,0)="@"
^XMB(3.9,55,2,33889,0)="""^DD"",399,399,232,1,2,""DT"")"
^XMB(3.9,55,2,33890,0)="3010110"
^XMB(3.9,55,2,33891,0)="""^DD"",399,399,232,1,2,""FIELD"")"
^XMB(3.9,55,2,33892,0)="NON-VA CARE TYPE"
^XMB(3.9,55,2,33893,0)="""^DD"",399,399,232,1,3,0)"
^XMB(3.9,55,2,33894,0)="^^TRIGGER^399^235"
^XMB(3.9,55,2,33895,0)="""^DD"",399,399,232,1,3,1)"
^XMB(3.9,55,2,33896,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$$CLIAREQ^IBCEP8A(DA) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""U2"")):^(""U2""),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$CLIA^IBCEP8A(DA) X ^DD(399,232,1,3,1.4)"
^XMB(3.9,55,2,33897,0)="""^DD"",399,399,232,1,3,1.4)"
^XMB(3.9,55,2,33898,0)="S DIH=$G(^DGCR(399,DIV(0),""U2"")),DIV=X S $P(^(""U2""),U,13)=DIV,DIH=399,DIG=235 D ^DICR"
^XMB(3.9,55,2,33899,0)="""^DD"",399,399,232,1,3,2)"
^XMB(3.9,55,2,33900,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$$CLIAREQ^IBCEP8A(DA) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""U2"")):^(""U2""),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$CLIA^IBCEP8A(DA) X ^DD(399,232,1,3,2.4)"
^XMB(3.9,55,2,33901,0)="""^DD"",399,399,232,1,3,2.4)"
^XMB(3.9,55,2,33902,0)="S DIH=$G(^DGCR(399,DIV(0),""U2"")),DIV=X S $P(^(""U2""),U,13)=DIV,DIH=399,DIG=235 D ^DICR"
^XMB(3.9,55,2,33903,0)="""^DD"",399,399,232,1,3,""%D"",0)"
^XMB(3.9,55,2,33904,0)="^^3^3^3060104^"
^XMB(3.9,55,2,33905,0)="""^DD"",399,399,232,1,3,""%D"",1,0)"
^XMB(3.9,55,2,33906,0)="This trigger will set the LAB CLIA NUMBER field to the default"
^XMB(3.9,55,2,33907,0)="""^DD"",399,399,232,1,3,""%D"",2,0)"
^XMB(3.9,55,2,33908,0)="CLIA# for the facility - either VA facility or non-VA facility."
^XMB(3.9,55,2,33909,0)="""^DD"",399,399,232,1,3,""%D"",3,0)"
^XMB(3.9,55,2,33910,0)="The trigger condition ensures that lab services are on the claim."
^XMB(3.9,55,2,33911,0)="""^DD"",399,399,232,1,3,""CREATE CONDITION"")"
^XMB(3.9,55,2,33912,0)="S X=$$CLIAREQ^IBCEP8A(DA)"
^XMB(3.9,55,2,33913,0)="""^DD"",399,399,232,1,3,""CREATE VALUE"")"
^XMB(3.9,55,2,33914,0)="S X=$$CLIA^IBCEP8A(DA)"
^XMB(3.9,55,2,33915,0)="""^DD"",399,399,232,1,3,""DELETE CONDITION"")"
^XMB(3.9,55,2,33916,0)="S X=$$CLIAREQ^IBCEP8A(DA)"
^XMB(3.9,55,2,33917,0)="""^DD"",399,399,232,1,3,""DELETE VALUE"")"
^XMB(3.9,55,2,33918,0)="S X=$$CLIA^IBCEP8A(DA)"
^XMB(3.9,55,2,33919,0)="""^DD"",399,399,232,1,3,""DT"")"
^XMB(3.9,55,2,33920,0)="3060104"
^XMB(3.9,55,2,33921,0)="""^DD"",399,399,232,1,3,""FIELD"")"
^XMB(3.9,55,2,33922,0)="LAB CLIA NUMBER"
^XMB(3.9,55,2,33923,0)="""^DD"",399,399,232,3)"
^XMB(3.9,55,2,33924,0)="Enter the non-VA/other VA facility where care was given.  Facility name cannot contain a comma."
^XMB(3.9,55,2,33925,0)="""^DD"",399,399,232,12)"
^XMB(3.9,55,2,33926,0)="Must be a facility provider type entry without a comma in the name"
^XMB(3.9,55,2,33927,0)="""^DD"",399,399,232,12.1)"
^XMB(3.9,55,2,33928,0)="S DIC(""S"")=""I $P(^(0),U,2)=1,$P(^(0),U)'["""","""""""
^XMB(3.9,55,2,33929,0)="""^DD"",399,399,232,21,0)"
^XMB(3.9,55,2,33930,0)="^.001^2^2^3030807^^^^"
^XMB(3.9,55,2,33931,0)="""^DD"",399,399,232,21,1,0)"
^XMB(3.9,55,2,33932,0)="The is the name of the non-VA or outside VA facility where the services"
^XMB(3.9,55,2,33933,0)="""^DD"",399,399,232,21,2,0)"
^XMB(3.9,55,2,33934,0)="were rendered."
^XMB(3.9,55,2,33935,0)="""^DD"",399,399,232,""DT"")"
^XMB(3.9,55,2,33936,0)="3060104"
^XMB(3.9,55,2,33937,0)="""^DD"",399,399,235,0)"
^XMB(3.9,55,2,33938,0)="LAB CLIA NUMBER^F^^U2;13^K:$L(X)>15!($L(X)<1) X"
^XMB(3.9,55,2,33939,0)="""^DD"",399,399,235,3)"
^XMB(3.9,55,2,33940,0)="Answer must be 1-15 characters in length."
^XMB(3.9,55,2,33941,0)="""^DD"",399,399,235,5,1,0)"
^XMB(3.9,55,2,33942,0)="399^232^3"
^XMB(3.9,55,2,33943,0)="""^DD"",399,399,235,5,2,0)"
^XMB(3.9,55,2,33944,0)="399^.22^7"
^XMB(3.9,55,2,33945,0)="""^DD"",399,399,235,21,0)"
^XMB(3.9,55,2,33946,0)="^^9^9^3051228^"
^XMB(3.9,55,2,33947,0)="""^DD"",399,399,235,21,1,0)"
^XMB(3.9,55,2,33948,0)="Enter the CLIA number for the VA Division if the service was "
^XMB(3.9,55,2,33949,0)="""^DD"",399,399,235,21,2,0)"
^XMB(3.9,55,2,33950,0)="performed by the VA."
^XMB(3.9,55,2,33951,0)="""^DD"",399,399,235,21,3,0)"
^XMB(3.9,55,2,33952,0)="Enter the CLIA number for the Other Facility if the service was "
^XMB(3.9,55,2,33953,0)="""^DD"",399,399,235,21,4,0)"
^XMB(3.9,55,2,33954,0)="performed by a non-VA facility."
^XMB(3.9,55,2,33955,0)="""^DD"",399,399,235,21,5,0)"
^XMB(3.9,55,2,33956,0)=" "
^XMB(3.9,55,2,33957,0)="""^DD"",399,399,235,21,6,0)"
^XMB(3.9,55,2,33958,0)="You can define a CLIA number as a secondary ID for a non-VA"
^XMB(3.9,55,2,33959,0)="""^DD"",399,399,235,21,7,0)"
^XMB(3.9,55,2,33960,0)="Facility through Provider ID Maint.  If you enter a CLIA number"
^XMB(3.9,55,2,33961,0)="""^DD"",399,399,235,21,8,0)"
^XMB(3.9,55,2,33962,0)="here that is not defined in Provider ID Maint (non-VA) or the"
^XMB(3.9,55,2,33963,0)="""^DD"",399,399,235,21,9,0)"
^XMB(3.9,55,2,33964,0)="Institution file (VA), it will be sent with this claim only."
^XMB(3.9,55,2,33965,0)="""^DD"",399,399,235,""DT"")"
^XMB(3.9,55,2,33966,0)="3051228"
^XMB(3.9,55,2,33967,0)="""^DD"",399,399,242,0)"
^XMB(3.9,55,2,33968,0)="MAMMOGRAPHY CERT NUMBER^F^^U3;1^K:$L(X)>15!($L(X)<1) X"
^XMB(3.9,55,2,33969,0)="""^DD"",399,399,242,3)"
^XMB(3.9,55,2,33970,0)="Answer must be 1-15 characters in length"
^XMB(3.9,55,2,33971,0)="""^DD"",399,399,242,21,0)"
^XMB(3.9,55,2,33972,0)="^^10^10^3051228^"
^XMB(3.9,55,2,33973,0)="""^DD"",399,399,242,21,1,0)"
^XMB(3.9,55,2,33974,0)="Enter the Mammography Certification number for the VAMC if the "
^XMB(3.9,55,2,33975,0)="""^DD"",399,399,242,21,2,0)"
^XMB(3.9,55,2,33976,0)="service was performed by the VA."
^XMB(3.9,55,2,33977,0)="""^DD"",399,399,242,21,3,0)"
^XMB(3.9,55,2,33978,0)="Enter the Mammography Certification number for the Other Facility "
^XMB(3.9,55,2,33979,0)="""^DD"",399,399,242,21,4,0)"
^XMB(3.9,55,2,33980,0)="if the service was performed by a non-VA facility."
^XMB(3.9,55,2,33981,0)="""^DD"",399,399,242,21,5,0)"
^XMB(3.9,55,2,33982,0)=" "
^XMB(3.9,55,2,33983,0)="""^DD"",399,399,242,21,6,0)"
^XMB(3.9,55,2,33984,0)="You can define a Mammography Certification number for a non-VA "
^XMB(3.9,55,2,33985,0)="""^DD"",399,399,242,21,7,0)"
^XMB(3.9,55,2,33986,0)="Facility through Provider ID Maint.  If you enter a Mammography"
^XMB(3.9,55,2,33987,0)="""^DD"",399,399,242,21,8,0)"
^XMB(3.9,55,2,33988,0)="Certification number here that is not defined in Provider ID"
^XMB(3.9,55,2,33989,0)="""^DD"",399,399,242,21,9,0)"
^XMB(3.9,55,2,33990,0)="Maint (non-VA) or the Institution file (VA), it will be sent"
^XMB(3.9,55,2,33991,0)="""^DD"",399,399,242,21,10,0)"
^XMB(3.9,55,2,33992,0)="with this claim only."
^XMB(3.9,55,2,33993,0)="""^DD"",399,399,242,""DT"")"
^XMB(3.9,55,2,33994,0)="3051228"
^XMB(3.9,55,2,33995,0)="""^DD"",399,399.0222,.05,0)"
^XMB(3.9,55,2,33996,0)="PRIMARY INS CO ID NUMBER^FX^^0;5^I $D(DA) N Z S Z=$G(^DGCR(399,DA(1),""PRV"",DA,0)) S:X=""/ID"" X=$$RECALC^IBCEP2A(.DA,1,$P(Z,U,5)) K:$L(X)>15!'$L(X) X I $D(X),$P(Z,U,2)="""",$S($$INPAT^IBCEF(DA(1),1):1,1:X'=""SLF000"") K X"
^XMB(3.9,55,2,33997,0)="""^DD"",399,399.0222,.05,.1)"
^XMB(3.9,55,2,33998,0)="PRIM INS PERF PROV SECONDARY ID"
^XMB(3.9,55,2,33999,0)="""^DD"",399,399.0222,.05,1,0)"
^XMB(3.9,55,2,34000,0)="^.1"
^XMB(3.9,55,2,34001,0)="""^DD"",399,399.0222,.05,1,1,0)"
^XMB(3.9,55,2,34002,0)="^^TRIGGER^399.0222^.02"
^XMB(3.9,55,2,34003,0)="""^DD"",399,399.0222,.05,1,1,1)"
^XMB(3.9,55,2,34004,0)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=Y(0)=""SLF000"" I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""PRV"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(399.0222,.05,1,1,1.4)"
^XMB(3.9,55,2,34005,0)="""^DD"",399,399.0222,.05,1,1,1.4)"
^XMB(3.9,55,2,34006,0)="S DIH=$S($D(^DGCR(399,DIV(0),""PRV"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=399.0222,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,55,2,34007,0)="""^DD"",399,399.0222,.05,1,1,2)"
^XMB(3.9,55,2,34008,0)="Q"
^XMB(3.9,55,2,34009,0)="""^DD"",399,399.0222,.05,1,1,3)"
^XMB(3.9,55,2,34010,0)="Do not delete"
^XMB(3.9,55,2,34011,0)="""^DD"",399,399.0222,.05,1,1,""%D"",0)"
^XMB(3.9,55,2,34012,0)="^.101^1^1^3000330^^"
^XMB(3.9,55,2,34013,0)="""^DD"",399,399.0222,.05,1,1,""%D"",1,0)"
^XMB(3.9,55,2,34014,0)="This erases the provider name if the id is SLF000."
^XMB(3.9,55,2,34015,0)="""^DD"",399,399.0222,.05,1,1,""CREATE CONDITION"")"
^XMB(3.9,55,2,34016,0)="PRIMARY INS CO ID NUMBER=""SLF000"""
^XMB(3.9,55,2,34017,0)="""^DD"",399,399.0222,.05,1,1,""CREATE VALUE"")"
^XMB(3.9,55,2,34018,0)="@"
^XMB(3.9,55,2,34019,0)="""^DD"",399,399.0222,.05,1,1,""DELETE VALUE"")"
^XMB(3.9,55,2,34020,0)="NO EFFECT"
^XMB(3.9,55,2,34021,0)="""^DD"",399,399.0222,.05,1,1,""FIELD"")"
^XMB(3.9,55,2,34022,0)="PERFORMED BY"
^XMB(3.9,55,2,34023,0)="""^DD"",399,399.0222,.05,1,2,0)"
^XMB(3.9,55,2,34024,0)="399.0222^AC^MUMPS"
^XMB(3.9,55,2,34025,0)="""^DD"",399,399.0222,.05,1,2,1)"
^XMB(3.9,55,2,34026,0)="D ATTREND^IBCU1(DA(1),DA,.05)"
^XMB(3.9,55,2,34027,0)="""^DD"",399,399.0222,.05,1,2,2)"
^XMB(3.9,55,2,34028,0)="D ATTREND^IBCU1(DA(1),DA,.05)"
^XMB(3.9,55,2,34029,0)="""^DD"",399,399.0222,.05,1,2,3)"
^XMB(3.9,55,2,34030,0)="Do Not Delete"
^XMB(3.9,55,2,34031,0)="""^DD"",399,399.0222,.05,1,2,""%D"",0)"
^XMB(3.9,55,2,34032,0)="^.101^6^6^3060509^^"
^XMB(3.9,55,2,34033,0)="""^DD"",399,399.0222,.05,1,2,""%D"",1,0)"
^XMB(3.9,55,2,34034,0)="This Mumps cross reference is used to trigger #122 PRIMARY PROVIDER #."
^XMB(3.9,55,2,34035,0)="""^DD"",399,399.0222,.05,1,2,""%D"",2,0)"
^XMB(3.9,55,2,34036,0)="The field is triggered when the primary insurance company in the"
^XMB(3.9,55,2,34037,0)="""^DD"",399,399.0222,.05,1,2,""%D"",3,0)"
^XMB(3.9,55,2,34038,0)="claim has flags set to use the attending or rendering physicians as the"
^XMB(3.9,55,2,34039,0)="""^DD"",399,399.0222,.05,1,2,""%D"",4,0)"
^XMB(3.9,55,2,34040,0)="billing provider secondary IDs.  The flags in file 36 are field #4.06"
^XMB(3.9,55,2,34041,0)="""^DD"",399,399.0222,.05,1,2,""%D"",5,0)"
^XMB(3.9,55,2,34042,0)="(ATT/REND ID BILL SEC ID PROF) and field 4.08 (ATT/REND ID BILL SEC ID"
^XMB(3.9,55,2,34043,0)="""^DD"",399,399.0222,.05,1,2,""%D"",6,0)"
^XMB(3.9,55,2,34044,0)="INST)."
^XMB(3.9,55,2,34045,0)="""^DD"",399,399.0222,.05,1,2,""DT"")"
^XMB(3.9,55,2,34046,0)="3060508"
^XMB(3.9,55,2,34047,0)="""^DD"",399,399.0222,.05,3)"
^XMB(3.9,55,2,34048,0)="Enter the # the primary ins co uses for the provider.  If outpatient and self-referred, use SLF000."
^XMB(3.9,55,2,34049,0)="""^DD"",399,399.0222,.05,4)"
^XMB(3.9,55,2,34050,0)="D INSPAR^IBCEP2A(DA(1),1)"
^XMB(3.9,55,2,34051,0)="""^DD"",399,399.0222,.05,5,1,0)"
^XMB(3.9,55,2,34052,0)="399.0222^.02^1"
^XMB(3.9,55,2,34053,0)="""^DD"",399,399.0222,.05,5,2,0)"
^XMB(3.9,55,2,34054,0)="399.0222^.02^4"
^XMB(3.9,55,2,34055,0)="""^DD"",399,399.0222,.05,21,0)"
^XMB(3.9,55,2,34056,0)="^.001^1^1^3040521^^^^"
^XMB(3.9,55,2,34057,0)="""^DD"",399,399.0222,.05,21,1,0)"
^XMB(3.9,55,2,34058,0)="This is the primary insurance co specific provider's secondary id number."
^XMB(3.9,55,2,34059,0)="""^DD"",399,399.0222,.05,""DT"")"
^XMB(3.9,55,2,34060,0)="3060508"
^XMB(3.9,55,2,34061,0)="""^DD"",399,399.0222,.06,0)"
^XMB(3.9,55,2,34062,0)="SECONDARY INS CO ID NUMBER^FX^^0;6^I $D(DA) N Z S Z=$G(^DGCR(399,DA(1),""PRV"",DA,0)) S:X=""/ID"" X=$$RECALC^IBCEP2A(.DA,2,$P(Z,U,6)) K:$L(X)>15!'$L(X) X I $D(X),$P(Z,U,2)="""",$S($$INPAT^IBCEF(DA(1),1):1,1:X'=""SLF000"") K X"
^XMB(3.9,55,2,34063,0)="""^DD"",399,399.0222,.06,.1)"
^XMB(3.9,55,2,34064,0)="SECOND INS PERF PROV SECONDARY ID"
^XMB(3.9,55,2,34065,0)="""^DD"",399,399.0222,.06,1,0)"
^XMB(3.9,55,2,34066,0)="^.1"
^XMB(3.9,55,2,34067,0)="""^DD"",399,399.0222,.06,1,1,0)"
^XMB(3.9,55,2,34068,0)="399.0222^AD^MUMPS"
^XMB(3.9,55,2,34069,0)="""^DD"",399,399.0222,.06,1,1,1)"
^XMB(3.9,55,2,34070,0)="D ATTREND^IBCU1(DA(1),DA,.06)"
^XMB(3.9,55,2,34071,0)="""^DD"",399,399.0222,.06,1,1,2)"
^XMB(3.9,55,2,34072,0)="D ATTREND^IBCU1(DA(1),DA,.06)"
^XMB(3.9,55,2,34073,0)="""^DD"",399,399.0222,.06,1,1,3)"
^XMB(3.9,55,2,34074,0)="Do Not Delete"
^XMB(3.9,55,2,34075,0)="""^DD"",399,399.0222,.06,1,1,""%D"",0)"
^XMB(3.9,55,2,34076,0)="^.101^6^6^3060509^^"
^XMB(3.9,55,2,34077,0)="""^DD"",399,399.0222,.06,1,1,""%D"",1,0)"
^XMB(3.9,55,2,34078,0)="This Mumps cross reference is used to trigger #123 SECONDARY PROVIDER #."
^XMB(3.9,55,2,34079,0)="""^DD"",399,399.0222,.06,1,1,""%D"",2,0)"
^XMB(3.9,55,2,34080,0)="The field is triggered when the secondary insurance company in the"
^XMB(3.9,55,2,34081,0)="""^DD"",399,399.0222,.06,1,1,""%D"",3,0)"
^XMB(3.9,55,2,34082,0)="claim has flags set to use the attending or rendering physicians as the"
^XMB(3.9,55,2,34083,0)="""^DD"",399,399.0222,.06,1,1,""%D"",4,0)"
^XMB(3.9,55,2,34084,0)="billing provider secondary IDs.  The flags in file 36 are field #4.06"
^XMB(3.9,55,2,34085,0)="""^DD"",399,399.0222,.06,1,1,""%D"",5,0)"
^XMB(3.9,55,2,34086,0)="(ATT/REND ID BILL SEC ID PROF) and field 4.08 (ATT/REND ID BILL SEC ID"
^XMB(3.9,55,2,34087,0)="""^DD"",399,399.0222,.06,1,1,""%D"",6,0)"
^XMB(3.9,55,2,34088,0)="INST)."
^XMB(3.9,55,2,34089,0)="""^DD"",399,399.0222,.06,1,1,""DT"")"
^XMB(3.9,55,2,34090,0)="3060508"
^XMB(3.9,55,2,34091,0)="""^DD"",399,399.0222,.06,3)"
^XMB(3.9,55,2,34092,0)="Enter the # the secondary ins co uses for the provider.  If outpatient and self-referred, use SLF000."
^XMB(3.9,55,2,34093,0)="""^DD"",399,399.0222,.06,4)"
^XMB(3.9,55,2,34094,0)="D INSPAR^IBCEP2A(DA(1),2)"
^XMB(3.9,55,2,34095,0)="""^DD"",399,399.0222,.06,5,1,0)"
^XMB(3.9,55,2,34096,0)="399.0222^.02^5"
^XMB(3.9,55,2,34097,0)="""^DD"",399,399.0222,.06,21,0)"
^XMB(3.9,55,2,34098,0)="^.001^1^1^3040521^^^^"
^XMB(3.9,55,2,34099,0)="""^DD"",399,399.0222,.06,21,1,0)"
^XMB(3.9,55,2,34100,0)="This is the secondary ins company's specific secondary provider id number."
^XMB(3.9,55,2,34101,0)="""^DD"",399,399.0222,.06,""DT"")"
^XMB(3.9,55,2,34102,0)="3060508"
^XMB(3.9,55,2,34103,0)="""^DD"",399,399.0222,.07,0)"
^XMB(3.9,55,2,34104,0)="TERTIARY INS CO ID NUMBER^FX^^0;7^I $D(DA) N Z S Z=$G(^DGCR(399,DA(1),""PRV"",DA,0)) S:X=""/ID"" X=$$RECALC^IBCEP2A(.DA,3,$P(Z,U,7)) K:$L(X)>15!'$L(X) X I $D(X),$P(Z,U,2)="""",$S($$INPAT^IBCEF(DA(1),1):1,1:X'=""SLF000"") K X"
^XMB(3.9,55,2,34105,0)="""^DD"",399,399.0222,.07,.1)"
^XMB(3.9,55,2,34106,0)="TERTIARY INS PERF PROV SECONDARY ID"
^XMB(3.9,55,2,34107,0)="""^DD"",399,399.0222,.07,1,0)"
^XMB(3.9,55,2,34108,0)="^.1"
^XMB(3.9,55,2,34109,0)="""^DD"",399,399.0222,.07,1,1,0)"
^XMB(3.9,55,2,34110,0)="399.0222^AE^MUMPS"
^XMB(3.9,55,2,34111,0)="""^DD"",399,399.0222,.07,1,1,1)"
^XMB(3.9,55,2,34112,0)="D ATTREND^IBCU1(DA(1),DA,.07)"
^XMB(3.9,55,2,34113,0)="""^DD"",399,399.0222,.07,1,1,2)"
^XMB(3.9,55,2,34114,0)="D ATTREND^IBCU1(DA(1),DA,.07)"
^XMB(3.9,55,2,34115,0)="""^DD"",399,399.0222,.07,1,1,3)"
^XMB(3.9,55,2,34116,0)="Do Not Delete"
^XMB(3.9,55,2,34117,0)="""^DD"",399,399.0222,.07,1,1,""%D"",0)"
^XMB(3.9,55,2,34118,0)="^^6^6^3060509^"
^XMB(3.9,55,2,34119,0)="""^DD"",399,399.0222,.07,1,1,""%D"",1,0)"
^XMB(3.9,55,2,34120,0)="This Mumps cross reference is used to trigger #124 TERTIARY PROVIDER #."
^XMB(3.9,55,2,34121,0)="""^DD"",399,399.0222,.07,1,1,""%D"",2,0)"
^XMB(3.9,55,2,34122,0)="The field is triggered when the tertiary insurance company in the"
^XMB(3.9,55,2,34123,0)="""^DD"",399,399.0222,.07,1,1,""%D"",3,0)"
^XMB(3.9,55,2,34124,0)="claim has flags set to use the attending or rendering physicians as the"
^XMB(3.9,55,2,34125,0)="""^DD"",399,399.0222,.07,1,1,""%D"",4,0)"
^XMB(3.9,55,2,34126,0)="billing provider secondary IDs.  The flags in file 36 are field #4.06"
^XMB(3.9,55,2,34127,0)="""^DD"",399,399.0222,.07,1,1,""%D"",5,0)"
^XMB(3.9,55,2,34128,0)="(ATT/REND ID BILL SEC ID PROF) and field 4.08 (ATT/REND ID BILL SEC ID"
^XMB(3.9,55,2,34129,0)="""^DD"",399,399.0222,.07,1,1,""%D"",6,0)"
^XMB(3.9,55,2,34130,0)="INST)."
^XMB(3.9,55,2,34131,0)="""^DD"",399,399.0222,.07,1,1,""DT"")"
^XMB(3.9,55,2,34132,0)="3060508"
^XMB(3.9,55,2,34133,0)="""^DD"",399,399.0222,.07,3)"
^XMB(3.9,55,2,34134,0)="Enter the # the tertiary ins co uses for the provider.  If outpatient and self-referred, use SLF000."
^XMB(3.9,55,2,34135,0)="""^DD"",399,399.0222,.07,4)"
^XMB(3.9,55,2,34136,0)="D INSPAR^IBCEP2A(DA(1),3)"
^XMB(3.9,55,2,34137,0)="""^DD"",399,399.0222,.07,5,1,0)"
^XMB(3.9,55,2,34138,0)="399.0222^.02^6"
^XMB(3.9,55,2,34139,0)="""^DD"",399,399.0222,.07,21,0)"
^XMB(3.9,55,2,34140,0)="^.001^1^1^3040521^^^^"
^XMB(3.9,55,2,34141,0)="""^DD"",399,399.0222,.07,21,1,0)"
^XMB(3.9,55,2,34142,0)="This is the tertiary ins company's specific secondary provider id number."
^XMB(3.9,55,2,34143,0)="""^DD"",399,399.0222,.07,""DT"")"
^XMB(3.9,55,2,34144,0)="3060508"
^XMB(3.9,55,2,34145,0)="""^DD"",399,399.0222,.12,0)"
^XMB(3.9,55,2,34146,0)="PRIM INS PROVIDER ID TYPE^*P355.97'^IBE(355.97,^0;12^S DIC(""S"")=""I $$RAINS^IBCEPU(Y)!($$RAOWN^IBCEPU(Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^XMB(3.9,55,2,34147,0)="""^DD"",399,399.0222,.12,.1)"
^XMB(3.9,55,2,34148,0)="PRIM INS PERF PROV SECONDARY ID TYPE"
^XMB(3.9,55,2,34149,0)="""^DD"",399,399.0222,.12,1,0)"
^XMB(3.9,55,2,34150,0)="^.1"
^XMB(3.9,55,2,34151,0)="""^DD"",399,399.0222,.12,1,1,0)"
^XMB(3.9,55,2,34152,0)="399.0222^AF^MUMPS"
^XMB(3.9,55,2,34153,0)="""^DD"",399,399.0222,.12,1,1,1)"
^XMB(3.9,55,2,34154,0)="D ATTREND^IBCU1(DA(1),DA,.12)"
^XMB(3.9,55,2,34155,0)="""^DD"",399,399.0222,.12,1,1,2)"
^XMB(3.9,55,2,34156,0)="D ATTREND^IBCU1(DA(1),DA,.12)"
^XMB(3.9,55,2,34157,0)="""^DD"",399,399.0222,.12,1,1,3)"
^XMB(3.9,55,2,34158,0)="Do Not Delete"
^XMB(3.9,55,2,34159,0)="""^DD"",399,399.0222,.12,1,1,""%D"",0)"
^XMB(3.9,55,2,34160,0)="^^6^6^3060509^"
^XMB(3.9,55,2,34161,0)="""^DD"",399,399.0222,.12,1,1,""%D"",1,0)"
^XMB(3.9,55,2,34162,0)="This Mumps cross reference is used to trigger #128 PRIMARY ID QUALIFIER."
^XMB(3.9,55,2,34163,0)="""^DD"",399,399.0222,.12,1,1,""%D"",2,0)"
^XMB(3.9,55,2,34164,0)="The field is triggered when the primary insurance company in the"
^XMB(3.9,55,2,34165,0)="""^DD"",399,399.0222,.12,1,1,""%D"",3,0)"
^XMB(3.9,55,2,34166,0)="claim has flags set to use the attending or rendering physicians as the"
^XMB(3.9,55,2,34167,0)="""^DD"",399,399.0222,.12,1,1,""%D"",4,0)"
^XMB(3.9,55,2,34168,0)="billing provider secondary IDs.  The flags in file 36 are field #4.06"
^XMB(3.9,55,2,34169,0)="""^DD"",399,399.0222,.12,1,1,""%D"",5,0)"
^XMB(3.9,55,2,34170,0)="(ATT/REND ID BILL SEC ID PROF) and field 4.08 (ATT/REND ID BILL SEC ID"
^XMB(3.9,55,2,34171,0)="""^DD"",399,399.0222,.12,1,1,""%D"",6,0)"
^XMB(3.9,55,2,34172,0)="INST)."
^XMB(3.9,55,2,34173,0)="""^DD"",399,399.0222,.12,1,1,""DT"")"
^XMB(3.9,55,2,34174,0)="3060508"
^XMB(3.9,55,2,34175,0)="""^DD"",399,399.0222,.12,3)"
^XMB(3.9,55,2,34176,0)="Enter the type of id the primary payer requires as a secondary id."
^XMB(3.9,55,2,34177,0)="""^DD"",399,399.0222,.12,12)"
^XMB(3.9,55,2,34178,0)="Must be valid for transmission."
^XMB(3.9,55,2,34179,0)="""^DD"",399,399.0222,.12,12.1)"
^XMB(3.9,55,2,34180,0)="S DIC(""S"")=""I $$RAINS^IBCEPU(Y)!($$RAOWN^IBCEPU(Y))"""
^XMB(3.9,55,2,34181,0)="""^DD"",399,399.0222,.12,21,0)"
^XMB(3.9,55,2,34182,0)="^.001^1^1^3040517^^"
^XMB(3.9,55,2,34183,0)="""^DD"",399,399.0222,.12,21,1,0)"
^XMB(3.9,55,2,34184,0)="This is the type of id the primary payer uses as a secondary id."
^XMB(3.9,55,2,34185,0)="""^DD"",399,399.0222,.12,""DT"")"
^XMB(3.9,55,2,34186,0)="3060508"
^XMB(3.9,55,2,34187,0)="""^DD"",399,399.0222,.13,0)"
^XMB(3.9,55,2,34188,0)="SEC INS PROVIDER ID TYPE^*P355.97'^IBE(355.97,^0;13^S DIC(""S"")=""I $$RAINS^IBCEPU(Y)!($$RAOWN^IBCEPU(Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^XMB(3.9,55,2,34189,0)="""^DD"",399,399.0222,.13,.1)"
^XMB(3.9,55,2,34190,0)="SECOND INS PERF PROV SECONDARY ID TYPE"
^XMB(3.9,55,2,34191,0)="""^DD"",399,399.0222,.13,1,0)"
^XMB(3.9,55,2,34192,0)="^.1"
^XMB(3.9,55,2,34193,0)="""^DD"",399,399.0222,.13,1,1,0)"
^XMB(3.9,55,2,34194,0)="399.0222^AG^MUMPS"
^XMB(3.9,55,2,34195,0)="""^DD"",399,399.0222,.13,1,1,1)"
^XMB(3.9,55,2,34196,0)="D ATTREND^IBCU1(DA(1),DA,.13)"
^XMB(3.9,55,2,34197,0)="""^DD"",399,399.0222,.13,1,1,2)"
^XMB(3.9,55,2,34198,0)="D ATTREND^IBCU1(DA(1),DA,.13)"
^XMB(3.9,55,2,34199,0)="""^DD"",399,399.0222,.13,1,1,3)"
^XMB(3.9,55,2,34200,0)="Do Not Delete"
^XMB(3.9,55,2,34201,0)="""^DD"",399,399.0222,.13,1,1,""%D"",0)"
^XMB(3.9,55,2,34202,0)="^^6^6^3060509^"
^XMB(3.9,55,2,34203,0)="""^DD"",399,399.0222,.13,1,1,""%D"",1,0)"
^XMB(3.9,55,2,34204,0)="This Mumps cross reference is used to trigger #129 SECONDARY ID QUALIFIER."
^XMB(3.9,55,2,34205,0)="""^DD"",399,399.0222,.13,1,1,""%D"",2,0)"
^XMB(3.9,55,2,34206,0)="The field is triggered when the secondary insurance company in the"
^XMB(3.9,55,2,34207,0)="""^DD"",399,399.0222,.13,1,1,""%D"",3,0)"
^XMB(3.9,55,2,34208,0)="claim has flags set to use the attending or rendering physicians as the"
^XMB(3.9,55,2,34209,0)="""^DD"",399,399.0222,.13,1,1,""%D"",4,0)"
^XMB(3.9,55,2,34210,0)="billing provider secondary IDs.  The flags in file 36 are field #4.06"
^XMB(3.9,55,2,34211,0)="""^DD"",399,399.0222,.13,1,1,""%D"",5,0)"
^XMB(3.9,55,2,34212,0)="(ATT/REND ID BILL SEC ID PROF) and field 4.08 (ATT/REND ID BILL SEC ID"
^XMB(3.9,55,2,34213,0)="""^DD"",399,399.0222,.13,1,1,""%D"",6,0)"
^XMB(3.9,55,2,34214,0)="INST)."
^XMB(3.9,55,2,34215,0)="""^DD"",399,399.0222,.13,1,1,""DT"")"
^XMB(3.9,55,2,34216,0)="3060508"
^XMB(3.9,55,2,34217,0)="""^DD"",399,399.0222,.13,3)"
^XMB(3.9,55,2,34218,0)="Enter the type of id the secondary payer requires as a secondary id."
^XMB(3.9,55,2,34219,0)="""^DD"",399,399.0222,.13,12)"
^XMB(3.9,55,2,34220,0)="Must be valid for transmission."
^XMB(3.9,55,2,34221,0)="""^DD"",399,399.0222,.13,12.1)"
^XMB(3.9,55,2,34222,0)="S DIC(""S"")=""I $$RAINS^IBCEPU(Y)!($$RAOWN^IBCEPU(Y))"""
^XMB(3.9,55,2,34223,0)="""^DD"",399,399.0222,.13,""DT"")"
^XMB(3.9,55,2,34224,0)="3060508"
^XMB(3.9,55,2,34225,0)="""^DD"",399,399.0222,.14,0)"
^XMB(3.9,55,2,34226,0)="TERT INS PROVIDER ID TYPE^*P355.97'^IBE(355.97,^0;14^S DIC(""S"")=""I $$RAINS^IBCEPU(Y)!($$RAOWN^IBCEPU(Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^XMB(3.9,55,2,34227,0)="""^DD"",399,399.0222,.14,.1)"
^XMB(3.9,55,2,34228,0)="TERTIARY INS PERF PROV SECONDARY ID TYPE"
^XMB(3.9,55,2,34229,0)="""^DD"",399,399.0222,.14,1,0)"
^XMB(3.9,55,2,34230,0)="^.1"
^XMB(3.9,55,2,34231,0)="""^DD"",399,399.0222,.14,1,1,0)"
^XMB(3.9,55,2,34232,0)="399.0222^AH^MUMPS"
^XMB(3.9,55,2,34233,0)="""^DD"",399,399.0222,.14,1,1,1)"
^XMB(3.9,55,2,34234,0)="D ATTREND^IBCU1(DA(1),DA,.14)"
^XMB(3.9,55,2,34235,0)="""^DD"",399,399.0222,.14,1,1,2)"
^XMB(3.9,55,2,34236,0)="D ATTREND^IBCU1(DA(1),DA,.14)"
^XMB(3.9,55,2,34237,0)="""^DD"",399,399.0222,.14,1,1,3)"
^XMB(3.9,55,2,34238,0)="Do Not Delete"
^XMB(3.9,55,2,34239,0)="""^DD"",399,399.0222,.14,1,1,""%D"",0)"
^XMB(3.9,55,2,34240,0)="^^6^6^3060509^"
^XMB(3.9,55,2,34241,0)="""^DD"",399,399.0222,.14,1,1,""%D"",1,0)"
^XMB(3.9,55,2,34242,0)="This Mumps cross reference is used to trigger #130 TERTIARY ID QUALIFIER."
^XMB(3.9,55,2,34243,0)="""^DD"",399,399.0222,.14,1,1,""%D"",2,0)"
^XMB(3.9,55,2,34244,0)="The field is triggered when the tertiary insurance company in the"
^XMB(3.9,55,2,34245,0)="""^DD"",399,399.0222,.14,1,1,""%D"",3,0)"
^XMB(3.9,55,2,34246,0)="claim has flags set to use the attending or rendering physicians as the"
^XMB(3.9,55,2,34247,0)="""^DD"",399,399.0222,.14,1,1,""%D"",4,0)"
^XMB(3.9,55,2,34248,0)="billing provider secondary IDs.  The flags in file 36 are field #4.06"
^XMB(3.9,55,2,34249,0)="""^DD"",399,399.0222,.14,1,1,""%D"",5,0)"
^XMB(3.9,55,2,34250,0)="(ATT/REND ID BILL SEC ID PROF) and field 4.08 (ATT/REND ID BILL SEC ID"
^XMB(3.9,55,2,34251,0)="""^DD"",399,399.0222,.14,1,1,""%D"",6,0)"
^XMB(3.9,55,2,34252,0)="INST)."
^XMB(3.9,55,2,34253,0)="""^DD"",399,399.0222,.14,1,1,""DT"")"
^XMB(3.9,55,2,34254,0)="3060508"
^XMB(3.9,55,2,34255,0)="""^DD"",399,399.0222,.14,3)"
^XMB(3.9,55,2,34256,0)="Enter the type of id the tertiary payer requires as a secondary id."
^XMB(3.9,55,2,34257,0)="""^DD"",399,399.0222,.14,12)"
^XMB(3.9,55,2,34258,0)="Must be valid for transmission."
^XMB(3.9,55,2,34259,0)="""^DD"",399,399.0222,.14,12.1)"
^XMB(3.9,55,2,34260,0)="S DIC(""S"")=""I $$RAINS^IBCEPU(Y)!($$RAOWN^IBCEPU(Y))"""
^XMB(3.9,55,2,34261,0)="""^DD"",399,399.0222,.14,21,0)"
^XMB(3.9,55,2,34262,0)="^.001^1^1^3040517^^"
^XMB(3.9,55,2,34263,0)="""^DD"",399,399.0222,.14,21,1,0)"
^XMB(3.9,55,2,34264,0)="This is the type of id the tertiary payer uses as a secondary id."
^XMB(3.9,55,2,34265,0)="""^DD"",399,399.0222,.14,""DT"")"
^XMB(3.9,55,2,34266,0)="3060508"
^XMB(3.9,55,2,34267,0)="""^DIC"",350.8,350.8,0)"
^XMB(3.9,55,2,34268,0)="IB ERROR"
^XMB(3.9,55,2,34269,0)="""^DIC"",350.8,350.8,0,""GL"")"
^XMB(3.9,55,2,34270,0)="^IBE(350.8,"
^XMB(3.9,55,2,34271,0)="""^DIC"",350.8,350.8,""%D"",0)"
^XMB(3.9,55,2,34272,0)="^^11^11^2940214^^^^"
^XMB(3.9,55,2,34273,0)="""^DIC"",350.8,350.8,""%D"",1,0)"
^XMB(3.9,55,2,34274,0)="This file contains errors for billing functions.  It may be used by"
^XMB(3.9,55,2,34275,0)="""^DIC"",350.8,350.8,""%D"",2,0)"
^XMB(3.9,55,2,34276,0)="applications, IB or AR.  The normal format for a routine to return"
^XMB(3.9,55,2,34277,0)="""^DIC"",350.8,350.8,""%D"",3,0)"
^XMB(3.9,55,2,34278,0)="an error is to return the variable:"
^XMB(3.9,55,2,34279,0)="""^DIC"",350.8,350.8,""%D"",4,0)"
^XMB(3.9,55,2,34280,0)="  Y=1^... a successful event occured"
^XMB(3.9,55,2,34281,0)="""^DIC"",350.8,350.8,""%D"",5,0)"
^XMB(3.9,55,2,34282,0)="  Y=-1^error code[;error code;error code...]^additional text"
^XMB(3.9,55,2,34283,0)="""^DIC"",350.8,350.8,""%D"",6,0)"
^XMB(3.9,55,2,34284,0)="The error messages can be displayed by calling routine ^IBAERR.  If"
^XMB(3.9,55,2,34285,0)="""^DIC"",350.8,350.8,""%D"",7,0)"
^XMB(3.9,55,2,34286,0)="the error occurs in a tasked job ($D(ZTQUEUED)'=0) the routine will"
^XMB(3.9,55,2,34287,0)="""^DIC"",350.8,350.8,""%D"",8,0)"
^XMB(3.9,55,2,34288,0)="put the error message in a bulletin and post it to the group defined"
^XMB(3.9,55,2,34289,0)="""^DIC"",350.8,350.8,""%D"",9,0)"
^XMB(3.9,55,2,34290,0)="in the IB SITE PARAMETER FILE."
^XMB(3.9,55,2,34291,0)="""^DIC"",350.8,350.8,""%D"",10,0)"
^XMB(3.9,55,2,34292,0)=" "
^XMB(3.9,55,2,34293,0)="""^DIC"",350.8,350.8,""%D"",11,0)"
^XMB(3.9,55,2,34294,0)="Per VHA Directive 10-93-142, this file definition should not be modified."
^XMB(3.9,55,2,34295,0)="""^DIC"",350.8,""B"",""IB ERROR"",350.8)"
^XMB(3.9,55,2,34296,0)=""
^XMB(3.9,55,2,34297,0)="""^DIC"",361.2,361.2,0)"
^XMB(3.9,55,2,34298,0)="IB ELECTRONIC REPORT DISPOSITION^361.2"
^XMB(3.9,55,2,34299,0)="""^DIC"",361.2,361.2,0,""GL"")"
^XMB(3.9,55,2,34300,0)="^IBE(361.2,"
^XMB(3.9,55,2,34301,0)="""^DIC"",361.2,361.2,""%"",0)"
^XMB(3.9,55,2,34302,0)="^1.005^^0"
^XMB(3.9,55,2,34303,0)="""^DIC"",361.2,361.2,""%D"",0)"
^XMB(3.9,55,2,34304,0)="^^4^4^3010502^"
^XMB(3.9,55,2,34305,0)="""^DIC"",361.2,361.2,""%D"",1,0)"
^XMB(3.9,55,2,34306,0)="This file contains a record for each electronic report that can be"
^XMB(3.9,55,2,34307,0)="""^DIC"",361.2,361.2,""%D"",2,0)"
^XMB(3.9,55,2,34308,0)="returned to the site by the V.A's clearinghouse.  The puropse of the file"
^XMB(3.9,55,2,34309,0)="""^DIC"",361.2,361.2,""%D"",3,0)"
^XMB(3.9,55,2,34310,0)="is to allow the sites to determine which of these reports should be"
^XMB(3.9,55,2,34311,0)="""^DIC"",361.2,361.2,""%D"",4,0)"
^XMB(3.9,55,2,34312,0)="forwarded to the appropriate mail group and which ones should be ignored."
^XMB(3.9,55,2,34313,0)="""^DIC"",361.2,""B"",""IB ELECTRONIC REPORT DISPOSITION"",361.2)"
^XMB(3.9,55,2,34314,0)=""
^XMB(3.9,55,2,34315,0)="""^DIC"",364.5,364.5,0)"
^XMB(3.9,55,2,34316,0)="IB DATA ELEMENT DEFINITION^364.5"
^XMB(3.9,55,2,34317,0)="""^DIC"",364.5,364.5,0,""GL"")"
^XMB(3.9,55,2,34318,0)="^IBA(364.5,"
^XMB(3.9,55,2,34319,0)="""^DIC"",364.5,364.5,""%D"",0)"
^XMB(3.9,55,2,34320,0)="^^8^8^2970606^^^^"
^XMB(3.9,55,2,34321,0)="""^DIC"",364.5,364.5,""%D"",1,0)"
^XMB(3.9,55,2,34322,0)="DO NOT delete entries or edit data in this file with VA File Manager."
^XMB(3.9,55,2,34323,0)="""^DIC"",364.5,364.5,""%D"",2,0)"
^XMB(3.9,55,2,34324,0)=" "
^XMB(3.9,55,2,34325,0)="""^DIC"",364.5,364.5,""%D"",3,0)"
^XMB(3.9,55,2,34326,0)="This file contains the definition of all data elements that are needed for"
^XMB(3.9,55,2,34327,0)="""^DIC"",364.5,364.5,""%D"",4,0)"
^XMB(3.9,55,2,34328,0)="various forms throughout the MCCR DHCP system.  It contains the 'blueprint'"
^XMB(3.9,55,2,34329,0)="""^DIC"",364.5,364.5,""%D"",5,0)"
^XMB(3.9,55,2,34330,0)="for how to extract the data for each data element entry."
^XMB(3.9,55,2,34331,0)="""^DIC"",364.5,364.5,""%D"",6,0)"
^XMB(3.9,55,2,34332,0)=" "
^XMB(3.9,55,2,34333,0)="""^DIC"",364.5,364.5,""%D"",7,0)"
^XMB(3.9,55,2,34334,0)="Entries in this file that are designated as having a SECURITY LEVEL of"
^XMB(3.9,55,2,34335,0)="""^DIC"",364.5,364.5,""%D"",8,0)"
^XMB(3.9,55,2,34336,0)="NATIONAL should not be deleted or edited."
^XMB(3.9,55,2,34337,0)="""^DIC"",364.5,""B"",""IB DATA ELEMENT DEFINITION"",364.5)"
^XMB(3.9,55,2,34338,0)=""
^XMB(3.9,55,2,34339,0)="""^DIC"",364.6,364.6,0)"
^XMB(3.9,55,2,34340,0)="IB FORM SKELETON DEFINITION^364.6P"
^XMB(3.9,55,2,34341,0)="""^DIC"",364.6,364.6,0,""GL"")"
^XMB(3.9,55,2,34342,0)="^IBA(364.6,"
^XMB(3.9,55,2,34343,0)="""^DIC"",364.6,364.6,""%D"",0)"
^XMB(3.9,55,2,34344,0)="^^10^10^2970606^^^^"
^XMB(3.9,55,2,34345,0)="""^DIC"",364.6,364.6,""%D"",1,0)"
^XMB(3.9,55,2,34346,0)="DO NOT delete entries or edit data in this file with VA File Manager."
^XMB(3.9,55,2,34347,0)="""^DIC"",364.6,364.6,""%D"",2,0)"
^XMB(3.9,55,2,34348,0)=" "
^XMB(3.9,55,2,34349,0)="""^DIC"",364.6,364.6,""%D"",3,0)"
^XMB(3.9,55,2,34350,0)="This file contains records that define the skeleton makeup of forms for"
^XMB(3.9,55,2,34351,0)="""^DIC"",364.6,364.6,""%D"",4,0)"
^XMB(3.9,55,2,34352,0)="the IB system.  This definition includes the absolute position of every"
^XMB(3.9,55,2,34353,0)="""^DIC"",364.6,364.6,""%D"",5,0)"
^XMB(3.9,55,2,34354,0)="field that can be output on the form, the length each field must be limited"
^XMB(3.9,55,2,34355,0)="""^DIC"",364.6,364.6,""%D"",6,0)"
^XMB(3.9,55,2,34356,0)="to, and some descriptive information.   This includes printed forms,"
^XMB(3.9,55,2,34357,0)="""^DIC"",364.6,364.6,""%D"",7,0)"
^XMB(3.9,55,2,34358,0)="transmittable output files, and special local billing screens."
^XMB(3.9,55,2,34359,0)="""^DIC"",364.6,364.6,""%D"",8,0)"
^XMB(3.9,55,2,34360,0)=" "
^XMB(3.9,55,2,34361,0)="""^DIC"",364.6,364.6,""%D"",9,0)"
^XMB(3.9,55,2,34362,0)="Entries in this file that are designated as having a SECURITY LEVEL of"
^XMB(3.9,55,2,34363,0)="""^DIC"",364.6,364.6,""%D"",10,0)"
^XMB(3.9,55,2,34364,0)="NATIONAL should not be deleted or edited."
^XMB(3.9,55,2,34365,0)="""^DIC"",364.6,""B"",""IB FORM SKELETON DEFINITION"",364.6)"
^XMB(3.9,55,2,34366,0)=""
^XMB(3.9,55,2,34367,0)="""^DIC"",364.7,364.7,0)"
^XMB(3.9,55,2,34368,0)="IB FORM FIELD CONTENT^364.7P"
^XMB(3.9,55,2,34369,0)="""^DIC"",364.7,364.7,0,""GL"")"
^XMB(3.9,55,2,34370,0)="^IBA(364.7,"
^XMB(3.9,55,2,34371,0)="""^DIC"",364.7,364.7,""%D"",0)"
^XMB(3.9,55,2,34372,0)="^1.001^9^9^3030331^^^^"
^XMB(3.9,55,2,34373,0)="""^DIC"",364.7,364.7,""%D"",1,0)"
^XMB(3.9,55,2,34374,0)="DO NOT delete entries or edit data in this file with VA File Manager."
^XMB(3.9,55,2,34375,0)="""^DIC"",364.7,364.7,""%D"",2,0)"
^XMB(3.9,55,2,34376,0)=" "
^XMB(3.9,55,2,34377,0)="""^DIC"",364.7,364.7,""%D"",3,0)"
^XMB(3.9,55,2,34378,0)="This is the file that contains the specific fields to be used to produce"
^XMB(3.9,55,2,34379,0)="""^DIC"",364.7,364.7,""%D"",4,0)"
^XMB(3.9,55,2,34380,0)="the associated form or screen.  If there is no insurance company or bill"
^XMB(3.9,55,2,34381,0)="""^DIC"",364.7,364.7,""%D"",5,0)"
^XMB(3.9,55,2,34382,0)="type specified for an entry, this is assumed to be the default definition"
^XMB(3.9,55,2,34383,0)="""^DIC"",364.7,364.7,""%D"",6,0)"
^XMB(3.9,55,2,34384,0)="of the field."
^XMB(3.9,55,2,34385,0)="""^DIC"",364.7,364.7,""%D"",7,0)"
^XMB(3.9,55,2,34386,0)=" "
^XMB(3.9,55,2,34387,0)="""^DIC"",364.7,364.7,""%D"",8,0)"
^XMB(3.9,55,2,34388,0)="Entries in this file that are designated as having a SECURITY LEVEL of"
^XMB(3.9,55,2,34389,0)="""^DIC"",364.7,364.7,""%D"",9,0)"
^XMB(3.9,55,2,34390,0)="NATIONAL should not be deleted or edited."
^XMB(3.9,55,2,34391,0)="""^DIC"",364.7,""B"",""IB FORM FIELD CONTENT"",364.7)"
^XMB(3.9,55,2,34392,0)=""
^XMB(3.9,55,2,34393,0)="""BLD"",5605,6)"
^XMB(3.9,55,2,34394,0)="^315"
^XMB(3.9,55,2,34395,0)="$END KID IB*2.0*320"
^XMB(3.9,55,6,0)="^3.911A^2^2"
^XMB(3.9,55,6,1,0)="POSTMASTER"
^XMB(3.9,55,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,55,6,"B","POSTMASTER",1)=""
^XMB(3.9,55,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,56,0)="IB-2_SEQ-316_PAT-305.KID^.5^3061008.015737^^^^K"
^XMB(3.9,56,.6)="3061008"
^XMB(3.9,56,1,0)="^3.91A^2^2"
^XMB(3.9,56,1,1,0)=".5^0^3061008.015737^^^^^^^3061008.015737"
^XMB(3.9,56,1,2,0)="1^0^3061008.023406^^^^^^^3061008.023406"
^XMB(3.9,56,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,56,1,"C",.5,1)=""
^XMB(3.9,56,1,"C",1,2)=""
^XMB(3.9,56,2,0)="^^1341^1341^3061008"
^XMB(3.9,56,2,1,0)="$TXT Released IB*2*305 SEQ #316"
^XMB(3.9,56,2,2,0)="Extracted from mail message"
^XMB(3.9,56,2,3,0)="$END TXT"
^XMB(3.9,56,2,4,0)="$KID IB*2.0*305"
^XMB(3.9,56,2,5,0)="**INSTALL NAME**"
^XMB(3.9,56,2,6,0)="IB*2.0*305"
^XMB(3.9,56,2,7,0)="""BLD"",6171,0)"
^XMB(3.9,56,2,8,0)="IB*2.0*305^INTEGRATED BILLING^0^3060622^y"
^XMB(3.9,56,2,9,0)="""BLD"",6171,1,0)"
^XMB(3.9,56,2,10,0)="^^1^1^3050810^^"
^XMB(3.9,56,2,11,0)="""BLD"",6171,1,1,0)"
^XMB(3.9,56,2,12,0)="Companion patch for PRCA*4.5*232 - Vista AR IB extract -phase II -part II."
^XMB(3.9,56,2,13,0)="""BLD"",6171,4,0)"
^XMB(3.9,56,2,14,0)="^9.64PA^^"
^XMB(3.9,56,2,15,0)="""BLD"",6171,""ABPKG"")"
^XMB(3.9,56,2,16,0)="n"
^XMB(3.9,56,2,17,0)="""BLD"",6171,""KRN"",0)"
^XMB(3.9,56,2,18,0)="^9.67PA^8989.52^19"
^XMB(3.9,56,2,19,0)="""BLD"",6171,""KRN"",.4,0)"
^XMB(3.9,56,2,20,0)=".4"
^XMB(3.9,56,2,21,0)="""BLD"",6171,""KRN"",.401,0)"
^XMB(3.9,56,2,22,0)=".401"
^XMB(3.9,56,2,23,0)="""BLD"",6171,""KRN"",.402,0)"
^XMB(3.9,56,2,24,0)=".402"
^XMB(3.9,56,2,25,0)="""BLD"",6171,""KRN"",.403,0)"
^XMB(3.9,56,2,26,0)=".403"
^XMB(3.9,56,2,27,0)="""BLD"",6171,""KRN"",.5,0)"
^XMB(3.9,56,2,28,0)=".5"
^XMB(3.9,56,2,29,0)="""BLD"",6171,""KRN"",.84,0)"
^XMB(3.9,56,2,30,0)=".84"
^XMB(3.9,56,2,31,0)="""BLD"",6171,""KRN"",3.6,0)"
^XMB(3.9,56,2,32,0)="3.6"
^XMB(3.9,56,2,33,0)="""BLD"",6171,""KRN"",3.8,0)"
^XMB(3.9,56,2,34,0)="3.8"
^XMB(3.9,56,2,35,0)="""BLD"",6171,""KRN"",9.2,0)"
^XMB(3.9,56,2,36,0)="9.2"
^XMB(3.9,56,2,37,0)="""BLD"",6171,""KRN"",9.8,0)"
^XMB(3.9,56,2,38,0)="9.8"
^XMB(3.9,56,2,39,0)="""BLD"",6171,""KRN"",9.8,""NM"",0)"
^XMB(3.9,56,2,40,0)="^9.68A^3^3"
^XMB(3.9,56,2,41,0)="""BLD"",6171,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,56,2,42,0)="IBJDIPR^^0^B68845412"
^XMB(3.9,56,2,43,0)="""BLD"",6171,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,56,2,44,0)="IBRFN4^^0^B25672480"
^XMB(3.9,56,2,45,0)="""BLD"",6171,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,56,2,46,0)="IBCNBOA^^0^B46681109"
^XMB(3.9,56,2,47,0)="""BLD"",6171,""KRN"",9.8,""NM"",""B"",""IBCNBOA"",3)"
^XMB(3.9,56,2,48,0)=""
^XMB(3.9,56,2,49,0)="""BLD"",6171,""KRN"",9.8,""NM"",""B"",""IBJDIPR"",1)"
^XMB(3.9,56,2,50,0)=""
^XMB(3.9,56,2,51,0)="""BLD"",6171,""KRN"",9.8,""NM"",""B"",""IBRFN4"",2)"
^XMB(3.9,56,2,52,0)=""
^XMB(3.9,56,2,53,0)="""BLD"",6171,""KRN"",19,0)"
^XMB(3.9,56,2,54,0)="19"
^XMB(3.9,56,2,55,0)="""BLD"",6171,""KRN"",19.1,0)"
^XMB(3.9,56,2,56,0)="19.1"
^XMB(3.9,56,2,57,0)="""BLD"",6171,""KRN"",101,0)"
^XMB(3.9,56,2,58,0)="101"
^XMB(3.9,56,2,59,0)="""BLD"",6171,""KRN"",409.61,0)"
^XMB(3.9,56,2,60,0)="409.61"
^XMB(3.9,56,2,61,0)="""BLD"",6171,""KRN"",771,0)"
^XMB(3.9,56,2,62,0)="771"
^XMB(3.9,56,2,63,0)="""BLD"",6171,""KRN"",870,0)"
^XMB(3.9,56,2,64,0)="870"
^XMB(3.9,56,2,65,0)="""BLD"",6171,""KRN"",8989.51,0)"
^XMB(3.9,56,2,66,0)="8989.51"
^XMB(3.9,56,2,67,0)="""BLD"",6171,""KRN"",8989.52,0)"
^XMB(3.9,56,2,68,0)="8989.52"
^XMB(3.9,56,2,69,0)="""BLD"",6171,""KRN"",8994,0)"
^XMB(3.9,56,2,70,0)="8994"
^XMB(3.9,56,2,71,0)="""BLD"",6171,""KRN"",""B"",.4,.4)"
^XMB(3.9,56,2,72,0)=""
^XMB(3.9,56,2,73,0)="""BLD"",6171,""KRN"",""B"",.401,.401)"
^XMB(3.9,56,2,74,0)=""
^XMB(3.9,56,2,75,0)="""BLD"",6171,""KRN"",""B"",.402,.402)"
^XMB(3.9,56,2,76,0)=""
^XMB(3.9,56,2,77,0)="""BLD"",6171,""KRN"",""B"",.403,.403)"
^XMB(3.9,56,2,78,0)=""
^XMB(3.9,56,2,79,0)="""BLD"",6171,""KRN"",""B"",.5,.5)"
^XMB(3.9,56,2,80,0)=""
^XMB(3.9,56,2,81,0)="""BLD"",6171,""KRN"",""B"",.84,.84)"
^XMB(3.9,56,2,82,0)=""
^XMB(3.9,56,2,83,0)="""BLD"",6171,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,56,2,84,0)=""
^XMB(3.9,56,2,85,0)="""BLD"",6171,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,56,2,86,0)=""
^XMB(3.9,56,2,87,0)="""BLD"",6171,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,56,2,88,0)=""
^XMB(3.9,56,2,89,0)="""BLD"",6171,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,56,2,90,0)=""
^XMB(3.9,56,2,91,0)="""BLD"",6171,""KRN"",""B"",19,19)"
^XMB(3.9,56,2,92,0)=""
^XMB(3.9,56,2,93,0)="""BLD"",6171,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,56,2,94,0)=""
^XMB(3.9,56,2,95,0)="""BLD"",6171,""KRN"",""B"",101,101)"
^XMB(3.9,56,2,96,0)=""
^XMB(3.9,56,2,97,0)="""BLD"",6171,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,56,2,98,0)=""
^XMB(3.9,56,2,99,0)="""BLD"",6171,""KRN"",""B"",771,771)"
^XMB(3.9,56,2,100,0)=""
^XMB(3.9,56,2,101,0)="""BLD"",6171,""KRN"",""B"",870,870)"
^XMB(3.9,56,2,102,0)=""
^XMB(3.9,56,2,103,0)="""BLD"",6171,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,56,2,104,0)=""
^XMB(3.9,56,2,105,0)="""BLD"",6171,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,56,2,106,0)=""
^XMB(3.9,56,2,107,0)="""BLD"",6171,""KRN"",""B"",8994,8994)"
^XMB(3.9,56,2,108,0)=""
^XMB(3.9,56,2,109,0)="""BLD"",6171,""QUES"",0)"
^XMB(3.9,56,2,110,0)="^9.62^^"
^XMB(3.9,56,2,111,0)="""BLD"",6171,""REQB"",0)"
^XMB(3.9,56,2,112,0)="^9.611^4^4"
^XMB(3.9,56,2,113,0)="""BLD"",6171,""REQB"",1,0)"
^XMB(3.9,56,2,114,0)="IB*2.0*233^2"
^XMB(3.9,56,2,115,0)="""BLD"",6171,""REQB"",2,0)"
^XMB(3.9,56,2,116,0)="IB*2.0*301^2"
^XMB(3.9,56,2,117,0)="""BLD"",6171,""REQB"",3,0)"
^XMB(3.9,56,2,118,0)="PRCA*4.5*201^2"
^XMB(3.9,56,2,119,0)="""BLD"",6171,""REQB"",4,0)"
^XMB(3.9,56,2,120,0)="PRCA*4.5*228^2"
^XMB(3.9,56,2,121,0)="""BLD"",6171,""REQB"",""B"",""IB*2.0*233"",1)"
^XMB(3.9,56,2,122,0)=""
^XMB(3.9,56,2,123,0)="""BLD"",6171,""REQB"",""B"",""IB*2.0*301"",2)"
^XMB(3.9,56,2,124,0)=""
^XMB(3.9,56,2,125,0)="""BLD"",6171,""REQB"",""B"",""PRCA*4.5*201"",3)"
^XMB(3.9,56,2,126,0)=""
^XMB(3.9,56,2,127,0)="""BLD"",6171,""REQB"",""B"",""PRCA*4.5*228"",4)"
^XMB(3.9,56,2,128,0)=""
^XMB(3.9,56,2,129,0)="""MBREQ"")"
^XMB(3.9,56,2,130,0)="0"
^XMB(3.9,56,2,131,0)="""PKG"",200,-1)"
^XMB(3.9,56,2,132,0)="1^1"
^XMB(3.9,56,2,133,0)="""PKG"",200,0)"
^XMB(3.9,56,2,134,0)="INTEGRATED BILLING^IB^INTEGRATED BILLING"
^XMB(3.9,56,2,135,0)="""PKG"",200,20,0)"
^XMB(3.9,56,2,136,0)="^9.402P^1^1"
^XMB(3.9,56,2,137,0)="""PKG"",200,20,1,0)"
^XMB(3.9,56,2,138,0)="2^^IBAXDR"
^XMB(3.9,56,2,139,0)="""PKG"",200,20,1,1)"
^XMB(3.9,56,2,140,0)=""
^XMB(3.9,56,2,141,0)="""PKG"",200,20,""B"",2,1)"
^XMB(3.9,56,2,142,0)=""
^XMB(3.9,56,2,143,0)="""PKG"",200,22,0)"
^XMB(3.9,56,2,144,0)="^9.49I^1^1"
^XMB(3.9,56,2,145,0)="""PKG"",200,22,1,0)"
^XMB(3.9,56,2,146,0)="2.0^2940321^2990406^2447"
^XMB(3.9,56,2,147,0)="""PKG"",200,22,1,""PAH"",1,0)"
^XMB(3.9,56,2,148,0)="305^3060622^7"
^XMB(3.9,56,2,149,0)="""PKG"",200,22,1,""PAH"",1,1,0)"
^XMB(3.9,56,2,150,0)="^^1^1^3060622"
^XMB(3.9,56,2,151,0)="""PKG"",200,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,56,2,152,0)="Companion patch for PRCA*4.5*232 - Vista AR IB extract -phase II -part II."
^XMB(3.9,56,2,153,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,56,2,154,0)="Y"
^XMB(3.9,56,2,155,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,56,2,156,0)="^D REP^XPDH"
^XMB(3.9,56,2,157,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,56,2,158,0)="Shall I write over your |FLAG| File"
^XMB(3.9,56,2,159,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,56,2,160,0)="YES"
^XMB(3.9,56,2,161,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,56,2,162,0)="D XPF1^XPDIQ"
^XMB(3.9,56,2,163,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,56,2,164,0)="Y"
^XMB(3.9,56,2,165,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,56,2,166,0)="^D DTA^XPDH"
^XMB(3.9,56,2,167,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,56,2,168,0)="Want my data |FLAG| yours"
^XMB(3.9,56,2,169,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,56,2,170,0)="YES"
^XMB(3.9,56,2,171,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,56,2,172,0)="D XPF2^XPDIQ"
^XMB(3.9,56,2,173,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,56,2,174,0)="YO"
^XMB(3.9,56,2,175,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,56,2,176,0)="^D INHIBIT^XPDH"
^XMB(3.9,56,2,177,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,56,2,178,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,56,2,179,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,56,2,180,0)="YES"
^XMB(3.9,56,2,181,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,56,2,182,0)="D XPI1^XPDIQ"
^XMB(3.9,56,2,183,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,56,2,184,0)="PO^VA(200,:EM"
^XMB(3.9,56,2,185,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,56,2,186,0)="^D MG^XPDH"
^XMB(3.9,56,2,187,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,56,2,188,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,56,2,189,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,56,2,190,0)=""
^XMB(3.9,56,2,191,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,56,2,192,0)="D XPM1^XPDIQ"
^XMB(3.9,56,2,193,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,56,2,194,0)="Y"
^XMB(3.9,56,2,195,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,56,2,196,0)="^D MENU^XPDH"
^XMB(3.9,56,2,197,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,56,2,198,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,56,2,199,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,56,2,200,0)="YES"
^XMB(3.9,56,2,201,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,56,2,202,0)="D XPO1^XPDIQ"
^XMB(3.9,56,2,203,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,56,2,204,0)="Y"
^XMB(3.9,56,2,205,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,56,2,206,0)="^D OPT^XPDH"
^XMB(3.9,56,2,207,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,56,2,208,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,56,2,209,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,56,2,210,0)="YES"
^XMB(3.9,56,2,211,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,56,2,212,0)="D XPZ1^XPDIQ"
^XMB(3.9,56,2,213,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,56,2,214,0)="Y"
^XMB(3.9,56,2,215,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,56,2,216,0)="^D RTN^XPDH"
^XMB(3.9,56,2,217,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,56,2,218,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,56,2,219,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,56,2,220,0)="NO"
^XMB(3.9,56,2,221,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,56,2,222,0)="D XPZ2^XPDIQ"
^XMB(3.9,56,2,223,0)="""RTN"")"
^XMB(3.9,56,2,224,0)="3"
^XMB(3.9,56,2,225,0)="""RTN"",""IBCNBOA"")"
^XMB(3.9,56,2,226,0)="0^3^B46681109^B43063126"
^XMB(3.9,56,2,227,0)="""RTN"",""IBCNBOA"",1,0)"
^XMB(3.9,56,2,228,0)="IBCNBOA ;ALB/ARH-Ins Buffer: Activity Report ;1 Jun 97"
^XMB(3.9,56,2,229,0)="""RTN"",""IBCNBOA"",2,0)"
^XMB(3.9,56,2,230,0)=" ;;2.0;INTEGRATED BILLING;**82,305**;21-MAR-94"
^XMB(3.9,56,2,231,0)="""RTN"",""IBCNBOA"",3,0)"
^XMB(3.9,56,2,232,0)=" ;"
^XMB(3.9,56,2,233,0)="""RTN"",""IBCNBOA"",4,0)"
^XMB(3.9,56,2,234,0)="EN ;get parameters then run the report"
^XMB(3.9,56,2,235,0)="""RTN"",""IBCNBOA"",5,0)"
^XMB(3.9,56,2,236,0)=" ;"
^XMB(3.9,56,2,237,0)="""RTN"",""IBCNBOA"",6,0)"
^XMB(3.9,56,2,238,0)=" K ^TMP($J) D HOME^%ZIS S IBHDR=""INSURANCE BUFFER ACTIVITY REPORT"" W @IOF,!!,?25,IBHDR"
^XMB(3.9,56,2,239,0)="""RTN"",""IBCNBOA"",7,0)"
^XMB(3.9,56,2,240,0)=" W !!,""This report contains the counts and time statistics for all activity in the"",!,""Insurance Buffer."",!!"
^XMB(3.9,56,2,241,0)="""RTN"",""IBCNBOA"",8,0)"
^XMB(3.9,56,2,242,0)=" ;"
^XMB(3.9,56,2,243,0)="""RTN"",""IBCNBOA"",9,0)"
^XMB(3.9,56,2,244,0)=" S IBBEG=$$DATES^IBCNBOE(""Beginning"") G:'IBBEG EXIT"
^XMB(3.9,56,2,245,0)="""RTN"",""IBCNBOA"",10,0)"
^XMB(3.9,56,2,246,0)=" S IBEND=$$DATES^IBCNBOE(""Ending"",IBBEG) G:'IBEND EXIT  W !!"
^XMB(3.9,56,2,247,0)="""RTN"",""IBCNBOA"",11,0)"
^XMB(3.9,56,2,248,0)=" ;"
^XMB(3.9,56,2,249,0)="""RTN"",""IBCNBOA"",12,0)"
^XMB(3.9,56,2,250,0)=" S IBMONTH=$$MONTH^IBCNBOE G:IBMONTH="""" EXIT  W !!"
^XMB(3.9,56,2,251,0)="""RTN"",""IBCNBOA"",13,0)"
^XMB(3.9,56,2,252,0)=" ;"
^XMB(3.9,56,2,253,0)="""RTN"",""IBCNBOA"",14,0)"
^XMB(3.9,56,2,254,0)="DEV ;get the device"
^XMB(3.9,56,2,255,0)="""RTN"",""IBCNBOA"",15,0)"
^XMB(3.9,56,2,256,0)=" S %ZIS=""QM"",%ZIS(""A"")=""OUTPUT DEVICE: "" D ^%ZIS G:POP EXIT"
^XMB(3.9,56,2,257,0)="""RTN"",""IBCNBOA"",16,0)"
^XMB(3.9,56,2,258,0)=" I $D(IO(""Q"")) S ZTRTN=""RPT^IBCNBOA"",ZTDESC=IBHDR,ZTSAVE(""IB*"")="""" D ^%ZTLOAD K IO(""Q"") G EXIT"
^XMB(3.9,56,2,259,0)="""RTN"",""IBCNBOA"",17,0)"
^XMB(3.9,56,2,260,0)=" U IO"
^XMB(3.9,56,2,261,0)="""RTN"",""IBCNBOA"",18,0)"
^XMB(3.9,56,2,262,0)=" ;"
^XMB(3.9,56,2,263,0)="""RTN"",""IBCNBOA"",19,0)"
^XMB(3.9,56,2,264,0)="RPT ; run report"
^XMB(3.9,56,2,265,0)="""RTN"",""IBCNBOA"",20,0)"
^XMB(3.9,56,2,266,0)=" S IBQUIT=0"
^XMB(3.9,56,2,267,0)="""RTN"",""IBCNBOA"",21,0)"
^XMB(3.9,56,2,268,0)=" ;"
^XMB(3.9,56,2,269,0)="""RTN"",""IBCNBOA"",22,0)"
^XMB(3.9,56,2,270,0)=" ;Patch 305- QUIT in line below inserted for transmission to ARC"
^XMB(3.9,56,2,271,0)="""RTN"",""IBCNBOA"",23,0)"
^XMB(3.9,56,2,272,0)=" D SEARCH(IBBEG,IBEND,IBMONTH) Q:$G(IBARFLAG)  G:IBQUIT EXIT"
^XMB(3.9,56,2,273,0)="""RTN"",""IBCNBOA"",24,0)"
^XMB(3.9,56,2,274,0)=" D PRINT(IBBEG,IBEND)"
^XMB(3.9,56,2,275,0)="""RTN"",""IBCNBOA"",25,0)"
^XMB(3.9,56,2,276,0)=" ;"
^XMB(3.9,56,2,277,0)="""RTN"",""IBCNBOA"",26,0)"
^XMB(3.9,56,2,278,0)="EXIT K ^TMP($J),IBHDR,IBBEG,IBEND,IBMONTH,IBQUIT"
^XMB(3.9,56,2,279,0)="""RTN"",""IBCNBOA"",27,0)"
^XMB(3.9,56,2,280,0)=" Q:$D(ZTQUEUED)"
^XMB(3.9,56,2,281,0)="""RTN"",""IBCNBOA"",28,0)"
^XMB(3.9,56,2,282,0)=" D ^%ZISC"
^XMB(3.9,56,2,283,0)="""RTN"",""IBCNBOA"",29,0)"
^XMB(3.9,56,2,284,0)=" Q"
^XMB(3.9,56,2,285,0)="""RTN"",""IBCNBOA"",30,0)"
^XMB(3.9,56,2,286,0)=" ;"
^XMB(3.9,56,2,287,0)="""RTN"",""IBCNBOA"",31,0)"
^XMB(3.9,56,2,288,0)="SEARCH(IBBEG,IBEND,IBMONTH) ; search/sort statistics for activity report"
^XMB(3.9,56,2,289,0)="""RTN"",""IBCNBOA"",32,0)"
^XMB(3.9,56,2,290,0)=" N IBXST,IBXDT,IBBUFDA,IBB0,IBSTAT,IBTIME,IBS3,IBDATE,IBVER,IBDT2 S IBQUIT="""""
^XMB(3.9,56,2,291,0)="""RTN"",""IBCNBOA"",33,0)"
^XMB(3.9,56,2,292,0)=" S IBBEG=$G(IBBEG)-.01,IBEND=$S('$G(IBEND):9999999,1:$P(IBEND,""."")+.9)"
^XMB(3.9,56,2,293,0)="""RTN"",""IBCNBOA"",34,0)"
^XMB(3.9,56,2,294,0)=" ;"
^XMB(3.9,56,2,295,0)="""RTN"",""IBCNBOA"",35,0)"
^XMB(3.9,56,2,296,0)=" S IBXST="""" F  S IBXST=$O(^IBA(355.33,""AFST"",IBXST)) Q:IBXST=""""  D   Q:IBQUIT"
^XMB(3.9,56,2,297,0)="""RTN"",""IBCNBOA"",36,0)"
^XMB(3.9,56,2,298,0)=" . S IBXDT=+IBBEG F  S IBXDT=$O(^IBA(355.33,""AFST"",IBXST,IBXDT)) Q:'IBXDT!(IBXDT>IBEND)  D  S IBQUIT=$$STOP Q:IBQUIT"
^XMB(3.9,56,2,299,0)="""RTN"",""IBCNBOA"",37,0)"
^XMB(3.9,56,2,300,0)=" .. S IBBUFDA=0 F  S IBBUFDA=$O(^IBA(355.33,""AFST"",IBXST,IBXDT,IBBUFDA)) Q:'IBBUFDA  D"
^XMB(3.9,56,2,301,0)="""RTN"",""IBCNBOA"",38,0)"
^XMB(3.9,56,2,302,0)=" ... ;"
^XMB(3.9,56,2,303,0)="""RTN"",""IBCNBOA"",39,0)"
^XMB(3.9,56,2,304,0)=" ... S IBB0=$G(^IBA(355.33,IBBUFDA,0)),IBSTAT=$P(IBB0,U,4),IBVER=$P(IBB0,U,10)"
^XMB(3.9,56,2,305,0)="""RTN"",""IBCNBOA"",40,0)"
^XMB(3.9,56,2,306,0)=" ... ;"
^XMB(3.9,56,2,307,0)="""RTN"",""IBCNBOA"",41,0)"
^XMB(3.9,56,2,308,0)=" ... ; entered"
^XMB(3.9,56,2,309,0)="""RTN"",""IBCNBOA"",42,0)"
^XMB(3.9,56,2,310,0)=" ... I IBXST=""E"" S IBDATE=+IBB0 I +IBDATE,IBDATE>IBBEG,IBDATE<IBEND D"
^XMB(3.9,56,2,311,0)="""RTN"",""IBCNBOA"",43,0)"
^XMB(3.9,56,2,312,0)=" .... S IBDT2=+$P(IBB0,U,10) I 'IBDT2 S IBDT2=+$P(IBB0,U,5) I 'IBDT2 S IBDT2=$$NOW^XLFDT"
^XMB(3.9,56,2,313,0)="""RTN"",""IBCNBOA"",44,0)"
^XMB(3.9,56,2,314,0)=" .... S IBTIME=+$$FMDIFF^XLFDT(IBDT2,IBDATE,2),IBSTAT=""ENTERED"",IBS3=1"
^XMB(3.9,56,2,315,0)="""RTN"",""IBCNBOA"",45,0)"
^XMB(3.9,56,2,316,0)=" .... I +$G(IBMONTH) D SET(IBSTAT,$E(IBDATE,1,5),IBS3,IBTIME,IBB0)"
^XMB(3.9,56,2,317,0)="""RTN"",""IBCNBOA"",46,0)"
^XMB(3.9,56,2,318,0)=" .... D SET(IBSTAT,99999,IBS3,IBTIME,IBB0)"
^XMB(3.9,56,2,319,0)="""RTN"",""IBCNBOA"",47,0)"
^XMB(3.9,56,2,320,0)=" ... ;"
^XMB(3.9,56,2,321,0)="""RTN"",""IBCNBOA"",48,0)"
^XMB(3.9,56,2,322,0)=" ... ; verified"
^XMB(3.9,56,2,323,0)="""RTN"",""IBCNBOA"",49,0)"
^XMB(3.9,56,2,324,0)=" ... I IBXST=""V"" S IBDATE=+$P(IBB0,U,10) I +IBDATE,IBDATE>IBBEG,IBDATE<IBEND D"
^XMB(3.9,56,2,325,0)="""RTN"",""IBCNBOA"",50,0)"
^XMB(3.9,56,2,326,0)=" .... S IBTIME=+$$FMDIFF^XLFDT(IBDATE,+IBB0,2),IBSTAT=""VERIFIED"",IBS3=2"
^XMB(3.9,56,2,327,0)="""RTN"",""IBCNBOA"",51,0)"
^XMB(3.9,56,2,328,0)=" .... I +$G(IBMONTH) D SET(IBSTAT,$E(IBDATE,1,5),IBS3,IBTIME,IBB0)"
^XMB(3.9,56,2,329,0)="""RTN"",""IBCNBOA"",52,0)"
^XMB(3.9,56,2,330,0)=" .... D SET(IBSTAT,99999,IBS3,IBTIME,IBB0)"
^XMB(3.9,56,2,331,0)="""RTN"",""IBCNBOA"",53,0)"
^XMB(3.9,56,2,332,0)=" ... ;"
^XMB(3.9,56,2,333,0)="""RTN"",""IBCNBOA"",54,0)"
^XMB(3.9,56,2,334,0)=" ... ; processed"
^XMB(3.9,56,2,335,0)="""RTN"",""IBCNBOA"",55,0)"
^XMB(3.9,56,2,336,0)=" ... I IBXST=""A""!(IBXST=""R"") S IBDATE=+$P(IBB0,U,5) I +IBDATE,IBDATE>IBBEG,IBDATE<IBEND D"
^XMB(3.9,56,2,337,0)="""RTN"",""IBCNBOA"",56,0)"
^XMB(3.9,56,2,338,0)=" .... S IBDT2=+IBVER I 'IBVER S IBDT2=+IBB0"
^XMB(3.9,56,2,339,0)="""RTN"",""IBCNBOA"",57,0)"
^XMB(3.9,56,2,340,0)=" .... S IBTIME=+$$FMDIFF^XLFDT(IBDATE,+IBDT2,2),IBSTAT=""UNKNOWN"",IBS3=6"
^XMB(3.9,56,2,341,0)="""RTN"",""IBCNBOA"",58,0)"
^XMB(3.9,56,2,342,0)=" .... I $P(IBB0,U,4)=""A"" S IBS3=3,IBSTAT=""ACCEPTED"" I 'IBVER S IBS3=4,IBSTAT=IBSTAT_"" (&V)"""
^XMB(3.9,56,2,343,0)="""RTN"",""IBCNBOA"",59,0)"
^XMB(3.9,56,2,344,0)=" .... I $P(IBB0,U,4)=""R"" S IBS3=5,IBSTAT=""REJECTED"" I +IBVER S IBS3=6,IBSTAT=IBSTAT_"" (V)"""
^XMB(3.9,56,2,345,0)="""RTN"",""IBCNBOA"",60,0)"
^XMB(3.9,56,2,346,0)=" .... I +$G(IBMONTH) D SET(IBSTAT,$E(IBDATE,1,5),IBS3,IBTIME,IBB0)"
^XMB(3.9,56,2,347,0)="""RTN"",""IBCNBOA"",61,0)"
^XMB(3.9,56,2,348,0)=" .... D SET(IBSTAT,99999,IBS3,IBTIME,IBB0)"
^XMB(3.9,56,2,349,0)="""RTN"",""IBCNBOA"",62,0)"
^XMB(3.9,56,2,350,0)=" ;"
^XMB(3.9,56,2,351,0)="""RTN"",""IBCNBOA"",63,0)"
^XMB(3.9,56,2,352,0)=" Q"
^XMB(3.9,56,2,353,0)="""RTN"",""IBCNBOA"",64,0)"
^XMB(3.9,56,2,354,0)=" ;"
^XMB(3.9,56,2,355,0)="""RTN"",""IBCNBOA"",65,0)"
^XMB(3.9,56,2,356,0)="SET(STAT,S1,S3,TIME,IBB0) ;"
^XMB(3.9,56,2,357,0)="""RTN"",""IBCNBOA"",66,0)"
^XMB(3.9,56,2,358,0)=" D TMP(""IBCNBOA"",S1,1,S3,TIME,STAT)"
^XMB(3.9,56,2,359,0)="""RTN"",""IBCNBOA"",67,0)"
^XMB(3.9,56,2,360,0)=" I S3<3 D TMP(""IBCNBOA"",S1,2,1,TIME,""NOT PROCESSED"")"
^XMB(3.9,56,2,361,0)="""RTN"",""IBCNBOA"",68,0)"
^XMB(3.9,56,2,362,0)=" I S3>2 D TMP(""IBCNBOA"",S1,2,2,TIME,""PROCESSED"")"
^XMB(3.9,56,2,363,0)="""RTN"",""IBCNBOA"",69,0)"
^XMB(3.9,56,2,364,0)=" D TMP(""IBCNBOA"",S1,2,9,TIME,""TOTAL"")"
^XMB(3.9,56,2,365,0)="""RTN"",""IBCNBOA"",70,0)"
^XMB(3.9,56,2,366,0)=" ;"
^XMB(3.9,56,2,367,0)="""RTN"",""IBCNBOA"",71,0)"
^XMB(3.9,56,2,368,0)=" Q:$E(STAT)'=""A"""
^XMB(3.9,56,2,369,0)="""RTN"",""IBCNBOA"",72,0)"
^XMB(3.9,56,2,370,0)=" ;"
^XMB(3.9,56,2,371,0)="""RTN"",""IBCNBOA"",73,0)"
^XMB(3.9,56,2,372,0)=" D TMP1(""IBCNBOAC"",S1,+$P(IBB0,U,7),+$P(IBB0,U,8),+$P(IBB0,U,9))"
^XMB(3.9,56,2,373,0)="""RTN"",""IBCNBOA"",74,0)"
^XMB(3.9,56,2,374,0)=" Q"
^XMB(3.9,56,2,375,0)="""RTN"",""IBCNBOA"",75,0)"
^XMB(3.9,56,2,376,0)=" ;"
^XMB(3.9,56,2,377,0)="""RTN"",""IBCNBOA"",76,0)"
^XMB(3.9,56,2,378,0)="TMP(XREF,S1,S2,S3,TIME,NAME) ;"
^XMB(3.9,56,2,379,0)="""RTN"",""IBCNBOA"",77,0)"
^XMB(3.9,56,2,380,0)=" S ^TMP($J,XREF,S1,S2,S3)=NAME"
^XMB(3.9,56,2,381,0)="""RTN"",""IBCNBOA"",78,0)"
^XMB(3.9,56,2,382,0)=" S ^TMP($J,XREF,S1,S2,S3,""CNT"")=$G(^TMP($J,XREF,S1,S2,S3,""CNT""))+1"
^XMB(3.9,56,2,383,0)="""RTN"",""IBCNBOA"",79,0)"
^XMB(3.9,56,2,384,0)=" S ^TMP($J,XREF,S1,S2,S3,""TM"")=$G(^TMP($J,XREF,S1,S2,S3,""TM""))+TIME"
^XMB(3.9,56,2,385,0)="""RTN"",""IBCNBOA"",80,0)"
^XMB(3.9,56,2,386,0)=" I '$G(^TMP($J,XREF,S1,S2,S3,""HG""))!($G(^TMP($J,XREF,S1,S2,S3,""HG""))<TIME) S ^TMP($J,XREF,S1,S2,S3,""HG"")=TIME"
^XMB(3.9,56,2,387,0)="""RTN"",""IBCNBOA"",81,0)"
^XMB(3.9,56,2,388,0)=" I '$G(^TMP($J,XREF,S1,S2,S3,""LS""))!($G(^TMP($J,XREF,S1,S2,S3,""LS""))>TIME) S ^TMP($J,XREF,S1,S2,S3,""LS"")=TIME"
^XMB(3.9,56,2,389,0)="""RTN"",""IBCNBOA"",82,0)"
^XMB(3.9,56,2,390,0)=" Q"
^XMB(3.9,56,2,391,0)="""RTN"",""IBCNBOA"",83,0)"
^XMB(3.9,56,2,392,0)=" ;"
^XMB(3.9,56,2,393,0)="""RTN"",""IBCNBOA"",84,0)"
^XMB(3.9,56,2,394,0)="TMP1(XREF,S1,IC,GC,PC) ;"
^XMB(3.9,56,2,395,0)="""RTN"",""IBCNBOA"",85,0)"
^XMB(3.9,56,2,396,0)=" I +IC S ^TMP($J,XREF,S1,""I"")=$G(^TMP($J,XREF,S1,""I""))+1"
^XMB(3.9,56,2,397,0)="""RTN"",""IBCNBOA"",86,0)"
^XMB(3.9,56,2,398,0)=" I +GC S ^TMP($J,XREF,S1,""G"")=$G(^TMP($J,XREF,S1,""G""))+1"
^XMB(3.9,56,2,399,0)="""RTN"",""IBCNBOA"",87,0)"
^XMB(3.9,56,2,400,0)=" I +PC S ^TMP($J,XREF,S1,""P"")=$G(^TMP($J,XREF,S1,""P""))+1"
^XMB(3.9,56,2,401,0)="""RTN"",""IBCNBOA"",88,0)"
^XMB(3.9,56,2,402,0)=" S ^TMP($J,XREF,S1,""CNT"")=$G(^TMP($J,XREF,S1,""CNT""))+1"
^XMB(3.9,56,2,403,0)="""RTN"",""IBCNBOA"",89,0)"
^XMB(3.9,56,2,404,0)=" Q"
^XMB(3.9,56,2,405,0)="""RTN"",""IBCNBOA"",90,0)"
^XMB(3.9,56,2,406,0)=" ;"
^XMB(3.9,56,2,407,0)="""RTN"",""IBCNBOA"",91,0)"
^XMB(3.9,56,2,408,0)=" ;"
^XMB(3.9,56,2,409,0)="""RTN"",""IBCNBOA"",92,0)"
^XMB(3.9,56,2,410,0)=" ;"
^XMB(3.9,56,2,411,0)="""RTN"",""IBCNBOA"",93,0)"
^XMB(3.9,56,2,412,0)="PRINT(IBBEG,IBEND) ;"
^XMB(3.9,56,2,413,0)="""RTN"",""IBCNBOA"",94,0)"
^XMB(3.9,56,2,414,0)=" N IBXREF,IBLABLE,IBS1,IBS2,IBS3,IBINS,IBGRP,IBPOL,IBCNT,IBIP,IBGP,IBPP,IBRDT,IBPGN,IBRANGE,IBLN,IBI"
^XMB(3.9,56,2,415,0)="""RTN"",""IBCNBOA"",95,0)"
^XMB(3.9,56,2,416,0)=" ;"
^XMB(3.9,56,2,417,0)="""RTN"",""IBCNBOA"",96,0)"
^XMB(3.9,56,2,418,0)=" S IBRANGE=$$FMTE^XLFDT(+IBBEG)_"" - ""_$$FMTE^XLFDT(IBEND)"
^XMB(3.9,56,2,419,0)="""RTN"",""IBCNBOA"",97,0)"
^XMB(3.9,56,2,420,0)=" S IBRDT=$$FMTE^XLFDT($J($$NOW^XLFDT,0,4),2),IBRDT=$TR(IBRDT,""@"","" ""),IBPGN=0"
^XMB(3.9,56,2,421,0)="""RTN"",""IBCNBOA"",98,0)"
^XMB(3.9,56,2,422,0)=" D HDR"
^XMB(3.9,56,2,423,0)="""RTN"",""IBCNBOA"",99,0)"
^XMB(3.9,56,2,424,0)=" ;"
^XMB(3.9,56,2,425,0)="""RTN"",""IBCNBOA"",100,0)"
^XMB(3.9,56,2,426,0)=" S IBXREF=""IBCNBOA"",IBS1="""" F  S IBS1=$O(^TMP($J,IBXREF,IBS1)) Q:IBS1=""""  D:IBLN>(IOSL-17) HDR Q:IBQUIT  D  S IBLN=IBLN+7"
^XMB(3.9,56,2,427,0)="""RTN"",""IBCNBOA"",101,0)"
^XMB(3.9,56,2,428,0)=" . S IBLABLE=$S(IBS1=99999:""TOTALS"",($E(IBBEG,1,5)<IBS1)&($E(IBEND,1,5)>IBS1):$$FMTE^XLFDT(IBS1_""00""),1:"""")"
^XMB(3.9,56,2,429,0)="""RTN"",""IBCNBOA"",102,0)"
^XMB(3.9,56,2,430,0)=" . I IBLABLE="""" S IBLABLE=$$FMTE^XLFDT($S($E(IBBEG,1,5)<IBS1:IBS1_1,1:IBBEG))_"" - ""_$$FMTE^XLFDT($S($E(IBEND,1,5)>IBS1:$$SCH^XLFDT(""1M(L)"",IBS1_11),1:IBEND))"
^XMB(3.9,56,2,431,0)="""RTN"",""IBCNBOA"",103,0)"
^XMB(3.9,56,2,432,0)=" . W !,?(40-($L(IBLABLE)/2)),IBLABLE,!"
^XMB(3.9,56,2,433,0)="""RTN"",""IBCNBOA"",104,0)"
^XMB(3.9,56,2,434,0)=" . W !,?43,""AVERAGE"",?56,""LONGEST"",?68,""SHORTEST"""
^XMB(3.9,56,2,435,0)="""RTN"",""IBCNBOA"",105,0)"
^XMB(3.9,56,2,436,0)=" . W !,""STATUS"",?22,""COUNT"",?30,""PERCENT"",?43,""# DAYS"",?56,""# DAYS"",?68,""# DAYS"""
^XMB(3.9,56,2,437,0)="""RTN"",""IBCNBOA"",106,0)"
^XMB(3.9,56,2,438,0)=" . ;"
^XMB(3.9,56,2,439,0)="""RTN"",""IBCNBOA"",107,0)"
^XMB(3.9,56,2,440,0)=" . S IBS2=0 F  S IBS2=$O(^TMP($J,IBXREF,IBS1,IBS2)) Q:IBS2=""""  D  S IBLN=IBLN+1"
^XMB(3.9,56,2,441,0)="""RTN"",""IBCNBOA"",108,0)"
^XMB(3.9,56,2,442,0)=" .. W !,""-----------------------------------------------------------------------------"""
^XMB(3.9,56,2,443,0)="""RTN"",""IBCNBOA"",109,0)"
^XMB(3.9,56,2,444,0)=" .. S IBS3="""" F  S IBS3=$O(^TMP($J,IBXREF,IBS1,IBS2,IBS3)) Q:'IBS3  D PRTLN  S IBLN=IBLN+1"
^XMB(3.9,56,2,445,0)="""RTN"",""IBCNBOA"",110,0)"
^XMB(3.9,56,2,446,0)=" . ;"
^XMB(3.9,56,2,447,0)="""RTN"",""IBCNBOA"",111,0)"
^XMB(3.9,56,2,448,0)=" . S IBINS=+$G(^TMP($J,""IBCNBOAC"",IBS1,""I"")),IBGRP=+$G(^TMP($J,""IBCNBOAC"",IBS1,""G""))"
^XMB(3.9,56,2,449,0)="""RTN"",""IBCNBOA"",112,0)"
^XMB(3.9,56,2,450,0)=" . S IBPOL=+$G(^TMP($J,""IBCNBOAC"",IBS1,""P"")),IBCNT=+$G(^TMP($J,""IBCNBOAC"",IBS1,""CNT""))"
^XMB(3.9,56,2,451,0)="""RTN"",""IBCNBOA"",113,0)"
^XMB(3.9,56,2,452,0)=" . S (IBIP,IBGP,IBPP)=0 I IBCNT'=0 S IBIP=((IBINS/IBCNT)*100)\1,IBGP=((IBGRP/IBCNT)*100)\1,IBPP=((IBPOL/IBCNT)*100)\1"
^XMB(3.9,56,2,453,0)="""RTN"",""IBCNBOA"",114,0)"
^XMB(3.9,56,2,454,0)=" . W !!,?2,IBINS,"" New Compan"",$S(IBINS=1:""y"",1:""ies""),"" ("",IBIP,""%), """
^XMB(3.9,56,2,455,0)="""RTN"",""IBCNBOA"",115,0)"
^XMB(3.9,56,2,456,0)=" . W IBGRP,"" New Group/Plan"",$S(IBGRP=1:"""",1:""s""),"" ("",IBGP,""%), """
^XMB(3.9,56,2,457,0)="""RTN"",""IBCNBOA"",116,0)"
^XMB(3.9,56,2,458,0)=" . W IBPOL,"" New Patient Polic"",$S(IBPOL=1:""y"",1:""ies""),"" ("",IBPP,""%)"",!"
^XMB(3.9,56,2,459,0)="""RTN"",""IBCNBOA"",117,0)"
^XMB(3.9,56,2,460,0)=" Q"
^XMB(3.9,56,2,461,0)="""RTN"",""IBCNBOA"",118,0)"
^XMB(3.9,56,2,462,0)=" ;"
^XMB(3.9,56,2,463,0)="""RTN"",""IBCNBOA"",119,0)"
^XMB(3.9,56,2,464,0)="PRTLN ;"
^XMB(3.9,56,2,465,0)="""RTN"",""IBCNBOA"",120,0)"
^XMB(3.9,56,2,466,0)=" N IBSTX,IBCNT,IBTM,IBHG,IBLS,IBTCNT"
^XMB(3.9,56,2,467,0)="""RTN"",""IBCNBOA"",121,0)"
^XMB(3.9,56,2,468,0)=" ;"
^XMB(3.9,56,2,469,0)="""RTN"",""IBCNBOA"",122,0)"
^XMB(3.9,56,2,470,0)=" S IBSTX=$G(^TMP($J,IBXREF,IBS1,IBS2,IBS3))"
^XMB(3.9,56,2,471,0)="""RTN"",""IBCNBOA"",123,0)"
^XMB(3.9,56,2,472,0)=" S IBCNT=$G(^TMP($J,IBXREF,IBS1,IBS2,IBS3,""CNT"")) Q:'IBCNT"
^XMB(3.9,56,2,473,0)="""RTN"",""IBCNBOA"",124,0)"
^XMB(3.9,56,2,474,0)=" S IBTM=$G(^TMP($J,IBXREF,IBS1,IBS2,IBS3,""TM""))"
^XMB(3.9,56,2,475,0)="""RTN"",""IBCNBOA"",125,0)"
^XMB(3.9,56,2,476,0)=" S IBHG=$G(^TMP($J,IBXREF,IBS1,IBS2,IBS3,""HG""))"
^XMB(3.9,56,2,477,0)="""RTN"",""IBCNBOA"",126,0)"
^XMB(3.9,56,2,478,0)=" S IBLS=$G(^TMP($J,IBXREF,IBS1,IBS2,IBS3,""LS""))"
^XMB(3.9,56,2,479,0)="""RTN"",""IBCNBOA"",127,0)"
^XMB(3.9,56,2,480,0)=" S IBTCNT=$G(^TMP($J,IBXREF,IBS1,2,9,""CNT"")) Q:'IBTCNT"
^XMB(3.9,56,2,481,0)="""RTN"",""IBCNBOA"",128,0)"
^XMB(3.9,56,2,482,0)=" ;"
^XMB(3.9,56,2,483,0)="""RTN"",""IBCNBOA"",129,0)"
^XMB(3.9,56,2,484,0)=" W !,IBSTX,?20,$J($FN(IBCNT,"",""),7),?30,$J(((IBCNT/IBTCNT)*100),6,1),""%"",?43,$J($$STD((IBTM/IBCNT)),6,1),?56,$J($$STD(IBHG),6,1),?68,$J($$STD(IBLS),6,1)"
^XMB(3.9,56,2,485,0)="""RTN"",""IBCNBOA"",130,0)"
^XMB(3.9,56,2,486,0)=" Q"
^XMB(3.9,56,2,487,0)="""RTN"",""IBCNBOA"",131,0)"
^XMB(3.9,56,2,488,0)=" ;"
^XMB(3.9,56,2,489,0)="""RTN"",""IBCNBOA"",132,0)"
^XMB(3.9,56,2,490,0)="STD(SEC) ; convert seconds to days"
^XMB(3.9,56,2,491,0)="""RTN"",""IBCNBOA"",133,0)"
^XMB(3.9,56,2,492,0)=" N IBX,IBD,IBS,IBH,DAYS S DAYS="""" G:'$G(SEC) STDQ"
^XMB(3.9,56,2,493,0)="""RTN"",""IBCNBOA"",134,0)"
^XMB(3.9,56,2,494,0)=" S IBD=(SEC/86400),IBD=+$P(IBD,""."")"
^XMB(3.9,56,2,495,0)="""RTN"",""IBCNBOA"",135,0)"
^XMB(3.9,56,2,496,0)=" S IBS=SEC-(IBD*86400)"
^XMB(3.9,56,2,497,0)="""RTN"",""IBCNBOA"",136,0)"
^XMB(3.9,56,2,498,0)=" S IBH=((IBS/60)/60),IBH=+$J(IBH,0,2)"
^XMB(3.9,56,2,499,0)="""RTN"",""IBCNBOA"",137,0)"
^XMB(3.9,56,2,500,0)=" S DAYS=IBD+(IBH/24)"
^XMB(3.9,56,2,501,0)="""RTN"",""IBCNBOA"",138,0)"
^XMB(3.9,56,2,502,0)="STDQ Q DAYS"
^XMB(3.9,56,2,503,0)="""RTN"",""IBCNBOA"",139,0)"
^XMB(3.9,56,2,504,0)=" ;"
^XMB(3.9,56,2,505,0)="""RTN"",""IBCNBOA"",140,0)"
^XMB(3.9,56,2,506,0)="HDR ;print the report header"
^XMB(3.9,56,2,507,0)="""RTN"",""IBCNBOA"",141,0)"
^XMB(3.9,56,2,508,0)=" S IBQUIT=$$STOP Q:IBQUIT"
^XMB(3.9,56,2,509,0)="""RTN"",""IBCNBOA"",142,0)"
^XMB(3.9,56,2,510,0)=" I IBPGN>0 S IBQUIT=$$PAUSE Q:IBQUIT"
^XMB(3.9,56,2,511,0)="""RTN"",""IBCNBOA"",143,0)"
^XMB(3.9,56,2,512,0)=" S IBPGN=IBPGN+1,IBLN=4 I IBPGN>1!($E(IOST,1,2)[""C-"") W @IOF"
^XMB(3.9,56,2,513,0)="""RTN"",""IBCNBOA"",144,0)"
^XMB(3.9,56,2,514,0)=" W !,""INSURANCE BUFFER ACTIVITY REPORT   "",IBRANGE,"" """
^XMB(3.9,56,2,515,0)="""RTN"",""IBCNBOA"",145,0)"
^XMB(3.9,56,2,516,0)=" W ?(IOM-22),IBRDT,?(IOM-7),"" PAGE "",IBPGN,!"
^XMB(3.9,56,2,517,0)="""RTN"",""IBCNBOA"",146,0)"
^XMB(3.9,56,2,518,0)=" S IBI="""",$P(IBI,""-"",IOM+1)="""" W IBI,!"
^XMB(3.9,56,2,519,0)="""RTN"",""IBCNBOA"",147,0)"
^XMB(3.9,56,2,520,0)=" Q"
^XMB(3.9,56,2,521,0)="""RTN"",""IBCNBOA"",148,0)"
^XMB(3.9,56,2,522,0)=" ;"
^XMB(3.9,56,2,523,0)="""RTN"",""IBCNBOA"",149,0)"
^XMB(3.9,56,2,524,0)="PAUSE() ;pause at end of screen if being displayed on a terminal"
^XMB(3.9,56,2,525,0)="""RTN"",""IBCNBOA"",150,0)"
^XMB(3.9,56,2,526,0)=" N IBX,DIR,DIRUT,X,Y S IBX=0"
^XMB(3.9,56,2,527,0)="""RTN"",""IBCNBOA"",151,0)"
^XMB(3.9,56,2,528,0)=" I $E(IOST,1,2)[""C-"" W !! S DIR(0)=""E"" D ^DIR K DIR I $D(DUOUT)!($D(DIRUT)) S IBX=1"
^XMB(3.9,56,2,529,0)="""RTN"",""IBCNBOA"",152,0)"
^XMB(3.9,56,2,530,0)=" Q IBX"
^XMB(3.9,56,2,531,0)="""RTN"",""IBCNBOA"",153,0)"
^XMB(3.9,56,2,532,0)=" ;"
^XMB(3.9,56,2,533,0)="""RTN"",""IBCNBOA"",154,0)"
^XMB(3.9,56,2,534,0)="STOP() ;determine if user has requested the queued report to stop"
^XMB(3.9,56,2,535,0)="""RTN"",""IBCNBOA"",155,0)"
^XMB(3.9,56,2,536,0)=" I $D(ZTQUEUED),$$S^%ZTLOAD S ZTSTOP=1 K ZTREQ I +$G(IBPGN) W !,""***TASK STOPPED BY USER***"""
^XMB(3.9,56,2,537,0)="""RTN"",""IBCNBOA"",156,0)"
^XMB(3.9,56,2,538,0)=" Q +$G(ZTSTOP)"
^XMB(3.9,56,2,539,0)="""RTN"",""IBCNBOA"",157,0)"
^XMB(3.9,56,2,540,0)=" ;"
^XMB(3.9,56,2,541,0)="""RTN"",""IBCNBOA"",158,0)"
^XMB(3.9,56,2,542,0)="IBAR(IBBEG,IBEND) ;Entry point for Vista IB AR data to ARC"
^XMB(3.9,56,2,543,0)="""RTN"",""IBCNBOA"",159,0)"
^XMB(3.9,56,2,544,0)=" ;patch 305 - called by IBRFN4"
^XMB(3.9,56,2,545,0)="""RTN"",""IBCNBOA"",160,0)"
^XMB(3.9,56,2,546,0)=" N IBMONTH,IBARFLAG,IBARDATA,IBTM,IBCNT"
^XMB(3.9,56,2,547,0)="""RTN"",""IBCNBOA"",161,0)"
^XMB(3.9,56,2,548,0)=" S IBMONTH=0,IBARFLAG=1 K ^TMP($J)"
^XMB(3.9,56,2,549,0)="""RTN"",""IBCNBOA"",162,0)"
^XMB(3.9,56,2,550,0)=" D RPT"
^XMB(3.9,56,2,551,0)="""RTN"",""IBCNBOA"",163,0)"
^XMB(3.9,56,2,552,0)=" S IBTM=$G(^TMP($J,""IBCNBOA"",99999,2,2,""TM""))"
^XMB(3.9,56,2,553,0)="""RTN"",""IBCNBOA"",164,0)"
^XMB(3.9,56,2,554,0)=" S IBCNT=$G(^TMP($J,""IBCNBOA"",99999,2,2,""CNT""))"
^XMB(3.9,56,2,555,0)="""RTN"",""IBCNBOA"",165,0)"
^XMB(3.9,56,2,556,0)=" I 'IBCNT S IBARDATA=0 G IBARQ"
^XMB(3.9,56,2,557,0)="""RTN"",""IBCNBOA"",166,0)"
^XMB(3.9,56,2,558,0)=" S IBARDATA=$FN($$STD((IBTM/IBCNT)),"""",1)"
^XMB(3.9,56,2,559,0)="""RTN"",""IBCNBOA"",167,0)"
^XMB(3.9,56,2,560,0)=" K ^TMP($J)"
^XMB(3.9,56,2,561,0)="""RTN"",""IBCNBOA"",168,0)"
^XMB(3.9,56,2,562,0)="IBARQ Q IBARDATA"
^XMB(3.9,56,2,563,0)="""RTN"",""IBJDIPR"")"
^XMB(3.9,56,2,564,0)="0^1^B68845412^B63713595"
^XMB(3.9,56,2,565,0)="""RTN"",""IBJDIPR"",1,0)"
^XMB(3.9,56,2,566,0)="IBJDIPR ;ALB/HMC - PERCENTAGE OF PATIENTS PREREGISTERED REPORT ;10-MAY-2004"
^XMB(3.9,56,2,567,0)="""RTN"",""IBJDIPR"",2,0)"
^XMB(3.9,56,2,568,0)=" ;;2.0;INTEGRATED BILLING;**272,305**;21-MAR-1994"
^XMB(3.9,56,2,569,0)="""RTN"",""IBJDIPR"",3,0)"
^XMB(3.9,56,2,570,0)=" ;"
^XMB(3.9,56,2,571,0)="""RTN"",""IBJDIPR"",4,0)"
^XMB(3.9,56,2,572,0)="EN ; - Option entry point."
^XMB(3.9,56,2,573,0)="""RTN"",""IBJDIPR"",5,0)"
^XMB(3.9,56,2,574,0)=" ;"
^XMB(3.9,56,2,575,0)="""RTN"",""IBJDIPR"",6,0)"
^XMB(3.9,56,2,576,0)=" D ENQ1"
^XMB(3.9,56,2,577,0)="""RTN"",""IBJDIPR"",7,0)"
^XMB(3.9,56,2,578,0)=" W !!,""This report provides number of patients treated, the number of"""
^XMB(3.9,56,2,579,0)="""RTN"",""IBJDIPR"",8,0)"
^XMB(3.9,56,2,580,0)=" W !,""patients pre-registered, % of patients pre-registered, number of"""
^XMB(3.9,56,2,581,0)="""RTN"",""IBJDIPR"",9,0)"
^XMB(3.9,56,2,582,0)=" W !,""patients pre-registered past the pre-registration time frame,"""
^XMB(3.9,56,2,583,0)="""RTN"",""IBJDIPR"",10,0)"
^XMB(3.9,56,2,584,0)=" W !,""number of patients never pre-registered, the clinic exclusions,"""
^XMB(3.9,56,2,585,0)="""RTN"",""IBJDIPR"",11,0)"
^XMB(3.9,56,2,586,0)=" W !,""and the eligibility exclusions."",!!"
^XMB(3.9,56,2,587,0)="""RTN"",""IBJDIPR"",12,0)"
^XMB(3.9,56,2,588,0)=" ;"
^XMB(3.9,56,2,589,0)="""RTN"",""IBJDIPR"",13,0)"
^XMB(3.9,56,2,590,0)="DATE D DATE^IBOUTL I IBBDT=""""!(IBEDT="""") G ENQ"
^XMB(3.9,56,2,591,0)="""RTN"",""IBJDIPR"",14,0)"
^XMB(3.9,56,2,592,0)=" ;"
^XMB(3.9,56,2,593,0)="""RTN"",""IBJDIPR"",15,0)"
^XMB(3.9,56,2,594,0)=" ;"
^XMB(3.9,56,2,595,0)="""RTN"",""IBJDIPR"",16,0)"
^XMB(3.9,56,2,596,0)="TIME ;Pre-Registration time frame, default is 180 days"
^XMB(3.9,56,2,597,0)="""RTN"",""IBJDIPR"",17,0)"
^XMB(3.9,56,2,598,0)=" ;"
^XMB(3.9,56,2,599,0)="""RTN"",""IBJDIPR"",18,0)"
^XMB(3.9,56,2,600,0)=" S DIR(0)=""N^^I X'>0 K X"""
^XMB(3.9,56,2,601,0)="""RTN"",""IBJDIPR"",19,0)"
^XMB(3.9,56,2,602,0)=" S DIR(""A"")=""Pre-Registration time frame (days)"" W !"
^XMB(3.9,56,2,603,0)="""RTN"",""IBJDIPR"",20,0)"
^XMB(3.9,56,2,604,0)=" S DIR(""B"")=180"
^XMB(3.9,56,2,605,0)="""RTN"",""IBJDIPR"",21,0)"
^XMB(3.9,56,2,606,0)=" S DIR(""?"")=""^D THLP^IBJDIPR"""
^XMB(3.9,56,2,607,0)="""RTN"",""IBJDIPR"",22,0)"
^XMB(3.9,56,2,608,0)=" D ^DIR"
^XMB(3.9,56,2,609,0)="""RTN"",""IBJDIPR"",23,0)"
^XMB(3.9,56,2,610,0)=" S IBPRF=Y"
^XMB(3.9,56,2,611,0)="""RTN"",""IBJDIPR"",24,0)"
^XMB(3.9,56,2,612,0)=" I $D(DIRUT)!$D(DTOUT)!$D(DUOUT)!$D(DIROUT) G ENQ"
^XMB(3.9,56,2,613,0)="""RTN"",""IBJDIPR"",25,0)"
^XMB(3.9,56,2,614,0)=" ;"
^XMB(3.9,56,2,615,0)="""RTN"",""IBJDIPR"",26,0)"
^XMB(3.9,56,2,616,0)=" K DIR,DIROUT,DTOUT,DUOUT,DIRUT"
^XMB(3.9,56,2,617,0)="""RTN"",""IBJDIPR"",27,0)"
^XMB(3.9,56,2,618,0)=" S DIR(0)=""Y"",DIR(""B"")=""NO"",DIR(""?"")=""^D EHLP^IBJDIPR"""
^XMB(3.9,56,2,619,0)="""RTN"",""IBJDIPR"",28,0)"
^XMB(3.9,56,2,620,0)=" S DIR(""A"")=""Detailed list of Exclusions (Y/N)"""
^XMB(3.9,56,2,621,0)="""RTN"",""IBJDIPR"",29,0)"
^XMB(3.9,56,2,622,0)=" D ^DIR"
^XMB(3.9,56,2,623,0)="""RTN"",""IBJDIPR"",30,0)"
^XMB(3.9,56,2,624,0)=" S IBEXC=+Y"
^XMB(3.9,56,2,625,0)="""RTN"",""IBJDIPR"",31,0)"
^XMB(3.9,56,2,626,0)=" I $D(DIRUT)!$D(DTOUT)!$D(DUOUT)!$D(DIROUT) G ENQ"
^XMB(3.9,56,2,627,0)="""RTN"",""IBJDIPR"",32,0)"
^XMB(3.9,56,2,628,0)=" K DIR,DIROUT,DTOUT,DUOUT,DIRUT"
^XMB(3.9,56,2,629,0)="""RTN"",""IBJDIPR"",33,0)"
^XMB(3.9,56,2,630,0)=" ;"
^XMB(3.9,56,2,631,0)="""RTN"",""IBJDIPR"",34,0)"
^XMB(3.9,56,2,632,0)=" W !!,""This report only requires an 80 column printer."""
^XMB(3.9,56,2,633,0)="""RTN"",""IBJDIPR"",35,0)"
^XMB(3.9,56,2,634,0)=" W !!,""Note: This report may take a while to run."""
^XMB(3.9,56,2,635,0)="""RTN"",""IBJDIPR"",36,0)"
^XMB(3.9,56,2,636,0)=" W !!,""You should queue this report to run after normal business hours."",!"
^XMB(3.9,56,2,637,0)="""RTN"",""IBJDIPR"",37,0)"
^XMB(3.9,56,2,638,0)=" ;"
^XMB(3.9,56,2,639,0)="""RTN"",""IBJDIPR"",38,0)"
^XMB(3.9,56,2,640,0)=" ; - Select a device."
^XMB(3.9,56,2,641,0)="""RTN"",""IBJDIPR"",39,0)"
^XMB(3.9,56,2,642,0)=" S %ZIS=""QM"" D ^%ZIS G:POP ENQ"
^XMB(3.9,56,2,643,0)="""RTN"",""IBJDIPR"",40,0)"
^XMB(3.9,56,2,644,0)=" I $D(IO(""Q"")) D  G ENQ"
^XMB(3.9,56,2,645,0)="""RTN"",""IBJDIPR"",41,0)"
^XMB(3.9,56,2,646,0)=" .S ZTRTN=""DQ^IBJDIPR"",ZTDESC=""IB - PERCENTAGE OF PATIENTS PREREGISTERED"""
^XMB(3.9,56,2,647,0)="""RTN"",""IBJDIPR"",42,0)"
^XMB(3.9,56,2,648,0)=" .S ZTSAVE(""IB*"")="""""
^XMB(3.9,56,2,649,0)="""RTN"",""IBJDIPR"",43,0)"
^XMB(3.9,56,2,650,0)=" .D ^%ZTLOAD"
^XMB(3.9,56,2,651,0)="""RTN"",""IBJDIPR"",44,0)"
^XMB(3.9,56,2,652,0)=" .W !!,$S($D(ZTSK):""This job has been queued. The task number is ""_ZTSK_""."",1:""Unable to queue this job."")"
^XMB(3.9,56,2,653,0)="""RTN"",""IBJDIPR"",45,0)"
^XMB(3.9,56,2,654,0)=" .K ZTSK,IO(""Q"") D HOME^%ZIS"
^XMB(3.9,56,2,655,0)="""RTN"",""IBJDIPR"",46,0)"
^XMB(3.9,56,2,656,0)=" ;"
^XMB(3.9,56,2,657,0)="""RTN"",""IBJDIPR"",47,0)"
^XMB(3.9,56,2,658,0)=" U IO"
^XMB(3.9,56,2,659,0)="""RTN"",""IBJDIPR"",48,0)"
^XMB(3.9,56,2,660,0)=" ;"
^XMB(3.9,56,2,661,0)="""RTN"",""IBJDIPR"",49,0)"
^XMB(3.9,56,2,662,0)="DQ ; - Tasked entry point."
^XMB(3.9,56,2,663,0)="""RTN"",""IBJDIPR"",50,0)"
^XMB(3.9,56,2,664,0)=" ;"
^XMB(3.9,56,2,665,0)="""RTN"",""IBJDIPR"",51,0)"
^XMB(3.9,56,2,666,0)=" N IBQUERY,IBQUERY1,DGNAM"
^XMB(3.9,56,2,667,0)="""RTN"",""IBJDIPR"",52,0)"
^XMB(3.9,56,2,668,0)=" K IB,^TMP(""IBJDIPR"",$J),^TMP(""IBJDIPR1"",$J)"
^XMB(3.9,56,2,669,0)="""RTN"",""IBJDIPR"",53,0)"
^XMB(3.9,56,2,670,0)=" ;"
^XMB(3.9,56,2,671,0)="""RTN"",""IBJDIPR"",54,0)"
^XMB(3.9,56,2,672,0)=" ;Temporary global IBJDIPR contains outpatients found for date range in the outpatient encounter file"""
^XMB(3.9,56,2,673,0)="""RTN"",""IBJDIPR"",55,0)"
^XMB(3.9,56,2,674,0)=" ;Temporary global IBJDIPR1 contains the clinic exclusions found in the MAS parameter file"""
^XMB(3.9,56,2,675,0)="""RTN"",""IBJDIPR"",56,0)"
^XMB(3.9,56,2,676,0)=" ;"
^XMB(3.9,56,2,677,0)="""RTN"",""IBJDIPR"",57,0)"
^XMB(3.9,56,2,678,0)=" S (IBQ,DGPREC,DGPREE)=0"
^XMB(3.9,56,2,679,0)="""RTN"",""IBJDIPR"",58,0)"
^XMB(3.9,56,2,680,0)=" F I=""TOT"",""PRE"",""PAST"",""NEVR"" S IB(I)=0"
^XMB(3.9,56,2,681,0)="""RTN"",""IBJDIPR"",59,0)"
^XMB(3.9,56,2,682,0)=" ;"
^XMB(3.9,56,2,683,0)="""RTN"",""IBJDIPR"",60,0)"
^XMB(3.9,56,2,684,0)=" ;Build exclusion temporary file from MAS parameter file,"
^XMB(3.9,56,2,685,0)="""RTN"",""IBJDIPR"",61,0)"
^XMB(3.9,56,2,686,0)=" ; ^DG(43 - dbia 4242"
^XMB(3.9,56,2,687,0)="""RTN"",""IBJDIPR"",62,0)"
^XMB(3.9,56,2,688,0)=" ;"
^XMB(3.9,56,2,689,0)="""RTN"",""IBJDIPR"",63,0)"
^XMB(3.9,56,2,690,0)=" ;Get clinic exclusions and clinic name from ^SC (Hospital location file)"
^XMB(3.9,56,2,691,0)="""RTN"",""IBJDIPR"",64,0)"
^XMB(3.9,56,2,692,0)=" ;dbia 401"
^XMB(3.9,56,2,693,0)="""RTN"",""IBJDIPR"",65,0)"
^XMB(3.9,56,2,694,0)=" S X="""" F  S X=$O(^DG(43,1,""DGPREC"",""B"",X)) Q:X=""""  D"
^XMB(3.9,56,2,695,0)="""RTN"",""IBJDIPR"",66,0)"
^XMB(3.9,56,2,696,0)=" . S DGNAM=$P($G(^SC(X,0)),U,1) I DGNAM="""" Q"
^XMB(3.9,56,2,697,0)="""RTN"",""IBJDIPR"",67,0)"
^XMB(3.9,56,2,698,0)=" . S ^TMP(""IBJDIPR1"",$J,""DGPREC"",X)="""""
^XMB(3.9,56,2,699,0)="""RTN"",""IBJDIPR"",68,0)"
^XMB(3.9,56,2,700,0)=" . S ^TMP(""IBJDIPR1"",$J,""DGPRECA"",DGNAM_U_X)=X ;index sorted by name"
^XMB(3.9,56,2,701,0)="""RTN"",""IBJDIPR"",69,0)"
^XMB(3.9,56,2,702,0)=" . S DGPREC=DGPREC+1"
^XMB(3.9,56,2,703,0)="""RTN"",""IBJDIPR"",70,0)"
^XMB(3.9,56,2,704,0)=" ;"
^XMB(3.9,56,2,705,0)="""RTN"",""IBJDIPR"",71,0)"
^XMB(3.9,56,2,706,0)=" ;Get eligibility exclusions and eligibility name from ^DIC(8 dbia 427"
^XMB(3.9,56,2,707,0)="""RTN"",""IBJDIPR"",72,0)"
^XMB(3.9,56,2,708,0)=" ;"
^XMB(3.9,56,2,709,0)="""RTN"",""IBJDIPR"",73,0)"
^XMB(3.9,56,2,710,0)=" S X="""" F  S X=$O(^DG(43,1,""DGPREE"",""B"",X)) Q:X=""""  D"
^XMB(3.9,56,2,711,0)="""RTN"",""IBJDIPR"",74,0)"
^XMB(3.9,56,2,712,0)=" . S DGNAM=$P($G(^DIC(8,X,0)),U,1) I DGNAM="""" Q"
^XMB(3.9,56,2,713,0)="""RTN"",""IBJDIPR"",75,0)"
^XMB(3.9,56,2,714,0)=" . S ^TMP(""IBJDIPR1"",$J,""DGPREE"",X)="""""
^XMB(3.9,56,2,715,0)="""RTN"",""IBJDIPR"",76,0)"
^XMB(3.9,56,2,716,0)=" . S ^TMP(""IBJDIPR1"",$J,""DGPREEA"",DGNAM_U_X)=X ;index sorted by name"
^XMB(3.9,56,2,717,0)="""RTN"",""IBJDIPR"",77,0)"
^XMB(3.9,56,2,718,0)=" . S DGPREE=DGPREE+1"
^XMB(3.9,56,2,719,0)="""RTN"",""IBJDIPR"",78,0)"
^XMB(3.9,56,2,720,0)=" ;"
^XMB(3.9,56,2,721,0)="""RTN"",""IBJDIPR"",79,0)"
^XMB(3.9,56,2,722,0)=" ; - Find outpatients treated within the user-specified date range."
^XMB(3.9,56,2,723,0)="""RTN"",""IBJDIPR"",80,0)"
^XMB(3.9,56,2,724,0)=" D OUTPT("""",IBBDT,IBEDT,""S:IBQ SDSTOP=1 I 'IBQ,$$ENCHK^IBJDI5(Y0) D ENC^IBJDIPR(Y0)"",""Percentage of Patients Pre-registered"",.IBQ,""IBJDIPR"",.IBQUERY)"
^XMB(3.9,56,2,725,0)="""RTN"",""IBJDIPR"",81,0)"
^XMB(3.9,56,2,726,0)=" D CLOSE^IBSDU(.IBQUERY),CLOSE^IBSDU(.IBQUERY1) I IBQ G ENQ"
^XMB(3.9,56,2,727,0)="""RTN"",""IBJDIPR"",82,0)"
^XMB(3.9,56,2,728,0)=" ;"
^XMB(3.9,56,2,729,0)="""RTN"",""IBJDIPR"",83,0)"
^XMB(3.9,56,2,730,0)=" ;Find pre-registered patients"
^XMB(3.9,56,2,731,0)="""RTN"",""IBJDIPR"",84,0)"
^XMB(3.9,56,2,732,0)=" ;Use file 41.41 (^DGS), Pre-registration audit file"
^XMB(3.9,56,2,733,0)="""RTN"",""IBJDIPR"",85,0)"
^XMB(3.9,56,2,734,0)=" ;dbia 4425"
^XMB(3.9,56,2,735,0)="""RTN"",""IBJDIPR"",86,0)"
^XMB(3.9,56,2,736,0)=" ;"
^XMB(3.9,56,2,737,0)="""RTN"",""IBJDIPR"",87,0)"
^XMB(3.9,56,2,738,0)=" S DFN="""""
^XMB(3.9,56,2,739,0)="""RTN"",""IBJDIPR"",88,0)"
^XMB(3.9,56,2,740,0)=" F  S DFN=$O(^TMP(""IBJDIPR"",$J,DFN)) Q:DFN=""""  D"
^XMB(3.9,56,2,741,0)="""RTN"",""IBJDIPR"",89,0)"
^XMB(3.9,56,2,742,0)=" . S TRDAT=^TMP(""IBJDIPR"",$J,DFN) ;Get treatment date"
^XMB(3.9,56,2,743,0)="""RTN"",""IBJDIPR"",90,0)"
^XMB(3.9,56,2,744,0)=" . S IB(""TOT"")=IB(""TOT"")+1 ;Total unique patients treated"
^XMB(3.9,56,2,745,0)="""RTN"",""IBJDIPR"",91,0)"
^XMB(3.9,56,2,746,0)=" . S PRDAT=TRDAT+.0000001"
^XMB(3.9,56,2,747,0)="""RTN"",""IBJDIPR"",92,0)"
^XMB(3.9,56,2,748,0)=" . S PRDAT=$O(^DGS(41.41,""ADC"",DFN,PRDAT),-1) ;Most recent pre-reg date"
^XMB(3.9,56,2,749,0)="""RTN"",""IBJDIPR"",93,0)"
^XMB(3.9,56,2,750,0)=" . I PRDAT="""" S IB(""NEVR"")=IB(""NEVR"")+1 Q  ;never pre-registered"
^XMB(3.9,56,2,751,0)="""RTN"",""IBJDIPR"",94,0)"
^XMB(3.9,56,2,752,0)=" . I PRDAT<$$FMADD^XLFDT(TRDAT,-IBPRF) S IB(""PAST"")=IB(""PAST"")+1 Q  ;past time frame"
^XMB(3.9,56,2,753,0)="""RTN"",""IBJDIPR"",95,0)"
^XMB(3.9,56,2,754,0)=" . S IB(""PRE"")=IB(""PRE"")+1 ;pre-registered"
^XMB(3.9,56,2,755,0)="""RTN"",""IBJDIPR"",96,0)"
^XMB(3.9,56,2,756,0)=" ;"
^XMB(3.9,56,2,757,0)="""RTN"",""IBJDIPR"",97,0)"
^XMB(3.9,56,2,758,0)=" ; - Print the reports."
^XMB(3.9,56,2,759,0)="""RTN"",""IBJDIPR"",98,0)"
^XMB(3.9,56,2,760,0)=" ; QUIT if this is a electronic transmission to the ARC -IB patch 305"
^XMB(3.9,56,2,761,0)="""RTN"",""IBJDIPR"",99,0)"
^XMB(3.9,56,2,762,0)=" Q:$G(IBARFLAG)"
^XMB(3.9,56,2,763,0)="""RTN"",""IBJDIPR"",100,0)"
^XMB(3.9,56,2,764,0)=" S (IBQ,IBPAG)=0 D NOW^%DTC S IBRUN=$$DAT2^IBOUTL(%)"
^XMB(3.9,56,2,765,0)="""RTN"",""IBJDIPR"",101,0)"
^XMB(3.9,56,2,766,0)=" I 'IBQ D SUM,PAUSE"
^XMB(3.9,56,2,767,0)="""RTN"",""IBJDIPR"",102,0)"
^XMB(3.9,56,2,768,0)="ENQ K ^TMP(""IBJDIPR"",$J),^TMP(""IBJDIPR1"",$J)"
^XMB(3.9,56,2,769,0)="""RTN"",""IBJDIPR"",103,0)"
^XMB(3.9,56,2,770,0)=" I $D(ZTQUEUED) S ZTREQ=""@"" G ENQ1"
^XMB(3.9,56,2,771,0)="""RTN"",""IBJDIPR"",104,0)"
^XMB(3.9,56,2,772,0)=" ;"
^XMB(3.9,56,2,773,0)="""RTN"",""IBJDIPR"",105,0)"
^XMB(3.9,56,2,774,0)=" D ^%ZISC"
^XMB(3.9,56,2,775,0)="""RTN"",""IBJDIPR"",106,0)"
^XMB(3.9,56,2,776,0)="ENQ1 K IB,IBQ,IBBDT,IBEDT,IBD,IBPAG,IBRUN,IBOED,IBPRF"
^XMB(3.9,56,2,777,0)="""RTN"",""IBJDIPR"",107,0)"
^XMB(3.9,56,2,778,0)=" K DFN,POP,I,X,X1,X2,Y,%,%ZIS,ZTDESC,ZTRTN,ZTSAVE,ZTREQ,ZTQUEUED"
^XMB(3.9,56,2,779,0)="""RTN"",""IBJDIPR"",108,0)"
^XMB(3.9,56,2,780,0)=" K DIR,DIROUT,DTOUT,DUOUT,DIRUT"
^XMB(3.9,56,2,781,0)="""RTN"",""IBJDIPR"",109,0)"
^XMB(3.9,56,2,782,0)=" K DGPREC,DGPREE,PRDAT,TRDAT,IBEXC,DGEE,DGEC,PCENT,TAB,DGNAM"
^XMB(3.9,56,2,783,0)="""RTN"",""IBJDIPR"",110,0)"
^XMB(3.9,56,2,784,0)=" Q"
^XMB(3.9,56,2,785,0)="""RTN"",""IBJDIPR"",111,0)"
^XMB(3.9,56,2,786,0)=" ;"
^XMB(3.9,56,2,787,0)="""RTN"",""IBJDIPR"",112,0)"
^XMB(3.9,56,2,788,0)="OUTPT(DFN,IBBDT,IBEDT,IBCBK,IBMSG,IBQ,IBSUBSCR,IBQUERY,IBDIR) ;"
^XMB(3.9,56,2,789,0)="""RTN"",""IBJDIPR"",113,0)"
^XMB(3.9,56,2,790,0)=" ; Input:   DFN = IEN of patient if using PATIENT/DATE index, otherwise,"
^XMB(3.9,56,2,791,0)="""RTN"",""IBJDIPR"",114,0)"
^XMB(3.9,56,2,792,0)=" ;                if null or 0, DATE/TIME index will be used"
^XMB(3.9,56,2,793,0)="""RTN"",""IBJDIPR"",115,0)"
^XMB(3.9,56,2,794,0)=" ;        IBCBK = The MUMPS code to execute when valid enctr found"
^XMB(3.9,56,2,795,0)="""RTN"",""IBJDIPR"",116,0)"
^XMB(3.9,56,2,796,0)=" ;        IBBDT/IBEDT = The start/end dates"
^XMB(3.9,56,2,797,0)="""RTN"",""IBJDIPR"",117,0)"
^XMB(3.9,56,2,798,0)=" ;        IBMSG = The text to send to STOP PROCESSING CALL (if null, no"
^XMB(3.9,56,2,799,0)="""RTN"",""IBJDIPR"",118,0)"
^XMB(3.9,56,2,800,0)=" ;                call made)"
^XMB(3.9,56,2,801,0)="""RTN"",""IBJDIPR"",119,0)"
^XMB(3.9,56,2,802,0)=" ;          IBQ = Flag that says whether or not the process was stopped"
^XMB(3.9,56,2,803,0)="""RTN"",""IBJDIPR"",120,0)"
^XMB(3.9,56,2,804,0)=" ;                by user"
^XMB(3.9,56,2,805,0)="""RTN"",""IBJDIPR"",121,0)"
^XMB(3.9,56,2,806,0)=" ;      IBQUERY = The # of the QUERY OBJECT to be used to extract outpt"
^XMB(3.9,56,2,807,0)="""RTN"",""IBJDIPR"",122,0)"
^XMB(3.9,56,2,808,0)=" ;                visits"
^XMB(3.9,56,2,809,0)="""RTN"",""IBJDIPR"",123,0)"
^XMB(3.9,56,2,810,0)=" ;        IBDIR = Null to look forward, 'B' to look backward thru file"
^XMB(3.9,56,2,811,0)="""RTN"",""IBJDIPR"",124,0)"
^XMB(3.9,56,2,812,0)=" ;"
^XMB(3.9,56,2,813,0)="""RTN"",""IBJDIPR"",125,0)"
^XMB(3.9,56,2,814,0)=" N IBVAL,IBFILTER"
^XMB(3.9,56,2,815,0)="""RTN"",""IBJDIPR"",126,0)"
^XMB(3.9,56,2,816,0)=" S IBVAL(""BDT"")=IBBDT,IBVAL(""EDT"")=IBEDT_"".99"" S:$G(DFN) IBVAL(""DFN"")=DFN"
^XMB(3.9,56,2,817,0)="""RTN"",""IBJDIPR"",127,0)"
^XMB(3.9,56,2,818,0)=" ;"
^XMB(3.9,56,2,819,0)="""RTN"",""IBJDIPR"",128,0)"
^XMB(3.9,56,2,820,0)=" ; - Look at parent encounters, completely checked out, check user"
^XMB(3.9,56,2,821,0)="""RTN"",""IBJDIPR"",129,0)"
^XMB(3.9,56,2,822,0)=" ;   requested to quit, process each pt only once if IBSUBSCR'=null"
^XMB(3.9,56,2,823,0)="""RTN"",""IBJDIPR"",130,0)"
^XMB(3.9,56,2,824,0)=" S IBFILTER="""""
^XMB(3.9,56,2,825,0)="""RTN"",""IBJDIPR"",131,0)"
^XMB(3.9,56,2,826,0)=" S IBCBK=""I '$P(Y0,U,6),$P(Y0,U,7),$S((Y#100)'=0:1,$G(IBMSG)="""""""":1,1:'$$STOP^IBJDI21(.IBQ,IBMSG))""_"" ""_IBCBK"
^XMB(3.9,56,2,827,0)="""RTN"",""IBJDIPR"",132,0)"
^XMB(3.9,56,2,828,0)=" S IBDIR=$S($G(IBDIR)="""":"""",1:""BACKWARD"")"
^XMB(3.9,56,2,829,0)="""RTN"",""IBJDIPR"",133,0)"
^XMB(3.9,56,2,830,0)=" ;"
^XMB(3.9,56,2,831,0)="""RTN"",""IBJDIPR"",134,0)"
^XMB(3.9,56,2,832,0)=" ;ibsdu will use ^SD(409.1), Standard encounter query, to process"
^XMB(3.9,56,2,833,0)="""RTN"",""IBJDIPR"",135,0)"
^XMB(3.9,56,2,834,0)=" ;file 409.68 (^SCE) - dbia402 for outpatient encounter data."
^XMB(3.9,56,2,835,0)="""RTN"",""IBJDIPR"",136,0)"
^XMB(3.9,56,2,836,0)=" ;"
^XMB(3.9,56,2,837,0)="""RTN"",""IBJDIPR"",137,0)"
^XMB(3.9,56,2,838,0)=" D SCAN^IBSDU($S($G(DFN):""PATIENT/DATE"",1:""DATE/TIME""),.IBVAL,IBFILTER,IBCBK,0,.IBQUERY,IBDIR) K ^TMP(""DIERR"",$J)"
^XMB(3.9,56,2,839,0)="""RTN"",""IBJDIPR"",138,0)"
^XMB(3.9,56,2,840,0)=" Q"
^XMB(3.9,56,2,841,0)="""RTN"",""IBJDIPR"",139,0)"
^XMB(3.9,56,2,842,0)=" ;"
^XMB(3.9,56,2,843,0)="""RTN"",""IBJDIPR"",140,0)"
^XMB(3.9,56,2,844,0)="ENC(IBOED) ; - Encounter extract."
^XMB(3.9,56,2,845,0)="""RTN"",""IBJDIPR"",141,0)"
^XMB(3.9,56,2,846,0)=" ; Input:    IBOED = Data from outpatient encounter file, ^SCE."
^XMB(3.9,56,2,847,0)="""RTN"",""IBJDIPR"",142,0)"
^XMB(3.9,56,2,848,0)=" ;"
^XMB(3.9,56,2,849,0)="""RTN"",""IBJDIPR"",143,0)"
^XMB(3.9,56,2,850,0)=" S DFN=+$P(IBOED,U,2) I 'DFN Q"
^XMB(3.9,56,2,851,0)="""RTN"",""IBJDIPR"",144,0)"
^XMB(3.9,56,2,852,0)=" ;Check exclusions"
^XMB(3.9,56,2,853,0)="""RTN"",""IBJDIPR"",145,0)"
^XMB(3.9,56,2,854,0)=" I $P(IBOED,U,4)]"""",$D(^TMP(""IBJDIPR1"",$J,""DGPREC"",$P(IBOED,U,4))) Q  ;Clinic exclusion"
^XMB(3.9,56,2,855,0)="""RTN"",""IBJDIPR"",146,0)"
^XMB(3.9,56,2,856,0)=" I $P(IBOED,U,13)]"""",$D(^TMP(""IBJDIPR1"",$J,""DGPREE"",$P(IBOED,U,13))) Q  ;Eligibility exclusion"
^XMB(3.9,56,2,857,0)="""RTN"",""IBJDIPR"",147,0)"
^XMB(3.9,56,2,858,0)=" D PROC(DFN,IBOED) ; Process patient."
^XMB(3.9,56,2,859,0)="""RTN"",""IBJDIPR"",148,0)"
^XMB(3.9,56,2,860,0)=" Q"
^XMB(3.9,56,2,861,0)="""RTN"",""IBJDIPR"",149,0)"
^XMB(3.9,56,2,862,0)=" ;"
^XMB(3.9,56,2,863,0)="""RTN"",""IBJDIPR"",150,0)"
^XMB(3.9,56,2,864,0)="PROC(DFN,IBOED) ; - Process each specific patient."
^XMB(3.9,56,2,865,0)="""RTN"",""IBJDIPR"",151,0)"
^XMB(3.9,56,2,866,0)=" ; Input:     DFN = Pointer to the patient in file #2"
^XMB(3.9,56,2,867,0)="""RTN"",""IBJDIPR"",152,0)"
^XMB(3.9,56,2,868,0)=" ;          IBOED = Data from outpatient encounter file, ^SCE."
^XMB(3.9,56,2,869,0)="""RTN"",""IBJDIPR"",153,0)"
^XMB(3.9,56,2,870,0)=" ;"
^XMB(3.9,56,2,871,0)="""RTN"",""IBJDIPR"",154,0)"
^XMB(3.9,56,2,872,0)=" ; Pre-set variables IB array, IBBDT, IBEDT are required."
^XMB(3.9,56,2,873,0)="""RTN"",""IBJDIPR"",155,0)"
^XMB(3.9,56,2,874,0)=" ;"
^XMB(3.9,56,2,875,0)="""RTN"",""IBJDIPR"",156,0)"
^XMB(3.9,56,2,876,0)=" I $$TESTP^IBJDI1(DFN) Q  ;     Test patient."
^XMB(3.9,56,2,877,0)="""RTN"",""IBJDIPR"",157,0)"
^XMB(3.9,56,2,878,0)=" D ELIG^VADPT G:'VAEL(4) PRCQ ; Patient is not a vet."
^XMB(3.9,56,2,879,0)="""RTN"",""IBJDIPR"",158,0)"
^XMB(3.9,56,2,880,0)=" ;"
^XMB(3.9,56,2,881,0)="""RTN"",""IBJDIPR"",159,0)"
^XMB(3.9,56,2,882,0)=" ; - Set patient index"
^XMB(3.9,56,2,883,0)="""RTN"",""IBJDIPR"",160,0)"
^XMB(3.9,56,2,884,0)=" S ^TMP(""IBJDIPR"",$J,DFN)=$P(IBOED,U,1)"
^XMB(3.9,56,2,885,0)="""RTN"",""IBJDIPR"",161,0)"
^XMB(3.9,56,2,886,0)=" ;"
^XMB(3.9,56,2,887,0)="""RTN"",""IBJDIPR"",162,0)"
^XMB(3.9,56,2,888,0)="PRCQ K VA,VAERR,VAEL"
^XMB(3.9,56,2,889,0)="""RTN"",""IBJDIPR"",163,0)"
^XMB(3.9,56,2,890,0)=" Q"
^XMB(3.9,56,2,891,0)="""RTN"",""IBJDIPR"",164,0)"
^XMB(3.9,56,2,892,0)=" ;"
^XMB(3.9,56,2,893,0)="""RTN"",""IBJDIPR"",165,0)"
^XMB(3.9,56,2,894,0)="SUM ; - Print the summary report."
^XMB(3.9,56,2,895,0)="""RTN"",""IBJDIPR"",166,0)"
^XMB(3.9,56,2,896,0)=" D HEAD Q:IBQ"
^XMB(3.9,56,2,897,0)="""RTN"",""IBJDIPR"",167,0)"
^XMB(3.9,56,2,898,0)=" W !!?15,""Patients pre-registered from "",$$DAT1^IBOUTL(IBBDT),"" - "",$$DAT1^IBOUTL(IBEDT)"
^XMB(3.9,56,2,899,0)="""RTN"",""IBJDIPR"",168,0)"
^XMB(3.9,56,2,900,0)=" W !!?17,""Pre-registration time frame: "",$J(IBPRF,5),"" days"""
^XMB(3.9,56,2,901,0)="""RTN"",""IBJDIPR"",169,0)"
^XMB(3.9,56,2,902,0)=" W !!?24,""Run Date: "",IBRUN,!?10,$$DASH(55),!!"
^XMB(3.9,56,2,903,0)="""RTN"",""IBJDIPR"",170,0)"
^XMB(3.9,56,2,904,0)=" ;"
^XMB(3.9,56,2,905,0)="""RTN"",""IBJDIPR"",171,0)"
^XMB(3.9,56,2,906,0)=" W ?35,""*Number of Unique Patients Treated: "",$J(IB(""TOT""),5)"
^XMB(3.9,56,2,907,0)="""RTN"",""IBJDIPR"",172,0)"
^XMB(3.9,56,2,908,0)=" W !?1,""Unique Outpatients Pre-registered within pre-registration time frame: "",$J(IB(""PRE""),5)"
^XMB(3.9,56,2,909,0)="""RTN"",""IBJDIPR"",173,0)"
^XMB(3.9,56,2,910,0)=" S PCENT=0 I IB(""TOT"") S PCENT=(IB(""PRE"")/IB(""TOT""))*100"
^XMB(3.9,56,2,911,0)="""RTN"",""IBJDIPR"",174,0)"
^XMB(3.9,56,2,912,0)=" W !?47,""Percent Pre-registered: "",$J(PCENT,5,2),""%"""
^XMB(3.9,56,2,913,0)="""RTN"",""IBJDIPR"",175,0)"
^XMB(3.9,56,2,914,0)=" W !!?3,""Unique Outpatients Pre-registered past pre-registration time frame: "",$J(IB(""PAST""),5)"
^XMB(3.9,56,2,915,0)="""RTN"",""IBJDIPR"",176,0)"
^XMB(3.9,56,2,916,0)=" W !?30,""Unique Outpatients never Pre-registered: "",$J(IB(""NEVR""),5)"
^XMB(3.9,56,2,917,0)="""RTN"",""IBJDIPR"",177,0)"
^XMB(3.9,56,2,918,0)=" W !!?8,""*Counts may not include all patients because of exclusions."""
^XMB(3.9,56,2,919,0)="""RTN"",""IBJDIPR"",178,0)"
^XMB(3.9,56,2,920,0)=" W !!?37,""Number of Eligibility Exclusions: "",$J(DGPREE,5)"
^XMB(3.9,56,2,921,0)="""RTN"",""IBJDIPR"",179,0)"
^XMB(3.9,56,2,922,0)=" W !!?42,""Number of Clinic Exclusions: "",$J(DGPREC,5)"
^XMB(3.9,56,2,923,0)="""RTN"",""IBJDIPR"",180,0)"
^XMB(3.9,56,2,924,0)=" I 'IBEXC Q"
^XMB(3.9,56,2,925,0)="""RTN"",""IBJDIPR"",181,0)"
^XMB(3.9,56,2,926,0)=" I DGPREE D"
^XMB(3.9,56,2,927,0)="""RTN"",""IBJDIPR"",182,0)"
^XMB(3.9,56,2,928,0)=" .S DGEE=1"
^XMB(3.9,56,2,929,0)="""RTN"",""IBJDIPR"",183,0)"
^XMB(3.9,56,2,930,0)=" .D PAUSE Q:IBQ  D HEAD Q:IBQ"
^XMB(3.9,56,2,931,0)="""RTN"",""IBJDIPR"",184,0)"
^XMB(3.9,56,2,932,0)=" .S X="""" F I=1:1 S X=$O(^TMP(""IBJDIPR1"",$J,""DGPREEA"",X)) Q:X=""""  D  Q:IBQ"
^XMB(3.9,56,2,933,0)="""RTN"",""IBJDIPR"",185,0)"
^XMB(3.9,56,2,934,0)=" ..I $Y>(IOSL-4) D PAUSE Q:IBQ  D HEAD Q:IBQ"
^XMB(3.9,56,2,935,0)="""RTN"",""IBJDIPR"",186,0)"
^XMB(3.9,56,2,936,0)=" ..S TAB=$S((I#2):10,1:45)"
^XMB(3.9,56,2,937,0)="""RTN"",""IBJDIPR"",187,0)"
^XMB(3.9,56,2,938,0)=" ..W ?TAB,$E($P(X,U,1),1,30) W:'(I#2) !"
^XMB(3.9,56,2,939,0)="""RTN"",""IBJDIPR"",188,0)"
^XMB(3.9,56,2,940,0)=" I DGPREC D"
^XMB(3.9,56,2,941,0)="""RTN"",""IBJDIPR"",189,0)"
^XMB(3.9,56,2,942,0)=" .S DGEC=1,DGEE=0"
^XMB(3.9,56,2,943,0)="""RTN"",""IBJDIPR"",190,0)"
^XMB(3.9,56,2,944,0)=" .S X="""" F I=1:1 S X=$O(^TMP(""IBJDIPR1"",$J,""DGPRECA"",X)) Q:X=""""  D  Q:IBQ"
^XMB(3.9,56,2,945,0)="""RTN"",""IBJDIPR"",191,0)"
^XMB(3.9,56,2,946,0)=" ..I I=1 D  Q:IBQ"
^XMB(3.9,56,2,947,0)="""RTN"",""IBJDIPR"",192,0)"
^XMB(3.9,56,2,948,0)=" ...I ($Y+4)>(IOSL-4) D PAUSE Q:IBQ  D HEAD Q"
^XMB(3.9,56,2,949,0)="""RTN"",""IBJDIPR"",193,0)"
^XMB(3.9,56,2,950,0)=" ...W !!?10,""Clinic Exclusions"",!?9,$$DASH(19),!"
^XMB(3.9,56,2,951,0)="""RTN"",""IBJDIPR"",194,0)"
^XMB(3.9,56,2,952,0)=" ..I $Y>(IOSL-4) D PAUSE Q:IBQ  D HEAD Q:IBQ"
^XMB(3.9,56,2,953,0)="""RTN"",""IBJDIPR"",195,0)"
^XMB(3.9,56,2,954,0)=" ..S TAB=$S((I#2):10,1:45)"
^XMB(3.9,56,2,955,0)="""RTN"",""IBJDIPR"",196,0)"
^XMB(3.9,56,2,956,0)=" ..W ?TAB,$E($P(X,U,1),1,30) W:'(I#2) !"
^XMB(3.9,56,2,957,0)="""RTN"",""IBJDIPR"",197,0)"
^XMB(3.9,56,2,958,0)=" Q"
^XMB(3.9,56,2,959,0)="""RTN"",""IBJDIPR"",198,0)"
^XMB(3.9,56,2,960,0)=" ;"
^XMB(3.9,56,2,961,0)="""RTN"",""IBJDIPR"",199,0)"
^XMB(3.9,56,2,962,0)="HEAD ; - Report Header"
^XMB(3.9,56,2,963,0)="""RTN"",""IBJDIPR"",200,0)"
^XMB(3.9,56,2,964,0)=" ;"
^XMB(3.9,56,2,965,0)="""RTN"",""IBJDIPR"",201,0)"
^XMB(3.9,56,2,966,0)=" I $E(IOST,1,2)=""C-""!(IBPAG) W @IOF,*13"
^XMB(3.9,56,2,967,0)="""RTN"",""IBJDIPR"",202,0)"
^XMB(3.9,56,2,968,0)=" S IBPAG=IBPAG+1"
^XMB(3.9,56,2,969,0)="""RTN"",""IBJDIPR"",203,0)"
^XMB(3.9,56,2,970,0)=" W !?21,""PERCENTAGE OF PATIENTS PRE-REGISTERED"",?71,""Page: "",IBPAG"
^XMB(3.9,56,2,971,0)="""RTN"",""IBJDIPR"",204,0)"
^XMB(3.9,56,2,972,0)=" I IBPAG=1 W !!?33,""SUMMARY REPORT"" Q"
^XMB(3.9,56,2,973,0)="""RTN"",""IBJDIPR"",205,0)"
^XMB(3.9,56,2,974,0)=" W !!?24,""Run Date: "",IBRUN,!?10,$$DASH(55),!!"
^XMB(3.9,56,2,975,0)="""RTN"",""IBJDIPR"",206,0)"
^XMB(3.9,56,2,976,0)=" W !?10,""Listing of all Exclusions: "",!"
^XMB(3.9,56,2,977,0)="""RTN"",""IBJDIPR"",207,0)"
^XMB(3.9,56,2,978,0)=" I $G(DGEE) W !!?10,""Eligibility Exclusions"",!?9,$$DASH(24),!"
^XMB(3.9,56,2,979,0)="""RTN"",""IBJDIPR"",208,0)"
^XMB(3.9,56,2,980,0)=" I $G(DGEC) W !!?10,""Clinic Exclusions"",!?9,$$DASH(19),!"
^XMB(3.9,56,2,981,0)="""RTN"",""IBJDIPR"",209,0)"
^XMB(3.9,56,2,982,0)=" S IBQ=$$STOP^IBOUTL(""Percentage of Patients Pre-registered"")"
^XMB(3.9,56,2,983,0)="""RTN"",""IBJDIPR"",210,0)"
^XMB(3.9,56,2,984,0)=" Q"
^XMB(3.9,56,2,985,0)="""RTN"",""IBJDIPR"",211,0)"
^XMB(3.9,56,2,986,0)=" ;"
^XMB(3.9,56,2,987,0)="""RTN"",""IBJDIPR"",212,0)"
^XMB(3.9,56,2,988,0)="DASH(X) ; - Return a dashed line."
^XMB(3.9,56,2,989,0)="""RTN"",""IBJDIPR"",213,0)"
^XMB(3.9,56,2,990,0)=" Q $TR($J("""",X),"" "",""="")"
^XMB(3.9,56,2,991,0)="""RTN"",""IBJDIPR"",214,0)"
^XMB(3.9,56,2,992,0)=" ;"
^XMB(3.9,56,2,993,0)="""RTN"",""IBJDIPR"",215,0)"
^XMB(3.9,56,2,994,0)="PAUSE ; - Page break."
^XMB(3.9,56,2,995,0)="""RTN"",""IBJDIPR"",216,0)"
^XMB(3.9,56,2,996,0)=" I $E(IOST,1,2)'=""C-"" Q"
^XMB(3.9,56,2,997,0)="""RTN"",""IBJDIPR"",217,0)"
^XMB(3.9,56,2,998,0)=" N DIR,DIRUT,DUOUT,DTOUT,DIROUT,X,Y"
^XMB(3.9,56,2,999,0)="""RTN"",""IBJDIPR"",218,0)"
^XMB(3.9,56,2,1000,0)=" S DIR(0)=""E"" D ^DIR I $D(DIRUT)!($D(DUOUT)) S IBQ=1"
^XMB(3.9,56,2,1001,0)="""RTN"",""IBJDIPR"",219,0)"
^XMB(3.9,56,2,1002,0)=" Q"
^XMB(3.9,56,2,1003,0)="""RTN"",""IBJDIPR"",220,0)"
^XMB(3.9,56,2,1004,0)=" ;"
^XMB(3.9,56,2,1005,0)="""RTN"",""IBJDIPR"",221,0)"
^XMB(3.9,56,2,1006,0)="THLP ; - 'Pre-Registration time frame (days)' prompt"
^XMB(3.9,56,2,1007,0)="""RTN"",""IBJDIPR"",222,0)"
^XMB(3.9,56,2,1008,0)=" ;"
^XMB(3.9,56,2,1009,0)="""RTN"",""IBJDIPR"",223,0)"
^XMB(3.9,56,2,1010,0)=" W !!,""Number of days to search for pre-registered patients."""
^XMB(3.9,56,2,1011,0)="""RTN"",""IBJDIPR"",224,0)"
^XMB(3.9,56,2,1012,0)=" W !,""Number of days must be greater that zero."""
^XMB(3.9,56,2,1013,0)="""RTN"",""IBJDIPR"",225,0)"
^XMB(3.9,56,2,1014,0)=" W !,""Select '<CR>' to accept the default 180 days."""
^XMB(3.9,56,2,1015,0)="""RTN"",""IBJDIPR"",226,0)"
^XMB(3.9,56,2,1016,0)=" W !?11,""'^' to quit."""
^XMB(3.9,56,2,1017,0)="""RTN"",""IBJDIPR"",227,0)"
^XMB(3.9,56,2,1018,0)=" Q"
^XMB(3.9,56,2,1019,0)="""RTN"",""IBJDIPR"",228,0)"
^XMB(3.9,56,2,1020,0)=" ;"
^XMB(3.9,56,2,1021,0)="""RTN"",""IBJDIPR"",229,0)"
^XMB(3.9,56,2,1022,0)="EHLP ; - 'Detailed list of Exclusions' prompt"
^XMB(3.9,56,2,1023,0)="""RTN"",""IBJDIPR"",230,0)"
^XMB(3.9,56,2,1024,0)=" ;"
^XMB(3.9,56,2,1025,0)="""RTN"",""IBJDIPR"",231,0)"
^XMB(3.9,56,2,1026,0)=" W !!,""Select '<CR>' to print only the number of eligibility and clinic exclusions."""
^XMB(3.9,56,2,1027,0)="""RTN"",""IBJDIPR"",232,0)"
^XMB(3.9,56,2,1028,0)=" W !!?11,""'Y' to print list of all eligibility and clinic exclusions."""
^XMB(3.9,56,2,1029,0)="""RTN"",""IBJDIPR"",233,0)"
^XMB(3.9,56,2,1030,0)=" W !?11,""'^' to quit."""
^XMB(3.9,56,2,1031,0)="""RTN"",""IBJDIPR"",234,0)"
^XMB(3.9,56,2,1032,0)=" Q"
^XMB(3.9,56,2,1033,0)="""RTN"",""IBJDIPR"",235,0)"
^XMB(3.9,56,2,1034,0)="IBAR(IBBDT,IBEDT) ;Entry point for Vista IB AR data to ARC"
^XMB(3.9,56,2,1035,0)="""RTN"",""IBJDIPR"",236,0)"
^XMB(3.9,56,2,1036,0)=" ;patch 305 - called by IBRFN4"
^XMB(3.9,56,2,1037,0)="""RTN"",""IBJDIPR"",237,0)"
^XMB(3.9,56,2,1038,0)=" N IBPRF,IBEXC,IBARFLAG,IB,IBPERC,IBARDATA"
^XMB(3.9,56,2,1039,0)="""RTN"",""IBJDIPR"",238,0)"
^XMB(3.9,56,2,1040,0)=" S IBPRF=180,IBEXC=0,IBARFLAG=1"
^XMB(3.9,56,2,1041,0)="""RTN"",""IBJDIPR"",239,0)"
^XMB(3.9,56,2,1042,0)=" D DQ"
^XMB(3.9,56,2,1043,0)="""RTN"",""IBJDIPR"",240,0)"
^XMB(3.9,56,2,1044,0)=" I 'IB(""TOT"") S IBPERC=0 G IBARD"
^XMB(3.9,56,2,1045,0)="""RTN"",""IBJDIPR"",241,0)"
^XMB(3.9,56,2,1046,0)=" S IBPERC=IB(""PRE"")/IB(""TOT"")*100,IBPERC=$FN(IBPERC,"""",2)"
^XMB(3.9,56,2,1047,0)="""RTN"",""IBJDIPR"",242,0)"
^XMB(3.9,56,2,1048,0)="IBARD S IBARDATA=IB(""TOT"")_U_IB(""PRE"")_U_IBPERC_U_IB(""PAST"")_U_IB(""NEVR"")"
^XMB(3.9,56,2,1049,0)="""RTN"",""IBJDIPR"",243,0)"
^XMB(3.9,56,2,1050,0)=" Q IBARDATA"
^XMB(3.9,56,2,1051,0)="""RTN"",""IBRFN4"")"
^XMB(3.9,56,2,1052,0)="0^2^B25672480^B21437252"
^XMB(3.9,56,2,1053,0)="""RTN"",""IBRFN4"",1,0)"
^XMB(3.9,56,2,1054,0)="IBRFN4 ;ALB/TMK - Supported functions for AR/IB DATA EXTRACT ;15-FEB-2005"
^XMB(3.9,56,2,1055,0)="""RTN"",""IBRFN4"",2,0)"
^XMB(3.9,56,2,1056,0)=" ;;2.0;INTEGRATED BILLING;**301,305**;21-MAR-94"
^XMB(3.9,56,2,1057,0)="""RTN"",""IBRFN4"",3,0)"
^XMB(3.9,56,2,1058,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,56,2,1059,0)="""RTN"",""IBRFN4"",4,0)"
^XMB(3.9,56,2,1060,0)=" ;"
^XMB(3.9,56,2,1061,0)="""RTN"",""IBRFN4"",5,0)"
^XMB(3.9,56,2,1062,0)="IBAREXT(IBIFN,IBD) ; Returns data for claim IBIFN for IB/AR Extract"
^XMB(3.9,56,2,1063,0)="""RTN"",""IBRFN4"",6,0)"
^XMB(3.9,56,2,1064,0)=" ; Data returned (pieces):"
^XMB(3.9,56,2,1065,0)="""RTN"",""IBRFN4"",7,0)"
^XMB(3.9,56,2,1066,0)=" ; 1-MEDICARE Status (0=not MRA secondary, 1=MRA secondary)"
^XMB(3.9,56,2,1067,0)="""RTN"",""IBRFN4"",8,0)"
^XMB(3.9,56,2,1068,0)=" ; 2-Last MRA requested date ""S"";7 (7 - INTERNAL)"
^XMB(3.9,56,2,1069,0)="""RTN"",""IBRFN4"",9,0)"
^XMB(3.9,56,2,1070,0)=" ; 3-Last Electronic extract date  ""TX"";2 (21 - INTERNAL)"
^XMB(3.9,56,2,1071,0)="""RTN"",""IBRFN4"",10,0)"
^XMB(3.9,56,2,1072,0)=" ; 4-Printed via EDI  ""TX"";7  (26 - EXTERNAL)"
^XMB(3.9,56,2,1073,0)="""RTN"",""IBRFN4"",11,0)"
^XMB(3.9,56,2,1074,0)=" ; 5-Force Claim to Print  ""TX"";8  (27 - EXTERNAL)"
^XMB(3.9,56,2,1075,0)="""RTN"",""IBRFN4"",12,0)"
^XMB(3.9,56,2,1076,0)=" ; 6-Claim MRA Status  ""TX"";5  (24 - EXTERNAL)"
^XMB(3.9,56,2,1077,0)="""RTN"",""IBRFN4"",13,0)"
^XMB(3.9,56,2,1078,0)=" ; 7-MRA recorded date  ""TX"";3  (22 - INTERNAL)"
^XMB(3.9,56,2,1079,0)="""RTN"",""IBRFN4"",14,0)"
^XMB(3.9,56,2,1080,0)=" ; 8-Bill cancelled date  ""S"";17  (17 - INTERNAL)"
^XMB(3.9,56,2,1081,0)="""RTN"",""IBRFN4"",15,0)"
^XMB(3.9,56,2,1082,0)=" ; 9-form type  0;19   (.19 - EXTERNAL)"
^XMB(3.9,56,2,1083,0)="""RTN"",""IBRFN4"",16,0)"
^XMB(3.9,56,2,1084,0)=" ; 10-Current Payer  $$CURR^IBCEF2(IBIFN) returns IEN;NAME (file 36)"
^XMB(3.9,56,2,1085,0)="""RTN"",""IBRFN4"",17,0)"
^XMB(3.9,56,2,1086,0)=" ; 11-DRG 0;8==> file 45 (9 - EXTERNAL)"
^XMB(3.9,56,2,1087,0)="""RTN"",""IBRFN4"",18,0)"
^XMB(3.9,56,2,1088,0)=" ; 12-ECME #  ""M1"";8 (460 - EXTERNAL)"
^XMB(3.9,56,2,1089,0)="""RTN"",""IBRFN4"",19,0)"
^XMB(3.9,56,2,1090,0)=" ; 13-NON-VA Facility"
^XMB(3.9,56,2,1091,0)="""RTN"",""IBRFN4"",20,0)"
^XMB(3.9,56,2,1092,0)=" ; 14-#Days Site Not Responsible for MRA ($$DAYS(IBIFN))"
^XMB(3.9,56,2,1093,0)="""RTN"",""IBRFN4"",21,0)"
^XMB(3.9,56,2,1094,0)=" ; 15-National VA id number for Ins Verification (365.12;.02 - INTERNAL)"
^XMB(3.9,56,2,1095,0)="""RTN"",""IBRFN4"",22,0)"
^XMB(3.9,56,2,1096,0)=" ; 16-Payer name (file 365.12;.01)"
^XMB(3.9,56,2,1097,0)="""RTN"",""IBRFN4"",23,0)"
^XMB(3.9,56,2,1098,0)=" ; 17-Offset Amount (202-INTERNAL)"
^XMB(3.9,56,2,1099,0)="""RTN"",""IBRFN4"",24,0)"
^XMB(3.9,56,2,1100,0)=" ;"
^XMB(3.9,56,2,1101,0)="""RTN"",""IBRFN4"",25,0)"
^XMB(3.9,56,2,1102,0)=" ; IBD(""PRD"",seq #)=prosthetic item name^date^bill ien"
^XMB(3.9,56,2,1103,0)="""RTN"",""IBRFN4"",26,0)"
^XMB(3.9,56,2,1104,0)=" ; IBD(""IN"")= TYPE OF PLAN NAME ^ GROUP NUMBER ^ RELATIONSHIP TO INSURED"
^XMB(3.9,56,2,1105,0)="""RTN"",""IBRFN4"",27,0)"
^XMB(3.9,56,2,1106,0)=" ;   ^ SOURCE OF INFO ^ EDI ID NUMBER - INST ^ EDI ID NUMBER - PROF"
^XMB(3.9,56,2,1107,0)="""RTN"",""IBRFN4"",28,0)"
^XMB(3.9,56,2,1108,0)=" ;   ^ INSURANCE REIMBURSE"
^XMB(3.9,56,2,1109,0)="""RTN"",""IBRFN4"",29,0)"
^XMB(3.9,56,2,1110,0)=" ; IBD(""IN"",""MMA"")= MAILING STREET ADDRESS [LINE 1] ^"
^XMB(3.9,56,2,1111,0)="""RTN"",""IBRFN4"",30,0)"
^XMB(3.9,56,2,1112,0)=" ;   ^ MAILING STREET ADDRESS [LINE 2] ^ CITY ^ STATE NAME  ^  ZIP"
^XMB(3.9,56,2,1113,0)="""RTN"",""IBRFN4"",31,0)"
^XMB(3.9,56,2,1114,0)=" ;"
^XMB(3.9,56,2,1115,0)="""RTN"",""IBRFN4"",32,0)"
^XMB(3.9,56,2,1116,0)=" N IB,IBI,IBJ,IBK,IBX,IBNODE,IBTMP,IBIN,Z"
^XMB(3.9,56,2,1117,0)="""RTN"",""IBRFN4"",33,0)"
^XMB(3.9,56,2,1118,0)=" F IBNODE=0,""S"",""TX"",""M"",""U1"" S IB(IBNODE)=$G(^DGCR(399,IBIFN,IBNODE))"
^XMB(3.9,56,2,1119,0)="""RTN"",""IBRFN4"",34,0)"
^XMB(3.9,56,2,1120,0)=" S IBD=$S($$MRASEC^IBCEF4(IBIFN):1,1:0)"
^XMB(3.9,56,2,1121,0)="""RTN"",""IBRFN4"",35,0)"
^XMB(3.9,56,2,1122,0)=" S $P(IBD,U,2)=$P(IB(""S""),U,7),$P(IBD,U,3)=$P(IB(""TX""),U,2)"
^XMB(3.9,56,2,1123,0)="""RTN"",""IBRFN4"",36,0)"
^XMB(3.9,56,2,1124,0)=" S $P(IBD,U,4)=$$GET1^DIQ(399,IBIFN_"","",26,""E""),$P(IBD,U,5)=$$GET1^DIQ(399,IBIFN_"","",27,""E"")"
^XMB(3.9,56,2,1125,0)="""RTN"",""IBRFN4"",37,0)"
^XMB(3.9,56,2,1126,0)=" S $P(IBD,U,6)=$$GET1^DIQ(399,IBIFN_"","",24,""E""),$P(IBD,U,7)=$P(IB(""TX""),U,3)"
^XMB(3.9,56,2,1127,0)="""RTN"",""IBRFN4"",38,0)"
^XMB(3.9,56,2,1128,0)=" S $P(IBD,U,8)=$P(IB(""S""),U,17),$P(IBD,U,9)=$$GET1^DIQ(399,IBIFN_"","",.19,""E"")"
^XMB(3.9,56,2,1129,0)="""RTN"",""IBRFN4"",39,0)"
^XMB(3.9,56,2,1130,0)=" S Z=$$CURR^IBCEF2(IBIFN),$P(IBD,U,10)=Z_$S(Z:"";""_$P($G(^DIC(36,Z,0)),U),1:"""")"
^XMB(3.9,56,2,1131,0)="""RTN"",""IBRFN4"",40,0)"
^XMB(3.9,56,2,1132,0)=" S Z=$P($G(^DIC(36,+Z,3)),U,10),$P(IBD,U,15)=$P($G(^IBE(365.12,+Z,0)),U,2),$P(IBD,U,16)=$P($G(^(0)),U)"
^XMB(3.9,56,2,1133,0)="""RTN"",""IBRFN4"",41,0)"
^XMB(3.9,56,2,1134,0)=" S Z=$P(IB(0),U,8),$P(IBD,U,11)=$S(Z:$$GET1^DIQ(45,Z_"","",9,""E""),1:"""")"
^XMB(3.9,56,2,1135,0)="""RTN"",""IBRFN4"",42,0)"
^XMB(3.9,56,2,1136,0)=" S $P(IBD,U,12)=$$GET1^DIQ(399,IBIFN_"","",460,""E"")"
^XMB(3.9,56,2,1137,0)="""RTN"",""IBRFN4"",43,0)"
^XMB(3.9,56,2,1138,0)=" S Z=$P($G(^DGCR(399,IBIFN,""U2"")),U,10),$P(IBD,U,13)=$S(Z:$P($G(^IBA(355.93,Z,0)),U,1),1:"""")"
^XMB(3.9,56,2,1139,0)="""RTN"",""IBRFN4"",44,0)"
^XMB(3.9,56,2,1140,0)=" ;"
^XMB(3.9,56,2,1141,0)="""RTN"",""IBRFN4"",45,0)"
^XMB(3.9,56,2,1142,0)=" S $P(IBD,U,14)=$$DAYS(IBIFN)"
^XMB(3.9,56,2,1143,0)="""RTN"",""IBRFN4"",46,0)"
^XMB(3.9,56,2,1144,0)=" S $P(IBD,U,17)=$P(IB(""U1""),U,2)"
^XMB(3.9,56,2,1145,0)="""RTN"",""IBRFN4"",47,0)"
^XMB(3.9,56,2,1146,0)=" ;"
^XMB(3.9,56,2,1147,0)="""RTN"",""IBRFN4"",48,0)"
^XMB(3.9,56,2,1148,0)=" K IBTMP D SET^IBCSC5B(IBIFN,.IBTMP)"
^XMB(3.9,56,2,1149,0)="""RTN"",""IBRFN4"",49,0)"
^XMB(3.9,56,2,1150,0)=" S (IBI,IBJ)=0 F  S IBI=$O(IBTMP(IBI)) Q:'IBI  D"
^XMB(3.9,56,2,1151,0)="""RTN"",""IBRFN4"",50,0)"
^XMB(3.9,56,2,1152,0)=" . S IBK=0 F  S IBK=$O(IBTMP(IBI,IBK)) Q:'IBK  D"
^XMB(3.9,56,2,1153,0)="""RTN"",""IBRFN4"",51,0)"
^XMB(3.9,56,2,1154,0)=" .. S IBX=IBTMP(IBI,IBK)"
^XMB(3.9,56,2,1155,0)="""RTN"",""IBRFN4"",52,0)"
^XMB(3.9,56,2,1156,0)=" .. S IBJ=IBJ+1"
^XMB(3.9,56,2,1157,0)="""RTN"",""IBRFN4"",53,0)"
^XMB(3.9,56,2,1158,0)=" .. S IBD(""PRD"",IBJ)=$P($$PIN^IBCSC5B(IBK),U,2)_U_IBI_U_+IBTMP"
^XMB(3.9,56,2,1159,0)="""RTN"",""IBRFN4"",54,0)"
^XMB(3.9,56,2,1160,0)=" ;"
^XMB(3.9,56,2,1161,0)="""RTN"",""IBRFN4"",55,0)"
^XMB(3.9,56,2,1162,0)=" S Z="" "",IBD(""IN"")="""",DFN=+$P(IB(0),U,2)"
^XMB(3.9,56,2,1163,0)="""RTN"",""IBRFN4"",56,0)"
^XMB(3.9,56,2,1164,0)=" F  S Z=$O(^DPT(DFN,.312,Z),-1) Q:Z=""""  D  Q:Z="""""
^XMB(3.9,56,2,1165,0)="""RTN"",""IBRFN4"",57,0)"
^XMB(3.9,56,2,1166,0)=" . S IBIN=$G(^DPT(DFN,.312,Z,0))"
^XMB(3.9,56,2,1167,0)="""RTN"",""IBRFN4"",58,0)"
^XMB(3.9,56,2,1168,0)=" . I +IB(""M"")=+IBIN D"
^XMB(3.9,56,2,1169,0)="""RTN"",""IBRFN4"",59,0)"
^XMB(3.9,56,2,1170,0)=" .. N IBQ,IBP"
^XMB(3.9,56,2,1171,0)="""RTN"",""IBRFN4"",60,0)"
^XMB(3.9,56,2,1172,0)=" .. S IBP=+$P(IBIN,U,18),IBQ=$G(^IBA(355.3,+IBP,0))"
^XMB(3.9,56,2,1173,0)="""RTN"",""IBRFN4"",61,0)"
^XMB(3.9,56,2,1174,0)=" .. S IBD(""IN"")=$S($P(IBQ,U,9):$$GET1^DIQ(355.3,IBP_"","",.09,""E""),1:"""")_U_$P(IBQ,U,4)_U_$P(IBIN,U,6)_U_$P($G(^DPT(DFN,.312,Z,1)),U,9)"
^XMB(3.9,56,2,1175,0)="""RTN"",""IBRFN4"",62,0)"
^XMB(3.9,56,2,1176,0)=" .. S Z="""""
^XMB(3.9,56,2,1177,0)="""RTN"",""IBRFN4"",63,0)"
^XMB(3.9,56,2,1178,0)=" ;"
^XMB(3.9,56,2,1179,0)="""RTN"",""IBRFN4"",64,0)"
^XMB(3.9,56,2,1180,0)=" S Z=$G(^DIC(36,+IB(""M""),3))"
^XMB(3.9,56,2,1181,0)="""RTN"",""IBRFN4"",65,0)"
^XMB(3.9,56,2,1182,0)=" S $P(IBD(""IN""),U,5)=$P(Z,U,4),$P(IBD(""IN""),U,6)=$P(Z,U,2)"
^XMB(3.9,56,2,1183,0)="""RTN"",""IBRFN4"",66,0)"
^XMB(3.9,56,2,1184,0)=" S $P(IBD(""IN""),U,7)=$$GET1^DIQ(36,+IB(""M"")_"","",1,""I"")"
^XMB(3.9,56,2,1185,0)="""RTN"",""IBRFN4"",67,0)"
^XMB(3.9,56,2,1186,0)=" S Z=$G(^DIC(36,+IB(""M""),.11))"
^XMB(3.9,56,2,1187,0)="""RTN"",""IBRFN4"",68,0)"
^XMB(3.9,56,2,1188,0)=" S IBD(""IN"",""MMA"")=$P(Z,U,1)_U_$P(Z,U,2)_U_$P(Z,U,4)_U_$S($P(Z,U,5):$P($G(^DIC(5,$P(Z,U,5),0)),U,1),1:"""")_U_$P(Z,U,6)"
^XMB(3.9,56,2,1189,0)="""RTN"",""IBRFN4"",69,0)"
^XMB(3.9,56,2,1190,0)=" ;"
^XMB(3.9,56,2,1191,0)="""RTN"",""IBRFN4"",70,0)"
^XMB(3.9,56,2,1192,0)=" Q IBD"
^XMB(3.9,56,2,1193,0)="""RTN"",""IBRFN4"",71,0)"
^XMB(3.9,56,2,1194,0)=" ;"
^XMB(3.9,56,2,1195,0)="""RTN"",""IBRFN4"",72,0)"
^XMB(3.9,56,2,1196,0)="IBACT(IBIFN,IBARRY) ; Returns IB actions for bill ien IBIFN"
^XMB(3.9,56,2,1197,0)="""RTN"",""IBRFN4"",73,0)"
^XMB(3.9,56,2,1198,0)=" ;IBARRY should be passed by reference and returns:"
^XMB(3.9,56,2,1199,0)="""RTN"",""IBRFN4"",74,0)"
^XMB(3.9,56,2,1200,0)=" ;"
^XMB(3.9,56,2,1201,0)="""RTN"",""IBRFN4"",75,0)"
^XMB(3.9,56,2,1202,0)=" ; IBARRY(seq)=AR bill #^reference #^external STATUS^IB ACTION TYPE NAME"
^XMB(3.9,56,2,1203,0)="""RTN"",""IBRFN4"",76,0)"
^XMB(3.9,56,2,1204,0)=" ;             ^UNITS^TOTAL CHARGE^DT BILLD FROM^DT BILLD TO^AR BILL IEN"
^XMB(3.9,56,2,1205,0)="""RTN"",""IBRFN4"",77,0)"
^XMB(3.9,56,2,1206,0)=" ;             ^DT ENTRY ADDED^PATIENT SSN^EVENT DATE^RESULTING FROM"
^XMB(3.9,56,2,1207,0)="""RTN"",""IBRFN4"",78,0)"
^XMB(3.9,56,2,1208,0)=" ;             ^INSTITUTION IEN"
^XMB(3.9,56,2,1209,0)="""RTN"",""IBRFN4"",79,0)"
^XMB(3.9,56,2,1210,0)=" ;"
^XMB(3.9,56,2,1211,0)="""RTN"",""IBRFN4"",80,0)"
^XMB(3.9,56,2,1212,0)=" N IBNA,IB,IB0,DFN,IBCT,Z"
^XMB(3.9,56,2,1213,0)="""RTN"",""IBRFN4"",81,0)"
^XMB(3.9,56,2,1214,0)=" S IBNA=$$BN1^PRCAFN(IBIFN),IB="""",IBCT=0"
^XMB(3.9,56,2,1215,0)="""RTN"",""IBRFN4"",82,0)"
^XMB(3.9,56,2,1216,0)=" F  S IB=$O(^IB(""ABIL"",IBNA,IB)) Q:IB=""""  D"
^XMB(3.9,56,2,1217,0)="""RTN"",""IBRFN4"",83,0)"
^XMB(3.9,56,2,1218,0)=" . S IBCT=IBCT+1"
^XMB(3.9,56,2,1219,0)="""RTN"",""IBRFN4"",84,0)"
^XMB(3.9,56,2,1220,0)=" . S IB0=$G(^IB(IB,0))"
^XMB(3.9,56,2,1221,0)="""RTN"",""IBRFN4"",85,0)"
^XMB(3.9,56,2,1222,0)=" . I $G(DFN)="""" S DFN=$P(IB0,U,2)"
^XMB(3.9,56,2,1223,0)="""RTN"",""IBRFN4"",86,0)"
^XMB(3.9,56,2,1224,0)=" . ;"
^XMB(3.9,56,2,1225,0)="""RTN"",""IBRFN4"",87,0)"
^XMB(3.9,56,2,1226,0)=" . S IBARRY=IBNA_U_$P(IB0,U,1)_U_$$GET1^DIQ(350,IB_"","",.05,""E"")"
^XMB(3.9,56,2,1227,0)="""RTN"",""IBRFN4"",88,0)"
^XMB(3.9,56,2,1228,0)=" . S Z=$P(IB0,U,3)"
^XMB(3.9,56,2,1229,0)="""RTN"",""IBRFN4"",89,0)"
^XMB(3.9,56,2,1230,0)=" . S IBARRY=IBARRY_U_$S(Z'="""":$P($G(^IBE(350.1,Z,0)),U,1),1:"""")"
^XMB(3.9,56,2,1231,0)="""RTN"",""IBRFN4"",90,0)"
^XMB(3.9,56,2,1232,0)=" . S IBARRY=IBARRY_U_$P(IB0,U,6) ; UNITS"
^XMB(3.9,56,2,1233,0)="""RTN"",""IBRFN4"",91,0)"
^XMB(3.9,56,2,1234,0)=" . S IBARRY=IBARRY_U_$P(IB0,U,7) ; TOTAL CHARGE"
^XMB(3.9,56,2,1235,0)="""RTN"",""IBRFN4"",92,0)"
^XMB(3.9,56,2,1236,0)=" . S IBARRY=IBARRY_U_$P(IB0,U,14) ; DT BILLD FROM"
^XMB(3.9,56,2,1237,0)="""RTN"",""IBRFN4"",93,0)"
^XMB(3.9,56,2,1238,0)=" . S IBARRY=IBARRY_U_$P(IB0,U,15) ; DT BILLD TO"
^XMB(3.9,56,2,1239,0)="""RTN"",""IBRFN4"",94,0)"
^XMB(3.9,56,2,1240,0)=" . S IBARRY=IBARRY_U_$P(IB0,U,11) ; AR BILL #"
^XMB(3.9,56,2,1241,0)="""RTN"",""IBRFN4"",95,0)"
^XMB(3.9,56,2,1242,0)=" . S IBARRY=IBARRY_U_$P($P($G(^IB(IB,1)),U,2),""."",1) ; DT ENTRY ADDED"
^XMB(3.9,56,2,1243,0)="""RTN"",""IBRFN4"",96,0)"
^XMB(3.9,56,2,1244,0)=" . S IBARRY=IBARRY_U_$P(^DPT(DFN,0),U,9) ; SSN"
^XMB(3.9,56,2,1245,0)="""RTN"",""IBRFN4"",97,0)"
^XMB(3.9,56,2,1246,0)=" . S IBARRY=IBARRY_U_$P(IB0,U,17) ; EVENT DT"
^XMB(3.9,56,2,1247,0)="""RTN"",""IBRFN4"",98,0)"
^XMB(3.9,56,2,1248,0)=" . S IBARRY=IBARRY_U_$P(IB0,U,4) ;RESULTING FROM"
^XMB(3.9,56,2,1249,0)="""RTN"",""IBRFN4"",99,0)"
^XMB(3.9,56,2,1250,0)=" . S IBARRY=IBARRY_U_$P(IB0,U,13) ; Institution"
^XMB(3.9,56,2,1251,0)="""RTN"",""IBRFN4"",100,0)"
^XMB(3.9,56,2,1252,0)=" . S IBARRY(IBCT)=IBARRY,IBARRY="""""
^XMB(3.9,56,2,1253,0)="""RTN"",""IBRFN4"",101,0)"
^XMB(3.9,56,2,1254,0)=" Q"
^XMB(3.9,56,2,1255,0)="""RTN"",""IBRFN4"",102,0)"
^XMB(3.9,56,2,1256,0)=" ;"
^XMB(3.9,56,2,1257,0)="""RTN"",""IBRFN4"",103,0)"
^XMB(3.9,56,2,1258,0)="PREREG(IBBDT,IBEDT) ;Returns Pre-registration data"
^XMB(3.9,56,2,1259,0)="""RTN"",""IBRFN4"",104,0)"
^XMB(3.9,56,2,1260,0)=" N IBDATA"
^XMB(3.9,56,2,1261,0)="""RTN"",""IBRFN4"",105,0)"
^XMB(3.9,56,2,1262,0)=" S IBDATA=$$IBAR^IBJDIPR(IBBDT,IBEDT)"
^XMB(3.9,56,2,1263,0)="""RTN"",""IBRFN4"",106,0)"
^XMB(3.9,56,2,1264,0)=" Q IBDATA"
^XMB(3.9,56,2,1265,0)="""RTN"",""IBRFN4"",107,0)"
^XMB(3.9,56,2,1266,0)=" ;"
^XMB(3.9,56,2,1267,0)="""RTN"",""IBRFN4"",108,0)"
^XMB(3.9,56,2,1268,0)="BUFFER(IBBDT,IBEDT) ;Returns Buffer data"
^XMB(3.9,56,2,1269,0)="""RTN"",""IBRFN4"",109,0)"
^XMB(3.9,56,2,1270,0)=" N IBDATA"
^XMB(3.9,56,2,1271,0)="""RTN"",""IBRFN4"",110,0)"
^XMB(3.9,56,2,1272,0)=" S IBDATA=$$IBAR^IBCNBOA(IBBDT,IBEDT)"
^XMB(3.9,56,2,1273,0)="""RTN"",""IBRFN4"",111,0)"
^XMB(3.9,56,2,1274,0)=" Q IBDATA"
^XMB(3.9,56,2,1275,0)="""RTN"",""IBRFN4"",112,0)"
^XMB(3.9,56,2,1276,0)=" ;"
^XMB(3.9,56,2,1277,0)="""RTN"",""IBRFN4"",113,0)"
^XMB(3.9,56,2,1278,0)="DAYS(IBIFN) ; Returns # days site not responsible for MRA"
^XMB(3.9,56,2,1279,0)="""RTN"",""IBRFN4"",114,0)"
^XMB(3.9,56,2,1280,0)=" N X,X1,X2,D0"
^XMB(3.9,56,2,1281,0)="""RTN"",""IBRFN4"",115,0)"
^XMB(3.9,56,2,1282,0)=" S X="""" ;No. of days"
^XMB(3.9,56,2,1283,0)="""RTN"",""IBRFN4"",116,0)"
^XMB(3.9,56,2,1284,0)=" G:'$P(IBD,U,2) DAYSQ"
^XMB(3.9,56,2,1285,0)="""RTN"",""IBRFN4"",117,0)"
^XMB(3.9,56,2,1286,0)=" S X2=$P(IBD,U,2) ;MRA Request Date"
^XMB(3.9,56,2,1287,0)="""RTN"",""IBRFN4"",118,0)"
^XMB(3.9,56,2,1288,0)=" S X1=$P(IBD,U,7) ;MRA Recorded Date"
^XMB(3.9,56,2,1289,0)="""RTN"",""IBRFN4"",119,0)"
^XMB(3.9,56,2,1290,0)=" G:'$$MRASEC^IBCEF4(IBIFN) DAYSQ ; Not MEDICARE secondary"
^XMB(3.9,56,2,1291,0)="""RTN"",""IBRFN4"",120,0)"
^XMB(3.9,56,2,1292,0)=" I 'X1!(X1<X2) S X1=DT"
^XMB(3.9,56,2,1293,0)="""RTN"",""IBRFN4"",121,0)"
^XMB(3.9,56,2,1294,0)=" D ^%DTC"
^XMB(3.9,56,2,1295,0)="""RTN"",""IBRFN4"",122,0)"
^XMB(3.9,56,2,1296,0)="DAYSQ Q X"
^XMB(3.9,56,2,1297,0)="""RTN"",""IBRFN4"",123,0)"
^XMB(3.9,56,2,1298,0)=" ;"
^XMB(3.9,56,2,1299,0)="""RTN"",""IBRFN4"",124,0)"
^XMB(3.9,56,2,1300,0)="REJ(IBIFN) ; Returns 1 if any rejects found for MRA secondary claim or for"
^XMB(3.9,56,2,1301,0)="""RTN"",""IBRFN4"",125,0)"
^XMB(3.9,56,2,1302,0)=" ; any preceding claims it was cancelled/cloned from"
^XMB(3.9,56,2,1303,0)="""RTN"",""IBRFN4"",126,0)"
^XMB(3.9,56,2,1304,0)=" N X,Y,I,X1,X2,X3,D0,CURSEQ"
^XMB(3.9,56,2,1305,0)="""RTN"",""IBRFN4"",127,0)"
^XMB(3.9,56,2,1306,0)=" S Y=0 ;Y=REJECT FLAG"
^XMB(3.9,56,2,1307,0)="""RTN"",""IBRFN4"",128,0)"
^XMB(3.9,56,2,1308,0)=" G:'$$MRASEC^IBCEF4(IBIFN) REJQ ; Not MEDICARE secondary"
^XMB(3.9,56,2,1309,0)="""RTN"",""IBRFN4"",129,0)"
^XMB(3.9,56,2,1310,0)=" S CURSEQ=$$COBN^IBCEF(IBIFN),X1=+$P($G(^DGCR(399,IBIFN,0)),U,15)"
^XMB(3.9,56,2,1311,0)="""RTN"",""IBRFN4"",130,0)"
^XMB(3.9,56,2,1312,0)=" S D0=IBIFN"
^XMB(3.9,56,2,1313,0)="""RTN"",""IBRFN4"",131,0)"
^XMB(3.9,56,2,1314,0)=" F  D  Q:'D0!Y"
^XMB(3.9,56,2,1315,0)="""RTN"",""IBRFN4"",132,0)"
^XMB(3.9,56,2,1316,0)=" . ; claim copied from not cancelled and not MRA secondary claim"
^XMB(3.9,56,2,1317,0)="""RTN"",""IBRFN4"",133,0)"
^XMB(3.9,56,2,1318,0)=" . I X1,$P($G(^DGCR(399,X1,0)),U,13)'=7,X1'=IBIFN S D0="""" Q"
^XMB(3.9,56,2,1319,0)="""RTN"",""IBRFN4"",134,0)"
^XMB(3.9,56,2,1320,0)=" . I X1,$P($G(^DGCR(399,X1,0)),U,19)'=$P($G(^DGCR(399,D0,0)),U,19) S D0="""" Q"
^XMB(3.9,56,2,1321,0)="""RTN"",""IBRFN4"",135,0)"
^XMB(3.9,56,2,1322,0)=" . S I=0 F  S I=$O(^IBM(361,""B"",D0,I)) Q:'I  D  Q:Y"
^XMB(3.9,56,2,1323,0)="""RTN"",""IBRFN4"",136,0)"
^XMB(3.9,56,2,1324,0)=" .. S X2=$G(^IBM(361,I,0))"
^XMB(3.9,56,2,1325,0)="""RTN"",""IBRFN4"",137,0)"
^XMB(3.9,56,2,1326,0)=" .. Q:$P(X2,U,3)'=""R""!'$P(X2,U,11)  ;No reject or no transmit bill"
^XMB(3.9,56,2,1327,0)="""RTN"",""IBRFN4"",138,0)"
^XMB(3.9,56,2,1328,0)=" .. S X3=$TR($P($G(^IBA(364,+$P(X2,U,11),0)),U,8),""PST"",""123"") ;status msg seq"
^XMB(3.9,56,2,1329,0)="""RTN"",""IBRFN4"",139,0)"
^XMB(3.9,56,2,1330,0)=" .. Q:X3'=(CURSEQ-1)"
^XMB(3.9,56,2,1331,0)="""RTN"",""IBRFN4"",140,0)"
^XMB(3.9,56,2,1332,0)=" .. S Y=1"
^XMB(3.9,56,2,1333,0)="""RTN"",""IBRFN4"",141,0)"
^XMB(3.9,56,2,1334,0)=" . I 'Y S D0=X1,X1=+$P($G(^DGCR(399,X1,0)),U,15) S:X1=D0 D0="""" Q"
^XMB(3.9,56,2,1335,0)="""RTN"",""IBRFN4"",142,0)"
^XMB(3.9,56,2,1336,0)="REJQ Q Y"
^XMB(3.9,56,2,1337,0)="""VER"")"
^XMB(3.9,56,2,1338,0)="8.0^22.0"
^XMB(3.9,56,2,1339,0)="""BLD"",6171,6)"
^XMB(3.9,56,2,1340,0)="^316"
^XMB(3.9,56,2,1341,0)="$END KID IB*2.0*305"
^XMB(3.9,56,6,0)="^3.911A^2^2"
^XMB(3.9,56,6,1,0)="POSTMASTER"
^XMB(3.9,56,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,56,6,"B","POSTMASTER",1)=""
^XMB(3.9,56,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,57,0)="IB-2_SEQ-317_PAT-341.KID^.5^3061008.015737^^^^K"
^XMB(3.9,57,.6)="3061008"
^XMB(3.9,57,1,0)="^3.91A^2^2"
^XMB(3.9,57,1,1,0)=".5^0^3061008.015737^^^^^^^3061008.015737"
^XMB(3.9,57,1,2,0)="1^0^3061008.02341^^^^^^^3061008.02341"
^XMB(3.9,57,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,57,1,"C",.5,1)=""
^XMB(3.9,57,1,"C",1,2)=""
^XMB(3.9,57,2,0)="^^1035^1035^3061008"
^XMB(3.9,57,2,1,0)="$TXT Released IB*2*341 SEQ #317"
^XMB(3.9,57,2,2,0)="Extracted from mail message"
^XMB(3.9,57,2,3,0)="$END TXT"
^XMB(3.9,57,2,4,0)="$KID IB*2.0*341"
^XMB(3.9,57,2,5,0)="**INSTALL NAME**"
^XMB(3.9,57,2,6,0)="IB*2.0*341"
^XMB(3.9,57,2,7,0)="""BLD"",6621,0)"
^XMB(3.9,57,2,8,0)="IB*2.0*341^INTEGRATED BILLING^0^3060817^y"
^XMB(3.9,57,2,9,0)="""BLD"",6621,1,0)"
^XMB(3.9,57,2,10,0)="^^5^5^3060816^^^^"
^XMB(3.9,57,2,11,0)="""BLD"",6621,1,1,0)"
^XMB(3.9,57,2,12,0)="This patch will correct a problem where the nightly billing job"
^XMB(3.9,57,2,13,0)="""BLD"",6621,1,2,0)"
^XMB(3.9,57,2,14,0)="was failing when voice activated records from Radiology had"
^XMB(3.9,57,2,15,0)="""BLD"",6621,1,3,0)"
^XMB(3.9,57,2,16,0)="triggered an entry into billing file #350 and had left the "
^XMB(3.9,57,2,17,0)="""BLD"",6621,1,4,0)"
^XMB(3.9,57,2,18,0)="USER ADDING ENTRY field null.  The changes in this patch will"
^XMB(3.9,57,2,19,0)="""BLD"",6621,1,5,0)"
^XMB(3.9,57,2,20,0)="trap that condition and store the Postmaster DUZ rather than null."
^XMB(3.9,57,2,21,0)="""BLD"",6621,4,0)"
^XMB(3.9,57,2,22,0)="^9.64PA^^"
^XMB(3.9,57,2,23,0)="""BLD"",6621,""KRN"",0)"
^XMB(3.9,57,2,24,0)="^9.67PA^8989.52^19"
^XMB(3.9,57,2,25,0)="""BLD"",6621,""KRN"",.4,0)"
^XMB(3.9,57,2,26,0)=".4"
^XMB(3.9,57,2,27,0)="""BLD"",6621,""KRN"",.401,0)"
^XMB(3.9,57,2,28,0)=".401"
^XMB(3.9,57,2,29,0)="""BLD"",6621,""KRN"",.402,0)"
^XMB(3.9,57,2,30,0)=".402"
^XMB(3.9,57,2,31,0)="""BLD"",6621,""KRN"",.403,0)"
^XMB(3.9,57,2,32,0)=".403"
^XMB(3.9,57,2,33,0)="""BLD"",6621,""KRN"",.5,0)"
^XMB(3.9,57,2,34,0)=".5"
^XMB(3.9,57,2,35,0)="""BLD"",6621,""KRN"",.84,0)"
^XMB(3.9,57,2,36,0)=".84"
^XMB(3.9,57,2,37,0)="""BLD"",6621,""KRN"",3.6,0)"
^XMB(3.9,57,2,38,0)="3.6"
^XMB(3.9,57,2,39,0)="""BLD"",6621,""KRN"",3.8,0)"
^XMB(3.9,57,2,40,0)="3.8"
^XMB(3.9,57,2,41,0)="""BLD"",6621,""KRN"",9.2,0)"
^XMB(3.9,57,2,42,0)="9.2"
^XMB(3.9,57,2,43,0)="""BLD"",6621,""KRN"",9.8,0)"
^XMB(3.9,57,2,44,0)="9.8"
^XMB(3.9,57,2,45,0)="""BLD"",6621,""KRN"",9.8,""NM"",0)"
^XMB(3.9,57,2,46,0)="^9.68A^4^4"
^XMB(3.9,57,2,47,0)="""BLD"",6621,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,57,2,48,0)="IBECEAU3^^0^B6694889"
^XMB(3.9,57,2,49,0)="""BLD"",6621,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,57,2,50,0)="IBECEAU4^^0^B16312791"
^XMB(3.9,57,2,51,0)="""BLD"",6621,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,57,2,52,0)="IBACUS2^^0^B33456496"
^XMB(3.9,57,2,53,0)="""BLD"",6621,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,57,2,54,0)="IBAMTS^^0^B18301561"
^XMB(3.9,57,2,55,0)="""BLD"",6621,""KRN"",9.8,""NM"",""B"",""IBACUS2"",3)"
^XMB(3.9,57,2,56,0)=""
^XMB(3.9,57,2,57,0)="""BLD"",6621,""KRN"",9.8,""NM"",""B"",""IBAMTS"",4)"
^XMB(3.9,57,2,58,0)=""
^XMB(3.9,57,2,59,0)="""BLD"",6621,""KRN"",9.8,""NM"",""B"",""IBECEAU3"",1)"
^XMB(3.9,57,2,60,0)=""
^XMB(3.9,57,2,61,0)="""BLD"",6621,""KRN"",9.8,""NM"",""B"",""IBECEAU4"",2)"
^XMB(3.9,57,2,62,0)=""
^XMB(3.9,57,2,63,0)="""BLD"",6621,""KRN"",19,0)"
^XMB(3.9,57,2,64,0)="19"
^XMB(3.9,57,2,65,0)="""BLD"",6621,""KRN"",19.1,0)"
^XMB(3.9,57,2,66,0)="19.1"
^XMB(3.9,57,2,67,0)="""BLD"",6621,""KRN"",101,0)"
^XMB(3.9,57,2,68,0)="101"
^XMB(3.9,57,2,69,0)="""BLD"",6621,""KRN"",409.61,0)"
^XMB(3.9,57,2,70,0)="409.61"
^XMB(3.9,57,2,71,0)="""BLD"",6621,""KRN"",771,0)"
^XMB(3.9,57,2,72,0)="771"
^XMB(3.9,57,2,73,0)="""BLD"",6621,""KRN"",870,0)"
^XMB(3.9,57,2,74,0)="870"
^XMB(3.9,57,2,75,0)="""BLD"",6621,""KRN"",8989.51,0)"
^XMB(3.9,57,2,76,0)="8989.51"
^XMB(3.9,57,2,77,0)="""BLD"",6621,""KRN"",8989.52,0)"
^XMB(3.9,57,2,78,0)="8989.52"
^XMB(3.9,57,2,79,0)="""BLD"",6621,""KRN"",8994,0)"
^XMB(3.9,57,2,80,0)="8994"
^XMB(3.9,57,2,81,0)="""BLD"",6621,""KRN"",""B"",.4,.4)"
^XMB(3.9,57,2,82,0)=""
^XMB(3.9,57,2,83,0)="""BLD"",6621,""KRN"",""B"",.401,.401)"
^XMB(3.9,57,2,84,0)=""
^XMB(3.9,57,2,85,0)="""BLD"",6621,""KRN"",""B"",.402,.402)"
^XMB(3.9,57,2,86,0)=""
^XMB(3.9,57,2,87,0)="""BLD"",6621,""KRN"",""B"",.403,.403)"
^XMB(3.9,57,2,88,0)=""
^XMB(3.9,57,2,89,0)="""BLD"",6621,""KRN"",""B"",.5,.5)"
^XMB(3.9,57,2,90,0)=""
^XMB(3.9,57,2,91,0)="""BLD"",6621,""KRN"",""B"",.84,.84)"
^XMB(3.9,57,2,92,0)=""
^XMB(3.9,57,2,93,0)="""BLD"",6621,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,57,2,94,0)=""
^XMB(3.9,57,2,95,0)="""BLD"",6621,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,57,2,96,0)=""
^XMB(3.9,57,2,97,0)="""BLD"",6621,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,57,2,98,0)=""
^XMB(3.9,57,2,99,0)="""BLD"",6621,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,57,2,100,0)=""
^XMB(3.9,57,2,101,0)="""BLD"",6621,""KRN"",""B"",19,19)"
^XMB(3.9,57,2,102,0)=""
^XMB(3.9,57,2,103,0)="""BLD"",6621,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,57,2,104,0)=""
^XMB(3.9,57,2,105,0)="""BLD"",6621,""KRN"",""B"",101,101)"
^XMB(3.9,57,2,106,0)=""
^XMB(3.9,57,2,107,0)="""BLD"",6621,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,57,2,108,0)=""
^XMB(3.9,57,2,109,0)="""BLD"",6621,""KRN"",""B"",771,771)"
^XMB(3.9,57,2,110,0)=""
^XMB(3.9,57,2,111,0)="""BLD"",6621,""KRN"",""B"",870,870)"
^XMB(3.9,57,2,112,0)=""
^XMB(3.9,57,2,113,0)="""BLD"",6621,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,57,2,114,0)=""
^XMB(3.9,57,2,115,0)="""BLD"",6621,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,57,2,116,0)=""
^XMB(3.9,57,2,117,0)="""BLD"",6621,""KRN"",""B"",8994,8994)"
^XMB(3.9,57,2,118,0)=""
^XMB(3.9,57,2,119,0)="""BLD"",6621,""QUES"",0)"
^XMB(3.9,57,2,120,0)="^9.62^^"
^XMB(3.9,57,2,121,0)="""BLD"",6621,""REQB"",0)"
^XMB(3.9,57,2,122,0)="^9.611^3^3"
^XMB(3.9,57,2,123,0)="""BLD"",6621,""REQB"",1,0)"
^XMB(3.9,57,2,124,0)="IB*2.0*183^2"
^XMB(3.9,57,2,125,0)="""BLD"",6621,""REQB"",2,0)"
^XMB(3.9,57,2,126,0)="IB*2.0*240^2"
^XMB(3.9,57,2,127,0)="""BLD"",6621,""REQB"",3,0)"
^XMB(3.9,57,2,128,0)="IB*2.0*312^2"
^XMB(3.9,57,2,129,0)="""BLD"",6621,""REQB"",""B"",""IB*2.0*183"",1)"
^XMB(3.9,57,2,130,0)=""
^XMB(3.9,57,2,131,0)="""BLD"",6621,""REQB"",""B"",""IB*2.0*240"",2)"
^XMB(3.9,57,2,132,0)=""
^XMB(3.9,57,2,133,0)="""BLD"",6621,""REQB"",""B"",""IB*2.0*312"",3)"
^XMB(3.9,57,2,134,0)=""
^XMB(3.9,57,2,135,0)="""MBREQ"")"
^XMB(3.9,57,2,136,0)="0"
^XMB(3.9,57,2,137,0)="""PKG"",200,-1)"
^XMB(3.9,57,2,138,0)="1^1"
^XMB(3.9,57,2,139,0)="""PKG"",200,0)"
^XMB(3.9,57,2,140,0)="INTEGRATED BILLING^IB^INTEGRATED BILLING"
^XMB(3.9,57,2,141,0)="""PKG"",200,20,0)"
^XMB(3.9,57,2,142,0)="^9.402P^1^1"
^XMB(3.9,57,2,143,0)="""PKG"",200,20,1,0)"
^XMB(3.9,57,2,144,0)="2^^IBAXDR"
^XMB(3.9,57,2,145,0)="""PKG"",200,20,1,1)"
^XMB(3.9,57,2,146,0)=""
^XMB(3.9,57,2,147,0)="""PKG"",200,20,""B"",2,1)"
^XMB(3.9,57,2,148,0)=""
^XMB(3.9,57,2,149,0)="""PKG"",200,22,0)"
^XMB(3.9,57,2,150,0)="^9.49I^1^1"
^XMB(3.9,57,2,151,0)="""PKG"",200,22,1,0)"
^XMB(3.9,57,2,152,0)="2.0^2940321^2990406^2447"
^XMB(3.9,57,2,153,0)="""PKG"",200,22,1,""PAH"",1,0)"
^XMB(3.9,57,2,154,0)="341^3060817"
^XMB(3.9,57,2,155,0)="""PKG"",200,22,1,""PAH"",1,1,0)"
^XMB(3.9,57,2,156,0)="^^5^5^3060817"
^XMB(3.9,57,2,157,0)="""PKG"",200,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,57,2,158,0)="This patch will correct a problem where the nightly billing job"
^XMB(3.9,57,2,159,0)="""PKG"",200,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,57,2,160,0)="was failing when voice activated records from Radiology had"
^XMB(3.9,57,2,161,0)="""PKG"",200,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,57,2,162,0)="triggered an entry into billing file #350 and had left the "
^XMB(3.9,57,2,163,0)="""PKG"",200,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,57,2,164,0)="USER ADDING ENTRY field null.  The changes in this patch will"
^XMB(3.9,57,2,165,0)="""PKG"",200,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,57,2,166,0)="trap that condition and store the Postmaster DUZ rather than null."
^XMB(3.9,57,2,167,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,57,2,168,0)="Y"
^XMB(3.9,57,2,169,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,57,2,170,0)="^D REP^XPDH"
^XMB(3.9,57,2,171,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,57,2,172,0)="Shall I write over your |FLAG| File"
^XMB(3.9,57,2,173,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,57,2,174,0)="YES"
^XMB(3.9,57,2,175,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,57,2,176,0)="D XPF1^XPDIQ"
^XMB(3.9,57,2,177,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,57,2,178,0)="Y"
^XMB(3.9,57,2,179,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,57,2,180,0)="^D DTA^XPDH"
^XMB(3.9,57,2,181,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,57,2,182,0)="Want my data |FLAG| yours"
^XMB(3.9,57,2,183,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,57,2,184,0)="YES"
^XMB(3.9,57,2,185,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,57,2,186,0)="D XPF2^XPDIQ"
^XMB(3.9,57,2,187,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,57,2,188,0)="YO"
^XMB(3.9,57,2,189,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,57,2,190,0)="^D INHIBIT^XPDH"
^XMB(3.9,57,2,191,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,57,2,192,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,57,2,193,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,57,2,194,0)="YES"
^XMB(3.9,57,2,195,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,57,2,196,0)="D XPI1^XPDIQ"
^XMB(3.9,57,2,197,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,57,2,198,0)="PO^VA(200,:EM"
^XMB(3.9,57,2,199,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,57,2,200,0)="^D MG^XPDH"
^XMB(3.9,57,2,201,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,57,2,202,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,57,2,203,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,57,2,204,0)=""
^XMB(3.9,57,2,205,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,57,2,206,0)="D XPM1^XPDIQ"
^XMB(3.9,57,2,207,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,57,2,208,0)="Y"
^XMB(3.9,57,2,209,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,57,2,210,0)="^D MENU^XPDH"
^XMB(3.9,57,2,211,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,57,2,212,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,57,2,213,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,57,2,214,0)="YES"
^XMB(3.9,57,2,215,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,57,2,216,0)="D XPO1^XPDIQ"
^XMB(3.9,57,2,217,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,57,2,218,0)="Y"
^XMB(3.9,57,2,219,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,57,2,220,0)="^D OPT^XPDH"
^XMB(3.9,57,2,221,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,57,2,222,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,57,2,223,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,57,2,224,0)="YES"
^XMB(3.9,57,2,225,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,57,2,226,0)="D XPZ1^XPDIQ"
^XMB(3.9,57,2,227,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,57,2,228,0)="Y"
^XMB(3.9,57,2,229,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,57,2,230,0)="^D RTN^XPDH"
^XMB(3.9,57,2,231,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,57,2,232,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,57,2,233,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,57,2,234,0)="NO"
^XMB(3.9,57,2,235,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,57,2,236,0)="D XPZ2^XPDIQ"
^XMB(3.9,57,2,237,0)="""RTN"")"
^XMB(3.9,57,2,238,0)="4"
^XMB(3.9,57,2,239,0)="""RTN"",""IBACUS2"")"
^XMB(3.9,57,2,240,0)="0^3^B33456496^B33239765"
^XMB(3.9,57,2,241,0)="""RTN"",""IBACUS2"",1,0)"
^XMB(3.9,57,2,242,0)="IBACUS2 ;ALB/CPM - TRICARE FISCAL INTERMEDIARY RX CLAIMS ;02-AUG-96"
^XMB(3.9,57,2,243,0)="""RTN"",""IBACUS2"",2,0)"
^XMB(3.9,57,2,244,0)=" ;;2.0;INTEGRATED BILLING;**52,91,51,240,341**;21-MAR-94"
^XMB(3.9,57,2,245,0)="""RTN"",""IBACUS2"",3,0)"
^XMB(3.9,57,2,246,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,57,2,247,0)="""RTN"",""IBACUS2"",4,0)"
^XMB(3.9,57,2,248,0)=" ;"
^XMB(3.9,57,2,249,0)="""RTN"",""IBACUS2"",5,0)"
^XMB(3.9,57,2,250,0)="BILL(IBKEY,IBCHTRN) ; Create the TRICARE claim for the Fiscal Intermediary."
^XMB(3.9,57,2,251,0)="""RTN"",""IBACUS2"",6,0)"
^XMB(3.9,57,2,252,0)=" ;  Input:    IBKEY  --  1 ; 2, where"
^XMB(3.9,57,2,253,0)="""RTN"",""IBACUS2"",7,0)"
^XMB(3.9,57,2,254,0)=" ;                         1 = Pointer to the prescription in file #52"
^XMB(3.9,57,2,255,0)="""RTN"",""IBACUS2"",8,0)"
^XMB(3.9,57,2,256,0)=" ;                         2 = Pointer to the refill in file #52.1, or"
^XMB(3.9,57,2,257,0)="""RTN"",""IBACUS2"",9,0)"
^XMB(3.9,57,2,258,0)=" ;                             0 for the original fill"
^XMB(3.9,57,2,259,0)="""RTN"",""IBACUS2"",10,0)"
^XMB(3.9,57,2,260,0)=" ;          IBCHTRN  --  Pointer to the transaction entry in file #351.5"
^XMB(3.9,57,2,261,0)="""RTN"",""IBACUS2"",11,0)"
^XMB(3.9,57,2,262,0)=" ;"
^XMB(3.9,57,2,263,0)="""RTN"",""IBACUS2"",12,0)"
^XMB(3.9,57,2,264,0)=" N IBQUERY"
^XMB(3.9,57,2,265,0)="""RTN"",""IBACUS2"",13,0)"
^XMB(3.9,57,2,266,0)=" S IBY=1 K IBDRX"
^XMB(3.9,57,2,267,0)="""RTN"",""IBACUS2"",14,0)"
^XMB(3.9,57,2,268,0)=" I '$G(IBKEY) G BILLQ"
^XMB(3.9,57,2,269,0)="""RTN"",""IBACUS2"",15,0)"
^XMB(3.9,57,2,270,0)=" I $G(^PSRX(+IBKEY,0))="""" G BILLQ"
^XMB(3.9,57,2,271,0)="""RTN"",""IBACUS2"",16,0)"
^XMB(3.9,57,2,272,0)=" S IBAMT=$P($G(^IBA(351.5,+IBCHTRN,2)),""^"",5) ;  FI portion of charge"
^XMB(3.9,57,2,273,0)="""RTN"",""IBACUS2"",17,0)"
^XMB(3.9,57,2,274,0)=" I 'IBAMT G BILLQ"
^XMB(3.9,57,2,275,0)="""RTN"",""IBACUS2"",18,0)"
^XMB(3.9,57,2,276,0)=" ;"
^XMB(3.9,57,2,277,0)="""RTN"",""IBACUS2"",19,0)"
^XMB(3.9,57,2,278,0)=" ; - derive minimal variables"
^XMB(3.9,57,2,279,0)="""RTN"",""IBACUS2"",20,0)"
^XMB(3.9,57,2,280,0)=" I '$$CHECK^IBECEAU(0) S IBY=""-1^IB009"" G BILLQ"
^XMB(3.9,57,2,281,0)="""RTN"",""IBACUS2"",21,0)"
^XMB(3.9,57,2,282,0)=" S IBSERV=$P($G(^IBE(350.1,1,0)),""^"",4)"
^XMB(3.9,57,2,283,0)="""RTN"",""IBACUS2"",22,0)"
^XMB(3.9,57,2,284,0)=" I '$$SERV^IBARX1(IBSERV) S IBY=""-1^IB003"" G BILLQ"
^XMB(3.9,57,2,285,0)="""RTN"",""IBACUS2"",23,0)"
^XMB(3.9,57,2,286,0)=" ;"
^XMB(3.9,57,2,287,0)="""RTN"",""IBACUS2"",24,0)"
^XMB(3.9,57,2,288,0)=" ; - establish a stub claim/receivable"
^XMB(3.9,57,2,289,0)="""RTN"",""IBACUS2"",25,0)"
^XMB(3.9,57,2,290,0)=" D SET^IBR I IBY<0 G BILLQ"
^XMB(3.9,57,2,291,0)="""RTN"",""IBACUS2"",26,0)"
^XMB(3.9,57,2,292,0)=" ;"
^XMB(3.9,57,2,293,0)="""RTN"",""IBACUS2"",27,0)"
^XMB(3.9,57,2,294,0)=" ; - set up the following variables for claim establishment:"
^XMB(3.9,57,2,295,0)="""RTN"",""IBACUS2"",28,0)"
^XMB(3.9,57,2,296,0)=" ;      .01  BILL #"
^XMB(3.9,57,2,297,0)="""RTN"",""IBACUS2"",29,0)"
^XMB(3.9,57,2,298,0)=" ;      .17  ORIG CLAIM"
^XMB(3.9,57,2,299,0)="""RTN"",""IBACUS2"",30,0)"
^XMB(3.9,57,2,300,0)=" ;      .2   AUTO?"
^XMB(3.9,57,2,301,0)="""RTN"",""IBACUS2"",31,0)"
^XMB(3.9,57,2,302,0)=" ;      .02  DFN"
^XMB(3.9,57,2,303,0)="""RTN"",""IBACUS2"",32,0)"
^XMB(3.9,57,2,304,0)=" ;      .06  TIMEFRAME"
^XMB(3.9,57,2,305,0)="""RTN"",""IBACUS2"",33,0)"
^XMB(3.9,57,2,306,0)=" ;      .07  RATE TYPE"
^XMB(3.9,57,2,307,0)="""RTN"",""IBACUS2"",34,0)"
^XMB(3.9,57,2,308,0)=" ;      .18  SC AT TIME?"
^XMB(3.9,57,2,309,0)="""RTN"",""IBACUS2"",35,0)"
^XMB(3.9,57,2,310,0)=" ;      .04  LOCATION (WILL NEED DIVISION THAT DISPENSED)"
^XMB(3.9,57,2,311,0)="""RTN"",""IBACUS2"",36,0)"
^XMB(3.9,57,2,312,0)=" ;      .05  BILL CLASSIF  (3)"
^XMB(3.9,57,2,313,0)="""RTN"",""IBACUS2"",37,0)"
^XMB(3.9,57,2,314,0)=" ;      .03  EVT DATE (FILL DATE)"
^XMB(3.9,57,2,315,0)="""RTN"",""IBACUS2"",38,0)"
^XMB(3.9,57,2,316,0)=" ;      151  BILL FROM"
^XMB(3.9,57,2,317,0)="""RTN"",""IBACUS2"",39,0)"
^XMB(3.9,57,2,318,0)=" ;      152  BILL TO"
^XMB(3.9,57,2,319,0)="""RTN"",""IBACUS2"",40,0)"
^XMB(3.9,57,2,320,0)=" K IB"
^XMB(3.9,57,2,321,0)="""RTN"",""IBACUS2"",41,0)"
^XMB(3.9,57,2,322,0)=" S (IB(.02),DFN,IBDFN)=+$P($G(^PSRX(+IBKEY,0)),""^"",2)"
^XMB(3.9,57,2,323,0)="""RTN"",""IBACUS2"",42,0)"
^XMB(3.9,57,2,324,0)=" I 'DFN S IBY=""-1^IB002"" G BILLQ"
^XMB(3.9,57,2,325,0)="""RTN"",""IBACUS2"",43,0)"
^XMB(3.9,57,2,326,0)=" S IB(.07)=$O(^DGCR(399.3,""B"",""TRICARE"",0))"
^XMB(3.9,57,2,327,0)="""RTN"",""IBACUS2"",44,0)"
^XMB(3.9,57,2,328,0)=" I 'IB(.07) S IBY=""-1^IB059"" G BILLQ"
^XMB(3.9,57,2,329,0)="""RTN"",""IBACUS2"",45,0)"
^XMB(3.9,57,2,330,0)=" I $$TRANS^PSOCPTRI(+IBKEY,+$P(IBKEY,"";"",2),.IBDRX)<0 S IBY=""-1^IB010"" G BILLQ"
^XMB(3.9,57,2,331,0)="""RTN"",""IBACUS2"",46,0)"
^XMB(3.9,57,2,332,0)=" ;"
^XMB(3.9,57,2,333,0)="""RTN"",""IBACUS2"",47,0)"
^XMB(3.9,57,2,334,0)=" S IBIFN=PRCASV(""ARREC"")"
^XMB(3.9,57,2,335,0)="""RTN"",""IBACUS2"",48,0)"
^XMB(3.9,57,2,336,0)=" S IB(.01)=$P(PRCASV(""ARBIL""),""-"",2)"
^XMB(3.9,57,2,337,0)="""RTN"",""IBACUS2"",49,0)"
^XMB(3.9,57,2,338,0)=" S IB(.17)="""""
^XMB(3.9,57,2,339,0)="""RTN"",""IBACUS2"",50,0)"
^XMB(3.9,57,2,340,0)=" S IB(.2)=0"
^XMB(3.9,57,2,341,0)="""RTN"",""IBACUS2"",51,0)"
^XMB(3.9,57,2,342,0)=" S IB(.06)=1"
^XMB(3.9,57,2,343,0)="""RTN"",""IBACUS2"",52,0)"
^XMB(3.9,57,2,344,0)=" S IB(.18)=$$SC^IBCU3(DFN)"
^XMB(3.9,57,2,345,0)="""RTN"",""IBACUS2"",53,0)"
^XMB(3.9,57,2,346,0)=" S IB(.04)=1 ;  how can I get Division?  RON..."
^XMB(3.9,57,2,347,0)="""RTN"",""IBACUS2"",54,0)"
^XMB(3.9,57,2,348,0)=" S IB(.05)=3"
^XMB(3.9,57,2,349,0)="""RTN"",""IBACUS2"",55,0)"
^XMB(3.9,57,2,350,0)=" S (IB(.03),IB(151),IB(152))=IBDRX(""FDT"")"
^XMB(3.9,57,2,351,0)="""RTN"",""IBACUS2"",56,0)"
^XMB(3.9,57,2,352,0)=" ;"
^XMB(3.9,57,2,353,0)="""RTN"",""IBACUS2"",57,0)"
^XMB(3.9,57,2,354,0)=" ; - set 362.4 node to rx#^p50^days sup^fill date^qty^ndc"
^XMB(3.9,57,2,355,0)="""RTN"",""IBACUS2"",58,0)"
^XMB(3.9,57,2,356,0)=" S IB(362.4,+IBKEY,1)=IBDRX(""RX#"")_""^""_+$P($G(^PSRX(+IBKEY,0)),""^"",6)_""^""_IBDRX(""SUP"")_""^""_IBDRX(""FDT"")_""^""_IBDRX(""QTY"")_""^""_IBDRX(""NDC"")"
^XMB(3.9,57,2,357,0)="""RTN"",""IBACUS2"",59,0)"
^XMB(3.9,57,2,358,0)=" ;"
^XMB(3.9,57,2,359,0)="""RTN"",""IBACUS2"",60,0)"
^XMB(3.9,57,2,360,0)=" ; - call the autobiller module to create the claim with a default"
^XMB(3.9,57,2,361,0)="""RTN"",""IBACUS2"",61,0)"
^XMB(3.9,57,2,362,0)=" ;   diagnosis and procedure for prescriptions"
^XMB(3.9,57,2,363,0)="""RTN"",""IBACUS2"",62,0)"
^XMB(3.9,57,2,364,0)=" D EN^IBCD3(.IBQUERY)"
^XMB(3.9,57,2,365,0)="""RTN"",""IBACUS2"",63,0)"
^XMB(3.9,57,2,366,0)=" D CLOSE^IBSDU(.IBQUERY)"
^XMB(3.9,57,2,367,0)="""RTN"",""IBACUS2"",64,0)"
^XMB(3.9,57,2,368,0)=" ;"
^XMB(3.9,57,2,369,0)="""RTN"",""IBACUS2"",65,0)"
^XMB(3.9,57,2,370,0)=" ; - add the payor (fiscal intermediary) to the claim"
^XMB(3.9,57,2,371,0)="""RTN"",""IBACUS2"",66,0)"
^XMB(3.9,57,2,372,0)=" S IBCDFN=$$CUS^IBACUS(DFN)"
^XMB(3.9,57,2,373,0)="""RTN"",""IBACUS2"",67,0)"
^XMB(3.9,57,2,374,0)=" I 'IBCDFN S IBY=""-1^IB054"" G BILLQ"
^XMB(3.9,57,2,375,0)="""RTN"",""IBACUS2"",68,0)"
^XMB(3.9,57,2,376,0)=" S IBINS=+$G(^DPT(DFN,.312,IBCDFN,0))"
^XMB(3.9,57,2,377,0)="""RTN"",""IBACUS2"",69,0)"
^XMB(3.9,57,2,378,0)=" S DIE=""^DGCR(399,"",DA=IBIFN,DR=""112////""_IBCDFN"
^XMB(3.9,57,2,379,0)="""RTN"",""IBACUS2"",70,0)"
^XMB(3.9,57,2,380,0)=" D ^DIE K DA,DR,DIE,DGRVRCAL"
^XMB(3.9,57,2,381,0)="""RTN"",""IBACUS2"",71,0)"
^XMB(3.9,57,2,382,0)=" ;"
^XMB(3.9,57,2,383,0)="""RTN"",""IBACUS2"",72,0)"
^XMB(3.9,57,2,384,0)=" ; - add charge to the claim"
^XMB(3.9,57,2,385,0)="""RTN"",""IBACUS2"",73,0)"
^XMB(3.9,57,2,386,0)=" S IBRVCD=$P($G(^DIC(36,IBINS,0)),""^"",15) ;                                      rx refill rev code"
^XMB(3.9,57,2,387,0)="""RTN"",""IBACUS2"",74,0)"
^XMB(3.9,57,2,388,0)=" I IBRVCD="""" S IBRVCD=$P($G(^IBE(363.1,+$P($G(^IBE(350.9,1,9)),U,12),0)),U,5) ;  CS def rev code"
^XMB(3.9,57,2,389,0)="""RTN"",""IBACUS2"",75,0)"
^XMB(3.9,57,2,390,0)=" I IBRVCD="""" S X=250 ;                                                           gen'l rx rev code"
^XMB(3.9,57,2,391,0)="""RTN"",""IBACUS2"",76,0)"
^XMB(3.9,57,2,392,0)=" ;"
^XMB(3.9,57,2,393,0)="""RTN"",""IBACUS2"",77,0)"
^XMB(3.9,57,2,394,0)=" S IBBS=$P($G(^IBE(363.1,+$P($G(^IBE(350.9,1,9)),U,12),0)),U,6) ;                CS def bedsection"
^XMB(3.9,57,2,395,0)="""RTN"",""IBACUS2"",78,0)"
^XMB(3.9,57,2,396,0)=" S IBUNITS=1 ;                                    one unit"
^XMB(3.9,57,2,397,0)="""RTN"",""IBACUS2"",79,0)"
^XMB(3.9,57,2,398,0)=" S IBCPT=$P($G(^IBE(350.9,1,1)),""^"",30) ;         def rx refill cpt"
^XMB(3.9,57,2,399,0)="""RTN"",""IBACUS2"",80,0)"
^XMB(3.9,57,2,400,0)=" S IBDIV="""" ;                                     division"
^XMB(3.9,57,2,401,0)="""RTN"",""IBACUS2"",81,0)"
^XMB(3.9,57,2,402,0)=" S IBAA=0 ;                                       not auto calc charges"
^XMB(3.9,57,2,403,0)="""RTN"",""IBACUS2"",82,0)"
^XMB(3.9,57,2,404,0)=" S IBTYPE=3 ;                                     rx type"
^XMB(3.9,57,2,405,0)="""RTN"",""IBACUS2"",83,0)"
^XMB(3.9,57,2,406,0)=" S IBITEM="""" ;                                    charge item link"
^XMB(3.9,57,2,407,0)="""RTN"",""IBACUS2"",84,0)"
^XMB(3.9,57,2,408,0)=" ;"
^XMB(3.9,57,2,409,0)="""RTN"",""IBACUS2"",85,0)"
^XMB(3.9,57,2,410,0)=" ;"
^XMB(3.9,57,2,411,0)="""RTN"",""IBACUS2"",86,0)"
^XMB(3.9,57,2,412,0)=" S X=$$ADDRC^IBCRBF(IBIFN,IBRVCD,IBBS,IBAMT,IBUNITS,IBCPT,IBDIV,IBAA,IBTYPE,IBITEM)"
^XMB(3.9,57,2,413,0)="""RTN"",""IBACUS2"",87,0)"
^XMB(3.9,57,2,414,0)=" I X<0 S IBY=""-1^^Unable to add Revenue Code charge to claim."" G BILLQ"
^XMB(3.9,57,2,415,0)="""RTN"",""IBACUS2"",88,0)"
^XMB(3.9,57,2,416,0)=" ;"
^XMB(3.9,57,2,417,0)="""RTN"",""IBACUS2"",89,0)"
^XMB(3.9,57,2,418,0)=" ; - update the authorize/print fields"
^XMB(3.9,57,2,419,0)="""RTN"",""IBACUS2"",90,0)"
^XMB(3.9,57,2,420,0)=" S DIE=""^DGCR(399,"",DA=IBIFN,DR=""9////1"" D ^DIE K DA,DR,DIE"
^XMB(3.9,57,2,421,0)="""RTN"",""IBACUS2"",91,0)"
^XMB(3.9,57,2,422,0)=" S DIE=""^DGCR(399,"",DA=IBIFN,DR=""12////""_DT D ^DIE K DA,DR,DIE"
^XMB(3.9,57,2,423,0)="""RTN"",""IBACUS2"",92,0)"
^XMB(3.9,57,2,424,0)=" ;"
^XMB(3.9,57,2,425,0)="""RTN"",""IBACUS2"",93,0)"
^XMB(3.9,57,2,426,0)=" ; - pass the claim to AR"
^XMB(3.9,57,2,427,0)="""RTN"",""IBACUS2"",94,0)"
^XMB(3.9,57,2,428,0)=" D GVAR^IBCBB,ARRAY^IBCBB1,^PRCASVC6,REL^PRCASVC:PRCASV(""OKAY"")"
^XMB(3.9,57,2,429,0)="""RTN"",""IBACUS2"",95,0)"
^XMB(3.9,57,2,430,0)=" I 'PRCASV(""OKAY"") S IBY=""-1^^Unable to establish receivable in AR."" G BILLQ"
^XMB(3.9,57,2,431,0)="""RTN"",""IBACUS2"",96,0)"
^XMB(3.9,57,2,432,0)=" ;"
^XMB(3.9,57,2,433,0)="""RTN"",""IBACUS2"",97,0)"
^XMB(3.9,57,2,434,0)=" ; - update the rx transaction file (#351.5)"
^XMB(3.9,57,2,435,0)="""RTN"",""IBACUS2"",98,0)"
^XMB(3.9,57,2,436,0)=" S DA=IBCHTRN,DIE=""^IBA(351.5,"",DR="".09////""_IBIFN D ^DIE K DA,DIE,DR"
^XMB(3.9,57,2,437,0)="""RTN"",""IBACUS2"",99,0)"
^XMB(3.9,57,2,438,0)=" ;"
^XMB(3.9,57,2,439,0)="""RTN"",""IBACUS2"",100,0)"
^XMB(3.9,57,2,440,0)=" ; - update the AR status to Active"
^XMB(3.9,57,2,441,0)="""RTN"",""IBACUS2"",101,0)"
^XMB(3.9,57,2,442,0)=" S PRCASV(""STATUS"")=16"
^XMB(3.9,57,2,443,0)="""RTN"",""IBACUS2"",102,0)"
^XMB(3.9,57,2,444,0)=" D STATUS^PRCASVC1"
^XMB(3.9,57,2,445,0)="""RTN"",""IBACUS2"",103,0)"
^XMB(3.9,57,2,446,0)=" ;"
^XMB(3.9,57,2,447,0)="""RTN"",""IBACUS2"",104,0)"
^XMB(3.9,57,2,448,0)="BILLQ I IBY<0 D ERRMSG^IBACVA2(1,2)"
^XMB(3.9,57,2,449,0)="""RTN"",""IBACUS2"",105,0)"
^XMB(3.9,57,2,450,0)=" K IBRVCD,IBBS,IBUNITS,IBCPT,IBDIV,IBAA,IBTYPE,IBITEM,IBAMT"
^XMB(3.9,57,2,451,0)="""RTN"",""IBACUS2"",106,0)"
^XMB(3.9,57,2,452,0)=" K IBSERV,IBFAC,IBSITE,IBDRX,IB,IBCDFN,IBINS,IBIDS,IBIFN,IBDFN"
^XMB(3.9,57,2,453,0)="""RTN"",""IBACUS2"",107,0)"
^XMB(3.9,57,2,454,0)=" K PRCASV,PRCAERR"
^XMB(3.9,57,2,455,0)="""RTN"",""IBACUS2"",108,0)"
^XMB(3.9,57,2,456,0)=" Q"
^XMB(3.9,57,2,457,0)="""RTN"",""IBACUS2"",109,0)"
^XMB(3.9,57,2,458,0)=" ;"
^XMB(3.9,57,2,459,0)="""RTN"",""IBACUS2"",110,0)"
^XMB(3.9,57,2,460,0)=" ;"
^XMB(3.9,57,2,461,0)="""RTN"",""IBACUS2"",111,0)"
^XMB(3.9,57,2,462,0)="CANC(IBCHTRN) ; Cancel the claim to the Fiscal Intermediary."
^XMB(3.9,57,2,463,0)="""RTN"",""IBACUS2"",112,0)"
^XMB(3.9,57,2,464,0)=" ;  Input:  IBCHTRN  --  Pointer to the transaction entry in file #351.5"
^XMB(3.9,57,2,465,0)="""RTN"",""IBACUS2"",113,0)"
^XMB(3.9,57,2,466,0)=" ;"
^XMB(3.9,57,2,467,0)="""RTN"",""IBACUS2"",114,0)"
^XMB(3.9,57,2,468,0)=" S IBIFN=+$P($G(^IBA(351.5,IBCHTRN,0)),""^"",9)"
^XMB(3.9,57,2,469,0)="""RTN"",""IBACUS2"",115,0)"
^XMB(3.9,57,2,470,0)=" I 'IBIFN G CANCQ"
^XMB(3.9,57,2,471,0)="""RTN"",""IBACUS2"",116,0)"
^XMB(3.9,57,2,472,0)=" F I=0,""S"" S IB(I)=$G(^DGCR(399,IBIFN,I))"
^XMB(3.9,57,2,473,0)="""RTN"",""IBACUS2"",117,0)"
^XMB(3.9,57,2,474,0)=" I IB(0)="""" G CANCQ"
^XMB(3.9,57,2,475,0)="""RTN"",""IBACUS2"",118,0)"
^XMB(3.9,57,2,476,0)=" I +$P(IB(""S""),U,16),$P(IB(""S""),U,17)]"""" G CANCQ"
^XMB(3.9,57,2,477,0)="""RTN"",""IBACUS2"",119,0)"
^XMB(3.9,57,2,478,0)=" ;"
^XMB(3.9,57,2,479,0)="""RTN"",""IBACUS2"",120,0)"
^XMB(3.9,57,2,480,0)=" S DA=IBIFN,DR=""16////1;19////PRESCRIPTION REVERSED"",DIE=""^DGCR(399,"""
^XMB(3.9,57,2,481,0)="""RTN"",""IBACUS2"",121,0)"
^XMB(3.9,57,2,482,0)=" D ^DIE K DA,DIE,DR"
^XMB(3.9,57,2,483,0)="""RTN"",""IBACUS2"",122,0)"
^XMB(3.9,57,2,484,0)=" ;"
^XMB(3.9,57,2,485,0)="""RTN"",""IBACUS2"",123,0)"
^XMB(3.9,57,2,486,0)=" ; - decrease out the receivable in AR"
^XMB(3.9,57,2,487,0)="""RTN"",""IBACUS2"",124,0)"
^XMB(3.9,57,2,488,0)=" S DFN=+$P(IB(0),""^"",2)"
^XMB(3.9,57,2,489,0)="""RTN"",""IBACUS2"",125,0)"
^XMB(3.9,57,2,490,0)=" S IB(""U1"")=$G(^DGCR(399,IBIFN,""U1""))"
^XMB(3.9,57,2,491,0)="""RTN"",""IBACUS2"",126,0)"
^XMB(3.9,57,2,492,0)=" S IBIL=$P($G(^PRCA(430,IBIFN,0)),""^"")"
^XMB(3.9,57,2,493,0)="""RTN"",""IBACUS2"",127,0)"
^XMB(3.9,57,2,494,0)=" S IBCHG=$S(IB(""U1"")']"""":0,$P(IB(""U1""),""^"",1)]"""":$P(IB(""U1""),""^"",1),1:0)"
^XMB(3.9,57,2,495,0)="""RTN"",""IBACUS2"",128,0)"
^XMB(3.9,57,2,496,0)=" S IBCRES=""TRICARE PRESCRIPTION REVERSED"""
^XMB(3.9,57,2,497,0)="""RTN"",""IBACUS2"",129,0)"
^XMB(3.9,57,2,498,0)=" ;"
^XMB(3.9,57,2,499,0)="""RTN"",""IBACUS2"",130,0)"
^XMB(3.9,57,2,500,0)=" S X=""21^""_IBCHG_""^""_IBIL_""^""_$S('DUZ:.5,1:DUZ)_""^""_DT_""^""_IBCRES ; *341"
^XMB(3.9,57,2,501,0)="""RTN"",""IBACUS2"",131,0)"
^XMB(3.9,57,2,502,0)=" D ^PRCASER1"
^XMB(3.9,57,2,503,0)="""RTN"",""IBACUS2"",132,0)"
^XMB(3.9,57,2,504,0)=" I Y<0 S IBY=Y D BULL"
^XMB(3.9,57,2,505,0)="""RTN"",""IBACUS2"",133,0)"
^XMB(3.9,57,2,506,0)=" ;"
^XMB(3.9,57,2,507,0)="""RTN"",""IBACUS2"",134,0)"
^XMB(3.9,57,2,508,0)="CANCQ K DFN,IBIFN,IB,IBIL,IBCHG,IBCRES,IBY,X,Y"
^XMB(3.9,57,2,509,0)="""RTN"",""IBACUS2"",135,0)"
^XMB(3.9,57,2,510,0)=" Q"
^XMB(3.9,57,2,511,0)="""RTN"",""IBACUS2"",136,0)"
^XMB(3.9,57,2,512,0)=" ;"
^XMB(3.9,57,2,513,0)="""RTN"",""IBACUS2"",137,0)"
^XMB(3.9,57,2,514,0)=" ;"
^XMB(3.9,57,2,515,0)="""RTN"",""IBACUS2"",138,0)"
^XMB(3.9,57,2,516,0)="BULL ; Generate a bulletin if there is an error in canceling the claim."
^XMB(3.9,57,2,517,0)="""RTN"",""IBACUS2"",139,0)"
^XMB(3.9,57,2,518,0)=" K IBT S IBPT=$$PT^IBEFUNC(DFN)"
^XMB(3.9,57,2,519,0)="""RTN"",""IBACUS2"",140,0)"
^XMB(3.9,57,2,520,0)=" S XMSUB=$E($P(IBPT,""^""),1,14)_""  ""_$P(IBPT,""^"",3)_"" - ERROR ENCOUNTERED"""
^XMB(3.9,57,2,521,0)="""RTN"",""IBACUS2"",141,0)"
^XMB(3.9,57,2,522,0)=" S XMDUZ=""INTEGRATED BILLING PACKAGE"",XMTEXT=""IBT("""
^XMB(3.9,57,2,523,0)="""RTN"",""IBACUS2"",142,0)"
^XMB(3.9,57,2,524,0)=" S XMY(DUZ)="""""
^XMB(3.9,57,2,525,0)="""RTN"",""IBACUS2"",143,0)"
^XMB(3.9,57,2,526,0)=" S IBGRP=$P($G(^XMB(3.8,+$P($G(^IBE(350.9,1,1)),""^"",7),0)),""^"")"
^XMB(3.9,57,2,527,0)="""RTN"",""IBACUS2"",144,0)"
^XMB(3.9,57,2,528,0)=" I IBGRP]"""" S XMY(""G.""_IBGRP_""@""_^XMB(""NETNAME""))="""""
^XMB(3.9,57,2,529,0)="""RTN"",""IBACUS2"",145,0)"
^XMB(3.9,57,2,530,0)=" ;"
^XMB(3.9,57,2,531,0)="""RTN"",""IBACUS2"",146,0)"
^XMB(3.9,57,2,532,0)=" S IBT(1)=""An error occurred while cancelling the Pharmacy claim to the TRICARE"""
^XMB(3.9,57,2,533,0)="""RTN"",""IBACUS2"",147,0)"
^XMB(3.9,57,2,534,0)=" S IBT(2)=""fiscal intermediary for the following patient:"""
^XMB(3.9,57,2,535,0)="""RTN"",""IBACUS2"",148,0)"
^XMB(3.9,57,2,536,0)=" S IBT(3)="" "" S IBC=3"
^XMB(3.9,57,2,537,0)="""RTN"",""IBACUS2"",149,0)"
^XMB(3.9,57,2,538,0)=" S IBDUZ=DUZ D PAT^IBAERR1"
^XMB(3.9,57,2,539,0)="""RTN"",""IBACUS2"",150,0)"
^XMB(3.9,57,2,540,0)=" S IBC=IBC+1,IBT(IBC)=""   Bill #: ""_IBIL"
^XMB(3.9,57,2,541,0)="""RTN"",""IBACUS2"",151,0)"
^XMB(3.9,57,2,542,0)=" S IBC=IBC+1,IBT(IBC)="" """
^XMB(3.9,57,2,543,0)="""RTN"",""IBACUS2"",152,0)"
^XMB(3.9,57,2,544,0)=" S IBC=IBC+1,IBT(IBC)=""The following error was encountered:"""
^XMB(3.9,57,2,545,0)="""RTN"",""IBACUS2"",153,0)"
^XMB(3.9,57,2,546,0)=" S IBC=IBC+1,IBT(IBC)="" """
^XMB(3.9,57,2,547,0)="""RTN"",""IBACUS2"",154,0)"
^XMB(3.9,57,2,548,0)=" D ERR^IBAERR1"
^XMB(3.9,57,2,549,0)="""RTN"",""IBACUS2"",155,0)"
^XMB(3.9,57,2,550,0)=" S IBC=IBC+1,IBT(IBC)="" """
^XMB(3.9,57,2,551,0)="""RTN"",""IBACUS2"",156,0)"
^XMB(3.9,57,2,552,0)=" S IBC=IBC+1,IBT(IBC)=""Please review the circumstances surrounding this error and decrease"""
^XMB(3.9,57,2,553,0)="""RTN"",""IBACUS2"",157,0)"
^XMB(3.9,57,2,554,0)=" S IBC=IBC+1,IBT(IBC)=""out this receivable in Accounts Receivable if necessary."""
^XMB(3.9,57,2,555,0)="""RTN"",""IBACUS2"",158,0)"
^XMB(3.9,57,2,556,0)=" ;"
^XMB(3.9,57,2,557,0)="""RTN"",""IBACUS2"",159,0)"
^XMB(3.9,57,2,558,0)=" D ^XMD"
^XMB(3.9,57,2,559,0)="""RTN"",""IBACUS2"",160,0)"
^XMB(3.9,57,2,560,0)=" K IBC,IBDUZ,IBT,IBPT,IBGRP,XMDUZ,XMTEXT,XMSUB,XMY"
^XMB(3.9,57,2,561,0)="""RTN"",""IBACUS2"",161,0)"
^XMB(3.9,57,2,562,0)=" Q"
^XMB(3.9,57,2,563,0)="""RTN"",""IBAMTS"")"
^XMB(3.9,57,2,564,0)="0^4^B18301561^B17712149"
^XMB(3.9,57,2,565,0)="""RTN"",""IBAMTS"",1,0)"
^XMB(3.9,57,2,566,0)="IBAMTS ;ALB/CPM - APPOINTMENT EVENT DRIVER INTERFACE ;20-JUL-93"
^XMB(3.9,57,2,567,0)="""RTN"",""IBAMTS"",2,0)"
^XMB(3.9,57,2,568,0)=" ;;2.0;INTEGRATED BILLING;**52,115,132,153,164,156,171,247,312,341**;21-MAR-94"
^XMB(3.9,57,2,569,0)="""RTN"",""IBAMTS"",3,0)"
^XMB(3.9,57,2,570,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,57,2,571,0)="""RTN"",""IBAMTS"",4,0)"
^XMB(3.9,57,2,572,0)=" ;"
^XMB(3.9,57,2,573,0)="""RTN"",""IBAMTS"",5,0)"
^XMB(3.9,57,2,574,0)="EN ; Main interface entry point."
^XMB(3.9,57,2,575,0)="""RTN"",""IBAMTS"",6,0)"
^XMB(3.9,57,2,576,0)=" ;"
^XMB(3.9,57,2,577,0)="""RTN"",""IBAMTS"",7,0)"
^XMB(3.9,57,2,578,0)=" N IBSWINFO S IBSWINFO=$$SWSTAT^IBBAPI()                   ;IB*2.0*312"
^XMB(3.9,57,2,579,0)="""RTN"",""IBAMTS"",8,0)"
^XMB(3.9,57,2,580,0)=" I '$G(DUZ) D DUZ^XUP(.5)                                  ;IB*2.0*341 Setting of DUZ covered by IA 4129"
^XMB(3.9,57,2,581,0)="""RTN"",""IBAMTS"",9,0)"
^XMB(3.9,57,2,582,0)=" ;"
^XMB(3.9,57,2,583,0)="""RTN"",""IBAMTS"",10,0)"
^XMB(3.9,57,2,584,0)=" S IBJOB=5,IBWHER="""",IBDUZ=DUZ,IBY=1"
^XMB(3.9,57,2,585,0)="""RTN"",""IBAMTS"",11,0)"
^XMB(3.9,57,2,586,0)=" ; Do Transfer Pricing"
^XMB(3.9,57,2,587,0)="""RTN"",""IBAMTS"",12,0)"
^XMB(3.9,57,2,588,0)=" I '+IBSWINFO D ^IBATEO                                    ;IB*2.0*312"
^XMB(3.9,57,2,589,0)="""RTN"",""IBAMTS"",13,0)"
^XMB(3.9,57,2,590,0)=" ; Check Encounter Related to LTC"
^XMB(3.9,57,2,591,0)="""RTN"",""IBAMTS"",14,0)"
^XMB(3.9,57,2,592,0)=" N IBALTC D EN^IBAECO"
^XMB(3.9,57,2,593,0)="""RTN"",""IBAMTS"",15,0)"
^XMB(3.9,57,2,594,0)=" I '$$BILST^DGMTUB(DFN) G ENQ ; never Means Test billable"
^XMB(3.9,57,2,595,0)="""RTN"",""IBAMTS"",16,0)"
^XMB(3.9,57,2,596,0)=" I '$$CHECK^IBECEAU(0) D ^IBAERR1 G ENQ ; can't set vital parameters"
^XMB(3.9,57,2,597,0)="""RTN"",""IBAMTS"",17,0)"
^XMB(3.9,57,2,598,0)=" ;"
^XMB(3.9,57,2,599,0)="""RTN"",""IBAMTS"",18,0)"
^XMB(3.9,57,2,600,0)=" ; - process all parent outpatient encounters"
^XMB(3.9,57,2,601,0)="""RTN"",""IBAMTS"",19,0)"
^XMB(3.9,57,2,602,0)=" S IBORG=0 F  S IBORG=$O(^TMP(""SDEVT"",$J,SDHDL,IBORG)) Q:'IBORG  D"
^XMB(3.9,57,2,603,0)="""RTN"",""IBAMTS"",20,0)"
^XMB(3.9,57,2,604,0)=" .S IBOE=0 F  S IBOE=$O(^TMP(""SDEVT"",$J,SDHDL,IBORG,""SDOE"",IBOE)) Q:'IBOE  S IBEVT=$G(^(IBOE,0,""AFTER"")),IBEV0=$G(^(""BEFORE"")) D"
^XMB(3.9,57,2,605,0)="""RTN"",""IBAMTS"",21,0)"
^XMB(3.9,57,2,606,0)=" ..;"
^XMB(3.9,57,2,607,0)="""RTN"",""IBAMTS"",22,0)"
^XMB(3.9,57,2,608,0)=" ..S IBDT=$S(IBEVT:+IBEVT,1:+IBEV0),IBDAT=$P(IBDT,""."")"
^XMB(3.9,57,2,609,0)="""RTN"",""IBAMTS"",23,0)"
^XMB(3.9,57,2,610,0)=" ..; Do NOT PROCESS on VistA if IBDAT>=Switch Eff Date    ;CCR-930"
^XMB(3.9,57,2,611,0)="""RTN"",""IBAMTS"",24,0)"
^XMB(3.9,57,2,612,0)=" ..I +IBSWINFO,(IBDAT+1)>$P(IBSWINFO,""^"",2) Q             ;IB*2.0*312"
^XMB(3.9,57,2,613,0)="""RTN"",""IBAMTS"",25,0)"
^XMB(3.9,57,2,614,0)=" ..;"
^XMB(3.9,57,2,615,0)="""RTN"",""IBAMTS"",26,0)"
^XMB(3.9,57,2,616,0)=" ..S IBAPTY=$S(IBEVT:$P(IBEVT,""^"",10),1:$P(IBEV0,""^"",10))"
^XMB(3.9,57,2,617,0)="""RTN"",""IBAMTS"",27,0)"
^XMB(3.9,57,2,618,0)=" ..S IBBILLED=$$BFO^IBECEAU(DFN,IBDAT),IBY=1"
^XMB(3.9,57,2,619,0)="""RTN"",""IBAMTS"",28,0)"
^XMB(3.9,57,2,620,0)=" ..;"
^XMB(3.9,57,2,621,0)="""RTN"",""IBAMTS"",29,0)"
^XMB(3.9,57,2,622,0)=" ..; - if C&P encounter, cancel charges for the day and quit"
^XMB(3.9,57,2,623,0)="""RTN"",""IBAMTS"",30,0)"
^XMB(3.9,57,2,624,0)=" ..I IBAPTY=1!(IBALTC) D:IBBILLED  Q"
^XMB(3.9,57,2,625,0)="""RTN"",""IBAMTS"",31,0)"
^XMB(3.9,57,2,626,0)=" ...S IBCRES=+$O(^IBE(350.3,""B"",$S(IBALTC:""BILLED LTC CHARGE"",1:""COMP & PENSION VISIT RECORDED""),0))"
^XMB(3.9,57,2,627,0)="""RTN"",""IBAMTS"",32,0)"
^XMB(3.9,57,2,628,0)=" ...S:'IBCRES IBCRES=23 S IBWHER="""""
^XMB(3.9,57,2,629,0)="""RTN"",""IBAMTS"",33,0)"
^XMB(3.9,57,2,630,0)=" ...D CANCH^IBECEAU4(IBBILLED,IBCRES,0)"
^XMB(3.9,57,2,631,0)="""RTN"",""IBAMTS"",34,0)"
^XMB(3.9,57,2,632,0)=" ..;"
^XMB(3.9,57,2,633,0)="""RTN"",""IBAMTS"",35,0)"
^XMB(3.9,57,2,634,0)=" ..; - quit if there are any C&P encounters on the visit date"
^XMB(3.9,57,2,635,0)="""RTN"",""IBAMTS"",36,0)"
^XMB(3.9,57,2,636,0)=" ..Q:$$CNP^IBECEAU(DFN,IBDAT)"
^XMB(3.9,57,2,637,0)="""RTN"",""IBAMTS"",37,0)"
^XMB(3.9,57,2,638,0)=" ..;"
^XMB(3.9,57,2,639,0)="""RTN"",""IBAMTS"",38,0)"
^XMB(3.9,57,2,640,0)=" ..; - quit if there are any LTC encounters on the visit date"
^XMB(3.9,57,2,641,0)="""RTN"",""IBAMTS"",39,0)"
^XMB(3.9,57,2,642,0)=" ..Q:$$LTCENC^IBAECU(DFN,IBDAT)"
^XMB(3.9,57,2,643,0)="""RTN"",""IBAMTS"",40,0)"
^XMB(3.9,57,2,644,0)=" ..;"
^XMB(3.9,57,2,645,0)="""RTN"",""IBAMTS"",41,0)"
^XMB(3.9,57,2,646,0)=" ..; - don't process child events"
^XMB(3.9,57,2,647,0)="""RTN"",""IBAMTS"",42,0)"
^XMB(3.9,57,2,648,0)=" ..I IBEVT]"""" Q:$P(IBEVT,""^"",6)"
^XMB(3.9,57,2,649,0)="""RTN"",""IBAMTS"",43,0)"
^XMB(3.9,57,2,650,0)=" ..I IBEVT="""",IBEV0]"""" Q:$P(IBEV0,""^"",6)"
^XMB(3.9,57,2,651,0)="""RTN"",""IBAMTS"",44,0)"
^XMB(3.9,57,2,652,0)=" ..;"
^XMB(3.9,57,2,653,0)="""RTN"",""IBAMTS"",45,0)"
^XMB(3.9,57,2,654,0)=" ..; - get statuses"
^XMB(3.9,57,2,655,0)="""RTN"",""IBAMTS"",46,0)"
^XMB(3.9,57,2,656,0)=" ..S IBAST=+$P(IBEVT,""^"",12),IBBST=+$P(IBEV0,""^"",12)"
^XMB(3.9,57,2,657,0)="""RTN"",""IBAMTS"",47,0)"
^XMB(3.9,57,2,658,0)=" ..;"
^XMB(3.9,57,2,659,0)="""RTN"",""IBAMTS"",48,0)"
^XMB(3.9,57,2,660,0)=" ..; - do either NEW or UPDATED processing"
^XMB(3.9,57,2,661,0)="""RTN"",""IBAMTS"",49,0)"
^XMB(3.9,57,2,662,0)=" ..I IBAST=2,IBBST'=2 D NEW^IBAMTS1 Q"
^XMB(3.9,57,2,663,0)="""RTN"",""IBAMTS"",50,0)"
^XMB(3.9,57,2,664,0)=" ..D UPD^IBAMTS2"
^XMB(3.9,57,2,665,0)="""RTN"",""IBAMTS"",51,0)"
^XMB(3.9,57,2,666,0)=" ;"
^XMB(3.9,57,2,667,0)="""RTN"",""IBAMTS"",52,0)"
^XMB(3.9,57,2,668,0)="ENQ K IBJOB,IBWHER,IBORG,IBOE,IBEVT,IBEV0,IBAST,IBBST,IBDUZ,IBY"
^XMB(3.9,57,2,669,0)="""RTN"",""IBAMTS"",53,0)"
^XMB(3.9,57,2,670,0)=" K IBDT,IBDAT,IBAPTY,IBBILLED,IBSERV,IBSITE,IBFAC,IBCRES,IBRTED"
^XMB(3.9,57,2,671,0)="""RTN"",""IBAMTS"",54,0)"
^XMB(3.9,57,2,672,0)=" Q"
^XMB(3.9,57,2,673,0)="""RTN"",""IBAMTS"",55,0)"
^XMB(3.9,57,2,674,0)=" ;"
^XMB(3.9,57,2,675,0)="""RTN"",""IBAMTS"",56,0)"
^XMB(3.9,57,2,676,0)="BULL ; Send bulletin when classified patients are billed stops which"
^XMB(3.9,57,2,677,0)="""RTN"",""IBAMTS"",57,0)"
^XMB(3.9,57,2,678,0)=" ; are exempt from the classification process."
^XMB(3.9,57,2,679,0)="""RTN"",""IBAMTS"",58,0)"
^XMB(3.9,57,2,680,0)=" N IBT,IBC,IBPT,IBDUZ,IBX S IBPT=$$PT^IBEFUNC(DFN),IBX=$$CLTY"
^XMB(3.9,57,2,681,0)="""RTN"",""IBAMTS"",59,0)"
^XMB(3.9,57,2,682,0)=" S XMSUB=""CHARGE FOR STOP CODE EXEMPT FROM CLASSIFICATION"""
^XMB(3.9,57,2,683,0)="""RTN"",""IBAMTS"",60,0)"
^XMB(3.9,57,2,684,0)=" S IBT(1)=""The following patient, who ""_$S(IBX=""SC"":""has a service connected disability,"",IBX=""CV"":""is Combat Veteran"",1:""has claimed exposure to ""_IBX_"","")"
^XMB(3.9,57,2,685,0)="""RTN"",""IBAMTS"",61,0)"
^XMB(3.9,57,2,686,0)=" S IBT(2)=""was billed the Means Test outpatient copay for a stop code which is"""
^XMB(3.9,57,2,687,0)="""RTN"",""IBAMTS"",62,0)"
^XMB(3.9,57,2,688,0)=" S IBT(3)=""exempt from classification:"""
^XMB(3.9,57,2,689,0)="""RTN"",""IBAMTS"",63,0)"
^XMB(3.9,57,2,690,0)=" S IBT(4)="" "" S IBC=4"
^XMB(3.9,57,2,691,0)="""RTN"",""IBAMTS"",64,0)"
^XMB(3.9,57,2,692,0)=" S IBDUZ=DUZ D PAT^IBAERR1"
^XMB(3.9,57,2,693,0)="""RTN"",""IBAMTS"",65,0)"
^XMB(3.9,57,2,694,0)=" S Y=IBDAT D DD^%DT"
^XMB(3.9,57,2,695,0)="""RTN"",""IBAMTS"",66,0)"
^XMB(3.9,57,2,696,0)=" S IBC=IBC+1,IBT(IBC)=""Stop Date: ""_Y"
^XMB(3.9,57,2,697,0)="""RTN"",""IBAMTS"",67,0)"
^XMB(3.9,57,2,698,0)=" S IBC=IBC+1,IBT(IBC)=""Stop Code: ""_$P($G(^DIC(40.7,+$P(IBEVT,""^"",3),0)),""^"")"
^XMB(3.9,57,2,699,0)="""RTN"",""IBAMTS"",68,0)"
^XMB(3.9,57,2,700,0)=" S IBC=IBC+1,IBT(IBC)="" """
^XMB(3.9,57,2,701,0)="""RTN"",""IBAMTS"",69,0)"
^XMB(3.9,57,2,702,0)=" S IBC=IBC+1,IBT(IBC)=""Please check this patient's medical record to determine if the care provided"""
^XMB(3.9,57,2,703,0)="""RTN"",""IBAMTS"",70,0)"
^XMB(3.9,57,2,704,0)=" S IBC=IBC+1,IBT(IBC)=""was related to the ""_$S(IBX=""SC"":""SC disability"",IBX=""CV"":""Combat Veteran status"",1:""claimed exposure"")_"", and, if related, cancel the charge."""
^XMB(3.9,57,2,705,0)="""RTN"",""IBAMTS"",71,0)"
^XMB(3.9,57,2,706,0)=" D MAIL^IBAERR1"
^XMB(3.9,57,2,707,0)="""RTN"",""IBAMTS"",72,0)"
^XMB(3.9,57,2,708,0)=" K X,Y,XMSUB,XMY,XMTEXT,XMDUZ"
^XMB(3.9,57,2,709,0)="""RTN"",""IBAMTS"",73,0)"
^XMB(3.9,57,2,710,0)=" Q"
^XMB(3.9,57,2,711,0)="""RTN"",""IBAMTS"",74,0)"
^XMB(3.9,57,2,712,0)=" ;"
^XMB(3.9,57,2,713,0)="""RTN"",""IBAMTS"",75,0)"
^XMB(3.9,57,2,714,0)="CLTY() ; Return the classification type"
^XMB(3.9,57,2,715,0)="""RTN"",""IBAMTS"",76,0)"
^XMB(3.9,57,2,716,0)=" N IBARR,Y D CL^SDCO21(DFN,IBDAT,"""",.IBARR) S Y="""""
^XMB(3.9,57,2,717,0)="""RTN"",""IBAMTS"",77,0)"
^XMB(3.9,57,2,718,0)=" I $D(IBARR(3)) S Y=""SC"" G CLTYQ"
^XMB(3.9,57,2,719,0)="""RTN"",""IBAMTS"",78,0)"
^XMB(3.9,57,2,720,0)=" I $D(IBARR(7)),+$$CVEDT^IBACV(DFN,IBDAT) S Y=""CV"" G CLTYQ"
^XMB(3.9,57,2,721,0)="""RTN"",""IBAMTS"",79,0)"
^XMB(3.9,57,2,722,0)=" I $D(IBARR(1)) S Y=""Agent Orange"" G CLTYQ"
^XMB(3.9,57,2,723,0)="""RTN"",""IBAMTS"",80,0)"
^XMB(3.9,57,2,724,0)=" I $D(IBARR(2)) S Y=""Ionizing Radiation"" G CLTYQ"
^XMB(3.9,57,2,725,0)="""RTN"",""IBAMTS"",81,0)"
^XMB(3.9,57,2,726,0)=" I $D(IBARR(4)) S Y=""Environmental Contaminants"" G CLTYQ"
^XMB(3.9,57,2,727,0)="""RTN"",""IBAMTS"",82,0)"
^XMB(3.9,57,2,728,0)=" I $D(IBARR(5)) S Y=""Military Sexual Trauma"" G CLTYQ"
^XMB(3.9,57,2,729,0)="""RTN"",""IBAMTS"",83,0)"
^XMB(3.9,57,2,730,0)=" I $D(IBARR(6)) S Y=""Head/Neck Cancer"" G CLTYQ"
^XMB(3.9,57,2,731,0)="""RTN"",""IBAMTS"",84,0)"
^XMB(3.9,57,2,732,0)="CLTYQ Q Y"
^XMB(3.9,57,2,733,0)="""RTN"",""IBECEAU3"")"
^XMB(3.9,57,2,734,0)="0^1^B6694889^B6414442"
^XMB(3.9,57,2,735,0)="""RTN"",""IBECEAU3"",1,0)"
^XMB(3.9,57,2,736,0)="IBECEAU3 ;ALB/CPM-Cancel/Edit/Add... Add New IB Action;11-MAR-93"
^XMB(3.9,57,2,737,0)="""RTN"",""IBECEAU3"",2,0)"
^XMB(3.9,57,2,738,0)=" ;;2.0;INTEGRATED BILLING;**132,150,167,183,341**;21-MAR-94"
^XMB(3.9,57,2,739,0)="""RTN"",""IBECEAU3"",3,0)"
^XMB(3.9,57,2,740,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,57,2,741,0)="""RTN"",""IBECEAU3"",4,0)"
^XMB(3.9,57,2,742,0)=" ;"
^XMB(3.9,57,2,743,0)="""RTN"",""IBECEAU3"",5,0)"
^XMB(3.9,57,2,744,0)="ADD ; Add a new Integrated Billing Action entry."
^XMB(3.9,57,2,745,0)="""RTN"",""IBECEAU3"",6,0)"
^XMB(3.9,57,2,746,0)=" ;   Input:     DFN  --  Pointer to patient in file #2"
^XMB(3.9,57,2,747,0)="""RTN"",""IBECEAU3"",7,0)"
^XMB(3.9,57,2,748,0)=" ;           IBATYP  --  Pointer to Action Type in file #350.1"
^XMB(3.9,57,2,749,0)="""RTN"",""IBECEAU3"",8,0)"
^XMB(3.9,57,2,750,0)=" ;           IBUNIT  --  Number of units of charge"
^XMB(3.9,57,2,751,0)="""RTN"",""IBECEAU3"",9,0)"
^XMB(3.9,57,2,752,0)=" ;            IBCHG  --  Total charge"
^XMB(3.9,57,2,753,0)="""RTN"",""IBECEAU3"",10,0)"
^XMB(3.9,57,2,754,0)=" ;           IBDESC  --  Charge description"
^XMB(3.9,57,2,755,0)="""RTN"",""IBECEAU3"",11,0)"
^XMB(3.9,57,2,756,0)=" ;           IBSITE  --  Pointer to the facility in file #4"
^XMB(3.9,57,2,757,0)="""RTN"",""IBECEAU3"",12,0)"
^XMB(3.9,57,2,758,0)=" ;            IBFAC  --  Facility number"
^XMB(3.9,57,2,759,0)="""RTN"",""IBECEAU3"",13,0)"
^XMB(3.9,57,2,760,0)=" ;             IBFR  --  Bill From date"
^XMB(3.9,57,2,761,0)="""RTN"",""IBECEAU3"",14,0)"
^XMB(3.9,57,2,762,0)=" ;             IBTO  --  Bill To date"
^XMB(3.9,57,2,763,0)="""RTN"",""IBECEAU3"",15,0)"
^XMB(3.9,57,2,764,0)=" ;             IBSL  --  Softlink  [OPTIONAL]"
^XMB(3.9,57,2,765,0)="""RTN"",""IBECEAU3"",16,0)"
^XMB(3.9,57,2,766,0)=" ;          IBPARNT  --  Pointer to parent entry in #350  [OPTIONAL]"
^XMB(3.9,57,2,767,0)="""RTN"",""IBECEAU3"",17,0)"
^XMB(3.9,57,2,768,0)=" ;           IBEVDA  --  Pointer to parent event in #350  [OPTIONAL], or"
^XMB(3.9,57,2,769,0)="""RTN"",""IBECEAU3"",18,0)"
^XMB(3.9,57,2,770,0)=" ;                   --  ""*"" to set ibevda=ibn"
^XMB(3.9,57,2,771,0)="""RTN"",""IBECEAU3"",19,0)"
^XMB(3.9,57,2,772,0)=" ;           IBEVDT  --  Event Date  [OPTIONAL]"
^XMB(3.9,57,2,773,0)="""RTN"",""IBECEAU3"",20,0)"
^XMB(3.9,57,2,774,0)=" ;             IBIL  --  Bill Number  [OPTIONAL]"
^XMB(3.9,57,2,775,0)="""RTN"",""IBECEAU3"",21,0)"
^XMB(3.9,57,2,776,0)=" ;           IBCRES  --  Pointer to canc. reason in #350.3  [OPTIONAL]"
^XMB(3.9,57,2,777,0)="""RTN"",""IBECEAU3"",22,0)"
^XMB(3.9,57,2,778,0)=" ;             IBXA  --  IB Action billing group  [OPTIONAL]"
^XMB(3.9,57,2,779,0)="""RTN"",""IBECEAU3"",23,0)"
^XMB(3.9,57,2,780,0)=" ;            IBJOB  --  Option being executed  [OPTIONAL]"
^XMB(3.9,57,2,781,0)="""RTN"",""IBECEAU3"",24,0)"
^XMB(3.9,57,2,782,0)=" ;            IBCVA  --  CHAMPVA Admission date [OPTIONAL]"
^XMB(3.9,57,2,783,0)="""RTN"",""IBECEAU3"",25,0)"
^XMB(3.9,57,2,784,0)=" ;         IBSTOPDA  --  Pointer to clinic stop entry in #352.5 [OPTIONAL]"
^XMB(3.9,57,2,785,0)="""RTN"",""IBECEAU3"",26,0)"
^XMB(3.9,57,2,786,0)=" ;                       (used for new outpatient appts created in IB)"
^XMB(3.9,57,2,787,0)="""RTN"",""IBECEAU3"",27,0)"
^XMB(3.9,57,2,788,0)=" ;           IBGMTR  --  GMT Related flag [OPTIONAL]"
^XMB(3.9,57,2,789,0)="""RTN"",""IBECEAU3"",28,0)"
^XMB(3.9,57,2,790,0)=" ;"
^XMB(3.9,57,2,791,0)="""RTN"",""IBECEAU3"",29,0)"
^XMB(3.9,57,2,792,0)=" ;  Output:     IBN  --  Internal number of new entry in file #350"
^XMB(3.9,57,2,793,0)="""RTN"",""IBECEAU3"",30,0)"
^XMB(3.9,57,2,794,0)=" ;"
^XMB(3.9,57,2,795,0)="""RTN"",""IBECEAU3"",31,0)"
^XMB(3.9,57,2,796,0)=" N DA,DIK,IBASTR,IBND,Y"
^XMB(3.9,57,2,797,0)="""RTN"",""IBECEAU3"",32,0)"
^XMB(3.9,57,2,798,0)=" D ADD^IBAUTL I Y<1 S IBY=Y G ADDQ"
^XMB(3.9,57,2,799,0)="""RTN"",""IBECEAU3"",33,0)"
^XMB(3.9,57,2,800,0)=" S:$G(IBEVDA)=""*"" IBEVDA=IBN"
^XMB(3.9,57,2,801,0)="""RTN"",""IBECEAU3"",34,0)"
^XMB(3.9,57,2,802,0)=" S IBND=DFN_""^""_IBATYP_""^""_$S($G(IBSL):IBSL,1:""350:""_IBN)_""^1^""_IBUNIT_""^""_IBCHG_""^""_IBDESC_""^""_$S($D(IBPARNT):IBPARNT,1:IBN)_""^""_$G(IBCRES)_""^""_$G(IBIL)_""^^""_IBFAC"
^XMB(3.9,57,2,803,0)="""RTN"",""IBECEAU3"",35,0)"
^XMB(3.9,57,2,804,0)=" I IBDESC[""RX COPAY"",$D(IBAM) S $P(IBND,""^"",18)=IBAM,$P(^IBAM(354.71,IBAM,0),""^"",6)=""350:""_IBN ; mark 354.71 entry back and forth"
^XMB(3.9,57,2,805,0)="""RTN"",""IBECEAU3"",36,0)"
^XMB(3.9,57,2,806,0)=" I IBDESC'[""RX COPAY"" S IBND=IBND_""^""_IBFR_""^""_IBTO_""^""_$G(IBEVDA)_$S($G(IBEVDT):""^""_IBEVDT,$G(IBXA)=1!($G(IBXA)=4)!($G(IBJOB)=5):""^""_IBFR,1:"""")"
^XMB(3.9,57,2,807,0)="""RTN"",""IBECEAU3"",37,0)"
^XMB(3.9,57,2,808,0)=" I $G(IBSTOPDA) S $P(IBND,""^"",19)=IBSTOPDA"
^XMB(3.9,57,2,809,0)="""RTN"",""IBECEAU3"",38,0)"
^XMB(3.9,57,2,810,0)=" S $P(^IB(IBN,0),""^"",2,20)=IBND"
^XMB(3.9,57,2,811,0)="""RTN"",""IBECEAU3"",39,0)"
^XMB(3.9,57,2,812,0)=" I $G(IBGMTR) S $P(^IB(IBN,0),""^"",21)=1 ; GMT Related"
^XMB(3.9,57,2,813,0)="""RTN"",""IBECEAU3"",40,0)"
^XMB(3.9,57,2,814,0)=" ; DUZ may be null if this code is called by a process started by an HL7 multi-threaded listener"
^XMB(3.9,57,2,815,0)="""RTN"",""IBECEAU3"",41,0)"
^XMB(3.9,57,2,816,0)=" ; if this condition occurs the approved fix is to use the Postmaster IEN.  2/27/06, IB*2.0*341"
^XMB(3.9,57,2,817,0)="""RTN"",""IBECEAU3"",42,0)"
^XMB(3.9,57,2,818,0)=" D NOW^%DTC S $P(^IB(IBN,1),""^"")=$S(DUZ:DUZ,1:.5),$P(^(1),""^"",3,5)=$S(DUZ:DUZ,1:.5)_""^""_%_$S($G(IBCVA):""^""_IBCVA,1:"""")"
^XMB(3.9,57,2,819,0)="""RTN"",""IBECEAU3"",43,0)"
^XMB(3.9,57,2,820,0)=" S DIK=""^IB("",DA=IBN D IX1^DIK"
^XMB(3.9,57,2,821,0)="""RTN"",""IBECEAU3"",44,0)"
^XMB(3.9,57,2,822,0)="ADDQ Q"
^XMB(3.9,57,2,823,0)="""RTN"",""IBECEAU3"",45,0)"
^XMB(3.9,57,2,824,0)=" ;"
^XMB(3.9,57,2,825,0)="""RTN"",""IBECEAU3"",46,0)"
^XMB(3.9,57,2,826,0)="CTBB ; Charge to be billed"
^XMB(3.9,57,2,827,0)="""RTN"",""IBECEAU3"",47,0)"
^XMB(3.9,57,2,828,0)=" ; Check Outpat. Fee Service less than 20% Outpat Co Pay"
^XMB(3.9,57,2,829,0)="""RTN"",""IBECEAU3"",48,0)"
^XMB(3.9,57,2,830,0)=" D:$G(IBAFEE) FEE^IBECEAU5 Q:IBY<1"
^XMB(3.9,57,2,831,0)="""RTN"",""IBECEAU3"",49,0)"
^XMB(3.9,57,2,832,0)=" W !!,""Charge to be billed --> $"",$J(IBCHG,0,2)"
^XMB(3.9,57,2,833,0)="""RTN"",""IBECEAU3"",50,0)"
^XMB(3.9,57,2,834,0)=" Q"
^XMB(3.9,57,2,835,0)="""RTN"",""IBECEAU3"",51,0)"
^XMB(3.9,57,2,836,0)=" ;"
^XMB(3.9,57,2,837,0)="""RTN"",""IBECEAU3"",52,0)"
^XMB(3.9,57,2,838,0)="NODED ; Could not determine the Medicare Deductible amount."
^XMB(3.9,57,2,839,0)="""RTN"",""IBECEAU3"",53,0)"
^XMB(3.9,57,2,840,0)=" W !,*7,""The Medicare Deductible Amount for "",$$DAT1^IBOUTL(IBCLDT),"" could not be determined."""
^XMB(3.9,57,2,841,0)="""RTN"",""IBECEAU3"",54,0)"
^XMB(3.9,57,2,842,0)=" W !,""You should determine the cause of this problem before proceeding."""
^XMB(3.9,57,2,843,0)="""RTN"",""IBECEAU3"",55,0)"
^XMB(3.9,57,2,844,0)=" S IBY=-1"
^XMB(3.9,57,2,845,0)="""RTN"",""IBECEAU3"",56,0)"
^XMB(3.9,57,2,846,0)=" Q"
^XMB(3.9,57,2,847,0)="""RTN"",""IBECEAU4"")"
^XMB(3.9,57,2,848,0)="0^2^B16312791^B16030662"
^XMB(3.9,57,2,849,0)="""RTN"",""IBECEAU4"",1,0)"
^XMB(3.9,57,2,850,0)="IBECEAU4 ;ALB/CPM - Cancel/Edit/Add... Cancel Utilities ; 23-APR-93"
^XMB(3.9,57,2,851,0)="""RTN"",""IBECEAU4"",2,0)"
^XMB(3.9,57,2,852,0)=" ;;2.0;INTEGRATED BILLING;**52,167,183,341**;21-MAR-94"
^XMB(3.9,57,2,853,0)="""RTN"",""IBECEAU4"",3,0)"
^XMB(3.9,57,2,854,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,57,2,855,0)="""RTN"",""IBECEAU4"",4,0)"
^XMB(3.9,57,2,856,0)=" ;"
^XMB(3.9,57,2,857,0)="""RTN"",""IBECEAU4"",5,0)"
^XMB(3.9,57,2,858,0)="CANCH(IBN,IBCRES,IBIND,IBCV) ; Cancel last transaction for a specific charge."
^XMB(3.9,57,2,859,0)="""RTN"",""IBECEAU4"",6,0)"
^XMB(3.9,57,2,860,0)=" ;  Input:    IBN   --  Charge to be cancelled"
^XMB(3.9,57,2,861,0)="""RTN"",""IBECEAU4"",7,0)"
^XMB(3.9,57,2,862,0)=" ;          IBCRES  --  Cancellation reason"
^XMB(3.9,57,2,863,0)="""RTN"",""IBECEAU4"",8,0)"
^XMB(3.9,57,2,864,0)=" ;           IBIND  --  1=>set MT bulletin flags; 0=>don't set flags"
^XMB(3.9,57,2,865,0)="""RTN"",""IBECEAU4"",9,0)"
^XMB(3.9,57,2,866,0)=" ;            IBCV  --  1=>use the CHAMPVA error bulletin"
^XMB(3.9,57,2,867,0)="""RTN"",""IBECEAU4"",10,0)"
^XMB(3.9,57,2,868,0)=" N IBY,IBHOLDN,IBND,IBPARNT,IBCANC,IBH,IBCANTR,IBXA,IBATYP,IBSEQNO,IBIL,IBUNIT,IBCHG"
^XMB(3.9,57,2,869,0)="""RTN"",""IBECEAU4"",11,0)"
^XMB(3.9,57,2,870,0)=" S (IBN,IBHOLDN)=$$LAST^IBECEAU($P(^IB(IBN,0),""^"",9)),IBY=1"
^XMB(3.9,57,2,871,0)="""RTN"",""IBECEAU4"",12,0)"
^XMB(3.9,57,2,872,0)=" D CED(IBN) I IBCANTR!(IBY<0) G CANCHQ"
^XMB(3.9,57,2,873,0)="""RTN"",""IBECEAU4"",13,0)"
^XMB(3.9,57,2,874,0)=" D CANC(IBN,IBCRES,1) I IBY<0 G CANCHQ"
^XMB(3.9,57,2,875,0)="""RTN"",""IBECEAU4"",14,0)"
^XMB(3.9,57,2,876,0)=" I $G(IBIND) S IBARR(DT,IBHOLDN)="""",(IBCANCEL,IBFND)=1"
^XMB(3.9,57,2,877,0)="""RTN"",""IBECEAU4"",15,0)"
^XMB(3.9,57,2,878,0)="CANCHQ I IBY<1 D @$S($G(IBCV):""ERRMSG^IBACVA2(0,1)"",1:""^IBAERR1"")"
^XMB(3.9,57,2,879,0)="""RTN"",""IBECEAU4"",16,0)"
^XMB(3.9,57,2,880,0)=" Q"
^XMB(3.9,57,2,881,0)="""RTN"",""IBECEAU4"",17,0)"
^XMB(3.9,57,2,882,0)=" ;"
^XMB(3.9,57,2,883,0)="""RTN"",""IBECEAU4"",18,0)"
^XMB(3.9,57,2,884,0)="CANC(IBCN,IBCRES,IBINC) ; Cancel a charge, after passing all edits"
^XMB(3.9,57,2,885,0)="""RTN"",""IBECEAU4"",19,0)"
^XMB(3.9,57,2,886,0)=" ; Input:    IBCN  --  Internal entry # of IB Action to cancel"
^XMB(3.9,57,2,887,0)="""RTN"",""IBECEAU4"",20,0)"
^XMB(3.9,57,2,888,0)=" ;          IBCRES --  Cancellation reason"
^XMB(3.9,57,2,889,0)="""RTN"",""IBECEAU4"",21,0)"
^XMB(3.9,57,2,890,0)=" ;           IBINC --  Try to cancel an incomplete charge? [optional]"
^XMB(3.9,57,2,891,0)="""RTN"",""IBECEAU4"",22,0)"
^XMB(3.9,57,2,892,0)=" N DA,DIK,IBCAN,IBSTOPDA,IBGMTR"
^XMB(3.9,57,2,893,0)="""RTN"",""IBECEAU4"",23,0)"
^XMB(3.9,57,2,894,0)=" S IBCAN=$G(^IB(IBCN,0))"
^XMB(3.9,57,2,895,0)="""RTN"",""IBECEAU4"",24,0)"
^XMB(3.9,57,2,896,0)=" ;"
^XMB(3.9,57,2,897,0)="""RTN"",""IBECEAU4"",25,0)"
^XMB(3.9,57,2,898,0)=" ; - handle incomplete transactions"
^XMB(3.9,57,2,899,0)="""RTN"",""IBECEAU4"",26,0)"
^XMB(3.9,57,2,900,0)=" I $G(IBINC) S:'$D(IBH) IBH='$P($G(^IBE(350.21,+$P(IBND,""^"",5),0)),""^"",4) I IBH D UPSTAT(IBCN,1) G CANCQ"
^XMB(3.9,57,2,901,0)="""RTN"",""IBECEAU4"",27,0)"
^XMB(3.9,57,2,902,0)=" ;"
^XMB(3.9,57,2,903,0)="""RTN"",""IBECEAU4"",28,0)"
^XMB(3.9,57,2,904,0)=" ; - handle regular transactions"
^XMB(3.9,57,2,905,0)="""RTN"",""IBECEAU4"",29,0)"
^XMB(3.9,57,2,906,0)=" S IBATYP=$P($G(^IBE(350.1,+$P(IBCAN,""^"",3),0)),""^"",6) I IBATYP="""" S IBY=""-1^IB022"" G CANCQ"
^XMB(3.9,57,2,907,0)="""RTN"",""IBECEAU4"",30,0)"
^XMB(3.9,57,2,908,0)=" S IBSEQNO=$P($G(^IBE(350.1,IBATYP,0)),""^"",5) I 'IBSEQNO S IBY=""-1^IB023"" G CANCQ"
^XMB(3.9,57,2,909,0)="""RTN"",""IBECEAU4"",31,0)"
^XMB(3.9,57,2,910,0)=" W:$G(IBJOB)=4 !!,""Building the cancellation transaction... """
^XMB(3.9,57,2,911,0)="""RTN"",""IBECEAU4"",32,0)"
^XMB(3.9,57,2,912,0)=" D ADD^IBAUTL I Y<1 S IBY=Y G CANCQ"
^XMB(3.9,57,2,913,0)="""RTN"",""IBECEAU4"",33,0)"
^XMB(3.9,57,2,914,0)=" S $P(IBCAN,""^"",3)=IBATYP,$P(IBCAN,""^"",5)=1,$P(IBCAN,""^"",10)=IBCRES,$P(IBCAN,""^"",12)="""""
^XMB(3.9,57,2,915,0)="""RTN"",""IBECEAU4"",34,0)"
^XMB(3.9,57,2,916,0)=" ;  if there is a clinic stop, move it over"
^XMB(3.9,57,2,917,0)="""RTN"",""IBECEAU4"",35,0)"
^XMB(3.9,57,2,918,0)=" S IBSTOPDA=$P(IBCAN,""^"",20)"
^XMB(3.9,57,2,919,0)="""RTN"",""IBECEAU4"",36,0)"
^XMB(3.9,57,2,920,0)=" S IBGMTR=$P(IBCAN,""^"",21) ; 'GMT RELATED' flag"
^XMB(3.9,57,2,921,0)="""RTN"",""IBECEAU4"",37,0)"
^XMB(3.9,57,2,922,0)=" S:IBXA'=5 IBCAN=$P(IBCAN,""^"",1,16)"
^XMB(3.9,57,2,923,0)="""RTN"",""IBECEAU4"",38,0)"
^XMB(3.9,57,2,924,0)=" S IBCAN=$P(IBCAN,""^"",1,17)"
^XMB(3.9,57,2,925,0)="""RTN"",""IBECEAU4"",39,0)"
^XMB(3.9,57,2,926,0)=" I IBSTOPDA S $P(IBCAN,""^"",20)=IBSTOPDA"
^XMB(3.9,57,2,927,0)="""RTN"",""IBECEAU4"",40,0)"
^XMB(3.9,57,2,928,0)=" S $P(^IB(IBN,0),""^"",2,20)=$P(IBCAN,""^"",2,20)"
^XMB(3.9,57,2,929,0)="""RTN"",""IBECEAU4"",41,0)"
^XMB(3.9,57,2,930,0)=" I IBGMTR S $P(^IB(IBN,0),""^"",21)=IBGMTR ; Set the 'GMT RELATED' flag"
^XMB(3.9,57,2,931,0)="""RTN"",""IBECEAU4"",42,0)"
^XMB(3.9,57,2,932,0)=" ; DUZ may be null if this code is called by a process started by an HL7 multi-threaded listener"
^XMB(3.9,57,2,933,0)="""RTN"",""IBECEAU4"",43,0)"
^XMB(3.9,57,2,934,0)=" ; if this condition occurs the approved fix is to use the Postmaster IEN.  2/27/06, IB*2.0*341"
^XMB(3.9,57,2,935,0)="""RTN"",""IBECEAU4"",44,0)"
^XMB(3.9,57,2,936,0)=" S $P(^IB(IBN,1),""^"")=$S(DUZ:DUZ,1:.5) ;"
^XMB(3.9,57,2,937,0)="""RTN"",""IBECEAU4"",45,0)"
^XMB(3.9,57,2,938,0)=" S DA=IBN,DIK=""^IB("" D IX1^DIK"
^XMB(3.9,57,2,939,0)="""RTN"",""IBECEAU4"",46,0)"
^XMB(3.9,57,2,940,0)=" W:$G(IBJOB)=4 "" .. "" D PASS"
^XMB(3.9,57,2,941,0)="""RTN"",""IBECEAU4"",47,0)"
^XMB(3.9,57,2,942,0)=" ;"
^XMB(3.9,57,2,943,0)="""RTN"",""IBECEAU4"",48,0)"
^XMB(3.9,57,2,944,0)=" ; - cancel original charge (if it was an updated transaction)"
^XMB(3.9,57,2,945,0)="""RTN"",""IBECEAU4"",49,0)"
^XMB(3.9,57,2,946,0)=" I $D(^IB(IBCN,0)),$P(^(0),""^"",5)'=10 D UPSTAT(IBCN)"
^XMB(3.9,57,2,947,0)="""RTN"",""IBECEAU4"",50,0)"
^XMB(3.9,57,2,948,0)="CANCQ Q"
^XMB(3.9,57,2,949,0)="""RTN"",""IBECEAU4"",51,0)"
^XMB(3.9,57,2,950,0)=" ;"
^XMB(3.9,57,2,951,0)="""RTN"",""IBECEAU4"",52,0)"
^XMB(3.9,57,2,952,0)="CED(IBN) ; Edits required to cancel a charge."
^XMB(3.9,57,2,953,0)="""RTN"",""IBECEAU4"",53,0)"
^XMB(3.9,57,2,954,0)=" ; Input:   IBN  --   Internal entry # of charge to be cancelled"
^XMB(3.9,57,2,955,0)="""RTN"",""IBECEAU4"",54,0)"
^XMB(3.9,57,2,956,0)=" S IBND=$G(^IB(IBN,0)) I 'IBND S IBY=""-1^IB021"" G CEDQ"
^XMB(3.9,57,2,957,0)="""RTN"",""IBECEAU4"",55,0)"
^XMB(3.9,57,2,958,0)=" S IBPARNT=+$P(IBND,""^"",9) I '$D(^IB(IBPARNT,0)) S IBY=""-1^IB027"" G CEDQ"
^XMB(3.9,57,2,959,0)="""RTN"",""IBECEAU4"",56,0)"
^XMB(3.9,57,2,960,0)=" I $$LAST^IBECEAU(IBPARNT)'=IBN S IBY=""-1^^You can only cancel the last transaction for an original charge."" G CEDQ"
^XMB(3.9,57,2,961,0)="""RTN"",""IBECEAU4"",57,0)"
^XMB(3.9,57,2,962,0)=" S IBCANC=$G(^IBE(350.1,+$P(IBND,""^"",3),0))"
^XMB(3.9,57,2,963,0)="""RTN"",""IBECEAU4"",58,0)"
^XMB(3.9,57,2,964,0)=" S IBH='$P($G(^IBE(350.21,+$P(IBND,""^"",5),0)),""^"",4),IBCANTR=$P(IBCANC,""^"",5)=2"
^XMB(3.9,57,2,965,0)="""RTN"",""IBECEAU4"",59,0)"
^XMB(3.9,57,2,966,0)=" S IBXA=$P(IBCANC,""^"",11),IBATYP=$P(IBCANC,""^"",6)"
^XMB(3.9,57,2,967,0)="""RTN"",""IBECEAU4"",60,0)"
^XMB(3.9,57,2,968,0)=" I '$D(^IBE(350.1,+IBATYP,0)) S IBY=""-1^IB022"" G CEDQ"
^XMB(3.9,57,2,969,0)="""RTN"",""IBECEAU4"",61,0)"
^XMB(3.9,57,2,970,0)=" S IBSEQNO=$P(^IBE(350.1,+IBATYP,0),""^"",5) I 'IBSEQNO S IBY=""-1^IB023"" G CEDQ"
^XMB(3.9,57,2,971,0)="""RTN"",""IBECEAU4"",62,0)"
^XMB(3.9,57,2,972,0)=" S IBIL=$P(IBND,""^"",11),IBUNIT=+$P(IBND,""^"",6),IBCHG=+$P(IBND,""^"",7),IBFR=$P(IBND,""^"",14)"
^XMB(3.9,57,2,973,0)="""RTN"",""IBECEAU4"",63,0)"
^XMB(3.9,57,2,974,0)=" I IBUNIT<1 S IBY=""-1^IB025"" G CEDQ"
^XMB(3.9,57,2,975,0)="""RTN"",""IBECEAU4"",64,0)"
^XMB(3.9,57,2,976,0)=" I 'IBH,'IBCHG S IBY=""-1^^There is no charge amount associated with this action."" G CEDQ"
^XMB(3.9,57,2,977,0)="""RTN"",""IBECEAU4"",65,0)"
^XMB(3.9,57,2,978,0)=" I $G(IBJOB)'=4,'IBH,IBIL="""" S IBY=""-1^IB024"""
^XMB(3.9,57,2,979,0)="""RTN"",""IBECEAU4"",66,0)"
^XMB(3.9,57,2,980,0)="CEDQ Q"
^XMB(3.9,57,2,981,0)="""RTN"",""IBECEAU4"",67,0)"
^XMB(3.9,57,2,982,0)=" ;"
^XMB(3.9,57,2,983,0)="""RTN"",""IBECEAU4"",68,0)"
^XMB(3.9,57,2,984,0)="UPSTAT(IBCN,IB) ; Update the status, cancellation reason of incomplete charges."
^XMB(3.9,57,2,985,0)="""RTN"",""IBECEAU4"",69,0)"
^XMB(3.9,57,2,986,0)=" N DIE,DA,DR"
^XMB(3.9,57,2,987,0)="""RTN"",""IBECEAU4"",70,0)"
^XMB(3.9,57,2,988,0)=" W:$G(IBJOB)=4&$G(IB) !,""Updating the status of the charge to 'cancelled'... """
^XMB(3.9,57,2,989,0)="""RTN"",""IBECEAU4"",71,0)"
^XMB(3.9,57,2,990,0)=" S DIE=""^IB("",DA=IBCN,DR="".05////10;.1////""_IBCRES"
^XMB(3.9,57,2,991,0)="""RTN"",""IBECEAU4"",72,0)"
^XMB(3.9,57,2,992,0)=" D ^DIE W:$G(IBJOB)=4&$G(IB) ""done."""
^XMB(3.9,57,2,993,0)="""RTN"",""IBECEAU4"",73,0)"
^XMB(3.9,57,2,994,0)=" Q"
^XMB(3.9,57,2,995,0)="""RTN"",""IBECEAU4"",74,0)"
^XMB(3.9,57,2,996,0)=" ;"
^XMB(3.9,57,2,997,0)="""RTN"",""IBECEAU4"",75,0)"
^XMB(3.9,57,2,998,0)="PASS ; Pass the action to Accounts Receivable."
^XMB(3.9,57,2,999,0)="""RTN"",""IBECEAU4"",76,0)"
^XMB(3.9,57,2,1000,0)=" N IBSERV"
^XMB(3.9,57,2,1001,0)="""RTN"",""IBECEAU4"",77,0)"
^XMB(3.9,57,2,1002,0)=" S IBNOS=IBN D ^IBR S IBY=Y I Y>0,$G(IBJOB)=4 W ""done."""
^XMB(3.9,57,2,1003,0)="""RTN"",""IBECEAU4"",78,0)"
^XMB(3.9,57,2,1004,0)=" Q"
^XMB(3.9,57,2,1005,0)="""RTN"",""IBECEAU4"",79,0)"
^XMB(3.9,57,2,1006,0)=" ;"
^XMB(3.9,57,2,1007,0)="""RTN"",""IBECEAU4"",80,0)"
^XMB(3.9,57,2,1008,0)="ERR ; Error Processing."
^XMB(3.9,57,2,1009,0)="""RTN"",""IBECEAU4"",81,0)"
^XMB(3.9,57,2,1010,0)=" Q:IBY>0"
^XMB(3.9,57,2,1011,0)="""RTN"",""IBECEAU4"",82,0)"
^XMB(3.9,57,2,1012,0)=" I $P(IBY,""^"",2)]"""" W !,$P($G(^IBE(350.8,+$O(^IBE(350.8,""AC"",$P($P(IBY,""^"",2),"";""),0)),0)),""^"",2) Q"
^XMB(3.9,57,2,1013,0)="""RTN"",""IBECEAU4"",83,0)"
^XMB(3.9,57,2,1014,0)=" I $P(IBY,""^"",3)]"""" W !,$P(IBY,""^"",3)"
^XMB(3.9,57,2,1015,0)="""RTN"",""IBECEAU4"",84,0)"
^XMB(3.9,57,2,1016,0)=" Q"
^XMB(3.9,57,2,1017,0)="""RTN"",""IBECEAU4"",85,0)"
^XMB(3.9,57,2,1018,0)=" ;"
^XMB(3.9,57,2,1019,0)="""RTN"",""IBECEAU4"",86,0)"
^XMB(3.9,57,2,1020,0)="PROC(EVT) ; Okay to proceed with Add, Edit, or Cancel?"
^XMB(3.9,57,2,1021,0)="""RTN"",""IBECEAU4"",87,0)"
^XMB(3.9,57,2,1022,0)=" N DIR,DIRUT,DUOUT,DTOUT,X,Y"
^XMB(3.9,57,2,1023,0)="""RTN"",""IBECEAU4"",88,0)"
^XMB(3.9,57,2,1024,0)=" W ! S DIR(0)=""Y"",DIR(""A"")=""Okay to ""_EVT_"" this charge"",DIR(""?"")=""Enter 'Y' or 'YES' to ""_EVT_"" this charge, or 'N', 'NO', or '^' to quit."""
^XMB(3.9,57,2,1025,0)="""RTN"",""IBECEAU4"",89,0)"
^XMB(3.9,57,2,1026,0)=" D ^DIR K DIR I 'Y!($D(DIRUT))!($D(DUOUT)) W !,""This charge will not be "",$S(EVT=""cancel"":""cancelled"",1:EVT_""ed""),""."" S IBY=-1 G PROCQ"
^XMB(3.9,57,2,1027,0)="""RTN"",""IBECEAU4"",90,0)"
^XMB(3.9,57,2,1028,0)=" S IBCOMMIT=1"
^XMB(3.9,57,2,1029,0)="""RTN"",""IBECEAU4"",91,0)"
^XMB(3.9,57,2,1030,0)="PROCQ Q"
^XMB(3.9,57,2,1031,0)="""VER"")"
^XMB(3.9,57,2,1032,0)="8.0^22.0"
^XMB(3.9,57,2,1033,0)="""BLD"",6621,6)"
^XMB(3.9,57,2,1034,0)="^317"
^XMB(3.9,57,2,1035,0)="$END KID IB*2.0*341"
^XMB(3.9,57,6,0)="^3.911A^2^2"
^XMB(3.9,57,6,1,0)="POSTMASTER"
^XMB(3.9,57,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,57,6,"B","POSTMASTER",1)=""
^XMB(3.9,57,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,58,0)="ICD-18_SEQ-19_PAT-20.KID^.5^3061008.015737^^^^K"
^XMB(3.9,58,.6)="3061008"
^XMB(3.9,58,1,0)="^3.91A^2^2"
^XMB(3.9,58,1,1,0)=".5^0^3061008.015737^^^^^^^3061008.015737"
^XMB(3.9,58,1,2,0)="1^0^3061008.024103^^^^^^^3061008.023419"
^XMB(3.9,58,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,58,1,"C",.5,1)=""
^XMB(3.9,58,1,"C",1,2)=""
^XMB(3.9,58,2,0)="^^5997^5997^3061008"
^XMB(3.9,58,2,1,0)="$TXT Released ICD*18*20 SEQ #19"
^XMB(3.9,58,2,2,0)="Extracted from mail message"
^XMB(3.9,58,2,3,0)="$END TXT"
^XMB(3.9,58,2,4,0)="$KID ICD*18.0*20"
^XMB(3.9,58,2,5,0)="**INSTALL NAME**"
^XMB(3.9,58,2,6,0)="ICD*18.0*20"
^XMB(3.9,58,2,7,0)="""BLD"",6387,0)"
^XMB(3.9,58,2,8,0)="ICD*18.0*20^DRG GROUPER^0^3051130^y"
^XMB(3.9,58,2,9,0)="""BLD"",6387,1,0)"
^XMB(3.9,58,2,10,0)="^^2^2^3050920^"
^XMB(3.9,58,2,11,0)="""BLD"",6387,1,1,0)"
^XMB(3.9,58,2,12,0)="Provides the annual update of the DRG Grouper for FY 2006 and"
^XMB(3.9,58,2,13,0)="""BLD"",6387,1,2,0)"
^XMB(3.9,58,2,14,0)="resolves Remedy tickets.  "
^XMB(3.9,58,2,15,0)="""BLD"",6387,4,0)"
^XMB(3.9,58,2,16,0)="^9.64PA^^"
^XMB(3.9,58,2,17,0)="""BLD"",6387,6)"
^XMB(3.9,58,2,18,0)="7^"
^XMB(3.9,58,2,19,0)="""BLD"",6387,""INI"")"
^XMB(3.9,58,2,20,0)="ICD1820P"
^XMB(3.9,58,2,21,0)="""BLD"",6387,""INID"")"
^XMB(3.9,58,2,22,0)="n^^n"
^XMB(3.9,58,2,23,0)="""BLD"",6387,""KRN"",0)"
^XMB(3.9,58,2,24,0)="^9.67PA^8989.52^19"
^XMB(3.9,58,2,25,0)="""BLD"",6387,""KRN"",.4,0)"
^XMB(3.9,58,2,26,0)=".4"
^XMB(3.9,58,2,27,0)="""BLD"",6387,""KRN"",.401,0)"
^XMB(3.9,58,2,28,0)=".401"
^XMB(3.9,58,2,29,0)="""BLD"",6387,""KRN"",.402,0)"
^XMB(3.9,58,2,30,0)=".402"
^XMB(3.9,58,2,31,0)="""BLD"",6387,""KRN"",.403,0)"
^XMB(3.9,58,2,32,0)=".403"
^XMB(3.9,58,2,33,0)="""BLD"",6387,""KRN"",.5,0)"
^XMB(3.9,58,2,34,0)=".5"
^XMB(3.9,58,2,35,0)="""BLD"",6387,""KRN"",.84,0)"
^XMB(3.9,58,2,36,0)=".84"
^XMB(3.9,58,2,37,0)="""BLD"",6387,""KRN"",3.6,0)"
^XMB(3.9,58,2,38,0)="3.6"
^XMB(3.9,58,2,39,0)="""BLD"",6387,""KRN"",3.8,0)"
^XMB(3.9,58,2,40,0)="3.8"
^XMB(3.9,58,2,41,0)="""BLD"",6387,""KRN"",9.2,0)"
^XMB(3.9,58,2,42,0)="9.2"
^XMB(3.9,58,2,43,0)="""BLD"",6387,""KRN"",9.8,0)"
^XMB(3.9,58,2,44,0)="9.8"
^XMB(3.9,58,2,45,0)="""BLD"",6387,""KRN"",9.8,""NM"",0)"
^XMB(3.9,58,2,46,0)="^9.68A^22^22"
^XMB(3.9,58,2,47,0)="""BLD"",6387,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,58,2,48,0)="ICDDRG^^0^B25160111"
^XMB(3.9,58,2,49,0)="""BLD"",6387,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,58,2,50,0)="ICDDRG0^^0^B33851546"
^XMB(3.9,58,2,51,0)="""BLD"",6387,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,58,2,52,0)="ICDDRGX^^0^B15940302"
^XMB(3.9,58,2,53,0)="""BLD"",6387,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,58,2,54,0)="ICDDRG5^^0^B19783386"
^XMB(3.9,58,2,55,0)="""BLD"",6387,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,58,2,56,0)="ICDDRG8^^0^B9006336"
^XMB(3.9,58,2,57,0)="""BLD"",6387,""KRN"",9.8,""NM"",6,0)"
^XMB(3.9,58,2,58,0)="ICDHLPD^^0^B5666760"
^XMB(3.9,58,2,59,0)="""BLD"",6387,""KRN"",9.8,""NM"",7,0)"
^XMB(3.9,58,2,60,0)="ICD1820A^^0^B38076793"
^XMB(3.9,58,2,61,0)="""BLD"",6387,""KRN"",9.8,""NM"",8,0)"
^XMB(3.9,58,2,62,0)="ICD1820B^^0^B14430753"
^XMB(3.9,58,2,63,0)="""BLD"",6387,""KRN"",9.8,""NM"",9,0)"
^XMB(3.9,58,2,64,0)="ICD1820C^^0^B34780352"
^XMB(3.9,58,2,65,0)="""BLD"",6387,""KRN"",9.8,""NM"",10,0)"
^XMB(3.9,58,2,66,0)="ICD1820D^^0^B32278361"
^XMB(3.9,58,2,67,0)="""BLD"",6387,""KRN"",9.8,""NM"",11,0)"
^XMB(3.9,58,2,68,0)="ICD1820E^^0^B16635319"
^XMB(3.9,58,2,69,0)="""BLD"",6387,""KRN"",9.8,""NM"",12,0)"
^XMB(3.9,58,2,70,0)="ICD1820P^^0^B283361"
^XMB(3.9,58,2,71,0)="""BLD"",6387,""KRN"",9.8,""NM"",13,0)"
^XMB(3.9,58,2,72,0)="ICD1820V^^0^B732333"
^XMB(3.9,58,2,73,0)="""BLD"",6387,""KRN"",9.8,""NM"",14,0)"
^XMB(3.9,58,2,74,0)="ICD1820X^^0^B20929129"
^XMB(3.9,58,2,75,0)="""BLD"",6387,""KRN"",9.8,""NM"",15,0)"
^XMB(3.9,58,2,76,0)="ICD1820Y^^0^B21429448"
^XMB(3.9,58,2,77,0)="""BLD"",6387,""KRN"",9.8,""NM"",16,0)"
^XMB(3.9,58,2,78,0)="ICD1820Z^^0^B13782689"
^XMB(3.9,58,2,79,0)="""BLD"",6387,""KRN"",9.8,""NM"",17,0)"
^XMB(3.9,58,2,80,0)="ICDTLB1B^^0^B17764004"
^XMB(3.9,58,2,81,0)="""BLD"",6387,""KRN"",9.8,""NM"",18,0)"
^XMB(3.9,58,2,82,0)="ICDTLB2B^^0^B25384998"
^XMB(3.9,58,2,83,0)="""BLD"",6387,""KRN"",9.8,""NM"",19,0)"
^XMB(3.9,58,2,84,0)="ICDTLB3B^^0^B21430728"
^XMB(3.9,58,2,85,0)="""BLD"",6387,""KRN"",9.8,""NM"",20,0)"
^XMB(3.9,58,2,86,0)="ICDTLB4B^^0^B17888498"
^XMB(3.9,58,2,87,0)="""BLD"",6387,""KRN"",9.8,""NM"",21,0)"
^XMB(3.9,58,2,88,0)="ICDTLB5B^^0^B21200427"
^XMB(3.9,58,2,89,0)="""BLD"",6387,""KRN"",9.8,""NM"",22,0)"
^XMB(3.9,58,2,90,0)="ICDTLB6B^^0^B50884849"
^XMB(3.9,58,2,91,0)="""BLD"",6387,""KRN"",9.8,""NM"",""B"",""ICD1820A"",7)"
^XMB(3.9,58,2,92,0)=""
^XMB(3.9,58,2,93,0)="""BLD"",6387,""KRN"",9.8,""NM"",""B"",""ICD1820B"",8)"
^XMB(3.9,58,2,94,0)=""
^XMB(3.9,58,2,95,0)="""BLD"",6387,""KRN"",9.8,""NM"",""B"",""ICD1820C"",9)"
^XMB(3.9,58,2,96,0)=""
^XMB(3.9,58,2,97,0)="""BLD"",6387,""KRN"",9.8,""NM"",""B"",""ICD1820D"",10)"
^XMB(3.9,58,2,98,0)=""
^XMB(3.9,58,2,99,0)="""BLD"",6387,""KRN"",9.8,""NM"",""B"",""ICD1820E"",11)"
^XMB(3.9,58,2,100,0)=""
^XMB(3.9,58,2,101,0)="""BLD"",6387,""KRN"",9.8,""NM"",""B"",""ICD1820P"",12)"
^XMB(3.9,58,2,102,0)=""
^XMB(3.9,58,2,103,0)="""BLD"",6387,""KRN"",9.8,""NM"",""B"",""ICD1820V"",13)"
^XMB(3.9,58,2,104,0)=""
^XMB(3.9,58,2,105,0)="""BLD"",6387,""KRN"",9.8,""NM"",""B"",""ICD1820X"",14)"
^XMB(3.9,58,2,106,0)=""
^XMB(3.9,58,2,107,0)="""BLD"",6387,""KRN"",9.8,""NM"",""B"",""ICD1820Y"",15)"
^XMB(3.9,58,2,108,0)=""
^XMB(3.9,58,2,109,0)="""BLD"",6387,""KRN"",9.8,""NM"",""B"",""ICD1820Z"",16)"
^XMB(3.9,58,2,110,0)=""
^XMB(3.9,58,2,111,0)="""BLD"",6387,""KRN"",9.8,""NM"",""B"",""ICDDRG"",1)"
^XMB(3.9,58,2,112,0)=""
^XMB(3.9,58,2,113,0)="""BLD"",6387,""KRN"",9.8,""NM"",""B"",""ICDDRG0"",2)"
^XMB(3.9,58,2,114,0)=""
^XMB(3.9,58,2,115,0)="""BLD"",6387,""KRN"",9.8,""NM"",""B"",""ICDDRG5"",4)"
^XMB(3.9,58,2,116,0)=""
^XMB(3.9,58,2,117,0)="""BLD"",6387,""KRN"",9.8,""NM"",""B"",""ICDDRG8"",5)"
^XMB(3.9,58,2,118,0)=""
^XMB(3.9,58,2,119,0)="""BLD"",6387,""KRN"",9.8,""NM"",""B"",""ICDDRGX"",3)"
^XMB(3.9,58,2,120,0)=""
^XMB(3.9,58,2,121,0)="""BLD"",6387,""KRN"",9.8,""NM"",""B"",""ICDHLPD"",6)"
^XMB(3.9,58,2,122,0)=""
^XMB(3.9,58,2,123,0)="""BLD"",6387,""KRN"",9.8,""NM"",""B"",""ICDTLB1B"",17)"
^XMB(3.9,58,2,124,0)=""
^XMB(3.9,58,2,125,0)="""BLD"",6387,""KRN"",9.8,""NM"",""B"",""ICDTLB2B"",18)"
^XMB(3.9,58,2,126,0)=""
^XMB(3.9,58,2,127,0)="""BLD"",6387,""KRN"",9.8,""NM"",""B"",""ICDTLB3B"",19)"
^XMB(3.9,58,2,128,0)=""
^XMB(3.9,58,2,129,0)="""BLD"",6387,""KRN"",9.8,""NM"",""B"",""ICDTLB4B"",20)"
^XMB(3.9,58,2,130,0)=""
^XMB(3.9,58,2,131,0)="""BLD"",6387,""KRN"",9.8,""NM"",""B"",""ICDTLB5B"",21)"
^XMB(3.9,58,2,132,0)=""
^XMB(3.9,58,2,133,0)="""BLD"",6387,""KRN"",9.8,""NM"",""B"",""ICDTLB6B"",22)"
^XMB(3.9,58,2,134,0)=""
^XMB(3.9,58,2,135,0)="""BLD"",6387,""KRN"",19,0)"
^XMB(3.9,58,2,136,0)="19"
^XMB(3.9,58,2,137,0)="""BLD"",6387,""KRN"",19.1,0)"
^XMB(3.9,58,2,138,0)="19.1"
^XMB(3.9,58,2,139,0)="""BLD"",6387,""KRN"",101,0)"
^XMB(3.9,58,2,140,0)="101"
^XMB(3.9,58,2,141,0)="""BLD"",6387,""KRN"",409.61,0)"
^XMB(3.9,58,2,142,0)="409.61"
^XMB(3.9,58,2,143,0)="""BLD"",6387,""KRN"",771,0)"
^XMB(3.9,58,2,144,0)="771"
^XMB(3.9,58,2,145,0)="""BLD"",6387,""KRN"",870,0)"
^XMB(3.9,58,2,146,0)="870"
^XMB(3.9,58,2,147,0)="""BLD"",6387,""KRN"",8989.51,0)"
^XMB(3.9,58,2,148,0)="8989.51"
^XMB(3.9,58,2,149,0)="""BLD"",6387,""KRN"",8989.52,0)"
^XMB(3.9,58,2,150,0)="8989.52"
^XMB(3.9,58,2,151,0)="""BLD"",6387,""KRN"",8994,0)"
^XMB(3.9,58,2,152,0)="8994"
^XMB(3.9,58,2,153,0)="""BLD"",6387,""KRN"",""B"",.4,.4)"
^XMB(3.9,58,2,154,0)=""
^XMB(3.9,58,2,155,0)="""BLD"",6387,""KRN"",""B"",.401,.401)"
^XMB(3.9,58,2,156,0)=""
^XMB(3.9,58,2,157,0)="""BLD"",6387,""KRN"",""B"",.402,.402)"
^XMB(3.9,58,2,158,0)=""
^XMB(3.9,58,2,159,0)="""BLD"",6387,""KRN"",""B"",.403,.403)"
^XMB(3.9,58,2,160,0)=""
^XMB(3.9,58,2,161,0)="""BLD"",6387,""KRN"",""B"",.5,.5)"
^XMB(3.9,58,2,162,0)=""
^XMB(3.9,58,2,163,0)="""BLD"",6387,""KRN"",""B"",.84,.84)"
^XMB(3.9,58,2,164,0)=""
^XMB(3.9,58,2,165,0)="""BLD"",6387,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,58,2,166,0)=""
^XMB(3.9,58,2,167,0)="""BLD"",6387,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,58,2,168,0)=""
^XMB(3.9,58,2,169,0)="""BLD"",6387,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,58,2,170,0)=""
^XMB(3.9,58,2,171,0)="""BLD"",6387,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,58,2,172,0)=""
^XMB(3.9,58,2,173,0)="""BLD"",6387,""KRN"",""B"",19,19)"
^XMB(3.9,58,2,174,0)=""
^XMB(3.9,58,2,175,0)="""BLD"",6387,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,58,2,176,0)=""
^XMB(3.9,58,2,177,0)="""BLD"",6387,""KRN"",""B"",101,101)"
^XMB(3.9,58,2,178,0)=""
^XMB(3.9,58,2,179,0)="""BLD"",6387,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,58,2,180,0)=""
^XMB(3.9,58,2,181,0)="""BLD"",6387,""KRN"",""B"",771,771)"
^XMB(3.9,58,2,182,0)=""
^XMB(3.9,58,2,183,0)="""BLD"",6387,""KRN"",""B"",870,870)"
^XMB(3.9,58,2,184,0)=""
^XMB(3.9,58,2,185,0)="""BLD"",6387,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,58,2,186,0)=""
^XMB(3.9,58,2,187,0)="""BLD"",6387,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,58,2,188,0)=""
^XMB(3.9,58,2,189,0)="""BLD"",6387,""KRN"",""B"",8994,8994)"
^XMB(3.9,58,2,190,0)=""
^XMB(3.9,58,2,191,0)="""BLD"",6387,""PRE"")"
^XMB(3.9,58,2,192,0)="ICD1820V"
^XMB(3.9,58,2,193,0)="""BLD"",6387,""QUES"",0)"
^XMB(3.9,58,2,194,0)="^9.62^^"
^XMB(3.9,58,2,195,0)="""BLD"",6387,""REQB"",0)"
^XMB(3.9,58,2,196,0)="^9.611^4^4"
^XMB(3.9,58,2,197,0)="""BLD"",6387,""REQB"",1,0)"
^XMB(3.9,58,2,198,0)="ICD*18.0*10^1"
^XMB(3.9,58,2,199,0)="""BLD"",6387,""REQB"",2,0)"
^XMB(3.9,58,2,200,0)="ICD*18.0*14^1"
^XMB(3.9,58,2,201,0)="""BLD"",6387,""REQB"",3,0)"
^XMB(3.9,58,2,202,0)="ICD*18.0*17^1"
^XMB(3.9,58,2,203,0)="""BLD"",6387,""REQB"",4,0)"
^XMB(3.9,58,2,204,0)="LEX*2.0*37^1"
^XMB(3.9,58,2,205,0)="""BLD"",6387,""REQB"",""B"",""ICD*18.0*10"",1)"
^XMB(3.9,58,2,206,0)=""
^XMB(3.9,58,2,207,0)="""BLD"",6387,""REQB"",""B"",""ICD*18.0*14"",2)"
^XMB(3.9,58,2,208,0)=""
^XMB(3.9,58,2,209,0)="""BLD"",6387,""REQB"",""B"",""ICD*18.0*17"",3)"
^XMB(3.9,58,2,210,0)=""
^XMB(3.9,58,2,211,0)="""BLD"",6387,""REQB"",""B"",""LEX*2.0*37"",4)"
^XMB(3.9,58,2,212,0)=""
^XMB(3.9,58,2,213,0)="""INI"")"
^XMB(3.9,58,2,214,0)="ICD1820P"
^XMB(3.9,58,2,215,0)="""MBREQ"")"
^XMB(3.9,58,2,216,0)="0"
^XMB(3.9,58,2,217,0)="""PKG"",151,-1)"
^XMB(3.9,58,2,218,0)="1^1"
^XMB(3.9,58,2,219,0)="""PKG"",151,0)"
^XMB(3.9,58,2,220,0)="DRG GROUPER^ICD^DRG GROUPER"
^XMB(3.9,58,2,221,0)="""PKG"",151,20,0)"
^XMB(3.9,58,2,222,0)="^9.402P^^"
^XMB(3.9,58,2,223,0)="""PKG"",151,22,0)"
^XMB(3.9,58,2,224,0)="^9.49I^1^1"
^XMB(3.9,58,2,225,0)="""PKG"",151,22,1,0)"
^XMB(3.9,58,2,226,0)="18.0^3001024^3010118^66481"
^XMB(3.9,58,2,227,0)="""PKG"",151,22,1,""PAH"",1,0)"
^XMB(3.9,58,2,228,0)="20^3051130^100850"
^XMB(3.9,58,2,229,0)="""PKG"",151,22,1,""PAH"",1,1,0)"
^XMB(3.9,58,2,230,0)="^^2^2^3051130"
^XMB(3.9,58,2,231,0)="""PKG"",151,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,58,2,232,0)="Provides the annual update of the DRG Grouper for FY 2006 and"
^XMB(3.9,58,2,233,0)="""PKG"",151,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,58,2,234,0)="resolves Remedy tickets.  "
^XMB(3.9,58,2,235,0)="""PRE"")"
^XMB(3.9,58,2,236,0)="ICD1820V"
^XMB(3.9,58,2,237,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,58,2,238,0)="Y"
^XMB(3.9,58,2,239,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,58,2,240,0)="^D REP^XPDH"
^XMB(3.9,58,2,241,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,58,2,242,0)="Shall I write over your |FLAG| File"
^XMB(3.9,58,2,243,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,58,2,244,0)="YES"
^XMB(3.9,58,2,245,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,58,2,246,0)="D XPF1^XPDIQ"
^XMB(3.9,58,2,247,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,58,2,248,0)="Y"
^XMB(3.9,58,2,249,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,58,2,250,0)="^D DTA^XPDH"
^XMB(3.9,58,2,251,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,58,2,252,0)="Want my data |FLAG| yours"
^XMB(3.9,58,2,253,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,58,2,254,0)="YES"
^XMB(3.9,58,2,255,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,58,2,256,0)="D XPF2^XPDIQ"
^XMB(3.9,58,2,257,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,58,2,258,0)="YO"
^XMB(3.9,58,2,259,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,58,2,260,0)="^D INHIBIT^XPDH"
^XMB(3.9,58,2,261,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,58,2,262,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,58,2,263,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,58,2,264,0)="YES"
^XMB(3.9,58,2,265,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,58,2,266,0)="D XPI1^XPDIQ"
^XMB(3.9,58,2,267,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,58,2,268,0)="PO^VA(200,:EM"
^XMB(3.9,58,2,269,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,58,2,270,0)="^D MG^XPDH"
^XMB(3.9,58,2,271,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,58,2,272,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,58,2,273,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,58,2,274,0)=""
^XMB(3.9,58,2,275,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,58,2,276,0)="D XPM1^XPDIQ"
^XMB(3.9,58,2,277,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,58,2,278,0)="Y"
^XMB(3.9,58,2,279,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,58,2,280,0)="^D MENU^XPDH"
^XMB(3.9,58,2,281,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,58,2,282,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,58,2,283,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,58,2,284,0)="YES"
^XMB(3.9,58,2,285,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,58,2,286,0)="D XPO1^XPDIQ"
^XMB(3.9,58,2,287,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,58,2,288,0)="Y"
^XMB(3.9,58,2,289,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,58,2,290,0)="^D OPT^XPDH"
^XMB(3.9,58,2,291,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,58,2,292,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,58,2,293,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,58,2,294,0)="YES"
^XMB(3.9,58,2,295,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,58,2,296,0)="D XPZ1^XPDIQ"
^XMB(3.9,58,2,297,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,58,2,298,0)="Y"
^XMB(3.9,58,2,299,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,58,2,300,0)="^D RTN^XPDH"
^XMB(3.9,58,2,301,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,58,2,302,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,58,2,303,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,58,2,304,0)="NO"
^XMB(3.9,58,2,305,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,58,2,306,0)="D XPZ2^XPDIQ"
^XMB(3.9,58,2,307,0)="""RTN"")"
^XMB(3.9,58,2,308,0)="22"
^XMB(3.9,58,2,309,0)="""RTN"",""ICD1820A"")"
^XMB(3.9,58,2,310,0)="0^7^B38076793"
^XMB(3.9,58,2,311,0)="""RTN"",""ICD1820A"",1,0)"
^XMB(3.9,58,2,312,0)="ICD1820A ;;ALB/EG/JAT - ADD NEW DRGs; 6/19/05 4:08pm ; 6/24/05 3:29pm"
^XMB(3.9,58,2,313,0)="""RTN"",""ICD1820A"",2,0)"
^XMB(3.9,58,2,314,0)=" ;;18.0;DRG Grouper;**20**;Oct 13,2000"
^XMB(3.9,58,2,315,0)="""RTN"",""ICD1820A"",3,0)"
^XMB(3.9,58,2,316,0)=" ;"
^XMB(3.9,58,2,317,0)="""RTN"",""ICD1820A"",4,0)"
^XMB(3.9,58,2,318,0)=" Q"
^XMB(3.9,58,2,319,0)="""RTN"",""ICD1820A"",5,0)"
^XMB(3.9,58,2,320,0)="ADDDRG  ;-- Add new DRGs"
^XMB(3.9,58,2,321,0)="""RTN"",""ICD1820A"",6,0)"
^XMB(3.9,58,2,322,0)=" N DIC,X,Y,DINUM,LINE,ICDDRG,DA,DRGX,DRGY,MDC,SURG,ROUTINE,ICDIEN"
^XMB(3.9,58,2,323,0)="""RTN"",""ICD1820A"",7,0)"
^XMB(3.9,58,2,324,0)=" D BMES^XPDUTL("">>> Adding New DRGs - Please verify that 16 added"")"
^XMB(3.9,58,2,325,0)="""RTN"",""ICD1820A"",8,0)"
^XMB(3.9,58,2,326,0)=" ; create top-level record (weights & trims will be added later)"
^XMB(3.9,58,2,327,0)="""RTN"",""ICD1820A"",9,0)"
^XMB(3.9,58,2,328,0)=" F LINE=1:1 S X=$T(ADD+LINE) S ICDDRG=$P(X,"";;"",2) Q:ICDDRG=""EXIT""  D"
^XMB(3.9,58,2,329,0)="""RTN"",""ICD1820A"",10,0)"
^XMB(3.9,58,2,330,0)=" .S DIC=""^ICD("",DIC(0)=""L"""
^XMB(3.9,58,2,331,0)="""RTN"",""ICD1820A"",11,0)"
^XMB(3.9,58,2,332,0)=" .S MDC=$P(ICDDRG,U,2) I MDC=""PRE"" S MDC=98"
^XMB(3.9,58,2,333,0)="""RTN"",""ICD1820A"",12,0)"
^XMB(3.9,58,2,334,0)=" .S SURG=$P(ICDDRG,U,3)"
^XMB(3.9,58,2,335,0)="""RTN"",""ICD1820A"",13,0)"
^XMB(3.9,58,2,336,0)=" .S DIC(""DR"")=""5///^S X=MDC;.06///^S X=SURG"""
^XMB(3.9,58,2,337,0)="""RTN"",""ICD1820A"",14,0)"
^XMB(3.9,58,2,338,0)=" .S X=""DRG"",X=X_$P(ICDDRG,U)"
^XMB(3.9,58,2,339,0)="""RTN"",""ICD1820A"",15,0)"
^XMB(3.9,58,2,340,0)=" .; check for duplicates in case install is being rerun"
^XMB(3.9,58,2,341,0)="""RTN"",""ICD1820A"",16,0)"
^XMB(3.9,58,2,342,0)=" .I $D(^ICD($P(ICDDRG,U),0)) Q"
^XMB(3.9,58,2,343,0)="""RTN"",""ICD1820A"",17,0)"
^XMB(3.9,58,2,344,0)=" .K DO D FILE^DICN"
^XMB(3.9,58,2,345,0)="""RTN"",""ICD1820A"",18,0)"
^XMB(3.9,58,2,346,0)=" .K DIC,DA"
^XMB(3.9,58,2,347,0)="""RTN"",""ICD1820A"",19,0)"
^XMB(3.9,58,2,348,0)=" .;create 80.21A subfile"
^XMB(3.9,58,2,349,0)="""RTN"",""ICD1820A"",20,0)"
^XMB(3.9,58,2,350,0)=" .S DA(1)=$P(ICDDRG,U)"
^XMB(3.9,58,2,351,0)="""RTN"",""ICD1820A"",21,0)"
^XMB(3.9,58,2,352,0)=" .S DIC=""^ICD(""_DA(1)_"",1,"""
^XMB(3.9,58,2,353,0)="""RTN"",""ICD1820A"",22,0)"
^XMB(3.9,58,2,354,0)=" .S DIC(0)=""L"""
^XMB(3.9,58,2,355,0)="""RTN"",""ICD1820A"",23,0)"
^XMB(3.9,58,2,356,0)=" .S X=$P(ICDDRG,U,4)"
^XMB(3.9,58,2,357,0)="""RTN"",""ICD1820A"",24,0)"
^XMB(3.9,58,2,358,0)=" .K DO D FILE^DICN"
^XMB(3.9,58,2,359,0)="""RTN"",""ICD1820A"",25,0)"
^XMB(3.9,58,2,360,0)=" .;create 80.266 subfile"
^XMB(3.9,58,2,361,0)="""RTN"",""ICD1820A"",26,0)"
^XMB(3.9,58,2,362,0)=" .K DIC,DA"
^XMB(3.9,58,2,363,0)="""RTN"",""ICD1820A"",27,0)"
^XMB(3.9,58,2,364,0)=" .S DA(1)=$P(ICDDRG,U)"
^XMB(3.9,58,2,365,0)="""RTN"",""ICD1820A"",28,0)"
^XMB(3.9,58,2,366,0)=" .S DIC=""^ICD(""_DA(1)_"",66,"""
^XMB(3.9,58,2,367,0)="""RTN"",""ICD1820A"",29,0)"
^XMB(3.9,58,2,368,0)=" .S DIC(0)=""L"""
^XMB(3.9,58,2,369,0)="""RTN"",""ICD1820A"",30,0)"
^XMB(3.9,58,2,370,0)=" .I SURG="""" S SURG=0"
^XMB(3.9,58,2,371,0)="""RTN"",""ICD1820A"",31,0)"
^XMB(3.9,58,2,372,0)=" .S DIC(""DR"")="".03///1;.05///^S X=MDC;.06///^S X=SURG"""
^XMB(3.9,58,2,373,0)="""RTN"",""ICD1820A"",32,0)"
^XMB(3.9,58,2,374,0)=" .S X=3051001"
^XMB(3.9,58,2,375,0)="""RTN"",""ICD1820A"",33,0)"
^XMB(3.9,58,2,376,0)=" .K DO D FILE^DICN"
^XMB(3.9,58,2,377,0)="""RTN"",""ICD1820A"",34,0)"
^XMB(3.9,58,2,378,0)=" .; create 80.271 subfile"
^XMB(3.9,58,2,379,0)="""RTN"",""ICD1820A"",35,0)"
^XMB(3.9,58,2,380,0)=" .K DIC,DA"
^XMB(3.9,58,2,381,0)="""RTN"",""ICD1820A"",36,0)"
^XMB(3.9,58,2,382,0)=" .S DA(1)=$P(ICDDRG,U)"
^XMB(3.9,58,2,383,0)="""RTN"",""ICD1820A"",37,0)"
^XMB(3.9,58,2,384,0)=" .S DIC=""^ICD(""_DA(1)_"",2,"""
^XMB(3.9,58,2,385,0)="""RTN"",""ICD1820A"",38,0)"
^XMB(3.9,58,2,386,0)=" .S DIC(0)=""L"""
^XMB(3.9,58,2,387,0)="""RTN"",""ICD1820A"",39,0)"
^XMB(3.9,58,2,388,0)=" .S ROUTINE=$P(ICDDRG,U,5)"
^XMB(3.9,58,2,389,0)="""RTN"",""ICD1820A"",40,0)"
^XMB(3.9,58,2,390,0)=" .S DIC(""DR"")=""1///^S X=ROUTINE"""
^XMB(3.9,58,2,391,0)="""RTN"",""ICD1820A"",41,0)"
^XMB(3.9,58,2,392,0)=" .S X=3051001"
^XMB(3.9,58,2,393,0)="""RTN"",""ICD1820A"",42,0)"
^XMB(3.9,58,2,394,0)=" .K DO D FILE^DICN"
^XMB(3.9,58,2,395,0)="""RTN"",""ICD1820A"",43,0)"
^XMB(3.9,58,2,396,0)=" .; create 80.268 and 80.2681 subfiles"
^XMB(3.9,58,2,397,0)="""RTN"",""ICD1820A"",44,0)"
^XMB(3.9,58,2,398,0)=" .K DIC,DA"
^XMB(3.9,58,2,399,0)="""RTN"",""ICD1820A"",45,0)"
^XMB(3.9,58,2,400,0)=" .N FDA"
^XMB(3.9,58,2,401,0)="""RTN"",""ICD1820A"",46,0)"
^XMB(3.9,58,2,402,0)=" .S ICDIEN=$P(ICDDRG,U)"
^XMB(3.9,58,2,403,0)="""RTN"",""ICD1820A"",47,0)"
^XMB(3.9,58,2,404,0)=" .S FDA(1820,80.2,""?1,"",.01)=ICDIEN"
^XMB(3.9,58,2,405,0)="""RTN"",""ICD1820A"",48,0)"
^XMB(3.9,58,2,406,0)=" .S FDA(1820,80.268,""+2,?1,"",.01)=3051001"
^XMB(3.9,58,2,407,0)="""RTN"",""ICD1820A"",49,0)"
^XMB(3.9,58,2,408,0)=" .D UPDATE^DIE("""",""FDA(1820)"") K FDA(1820)"
^XMB(3.9,58,2,409,0)="""RTN"",""ICD1820A"",50,0)"
^XMB(3.9,58,2,410,0)=" .S FDA(1820,80.2,""?1,"",.01)=ICDIEN"
^XMB(3.9,58,2,411,0)="""RTN"",""ICD1820A"",51,0)"
^XMB(3.9,58,2,412,0)=" .S FDA(1820,80.268,""?2,?1,"",.01)=3051001"
^XMB(3.9,58,2,413,0)="""RTN"",""ICD1820A"",52,0)"
^XMB(3.9,58,2,414,0)=" .S FDA(1820,80.2681,""+3,?2,?1,"",.01)=$P(ICDDRG,U,4)"
^XMB(3.9,58,2,415,0)="""RTN"",""ICD1820A"",53,0)"
^XMB(3.9,58,2,416,0)=" .D UPDATE^DIE("""",""FDA(1820)"")"
^XMB(3.9,58,2,417,0)="""RTN"",""ICD1820A"",54,0)"
^XMB(3.9,58,2,418,0)=" .; displays listing"
^XMB(3.9,58,2,419,0)="""RTN"",""ICD1820A"",55,0)"
^XMB(3.9,58,2,420,0)=" .S DRGX=$P(ICDDRG,U),DRGY=$P(ICDDRG,U,4)"
^XMB(3.9,58,2,421,0)="""RTN"",""ICD1820A"",56,0)"
^XMB(3.9,58,2,422,0)=" .D MES^XPDUTL(""  DRG""_DRGX_""     ""_DRGY_"" added."")"
^XMB(3.9,58,2,423,0)="""RTN"",""ICD1820A"",57,0)"
^XMB(3.9,58,2,424,0)=" ; now update entire file"
^XMB(3.9,58,2,425,0)="""RTN"",""ICD1820A"",58,0)"
^XMB(3.9,58,2,426,0)=" D UPDTDRG^ICD1820B"
^XMB(3.9,58,2,427,0)="""RTN"",""ICD1820A"",59,0)"
^XMB(3.9,58,2,428,0)=" ; inactivate DRGs for this year"
^XMB(3.9,58,2,429,0)="""RTN"",""ICD1820A"",60,0)"
^XMB(3.9,58,2,430,0)=" D INACTDRG^ICD1820B"
^XMB(3.9,58,2,431,0)="""RTN"",""ICD1820A"",61,0)"
^XMB(3.9,58,2,432,0)=" Q"
^XMB(3.9,58,2,433,0)="""RTN"",""ICD1820A"",62,0)"
^XMB(3.9,58,2,434,0)=" ;"
^XMB(3.9,58,2,435,0)="""RTN"",""ICD1820A"",63,0)"
^XMB(3.9,58,2,436,0)="ADD ;New DRGs"
^XMB(3.9,58,2,437,0)="""RTN"",""ICD1820A"",64,0)"
^XMB(3.9,58,2,438,0)=" ;;544^8^1^MAJOR JOINT REPLACEMENT OR REATTACHMENT OF LOWER EXTREMITY^ICDTLB6B"
^XMB(3.9,58,2,439,0)="""RTN"",""ICD1820A"",65,0)"
^XMB(3.9,58,2,440,0)=" ;;545^8^1^REVISION OF HIP OR KNEE REPLACEMENT^ICDTLB6B"
^XMB(3.9,58,2,441,0)="""RTN"",""ICD1820A"",66,0)"
^XMB(3.9,58,2,442,0)=" ;;546^8^1^SPINAL FUSION EXC CERV WITH CURVATURE OF THE SPINE OR MALIG^ICDTLB6B"
^XMB(3.9,58,2,443,0)="""RTN"",""ICD1820A"",67,0)"
^XMB(3.9,58,2,444,0)=" ;;547^5^1^CORONARY BYPASS W CARDIAC CATH W MAJOR CV DX^ICDTLB6B"
^XMB(3.9,58,2,445,0)="""RTN"",""ICD1820A"",68,0)"
^XMB(3.9,58,2,446,0)=" ;;548^5^1^CORONARY BYPASS W CARDIAC CATH W/O MAJOR CV DX^ICDTLB6B"
^XMB(3.9,58,2,447,0)="""RTN"",""ICD1820A"",69,0)"
^XMB(3.9,58,2,448,0)=" ;;549^5^1^CORONARY BYPASS W/O CARDIAC CATH W MAJOR CV DX^ICDTLB6B"
^XMB(3.9,58,2,449,0)="""RTN"",""ICD1820A"",70,0)"
^XMB(3.9,58,2,450,0)=" ;;550^5^1^CORONARY BYPASS W/O CARDIAC CATH W/O MAJOR CV DX^ICDTLB6B"
^XMB(3.9,58,2,451,0)="""RTN"",""ICD1820A"",71,0)"
^XMB(3.9,58,2,452,0)=" ;;551^5^1^PERMANENT CARDIAC PACEMAKER IMPL W MAJ CV OR AICD LEAD OR GNRTR^ICDTLB6B"
^XMB(3.9,58,2,453,0)="""RTN"",""ICD1820A"",72,0)"
^XMB(3.9,58,2,454,0)=" ;;552^5^1^OTHER PERMANENT CARDIAC PACEMAKER IMPLANT W/O MAJOR CV DX^ICDTLB6B"
^XMB(3.9,58,2,455,0)="""RTN"",""ICD1820A"",73,0)"
^XMB(3.9,58,2,456,0)=" ;;553^5^1^OTHER VASCULAR PROCEDURES W CC W MAJOR CV DX^ICDTLB6B"
^XMB(3.9,58,2,457,0)="""RTN"",""ICD1820A"",74,0)"
^XMB(3.9,58,2,458,0)=" ;;554^5^1^OTHER VASCULAR PROCEDURES W CC W/O MAJOR CV DX^ICDTLB6B"
^XMB(3.9,58,2,459,0)="""RTN"",""ICD1820A"",75,0)"
^XMB(3.9,58,2,460,0)=" ;;555^5^1^PERCUTANEOUS CARDIOVASCULAR PROC W MAJOR CV DX^ICDTLB6B"
^XMB(3.9,58,2,461,0)="""RTN"",""ICD1820A"",76,0)"
^XMB(3.9,58,2,462,0)=" ;;556^5^1^PERCUTANEOUS CARDIOVASCULAR PROC W NON-DRUG-ELUTING STENT W/O MAJ CV DX^ICDTLB6B"
^XMB(3.9,58,2,463,0)="""RTN"",""ICD1820A"",77,0)"
^XMB(3.9,58,2,464,0)=" ;;557^5^1^PERCUTANEOUS CARDIOVASCULAR PROC W DRUG-ELUTING STENT W MAJOR CV DX^ICDTLB6B"
^XMB(3.9,58,2,465,0)="""RTN"",""ICD1820A"",78,0)"
^XMB(3.9,58,2,466,0)=" ;;558^5^1^PERCUTANEOUS CARDIOVASCULAR PROC W DRUG-ELUTING STENT W/O MAJ CV DX^ICDTLB6B"
^XMB(3.9,58,2,467,0)="""RTN"",""ICD1820A"",79,0)"
^XMB(3.9,58,2,468,0)=" ;;559^1^^ACUTE ISCHEMIC STROKE WITH USE OF THROMBOLYTIC AGENT^ICDTLB6B"
^XMB(3.9,58,2,469,0)="""RTN"",""ICD1820A"",80,0)"
^XMB(3.9,58,2,470,0)=" ;;EXIT"
^XMB(3.9,58,2,471,0)="""RTN"",""ICD1820A"",81,0)"
^XMB(3.9,58,2,472,0)=" ;"
^XMB(3.9,58,2,473,0)="""RTN"",""ICD1820A"",82,0)"
^XMB(3.9,58,2,474,0)="PRO ;-update operation/procedure codes"
^XMB(3.9,58,2,475,0)="""RTN"",""ICD1820A"",83,0)"
^XMB(3.9,58,2,476,0)=" ; from Table 6B in Fed Reg - assumes new codes already added by Lexicon"
^XMB(3.9,58,2,477,0)="""RTN"",""ICD1820A"",84,0)"
^XMB(3.9,58,2,478,0)=" D BMES^XPDUTL("">>>Modifying new op/pro codes - file 80.1"")"
^XMB(3.9,58,2,479,0)="""RTN"",""ICD1820A"",85,0)"
^XMB(3.9,58,2,480,0)=" N LINE,X,ICDPROC,ENTRY,DA,DIE,DR,IDENT,MDC24,SUBLINE,DATA,FDA"
^XMB(3.9,58,2,481,0)="""RTN"",""ICD1820A"",86,0)"
^XMB(3.9,58,2,482,0)=" F LINE=1:1 S X=$T(REV+LINE) S ICDPROC=$P(X,"";;"",2) Q:ICDPROC=""EXIT""  D"
^XMB(3.9,58,2,483,0)="""RTN"",""ICD1820A"",87,0)"
^XMB(3.9,58,2,484,0)=" .Q:ICDPROC[""+"""
^XMB(3.9,58,2,485,0)="""RTN"",""ICD1820A"",88,0)"
^XMB(3.9,58,2,486,0)=" .S ENTRY=+$O(^ICD0(""BA"",$P(ICDPROC,U)_"" "",0))"
^XMB(3.9,58,2,487,0)="""RTN"",""ICD1820A"",89,0)"
^XMB(3.9,58,2,488,0)=" .I ENTRY D"
^XMB(3.9,58,2,489,0)="""RTN"",""ICD1820A"",90,0)"
^XMB(3.9,58,2,490,0)=" ..;check for possible inactive dupe"
^XMB(3.9,58,2,491,0)="""RTN"",""ICD1820A"",91,0)"
^XMB(3.9,58,2,492,0)=" ..I $P($G(^ICD0(ENTRY,0)),U,9)=1 S ENTRY=+$O(^ICD0(""BA"",$P(ICDPROC,U)_"" "",ENTRY)) I 'ENTRY Q"
^XMB(3.9,58,2,493,0)="""RTN"",""ICD1820A"",92,0)"
^XMB(3.9,58,2,494,0)=" ..S DA=ENTRY,DIE=""^ICD0("""
^XMB(3.9,58,2,495,0)="""RTN"",""ICD1820A"",93,0)"
^XMB(3.9,58,2,496,0)=" ..S IDENT=$P(ICDPROC,U,2)"
^XMB(3.9,58,2,497,0)="""RTN"",""ICD1820A"",94,0)"
^XMB(3.9,58,2,498,0)=" ..;this is from the OR column in Table 6B "
^XMB(3.9,58,2,499,0)="""RTN"",""ICD1820A"",95,0)"
^XMB(3.9,58,2,500,0)=" ..I IDENT=""Y"" S IDENT=""O"""
^XMB(3.9,58,2,501,0)="""RTN"",""ICD1820A"",96,0)"
^XMB(3.9,58,2,502,0)=" ..I DA=4284 S IDENT=""O1"""
^XMB(3.9,58,2,503,0)="""RTN"",""ICD1820A"",97,0)"
^XMB(3.9,58,2,504,0)=" ..S MDC24=$P(ICDPROC,U,3)"
^XMB(3.9,58,2,505,0)="""RTN"",""ICD1820A"",98,0)"
^XMB(3.9,58,2,506,0)=" ..S DR=""2///^S X=IDENT;5///^S X=MDC24"""
^XMB(3.9,58,2,507,0)="""RTN"",""ICD1820A"",99,0)"
^XMB(3.9,58,2,508,0)=" ..I IDENT=""""&(MDC24="""") Q"
^XMB(3.9,58,2,509,0)="""RTN"",""ICD1820A"",100,0)"
^XMB(3.9,58,2,510,0)=" ..D ^DIE"
^XMB(3.9,58,2,511,0)="""RTN"",""ICD1820A"",101,0)"
^XMB(3.9,58,2,512,0)=" ..; check if already created in case patch being re-installed"
^XMB(3.9,58,2,513,0)="""RTN"",""ICD1820A"",102,0)"
^XMB(3.9,58,2,514,0)=" ..Q:$D(^ICD0(ENTRY,2))"
^XMB(3.9,58,2,515,0)="""RTN"",""ICD1820A"",103,0)"
^XMB(3.9,58,2,516,0)=" ..;add 80.171, 80.1711 and 80.17111 records"
^XMB(3.9,58,2,517,0)="""RTN"",""ICD1820A"",104,0)"
^XMB(3.9,58,2,518,0)=" ..F SUBLINE=1:1 S X=$T(REV+LINE+SUBLINE) S DATA=$P(X,"";;"",2) Q:DATA'[""+""  D"
^XMB(3.9,58,2,519,0)="""RTN"",""ICD1820A"",105,0)"
^XMB(3.9,58,2,520,0)=" ...I SUBLINE=1 D"
^XMB(3.9,58,2,521,0)="""RTN"",""ICD1820A"",106,0)"
^XMB(3.9,58,2,522,0)=" ....S FDA(1820,80.1,""?1,"",.01)=""`""_ENTRY"
^XMB(3.9,58,2,523,0)="""RTN"",""ICD1820A"",107,0)"
^XMB(3.9,58,2,524,0)=" ....S FDA(1820,80.171,""+2,?1,"",.01)=3051001"
^XMB(3.9,58,2,525,0)="""RTN"",""ICD1820A"",108,0)"
^XMB(3.9,58,2,526,0)=" ....D UPDATE^DIE("""",""FDA(1820)"") K FDA(1820)"
^XMB(3.9,58,2,527,0)="""RTN"",""ICD1820A"",109,0)"
^XMB(3.9,58,2,528,0)=" ...S DATA=$E(DATA,2,99)"
^XMB(3.9,58,2,529,0)="""RTN"",""ICD1820A"",110,0)"
^XMB(3.9,58,2,530,0)=" ...S FDA(1820,80.1,""?1,"",.01)=""`""_ENTRY"
^XMB(3.9,58,2,531,0)="""RTN"",""ICD1820A"",111,0)"
^XMB(3.9,58,2,532,0)=" ...S FDA(1820,80.171,""?2,?1,"",.01)=3051001"
^XMB(3.9,58,2,533,0)="""RTN"",""ICD1820A"",112,0)"
^XMB(3.9,58,2,534,0)=" ...S FDA(1820,80.1711,""+3,?2,?1,"",.01)=$P(DATA,U)"
^XMB(3.9,58,2,535,0)="""RTN"",""ICD1820A"",113,0)"
^XMB(3.9,58,2,536,0)=" ...D UPDATE^DIE("""",""FDA(1820)"") K FDA(1820)"
^XMB(3.9,58,2,537,0)="""RTN"",""ICD1820A"",114,0)"
^XMB(3.9,58,2,538,0)=" ...S FDA(1820,80.1,""?1,"",.01)=""`""_ENTRY"
^XMB(3.9,58,2,539,0)="""RTN"",""ICD1820A"",115,0)"
^XMB(3.9,58,2,540,0)=" ...S FDA(1820,80.171,""?2,?1,"",.01)=3051001"
^XMB(3.9,58,2,541,0)="""RTN"",""ICD1820A"",116,0)"
^XMB(3.9,58,2,542,0)=" ...S FDA(1820,80.1711,""?3,?2,?1,"",.01)=$P(DATA,U)"
^XMB(3.9,58,2,543,0)="""RTN"",""ICD1820A"",117,0)"
^XMB(3.9,58,2,544,0)=" ...S FDA(1820,80.17111,""+4,?3,?2,?1,"",.01)=$P(DATA,U,2)"
^XMB(3.9,58,2,545,0)="""RTN"",""ICD1820A"",118,0)"
^XMB(3.9,58,2,546,0)=" ...I $P(DATA,U,3) S FDA(1820,80.17111,""+5,?3,?2,?1,"",.01)=$P(DATA,U,3)"
^XMB(3.9,58,2,547,0)="""RTN"",""ICD1820A"",119,0)"
^XMB(3.9,58,2,548,0)=" ...I $P(DATA,U,4) S FDA(1820,80.17111,""+6,?3,?2,?1,"",.01)=$P(DATA,U,4)"
^XMB(3.9,58,2,549,0)="""RTN"",""ICD1820A"",120,0)"
^XMB(3.9,58,2,550,0)=" ...I $P(DATA,U,5) S FDA(1820,80.17111,""+7,?3,?2,?1,"",.01)=$P(DATA,U,5)"
^XMB(3.9,58,2,551,0)="""RTN"",""ICD1820A"",121,0)"
^XMB(3.9,58,2,552,0)=" ...I $P(DATA,U,6) S FDA(1820,80.17111,""+8,?3,?2,?1,"",.01)=$P(DATA,U,6)"
^XMB(3.9,58,2,553,0)="""RTN"",""ICD1820A"",122,0)"
^XMB(3.9,58,2,554,0)=" ...I $P(DATA,U,7) S FDA(1820,80.17111,""+9,?3,?2,?1,"",.01)=$P(DATA,U,7)"
^XMB(3.9,58,2,555,0)="""RTN"",""ICD1820A"",123,0)"
^XMB(3.9,58,2,556,0)=" ...D UPDATE^DIE("""",""FDA(1820)"") K FDA(1820)"
^XMB(3.9,58,2,557,0)="""RTN"",""ICD1820A"",124,0)"
^XMB(3.9,58,2,558,0)=" Q"
^XMB(3.9,58,2,559,0)="""RTN"",""ICD1820A"",125,0)"
^XMB(3.9,58,2,560,0)=" ; "
^XMB(3.9,58,2,561,0)="""RTN"",""ICD1820A"",126,0)"
^XMB(3.9,58,2,562,0)="REV ;"
^XMB(3.9,58,2,563,0)="""RTN"",""ICD1820A"",127,0)"
^XMB(3.9,58,2,564,0)=" ;;00.18^^"
^XMB(3.9,58,2,565,0)="""RTN"",""ICD1820A"",128,0)"
^XMB(3.9,58,2,566,0)=" ;;00.40^^"
^XMB(3.9,58,2,567,0)="""RTN"",""ICD1820A"",129,0)"
^XMB(3.9,58,2,568,0)=" ;;00.41^^"
^XMB(3.9,58,2,569,0)="""RTN"",""ICD1820A"",130,0)"
^XMB(3.9,58,2,570,0)=" ;;00.42^^"
^XMB(3.9,58,2,571,0)="""RTN"",""ICD1820A"",131,0)"
^XMB(3.9,58,2,572,0)=" ;;00.43^^"
^XMB(3.9,58,2,573,0)="""RTN"",""ICD1820A"",132,0)"
^XMB(3.9,58,2,574,0)=" ;;00.45^^"
^XMB(3.9,58,2,575,0)="""RTN"",""ICD1820A"",133,0)"
^XMB(3.9,58,2,576,0)=" ;;00.46^^"
^XMB(3.9,58,2,577,0)="""RTN"",""ICD1820A"",134,0)"
^XMB(3.9,58,2,578,0)=" ;;00.47^^"
^XMB(3.9,58,2,579,0)="""RTN"",""ICD1820A"",135,0)"
^XMB(3.9,58,2,580,0)=" ;;00.48^^"
^XMB(3.9,58,2,581,0)="""RTN"",""ICD1820A"",136,0)"
^XMB(3.9,58,2,582,0)=" ;;00.66^Y^"
^XMB(3.9,58,2,583,0)="""RTN"",""ICD1820A"",137,0)"
^XMB(3.9,58,2,584,0)=" ;;+5^106^518^555^556^557^558"
^XMB(3.9,58,2,585,0)="""RTN"",""ICD1820A"",138,0)"
^XMB(3.9,58,2,586,0)=" ;;00.70^Y^2"
^XMB(3.9,58,2,587,0)="""RTN"",""ICD1820A"",139,0)"
^XMB(3.9,58,2,588,0)=" ;;+8^471^545"
^XMB(3.9,58,2,589,0)="""RTN"",""ICD1820A"",140,0)"
^XMB(3.9,58,2,590,0)=" ;;+10^292^293"
^XMB(3.9,58,2,591,0)="""RTN"",""ICD1820A"",141,0)"
^XMB(3.9,58,2,592,0)=" ;;+21^442^443"
^XMB(3.9,58,2,593,0)="""RTN"",""ICD1820A"",142,0)"
^XMB(3.9,58,2,594,0)=" ;;+24^485"
^XMB(3.9,58,2,595,0)="""RTN"",""ICD1820A"",143,0)"
^XMB(3.9,58,2,596,0)=" ;;00.71^Y^2"
^XMB(3.9,58,2,597,0)="""RTN"",""ICD1820A"",144,0)"
^XMB(3.9,58,2,598,0)=" ;;+8^471^545"
^XMB(3.9,58,2,599,0)="""RTN"",""ICD1820A"",145,0)"
^XMB(3.9,58,2,600,0)=" ;;+10^292^293"
^XMB(3.9,58,2,601,0)="""RTN"",""ICD1820A"",146,0)"
^XMB(3.9,58,2,602,0)=" ;;+21^442^443"
^XMB(3.9,58,2,603,0)="""RTN"",""ICD1820A"",147,0)"
^XMB(3.9,58,2,604,0)=" ;;+24^485 "
^XMB(3.9,58,2,605,0)="""RTN"",""ICD1820A"",148,0)"
^XMB(3.9,58,2,606,0)=" ;;00.72^Y^2"
^XMB(3.9,58,2,607,0)="""RTN"",""ICD1820A"",149,0)"
^XMB(3.9,58,2,608,0)=" ;;+8^471^545"
^XMB(3.9,58,2,609,0)="""RTN"",""ICD1820A"",150,0)"
^XMB(3.9,58,2,610,0)=" ;;+10^292^293"
^XMB(3.9,58,2,611,0)="""RTN"",""ICD1820A"",151,0)"
^XMB(3.9,58,2,612,0)=" ;;+21^442^443"
^XMB(3.9,58,2,613,0)="""RTN"",""ICD1820A"",152,0)"
^XMB(3.9,58,2,614,0)=" ;;+24^485"
^XMB(3.9,58,2,615,0)="""RTN"",""ICD1820A"",153,0)"
^XMB(3.9,58,2,616,0)=" ;;00.73^Y^2"
^XMB(3.9,58,2,617,0)="""RTN"",""ICD1820A"",154,0)"
^XMB(3.9,58,2,618,0)=" ;;+8^471^545"
^XMB(3.9,58,2,619,0)="""RTN"",""ICD1820A"",155,0)"
^XMB(3.9,58,2,620,0)=" ;;+10^292^293"
^XMB(3.9,58,2,621,0)="""RTN"",""ICD1820A"",156,0)"
^XMB(3.9,58,2,622,0)=" ;;+21^442^443"
^XMB(3.9,58,2,623,0)="""RTN"",""ICD1820A"",157,0)"
^XMB(3.9,58,2,624,0)=" ;;+24^485"
^XMB(3.9,58,2,625,0)="""RTN"",""ICD1820A"",158,0)"
^XMB(3.9,58,2,626,0)=" ;;00.74^^"
^XMB(3.9,58,2,627,0)="""RTN"",""ICD1820A"",159,0)"
^XMB(3.9,58,2,628,0)=" ;;00.75^^"
^XMB(3.9,58,2,629,0)="""RTN"",""ICD1820A"",160,0)"
^XMB(3.9,58,2,630,0)=" ;;00.76^^"
^XMB(3.9,58,2,631,0)="""RTN"",""ICD1820A"",161,0)"
^XMB(3.9,58,2,632,0)=" ;;00.80^Y^2"
^XMB(3.9,58,2,633,0)="""RTN"",""ICD1820A"",162,0)"
^XMB(3.9,58,2,634,0)=" ;;+8^471^545"
^XMB(3.9,58,2,635,0)="""RTN"",""ICD1820A"",163,0)"
^XMB(3.9,58,2,636,0)=" ;;+21^442^443"
^XMB(3.9,58,2,637,0)="""RTN"",""ICD1820A"",164,0)"
^XMB(3.9,58,2,638,0)=" ;;+24^486"
^XMB(3.9,58,2,639,0)="""RTN"",""ICD1820A"",165,0)"
^XMB(3.9,58,2,640,0)=" ;;00.81^Y^2"
^XMB(3.9,58,2,641,0)="""RTN"",""ICD1820A"",166,0)"
^XMB(3.9,58,2,642,0)=" ;;+8^471^545"
^XMB(3.9,58,2,643,0)="""RTN"",""ICD1820A"",167,0)"
^XMB(3.9,58,2,644,0)=" ;;+21^442^443"
^XMB(3.9,58,2,645,0)="""RTN"",""ICD1820A"",168,0)"
^XMB(3.9,58,2,646,0)=" ;;+24^486"
^XMB(3.9,58,2,647,0)="""RTN"",""ICD1820A"",169,0)"
^XMB(3.9,58,2,648,0)=" ;;00.82^Y^2"
^XMB(3.9,58,2,649,0)="""RTN"",""ICD1820A"",170,0)"
^XMB(3.9,58,2,650,0)=" ;;+8^471^545"
^XMB(3.9,58,2,651,0)="""RTN"",""ICD1820A"",171,0)"
^XMB(3.9,58,2,652,0)=" ;;+21^442^443"
^XMB(3.9,58,2,653,0)="""RTN"",""ICD1820A"",172,0)"
^XMB(3.9,58,2,654,0)=" ;;+24^486"
^XMB(3.9,58,2,655,0)="""RTN"",""ICD1820A"",173,0)"
^XMB(3.9,58,2,656,0)=" ;;00.83^Y^2"
^XMB(3.9,58,2,657,0)="""RTN"",""ICD1820A"",174,0)"
^XMB(3.9,58,2,658,0)=" ;;+8^471^545"
^XMB(3.9,58,2,659,0)="""RTN"",""ICD1820A"",175,0)"
^XMB(3.9,58,2,660,0)=" ;;+21^442^443"
^XMB(3.9,58,2,661,0)="""RTN"",""ICD1820A"",176,0)"
^XMB(3.9,58,2,662,0)=" ;;+24^486"
^XMB(3.9,58,2,663,0)="""RTN"",""ICD1820A"",177,0)"
^XMB(3.9,58,2,664,0)=" ;;00.84^Y^2"
^XMB(3.9,58,2,665,0)="""RTN"",""ICD1820A"",178,0)"
^XMB(3.9,58,2,666,0)=" ;;+8^471^545"
^XMB(3.9,58,2,667,0)="""RTN"",""ICD1820A"",179,0)"
^XMB(3.9,58,2,668,0)=" ;;+21^442^443"
^XMB(3.9,58,2,669,0)="""RTN"",""ICD1820A"",180,0)"
^XMB(3.9,58,2,670,0)=" ;;+24^486"
^XMB(3.9,58,2,671,0)="""RTN"",""ICD1820A"",181,0)"
^XMB(3.9,58,2,672,0)=" ;;01.26^^"
^XMB(3.9,58,2,673,0)="""RTN"",""ICD1820A"",182,0)"
^XMB(3.9,58,2,674,0)=" ;;01.27^^"
^XMB(3.9,58,2,675,0)="""RTN"",""ICD1820A"",183,0)"
^XMB(3.9,58,2,676,0)=" ;;37.41^Y^"
^XMB(3.9,58,2,677,0)="""RTN"",""ICD1820A"",184,0)"
^XMB(3.9,58,2,678,0)=" ;;+5^110^111"
^XMB(3.9,58,2,679,0)="""RTN"",""ICD1820A"",185,0)"
^XMB(3.9,58,2,680,0)=" ;;37.49^Y^2"
^XMB(3.9,58,2,681,0)="""RTN"",""ICD1820A"",186,0)"
^XMB(3.9,58,2,682,0)=" ;;+5^110^111"
^XMB(3.9,58,2,683,0)="""RTN"",""ICD1820A"",187,0)"
^XMB(3.9,58,2,684,0)=" ;;+21^442^443"
^XMB(3.9,58,2,685,0)="""RTN"",""ICD1820A"",188,0)"
^XMB(3.9,58,2,686,0)=" ;;+24^486"
^XMB(3.9,58,2,687,0)="""RTN"",""ICD1820A"",189,0)"
^XMB(3.9,58,2,688,0)=" ;;39.73^Y^2"
^XMB(3.9,58,2,689,0)="""RTN"",""ICD1820A"",190,0)"
^XMB(3.9,58,2,690,0)=" ;;+5^110^111"
^XMB(3.9,58,2,691,0)="""RTN"",""ICD1820A"",191,0)"
^XMB(3.9,58,2,692,0)=" ;;+11^315"
^XMB(3.9,58,2,693,0)="""RTN"",""ICD1820A"",192,0)"
^XMB(3.9,58,2,694,0)=" ;;+21^442^443"
^XMB(3.9,58,2,695,0)="""RTN"",""ICD1820A"",193,0)"
^XMB(3.9,58,2,696,0)=" ;;+24^486"
^XMB(3.9,58,2,697,0)="""RTN"",""ICD1820A"",194,0)"
^XMB(3.9,58,2,698,0)=" ;;81.18^Y^2"
^XMB(3.9,58,2,699,0)="""RTN"",""ICD1820A"",195,0)"
^XMB(3.9,58,2,700,0)=" ;;+8^233^234"
^XMB(3.9,58,2,701,0)="""RTN"",""ICD1820A"",196,0)"
^XMB(3.9,58,2,702,0)=" ;;+21^442^443"
^XMB(3.9,58,2,703,0)="""RTN"",""ICD1820A"",197,0)"
^XMB(3.9,58,2,704,0)=" ;;+24^486"
^XMB(3.9,58,2,705,0)="""RTN"",""ICD1820A"",198,0)"
^XMB(3.9,58,2,706,0)=" ;;84.56^^"
^XMB(3.9,58,2,707,0)="""RTN"",""ICD1820A"",199,0)"
^XMB(3.9,58,2,708,0)=" ;;84.57^^"
^XMB(3.9,58,2,709,0)="""RTN"",""ICD1820A"",200,0)"
^XMB(3.9,58,2,710,0)=" ;;84.58^Y^2"
^XMB(3.9,58,2,711,0)="""RTN"",""ICD1820A"",201,0)"
^XMB(3.9,58,2,712,0)=" ;;+1^531^532"
^XMB(3.9,58,2,713,0)="""RTN"",""ICD1820A"",202,0)"
^XMB(3.9,58,2,714,0)=" ;;+8^499^500"
^XMB(3.9,58,2,715,0)="""RTN"",""ICD1820A"",203,0)"
^XMB(3.9,58,2,716,0)=" ;;+21^442^443"
^XMB(3.9,58,2,717,0)="""RTN"",""ICD1820A"",204,0)"
^XMB(3.9,58,2,718,0)=" ;;+24^486"
^XMB(3.9,58,2,719,0)="""RTN"",""ICD1820A"",205,0)"
^XMB(3.9,58,2,720,0)=" ;;84.71^^"
^XMB(3.9,58,2,721,0)="""RTN"",""ICD1820A"",206,0)"
^XMB(3.9,58,2,722,0)=" ;;84.72^^"
^XMB(3.9,58,2,723,0)="""RTN"",""ICD1820A"",207,0)"
^XMB(3.9,58,2,724,0)=" ;;84.73^^"
^XMB(3.9,58,2,725,0)="""RTN"",""ICD1820A"",208,0)"
^XMB(3.9,58,2,726,0)=" ;;86.97^Y^"
^XMB(3.9,58,2,727,0)="""RTN"",""ICD1820A"",209,0)"
^XMB(3.9,58,2,728,0)=" ;;+1^7^8"
^XMB(3.9,58,2,729,0)="""RTN"",""ICD1820A"",210,0)"
^XMB(3.9,58,2,730,0)=" ;;86.98^Y^"
^XMB(3.9,58,2,731,0)="""RTN"",""ICD1820A"",211,0)"
^XMB(3.9,58,2,732,0)=" ;;+1^7^8"
^XMB(3.9,58,2,733,0)="""RTN"",""ICD1820A"",212,0)"
^XMB(3.9,58,2,734,0)=" ;;92.20^^"
^XMB(3.9,58,2,735,0)="""RTN"",""ICD1820A"",213,0)"
^XMB(3.9,58,2,736,0)=" ;;EXIT"
^XMB(3.9,58,2,737,0)="""RTN"",""ICD1820B"")"
^XMB(3.9,58,2,738,0)="0^8^B14430753"
^XMB(3.9,58,2,739,0)="""RTN"",""ICD1820B"",1,0)"
^XMB(3.9,58,2,740,0)="ICD1820B ;ALB/ESD/JAT - ICD/DRG; 6/22/01 2:43pm ; 6/29/05 3:30pm"
^XMB(3.9,58,2,741,0)="""RTN"",""ICD1820B"",2,0)"
^XMB(3.9,58,2,742,0)=" ;;18.0;DRG Grouper;**20**;Oct 13,2000"
^XMB(3.9,58,2,743,0)="""RTN"",""ICD1820B"",3,0)"
^XMB(3.9,58,2,744,0)=" ; continue updating DRGs"
^XMB(3.9,58,2,745,0)="""RTN"",""ICD1820B"",4,0)"
^XMB(3.9,58,2,746,0)=" ; - Weights & ALOS for FY 2006"
^XMB(3.9,58,2,747,0)="""RTN"",""ICD1820B"",5,0)"
^XMB(3.9,58,2,748,0)=" ; - update 80.272 multiple with new table routines for FY 2006"
^XMB(3.9,58,2,749,0)="""RTN"",""ICD1820B"",6,0)"
^XMB(3.9,58,2,750,0)=" ; - inactivate DRGs (from DRG Reclassification section in Fed Reg)        "
^XMB(3.9,58,2,751,0)="""RTN"",""ICD1820B"",7,0)"
^XMB(3.9,58,2,752,0)=" Q"
^XMB(3.9,58,2,753,0)="""RTN"",""ICD1820B"",8,0)"
^XMB(3.9,58,2,754,0)=" ;"
^XMB(3.9,58,2,755,0)="""RTN"",""ICD1820B"",9,0)"
^XMB(3.9,58,2,756,0)="UPDTDRG ;"
^XMB(3.9,58,2,757,0)="""RTN"",""ICD1820B"",10,0)"
^XMB(3.9,58,2,758,0)=" N DRG,FYR,ICDLOW,ICDHIGH,ICDLOS,ICDWWU,ICDCNT,WT,I,J"
^XMB(3.9,58,2,759,0)="""RTN"",""ICD1820B"",11,0)"
^XMB(3.9,58,2,760,0)=" N ICDREF,ICDDRG,ICDFDA"
^XMB(3.9,58,2,761,0)="""RTN"",""ICD1820B"",12,0)"
^XMB(3.9,58,2,762,0)=" D UPD01"
^XMB(3.9,58,2,763,0)="""RTN"",""ICD1820B"",13,0)"
^XMB(3.9,58,2,764,0)=" D UPD02"
^XMB(3.9,58,2,765,0)="""RTN"",""ICD1820B"",14,0)"
^XMB(3.9,58,2,766,0)=" Q"
^XMB(3.9,58,2,767,0)="""RTN"",""ICD1820B"",15,0)"
^XMB(3.9,58,2,768,0)=" ;"
^XMB(3.9,58,2,769,0)="""RTN"",""ICD1820B"",16,0)"
^XMB(3.9,58,2,770,0)=" ;"
^XMB(3.9,58,2,771,0)="""RTN"",""ICD1820B"",17,0)"
^XMB(3.9,58,2,772,0)="UPD01 ;- Load FY 2006 weights & ALOS into DRG file (#80.2)"
^XMB(3.9,58,2,773,0)="""RTN"",""ICD1820B"",18,0)"
^XMB(3.9,58,2,774,0)=" S FYR=3060000"
^XMB(3.9,58,2,775,0)="""RTN"",""ICD1820B"",19,0)"
^XMB(3.9,58,2,776,0)=" D BMES^XPDUTL("">>>  Adding FY 2006 Weights & ALOS..."")"
^XMB(3.9,58,2,777,0)="""RTN"",""ICD1820B"",20,0)"
^XMB(3.9,58,2,778,0)=" ; check if already done in case patch being re-installed"
^XMB(3.9,58,2,779,0)="""RTN"",""ICD1820B"",21,0)"
^XMB(3.9,58,2,780,0)=" Q:$D(^ICD(559,""FY"",3060000,0))"
^XMB(3.9,58,2,781,0)="""RTN"",""ICD1820B"",22,0)"
^XMB(3.9,58,2,782,0)=" F I=1:1 S WT=$P($T(WEIGHTS+I^ICD1820X),"";;"",2,99) Q:I>200  D SETVAR,FY,MORE"
^XMB(3.9,58,2,783,0)="""RTN"",""ICD1820B"",23,0)"
^XMB(3.9,58,2,784,0)=" F I=1:1 S WT=$P($T(WEIGHTS+I^ICD1820Y),"";;"",2,99) Q:I>200  D SETVAR,FY,MORE"
^XMB(3.9,58,2,785,0)="""RTN"",""ICD1820B"",24,0)"
^XMB(3.9,58,2,786,0)=" F I=1:1 S WT=$P($T(WEIGHTS+I^ICD1820Z),"";;"",2,99) Q:$E(WT,1,4)=""EXIT""  D SETVAR,FY,MORE"
^XMB(3.9,58,2,787,0)="""RTN"",""ICD1820B"",25,0)"
^XMB(3.9,58,2,788,0)=" S ^ICD(""AFY"",3060000)="""""
^XMB(3.9,58,2,789,0)="""RTN"",""ICD1820B"",26,0)"
^XMB(3.9,58,2,790,0)=" D MES^XPDUTL("">>>  ...completed."")"
^XMB(3.9,58,2,791,0)="""RTN"",""ICD1820B"",27,0)"
^XMB(3.9,58,2,792,0)=" D MES^XPDUTL("""")"
^XMB(3.9,58,2,793,0)="""RTN"",""ICD1820B"",28,0)"
^XMB(3.9,58,2,794,0)=" Q"
^XMB(3.9,58,2,795,0)="""RTN"",""ICD1820B"",29,0)"
^XMB(3.9,58,2,796,0)=" ;"
^XMB(3.9,58,2,797,0)="""RTN"",""ICD1820B"",30,0)"
^XMB(3.9,58,2,798,0)=" ;"
^XMB(3.9,58,2,799,0)="""RTN"",""ICD1820B"",31,0)"
^XMB(3.9,58,2,800,0)="FY ;- Set FY multiple with FYR stats"
^XMB(3.9,58,2,801,0)="""RTN"",""ICD1820B"",32,0)"
^XMB(3.9,58,2,802,0)=" ; check if already done in case patch being re-installed"
^XMB(3.9,58,2,803,0)="""RTN"",""ICD1820B"",33,0)"
^XMB(3.9,58,2,804,0)=" I $D(^ICD(DRG,""FY"",FYR,0)) Q"
^XMB(3.9,58,2,805,0)="""RTN"",""ICD1820B"",34,0)"
^XMB(3.9,58,2,806,0)=" S $P(^ICD(DRG,""FY"",FYR,0),""^"",1,4)=FYR_""^""_ICDWWU_""^""_ICDLOW_""^""_ICDHIGH,$P(^(0),""^"",9)=ICDLOS"
^XMB(3.9,58,2,807,0)="""RTN"",""ICD1820B"",35,0)"
^XMB(3.9,58,2,808,0)=" I '$D(^ICD(DRG,""FY"",0)) S ^ICD(DRG,""FY"",0)=""^80.22^""_FYR_""^1"" Q"
^XMB(3.9,58,2,809,0)="""RTN"",""ICD1820B"",36,0)"
^XMB(3.9,58,2,810,0)=" S ICDCNT="""" F J=0:1 S ICDCNT=$O(^ICD(DRG,""FY"",ICDCNT)) Q:ICDCNT="""""
^XMB(3.9,58,2,811,0)="""RTN"",""ICD1820B"",37,0)"
^XMB(3.9,58,2,812,0)=" S $P(^ICD(DRG,""FY"",0),""^"",3,4)=FYR_""^""_J"
^XMB(3.9,58,2,813,0)="""RTN"",""ICD1820B"",38,0)"
^XMB(3.9,58,2,814,0)=" Q"
^XMB(3.9,58,2,815,0)="""RTN"",""ICD1820B"",39,0)"
^XMB(3.9,58,2,816,0)=" ;"
^XMB(3.9,58,2,817,0)="""RTN"",""ICD1820B"",40,0)"
^XMB(3.9,58,2,818,0)=" ;"
^XMB(3.9,58,2,819,0)="""RTN"",""ICD1820B"",41,0)"
^XMB(3.9,58,2,820,0)="SETVAR ;- Set variables"
^XMB(3.9,58,2,821,0)="""RTN"",""ICD1820B"",42,0)"
^XMB(3.9,58,2,822,0)=" S DRG=$P(WT,U),ICDLOW=1,ICDHIGH=99,ICDWWU=$P(WT,U,2),ICDLOS=$P(WT,U,3)"
^XMB(3.9,58,2,823,0)="""RTN"",""ICD1820B"",43,0)"
^XMB(3.9,58,2,824,0)="DRG I DRG<544 S ICDLOW=$P(^ICD(DRG,""FY"",3050000,0),U,3),ICDHIGH=$P(^ICD(DRG,""FY"",3050000,0),U,4)"
^XMB(3.9,58,2,825,0)="""RTN"",""ICD1820B"",44,0)"
^XMB(3.9,58,2,826,0)=" Q"
^XMB(3.9,58,2,827,0)="""RTN"",""ICD1820B"",45,0)"
^XMB(3.9,58,2,828,0)=" ;"
^XMB(3.9,58,2,829,0)="""RTN"",""ICD1820B"",46,0)"
^XMB(3.9,58,2,830,0)=" ;"
^XMB(3.9,58,2,831,0)="""RTN"",""ICD1820B"",47,0)"
^XMB(3.9,58,2,832,0)="MORE ;- Set zero node with FY 2006 stats"
^XMB(3.9,58,2,833,0)="""RTN"",""ICD1820B"",48,0)"
^XMB(3.9,58,2,834,0)=" S $P(^ICD(DRG,0),""^"",2,4)=ICDWWU_""^""_ICDLOW_""^""_ICDHIGH,$P(^(0),""^"",8)=ICDLOS"
^XMB(3.9,58,2,835,0)="""RTN"",""ICD1820B"",49,0)"
^XMB(3.9,58,2,836,0)=" Q"
^XMB(3.9,58,2,837,0)="""RTN"",""ICD1820B"",50,0)"
^XMB(3.9,58,2,838,0)=" ;"
^XMB(3.9,58,2,839,0)="""RTN"",""ICD1820B"",51,0)"
^XMB(3.9,58,2,840,0)="UPD02 ; create new entries for FY 2006 versioning"
^XMB(3.9,58,2,841,0)="""RTN"",""ICD1820B"",52,0)"
^XMB(3.9,58,2,842,0)=" S DRG=0"
^XMB(3.9,58,2,843,0)="""RTN"",""ICD1820B"",53,0)"
^XMB(3.9,58,2,844,0)=" F  S DRG=$O(^ICD(DRG)) Q:'DRG  D"
^XMB(3.9,58,2,845,0)="""RTN"",""ICD1820B"",54,0)"
^XMB(3.9,58,2,846,0)=" .; check if already done in case patch being re-installed"
^XMB(3.9,58,2,847,0)="""RTN"",""ICD1820B"",55,0)"
^XMB(3.9,58,2,848,0)=" .Q:$D(^ICD(DRG,2,3,0))"
^XMB(3.9,58,2,849,0)="""RTN"",""ICD1820B"",56,0)"
^XMB(3.9,58,2,850,0)=" .; it's also already done if DRG new this year "
^XMB(3.9,58,2,851,0)="""RTN"",""ICD1820B"",57,0)"
^XMB(3.9,58,2,852,0)=" .Q:DRG>543&($D(^ICD(DRG,2)))"
^XMB(3.9,58,2,853,0)="""RTN"",""ICD1820B"",58,0)"
^XMB(3.9,58,2,854,0)=" .S (ICDDRG,ICDREF)="""""
^XMB(3.9,58,2,855,0)="""RTN"",""ICD1820B"",59,0)"
^XMB(3.9,58,2,856,0)=" .S ICDDRG=$P($G(^ICD(DRG,0)),U,1)"
^XMB(3.9,58,2,857,0)="""RTN"",""ICD1820B"",60,0)"
^XMB(3.9,58,2,858,0)=" .;""A""= FY 2005 ""B""=FY 2006 ""C""=FY 2007, etc."
^XMB(3.9,58,2,859,0)="""RTN"",""ICD1820B"",61,0)"
^XMB(3.9,58,2,860,0)=" .I $D(^ICD(DRG,2,2,0)) S ICDREF=$P(^ICD(DRG,2,2,0),U,3),ICDREF=$E(ICDREF,1,7)_""B"""
^XMB(3.9,58,2,861,0)="""RTN"",""ICD1820B"",62,0)"
^XMB(3.9,58,2,862,0)=" .;Create FY 2006 reference table entries used for FY 2006"
^XMB(3.9,58,2,863,0)="""RTN"",""ICD1820B"",63,0)"
^XMB(3.9,58,2,864,0)=" .I ICDDRG'="""",ICDREF'="""" D"
^XMB(3.9,58,2,865,0)="""RTN"",""ICD1820B"",64,0)"
^XMB(3.9,58,2,866,0)=" ..S ICDFDA(80.2,""?1,"",.01)=ICDDRG"
^XMB(3.9,58,2,867,0)="""RTN"",""ICD1820B"",65,0)"
^XMB(3.9,58,2,868,0)=" ..S ICDFDA(80.271,""+2,?1,"",.01)=3051001"
^XMB(3.9,58,2,869,0)="""RTN"",""ICD1820B"",66,0)"
^XMB(3.9,58,2,870,0)=" ..S ICDFDA(80.271,""+2,?1,"",1)=ICDREF"
^XMB(3.9,58,2,871,0)="""RTN"",""ICD1820B"",67,0)"
^XMB(3.9,58,2,872,0)=" ..D UPDATE^DIE("""",""ICDFDA"")"
^XMB(3.9,58,2,873,0)="""RTN"",""ICD1820B"",68,0)"
^XMB(3.9,58,2,874,0)=" Q"
^XMB(3.9,58,2,875,0)="""RTN"",""ICD1820B"",69,0)"
^XMB(3.9,58,2,876,0)=" ;"
^XMB(3.9,58,2,877,0)="""RTN"",""ICD1820B"",70,0)"
^XMB(3.9,58,2,878,0)="INACTDRG ;"
^XMB(3.9,58,2,879,0)="""RTN"",""ICD1820B"",71,0)"
^XMB(3.9,58,2,880,0)=" N LINE,X,ICDDRG,DESC,DA,DIE,DR,MDC,SURG,ICDFDA"
^XMB(3.9,58,2,881,0)="""RTN"",""ICD1820B"",72,0)"
^XMB(3.9,58,2,882,0)=" D BMES^XPDUTL("">>> Inactivating 10 DRGs..."")"
^XMB(3.9,58,2,883,0)="""RTN"",""ICD1820B"",73,0)"
^XMB(3.9,58,2,884,0)=" F LINE=1:1 S X=$T(INAC+LINE) S ICDDRG=$P(X,"";;"",2) Q:ICDDRG=""EXIT""  D"
^XMB(3.9,58,2,885,0)="""RTN"",""ICD1820B"",74,0)"
^XMB(3.9,58,2,886,0)=" .S DESC=""NO LONGER VALID"""
^XMB(3.9,58,2,887,0)="""RTN"",""ICD1820B"",75,0)"
^XMB(3.9,58,2,888,0)=" .S DA(1)=$P(ICDDRG,U)"
^XMB(3.9,58,2,889,0)="""RTN"",""ICD1820B"",76,0)"
^XMB(3.9,58,2,890,0)=" .S DA=1"
^XMB(3.9,58,2,891,0)="""RTN"",""ICD1820B"",77,0)"
^XMB(3.9,58,2,892,0)=" .S DIE=""^ICD(""_DA(1)_"",1,"""
^XMB(3.9,58,2,893,0)="""RTN"",""ICD1820B"",78,0)"
^XMB(3.9,58,2,894,0)=" .S DR="".01///^S X=DESC"""
^XMB(3.9,58,2,895,0)="""RTN"",""ICD1820B"",79,0)"
^XMB(3.9,58,2,896,0)=" .D ^DIE"
^XMB(3.9,58,2,897,0)="""RTN"",""ICD1820B"",80,0)"
^XMB(3.9,58,2,898,0)=" .; check if already done in case patch being re-installed"
^XMB(3.9,58,2,899,0)="""RTN"",""ICD1820B"",81,0)"
^XMB(3.9,58,2,900,0)=" .Q:$D(^ICD($P(ICDDRG,U),66,""B"",3051001))"
^XMB(3.9,58,2,901,0)="""RTN"",""ICD1820B"",82,0)"
^XMB(3.9,58,2,902,0)=" .; add entry to 80.266"
^XMB(3.9,58,2,903,0)="""RTN"",""ICD1820B"",83,0)"
^XMB(3.9,58,2,904,0)=" .S MDC=$P(ICDDRG,U,2)"
^XMB(3.9,58,2,905,0)="""RTN"",""ICD1820B"",84,0)"
^XMB(3.9,58,2,906,0)=" .S SURG=$P(ICDDRG,U,3)"
^XMB(3.9,58,2,907,0)="""RTN"",""ICD1820B"",85,0)"
^XMB(3.9,58,2,908,0)=" .S ICDDRG=$P(ICDDRG,U)"
^XMB(3.9,58,2,909,0)="""RTN"",""ICD1820B"",86,0)"
^XMB(3.9,58,2,910,0)=" .S ICDFDA(80.2,""?1,"",.01)=ICDDRG"
^XMB(3.9,58,2,911,0)="""RTN"",""ICD1820B"",87,0)"
^XMB(3.9,58,2,912,0)=" .S ICDFDA(80.266,""+2,?1,"",.01)=3051001"
^XMB(3.9,58,2,913,0)="""RTN"",""ICD1820B"",88,0)"
^XMB(3.9,58,2,914,0)=" .S ICDFDA(80.266,""+2,?1,"",.03)=0"
^XMB(3.9,58,2,915,0)="""RTN"",""ICD1820B"",89,0)"
^XMB(3.9,58,2,916,0)=" .S ICDFDA(80.266,""+2,?1,"",.05)=MDC"
^XMB(3.9,58,2,917,0)="""RTN"",""ICD1820B"",90,0)"
^XMB(3.9,58,2,918,0)=" .S ICDFDA(80.266,""+2,?1,"",.06)=SURG"
^XMB(3.9,58,2,919,0)="""RTN"",""ICD1820B"",91,0)"
^XMB(3.9,58,2,920,0)=" .D UPDATE^DIE("""",""ICDFDA"") K ICDFDA"
^XMB(3.9,58,2,921,0)="""RTN"",""ICD1820B"",92,0)"
^XMB(3.9,58,2,922,0)=" .; add entry to 80.268 and 80.2681 "
^XMB(3.9,58,2,923,0)="""RTN"",""ICD1820B"",93,0)"
^XMB(3.9,58,2,924,0)=" .S ICDFDA(80.2,""?1,"",.01)=ICDDRG"
^XMB(3.9,58,2,925,0)="""RTN"",""ICD1820B"",94,0)"
^XMB(3.9,58,2,926,0)=" .S ICDFDA(80.268,""+2,?1,"",.01)=3051001"
^XMB(3.9,58,2,927,0)="""RTN"",""ICD1820B"",95,0)"
^XMB(3.9,58,2,928,0)=" .D UPDATE^DIE("""",""ICDFDA"") K ICDFDA"
^XMB(3.9,58,2,929,0)="""RTN"",""ICD1820B"",96,0)"
^XMB(3.9,58,2,930,0)=" .S ICDFDA(80.2,""?1,"",.01)=ICDDRG"
^XMB(3.9,58,2,931,0)="""RTN"",""ICD1820B"",97,0)"
^XMB(3.9,58,2,932,0)=" .S ICDFDA(80.268,""?2,?1,"",.01)=3051001"
^XMB(3.9,58,2,933,0)="""RTN"",""ICD1820B"",98,0)"
^XMB(3.9,58,2,934,0)=" .S ICDFDA(80.2681,""+3,?2,?1,"",.01)=DESC"
^XMB(3.9,58,2,935,0)="""RTN"",""ICD1820B"",99,0)"
^XMB(3.9,58,2,936,0)=" .D UPDATE^DIE("""",""ICDFDA"") K ICDFDA"
^XMB(3.9,58,2,937,0)="""RTN"",""ICD1820B"",100,0)"
^XMB(3.9,58,2,938,0)=" Q"
^XMB(3.9,58,2,939,0)="""RTN"",""ICD1820B"",101,0)"
^XMB(3.9,58,2,940,0)=" ;"
^XMB(3.9,58,2,941,0)="""RTN"",""ICD1820B"",102,0)"
^XMB(3.9,58,2,942,0)="INAC ;"
^XMB(3.9,58,2,943,0)="""RTN"",""ICD1820B"",103,0)"
^XMB(3.9,58,2,944,0)=" ;;107^5^1"
^XMB(3.9,58,2,945,0)="""RTN"",""ICD1820B"",104,0)"
^XMB(3.9,58,2,946,0)=" ;;109^5^1"
^XMB(3.9,58,2,947,0)="""RTN"",""ICD1820B"",105,0)"
^XMB(3.9,58,2,948,0)=" ;;115^5^1"
^XMB(3.9,58,2,949,0)="""RTN"",""ICD1820B"",106,0)"
^XMB(3.9,58,2,950,0)=" ;;116^5^1"
^XMB(3.9,58,2,951,0)="""RTN"",""ICD1820B"",107,0)"
^XMB(3.9,58,2,952,0)=" ;;209^8^1"
^XMB(3.9,58,2,953,0)="""RTN"",""ICD1820B"",108,0)"
^XMB(3.9,58,2,954,0)=" ;;478^5^1"
^XMB(3.9,58,2,955,0)="""RTN"",""ICD1820B"",109,0)"
^XMB(3.9,58,2,956,0)=" ;;516^5^1"
^XMB(3.9,58,2,957,0)="""RTN"",""ICD1820B"",110,0)"
^XMB(3.9,58,2,958,0)=" ;;517^5^1"
^XMB(3.9,58,2,959,0)="""RTN"",""ICD1820B"",111,0)"
^XMB(3.9,58,2,960,0)=" ;;526^5^1"
^XMB(3.9,58,2,961,0)="""RTN"",""ICD1820B"",112,0)"
^XMB(3.9,58,2,962,0)=" ;;527^5^1"
^XMB(3.9,58,2,963,0)="""RTN"",""ICD1820B"",113,0)"
^XMB(3.9,58,2,964,0)=" ;;EXIT"
^XMB(3.9,58,2,965,0)="""RTN"",""ICD1820C"")"
^XMB(3.9,58,2,966,0)="0^9^B34780352"
^XMB(3.9,58,2,967,0)="""RTN"",""ICD1820C"",1,0)"
^XMB(3.9,58,2,968,0)="ICD1820C   ; ALB/JAT - NEW DIAGNOSIS CODES; 7/27/05 14:50;"
^XMB(3.9,58,2,969,0)="""RTN"",""ICD1820C"",2,0)"
^XMB(3.9,58,2,970,0)=" ;;18.0;DRG Grouper;**20**;Oct 13,2000"
^XMB(3.9,58,2,971,0)="""RTN"",""ICD1820C"",3,0)"
^XMB(3.9,58,2,972,0)=" Q"
^XMB(3.9,58,2,973,0)="""RTN"",""ICD1820C"",4,0)"
^XMB(3.9,58,2,974,0)=" ;"
^XMB(3.9,58,2,975,0)="""RTN"",""ICD1820C"",5,0)"
^XMB(3.9,58,2,976,0)="DIAG ;"
^XMB(3.9,58,2,977,0)="""RTN"",""ICD1820C"",6,0)"
^XMB(3.9,58,2,978,0)=" ; from Table 6A in Fed Reg - assumes new codes already added by Lexicon"
^XMB(3.9,58,2,979,0)="""RTN"",""ICD1820C"",7,0)"
^XMB(3.9,58,2,980,0)=" D BMES^XPDUTL("">>>Modifying new diagnosis codes - file 80"")"
^XMB(3.9,58,2,981,0)="""RTN"",""ICD1820C"",8,0)"
^XMB(3.9,58,2,982,0)=" N LINE,X,ICDDIAG,ENTRY,DA,DIE,DR,IDENT,MDC,MDC25,FDA"
^XMB(3.9,58,2,983,0)="""RTN"",""ICD1820C"",9,0)"
^XMB(3.9,58,2,984,0)=" F LINE=1:1 S X=$T(REVD+LINE) S ICDDIAG=$P(X,"";;"",2) Q:ICDDIAG=""EXIT""  D"
^XMB(3.9,58,2,985,0)="""RTN"",""ICD1820C"",10,0)"
^XMB(3.9,58,2,986,0)=" .S ENTRY=+$O(^ICD9(""BA"",$P(ICDDIAG,U)_"" "",0))"
^XMB(3.9,58,2,987,0)="""RTN"",""ICD1820C"",11,0)"
^XMB(3.9,58,2,988,0)=" .I ENTRY D"
^XMB(3.9,58,2,989,0)="""RTN"",""ICD1820C"",12,0)"
^XMB(3.9,58,2,990,0)="    ..;check for possible inactive dupe"
^XMB(3.9,58,2,991,0)="""RTN"",""ICD1820C"",13,0)"
^XMB(3.9,58,2,992,0)=" ..I $P($G(^ICD9(ENTRY,0)),U,9)=1 S ENTRY=+$O(^ICD9(""BA"",$P(ICDDIAG,U)_"" "",ENTRY)) I 'ENTRY Q "
^XMB(3.9,58,2,993,0)="""RTN"",""ICD1820C"",14,0)"
^XMB(3.9,58,2,994,0)=" ..S DA=ENTRY,DIE=""^ICD9("""
^XMB(3.9,58,2,995,0)="""RTN"",""ICD1820C"",15,0)"
^XMB(3.9,58,2,996,0)=" ..S IDENT=$P(ICDDIAG,U,2)"
^XMB(3.9,58,2,997,0)="""RTN"",""ICD1820C"",16,0)"
^XMB(3.9,58,2,998,0)=" ..S MDC=$P(ICDDIAG,U,3)"
^XMB(3.9,58,2,999,0)="""RTN"",""ICD1820C"",17,0)"
^XMB(3.9,58,2,1000,0)=" ..;this would only apply to diagnoses who have no other MDC than a pre-MDC"
^XMB(3.9,58,2,1001,0)="""RTN"",""ICD1820C"",18,0)"
^XMB(3.9,58,2,1002,0)=" ..I MDC=""PRE"" S MDC=98"
^XMB(3.9,58,2,1003,0)="""RTN"",""ICD1820C"",19,0)"
^XMB(3.9,58,2,1004,0)=" ..S MDC25=$P(ICDDIAG,U,4)"
^XMB(3.9,58,2,1005,0)="""RTN"",""ICD1820C"",20,0)"
^XMB(3.9,58,2,1006,0)=" ..S DR=""2///^S X=IDENT;5///^S X=MDC;5.9///^S X=MDC25"""
^XMB(3.9,58,2,1007,0)="""RTN"",""ICD1820C"",21,0)"
^XMB(3.9,58,2,1008,0)=" ..D ^DIE"
^XMB(3.9,58,2,1009,0)="""RTN"",""ICD1820C"",22,0)"
^XMB(3.9,58,2,1010,0)=" ..;check if already created in case patch being re-installed"
^XMB(3.9,58,2,1011,0)="""RTN"",""ICD1820C"",23,0)"
^XMB(3.9,58,2,1012,0)=" ..Q:$D(^ICD9(ENTRY,3))"
^XMB(3.9,58,2,1013,0)="""RTN"",""ICD1820C"",24,0)"
^XMB(3.9,58,2,1014,0)=" ..; add 80.071 and 80.711 and 80.072 records"
^XMB(3.9,58,2,1015,0)="""RTN"",""ICD1820C"",25,0)"
^XMB(3.9,58,2,1016,0)=" ..N FDA"
^XMB(3.9,58,2,1017,0)="""RTN"",""ICD1820C"",26,0)"
^XMB(3.9,58,2,1018,0)=" ..S FDA(1820,80,""?1,"",.01)=""`""_ENTRY"
^XMB(3.9,58,2,1019,0)="""RTN"",""ICD1820C"",27,0)"
^XMB(3.9,58,2,1020,0)=" ..S FDA(1820,80.071,""+2,?1,"",.01)=3051001"
^XMB(3.9,58,2,1021,0)="""RTN"",""ICD1820C"",28,0)"
^XMB(3.9,58,2,1022,0)=" ..S FDA(1820,80.072,""+3,?1,"",.01)=3051001"
^XMB(3.9,58,2,1023,0)="""RTN"",""ICD1820C"",29,0)"
^XMB(3.9,58,2,1024,0)=" ..S FDA(1820,80.072,""+3,?1,"",1)=$P(ICDDIAG,U,3)"
^XMB(3.9,58,2,1025,0)="""RTN"",""ICD1820C"",30,0)"
^XMB(3.9,58,2,1026,0)=" ..D UPDATE^DIE("""",""FDA(1820)"") K FDA(1820)"
^XMB(3.9,58,2,1027,0)="""RTN"",""ICD1820C"",31,0)"
^XMB(3.9,58,2,1028,0)=" ..S FDA(1820,80,""?1,"",.01)=""`""_ENTRY"
^XMB(3.9,58,2,1029,0)="""RTN"",""ICD1820C"",32,0)"
^XMB(3.9,58,2,1030,0)=" ..S FDA(1820,80.071,""?2,?1,"",.01)=3051001"
^XMB(3.9,58,2,1031,0)="""RTN"",""ICD1820C"",33,0)"
^XMB(3.9,58,2,1032,0)=" ..S FDA(1820,80.711,""+3,?2,?1,"",.01)=$P(ICDDIAG,U,5)"
^XMB(3.9,58,2,1033,0)="""RTN"",""ICD1820C"",34,0)"
^XMB(3.9,58,2,1034,0)=" ..I $P(ICDDIAG,U,6) S FDA(1820,80.711,""+4,?2,?1,"",.01)=$P(ICDDIAG,U,6)"
^XMB(3.9,58,2,1035,0)="""RTN"",""ICD1820C"",35,0)"
^XMB(3.9,58,2,1036,0)=" ..I $P(ICDDIAG,U,7) S FDA(1820,80.711,""+5,?2,?1,"",.01)=$P(ICDDIAG,U,7)"
^XMB(3.9,58,2,1037,0)="""RTN"",""ICD1820C"",36,0)"
^XMB(3.9,58,2,1038,0)=" ..I $P(ICDDIAG,U,8) S FDA(1820,80.711,""+6,?2,?1,"",.01)=$P(ICDDIAG,U,8)"
^XMB(3.9,58,2,1039,0)="""RTN"",""ICD1820C"",37,0)"
^XMB(3.9,58,2,1040,0)=" ..I $P(ICDDIAG,U,9) S FDA(1820,80.711,""+7,?2,?1,"",.01)=$P(ICDDIAG,U,9)"
^XMB(3.9,58,2,1041,0)="""RTN"",""ICD1820C"",38,0)"
^XMB(3.9,58,2,1042,0)=" ..I $P(ICDDIAG,U,10) S FDA(1820,80.711,""+8,?2,?1,"",.01)=$P(ICDDIAG,U,10)"
^XMB(3.9,58,2,1043,0)="""RTN"",""ICD1820C"",39,0)"
^XMB(3.9,58,2,1044,0)=" ..D UPDATE^DIE("""",""FDA(1820)"") K FDA(1820)"
^XMB(3.9,58,2,1045,0)="""RTN"",""ICD1820C"",40,0)"
^XMB(3.9,58,2,1046,0)=" Q"
^XMB(3.9,58,2,1047,0)="""RTN"",""ICD1820C"",41,0)"
^XMB(3.9,58,2,1048,0)="REVD ;"
^XMB(3.9,58,2,1049,0)="""RTN"",""ICD1820C"",42,0)"
^XMB(3.9,58,2,1050,0)=" ;;259.5^^10^^300^301"
^XMB(3.9,58,2,1051,0)="""RTN"",""ICD1820C"",43,0)"
^XMB(3.9,58,2,1052,0)=" ;;276.50^HJC^10^2^296^297^298^490"
^XMB(3.9,58,2,1053,0)="""RTN"",""ICD1820C"",44,0)"
^XMB(3.9,58,2,1054,0)=" ;;276.51^HJC^10^2^296^297^298^490"
^XMB(3.9,58,2,1055,0)="""RTN"",""ICD1820C"",45,0)"
^XMB(3.9,58,2,1056,0)=" ;;276.52^HJC^10^2^296^297^298^490"
^XMB(3.9,58,2,1057,0)="""RTN"",""ICD1820C"",46,0)"
^XMB(3.9,58,2,1058,0)=" ;;278.02^^10^^296^297^298"
^XMB(3.9,58,2,1059,0)="""RTN"",""ICD1820C"",47,0)"
^XMB(3.9,58,2,1060,0)=" ;;287.30^^16^^397"
^XMB(3.9,58,2,1061,0)="""RTN"",""ICD1820C"",48,0)"
^XMB(3.9,58,2,1062,0)=" ;;287.31^^16^^397"
^XMB(3.9,58,2,1063,0)="""RTN"",""ICD1820C"",49,0)"
^XMB(3.9,58,2,1064,0)=" ;;287.32^^16^^397"
^XMB(3.9,58,2,1065,0)="""RTN"",""ICD1820C"",50,0)"
^XMB(3.9,58,2,1066,0)=" ;;287.33^^16^^397"
^XMB(3.9,58,2,1067,0)="""RTN"",""ICD1820C"",51,0)"
^XMB(3.9,58,2,1068,0)=" ;;287.39^^16^^397"
^XMB(3.9,58,2,1069,0)="""RTN"",""ICD1820C"",52,0)"
^XMB(3.9,58,2,1070,0)=" ;;291.82^^20^^521^522^523"
^XMB(3.9,58,2,1071,0)="""RTN"",""ICD1820C"",53,0)"
^XMB(3.9,58,2,1072,0)=" ;;292.85^^20^^521^522^523"
^XMB(3.9,58,2,1073,0)="""RTN"",""ICD1820C"",54,0)"
^XMB(3.9,58,2,1074,0)=" ;;327.00^^19^^432"
^XMB(3.9,58,2,1075,0)="""RTN"",""ICD1820C"",55,0)"
^XMB(3.9,58,2,1076,0)=" ;;327.01^^19^^432"
^XMB(3.9,58,2,1077,0)="""RTN"",""ICD1820C"",56,0)"
^XMB(3.9,58,2,1078,0)=" ;;327.02^^19^^432"
^XMB(3.9,58,2,1079,0)="""RTN"",""ICD1820C"",57,0)"
^XMB(3.9,58,2,1080,0)=" ;;327.09^^19^^432"
^XMB(3.9,58,2,1081,0)="""RTN"",""ICD1820C"",58,0)"
^XMB(3.9,58,2,1082,0)=" ;;327.10^^19^^422"
^XMB(3.9,58,2,1083,0)="""RTN"",""ICD1820C"",59,0)"
^XMB(3.9,58,2,1084,0)=" ;;327.11^^19^^422"
^XMB(3.9,58,2,1085,0)="""RTN"",""ICD1820C"",60,0)"
^XMB(3.9,58,2,1086,0)=" ;;327.12^^19^^422"
^XMB(3.9,58,2,1087,0)="""RTN"",""ICD1820C"",61,0)"
^XMB(3.9,58,2,1088,0)=" ;;327.13^^19^^422"
^XMB(3.9,58,2,1089,0)="""RTN"",""ICD1820C"",62,0)"
^XMB(3.9,58,2,1090,0)=" ;;327.14^^19^^422"
^XMB(3.9,58,2,1091,0)="""RTN"",""ICD1820C"",63,0)"
^XMB(3.9,58,2,1092,0)=" ;;327.15^^19^^422"
^XMB(3.9,58,2,1093,0)="""RTN"",""ICD1820C"",64,0)"
^XMB(3.9,58,2,1094,0)=" ;;327.19^^19^^422"
^XMB(3.9,58,2,1095,0)="""RTN"",""ICD1820C"",65,0)"
^XMB(3.9,58,2,1096,0)=" ;;327.20^^3^^73^74"
^XMB(3.9,58,2,1097,0)="""RTN"",""ICD1820C"",66,0)"
^XMB(3.9,58,2,1098,0)=" ;;327.21^^1^^34^35"
^XMB(3.9,58,2,1099,0)="""RTN"",""ICD1820C"",67,0)"
^XMB(3.9,58,2,1100,0)=" ;;327.22^^4^^99^100"
^XMB(3.9,58,2,1101,0)="""RTN"",""ICD1820C"",68,0)"
^XMB(3.9,58,2,1102,0)=" ;;327.23^^3^^73^74"
^XMB(3.9,58,2,1103,0)="""RTN"",""ICD1820C"",69,0)"
^XMB(3.9,58,2,1104,0)=" ;;327.24^^3^^73^74"
^XMB(3.9,58,2,1105,0)="""RTN"",""ICD1820C"",70,0)"
^XMB(3.9,58,2,1106,0)=" ;;327.25^^1^^34^35"
^XMB(3.9,58,2,1107,0)="""RTN"",""ICD1820C"",71,0)"
^XMB(3.9,58,2,1108,0)=" ;;327.26^^3^^73^74"
^XMB(3.9,58,2,1109,0)="""RTN"",""ICD1820C"",72,0)"
^XMB(3.9,58,2,1110,0)=" ;;327.27^^1^^34^35"
^XMB(3.9,58,2,1111,0)="""RTN"",""ICD1820C"",73,0)"
^XMB(3.9,58,2,1112,0)=" ;;327.29^^3^^73^74"
^XMB(3.9,58,2,1113,0)="""RTN"",""ICD1820C"",74,0)"
^XMB(3.9,58,2,1114,0)=" ;;327.30^^1^^34^35"
^XMB(3.9,58,2,1115,0)="""RTN"",""ICD1820C"",75,0)"
^XMB(3.9,58,2,1116,0)=" ;;327.31^^1^^34^35"
^XMB(3.9,58,2,1117,0)="""RTN"",""ICD1820C"",76,0)"
^XMB(3.9,58,2,1118,0)=" ;;327.32^^1^^34^35"
^XMB(3.9,58,2,1119,0)="""RTN"",""ICD1820C"",77,0)"
^XMB(3.9,58,2,1120,0)=" ;;327.33^^1^^34^35"
^XMB(3.9,58,2,1121,0)="""RTN"",""ICD1820C"",78,0)"
^XMB(3.9,58,2,1122,0)=" ;;327.34^^1^^34^35"
^XMB(3.9,58,2,1123,0)="""RTN"",""ICD1820C"",79,0)"
^XMB(3.9,58,2,1124,0)=" ;;327.35^^1^^34^35"
^XMB(3.9,58,2,1125,0)="""RTN"",""ICD1820C"",80,0)"
^XMB(3.9,58,2,1126,0)=" ;;327.36^^1^^34^35"
^XMB(3.9,58,2,1127,0)="""RTN"",""ICD1820C"",81,0)"
^XMB(3.9,58,2,1128,0)=" ;;327.37^^1^^34^35"
^XMB(3.9,58,2,1129,0)="""RTN"",""ICD1820C"",82,0)"
^XMB(3.9,58,2,1130,0)=" ;;327.39^^1^^34^35"
^XMB(3.9,58,2,1131,0)="""RTN"",""ICD1820C"",83,0)"
^XMB(3.9,58,2,1132,0)=" ;;327.40^^3^^73^74"
^XMB(3.9,58,2,1133,0)="""RTN"",""ICD1820C"",84,0)"
^XMB(3.9,58,2,1134,0)=" ;;327.41^^1^^34^35"
^XMB(3.9,58,2,1135,0)="""RTN"",""ICD1820C"",85,0)"
^XMB(3.9,58,2,1136,0)=" ;;327.42^^3^^73^74"
^XMB(3.9,58,2,1137,0)="""RTN"",""ICD1820C"",86,0)"
^XMB(3.9,58,2,1138,0)=" ;;327.43^^1^^34^35"
^XMB(3.9,58,2,1139,0)="""RTN"",""ICD1820C"",87,0)"
^XMB(3.9,58,2,1140,0)=" ;;327.44^^3^^73^74"
^XMB(3.9,58,2,1141,0)="""RTN"",""ICD1820C"",88,0)"
^XMB(3.9,58,2,1142,0)=" ;;327.49^^3^^73^74"
^XMB(3.9,58,2,1143,0)="""RTN"",""ICD1820C"",89,0)"
^XMB(3.9,58,2,1144,0)=" ;;327.51^^1^^34^35"
^XMB(3.9,58,2,1145,0)="""RTN"",""ICD1820C"",90,0)"
^XMB(3.9,58,2,1146,0)=" ;;327.52^^1^^34^35"
^XMB(3.9,58,2,1147,0)="""RTN"",""ICD1820C"",91,0)"
^XMB(3.9,58,2,1148,0)=" ;;327.53^^3^^73^74"
^XMB(3.9,58,2,1149,0)="""RTN"",""ICD1820C"",92,0)"
^XMB(3.9,58,2,1150,0)=" ;;327.59^^3^^73^74"
^XMB(3.9,58,2,1151,0)="""RTN"",""ICD1820C"",93,0)"
^XMB(3.9,58,2,1152,0)=" ;;327.8^^3^^73^74"
^XMB(3.9,58,2,1153,0)="""RTN"",""ICD1820C"",94,0)"
^XMB(3.9,58,2,1154,0)=" ;;362.03^^2^^46^47^48"
^XMB(3.9,58,2,1155,0)="""RTN"",""ICD1820C"",95,0)"
^XMB(3.9,58,2,1156,0)=" ;;362.04^^2^^46^47^48"
^XMB(3.9,58,2,1157,0)="""RTN"",""ICD1820C"",96,0)"
^XMB(3.9,58,2,1158,0)=" ;;362.05^^2^^46^47^48"
^XMB(3.9,58,2,1159,0)="""RTN"",""ICD1820C"",97,0)"
^XMB(3.9,58,2,1160,0)=" ;;362.06^^2^^46^47^48"
^XMB(3.9,58,2,1161,0)="""RTN"",""ICD1820C"",98,0)"
^XMB(3.9,58,2,1162,0)=" ;;362.07^^2^^46^47^48"
^XMB(3.9,58,2,1163,0)="""RTN"",""ICD1820C"",99,0)"
^XMB(3.9,58,2,1164,0)=" ;;426.82^^5^^138^139"
^XMB(3.9,58,2,1165,0)="""RTN"",""ICD1820C"",100,0)"
^XMB(3.9,58,2,1166,0)=" ;;443.82^^5^^130^131"
^XMB(3.9,58,2,1167,0)="""RTN"",""ICD1820C"",101,0)"
^XMB(3.9,58,2,1168,0)=" ;;525.40^^3^^185^186^187"
^XMB(3.9,58,2,1169,0)="""RTN"",""ICD1820C"",102,0)"
^XMB(3.9,58,2,1170,0)=" ;;525.41^^3^^185^186^187"
^XMB(3.9,58,2,1171,0)="""RTN"",""ICD1820C"",103,0)"
^XMB(3.9,58,2,1172,0)=" ;;525.42^^3^^185^186^187"
^XMB(3.9,58,2,1173,0)="""RTN"",""ICD1820C"",104,0)"
^XMB(3.9,58,2,1174,0)=" ;;525.43^^3^^185^186^187"
^XMB(3.9,58,2,1175,0)="""RTN"",""ICD1820C"",105,0)"
^XMB(3.9,58,2,1176,0)=" ;;525.44^^3^^185^186^187"
^XMB(3.9,58,2,1177,0)="""RTN"",""ICD1820C"",106,0)"
^XMB(3.9,58,2,1178,0)=" ;;525.50^^3^^185^186^187"
^XMB(3.9,58,2,1179,0)="""RTN"",""ICD1820C"",107,0)"
^XMB(3.9,58,2,1180,0)=" ;;525.51^^3^^185^186^187"
^XMB(3.9,58,2,1181,0)="""RTN"",""ICD1820C"",108,0)"
^XMB(3.9,58,2,1182,0)=" ;;525.52^^3^^185^186^187"
^XMB(3.9,58,2,1183,0)="""RTN"",""ICD1820C"",109,0)"
^XMB(3.9,58,2,1184,0)=" ;;525.53^^3^^185^186^187"
^XMB(3.9,58,2,1185,0)="""RTN"",""ICD1820C"",110,0)"
^XMB(3.9,58,2,1186,0)=" ;;525.54^^3^^185^186^187"
^XMB(3.9,58,2,1187,0)="""RTN"",""ICD1820C"",111,0)"
^XMB(3.9,58,2,1188,0)=" ;;567.21^^6^^188^189^190"
^XMB(3.9,58,2,1189,0)="""RTN"",""ICD1820C"",112,0)"
^XMB(3.9,58,2,1190,0)=" ;;567.22^^6^^188^189^190"
^XMB(3.9,58,2,1191,0)="""RTN"",""ICD1820C"",113,0)"
^XMB(3.9,58,2,1192,0)=" ;;567.23^^6^^188^189^190"
^XMB(3.9,58,2,1193,0)="""RTN"",""ICD1820C"",114,0)"
^XMB(3.9,58,2,1194,0)=" ;;567.29^^6^^188^189^190"
^XMB(3.9,58,2,1195,0)="""RTN"",""ICD1820C"",115,0)"
^XMB(3.9,58,2,1196,0)=" ;;567.31^^6^^188^189^190"
^XMB(3.9,58,2,1197,0)="""RTN"",""ICD1820C"",116,0)"
^XMB(3.9,58,2,1198,0)=" ;;567.38^^6^^188^189^190"
^XMB(3.9,58,2,1199,0)="""RTN"",""ICD1820C"",117,0)"
^XMB(3.9,58,2,1200,0)=" ;;567.39^^6^^188^189^190"
^XMB(3.9,58,2,1201,0)="""RTN"",""ICD1820C"",118,0)"
^XMB(3.9,58,2,1202,0)=" ;;567.81^^6^^188^189^190"
^XMB(3.9,58,2,1203,0)="""RTN"",""ICD1820C"",119,0)"
^XMB(3.9,58,2,1204,0)=" ;;567.82^^6^^188^189^190"
^XMB(3.9,58,2,1205,0)="""RTN"",""ICD1820C"",120,0)"
^XMB(3.9,58,2,1206,0)=" ;;567.89^^6^^188^189^190"
^XMB(3.9,58,2,1207,0)="""RTN"",""ICD1820C"",121,0)"
^XMB(3.9,58,2,1208,0)=" ;;585.1^^11^^315^316"
^XMB(3.9,58,2,1209,0)="""RTN"",""ICD1820C"",122,0)"
^XMB(3.9,58,2,1210,0)=" ;;585.2^^11^^315^316"
^XMB(3.9,58,2,1211,0)="""RTN"",""ICD1820C"",123,0)"
^XMB(3.9,58,2,1212,0)=" ;;585.3^^11^^315^316"
^XMB(3.9,58,2,1213,0)="""RTN"",""ICD1820C"",124,0)"
^XMB(3.9,58,2,1214,0)=" ;;585.4^^11^^315^316"
^XMB(3.9,58,2,1215,0)="""RTN"",""ICD1820C"",125,0)"
^XMB(3.9,58,2,1216,0)=" ;;585.5^^11^^315^316"
^XMB(3.9,58,2,1217,0)="""RTN"",""ICD1820C"",126,0)"
^XMB(3.9,58,2,1218,0)=" ;;585.6^^11^^315^316"
^XMB(3.9,58,2,1219,0)="""RTN"",""ICD1820C"",127,0)"
^XMB(3.9,58,2,1220,0)=" ;;585.9^^11^^315^316"
^XMB(3.9,58,2,1221,0)="""RTN"",""ICD1820C"",128,0)"
^XMB(3.9,58,2,1222,0)=" ;;599.60^^11^^331^332^333"
^XMB(3.9,58,2,1223,0)="""RTN"",""ICD1820C"",129,0)"
^XMB(3.9,58,2,1224,0)=" ;;599.69^^11^^331^332^333"
^XMB(3.9,58,2,1225,0)="""RTN"",""ICD1820C"",130,0)"
^XMB(3.9,58,2,1226,0)=" ;;651.70^^14^^469"
^XMB(3.9,58,2,1227,0)="""RTN"",""ICD1820C"",131,0)"
^XMB(3.9,58,2,1228,0)=" ;;651.71^^14^^370^371^372^373^374^375"
^XMB(3.9,58,2,1229,0)="""RTN"",""ICD1820C"",132,0)"
^XMB(3.9,58,2,1230,0)=" ;;651.73^^14^^383^384"
^XMB(3.9,58,2,1231,0)="""RTN"",""ICD1820C"",133,0)"
^XMB(3.9,58,2,1232,0)=" ;;760.77^^15^^390"
^XMB(3.9,58,2,1233,0)="""RTN"",""ICD1820C"",134,0)"
^XMB(3.9,58,2,1234,0)=" ;;760.78^^15^^390"
^XMB(3.9,58,2,1235,0)="""RTN"",""ICD1820C"",135,0)"
^XMB(3.9,58,2,1236,0)=" ;;763.84^^15^^390"
^XMB(3.9,58,2,1237,0)="""RTN"",""ICD1820C"",136,0)"
^XMB(3.9,58,2,1238,0)=" ;;770.10^^15^^387^389"
^XMB(3.9,58,2,1239,0)="""RTN"",""ICD1820C"",137,0)"
^XMB(3.9,58,2,1240,0)=" ;;770.11^^15^^387^389"
^XMB(3.9,58,2,1241,0)="""RTN"",""ICD1820C"",138,0)"
^XMB(3.9,58,2,1242,0)=" ;;770.12^^15^^387^389"
^XMB(3.9,58,2,1243,0)="""RTN"",""ICD1820C"",139,0)"
^XMB(3.9,58,2,1244,0)=" ;;770.13^^15^^387^389"
^XMB(3.9,58,2,1245,0)="""RTN"",""ICD1820C"",140,0)"
^XMB(3.9,58,2,1246,0)=" ;;770.14^^15^^387^389"
^XMB(3.9,58,2,1247,0)="""RTN"",""ICD1820C"",141,0)"
^XMB(3.9,58,2,1248,0)=" ;;770.15^^15^^387^389"
^XMB(3.9,58,2,1249,0)="""RTN"",""ICD1820C"",142,0)"
^XMB(3.9,58,2,1250,0)=" ;;770.16^^15^^387^389"
^XMB(3.9,58,2,1251,0)="""RTN"",""ICD1820C"",143,0)"
^XMB(3.9,58,2,1252,0)=" ;;770.17^^15^^387^389"
^XMB(3.9,58,2,1253,0)="""RTN"",""ICD1820C"",144,0)"
^XMB(3.9,58,2,1254,0)=" ;;770.18^^15^^387^389"
^XMB(3.9,58,2,1255,0)="""RTN"",""ICD1820C"",145,0)"
^XMB(3.9,58,2,1256,0)=" ;;770.85^^15^^387^389"
^XMB(3.9,58,2,1257,0)="""RTN"",""ICD1820C"",146,0)"
^XMB(3.9,58,2,1258,0)=" ;;770.86^^15^^387^389"
^XMB(3.9,58,2,1259,0)="""RTN"",""ICD1820C"",147,0)"
^XMB(3.9,58,2,1260,0)=" ;;779.84^^15^^390"
^XMB(3.9,58,2,1261,0)="""RTN"",""ICD1820C"",148,0)"
^XMB(3.9,58,2,1262,0)=" ;;780.95^^23^^463^464"
^XMB(3.9,58,2,1263,0)="""RTN"",""ICD1820C"",149,0)"
^XMB(3.9,58,2,1264,0)=" ;;799.01^^4^^101^102"
^XMB(3.9,58,2,1265,0)="""RTN"",""ICD1820C"",150,0)"
^XMB(3.9,58,2,1266,0)=" ;;799.02^^4^^101^102"
^XMB(3.9,58,2,1267,0)="""RTN"",""ICD1820C"",151,0)"
^XMB(3.9,58,2,1268,0)=" ;;996.40^^8^^249"
^XMB(3.9,58,2,1269,0)="""RTN"",""ICD1820C"",152,0)"
^XMB(3.9,58,2,1270,0)=" ;;996.41^^8^^249"
^XMB(3.9,58,2,1271,0)="""RTN"",""ICD1820C"",153,0)"
^XMB(3.9,58,2,1272,0)=" ;;996.42^^8^^249"
^XMB(3.9,58,2,1273,0)="""RTN"",""ICD1820C"",154,0)"
^XMB(3.9,58,2,1274,0)=" ;;996.43^^8^^249"
^XMB(3.9,58,2,1275,0)="""RTN"",""ICD1820C"",155,0)"
^XMB(3.9,58,2,1276,0)=" ;;996.44^^8^^249"
^XMB(3.9,58,2,1277,0)="""RTN"",""ICD1820C"",156,0)"
^XMB(3.9,58,2,1278,0)=" ;;996.45^^8^^249"
^XMB(3.9,58,2,1279,0)="""RTN"",""ICD1820C"",157,0)"
^XMB(3.9,58,2,1280,0)=" ;;996.46^^8^^249"
^XMB(3.9,58,2,1281,0)="""RTN"",""ICD1820C"",158,0)"
^XMB(3.9,58,2,1282,0)=" ;;996.47^^8^^249"
^XMB(3.9,58,2,1283,0)="""RTN"",""ICD1820C"",159,0)"
^XMB(3.9,58,2,1284,0)=" ;;996.49^^8^^249"
^XMB(3.9,58,2,1285,0)="""RTN"",""ICD1820C"",160,0)"
^XMB(3.9,58,2,1286,0)=" ;;V12.42^^23^^467"
^XMB(3.9,58,2,1287,0)="""RTN"",""ICD1820C"",161,0)"
^XMB(3.9,58,2,1288,0)=" ;;V12.60^^23^^467"
^XMB(3.9,58,2,1289,0)="""RTN"",""ICD1820C"",162,0)"
^XMB(3.9,58,2,1290,0)=" ;;V12.61^^23^^467"
^XMB(3.9,58,2,1291,0)="""RTN"",""ICD1820C"",163,0)"
^XMB(3.9,58,2,1292,0)=" ;;V12.69^^23^^467"
^XMB(3.9,58,2,1293,0)="""RTN"",""ICD1820C"",164,0)"
^XMB(3.9,58,2,1294,0)=" ;;V13.02^^23^^467"
^XMB(3.9,58,2,1295,0)="""RTN"",""ICD1820C"",165,0)"
^XMB(3.9,58,2,1296,0)=" ;;V13.03^^23^^467"
^XMB(3.9,58,2,1297,0)="""RTN"",""ICD1820C"",166,0)"
^XMB(3.9,58,2,1298,0)=" ;;V15.88^^23^^467"
^XMB(3.9,58,2,1299,0)="""RTN"",""ICD1820C"",167,0)"
^XMB(3.9,58,2,1300,0)=" ;;V17.81^^23^^467"
^XMB(3.9,58,2,1301,0)="""RTN"",""ICD1820C"",168,0)"
^XMB(3.9,58,2,1302,0)=" ;;V17.89^^23^^467"
^XMB(3.9,58,2,1303,0)="""RTN"",""ICD1820C"",169,0)"
^XMB(3.9,58,2,1304,0)=" ;;V18.9^^23^^467"
^XMB(3.9,58,2,1305,0)="""RTN"",""ICD1820C"",170,0)"
^XMB(3.9,58,2,1306,0)=" ;;V26.31^^23^^467"
^XMB(3.9,58,2,1307,0)="""RTN"",""ICD1820C"",171,0)"
^XMB(3.9,58,2,1308,0)=" ;;V26.32^^23^^467"
^XMB(3.9,58,2,1309,0)="""RTN"",""ICD1820C"",172,0)"
^XMB(3.9,58,2,1310,0)=" ;;V26.33^^23^^467"
^XMB(3.9,58,2,1311,0)="""RTN"",""ICD1820C"",173,0)"
^XMB(3.9,58,2,1312,0)=" ;;V46.13^^23^^467"
^XMB(3.9,58,2,1313,0)="""RTN"",""ICD1820C"",174,0)"
^XMB(3.9,58,2,1314,0)=" ;;V46.14^^23^^467"
^XMB(3.9,58,2,1315,0)="""RTN"",""ICD1820C"",175,0)"
^XMB(3.9,58,2,1316,0)=" ;;V49.84^^23^^467"
^XMB(3.9,58,2,1317,0)="""RTN"",""ICD1820C"",176,0)"
^XMB(3.9,58,2,1318,0)=" ;;V58.11^^17^^410^492"
^XMB(3.9,58,2,1319,0)="""RTN"",""ICD1820C"",177,0)"
^XMB(3.9,58,2,1320,0)=" ;;V58.12^^17^^410^492"
^XMB(3.9,58,2,1321,0)="""RTN"",""ICD1820C"",178,0)"
^XMB(3.9,58,2,1322,0)=" ;;V59.70^^23^^467"
^XMB(3.9,58,2,1323,0)="""RTN"",""ICD1820C"",179,0)"
^XMB(3.9,58,2,1324,0)=" ;;V59.71^^23^^467"
^XMB(3.9,58,2,1325,0)="""RTN"",""ICD1820C"",180,0)"
^XMB(3.9,58,2,1326,0)=" ;;V59.72^^23^^467"
^XMB(3.9,58,2,1327,0)="""RTN"",""ICD1820C"",181,0)"
^XMB(3.9,58,2,1328,0)=" ;;V59.73^^23^^467"
^XMB(3.9,58,2,1329,0)="""RTN"",""ICD1820C"",182,0)"
^XMB(3.9,58,2,1330,0)=" ;;V59.74^^23^^467"
^XMB(3.9,58,2,1331,0)="""RTN"",""ICD1820C"",183,0)"
^XMB(3.9,58,2,1332,0)=" ;;V62.84^^19^^425"
^XMB(3.9,58,2,1333,0)="""RTN"",""ICD1820C"",184,0)"
^XMB(3.9,58,2,1334,0)=" ;;V64.00^^23^^467"
^XMB(3.9,58,2,1335,0)="""RTN"",""ICD1820C"",185,0)"
^XMB(3.9,58,2,1336,0)=" ;;V64.01^^23^^467"
^XMB(3.9,58,2,1337,0)="""RTN"",""ICD1820C"",186,0)"
^XMB(3.9,58,2,1338,0)=" ;;V64.02^^23^^467"
^XMB(3.9,58,2,1339,0)="""RTN"",""ICD1820C"",187,0)"
^XMB(3.9,58,2,1340,0)=" ;;V64.03^^23^^467"
^XMB(3.9,58,2,1341,0)="""RTN"",""ICD1820C"",188,0)"
^XMB(3.9,58,2,1342,0)=" ;;V64.04^^23^^467"
^XMB(3.9,58,2,1343,0)="""RTN"",""ICD1820C"",189,0)"
^XMB(3.9,58,2,1344,0)=" ;;V64.05^^23^^467"
^XMB(3.9,58,2,1345,0)="""RTN"",""ICD1820C"",190,0)"
^XMB(3.9,58,2,1346,0)=" ;;V64.06^^23^^467"
^XMB(3.9,58,2,1347,0)="""RTN"",""ICD1820C"",191,0)"
^XMB(3.9,58,2,1348,0)=" ;;V64.07^^23^^467"
^XMB(3.9,58,2,1349,0)="""RTN"",""ICD1820C"",192,0)"
^XMB(3.9,58,2,1350,0)=" ;;V64.08^^23^^467"
^XMB(3.9,58,2,1351,0)="""RTN"",""ICD1820C"",193,0)"
^XMB(3.9,58,2,1352,0)=" ;;V64.09^^23^^467"
^XMB(3.9,58,2,1353,0)="""RTN"",""ICD1820C"",194,0)"
^XMB(3.9,58,2,1354,0)=" ;;V69.5^^23^^467"
^XMB(3.9,58,2,1355,0)="""RTN"",""ICD1820C"",195,0)"
^XMB(3.9,58,2,1356,0)=" ;;V72.42^^23^^467"
^XMB(3.9,58,2,1357,0)="""RTN"",""ICD1820C"",196,0)"
^XMB(3.9,58,2,1358,0)=" ;;V72.86^^23^^467"
^XMB(3.9,58,2,1359,0)="""RTN"",""ICD1820C"",197,0)"
^XMB(3.9,58,2,1360,0)=" ;;V85.0^^23^^467"
^XMB(3.9,58,2,1361,0)="""RTN"",""ICD1820C"",198,0)"
^XMB(3.9,58,2,1362,0)=" ;;V85.1^^23^^467"
^XMB(3.9,58,2,1363,0)="""RTN"",""ICD1820C"",199,0)"
^XMB(3.9,58,2,1364,0)=" ;;V85.21^^23^^467"
^XMB(3.9,58,2,1365,0)="""RTN"",""ICD1820C"",200,0)"
^XMB(3.9,58,2,1366,0)=" ;;V85.22^^23^^467"
^XMB(3.9,58,2,1367,0)="""RTN"",""ICD1820C"",201,0)"
^XMB(3.9,58,2,1368,0)=" ;;V85.23^^23^^467"
^XMB(3.9,58,2,1369,0)="""RTN"",""ICD1820C"",202,0)"
^XMB(3.9,58,2,1370,0)=" ;;V85.24^^23^^467"
^XMB(3.9,58,2,1371,0)="""RTN"",""ICD1820C"",203,0)"
^XMB(3.9,58,2,1372,0)=" ;;V85.25^^23^^467"
^XMB(3.9,58,2,1373,0)="""RTN"",""ICD1820C"",204,0)"
^XMB(3.9,58,2,1374,0)=" ;;V85.30^^23^^467"
^XMB(3.9,58,2,1375,0)="""RTN"",""ICD1820C"",205,0)"
^XMB(3.9,58,2,1376,0)=" ;;V85.31^^23^^467"
^XMB(3.9,58,2,1377,0)="""RTN"",""ICD1820C"",206,0)"
^XMB(3.9,58,2,1378,0)=" ;;V85.32^^23^^467"
^XMB(3.9,58,2,1379,0)="""RTN"",""ICD1820C"",207,0)"
^XMB(3.9,58,2,1380,0)=" ;;V85.33^^23^^467"
^XMB(3.9,58,2,1381,0)="""RTN"",""ICD1820C"",208,0)"
^XMB(3.9,58,2,1382,0)=" ;;V85.34^^23^^467"
^XMB(3.9,58,2,1383,0)="""RTN"",""ICD1820C"",209,0)"
^XMB(3.9,58,2,1384,0)=" ;;V85.35^^23^^467"
^XMB(3.9,58,2,1385,0)="""RTN"",""ICD1820C"",210,0)"
^XMB(3.9,58,2,1386,0)=" ;;V85.36^^23^^467"
^XMB(3.9,58,2,1387,0)="""RTN"",""ICD1820C"",211,0)"
^XMB(3.9,58,2,1388,0)=" ;;V85.37^^23^^467"
^XMB(3.9,58,2,1389,0)="""RTN"",""ICD1820C"",212,0)"
^XMB(3.9,58,2,1390,0)=" ;;V85.38^^23^^467"
^XMB(3.9,58,2,1391,0)="""RTN"",""ICD1820C"",213,0)"
^XMB(3.9,58,2,1392,0)=" ;;V85.39^^23^^467"
^XMB(3.9,58,2,1393,0)="""RTN"",""ICD1820C"",214,0)"
^XMB(3.9,58,2,1394,0)=" ;;V85.4^^10^^296^297^298"
^XMB(3.9,58,2,1395,0)="""RTN"",""ICD1820C"",215,0)"
^XMB(3.9,58,2,1396,0)=" ;;EXIT"
^XMB(3.9,58,2,1397,0)="""RTN"",""ICD1820D"")"
^XMB(3.9,58,2,1398,0)="0^10^B32278361"
^XMB(3.9,58,2,1399,0)="""RTN"",""ICD1820D"",1,0)"
^XMB(3.9,58,2,1400,0)="ICD1820D ;;ALB/JAT - 2006 FY DRG GROUPER UPDATE; 7/27/05 14:50"
^XMB(3.9,58,2,1401,0)="""RTN"",""ICD1820D"",2,0)"
^XMB(3.9,58,2,1402,0)=" ;;18.0;DRG Grouper;**20**;Oct 13,2000"
^XMB(3.9,58,2,1403,0)="""RTN"",""ICD1820D"",3,0)"
^XMB(3.9,58,2,1404,0)=" ;"
^XMB(3.9,58,2,1405,0)="""RTN"",""ICD1820D"",4,0)"
^XMB(3.9,58,2,1406,0)=" ; DRG Reclassification"
^XMB(3.9,58,2,1407,0)="""RTN"",""ICD1820D"",5,0)"
^XMB(3.9,58,2,1408,0)=" Q"
^XMB(3.9,58,2,1409,0)="""RTN"",""ICD1820D"",6,0)"
^XMB(3.9,58,2,1410,0)="DRGRECL ;"
^XMB(3.9,58,2,1411,0)="""RTN"",""ICD1820D"",7,0)"
^XMB(3.9,58,2,1412,0)=" D BMES^XPDUTL("">>> Doing DRG Reclassification updates ..."")"
^XMB(3.9,58,2,1413,0)="""RTN"",""ICD1820D"",8,0)"
^XMB(3.9,58,2,1414,0)=" D MCV"
^XMB(3.9,58,2,1415,0)="""RTN"",""ICD1820D"",9,0)"
^XMB(3.9,58,2,1416,0)=" D DRGTITLE"
^XMB(3.9,58,2,1417,0)="""RTN"",""ICD1820D"",10,0)"
^XMB(3.9,58,2,1418,0)=" D MISC"
^XMB(3.9,58,2,1419,0)="""RTN"",""ICD1820D"",11,0)"
^XMB(3.9,58,2,1420,0)=" Q"
^XMB(3.9,58,2,1421,0)="""RTN"",""ICD1820D"",12,0)"
^XMB(3.9,58,2,1422,0)="MCV ; update diagnoses with new or additional identifiers"
^XMB(3.9,58,2,1423,0)="""RTN"",""ICD1820D"",13,0)"
^XMB(3.9,58,2,1424,0)=" ; c or s = DRGs 547 thru 558 (see MCV^ICDTLB6B)"
^XMB(3.9,58,2,1425,0)="""RTN"",""ICD1820D"",14,0)"
^XMB(3.9,58,2,1426,0)=" ; 6 = DRG 546"
^XMB(3.9,58,2,1427,0)="""RTN"",""ICD1820D"",15,0)"
^XMB(3.9,58,2,1428,0)=" N LINE,X,ICDDIAG,ENTRY,IDENT,DA,DIE,DR,DUPE"
^XMB(3.9,58,2,1429,0)="""RTN"",""ICD1820D"",16,0)"
^XMB(3.9,58,2,1430,0)=" F LINE=1:1 S X=$T(DXID+LINE) S ICDDIAG=$P(X,"";;"",2) Q:ICDDIAG=""EXIT""  D"
^XMB(3.9,58,2,1431,0)="""RTN"",""ICD1820D"",17,0)"
^XMB(3.9,58,2,1432,0)=" .S ENTRY=+$O(^ICD9(""BA"",$P(ICDDIAG,U)_"" "",0)) I ENTRY D"
^XMB(3.9,58,2,1433,0)="""RTN"",""ICD1820D"",18,0)"
^XMB(3.9,58,2,1434,0)=" ..; check for any dupe (some are in MNTVBB)"
^XMB(3.9,58,2,1435,0)="""RTN"",""ICD1820D"",19,0)"
^XMB(3.9,58,2,1436,0)=" ..S DUPE=+$O(^ICD9(""BA"",$P(ICDDIAG,U)_"" "",ENTRY)) I DUPE Q"
^XMB(3.9,58,2,1437,0)="""RTN"",""ICD1820D"",20,0)"
^XMB(3.9,58,2,1438,0)=" ..S IDENT=$P($G(^ICD9(ENTRY,0)),U,2)"
^XMB(3.9,58,2,1439,0)="""RTN"",""ICD1820D"",21,0)"
^XMB(3.9,58,2,1440,0)=" ..; check if already there in case patch is being re-installed"
^XMB(3.9,58,2,1441,0)="""RTN"",""ICD1820D"",22,0)"
^XMB(3.9,58,2,1442,0)=" ..I IDENT[""c"" Q"
^XMB(3.9,58,2,1443,0)="""RTN"",""ICD1820D"",23,0)"
^XMB(3.9,58,2,1444,0)=" ..I IDENT[""s"" Q"
^XMB(3.9,58,2,1445,0)="""RTN"",""ICD1820D"",24,0)"
^XMB(3.9,58,2,1446,0)=" ..I IDENT[""6"" Q"
^XMB(3.9,58,2,1447,0)="""RTN"",""ICD1820D"",25,0)"
^XMB(3.9,58,2,1448,0)=" ..S IDENT=IDENT_$P(ICDDIAG,U,2)"
^XMB(3.9,58,2,1449,0)="""RTN"",""ICD1820D"",26,0)"
^XMB(3.9,58,2,1450,0)=" ..S DA=ENTRY,DIE=""^ICD9("""
^XMB(3.9,58,2,1451,0)="""RTN"",""ICD1820D"",27,0)"
^XMB(3.9,58,2,1452,0)=" ..S DR=""2///^S X=IDENT"""
^XMB(3.9,58,2,1453,0)="""RTN"",""ICD1820D"",28,0)"
^XMB(3.9,58,2,1454,0)=" ..D ^DIE"
^XMB(3.9,58,2,1455,0)="""RTN"",""ICD1820D"",29,0)"
^XMB(3.9,58,2,1456,0)=" Q"
^XMB(3.9,58,2,1457,0)="""RTN"",""ICD1820D"",30,0)"
^XMB(3.9,58,2,1458,0)="DRGTITLE ; modify titles of DRGs"
^XMB(3.9,58,2,1459,0)="""RTN"",""ICD1820D"",31,0)"
^XMB(3.9,58,2,1460,0)=" N LINE,X,ICDDRG,DESC,DA,DIE,DR"
^XMB(3.9,58,2,1461,0)="""RTN"",""ICD1820D"",32,0)"
^XMB(3.9,58,2,1462,0)=" F LINE=1:1 S X=$T(TITLE+LINE) S ICDDRG=$P(X,"";;"",2) Q:ICDDRG=""EXIT""  D"
^XMB(3.9,58,2,1463,0)="""RTN"",""ICD1820D"",33,0)"
^XMB(3.9,58,2,1464,0)=" .S DESC=$P(ICDDRG,U,2)"
^XMB(3.9,58,2,1465,0)="""RTN"",""ICD1820D"",34,0)"
^XMB(3.9,58,2,1466,0)=" .S DA(1)=$P(ICDDRG,U)"
^XMB(3.9,58,2,1467,0)="""RTN"",""ICD1820D"",35,0)"
^XMB(3.9,58,2,1468,0)=" .S DA=1"
^XMB(3.9,58,2,1469,0)="""RTN"",""ICD1820D"",36,0)"
^XMB(3.9,58,2,1470,0)=" .S DIE=""^ICD(""_DA(1)_"",1,"""
^XMB(3.9,58,2,1471,0)="""RTN"",""ICD1820D"",37,0)"
^XMB(3.9,58,2,1472,0)=" .S DR="".01///^S X=DESC"""
^XMB(3.9,58,2,1473,0)="""RTN"",""ICD1820D"",38,0)"
^XMB(3.9,58,2,1474,0)=" .D ^DIE"
^XMB(3.9,58,2,1475,0)="""RTN"",""ICD1820D"",39,0)"
^XMB(3.9,58,2,1476,0)=" .S DA(2)=$P(ICDDRG,U)"
^XMB(3.9,58,2,1477,0)="""RTN"",""ICD1820D"",40,0)"
^XMB(3.9,58,2,1478,0)=" .S DA(1)=1"
^XMB(3.9,58,2,1479,0)="""RTN"",""ICD1820D"",41,0)"
^XMB(3.9,58,2,1480,0)=" .S DA=1"
^XMB(3.9,58,2,1481,0)="""RTN"",""ICD1820D"",42,0)"
^XMB(3.9,58,2,1482,0)=" .S DIE=""^ICD(""_DA(2)_"",68,""_DA(1)_"",1,"""
^XMB(3.9,58,2,1483,0)="""RTN"",""ICD1820D"",43,0)"
^XMB(3.9,58,2,1484,0)=" .S DR="".01///^S X=DESC"""
^XMB(3.9,58,2,1485,0)="""RTN"",""ICD1820D"",44,0)"
^XMB(3.9,58,2,1486,0)=" .D ^DIE"
^XMB(3.9,58,2,1487,0)="""RTN"",""ICD1820D"",45,0)"
^XMB(3.9,58,2,1488,0)=" Q"
^XMB(3.9,58,2,1489,0)="""RTN"",""ICD1820D"",46,0)"
^XMB(3.9,58,2,1490,0)="MISC ; create field #71 entries for pro codes (see patch description) "
^XMB(3.9,58,2,1491,0)="""RTN"",""ICD1820D"",47,0)"
^XMB(3.9,58,2,1492,0)=" N LINE,X,ICDPROC,ENTRY,DA,DIE,DR,IDENT,MDC24,SUBLINE,DATA,FDA"
^XMB(3.9,58,2,1493,0)="""RTN"",""ICD1820D"",48,0)"
^XMB(3.9,58,2,1494,0)=" F LINE=1:1 S X=$T(REVP+LINE) S ICDPROC=$P(X,"";;"",2) Q:ICDPROC=""EXIT""  D"
^XMB(3.9,58,2,1495,0)="""RTN"",""ICD1820D"",49,0)"
^XMB(3.9,58,2,1496,0)=" .Q:ICDPROC[""+"""
^XMB(3.9,58,2,1497,0)="""RTN"",""ICD1820D"",50,0)"
^XMB(3.9,58,2,1498,0)=" .S ENTRY=+$O(^ICD0(""BA"",$P(ICDPROC,U)_"" "",0))"
^XMB(3.9,58,2,1499,0)="""RTN"",""ICD1820D"",51,0)"
^XMB(3.9,58,2,1500,0)=" .I ENTRY D"
^XMB(3.9,58,2,1501,0)="""RTN"",""ICD1820D"",52,0)"
^XMB(3.9,58,2,1502,0)=" ..;check for possible inactive dupe"
^XMB(3.9,58,2,1503,0)="""RTN"",""ICD1820D"",53,0)"
^XMB(3.9,58,2,1504,0)=" ..I $P($G(^ICD0(ENTRY,0)),U,9)=1 S ENTRY=+$O(^ICD0(""BA"",$P(ICDPROC,U)_"" "",ENTRY)) I 'ENTRY Q"
^XMB(3.9,58,2,1505,0)="""RTN"",""ICD1820D"",54,0)"
^XMB(3.9,58,2,1506,0)=" ..S DA=ENTRY,DIE=""^ICD0("""
^XMB(3.9,58,2,1507,0)="""RTN"",""ICD1820D"",55,0)"
^XMB(3.9,58,2,1508,0)=" ..S IDENT=$P(ICDPROC,U,2)"
^XMB(3.9,58,2,1509,0)="""RTN"",""ICD1820D"",56,0)"
^XMB(3.9,58,2,1510,0)=" ..S MDC24=$P(ICDPROC,U,3)"
^XMB(3.9,58,2,1511,0)="""RTN"",""ICD1820D"",57,0)"
^XMB(3.9,58,2,1512,0)=" ..S DR=""2///^S X=IDENT;5///^S X=MDC24"""
^XMB(3.9,58,2,1513,0)="""RTN"",""ICD1820D"",58,0)"
^XMB(3.9,58,2,1514,0)=" ..D ^DIE"
^XMB(3.9,58,2,1515,0)="""RTN"",""ICD1820D"",59,0)"
^XMB(3.9,58,2,1516,0)=" ..;add 80.171 and 80.1711 and 80.17111 records"
^XMB(3.9,58,2,1517,0)="""RTN"",""ICD1820D"",60,0)"
^XMB(3.9,58,2,1518,0)=" ..F SUBLINE=1:1 S X=$T(REVP+LINE+SUBLINE) S DATA=$P(X,"";;"",2) Q:DATA'[""+""  D"
^XMB(3.9,58,2,1519,0)="""RTN"",""ICD1820D"",61,0)"
^XMB(3.9,58,2,1520,0)=" ...; check if already created in case patch being re-installed"
^XMB(3.9,58,2,1521,0)="""RTN"",""ICD1820D"",62,0)"
^XMB(3.9,58,2,1522,0)=" ...I $D(^ICD0(ENTRY,2,""B"",3051001)) Q"
^XMB(3.9,58,2,1523,0)="""RTN"",""ICD1820D"",63,0)"
^XMB(3.9,58,2,1524,0)=" ...S DATA=$E(DATA,2,99)"
^XMB(3.9,58,2,1525,0)="""RTN"",""ICD1820D"",64,0)"
^XMB(3.9,58,2,1526,0)=" ...I SUBLINE=1 D"
^XMB(3.9,58,2,1527,0)="""RTN"",""ICD1820D"",65,0)"
^XMB(3.9,58,2,1528,0)=" ....S FDA(1820,80.1,""?1,"",.01)=""`""_ENTRY"
^XMB(3.9,58,2,1529,0)="""RTN"",""ICD1820D"",66,0)"
^XMB(3.9,58,2,1530,0)=" ....S FDA(1820,80.171,""+2,?1,"",.01)=3051001"
^XMB(3.9,58,2,1531,0)="""RTN"",""ICD1820D"",67,0)"
^XMB(3.9,58,2,1532,0)=" ....D UPDATE^DIE("""",""FDA(1820)"") K FDA(1820)"
^XMB(3.9,58,2,1533,0)="""RTN"",""ICD1820D"",68,0)"
^XMB(3.9,58,2,1534,0)=" ...S FDA(1820,80.1,""?1,"",.01)=""`""_ENTRY"
^XMB(3.9,58,2,1535,0)="""RTN"",""ICD1820D"",69,0)"
^XMB(3.9,58,2,1536,0)=" ...S FDA(1820,80.171,""?2,?1,"",.01)=3051001"
^XMB(3.9,58,2,1537,0)="""RTN"",""ICD1820D"",70,0)"
^XMB(3.9,58,2,1538,0)=" ...S FDA(1820,80.1711,""+3,?2,?1,"",.01)=$P(DATA,U)"
^XMB(3.9,58,2,1539,0)="""RTN"",""ICD1820D"",71,0)"
^XMB(3.9,58,2,1540,0)=" ...D UPDATE^DIE("""",""FDA(1820)"") K FDA(1820)"
^XMB(3.9,58,2,1541,0)="""RTN"",""ICD1820D"",72,0)"
^XMB(3.9,58,2,1542,0)=" ...S FDA(1820,80.1,""?1,"",.01)=""`""_ENTRY"
^XMB(3.9,58,2,1543,0)="""RTN"",""ICD1820D"",73,0)"
^XMB(3.9,58,2,1544,0)=" ...S FDA(1820,80.171,""?2,?1,"",.01)=3051001"
^XMB(3.9,58,2,1545,0)="""RTN"",""ICD1820D"",74,0)"
^XMB(3.9,58,2,1546,0)=" ...S FDA(1820,80.1711,""?3,?2,?1,"",.01)=$P(DATA,U)"
^XMB(3.9,58,2,1547,0)="""RTN"",""ICD1820D"",75,0)"
^XMB(3.9,58,2,1548,0)=" ...S FDA(1820,80.17111,""+4,?3,?2,?1,"",.01)=$P(DATA,U,2)"
^XMB(3.9,58,2,1549,0)="""RTN"",""ICD1820D"",76,0)"
^XMB(3.9,58,2,1550,0)=" ...I $P(DATA,U,3) S FDA(1820,80.17111,""+5,?3,?2,?1,"",.01)=$P(DATA,U,3)"
^XMB(3.9,58,2,1551,0)="""RTN"",""ICD1820D"",77,0)"
^XMB(3.9,58,2,1552,0)=" ...I $P(DATA,U,4) S FDA(1820,80.17111,""+6,?3,?2,?1,"",.01)=$P(DATA,U,4)"
^XMB(3.9,58,2,1553,0)="""RTN"",""ICD1820D"",78,0)"
^XMB(3.9,58,2,1554,0)=" ...I $P(DATA,U,5) S FDA(1820,80.17111,""+7,?3,?2,?1,"",.01)=$P(DATA,U,5)"
^XMB(3.9,58,2,1555,0)="""RTN"",""ICD1820D"",79,0)"
^XMB(3.9,58,2,1556,0)=" ...D UPDATE^DIE("""",""FDA(1820)"") K FDA(1820)"
^XMB(3.9,58,2,1557,0)="""RTN"",""ICD1820D"",80,0)"
^XMB(3.9,58,2,1558,0)=" Q"
^XMB(3.9,58,2,1559,0)="""RTN"",""ICD1820D"",81,0)"
^XMB(3.9,58,2,1560,0)="DXID ;"
^XMB(3.9,58,2,1561,0)="""RTN"",""ICD1820D"",82,0)"
^XMB(3.9,58,2,1562,0)=" ;;398.91^c"
^XMB(3.9,58,2,1563,0)="""RTN"",""ICD1820D"",83,0)"
^XMB(3.9,58,2,1564,0)=" ;;402.01^c"
^XMB(3.9,58,2,1565,0)="""RTN"",""ICD1820D"",84,0)"
^XMB(3.9,58,2,1566,0)=" ;;402.11^c"
^XMB(3.9,58,2,1567,0)="""RTN"",""ICD1820D"",85,0)"
^XMB(3.9,58,2,1568,0)=" ;;402.91^c"
^XMB(3.9,58,2,1569,0)="""RTN"",""ICD1820D"",86,0)"
^XMB(3.9,58,2,1570,0)=" ;;404.01^c"
^XMB(3.9,58,2,1571,0)="""RTN"",""ICD1820D"",87,0)"
^XMB(3.9,58,2,1572,0)=" ;;404.03^c"
^XMB(3.9,58,2,1573,0)="""RTN"",""ICD1820D"",88,0)"
^XMB(3.9,58,2,1574,0)=" ;;404.11^c"
^XMB(3.9,58,2,1575,0)="""RTN"",""ICD1820D"",89,0)"
^XMB(3.9,58,2,1576,0)=" ;;404.13^c"
^XMB(3.9,58,2,1577,0)="""RTN"",""ICD1820D"",90,0)"
^XMB(3.9,58,2,1578,0)=" ;;404.91^c"
^XMB(3.9,58,2,1579,0)="""RTN"",""ICD1820D"",91,0)"
^XMB(3.9,58,2,1580,0)=" ;;404.93^c"
^XMB(3.9,58,2,1581,0)="""RTN"",""ICD1820D"",92,0)"
^XMB(3.9,58,2,1582,0)=" ;;410.01^c"
^XMB(3.9,58,2,1583,0)="""RTN"",""ICD1820D"",93,0)"
^XMB(3.9,58,2,1584,0)=" ;;410.11^c"
^XMB(3.9,58,2,1585,0)="""RTN"",""ICD1820D"",94,0)"
^XMB(3.9,58,2,1586,0)=" ;;410.21^c"
^XMB(3.9,58,2,1587,0)="""RTN"",""ICD1820D"",95,0)"
^XMB(3.9,58,2,1588,0)=" ;;410.31^c"
^XMB(3.9,58,2,1589,0)="""RTN"",""ICD1820D"",96,0)"
^XMB(3.9,58,2,1590,0)=" ;;410.41^c"
^XMB(3.9,58,2,1591,0)="""RTN"",""ICD1820D"",97,0)"
^XMB(3.9,58,2,1592,0)=" ;;410.51^c"
^XMB(3.9,58,2,1593,0)="""RTN"",""ICD1820D"",98,0)"
^XMB(3.9,58,2,1594,0)=" ;;410.61^c"
^XMB(3.9,58,2,1595,0)="""RTN"",""ICD1820D"",99,0)"
^XMB(3.9,58,2,1596,0)=" ;;410.71^c"
^XMB(3.9,58,2,1597,0)="""RTN"",""ICD1820D"",100,0)"
^XMB(3.9,58,2,1598,0)=" ;;410.81^c"
^XMB(3.9,58,2,1599,0)="""RTN"",""ICD1820D"",101,0)"
^XMB(3.9,58,2,1600,0)=" ;;410.91^c"
^XMB(3.9,58,2,1601,0)="""RTN"",""ICD1820D"",102,0)"
^XMB(3.9,58,2,1602,0)=" ;;411.0^c"
^XMB(3.9,58,2,1603,0)="""RTN"",""ICD1820D"",103,0)"
^XMB(3.9,58,2,1604,0)=" ;;414.10^c"
^XMB(3.9,58,2,1605,0)="""RTN"",""ICD1820D"",104,0)"
^XMB(3.9,58,2,1606,0)=" ;;414.11^c"
^XMB(3.9,58,2,1607,0)="""RTN"",""ICD1820D"",105,0)"
^XMB(3.9,58,2,1608,0)=" ;;414.12^c"
^XMB(3.9,58,2,1609,0)="""RTN"",""ICD1820D"",106,0)"
^XMB(3.9,58,2,1610,0)=" ;;414.19^c"
^XMB(3.9,58,2,1611,0)="""RTN"",""ICD1820D"",107,0)"
^XMB(3.9,58,2,1612,0)=" ;;415.0^c"
^XMB(3.9,58,2,1613,0)="""RTN"",""ICD1820D"",108,0)"
^XMB(3.9,58,2,1614,0)=" ;;415.11^s"
^XMB(3.9,58,2,1615,0)="""RTN"",""ICD1820D"",109,0)"
^XMB(3.9,58,2,1616,0)=" ;;415.19^s"
^XMB(3.9,58,2,1617,0)="""RTN"",""ICD1820D"",110,0)"
^XMB(3.9,58,2,1618,0)=" ;;420.0^c"
^XMB(3.9,58,2,1619,0)="""RTN"",""ICD1820D"",111,0)"
^XMB(3.9,58,2,1620,0)=" ;;420.90^c"
^XMB(3.9,58,2,1621,0)="""RTN"",""ICD1820D"",112,0)"
^XMB(3.9,58,2,1622,0)=" ;;420.91^c"
^XMB(3.9,58,2,1623,0)="""RTN"",""ICD1820D"",113,0)"
^XMB(3.9,58,2,1624,0)=" ;;420.99^c"
^XMB(3.9,58,2,1625,0)="""RTN"",""ICD1820D"",114,0)"
^XMB(3.9,58,2,1626,0)=" ;;421.0^c"
^XMB(3.9,58,2,1627,0)="""RTN"",""ICD1820D"",115,0)"
^XMB(3.9,58,2,1628,0)=" ;;421.1^c"
^XMB(3.9,58,2,1629,0)="""RTN"",""ICD1820D"",116,0)"
^XMB(3.9,58,2,1630,0)=" ;;421.9^c"
^XMB(3.9,58,2,1631,0)="""RTN"",""ICD1820D"",117,0)"
^XMB(3.9,58,2,1632,0)=" ;;422.92^c"
^XMB(3.9,58,2,1633,0)="""RTN"",""ICD1820D"",118,0)"
^XMB(3.9,58,2,1634,0)=" ;;423.0^c"
^XMB(3.9,58,2,1635,0)="""RTN"",""ICD1820D"",119,0)"
^XMB(3.9,58,2,1636,0)=" ;;424.90^c"
^XMB(3.9,58,2,1637,0)="""RTN"",""ICD1820D"",120,0)"
^XMB(3.9,58,2,1638,0)=" ;;427.1^c"
^XMB(3.9,58,2,1639,0)="""RTN"",""ICD1820D"",121,0)"
^XMB(3.9,58,2,1640,0)=" ;;427.41^c"
^XMB(3.9,58,2,1641,0)="""RTN"",""ICD1820D"",122,0)"
^XMB(3.9,58,2,1642,0)=" ;;427.5^c"
^XMB(3.9,58,2,1643,0)="""RTN"",""ICD1820D"",123,0)"
^XMB(3.9,58,2,1644,0)=" ;;428.0^c"
^XMB(3.9,58,2,1645,0)="""RTN"",""ICD1820D"",124,0)"
^XMB(3.9,58,2,1646,0)=" ;;428.1^c"
^XMB(3.9,58,2,1647,0)="""RTN"",""ICD1820D"",125,0)"
^XMB(3.9,58,2,1648,0)=" ;;428.20^c"
^XMB(3.9,58,2,1649,0)="""RTN"",""ICD1820D"",126,0)"
^XMB(3.9,58,2,1650,0)=" ;;428.21^c"
^XMB(3.9,58,2,1651,0)="""RTN"",""ICD1820D"",127,0)"
^XMB(3.9,58,2,1652,0)=" ;;428.22^c"
^XMB(3.9,58,2,1653,0)="""RTN"",""ICD1820D"",128,0)"
^XMB(3.9,58,2,1654,0)=" ;;428.23^c"
^XMB(3.9,58,2,1655,0)="""RTN"",""ICD1820D"",129,0)"
^XMB(3.9,58,2,1656,0)=" ;;428.30^c"
^XMB(3.9,58,2,1657,0)="""RTN"",""ICD1820D"",130,0)"
^XMB(3.9,58,2,1658,0)=" ;;428.31^c"
^XMB(3.9,58,2,1659,0)="""RTN"",""ICD1820D"",131,0)"
^XMB(3.9,58,2,1660,0)=" ;;428.32^c"
^XMB(3.9,58,2,1661,0)="""RTN"",""ICD1820D"",132,0)"
^XMB(3.9,58,2,1662,0)=" ;;428.33^c"
^XMB(3.9,58,2,1663,0)="""RTN"",""ICD1820D"",133,0)"
^XMB(3.9,58,2,1664,0)=" ;;428.40^c"
^XMB(3.9,58,2,1665,0)="""RTN"",""ICD1820D"",134,0)"
^XMB(3.9,58,2,1666,0)=" ;;428.41^c"
^XMB(3.9,58,2,1667,0)="""RTN"",""ICD1820D"",135,0)"
^XMB(3.9,58,2,1668,0)=" ;;428.42^c"
^XMB(3.9,58,2,1669,0)="""RTN"",""ICD1820D"",136,0)"
^XMB(3.9,58,2,1670,0)=" ;;428.43^c"
^XMB(3.9,58,2,1671,0)="""RTN"",""ICD1820D"",137,0)"
^XMB(3.9,58,2,1672,0)=" ;;428.9^c"
^XMB(3.9,58,2,1673,0)="""RTN"",""ICD1820D"",138,0)"
^XMB(3.9,58,2,1674,0)=" ;;429.5^c"
^XMB(3.9,58,2,1675,0)="""RTN"",""ICD1820D"",139,0)"
^XMB(3.9,58,2,1676,0)=" ;;429.6^c"
^XMB(3.9,58,2,1677,0)="""RTN"",""ICD1820D"",140,0)"
^XMB(3.9,58,2,1678,0)=" ;;429.71^c"
^XMB(3.9,58,2,1679,0)="""RTN"",""ICD1820D"",141,0)"
^XMB(3.9,58,2,1680,0)=" ;;429.79^c"
^XMB(3.9,58,2,1681,0)="""RTN"",""ICD1820D"",142,0)"
^XMB(3.9,58,2,1682,0)=" ;;429.81^c"
^XMB(3.9,58,2,1683,0)="""RTN"",""ICD1820D"",143,0)"
^XMB(3.9,58,2,1684,0)=" ;;430.^s"
^XMB(3.9,58,2,1685,0)="""RTN"",""ICD1820D"",144,0)"
^XMB(3.9,58,2,1686,0)=" ;;431.^s"
^XMB(3.9,58,2,1687,0)="""RTN"",""ICD1820D"",145,0)"
^XMB(3.9,58,2,1688,0)=" ;;432.0^s"
^XMB(3.9,58,2,1689,0)="""RTN"",""ICD1820D"",146,0)"
^XMB(3.9,58,2,1690,0)=" ;;432.1^s"
^XMB(3.9,58,2,1691,0)="""RTN"",""ICD1820D"",147,0)"
^XMB(3.9,58,2,1692,0)=" ;;432.9^s"
^XMB(3.9,58,2,1693,0)="""RTN"",""ICD1820D"",148,0)"
^XMB(3.9,58,2,1694,0)=" ;;433.01^s"
^XMB(3.9,58,2,1695,0)="""RTN"",""ICD1820D"",149,0)"
^XMB(3.9,58,2,1696,0)=" ;;433.11^s"
^XMB(3.9,58,2,1697,0)="""RTN"",""ICD1820D"",150,0)"
^XMB(3.9,58,2,1698,0)=" ;;433.21^s"
^XMB(3.9,58,2,1699,0)="""RTN"",""ICD1820D"",151,0)"
^XMB(3.9,58,2,1700,0)=" ;;433.31^s"
^XMB(3.9,58,2,1701,0)="""RTN"",""ICD1820D"",152,0)"
^XMB(3.9,58,2,1702,0)=" ;;433.81^s"
^XMB(3.9,58,2,1703,0)="""RTN"",""ICD1820D"",153,0)"
^XMB(3.9,58,2,1704,0)=" ;;433.91^s"
^XMB(3.9,58,2,1705,0)="""RTN"",""ICD1820D"",154,0)"
^XMB(3.9,58,2,1706,0)=" ;;434.00^s"
^XMB(3.9,58,2,1707,0)="""RTN"",""ICD1820D"",155,0)"
^XMB(3.9,58,2,1708,0)=" ;;434.01^s"
^XMB(3.9,58,2,1709,0)="""RTN"",""ICD1820D"",156,0)"
^XMB(3.9,58,2,1710,0)=" ;;434.10^s"
^XMB(3.9,58,2,1711,0)="""RTN"",""ICD1820D"",157,0)"
^XMB(3.9,58,2,1712,0)=" ;;434.11^s"
^XMB(3.9,58,2,1713,0)="""RTN"",""ICD1820D"",158,0)"
^XMB(3.9,58,2,1714,0)=" ;;434.90^s"
^XMB(3.9,58,2,1715,0)="""RTN"",""ICD1820D"",159,0)"
^XMB(3.9,58,2,1716,0)=" ;;434.91^s"
^XMB(3.9,58,2,1717,0)="""RTN"",""ICD1820D"",160,0)"
^XMB(3.9,58,2,1718,0)=" ;;436.^s"
^XMB(3.9,58,2,1719,0)="""RTN"",""ICD1820D"",161,0)"
^XMB(3.9,58,2,1720,0)=" ;;441.00^c"
^XMB(3.9,58,2,1721,0)="""RTN"",""ICD1820D"",162,0)"
^XMB(3.9,58,2,1722,0)=" ;;441.01^c"
^XMB(3.9,58,2,1723,0)="""RTN"",""ICD1820D"",163,0)"
^XMB(3.9,58,2,1724,0)=" ;;441.02^c"
^XMB(3.9,58,2,1725,0)="""RTN"",""ICD1820D"",164,0)"
^XMB(3.9,58,2,1726,0)=" ;;441.03^c"
^XMB(3.9,58,2,1727,0)="""RTN"",""ICD1820D"",165,0)"
^XMB(3.9,58,2,1728,0)=" ;;441.1^c"
^XMB(3.9,58,2,1729,0)="""RTN"",""ICD1820D"",166,0)"
^XMB(3.9,58,2,1730,0)=" ;;441.3^c"
^XMB(3.9,58,2,1731,0)="""RTN"",""ICD1820D"",167,0)"
^XMB(3.9,58,2,1732,0)=" ;;441.5^c"
^XMB(3.9,58,2,1733,0)="""RTN"",""ICD1820D"",168,0)"
^XMB(3.9,58,2,1734,0)=" ;;441.6^c"
^XMB(3.9,58,2,1735,0)="""RTN"",""ICD1820D"",169,0)"
^XMB(3.9,58,2,1736,0)=" ;;443.22^c"
^XMB(3.9,58,2,1737,0)="""RTN"",""ICD1820D"",170,0)"
^XMB(3.9,58,2,1738,0)=" ;;443.29^c"
^XMB(3.9,58,2,1739,0)="""RTN"",""ICD1820D"",171,0)"
^XMB(3.9,58,2,1740,0)=" ;;444.0^c"
^XMB(3.9,58,2,1741,0)="""RTN"",""ICD1820D"",172,0)"
^XMB(3.9,58,2,1742,0)=" ;;444.1^c"
^XMB(3.9,58,2,1743,0)="""RTN"",""ICD1820D"",173,0)"
^XMB(3.9,58,2,1744,0)=" ;;445.81^s"
^XMB(3.9,58,2,1745,0)="""RTN"",""ICD1820D"",174,0)"
^XMB(3.9,58,2,1746,0)=" ;;453.2^c"
^XMB(3.9,58,2,1747,0)="""RTN"",""ICD1820D"",175,0)"
^XMB(3.9,58,2,1748,0)=" ;;785.50^c"
^XMB(3.9,58,2,1749,0)="""RTN"",""ICD1820D"",176,0)"
^XMB(3.9,58,2,1750,0)=" ;;785.51^c"
^XMB(3.9,58,2,1751,0)="""RTN"",""ICD1820D"",177,0)"
^XMB(3.9,58,2,1752,0)=" ;;861.02^c"
^XMB(3.9,58,2,1753,0)="""RTN"",""ICD1820D"",178,0)"
^XMB(3.9,58,2,1754,0)=" ;;861.03^c"
^XMB(3.9,58,2,1755,0)="""RTN"",""ICD1820D"",179,0)"
^XMB(3.9,58,2,1756,0)=" ;;861.10^c"
^XMB(3.9,58,2,1757,0)="""RTN"",""ICD1820D"",180,0)"
^XMB(3.9,58,2,1758,0)=" ;;861.11^c"
^XMB(3.9,58,2,1759,0)="""RTN"",""ICD1820D"",181,0)"
^XMB(3.9,58,2,1760,0)=" ;;861.12^c"
^XMB(3.9,58,2,1761,0)="""RTN"",""ICD1820D"",182,0)"
^XMB(3.9,58,2,1762,0)=" ;;861.13^c"
^XMB(3.9,58,2,1763,0)="""RTN"",""ICD1820D"",183,0)"
^XMB(3.9,58,2,1764,0)=" ;;862.9^s"
^XMB(3.9,58,2,1765,0)="""RTN"",""ICD1820D"",184,0)"
^XMB(3.9,58,2,1766,0)=" ;;996.61^c"
^XMB(3.9,58,2,1767,0)="""RTN"",""ICD1820D"",185,0)"
^XMB(3.9,58,2,1768,0)=" ;;996.62^c"
^XMB(3.9,58,2,1769,0)="""RTN"",""ICD1820D"",186,0)"
^XMB(3.9,58,2,1770,0)=" ;;996.72^c"
^XMB(3.9,58,2,1771,0)="""RTN"",""ICD1820D"",187,0)"
^XMB(3.9,58,2,1772,0)=" ;;996.83^c"
^XMB(3.9,58,2,1773,0)="""RTN"",""ICD1820D"",188,0)"
^XMB(3.9,58,2,1774,0)=" ;;170.2^6"
^XMB(3.9,58,2,1775,0)="""RTN"",""ICD1820D"",189,0)"
^XMB(3.9,58,2,1776,0)=" ;;198.5^6"
^XMB(3.9,58,2,1777,0)="""RTN"",""ICD1820D"",190,0)"
^XMB(3.9,58,2,1778,0)=" ;;213.2^6"
^XMB(3.9,58,2,1779,0)="""RTN"",""ICD1820D"",191,0)"
^XMB(3.9,58,2,1780,0)=" ;;238.0^6"
^XMB(3.9,58,2,1781,0)="""RTN"",""ICD1820D"",192,0)"
^XMB(3.9,58,2,1782,0)=" ;;239.2^6"
^XMB(3.9,58,2,1783,0)="""RTN"",""ICD1820D"",193,0)"
^XMB(3.9,58,2,1784,0)=" ;;732.0^6"
^XMB(3.9,58,2,1785,0)="""RTN"",""ICD1820D"",194,0)"
^XMB(3.9,58,2,1786,0)=" ;;733.13^6"
^XMB(3.9,58,2,1787,0)="""RTN"",""ICD1820D"",195,0)"
^XMB(3.9,58,2,1788,0)=" ;;737.0^6"
^XMB(3.9,58,2,1789,0)="""RTN"",""ICD1820D"",196,0)"
^XMB(3.9,58,2,1790,0)=" ;;737.10^6"
^XMB(3.9,58,2,1791,0)="""RTN"",""ICD1820D"",197,0)"
^XMB(3.9,58,2,1792,0)=" ;;737.11^6"
^XMB(3.9,58,2,1793,0)="""RTN"",""ICD1820D"",198,0)"
^XMB(3.9,58,2,1794,0)=" ;;737.12^6"
^XMB(3.9,58,2,1795,0)="""RTN"",""ICD1820D"",199,0)"
^XMB(3.9,58,2,1796,0)=" ;;737.19^6"
^XMB(3.9,58,2,1797,0)="""RTN"",""ICD1820D"",200,0)"
^XMB(3.9,58,2,1798,0)=" ;;737.20^6"
^XMB(3.9,58,2,1799,0)="""RTN"",""ICD1820D"",201,0)"
^XMB(3.9,58,2,1800,0)=" ;;737.21^6"
^XMB(3.9,58,2,1801,0)="""RTN"",""ICD1820D"",202,0)"
^XMB(3.9,58,2,1802,0)=" ;;737.22^6"
^XMB(3.9,58,2,1803,0)="""RTN"",""ICD1820D"",203,0)"
^XMB(3.9,58,2,1804,0)=" ;;737.29^6"
^XMB(3.9,58,2,1805,0)="""RTN"",""ICD1820D"",204,0)"
^XMB(3.9,58,2,1806,0)=" ;;737.30^6"
^XMB(3.9,58,2,1807,0)="""RTN"",""ICD1820D"",205,0)"
^XMB(3.9,58,2,1808,0)=" ;;737.31^6"
^XMB(3.9,58,2,1809,0)="""RTN"",""ICD1820D"",206,0)"
^XMB(3.9,58,2,1810,0)=" ;;737.32^6"
^XMB(3.9,58,2,1811,0)="""RTN"",""ICD1820D"",207,0)"
^XMB(3.9,58,2,1812,0)=" ;;737.33^6"
^XMB(3.9,58,2,1813,0)="""RTN"",""ICD1820D"",208,0)"
^XMB(3.9,58,2,1814,0)=" ;;737.34^6"
^XMB(3.9,58,2,1815,0)="""RTN"",""ICD1820D"",209,0)"
^XMB(3.9,58,2,1816,0)=" ;;737.39^6"
^XMB(3.9,58,2,1817,0)="""RTN"",""ICD1820D"",210,0)"
^XMB(3.9,58,2,1818,0)=" ;;737.8^6"
^XMB(3.9,58,2,1819,0)="""RTN"",""ICD1820D"",211,0)"
^XMB(3.9,58,2,1820,0)=" ;;737.9^6"
^XMB(3.9,58,2,1821,0)="""RTN"",""ICD1820D"",212,0)"
^XMB(3.9,58,2,1822,0)=" ;;754.2^6"
^XMB(3.9,58,2,1823,0)="""RTN"",""ICD1820D"",213,0)"
^XMB(3.9,58,2,1824,0)=" ;;756.51^6"
^XMB(3.9,58,2,1825,0)="""RTN"",""ICD1820D"",214,0)"
^XMB(3.9,58,2,1826,0)=" ;;EXIT"
^XMB(3.9,58,2,1827,0)="""RTN"",""ICD1820D"",215,0)"
^XMB(3.9,58,2,1828,0)=" Q"
^XMB(3.9,58,2,1829,0)="""RTN"",""ICD1820D"",216,0)"
^XMB(3.9,58,2,1830,0)="TITLE ;"
^XMB(3.9,58,2,1831,0)="""RTN"",""ICD1820D"",217,0)"
^XMB(3.9,58,2,1832,0)=" ;;541^ECMO OR TRACH W/MV 96+ HRS OR PDX EXC FACE,MOUTH,& NECK W/MAJOR OR"
^XMB(3.9,58,2,1833,0)="""RTN"",""ICD1820D"",218,0)"
^XMB(3.9,58,2,1834,0)=" ;;542^TRACH W/MV 96+ HRS OR PDX EXC FACE,MOUTH,& NECK W/O MAJOR OR"
^XMB(3.9,58,2,1835,0)="""RTN"",""ICD1820D"",219,0)"
^XMB(3.9,58,2,1836,0)=" ;;14^INTRACRANIAL HEMORRHAGE OR CEREBRAL INFARCTION"
^XMB(3.9,58,2,1837,0)="""RTN"",""ICD1820D"",220,0)"
^XMB(3.9,58,2,1838,0)=" ;;315^OTHER KIDNEY & URINARY TRACT PROCEDURES"
^XMB(3.9,58,2,1839,0)="""RTN"",""ICD1820D"",221,0)"
^XMB(3.9,58,2,1840,0)=" ;;276^NON-MALIGNANT BREAST DISORDERS"
^XMB(3.9,58,2,1841,0)="""RTN"",""ICD1820D"",222,0)"
^XMB(3.9,58,2,1842,0)=" ;;EXIT"
^XMB(3.9,58,2,1843,0)="""RTN"",""ICD1820D"",223,0)"
^XMB(3.9,58,2,1844,0)=" Q"
^XMB(3.9,58,2,1845,0)="""RTN"",""ICD1820D"",224,0)"
^XMB(3.9,58,2,1846,0)="REVP ;"
^XMB(3.9,58,2,1847,0)="""RTN"",""ICD1820D"",225,0)"
^XMB(3.9,58,2,1848,0)=" ;;99.10^^"
^XMB(3.9,58,2,1849,0)="""RTN"",""ICD1820D"",226,0)"
^XMB(3.9,58,2,1850,0)=" ;;+1^559"
^XMB(3.9,58,2,1851,0)="""RTN"",""ICD1820D"",227,0)"
^XMB(3.9,58,2,1852,0)=" ;;35.52^Oo^"
^XMB(3.9,58,2,1853,0)="""RTN"",""ICD1820D"",228,0)"
^XMB(3.9,58,2,1854,0)=" ;;+5^518"
^XMB(3.9,58,2,1855,0)="""RTN"",""ICD1820D"",229,0)"
^XMB(3.9,58,2,1856,0)=" ;;81.51^OM^2"
^XMB(3.9,58,2,1857,0)="""RTN"",""ICD1820D"",230,0)"
^XMB(3.9,58,2,1858,0)=" ;;+8^471^544"
^XMB(3.9,58,2,1859,0)="""RTN"",""ICD1820D"",231,0)"
^XMB(3.9,58,2,1860,0)=" ;;81.52^OM^2"
^XMB(3.9,58,2,1861,0)="""RTN"",""ICD1820D"",232,0)"
^XMB(3.9,58,2,1862,0)=" ;;+8^471^544"
^XMB(3.9,58,2,1863,0)="""RTN"",""ICD1820D"",233,0)"
^XMB(3.9,58,2,1864,0)=" ;;81.53^OM^2"
^XMB(3.9,58,2,1865,0)="""RTN"",""ICD1820D"",234,0)"
^XMB(3.9,58,2,1866,0)=" ;;+8^471^545"
^XMB(3.9,58,2,1867,0)="""RTN"",""ICD1820D"",235,0)"
^XMB(3.9,58,2,1868,0)=" ;;81.54^OM^3"
^XMB(3.9,58,2,1869,0)="""RTN"",""ICD1820D"",236,0)"
^XMB(3.9,58,2,1870,0)=" ;;+8^471^544"
^XMB(3.9,58,2,1871,0)="""RTN"",""ICD1820D"",237,0)"
^XMB(3.9,58,2,1872,0)=" ;;81.55^OM^3"
^XMB(3.9,58,2,1873,0)="""RTN"",""ICD1820D"",238,0)"
^XMB(3.9,58,2,1874,0)=" ;;+8^471^545"
^XMB(3.9,58,2,1875,0)="""RTN"",""ICD1820D"",239,0)"
^XMB(3.9,58,2,1876,0)=" ;;81.56^OM^3"
^XMB(3.9,58,2,1877,0)="""RTN"",""ICD1820D"",240,0)"
^XMB(3.9,58,2,1878,0)=" ;;+8^471^544"
^XMB(3.9,58,2,1879,0)="""RTN"",""ICD1820D"",241,0)"
^XMB(3.9,58,2,1880,0)=" ;;84.26^O^2"
^XMB(3.9,58,2,1881,0)="""RTN"",""ICD1820D"",242,0)"
^XMB(3.9,58,2,1882,0)=" ;;+8^544"
^XMB(3.9,58,2,1883,0)="""RTN"",""ICD1820D"",243,0)"
^XMB(3.9,58,2,1884,0)=" ;;84.27^O^2"
^XMB(3.9,58,2,1885,0)="""RTN"",""ICD1820D"",244,0)"
^XMB(3.9,58,2,1886,0)=" ;;+8^544"
^XMB(3.9,58,2,1887,0)="""RTN"",""ICD1820D"",245,0)"
^XMB(3.9,58,2,1888,0)=" ;;84.28^O^2"
^XMB(3.9,58,2,1889,0)="""RTN"",""ICD1820D"",246,0)"
^XMB(3.9,58,2,1890,0)=" ;;+8^544"
^XMB(3.9,58,2,1891,0)="""RTN"",""ICD1820D"",247,0)"
^XMB(3.9,58,2,1892,0)=" ;;EXIT"
^XMB(3.9,58,2,1893,0)="""RTN"",""ICD1820D"",248,0)"
^XMB(3.9,58,2,1894,0)=" Q "
^XMB(3.9,58,2,1895,0)="""RTN"",""ICD1820E"")"
^XMB(3.9,58,2,1896,0)="0^11^B16635319"
^XMB(3.9,58,2,1897,0)="""RTN"",""ICD1820E"",1,0)"
^XMB(3.9,58,2,1898,0)="ICD1820E ;;ALB/JAT - 2006 FY DRG GROUPER UPDATE; 7/27/05 14:50"
^XMB(3.9,58,2,1899,0)="""RTN"",""ICD1820E"",2,0)"
^XMB(3.9,58,2,1900,0)=" ;;18.0;DRG Grouper;**20**;Oct 13,2000"
^XMB(3.9,58,2,1901,0)="""RTN"",""ICD1820E"",3,0)"
^XMB(3.9,58,2,1902,0)=" ;"
^XMB(3.9,58,2,1903,0)="""RTN"",""ICD1820E"",4,0)"
^XMB(3.9,58,2,1904,0)=" ; fix latest tickets"
^XMB(3.9,58,2,1905,0)="""RTN"",""ICD1820E"",5,0)"
^XMB(3.9,58,2,1906,0)=" Q"
^XMB(3.9,58,2,1907,0)="""RTN"",""ICD1820E"",6,0)"
^XMB(3.9,58,2,1908,0)=" ;"
^XMB(3.9,58,2,1909,0)="""RTN"",""ICD1820E"",7,0)"
^XMB(3.9,58,2,1910,0)="REMEDY ;"
^XMB(3.9,58,2,1911,0)="""RTN"",""ICD1820E"",8,0)"
^XMB(3.9,58,2,1912,0)=" D BMES^XPDUTL(""...Repairing Remedy tickets..."")"
^XMB(3.9,58,2,1913,0)="""RTN"",""ICD1820E"",9,0)"
^XMB(3.9,58,2,1914,0)=" ; HD102030"
^XMB(3.9,58,2,1915,0)="""RTN"",""ICD1820E"",10,0)"
^XMB(3.9,58,2,1916,0)=" ; modify Identifier field (#2) in file 80.1 - add a ""B"" for bone marrow"
^XMB(3.9,58,2,1917,0)="""RTN"",""ICD1820E"",11,0)"
^XMB(3.9,58,2,1918,0)=" N LINE,X,ICDPROC,ENTRY,DA,DIE,DR,IDENT,DIC"
^XMB(3.9,58,2,1919,0)="""RTN"",""ICD1820E"",12,0)"
^XMB(3.9,58,2,1920,0)=" F LINE=1:1 S X=$T(REVID+LINE) S ICDPROC=$P(X,"";;"",2) Q:ICDPROC=""EXIT""  D"
^XMB(3.9,58,2,1921,0)="""RTN"",""ICD1820E"",13,0)"
^XMB(3.9,58,2,1922,0)=" .S ENTRY=+$O(^ICD0(""BA"",$P(ICDPROC,U)_"" "",0)) I ENTRY D"
^XMB(3.9,58,2,1923,0)="""RTN"",""ICD1820E"",14,0)"
^XMB(3.9,58,2,1924,0)=" ..S DA=ENTRY,DIE=""^ICD0("""
^XMB(3.9,58,2,1925,0)="""RTN"",""ICD1820E"",15,0)"
^XMB(3.9,58,2,1926,0)=" ..S IDENT=$P(ICDPROC,U,2)"
^XMB(3.9,58,2,1927,0)="""RTN"",""ICD1820E"",16,0)"
^XMB(3.9,58,2,1928,0)=" ..S DR=""2///^S X=IDENT"""
^XMB(3.9,58,2,1929,0)="""RTN"",""ICD1820E"",17,0)"
^XMB(3.9,58,2,1930,0)=" ..D ^DIE"
^XMB(3.9,58,2,1931,0)="""RTN"",""ICD1820E"",18,0)"
^XMB(3.9,58,2,1932,0)=" ;"
^XMB(3.9,58,2,1933,0)="""RTN"",""ICD1820E"",19,0)"
^XMB(3.9,58,2,1934,0)=" ; HD97884"
^XMB(3.9,58,2,1935,0)="""RTN"",""ICD1820E"",20,0)"
^XMB(3.9,58,2,1936,0)=" ; change MDC from 1 to 18 for diags 995.90 thru 995.94"
^XMB(3.9,58,2,1937,0)="""RTN"",""ICD1820E"",21,0)"
^XMB(3.9,58,2,1938,0)=" F X=13722,13723,13724,13725,13726 D"
^XMB(3.9,58,2,1939,0)="""RTN"",""ICD1820E"",22,0)"
^XMB(3.9,58,2,1940,0)=" .S DA=X,DIE=""^ICD9("",IDENT=18"
^XMB(3.9,58,2,1941,0)="""RTN"",""ICD1820E"",23,0)"
^XMB(3.9,58,2,1942,0)=" .S DR=""5///^S X=IDENT"""
^XMB(3.9,58,2,1943,0)="""RTN"",""ICD1820E"",24,0)"
^XMB(3.9,58,2,1944,0)=" .D ^DIE"
^XMB(3.9,58,2,1945,0)="""RTN"",""ICD1820E"",25,0)"
^XMB(3.9,58,2,1946,0)=" ; kill 80.071, 80.711 and 80.072 subfile records for diags 995.90 thru 995.94"
^XMB(3.9,58,2,1947,0)="""RTN"",""ICD1820E"",26,0)"
^XMB(3.9,58,2,1948,0)=" N X,DA,DIK"
^XMB(3.9,58,2,1949,0)="""RTN"",""ICD1820E"",27,0)"
^XMB(3.9,58,2,1950,0)=" F X=13722,13723,13724,13725,13726 D"
^XMB(3.9,58,2,1951,0)="""RTN"",""ICD1820E"",28,0)"
^XMB(3.9,58,2,1952,0)=" .S DA(1)=X"
^XMB(3.9,58,2,1953,0)="""RTN"",""ICD1820E"",29,0)"
^XMB(3.9,58,2,1954,0)=" .S DA=2"
^XMB(3.9,58,2,1955,0)="""RTN"",""ICD1820E"",30,0)"
^XMB(3.9,58,2,1956,0)=" .S DIK=""^ICD9(""_DA(1)_"",""""3"""","""
^XMB(3.9,58,2,1957,0)="""RTN"",""ICD1820E"",31,0)"
^XMB(3.9,58,2,1958,0)=" .D ^DIK"
^XMB(3.9,58,2,1959,0)="""RTN"",""ICD1820E"",32,0)"
^XMB(3.9,58,2,1960,0)=" .S DIK=""^ICD9(""_DA(1)_"",""""4"""","""
^XMB(3.9,58,2,1961,0)="""RTN"",""ICD1820E"",33,0)"
^XMB(3.9,58,2,1962,0)=" .D ^DIK"
^XMB(3.9,58,2,1963,0)="""RTN"",""ICD1820E"",34,0)"
^XMB(3.9,58,2,1964,0)=" ;"
^XMB(3.9,58,2,1965,0)="""RTN"",""ICD1820E"",35,0)"
^XMB(3.9,58,2,1966,0)=" ; HD 106613"
^XMB(3.9,58,2,1967,0)="""RTN"",""ICD1820E"",36,0)"
^XMB(3.9,58,2,1968,0)=" ; routine ICDDRG changed - no code set changes"
^XMB(3.9,58,2,1969,0)="""RTN"",""ICD1820E"",37,0)"
^XMB(3.9,58,2,1970,0)=" ; "
^XMB(3.9,58,2,1971,0)="""RTN"",""ICD1820E"",38,0)"
^XMB(3.9,58,2,1972,0)=" ; HD 107571"
^XMB(3.9,58,2,1973,0)="""RTN"",""ICD1820E"",39,0)"
^XMB(3.9,58,2,1974,0)=" ; add additional MDCs and associated DRGs for new op/pro codes from last year (FY 2005)"
^XMB(3.9,58,2,1975,0)="""RTN"",""ICD1820E"",40,0)"
^XMB(3.9,58,2,1976,0)="PRO ;"
^XMB(3.9,58,2,1977,0)="""RTN"",""ICD1820E"",41,0)"
^XMB(3.9,58,2,1978,0)=" N LINE,X,ICDPROC,ENTRY,DA,DIE,DR,IDENT,MDC24,SUBLINE,DATA,FDA"
^XMB(3.9,58,2,1979,0)="""RTN"",""ICD1820E"",42,0)"
^XMB(3.9,58,2,1980,0)=" F LINE=1:1 S X=$T(REVP+LINE) S ICDPROC=$P(X,"";;"",2) Q:ICDPROC=""EXIT""  D"
^XMB(3.9,58,2,1981,0)="""RTN"",""ICD1820E"",43,0)"
^XMB(3.9,58,2,1982,0)=" .Q:ICDPROC[""+"""
^XMB(3.9,58,2,1983,0)="""RTN"",""ICD1820E"",44,0)"
^XMB(3.9,58,2,1984,0)=" .S ENTRY=+$O(^ICD0(""BA"",$P(ICDPROC,U)_"" "",0))"
^XMB(3.9,58,2,1985,0)="""RTN"",""ICD1820E"",45,0)"
^XMB(3.9,58,2,1986,0)=" .I ENTRY D"
^XMB(3.9,58,2,1987,0)="""RTN"",""ICD1820E"",46,0)"
^XMB(3.9,58,2,1988,0)=" ..;check for possible inactive dupe"
^XMB(3.9,58,2,1989,0)="""RTN"",""ICD1820E"",47,0)"
^XMB(3.9,58,2,1990,0)=" ..I $P($G(^ICD0(ENTRY,0)),U,9)=1 S ENTRY=+$O(^ICD0(""BA"",$P(ICDPROC,U)_"" "",ENTRY)) I 'ENTRY Q"
^XMB(3.9,58,2,1991,0)="""RTN"",""ICD1820E"",48,0)"
^XMB(3.9,58,2,1992,0)=" ..S DA=ENTRY,DIE=""^ICD0("""
^XMB(3.9,58,2,1993,0)="""RTN"",""ICD1820E"",49,0)"
^XMB(3.9,58,2,1994,0)=" ..S IDENT=$P(ICDPROC,U,2)"
^XMB(3.9,58,2,1995,0)="""RTN"",""ICD1820E"",50,0)"
^XMB(3.9,58,2,1996,0)=" ..;this is from the OR column in Table 6B - the Y translates to the letter O (OR) "
^XMB(3.9,58,2,1997,0)="""RTN"",""ICD1820E"",51,0)"
^XMB(3.9,58,2,1998,0)=" ..I IDENT=""Y"" S IDENT=""O"""
^XMB(3.9,58,2,1999,0)="""RTN"",""ICD1820E"",52,0)"
^XMB(3.9,58,2,2000,0)=" ..I DA=4254 S IDENT=""OK"""
^XMB(3.9,58,2,2001,0)="""RTN"",""ICD1820E"",53,0)"
^XMB(3.9,58,2,2002,0)=" ..I DA=4215!(DA=4216) S IDENT=""Oz"""
^XMB(3.9,58,2,2003,0)="""RTN"",""ICD1820E"",54,0)"
^XMB(3.9,58,2,2004,0)=" ..S MDC24=$P(ICDPROC,U,3)"
^XMB(3.9,58,2,2005,0)="""RTN"",""ICD1820E"",55,0)"
^XMB(3.9,58,2,2006,0)=" ..S DR=""2///^S X=IDENT;5///^S X=MDC24"""
^XMB(3.9,58,2,2007,0)="""RTN"",""ICD1820E"",56,0)"
^XMB(3.9,58,2,2008,0)=" ..D ^DIE"
^XMB(3.9,58,2,2009,0)="""RTN"",""ICD1820E"",57,0)"
^XMB(3.9,58,2,2010,0)=" ..; add 80.1711 and 80.17111 records"
^XMB(3.9,58,2,2011,0)="""RTN"",""ICD1820E"",58,0)"
^XMB(3.9,58,2,2012,0)=" ..F SUBLINE=1:1 S X=$T(REVP+LINE+SUBLINE) S DATA=$P(X,"";;"",2) Q:DATA'[""+""  D"
^XMB(3.9,58,2,2013,0)="""RTN"",""ICD1820E"",59,0)"
^XMB(3.9,58,2,2014,0)=" ...S DATA=$E(DATA,2,99)"
^XMB(3.9,58,2,2015,0)="""RTN"",""ICD1820E"",60,0)"
^XMB(3.9,58,2,2016,0)=" ...; check if already created in case patch being re-installed"
^XMB(3.9,58,2,2017,0)="""RTN"",""ICD1820E"",61,0)"
^XMB(3.9,58,2,2018,0)=" ...I $D(^ICD0(ENTRY,2,1,1,""B"",$P(DATA,U))) Q"
^XMB(3.9,58,2,2019,0)="""RTN"",""ICD1820E"",62,0)"
^XMB(3.9,58,2,2020,0)=" ...S FDA(1820,80.1,""?1,"",.01)=""`""_ENTRY"
^XMB(3.9,58,2,2021,0)="""RTN"",""ICD1820E"",63,0)"
^XMB(3.9,58,2,2022,0)=" ...S FDA(1820,80.171,""?2,?1,"",.01)=3041001"
^XMB(3.9,58,2,2023,0)="""RTN"",""ICD1820E"",64,0)"
^XMB(3.9,58,2,2024,0)=" ...S FDA(1820,80.1711,""+3,?2,?1,"",.01)=$P(DATA,U)"
^XMB(3.9,58,2,2025,0)="""RTN"",""ICD1820E"",65,0)"
^XMB(3.9,58,2,2026,0)=" ...D UPDATE^DIE("""",""FDA(1820)"") K FDA(1820)"
^XMB(3.9,58,2,2027,0)="""RTN"",""ICD1820E"",66,0)"
^XMB(3.9,58,2,2028,0)=" ...S FDA(1820,80.1,""?1,"",.01)=""`""_ENTRY"
^XMB(3.9,58,2,2029,0)="""RTN"",""ICD1820E"",67,0)"
^XMB(3.9,58,2,2030,0)=" ...S FDA(1820,80.171,""?2,?1,"",.01)=3041001"
^XMB(3.9,58,2,2031,0)="""RTN"",""ICD1820E"",68,0)"
^XMB(3.9,58,2,2032,0)=" ...S FDA(1820,80.1711,""?3,?2,?1,"",.01)=$P(DATA,U)"
^XMB(3.9,58,2,2033,0)="""RTN"",""ICD1820E"",69,0)"
^XMB(3.9,58,2,2034,0)=" ...S FDA(1820,80.17111,""+4,?3,?2,?1,"",.01)=$P(DATA,U,2)"
^XMB(3.9,58,2,2035,0)="""RTN"",""ICD1820E"",70,0)"
^XMB(3.9,58,2,2036,0)=" ...I $P(DATA,U,3) S FDA(1820,80.17111,""+5,?3,?2,?1,"",.01)=$P(DATA,U,3)"
^XMB(3.9,58,2,2037,0)="""RTN"",""ICD1820E"",71,0)"
^XMB(3.9,58,2,2038,0)=" ...I $P(DATA,U,4) S FDA(1820,80.17111,""+6,?3,?2,?1,"",.01)=$P(DATA,U,4)"
^XMB(3.9,58,2,2039,0)="""RTN"",""ICD1820E"",72,0)"
^XMB(3.9,58,2,2040,0)=" ...I $P(DATA,U,5) S FDA(1820,80.17111,""+7,?3,?2,?1,"",.01)=$P(DATA,U,5)"
^XMB(3.9,58,2,2041,0)="""RTN"",""ICD1820E"",73,0)"
^XMB(3.9,58,2,2042,0)=" ...D UPDATE^DIE("""",""FDA(1820)"") K FDA(1820)"
^XMB(3.9,58,2,2043,0)="""RTN"",""ICD1820E"",74,0)"
^XMB(3.9,58,2,2044,0)=" ;"
^XMB(3.9,58,2,2045,0)="""RTN"",""ICD1820E"",75,0)"
^XMB(3.9,58,2,2046,0)=" ; HD 112348 - add identifier ""1"" to Dx 852.06"
^XMB(3.9,58,2,2047,0)="""RTN"",""ICD1820E"",76,0)"
^XMB(3.9,58,2,2048,0)=" S DA=6391"
^XMB(3.9,58,2,2049,0)="""RTN"",""ICD1820E"",77,0)"
^XMB(3.9,58,2,2050,0)=" S DIE=""^ICD9("""
^XMB(3.9,58,2,2051,0)="""RTN"",""ICD1820E"",78,0)"
^XMB(3.9,58,2,2052,0)=" S IDENT=1"
^XMB(3.9,58,2,2053,0)="""RTN"",""ICD1820E"",79,0)"
^XMB(3.9,58,2,2054,0)=" S DR=""2///^S X=IDENT"""
^XMB(3.9,58,2,2055,0)="""RTN"",""ICD1820E"",80,0)"
^XMB(3.9,58,2,2056,0)=" D ^DIE"
^XMB(3.9,58,2,2057,0)="""RTN"",""ICD1820E"",81,0)"
^XMB(3.9,58,2,2058,0)=" Q"
^XMB(3.9,58,2,2059,0)="""RTN"",""ICD1820E"",82,0)"
^XMB(3.9,58,2,2060,0)="REVID ;"
^XMB(3.9,58,2,2061,0)="""RTN"",""ICD1820E"",83,0)"
^XMB(3.9,58,2,2062,0)=" ;;41.04^OB"
^XMB(3.9,58,2,2063,0)="""RTN"",""ICD1820E"",84,0)"
^XMB(3.9,58,2,2064,0)=" ;;41.05^OB"
^XMB(3.9,58,2,2065,0)="""RTN"",""ICD1820E"",85,0)"
^XMB(3.9,58,2,2066,0)=" ;;41.06^OB"
^XMB(3.9,58,2,2067,0)="""RTN"",""ICD1820E"",86,0)"
^XMB(3.9,58,2,2068,0)=" ;;41.07^OB"
^XMB(3.9,58,2,2069,0)="""RTN"",""ICD1820E"",87,0)"
^XMB(3.9,58,2,2070,0)=" ;;41.08^OB"
^XMB(3.9,58,2,2071,0)="""RTN"",""ICD1820E"",88,0)"
^XMB(3.9,58,2,2072,0)=" ;;41.09^OB"
^XMB(3.9,58,2,2073,0)="""RTN"",""ICD1820E"",89,0)"
^XMB(3.9,58,2,2074,0)=" ;;EXIT"
^XMB(3.9,58,2,2075,0)="""RTN"",""ICD1820E"",90,0)"
^XMB(3.9,58,2,2076,0)=" ;;"
^XMB(3.9,58,2,2077,0)="""RTN"",""ICD1820E"",91,0)"
^XMB(3.9,58,2,2078,0)="REVP ;"
^XMB(3.9,58,2,2079,0)="""RTN"",""ICD1820E"",92,0)"
^XMB(3.9,58,2,2080,0)=" ;;00.61^Y^2"
^XMB(3.9,58,2,2081,0)="""RTN"",""ICD1820E"",93,0)"
^XMB(3.9,58,2,2082,0)=" ;;+21^442^443"
^XMB(3.9,58,2,2083,0)="""RTN"",""ICD1820E"",94,0)"
^XMB(3.9,58,2,2084,0)=" ;;+24^486"
^XMB(3.9,58,2,2085,0)="""RTN"",""ICD1820E"",95,0)"
^XMB(3.9,58,2,2086,0)=" ;;00.62^Y^2"
^XMB(3.9,58,2,2087,0)="""RTN"",""ICD1820E"",96,0)"
^XMB(3.9,58,2,2088,0)=" ;;+1^533^534"
^XMB(3.9,58,2,2089,0)="""RTN"",""ICD1820E"",97,0)"
^XMB(3.9,58,2,2090,0)=" ;;+21^442^443"
^XMB(3.9,58,2,2091,0)="""RTN"",""ICD1820E"",98,0)"
^XMB(3.9,58,2,2092,0)=" ;;+24^486"
^XMB(3.9,58,2,2093,0)="""RTN"",""ICD1820E"",99,0)"
^XMB(3.9,58,2,2094,0)=" ;;44.38^Y^"
^XMB(3.9,58,2,2095,0)="""RTN"",""ICD1820E"",100,0)"
^XMB(3.9,58,2,2096,0)=" ;;+5^120"
^XMB(3.9,58,2,2097,0)="""RTN"",""ICD1820E"",101,0)"
^XMB(3.9,58,2,2098,0)=" ;;+7^201"
^XMB(3.9,58,2,2099,0)="""RTN"",""ICD1820E"",102,0)"
^XMB(3.9,58,2,2100,0)=" ;;+10^288"
^XMB(3.9,58,2,2101,0)="""RTN"",""ICD1820E"",103,0)"
^XMB(3.9,58,2,2102,0)=" ;;+17^406^407^539^540"
^XMB(3.9,58,2,2103,0)="""RTN"",""ICD1820E"",104,0)"
^XMB(3.9,58,2,2104,0)=" ;;44.67^Y^2"
^XMB(3.9,58,2,2105,0)="""RTN"",""ICD1820E"",105,0)"
^XMB(3.9,58,2,2106,0)=" ;;+21^442^443"
^XMB(3.9,58,2,2107,0)="""RTN"",""ICD1820E"",106,0)"
^XMB(3.9,58,2,2108,0)=" ;;+24^486"
^XMB(3.9,58,2,2109,0)="""RTN"",""ICD1820E"",107,0)"
^XMB(3.9,58,2,2110,0)=" ;;44.68^Y^2"
^XMB(3.9,58,2,2111,0)="""RTN"",""ICD1820E"",108,0)"
^XMB(3.9,58,2,2112,0)=" ;;+10^288"
^XMB(3.9,58,2,2113,0)="""RTN"",""ICD1820E"",109,0)"
^XMB(3.9,58,2,2114,0)=" ;;+21^442^443"
^XMB(3.9,58,2,2115,0)="""RTN"",""ICD1820E"",110,0)"
^XMB(3.9,58,2,2116,0)=" ;;+24^486"
^XMB(3.9,58,2,2117,0)="""RTN"",""ICD1820E"",111,0)"
^XMB(3.9,58,2,2118,0)=" ;;81.65^Y^2"
^XMB(3.9,58,2,2119,0)="""RTN"",""ICD1820E"",112,0)"
^XMB(3.9,58,2,2120,0)=" ;;+21^442^443"
^XMB(3.9,58,2,2121,0)="""RTN"",""ICD1820E"",113,0)"
^XMB(3.9,58,2,2122,0)=" ;;+24^486"
^XMB(3.9,58,2,2123,0)="""RTN"",""ICD1820E"",114,0)"
^XMB(3.9,58,2,2124,0)=" ;;81.66^Y^2"
^XMB(3.9,58,2,2125,0)="""RTN"",""ICD1820E"",115,0)"
^XMB(3.9,58,2,2126,0)=" ;;+21^442^443"
^XMB(3.9,58,2,2127,0)="""RTN"",""ICD1820E"",116,0)"
^XMB(3.9,58,2,2128,0)=" ;;+24^486"
^XMB(3.9,58,2,2129,0)="""RTN"",""ICD1820E"",117,0)"
^XMB(3.9,58,2,2130,0)=" ;;84.59^Y^2"
^XMB(3.9,58,2,2131,0)="""RTN"",""ICD1820E"",118,0)"
^XMB(3.9,58,2,2132,0)=" ;;+1^531^532"
^XMB(3.9,58,2,2133,0)="""RTN"",""ICD1820E"",119,0)"
^XMB(3.9,58,2,2134,0)=" ;;+21^442^443"
^XMB(3.9,58,2,2135,0)="""RTN"",""ICD1820E"",120,0)"
^XMB(3.9,58,2,2136,0)=" ;;+24^486"
^XMB(3.9,58,2,2137,0)="""RTN"",""ICD1820E"",121,0)"
^XMB(3.9,58,2,2138,0)=" ;;84.60^Y^2"
^XMB(3.9,58,2,2139,0)="""RTN"",""ICD1820E"",122,0)"
^XMB(3.9,58,2,2140,0)=" ;;+1^531^532"
^XMB(3.9,58,2,2141,0)="""RTN"",""ICD1820E"",123,0)"
^XMB(3.9,58,2,2142,0)=" ;;+21^442^443"
^XMB(3.9,58,2,2143,0)="""RTN"",""ICD1820E"",124,0)"
^XMB(3.9,58,2,2144,0)=" ;;+24^486"
^XMB(3.9,58,2,2145,0)="""RTN"",""ICD1820E"",125,0)"
^XMB(3.9,58,2,2146,0)=" ;;84.61^Y^2"
^XMB(3.9,58,2,2147,0)="""RTN"",""ICD1820E"",126,0)"
^XMB(3.9,58,2,2148,0)=" ;;+1^531^532"
^XMB(3.9,58,2,2149,0)="""RTN"",""ICD1820E"",127,0)"
^XMB(3.9,58,2,2150,0)=" ;;+21^442^443"
^XMB(3.9,58,2,2151,0)="""RTN"",""ICD1820E"",128,0)"
^XMB(3.9,58,2,2152,0)=" ;;+24^486"
^XMB(3.9,58,2,2153,0)="""RTN"",""ICD1820E"",129,0)"
^XMB(3.9,58,2,2154,0)=" ;;84.62^Y^2"
^XMB(3.9,58,2,2155,0)="""RTN"",""ICD1820E"",130,0)"
^XMB(3.9,58,2,2156,0)=" ;;+1^531^532"
^XMB(3.9,58,2,2157,0)="""RTN"",""ICD1820E"",131,0)"
^XMB(3.9,58,2,2158,0)=" ;;+21^442^443"
^XMB(3.9,58,2,2159,0)="""RTN"",""ICD1820E"",132,0)"
^XMB(3.9,58,2,2160,0)=" ;;+24^486"
^XMB(3.9,58,2,2161,0)="""RTN"",""ICD1820E"",133,0)"
^XMB(3.9,58,2,2162,0)=" ;;84.63^Y^2"
^XMB(3.9,58,2,2163,0)="""RTN"",""ICD1820E"",134,0)"
^XMB(3.9,58,2,2164,0)=" ;;+1^531^532"
^XMB(3.9,58,2,2165,0)="""RTN"",""ICD1820E"",135,0)"
^XMB(3.9,58,2,2166,0)=" ;;+21^442^443"
^XMB(3.9,58,2,2167,0)="""RTN"",""ICD1820E"",136,0)"
^XMB(3.9,58,2,2168,0)=" ;;+24^486"
^XMB(3.9,58,2,2169,0)="""RTN"",""ICD1820E"",137,0)"
^XMB(3.9,58,2,2170,0)=" ;;84.64^Y^2"
^XMB(3.9,58,2,2171,0)="""RTN"",""ICD1820E"",138,0)"
^XMB(3.9,58,2,2172,0)=" ;;+1^531^532"
^XMB(3.9,58,2,2173,0)="""RTN"",""ICD1820E"",139,0)"
^XMB(3.9,58,2,2174,0)=" ;;+21^442^443"
^XMB(3.9,58,2,2175,0)="""RTN"",""ICD1820E"",140,0)"
^XMB(3.9,58,2,2176,0)=" ;;+24^486"
^XMB(3.9,58,2,2177,0)="""RTN"",""ICD1820E"",141,0)"
^XMB(3.9,58,2,2178,0)=" ;;84.65^Y^2"
^XMB(3.9,58,2,2179,0)="""RTN"",""ICD1820E"",142,0)"
^XMB(3.9,58,2,2180,0)=" ;;+1^531^532"
^XMB(3.9,58,2,2181,0)="""RTN"",""ICD1820E"",143,0)"
^XMB(3.9,58,2,2182,0)=" ;;+21^442^443"
^XMB(3.9,58,2,2183,0)="""RTN"",""ICD1820E"",144,0)"
^XMB(3.9,58,2,2184,0)=" ;;+24^486"
^XMB(3.9,58,2,2185,0)="""RTN"",""ICD1820E"",145,0)"
^XMB(3.9,58,2,2186,0)=" ;;84.66^Y^2"
^XMB(3.9,58,2,2187,0)="""RTN"",""ICD1820E"",146,0)"
^XMB(3.9,58,2,2188,0)=" ;;+1^531^532"
^XMB(3.9,58,2,2189,0)="""RTN"",""ICD1820E"",147,0)"
^XMB(3.9,58,2,2190,0)=" ;;+21^442^443"
^XMB(3.9,58,2,2191,0)="""RTN"",""ICD1820E"",148,0)"
^XMB(3.9,58,2,2192,0)=" ;;+24^486"
^XMB(3.9,58,2,2193,0)="""RTN"",""ICD1820E"",149,0)"
^XMB(3.9,58,2,2194,0)=" ;;84.67^Y^2"
^XMB(3.9,58,2,2195,0)="""RTN"",""ICD1820E"",150,0)"
^XMB(3.9,58,2,2196,0)=" ;;+1^531^532"
^XMB(3.9,58,2,2197,0)="""RTN"",""ICD1820E"",151,0)"
^XMB(3.9,58,2,2198,0)=" ;;+21^442^443"
^XMB(3.9,58,2,2199,0)="""RTN"",""ICD1820E"",152,0)"
^XMB(3.9,58,2,2200,0)=" ;;+24^486"
^XMB(3.9,58,2,2201,0)="""RTN"",""ICD1820E"",153,0)"
^XMB(3.9,58,2,2202,0)=" ;;84.68^Y^2"
^XMB(3.9,58,2,2203,0)="""RTN"",""ICD1820E"",154,0)"
^XMB(3.9,58,2,2204,0)=" ;;+1^531^532"
^XMB(3.9,58,2,2205,0)="""RTN"",""ICD1820E"",155,0)"
^XMB(3.9,58,2,2206,0)=" ;;+21^442^443"
^XMB(3.9,58,2,2207,0)="""RTN"",""ICD1820E"",156,0)"
^XMB(3.9,58,2,2208,0)=" ;;+24^486"
^XMB(3.9,58,2,2209,0)="""RTN"",""ICD1820E"",157,0)"
^XMB(3.9,58,2,2210,0)=" ;;84.69^Y^2"
^XMB(3.9,58,2,2211,0)="""RTN"",""ICD1820E"",158,0)"
^XMB(3.9,58,2,2212,0)=" ;;+1^531^532"
^XMB(3.9,58,2,2213,0)="""RTN"",""ICD1820E"",159,0)"
^XMB(3.9,58,2,2214,0)=" ;;+21^442^443"
^XMB(3.9,58,2,2215,0)="""RTN"",""ICD1820E"",160,0)"
^XMB(3.9,58,2,2216,0)=" ;;+24^486"
^XMB(3.9,58,2,2217,0)="""RTN"",""ICD1820E"",161,0)"
^XMB(3.9,58,2,2218,0)=" ;;EXIT"
^XMB(3.9,58,2,2219,0)="""RTN"",""ICD1820E"",162,0)"
^XMB(3.9,58,2,2220,0)=" ;"
^XMB(3.9,58,2,2221,0)="""RTN"",""ICD1820E"",163,0)"
^XMB(3.9,58,2,2222,0)="       "
^XMB(3.9,58,2,2223,0)="""RTN"",""ICD1820E"",164,0)"
^XMB(3.9,58,2,2224,0)="                         "
^XMB(3.9,58,2,2225,0)="""RTN"",""ICD1820P"")"
^XMB(3.9,58,2,2226,0)="0^12^B283361"
^XMB(3.9,58,2,2227,0)="""RTN"",""ICD1820P"",1,0)"
^XMB(3.9,58,2,2228,0)="ICD1820P   ;;ALB/JAT - 2006 FY DRG GROUPER UPDATE; 7/27/05 14:50"
^XMB(3.9,58,2,2229,0)="""RTN"",""ICD1820P"",2,0)"
^XMB(3.9,58,2,2230,0)=" ;;18.0;DRG Grouper;**20**;Oct 13,2000"
^XMB(3.9,58,2,2231,0)="""RTN"",""ICD1820P"",3,0)"
^XMB(3.9,58,2,2232,0)=" ;       "
^XMB(3.9,58,2,2233,0)="""RTN"",""ICD1820P"",4,0)"
^XMB(3.9,58,2,2234,0)=" ; fix Remedy tickets"
^XMB(3.9,58,2,2235,0)="""RTN"",""ICD1820P"",5,0)"
^XMB(3.9,58,2,2236,0)=" D REMEDY^ICD1820E"
^XMB(3.9,58,2,2237,0)="""RTN"",""ICD1820P"",6,0)"
^XMB(3.9,58,2,2238,0)=" ; add new DRGs"
^XMB(3.9,58,2,2239,0)="""RTN"",""ICD1820P"",7,0)"
^XMB(3.9,58,2,2240,0)=" D ADDDRG^ICD1820A"
^XMB(3.9,58,2,2241,0)="""RTN"",""ICD1820P"",8,0)"
^XMB(3.9,58,2,2242,0)=" ; update operation/procedure codes"
^XMB(3.9,58,2,2243,0)="""RTN"",""ICD1820P"",9,0)"
^XMB(3.9,58,2,2244,0)=" D PRO^ICD1820A"
^XMB(3.9,58,2,2245,0)="""RTN"",""ICD1820P"",10,0)"
^XMB(3.9,58,2,2246,0)=" ; update diagnosis codes"
^XMB(3.9,58,2,2247,0)="""RTN"",""ICD1820P"",11,0)"
^XMB(3.9,58,2,2248,0)=" D DIAG^ICD1820C"
^XMB(3.9,58,2,2249,0)="""RTN"",""ICD1820P"",12,0)"
^XMB(3.9,58,2,2250,0)=" ; DRG reclassification changes"
^XMB(3.9,58,2,2251,0)="""RTN"",""ICD1820P"",13,0)"
^XMB(3.9,58,2,2252,0)=" D DRGRECL^ICD1820D"
^XMB(3.9,58,2,2253,0)="""RTN"",""ICD1820P"",14,0)"
^XMB(3.9,58,2,2254,0)=" S ^DD(80.2,0,""VRRV"")=""20^3051001"""
^XMB(3.9,58,2,2255,0)="""RTN"",""ICD1820P"",15,0)"
^XMB(3.9,58,2,2256,0)=" Q"
^XMB(3.9,58,2,2257,0)="""RTN"",""ICD1820V"")"
^XMB(3.9,58,2,2258,0)="0^13^B732333"
^XMB(3.9,58,2,2259,0)="""RTN"",""ICD1820V"",1,0)"
^XMB(3.9,58,2,2260,0)="ICD1820V ;ALB/MRY - ENVIRONMENT CHECK; 10/2/03 3:32pm"
^XMB(3.9,58,2,2261,0)="""RTN"",""ICD1820V"",2,0)"
^XMB(3.9,58,2,2262,0)=" ;;18.0;DRG Grouper;**20**;Oct 13,2000"
^XMB(3.9,58,2,2263,0)="""RTN"",""ICD1820V"",3,0)"
^XMB(3.9,58,2,2264,0)=" ;;"
^XMB(3.9,58,2,2265,0)="""RTN"",""ICD1820V"",4,0)"
^XMB(3.9,58,2,2266,0)="EN ;"
^XMB(3.9,58,2,2267,0)="""RTN"",""ICD1820V"",5,0)"
^XMB(3.9,58,2,2268,0)=" S XPDABORT="""""
^XMB(3.9,58,2,2269,0)="""RTN"",""ICD1820V"",6,0)"
^XMB(3.9,58,2,2270,0)=" D PROGCHK(.XPDABORT)"
^XMB(3.9,58,2,2271,0)="""RTN"",""ICD1820V"",7,0)"
^XMB(3.9,58,2,2272,0)=" I XPDABORT="""" K XPDABORT"
^XMB(3.9,58,2,2273,0)="""RTN"",""ICD1820V"",8,0)"
^XMB(3.9,58,2,2274,0)=" ;"
^XMB(3.9,58,2,2275,0)="""RTN"",""ICD1820V"",9,0)"
^XMB(3.9,58,2,2276,0)=" Q"
^XMB(3.9,58,2,2277,0)="""RTN"",""ICD1820V"",10,0)"
^XMB(3.9,58,2,2278,0)=" ;"
^XMB(3.9,58,2,2279,0)="""RTN"",""ICD1820V"",11,0)"
^XMB(3.9,58,2,2280,0)="PROGCHK(XPDABORT) ;"
^XMB(3.9,58,2,2281,0)="""RTN"",""ICD1820V"",12,0)"
^XMB(3.9,58,2,2282,0)=" I '$G(DUZ)!($G(DUZ(0))'=""@"")!('$G(DT))!($G(U)'=""^"") DO"
^XMB(3.9,58,2,2283,0)="""RTN"",""ICD1820V"",13,0)"
^XMB(3.9,58,2,2284,0)=" .D BMES^XPDUTL(""*****"")"
^XMB(3.9,58,2,2285,0)="""RTN"",""ICD1820V"",14,0)"
^XMB(3.9,58,2,2286,0)=" .D MES^XPDUTL(""Your programming variables are not set up properly."")"
^XMB(3.9,58,2,2287,0)="""RTN"",""ICD1820V"",15,0)"
^XMB(3.9,58,2,2288,0)=" .D MES^XPDUTL(""Installation aborted."")"
^XMB(3.9,58,2,2289,0)="""RTN"",""ICD1820V"",16,0)"
^XMB(3.9,58,2,2290,0)=" .D MES^XPDUTL(""*****"")"
^XMB(3.9,58,2,2291,0)="""RTN"",""ICD1820V"",17,0)"
^XMB(3.9,58,2,2292,0)=" .S XPDABORT=2"
^XMB(3.9,58,2,2293,0)="""RTN"",""ICD1820V"",18,0)"
^XMB(3.9,58,2,2294,0)=" .Q"
^XMB(3.9,58,2,2295,0)="""RTN"",""ICD1820V"",19,0)"
^XMB(3.9,58,2,2296,0)=" Q"
^XMB(3.9,58,2,2297,0)="""RTN"",""ICD1820V"",20,0)"
^XMB(3.9,58,2,2298,0)=" ;"
^XMB(3.9,58,2,2299,0)="""RTN"",""ICD1820X"")"
^XMB(3.9,58,2,2300,0)="0^14^B20929129"
^XMB(3.9,58,2,2301,0)="""RTN"",""ICD1820X"",1,0)"
^XMB(3.9,58,2,2302,0)="ICD1820X ;ALB/MRY - FY 2004 DRG Weights & Trims;  ; 6/28/05 3:01pm"
^XMB(3.9,58,2,2303,0)="""RTN"",""ICD1820X"",2,0)"
^XMB(3.9,58,2,2304,0)=" ;;18.0;DRG Grouper;**20**;Oct 13,2000"
^XMB(3.9,58,2,2305,0)="""RTN"",""ICD1820X"",3,0)"
^XMB(3.9,58,2,2306,0)="WEIGHTS ;;DRG^RELATIVE WEIGHTS^GEOMETRIC MEAN LOS"
^XMB(3.9,58,2,2307,0)="""RTN"",""ICD1820X"",4,0)"
^XMB(3.9,58,2,2308,0)=" ;;1^3.4347^7.6"
^XMB(3.9,58,2,2309,0)="""RTN"",""ICD1820X"",5,0)"
^XMB(3.9,58,2,2310,0)=" ;;2^1.9587^3.5"
^XMB(3.9,58,2,2311,0)="""RTN"",""ICD1820X"",6,0)"
^XMB(3.9,58,2,2312,0)=" ;;3^1.9860^12.7"
^XMB(3.9,58,2,2313,0)="""RTN"",""ICD1820X"",7,0)"
^XMB(3.9,58,2,2314,0)=" ;;4^0^0^0"
^XMB(3.9,58,2,2315,0)="""RTN"",""ICD1820X"",8,0)"
^XMB(3.9,58,2,2316,0)=" ;;5^0^0^0"
^XMB(3.9,58,2,2317,0)="""RTN"",""ICD1820X"",9,0)"
^XMB(3.9,58,2,2318,0)=" ;;6^0.7878^2.2"
^XMB(3.9,58,2,2319,0)="""RTN"",""ICD1820X"",10,0)"
^XMB(3.9,58,2,2320,0)=" ;;7^2.6978^6.7"
^XMB(3.9,58,2,2321,0)="""RTN"",""ICD1820X"",11,0)"
^XMB(3.9,58,2,2322,0)=" ;;8^1.5635^2.0"
^XMB(3.9,58,2,2323,0)="""RTN"",""ICD1820X"",12,0)"
^XMB(3.9,58,2,2324,0)=" ;;9^1.4045^4.5"
^XMB(3.9,58,2,2325,0)="""RTN"",""ICD1820X"",13,0)"
^XMB(3.9,58,2,2326,0)=" ;;10^1.2222^4.6"
^XMB(3.9,58,2,2327,0)="""RTN"",""ICD1820X"",14,0)"
^XMB(3.9,58,2,2328,0)=" ;;11^0.8736^2.9"
^XMB(3.9,58,2,2329,0)="""RTN"",""ICD1820X"",15,0)"
^XMB(3.9,58,2,2330,0)=" ;;12^0.8998^4.3"
^XMB(3.9,58,2,2331,0)="""RTN"",""ICD1820X"",16,0)"
^XMB(3.9,58,2,2332,0)=" ;;13^0.8575^4.0"
^XMB(3.9,58,2,2333,0)="""RTN"",""ICD1820X"",17,0)"
^XMB(3.9,58,2,2334,0)=" ;;14^1.2456^4.5"
^XMB(3.9,58,2,2335,0)="""RTN"",""ICD1820X"",18,0)"
^XMB(3.9,58,2,2336,0)=" ;;15^0.9421^3.7"
^XMB(3.9,58,2,2337,0)="""RTN"",""ICD1820X"",19,0)"
^XMB(3.9,58,2,2338,0)=" ;;16^1.3351^5.0"
^XMB(3.9,58,2,2339,0)="""RTN"",""ICD1820X"",20,0)"
^XMB(3.9,58,2,2340,0)=" ;;17^0.7229^2.5"
^XMB(3.9,58,2,2341,0)="""RTN"",""ICD1820X"",21,0)"
^XMB(3.9,58,2,2342,0)=" ;;18^0.9903^4.1"
^XMB(3.9,58,2,2343,0)="""RTN"",""ICD1820X"",22,0)"
^XMB(3.9,58,2,2344,0)=" ;;19^0.7077^2.7"
^XMB(3.9,58,2,2345,0)="""RTN"",""ICD1820X"",23,0)"
^XMB(3.9,58,2,2346,0)=" ;;20^2.7865^8.0"
^XMB(3.9,58,2,2347,0)="""RTN"",""ICD1820X"",24,0)"
^XMB(3.9,58,2,2348,0)=" ;;21^1.4451^4.9"
^XMB(3.9,58,2,2349,0)="""RTN"",""ICD1820X"",25,0)"
^XMB(3.9,58,2,2350,0)=" ;;22^1.1304^4.0"
^XMB(3.9,58,2,2351,0)="""RTN"",""ICD1820X"",26,0)"
^XMB(3.9,58,2,2352,0)=" ;;23^0.7712^3.0"
^XMB(3.9,58,2,2353,0)="""RTN"",""ICD1820X"",27,0)"
^XMB(3.9,58,2,2354,0)=" ;;24^0.9970^3.6"
^XMB(3.9,58,2,2355,0)="""RTN"",""ICD1820X"",28,0)"
^XMB(3.9,58,2,2356,0)=" ;;25^0.6180^2.5"
^XMB(3.9,58,2,2357,0)="""RTN"",""ICD1820X"",29,0)"
^XMB(3.9,58,2,2358,0)=" ;;26^1.8191^3.4"
^XMB(3.9,58,2,2359,0)="""RTN"",""ICD1820X"",30,0)"
^XMB(3.9,58,2,2360,0)=" ;;27^1.3531^3.2"
^XMB(3.9,58,2,2361,0)="""RTN"",""ICD1820X"",31,0)"
^XMB(3.9,58,2,2362,0)=" ;;28^1.3353^4.4"
^XMB(3.9,58,2,2363,0)="""RTN"",""ICD1820X"",32,0)"
^XMB(3.9,58,2,2364,0)=" ;;29^0.7212^2.6"
^XMB(3.9,58,2,2365,0)="""RTN"",""ICD1820X"",33,0)"
^XMB(3.9,58,2,2366,0)=" ;;30^0.3359^2.0"
^XMB(3.9,58,2,2367,0)="""RTN"",""ICD1820X"",34,0)"
^XMB(3.9,58,2,2368,0)=" ;;31^0.9567^3.0"
^XMB(3.9,58,2,2369,0)="""RTN"",""ICD1820X"",35,0)"
^XMB(3.9,58,2,2370,0)=" ;;32^0.6194^1.9"
^XMB(3.9,58,2,2371,0)="""RTN"",""ICD1820X"",36,0)"
^XMB(3.9,58,2,2372,0)=" ;;33^0.2109^1.6"
^XMB(3.9,58,2,2373,0)="""RTN"",""ICD1820X"",37,0)"
^XMB(3.9,58,2,2374,0)=" ;;34^1.0062^3.7"
^XMB(3.9,58,2,2375,0)="""RTN"",""ICD1820X"",38,0)"
^XMB(3.9,58,2,2376,0)=" ;;35^0.6241^2.4"
^XMB(3.9,58,2,2377,0)="""RTN"",""ICD1820X"",39,0)"
^XMB(3.9,58,2,2378,0)=" ;;36^0.7288^1.3"
^XMB(3.9,58,2,2379,0)="""RTN"",""ICD1820X"",40,0)"
^XMB(3.9,58,2,2380,0)=" ;;37^1.1858^2.7"
^XMB(3.9,58,2,2381,0)="""RTN"",""ICD1820X"",41,0)"
^XMB(3.9,58,2,2382,0)=" ;;38^0.6975^2.5"
^XMB(3.9,58,2,2383,0)="""RTN"",""ICD1820X"",42,0)"
^XMB(3.9,58,2,2384,0)=" ;;39^0.7108^1.7"
^XMB(3.9,58,2,2385,0)="""RTN"",""ICD1820X"",43,0)"
^XMB(3.9,58,2,2386,0)=" ;;40^0.9627^3.0"
^XMB(3.9,58,2,2387,0)="""RTN"",""ICD1820X"",44,0)"
^XMB(3.9,58,2,2388,0)=" ;;41^0.3419^1.6"
^XMB(3.9,58,2,2389,0)="""RTN"",""ICD1820X"",45,0)"
^XMB(3.9,58,2,2390,0)=" ;;42^0.7852^2.0"
^XMB(3.9,58,2,2391,0)="""RTN"",""ICD1820X"",46,0)"
^XMB(3.9,58,2,2392,0)=" ;;43^0.6141^2.4"
^XMB(3.9,58,2,2393,0)="""RTN"",""ICD1820X"",47,0)"
^XMB(3.9,58,2,2394,0)=" ;;44^0.6874^3.9"
^XMB(3.9,58,2,2395,0)="""RTN"",""ICD1820X"",48,0)"
^XMB(3.9,58,2,2396,0)=" ;;45^0.7474^2.5"
^XMB(3.9,58,2,2397,0)="""RTN"",""ICD1820X"",49,0)"
^XMB(3.9,58,2,2398,0)=" ;;46^0.7524^3.2"
^XMB(3.9,58,2,2399,0)="""RTN"",""ICD1820X"",50,0)"
^XMB(3.9,58,2,2400,0)=" ;;47^0.5203^2.3"
^XMB(3.9,58,2,2401,0)="""RTN"",""ICD1820X"",51,0)"
^XMB(3.9,58,2,2402,0)=" ;;48^0.3012^2.9"
^XMB(3.9,58,2,2403,0)="""RTN"",""ICD1820X"",52,0)"
^XMB(3.9,58,2,2404,0)=" ;;49^1.6361^3.1"
^XMB(3.9,58,2,2405,0)="""RTN"",""ICD1820X"",53,0)"
^XMB(3.9,58,2,2406,0)=" ;;50^0.8690^1.5"
^XMB(3.9,58,2,2407,0)="""RTN"",""ICD1820X"",54,0)"
^XMB(3.9,58,2,2408,0)=" ;;51^0.8809^1.9"
^XMB(3.9,58,2,2409,0)="""RTN"",""ICD1820X"",55,0)"
^XMB(3.9,58,2,2410,0)=" ;;52^0.8348^1.5"
^XMB(3.9,58,2,2411,0)="""RTN"",""ICD1820X"",56,0)"
^XMB(3.9,58,2,2412,0)=" ;;53^1.3269^2.4"
^XMB(3.9,58,2,2413,0)="""RTN"",""ICD1820X"",57,0)"
^XMB(3.9,58,2,2414,0)=" ;;54^0.4882^3.2"
^XMB(3.9,58,2,2415,0)="""RTN"",""ICD1820X"",58,0)"
^XMB(3.9,58,2,2416,0)=" ;;55^0.9597^2.0"
^XMB(3.9,58,2,2417,0)="""RTN"",""ICD1820X"",59,0)"
^XMB(3.9,58,2,2418,0)=" ;;56^0.8711^1.8"
^XMB(3.9,58,2,2419,0)="""RTN"",""ICD1820X"",60,0)"
^XMB(3.9,58,2,2420,0)=" ;;57^1.0428^2.3"
^XMB(3.9,58,2,2421,0)="""RTN"",""ICD1820X"",61,0)"
^XMB(3.9,58,2,2422,0)=" ;;58^0.2772^1.5"
^XMB(3.9,58,2,2423,0)="""RTN"",""ICD1820X"",62,0)"
^XMB(3.9,58,2,2424,0)=" ;;59^0.8082^1.8"
^XMB(3.9,58,2,2425,0)="""RTN"",""ICD1820X"",63,0)"
^XMB(3.9,58,2,2426,0)=" ;;60^0.2110^1.5"
^XMB(3.9,58,2,2427,0)="""RTN"",""ICD1820X"",64,0)"
^XMB(3.9,58,2,2428,0)=" ;;61^1.2867^3.3"
^XMB(3.9,58,2,2429,0)="""RTN"",""ICD1820X"",65,0)"
^XMB(3.9,58,2,2430,0)=" ;;62^0.2989^1.3"
^XMB(3.9,58,2,2431,0)="""RTN"",""ICD1820X"",66,0)"
^XMB(3.9,58,2,2432,0)=" ;;63^1.3983^3.0"
^XMB(3.9,58,2,2433,0)="""RTN"",""ICD1820X"",67,0)"
^XMB(3.9,58,2,2434,0)=" ;;64^1.1663^4.1"
^XMB(3.9,58,2,2435,0)="""RTN"",""ICD1820X"",68,0)"
^XMB(3.9,58,2,2436,0)=" ;;65^0.5991^2.3"
^XMB(3.9,58,2,2437,0)="""RTN"",""ICD1820X"",69,0)"
^XMB(3.9,58,2,2438,0)=" ;;66^0.5958^2.4"
^XMB(3.9,58,2,2439,0)="""RTN"",""ICD1820X"",70,0)"
^XMB(3.9,58,2,2440,0)=" ;;67^0.7725^2.9"
^XMB(3.9,58,2,2441,0)="""RTN"",""ICD1820X"",71,0)"
^XMB(3.9,58,2,2442,0)=" ;;68^0.6611^3.2"
^XMB(3.9,58,2,2443,0)="""RTN"",""ICD1820X"",72,0)"
^XMB(3.9,58,2,2444,0)=" ;;69^0.4850^2.5"
^XMB(3.9,58,2,2445,0)="""RTN"",""ICD1820X"",73,0)"
^XMB(3.9,58,2,2446,0)=" ;;70^0.4210^2.1"
^XMB(3.9,58,2,2447,0)="""RTN"",""ICD1820X"",74,0)"
^XMB(3.9,58,2,2448,0)=" ;;71^0.7524^3.2"
^XMB(3.9,58,2,2449,0)="""RTN"",""ICD1820X"",75,0)"
^XMB(3.9,58,2,2450,0)=" ;;72^0.7449^2.6"
^XMB(3.9,58,2,2451,0)="""RTN"",""ICD1820X"",76,0)"
^XMB(3.9,58,2,2452,0)=" ;;73^0.8527^3.3"
^XMB(3.9,58,2,2453,0)="""RTN"",""ICD1820X"",77,0)"
^XMB(3.9,58,2,2454,0)=" ;;74^0.3398^2.1"
^XMB(3.9,58,2,2455,0)="""RTN"",""ICD1820X"",78,0)"
^XMB(3.9,58,2,2456,0)=" ;;75^3.0732^7.6"
^XMB(3.9,58,2,2457,0)="""RTN"",""ICD1820X"",79,0)"
^XMB(3.9,58,2,2458,0)=" ;;76^2.8830^8.4"
^XMB(3.9,58,2,2459,0)="""RTN"",""ICD1820X"",80,0)"
^XMB(3.9,58,2,2460,0)=" ;;77^1.1857^3.3"
^XMB(3.9,58,2,2461,0)="""RTN"",""ICD1820X"",81,0)"
^XMB(3.9,58,2,2462,0)=" ;;78^1.2427^5.4"
^XMB(3.9,58,2,2463,0)="""RTN"",""ICD1820X"",82,0)"
^XMB(3.9,58,2,2464,0)=" ;;79^1.6238^6.7"
^XMB(3.9,58,2,2465,0)="""RTN"",""ICD1820X"",83,0)"
^XMB(3.9,58,2,2466,0)=" ;;80^0.8947^4.4"
^XMB(3.9,58,2,2467,0)="""RTN"",""ICD1820X"",84,0)"
^XMB(3.9,58,2,2468,0)=" ;;81^1.5383^6.1"
^XMB(3.9,58,2,2469,0)="""RTN"",""ICD1820X"",85,0)"
^XMB(3.9,58,2,2470,0)=" ;;82^1.3936^5.1"
^XMB(3.9,58,2,2471,0)="""RTN"",""ICD1820X"",86,0)"
^XMB(3.9,58,2,2472,0)=" ;;83^0.9828^4.2"
^XMB(3.9,58,2,2473,0)="""RTN"",""ICD1820X"",87,0)"
^XMB(3.9,58,2,2474,0)=" ;;84^0.5799^2.6"
^XMB(3.9,58,2,2475,0)="""RTN"",""ICD1820X"",88,0)"
^XMB(3.9,58,2,2476,0)=" ;;85^1.2405^4.8"
^XMB(3.9,58,2,2477,0)="""RTN"",""ICD1820X"",89,0)"
^XMB(3.9,58,2,2478,0)=" ;;86^0.6974^2.8"
^XMB(3.9,58,2,2479,0)="""RTN"",""ICD1820X"",90,0)"
^XMB(3.9,58,2,2480,0)=" ;;87^1.3654^4.9"
^XMB(3.9,58,2,2481,0)="""RTN"",""ICD1820X"",91,0)"
^XMB(3.9,58,2,2482,0)=" ;;88^0.8778^4.0"
^XMB(3.9,58,2,2483,0)="""RTN"",""ICD1820X"",92,0)"
^XMB(3.9,58,2,2484,0)=" ;;89^1.0320^4.7"
^XMB(3.9,58,2,2485,0)="""RTN"",""ICD1820X"",93,0)"
^XMB(3.9,58,2,2486,0)=" ;;90^0.6104^3.2"
^XMB(3.9,58,2,2487,0)="""RTN"",""ICD1820X"",94,0)"
^XMB(3.9,58,2,2488,0)=" ;;91^0.8124^3.4"
^XMB(3.9,58,2,2489,0)="""RTN"",""ICD1820X"",95,0)"
^XMB(3.9,58,2,2490,0)=" ;;92^1.1853^4.8"
^XMB(3.9,58,2,2491,0)="""RTN"",""ICD1820X"",96,0)"
^XMB(3.9,58,2,2492,0)=" ;;93^0.7150^3.1"
^XMB(3.9,58,2,2493,0)="""RTN"",""ICD1820X"",97,0)"
^XMB(3.9,58,2,2494,0)=" ;;94^1.1354^4.6"
^XMB(3.9,58,2,2495,0)="""RTN"",""ICD1820X"",98,0)"
^XMB(3.9,58,2,2496,0)=" ;;95^0.6035^2.9"
^XMB(3.9,58,2,2497,0)="""RTN"",""ICD1820X"",99,0)"
^XMB(3.9,58,2,2498,0)=" ;;96^0.7303^3.6"
^XMB(3.9,58,2,2499,0)="""RTN"",""ICD1820X"",100,0)"
^XMB(3.9,58,2,2500,0)=" ;;97^0.5364^2.8"
^XMB(3.9,58,2,2501,0)="""RTN"",""ICD1820X"",101,0)"
^XMB(3.9,58,2,2502,0)=" ;;98^0.5560^3.7"
^XMB(3.9,58,2,2503,0)="""RTN"",""ICD1820X"",102,0)"
^XMB(3.9,58,2,2504,0)=" ;;99^0.7094^2.4"
^XMB(3.9,58,2,2505,0)="""RTN"",""ICD1820X"",103,0)"
^XMB(3.9,58,2,2506,0)=" ;;100^0.5382^1.7"
^XMB(3.9,58,2,2507,0)="""RTN"",""ICD1820X"",104,0)"
^XMB(3.9,58,2,2508,0)=" ;;101^0.8733^3.3"
^XMB(3.9,58,2,2509,0)="""RTN"",""ICD1820X"",105,0)"
^XMB(3.9,58,2,2510,0)=" ;;102^0.5402^2.0"
^XMB(3.9,58,2,2511,0)="""RTN"",""ICD1820X"",106,0)"
^XMB(3.9,58,2,2512,0)=" ;;103^18.5617^23.7"
^XMB(3.9,58,2,2513,0)="""RTN"",""ICD1820X"",107,0)"
^XMB(3.9,58,2,2514,0)=" ;;104^8.2201^12.7"
^XMB(3.9,58,2,2515,0)="""RTN"",""ICD1820X"",108,0)"
^XMB(3.9,58,2,2516,0)=" ;;105^6.0192^8.4"
^XMB(3.9,58,2,2517,0)="""RTN"",""ICD1820X"",109,0)"
^XMB(3.9,58,2,2518,0)=" ;;106^7.0346^9.5"
^XMB(3.9,58,2,2519,0)="""RTN"",""ICD1820X"",110,0)"
^XMB(3.9,58,2,2520,0)=" ;;107^0^0"
^XMB(3.9,58,2,2521,0)="""RTN"",""ICD1820X"",111,0)"
^XMB(3.9,58,2,2522,0)=" ;;108^5.8789^8.6"
^XMB(3.9,58,2,2523,0)="""RTN"",""ICD1820X"",112,0)"
^XMB(3.9,58,2,2524,0)=" ;;109^0^0"
^XMB(3.9,58,2,2525,0)="""RTN"",""ICD1820X"",113,0)"
^XMB(3.9,58,2,2526,0)=" ;;110^3.8417^5.7"
^XMB(3.9,58,2,2527,0)="""RTN"",""ICD1820X"",114,0)"
^XMB(3.9,58,2,2528,0)=" ;;111^2.4840^2.6"
^XMB(3.9,58,2,2529,0)="""RTN"",""ICD1820X"",115,0)"
^XMB(3.9,58,2,2530,0)=" ;;112^0^0^0"
^XMB(3.9,58,2,2531,0)="""RTN"",""ICD1820X"",116,0)"
^XMB(3.9,58,2,2532,0)=" ;;113^3.1682^10.8"
^XMB(3.9,58,2,2533,0)="""RTN"",""ICD1820X"",117,0)"
^XMB(3.9,58,2,2534,0)=" ;;114^1.7354^6.7"
^XMB(3.9,58,2,2535,0)="""RTN"",""ICD1820X"",118,0)"
^XMB(3.9,58,2,2536,0)=" ;;115^0^0"
^XMB(3.9,58,2,2537,0)="""RTN"",""ICD1820X"",119,0)"
^XMB(3.9,58,2,2538,0)=" ;;116^0^0"
^XMB(3.9,58,2,2539,0)="""RTN"",""ICD1820X"",120,0)"
^XMB(3.9,58,2,2540,0)=" ;;117^1.3223^2.6"
^XMB(3.9,58,2,2541,0)="""RTN"",""ICD1820X"",121,0)"
^XMB(3.9,58,2,2542,0)=" ;;118^1.6380^2.1"
^XMB(3.9,58,2,2543,0)="""RTN"",""ICD1820X"",122,0)"
^XMB(3.9,58,2,2544,0)=" ;;119^1.3456^3.3"
^XMB(3.9,58,2,2545,0)="""RTN"",""ICD1820X"",123,0)"
^XMB(3.9,58,2,2546,0)=" ;;120^2.3853^5.9"
^XMB(3.9,58,2,2547,0)="""RTN"",""ICD1820X"",124,0)"
^XMB(3.9,58,2,2548,0)=" ;;121^1.6136^5.3"
^XMB(3.9,58,2,2549,0)="""RTN"",""ICD1820X"",125,0)"
^XMB(3.9,58,2,2550,0)=" ;;122^0.9847^2.8"
^XMB(3.9,58,2,2551,0)="""RTN"",""ICD1820X"",126,0)"
^XMB(3.9,58,2,2552,0)=" ;;123^1.5407^2.9"
^XMB(3.9,58,2,2553,0)="""RTN"",""ICD1820X"",127,0)"
^XMB(3.9,58,2,2554,0)=" ;;124^1.4425^3.3"
^XMB(3.9,58,2,2555,0)="""RTN"",""ICD1820X"",128,0)"
^XMB(3.9,58,2,2556,0)=" ;;125^1.0948^2.1"
^XMB(3.9,58,2,2557,0)="""RTN"",""ICD1820X"",129,0)"
^XMB(3.9,58,2,2558,0)=" ;;126^2.7440^9.4"
^XMB(3.9,58,2,2559,0)="""RTN"",""ICD1820X"",130,0)"
^XMB(3.9,58,2,2560,0)=" ;;127^1.0345^4.1"
^XMB(3.9,58,2,2561,0)="""RTN"",""ICD1820X"",131,0)"
^XMB(3.9,58,2,2562,0)=" ;;128^0.6949^4.4"
^XMB(3.9,58,2,2563,0)="""RTN"",""ICD1820X"",132,0)"
^XMB(3.9,58,2,2564,0)=" ;;129^1.0404^1.7"
^XMB(3.9,58,2,2565,0)="""RTN"",""ICD1820X"",133,0)"
^XMB(3.9,58,2,2566,0)=" ;;130^0.9425^4.4"
^XMB(3.9,58,2,2567,0)="""RTN"",""ICD1820X"",134,0)"
^XMB(3.9,58,2,2568,0)=" ;;131^0.5566^3.2"
^XMB(3.9,58,2,2569,0)="""RTN"",""ICD1820X"",135,0)"
^XMB(3.9,58,2,2570,0)=" ;;132^0.6273^2.2"
^XMB(3.9,58,2,2571,0)="""RTN"",""ICD1820X"",136,0)"
^XMB(3.9,58,2,2572,0)=" ;;133^0.5337^1.8"
^XMB(3.9,58,2,2573,0)="""RTN"",""ICD1820X"",137,0)"
^XMB(3.9,58,2,2574,0)=" ;;134^0.6068^2.4"
^XMB(3.9,58,2,2575,0)="""RTN"",""ICD1820X"",138,0)"
^XMB(3.9,58,2,2576,0)=" ;;135^0.8917^3.2"
^XMB(3.9,58,2,2577,0)="""RTN"",""ICD1820X"",139,0)"
^XMB(3.9,58,2,2578,0)=" ;;136^0.6214^2.2"
^XMB(3.9,58,2,2579,0)="""RTN"",""ICD1820X"",140,0)"
^XMB(3.9,58,2,2580,0)=" ;;137^0.8288^3.3"
^XMB(3.9,58,2,2581,0)="""RTN"",""ICD1820X"",141,0)"
^XMB(3.9,58,2,2582,0)=" ;;138^0.8287^3.0"
^XMB(3.9,58,2,2583,0)="""RTN"",""ICD1820X"",142,0)"
^XMB(3.9,58,2,2584,0)=" ;;139^0.5227^2.0"
^XMB(3.9,58,2,2585,0)="""RTN"",""ICD1820X"",143,0)"
^XMB(3.9,58,2,2586,0)=" ;;140^0.5116^2.0"
^XMB(3.9,58,2,2587,0)="""RTN"",""ICD1820X"",144,0)"
^XMB(3.9,58,2,2588,0)=" ;;141^0.7521^2.7"
^XMB(3.9,58,2,2589,0)="""RTN"",""ICD1820X"",145,0)"
^XMB(3.9,58,2,2590,0)=" ;;142^0.5852^2.0"
^XMB(3.9,58,2,2591,0)="""RTN"",""ICD1820X"",146,0)"
^XMB(3.9,58,2,2592,0)=" ;;143^0.5659^1.7"
^XMB(3.9,58,2,2593,0)="""RTN"",""ICD1820X"",147,0)"
^XMB(3.9,58,2,2594,0)=" ;;144^1.2761^4.1"
^XMB(3.9,58,2,2595,0)="""RTN"",""ICD1820X"",148,0)"
^XMB(3.9,58,2,2596,0)=" ;;145^0.5835^2.1"
^XMB(3.9,58,2,2597,0)="""RTN"",""ICD1820X"",149,0)"
^XMB(3.9,58,2,2598,0)=" ;;146^2.6621^8.6"
^XMB(3.9,58,2,2599,0)="""RTN"",""ICD1820X"",150,0)"
^XMB(3.9,58,2,2600,0)=" ;;147^1.4781^5.2"
^XMB(3.9,58,2,2601,0)="""RTN"",""ICD1820X"",151,0)"
^XMB(3.9,58,2,2602,0)=" ;;148^3.4479^10.0"
^XMB(3.9,58,2,2603,0)="""RTN"",""ICD1820X"",152,0)"
^XMB(3.9,58,2,2604,0)=" ;;149^1.4324^5.4"
^XMB(3.9,58,2,2605,0)="""RTN"",""ICD1820X"",153,0)"
^XMB(3.9,58,2,2606,0)=" ;;150^2.8061^8.9"
^XMB(3.9,58,2,2607,0)="""RTN"",""ICD1820X"",154,0)"
^XMB(3.9,58,2,2608,0)=" ;;151^1.2641^4.0"
^XMB(3.9,58,2,2609,0)="""RTN"",""ICD1820X"",155,0)"
^XMB(3.9,58,2,2610,0)=" ;;152^1.8783^6.7"
^XMB(3.9,58,2,2611,0)="""RTN"",""ICD1820X"",156,0)"
^XMB(3.9,58,2,2612,0)=" ;;153^1.0821^4.5"
^XMB(3.9,58,2,2613,0)="""RTN"",""ICD1820X"",157,0)"
^XMB(3.9,58,2,2614,0)=" ;;154^4.0399^9.9"
^XMB(3.9,58,2,2615,0)="""RTN"",""ICD1820X"",158,0)"
^XMB(3.9,58,2,2616,0)=" ;;155^1.2889^3.1"
^XMB(3.9,58,2,2617,0)="""RTN"",""ICD1820X"",159,0)"
^XMB(3.9,58,2,2618,0)=" ;;156^0.8535^6.0"
^XMB(3.9,58,2,2619,0)="""RTN"",""ICD1820X"",160,0)"
^XMB(3.9,58,2,2620,0)=" ;;157^1.3356^4.1"
^XMB(3.9,58,2,2621,0)="""RTN"",""ICD1820X"",161,0)"
^XMB(3.9,58,2,2622,0)=" ;;158^0.6657^2.1"
^XMB(3.9,58,2,2623,0)="""RTN"",""ICD1820X"",162,0)"
^XMB(3.9,58,2,2624,0)=" ;;159^1.4081^3.8"
^XMB(3.9,58,2,2625,0)="""RTN"",""ICD1820X"",163,0)"
^XMB(3.9,58,2,2626,0)=" ;;160^0.8431^2.2"
^XMB(3.9,58,2,2627,0)="""RTN"",""ICD1820X"",164,0)"
^XMB(3.9,58,2,2628,0)=" ;;161^1.1931^3.1"
^XMB(3.9,58,2,2629,0)="""RTN"",""ICD1820X"",165,0)"
^XMB(3.9,58,2,2630,0)=" ;;162^0.6785^1.7"
^XMB(3.9,58,2,2631,0)="""RTN"",""ICD1820X"",166,0)"
^XMB(3.9,58,2,2632,0)=" ;;163^0.6723^2.2"
^XMB(3.9,58,2,2633,0)="""RTN"",""ICD1820X"",167,0)"
^XMB(3.9,58,2,2634,0)=" ;;164^2.2476^6.6"
^XMB(3.9,58,2,2635,0)="""RTN"",""ICD1820X"",168,0)"
^XMB(3.9,58,2,2636,0)=" ;;165^1.1868^3.6"
^XMB(3.9,58,2,2637,0)="""RTN"",""ICD1820X"",169,0)"
^XMB(3.9,58,2,2638,0)=" ;;166^1.4521^3.3"
^XMB(3.9,58,2,2639,0)="""RTN"",""ICD1820X"",170,0)"
^XMB(3.9,58,2,2640,0)=" ;;167^0.8929^1.9"
^XMB(3.9,58,2,2641,0)="""RTN"",""ICD1820X"",171,0)"
^XMB(3.9,58,2,2642,0)=" ;;168^1.2662^3.3"
^XMB(3.9,58,2,2643,0)="""RTN"",""ICD1820X"",172,0)"
^XMB(3.9,58,2,2644,0)=" ;;169^0.7297^1.8"
^XMB(3.9,58,2,2645,0)="""RTN"",""ICD1820X"",173,0)"
^XMB(3.9,58,2,2646,0)=" ;;170^2.9612^7.8"
^XMB(3.9,58,2,2647,0)="""RTN"",""ICD1820X"",174,0)"
^XMB(3.9,58,2,2648,0)=" ;;171^1.1905^3.1"
^XMB(3.9,58,2,2649,0)="""RTN"",""ICD1820X"",175,0)"
^XMB(3.9,58,2,2650,0)=" ;;172^1.4125^5.1"
^XMB(3.9,58,2,2651,0)="""RTN"",""ICD1820X"",176,0)"
^XMB(3.9,58,2,2652,0)=" ;;173^0.7443^2.7"
^XMB(3.9,58,2,2653,0)="""RTN"",""ICD1820X"",177,0)"
^XMB(3.9,58,2,2654,0)=" ;;174^1.0060^3.8"
^XMB(3.9,58,2,2655,0)="""RTN"",""ICD1820X"",178,0)"
^XMB(3.9,58,2,2656,0)=" ;;175^0.5646^2.4"
^XMB(3.9,58,2,2657,0)="""RTN"",""ICD1820X"",179,0)"
^XMB(3.9,58,2,2658,0)=" ;;176^1.1246^4.1"
^XMB(3.9,58,2,2659,0)="""RTN"",""ICD1820X"",180,0)"
^XMB(3.9,58,2,2660,0)=" ;;177^0.9166^3.6"
^XMB(3.9,58,2,2661,0)="""RTN"",""ICD1820X"",181,0)"
^XMB(3.9,58,2,2662,0)=" ;;178^0.7013^2.6"
^XMB(3.9,58,2,2663,0)="""RTN"",""ICD1820X"",182,0)"
^XMB(3.9,58,2,2664,0)=" ;;179^1.0911^4.5"
^XMB(3.9,58,2,2665,0)="""RTN"",""ICD1820X"",183,0)"
^XMB(3.9,58,2,2666,0)=" ;;180^0.9784^4.2"
^XMB(3.9,58,2,2667,0)="""RTN"",""ICD1820X"",184,0)"
^XMB(3.9,58,2,2668,0)=" ;;181^0.5614^2.8"
^XMB(3.9,58,2,2669,0)="""RTN"",""ICD1820X"",185,0)"
^XMB(3.9,58,2,2670,0)=" ;;182^0.8413^3.4"
^XMB(3.9,58,2,2671,0)="""RTN"",""ICD1820X"",186,0)"
^XMB(3.9,58,2,2672,0)=" ;;183^0.5848^2.3"
^XMB(3.9,58,2,2673,0)="""RTN"",""ICD1820X"",187,0)"
^XMB(3.9,58,2,2674,0)=" ;;184^0.5663^2.5"
^XMB(3.9,58,2,2675,0)="""RTN"",""ICD1820X"",188,0)"
^XMB(3.9,58,2,2676,0)=" ;;185^0.8702^3.2"
^XMB(3.9,58,2,2677,0)="""RTN"",""ICD1820X"",189,0)"
^XMB(3.9,58,2,2678,0)=" ;;186^0.3253^2.9"
^XMB(3.9,58,2,2679,0)="""RTN"",""ICD1820X"",190,0)"
^XMB(3.9,58,2,2680,0)=" ;;187^0.8363^3.1"
^XMB(3.9,58,2,2681,0)="""RTN"",""ICD1820X"",191,0)"
^XMB(3.9,58,2,2682,0)=" ;;188^1.1290^4.2"
^XMB(3.9,58,2,2683,0)="""RTN"",""ICD1820X"",192,0)"
^XMB(3.9,58,2,2684,0)=" ;;189^0.6064^2.4"
^XMB(3.9,58,2,2685,0)="""RTN"",""ICD1820X"",193,0)"
^XMB(3.9,58,2,2686,0)=" ;;190^0.6179^3.1"
^XMB(3.9,58,2,2687,0)="""RTN"",""ICD1820X"",194,0)"
^XMB(3.9,58,2,2688,0)=" ;;191^3.9680^9.0"
^XMB(3.9,58,2,2689,0)="""RTN"",""ICD1820X"",195,0)"
^XMB(3.9,58,2,2690,0)=" ;;192^1.6793^4.3"
^XMB(3.9,58,2,2691,0)="""RTN"",""ICD1820X"",196,0)"
^XMB(3.9,58,2,2692,0)=" ;;193^3.2818^9.9"
^XMB(3.9,58,2,2693,0)="""RTN"",""ICD1820X"",197,0)"
^XMB(3.9,58,2,2694,0)=" ;;194^1.5748^5.6"
^XMB(3.9,58,2,2695,0)="""RTN"",""ICD1820X"",198,0)"
^XMB(3.9,58,2,2696,0)=" ;;195^3.0530^8.8"
^XMB(3.9,58,2,2697,0)="""RTN"",""ICD1820X"",199,0)"
^XMB(3.9,58,2,2698,0)=" ;;196^1.6031^4.9"
^XMB(3.9,58,2,2699,0)="""RTN"",""ICD1820X"",200,0)"
^XMB(3.9,58,2,2700,0)=" ;;197^2.5425^7.5"
^XMB(3.9,58,2,2701,0)="""RTN"",""ICD1820X"",201,0)"
^XMB(3.9,58,2,2702,0)=" ;;198^1.1604^3.7"
^XMB(3.9,58,2,2703,0)="""RTN"",""ICD1820X"",202,0)"
^XMB(3.9,58,2,2704,0)=" ;;199^2.4073^6.8"
^XMB(3.9,58,2,2705,0)="""RTN"",""ICD1820X"",203,0)"
^XMB(3.9,58,2,2706,0)=" ;;200^2.7868^6.5"
^XMB(3.9,58,2,2707,0)="""RTN"",""ICD1820X"",204,0)"
^XMB(3.9,58,2,2708,0)=" Q"
^XMB(3.9,58,2,2709,0)="""RTN"",""ICD1820Y"")"
^XMB(3.9,58,2,2710,0)="0^15^B21429448"
^XMB(3.9,58,2,2711,0)="""RTN"",""ICD1820Y"",1,0)"
^XMB(3.9,58,2,2712,0)="ICD1820Y ;ALB/MRY - FY 2004 DRG Weights & Trims; 10/2/03 ; 6/28/05 1:27pm"
^XMB(3.9,58,2,2713,0)="""RTN"",""ICD1820Y"",2,0)"
^XMB(3.9,58,2,2714,0)=" ;;18.0;DRG Grouper;**20**;Oct 13, 2000"
^XMB(3.9,58,2,2715,0)="""RTN"",""ICD1820Y"",3,0)"
^XMB(3.9,58,2,2716,0)="WEIGHTS ;;DRG^RELATIVE WEIGHTS^GEOMETRIC MEAN LOS"
^XMB(3.9,58,2,2717,0)="""RTN"",""ICD1820Y"",4,0)"
^XMB(3.9,58,2,2718,0)=" ;;201^3.7339^9.9"
^XMB(3.9,58,2,2719,0)="""RTN"",""ICD1820Y"",5,0)"
^XMB(3.9,58,2,2720,0)=" ;;202^1.3318^4.7"
^XMB(3.9,58,2,2721,0)="""RTN"",""ICD1820Y"",6,0)"
^XMB(3.9,58,2,2722,0)=" ;;203^1.3552^4.9"
^XMB(3.9,58,2,2723,0)="""RTN"",""ICD1820Y"",7,0)"
^XMB(3.9,58,2,2724,0)=" ;;204^1.1249^4.2"
^XMB(3.9,58,2,2725,0)="""RTN"",""ICD1820Y"",8,0)"
^XMB(3.9,58,2,2726,0)=" ;;205^1.2059^4.4"
^XMB(3.9,58,2,2727,0)="""RTN"",""ICD1820Y"",9,0)"
^XMB(3.9,58,2,2728,0)=" ;;206^0.7292^3.0"
^XMB(3.9,58,2,2729,0)="""RTN"",""ICD1820Y"",10,0)"
^XMB(3.9,58,2,2730,0)=" ;;207^1.1746^4.1"
^XMB(3.9,58,2,2731,0)="""RTN"",""ICD1820Y"",11,0)"
^XMB(3.9,58,2,2732,0)=" ;;208^0.6895^2.3"
^XMB(3.9,58,2,2733,0)="""RTN"",""ICD1820Y"",12,0)"
^XMB(3.9,58,2,2734,0)=" ;;209^0^0^0"
^XMB(3.9,58,2,2735,0)="""RTN"",""ICD1820Y"",13,0)"
^XMB(3.9,58,2,2736,0)=" ;;210^1.9059^6.1"
^XMB(3.9,58,2,2737,0)="""RTN"",""ICD1820Y"",14,0)"
^XMB(3.9,58,2,2738,0)=" ;;211^1.2690^4.4"
^XMB(3.9,58,2,2739,0)="""RTN"",""ICD1820Y"",15,0)"
^XMB(3.9,58,2,2740,0)=" ;;212^1.2877^2.4"
^XMB(3.9,58,2,2741,0)="""RTN"",""ICD1820Y"",16,0)"
^XMB(3.9,58,2,2742,0)=" ;;213^2.0428^7.2"
^XMB(3.9,58,2,2743,0)="""RTN"",""ICD1820Y"",17,0)"
^XMB(3.9,58,2,2744,0)=" ;;214^0^0^0"
^XMB(3.9,58,2,2745,0)="""RTN"",""ICD1820Y"",18,0)"
^XMB(3.9,58,2,2746,0)=" ;;215^0^0^0"
^XMB(3.9,58,2,2747,0)="""RTN"",""ICD1820Y"",19,0)"
^XMB(3.9,58,2,2748,0)=" ;;216^1.9131^3.3"
^XMB(3.9,58,2,2749,0)="""RTN"",""ICD1820Y"",20,0)"
^XMB(3.9,58,2,2750,0)=" ;;217^3.0596^9.3"
^XMB(3.9,58,2,2751,0)="""RTN"",""ICD1820Y"",21,0)"
^XMB(3.9,58,2,2752,0)=" ;;218^1.6648^4.4"
^XMB(3.9,58,2,2753,0)="""RTN"",""ICD1820Y"",22,0)"
^XMB(3.9,58,2,2754,0)=" ;;219^1.0443^2.6"
^XMB(3.9,58,2,2755,0)="""RTN"",""ICD1820Y"",23,0)"
^XMB(3.9,58,2,2756,0)=" ;;220^0.5913^5.3"
^XMB(3.9,58,2,2757,0)="""RTN"",""ICD1820Y"",24,0)"
^XMB(3.9,58,2,2758,0)=" ;;221^0^0^0"
^XMB(3.9,58,2,2759,0)="""RTN"",""ICD1820Y"",25,0)"
^XMB(3.9,58,2,2760,0)=" ;;222^0^0^0"
^XMB(3.9,58,2,2761,0)="""RTN"",""ICD1820Y"",26,0)"
^XMB(3.9,58,2,2762,0)=" ;;223^1.1164^2.3"
^XMB(3.9,58,2,2763,0)="""RTN"",""ICD1820Y"",27,0)"
^XMB(3.9,58,2,2764,0)=" ;;224^0.8185^1.6"
^XMB(3.9,58,2,2765,0)="""RTN"",""ICD1820Y"",28,0)"
^XMB(3.9,58,2,2766,0)=" ;;225^1.2251^3.7"
^XMB(3.9,58,2,2767,0)="""RTN"",""ICD1820Y"",29,0)"
^XMB(3.9,58,2,2768,0)=" ;;226^1.5884^4.5"
^XMB(3.9,58,2,2769,0)="""RTN"",""ICD1820Y"",30,0)"
^XMB(3.9,58,2,2770,0)=" ;;227^0.8311^2.1"
^XMB(3.9,58,2,2771,0)="""RTN"",""ICD1820Y"",31,0)"
^XMB(3.9,58,2,2772,0)=" ;;228^1.1459^2.8"
^XMB(3.9,58,2,2773,0)="""RTN"",""ICD1820Y"",32,0)"
^XMB(3.9,58,2,2774,0)=" ;;229^0.6976^1.9"
^XMB(3.9,58,2,2775,0)="""RTN"",""ICD1820Y"",33,0)"
^XMB(3.9,58,2,2776,0)=" ;;230^1.3174^3.7"
^XMB(3.9,58,2,2777,0)="""RTN"",""ICD1820Y"",34,0)"
^XMB(3.9,58,2,2778,0)=" ;;231^0^0^0"
^XMB(3.9,58,2,2779,0)="""RTN"",""ICD1820Y"",35,0)"
^XMB(3.9,58,2,2780,0)=" ;;232^0.9702^1.8"
^XMB(3.9,58,2,2781,0)="""RTN"",""ICD1820Y"",36,0)"
^XMB(3.9,58,2,2782,0)=" ;;233^1.9184^4.6"
^XMB(3.9,58,2,2783,0)="""RTN"",""ICD1820Y"",37,0)"
^XMB(3.9,58,2,2784,0)=" ;;234^1.2219^2.0"
^XMB(3.9,58,2,2785,0)="""RTN"",""ICD1820Y"",38,0)"
^XMB(3.9,58,2,2786,0)=" ;;235^0.7768^3.8"
^XMB(3.9,58,2,2787,0)="""RTN"",""ICD1820Y"",39,0)"
^XMB(3.9,58,2,2788,0)=" ;;236^0.7407^3.8"
^XMB(3.9,58,2,2789,0)="""RTN"",""ICD1820Y"",40,0)"
^XMB(3.9,58,2,2790,0)=" ;;237^0.6090^3.0"
^XMB(3.9,58,2,2791,0)="""RTN"",""ICD1820Y"",41,0)"
^XMB(3.9,58,2,2792,0)=" ;;238^1.4401^6.7"
^XMB(3.9,58,2,2793,0)="""RTN"",""ICD1820Y"",42,0)"
^XMB(3.9,58,2,2794,0)=" ;;239^1.0767^5.0"
^XMB(3.9,58,2,2795,0)="""RTN"",""ICD1820Y"",43,0)"
^XMB(3.9,58,2,2796,0)=" ;;240^1.4051^5.0"
^XMB(3.9,58,2,2797,0)="""RTN"",""ICD1820Y"",44,0)"
^XMB(3.9,58,2,2798,0)=" ;;241^0.6629^3.0"
^XMB(3.9,58,2,2799,0)="""RTN"",""ICD1820Y"",45,0)"
^XMB(3.9,58,2,2800,0)=" ;;242^1.1504^5.1"
^XMB(3.9,58,2,2801,0)="""RTN"",""ICD1820Y"",46,0)"
^XMB(3.9,58,2,2802,0)=" ;;243^0.7658^3.6"
^XMB(3.9,58,2,2803,0)="""RTN"",""ICD1820Y"",47,0)"
^XMB(3.9,58,2,2804,0)=" ;;244^0.7200^3.6"
^XMB(3.9,58,2,2805,0)="""RTN"",""ICD1820Y"",48,0)"
^XMB(3.9,58,2,2806,0)=" ;;245^0.4583^2.5"
^XMB(3.9,58,2,2807,0)="""RTN"",""ICD1820Y"",49,0)"
^XMB(3.9,58,2,2808,0)=" ;;246^0.5932^2.8"
^XMB(3.9,58,2,2809,0)="""RTN"",""ICD1820Y"",50,0)"
^XMB(3.9,58,2,2810,0)=" ;;247^0.5795^2.6"
^XMB(3.9,58,2,2811,0)="""RTN"",""ICD1820Y"",51,0)"
^XMB(3.9,58,2,2812,0)=" ;;248^0.8554^3.8"
^XMB(3.9,58,2,2813,0)="""RTN"",""ICD1820Y"",52,0)"
^XMB(3.9,58,2,2814,0)=" ;;249^0.7095^2.7"
^XMB(3.9,58,2,2815,0)="""RTN"",""ICD1820Y"",53,0)"
^XMB(3.9,58,2,2816,0)=" ;;250^0.6974^3.2"
^XMB(3.9,58,2,2817,0)="""RTN"",""ICD1820Y"",54,0)"
^XMB(3.9,58,2,2818,0)=" ;;251^0.4749^2.3"
^XMB(3.9,58,2,2819,0)="""RTN"",""ICD1820Y"",55,0)"
^XMB(3.9,58,2,2820,0)=" ;;252^0.2567^1.8"
^XMB(3.9,58,2,2821,0)="""RTN"",""ICD1820Y"",56,0)"
^XMB(3.9,58,2,2822,0)=" ;;253^0.7747^3.8"
^XMB(3.9,58,2,2823,0)="""RTN"",""ICD1820Y"",57,0)"
^XMB(3.9,58,2,2824,0)=" ;;254^0.4588^2.6"
^XMB(3.9,58,2,2825,0)="""RTN"",""ICD1820Y"",58,0)"
^XMB(3.9,58,2,2826,0)=" ;;255^0.2990^2.9"
^XMB(3.9,58,2,2827,0)="""RTN"",""ICD1820Y"",59,0)"
^XMB(3.9,58,2,2828,0)=" ;;256^0.8509^3.9"
^XMB(3.9,58,2,2829,0)="""RTN"",""ICD1820Y"",60,0)"
^XMB(3.9,58,2,2830,0)=" ;;257^0.8967^2.0"
^XMB(3.9,58,2,2831,0)="""RTN"",""ICD1820Y"",61,0)"
^XMB(3.9,58,2,2832,0)=" ;;258^0.7138^1.5"
^XMB(3.9,58,2,2833,0)="""RTN"",""ICD1820Y"",62,0)"
^XMB(3.9,58,2,2834,0)=" ;;259^0.9671^1.8"
^XMB(3.9,58,2,2835,0)="""RTN"",""ICD1820Y"",63,0)"
^XMB(3.9,58,2,2836,0)=" ;;260^0.7032^1.2"
^XMB(3.9,58,2,2837,0)="""RTN"",""ICD1820Y"",64,0)"
^XMB(3.9,58,2,2838,0)=" ;;261^0.9732^1.6"
^XMB(3.9,58,2,2839,0)="""RTN"",""ICD1820Y"",65,0)"
^XMB(3.9,58,2,2840,0)=" ;;262^0.9766^3.3"
^XMB(3.9,58,2,2841,0)="""RTN"",""ICD1820Y"",66,0)"
^XMB(3.9,58,2,2842,0)=" ;;263^2.1130^8.6"
^XMB(3.9,58,2,2843,0)="""RTN"",""ICD1820Y"",67,0)"
^XMB(3.9,58,2,2844,0)=" ;;264^1.0635^5.0"
^XMB(3.9,58,2,2845,0)="""RTN"",""ICD1820Y"",68,0)"
^XMB(3.9,58,2,2846,0)=" ;;265^1.6593^4.4"
^XMB(3.9,58,2,2847,0)="""RTN"",""ICD1820Y"",69,0)"
^XMB(3.9,58,2,2848,0)=" ;;266^0.8637^2.3"
^XMB(3.9,58,2,2849,0)="""RTN"",""ICD1820Y"",70,0)"
^XMB(3.9,58,2,2850,0)=" ;;267^0.8962^2.8"
^XMB(3.9,58,2,2851,0)="""RTN"",""ICD1820Y"",71,0)"
^XMB(3.9,58,2,2852,0)=" ;;268^1.1326^2.4"
^XMB(3.9,58,2,2853,0)="""RTN"",""ICD1820Y"",72,0)"
^XMB(3.9,58,2,2854,0)=" ;;269^1.8352^6.2"
^XMB(3.9,58,2,2855,0)="""RTN"",""ICD1820Y"",73,0)"
^XMB(3.9,58,2,2856,0)=" ;;270^0.8513^2.7"
^XMB(3.9,58,2,2857,0)="""RTN"",""ICD1820Y"",74,0)"
^XMB(3.9,58,2,2858,0)=" ;;271^1.0195^5.6"
^XMB(3.9,58,2,2859,0)="""RTN"",""ICD1820Y"",75,0)"
^XMB(3.9,58,2,2860,0)=" ;;272^0.9860^4.5"
^XMB(3.9,58,2,2861,0)="""RTN"",""ICD1820Y"",76,0)"
^XMB(3.9,58,2,2862,0)=" ;;273^0.5539^2.9"
^XMB(3.9,58,2,2863,0)="""RTN"",""ICD1820Y"",77,0)"
^XMB(3.9,58,2,2864,0)=" ;;274^1.1294^4.7"
^XMB(3.9,58,2,2865,0)="""RTN"",""ICD1820Y"",78,0)"
^XMB(3.9,58,2,2866,0)=" ;;275^0.5340^2.4"
^XMB(3.9,58,2,2867,0)="""RTN"",""ICD1820Y"",79,0)"
^XMB(3.9,58,2,2868,0)=" ;;276^0.6892^3.5"
^XMB(3.9,58,2,2869,0)="""RTN"",""ICD1820Y"",80,0)"
^XMB(3.9,58,2,2870,0)=" ;;277^0.8676^4.6"
^XMB(3.9,58,2,2871,0)="""RTN"",""ICD1820Y"",81,0)"
^XMB(3.9,58,2,2872,0)=" ;;278^0.5391^3.4"
^XMB(3.9,58,2,2873,0)="""RTN"",""ICD1820Y"",82,0)"
^XMB(3.9,58,2,2874,0)=" ;;279^0.7822^4.2"
^XMB(3.9,58,2,2875,0)="""RTN"",""ICD1820Y"",83,0)"
^XMB(3.9,58,2,2876,0)=" ;;280^0.7313^3.2"
^XMB(3.9,58,2,2877,0)="""RTN"",""ICD1820Y"",84,0)"
^XMB(3.9,58,2,2878,0)=" ;;281^0.4913^2.3"
^XMB(3.9,58,2,2879,0)="""RTN"",""ICD1820Y"",85,0)"
^XMB(3.9,58,2,2880,0)=" ;;282^0.2600^2.2"
^XMB(3.9,58,2,2881,0)="""RTN"",""ICD1820Y"",86,0)"
^XMB(3.9,58,2,2882,0)=" ;;283^0.7423^3.5"
^XMB(3.9,58,2,2883,0)="""RTN"",""ICD1820Y"",87,0)"
^XMB(3.9,58,2,2884,0)=" ;;284^0.4563^2.4"
^XMB(3.9,58,2,2885,0)="""RTN"",""ICD1820Y"",88,0)"
^XMB(3.9,58,2,2886,0)=" ;;285^2.1831^8.2"
^XMB(3.9,58,2,2887,0)="""RTN"",""ICD1820Y"",89,0)"
^XMB(3.9,58,2,2888,0)=" ;;286^1.9390^4.0"
^XMB(3.9,58,2,2889,0)="""RTN"",""ICD1820Y"",90,0)"
^XMB(3.9,58,2,2890,0)=" ;;287^1.9470^7.8"
^XMB(3.9,58,2,2891,0)="""RTN"",""ICD1820Y"",91,0)"
^XMB(3.9,58,2,2892,0)=" ;;288^2.0384^3.2"
^XMB(3.9,58,2,2893,0)="""RTN"",""ICD1820Y"",92,0)"
^XMB(3.9,58,2,2894,0)=" ;;289^0.9315^1.7"
^XMB(3.9,58,2,2895,0)="""RTN"",""ICD1820Y"",93,0)"
^XMB(3.9,58,2,2896,0)=" ;;290^0.8891^1.6"
^XMB(3.9,58,2,2897,0)="""RTN"",""ICD1820Y"",94,0)"
^XMB(3.9,58,2,2898,0)=" ;;291^1.0877^1.6"
^XMB(3.9,58,2,2899,0)="""RTN"",""ICD1820Y"",95,0)"
^XMB(3.9,58,2,2900,0)=" ;;292^2.6395^7.3"
^XMB(3.9,58,2,2901,0)="""RTN"",""ICD1820Y"",96,0)"
^XMB(3.9,58,2,2902,0)=" ;;293^1.3472^3.2"
^XMB(3.9,58,2,2903,0)="""RTN"",""ICD1820Y"",97,0)"
^XMB(3.9,58,2,2904,0)=" ;;294^0.7652^3.3"
^XMB(3.9,58,2,2905,0)="""RTN"",""ICD1820Y"",98,0)"
^XMB(3.9,58,2,2906,0)=" ;;295^0.7267^2.8"
^XMB(3.9,58,2,2907,0)="""RTN"",""ICD1820Y"",99,0)"
^XMB(3.9,58,2,2908,0)=" ;;296^0.8187^3.7"
^XMB(3.9,58,2,2909,0)="""RTN"",""ICD1820Y"",100,0)"
^XMB(3.9,58,2,2910,0)=" ;;297^0.4879^2.5"
^XMB(3.9,58,2,2911,0)="""RTN"",""ICD1820Y"",101,0)"
^XMB(3.9,58,2,2912,0)=" ;;298^0.5486^2.5"
^XMB(3.9,58,2,2913,0)="""RTN"",""ICD1820Y"",102,0)"
^XMB(3.9,58,2,2914,0)=" ;;299^1.0329^3.7"
^XMB(3.9,58,2,2915,0)="""RTN"",""ICD1820Y"",103,0)"
^XMB(3.9,58,2,2916,0)=" ;;300^1.0922^4.6"
^XMB(3.9,58,2,2917,0)="""RTN"",""ICD1820Y"",104,0)"
^XMB(3.9,58,2,2918,0)=" ;;301^0.6118^2.7"
^XMB(3.9,58,2,2919,0)="""RTN"",""ICD1820Y"",105,0)"
^XMB(3.9,58,2,2920,0)=" ;;302^3.1679^7.0"
^XMB(3.9,58,2,2921,0)="""RTN"",""ICD1820Y"",106,0)"
^XMB(3.9,58,2,2922,0)=" ;;303^2.2183^5.8"
^XMB(3.9,58,2,2923,0)="""RTN"",""ICD1820Y"",107,0)"
^XMB(3.9,58,2,2924,0)=" ;;304^2.3761^6.1"
^XMB(3.9,58,2,2925,0)="""RTN"",""ICD1820Y"",108,0)"
^XMB(3.9,58,2,2926,0)=" ;;305^1.1595^2.6"
^XMB(3.9,58,2,2927,0)="""RTN"",""ICD1820Y"",109,0)"
^XMB(3.9,58,2,2928,0)=" ;;306^1.2700^3.6"
^XMB(3.9,58,2,2929,0)="""RTN"",""ICD1820Y"",110,0)"
^XMB(3.9,58,2,2930,0)=" ;;307^0.6202^1.7"
^XMB(3.9,58,2,2931,0)="""RTN"",""ICD1820Y"",111,0)"
^XMB(3.9,58,2,2932,0)=" ;;308^1.6349^3.9"
^XMB(3.9,58,2,2933,0)="""RTN"",""ICD1820Y"",112,0)"
^XMB(3.9,58,2,2934,0)=" ;;309^0.9085^1.6"
^XMB(3.9,58,2,2935,0)="""RTN"",""ICD1820Y"",113,0)"
^XMB(3.9,58,2,2936,0)=" ;;310^1.1898^3.0"
^XMB(3.9,58,2,2937,0)="""RTN"",""ICD1820Y"",114,0)"
^XMB(3.9,58,2,2938,0)=" ;;311^0.6432^1.5"
^XMB(3.9,58,2,2939,0)="""RTN"",""ICD1820Y"",115,0)"
^XMB(3.9,58,2,2940,0)=" ;;312^1.1159^3.2"
^XMB(3.9,58,2,2941,0)="""RTN"",""ICD1820Y"",116,0)"
^XMB(3.9,58,2,2942,0)=" ;;313^0.6783^1.7"
^XMB(3.9,58,2,2943,0)="""RTN"",""ICD1820Y"",117,0)"
^XMB(3.9,58,2,2944,0)=" ;;314^0.5012^2.3"
^XMB(3.9,58,2,2945,0)="""RTN"",""ICD1820Y"",118,0)"
^XMB(3.9,58,2,2946,0)=" ;;315^2.0823^3.6"
^XMB(3.9,58,2,2947,0)="""RTN"",""ICD1820Y"",119,0)"
^XMB(3.9,58,2,2948,0)=" ;;316^1.2692^4.9"
^XMB(3.9,58,2,2949,0)="""RTN"",""ICD1820Y"",120,0)"
^XMB(3.9,58,2,2950,0)=" ;;317^0.7942^2.4"
^XMB(3.9,58,2,2951,0)="""RTN"",""ICD1820Y"",121,0)"
^XMB(3.9,58,2,2952,0)=" ;;318^1.1539^4.2"
^XMB(3.9,58,2,2953,0)="""RTN"",""ICD1820Y"",122,0)"
^XMB(3.9,58,2,2954,0)=" ;;319^0.6385^2.1"
^XMB(3.9,58,2,2955,0)="""RTN"",""ICD1820Y"",123,0)"
^XMB(3.9,58,2,2956,0)=" ;;320^0.8658^4.2"
^XMB(3.9,58,2,2957,0)="""RTN"",""ICD1820Y"",124,0)"
^XMB(3.9,58,2,2958,0)=" ;;321^0.5652^3.0"
^XMB(3.9,58,2,2959,0)="""RTN"",""ICD1820Y"",125,0)"
^XMB(3.9,58,2,2960,0)=" ;;322^0.5498^2.9"
^XMB(3.9,58,2,2961,0)="""RTN"",""ICD1820Y"",126,0)"
^XMB(3.9,58,2,2962,0)=" ;;323^0.8214^2.3"
^XMB(3.9,58,2,2963,0)="""RTN"",""ICD1820Y"",127,0)"
^XMB(3.9,58,2,2964,0)=" ;;324^0.5050^1.6"
^XMB(3.9,58,2,2965,0)="""RTN"",""ICD1820Y"",128,0)"
^XMB(3.9,58,2,2966,0)=" ;;325^0.6436^2.9"
^XMB(3.9,58,2,2967,0)="""RTN"",""ICD1820Y"",129,0)"
^XMB(3.9,58,2,2968,0)=" ;;326^0.4391^2.1"
^XMB(3.9,58,2,2969,0)="""RTN"",""ICD1820Y"",130,0)"
^XMB(3.9,58,2,2970,0)=" ;;327^0.3748^3.1"
^XMB(3.9,58,2,2971,0)="""RTN"",""ICD1820Y"",131,0)"
^XMB(3.9,58,2,2972,0)=" ;;328^0.7079^2.6"
^XMB(3.9,58,2,2973,0)="""RTN"",""ICD1820Y"",132,0)"
^XMB(3.9,58,2,2974,0)=" ;;329^0.4701^1.5"
^XMB(3.9,58,2,2975,0)="""RTN"",""ICD1820Y"",133,0)"
^XMB(3.9,58,2,2976,0)=" ;;330^0.3227^1.6"
^XMB(3.9,58,2,2977,0)="""RTN"",""ICD1820Y"",134,0)"
^XMB(3.9,58,2,2978,0)=" ;;331^1.0619^4.1"
^XMB(3.9,58,2,2979,0)="""RTN"",""ICD1820Y"",135,0)"
^XMB(3.9,58,2,2980,0)=" ;;332^0.6160^2.4"
^XMB(3.9,58,2,2981,0)="""RTN"",""ICD1820Y"",136,0)"
^XMB(3.9,58,2,2982,0)=" ;;333^0.9669^3.5"
^XMB(3.9,58,2,2983,0)="""RTN"",""ICD1820Y"",137,0)"
^XMB(3.9,58,2,2984,0)=" ;;334^1.4368^3.5"
^XMB(3.9,58,2,2985,0)="""RTN"",""ICD1820Y"",138,0)"
^XMB(3.9,58,2,2986,0)=" ;;335^1.1004^2.4"
^XMB(3.9,58,2,2987,0)="""RTN"",""ICD1820Y"",139,0)"
^XMB(3.9,58,2,2988,0)=" ;;336^0.8425^2.5"
^XMB(3.9,58,2,2989,0)="""RTN"",""ICD1820Y"",140,0)"
^XMB(3.9,58,2,2990,0)=" ;;337^0.5747^1.7"
^XMB(3.9,58,2,2991,0)="""RTN"",""ICD1820Y"",141,0)"
^XMB(3.9,58,2,2992,0)=" ;;338^1.3772^3.9"
^XMB(3.9,58,2,2993,0)="""RTN"",""ICD1820Y"",142,0)"
^XMB(3.9,58,2,2994,0)=" ;;339^1.1866^3.2"
^XMB(3.9,58,2,2995,0)="""RTN"",""ICD1820Y"",143,0)"
^XMB(3.9,58,2,2996,0)=" ;;340^0.2868^2.4"
^XMB(3.9,58,2,2997,0)="""RTN"",""ICD1820Y"",144,0)"
^XMB(3.9,58,2,2998,0)=" ;;341^1.2622^1.9"
^XMB(3.9,58,2,2999,0)="""RTN"",""ICD1820Y"",145,0)"
^XMB(3.9,58,2,3000,0)=" ;;342^0.8737^2.5"
^XMB(3.9,58,2,3001,0)="""RTN"",""ICD1820Y"",146,0)"
^XMB(3.9,58,2,3002,0)=" ;;343^0.1559^1.7"
^XMB(3.9,58,2,3003,0)="""RTN"",""ICD1820Y"",147,0)"
^XMB(3.9,58,2,3004,0)=" ;;344^1.2475^1.7"
^XMB(3.9,58,2,3005,0)="""RTN"",""ICD1820Y"",148,0)"
^XMB(3.9,58,2,3006,0)=" ;;345^1.1472^3.1"
^XMB(3.9,58,2,3007,0)="""RTN"",""ICD1820Y"",149,0)"
^XMB(3.9,58,2,3008,0)=" ;;346^1.0441^4.2"
^XMB(3.9,58,2,3009,0)="""RTN"",""ICD1820Y"",150,0)"
^XMB(3.9,58,2,3010,0)=" ;;347^0.6104^2.2"
^XMB(3.9,58,2,3011,0)="""RTN"",""ICD1820Y"",151,0)"
^XMB(3.9,58,2,3012,0)=" ;;348^0.7188^3.2"
^XMB(3.9,58,2,3013,0)="""RTN"",""ICD1820Y"",152,0)"
^XMB(3.9,58,2,3014,0)=" ;;349^0.4210^1.9"
^XMB(3.9,58,2,3015,0)="""RTN"",""ICD1820Y"",153,0)"
^XMB(3.9,58,2,3016,0)=" ;;350^0.7289^3.5"
^XMB(3.9,58,2,3017,0)="""RTN"",""ICD1820Y"",154,0)"
^XMB(3.9,58,2,3018,0)=" ;;351^0.2392^1.3"
^XMB(3.9,58,2,3019,0)="""RTN"",""ICD1820Y"",155,0)"
^XMB(3.9,58,2,3020,0)=" ;;352^0.7360^2.9"
^XMB(3.9,58,2,3021,0)="""RTN"",""ICD1820Y"",156,0)"
^XMB(3.9,58,2,3022,0)=" ;;353^1.8504^4.7"
^XMB(3.9,58,2,3023,0)="""RTN"",""ICD1820Y"",157,0)"
^XMB(3.9,58,2,3024,0)=" ;;354^1.5135^4.6"
^XMB(3.9,58,2,3025,0)="""RTN"",""ICD1820Y"",158,0)"
^XMB(3.9,58,2,3026,0)=" ;;355^0.8824^2.8"
^XMB(3.9,58,2,3027,0)="""RTN"",""ICD1820Y"",159,0)"
^XMB(3.9,58,2,3028,0)=" ;;356^0.7428^1.7"
^XMB(3.9,58,2,3029,0)="""RTN"",""ICD1820Y"",160,0)"
^XMB(3.9,58,2,3030,0)=" ;;357^2.2237^6.5"
^XMB(3.9,58,2,3031,0)="""RTN"",""ICD1820Y"",161,0)"
^XMB(3.9,58,2,3032,0)=" ;;358^1.1448^3.2"
^XMB(3.9,58,2,3033,0)="""RTN"",""ICD1820Y"",162,0)"
^XMB(3.9,58,2,3034,0)=" ;;359^0.7948^2.2"
^XMB(3.9,58,2,3035,0)="""RTN"",""ICD1820Y"",163,0)"
^XMB(3.9,58,2,3036,0)=" ;;360^0.8582^2.0"
^XMB(3.9,58,2,3037,0)="""RTN"",""ICD1820Y"",164,0)"
^XMB(3.9,58,2,3038,0)=" ;;361^1.0847^2.2"
^XMB(3.9,58,2,3039,0)="""RTN"",""ICD1820Y"",165,0)"
^XMB(3.9,58,2,3040,0)=" ;;362^0.3057^1.4"
^XMB(3.9,58,2,3041,0)="""RTN"",""ICD1820Y"",166,0)"
^XMB(3.9,58,2,3042,0)=" ;;363^0.9728^2.7"
^XMB(3.9,58,2,3043,0)="""RTN"",""ICD1820Y"",167,0)"
^XMB(3.9,58,2,3044,0)=" ;;364^0.8709^3.0"
^XMB(3.9,58,2,3045,0)="""RTN"",""ICD1820Y"",168,0)"
^XMB(3.9,58,2,3046,0)=" ;;365^2.0408^5.3"
^XMB(3.9,58,2,3047,0)="""RTN"",""ICD1820Y"",169,0)"
^XMB(3.9,58,2,3048,0)=" ;;366^1.2348^4.8"
^XMB(3.9,58,2,3049,0)="""RTN"",""ICD1820Y"",170,0)"
^XMB(3.9,58,2,3050,0)=" ;;367^0.5728^2.3"
^XMB(3.9,58,2,3051,0)="""RTN"",""ICD1820Y"",171,0)"
^XMB(3.9,58,2,3052,0)=" ;;368^1.1684^5.2"
^XMB(3.9,58,2,3053,0)="""RTN"",""ICD1820Y"",172,0)"
^XMB(3.9,58,2,3054,0)=" ;;369^0.6310^2.4"
^XMB(3.9,58,2,3055,0)="""RTN"",""ICD1820Y"",173,0)"
^XMB(3.9,58,2,3056,0)=" ;;370^0.8974^4.1"
^XMB(3.9,58,2,3057,0)="""RTN"",""ICD1820Y"",174,0)"
^XMB(3.9,58,2,3058,0)=" ;;371^0.6066^3.1"
^XMB(3.9,58,2,3059,0)="""RTN"",""ICD1820Y"",175,0)"
^XMB(3.9,58,2,3060,0)=" ;;372^0.5027^2.5"
^XMB(3.9,58,2,3061,0)="""RTN"",""ICD1820Y"",176,0)"
^XMB(3.9,58,2,3062,0)=" ;;373^0.3556^2.0"
^XMB(3.9,58,2,3063,0)="""RTN"",""ICD1820Y"",177,0)"
^XMB(3.9,58,2,3064,0)=" ;;374^0.6712^2.5"
^XMB(3.9,58,2,3065,0)="""RTN"",""ICD1820Y"",178,0)"
^XMB(3.9,58,2,3066,0)=" ;;375^0.5837^4.4"
^XMB(3.9,58,2,3067,0)="""RTN"",""ICD1820Y"",179,0)"
^XMB(3.9,58,2,3068,0)=" ;;376^0.5242^2.6"
^XMB(3.9,58,2,3069,0)="""RTN"",""ICD1820Y"",180,0)"
^XMB(3.9,58,2,3070,0)=" ;;377^1.6996^2.9"
^XMB(3.9,58,2,3071,0)="""RTN"",""ICD1820Y"",181,0)"
^XMB(3.9,58,2,3072,0)=" ;;378^0.7442^1.9"
^XMB(3.9,58,2,3073,0)="""RTN"",""ICD1820Y"",182,0)"
^XMB(3.9,58,2,3074,0)=" ;;379^0.3578^2.0"
^XMB(3.9,58,2,3075,0)="""RTN"",""ICD1820Y"",183,0)"
^XMB(3.9,58,2,3076,0)=" ;;380^0.3925^1.6"
^XMB(3.9,58,2,3077,0)="""RTN"",""ICD1820Y"",184,0)"
^XMB(3.9,58,2,3078,0)=" ;;381^0.6034^1.6"
^XMB(3.9,58,2,3079,0)="""RTN"",""ICD1820Y"",185,0)"
^XMB(3.9,58,2,3080,0)=" ;;382^0.2070^1.3"
^XMB(3.9,58,2,3081,0)="""RTN"",""ICD1820Y"",186,0)"
^XMB(3.9,58,2,3082,0)=" ;;383^0.5053^2.6"
^XMB(3.9,58,2,3083,0)="""RTN"",""ICD1820Y"",187,0)"
^XMB(3.9,58,2,3084,0)=" ;;384^0.3225^1.8"
^XMB(3.9,58,2,3085,0)="""RTN"",""ICD1820Y"",188,0)"
^XMB(3.9,58,2,3086,0)=" ;;385^1.3930^1.8"
^XMB(3.9,58,2,3087,0)="""RTN"",""ICD1820Y"",189,0)"
^XMB(3.9,58,2,3088,0)=" ;;386^4.5935^17.9"
^XMB(3.9,58,2,3089,0)="""RTN"",""ICD1820Y"",190,0)"
^XMB(3.9,58,2,3090,0)=" ;;387^3.1372^13.3"
^XMB(3.9,58,2,3091,0)="""RTN"",""ICD1820Y"",191,0)"
^XMB(3.9,58,2,3092,0)=" ;;388^1.8929^8.6"
^XMB(3.9,58,2,3093,0)="""RTN"",""ICD1820Y"",192,0)"
^XMB(3.9,58,2,3094,0)=" ;;389^3.2226^4.7"
^XMB(3.9,58,2,3095,0)="""RTN"",""ICD1820Y"",193,0)"
^XMB(3.9,58,2,3096,0)=" ;;390^1.1406^3.4"
^XMB(3.9,58,2,3097,0)="""RTN"",""ICD1820Y"",194,0)"
^XMB(3.9,58,2,3098,0)=" ;;391^0.1544^3.1"
^XMB(3.9,58,2,3099,0)="""RTN"",""ICD1820Y"",195,0)"
^XMB(3.9,58,2,3100,0)=" ;;392^3.0459^6.5"
^XMB(3.9,58,2,3101,0)="""RTN"",""ICD1820Y"",196,0)"
^XMB(3.9,58,2,3102,0)=" ;;393^1.3645^9.1"
^XMB(3.9,58,2,3103,0)="""RTN"",""ICD1820Y"",197,0)"
^XMB(3.9,58,2,3104,0)=" ;;394^1.9109^4.5"
^XMB(3.9,58,2,3105,0)="""RTN"",""ICD1820Y"",198,0)"
^XMB(3.9,58,2,3106,0)=" ;;395^0.8328^3.2"
^XMB(3.9,58,2,3107,0)="""RTN"",""ICD1820Y"",199,0)"
^XMB(3.9,58,2,3108,0)=" ;;396^0.8323^2.6"
^XMB(3.9,58,2,3109,0)="""RTN"",""ICD1820Y"",200,0)"
^XMB(3.9,58,2,3110,0)=" ;;397^1.2986^3.7"
^XMB(3.9,58,2,3111,0)="""RTN"",""ICD1820Y"",201,0)"
^XMB(3.9,58,2,3112,0)=" ;;398^1.2082^4.4"
^XMB(3.9,58,2,3113,0)="""RTN"",""ICD1820Y"",202,0)"
^XMB(3.9,58,2,3114,0)=" ;;399^0.6674^2.7"
^XMB(3.9,58,2,3115,0)="""RTN"",""ICD1820Y"",203,0)"
^XMB(3.9,58,2,3116,0)=" ;;400^0^0^0"
^XMB(3.9,58,2,3117,0)="""RTN"",""ICD1820Y"",204,0)"
^XMB(3.9,58,2,3118,0)=" Q"
^XMB(3.9,58,2,3119,0)="""RTN"",""ICD1820Z"")"
^XMB(3.9,58,2,3120,0)="0^16^B13782689"
^XMB(3.9,58,2,3121,0)="""RTN"",""ICD1820Z"",1,0)"
^XMB(3.9,58,2,3122,0)="ICD1820Z ;ALB/MRY - FY 2004 DRG Weights & Trims; 10/2/03 ; 6/28/05 2:31pm"
^XMB(3.9,58,2,3123,0)="""RTN"",""ICD1820Z"",2,0)"
^XMB(3.9,58,2,3124,0)=" ;;18.0;DRG Grouper;**20**;Oct 13, 2000"
^XMB(3.9,58,2,3125,0)="""RTN"",""ICD1820Z"",3,0)"
^XMB(3.9,58,2,3126,0)="WEIGHTS ;;DRG^RELATIVE WEIGHTS^GEOMETRIC MEAN LOS"
^XMB(3.9,58,2,3127,0)="""RTN"",""ICD1820Z"",4,0)"
^XMB(3.9,58,2,3128,0)=" ;;401^2.9678^8.0"
^XMB(3.9,58,2,3129,0)="""RTN"",""ICD1820Z"",5,0)"
^XMB(3.9,58,2,3130,0)=" ;;402^1.1810^2.8"
^XMB(3.9,58,2,3131,0)="""RTN"",""ICD1820Z"",6,0)"
^XMB(3.9,58,2,3132,0)=" ;;403^1.8432^5.8"
^XMB(3.9,58,2,3133,0)="""RTN"",""ICD1820Z"",7,0)"
^XMB(3.9,58,2,3134,0)=" ;;404^0.9265^3.0"
^XMB(3.9,58,2,3135,0)="""RTN"",""ICD1820Z"",8,0)"
^XMB(3.9,58,2,3136,0)=" ;;405^1.9346^4.9"
^XMB(3.9,58,2,3137,0)="""RTN"",""ICD1820Z"",9,0)"
^XMB(3.9,58,2,3138,0)=" ;;406^2.7897^7.0"
^XMB(3.9,58,2,3139,0)="""RTN"",""ICD1820Z"",10,0)"
^XMB(3.9,58,2,3140,0)=" ;;407^1.2289^3.0"
^XMB(3.9,58,2,3141,0)="""RTN"",""ICD1820Z"",11,0)"
^XMB(3.9,58,2,3142,0)=" ;;408^2.2460^4.8"
^XMB(3.9,58,2,3143,0)="""RTN"",""ICD1820Z"",12,0)"
^XMB(3.9,58,2,3144,0)=" ;;409^1.2074^4.3"
^XMB(3.9,58,2,3145,0)="""RTN"",""ICD1820Z"",13,0)"
^XMB(3.9,58,2,3146,0)=" ;;410^1.1069^3.0"
^XMB(3.9,58,2,3147,0)="""RTN"",""ICD1820Z"",14,0)"
^XMB(3.9,58,2,3148,0)=" ;;411^0.3635^2.5"
^XMB(3.9,58,2,3149,0)="""RTN"",""ICD1820Z"",15,0)"
^XMB(3.9,58,2,3150,0)=" ;;412^0.8451^1.8"
^XMB(3.9,58,2,3151,0)="""RTN"",""ICD1820Z"",16,0)"
^XMB(3.9,58,2,3152,0)=" ;;413^1.3048^5.0"
^XMB(3.9,58,2,3153,0)="""RTN"",""ICD1820Z"",17,0)"
^XMB(3.9,58,2,3154,0)=" ;;414^0.7788^3.0"
^XMB(3.9,58,2,3155,0)="""RTN"",""ICD1820Z"",18,0)"
^XMB(3.9,58,2,3156,0)=" ;;415^3.9890^11.0"
^XMB(3.9,58,2,3157,0)="""RTN"",""ICD1820Z"",19,0)"
^XMB(3.9,58,2,3158,0)=" ;;416^1.6774^5.6"
^XMB(3.9,58,2,3159,0)="""RTN"",""ICD1820Z"",20,0)"
^XMB(3.9,58,2,3160,0)=" ;;417^1.1689^3.2"
^XMB(3.9,58,2,3161,0)="""RTN"",""ICD1820Z"",21,0)"
^XMB(3.9,58,2,3162,0)=" ;;418^1.0716^4.8"
^XMB(3.9,58,2,3163,0)="""RTN"",""ICD1820Z"",22,0)"
^XMB(3.9,58,2,3164,0)=" ;;419^0.8453^3.4"
^XMB(3.9,58,2,3165,0)="""RTN"",""ICD1820Z"",23,0)"
^XMB(3.9,58,2,3166,0)=" ;;420^0.6077^2.7"
^XMB(3.9,58,2,3167,0)="""RTN"",""ICD1820Z"",24,0)"
^XMB(3.9,58,2,3168,0)=" ;;421^0.7664^3.1"
^XMB(3.9,58,2,3169,0)="""RTN"",""ICD1820Z"",25,0)"
^XMB(3.9,58,2,3170,0)=" ;;422^0.6171^2.6"
^XMB(3.9,58,2,3171,0)="""RTN"",""ICD1820Z"",26,0)"
^XMB(3.9,58,2,3172,0)=" ;;423^1.9196^6.0"
^XMB(3.9,58,2,3173,0)="""RTN"",""ICD1820Z"",27,0)"
^XMB(3.9,58,2,3174,0)=" ;;424^2.2773^7.3"
^XMB(3.9,58,2,3175,0)="""RTN"",""ICD1820Z"",28,0)"
^XMB(3.9,58,2,3176,0)=" ;;425^0.6191^2.6"
^XMB(3.9,58,2,3177,0)="""RTN"",""ICD1820Z"",29,0)"
^XMB(3.9,58,2,3178,0)=" ;;426^0.4656^3.0"
^XMB(3.9,58,2,3179,0)="""RTN"",""ICD1820Z"",30,0)"
^XMB(3.9,58,2,3180,0)=" ;;427^0.5135^3.2"
^XMB(3.9,58,2,3181,0)="""RTN"",""ICD1820Z"",31,0)"
^XMB(3.9,58,2,3182,0)=" ;;428^0.6981^4.6"
^XMB(3.9,58,2,3183,0)="""RTN"",""ICD1820Z"",32,0)"
^XMB(3.9,58,2,3184,0)=" ;;429^0.7919^4.3"
^XMB(3.9,58,2,3185,0)="""RTN"",""ICD1820Z"",33,0)"
^XMB(3.9,58,2,3186,0)=" ;;430^0.6483^5.8"
^XMB(3.9,58,2,3187,0)="""RTN"",""ICD1820Z"",34,0)"
^XMB(3.9,58,2,3188,0)=" ;;431^0.5178^4.0"
^XMB(3.9,58,2,3189,0)="""RTN"",""ICD1820Z"",35,0)"
^XMB(3.9,58,2,3190,0)=" ;;432^0.6282^2.9"
^XMB(3.9,58,2,3191,0)="""RTN"",""ICD1820Z"",36,0)"
^XMB(3.9,58,2,3192,0)=" ;;433^0.2776^2.2"
^XMB(3.9,58,2,3193,0)="""RTN"",""ICD1820Z"",37,0)"
^XMB(3.9,58,2,3194,0)=" ;;434^0^0^0"
^XMB(3.9,58,2,3195,0)="""RTN"",""ICD1820Z"",38,0)"
^XMB(3.9,58,2,3196,0)=" ;;435^0^0^0"
^XMB(3.9,58,2,3197,0)="""RTN"",""ICD1820Z"",39,0)"
^XMB(3.9,58,2,3198,0)=" ;;436^0^0^0"
^XMB(3.9,58,2,3199,0)="""RTN"",""ICD1820Z"",40,0)"
^XMB(3.9,58,2,3200,0)=" ;;437^0^0^0"
^XMB(3.9,58,2,3201,0)="""RTN"",""ICD1820Z"",41,0)"
^XMB(3.9,58,2,3202,0)=" ;;438^0^0^0"
^XMB(3.9,58,2,3203,0)="""RTN"",""ICD1820Z"",42,0)"
^XMB(3.9,58,2,3204,0)=" ;;439^1.9398^5.4"
^XMB(3.9,58,2,3205,0)="""RTN"",""ICD1820Z"",43,0)"
^XMB(3.9,58,2,3206,0)=" ;;440^1.9457^5.9"
^XMB(3.9,58,2,3207,0)="""RTN"",""ICD1820Z"",44,0)"
^XMB(3.9,58,2,3208,0)=" ;;441^0.9382^2.3"
^XMB(3.9,58,2,3209,0)="""RTN"",""ICD1820Z"",45,0)"
^XMB(3.9,58,2,3210,0)=" ;;442^2.5660^6.0"
^XMB(3.9,58,2,3211,0)="""RTN"",""ICD1820Z"",46,0)"
^XMB(3.9,58,2,3212,0)=" ;;443^0.9943^2.6"
^XMB(3.9,58,2,3213,0)="""RTN"",""ICD1820Z"",47,0)"
^XMB(3.9,58,2,3214,0)=" ;;444^0.7556^3.2"
^XMB(3.9,58,2,3215,0)="""RTN"",""ICD1820Z"",48,0)"
^XMB(3.9,58,2,3216,0)=" ;;445^0.5033^2.2"
^XMB(3.9,58,2,3217,0)="""RTN"",""ICD1820Z"",49,0)"
^XMB(3.9,58,2,3218,0)=" ;;446^0.2999^2.4"
^XMB(3.9,58,2,3219,0)="""RTN"",""ICD1820Z"",50,0)"
^XMB(3.9,58,2,3220,0)=" ;;447^0.5569^1.9"
^XMB(3.9,58,2,3221,0)="""RTN"",""ICD1820Z"",51,0)"
^XMB(3.9,58,2,3222,0)=" ;;448^0.0987^2.9"
^XMB(3.9,58,2,3223,0)="""RTN"",""ICD1820Z"",52,0)"
^XMB(3.9,58,2,3224,0)=" ;;449^0.8529^2.6"
^XMB(3.9,58,2,3225,0)="""RTN"",""ICD1820Z"",53,0)"
^XMB(3.9,58,2,3226,0)=" ;;450^0.4282^1.6"
^XMB(3.9,58,2,3227,0)="""RTN"",""ICD1820Z"",54,0)"
^XMB(3.9,58,2,3228,0)=" ;;451^0.2663^2.1"
^XMB(3.9,58,2,3229,0)="""RTN"",""ICD1820Z"",55,0)"
^XMB(3.9,58,2,3230,0)=" ;;452^1.0462^3.5"
^XMB(3.9,58,2,3231,0)="""RTN"",""ICD1820Z"",56,0)"
^XMB(3.9,58,2,3232,0)=" ;;453^0.5285^2.2"
^XMB(3.9,58,2,3233,0)="""RTN"",""ICD1820Z"",57,0)"
^XMB(3.9,58,2,3234,0)=" ;;454^0.8141^2.9"
^XMB(3.9,58,2,3235,0)="""RTN"",""ICD1820Z"",58,0)"
^XMB(3.9,58,2,3236,0)=" ;;455^0.4725^1.7"
^XMB(3.9,58,2,3237,0)="""RTN"",""ICD1820Z"",59,0)"
^XMB(3.9,58,2,3238,0)=" ;;456^0^0^0"
^XMB(3.9,58,2,3239,0)="""RTN"",""ICD1820Z"",60,0)"
^XMB(3.9,58,2,3240,0)=" ;;457^0^0^0"
^XMB(3.9,58,2,3241,0)="""RTN"",""ICD1820Z"",61,0)"
^XMB(3.9,58,2,3242,0)=" ;;458^0^0^0"
^XMB(3.9,58,2,3243,0)="""RTN"",""ICD1820Z"",62,0)"
^XMB(3.9,58,2,3244,0)=" ;;459^0^0^0"
^XMB(3.9,58,2,3245,0)="""RTN"",""ICD1820Z"",63,0)"
^XMB(3.9,58,2,3246,0)=" ;;460^0^0^0"
^XMB(3.9,58,2,3247,0)="""RTN"",""ICD1820Z"",64,0)"
^XMB(3.9,58,2,3248,0)=" ;;461^1.3974^3.0"
^XMB(3.9,58,2,3249,0)="""RTN"",""ICD1820Z"",65,0)"
^XMB(3.9,58,2,3250,0)=" ;;462^0.8700^8.9"
^XMB(3.9,58,2,3251,0)="""RTN"",""ICD1820Z"",66,0)"
^XMB(3.9,58,2,3252,0)=" ;;463^0.6960^3.1"
^XMB(3.9,58,2,3253,0)="""RTN"",""ICD1820Z"",67,0)"
^XMB(3.9,58,2,3254,0)=" ;;464^0.5055^2.4"
^XMB(3.9,58,2,3255,0)="""RTN"",""ICD1820Z"",68,0)"
^XMB(3.9,58,2,3256,0)=" ;;465^0.6224^2.4"
^XMB(3.9,58,2,3257,0)="""RTN"",""ICD1820Z"",69,0)"
^XMB(3.9,58,2,3258,0)=" ;;466^0.7806^2.8"
^XMB(3.9,58,2,3259,0)="""RTN"",""ICD1820Z"",70,0)"
^XMB(3.9,58,2,3260,0)=" ;;467^0.4803^2.0"
^XMB(3.9,58,2,3261,0)="""RTN"",""ICD1820Z"",71,0)"
^XMB(3.9,58,2,3262,0)=" ;;468^4.0031^9.7"
^XMB(3.9,58,2,3263,0)="""RTN"",""ICD1820Z"",72,0)"
^XMB(3.9,58,2,3264,0)=" ;;469^0^0^0"
^XMB(3.9,58,2,3265,0)="""RTN"",""ICD1820Z"",73,0)"
^XMB(3.9,58,2,3266,0)=" ;;470^0^0^0"
^XMB(3.9,58,2,3267,0)="""RTN"",""ICD1820Z"",74,0)"
^XMB(3.9,58,2,3268,0)=" ;;471^3.1391^4.5"
^XMB(3.9,58,2,3269,0)="""RTN"",""ICD1820Z"",75,0)"
^XMB(3.9,58,2,3270,0)=" ;;472^0^0^0"
^XMB(3.9,58,2,3271,0)="""RTN"",""ICD1820Z"",76,0)"
^XMB(3.9,58,2,3272,0)=" ;;473^3.4231^7.4"
^XMB(3.9,58,2,3273,0)="""RTN"",""ICD1820Z"",77,0)"
^XMB(3.9,58,2,3274,0)=" ;;474^0^0^0"
^XMB(3.9,58,2,3275,0)="""RTN"",""ICD1820Z"",78,0)"
^XMB(3.9,58,2,3276,0)=" ;;475^3.6091^8.1"
^XMB(3.9,58,2,3277,0)="""RTN"",""ICD1820Z"",79,0)"
^XMB(3.9,58,2,3278,0)=" ;;476^2.1822^7.4"
^XMB(3.9,58,2,3279,0)="""RTN"",""ICD1820Z"",80,0)"
^XMB(3.9,58,2,3280,0)=" ;;477^2.0607^5.8"
^XMB(3.9,58,2,3281,0)="""RTN"",""ICD1820Z"",81,0)"
^XMB(3.9,58,2,3282,0)=" ;;478^0^0"
^XMB(3.9,58,2,3283,0)="""RTN"",""ICD1820Z"",82,0)"
^XMB(3.9,58,2,3284,0)=" ;;479^1.4434^2.1"
^XMB(3.9,58,2,3285,0)="""RTN"",""ICD1820Z"",83,0)"
^XMB(3.9,58,2,3286,0)=" ;;480^8.9693^13.7"
^XMB(3.9,58,2,3287,0)="""RTN"",""ICD1820Z"",84,0)"
^XMB(3.9,58,2,3288,0)=" ;;481^6.2321^18.2"
^XMB(3.9,58,2,3289,0)="""RTN"",""ICD1820Z"",85,0)"
^XMB(3.9,58,2,3290,0)=" ;;482^3.3387^9.6"
^XMB(3.9,58,2,3291,0)="""RTN"",""ICD1820Z"",86,0)"
^XMB(3.9,58,2,3292,0)=" ;;483^0^0^0"
^XMB(3.9,58,2,3293,0)="""RTN"",""ICD1820Z"",87,0)"
^XMB(3.9,58,2,3294,0)=" ;;484^5.1438^9.3"
^XMB(3.9,58,2,3295,0)="""RTN"",""ICD1820Z"",88,0)"
^XMB(3.9,58,2,3296,0)=" ;;485^3.4952^8.4"
^XMB(3.9,58,2,3297,0)="""RTN"",""ICD1820Z"",89,0)"
^XMB(3.9,58,2,3298,0)=" ;;486^4.7323^8.5"
^XMB(3.9,58,2,3299,0)="""RTN"",""ICD1820Z"",90,0)"
^XMB(3.9,58,2,3300,0)=" ;;487^1.9459^5.3"
^XMB(3.9,58,2,3301,0)="""RTN"",""ICD1820Z"",91,0)"
^XMB(3.9,58,2,3302,0)=" ;;488^4.4353^11.8"
^XMB(3.9,58,2,3303,0)="""RTN"",""ICD1820Z"",92,0)"
^XMB(3.9,58,2,3304,0)=" ;;489^1.8058^5.9"
^XMB(3.9,58,2,3305,0)="""RTN"",""ICD1820Z"",93,0)"
^XMB(3.9,58,2,3306,0)=" ;;490^1.0639^3.8"
^XMB(3.9,58,2,3307,0)="""RTN"",""ICD1820Z"",94,0)"
^XMB(3.9,58,2,3308,0)=" ;;491^1.6780^2.6"
^XMB(3.9,58,2,3309,0)="""RTN"",""ICD1820Z"",95,0)"
^XMB(3.9,58,2,3310,0)=" ;;492^3.5926^8.8"
^XMB(3.9,58,2,3311,0)="""RTN"",""ICD1820Z"",96,0)"
^XMB(3.9,58,2,3312,0)=" ;;493^1.8333^4.5"
^XMB(3.9,58,2,3313,0)="""RTN"",""ICD1820Z"",97,0)"
^XMB(3.9,58,2,3314,0)=" ;;494^1.0285^2.1"
^XMB(3.9,58,2,3315,0)="""RTN"",""ICD1820Z"",98,0)"
^XMB(3.9,58,2,3316,0)=" ;;495^8.5736^14.0"
^XMB(3.9,58,2,3317,0)="""RTN"",""ICD1820Z"",99,0)"
^XMB(3.9,58,2,3318,0)=" ;;496^6.0932^6.4"
^XMB(3.9,58,2,3319,0)="""RTN"",""ICD1820Z"",100,0)"
^XMB(3.9,58,2,3320,0)=" ;;497^3.6224^5.0"
^XMB(3.9,58,2,3321,0)="""RTN"",""ICD1820Z"",101,0)"
^XMB(3.9,58,2,3322,0)=" ;;498^2.7791^3.4"
^XMB(3.9,58,2,3323,0)="""RTN"",""ICD1820Z"",102,0)"
^XMB(3.9,58,2,3324,0)=" ;;499^1.3831^3.1"
^XMB(3.9,58,2,3325,0)="""RTN"",""ICD1820Z"",103,0)"
^XMB(3.9,58,2,3326,0)=" ;;500^0.9046^1.8"
^XMB(3.9,58,2,3327,0)="""RTN"",""ICD1820Z"",104,0)"
^XMB(3.9,58,2,3328,0)=" ;;501^2.6462^8.5"
^XMB(3.9,58,2,3329,0)="""RTN"",""ICD1820Z"",105,0)"
^XMB(3.9,58,2,3330,0)=" ;;502^1.4462^4.9"
^XMB(3.9,58,2,3331,0)="""RTN"",""ICD1820Z"",106,0)"
^XMB(3.9,58,2,3332,0)=" ;;503^1.2038^2.9"
^XMB(3.9,58,2,3333,0)="""RTN"",""ICD1820Z"",107,0)"
^XMB(3.9,58,2,3334,0)=" ;;504^11.8018^21.7"
^XMB(3.9,58,2,3335,0)="""RTN"",""ICD1820Z"",108,0)"
^XMB(3.9,58,2,3336,0)=" ;;505^2.2953^2.4"
^XMB(3.9,58,2,3337,0)="""RTN"",""ICD1820Z"",109,0)"
^XMB(3.9,58,2,3338,0)=" ;;506^4.0939^11.2"
^XMB(3.9,58,2,3339,0)="""RTN"",""ICD1820Z"",110,0)"
^XMB(3.9,58,2,3340,0)=" ;;507^1.7369^5.8"
^XMB(3.9,58,2,3341,0)="""RTN"",""ICD1820Z"",111,0)"
^XMB(3.9,58,2,3342,0)=" ;;508^1.2767^5.1"
^XMB(3.9,58,2,3343,0)="""RTN"",""ICD1820Z"",112,0)"
^XMB(3.9,58,2,3344,0)=" ;;509^0.8217^3.6"
^XMB(3.9,58,2,3345,0)="""RTN"",""ICD1820Z"",113,0)"
^XMB(3.9,58,2,3346,0)=" ;;510^1.1817^4.4"
^XMB(3.9,58,2,3347,0)="""RTN"",""ICD1820Z"",114,0)"
^XMB(3.9,58,2,3348,0)=" ;;511^0.7424^2.6"
^XMB(3.9,58,2,3349,0)="""RTN"",""ICD1820Z"",115,0)"
^XMB(3.9,58,2,3350,0)=" ;;512^5.3660^10.7"
^XMB(3.9,58,2,3351,0)="""RTN"",""ICD1820Z"",116,0)"
^XMB(3.9,58,2,3352,0)=" ;;513^5.9669^8.9"
^XMB(3.9,58,2,3353,0)="""RTN"",""ICD1820Z"",117,0)"
^XMB(3.9,58,2,3354,0)=" ;;514^0^0^0"
^XMB(3.9,58,2,3355,0)="""RTN"",""ICD1820Z"",118,0)"
^XMB(3.9,58,2,3356,0)=" ;;515^5.5205^2.6"
^XMB(3.9,58,2,3357,0)="""RTN"",""ICD1820Z"",119,0)"
^XMB(3.9,58,2,3358,0)=" ;;516^0^0^0"
^XMB(3.9,58,2,3359,0)="""RTN"",""ICD1820Z"",120,0)"
^XMB(3.9,58,2,3360,0)=" ;;517^0^0"
^XMB(3.9,58,2,3361,0)="""RTN"",""ICD1820Z"",121,0)"
^XMB(3.9,58,2,3362,0)=" ;;518^1.6544^1.8"
^XMB(3.9,58,2,3363,0)="""RTN"",""ICD1820Z"",122,0)"
^XMB(3.9,58,2,3364,0)=" ;;519^2.4695^3.0"
^XMB(3.9,58,2,3365,0)="""RTN"",""ICD1820Z"",123,0)"
^XMB(3.9,58,2,3366,0)=" ;;520^1.6788^1.6"
^XMB(3.9,58,2,3367,0)="""RTN"",""ICD1820Z"",124,0)"
^XMB(3.9,58,2,3368,0)=" ;;521^0.6939^4.2"
^XMB(3.9,58,2,3369,0)="""RTN"",""ICD1820Z"",125,0)"
^XMB(3.9,58,2,3370,0)=" ;;522^0.4794^7.7"
^XMB(3.9,58,2,3371,0)="""RTN"",""ICD1820Z"",126,0)"
^XMB(3.9,58,2,3372,0)=" ;;523^0.3793^3.2"
^XMB(3.9,58,2,3373,0)="""RTN"",""ICD1820Z"",127,0)"
^XMB(3.9,58,2,3374,0)=" ;;524^0.7288^2.6"
^XMB(3.9,58,2,3375,0)="""RTN"",""ICD1820Z"",128,0)"
^XMB(3.9,58,2,3376,0)=" ;;525^11.4282^7.2"
^XMB(3.9,58,2,3377,0)="""RTN"",""ICD1820Z"",129,0)"
^XMB(3.9,58,2,3378,0)=" ;;526^0^0^0"
^XMB(3.9,58,2,3379,0)="""RTN"",""ICD1820Z"",130,0)"
^XMB(3.9,58,2,3380,0)=" ;;527^0^0"
^XMB(3.9,58,2,3381,0)="""RTN"",""ICD1820Z"",131,0)"
^XMB(3.9,58,2,3382,0)=" ;;528^7.0505^13.8"
^XMB(3.9,58,2,3383,0)="""RTN"",""ICD1820Z"",132,0)"
^XMB(3.9,58,2,3384,0)=" ;;529^2.3160^5.3"
^XMB(3.9,58,2,3385,0)="""RTN"",""ICD1820Z"",133,0)"
^XMB(3.9,58,2,3386,0)=" ;;530^1.2041^2.4"
^XMB(3.9,58,2,3387,0)="""RTN"",""ICD1820Z"",134,0)"
^XMB(3.9,58,2,3388,0)=" ;;531^3.1279^6.5"
^XMB(3.9,58,2,3389,0)="""RTN"",""ICD1820Z"",135,0)"
^XMB(3.9,58,2,3390,0)=" ;;532^1.4195^2.8"
^XMB(3.9,58,2,3391,0)="""RTN"",""ICD1820Z"",136,0)"
^XMB(3.9,58,2,3392,0)=" ;;533^1.5767^2.4"
^XMB(3.9,58,2,3393,0)="""RTN"",""ICD1820Z"",137,0)"
^XMB(3.9,58,2,3394,0)=" ;;534^1.0201^1.5"
^XMB(3.9,58,2,3395,0)="""RTN"",""ICD1820Z"",138,0)"
^XMB(3.9,58,2,3396,0)=" ;;535^7.9738^7.9"
^XMB(3.9,58,2,3397,0)="""RTN"",""ICD1820Z"",139,0)"
^XMB(3.9,58,2,3398,0)=" ;;536^6.9144^5.9"
^XMB(3.9,58,2,3399,0)="""RTN"",""ICD1820Z"",140,0)"
^XMB(3.9,58,2,3400,0)=" ;;537^1.8360^4.8"
^XMB(3.9,58,2,3401,0)="""RTN"",""ICD1820Z"",141,0)"
^XMB(3.9,58,2,3402,0)=" ;;538^0.9833^2.1"
^XMB(3.9,58,2,3403,0)="""RTN"",""ICD1820Z"",142,0)"
^XMB(3.9,58,2,3404,0)=" ;;539^3.2782^7.0"
^XMB(3.9,58,2,3405,0)="""RTN"",""ICD1820Z"",143,0)"
^XMB(3.9,58,2,3406,0)=" ;;540^1.1940^2.6"
^XMB(3.9,58,2,3407,0)="""RTN"",""ICD1820Z"",144,0)"
^XMB(3.9,58,2,3408,0)=" ;;541^19.8038^38.1"
^XMB(3.9,58,2,3409,0)="""RTN"",""ICD1820Z"",145,0)"
^XMB(3.9,58,2,3410,0)=" ;;542^12.8719^29.1"
^XMB(3.9,58,2,3411,0)="""RTN"",""ICD1820Z"",146,0)"
^XMB(3.9,58,2,3412,0)=" ;;543^4.4184^8.5"
^XMB(3.9,58,2,3413,0)="""RTN"",""ICD1820Z"",147,0)"
^XMB(3.9,58,2,3414,0)=" ;;544^1.9643^4.1"
^XMB(3.9,58,2,3415,0)="""RTN"",""ICD1820Z"",148,0)"
^XMB(3.9,58,2,3416,0)=" ;;545^2.4827^4.5"
^XMB(3.9,58,2,3417,0)="""RTN"",""ICD1820Z"",149,0)"
^XMB(3.9,58,2,3418,0)=" ;;546^5.0739^7.1"
^XMB(3.9,58,2,3419,0)="""RTN"",""ICD1820Z"",150,0)"
^XMB(3.9,58,2,3420,0)=" ;;547^6.1948^10.8"
^XMB(3.9,58,2,3421,0)="""RTN"",""ICD1820Z"",151,0)"
^XMB(3.9,58,2,3422,0)=" ;;548^4.7198^8.2"
^XMB(3.9,58,2,3423,0)="""RTN"",""ICD1820Z"",152,0)"
^XMB(3.9,58,2,3424,0)=" ;;549^5.0980^8.7"
^XMB(3.9,58,2,3425,0)="""RTN"",""ICD1820Z"",153,0)"
^XMB(3.9,58,2,3426,0)=" ;;550^3.6151^6.2"
^XMB(3.9,58,2,3427,0)="""RTN"",""ICD1820Z"",154,0)"
^XMB(3.9,58,2,3428,0)=" ;;551^3.1007^4.4"
^XMB(3.9,58,2,3429,0)="""RTN"",""ICD1820Z"",155,0)"
^XMB(3.9,58,2,3430,0)=" ;;552^2.0996^2.5"
^XMB(3.9,58,2,3431,0)="""RTN"",""ICD1820Z"",156,0)"
^XMB(3.9,58,2,3432,0)=" ;;553^3.0957^6.6"
^XMB(3.9,58,2,3433,0)="""RTN"",""ICD1820Z"",157,0)"
^XMB(3.9,58,2,3434,0)=" ;;554^2.0721^4.0"
^XMB(3.9,58,2,3435,0)="""RTN"",""ICD1820Z"",158,0)"
^XMB(3.9,58,2,3436,0)=" ;;555^2.4315^3.4"
^XMB(3.9,58,2,3437,0)="""RTN"",""ICD1820Z"",159,0)"
^XMB(3.9,58,2,3438,0)=" ;;556^1.9132^1.6"
^XMB(3.9,58,2,3439,0)="""RTN"",""ICD1820Z"",160,0)"
^XMB(3.9,58,2,3440,0)=" ;;557^2.8717^3.0"
^XMB(3.9,58,2,3441,0)="""RTN"",""ICD1820Z"",161,0)"
^XMB(3.9,58,2,3442,0)=" ;;558^2.2108^1.5"
^XMB(3.9,58,2,3443,0)="""RTN"",""ICD1820Z"",162,0)"
^XMB(3.9,58,2,3444,0)=" ;;559^2.2473^5.8"
^XMB(3.9,58,2,3445,0)="""RTN"",""ICD1820Z"",163,0)"
^XMB(3.9,58,2,3446,0)=" ;;EXIT"
^XMB(3.9,58,2,3447,0)="""RTN"",""ICD1820Z"",164,0)"
^XMB(3.9,58,2,3448,0)=" Q"
^XMB(3.9,58,2,3449,0)="""RTN"",""ICDDRG"")"
^XMB(3.9,58,2,3450,0)="0^1^B25160111"
^XMB(3.9,58,2,3451,0)="""RTN"",""ICDDRG"",1,0)"
^XMB(3.9,58,2,3452,0)="ICDDRG ;ALB/GRR/EG/ADL - ASSIGNS DRG CODES ; 5/19/05 12:52pm"
^XMB(3.9,58,2,3453,0)="""RTN"",""ICDDRG"",2,0)"
^XMB(3.9,58,2,3454,0)=" ;;18.0;DRG Grouper;**2,7,10,14,20**;Oct 20, 2000"
^XMB(3.9,58,2,3455,0)="""RTN"",""ICDDRG"",3,0)"
^XMB(3.9,58,2,3456,0)=" ;ADL - UPDATED FOR CSV;3/10/03"
^XMB(3.9,58,2,3457,0)="""RTN"",""ICDDRG"",4,0)"
^XMB(3.9,58,2,3458,0)="TOP S (ICDDRG,ICDMDC,ICDRTC)="""""
^XMB(3.9,58,2,3459,0)="""RTN"",""ICDDRG"",5,0)"
^XMB(3.9,58,2,3460,0)=" ;*********************************************************"
^XMB(3.9,58,2,3461,0)="""RTN"",""ICDDRG"",6,0)"
^XMB(3.9,58,2,3462,0)=" ;FOLLOWING LINES CHECK FOR INVALID INPUT VARIABLES"
^XMB(3.9,58,2,3463,0)="""RTN"",""ICDDRG"",7,0)"
^XMB(3.9,58,2,3464,0)=" ;"
^XMB(3.9,58,2,3465,0)="""RTN"",""ICDDRG"",8,0)"
^XMB(3.9,58,2,3466,0)=" I '$D(ICDDX(1)) S ICDRTC=1 G ERR"
^XMB(3.9,58,2,3467,0)="""RTN"",""ICDDRG"",9,0)"
^XMB(3.9,58,2,3468,0)=" I ICDEXP'=0&(ICDEXP'=1)&(ICDEXP'="""") S ICDRTC=5 G ERR"
^XMB(3.9,58,2,3469,0)="""RTN"",""ICDDRG"",10,0)"
^XMB(3.9,58,2,3470,0)=" I ICDTRS'=0&(ICDTRS'=1)&(ICDTRS'="""") S ICDRTC=6 G ERR"
^XMB(3.9,58,2,3471,0)="""RTN"",""ICDDRG"",11,0)"
^XMB(3.9,58,2,3472,0)=" I ICDDMS'=0&(ICDDMS'=1)&(ICDDMS'="""") S ICDRTC=7 G ERR"
^XMB(3.9,58,2,3473,0)="""RTN"",""ICDDRG"",12,0)"
^XMB(3.9,58,2,3474,0)=" I SEX'=""M""&(SEX'=""F"")&(SEX'="""") S ICDRTC=4 G ERR"
^XMB(3.9,58,2,3475,0)="""RTN"",""ICDDRG"",13,0)"
^XMB(3.9,58,2,3476,0)=" I '$D(ICDDATE) S ICDDATE=DT  ;default is today's FileMan date"
^XMB(3.9,58,2,3477,0)="""RTN"",""ICDDRG"",14,0)"
^XMB(3.9,58,2,3478,0)=" ;********************************************************"
^XMB(3.9,58,2,3479,0)="""RTN"",""ICDDRG"",15,0)"
^XMB(3.9,58,2,3480,0)=" ;FOLLOWING ESTABLISHES PRIMARY DIAGNOSIS RELATED VARIABLES"
^XMB(3.9,58,2,3481,0)="""RTN"",""ICDDRG"",16,0)"
^XMB(3.9,58,2,3482,0)=" ;"
^XMB(3.9,58,2,3483,0)="""RTN"",""ICDDRG"",17,0)"
^XMB(3.9,58,2,3484,0)=" D KILL S ICDSEX($S(SEX=""M"":1,SEX=""F"":2,1:0))="""""
^XMB(3.9,58,2,3485,0)="""RTN"",""ICDDRG"",18,0)"
^XMB(3.9,58,2,3486,0)=" S ICDTMP=$$ICDDX^ICDCODE(ICDDX(1),ICDDATE)"
^XMB(3.9,58,2,3487,0)="""RTN"",""ICDDRG"",19,0)"
^XMB(3.9,58,2,3488,0)=" I ICDTMP<0 S ICDRTC=1 G ERR"
^XMB(3.9,58,2,3489,0)="""RTN"",""ICDDRG"",20,0)"
^XMB(3.9,58,2,3490,0)=" S ICDY(0)=$P(ICDTMP,U,2,99) I $P(ICDY(0),""^"",4)=1!($P(ICDY(0),""^"",9)=0) S ICDRTC=1 G ERR  ;flag has changed from inactive flag to status flag"
^XMB(3.9,58,2,3491,0)="""RTN"",""ICDDRG"",21,0)"
^XMB(3.9,58,2,3492,0)=" S ICDMDC=$P(ICDY(0),""^"",5),ICDPD=$P(ICDY(0),""^"",2),ICDRG=0 I 'ICDMDC S ICDDRG=469,ICDRTC=1 G ERR"
^XMB(3.9,58,2,3493,0)="""RTN"",""ICDDRG"",22,0)"
^XMB(3.9,58,2,3494,0)=" D MDCG"
^XMB(3.9,58,2,3495,0)="""RTN"",""ICDDRG"",23,0)"
^XMB(3.9,58,2,3496,0)=" I $D(ICDMDC(12))!($D(ICDMDC(13))) S ICDMDC=$S(SEX=""F"":13,1:12) I SEX="""" S ICDRTC=4 G ERR"
^XMB(3.9,58,2,3497,0)="""RTN"",""ICDDRG"",24,0)"
^XMB(3.9,58,2,3498,0)=" ;I $D(^ICD9(ICDDX(1),""DRG"")) S ICDPDRG=^(""DRG"") F ICDI=1:1 Q:$P(ICDPDRG,""^"",ICDI)']""""  S ICDPDRG($P(ICDPDRG,""^"",ICDI))="""",ICDRG($P(ICDPDRG,""^"",ICDI))="""""
^XMB(3.9,58,2,3499,0)="""RTN"",""ICDDRG"",25,0)"
^XMB(3.9,58,2,3500,0)=" ;Setup DRG arrays ICDPDRG(x) and ICDDRG(x) and SEX array"
^XMB(3.9,58,2,3501,0)="""RTN"",""ICDDRG"",26,0)"
^XMB(3.9,58,2,3502,0)=" S ICDTMP=$$GETDRG^ICDGTDRG(ICDDX(1),ICDDATE,9) I ICDTMP>0 S ICDPDRG=$P(ICDTMP,"";"") D"
^XMB(3.9,58,2,3503,0)="""RTN"",""ICDDRG"",27,0)"
^XMB(3.9,58,2,3504,0)=" . F ICDI=1:1 Q:$P(ICDPDRG,""^"",ICDI)']""""  S ICDPDRG($P(ICDPDRG,""^"",ICDI))="""",ICDRG($P(ICDPDRG,""^"",ICDI))="""""
^XMB(3.9,58,2,3505,0)="""RTN"",""ICDDRG"",28,0)"
^XMB(3.9,58,2,3506,0)=" S ICD104=0,ICDP24=$P(ICDY(0),""^"",12),ICDP25=$P(ICDY(0),""^"",13) D SEX9"
^XMB(3.9,58,2,3507,0)="""RTN"",""ICDDRG"",29,0)"
^XMB(3.9,58,2,3508,0)=" ;"
^XMB(3.9,58,2,3509,0)="""RTN"",""ICDDRG"",30,0)"
^XMB(3.9,58,2,3510,0)=" ;FOLLOWING ESTABLISHES SECONDARY DIAGNOSIS VARIABLES"
^XMB(3.9,58,2,3511,0)="""RTN"",""ICDDRG"",31,0)"
^XMB(3.9,58,2,3512,0)=" ;"
^XMB(3.9,58,2,3513,0)="""RTN"",""ICDDRG"",32,0)"
^XMB(3.9,58,2,3514,0)=" S (ICDCCT,ICDSD)="""",ICDCC=0,ICDI=1"
^XMB(3.9,58,2,3515,0)="""RTN"",""ICDDRG"",33,0)"
^XMB(3.9,58,2,3516,0)=" F ICDIZ=0:0 S ICDI=$O(ICDDX(ICDI)) Q:ICDI'>0  D  G:ICDRTC]"""" ERR"
^XMB(3.9,58,2,3517,0)="""RTN"",""ICDDRG"",34,0)"
^XMB(3.9,58,2,3518,0)=" . S ICDTMP=$$ICDDX^ICDCODE(ICDDX(ICDI),ICDDATE) I ICDTMP<0!'($P(ICDTMP,U,10)) S ICDRTC=8 Q"
^XMB(3.9,58,2,3519,0)="""RTN"",""ICDDRG"",35,0)"
^XMB(3.9,58,2,3520,0)=" . S ICDY(0)=$P(ICDTMP,U,2,99),ICDDXT($P(ICDY(0),""^"",1))="""""
^XMB(3.9,58,2,3521,0)="""RTN"",""ICDDRG"",36,0)"
^XMB(3.9,58,2,3522,0)=" . S ICDP15($S($P(ICDY(0),""^"",2)[""J"":1,1:0))="""""
^XMB(3.9,58,2,3523,0)="""RTN"",""ICDDRG"",37,0)"
^XMB(3.9,58,2,3524,0)=" . D SEC,SEX9 G:ICDRTC]"""" ERR"
^XMB(3.9,58,2,3525,0)="""RTN"",""ICDDRG"",38,0)"
^XMB(3.9,58,2,3526,0)=" S:$D(ICDCCT(1)) ICDCC=1 K ICDCCT"
^XMB(3.9,58,2,3527,0)="""RTN"",""ICDDRG"",39,0)"
^XMB(3.9,58,2,3528,0)=" ;********************************************************"
^XMB(3.9,58,2,3529,0)="""RTN"",""ICDDRG"",40,0)"
^XMB(3.9,58,2,3530,0)=" ;FOLLOWING ESTABLISHES OPERATION/PROCEDURE VARIABLES"
^XMB(3.9,58,2,3531,0)="""RTN"",""ICDDRG"",41,0)"
^XMB(3.9,58,2,3532,0)=" ;"
^XMB(3.9,58,2,3533,0)="""RTN"",""ICDDRG"",42,0)"
^XMB(3.9,58,2,3534,0)=" N ICDOTMP S (ICDMAJ,ICDORNI,ICDOP,ICDOR,ICDOTMP)="""",(ICDOCNT,ICDONR,ICDORNR,ICDNOR,ICDOPCT,ICDOPNR)=0"
^XMB(3.9,58,2,3535,0)="""RTN"",""ICDDRG"",43,0)"
^XMB(3.9,58,2,3536,0)=" ;Return ICD Operation/Procedure code info check if active"
^XMB(3.9,58,2,3537,0)="""RTN"",""ICDDRG"",44,0)"
^XMB(3.9,58,2,3538,0)=" I $D(ICDPRC) F ICDI=1:1 Q:'$D(ICDPRC(ICDI))  X ""S ICDTMP=$$ICDOP^ICDCODE(ICDPRC(ICDI),ICDDATE) I ICDTMP<0!'($P(ICDTMP,U,10)) S ICDRTC=2 Q"" I ICDRTC="""" D "
^XMB(3.9,58,2,3539,0)="""RTN"",""ICDDRG"",45,0)"
^XMB(3.9,58,2,3540,0)=" . S ICDY(0)=$P(ICDTMP,U,2,99),ICDNOR=ICDNOR+1,ICDY=ICDPRC(ICDI),ICDO24($S($P(ICDY(0),""^"",3)'="""":$P(ICDY(0),""^"",3),1:""N""))="""" D OPSTUF,SEX9"
^XMB(3.9,58,2,3541,0)="""RTN"",""ICDDRG"",46,0)"
^XMB(3.9,58,2,3542,0)=" K ICDO24(""N"") G:ICDRTC]"""" ERR"
^XMB(3.9,58,2,3543,0)="""RTN"",""ICDDRG"",47,0)"
^XMB(3.9,58,2,3544,0)=" G ^ICDDRG0"
^XMB(3.9,58,2,3545,0)="""RTN"",""ICDDRG"",48,0)"
^XMB(3.9,58,2,3546,0)="SEC S ICDCC=$S($D(^ICD9(""ACC"",ICDDX(ICDI),ICDDX(1))):0,$P(ICDY(0),""^"",7)=1:1,1:ICDCC),ICDCCT(ICDCC)="""""
^XMB(3.9,58,2,3547,0)="""RTN"",""ICDDRG"",49,0)"
^XMB(3.9,58,2,3548,0)=" ;Group ICD identifiers in one variable"
^XMB(3.9,58,2,3549,0)="""RTN"",""ICDDRG"",50,0)"
^XMB(3.9,58,2,3550,0)=" S ICDSD=ICDSD_$P(ICDY(0),""^"",2)"
^XMB(3.9,58,2,3551,0)="""RTN"",""ICDDRG"",51,0)"
^XMB(3.9,58,2,3552,0)=" S ICDTMP=$$GETDRG^ICDGTDRG(ICDDX(ICDI),ICDDATE,9)"
^XMB(3.9,58,2,3553,0)="""RTN"",""ICDDRG"",52,0)"
^XMB(3.9,58,2,3554,0)=" ;If any of the following conditions are met set ICDSDRG array"
^XMB(3.9,58,2,3555,0)="""RTN"",""ICDDRG"",53,0)"
^XMB(3.9,58,2,3556,0)=" I (($P(ICDY(0),""^"",7)=1)!(ICDPD[""h"")!(ICDPD[""J"")!(ICDSD[""h"")),'$P(ICDTMP,"";"",3) D"
^XMB(3.9,58,2,3557,0)="""RTN"",""ICDDRG"",54,0)"
^XMB(3.9,58,2,3558,0)=" . S ICDSDRG=$P(ICDTMP,"";"")"
^XMB(3.9,58,2,3559,0)="""RTN"",""ICDDRG"",55,0)"
^XMB(3.9,58,2,3560,0)=" . F ICDK=1:1 Q:$P(ICDSDRG,""^"",ICDK)']""""  S ICDSDRG($P(ICDSDRG,""^"",ICDK))="""""
^XMB(3.9,58,2,3561,0)="""RTN"",""ICDDRG"",56,0)"
^XMB(3.9,58,2,3562,0)=" S ICDS24($S($P(ICDY(0),""^"",12)'="""":$P(ICDY(0),""^"",12),1:""N""))="""",ICDS25($S($P(ICDY(0),""^"",13)'="""":$P(ICDY(0),""^"",13),1:0))="""""
^XMB(3.9,58,2,3563,0)="""RTN"",""ICDDRG"",57,0)"
^XMB(3.9,58,2,3564,0)=" K ICDS24(""N""),ICDS25(0) Q"
^XMB(3.9,58,2,3565,0)="""RTN"",""ICDDRG"",58,0)"
^XMB(3.9,58,2,3566,0)="OPSTUF I '$D(ICDOP("" ""_$P(ICDY(0),""^"",1))) S ICDOP("" ""_$P(ICDY(0),""^"",1))="""",ICDOCNT=ICDOCNT+1"
^XMB(3.9,58,2,3567,0)="""RTN"",""ICDDRG"",59,0)"
^XMB(3.9,58,2,3568,0)=" I $S($D(ICDMDC(12))!($D(ICDMDC(13)))>0:'$$MDCT(""ICDMDC"",0),1:'$D(^ICD0(ICDY,2,1,1,""B"",ICDMDC))) D"
^XMB(3.9,58,2,3569,0)="""RTN"",""ICDDRG"",60,0)"
^XMB(3.9,58,2,3570,0)=" .S ICDONR=ICDONR+1,ICDORNI=ICDORNI_$P(ICDY(0),""^"",2),ICDORNI($S($P(ICDY(0),""^"",2)'="""":$P(ICDY(0),""^"",2),1:0))="""" S:ICDORNR'=0 ICDORNR=1"
^XMB(3.9,58,2,3571,0)="""RTN"",""ICDDRG"",61,0)"
^XMB(3.9,58,2,3572,0)=" S ICDOR=ICDOR_$P(ICDY(0),""^"",2)"
^XMB(3.9,58,2,3573,0)="""RTN"",""ICDDRG"",62,0)"
^XMB(3.9,58,2,3574,0)=" I +ICDY(0)>37.69,+ICDY(0)<37.84,ICDOR'[""p"" D"
^XMB(3.9,58,2,3575,0)="""RTN"",""ICDDRG"",63,0)"
^XMB(3.9,58,2,3576,0)=" .N ICDCC3"
^XMB(3.9,58,2,3577,0)="""RTN"",""ICDDRG"",64,0)"
^XMB(3.9,58,2,3578,0)=" .D EN1^ICDDRG5 I ICDCC3 S ICDOR=ICDOR_""p"" S:ICDOR'[""O"" ICDOR=ICDOR_""O"""
^XMB(3.9,58,2,3579,0)="""RTN"",""ICDDRG"",65,0)"
^XMB(3.9,58,2,3580,0)=" .Q"
^XMB(3.9,58,2,3581,0)="""RTN"",""ICDDRG"",66,0)"
^XMB(3.9,58,2,3582,0)=" I +ICDY(0)>80.999 I +ICDY(0)<81.40 N ICDCC3 D EN1^ICDDRG8 I ICDCC3 S ICDOR=ICDOR_""F"""
^XMB(3.9,58,2,3583,0)="""RTN"",""ICDDRG"",67,0)"
^XMB(3.9,58,2,3584,0)=" S:$D(^ICD0(ICDY,""M"")) ICDMAJ=ICDMAJ_$P(^ICD0(ICDY,""M""),""^"")_""^"""
^XMB(3.9,58,2,3585,0)="""RTN"",""ICDDRG"",68,0)"
^XMB(3.9,58,2,3586,0)=" ;Set ICDOTMP with DRGs for doing checks"
^XMB(3.9,58,2,3587,0)="""RTN"",""ICDDRG"",69,0)"
^XMB(3.9,58,2,3588,0)=" S ICDOTMP=$P($$GETDRG^ICDGTDRG(ICDY,ICDDATE,0),"";"",1)"
^XMB(3.9,58,2,3589,0)="""RTN"",""ICDDRG"",70,0)"
^XMB(3.9,58,2,3590,0)=" I $P(ICDY(0),""^"",2)[""O"" D"
^XMB(3.9,58,2,3591,0)="""RTN"",""ICDDRG"",71,0)"
^XMB(3.9,58,2,3592,0)=" .S ICDOPCT=ICDOPCT+1"
^XMB(3.9,58,2,3593,0)="""RTN"",""ICDDRG"",72,0)"
^XMB(3.9,58,2,3594,0)=" .I ICDOPNR=0 D"
^XMB(3.9,58,2,3595,0)="""RTN"",""ICDDRG"",73,0)"
^XMB(3.9,58,2,3596,0)=" ..I $S($D(ICDMDC(12))!($D(ICDMDC(13)))>0:'$$MDCT(""ICDMDC"",0),1:'$D(ICDOTMP)) S ICDOPNR=1"
^XMB(3.9,58,2,3597,0)="""RTN"",""ICDDRG"",74,0)"
^XMB(3.9,58,2,3598,0)=" I +ICDOTMP>0 S ICDF=ICDOTMP F ICDFX=1:1 Q:$P(ICDF,""^"",ICDFX)']""""  S ICDODRG($P(ICDF,""^"",ICDFX))=$P(ICDF,""^"",ICDFX)"
^XMB(3.9,58,2,3599,0)="""RTN"",""ICDDRG"",75,0)"
^XMB(3.9,58,2,3600,0)=" ;translate specific identifiers into common symbol, check for symbol"
^XMB(3.9,58,2,3601,0)="""RTN"",""ICDDRG"",76,0)"
^XMB(3.9,58,2,3602,0)=" S ICD104=$S($P(ICDY(0),""^"",2)[""P"":1,1:0),ICDNMDC($S($TR($P(ICDY(0),""^"",2),""lqtrB"",""\\\\"")[""\"":1,1:0))="""" Q"
^XMB(3.9,58,2,3603,0)="""RTN"",""ICDDRG"",77,0)"
^XMB(3.9,58,2,3604,0)="ERR S ICDDRG=470"
^XMB(3.9,58,2,3605,0)="""RTN"",""ICDDRG"",78,0)"
^XMB(3.9,58,2,3606,0)=" Q  ;ERR"
^XMB(3.9,58,2,3607,0)="""RTN"",""ICDDRG"",79,0)"
^XMB(3.9,58,2,3608,0)="SEX9 ;get sex for dx or proc"
^XMB(3.9,58,2,3609,0)="""RTN"",""ICDDRG"",80,0)"
^XMB(3.9,58,2,3610,0)=" S ICDSEX($S($P(ICDY(0),""^"",10)=""M"":1,$P(ICDY(0),""^"",10)=""F"":2,1:0))="""""
^XMB(3.9,58,2,3611,0)="""RTN"",""ICDDRG"",81,0)"
^XMB(3.9,58,2,3612,0)=" Q"
^XMB(3.9,58,2,3613,0)="""RTN"",""ICDDRG"",82,0)"
^XMB(3.9,58,2,3614,0)="MDCG ;set up ICDMDC() array"
^XMB(3.9,58,2,3615,0)="""RTN"",""ICDDRG"",83,0)"
^XMB(3.9,58,2,3616,0)=" N X,Y,I,N,DRG,MDC,ICDTMP"
^XMB(3.9,58,2,3617,0)="""RTN"",""ICDDRG"",84,0)"
^XMB(3.9,58,2,3618,0)=" S ICDTMP=$$GETDRG^ICDGTDRG(ICDDX(1),ICDDATE,9) Q:'$P(ICDTMP,"";"",3)"
^XMB(3.9,58,2,3619,0)="""RTN"",""ICDDRG"",85,0)"
^XMB(3.9,58,2,3620,0)=" S Y=$P(ICDTMP,"";"")"
^XMB(3.9,58,2,3621,0)="""RTN"",""ICDDRG"",86,0)"
^XMB(3.9,58,2,3622,0)=" S N=$L(Y)-$L($TR(Y,""^""))"
^XMB(3.9,58,2,3623,0)="""RTN"",""ICDDRG"",87,0)"
^XMB(3.9,58,2,3624,0)=" F I=1:1:N+1 D"
^XMB(3.9,58,2,3625,0)="""RTN"",""ICDDRG"",88,0)"
^XMB(3.9,58,2,3626,0)=" .S DRG=$P(Y,""^"",I) Q:DRG="""""
^XMB(3.9,58,2,3627,0)="""RTN"",""ICDDRG"",89,0)"
^XMB(3.9,58,2,3628,0)=" .S MDC=$P($$DRG^ICDGTDRG(DRG,ICDDATE),""^"",5) Q:MDC="""""
^XMB(3.9,58,2,3629,0)="""RTN"",""ICDDRG"",90,0)"
^XMB(3.9,58,2,3630,0)=" .S ICDMDC(MDC)="""""
^XMB(3.9,58,2,3631,0)="""RTN"",""ICDDRG"",91,0)"
^XMB(3.9,58,2,3632,0)=" Q"
^XMB(3.9,58,2,3633,0)="""RTN"",""ICDDRG"",92,0)"
^XMB(3.9,58,2,3634,0)="MDCT(MDC,PAR) ;for multiple mdc dx codes"
^XMB(3.9,58,2,3635,0)="""RTN"",""ICDDRG"",93,0)"
^XMB(3.9,58,2,3636,0)=" ;MDC is array of MDC's (MDC(ICDMDC)=""""), PAR global node to test"
^XMB(3.9,58,2,3637,0)="""RTN"",""ICDDRG"",94,0)"
^XMB(3.9,58,2,3638,0)=" ;"
^XMB(3.9,58,2,3639,0)="""RTN"",""ICDDRG"",95,0)"
^XMB(3.9,58,2,3640,0)=" N I,MD,BOOL,DRGFY"
^XMB(3.9,58,2,3641,0)="""RTN"",""ICDDRG"",96,0)"
^XMB(3.9,58,2,3642,0)=" S MD="""" F I=1:1 S MD=$O(@MDC@(MD)) Q:MD=""""  D"
^XMB(3.9,58,2,3643,0)="""RTN"",""ICDDRG"",97,0)"
^XMB(3.9,58,2,3644,0)=" . S DRGFY=$O(^ICD0(CODE,2,""B"",+ICDDATE),-1),DADRGFY=$O(^ICD0(CODE,2,""B"",+DRGFY,DADRGFY)),MDC=$O(^ICD0(CODE,2,+DADRGFY,1,""B"",MD))"
^XMB(3.9,58,2,3645,0)="""RTN"",""ICDDRG"",98,0)"
^XMB(3.9,58,2,3646,0)=" .I $D(MDC) S BOOL(1)="""""
^XMB(3.9,58,2,3647,0)="""RTN"",""ICDDRG"",99,0)"
^XMB(3.9,58,2,3648,0)=" .S BOOL(0)="""""
^XMB(3.9,58,2,3649,0)="""RTN"",""ICDDRG"",100,0)"
^XMB(3.9,58,2,3650,0)=" I '$D(BOOL(1)) Q 0"
^XMB(3.9,58,2,3651,0)="""RTN"",""ICDDRG"",101,0)"
^XMB(3.9,58,2,3652,0)=" Q 1"
^XMB(3.9,58,2,3653,0)="""RTN"",""ICDDRG"",102,0)"
^XMB(3.9,58,2,3654,0)="KILL K ICD104,ICDJ,ICDJJ,ICDOCNT,ICDOR,ICDNOR,ICDP15,ICDPDRG,ICDRG,ICDSEX"
^XMB(3.9,58,2,3655,0)="""RTN"",""ICDDRG"",103,0)"
^XMB(3.9,58,2,3656,0)=" K ICDSDRG,ICDODRG,ICDCC,ICDOP,ICDORNR,ICDORNI,ICDP24,ICDP25,ICDPD"
^XMB(3.9,58,2,3657,0)="""RTN"",""ICDDRG"",104,0)"
^XMB(3.9,58,2,3658,0)=" K ICDSD,ICDI,ICDK,ICDF,ICDFX,ICDFK,ICDY,ICDDXT,ICDIZ,ICDONR,ICDOPCT"
^XMB(3.9,58,2,3659,0)="""RTN"",""ICDDRG"",105,0)"
^XMB(3.9,58,2,3660,0)=" K ICD,ICDCC2,ICDCC3,ICDGH,ICDL39,ICDMAJ,ICDNMDC,ICDNSD,ICDORNA,ICDREF,ICDS25"
^XMB(3.9,58,2,3661,0)="""RTN"",""ICDDRG"",106,0)"
^XMB(3.9,58,2,3662,0)=" K ICDOPNR,ICDO24"
^XMB(3.9,58,2,3663,0)="""RTN"",""ICDDRG"",107,0)"
^XMB(3.9,58,2,3664,0)=" Q"
^XMB(3.9,58,2,3665,0)="""RTN"",""ICDDRG0"")"
^XMB(3.9,58,2,3666,0)="0^2^B33851546"
^XMB(3.9,58,2,3667,0)="""RTN"",""ICDDRG0"",1,0)"
^XMB(3.9,58,2,3668,0)="ICDDRG0 ;ALB/GRR/EG/ADL - DRG GROUPER PROCESSING BEGINS ; 5/16/05 9:05pm"
^XMB(3.9,58,2,3669,0)="""RTN"",""ICDDRG0"",2,0)"
^XMB(3.9,58,2,3670,0)=" ;;18.0;DRG Grouper;**1,2,7,10,14,17,20**;Oct 20, 2000"
^XMB(3.9,58,2,3671,0)="""RTN"",""ICDDRG0"",3,0)"
^XMB(3.9,58,2,3672,0)=" ;GROUPING PROCESS BEGINS"
^XMB(3.9,58,2,3673,0)="""RTN"",""ICDDRG0"",4,0)"
^XMB(3.9,58,2,3674,0)=" ;"
^XMB(3.9,58,2,3675,0)="""RTN"",""ICDDRG0"",5,0)"
^XMB(3.9,58,2,3676,0)="GROUP ;"
^XMB(3.9,58,2,3677,0)="""RTN"",""ICDDRG0"",6,0)"
^XMB(3.9,58,2,3678,0)=" I $D(ICDSEX(1))&($D(ICDSEX(2))) S ICDRTC=4,ICDDRG=470 G KILL^ICDDRG"
^XMB(3.9,58,2,3679,0)="""RTN"",""ICDDRG0"",7,0)"
^XMB(3.9,58,2,3680,0)=" I ICDMDC'=14,ICDMDC'=17,ICDMDC'=18,ICDMDC'=19,ICDMDC'=20,ICDMDC'=23,ICDMDC'=15 D:ICDOPCT<2  I ""468^476^477""[ICDRG G END"
^XMB(3.9,58,2,3681,0)="""RTN"",""ICDDRG0"",8,0)"
^XMB(3.9,58,2,3682,0)=" . ;I ICDPD[""M"",ICDOR'[""a"" S ICDPDRG(344)="""",ICDOPCT=0"
^XMB(3.9,58,2,3683,0)="""RTN"",""ICDDRG0"",9,0)"
^XMB(3.9,58,2,3684,0)=" . I $D(ICDF) Q"
^XMB(3.9,58,2,3685,0)="""RTN"",""ICDDRG0"",10,0)"
^XMB(3.9,58,2,3686,0)=" . I ICDPD[""M"",ICDOR'[""y"" S ICDOPCT=0 Q"
^XMB(3.9,58,2,3687,0)="""RTN"",""ICDDRG0"",11,0)"
^XMB(3.9,58,2,3688,0)=" .I ICDORNI[""O"",ICDNOR=ICDONR,ICDNOR>0,'$D(ICDPDRG(377)),ICDORNI'[""p"" S ICDRG=$S($D(ICDORNI(""O"")):468,ICDORNI[""y"":476,ICDORNI[""z"":477,1:468) Q"
^XMB(3.9,58,2,3689,0)="""RTN"",""ICDDRG0"",12,0)"
^XMB(3.9,58,2,3690,0)=" .I ICDOPNR S ICDRG=$S(ICDORNI[""y"":476,1:468),ICDOPNR=0 Q"
^XMB(3.9,58,2,3691,0)="""RTN"",""ICDDRG0"",13,0)"
^XMB(3.9,58,2,3692,0)=" ;"
^XMB(3.9,58,2,3693,0)="""RTN"",""ICDDRG0"",14,0)"
^XMB(3.9,58,2,3694,0)=" ;if number of non-extensive ORs eqs # OR, 477"
^XMB(3.9,58,2,3695,0)="""RTN"",""ICDDRG0"",15,0)"
^XMB(3.9,58,2,3696,0)=" ;"
^XMB(3.9,58,2,3697,0)="""RTN"",""ICDDRG0"",16,0)"
^XMB(3.9,58,2,3698,0)=" I ICDMDC'=14,ICDMDC'=17,ICDMDC'=18,ICDMDC'=19,ICDMDC'=20,ICDMDC'=23,ICDMDC'=15,ICDORNI'[""y""&(ICDORNI'="""")&(ICDORNI[""z"") D  I ICDRG=477 G END"
^XMB(3.9,58,2,3699,0)="""RTN"",""ICDDRG0"",17,0)"
^XMB(3.9,58,2,3700,0)=" . I $D(ICDF) Q"
^XMB(3.9,58,2,3701,0)="""RTN"",""ICDDRG0"",18,0)"
^XMB(3.9,58,2,3702,0)=" . NEW K S K=$$ORNI(ICDORNI) I K=ICDOPCT S ICDRG=477 Q"
^XMB(3.9,58,2,3703,0)="""RTN"",""ICDDRG0"",19,0)"
^XMB(3.9,58,2,3704,0)=" ;"
^XMB(3.9,58,2,3705,0)="""RTN"",""ICDDRG0"",20,0)"
^XMB(3.9,58,2,3706,0)=" ;if number of non-extensive ORs+prostatics eqs # OR, 476"
^XMB(3.9,58,2,3707,0)="""RTN"",""ICDDRG0"",21,0)"
^XMB(3.9,58,2,3708,0)=" ;"
^XMB(3.9,58,2,3709,0)="""RTN"",""ICDDRG0"",22,0)"
^XMB(3.9,58,2,3710,0)=" I ICDMDC'=14,ICDMDC'=17,ICDMDC'=18,ICDMDC'=19,ICDMDC'=20,ICDMDC'=23,ICDMDC'=15,ICDORNI[""y""&(ICDORNI'="""") D  I ICDRG=476 G END"
^XMB(3.9,58,2,3711,0)="""RTN"",""ICDDRG0"",23,0)"
^XMB(3.9,58,2,3712,0)=" .N K S K=$$ORNI(ICDORNI) I K=ICDOPCT&(ICDNOR=ICDONR) S ICDRG=476 Q"
^XMB(3.9,58,2,3713,0)="""RTN"",""ICDDRG0"",24,0)"
^XMB(3.9,58,2,3714,0)=" I ICDMDC'=14,ICDMDC'=17,ICDMDC'=18,ICDMDC'=19,ICDMDC'=20,ICDMDC'=23,ICDMDC'=15,ICDNOR=ICDONR&(ICDOPCT>0) S ICDRG=468 G END"
^XMB(3.9,58,2,3715,0)="""RTN"",""ICDDRG0"",25,0)"
^XMB(3.9,58,2,3716,0)=" I ICDMDC=5,ICDOR'[""O"" S ICDRTC=$S(ICDEXP="""":5,1:"""") S:ICDRTC'="""" ICDRG=470 D:ICDRTC="""" MI G END"
^XMB(3.9,58,2,3717,0)="""RTN"",""ICDDRG0"",26,0)"
^XMB(3.9,58,2,3718,0)=" I ICDMDC=18,ICDOR[""O""!(ICDORNI[""O"") S ICDRG=415 G END"
^XMB(3.9,58,2,3719,0)="""RTN"",""ICDDRG0"",27,0)"
^XMB(3.9,58,2,3720,0)=" I ICDMDC=19,ICDOCNT>0,ICDOR[""O"" S (ICDRG,HICDRG)=424 D CKDRG"
^XMB(3.9,58,2,3721,0)="""RTN"",""ICDDRG0"",28,0)"
^XMB(3.9,58,2,3722,0)=" I ICDMDC=23,ICDOR[""O""!(ICDORNI[""O"") S ICDRG=461 G END"
^XMB(3.9,58,2,3723,0)="""RTN"",""ICDDRG0"",29,0)"
^XMB(3.9,58,2,3724,0)=" I ICDMDC=14 D ^ICDDRG14 I ICDRG]"""" G END"
^XMB(3.9,58,2,3725,0)="""RTN"",""ICDDRG0"",30,0)"
^XMB(3.9,58,2,3726,0)=" I ICDMDC=20 S ICDRTC=$S(ICDDMS="""":7,1:"""") I ICDDMS'=0 S ICDRG=$S(ICDDMS="""":470,1:433) G END"
^XMB(3.9,58,2,3727,0)="""RTN"",""ICDDRG0"",31,0)"
^XMB(3.9,58,2,3728,0)=" I ICDMDC=22 S ICDRTC=$S(ICDTRS="""":6,1:"""") S:ICDRTC'="""" ICDRG=470 D:ICDRTC="""" CKBURN G END"
^XMB(3.9,58,2,3729,0)="""RTN"",""ICDDRG0"",32,0)"
^XMB(3.9,58,2,3730,0)=" I ICDMDC=15 S ICDRTC=$S(ICDEXP="""":5,ICDTRS="""":6,1:"""") I ICDTRS'=0 S ICDRG=$S(ICDRTC'="""":470,1:385) G END"
^XMB(3.9,58,2,3731,0)="""RTN"",""ICDDRG0"",33,0)"
^XMB(3.9,58,2,3732,0)="NEONATE I 'ICDNOR!('$D(ICDODRG)) S ICDRG=$O(ICDPDRG(0)) X ""I ICDMDC=15,$D(ICDSDRG),$O(ICDSDRG(0))<ICDRG S ICDRG=$S($D(ICDPDRG(391)):391,$D(ICDPDRG(387)):387,1:$O(ICDSDRG(0)))"" D  D DODRG G GETMOR:ICDRG="""",END"
^XMB(3.9,58,2,3733,0)="""RTN"",""ICDDRG0"",34,0)"
^XMB(3.9,58,2,3734,0)=" . N X,X1,X2,%"
^XMB(3.9,58,2,3735,0)="""RTN"",""ICDDRG0"",35,0)"
^XMB(3.9,58,2,3736,0)=" . S X1=$S($G(DGADM):$G(DGADM),1:DT),X2=$G(DOB) I X1,X2 D ^%DTC I X<29 D NBCOMP Q"
^XMB(3.9,58,2,3737,0)="""RTN"",""ICDDRG0"",36,0)"
^XMB(3.9,58,2,3738,0)=" . I ICDRG<385!(ICDRG>391) Q"
^XMB(3.9,58,2,3739,0)="""RTN"",""ICDDRG0"",37,0)"
^XMB(3.9,58,2,3740,0)=" .; I ""^11917^11918^11921^""[(""^""_ICDDX(1)_""^"") S ICDRG=395 Q"
^XMB(3.9,58,2,3741,0)="""RTN"",""ICDDRG0"",38,0)"
^XMB(3.9,58,2,3742,0)=" . I $O(ICDRG(391)) S ICDRG=$O(ICDRG(391)) Q"
^XMB(3.9,58,2,3743,0)="""RTN"",""ICDDRG0"",39,0)"
^XMB(3.9,58,2,3744,0)=" . I 'ICDRG S ICDRG=470,ICDRTC=8"
^XMB(3.9,58,2,3745,0)="""RTN"",""ICDDRG0"",40,0)"
^XMB(3.9,58,2,3746,0)=" I AGE="""",ICDMDC=3 S ICDRTC=3,ICDRG=470 G END"
^XMB(3.9,58,2,3747,0)="""RTN"",""ICDDRG0"",41,0)"
^XMB(3.9,58,2,3748,0)=" D ^ICDDRG1:ICDMDC=1,^ICDDRG2:ICDMDC=2,^ICDDRG3:ICDMDC=3,^ICDDRG5:ICDMDC=5,^ICDDRG6:ICDMDC=6,^ICDDRG7:ICDMDC=7,^ICDDRG8:ICDMDC=8,^ICDDRG9:ICDMDC=9,^ICDDRG10:ICDMDC=10,^ICDDRG12:ICDMDC=12,^ICDDRG13:ICDMDC=13,^ICDDRG17:ICDMDC=17"
^XMB(3.9,58,2,3749,0)="""RTN"",""ICDDRG0"",42,0)"
^XMB(3.9,58,2,3750,0)="CONT G:ICDMDC=15 GETMOR S (ICDRG,HICDRG)=$O(ICDODRG(0)) G:ICDRG'>0 ENTER"
^XMB(3.9,58,2,3751,0)="""RTN"",""ICDDRG0"",43,0)"
^XMB(3.9,58,2,3752,0)=" D DODRG"
^XMB(3.9,58,2,3753,0)="""RTN"",""ICDDRG0"",44,0)"
^XMB(3.9,58,2,3754,0)=" G:ICDRG'>0 LOOK8:ICDMDC=8,AGAIN G END"
^XMB(3.9,58,2,3755,0)="""RTN"",""ICDDRG0"",45,0)"
^XMB(3.9,58,2,3756,0)="ENTER I 'ICDNOR,ICDORNR'=0,ICDMDC'=20,ICDMDC'=15 S ICDRG=468 G END"
^XMB(3.9,58,2,3757,0)="""RTN"",""ICDDRG0"",46,0)"
^XMB(3.9,58,2,3758,0)="GETMOR S (ICDRG,HICDRG)=$O(ICDPDRG(0)) S:ICDRG'>0 (ICDRG,HICDRG)=469 ;I ICDMDC=15,'$D(ICDODRG),$D(ICDSDRG),$O(ICDSDRG(0))<ICDRG S (ICDRG,HICDRG)=$O(ICDSDRG(0))"
^XMB(3.9,58,2,3759,0)="""RTN"",""ICDDRG0"",47,0)"
^XMB(3.9,58,2,3760,0)="CKDRG D DODRG"
^XMB(3.9,58,2,3761,0)="""RTN"",""ICDDRG0"",48,0)"
^XMB(3.9,58,2,3762,0)=" I ICDRG="""" K ICDPDRG(HICDRG) G GETMOR"
^XMB(3.9,58,2,3763,0)="""RTN"",""ICDDRG0"",49,0)"
^XMB(3.9,58,2,3764,0)="DODRG ;Go to DRG file and retrieve table entry to use if defined"
^XMB(3.9,58,2,3765,0)="""RTN"",""ICDDRG0"",50,0)"
^XMB(3.9,58,2,3766,0)=" N ICDMCV,ICDMCV1,ICDMCV2"
^XMB(3.9,58,2,3767,0)="""RTN"",""ICDDRG0"",51,0)"
^XMB(3.9,58,2,3768,0)=" N DRGFY,ICDREF S (DRGFY,ICDREF)="""""
^XMB(3.9,58,2,3769,0)="""RTN"",""ICDDRG0"",52,0)"
^XMB(3.9,58,2,3770,0)=" I ICDRG S DRGFY=$O(^ICD(ICDRG,2,""B"",$P(+$G(ICDDATE),""."")_.01),-1)"
^XMB(3.9,58,2,3771,0)="""RTN"",""ICDDRG0"",53,0)"
^XMB(3.9,58,2,3772,0)=" I 'DRGFY S DRGFY=3051001 ;default to current fiscal year"
^XMB(3.9,58,2,3773,0)="""RTN"",""ICDDRG0"",54,0)"
^XMB(3.9,58,2,3774,0)=" S ICDREF=$O(^ICD(+ICDRG,2,""B"",+DRGFY,ICDREF))"
^XMB(3.9,58,2,3775,0)="""RTN"",""ICDDRG0"",55,0)"
^XMB(3.9,58,2,3776,0)=" I ICDREF'="""" D"
^XMB(3.9,58,2,3777,0)="""RTN"",""ICDDRG0"",56,0)"
^XMB(3.9,58,2,3778,0)=" . S ICDREF=$P($G(^ICD(+ICDRG,2,ICDREF,0)),U,3)"
^XMB(3.9,58,2,3779,0)="""RTN"",""ICDDRG0"",57,0)"
^XMB(3.9,58,2,3780,0)=" . S ICDREF=""DRG""_ICDRG_""^""_ICDREF D @ICDREF K ICDREF"
^XMB(3.9,58,2,3781,0)="""RTN"",""ICDDRG0"",58,0)"
^XMB(3.9,58,2,3782,0)=" I ICDOR[""4"" D DRG232^ICDTLB3"
^XMB(3.9,58,2,3783,0)="""RTN"",""ICDDRG0"",59,0)"
^XMB(3.9,58,2,3784,0)=" Q"
^XMB(3.9,58,2,3785,0)="""RTN"",""ICDDRG0"",60,0)"
^XMB(3.9,58,2,3786,0)="ORNI(X) ;"
^XMB(3.9,58,2,3787,0)="""RTN"",""ICDDRG0"",61,0)"
^XMB(3.9,58,2,3788,0)=" N I,K"
^XMB(3.9,58,2,3789,0)="""RTN"",""ICDDRG0"",62,0)"
^XMB(3.9,58,2,3790,0)=" S K=0 F I=1:1:$L(ICDORNI) I $E(ICDORNI,I,I)=""z""!($E(ICDORNI,I,I)=""y"") S K=K+1"
^XMB(3.9,58,2,3791,0)="""RTN"",""ICDDRG0"",63,0)"
^XMB(3.9,58,2,3792,0)=" Q K"
^XMB(3.9,58,2,3793,0)="""RTN"",""ICDDRG0"",64,0)"
^XMB(3.9,58,2,3794,0)="END ;"
^XMB(3.9,58,2,3795,0)="""RTN"",""ICDDRG0"",65,0)"
^XMB(3.9,58,2,3796,0)=" D:ICDP24'=""""!($D(ICDS24)) CKMST^ICDDRGX S ICDDRG=ICDRG"
^XMB(3.9,58,2,3797,0)="""RTN"",""ICDDRG0"",66,0)"
^XMB(3.9,58,2,3798,0)=" D:$G(ICDP25)=1!(($G(ICDP25)>1)&($D(ICDS25(1)))) CKHIV^ICDDRGX S ICDDRG=ICDRG"
^XMB(3.9,58,2,3799,0)="""RTN"",""ICDDRG0"",67,0)"
^XMB(3.9,58,2,3800,0)=" ; this will effectively make DRG 103 into a pre-MDC (ICD*18*1)"
^XMB(3.9,58,2,3801,0)="""RTN"",""ICDDRG0"",68,0)"
^XMB(3.9,58,2,3802,0)=" I $D(ICDOP("" 33.6""))!$D(ICDOP("" 37.5""))!(ICDDATE>3030930.9&($D(ICDOP("" 37.51""))!$D(ICDOP("" 37.66"")))) S ICDRG=103,ICDNMDC(1)="""""
^XMB(3.9,58,2,3803,0)="""RTN"",""ICDDRG0"",69,0)"
^XMB(3.9,58,2,3804,0)=" I (ICDDATE>3050930.9)&($D(ICDOP("" 37.64"")))&($D(ICDOP("" 37.65""))) S ICDRG=103,ICDNMDC(1)="""""
^XMB(3.9,58,2,3805,0)="""RTN"",""ICDDRG0"",70,0)"
^XMB(3.9,58,2,3806,0)=" ; this will create DRGs 512/513 as pre-MDC"
^XMB(3.9,58,2,3807,0)="""RTN"",""ICDDRG0"",71,0)"
^XMB(3.9,58,2,3808,0)=" I $D(ICDOP("" 52.80""))!$D(ICDOP("" 52.82"")) S ICDRG=513,ICDNMDC(1)="""""
^XMB(3.9,58,2,3809,0)="""RTN"",""ICDDRG0"",72,0)"
^XMB(3.9,58,2,3810,0)=" I ICDRG=513 I $D(ICDOP("" 55.69"")) S ICDRG=512"
^XMB(3.9,58,2,3811,0)="""RTN"",""ICDDRG0"",73,0)"
^XMB(3.9,58,2,3812,0)=" ; this will create DRG 481 as pre-MDC - loops thru 41.00 thru .09"
^XMB(3.9,58,2,3813,0)="""RTN"",""ICDDRG0"",74,0)"
^XMB(3.9,58,2,3814,0)=" N X S X=0 F  S X=$O(ICDOP(X)) Q:X=""""  I X[""41.0"" S ICDRG=481,ICDNMDC(1)="""""
^XMB(3.9,58,2,3815,0)="""RTN"",""ICDDRG0"",75,0)"
^XMB(3.9,58,2,3816,0)=" I $D(ICDNMDC(1)) I ICDNMDC(1)="""" D CKNMDC^ICDDRGX S ICDDRG=ICDRG K ICDNMDC"
^XMB(3.9,58,2,3817,0)="""RTN"",""ICDDRG0"",76,0)"
^XMB(3.9,58,2,3818,0)=" I ICDRG=468 D CHKMDC4^ICDDRGX D DODRG S ICDDRG=ICDRG"
^XMB(3.9,58,2,3819,0)="""RTN"",""ICDDRG0"",77,0)"
^XMB(3.9,58,2,3820,0)=" S:ICDRTC="""" ICDRTC=0"
^XMB(3.9,58,2,3821,0)="""RTN"",""ICDDRG0"",78,0)"
^XMB(3.9,58,2,3822,0)=" S ICDTMP=$$DRG^ICDGTDRG(ICDDRG,ICDDATE) I '$P(ICDTMP,U,14) S ICDDRG=470"
^XMB(3.9,58,2,3823,0)="""RTN"",""ICDDRG0"",79,0)"
^XMB(3.9,58,2,3824,0)=" G KILL^ICDDRG"
^XMB(3.9,58,2,3825,0)="""RTN"",""ICDDRG0"",80,0)"
^XMB(3.9,58,2,3826,0)="MI ;"
^XMB(3.9,58,2,3827,0)="""RTN"",""ICDDRG0"",81,0)"
^XMB(3.9,58,2,3828,0)=" ; if PTCA and not a bypass"
^XMB(3.9,58,2,3829,0)="""RTN"",""ICDDRG0"",82,0)"
^XMB(3.9,58,2,3830,0)=" I ICDOR[""1""!($D(ICDOP("" 37.90""))) I ICDOR'[""b""&(ICDOR'[""6"") I ICDDATE>3050930.9 D DRG516^ICDTLB6B Q"
^XMB(3.9,58,2,3831,0)="""RTN"",""ICDDRG0"",83,0)"
^XMB(3.9,58,2,3832,0)=" I ICDPD[""A"" D EN1^ICDDRG5 I ICDCC3 S ICDRG=$O(ICDODRG(0)) D DODRG Q"
^XMB(3.9,58,2,3833,0)="""RTN"",""ICDDRG0"",84,0)"
^XMB(3.9,58,2,3834,0)=" I ICDPD[""AI""!(ICDSD[""AI"") D  Q"
^XMB(3.9,58,2,3835,0)="""RTN"",""ICDDRG0"",85,0)"
^XMB(3.9,58,2,3836,0)=" . I $D(ICDOP("" 36.07"")) I $D(ICDOP("" 37.26""))!($D(ICDOP("" 37.27""))) S ICDRG=526 Q"
^XMB(3.9,58,2,3837,0)="""RTN"",""ICDDRG0"",86,0)"
^XMB(3.9,58,2,3838,0)=" . S ICDRG=$S($S($D(ICDEXP):ICDEXP,1:0):123,ICDPD[""V""!(ICDSD[""V""):121,1:122)"
^XMB(3.9,58,2,3839,0)="""RTN"",""ICDDRG0"",87,0)"
^XMB(3.9,58,2,3840,0)=" I $D(ICDOP("" 37.26""))&($D(ICDOP("" 39.61""))) S ICDRG=108 Q"
^XMB(3.9,58,2,3841,0)="""RTN"",""ICDDRG0"",88,0)"
^XMB(3.9,58,2,3842,0)=" ;I $D(ICDOP("" 37.26"")) S ICDRG=112 Q"
^XMB(3.9,58,2,3843,0)="""RTN"",""ICDDRG0"",89,0)"
^XMB(3.9,58,2,3844,0)=" I $D(ICDOP("" 36.07"")) I $D(ICDOP("" 37.26""))!($D(ICDOP("" 37.27""))) S ICDRG=527 Q"
^XMB(3.9,58,2,3845,0)="""RTN"",""ICDDRG0"",90,0)"
^XMB(3.9,58,2,3846,0)=" I $D(ICDOP("" 36.06"")) I $D(ICDOP("" 37.26""))!$D(ICDOP("" 37.27"")) S ICDRG=517 Q"
^XMB(3.9,58,2,3847,0)="""RTN"",""ICDDRG0"",91,0)"
^XMB(3.9,58,2,3848,0)=" I $D(ICDOP("" 37.26""))!$D(ICDOP("" 37.27"")) S ICDRG=518 Q "
^XMB(3.9,58,2,3849,0)="""RTN"",""ICDDRG0"",92,0)"
^XMB(3.9,58,2,3850,0)=" I ICDOR[""H"" S ICDRG=$S(ICDPD[""X""!(ICDSD[""X""):124,1:125) Q"
^XMB(3.9,58,2,3851,0)="""RTN"",""ICDDRG0"",93,0)"
^XMB(3.9,58,2,3852,0)=" K ICDPDRG(124)"
^XMB(3.9,58,2,3853,0)="""RTN"",""ICDDRG0"",94,0)"
^XMB(3.9,58,2,3854,0)=" I ICDOR[""p"" S ICDRG=$O(ICDODRG(0)) D DODRG Q"
^XMB(3.9,58,2,3855,0)="""RTN"",""ICDDRG0"",95,0)"
^XMB(3.9,58,2,3856,0)=" I ICDOR[""F"" S ICDRG=$O(ICDODRG(0)) D DODRG Q"
^XMB(3.9,58,2,3857,0)="""RTN"",""ICDDRG0"",96,0)"
^XMB(3.9,58,2,3858,0)=" E  K ICDPDRG(121) S ICDRG=$O(ICDPDRG(0)) D DODRG Q"
^XMB(3.9,58,2,3859,0)="""RTN"",""ICDDRG0"",97,0)"
^XMB(3.9,58,2,3860,0)=" ;"
^XMB(3.9,58,2,3861,0)="""RTN"",""ICDDRG0"",98,0)"
^XMB(3.9,58,2,3862,0)="CKBURN ; MDC22 - Burns (extensive, full thickness, or non-extensive)"
^XMB(3.9,58,2,3863,0)="""RTN"",""ICDDRG0"",99,0)"
^XMB(3.9,58,2,3864,0)=" D"
^XMB(3.9,58,2,3865,0)="""RTN"",""ICDDRG0"",100,0)"
^XMB(3.9,58,2,3866,0)=" . I ICDPD[""*""!(ICDSD[""*"") S ICDRG=$S(ICDOR[""k"":504,1:505) Q"
^XMB(3.9,58,2,3867,0)="""RTN"",""ICDDRG0"",101,0)"
^XMB(3.9,58,2,3868,0)=" . I ICDPD[""b""!(ICDSD[""b"") D FTBURN Q"
^XMB(3.9,58,2,3869,0)="""RTN"",""ICDDRG0"",102,0)"
^XMB(3.9,58,2,3870,0)=" . S ICDRG=$S(ICDCC!(ICDPD[""T"")!(ICDSD[""T""):510,1:511)"
^XMB(3.9,58,2,3871,0)="""RTN"",""ICDDRG0"",103,0)"
^XMB(3.9,58,2,3872,0)=" Q"
^XMB(3.9,58,2,3873,0)="""RTN"",""ICDDRG0"",104,0)"
^XMB(3.9,58,2,3874,0)=" ;"
^XMB(3.9,58,2,3875,0)="""RTN"",""ICDDRG0"",105,0)"
^XMB(3.9,58,2,3876,0)="AGAIN G:'$D(ICDODRG) ENTER"
^XMB(3.9,58,2,3877,0)="""RTN"",""ICDDRG0"",106,0)"
^XMB(3.9,58,2,3878,0)=" K ICDODRG(HICDRG) I $O(ICDODRG(HICDRG))'>0 K ICDODRG G GROUP"
^XMB(3.9,58,2,3879,0)="""RTN"",""ICDDRG0"",107,0)"
^XMB(3.9,58,2,3880,0)=" S ICDRG=$O(ICDODRG(HICDRG)) G GROUP"
^XMB(3.9,58,2,3881,0)="""RTN"",""ICDDRG0"",108,0)"
^XMB(3.9,58,2,3882,0)=" ;"
^XMB(3.9,58,2,3883,0)="""RTN"",""ICDDRG0"",109,0)"
^XMB(3.9,58,2,3884,0)=" ;"
^XMB(3.9,58,2,3885,0)="""RTN"",""ICDDRG0"",110,0)"
^XMB(3.9,58,2,3886,0)="LOOK8 G:'$D(ICDJ) GETMOR"
^XMB(3.9,58,2,3887,0)="""RTN"",""ICDDRG0"",111,0)"
^XMB(3.9,58,2,3888,0)=" S ICDJ=$O(ICDJ(0)) G:ICDJ'>0 GETMOR"
^XMB(3.9,58,2,3889,0)="""RTN"",""ICDDRG0"",112,0)"
^XMB(3.9,58,2,3890,0)=" K ICDJ(ICDJ),ICDODRG D END^ICDDRG8 G GETMOR:'$D(ICDODRG),CONT"
^XMB(3.9,58,2,3891,0)="""RTN"",""ICDDRG0"",113,0)"
^XMB(3.9,58,2,3892,0)=" Q"
^XMB(3.9,58,2,3893,0)="""RTN"",""ICDDRG0"",114,0)"
^XMB(3.9,58,2,3894,0)=" ;"
^XMB(3.9,58,2,3895,0)="""RTN"",""ICDDRG0"",115,0)"
^XMB(3.9,58,2,3896,0)="NBCOMP ; check for complication related to NB"
^XMB(3.9,58,2,3897,0)="""RTN"",""ICDDRG0"",116,0)"
^XMB(3.9,58,2,3898,0)=" I ICDSD'[""J""!'$D(ICDSDRG) Q"
^XMB(3.9,58,2,3899,0)="""RTN"",""ICDDRG0"",117,0)"
^XMB(3.9,58,2,3900,0)=" N ICDSDXCK"
^XMB(3.9,58,2,3901,0)="""RTN"",""ICDDRG0"",118,0)"
^XMB(3.9,58,2,3902,0)=" S ICDSDXCK=$O(ICDSDRG(0))"
^XMB(3.9,58,2,3903,0)="""RTN"",""ICDDRG0"",119,0)"
^XMB(3.9,58,2,3904,0)=" I ICDSDXCK<ICDRG,ICDSDXCK>384,ICDSDXCK<392 D"
^XMB(3.9,58,2,3905,0)="""RTN"",""ICDDRG0"",120,0)"
^XMB(3.9,58,2,3906,0)=" . S ICDRG=$S($D(ICDPDRG(391)):391,$D(ICDPDRG(387)):387,1:$O(ICDSDRG(0)))"
^XMB(3.9,58,2,3907,0)="""RTN"",""ICDDRG0"",121,0)"
^XMB(3.9,58,2,3908,0)=" Q"
^XMB(3.9,58,2,3909,0)="""RTN"",""ICDDRG0"",122,0)"
^XMB(3.9,58,2,3910,0)=" ;"
^XMB(3.9,58,2,3911,0)="""RTN"",""ICDDRG0"",123,0)"
^XMB(3.9,58,2,3912,0)="FTBURN ; full thickness burn check"
^XMB(3.9,58,2,3913,0)="""RTN"",""ICDDRG0"",124,0)"
^XMB(3.9,58,2,3914,0)=" I ICDSD[""j""!(ICDOR[""k"") D"
^XMB(3.9,58,2,3915,0)="""RTN"",""ICDDRG0"",125,0)"
^XMB(3.9,58,2,3916,0)=" . I ICDCC!(ICDPD[""T"")!(ICDSD[""T"") S ICDRG=506"
^XMB(3.9,58,2,3917,0)="""RTN"",""ICDDRG0"",126,0)"
^XMB(3.9,58,2,3918,0)=" . E  S ICDRG=507"
^XMB(3.9,58,2,3919,0)="""RTN"",""ICDDRG0"",127,0)"
^XMB(3.9,58,2,3920,0)=" E  D"
^XMB(3.9,58,2,3921,0)="""RTN"",""ICDDRG0"",128,0)"
^XMB(3.9,58,2,3922,0)=" . I ICDCC!(ICDPD[""T"")!(ICDSD[""T"") S ICDRG=508"
^XMB(3.9,58,2,3923,0)="""RTN"",""ICDDRG0"",129,0)"
^XMB(3.9,58,2,3924,0)=" . E  S ICDRG=509"
^XMB(3.9,58,2,3925,0)="""RTN"",""ICDDRG0"",130,0)"
^XMB(3.9,58,2,3926,0)=" Q"
^XMB(3.9,58,2,3927,0)="""RTN"",""ICDDRG5"")"
^XMB(3.9,58,2,3928,0)="0^4^B19783386"
^XMB(3.9,58,2,3929,0)="""RTN"",""ICDDRG5"",1,0)"
^XMB(3.9,58,2,3930,0)="ICDDRG5 ;ALB/GRR/EG/MRY/ADL - FIX SURGERY HIERARCHY ; 3/20/03 10:36am"
^XMB(3.9,58,2,3931,0)="""RTN"",""ICDDRG5"",2,0)"
^XMB(3.9,58,2,3932,0)=" ;;18.0;DRG Grouper;**2,5,7,10,20**;Oct 20, 2000"
^XMB(3.9,58,2,3933,0)="""RTN"",""ICDDRG5"",3,0)"
^XMB(3.9,58,2,3934,0)=" Q:$O(ICDODRG(0))'>0  K ICDJ,ICDJJ F ICDJ=0:0 S ICDJ=$O(ICDODRG(ICDJ)) Q:ICDJ'>0  S ICDJJ(ICDJ)="""" D"
^XMB(3.9,58,2,3935,0)="""RTN"",""ICDDRG5"",4,0)"
^XMB(3.9,58,2,3936,0)=" .I ICDDATE<3051001 D F"
^XMB(3.9,58,2,3937,0)="""RTN"",""ICDDRG5"",5,0)"
^XMB(3.9,58,2,3938,0)=" .E  D FY2006"
^XMB(3.9,58,2,3939,0)="""RTN"",""ICDDRG5"",6,0)"
^XMB(3.9,58,2,3940,0)="END S ICDJ=$O(ICDJ(0)) Q:ICDJ'>0  S ICDJ=ICDJ(ICDJ) K ICDODRG S ICDODRG(ICDJ)="""" Q"
^XMB(3.9,58,2,3941,0)="""RTN"",""ICDDRG5"",7,0)"
^XMB(3.9,58,2,3942,0)="F I ICDJ=103 S ICDJ(1)=ICDJ Q"
^XMB(3.9,58,2,3943,0)="""RTN"",""ICDDRG5"",8,0)"
^XMB(3.9,58,2,3944,0)=" I ICDJ=525 S ICDJ(2)=ICDJ Q"
^XMB(3.9,58,2,3945,0)="""RTN"",""ICDDRG5"",9,0)"
^XMB(3.9,58,2,3946,0)=" I ICDJ=104 S ICDJ(3)=ICDJ Q"
^XMB(3.9,58,2,3947,0)="""RTN"",""ICDDRG5"",10,0)"
^XMB(3.9,58,2,3948,0)=" I ICDJ=535 S ICDJ(4)=ICDJ Q"
^XMB(3.9,58,2,3949,0)="""RTN"",""ICDDRG5"",11,0)"
^XMB(3.9,58,2,3950,0)=" I ICDJ=536 S ICDJ(5)=ICDJ Q"
^XMB(3.9,58,2,3951,0)="""RTN"",""ICDDRG5"",12,0)"
^XMB(3.9,58,2,3952,0)=" I ICDJ=515 S ICDJ(6)=ICDJ Q"
^XMB(3.9,58,2,3953,0)="""RTN"",""ICDDRG5"",13,0)"
^XMB(3.9,58,2,3954,0)=" I ICDJ=108 S ICDJ(7)=ICDJ Q"
^XMB(3.9,58,2,3955,0)="""RTN"",""ICDDRG5"",14,0)"
^XMB(3.9,58,2,3956,0)=" I ICDJ=106 S ICDJ(8)=ICDJ Q"
^XMB(3.9,58,2,3957,0)="""RTN"",""ICDDRG5"",15,0)"
^XMB(3.9,58,2,3958,0)=" I ICDJ=110 S ICDJ(9)=ICDJ Q"
^XMB(3.9,58,2,3959,0)="""RTN"",""ICDDRG5"",16,0)"
^XMB(3.9,58,2,3960,0)=" I ICDJ=111 S ICDJ(10)=ICDJ Q"
^XMB(3.9,58,2,3961,0)="""RTN"",""ICDDRG5"",17,0)"
^XMB(3.9,58,2,3962,0)=" I ICDJ=113 S ICDJ(11)=ICDJ Q"
^XMB(3.9,58,2,3963,0)="""RTN"",""ICDDRG5"",18,0)"
^XMB(3.9,58,2,3964,0)=" I ICDJ=115 S ICDJ(12)=ICDJ Q"
^XMB(3.9,58,2,3965,0)="""RTN"",""ICDDRG5"",19,0)"
^XMB(3.9,58,2,3966,0)=" I ICDJ=116 S ICDJ(13)=ICDJ Q"
^XMB(3.9,58,2,3967,0)="""RTN"",""ICDDRG5"",20,0)"
^XMB(3.9,58,2,3968,0)=" I ICDJ=526 S ICDJ(14)=ICDJ Q"
^XMB(3.9,58,2,3969,0)="""RTN"",""ICDDRG5"",21,0)"
^XMB(3.9,58,2,3970,0)=" I ICDJ=527 S ICDJ(15)=ICDJ Q"
^XMB(3.9,58,2,3971,0)="""RTN"",""ICDDRG5"",22,0)"
^XMB(3.9,58,2,3972,0)=" I ICDJ=516 S ICDJ(16)=ICDJ Q"
^XMB(3.9,58,2,3973,0)="""RTN"",""ICDDRG5"",23,0)"
^XMB(3.9,58,2,3974,0)=" I ICDJ=517 S ICDJ(17)=ICDJ Q"
^XMB(3.9,58,2,3975,0)="""RTN"",""ICDDRG5"",24,0)"
^XMB(3.9,58,2,3976,0)=" I ICDJ=518 S ICDJ(18)=ICDJ Q"
^XMB(3.9,58,2,3977,0)="""RTN"",""ICDDRG5"",25,0)"
^XMB(3.9,58,2,3978,0)=" I ICDJ=478 S ICDJ(19)=ICDJ Q"
^XMB(3.9,58,2,3979,0)="""RTN"",""ICDDRG5"",26,0)"
^XMB(3.9,58,2,3980,0)=" I ICDJ=479 S ICDJ(20)=ICDJ Q"
^XMB(3.9,58,2,3981,0)="""RTN"",""ICDDRG5"",27,0)"
^XMB(3.9,58,2,3982,0)=" ;I ICDJ=112 S ICDJ(13)=ICDJ Q"
^XMB(3.9,58,2,3983,0)="""RTN"",""ICDDRG5"",28,0)"
^XMB(3.9,58,2,3984,0)=" I ICDJ=114 S ICDJ(21)=ICDJ Q"
^XMB(3.9,58,2,3985,0)="""RTN"",""ICDDRG5"",29,0)"
^XMB(3.9,58,2,3986,0)=" I ICDJ=118 S ICDJ(22)=ICDJ Q"
^XMB(3.9,58,2,3987,0)="""RTN"",""ICDDRG5"",30,0)"
^XMB(3.9,58,2,3988,0)=" I ICDJ=117 S ICDJ(23)=ICDJ Q"
^XMB(3.9,58,2,3989,0)="""RTN"",""ICDDRG5"",31,0)"
^XMB(3.9,58,2,3990,0)=" I ICDJ=119 S ICDJ(24)=ICDJ Q"
^XMB(3.9,58,2,3991,0)="""RTN"",""ICDDRG5"",32,0)"
^XMB(3.9,58,2,3992,0)=" I ICDJ=120 S ICDJ(25)=ICDJ"
^XMB(3.9,58,2,3993,0)="""RTN"",""ICDDRG5"",33,0)"
^XMB(3.9,58,2,3994,0)=" Q"
^XMB(3.9,58,2,3995,0)="""RTN"",""ICDDRG5"",34,0)"
^XMB(3.9,58,2,3996,0)="FY2006 ;"
^XMB(3.9,58,2,3997,0)="""RTN"",""ICDDRG5"",35,0)"
^XMB(3.9,58,2,3998,0)=" I ICDJ=103 S ICDJ(1)=ICDJ Q"
^XMB(3.9,58,2,3999,0)="""RTN"",""ICDDRG5"",36,0)"
^XMB(3.9,58,2,4000,0)=" I ICDJ=525 S ICDJ(2)=ICDJ Q"
^XMB(3.9,58,2,4001,0)="""RTN"",""ICDDRG5"",37,0)"
^XMB(3.9,58,2,4002,0)=" I ICDJ=104 S ICDJ(3)=ICDJ Q"
^XMB(3.9,58,2,4003,0)="""RTN"",""ICDDRG5"",38,0)"
^XMB(3.9,58,2,4004,0)=" I ICDJ=535 S ICDJ(4)=ICDJ Q"
^XMB(3.9,58,2,4005,0)="""RTN"",""ICDDRG5"",39,0)"
^XMB(3.9,58,2,4006,0)=" I ICDJ=536 S ICDJ(5)=ICDJ Q"
^XMB(3.9,58,2,4007,0)="""RTN"",""ICDDRG5"",40,0)"
^XMB(3.9,58,2,4008,0)=" I ICDJ=515 S ICDJ(6)=ICDJ Q"
^XMB(3.9,58,2,4009,0)="""RTN"",""ICDDRG5"",41,0)"
^XMB(3.9,58,2,4010,0)=" I ICDJ=108 S ICDJ(7)=ICDJ Q"
^XMB(3.9,58,2,4011,0)="""RTN"",""ICDDRG5"",42,0)"
^XMB(3.9,58,2,4012,0)=" I ICDJ=106 S ICDJ(8)=ICDJ Q"
^XMB(3.9,58,2,4013,0)="""RTN"",""ICDDRG5"",43,0)"
^XMB(3.9,58,2,4014,0)=" I ICDJ=110 S ICDJ(9)=ICDJ Q"
^XMB(3.9,58,2,4015,0)="""RTN"",""ICDDRG5"",44,0)"
^XMB(3.9,58,2,4016,0)=" I ICDJ=111 S ICDJ(10)=ICDJ Q"
^XMB(3.9,58,2,4017,0)="""RTN"",""ICDDRG5"",45,0)"
^XMB(3.9,58,2,4018,0)=" I ICDJ=547 S ICDJ(11)=ICDJ Q"
^XMB(3.9,58,2,4019,0)="""RTN"",""ICDDRG5"",46,0)"
^XMB(3.9,58,2,4020,0)=" I ICDJ=548 S ICDJ(12)=ICDJ Q"
^XMB(3.9,58,2,4021,0)="""RTN"",""ICDDRG5"",47,0)"
^XMB(3.9,58,2,4022,0)=" I ICDJ=549 S ICDJ(13)=ICDJ Q"
^XMB(3.9,58,2,4023,0)="""RTN"",""ICDDRG5"",48,0)"
^XMB(3.9,58,2,4024,0)=" I ICDJ=550 S ICDJ(14)=ICDJ Q"
^XMB(3.9,58,2,4025,0)="""RTN"",""ICDDRG5"",49,0)"
^XMB(3.9,58,2,4026,0)=" I ICDJ=113 S ICDJ(15)=ICDJ Q"
^XMB(3.9,58,2,4027,0)="""RTN"",""ICDDRG5"",50,0)"
^XMB(3.9,58,2,4028,0)=" I ICDJ=551 S ICDJ(16)=ICDJ Q"
^XMB(3.9,58,2,4029,0)="""RTN"",""ICDDRG5"",51,0)"
^XMB(3.9,58,2,4030,0)=" I ICDJ=552 S ICDJ(17)=ICDJ Q"
^XMB(3.9,58,2,4031,0)="""RTN"",""ICDDRG5"",52,0)"
^XMB(3.9,58,2,4032,0)=" I ICDJ=557 S ICDJ(18)=ICDJ Q"
^XMB(3.9,58,2,4033,0)="""RTN"",""ICDDRG5"",53,0)"
^XMB(3.9,58,2,4034,0)=" I ICDJ=555 S ICDJ(19)=ICDJ Q"
^XMB(3.9,58,2,4035,0)="""RTN"",""ICDDRG5"",54,0)"
^XMB(3.9,58,2,4036,0)=" I ICDJ=558 S ICDJ(20)=ICDJ Q"
^XMB(3.9,58,2,4037,0)="""RTN"",""ICDDRG5"",55,0)"
^XMB(3.9,58,2,4038,0)=" I ICDJ=556 S ICDJ(21)=ICDJ Q"
^XMB(3.9,58,2,4039,0)="""RTN"",""ICDDRG5"",56,0)"
^XMB(3.9,58,2,4040,0)=" I ICDJ=518 S ICDJ(22)=ICDJ Q"
^XMB(3.9,58,2,4041,0)="""RTN"",""ICDDRG5"",57,0)"
^XMB(3.9,58,2,4042,0)=" I ICDJ=553 S ICDJ(23)=ICDJ Q"
^XMB(3.9,58,2,4043,0)="""RTN"",""ICDDRG5"",58,0)"
^XMB(3.9,58,2,4044,0)=" I ICDJ=554 S ICDJ(24)=ICDJ Q"
^XMB(3.9,58,2,4045,0)="""RTN"",""ICDDRG5"",59,0)"
^XMB(3.9,58,2,4046,0)=" I ICDJ=479 S ICDJ(25)=ICDJ Q"
^XMB(3.9,58,2,4047,0)="""RTN"",""ICDDRG5"",60,0)"
^XMB(3.9,58,2,4048,0)=" I ICDJ=114 S ICDJ(26)=ICDJ Q"
^XMB(3.9,58,2,4049,0)="""RTN"",""ICDDRG5"",61,0)"
^XMB(3.9,58,2,4050,0)=" I ICDJ=118 S ICDJ(27)=ICDJ Q"
^XMB(3.9,58,2,4051,0)="""RTN"",""ICDDRG5"",62,0)"
^XMB(3.9,58,2,4052,0)=" I ICDJ=117 S ICDJ(28)=ICDJ Q"
^XMB(3.9,58,2,4053,0)="""RTN"",""ICDDRG5"",63,0)"
^XMB(3.9,58,2,4054,0)=" I ICDJ=119 S ICDJ(29)=ICDJ Q"
^XMB(3.9,58,2,4055,0)="""RTN"",""ICDDRG5"",64,0)"
^XMB(3.9,58,2,4056,0)=" I ICDJ=120 S ICDJ(30)=ICDJ"
^XMB(3.9,58,2,4057,0)="""RTN"",""ICDDRG5"",65,0)"
^XMB(3.9,58,2,4058,0)=" Q"
^XMB(3.9,58,2,4059,0)="""RTN"",""ICDDRG5"",66,0)"
^XMB(3.9,58,2,4060,0)="EN1 S (ICDCC3,ICDCC2)=0"
^XMB(3.9,58,2,4061,0)="""RTN"",""ICDDRG5"",67,0)"
^XMB(3.9,58,2,4062,0)=" I $D(ICDOP("" 00.50"")) S ICDCC3=1"
^XMB(3.9,58,2,4063,0)="""RTN"",""ICDDRG5"",68,0)"
^XMB(3.9,58,2,4064,0)=" I $D(ICDOP("" 00.52"")) I $D(ICDOP("" 00.53"")) S ICDCC3=1"
^XMB(3.9,58,2,4065,0)="""RTN"",""ICDDRG5"",69,0)"
^XMB(3.9,58,2,4066,0)=" I $D(ICDOP("" 37.70""))!($D(ICDOP("" 37.71"")))!($D(ICDOP("" 37.73""))) D MORE Q"
^XMB(3.9,58,2,4067,0)="""RTN"",""ICDDRG5"",70,0)"
^XMB(3.9,58,2,4068,0)=" I $D(ICDOP("" 37.72"")) I $D(ICDOP("" 37.80""))!($D(ICDOP("" 37.83""))) S ICDCC3=1 Q"
^XMB(3.9,58,2,4069,0)="""RTN"",""ICDDRG5"",71,0)"
^XMB(3.9,58,2,4070,0)=" I $D(ICDOP("" 37.74"")) I $D(ICDOP("" 37.80""))!($D(ICDOP("" 37.81"")))!($D(ICDOP("" 37.82"")))!($D(ICDOP("" 37.83"")))!($D(ICDOP("" 37.85"")))!($D(ICDOP("" 37.86"")))!($D(ICDOP("" 37.87""))) S ICDCC3=1 Q"
^XMB(3.9,58,2,4071,0)="""RTN"",""ICDDRG5"",72,0)"
^XMB(3.9,58,2,4072,0)=" I $D(ICDOP("" 37.76"")) I $D(ICDOP("" 37.80""))!($D(ICDOP("" 37.85"")))!($D(ICDOP("" 37.86"")))!($D(ICDOP("" 37.87""))) S ICDCC3=1 Q"
^XMB(3.9,58,2,4073,0)="""RTN"",""ICDDRG5"",73,0)"
^XMB(3.9,58,2,4074,0)=" I $D(ICDOP("" 00.53"")) I $D(ICDOP("" 37.70""))!($D(ICDOP("" 37.71"")))!($D(ICDOP("" 37.72"")))!($D(ICDOP("" 37.73"")))!($D(ICDOP(""37.74 "")))!($D(ICDOP("" 37.76""))) S ICDCC3=1"
^XMB(3.9,58,2,4075,0)="""RTN"",""ICDDRG5"",74,0)"
^XMB(3.9,58,2,4076,0)=" I $D(ICDOP("" 00.54""))!$D(ICDOP("" 37.95""))!$D(ICDOP("" 37.96""))!$D(ICDOP("" 37.97""))!$D(ICDOP("" 37.98""))!$D(ICDOP("" 00.52"")) S ICDCC2=1"
^XMB(3.9,58,2,4077,0)="""RTN"",""ICDDRG5"",75,0)"
^XMB(3.9,58,2,4078,0)=" Q"
^XMB(3.9,58,2,4079,0)="""RTN"",""ICDDRG5"",76,0)"
^XMB(3.9,58,2,4080,0)="MORE I $D(ICDOP("" 37.80""))!($D(ICDOP("" 37.81"")))!($D(ICDOP("" 37.82"")))!($D(ICDOP("" 37.85"")))!($D(ICDOP("" 37.86"")))!($D(ICDOP("" 37.87""))) S ICDCC3=1 Q"
^XMB(3.9,58,2,4081,0)="""RTN"",""ICDDRG5"",77,0)"
^XMB(3.9,58,2,4082,0)=" Q"
^XMB(3.9,58,2,4083,0)="""RTN"",""ICDDRG5"",78,0)"
^XMB(3.9,58,2,4084,0)="VALV ;valve procedure"
^XMB(3.9,58,2,4085,0)="""RTN"",""ICDDRG5"",79,0)"
^XMB(3.9,58,2,4086,0)=" N ICDTMP"
^XMB(3.9,58,2,4087,0)="""RTN"",""ICDDRG5"",80,0)"
^XMB(3.9,58,2,4088,0)=" S (ICDCATH,ICDAJ)="""" F ICDI=1:1 Q:'$D(ICDPRC(ICDI))  S ICDAJ=ICDPRC(ICDI),ICDTMP=$$ICDOP^ICDCODE(ICDAJ,$G(ICDDATE)),ICDY(0)=$S((ICDTMP>0&$P(ICDTMP,U,10)):$P(ICDTMP,U,2,99),1:0) I ICDY(0) D"
^XMB(3.9,58,2,4089,0)="""RTN"",""ICDDRG5"",81,0)"
^XMB(3.9,58,2,4090,0)=" . S ICDOP($P(ICDY(0),""^"",1))="""",ICDCATH=ICDCATH_$P(ICDY(0),""^"",2)"
^XMB(3.9,58,2,4091,0)="""RTN"",""ICDDRG5"",82,0)"
^XMB(3.9,58,2,4092,0)=" S ICDE1=$S($D(ICDOP(37.95))&($D(ICDOP(37.96))):1,1:0),ICDE2=$S($D(ICDOP(37.97))&($D(ICDOP(37.98))):1,1:0)"
^XMB(3.9,58,2,4093,0)="""RTN"",""ICDDRG5"",83,0)"
^XMB(3.9,58,2,4094,0)=" Q"
^XMB(3.9,58,2,4095,0)="""RTN"",""ICDDRG5"",84,0)"
^XMB(3.9,58,2,4096,0)=" S:ICDCATH[""H"" ICDRG=$S(ICDCATH[""N""&ICDE1:104,ICDCATH[""N""&ICDE2:104,ICDCATH[""O"":104,1:ICDRG)"
^XMB(3.9,58,2,4097,0)="""RTN"",""ICDDRG5"",85,0)"
^XMB(3.9,58,2,4098,0)=" S:ICDCATH'[""H"" ICDRG=$S(ICDCATH[""N""&ICDE1:105,ICDCATH[""N""&ICDE2:105,ICDCATH[""O"":105,1:ICDRG)"
^XMB(3.9,58,2,4099,0)="""RTN"",""ICDDRG5"",86,0)"
^XMB(3.9,58,2,4100,0)=" K ICDCATH,ICDAJ,ICDE1,ICDE2,ICDI,ICDOP,ICDY Q"
^XMB(3.9,58,2,4101,0)="""RTN"",""ICDDRG5"",87,0)"
^XMB(3.9,58,2,4102,0)="VALV1 ;dx combo's for DRG120"
^XMB(3.9,58,2,4103,0)="""RTN"",""ICDDRG5"",88,0)"
^XMB(3.9,58,2,4104,0)=" S ICDE1=$S($D(ICDOP("" 37.95""))&($D(ICDOP("" 37.96""))):1,1:0),ICDE2=$S($D(ICDOP("" 37.97""))&($D(ICDOP("" 37.98""))):1,1:0)"
^XMB(3.9,58,2,4105,0)="""RTN"",""ICDDRG5"",89,0)"
^XMB(3.9,58,2,4106,0)=" S ICDRG=$S((ICDE1&(ICDOR[""H"")):104,(ICDE1&(ICDOR'[""H"")):105,(ICDE2&(ICDOR[""H"")):104,(ICDE2&(ICDOR'[""H"")):105,1:120)"
^XMB(3.9,58,2,4107,0)="""RTN"",""ICDDRG5"",90,0)"
^XMB(3.9,58,2,4108,0)=" K ICDE1,ICDE2"
^XMB(3.9,58,2,4109,0)="""RTN"",""ICDDRG5"",91,0)"
^XMB(3.9,58,2,4110,0)=" Q"
^XMB(3.9,58,2,4111,0)="""RTN"",""ICDDRG8"")"
^XMB(3.9,58,2,4112,0)="0^5^B9006336"
^XMB(3.9,58,2,4113,0)="""RTN"",""ICDDRG8"",1,0)"
^XMB(3.9,58,2,4114,0)="ICDDRG8 ;ALB/GRR/EG - FIX SURGERY HIERARCHY ; 7/18/01 10:40am"
^XMB(3.9,58,2,4115,0)="""RTN"",""ICDDRG8"",2,0)"
^XMB(3.9,58,2,4116,0)=" ;;18.0;DRG Grouper;**1,2,10,20**;Oct 20, 2000"
^XMB(3.9,58,2,4117,0)="""RTN"",""ICDDRG8"",3,0)"
^XMB(3.9,58,2,4118,0)=" Q:$O(ICDODRG(0))'>0  K ICDJ,ICDJJ F ICDJ=0:0 S ICDJ=$O(ICDODRG(ICDJ)) Q:ICDJ'>0  S ICDJJ(ICDJ)="""" D"
^XMB(3.9,58,2,4119,0)="""RTN"",""ICDDRG8"",4,0)"
^XMB(3.9,58,2,4120,0)=" .I ICDDATE<3051001 D F"
^XMB(3.9,58,2,4121,0)="""RTN"",""ICDDRG8"",5,0)"
^XMB(3.9,58,2,4122,0)=" .E  D FY2006"
^XMB(3.9,58,2,4123,0)="""RTN"",""ICDDRG8"",6,0)"
^XMB(3.9,58,2,4124,0)="END S ICDJ=$O(ICDJ(0)) Q:ICDJ'>0  S ICDJ=ICDJ(ICDJ) K ICDODRG S ICDODRG(ICDJ)="""" Q"
^XMB(3.9,58,2,4125,0)="""RTN"",""ICDDRG8"",7,0)"
^XMB(3.9,58,2,4126,0)="F I ICDJ=471 S ICDJ(1)=ICDJ Q"
^XMB(3.9,58,2,4127,0)="""RTN"",""ICDDRG8"",8,0)"
^XMB(3.9,58,2,4128,0)=" I ICDJ=217 S ICDJ(2)=ICDJ Q"
^XMB(3.9,58,2,4129,0)="""RTN"",""ICDDRG8"",9,0)"
^XMB(3.9,58,2,4130,0)=" I ICDJ=209 S ICDJ(3)=ICDJ Q"
^XMB(3.9,58,2,4131,0)="""RTN"",""ICDDRG8"",10,0)"
^XMB(3.9,58,2,4132,0)=" I ICDJ=216 S ICDJ(4)=ICDJ Q"
^XMB(3.9,58,2,4133,0)="""RTN"",""ICDDRG8"",11,0)"
^XMB(3.9,58,2,4134,0)=" I ICDJ=210 S ICDJ(5)=ICDJ Q"
^XMB(3.9,58,2,4135,0)="""RTN"",""ICDDRG8"",12,0)"
^XMB(3.9,58,2,4136,0)=" I ICDJ=213 S ICDJ(6)=ICDJ Q"
^XMB(3.9,58,2,4137,0)="""RTN"",""ICDDRG8"",13,0)"
^XMB(3.9,58,2,4138,0)=" I ICDJ=491 S ICDJ(7)=ICDJ Q"
^XMB(3.9,58,2,4139,0)="""RTN"",""ICDDRG8"",14,0)"
^XMB(3.9,58,2,4140,0)=" I ICDJ=497 S ICDJ(8)=ICDJ Q"
^XMB(3.9,58,2,4141,0)="""RTN"",""ICDDRG8"",15,0)"
^XMB(3.9,58,2,4142,0)=" I ICDJ=519 S ICDJ(9)=ICDJ Q"
^XMB(3.9,58,2,4143,0)="""RTN"",""ICDDRG8"",16,0)"
^XMB(3.9,58,2,4144,0)=" I ICDJ=520 S ICDJ(10)=ICDJ Q"
^XMB(3.9,58,2,4145,0)="""RTN"",""ICDDRG8"",17,0)"
^XMB(3.9,58,2,4146,0)=" I ICDJ=499 S ICDJ(11)=ICDJ Q"
^XMB(3.9,58,2,4147,0)="""RTN"",""ICDDRG8"",18,0)"
^XMB(3.9,58,2,4148,0)=" I ICDJ=501 S ICDJ(12)=ICDJ Q"
^XMB(3.9,58,2,4149,0)="""RTN"",""ICDDRG8"",19,0)"
^XMB(3.9,58,2,4150,0)=" I ICDJ=218 S ICDJ(13)=ICDJ Q"
^XMB(3.9,58,2,4151,0)="""RTN"",""ICDDRG8"",20,0)"
^XMB(3.9,58,2,4152,0)=" I ICDJ=231 S ICDJ(14)=ICDJ Q"
^XMB(3.9,58,2,4153,0)="""RTN"",""ICDDRG8"",21,0)"
^XMB(3.9,58,2,4154,0)=" I ICDJ=537 S ICDJ(15)=ICDJ Q"
^XMB(3.9,58,2,4155,0)="""RTN"",""ICDDRG8"",22,0)"
^XMB(3.9,58,2,4156,0)=" I ICDJ=230 S ICDJ(16)=ICDJ Q"
^XMB(3.9,58,2,4157,0)="""RTN"",""ICDDRG8"",23,0)"
^XMB(3.9,58,2,4158,0)=" I ICDJ=226 S ICDJ(17)=ICDJ Q"
^XMB(3.9,58,2,4159,0)="""RTN"",""ICDDRG8"",24,0)"
^XMB(3.9,58,2,4160,0)=" I ICDJ=227 S ICDJ(18)=ICDJ Q"
^XMB(3.9,58,2,4161,0)="""RTN"",""ICDDRG8"",25,0)"
^XMB(3.9,58,2,4162,0)=" I ICDJ=225 S ICDJ(19)=ICDJ Q"
^XMB(3.9,58,2,4163,0)="""RTN"",""ICDDRG8"",26,0)"
^XMB(3.9,58,2,4164,0)=" I ICDJ=228 S ICDJ(20)=ICDJ Q"
^XMB(3.9,58,2,4165,0)="""RTN"",""ICDDRG8"",27,0)"
^XMB(3.9,58,2,4166,0)=" I ICDJ=223 S ICDJ(21)=ICDJ Q"
^XMB(3.9,58,2,4167,0)="""RTN"",""ICDDRG8"",28,0)"
^XMB(3.9,58,2,4168,0)=" I ICDJ=232 S ICDJ(22)=ICDJ Q"
^XMB(3.9,58,2,4169,0)="""RTN"",""ICDDRG8"",29,0)"
^XMB(3.9,58,2,4170,0)=" I ICDJ=224 S ICDJ(23)=ICDJ Q"
^XMB(3.9,58,2,4171,0)="""RTN"",""ICDDRG8"",30,0)"
^XMB(3.9,58,2,4172,0)=" I ICDJ=229 S ICDJ(24)=ICDJ Q"
^XMB(3.9,58,2,4173,0)="""RTN"",""ICDDRG8"",31,0)"
^XMB(3.9,58,2,4174,0)=" I ICDJ=233 S ICDJ(25)=ICDJ Q"
^XMB(3.9,58,2,4175,0)="""RTN"",""ICDDRG8"",32,0)"
^XMB(3.9,58,2,4176,0)=" Q"
^XMB(3.9,58,2,4177,0)="""RTN"",""ICDDRG8"",33,0)"
^XMB(3.9,58,2,4178,0)="FY2006 ;"
^XMB(3.9,58,2,4179,0)="""RTN"",""ICDDRG8"",34,0)"
^XMB(3.9,58,2,4180,0)=" I ICDJ=496 S ICDJ(1)=ICDJ Q"
^XMB(3.9,58,2,4181,0)="""RTN"",""ICDDRG8"",35,0)"
^XMB(3.9,58,2,4182,0)=" I ICDJ=546 S ICDJ(2)=ICDJ Q"
^XMB(3.9,58,2,4183,0)="""RTN"",""ICDDRG8"",36,0)"
^XMB(3.9,58,2,4184,0)=" I ICDJ=497 S ICDJ(3)=ICDJ Q"
^XMB(3.9,58,2,4185,0)="""RTN"",""ICDDRG8"",37,0)"
^XMB(3.9,58,2,4186,0)=" I ICDJ=498 S ICDJ(4)=ICDJ Q"
^XMB(3.9,58,2,4187,0)="""RTN"",""ICDDRG8"",38,0)"
^XMB(3.9,58,2,4188,0)=" I ICDJ=471 S ICDJ(5)=ICDJ Q"
^XMB(3.9,58,2,4189,0)="""RTN"",""ICDDRG8"",39,0)"
^XMB(3.9,58,2,4190,0)=" I ICDJ=217 S ICDJ(6)=ICDJ Q"
^XMB(3.9,58,2,4191,0)="""RTN"",""ICDDRG8"",40,0)"
^XMB(3.9,58,2,4192,0)=" I ICDJ=545 S ICDJ(7)=ICDJ Q"
^XMB(3.9,58,2,4193,0)="""RTN"",""ICDDRG8"",41,0)"
^XMB(3.9,58,2,4194,0)=" I ICDJ=544 S ICDJ(8)=ICDJ Q"
^XMB(3.9,58,2,4195,0)="""RTN"",""ICDDRG8"",42,0)"
^XMB(3.9,58,2,4196,0)=" I ICDJ=519 S ICDJ(9)=ICDJ Q"
^XMB(3.9,58,2,4197,0)="""RTN"",""ICDDRG8"",43,0)"
^XMB(3.9,58,2,4198,0)=" I ICDJ=520 S ICDJ(10)=ICDJ Q"
^XMB(3.9,58,2,4199,0)="""RTN"",""ICDDRG8"",44,0)"
^XMB(3.9,58,2,4200,0)=" I ICDJ=216 S ICDJ(11)=ICDJ Q"
^XMB(3.9,58,2,4201,0)="""RTN"",""ICDDRG8"",45,0)"
^XMB(3.9,58,2,4202,0)=" I ICDJ=213 S ICDJ(12)=ICDJ Q"
^XMB(3.9,58,2,4203,0)="""RTN"",""ICDDRG8"",46,0)"
^XMB(3.9,58,2,4204,0)=" I ICDJ=210 S ICDJ(13)=ICDJ Q"
^XMB(3.9,58,2,4205,0)="""RTN"",""ICDDRG8"",47,0)"
^XMB(3.9,58,2,4206,0)=" I ICDJ=211 S ICDJ(14)=ICDJ Q"
^XMB(3.9,58,2,4207,0)="""RTN"",""ICDDRG8"",48,0)"
^XMB(3.9,58,2,4208,0)=" I ICDJ=212 S ICDJ(15)=ICDJ Q"
^XMB(3.9,58,2,4209,0)="""RTN"",""ICDDRG8"",49,0)"
^XMB(3.9,58,2,4210,0)=" I ICDJ=491 S ICDJ(16)=ICDJ Q"
^XMB(3.9,58,2,4211,0)="""RTN"",""ICDDRG8"",50,0)"
^XMB(3.9,58,2,4212,0)=" I ICDJ=501 S ICDJ(17)=ICDJ Q"
^XMB(3.9,58,2,4213,0)="""RTN"",""ICDDRG8"",51,0)"
^XMB(3.9,58,2,4214,0)=" I ICDJ=502 S ICDJ(18)=ICDJ Q"
^XMB(3.9,58,2,4215,0)="""RTN"",""ICDDRG8"",52,0)"
^XMB(3.9,58,2,4216,0)=" I ICDJ=503 S ICDJ(19)=ICDJ Q "
^XMB(3.9,58,2,4217,0)="""RTN"",""ICDDRG8"",53,0)"
^XMB(3.9,58,2,4218,0)=" I ICDJ=499 S ICDJ(20)=ICDJ Q"
^XMB(3.9,58,2,4219,0)="""RTN"",""ICDDRG8"",54,0)"
^XMB(3.9,58,2,4220,0)=" I ICDJ=500 S ICDJ(21)=ICDJ Q"
^XMB(3.9,58,2,4221,0)="""RTN"",""ICDDRG8"",55,0)"
^XMB(3.9,58,2,4222,0)=" I ICDJ=218 S ICDJ(22)=ICDJ Q"
^XMB(3.9,58,2,4223,0)="""RTN"",""ICDDRG8"",56,0)"
^XMB(3.9,58,2,4224,0)=" I ICDJ=219 S ICDJ(23)=ICDJ Q"
^XMB(3.9,58,2,4225,0)="""RTN"",""ICDDRG8"",57,0)"
^XMB(3.9,58,2,4226,0)=" I ICDJ=220 S ICDJ(24)=ICDJ Q"
^XMB(3.9,58,2,4227,0)="""RTN"",""ICDDRG8"",58,0)"
^XMB(3.9,58,2,4228,0)=" I ICDJ=537 S ICDJ(25)=ICDJ Q"
^XMB(3.9,58,2,4229,0)="""RTN"",""ICDDRG8"",59,0)"
^XMB(3.9,58,2,4230,0)=" I ICDJ=538 S ICDJ(26)=ICDJ Q"
^XMB(3.9,58,2,4231,0)="""RTN"",""ICDDRG8"",60,0)"
^XMB(3.9,58,2,4232,0)=" I ICDJ=230 S ICDJ(27)=ICDJ Q"
^XMB(3.9,58,2,4233,0)="""RTN"",""ICDDRG8"",61,0)"
^XMB(3.9,58,2,4234,0)=" I ICDJ=226 S ICDJ(28)=ICDJ Q"
^XMB(3.9,58,2,4235,0)="""RTN"",""ICDDRG8"",62,0)"
^XMB(3.9,58,2,4236,0)=" I ICDJ=227 S ICDJ(29)=ICDJ Q"
^XMB(3.9,58,2,4237,0)="""RTN"",""ICDDRG8"",63,0)"
^XMB(3.9,58,2,4238,0)=" I ICDJ=225 S ICDJ(30)=ICDJ Q"
^XMB(3.9,58,2,4239,0)="""RTN"",""ICDDRG8"",64,0)"
^XMB(3.9,58,2,4240,0)=" I ICDJ=228 S ICDJ(31)=ICDJ Q"
^XMB(3.9,58,2,4241,0)="""RTN"",""ICDDRG8"",65,0)"
^XMB(3.9,58,2,4242,0)=" I ICDJ=223 S ICDJ(32)=ICDJ Q"
^XMB(3.9,58,2,4243,0)="""RTN"",""ICDDRG8"",66,0)"
^XMB(3.9,58,2,4244,0)=" I ICDJ=232 S ICDJ(33)=ICDJ Q"
^XMB(3.9,58,2,4245,0)="""RTN"",""ICDDRG8"",67,0)"
^XMB(3.9,58,2,4246,0)=" I ICDJ=224 S ICDJ(34)=ICDJ Q"
^XMB(3.9,58,2,4247,0)="""RTN"",""ICDDRG8"",68,0)"
^XMB(3.9,58,2,4248,0)=" I ICDJ=229 S ICDJ(35)=ICDJ Q"
^XMB(3.9,58,2,4249,0)="""RTN"",""ICDDRG8"",69,0)"
^XMB(3.9,58,2,4250,0)=" I ICDJ=233 S ICDJ(36)=ICDJ Q"
^XMB(3.9,58,2,4251,0)="""RTN"",""ICDDRG8"",70,0)"
^XMB(3.9,58,2,4252,0)=" I ICDJ=234 S ICDJ(37)=ICDJ Q"
^XMB(3.9,58,2,4253,0)="""RTN"",""ICDDRG8"",71,0)"
^XMB(3.9,58,2,4254,0)=" Q"
^XMB(3.9,58,2,4255,0)="""RTN"",""ICDDRG8"",72,0)"
^XMB(3.9,58,2,4256,0)="EN1 ; paired spinal fusion codes"
^XMB(3.9,58,2,4257,0)="""RTN"",""ICDDRG8"",73,0)"
^XMB(3.9,58,2,4258,0)=" S ICDCC3=0"
^XMB(3.9,58,2,4259,0)="""RTN"",""ICDDRG8"",74,0)"
^XMB(3.9,58,2,4260,0)=" ;I $D(ICDOP("" 81.02""))!$D(ICDOP("" 81.04""))!$D(ICDOP("" 81.06""))&($D(ICDOP("" 81.03""))!$D(ICDOP("" 81.05""))!$D(ICDOP("" 81.08""))) S ICDCC3=1"
^XMB(3.9,58,2,4261,0)="""RTN"",""ICDDRG8"",75,0)"
^XMB(3.9,58,2,4262,0)=" N ICDA,ICDB S (ICDA,ICDB)=0"
^XMB(3.9,58,2,4263,0)="""RTN"",""ICDDRG8"",76,0)"
^XMB(3.9,58,2,4264,0)=" I $D(ICDOP("" 81.02""))!$D(ICDOP("" 81.04""))!$D(ICDOP("" 81.06""))!$D(ICDOP("" 81.32""))!$D(ICDOP("" 81.34""))!$D(ICDOP("" 81.36"")) S ICDA=1"
^XMB(3.9,58,2,4265,0)="""RTN"",""ICDDRG8"",77,0)"
^XMB(3.9,58,2,4266,0)=" I $D(ICDOP("" 81.03""))!$D(ICDOP("" 81.05""))!$D(ICDOP("" 81.07""))!$D(ICDOP("" 81.08""))!$D(ICDOP("" 81.33""))!$D(ICDOP("" 81.35""))!$D(ICDOP("" 81.37""))!$D(ICDOP("" 81.38"")) S ICDB=1"
^XMB(3.9,58,2,4267,0)="""RTN"",""ICDDRG8"",78,0)"
^XMB(3.9,58,2,4268,0)=" I ICDA&ICDB S ICDCC3=1"
^XMB(3.9,58,2,4269,0)="""RTN"",""ICDDRG8"",79,0)"
^XMB(3.9,58,2,4270,0)=" Q"
^XMB(3.9,58,2,4271,0)="""RTN"",""ICDDRGX"")"
^XMB(3.9,58,2,4272,0)="0^3^B15940302"
^XMB(3.9,58,2,4273,0)="""RTN"",""ICDDRGX"",1,0)"
^XMB(3.9,58,2,4274,0)="ICDDRGX ;ALB/EG/MRY/ADL - GROUPER PROCESS ; 3/14/05 1:38pm"
^XMB(3.9,58,2,4275,0)="""RTN"",""ICDDRGX"",2,0)"
^XMB(3.9,58,2,4276,0)=" ;;18.0;DRG Grouper;**1,2,5,7,10,14,20**;Oct 20, 2000"
^XMB(3.9,58,2,4277,0)="""RTN"",""ICDDRGX"",3,0)"
^XMB(3.9,58,2,4278,0)="CKHIV ;MDC25 grouping"
^XMB(3.9,58,2,4279,0)="""RTN"",""ICDDRGX"",4,0)"
^XMB(3.9,58,2,4280,0)=" ;Q:ICDP25="""""
^XMB(3.9,58,2,4281,0)="""RTN"",""ICDDRGX"",5,0)"
^XMB(3.9,58,2,4282,0)=" I ICDPD'[""h""&(ICDSD'[""h"") Q"
^XMB(3.9,58,2,4283,0)="""RTN"",""ICDDRGX"",6,0)"
^XMB(3.9,58,2,4284,0)=" S ICDRG=$S(ICDOR[""x"":488,ICDPD[""i""&($D(ICDS25(1))):490,1:ICDRG)"
^XMB(3.9,58,2,4285,0)="""RTN"",""ICDDRGX"",7,0)"
^XMB(3.9,58,2,4286,0)=" S ICDGH=$S(""488^489^490""[ICDRG:1,1:0),ICDORNI=$S(ICDOCNT>0:ICDORNI,1:0),ICDORNA=$F(ICDORNI,""O"",$F(ICDORNI,""O""))"
^XMB(3.9,58,2,4287,0)="""RTN"",""ICDDRGX"",8,0)"
^XMB(3.9,58,2,4288,0)=" S:ICDORNI="""" ICDORNI=ICDOR"
^XMB(3.9,58,2,4289,0)="""RTN"",""ICDDRGX"",9,0)"
^XMB(3.9,58,2,4290,0)=" S ICDRG=$S(ICDP25=1&(ICDORNA>0):488,1:ICDRG) I 'ICDGH&(ICDRG=488) Q"
^XMB(3.9,58,2,4291,0)="""RTN"",""ICDDRGX"",10,0)"
^XMB(3.9,58,2,4292,0)=" S:(ICDOCNT>0) ICDRG=$S(ICDP25>1&(ICDORNA>0)&($D(ICDS25(1))):488,1:ICDRG) I 'ICDGH&(ICDRG=488) Q"
^XMB(3.9,58,2,4293,0)="""RTN"",""ICDDRGX"",11,0)"
^XMB(3.9,58,2,4294,0)=" I ICDOPCT>0 D  I ICDRG=488 Q"
^XMB(3.9,58,2,4295,0)="""RTN"",""ICDDRGX"",12,0)"
^XMB(3.9,58,2,4296,0)=" .;count the non-extensive ""z"" vs the ""O"""
^XMB(3.9,58,2,4297,0)="""RTN"",""ICDDRGX"",13,0)"
^XMB(3.9,58,2,4298,0)=" .N K1,K2,I"
^XMB(3.9,58,2,4299,0)="""RTN"",""ICDDRGX"",14,0)"
^XMB(3.9,58,2,4300,0)=" .S (K1,K2)=0"
^XMB(3.9,58,2,4301,0)="""RTN"",""ICDDRGX"",15,0)"
^XMB(3.9,58,2,4302,0)=" .F I=1:1:$L(ICDORNI) S:$E(ICDORNI,I,I)=""z"" K1=K1+1 S:$E(ICDORNI,I,I)=""O"" K2=K2+1"
^XMB(3.9,58,2,4303,0)="""RTN"",""ICDDRGX"",16,0)"
^XMB(3.9,58,2,4304,0)=" .I ICDP25=1!(ICDP25>1&($D(ICDS25)>0)) D"
^XMB(3.9,58,2,4305,0)="""RTN"",""ICDDRGX"",17,0)"
^XMB(3.9,58,2,4306,0)=" ..I K1<K2&(K1<ICDOPCT) D"
^XMB(3.9,58,2,4307,0)="""RTN"",""ICDDRGX"",18,0)"
^XMB(3.9,58,2,4308,0)=" ...S ICDRG=488 Q"
^XMB(3.9,58,2,4309,0)="""RTN"",""ICDDRGX"",19,0)"
^XMB(3.9,58,2,4310,0)=" ..I ICDOPCT=1&(ICDORNI'[""z"") D"
^XMB(3.9,58,2,4311,0)="""RTN"",""ICDDRGX"",20,0)"
^XMB(3.9,58,2,4312,0)=" ...S ICDRG=488 Q"
^XMB(3.9,58,2,4313,0)="""RTN"",""ICDDRGX"",21,0)"
^XMB(3.9,58,2,4314,0)=" S ICDRG=$S(ICDP25=1&('$D(ICDS25))&('$O(^ICD9(ICDDX(1),""R"",0))):490,1:ICDRG) I 'ICDGH&(ICDRG=490) Q"
^XMB(3.9,58,2,4315,0)="""RTN"",""ICDDRGX"",22,0)"
^XMB(3.9,58,2,4316,0)=" S ICDRG=$S(ICDP25=1&($D(ICDS25(2))):489,ICDP25=1&($D(ICDS25(3))):490,1:ICDRG) I 'ICDGH&((ICDRG=489)!(ICDRG=490)) Q"
^XMB(3.9,58,2,4317,0)="""RTN"",""ICDDRGX"",23,0)"
^XMB(3.9,58,2,4318,0)=" S ICDRG=$S(ICDP25=2&($D(ICDS25(1))):489,ICDP25=3&($D(ICDS25(1))):490,1:ICDRG) I 'ICDGH&((ICDRG=489)!(ICDRG=490)) Q"
^XMB(3.9,58,2,4319,0)="""RTN"",""ICDDRGX"",24,0)"
^XMB(3.9,58,2,4320,0)=" S ICDRG=$S((ICDP25&(ICDOCNT=0)&('$D(ICDS25))):490,1:ICDRG) I 'ICDGH&(ICDRG=490) Q"
^XMB(3.9,58,2,4321,0)="""RTN"",""ICDDRGX"",25,0)"
^XMB(3.9,58,2,4322,0)=" S:(ICDRG=488)!(ICDRG=489)!(ICDRG=490) ICDRTC=0"
^XMB(3.9,58,2,4323,0)="""RTN"",""ICDDRGX"",26,0)"
^XMB(3.9,58,2,4324,0)=" K ICDGH,ICDP25,ICDS25,ICDORNA Q"
^XMB(3.9,58,2,4325,0)="""RTN"",""ICDDRGX"",27,0)"
^XMB(3.9,58,2,4326,0)="CKMST ;MDC24 grouping"
^XMB(3.9,58,2,4327,0)="""RTN"",""ICDDRGX"",28,0)"
^XMB(3.9,58,2,4328,0)=" S ICDAJ=0 F ICDS24K=1:1 S ICDAJ=$O(ICDS24(ICDAJ)) Q:ICDAJ="""""
^XMB(3.9,58,2,4329,0)="""RTN"",""ICDDRGX"",29,0)"
^XMB(3.9,58,2,4330,0)=" S ICDS24K=ICDS24K-1,ICDS24L=0 F ICDI=1:1:8 S:$D(ICDS24(ICDI))&(ICDI'=ICDP24) ICDS24L=$S($D(ICDS24(ICDI)):1,1:0)"
^XMB(3.9,58,2,4331,0)="""RTN"",""ICDDRGX"",30,0)"
^XMB(3.9,58,2,4332,0)=" I ICDOR[""u"" S ICDS24K=ICDS24K+1"
^XMB(3.9,58,2,4333,0)="""RTN"",""ICDDRGX"",31,0)"
^XMB(3.9,58,2,4334,0)=" G:((ICDP24=0)&(ICDS24K<2))!((ICDP24>0)&('ICDS24L)) CKMSTE"
^XMB(3.9,58,2,4335,0)="""RTN"",""ICDDRGX"",32,0)"
^XMB(3.9,58,2,4336,0)=" S ICDRG=$S(ICDP24=0&(ICDS24K>1)&($D(ICDO24(1))):484,ICDP24>0&($D(ICDO24(1)))&(ICDS24L):484,1:ICDRG) I ICDRG=484 D CKMSTE Q"
^XMB(3.9,58,2,4337,0)="""RTN"",""ICDDRGX"",33,0)"
^XMB(3.9,58,2,4338,0)=" S:ICDRG'=484 ICDRG=$S(ICDP24=0&(ICDS24K>1)&($D(ICDO24(2))):485,ICDP24>0&($D(ICDO24(2)))&(ICDS24L):485,1:ICDRG) I ICDRG=485 D CKMSTE Q"
^XMB(3.9,58,2,4339,0)="""RTN"",""ICDDRGX"",34,0)"
^XMB(3.9,58,2,4340,0)=" S:ICDRG'=485 ICDRG=$S(ICDP24=0&(ICDS24K>1)&($D(ICDO24(3))):486,ICDP24>0&($D(ICDO24(3)))&(ICDS24L):486,1:ICDRG) I ICDRG=486 D CKMSTE Q"
^XMB(3.9,58,2,4341,0)="""RTN"",""ICDDRGX"",35,0)"
^XMB(3.9,58,2,4342,0)=" S ICDRG=$S(ICDP24=0&(ICDS24K>1):487,ICDP24>0&ICDS24L:487,1:ICDRG)"
^XMB(3.9,58,2,4343,0)="""RTN"",""ICDDRGX"",36,0)"
^XMB(3.9,58,2,4344,0)=" S:(ICDRG>483)&(ICDRG<488) ICDRTC=0"
^XMB(3.9,58,2,4345,0)="""RTN"",""ICDDRGX"",37,0)"
^XMB(3.9,58,2,4346,0)="CKMSTE K ICDAJ,ICDP24,ICDS24,ICDO24,ICDS24K,ICDO24,ICDS24L"
^XMB(3.9,58,2,4347,0)="""RTN"",""ICDDRGX"",38,0)"
^XMB(3.9,58,2,4348,0)=" Q"
^XMB(3.9,58,2,4349,0)="""RTN"",""ICDDRGX"",39,0)"
^XMB(3.9,58,2,4350,0)="CKNMDC ;non MDC drg's"
^XMB(3.9,58,2,4351,0)="""RTN"",""ICDDRGX"",40,0)"
^XMB(3.9,58,2,4352,0)=" S:(ICDRG>479)&(ICDRG<484) ICDRG=470"
^XMB(3.9,58,2,4353,0)="""RTN"",""ICDDRGX"",41,0)"
^XMB(3.9,58,2,4354,0)=" ; ICD*18*1 - reorder drg 103 higher than all Pre-MDCs 480-83 & 495"
^XMB(3.9,58,2,4355,0)="""RTN"",""ICDDRGX"",42,0)"
^XMB(3.9,58,2,4356,0)=" I ICDRG=103 S ICDRTC=0 Q"
^XMB(3.9,58,2,4357,0)="""RTN"",""ICDDRGX"",43,0)"
^XMB(3.9,58,2,4358,0)=" ;use FY logic to resolve DRG if no FY defined user current FY"
^XMB(3.9,58,2,4359,0)="""RTN"",""ICDDRGX"",44,0)"
^XMB(3.9,58,2,4360,0)=" N ICDDXFY S ICDDXFY="""""
^XMB(3.9,58,2,4361,0)="""RTN"",""ICDDRGX"",45,0)"
^XMB(3.9,58,2,4362,0)=" I ICDDATE>3040930.9 D  Q:ICDRG=541!(ICDRG=542)  ;Use DRG FY 05 logic"
^XMB(3.9,58,2,4363,0)="""RTN"",""ICDDRGX"",46,0)"
^XMB(3.9,58,2,4364,0)=" .S ICDRG=$S($D(ICDOP("" 31.1""))!($D(ICDOP("" 31.21"")))!($D(ICDOP("" 31.29"")))&(($P($$ICDDX^ICDCODE(ICDDX(1),ICDDATE),""^"",3)'[""Y"")!($D(ICDOP("" 96.72"")))):541,1:ICDRG)"
^XMB(3.9,58,2,4365,0)="""RTN"",""ICDDRGX"",47,0)"
^XMB(3.9,58,2,4366,0)=" .I ICDRG=541&(($P($$ICDDX^ICDCODE(ICDDX(1),ICDDATE),""^"",3))[""Y"") S ICDRG=542 S ICDRTC=0"
^XMB(3.9,58,2,4367,0)="""RTN"",""ICDDRGX"",48,0)"
^XMB(3.9,58,2,4368,0)=" I ICDDATE<3041001 D  Q:ICDRG=483  ;Use DRG FY 04 logic"
^XMB(3.9,58,2,4369,0)="""RTN"",""ICDDRGX"",49,0)"
^XMB(3.9,58,2,4370,0)=" .S ICDRG=$S($D(ICDOP("" 31.1""))!($D(ICDOP("" 31.21"")))!($D(ICDOP("" 31.29"")))&(($P($$ICDDX^ICDCODE(ICDDX(1),ICDDATE),""^"",3)'[""Y"")!($D(ICDOP("" 96.72"")))):483,1:ICDRG) I ICDRG=483 S ICDRTC=0"
^XMB(3.9,58,2,4371,0)="""RTN"",""ICDDRGX"",50,0)"
^XMB(3.9,58,2,4372,0)=" S ICDRG=$S(ICDOR[""l"":480,1:ICDRG) I ICDRG=480 S ICDRTC=0 Q"
^XMB(3.9,58,2,4373,0)="""RTN"",""ICDDRGX"",51,0)"
^XMB(3.9,58,2,4374,0)=" I ICDRG=512!(ICDRG=513) S ICDRTC=0 Q"
^XMB(3.9,58,2,4375,0)="""RTN"",""ICDDRGX"",52,0)"
^XMB(3.9,58,2,4376,0)=" S ICDRG=$S(ICDOR[""r"":495,1:ICDRG) I ICDRG=495 S ICDRTC=0 Q  ;check for lung tx"
^XMB(3.9,58,2,4377,0)="""RTN"",""ICDDRGX"",53,0)"
^XMB(3.9,58,2,4378,0)=" S ICDRG=$S(ICDOR[""q"":103,1:ICDRG) I ICDRG=103 S ICDRTC=0 Q  ;check for heart tx"
^XMB(3.9,58,2,4379,0)="""RTN"",""ICDDRGX"",54,0)"
^XMB(3.9,58,2,4380,0)=" S ICDRG=$S(ICDOR[""B"":481,1:ICDDRG) I ICDRG=481 S ICDRTC=0 Q"
^XMB(3.9,58,2,4381,0)="""RTN"",""ICDDRGX"",55,0)"
^XMB(3.9,58,2,4382,0)=" S ICDRG=$S($D(ICDOP("" 30.3""))!$D(ICDOP("" 30.4"")):482,1:ICDRG) I ICDRG=482 S ICDRTC=0 Q"
^XMB(3.9,58,2,4383,0)="""RTN"",""ICDDRGX"",56,0)"
^XMB(3.9,58,2,4384,0)=" S ICDRG=$S(ICDOR[""t""&($P($$ICDDX^ICDCODE(ICDDX(1),ICDDATE),""^"",3)[""Y""):482,1:ICDRG) I ICDRG=482 S ICDRTC=0 Q"
^XMB(3.9,58,2,4385,0)="""RTN"",""ICDDRGX"",57,0)"
^XMB(3.9,58,2,4386,0)=" Q"
^XMB(3.9,58,2,4387,0)="""RTN"",""ICDDRGX"",58,0)"
^XMB(3.9,58,2,4388,0)=" ;"
^XMB(3.9,58,2,4389,0)="""RTN"",""ICDDRGX"",59,0)"
^XMB(3.9,58,2,4390,0)=" ;"
^XMB(3.9,58,2,4391,0)="""RTN"",""ICDDRGX"",60,0)"
^XMB(3.9,58,2,4392,0)="CHKMDC4 ;MDC 4 drg's"
^XMB(3.9,58,2,4393,0)="""RTN"",""ICDDRGX"",61,0)"
^XMB(3.9,58,2,4394,0)=" I (ICDMDC=4!(ICDMDC=98)),(ICDOR[""f"") S ICDRG=76"
^XMB(3.9,58,2,4395,0)="""RTN"",""ICDDRGX"",62,0)"
^XMB(3.9,58,2,4396,0)=" I ICDDRG=468,$G(ICDMDC)=5,$D(ICDOP("" 86.06"")) S ICDRG=120"
^XMB(3.9,58,2,4397,0)="""RTN"",""ICDDRGX"",63,0)"
^XMB(3.9,58,2,4398,0)=" I ICDDRG=468,$G(ICDMDC)=5,$D(ICDOP("" 92.27"")),ICDNOR=1 S ICDRG=120 ;ICD*18*5"
^XMB(3.9,58,2,4399,0)="""RTN"",""ICDDRGX"",64,0)"
^XMB(3.9,58,2,4400,0)=" Q"
^XMB(3.9,58,2,4401,0)="""RTN"",""ICDHLPD"")"
^XMB(3.9,58,2,4402,0)="0^6^B5666760"
^XMB(3.9,58,2,4403,0)="""RTN"",""ICDHLPD"",1,0)"
^XMB(3.9,58,2,4404,0)="ICDHLPD ;ALB/GRR/EG - HELP DISPLAY DIAGNOSIS IDENTIFIERS ; 9/22/04 9:41am"
^XMB(3.9,58,2,4405,0)="""RTN"",""ICDHLPD"",2,0)"
^XMB(3.9,58,2,4406,0)=" ;;18.0;DRG Grouper;**10,14,20**;Oct 20, 2000"
^XMB(3.9,58,2,4407,0)="""RTN"",""ICDHLPD"",3,0)"
^XMB(3.9,58,2,4408,0)="EN ;routine revised 12/94"
^XMB(3.9,58,2,4409,0)="""RTN"",""ICDHLPD"",4,0)"
^XMB(3.9,58,2,4410,0)=" N ICDID,I,J,ID"
^XMB(3.9,58,2,4411,0)="""RTN"",""ICDHLPD"",5,0)"
^XMB(3.9,58,2,4412,0)=" F ID=""DXCODE"",""DNCODE"" D"
^XMB(3.9,58,2,4413,0)="""RTN"",""ICDHLPD"",6,0)"
^XMB(3.9,58,2,4414,0)=" . F I=1:1 S ICDID=$T(@ID+I),ICDID=$P(ICDID,"";;"",2) Q:ICDID=""EXIT""  D"
^XMB(3.9,58,2,4415,0)="""RTN"",""ICDHLPD"",7,0)"
^XMB(3.9,58,2,4416,0)=" .. S ICDID($P(ICDID,""=""))=ICDID"
^XMB(3.9,58,2,4417,0)="""RTN"",""ICDHLPD"",8,0)"
^XMB(3.9,58,2,4418,0)=" . W ! S I="""" F J=0:1 S I=$O(ICDID(I)) Q:I=""""  D"
^XMB(3.9,58,2,4419,0)="""RTN"",""ICDHLPD"",9,0)"
^XMB(3.9,58,2,4420,0)=" .. I J#3 W ?(J#3*27)"
^XMB(3.9,58,2,4421,0)="""RTN"",""ICDHLPD"",10,0)"
^XMB(3.9,58,2,4422,0)=" .. I '(J#3) W !"
^XMB(3.9,58,2,4423,0)="""RTN"",""ICDHLPD"",11,0)"
^XMB(3.9,58,2,4424,0)=" .. W ICDID(I)"
^XMB(3.9,58,2,4425,0)="""RTN"",""ICDHLPD"",12,0)"
^XMB(3.9,58,2,4426,0)=" . K ICDID"
^XMB(3.9,58,2,4427,0)="""RTN"",""ICDHLPD"",13,0)"
^XMB(3.9,58,2,4428,0)=" W !"
^XMB(3.9,58,2,4429,0)="""RTN"",""ICDHLPD"",14,0)"
^XMB(3.9,58,2,4430,0)=" Q"
^XMB(3.9,58,2,4431,0)="""RTN"",""ICDHLPD"",15,0)"
^XMB(3.9,58,2,4432,0)="MAJ ;display major or procedure identifier"
^XMB(3.9,58,2,4433,0)="""RTN"",""ICDHLPD"",16,0)"
^XMB(3.9,58,2,4434,0)=" W !,""1=Bowel"",?20,""2=Chest"",?50,""3=Lymphoma/Leukemia"""
^XMB(3.9,58,2,4435,0)="""RTN"",""ICDHLPD"",17,0)"
^XMB(3.9,58,2,4436,0)=" W !,""4=Joint"",?20,""5=Pancreas/Liver"",?50,""6=Pelvic"""
^XMB(3.9,58,2,4437,0)="""RTN"",""ICDHLPD"",18,0)"
^XMB(3.9,58,2,4438,0)=" W !,""7=Shoulder/Elbow"",?20,""8=Thumb/Joint"",?50,""9=Head/Neck"""
^XMB(3.9,58,2,4439,0)="""RTN"",""ICDHLPD"",19,0)"
^XMB(3.9,58,2,4440,0)=" W !,""A=Cardio"",?20,""M=Musculoskeletal"",?50,""B=Spine"""
^XMB(3.9,58,2,4441,0)="""RTN"",""ICDHLPD"",20,0)"
^XMB(3.9,58,2,4442,0)=" Q"
^XMB(3.9,58,2,4443,0)="""RTN"",""ICDHLPD"",21,0)"
^XMB(3.9,58,2,4444,0)="DXCODE ;DIAGNOSIS CODES"
^XMB(3.9,58,2,4445,0)="""RTN"",""ICDHLPD"",22,0)"
^XMB(3.9,58,2,4446,0)=" ;;H=any DX"
^XMB(3.9,58,2,4447,0)="""RTN"",""ICDHLPD"",23,0)"
^XMB(3.9,58,2,4448,0)=" ;;V=CV cmplctn"
^XMB(3.9,58,2,4449,0)="""RTN"",""ICDHLPD"",24,0)"
^XMB(3.9,58,2,4450,0)=" ;;p=prematurity"
^XMB(3.9,58,2,4451,0)="""RTN"",""ICDHLPD"",25,0)"
^XMB(3.9,58,2,4452,0)=" ;;F=fem"
^XMB(3.9,58,2,4453,0)="""RTN"",""ICDHLPD"",26,0)"
^XMB(3.9,58,2,4454,0)=" ;;J=Maj prblm"
^XMB(3.9,58,2,4455,0)="""RTN"",""ICDHLPD"",27,0)"
^XMB(3.9,58,2,4456,0)=" ;;T=Trauma"
^XMB(3.9,58,2,4457,0)="""RTN"",""ICDHLPD"",28,0)"
^XMB(3.9,58,2,4458,0)=" ;;A=AMI/CHF"
^XMB(3.9,58,2,4459,0)="""RTN"",""ICDHLPD"",29,0)"
^XMB(3.9,58,2,4460,0)=" ;;P=Pruritis"
^XMB(3.9,58,2,4461,0)="""RTN"",""ICDHLPD"",30,0)"
^XMB(3.9,58,2,4462,0)=" ;;d=Postpartum"
^XMB(3.9,58,2,4463,0)="""RTN"",""ICDHLPD"",31,0)"
^XMB(3.9,58,2,4464,0)=" ;;Y=Mouth,Larynx,Pharynx"
^XMB(3.9,58,2,4465,0)="""RTN"",""ICDHLPD"",32,0)"
^XMB(3.9,58,2,4466,0)=" ;;t=Therapy"
^XMB(3.9,58,2,4467,0)="""RTN"",""ICDHLPD"",33,0)"
^XMB(3.9,58,2,4468,0)=" ;;r=Breast Malig"
^XMB(3.9,58,2,4469,0)="""RTN"",""ICDHLPD"",34,0)"
^XMB(3.9,58,2,4470,0)=" ;;l=Acute leuk."
^XMB(3.9,58,2,4471,0)="""RTN"",""ICDHLPD"",35,0)"
^XMB(3.9,58,2,4472,0)=" ;;E=extrm immtrty"
^XMB(3.9,58,2,4473,0)="""RTN"",""ICDHLPD"",36,0)"
^XMB(3.9,58,2,4474,0)=" ;;K=Intracranial Hemorrhage"
^XMB(3.9,58,2,4475,0)="""RTN"",""ICDHLPD"",37,0)"
^XMB(3.9,58,2,4476,0)=" ;;R=full term"
^XMB(3.9,58,2,4477,0)="""RTN"",""ICDHLPD"",38,0)"
^XMB(3.9,58,2,4478,0)=" ;;O=only"
^XMB(3.9,58,2,4479,0)="""RTN"",""ICDHLPD"",39,0)"
^XMB(3.9,58,2,4480,0)=" ;;I=Acute MI"
^XMB(3.9,58,2,4481,0)="""RTN"",""ICDHLPD"",40,0)"
^XMB(3.9,58,2,4482,0)=" ;;G=Ganglion"
^XMB(3.9,58,2,4483,0)="""RTN"",""ICDHLPD"",41,0)"
^XMB(3.9,58,2,4484,0)=" ;;D=Delivered"
^XMB(3.9,58,2,4485,0)="""RTN"",""ICDHLPD"",42,0)"
^XMB(3.9,58,2,4486,0)=" ;;m=hist malig as 2ry dx"
^XMB(3.9,58,2,4487,0)="""RTN"",""ICDHLPD"",43,0)"
^XMB(3.9,58,2,4488,0)=" ;;S=Significant problem"
^XMB(3.9,58,2,4489,0)="""RTN"",""ICDHLPD"",44,0)"
^XMB(3.9,58,2,4490,0)=" ;;u=antepartum cmplx"
^XMB(3.9,58,2,4491,0)="""RTN"",""ICDHLPD"",45,0)"
^XMB(3.9,58,2,4492,0)=" ;;X=cmplx/cmplctd"
^XMB(3.9,58,2,4493,0)="""RTN"",""ICDHLPD"",46,0)"
^XMB(3.9,58,2,4494,0)=" ;;a=Adenoidectomy/Tonsillect"
^XMB(3.9,58,2,4495,0)="""RTN"",""ICDHLPD"",47,0)"
^XMB(3.9,58,2,4496,0)=" ;;B=abrtn"
^XMB(3.9,58,2,4497,0)="""RTN"",""ICDHLPD"",48,0)"
^XMB(3.9,58,2,4498,0)=" ;;b=full thickness burn"
^XMB(3.9,58,2,4499,0)="""RTN"",""ICDHLPD"",49,0)"
^XMB(3.9,58,2,4500,0)=" ;;z=not sig 2ry dx"
^XMB(3.9,58,2,4501,0)="""RTN"",""ICDHLPD"",50,0)"
^XMB(3.9,58,2,4502,0)=" ;;M=malignancy/Neoplasm"
^XMB(3.9,58,2,4503,0)="""RTN"",""ICDHLPD"",51,0)"
^XMB(3.9,58,2,4504,0)=" ;;U=Ulcer/itis"
^XMB(3.9,58,2,4505,0)="""RTN"",""ICDHLPD"",52,0)"
^XMB(3.9,58,2,4506,0)=" ;;L=Leukemia/lymphoma"
^XMB(3.9,58,2,4507,0)="""RTN"",""ICDHLPD"",53,0)"
^XMB(3.9,58,2,4508,0)=" ;;v=Dx comp vag delivry"
^XMB(3.9,58,2,4509,0)="""RTN"",""ICDHLPD"",54,0)"
^XMB(3.9,58,2,4510,0)=" ;;k=infection"
^XMB(3.9,58,2,4511,0)="""RTN"",""ICDHLPD"",55,0)"
^XMB(3.9,58,2,4512,0)=" ;;h=HIV"
^XMB(3.9,58,2,4513,0)="""RTN"",""ICDHLPD"",56,0)"
^XMB(3.9,58,2,4514,0)=" ;;i=hiv related cond"
^XMB(3.9,58,2,4515,0)="""RTN"",""ICDHLPD"",57,0)"
^XMB(3.9,58,2,4516,0)=" ;;j=inhalation injury"
^XMB(3.9,58,2,4517,0)="""RTN"",""ICDHLPD"",58,0)"
^XMB(3.9,58,2,4518,0)=" ;;Q=Acute CNS DX"
^XMB(3.9,58,2,4519,0)="""RTN"",""ICDHLPD"",59,0)"
^XMB(3.9,58,2,4520,0)=" ;;W=Severe Sepsis"
^XMB(3.9,58,2,4521,0)="""RTN"",""ICDHLPD"",60,0)"
^XMB(3.9,58,2,4522,0)=" ;;Z=2ndry HF (2ndry dx of heart failure)"
^XMB(3.9,58,2,4523,0)="""RTN"",""ICDHLPD"",61,0)"
^XMB(3.9,58,2,4524,0)=" ;;c=MCV in prime or 2ndry"
^XMB(3.9,58,2,4525,0)="""RTN"",""ICDHLPD"",62,0)"
^XMB(3.9,58,2,4526,0)=" ;;s=MCV in 2ndry "
^XMB(3.9,58,2,4527,0)="""RTN"",""ICDHLPD"",63,0)"
^XMB(3.9,58,2,4528,0)=" ;;EXIT"
^XMB(3.9,58,2,4529,0)="""RTN"",""ICDHLPD"",64,0)"
^XMB(3.9,58,2,4530,0)=" Q"
^XMB(3.9,58,2,4531,0)="""RTN"",""ICDHLPD"",65,0)"
^XMB(3.9,58,2,4532,0)="DNCODE ;  NUMERIC/OTHER ID CODES"
^XMB(3.9,58,2,4533,0)="""RTN"",""ICDHLPD"",66,0)"
^XMB(3.9,58,2,4534,0)=" ;;1=coma>1hr"
^XMB(3.9,58,2,4535,0)="""RTN"",""ICDHLPD"",67,0)"
^XMB(3.9,58,2,4536,0)=" ;;2=DRG492"
^XMB(3.9,58,2,4537,0)="""RTN"",""ICDHLPD"",68,0)"
^XMB(3.9,58,2,4538,0)=" ;;3=DRG480"
^XMB(3.9,58,2,4539,0)="""RTN"",""ICDHLPD"",69,0)"
^XMB(3.9,58,2,4540,0)=" ;;4=DRG481"
^XMB(3.9,58,2,4541,0)="""RTN"",""ICDHLPD"",70,0)"
^XMB(3.9,58,2,4542,0)=" ;;5=DRG481 w/leuk"
^XMB(3.9,58,2,4543,0)="""RTN"",""ICDHLPD"",71,0)"
^XMB(3.9,58,2,4544,0)=" ;;6=DRG546 curvature of spine or malignancy"
^XMB(3.9,58,2,4545,0)="""RTN"",""ICDHLPD"",72,0)"
^XMB(3.9,58,2,4546,0)=" ;;*=extensive burn"
^XMB(3.9,58,2,4547,0)="""RTN"",""ICDHLPD"",73,0)"
^XMB(3.9,58,2,4548,0)=" ;;EXIT"
^XMB(3.9,58,2,4549,0)="""RTN"",""ICDHLPD"",74,0)"
^XMB(3.9,58,2,4550,0)=" Q"
^XMB(3.9,58,2,4551,0)="""RTN"",""ICDTLB1B"")"
^XMB(3.9,58,2,4552,0)="0^17^B17764004"
^XMB(3.9,58,2,4553,0)="""RTN"",""ICDTLB1B"",1,0)"
^XMB(3.9,58,2,4554,0)="ICDTLB1B ;ALB/EG - GROUPER UTILITY FUNCTIONS FY 2006; 8/19/04 3:19pm ; 6/28/05 4:01pm"
^XMB(3.9,58,2,4555,0)="""RTN"",""ICDTLB1B"",2,0)"
^XMB(3.9,58,2,4556,0)=" ;;18.0;DRG Grouper;**20**;Oct 20, 2000"
^XMB(3.9,58,2,4557,0)="""RTN"",""ICDTLB1B"",3,0)"
^XMB(3.9,58,2,4558,0)="DRG1 D DRG528 D:ICDRG'=528 DRG543^ICDTLB6B D:ICDRG'=543 DRG529"
^XMB(3.9,58,2,4559,0)="""RTN"",""ICDTLB1B"",4,0)"
^XMB(3.9,58,2,4560,0)=" S ICDRG=$S(AGE<18:3,ICDRG=528:528,ICDRG=543:543,ICDRG=529:529,ICDRG=530:530,ICDCC:1,1:2) I AGE="""" S ICDRTC=3,ICDRG=470"
^XMB(3.9,58,2,4561,0)="""RTN"",""ICDTLB1B"",5,0)"
^XMB(3.9,58,2,4562,0)=" Q"
^XMB(3.9,58,2,4563,0)="""RTN"",""ICDTLB1B"",6,0)"
^XMB(3.9,58,2,4564,0)="DRG2 D DRG1"
^XMB(3.9,58,2,4565,0)="""RTN"",""ICDTLB1B"",7,0)"
^XMB(3.9,58,2,4566,0)=" Q"
^XMB(3.9,58,2,4567,0)="""RTN"",""ICDTLB1B"",8,0)"
^XMB(3.9,58,2,4568,0)="DRG3 D DRG1"
^XMB(3.9,58,2,4569,0)="""RTN"",""ICDTLB1B"",9,0)"
^XMB(3.9,58,2,4570,0)=" Q"
^XMB(3.9,58,2,4571,0)="""RTN"",""ICDTLB1B"",10,0)"
^XMB(3.9,58,2,4572,0)="DRG7 S ICDRG=$S(ICDCC:7,1:8) Q"
^XMB(3.9,58,2,4573,0)="""RTN"",""ICDTLB1B"",11,0)"
^XMB(3.9,58,2,4574,0)="DRG8 S ICDRG=$S(ICDCC:7,1:8) Q"
^XMB(3.9,58,2,4575,0)="""RTN"",""ICDTLB1B"",12,0)"
^XMB(3.9,58,2,4576,0)="DRG10 S ICDRG=$S(ICDCC:10,1:11) Q"
^XMB(3.9,58,2,4577,0)="""RTN"",""ICDTLB1B"",13,0)"
^XMB(3.9,58,2,4578,0)="DRG11 S ICDRG=$S(ICDCC:10,1:11) Q"
^XMB(3.9,58,2,4579,0)="""RTN"",""ICDTLB1B"",14,0)"
^XMB(3.9,58,2,4580,0)="DRG16 S ICDRG=$S(ICDCC:16,1:17) Q"
^XMB(3.9,58,2,4581,0)="""RTN"",""ICDTLB1B"",15,0)"
^XMB(3.9,58,2,4582,0)="DRG17 S ICDRG=$S(ICDCC:16,1:17) Q"
^XMB(3.9,58,2,4583,0)="""RTN"",""ICDTLB1B"",16,0)"
^XMB(3.9,58,2,4584,0)="DRG18 S ICDRG=$S(ICDCC:18,1:19) Q"
^XMB(3.9,58,2,4585,0)="""RTN"",""ICDTLB1B"",17,0)"
^XMB(3.9,58,2,4586,0)="DRG19 S ICDRG=$S(ICDCC:18,1:19) Q"
^XMB(3.9,58,2,4587,0)="""RTN"",""ICDTLB1B"",18,0)"
^XMB(3.9,58,2,4588,0)="DRG24 S ICDRG=$S(AGE<18:26,ICDCC:24,1:25) I AGE="""" S ICDRTC=3,ICDRG=470"
^XMB(3.9,58,2,4589,0)="""RTN"",""ICDTLB1B"",19,0)"
^XMB(3.9,58,2,4590,0)=" Q"
^XMB(3.9,58,2,4591,0)="""RTN"",""ICDTLB1B"",20,0)"
^XMB(3.9,58,2,4592,0)="DRG25 S ICDRG=$S(AGE<18:26,ICDCC:24,1:25) I AGE="""" S ICDRTC=3,ICDRG=470"
^XMB(3.9,58,2,4593,0)="""RTN"",""ICDTLB1B"",21,0)"
^XMB(3.9,58,2,4594,0)=" Q"
^XMB(3.9,58,2,4595,0)="""RTN"",""ICDTLB1B"",22,0)"
^XMB(3.9,58,2,4596,0)="DRG26 S ICDRG=$S(AGE<18:26,ICDCC:24,1:25) I AGE="""" S ICDRTC=3,ICDRG=470"
^XMB(3.9,58,2,4597,0)="""RTN"",""ICDTLB1B"",23,0)"
^XMB(3.9,58,2,4598,0)=" Q"
^XMB(3.9,58,2,4599,0)="""RTN"",""ICDTLB1B"",24,0)"
^XMB(3.9,58,2,4600,0)="DRG27 S ICDRG=$S(ICDPD[1!(ICDSD[1):27,AGE="""":470,AGE<18:30,ICDCC:28,1:29),ICDRTC=$S(ICDRG=470:3,1:ICDRTC) Q"
^XMB(3.9,58,2,4601,0)="""RTN"",""ICDTLB1B"",25,0)"
^XMB(3.9,58,2,4602,0)="DRG28 D DRG27 Q"
^XMB(3.9,58,2,4603,0)="""RTN"",""ICDTLB1B"",26,0)"
^XMB(3.9,58,2,4604,0)="DRG29 D DRG27 Q"
^XMB(3.9,58,2,4605,0)="""RTN"",""ICDTLB1B"",27,0)"
^XMB(3.9,58,2,4606,0)="DRG30 D DRG27 Q"
^XMB(3.9,58,2,4607,0)="""RTN"",""ICDTLB1B"",28,0)"
^XMB(3.9,58,2,4608,0)="DRG31 S ICDRG=$S(AGE<18:33,ICDCC:31,1:32) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4609,0)="""RTN"",""ICDTLB1B"",29,0)"
^XMB(3.9,58,2,4610,0)=" Q"
^XMB(3.9,58,2,4611,0)="""RTN"",""ICDTLB1B"",30,0)"
^XMB(3.9,58,2,4612,0)="DRG32 S ICDRG=$S(AGE<18:33,ICDCC:31,1:32) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4613,0)="""RTN"",""ICDTLB1B"",31,0)"
^XMB(3.9,58,2,4614,0)=" Q"
^XMB(3.9,58,2,4615,0)="""RTN"",""ICDTLB1B"",32,0)"
^XMB(3.9,58,2,4616,0)="DRG33 S ICDRG=$S(AGE<18:33,ICDCC:31,1:32) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4617,0)="""RTN"",""ICDTLB1B"",33,0)"
^XMB(3.9,58,2,4618,0)=" Q"
^XMB(3.9,58,2,4619,0)="""RTN"",""ICDTLB1B"",34,0)"
^XMB(3.9,58,2,4620,0)="DRG34 S ICDRG=$S(ICDCC:34,1:35) Q"
^XMB(3.9,58,2,4621,0)="""RTN"",""ICDTLB1B"",35,0)"
^XMB(3.9,58,2,4622,0)="DRG35 S ICDRG=$S(ICDCC:34,1:35) Q"
^XMB(3.9,58,2,4623,0)="""RTN"",""ICDTLB1B"",36,0)"
^XMB(3.9,58,2,4624,0)="DRG39 D VER^ICDDRG2 Q"
^XMB(3.9,58,2,4625,0)="""RTN"",""ICDTLB1B"",37,0)"
^XMB(3.9,58,2,4626,0)="DRG40 S ICDRG=$S(AGE>17:40,1:41) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4627,0)="""RTN"",""ICDTLB1B"",38,0)"
^XMB(3.9,58,2,4628,0)=" Q"
^XMB(3.9,58,2,4629,0)="""RTN"",""ICDTLB1B"",39,0)"
^XMB(3.9,58,2,4630,0)="DRG41 S ICDRG=$S(AGE>17:40,1:41) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4631,0)="""RTN"",""ICDTLB1B"",40,0)"
^XMB(3.9,58,2,4632,0)=" Q"
^XMB(3.9,58,2,4633,0)="""RTN"",""ICDTLB1B"",41,0)"
^XMB(3.9,58,2,4634,0)="DRG46 S ICDRG=$S(AGE<18:48,ICDCC:46,1:47) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4635,0)="""RTN"",""ICDTLB1B"",42,0)"
^XMB(3.9,58,2,4636,0)=" Q"
^XMB(3.9,58,2,4637,0)="""RTN"",""ICDTLB1B"",43,0)"
^XMB(3.9,58,2,4638,0)="DRG47 S ICDRG=$S(AGE<18:48,ICDCC:46,1:47) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4639,0)="""RTN"",""ICDTLB1B"",44,0)"
^XMB(3.9,58,2,4640,0)=" Q"
^XMB(3.9,58,2,4641,0)="""RTN"",""ICDTLB1B"",45,0)"
^XMB(3.9,58,2,4642,0)="DRG48 S ICDRG=$S(AGE<18:48,ICDCC:46,1:47) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4643,0)="""RTN"",""ICDTLB1B"",46,0)"
^XMB(3.9,58,2,4644,0)=" Q"
^XMB(3.9,58,2,4645,0)="""RTN"",""ICDTLB1B"",47,0)"
^XMB(3.9,58,2,4646,0)="DRG53 S ICDRG=$S(AGE>17:53,1:54) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4647,0)="""RTN"",""ICDTLB1B"",48,0)"
^XMB(3.9,58,2,4648,0)=" Q"
^XMB(3.9,58,2,4649,0)="""RTN"",""ICDTLB1B"",49,0)"
^XMB(3.9,58,2,4650,0)="DRG54 S ICDRG=$S(AGE>17:53,1:54) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4651,0)="""RTN"",""ICDTLB1B"",50,0)"
^XMB(3.9,58,2,4652,0)=" Q"
^XMB(3.9,58,2,4653,0)="""RTN"",""ICDTLB1B"",51,0)"
^XMB(3.9,58,2,4654,0)="DRG57 S ICDRG=$S((ICDOPCT>0)&($P(ICDY(0),U,1)=""28.3""):$S(AGE>17:59,1:60),ICDOPCT>0:$S(AGE>17:57,1:58),AGE>17:59,1:60) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4655,0)="""RTN"",""ICDTLB1B"",52,0)"
^XMB(3.9,58,2,4656,0)=" Q"
^XMB(3.9,58,2,4657,0)="""RTN"",""ICDTLB1B"",53,0)"
^XMB(3.9,58,2,4658,0)="DRG58 S ICDRG=$S(ICDOPCT>1:$S(AGE>17:57,1:58),AGE>17:59,1:60) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4659,0)="""RTN"",""ICDTLB1B"",54,0)"
^XMB(3.9,58,2,4660,0)=" Q"
^XMB(3.9,58,2,4661,0)="""RTN"",""ICDTLB1B"",55,0)"
^XMB(3.9,58,2,4662,0)="DRG59 D EN1^ICDDRG3 I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4663,0)="""RTN"",""ICDTLB1B"",56,0)"
^XMB(3.9,58,2,4664,0)=" Q"
^XMB(3.9,58,2,4665,0)="""RTN"",""ICDTLB1B"",57,0)"
^XMB(3.9,58,2,4666,0)="DRG60 D EN1^ICDDRG3 I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4667,0)="""RTN"",""ICDTLB1B"",58,0)"
^XMB(3.9,58,2,4668,0)=" Q"
^XMB(3.9,58,2,4669,0)="""RTN"",""ICDTLB1B"",59,0)"
^XMB(3.9,58,2,4670,0)="DRG61 S ICDRG=$S(AGE>17:61,1:62) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4671,0)="""RTN"",""ICDTLB1B"",60,0)"
^XMB(3.9,58,2,4672,0)=" Q"
^XMB(3.9,58,2,4673,0)="""RTN"",""ICDTLB1B"",61,0)"
^XMB(3.9,58,2,4674,0)="DRG62 S ICDRG=$S(AGE>17:61,1:62) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4675,0)="""RTN"",""ICDTLB1B"",62,0)"
^XMB(3.9,58,2,4676,0)=" Q"
^XMB(3.9,58,2,4677,0)="""RTN"",""ICDTLB1B"",63,0)"
^XMB(3.9,58,2,4678,0)="DRG68 S ICDRG=$S(AGE<18:70,ICDCC:68,1:69) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4679,0)="""RTN"",""ICDTLB1B"",64,0)"
^XMB(3.9,58,2,4680,0)=" Q"
^XMB(3.9,58,2,4681,0)="""RTN"",""ICDTLB1B"",65,0)"
^XMB(3.9,58,2,4682,0)="DRG69 S ICDRG=$S(AGE<18:70,ICDCC:68,1:69) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4683,0)="""RTN"",""ICDTLB1B"",66,0)"
^XMB(3.9,58,2,4684,0)=" Q"
^XMB(3.9,58,2,4685,0)="""RTN"",""ICDTLB1B"",67,0)"
^XMB(3.9,58,2,4686,0)="DRG70 S ICDRG=$S(AGE<18:70,ICDCC:68,1:69) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4687,0)="""RTN"",""ICDTLB1B"",68,0)"
^XMB(3.9,58,2,4688,0)=" Q"
^XMB(3.9,58,2,4689,0)="""RTN"",""ICDTLB1B"",69,0)"
^XMB(3.9,58,2,4690,0)="DRG73 S ICDRG=$S(AGE>17:73,1:74) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4691,0)="""RTN"",""ICDTLB1B"",70,0)"
^XMB(3.9,58,2,4692,0)=" Q"
^XMB(3.9,58,2,4693,0)="""RTN"",""ICDTLB1B"",71,0)"
^XMB(3.9,58,2,4694,0)="DRG74 S ICDRG=$S(AGE>17:73,1:74) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4695,0)="""RTN"",""ICDTLB1B"",72,0)"
^XMB(3.9,58,2,4696,0)=" Q"
^XMB(3.9,58,2,4697,0)="""RTN"",""ICDTLB1B"",73,0)"
^XMB(3.9,58,2,4698,0)="DRG75 S ICDRG=$S($D(ICDODRG(474)):474,1:ICDRG) Q"
^XMB(3.9,58,2,4699,0)="""RTN"",""ICDTLB1B"",74,0)"
^XMB(3.9,58,2,4700,0)="DRG76 S ICDRG=$S($D(ICDODRG(474)):474,ICDCC:76,1:77) Q"
^XMB(3.9,58,2,4701,0)="""RTN"",""ICDTLB1B"",75,0)"
^XMB(3.9,58,2,4702,0)="DRG77 S ICDRG=$S($D(ICDODRG(474)):474,ICDCC:76,1:77) Q"
^XMB(3.9,58,2,4703,0)="""RTN"",""ICDTLB1B"",76,0)"
^XMB(3.9,58,2,4704,0)="DRG78 S ICDRG=$S(ICDPD[""X""&(ICDOR[""H""):124,ICDSD[""X""&(ICDOR[""H""):124,1:78) Q"
^XMB(3.9,58,2,4705,0)="""RTN"",""ICDTLB1B"",77,0)"
^XMB(3.9,58,2,4706,0)="DRG79 S ICDRG=$S(AGE<18:81,ICDCC:79,1:80) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4707,0)="""RTN"",""ICDTLB1B"",78,0)"
^XMB(3.9,58,2,4708,0)=" Q"
^XMB(3.9,58,2,4709,0)="""RTN"",""ICDTLB1B"",79,0)"
^XMB(3.9,58,2,4710,0)="DRG80 S ICDRG=$S(AGE<18:81,ICDCC:79,1:80) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4711,0)="""RTN"",""ICDTLB1B"",80,0)"
^XMB(3.9,58,2,4712,0)=" Q"
^XMB(3.9,58,2,4713,0)="""RTN"",""ICDTLB1B"",81,0)"
^XMB(3.9,58,2,4714,0)="DRG81 S ICDRG=$S(AGE<18:81,ICDCC:79,1:80) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4715,0)="""RTN"",""ICDTLB1B"",82,0)"
^XMB(3.9,58,2,4716,0)=" Q"
^XMB(3.9,58,2,4717,0)="""RTN"",""ICDTLB1B"",83,0)"
^XMB(3.9,58,2,4718,0)="DRG83 S ICDRG=$S(ICDCC:83,1:84) Q"
^XMB(3.9,58,2,4719,0)="""RTN"",""ICDTLB1B"",84,0)"
^XMB(3.9,58,2,4720,0)="DRG84 S ICDRG=$S(ICDCC:83,1:84) Q"
^XMB(3.9,58,2,4721,0)="""RTN"",""ICDTLB1B"",85,0)"
^XMB(3.9,58,2,4722,0)="DRG85 S ICDRG=$S(ICDCC:85,1:86) Q"
^XMB(3.9,58,2,4723,0)="""RTN"",""ICDTLB1B"",86,0)"
^XMB(3.9,58,2,4724,0)="DRG86 S ICDRG=$S(ICDCC:85,1:86) Q"
^XMB(3.9,58,2,4725,0)="""RTN"",""ICDTLB1B"",87,0)"
^XMB(3.9,58,2,4726,0)="DRG89 S ICDRG=$S(AGE<18:91,ICDCC:89,1:90) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4727,0)="""RTN"",""ICDTLB1B"",88,0)"
^XMB(3.9,58,2,4728,0)=" Q"
^XMB(3.9,58,2,4729,0)="""RTN"",""ICDTLB1B"",89,0)"
^XMB(3.9,58,2,4730,0)="DRG90 S ICDRG=$S(AGE<18:91,ICDCC:89,1:90) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4731,0)="""RTN"",""ICDTLB1B"",90,0)"
^XMB(3.9,58,2,4732,0)=" Q"
^XMB(3.9,58,2,4733,0)="""RTN"",""ICDTLB1B"",91,0)"
^XMB(3.9,58,2,4734,0)="DRG91 S ICDRG=$S(AGE<18:91,ICDCC:89,1:90) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4735,0)="""RTN"",""ICDTLB1B"",92,0)"
^XMB(3.9,58,2,4736,0)=" Q"
^XMB(3.9,58,2,4737,0)="""RTN"",""ICDTLB1B"",93,0)"
^XMB(3.9,58,2,4738,0)="DRG92 S ICDRG=$S(ICDCC!($D(ICDSDRG(92))):92,1:93) Q"
^XMB(3.9,58,2,4739,0)="""RTN"",""ICDTLB1B"",94,0)"
^XMB(3.9,58,2,4740,0)="DRG93 S ICDRG=$S(ICDCC:92,1:93) Q"
^XMB(3.9,58,2,4741,0)="""RTN"",""ICDTLB1B"",95,0)"
^XMB(3.9,58,2,4742,0)="DRG94 S ICDRG=$S(ICDCC:94,1:95) Q"
^XMB(3.9,58,2,4743,0)="""RTN"",""ICDTLB1B"",96,0)"
^XMB(3.9,58,2,4744,0)="DRG528 S ICDRG=$S((ICDPD[""K"")&(ICDOR[""K""):528,1:ICDRG) Q"
^XMB(3.9,58,2,4745,0)="""RTN"",""ICDTLB1B"",97,0)"
^XMB(3.9,58,2,4746,0)="DRG529 S ICDRG=$S((ICDOR[""S"")&(ICDCC):529,(ICDOR[""S"")&('ICDCC):530,1:ICDRG) Q"
^XMB(3.9,58,2,4747,0)="""RTN"",""ICDTLB1B"",98,0)"
^XMB(3.9,58,2,4748,0)="DRG530 D DRG529 Q"
^XMB(3.9,58,2,4749,0)="""RTN"",""ICDTLB2B"")"
^XMB(3.9,58,2,4750,0)="0^18^B25384998"
^XMB(3.9,58,2,4751,0)="""RTN"",""ICDTLB2B"",1,0)"
^XMB(3.9,58,2,4752,0)="ICDTLB2B ;ALB/EG - GROUPER UTILITY FUNCTIONS FY 2006; 9/19/03 1:09pm ; 6/28/05 4:02pm"
^XMB(3.9,58,2,4753,0)="""RTN"",""ICDTLB2B"",2,0)"
^XMB(3.9,58,2,4754,0)=" ;;18.0;DRG Grouper;**20**;Oct 20, 2000"
^XMB(3.9,58,2,4755,0)="""RTN"",""ICDTLB2B"",3,0)"
^XMB(3.9,58,2,4756,0)="DRG95 S ICDRG=$S(ICDCC:94,1:95) Q"
^XMB(3.9,58,2,4757,0)="""RTN"",""ICDTLB2B"",4,0)"
^XMB(3.9,58,2,4758,0)="DRG96 S ICDRG=$S(AGE<18:98,ICDCC:96,1:97) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4759,0)="""RTN"",""ICDTLB2B"",5,0)"
^XMB(3.9,58,2,4760,0)=" Q"
^XMB(3.9,58,2,4761,0)="""RTN"",""ICDTLB2B"",6,0)"
^XMB(3.9,58,2,4762,0)="DRG97 S ICDRG=$S(AGE<18:98,ICDCC:96,1:97) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4763,0)="""RTN"",""ICDTLB2B"",7,0)"
^XMB(3.9,58,2,4764,0)=" Q"
^XMB(3.9,58,2,4765,0)="""RTN"",""ICDTLB2B"",8,0)"
^XMB(3.9,58,2,4766,0)="DRG98 S ICDRG=$S(AGE<18:98,ICDCC:96,1:97) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4767,0)="""RTN"",""ICDTLB2B"",9,0)"
^XMB(3.9,58,2,4768,0)=" Q"
^XMB(3.9,58,2,4769,0)="""RTN"",""ICDTLB2B"",10,0)"
^XMB(3.9,58,2,4770,0)="DRG99 S ICDRG=$S(ICDCC!($D(ICDSDRG(99))):99,1:100) Q"
^XMB(3.9,58,2,4771,0)="""RTN"",""ICDTLB2B"",11,0)"
^XMB(3.9,58,2,4772,0)="DRG100 S ICDRG=$S(ICDCC:99,1:100) Q"
^XMB(3.9,58,2,4773,0)="""RTN"",""ICDTLB2B"",12,0)"
^XMB(3.9,58,2,4774,0)="DRG101 S ICDRG=$S(ICDCC:101,1:102) Q"
^XMB(3.9,58,2,4775,0)="""RTN"",""ICDTLB2B"",13,0)"
^XMB(3.9,58,2,4776,0)="DRG102 S ICDRG=$S(ICDCC:101,1:102) Q"
^XMB(3.9,58,2,4777,0)="""RTN"",""ICDTLB2B"",14,0)"
^XMB(3.9,58,2,4778,0)="DRG104 ;valve procedure"
^XMB(3.9,58,2,4779,0)="""RTN"",""ICDTLB2B"",15,0)"
^XMB(3.9,58,2,4780,0)=" N ICDE1,ICDE2"
^XMB(3.9,58,2,4781,0)="""RTN"",""ICDTLB2B"",16,0)"
^XMB(3.9,58,2,4782,0)=" S ICDE1=$S($D(ICDOP("" 37.95""))&($D(ICDOP("" 37.96""))):1,1:0),ICDE2=$S($D(ICDOP("" 37.97""))&($D(ICDOP("" 37.98""))):1,1:0)"
^XMB(3.9,58,2,4783,0)="""RTN"",""ICDTLB2B"",17,0)"
^XMB(3.9,58,2,4784,0)=" ;I ICDOR'[""P"",'ICDE1&'ICDE2&($D(ICDOP("" 37.95""))!$D(ICDOP("" 37.96""))!$D(ICDOP("" 37.97""))!$D(ICDOP("" 37.98""))) S ICDRG=116 Q"
^XMB(3.9,58,2,4785,0)="""RTN"",""ICDTLB2B"",18,0)"
^XMB(3.9,58,2,4786,0)=" S:ICDOR[""H"" ICDRG=$S(ICDOR[""N""&ICDE1:104,ICDOR[""N""&ICDE2:104,ICDOR[""O"":104,1:ICDRG)"
^XMB(3.9,58,2,4787,0)="""RTN"",""ICDTLB2B"",19,0)"
^XMB(3.9,58,2,4788,0)=" S:ICDOR'[""H"" ICDRG=$S(ICDOR[""N""&ICDE1:105,ICDOR[""N""&ICDE2:105,ICDOR[""O"":105,1:ICDRG)"
^XMB(3.9,58,2,4789,0)="""RTN"",""ICDTLB2B"",20,0)"
^XMB(3.9,58,2,4790,0)=" I ICDOR[""P""&(ICDE1+ICDE2=0) S ICDRG=$S(ICDOR[""H"":104,1:105)"
^XMB(3.9,58,2,4791,0)="""RTN"",""ICDTLB2B"",21,0)"
^XMB(3.9,58,2,4792,0)=" Q"
^XMB(3.9,58,2,4793,0)="""RTN"",""ICDTLB2B"",22,0)"
^XMB(3.9,58,2,4794,0)="DRG105 D DRG104 Q"
^XMB(3.9,58,2,4795,0)="""RTN"",""ICDTLB2B"",23,0)"
^XMB(3.9,58,2,4796,0)=" ; NOIS ANN-0801-41869 ignore 37.26 which has ""HN1"" for identifier"
^XMB(3.9,58,2,4797,0)="""RTN"",""ICDTLB2B"",24,0)"
^XMB(3.9,58,2,4798,0)="DRG106 ;S ICDRG=$S(ICDOR[""b""&(ICDOR[""6"")&(ICDOR[""1""):106,ICDOR[""6""&(ICDOR'[""1"")&(ICDOR[""H""):107,ICDOR[""6""&(ICDOR'[""1"")&(ICDOR'[""H""):109,1:470) I ""106^107^109""'[ICDRG D "
^XMB(3.9,58,2,4799,0)="""RTN"",""ICDTLB2B"",25,0)"
^XMB(3.9,58,2,4800,0)=" S ICDRG=470"
^XMB(3.9,58,2,4801,0)="""RTN"",""ICDTLB2B"",26,0)"
^XMB(3.9,58,2,4802,0)=" I ICDOR[""b"" D DRG549^ICDTLB6B"
^XMB(3.9,58,2,4803,0)="""RTN"",""ICDTLB2B"",27,0)"
^XMB(3.9,58,2,4804,0)=" I ICDOR[""b"" I $D(ICDOP("" 35.96""))!($D(ICDOP("" 00.66""))) S ICDRG=106 Q"
^XMB(3.9,58,2,4805,0)="""RTN"",""ICDTLB2B"",28,0)"
^XMB(3.9,58,2,4806,0)=" I ICDOR[""b"" I $D(ICDOP("" 37.21""))!($D(ICDOP("" 37.22"")))!($D(ICDOP("" 37.23""))) D DRG547^ICDTLB6B Q"
^XMB(3.9,58,2,4807,0)="""RTN"",""ICDTLB2B"",29,0)"
^XMB(3.9,58,2,4808,0)=" I ICDOR[""b"" I $D(ICDOP("" 88.52""))!($D(ICDOP("" 88.53"")))!($D(ICDOP("" 88.54"")))!($D(ICDOP("" 88.55"")))!($D(ICDOP("" 88.56"")))!($D(ICDOP("" 88.57"")))!($D(ICDOP("" 88.58""))) D DRG547^ICDTLB6B Q"
^XMB(3.9,58,2,4809,0)="""RTN"",""ICDTLB2B"",30,0)"
^XMB(3.9,58,2,4810,0)=" I ICDRG'=106&(ICDRG'=547)&(ICDRG'=548)&(ICDRG'=549)&(ICDRG'=550) S ICDRG=470 D"
^XMB(3.9,58,2,4811,0)="""RTN"",""ICDTLB2B"",31,0)"
^XMB(3.9,58,2,4812,0)=" .;I ICDCC D DRG110 Q"
^XMB(3.9,58,2,4813,0)="""RTN"",""ICDTLB2B"",32,0)"
^XMB(3.9,58,2,4814,0)=" .;I ICDOR'[""b"" D DRG112 I +ICDRG>0&(+ICDRG<470) Q"
^XMB(3.9,58,2,4815,0)="""RTN"",""ICDTLB2B"",33,0)"
^XMB(3.9,58,2,4816,0)=" .;I ICDOR'[""b"" D DRG516^ICDTLB6A I +ICDRG>0 Q"
^XMB(3.9,58,2,4817,0)="""RTN"",""ICDTLB2B"",34,0)"
^XMB(3.9,58,2,4818,0)=" .I ICDCC D DRG110 Q"
^XMB(3.9,58,2,4819,0)="""RTN"",""ICDTLB2B"",35,0)"
^XMB(3.9,58,2,4820,0)=" .D DRG111"
^XMB(3.9,58,2,4821,0)="""RTN"",""ICDTLB2B"",36,0)"
^XMB(3.9,58,2,4822,0)=" Q"
^XMB(3.9,58,2,4823,0)="""RTN"",""ICDTLB2B"",37,0)"
^XMB(3.9,58,2,4824,0)="DRG107 D DRG106 Q"
^XMB(3.9,58,2,4825,0)="""RTN"",""ICDTLB2B"",38,0)"
^XMB(3.9,58,2,4826,0)="DRG108 S ICDRG=$S(ICDOR[""Oo"":108,$D(ICDOP("" 38.44""))&$D(ICDOP("" 38.45"")):108,ICDCC:110,1:111) Q"
^XMB(3.9,58,2,4827,0)="""RTN"",""ICDTLB2B"",39,0)"
^XMB(3.9,58,2,4828,0)="DRG109 D DRG106 Q"
^XMB(3.9,58,2,4829,0)="""RTN"",""ICDTLB2B"",40,0)"
^XMB(3.9,58,2,4830,0)="DRG110 D DRG111 Q"
^XMB(3.9,58,2,4831,0)="""RTN"",""ICDTLB2B"",41,0)"
^XMB(3.9,58,2,4832,0)="DRG111 S ICDRG=$S(ICDOR[""Oo"":108,ICDCC&(ICDOR[7):110,ICDOR[7:111,1:ICDRG)"
^XMB(3.9,58,2,4833,0)="""RTN"",""ICDTLB2B"",42,0)"
^XMB(3.9,58,2,4834,0)=" I ""108^110^111""[ICDRG Q"
^XMB(3.9,58,2,4835,0)="""RTN"",""ICDTLB2B"",43,0)"
^XMB(3.9,58,2,4836,0)=" I $D(ICDJJ(478))&('$D(ICDJJ(110))&'($D(ICDJJ(111)))) D DRG478^ICDTLB6B"
^XMB(3.9,58,2,4837,0)="""RTN"",""ICDTLB2B"",44,0)"
^XMB(3.9,58,2,4838,0)=" D DRG113 I ICDRG=113 Q"
^XMB(3.9,58,2,4839,0)="""RTN"",""ICDTLB2B"",45,0)"
^XMB(3.9,58,2,4840,0)=" I ICDOR[""p"" D DRG117"
^XMB(3.9,58,2,4841,0)="""RTN"",""ICDTLB2B"",46,0)"
^XMB(3.9,58,2,4842,0)=" I ICDOR[""1"" D DRG516^ICDTLB6B"
^XMB(3.9,58,2,4843,0)="""RTN"",""ICDTLB2B"",47,0)"
^XMB(3.9,58,2,4844,0)=" Q"
^XMB(3.9,58,2,4845,0)="""RTN"",""ICDTLB2B"",48,0)"
^XMB(3.9,58,2,4846,0)="DRG112 S ICDRG=$S(ICDOR[""Oo"":108,(ICDOR[""1"")&($D(ICDOP("" 36.06""))):116,ICDOR[""1"":112,1:470) I ICDRG=470 D"
^XMB(3.9,58,2,4847,0)="""RTN"",""ICDTLB2B"",49,0)"
^XMB(3.9,58,2,4848,0)=" .I ICDPD[""A"" D DRG115 Q"
^XMB(3.9,58,2,4849,0)="""RTN"",""ICDTLB2B"",50,0)"
^XMB(3.9,58,2,4850,0)=" .I ICDOR[""p"" D DRG117 Q"
^XMB(3.9,58,2,4851,0)="""RTN"",""ICDTLB2B"",51,0)"
^XMB(3.9,58,2,4852,0)=" .D DRG111"
^XMB(3.9,58,2,4853,0)="""RTN"",""ICDTLB2B"",52,0)"
^XMB(3.9,58,2,4854,0)=" Q"
^XMB(3.9,58,2,4855,0)="""RTN"",""ICDTLB2B"",53,0)"
^XMB(3.9,58,2,4856,0)="DRG113 S ICDRG=$S($D(ICDJJ(113)):113,1:ICDRG) Q"
^XMB(3.9,58,2,4857,0)="""RTN"",""ICDTLB2B"",54,0)"
^XMB(3.9,58,2,4858,0)="DRG115 D EN1^ICDDRG5"
^XMB(3.9,58,2,4859,0)="""RTN"",""ICDTLB2B"",55,0)"
^XMB(3.9,58,2,4860,0)=" I ICDPD'[""I""&(ICDCC2=0)&(ICDCC3=0) S ICDRG=127 Q"
^XMB(3.9,58,2,4861,0)="""RTN"",""ICDTLB2B"",56,0)"
^XMB(3.9,58,2,4862,0)=" I ICDCC2=1!(ICDCC3=1) D DRG551^ICDTLB6B"
^XMB(3.9,58,2,4863,0)="""RTN"",""ICDTLB2B"",57,0)"
^XMB(3.9,58,2,4864,0)=" I ICDRG=551 Q"
^XMB(3.9,58,2,4865,0)="""RTN"",""ICDTLB2B"",58,0)"
^XMB(3.9,58,2,4866,0)=" ; ICDCC2 identifies AICD LEAD OR GNRTR"
^XMB(3.9,58,2,4867,0)="""RTN"",""ICDTLB2B"",59,0)"
^XMB(3.9,58,2,4868,0)=" I ICDCC2=1&(ICDCC3=0) S ICDRG=551 Q"
^XMB(3.9,58,2,4869,0)="""RTN"",""ICDTLB2B"",60,0)"
^XMB(3.9,58,2,4870,0)=" I ICDCC3=1 S ICDRG=552"
^XMB(3.9,58,2,4871,0)="""RTN"",""ICDTLB2B"",61,0)"
^XMB(3.9,58,2,4872,0)=" Q"
^XMB(3.9,58,2,4873,0)="""RTN"",""ICDTLB2B"",62,0)"
^XMB(3.9,58,2,4874,0)="DRG116 D DRG115 Q"
^XMB(3.9,58,2,4875,0)="""RTN"",""ICDTLB2B"",63,0)"
^XMB(3.9,58,2,4876,0)="DRG117 D DRG115 I ICDRG=551!(ICDRG=552) Q"
^XMB(3.9,58,2,4877,0)="""RTN"",""ICDTLB2B"",64,0)"
^XMB(3.9,58,2,4878,0)=" I ICDOR[""p"" S ICDRG=117"
^XMB(3.9,58,2,4879,0)="""RTN"",""ICDTLB2B"",65,0)"
^XMB(3.9,58,2,4880,0)=" Q"
^XMB(3.9,58,2,4881,0)="""RTN"",""ICDTLB2B"",66,0)"
^XMB(3.9,58,2,4882,0)="DRG118 D DRG115 I ICDRG=551!(ICDRG=552) Q"
^XMB(3.9,58,2,4883,0)="""RTN"",""ICDTLB2B"",67,0)"
^XMB(3.9,58,2,4884,0)=" S ICDRG=118 Q"
^XMB(3.9,58,2,4885,0)="""RTN"",""ICDTLB2B"",68,0)"
^XMB(3.9,58,2,4886,0)="DRG120 ;dx combo's for DRG120"
^XMB(3.9,58,2,4887,0)="""RTN"",""ICDTLB2B"",69,0)"
^XMB(3.9,58,2,4888,0)=" N ICDE1,ICDE2"
^XMB(3.9,58,2,4889,0)="""RTN"",""ICDTLB2B"",70,0)"
^XMB(3.9,58,2,4890,0)=" S ICDE1=$S($D(ICDOP("" 37.95""))&($D(ICDOP("" 37.96""))):1,1:0),ICDE2=$S($D(ICDOP("" 37.97""))&($D(ICDOP("" 37.98""))):1,1:0)"
^XMB(3.9,58,2,4891,0)="""RTN"",""ICDTLB2B"",71,0)"
^XMB(3.9,58,2,4892,0)=" S ICDRG=$S((ICDE1&(ICDOR[""H"")):104,(ICDE1&(ICDOR'[""H"")):105,(ICDE2&(ICDOR[""H"")):104,(ICDE2&(ICDOR'[""H"")):105,1:120)"
^XMB(3.9,58,2,4893,0)="""RTN"",""ICDTLB2B"",72,0)"
^XMB(3.9,58,2,4894,0)=" Q"
^XMB(3.9,58,2,4895,0)="""RTN"",""ICDTLB2B"",73,0)"
^XMB(3.9,58,2,4896,0)="DRG121 S ICDRG=$S(ICDSD[""CV"":121,ICDEXP=0:122,ICDEXP=1:123,1:470) I ICDRG=470 S ICDRTC=5"
^XMB(3.9,58,2,4897,0)="""RTN"",""ICDTLB2B"",74,0)"
^XMB(3.9,58,2,4898,0)=" Q"
^XMB(3.9,58,2,4899,0)="""RTN"",""ICDTLB2B"",75,0)"
^XMB(3.9,58,2,4900,0)="DRG122 S ICDRG=$S(ICDSD[""CV"":121,ICDEXP=0:122,ICDEXP=1:123,1:470) I ICDRG=470 S ICDRTC=5"
^XMB(3.9,58,2,4901,0)="""RTN"",""ICDTLB2B"",76,0)"
^XMB(3.9,58,2,4902,0)=" Q"
^XMB(3.9,58,2,4903,0)="""RTN"",""ICDTLB2B"",77,0)"
^XMB(3.9,58,2,4904,0)="DRG123 S ICDRG=$S(ICDSD[""CV"":121,ICDEXP=0:122,ICDEXP=1:123,1:470) I ICDRG=470 S ICDRTC=5"
^XMB(3.9,58,2,4905,0)="""RTN"",""ICDTLB2B"",78,0)"
^XMB(3.9,58,2,4906,0)=" Q"
^XMB(3.9,58,2,4907,0)="""RTN"",""ICDTLB2B"",79,0)"
^XMB(3.9,58,2,4908,0)="DRG124 S ICDRG=$S(ICDPD[""X""!(ICDSD[""X""):124,1:125) Q"
^XMB(3.9,58,2,4909,0)="""RTN"",""ICDTLB2B"",80,0)"
^XMB(3.9,58,2,4910,0)="DRG125 S ICDRG=$S(ICDPD[""X""!(ICDSD[""X""):124,1:125) Q"
^XMB(3.9,58,2,4911,0)="""RTN"",""ICDTLB2B"",81,0)"
^XMB(3.9,58,2,4912,0)="DRG130 S ICDRG=$S(ICDCC:130,1:131) Q"
^XMB(3.9,58,2,4913,0)="""RTN"",""ICDTLB2B"",82,0)"
^XMB(3.9,58,2,4914,0)="DRG131 S ICDRG=$S(ICDCC!($D(ICDSDRG(130))):130,1:131) Q"
^XMB(3.9,58,2,4915,0)="""RTN"",""ICDTLB2B"",83,0)"
^XMB(3.9,58,2,4916,0)="DRG132 S ICDRG=$S(ICDCC:132,1:133) Q"
^XMB(3.9,58,2,4917,0)="""RTN"",""ICDTLB2B"",84,0)"
^XMB(3.9,58,2,4918,0)="DRG133 S ICDRG=$S(ICDCC:132,1:133) Q"
^XMB(3.9,58,2,4919,0)="""RTN"",""ICDTLB2B"",85,0)"
^XMB(3.9,58,2,4920,0)="DRG135 S ICDRG=$S(AGE<18:137,ICDCC:135,1:136) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4921,0)="""RTN"",""ICDTLB2B"",86,0)"
^XMB(3.9,58,2,4922,0)=" Q"
^XMB(3.9,58,2,4923,0)="""RTN"",""ICDTLB2B"",87,0)"
^XMB(3.9,58,2,4924,0)="DRG136 S ICDRG=$S(AGE<18:137,ICDCC:135,1:136) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4925,0)="""RTN"",""ICDTLB2B"",88,0)"
^XMB(3.9,58,2,4926,0)=" Q"
^XMB(3.9,58,2,4927,0)="""RTN"",""ICDTLB2B"",89,0)"
^XMB(3.9,58,2,4928,0)="DRG137 S ICDRG=$S(AGE<18:137,ICDCC:135,1:136) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4929,0)="""RTN"",""ICDTLB2B"",90,0)"
^XMB(3.9,58,2,4930,0)=" Q"
^XMB(3.9,58,2,4931,0)="""RTN"",""ICDTLB2B"",91,0)"
^XMB(3.9,58,2,4932,0)="DRG138 S ICDRG=$S(ICDCC:138,1:139) Q"
^XMB(3.9,58,2,4933,0)="""RTN"",""ICDTLB2B"",92,0)"
^XMB(3.9,58,2,4934,0)="DRG139 S ICDRG=$S(ICDCC:138,1:139) Q"
^XMB(3.9,58,2,4935,0)="""RTN"",""ICDTLB2B"",93,0)"
^XMB(3.9,58,2,4936,0)="DRG140 S ICDRG=$S(ICDOR[""H"":124,ICDNOR[""H"":124,1:140) Q"
^XMB(3.9,58,2,4937,0)="""RTN"",""ICDTLB2B"",94,0)"
^XMB(3.9,58,2,4938,0)="DRG141 S ICDRG=$S(ICDCC:141,1:142) Q"
^XMB(3.9,58,2,4939,0)="""RTN"",""ICDTLB2B"",95,0)"
^XMB(3.9,58,2,4940,0)="DRG142 S ICDRG=$S(ICDCC:141,1:142) Q"
^XMB(3.9,58,2,4941,0)="""RTN"",""ICDTLB2B"",96,0)"
^XMB(3.9,58,2,4942,0)="DRG144 S ICDRG=$S(ICDCC:144,1:145) Q"
^XMB(3.9,58,2,4943,0)="""RTN"",""ICDTLB2B"",97,0)"
^XMB(3.9,58,2,4944,0)="DRG145 S ICDRG=$S(ICDCC:144,1:145) Q"
^XMB(3.9,58,2,4945,0)="""RTN"",""ICDTLB2B"",98,0)"
^XMB(3.9,58,2,4946,0)="DRG146 S ICDRG=$S(ICDCC:146,1:147) Q"
^XMB(3.9,58,2,4947,0)="""RTN"",""ICDTLB2B"",99,0)"
^XMB(3.9,58,2,4948,0)="DRG147 S ICDRG=$S(ICDCC:146,1:147) Q"
^XMB(3.9,58,2,4949,0)="""RTN"",""ICDTLB2B"",100,0)"
^XMB(3.9,58,2,4950,0)="DRG148 S ICDRG=$S(ICDCC:148,1:149) Q"
^XMB(3.9,58,2,4951,0)="""RTN"",""ICDTLB2B"",101,0)"
^XMB(3.9,58,2,4952,0)="DRG149 S ICDRG=$S(ICDCC:148,1:149) Q"
^XMB(3.9,58,2,4953,0)="""RTN"",""ICDTLB2B"",102,0)"
^XMB(3.9,58,2,4954,0)="DRG150 S ICDRG=$S(ICDCC:150,1:151) Q"
^XMB(3.9,58,2,4955,0)="""RTN"",""ICDTLB2B"",103,0)"
^XMB(3.9,58,2,4956,0)="DRG151 S ICDRG=$S(ICDCC:150,1:151) Q"
^XMB(3.9,58,2,4957,0)="""RTN"",""ICDTLB2B"",104,0)"
^XMB(3.9,58,2,4958,0)="DRG152 S ICDRG=$S(ICDCC:152,1:153) Q"
^XMB(3.9,58,2,4959,0)="""RTN"",""ICDTLB2B"",105,0)"
^XMB(3.9,58,2,4960,0)="DRG153 S ICDRG=$S(ICDCC:152,1:153) Q"
^XMB(3.9,58,2,4961,0)="""RTN"",""ICDTLB2B"",106,0)"
^XMB(3.9,58,2,4962,0)="DRG154 S ICDRG=$S(AGE<18:156,ICDCC:154,1:155) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4963,0)="""RTN"",""ICDTLB2B"",107,0)"
^XMB(3.9,58,2,4964,0)=" Q"
^XMB(3.9,58,2,4965,0)="""RTN"",""ICDTLB2B"",108,0)"
^XMB(3.9,58,2,4966,0)="DRG155 S ICDRG=$S(AGE<18:156,ICDCC:154,1:155) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4967,0)="""RTN"",""ICDTLB2B"",109,0)"
^XMB(3.9,58,2,4968,0)=" Q"
^XMB(3.9,58,2,4969,0)="""RTN"",""ICDTLB2B"",110,0)"
^XMB(3.9,58,2,4970,0)="DRG156 S ICDRG=$S(AGE<18:156,ICDCC:154,1:155) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4971,0)="""RTN"",""ICDTLB2B"",111,0)"
^XMB(3.9,58,2,4972,0)=" Q"
^XMB(3.9,58,2,4973,0)="""RTN"",""ICDTLB2B"",112,0)"
^XMB(3.9,58,2,4974,0)="DRG157 S ICDRG=$S(ICDCC:157,1:158) Q"
^XMB(3.9,58,2,4975,0)="""RTN"",""ICDTLB2B"",113,0)"
^XMB(3.9,58,2,4976,0)="DRG158 S ICDRG=$S(ICDCC:157,1:158) Q"
^XMB(3.9,58,2,4977,0)="""RTN"",""ICDTLB2B"",114,0)"
^XMB(3.9,58,2,4978,0)="DRG159 S ICDRG=$S(AGE<18:163,ICDCC:159,1:160) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4979,0)="""RTN"",""ICDTLB2B"",115,0)"
^XMB(3.9,58,2,4980,0)=" Q"
^XMB(3.9,58,2,4981,0)="""RTN"",""ICDTLB2B"",116,0)"
^XMB(3.9,58,2,4982,0)="DRG160 S ICDRG=$S(AGE<18:163,ICDCC:159,1:160) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4983,0)="""RTN"",""ICDTLB2B"",117,0)"
^XMB(3.9,58,2,4984,0)=" Q"
^XMB(3.9,58,2,4985,0)="""RTN"",""ICDTLB2B"",118,0)"
^XMB(3.9,58,2,4986,0)="DRG161 S ICDRG=$S(AGE<18:163,ICDCC:161,ICDSD[""J"":161,1:162) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4987,0)="""RTN"",""ICDTLB2B"",119,0)"
^XMB(3.9,58,2,4988,0)=" Q"
^XMB(3.9,58,2,4989,0)="""RTN"",""ICDTLB2B"",120,0)"
^XMB(3.9,58,2,4990,0)="DRG162 S ICDRG=$S(AGE<18:163,ICDCC:161,1:162) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,4991,0)="""RTN"",""ICDTLB2B"",121,0)"
^XMB(3.9,58,2,4992,0)=" Q"
^XMB(3.9,58,2,4993,0)="""RTN"",""ICDTLB3B"")"
^XMB(3.9,58,2,4994,0)="0^19^B21430728"
^XMB(3.9,58,2,4995,0)="""RTN"",""ICDTLB3B"",1,0)"
^XMB(3.9,58,2,4996,0)="ICDTLB3B ;ALB/EG - GROUPER UTILITY FUNCTIONS FY 2006; 10/23/00 11:48am ; 6/28/05 4:03pm"
^XMB(3.9,58,2,4997,0)="""RTN"",""ICDTLB3B"",2,0)"
^XMB(3.9,58,2,4998,0)=" ;;18.0;DRG Grouper;**20**;Oct 20, 2000"
^XMB(3.9,58,2,4999,0)="""RTN"",""ICDTLB3B"",3,0)"
^XMB(3.9,58,2,5000,0)="DRG164 S ICDRG=$S(ICDPD[""X""&(ICDCC):164,ICDPD[""X"":165,ICDCC:166,1:167) Q"
^XMB(3.9,58,2,5001,0)="""RTN"",""ICDTLB3B"",4,0)"
^XMB(3.9,58,2,5002,0)="DRG165 S ICDRG=$S(ICDPD[""X""&(ICDCC):164,ICDPD[""X"":165,ICDCC:166,1:167) Q"
^XMB(3.9,58,2,5003,0)="""RTN"",""ICDTLB3B"",5,0)"
^XMB(3.9,58,2,5004,0)="DRG166 S ICDRG=$S(ICDPD[""X""&(ICDCC):164,ICDPD[""X"":165,ICDCC:166,1:167) Q"
^XMB(3.9,58,2,5005,0)="""RTN"",""ICDTLB3B"",6,0)"
^XMB(3.9,58,2,5006,0)="DRG167 S ICDRG=$S(ICDPD[""X""&(ICDCC):164,ICDPD[""X"":165,ICDCC:166,1:167) Q"
^XMB(3.9,58,2,5007,0)="""RTN"",""ICDTLB3B"",7,0)"
^XMB(3.9,58,2,5008,0)="DRG168 S ICDRG=$S(ICDCC:168,1:169) Q"
^XMB(3.9,58,2,5009,0)="""RTN"",""ICDTLB3B"",8,0)"
^XMB(3.9,58,2,5010,0)="DRG169 S ICDRG=$S(ICDCC:168,1:169) Q"
^XMB(3.9,58,2,5011,0)="""RTN"",""ICDTLB3B"",9,0)"
^XMB(3.9,58,2,5012,0)="DRG170 S ICDRG=$S(ICDCC:170,1:171) Q"
^XMB(3.9,58,2,5013,0)="""RTN"",""ICDTLB3B"",10,0)"
^XMB(3.9,58,2,5014,0)="DRG171 S ICDRG=$S(ICDCC:170,1:171) Q"
^XMB(3.9,58,2,5015,0)="""RTN"",""ICDTLB3B"",11,0)"
^XMB(3.9,58,2,5016,0)="DRG172 S ICDRG=$S(ICDCC:172,1:173) Q"
^XMB(3.9,58,2,5017,0)="""RTN"",""ICDTLB3B"",12,0)"
^XMB(3.9,58,2,5018,0)="DRG173 S ICDRG=$S(ICDCC:172,1:173) Q"
^XMB(3.9,58,2,5019,0)="""RTN"",""ICDTLB3B"",13,0)"
^XMB(3.9,58,2,5020,0)="DRG174 S ICDRG=$S(ICDCC:174,1:175) Q"
^XMB(3.9,58,2,5021,0)="""RTN"",""ICDTLB3B"",14,0)"
^XMB(3.9,58,2,5022,0)="DRG175 S ICDRG=$S(ICDCC:174,1:175) Q"
^XMB(3.9,58,2,5023,0)="""RTN"",""ICDTLB3B"",15,0)"
^XMB(3.9,58,2,5024,0)="DRG177 S ICDRG=$S(ICDCC:177,1:178) Q"
^XMB(3.9,58,2,5025,0)="""RTN"",""ICDTLB3B"",16,0)"
^XMB(3.9,58,2,5026,0)="DRG178 S ICDRG=$S(ICDCC:177,1:178) Q"
^XMB(3.9,58,2,5027,0)="""RTN"",""ICDTLB3B"",17,0)"
^XMB(3.9,58,2,5028,0)="DRG180 S ICDRG=$S(ICDCC:180,1:181) Q"
^XMB(3.9,58,2,5029,0)="""RTN"",""ICDTLB3B"",18,0)"
^XMB(3.9,58,2,5030,0)="DRG181 S ICDRG=$S(ICDCC:180,1:181) Q"
^XMB(3.9,58,2,5031,0)="""RTN"",""ICDTLB3B"",19,0)"
^XMB(3.9,58,2,5032,0)="DRG182 S ICDRG=$S(AGE<18:184,ICDCC:182,1:183) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5033,0)="""RTN"",""ICDTLB3B"",20,0)"
^XMB(3.9,58,2,5034,0)=" Q"
^XMB(3.9,58,2,5035,0)="""RTN"",""ICDTLB3B"",21,0)"
^XMB(3.9,58,2,5036,0)="DRG183 S ICDRG=$S(AGE<18:184,ICDCC:182,1:183) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5037,0)="""RTN"",""ICDTLB3B"",22,0)"
^XMB(3.9,58,2,5038,0)=" Q"
^XMB(3.9,58,2,5039,0)="""RTN"",""ICDTLB3B"",23,0)"
^XMB(3.9,58,2,5040,0)="DRG184 S ICDRG=$S(AGE<18:184,ICDCC:182,1:183) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5041,0)="""RTN"",""ICDTLB3B"",24,0)"
^XMB(3.9,58,2,5042,0)=" Q"
^XMB(3.9,58,2,5043,0)="""RTN"",""ICDTLB3B"",25,0)"
^XMB(3.9,58,2,5044,0)="DRG185 S ICDRG=$S(ICDOR[""e"":187,AGE="""":470,AGE<18:186,1:185),ICDRTC=$S(ICDRG=470:3,1:ICDRTC) Q"
^XMB(3.9,58,2,5045,0)="""RTN"",""ICDTLB3B"",26,0)"
^XMB(3.9,58,2,5046,0)="DRG186 S ICDRG=$S(ICDOR[""e"":187,AGE="""":470,AGE<18:186,1:185),ICDRTC=$S(ICDRG=470:3,1:ICDRTC) Q"
^XMB(3.9,58,2,5047,0)="""RTN"",""ICDTLB3B"",27,0)"
^XMB(3.9,58,2,5048,0)="DRG187 S ICDRG=$S($D(ICDPDRG(187)):187,$D(ICDPDRG):ICDPDRG,1:"""")"
^XMB(3.9,58,2,5049,0)="""RTN"",""ICDTLB3B"",28,0)"
^XMB(3.9,58,2,5050,0)=" I ICDRG?.N&(+ICDRG>0) Q"
^XMB(3.9,58,2,5051,0)="""RTN"",""ICDTLB3B"",29,0)"
^XMB(3.9,58,2,5052,0)=" I +ICDRG=0 S ICDRG=470 Q"
^XMB(3.9,58,2,5053,0)="""RTN"",""ICDTLB3B"",30,0)"
^XMB(3.9,58,2,5054,0)=" S ICDREF=$$RTABLE^ICDREF(+ICDRG,+ICDDATE)"
^XMB(3.9,58,2,5055,0)="""RTN"",""ICDTLB3B"",31,0)"
^XMB(3.9,58,2,5056,0)=" I ICDRG[""^""&(ICDREF'="""") X ""D DRG""_+ICDRG_""^""_ICDREF Q"
^XMB(3.9,58,2,5057,0)="""RTN"",""ICDTLB3B"",32,0)"
^XMB(3.9,58,2,5058,0)=" S ICDRG=+ICDPDRG"
^XMB(3.9,58,2,5059,0)="""RTN"",""ICDTLB3B"",33,0)"
^XMB(3.9,58,2,5060,0)=" Q"
^XMB(3.9,58,2,5061,0)="""RTN"",""ICDTLB3B"",34,0)"
^XMB(3.9,58,2,5062,0)="DRG188 S ICDRG=$S(AGE<18:190,ICDCC:188,1:189) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5063,0)="""RTN"",""ICDTLB3B"",35,0)"
^XMB(3.9,58,2,5064,0)=" Q"
^XMB(3.9,58,2,5065,0)="""RTN"",""ICDTLB3B"",36,0)"
^XMB(3.9,58,2,5066,0)="DRG189 S ICDRG=$S(AGE<18:190,ICDCC:188,1:189) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5067,0)="""RTN"",""ICDTLB3B"",37,0)"
^XMB(3.9,58,2,5068,0)=" Q"
^XMB(3.9,58,2,5069,0)="""RTN"",""ICDTLB3B"",38,0)"
^XMB(3.9,58,2,5070,0)="DRG190 S ICDRG=$S(AGE<18:190,ICDCC:188,1:189) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5071,0)="""RTN"",""ICDTLB3B"",39,0)"
^XMB(3.9,58,2,5072,0)=" Q"
^XMB(3.9,58,2,5073,0)="""RTN"",""ICDTLB3B"",40,0)"
^XMB(3.9,58,2,5074,0)="DRG191 S ICDRG=$S(ICDCC:191,1:192) Q"
^XMB(3.9,58,2,5075,0)="""RTN"",""ICDTLB3B"",41,0)"
^XMB(3.9,58,2,5076,0)="DRG192 S ICDRG=$S(ICDCC:191,1:192) Q"
^XMB(3.9,58,2,5077,0)="""RTN"",""ICDTLB3B"",42,0)"
^XMB(3.9,58,2,5078,0)="DRG193 ;"
^XMB(3.9,58,2,5079,0)="""RTN"",""ICDTLB3B"",43,0)"
^XMB(3.9,58,2,5080,0)=" I ICDOR[""T""&(ICDOR'[""3""!(ICDOR'[""h"")) D  Q:""195^196^197^198""[ICDRG"
^XMB(3.9,58,2,5081,0)="""RTN"",""ICDTLB3B"",44,0)"
^XMB(3.9,58,2,5082,0)=" .I ICDOR[""E"" S ICDRG=$S(ICDCC:195,1:196) Q"
^XMB(3.9,58,2,5083,0)="""RTN"",""ICDTLB3B"",45,0)"
^XMB(3.9,58,2,5084,0)=" .I ICDOR'[""E"" S ICDRG=$S(ICDCC:197,1:198)"
^XMB(3.9,58,2,5085,0)="""RTN"",""ICDTLB3B"",46,0)"
^XMB(3.9,58,2,5086,0)=" I ICDOR[""3""!(ICDOR[""E"") S ICDRG=$S(ICDCC:193,1:194) Q"
^XMB(3.9,58,2,5087,0)="""RTN"",""ICDTLB3B"",47,0)"
^XMB(3.9,58,2,5088,0)=" I ICDPD[""M""&(ICDOR[""h"") S ICDRG=199 Q"
^XMB(3.9,58,2,5089,0)="""RTN"",""ICDTLB3B"",48,0)"
^XMB(3.9,58,2,5090,0)=" I ICDPD'[""M""&(ICDOR[""h"") S ICDRG=200 Q"
^XMB(3.9,58,2,5091,0)="""RTN"",""ICDTLB3B"",49,0)"
^XMB(3.9,58,2,5092,0)=" I ICDPD[""M""&(ICDOR'[""h"") S ICDRG=203 Q"
^XMB(3.9,58,2,5093,0)="""RTN"",""ICDTLB3B"",50,0)"
^XMB(3.9,58,2,5094,0)=" S ICDRG=204"
^XMB(3.9,58,2,5095,0)="""RTN"",""ICDTLB3B"",51,0)"
^XMB(3.9,58,2,5096,0)=" Q"
^XMB(3.9,58,2,5097,0)="""RTN"",""ICDTLB3B"",52,0)"
^XMB(3.9,58,2,5098,0)="DRG194 D DRG193 Q"
^XMB(3.9,58,2,5099,0)="""RTN"",""ICDTLB3B"",53,0)"
^XMB(3.9,58,2,5100,0)="DRG195 G:ICDOR[""TT"" DRG493^ICDTLB6B D DRG193 Q"
^XMB(3.9,58,2,5101,0)="""RTN"",""ICDTLB3B"",54,0)"
^XMB(3.9,58,2,5102,0)="DRG196 D DRG193 Q"
^XMB(3.9,58,2,5103,0)="""RTN"",""ICDTLB3B"",55,0)"
^XMB(3.9,58,2,5104,0)="DRG197 S ICDRG=$S(ICDCC:197,1:198) Q"
^XMB(3.9,58,2,5105,0)="""RTN"",""ICDTLB3B"",56,0)"
^XMB(3.9,58,2,5106,0)="DRG198 S ICDRG=$S(ICDCC:197,1:198) Q"
^XMB(3.9,58,2,5107,0)="""RTN"",""ICDTLB3B"",57,0)"
^XMB(3.9,58,2,5108,0)="DRG199 D DRG193 Q"
^XMB(3.9,58,2,5109,0)="""RTN"",""ICDTLB3B"",58,0)"
^XMB(3.9,58,2,5110,0)="DRG200 D DRG193 Q"
^XMB(3.9,58,2,5111,0)="""RTN"",""ICDTLB3B"",59,0)"
^XMB(3.9,58,2,5112,0)="DRG205 S ICDRG=$S(ICDCC:205,1:206) Q"
^XMB(3.9,58,2,5113,0)="""RTN"",""ICDTLB3B"",60,0)"
^XMB(3.9,58,2,5114,0)="DRG206 S ICDRG=$S(ICDCC:205,1:206) Q"
^XMB(3.9,58,2,5115,0)="""RTN"",""ICDTLB3B"",61,0)"
^XMB(3.9,58,2,5116,0)="DRG207 S ICDRG=$S(ICDCC:207,1:208) Q"
^XMB(3.9,58,2,5117,0)="""RTN"",""ICDTLB3B"",62,0)"
^XMB(3.9,58,2,5118,0)="DRG208 S ICDRG=$S(ICDCC:207,1:208) Q"
^XMB(3.9,58,2,5119,0)="""RTN"",""ICDTLB3B"",63,0)"
^XMB(3.9,58,2,5120,0)="DRG209 S ICDRG=$S($F($P(ICDOR,""M"",2,99),""M""):471,1:209) Q"
^XMB(3.9,58,2,5121,0)="""RTN"",""ICDTLB3B"",64,0)"
^XMB(3.9,58,2,5122,0)="DRG210 S ICDRG=$S(AGE<18:212,ICDCC:210,1:211) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5123,0)="""RTN"",""ICDTLB3B"",65,0)"
^XMB(3.9,58,2,5124,0)=" Q"
^XMB(3.9,58,2,5125,0)="""RTN"",""ICDTLB3B"",66,0)"
^XMB(3.9,58,2,5126,0)="DRG211 S ICDRG=$S(AGE<18:212,ICDCC:210,1:211) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5127,0)="""RTN"",""ICDTLB3B"",67,0)"
^XMB(3.9,58,2,5128,0)=" Q"
^XMB(3.9,58,2,5129,0)="""RTN"",""ICDTLB3B"",68,0)"
^XMB(3.9,58,2,5130,0)="DRG212 S ICDRG=$S(AGE<18:212,ICDCC:210,1:211) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5131,0)="""RTN"",""ICDTLB3B"",69,0)"
^XMB(3.9,58,2,5132,0)=" Q"
^XMB(3.9,58,2,5133,0)="""RTN"",""ICDTLB3B"",70,0)"
^XMB(3.9,58,2,5134,0)="DRG214 Q"
^XMB(3.9,58,2,5135,0)="""RTN"",""ICDTLB3B"",71,0)"
^XMB(3.9,58,2,5136,0)="DRG215 Q"
^XMB(3.9,58,2,5137,0)="""RTN"",""ICDTLB3B"",72,0)"
^XMB(3.9,58,2,5138,0)="DRG218 S ICDRG=$S(AGE<18:220,ICDCC:218,1:219) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5139,0)="""RTN"",""ICDTLB3B"",73,0)"
^XMB(3.9,58,2,5140,0)=" Q"
^XMB(3.9,58,2,5141,0)="""RTN"",""ICDTLB3B"",74,0)"
^XMB(3.9,58,2,5142,0)="DRG219 S ICDRG=$S(AGE<18:220,ICDCC:218,1:219) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5143,0)="""RTN"",""ICDTLB3B"",75,0)"
^XMB(3.9,58,2,5144,0)=" Q"
^XMB(3.9,58,2,5145,0)="""RTN"",""ICDTLB3B"",76,0)"
^XMB(3.9,58,2,5146,0)="DRG220 S ICDRG=$S(AGE<18:220,ICDCC:218,1:219) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5147,0)="""RTN"",""ICDTLB3B"",77,0)"
^XMB(3.9,58,2,5148,0)=" Q"
^XMB(3.9,58,2,5149,0)="""RTN"",""ICDTLB3B"",78,0)"
^XMB(3.9,58,2,5150,0)="DRG221 Q"
^XMB(3.9,58,2,5151,0)="""RTN"",""ICDTLB3B"",79,0)"
^XMB(3.9,58,2,5152,0)="DRG222 Q"
^XMB(3.9,58,2,5153,0)="""RTN"",""ICDTLB3B"",80,0)"
^XMB(3.9,58,2,5154,0)="DRG224 S ICDRG=$S(ICDCC:223,1:224) Q"
^XMB(3.9,58,2,5155,0)="""RTN"",""ICDTLB3B"",81,0)"
^XMB(3.9,58,2,5156,0)="DRG226 S ICDRG=$S(ICDCC:226,1:227) Q"
^XMB(3.9,58,2,5157,0)="""RTN"",""ICDTLB3B"",82,0)"
^XMB(3.9,58,2,5158,0)="DRG227 S ICDRG=$S(ICDCC:226,1:227) Q"
^XMB(3.9,58,2,5159,0)="""RTN"",""ICDTLB3B"",83,0)"
^XMB(3.9,58,2,5160,0)="DRG228 S ICDRG=$S(ICDOR[""O2"":228,ICDCC:228,1:229) Q"
^XMB(3.9,58,2,5161,0)="""RTN"",""ICDTLB3B"",84,0)"
^XMB(3.9,58,2,5162,0)="DRG229 S ICDRG=$S(ICDOR[""O2"":228,ICDCC:228,1:229) Q"
^XMB(3.9,58,2,5163,0)="""RTN"",""ICDTLB3B"",85,0)"
^XMB(3.9,58,2,5164,0)="DRG232 S ICDRG=232 Q"
^XMB(3.9,58,2,5165,0)="""RTN"",""ICDTLB3B"",86,0)"
^XMB(3.9,58,2,5166,0)="DRG233 S ICDRG=$S(ICDCC:233,1:234) Q"
^XMB(3.9,58,2,5167,0)="""RTN"",""ICDTLB3B"",87,0)"
^XMB(3.9,58,2,5168,0)="DRG234 S ICDRG=$S(ICDCC:233,1:234) Q"
^XMB(3.9,58,2,5169,0)="""RTN"",""ICDTLB3B"",88,0)"
^XMB(3.9,58,2,5170,0)="DRG240 S ICDRG=$S(ICDCC:240,1:241) Q"
^XMB(3.9,58,2,5171,0)="""RTN"",""ICDTLB3B"",89,0)"
^XMB(3.9,58,2,5172,0)="DRG241 S ICDRG=$S(ICDCC:240,1:241) Q"
^XMB(3.9,58,2,5173,0)="""RTN"",""ICDTLB3B"",90,0)"
^XMB(3.9,58,2,5174,0)="DRG244 S ICDRG=$S(ICDCC:244,1:245) Q"
^XMB(3.9,58,2,5175,0)="""RTN"",""ICDTLB3B"",91,0)"
^XMB(3.9,58,2,5176,0)="DRG245 S ICDRG=$S(ICDCC:244,1:245) Q"
^XMB(3.9,58,2,5177,0)="""RTN"",""ICDTLB3B"",92,0)"
^XMB(3.9,58,2,5178,0)="DRG250 S ICDRG=$S(AGE<18:252,ICDCC:250,1:251) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5179,0)="""RTN"",""ICDTLB3B"",93,0)"
^XMB(3.9,58,2,5180,0)=" Q"
^XMB(3.9,58,2,5181,0)="""RTN"",""ICDTLB3B"",94,0)"
^XMB(3.9,58,2,5182,0)="DRG251 S ICDRG=$S(AGE<18:252,ICDCC:250,1:251) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5183,0)="""RTN"",""ICDTLB3B"",95,0)"
^XMB(3.9,58,2,5184,0)=" Q"
^XMB(3.9,58,2,5185,0)="""RTN"",""ICDTLB3B"",96,0)"
^XMB(3.9,58,2,5186,0)="DRG252 S ICDRG=$S(AGE<18:252,ICDCC:250,1:251) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5187,0)="""RTN"",""ICDTLB3B"",97,0)"
^XMB(3.9,58,2,5188,0)=" Q"
^XMB(3.9,58,2,5189,0)="""RTN"",""ICDTLB3B"",98,0)"
^XMB(3.9,58,2,5190,0)="DRG253 S ICDRG=$S(AGE<18:255,ICDCC:253,1:254) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5191,0)="""RTN"",""ICDTLB3B"",99,0)"
^XMB(3.9,58,2,5192,0)=" Q"
^XMB(3.9,58,2,5193,0)="""RTN"",""ICDTLB3B"",100,0)"
^XMB(3.9,58,2,5194,0)="DRG254 S ICDRG=$S(AGE<18:255,ICDCC:253,1:254) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5195,0)="""RTN"",""ICDTLB3B"",101,0)"
^XMB(3.9,58,2,5196,0)=" Q"
^XMB(3.9,58,2,5197,0)="""RTN"",""ICDTLB3B"",102,0)"
^XMB(3.9,58,2,5198,0)="DRG255 S ICDRG=$S(AGE<18:255,ICDCC:253,1:254) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5199,0)="""RTN"",""ICDTLB3B"",103,0)"
^XMB(3.9,58,2,5200,0)=" Q"
^XMB(3.9,58,2,5201,0)="""RTN"",""ICDTLB3B"",104,0)"
^XMB(3.9,58,2,5202,0)="DRG256 S ICDRG=256 Q"
^XMB(3.9,58,2,5203,0)="""RTN"",""ICDTLB3B"",105,0)"
^XMB(3.9,58,2,5204,0)="DRG257 I ICDOR'=""""&(ICDOR[""M"") D"
^XMB(3.9,58,2,5205,0)="""RTN"",""ICDTLB3B"",106,0)"
^XMB(3.9,58,2,5206,0)=" .S ICDRG=$S(ICDPD[""r""&(ICDCC):257,ICDSD[""r""&(ICDCC):257,ICDPD[""r"":258,ICDSD[""r"":258,1:"""")"
^XMB(3.9,58,2,5207,0)="""RTN"",""ICDTLB3B"",107,0)"
^XMB(3.9,58,2,5208,0)=" S:ICDRG="""" ICDRG=261"
^XMB(3.9,58,2,5209,0)="""RTN"",""ICDTLB3B"",108,0)"
^XMB(3.9,58,2,5210,0)=" Q"
^XMB(3.9,58,2,5211,0)="""RTN"",""ICDTLB3B"",109,0)"
^XMB(3.9,58,2,5212,0)="DRG258 D DRG257 Q"
^XMB(3.9,58,2,5213,0)="""RTN"",""ICDTLB3B"",110,0)"
^XMB(3.9,58,2,5214,0)="DRG259 I ICDOR'=""""&(ICDOR[""m"") D"
^XMB(3.9,58,2,5215,0)="""RTN"",""ICDTLB3B"",111,0)"
^XMB(3.9,58,2,5216,0)=" .S ICDRG=$S(ICDPD[""r""&(ICDCC):259,ICDSD[""r""&(ICDCC):259,ICDPD[""r"":260,ICDSD[""r"":260,ICDOR[""L"":262,1:"""")"
^XMB(3.9,58,2,5217,0)="""RTN"",""ICDTLB3B"",112,0)"
^XMB(3.9,58,2,5218,0)=" .I $D(ICDOP(""85.12 ""))!$D(ICDOP(""85.20 ""))!$D(ICDOP(""85.21 "")) S ICDRG=262"
^XMB(3.9,58,2,5219,0)="""RTN"",""ICDTLB3B"",113,0)"
^XMB(3.9,58,2,5220,0)=" S:ICDRG="""" ICDRG=261"
^XMB(3.9,58,2,5221,0)="""RTN"",""ICDTLB3B"",114,0)"
^XMB(3.9,58,2,5222,0)=" Q"
^XMB(3.9,58,2,5223,0)="""RTN"",""ICDTLB3B"",115,0)"
^XMB(3.9,58,2,5224,0)="DRG260 D DRG259 Q"
^XMB(3.9,58,2,5225,0)="""RTN"",""ICDTLB3B"",116,0)"
^XMB(3.9,58,2,5226,0)="DRG262 D DRG259 Q"
^XMB(3.9,58,2,5227,0)="""RTN"",""ICDTLB4B"")"
^XMB(3.9,58,2,5228,0)="0^20^B17888498"
^XMB(3.9,58,2,5229,0)="""RTN"",""ICDTLB4B"",1,0)"
^XMB(3.9,58,2,5230,0)="ICDTLB4B ;ALB/EG - GROUPER UTILITY FUNCTIONS FY 2006; 10/23/00 11:48am ; 6/28/05 4:04pm"
^XMB(3.9,58,2,5231,0)="""RTN"",""ICDTLB4B"",2,0)"
^XMB(3.9,58,2,5232,0)=" ;;18.0;DRG Grouper;**20**;Oct 20, 2000"
^XMB(3.9,58,2,5233,0)="""RTN"",""ICDTLB4B"",3,0)"
^XMB(3.9,58,2,5234,0)="DRG263 S ICDRG=$S(ICDPD[""U""&(ICDCC):263,ICDPD[""U"":264,ICDCC:265,1:266) Q"
^XMB(3.9,58,2,5235,0)="""RTN"",""ICDTLB4B"",4,0)"
^XMB(3.9,58,2,5236,0)="DRG264 S ICDRG=$S(ICDPD[""U""&(ICDCC):263,ICDPD[""U"":264,ICDCC:265,1:266) Q"
^XMB(3.9,58,2,5237,0)="""RTN"",""ICDTLB4B"",5,0)"
^XMB(3.9,58,2,5238,0)="DRG265 S ICDRG=$S(ICDPD[""U""&(ICDCC):263,ICDPD[""U"":264,ICDCC:265,1:266) Q"
^XMB(3.9,58,2,5239,0)="""RTN"",""ICDTLB4B"",6,0)"
^XMB(3.9,58,2,5240,0)="DRG266 S ICDRG=$S(ICDPD[""U""&(ICDCC):263,ICDPD[""U"":264,ICDCC:265,1:266) Q"
^XMB(3.9,58,2,5241,0)="""RTN"",""ICDTLB4B"",7,0)"
^XMB(3.9,58,2,5242,0)="DRG269 S ICDRG=$S(ICDCC:269,1:270) Q"
^XMB(3.9,58,2,5243,0)="""RTN"",""ICDTLB4B"",8,0)"
^XMB(3.9,58,2,5244,0)="DRG270 S ICDRG=$S(ICDCC:269,1:270) Q"
^XMB(3.9,58,2,5245,0)="""RTN"",""ICDTLB4B"",9,0)"
^XMB(3.9,58,2,5246,0)="DRG272 S ICDRG=$S(ICDCC:272,1:273) Q"
^XMB(3.9,58,2,5247,0)="""RTN"",""ICDTLB4B"",10,0)"
^XMB(3.9,58,2,5248,0)="DRG273 S ICDRG=$S(ICDCC:272,1:273) Q"
^XMB(3.9,58,2,5249,0)="""RTN"",""ICDTLB4B"",11,0)"
^XMB(3.9,58,2,5250,0)="DRG274 S ICDRG=$S(ICDCC:274,1:275) Q"
^XMB(3.9,58,2,5251,0)="""RTN"",""ICDTLB4B"",12,0)"
^XMB(3.9,58,2,5252,0)="DRG275 S ICDRG=$S(ICDCC:274,1:275) Q"
^XMB(3.9,58,2,5253,0)="""RTN"",""ICDTLB4B"",13,0)"
^XMB(3.9,58,2,5254,0)="DRG277 S ICDRG=$S(AGE<18:279,ICDCC:277,1:278) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5255,0)="""RTN"",""ICDTLB4B"",14,0)"
^XMB(3.9,58,2,5256,0)=" Q"
^XMB(3.9,58,2,5257,0)="""RTN"",""ICDTLB4B"",15,0)"
^XMB(3.9,58,2,5258,0)="DRG278 D DRG277 Q"
^XMB(3.9,58,2,5259,0)="""RTN"",""ICDTLB4B"",16,0)"
^XMB(3.9,58,2,5260,0)=" Q"
^XMB(3.9,58,2,5261,0)="""RTN"",""ICDTLB4B"",17,0)"
^XMB(3.9,58,2,5262,0)="DRG279 D DRG277 Q"
^XMB(3.9,58,2,5263,0)="""RTN"",""ICDTLB4B"",18,0)"
^XMB(3.9,58,2,5264,0)=" Q"
^XMB(3.9,58,2,5265,0)="""RTN"",""ICDTLB4B"",19,0)"
^XMB(3.9,58,2,5266,0)="DRG280 S ICDRG=$S(AGE<18:282,ICDCC:280,1:281) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5267,0)="""RTN"",""ICDTLB4B"",20,0)"
^XMB(3.9,58,2,5268,0)=" Q"
^XMB(3.9,58,2,5269,0)="""RTN"",""ICDTLB4B"",21,0)"
^XMB(3.9,58,2,5270,0)="DRG281 S ICDRG=$S(AGE<18:282,ICDCC:280,1:281) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5271,0)="""RTN"",""ICDTLB4B"",22,0)"
^XMB(3.9,58,2,5272,0)=" Q"
^XMB(3.9,58,2,5273,0)="""RTN"",""ICDTLB4B"",23,0)"
^XMB(3.9,58,2,5274,0)="DRG282 S ICDRG=$S(AGE<18:282,ICDCC:280,1:281) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5275,0)="""RTN"",""ICDTLB4B"",24,0)"
^XMB(3.9,58,2,5276,0)=" Q"
^XMB(3.9,58,2,5277,0)="""RTN"",""ICDTLB4B"",25,0)"
^XMB(3.9,58,2,5278,0)="DRG283 S ICDRG=$S('$D(ICDODRG)&(ICDORNR>0):468,ICDCC=1:283,1:284) Q"
^XMB(3.9,58,2,5279,0)="""RTN"",""ICDTLB4B"",26,0)"
^XMB(3.9,58,2,5280,0)="DRG284 S ICDRG=$S('$D(ICDODRG)&(ICDORNR>0):468,ICDCC:283,1:284) Q"
^XMB(3.9,58,2,5281,0)="""RTN"",""ICDTLB4B"",27,0)"
^XMB(3.9,58,2,5282,0)="DRG292 S ICDRG=$S($D(ICDOP("" 55.69"")):302,ICDCC:292,1:293) Q"
^XMB(3.9,58,2,5283,0)="""RTN"",""ICDTLB4B"",28,0)"
^XMB(3.9,58,2,5284,0)="DRG293 S ICDRG=$S($D(ICDOP("" 55.69"")):302,ICDCC:292,1:293) Q"
^XMB(3.9,58,2,5285,0)="""RTN"",""ICDTLB4B"",29,0)"
^XMB(3.9,58,2,5286,0)="DRG294 S ICDRG=$S(AGE<36:295,1:294) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5287,0)="""RTN"",""ICDTLB4B"",30,0)"
^XMB(3.9,58,2,5288,0)=" Q"
^XMB(3.9,58,2,5289,0)="""RTN"",""ICDTLB4B"",31,0)"
^XMB(3.9,58,2,5290,0)="DRG295 S ICDRG=$S(AGE<36:295,1:294) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5291,0)="""RTN"",""ICDTLB4B"",32,0)"
^XMB(3.9,58,2,5292,0)=" Q"
^XMB(3.9,58,2,5293,0)="""RTN"",""ICDTLB4B"",33,0)"
^XMB(3.9,58,2,5294,0)="DRG296 S ICDRG=$S(AGE<18:298,ICDCC:296,1:297) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5295,0)="""RTN"",""ICDTLB4B"",34,0)"
^XMB(3.9,58,2,5296,0)=" Q"
^XMB(3.9,58,2,5297,0)="""RTN"",""ICDTLB4B"",35,0)"
^XMB(3.9,58,2,5298,0)="DRG297 S ICDRG=$S(AGE<18:298,ICDCC:296,1:297) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5299,0)="""RTN"",""ICDTLB4B"",36,0)"
^XMB(3.9,58,2,5300,0)=" Q"
^XMB(3.9,58,2,5301,0)="""RTN"",""ICDTLB4B"",37,0)"
^XMB(3.9,58,2,5302,0)="DRG298 S ICDRG=$S(AGE<18:298,ICDCC:296,1:297) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5303,0)="""RTN"",""ICDTLB4B"",38,0)"
^XMB(3.9,58,2,5304,0)=" Q"
^XMB(3.9,58,2,5305,0)="""RTN"",""ICDTLB4B"",39,0)"
^XMB(3.9,58,2,5306,0)="DRG299 S ICDRG=299 Q"
^XMB(3.9,58,2,5307,0)="""RTN"",""ICDTLB4B"",40,0)"
^XMB(3.9,58,2,5308,0)="DRG300 S ICDRG=$S(ICDCC:300,1:301) Q"
^XMB(3.9,58,2,5309,0)="""RTN"",""ICDTLB4B"",41,0)"
^XMB(3.9,58,2,5310,0)="DRG301 S ICDRG=$S(ICDCC:300,1:301) Q"
^XMB(3.9,58,2,5311,0)="""RTN"",""ICDTLB4B"",42,0)"
^XMB(3.9,58,2,5312,0)="DRG302 S ICDRG=$S($D(ICDOP("" 55.69"")):302,1:ICDRG) Q"
^XMB(3.9,58,2,5313,0)="""RTN"",""ICDTLB4B"",43,0)"
^XMB(3.9,58,2,5314,0)="DRG303 S ICDRG=$S(ICDPD[""M"":303,ICDCC:304,1:305) Q"
^XMB(3.9,58,2,5315,0)="""RTN"",""ICDTLB4B"",44,0)"
^XMB(3.9,58,2,5316,0)="DRG304 S ICDRG=$S(ICDPD[""M"":303,ICDCC:304,1:305) Q"
^XMB(3.9,58,2,5317,0)="""RTN"",""ICDTLB4B"",45,0)"
^XMB(3.9,58,2,5318,0)="DRG305 S ICDRG=$S(ICDPD[""M"":303,ICDCC:304,1:305) Q"
^XMB(3.9,58,2,5319,0)="""RTN"",""ICDTLB4B"",46,0)"
^XMB(3.9,58,2,5320,0)="DRG306 S ICDRG=$S($D(ICDODRG(308))!($D(ICDODRG(309))):$S(ICDCC:308,1:309),ICDCC:306,1:307) Q"
^XMB(3.9,58,2,5321,0)="""RTN"",""ICDTLB4B"",47,0)"
^XMB(3.9,58,2,5322,0)="DRG307 S ICDRG=$S($D(ICDODRG(308))!($D(ICDODRG(309))):$S(ICDCC:308,1:309),ICDCC:306,1:307) Q"
^XMB(3.9,58,2,5323,0)="""RTN"",""ICDTLB4B"",48,0)"
^XMB(3.9,58,2,5324,0)="DRG308 S ICDRG=$S($D(ICDODRG(308))!($D(ICDODRG(309))):$S(ICDCC:308,1:309),ICDCC:306,1:307) Q"
^XMB(3.9,58,2,5325,0)="""RTN"",""ICDTLB4B"",49,0)"
^XMB(3.9,58,2,5326,0)="DRG309 S ICDRG=$S($D(ICDODRG(308))!($D(ICDODRG(309))):$S(ICDCC:308,1:309),ICDCC:306,1:307) Q"
^XMB(3.9,58,2,5327,0)="""RTN"",""ICDTLB4B"",50,0)"
^XMB(3.9,58,2,5328,0)="DRG310 S ICDRG=$S(ICDCC:310,1:311) Q"
^XMB(3.9,58,2,5329,0)="""RTN"",""ICDTLB4B"",51,0)"
^XMB(3.9,58,2,5330,0)="DRG311 S ICDRG=$S(ICDCC:310,1:311) Q"
^XMB(3.9,58,2,5331,0)="""RTN"",""ICDTLB4B"",52,0)"
^XMB(3.9,58,2,5332,0)="DRG312 S ICDRG=$S(AGE<18:314,ICDCC:312,1:313) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5333,0)="""RTN"",""ICDTLB4B"",53,0)"
^XMB(3.9,58,2,5334,0)=" Q"
^XMB(3.9,58,2,5335,0)="""RTN"",""ICDTLB4B"",54,0)"
^XMB(3.9,58,2,5336,0)="DRG313 S ICDRG=$S(AGE<18:314,ICDCC:312,1:313) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5337,0)="""RTN"",""ICDTLB4B"",55,0)"
^XMB(3.9,58,2,5338,0)=" Q"
^XMB(3.9,58,2,5339,0)="""RTN"",""ICDTLB4B"",56,0)"
^XMB(3.9,58,2,5340,0)="DRG314 S ICDRG=$S(AGE<18:314,ICDCC:312,1:313) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5341,0)="""RTN"",""ICDTLB4B"",57,0)"
^XMB(3.9,58,2,5342,0)=" Q"
^XMB(3.9,58,2,5343,0)="""RTN"",""ICDTLB4B"",58,0)"
^XMB(3.9,58,2,5344,0)="DRG315 I ICDORNI[""V""&($D(ICDOP("" 86.07"")))!((ICDDX(1)=$O(^ICD9(""AB"",""250.41 "",0))!(ICDDX(1)=$O(^ICD9(""AB"",""250.43 "",0))))&($D(ICDOP("" 52.84""))!$D(ICDOP("" 52.85"")))) S ICDDRG=315"
^XMB(3.9,58,2,5345,0)="""RTN"",""ICDTLB4B"",59,0)"
^XMB(3.9,58,2,5346,0)=" Q"
^XMB(3.9,58,2,5347,0)="""RTN"",""ICDTLB4B"",60,0)"
^XMB(3.9,58,2,5348,0)="DRG318 S ICDRG=$S(ICDCC:318,1:319) Q"
^XMB(3.9,58,2,5349,0)="""RTN"",""ICDTLB4B"",61,0)"
^XMB(3.9,58,2,5350,0)="DRG319 S ICDRG=$S(ICDCC:318,1:319) Q"
^XMB(3.9,58,2,5351,0)="""RTN"",""ICDTLB4B"",62,0)"
^XMB(3.9,58,2,5352,0)="DRG320 S ICDRG=$S(AGE<18:322,ICDCC:320,1:321) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5353,0)="""RTN"",""ICDTLB4B"",63,0)"
^XMB(3.9,58,2,5354,0)=" Q"
^XMB(3.9,58,2,5355,0)="""RTN"",""ICDTLB4B"",64,0)"
^XMB(3.9,58,2,5356,0)="DRG321 S ICDRG=$S(AGE<18:322,ICDCC:320,1:321) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5357,0)="""RTN"",""ICDTLB4B"",65,0)"
^XMB(3.9,58,2,5358,0)=" Q"
^XMB(3.9,58,2,5359,0)="""RTN"",""ICDTLB4B"",66,0)"
^XMB(3.9,58,2,5360,0)="DRG322 S ICDRG=$S(AGE<18:322,ICDCC:320,1:321) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5361,0)="""RTN"",""ICDTLB4B"",67,0)"
^XMB(3.9,58,2,5362,0)=" Q"
^XMB(3.9,58,2,5363,0)="""RTN"",""ICDTLB4B"",68,0)"
^XMB(3.9,58,2,5364,0)="DRG323 S ICDRG=$S('$D(ICDPDRG(323)):"""",ICDCC!($D(ICDOP("" 98.51"")))!($D(ICDSDRG(323))):323,1:324) Q"
^XMB(3.9,58,2,5365,0)="""RTN"",""ICDTLB4B"",69,0)"
^XMB(3.9,58,2,5366,0)="DRG324 S ICDRG=$S(ICDCC!($D(ICDOP("" 98.51"")))!($D(ICDSDRG(323))):323,1:324) Q"
^XMB(3.9,58,2,5367,0)="""RTN"",""ICDTLB4B"",70,0)"
^XMB(3.9,58,2,5368,0)="DRG325 S ICDRG=$S(AGE<18:327,ICDCC:325,1:326) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5369,0)="""RTN"",""ICDTLB4B"",71,0)"
^XMB(3.9,58,2,5370,0)=" Q"
^XMB(3.9,58,2,5371,0)="""RTN"",""ICDTLB4B"",72,0)"
^XMB(3.9,58,2,5372,0)="DRG326 S ICDRG=$S(AGE<18:327,ICDCC:325,1:326) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5373,0)="""RTN"",""ICDTLB4B"",73,0)"
^XMB(3.9,58,2,5374,0)=" Q"
^XMB(3.9,58,2,5375,0)="""RTN"",""ICDTLB4B"",74,0)"
^XMB(3.9,58,2,5376,0)="DRG327 S ICDRG=$S(AGE<18:327,ICDCC:325,1:326) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5377,0)="""RTN"",""ICDTLB4B"",75,0)"
^XMB(3.9,58,2,5378,0)=" Q"
^XMB(3.9,58,2,5379,0)="""RTN"",""ICDTLB4B"",76,0)"
^XMB(3.9,58,2,5380,0)="DRG328 S ICDRG=$S(AGE<18:330,ICDCC:328,1:329) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5381,0)="""RTN"",""ICDTLB4B"",77,0)"
^XMB(3.9,58,2,5382,0)=" Q"
^XMB(3.9,58,2,5383,0)="""RTN"",""ICDTLB4B"",78,0)"
^XMB(3.9,58,2,5384,0)="DRG329 S ICDRG=$S(AGE<18:330,ICDCC:328,1:329) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5385,0)="""RTN"",""ICDTLB4B"",79,0)"
^XMB(3.9,58,2,5386,0)=" Q"
^XMB(3.9,58,2,5387,0)="""RTN"",""ICDTLB4B"",80,0)"
^XMB(3.9,58,2,5388,0)="DRG330 S ICDRG=$S(AGE<18:330,ICDCC:328,1:329) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5389,0)="""RTN"",""ICDTLB4B"",81,0)"
^XMB(3.9,58,2,5390,0)=" Q"
^XMB(3.9,58,2,5391,0)="""RTN"",""ICDTLB4B"",82,0)"
^XMB(3.9,58,2,5392,0)="DRG331 S ICDRG=$S(AGE<18:333,ICDCC:331,1:332) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5393,0)="""RTN"",""ICDTLB4B"",83,0)"
^XMB(3.9,58,2,5394,0)=" Q"
^XMB(3.9,58,2,5395,0)="""RTN"",""ICDTLB4B"",84,0)"
^XMB(3.9,58,2,5396,0)="DRG332 S ICDRG=$S(AGE<18:333,ICDCC:331,1:332) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5397,0)="""RTN"",""ICDTLB4B"",85,0)"
^XMB(3.9,58,2,5398,0)=" Q"
^XMB(3.9,58,2,5399,0)="""RTN"",""ICDTLB4B"",86,0)"
^XMB(3.9,58,2,5400,0)="DRG333 S ICDRG=$S(AGE<18:333,ICDCC:331,1:332) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5401,0)="""RTN"",""ICDTLB4B"",87,0)"
^XMB(3.9,58,2,5402,0)=" Q"
^XMB(3.9,58,2,5403,0)="""RTN"",""ICDTLB5B"")"
^XMB(3.9,58,2,5404,0)="0^21^B21200427"
^XMB(3.9,58,2,5405,0)="""RTN"",""ICDTLB5B"",1,0)"
^XMB(3.9,58,2,5406,0)="ICDTLB5B ;ALB/EG/ADL - GROUPER UTILITY FUNCTIONS FY 2006; 10/23/00 11:49am ; 6/28/05 4:05pm"
^XMB(3.9,58,2,5407,0)="""RTN"",""ICDTLB5B"",2,0)"
^XMB(3.9,58,2,5408,0)=" ;;18.0;DRG Grouper;**20**;Oct 20, 2000"
^XMB(3.9,58,2,5409,0)="""RTN"",""ICDTLB5B"",3,0)"
^XMB(3.9,58,2,5410,0)=" ;;ADL;UPDATE FOR CSV PROJECT;Mar 12, 2003"
^XMB(3.9,58,2,5411,0)="""RTN"",""ICDTLB5B"",4,0)"
^XMB(3.9,58,2,5412,0)="DRG334 S ICDRG=$S(ICDCC:334,1:335) Q"
^XMB(3.9,58,2,5413,0)="""RTN"",""ICDTLB5B"",5,0)"
^XMB(3.9,58,2,5414,0)="DRG335 S ICDRG=$S(ICDCC:334,1:335) Q"
^XMB(3.9,58,2,5415,0)="""RTN"",""ICDTLB5B"",6,0)"
^XMB(3.9,58,2,5416,0)="DRG336 S ICDRG=$S(ICDCC:336,1:337) Q"
^XMB(3.9,58,2,5417,0)="""RTN"",""ICDTLB5B"",7,0)"
^XMB(3.9,58,2,5418,0)="DRG337 S ICDRG=$S(ICDCC:336,1:337) Q"
^XMB(3.9,58,2,5419,0)="""RTN"",""ICDTLB5B"",8,0)"
^XMB(3.9,58,2,5420,0)="DRG338 I SEX=""M"" D  Q"
^XMB(3.9,58,2,5421,0)="""RTN"",""ICDTLB5B"",9,0)"
^XMB(3.9,58,2,5422,0)=" .S ICDRG=$S(ICDPD[""M"":338,AGE="""":470,AGE>17:339,SEX="""":470,1:340),ICDRTC=$S(ICDRG=470:3,SEX="""":4,1:ICDRTC) Q"
^XMB(3.9,58,2,5423,0)="""RTN"",""ICDTLB5B"",10,0)"
^XMB(3.9,58,2,5424,0)=" I SEX=""F"" D  Q"
^XMB(3.9,58,2,5425,0)="""RTN"",""ICDTLB5B"",11,0)"
^XMB(3.9,58,2,5426,0)=" .I ICDOR[""O"" D DRG354 Q"
^XMB(3.9,58,2,5427,0)="""RTN"",""ICDTLB5B"",12,0)"
^XMB(3.9,58,2,5428,0)=" .I ICDOR[""Ogz"" D DRG363 Q"
^XMB(3.9,58,2,5429,0)="""RTN"",""ICDTLB5B"",13,0)"
^XMB(3.9,58,2,5430,0)=" .I ICDOR=""""!(ICDOR[""N"") D DRG366"
^XMB(3.9,58,2,5431,0)="""RTN"",""ICDTLB5B"",14,0)"
^XMB(3.9,58,2,5432,0)=" Q"
^XMB(3.9,58,2,5433,0)="""RTN"",""ICDTLB5B"",15,0)"
^XMB(3.9,58,2,5434,0)="DRG339 D DRG338 Q"
^XMB(3.9,58,2,5435,0)="""RTN"",""ICDTLB5B"",16,0)"
^XMB(3.9,58,2,5436,0)="DRG340 D DRG338 Q"
^XMB(3.9,58,2,5437,0)="""RTN"",""ICDTLB5B"",17,0)"
^XMB(3.9,58,2,5438,0)="DRG342 S ICDRG=$S(AGE>17:342,1:343) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5439,0)="""RTN"",""ICDTLB5B"",18,0)"
^XMB(3.9,58,2,5440,0)=" Q"
^XMB(3.9,58,2,5441,0)="""RTN"",""ICDTLB5B"",19,0)"
^XMB(3.9,58,2,5442,0)="DRG343 S ICDRG=$S(AGE>17:342,1:343) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5443,0)="""RTN"",""ICDTLB5B"",20,0)"
^XMB(3.9,58,2,5444,0)=" Q"
^XMB(3.9,58,2,5445,0)="""RTN"",""ICDTLB5B"",21,0)"
^XMB(3.9,58,2,5446,0)="DRG344 S ICDRG=$S(ICDPD[""M"":344,1:345) Q"
^XMB(3.9,58,2,5447,0)="""RTN"",""ICDTLB5B"",22,0)"
^XMB(3.9,58,2,5448,0)="DRG345 S ICDRG=$S(ICDPD[""M"":344,1:345) Q"
^XMB(3.9,58,2,5449,0)="""RTN"",""ICDTLB5B"",23,0)"
^XMB(3.9,58,2,5450,0)="DRG346 S ICDRG=$S(ICDCC:346,1:347) I ICDMDC=13 S ICDRG=$S(ICDRG=346:366,1:367)"
^XMB(3.9,58,2,5451,0)="""RTN"",""ICDTLB5B"",24,0)"
^XMB(3.9,58,2,5452,0)=" Q"
^XMB(3.9,58,2,5453,0)="""RTN"",""ICDTLB5B"",25,0)"
^XMB(3.9,58,2,5454,0)="DRG347 S ICDRG=$S(ICDCC:346,1:347) I ICDMDC=13 S ICDRG=$S(ICDRG=346:366,1:367)"
^XMB(3.9,58,2,5455,0)="""RTN"",""ICDTLB5B"",26,0)"
^XMB(3.9,58,2,5456,0)=" Q"
^XMB(3.9,58,2,5457,0)="""RTN"",""ICDTLB5B"",27,0)"
^XMB(3.9,58,2,5458,0)="DRG348 S ICDRG=$S(ICDCC:348,1:349) Q"
^XMB(3.9,58,2,5459,0)="""RTN"",""ICDTLB5B"",28,0)"
^XMB(3.9,58,2,5460,0)="DRG349 S ICDRG=$S(ICDCC:348,1:349) Q"
^XMB(3.9,58,2,5461,0)="""RTN"",""ICDTLB5B"",29,0)"
^XMB(3.9,58,2,5462,0)="DRG350 S ICDRG=$S(SEX=""M"":350,1:368) I SEX="""" S ICDRG=470,ICDRTC=4"
^XMB(3.9,58,2,5463,0)="""RTN"",""ICDTLB5B"",30,0)"
^XMB(3.9,58,2,5464,0)=" Q"
^XMB(3.9,58,2,5465,0)="""RTN"",""ICDTLB5B"",31,0)"
^XMB(3.9,58,2,5466,0)="DRG351 S ICDRG=$S('$D(ICDODRG)&(ICDORNR>0):468,SEX="""":470,SEX=""F"":369,1:351),ICDRTC=$S(ICDRG=470:4,1:ICDRTC) Q"
^XMB(3.9,58,2,5467,0)="""RTN"",""ICDTLB5B"",32,0)"
^XMB(3.9,58,2,5468,0)="DRG352 S ICDRG=$S(SEX=""M"":352,ICDPD[""P"":368,1:369) I SEX="""" S ICDRG=470,ICDRTC=4"
^XMB(3.9,58,2,5469,0)="""RTN"",""ICDTLB5B"",33,0)"
^XMB(3.9,58,2,5470,0)=" Q"
^XMB(3.9,58,2,5471,0)="""RTN"",""ICDTLB5B"",34,0)"
^XMB(3.9,58,2,5472,0)="DRG354 S ICDRG=$S(ICDPD[""M"":$S(ICDPD[""o"":357,ICDCC:354,1:355),ICDCC:358,1:359) Q"
^XMB(3.9,58,2,5473,0)="""RTN"",""ICDTLB5B"",35,0)"
^XMB(3.9,58,2,5474,0)="DRG355 D DRG354 Q"
^XMB(3.9,58,2,5475,0)="""RTN"",""ICDTLB5B"",36,0)"
^XMB(3.9,58,2,5476,0)="DRG357 S ICDRG=$S(ICDPD[""M"":$S(ICDPD[""o"":357,ICDCC:354,1:355),ICDCC:358,1:359) D:'ICDOPCT DRG368 Q"
^XMB(3.9,58,2,5477,0)="""RTN"",""ICDTLB5B"",37,0)"
^XMB(3.9,58,2,5478,0)="DRG358 D DRG357 Q"
^XMB(3.9,58,2,5479,0)="""RTN"",""ICDTLB5B"",38,0)"
^XMB(3.9,58,2,5480,0)="DRG359 D DRG357 Q"
^XMB(3.9,58,2,5481,0)="""RTN"",""ICDTLB5B"",39,0)"
^XMB(3.9,58,2,5482,0)="DRG363 S ICDRG=$S(ICDPD[""M"":363,1:364) Q"
^XMB(3.9,58,2,5483,0)="""RTN"",""ICDTLB5B"",40,0)"
^XMB(3.9,58,2,5484,0)="DRG364 S ICDRG=$S(ICDPD[""M"":363,1:364) Q"
^XMB(3.9,58,2,5485,0)="""RTN"",""ICDTLB5B"",41,0)"
^XMB(3.9,58,2,5486,0)="DRG366 S ICDRG=$S(ICDCC:366,1:367) Q"
^XMB(3.9,58,2,5487,0)="""RTN"",""ICDTLB5B"",42,0)"
^XMB(3.9,58,2,5488,0)="DRG367 S ICDRG=$S(ICDCC:366,1:367) Q"
^XMB(3.9,58,2,5489,0)="""RTN"",""ICDTLB5B"",43,0)"
^XMB(3.9,58,2,5490,0)="DRG368 S ICDRG=$S(SEX=""F"":368,1:470) I SEX="""" S ICDRG=470,ICDRTC=4"
^XMB(3.9,58,2,5491,0)="""RTN"",""ICDTLB5B"",44,0)"
^XMB(3.9,58,2,5492,0)=" Q"
^XMB(3.9,58,2,5493,0)="""RTN"",""ICDTLB5B"",45,0)"
^XMB(3.9,58,2,5494,0)="DRG369 S ICDRG=$S(SEX=""F"":369,1:470) I SEX="""" S ICDRTC=4 Q"
^XMB(3.9,58,2,5495,0)="""RTN"",""ICDTLB5B"",46,0)"
^XMB(3.9,58,2,5496,0)="DRG370 S ICDRG=$S(ICDOR[""c""&(ICDCC):370,ICDOR[""c"":371,ICDOR'[""s""&(ICDOR'[""g"")&(ICDSD[""v""!(ICDPD[""v"")):372,ICDOR'[""s""&(ICDOR'[""g""):373,ICDOR[""s"":374,ICDOR[""g"":375,1:470) Q"
^XMB(3.9,58,2,5497,0)="""RTN"",""ICDTLB5B"",47,0)"
^XMB(3.9,58,2,5498,0)="DRG371 S ICDRG=$S(ICDPD[""D""&(ICDCC):370,ICDPD[""D"":371,1:469) I $D(ICDOR)<11!(ICDOR[""n"") D DRG372"
^XMB(3.9,58,2,5499,0)="""RTN"",""ICDTLB5B"",48,0)"
^XMB(3.9,58,2,5500,0)=" Q"
^XMB(3.9,58,2,5501,0)="""RTN"",""ICDTLB5B"",49,0)"
^XMB(3.9,58,2,5502,0)="DRG372 S ICDRG=$S(ICDPD[""v""!(ICDSD[""v""):372,ICDOR[""s"":374,ICDOR[""g"":375,1:373) Q"
^XMB(3.9,58,2,5503,0)="""RTN"",""ICDTLB5B"",50,0)"
^XMB(3.9,58,2,5504,0)="DRG373 S ICDRG=$S(ICDPD[""D""&(ICDPD[""v""!(ICDPD[""D""&(ICDSD[""v""))):372,1:373) Q"
^XMB(3.9,58,2,5505,0)="""RTN"",""ICDTLB5B"",51,0)"
^XMB(3.9,58,2,5506,0)="DRG374 S ICDRG=$S($D(ICDPDRG(374)):374,1:"""") Q"
^XMB(3.9,58,2,5507,0)="""RTN"",""ICDTLB5B"",52,0)"
^XMB(3.9,58,2,5508,0)="DRG375 S ICDRG=$S(ICDPD[""D""!(ICDSD[""D""):375,1:"""") Q"
^XMB(3.9,58,2,5509,0)="""RTN"",""ICDTLB5B"",53,0)"
^XMB(3.9,58,2,5510,0)="DRG376 S ICDRG=$S(ICDOR[""O"":377,1:376) Q"
^XMB(3.9,58,2,5511,0)="""RTN"",""ICDTLB5B"",54,0)"
^XMB(3.9,58,2,5512,0)="DRG377 S ICDRG=$S(ICDOR[""O"":377,1:376) Q"
^XMB(3.9,58,2,5513,0)="""RTN"",""ICDTLB5B"",55,0)"
^XMB(3.9,58,2,5514,0)="DRG380 S ICDRG=$S(ICDOR[""d"":381,1:380) Q"
^XMB(3.9,58,2,5515,0)="""RTN"",""ICDTLB5B"",56,0)"
^XMB(3.9,58,2,5516,0)="DRG381 S ICDRG=$S('$D(ICDPDRG(381)):"""",ICDOR[""d"":381,1:380) Q"
^XMB(3.9,58,2,5517,0)="""RTN"",""ICDTLB5B"",57,0)"
^XMB(3.9,58,2,5518,0)="DRG383 S ICDRG=$S(ICDPD[""F""&(ICDSD[""u""):383,ICDSD[""u""!(ICDPD[""v""):383,ICDPD[""u"":383,1:384) Q"
^XMB(3.9,58,2,5519,0)="""RTN"",""ICDTLB5B"",58,0)"
^XMB(3.9,58,2,5520,0)="DRG384 D DRG383 Q"
^XMB(3.9,58,2,5521,0)="""RTN"",""ICDTLB5B"",59,0)"
^XMB(3.9,58,2,5522,0)="DRG387 ;"
^XMB(3.9,58,2,5523,0)="""RTN"",""ICDTLB5B"",60,0)"
^XMB(3.9,58,2,5524,0)=" S ICDRG=$S(ICDPD[""E"":386,ICDSD[""E"":386,ICDPD[""Hp""&(ICDSD[""J""):387,ICDPD[""J""&(ICDSD[""Hp""):387,ICDPD[""p""!(ICDSD[""p"")&((ICDPD'[""J"")!(ICDSD'[""J"")):388,1:"""") D:ICDRG="""" DRG389 Q"
^XMB(3.9,58,2,5525,0)="""RTN"",""ICDTLB5B"",61,0)"
^XMB(3.9,58,2,5526,0)="DRG388 D DRG387 Q"
^XMB(3.9,58,2,5527,0)="""RTN"",""ICDTLB5B"",62,0)"
^XMB(3.9,58,2,5528,0)="DRG389 S ICDRG=$S(ICDPD[""HR""&(ICDSD[""J""):389,ICDPD[""J""&(ICDSD[""HR""):389,ICDSD[""J"":389,ICDPD[""J"":389,'$D(ICDODRG)&('$D(ICDSDRG)):391,1:390) D:ICDRG=391 DRG391 Q"
^XMB(3.9,58,2,5529,0)="""RTN"",""ICDTLB5B"",63,0)"
^XMB(3.9,58,2,5530,0)="DRG390 D DRG389 Q"
^XMB(3.9,58,2,5531,0)="""RTN"",""ICDTLB5B"",64,0)"
^XMB(3.9,58,2,5532,0)="DRG391 S ICDRG=$S(ICDPD[""E""!(ICDSD[""E""):386,ICDPD[""J""&(ICDPD[""p""):387,ICDSD[""J""&(ICDSD[""p""):387,ICDPD[""p""&(ICDPD'[""J""):388,ICDSD[""p""&(ICDSD'[""J""):388,ICDPD[""J""!(ICDSD[""J""):389,1:"""") I ICDRG'="""" Q"
^XMB(3.9,58,2,5533,0)="""RTN"",""ICDTLB5B"",65,0)"
^XMB(3.9,58,2,5534,0)=" I ICDPD[""R"" D  Q:ICDRG=391"
^XMB(3.9,58,2,5535,0)="""RTN"",""ICDTLB5B"",66,0)"
^XMB(3.9,58,2,5536,0)=" .I '$D(ICDDX(2)) S ICDRG=391 Q"
^XMB(3.9,58,2,5537,0)="""RTN"",""ICDTLB5B"",67,0)"
^XMB(3.9,58,2,5538,0)=" .;ALL SECONDARIES CONTAIN ""R"", DRG=>391"
^XMB(3.9,58,2,5539,0)="""RTN"",""ICDTLB5B"",68,0)"
^XMB(3.9,58,2,5540,0)=" .N I"
^XMB(3.9,58,2,5541,0)="""RTN"",""ICDTLB5B"",69,0)"
^XMB(3.9,58,2,5542,0)=" .F I=1:1 Q:'$D(ICDDX(I))  S ICDRG=$S($P($$ICDDX^ICDCODE(ICDDX(1),ICDDATE),""^"",3)[""R"":391,1:390) Q:ICDRG=390"
^XMB(3.9,58,2,5543,0)="""RTN"",""ICDTLB5B"",70,0)"
^XMB(3.9,58,2,5544,0)=" I ICDSD[""R""&('$D(ICDDX(3))) S ICDRG=391 Q"
^XMB(3.9,58,2,5545,0)="""RTN"",""ICDTLB5B"",71,0)"
^XMB(3.9,58,2,5546,0)=" S ICDRG=390"
^XMB(3.9,58,2,5547,0)="""RTN"",""ICDTLB5B"",72,0)"
^XMB(3.9,58,2,5548,0)=" Q"
^XMB(3.9,58,2,5549,0)="""RTN"",""ICDTLB5B"",73,0)"
^XMB(3.9,58,2,5550,0)="DRG392 S ICDRG=$S(AGE>17:392,1:393) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5551,0)="""RTN"",""ICDTLB5B"",74,0)"
^XMB(3.9,58,2,5552,0)=" Q"
^XMB(3.9,58,2,5553,0)="""RTN"",""ICDTLB5B"",75,0)"
^XMB(3.9,58,2,5554,0)="DRG393 S ICDRG=$S(AGE>17:392,1:393) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5555,0)="""RTN"",""ICDTLB5B"",76,0)"
^XMB(3.9,58,2,5556,0)=" Q"
^XMB(3.9,58,2,5557,0)="""RTN"",""ICDTLB5B"",77,0)"
^XMB(3.9,58,2,5558,0)="DRG395 S ICDRG=$S(AGE>17:395,1:396) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5559,0)="""RTN"",""ICDTLB5B"",78,0)"
^XMB(3.9,58,2,5560,0)=" Q"
^XMB(3.9,58,2,5561,0)="""RTN"",""ICDTLB5B"",79,0)"
^XMB(3.9,58,2,5562,0)="DRG396 S ICDRG=$S(AGE>17:395,1:396) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5563,0)="""RTN"",""ICDTLB5B"",80,0)"
^XMB(3.9,58,2,5564,0)=" Q"
^XMB(3.9,58,2,5565,0)="""RTN"",""ICDTLB5B"",81,0)"
^XMB(3.9,58,2,5566,0)="DRG398 S ICDRG=$S(ICDCC:398,1:399) Q"
^XMB(3.9,58,2,5567,0)="""RTN"",""ICDTLB5B"",82,0)"
^XMB(3.9,58,2,5568,0)="DRG399 S ICDRG=$S(ICDCC:398,1:399) Q"
^XMB(3.9,58,2,5569,0)="""RTN"",""ICDTLB5B"",83,0)"
^XMB(3.9,58,2,5570,0)="DRG400 I ICDPD[""L""&(ICDMAJ'[3) D DRG401 Q:""401^402^403^404^405^470^473""[ICDRG"
^XMB(3.9,58,2,5571,0)="""RTN"",""ICDTLB5B"",84,0)"
^XMB(3.9,58,2,5572,0)=" S ICDRG=$S(ICDPD[""L"":400,ICDCC:406,1:407) Q"
^XMB(3.9,58,2,5573,0)="""RTN"",""ICDTLB5B"",85,0)"
^XMB(3.9,58,2,5574,0)="DRG401 S ICDRG=$S(ICDPD[""l"":$S(AGE="""":470,AGE<18:405,1:473),ICDOR[""O""!(ICDORNI[""O""):$S(ICDCC:401,1:402),ICDCC:403,1:404),ICDRTC=$S(ICDRG=470:3,1:ICDRTC)"
^XMB(3.9,58,2,5575,0)="""RTN"",""ICDTLB5B"",86,0)"
^XMB(3.9,58,2,5576,0)=" Q"
^XMB(3.9,58,2,5577,0)="""RTN"",""ICDTLB5B"",87,0)"
^XMB(3.9,58,2,5578,0)="DRG402 D DRG401"
^XMB(3.9,58,2,5579,0)="""RTN"",""ICDTLB5B"",88,0)"
^XMB(3.9,58,2,5580,0)=" Q"
^XMB(3.9,58,2,5581,0)="""RTN"",""ICDTLB6B"")"
^XMB(3.9,58,2,5582,0)="0^22^B50884849"
^XMB(3.9,58,2,5583,0)="""RTN"",""ICDTLB6B"",1,0)"
^XMB(3.9,58,2,5584,0)="ICDTLB6B ;ALB/EG/MRY - GROUPER UTILITY FUNCTIONS FY 2006; 9/29/03 2:47pm ; 6/28/05 4:06pm"
^XMB(3.9,58,2,5585,0)="""RTN"",""ICDTLB6B"",2,0)"
^XMB(3.9,58,2,5586,0)=" ;;18.0;DRG Grouper;**20**;Oct 20, 2000"
^XMB(3.9,58,2,5587,0)="""RTN"",""ICDTLB6B"",3,0)"
^XMB(3.9,58,2,5588,0)="DRG403 S ICDRG=$S(ICDPD[""l"":$S(AGE="""":470,AGE<18:405,1:473),ICDOR[""O""!(ICDORNI[""O""):$S(ICDCC:401,1:402),ICDCC:403,1:404),ICDRTC=$S(ICDRG=470:3,1:ICDRTC) Q"
^XMB(3.9,58,2,5589,0)="""RTN"",""ICDTLB6B"",4,0)"
^XMB(3.9,58,2,5590,0)="DRG404 S ICDRG=$S(ICDPD[""l"":$S(AGE="""":470,AGE<18:405,1:473),ICDOR[""O""!(ICDORNI[""O""):$S(ICDCC:401,1:402),ICDCC:403,1:404),ICDRTC=$S(ICDRG=470:3,1:ICDRTC) Q"
^XMB(3.9,58,2,5591,0)="""RTN"",""ICDTLB6B"",5,0)"
^XMB(3.9,58,2,5592,0)="DRG405 D DRG404 Q"
^XMB(3.9,58,2,5593,0)="""RTN"",""ICDTLB6B"",6,0)"
^XMB(3.9,58,2,5594,0)="DRG406 ;"
^XMB(3.9,58,2,5595,0)="""RTN"",""ICDTLB6B"",7,0)"
^XMB(3.9,58,2,5596,0)=" I ICDORNI[""K"" D"
^XMB(3.9,58,2,5597,0)="""RTN"",""ICDTLB6B"",8,0)"
^XMB(3.9,58,2,5598,0)=" .S ICDRG=$S((ICDPD[""L"")&(ICDCC):539,ICDPD[""L"":540,ICDCC:406,1:407)"
^XMB(3.9,58,2,5599,0)="""RTN"",""ICDTLB6B"",9,0)"
^XMB(3.9,58,2,5600,0)=" I ICDORNI'[""K"" D DRG408"
^XMB(3.9,58,2,5601,0)="""RTN"",""ICDTLB6B"",10,0)"
^XMB(3.9,58,2,5602,0)=" Q"
^XMB(3.9,58,2,5603,0)="""RTN"",""ICDTLB6B"",11,0)"
^XMB(3.9,58,2,5604,0)="DRG407 D DRG406 Q"
^XMB(3.9,58,2,5605,0)="""RTN"",""ICDTLB6B"",12,0)"
^XMB(3.9,58,2,5606,0)="DRG408 I $D(ICDDX(1))&(ICDOPCT=0) D  Q:ICDRG=409"
^XMB(3.9,58,2,5607,0)="""RTN"",""ICDTLB6B"",13,0)"
^XMB(3.9,58,2,5608,0)=" .I ICDDX(1)=$O(^ICD9(""AB"",""V58.0 "",0)) S ICDRG=409 Q"
^XMB(3.9,58,2,5609,0)="""RTN"",""ICDTLB6B"",14,0)"
^XMB(3.9,58,2,5610,0)=" .I ICDDX(1)=$O(^ICD9(""AB"",""V67.1 "",0)) S ICDRG=409 Q"
^XMB(3.9,58,2,5611,0)="""RTN"",""ICDTLB6B"",15,0)"
^XMB(3.9,58,2,5612,0)=" .Q"
^XMB(3.9,58,2,5613,0)="""RTN"",""ICDTLB6B"",16,0)"
^XMB(3.9,58,2,5614,0)=" I $D(ICDDX(1))&(ICDOPCT=0) D  Q:""410^492""[ICDRG"
^XMB(3.9,58,2,5615,0)="""RTN"",""ICDTLB6B"",17,0)"
^XMB(3.9,58,2,5616,0)=" .I ICDDX(1)=$O(^ICD9(""AB"",""V58.1 "",0)) S ICDRG=$S(ICDSD[""2"":492,1:410) Q"
^XMB(3.9,58,2,5617,0)="""RTN"",""ICDTLB6B"",18,0)"
^XMB(3.9,58,2,5618,0)=" .I ICDDX(1)=$O(^ICD9(""AB"",""V67.2 "",0)) S ICDRG=$S(ICDSD[""2"":492,1:410) Q"
^XMB(3.9,58,2,5619,0)="""RTN"",""ICDTLB6B"",19,0)"
^XMB(3.9,58,2,5620,0)=" I ICDOPCT>0 S ICDRG=$S(ICDPD'[""L"":408,ICDCC:401,1:402) Q"
^XMB(3.9,58,2,5621,0)="""RTN"",""ICDTLB6B"",20,0)"
^XMB(3.9,58,2,5622,0)=" I ICDOPCT=0 D DRG412"
^XMB(3.9,58,2,5623,0)="""RTN"",""ICDTLB6B"",21,0)"
^XMB(3.9,58,2,5624,0)=" Q"
^XMB(3.9,58,2,5625,0)="""RTN"",""ICDTLB6B"",22,0)"
^XMB(3.9,58,2,5626,0)="DRG411 S ICDRG=$S(ICDOR[""O""!(ICDORNI[""O""):408,ICDOR[""N"":412,1:411) Q"
^XMB(3.9,58,2,5627,0)="""RTN"",""ICDTLB6B"",23,0)"
^XMB(3.9,58,2,5628,0)="DRG412 ;S ICDRG=$S(ICDOR[""O""!(ICDORNI[""O""):408,ICDOR[""N""&($D(ICDPDRG(412))):412,$D(ICDPDRG(411)):411,ICDCC:413,1:414)"
^XMB(3.9,58,2,5629,0)="""RTN"",""ICDTLB6B"",24,0)"
^XMB(3.9,58,2,5630,0)=" I ICDOPCT>0 D DRG408 Q"
^XMB(3.9,58,2,5631,0)="""RTN"",""ICDTLB6B"",25,0)"
^XMB(3.9,58,2,5632,0)=" D DRG412^ICDTLB61"
^XMB(3.9,58,2,5633,0)="""RTN"",""ICDTLB6B"",26,0)"
^XMB(3.9,58,2,5634,0)=" Q"
^XMB(3.9,58,2,5635,0)="""RTN"",""ICDTLB6B"",27,0)"
^XMB(3.9,58,2,5636,0)="DRG413 S ICDRG=$S(ICDCC:413,1:414) Q"
^XMB(3.9,58,2,5637,0)="""RTN"",""ICDTLB6B"",28,0)"
^XMB(3.9,58,2,5638,0)="DRG414 S ICDRG=$S(ICDCC:413,1:414) Q"
^XMB(3.9,58,2,5639,0)="""RTN"",""ICDTLB6B"",29,0)"
^XMB(3.9,58,2,5640,0)="DRG416 S ICDRG=$S(ICDOR[""O"":415,AGE="""":470,AGE>17:416,1:417),ICDRTC=$S(ICDRG=470:3,1:ICDRTC) Q"
^XMB(3.9,58,2,5641,0)="""RTN"",""ICDTLB6B"",30,0)"
^XMB(3.9,58,2,5642,0)="DRG417 S ICDRG=$S(ICDOR[""O"":415,AGE="""":470,AGE>17:416,1:417),ICDRTC=$S(ICDRG=470:3,1:ICDRTC) Q"
^XMB(3.9,58,2,5643,0)="""RTN"",""ICDTLB6B"",31,0)"
^XMB(3.9,58,2,5644,0)="DRG418 S ICDRG=$S(ICDOR[""O"":415,1:418) Q"
^XMB(3.9,58,2,5645,0)="""RTN"",""ICDTLB6B"",32,0)"
^XMB(3.9,58,2,5646,0)="DRG419 S ICDRG=$S(ICDOR[""O"":415,AGE="""":470,AGE<18:422,ICDCC:419,1:420),ICDRTC=$S(ICDRG=470:3,1:ICDRTC) Q"
^XMB(3.9,58,2,5647,0)="""RTN"",""ICDTLB6B"",33,0)"
^XMB(3.9,58,2,5648,0)="DRG420 S ICDRG=$S(ICDOR[""O"":415,AGE="""":470,AGE<18:422,ICDCC:419,1:420),ICDRTC=$S(ICDRG=470:3,1:ICDRTC) Q"
^XMB(3.9,58,2,5649,0)="""RTN"",""ICDTLB6B"",34,0)"
^XMB(3.9,58,2,5650,0)="DRG421 S ICDRG=$S(ICDOR[""O"":415,AGE="""":470,AGE>17:421,1:422),ICDRTC=$S(ICDRG=470:3,1:ICDRTC) Q"
^XMB(3.9,58,2,5651,0)="""RTN"",""ICDTLB6B"",35,0)"
^XMB(3.9,58,2,5652,0)="DRG422 S ICDRG=$S(ICDOR[""O"":415,AGE="""":470,AGE>17:421,1:422),ICDRTC=$S(ICDRG=470:3,1:ICDRTC) Q"
^XMB(3.9,58,2,5653,0)="""RTN"",""ICDTLB6B"",36,0)"
^XMB(3.9,58,2,5654,0)="DRG423 S ICDRG=$S(ICDOR[""O"":415,1:423) Q"
^XMB(3.9,58,2,5655,0)="""RTN"",""ICDTLB6B"",37,0)"
^XMB(3.9,58,2,5656,0)="DRG424 S ICDRG=$S(ICDOR[""O"":424,1:425) Q"
^XMB(3.9,58,2,5657,0)="""RTN"",""ICDTLB6B"",38,0)"
^XMB(3.9,58,2,5658,0)="DRG425 S ICDRG=$S(ICDOR[""O"":424,1:425) Q"
^XMB(3.9,58,2,5659,0)="""RTN"",""ICDTLB6B"",39,0)"
^XMB(3.9,58,2,5660,0)="DRG426 S ICDRG=$S(ICDOR[""O"":424,1:426) Q"
^XMB(3.9,58,2,5661,0)="""RTN"",""ICDTLB6B"",40,0)"
^XMB(3.9,58,2,5662,0)="DRG427 S ICDRG=$S(ICDOR[""O"":424,1:427) Q"
^XMB(3.9,58,2,5663,0)="""RTN"",""ICDTLB6B"",41,0)"
^XMB(3.9,58,2,5664,0)="DRG428 S ICDRG=$S(ICDOR[""O"":424,1:428) Q"
^XMB(3.9,58,2,5665,0)="""RTN"",""ICDTLB6B"",42,0)"
^XMB(3.9,58,2,5666,0)="DRG429 S ICDRG=$S(ICDOR[""O"":424,1:429) Q"
^XMB(3.9,58,2,5667,0)="""RTN"",""ICDTLB6B"",43,0)"
^XMB(3.9,58,2,5668,0)="DRG430 S ICDRG=$S(ICDOR[""O"":424,1:430) Q"
^XMB(3.9,58,2,5669,0)="""RTN"",""ICDTLB6B"",44,0)"
^XMB(3.9,58,2,5670,0)="DRG431 S ICDRG=$S(ICDOR[""O"":424,1:431) Q"
^XMB(3.9,58,2,5671,0)="""RTN"",""ICDTLB6B"",45,0)"
^XMB(3.9,58,2,5672,0)="DRG432 S ICDRG=$S(ICDOR[""O"":424,1:432) Q"
^XMB(3.9,58,2,5673,0)="""RTN"",""ICDTLB6B"",46,0)"
^XMB(3.9,58,2,5674,0)="DRG434 S ICDRG=$S(ICDPD[""t""!(ICDSD[""t""):$S(ICDOR[""D"":437,ICDOR[""R"":436,ICDCC:434,1:435),ICDCC:434,1:435) Q"
^XMB(3.9,58,2,5675,0)="""RTN"",""ICDTLB6B"",47,0)"
^XMB(3.9,58,2,5676,0)="DRG435 S ICDRG=$S(ICDPD[""t""!(ICDSD[""t""):$S(ICDOR[""D"":437,ICDOR[""R"":436,ICDCC:434,1:435),ICDCC:434,1:435) Q"
^XMB(3.9,58,2,5677,0)="""RTN"",""ICDTLB6B"",48,0)"
^XMB(3.9,58,2,5678,0)="DRG436 S ICDRG=$S(ICDPD[""t""!(ICDSD[""t""):$S(ICDOR[""D"":437,ICDOR[""R"":436,ICDCC:434,1:435),ICDCC:434,1:435) Q"
^XMB(3.9,58,2,5679,0)="""RTN"",""ICDTLB6B"",49,0)"
^XMB(3.9,58,2,5680,0)="DRG437 S ICDRG=$S(ICDPD[""t""!(ICDSD[""t""):$S(ICDOR[""D"":437,ICDOR[""R"":436,ICDCC:434,1:435),ICDCC:434,1:435) Q"
^XMB(3.9,58,2,5681,0)="""RTN"",""ICDTLB6B"",50,0)"
^XMB(3.9,58,2,5682,0)="DRG439 S ICDRG=$S($D(ICDODRG(440)):440,1:439) Q"
^XMB(3.9,58,2,5683,0)="""RTN"",""ICDTLB6B"",51,0)"
^XMB(3.9,58,2,5684,0)="DRG442 S ICDRG=$S(ICDCC:442,1:443) Q"
^XMB(3.9,58,2,5685,0)="""RTN"",""ICDTLB6B"",52,0)"
^XMB(3.9,58,2,5686,0)="DRG443 D EN1^ICDDRG5 S ICDRG=$S(ICDCC3:$S(ICDCC:442,1:443),1:"""") Q"
^XMB(3.9,58,2,5687,0)="""RTN"",""ICDTLB6B"",53,0)"
^XMB(3.9,58,2,5688,0)="DRG444 S ICDRG=$S(AGE<18:446,ICDCC:444,1:445) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5689,0)="""RTN"",""ICDTLB6B"",54,0)"
^XMB(3.9,58,2,5690,0)=" Q"
^XMB(3.9,58,2,5691,0)="""RTN"",""ICDTLB6B"",55,0)"
^XMB(3.9,58,2,5692,0)="DRG445 S ICDRG=$S(AGE<18:446,ICDCC:444,1:445) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5693,0)="""RTN"",""ICDTLB6B"",56,0)"
^XMB(3.9,58,2,5694,0)=" Q"
^XMB(3.9,58,2,5695,0)="""RTN"",""ICDTLB6B"",57,0)"
^XMB(3.9,58,2,5696,0)="DRG446 S ICDRG=$S(AGE<18:446,ICDCC:444,1:445) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5697,0)="""RTN"",""ICDTLB6B"",58,0)"
^XMB(3.9,58,2,5698,0)=" Q"
^XMB(3.9,58,2,5699,0)="""RTN"",""ICDTLB6B"",59,0)"
^XMB(3.9,58,2,5700,0)="DRG447 S ICDRG=$S(AGE>17:447,1:448) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5701,0)="""RTN"",""ICDTLB6B"",60,0)"
^XMB(3.9,58,2,5702,0)=" Q"
^XMB(3.9,58,2,5703,0)="""RTN"",""ICDTLB6B"",61,0)"
^XMB(3.9,58,2,5704,0)="DRG448 S ICDRG=$S(AGE>17:447,1:448) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5705,0)="""RTN"",""ICDTLB6B"",62,0)"
^XMB(3.9,58,2,5706,0)=" Q"
^XMB(3.9,58,2,5707,0)="""RTN"",""ICDTLB6B"",63,0)"
^XMB(3.9,58,2,5708,0)="DRG449 S ICDRG=$S(AGE<18:451,ICDCC:449,1:450) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5709,0)="""RTN"",""ICDTLB6B"",64,0)"
^XMB(3.9,58,2,5710,0)=" Q"
^XMB(3.9,58,2,5711,0)="""RTN"",""ICDTLB6B"",65,0)"
^XMB(3.9,58,2,5712,0)="DRG450 S ICDRG=$S(AGE<18:451,ICDCC:449,1:450) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5713,0)="""RTN"",""ICDTLB6B"",66,0)"
^XMB(3.9,58,2,5714,0)=" Q"
^XMB(3.9,58,2,5715,0)="""RTN"",""ICDTLB6B"",67,0)"
^XMB(3.9,58,2,5716,0)="DRG451 S ICDRG=$S(AGE<18:451,ICDCC:449,1:450) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,58,2,5717,0)="""RTN"",""ICDTLB6B"",68,0)"
^XMB(3.9,58,2,5718,0)=" Q"
^XMB(3.9,58,2,5719,0)="""RTN"",""ICDTLB6B"",69,0)"
^XMB(3.9,58,2,5720,0)="DRG452 S ICDRG=$S(ICDCC:452,1:453) Q"
^XMB(3.9,58,2,5721,0)="""RTN"",""ICDTLB6B"",70,0)"
^XMB(3.9,58,2,5722,0)="DRG453 S ICDRG=$S(ICDCC:452,1:453) Q"
^XMB(3.9,58,2,5723,0)="""RTN"",""ICDTLB6B"",71,0)"
^XMB(3.9,58,2,5724,0)="DRG454 S ICDRG=$S(ICDCC:454,1:455) Q"
^XMB(3.9,58,2,5725,0)="""RTN"",""ICDTLB6B"",72,0)"
^XMB(3.9,58,2,5726,0)="DRG455 S ICDRG=$S(ICDCC:454,1:455) Q"
^XMB(3.9,58,2,5727,0)="""RTN"",""ICDTLB6B"",73,0)"
^XMB(3.9,58,2,5728,0)="DRG462 S ICDRG=$S(ICDOR[""O"":461,1:462) Q"
^XMB(3.9,58,2,5729,0)="""RTN"",""ICDTLB6B"",74,0)"
^XMB(3.9,58,2,5730,0)="DRG463 S ICDRG=$S(ICDOR[""O"":461,ICDCC:463,1:464) Q"
^XMB(3.9,58,2,5731,0)="""RTN"",""ICDTLB6B"",75,0)"
^XMB(3.9,58,2,5732,0)="DRG464 S ICDRG=$S(ICDOR[""O"":461,ICDCC:463,1:464) Q"
^XMB(3.9,58,2,5733,0)="""RTN"",""ICDTLB6B"",76,0)"
^XMB(3.9,58,2,5734,0)="DRG465 S ICDRG=$S(ICDOR[""O"":461,ICDSD[""m"":465,1:466) Q"
^XMB(3.9,58,2,5735,0)="""RTN"",""ICDTLB6B"",77,0)"
^XMB(3.9,58,2,5736,0)="DRG466 S ICDRG=$S(ICDOR[""O"":461,ICDSD[""m"":465,1:466) Q"
^XMB(3.9,58,2,5737,0)="""RTN"",""ICDTLB6B"",78,0)"
^XMB(3.9,58,2,5738,0)="DRG467 S ICDRG=$S(ICDOR[""O"":461,1:467) Q"
^XMB(3.9,58,2,5739,0)="""RTN"",""ICDTLB6B"",79,0)"
^XMB(3.9,58,2,5740,0)="DRG471 S ICDRG=$S($F($P(ICDOR,""M"",2,99),""M""):471,1:"""") Q"
^XMB(3.9,58,2,5741,0)="""RTN"",""ICDTLB6B"",80,0)"
^XMB(3.9,58,2,5742,0)="DRG475 S ICDRG=$S(ICDOR[""V"":475,1:$S($D(ICDPDRG):$O(ICDPDRG(0)),1:468)) I ICDRG<468 D DODRG^ICDDRG0"
^XMB(3.9,58,2,5743,0)="""RTN"",""ICDTLB6B"",81,0)"
^XMB(3.9,58,2,5744,0)=" Q"
^XMB(3.9,58,2,5745,0)="""RTN"",""ICDTLB6B"",82,0)"
^XMB(3.9,58,2,5746,0)="DRG478 S ICDRG=$S(ICDOR[""O""&ICDCC:478,1:479)"
^XMB(3.9,58,2,5747,0)="""RTN"",""ICDTLB6B"",83,0)"
^XMB(3.9,58,2,5748,0)=" I ICDRG=478 D DRG553^ICDTLB6B"
^XMB(3.9,58,2,5749,0)="""RTN"",""ICDTLB6B"",84,0)"
^XMB(3.9,58,2,5750,0)=" Q"
^XMB(3.9,58,2,5751,0)="""RTN"",""ICDTLB6B"",85,0)"
^XMB(3.9,58,2,5752,0)="DRG479 G DRG478"
^XMB(3.9,58,2,5753,0)="""RTN"",""ICDTLB6B"",86,0)"
^XMB(3.9,58,2,5754,0)="DRG493 ;I (ICDI-1)=1,'ICDCC S ICDCC=$S($D(^ICD9(""ACC"",ICDDX(1),ICDDX(1))):1,1:0)"
^XMB(3.9,58,2,5755,0)="""RTN"",""ICDTLB6B"",87,0)"
^XMB(3.9,58,2,5756,0)=" S ICDRG=$S(ICDCC:493,1:494) Q"
^XMB(3.9,58,2,5757,0)="""RTN"",""ICDTLB6B"",88,0)"
^XMB(3.9,58,2,5758,0)="DRG494 ;I (ICD-1),'ICDCC S ICDCC=$S($D(^ICD9(""ACC"",ICDDX(1),ICDDX(1))):1,1:0)"
^XMB(3.9,58,2,5759,0)="""RTN"",""ICDTLB6B"",89,0)"
^XMB(3.9,58,2,5760,0)=" S ICDRG=$S(ICDCC:493,1:494) Q"
^XMB(3.9,58,2,5761,0)="""RTN"",""ICDTLB6B"",90,0)"
^XMB(3.9,58,2,5762,0)="DRG495 Q"
^XMB(3.9,58,2,5763,0)="""RTN"",""ICDTLB6B"",91,0)"
^XMB(3.9,58,2,5764,0)="DRG496 S ICDRG=$S(ICDOR[""F"":496,ICDCC:497,1:498)"
^XMB(3.9,58,2,5765,0)="""RTN"",""ICDTLB6B"",92,0)"
^XMB(3.9,58,2,5766,0)="     I ICDRG=497!(ICDRG=498) I ICDPD[""6"" S ICDRG=546 Q"
^XMB(3.9,58,2,5767,0)="""RTN"",""ICDTLB6B"",93,0)"
^XMB(3.9,58,2,5768,0)="     I ICDRG=497!(ICDRG=498) I $D(ICDDXT(""737.40""))!($D(ICDDXT(""737.41"")))!($D(ICDDXT(""737.42"")))!($D(ICDDXT(""737.43""))) S ICDRG=546"
^XMB(3.9,58,2,5769,0)="""RTN"",""ICDTLB6B"",94,0)"
^XMB(3.9,58,2,5770,0)="     Q "
^XMB(3.9,58,2,5771,0)="""RTN"",""ICDTLB6B"",95,0)"
^XMB(3.9,58,2,5772,0)="DRG497 G DRG496  ;S ICDRG=$S(ICDOR[""F"":496,ICDCC:497,1:498) Q"
^XMB(3.9,58,2,5773,0)="""RTN"",""ICDTLB6B"",96,0)"
^XMB(3.9,58,2,5774,0)="DRG498 G DRG496  ;S ICDRG=$S(ICDOR[""F"":496,ICDCC:497,1:498) Q"
^XMB(3.9,58,2,5775,0)="""RTN"",""ICDTLB6B"",97,0)"
^XMB(3.9,58,2,5776,0)="DRG499 S ICDRG=$S(ICDCC:499,1:500) Q"
^XMB(3.9,58,2,5777,0)="""RTN"",""ICDTLB6B"",98,0)"
^XMB(3.9,58,2,5778,0)="DRG500 S ICDRG=$S(ICDCC:499,1:500) Q"
^XMB(3.9,58,2,5779,0)="""RTN"",""ICDTLB6B"",99,0)"
^XMB(3.9,58,2,5780,0)="DRG501 D"
^XMB(3.9,58,2,5781,0)="""RTN"",""ICDTLB6B"",100,0)"
^XMB(3.9,58,2,5782,0)=" . I (ICDPD[""k"") D"
^XMB(3.9,58,2,5783,0)="""RTN"",""ICDTLB6B"",101,0)"
^XMB(3.9,58,2,5784,0)=" .. I ICDCC S ICDRG=501"
^XMB(3.9,58,2,5785,0)="""RTN"",""ICDTLB6B"",102,0)"
^XMB(3.9,58,2,5786,0)=" .. I 'ICDCC S ICDRG=502"
^XMB(3.9,58,2,5787,0)="""RTN"",""ICDTLB6B"",103,0)"
^XMB(3.9,58,2,5788,0)=" . E  S ICDRG=503"
^XMB(3.9,58,2,5789,0)="""RTN"",""ICDTLB6B"",104,0)"
^XMB(3.9,58,2,5790,0)=" Q"
^XMB(3.9,58,2,5791,0)="""RTN"",""ICDTLB6B"",105,0)"
^XMB(3.9,58,2,5792,0)="DRG502 D DRG501 Q"
^XMB(3.9,58,2,5793,0)="""RTN"",""ICDTLB6B"",106,0)"
^XMB(3.9,58,2,5794,0)="DRG503 D DRG501 Q"
^XMB(3.9,58,2,5795,0)="""RTN"",""ICDTLB6B"",107,0)"
^XMB(3.9,58,2,5796,0)="DRG514 ; Replaced with DRG535"
^XMB(3.9,58,2,5797,0)="""RTN"",""ICDTLB6B"",108,0)"
^XMB(3.9,58,2,5798,0)=" N ICDE1,ICDE2"
^XMB(3.9,58,2,5799,0)="""RTN"",""ICDTLB6B"",109,0)"
^XMB(3.9,58,2,5800,0)=" S ICDE1=$S($D(ICDOP("" 37.95""))&($D(ICDOP("" 37.96""))):1,1:0)"
^XMB(3.9,58,2,5801,0)="""RTN"",""ICDTLB6B"",110,0)"
^XMB(3.9,58,2,5802,0)=" S ICDE2=$S($D(ICDOP("" 37.97""))&($D(ICDOP("" 37.98""))):1,1:0)"
^XMB(3.9,58,2,5803,0)="""RTN"",""ICDTLB6B"",111,0)"
^XMB(3.9,58,2,5804,0)=" S ICDRG=470"
^XMB(3.9,58,2,5805,0)="""RTN"",""ICDTLB6B"",112,0)"
^XMB(3.9,58,2,5806,0)=" I $D(ICDOP("" 37.94"")) I ICDE1+ICDE2=0 S ICDRG=515"
^XMB(3.9,58,2,5807,0)="""RTN"",""ICDTLB6B"",113,0)"
^XMB(3.9,58,2,5808,0)=" I '$D(ICDOP("" 37.94"")) I ICDE1!ICDE2 S ICDRG=515"
^XMB(3.9,58,2,5809,0)="""RTN"",""ICDTLB6B"",114,0)"
^XMB(3.9,58,2,5810,0)=" ; ""HN"" in ICDOR represents OR proc 37.21-.23, 37.26, 88.52-.58"
^XMB(3.9,58,2,5811,0)="""RTN"",""ICDTLB6B"",115,0)"
^XMB(3.9,58,2,5812,0)=" I ICDRG=515 I ICDOR[""HN"" S ICDRG=514"
^XMB(3.9,58,2,5813,0)="""RTN"",""ICDTLB6B"",116,0)"
^XMB(3.9,58,2,5814,0)=" Q"
^XMB(3.9,58,2,5815,0)="""RTN"",""ICDTLB6B"",117,0)"
^XMB(3.9,58,2,5816,0)="DRG515 D DRG535 Q"
^XMB(3.9,58,2,5817,0)="""RTN"",""ICDTLB6B"",118,0)"
^XMB(3.9,58,2,5818,0)="DRG516 ; DRG 516,517,526 and 527 replaced by DRG 555-558 respectively"
^XMB(3.9,58,2,5819,0)="""RTN"",""ICDTLB6B"",119,0)"
^XMB(3.9,58,2,5820,0)=" S ICDRG=518"
^XMB(3.9,58,2,5821,0)="""RTN"",""ICDTLB6B"",120,0)"
^XMB(3.9,58,2,5822,0)=" D DRG555"
^XMB(3.9,58,2,5823,0)="""RTN"",""ICDTLB6B"",121,0)"
^XMB(3.9,58,2,5824,0)=" I $D(ICDOP("" 36.06""))!$D(ICDOP("" 92.27"")) D DRG556"
^XMB(3.9,58,2,5825,0)="""RTN"",""ICDTLB6B"",122,0)"
^XMB(3.9,58,2,5826,0)=" I $D(ICDOP("" 36.07"")) D DRG557"
^XMB(3.9,58,2,5827,0)="""RTN"",""ICDTLB6B"",123,0)"
^XMB(3.9,58,2,5828,0)=" Q"
^XMB(3.9,58,2,5829,0)="""RTN"",""ICDTLB6B"",124,0)"
^XMB(3.9,58,2,5830,0)="DRG517 D DRG516 Q"
^XMB(3.9,58,2,5831,0)="""RTN"",""ICDTLB6B"",125,0)"
^XMB(3.9,58,2,5832,0)="DRG518 D DRG516 Q"
^XMB(3.9,58,2,5833,0)="""RTN"",""ICDTLB6B"",126,0)"
^XMB(3.9,58,2,5834,0)="DRG519 S ICDRG=$S(ICDOR[""F"":496,ICDCC:519,1:520) Q"
^XMB(3.9,58,2,5835,0)="""RTN"",""ICDTLB6B"",127,0)"
^XMB(3.9,58,2,5836,0)="DRG520 D DRG519 Q"
^XMB(3.9,58,2,5837,0)="""RTN"",""ICDTLB6B"",128,0)"
^XMB(3.9,58,2,5838,0)="DRG521 S ICDRG=$S(ICDCC:521,ICDOR[""D""!(ICDOR[""R""):522,1:523) Q"
^XMB(3.9,58,2,5839,0)="""RTN"",""ICDTLB6B"",129,0)"
^XMB(3.9,58,2,5840,0)="DRG522 D DRG521 Q"
^XMB(3.9,58,2,5841,0)="""RTN"",""ICDTLB6B"",130,0)"
^XMB(3.9,58,2,5842,0)="DRG523 D DRG521 Q"
^XMB(3.9,58,2,5843,0)="""RTN"",""ICDTLB6B"",131,0)"
^XMB(3.9,58,2,5844,0)="DRG526 D DRG516 Q"
^XMB(3.9,58,2,5845,0)="""RTN"",""ICDTLB6B"",132,0)"
^XMB(3.9,58,2,5846,0)="DRG527 D DRG516 Q"
^XMB(3.9,58,2,5847,0)="""RTN"",""ICDTLB6B"",133,0)"
^XMB(3.9,58,2,5848,0)="DRG531 S ICDRG=$S(ICDCC:531,1:532) Q"
^XMB(3.9,58,2,5849,0)="""RTN"",""ICDTLB6B"",134,0)"
^XMB(3.9,58,2,5850,0)="DRG532 D DRG531 Q"
^XMB(3.9,58,2,5851,0)="""RTN"",""ICDTLB6B"",135,0)"
^XMB(3.9,58,2,5852,0)="DRG533 S ICDRG=$S(ICDCC:533,1:534) Q"
^XMB(3.9,58,2,5853,0)="""RTN"",""ICDTLB6B"",136,0)"
^XMB(3.9,58,2,5854,0)="DRG534 D DRG533 Q"
^XMB(3.9,58,2,5855,0)="""RTN"",""ICDTLB6B"",137,0)"
^XMB(3.9,58,2,5856,0)="DRG535 N ICDE1,ICDE2,ICDE3"
^XMB(3.9,58,2,5857,0)="""RTN"",""ICDTLB6B"",138,0)"
^XMB(3.9,58,2,5858,0)=" S ICDE1=$S($D(ICDOP("" 37.95""))&(($D(ICDOP("" 37.96"")))!($D(ICDOP("" 00.54"")))):1,1:0)"
^XMB(3.9,58,2,5859,0)="""RTN"",""ICDTLB6B"",139,0)"
^XMB(3.9,58,2,5860,0)=" S ICDE2=$S($D(ICDOP("" 37.97""))&(($D(ICDOP("" 37.98"")))!($D(ICDOP("" 00.54"")))):1,1:0)"
^XMB(3.9,58,2,5861,0)="""RTN"",""ICDTLB6B"",140,0)"
^XMB(3.9,58,2,5862,0)=" S ICDE3=$S($D(ICDOP("" 00.52""))&($D(ICDOP("" 00.54""))):1,1:0)"
^XMB(3.9,58,2,5863,0)="""RTN"",""ICDTLB6B"",141,0)"
^XMB(3.9,58,2,5864,0)=" ;S ICDE4=$S($D(ICDOP("" 00.54""))&($D(ICDOP("" 37.95""))):1,1:0)"
^XMB(3.9,58,2,5865,0)="""RTN"",""ICDTLB6B"",142,0)"
^XMB(3.9,58,2,5866,0)=" S ICDRG=470"
^XMB(3.9,58,2,5867,0)="""RTN"",""ICDTLB6B"",143,0)"
^XMB(3.9,58,2,5868,0)=" I $D(ICDOP("" 37.94""))!$D(ICDOP("" 00.51"")) I ICDE1+ICDE2+ICDE3=0 S ICDRG=515"
^XMB(3.9,58,2,5869,0)="""RTN"",""ICDTLB6B"",144,0)"
^XMB(3.9,58,2,5870,0)=" I '$D(ICDOP("" 37.94""))&('$D(ICDOP("" 00.51""))) I ICDE1!ICDE2!ICDE3 S ICDRG=515"
^XMB(3.9,58,2,5871,0)="""RTN"",""ICDTLB6B"",145,0)"
^XMB(3.9,58,2,5872,0)=" ; ""HN"" in ICDOR represents OR proc 37.21-.23, 37.26, 88.52-.58"
^XMB(3.9,58,2,5873,0)="""RTN"",""ICDTLB6B"",146,0)"
^XMB(3.9,58,2,5874,0)=" I ICDRG=515 I ICDOR[""HN"" I '$D(ICDOP("" 37.26"")) S ICDRG=$S(ICDPD[""A"":535,1:536)"
^XMB(3.9,58,2,5875,0)="""RTN"",""ICDTLB6B"",147,0)"
^XMB(3.9,58,2,5876,0)=" I ICDRG=470 D DRG115^ICDTLB2B"
^XMB(3.9,58,2,5877,0)="""RTN"",""ICDTLB6B"",148,0)"
^XMB(3.9,58,2,5878,0)=" Q"
^XMB(3.9,58,2,5879,0)="""RTN"",""ICDTLB6B"",149,0)"
^XMB(3.9,58,2,5880,0)="DRG536 D DRG535 Q"
^XMB(3.9,58,2,5881,0)="""RTN"",""ICDTLB6B"",150,0)"
^XMB(3.9,58,2,5882,0)="DRG537 S ICDRG=$S(ICDCC:537,1:538) Q"
^XMB(3.9,58,2,5883,0)="""RTN"",""ICDTLB6B"",151,0)"
^XMB(3.9,58,2,5884,0)="DRG538 D DRG537 Q"
^XMB(3.9,58,2,5885,0)="""RTN"",""ICDTLB6B"",152,0)"
^XMB(3.9,58,2,5886,0)="DRG539 I ICDPD[""L""&(ICDMAJ'[3) D DRG401^ICDTLB5B Q:""401^402^403^404^405^470^473""[ICDRG"
^XMB(3.9,58,2,5887,0)="""RTN"",""ICDTLB6B"",153,0)"
^XMB(3.9,58,2,5888,0)=" S ICDRG=$S((ICDPD[""L"")&(ICDCC):539,ICDPD[""L"":540,ICDCC:406,1:407) Q"
^XMB(3.9,58,2,5889,0)="""RTN"",""ICDTLB6B"",154,0)"
^XMB(3.9,58,2,5890,0)="DRG540 D DRG539 Q"
^XMB(3.9,58,2,5891,0)="""RTN"",""ICDTLB6B"",155,0)"
^XMB(3.9,58,2,5892,0)="DRG543 S ICDRG=$S((ICDPD[""Q"")&(ICDOR[""Q""):543,ICDOR[""Q""&$D(ICDOP("" 00.10"")):543,1:ICDRG) Q"
^XMB(3.9,58,2,5893,0)="""RTN"",""ICDTLB6B"",156,0)"
^XMB(3.9,58,2,5894,0)="DRG544 Q"
^XMB(3.9,58,2,5895,0)="""RTN"",""ICDTLB6B"",157,0)"
^XMB(3.9,58,2,5896,0)="DRG545 Q"
^XMB(3.9,58,2,5897,0)="""RTN"",""ICDTLB6B"",158,0)"
^XMB(3.9,58,2,5898,0)="DRG546 Q"
^XMB(3.9,58,2,5899,0)="""RTN"",""ICDTLB6B"",159,0)"
^XMB(3.9,58,2,5900,0)="DRG547 ; called from DRG106^ICDTLB2B     "
^XMB(3.9,58,2,5901,0)="""RTN"",""ICDTLB6B"",160,0)"
^XMB(3.9,58,2,5902,0)=" D MCV"
^XMB(3.9,58,2,5903,0)="""RTN"",""ICDTLB6B"",161,0)"
^XMB(3.9,58,2,5904,0)=" S ICDRG=$S(ICDMCV:547,ICDMCV1:547,1:548) Q"
^XMB(3.9,58,2,5905,0)="""RTN"",""ICDTLB6B"",162,0)"
^XMB(3.9,58,2,5906,0)="DRG548 G DRG547"
^XMB(3.9,58,2,5907,0)="""RTN"",""ICDTLB6B"",163,0)"
^XMB(3.9,58,2,5908,0)="DRG549 ; called from DRG106^ICDTLB2B"
^XMB(3.9,58,2,5909,0)="""RTN"",""ICDTLB6B"",164,0)"
^XMB(3.9,58,2,5910,0)=" D MCV"
^XMB(3.9,58,2,5911,0)="""RTN"",""ICDTLB6B"",165,0)"
^XMB(3.9,58,2,5912,0)=" S ICDRG=$S(ICDMCV:549,ICDMCV1:549,1:550) Q"
^XMB(3.9,58,2,5913,0)="""RTN"",""ICDTLB6B"",166,0)"
^XMB(3.9,58,2,5914,0)="DRG550 G DRG549"
^XMB(3.9,58,2,5915,0)="""RTN"",""ICDTLB6B"",167,0)"
^XMB(3.9,58,2,5916,0)="DRG551 ; called from DRG115^ICDTLB2B "
^XMB(3.9,58,2,5917,0)="""RTN"",""ICDTLB6B"",168,0)"
^XMB(3.9,58,2,5918,0)=" D MCV"
^XMB(3.9,58,2,5919,0)="""RTN"",""ICDTLB6B"",169,0)"
^XMB(3.9,58,2,5920,0)=" I ICDMCV!(ICDMCV2) S ICDRG=551"
^XMB(3.9,58,2,5921,0)="""RTN"",""ICDTLB6B"",170,0)"
^XMB(3.9,58,2,5922,0)=" Q"
^XMB(3.9,58,2,5923,0)="""RTN"",""ICDTLB6B"",171,0)"
^XMB(3.9,58,2,5924,0)="DRG552 Q"
^XMB(3.9,58,2,5925,0)="""RTN"",""ICDTLB6B"",172,0)"
^XMB(3.9,58,2,5926,0)="DRG553 ; called from DRG478"
^XMB(3.9,58,2,5927,0)="""RTN"",""ICDTLB6B"",173,0)"
^XMB(3.9,58,2,5928,0)=" D MCV"
^XMB(3.9,58,2,5929,0)="""RTN"",""ICDTLB6B"",174,0)"
^XMB(3.9,58,2,5930,0)=" S ICDRG=$S(ICDMCV:553,ICDMCV1:553,1:554) Q"
^XMB(3.9,58,2,5931,0)="""RTN"",""ICDTLB6B"",175,0)"
^XMB(3.9,58,2,5932,0)="DRG554 G DRG553"
^XMB(3.9,58,2,5933,0)="""RTN"",""ICDTLB6B"",176,0)"
^XMB(3.9,58,2,5934,0)="DRG555 ; called from DRG516"
^XMB(3.9,58,2,5935,0)="""RTN"",""ICDTLB6B"",177,0)"
^XMB(3.9,58,2,5936,0)=" D MCV"
^XMB(3.9,58,2,5937,0)="""RTN"",""ICDTLB6B"",178,0)"
^XMB(3.9,58,2,5938,0)=" I ICDMCV!(ICDMCV1) S ICDRG=555"
^XMB(3.9,58,2,5939,0)="""RTN"",""ICDTLB6B"",179,0)"
^XMB(3.9,58,2,5940,0)=" Q"
^XMB(3.9,58,2,5941,0)="""RTN"",""ICDTLB6B"",180,0)"
^XMB(3.9,58,2,5942,0)="DRG556 ; called from DRG516"
^XMB(3.9,58,2,5943,0)="""RTN"",""ICDTLB6B"",181,0)"
^XMB(3.9,58,2,5944,0)=" D MCV"
^XMB(3.9,58,2,5945,0)="""RTN"",""ICDTLB6B"",182,0)"
^XMB(3.9,58,2,5946,0)=" I 'ICDMCV&('ICDMCV1) S ICDRG=556"
^XMB(3.9,58,2,5947,0)="""RTN"",""ICDTLB6B"",183,0)"
^XMB(3.9,58,2,5948,0)=" Q"
^XMB(3.9,58,2,5949,0)="""RTN"",""ICDTLB6B"",184,0)"
^XMB(3.9,58,2,5950,0)="DRG557 ; called from DRG516"
^XMB(3.9,58,2,5951,0)="""RTN"",""ICDTLB6B"",185,0)"
^XMB(3.9,58,2,5952,0)=" D MCV"
^XMB(3.9,58,2,5953,0)="""RTN"",""ICDTLB6B"",186,0)"
^XMB(3.9,58,2,5954,0)=" I ICDMCV!ICDMCV1 S ICDRG=557"
^XMB(3.9,58,2,5955,0)="""RTN"",""ICDTLB6B"",187,0)"
^XMB(3.9,58,2,5956,0)=" E  S ICDRG=558"
^XMB(3.9,58,2,5957,0)="""RTN"",""ICDTLB6B"",188,0)"
^XMB(3.9,58,2,5958,0)=" Q"
^XMB(3.9,58,2,5959,0)="""RTN"",""ICDTLB6B"",189,0)"
^XMB(3.9,58,2,5960,0)="DRG558 G DRG516"
^XMB(3.9,58,2,5961,0)="""RTN"",""ICDTLB6B"",190,0)"
^XMB(3.9,58,2,5962,0)="DRG559 ;I DGDX(1)[""433.01""!(DGDX(1)[""433.11"")!(DGDX(1)[""433.21"")!(DGDX(1)[""433.31"")!(DGDX(1)[""433.81"")!(DGDX(1)[""433.91"")!(DGDX(1)[""434.01"")!(DGDX(1)[""434.11"")!(DGDX(1)[""434.91"") S ICDRG=559"
^XMB(3.9,58,2,5963,0)="""RTN"",""ICDTLB6B"",191,0)"
^XMB(3.9,58,2,5964,0)=" I $G(ICDDX(1))=12856!($G(ICDDX(1))=12858)!($G(ICDDX(1))=12860)!($G(ICDDX(1))=12862)!($G(ICDDX(1))=12864)!($G(ICDDX(1))=12866)!($G(ICDDX(1))=12868)!($G(ICDDX(1))=12870)!($G(ICDDX(1))=12872) S ICDRG=559"
^XMB(3.9,58,2,5965,0)="""RTN"",""ICDTLB6B"",192,0)"
^XMB(3.9,58,2,5966,0)=" Q"
^XMB(3.9,58,2,5967,0)="""RTN"",""ICDTLB6B"",193,0)"
^XMB(3.9,58,2,5968,0)="MCV ; checks to see if case qualifies as an MCV (major cardiovascular complications or complex conditions)"
^XMB(3.9,58,2,5969,0)="""RTN"",""ICDTLB6B"",194,0)"
^XMB(3.9,58,2,5970,0)=" S (ICDMCV,ICDMCV1,ICDMCV2)=0"
^XMB(3.9,58,2,5971,0)="""RTN"",""ICDTLB6B"",195,0)"
^XMB(3.9,58,2,5972,0)=" ; ICDPD=identifier for prime dx  ICDSD=identifier for any secondary dx"
^XMB(3.9,58,2,5973,0)="""RTN"",""ICDTLB6B"",196,0)"
^XMB(3.9,58,2,5974,0)=" ; DGDX(1)=prime dx  ICDDX(1)=ien of prime dx ICDDXT=any secondary dx  "
^XMB(3.9,58,2,5975,0)="""RTN"",""ICDTLB6B"",197,0)"
^XMB(3.9,58,2,5976,0)=" I ICDPD[""c""!(ICDSD[""c"") S ICDMCV=1"
^XMB(3.9,58,2,5977,0)="""RTN"",""ICDTLB6B"",198,0)"
^XMB(3.9,58,2,5978,0)=" I ICDSD[""s"" S ICDMCV=1"
^XMB(3.9,58,2,5979,0)="""RTN"",""ICDTLB6B"",199,0)"
^XMB(3.9,58,2,5980,0)=" ;I DGDX(1)[""426.0""!(DGDX(1)[""426.53"")!(DGDX(1)[""426.54"") S ICDMCV1=1"
^XMB(3.9,58,2,5981,0)="""RTN"",""ICDTLB6B"",200,0)"
^XMB(3.9,58,2,5982,0)=" I $G(ICDDX(1))=9056!($G(ICDDX(1))=2548)!($G(ICDDX(1))=2549) S ICDMCV1=1"
^XMB(3.9,58,2,5983,0)="""RTN"",""ICDTLB6B"",201,0)"
^XMB(3.9,58,2,5984,0)=" I $D(ICDDXT(""426.0""))!($D(ICDDXT(""426.53"")))!($D(ICDDXT(""426.54""))) S ICDMCV1=1"
^XMB(3.9,58,2,5985,0)="""RTN"",""ICDTLB6B"",202,0)"
^XMB(3.9,58,2,5986,0)=" ;I DGDX(1)[""411.1""!(DGDX(1)[""411.81"") S ICDMCV2=1"
^XMB(3.9,58,2,5987,0)="""RTN"",""ICDTLB6B"",203,0)"
^XMB(3.9,58,2,5988,0)=" I $G(ICDDX(1))=2500!($G(ICDDX(1))=12477) S ICDMCV2=1"
^XMB(3.9,58,2,5989,0)="""RTN"",""ICDTLB6B"",204,0)"
^XMB(3.9,58,2,5990,0)=" I $D(ICDDXT(""411.1""))!($D(ICDDXT(""411.81""))) S ICDMCV2=1"
^XMB(3.9,58,2,5991,0)="""RTN"",""ICDTLB6B"",205,0)"
^XMB(3.9,58,2,5992,0)=" Q"
^XMB(3.9,58,2,5993,0)="""VER"")"
^XMB(3.9,58,2,5994,0)="8.0^22.0"
^XMB(3.9,58,2,5995,0)="""BLD"",6387,6)"
^XMB(3.9,58,2,5996,0)="^19"
^XMB(3.9,58,2,5997,0)="$END KID ICD*18.0*20"
^XMB(3.9,58,6,0)="^3.911A^2^2"
^XMB(3.9,58,6,1,0)="POSTMASTER"
^XMB(3.9,58,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,58,6,"B","POSTMASTER",1)=""
^XMB(3.9,58,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,59,0)="ICD-18_SEQ-21_PAT-22.KID^.5^3061008.015738^^^^K"
^XMB(3.9,59,.6)="3061008"
^XMB(3.9,59,1,0)="^3.91A^2^2"
^XMB(3.9,59,1,1,0)=".5^0^3061008.015738^^^^^^^3061008.015738"
^XMB(3.9,59,1,2,0)="1^0^3061008.024109^^^^^^^3061008.0237"
^XMB(3.9,59,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,59,1,"C",.5,1)=""
^XMB(3.9,59,1,"C",1,2)=""
^XMB(3.9,59,2,0)="^^1423^1423^3061008"
^XMB(3.9,59,2,1,0)="$TXT Released ICD*18*22 SEQ #21"
^XMB(3.9,59,2,2,0)="Extracted from mail message"
^XMB(3.9,59,2,3,0)="$END TXT"
^XMB(3.9,59,2,4,0)="$KID ICD*18.0*22"
^XMB(3.9,59,2,5,0)="**INSTALL NAME**"
^XMB(3.9,59,2,6,0)="ICD*18.0*22"
^XMB(3.9,59,2,7,0)="""BLD"",6812,0)"
^XMB(3.9,59,2,8,0)="ICD*18.0*22^DRG GROUPER^0^3060623^y"
^XMB(3.9,59,2,9,0)="""BLD"",6812,1,0)"
^XMB(3.9,59,2,10,0)="^^2^2^3060616^"
^XMB(3.9,59,2,11,0)="""BLD"",6812,1,1,0)"
^XMB(3.9,59,2,12,0)="This patch fixes several problems all related to the wrong DRG being "
^XMB(3.9,59,2,13,0)="""BLD"",6812,1,2,0)"
^XMB(3.9,59,2,14,0)="calculated by the VistA DRG Grouper."
^XMB(3.9,59,2,15,0)="""BLD"",6812,4,0)"
^XMB(3.9,59,2,16,0)="^9.64PA^^"
^XMB(3.9,59,2,17,0)="""BLD"",6812,6)"
^XMB(3.9,59,2,18,0)="1^"
^XMB(3.9,59,2,19,0)="""BLD"",6812,""INI"")"
^XMB(3.9,59,2,20,0)="ICD1822P"
^XMB(3.9,59,2,21,0)="""BLD"",6812,""INID"")"
^XMB(3.9,59,2,22,0)="^^n"
^XMB(3.9,59,2,23,0)="""BLD"",6812,""KRN"",0)"
^XMB(3.9,59,2,24,0)="^9.67PA^8989.52^19"
^XMB(3.9,59,2,25,0)="""BLD"",6812,""KRN"",.4,0)"
^XMB(3.9,59,2,26,0)=".4"
^XMB(3.9,59,2,27,0)="""BLD"",6812,""KRN"",.401,0)"
^XMB(3.9,59,2,28,0)=".401"
^XMB(3.9,59,2,29,0)="""BLD"",6812,""KRN"",.402,0)"
^XMB(3.9,59,2,30,0)=".402"
^XMB(3.9,59,2,31,0)="""BLD"",6812,""KRN"",.403,0)"
^XMB(3.9,59,2,32,0)=".403"
^XMB(3.9,59,2,33,0)="""BLD"",6812,""KRN"",.5,0)"
^XMB(3.9,59,2,34,0)=".5"
^XMB(3.9,59,2,35,0)="""BLD"",6812,""KRN"",.84,0)"
^XMB(3.9,59,2,36,0)=".84"
^XMB(3.9,59,2,37,0)="""BLD"",6812,""KRN"",3.6,0)"
^XMB(3.9,59,2,38,0)="3.6"
^XMB(3.9,59,2,39,0)="""BLD"",6812,""KRN"",3.8,0)"
^XMB(3.9,59,2,40,0)="3.8"
^XMB(3.9,59,2,41,0)="""BLD"",6812,""KRN"",9.2,0)"
^XMB(3.9,59,2,42,0)="9.2"
^XMB(3.9,59,2,43,0)="""BLD"",6812,""KRN"",9.8,0)"
^XMB(3.9,59,2,44,0)="9.8"
^XMB(3.9,59,2,45,0)="""BLD"",6812,""KRN"",9.8,""NM"",0)"
^XMB(3.9,59,2,46,0)="^9.68A^5^5"
^XMB(3.9,59,2,47,0)="""BLD"",6812,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,59,2,48,0)="ICDDRG5^^0^B20024424"
^XMB(3.9,59,2,49,0)="""BLD"",6812,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,59,2,50,0)="ICDTLB6B^^0^B51496024"
^XMB(3.9,59,2,51,0)="""BLD"",6812,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,59,2,52,0)="ICDTLB61^^0^B1234931"
^XMB(3.9,59,2,53,0)="""BLD"",6812,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,59,2,54,0)="ICD1822P^^0^B2132766"
^XMB(3.9,59,2,55,0)="""BLD"",6812,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,59,2,56,0)="ICD1822C^^0^B34780368"
^XMB(3.9,59,2,57,0)="""BLD"",6812,""KRN"",9.8,""NM"",""B"",""ICD1822C"",5)"
^XMB(3.9,59,2,58,0)=""
^XMB(3.9,59,2,59,0)="""BLD"",6812,""KRN"",9.8,""NM"",""B"",""ICD1822P"",4)"
^XMB(3.9,59,2,60,0)=""
^XMB(3.9,59,2,61,0)="""BLD"",6812,""KRN"",9.8,""NM"",""B"",""ICDDRG5"",1)"
^XMB(3.9,59,2,62,0)=""
^XMB(3.9,59,2,63,0)="""BLD"",6812,""KRN"",9.8,""NM"",""B"",""ICDTLB61"",3)"
^XMB(3.9,59,2,64,0)=""
^XMB(3.9,59,2,65,0)="""BLD"",6812,""KRN"",9.8,""NM"",""B"",""ICDTLB6B"",2)"
^XMB(3.9,59,2,66,0)=""
^XMB(3.9,59,2,67,0)="""BLD"",6812,""KRN"",19,0)"
^XMB(3.9,59,2,68,0)="19"
^XMB(3.9,59,2,69,0)="""BLD"",6812,""KRN"",19.1,0)"
^XMB(3.9,59,2,70,0)="19.1"
^XMB(3.9,59,2,71,0)="""BLD"",6812,""KRN"",101,0)"
^XMB(3.9,59,2,72,0)="101"
^XMB(3.9,59,2,73,0)="""BLD"",6812,""KRN"",409.61,0)"
^XMB(3.9,59,2,74,0)="409.61"
^XMB(3.9,59,2,75,0)="""BLD"",6812,""KRN"",771,0)"
^XMB(3.9,59,2,76,0)="771"
^XMB(3.9,59,2,77,0)="""BLD"",6812,""KRN"",870,0)"
^XMB(3.9,59,2,78,0)="870"
^XMB(3.9,59,2,79,0)="""BLD"",6812,""KRN"",8989.51,0)"
^XMB(3.9,59,2,80,0)="8989.51"
^XMB(3.9,59,2,81,0)="""BLD"",6812,""KRN"",8989.52,0)"
^XMB(3.9,59,2,82,0)="8989.52"
^XMB(3.9,59,2,83,0)="""BLD"",6812,""KRN"",8994,0)"
^XMB(3.9,59,2,84,0)="8994"
^XMB(3.9,59,2,85,0)="""BLD"",6812,""KRN"",""B"",.4,.4)"
^XMB(3.9,59,2,86,0)=""
^XMB(3.9,59,2,87,0)="""BLD"",6812,""KRN"",""B"",.401,.401)"
^XMB(3.9,59,2,88,0)=""
^XMB(3.9,59,2,89,0)="""BLD"",6812,""KRN"",""B"",.402,.402)"
^XMB(3.9,59,2,90,0)=""
^XMB(3.9,59,2,91,0)="""BLD"",6812,""KRN"",""B"",.403,.403)"
^XMB(3.9,59,2,92,0)=""
^XMB(3.9,59,2,93,0)="""BLD"",6812,""KRN"",""B"",.5,.5)"
^XMB(3.9,59,2,94,0)=""
^XMB(3.9,59,2,95,0)="""BLD"",6812,""KRN"",""B"",.84,.84)"
^XMB(3.9,59,2,96,0)=""
^XMB(3.9,59,2,97,0)="""BLD"",6812,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,59,2,98,0)=""
^XMB(3.9,59,2,99,0)="""BLD"",6812,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,59,2,100,0)=""
^XMB(3.9,59,2,101,0)="""BLD"",6812,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,59,2,102,0)=""
^XMB(3.9,59,2,103,0)="""BLD"",6812,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,59,2,104,0)=""
^XMB(3.9,59,2,105,0)="""BLD"",6812,""KRN"",""B"",19,19)"
^XMB(3.9,59,2,106,0)=""
^XMB(3.9,59,2,107,0)="""BLD"",6812,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,59,2,108,0)=""
^XMB(3.9,59,2,109,0)="""BLD"",6812,""KRN"",""B"",101,101)"
^XMB(3.9,59,2,110,0)=""
^XMB(3.9,59,2,111,0)="""BLD"",6812,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,59,2,112,0)=""
^XMB(3.9,59,2,113,0)="""BLD"",6812,""KRN"",""B"",771,771)"
^XMB(3.9,59,2,114,0)=""
^XMB(3.9,59,2,115,0)="""BLD"",6812,""KRN"",""B"",870,870)"
^XMB(3.9,59,2,116,0)=""
^XMB(3.9,59,2,117,0)="""BLD"",6812,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,59,2,118,0)=""
^XMB(3.9,59,2,119,0)="""BLD"",6812,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,59,2,120,0)=""
^XMB(3.9,59,2,121,0)="""BLD"",6812,""KRN"",""B"",8994,8994)"
^XMB(3.9,59,2,122,0)=""
^XMB(3.9,59,2,123,0)="""BLD"",6812,""QUES"",0)"
^XMB(3.9,59,2,124,0)="^9.62^^"
^XMB(3.9,59,2,125,0)="""BLD"",6812,""REQB"",0)"
^XMB(3.9,59,2,126,0)="^9.611^2^2"
^XMB(3.9,59,2,127,0)="""BLD"",6812,""REQB"",1,0)"
^XMB(3.9,59,2,128,0)="ICD*18.0*20^1"
^XMB(3.9,59,2,129,0)="""BLD"",6812,""REQB"",2,0)"
^XMB(3.9,59,2,130,0)="LEX*2.0*40^1"
^XMB(3.9,59,2,131,0)="""BLD"",6812,""REQB"",""B"",""ICD*18.0*20"",1)"
^XMB(3.9,59,2,132,0)=""
^XMB(3.9,59,2,133,0)="""BLD"",6812,""REQB"",""B"",""LEX*2.0*40"",2)"
^XMB(3.9,59,2,134,0)=""
^XMB(3.9,59,2,135,0)="""INI"")"
^XMB(3.9,59,2,136,0)="ICD1822P"
^XMB(3.9,59,2,137,0)="""MBREQ"")"
^XMB(3.9,59,2,138,0)="0"
^XMB(3.9,59,2,139,0)="""PKG"",151,-1)"
^XMB(3.9,59,2,140,0)="1^1"
^XMB(3.9,59,2,141,0)="""PKG"",151,0)"
^XMB(3.9,59,2,142,0)="DRG GROUPER^ICD^DRG GROUPER"
^XMB(3.9,59,2,143,0)="""PKG"",151,20,0)"
^XMB(3.9,59,2,144,0)="^9.402P^^"
^XMB(3.9,59,2,145,0)="""PKG"",151,22,0)"
^XMB(3.9,59,2,146,0)="^9.49I^1^1"
^XMB(3.9,59,2,147,0)="""PKG"",151,22,1,0)"
^XMB(3.9,59,2,148,0)="18.0^3001024^3010118^66481"
^XMB(3.9,59,2,149,0)="""PKG"",151,22,1,""PAH"",1,0)"
^XMB(3.9,59,2,150,0)="22^3060623^100850"
^XMB(3.9,59,2,151,0)="""PKG"",151,22,1,""PAH"",1,1,0)"
^XMB(3.9,59,2,152,0)="^^2^2^3060623"
^XMB(3.9,59,2,153,0)="""PKG"",151,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,59,2,154,0)="This patch fixes several problems all related to the wrong DRG being "
^XMB(3.9,59,2,155,0)="""PKG"",151,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,59,2,156,0)="calculated by the VistA DRG Grouper."
^XMB(3.9,59,2,157,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,59,2,158,0)="Y"
^XMB(3.9,59,2,159,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,59,2,160,0)="^D REP^XPDH"
^XMB(3.9,59,2,161,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,59,2,162,0)="Shall I write over your |FLAG| File"
^XMB(3.9,59,2,163,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,59,2,164,0)="YES"
^XMB(3.9,59,2,165,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,59,2,166,0)="D XPF1^XPDIQ"
^XMB(3.9,59,2,167,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,59,2,168,0)="Y"
^XMB(3.9,59,2,169,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,59,2,170,0)="^D DTA^XPDH"
^XMB(3.9,59,2,171,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,59,2,172,0)="Want my data |FLAG| yours"
^XMB(3.9,59,2,173,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,59,2,174,0)="YES"
^XMB(3.9,59,2,175,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,59,2,176,0)="D XPF2^XPDIQ"
^XMB(3.9,59,2,177,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,59,2,178,0)="YO"
^XMB(3.9,59,2,179,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,59,2,180,0)="^D INHIBIT^XPDH"
^XMB(3.9,59,2,181,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,59,2,182,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,59,2,183,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,59,2,184,0)="YES"
^XMB(3.9,59,2,185,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,59,2,186,0)="D XPI1^XPDIQ"
^XMB(3.9,59,2,187,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,59,2,188,0)="PO^VA(200,:EM"
^XMB(3.9,59,2,189,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,59,2,190,0)="^D MG^XPDH"
^XMB(3.9,59,2,191,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,59,2,192,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,59,2,193,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,59,2,194,0)=""
^XMB(3.9,59,2,195,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,59,2,196,0)="D XPM1^XPDIQ"
^XMB(3.9,59,2,197,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,59,2,198,0)="Y"
^XMB(3.9,59,2,199,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,59,2,200,0)="^D MENU^XPDH"
^XMB(3.9,59,2,201,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,59,2,202,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,59,2,203,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,59,2,204,0)="YES"
^XMB(3.9,59,2,205,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,59,2,206,0)="D XPO1^XPDIQ"
^XMB(3.9,59,2,207,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,59,2,208,0)="Y"
^XMB(3.9,59,2,209,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,59,2,210,0)="^D OPT^XPDH"
^XMB(3.9,59,2,211,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,59,2,212,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,59,2,213,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,59,2,214,0)="YES"
^XMB(3.9,59,2,215,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,59,2,216,0)="D XPZ1^XPDIQ"
^XMB(3.9,59,2,217,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,59,2,218,0)="Y"
^XMB(3.9,59,2,219,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,59,2,220,0)="^D RTN^XPDH"
^XMB(3.9,59,2,221,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,59,2,222,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,59,2,223,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,59,2,224,0)="NO"
^XMB(3.9,59,2,225,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,59,2,226,0)="D XPZ2^XPDIQ"
^XMB(3.9,59,2,227,0)="""RTN"")"
^XMB(3.9,59,2,228,0)="5"
^XMB(3.9,59,2,229,0)="""RTN"",""ICD1822C"")"
^XMB(3.9,59,2,230,0)="0^5^B34780368^n/a"
^XMB(3.9,59,2,231,0)="""RTN"",""ICD1822C"",1,0)"
^XMB(3.9,59,2,232,0)="ICD1822C   ; ALB/JAT - NEW DIAGNOSIS CODES; 7/27/05 14:50;"
^XMB(3.9,59,2,233,0)="""RTN"",""ICD1822C"",2,0)"
^XMB(3.9,59,2,234,0)=" ;;18.0;DRG Grouper;**22**;Oct 13,2000"
^XMB(3.9,59,2,235,0)="""RTN"",""ICD1822C"",3,0)"
^XMB(3.9,59,2,236,0)=" Q"
^XMB(3.9,59,2,237,0)="""RTN"",""ICD1822C"",4,0)"
^XMB(3.9,59,2,238,0)=" ; this routine is identical to ICD1820C"
^XMB(3.9,59,2,239,0)="""RTN"",""ICD1822C"",5,0)"
^XMB(3.9,59,2,240,0)="DIAG ;"
^XMB(3.9,59,2,241,0)="""RTN"",""ICD1822C"",6,0)"
^XMB(3.9,59,2,242,0)=" ; from Table 6A in Fed Reg - assumes new codes already added by Lexicon"
^XMB(3.9,59,2,243,0)="""RTN"",""ICD1822C"",7,0)"
^XMB(3.9,59,2,244,0)=" D BMES^XPDUTL("">>>Modifying new diagnosis codes - file 80"")"
^XMB(3.9,59,2,245,0)="""RTN"",""ICD1822C"",8,0)"
^XMB(3.9,59,2,246,0)=" N LINE,X,ICDDIAG,ENTRY,DA,DIE,DR,IDENT,MDC,MDC25,FDA"
^XMB(3.9,59,2,247,0)="""RTN"",""ICD1822C"",9,0)"
^XMB(3.9,59,2,248,0)=" F LINE=1:1 S X=$T(REVD+LINE) S ICDDIAG=$P(X,"";;"",2) Q:ICDDIAG=""EXIT""  D"
^XMB(3.9,59,2,249,0)="""RTN"",""ICD1822C"",10,0)"
^XMB(3.9,59,2,250,0)=" .S ENTRY=+$O(^ICD9(""BA"",$P(ICDDIAG,U)_"" "",0))"
^XMB(3.9,59,2,251,0)="""RTN"",""ICD1822C"",11,0)"
^XMB(3.9,59,2,252,0)=" .I ENTRY D"
^XMB(3.9,59,2,253,0)="""RTN"",""ICD1822C"",12,0)"
^XMB(3.9,59,2,254,0)="    ..;check for possible inactive dupe"
^XMB(3.9,59,2,255,0)="""RTN"",""ICD1822C"",13,0)"
^XMB(3.9,59,2,256,0)=" ..I $P($G(^ICD9(ENTRY,0)),U,9)=1 S ENTRY=+$O(^ICD9(""BA"",$P(ICDDIAG,U)_"" "",ENTRY)) I 'ENTRY Q "
^XMB(3.9,59,2,257,0)="""RTN"",""ICD1822C"",14,0)"
^XMB(3.9,59,2,258,0)=" ..S DA=ENTRY,DIE=""^ICD9("""
^XMB(3.9,59,2,259,0)="""RTN"",""ICD1822C"",15,0)"
^XMB(3.9,59,2,260,0)=" ..S IDENT=$P(ICDDIAG,U,2)"
^XMB(3.9,59,2,261,0)="""RTN"",""ICD1822C"",16,0)"
^XMB(3.9,59,2,262,0)=" ..S MDC=$P(ICDDIAG,U,3)"
^XMB(3.9,59,2,263,0)="""RTN"",""ICD1822C"",17,0)"
^XMB(3.9,59,2,264,0)=" ..;this would only apply to diagnoses who have no other MDC than a pre-MDC"
^XMB(3.9,59,2,265,0)="""RTN"",""ICD1822C"",18,0)"
^XMB(3.9,59,2,266,0)=" ..I MDC=""PRE"" S MDC=98"
^XMB(3.9,59,2,267,0)="""RTN"",""ICD1822C"",19,0)"
^XMB(3.9,59,2,268,0)=" ..S MDC25=$P(ICDDIAG,U,4)"
^XMB(3.9,59,2,269,0)="""RTN"",""ICD1822C"",20,0)"
^XMB(3.9,59,2,270,0)=" ..S DR=""2///^S X=IDENT;5///^S X=MDC;5.9///^S X=MDC25"""
^XMB(3.9,59,2,271,0)="""RTN"",""ICD1822C"",21,0)"
^XMB(3.9,59,2,272,0)=" ..D ^DIE"
^XMB(3.9,59,2,273,0)="""RTN"",""ICD1822C"",22,0)"
^XMB(3.9,59,2,274,0)=" ..;check if already created in case patch being re-installed"
^XMB(3.9,59,2,275,0)="""RTN"",""ICD1822C"",23,0)"
^XMB(3.9,59,2,276,0)=" ..Q:$D(^ICD9(ENTRY,3))"
^XMB(3.9,59,2,277,0)="""RTN"",""ICD1822C"",24,0)"
^XMB(3.9,59,2,278,0)=" ..; add 80.071 and 80.711 and 80.072 records"
^XMB(3.9,59,2,279,0)="""RTN"",""ICD1822C"",25,0)"
^XMB(3.9,59,2,280,0)=" ..N FDA"
^XMB(3.9,59,2,281,0)="""RTN"",""ICD1822C"",26,0)"
^XMB(3.9,59,2,282,0)=" ..S FDA(1820,80,""?1,"",.01)=""`""_ENTRY"
^XMB(3.9,59,2,283,0)="""RTN"",""ICD1822C"",27,0)"
^XMB(3.9,59,2,284,0)=" ..S FDA(1820,80.071,""+2,?1,"",.01)=3051001"
^XMB(3.9,59,2,285,0)="""RTN"",""ICD1822C"",28,0)"
^XMB(3.9,59,2,286,0)=" ..S FDA(1820,80.072,""+3,?1,"",.01)=3051001"
^XMB(3.9,59,2,287,0)="""RTN"",""ICD1822C"",29,0)"
^XMB(3.9,59,2,288,0)=" ..S FDA(1820,80.072,""+3,?1,"",1)=$P(ICDDIAG,U,3)"
^XMB(3.9,59,2,289,0)="""RTN"",""ICD1822C"",30,0)"
^XMB(3.9,59,2,290,0)=" ..D UPDATE^DIE("""",""FDA(1820)"") K FDA(1820)"
^XMB(3.9,59,2,291,0)="""RTN"",""ICD1822C"",31,0)"
^XMB(3.9,59,2,292,0)=" ..S FDA(1820,80,""?1,"",.01)=""`""_ENTRY"
^XMB(3.9,59,2,293,0)="""RTN"",""ICD1822C"",32,0)"
^XMB(3.9,59,2,294,0)=" ..S FDA(1820,80.071,""?2,?1,"",.01)=3051001"
^XMB(3.9,59,2,295,0)="""RTN"",""ICD1822C"",33,0)"
^XMB(3.9,59,2,296,0)=" ..S FDA(1820,80.711,""+3,?2,?1,"",.01)=$P(ICDDIAG,U,5)"
^XMB(3.9,59,2,297,0)="""RTN"",""ICD1822C"",34,0)"
^XMB(3.9,59,2,298,0)=" ..I $P(ICDDIAG,U,6) S FDA(1820,80.711,""+4,?2,?1,"",.01)=$P(ICDDIAG,U,6)"
^XMB(3.9,59,2,299,0)="""RTN"",""ICD1822C"",35,0)"
^XMB(3.9,59,2,300,0)=" ..I $P(ICDDIAG,U,7) S FDA(1820,80.711,""+5,?2,?1,"",.01)=$P(ICDDIAG,U,7)"
^XMB(3.9,59,2,301,0)="""RTN"",""ICD1822C"",36,0)"
^XMB(3.9,59,2,302,0)=" ..I $P(ICDDIAG,U,8) S FDA(1820,80.711,""+6,?2,?1,"",.01)=$P(ICDDIAG,U,8)"
^XMB(3.9,59,2,303,0)="""RTN"",""ICD1822C"",37,0)"
^XMB(3.9,59,2,304,0)=" ..I $P(ICDDIAG,U,9) S FDA(1820,80.711,""+7,?2,?1,"",.01)=$P(ICDDIAG,U,9)"
^XMB(3.9,59,2,305,0)="""RTN"",""ICD1822C"",38,0)"
^XMB(3.9,59,2,306,0)=" ..I $P(ICDDIAG,U,10) S FDA(1820,80.711,""+8,?2,?1,"",.01)=$P(ICDDIAG,U,10)"
^XMB(3.9,59,2,307,0)="""RTN"",""ICD1822C"",39,0)"
^XMB(3.9,59,2,308,0)=" ..D UPDATE^DIE("""",""FDA(1820)"") K FDA(1820)"
^XMB(3.9,59,2,309,0)="""RTN"",""ICD1822C"",40,0)"
^XMB(3.9,59,2,310,0)=" Q"
^XMB(3.9,59,2,311,0)="""RTN"",""ICD1822C"",41,0)"
^XMB(3.9,59,2,312,0)="REVD ;"
^XMB(3.9,59,2,313,0)="""RTN"",""ICD1822C"",42,0)"
^XMB(3.9,59,2,314,0)=" ;;259.5^^10^^300^301"
^XMB(3.9,59,2,315,0)="""RTN"",""ICD1822C"",43,0)"
^XMB(3.9,59,2,316,0)=" ;;276.50^HJC^10^2^296^297^298^490"
^XMB(3.9,59,2,317,0)="""RTN"",""ICD1822C"",44,0)"
^XMB(3.9,59,2,318,0)=" ;;276.51^HJC^10^2^296^297^298^490"
^XMB(3.9,59,2,319,0)="""RTN"",""ICD1822C"",45,0)"
^XMB(3.9,59,2,320,0)=" ;;276.52^HJC^10^2^296^297^298^490"
^XMB(3.9,59,2,321,0)="""RTN"",""ICD1822C"",46,0)"
^XMB(3.9,59,2,322,0)=" ;;278.02^^10^^296^297^298"
^XMB(3.9,59,2,323,0)="""RTN"",""ICD1822C"",47,0)"
^XMB(3.9,59,2,324,0)=" ;;287.30^^16^^397"
^XMB(3.9,59,2,325,0)="""RTN"",""ICD1822C"",48,0)"
^XMB(3.9,59,2,326,0)=" ;;287.31^^16^^397"
^XMB(3.9,59,2,327,0)="""RTN"",""ICD1822C"",49,0)"
^XMB(3.9,59,2,328,0)=" ;;287.32^^16^^397"
^XMB(3.9,59,2,329,0)="""RTN"",""ICD1822C"",50,0)"
^XMB(3.9,59,2,330,0)=" ;;287.33^^16^^397"
^XMB(3.9,59,2,331,0)="""RTN"",""ICD1822C"",51,0)"
^XMB(3.9,59,2,332,0)=" ;;287.39^^16^^397"
^XMB(3.9,59,2,333,0)="""RTN"",""ICD1822C"",52,0)"
^XMB(3.9,59,2,334,0)=" ;;291.82^^20^^521^522^523"
^XMB(3.9,59,2,335,0)="""RTN"",""ICD1822C"",53,0)"
^XMB(3.9,59,2,336,0)=" ;;292.85^^20^^521^522^523"
^XMB(3.9,59,2,337,0)="""RTN"",""ICD1822C"",54,0)"
^XMB(3.9,59,2,338,0)=" ;;327.00^^19^^432"
^XMB(3.9,59,2,339,0)="""RTN"",""ICD1822C"",55,0)"
^XMB(3.9,59,2,340,0)=" ;;327.01^^19^^432"
^XMB(3.9,59,2,341,0)="""RTN"",""ICD1822C"",56,0)"
^XMB(3.9,59,2,342,0)=" ;;327.02^^19^^432"
^XMB(3.9,59,2,343,0)="""RTN"",""ICD1822C"",57,0)"
^XMB(3.9,59,2,344,0)=" ;;327.09^^19^^432"
^XMB(3.9,59,2,345,0)="""RTN"",""ICD1822C"",58,0)"
^XMB(3.9,59,2,346,0)=" ;;327.10^^19^^422"
^XMB(3.9,59,2,347,0)="""RTN"",""ICD1822C"",59,0)"
^XMB(3.9,59,2,348,0)=" ;;327.11^^19^^422"
^XMB(3.9,59,2,349,0)="""RTN"",""ICD1822C"",60,0)"
^XMB(3.9,59,2,350,0)=" ;;327.12^^19^^422"
^XMB(3.9,59,2,351,0)="""RTN"",""ICD1822C"",61,0)"
^XMB(3.9,59,2,352,0)=" ;;327.13^^19^^422"
^XMB(3.9,59,2,353,0)="""RTN"",""ICD1822C"",62,0)"
^XMB(3.9,59,2,354,0)=" ;;327.14^^19^^422"
^XMB(3.9,59,2,355,0)="""RTN"",""ICD1822C"",63,0)"
^XMB(3.9,59,2,356,0)=" ;;327.15^^19^^422"
^XMB(3.9,59,2,357,0)="""RTN"",""ICD1822C"",64,0)"
^XMB(3.9,59,2,358,0)=" ;;327.19^^19^^422"
^XMB(3.9,59,2,359,0)="""RTN"",""ICD1822C"",65,0)"
^XMB(3.9,59,2,360,0)=" ;;327.20^^3^^73^74"
^XMB(3.9,59,2,361,0)="""RTN"",""ICD1822C"",66,0)"
^XMB(3.9,59,2,362,0)=" ;;327.21^^1^^34^35"
^XMB(3.9,59,2,363,0)="""RTN"",""ICD1822C"",67,0)"
^XMB(3.9,59,2,364,0)=" ;;327.22^^4^^99^100"
^XMB(3.9,59,2,365,0)="""RTN"",""ICD1822C"",68,0)"
^XMB(3.9,59,2,366,0)=" ;;327.23^^3^^73^74"
^XMB(3.9,59,2,367,0)="""RTN"",""ICD1822C"",69,0)"
^XMB(3.9,59,2,368,0)=" ;;327.24^^3^^73^74"
^XMB(3.9,59,2,369,0)="""RTN"",""ICD1822C"",70,0)"
^XMB(3.9,59,2,370,0)=" ;;327.25^^1^^34^35"
^XMB(3.9,59,2,371,0)="""RTN"",""ICD1822C"",71,0)"
^XMB(3.9,59,2,372,0)=" ;;327.26^^3^^73^74"
^XMB(3.9,59,2,373,0)="""RTN"",""ICD1822C"",72,0)"
^XMB(3.9,59,2,374,0)=" ;;327.27^^1^^34^35"
^XMB(3.9,59,2,375,0)="""RTN"",""ICD1822C"",73,0)"
^XMB(3.9,59,2,376,0)=" ;;327.29^^3^^73^74"
^XMB(3.9,59,2,377,0)="""RTN"",""ICD1822C"",74,0)"
^XMB(3.9,59,2,378,0)=" ;;327.30^^1^^34^35"
^XMB(3.9,59,2,379,0)="""RTN"",""ICD1822C"",75,0)"
^XMB(3.9,59,2,380,0)=" ;;327.31^^1^^34^35"
^XMB(3.9,59,2,381,0)="""RTN"",""ICD1822C"",76,0)"
^XMB(3.9,59,2,382,0)=" ;;327.32^^1^^34^35"
^XMB(3.9,59,2,383,0)="""RTN"",""ICD1822C"",77,0)"
^XMB(3.9,59,2,384,0)=" ;;327.33^^1^^34^35"
^XMB(3.9,59,2,385,0)="""RTN"",""ICD1822C"",78,0)"
^XMB(3.9,59,2,386,0)=" ;;327.34^^1^^34^35"
^XMB(3.9,59,2,387,0)="""RTN"",""ICD1822C"",79,0)"
^XMB(3.9,59,2,388,0)=" ;;327.35^^1^^34^35"
^XMB(3.9,59,2,389,0)="""RTN"",""ICD1822C"",80,0)"
^XMB(3.9,59,2,390,0)=" ;;327.36^^1^^34^35"
^XMB(3.9,59,2,391,0)="""RTN"",""ICD1822C"",81,0)"
^XMB(3.9,59,2,392,0)=" ;;327.37^^1^^34^35"
^XMB(3.9,59,2,393,0)="""RTN"",""ICD1822C"",82,0)"
^XMB(3.9,59,2,394,0)=" ;;327.39^^1^^34^35"
^XMB(3.9,59,2,395,0)="""RTN"",""ICD1822C"",83,0)"
^XMB(3.9,59,2,396,0)=" ;;327.40^^3^^73^74"
^XMB(3.9,59,2,397,0)="""RTN"",""ICD1822C"",84,0)"
^XMB(3.9,59,2,398,0)=" ;;327.41^^1^^34^35"
^XMB(3.9,59,2,399,0)="""RTN"",""ICD1822C"",85,0)"
^XMB(3.9,59,2,400,0)=" ;;327.42^^3^^73^74"
^XMB(3.9,59,2,401,0)="""RTN"",""ICD1822C"",86,0)"
^XMB(3.9,59,2,402,0)=" ;;327.43^^1^^34^35"
^XMB(3.9,59,2,403,0)="""RTN"",""ICD1822C"",87,0)"
^XMB(3.9,59,2,404,0)=" ;;327.44^^3^^73^74"
^XMB(3.9,59,2,405,0)="""RTN"",""ICD1822C"",88,0)"
^XMB(3.9,59,2,406,0)=" ;;327.49^^3^^73^74"
^XMB(3.9,59,2,407,0)="""RTN"",""ICD1822C"",89,0)"
^XMB(3.9,59,2,408,0)=" ;;327.51^^1^^34^35"
^XMB(3.9,59,2,409,0)="""RTN"",""ICD1822C"",90,0)"
^XMB(3.9,59,2,410,0)=" ;;327.52^^1^^34^35"
^XMB(3.9,59,2,411,0)="""RTN"",""ICD1822C"",91,0)"
^XMB(3.9,59,2,412,0)=" ;;327.53^^3^^73^74"
^XMB(3.9,59,2,413,0)="""RTN"",""ICD1822C"",92,0)"
^XMB(3.9,59,2,414,0)=" ;;327.59^^3^^73^74"
^XMB(3.9,59,2,415,0)="""RTN"",""ICD1822C"",93,0)"
^XMB(3.9,59,2,416,0)=" ;;327.8^^3^^73^74"
^XMB(3.9,59,2,417,0)="""RTN"",""ICD1822C"",94,0)"
^XMB(3.9,59,2,418,0)=" ;;362.03^^2^^46^47^48"
^XMB(3.9,59,2,419,0)="""RTN"",""ICD1822C"",95,0)"
^XMB(3.9,59,2,420,0)=" ;;362.04^^2^^46^47^48"
^XMB(3.9,59,2,421,0)="""RTN"",""ICD1822C"",96,0)"
^XMB(3.9,59,2,422,0)=" ;;362.05^^2^^46^47^48"
^XMB(3.9,59,2,423,0)="""RTN"",""ICD1822C"",97,0)"
^XMB(3.9,59,2,424,0)=" ;;362.06^^2^^46^47^48"
^XMB(3.9,59,2,425,0)="""RTN"",""ICD1822C"",98,0)"
^XMB(3.9,59,2,426,0)=" ;;362.07^^2^^46^47^48"
^XMB(3.9,59,2,427,0)="""RTN"",""ICD1822C"",99,0)"
^XMB(3.9,59,2,428,0)=" ;;426.82^^5^^138^139"
^XMB(3.9,59,2,429,0)="""RTN"",""ICD1822C"",100,0)"
^XMB(3.9,59,2,430,0)=" ;;443.82^^5^^130^131"
^XMB(3.9,59,2,431,0)="""RTN"",""ICD1822C"",101,0)"
^XMB(3.9,59,2,432,0)=" ;;525.40^^3^^185^186^187"
^XMB(3.9,59,2,433,0)="""RTN"",""ICD1822C"",102,0)"
^XMB(3.9,59,2,434,0)=" ;;525.41^^3^^185^186^187"
^XMB(3.9,59,2,435,0)="""RTN"",""ICD1822C"",103,0)"
^XMB(3.9,59,2,436,0)=" ;;525.42^^3^^185^186^187"
^XMB(3.9,59,2,437,0)="""RTN"",""ICD1822C"",104,0)"
^XMB(3.9,59,2,438,0)=" ;;525.43^^3^^185^186^187"
^XMB(3.9,59,2,439,0)="""RTN"",""ICD1822C"",105,0)"
^XMB(3.9,59,2,440,0)=" ;;525.44^^3^^185^186^187"
^XMB(3.9,59,2,441,0)="""RTN"",""ICD1822C"",106,0)"
^XMB(3.9,59,2,442,0)=" ;;525.50^^3^^185^186^187"
^XMB(3.9,59,2,443,0)="""RTN"",""ICD1822C"",107,0)"
^XMB(3.9,59,2,444,0)=" ;;525.51^^3^^185^186^187"
^XMB(3.9,59,2,445,0)="""RTN"",""ICD1822C"",108,0)"
^XMB(3.9,59,2,446,0)=" ;;525.52^^3^^185^186^187"
^XMB(3.9,59,2,447,0)="""RTN"",""ICD1822C"",109,0)"
^XMB(3.9,59,2,448,0)=" ;;525.53^^3^^185^186^187"
^XMB(3.9,59,2,449,0)="""RTN"",""ICD1822C"",110,0)"
^XMB(3.9,59,2,450,0)=" ;;525.54^^3^^185^186^187"
^XMB(3.9,59,2,451,0)="""RTN"",""ICD1822C"",111,0)"
^XMB(3.9,59,2,452,0)=" ;;567.21^^6^^188^189^190"
^XMB(3.9,59,2,453,0)="""RTN"",""ICD1822C"",112,0)"
^XMB(3.9,59,2,454,0)=" ;;567.22^^6^^188^189^190"
^XMB(3.9,59,2,455,0)="""RTN"",""ICD1822C"",113,0)"
^XMB(3.9,59,2,456,0)=" ;;567.23^^6^^188^189^190"
^XMB(3.9,59,2,457,0)="""RTN"",""ICD1822C"",114,0)"
^XMB(3.9,59,2,458,0)=" ;;567.29^^6^^188^189^190"
^XMB(3.9,59,2,459,0)="""RTN"",""ICD1822C"",115,0)"
^XMB(3.9,59,2,460,0)=" ;;567.31^^6^^188^189^190"
^XMB(3.9,59,2,461,0)="""RTN"",""ICD1822C"",116,0)"
^XMB(3.9,59,2,462,0)=" ;;567.38^^6^^188^189^190"
^XMB(3.9,59,2,463,0)="""RTN"",""ICD1822C"",117,0)"
^XMB(3.9,59,2,464,0)=" ;;567.39^^6^^188^189^190"
^XMB(3.9,59,2,465,0)="""RTN"",""ICD1822C"",118,0)"
^XMB(3.9,59,2,466,0)=" ;;567.81^^6^^188^189^190"
^XMB(3.9,59,2,467,0)="""RTN"",""ICD1822C"",119,0)"
^XMB(3.9,59,2,468,0)=" ;;567.82^^6^^188^189^190"
^XMB(3.9,59,2,469,0)="""RTN"",""ICD1822C"",120,0)"
^XMB(3.9,59,2,470,0)=" ;;567.89^^6^^188^189^190"
^XMB(3.9,59,2,471,0)="""RTN"",""ICD1822C"",121,0)"
^XMB(3.9,59,2,472,0)=" ;;585.1^^11^^315^316"
^XMB(3.9,59,2,473,0)="""RTN"",""ICD1822C"",122,0)"
^XMB(3.9,59,2,474,0)=" ;;585.2^^11^^315^316"
^XMB(3.9,59,2,475,0)="""RTN"",""ICD1822C"",123,0)"
^XMB(3.9,59,2,476,0)=" ;;585.3^^11^^315^316"
^XMB(3.9,59,2,477,0)="""RTN"",""ICD1822C"",124,0)"
^XMB(3.9,59,2,478,0)=" ;;585.4^^11^^315^316"
^XMB(3.9,59,2,479,0)="""RTN"",""ICD1822C"",125,0)"
^XMB(3.9,59,2,480,0)=" ;;585.5^^11^^315^316"
^XMB(3.9,59,2,481,0)="""RTN"",""ICD1822C"",126,0)"
^XMB(3.9,59,2,482,0)=" ;;585.6^^11^^315^316"
^XMB(3.9,59,2,483,0)="""RTN"",""ICD1822C"",127,0)"
^XMB(3.9,59,2,484,0)=" ;;585.9^^11^^315^316"
^XMB(3.9,59,2,485,0)="""RTN"",""ICD1822C"",128,0)"
^XMB(3.9,59,2,486,0)=" ;;599.60^^11^^331^332^333"
^XMB(3.9,59,2,487,0)="""RTN"",""ICD1822C"",129,0)"
^XMB(3.9,59,2,488,0)=" ;;599.69^^11^^331^332^333"
^XMB(3.9,59,2,489,0)="""RTN"",""ICD1822C"",130,0)"
^XMB(3.9,59,2,490,0)=" ;;651.70^^14^^469"
^XMB(3.9,59,2,491,0)="""RTN"",""ICD1822C"",131,0)"
^XMB(3.9,59,2,492,0)=" ;;651.71^^14^^370^371^372^373^374^375"
^XMB(3.9,59,2,493,0)="""RTN"",""ICD1822C"",132,0)"
^XMB(3.9,59,2,494,0)=" ;;651.73^^14^^383^384"
^XMB(3.9,59,2,495,0)="""RTN"",""ICD1822C"",133,0)"
^XMB(3.9,59,2,496,0)=" ;;760.77^^15^^390"
^XMB(3.9,59,2,497,0)="""RTN"",""ICD1822C"",134,0)"
^XMB(3.9,59,2,498,0)=" ;;760.78^^15^^390"
^XMB(3.9,59,2,499,0)="""RTN"",""ICD1822C"",135,0)"
^XMB(3.9,59,2,500,0)=" ;;763.84^^15^^390"
^XMB(3.9,59,2,501,0)="""RTN"",""ICD1822C"",136,0)"
^XMB(3.9,59,2,502,0)=" ;;770.10^^15^^387^389"
^XMB(3.9,59,2,503,0)="""RTN"",""ICD1822C"",137,0)"
^XMB(3.9,59,2,504,0)=" ;;770.11^^15^^387^389"
^XMB(3.9,59,2,505,0)="""RTN"",""ICD1822C"",138,0)"
^XMB(3.9,59,2,506,0)=" ;;770.12^^15^^387^389"
^XMB(3.9,59,2,507,0)="""RTN"",""ICD1822C"",139,0)"
^XMB(3.9,59,2,508,0)=" ;;770.13^^15^^387^389"
^XMB(3.9,59,2,509,0)="""RTN"",""ICD1822C"",140,0)"
^XMB(3.9,59,2,510,0)=" ;;770.14^^15^^387^389"
^XMB(3.9,59,2,511,0)="""RTN"",""ICD1822C"",141,0)"
^XMB(3.9,59,2,512,0)=" ;;770.15^^15^^387^389"
^XMB(3.9,59,2,513,0)="""RTN"",""ICD1822C"",142,0)"
^XMB(3.9,59,2,514,0)=" ;;770.16^^15^^387^389"
^XMB(3.9,59,2,515,0)="""RTN"",""ICD1822C"",143,0)"
^XMB(3.9,59,2,516,0)=" ;;770.17^^15^^387^389"
^XMB(3.9,59,2,517,0)="""RTN"",""ICD1822C"",144,0)"
^XMB(3.9,59,2,518,0)=" ;;770.18^^15^^387^389"
^XMB(3.9,59,2,519,0)="""RTN"",""ICD1822C"",145,0)"
^XMB(3.9,59,2,520,0)=" ;;770.85^^15^^387^389"
^XMB(3.9,59,2,521,0)="""RTN"",""ICD1822C"",146,0)"
^XMB(3.9,59,2,522,0)=" ;;770.86^^15^^387^389"
^XMB(3.9,59,2,523,0)="""RTN"",""ICD1822C"",147,0)"
^XMB(3.9,59,2,524,0)=" ;;779.84^^15^^390"
^XMB(3.9,59,2,525,0)="""RTN"",""ICD1822C"",148,0)"
^XMB(3.9,59,2,526,0)=" ;;780.95^^23^^463^464"
^XMB(3.9,59,2,527,0)="""RTN"",""ICD1822C"",149,0)"
^XMB(3.9,59,2,528,0)=" ;;799.01^^4^^101^102"
^XMB(3.9,59,2,529,0)="""RTN"",""ICD1822C"",150,0)"
^XMB(3.9,59,2,530,0)=" ;;799.02^^4^^101^102"
^XMB(3.9,59,2,531,0)="""RTN"",""ICD1822C"",151,0)"
^XMB(3.9,59,2,532,0)=" ;;996.40^^8^^249"
^XMB(3.9,59,2,533,0)="""RTN"",""ICD1822C"",152,0)"
^XMB(3.9,59,2,534,0)=" ;;996.41^^8^^249"
^XMB(3.9,59,2,535,0)="""RTN"",""ICD1822C"",153,0)"
^XMB(3.9,59,2,536,0)=" ;;996.42^^8^^249"
^XMB(3.9,59,2,537,0)="""RTN"",""ICD1822C"",154,0)"
^XMB(3.9,59,2,538,0)=" ;;996.43^^8^^249"
^XMB(3.9,59,2,539,0)="""RTN"",""ICD1822C"",155,0)"
^XMB(3.9,59,2,540,0)=" ;;996.44^^8^^249"
^XMB(3.9,59,2,541,0)="""RTN"",""ICD1822C"",156,0)"
^XMB(3.9,59,2,542,0)=" ;;996.45^^8^^249"
^XMB(3.9,59,2,543,0)="""RTN"",""ICD1822C"",157,0)"
^XMB(3.9,59,2,544,0)=" ;;996.46^^8^^249"
^XMB(3.9,59,2,545,0)="""RTN"",""ICD1822C"",158,0)"
^XMB(3.9,59,2,546,0)=" ;;996.47^^8^^249"
^XMB(3.9,59,2,547,0)="""RTN"",""ICD1822C"",159,0)"
^XMB(3.9,59,2,548,0)=" ;;996.49^^8^^249"
^XMB(3.9,59,2,549,0)="""RTN"",""ICD1822C"",160,0)"
^XMB(3.9,59,2,550,0)=" ;;V12.42^^23^^467"
^XMB(3.9,59,2,551,0)="""RTN"",""ICD1822C"",161,0)"
^XMB(3.9,59,2,552,0)=" ;;V12.60^^23^^467"
^XMB(3.9,59,2,553,0)="""RTN"",""ICD1822C"",162,0)"
^XMB(3.9,59,2,554,0)=" ;;V12.61^^23^^467"
^XMB(3.9,59,2,555,0)="""RTN"",""ICD1822C"",163,0)"
^XMB(3.9,59,2,556,0)=" ;;V12.69^^23^^467"
^XMB(3.9,59,2,557,0)="""RTN"",""ICD1822C"",164,0)"
^XMB(3.9,59,2,558,0)=" ;;V13.02^^23^^467"
^XMB(3.9,59,2,559,0)="""RTN"",""ICD1822C"",165,0)"
^XMB(3.9,59,2,560,0)=" ;;V13.03^^23^^467"
^XMB(3.9,59,2,561,0)="""RTN"",""ICD1822C"",166,0)"
^XMB(3.9,59,2,562,0)=" ;;V15.88^^23^^467"
^XMB(3.9,59,2,563,0)="""RTN"",""ICD1822C"",167,0)"
^XMB(3.9,59,2,564,0)=" ;;V17.81^^23^^467"
^XMB(3.9,59,2,565,0)="""RTN"",""ICD1822C"",168,0)"
^XMB(3.9,59,2,566,0)=" ;;V17.89^^23^^467"
^XMB(3.9,59,2,567,0)="""RTN"",""ICD1822C"",169,0)"
^XMB(3.9,59,2,568,0)=" ;;V18.9^^23^^467"
^XMB(3.9,59,2,569,0)="""RTN"",""ICD1822C"",170,0)"
^XMB(3.9,59,2,570,0)=" ;;V26.31^^23^^467"
^XMB(3.9,59,2,571,0)="""RTN"",""ICD1822C"",171,0)"
^XMB(3.9,59,2,572,0)=" ;;V26.32^^23^^467"
^XMB(3.9,59,2,573,0)="""RTN"",""ICD1822C"",172,0)"
^XMB(3.9,59,2,574,0)=" ;;V26.33^^23^^467"
^XMB(3.9,59,2,575,0)="""RTN"",""ICD1822C"",173,0)"
^XMB(3.9,59,2,576,0)=" ;;V46.13^^23^^467"
^XMB(3.9,59,2,577,0)="""RTN"",""ICD1822C"",174,0)"
^XMB(3.9,59,2,578,0)=" ;;V46.14^^23^^467"
^XMB(3.9,59,2,579,0)="""RTN"",""ICD1822C"",175,0)"
^XMB(3.9,59,2,580,0)=" ;;V49.84^^23^^467"
^XMB(3.9,59,2,581,0)="""RTN"",""ICD1822C"",176,0)"
^XMB(3.9,59,2,582,0)=" ;;V58.11^^17^^410^492"
^XMB(3.9,59,2,583,0)="""RTN"",""ICD1822C"",177,0)"
^XMB(3.9,59,2,584,0)=" ;;V58.12^^17^^410^492"
^XMB(3.9,59,2,585,0)="""RTN"",""ICD1822C"",178,0)"
^XMB(3.9,59,2,586,0)=" ;;V59.70^^23^^467"
^XMB(3.9,59,2,587,0)="""RTN"",""ICD1822C"",179,0)"
^XMB(3.9,59,2,588,0)=" ;;V59.71^^23^^467"
^XMB(3.9,59,2,589,0)="""RTN"",""ICD1822C"",180,0)"
^XMB(3.9,59,2,590,0)=" ;;V59.72^^23^^467"
^XMB(3.9,59,2,591,0)="""RTN"",""ICD1822C"",181,0)"
^XMB(3.9,59,2,592,0)=" ;;V59.73^^23^^467"
^XMB(3.9,59,2,593,0)="""RTN"",""ICD1822C"",182,0)"
^XMB(3.9,59,2,594,0)=" ;;V59.74^^23^^467"
^XMB(3.9,59,2,595,0)="""RTN"",""ICD1822C"",183,0)"
^XMB(3.9,59,2,596,0)=" ;;V62.84^^19^^425"
^XMB(3.9,59,2,597,0)="""RTN"",""ICD1822C"",184,0)"
^XMB(3.9,59,2,598,0)=" ;;V64.00^^23^^467"
^XMB(3.9,59,2,599,0)="""RTN"",""ICD1822C"",185,0)"
^XMB(3.9,59,2,600,0)=" ;;V64.01^^23^^467"
^XMB(3.9,59,2,601,0)="""RTN"",""ICD1822C"",186,0)"
^XMB(3.9,59,2,602,0)=" ;;V64.02^^23^^467"
^XMB(3.9,59,2,603,0)="""RTN"",""ICD1822C"",187,0)"
^XMB(3.9,59,2,604,0)=" ;;V64.03^^23^^467"
^XMB(3.9,59,2,605,0)="""RTN"",""ICD1822C"",188,0)"
^XMB(3.9,59,2,606,0)=" ;;V64.04^^23^^467"
^XMB(3.9,59,2,607,0)="""RTN"",""ICD1822C"",189,0)"
^XMB(3.9,59,2,608,0)=" ;;V64.05^^23^^467"
^XMB(3.9,59,2,609,0)="""RTN"",""ICD1822C"",190,0)"
^XMB(3.9,59,2,610,0)=" ;;V64.06^^23^^467"
^XMB(3.9,59,2,611,0)="""RTN"",""ICD1822C"",191,0)"
^XMB(3.9,59,2,612,0)=" ;;V64.07^^23^^467"
^XMB(3.9,59,2,613,0)="""RTN"",""ICD1822C"",192,0)"
^XMB(3.9,59,2,614,0)=" ;;V64.08^^23^^467"
^XMB(3.9,59,2,615,0)="""RTN"",""ICD1822C"",193,0)"
^XMB(3.9,59,2,616,0)=" ;;V64.09^^23^^467"
^XMB(3.9,59,2,617,0)="""RTN"",""ICD1822C"",194,0)"
^XMB(3.9,59,2,618,0)=" ;;V69.5^^23^^467"
^XMB(3.9,59,2,619,0)="""RTN"",""ICD1822C"",195,0)"
^XMB(3.9,59,2,620,0)=" ;;V72.42^^23^^467"
^XMB(3.9,59,2,621,0)="""RTN"",""ICD1822C"",196,0)"
^XMB(3.9,59,2,622,0)=" ;;V72.86^^23^^467"
^XMB(3.9,59,2,623,0)="""RTN"",""ICD1822C"",197,0)"
^XMB(3.9,59,2,624,0)=" ;;V85.0^^23^^467"
^XMB(3.9,59,2,625,0)="""RTN"",""ICD1822C"",198,0)"
^XMB(3.9,59,2,626,0)=" ;;V85.1^^23^^467"
^XMB(3.9,59,2,627,0)="""RTN"",""ICD1822C"",199,0)"
^XMB(3.9,59,2,628,0)=" ;;V85.21^^23^^467"
^XMB(3.9,59,2,629,0)="""RTN"",""ICD1822C"",200,0)"
^XMB(3.9,59,2,630,0)=" ;;V85.22^^23^^467"
^XMB(3.9,59,2,631,0)="""RTN"",""ICD1822C"",201,0)"
^XMB(3.9,59,2,632,0)=" ;;V85.23^^23^^467"
^XMB(3.9,59,2,633,0)="""RTN"",""ICD1822C"",202,0)"
^XMB(3.9,59,2,634,0)=" ;;V85.24^^23^^467"
^XMB(3.9,59,2,635,0)="""RTN"",""ICD1822C"",203,0)"
^XMB(3.9,59,2,636,0)=" ;;V85.25^^23^^467"
^XMB(3.9,59,2,637,0)="""RTN"",""ICD1822C"",204,0)"
^XMB(3.9,59,2,638,0)=" ;;V85.30^^23^^467"
^XMB(3.9,59,2,639,0)="""RTN"",""ICD1822C"",205,0)"
^XMB(3.9,59,2,640,0)=" ;;V85.31^^23^^467"
^XMB(3.9,59,2,641,0)="""RTN"",""ICD1822C"",206,0)"
^XMB(3.9,59,2,642,0)=" ;;V85.32^^23^^467"
^XMB(3.9,59,2,643,0)="""RTN"",""ICD1822C"",207,0)"
^XMB(3.9,59,2,644,0)=" ;;V85.33^^23^^467"
^XMB(3.9,59,2,645,0)="""RTN"",""ICD1822C"",208,0)"
^XMB(3.9,59,2,646,0)=" ;;V85.34^^23^^467"
^XMB(3.9,59,2,647,0)="""RTN"",""ICD1822C"",209,0)"
^XMB(3.9,59,2,648,0)=" ;;V85.35^^23^^467"
^XMB(3.9,59,2,649,0)="""RTN"",""ICD1822C"",210,0)"
^XMB(3.9,59,2,650,0)=" ;;V85.36^^23^^467"
^XMB(3.9,59,2,651,0)="""RTN"",""ICD1822C"",211,0)"
^XMB(3.9,59,2,652,0)=" ;;V85.37^^23^^467"
^XMB(3.9,59,2,653,0)="""RTN"",""ICD1822C"",212,0)"
^XMB(3.9,59,2,654,0)=" ;;V85.38^^23^^467"
^XMB(3.9,59,2,655,0)="""RTN"",""ICD1822C"",213,0)"
^XMB(3.9,59,2,656,0)=" ;;V85.39^^23^^467"
^XMB(3.9,59,2,657,0)="""RTN"",""ICD1822C"",214,0)"
^XMB(3.9,59,2,658,0)=" ;;V85.4^^10^^296^297^298"
^XMB(3.9,59,2,659,0)="""RTN"",""ICD1822C"",215,0)"
^XMB(3.9,59,2,660,0)=" ;;EXIT"
^XMB(3.9,59,2,661,0)="""RTN"",""ICD1822P"")"
^XMB(3.9,59,2,662,0)="0^4^B2132766^n/a"
^XMB(3.9,59,2,663,0)="""RTN"",""ICD1822P"",1,0)"
^XMB(3.9,59,2,664,0)="ICD1822P   ; ALB/JAT - NEW DIAGNOSIS CODES; 7/27/05 14:50;"
^XMB(3.9,59,2,665,0)="""RTN"",""ICD1822P"",2,0)"
^XMB(3.9,59,2,666,0)=" ;;18.0;DRG Grouper;**22**;Oct 13,2000"
^XMB(3.9,59,2,667,0)="""RTN"",""ICD1822P"",3,0)"
^XMB(3.9,59,2,668,0)=" ;"
^XMB(3.9,59,2,669,0)="""RTN"",""ICD1822P"",4,0)"
^XMB(3.9,59,2,670,0)="REMEDY ;"
^XMB(3.9,59,2,671,0)="""RTN"",""ICD1822P"",5,0)"
^XMB(3.9,59,2,672,0)=" N FDA,DA,DIE,IDENT,DR,ICMED"
^XMB(3.9,59,2,673,0)="""RTN"",""ICD1822P"",6,0)"
^XMB(3.9,59,2,674,0)=" ;"
^XMB(3.9,59,2,675,0)="""RTN"",""ICD1822P"",7,0)"
^XMB(3.9,59,2,676,0)=" ; HD135282"
^XMB(3.9,59,2,677,0)="""RTN"",""ICD1822P"",8,0)"
^XMB(3.9,59,2,678,0)=" ; "
^XMB(3.9,59,2,679,0)="""RTN"",""ICD1822P"",9,0)"
^XMB(3.9,59,2,680,0)=" ; next line in case patch being re-installed"
^XMB(3.9,59,2,681,0)="""RTN"",""ICD1822P"",10,0)"
^XMB(3.9,59,2,682,0)=" I $P(^ICD9(14197,3,1,1,0),U,4)=5 G NEXT"
^XMB(3.9,59,2,683,0)="""RTN"",""ICD1822P"",11,0)"
^XMB(3.9,59,2,684,0)=" S FDA(1820,80,""?1,"",.01)=""`14197"""
^XMB(3.9,59,2,685,0)="""RTN"",""ICD1822P"",12,0)"
^XMB(3.9,59,2,686,0)=" S FDA(1820,80.071,""?2,?1,"",.01)=3051001"
^XMB(3.9,59,2,687,0)="""RTN"",""ICD1822P"",13,0)"
^XMB(3.9,59,2,688,0)=" S FDA(1820,80.711,""+3,?2,?1,"",.01)=406"
^XMB(3.9,59,2,689,0)="""RTN"",""ICD1822P"",14,0)"
^XMB(3.9,59,2,690,0)=" S FDA(1820,80.711,""+4,?2,?1,"",.01)=407"
^XMB(3.9,59,2,691,0)="""RTN"",""ICD1822P"",15,0)"
^XMB(3.9,59,2,692,0)=" S FDA(1820,80.711,""+5,?2,?1,"",.01)=408"
^XMB(3.9,59,2,693,0)="""RTN"",""ICD1822P"",16,0)"
^XMB(3.9,59,2,694,0)=" D UPDATE^DIE("""",""FDA(1820)"") K FDA(1820)"
^XMB(3.9,59,2,695,0)="""RTN"",""ICD1822P"",17,0)"
^XMB(3.9,59,2,696,0)=" S FDA(1820,80,""?1,"",.01)=""`14198"""
^XMB(3.9,59,2,697,0)="""RTN"",""ICD1822P"",18,0)"
^XMB(3.9,59,2,698,0)=" S FDA(1820,80.071,""?2,?1,"",.01)=3051001"
^XMB(3.9,59,2,699,0)="""RTN"",""ICD1822P"",19,0)"
^XMB(3.9,59,2,700,0)=" S FDA(1820,80.711,""+3,?2,?1,"",.01)=406"
^XMB(3.9,59,2,701,0)="""RTN"",""ICD1822P"",20,0)"
^XMB(3.9,59,2,702,0)=" S FDA(1820,80.711,""+4,?2,?1,"",.01)=407"
^XMB(3.9,59,2,703,0)="""RTN"",""ICD1822P"",21,0)"
^XMB(3.9,59,2,704,0)=" S FDA(1820,80.711,""+5,?2,?1,"",.01)=408"
^XMB(3.9,59,2,705,0)="""RTN"",""ICD1822P"",22,0)"
^XMB(3.9,59,2,706,0)=" D UPDATE^DIE("""",""FDA(1820)"") K FDA(1820)"
^XMB(3.9,59,2,707,0)="""RTN"",""ICD1822P"",23,0)"
^XMB(3.9,59,2,708,0)=" ;"
^XMB(3.9,59,2,709,0)="""RTN"",""ICD1822P"",24,0)"
^XMB(3.9,59,2,710,0)="NEXT ;"
^XMB(3.9,59,2,711,0)="""RTN"",""ICD1822P"",25,0)"
^XMB(3.9,59,2,712,0)=" ; HD143411"
^XMB(3.9,59,2,713,0)="""RTN"",""ICD1822P"",26,0)"
^XMB(3.9,59,2,714,0)=" ; "
^XMB(3.9,59,2,715,0)="""RTN"",""ICD1822P"",27,0)"
^XMB(3.9,59,2,716,0)=" S DA=4210"
^XMB(3.9,59,2,717,0)="""RTN"",""ICD1822P"",28,0)"
^XMB(3.9,59,2,718,0)=" S DIE=""^ICD0("""
^XMB(3.9,59,2,719,0)="""RTN"",""ICD1822P"",29,0)"
^XMB(3.9,59,2,720,0)=" S IDENT=""Og"""
^XMB(3.9,59,2,721,0)="""RTN"",""ICD1822P"",30,0)"
^XMB(3.9,59,2,722,0)=" S DR=""2///^S X=IDENT"""
^XMB(3.9,59,2,723,0)="""RTN"",""ICD1822P"",31,0)"
^XMB(3.9,59,2,724,0)=" D ^DIE"
^XMB(3.9,59,2,725,0)="""RTN"",""ICD1822P"",32,0)"
^XMB(3.9,59,2,726,0)=" ;"
^XMB(3.9,59,2,727,0)="""RTN"",""ICD1822P"",33,0)"
^XMB(3.9,59,2,728,0)=" ; HD135520"
^XMB(3.9,59,2,729,0)="""RTN"",""ICD1822P"",34,0)"
^XMB(3.9,59,2,730,0)=" ;"
^XMB(3.9,59,2,731,0)="""RTN"",""ICD1822P"",35,0)"
^XMB(3.9,59,2,732,0)=" S DA=541"
^XMB(3.9,59,2,733,0)="""RTN"",""ICD1822P"",36,0)"
^XMB(3.9,59,2,734,0)=" S DIE=""^ICD("""
^XMB(3.9,59,2,735,0)="""RTN"",""ICD1822P"",37,0)"
^XMB(3.9,59,2,736,0)=" S ICMED=98"
^XMB(3.9,59,2,737,0)="""RTN"",""ICD1822P"",38,0)"
^XMB(3.9,59,2,738,0)=" S DR=""5///^S X=ICMED"""
^XMB(3.9,59,2,739,0)="""RTN"",""ICD1822P"",39,0)"
^XMB(3.9,59,2,740,0)=" D ^DIE"
^XMB(3.9,59,2,741,0)="""RTN"",""ICD1822P"",40,0)"
^XMB(3.9,59,2,742,0)=" S DA=542"
^XMB(3.9,59,2,743,0)="""RTN"",""ICD1822P"",41,0)"
^XMB(3.9,59,2,744,0)=" S DIE=""^ICD("""
^XMB(3.9,59,2,745,0)="""RTN"",""ICD1822P"",42,0)"
^XMB(3.9,59,2,746,0)=" S ICMED=98"
^XMB(3.9,59,2,747,0)="""RTN"",""ICD1822P"",43,0)"
^XMB(3.9,59,2,748,0)=" S DR=""5///^S X=ICMED"""
^XMB(3.9,59,2,749,0)="""RTN"",""ICD1822P"",44,0)"
^XMB(3.9,59,2,750,0)=" D ^DIE"
^XMB(3.9,59,2,751,0)="""RTN"",""ICD1822P"",45,0)"
^XMB(3.9,59,2,752,0)=" S DA(1)=541"
^XMB(3.9,59,2,753,0)="""RTN"",""ICD1822P"",46,0)"
^XMB(3.9,59,2,754,0)=" S DA=1"
^XMB(3.9,59,2,755,0)="""RTN"",""ICD1822P"",47,0)"
^XMB(3.9,59,2,756,0)=" S DIE=""^ICD(541,66,"""
^XMB(3.9,59,2,757,0)="""RTN"",""ICD1822P"",48,0)"
^XMB(3.9,59,2,758,0)=" S DR="".05///^S X=ICMED"""
^XMB(3.9,59,2,759,0)="""RTN"",""ICD1822P"",49,0)"
^XMB(3.9,59,2,760,0)=" D ^DIE"
^XMB(3.9,59,2,761,0)="""RTN"",""ICD1822P"",50,0)"
^XMB(3.9,59,2,762,0)=" S DA(1)=542"
^XMB(3.9,59,2,763,0)="""RTN"",""ICD1822P"",51,0)"
^XMB(3.9,59,2,764,0)=" S DA=1"
^XMB(3.9,59,2,765,0)="""RTN"",""ICD1822P"",52,0)"
^XMB(3.9,59,2,766,0)=" S DIE=""^ICD(542,66,"""
^XMB(3.9,59,2,767,0)="""RTN"",""ICD1822P"",53,0)"
^XMB(3.9,59,2,768,0)=" S DR="".05///^S X=ICMED"""
^XMB(3.9,59,2,769,0)="""RTN"",""ICD1822P"",54,0)"
^XMB(3.9,59,2,770,0)=" D ^DIE"
^XMB(3.9,59,2,771,0)="""RTN"",""ICD1822P"",55,0)"
^XMB(3.9,59,2,772,0)=" ;"
^XMB(3.9,59,2,773,0)="""RTN"",""ICD1822P"",56,0)"
^XMB(3.9,59,2,774,0)=" ; HD141351"
^XMB(3.9,59,2,775,0)="""RTN"",""ICD1822P"",57,0)"
^XMB(3.9,59,2,776,0)=" ; "
^XMB(3.9,59,2,777,0)="""RTN"",""ICD1822P"",58,0)"
^XMB(3.9,59,2,778,0)=" D DIAG^ICD1822C"
^XMB(3.9,59,2,779,0)="""RTN"",""ICD1822P"",59,0)"
^XMB(3.9,59,2,780,0)=" Q"
^XMB(3.9,59,2,781,0)="""RTN"",""ICDDRG5"")"
^XMB(3.9,59,2,782,0)="0^1^B20024424^B19783386"
^XMB(3.9,59,2,783,0)="""RTN"",""ICDDRG5"",1,0)"
^XMB(3.9,59,2,784,0)="ICDDRG5 ;ALB/GRR/EG/MRY/ADL - FIX SURGERY HIERARCHY ; 3/20/03 10:36am"
^XMB(3.9,59,2,785,0)="""RTN"",""ICDDRG5"",2,0)"
^XMB(3.9,59,2,786,0)=" ;;18.0;DRG Grouper;**2,5,7,10,20,22**;Oct 20, 2000"
^XMB(3.9,59,2,787,0)="""RTN"",""ICDDRG5"",3,0)"
^XMB(3.9,59,2,788,0)=" Q:$O(ICDODRG(0))'>0  K ICDJ,ICDJJ F ICDJ=0:0 S ICDJ=$O(ICDODRG(ICDJ)) Q:ICDJ'>0  S ICDJJ(ICDJ)="""" D"
^XMB(3.9,59,2,789,0)="""RTN"",""ICDDRG5"",4,0)"
^XMB(3.9,59,2,790,0)=" .I ICDDATE<3051001 D F"
^XMB(3.9,59,2,791,0)="""RTN"",""ICDDRG5"",5,0)"
^XMB(3.9,59,2,792,0)=" .E  D FY2006"
^XMB(3.9,59,2,793,0)="""RTN"",""ICDDRG5"",6,0)"
^XMB(3.9,59,2,794,0)="END S ICDJ=$O(ICDJ(0)) Q:ICDJ'>0  S ICDJ=ICDJ(ICDJ) K ICDODRG S ICDODRG(ICDJ)="""" Q"
^XMB(3.9,59,2,795,0)="""RTN"",""ICDDRG5"",7,0)"
^XMB(3.9,59,2,796,0)="F I ICDJ=103 S ICDJ(1)=ICDJ Q"
^XMB(3.9,59,2,797,0)="""RTN"",""ICDDRG5"",8,0)"
^XMB(3.9,59,2,798,0)=" I ICDJ=525 S ICDJ(2)=ICDJ Q"
^XMB(3.9,59,2,799,0)="""RTN"",""ICDDRG5"",9,0)"
^XMB(3.9,59,2,800,0)=" I ICDJ=104 S ICDJ(3)=ICDJ Q"
^XMB(3.9,59,2,801,0)="""RTN"",""ICDDRG5"",10,0)"
^XMB(3.9,59,2,802,0)=" I ICDJ=535 S ICDJ(4)=ICDJ Q"
^XMB(3.9,59,2,803,0)="""RTN"",""ICDDRG5"",11,0)"
^XMB(3.9,59,2,804,0)=" I ICDJ=536 S ICDJ(5)=ICDJ Q"
^XMB(3.9,59,2,805,0)="""RTN"",""ICDDRG5"",12,0)"
^XMB(3.9,59,2,806,0)=" I ICDJ=515 S ICDJ(6)=ICDJ Q"
^XMB(3.9,59,2,807,0)="""RTN"",""ICDDRG5"",13,0)"
^XMB(3.9,59,2,808,0)=" I ICDJ=108 S ICDJ(7)=ICDJ Q"
^XMB(3.9,59,2,809,0)="""RTN"",""ICDDRG5"",14,0)"
^XMB(3.9,59,2,810,0)=" I ICDJ=106 S ICDJ(8)=ICDJ Q"
^XMB(3.9,59,2,811,0)="""RTN"",""ICDDRG5"",15,0)"
^XMB(3.9,59,2,812,0)=" I ICDJ=110 S ICDJ(9)=ICDJ Q"
^XMB(3.9,59,2,813,0)="""RTN"",""ICDDRG5"",16,0)"
^XMB(3.9,59,2,814,0)=" I ICDJ=111 S ICDJ(10)=ICDJ Q"
^XMB(3.9,59,2,815,0)="""RTN"",""ICDDRG5"",17,0)"
^XMB(3.9,59,2,816,0)=" I ICDJ=113 S ICDJ(11)=ICDJ Q"
^XMB(3.9,59,2,817,0)="""RTN"",""ICDDRG5"",18,0)"
^XMB(3.9,59,2,818,0)=" I ICDJ=115 S ICDJ(12)=ICDJ Q"
^XMB(3.9,59,2,819,0)="""RTN"",""ICDDRG5"",19,0)"
^XMB(3.9,59,2,820,0)=" I ICDJ=116 S ICDJ(13)=ICDJ Q"
^XMB(3.9,59,2,821,0)="""RTN"",""ICDDRG5"",20,0)"
^XMB(3.9,59,2,822,0)=" I ICDJ=526 S ICDJ(14)=ICDJ Q"
^XMB(3.9,59,2,823,0)="""RTN"",""ICDDRG5"",21,0)"
^XMB(3.9,59,2,824,0)=" I ICDJ=527 S ICDJ(15)=ICDJ Q"
^XMB(3.9,59,2,825,0)="""RTN"",""ICDDRG5"",22,0)"
^XMB(3.9,59,2,826,0)=" I ICDJ=516 S ICDJ(16)=ICDJ Q"
^XMB(3.9,59,2,827,0)="""RTN"",""ICDDRG5"",23,0)"
^XMB(3.9,59,2,828,0)=" I ICDJ=517 S ICDJ(17)=ICDJ Q"
^XMB(3.9,59,2,829,0)="""RTN"",""ICDDRG5"",24,0)"
^XMB(3.9,59,2,830,0)=" I ICDJ=518 S ICDJ(18)=ICDJ Q"
^XMB(3.9,59,2,831,0)="""RTN"",""ICDDRG5"",25,0)"
^XMB(3.9,59,2,832,0)=" I ICDJ=478 S ICDJ(19)=ICDJ Q"
^XMB(3.9,59,2,833,0)="""RTN"",""ICDDRG5"",26,0)"
^XMB(3.9,59,2,834,0)=" I ICDJ=479 S ICDJ(20)=ICDJ Q"
^XMB(3.9,59,2,835,0)="""RTN"",""ICDDRG5"",27,0)"
^XMB(3.9,59,2,836,0)=" ;I ICDJ=112 S ICDJ(13)=ICDJ Q"
^XMB(3.9,59,2,837,0)="""RTN"",""ICDDRG5"",28,0)"
^XMB(3.9,59,2,838,0)=" I ICDJ=114 S ICDJ(21)=ICDJ Q"
^XMB(3.9,59,2,839,0)="""RTN"",""ICDDRG5"",29,0)"
^XMB(3.9,59,2,840,0)=" I ICDJ=118 S ICDJ(22)=ICDJ Q"
^XMB(3.9,59,2,841,0)="""RTN"",""ICDDRG5"",30,0)"
^XMB(3.9,59,2,842,0)=" I ICDJ=117 S ICDJ(23)=ICDJ Q"
^XMB(3.9,59,2,843,0)="""RTN"",""ICDDRG5"",31,0)"
^XMB(3.9,59,2,844,0)=" I ICDJ=119 S ICDJ(24)=ICDJ Q"
^XMB(3.9,59,2,845,0)="""RTN"",""ICDDRG5"",32,0)"
^XMB(3.9,59,2,846,0)=" I ICDJ=120 S ICDJ(25)=ICDJ"
^XMB(3.9,59,2,847,0)="""RTN"",""ICDDRG5"",33,0)"
^XMB(3.9,59,2,848,0)=" Q"
^XMB(3.9,59,2,849,0)="""RTN"",""ICDDRG5"",34,0)"
^XMB(3.9,59,2,850,0)="FY2006 ;"
^XMB(3.9,59,2,851,0)="""RTN"",""ICDDRG5"",35,0)"
^XMB(3.9,59,2,852,0)=" I ICDJ=103 S ICDJ(1)=ICDJ Q"
^XMB(3.9,59,2,853,0)="""RTN"",""ICDDRG5"",36,0)"
^XMB(3.9,59,2,854,0)=" I ICDJ=525 S ICDJ(2)=ICDJ Q"
^XMB(3.9,59,2,855,0)="""RTN"",""ICDDRG5"",37,0)"
^XMB(3.9,59,2,856,0)=" I ICDJ=104 S ICDJ(3)=ICDJ Q"
^XMB(3.9,59,2,857,0)="""RTN"",""ICDDRG5"",38,0)"
^XMB(3.9,59,2,858,0)=" I ICDJ=535 S ICDJ(4)=ICDJ Q"
^XMB(3.9,59,2,859,0)="""RTN"",""ICDDRG5"",39,0)"
^XMB(3.9,59,2,860,0)=" I ICDJ=536 S ICDJ(5)=ICDJ Q"
^XMB(3.9,59,2,861,0)="""RTN"",""ICDDRG5"",40,0)"
^XMB(3.9,59,2,862,0)=" I ICDJ=515 S ICDJ(6)=ICDJ Q"
^XMB(3.9,59,2,863,0)="""RTN"",""ICDDRG5"",41,0)"
^XMB(3.9,59,2,864,0)=" I ICDJ=108 S ICDJ(7)=ICDJ Q"
^XMB(3.9,59,2,865,0)="""RTN"",""ICDDRG5"",42,0)"
^XMB(3.9,59,2,866,0)=" I ICDJ=106 S ICDJ(8)=ICDJ Q"
^XMB(3.9,59,2,867,0)="""RTN"",""ICDDRG5"",43,0)"
^XMB(3.9,59,2,868,0)=" I ICDJ=110 S ICDJ(9)=ICDJ Q"
^XMB(3.9,59,2,869,0)="""RTN"",""ICDDRG5"",44,0)"
^XMB(3.9,59,2,870,0)=" I ICDJ=111 S ICDJ(10)=ICDJ Q"
^XMB(3.9,59,2,871,0)="""RTN"",""ICDDRG5"",45,0)"
^XMB(3.9,59,2,872,0)=" I ICDJ=547 S ICDJ(11)=ICDJ Q"
^XMB(3.9,59,2,873,0)="""RTN"",""ICDDRG5"",46,0)"
^XMB(3.9,59,2,874,0)=" I ICDJ=548 S ICDJ(12)=ICDJ Q"
^XMB(3.9,59,2,875,0)="""RTN"",""ICDDRG5"",47,0)"
^XMB(3.9,59,2,876,0)=" I ICDJ=549 S ICDJ(13)=ICDJ Q"
^XMB(3.9,59,2,877,0)="""RTN"",""ICDDRG5"",48,0)"
^XMB(3.9,59,2,878,0)=" I ICDJ=550 S ICDJ(14)=ICDJ Q"
^XMB(3.9,59,2,879,0)="""RTN"",""ICDDRG5"",49,0)"
^XMB(3.9,59,2,880,0)=" I ICDJ=113 S ICDJ(15)=ICDJ Q"
^XMB(3.9,59,2,881,0)="""RTN"",""ICDDRG5"",50,0)"
^XMB(3.9,59,2,882,0)=" I ICDJ=551 S ICDJ(16)=ICDJ Q"
^XMB(3.9,59,2,883,0)="""RTN"",""ICDDRG5"",51,0)"
^XMB(3.9,59,2,884,0)=" I ICDJ=552 S ICDJ(17)=ICDJ Q"
^XMB(3.9,59,2,885,0)="""RTN"",""ICDDRG5"",52,0)"
^XMB(3.9,59,2,886,0)=" I ICDJ=557 S ICDJ(18)=ICDJ Q"
^XMB(3.9,59,2,887,0)="""RTN"",""ICDDRG5"",53,0)"
^XMB(3.9,59,2,888,0)=" I ICDJ=555 S ICDJ(19)=ICDJ Q"
^XMB(3.9,59,2,889,0)="""RTN"",""ICDDRG5"",54,0)"
^XMB(3.9,59,2,890,0)=" I ICDJ=558 S ICDJ(20)=ICDJ Q"
^XMB(3.9,59,2,891,0)="""RTN"",""ICDDRG5"",55,0)"
^XMB(3.9,59,2,892,0)=" I ICDJ=556 S ICDJ(21)=ICDJ Q"
^XMB(3.9,59,2,893,0)="""RTN"",""ICDDRG5"",56,0)"
^XMB(3.9,59,2,894,0)=" I ICDJ=518 S ICDJ(22)=ICDJ Q"
^XMB(3.9,59,2,895,0)="""RTN"",""ICDDRG5"",57,0)"
^XMB(3.9,59,2,896,0)=" I ICDJ=553 S ICDJ(23)=ICDJ Q"
^XMB(3.9,59,2,897,0)="""RTN"",""ICDDRG5"",58,0)"
^XMB(3.9,59,2,898,0)=" I ICDJ=554 S ICDJ(24)=ICDJ Q"
^XMB(3.9,59,2,899,0)="""RTN"",""ICDDRG5"",59,0)"
^XMB(3.9,59,2,900,0)=" I ICDJ=478 S ICDJ(25)=ICDJ Q"
^XMB(3.9,59,2,901,0)="""RTN"",""ICDDRG5"",60,0)"
^XMB(3.9,59,2,902,0)=" I ICDJ=479 S ICDJ(26)=ICDJ Q"
^XMB(3.9,59,2,903,0)="""RTN"",""ICDDRG5"",61,0)"
^XMB(3.9,59,2,904,0)=" I ICDJ=114 S ICDJ(27)=ICDJ Q"
^XMB(3.9,59,2,905,0)="""RTN"",""ICDDRG5"",62,0)"
^XMB(3.9,59,2,906,0)=" I ICDJ=118 S ICDJ(28)=ICDJ Q"
^XMB(3.9,59,2,907,0)="""RTN"",""ICDDRG5"",63,0)"
^XMB(3.9,59,2,908,0)=" I ICDJ=117 S ICDJ(29)=ICDJ Q"
^XMB(3.9,59,2,909,0)="""RTN"",""ICDDRG5"",64,0)"
^XMB(3.9,59,2,910,0)=" I ICDJ=119 S ICDJ(30)=ICDJ Q"
^XMB(3.9,59,2,911,0)="""RTN"",""ICDDRG5"",65,0)"
^XMB(3.9,59,2,912,0)=" I ICDJ=120 S ICDJ(31)=ICDJ"
^XMB(3.9,59,2,913,0)="""RTN"",""ICDDRG5"",66,0)"
^XMB(3.9,59,2,914,0)=" Q"
^XMB(3.9,59,2,915,0)="""RTN"",""ICDDRG5"",67,0)"
^XMB(3.9,59,2,916,0)="EN1 S (ICDCC3,ICDCC2)=0"
^XMB(3.9,59,2,917,0)="""RTN"",""ICDDRG5"",68,0)"
^XMB(3.9,59,2,918,0)=" I $D(ICDOP("" 00.50"")) S ICDCC3=1"
^XMB(3.9,59,2,919,0)="""RTN"",""ICDDRG5"",69,0)"
^XMB(3.9,59,2,920,0)=" I $D(ICDOP("" 00.52"")) I $D(ICDOP("" 00.53"")) S ICDCC3=1"
^XMB(3.9,59,2,921,0)="""RTN"",""ICDDRG5"",70,0)"
^XMB(3.9,59,2,922,0)=" I $D(ICDOP("" 37.70""))!($D(ICDOP("" 37.71"")))!($D(ICDOP("" 37.73""))) D MORE Q"
^XMB(3.9,59,2,923,0)="""RTN"",""ICDDRG5"",71,0)"
^XMB(3.9,59,2,924,0)=" I $D(ICDOP("" 37.72"")) I $D(ICDOP("" 37.80""))!($D(ICDOP("" 37.83""))) S ICDCC3=1 Q"
^XMB(3.9,59,2,925,0)="""RTN"",""ICDDRG5"",72,0)"
^XMB(3.9,59,2,926,0)=" I $D(ICDOP("" 37.74"")) I $D(ICDOP("" 37.80""))!($D(ICDOP("" 37.81"")))!($D(ICDOP("" 37.82"")))!($D(ICDOP("" 37.83"")))!($D(ICDOP("" 37.85"")))!($D(ICDOP("" 37.86"")))!($D(ICDOP("" 37.87""))) S ICDCC3=1 Q"
^XMB(3.9,59,2,927,0)="""RTN"",""ICDDRG5"",73,0)"
^XMB(3.9,59,2,928,0)=" I $D(ICDOP("" 37.76"")) I $D(ICDOP("" 37.80""))!($D(ICDOP("" 37.85"")))!($D(ICDOP("" 37.86"")))!($D(ICDOP("" 37.87""))) S ICDCC3=1 Q"
^XMB(3.9,59,2,929,0)="""RTN"",""ICDDRG5"",74,0)"
^XMB(3.9,59,2,930,0)=" I $D(ICDOP("" 00.53"")) I $D(ICDOP("" 37.70""))!($D(ICDOP("" 37.71"")))!($D(ICDOP("" 37.72"")))!($D(ICDOP("" 37.73"")))!($D(ICDOP(""37.74 "")))!($D(ICDOP("" 37.76""))) S ICDCC3=1"
^XMB(3.9,59,2,931,0)="""RTN"",""ICDDRG5"",75,0)"
^XMB(3.9,59,2,932,0)=" I $D(ICDOP("" 00.54""))!$D(ICDOP("" 37.95""))!$D(ICDOP("" 37.96""))!$D(ICDOP("" 37.97""))!$D(ICDOP("" 37.98""))!$D(ICDOP("" 00.52"")) S ICDCC2=1"
^XMB(3.9,59,2,933,0)="""RTN"",""ICDDRG5"",76,0)"
^XMB(3.9,59,2,934,0)=" Q"
^XMB(3.9,59,2,935,0)="""RTN"",""ICDDRG5"",77,0)"
^XMB(3.9,59,2,936,0)="MORE I $D(ICDOP("" 37.80""))!($D(ICDOP("" 37.81"")))!($D(ICDOP("" 37.82"")))!($D(ICDOP("" 37.85"")))!($D(ICDOP("" 37.86"")))!($D(ICDOP("" 37.87""))) S ICDCC3=1 Q"
^XMB(3.9,59,2,937,0)="""RTN"",""ICDDRG5"",78,0)"
^XMB(3.9,59,2,938,0)=" Q"
^XMB(3.9,59,2,939,0)="""RTN"",""ICDDRG5"",79,0)"
^XMB(3.9,59,2,940,0)="VALV ;valve procedure"
^XMB(3.9,59,2,941,0)="""RTN"",""ICDDRG5"",80,0)"
^XMB(3.9,59,2,942,0)=" N ICDTMP"
^XMB(3.9,59,2,943,0)="""RTN"",""ICDDRG5"",81,0)"
^XMB(3.9,59,2,944,0)=" S (ICDCATH,ICDAJ)="""" F ICDI=1:1 Q:'$D(ICDPRC(ICDI))  S ICDAJ=ICDPRC(ICDI),ICDTMP=$$ICDOP^ICDCODE(ICDAJ,$G(ICDDATE)),ICDY(0)=$S((ICDTMP>0&$P(ICDTMP,U,10)):$P(ICDTMP,U,2,99),1:0) I ICDY(0) D"
^XMB(3.9,59,2,945,0)="""RTN"",""ICDDRG5"",82,0)"
^XMB(3.9,59,2,946,0)=" . S ICDOP($P(ICDY(0),""^"",1))="""",ICDCATH=ICDCATH_$P(ICDY(0),""^"",2)"
^XMB(3.9,59,2,947,0)="""RTN"",""ICDDRG5"",83,0)"
^XMB(3.9,59,2,948,0)=" S ICDE1=$S($D(ICDOP(37.95))&($D(ICDOP(37.96))):1,1:0),ICDE2=$S($D(ICDOP(37.97))&($D(ICDOP(37.98))):1,1:0)"
^XMB(3.9,59,2,949,0)="""RTN"",""ICDDRG5"",84,0)"
^XMB(3.9,59,2,950,0)=" Q"
^XMB(3.9,59,2,951,0)="""RTN"",""ICDDRG5"",85,0)"
^XMB(3.9,59,2,952,0)=" S:ICDCATH[""H"" ICDRG=$S(ICDCATH[""N""&ICDE1:104,ICDCATH[""N""&ICDE2:104,ICDCATH[""O"":104,1:ICDRG)"
^XMB(3.9,59,2,953,0)="""RTN"",""ICDDRG5"",86,0)"
^XMB(3.9,59,2,954,0)=" S:ICDCATH'[""H"" ICDRG=$S(ICDCATH[""N""&ICDE1:105,ICDCATH[""N""&ICDE2:105,ICDCATH[""O"":105,1:ICDRG)"
^XMB(3.9,59,2,955,0)="""RTN"",""ICDDRG5"",87,0)"
^XMB(3.9,59,2,956,0)=" K ICDCATH,ICDAJ,ICDE1,ICDE2,ICDI,ICDOP,ICDY Q"
^XMB(3.9,59,2,957,0)="""RTN"",""ICDDRG5"",88,0)"
^XMB(3.9,59,2,958,0)="VALV1 ;dx combo's for DRG120"
^XMB(3.9,59,2,959,0)="""RTN"",""ICDDRG5"",89,0)"
^XMB(3.9,59,2,960,0)=" S ICDE1=$S($D(ICDOP("" 37.95""))&($D(ICDOP("" 37.96""))):1,1:0),ICDE2=$S($D(ICDOP("" 37.97""))&($D(ICDOP("" 37.98""))):1,1:0)"
^XMB(3.9,59,2,961,0)="""RTN"",""ICDDRG5"",90,0)"
^XMB(3.9,59,2,962,0)=" S ICDRG=$S((ICDE1&(ICDOR[""H"")):104,(ICDE1&(ICDOR'[""H"")):105,(ICDE2&(ICDOR[""H"")):104,(ICDE2&(ICDOR'[""H"")):105,1:120)"
^XMB(3.9,59,2,963,0)="""RTN"",""ICDDRG5"",91,0)"
^XMB(3.9,59,2,964,0)=" K ICDE1,ICDE2"
^XMB(3.9,59,2,965,0)="""RTN"",""ICDDRG5"",92,0)"
^XMB(3.9,59,2,966,0)=" Q"
^XMB(3.9,59,2,967,0)="""RTN"",""ICDTLB61"")"
^XMB(3.9,59,2,968,0)="0^3^B1234931^B1022544"
^XMB(3.9,59,2,969,0)="""RTN"",""ICDTLB61"",1,0)"
^XMB(3.9,59,2,970,0)="ICDTLB61 ;SSI/ALA-GROUPER UTILITY FUNCTIONS [ 10/9/03  6:28 PM ] ; 10/23/00 11:50am"
^XMB(3.9,59,2,971,0)="""RTN"",""ICDTLB61"",2,0)"
^XMB(3.9,59,2,972,0)=" ;;18.0;DRG Grouper;**10,22**;Oct 20, 2000"
^XMB(3.9,59,2,973,0)="""RTN"",""ICDTLB61"",3,0)"
^XMB(3.9,59,2,974,0)="DRG412 ;"
^XMB(3.9,59,2,975,0)="""RTN"",""ICDTLB61"",4,0)"
^XMB(3.9,59,2,976,0)=" I $D(ICDDX(1))&(ICDOPCT=0) D  Q:ICDRG=409"
^XMB(3.9,59,2,977,0)="""RTN"",""ICDTLB61"",5,0)"
^XMB(3.9,59,2,978,0)=" .I ICDDX(1)=$O(^ICD9(""AB"",""V58.0 "",0)) S ICDRG=409 Q"
^XMB(3.9,59,2,979,0)="""RTN"",""ICDTLB61"",6,0)"
^XMB(3.9,59,2,980,0)=" .I ICDDX(1)=$O(^ICD9(""AB"",""V67.1 "",0)) S ICDRG=409 Q"
^XMB(3.9,59,2,981,0)="""RTN"",""ICDTLB61"",7,0)"
^XMB(3.9,59,2,982,0)=" .Q"
^XMB(3.9,59,2,983,0)="""RTN"",""ICDTLB61"",8,0)"
^XMB(3.9,59,2,984,0)=" I $D(ICDDX(1))&(ICDOPCT=0) D  Q:""410^492""[ICDRG"
^XMB(3.9,59,2,985,0)="""RTN"",""ICDTLB61"",9,0)"
^XMB(3.9,59,2,986,0)=" .I ICDDX(1)=$O(^ICD9(""AB"",""V58.11 "",0)) S ICDRG=$S(ICDSD[""2"":492,1:410) Q"
^XMB(3.9,59,2,987,0)="""RTN"",""ICDTLB61"",10,0)"
^XMB(3.9,59,2,988,0)=" .I ICDDX(1)=$O(^ICD9(""AB"",""V58.12 "",0)) S ICDRG=$S(ICDSD[""2"":492,1:410) Q"
^XMB(3.9,59,2,989,0)="""RTN"",""ICDTLB61"",11,0)"
^XMB(3.9,59,2,990,0)=" .I ICDDX(1)=$O(^ICD9(""AB"",""V67.2 "",0)) S ICDRG=$S(ICDSD[""2"":492,1:410) Q"
^XMB(3.9,59,2,991,0)="""RTN"",""ICDTLB61"",12,0)"
^XMB(3.9,59,2,992,0)=" I ICDPD[""L"" D DRG539^ICDTLB6 Q"
^XMB(3.9,59,2,993,0)="""RTN"",""ICDTLB61"",13,0)"
^XMB(3.9,59,2,994,0)=" I ICDOR[""N""&($D(ICDPDRG(412))) S ICDRG=412 Q"
^XMB(3.9,59,2,995,0)="""RTN"",""ICDTLB61"",14,0)"
^XMB(3.9,59,2,996,0)=" I $D(ICDPDRG(412))&(ICDPD'[""L"") S ICDRG=411 Q"
^XMB(3.9,59,2,997,0)="""RTN"",""ICDTLB61"",15,0)"
^XMB(3.9,59,2,998,0)=" I ICDCC S ICDRG=413 Q"
^XMB(3.9,59,2,999,0)="""RTN"",""ICDTLB61"",16,0)"
^XMB(3.9,59,2,1000,0)=" S ICDRG=414"
^XMB(3.9,59,2,1001,0)="""RTN"",""ICDTLB61"",17,0)"
^XMB(3.9,59,2,1002,0)=" ;I $O(ICDPDRG(0))<ICDRG S ICDRG=$O(ICDPDRG(0)) D DODRG^ICDDRG0"
^XMB(3.9,59,2,1003,0)="""RTN"",""ICDTLB61"",18,0)"
^XMB(3.9,59,2,1004,0)=" Q"
^XMB(3.9,59,2,1005,0)="""RTN"",""ICDTLB6B"")"
^XMB(3.9,59,2,1006,0)="0^2^B51496024^B50884849"
^XMB(3.9,59,2,1007,0)="""RTN"",""ICDTLB6B"",1,0)"
^XMB(3.9,59,2,1008,0)="ICDTLB6B ;ALB/EG/MRY - GROUPER UTILITY FUNCTIONS FY 2006; 9/29/03 2:47pm ; 6/28/05 4:06pm"
^XMB(3.9,59,2,1009,0)="""RTN"",""ICDTLB6B"",2,0)"
^XMB(3.9,59,2,1010,0)=" ;;18.0;DRG Grouper;**20,22**;Oct 20, 2000"
^XMB(3.9,59,2,1011,0)="""RTN"",""ICDTLB6B"",3,0)"
^XMB(3.9,59,2,1012,0)="DRG403 S ICDRG=$S(ICDPD[""l"":$S(AGE="""":470,AGE<18:405,1:473),ICDOR[""O""!(ICDORNI[""O""):$S(ICDCC:401,1:402),ICDCC:403,1:404),ICDRTC=$S(ICDRG=470:3,1:ICDRTC) Q"
^XMB(3.9,59,2,1013,0)="""RTN"",""ICDTLB6B"",4,0)"
^XMB(3.9,59,2,1014,0)="DRG404 S ICDRG=$S(ICDPD[""l"":$S(AGE="""":470,AGE<18:405,1:473),ICDOR[""O""!(ICDORNI[""O""):$S(ICDCC:401,1:402),ICDCC:403,1:404),ICDRTC=$S(ICDRG=470:3,1:ICDRTC) Q"
^XMB(3.9,59,2,1015,0)="""RTN"",""ICDTLB6B"",5,0)"
^XMB(3.9,59,2,1016,0)="DRG405 D DRG404 Q"
^XMB(3.9,59,2,1017,0)="""RTN"",""ICDTLB6B"",6,0)"
^XMB(3.9,59,2,1018,0)="DRG406 ;"
^XMB(3.9,59,2,1019,0)="""RTN"",""ICDTLB6B"",7,0)"
^XMB(3.9,59,2,1020,0)=" I ICDORNI[""K"" D"
^XMB(3.9,59,2,1021,0)="""RTN"",""ICDTLB6B"",8,0)"
^XMB(3.9,59,2,1022,0)=" .S ICDRG=$S((ICDPD[""L"")&(ICDCC):539,ICDPD[""L"":540,ICDCC:406,1:407)"
^XMB(3.9,59,2,1023,0)="""RTN"",""ICDTLB6B"",9,0)"
^XMB(3.9,59,2,1024,0)=" I ICDORNI'[""K"" D DRG408"
^XMB(3.9,59,2,1025,0)="""RTN"",""ICDTLB6B"",10,0)"
^XMB(3.9,59,2,1026,0)=" Q"
^XMB(3.9,59,2,1027,0)="""RTN"",""ICDTLB6B"",11,0)"
^XMB(3.9,59,2,1028,0)="DRG407 D DRG406 Q"
^XMB(3.9,59,2,1029,0)="""RTN"",""ICDTLB6B"",12,0)"
^XMB(3.9,59,2,1030,0)="DRG408 I $D(ICDDX(1))&(ICDOPCT=0) D  Q:ICDRG=409"
^XMB(3.9,59,2,1031,0)="""RTN"",""ICDTLB6B"",13,0)"
^XMB(3.9,59,2,1032,0)=" .I ICDDX(1)=$O(^ICD9(""AB"",""V58.0 "",0)) S ICDRG=409 Q"
^XMB(3.9,59,2,1033,0)="""RTN"",""ICDTLB6B"",14,0)"
^XMB(3.9,59,2,1034,0)=" .I ICDDX(1)=$O(^ICD9(""AB"",""V67.1 "",0)) S ICDRG=409 Q"
^XMB(3.9,59,2,1035,0)="""RTN"",""ICDTLB6B"",15,0)"
^XMB(3.9,59,2,1036,0)=" .Q"
^XMB(3.9,59,2,1037,0)="""RTN"",""ICDTLB6B"",16,0)"
^XMB(3.9,59,2,1038,0)=" I $D(ICDDX(1))&(ICDOPCT=0) D  Q:""410^492""[ICDRG"
^XMB(3.9,59,2,1039,0)="""RTN"",""ICDTLB6B"",17,0)"
^XMB(3.9,59,2,1040,0)=" .I ICDDX(1)=$O(^ICD9(""AB"",""V58.11 "",0)) S ICDRG=$S(ICDSD[""2"":492,1:410) Q"
^XMB(3.9,59,2,1041,0)="""RTN"",""ICDTLB6B"",18,0)"
^XMB(3.9,59,2,1042,0)=" .I ICDDX(1)=$O(^ICD9(""AB"",""V58.12 "",0)) S ICDRG=$S(ICDSD[""2"":492,1:410) Q"
^XMB(3.9,59,2,1043,0)="""RTN"",""ICDTLB6B"",19,0)"
^XMB(3.9,59,2,1044,0)=" .I ICDDX(1)=$O(^ICD9(""AB"",""V67.2 "",0)) S ICDRG=$S(ICDSD[""2"":492,1:410) Q"
^XMB(3.9,59,2,1045,0)="""RTN"",""ICDTLB6B"",20,0)"
^XMB(3.9,59,2,1046,0)=" I ICDOPCT>0 S ICDRG=$S(ICDPD'[""L"":408,ICDCC:401,1:402) Q"
^XMB(3.9,59,2,1047,0)="""RTN"",""ICDTLB6B"",21,0)"
^XMB(3.9,59,2,1048,0)=" I ICDOPCT=0 D DRG412"
^XMB(3.9,59,2,1049,0)="""RTN"",""ICDTLB6B"",22,0)"
^XMB(3.9,59,2,1050,0)=" Q"
^XMB(3.9,59,2,1051,0)="""RTN"",""ICDTLB6B"",23,0)"
^XMB(3.9,59,2,1052,0)="DRG411 S ICDRG=$S(ICDOR[""O""!(ICDORNI[""O""):408,ICDOR[""N"":412,1:411) Q"
^XMB(3.9,59,2,1053,0)="""RTN"",""ICDTLB6B"",24,0)"
^XMB(3.9,59,2,1054,0)="DRG412 ;S ICDRG=$S(ICDOR[""O""!(ICDORNI[""O""):408,ICDOR[""N""&($D(ICDPDRG(412))):412,$D(ICDPDRG(411)):411,ICDCC:413,1:414)"
^XMB(3.9,59,2,1055,0)="""RTN"",""ICDTLB6B"",25,0)"
^XMB(3.9,59,2,1056,0)=" I ICDOPCT>0 D DRG408 Q"
^XMB(3.9,59,2,1057,0)="""RTN"",""ICDTLB6B"",26,0)"
^XMB(3.9,59,2,1058,0)=" D DRG412^ICDTLB61"
^XMB(3.9,59,2,1059,0)="""RTN"",""ICDTLB6B"",27,0)"
^XMB(3.9,59,2,1060,0)=" Q"
^XMB(3.9,59,2,1061,0)="""RTN"",""ICDTLB6B"",28,0)"
^XMB(3.9,59,2,1062,0)="DRG413 S ICDRG=$S(ICDCC:413,1:414) Q"
^XMB(3.9,59,2,1063,0)="""RTN"",""ICDTLB6B"",29,0)"
^XMB(3.9,59,2,1064,0)="DRG414 S ICDRG=$S(ICDCC:413,1:414) Q"
^XMB(3.9,59,2,1065,0)="""RTN"",""ICDTLB6B"",30,0)"
^XMB(3.9,59,2,1066,0)="DRG416 S ICDRG=$S(ICDOR[""O"":415,AGE="""":470,AGE>17:416,1:417),ICDRTC=$S(ICDRG=470:3,1:ICDRTC) Q"
^XMB(3.9,59,2,1067,0)="""RTN"",""ICDTLB6B"",31,0)"
^XMB(3.9,59,2,1068,0)="DRG417 S ICDRG=$S(ICDOR[""O"":415,AGE="""":470,AGE>17:416,1:417),ICDRTC=$S(ICDRG=470:3,1:ICDRTC) Q"
^XMB(3.9,59,2,1069,0)="""RTN"",""ICDTLB6B"",32,0)"
^XMB(3.9,59,2,1070,0)="DRG418 S ICDRG=$S(ICDOR[""O"":415,1:418) Q"
^XMB(3.9,59,2,1071,0)="""RTN"",""ICDTLB6B"",33,0)"
^XMB(3.9,59,2,1072,0)="DRG419 S ICDRG=$S(ICDOR[""O"":415,AGE="""":470,AGE<18:422,ICDCC:419,1:420),ICDRTC=$S(ICDRG=470:3,1:ICDRTC) Q"
^XMB(3.9,59,2,1073,0)="""RTN"",""ICDTLB6B"",34,0)"
^XMB(3.9,59,2,1074,0)="DRG420 S ICDRG=$S(ICDOR[""O"":415,AGE="""":470,AGE<18:422,ICDCC:419,1:420),ICDRTC=$S(ICDRG=470:3,1:ICDRTC) Q"
^XMB(3.9,59,2,1075,0)="""RTN"",""ICDTLB6B"",35,0)"
^XMB(3.9,59,2,1076,0)="DRG421 S ICDRG=$S(ICDOR[""O"":415,AGE="""":470,AGE>17:421,1:422),ICDRTC=$S(ICDRG=470:3,1:ICDRTC) Q"
^XMB(3.9,59,2,1077,0)="""RTN"",""ICDTLB6B"",36,0)"
^XMB(3.9,59,2,1078,0)="DRG422 S ICDRG=$S(ICDOR[""O"":415,AGE="""":470,AGE>17:421,1:422),ICDRTC=$S(ICDRG=470:3,1:ICDRTC) Q"
^XMB(3.9,59,2,1079,0)="""RTN"",""ICDTLB6B"",37,0)"
^XMB(3.9,59,2,1080,0)="DRG423 S ICDRG=$S(ICDOR[""O"":415,1:423) Q"
^XMB(3.9,59,2,1081,0)="""RTN"",""ICDTLB6B"",38,0)"
^XMB(3.9,59,2,1082,0)="DRG424 S ICDRG=$S(ICDOR[""O"":424,1:425) Q"
^XMB(3.9,59,2,1083,0)="""RTN"",""ICDTLB6B"",39,0)"
^XMB(3.9,59,2,1084,0)="DRG425 S ICDRG=$S(ICDOR[""O"":424,1:425) Q"
^XMB(3.9,59,2,1085,0)="""RTN"",""ICDTLB6B"",40,0)"
^XMB(3.9,59,2,1086,0)="DRG426 S ICDRG=$S(ICDOR[""O"":424,1:426) Q"
^XMB(3.9,59,2,1087,0)="""RTN"",""ICDTLB6B"",41,0)"
^XMB(3.9,59,2,1088,0)="DRG427 S ICDRG=$S(ICDOR[""O"":424,1:427) Q"
^XMB(3.9,59,2,1089,0)="""RTN"",""ICDTLB6B"",42,0)"
^XMB(3.9,59,2,1090,0)="DRG428 S ICDRG=$S(ICDOR[""O"":424,1:428) Q"
^XMB(3.9,59,2,1091,0)="""RTN"",""ICDTLB6B"",43,0)"
^XMB(3.9,59,2,1092,0)="DRG429 S ICDRG=$S(ICDOR[""O"":424,1:429) Q"
^XMB(3.9,59,2,1093,0)="""RTN"",""ICDTLB6B"",44,0)"
^XMB(3.9,59,2,1094,0)="DRG430 S ICDRG=$S(ICDOR[""O"":424,1:430) Q"
^XMB(3.9,59,2,1095,0)="""RTN"",""ICDTLB6B"",45,0)"
^XMB(3.9,59,2,1096,0)="DRG431 S ICDRG=$S(ICDOR[""O"":424,1:431) Q"
^XMB(3.9,59,2,1097,0)="""RTN"",""ICDTLB6B"",46,0)"
^XMB(3.9,59,2,1098,0)="DRG432 S ICDRG=$S(ICDOR[""O"":424,1:432) Q"
^XMB(3.9,59,2,1099,0)="""RTN"",""ICDTLB6B"",47,0)"
^XMB(3.9,59,2,1100,0)="DRG434 S ICDRG=$S(ICDPD[""t""!(ICDSD[""t""):$S(ICDOR[""D"":437,ICDOR[""R"":436,ICDCC:434,1:435),ICDCC:434,1:435) Q"
^XMB(3.9,59,2,1101,0)="""RTN"",""ICDTLB6B"",48,0)"
^XMB(3.9,59,2,1102,0)="DRG435 S ICDRG=$S(ICDPD[""t""!(ICDSD[""t""):$S(ICDOR[""D"":437,ICDOR[""R"":436,ICDCC:434,1:435),ICDCC:434,1:435) Q"
^XMB(3.9,59,2,1103,0)="""RTN"",""ICDTLB6B"",49,0)"
^XMB(3.9,59,2,1104,0)="DRG436 S ICDRG=$S(ICDPD[""t""!(ICDSD[""t""):$S(ICDOR[""D"":437,ICDOR[""R"":436,ICDCC:434,1:435),ICDCC:434,1:435) Q"
^XMB(3.9,59,2,1105,0)="""RTN"",""ICDTLB6B"",50,0)"
^XMB(3.9,59,2,1106,0)="DRG437 S ICDRG=$S(ICDPD[""t""!(ICDSD[""t""):$S(ICDOR[""D"":437,ICDOR[""R"":436,ICDCC:434,1:435),ICDCC:434,1:435) Q"
^XMB(3.9,59,2,1107,0)="""RTN"",""ICDTLB6B"",51,0)"
^XMB(3.9,59,2,1108,0)="DRG439 S ICDRG=$S($D(ICDODRG(440)):440,1:439) Q"
^XMB(3.9,59,2,1109,0)="""RTN"",""ICDTLB6B"",52,0)"
^XMB(3.9,59,2,1110,0)="DRG442 S ICDRG=$S(ICDCC:442,1:443) Q"
^XMB(3.9,59,2,1111,0)="""RTN"",""ICDTLB6B"",53,0)"
^XMB(3.9,59,2,1112,0)="DRG443 D EN1^ICDDRG5 S ICDRG=$S(ICDCC3:$S(ICDCC:442,1:443),1:"""") Q"
^XMB(3.9,59,2,1113,0)="""RTN"",""ICDTLB6B"",54,0)"
^XMB(3.9,59,2,1114,0)="DRG444 S ICDRG=$S(AGE<18:446,ICDCC:444,1:445) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,59,2,1115,0)="""RTN"",""ICDTLB6B"",55,0)"
^XMB(3.9,59,2,1116,0)=" Q"
^XMB(3.9,59,2,1117,0)="""RTN"",""ICDTLB6B"",56,0)"
^XMB(3.9,59,2,1118,0)="DRG445 S ICDRG=$S(AGE<18:446,ICDCC:444,1:445) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,59,2,1119,0)="""RTN"",""ICDTLB6B"",57,0)"
^XMB(3.9,59,2,1120,0)=" Q"
^XMB(3.9,59,2,1121,0)="""RTN"",""ICDTLB6B"",58,0)"
^XMB(3.9,59,2,1122,0)="DRG446 S ICDRG=$S(AGE<18:446,ICDCC:444,1:445) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,59,2,1123,0)="""RTN"",""ICDTLB6B"",59,0)"
^XMB(3.9,59,2,1124,0)=" Q"
^XMB(3.9,59,2,1125,0)="""RTN"",""ICDTLB6B"",60,0)"
^XMB(3.9,59,2,1126,0)="DRG447 S ICDRG=$S(AGE>17:447,1:448) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,59,2,1127,0)="""RTN"",""ICDTLB6B"",61,0)"
^XMB(3.9,59,2,1128,0)=" Q"
^XMB(3.9,59,2,1129,0)="""RTN"",""ICDTLB6B"",62,0)"
^XMB(3.9,59,2,1130,0)="DRG448 S ICDRG=$S(AGE>17:447,1:448) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,59,2,1131,0)="""RTN"",""ICDTLB6B"",63,0)"
^XMB(3.9,59,2,1132,0)=" Q"
^XMB(3.9,59,2,1133,0)="""RTN"",""ICDTLB6B"",64,0)"
^XMB(3.9,59,2,1134,0)="DRG449 S ICDRG=$S(AGE<18:451,ICDCC:449,1:450) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,59,2,1135,0)="""RTN"",""ICDTLB6B"",65,0)"
^XMB(3.9,59,2,1136,0)=" Q"
^XMB(3.9,59,2,1137,0)="""RTN"",""ICDTLB6B"",66,0)"
^XMB(3.9,59,2,1138,0)="DRG450 S ICDRG=$S(AGE<18:451,ICDCC:449,1:450) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,59,2,1139,0)="""RTN"",""ICDTLB6B"",67,0)"
^XMB(3.9,59,2,1140,0)=" Q"
^XMB(3.9,59,2,1141,0)="""RTN"",""ICDTLB6B"",68,0)"
^XMB(3.9,59,2,1142,0)="DRG451 S ICDRG=$S(AGE<18:451,ICDCC:449,1:450) I AGE="""" S ICDRG=470,ICDRTC=3"
^XMB(3.9,59,2,1143,0)="""RTN"",""ICDTLB6B"",69,0)"
^XMB(3.9,59,2,1144,0)=" Q"
^XMB(3.9,59,2,1145,0)="""RTN"",""ICDTLB6B"",70,0)"
^XMB(3.9,59,2,1146,0)="DRG452 S ICDRG=$S(ICDCC:452,1:453) Q"
^XMB(3.9,59,2,1147,0)="""RTN"",""ICDTLB6B"",71,0)"
^XMB(3.9,59,2,1148,0)="DRG453 S ICDRG=$S(ICDCC:452,1:453) Q"
^XMB(3.9,59,2,1149,0)="""RTN"",""ICDTLB6B"",72,0)"
^XMB(3.9,59,2,1150,0)="DRG454 S ICDRG=$S(ICDCC:454,1:455) Q"
^XMB(3.9,59,2,1151,0)="""RTN"",""ICDTLB6B"",73,0)"
^XMB(3.9,59,2,1152,0)="DRG455 S ICDRG=$S(ICDCC:454,1:455) Q"
^XMB(3.9,59,2,1153,0)="""RTN"",""ICDTLB6B"",74,0)"
^XMB(3.9,59,2,1154,0)="DRG462 S ICDRG=$S(ICDOR[""O"":461,1:462) Q"
^XMB(3.9,59,2,1155,0)="""RTN"",""ICDTLB6B"",75,0)"
^XMB(3.9,59,2,1156,0)="DRG463 S ICDRG=$S(ICDOR[""O"":461,ICDCC:463,1:464) Q"
^XMB(3.9,59,2,1157,0)="""RTN"",""ICDTLB6B"",76,0)"
^XMB(3.9,59,2,1158,0)="DRG464 S ICDRG=$S(ICDOR[""O"":461,ICDCC:463,1:464) Q"
^XMB(3.9,59,2,1159,0)="""RTN"",""ICDTLB6B"",77,0)"
^XMB(3.9,59,2,1160,0)="DRG465 S ICDRG=$S(ICDOR[""O"":461,ICDSD[""m"":465,1:466) Q"
^XMB(3.9,59,2,1161,0)="""RTN"",""ICDTLB6B"",78,0)"
^XMB(3.9,59,2,1162,0)="DRG466 S ICDRG=$S(ICDOR[""O"":461,ICDSD[""m"":465,1:466) Q"
^XMB(3.9,59,2,1163,0)="""RTN"",""ICDTLB6B"",79,0)"
^XMB(3.9,59,2,1164,0)="DRG467 S ICDRG=$S(ICDOR[""O"":461,1:467) Q"
^XMB(3.9,59,2,1165,0)="""RTN"",""ICDTLB6B"",80,0)"
^XMB(3.9,59,2,1166,0)="DRG471 S ICDRG=$S($F($P(ICDOR,""M"",2,99),""M""):471,1:"""") Q"
^XMB(3.9,59,2,1167,0)="""RTN"",""ICDTLB6B"",81,0)"
^XMB(3.9,59,2,1168,0)="DRG475 S ICDRG=$S(ICDOR[""V"":475,1:$S($D(ICDPDRG):$O(ICDPDRG(0)),1:468)) I ICDRG<468 D DODRG^ICDDRG0"
^XMB(3.9,59,2,1169,0)="""RTN"",""ICDTLB6B"",82,0)"
^XMB(3.9,59,2,1170,0)=" Q"
^XMB(3.9,59,2,1171,0)="""RTN"",""ICDTLB6B"",83,0)"
^XMB(3.9,59,2,1172,0)="DRG478 S ICDRG=$S(ICDOR[""O""&ICDCC:478,1:479)"
^XMB(3.9,59,2,1173,0)="""RTN"",""ICDTLB6B"",84,0)"
^XMB(3.9,59,2,1174,0)=" I ICDRG=478 D DRG553^ICDTLB6B"
^XMB(3.9,59,2,1175,0)="""RTN"",""ICDTLB6B"",85,0)"
^XMB(3.9,59,2,1176,0)=" Q"
^XMB(3.9,59,2,1177,0)="""RTN"",""ICDTLB6B"",86,0)"
^XMB(3.9,59,2,1178,0)="DRG479 G DRG478"
^XMB(3.9,59,2,1179,0)="""RTN"",""ICDTLB6B"",87,0)"
^XMB(3.9,59,2,1180,0)="DRG493 ;I (ICDI-1)=1,'ICDCC S ICDCC=$S($D(^ICD9(""ACC"",ICDDX(1),ICDDX(1))):1,1:0)"
^XMB(3.9,59,2,1181,0)="""RTN"",""ICDTLB6B"",88,0)"
^XMB(3.9,59,2,1182,0)=" S ICDRG=$S(ICDCC:493,1:494) Q"
^XMB(3.9,59,2,1183,0)="""RTN"",""ICDTLB6B"",89,0)"
^XMB(3.9,59,2,1184,0)="DRG494 ;I (ICD-1),'ICDCC S ICDCC=$S($D(^ICD9(""ACC"",ICDDX(1),ICDDX(1))):1,1:0)"
^XMB(3.9,59,2,1185,0)="""RTN"",""ICDTLB6B"",90,0)"
^XMB(3.9,59,2,1186,0)=" S ICDRG=$S(ICDCC:493,1:494) Q"
^XMB(3.9,59,2,1187,0)="""RTN"",""ICDTLB6B"",91,0)"
^XMB(3.9,59,2,1188,0)="DRG495 Q"
^XMB(3.9,59,2,1189,0)="""RTN"",""ICDTLB6B"",92,0)"
^XMB(3.9,59,2,1190,0)="DRG496 S ICDRG=$S(ICDOR[""F"":496,ICDCC:497,1:498)"
^XMB(3.9,59,2,1191,0)="""RTN"",""ICDTLB6B"",93,0)"
^XMB(3.9,59,2,1192,0)="     I ICDRG=497!(ICDRG=498) I ICDPD[""6"" S ICDRG=546 Q"
^XMB(3.9,59,2,1193,0)="""RTN"",""ICDTLB6B"",94,0)"
^XMB(3.9,59,2,1194,0)="     I ICDRG=497!(ICDRG=498) I $D(ICDDXT(""737.40""))!($D(ICDDXT(""737.41"")))!($D(ICDDXT(""737.42"")))!($D(ICDDXT(""737.43""))) S ICDRG=546"
^XMB(3.9,59,2,1195,0)="""RTN"",""ICDTLB6B"",95,0)"
^XMB(3.9,59,2,1196,0)="     Q "
^XMB(3.9,59,2,1197,0)="""RTN"",""ICDTLB6B"",96,0)"
^XMB(3.9,59,2,1198,0)="DRG497 G DRG496  ;S ICDRG=$S(ICDOR[""F"":496,ICDCC:497,1:498) Q"
^XMB(3.9,59,2,1199,0)="""RTN"",""ICDTLB6B"",97,0)"
^XMB(3.9,59,2,1200,0)="DRG498 G DRG496  ;S ICDRG=$S(ICDOR[""F"":496,ICDCC:497,1:498) Q"
^XMB(3.9,59,2,1201,0)="""RTN"",""ICDTLB6B"",98,0)"
^XMB(3.9,59,2,1202,0)="DRG499 S ICDRG=$S(ICDCC:499,1:500) Q"
^XMB(3.9,59,2,1203,0)="""RTN"",""ICDTLB6B"",99,0)"
^XMB(3.9,59,2,1204,0)="DRG500 S ICDRG=$S(ICDCC:499,1:500) Q"
^XMB(3.9,59,2,1205,0)="""RTN"",""ICDTLB6B"",100,0)"
^XMB(3.9,59,2,1206,0)="DRG501 D"
^XMB(3.9,59,2,1207,0)="""RTN"",""ICDTLB6B"",101,0)"
^XMB(3.9,59,2,1208,0)=" . I (ICDPD[""k"") D"
^XMB(3.9,59,2,1209,0)="""RTN"",""ICDTLB6B"",102,0)"
^XMB(3.9,59,2,1210,0)=" .. I ICDCC S ICDRG=501"
^XMB(3.9,59,2,1211,0)="""RTN"",""ICDTLB6B"",103,0)"
^XMB(3.9,59,2,1212,0)=" .. I 'ICDCC S ICDRG=502"
^XMB(3.9,59,2,1213,0)="""RTN"",""ICDTLB6B"",104,0)"
^XMB(3.9,59,2,1214,0)=" . E  S ICDRG=503"
^XMB(3.9,59,2,1215,0)="""RTN"",""ICDTLB6B"",105,0)"
^XMB(3.9,59,2,1216,0)=" Q"
^XMB(3.9,59,2,1217,0)="""RTN"",""ICDTLB6B"",106,0)"
^XMB(3.9,59,2,1218,0)="DRG502 D DRG501 Q"
^XMB(3.9,59,2,1219,0)="""RTN"",""ICDTLB6B"",107,0)"
^XMB(3.9,59,2,1220,0)="DRG503 D DRG501 Q"
^XMB(3.9,59,2,1221,0)="""RTN"",""ICDTLB6B"",108,0)"
^XMB(3.9,59,2,1222,0)="DRG514 ; Replaced with DRG535"
^XMB(3.9,59,2,1223,0)="""RTN"",""ICDTLB6B"",109,0)"
^XMB(3.9,59,2,1224,0)=" N ICDE1,ICDE2"
^XMB(3.9,59,2,1225,0)="""RTN"",""ICDTLB6B"",110,0)"
^XMB(3.9,59,2,1226,0)=" S ICDE1=$S($D(ICDOP("" 37.95""))&($D(ICDOP("" 37.96""))):1,1:0)"
^XMB(3.9,59,2,1227,0)="""RTN"",""ICDTLB6B"",111,0)"
^XMB(3.9,59,2,1228,0)=" S ICDE2=$S($D(ICDOP("" 37.97""))&($D(ICDOP("" 37.98""))):1,1:0)"
^XMB(3.9,59,2,1229,0)="""RTN"",""ICDTLB6B"",112,0)"
^XMB(3.9,59,2,1230,0)=" S ICDRG=470"
^XMB(3.9,59,2,1231,0)="""RTN"",""ICDTLB6B"",113,0)"
^XMB(3.9,59,2,1232,0)=" I $D(ICDOP("" 37.94"")) I ICDE1+ICDE2=0 S ICDRG=515"
^XMB(3.9,59,2,1233,0)="""RTN"",""ICDTLB6B"",114,0)"
^XMB(3.9,59,2,1234,0)=" I '$D(ICDOP("" 37.94"")) I ICDE1!ICDE2 S ICDRG=515"
^XMB(3.9,59,2,1235,0)="""RTN"",""ICDTLB6B"",115,0)"
^XMB(3.9,59,2,1236,0)=" ; ""HN"" in ICDOR represents OR proc 37.21-.23, 37.26, 88.52-.58"
^XMB(3.9,59,2,1237,0)="""RTN"",""ICDTLB6B"",116,0)"
^XMB(3.9,59,2,1238,0)=" I ICDRG=515 I ICDOR[""HN"" S ICDRG=514"
^XMB(3.9,59,2,1239,0)="""RTN"",""ICDTLB6B"",117,0)"
^XMB(3.9,59,2,1240,0)=" Q"
^XMB(3.9,59,2,1241,0)="""RTN"",""ICDTLB6B"",118,0)"
^XMB(3.9,59,2,1242,0)="DRG515 D DRG535 Q"
^XMB(3.9,59,2,1243,0)="""RTN"",""ICDTLB6B"",119,0)"
^XMB(3.9,59,2,1244,0)="DRG516 ; DRG 516,517,526 and 527 replaced by DRG 555-558 respectively"
^XMB(3.9,59,2,1245,0)="""RTN"",""ICDTLB6B"",120,0)"
^XMB(3.9,59,2,1246,0)=" S ICDRG=518"
^XMB(3.9,59,2,1247,0)="""RTN"",""ICDTLB6B"",121,0)"
^XMB(3.9,59,2,1248,0)=" D DRG555"
^XMB(3.9,59,2,1249,0)="""RTN"",""ICDTLB6B"",122,0)"
^XMB(3.9,59,2,1250,0)=" I $D(ICDOP("" 36.06""))!$D(ICDOP("" 92.27"")) D DRG556"
^XMB(3.9,59,2,1251,0)="""RTN"",""ICDTLB6B"",123,0)"
^XMB(3.9,59,2,1252,0)=" I $D(ICDOP("" 36.07"")) D DRG557"
^XMB(3.9,59,2,1253,0)="""RTN"",""ICDTLB6B"",124,0)"
^XMB(3.9,59,2,1254,0)=" Q"
^XMB(3.9,59,2,1255,0)="""RTN"",""ICDTLB6B"",125,0)"
^XMB(3.9,59,2,1256,0)="DRG517 D DRG516 Q"
^XMB(3.9,59,2,1257,0)="""RTN"",""ICDTLB6B"",126,0)"
^XMB(3.9,59,2,1258,0)="DRG518 D DRG516 Q"
^XMB(3.9,59,2,1259,0)="""RTN"",""ICDTLB6B"",127,0)"
^XMB(3.9,59,2,1260,0)="DRG519 S ICDRG=$S(ICDOR[""F"":496,ICDCC:519,1:520) Q"
^XMB(3.9,59,2,1261,0)="""RTN"",""ICDTLB6B"",128,0)"
^XMB(3.9,59,2,1262,0)="DRG520 D DRG519 Q"
^XMB(3.9,59,2,1263,0)="""RTN"",""ICDTLB6B"",129,0)"
^XMB(3.9,59,2,1264,0)="DRG521 S ICDRG=$S(ICDCC:521,ICDOR[""D""!(ICDOR[""R""):522,1:523) Q"
^XMB(3.9,59,2,1265,0)="""RTN"",""ICDTLB6B"",130,0)"
^XMB(3.9,59,2,1266,0)="DRG522 D DRG521 Q"
^XMB(3.9,59,2,1267,0)="""RTN"",""ICDTLB6B"",131,0)"
^XMB(3.9,59,2,1268,0)="DRG523 D DRG521 Q"
^XMB(3.9,59,2,1269,0)="""RTN"",""ICDTLB6B"",132,0)"
^XMB(3.9,59,2,1270,0)="DRG526 D DRG516 Q"
^XMB(3.9,59,2,1271,0)="""RTN"",""ICDTLB6B"",133,0)"
^XMB(3.9,59,2,1272,0)="DRG527 D DRG516 Q"
^XMB(3.9,59,2,1273,0)="""RTN"",""ICDTLB6B"",134,0)"
^XMB(3.9,59,2,1274,0)="DRG531 S ICDRG=$S(ICDCC:531,1:532) Q"
^XMB(3.9,59,2,1275,0)="""RTN"",""ICDTLB6B"",135,0)"
^XMB(3.9,59,2,1276,0)="DRG532 D DRG531 Q"
^XMB(3.9,59,2,1277,0)="""RTN"",""ICDTLB6B"",136,0)"
^XMB(3.9,59,2,1278,0)="DRG533 S ICDRG=$S(ICDCC:533,1:534) Q"
^XMB(3.9,59,2,1279,0)="""RTN"",""ICDTLB6B"",137,0)"
^XMB(3.9,59,2,1280,0)="DRG534 D DRG533 Q"
^XMB(3.9,59,2,1281,0)="""RTN"",""ICDTLB6B"",138,0)"
^XMB(3.9,59,2,1282,0)="DRG535 N ICDE1,ICDE2,ICDE3"
^XMB(3.9,59,2,1283,0)="""RTN"",""ICDTLB6B"",139,0)"
^XMB(3.9,59,2,1284,0)=" S ICDE1=$S($D(ICDOP("" 37.95""))&(($D(ICDOP("" 37.96"")))!($D(ICDOP("" 00.54"")))):1,1:0)"
^XMB(3.9,59,2,1285,0)="""RTN"",""ICDTLB6B"",140,0)"
^XMB(3.9,59,2,1286,0)=" S ICDE2=$S($D(ICDOP("" 37.97""))&(($D(ICDOP("" 37.98"")))!($D(ICDOP("" 00.54"")))):1,1:0)"
^XMB(3.9,59,2,1287,0)="""RTN"",""ICDTLB6B"",141,0)"
^XMB(3.9,59,2,1288,0)=" S ICDE3=$S($D(ICDOP("" 00.52""))&($D(ICDOP("" 00.54""))):1,1:0)"
^XMB(3.9,59,2,1289,0)="""RTN"",""ICDTLB6B"",142,0)"
^XMB(3.9,59,2,1290,0)=" ;S ICDE4=$S($D(ICDOP("" 00.54""))&($D(ICDOP("" 37.95""))):1,1:0)"
^XMB(3.9,59,2,1291,0)="""RTN"",""ICDTLB6B"",143,0)"
^XMB(3.9,59,2,1292,0)=" S ICDRG=470"
^XMB(3.9,59,2,1293,0)="""RTN"",""ICDTLB6B"",144,0)"
^XMB(3.9,59,2,1294,0)=" I $D(ICDOP("" 37.94""))!$D(ICDOP("" 00.51"")) I ICDE1+ICDE2+ICDE3=0 S ICDRG=515"
^XMB(3.9,59,2,1295,0)="""RTN"",""ICDTLB6B"",145,0)"
^XMB(3.9,59,2,1296,0)=" I '$D(ICDOP("" 37.94""))&('$D(ICDOP("" 00.51""))) I ICDE1!ICDE2!ICDE3 S ICDRG=515"
^XMB(3.9,59,2,1297,0)="""RTN"",""ICDTLB6B"",146,0)"
^XMB(3.9,59,2,1298,0)=" ; ""HN"" in ICDOR represents OR proc 37.21-.23, 37.26, 88.52-.58"
^XMB(3.9,59,2,1299,0)="""RTN"",""ICDTLB6B"",147,0)"
^XMB(3.9,59,2,1300,0)=" I ICDRG=515 I ICDOR[""HN"" I '$D(ICDOP("" 37.26"")) S ICDRG=$S(ICDPD[""A"":535,1:536)"
^XMB(3.9,59,2,1301,0)="""RTN"",""ICDTLB6B"",148,0)"
^XMB(3.9,59,2,1302,0)=" I ICDRG=470 D DRG115^ICDTLB2B"
^XMB(3.9,59,2,1303,0)="""RTN"",""ICDTLB6B"",149,0)"
^XMB(3.9,59,2,1304,0)=" Q"
^XMB(3.9,59,2,1305,0)="""RTN"",""ICDTLB6B"",150,0)"
^XMB(3.9,59,2,1306,0)="DRG536 D DRG535 Q"
^XMB(3.9,59,2,1307,0)="""RTN"",""ICDTLB6B"",151,0)"
^XMB(3.9,59,2,1308,0)="DRG537 S ICDRG=$S(ICDCC:537,1:538) Q"
^XMB(3.9,59,2,1309,0)="""RTN"",""ICDTLB6B"",152,0)"
^XMB(3.9,59,2,1310,0)="DRG538 D DRG537 Q"
^XMB(3.9,59,2,1311,0)="""RTN"",""ICDTLB6B"",153,0)"
^XMB(3.9,59,2,1312,0)="DRG539 I ICDPD[""L""&(ICDMAJ'[3) D DRG401^ICDTLB5B Q:""401^402^403^404^405^470^473""[ICDRG"
^XMB(3.9,59,2,1313,0)="""RTN"",""ICDTLB6B"",154,0)"
^XMB(3.9,59,2,1314,0)=" S ICDRG=$S((ICDPD[""L"")&(ICDCC):539,ICDPD[""L"":540,ICDCC:406,1:407) Q"
^XMB(3.9,59,2,1315,0)="""RTN"",""ICDTLB6B"",155,0)"
^XMB(3.9,59,2,1316,0)="DRG540 D DRG539 Q"
^XMB(3.9,59,2,1317,0)="""RTN"",""ICDTLB6B"",156,0)"
^XMB(3.9,59,2,1318,0)="DRG543 S ICDRG=$S((ICDPD[""Q"")&(ICDOR[""Q""):543,ICDOR[""Q""&$D(ICDOP("" 00.10"")):543,1:ICDRG) Q"
^XMB(3.9,59,2,1319,0)="""RTN"",""ICDTLB6B"",157,0)"
^XMB(3.9,59,2,1320,0)="DRG544 Q"
^XMB(3.9,59,2,1321,0)="""RTN"",""ICDTLB6B"",158,0)"
^XMB(3.9,59,2,1322,0)="DRG545 Q"
^XMB(3.9,59,2,1323,0)="""RTN"",""ICDTLB6B"",159,0)"
^XMB(3.9,59,2,1324,0)="DRG546 Q"
^XMB(3.9,59,2,1325,0)="""RTN"",""ICDTLB6B"",160,0)"
^XMB(3.9,59,2,1326,0)="DRG547 ; called from DRG106^ICDTLB2B     "
^XMB(3.9,59,2,1327,0)="""RTN"",""ICDTLB6B"",161,0)"
^XMB(3.9,59,2,1328,0)=" D MCV"
^XMB(3.9,59,2,1329,0)="""RTN"",""ICDTLB6B"",162,0)"
^XMB(3.9,59,2,1330,0)=" S ICDRG=$S(ICDMCV:547,ICDMCV1:547,1:548) Q"
^XMB(3.9,59,2,1331,0)="""RTN"",""ICDTLB6B"",163,0)"
^XMB(3.9,59,2,1332,0)="DRG548 G DRG547"
^XMB(3.9,59,2,1333,0)="""RTN"",""ICDTLB6B"",164,0)"
^XMB(3.9,59,2,1334,0)="DRG549 ; called from DRG106^ICDTLB2B"
^XMB(3.9,59,2,1335,0)="""RTN"",""ICDTLB6B"",165,0)"
^XMB(3.9,59,2,1336,0)=" D MCV"
^XMB(3.9,59,2,1337,0)="""RTN"",""ICDTLB6B"",166,0)"
^XMB(3.9,59,2,1338,0)=" S ICDRG=$S(ICDMCV:549,ICDMCV1:549,1:550) Q"
^XMB(3.9,59,2,1339,0)="""RTN"",""ICDTLB6B"",167,0)"
^XMB(3.9,59,2,1340,0)="DRG550 G DRG549"
^XMB(3.9,59,2,1341,0)="""RTN"",""ICDTLB6B"",168,0)"
^XMB(3.9,59,2,1342,0)="DRG551 ; called from DRG115^ICDTLB2B "
^XMB(3.9,59,2,1343,0)="""RTN"",""ICDTLB6B"",169,0)"
^XMB(3.9,59,2,1344,0)=" D MCV"
^XMB(3.9,59,2,1345,0)="""RTN"",""ICDTLB6B"",170,0)"
^XMB(3.9,59,2,1346,0)=" I ICDMCV!(ICDMCV2) S ICDRG=551"
^XMB(3.9,59,2,1347,0)="""RTN"",""ICDTLB6B"",171,0)"
^XMB(3.9,59,2,1348,0)=" Q"
^XMB(3.9,59,2,1349,0)="""RTN"",""ICDTLB6B"",172,0)"
^XMB(3.9,59,2,1350,0)="DRG552 Q"
^XMB(3.9,59,2,1351,0)="""RTN"",""ICDTLB6B"",173,0)"
^XMB(3.9,59,2,1352,0)="DRG553 ; called from DRG478"
^XMB(3.9,59,2,1353,0)="""RTN"",""ICDTLB6B"",174,0)"
^XMB(3.9,59,2,1354,0)=" D MCV"
^XMB(3.9,59,2,1355,0)="""RTN"",""ICDTLB6B"",175,0)"
^XMB(3.9,59,2,1356,0)=" S ICDRG=$S(ICDMCV:553,ICDMCV1:553,1:554) Q"
^XMB(3.9,59,2,1357,0)="""RTN"",""ICDTLB6B"",176,0)"
^XMB(3.9,59,2,1358,0)="DRG554 G DRG553"
^XMB(3.9,59,2,1359,0)="""RTN"",""ICDTLB6B"",177,0)"
^XMB(3.9,59,2,1360,0)="DRG555 ; called from DRG516"
^XMB(3.9,59,2,1361,0)="""RTN"",""ICDTLB6B"",178,0)"
^XMB(3.9,59,2,1362,0)=" D MCV"
^XMB(3.9,59,2,1363,0)="""RTN"",""ICDTLB6B"",179,0)"
^XMB(3.9,59,2,1364,0)=" I ICDMCV!(ICDMCV1) S ICDRG=555"
^XMB(3.9,59,2,1365,0)="""RTN"",""ICDTLB6B"",180,0)"
^XMB(3.9,59,2,1366,0)=" Q"
^XMB(3.9,59,2,1367,0)="""RTN"",""ICDTLB6B"",181,0)"
^XMB(3.9,59,2,1368,0)="DRG556 ; called from DRG516"
^XMB(3.9,59,2,1369,0)="""RTN"",""ICDTLB6B"",182,0)"
^XMB(3.9,59,2,1370,0)=" D MCV"
^XMB(3.9,59,2,1371,0)="""RTN"",""ICDTLB6B"",183,0)"
^XMB(3.9,59,2,1372,0)=" I 'ICDMCV&('ICDMCV1) S ICDRG=556"
^XMB(3.9,59,2,1373,0)="""RTN"",""ICDTLB6B"",184,0)"
^XMB(3.9,59,2,1374,0)=" Q"
^XMB(3.9,59,2,1375,0)="""RTN"",""ICDTLB6B"",185,0)"
^XMB(3.9,59,2,1376,0)="DRG557 ; called from DRG516"
^XMB(3.9,59,2,1377,0)="""RTN"",""ICDTLB6B"",186,0)"
^XMB(3.9,59,2,1378,0)=" D MCV"
^XMB(3.9,59,2,1379,0)="""RTN"",""ICDTLB6B"",187,0)"
^XMB(3.9,59,2,1380,0)=" I ICDMCV!ICDMCV1 S ICDRG=557"
^XMB(3.9,59,2,1381,0)="""RTN"",""ICDTLB6B"",188,0)"
^XMB(3.9,59,2,1382,0)=" E  S ICDRG=558"
^XMB(3.9,59,2,1383,0)="""RTN"",""ICDTLB6B"",189,0)"
^XMB(3.9,59,2,1384,0)=" Q"
^XMB(3.9,59,2,1385,0)="""RTN"",""ICDTLB6B"",190,0)"
^XMB(3.9,59,2,1386,0)="DRG558 G DRG516"
^XMB(3.9,59,2,1387,0)="""RTN"",""ICDTLB6B"",191,0)"
^XMB(3.9,59,2,1388,0)="DRG559 ;I DGDX(1)[""433.01""!(DGDX(1)[""433.11"")!(DGDX(1)[""433.21"")!(DGDX(1)[""433.31"")!(DGDX(1)[""433.81"")!(DGDX(1)[""433.91"")!(DGDX(1)[""434.01"")!(DGDX(1)[""434.11"")!(DGDX(1)[""434.91"") S ICDRG=559"
^XMB(3.9,59,2,1389,0)="""RTN"",""ICDTLB6B"",192,0)"
^XMB(3.9,59,2,1390,0)=" I $G(ICDDX(1))=12856!($G(ICDDX(1))=12858)!($G(ICDDX(1))=12860)!($G(ICDDX(1))=12862)!($G(ICDDX(1))=12864)!($G(ICDDX(1))=12866)!($G(ICDDX(1))=12868)!($G(ICDDX(1))=12870)!($G(ICDDX(1))=12872) S ICDRG=559"
^XMB(3.9,59,2,1391,0)="""RTN"",""ICDTLB6B"",193,0)"
^XMB(3.9,59,2,1392,0)=" Q"
^XMB(3.9,59,2,1393,0)="""RTN"",""ICDTLB6B"",194,0)"
^XMB(3.9,59,2,1394,0)="MCV ; checks to see if case qualifies as an MCV (major cardiovascular complications or complex conditions)"
^XMB(3.9,59,2,1395,0)="""RTN"",""ICDTLB6B"",195,0)"
^XMB(3.9,59,2,1396,0)=" S (ICDMCV,ICDMCV1,ICDMCV2)=0"
^XMB(3.9,59,2,1397,0)="""RTN"",""ICDTLB6B"",196,0)"
^XMB(3.9,59,2,1398,0)=" ; ICDPD=identifier for prime dx  ICDSD=identifier for any secondary dx"
^XMB(3.9,59,2,1399,0)="""RTN"",""ICDTLB6B"",197,0)"
^XMB(3.9,59,2,1400,0)=" ; DGDX(1)=prime dx  ICDDX(1)=ien of prime dx ICDDXT=any secondary dx  "
^XMB(3.9,59,2,1401,0)="""RTN"",""ICDTLB6B"",198,0)"
^XMB(3.9,59,2,1402,0)=" I ICDPD[""c""!(ICDSD[""c"") S ICDMCV=1"
^XMB(3.9,59,2,1403,0)="""RTN"",""ICDTLB6B"",199,0)"
^XMB(3.9,59,2,1404,0)=" I ICDSD[""s"" S ICDMCV=1"
^XMB(3.9,59,2,1405,0)="""RTN"",""ICDTLB6B"",200,0)"
^XMB(3.9,59,2,1406,0)=" ;I DGDX(1)[""426.0""!(DGDX(1)[""426.53"")!(DGDX(1)[""426.54"") S ICDMCV1=1"
^XMB(3.9,59,2,1407,0)="""RTN"",""ICDTLB6B"",201,0)"
^XMB(3.9,59,2,1408,0)=" I $G(ICDDX(1))=9056!($G(ICDDX(1))=2548)!($G(ICDDX(1))=2549) S ICDMCV1=1"
^XMB(3.9,59,2,1409,0)="""RTN"",""ICDTLB6B"",202,0)"
^XMB(3.9,59,2,1410,0)=" I $D(ICDDXT(""426.0""))!($D(ICDDXT(""426.53"")))!($D(ICDDXT(""426.54""))) S ICDMCV1=1"
^XMB(3.9,59,2,1411,0)="""RTN"",""ICDTLB6B"",203,0)"
^XMB(3.9,59,2,1412,0)=" ;I DGDX(1)[""411.1""!(DGDX(1)[""411.81"") S ICDMCV2=1"
^XMB(3.9,59,2,1413,0)="""RTN"",""ICDTLB6B"",204,0)"
^XMB(3.9,59,2,1414,0)=" I $G(ICDDX(1))=2500!($G(ICDDX(1))=12477) S ICDMCV2=1"
^XMB(3.9,59,2,1415,0)="""RTN"",""ICDTLB6B"",205,0)"
^XMB(3.9,59,2,1416,0)=" I $D(ICDDXT(""411.1""))!($D(ICDDXT(""411.81""))) S ICDMCV2=1"
^XMB(3.9,59,2,1417,0)="""RTN"",""ICDTLB6B"",206,0)"
^XMB(3.9,59,2,1418,0)=" Q"
^XMB(3.9,59,2,1419,0)="""VER"")"
^XMB(3.9,59,2,1420,0)="8.0^22.0"
^XMB(3.9,59,2,1421,0)="""BLD"",6812,6)"
^XMB(3.9,59,2,1422,0)="^21"
^XMB(3.9,59,2,1423,0)="$END KID ICD*18.0*22"
^XMB(3.9,59,6,0)="^3.911A^2^2"
^XMB(3.9,59,6,1,0)="POSTMASTER"
^XMB(3.9,59,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,59,6,"B","POSTMASTER",1)=""
^XMB(3.9,59,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,60,0)="IMR-2P1_SEQ-18_PAT-21.KID^.5^3061008.015738^^^^K"
^XMB(3.9,60,.6)="3061008"
^XMB(3.9,60,1,0)="^3.91A^2^2"
^XMB(3.9,60,1,1,0)=".5^0^3061008.015738^^^^^^^3061008.015738"
^XMB(3.9,60,1,2,0)="1^0^3061008.023746^^^^^^^3061008.023746"
^XMB(3.9,60,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,60,1,"C",.5,1)=""
^XMB(3.9,60,1,"C",1,2)=""
^XMB(3.9,60,2,0)="^^1961^1961^3061008"
^XMB(3.9,60,2,1,0)="$TXT Released IMR*2.1*21 SEQ #18"
^XMB(3.9,60,2,2,0)="Extracted from mail message"
^XMB(3.9,60,2,3,0)="$END TXT"
^XMB(3.9,60,2,4,0)="$KID IMR*2.1*21"
^XMB(3.9,60,2,5,0)="**INSTALL NAME**"
^XMB(3.9,60,2,6,0)="IMR*2.1*21"
^XMB(3.9,60,2,7,0)="""BLD"",6211,0)"
^XMB(3.9,60,2,8,0)="IMR*2.1*21^ICR - IMMUNOLOGY CASE REGISTRY^0^3050720^y"
^XMB(3.9,60,2,9,0)="""BLD"",6211,1,0)"
^XMB(3.9,60,2,10,0)="^^3^3^3050602^^"
^XMB(3.9,60,2,11,0)="""BLD"",6211,1,1,0)"
^XMB(3.9,60,2,12,0)="This patch completely deletes the Immunology Case Registry v2.1 package, "
^XMB(3.9,60,2,13,0)="""BLD"",6211,1,2,0)"
^XMB(3.9,60,2,14,0)="which was replaced by the new version of the registry added to the "
^XMB(3.9,60,2,15,0)="""BLD"",6211,1,3,0)"
^XMB(3.9,60,2,16,0)="Clinical Case Registries package."
^XMB(3.9,60,2,17,0)="""BLD"",6211,4,0)"
^XMB(3.9,60,2,18,0)="^9.64PA^^"
^XMB(3.9,60,2,19,0)="""BLD"",6211,""INID"")"
^XMB(3.9,60,2,20,0)="^y"
^XMB(3.9,60,2,21,0)="""BLD"",6211,""INIT"")"
^XMB(3.9,60,2,22,0)="POS^IMRP021"
^XMB(3.9,60,2,23,0)="""BLD"",6211,""KRN"",0)"
^XMB(3.9,60,2,24,0)="^9.67PA^8989.52^19"
^XMB(3.9,60,2,25,0)="""BLD"",6211,""KRN"",.4,0)"
^XMB(3.9,60,2,26,0)=".4"
^XMB(3.9,60,2,27,0)="""BLD"",6211,""KRN"",.4,""NM"",0)"
^XMB(3.9,60,2,28,0)="^9.68A^1^1"
^XMB(3.9,60,2,29,0)="""BLD"",6211,""KRN"",.4,""NM"",1,0)"
^XMB(3.9,60,2,30,0)="IMRH PRINT LAB LINKS    FILE #158.9^158.9^1^"
^XMB(3.9,60,2,31,0)="""BLD"",6211,""KRN"",.4,""NM"",""B"",""IMRH PRINT LAB LINKS    FILE #158.9"",1)"
^XMB(3.9,60,2,32,0)=""
^XMB(3.9,60,2,33,0)="""BLD"",6211,""KRN"",.401,0)"
^XMB(3.9,60,2,34,0)=".401"
^XMB(3.9,60,2,35,0)="""BLD"",6211,""KRN"",.402,0)"
^XMB(3.9,60,2,36,0)=".402"
^XMB(3.9,60,2,37,0)="""BLD"",6211,""KRN"",.402,""NM"",0)"
^XMB(3.9,60,2,38,0)="^9.68A^8^8"
^XMB(3.9,60,2,39,0)="""BLD"",6211,""KRN"",.402,""NM"",1,0)"
^XMB(3.9,60,2,40,0)="IMR CDC1    FILE #158^158^1^"
^XMB(3.9,60,2,41,0)="""BLD"",6211,""KRN"",.402,""NM"",2,0)"
^XMB(3.9,60,2,42,0)="IMR CDC2    FILE #158^158^1^"
^XMB(3.9,60,2,43,0)="""BLD"",6211,""KRN"",.402,""NM"",3,0)"
^XMB(3.9,60,2,44,0)="IMR CDC3    FILE #158^158^1^"
^XMB(3.9,60,2,45,0)="""BLD"",6211,""KRN"",.402,""NM"",4,0)"
^XMB(3.9,60,2,46,0)="IMR CDC4    FILE #158^158^1^"
^XMB(3.9,60,2,47,0)="""BLD"",6211,""KRN"",.402,""NM"",5,0)"
^XMB(3.9,60,2,48,0)="IMR CDC5    FILE #158^158^1^"
^XMB(3.9,60,2,49,0)="""BLD"",6211,""KRN"",.402,""NM"",6,0)"
^XMB(3.9,60,2,50,0)="IMR CDC6    FILE #158^158^1^"
^XMB(3.9,60,2,51,0)="""BLD"",6211,""KRN"",.402,""NM"",7,0)"
^XMB(3.9,60,2,52,0)="IMR CDC7    FILE #158^158^1^"
^XMB(3.9,60,2,53,0)="""BLD"",6211,""KRN"",.402,""NM"",8,0)"
^XMB(3.9,60,2,54,0)="IMR EDIT1    FILE #158^158^1^"
^XMB(3.9,60,2,55,0)="""BLD"",6211,""KRN"",.402,""NM"",""B"",""IMR CDC1    FILE #158"",1)"
^XMB(3.9,60,2,56,0)=""
^XMB(3.9,60,2,57,0)="""BLD"",6211,""KRN"",.402,""NM"",""B"",""IMR CDC2    FILE #158"",2)"
^XMB(3.9,60,2,58,0)=""
^XMB(3.9,60,2,59,0)="""BLD"",6211,""KRN"",.402,""NM"",""B"",""IMR CDC3    FILE #158"",3)"
^XMB(3.9,60,2,60,0)=""
^XMB(3.9,60,2,61,0)="""BLD"",6211,""KRN"",.402,""NM"",""B"",""IMR CDC4    FILE #158"",4)"
^XMB(3.9,60,2,62,0)=""
^XMB(3.9,60,2,63,0)="""BLD"",6211,""KRN"",.402,""NM"",""B"",""IMR CDC5    FILE #158"",5)"
^XMB(3.9,60,2,64,0)=""
^XMB(3.9,60,2,65,0)="""BLD"",6211,""KRN"",.402,""NM"",""B"",""IMR CDC6    FILE #158"",6)"
^XMB(3.9,60,2,66,0)=""
^XMB(3.9,60,2,67,0)="""BLD"",6211,""KRN"",.402,""NM"",""B"",""IMR CDC7    FILE #158"",7)"
^XMB(3.9,60,2,68,0)=""
^XMB(3.9,60,2,69,0)="""BLD"",6211,""KRN"",.402,""NM"",""B"",""IMR EDIT1    FILE #158"",8)"
^XMB(3.9,60,2,70,0)=""
^XMB(3.9,60,2,71,0)="""BLD"",6211,""KRN"",.403,0)"
^XMB(3.9,60,2,72,0)=".403"
^XMB(3.9,60,2,73,0)="""BLD"",6211,""KRN"",.5,0)"
^XMB(3.9,60,2,74,0)=".5"
^XMB(3.9,60,2,75,0)="""BLD"",6211,""KRN"",.5,""NM"",0)"
^XMB(3.9,60,2,76,0)="^9.68A^^"
^XMB(3.9,60,2,77,0)="""BLD"",6211,""KRN"",.84,0)"
^XMB(3.9,60,2,78,0)=".84"
^XMB(3.9,60,2,79,0)="""BLD"",6211,""KRN"",3.6,0)"
^XMB(3.9,60,2,80,0)="3.6"
^XMB(3.9,60,2,81,0)="""BLD"",6211,""KRN"",3.8,0)"
^XMB(3.9,60,2,82,0)="3.8"
^XMB(3.9,60,2,83,0)="""BLD"",6211,""KRN"",3.8,""NM"",0)"
^XMB(3.9,60,2,84,0)="^9.68A^^"
^XMB(3.9,60,2,85,0)="""BLD"",6211,""KRN"",9.2,0)"
^XMB(3.9,60,2,86,0)="9.2"
^XMB(3.9,60,2,87,0)="""BLD"",6211,""KRN"",9.8,0)"
^XMB(3.9,60,2,88,0)="9.8"
^XMB(3.9,60,2,89,0)="""BLD"",6211,""KRN"",9.8,""NM"",0)"
^XMB(3.9,60,2,90,0)="^9.68A^3^3"
^XMB(3.9,60,2,91,0)="""BLD"",6211,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,60,2,92,0)="IMRVPP^^0^B44836103"
^XMB(3.9,60,2,93,0)="""BLD"",6211,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,60,2,94,0)="IMRVPPE^^0^B13564489"
^XMB(3.9,60,2,95,0)="""BLD"",6211,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,60,2,96,0)="IMRVPPU^^0^B12623498"
^XMB(3.9,60,2,97,0)="""BLD"",6211,""KRN"",9.8,""NM"",""B"",""IMRVPP"",1)"
^XMB(3.9,60,2,98,0)=""
^XMB(3.9,60,2,99,0)="""BLD"",6211,""KRN"",9.8,""NM"",""B"",""IMRVPPE"",2)"
^XMB(3.9,60,2,100,0)=""
^XMB(3.9,60,2,101,0)="""BLD"",6211,""KRN"",9.8,""NM"",""B"",""IMRVPPU"",3)"
^XMB(3.9,60,2,102,0)=""
^XMB(3.9,60,2,103,0)="""BLD"",6211,""KRN"",19,0)"
^XMB(3.9,60,2,104,0)="19"
^XMB(3.9,60,2,105,0)="""BLD"",6211,""KRN"",19,""NM"",0)"
^XMB(3.9,60,2,106,0)="^9.68A^53^53"
^XMB(3.9,60,2,107,0)="""BLD"",6211,""KRN"",19,""NM"",1,0)"
^XMB(3.9,60,2,108,0)="IMR ACCESS LOG^^1^"
^XMB(3.9,60,2,109,0)="""BLD"",6211,""KRN"",19,""NM"",2,0)"
^XMB(3.9,60,2,110,0)="IMR ARV REIMBURSEMENT^^1^"
^XMB(3.9,60,2,111,0)="""BLD"",6211,""KRN"",19,""NM"",3,0)"
^XMB(3.9,60,2,112,0)="IMR BLANK CDC FORM^^1^"
^XMB(3.9,60,2,113,0)="""BLD"",6211,""KRN"",19,""NM"",4,0)"
^XMB(3.9,60,2,114,0)="IMR CATEGORY BREAKDOWN^^1^"
^XMB(3.9,60,2,115,0)="""BLD"",6211,""KRN"",19,""NM"",5,0)"
^XMB(3.9,60,2,116,0)="IMR CDC ENTER/EDIT^^1^"
^XMB(3.9,60,2,117,0)="""BLD"",6211,""KRN"",19,""NM"",6,0)"
^XMB(3.9,60,2,118,0)="IMR DECODE SSN^^1^"
^XMB(3.9,60,2,119,0)="""BLD"",6211,""KRN"",19,""NM"",7,0)"
^XMB(3.9,60,2,120,0)="IMR DELETE ENTRY^^1^"
^XMB(3.9,60,2,121,0)="""BLD"",6211,""KRN"",19,""NM"",8,0)"
^XMB(3.9,60,2,122,0)="IMR ENTER/EDIT DATA^^1^"
^XMB(3.9,60,2,123,0)="""BLD"",6211,""KRN"",19,""NM"",9,0)"
^XMB(3.9,60,2,124,0)="IMR FOLLOW UP LIST^^1^"
^XMB(3.9,60,2,125,0)="""BLD"",6211,""KRN"",19,""NM"",10,0)"
^XMB(3.9,60,2,126,0)="IMR INPAT LIST^^1^"
^XMB(3.9,60,2,127,0)="""BLD"",6211,""KRN"",19,""NM"",11,0)"
^XMB(3.9,60,2,128,0)="IMR INQUIRY NATIONAL^^1^"
^XMB(3.9,60,2,129,0)="""BLD"",6211,""KRN"",19,""NM"",12,0)"
^XMB(3.9,60,2,130,0)="IMR IP/OP ACTIVITY LIST^^1^"
^XMB(3.9,60,2,131,0)="""BLD"",6211,""KRN"",19,""NM"",13,0)"
^XMB(3.9,60,2,132,0)="IMR KEYS^^1^"
^XMB(3.9,60,2,133,0)="""BLD"",6211,""KRN"",19,""NM"",14,0)"
^XMB(3.9,60,2,134,0)="IMR LAB TEST ENTRY^^1^"
^XMB(3.9,60,2,135,0)="""BLD"",6211,""KRN"",19,""NM"",15,0)"
^XMB(3.9,60,2,136,0)="IMR LAB UTILIZATION LIST^^1^"
^XMB(3.9,60,2,137,0)="""BLD"",6211,""KRN"",19,""NM"",16,0)"
^XMB(3.9,60,2,138,0)="IMR LAB UTILIZATION LIST ^^1^"
^XMB(3.9,60,2,139,0)="""BLD"",6211,""KRN"",19,""NM"",17,0)"
^XMB(3.9,60,2,140,0)="IMR LIST LOCAL LAB LINKS^^1^"
^XMB(3.9,60,2,141,0)="""BLD"",6211,""KRN"",19,""NM"",18,0)"
^XMB(3.9,60,2,142,0)="IMR LOCAL UTILIZATION^^1^"
^XMB(3.9,60,2,143,0)="""BLD"",6211,""KRN"",19,""NM"",19,0)"
^XMB(3.9,60,2,144,0)="IMR LOCAL UTILIZATION SUMMARY^^1^"
^XMB(3.9,60,2,145,0)="""BLD"",6211,""KRN"",19,""NM"",20,0)"
^XMB(3.9,60,2,146,0)="IMR MENU (GENERAL)^^1^"
^XMB(3.9,60,2,147,0)="""BLD"",6211,""KRN"",19,""NM"",21,0)"
^XMB(3.9,60,2,148,0)="IMR MENU (MANAGEMENT)^^1^"
^XMB(3.9,60,2,149,0)="""BLD"",6211,""KRN"",19,""NM"",22,0)"
^XMB(3.9,60,2,150,0)="IMR MENU (SITE SETUP)^^1^"
^XMB(3.9,60,2,151,0)="""BLD"",6211,""KRN"",19,""NM"",23,0)"
^XMB(3.9,60,2,152,0)="IMR NAT ARV DRUGS^^1^"
^XMB(3.9,60,2,153,0)="""BLD"",6211,""KRN"",19,""NM"",24,0)"
^XMB(3.9,60,2,154,0)="IMR NAT DEMOG INQ^^1^"
^XMB(3.9,60,2,155,0)="""BLD"",6211,""KRN"",19,""NM"",25,0)"
^XMB(3.9,60,2,156,0)="IMR NAT PAT INQ^^1^"
^XMB(3.9,60,2,157,0)="""BLD"",6211,""KRN"",19,""NM"",26,0)"
^XMB(3.9,60,2,158,0)="IMR NAT UTIL^^1^"
^XMB(3.9,60,2,159,0)="""BLD"",6211,""KRN"",19,""NM"",27,0)"
^XMB(3.9,60,2,160,0)="IMR PAT CLIN HIST^^1^"
^XMB(3.9,60,2,161,0)="""BLD"",6211,""KRN"",19,""NM"",28,0)"
^XMB(3.9,60,2,162,0)="IMR PATIENT INQUIRY^^1^"
^XMB(3.9,60,2,163,0)="""BLD"",6211,""KRN"",19,""NM"",29,0)"
^XMB(3.9,60,2,164,0)="IMR PATIENT LIST^^1^"
^XMB(3.9,60,2,165,0)="""BLD"",6211,""KRN"",19,""NM"",30,0)"
^XMB(3.9,60,2,166,0)="IMR PHARM DRUG ENTER/EDIT^^1^"
^XMB(3.9,60,2,167,0)="""BLD"",6211,""KRN"",19,""NM"",31,0)"
^XMB(3.9,60,2,168,0)="IMR PHARM RX MENU^^1^"
^XMB(3.9,60,2,169,0)="""BLD"",6211,""KRN"",19,""NM"",32,0)"
^XMB(3.9,60,2,170,0)="IMR PHARM UTILIZATION LIST^^1^"
^XMB(3.9,60,2,171,0)="""BLD"",6211,""KRN"",19,""NM"",33,0)"
^XMB(3.9,60,2,172,0)="IMR PNEUMOCOCCAL RPT^^1^"
^XMB(3.9,60,2,173,0)="""BLD"",6211,""KRN"",19,""NM"",34,0)"
^XMB(3.9,60,2,174,0)="IMR PRINT CDC FORM^^1^"
^XMB(3.9,60,2,175,0)="""BLD"",6211,""KRN"",19,""NM"",35,0)"
^XMB(3.9,60,2,176,0)="IMR PRINT OPTS^^1^"
^XMB(3.9,60,2,177,0)="""BLD"",6211,""KRN"",19,""NM"",36,0)"
^XMB(3.9,60,2,178,0)="IMR QUE DATA COLLECT^^1^"
^XMB(3.9,60,2,179,0)="""BLD"",6211,""KRN"",19,""NM"",37,0)"
^XMB(3.9,60,2,180,0)="IMR QUEUED INPAT LIST^^1^"
^XMB(3.9,60,2,181,0)="""BLD"",6211,""KRN"",19,""NM"",38,0)"
^XMB(3.9,60,2,182,0)="IMR RADIOLOGY UTILIZATION^^1^"
^XMB(3.9,60,2,183,0)="""BLD"",6211,""KRN"",19,""NM"",39,0)"
^XMB(3.9,60,2,184,0)="IMR REGISTRY DATA^^1^"
^XMB(3.9,60,2,185,0)="""BLD"",6211,""KRN"",19,""NM"",40,0)"
^XMB(3.9,60,2,186,0)="IMR SEARCH TEMPLATE^^1^"
^XMB(3.9,60,2,187,0)="""BLD"",6211,""KRN"",19,""NM"",41,0)"
^XMB(3.9,60,2,188,0)="IMR SHOW CODE^^1^"
^XMB(3.9,60,2,189,0)="""BLD"",6211,""KRN"",19,""NM"",42,0)"
^XMB(3.9,60,2,190,0)="IMR SPECFC IP/OP ACTIVITY^^1^"
^XMB(3.9,60,2,191,0)="""BLD"",6211,""KRN"",19,""NM"",43,0)"
^XMB(3.9,60,2,192,0)="IMR SPECFC IP/OP ACTIVITY LIST^^1^"
^XMB(3.9,60,2,193,0)="""BLD"",6211,""KRN"",19,""NM"",44,0)"
^XMB(3.9,60,2,194,0)="IMR SPECFC LAB LIST^^1^"
^XMB(3.9,60,2,195,0)="""BLD"",6211,""KRN"",19,""NM"",45,0)"
^XMB(3.9,60,2,196,0)="IMR SPECFC RX LIST^^1^"
^XMB(3.9,60,2,197,0)="""BLD"",6211,""KRN"",19,""NM"",46,0)"
^XMB(3.9,60,2,198,0)="IMR SPF ENTER/EDIT^^1^"
^XMB(3.9,60,2,199,0)="""BLD"",6211,""KRN"",19,""NM"",47,0)"
^XMB(3.9,60,2,200,0)="IMR TEMPLATE DELETE^^1^"
^XMB(3.9,60,2,201,0)="""BLD"",6211,""KRN"",19,""NM"",48,0)"
^XMB(3.9,60,2,202,0)="IMR TEMPLATE LIST^^1^"
^XMB(3.9,60,2,203,0)="""BLD"",6211,""KRN"",19,""NM"",49,0)"
^XMB(3.9,60,2,204,0)="IMR VIRAL CD4 RANGE^^1^"
^XMB(3.9,60,2,205,0)="""BLD"",6211,""KRN"",19,""NM"",50,0)"
^XMB(3.9,60,2,206,0)="IMR VIRAL CD4TEST LIST^^1^"
^XMB(3.9,60,2,207,0)="""BLD"",6211,""KRN"",19,""NM"",51,0)"
^XMB(3.9,60,2,208,0)="IMR VIRAL TESTS LIST^^1^"
^XMB(3.9,60,2,209,0)="""BLD"",6211,""KRN"",19,""NM"",52,0)"
^XMB(3.9,60,2,210,0)="IMR VIRAL TESTS MENU^^1^"
^XMB(3.9,60,2,211,0)="""BLD"",6211,""KRN"",19,""NM"",53,0)"
^XMB(3.9,60,2,212,0)="IMR OUTPATIENT SURVEY^^1^"
^XMB(3.9,60,2,213,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR ACCESS LOG"",1)"
^XMB(3.9,60,2,214,0)=""
^XMB(3.9,60,2,215,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR ARV REIMBURSEMENT"",2)"
^XMB(3.9,60,2,216,0)=""
^XMB(3.9,60,2,217,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR BLANK CDC FORM"",3)"
^XMB(3.9,60,2,218,0)=""
^XMB(3.9,60,2,219,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR CATEGORY BREAKDOWN"",4)"
^XMB(3.9,60,2,220,0)=""
^XMB(3.9,60,2,221,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR CDC ENTER/EDIT"",5)"
^XMB(3.9,60,2,222,0)=""
^XMB(3.9,60,2,223,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR DECODE SSN"",6)"
^XMB(3.9,60,2,224,0)=""
^XMB(3.9,60,2,225,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR DELETE ENTRY"",7)"
^XMB(3.9,60,2,226,0)=""
^XMB(3.9,60,2,227,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR ENTER/EDIT DATA"",8)"
^XMB(3.9,60,2,228,0)=""
^XMB(3.9,60,2,229,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR FOLLOW UP LIST"",9)"
^XMB(3.9,60,2,230,0)=""
^XMB(3.9,60,2,231,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR INPAT LIST"",10)"
^XMB(3.9,60,2,232,0)=""
^XMB(3.9,60,2,233,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR INQUIRY NATIONAL"",11)"
^XMB(3.9,60,2,234,0)=""
^XMB(3.9,60,2,235,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR IP/OP ACTIVITY LIST"",12)"
^XMB(3.9,60,2,236,0)=""
^XMB(3.9,60,2,237,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR KEYS"",13)"
^XMB(3.9,60,2,238,0)=""
^XMB(3.9,60,2,239,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR LAB TEST ENTRY"",14)"
^XMB(3.9,60,2,240,0)=""
^XMB(3.9,60,2,241,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR LAB UTILIZATION LIST"",15)"
^XMB(3.9,60,2,242,0)=""
^XMB(3.9,60,2,243,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR LAB UTILIZATION LIST "",16)"
^XMB(3.9,60,2,244,0)=""
^XMB(3.9,60,2,245,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR LIST LOCAL LAB LINKS"",17)"
^XMB(3.9,60,2,246,0)=""
^XMB(3.9,60,2,247,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR LOCAL UTILIZATION"",18)"
^XMB(3.9,60,2,248,0)=""
^XMB(3.9,60,2,249,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR LOCAL UTILIZATION SUMMARY"",19)"
^XMB(3.9,60,2,250,0)=""
^XMB(3.9,60,2,251,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR MENU (GENERAL)"",20)"
^XMB(3.9,60,2,252,0)=""
^XMB(3.9,60,2,253,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR MENU (MANAGEMENT)"",21)"
^XMB(3.9,60,2,254,0)=""
^XMB(3.9,60,2,255,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR MENU (SITE SETUP)"",22)"
^XMB(3.9,60,2,256,0)=""
^XMB(3.9,60,2,257,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR NAT ARV DRUGS"",23)"
^XMB(3.9,60,2,258,0)=""
^XMB(3.9,60,2,259,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR NAT DEMOG INQ"",24)"
^XMB(3.9,60,2,260,0)=""
^XMB(3.9,60,2,261,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR NAT PAT INQ"",25)"
^XMB(3.9,60,2,262,0)=""
^XMB(3.9,60,2,263,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR NAT UTIL"",26)"
^XMB(3.9,60,2,264,0)=""
^XMB(3.9,60,2,265,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR OUTPATIENT SURVEY"",53)"
^XMB(3.9,60,2,266,0)=""
^XMB(3.9,60,2,267,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR PAT CLIN HIST"",27)"
^XMB(3.9,60,2,268,0)=""
^XMB(3.9,60,2,269,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR PATIENT INQUIRY"",28)"
^XMB(3.9,60,2,270,0)=""
^XMB(3.9,60,2,271,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR PATIENT LIST"",29)"
^XMB(3.9,60,2,272,0)=""
^XMB(3.9,60,2,273,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR PHARM DRUG ENTER/EDIT"",30)"
^XMB(3.9,60,2,274,0)=""
^XMB(3.9,60,2,275,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR PHARM RX MENU"",31)"
^XMB(3.9,60,2,276,0)=""
^XMB(3.9,60,2,277,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR PHARM UTILIZATION LIST"",32)"
^XMB(3.9,60,2,278,0)=""
^XMB(3.9,60,2,279,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR PNEUMOCOCCAL RPT"",33)"
^XMB(3.9,60,2,280,0)=""
^XMB(3.9,60,2,281,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR PRINT CDC FORM"",34)"
^XMB(3.9,60,2,282,0)=""
^XMB(3.9,60,2,283,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR PRINT OPTS"",35)"
^XMB(3.9,60,2,284,0)=""
^XMB(3.9,60,2,285,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR QUE DATA COLLECT"",36)"
^XMB(3.9,60,2,286,0)=""
^XMB(3.9,60,2,287,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR QUEUED INPAT LIST"",37)"
^XMB(3.9,60,2,288,0)=""
^XMB(3.9,60,2,289,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR RADIOLOGY UTILIZATION"",38)"
^XMB(3.9,60,2,290,0)=""
^XMB(3.9,60,2,291,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR REGISTRY DATA"",39)"
^XMB(3.9,60,2,292,0)=""
^XMB(3.9,60,2,293,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR SEARCH TEMPLATE"",40)"
^XMB(3.9,60,2,294,0)=""
^XMB(3.9,60,2,295,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR SHOW CODE"",41)"
^XMB(3.9,60,2,296,0)=""
^XMB(3.9,60,2,297,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR SPECFC IP/OP ACTIVITY"",42)"
^XMB(3.9,60,2,298,0)=""
^XMB(3.9,60,2,299,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR SPECFC IP/OP ACTIVITY LIST"",43)"
^XMB(3.9,60,2,300,0)=""
^XMB(3.9,60,2,301,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR SPECFC LAB LIST"",44)"
^XMB(3.9,60,2,302,0)=""
^XMB(3.9,60,2,303,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR SPECFC RX LIST"",45)"
^XMB(3.9,60,2,304,0)=""
^XMB(3.9,60,2,305,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR SPF ENTER/EDIT"",46)"
^XMB(3.9,60,2,306,0)=""
^XMB(3.9,60,2,307,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR TEMPLATE DELETE"",47)"
^XMB(3.9,60,2,308,0)=""
^XMB(3.9,60,2,309,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR TEMPLATE LIST"",48)"
^XMB(3.9,60,2,310,0)=""
^XMB(3.9,60,2,311,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR VIRAL CD4 RANGE"",49)"
^XMB(3.9,60,2,312,0)=""
^XMB(3.9,60,2,313,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR VIRAL CD4TEST LIST"",50)"
^XMB(3.9,60,2,314,0)=""
^XMB(3.9,60,2,315,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR VIRAL TESTS LIST"",51)"
^XMB(3.9,60,2,316,0)=""
^XMB(3.9,60,2,317,0)="""BLD"",6211,""KRN"",19,""NM"",""B"",""IMR VIRAL TESTS MENU"",52)"
^XMB(3.9,60,2,318,0)=""
^XMB(3.9,60,2,319,0)="""BLD"",6211,""KRN"",19.1,0)"
^XMB(3.9,60,2,320,0)="19.1"
^XMB(3.9,60,2,321,0)="""BLD"",6211,""KRN"",19.1,""NM"",0)"
^XMB(3.9,60,2,322,0)="^9.68A^2^2"
^XMB(3.9,60,2,323,0)="""BLD"",6211,""KRN"",19.1,""NM"",1,0)"
^XMB(3.9,60,2,324,0)="IMRA^^1^"
^XMB(3.9,60,2,325,0)="""BLD"",6211,""KRN"",19.1,""NM"",2,0)"
^XMB(3.9,60,2,326,0)="IMRMGR^^1^"
^XMB(3.9,60,2,327,0)="""BLD"",6211,""KRN"",19.1,""NM"",""B"",""IMRA"",1)"
^XMB(3.9,60,2,328,0)=""
^XMB(3.9,60,2,329,0)="""BLD"",6211,""KRN"",19.1,""NM"",""B"",""IMRMGR"",2)"
^XMB(3.9,60,2,330,0)=""
^XMB(3.9,60,2,331,0)="""BLD"",6211,""KRN"",101,0)"
^XMB(3.9,60,2,332,0)="101"
^XMB(3.9,60,2,333,0)="""BLD"",6211,""KRN"",409.61,0)"
^XMB(3.9,60,2,334,0)="409.61"
^XMB(3.9,60,2,335,0)="""BLD"",6211,""KRN"",771,0)"
^XMB(3.9,60,2,336,0)="771"
^XMB(3.9,60,2,337,0)="""BLD"",6211,""KRN"",870,0)"
^XMB(3.9,60,2,338,0)="870"
^XMB(3.9,60,2,339,0)="""BLD"",6211,""KRN"",8989.51,0)"
^XMB(3.9,60,2,340,0)="8989.51"
^XMB(3.9,60,2,341,0)="""BLD"",6211,""KRN"",8989.52,0)"
^XMB(3.9,60,2,342,0)="8989.52"
^XMB(3.9,60,2,343,0)="""BLD"",6211,""KRN"",8994,0)"
^XMB(3.9,60,2,344,0)="8994"
^XMB(3.9,60,2,345,0)="""BLD"",6211,""KRN"",""B"",.4,.4)"
^XMB(3.9,60,2,346,0)=""
^XMB(3.9,60,2,347,0)="""BLD"",6211,""KRN"",""B"",.401,.401)"
^XMB(3.9,60,2,348,0)=""
^XMB(3.9,60,2,349,0)="""BLD"",6211,""KRN"",""B"",.402,.402)"
^XMB(3.9,60,2,350,0)=""
^XMB(3.9,60,2,351,0)="""BLD"",6211,""KRN"",""B"",.403,.403)"
^XMB(3.9,60,2,352,0)=""
^XMB(3.9,60,2,353,0)="""BLD"",6211,""KRN"",""B"",.5,.5)"
^XMB(3.9,60,2,354,0)=""
^XMB(3.9,60,2,355,0)="""BLD"",6211,""KRN"",""B"",.84,.84)"
^XMB(3.9,60,2,356,0)=""
^XMB(3.9,60,2,357,0)="""BLD"",6211,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,60,2,358,0)=""
^XMB(3.9,60,2,359,0)="""BLD"",6211,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,60,2,360,0)=""
^XMB(3.9,60,2,361,0)="""BLD"",6211,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,60,2,362,0)=""
^XMB(3.9,60,2,363,0)="""BLD"",6211,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,60,2,364,0)=""
^XMB(3.9,60,2,365,0)="""BLD"",6211,""KRN"",""B"",19,19)"
^XMB(3.9,60,2,366,0)=""
^XMB(3.9,60,2,367,0)="""BLD"",6211,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,60,2,368,0)=""
^XMB(3.9,60,2,369,0)="""BLD"",6211,""KRN"",""B"",101,101)"
^XMB(3.9,60,2,370,0)=""
^XMB(3.9,60,2,371,0)="""BLD"",6211,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,60,2,372,0)=""
^XMB(3.9,60,2,373,0)="""BLD"",6211,""KRN"",""B"",771,771)"
^XMB(3.9,60,2,374,0)=""
^XMB(3.9,60,2,375,0)="""BLD"",6211,""KRN"",""B"",870,870)"
^XMB(3.9,60,2,376,0)=""
^XMB(3.9,60,2,377,0)="""BLD"",6211,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,60,2,378,0)=""
^XMB(3.9,60,2,379,0)="""BLD"",6211,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,60,2,380,0)=""
^XMB(3.9,60,2,381,0)="""BLD"",6211,""KRN"",""B"",8994,8994)"
^XMB(3.9,60,2,382,0)=""
^XMB(3.9,60,2,383,0)="""BLD"",6211,""PRE"")"
^XMB(3.9,60,2,384,0)="IMRP021"
^XMB(3.9,60,2,385,0)="""BLD"",6211,""QUES"",0)"
^XMB(3.9,60,2,386,0)="^9.62^^"
^XMB(3.9,60,2,387,0)="""BLD"",6211,""REQB"",0)"
^XMB(3.9,60,2,388,0)="^9.611^^"
^XMB(3.9,60,2,389,0)="""INIT"")"
^XMB(3.9,60,2,390,0)="POS^IMRP021"
^XMB(3.9,60,2,391,0)="""KRN"",.4,2752,-1)"
^XMB(3.9,60,2,392,0)="1^1"
^XMB(3.9,60,2,393,0)="""KRN"",.4,2752,0)"
^XMB(3.9,60,2,394,0)="IMRH PRINT LAB LINKS    FILE #158.9"
^XMB(3.9,60,2,395,0)="""KRN"",.402,2746,-1)"
^XMB(3.9,60,2,396,0)="1^1"
^XMB(3.9,60,2,397,0)="""KRN"",.402,2746,0)"
^XMB(3.9,60,2,398,0)="IMR CDC1    FILE #158"
^XMB(3.9,60,2,399,0)="""KRN"",.402,2747,-1)"
^XMB(3.9,60,2,400,0)="1^2"
^XMB(3.9,60,2,401,0)="""KRN"",.402,2747,0)"
^XMB(3.9,60,2,402,0)="IMR CDC2    FILE #158"
^XMB(3.9,60,2,403,0)="""KRN"",.402,2748,-1)"
^XMB(3.9,60,2,404,0)="1^3"
^XMB(3.9,60,2,405,0)="""KRN"",.402,2748,0)"
^XMB(3.9,60,2,406,0)="IMR CDC3    FILE #158"
^XMB(3.9,60,2,407,0)="""KRN"",.402,2749,-1)"
^XMB(3.9,60,2,408,0)="1^4"
^XMB(3.9,60,2,409,0)="""KRN"",.402,2749,0)"
^XMB(3.9,60,2,410,0)="IMR CDC4    FILE #158"
^XMB(3.9,60,2,411,0)="""KRN"",.402,2750,-1)"
^XMB(3.9,60,2,412,0)="1^5"
^XMB(3.9,60,2,413,0)="""KRN"",.402,2750,0)"
^XMB(3.9,60,2,414,0)="IMR CDC5    FILE #158"
^XMB(3.9,60,2,415,0)="""KRN"",.402,2751,-1)"
^XMB(3.9,60,2,416,0)="1^6"
^XMB(3.9,60,2,417,0)="""KRN"",.402,2751,0)"
^XMB(3.9,60,2,418,0)="IMR CDC6    FILE #158"
^XMB(3.9,60,2,419,0)="""KRN"",.402,2752,-1)"
^XMB(3.9,60,2,420,0)="1^7"
^XMB(3.9,60,2,421,0)="""KRN"",.402,2752,0)"
^XMB(3.9,60,2,422,0)="IMR CDC7    FILE #158"
^XMB(3.9,60,2,423,0)="""KRN"",.402,2753,-1)"
^XMB(3.9,60,2,424,0)="1^8"
^XMB(3.9,60,2,425,0)="""KRN"",.402,2753,0)"
^XMB(3.9,60,2,426,0)="IMR EDIT1    FILE #158"
^XMB(3.9,60,2,427,0)="""KRN"",19,12759,-1)"
^XMB(3.9,60,2,428,0)="1^1"
^XMB(3.9,60,2,429,0)="""KRN"",19,12759,0)"
^XMB(3.9,60,2,430,0)="IMR ACCESS LOG"
^XMB(3.9,60,2,431,0)="""KRN"",19,12760,-1)"
^XMB(3.9,60,2,432,0)="1^2"
^XMB(3.9,60,2,433,0)="""KRN"",19,12760,0)"
^XMB(3.9,60,2,434,0)="IMR ARV REIMBURSEMENT"
^XMB(3.9,60,2,435,0)="""KRN"",19,12761,-1)"
^XMB(3.9,60,2,436,0)="1^3"
^XMB(3.9,60,2,437,0)="""KRN"",19,12761,0)"
^XMB(3.9,60,2,438,0)="IMR BLANK CDC FORM"
^XMB(3.9,60,2,439,0)="""KRN"",19,12762,-1)"
^XMB(3.9,60,2,440,0)="1^4"
^XMB(3.9,60,2,441,0)="""KRN"",19,12762,0)"
^XMB(3.9,60,2,442,0)="IMR CATEGORY BREAKDOWN"
^XMB(3.9,60,2,443,0)="""KRN"",19,12763,-1)"
^XMB(3.9,60,2,444,0)="1^5"
^XMB(3.9,60,2,445,0)="""KRN"",19,12763,0)"
^XMB(3.9,60,2,446,0)="IMR CDC ENTER/EDIT"
^XMB(3.9,60,2,447,0)="""KRN"",19,12764,-1)"
^XMB(3.9,60,2,448,0)="1^6"
^XMB(3.9,60,2,449,0)="""KRN"",19,12764,0)"
^XMB(3.9,60,2,450,0)="IMR DECODE SSN"
^XMB(3.9,60,2,451,0)="""KRN"",19,12765,-1)"
^XMB(3.9,60,2,452,0)="1^7"
^XMB(3.9,60,2,453,0)="""KRN"",19,12765,0)"
^XMB(3.9,60,2,454,0)="IMR DELETE ENTRY"
^XMB(3.9,60,2,455,0)="""KRN"",19,12766,-1)"
^XMB(3.9,60,2,456,0)="1^8"
^XMB(3.9,60,2,457,0)="""KRN"",19,12766,0)"
^XMB(3.9,60,2,458,0)="IMR ENTER/EDIT DATA"
^XMB(3.9,60,2,459,0)="""KRN"",19,12767,-1)"
^XMB(3.9,60,2,460,0)="1^9"
^XMB(3.9,60,2,461,0)="""KRN"",19,12767,0)"
^XMB(3.9,60,2,462,0)="IMR FOLLOW UP LIST"
^XMB(3.9,60,2,463,0)="""KRN"",19,12768,-1)"
^XMB(3.9,60,2,464,0)="1^10"
^XMB(3.9,60,2,465,0)="""KRN"",19,12768,0)"
^XMB(3.9,60,2,466,0)="IMR INPAT LIST"
^XMB(3.9,60,2,467,0)="""KRN"",19,12769,-1)"
^XMB(3.9,60,2,468,0)="1^11"
^XMB(3.9,60,2,469,0)="""KRN"",19,12769,0)"
^XMB(3.9,60,2,470,0)="IMR INQUIRY NATIONAL"
^XMB(3.9,60,2,471,0)="""KRN"",19,12770,-1)"
^XMB(3.9,60,2,472,0)="1^12"
^XMB(3.9,60,2,473,0)="""KRN"",19,12770,0)"
^XMB(3.9,60,2,474,0)="IMR IP/OP ACTIVITY LIST"
^XMB(3.9,60,2,475,0)="""KRN"",19,12771,-1)"
^XMB(3.9,60,2,476,0)="1^13"
^XMB(3.9,60,2,477,0)="""KRN"",19,12771,0)"
^XMB(3.9,60,2,478,0)="IMR KEYS"
^XMB(3.9,60,2,479,0)="""KRN"",19,12772,-1)"
^XMB(3.9,60,2,480,0)="1^14"
^XMB(3.9,60,2,481,0)="""KRN"",19,12772,0)"
^XMB(3.9,60,2,482,0)="IMR LAB TEST ENTRY"
^XMB(3.9,60,2,483,0)="""KRN"",19,12773,-1)"
^XMB(3.9,60,2,484,0)="1^15"
^XMB(3.9,60,2,485,0)="""KRN"",19,12773,0)"
^XMB(3.9,60,2,486,0)="IMR LAB UTILIZATION LIST"
^XMB(3.9,60,2,487,0)="""KRN"",19,12774,-1)"
^XMB(3.9,60,2,488,0)="1^16"
^XMB(3.9,60,2,489,0)="""KRN"",19,12774,0)"
^XMB(3.9,60,2,490,0)="IMR LAB UTILIZATION LIST "
^XMB(3.9,60,2,491,0)="""KRN"",19,12775,-1)"
^XMB(3.9,60,2,492,0)="1^17"
^XMB(3.9,60,2,493,0)="""KRN"",19,12775,0)"
^XMB(3.9,60,2,494,0)="IMR LIST LOCAL LAB LINKS"
^XMB(3.9,60,2,495,0)="""KRN"",19,12776,-1)"
^XMB(3.9,60,2,496,0)="1^18"
^XMB(3.9,60,2,497,0)="""KRN"",19,12776,0)"
^XMB(3.9,60,2,498,0)="IMR LOCAL UTILIZATION"
^XMB(3.9,60,2,499,0)="""KRN"",19,12777,-1)"
^XMB(3.9,60,2,500,0)="1^19"
^XMB(3.9,60,2,501,0)="""KRN"",19,12777,0)"
^XMB(3.9,60,2,502,0)="IMR LOCAL UTILIZATION SUMMARY"
^XMB(3.9,60,2,503,0)="""KRN"",19,12778,-1)"
^XMB(3.9,60,2,504,0)="1^20"
^XMB(3.9,60,2,505,0)="""KRN"",19,12778,0)"
^XMB(3.9,60,2,506,0)="IMR MENU (GENERAL)"
^XMB(3.9,60,2,507,0)="""KRN"",19,12779,-1)"
^XMB(3.9,60,2,508,0)="1^21"
^XMB(3.9,60,2,509,0)="""KRN"",19,12779,0)"
^XMB(3.9,60,2,510,0)="IMR MENU (MANAGEMENT)"
^XMB(3.9,60,2,511,0)="""KRN"",19,12780,-1)"
^XMB(3.9,60,2,512,0)="1^22"
^XMB(3.9,60,2,513,0)="""KRN"",19,12780,0)"
^XMB(3.9,60,2,514,0)="IMR MENU (SITE SETUP)"
^XMB(3.9,60,2,515,0)="""KRN"",19,12781,-1)"
^XMB(3.9,60,2,516,0)="1^23"
^XMB(3.9,60,2,517,0)="""KRN"",19,12781,0)"
^XMB(3.9,60,2,518,0)="IMR NAT ARV DRUGS"
^XMB(3.9,60,2,519,0)="""KRN"",19,12782,-1)"
^XMB(3.9,60,2,520,0)="1^24"
^XMB(3.9,60,2,521,0)="""KRN"",19,12782,0)"
^XMB(3.9,60,2,522,0)="IMR NAT DEMOG INQ"
^XMB(3.9,60,2,523,0)="""KRN"",19,12783,-1)"
^XMB(3.9,60,2,524,0)="1^25"
^XMB(3.9,60,2,525,0)="""KRN"",19,12783,0)"
^XMB(3.9,60,2,526,0)="IMR NAT PAT INQ"
^XMB(3.9,60,2,527,0)="""KRN"",19,12784,-1)"
^XMB(3.9,60,2,528,0)="1^26"
^XMB(3.9,60,2,529,0)="""KRN"",19,12784,0)"
^XMB(3.9,60,2,530,0)="IMR NAT UTIL"
^XMB(3.9,60,2,531,0)="""KRN"",19,12785,-1)"
^XMB(3.9,60,2,532,0)="1^27"
^XMB(3.9,60,2,533,0)="""KRN"",19,12785,0)"
^XMB(3.9,60,2,534,0)="IMR PAT CLIN HIST"
^XMB(3.9,60,2,535,0)="""KRN"",19,12786,-1)"
^XMB(3.9,60,2,536,0)="1^28"
^XMB(3.9,60,2,537,0)="""KRN"",19,12786,0)"
^XMB(3.9,60,2,538,0)="IMR PATIENT INQUIRY"
^XMB(3.9,60,2,539,0)="""KRN"",19,12787,-1)"
^XMB(3.9,60,2,540,0)="1^29"
^XMB(3.9,60,2,541,0)="""KRN"",19,12787,0)"
^XMB(3.9,60,2,542,0)="IMR PATIENT LIST"
^XMB(3.9,60,2,543,0)="""KRN"",19,12788,-1)"
^XMB(3.9,60,2,544,0)="1^30"
^XMB(3.9,60,2,545,0)="""KRN"",19,12788,0)"
^XMB(3.9,60,2,546,0)="IMR PHARM DRUG ENTER/EDIT"
^XMB(3.9,60,2,547,0)="""KRN"",19,12789,-1)"
^XMB(3.9,60,2,548,0)="1^31"
^XMB(3.9,60,2,549,0)="""KRN"",19,12789,0)"
^XMB(3.9,60,2,550,0)="IMR PHARM RX MENU"
^XMB(3.9,60,2,551,0)="""KRN"",19,12790,-1)"
^XMB(3.9,60,2,552,0)="1^32"
^XMB(3.9,60,2,553,0)="""KRN"",19,12790,0)"
^XMB(3.9,60,2,554,0)="IMR PHARM UTILIZATION LIST"
^XMB(3.9,60,2,555,0)="""KRN"",19,12791,-1)"
^XMB(3.9,60,2,556,0)="1^33"
^XMB(3.9,60,2,557,0)="""KRN"",19,12791,0)"
^XMB(3.9,60,2,558,0)="IMR PNEUMOCOCCAL RPT"
^XMB(3.9,60,2,559,0)="""KRN"",19,12792,-1)"
^XMB(3.9,60,2,560,0)="1^34"
^XMB(3.9,60,2,561,0)="""KRN"",19,12792,0)"
^XMB(3.9,60,2,562,0)="IMR PRINT CDC FORM"
^XMB(3.9,60,2,563,0)="""KRN"",19,12793,-1)"
^XMB(3.9,60,2,564,0)="1^35"
^XMB(3.9,60,2,565,0)="""KRN"",19,12793,0)"
^XMB(3.9,60,2,566,0)="IMR PRINT OPTS"
^XMB(3.9,60,2,567,0)="""KRN"",19,12794,-1)"
^XMB(3.9,60,2,568,0)="1^36"
^XMB(3.9,60,2,569,0)="""KRN"",19,12794,0)"
^XMB(3.9,60,2,570,0)="IMR QUE DATA COLLECT"
^XMB(3.9,60,2,571,0)="""KRN"",19,12795,-1)"
^XMB(3.9,60,2,572,0)="1^37"
^XMB(3.9,60,2,573,0)="""KRN"",19,12795,0)"
^XMB(3.9,60,2,574,0)="IMR QUEUED INPAT LIST"
^XMB(3.9,60,2,575,0)="""KRN"",19,12796,-1)"
^XMB(3.9,60,2,576,0)="1^38"
^XMB(3.9,60,2,577,0)="""KRN"",19,12796,0)"
^XMB(3.9,60,2,578,0)="IMR RADIOLOGY UTILIZATION"
^XMB(3.9,60,2,579,0)="""KRN"",19,12797,-1)"
^XMB(3.9,60,2,580,0)="1^39"
^XMB(3.9,60,2,581,0)="""KRN"",19,12797,0)"
^XMB(3.9,60,2,582,0)="IMR REGISTRY DATA"
^XMB(3.9,60,2,583,0)="""KRN"",19,12798,-1)"
^XMB(3.9,60,2,584,0)="1^40"
^XMB(3.9,60,2,585,0)="""KRN"",19,12798,0)"
^XMB(3.9,60,2,586,0)="IMR SEARCH TEMPLATE"
^XMB(3.9,60,2,587,0)="""KRN"",19,12799,-1)"
^XMB(3.9,60,2,588,0)="1^41"
^XMB(3.9,60,2,589,0)="""KRN"",19,12799,0)"
^XMB(3.9,60,2,590,0)="IMR SHOW CODE"
^XMB(3.9,60,2,591,0)="""KRN"",19,12800,-1)"
^XMB(3.9,60,2,592,0)="1^42"
^XMB(3.9,60,2,593,0)="""KRN"",19,12800,0)"
^XMB(3.9,60,2,594,0)="IMR SPECFC IP/OP ACTIVITY"
^XMB(3.9,60,2,595,0)="""KRN"",19,12801,-1)"
^XMB(3.9,60,2,596,0)="1^43"
^XMB(3.9,60,2,597,0)="""KRN"",19,12801,0)"
^XMB(3.9,60,2,598,0)="IMR SPECFC IP/OP ACTIVITY LIST"
^XMB(3.9,60,2,599,0)="""KRN"",19,12802,-1)"
^XMB(3.9,60,2,600,0)="1^44"
^XMB(3.9,60,2,601,0)="""KRN"",19,12802,0)"
^XMB(3.9,60,2,602,0)="IMR SPECFC LAB LIST"
^XMB(3.9,60,2,603,0)="""KRN"",19,12803,-1)"
^XMB(3.9,60,2,604,0)="1^45"
^XMB(3.9,60,2,605,0)="""KRN"",19,12803,0)"
^XMB(3.9,60,2,606,0)="IMR SPECFC RX LIST"
^XMB(3.9,60,2,607,0)="""KRN"",19,12804,-1)"
^XMB(3.9,60,2,608,0)="1^46"
^XMB(3.9,60,2,609,0)="""KRN"",19,12804,0)"
^XMB(3.9,60,2,610,0)="IMR SPF ENTER/EDIT"
^XMB(3.9,60,2,611,0)="""KRN"",19,12805,-1)"
^XMB(3.9,60,2,612,0)="1^47"
^XMB(3.9,60,2,613,0)="""KRN"",19,12805,0)"
^XMB(3.9,60,2,614,0)="IMR TEMPLATE DELETE"
^XMB(3.9,60,2,615,0)="""KRN"",19,12806,-1)"
^XMB(3.9,60,2,616,0)="1^48"
^XMB(3.9,60,2,617,0)="""KRN"",19,12806,0)"
^XMB(3.9,60,2,618,0)="IMR TEMPLATE LIST"
^XMB(3.9,60,2,619,0)="""KRN"",19,12807,-1)"
^XMB(3.9,60,2,620,0)="1^49"
^XMB(3.9,60,2,621,0)="""KRN"",19,12807,0)"
^XMB(3.9,60,2,622,0)="IMR VIRAL CD4 RANGE"
^XMB(3.9,60,2,623,0)="""KRN"",19,12808,-1)"
^XMB(3.9,60,2,624,0)="1^50"
^XMB(3.9,60,2,625,0)="""KRN"",19,12808,0)"
^XMB(3.9,60,2,626,0)="IMR VIRAL CD4TEST LIST"
^XMB(3.9,60,2,627,0)="""KRN"",19,12809,-1)"
^XMB(3.9,60,2,628,0)="1^51"
^XMB(3.9,60,2,629,0)="""KRN"",19,12809,0)"
^XMB(3.9,60,2,630,0)="IMR VIRAL TESTS LIST"
^XMB(3.9,60,2,631,0)="""KRN"",19,12810,-1)"
^XMB(3.9,60,2,632,0)="1^52"
^XMB(3.9,60,2,633,0)="""KRN"",19,12810,0)"
^XMB(3.9,60,2,634,0)="IMR VIRAL TESTS MENU"
^XMB(3.9,60,2,635,0)="""KRN"",19,12811,-1)"
^XMB(3.9,60,2,636,0)="1^53"
^XMB(3.9,60,2,637,0)="""KRN"",19,12811,0)"
^XMB(3.9,60,2,638,0)="IMR OUTPATIENT SURVEY"
^XMB(3.9,60,2,639,0)="""KRN"",19.1,492,-1)"
^XMB(3.9,60,2,640,0)="1^1"
^XMB(3.9,60,2,641,0)="""KRN"",19.1,492,0)"
^XMB(3.9,60,2,642,0)="IMRA"
^XMB(3.9,60,2,643,0)="""KRN"",19.1,493,-1)"
^XMB(3.9,60,2,644,0)="1^2"
^XMB(3.9,60,2,645,0)="""KRN"",19.1,493,0)"
^XMB(3.9,60,2,646,0)="IMRMGR"
^XMB(3.9,60,2,647,0)="""MBREQ"")"
^XMB(3.9,60,2,648,0)="0"
^XMB(3.9,60,2,649,0)="""ORD"",3,19.1)"
^XMB(3.9,60,2,650,0)="19.1;3;1;;KEY^XPDTA1;;;KEYF2^XPDIA1;;KEYDEL^XPDIA1"
^XMB(3.9,60,2,651,0)="""ORD"",3,19.1,0)"
^XMB(3.9,60,2,652,0)="SECURITY KEY"
^XMB(3.9,60,2,653,0)="""ORD"",5,.4)"
^XMB(3.9,60,2,654,0)=".4;5;;;EDEOUT^DIFROMSO(.4,DA,"""",XPDA);FPRE^DIFROMSI(.4,"""",XPDA);EPRE^DIFROMSI(.4,DA,$E(""N"",$G(XPDNEW)),XPDA,"""",OLDA);;EPOST^DIFROMSI(.4,DA,"""",XPDA);DEL^DIFROMSK(.4,"""",%)"
^XMB(3.9,60,2,655,0)="""ORD"",5,.4,0)"
^XMB(3.9,60,2,656,0)="PRINT TEMPLATE"
^XMB(3.9,60,2,657,0)="""ORD"",7,.402)"
^XMB(3.9,60,2,658,0)=".402;7;;;EDEOUT^DIFROMSO(.402,DA,"""",XPDA);FPRE^DIFROMSI(.402,"""",XPDA);EPRE^DIFROMSI(.402,DA,$E(""N"",$G(XPDNEW)),XPDA,"""",OLDA);;EPOST^DIFROMSI(.402,DA,"""",XPDA);DEL^DIFROMSK(.402,"""",%)"
^XMB(3.9,60,2,659,0)="""ORD"",7,.402,0)"
^XMB(3.9,60,2,660,0)="INPUT TEMPLATE"
^XMB(3.9,60,2,661,0)="""ORD"",18,19)"
^XMB(3.9,60,2,662,0)="19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA"
^XMB(3.9,60,2,663,0)="""ORD"",18,19,0)"
^XMB(3.9,60,2,664,0)="OPTION"
^XMB(3.9,60,2,665,0)="""PKG"",474,-1)"
^XMB(3.9,60,2,666,0)="1^1"
^XMB(3.9,60,2,667,0)="""PKG"",474,0)"
^XMB(3.9,60,2,668,0)="ICR - IMMUNOLOGY CASE REGISTRY^IMR^REGISTRY FOR HIV PATIENTS"
^XMB(3.9,60,2,669,0)="""PKG"",474,20,0)"
^XMB(3.9,60,2,670,0)="^9.402P^1^1"
^XMB(3.9,60,2,671,0)="""PKG"",474,20,1,0)"
^XMB(3.9,60,2,672,0)="2^^IMRXDRPT"
^XMB(3.9,60,2,673,0)="""PKG"",474,20,1,1)"
^XMB(3.9,60,2,674,0)=" "
^XMB(3.9,60,2,675,0)="""PKG"",474,20,""B"",2,1)"
^XMB(3.9,60,2,676,0)=""
^XMB(3.9,60,2,677,0)="""PKG"",474,22,0)"
^XMB(3.9,60,2,678,0)="^9.49I^1^1"
^XMB(3.9,60,2,679,0)="""PKG"",474,22,1,0)"
^XMB(3.9,60,2,680,0)="2.1^2980209^3040330^66481"
^XMB(3.9,60,2,681,0)="""PKG"",474,22,1,""PAH"",1,0)"
^XMB(3.9,60,2,682,0)="21^3050720"
^XMB(3.9,60,2,683,0)="""PKG"",474,22,1,""PAH"",1,1,0)"
^XMB(3.9,60,2,684,0)="^^3^3^3050720"
^XMB(3.9,60,2,685,0)="""PKG"",474,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,60,2,686,0)="This patch completely deletes the Immunology Case Registry v2.1 package, "
^XMB(3.9,60,2,687,0)="""PKG"",474,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,60,2,688,0)="which was replaced by the new version of the registry added to the "
^XMB(3.9,60,2,689,0)="""PKG"",474,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,60,2,690,0)="Clinical Case Registries package."
^XMB(3.9,60,2,691,0)="""PRE"")"
^XMB(3.9,60,2,692,0)="IMRP021"
^XMB(3.9,60,2,693,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,60,2,694,0)="Y"
^XMB(3.9,60,2,695,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,60,2,696,0)="^D REP^XPDH"
^XMB(3.9,60,2,697,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,60,2,698,0)="Shall I write over your |FLAG| File"
^XMB(3.9,60,2,699,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,60,2,700,0)="YES"
^XMB(3.9,60,2,701,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,60,2,702,0)="D XPF1^XPDIQ"
^XMB(3.9,60,2,703,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,60,2,704,0)="Y"
^XMB(3.9,60,2,705,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,60,2,706,0)="^D DTA^XPDH"
^XMB(3.9,60,2,707,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,60,2,708,0)="Want my data |FLAG| yours"
^XMB(3.9,60,2,709,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,60,2,710,0)="YES"
^XMB(3.9,60,2,711,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,60,2,712,0)="D XPF2^XPDIQ"
^XMB(3.9,60,2,713,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,60,2,714,0)="YO"
^XMB(3.9,60,2,715,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,60,2,716,0)="^D INHIBIT^XPDH"
^XMB(3.9,60,2,717,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,60,2,718,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,60,2,719,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,60,2,720,0)="YES"
^XMB(3.9,60,2,721,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,60,2,722,0)="D XPI1^XPDIQ"
^XMB(3.9,60,2,723,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,60,2,724,0)="PO^VA(200,:EM"
^XMB(3.9,60,2,725,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,60,2,726,0)="^D MG^XPDH"
^XMB(3.9,60,2,727,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,60,2,728,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,60,2,729,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,60,2,730,0)=""
^XMB(3.9,60,2,731,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,60,2,732,0)="D XPM1^XPDIQ"
^XMB(3.9,60,2,733,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,60,2,734,0)="Y"
^XMB(3.9,60,2,735,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,60,2,736,0)="^D MENU^XPDH"
^XMB(3.9,60,2,737,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,60,2,738,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,60,2,739,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,60,2,740,0)="YES"
^XMB(3.9,60,2,741,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,60,2,742,0)="D XPO1^XPDIQ"
^XMB(3.9,60,2,743,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,60,2,744,0)="Y"
^XMB(3.9,60,2,745,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,60,2,746,0)="^D OPT^XPDH"
^XMB(3.9,60,2,747,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,60,2,748,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,60,2,749,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,60,2,750,0)="YES"
^XMB(3.9,60,2,751,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,60,2,752,0)="D XPZ1^XPDIQ"
^XMB(3.9,60,2,753,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,60,2,754,0)="Y"
^XMB(3.9,60,2,755,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,60,2,756,0)="^D RTN^XPDH"
^XMB(3.9,60,2,757,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,60,2,758,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,60,2,759,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,60,2,760,0)="NO"
^XMB(3.9,60,2,761,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,60,2,762,0)="D XPZ2^XPDIQ"
^XMB(3.9,60,2,763,0)="""RTN"")"
^XMB(3.9,60,2,764,0)="4"
^XMB(3.9,60,2,765,0)="""RTN"",""IMRP021"")"
^XMB(3.9,60,2,766,0)="0^^B6267019"
^XMB(3.9,60,2,767,0)="""RTN"",""IMRP021"",1,0)"
^XMB(3.9,60,2,768,0)="IMRP021 ;HCIOFO/SG - PATCH 21 INSTALLATION ; 1/4/05 9:41am"
^XMB(3.9,60,2,769,0)="""RTN"",""IMRP021"",2,0)"
^XMB(3.9,60,2,770,0)=" ;;2.1;IMMUNOLOGY CASE REGISTRY;**21**;Feb 09, 1998"
^XMB(3.9,60,2,771,0)="""RTN"",""IMRP021"",3,0)"
^XMB(3.9,60,2,772,0)=" ;"
^XMB(3.9,60,2,773,0)="""RTN"",""IMRP021"",4,0)"
^XMB(3.9,60,2,774,0)=" ;***** ENVIRONMENT CHECKS"
^XMB(3.9,60,2,775,0)="""RTN"",""IMRP021"",5,0)"
^XMB(3.9,60,2,776,0)="ENVCHK ;"
^XMB(3.9,60,2,777,0)="""RTN"",""IMRP021"",6,0)"
^XMB(3.9,60,2,778,0)=" ;;Post-install routine of this patch will COMPLETELY DELETE"
^XMB(3.9,60,2,779,0)="""RTN"",""IMRP021"",7,0)"
^XMB(3.9,60,2,780,0)=" ;;the Immunology Case Registry v2.1 package from your account."
^XMB(3.9,60,2,781,0)="""RTN"",""IMRP021"",8,0)"
^XMB(3.9,60,2,782,0)=" ;;This package was replaced by the new version of the registry"
^XMB(3.9,60,2,783,0)="""RTN"",""IMRP021"",9,0)"
^XMB(3.9,60,2,784,0)=" ;;added to the Clinical Case Registries package."
^XMB(3.9,60,2,785,0)="""RTN"",""IMRP021"",10,0)"
^XMB(3.9,60,2,786,0)=" ;"
^XMB(3.9,60,2,787,0)="""RTN"",""IMRP021"",11,0)"
^XMB(3.9,60,2,788,0)=" N DA,DIR,DIRUT,DTOUT,DUOUT,X,Y"
^XMB(3.9,60,2,789,0)="""RTN"",""IMRP021"",12,0)"
^XMB(3.9,60,2,790,0)=" I $G(DUZ)'>0  D  S XPDABORT=2  Q"
^XMB(3.9,60,2,791,0)="""RTN"",""IMRP021"",13,0)"
^XMB(3.9,60,2,792,0)=" . W !!,""The DUZ variable must be defined!"",!"
^XMB(3.9,60,2,793,0)="""RTN"",""IMRP021"",14,0)"
^XMB(3.9,60,2,794,0)=" Q:'$G(XPDENV)"
^XMB(3.9,60,2,795,0)="""RTN"",""IMRP021"",15,0)"
^XMB(3.9,60,2,796,0)=" ;"
^XMB(3.9,60,2,797,0)="""RTN"",""IMRP021"",16,0)"
^XMB(3.9,60,2,798,0)=" ;--- Request a confirmation from the user"
^XMB(3.9,60,2,799,0)="""RTN"",""IMRP021"",17,0)"
^XMB(3.9,60,2,800,0)=" K DIR  S DIR(0)=""Y"""
^XMB(3.9,60,2,801,0)="""RTN"",""IMRP021"",18,0)"
^XMB(3.9,60,2,802,0)=" F X=1:1  S Y=$P($T(ENVCHK+X),"";;"",2,999)  Q:Y=""""  S DIR(""A"",X)=Y"
^XMB(3.9,60,2,803,0)="""RTN"",""IMRP021"",19,0)"
^XMB(3.9,60,2,804,0)=" S DIR(""A"")=""Do you really want to delete the IMR v2.1"""
^XMB(3.9,60,2,805,0)="""RTN"",""IMRP021"",20,0)"
^XMB(3.9,60,2,806,0)=" S DIR(""B"")=""NO"""
^XMB(3.9,60,2,807,0)="""RTN"",""IMRP021"",21,0)"
^XMB(3.9,60,2,808,0)=" D ^DIR  I '$G(Y)!$D(DIRUT)  D  Q"
^XMB(3.9,60,2,809,0)="""RTN"",""IMRP021"",22,0)"
^XMB(3.9,60,2,810,0)=" . S XPDQUIT=1  ; Abort and remove the transport global"
^XMB(3.9,60,2,811,0)="""RTN"",""IMRP021"",23,0)"
^XMB(3.9,60,2,812,0)=" ;"
^XMB(3.9,60,2,813,0)="""RTN"",""IMRP021"",24,0)"
^XMB(3.9,60,2,814,0)=" ;--- Do not ask unnecessary questions"
^XMB(3.9,60,2,815,0)="""RTN"",""IMRP021"",25,0)"
^XMB(3.9,60,2,816,0)=" S XPDDIQ(""XPZ1"")=0"
^XMB(3.9,60,2,817,0)="""RTN"",""IMRP021"",26,0)"
^XMB(3.9,60,2,818,0)=" S XPDDIQ(""XPZ2"")=0"
^XMB(3.9,60,2,819,0)="""RTN"",""IMRP021"",27,0)"
^XMB(3.9,60,2,820,0)=" Q"
^XMB(3.9,60,2,821,0)="""RTN"",""IMRP021"",28,0)"
^XMB(3.9,60,2,822,0)=" ;"
^XMB(3.9,60,2,823,0)="""RTN"",""IMRP021"",29,0)"
^XMB(3.9,60,2,824,0)=" ;***** DISPLAYS THE MESSAGE IF THE INSTALLATION ABORTS"
^XMB(3.9,60,2,825,0)="""RTN"",""IMRP021"",30,0)"
^XMB(3.9,60,2,826,0)="ABTMSG ;"
^XMB(3.9,60,2,827,0)="""RTN"",""IMRP021"",31,0)"
^XMB(3.9,60,2,828,0)=" ;;You can use the Install File Print [XPD PRINT INSTALL FILE]"
^XMB(3.9,60,2,829,0)="""RTN"",""IMRP021"",32,0)"
^XMB(3.9,60,2,830,0)=" ;;option to investigate the problem.  Please fix the error(s)"
^XMB(3.9,60,2,831,0)="""RTN"",""IMRP021"",33,0)"
^XMB(3.9,60,2,832,0)=" ;;and restart the patch installation using the Restart Install"
^XMB(3.9,60,2,833,0)="""RTN"",""IMRP021"",34,0)"
^XMB(3.9,60,2,834,0)=" ;;of Package(s) [XPD RESTART INSTALL] option."
^XMB(3.9,60,2,835,0)="""RTN"",""IMRP021"",35,0)"
^XMB(3.9,60,2,836,0)=" ;"
^XMB(3.9,60,2,837,0)="""RTN"",""IMRP021"",36,0)"
^XMB(3.9,60,2,838,0)=" N I,INFO,TMP"
^XMB(3.9,60,2,839,0)="""RTN"",""IMRP021"",37,0)"
^XMB(3.9,60,2,840,0)=" F I=1:1  S TMP=$T(ABTMSG+I)  Q:TMP'["";;""  S INFO(I)=$P(TMP,"";;"",2,99)"
^XMB(3.9,60,2,841,0)="""RTN"",""IMRP021"",38,0)"
^XMB(3.9,60,2,842,0)=" D MSG^IMRVPPU(""ERROR(S) DURING THE PATCH INSTALLATION!"",.INFO,1)"
^XMB(3.9,60,2,843,0)="""RTN"",""IMRP021"",39,0)"
^XMB(3.9,60,2,844,0)=" Q"
^XMB(3.9,60,2,845,0)="""RTN"",""IMRP021"",40,0)"
^XMB(3.9,60,2,846,0)=" ;"
^XMB(3.9,60,2,847,0)="""RTN"",""IMRP021"",41,0)"
^XMB(3.9,60,2,848,0)=" ;***** ERROR PROCESSING"
^XMB(3.9,60,2,849,0)="""RTN"",""IMRP021"",42,0)"
^XMB(3.9,60,2,850,0)="ERROR ;"
^XMB(3.9,60,2,851,0)="""RTN"",""IMRP021"",43,0)"
^XMB(3.9,60,2,852,0)=" N XQADATA,XQAID,XQAMSG,XQAROU"
^XMB(3.9,60,2,853,0)="""RTN"",""IMRP021"",44,0)"
^XMB(3.9,60,2,854,0)=" S XPDABORT=2"
^XMB(3.9,60,2,855,0)="""RTN"",""IMRP021"",45,0)"
^XMB(3.9,60,2,856,0)=" I $D(ZTQUEUED)  D  D SETUP^XQALERT"
^XMB(3.9,60,2,857,0)="""RTN"",""IMRP021"",46,0)"
^XMB(3.9,60,2,858,0)=" . S XQAMSG=""Error during the installation of ""_XPDNM,XQA(+DUZ)="""""
^XMB(3.9,60,2,859,0)="""RTN"",""IMRP021"",47,0)"
^XMB(3.9,60,2,860,0)=" D ABTMSG"
^XMB(3.9,60,2,861,0)="""RTN"",""IMRP021"",48,0)"
^XMB(3.9,60,2,862,0)=" Q"
^XMB(3.9,60,2,863,0)="""RTN"",""IMRP021"",49,0)"
^XMB(3.9,60,2,864,0)=" ;"
^XMB(3.9,60,2,865,0)="""RTN"",""IMRP021"",50,0)"
^XMB(3.9,60,2,866,0)=" ;***** POST-INSTALLATION ENTRY POINT"
^XMB(3.9,60,2,867,0)="""RTN"",""IMRP021"",51,0)"
^XMB(3.9,60,2,868,0)="POS ;"
^XMB(3.9,60,2,869,0)="""RTN"",""IMRP021"",52,0)"
^XMB(3.9,60,2,870,0)=" N DEL,IMRVPP,RC,X"
^XMB(3.9,60,2,871,0)="""RTN"",""IMRP021"",53,0)"
^XMB(3.9,60,2,872,0)=" S RC=0  D INIT^IMRVPP()"
^XMB(3.9,60,2,873,0)="""RTN"",""IMRP021"",54,0)"
^XMB(3.9,60,2,874,0)=" ;"
^XMB(3.9,60,2,875,0)="""RTN"",""IMRP021"",55,0)"
^XMB(3.9,60,2,876,0)=" ;--- Search for package data"
^XMB(3.9,60,2,877,0)="""RTN"",""IMRP021"",56,0)"
^XMB(3.9,60,2,878,0)=" S RC=$$ADDNSF^IMRVPP(""IMR"",158,159.999)  G:RC<0 ERROR"
^XMB(3.9,60,2,879,0)="""RTN"",""IMRP021"",57,0)"
^XMB(3.9,60,2,880,0)=" S RC=$$SELVIFS^IMRVPP()                  G:RC<0 ERROR"
^XMB(3.9,60,2,881,0)="""RTN"",""IMRP021"",58,0)"
^XMB(3.9,60,2,882,0)=" S RC=$$SELRTNS^IMRVPP()                  G:RC<0 ERROR"
^XMB(3.9,60,2,883,0)="""RTN"",""IMRP021"",59,0)"
^XMB(3.9,60,2,884,0)=" ;"
^XMB(3.9,60,2,885,0)="""RTN"",""IMRP021"",60,0)"
^XMB(3.9,60,2,886,0)=" ;--- Delete package data"
^XMB(3.9,60,2,887,0)="""RTN"",""IMRP021"",61,0)"
^XMB(3.9,60,2,888,0)=" S RC=$$PURGE^IMRVPP()                    G:RC<0 ERROR"
^XMB(3.9,60,2,889,0)="""RTN"",""IMRP021"",62,0)"
^XMB(3.9,60,2,890,0)=" ;"
^XMB(3.9,60,2,891,0)="""RTN"",""IMRP021"",63,0)"
^XMB(3.9,60,2,892,0)=" ;--- Cleanup"
^XMB(3.9,60,2,893,0)="""RTN"",""IMRP021"",64,0)"
^XMB(3.9,60,2,894,0)=" D INIT^IMRVPP()  S DEL=^%ZOSF(""DEL"")"
^XMB(3.9,60,2,895,0)="""RTN"",""IMRP021"",65,0)"
^XMB(3.9,60,2,896,0)=" F X=""IMRVPP"",""IMRVPPE"",""IMRVPPU""  X DEL"
^XMB(3.9,60,2,897,0)="""RTN"",""IMRP021"",66,0)"
^XMB(3.9,60,2,898,0)=" Q"
^XMB(3.9,60,2,899,0)="""RTN"",""IMRVPP"")"
^XMB(3.9,60,2,900,0)="0^1^B44836103"
^XMB(3.9,60,2,901,0)="""RTN"",""IMRVPP"",1,0)"
^XMB(3.9,60,2,902,0)="IMRVPP ;HCIOFO/SG - VISTA PACKAGE PURGE ; 6/2/05 11:55am"
^XMB(3.9,60,2,903,0)="""RTN"",""IMRVPP"",2,0)"
^XMB(3.9,60,2,904,0)=" ;;2.1;IMMUNOLOGY CASE REGISTRY;**21**;Feb 09, 1998"
^XMB(3.9,60,2,905,0)="""RTN"",""IMRVPP"",3,0)"
^XMB(3.9,60,2,906,0)=" ;;"
^XMB(3.9,60,2,907,0)="""RTN"",""IMRVPP"",4,0)"
^XMB(3.9,60,2,908,0)=" ; LOCAL VARIABLE ------ DESCRIPTION"
^XMB(3.9,60,2,909,0)="""RTN"",""IMRVPP"",5,0)"
^XMB(3.9,60,2,910,0)=" ;"
^XMB(3.9,60,2,911,0)="""RTN"",""IMRVPP"",6,0)"
^XMB(3.9,60,2,912,0)=" ; IMRVPP(               PROCESS-WIDE LOCAL VARIABLE"
^XMB(3.9,60,2,913,0)="""RTN"",""IMRVPP"",7,0)"
^XMB(3.9,60,2,914,0)=" ;"
^XMB(3.9,60,2,915,0)="""RTN"",""IMRVPP"",8,0)"
^XMB(3.9,60,2,916,0)=" ;   ""DLG"",              List of dialog segments to delete"
^XMB(3.9,60,2,917,0)="""RTN"",""IMRVPP"",9,0)"
^XMB(3.9,60,2,918,0)=" ;     Seq#)             Segment"
^XMB(3.9,60,2,919,0)="""RTN"",""IMRVPP"",10,0)"
^XMB(3.9,60,2,920,0)=" ;                         ^01: Lowest number (integer part)"
^XMB(3.9,60,2,921,0)="""RTN"",""IMRVPP"",11,0)"
^XMB(3.9,60,2,922,0)=" ;                         ^02: Highest number + 1 (integer part)"
^XMB(3.9,60,2,923,0)="""RTN"",""IMRVPP"",12,0)"
^XMB(3.9,60,2,924,0)=" ;"
^XMB(3.9,60,2,925,0)="""RTN"",""IMRVPP"",13,0)"
^XMB(3.9,60,2,926,0)=" ;   ""NSE"",              List of excluded namespaces"
^XMB(3.9,60,2,927,0)="""RTN"",""IMRVPP"",14,0)"
^XMB(3.9,60,2,928,0)=" ;     NameSpace)        $L(NameSpace)"
^XMB(3.9,60,2,929,0)="""RTN"",""IMRVPP"",15,0)"
^XMB(3.9,60,2,930,0)=" ;"
^XMB(3.9,60,2,931,0)="""RTN"",""IMRVPP"",16,0)"
^XMB(3.9,60,2,932,0)=" ;   ""NSI"",              List of namespaces to be deleted"
^XMB(3.9,60,2,933,0)="""RTN"",""IMRVPP"",17,0)"
^XMB(3.9,60,2,934,0)=" ;     NameSpace)        $L(NameSpace)"
^XMB(3.9,60,2,935,0)="""RTN"",""IMRVPP"",18,0)"
^XMB(3.9,60,2,936,0)=" ;"
^XMB(3.9,60,2,937,0)="""RTN"",""IMRVPP"",19,0)"
^XMB(3.9,60,2,938,0)=" ;   ""PGLEN"")            Page length for output"
^XMB(3.9,60,2,939,0)="""RTN"",""IMRVPP"",20,0)"
^XMB(3.9,60,2,940,0)=" ;"
^XMB(3.9,60,2,941,0)="""RTN"",""IMRVPP"",21,0)"
^XMB(3.9,60,2,942,0)=" ;   ""SILENT"")           Do not display any messages"
^XMB(3.9,60,2,943,0)="""RTN"",""IMRVPP"",22,0)"
^XMB(3.9,60,2,944,0)=" ;                       if exists and non-zero"
^XMB(3.9,60,2,945,0)="""RTN"",""IMRVPP"",23,0)"
^XMB(3.9,60,2,946,0)=" ;"
^XMB(3.9,60,2,947,0)="""RTN"",""IMRVPP"",24,0)"
^XMB(3.9,60,2,948,0)=" ; TEMPORARY NODE ------ DESCRIPTION"
^XMB(3.9,60,2,949,0)="""RTN"",""IMRVPP"",25,0)"
^XMB(3.9,60,2,950,0)=" ;"
^XMB(3.9,60,2,951,0)="""RTN"",""IMRVPP"",26,0)"
^XMB(3.9,60,2,952,0)=" ; ^TMP(""IMRVPP-DELETE"",$J,"
^XMB(3.9,60,2,953,0)="""RTN"",""IMRVPP"",27,0)"
^XMB(3.9,60,2,954,0)=" ;"
^XMB(3.9,60,2,955,0)="""RTN"",""IMRVPP"",28,0)"
^XMB(3.9,60,2,956,0)=" ;   ""DD"",               Number of files to be deleted"
^XMB(3.9,60,2,957,0)="""RTN"",""IMRVPP"",29,0)"
^XMB(3.9,60,2,958,0)=" ;     FileNumber)       File name"
^XMB(3.9,60,2,959,0)="""RTN"",""IMRVPP"",30,0)"
^XMB(3.9,60,2,960,0)=" ;"
^XMB(3.9,60,2,961,0)="""RTN"",""IMRVPP"",31,0)"
^XMB(3.9,60,2,962,0)=" ;   ""RTN"",              Number of routines to be deleted"
^XMB(3.9,60,2,963,0)="""RTN"",""IMRVPP"",32,0)"
^XMB(3.9,60,2,964,0)=" ;     RtnName)          """""
^XMB(3.9,60,2,965,0)="""RTN"",""IMRVPP"",33,0)"
^XMB(3.9,60,2,966,0)=" ;"
^XMB(3.9,60,2,967,0)="""RTN"",""IMRVPP"",34,0)"
^XMB(3.9,60,2,968,0)=" ;   ""VIF"",              Lists of entries of various VistA files"
^XMB(3.9,60,2,969,0)="""RTN"",""IMRVPP"",35,0)"
^XMB(3.9,60,2,970,0)=" ;                       that should be deleted"
^XMB(3.9,60,2,971,0)="""RTN"",""IMRVPP"",36,0)"
^XMB(3.9,60,2,972,0)=" ;     FileNumber,       Descriptor"
^XMB(3.9,60,2,973,0)="""RTN"",""IMRVPP"",37,0)"
^XMB(3.9,60,2,974,0)=" ;                         ^01: reserved"
^XMB(3.9,60,2,975,0)="""RTN"",""IMRVPP"",38,0)"
^XMB(3.9,60,2,976,0)=" ;                         ^02: Field number of the record name"
^XMB(3.9,60,2,977,0)="""RTN"",""IMRVPP"",39,0)"
^XMB(3.9,60,2,978,0)=" ;                         ^03: File name"
^XMB(3.9,60,2,979,0)="""RTN"",""IMRVPP"",40,0)"
^XMB(3.9,60,2,980,0)=" ;                         ^04: Special processing (""D""-delete,"
^XMB(3.9,60,2,981,0)="""RTN"",""IMRVPP"",41,0)"
^XMB(3.9,60,2,982,0)=" ;                              ""P""-print, ""S""-select)"
^XMB(3.9,60,2,983,0)="""RTN"",""IMRVPP"",42,0)"
^XMB(3.9,60,2,984,0)=" ;       IEN)            Record name (usually value of the .01 field)"
^XMB(3.9,60,2,985,0)="""RTN"",""IMRVPP"",43,0)"
^XMB(3.9,60,2,986,0)=" ;     ""B"","
^XMB(3.9,60,2,987,0)="""RTN"",""IMRVPP"",44,0)"
^XMB(3.9,60,2,988,0)=" ;       Name,IEN) """""
^XMB(3.9,60,2,989,0)="""RTN"",""IMRVPP"",45,0)"
^XMB(3.9,60,2,990,0)=" ;     ""CNT"")            Number of records to be deleted"
^XMB(3.9,60,2,991,0)="""RTN"",""IMRVPP"",46,0)"
^XMB(3.9,60,2,992,0)=" ;     ""MNL"")            Maximum length of record name"
^XMB(3.9,60,2,993,0)="""RTN"",""IMRVPP"",47,0)"
^XMB(3.9,60,2,994,0)=" ;"
^XMB(3.9,60,2,995,0)="""RTN"",""IMRVPP"",48,0)"
^XMB(3.9,60,2,996,0)=" Q"
^XMB(3.9,60,2,997,0)="""RTN"",""IMRVPP"",49,0)"
^XMB(3.9,60,2,998,0)=" ;"
^XMB(3.9,60,2,999,0)="""RTN"",""IMRVPP"",50,0)"
^XMB(3.9,60,2,1000,0)=" ;***** ADDS THE NAMESPACE AND FILES TO THE LIST"
^XMB(3.9,60,2,1001,0)="""RTN"",""IMRVPP"",51,0)"
^XMB(3.9,60,2,1002,0)=" ;"
^XMB(3.9,60,2,1003,0)="""RTN"",""IMRVPP"",52,0)"
^XMB(3.9,60,2,1004,0)=" ; [NAMESP]       Namespace.  By default ($G(NAMESP)=""""), nothing"
^XMB(3.9,60,2,1005,0)="""RTN"",""IMRVPP"",53,0)"
^XMB(3.9,60,2,1006,0)=" ;                is added to the list of namespaces."
^XMB(3.9,60,2,1007,0)="""RTN"",""IMRVPP"",54,0)"
^XMB(3.9,60,2,1008,0)=" ;"
^XMB(3.9,60,2,1009,0)="""RTN"",""IMRVPP"",55,0)"
^XMB(3.9,60,2,1010,0)=" ; [FILELOW       Lowest and highest file numbers.  By default,"
^XMB(3.9,60,2,1011,0)="""RTN"",""IMRVPP"",56,0)"
^XMB(3.9,60,2,1012,0)=" ;  FILEHIGH]     nothing is added top the list of files."
^XMB(3.9,60,2,1013,0)="""RTN"",""IMRVPP"",57,0)"
^XMB(3.9,60,2,1014,0)=" ;"
^XMB(3.9,60,2,1015,0)="""RTN"",""IMRVPP"",58,0)"
^XMB(3.9,60,2,1016,0)=" ; Return Values:"
^XMB(3.9,60,2,1017,0)="""RTN"",""IMRVPP"",59,0)"
^XMB(3.9,60,2,1018,0)=" ;       <0  Error code (see MSGLIST^IMRVPPE)"
^XMB(3.9,60,2,1019,0)="""RTN"",""IMRVPP"",60,0)"
^XMB(3.9,60,2,1020,0)=" ;        0  Ok"
^XMB(3.9,60,2,1021,0)="""RTN"",""IMRVPP"",61,0)"
^XMB(3.9,60,2,1022,0)=" ;"
^XMB(3.9,60,2,1023,0)="""RTN"",""IMRVPP"",62,0)"
^XMB(3.9,60,2,1024,0)="ADDNSF(NAMESP,FILELOW,FILEHIGH) ;"
^XMB(3.9,60,2,1025,0)="""RTN"",""IMRVPP"",63,0)"
^XMB(3.9,60,2,1026,0)=" N CNT,FILE,RC,ROOT,TMP,IMRMSG"
^XMB(3.9,60,2,1027,0)="""RTN"",""IMRVPP"",64,0)"
^XMB(3.9,60,2,1028,0)=" S RC=0"
^XMB(3.9,60,2,1029,0)="""RTN"",""IMRVPP"",65,0)"
^XMB(3.9,60,2,1030,0)=" ;--- Namespace"
^XMB(3.9,60,2,1031,0)="""RTN"",""IMRVPP"",66,0)"
^XMB(3.9,60,2,1032,0)=" I $G(NAMESP)'=""""  D  Q:RC<0 RC"
^XMB(3.9,60,2,1033,0)="""RTN"",""IMRVPP"",67,0)"
^XMB(3.9,60,2,1034,0)=" . I $L(NAMESP)>4  S RC=$$ERROR^IMRVPPE(-5,,NAMESP)  Q"
^XMB(3.9,60,2,1035,0)="""RTN"",""IMRVPP"",68,0)"
^XMB(3.9,60,2,1036,0)=" . S IMRVPP(""NSI"",NAMESP)=$L(NAMESP)"
^XMB(3.9,60,2,1037,0)="""RTN"",""IMRVPP"",69,0)"
^XMB(3.9,60,2,1038,0)=" ;--- Files"
^XMB(3.9,60,2,1039,0)="""RTN"",""IMRVPP"",70,0)"
^XMB(3.9,60,2,1040,0)=" I $G(FILELOW)>0,$G(FILEHIGH)>0  D  Q:RC<0 RC"
^XMB(3.9,60,2,1041,0)="""RTN"",""IMRVPP"",71,0)"
^XMB(3.9,60,2,1042,0)=" . S ROOT=$$ROOT^DILFD(1,,1),CNT=0"
^XMB(3.9,60,2,1043,0)="""RTN"",""IMRVPP"",72,0)"
^XMB(3.9,60,2,1044,0)=" . S FILE=$O(@ROOT@(FILELOW),-1)"
^XMB(3.9,60,2,1045,0)="""RTN"",""IMRVPP"",73,0)"
^XMB(3.9,60,2,1046,0)=" . F  S FILE=$O(@ROOT@(FILE))  Q:(FILE'>0)!(FILE>FILEHIGH)  D  Q:RC<0"
^XMB(3.9,60,2,1047,0)="""RTN"",""IMRVPP"",74,0)"
^XMB(3.9,60,2,1048,0)=" . . S TMP=$$GET1^DID(FILE,,,""NAME"",,""IMRMSG"")"
^XMB(3.9,60,2,1049,0)="""RTN"",""IMRVPP"",75,0)"
^XMB(3.9,60,2,1050,0)=" . . I $G(DIERR)  S RC=$$DBSERR^IMRVPPE(""IMRMSG"",-9,1,FILE)  Q"
^XMB(3.9,60,2,1051,0)="""RTN"",""IMRVPP"",76,0)"
^XMB(3.9,60,2,1052,0)=" . . S ^TMP(""IMRVPP-DELETE"",$J,""DD"",FILE)=TMP,CNT=CNT+1"
^XMB(3.9,60,2,1053,0)="""RTN"",""IMRVPP"",77,0)"
^XMB(3.9,60,2,1054,0)=" . S ^(""DD"")=$G(^TMP(""IMRVPP-DELETE"",$J,""DD""))+CNT"
^XMB(3.9,60,2,1055,0)="""RTN"",""IMRVPP"",78,0)"
^XMB(3.9,60,2,1056,0)=" . ;--- Segment of dialogs"
^XMB(3.9,60,2,1057,0)="""RTN"",""IMRVPP"",79,0)"
^XMB(3.9,60,2,1058,0)=" . S CNT=$O(IMRVPP(""DLG"",""""),-1)+1"
^XMB(3.9,60,2,1059,0)="""RTN"",""IMRVPP"",80,0)"
^XMB(3.9,60,2,1060,0)=" . S IMRVPP(""DLG"",CNT)=(FILELOW\1*10000)_U_((FILEHIGH\1+1)*10000)"
^XMB(3.9,60,2,1061,0)="""RTN"",""IMRVPP"",81,0)"
^XMB(3.9,60,2,1062,0)=" ;---"
^XMB(3.9,60,2,1063,0)="""RTN"",""IMRVPP"",82,0)"
^XMB(3.9,60,2,1064,0)=" Q $S(RC<0:RC,1:0)"
^XMB(3.9,60,2,1065,0)="""RTN"",""IMRVPP"",83,0)"
^XMB(3.9,60,2,1066,0)=" ;"
^XMB(3.9,60,2,1067,0)="""RTN"",""IMRVPP"",84,0)"
^XMB(3.9,60,2,1068,0)=" ;***** DELETES DATA DICTIONARIES AND DATA"
^XMB(3.9,60,2,1069,0)="""RTN"",""IMRVPP"",85,0)"
^XMB(3.9,60,2,1070,0)="DELDDS() ;"
^XMB(3.9,60,2,1071,0)="""RTN"",""IMRVPP"",86,0)"
^XMB(3.9,60,2,1072,0)=" N DIU,FILE,NODE,RC"
^XMB(3.9,60,2,1073,0)="""RTN"",""IMRVPP"",87,0)"
^XMB(3.9,60,2,1074,0)=" S RC=0,NODE=$NA(^TMP(""IMRVPP-DELETE"",$J,""DD""))"
^XMB(3.9,60,2,1075,0)="""RTN"",""IMRVPP"",88,0)"
^XMB(3.9,60,2,1076,0)=" Q:$D(@NODE)<10 0"
^XMB(3.9,60,2,1077,0)="""RTN"",""IMRVPP"",89,0)"
^XMB(3.9,60,2,1078,0)=" D MSG^IMRVPPU(""The following files have been deleted:"",,1)"
^XMB(3.9,60,2,1079,0)="""RTN"",""IMRVPP"",90,0)"
^XMB(3.9,60,2,1080,0)=" ;---"
^XMB(3.9,60,2,1081,0)="""RTN"",""IMRVPP"",91,0)"
^XMB(3.9,60,2,1082,0)=" D MSG^IMRVPPU("" "")  S FILE=0"
^XMB(3.9,60,2,1083,0)="""RTN"",""IMRVPP"",92,0)"
^XMB(3.9,60,2,1084,0)=" F  S FILE=$O(@NODE@(FILE))  Q:FILE'>0  D  Q:RC"
^XMB(3.9,60,2,1085,0)="""RTN"",""IMRVPP"",93,0)"
^XMB(3.9,60,2,1086,0)=" . S DIU=FILE,DIU(0)=""DT""  D EN^DIU2"
^XMB(3.9,60,2,1087,0)="""RTN"",""IMRVPP"",94,0)"
^XMB(3.9,60,2,1088,0)=" . D MSG^IMRVPPU($P(@NODE@(FILE),U)_"" (#""_FILE_"")"")"
^XMB(3.9,60,2,1089,0)="""RTN"",""IMRVPP"",95,0)"
^XMB(3.9,60,2,1090,0)=" ;---"
^XMB(3.9,60,2,1091,0)="""RTN"",""IMRVPP"",96,0)"
^XMB(3.9,60,2,1092,0)=" Q RC"
^XMB(3.9,60,2,1093,0)="""RTN"",""IMRVPP"",97,0)"
^XMB(3.9,60,2,1094,0)=" ;"
^XMB(3.9,60,2,1095,0)="""RTN"",""IMRVPP"",98,0)"
^XMB(3.9,60,2,1096,0)=" ;***** DELETES ROUTINES"
^XMB(3.9,60,2,1097,0)="""RTN"",""IMRVPP"",99,0)"
^XMB(3.9,60,2,1098,0)="DELRTNS(EXCLRTN) ;"
^XMB(3.9,60,2,1099,0)="""RTN"",""IMRVPP"",100,0)"
^XMB(3.9,60,2,1100,0)=" N CBUF,DEL,EXCL,LEX,NAME,NODE,RC,X,ZZSGBUF"
^XMB(3.9,60,2,1101,0)="""RTN"",""IMRVPP"",101,0)"
^XMB(3.9,60,2,1102,0)=" S RC=0,NODE=$NA(^TMP(""IMRVPP-DELETE"",$J,""RTN""))"
^XMB(3.9,60,2,1103,0)="""RTN"",""IMRVPP"",102,0)"
^XMB(3.9,60,2,1104,0)=" Q:$D(@NODE)<10 0"
^XMB(3.9,60,2,1105,0)="""RTN"",""IMRVPP"",103,0)"
^XMB(3.9,60,2,1106,0)=" D MSG^IMRVPPU(""The following routines have been deleted:"",,1)"
^XMB(3.9,60,2,1107,0)="""RTN"",""IMRVPP"",104,0)"
^XMB(3.9,60,2,1108,0)=" S DEL=^%ZOSF(""DEL""),EXCL=""IMRVPP"",LEX=$L(EXCL)"
^XMB(3.9,60,2,1109,0)="""RTN"",""IMRVPP"",105,0)"
^XMB(3.9,60,2,1110,0)=" ;---"
^XMB(3.9,60,2,1111,0)="""RTN"",""IMRVPP"",106,0)"
^XMB(3.9,60,2,1112,0)=" D PRINTCL^IMRVPPU(.CBUF,8,1)"
^XMB(3.9,60,2,1113,0)="""RTN"",""IMRVPP"",107,0)"
^XMB(3.9,60,2,1114,0)=" S NAME="""""
^XMB(3.9,60,2,1115,0)="""RTN"",""IMRVPP"",108,0)"
^XMB(3.9,60,2,1116,0)=" F  S NAME=$O(@NODE@(NAME))  Q:NAME=""""  D"
^XMB(3.9,60,2,1117,0)="""RTN"",""IMRVPP"",109,0)"
^XMB(3.9,60,2,1118,0)=" . Q:($E(NAME,1,LEX)=EXCL)!(NAME=$G(EXCLRTN))"
^XMB(3.9,60,2,1119,0)="""RTN"",""IMRVPP"",110,0)"
^XMB(3.9,60,2,1120,0)=" . S X=NAME  X DEL"
^XMB(3.9,60,2,1121,0)="""RTN"",""IMRVPP"",111,0)"
^XMB(3.9,60,2,1122,0)=" . D PRINTCL^IMRVPPU(.CBUF,NAME)"
^XMB(3.9,60,2,1123,0)="""RTN"",""IMRVPP"",112,0)"
^XMB(3.9,60,2,1124,0)=" D PRINTCL^IMRVPPU(.CBUF,,2)"
^XMB(3.9,60,2,1125,0)="""RTN"",""IMRVPP"",113,0)"
^XMB(3.9,60,2,1126,0)=" ;---"
^XMB(3.9,60,2,1127,0)="""RTN"",""IMRVPP"",114,0)"
^XMB(3.9,60,2,1128,0)=" Q RC"
^XMB(3.9,60,2,1129,0)="""RTN"",""IMRVPP"",115,0)"
^XMB(3.9,60,2,1130,0)=" ;"
^XMB(3.9,60,2,1131,0)="""RTN"",""IMRVPP"",116,0)"
^XMB(3.9,60,2,1132,0)=" ;***** DELETES RECORDS FROM INFRASTRUCTURE FILES"
^XMB(3.9,60,2,1133,0)="""RTN"",""IMRVPP"",117,0)"
^XMB(3.9,60,2,1134,0)="DELVIFS() ;"
^XMB(3.9,60,2,1135,0)="""RTN"",""IMRVPP"",118,0)"
^XMB(3.9,60,2,1136,0)=" N CBUF,DA,DIK,FILE,IEN,NAME,RC,TMP,VIF"
^XMB(3.9,60,2,1137,0)="""RTN"",""IMRVPP"",119,0)"
^XMB(3.9,60,2,1138,0)=" S RC=0,VIF=$NA(^TMP(""IMRVPP-DELETE"",$J,""VIF""))"
^XMB(3.9,60,2,1139,0)="""RTN"",""IMRVPP"",120,0)"
^XMB(3.9,60,2,1140,0)=" ;---"
^XMB(3.9,60,2,1141,0)="""RTN"",""IMRVPP"",121,0)"
^XMB(3.9,60,2,1142,0)=" S FILE=0"
^XMB(3.9,60,2,1143,0)="""RTN"",""IMRVPP"",122,0)"
^XMB(3.9,60,2,1144,0)=" F  S FILE=$O(@VIF@(FILE))  Q:FILE'>0  D"
^XMB(3.9,60,2,1145,0)="""RTN"",""IMRVPP"",123,0)"
^XMB(3.9,60,2,1146,0)=" . Q:$G(@VIF@(FILE,""CNT""))'>0  ; Empty list"
^XMB(3.9,60,2,1147,0)="""RTN"",""IMRVPP"",124,0)"
^XMB(3.9,60,2,1148,0)=" . S TMP=@VIF@(FILE),NAME=$P(TMP,U,3)"
^XMB(3.9,60,2,1149,0)="""RTN"",""IMRVPP"",125,0)"
^XMB(3.9,60,2,1150,0)=" . Q:$P(TMP,U,4)[""D""           ; Special processing"
^XMB(3.9,60,2,1151,0)="""RTN"",""IMRVPP"",126,0)"
^XMB(3.9,60,2,1152,0)=" . S DIK=$$ROOT^DILFD(FILE)"
^XMB(3.9,60,2,1153,0)="""RTN"",""IMRVPP"",127,0)"
^XMB(3.9,60,2,1154,0)=" . ;---"
^XMB(3.9,60,2,1155,0)="""RTN"",""IMRVPP"",128,0)"
^XMB(3.9,60,2,1156,0)=" . D MSG^IMRVPPU(""The following ""_NAME_"" have been deleted:"",,1)"
^XMB(3.9,60,2,1157,0)="""RTN"",""IMRVPP"",129,0)"
^XMB(3.9,60,2,1158,0)=" . D PRINTCL^IMRVPPU(.CBUF,+$G(@VIF@(FILE,""MNL"")),1)"
^XMB(3.9,60,2,1159,0)="""RTN"",""IMRVPP"",130,0)"
^XMB(3.9,60,2,1160,0)=" . S NAME="""""
^XMB(3.9,60,2,1161,0)="""RTN"",""IMRVPP"",131,0)"
^XMB(3.9,60,2,1162,0)=" . F  S NAME=$O(@VIF@(FILE,""B"",NAME))  Q:NAME=""""  D"
^XMB(3.9,60,2,1163,0)="""RTN"",""IMRVPP"",132,0)"
^XMB(3.9,60,2,1164,0)=" . . S DA=0"
^XMB(3.9,60,2,1165,0)="""RTN"",""IMRVPP"",133,0)"
^XMB(3.9,60,2,1166,0)=" . . F  S DA=$O(@VIF@(FILE,""B"",NAME,DA))  Q:DA'>0  D"
^XMB(3.9,60,2,1167,0)="""RTN"",""IMRVPP"",134,0)"
^XMB(3.9,60,2,1168,0)=" . . . S TMP=$P(@VIF@(FILE,DA),U)"
^XMB(3.9,60,2,1169,0)="""RTN"",""IMRVPP"",135,0)"
^XMB(3.9,60,2,1170,0)=" . . . D ^DIK"
^XMB(3.9,60,2,1171,0)="""RTN"",""IMRVPP"",136,0)"
^XMB(3.9,60,2,1172,0)=" . . . D PRINTCL^IMRVPPU(.CBUF,TMP_"" (#""_DA_"")"")"
^XMB(3.9,60,2,1173,0)="""RTN"",""IMRVPP"",137,0)"
^XMB(3.9,60,2,1174,0)=" . D PRINTCL^IMRVPPU(.CBUF,,2)"
^XMB(3.9,60,2,1175,0)="""RTN"",""IMRVPP"",138,0)"
^XMB(3.9,60,2,1176,0)=" ;---"
^XMB(3.9,60,2,1177,0)="""RTN"",""IMRVPP"",139,0)"
^XMB(3.9,60,2,1178,0)=" Q RC"
^XMB(3.9,60,2,1179,0)="""RTN"",""IMRVPP"",140,0)"
^XMB(3.9,60,2,1180,0)=" ;"
^XMB(3.9,60,2,1181,0)="""RTN"",""IMRVPP"",141,0)"
^XMB(3.9,60,2,1182,0)=" ;***** ERROR PROCESSING"
^XMB(3.9,60,2,1183,0)="""RTN"",""IMRVPP"",142,0)"
^XMB(3.9,60,2,1184,0)="ERRIRTN Q"
^XMB(3.9,60,2,1185,0)="""RTN"",""IMRVPP"",143,0)"
^XMB(3.9,60,2,1186,0)=" ;"
^XMB(3.9,60,2,1187,0)="""RTN"",""IMRVPP"",144,0)"
^XMB(3.9,60,2,1188,0)=" ;***** INITIALIZES THE PACKAGE PURGE TOOL"
^XMB(3.9,60,2,1189,0)="""RTN"",""IMRVPP"",145,0)"
^XMB(3.9,60,2,1190,0)=" ;"
^XMB(3.9,60,2,1191,0)="""RTN"",""IMRVPP"",146,0)"
^XMB(3.9,60,2,1192,0)=" ; [SILENT]       Do not display any messages"
^XMB(3.9,60,2,1193,0)="""RTN"",""IMRVPP"",147,0)"
^XMB(3.9,60,2,1194,0)=" ;"
^XMB(3.9,60,2,1195,0)="""RTN"",""IMRVPP"",148,0)"
^XMB(3.9,60,2,1196,0)="INIT(SILENT) ;"
^XMB(3.9,60,2,1197,0)="""RTN"",""IMRVPP"",149,0)"
^XMB(3.9,60,2,1198,0)=" K ^TMP(""IMRVPP-DELETE"",$J),IMRVPP"
^XMB(3.9,60,2,1199,0)="""RTN"",""IMRVPP"",150,0)"
^XMB(3.9,60,2,1200,0)=" S:$G(SILENT) IMRVPP(""SILENT"")=1"
^XMB(3.9,60,2,1201,0)="""RTN"",""IMRVPP"",151,0)"
^XMB(3.9,60,2,1202,0)=" Q"
^XMB(3.9,60,2,1203,0)="""RTN"",""IMRVPP"",152,0)"
^XMB(3.9,60,2,1204,0)=" ;"
^XMB(3.9,60,2,1205,0)="""RTN"",""IMRVPP"",153,0)"
^XMB(3.9,60,2,1206,0)=" ;***** PURGES THE PACKAGE"
^XMB(3.9,60,2,1207,0)="""RTN"",""IMRVPP"",154,0)"
^XMB(3.9,60,2,1208,0)="PURGE() ;"
^XMB(3.9,60,2,1209,0)="""RTN"",""IMRVPP"",155,0)"
^XMB(3.9,60,2,1210,0)=" N DA,DIK,RC  K IMRVPP(""PGLEN"")"
^XMB(3.9,60,2,1211,0)="""RTN"",""IMRVPP"",156,0)"
^XMB(3.9,60,2,1212,0)=" ;--- Delete records from VistA infrastructure files"
^XMB(3.9,60,2,1213,0)="""RTN"",""IMRVPP"",157,0)"
^XMB(3.9,60,2,1214,0)=" S RC=$$DELVIFS()           Q:RC<0 RC"
^XMB(3.9,60,2,1215,0)="""RTN"",""IMRVPP"",158,0)"
^XMB(3.9,60,2,1216,0)=" ;--- Delete files"
^XMB(3.9,60,2,1217,0)="""RTN"",""IMRVPP"",159,0)"
^XMB(3.9,60,2,1218,0)=" S RC=$$DELDDS()            Q:RC<0 RC"
^XMB(3.9,60,2,1219,0)="""RTN"",""IMRVPP"",160,0)"
^XMB(3.9,60,2,1220,0)=" ;--- Routines"
^XMB(3.9,60,2,1221,0)="""RTN"",""IMRVPP"",161,0)"
^XMB(3.9,60,2,1222,0)=" S RC=$$DELRTNS(""IMRP021"")  Q:RC<0 RC"
^XMB(3.9,60,2,1223,0)="""RTN"",""IMRVPP"",162,0)"
^XMB(3.9,60,2,1224,0)=" ;--- Routine names"
^XMB(3.9,60,2,1225,0)="""RTN"",""IMRVPP"",163,0)"
^XMB(3.9,60,2,1226,0)=" I $G(^TMP(""IMRVPP-DELETE"",$J,""VIF"",9.8,""CNT""))>0  D"
^XMB(3.9,60,2,1227,0)="""RTN"",""IMRVPP"",164,0)"
^XMB(3.9,60,2,1228,0)=" . S DIK=$$ROOT^DILFD(9.8),DA=0"
^XMB(3.9,60,2,1229,0)="""RTN"",""IMRVPP"",165,0)"
^XMB(3.9,60,2,1230,0)=" . F  S DA=$O(^TMP(""IMRVPP-DELETE"",$J,""VIF"",9.8,DA))  Q:DA'>0  D ^DIK"
^XMB(3.9,60,2,1231,0)="""RTN"",""IMRVPP"",166,0)"
^XMB(3.9,60,2,1232,0)=" Q 0"
^XMB(3.9,60,2,1233,0)="""RTN"",""IMRVPP"",167,0)"
^XMB(3.9,60,2,1234,0)=" ;"
^XMB(3.9,60,2,1235,0)="""RTN"",""IMRVPP"",168,0)"
^XMB(3.9,60,2,1236,0)=" ;***** SELECTS PACKAGE ROUTINES"
^XMB(3.9,60,2,1237,0)="""RTN"",""IMRVPP"",169,0)"
^XMB(3.9,60,2,1238,0)="SELRTNS() ;"
^XMB(3.9,60,2,1239,0)="""RTN"",""IMRVPP"",170,0)"
^XMB(3.9,60,2,1240,0)=" ;;S RTN=$O(^$ROUTINE(RTN),RTN(""DIR""))"
^XMB(3.9,60,2,1241,0)="""RTN"",""IMRVPP"",171,0)"
^XMB(3.9,60,2,1242,0)=" ;;S RTN=$O(^ (RTN),RTN(""DIR""))"
^XMB(3.9,60,2,1243,0)="""RTN"",""IMRVPP"",172,0)"
^XMB(3.9,60,2,1244,0)=" ;"
^XMB(3.9,60,2,1245,0)="""RTN"",""IMRVPP"",173,0)"
^XMB(3.9,60,2,1246,0)=" N I,NAMESP,NSL,RC,RTN,X"
^XMB(3.9,60,2,1247,0)="""RTN"",""IMRVPP"",174,0)"
^XMB(3.9,60,2,1248,0)=" ;--- Assign the routine iterator"
^XMB(3.9,60,2,1249,0)="""RTN"",""IMRVPP"",175,0)"
^XMB(3.9,60,2,1250,0)=" S RC=0"
^XMB(3.9,60,2,1251,0)="""RTN"",""IMRVPP"",176,0)"
^XMB(3.9,60,2,1252,0)=" F I=1,2  S RTN(""$O"")=$P($T(SELRTNS+I),"";;"",2,99)  D  Q:RC"
^XMB(3.9,60,2,1253,0)="""RTN"",""IMRVPP"",177,0)"
^XMB(3.9,60,2,1254,0)=" . N $ESTACK,$ETRAP"
^XMB(3.9,60,2,1255,0)="""RTN"",""IMRVPP"",178,0)"
^XMB(3.9,60,2,1256,0)=" . S X=""ERRIRTN^IMRVPP"",@^%ZOSF(""TRAP""),$ETRAP="""""
^XMB(3.9,60,2,1257,0)="""RTN"",""IMRVPP"",179,0)"
^XMB(3.9,60,2,1258,0)=" . S RTN="""",RTN(""DIR"")=1  X RTN(""$O"")  S RC=1"
^XMB(3.9,60,2,1259,0)="""RTN"",""IMRVPP"",180,0)"
^XMB(3.9,60,2,1260,0)=" Q:RC<0 RC  Q:'RC $$ERROR^IMRVPPE(-10)"
^XMB(3.9,60,2,1261,0)="""RTN"",""IMRVPP"",181,0)"
^XMB(3.9,60,2,1262,0)=" ;--- Search for namespaced routines"
^XMB(3.9,60,2,1263,0)="""RTN"",""IMRVPP"",182,0)"
^XMB(3.9,60,2,1264,0)=" D MSG^IMRVPPU(""Searching for package routines..."",,1)"
^XMB(3.9,60,2,1265,0)="""RTN"",""IMRVPP"",183,0)"
^XMB(3.9,60,2,1266,0)=" S NAMESP="""""
^XMB(3.9,60,2,1267,0)="""RTN"",""IMRVPP"",184,0)"
^XMB(3.9,60,2,1268,0)=" F  S NAMESP=$O(IMRVPP(""NSI"",NAMESP))  Q:NAMESP=""""  D"
^XMB(3.9,60,2,1269,0)="""RTN"",""IMRVPP"",185,0)"
^XMB(3.9,60,2,1270,0)=" . S NSL=$L(NAMESP)"
^XMB(3.9,60,2,1271,0)="""RTN"",""IMRVPP"",186,0)"
^XMB(3.9,60,2,1272,0)=" . S RTN=NAMESP,RTN(""DIR"")=-1  X RTN(""$O"")  S RTN(""DIR"")=1"
^XMB(3.9,60,2,1273,0)="""RTN"",""IMRVPP"",187,0)"
^XMB(3.9,60,2,1274,0)=" . F  X RTN(""$O"")  Q:$E(RTN,1,NSL)'=NAMESP  D"
^XMB(3.9,60,2,1275,0)="""RTN"",""IMRVPP"",188,0)"
^XMB(3.9,60,2,1276,0)=" . . S:$$CHKNAME^IMRVPPU(RTN) ^TMP(""IMRVPP-DELETE"",$J,""RTN"",RTN)="""""
^XMB(3.9,60,2,1277,0)="""RTN"",""IMRVPP"",189,0)"
^XMB(3.9,60,2,1278,0)=" ;---"
^XMB(3.9,60,2,1279,0)="""RTN"",""IMRVPP"",190,0)"
^XMB(3.9,60,2,1280,0)=" Q 0"
^XMB(3.9,60,2,1281,0)="""RTN"",""IMRVPP"",191,0)"
^XMB(3.9,60,2,1282,0)=" ;"
^XMB(3.9,60,2,1283,0)="""RTN"",""IMRVPP"",192,0)"
^XMB(3.9,60,2,1284,0)=" ;***** SELECTS PACKAGE RECORDS IN VISTA INFRASTRUCTURE FILES"
^XMB(3.9,60,2,1285,0)="""RTN"",""IMRVPP"",193,0)"
^XMB(3.9,60,2,1286,0)=" ;                                        Spec."
^XMB(3.9,60,2,1287,0)="""RTN"",""IMRVPP"",194,0)"
^XMB(3.9,60,2,1288,0)=" ; File#    Fld#  Description             Proc."
^XMB(3.9,60,2,1289,0)="""RTN"",""IMRVPP"",195,0)"
^XMB(3.9,60,2,1290,0)="SELVIFS() ; -------- ---- ------------------------ ---"
^XMB(3.9,60,2,1291,0)="""RTN"",""IMRVPP"",196,0)"
^XMB(3.9,60,2,1292,0)=" ;;    .5  ^ .01^ Functions              ^   ^"
^XMB(3.9,60,2,1293,0)="""RTN"",""IMRVPP"",197,0)"
^XMB(3.9,60,2,1294,0)=" ;;   9.8  ^ .01^ Routine File Entries   ^D P^"
^XMB(3.9,60,2,1295,0)="""RTN"",""IMRVPP"",198,0)"
^XMB(3.9,60,2,1296,0)=" ;"
^XMB(3.9,60,2,1297,0)="""RTN"",""IMRVPP"",199,0)"
^XMB(3.9,60,2,1298,0)=" N BUF,CNT,FIELD,FILE,I,IEN,LD1,MAXLEN,ROOT,TMP,VIF,IMRMSG"
^XMB(3.9,60,2,1299,0)="""RTN"",""IMRVPP"",200,0)"
^XMB(3.9,60,2,1300,0)=" S RC=0,VIF=$NA(^TMP(""IMRVPP-DELETE"",$J,""VIF""))"
^XMB(3.9,60,2,1301,0)="""RTN"",""IMRVPP"",201,0)"
^XMB(3.9,60,2,1302,0)=" ;--- Prepare file descriptors in temporary global"
^XMB(3.9,60,2,1303,0)="""RTN"",""IMRVPP"",202,0)"
^XMB(3.9,60,2,1304,0)=" F I=1:1  S BUF=$P($T(SELVIF+I),"";;"",2,999)  Q:BUF=""""  D"
^XMB(3.9,60,2,1305,0)="""RTN"",""IMRVPP"",203,0)"
^XMB(3.9,60,2,1306,0)=" . S FILE=+$TR($P(BUF,U),"" "")"
^XMB(3.9,60,2,1307,0)="""RTN"",""IMRVPP"",204,0)"
^XMB(3.9,60,2,1308,0)=" . S $P(BUF,U,1)="""""
^XMB(3.9,60,2,1309,0)="""RTN"",""IMRVPP"",205,0)"
^XMB(3.9,60,2,1310,0)=" . S $P(BUF,U,2)=+$TR($P(BUF,U,2),"" "")"
^XMB(3.9,60,2,1311,0)="""RTN"",""IMRVPP"",206,0)"
^XMB(3.9,60,2,1312,0)=" . S $P(BUF,U,3)=$$TRIM^XLFSTR($P(BUF,U,3))"
^XMB(3.9,60,2,1313,0)="""RTN"",""IMRVPP"",207,0)"
^XMB(3.9,60,2,1314,0)=" . S $P(BUF,U,4)=$TR($P(BUF,U,4),"" "")"
^XMB(3.9,60,2,1315,0)="""RTN"",""IMRVPP"",208,0)"
^XMB(3.9,60,2,1316,0)=" . S @VIF@(FILE)=BUF"
^XMB(3.9,60,2,1317,0)="""RTN"",""IMRVPP"",209,0)"
^XMB(3.9,60,2,1318,0)=" ;--- Compile the lists of entries"
^XMB(3.9,60,2,1319,0)="""RTN"",""IMRVPP"",210,0)"
^XMB(3.9,60,2,1320,0)=" D MSG^IMRVPPU(""Searching for package records in VistA files..."",,1)"
^XMB(3.9,60,2,1321,0)="""RTN"",""IMRVPP"",211,0)"
^XMB(3.9,60,2,1322,0)=" S FILE=0"
^XMB(3.9,60,2,1323,0)="""RTN"",""IMRVPP"",212,0)"
^XMB(3.9,60,2,1324,0)=" F  S FILE=$O(@VIF@(FILE))  Q:FILE'>0  D  Q:RC<0"
^XMB(3.9,60,2,1325,0)="""RTN"",""IMRVPP"",213,0)"
^XMB(3.9,60,2,1326,0)=" . S TMP=@VIF@(FILE),FIELD=+$P(TMP,U,2)"
^XMB(3.9,60,2,1327,0)="""RTN"",""IMRVPP"",214,0)"
^XMB(3.9,60,2,1328,0)=" . Q:$P(TMP,U,4)[""S""  ; Special processing"
^XMB(3.9,60,2,1329,0)="""RTN"",""IMRVPP"",215,0)"
^XMB(3.9,60,2,1330,0)=" . S ROOT=$$ROOT^DILFD(FILE,,1)"
^XMB(3.9,60,2,1331,0)="""RTN"",""IMRVPP"",216,0)"
^XMB(3.9,60,2,1332,0)=" . S (CNT,IEN,MAXLEN)=0"
^XMB(3.9,60,2,1333,0)="""RTN"",""IMRVPP"",217,0)"
^XMB(3.9,60,2,1334,0)=" . F  S IEN=$O(@ROOT@(IEN))  Q:IEN'>0  D  Q:RC<0"
^XMB(3.9,60,2,1335,0)="""RTN"",""IMRVPP"",218,0)"
^XMB(3.9,60,2,1336,0)=" . . S TMP=$$GET1^DIQ(FILE,IEN,FIELD,,,""IMRMSG"")"
^XMB(3.9,60,2,1337,0)="""RTN"",""IMRVPP"",219,0)"
^XMB(3.9,60,2,1338,0)=" . . I $G(DIERR)  S RC=$$DBSERR^IMRVPPE(""IMRMSG"",-9,FILE,IEN)  Q"
^XMB(3.9,60,2,1339,0)="""RTN"",""IMRVPP"",220,0)"
^XMB(3.9,60,2,1340,0)=" . . Q:'$$CHKNAME^IMRVPPU(TMP)"
^XMB(3.9,60,2,1341,0)="""RTN"",""IMRVPP"",221,0)"
^XMB(3.9,60,2,1342,0)=" . . S CNT=CNT+1,@VIF@(FILE,IEN)=TMP,@VIF@(FILE,""B"",TMP,IEN)="""""
^XMB(3.9,60,2,1343,0)="""RTN"",""IMRVPP"",222,0)"
^XMB(3.9,60,2,1344,0)=" . . S TMP=$L(TMP)+$L(IEN)+4  S:TMP>MAXLEN MAXLEN=TMP"
^XMB(3.9,60,2,1345,0)="""RTN"",""IMRVPP"",223,0)"
^XMB(3.9,60,2,1346,0)=" . S @VIF@(FILE,""CNT"")=CNT"
^XMB(3.9,60,2,1347,0)="""RTN"",""IMRVPP"",224,0)"
^XMB(3.9,60,2,1348,0)=" . S @VIF@(FILE,""MNL"")=MAXLEN"
^XMB(3.9,60,2,1349,0)="""RTN"",""IMRVPP"",225,0)"
^XMB(3.9,60,2,1350,0)=" ;---"
^XMB(3.9,60,2,1351,0)="""RTN"",""IMRVPP"",226,0)"
^XMB(3.9,60,2,1352,0)=" Q $S(RC<0:RC,1:0)"
^XMB(3.9,60,2,1353,0)="""RTN"",""IMRVPPE"")"
^XMB(3.9,60,2,1354,0)="0^2^B13564489"
^XMB(3.9,60,2,1355,0)="""RTN"",""IMRVPPE"",1,0)"
^XMB(3.9,60,2,1356,0)="IMRVPPE ;HCIOFO/SG - VISTA PACKAGE PURGE (ERRORS) ; 1/4/05 9:24am"
^XMB(3.9,60,2,1357,0)="""RTN"",""IMRVPPE"",2,0)"
^XMB(3.9,60,2,1358,0)=" ;;2.1;IMMUNOLOGY CASE REGISTRY;**21**;Feb 09, 1998"
^XMB(3.9,60,2,1359,0)="""RTN"",""IMRVPPE"",3,0)"
^XMB(3.9,60,2,1360,0)=" ;"
^XMB(3.9,60,2,1361,0)="""RTN"",""IMRVPPE"",4,0)"
^XMB(3.9,60,2,1362,0)=" Q"
^XMB(3.9,60,2,1363,0)="""RTN"",""IMRVPPE"",5,0)"
^XMB(3.9,60,2,1364,0)=" ;"
^XMB(3.9,60,2,1365,0)="""RTN"",""IMRVPPE"",6,0)"
^XMB(3.9,60,2,1366,0)=" ;***** CHECKS THE ERRORS AFTER A FILEMAN DBS CALL"
^XMB(3.9,60,2,1367,0)="""RTN"",""IMRVPPE"",7,0)"
^XMB(3.9,60,2,1368,0)=" ;"
^XMB(3.9,60,2,1369,0)="""RTN"",""IMRVPPE"",8,0)"
^XMB(3.9,60,2,1370,0)=" ; IMR8MSG       Closed reference of the error messages array"
^XMB(3.9,60,2,1371,0)="""RTN"",""IMRVPPE"",9,0)"
^XMB(3.9,60,2,1372,0)=" ;               (from DBS calls)"
^XMB(3.9,60,2,1373,0)="""RTN"",""IMRVPPE"",10,0)"
^XMB(3.9,60,2,1374,0)=" ; [ERRCODE]     Error code to assign"
^XMB(3.9,60,2,1375,0)="""RTN"",""IMRVPPE"",11,0)"
^XMB(3.9,60,2,1376,0)=" ; [FILE]        File number used in the DBS call"
^XMB(3.9,60,2,1377,0)="""RTN"",""IMRVPPE"",12,0)"
^XMB(3.9,60,2,1378,0)=" ; [IENS]        IENS used in the DBS call"
^XMB(3.9,60,2,1379,0)="""RTN"",""IMRVPPE"",13,0)"
^XMB(3.9,60,2,1380,0)=" ;"
^XMB(3.9,60,2,1381,0)="""RTN"",""IMRVPPE"",14,0)"
^XMB(3.9,60,2,1382,0)=" ; The $$DBSERR^IMRVPPE function checks the DIERR and @IMR8MSG"
^XMB(3.9,60,2,1383,0)="""RTN"",""IMRVPPE"",15,0)"
^XMB(3.9,60,2,1384,0)=" ; variables for errors after a FileMan DBS call."
^XMB(3.9,60,2,1385,0)="""RTN"",""IMRVPPE"",16,0)"
^XMB(3.9,60,2,1386,0)=" ; "
^XMB(3.9,60,2,1387,0)="""RTN"",""IMRVPPE"",17,0)"
^XMB(3.9,60,2,1388,0)=" ; Return Values:"
^XMB(3.9,60,2,1389,0)="""RTN"",""IMRVPPE"",18,0)"
^XMB(3.9,60,2,1390,0)=" ;"
^XMB(3.9,60,2,1391,0)="""RTN"",""IMRVPPE"",19,0)"
^XMB(3.9,60,2,1392,0)=" ; If there are no errors found, it returns an empty string."
^XMB(3.9,60,2,1393,0)="""RTN"",""IMRVPPE"",20,0)"
^XMB(3.9,60,2,1394,0)=" ; In case of errors, the result depends on value of the ERRCODE"
^XMB(3.9,60,2,1395,0)="""RTN"",""IMRVPPE"",21,0)"
^XMB(3.9,60,2,1396,0)=" ; parameter:"
^XMB(3.9,60,2,1397,0)="""RTN"",""IMRVPPE"",22,0)"
^XMB(3.9,60,2,1398,0)=" ;"
^XMB(3.9,60,2,1399,0)="""RTN"",""IMRVPPE"",23,0)"
^XMB(3.9,60,2,1400,0)=" ; If ERRCODE is omitted or equals 0, the function returns a string"
^XMB(3.9,60,2,1401,0)="""RTN"",""IMRVPPE"",24,0)"
^XMB(3.9,60,2,1402,0)=" ; containing the list of error codes separated by comma."
^XMB(3.9,60,2,1403,0)="""RTN"",""IMRVPPE"",25,0)"
^XMB(3.9,60,2,1404,0)=" ; "
^XMB(3.9,60,2,1405,0)="""RTN"",""IMRVPPE"",26,0)"
^XMB(3.9,60,2,1406,0)=" ; If ERRCODE is not zero, the $$ERROR^IMRVPPE function is called"
^XMB(3.9,60,2,1407,0)="""RTN"",""IMRVPPE"",27,0)"
^XMB(3.9,60,2,1408,0)=" ; and its return value is returned."
^XMB(3.9,60,2,1409,0)="""RTN"",""IMRVPPE"",28,0)"
^XMB(3.9,60,2,1410,0)=" ;"
^XMB(3.9,60,2,1411,0)="""RTN"",""IMRVPPE"",29,0)"
^XMB(3.9,60,2,1412,0)=" ; NOTE: This entry point can also be called as a procedure:"
^XMB(3.9,60,2,1413,0)="""RTN"",""IMRVPPE"",30,0)"
^XMB(3.9,60,2,1414,0)=" ;       D DBS^IMRVPPE(...) if you do not need its return value."
^XMB(3.9,60,2,1415,0)="""RTN"",""IMRVPPE"",31,0)"
^XMB(3.9,60,2,1416,0)=" ;"
^XMB(3.9,60,2,1417,0)="""RTN"",""IMRVPPE"",32,0)"
^XMB(3.9,60,2,1418,0)="DBSERR(IMR8MSG,ERRCODE,FILE,IENS) ;"
^XMB(3.9,60,2,1419,0)="""RTN"",""IMRVPPE"",33,0)"
^XMB(3.9,60,2,1420,0)=" I '$G(DIERR)  Q:$QUIT """"  Q"
^XMB(3.9,60,2,1421,0)="""RTN"",""IMRVPPE"",34,0)"
^XMB(3.9,60,2,1422,0)=" N ERRLST,ERRNODE,I,MSGTEXT"
^XMB(3.9,60,2,1423,0)="""RTN"",""IMRVPPE"",35,0)"
^XMB(3.9,60,2,1424,0)=" ;--- Determine location of the error messages"
^XMB(3.9,60,2,1425,0)="""RTN"",""IMRVPPE"",36,0)"
^XMB(3.9,60,2,1426,0)=" S ERRNODE=$S($G(IMR8MSG)'="""":$NA(@IMR8MSG@(""DIERR"")),1:$NA(^TMP(""DIERR"",$J)))"
^XMB(3.9,60,2,1427,0)="""RTN"",""IMRVPPE"",37,0)"
^XMB(3.9,60,2,1428,0)=" I $D(@ERRNODE)<10  Q:$QUIT """"  Q"
^XMB(3.9,60,2,1429,0)="""RTN"",""IMRVPPE"",38,0)"
^XMB(3.9,60,2,1430,0)=" ;--- Return the list of error codes"
^XMB(3.9,60,2,1431,0)="""RTN"",""IMRVPPE"",39,0)"
^XMB(3.9,60,2,1432,0)=" I '$G(ERRCODE)  D  Q:$QUIT $P(ERRLST,"","",2,99)  Q"
^XMB(3.9,60,2,1433,0)="""RTN"",""IMRVPPE"",40,0)"
^XMB(3.9,60,2,1434,0)=" . S ERRLST="""",I=0"
^XMB(3.9,60,2,1435,0)="""RTN"",""IMRVPPE"",41,0)"
^XMB(3.9,60,2,1436,0)=" . F  S I=$O(@ERRNODE@(I))  Q:'I  S ERRLST=ERRLST_"",""_@ERRNODE@(I)"
^XMB(3.9,60,2,1437,0)="""RTN"",""IMRVPPE"",42,0)"
^XMB(3.9,60,2,1438,0)=" . D CLEAN^DILF"
^XMB(3.9,60,2,1439,0)="""RTN"",""IMRVPPE"",43,0)"
^XMB(3.9,60,2,1440,0)=" ;--- Display the message(s)"
^XMB(3.9,60,2,1441,0)="""RTN"",""IMRVPPE"",44,0)"
^XMB(3.9,60,2,1442,0)=" D MSG^DIALOG(""AE"",.MSGTEXT,,,$G(IMR8MSG)),CLEAN^DILF"
^XMB(3.9,60,2,1443,0)="""RTN"",""IMRVPPE"",45,0)"
^XMB(3.9,60,2,1444,0)=" S I=$S($G(FILE):""; File #""_FILE,1:"""")"
^XMB(3.9,60,2,1445,0)="""RTN"",""IMRVPPE"",46,0)"
^XMB(3.9,60,2,1446,0)=" S:$G(IENS)'="""" I=I_""; IENS: """"""_IENS_"""""""""
^XMB(3.9,60,2,1447,0)="""RTN"",""IMRVPPE"",47,0)"
^XMB(3.9,60,2,1448,0)=" Q:$QUIT $$ERROR(ERRCODE,.MSGTEXT,I)  Q"
^XMB(3.9,60,2,1449,0)="""RTN"",""IMRVPPE"",48,0)"
^XMB(3.9,60,2,1450,0)=" ;"
^XMB(3.9,60,2,1451,0)="""RTN"",""IMRVPPE"",49,0)"
^XMB(3.9,60,2,1452,0)=" ;***** DISPLAYS THE ERROR MESSAGE(S)"
^XMB(3.9,60,2,1453,0)="""RTN"",""IMRVPPE"",50,0)"
^XMB(3.9,60,2,1454,0)=" ;"
^XMB(3.9,60,2,1455,0)="""RTN"",""IMRVPPE"",51,0)"
^XMB(3.9,60,2,1456,0)=" ; ERRCODE       Error code."
^XMB(3.9,60,2,1457,0)="""RTN"",""IMRVPPE"",52,0)"
^XMB(3.9,60,2,1458,0)=" ;"
^XMB(3.9,60,2,1459,0)="""RTN"",""IMRVPPE"",53,0)"
^XMB(3.9,60,2,1460,0)=" ; [[.]IMRINFO] Optional additional information (either a string or"
^XMB(3.9,60,2,1461,0)="""RTN"",""IMRVPPE"",54,0)"
^XMB(3.9,60,2,1462,0)=" ;               a reference to a local array that contains strings"
^XMB(3.9,60,2,1463,0)="""RTN"",""IMRVPPE"",55,0)"
^XMB(3.9,60,2,1464,0)=" ;               prepared for storing in a word processing field)"
^XMB(3.9,60,2,1465,0)="""RTN"",""IMRVPPE"",56,0)"
^XMB(3.9,60,2,1466,0)=" ;"
^XMB(3.9,60,2,1467,0)="""RTN"",""IMRVPPE"",57,0)"
^XMB(3.9,60,2,1468,0)=" ; [ARG1-ARG5]   Optional parameters as for $$MSG^IMRVPPE"
^XMB(3.9,60,2,1469,0)="""RTN"",""IMRVPPE"",58,0)"
^XMB(3.9,60,2,1470,0)=" ;"
^XMB(3.9,60,2,1471,0)="""RTN"",""IMRVPPE"",59,0)"
^XMB(3.9,60,2,1472,0)=" ; Return Values:"
^XMB(3.9,60,2,1473,0)="""RTN"",""IMRVPPE"",60,0)"
^XMB(3.9,60,2,1474,0)=" ;       <0  Error code (value of the ERRCODE)"
^XMB(3.9,60,2,1475,0)="""RTN"",""IMRVPPE"",61,0)"
^XMB(3.9,60,2,1476,0)=" ;        0  Ok (if ERRCOCE'<0)"
^XMB(3.9,60,2,1477,0)="""RTN"",""IMRVPPE"",62,0)"
^XMB(3.9,60,2,1478,0)=" ;"
^XMB(3.9,60,2,1479,0)="""RTN"",""IMRVPPE"",63,0)"
^XMB(3.9,60,2,1480,0)=" ; NOTE: This entry point can also be called as a procedure:"
^XMB(3.9,60,2,1481,0)="""RTN"",""IMRVPPE"",64,0)"
^XMB(3.9,60,2,1482,0)=" ;       D ERROR^IMRVPPE(...) if you do not need its return value."
^XMB(3.9,60,2,1483,0)="""RTN"",""IMRVPPE"",65,0)"
^XMB(3.9,60,2,1484,0)=" ;"
^XMB(3.9,60,2,1485,0)="""RTN"",""IMRVPPE"",66,0)"
^XMB(3.9,60,2,1486,0)="ERROR(ERRCODE,IMRINFO,ARG1,ARG2,ARG3,ARG4,ARG5) ;"
^XMB(3.9,60,2,1487,0)="""RTN"",""IMRVPPE"",67,0)"
^XMB(3.9,60,2,1488,0)=" I ERRCODE'<0  Q:$QUIT 0  Q"
^XMB(3.9,60,2,1489,0)="""RTN"",""IMRVPPE"",68,0)"
^XMB(3.9,60,2,1490,0)=" N IR,MSG,PLACE,SL,TMP,TYPE"
^XMB(3.9,60,2,1491,0)="""RTN"",""IMRVPPE"",69,0)"
^XMB(3.9,60,2,1492,0)=" ;--- Determine location of the error"
^XMB(3.9,60,2,1493,0)="""RTN"",""IMRVPPE"",70,0)"
^XMB(3.9,60,2,1494,0)=" S SL=$STACK(-1)-1"
^XMB(3.9,60,2,1495,0)="""RTN"",""IMRVPPE"",71,0)"
^XMB(3.9,60,2,1496,0)=" F  Q:SL'>0  D  Q:'(PLACE[""^IMRVPPE"")  S SL=SL-1"
^XMB(3.9,60,2,1497,0)="""RTN"",""IMRVPPE"",72,0)"
^XMB(3.9,60,2,1498,0)=" . S PLACE=$P($STACK(SL,""PLACE""),"" "")"
^XMB(3.9,60,2,1499,0)="""RTN"",""IMRVPPE"",73,0)"
^XMB(3.9,60,2,1500,0)=" ;--- Format the message text"
^XMB(3.9,60,2,1501,0)="""RTN"",""IMRVPPE"",74,0)"
^XMB(3.9,60,2,1502,0)=" I $D(IMRINFO)=1  S IR=IMRINFO  K IMRINFO  S IMRINFO(1)=IR,IR=1"
^XMB(3.9,60,2,1503,0)="""RTN"",""IMRVPPE"",75,0)"
^XMB(3.9,60,2,1504,0)=" E  S IR=$O(IMRINFO(""""),-1)"
^XMB(3.9,60,2,1505,0)="""RTN"",""IMRVPPE"",76,0)"
^XMB(3.9,60,2,1506,0)=" S MSG=$$MSG(+ERRCODE,.TYPE,.ARG1,.ARG2,.ARG3,.ARG4,.ARG5)"
^XMB(3.9,60,2,1507,0)="""RTN"",""IMRVPPE"",77,0)"
^XMB(3.9,60,2,1508,0)=" S IR=IR+1,IMRINFO(IR)=""Location: ""_PLACE"
^XMB(3.9,60,2,1509,0)="""RTN"",""IMRVPPE"",78,0)"
^XMB(3.9,60,2,1510,0)=" ;--- Display the message"
^XMB(3.9,60,2,1511,0)="""RTN"",""IMRVPPE"",79,0)"
^XMB(3.9,60,2,1512,0)=" U:$G(IO(0))'="""" IO(0)"
^XMB(3.9,60,2,1513,0)="""RTN"",""IMRVPPE"",80,0)"
^XMB(3.9,60,2,1514,0)=" S TMP=$P($$FMTE^XLFDT($$NOW^XLFDT,""2FS""),""@"",2)"
^XMB(3.9,60,2,1515,0)="""RTN"",""IMRVPPE"",81,0)"
^XMB(3.9,60,2,1516,0)=" D MSG^IMRVPPU(TMP_"" ""_$E(MSG,1,70),,1,0)"
^XMB(3.9,60,2,1517,0)="""RTN"",""IMRVPPE"",82,0)"
^XMB(3.9,60,2,1518,0)=" D MSG^IMRVPPU(,.IMRINFO,0,9)"
^XMB(3.9,60,2,1519,0)="""RTN"",""IMRVPPE"",83,0)"
^XMB(3.9,60,2,1520,0)=" U IO"
^XMB(3.9,60,2,1521,0)="""RTN"",""IMRVPPE"",84,0)"
^XMB(3.9,60,2,1522,0)=" Q ERRCODE  Q"
^XMB(3.9,60,2,1523,0)="""RTN"",""IMRVPPE"",85,0)"
^XMB(3.9,60,2,1524,0)=" ;"
^XMB(3.9,60,2,1525,0)="""RTN"",""IMRVPPE"",86,0)"
^XMB(3.9,60,2,1526,0)=" ;***** RETURNS TYPE AND TEXT OF THE MESSAGE"
^XMB(3.9,60,2,1527,0)="""RTN"",""IMRVPPE"",87,0)"
^XMB(3.9,60,2,1528,0)=" ;"
^XMB(3.9,60,2,1529,0)="""RTN"",""IMRVPPE"",88,0)"
^XMB(3.9,60,2,1530,0)=" ; ERRCODE       Error code"
^XMB(3.9,60,2,1531,0)="""RTN"",""IMRVPPE"",89,0)"
^XMB(3.9,60,2,1532,0)=" ; [.TYPE]       Type of the error"
^XMB(3.9,60,2,1533,0)="""RTN"",""IMRVPPE"",90,0)"
^XMB(3.9,60,2,1534,0)=" ; [ARG1-ARG5]   Optional parameters that substitute the |n| ""windows"""
^XMB(3.9,60,2,1535,0)="""RTN"",""IMRVPPE"",91,0)"
^XMB(3.9,60,2,1536,0)=" ;               in the text of the message (for example, the |2| will"
^XMB(3.9,60,2,1537,0)="""RTN"",""IMRVPPE"",92,0)"
^XMB(3.9,60,2,1538,0)=" ;               be substituted by the value of the ARG2)."
^XMB(3.9,60,2,1539,0)="""RTN"",""IMRVPPE"",93,0)"
^XMB(3.9,60,2,1540,0)=" ;"
^XMB(3.9,60,2,1541,0)="""RTN"",""IMRVPPE"",94,0)"
^XMB(3.9,60,2,1542,0)="MSG(ERRCODE,TYPE,ARG1,ARG2,ARG3,ARG4,ARG5) ;"
^XMB(3.9,60,2,1543,0)="""RTN"",""IMRVPPE"",95,0)"
^XMB(3.9,60,2,1544,0)=" S TYPE=6  Q:ERRCODE'<0 """""
^XMB(3.9,60,2,1545,0)="""RTN"",""IMRVPPE"",96,0)"
^XMB(3.9,60,2,1546,0)=" N ARG,I1,I2,MSG"
^XMB(3.9,60,2,1547,0)="""RTN"",""IMRVPPE"",97,0)"
^XMB(3.9,60,2,1548,0)=" ;--- Get a descriptor of the message"
^XMB(3.9,60,2,1549,0)="""RTN"",""IMRVPPE"",98,0)"
^XMB(3.9,60,2,1550,0)=" S I1=-ERRCODE,MSG=$P($T(MSGLIST+I1),"";;"",2)"
^XMB(3.9,60,2,1551,0)="""RTN"",""IMRVPPE"",99,0)"
^XMB(3.9,60,2,1552,0)=" S I1=+$TR($P(MSG,U,2),"" ""),MSG=$P(MSG,U,3,999)"
^XMB(3.9,60,2,1553,0)="""RTN"",""IMRVPPE"",100,0)"
^XMB(3.9,60,2,1554,0)=" S:I1>0 TYPE=I1"
^XMB(3.9,60,2,1555,0)="""RTN"",""IMRVPPE"",101,0)"
^XMB(3.9,60,2,1556,0)=" Q:MSG?."" "" ""Unknown error (""_ERRCODE_"")"""
^XMB(3.9,60,2,1557,0)="""RTN"",""IMRVPPE"",102,0)"
^XMB(3.9,60,2,1558,0)=" ;--- Substitute parameters"
^XMB(3.9,60,2,1559,0)="""RTN"",""IMRVPPE"",103,0)"
^XMB(3.9,60,2,1560,0)=" S I1=2"
^XMB(3.9,60,2,1561,0)="""RTN"",""IMRVPPE"",104,0)"
^XMB(3.9,60,2,1562,0)=" F  S I1=$F(MSG,""|"",I1-1)  Q:'I1  D"
^XMB(3.9,60,2,1563,0)="""RTN"",""IMRVPPE"",105,0)"
^XMB(3.9,60,2,1564,0)=" . S I2=$F(MSG,""|"",I1)  Q:'I2"
^XMB(3.9,60,2,1565,0)="""RTN"",""IMRVPPE"",106,0)"
^XMB(3.9,60,2,1566,0)=" . X ""S ARG=$G(ARG""_+$TR($E(MSG,I1,I2-2),"" "")_"")"""
^XMB(3.9,60,2,1567,0)="""RTN"",""IMRVPPE"",107,0)"
^XMB(3.9,60,2,1568,0)=" . S $E(MSG,I1-1,I2-1)=ARG"
^XMB(3.9,60,2,1569,0)="""RTN"",""IMRVPPE"",108,0)"
^XMB(3.9,60,2,1570,0)=" Q $$TRIM^XLFSTR(MSG)"
^XMB(3.9,60,2,1571,0)="""RTN"",""IMRVPPE"",109,0)"
^XMB(3.9,60,2,1572,0)=" ;"
^XMB(3.9,60,2,1573,0)="""RTN"",""IMRVPPE"",110,0)"
^XMB(3.9,60,2,1574,0)=" ;***** RETURNS TYPE OF THE MESSAGE"
^XMB(3.9,60,2,1575,0)="""RTN"",""IMRVPPE"",111,0)"
^XMB(3.9,60,2,1576,0)=" ;"
^XMB(3.9,60,2,1577,0)="""RTN"",""IMRVPPE"",112,0)"
^XMB(3.9,60,2,1578,0)=" ; ERRCODE       Error code"
^XMB(3.9,60,2,1579,0)="""RTN"",""IMRVPPE"",113,0)"
^XMB(3.9,60,2,1580,0)=" ;"
^XMB(3.9,60,2,1581,0)="""RTN"",""IMRVPPE"",114,0)"
^XMB(3.9,60,2,1582,0)="TYPE(ERRCODE) ;"
^XMB(3.9,60,2,1583,0)="""RTN"",""IMRVPPE"",115,0)"
^XMB(3.9,60,2,1584,0)=" Q:ERRCODE'<0 0"
^XMB(3.9,60,2,1585,0)="""RTN"",""IMRVPPE"",116,0)"
^XMB(3.9,60,2,1586,0)=" N I,TYPE  S I=-ERRCODE"
^XMB(3.9,60,2,1587,0)="""RTN"",""IMRVPPE"",117,0)"
^XMB(3.9,60,2,1588,0)=" S I=$P($T(MSGLIST+I),"";;"",2),TYPE=+$TR($P(I,U,2),"" "")"
^XMB(3.9,60,2,1589,0)="""RTN"",""IMRVPPE"",118,0)"
^XMB(3.9,60,2,1590,0)=" Q $S(TYPE>0:TYPE,1:6)"
^XMB(3.9,60,2,1591,0)="""RTN"",""IMRVPPE"",119,0)"
^XMB(3.9,60,2,1592,0)=" ;"
^XMB(3.9,60,2,1593,0)="""RTN"",""IMRVPPE"",120,0)"
^XMB(3.9,60,2,1594,0)=" ;***** LIST OF THE MESSAGES (THERE SHOULD BE NOTHING AFTER THE LIST!)"
^XMB(3.9,60,2,1595,0)="""RTN"",""IMRVPPE"",121,0)"
^XMB(3.9,60,2,1596,0)=" ;"
^XMB(3.9,60,2,1597,0)="""RTN"",""IMRVPPE"",122,0)"
^XMB(3.9,60,2,1598,0)=" ; The error codes are provided in the table only for clarity."
^XMB(3.9,60,2,1599,0)="""RTN"",""IMRVPPE"",123,0)"
^XMB(3.9,60,2,1600,0)=" ; Text of the messages are extracted using the $TEXT function and"
^XMB(3.9,60,2,1601,0)="""RTN"",""IMRVPPE"",124,0)"
^XMB(3.9,60,2,1602,0)=" ; absolute values of the ERRCODE parameter."
^XMB(3.9,60,2,1603,0)="""RTN"",""IMRVPPE"",125,0)"
^XMB(3.9,60,2,1604,0)=" ;"
^XMB(3.9,60,2,1605,0)="""RTN"",""IMRVPPE"",126,0)"
^XMB(3.9,60,2,1606,0)=" ; Message Type:"
^XMB(3.9,60,2,1607,0)="""RTN"",""IMRVPPE"",127,0)"
^XMB(3.9,60,2,1608,0)=" ;               1  Debug          4  Warning"
^XMB(3.9,60,2,1609,0)="""RTN"",""IMRVPPE"",128,0)"
^XMB(3.9,60,2,1610,0)=" ;               2  Information    5  Database Error"
^XMB(3.9,60,2,1611,0)="""RTN"",""IMRVPPE"",129,0)"
^XMB(3.9,60,2,1612,0)=" ;               3  Data Quality   6  Error"
^XMB(3.9,60,2,1613,0)="""RTN"",""IMRVPPE"",130,0)"
^XMB(3.9,60,2,1614,0)=" ;"
^XMB(3.9,60,2,1615,0)="""RTN"",""IMRVPPE"",131,0)"
^XMB(3.9,60,2,1616,0)="MSGLIST ; Code Type  Message Text"
^XMB(3.9,60,2,1617,0)="""RTN"",""IMRVPPE"",132,0)"
^XMB(3.9,60,2,1618,0)=" ;;  -1 ^ 1 ^ User entered the ""^"""
^XMB(3.9,60,2,1619,0)="""RTN"",""IMRVPPE"",133,0)"
^XMB(3.9,60,2,1620,0)=" ;;  -2 ^ 6 ^ Timeout"
^XMB(3.9,60,2,1621,0)="""RTN"",""IMRVPPE"",134,0)"
^XMB(3.9,60,2,1622,0)=" ;;  -3 ^ 6 ^ Cannot create the '|1|' checkpoint!"
^XMB(3.9,60,2,1623,0)="""RTN"",""IMRVPPE"",135,0)"
^XMB(3.9,60,2,1624,0)=" ;;  -4 ^ 6 ^ Cannot complete the '|1|' checkpoint!"
^XMB(3.9,60,2,1625,0)="""RTN"",""IMRVPPE"",136,0)"
^XMB(3.9,60,2,1626,0)=" ;;  -5 ^ 6 ^ Invalid namespace: '|1|'"
^XMB(3.9,60,2,1627,0)="""RTN"",""IMRVPPE"",137,0)"
^XMB(3.9,60,2,1628,0)=" ;;  -6 ^ 6 ^ Invalid value of the |1| parameter!"
^XMB(3.9,60,2,1629,0)="""RTN"",""IMRVPPE"",138,0)"
^XMB(3.9,60,2,1630,0)=" ;;  -7 ^ 6 ^"
^XMB(3.9,60,2,1631,0)="""RTN"",""IMRVPPE"",139,0)"
^XMB(3.9,60,2,1632,0)=" ;;  -8 ^ 3 ^"
^XMB(3.9,60,2,1633,0)="""RTN"",""IMRVPPE"",140,0)"
^XMB(3.9,60,2,1634,0)=" ;;  -9 ^ 5 ^ FileMan DBS call error(s)|1|"
^XMB(3.9,60,2,1635,0)="""RTN"",""IMRVPPE"",141,0)"
^XMB(3.9,60,2,1636,0)=" ;; -10 ^ 6 ^ Cannot assign a routine iterator"
^XMB(3.9,60,2,1637,0)="""RTN"",""IMRVPPU"")"
^XMB(3.9,60,2,1638,0)="0^3^B12623498"
^XMB(3.9,60,2,1639,0)="""RTN"",""IMRVPPU"",1,0)"
^XMB(3.9,60,2,1640,0)="IMRVPPU ;HCIOFO/SG - VISTA PACKAGE PURGE (UTILITIES) ; 1/4/05 9:24am"
^XMB(3.9,60,2,1641,0)="""RTN"",""IMRVPPU"",2,0)"
^XMB(3.9,60,2,1642,0)=" ;;2.1;IMMUNOLOGY CASE REGISTRY;**21**;Feb 09, 1998"
^XMB(3.9,60,2,1643,0)="""RTN"",""IMRVPPU"",3,0)"
^XMB(3.9,60,2,1644,0)=" ;"
^XMB(3.9,60,2,1645,0)="""RTN"",""IMRVPPU"",4,0)"
^XMB(3.9,60,2,1646,0)=" Q"
^XMB(3.9,60,2,1647,0)="""RTN"",""IMRVPPU"",5,0)"
^XMB(3.9,60,2,1648,0)=" ;"
^XMB(3.9,60,2,1649,0)="""RTN"",""IMRVPPU"",6,0)"
^XMB(3.9,60,2,1650,0)=" ;***** CHECKS IF THE NAME CONFORMS TO THE NAMESPACES"
^XMB(3.9,60,2,1651,0)="""RTN"",""IMRVPPU"",7,0)"
^XMB(3.9,60,2,1652,0)=" ;"
^XMB(3.9,60,2,1653,0)="""RTN"",""IMRVPPU"",8,0)"
^XMB(3.9,60,2,1654,0)=" ; NAME          Name"
^XMB(3.9,60,2,1655,0)="""RTN"",""IMRVPPU"",9,0)"
^XMB(3.9,60,2,1656,0)=" ;"
^XMB(3.9,60,2,1657,0)="""RTN"",""IMRVPPU"",10,0)"
^XMB(3.9,60,2,1658,0)=" ; Return Values:"
^XMB(3.9,60,2,1659,0)="""RTN"",""IMRVPPU"",11,0)"
^XMB(3.9,60,2,1660,0)=" ;        0  Skip the item with this name"
^XMB(3.9,60,2,1661,0)="""RTN"",""IMRVPPU"",12,0)"
^XMB(3.9,60,2,1662,0)=" ;        1  Process the item"
^XMB(3.9,60,2,1663,0)="""RTN"",""IMRVPPU"",13,0)"
^XMB(3.9,60,2,1664,0)=" ;"
^XMB(3.9,60,2,1665,0)="""RTN"",""IMRVPPU"",14,0)"
^XMB(3.9,60,2,1666,0)="CHKNAME(NAME) ;"
^XMB(3.9,60,2,1667,0)="""RTN"",""IMRVPPU"",15,0)"
^XMB(3.9,60,2,1668,0)=" N NAMESP,RC"
^XMB(3.9,60,2,1669,0)="""RTN"",""IMRVPPU"",16,0)"
^XMB(3.9,60,2,1670,0)=" S RC=0"
^XMB(3.9,60,2,1671,0)="""RTN"",""IMRVPPU"",17,0)"
^XMB(3.9,60,2,1672,0)=" ;--- Namespaces to include"
^XMB(3.9,60,2,1673,0)="""RTN"",""IMRVPPU"",18,0)"
^XMB(3.9,60,2,1674,0)=" S NAMESP="""""
^XMB(3.9,60,2,1675,0)="""RTN"",""IMRVPPU"",19,0)"
^XMB(3.9,60,2,1676,0)=" F  S NAMESP=$O(IMRVPP(""NSI"",NAMESP))  Q:NAMESP=""""  D  Q:RC"
^XMB(3.9,60,2,1677,0)="""RTN"",""IMRVPPU"",20,0)"
^XMB(3.9,60,2,1678,0)=" . S:$E(NAME,1,IMRVPP(""NSI"",NAMESP))=NAMESP RC=1"
^XMB(3.9,60,2,1679,0)="""RTN"",""IMRVPPU"",21,0)"
^XMB(3.9,60,2,1680,0)=" Q:'RC 0"
^XMB(3.9,60,2,1681,0)="""RTN"",""IMRVPPU"",22,0)"
^XMB(3.9,60,2,1682,0)=" ;--- Namespaces to exclude"
^XMB(3.9,60,2,1683,0)="""RTN"",""IMRVPPU"",23,0)"
^XMB(3.9,60,2,1684,0)=" S NAMESP="""""
^XMB(3.9,60,2,1685,0)="""RTN"",""IMRVPPU"",24,0)"
^XMB(3.9,60,2,1686,0)=" F  S NAMESP=$O(IMRVPP(""NSE"",NAMESP))  Q:NAMESP=""""  D  Q:'RC"
^XMB(3.9,60,2,1687,0)="""RTN"",""IMRVPPU"",25,0)"
^XMB(3.9,60,2,1688,0)=" . S:$E(NAME,1,IMRVPP(""NSE"",NAMESP))=NAMESP RC=0"
^XMB(3.9,60,2,1689,0)="""RTN"",""IMRVPPU"",26,0)"
^XMB(3.9,60,2,1690,0)=" Q RC"
^XMB(3.9,60,2,1691,0)="""RTN"",""IMRVPPU"",27,0)"
^XMB(3.9,60,2,1692,0)=" ;"
^XMB(3.9,60,2,1693,0)="""RTN"",""IMRVPPU"",28,0)"
^XMB(3.9,60,2,1694,0)=" ;***** PROCESSES THE INSTALLATION CHECKPOINT"
^XMB(3.9,60,2,1695,0)="""RTN"",""IMRVPPU"",29,0)"
^XMB(3.9,60,2,1696,0)=" ;"
^XMB(3.9,60,2,1697,0)="""RTN"",""IMRVPPU"",30,0)"
^XMB(3.9,60,2,1698,0)=" ; CPNAME        Checkpoint name"
^XMB(3.9,60,2,1699,0)="""RTN"",""IMRVPPU"",31,0)"
^XMB(3.9,60,2,1700,0)=" ;"
^XMB(3.9,60,2,1701,0)="""RTN"",""IMRVPPU"",32,0)"
^XMB(3.9,60,2,1702,0)=" ; CALLBACK      Callback entry point ($$TAG^ROUTINE). This function"
^XMB(3.9,60,2,1703,0)="""RTN"",""IMRVPPU"",33,0)"
^XMB(3.9,60,2,1704,0)=" ;               accepts no parameters and must return either 0 if"
^XMB(3.9,60,2,1705,0)="""RTN"",""IMRVPPU"",34,0)"
^XMB(3.9,60,2,1706,0)=" ;               everything is Ok or a negative error code."
^XMB(3.9,60,2,1707,0)="""RTN"",""IMRVPPU"",35,0)"
^XMB(3.9,60,2,1708,0)=" ;"
^XMB(3.9,60,2,1709,0)="""RTN"",""IMRVPPU"",36,0)"
^XMB(3.9,60,2,1710,0)=" ; [PARAM]       Value to set checkpoint parameter to."
^XMB(3.9,60,2,1711,0)="""RTN"",""IMRVPPU"",37,0)"
^XMB(3.9,60,2,1712,0)=" ;"
^XMB(3.9,60,2,1713,0)="""RTN"",""IMRVPPU"",38,0)"
^XMB(3.9,60,2,1714,0)=" ; The function checks if the checkpoint is completed. If it is not,"
^XMB(3.9,60,2,1715,0)="""RTN"",""IMRVPPU"",39,0)"
^XMB(3.9,60,2,1716,0)=" ; the callback entry point is XECUTEd. If everything is Ok, the"
^XMB(3.9,60,2,1717,0)="""RTN"",""IMRVPPU"",40,0)"
^XMB(3.9,60,2,1718,0)=" ; function will complete the checkpoint."
^XMB(3.9,60,2,1719,0)="""RTN"",""IMRVPPU"",41,0)"
^XMB(3.9,60,2,1720,0)=" ;"
^XMB(3.9,60,2,1721,0)="""RTN"",""IMRVPPU"",42,0)"
^XMB(3.9,60,2,1722,0)=" ; Return Values:"
^XMB(3.9,60,2,1723,0)="""RTN"",""IMRVPPU"",43,0)"
^XMB(3.9,60,2,1724,0)=" ;       <0  Error code"
^XMB(3.9,60,2,1725,0)="""RTN"",""IMRVPPU"",44,0)"
^XMB(3.9,60,2,1726,0)=" ;        0  Ok"
^XMB(3.9,60,2,1727,0)="""RTN"",""IMRVPPU"",45,0)"
^XMB(3.9,60,2,1728,0)=" ;"
^XMB(3.9,60,2,1729,0)="""RTN"",""IMRVPPU"",46,0)"
^XMB(3.9,60,2,1730,0)="CP(CPNAME,CALLBACK,PARAM) ;"
^XMB(3.9,60,2,1731,0)="""RTN"",""IMRVPPU"",47,0)"
^XMB(3.9,60,2,1732,0)=" N RC"
^XMB(3.9,60,2,1733,0)="""RTN"",""IMRVPPU"",48,0)"
^XMB(3.9,60,2,1734,0)=" ;--- Verify the checkpoint and quit if it is completed"
^XMB(3.9,60,2,1735,0)="""RTN"",""IMRVPPU"",49,0)"
^XMB(3.9,60,2,1736,0)=" S RC=$$VERCP^XPDUTL(CPNAME)  Q:RC>0 0"
^XMB(3.9,60,2,1737,0)="""RTN"",""IMRVPPU"",50,0)"
^XMB(3.9,60,2,1738,0)=" ;--- Create the new checkpoint"
^XMB(3.9,60,2,1739,0)="""RTN"",""IMRVPPU"",51,0)"
^XMB(3.9,60,2,1740,0)=" I RC<0  D  Q:'RC $$ERROR^IMRVPPE(-3,,CPNAME)"
^XMB(3.9,60,2,1741,0)="""RTN"",""IMRVPPU"",52,0)"
^XMB(3.9,60,2,1742,0)=" . S RC=$$NEWCP^XPDUTL(CPNAME,,.PARAM)"
^XMB(3.9,60,2,1743,0)="""RTN"",""IMRVPPU"",53,0)"
^XMB(3.9,60,2,1744,0)=" ;--- Reset the KIDS progress bar"
^XMB(3.9,60,2,1745,0)="""RTN"",""IMRVPPU"",54,0)"
^XMB(3.9,60,2,1746,0)=" S XPDIDTOT=0  D UPDATE^XPDID(0)"
^XMB(3.9,60,2,1747,0)="""RTN"",""IMRVPPU"",55,0)"
^XMB(3.9,60,2,1748,0)=" ;--- Execute the callback entry point"
^XMB(3.9,60,2,1749,0)="""RTN"",""IMRVPPU"",56,0)"
^XMB(3.9,60,2,1750,0)=" X ""S RC=""_CALLBACK  Q:RC<0 RC"
^XMB(3.9,60,2,1751,0)="""RTN"",""IMRVPPU"",57,0)"
^XMB(3.9,60,2,1752,0)=" ;--- Complete the check point"
^XMB(3.9,60,2,1753,0)="""RTN"",""IMRVPPU"",58,0)"
^XMB(3.9,60,2,1754,0)=" S RC=$$COMCP^XPDUTL(CPNAME)"
^XMB(3.9,60,2,1755,0)="""RTN"",""IMRVPPU"",59,0)"
^XMB(3.9,60,2,1756,0)=" Q:'RC $$ERROR^IMRVPPE(-4,,CPNAME)"
^XMB(3.9,60,2,1757,0)="""RTN"",""IMRVPPU"",60,0)"
^XMB(3.9,60,2,1758,0)=" Q 0"
^XMB(3.9,60,2,1759,0)="""RTN"",""IMRVPPU"",61,0)"
^XMB(3.9,60,2,1760,0)=" ;"
^XMB(3.9,60,2,1761,0)="""RTN"",""IMRVPPU"",62,0)"
^XMB(3.9,60,2,1762,0)=" ;***** DISPLAYS INDENTED PRE OR POST-INSTALLATION MESSAGE"
^XMB(3.9,60,2,1763,0)="""RTN"",""IMRVPPU"",63,0)"
^XMB(3.9,60,2,1764,0)=" ;"
^XMB(3.9,60,2,1765,0)="""RTN"",""IMRVPPU"",64,0)"
^XMB(3.9,60,2,1766,0)=" ; [MSG]         Message text"
^XMB(3.9,60,2,1767,0)="""RTN"",""IMRVPPU"",65,0)"
^XMB(3.9,60,2,1768,0)=" ; [.INFO]       Reference to a local array with additional text"
^XMB(3.9,60,2,1769,0)="""RTN"",""IMRVPPU"",66,0)"
^XMB(3.9,60,2,1770,0)=" ; [SKIP]        Skip a line before the output (no, by default)"
^XMB(3.9,60,2,1771,0)="""RTN"",""IMRVPPU"",67,0)"
^XMB(3.9,60,2,1772,0)=" ; [INDENT]      Number of indentation spaces (3, by default)"
^XMB(3.9,60,2,1773,0)="""RTN"",""IMRVPPU"",68,0)"
^XMB(3.9,60,2,1774,0)=" ;"
^XMB(3.9,60,2,1775,0)="""RTN"",""IMRVPPU"",69,0)"
^XMB(3.9,60,2,1776,0)="MSG(MSG,INFO,SKIP,INDENT) ;"
^XMB(3.9,60,2,1777,0)="""RTN"",""IMRVPPU"",70,0)"
^XMB(3.9,60,2,1778,0)=" Q:$G(IMRVPP(""SILENT""))"
^XMB(3.9,60,2,1779,0)="""RTN"",""IMRVPPU"",71,0)"
^XMB(3.9,60,2,1780,0)=" N I,J,MSGTEXT,PI,SPACES"
^XMB(3.9,60,2,1781,0)="""RTN"",""IMRVPPU"",72,0)"
^XMB(3.9,60,2,1782,0)=" S:$G(INDENT,-1)<0 INDENT=3"
^XMB(3.9,60,2,1783,0)="""RTN"",""IMRVPPU"",73,0)"
^XMB(3.9,60,2,1784,0)=" ;--- Environment check or regular process"
^XMB(3.9,60,2,1785,0)="""RTN"",""IMRVPPU"",74,0)"
^XMB(3.9,60,2,1786,0)=" I $D(XPDENV)!($G(XPDNM)="""")  D  Q"
^XMB(3.9,60,2,1787,0)="""RTN"",""IMRVPPU"",75,0)"
^XMB(3.9,60,2,1788,0)=" . S I=""""  W:$G(SKIP) !  W:$G(MSG)'="""" !?INDENT,MSG"
^XMB(3.9,60,2,1789,0)="""RTN"",""IMRVPPU"",76,0)"
^XMB(3.9,60,2,1790,0)=" . F  S I=$O(INFO(I))  Q:I=""""  W !?INDENT,INFO(I)"
^XMB(3.9,60,2,1791,0)="""RTN"",""IMRVPPU"",77,0)"
^XMB(3.9,60,2,1792,0)=" ;--- Pre or post-installation process"
^XMB(3.9,60,2,1793,0)="""RTN"",""IMRVPPU"",78,0)"
^XMB(3.9,60,2,1794,0)=" S J=0,SPACES=$J("""",INDENT)"
^XMB(3.9,60,2,1795,0)="""RTN"",""IMRVPPU"",79,0)"
^XMB(3.9,60,2,1796,0)=" S:$G(SKIP) J=J+1,MSGTEXT(J)="" """
^XMB(3.9,60,2,1797,0)="""RTN"",""IMRVPPU"",80,0)"
^XMB(3.9,60,2,1798,0)=" S:$G(MSG)'="""" J=J+1,MSGTEXT(J)=SPACES_MSG"
^XMB(3.9,60,2,1799,0)="""RTN"",""IMRVPPU"",81,0)"
^XMB(3.9,60,2,1800,0)=" S PI=$Q(INFO)"
^XMB(3.9,60,2,1801,0)="""RTN"",""IMRVPPU"",82,0)"
^XMB(3.9,60,2,1802,0)=" F J=J+1:1  Q:PI=""""  S MSGTEXT(J)=SPACES_@PI  S PI=$Q(@PI)"
^XMB(3.9,60,2,1803,0)="""RTN"",""IMRVPPU"",83,0)"
^XMB(3.9,60,2,1804,0)=" D MES^XPDUTL(.MSGTEXT)"
^XMB(3.9,60,2,1805,0)="""RTN"",""IMRVPPU"",84,0)"
^XMB(3.9,60,2,1806,0)=" Q"
^XMB(3.9,60,2,1807,0)="""RTN"",""IMRVPPU"",85,0)"
^XMB(3.9,60,2,1808,0)=" ;"
^XMB(3.9,60,2,1809,0)="""RTN"",""IMRVPPU"",86,0)"
^XMB(3.9,60,2,1810,0)=" ;***** PAUSES THE OUTPUT AT PAGE END"
^XMB(3.9,60,2,1811,0)="""RTN"",""IMRVPPU"",87,0)"
^XMB(3.9,60,2,1812,0)=" ;"
^XMB(3.9,60,2,1813,0)="""RTN"",""IMRVPPU"",88,0)"
^XMB(3.9,60,2,1814,0)=" ; [RESERVE]     Number of lines to reserve (none, by default)"
^XMB(3.9,60,2,1815,0)="""RTN"",""IMRVPPU"",89,0)"
^XMB(3.9,60,2,1816,0)=" ; [FORCE]       Force the prompt"
^XMB(3.9,60,2,1817,0)="""RTN"",""IMRVPPU"",90,0)"
^XMB(3.9,60,2,1818,0)=" ;"
^XMB(3.9,60,2,1819,0)="""RTN"",""IMRVPPU"",91,0)"
^XMB(3.9,60,2,1820,0)=" ; Return values:"
^XMB(3.9,60,2,1821,0)="""RTN"",""IMRVPPU"",92,0)"
^XMB(3.9,60,2,1822,0)=" ;       -2  Timeout"
^XMB(3.9,60,2,1823,0)="""RTN"",""IMRVPPU"",93,0)"
^XMB(3.9,60,2,1824,0)=" ;       -1  User entered a '^'"
^XMB(3.9,60,2,1825,0)="""RTN"",""IMRVPPU"",94,0)"
^XMB(3.9,60,2,1826,0)=" ;        0  Continue"
^XMB(3.9,60,2,1827,0)="""RTN"",""IMRVPPU"",95,0)"
^XMB(3.9,60,2,1828,0)=" ;"
^XMB(3.9,60,2,1829,0)="""RTN"",""IMRVPPU"",96,0)"
^XMB(3.9,60,2,1830,0)="PAGE(RESERVE,FORCE) ;"
^XMB(3.9,60,2,1831,0)="""RTN"",""IMRVPPU"",97,0)"
^XMB(3.9,60,2,1832,0)=" Q:$G(IMRVPP(""PGLEN""))'>0 0"
^XMB(3.9,60,2,1833,0)="""RTN"",""IMRVPPU"",98,0)"
^XMB(3.9,60,2,1834,0)=" ;--- Check if the current page is full"
^XMB(3.9,60,2,1835,0)="""RTN"",""IMRVPPU"",99,0)"
^XMB(3.9,60,2,1836,0)=" I '$G(FORCE)  D  Q:($Y+RESERVE)<IMRVPP(""PGLEN"") 0"
^XMB(3.9,60,2,1837,0)="""RTN"",""IMRVPPU"",100,0)"
^XMB(3.9,60,2,1838,0)=" . I $G(RESERVE)'>0  S RESERVE=0  Q"
^XMB(3.9,60,2,1839,0)="""RTN"",""IMRVPPU"",101,0)"
^XMB(3.9,60,2,1840,0)=" . S:RESERVE>IMRVPP(""PGLEN"") RESERVE=IMRVPP(""PGLEN"")"
^XMB(3.9,60,2,1841,0)="""RTN"",""IMRVPPU"",102,0)"
^XMB(3.9,60,2,1842,0)=" ;--- Silent mode or non-interactive output device"
^XMB(3.9,60,2,1843,0)="""RTN"",""IMRVPPU"",103,0)"
^XMB(3.9,60,2,1844,0)=" I $G(IMRVPP(""SILENT""))!($G(IOST)'[""C-"")  S $Y=0  Q 0"
^XMB(3.9,60,2,1845,0)="""RTN"",""IMRVPPU"",104,0)"
^XMB(3.9,60,2,1846,0)=" ;--- Display prompt and wait for input"
^XMB(3.9,60,2,1847,0)="""RTN"",""IMRVPPU"",105,0)"
^XMB(3.9,60,2,1848,0)=" N DA,DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y"
^XMB(3.9,60,2,1849,0)="""RTN"",""IMRVPPU"",106,0)"
^XMB(3.9,60,2,1850,0)=" S DIR(0)=""E""  D ^DIR  S $Y=0"
^XMB(3.9,60,2,1851,0)="""RTN"",""IMRVPPU"",107,0)"
^XMB(3.9,60,2,1852,0)=" Q $S($D(DUOUT):-1,$D(DTOUT):-2,1:0)"
^XMB(3.9,60,2,1853,0)="""RTN"",""IMRVPPU"",108,0)"
^XMB(3.9,60,2,1854,0)=" ;"
^XMB(3.9,60,2,1855,0)="""RTN"",""IMRVPPU"",109,0)"
^XMB(3.9,60,2,1856,0)=" ;***** PRINTS COLUMNS"
^XMB(3.9,60,2,1857,0)="""RTN"",""IMRVPPU"",110,0)"
^XMB(3.9,60,2,1858,0)=" ;"
^XMB(3.9,60,2,1859,0)="""RTN"",""IMRVPPU"",111,0)"
^XMB(3.9,60,2,1860,0)=" ;"
^XMB(3.9,60,2,1861,0)="""RTN"",""IMRVPPU"",112,0)"
^XMB(3.9,60,2,1862,0)=" ; .BUF          Reference to a local variable that will be used"
^XMB(3.9,60,2,1863,0)="""RTN"",""IMRVPPU"",113,0)"
^XMB(3.9,60,2,1864,0)=" ;               as a buffer/descriptor for the output"
^XMB(3.9,60,2,1865,0)="""RTN"",""IMRVPPU"",114,0)"
^XMB(3.9,60,2,1866,0)=" ;"
^XMB(3.9,60,2,1867,0)="""RTN"",""IMRVPPU"",115,0)"
^XMB(3.9,60,2,1868,0)=" ; [VAL]         Either column value (if $G(MODE)=0) or maximum"
^XMB(3.9,60,2,1869,0)="""RTN"",""IMRVPPU"",116,0)"
^XMB(3.9,60,2,1870,0)=" ;               length of column value (if MODE=1)"
^XMB(3.9,60,2,1871,0)="""RTN"",""IMRVPPU"",117,0)"
^XMB(3.9,60,2,1872,0)=" ;"
^XMB(3.9,60,2,1873,0)="""RTN"",""IMRVPPU"",118,0)"
^XMB(3.9,60,2,1874,0)=" ; [MODE]        Mode of execution:"
^XMB(3.9,60,2,1875,0)="""RTN"",""IMRVPPU"",119,0)"
^XMB(3.9,60,2,1876,0)=" ;                 0  Output the column value (default)"
^XMB(3.9,60,2,1877,0)="""RTN"",""IMRVPPU"",120,0)"
^XMB(3.9,60,2,1878,0)=" ;                 1  Initialize the buffer"
^XMB(3.9,60,2,1879,0)="""RTN"",""IMRVPPU"",121,0)"
^XMB(3.9,60,2,1880,0)=" ;                 2  Flush the buffer"
^XMB(3.9,60,2,1881,0)="""RTN"",""IMRVPPU"",122,0)"
^XMB(3.9,60,2,1882,0)=" ;"
^XMB(3.9,60,2,1883,0)="""RTN"",""IMRVPPU"",123,0)"
^XMB(3.9,60,2,1884,0)=" ; Return values:"
^XMB(3.9,60,2,1885,0)="""RTN"",""IMRVPPU"",124,0)"
^XMB(3.9,60,2,1886,0)=" ;       -6  Invalid parameter"
^XMB(3.9,60,2,1887,0)="""RTN"",""IMRVPPU"",125,0)"
^XMB(3.9,60,2,1888,0)=" ;       -2  Timeout"
^XMB(3.9,60,2,1889,0)="""RTN"",""IMRVPPU"",126,0)"
^XMB(3.9,60,2,1890,0)=" ;       -1  User entered a '^'"
^XMB(3.9,60,2,1891,0)="""RTN"",""IMRVPPU"",127,0)"
^XMB(3.9,60,2,1892,0)=" ;        0  Continue"
^XMB(3.9,60,2,1893,0)="""RTN"",""IMRVPPU"",128,0)"
^XMB(3.9,60,2,1894,0)=" ;"
^XMB(3.9,60,2,1895,0)="""RTN"",""IMRVPPU"",129,0)"
^XMB(3.9,60,2,1896,0)=" ; NOTE: This entry point can also be called as a procedure:"
^XMB(3.9,60,2,1897,0)="""RTN"",""IMRVPPU"",130,0)"
^XMB(3.9,60,2,1898,0)=" ;       D PRINTCL^IMRVPP1(...) if you do not need its return value."
^XMB(3.9,60,2,1899,0)="""RTN"",""IMRVPPU"",131,0)"
^XMB(3.9,60,2,1900,0)=" ;"
^XMB(3.9,60,2,1901,0)="""RTN"",""IMRVPPU"",132,0)"
^XMB(3.9,60,2,1902,0)="PRINTCL(BUF,VAL,MODE) ;"
^XMB(3.9,60,2,1903,0)="""RTN"",""IMRVPPU"",133,0)"
^XMB(3.9,60,2,1904,0)=" N RC  S RC=0"
^XMB(3.9,60,2,1905,0)="""RTN"",""IMRVPPU"",134,0)"
^XMB(3.9,60,2,1906,0)=" ;--- Output the column value"
^XMB(3.9,60,2,1907,0)="""RTN"",""IMRVPPU"",135,0)"
^XMB(3.9,60,2,1908,0)=" I '$G(MODE)  D  Q:$QUIT RC  Q"
^XMB(3.9,60,2,1909,0)="""RTN"",""IMRVPPU"",136,0)"
^XMB(3.9,60,2,1910,0)=" . I '(BUF(""I"")#BUF(""N""))  D  S RC=$$PAGE^IMRVPPU()"
^XMB(3.9,60,2,1911,0)="""RTN"",""IMRVPPU"",137,0)"
^XMB(3.9,60,2,1912,0)=" . . D MSG(BUF)  S BUF="""""
^XMB(3.9,60,2,1913,0)="""RTN"",""IMRVPPU"",138,0)"
^XMB(3.9,60,2,1914,0)=" . S BUF=BUF_$$LJ^XLFSTR(VAL,BUF(""W"")),BUF(""I"")=BUF(""I"")+1"
^XMB(3.9,60,2,1915,0)="""RTN"",""IMRVPPU"",139,0)"
^XMB(3.9,60,2,1916,0)=" ;--- Initialize"
^XMB(3.9,60,2,1917,0)="""RTN"",""IMRVPPU"",140,0)"
^XMB(3.9,60,2,1918,0)=" I MODE=1  D  Q:$QUIT 0  Q"
^XMB(3.9,60,2,1919,0)="""RTN"",""IMRVPPU"",141,0)"
^XMB(3.9,60,2,1920,0)=" . K BUF  S BUF="" "",BUF(""I"")=0"
^XMB(3.9,60,2,1921,0)="""RTN"",""IMRVPPU"",142,0)"
^XMB(3.9,60,2,1922,0)=" . S BUF(""W"")=VAL+2             S:BUF(""W"")'>2 BUF(""W"")=IOM-6"
^XMB(3.9,60,2,1923,0)="""RTN"",""IMRVPPU"",143,0)"
^XMB(3.9,60,2,1924,0)=" . S BUF(""N"")=(IOM-6)\BUF(""W"")  S:BUF(""N"")'>0 BUF(""N"")=1"
^XMB(3.9,60,2,1925,0)="""RTN"",""IMRVPPU"",144,0)"
^XMB(3.9,60,2,1926,0)=" ;--- Flush the buffer"
^XMB(3.9,60,2,1927,0)="""RTN"",""IMRVPPU"",145,0)"
^XMB(3.9,60,2,1928,0)=" I MODE=2  D  Q:$QUIT 0  Q"
^XMB(3.9,60,2,1929,0)="""RTN"",""IMRVPPU"",146,0)"
^XMB(3.9,60,2,1930,0)=" . D:BUF'="""" MSG(BUF)  K BUF"
^XMB(3.9,60,2,1931,0)="""RTN"",""IMRVPPU"",147,0)"
^XMB(3.9,60,2,1932,0)=" ;---"
^XMB(3.9,60,2,1933,0)="""RTN"",""IMRVPPU"",148,0)"
^XMB(3.9,60,2,1934,0)=" Q:$QUIT $$ERROR^IMRVPPE(-6,,'MODE')  Q"
^XMB(3.9,60,2,1935,0)="""RTN"",""IMRVPPU"",149,0)"
^XMB(3.9,60,2,1936,0)=" ;"
^XMB(3.9,60,2,1937,0)="""RTN"",""IMRVPPU"",150,0)"
^XMB(3.9,60,2,1938,0)=" ;***** UPDATES THE PROGRESS INDICATOR"
^XMB(3.9,60,2,1939,0)="""RTN"",""IMRVPPU"",151,0)"
^XMB(3.9,60,2,1940,0)="PROGRESS(VAL) ;"
^XMB(3.9,60,2,1941,0)="""RTN"",""IMRVPPU"",152,0)"
^XMB(3.9,60,2,1942,0)=" Q:$G(IMRVPP(""SILENT""))"
^XMB(3.9,60,2,1943,0)="""RTN"",""IMRVPPU"",153,0)"
^XMB(3.9,60,2,1944,0)=" ;--- KIDS progress bar is not initialized"
^XMB(3.9,60,2,1945,0)="""RTN"",""IMRVPPU"",154,0)"
^XMB(3.9,60,2,1946,0)=" I $G(XPDIDTOT)'>0  W "".""  Q"
^XMB(3.9,60,2,1947,0)="""RTN"",""IMRVPPU"",155,0)"
^XMB(3.9,60,2,1948,0)=" ;--- Environment check or regular process"
^XMB(3.9,60,2,1949,0)="""RTN"",""IMRVPPU"",156,0)"
^XMB(3.9,60,2,1950,0)=" I $D(XPDENV)!($G(XPDNM)="""")  W "".""  Q"
^XMB(3.9,60,2,1951,0)="""RTN"",""IMRVPPU"",157,0)"
^XMB(3.9,60,2,1952,0)=" ;--- Pre or post-installation process"
^XMB(3.9,60,2,1953,0)="""RTN"",""IMRVPPU"",158,0)"
^XMB(3.9,60,2,1954,0)=" D UPDATE^XPDID(VAL)"
^XMB(3.9,60,2,1955,0)="""RTN"",""IMRVPPU"",159,0)"
^XMB(3.9,60,2,1956,0)=" Q"
^XMB(3.9,60,2,1957,0)="""VER"")"
^XMB(3.9,60,2,1958,0)="8.0^22.0"
^XMB(3.9,60,2,1959,0)="""BLD"",6211,6)"
^XMB(3.9,60,2,1960,0)="^SEQ #18"
^XMB(3.9,60,2,1961,0)="$END KID IMR*2.1*21"
^XMB(3.9,60,6,0)="^3.911A^2^2"
^XMB(3.9,60,6,1,0)="POSTMASTER"
^XMB(3.9,60,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,60,6,"B","POSTMASTER",1)=""
^XMB(3.9,60,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,61,0)="IVM-2_SEQ-96_PAT-118.KID^.5^3061008.015738^^^^K"
^XMB(3.9,61,.6)="3061008"
^XMB(3.9,61,1,0)="^3.91A^2^2"
^XMB(3.9,61,1,1,0)=".5^0^3061008.015738^^^^^^^3061008.015738"
^XMB(3.9,61,1,2,0)="1^0^3061008.023756^^^^^^^3061008.023756"
^XMB(3.9,61,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,61,1,"C",.5,1)=""
^XMB(3.9,61,1,"C",1,2)=""
^XMB(3.9,61,2,0)="^^389^389^3061008"
^XMB(3.9,61,2,1,0)="$TXT Released IVM*2*118 SEQ #96"
^XMB(3.9,61,2,2,0)="Extracted from mail message"
^XMB(3.9,61,2,3,0)="$END TXT"
^XMB(3.9,61,2,4,0)="$KID IVM*2.0*118"
^XMB(3.9,61,2,5,0)="**INSTALL NAME**"
^XMB(3.9,61,2,6,0)="IVM*2.0*118"
^XMB(3.9,61,2,7,0)="""BLD"",6272,0)"
^XMB(3.9,61,2,8,0)="IVM*2.0*118^INCOME VERIFICATION MATCH^0^3060710^y"
^XMB(3.9,61,2,9,0)="""BLD"",6272,1,0)"
^XMB(3.9,61,2,10,0)="^^2^2^3060407^"
^XMB(3.9,61,2,11,0)="""BLD"",6272,1,1,0)"
^XMB(3.9,61,2,12,0)="This patch updates an earlier single-message link to process batch"
^XMB(3.9,61,2,13,0)="""BLD"",6272,1,2,0)"
^XMB(3.9,61,2,14,0)="messages and initiate the generation of A31 Update Person messages."
^XMB(3.9,61,2,15,0)="""BLD"",6272,4,0)"
^XMB(3.9,61,2,16,0)="^9.64PA^^"
^XMB(3.9,61,2,17,0)="""BLD"",6272,""ABPKG"")"
^XMB(3.9,61,2,18,0)="n"
^XMB(3.9,61,2,19,0)="""BLD"",6272,""KRN"",0)"
^XMB(3.9,61,2,20,0)="^9.67PA^8989.52^19"
^XMB(3.9,61,2,21,0)="""BLD"",6272,""KRN"",.4,0)"
^XMB(3.9,61,2,22,0)=".4"
^XMB(3.9,61,2,23,0)="""BLD"",6272,""KRN"",.401,0)"
^XMB(3.9,61,2,24,0)=".401"
^XMB(3.9,61,2,25,0)="""BLD"",6272,""KRN"",.402,0)"
^XMB(3.9,61,2,26,0)=".402"
^XMB(3.9,61,2,27,0)="""BLD"",6272,""KRN"",.403,0)"
^XMB(3.9,61,2,28,0)=".403"
^XMB(3.9,61,2,29,0)="""BLD"",6272,""KRN"",.5,0)"
^XMB(3.9,61,2,30,0)=".5"
^XMB(3.9,61,2,31,0)="""BLD"",6272,""KRN"",.84,0)"
^XMB(3.9,61,2,32,0)=".84"
^XMB(3.9,61,2,33,0)="""BLD"",6272,""KRN"",3.6,0)"
^XMB(3.9,61,2,34,0)="3.6"
^XMB(3.9,61,2,35,0)="""BLD"",6272,""KRN"",3.8,0)"
^XMB(3.9,61,2,36,0)="3.8"
^XMB(3.9,61,2,37,0)="""BLD"",6272,""KRN"",9.2,0)"
^XMB(3.9,61,2,38,0)="9.2"
^XMB(3.9,61,2,39,0)="""BLD"",6272,""KRN"",9.8,0)"
^XMB(3.9,61,2,40,0)="9.8"
^XMB(3.9,61,2,41,0)="""BLD"",6272,""KRN"",9.8,""NM"",0)"
^XMB(3.9,61,2,42,0)="^9.68A^1^1"
^XMB(3.9,61,2,43,0)="""BLD"",6272,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,61,2,44,0)="IVMPREC2^^0^B11517998"
^XMB(3.9,61,2,45,0)="""BLD"",6272,""KRN"",9.8,""NM"",""B"",""IVMPREC2"",1)"
^XMB(3.9,61,2,46,0)=""
^XMB(3.9,61,2,47,0)="""BLD"",6272,""KRN"",19,0)"
^XMB(3.9,61,2,48,0)="19"
^XMB(3.9,61,2,49,0)="""BLD"",6272,""KRN"",19.1,0)"
^XMB(3.9,61,2,50,0)="19.1"
^XMB(3.9,61,2,51,0)="""BLD"",6272,""KRN"",101,0)"
^XMB(3.9,61,2,52,0)="101"
^XMB(3.9,61,2,53,0)="""BLD"",6272,""KRN"",409.61,0)"
^XMB(3.9,61,2,54,0)="409.61"
^XMB(3.9,61,2,55,0)="""BLD"",6272,""KRN"",771,0)"
^XMB(3.9,61,2,56,0)="771"
^XMB(3.9,61,2,57,0)="""BLD"",6272,""KRN"",870,0)"
^XMB(3.9,61,2,58,0)="870"
^XMB(3.9,61,2,59,0)="""BLD"",6272,""KRN"",8989.51,0)"
^XMB(3.9,61,2,60,0)="8989.51"
^XMB(3.9,61,2,61,0)="""BLD"",6272,""KRN"",8989.52,0)"
^XMB(3.9,61,2,62,0)="8989.52"
^XMB(3.9,61,2,63,0)="""BLD"",6272,""KRN"",8994,0)"
^XMB(3.9,61,2,64,0)="8994"
^XMB(3.9,61,2,65,0)="""BLD"",6272,""KRN"",""B"",.4,.4)"
^XMB(3.9,61,2,66,0)=""
^XMB(3.9,61,2,67,0)="""BLD"",6272,""KRN"",""B"",.401,.401)"
^XMB(3.9,61,2,68,0)=""
^XMB(3.9,61,2,69,0)="""BLD"",6272,""KRN"",""B"",.402,.402)"
^XMB(3.9,61,2,70,0)=""
^XMB(3.9,61,2,71,0)="""BLD"",6272,""KRN"",""B"",.403,.403)"
^XMB(3.9,61,2,72,0)=""
^XMB(3.9,61,2,73,0)="""BLD"",6272,""KRN"",""B"",.5,.5)"
^XMB(3.9,61,2,74,0)=""
^XMB(3.9,61,2,75,0)="""BLD"",6272,""KRN"",""B"",.84,.84)"
^XMB(3.9,61,2,76,0)=""
^XMB(3.9,61,2,77,0)="""BLD"",6272,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,61,2,78,0)=""
^XMB(3.9,61,2,79,0)="""BLD"",6272,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,61,2,80,0)=""
^XMB(3.9,61,2,81,0)="""BLD"",6272,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,61,2,82,0)=""
^XMB(3.9,61,2,83,0)="""BLD"",6272,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,61,2,84,0)=""
^XMB(3.9,61,2,85,0)="""BLD"",6272,""KRN"",""B"",19,19)"
^XMB(3.9,61,2,86,0)=""
^XMB(3.9,61,2,87,0)="""BLD"",6272,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,61,2,88,0)=""
^XMB(3.9,61,2,89,0)="""BLD"",6272,""KRN"",""B"",101,101)"
^XMB(3.9,61,2,90,0)=""
^XMB(3.9,61,2,91,0)="""BLD"",6272,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,61,2,92,0)=""
^XMB(3.9,61,2,93,0)="""BLD"",6272,""KRN"",""B"",771,771)"
^XMB(3.9,61,2,94,0)=""
^XMB(3.9,61,2,95,0)="""BLD"",6272,""KRN"",""B"",870,870)"
^XMB(3.9,61,2,96,0)=""
^XMB(3.9,61,2,97,0)="""BLD"",6272,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,61,2,98,0)=""
^XMB(3.9,61,2,99,0)="""BLD"",6272,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,61,2,100,0)=""
^XMB(3.9,61,2,101,0)="""BLD"",6272,""KRN"",""B"",8994,8994)"
^XMB(3.9,61,2,102,0)=""
^XMB(3.9,61,2,103,0)="""BLD"",6272,""QUES"",0)"
^XMB(3.9,61,2,104,0)="^9.62^^"
^XMB(3.9,61,2,105,0)="""BLD"",6272,""REQB"",0)"
^XMB(3.9,61,2,106,0)="^9.611^1^1"
^XMB(3.9,61,2,107,0)="""BLD"",6272,""REQB"",1,0)"
^XMB(3.9,61,2,108,0)="IVM*2.0*112^2"
^XMB(3.9,61,2,109,0)="""BLD"",6272,""REQB"",""B"",""IVM*2.0*112"",1)"
^XMB(3.9,61,2,110,0)=""
^XMB(3.9,61,2,111,0)="""MBREQ"")"
^XMB(3.9,61,2,112,0)="0"
^XMB(3.9,61,2,113,0)="""PKG"",220,-1)"
^XMB(3.9,61,2,114,0)="1^1"
^XMB(3.9,61,2,115,0)="""PKG"",220,0)"
^XMB(3.9,61,2,116,0)="INCOME VERIFICATION MATCH^IVM^IVM Software for interface with the IVM Center"
^XMB(3.9,61,2,117,0)="""PKG"",220,20,0)"
^XMB(3.9,61,2,118,0)="^9.402P^^"
^XMB(3.9,61,2,119,0)="""PKG"",220,22,0)"
^XMB(3.9,61,2,120,0)="^9.49I^1^1"
^XMB(3.9,61,2,121,0)="""PKG"",220,22,1,0)"
^XMB(3.9,61,2,122,0)="2.0^2941021"
^XMB(3.9,61,2,123,0)="""PKG"",220,22,1,""PAH"",1,0)"
^XMB(3.9,61,2,124,0)="118^3060710"
^XMB(3.9,61,2,125,0)="""PKG"",220,22,1,""PAH"",1,1,0)"
^XMB(3.9,61,2,126,0)="^^2^2^3060710"
^XMB(3.9,61,2,127,0)="""PKG"",220,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,61,2,128,0)="This patch updates an earlier single-message link to process batch"
^XMB(3.9,61,2,129,0)="""PKG"",220,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,61,2,130,0)="messages and initiate the generation of A31 Update Person messages."
^XMB(3.9,61,2,131,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,61,2,132,0)="Y"
^XMB(3.9,61,2,133,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,61,2,134,0)="^D REP^XPDH"
^XMB(3.9,61,2,135,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,61,2,136,0)="Shall I write over your |FLAG| File"
^XMB(3.9,61,2,137,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,61,2,138,0)="YES"
^XMB(3.9,61,2,139,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,61,2,140,0)="D XPF1^XPDIQ"
^XMB(3.9,61,2,141,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,61,2,142,0)="Y"
^XMB(3.9,61,2,143,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,61,2,144,0)="^D DTA^XPDH"
^XMB(3.9,61,2,145,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,61,2,146,0)="Want my data |FLAG| yours"
^XMB(3.9,61,2,147,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,61,2,148,0)="YES"
^XMB(3.9,61,2,149,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,61,2,150,0)="D XPF2^XPDIQ"
^XMB(3.9,61,2,151,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,61,2,152,0)="YO"
^XMB(3.9,61,2,153,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,61,2,154,0)="^D INHIBIT^XPDH"
^XMB(3.9,61,2,155,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,61,2,156,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,61,2,157,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,61,2,158,0)="YES"
^XMB(3.9,61,2,159,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,61,2,160,0)="D XPI1^XPDIQ"
^XMB(3.9,61,2,161,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,61,2,162,0)="PO^VA(200,:EM"
^XMB(3.9,61,2,163,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,61,2,164,0)="^D MG^XPDH"
^XMB(3.9,61,2,165,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,61,2,166,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,61,2,167,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,61,2,168,0)=""
^XMB(3.9,61,2,169,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,61,2,170,0)="D XPM1^XPDIQ"
^XMB(3.9,61,2,171,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,61,2,172,0)="Y"
^XMB(3.9,61,2,173,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,61,2,174,0)="^D MENU^XPDH"
^XMB(3.9,61,2,175,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,61,2,176,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,61,2,177,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,61,2,178,0)="YES"
^XMB(3.9,61,2,179,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,61,2,180,0)="D XPO1^XPDIQ"
^XMB(3.9,61,2,181,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,61,2,182,0)="Y"
^XMB(3.9,61,2,183,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,61,2,184,0)="^D OPT^XPDH"
^XMB(3.9,61,2,185,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,61,2,186,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,61,2,187,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,61,2,188,0)="YES"
^XMB(3.9,61,2,189,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,61,2,190,0)="D XPZ1^XPDIQ"
^XMB(3.9,61,2,191,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,61,2,192,0)="Y"
^XMB(3.9,61,2,193,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,61,2,194,0)="^D RTN^XPDH"
^XMB(3.9,61,2,195,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,61,2,196,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,61,2,197,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,61,2,198,0)="NO"
^XMB(3.9,61,2,199,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,61,2,200,0)="D XPZ2^XPDIQ"
^XMB(3.9,61,2,201,0)="""RTN"")"
^XMB(3.9,61,2,202,0)="1"
^XMB(3.9,61,2,203,0)="""RTN"",""IVMPREC2"")"
^XMB(3.9,61,2,204,0)="0^1^B11517998^B11485332"
^XMB(3.9,61,2,205,0)="""RTN"",""IVMPREC2"",1,0)"
^XMB(3.9,61,2,206,0)="IVMPREC2 ;ALB/KCL - ROUTE INCOMING HL7 (ORU) MESSAGES BY EVENT TYPE ;5/17/02 1:43pm"
^XMB(3.9,61,2,207,0)="""RTN"",""IVMPREC2"",2,0)"
^XMB(3.9,61,2,208,0)=" ;;2.0;INCOME VERIFICATION MATCH;**12,34,112,118**;21-OCT-94"
^XMB(3.9,61,2,209,0)="""RTN"",""IVMPREC2"",3,0)"
^XMB(3.9,61,2,210,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,61,2,211,0)="""RTN"",""IVMPREC2"",4,0)"
^XMB(3.9,61,2,212,0)=" ;"
^XMB(3.9,61,2,213,0)="""RTN"",""IVMPREC2"",5,0)"
^XMB(3.9,61,2,214,0)=" ; This routine will process (ORU) HL7 messages received from the"
^XMB(3.9,61,2,215,0)="""RTN"",""IVMPREC2"",6,0)"
^XMB(3.9,61,2,216,0)=" ; IVM center. Event type code indicating type of transmission is"
^XMB(3.9,61,2,217,0)="""RTN"",""IVMPREC2"",7,0)"
^XMB(3.9,61,2,218,0)=" ; in the BHS segment. Routines based on type will be called to"
^XMB(3.9,61,2,219,0)="""RTN"",""IVMPREC2"",8,0)"
^XMB(3.9,61,2,220,0)=" ; process these messages.  For each batch an ACK will be sent to"
^XMB(3.9,61,2,221,0)="""RTN"",""IVMPREC2"",9,0)"
^XMB(3.9,61,2,222,0)=" ; the IVM Center indicating errors found.  If any errors are found"
^XMB(3.9,61,2,223,0)="""RTN"",""IVMPREC2"",10,0)"
^XMB(3.9,61,2,224,0)=" ; a batch message with AE(indicating error(s)) is sent.  If no errors"
^XMB(3.9,61,2,225,0)="""RTN"",""IVMPREC2"",11,0)"
^XMB(3.9,61,2,226,0)=" ; only a MSH and MSA with AA(no errors) is sent. The following event"
^XMB(3.9,61,2,227,0)="""RTN"",""IVMPREC2"",12,0)"
^XMB(3.9,61,2,228,0)=" ; type codes are processed in the following routines:"
^XMB(3.9,61,2,229,0)="""RTN"",""IVMPREC2"",13,0)"
^XMB(3.9,61,2,230,0)=" ;"
^XMB(3.9,61,2,231,0)="""RTN"",""IVMPREC2"",14,0)"
^XMB(3.9,61,2,232,0)=" ;    EVENT CODE    TRANSMISSION TYPE             PROCESSING ROUTINE"
^XMB(3.9,61,2,233,0)="""RTN"",""IVMPREC2"",15,0)"
^XMB(3.9,61,2,234,0)=" ;    =============================================================="
^XMB(3.9,61,2,235,0)="""RTN"",""IVMPREC2"",16,0)"
^XMB(3.9,61,2,236,0)=" ;       Z03        SSN TRANSMISSIONS                  IVMPREC5"
^XMB(3.9,61,2,237,0)="""RTN"",""IVMPREC2"",17,0)"
^XMB(3.9,61,2,238,0)=" ;       Z04        INSURANCE TRANSMISSIONS            IVMPREC3"
^XMB(3.9,61,2,239,0)="""RTN"",""IVMPREC2"",18,0)"
^XMB(3.9,61,2,240,0)=" ;       Z05        DEMOGRAPHIC TRANSMISSIONS          IVMPREC6"
^XMB(3.9,61,2,241,0)="""RTN"",""IVMPREC2"",19,0)"
^XMB(3.9,61,2,242,0)=" ;       Z06        MEANS TEST TRANSMISSIONS           IVMPREC7"
^XMB(3.9,61,2,243,0)="""RTN"",""IVMPREC2"",20,0)"
^XMB(3.9,61,2,244,0)=" ;       Z08        CASE STATUS TRANSMISSIONS          IVMPREC4"
^XMB(3.9,61,2,245,0)="""RTN"",""IVMPREC2"",21,0)"
^XMB(3.9,61,2,246,0)=" ;       Z10        INCOME TEST TRANSMISSIONS          IVMCM"
^XMB(3.9,61,2,247,0)="""RTN"",""IVMPREC2"",22,0)"
^XMB(3.9,61,2,248,0)=" ;       Z11        ENROLLMENT/ELIGIBILTY              ORUZ11^DGENUPL"
^XMB(3.9,61,2,249,0)="""RTN"",""IVMPREC2"",23,0)"
^XMB(3.9,61,2,250,0)=" ;"
^XMB(3.9,61,2,251,0)="""RTN"",""IVMPREC2"",24,0)"
^XMB(3.9,61,2,252,0)=" ;"
^XMB(3.9,61,2,253,0)="""RTN"",""IVMPREC2"",25,0)"
^XMB(3.9,61,2,254,0)="ORU ; - Receive Observational Results Unsolicited Message"
^XMB(3.9,61,2,255,0)="""RTN"",""IVMPREC2"",26,0)"
^XMB(3.9,61,2,256,0)=" ;"
^XMB(3.9,61,2,257,0)="""RTN"",""IVMPREC2"",27,0)"
^XMB(3.9,61,2,258,0)=" N DIC,%,%H,%I D NOW^%DTC S HLDT=%"
^XMB(3.9,61,2,259,0)="""RTN"",""IVMPREC2"",28,0)"
^XMB(3.9,61,2,260,0)=" K HLERR,IVMSEG1,IVMSEG2,IVMSEG3"
^XMB(3.9,61,2,261,0)="""RTN"",""IVMPREC2"",29,0)"
^XMB(3.9,61,2,262,0)=" S (HLEVN,IVMCT,IVMERROR,IVMCNTR)=0"
^XMB(3.9,61,2,263,0)="""RTN"",""IVMPREC2"",30,0)"
^XMB(3.9,61,2,264,0)=" ; Make sure POSTMASTER DUZ instead of DUZ of Person who"
^XMB(3.9,61,2,265,0)="""RTN"",""IVMPREC2"",31,0)"
^XMB(3.9,61,2,266,0)=" ; started Incoming Logical Link"
^XMB(3.9,61,2,267,0)="""RTN"",""IVMPREC2"",32,0)"
^XMB(3.9,61,2,268,0)=" S DUZ=.5"
^XMB(3.9,61,2,269,0)="""RTN"",""IVMPREC2"",33,0)"
^XMB(3.9,61,2,270,0)=" ;"
^XMB(3.9,61,2,271,0)="""RTN"",""IVMPREC2"",34,0)"
^XMB(3.9,61,2,272,0)=" ; - get incoming segment from HL7 (#772) file"
^XMB(3.9,61,2,273,0)="""RTN"",""IVMPREC2"",35,0)"
^XMB(3.9,61,2,274,0)=" N IVMRTN,SEGCNT,CNT,STATION,HLEID,HLEIDS"
^XMB(3.9,61,2,275,0)="""RTN"",""IVMPREC2"",36,0)"
^XMB(3.9,61,2,276,0)=" S IVMRTN=""IVMPREC2"" K ^TMP($J,IVMRTN),^TMP(""HLA"",$J),^TMP(""HLS"",$J)"
^XMB(3.9,61,2,277,0)="""RTN"",""IVMPREC2"",37,0)"
^XMB(3.9,61,2,278,0)=" F SEGCNT=1:1 X HLNEXT Q:HLQUIT'>0  D"
^XMB(3.9,61,2,279,0)="""RTN"",""IVMPREC2"",38,0)"
^XMB(3.9,61,2,280,0)=" . S CNT=0"
^XMB(3.9,61,2,281,0)="""RTN"",""IVMPREC2"",39,0)"
^XMB(3.9,61,2,282,0)=" . S ^TMP($J,IVMRTN,SEGCNT,CNT)=HLNODE"
^XMB(3.9,61,2,283,0)="""RTN"",""IVMPREC2"",40,0)"
^XMB(3.9,61,2,284,0)=" . F  S CNT=$O(HLNODE(CNT)) Q:'CNT  S ^TMP($J,IVMRTN,SEGCNT,CNT)=HLNODE(CNT)"
^XMB(3.9,61,2,285,0)="""RTN"",""IVMPREC2"",41,0)"
^XMB(3.9,61,2,286,0)=" ;"
^XMB(3.9,61,2,287,0)="""RTN"",""IVMPREC2"",42,0)"
^XMB(3.9,61,2,288,0)=" S HLDA=HLMTIEN"
^XMB(3.9,61,2,289,0)="""RTN"",""IVMPREC2"",43,0)"
^XMB(3.9,61,2,290,0)=" S IVMSEG=$G(^TMP($J,IVMRTN,1,0)) I IVMSEG']"""" G ORUQ"
^XMB(3.9,61,2,291,0)="""RTN"",""IVMPREC2"",44,0)"
^XMB(3.9,61,2,292,0)=" ;"
^XMB(3.9,61,2,293,0)="""RTN"",""IVMPREC2"",45,0)"
^XMB(3.9,61,2,294,0)=" ; - check for BHS "
^XMB(3.9,61,2,295,0)="""RTN"",""IVMPREC2"",46,0)"
^XMB(3.9,61,2,296,0)=" I $E(IVMSEG,1,3)'=""BHS"" G ORUQ"
^XMB(3.9,61,2,297,0)="""RTN"",""IVMPREC2"",47,0)"
^XMB(3.9,61,2,298,0)=" ;"
^XMB(3.9,61,2,299,0)="""RTN"",""IVMPREC2"",48,0)"
^XMB(3.9,61,2,300,0)=" ; - get batch control id"
^XMB(3.9,61,2,301,0)="""RTN"",""IVMPREC2"",49,0)"
^XMB(3.9,61,2,302,0)=" S HLFS=HL(""FS"")"
^XMB(3.9,61,2,303,0)="""RTN"",""IVMPREC2"",50,0)"
^XMB(3.9,61,2,304,0)=" S HLECH=HL(""ECH"")"
^XMB(3.9,61,2,305,0)="""RTN"",""IVMPREC2"",51,0)"
^XMB(3.9,61,2,306,0)=" S HLQ=$G(HL(""HLQ"")) S:HLQ="""" HLQ="""""""""""""
^XMB(3.9,61,2,307,0)="""RTN"",""IVMPREC2"",52,0)"
^XMB(3.9,61,2,308,0)=" S IVMHLMID=$P(IVMSEG,HLFS,11)"
^XMB(3.9,61,2,309,0)="""RTN"",""IVMPREC2"",53,0)"
^XMB(3.9,61,2,310,0)=" S STATION=$P(IVMSEG,HLFS,6)"
^XMB(3.9,61,2,311,0)="""RTN"",""IVMPREC2"",54,0)"
^XMB(3.9,61,2,312,0)=" ;"
^XMB(3.9,61,2,313,0)="""RTN"",""IVMPREC2"",55,0)"
^XMB(3.9,61,2,314,0)=" ; - get event type code"
^XMB(3.9,61,2,315,0)="""RTN"",""IVMPREC2"",56,0)"
^XMB(3.9,61,2,316,0)=" S IVMETC=$P($P(IVMSEG,HLFS,9),$E(HLECH),3)"
^XMB(3.9,61,2,317,0)="""RTN"",""IVMPREC2"",57,0)"
^XMB(3.9,61,2,318,0)=" S IVMETC=$P(IVMETC,$E(HLECH,2),2)"
^XMB(3.9,61,2,319,0)="""RTN"",""IVMPREC2"",58,0)"
^XMB(3.9,61,2,320,0)=" S HLEID=""VAMC ""_STATION_"" ORU-""_IVMETC_"" SERVER"""
^XMB(3.9,61,2,321,0)="""RTN"",""IVMPREC2"",59,0)"
^XMB(3.9,61,2,322,0)=" I IVMETC=""Z04"" S HLEID=HLEID_"" H""  ;HEC TO VAMC"
^XMB(3.9,61,2,323,0)="""RTN"",""IVMPREC2"",60,0)"
^XMB(3.9,61,2,324,0)=" S HLEID=$O(^ORD(101,""B"",HLEID,0)),HLEIDS="""""
^XMB(3.9,61,2,325,0)="""RTN"",""IVMPREC2"",61,0)"
^XMB(3.9,61,2,326,0)=" I HLEID]"""" S HLEIDS=$O(^ORD(101,HLEID,775,""B"",0))"
^XMB(3.9,61,2,327,0)="""RTN"",""IVMPREC2"",62,0)"
^XMB(3.9,61,2,328,0)=" ;"
^XMB(3.9,61,2,329,0)="""RTN"",""IVMPREC2"",63,0)"
^XMB(3.9,61,2,330,0)=" ; - process the message according to the event type code"
^XMB(3.9,61,2,331,0)="""RTN"",""IVMPREC2"",64,0)"
^XMB(3.9,61,2,332,0)=" S IVMDO=$S(IVMETC=""Z03"":""EN^IVMPREC5"",IVMETC=""Z04"":""EN^IVMPREC3"",IVMETC=""Z05"":""EN^IVMPREC6"",IVMETC=""Z06"":""EN^IVMPREC7"",IVMETC=""Z08"":""EN^IVMPREC4"",IVMETC=""Z10"":""ORU^IVMCM"",IVMETC=""Z11"":""ORUZ11^DGENUPL"",1:""ORUQ"")"
^XMB(3.9,61,2,333,0)="""RTN"",""IVMPREC2"",65,0)"
^XMB(3.9,61,2,334,0)=" I IVMETC=""Z11"" D"
^XMB(3.9,61,2,335,0)="""RTN"",""IVMPREC2"",66,0)"
^XMB(3.9,61,2,336,0)=" .D ORUZ11^DGENUPL(HLDA,.IVMERROR)"
^XMB(3.9,61,2,337,0)="""RTN"",""IVMPREC2"",67,0)"
^XMB(3.9,61,2,338,0)=" .S IVMCT=2*IVMERROR"
^XMB(3.9,61,2,339,0)="""RTN"",""IVMPREC2"",68,0)"
^XMB(3.9,61,2,340,0)=" .S HLEVN=IVMERROR"
^XMB(3.9,61,2,341,0)="""RTN"",""IVMPREC2"",69,0)"
^XMB(3.9,61,2,342,0)=" I IVMETC'=""Z11"" D"
^XMB(3.9,61,2,343,0)="""RTN"",""IVMPREC2"",70,0)"
^XMB(3.9,61,2,344,0)=" .D @IVMDO"
^XMB(3.9,61,2,345,0)="""RTN"",""IVMPREC2"",71,0)"
^XMB(3.9,61,2,346,0)=" Q:IVMDO=""ORUQ"" "
^XMB(3.9,61,2,347,0)="""RTN"",""IVMPREC2"",72,0)"
^XMB(3.9,61,2,348,0)=" ;"
^XMB(3.9,61,2,349,0)="""RTN"",""IVMPREC2"",73,0)"
^XMB(3.9,61,2,350,0)=" ; - if no error send ACK 'AA' message"
^XMB(3.9,61,2,351,0)="""RTN"",""IVMPREC2"",74,0)"
^XMB(3.9,61,2,352,0)=" S HLMTN=""ACK"""
^XMB(3.9,61,2,353,0)="""RTN"",""IVMPREC2"",75,0)"
^XMB(3.9,61,2,354,0)=" K HLARYTYP,HLMTIENA,HLRESLTA,HLP"
^XMB(3.9,61,2,355,0)="""RTN"",""IVMPREC2"",76,0)"
^XMB(3.9,61,2,356,0)=" I 'IVMERROR S HLMID=IVMHLMID D ACK^IVMPREC S HLARYTYP=""GM"",HLMTIENA="""""
^XMB(3.9,61,2,357,0)="""RTN"",""IVMPREC2"",77,0)"
^XMB(3.9,61,2,358,0)=" I IVMERROR S HLARYTYP=""GB"",HLMTIENA=HLMTIEN  ;HLMTIEN comes from ACK^IVMPREC"
^XMB(3.9,61,2,359,0)="""RTN"",""IVMPREC2"",78,0)"
^XMB(3.9,61,2,360,0)=" K ^TMP(""HLA"",$J) M ^TMP(""HLA"",$J)=^TMP(""HLS"",$J) K ^TMP(""HLS"",$J)"
^XMB(3.9,61,2,361,0)="""RTN"",""IVMPREC2"",79,0)"
^XMB(3.9,61,2,362,0)=" D GENACK^HLMA1(HLEID,HLMTIENS,HLEIDS,HLARYTYP,1,.HLRESLTA,HLMTIENA,.HLP)"
^XMB(3.9,61,2,363,0)="""RTN"",""IVMPREC2"",80,0)"
^XMB(3.9,61,2,364,0)=" ; The following line is added for  PFSS Registration.  This line will ensure any patient "
^XMB(3.9,61,2,365,0)="""RTN"",""IVMPREC2"",81,0)"
^XMB(3.9,61,2,366,0)=" ; registration updates received from the HEC are forwarded to a COTS billing application"
^XMB(3.9,61,2,367,0)="""RTN"",""IVMPREC2"",82,0)"
^XMB(3.9,61,2,368,0)=" ; See DBIA#4840"
^XMB(3.9,61,2,369,0)="""RTN"",""IVMPREC2"",83,0)"
^XMB(3.9,61,2,370,0)=" S X=""DGPFSS2"" X ^%ZOSF(""TEST"") I $T D BATCH^DGPFSS2(IVMRTN)"
^XMB(3.9,61,2,371,0)="""RTN"",""IVMPREC2"",84,0)"
^XMB(3.9,61,2,372,0)=" ;"
^XMB(3.9,61,2,373,0)="""RTN"",""IVMPREC2"",85,0)"
^XMB(3.9,61,2,374,0)="ORUQ ;"
^XMB(3.9,61,2,375,0)="""RTN"",""IVMPREC2"",86,0)"
^XMB(3.9,61,2,376,0)=" K DFN,IVMCNTR,IVMCT,IVMDA,IVMERR,IVMERROR,IVMHLMID,IVMNDE,IVMPTID"
^XMB(3.9,61,2,377,0)="""RTN"",""IVMPREC2"",87,0)"
^XMB(3.9,61,2,378,0)=" K IVMSEG,IVMSEG1,IVMSEG2,IVMSEG3,IVMTEXT,XMSUB"
^XMB(3.9,61,2,379,0)="""RTN"",""IVMPREC2"",88,0)"
^XMB(3.9,61,2,380,0)=" K HLARYTYP,HLMTIENA,HLRESLTA,HLP"
^XMB(3.9,61,2,381,0)="""RTN"",""IVMPREC2"",89,0)"
^XMB(3.9,61,2,382,0)=" K ^TMP($J,IVMRTN),^TMP(""HLA"",$J),^TMP(""HLS"",$J)"
^XMB(3.9,61,2,383,0)="""RTN"",""IVMPREC2"",90,0)"
^XMB(3.9,61,2,384,0)=" Q"
^XMB(3.9,61,2,385,0)="""VER"")"
^XMB(3.9,61,2,386,0)="8.0^22.0"
^XMB(3.9,61,2,387,0)="""BLD"",6272,6)"
^XMB(3.9,61,2,388,0)="^96"
^XMB(3.9,61,2,389,0)="$END KID IVM*2.0*118"
^XMB(3.9,61,6,0)="^3.911A^2^2"
^XMB(3.9,61,6,1,0)="POSTMASTER"
^XMB(3.9,61,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,61,6,"B","POSTMASTER",1)=""
^XMB(3.9,61,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,62,0)="KMPD-2_SEQ-5_PAT-5.KID^.5^3061008.015738^^^^K"
^XMB(3.9,62,.6)="3061008"
^XMB(3.9,62,1,0)="^3.91A^2^2"
^XMB(3.9,62,1,1,0)=".5^0^3061008.015738^^^^^^^3061008.015738"
^XMB(3.9,62,1,2,0)="1^0^3061008.0238^^^^^^^3061008.0238"
^XMB(3.9,62,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,62,1,"C",.5,1)=""
^XMB(3.9,62,1,"C",1,2)=""
^XMB(3.9,62,2,0)="^^2177^2177^3061008"
^XMB(3.9,62,2,1,0)="$TXT Released KMPD*2*5 SEQ #5"
^XMB(3.9,62,2,2,0)="Extracted from mail message"
^XMB(3.9,62,2,3,0)="$END TXT"
^XMB(3.9,62,2,4,0)="$KID KMPD*2.0*5"
^XMB(3.9,62,2,5,0)="**INSTALL NAME**"
^XMB(3.9,62,2,6,0)="KMPD*2.0*5"
^XMB(3.9,62,2,7,0)="""BLD"",6733,0)"
^XMB(3.9,62,2,8,0)="KMPD*2.0*5^CAPACITY MANAGEMENT TOOLS^0^3060420^y"
^XMB(3.9,62,2,9,0)="""BLD"",6733,4,0)"
^XMB(3.9,62,2,10,0)="^9.64PA^8973^1"
^XMB(3.9,62,2,11,0)="""BLD"",6733,4,8973,0)"
^XMB(3.9,62,2,12,0)="8973"
^XMB(3.9,62,2,13,0)="""BLD"",6733,4,8973,222)"
^XMB(3.9,62,2,14,0)="y^y^f^^^^n"
^XMB(3.9,62,2,15,0)="""BLD"",6733,4,""B"",8973,8973)"
^XMB(3.9,62,2,16,0)=""
^XMB(3.9,62,2,17,0)="""BLD"",6733,6)"
^XMB(3.9,62,2,18,0)="11^"
^XMB(3.9,62,2,19,0)="""BLD"",6733,""INIT"")"
^XMB(3.9,62,2,20,0)="EN^KMPDPOST"
^XMB(3.9,62,2,21,0)="""BLD"",6733,""KRN"",0)"
^XMB(3.9,62,2,22,0)="^9.67PA^8989.52^19"
^XMB(3.9,62,2,23,0)="""BLD"",6733,""KRN"",.4,0)"
^XMB(3.9,62,2,24,0)=".4"
^XMB(3.9,62,2,25,0)="""BLD"",6733,""KRN"",.401,0)"
^XMB(3.9,62,2,26,0)=".401"
^XMB(3.9,62,2,27,0)="""BLD"",6733,""KRN"",.402,0)"
^XMB(3.9,62,2,28,0)=".402"
^XMB(3.9,62,2,29,0)="""BLD"",6733,""KRN"",.403,0)"
^XMB(3.9,62,2,30,0)=".403"
^XMB(3.9,62,2,31,0)="""BLD"",6733,""KRN"",.403,""NM"",0)"
^XMB(3.9,62,2,32,0)="^9.68A^1^1"
^XMB(3.9,62,2,33,0)="""BLD"",6733,""KRN"",.403,""NM"",1,0)"
^XMB(3.9,62,2,34,0)="KMPD PARAMETERS EDIT    FILE #8973^8973^0"
^XMB(3.9,62,2,35,0)="""BLD"",6733,""KRN"",.403,""NM"",""B"",""KMPD PARAMETERS EDIT    FILE #8973"",1)"
^XMB(3.9,62,2,36,0)=""
^XMB(3.9,62,2,37,0)="""BLD"",6733,""KRN"",.5,0)"
^XMB(3.9,62,2,38,0)=".5"
^XMB(3.9,62,2,39,0)="""BLD"",6733,""KRN"",.84,0)"
^XMB(3.9,62,2,40,0)=".84"
^XMB(3.9,62,2,41,0)="""BLD"",6733,""KRN"",3.6,0)"
^XMB(3.9,62,2,42,0)="3.6"
^XMB(3.9,62,2,43,0)="""BLD"",6733,""KRN"",3.6,""NM"",0)"
^XMB(3.9,62,2,44,0)="^9.68A^1^1"
^XMB(3.9,62,2,45,0)="""BLD"",6733,""KRN"",3.6,""NM"",1,0)"
^XMB(3.9,62,2,46,0)="KMPD ECHO^^0"
^XMB(3.9,62,2,47,0)="""BLD"",6733,""KRN"",3.6,""NM"",""B"",""KMPD ECHO"",1)"
^XMB(3.9,62,2,48,0)=""
^XMB(3.9,62,2,49,0)="""BLD"",6733,""KRN"",3.8,0)"
^XMB(3.9,62,2,50,0)="3.8"
^XMB(3.9,62,2,51,0)="""BLD"",6733,""KRN"",9.2,0)"
^XMB(3.9,62,2,52,0)="9.2"
^XMB(3.9,62,2,53,0)="""BLD"",6733,""KRN"",9.8,0)"
^XMB(3.9,62,2,54,0)="9.8"
^XMB(3.9,62,2,55,0)="""BLD"",6733,""KRN"",9.8,""NM"",0)"
^XMB(3.9,62,2,56,0)="^9.68A^5^5"
^XMB(3.9,62,2,57,0)="""BLD"",6733,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,62,2,58,0)="KMPDECH^^0^B1037928"
^XMB(3.9,62,2,59,0)="""BLD"",6733,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,62,2,60,0)="KMPDUTL^^0^B12113278"
^XMB(3.9,62,2,61,0)="""BLD"",6733,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,62,2,62,0)="KMPDTU01^^0^B21700186"
^XMB(3.9,62,2,63,0)="""BLD"",6733,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,62,2,64,0)="KMPDPOST^^0^B2606774"
^XMB(3.9,62,2,65,0)="""BLD"",6733,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,62,2,66,0)="KMPDUTL7^^0^B10006436"
^XMB(3.9,62,2,67,0)="""BLD"",6733,""KRN"",9.8,""NM"",""B"",""KMPDECH"",1)"
^XMB(3.9,62,2,68,0)=""
^XMB(3.9,62,2,69,0)="""BLD"",6733,""KRN"",9.8,""NM"",""B"",""KMPDPOST"",4)"
^XMB(3.9,62,2,70,0)=""
^XMB(3.9,62,2,71,0)="""BLD"",6733,""KRN"",9.8,""NM"",""B"",""KMPDTU01"",3)"
^XMB(3.9,62,2,72,0)=""
^XMB(3.9,62,2,73,0)="""BLD"",6733,""KRN"",9.8,""NM"",""B"",""KMPDUTL"",2)"
^XMB(3.9,62,2,74,0)=""
^XMB(3.9,62,2,75,0)="""BLD"",6733,""KRN"",9.8,""NM"",""B"",""KMPDUTL7"",5)"
^XMB(3.9,62,2,76,0)=""
^XMB(3.9,62,2,77,0)="""BLD"",6733,""KRN"",19,0)"
^XMB(3.9,62,2,78,0)="19"
^XMB(3.9,62,2,79,0)="""BLD"",6733,""KRN"",19,""NM"",0)"
^XMB(3.9,62,2,80,0)="^9.68A^1^1"
^XMB(3.9,62,2,81,0)="""BLD"",6733,""KRN"",19,""NM"",1,0)"
^XMB(3.9,62,2,82,0)="KMPD ECHO^^0"
^XMB(3.9,62,2,83,0)="""BLD"",6733,""KRN"",19,""NM"",""B"",""KMPD ECHO"",1)"
^XMB(3.9,62,2,84,0)=""
^XMB(3.9,62,2,85,0)="""BLD"",6733,""KRN"",19.1,0)"
^XMB(3.9,62,2,86,0)="19.1"
^XMB(3.9,62,2,87,0)="""BLD"",6733,""KRN"",101,0)"
^XMB(3.9,62,2,88,0)="101"
^XMB(3.9,62,2,89,0)="""BLD"",6733,""KRN"",409.61,0)"
^XMB(3.9,62,2,90,0)="409.61"
^XMB(3.9,62,2,91,0)="""BLD"",6733,""KRN"",771,0)"
^XMB(3.9,62,2,92,0)="771"
^XMB(3.9,62,2,93,0)="""BLD"",6733,""KRN"",870,0)"
^XMB(3.9,62,2,94,0)="870"
^XMB(3.9,62,2,95,0)="""BLD"",6733,""KRN"",8989.51,0)"
^XMB(3.9,62,2,96,0)="8989.51"
^XMB(3.9,62,2,97,0)="""BLD"",6733,""KRN"",8989.52,0)"
^XMB(3.9,62,2,98,0)="8989.52"
^XMB(3.9,62,2,99,0)="""BLD"",6733,""KRN"",8994,0)"
^XMB(3.9,62,2,100,0)="8994"
^XMB(3.9,62,2,101,0)="""BLD"",6733,""KRN"",""B"",.4,.4)"
^XMB(3.9,62,2,102,0)=""
^XMB(3.9,62,2,103,0)="""BLD"",6733,""KRN"",""B"",.401,.401)"
^XMB(3.9,62,2,104,0)=""
^XMB(3.9,62,2,105,0)="""BLD"",6733,""KRN"",""B"",.402,.402)"
^XMB(3.9,62,2,106,0)=""
^XMB(3.9,62,2,107,0)="""BLD"",6733,""KRN"",""B"",.403,.403)"
^XMB(3.9,62,2,108,0)=""
^XMB(3.9,62,2,109,0)="""BLD"",6733,""KRN"",""B"",.5,.5)"
^XMB(3.9,62,2,110,0)=""
^XMB(3.9,62,2,111,0)="""BLD"",6733,""KRN"",""B"",.84,.84)"
^XMB(3.9,62,2,112,0)=""
^XMB(3.9,62,2,113,0)="""BLD"",6733,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,62,2,114,0)=""
^XMB(3.9,62,2,115,0)="""BLD"",6733,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,62,2,116,0)=""
^XMB(3.9,62,2,117,0)="""BLD"",6733,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,62,2,118,0)=""
^XMB(3.9,62,2,119,0)="""BLD"",6733,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,62,2,120,0)=""
^XMB(3.9,62,2,121,0)="""BLD"",6733,""KRN"",""B"",19,19)"
^XMB(3.9,62,2,122,0)=""
^XMB(3.9,62,2,123,0)="""BLD"",6733,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,62,2,124,0)=""
^XMB(3.9,62,2,125,0)="""BLD"",6733,""KRN"",""B"",101,101)"
^XMB(3.9,62,2,126,0)=""
^XMB(3.9,62,2,127,0)="""BLD"",6733,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,62,2,128,0)=""
^XMB(3.9,62,2,129,0)="""BLD"",6733,""KRN"",""B"",771,771)"
^XMB(3.9,62,2,130,0)=""
^XMB(3.9,62,2,131,0)="""BLD"",6733,""KRN"",""B"",870,870)"
^XMB(3.9,62,2,132,0)=""
^XMB(3.9,62,2,133,0)="""BLD"",6733,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,62,2,134,0)=""
^XMB(3.9,62,2,135,0)="""BLD"",6733,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,62,2,136,0)=""
^XMB(3.9,62,2,137,0)="""BLD"",6733,""KRN"",""B"",8994,8994)"
^XMB(3.9,62,2,138,0)=""
^XMB(3.9,62,2,139,0)="""BLD"",6733,""QUES"",0)"
^XMB(3.9,62,2,140,0)="^9.62^^"
^XMB(3.9,62,2,141,0)="""BLD"",6733,""REQB"",0)"
^XMB(3.9,62,2,142,0)="^9.611^1^1"
^XMB(3.9,62,2,143,0)="""BLD"",6733,""REQB"",1,0)"
^XMB(3.9,62,2,144,0)="KMPD*2.0*4^1"
^XMB(3.9,62,2,145,0)="""BLD"",6733,""REQB"",""B"",""KMPD*2.0*4"",1)"
^XMB(3.9,62,2,146,0)=""
^XMB(3.9,62,2,147,0)="""FIA"",8973)"
^XMB(3.9,62,2,148,0)="CP PARAMETERS"
^XMB(3.9,62,2,149,0)="""FIA"",8973,0)"
^XMB(3.9,62,2,150,0)="^KMPD(8973,"
^XMB(3.9,62,2,151,0)="""FIA"",8973,0,0)"
^XMB(3.9,62,2,152,0)="8973P"
^XMB(3.9,62,2,153,0)="""FIA"",8973,0,1)"
^XMB(3.9,62,2,154,0)="y^y^f^^^^n"
^XMB(3.9,62,2,155,0)="""FIA"",8973,0,10)"
^XMB(3.9,62,2,156,0)=""
^XMB(3.9,62,2,157,0)="""FIA"",8973,0,11)"
^XMB(3.9,62,2,158,0)=""
^XMB(3.9,62,2,159,0)="""FIA"",8973,0,""RLRO"")"
^XMB(3.9,62,2,160,0)=""
^XMB(3.9,62,2,161,0)="""FIA"",8973,0,""VR"")"
^XMB(3.9,62,2,162,0)="2.0^KMPD"
^XMB(3.9,62,2,163,0)="""FIA"",8973,8973)"
^XMB(3.9,62,2,164,0)="0"
^XMB(3.9,62,2,165,0)="""FIA"",8973,8973.01)"
^XMB(3.9,62,2,166,0)="0"
^XMB(3.9,62,2,167,0)="""FIA"",8973,8973.02)"
^XMB(3.9,62,2,168,0)="0"
^XMB(3.9,62,2,169,0)="""FIA"",8973,8973.03)"
^XMB(3.9,62,2,170,0)="0"
^XMB(3.9,62,2,171,0)="""FIA"",8973,8973.04)"
^XMB(3.9,62,2,172,0)="0"
^XMB(3.9,62,2,173,0)="""FIA"",8973,8973.05)"
^XMB(3.9,62,2,174,0)="0"
^XMB(3.9,62,2,175,0)="""FIA"",8973,8973.201)"
^XMB(3.9,62,2,176,0)="0"
^XMB(3.9,62,2,177,0)="""INIT"")"
^XMB(3.9,62,2,178,0)="EN^KMPDPOST"
^XMB(3.9,62,2,179,0)="""KRN"",.403,147,-1)"
^XMB(3.9,62,2,180,0)="0^1"
^XMB(3.9,62,2,181,0)="""KRN"",.403,147,0)"
^XMB(3.9,62,2,182,0)="KMPD PARAMETERS EDIT^@^@^^3031203.0915^^^8973^0^0^1"
^XMB(3.9,62,2,183,0)="""KRN"",.403,147,40,0)"
^XMB(3.9,62,2,184,0)="^.4031I^1^1"
^XMB(3.9,62,2,185,0)="""KRN"",.403,147,40,1,0)"
^XMB(3.9,62,2,186,0)="1^^1,1"
^XMB(3.9,62,2,187,0)="""KRN"",.403,147,40,1,1)"
^XMB(3.9,62,2,188,0)="Page 1"
^XMB(3.9,62,2,189,0)="""KRN"",.403,147,40,1,40,0)"
^XMB(3.9,62,2,190,0)="^.4032IP^486^2"
^XMB(3.9,62,2,191,0)="""KRN"",.403,147,40,1,40,485,0)"
^XMB(3.9,62,2,192,0)="KMPD PARAMETERS HDR^1^1,1^e"
^XMB(3.9,62,2,193,0)="""KRN"",.403,147,40,1,40,486,0)"
^XMB(3.9,62,2,194,0)="KMPD PARAMETERS PAGE 1^2^4,1^e"
^XMB(3.9,62,2,195,0)="""KRN"",.404,485,0)"
^XMB(3.9,62,2,196,0)="KMPD PARAMETERS HDR^8973^"
^XMB(3.9,62,2,197,0)="""KRN"",.404,485,40,0)"
^XMB(3.9,62,2,198,0)="^.4044I^3^3"
^XMB(3.9,62,2,199,0)="""KRN"",.404,485,40,1,0)"
^XMB(3.9,62,2,200,0)="1^CM Tools Parameters Edit^1"
^XMB(3.9,62,2,201,0)="""KRN"",.404,485,40,1,2)"
^XMB(3.9,62,2,202,0)="^^1,26"
^XMB(3.9,62,2,203,0)="""KRN"",.404,485,40,2,0)"
^XMB(3.9,62,2,204,0)="2^Page 1^1"
^XMB(3.9,62,2,205,0)="""KRN"",.404,485,40,2,2)"
^XMB(3.9,62,2,206,0)="^^1,72"
^XMB(3.9,62,2,207,0)="""KRN"",.404,485,40,3,0)"
^XMB(3.9,62,2,208,0)="3^!M^1"
^XMB(3.9,62,2,209,0)="""KRN"",.404,485,40,3,.1)"
^XMB(3.9,62,2,210,0)="S Y=$P($G(^DIC(4,+$P($G(^KMPD(8973,1,0)),U),0)),U),Y=$P($G(DDGLVID),$G(DDGLDEL))_$J("" "",(30-$L(Y))\2)_Y_$P($G(DDGLVID),$G(DDGLDEL),3)"
^XMB(3.9,62,2,211,0)="""KRN"",.404,485,40,3,2)"
^XMB(3.9,62,2,212,0)="^^2,24"
^XMB(3.9,62,2,213,0)="""KRN"",.404,486,0)"
^XMB(3.9,62,2,214,0)="KMPD PARAMETERS PAGE 1^8973"
^XMB(3.9,62,2,215,0)="""KRN"",.404,486,40,0)"
^XMB(3.9,62,2,216,0)="^.4044I^15^15"
^XMB(3.9,62,2,217,0)="""KRN"",.404,486,40,1,0)"
^XMB(3.9,62,2,218,0)="1^Current Version^3"
^XMB(3.9,62,2,219,0)="""KRN"",.404,486,40,1,1)"
^XMB(3.9,62,2,220,0)=".02"
^XMB(3.9,62,2,221,0)="""KRN"",.404,486,40,1,2)"
^XMB(3.9,62,2,222,0)="1,18^13^1,1"
^XMB(3.9,62,2,223,0)="""KRN"",.404,486,40,1,4)"
^XMB(3.9,62,2,224,0)="^^^1"
^XMB(3.9,62,2,225,0)="""KRN"",.404,486,40,2,0)"
^XMB(3.9,62,2,226,0)="2^Version Installed^3"
^XMB(3.9,62,2,227,0)="""KRN"",.404,486,40,2,1)"
^XMB(3.9,62,2,228,0)=".03"
^XMB(3.9,62,2,229,0)="""KRN"",.404,486,40,2,2)"
^XMB(3.9,62,2,230,0)="1,53^17^1,34"
^XMB(3.9,62,2,231,0)="""KRN"",.404,486,40,2,4)"
^XMB(3.9,62,2,232,0)="^^^1"
^XMB(3.9,62,2,233,0)="""KRN"",.404,486,40,3,0)"
^XMB(3.9,62,2,234,0)="3^Current Patch^3"
^XMB(3.9,62,2,235,0)="""KRN"",.404,486,40,3,1)"
^XMB(3.9,62,2,236,0)=".04"
^XMB(3.9,62,2,237,0)="""KRN"",.404,486,40,3,2)"
^XMB(3.9,62,2,238,0)="2,18^13^2,3"
^XMB(3.9,62,2,239,0)="""KRN"",.404,486,40,3,4)"
^XMB(3.9,62,2,240,0)="^^^1"
^XMB(3.9,62,2,241,0)="""KRN"",.404,486,40,4,0)"
^XMB(3.9,62,2,242,0)="4^Patch Installed^3"
^XMB(3.9,62,2,243,0)="""KRN"",.404,486,40,4,1)"
^XMB(3.9,62,2,244,0)=".05"
^XMB(3.9,62,2,245,0)="""KRN"",.404,486,40,4,2)"
^XMB(3.9,62,2,246,0)="2,53^17^2,36"
^XMB(3.9,62,2,247,0)="""KRN"",.404,486,40,4,4)"
^XMB(3.9,62,2,248,0)="^^^1"
^XMB(3.9,62,2,249,0)="""KRN"",.404,486,40,5,0)"
^XMB(3.9,62,2,250,0)="5^Purge HL7 Data After^3"
^XMB(3.9,62,2,251,0)="""KRN"",.404,486,40,5,1)"
^XMB(3.9,62,2,252,0)="3.11"
^XMB(3.9,62,2,253,0)="""KRN"",.404,486,40,5,2)"
^XMB(3.9,62,2,254,0)="5,26^3^5,4"
^XMB(3.9,62,2,255,0)="""KRN"",.404,486,40,5,11)"
^XMB(3.9,62,2,256,0)="D HLP^DDSUTL($G(^DD(8973,3.11,3)))"
^XMB(3.9,62,2,257,0)="""KRN"",.404,486,40,6,0)"
^XMB(3.9,62,2,258,0)="6^Weeks^1"
^XMB(3.9,62,2,259,0)="""KRN"",.404,486,40,6,2)"
^XMB(3.9,62,2,260,0)="^^5,30"
^XMB(3.9,62,2,261,0)="""KRN"",.404,486,40,7,0)"
^XMB(3.9,62,2,262,0)="7^Purge Timing Data after^3"
^XMB(3.9,62,2,263,0)="""KRN"",.404,486,40,7,1)"
^XMB(3.9,62,2,264,0)="4.11"
^XMB(3.9,62,2,265,0)="""KRN"",.404,486,40,7,2)"
^XMB(3.9,62,2,266,0)="6,26^3^6,1"
^XMB(3.9,62,2,267,0)="""KRN"",.404,486,40,7,11)"
^XMB(3.9,62,2,268,0)="D HLP^DDSUTL($G(^DD(8973,4.11,3)))"
^XMB(3.9,62,2,269,0)="""KRN"",.404,486,40,8,0)"
^XMB(3.9,62,2,270,0)="8^Weeks^1"
^XMB(3.9,62,2,271,0)="""KRN"",.404,486,40,8,2)"
^XMB(3.9,62,2,272,0)="^^6,30"
^XMB(3.9,62,2,273,0)="""KRN"",.404,486,40,9,0)"
^XMB(3.9,62,2,274,0)="9^Purge RUM Data After^3"
^XMB(3.9,62,2,275,0)="""KRN"",.404,486,40,9,1)"
^XMB(3.9,62,2,276,0)="2.11"
^XMB(3.9,62,2,277,0)="""KRN"",.404,486,40,9,2)"
^XMB(3.9,62,2,278,0)="7,26^3^7,4"
^XMB(3.9,62,2,279,0)="""KRN"",.404,486,40,9,11)"
^XMB(3.9,62,2,280,0)="D HLP^DDSUTL($G(^DD(8973,2.11,3)))"
^XMB(3.9,62,2,281,0)="""KRN"",.404,486,40,10,0)"
^XMB(3.9,62,2,282,0)="10^Weeks^1"
^XMB(3.9,62,2,283,0)="""KRN"",.404,486,40,10,2)"
^XMB(3.9,62,2,284,0)="^^7,30"
^XMB(3.9,62,2,285,0)="""KRN"",.404,486,40,11,0)"
^XMB(3.9,62,2,286,0)="11^Timing Monitor Update Rate - Min^3"
^XMB(3.9,62,2,287,0)="""KRN"",.404,486,40,11,1)"
^XMB(3.9,62,2,288,0)="19.01"
^XMB(3.9,62,2,289,0)="""KRN"",.404,486,40,11,2)"
^XMB(3.9,62,2,290,0)="5,72^2^5,38"
^XMB(3.9,62,2,291,0)="""KRN"",.404,486,40,11,11)"
^XMB(3.9,62,2,292,0)="D HLP^DDSUTL($G(^DD(8973,19.01,3)))"
^XMB(3.9,62,2,293,0)="""KRN"",.404,486,40,12,0)"
^XMB(3.9,62,2,294,0)="12^Timing Monitor Alert - Seconds^3"
^XMB(3.9,62,2,295,0)="""KRN"",.404,486,40,12,1)"
^XMB(3.9,62,2,296,0)="19.02"
^XMB(3.9,62,2,297,0)="""KRN"",.404,486,40,12,2)"
^XMB(3.9,62,2,298,0)="6,72^3^6,40"
^XMB(3.9,62,2,299,0)="""KRN"",.404,486,40,12,11)"
^XMB(3.9,62,2,300,0)="D HLP^DDSUTL($G(^DD(8973,19.02,3)))"
^XMB(3.9,62,2,301,0)="""KRN"",.404,486,40,13,0)"
^XMB(3.9,62,2,302,0)="13^Scheduled Down Time Start^3"
^XMB(3.9,62,2,303,0)="""KRN"",.404,486,40,13,1)"
^XMB(3.9,62,2,304,0)="5.01"
^XMB(3.9,62,2,305,0)="""KRN"",.404,486,40,13,2)"
^XMB(3.9,62,2,306,0)="10,29^20^10,2"
^XMB(3.9,62,2,307,0)="""KRN"",.404,486,40,13,11)"
^XMB(3.9,62,2,308,0)="D HLP^DDSUTL($G(^DD(8973,5.01,3)))"
^XMB(3.9,62,2,309,0)="""KRN"",.404,486,40,13,12)"
^XMB(3.9,62,2,310,0)="D:X="""" UNED^DDSUTL(14,,,1),UNED^DDSUTL(15,,,1) D:X'="""" UNED^DDSUTL(14,,,0),UNED^DDSUTL(15,,,0)"
^XMB(3.9,62,2,311,0)="""KRN"",.404,486,40,13,13)"
^XMB(3.9,62,2,312,0)="D PUT^DDSVAL(8973,.DA,5.02,""""),PUT^DDSVAL(8973,.DA,5.03,"""")"
^XMB(3.9,62,2,313,0)="""KRN"",.404,486,40,14,0)"
^XMB(3.9,62,2,314,0)="14^Scheduled Down Time Stop^3"
^XMB(3.9,62,2,315,0)="""KRN"",.404,486,40,14,1)"
^XMB(3.9,62,2,316,0)="5.02"
^XMB(3.9,62,2,317,0)="""KRN"",.404,486,40,14,2)"
^XMB(3.9,62,2,318,0)="11,29^20^11,3"
^XMB(3.9,62,2,319,0)="""KRN"",.404,486,40,14,11)"
^XMB(3.9,62,2,320,0)="D:$$GET^DDSVAL(8973,.DA,5.01)'="""" HLP^DDSUTL($G(^DD(8973,5.02,3)))"
^XMB(3.9,62,2,321,0)="""KRN"",.404,486,40,14,12)"
^XMB(3.9,62,2,322,0)="I X'="""" I X'>$$GET^DDSVAL(8973,.DA,5.01,,""I"") W $C(7) D HLP^DDSUTL(""This must be greater than the 'Scheduled Down Time Start' entry."") S X="""",DDSBR=""14"" D PUT^DDSVAL(8973,.DA,5.02,X)"
^XMB(3.9,62,2,323,0)="""KRN"",.404,486,40,15,0)"
^XMB(3.9,62,2,324,0)="15^Reason for Down Time^3"
^XMB(3.9,62,2,325,0)="""KRN"",.404,486,40,15,1)"
^XMB(3.9,62,2,326,0)="5.03"
^XMB(3.9,62,2,327,0)="""KRN"",.404,486,40,15,2)"
^XMB(3.9,62,2,328,0)="12,29^50^12,7"
^XMB(3.9,62,2,329,0)="""KRN"",.404,486,40,15,11)"
^XMB(3.9,62,2,330,0)="D HLP^DDSUTL($G(^DD(8973,5.03,3)))"
^XMB(3.9,62,2,331,0)="""KRN"",3.6,284,-1)"
^XMB(3.9,62,2,332,0)="0^1"
^XMB(3.9,62,2,333,0)="""KRN"",3.6,284,0)"
^XMB(3.9,62,2,334,0)="KMPD ECHO^CP Echo Server Error^1"
^XMB(3.9,62,2,335,0)="""KRN"",3.6,284,1,0)"
^XMB(3.9,62,2,336,0)="^3.61A^9^9^3060412^^"
^XMB(3.9,62,2,337,0)="""KRN"",3.6,284,1,1,0)"
^XMB(3.9,62,2,338,0)="The 'CP Echo Server' [KMPD ECHO] encountered an error."
^XMB(3.9,62,2,339,0)="""KRN"",3.6,284,1,2,0)"
^XMB(3.9,62,2,340,0)=" "
^XMB(3.9,62,2,341,0)="""KRN"",3.6,284,1,3,0)"
^XMB(3.9,62,2,342,0)="   Date/Time: |1|"
^XMB(3.9,62,2,343,0)="""KRN"",3.6,284,1,4,0)"
^XMB(3.9,62,2,344,0)="      Sender: |2|"
^XMB(3.9,62,2,345,0)="""KRN"",3.6,284,1,5,0)"
^XMB(3.9,62,2,346,0)=" Option name: |3|"
^XMB(3.9,62,2,347,0)="""KRN"",3.6,284,1,6,0)"
^XMB(3.9,62,2,348,0)="     Subject: |4|"
^XMB(3.9,62,2,349,0)="""KRN"",3.6,284,1,7,0)"
^XMB(3.9,62,2,350,0)="   Message #: |5|"
^XMB(3.9,62,2,351,0)="""KRN"",3.6,284,1,8,0)"
^XMB(3.9,62,2,352,0)=" "
^XMB(3.9,62,2,353,0)="""KRN"",3.6,284,1,9,0)"
^XMB(3.9,62,2,354,0)="    Comments: |6|"
^XMB(3.9,62,2,355,0)="""KRN"",3.6,284,3,0)"
^XMB(3.9,62,2,356,0)="^3.63^2^2^3060412^^"
^XMB(3.9,62,2,357,0)="""KRN"",3.6,284,3,1,0)"
^XMB(3.9,62,2,358,0)="This bulletin is sent to the KMP-CAPMAN mail group when the 'CP Echo "
^XMB(3.9,62,2,359,0)="""KRN"",3.6,284,3,2,0)"
^XMB(3.9,62,2,360,0)="Server' [KMPD ECHO] encounters an error."
^XMB(3.9,62,2,361,0)="""KRN"",3.6,284,4,0)"
^XMB(3.9,62,2,362,0)="^3.64A^6^6"
^XMB(3.9,62,2,363,0)="""KRN"",3.6,284,4,1,0)"
^XMB(3.9,62,2,364,0)="1"
^XMB(3.9,62,2,365,0)="""KRN"",3.6,284,4,1,1,0)"
^XMB(3.9,62,2,366,0)="^^2^2^3060315^"
^XMB(3.9,62,2,367,0)="""KRN"",3.6,284,4,1,1,1,0)"
^XMB(3.9,62,2,368,0)="The date and time in human-readable form when the server request was "
^XMB(3.9,62,2,369,0)="""KRN"",3.6,284,4,1,1,2,0)"
^XMB(3.9,62,2,370,0)="received."
^XMB(3.9,62,2,371,0)="""KRN"",3.6,284,4,2,0)"
^XMB(3.9,62,2,372,0)="2"
^XMB(3.9,62,2,373,0)="""KRN"",3.6,284,4,2,1,0)"
^XMB(3.9,62,2,374,0)="^^1^1^3060315^"
^XMB(3.9,62,2,375,0)="""KRN"",3.6,284,4,2,1,1,0)"
^XMB(3.9,62,2,376,0)="The name of the sender of the server request."
^XMB(3.9,62,2,377,0)="""KRN"",3.6,284,4,3,0)"
^XMB(3.9,62,2,378,0)="3"
^XMB(3.9,62,2,379,0)="""KRN"",3.6,284,4,3,1,0)"
^XMB(3.9,62,2,380,0)="^^1^1^3060315^"
^XMB(3.9,62,2,381,0)="""KRN"",3.6,284,4,3,1,1,0)"
^XMB(3.9,62,2,382,0)="The name of the option which was requested by Mailman."
^XMB(3.9,62,2,383,0)="""KRN"",3.6,284,4,4,0)"
^XMB(3.9,62,2,384,0)="4"
^XMB(3.9,62,2,385,0)="""KRN"",3.6,284,4,4,1,0)"
^XMB(3.9,62,2,386,0)="^^1^1^3060315^"
^XMB(3.9,62,2,387,0)="""KRN"",3.6,284,4,4,1,1,0)"
^XMB(3.9,62,2,388,0)="The subject of the message which requested a server."
^XMB(3.9,62,2,389,0)="""KRN"",3.6,284,4,5,0)"
^XMB(3.9,62,2,390,0)="5"
^XMB(3.9,62,2,391,0)="""KRN"",3.6,284,4,5,1,0)"
^XMB(3.9,62,2,392,0)="^^1^1^3060315^"
^XMB(3.9,62,2,393,0)="""KRN"",3.6,284,4,5,1,1,0)"
^XMB(3.9,62,2,394,0)="The internal number of the message requesting a server."
^XMB(3.9,62,2,395,0)="""KRN"",3.6,284,4,6,0)"
^XMB(3.9,62,2,396,0)="6"
^XMB(3.9,62,2,397,0)="""KRN"",3.6,284,4,6,1,0)"
^XMB(3.9,62,2,398,0)="^3.65^3^3^3060315^"
^XMB(3.9,62,2,399,0)="""KRN"",3.6,284,4,6,1,1,0)"
^XMB(3.9,62,2,400,0)="Comments appended to the bulletin. These may include errors trapped by "
^XMB(3.9,62,2,401,0)="""KRN"",3.6,284,4,6,1,2,0)"
^XMB(3.9,62,2,402,0)="the server software and/or the operating system, as well as general "
^XMB(3.9,62,2,403,0)="""KRN"",3.6,284,4,6,1,3,0)"
^XMB(3.9,62,2,404,0)="purpose messages."
^XMB(3.9,62,2,405,0)="""KRN"",19,20425,-1)"
^XMB(3.9,62,2,406,0)="0^1"
^XMB(3.9,62,2,407,0)="""KRN"",19,20425,0)"
^XMB(3.9,62,2,408,0)="KMPD ECHO^CP Echo Server^^S^^^^^^^^"
^XMB(3.9,62,2,409,0)="""KRN"",19,20425,25)"
^XMB(3.9,62,2,410,0)="ECHO^KMPDECH"
^XMB(3.9,62,2,411,0)="""KRN"",19,20425,220)"
^XMB(3.9,62,2,412,0)="KMPD ECHO^R^^N^Y^N^0^^7"
^XMB(3.9,62,2,413,0)="""KRN"",19,20425,""U"")"
^XMB(3.9,62,2,414,0)="CP ECHO SERVER"
^XMB(3.9,62,2,415,0)="""MBREQ"")"
^XMB(3.9,62,2,416,0)="0"
^XMB(3.9,62,2,417,0)="""ORD"",2,3.6)"
^XMB(3.9,62,2,418,0)="3.6;2;1;;BUL^XPDTA1;;BULE1^XPDIA1;;;BULDEL^XPDIA1"
^XMB(3.9,62,2,419,0)="""ORD"",2,3.6,0)"
^XMB(3.9,62,2,420,0)="BULLETIN"
^XMB(3.9,62,2,421,0)="""ORD"",8,.403)"
^XMB(3.9,62,2,422,0)=".403;8;;;EDEOUT^DIFROMSO(.403,DA,"""",XPDA);FPRE^DIFROMSI(.403,"""",XPDA);EPRE^DIFROMSI(.403,DA,$E(""N"",$G(XPDNEW)),XPDA,"""",OLDA);;EPOST^DIFROMSI(.403,DA,"""",XPDA);DEL^DIFROMSK(.403,"""",%)"
^XMB(3.9,62,2,423,0)="""ORD"",8,.403,0)"
^XMB(3.9,62,2,424,0)="FORM"
^XMB(3.9,62,2,425,0)="""ORD"",18,19)"
^XMB(3.9,62,2,426,0)="19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA"
^XMB(3.9,62,2,427,0)="""ORD"",18,19,0)"
^XMB(3.9,62,2,428,0)="OPTION"
^XMB(3.9,62,2,429,0)="""PKG"",556,-1)"
^XMB(3.9,62,2,430,0)="1^1"
^XMB(3.9,62,2,431,0)="""PKG"",556,0)"
^XMB(3.9,62,2,432,0)="CAPACITY MANAGEMENT TOOLS^KMPD^Capacity Management Tools"
^XMB(3.9,62,2,433,0)="""PKG"",556,22,0)"
^XMB(3.9,62,2,434,0)="^9.49I^1^1"
^XMB(3.9,62,2,435,0)="""PKG"",556,22,1,0)"
^XMB(3.9,62,2,436,0)="2.0^3040331^3040315^10292"
^XMB(3.9,62,2,437,0)="""PKG"",556,22,1,""PAH"",1,0)"
^XMB(3.9,62,2,438,0)="5^3060420^10292"
^XMB(3.9,62,2,439,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,62,2,440,0)="Y"
^XMB(3.9,62,2,441,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,62,2,442,0)="^D REP^XPDH"
^XMB(3.9,62,2,443,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,62,2,444,0)="Shall I write over your |FLAG| File"
^XMB(3.9,62,2,445,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,62,2,446,0)="YES"
^XMB(3.9,62,2,447,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,62,2,448,0)="D XPF1^XPDIQ"
^XMB(3.9,62,2,449,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,62,2,450,0)="Y"
^XMB(3.9,62,2,451,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,62,2,452,0)="^D DTA^XPDH"
^XMB(3.9,62,2,453,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,62,2,454,0)="Want my data |FLAG| yours"
^XMB(3.9,62,2,455,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,62,2,456,0)="YES"
^XMB(3.9,62,2,457,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,62,2,458,0)="D XPF2^XPDIQ"
^XMB(3.9,62,2,459,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,62,2,460,0)="YO"
^XMB(3.9,62,2,461,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,62,2,462,0)="^D INHIBIT^XPDH"
^XMB(3.9,62,2,463,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,62,2,464,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,62,2,465,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,62,2,466,0)="YES"
^XMB(3.9,62,2,467,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,62,2,468,0)="D XPI1^XPDIQ"
^XMB(3.9,62,2,469,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,62,2,470,0)="PO^VA(200,:EM"
^XMB(3.9,62,2,471,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,62,2,472,0)="^D MG^XPDH"
^XMB(3.9,62,2,473,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,62,2,474,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,62,2,475,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,62,2,476,0)=""
^XMB(3.9,62,2,477,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,62,2,478,0)="D XPM1^XPDIQ"
^XMB(3.9,62,2,479,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,62,2,480,0)="Y"
^XMB(3.9,62,2,481,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,62,2,482,0)="^D MENU^XPDH"
^XMB(3.9,62,2,483,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,62,2,484,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,62,2,485,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,62,2,486,0)="YES"
^XMB(3.9,62,2,487,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,62,2,488,0)="D XPO1^XPDIQ"
^XMB(3.9,62,2,489,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,62,2,490,0)="Y"
^XMB(3.9,62,2,491,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,62,2,492,0)="^D OPT^XPDH"
^XMB(3.9,62,2,493,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,62,2,494,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,62,2,495,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,62,2,496,0)="YES"
^XMB(3.9,62,2,497,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,62,2,498,0)="D XPZ1^XPDIQ"
^XMB(3.9,62,2,499,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,62,2,500,0)="Y"
^XMB(3.9,62,2,501,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,62,2,502,0)="^D RTN^XPDH"
^XMB(3.9,62,2,503,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,62,2,504,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,62,2,505,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,62,2,506,0)="NO"
^XMB(3.9,62,2,507,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,62,2,508,0)="D XPZ2^XPDIQ"
^XMB(3.9,62,2,509,0)="""RTN"")"
^XMB(3.9,62,2,510,0)="5"
^XMB(3.9,62,2,511,0)="""RTN"",""KMPDECH"")"
^XMB(3.9,62,2,512,0)="0^1^B1037928"
^XMB(3.9,62,2,513,0)="""RTN"",""KMPDECH"",1,0)"
^XMB(3.9,62,2,514,0)="KMPDECH ; OAK/RAK - CM Tools Echo ;4/6/06  08:40"
^XMB(3.9,62,2,515,0)="""RTN"",""KMPDECH"",2,0)"
^XMB(3.9,62,2,516,0)=" ;;2.0;CAPACITY MANAGEMENT TOOLS;**5**;Mar 22, 2002"
^XMB(3.9,62,2,517,0)="""RTN"",""KMPDECH"",3,0)"
^XMB(3.9,62,2,518,0)=" ;"
^XMB(3.9,62,2,519,0)="""RTN"",""KMPDECH"",4,0)"
^XMB(3.9,62,2,520,0)="ECHO ;-entry point"
^XMB(3.9,62,2,521,0)="""RTN"",""KMPDECH"",5,0)"
^XMB(3.9,62,2,522,0)=" ;"
^XMB(3.9,62,2,523,0)="""RTN"",""KMPDECH"",6,0)"
^XMB(3.9,62,2,524,0)=" N DATA,I,ID,SITE,SITENM,TEXT,TRANSTO,XMDUZ,XMSUB,XMTEXT,XMY"
^XMB(3.9,62,2,525,0)="""RTN"",""KMPDECH"",7,0)"
^XMB(3.9,62,2,526,0)=" ;"
^XMB(3.9,62,2,527,0)="""RTN"",""KMPDECH"",8,0)"
^XMB(3.9,62,2,528,0)=" ; get id from subject"
^XMB(3.9,62,2,529,0)="""RTN"",""KMPDECH"",9,0)"
^XMB(3.9,62,2,530,0)=" S ID=$P($G(XQSUB),""~"",2)"
^XMB(3.9,62,2,531,0)="""RTN"",""KMPDECH"",10,0)"
^XMB(3.9,62,2,532,0)=" ; scheduled downtime start and stop times"
^XMB(3.9,62,2,533,0)="""RTN"",""KMPDECH"",11,0)"
^XMB(3.9,62,2,534,0)=" S DATA=$P($G(^KMPD(8973,1,5)),U,1,2)"
^XMB(3.9,62,2,535,0)="""RTN"",""KMPDECH"",12,0)"
^XMB(3.9,62,2,536,0)=" ; site info"
^XMB(3.9,62,2,537,0)="""RTN"",""KMPDECH"",13,0)"
^XMB(3.9,62,2,538,0)=" S SITE=$$SITE^VASITE Q:SITE="""""
^XMB(3.9,62,2,539,0)="""RTN"",""KMPDECH"",14,0)"
^XMB(3.9,62,2,540,0)=" S SITENM=$P(SITE,U,2)"
^XMB(3.9,62,2,541,0)="""RTN"",""KMPDECH"",15,0)"
^XMB(3.9,62,2,542,0)=" S XMDUZ=""ECHO BACK FROM ""_SITENM"
^XMB(3.9,62,2,543,0)="""RTN"",""KMPDECH"",16,0)"
^XMB(3.9,62,2,544,0)=" S XMSUB=""CP ECHO~""_ID_""~""_$P(SITE,U,2)_"" (""_$P(SITE,U,3)_"")~"""
^XMB(3.9,62,2,545,0)="""RTN"",""KMPDECH"",17,0)"
^XMB(3.9,62,2,546,0)=" D TRANSTO^KMPDUTL7(1,5,.TRANSTO) Q:'$D(TRANSTO)"
^XMB(3.9,62,2,547,0)="""RTN"",""KMPDECH"",18,0)"
^XMB(3.9,62,2,548,0)=" S I="""""
^XMB(3.9,62,2,549,0)="""RTN"",""KMPDECH"",19,0)"
^XMB(3.9,62,2,550,0)=" F  S I=$O(TRANSTO(I)) Q:I=""""  S XMY(I)="""""
^XMB(3.9,62,2,551,0)="""RTN"",""KMPDECH"",20,0)"
^XMB(3.9,62,2,552,0)=" S TEXT(1)=""START=""_$P(DATA,U)"
^XMB(3.9,62,2,553,0)="""RTN"",""KMPDECH"",21,0)"
^XMB(3.9,62,2,554,0)=" S TEXT(2)=""STOP=""_$P(DATA,U,2)"
^XMB(3.9,62,2,555,0)="""RTN"",""KMPDECH"",22,0)"
^XMB(3.9,62,2,556,0)=" S XMTEXT=""TEXT("""
^XMB(3.9,62,2,557,0)="""RTN"",""KMPDECH"",23,0)"
^XMB(3.9,62,2,558,0)=" D ^XMD"
^XMB(3.9,62,2,559,0)="""RTN"",""KMPDECH"",24,0)"
^XMB(3.9,62,2,560,0)=" Q"
^XMB(3.9,62,2,561,0)="""RTN"",""KMPDPOST"")"
^XMB(3.9,62,2,562,0)="0^4^B2606774^B3570713"
^XMB(3.9,62,2,563,0)="""RTN"",""KMPDPOST"",1,0)"
^XMB(3.9,62,2,564,0)="KMPDPOST ;OAK/RAK - CM Tools Post Install ;4/2/04  08:55"
^XMB(3.9,62,2,565,0)="""RTN"",""KMPDPOST"",2,0)"
^XMB(3.9,62,2,566,0)=" ;;2.0;CAPACITY MANAGEMENT TOOLS;**1,2,5**;Mar 22, 2002"
^XMB(3.9,62,2,567,0)="""RTN"",""KMPDPOST"",3,0)"
^XMB(3.9,62,2,568,0)=" ;"
^XMB(3.9,62,2,569,0)="""RTN"",""KMPDPOST"",4,0)"
^XMB(3.9,62,2,570,0)="EN ;-entry point"
^XMB(3.9,62,2,571,0)="""RTN"",""KMPDPOST"",5,0)"
^XMB(3.9,62,2,572,0)=" N BTIEN,ERROR,FDA,MGIEN,ZIEN"
^XMB(3.9,62,2,573,0)="""RTN"",""KMPDPOST"",6,0)"
^XMB(3.9,62,2,574,0)=" D MES^XPDUTL(""     Adding CURRENT PATCH data to CP PARAMETERS file..."")"
^XMB(3.9,62,2,575,0)="""RTN"",""KMPDPOST"",7,0)"
^XMB(3.9,62,2,576,0)=" S FDA($J,8973,""1,"",.04)=$P($$VERSION^KMPDUTL,""^"",2)"
^XMB(3.9,62,2,577,0)="""RTN"",""KMPDPOST"",8,0)"
^XMB(3.9,62,2,578,0)=" S FDA($J,8973,""1,"",.05)=$$NOW^XLFDT"
^XMB(3.9,62,2,579,0)="""RTN"",""KMPDPOST"",9,0)"
^XMB(3.9,62,2,580,0)=" D FILE^DIE("""",""FDA($J)"",""ERROR"")"
^XMB(3.9,62,2,581,0)="""RTN"",""KMPDPOST"",10,0)"
^XMB(3.9,62,2,582,0)=" ; if error"
^XMB(3.9,62,2,583,0)="""RTN"",""KMPDPOST"",11,0)"
^XMB(3.9,62,2,584,0)=" I $D(ERROR) D MSG^DIALOG(""W"","""",60,10,""ERROR"")"
^XMB(3.9,62,2,585,0)="""RTN"",""KMPDPOST"",12,0)"
^XMB(3.9,62,2,586,0)=" ;"
^XMB(3.9,62,2,587,0)="""RTN"",""KMPDPOST"",13,0)"
^XMB(3.9,62,2,588,0)=" D MES^XPDUTL(""     Adding 'VISTA MONITOR TRANSFER TO' data to CP PARAMETERS file..."")"
^XMB(3.9,62,2,589,0)="""RTN"",""KMPDPOST"",14,0)"
^XMB(3.9,62,2,590,0)=" ; ad vista monitor 'transmit to' entries"
^XMB(3.9,62,2,591,0)="""RTN"",""KMPDPOST"",15,0)"
^XMB(3.9,62,2,592,0)=" ;"
^XMB(3.9,62,2,593,0)="""RTN"",""KMPDPOST"",16,0)"
^XMB(3.9,62,2,594,0)=" K ERROR,FDA,ZIEN"
^XMB(3.9,62,2,595,0)="""RTN"",""KMPDPOST"",17,0)"
^XMB(3.9,62,2,596,0)=" S FDA($J,8973.05,""?+1,1,"",.01)=""S.KMP7SRV@FO-ALBANY.MED.VA.GOV"""
^XMB(3.9,62,2,597,0)="""RTN"",""KMPDPOST"",18,0)"
^XMB(3.9,62,2,598,0)=" ; file data"
^XMB(3.9,62,2,599,0)="""RTN"",""KMPDPOST"",19,0)"
^XMB(3.9,62,2,600,0)=" D UPDATE^DIE("""",""FDA($J)"",""ZIEN"",""ERROR"")"
^XMB(3.9,62,2,601,0)="""RTN"",""KMPDPOST"",20,0)"
^XMB(3.9,62,2,602,0)=" ; if error"
^XMB(3.9,62,2,603,0)="""RTN"",""KMPDPOST"",21,0)"
^XMB(3.9,62,2,604,0)=" I $D(ERROR) D MSG^DIALOG(""W"","""",60,10,""ERROR"")"
^XMB(3.9,62,2,605,0)="""RTN"",""KMPDPOST"",22,0)"
^XMB(3.9,62,2,606,0)=" ;"
^XMB(3.9,62,2,607,0)="""RTN"",""KMPDPOST"",23,0)"
^XMB(3.9,62,2,608,0)=" ; bulletin ien"
^XMB(3.9,62,2,609,0)="""RTN"",""KMPDPOST"",24,0)"
^XMB(3.9,62,2,610,0)=" S BTIEN=$O(^XMB(3.6,""B"",""KMPD ECHO"",0))"
^XMB(3.9,62,2,611,0)="""RTN"",""KMPDPOST"",25,0)"
^XMB(3.9,62,2,612,0)=" ; mail group ien"
^XMB(3.9,62,2,613,0)="""RTN"",""KMPDPOST"",26,0)"
^XMB(3.9,62,2,614,0)=" S MGIEN=$O(^XMB(3.8,""B"",""KMP-CAPMAN"",0))"
^XMB(3.9,62,2,615,0)="""RTN"",""KMPDPOST"",27,0)"
^XMB(3.9,62,2,616,0)=" I BTIEN&(MGIEN) D "
^XMB(3.9,62,2,617,0)="""RTN"",""KMPDPOST"",28,0)"
^XMB(3.9,62,2,618,0)=" .D MES^XPDUTL(""     Adding mail group KMP-CAPMAN to bulletin KMPD ECHO..."")"
^XMB(3.9,62,2,619,0)="""RTN"",""KMPDPOST"",29,0)"
^XMB(3.9,62,2,620,0)=" .K ERROR,FDA,ZIEN"
^XMB(3.9,62,2,621,0)="""RTN"",""KMPDPOST"",30,0)"
^XMB(3.9,62,2,622,0)=" .S FDA($J,3.62,""?+1,""_BTIEN_"","",.01)=MGIEN"
^XMB(3.9,62,2,623,0)="""RTN"",""KMPDPOST"",31,0)"
^XMB(3.9,62,2,624,0)=" .D UPDATE^DIE("""",""FDA($J)"",""ZIEN"",""ERROR"")"
^XMB(3.9,62,2,625,0)="""RTN"",""KMPDPOST"",32,0)"
^XMB(3.9,62,2,626,0)=" .; if error"
^XMB(3.9,62,2,627,0)="""RTN"",""KMPDPOST"",33,0)"
^XMB(3.9,62,2,628,0)=" .I $D(ERROR) D MSG^DIALOG(""W"","""",60,10,""ERROR"")"
^XMB(3.9,62,2,629,0)="""RTN"",""KMPDPOST"",34,0)"
^XMB(3.9,62,2,630,0)=" ;"
^XMB(3.9,62,2,631,0)="""RTN"",""KMPDPOST"",35,0)"
^XMB(3.9,62,2,632,0)=" D MES^XPDUTL(""     Complete!"")"
^XMB(3.9,62,2,633,0)="""RTN"",""KMPDPOST"",36,0)"
^XMB(3.9,62,2,634,0)=" ;"
^XMB(3.9,62,2,635,0)="""RTN"",""KMPDPOST"",37,0)"
^XMB(3.9,62,2,636,0)=" Q"
^XMB(3.9,62,2,637,0)="""RTN"",""KMPDTU01"")"
^XMB(3.9,62,2,638,0)="0^3^B21700186^B21675708"
^XMB(3.9,62,2,639,0)="""RTN"",""KMPDTU01"",1,0)"
^XMB(3.9,62,2,640,0)="KMPDTU01 ;OAK/RAK - CM Tools Timing Utility ;4/6/06  08:40"
^XMB(3.9,62,2,641,0)="""RTN"",""KMPDTU01"",2,0)"
^XMB(3.9,62,2,642,0)=" ;;2.0;CAPACITY MANAGEMENT TOOLS;**4,5**;Mar 22, 2002"
^XMB(3.9,62,2,643,0)="""RTN"",""KMPDTU01"",3,0)"
^XMB(3.9,62,2,644,0)=" ;"
^XMB(3.9,62,2,645,0)="""RTN"",""KMPDTU01"",4,0)"
^XMB(3.9,62,2,646,0)="DAILY(KMPDT) ;-- transmit daily stats to national database"
^XMB(3.9,62,2,647,0)="""RTN"",""KMPDTU01"",5,0)"
^XMB(3.9,62,2,648,0)=" ;-----------------------------------------------------------------------"
^XMB(3.9,62,2,649,0)="""RTN"",""KMPDTU01"",6,0)"
^XMB(3.9,62,2,650,0)=" ; KMPDT.... Compression date in internal fileman formt. It represents "
^XMB(3.9,62,2,651,0)="""RTN"",""KMPDTU01"",7,0)"
^XMB(3.9,62,2,652,0)=" ;           the date from which the previous days data should be"
^XMB(3.9,62,2,653,0)="""RTN"",""KMPDTU01"",8,0)"
^XMB(3.9,62,2,654,0)=" ;           transmitted. "
^XMB(3.9,62,2,655,0)="""RTN"",""KMPDTU01"",9,0)"
^XMB(3.9,62,2,656,0)=" ;           Example: if KMPDT = 2981011  then tranmission will be"
^XMB(3.9,62,2,657,0)="""RTN"",""KMPDTU01"",10,0)"
^XMB(3.9,62,2,658,0)=" ;                    on 2981010 (KMPDT-1)"
^XMB(3.9,62,2,659,0)="""RTN"",""KMPDTU01"",11,0)"
^XMB(3.9,62,2,660,0)=" ;-----------------------------------------------------------------------"
^XMB(3.9,62,2,661,0)="""RTN"",""KMPDTU01"",12,0)"
^XMB(3.9,62,2,662,0)=" ;"
^XMB(3.9,62,2,663,0)="""RTN"",""KMPDTU01"",13,0)"
^XMB(3.9,62,2,664,0)=" Q:'$G(KMPDT)"
^XMB(3.9,62,2,665,0)="""RTN"",""KMPDTU01"",14,0)"
^XMB(3.9,62,2,666,0)=" ;"
^XMB(3.9,62,2,667,0)="""RTN"",""KMPDTU01"",15,0)"
^XMB(3.9,62,2,668,0)=" N DATE,DATA,DELTA,ERROR,FDA,HOUR,I,IEN,PIECE,PTNP,SDTM,SITE,SS"
^XMB(3.9,62,2,669,0)="""RTN"",""KMPDTU01"",16,0)"
^XMB(3.9,62,2,670,0)=" N STR"
^XMB(3.9,62,2,671,0)="""RTN"",""KMPDTU01"",17,0)"
^XMB(3.9,62,2,672,0)=" ;"
^XMB(3.9,62,2,673,0)="""RTN"",""KMPDTU01"",18,0)"
^XMB(3.9,62,2,674,0)=" ; storage  processed"
^XMB(3.9,62,2,675,0)="""RTN"",""KMPDTU01"",19,0)"
^XMB(3.9,62,2,676,0)=" K ^TMP($J),^TMP(""KMPDTU01"",$J)"
^XMB(3.9,62,2,677,0)="""RTN"",""KMPDTU01"",20,0)"
^XMB(3.9,62,2,678,0)=" ; site info."
^XMB(3.9,62,2,679,0)="""RTN"",""KMPDTU01"",21,0)"
^XMB(3.9,62,2,680,0)=" S SITE=$$SITE^VASITE Q:SITE="""""
^XMB(3.9,62,2,681,0)="""RTN"",""KMPDTU01"",22,0)"
^XMB(3.9,62,2,682,0)=" S IEN=0"
^XMB(3.9,62,2,683,0)="""RTN"",""KMPDTU01"",23,0)"
^XMB(3.9,62,2,684,0)=" W:'$D(ZTQUEUED) !,""Compressing data into daily format..."""
^XMB(3.9,62,2,685,0)="""RTN"",""KMPDTU01"",24,0)"
^XMB(3.9,62,2,686,0)=" F  S IEN=$O(^KMPD(8973.2,""ADT"",KMPDT,IEN)) Q:'IEN  D "
^XMB(3.9,62,2,687,0)="""RTN"",""KMPDTU01"",25,0)"
^XMB(3.9,62,2,688,0)=" .Q:'$D(^KMPD(8973.2,IEN,0))  S DATA(0)=^(0)"
^XMB(3.9,62,2,689,0)="""RTN"",""KMPDTU01"",26,0)"
^XMB(3.9,62,2,690,0)=" .; quit if daily data has already been sent to national database"
^XMB(3.9,62,2,691,0)="""RTN"",""KMPDTU01"",27,0)"
^XMB(3.9,62,2,692,0)=" .;Q:$P(DATA(0),U,10)"
^XMB(3.9,62,2,693,0)="""RTN"",""KMPDTU01"",28,0)"
^XMB(3.9,62,2,694,0)=" .W:'$D(ZTQUEUED)&('(IEN#1000)) ""."""
^XMB(3.9,62,2,695,0)="""RTN"",""KMPDTU01"",29,0)"
^XMB(3.9,62,2,696,0)=" .; start date/time      date w/no time    delta"
^XMB(3.9,62,2,697,0)="""RTN"",""KMPDTU01"",30,0)"
^XMB(3.9,62,2,698,0)=" .S SDTM=$P(DATA(0),U,3),DATE=$P(SDTM,"".""),DELTA=$P(DATA(0),U,4)"
^XMB(3.9,62,2,699,0)="""RTN"",""KMPDTU01"",31,0)"
^XMB(3.9,62,2,700,0)=" .; hour"
^XMB(3.9,62,2,701,0)="""RTN"",""KMPDTU01"",32,0)"
^XMB(3.9,62,2,702,0)=" .S HOUR=+$E($P(SDTM,""."",2),1,2)"
^XMB(3.9,62,2,703,0)="""RTN"",""KMPDTU01"",33,0)"
^XMB(3.9,62,2,704,0)=" .; quit if no kmptmp subscript"
^XMB(3.9,62,2,705,0)="""RTN"",""KMPDTU01"",34,0)"
^XMB(3.9,62,2,706,0)=" .S SS=$P(DATA(0),U,7)  Q:SS="""""
^XMB(3.9,62,2,707,0)="""RTN"",""KMPDTU01"",35,0)"
^XMB(3.9,62,2,708,0)=" .;"
^XMB(3.9,62,2,709,0)="""RTN"",""KMPDTU01"",36,0)"
^XMB(3.9,62,2,710,0)=" .S PTNP=$$PTNP^KMPDHU03(SDTM) Q:'PTNP"
^XMB(3.9,62,2,711,0)="""RTN"",""KMPDTU01"",37,0)"
^XMB(3.9,62,2,712,0)=" .; piece 4 - prime time"
^XMB(3.9,62,2,713,0)="""RTN"",""KMPDTU01"",38,0)"
^XMB(3.9,62,2,714,0)=" .; piece 5 - non-prime time"
^XMB(3.9,62,2,715,0)="""RTN"",""KMPDTU01"",39,0)"
^XMB(3.9,62,2,716,0)=" .S PIECE=$S(PTNP=1:4,1:5)"
^XMB(3.9,62,2,717,0)="""RTN"",""KMPDTU01"",40,0)"
^XMB(3.9,62,2,718,0)=" .;"
^XMB(3.9,62,2,719,0)="""RTN"",""KMPDTU01"",41,0)"
^XMB(3.9,62,2,720,0)=" .S $P(^TMP($J,KMPDT,SS),U)=KMPDT"
^XMB(3.9,62,2,721,0)="""RTN"",""KMPDTU01"",42,0)"
^XMB(3.9,62,2,722,0)=" .S $P(^TMP($J,KMPDT,SS),U,3)=SS"
^XMB(3.9,62,2,723,0)="""RTN"",""KMPDTU01"",43,0)"
^XMB(3.9,62,2,724,0)=" .S $P(^TMP($J,KMPDT,SS),U,PIECE)=$P(^TMP($J,KMPDT,SS),U,PIECE)+DELTA"
^XMB(3.9,62,2,725,0)="""RTN"",""KMPDTU01"",44,0)"
^XMB(3.9,62,2,726,0)=" .S $P(^TMP($J,KMPDT,SS),U,(PIECE+2))=$P(^TMP($J,KMPDT,SS),U,(PIECE+2))+1"
^XMB(3.9,62,2,727,0)="""RTN"",""KMPDTU01"",45,0)"
^XMB(3.9,62,2,728,0)=" .; hourly delta"
^XMB(3.9,62,2,729,0)="""RTN"",""KMPDTU01"",46,0)"
^XMB(3.9,62,2,730,0)=" .S $P(^TMP($J,KMPDT,SS,PTNP),U,(HOUR+1))=$P($G(^TMP($J,KMPDT,SS,PTNP)),U,(HOUR+1))+DELTA"
^XMB(3.9,62,2,731,0)="""RTN"",""KMPDTU01"",47,0)"
^XMB(3.9,62,2,732,0)=" .; hourly occurrences"
^XMB(3.9,62,2,733,0)="""RTN"",""KMPDTU01"",48,0)"
^XMB(3.9,62,2,734,0)=" .S $P(^TMP($J,KMPDT,SS,PTNP+.1),U,(HOUR+1))=$P($G(^TMP($J,KMPDT,SS,PTNP+.1)),U,(HOUR+1))+1"
^XMB(3.9,62,2,735,0)="""RTN"",""KMPDTU01"",49,0)"
^XMB(3.9,62,2,736,0)=" .; node 99.1 is for national database (end date^facility name)"
^XMB(3.9,62,2,737,0)="""RTN"",""KMPDTU01"",50,0)"
^XMB(3.9,62,2,738,0)=" .S ^TMP($J,KMPDT,SS,99.1)=KMPDT_""^""_$P(SITE,U,2)_""^""_$P(SITE,U,3)_""^""_$$WORKDAY^XUWORKDY(DATE)"
^XMB(3.9,62,2,739,0)="""RTN"",""KMPDTU01"",51,0)"
^XMB(3.9,62,2,740,0)=" .; add to processed array."
^XMB(3.9,62,2,741,0)="""RTN"",""KMPDTU01"",52,0)"
^XMB(3.9,62,2,742,0)=" .S ^TMP(""KMPDTU01"",$J,IEN)="""""
^XMB(3.9,62,2,743,0)="""RTN"",""KMPDTU01"",53,0)"
^XMB(3.9,62,2,744,0)=" ;"
^XMB(3.9,62,2,745,0)="""RTN"",""KMPDTU01"",54,0)"
^XMB(3.9,62,2,746,0)=" D:$D(^TMP($J)) TRANSMIT(2)"
^XMB(3.9,62,2,747,0)="""RTN"",""KMPDTU01"",55,0)"
^XMB(3.9,62,2,748,0)=" K ^TMP($J)"
^XMB(3.9,62,2,749,0)="""RTN"",""KMPDTU01"",56,0)"
^XMB(3.9,62,2,750,0)=" ;"
^XMB(3.9,62,2,751,0)="""RTN"",""KMPDTU01"",57,0)"
^XMB(3.9,62,2,752,0)=" ; update field .1 (DAILY - SENT TO CM NATIONAL DB) to 'YES' for all"
^XMB(3.9,62,2,753,0)="""RTN"",""KMPDTU01"",58,0)"
^XMB(3.9,62,2,754,0)=" ; processed entries."
^XMB(3.9,62,2,755,0)="""RTN"",""KMPDTU01"",59,0)"
^XMB(3.9,62,2,756,0)=" W:'$D(ZTQUEUED) !!,""Updating records to reflect transmission..."""
^XMB(3.9,62,2,757,0)="""RTN"",""KMPDTU01"",60,0)"
^XMB(3.9,62,2,758,0)=" S IEN=0"
^XMB(3.9,62,2,759,0)="""RTN"",""KMPDTU01"",61,0)"
^XMB(3.9,62,2,760,0)=" F  S IEN=$O(^TMP(""KMPDTU01"",$J,IEN)) Q:'IEN  D "
^XMB(3.9,62,2,761,0)="""RTN"",""KMPDTU01"",62,0)"
^XMB(3.9,62,2,762,0)=" .K FDA,ERROR W:'$D(ZTQUEUED)&('(IEN#1000)) ""."""
^XMB(3.9,62,2,763,0)="""RTN"",""KMPDTU01"",63,0)"
^XMB(3.9,62,2,764,0)=" .S FDA($J,8973.2,IEN_"","",.1)=1"
^XMB(3.9,62,2,765,0)="""RTN"",""KMPDTU01"",64,0)"
^XMB(3.9,62,2,766,0)=" .D FILE^DIE("""",""FDA($J)"",""ERROR"")"
^XMB(3.9,62,2,767,0)="""RTN"",""KMPDTU01"",65,0)"
^XMB(3.9,62,2,768,0)=" ;"
^XMB(3.9,62,2,769,0)="""RTN"",""KMPDTU01"",66,0)"
^XMB(3.9,62,2,770,0)=" K ^TMP(""KMPDTU01"",$J)"
^XMB(3.9,62,2,771,0)="""RTN"",""KMPDTU01"",67,0)"
^XMB(3.9,62,2,772,0)=" ;"
^XMB(3.9,62,2,773,0)="""RTN"",""KMPDTU01"",68,0)"
^XMB(3.9,62,2,774,0)=" W:'$D(ZTQUEUED) !!,""Finished!"""
^XMB(3.9,62,2,775,0)="""RTN"",""KMPDTU01"",69,0)"
^XMB(3.9,62,2,776,0)=" ;"
^XMB(3.9,62,2,777,0)="""RTN"",""KMPDTU01"",70,0)"
^XMB(3.9,62,2,778,0)=" Q"
^XMB(3.9,62,2,779,0)="""RTN"",""KMPDTU01"",71,0)"
^XMB(3.9,62,2,780,0)=" ;"
^XMB(3.9,62,2,781,0)="""RTN"",""KMPDTU01"",72,0)"
^XMB(3.9,62,2,782,0)="TRANSMIT(KMPDTWD) ;-- format data into e-mail and send to cm national database"
^XMB(3.9,62,2,783,0)="""RTN"",""KMPDTU01"",73,0)"
^XMB(3.9,62,2,784,0)=" ;-----------------------------------------------------------------------"
^XMB(3.9,62,2,785,0)="""RTN"",""KMPDTU01"",74,0)"
^XMB(3.9,62,2,786,0)=" ; KMPDTWD... Weekly/Daily"
^XMB(3.9,62,2,787,0)="""RTN"",""KMPDTU01"",75,0)"
^XMB(3.9,62,2,788,0)=" ;             1 - weekly"
^XMB(3.9,62,2,789,0)="""RTN"",""KMPDTU01"",76,0)"
^XMB(3.9,62,2,790,0)=" ;             2 - daily"
^XMB(3.9,62,2,791,0)="""RTN"",""KMPDTU01"",77,0)"
^XMB(3.9,62,2,792,0)=" ;"
^XMB(3.9,62,2,793,0)="""RTN"",""KMPDTU01"",78,0)"
^XMB(3.9,62,2,794,0)=" ; D = date"
^XMB(3.9,62,2,795,0)="""RTN"",""KMPDTU01"",79,0)"
^XMB(3.9,62,2,796,0)=" ; S = subscript"
^XMB(3.9,62,2,797,0)="""RTN"",""KMPDTU01"",80,0)"
^XMB(3.9,62,2,798,0)=" ;-----------------------------------------------------------------------"
^XMB(3.9,62,2,799,0)="""RTN"",""KMPDTU01"",81,0)"
^XMB(3.9,62,2,800,0)=" ;"
^XMB(3.9,62,2,801,0)="""RTN"",""KMPDTU01"",82,0)"
^XMB(3.9,62,2,802,0)=" Q:'$G(KMPDTWD)"
^XMB(3.9,62,2,803,0)="""RTN"",""KMPDTU01"",83,0)"
^XMB(3.9,62,2,804,0)=" Q:'$D(^TMP($J))"
^XMB(3.9,62,2,805,0)="""RTN"",""KMPDTU01"",84,0)"
^XMB(3.9,62,2,806,0)=" ;"
^XMB(3.9,62,2,807,0)="""RTN"",""KMPDTU01"",85,0)"
^XMB(3.9,62,2,808,0)=" N CPU,D,DATE,I,IEN,LN,S,TL,TRANSTO,XMSUB,X,XMTEXT,XMY,XMZ,Y,Z"
^XMB(3.9,62,2,809,0)="""RTN"",""KMPDTU01"",86,0)"
^XMB(3.9,62,2,810,0)=" ;"
^XMB(3.9,62,2,811,0)="""RTN"",""KMPDTU01"",87,0)"
^XMB(3.9,62,2,812,0)=" K ^TMP(""KMPDTU01-2"",$J)"
^XMB(3.9,62,2,813,0)="""RTN"",""KMPDTU01"",88,0)"
^XMB(3.9,62,2,814,0)=" ;"
^XMB(3.9,62,2,815,0)="""RTN"",""KMPDTU01"",89,0)"
^XMB(3.9,62,2,816,0)=" S DATE=$S(KMPDTWD=1:$G(START),1:$G(KMPDT))"
^XMB(3.9,62,2,817,0)="""RTN"",""KMPDTU01"",90,0)"
^XMB(3.9,62,2,818,0)=" S LN=0"
^XMB(3.9,62,2,819,0)="""RTN"",""KMPDTU01"",91,0)"
^XMB(3.9,62,2,820,0)=" ; version and patch info"
^XMB(3.9,62,2,821,0)="""RTN"",""KMPDTU01"",92,0)"
^XMB(3.9,62,2,822,0)=" S LN=LN+1,^TMP(""KMPDTU01-2"",$J,LN)=""VERSION=""_$$VERSION^KMPDUTL"
^XMB(3.9,62,2,823,0)="""RTN"",""KMPDTU01"",93,0)"
^XMB(3.9,62,2,824,0)=" ; system information"
^XMB(3.9,62,2,825,0)="""RTN"",""KMPDTU01"",94,0)"
^XMB(3.9,62,2,826,0)=" S LN=LN+1,^TMP(""KMPDTU01-2"",$J,LN)=""SYSINFO=""_$$SYSINFO^KMPDUTL1()"
^XMB(3.9,62,2,827,0)="""RTN"",""KMPDTU01"",95,0)"
^XMB(3.9,62,2,828,0)=" ; send cpu data to national database"
^XMB(3.9,62,2,829,0)="""RTN"",""KMPDTU01"",96,0)"
^XMB(3.9,62,2,830,0)=" D CPU^KMPDUTL5(.CPU) I $D(CPU) S I="""" F  S I=$O(CPU(I)) Q:I=""""  D "
^XMB(3.9,62,2,831,0)="""RTN"",""KMPDTU01"",97,0)"
^XMB(3.9,62,2,832,0)=" .S LN=LN+1,^TMP(""KMPDTU01-2"",$J,LN)=""CPU=""_I_U_CPU(I)"
^XMB(3.9,62,2,833,0)="""RTN"",""KMPDTU01"",98,0)"
^XMB(3.9,62,2,834,0)=" ;"
^XMB(3.9,62,2,835,0)="""RTN"",""KMPDTU01"",99,0)"
^XMB(3.9,62,2,836,0)=" W:'$D(ZTQUEUED) !!,""Formatting "",$$FMTE^XLFDT($G(START)),"" data for mail delivery..."""
^XMB(3.9,62,2,837,0)="""RTN"",""KMPDTU01"",100,0)"
^XMB(3.9,62,2,838,0)=" ; reformat so that data is in ^TMP(""KMPR UPLOAD"",$J,LN)= format."
^XMB(3.9,62,2,839,0)="""RTN"",""KMPDTU01"",101,0)"
^XMB(3.9,62,2,840,0)=" S IEN=0,D="""""
^XMB(3.9,62,2,841,0)="""RTN"",""KMPDTU01"",102,0)"
^XMB(3.9,62,2,842,0)=" F  S D=$O(^TMP($J,D)) Q:D=""""  S S="""" W ""."" D "
^XMB(3.9,62,2,843,0)="""RTN"",""KMPDTU01"",103,0)"
^XMB(3.9,62,2,844,0)=" .W !,D"
^XMB(3.9,62,2,845,0)="""RTN"",""KMPDTU01"",104,0)"
^XMB(3.9,62,2,846,0)=" .F  S S=$O(^TMP($J,D,S)) Q:S=""""  D "
^XMB(3.9,62,2,847,0)="""RTN"",""KMPDTU01"",105,0)"
^XMB(3.9,62,2,848,0)=" ..S IEN=IEN+1,LN=LN+1"
^XMB(3.9,62,2,849,0)="""RTN"",""KMPDTU01"",106,0)"
^XMB(3.9,62,2,850,0)=" ..S ^TMP(""KMPDTU01-2"",$J,LN)=IEN_"",0)=""_^TMP($J,D,S)"
^XMB(3.9,62,2,851,0)="""RTN"",""KMPDTU01"",107,0)"
^XMB(3.9,62,2,852,0)=" ..; if prime time"
^XMB(3.9,62,2,853,0)="""RTN"",""KMPDTU01"",108,0)"
^XMB(3.9,62,2,854,0)=" ..I $D(^TMP($J,D,S,1)) D "
^XMB(3.9,62,2,855,0)="""RTN"",""KMPDTU01"",109,0)"
^XMB(3.9,62,2,856,0)=" ...S LN=LN+1"
^XMB(3.9,62,2,857,0)="""RTN"",""KMPDTU01"",110,0)"
^XMB(3.9,62,2,858,0)=" ...S ^TMP(""KMPDTU01-2"",$J,LN)=IEN_"",1)=""_^TMP($J,D,S,1)"
^XMB(3.9,62,2,859,0)="""RTN"",""KMPDTU01"",111,0)"
^XMB(3.9,62,2,860,0)=" ...S LN=LN+1"
^XMB(3.9,62,2,861,0)="""RTN"",""KMPDTU01"",112,0)"
^XMB(3.9,62,2,862,0)=" ...S ^TMP(""KMPDTU01-2"",$J,LN)=IEN_"",1.1)=""_^TMP($J,D,S,1.1)"
^XMB(3.9,62,2,863,0)="""RTN"",""KMPDTU01"",113,0)"
^XMB(3.9,62,2,864,0)=" ..; if non-prime time"
^XMB(3.9,62,2,865,0)="""RTN"",""KMPDTU01"",114,0)"
^XMB(3.9,62,2,866,0)=" ..I $D(^TMP($J,D,S,2)) D "
^XMB(3.9,62,2,867,0)="""RTN"",""KMPDTU01"",115,0)"
^XMB(3.9,62,2,868,0)=" ...S LN=LN+1"
^XMB(3.9,62,2,869,0)="""RTN"",""KMPDTU01"",116,0)"
^XMB(3.9,62,2,870,0)=" ...S ^TMP(""KMPDTU01-2"",$J,LN)=IEN_"",2)=""_^TMP($J,D,S,2)"
^XMB(3.9,62,2,871,0)="""RTN"",""KMPDTU01"",117,0)"
^XMB(3.9,62,2,872,0)=" ...S LN=LN+1"
^XMB(3.9,62,2,873,0)="""RTN"",""KMPDTU01"",118,0)"
^XMB(3.9,62,2,874,0)=" ...S ^TMP(""KMPDTU01-2"",$J,LN)=IEN_"",2.1)=""_^TMP($J,D,S,2.1)"
^XMB(3.9,62,2,875,0)="""RTN"",""KMPDTU01"",119,0)"
^XMB(3.9,62,2,876,0)=" ..; node 99.1 for national database"
^XMB(3.9,62,2,877,0)="""RTN"",""KMPDTU01"",120,0)"
^XMB(3.9,62,2,878,0)=" ..S LN=LN+1,^TMP(""KMPDTU01-2"",$J,LN)=IEN_"",99.1)=""_$G(^TMP($J,D,S,99.1))"
^XMB(3.9,62,2,879,0)="""RTN"",""KMPDTU01"",121,0)"
^XMB(3.9,62,2,880,0)=" ;"
^XMB(3.9,62,2,881,0)="""RTN"",""KMPDTU01"",122,0)"
^XMB(3.9,62,2,882,0)=" ; quit if no data to transmit."
^XMB(3.9,62,2,883,0)="""RTN"",""KMPDTU01"",123,0)"
^XMB(3.9,62,2,884,0)=" Q:'$D(^TMP(""KMPDTU01-2"",$J))"
^XMB(3.9,62,2,885,0)="""RTN"",""KMPDTU01"",124,0)"
^XMB(3.9,62,2,886,0)=" S TL=$$TESTLAB^KMPDUT1"
^XMB(3.9,62,2,887,0)="""RTN"",""KMPDTU01"",125,0)"
^XMB(3.9,62,2,888,0)=" ; send packman message."
^XMB(3.9,62,2,889,0)="""RTN"",""KMPDTU01"",126,0)"
^XMB(3.9,62,2,890,0)=" S XMTEXT=""^TMP(""""KMPDTU01-2"""",""_$J_"","""
^XMB(3.9,62,2,891,0)="""RTN"",""KMPDTU01"",127,0)"
^XMB(3.9,62,2,892,0)=" S XMSUB=$S(KMPDTWD=1:""CM TIMING DATA~"",1:""CM TIMING DATA-DAILY~"")_$P(TL,U,2)_$P(SITE,U,2)_"" (""_$P(SITE,U,3)_"")~""_$$FMTE^XLFDT(DATE,2)"
^XMB(3.9,62,2,893,0)="""RTN"",""KMPDTU01"",128,0)"
^XMB(3.9,62,2,894,0)=" D TRANSTO^KMPDUTL7(1,4,.TRANSTO) Q:'$D(TRANSTO)"
^XMB(3.9,62,2,895,0)="""RTN"",""KMPDTU01"",129,0)"
^XMB(3.9,62,2,896,0)=" S I="""""
^XMB(3.9,62,2,897,0)="""RTN"",""KMPDTU01"",130,0)"
^XMB(3.9,62,2,898,0)=" F  S I=$O(TRANSTO(I)) Q:I=""""  S XMY(I)="""""
^XMB(3.9,62,2,899,0)="""RTN"",""KMPDTU01"",131,0)"
^XMB(3.9,62,2,900,0)=" D ^XMD"
^XMB(3.9,62,2,901,0)="""RTN"",""KMPDTU01"",132,0)"
^XMB(3.9,62,2,902,0)=" W:'$D(ZTQUEUED) !,""Message #"",$G(XMZ),"" sent..."""
^XMB(3.9,62,2,903,0)="""RTN"",""KMPDTU01"",133,0)"
^XMB(3.9,62,2,904,0)=" K ^TMP(""KMPDTU01-2"",$J)"
^XMB(3.9,62,2,905,0)="""RTN"",""KMPDTU01"",134,0)"
^XMB(3.9,62,2,906,0)=" ;"
^XMB(3.9,62,2,907,0)="""RTN"",""KMPDTU01"",135,0)"
^XMB(3.9,62,2,908,0)=" Q"
^XMB(3.9,62,2,909,0)="""RTN"",""KMPDUTL"")"
^XMB(3.9,62,2,910,0)="0^2^B12113278^B11698586"
^XMB(3.9,62,2,911,0)="""RTN"",""KMPDUTL"",1,0)"
^XMB(3.9,62,2,912,0)="KMPDUTL ;OAK/RAK - CM Tools Utility ;4/6/06  08:40"
^XMB(3.9,62,2,913,0)="""RTN"",""KMPDUTL"",2,0)"
^XMB(3.9,62,2,914,0)=" ;;2.0;CAPACITY MANAGEMENT TOOLS;**1,2,3,4,5**;Mar 22, 2002"
^XMB(3.9,62,2,915,0)="""RTN"",""KMPDUTL"",3,0)"
^XMB(3.9,62,2,916,0)=" ;"
^XMB(3.9,62,2,917,0)="""RTN"",""KMPDUTL"",4,0)"
^XMB(3.9,62,2,918,0)="QUEBKG(KMPDOPT,KMPDTIME,KMPDFREQ,KMPDDEL) ;-- queue background job"
^XMB(3.9,62,2,919,0)="""RTN"",""KMPDUTL"",5,0)"
^XMB(3.9,62,2,920,0)=" ;-----------------------------------------------------------------------"
^XMB(3.9,62,2,921,0)="""RTN"",""KMPDUTL"",6,0)"
^XMB(3.9,62,2,922,0)=" ; KMPDOPT.... Option name to queue (free text name in .01 field of "
^XMB(3.9,62,2,923,0)="""RTN"",""KMPDUTL"",7,0)"
^XMB(3.9,62,2,924,0)=" ;                                   OPTION file)"
^XMB(3.9,62,2,925,0)="""RTN"",""KMPDUTL"",8,0)"
^XMB(3.9,62,2,926,0)=" ; KMPDTIME... Date/time to queue option (T@1400, etc)"
^XMB(3.9,62,2,927,0)="""RTN"",""KMPDUTL"",9,0)"
^XMB(3.9,62,2,928,0)=" ; KMPDFREQ... Scheduling frequency (1D, etc)"
^XMB(3.9,62,2,929,0)="""RTN"",""KMPDUTL"",10,0)"
^XMB(3.9,62,2,930,0)=" ; KMPDDEL.... Delete option if it already exists in file 19.2"
^XMB(3.9,62,2,931,0)="""RTN"",""KMPDUTL"",11,0)"
^XMB(3.9,62,2,932,0)=" ;              0 - do not delete (quit if already scheduled)"
^XMB(3.9,62,2,933,0)="""RTN"",""KMPDUTL"",12,0)"
^XMB(3.9,62,2,934,0)=" ;              1 - delete if already in file 19.2"
^XMB(3.9,62,2,935,0)="""RTN"",""KMPDUTL"",13,0)"
^XMB(3.9,62,2,936,0)=" ;"
^XMB(3.9,62,2,937,0)="""RTN"",""KMPDUTL"",14,0)"
^XMB(3.9,62,2,938,0)=" ; This API will queue an option from file #19 (OPTION) to run in file"
^XMB(3.9,62,2,939,0)="""RTN"",""KMPDUTL"",15,0)"
^XMB(3.9,62,2,940,0)=" ; 19.2 (OPTION SCHEDULE)."
^XMB(3.9,62,2,941,0)="""RTN"",""KMPDUTL"",16,0)"
^XMB(3.9,62,2,942,0)=" ;-----------------------------------------------------------------------"
^XMB(3.9,62,2,943,0)="""RTN"",""KMPDUTL"",17,0)"
^XMB(3.9,62,2,944,0)=" Q:$G(KMPDOPT)="""""
^XMB(3.9,62,2,945,0)="""RTN"",""KMPDUTL"",18,0)"
^XMB(3.9,62,2,946,0)=" Q:$G(KMPDTIME)="""""
^XMB(3.9,62,2,947,0)="""RTN"",""KMPDUTL"",19,0)"
^XMB(3.9,62,2,948,0)=" Q:$G(KMPDFREQ)="""""
^XMB(3.9,62,2,949,0)="""RTN"",""KMPDUTL"",20,0)"
^XMB(3.9,62,2,950,0)=" S KMPDDEL=+$G(KMPDDEL)"
^XMB(3.9,62,2,951,0)="""RTN"",""KMPDUTL"",21,0)"
^XMB(3.9,62,2,952,0)=" N DA,DIFROM,DIK,FDA,ERROR,IEN,IEN1,IENZ,TEXT,X,Y,Z"
^XMB(3.9,62,2,953,0)="""RTN"",""KMPDUTL"",22,0)"
^XMB(3.9,62,2,954,0)=" ; Newing DIFROM will force reschedule when installing from KIDS"
^XMB(3.9,62,2,955,0)="""RTN"",""KMPDUTL"",23,0)"
^XMB(3.9,62,2,956,0)=" S:'$G(DT) DT=$$DT^XLFDT"
^XMB(3.9,62,2,957,0)="""RTN"",""KMPDUTL"",24,0)"
^XMB(3.9,62,2,958,0)=" ; change to internal format"
^XMB(3.9,62,2,959,0)="""RTN"",""KMPDUTL"",25,0)"
^XMB(3.9,62,2,960,0)=" D FMDTI^KMPDU(.Z,KMPDTIME)"
^XMB(3.9,62,2,961,0)="""RTN"",""KMPDUTL"",26,0)"
^XMB(3.9,62,2,962,0)=" Q:Z(0)=""^""!(Z(0)="""")"
^XMB(3.9,62,2,963,0)="""RTN"",""KMPDUTL"",27,0)"
^XMB(3.9,62,2,964,0)=" S KMPDTIME=Z(0) K Z"
^XMB(3.9,62,2,965,0)="""RTN"",""KMPDUTL"",28,0)"
^XMB(3.9,62,2,966,0)=" S TEXT=KMPDOPT"
^XMB(3.9,62,2,967,0)="""RTN"",""KMPDUTL"",29,0)"
^XMB(3.9,62,2,968,0)=" ; quit if not in file 19"
^XMB(3.9,62,2,969,0)="""RTN"",""KMPDUTL"",30,0)"
^XMB(3.9,62,2,970,0)=" S IEN=$O(^DIC(19,""B"",TEXT,0)) Q:'IEN"
^XMB(3.9,62,2,971,0)="""RTN"",""KMPDUTL"",31,0)"
^XMB(3.9,62,2,972,0)=" S IEN1=$O(^DIC(19.2,""B"",IEN,0))"
^XMB(3.9,62,2,973,0)="""RTN"",""KMPDUTL"",32,0)"
^XMB(3.9,62,2,974,0)=" ; quit if already in file 19.2 and not KMPDDEL"
^XMB(3.9,62,2,975,0)="""RTN"",""KMPDUTL"",33,0)"
^XMB(3.9,62,2,976,0)=" Q:IEN1&('KMPDDEL)"
^XMB(3.9,62,2,977,0)="""RTN"",""KMPDUTL"",34,0)"
^XMB(3.9,62,2,978,0)=" ; delete if in file 19.2"
^XMB(3.9,62,2,979,0)="""RTN"",""KMPDUTL"",35,0)"
^XMB(3.9,62,2,980,0)=" I IEN1 S DIK=""^DIC(19.2,"",DA=IEN1 D ^DIK"
^XMB(3.9,62,2,981,0)="""RTN"",""KMPDUTL"",36,0)"
^XMB(3.9,62,2,982,0)=" ; add entry"
^XMB(3.9,62,2,983,0)="""RTN"",""KMPDUTL"",37,0)"
^XMB(3.9,62,2,984,0)=" S FDA($J,19.2,""+1,"",.01)=IEN"
^XMB(3.9,62,2,985,0)="""RTN"",""KMPDUTL"",38,0)"
^XMB(3.9,62,2,986,0)=" ; queued to run at what time"
^XMB(3.9,62,2,987,0)="""RTN"",""KMPDUTL"",39,0)"
^XMB(3.9,62,2,988,0)=" S FDA($J,19.2,""+1,"",2)=KMPDTIME"
^XMB(3.9,62,2,989,0)="""RTN"",""KMPDUTL"",40,0)"
^XMB(3.9,62,2,990,0)=" ; rescheduling frequency."
^XMB(3.9,62,2,991,0)="""RTN"",""KMPDUTL"",41,0)"
^XMB(3.9,62,2,992,0)=" S FDA($J,19.2,""+1,"",6)=KMPDFREQ"
^XMB(3.9,62,2,993,0)="""RTN"",""KMPDUTL"",42,0)"
^XMB(3.9,62,2,994,0)=" D UPDATE^DIE("""",""FDA($J)"",.IENZ,""ERROR"")"
^XMB(3.9,62,2,995,0)="""RTN"",""KMPDUTL"",43,0)"
^XMB(3.9,62,2,996,0)=" I $D(ERROR) D MSG^DIALOG(""W"","""",60,10,""ERROR"")"
^XMB(3.9,62,2,997,0)="""RTN"",""KMPDUTL"",44,0)"
^XMB(3.9,62,2,998,0)=" S IEN1=$O(^DIC(19.2,""B"",IEN,0))"
^XMB(3.9,62,2,999,0)="""RTN"",""KMPDUTL"",45,0)"
^XMB(3.9,62,2,1000,0)=" I '$G(^DIC(19.2,+IEN1,1)) D "
^XMB(3.9,62,2,1001,0)="""RTN"",""KMPDUTL"",46,0)"
^XMB(3.9,62,2,1002,0)=" .D MES^XPDUTL(""     ERROR - Not able to reschedule ""_KMPDOPT)"
^XMB(3.9,62,2,1003,0)="""RTN"",""KMPDUTL"",47,0)"
^XMB(3.9,62,2,1004,0)=" .D MES^XPDUTL(""     Use 'Schedule/Unschedule Options' [XUTM SCHEDULE] to reschedule."")"
^XMB(3.9,62,2,1005,0)="""RTN"",""KMPDUTL"",48,0)"
^XMB(3.9,62,2,1006,0)=" ;"
^XMB(3.9,62,2,1007,0)="""RTN"",""KMPDUTL"",49,0)"
^XMB(3.9,62,2,1008,0)=" Q"
^XMB(3.9,62,2,1009,0)="""RTN"",""KMPDUTL"",50,0)"
^XMB(3.9,62,2,1010,0)=" ;"
^XMB(3.9,62,2,1011,0)="""RTN"",""KMPDUTL"",51,0)"
^XMB(3.9,62,2,1012,0)="VERSION() ;-- extrinsic - return current version."
^XMB(3.9,62,2,1013,0)="""RTN"",""KMPDUTL"",52,0)"
^XMB(3.9,62,2,1014,0)=" Q $P($T(+2^KMPDUTL),"";"",3)_""^""_$P($T(+2^KMPDUTL),"";"",5)"
^XMB(3.9,62,2,1015,0)="""RTN"",""KMPDUTL"",53,0)"
^XMB(3.9,62,2,1016,0)=" ;"
^XMB(3.9,62,2,1017,0)="""RTN"",""KMPDUTL"",54,0)"
^XMB(3.9,62,2,1018,0)="VRSNGET(KMPDAPPL) ;-- extrinsic function - get version^patches"
^XMB(3.9,62,2,1019,0)="""RTN"",""KMPDUTL"",55,0)"
^XMB(3.9,62,2,1020,0)=" ;-----------------------------------------------------------------------"
^XMB(3.9,62,2,1021,0)="""RTN"",""KMPDUTL"",56,0)"
^XMB(3.9,62,2,1022,0)=" ; KMPDAPPL... application:"
^XMB(3.9,62,2,1023,0)="""RTN"",""KMPDUTL"",57,0)"
^XMB(3.9,62,2,1024,0)=" ;              0 - CM Tools"
^XMB(3.9,62,2,1025,0)="""RTN"",""KMPDUTL"",58,0)"
^XMB(3.9,62,2,1026,0)=" ;              1 - SAGG"
^XMB(3.9,62,2,1027,0)="""RTN"",""KMPDUTL"",59,0)"
^XMB(3.9,62,2,1028,0)=" ;              2 - RUM"
^XMB(3.9,62,2,1029,0)="""RTN"",""KMPDUTL"",60,0)"
^XMB(3.9,62,2,1030,0)=" ;"
^XMB(3.9,62,2,1031,0)="""RTN"",""KMPDUTL"",61,0)"
^XMB(3.9,62,2,1032,0)=" ; Return: Version^Patch^VersionInstallDate^PatchInstallDate"
^XMB(3.9,62,2,1033,0)="""RTN"",""KMPDUTL"",62,0)"
^XMB(3.9,62,2,1034,0)=" ;         null = no application"
^XMB(3.9,62,2,1035,0)="""RTN"",""KMPDUTL"",63,0)"
^XMB(3.9,62,2,1036,0)=" ;-----------------------------------------------------------------------"
^XMB(3.9,62,2,1037,0)="""RTN"",""KMPDUTL"",64,0)"
^XMB(3.9,62,2,1038,0)=" ;"
^XMB(3.9,62,2,1039,0)="""RTN"",""KMPDUTL"",65,0)"
^XMB(3.9,62,2,1040,0)=" Q:$G(KMPDAPPL)="""" """""
^XMB(3.9,62,2,1041,0)="""RTN"",""KMPDUTL"",66,0)"
^XMB(3.9,62,2,1042,0)=" Q:KMPDAPPL<0!(KMPDAPPL>2) """""
^XMB(3.9,62,2,1043,0)="""RTN"",""KMPDUTL"",67,0)"
^XMB(3.9,62,2,1044,0)=" ;"
^XMB(3.9,62,2,1045,0)="""RTN"",""KMPDUTL"",68,0)"
^XMB(3.9,62,2,1046,0)=" N DATA,VERSION S VERSION="""""
^XMB(3.9,62,2,1047,0)="""RTN"",""KMPDUTL"",69,0)"
^XMB(3.9,62,2,1048,0)=" ;"
^XMB(3.9,62,2,1049,0)="""RTN"",""KMPDUTL"",70,0)"
^XMB(3.9,62,2,1050,0)=" ; cm tools"
^XMB(3.9,62,2,1051,0)="""RTN"",""KMPDUTL"",71,0)"
^XMB(3.9,62,2,1052,0)=" I KMPDAPPL=0 D "
^XMB(3.9,62,2,1053,0)="""RTN"",""KMPDUTL"",72,0)"
^XMB(3.9,62,2,1054,0)=" .S DATA=$G(^KMPD(8973,1,KMPDAPPL))"
^XMB(3.9,62,2,1055,0)="""RTN"",""KMPDUTL"",73,0)"
^XMB(3.9,62,2,1056,0)=" .S VERSION=$P(DATA,U,2)_U_$P(DATA,U,4)_U_$P(DATA,U,3)_U_$P(DATA,U,5)"
^XMB(3.9,62,2,1057,0)="""RTN"",""KMPDUTL"",74,0)"
^XMB(3.9,62,2,1058,0)=" ;"
^XMB(3.9,62,2,1059,0)="""RTN"",""KMPDUTL"",75,0)"
^XMB(3.9,62,2,1060,0)=" ; all other applications"
^XMB(3.9,62,2,1061,0)="""RTN"",""KMPDUTL"",76,0)"
^XMB(3.9,62,2,1062,0)=" E  D "
^XMB(3.9,62,2,1063,0)="""RTN"",""KMPDUTL"",77,0)"
^XMB(3.9,62,2,1064,0)=" .S DATA=$G(^KMPD(8973,1,KMPDAPPL))"
^XMB(3.9,62,2,1065,0)="""RTN"",""KMPDUTL"",78,0)"
^XMB(3.9,62,2,1066,0)=" .S VERSION=$P(DATA,U)_U_$P(DATA,U,3)_U_$P(DATA,U,2)_U_$P(DATA,U,4)"
^XMB(3.9,62,2,1067,0)="""RTN"",""KMPDUTL"",79,0)"
^XMB(3.9,62,2,1068,0)=" ;"
^XMB(3.9,62,2,1069,0)="""RTN"",""KMPDUTL"",80,0)"
^XMB(3.9,62,2,1070,0)=" Q VERSION"
^XMB(3.9,62,2,1071,0)="""RTN"",""KMPDUTL"",81,0)"
^XMB(3.9,62,2,1072,0)=" ;"
^XMB(3.9,62,2,1073,0)="""RTN"",""KMPDUTL"",82,0)"
^XMB(3.9,62,2,1074,0)="PTCHINFO ; -- patch information: routine name ^ current version ^ current patch(es)"
^XMB(3.9,62,2,1075,0)="""RTN"",""KMPDUTL"",83,0)"
^XMB(3.9,62,2,1076,0)=" ;;KMPDBD01^2.0^**2**"
^XMB(3.9,62,2,1077,0)="""RTN"",""KMPDUTL"",84,0)"
^XMB(3.9,62,2,1078,0)=" ;;KMPDECH^2.0^**5**"
^XMB(3.9,62,2,1079,0)="""RTN"",""KMPDUTL"",85,0)"
^XMB(3.9,62,2,1080,0)=" ;;KMPDHU01^2.0^**4**"
^XMB(3.9,62,2,1081,0)="""RTN"",""KMPDUTL"",86,0)"
^XMB(3.9,62,2,1082,0)=" ;;KMPDHU02^2.0"
^XMB(3.9,62,2,1083,0)="""RTN"",""KMPDUTL"",87,0)"
^XMB(3.9,62,2,1084,0)=" ;;KMPDHU03^2.0"
^XMB(3.9,62,2,1085,0)="""RTN"",""KMPDUTL"",88,0)"
^XMB(3.9,62,2,1086,0)=" ;;KMPDHUA^2.0"
^XMB(3.9,62,2,1087,0)="""RTN"",""KMPDUTL"",89,0)"
^XMB(3.9,62,2,1088,0)=" ;;KMPDPOST^2.0^**1,2,5**"
^XMB(3.9,62,2,1089,0)="""RTN"",""KMPDUTL"",90,0)"
^XMB(3.9,62,2,1090,0)=" ;;KMPDSS^2.0^**3**"
^XMB(3.9,62,2,1091,0)="""RTN"",""KMPDUTL"",91,0)"
^XMB(3.9,62,2,1092,0)=" ;;KMPDSS1^2.0^**3**"
^XMB(3.9,62,2,1093,0)="""RTN"",""KMPDUTL"",92,0)"
^XMB(3.9,62,2,1094,0)=" ;;KMPDSSD^2.0^**3**"
^XMB(3.9,62,2,1095,0)="""RTN"",""KMPDUTL"",93,0)"
^XMB(3.9,62,2,1096,0)=" ;;KMPDSSD1^2.0^**3**"
^XMB(3.9,62,2,1097,0)="""RTN"",""KMPDUTL"",94,0)"
^XMB(3.9,62,2,1098,0)=" ;;KMPDSSR^2.0^**3**"
^XMB(3.9,62,2,1099,0)="""RTN"",""KMPDUTL"",95,0)"
^XMB(3.9,62,2,1100,0)=" ;;KMPDSSS^2.0^**3**"
^XMB(3.9,62,2,1101,0)="""RTN"",""KMPDUTL"",96,0)"
^XMB(3.9,62,2,1102,0)=" ;;KMPDTM^2.0^**1,4**"
^XMB(3.9,62,2,1103,0)="""RTN"",""KMPDUTL"",97,0)"
^XMB(3.9,62,2,1104,0)=" ;;KMPDTP1^2.0^**4**"
^XMB(3.9,62,2,1105,0)="""RTN"",""KMPDUTL"",98,0)"
^XMB(3.9,62,2,1106,0)=" ;;KMPDTP2^2.0^**4**"
^XMB(3.9,62,2,1107,0)="""RTN"",""KMPDUTL"",99,0)"
^XMB(3.9,62,2,1108,0)=" ;;KMPDTP3^2.0^**4**"
^XMB(3.9,62,2,1109,0)="""RTN"",""KMPDUTL"",100,0)"
^XMB(3.9,62,2,1110,0)=" ;;KMPDTP4^2.0^**4**"
^XMB(3.9,62,2,1111,0)="""RTN"",""KMPDUTL"",101,0)"
^XMB(3.9,62,2,1112,0)=" ;;KMPDTP5^2.0^**4**"
^XMB(3.9,62,2,1113,0)="""RTN"",""KMPDUTL"",102,0)"
^XMB(3.9,62,2,1114,0)=" ;;KMPDTP6^2.0^**4**"
^XMB(3.9,62,2,1115,0)="""RTN"",""KMPDUTL"",103,0)"
^XMB(3.9,62,2,1116,0)=" ;;KMPDTP7^2.0^**4**"
^XMB(3.9,62,2,1117,0)="""RTN"",""KMPDUTL"",104,0)"
^XMB(3.9,62,2,1118,0)=" ;;KMPDTU01^2.0^**4,5**"
^XMB(3.9,62,2,1119,0)="""RTN"",""KMPDUTL"",105,0)"
^XMB(3.9,62,2,1120,0)=" ;;KMPDTU02^2.0"
^XMB(3.9,62,2,1121,0)="""RTN"",""KMPDUTL"",106,0)"
^XMB(3.9,62,2,1122,0)=" ;;KMPDTU10^2.0^**4**"
^XMB(3.9,62,2,1123,0)="""RTN"",""KMPDUTL"",107,0)"
^XMB(3.9,62,2,1124,0)=" ;;KMPDTU11^2.0"
^XMB(3.9,62,2,1125,0)="""RTN"",""KMPDUTL"",108,0)"
^XMB(3.9,62,2,1126,0)=" ;;KMPDU^2.0^**2**"
^XMB(3.9,62,2,1127,0)="""RTN"",""KMPDUTL"",109,0)"
^XMB(3.9,62,2,1128,0)=" ;;KMPDU1^2.0"
^XMB(3.9,62,2,1129,0)="""RTN"",""KMPDUTL"",110,0)"
^XMB(3.9,62,2,1130,0)=" ;;KMPDU2^2.0^**2**"
^XMB(3.9,62,2,1131,0)="""RTN"",""KMPDUTL"",111,0)"
^XMB(3.9,62,2,1132,0)=" ;;KMPDU3^2.0^**2**"
^XMB(3.9,62,2,1133,0)="""RTN"",""KMPDUTL"",112,0)"
^XMB(3.9,62,2,1134,0)=" ;;KMPDU4^2.0"
^XMB(3.9,62,2,1135,0)="""RTN"",""KMPDUTL"",113,0)"
^XMB(3.9,62,2,1136,0)=" ;;KMPDU5^2.0^**2**"
^XMB(3.9,62,2,1137,0)="""RTN"",""KMPDUTL"",114,0)"
^XMB(3.9,62,2,1138,0)=" ;;KMPDU11^2.0"
^XMB(3.9,62,2,1139,0)="""RTN"",""KMPDUTL"",115,0)"
^XMB(3.9,62,2,1140,0)=" ;;KMPDUG^2.0"
^XMB(3.9,62,2,1141,0)="""RTN"",""KMPDUTL"",116,0)"
^XMB(3.9,62,2,1142,0)=" ;;KMPDUG1^2.0"
^XMB(3.9,62,2,1143,0)="""RTN"",""KMPDUTL"",117,0)"
^XMB(3.9,62,2,1144,0)=" ;;KMPDUG2^2.0"
^XMB(3.9,62,2,1145,0)="""RTN"",""KMPDUTL"",118,0)"
^XMB(3.9,62,2,1146,0)=" ;;KMPDUGV^2.0"
^XMB(3.9,62,2,1147,0)="""RTN"",""KMPDUTL"",119,0)"
^XMB(3.9,62,2,1148,0)=" ;;KMPDUT^2.0"
^XMB(3.9,62,2,1149,0)="""RTN"",""KMPDUTL"",120,0)"
^XMB(3.9,62,2,1150,0)=" ;;KMPDUT1^2.0^**4**"
^XMB(3.9,62,2,1151,0)="""RTN"",""KMPDUTL"",121,0)"
^XMB(3.9,62,2,1152,0)=" ;;KMPDUT2^2.0"
^XMB(3.9,62,2,1153,0)="""RTN"",""KMPDUTL"",122,0)"
^XMB(3.9,62,2,1154,0)=" ;;KMPDUT4^2.0"
^XMB(3.9,62,2,1155,0)="""RTN"",""KMPDUTL"",123,0)"
^XMB(3.9,62,2,1156,0)=" ;;KMPDUT4A^2.0"
^XMB(3.9,62,2,1157,0)="""RTN"",""KMPDUTL"",124,0)"
^XMB(3.9,62,2,1158,0)=" ;;KMPDUT4B^2.0"
^XMB(3.9,62,2,1159,0)="""RTN"",""KMPDUTL"",125,0)"
^XMB(3.9,62,2,1160,0)=" ;;KMPDUT4C^2.0"
^XMB(3.9,62,2,1161,0)="""RTN"",""KMPDUTL"",126,0)"
^XMB(3.9,62,2,1162,0)=" ;;KMPDUT5^2.0"
^XMB(3.9,62,2,1163,0)="""RTN"",""KMPDUTL"",127,0)"
^XMB(3.9,62,2,1164,0)=" ;;KMPDUTL^2.0^**1,2,3,4,5**"
^XMB(3.9,62,2,1165,0)="""RTN"",""KMPDUTL"",128,0)"
^XMB(3.9,62,2,1166,0)=" ;;KMPDUTL1^2.0^**3**"
^XMB(3.9,62,2,1167,0)="""RTN"",""KMPDUTL"",129,0)"
^XMB(3.9,62,2,1168,0)=" ;;KMPDUTL2^2.0^**4**"
^XMB(3.9,62,2,1169,0)="""RTN"",""KMPDUTL"",130,0)"
^XMB(3.9,62,2,1170,0)=" ;;KMPDUTL3^2.0"
^XMB(3.9,62,2,1171,0)="""RTN"",""KMPDUTL"",131,0)"
^XMB(3.9,62,2,1172,0)=" ;;KMPDUTL4^2.0"
^XMB(3.9,62,2,1173,0)="""RTN"",""KMPDUTL"",132,0)"
^XMB(3.9,62,2,1174,0)=" ;;KMPDUTL5^2.0"
^XMB(3.9,62,2,1175,0)="""RTN"",""KMPDUTL"",133,0)"
^XMB(3.9,62,2,1176,0)=" ;;KMPDUTL6^2.0"
^XMB(3.9,62,2,1177,0)="""RTN"",""KMPDUTL"",134,0)"
^XMB(3.9,62,2,1178,0)=" ;;KMPDUTL7^2.0^**2,5**"
^XMB(3.9,62,2,1179,0)="""RTN"",""KMPDUTL"",135,0)"
^XMB(3.9,62,2,1180,0)=" ;;KMPDUTL8^2.0^**2**"
^XMB(3.9,62,2,1181,0)="""RTN"",""KMPDUTL7"")"
^XMB(3.9,62,2,1182,0)="0^5^B10006436^B9990866"
^XMB(3.9,62,2,1183,0)="""RTN"",""KMPDUTL7"",1,0)"
^XMB(3.9,62,2,1184,0)="KMPDUTL7 ;OAK/RAK - CM Tools Utility ;2/17/04  10:52"
^XMB(3.9,62,2,1185,0)="""RTN"",""KMPDUTL7"",2,0)"
^XMB(3.9,62,2,1186,0)=" ;;2.0;CAPACITY MANAGEMENT TOOLS;**2,5**;Mar 22, 2002"
^XMB(3.9,62,2,1187,0)="""RTN"",""KMPDUTL7"",3,0)"
^XMB(3.9,62,2,1188,0)=" ;"
^XMB(3.9,62,2,1189,0)="""RTN"",""KMPDUTL7"",4,0)"
^XMB(3.9,62,2,1190,0)="RSTART(KMPDIEN) ;-- start routine statistics"
^XMB(3.9,62,2,1191,0)="""RTN"",""KMPDUTL7"",5,0)"
^XMB(3.9,62,2,1192,0)=" ;-----------------------------------------------------------------------"
^XMB(3.9,62,2,1193,0)="""RTN"",""KMPDUTL7"",6,0)"
^XMB(3.9,62,2,1194,0)=" ; KMPDIEN.... Ien for file #8972.1 (CM CODE EVALUATOR)."
^XMB(3.9,62,2,1195,0)="""RTN"",""KMPDUTL7"",7,0)"
^XMB(3.9,62,2,1196,0)=" ;-----------------------------------------------------------------------"
^XMB(3.9,62,2,1197,0)="""RTN"",""KMPDUTL7"",8,0)"
^XMB(3.9,62,2,1198,0)=" Q:'$G(KMPDIEN)"
^XMB(3.9,62,2,1199,0)="""RTN"",""KMPDUTL7"",9,0)"
^XMB(3.9,62,2,1200,0)=" Q:'$D(^KMPD(8972.1,+KMPDIEN,0))#5"
^XMB(3.9,62,2,1201,0)="""RTN"",""KMPDUTL7"",10,0)"
^XMB(3.9,62,2,1202,0)=" ; quit if not 'active'"
^XMB(3.9,62,2,1203,0)="""RTN"",""KMPDUTL7"",11,0)"
^XMB(3.9,62,2,1204,0)=" Q:'$P($G(^KMPD(8972.1,+KMPDIEN,0)),U,11)"
^XMB(3.9,62,2,1205,0)="""RTN"",""KMPDUTL7"",12,0)"
^XMB(3.9,62,2,1206,0)=" K KMPDU(KMPDIEN)"
^XMB(3.9,62,2,1207,0)="""RTN"",""KMPDUTL7"",13,0)"
^XMB(3.9,62,2,1208,0)=" S KMPDU(KMPDIEN,""START"")=$$STATS^%ZOSVKR"
^XMB(3.9,62,2,1209,0)="""RTN"",""KMPDUTL7"",14,0)"
^XMB(3.9,62,2,1210,0)=" Q"
^XMB(3.9,62,2,1211,0)="""RTN"",""KMPDUTL7"",15,0)"
^XMB(3.9,62,2,1212,0)=" ;"
^XMB(3.9,62,2,1213,0)="""RTN"",""KMPDUTL7"",16,0)"
^XMB(3.9,62,2,1214,0)="RSTOP(KMPDIEN) ;-- stop routine statistics"
^XMB(3.9,62,2,1215,0)="""RTN"",""KMPDUTL7"",17,0)"
^XMB(3.9,62,2,1216,0)=" ;-----------------------------------------------------------------------"
^XMB(3.9,62,2,1217,0)="""RTN"",""KMPDUTL7"",18,0)"
^XMB(3.9,62,2,1218,0)=" ; KMPDIEN.... Ien for file #8972.1 (CM CODE EVALUATOR)."
^XMB(3.9,62,2,1219,0)="""RTN"",""KMPDUTL7"",19,0)"
^XMB(3.9,62,2,1220,0)=" ;-----------------------------------------------------------------------"
^XMB(3.9,62,2,1221,0)="""RTN"",""KMPDUTL7"",20,0)"
^XMB(3.9,62,2,1222,0)=" Q:'$G(KMPDIEN)"
^XMB(3.9,62,2,1223,0)="""RTN"",""KMPDUTL7"",21,0)"
^XMB(3.9,62,2,1224,0)=" Q:'$D(^KMPD(8972.1,+KMPDIEN,0))#5"
^XMB(3.9,62,2,1225,0)="""RTN"",""KMPDUTL7"",22,0)"
^XMB(3.9,62,2,1226,0)=" ; quit if no 'start' subscript"
^XMB(3.9,62,2,1227,0)="""RTN"",""KMPDUTL7"",23,0)"
^XMB(3.9,62,2,1228,0)=" Q:'$D(KMPDU(KMPDIEN,""START""))"
^XMB(3.9,62,2,1229,0)="""RTN"",""KMPDUTL7"",24,0)"
^XMB(3.9,62,2,1230,0)=" ; quit if not 'active'"
^XMB(3.9,62,2,1231,0)="""RTN"",""KMPDUTL7"",25,0)"
^XMB(3.9,62,2,1232,0)=" Q:'$P($G(^KMPD(8972.1,+KMPDIEN,0)),U,11)"
^XMB(3.9,62,2,1233,0)="""RTN"",""KMPDUTL7"",26,0)"
^XMB(3.9,62,2,1234,0)=" ;"
^XMB(3.9,62,2,1235,0)="""RTN"",""KMPDUTL7"",27,0)"
^XMB(3.9,62,2,1236,0)=" N ARRAY,I,OVERHEAD,ZIEN"
^XMB(3.9,62,2,1237,0)="""RTN"",""KMPDUTL7"",28,0)"
^XMB(3.9,62,2,1238,0)=" ;"
^XMB(3.9,62,2,1239,0)="""RTN"",""KMPDUTL7"",29,0)"
^XMB(3.9,62,2,1240,0)=" S KMPDU(KMPDIEN,""STOP"")=$$STATS^%ZOSVKR"
^XMB(3.9,62,2,1241,0)="""RTN"",""KMPDUTL7"",30,0)"
^XMB(3.9,62,2,1242,0)=" F I=1:1:6 D "
^XMB(3.9,62,2,1243,0)="""RTN"",""KMPDUTL7"",31,0)"
^XMB(3.9,62,2,1244,0)=" .; check for negative numbers"
^XMB(3.9,62,2,1245,0)="""RTN"",""KMPDUTL7"",32,0)"
^XMB(3.9,62,2,1246,0)=" .S $P(KMPDU(KMPDIEN,""START""),U,I)=$$NUMBER($P(KMPDU(KMPDIEN,""START""),U,I))"
^XMB(3.9,62,2,1247,0)="""RTN"",""KMPDUTL7"",33,0)"
^XMB(3.9,62,2,1248,0)=" .S $P(KMPDU(KMPDIEN,""STOP""),U,I)=$$NUMBER($P(KMPDU(KMPDIEN,""STOP""),U,I))"
^XMB(3.9,62,2,1249,0)="""RTN"",""KMPDUTL7"",34,0)"
^XMB(3.9,62,2,1250,0)=" .; calculate difference"
^XMB(3.9,62,2,1251,0)="""RTN"",""KMPDUTL7"",35,0)"
^XMB(3.9,62,2,1252,0)=" .S $P(KMPDU(KMPDIEN,""DIFF""),U,I)=$P(KMPDU(KMPDIEN,""STOP""),U,I)-$P(KMPDU(KMPDIEN,""START""),U,I)"
^XMB(3.9,62,2,1253,0)="""RTN"",""KMPDUTL7"",36,0)"
^XMB(3.9,62,2,1254,0)=" .; check 'difference' for negative number"
^XMB(3.9,62,2,1255,0)="""RTN"",""KMPDUTL7"",37,0)"
^XMB(3.9,62,2,1256,0)=" .S $P(KMPDU(KMPDIEN,""DIFF""),U,I)=$$NUMBER($P(KMPDU(KMPDIEN,""DIFF""),U,I))"
^XMB(3.9,62,2,1257,0)="""RTN"",""KMPDUTL7"",38,0)"
^XMB(3.9,62,2,1258,0)=" ;"
^XMB(3.9,62,2,1259,0)="""RTN"",""KMPDUTL7"",39,0)"
^XMB(3.9,62,2,1260,0)=" ; get overhead data."
^XMB(3.9,62,2,1261,0)="""RTN"",""KMPDUTL7"",40,0)"
^XMB(3.9,62,2,1262,0)=" S OVERHEAD=$$GETROVHD"
^XMB(3.9,62,2,1263,0)="""RTN"",""KMPDUTL7"",41,0)"
^XMB(3.9,62,2,1264,0)=" ; subtract overhead data from ""DIFF""."
^XMB(3.9,62,2,1265,0)="""RTN"",""KMPDUTL7"",42,0)"
^XMB(3.9,62,2,1266,0)=" F I=1:1:6 D "
^XMB(3.9,62,2,1267,0)="""RTN"",""KMPDUTL7"",43,0)"
^XMB(3.9,62,2,1268,0)=" .S $P(KMPDU(KMPDIEN,""DIFF""),U,I)=$P(KMPDU(KMPDIEN,""DIFF""),U,I)-$P(OVERHEAD,U,I)"
^XMB(3.9,62,2,1269,0)="""RTN"",""KMPDUTL7"",44,0)"
^XMB(3.9,62,2,1270,0)=" ;"
^XMB(3.9,62,2,1271,0)="""RTN"",""KMPDUTL7"",45,0)"
^XMB(3.9,62,2,1272,0)=" ; file results"
^XMB(3.9,62,2,1273,0)="""RTN"",""KMPDUTL7"",46,0)"
^XMB(3.9,62,2,1274,0)=" ; elements."
^XMB(3.9,62,2,1275,0)="""RTN"",""KMPDUTL7"",47,0)"
^XMB(3.9,62,2,1276,0)=" F I=1:1:6 S ARRAY((I+3)*.01)=$P(KMPDU(KMPDIEN,""DIFF""),U,I)"
^XMB(3.9,62,2,1277,0)="""RTN"",""KMPDUTL7"",48,0)"
^XMB(3.9,62,2,1278,0)=" ; file data"
^XMB(3.9,62,2,1279,0)="""RTN"",""KMPDUTL7"",49,0)"
^XMB(3.9,62,2,1280,0)=" D EDIT^KMPDUTL8(KMPDIEN,""ARRAY"")"
^XMB(3.9,62,2,1281,0)="""RTN"",""KMPDUTL7"",50,0)"
^XMB(3.9,62,2,1282,0)=" ;"
^XMB(3.9,62,2,1283,0)="""RTN"",""KMPDUTL7"",51,0)"
^XMB(3.9,62,2,1284,0)=" K KMPDU(KMPDIEN)"
^XMB(3.9,62,2,1285,0)="""RTN"",""KMPDUTL7"",52,0)"
^XMB(3.9,62,2,1286,0)=" ;"
^XMB(3.9,62,2,1287,0)="""RTN"",""KMPDUTL7"",53,0)"
^XMB(3.9,62,2,1288,0)=" Q"
^XMB(3.9,62,2,1289,0)="""RTN"",""KMPDUTL7"",54,0)"
^XMB(3.9,62,2,1290,0)=" ;"
^XMB(3.9,62,2,1291,0)="""RTN"",""KMPDUTL7"",55,0)"
^XMB(3.9,62,2,1292,0)="CONVERT(KMPDTEXT) ;-- extrinsic function - convert disallowed character(s)"
^XMB(3.9,62,2,1293,0)="""RTN"",""KMPDUTL7"",56,0)"
^XMB(3.9,62,2,1294,0)=" ;-----------------------------------------------------------------------"
^XMB(3.9,62,2,1295,0)="""RTN"",""KMPDUTL7"",57,0)"
^XMB(3.9,62,2,1296,0)=" ; KMPDTEXT.. Text to convert."
^XMB(3.9,62,2,1297,0)="""RTN"",""KMPDUTL7"",58,0)"
^XMB(3.9,62,2,1298,0)=" ;             '^' will be converted to '~'"
^XMB(3.9,62,2,1299,0)="""RTN"",""KMPDUTL7"",59,0)"
^XMB(3.9,62,2,1300,0)=" ;-----------------------------------------------------------------------"
^XMB(3.9,62,2,1301,0)="""RTN"",""KMPDUTL7"",60,0)"
^XMB(3.9,62,2,1302,0)=" ;"
^XMB(3.9,62,2,1303,0)="""RTN"",""KMPDUTL7"",61,0)"
^XMB(3.9,62,2,1304,0)=" S KMPDTEXT=$TR(KMPDTEXT,""^"",""~"")"
^XMB(3.9,62,2,1305,0)="""RTN"",""KMPDUTL7"",62,0)"
^XMB(3.9,62,2,1306,0)=" Q $E(KMPDTEXT,1,30)"
^XMB(3.9,62,2,1307,0)="""RTN"",""KMPDUTL7"",63,0)"
^XMB(3.9,62,2,1308,0)=" ;"
^XMB(3.9,62,2,1309,0)="""RTN"",""KMPDUTL7"",64,0)"
^XMB(3.9,62,2,1310,0)="GETROVHD() ;-- extrinsic - get routine overhead stats."
^XMB(3.9,62,2,1311,0)="""RTN"",""KMPDUTL7"",65,0)"
^XMB(3.9,62,2,1312,0)=" ;-----------------------------------------------------------------------"
^XMB(3.9,62,2,1313,0)="""RTN"",""KMPDUTL7"",66,0)"
^XMB(3.9,62,2,1314,0)=" ; Return: overhead data in 9 up-arrow (^) pieces:"
^XMB(3.9,62,2,1315,0)="""RTN"",""KMPDUTL7"",67,0)"
^XMB(3.9,62,2,1316,0)=" ;         piece 1 - CPU Time"
^XMB(3.9,62,2,1317,0)="""RTN"",""KMPDUTL7"",68,0)"
^XMB(3.9,62,2,1318,0)=" ;         piece 2 - DIO References"
^XMB(3.9,62,2,1319,0)="""RTN"",""KMPDUTL7"",69,0)"
^XMB(3.9,62,2,1320,0)=" ;         piece 3 - BIO References"
^XMB(3.9,62,2,1321,0)="""RTN"",""KMPDUTL7"",70,0)"
^XMB(3.9,62,2,1322,0)=" ;         piece 4 - Page Faults"
^XMB(3.9,62,2,1323,0)="""RTN"",""KMPDUTL7"",71,0)"
^XMB(3.9,62,2,1324,0)=" ;         piece 5 - M Commands"
^XMB(3.9,62,2,1325,0)="""RTN"",""KMPDUTL7"",72,0)"
^XMB(3.9,62,2,1326,0)=" ;         piece 6 - GLO References"
^XMB(3.9,62,2,1327,0)="""RTN"",""KMPDUTL7"",73,0)"
^XMB(3.9,62,2,1328,0)=" ;         piece 7 - $H Day"
^XMB(3.9,62,2,1329,0)="""RTN"",""KMPDUTL7"",74,0)"
^XMB(3.9,62,2,1330,0)=" ;         piece 8 - $H Seconds"
^XMB(3.9,62,2,1331,0)="""RTN"",""KMPDUTL7"",75,0)"
^XMB(3.9,62,2,1332,0)=" ;         piece 9 - ASCII Date/Time"
^XMB(3.9,62,2,1333,0)="""RTN"",""KMPDUTL7"",76,0)"
^XMB(3.9,62,2,1334,0)=" ;-----------------------------------------------------------------------"
^XMB(3.9,62,2,1335,0)="""RTN"",""KMPDUTL7"",77,0)"
^XMB(3.9,62,2,1336,0)=" ;"
^XMB(3.9,62,2,1337,0)="""RTN"",""KMPDUTL7"",78,0)"
^XMB(3.9,62,2,1338,0)=" D:$G(^XTMP(""KMPD"",""ROVHD""))="""" ROVHD"
^XMB(3.9,62,2,1339,0)="""RTN"",""KMPDUTL7"",79,0)"
^XMB(3.9,62,2,1340,0)=" Q $G(^XTMP(""KMPD"",""ROVHD""))"
^XMB(3.9,62,2,1341,0)="""RTN"",""KMPDUTL7"",80,0)"
^XMB(3.9,62,2,1342,0)=" ;"
^XMB(3.9,62,2,1343,0)="""RTN"",""KMPDUTL7"",81,0)"
^XMB(3.9,62,2,1344,0)="ROVHD ;-- calculate overhead for routine stats."
^XMB(3.9,62,2,1345,0)="""RTN"",""KMPDUTL7"",82,0)"
^XMB(3.9,62,2,1346,0)=" ;"
^XMB(3.9,62,2,1347,0)="""RTN"",""KMPDUTL7"",83,0)"
^XMB(3.9,62,2,1348,0)=" ; This sub-routine determines the overhead for elements when running"
^XMB(3.9,62,2,1349,0)="""RTN"",""KMPDUTL7"",84,0)"
^XMB(3.9,62,2,1350,0)=" ; RSTART^KMPDUTL1 and RSTOP^KMPDUTL1.  The overhead numbers are stored"
^XMB(3.9,62,2,1351,0)="""RTN"",""KMPDUTL7"",85,0)"
^XMB(3.9,62,2,1352,0)=" ; in ^XTMP(""KMPD"",""ROHD""), and are subtracted from the final numbers"
^XMB(3.9,62,2,1353,0)="""RTN"",""KMPDUTL7"",86,0)"
^XMB(3.9,62,2,1354,0)=" ; to get as true a picture as possible of the actual elements for the"
^XMB(3.9,62,2,1355,0)="""RTN"",""KMPDUTL7"",87,0)"
^XMB(3.9,62,2,1356,0)=" ; calling routine."
^XMB(3.9,62,2,1357,0)="""RTN"",""KMPDUTL7"",88,0)"
^XMB(3.9,62,2,1358,0)=" ;"
^XMB(3.9,62,2,1359,0)="""RTN"",""KMPDUTL7"",89,0)"
^XMB(3.9,62,2,1360,0)=" N DIFF,I,START,STOP"
^XMB(3.9,62,2,1361,0)="""RTN"",""KMPDUTL7"",90,0)"
^XMB(3.9,62,2,1362,0)=" S DIFF="""""
^XMB(3.9,62,2,1363,0)="""RTN"",""KMPDUTL7"",91,0)"
^XMB(3.9,62,2,1364,0)=" S START=$$STATS^%ZOSVKR"
^XMB(3.9,62,2,1365,0)="""RTN"",""KMPDUTL7"",92,0)"
^XMB(3.9,62,2,1366,0)=" S STOP=$$STATS^%ZOSVKR"
^XMB(3.9,62,2,1367,0)="""RTN"",""KMPDUTL7"",93,0)"
^XMB(3.9,62,2,1368,0)=" F I=1:1:6 D "
^XMB(3.9,62,2,1369,0)="""RTN"",""KMPDUTL7"",94,0)"
^XMB(3.9,62,2,1370,0)=" .S $P(DIFF,U,I)=$P(STOP,U,I)-$P(START,U,I)"
^XMB(3.9,62,2,1371,0)="""RTN"",""KMPDUTL7"",95,0)"
^XMB(3.9,62,2,1372,0)=" ; m commands."
^XMB(3.9,62,2,1373,0)="""RTN"",""KMPDUTL7"",96,0)"
^XMB(3.9,62,2,1374,0)=" S $P(DIFF,U,5)=$P(DIFF,U,5)+8"
^XMB(3.9,62,2,1375,0)="""RTN"",""KMPDUTL7"",97,0)"
^XMB(3.9,62,2,1376,0)=" ; glo references."
^XMB(3.9,62,2,1377,0)="""RTN"",""KMPDUTL7"",98,0)"
^XMB(3.9,62,2,1378,0)=" S $P(DIFF,U,6)=$P(DIFF,U,6)+2"
^XMB(3.9,62,2,1379,0)="""RTN"",""KMPDUTL7"",99,0)"
^XMB(3.9,62,2,1380,0)=" S ^XTMP(""KMPD"",0)=$$FMADD^XLFDT($$DT^XLFDT,300)"
^XMB(3.9,62,2,1381,0)="""RTN"",""KMPDUTL7"",100,0)"
^XMB(3.9,62,2,1382,0)=" S ^XTMP(""KMPD"",""ROVHD"")=DIFF"
^XMB(3.9,62,2,1383,0)="""RTN"",""KMPDUTL7"",101,0)"
^XMB(3.9,62,2,1384,0)=" ;"
^XMB(3.9,62,2,1385,0)="""RTN"",""KMPDUTL7"",102,0)"
^XMB(3.9,62,2,1386,0)=" Q"
^XMB(3.9,62,2,1387,0)="""RTN"",""KMPDUTL7"",103,0)"
^XMB(3.9,62,2,1388,0)=" ;"
^XMB(3.9,62,2,1389,0)="""RTN"",""KMPDUTL7"",104,0)"
^XMB(3.9,62,2,1390,0)="NUMBER(KMPDNUM) ;-- extrinsic function - check for negative numbers"
^XMB(3.9,62,2,1391,0)="""RTN"",""KMPDUTL7"",105,0)"
^XMB(3.9,62,2,1392,0)=" ;-----------------------------------------------------------------------"
^XMB(3.9,62,2,1393,0)="""RTN"",""KMPDUTL7"",106,0)"
^XMB(3.9,62,2,1394,0)=" ; KMPDNUM... Number to be checked"
^XMB(3.9,62,2,1395,0)="""RTN"",""KMPDUTL7"",107,0)"
^XMB(3.9,62,2,1396,0)=" ;"
^XMB(3.9,62,2,1397,0)="""RTN"",""KMPDUTL7"",108,0)"
^XMB(3.9,62,2,1398,0)=" ; Return: non-negative number"
^XMB(3.9,62,2,1399,0)="""RTN"",""KMPDUTL7"",109,0)"
^XMB(3.9,62,2,1400,0)=" ;"
^XMB(3.9,62,2,1401,0)="""RTN"",""KMPDUTL7"",110,0)"
^XMB(3.9,62,2,1402,0)=" ; Because certain data elements (such as m commands and global "
^XMB(3.9,62,2,1403,0)="""RTN"",""KMPDUTL7"",111,0)"
^XMB(3.9,62,2,1404,0)=" ; references) can grow to such large numbers, these numbers must be"
^XMB(3.9,62,2,1405,0)="""RTN"",""KMPDUTL7"",112,0)"
^XMB(3.9,62,2,1406,0)=" ; checked.  If they have become negative (the register flips) they"
^XMB(3.9,62,2,1407,0)="""RTN"",""KMPDUTL7"",113,0)"
^XMB(3.9,62,2,1408,0)=" ; can be turned into positive numbers with"
^XMB(3.9,62,2,1409,0)="""RTN"",""KMPDUTL7"",114,0)"
^XMB(3.9,62,2,1410,0)=" ;-----------------------------------------------------------------------"
^XMB(3.9,62,2,1411,0)="""RTN"",""KMPDUTL7"",115,0)"
^XMB(3.9,62,2,1412,0)=" ;"
^XMB(3.9,62,2,1413,0)="""RTN"",""KMPDUTL7"",116,0)"
^XMB(3.9,62,2,1414,0)=" S KMPDNUM=$G(KMPDNUM)"
^XMB(3.9,62,2,1415,0)="""RTN"",""KMPDUTL7"",117,0)"
^XMB(3.9,62,2,1416,0)=" Q:KMPDNUM="""" KMPDNUM"
^XMB(3.9,62,2,1417,0)="""RTN"",""KMPDUTL7"",118,0)"
^XMB(3.9,62,2,1418,0)=" Q:KMPDNUM'<0 KMPDNUM"
^XMB(3.9,62,2,1419,0)="""RTN"",""KMPDUTL7"",119,0)"
^XMB(3.9,62,2,1420,0)=" Q KMPDNUM+(2**32)"
^XMB(3.9,62,2,1421,0)="""RTN"",""KMPDUTL7"",120,0)"
^XMB(3.9,62,2,1422,0)=" ;"
^XMB(3.9,62,2,1423,0)="""RTN"",""KMPDUTL7"",121,0)"
^XMB(3.9,62,2,1424,0)="TRANSTO(KMPDIEN,KMPDAPP,KMPDRES) ;-- return 'transmit to' for data transmission"
^XMB(3.9,62,2,1425,0)="""RTN"",""KMPDUTL7"",122,0)"
^XMB(3.9,62,2,1426,0)=" ;-----------------------------------------------------------------------"
^XMB(3.9,62,2,1427,0)="""RTN"",""KMPDUTL7"",123,0)"
^XMB(3.9,62,2,1428,0)=" ; KMPDIEN.... Ien for file #8973 (CP PARAMETERS)"
^XMB(3.9,62,2,1429,0)="""RTN"",""KMPDUTL7"",124,0)"
^XMB(3.9,62,2,1430,0)=" ; KMPDAPP.... Application:"
^XMB(3.9,62,2,1431,0)="""RTN"",""KMPDUTL7"",125,0)"
^XMB(3.9,62,2,1432,0)=" ;              1 = sagg"
^XMB(3.9,62,2,1433,0)="""RTN"",""KMPDUTL7"",126,0)"
^XMB(3.9,62,2,1434,0)=" ;              2 = rum"
^XMB(3.9,62,2,1435,0)="""RTN"",""KMPDUTL7"",127,0)"
^XMB(3.9,62,2,1436,0)=" ;              3 = hl7"
^XMB(3.9,62,2,1437,0)="""RTN"",""KMPDUTL7"",128,0)"
^XMB(3.9,62,2,1438,0)=" ;              4 = timing"
^XMB(3.9,62,2,1439,0)="""RTN"",""KMPDUTL7"",129,0)"
^XMB(3.9,62,2,1440,0)=" ;              5 = vista monitor"
^XMB(3.9,62,2,1441,0)="""RTN"",""KMPDUTL7"",130,0)"
^XMB(3.9,62,2,1442,0)=" ; KMPDRES().. Results array in format:"
^XMB(3.9,62,2,1443,0)="""RTN"",""KMPDUTL7"",131,0)"
^XMB(3.9,62,2,1444,0)=" ;              KMPDRES(ExternalFormat)=IEN"
^XMB(3.9,62,2,1445,0)="""RTN"",""KMPDUTL7"",132,0)"
^XMB(3.9,62,2,1446,0)=" ;              KMPDRES(...           )=IEN"
^XMB(3.9,62,2,1447,0)="""RTN"",""KMPDUTL7"",133,0)"
^XMB(3.9,62,2,1448,0)=" ;-----------------------------------------------------------------------"
^XMB(3.9,62,2,1449,0)="""RTN"",""KMPDUTL7"",134,0)"
^XMB(3.9,62,2,1450,0)=" ;"
^XMB(3.9,62,2,1451,0)="""RTN"",""KMPDUTL7"",135,0)"
^XMB(3.9,62,2,1452,0)=" K KMPDRES"
^XMB(3.9,62,2,1453,0)="""RTN"",""KMPDUTL7"",136,0)"
^XMB(3.9,62,2,1454,0)=" Q:'$G(KMPDIEN)"
^XMB(3.9,62,2,1455,0)="""RTN"",""KMPDUTL7"",137,0)"
^XMB(3.9,62,2,1456,0)=" Q:'$D(^KMPD(8973,KMPDIEN,0))"
^XMB(3.9,62,2,1457,0)="""RTN"",""KMPDUTL7"",138,0)"
^XMB(3.9,62,2,1458,0)=" Q:'$G(KMPDAPP)"
^XMB(3.9,62,2,1459,0)="""RTN"",""KMPDUTL7"",139,0)"
^XMB(3.9,62,2,1460,0)=" Q:KMPDAPP<1!(KMPDAPP>5)"
^XMB(3.9,62,2,1461,0)="""RTN"",""KMPDUTL7"",140,0)"
^XMB(3.9,62,2,1462,0)=" ;"
^XMB(3.9,62,2,1463,0)="""RTN"",""KMPDUTL7"",141,0)"
^XMB(3.9,62,2,1464,0)=" N DATA,I,NODE"
^XMB(3.9,62,2,1465,0)="""RTN"",""KMPDUTL7"",142,0)"
^XMB(3.9,62,2,1466,0)=" ;"
^XMB(3.9,62,2,1467,0)="""RTN"",""KMPDUTL7"",143,0)"
^XMB(3.9,62,2,1468,0)=" S NODE=21+(KMPDAPP*.1),I=0"
^XMB(3.9,62,2,1469,0)="""RTN"",""KMPDUTL7"",144,0)"
^XMB(3.9,62,2,1470,0)=" F  S I=$O(^KMPD(8973,KMPDIEN,NODE,I)) Q:'I  D "
^XMB(3.9,62,2,1471,0)="""RTN"",""KMPDUTL7"",145,0)"
^XMB(3.9,62,2,1472,0)=" .Q:'$D(^KMPD(8973,KMPDIEN,NODE,I,0))  S DATA=^(0)"
^XMB(3.9,62,2,1473,0)="""RTN"",""KMPDUTL7"",146,0)"
^XMB(3.9,62,2,1474,0)=" .S KMPDRES(DATA)=I"
^XMB(3.9,62,2,1475,0)="""RTN"",""KMPDUTL7"",147,0)"
^XMB(3.9,62,2,1476,0)=" ;"
^XMB(3.9,62,2,1477,0)="""RTN"",""KMPDUTL7"",148,0)"
^XMB(3.9,62,2,1478,0)=" Q"
^XMB(3.9,62,2,1479,0)="""SEC"",""^DIC"",8973,8973,0,""AUDIT"")"
^XMB(3.9,62,2,1480,0)="@"
^XMB(3.9,62,2,1481,0)="""SEC"",""^DIC"",8973,8973,0,""DD"")"
^XMB(3.9,62,2,1482,0)="@"
^XMB(3.9,62,2,1483,0)="""SEC"",""^DIC"",8973,8973,0,""DEL"")"
^XMB(3.9,62,2,1484,0)="@"
^XMB(3.9,62,2,1485,0)="""SEC"",""^DIC"",8973,8973,0,""LAYGO"")"
^XMB(3.9,62,2,1486,0)="@"
^XMB(3.9,62,2,1487,0)="""SEC"",""^DIC"",8973,8973,0,""RD"")"
^XMB(3.9,62,2,1488,0)="@"
^XMB(3.9,62,2,1489,0)="""SEC"",""^DIC"",8973,8973,0,""WR"")"
^XMB(3.9,62,2,1490,0)="@"
^XMB(3.9,62,2,1491,0)="""VER"")"
^XMB(3.9,62,2,1492,0)="8.0^22.0"
^XMB(3.9,62,2,1493,0)="""^DD"",8973,8973,0)"
^XMB(3.9,62,2,1494,0)="FIELD^^5.03^76"
^XMB(3.9,62,2,1495,0)="""^DD"",8973,8973,0,""DDA"")"
^XMB(3.9,62,2,1496,0)="N"
^XMB(3.9,62,2,1497,0)="""^DD"",8973,8973,0,""DT"")"
^XMB(3.9,62,2,1498,0)="3060412"
^XMB(3.9,62,2,1499,0)="""^DD"",8973,8973,0,""IX"",""B"",8973,.01)"
^XMB(3.9,62,2,1500,0)=""
^XMB(3.9,62,2,1501,0)="""^DD"",8973,8973,0,""NM"",""CP PARAMETERS"")"
^XMB(3.9,62,2,1502,0)=""
^XMB(3.9,62,2,1503,0)="""^DD"",8973,8973,0,""VRPK"")"
^XMB(3.9,62,2,1504,0)="KMPD"
^XMB(3.9,62,2,1505,0)="""^DD"",8973,8973,.01,0)"
^XMB(3.9,62,2,1506,0)="NAME^R*P4'^DIC(4,^0;1^S DIC(""S"")=""I '$O(^KMPD(8973,0))"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^XMB(3.9,62,2,1507,0)="""^DD"",8973,8973,.01,1,0)"
^XMB(3.9,62,2,1508,0)="^.1"
^XMB(3.9,62,2,1509,0)="""^DD"",8973,8973,.01,1,1,0)"
^XMB(3.9,62,2,1510,0)="8973^B"
^XMB(3.9,62,2,1511,0)="""^DD"",8973,8973,.01,1,1,1)"
^XMB(3.9,62,2,1512,0)="S ^KMPD(8973,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,62,2,1513,0)="""^DD"",8973,8973,.01,1,1,2)"
^XMB(3.9,62,2,1514,0)="K ^KMPD(8973,""B"",$E(X,1,30),DA)"
^XMB(3.9,62,2,1515,0)="""^DD"",8973,8973,.01,3)"
^XMB(3.9,62,2,1516,0)="Pointer to the Institution file (#4)"
^XMB(3.9,62,2,1517,0)="""^DD"",8973,8973,.01,12)"
^XMB(3.9,62,2,1518,0)="Allow only one entry in file."
^XMB(3.9,62,2,1519,0)="""^DD"",8973,8973,.01,12.1)"
^XMB(3.9,62,2,1520,0)="S DIC(""S"")=""I '$O(^KMPD(8973,0))"""
^XMB(3.9,62,2,1521,0)="""^DD"",8973,8973,.01,""DEL"",.01,0)"
^XMB(3.9,62,2,1522,0)="I 1"
^XMB(3.9,62,2,1523,0)="""^DD"",8973,8973,.01,""DT"")"
^XMB(3.9,62,2,1524,0)="3040401"
^XMB(3.9,62,2,1525,0)="""^DD"",8973,8973,.02,0)"
^XMB(3.9,62,2,1526,0)="CM TOOLS CURRENT VERSION^F^^0;2^K:$L(X)>10!($L(X)<1) X"
^XMB(3.9,62,2,1527,0)="""^DD"",8973,8973,.02,3)"
^XMB(3.9,62,2,1528,0)="Current version of CAPACITY MANGEMENT TOOLS. Answer must be 1-10 characters in length"
^XMB(3.9,62,2,1529,0)="""^DD"",8973,8973,.02,""DT"")"
^XMB(3.9,62,2,1530,0)="3040401"
^XMB(3.9,62,2,1531,0)="""^DD"",8973,8973,.03,0)"
^XMB(3.9,62,2,1532,0)="CM TOOLS CURRENT VERSION INST^D^^0;3^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1533,0)="""^DD"",8973,8973,.03,3)"
^XMB(3.9,62,2,1534,0)="Installation date of the current version of CAPACITY MANAGEMENT TOOLS."
^XMB(3.9,62,2,1535,0)="""^DD"",8973,8973,.03,""DT"")"
^XMB(3.9,62,2,1536,0)="3040401"
^XMB(3.9,62,2,1537,0)="""^DD"",8973,8973,.04,0)"
^XMB(3.9,62,2,1538,0)="CM TOOLS CURRENT PATCH^F^^0;4^K:$L(X)>10!($L(X)<1) X"
^XMB(3.9,62,2,1539,0)="""^DD"",8973,8973,.04,3)"
^XMB(3.9,62,2,1540,0)="Current patch number for the CAPACITY MANAGEMNT TOOLS package. Answer must be 1-10 characters in length"
^XMB(3.9,62,2,1541,0)="""^DD"",8973,8973,.04,""DT"")"
^XMB(3.9,62,2,1542,0)="3040401"
^XMB(3.9,62,2,1543,0)="""^DD"",8973,8973,.05,0)"
^XMB(3.9,62,2,1544,0)="CM TOOLS CURRENT PATCH INST^D^^0;5^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1545,0)="""^DD"",8973,8973,.05,3)"
^XMB(3.9,62,2,1546,0)="Installation Date of the current CAPACITY MANAGEMENT TOOLS patch."
^XMB(3.9,62,2,1547,0)="""^DD"",8973,8973,.05,""DT"")"
^XMB(3.9,62,2,1548,0)="3040401"
^XMB(3.9,62,2,1549,0)="""^DD"",8973,8973,1.01,0)"
^XMB(3.9,62,2,1550,0)="SAGG CURRENT VERSION^F^^1;1^K:$L(X)>10!($L(X)<1) X"
^XMB(3.9,62,2,1551,0)="""^DD"",8973,8973,1.01,3)"
^XMB(3.9,62,2,1552,0)="Current version of the SAGG package. Answer must be 1-10 characters in length"
^XMB(3.9,62,2,1553,0)="""^DD"",8973,8973,1.01,""DT"")"
^XMB(3.9,62,2,1554,0)="3040401"
^XMB(3.9,62,2,1555,0)="""^DD"",8973,8973,1.02,0)"
^XMB(3.9,62,2,1556,0)="SAGG CURRENT VERSION INSTALL^D^^1;2^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1557,0)="""^DD"",8973,8973,1.02,3)"
^XMB(3.9,62,2,1558,0)="Installation Date for the current SAGG package."
^XMB(3.9,62,2,1559,0)="""^DD"",8973,8973,1.02,""DT"")"
^XMB(3.9,62,2,1560,0)="3040401"
^XMB(3.9,62,2,1561,0)="""^DD"",8973,8973,1.03,0)"
^XMB(3.9,62,2,1562,0)="SAGG CURRENT PATCH^F^^1;3^K:$L(X)>20!($L(X)<1) X"
^XMB(3.9,62,2,1563,0)="""^DD"",8973,8973,1.03,3)"
^XMB(3.9,62,2,1564,0)="Current SAGG patch number(s). Answer must be 1-20 characters in length"
^XMB(3.9,62,2,1565,0)="""^DD"",8973,8973,1.03,""DT"")"
^XMB(3.9,62,2,1566,0)="3040401"
^XMB(3.9,62,2,1567,0)="""^DD"",8973,8973,1.04,0)"
^XMB(3.9,62,2,1568,0)="SAGG CURRENT PATCH INSTALL^D^^1;4^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1569,0)="""^DD"",8973,8973,1.04,3)"
^XMB(3.9,62,2,1570,0)="Installation Date for current SAGG patch."
^XMB(3.9,62,2,1571,0)="""^DD"",8973,8973,1.04,""DT"")"
^XMB(3.9,62,2,1572,0)="3040401"
^XMB(3.9,62,2,1573,0)="""^DD"",8973,8973,1.05,0)"
^XMB(3.9,62,2,1574,0)="SAGG DLY BKG START^D^^1;5^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1575,0)="""^DD"",8973,8973,1.05,3)"
^XMB(3.9,62,2,1576,0)="Most recent Start Time for the SAGG daily background job."
^XMB(3.9,62,2,1577,0)="""^DD"",8973,8973,1.05,""DT"")"
^XMB(3.9,62,2,1578,0)="3040401"
^XMB(3.9,62,2,1579,0)="""^DD"",8973,8973,1.06,0)"
^XMB(3.9,62,2,1580,0)="SAGG DLY BKG STOP^D^^1;6^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1581,0)="""^DD"",8973,8973,1.06,3)"
^XMB(3.9,62,2,1582,0)="Most recent Stop Time for the SAGG daily background job."
^XMB(3.9,62,2,1583,0)="""^DD"",8973,8973,1.06,""DT"")"
^XMB(3.9,62,2,1584,0)="3040401"
^XMB(3.9,62,2,1585,0)="""^DD"",8973,8973,1.07,0)"
^XMB(3.9,62,2,1586,0)="SAGG DLY BKG DELTA^F^^1;7^K:$L(X)>10!($L(X)<1) X"
^XMB(3.9,62,2,1587,0)="""^DD"",8973,8973,1.07,3)"
^XMB(3.9,62,2,1588,0)="Most recent Delta for the SAGG daily background job."
^XMB(3.9,62,2,1589,0)="""^DD"",8973,8973,1.07,""DT"")"
^XMB(3.9,62,2,1590,0)="3040401"
^XMB(3.9,62,2,1591,0)="""^DD"",8973,8973,1.08,0)"
^XMB(3.9,62,2,1592,0)="SAGG WKY BKG START^D^^1;8^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1593,0)="""^DD"",8973,8973,1.08,3)"
^XMB(3.9,62,2,1594,0)="Most recent Start Time for the SAGG weekly background job."
^XMB(3.9,62,2,1595,0)="""^DD"",8973,8973,1.08,""DT"")"
^XMB(3.9,62,2,1596,0)="3040401"
^XMB(3.9,62,2,1597,0)="""^DD"",8973,8973,1.09,0)"
^XMB(3.9,62,2,1598,0)="SAGG WKY BKG STOP^D^^1;9^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1599,0)="""^DD"",8973,8973,1.09,3)"
^XMB(3.9,62,2,1600,0)="Most recent Stop Time for the SAGG weekly background job. "
^XMB(3.9,62,2,1601,0)="""^DD"",8973,8973,1.09,""DT"")"
^XMB(3.9,62,2,1602,0)="3040401"
^XMB(3.9,62,2,1603,0)="""^DD"",8973,8973,1.1,0)"
^XMB(3.9,62,2,1604,0)="SAGG WKY BKG DELTA^F^^1;10^K:$L(X)>15!($L(X)<1) X"
^XMB(3.9,62,2,1605,0)="""^DD"",8973,8973,1.1,3)"
^XMB(3.9,62,2,1606,0)="Most recent Delta for the SAGG weekly background job."
^XMB(3.9,62,2,1607,0)="""^DD"",8973,8973,1.1,""DT"")"
^XMB(3.9,62,2,1608,0)="3040720"
^XMB(3.9,62,2,1609,0)="""^DD"",8973,8973,1.11,0)"
^XMB(3.9,62,2,1610,0)="SAGG WEEKS TO KEEP DATA^NJ3,0^^1;11^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1.N) X"
^XMB(3.9,62,2,1611,0)="""^DD"",8973,8973,1.11,3)"
^XMB(3.9,62,2,1612,0)="Type a number between 0 and 100, 0 Decimal Digits"
^XMB(3.9,62,2,1613,0)="""^DD"",8973,8973,1.11,""DT"")"
^XMB(3.9,62,2,1614,0)="3040401"
^XMB(3.9,62,2,1615,0)="""^DD"",8973,8973,1.12,0)"
^XMB(3.9,62,2,1616,0)="SAGG DLY PURGE START^D^^1;12^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1617,0)="""^DD"",8973,8973,1.12,3)"
^XMB(3.9,62,2,1618,0)="(No range limit on date)"
^XMB(3.9,62,2,1619,0)="""^DD"",8973,8973,1.12,""DT"")"
^XMB(3.9,62,2,1620,0)="3031121"
^XMB(3.9,62,2,1621,0)="""^DD"",8973,8973,1.13,0)"
^XMB(3.9,62,2,1622,0)="SAGG DLY PURGE STOP^D^^1;13^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1623,0)="""^DD"",8973,8973,1.13,3)"
^XMB(3.9,62,2,1624,0)="(No range limit on date)"
^XMB(3.9,62,2,1625,0)="""^DD"",8973,8973,1.13,""DT"")"
^XMB(3.9,62,2,1626,0)="3031121"
^XMB(3.9,62,2,1627,0)="""^DD"",8973,8973,1.14,0)"
^XMB(3.9,62,2,1628,0)="SAGG DLY PURGE DELTA^F^^1;14^K:$L(X)>10!($L(X)<1) X"
^XMB(3.9,62,2,1629,0)="""^DD"",8973,8973,1.14,3)"
^XMB(3.9,62,2,1630,0)="Answer must be 1-10 characters in length"
^XMB(3.9,62,2,1631,0)="""^DD"",8973,8973,1.14,""DT"")"
^XMB(3.9,62,2,1632,0)="3031121"
^XMB(3.9,62,2,1633,0)="""^DD"",8973,8973,1.15,0)"
^XMB(3.9,62,2,1634,0)="SAGG WKY PURGE START^D^^1;15^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1635,0)="""^DD"",8973,8973,1.15,3)"
^XMB(3.9,62,2,1636,0)="(No range limit on date)"
^XMB(3.9,62,2,1637,0)="""^DD"",8973,8973,1.15,""DT"")"
^XMB(3.9,62,2,1638,0)="3031121"
^XMB(3.9,62,2,1639,0)="""^DD"",8973,8973,1.16,0)"
^XMB(3.9,62,2,1640,0)="SAGG WKY PURGE STOP^D^^1;16^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1641,0)="""^DD"",8973,8973,1.16,3)"
^XMB(3.9,62,2,1642,0)="(No range limit on date)"
^XMB(3.9,62,2,1643,0)="""^DD"",8973,8973,1.16,""DT"")"
^XMB(3.9,62,2,1644,0)="3031121"
^XMB(3.9,62,2,1645,0)="""^DD"",8973,8973,1.17,0)"
^XMB(3.9,62,2,1646,0)="SAGG WKY PURGE DELTA^F^^1;17^K:$L(X)>10!($L(X)<1) X"
^XMB(3.9,62,2,1647,0)="""^DD"",8973,8973,1.17,3)"
^XMB(3.9,62,2,1648,0)="Answer must be 1-10 characters in length"
^XMB(3.9,62,2,1649,0)="""^DD"",8973,8973,1.17,""DT"")"
^XMB(3.9,62,2,1650,0)="3031121"
^XMB(3.9,62,2,1651,0)="""^DD"",8973,8973,2.01,0)"
^XMB(3.9,62,2,1652,0)="RUM CURRENT VERSION^F^^2;1^K:$L(X)>10!($L(X)<1) X"
^XMB(3.9,62,2,1653,0)="""^DD"",8973,8973,2.01,3)"
^XMB(3.9,62,2,1654,0)="Current version of the RESOURCE USAGE MONITOR package. Answer must be 1-10 characters in length"
^XMB(3.9,62,2,1655,0)="""^DD"",8973,8973,2.01,""DT"")"
^XMB(3.9,62,2,1656,0)="3040401"
^XMB(3.9,62,2,1657,0)="""^DD"",8973,8973,2.02,0)"
^XMB(3.9,62,2,1658,0)="RUM CURRENT VERSION INSTALL^D^^2;2^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1659,0)="""^DD"",8973,8973,2.02,3)"
^XMB(3.9,62,2,1660,0)="Installation Date of the current RESOURCE USAGE MONITOR package."
^XMB(3.9,62,2,1661,0)="""^DD"",8973,8973,2.02,""DT"")"
^XMB(3.9,62,2,1662,0)="3040401"
^XMB(3.9,62,2,1663,0)="""^DD"",8973,8973,2.03,0)"
^XMB(3.9,62,2,1664,0)="RUM CURRENT PATCH^F^^2;3^K:$L(X)>10!($L(X)<1) X"
^XMB(3.9,62,2,1665,0)="""^DD"",8973,8973,2.03,3)"
^XMB(3.9,62,2,1666,0)="Current patch number(s) for the RESOURCE USAGE MONITOR package. Answer must be 1-10 characters in length"
^XMB(3.9,62,2,1667,0)="""^DD"",8973,8973,2.03,""DT"")"
^XMB(3.9,62,2,1668,0)="3040401"
^XMB(3.9,62,2,1669,0)="""^DD"",8973,8973,2.04,0)"
^XMB(3.9,62,2,1670,0)="RUM CURRENT PATCH INSTALL^D^^2;4^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1671,0)="""^DD"",8973,8973,2.04,3)"
^XMB(3.9,62,2,1672,0)="Installation Date of the current patch for the RESOURCE USAGE MONITOR package."
^XMB(3.9,62,2,1673,0)="""^DD"",8973,8973,2.04,""DT"")"
^XMB(3.9,62,2,1674,0)="3040401"
^XMB(3.9,62,2,1675,0)="""^DD"",8973,8973,2.05,0)"
^XMB(3.9,62,2,1676,0)="RUM DLY BKG START^D^^2;5^S %DT=""ESTR"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1677,0)="""^DD"",8973,8973,2.05,3)"
^XMB(3.9,62,2,1678,0)="Most recent Start Time for the RUM daily background job. "
^XMB(3.9,62,2,1679,0)="""^DD"",8973,8973,2.05,""DT"")"
^XMB(3.9,62,2,1680,0)="3040401"
^XMB(3.9,62,2,1681,0)="""^DD"",8973,8973,2.06,0)"
^XMB(3.9,62,2,1682,0)="RUM DLY BKG STOP^D^^2;6^S %DT=""ESTR"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1683,0)="""^DD"",8973,8973,2.06,3)"
^XMB(3.9,62,2,1684,0)="Most recent Stop Time for the RUM daily background job."
^XMB(3.9,62,2,1685,0)="""^DD"",8973,8973,2.06,""DT"")"
^XMB(3.9,62,2,1686,0)="3040401"
^XMB(3.9,62,2,1687,0)="""^DD"",8973,8973,2.07,0)"
^XMB(3.9,62,2,1688,0)="RUM DLY BKG DELTA^F^^2;7^K:$L(X)>20!($L(X)<1) X"
^XMB(3.9,62,2,1689,0)="""^DD"",8973,8973,2.07,3)"
^XMB(3.9,62,2,1690,0)="Most recent Delta for the RUM daily background job."
^XMB(3.9,62,2,1691,0)="""^DD"",8973,8973,2.07,""DT"")"
^XMB(3.9,62,2,1692,0)="3040401"
^XMB(3.9,62,2,1693,0)="""^DD"",8973,8973,2.08,0)"
^XMB(3.9,62,2,1694,0)="RUM WKY BKG START^D^^2;8^S %DT=""ESTR"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1695,0)="""^DD"",8973,8973,2.08,3)"
^XMB(3.9,62,2,1696,0)="Most recent Start Time for the RUM weekly background job."
^XMB(3.9,62,2,1697,0)="""^DD"",8973,8973,2.08,""DT"")"
^XMB(3.9,62,2,1698,0)="3040401"
^XMB(3.9,62,2,1699,0)="""^DD"",8973,8973,2.09,0)"
^XMB(3.9,62,2,1700,0)="RUM WKY BKG STOP^D^^2;9^S %DT=""ESTR"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1701,0)="""^DD"",8973,8973,2.09,3)"
^XMB(3.9,62,2,1702,0)="Most recent Stop Time for the RUM weekly background job.  "
^XMB(3.9,62,2,1703,0)="""^DD"",8973,8973,2.09,""DT"")"
^XMB(3.9,62,2,1704,0)="3040401"
^XMB(3.9,62,2,1705,0)="""^DD"",8973,8973,2.1,0)"
^XMB(3.9,62,2,1706,0)="RUM WKY BKG DELTA^F^^2;10^K:$L(X)>20!($L(X)<1) X"
^XMB(3.9,62,2,1707,0)="""^DD"",8973,8973,2.1,3)"
^XMB(3.9,62,2,1708,0)="Most recent Delta for the RUM weekly background job."
^XMB(3.9,62,2,1709,0)="""^DD"",8973,8973,2.1,""DT"")"
^XMB(3.9,62,2,1710,0)="3040401"
^XMB(3.9,62,2,1711,0)="""^DD"",8973,8973,2.11,0)"
^XMB(3.9,62,2,1712,0)="RUM WEEKS TO KEEP DATA^NJ2,0^^2;11^K:+X'=X!(X>20)!(X<2)!(X?.E1"".""1.N) X"
^XMB(3.9,62,2,1713,0)="""^DD"",8973,8973,2.11,3)"
^XMB(3.9,62,2,1714,0)="This is the number of weeks that RUM data will be retained in file #8971.1 before purging.  It is recommended that 2 weeks of data be retained."
^XMB(3.9,62,2,1715,0)="""^DD"",8973,8973,2.11,""DT"")"
^XMB(3.9,62,2,1716,0)="3040401"
^XMB(3.9,62,2,1717,0)="""^DD"",8973,8973,2.12,0)"
^XMB(3.9,62,2,1718,0)="RUM DLY PURGE START^D^^2;12^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1719,0)="""^DD"",8973,8973,2.12,3)"
^XMB(3.9,62,2,1720,0)="(No range limit on date)"
^XMB(3.9,62,2,1721,0)="""^DD"",8973,8973,2.12,""DT"")"
^XMB(3.9,62,2,1722,0)="3031121"
^XMB(3.9,62,2,1723,0)="""^DD"",8973,8973,2.13,0)"
^XMB(3.9,62,2,1724,0)="RUM DLY PURGE STOP^D^^2;13^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1725,0)="""^DD"",8973,8973,2.13,3)"
^XMB(3.9,62,2,1726,0)="(No range limit on date)"
^XMB(3.9,62,2,1727,0)="""^DD"",8973,8973,2.13,""DT"")"
^XMB(3.9,62,2,1728,0)="3031121"
^XMB(3.9,62,2,1729,0)="""^DD"",8973,8973,2.14,0)"
^XMB(3.9,62,2,1730,0)="RUM DLY PURGE DELTA^F^^2;14^K:$L(X)>10!($L(X)<1) X"
^XMB(3.9,62,2,1731,0)="""^DD"",8973,8973,2.14,3)"
^XMB(3.9,62,2,1732,0)="Answer must be 1-10 characters in length"
^XMB(3.9,62,2,1733,0)="""^DD"",8973,8973,2.14,""DT"")"
^XMB(3.9,62,2,1734,0)="3031121"
^XMB(3.9,62,2,1735,0)="""^DD"",8973,8973,2.15,0)"
^XMB(3.9,62,2,1736,0)="RUM WKY PURGE START^D^^2;15^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1737,0)="""^DD"",8973,8973,2.15,3)"
^XMB(3.9,62,2,1738,0)="(No range limit on date)"
^XMB(3.9,62,2,1739,0)="""^DD"",8973,8973,2.15,""DT"")"
^XMB(3.9,62,2,1740,0)="3031121"
^XMB(3.9,62,2,1741,0)="""^DD"",8973,8973,2.16,0)"
^XMB(3.9,62,2,1742,0)="RUM WKY PURGE STOP^D^^2;16^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1743,0)="""^DD"",8973,8973,2.16,3)"
^XMB(3.9,62,2,1744,0)="(No range limit on date)"
^XMB(3.9,62,2,1745,0)="""^DD"",8973,8973,2.16,""DT"")"
^XMB(3.9,62,2,1746,0)="3031121"
^XMB(3.9,62,2,1747,0)="""^DD"",8973,8973,2.17,0)"
^XMB(3.9,62,2,1748,0)="RUM WKY PURGE DELTA^F^^2;17^K:$L(X)>10!($L(X)<1) X"
^XMB(3.9,62,2,1749,0)="""^DD"",8973,8973,2.17,3)"
^XMB(3.9,62,2,1750,0)="Answer must be 1-10 characters in length"
^XMB(3.9,62,2,1751,0)="""^DD"",8973,8973,2.17,""DT"")"
^XMB(3.9,62,2,1752,0)="3031121"
^XMB(3.9,62,2,1753,0)="""^DD"",8973,8973,3.05,0)"
^XMB(3.9,62,2,1754,0)="HL7 DLY BKG START^D^^3;5^S %DT=""ESTR"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1755,0)="""^DD"",8973,8973,3.05,3)"
^XMB(3.9,62,2,1756,0)="Most recent Start Time for the HL7 daily background job.  "
^XMB(3.9,62,2,1757,0)="""^DD"",8973,8973,3.05,""DT"")"
^XMB(3.9,62,2,1758,0)="3040401"
^XMB(3.9,62,2,1759,0)="""^DD"",8973,8973,3.06,0)"
^XMB(3.9,62,2,1760,0)="HL7 DLY BKG STOP^D^^3;6^S %DT=""ESTR"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1761,0)="""^DD"",8973,8973,3.06,3)"
^XMB(3.9,62,2,1762,0)="Most recent Stop Time for the HL7 daily background job.  "
^XMB(3.9,62,2,1763,0)="""^DD"",8973,8973,3.06,""DT"")"
^XMB(3.9,62,2,1764,0)="3040401"
^XMB(3.9,62,2,1765,0)="""^DD"",8973,8973,3.07,0)"
^XMB(3.9,62,2,1766,0)="HL7 DLY BKG DELTA^F^^3;7^K:$L(X)>20!($L(X)<1) X"
^XMB(3.9,62,2,1767,0)="""^DD"",8973,8973,3.07,3)"
^XMB(3.9,62,2,1768,0)="Most recent Delta for the Timing daily background job."
^XMB(3.9,62,2,1769,0)="""^DD"",8973,8973,3.07,""DT"")"
^XMB(3.9,62,2,1770,0)="3040401"
^XMB(3.9,62,2,1771,0)="""^DD"",8973,8973,3.08,0)"
^XMB(3.9,62,2,1772,0)="HL7 WKY BKG START^D^^3;8^S %DT=""ESTR"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1773,0)="""^DD"",8973,8973,3.08,3)"
^XMB(3.9,62,2,1774,0)="Most recent Start Time for the HL7 weekly background job."
^XMB(3.9,62,2,1775,0)="""^DD"",8973,8973,3.08,""DT"")"
^XMB(3.9,62,2,1776,0)="3040401"
^XMB(3.9,62,2,1777,0)="""^DD"",8973,8973,3.09,0)"
^XMB(3.9,62,2,1778,0)="HL7 WKY BKG STOP^D^^3;9^S %DT=""ESTR"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1779,0)="""^DD"",8973,8973,3.09,3)"
^XMB(3.9,62,2,1780,0)="Most recent Stop Time for the HL7 weekly background job."
^XMB(3.9,62,2,1781,0)="""^DD"",8973,8973,3.09,""DT"")"
^XMB(3.9,62,2,1782,0)="3040401"
^XMB(3.9,62,2,1783,0)="""^DD"",8973,8973,3.1,0)"
^XMB(3.9,62,2,1784,0)="HL7 WKY BKG DELTA^F^^3;10^K:$L(X)>20!($L(X)<1) X"
^XMB(3.9,62,2,1785,0)="""^DD"",8973,8973,3.1,3)"
^XMB(3.9,62,2,1786,0)="Most recent Delta for the HL7 weekly background job."
^XMB(3.9,62,2,1787,0)="""^DD"",8973,8973,3.1,""DT"")"
^XMB(3.9,62,2,1788,0)="3040401"
^XMB(3.9,62,2,1789,0)="""^DD"",8973,8973,3.11,0)"
^XMB(3.9,62,2,1790,0)="HL7 WEEKS TO KEEP DATA^NJ2,0^^3;11^K:+X'=X!(X>20)!(X<2)!(X?.E1"".""1.N) X"
^XMB(3.9,62,2,1791,0)="""^DD"",8973,8973,3.11,3)"
^XMB(3.9,62,2,1792,0)="This is the number of weeks that HL7 data will be retained in file #8973.1 before purging.  It is recommended that 2 weeks of data be retained."
^XMB(3.9,62,2,1793,0)="""^DD"",8973,8973,3.11,""DT"")"
^XMB(3.9,62,2,1794,0)="3040401"
^XMB(3.9,62,2,1795,0)="""^DD"",8973,8973,3.12,0)"
^XMB(3.9,62,2,1796,0)="HL7 DLY PURGE START^D^^3;12^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1797,0)="""^DD"",8973,8973,3.12,3)"
^XMB(3.9,62,2,1798,0)="(No range limit on date)"
^XMB(3.9,62,2,1799,0)="""^DD"",8973,8973,3.12,""DT"")"
^XMB(3.9,62,2,1800,0)="3031121"
^XMB(3.9,62,2,1801,0)="""^DD"",8973,8973,3.13,0)"
^XMB(3.9,62,2,1802,0)="HL7 DLY PURGE END^D^^3;13^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1803,0)="""^DD"",8973,8973,3.13,3)"
^XMB(3.9,62,2,1804,0)="(No range limit on date)"
^XMB(3.9,62,2,1805,0)="""^DD"",8973,8973,3.13,""DT"")"
^XMB(3.9,62,2,1806,0)="3031121"
^XMB(3.9,62,2,1807,0)="""^DD"",8973,8973,3.14,0)"
^XMB(3.9,62,2,1808,0)="HL7 DLY PURGE DELTA^F^^3;14^K:$L(X)>20!($L(X)<1) X"
^XMB(3.9,62,2,1809,0)="""^DD"",8973,8973,3.14,3)"
^XMB(3.9,62,2,1810,0)="Answer must be 1-20 characters in length"
^XMB(3.9,62,2,1811,0)="""^DD"",8973,8973,3.14,""DT"")"
^XMB(3.9,62,2,1812,0)="3031121"
^XMB(3.9,62,2,1813,0)="""^DD"",8973,8973,3.15,0)"
^XMB(3.9,62,2,1814,0)="HL7 WKY PURGE START^D^^3;15^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1815,0)="""^DD"",8973,8973,3.15,3)"
^XMB(3.9,62,2,1816,0)="(No range limit on date)"
^XMB(3.9,62,2,1817,0)="""^DD"",8973,8973,3.15,""DT"")"
^XMB(3.9,62,2,1818,0)="3031121"
^XMB(3.9,62,2,1819,0)="""^DD"",8973,8973,3.16,0)"
^XMB(3.9,62,2,1820,0)="HL7 WKY PURGE END^D^^3;16^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1821,0)="""^DD"",8973,8973,3.16,3)"
^XMB(3.9,62,2,1822,0)="(No range limit on date)"
^XMB(3.9,62,2,1823,0)="""^DD"",8973,8973,3.16,""DT"")"
^XMB(3.9,62,2,1824,0)="3031121"
^XMB(3.9,62,2,1825,0)="""^DD"",8973,8973,3.17,0)"
^XMB(3.9,62,2,1826,0)="HL7 WKY PURGE DELTA^F^^3;17^K:$L(X)>20!($L(X)<1) X"
^XMB(3.9,62,2,1827,0)="""^DD"",8973,8973,3.17,3)"
^XMB(3.9,62,2,1828,0)="Answer must be 1-20 characters in length"
^XMB(3.9,62,2,1829,0)="""^DD"",8973,8973,3.17,""DT"")"
^XMB(3.9,62,2,1830,0)="3031121"
^XMB(3.9,62,2,1831,0)="""^DD"",8973,8973,4.05,0)"
^XMB(3.9,62,2,1832,0)="TIMING DLY BKG START^D^^4;5^S %DT=""ESTR"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1833,0)="""^DD"",8973,8973,4.05,3)"
^XMB(3.9,62,2,1834,0)="Most recent Start Time for the Timing daily background job."
^XMB(3.9,62,2,1835,0)="""^DD"",8973,8973,4.05,""DT"")"
^XMB(3.9,62,2,1836,0)="3040401"
^XMB(3.9,62,2,1837,0)="""^DD"",8973,8973,4.06,0)"
^XMB(3.9,62,2,1838,0)="TIMING DLY BKG STOP^D^^4;6^S %DT=""ESTR"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1839,0)="""^DD"",8973,8973,4.06,3)"
^XMB(3.9,62,2,1840,0)="Most recent Stop Time for the Timing daily background job."
^XMB(3.9,62,2,1841,0)="""^DD"",8973,8973,4.06,""DT"")"
^XMB(3.9,62,2,1842,0)="3040401"
^XMB(3.9,62,2,1843,0)="""^DD"",8973,8973,4.07,0)"
^XMB(3.9,62,2,1844,0)="TIMING DLY BKG DELTA^F^^4;7^K:$L(X)>20!($L(X)<1) X"
^XMB(3.9,62,2,1845,0)="""^DD"",8973,8973,4.07,3)"
^XMB(3.9,62,2,1846,0)="Most recent Delat for the Timing daily background job."
^XMB(3.9,62,2,1847,0)="""^DD"",8973,8973,4.07,""DT"")"
^XMB(3.9,62,2,1848,0)="3040401"
^XMB(3.9,62,2,1849,0)="""^DD"",8973,8973,4.08,0)"
^XMB(3.9,62,2,1850,0)="TIMING WKY BKG START^D^^4;8^S %DT=""ESTR"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1851,0)="""^DD"",8973,8973,4.08,3)"
^XMB(3.9,62,2,1852,0)="Most recent Start Time for the Timing weekly background job."
^XMB(3.9,62,2,1853,0)="""^DD"",8973,8973,4.08,""DT"")"
^XMB(3.9,62,2,1854,0)="3040401"
^XMB(3.9,62,2,1855,0)="""^DD"",8973,8973,4.09,0)"
^XMB(3.9,62,2,1856,0)="TIMING WKY BKG STOP^D^^4;9^S %DT=""ESTR"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1857,0)="""^DD"",8973,8973,4.09,3)"
^XMB(3.9,62,2,1858,0)="Most recent Stop Time for the Timing weekly background job."
^XMB(3.9,62,2,1859,0)="""^DD"",8973,8973,4.09,""DT"")"
^XMB(3.9,62,2,1860,0)="3040401"
^XMB(3.9,62,2,1861,0)="""^DD"",8973,8973,4.1,0)"
^XMB(3.9,62,2,1862,0)="TIMING WKY BKG DELTA^F^^4;10^K:$L(X)>20!($L(X)<1) X"
^XMB(3.9,62,2,1863,0)="""^DD"",8973,8973,4.1,3)"
^XMB(3.9,62,2,1864,0)="Most recent Delta for the Timing weekly background job."
^XMB(3.9,62,2,1865,0)="""^DD"",8973,8973,4.1,""DT"")"
^XMB(3.9,62,2,1866,0)="3040401"
^XMB(3.9,62,2,1867,0)="""^DD"",8973,8973,4.11,0)"
^XMB(3.9,62,2,1868,0)="TIMING WEEKS TO KEEP DATA^NJ2,0^^4;11^K:+X'=X!(X>40)!(X<2)!(X?.E1"".""1.N) X"
^XMB(3.9,62,2,1869,0)="""^DD"",8973,8973,4.11,3)"
^XMB(3.9,62,2,1870,0)="This is the number of weeks that Timing data will be retained in file #8973.2 before purging.  It is recommended that 4 weeks of data be retained.             "
^XMB(3.9,62,2,1871,0)="""^DD"",8973,8973,4.11,""DT"")"
^XMB(3.9,62,2,1872,0)="3031211"
^XMB(3.9,62,2,1873,0)="""^DD"",8973,8973,4.12,0)"
^XMB(3.9,62,2,1874,0)="TIMING DLY PURGE START^D^^4;12^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1875,0)="""^DD"",8973,8973,4.12,3)"
^XMB(3.9,62,2,1876,0)="(No range limit on date)"
^XMB(3.9,62,2,1877,0)="""^DD"",8973,8973,4.12,""DT"")"
^XMB(3.9,62,2,1878,0)="3031121"
^XMB(3.9,62,2,1879,0)="""^DD"",8973,8973,4.13,0)"
^XMB(3.9,62,2,1880,0)="TIMING DLY PURGE END^D^^4;13^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1881,0)="""^DD"",8973,8973,4.13,3)"
^XMB(3.9,62,2,1882,0)="(No range limit on date)"
^XMB(3.9,62,2,1883,0)="""^DD"",8973,8973,4.13,""DT"")"
^XMB(3.9,62,2,1884,0)="3031121"
^XMB(3.9,62,2,1885,0)="""^DD"",8973,8973,4.14,0)"
^XMB(3.9,62,2,1886,0)="TIMING DLY PURGE DELTA^F^^4;14^K:$L(X)>20!($L(X)<1) X"
^XMB(3.9,62,2,1887,0)="""^DD"",8973,8973,4.14,3)"
^XMB(3.9,62,2,1888,0)="Answer must be 1-20 characters in length"
^XMB(3.9,62,2,1889,0)="""^DD"",8973,8973,4.14,""DT"")"
^XMB(3.9,62,2,1890,0)="3031121"
^XMB(3.9,62,2,1891,0)="""^DD"",8973,8973,4.15,0)"
^XMB(3.9,62,2,1892,0)="TIMING WKY PURGE START^D^^4;15^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1893,0)="""^DD"",8973,8973,4.15,3)"
^XMB(3.9,62,2,1894,0)="(No range limit on date)"
^XMB(3.9,62,2,1895,0)="""^DD"",8973,8973,4.15,""DT"")"
^XMB(3.9,62,2,1896,0)="3031121"
^XMB(3.9,62,2,1897,0)="""^DD"",8973,8973,4.16,0)"
^XMB(3.9,62,2,1898,0)="TIMING WKY PURGE END^D^^4;16^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1899,0)="""^DD"",8973,8973,4.16,3)"
^XMB(3.9,62,2,1900,0)="(No range limit on date)"
^XMB(3.9,62,2,1901,0)="""^DD"",8973,8973,4.16,""DT"")"
^XMB(3.9,62,2,1902,0)="3031121"
^XMB(3.9,62,2,1903,0)="""^DD"",8973,8973,4.17,0)"
^XMB(3.9,62,2,1904,0)="TIMING WKY PURGE DELTA^F^^4;17^K:$L(X)>20!($L(X)<1) X"
^XMB(3.9,62,2,1905,0)="""^DD"",8973,8973,4.17,3)"
^XMB(3.9,62,2,1906,0)="Answer must be 1-20 characters in length"
^XMB(3.9,62,2,1907,0)="""^DD"",8973,8973,4.17,""DT"")"
^XMB(3.9,62,2,1908,0)="3031121"
^XMB(3.9,62,2,1909,0)="""^DD"",8973,8973,5.01,0)"
^XMB(3.9,62,2,1910,0)="SCHEDULED DOWN TIME START^D^^5;1^S %DT=""ESTXR"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1911,0)="""^DD"",8973,8973,5.01,3)"
^XMB(3.9,62,2,1912,0)="Enter the Date/Time that Scheduled Down Time is to begin.  You cannot enter a 'Scheduled Down Time Stop' unless this field has an entry."
^XMB(3.9,62,2,1913,0)="""^DD"",8973,8973,5.01,""DT"")"
^XMB(3.9,62,2,1914,0)="3060412"
^XMB(3.9,62,2,1915,0)="""^DD"",8973,8973,5.02,0)"
^XMB(3.9,62,2,1916,0)="SCHEDULED DOWN TIME STOP^D^^5;2^S %DT=""ESTR"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,62,2,1917,0)="""^DD"",8973,8973,5.02,3)"
^XMB(3.9,62,2,1918,0)="Enter the Date/Time that the Scheduled Down Time will end."
^XMB(3.9,62,2,1919,0)="""^DD"",8973,8973,5.02,""DT"")"
^XMB(3.9,62,2,1920,0)="3060412"
^XMB(3.9,62,2,1921,0)="""^DD"",8973,8973,5.03,0)"
^XMB(3.9,62,2,1922,0)="REASON FOR DOWN TIME^F^^5;3^K:$L(X)>65!($L(X)<1) X"
^XMB(3.9,62,2,1923,0)="""^DD"",8973,8973,5.03,3)"
^XMB(3.9,62,2,1924,0)="Answer must be 1-65 characters in length"
^XMB(3.9,62,2,1925,0)="""^DD"",8973,8973,5.03,""DT"")"
^XMB(3.9,62,2,1926,0)="3060412"
^XMB(3.9,62,2,1927,0)="""^DD"",8973,8973,19.01,0)"
^XMB(3.9,62,2,1928,0)="MONITOR UPDATE RATE - MINUTES^NJ2,0^^19;1^K:+X'=X!(X>60)!(X<5)!(X?.E1"".""1.N) X"
^XMB(3.9,62,2,1929,0)="""^DD"",8973,8973,19.01,3)"
^XMB(3.9,62,2,1930,0)="When the Timing Monitor is running, this is the number of minutes between automatic updates. (Type a number between 5 and 60)"
^XMB(3.9,62,2,1931,0)="""^DD"",8973,8973,19.01,""DT"")"
^XMB(3.9,62,2,1932,0)="3040213"
^XMB(3.9,62,2,1933,0)="""^DD"",8973,8973,19.02,0)"
^XMB(3.9,62,2,1934,0)="MONITOR ALERT - SECONDS^NJ3,0^^19;2^K:+X'=X!(X>999)!(X<10)!(X?.E1"".""1.N) X"
^XMB(3.9,62,2,1935,0)="""^DD"",8973,8973,19.02,3)"
^XMB(3.9,62,2,1936,0)="When the Timing Monitor is running, if the average time-to-load a CPRS Coversheet exceeds this value, an alert will appear on the Timing Monitor screen. (Type a number between 10 and 999)"
^XMB(3.9,62,2,1937,0)="""^DD"",8973,8973,19.02,""DT"")"
^XMB(3.9,62,2,1938,0)="3040213"
^XMB(3.9,62,2,1939,0)="""^DD"",8973,8973,20,0)"
^XMB(3.9,62,2,1940,0)="CPU^8973.201^^20;0"
^XMB(3.9,62,2,1941,0)="""^DD"",8973,8973,20,21,0)"
^XMB(3.9,62,2,1942,0)="^^1^1^3040401^"
^XMB(3.9,62,2,1943,0)="""^DD"",8973,8973,20,21,1,0)"
^XMB(3.9,62,2,1944,0)="Current CPU/Node data."
^XMB(3.9,62,2,1945,0)="""^DD"",8973,8973,21.1,0)"
^XMB(3.9,62,2,1946,0)="SAGG TRANSMIT TO^8973.01^^21.1;0"
^XMB(3.9,62,2,1947,0)="""^DD"",8973,8973,21.1,21,0)"
^XMB(3.9,62,2,1948,0)="^^3^3^3040901^^^"
^XMB(3.9,62,2,1949,0)="""^DD"",8973,8973,21.1,21,1,0)"
^XMB(3.9,62,2,1950,0)="This represents the location(s) where the SAGG data is transmitted after "
^XMB(3.9,62,2,1951,0)="""^DD"",8973,8973,21.1,21,2,0)"
^XMB(3.9,62,2,1952,0)="being compiled at the sites.  *** THESE ENTRIES SHOULD NOT BE CHANGED BY "
^XMB(3.9,62,2,1953,0)="""^DD"",8973,8973,21.1,21,3,0)"
^XMB(3.9,62,2,1954,0)="THE LOCAL FACILITY ***"
^XMB(3.9,62,2,1955,0)="""^DD"",8973,8973,21.2,0)"
^XMB(3.9,62,2,1956,0)="RUM TRANSMIT TO^8973.02^^21.2;0"
^XMB(3.9,62,2,1957,0)="""^DD"",8973,8973,21.2,21,0)"
^XMB(3.9,62,2,1958,0)="^^3^3^3040901^^"
^XMB(3.9,62,2,1959,0)="""^DD"",8973,8973,21.2,21,1,0)"
^XMB(3.9,62,2,1960,0)="This represents the location(s) where the RUM data is transmitted after "
^XMB(3.9,62,2,1961,0)="""^DD"",8973,8973,21.2,21,2,0)"
^XMB(3.9,62,2,1962,0)="being compiled at the sites.  *** THESE ENTRIES SHOULD NOT BE CHANGED BY "
^XMB(3.9,62,2,1963,0)="""^DD"",8973,8973,21.2,21,3,0)"
^XMB(3.9,62,2,1964,0)="THE LOCAL FACILITY ***"
^XMB(3.9,62,2,1965,0)="""^DD"",8973,8973,21.3,0)"
^XMB(3.9,62,2,1966,0)="HL7 TRANSMIT TO^8973.03^^21.3;0"
^XMB(3.9,62,2,1967,0)="""^DD"",8973,8973,21.3,21,0)"
^XMB(3.9,62,2,1968,0)="^^3^3^3040901^^"
^XMB(3.9,62,2,1969,0)="""^DD"",8973,8973,21.3,21,1,0)"
^XMB(3.9,62,2,1970,0)="This represents the location(s) where the HL7 data is transmitted after "
^XMB(3.9,62,2,1971,0)="""^DD"",8973,8973,21.3,21,2,0)"
^XMB(3.9,62,2,1972,0)="being compiled at the sites.  *** THESE ENTRIES SHOULD NOT BE CHANGED BY "
^XMB(3.9,62,2,1973,0)="""^DD"",8973,8973,21.3,21,3,0)"
^XMB(3.9,62,2,1974,0)="THE LOCAL FACILITY ***"
^XMB(3.9,62,2,1975,0)="""^DD"",8973,8973,21.4,0)"
^XMB(3.9,62,2,1976,0)="TIMING TRANSMIT TO^8973.04^^21.4;0"
^XMB(3.9,62,2,1977,0)="""^DD"",8973,8973,21.4,21,0)"
^XMB(3.9,62,2,1978,0)="^^3^3^3040901^^"
^XMB(3.9,62,2,1979,0)="""^DD"",8973,8973,21.4,21,1,0)"
^XMB(3.9,62,2,1980,0)="This represents the location(s) where the TIMING data is transmitted after"
^XMB(3.9,62,2,1981,0)="""^DD"",8973,8973,21.4,21,2,0)"
^XMB(3.9,62,2,1982,0)="being compiled at the sites.  *** THESE ENTRIES SHOULD NOT BE CHANGED BY "
^XMB(3.9,62,2,1983,0)="""^DD"",8973,8973,21.4,21,3,0)"
^XMB(3.9,62,2,1984,0)="THE LOCAL FACILITY ***"
^XMB(3.9,62,2,1985,0)="""^DD"",8973,8973,21.5,0)"
^XMB(3.9,62,2,1986,0)="VISTA MONITOR TRANSMIT TO^8973.05^^21.5;0"
^XMB(3.9,62,2,1987,0)="""^DD"",8973,8973.01,0)"
^XMB(3.9,62,2,1988,0)="SAGG TRANSMIT TO SUB-FIELD^^.01^1"
^XMB(3.9,62,2,1989,0)="""^DD"",8973,8973.01,0,""DT"")"
^XMB(3.9,62,2,1990,0)="3040720"
^XMB(3.9,62,2,1991,0)="""^DD"",8973,8973.01,0,""IX"",""B"",8973.01,.01)"
^XMB(3.9,62,2,1992,0)=""
^XMB(3.9,62,2,1993,0)="""^DD"",8973,8973.01,0,""NM"",""SAGG TRANSMIT TO"")"
^XMB(3.9,62,2,1994,0)=""
^XMB(3.9,62,2,1995,0)="""^DD"",8973,8973.01,0,""UP"")"
^XMB(3.9,62,2,1996,0)="8973"
^XMB(3.9,62,2,1997,0)="""^DD"",8973,8973.01,.01,0)"
^XMB(3.9,62,2,1998,0)="SAGG TRANSMIT TO^F^^0;1^K:$L(X)>45!($L(X)<1) X"
^XMB(3.9,62,2,1999,0)="""^DD"",8973,8973.01,.01,1,0)"
^XMB(3.9,62,2,2000,0)="^.1"
^XMB(3.9,62,2,2001,0)="""^DD"",8973,8973.01,.01,1,1,0)"
^XMB(3.9,62,2,2002,0)="8973.01^B"
^XMB(3.9,62,2,2003,0)="""^DD"",8973,8973.01,.01,1,1,1)"
^XMB(3.9,62,2,2004,0)="S ^KMPD(8973,DA(1),21.1,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,62,2,2005,0)="""^DD"",8973,8973.01,.01,1,1,2)"
^XMB(3.9,62,2,2006,0)="K ^KMPD(8973,DA(1),21.1,""B"",$E(X,1,30),DA)"
^XMB(3.9,62,2,2007,0)="""^DD"",8973,8973.01,.01,3)"
^XMB(3.9,62,2,2008,0)="This represents the location(s) where the SAGG data is transmitted after being compiled at the sites.  *** THESE ENTRIES SHOULD NOT BE CHANGED BY THE LOCAL FACILITY ***"
^XMB(3.9,62,2,2009,0)="""^DD"",8973,8973.01,.01,""DT"")"
^XMB(3.9,62,2,2010,0)="3040901"
^XMB(3.9,62,2,2011,0)="""^DD"",8973,8973.02,0)"
^XMB(3.9,62,2,2012,0)="RUM TRANSMIT TO SUB-FIELD^^.01^1"
^XMB(3.9,62,2,2013,0)="""^DD"",8973,8973.02,0,""DT"")"
^XMB(3.9,62,2,2014,0)="3040720"
^XMB(3.9,62,2,2015,0)="""^DD"",8973,8973.02,0,""IX"",""B"",8973.02,.01)"
^XMB(3.9,62,2,2016,0)=""
^XMB(3.9,62,2,2017,0)="""^DD"",8973,8973.02,0,""NM"",""RUM TRANSMIT TO"")"
^XMB(3.9,62,2,2018,0)=""
^XMB(3.9,62,2,2019,0)="""^DD"",8973,8973.02,0,""UP"")"
^XMB(3.9,62,2,2020,0)="8973"
^XMB(3.9,62,2,2021,0)="""^DD"",8973,8973.02,.01,0)"
^XMB(3.9,62,2,2022,0)="RUM TRANSMIT TO^F^^0;1^K:$L(X)>45!($L(X)<1) X"
^XMB(3.9,62,2,2023,0)="""^DD"",8973,8973.02,.01,1,0)"
^XMB(3.9,62,2,2024,0)="^.1"
^XMB(3.9,62,2,2025,0)="""^DD"",8973,8973.02,.01,1,1,0)"
^XMB(3.9,62,2,2026,0)="8973.02^B"
^XMB(3.9,62,2,2027,0)="""^DD"",8973,8973.02,.01,1,1,1)"
^XMB(3.9,62,2,2028,0)="S ^KMPD(8973,DA(1),21.2,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,62,2,2029,0)="""^DD"",8973,8973.02,.01,1,1,2)"
^XMB(3.9,62,2,2030,0)="K ^KMPD(8973,DA(1),21.2,""B"",$E(X,1,30),DA)"
^XMB(3.9,62,2,2031,0)="""^DD"",8973,8973.02,.01,3)"
^XMB(3.9,62,2,2032,0)="This represents the location(s) where the RUM data is transmitted after being compiled at the sites.  *** THESE ENTRIES SHOULD NOT BE CHANGED BY THE LOCAL FACILITY ***"
^XMB(3.9,62,2,2033,0)="""^DD"",8973,8973.02,.01,""DT"")"
^XMB(3.9,62,2,2034,0)="3040901"
^XMB(3.9,62,2,2035,0)="""^DD"",8973,8973.03,0)"
^XMB(3.9,62,2,2036,0)="HL7 TRANSMIT TO SUB-FIELD^^.01^1"
^XMB(3.9,62,2,2037,0)="""^DD"",8973,8973.03,0,""DT"")"
^XMB(3.9,62,2,2038,0)="3040720"
^XMB(3.9,62,2,2039,0)="""^DD"",8973,8973.03,0,""IX"",""B"",8973.03,.01)"
^XMB(3.9,62,2,2040,0)=""
^XMB(3.9,62,2,2041,0)="""^DD"",8973,8973.03,0,""NM"",""HL7 TRANSMIT TO"")"
^XMB(3.9,62,2,2042,0)=""
^XMB(3.9,62,2,2043,0)="""^DD"",8973,8973.03,0,""UP"")"
^XMB(3.9,62,2,2044,0)="8973"
^XMB(3.9,62,2,2045,0)="""^DD"",8973,8973.03,.01,0)"
^XMB(3.9,62,2,2046,0)="HL7 TRANSMIT TO^F^^0;1^K:$L(X)>45!($L(X)<1) X"
^XMB(3.9,62,2,2047,0)="""^DD"",8973,8973.03,.01,1,0)"
^XMB(3.9,62,2,2048,0)="^.1"
^XMB(3.9,62,2,2049,0)="""^DD"",8973,8973.03,.01,1,1,0)"
^XMB(3.9,62,2,2050,0)="8973.03^B"
^XMB(3.9,62,2,2051,0)="""^DD"",8973,8973.03,.01,1,1,1)"
^XMB(3.9,62,2,2052,0)="S ^KMPD(8973,DA(1),21.3,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,62,2,2053,0)="""^DD"",8973,8973.03,.01,1,1,2)"
^XMB(3.9,62,2,2054,0)="K ^KMPD(8973,DA(1),21.3,""B"",$E(X,1,30),DA)"
^XMB(3.9,62,2,2055,0)="""^DD"",8973,8973.03,.01,3)"
^XMB(3.9,62,2,2056,0)="This represents the location(s) where the HL7 data is transmitted after being compiled at the sites.  *** THESE ENTRIES SHOULD NOT BE CHANGED BY THE LOCAL FACILITY ***"
^XMB(3.9,62,2,2057,0)="""^DD"",8973,8973.03,.01,""DT"")"
^XMB(3.9,62,2,2058,0)="3040901"
^XMB(3.9,62,2,2059,0)="""^DD"",8973,8973.04,0)"
^XMB(3.9,62,2,2060,0)="TIMING TRANSMIT TO SUB-FIELD^^.01^1"
^XMB(3.9,62,2,2061,0)="""^DD"",8973,8973.04,0,""DT"")"
^XMB(3.9,62,2,2062,0)="3040720"
^XMB(3.9,62,2,2063,0)="""^DD"",8973,8973.04,0,""IX"",""B"",8973.04,.01)"
^XMB(3.9,62,2,2064,0)=""
^XMB(3.9,62,2,2065,0)="""^DD"",8973,8973.04,0,""NM"",""TIMING TRANSMIT TO"")"
^XMB(3.9,62,2,2066,0)=""
^XMB(3.9,62,2,2067,0)="""^DD"",8973,8973.04,0,""UP"")"
^XMB(3.9,62,2,2068,0)="8973"
^XMB(3.9,62,2,2069,0)="""^DD"",8973,8973.04,.01,0)"
^XMB(3.9,62,2,2070,0)="TIMING TRANSMIT TO^F^^0;1^K:$L(X)>45!($L(X)<1) X"
^XMB(3.9,62,2,2071,0)="""^DD"",8973,8973.04,.01,1,0)"
^XMB(3.9,62,2,2072,0)="^.1"
^XMB(3.9,62,2,2073,0)="""^DD"",8973,8973.04,.01,1,1,0)"
^XMB(3.9,62,2,2074,0)="8973.04^B"
^XMB(3.9,62,2,2075,0)="""^DD"",8973,8973.04,.01,1,1,1)"
^XMB(3.9,62,2,2076,0)="S ^KMPD(8973,DA(1),21.4,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,62,2,2077,0)="""^DD"",8973,8973.04,.01,1,1,2)"
^XMB(3.9,62,2,2078,0)="K ^KMPD(8973,DA(1),21.4,""B"",$E(X,1,30),DA)"
^XMB(3.9,62,2,2079,0)="""^DD"",8973,8973.04,.01,3)"
^XMB(3.9,62,2,2080,0)="This represents the location(s) where the TIMING data is transmitted afterbeing compiled at the sites.  *** THESE ENTRIES SHOULD NOT BE CHANGED BY THE LOCAL FACILITY ***"
^XMB(3.9,62,2,2081,0)="""^DD"",8973,8973.04,.01,""DT"")"
^XMB(3.9,62,2,2082,0)="3040901"
^XMB(3.9,62,2,2083,0)="""^DD"",8973,8973.05,0)"
^XMB(3.9,62,2,2084,0)="VISTA MONITOR TRANSMIT TO SUB-FIELD^^.01^1"
^XMB(3.9,62,2,2085,0)="""^DD"",8973,8973.05,0,""DT"")"
^XMB(3.9,62,2,2086,0)="3060412"
^XMB(3.9,62,2,2087,0)="""^DD"",8973,8973.05,0,""IX"",""B"",8973.05,.01)"
^XMB(3.9,62,2,2088,0)=""
^XMB(3.9,62,2,2089,0)="""^DD"",8973,8973.05,0,""NM"",""VISTA MONITOR TRANSMIT TO"")"
^XMB(3.9,62,2,2090,0)=""
^XMB(3.9,62,2,2091,0)="""^DD"",8973,8973.05,0,""UP"")"
^XMB(3.9,62,2,2092,0)="8973"
^XMB(3.9,62,2,2093,0)="""^DD"",8973,8973.05,.01,0)"
^XMB(3.9,62,2,2094,0)="VISTA MONITOR TRANSMIT TO^F^^0;1^K:$L(X)>45!($L(X)<1) X"
^XMB(3.9,62,2,2095,0)="""^DD"",8973,8973.05,.01,1,0)"
^XMB(3.9,62,2,2096,0)="^.1"
^XMB(3.9,62,2,2097,0)="""^DD"",8973,8973.05,.01,1,1,0)"
^XMB(3.9,62,2,2098,0)="8973.05^B"
^XMB(3.9,62,2,2099,0)="""^DD"",8973,8973.05,.01,1,1,1)"
^XMB(3.9,62,2,2100,0)="S ^KMPD(8973,DA(1),21.5,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,62,2,2101,0)="""^DD"",8973,8973.05,.01,1,1,2)"
^XMB(3.9,62,2,2102,0)="K ^KMPD(8973,DA(1),21.5,""B"",$E(X,1,30),DA)"
^XMB(3.9,62,2,2103,0)="""^DD"",8973,8973.05,.01,3)"
^XMB(3.9,62,2,2104,0)="Answer must be 1-45 characters in length"
^XMB(3.9,62,2,2105,0)="""^DD"",8973,8973.05,.01,""DT"")"
^XMB(3.9,62,2,2106,0)="3060412"
^XMB(3.9,62,2,2107,0)="""^DD"",8973,8973.201,0)"
^XMB(3.9,62,2,2108,0)="CPU SUB-FIELD^^.05^5"
^XMB(3.9,62,2,2109,0)="""^DD"",8973,8973.201,0,""DT"")"
^XMB(3.9,62,2,2110,0)="3031125"
^XMB(3.9,62,2,2111,0)="""^DD"",8973,8973.201,0,""IX"",""B"",8973.201,.01)"
^XMB(3.9,62,2,2112,0)=""
^XMB(3.9,62,2,2113,0)="""^DD"",8973,8973.201,0,""NM"",""CPU"")"
^XMB(3.9,62,2,2114,0)=""
^XMB(3.9,62,2,2115,0)="""^DD"",8973,8973.201,0,""UP"")"
^XMB(3.9,62,2,2116,0)="8973"
^XMB(3.9,62,2,2117,0)="""^DD"",8973,8973.201,.01,0)"
^XMB(3.9,62,2,2118,0)="NODE^F^^0;1^K:$L(X)>30!($L(X)<1) X"
^XMB(3.9,62,2,2119,0)="""^DD"",8973,8973.201,.01,1,0)"
^XMB(3.9,62,2,2120,0)="^.1"
^XMB(3.9,62,2,2121,0)="""^DD"",8973,8973.201,.01,1,1,0)"
^XMB(3.9,62,2,2122,0)="8973.201^B"
^XMB(3.9,62,2,2123,0)="""^DD"",8973,8973.201,.01,1,1,1)"
^XMB(3.9,62,2,2124,0)="S ^KMPD(8973,DA(1),20,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,62,2,2125,0)="""^DD"",8973,8973.201,.01,1,1,2)"
^XMB(3.9,62,2,2126,0)="K ^KMPD(8973,DA(1),20,""B"",$E(X,1,30),DA)"
^XMB(3.9,62,2,2127,0)="""^DD"",8973,8973.201,.01,3)"
^XMB(3.9,62,2,2128,0)="Node name. Answer must be 1-30 characters in length"
^XMB(3.9,62,2,2129,0)="""^DD"",8973,8973.201,.01,""DT"")"
^XMB(3.9,62,2,2130,0)="3040401"
^XMB(3.9,62,2,2131,0)="""^DD"",8973,8973.201,.02,0)"
^XMB(3.9,62,2,2132,0)="TYPE OF CPU^F^^0;2^K:$L(X)>60!($L(X)<1) X"
^XMB(3.9,62,2,2133,0)="""^DD"",8973,8973.201,.02,3)"
^XMB(3.9,62,2,2134,0)="Type of CPU for this node. Answer must be 1-60 characters in length"
^XMB(3.9,62,2,2135,0)="""^DD"",8973,8973.201,.02,""DT"")"
^XMB(3.9,62,2,2136,0)="3040401"
^XMB(3.9,62,2,2137,0)="""^DD"",8973,8973.201,.03,0)"
^XMB(3.9,62,2,2138,0)="NUMBER OF PROCESSORS^NJ3,0^^0;3^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1.N) X"
^XMB(3.9,62,2,2139,0)="""^DD"",8973,8973.201,.03,3)"
^XMB(3.9,62,2,2140,0)="Number of processors for this node. Type a number between 0 and 999, 0 Decimal Digits"
^XMB(3.9,62,2,2141,0)="""^DD"",8973,8973.201,.03,""DT"")"
^XMB(3.9,62,2,2142,0)="3040401"
^XMB(3.9,62,2,2143,0)="""^DD"",8973,8973.201,.04,0)"
^XMB(3.9,62,2,2144,0)="PROCESSOR SPEED^F^^0;4^K:$L(X)>20!($L(X)<1) X"
^XMB(3.9,62,2,2145,0)="""^DD"",8973,8973.201,.04,3)"
^XMB(3.9,62,2,2146,0)="Processor speed for this node. Answer must be 1-20 characters in length"
^XMB(3.9,62,2,2147,0)="""^DD"",8973,8973.201,.04,""DT"")"
^XMB(3.9,62,2,2148,0)="3040401"
^XMB(3.9,62,2,2149,0)="""^DD"",8973,8973.201,.05,0)"
^XMB(3.9,62,2,2150,0)="AMOUNT OF MEMORY^F^^0;5^K:$L(X)>20!($L(X)<1) X"
^XMB(3.9,62,2,2151,0)="""^DD"",8973,8973.201,.05,3)"
^XMB(3.9,62,2,2152,0)="Amount of memory for this node. Answer must be 1-20 characters in length"
^XMB(3.9,62,2,2153,0)="""^DD"",8973,8973.201,.05,""DT"")"
^XMB(3.9,62,2,2154,0)="3040401"
^XMB(3.9,62,2,2155,0)="""^DIC"",8973,8973,0)"
^XMB(3.9,62,2,2156,0)="CP PARAMETERS^8973"
^XMB(3.9,62,2,2157,0)="""^DIC"",8973,8973,0,""GL"")"
^XMB(3.9,62,2,2158,0)="^KMPD(8973,"
^XMB(3.9,62,2,2159,0)="""^DIC"",8973,8973,""%"",0)"
^XMB(3.9,62,2,2160,0)="^1.005^^0"
^XMB(3.9,62,2,2161,0)="""^DIC"",8973,8973,""%D"",0)"
^XMB(3.9,62,2,2162,0)="^^5^5^3040401^"
^XMB(3.9,62,2,2163,0)="""^DIC"",8973,8973,""%D"",1,0)"
^XMB(3.9,62,2,2164,0)="This file keeps track of all editable parameters for Capacity Planning "
^XMB(3.9,62,2,2165,0)="""^DIC"",8973,8973,""%D"",2,0)"
^XMB(3.9,62,2,2166,0)="packages.  It also stores Start, Stop and Delta times for background "
^XMB(3.9,62,2,2167,0)="""^DIC"",8973,8973,""%D"",3,0)"
^XMB(3.9,62,2,2168,0)="jobs, as well as CPU Node data.  There is only one entry allowed in this "
^XMB(3.9,62,2,2169,0)="""^DIC"",8973,8973,""%D"",4,0)"
^XMB(3.9,62,2,2170,0)="file, and is a pointer to the Institution file taken from the first piece "
^XMB(3.9,62,2,2171,0)="""^DIC"",8973,8973,""%D"",5,0)"
^XMB(3.9,62,2,2172,0)="of the $$SITE^VASITE extrinsic function."
^XMB(3.9,62,2,2173,0)="""^DIC"",8973,""B"",""CP PARAMETERS"",8973)"
^XMB(3.9,62,2,2174,0)=""
^XMB(3.9,62,2,2175,0)="""BLD"",6733,6)"
^XMB(3.9,62,2,2176,0)="^5"
^XMB(3.9,62,2,2177,0)="$END KID KMPD*2.0*5"
^XMB(3.9,62,6,0)="^3.911A^2^2"
^XMB(3.9,62,6,1,0)="POSTMASTER"
^XMB(3.9,62,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,62,6,"B","POSTMASTER",1)=""
^XMB(3.9,62,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,63,0)="LA-5P2_SEQ-54_PAT-72.KID^.5^3061008.015738^^^^K"
^XMB(3.9,63,.6)="3061008"
^XMB(3.9,63,1,0)="^3.91A^2^2"
^XMB(3.9,63,1,1,0)=".5^0^3061008.015738^^^^^^^3061008.015738"
^XMB(3.9,63,1,2,0)="1^0^3061008.023806^^^^^^^3061008.023806"
^XMB(3.9,63,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,63,1,"C",.5,1)=""
^XMB(3.9,63,1,"C",1,2)=""
^XMB(3.9,63,2,0)="^^1691^1691^3061008"
^XMB(3.9,63,2,1,0)="$TXT Released LA*5.2*72 SEQ #54"
^XMB(3.9,63,2,2,0)="Extracted from mail message"
^XMB(3.9,63,2,3,0)="$END TXT"
^XMB(3.9,63,2,4,0)="$KID LA*5.2*72"
^XMB(3.9,63,2,5,0)="**INSTALL NAME**"
^XMB(3.9,63,2,6,0)="LA*5.2*72"
^XMB(3.9,63,2,7,0)="""BLD"",5918,0)"
^XMB(3.9,63,2,8,0)="LA*5.2*72^AUTOMATED LAB INSTRUMENTS^0^3060501^y"
^XMB(3.9,63,2,9,0)="""BLD"",5918,1,0)"
^XMB(3.9,63,2,10,0)="^^201^201^3060501^"
^XMB(3.9,63,2,11,0)="""BLD"",5918,1,1,0)"
^XMB(3.9,63,2,12,0)="Blood Bank Team Coordination"
^XMB(3.9,63,2,13,0)="""BLD"",5918,1,2,0)"
^XMB(3.9,63,2,14,0)="============================"
^XMB(3.9,63,2,15,0)="""BLD"",5918,1,3,0)"
^XMB(3.9,63,2,16,0)="EFFECT ON BLOOD BANK FUNCTIONAL REQUIREMENTS: Patch LA*5.2*72 does not "
^XMB(3.9,63,2,17,0)="""BLD"",5918,1,4,0)"
^XMB(3.9,63,2,18,0)="contain any changes to the VISTA BLOOD BANK Software as defined by VHA "
^XMB(3.9,63,2,19,0)="""BLD"",5918,1,5,0)"
^XMB(3.9,63,2,20,0)="DIRECTIVE 2004-053 titled VISTA BLOOD BANK SOFTWARE VERSION 5.2."
^XMB(3.9,63,2,21,0)="""BLD"",5918,1,6,0)"
^XMB(3.9,63,2,22,0)=" "
^XMB(3.9,63,2,23,0)="""BLD"",5918,1,7,0)"
^XMB(3.9,63,2,24,0)="EFFECT ON BLOOD BANK FUNCTIONAL REQUIREMENTS: Patch LA*5.2*72 does not "
^XMB(3.9,63,2,25,0)="""BLD"",5918,1,8,0)"
^XMB(3.9,63,2,26,0)="alter or modify any software design safeguards or safety critical "
^XMB(3.9,63,2,27,0)="""BLD"",5918,1,9,0)"
^XMB(3.9,63,2,28,0)="elements functions."
^XMB(3.9,63,2,29,0)="""BLD"",5918,1,10,0)"
^XMB(3.9,63,2,30,0)=" "
^XMB(3.9,63,2,31,0)="""BLD"",5918,1,11,0)"
^XMB(3.9,63,2,32,0)="RISK ANALYSIS: Changes made by patch LA*5.2*72 have no effect on Blood "
^XMB(3.9,63,2,33,0)="""BLD"",5918,1,12,0)"
^XMB(3.9,63,2,34,0)="Bank software functionality, therefore RISK is none."
^XMB(3.9,63,2,35,0)="""BLD"",5918,1,13,0)"
^XMB(3.9,63,2,36,0)=" "
^XMB(3.9,63,2,37,0)="""BLD"",5918,1,14,0)"
^XMB(3.9,63,2,38,0)="VALIDATION REQUIREMENTS BY OPTION: Because of the nature of the changes "
^XMB(3.9,63,2,39,0)="""BLD"",5918,1,15,0)"
^XMB(3.9,63,2,40,0)="made, no specific validation requirements exist as a result of "
^XMB(3.9,63,2,41,0)="""BLD"",5918,1,16,0)"
^XMB(3.9,63,2,42,0)="installation of this patch. "
^XMB(3.9,63,2,43,0)="""BLD"",5918,1,17,0)"
^XMB(3.9,63,2,44,0)="************************************************************************"
^XMB(3.9,63,2,45,0)="""BLD"",5918,1,18,0)"
^XMB(3.9,63,2,46,0)=" "
^XMB(3.9,63,2,47,0)="""BLD"",5918,1,19,0)"
^XMB(3.9,63,2,48,0)="Sites reported errors logged in the error trap when receiving lab results "
^XMB(3.9,63,2,49,0)="""BLD"",5918,1,20,0)"
^XMB(3.9,63,2,50,0)="back from another VA host lab via Lab Electronic Data Interchange (LEDI):"
^XMB(3.9,63,2,51,0)="""BLD"",5918,1,21,0)"
^XMB(3.9,63,2,52,0)=" "
^XMB(3.9,63,2,53,0)="""BLD"",5918,1,22,0)"
^XMB(3.9,63,2,54,0)=" "
^XMB(3.9,63,2,55,0)="""BLD"",5918,1,23,0)"
^XMB(3.9,63,2,56,0)="$ZE= <UNDEFINED>PRDID+11^LA7VIN5A"
^XMB(3.9,63,2,57,0)="""BLD"",5918,1,24,0)"
^XMB(3.9,63,2,58,0)=" "
^XMB(3.9,63,2,59,0)="""BLD"",5918,1,25,0)"
^XMB(3.9,63,2,60,0)=" . I $P(LA7PRDID,LA7CS,LA7I+2)=""99VA4"" S "
^XMB(3.9,63,2,61,0)="""BLD"",5918,1,26,0)"
^XMB(3.9,63,2,62,0)="LA74=$$LKUP^XUAF4($P(LA7PRDID,LA7CS,I))"
^XMB(3.9,63,2,63,0)="""BLD"",5918,1,27,0)"
^XMB(3.9,63,2,64,0)=" "
^XMB(3.9,63,2,65,0)="""BLD"",5918,1,28,0)"
^XMB(3.9,63,2,66,0)=" "
^XMB(3.9,63,2,67,0)="""BLD"",5918,1,29,0)"
^XMB(3.9,63,2,68,0)="The following portion of code in PRDID^LA7VIN5A has been changed to "
^XMB(3.9,63,2,69,0)="""BLD"",5918,1,30,0)"
^XMB(3.9,63,2,70,0)="reference the correct variable (LA7I instead of I): "
^XMB(3.9,63,2,71,0)="""BLD"",5918,1,31,0)"
^XMB(3.9,63,2,72,0)=" "
^XMB(3.9,63,2,73,0)="""BLD"",5918,1,32,0)"
^XMB(3.9,63,2,74,0)="**PREVIOUS CODE**"
^XMB(3.9,63,2,75,0)="""BLD"",5918,1,33,0)"
^XMB(3.9,63,2,76,0)="F LA7I=1,4 D  Q:LA74                                                   "
^XMB(3.9,63,2,77,0)="""BLD"",5918,1,34,0)"
^XMB(3.9,63,2,78,0)=". I $P(LA7PRDID,LA7CS,LA7I+2)=""99VA4"" S "
^XMB(3.9,63,2,79,0)="""BLD"",5918,1,35,0)"
^XMB(3.9,63,2,80,0)="LA74=$$LKUP^XUAF4($P(LA7PRDID,LA7CS,I))"
^XMB(3.9,63,2,81,0)="""BLD"",5918,1,36,0)"
^XMB(3.9,63,2,82,0)=". I 'LA74 S LA74=$$LKUP^XUAF4($P(LA7PRDID,LA7CS,I+1))                  "
^XMB(3.9,63,2,83,0)="""BLD"",5918,1,37,0)"
^XMB(3.9,63,2,84,0)=". I 'LA74 S LA74=$$FINDSITE^LA7VHLU2($P(LA7PRDID,LA7CS),1,1)           "
^XMB(3.9,63,2,85,0)="""BLD"",5918,1,38,0)"
^XMB(3.9,63,2,86,0)=". I 'LA74 S LA74=$$FINDSITE^LA7VHLU2($P(LA7SFAC,LA7CS),1,1)"
^XMB(3.9,63,2,87,0)="""BLD"",5918,1,39,0)"
^XMB(3.9,63,2,88,0)=" "
^XMB(3.9,63,2,89,0)="""BLD"",5918,1,40,0)"
^XMB(3.9,63,2,90,0)=" "
^XMB(3.9,63,2,91,0)="""BLD"",5918,1,41,0)"
^XMB(3.9,63,2,92,0)="**NEW CODE**"
^XMB(3.9,63,2,93,0)="""BLD"",5918,1,42,0)"
^XMB(3.9,63,2,94,0)="F LA7I=1,4 D  Q:LA74"
^XMB(3.9,63,2,95,0)="""BLD"",5918,1,43,0)"
^XMB(3.9,63,2,96,0)=". I $P(LA7PRDID,LA7CS,LA7I+2)=""99VA4"" S "
^XMB(3.9,63,2,97,0)="""BLD"",5918,1,44,0)"
^XMB(3.9,63,2,98,0)="LA74=$$LKUP^XUAF4($P(LA7PRDID,LA7CS,LA7I))"
^XMB(3.9,63,2,99,0)="""BLD"",5918,1,45,0)"
^XMB(3.9,63,2,100,0)=". I 'LA74 S LA74=$$LKUP^XUAF4($P(LA7PRDID,LA7CS,LA7I+1))"
^XMB(3.9,63,2,101,0)="""BLD"",5918,1,46,0)"
^XMB(3.9,63,2,102,0)=". I 'LA74 S LA74=$$FINDSITE^LA7VHLU2($P(LA7PRDID,LA7CS),1,1)"
^XMB(3.9,63,2,103,0)="""BLD"",5918,1,47,0)"
^XMB(3.9,63,2,104,0)=". I 'LA74 S LA74=$$FINDSITE^LA7VHLU2($P(LA7SFAC,LA7CS),1,1)"
^XMB(3.9,63,2,105,0)="""BLD"",5918,1,48,0)"
^XMB(3.9,63,2,106,0)=" "
^XMB(3.9,63,2,107,0)="""BLD"",5918,1,49,0)"
^XMB(3.9,63,2,108,0)=" "
^XMB(3.9,63,2,109,0)="""BLD"",5918,1,50,0)"
^XMB(3.9,63,2,110,0)="Associated Remedy:"
^XMB(3.9,63,2,111,0)="""BLD"",5918,1,51,0)"
^XMB(3.9,63,2,112,0)="==============="
^XMB(3.9,63,2,113,0)="""BLD"",5918,1,52,0)"
^XMB(3.9,63,2,114,0)="HD0000000099666"
^XMB(3.9,63,2,115,0)="""BLD"",5918,1,53,0)"
^XMB(3.9,63,2,116,0)="HD0000000102341 (duplicate)"
^XMB(3.9,63,2,117,0)="""BLD"",5918,1,54,0)"
^XMB(3.9,63,2,118,0)=" "
^XMB(3.9,63,2,119,0)="""BLD"",5918,1,55,0)"
^XMB(3.9,63,2,120,0)=" "
^XMB(3.9,63,2,121,0)="""BLD"",5918,1,56,0)"
^XMB(3.9,63,2,122,0)="Associated E3R:"
^XMB(3.9,63,2,123,0)="""BLD"",5918,1,57,0)"
^XMB(3.9,63,2,124,0)="==============="
^XMB(3.9,63,2,125,0)="""BLD"",5918,1,58,0)"
^XMB(3.9,63,2,126,0)="N/A"
^XMB(3.9,63,2,127,0)="""BLD"",5918,1,59,0)"
^XMB(3.9,63,2,128,0)=" "
^XMB(3.9,63,2,129,0)="""BLD"",5918,1,60,0)"
^XMB(3.9,63,2,130,0)=" "
^XMB(3.9,63,2,131,0)="""BLD"",5918,1,61,0)"
^XMB(3.9,63,2,132,0)="Test Sites"
^XMB(3.9,63,2,133,0)="""BLD"",5918,1,62,0)"
^XMB(3.9,63,2,134,0)="=========="
^XMB(3.9,63,2,135,0)="""BLD"",5918,1,63,0)"
^XMB(3.9,63,2,136,0)="Fayetteville, NC  (565) (medium)"
^XMB(3.9,63,2,137,0)="""BLD"",5918,1,64,0)"
^XMB(3.9,63,2,138,0)="Hines (578) (large)"
^XMB(3.9,63,2,139,0)="""BLD"",5918,1,65,0)"
^XMB(3.9,63,2,140,0)="North Chicago (556) (medium)"
^XMB(3.9,63,2,141,0)="""BLD"",5918,1,66,0)"
^XMB(3.9,63,2,142,0)="Northern Indiana HCS (610) (medium) (integrated) "
^XMB(3.9,63,2,143,0)="""BLD"",5918,1,67,0)"
^XMB(3.9,63,2,144,0)=" "
^XMB(3.9,63,2,145,0)="""BLD"",5918,1,68,0)"
^XMB(3.9,63,2,146,0)=" "
^XMB(3.9,63,2,147,0)="""BLD"",5918,1,69,0)"
^XMB(3.9,63,2,148,0)="ROUTINE SUMMARY"
^XMB(3.9,63,2,149,0)="""BLD"",5918,1,70,0)"
^XMB(3.9,63,2,150,0)="==============="
^XMB(3.9,63,2,151,0)="""BLD"",5918,1,71,0)"
^XMB(3.9,63,2,152,0)="  The following routines are included in this patch.  The second line"
^XMB(3.9,63,2,153,0)="""BLD"",5918,1,72,0)"
^XMB(3.9,63,2,154,0)="  of each of these routines now looks like:"
^XMB(3.9,63,2,155,0)="""BLD"",5918,1,73,0)"
^XMB(3.9,63,2,156,0)="  <tab> ;;5.2;AUTOMATED LAB INSTRUMENTS;<patchlist>;Sep 27, 1994"
^XMB(3.9,63,2,157,0)="""BLD"",5918,1,74,0)"
^XMB(3.9,63,2,158,0)=" "
^XMB(3.9,63,2,159,0)="""BLD"",5918,1,75,0)"
^XMB(3.9,63,2,160,0)="                  Checksum       Checksum"
^XMB(3.9,63,2,161,0)="""BLD"",5918,1,76,0)"
^XMB(3.9,63,2,162,0)=" Routine Name     Before Patch   After Patch    Patch List"
^XMB(3.9,63,2,163,0)="""BLD"",5918,1,77,0)"
^XMB(3.9,63,2,164,0)="     LA7VIN5A     9628469        9655113        46,64,67,72"
^XMB(3.9,63,2,165,0)="""BLD"",5918,1,78,0)"
^XMB(3.9,63,2,166,0)="     LA72         N/A            4388949        72 (D)"
^XMB(3.9,63,2,167,0)="""BLD"",5918,1,79,0)"
^XMB(3.9,63,2,168,0)=" "
^XMB(3.9,63,2,169,0)="""BLD"",5918,1,80,0)"
^XMB(3.9,63,2,170,0)="     (D) -- Routine deleted by KIDS after installation"
^XMB(3.9,63,2,171,0)="""BLD"",5918,1,81,0)"
^XMB(3.9,63,2,172,0)="     List of preceding patches: 67"
^XMB(3.9,63,2,173,0)="""BLD"",5918,1,82,0)"
^XMB(3.9,63,2,174,0)="     Sites should use CHECK^XTSUMBLD to verify checksums."
^XMB(3.9,63,2,175,0)="""BLD"",5918,1,83,0)"
^XMB(3.9,63,2,176,0)=" "
^XMB(3.9,63,2,177,0)="""BLD"",5918,1,84,0)"
^XMB(3.9,63,2,178,0)=" "
^XMB(3.9,63,2,179,0)="""BLD"",5918,1,85,0)"
^XMB(3.9,63,2,180,0)="INSTALLATION INSTRUCTIONS"
^XMB(3.9,63,2,181,0)="""BLD"",5918,1,86,0)"
^XMB(3.9,63,2,182,0)="========================="
^XMB(3.9,63,2,183,0)="""BLD"",5918,1,87,0)"
^XMB(3.9,63,2,184,0)=" "
^XMB(3.9,63,2,185,0)="""BLD"",5918,1,88,0)"
^XMB(3.9,63,2,186,0)="  The install time for this patch is less than 2 minutes.  This patch"
^XMB(3.9,63,2,187,0)="""BLD"",5918,1,89,0)"
^XMB(3.9,63,2,188,0)="  should be installed when Laboratory users are off the system."
^XMB(3.9,63,2,189,0)="""BLD"",5918,1,90,0)"
^XMB(3.9,63,2,190,0)=" "
^XMB(3.9,63,2,191,0)="""BLD"",5918,1,91,0)"
^XMB(3.9,63,2,192,0)="  Suggested time to install: non-peak requirement hours."
^XMB(3.9,63,2,193,0)="""BLD"",5918,1,92,0)"
^XMB(3.9,63,2,194,0)="  The installation should NOT be queued."
^XMB(3.9,63,2,195,0)="""BLD"",5918,1,93,0)"
^XMB(3.9,63,2,196,0)=" "
^XMB(3.9,63,2,197,0)="""BLD"",5918,1,94,0)"
^XMB(3.9,63,2,198,0)="  NOTE: Kernel patches must be current on the target system to avoid"
^XMB(3.9,63,2,199,0)="""BLD"",5918,1,95,0)"
^XMB(3.9,63,2,200,0)="        problems loading and/or installing this patch."
^XMB(3.9,63,2,201,0)="""BLD"",5918,1,96,0)"
^XMB(3.9,63,2,202,0)=" "
^XMB(3.9,63,2,203,0)="""BLD"",5918,1,97,0)"
^XMB(3.9,63,2,204,0)="      Patch installation needs to be coordinated with the Laboratory"
^XMB(3.9,63,2,205,0)="""BLD"",5918,1,98,0)"
^XMB(3.9,63,2,206,0)="      Information Manager (LIM/ADPAC)."
^XMB(3.9,63,2,207,0)="""BLD"",5918,1,99,0)"
^XMB(3.9,63,2,208,0)=" "
^XMB(3.9,63,2,209,0)="""BLD"",5918,1,100,0)"
^XMB(3.9,63,2,210,0)="  1.  Use the 'INSTALL/CHECK MESSAGE' option of the PackMan menu.  This"
^XMB(3.9,63,2,211,0)="""BLD"",5918,1,101,0)"
^XMB(3.9,63,2,212,0)="      option will load the KIDS patch onto your system."
^XMB(3.9,63,2,213,0)="""BLD"",5918,1,102,0)"
^XMB(3.9,63,2,214,0)=" "
^XMB(3.9,63,2,215,0)="""BLD"",5918,1,103,0)"
^XMB(3.9,63,2,216,0)="  2.  On the 'Kernel Installation & Distribution System' Menu (KIDS),"
^XMB(3.9,63,2,217,0)="""BLD"",5918,1,104,0)"
^XMB(3.9,63,2,218,0)="      select the 'Installation' menu."
^XMB(3.9,63,2,219,0)="""BLD"",5918,1,105,0)"
^XMB(3.9,63,2,220,0)=" "
^XMB(3.9,63,2,221,0)="""BLD"",5918,1,106,0)"
^XMB(3.9,63,2,222,0)="  3.  Use the 'Verify Checksum in Transport Global' option and verify"
^XMB(3.9,63,2,223,0)="""BLD"",5918,1,107,0)"
^XMB(3.9,63,2,224,0)="      that all routines have the correct checksums."
^XMB(3.9,63,2,225,0)="""BLD"",5918,1,108,0)"
^XMB(3.9,63,2,226,0)=" "
^XMB(3.9,63,2,227,0)="""BLD"",5918,1,109,0)"
^XMB(3.9,63,2,228,0)="  4.  On the KIDS menu, under the 'Installation' menu, use the following"
^XMB(3.9,63,2,229,0)="""BLD"",5918,1,110,0)"
^XMB(3.9,63,2,230,0)="      options:"
^XMB(3.9,63,2,231,0)="""BLD"",5918,1,111,0)"
^XMB(3.9,63,2,232,0)="        Print Transport Global"
^XMB(3.9,63,2,233,0)="""BLD"",5918,1,112,0)"
^XMB(3.9,63,2,234,0)="        Compare Transport Global to Current System"
^XMB(3.9,63,2,235,0)="""BLD"",5918,1,113,0)"
^XMB(3.9,63,2,236,0)="        Backup a Transport Global"
^XMB(3.9,63,2,237,0)="""BLD"",5918,1,114,0)"
^XMB(3.9,63,2,238,0)=" "
^XMB(3.9,63,2,239,0)="""BLD"",5918,1,115,0)"
^XMB(3.9,63,2,240,0)="  5.  Use the 'Install Package(s)' option under the 'Installation' menu"
^XMB(3.9,63,2,241,0)="""BLD"",5918,1,116,0)"
^XMB(3.9,63,2,242,0)="      and select the package 'LA*5.2*72'"
^XMB(3.9,63,2,243,0)="""BLD"",5918,1,117,0)"
^XMB(3.9,63,2,244,0)=" "
^XMB(3.9,63,2,245,0)="""BLD"",5918,1,118,0)"
^XMB(3.9,63,2,246,0)="      When prompted"
^XMB(3.9,63,2,247,0)="""BLD"",5918,1,119,0)"
^XMB(3.9,63,2,248,0)="        'Want KIDS to Rebuild Menu Trees Upon Completion of Install?' "
^XMB(3.9,63,2,249,0)="""BLD"",5918,1,120,0)"
^XMB(3.9,63,2,250,0)="      choose 'NO'.  Note: Responding ""Yes"" to the prompt for rebuilding"
^XMB(3.9,63,2,251,0)="""BLD"",5918,1,121,0)"
^XMB(3.9,63,2,252,0)="      menu trees can significantly increase install time."
^XMB(3.9,63,2,253,0)="""BLD"",5918,1,122,0)"
^XMB(3.9,63,2,254,0)=" "
^XMB(3.9,63,2,255,0)="""BLD"",5918,1,123,0)"
^XMB(3.9,63,2,256,0)="      When prompted "
^XMB(3.9,63,2,257,0)="""BLD"",5918,1,124,0)"
^XMB(3.9,63,2,258,0)="         'Want KIDS to INHIBIT LOGONs during the install? "
^XMB(3.9,63,2,259,0)="""BLD"",5918,1,125,0)"
^XMB(3.9,63,2,260,0)="      choose 'NO'."
^XMB(3.9,63,2,261,0)="""BLD"",5918,1,126,0)"
^XMB(3.9,63,2,262,0)=" "
^XMB(3.9,63,2,263,0)="""BLD"",5918,1,127,0)"
^XMB(3.9,63,2,264,0)="      When prompted "
^XMB(3.9,63,2,265,0)="""BLD"",5918,1,128,0)"
^XMB(3.9,63,2,266,0)="          'Want to DISABLE Scheduled Options, Menu Options, and"
^XMB(3.9,63,2,267,0)="""BLD"",5918,1,129,0)"
^XMB(3.9,63,2,268,0)="           Protocols?  YES//'"
^XMB(3.9,63,2,269,0)="""BLD"",5918,1,130,0)"
^XMB(3.9,63,2,270,0)="      choose 'NO' unless site has additional local laboratory  "
^XMB(3.9,63,2,271,0)="""BLD"",5918,1,131,0)"
^XMB(3.9,63,2,272,0)="      options that should be disabled during install."
^XMB(3.9,63,2,273,0)="""BLD"",5918,1,132,0)"
^XMB(3.9,63,2,274,0)=" "
^XMB(3.9,63,2,275,0)="""BLD"",5918,1,133,0)"
^XMB(3.9,63,2,276,0)=" "
^XMB(3.9,63,2,277,0)="""BLD"",5918,1,134,0)"
^XMB(3.9,63,2,278,0)=" "
^XMB(3.9,63,2,279,0)="""BLD"",5918,1,135,0)"
^XMB(3.9,63,2,280,0)="INSTALLATION EXAMPLE"
^XMB(3.9,63,2,281,0)="""BLD"",5918,1,136,0)"
^XMB(3.9,63,2,282,0)="===================="
^XMB(3.9,63,2,283,0)="""BLD"",5918,1,137,0)"
^XMB(3.9,63,2,284,0)=" "
^XMB(3.9,63,2,285,0)="""BLD"",5918,1,138,0)"
^XMB(3.9,63,2,286,0)="Select KIDS OPTION: INSTALL PACKAGE(S)  "
^XMB(3.9,63,2,287,0)="""BLD"",5918,1,139,0)"
^XMB(3.9,63,2,288,0)="Select INSTALL NAME: LA*5.2*72       Loaded from Distribution  "
^XMB(3.9,63,2,289,0)="""BLD"",5918,1,140,0)"
^XMB(3.9,63,2,290,0)="7/12/05@14:19:30"
^XMB(3.9,63,2,291,0)="""BLD"",5918,1,141,0)"
^XMB(3.9,63,2,292,0)="     => LA*5.2*72 v1"
^XMB(3.9,63,2,293,0)="""BLD"",5918,1,142,0)"
^XMB(3.9,63,2,294,0)=" "
^XMB(3.9,63,2,295,0)="""BLD"",5918,1,143,0)"
^XMB(3.9,63,2,296,0)="This Distribution was loaded on Jul 12, 2005@14:19:30 with header of "
^XMB(3.9,63,2,297,0)="""BLD"",5918,1,144,0)"
^XMB(3.9,63,2,298,0)="   LA*5.2*72 v1"
^XMB(3.9,63,2,299,0)="""BLD"",5918,1,145,0)"
^XMB(3.9,63,2,300,0)="   It consisted of the following Install(s):"
^XMB(3.9,63,2,301,0)="""BLD"",5918,1,146,0)"
^XMB(3.9,63,2,302,0)="      LA*5.2*72"
^XMB(3.9,63,2,303,0)="""BLD"",5918,1,147,0)"
^XMB(3.9,63,2,304,0)="Checking Install for Package LA*5.2*72"
^XMB(3.9,63,2,305,0)="""BLD"",5918,1,148,0)"
^XMB(3.9,63,2,306,0)="Will first run the Environment Check Routine, LA72"
^XMB(3.9,63,2,307,0)="""BLD"",5918,1,149,0)"
^XMB(3.9,63,2,308,0)=" "
^XMB(3.9,63,2,309,0)="""BLD"",5918,1,150,0)"
^XMB(3.9,63,2,310,0)=" "
^XMB(3.9,63,2,311,0)="""BLD"",5918,1,151,0)"
^XMB(3.9,63,2,312,0)="                        --- Environment Check is Ok --- "
^XMB(3.9,63,2,313,0)="""BLD"",5918,1,152,0)"
^XMB(3.9,63,2,314,0)=" "
^XMB(3.9,63,2,315,0)="""BLD"",5918,1,153,0)"
^XMB(3.9,63,2,316,0)="Install Questions for LA*5.2*72"
^XMB(3.9,63,2,317,0)="""BLD"",5918,1,154,0)"
^XMB(3.9,63,2,318,0)=" "
^XMB(3.9,63,2,319,0)="""BLD"",5918,1,155,0)"
^XMB(3.9,63,2,320,0)="Want KIDS to INHIBIT LOGONs during the install? YES// NO"
^XMB(3.9,63,2,321,0)="""BLD"",5918,1,156,0)"
^XMB(3.9,63,2,322,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols? YES// NO"
^XMB(3.9,63,2,323,0)="""BLD"",5918,1,157,0)"
^XMB(3.9,63,2,324,0)=" "
^XMB(3.9,63,2,325,0)="""BLD"",5918,1,158,0)"
^XMB(3.9,63,2,326,0)=" "
^XMB(3.9,63,2,327,0)="""BLD"",5918,1,159,0)"
^XMB(3.9,63,2,328,0)=" Install Started for LA*5.2*72 : "
^XMB(3.9,63,2,329,0)="""BLD"",5918,1,160,0)"
^XMB(3.9,63,2,330,0)="               Jul 12, 2005@14:20"
^XMB(3.9,63,2,331,0)="""BLD"",5918,1,161,0)"
^XMB(3.9,63,2,332,0)=" "
^XMB(3.9,63,2,333,0)="""BLD"",5918,1,162,0)"
^XMB(3.9,63,2,334,0)="Build Distribution Date: Jul 11, 2005"
^XMB(3.9,63,2,335,0)="""BLD"",5918,1,163,0)"
^XMB(3.9,63,2,336,0)=" "
^XMB(3.9,63,2,337,0)="""BLD"",5918,1,164,0)"
^XMB(3.9,63,2,338,0)=" Installing Routines:"
^XMB(3.9,63,2,339,0)="""BLD"",5918,1,165,0)"
^XMB(3.9,63,2,340,0)="               Jul 12, 2005@14:20"
^XMB(3.9,63,2,341,0)="""BLD"",5918,1,166,0)"
^XMB(3.9,63,2,342,0)=" "
^XMB(3.9,63,2,343,0)="""BLD"",5918,1,167,0)"
^XMB(3.9,63,2,344,0)=" Running Pre-Install Routine: PRE^LA72"
^XMB(3.9,63,2,345,0)="""BLD"",5918,1,168,0)"
^XMB(3.9,63,2,346,0)=" "
^XMB(3.9,63,2,347,0)="""BLD"",5918,1,169,0)"
^XMB(3.9,63,2,348,0)="               Sending install started alert to mail group G.LMI "
^XMB(3.9,63,2,349,0)="""BLD"",5918,1,170,0)"
^XMB(3.9,63,2,350,0)=" "
^XMB(3.9,63,2,351,0)="""BLD"",5918,1,171,0)"
^XMB(3.9,63,2,352,0)="                          *** Pre install started *** "
^XMB(3.9,63,2,353,0)="""BLD"",5918,1,172,0)"
^XMB(3.9,63,2,354,0)=" "
^XMB(3.9,63,2,355,0)="""BLD"",5918,1,173,0)"
^XMB(3.9,63,2,356,0)="                  --- No actions required for pre install --- "
^XMB(3.9,63,2,357,0)="""BLD"",5918,1,174,0)"
^XMB(3.9,63,2,358,0)=" "
^XMB(3.9,63,2,359,0)="""BLD"",5918,1,175,0)"
^XMB(3.9,63,2,360,0)="                                   LA*5.2*72  "
^XMB(3.9,63,2,361,0)="""BLD"",5918,1,176,0)"
^XMB(3.9,63,2,362,0)="-------------------------------------------------------------------------"
^XMB(3.9,63,2,363,0)="""BLD"",5918,1,177,0)"
^XMB(3.9,63,2,364,0)="                         *** Pre install completed *** "
^XMB(3.9,63,2,365,0)="""BLD"",5918,1,178,0)"
^XMB(3.9,63,2,366,0)=" "
^XMB(3.9,63,2,367,0)="""BLD"",5918,1,179,0)"
^XMB(3.9,63,2,368,0)=" Running Post-Install Routine: POST^LA72"
^XMB(3.9,63,2,369,0)="""BLD"",5918,1,180,0)"
^XMB(3.9,63,2,370,0)=" "
^XMB(3.9,63,2,371,0)="""BLD"",5918,1,181,0)"
^XMB(3.9,63,2,372,0)="                          *** Post install started *** "
^XMB(3.9,63,2,373,0)="""BLD"",5918,1,182,0)"
^XMB(3.9,63,2,374,0)=" "
^XMB(3.9,63,2,375,0)="""BLD"",5918,1,183,0)"
^XMB(3.9,63,2,376,0)="                         *** Post install completed *** "
^XMB(3.9,63,2,377,0)="""BLD"",5918,1,184,0)"
^XMB(3.9,63,2,378,0)=" "
^XMB(3.9,63,2,379,0)="""BLD"",5918,1,185,0)"
^XMB(3.9,63,2,380,0)="              Sending install completion alert to mail group G.LMI "
^XMB(3.9,63,2,381,0)="""BLD"",5918,1,186,0)"
^XMB(3.9,63,2,382,0)=" "
^XMB(3.9,63,2,383,0)="""BLD"",5918,1,187,0)"
^XMB(3.9,63,2,384,0)=" Updating Routine file..."
^XMB(3.9,63,2,385,0)="""BLD"",5918,1,188,0)"
^XMB(3.9,63,2,386,0)=" "
^XMB(3.9,63,2,387,0)="""BLD"",5918,1,189,0)"
^XMB(3.9,63,2,388,0)=" Updating KIDS files..."
^XMB(3.9,63,2,389,0)="""BLD"",5918,1,190,0)"
^XMB(3.9,63,2,390,0)=" "
^XMB(3.9,63,2,391,0)="""BLD"",5918,1,191,0)"
^XMB(3.9,63,2,392,0)=" LA*5.2*72 Installed. "
^XMB(3.9,63,2,393,0)="""BLD"",5918,1,192,0)"
^XMB(3.9,63,2,394,0)="               Jul 12, 2005@14:20"
^XMB(3.9,63,2,395,0)="""BLD"",5918,1,193,0)"
^XMB(3.9,63,2,396,0)=" "
^XMB(3.9,63,2,397,0)="""BLD"",5918,1,194,0)"
^XMB(3.9,63,2,398,0)=" Install Message sent #80481"
^XMB(3.9,63,2,399,0)="""BLD"",5918,1,195,0)"
^XMB(3.9,63,2,400,0)="-------------------------------------------------------------------------"
^XMB(3.9,63,2,401,0)="""BLD"",5918,1,196,0)"
^XMB(3.9,63,2,402,0)="          +------------------------------------------------------------+"
^XMB(3.9,63,2,403,0)="""BLD"",5918,1,197,0)"
^XMB(3.9,63,2,404,0)="  100%    I             25             50             75               I"
^XMB(3.9,63,2,405,0)="""BLD"",5918,1,198,0)"
^XMB(3.9,63,2,406,0)="Complete  +------------------------------------------------------------+"
^XMB(3.9,63,2,407,0)="""BLD"",5918,1,199,0)"
^XMB(3.9,63,2,408,0)=" "
^XMB(3.9,63,2,409,0)="""BLD"",5918,1,200,0)"
^XMB(3.9,63,2,410,0)=" "
^XMB(3.9,63,2,411,0)="""BLD"",5918,1,201,0)"
^XMB(3.9,63,2,412,0)="Install Completed"
^XMB(3.9,63,2,413,0)="""BLD"",5918,4,0)"
^XMB(3.9,63,2,414,0)="^9.64PA^^"
^XMB(3.9,63,2,415,0)="""BLD"",5918,""INI"")"
^XMB(3.9,63,2,416,0)="PRE^LA72"
^XMB(3.9,63,2,417,0)="""BLD"",5918,""INID"")"
^XMB(3.9,63,2,418,0)="y^y^y"
^XMB(3.9,63,2,419,0)="""BLD"",5918,""INIT"")"
^XMB(3.9,63,2,420,0)="POST^LA72"
^XMB(3.9,63,2,421,0)="""BLD"",5918,""KRN"",0)"
^XMB(3.9,63,2,422,0)="^9.67PA^8989.52^19"
^XMB(3.9,63,2,423,0)="""BLD"",5918,""KRN"",.4,0)"
^XMB(3.9,63,2,424,0)=".4"
^XMB(3.9,63,2,425,0)="""BLD"",5918,""KRN"",.401,0)"
^XMB(3.9,63,2,426,0)=".401"
^XMB(3.9,63,2,427,0)="""BLD"",5918,""KRN"",.402,0)"
^XMB(3.9,63,2,428,0)=".402"
^XMB(3.9,63,2,429,0)="""BLD"",5918,""KRN"",.403,0)"
^XMB(3.9,63,2,430,0)=".403"
^XMB(3.9,63,2,431,0)="""BLD"",5918,""KRN"",.5,0)"
^XMB(3.9,63,2,432,0)=".5"
^XMB(3.9,63,2,433,0)="""BLD"",5918,""KRN"",.84,0)"
^XMB(3.9,63,2,434,0)=".84"
^XMB(3.9,63,2,435,0)="""BLD"",5918,""KRN"",3.6,0)"
^XMB(3.9,63,2,436,0)="3.6"
^XMB(3.9,63,2,437,0)="""BLD"",5918,""KRN"",3.8,0)"
^XMB(3.9,63,2,438,0)="3.8"
^XMB(3.9,63,2,439,0)="""BLD"",5918,""KRN"",9.2,0)"
^XMB(3.9,63,2,440,0)="9.2"
^XMB(3.9,63,2,441,0)="""BLD"",5918,""KRN"",9.8,0)"
^XMB(3.9,63,2,442,0)="9.8"
^XMB(3.9,63,2,443,0)="""BLD"",5918,""KRN"",9.8,""NM"",0)"
^XMB(3.9,63,2,444,0)="^9.68A^1^1"
^XMB(3.9,63,2,445,0)="""BLD"",5918,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,63,2,446,0)="LA7VIN5A^^0^B66941793"
^XMB(3.9,63,2,447,0)="""BLD"",5918,""KRN"",9.8,""NM"",""B"",""LA7VIN5A"",1)"
^XMB(3.9,63,2,448,0)=""
^XMB(3.9,63,2,449,0)="""BLD"",5918,""KRN"",19,0)"
^XMB(3.9,63,2,450,0)="19"
^XMB(3.9,63,2,451,0)="""BLD"",5918,""KRN"",19.1,0)"
^XMB(3.9,63,2,452,0)="19.1"
^XMB(3.9,63,2,453,0)="""BLD"",5918,""KRN"",101,0)"
^XMB(3.9,63,2,454,0)="101"
^XMB(3.9,63,2,455,0)="""BLD"",5918,""KRN"",409.61,0)"
^XMB(3.9,63,2,456,0)="409.61"
^XMB(3.9,63,2,457,0)="""BLD"",5918,""KRN"",771,0)"
^XMB(3.9,63,2,458,0)="771"
^XMB(3.9,63,2,459,0)="""BLD"",5918,""KRN"",870,0)"
^XMB(3.9,63,2,460,0)="870"
^XMB(3.9,63,2,461,0)="""BLD"",5918,""KRN"",8989.51,0)"
^XMB(3.9,63,2,462,0)="8989.51"
^XMB(3.9,63,2,463,0)="""BLD"",5918,""KRN"",8989.52,0)"
^XMB(3.9,63,2,464,0)="8989.52"
^XMB(3.9,63,2,465,0)="""BLD"",5918,""KRN"",8994,0)"
^XMB(3.9,63,2,466,0)="8994"
^XMB(3.9,63,2,467,0)="""BLD"",5918,""KRN"",""B"",.4,.4)"
^XMB(3.9,63,2,468,0)=""
^XMB(3.9,63,2,469,0)="""BLD"",5918,""KRN"",""B"",.401,.401)"
^XMB(3.9,63,2,470,0)=""
^XMB(3.9,63,2,471,0)="""BLD"",5918,""KRN"",""B"",.402,.402)"
^XMB(3.9,63,2,472,0)=""
^XMB(3.9,63,2,473,0)="""BLD"",5918,""KRN"",""B"",.403,.403)"
^XMB(3.9,63,2,474,0)=""
^XMB(3.9,63,2,475,0)="""BLD"",5918,""KRN"",""B"",.5,.5)"
^XMB(3.9,63,2,476,0)=""
^XMB(3.9,63,2,477,0)="""BLD"",5918,""KRN"",""B"",.84,.84)"
^XMB(3.9,63,2,478,0)=""
^XMB(3.9,63,2,479,0)="""BLD"",5918,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,63,2,480,0)=""
^XMB(3.9,63,2,481,0)="""BLD"",5918,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,63,2,482,0)=""
^XMB(3.9,63,2,483,0)="""BLD"",5918,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,63,2,484,0)=""
^XMB(3.9,63,2,485,0)="""BLD"",5918,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,63,2,486,0)=""
^XMB(3.9,63,2,487,0)="""BLD"",5918,""KRN"",""B"",19,19)"
^XMB(3.9,63,2,488,0)=""
^XMB(3.9,63,2,489,0)="""BLD"",5918,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,63,2,490,0)=""
^XMB(3.9,63,2,491,0)="""BLD"",5918,""KRN"",""B"",101,101)"
^XMB(3.9,63,2,492,0)=""
^XMB(3.9,63,2,493,0)="""BLD"",5918,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,63,2,494,0)=""
^XMB(3.9,63,2,495,0)="""BLD"",5918,""KRN"",""B"",771,771)"
^XMB(3.9,63,2,496,0)=""
^XMB(3.9,63,2,497,0)="""BLD"",5918,""KRN"",""B"",870,870)"
^XMB(3.9,63,2,498,0)=""
^XMB(3.9,63,2,499,0)="""BLD"",5918,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,63,2,500,0)=""
^XMB(3.9,63,2,501,0)="""BLD"",5918,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,63,2,502,0)=""
^XMB(3.9,63,2,503,0)="""BLD"",5918,""KRN"",""B"",8994,8994)"
^XMB(3.9,63,2,504,0)=""
^XMB(3.9,63,2,505,0)="""BLD"",5918,""PRE"")"
^XMB(3.9,63,2,506,0)="LA72"
^XMB(3.9,63,2,507,0)="""BLD"",5918,""QUES"",0)"
^XMB(3.9,63,2,508,0)="^9.62^^"
^XMB(3.9,63,2,509,0)="""BLD"",5918,""REQB"",0)"
^XMB(3.9,63,2,510,0)="^9.611^1^1"
^XMB(3.9,63,2,511,0)="""BLD"",5918,""REQB"",1,0)"
^XMB(3.9,63,2,512,0)="LA*5.2*67^1"
^XMB(3.9,63,2,513,0)="""BLD"",5918,""REQB"",""B"",""LA*5.2*67"",1)"
^XMB(3.9,63,2,514,0)=""
^XMB(3.9,63,2,515,0)="""INI"")"
^XMB(3.9,63,2,516,0)="PRE^LA72"
^XMB(3.9,63,2,517,0)="""INIT"")"
^XMB(3.9,63,2,518,0)="POST^LA72"
^XMB(3.9,63,2,519,0)="""MBREQ"")"
^XMB(3.9,63,2,520,0)="0"
^XMB(3.9,63,2,521,0)="""PKG"",53,-1)"
^XMB(3.9,63,2,522,0)="1^1"
^XMB(3.9,63,2,523,0)="""PKG"",53,0)"
^XMB(3.9,63,2,524,0)="AUTOMATED LAB INSTRUMENTS^LA^Lab Auto-Instrument Package"
^XMB(3.9,63,2,525,0)="""PKG"",53,20,0)"
^XMB(3.9,63,2,526,0)="^9.402P^^"
^XMB(3.9,63,2,527,0)="""PKG"",53,22,0)"
^XMB(3.9,63,2,528,0)="^9.49I^1^1"
^XMB(3.9,63,2,529,0)="""PKG"",53,22,1,0)"
^XMB(3.9,63,2,530,0)="5.2^2940927^2950125"
^XMB(3.9,63,2,531,0)="""PKG"",53,22,1,""PAH"",1,0)"
^XMB(3.9,63,2,532,0)="72^3060501^6686"
^XMB(3.9,63,2,533,0)="""PKG"",53,22,1,""PAH"",1,1,0)"
^XMB(3.9,63,2,534,0)="^^201^201^3060501"
^XMB(3.9,63,2,535,0)="""PKG"",53,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,63,2,536,0)="Blood Bank Team Coordination"
^XMB(3.9,63,2,537,0)="""PKG"",53,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,63,2,538,0)="============================"
^XMB(3.9,63,2,539,0)="""PKG"",53,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,63,2,540,0)="EFFECT ON BLOOD BANK FUNCTIONAL REQUIREMENTS: Patch LA*5.2*72 does not "
^XMB(3.9,63,2,541,0)="""PKG"",53,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,63,2,542,0)="contain any changes to the VISTA BLOOD BANK Software as defined by VHA "
^XMB(3.9,63,2,543,0)="""PKG"",53,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,63,2,544,0)="DIRECTIVE 2004-053 titled VISTA BLOOD BANK SOFTWARE VERSION 5.2."
^XMB(3.9,63,2,545,0)="""PKG"",53,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,63,2,546,0)=" "
^XMB(3.9,63,2,547,0)="""PKG"",53,22,1,""PAH"",1,1,7,0)"
^XMB(3.9,63,2,548,0)="EFFECT ON BLOOD BANK FUNCTIONAL REQUIREMENTS: Patch LA*5.2*72 does not "
^XMB(3.9,63,2,549,0)="""PKG"",53,22,1,""PAH"",1,1,8,0)"
^XMB(3.9,63,2,550,0)="alter or modify any software design safeguards or safety critical "
^XMB(3.9,63,2,551,0)="""PKG"",53,22,1,""PAH"",1,1,9,0)"
^XMB(3.9,63,2,552,0)="elements functions."
^XMB(3.9,63,2,553,0)="""PKG"",53,22,1,""PAH"",1,1,10,0)"
^XMB(3.9,63,2,554,0)=" "
^XMB(3.9,63,2,555,0)="""PKG"",53,22,1,""PAH"",1,1,11,0)"
^XMB(3.9,63,2,556,0)="RISK ANALYSIS: Changes made by patch LA*5.2*72 have no effect on Blood "
^XMB(3.9,63,2,557,0)="""PKG"",53,22,1,""PAH"",1,1,12,0)"
^XMB(3.9,63,2,558,0)="Bank software functionality, therefore RISK is none."
^XMB(3.9,63,2,559,0)="""PKG"",53,22,1,""PAH"",1,1,13,0)"
^XMB(3.9,63,2,560,0)=" "
^XMB(3.9,63,2,561,0)="""PKG"",53,22,1,""PAH"",1,1,14,0)"
^XMB(3.9,63,2,562,0)="VALIDATION REQUIREMENTS BY OPTION: Because of the nature of the changes "
^XMB(3.9,63,2,563,0)="""PKG"",53,22,1,""PAH"",1,1,15,0)"
^XMB(3.9,63,2,564,0)="made, no specific validation requirements exist as a result of "
^XMB(3.9,63,2,565,0)="""PKG"",53,22,1,""PAH"",1,1,16,0)"
^XMB(3.9,63,2,566,0)="installation of this patch. "
^XMB(3.9,63,2,567,0)="""PKG"",53,22,1,""PAH"",1,1,17,0)"
^XMB(3.9,63,2,568,0)="************************************************************************"
^XMB(3.9,63,2,569,0)="""PKG"",53,22,1,""PAH"",1,1,18,0)"
^XMB(3.9,63,2,570,0)=" "
^XMB(3.9,63,2,571,0)="""PKG"",53,22,1,""PAH"",1,1,19,0)"
^XMB(3.9,63,2,572,0)="Sites reported errors logged in the error trap when receiving lab results "
^XMB(3.9,63,2,573,0)="""PKG"",53,22,1,""PAH"",1,1,20,0)"
^XMB(3.9,63,2,574,0)="back from another VA host lab via Lab Electronic Data Interchange (LEDI):"
^XMB(3.9,63,2,575,0)="""PKG"",53,22,1,""PAH"",1,1,21,0)"
^XMB(3.9,63,2,576,0)=" "
^XMB(3.9,63,2,577,0)="""PKG"",53,22,1,""PAH"",1,1,22,0)"
^XMB(3.9,63,2,578,0)=" "
^XMB(3.9,63,2,579,0)="""PKG"",53,22,1,""PAH"",1,1,23,0)"
^XMB(3.9,63,2,580,0)="$ZE= <UNDEFINED>PRDID+11^LA7VIN5A"
^XMB(3.9,63,2,581,0)="""PKG"",53,22,1,""PAH"",1,1,24,0)"
^XMB(3.9,63,2,582,0)=" "
^XMB(3.9,63,2,583,0)="""PKG"",53,22,1,""PAH"",1,1,25,0)"
^XMB(3.9,63,2,584,0)=" . I $P(LA7PRDID,LA7CS,LA7I+2)=""99VA4"" S "
^XMB(3.9,63,2,585,0)="""PKG"",53,22,1,""PAH"",1,1,26,0)"
^XMB(3.9,63,2,586,0)="LA74=$$LKUP^XUAF4($P(LA7PRDID,LA7CS,I))"
^XMB(3.9,63,2,587,0)="""PKG"",53,22,1,""PAH"",1,1,27,0)"
^XMB(3.9,63,2,588,0)=" "
^XMB(3.9,63,2,589,0)="""PKG"",53,22,1,""PAH"",1,1,28,0)"
^XMB(3.9,63,2,590,0)=" "
^XMB(3.9,63,2,591,0)="""PKG"",53,22,1,""PAH"",1,1,29,0)"
^XMB(3.9,63,2,592,0)="The following portion of code in PRDID^LA7VIN5A has been changed to "
^XMB(3.9,63,2,593,0)="""PKG"",53,22,1,""PAH"",1,1,30,0)"
^XMB(3.9,63,2,594,0)="reference the correct variable (LA7I instead of I): "
^XMB(3.9,63,2,595,0)="""PKG"",53,22,1,""PAH"",1,1,31,0)"
^XMB(3.9,63,2,596,0)=" "
^XMB(3.9,63,2,597,0)="""PKG"",53,22,1,""PAH"",1,1,32,0)"
^XMB(3.9,63,2,598,0)="**PREVIOUS CODE**"
^XMB(3.9,63,2,599,0)="""PKG"",53,22,1,""PAH"",1,1,33,0)"
^XMB(3.9,63,2,600,0)="F LA7I=1,4 D  Q:LA74                                                   "
^XMB(3.9,63,2,601,0)="""PKG"",53,22,1,""PAH"",1,1,34,0)"
^XMB(3.9,63,2,602,0)=". I $P(LA7PRDID,LA7CS,LA7I+2)=""99VA4"" S "
^XMB(3.9,63,2,603,0)="""PKG"",53,22,1,""PAH"",1,1,35,0)"
^XMB(3.9,63,2,604,0)="LA74=$$LKUP^XUAF4($P(LA7PRDID,LA7CS,I))"
^XMB(3.9,63,2,605,0)="""PKG"",53,22,1,""PAH"",1,1,36,0)"
^XMB(3.9,63,2,606,0)=". I 'LA74 S LA74=$$LKUP^XUAF4($P(LA7PRDID,LA7CS,I+1))                  "
^XMB(3.9,63,2,607,0)="""PKG"",53,22,1,""PAH"",1,1,37,0)"
^XMB(3.9,63,2,608,0)=". I 'LA74 S LA74=$$FINDSITE^LA7VHLU2($P(LA7PRDID,LA7CS),1,1)           "
^XMB(3.9,63,2,609,0)="""PKG"",53,22,1,""PAH"",1,1,38,0)"
^XMB(3.9,63,2,610,0)=". I 'LA74 S LA74=$$FINDSITE^LA7VHLU2($P(LA7SFAC,LA7CS),1,1)"
^XMB(3.9,63,2,611,0)="""PKG"",53,22,1,""PAH"",1,1,39,0)"
^XMB(3.9,63,2,612,0)=" "
^XMB(3.9,63,2,613,0)="""PKG"",53,22,1,""PAH"",1,1,40,0)"
^XMB(3.9,63,2,614,0)=" "
^XMB(3.9,63,2,615,0)="""PKG"",53,22,1,""PAH"",1,1,41,0)"
^XMB(3.9,63,2,616,0)="**NEW CODE**"
^XMB(3.9,63,2,617,0)="""PKG"",53,22,1,""PAH"",1,1,42,0)"
^XMB(3.9,63,2,618,0)="F LA7I=1,4 D  Q:LA74"
^XMB(3.9,63,2,619,0)="""PKG"",53,22,1,""PAH"",1,1,43,0)"
^XMB(3.9,63,2,620,0)=". I $P(LA7PRDID,LA7CS,LA7I+2)=""99VA4"" S "
^XMB(3.9,63,2,621,0)="""PKG"",53,22,1,""PAH"",1,1,44,0)"
^XMB(3.9,63,2,622,0)="LA74=$$LKUP^XUAF4($P(LA7PRDID,LA7CS,LA7I))"
^XMB(3.9,63,2,623,0)="""PKG"",53,22,1,""PAH"",1,1,45,0)"
^XMB(3.9,63,2,624,0)=". I 'LA74 S LA74=$$LKUP^XUAF4($P(LA7PRDID,LA7CS,LA7I+1))"
^XMB(3.9,63,2,625,0)="""PKG"",53,22,1,""PAH"",1,1,46,0)"
^XMB(3.9,63,2,626,0)=". I 'LA74 S LA74=$$FINDSITE^LA7VHLU2($P(LA7PRDID,LA7CS),1,1)"
^XMB(3.9,63,2,627,0)="""PKG"",53,22,1,""PAH"",1,1,47,0)"
^XMB(3.9,63,2,628,0)=". I 'LA74 S LA74=$$FINDSITE^LA7VHLU2($P(LA7SFAC,LA7CS),1,1)"
^XMB(3.9,63,2,629,0)="""PKG"",53,22,1,""PAH"",1,1,48,0)"
^XMB(3.9,63,2,630,0)=" "
^XMB(3.9,63,2,631,0)="""PKG"",53,22,1,""PAH"",1,1,49,0)"
^XMB(3.9,63,2,632,0)=" "
^XMB(3.9,63,2,633,0)="""PKG"",53,22,1,""PAH"",1,1,50,0)"
^XMB(3.9,63,2,634,0)="Associated Remedy:"
^XMB(3.9,63,2,635,0)="""PKG"",53,22,1,""PAH"",1,1,51,0)"
^XMB(3.9,63,2,636,0)="==============="
^XMB(3.9,63,2,637,0)="""PKG"",53,22,1,""PAH"",1,1,52,0)"
^XMB(3.9,63,2,638,0)="HD0000000099666"
^XMB(3.9,63,2,639,0)="""PKG"",53,22,1,""PAH"",1,1,53,0)"
^XMB(3.9,63,2,640,0)="HD0000000102341 (duplicate)"
^XMB(3.9,63,2,641,0)="""PKG"",53,22,1,""PAH"",1,1,54,0)"
^XMB(3.9,63,2,642,0)=" "
^XMB(3.9,63,2,643,0)="""PKG"",53,22,1,""PAH"",1,1,55,0)"
^XMB(3.9,63,2,644,0)=" "
^XMB(3.9,63,2,645,0)="""PKG"",53,22,1,""PAH"",1,1,56,0)"
^XMB(3.9,63,2,646,0)="Associated E3R:"
^XMB(3.9,63,2,647,0)="""PKG"",53,22,1,""PAH"",1,1,57,0)"
^XMB(3.9,63,2,648,0)="==============="
^XMB(3.9,63,2,649,0)="""PKG"",53,22,1,""PAH"",1,1,58,0)"
^XMB(3.9,63,2,650,0)="N/A"
^XMB(3.9,63,2,651,0)="""PKG"",53,22,1,""PAH"",1,1,59,0)"
^XMB(3.9,63,2,652,0)=" "
^XMB(3.9,63,2,653,0)="""PKG"",53,22,1,""PAH"",1,1,60,0)"
^XMB(3.9,63,2,654,0)=" "
^XMB(3.9,63,2,655,0)="""PKG"",53,22,1,""PAH"",1,1,61,0)"
^XMB(3.9,63,2,656,0)="Test Sites"
^XMB(3.9,63,2,657,0)="""PKG"",53,22,1,""PAH"",1,1,62,0)"
^XMB(3.9,63,2,658,0)="=========="
^XMB(3.9,63,2,659,0)="""PKG"",53,22,1,""PAH"",1,1,63,0)"
^XMB(3.9,63,2,660,0)="Fayetteville, NC  (565) (medium)"
^XMB(3.9,63,2,661,0)="""PKG"",53,22,1,""PAH"",1,1,64,0)"
^XMB(3.9,63,2,662,0)="Hines (578) (large)"
^XMB(3.9,63,2,663,0)="""PKG"",53,22,1,""PAH"",1,1,65,0)"
^XMB(3.9,63,2,664,0)="North Chicago (556) (medium)"
^XMB(3.9,63,2,665,0)="""PKG"",53,22,1,""PAH"",1,1,66,0)"
^XMB(3.9,63,2,666,0)="Northern Indiana HCS (610) (medium) (integrated) "
^XMB(3.9,63,2,667,0)="""PKG"",53,22,1,""PAH"",1,1,67,0)"
^XMB(3.9,63,2,668,0)=" "
^XMB(3.9,63,2,669,0)="""PKG"",53,22,1,""PAH"",1,1,68,0)"
^XMB(3.9,63,2,670,0)=" "
^XMB(3.9,63,2,671,0)="""PKG"",53,22,1,""PAH"",1,1,69,0)"
^XMB(3.9,63,2,672,0)="ROUTINE SUMMARY"
^XMB(3.9,63,2,673,0)="""PKG"",53,22,1,""PAH"",1,1,70,0)"
^XMB(3.9,63,2,674,0)="==============="
^XMB(3.9,63,2,675,0)="""PKG"",53,22,1,""PAH"",1,1,71,0)"
^XMB(3.9,63,2,676,0)="  The following routines are included in this patch.  The second line"
^XMB(3.9,63,2,677,0)="""PKG"",53,22,1,""PAH"",1,1,72,0)"
^XMB(3.9,63,2,678,0)="  of each of these routines now looks like:"
^XMB(3.9,63,2,679,0)="""PKG"",53,22,1,""PAH"",1,1,73,0)"
^XMB(3.9,63,2,680,0)="  <tab> ;;5.2;AUTOMATED LAB INSTRUMENTS;<patchlist>;Sep 27, 1994"
^XMB(3.9,63,2,681,0)="""PKG"",53,22,1,""PAH"",1,1,74,0)"
^XMB(3.9,63,2,682,0)=" "
^XMB(3.9,63,2,683,0)="""PKG"",53,22,1,""PAH"",1,1,75,0)"
^XMB(3.9,63,2,684,0)="                  Checksum       Checksum"
^XMB(3.9,63,2,685,0)="""PKG"",53,22,1,""PAH"",1,1,76,0)"
^XMB(3.9,63,2,686,0)=" Routine Name     Before Patch   After Patch    Patch List"
^XMB(3.9,63,2,687,0)="""PKG"",53,22,1,""PAH"",1,1,77,0)"
^XMB(3.9,63,2,688,0)="     LA7VIN5A     9628469        9655113        46,64,67,72"
^XMB(3.9,63,2,689,0)="""PKG"",53,22,1,""PAH"",1,1,78,0)"
^XMB(3.9,63,2,690,0)="     LA72         N/A            4388949        72 (D)"
^XMB(3.9,63,2,691,0)="""PKG"",53,22,1,""PAH"",1,1,79,0)"
^XMB(3.9,63,2,692,0)=" "
^XMB(3.9,63,2,693,0)="""PKG"",53,22,1,""PAH"",1,1,80,0)"
^XMB(3.9,63,2,694,0)="     (D) -- Routine deleted by KIDS after installation"
^XMB(3.9,63,2,695,0)="""PKG"",53,22,1,""PAH"",1,1,81,0)"
^XMB(3.9,63,2,696,0)="     List of preceding patches: 67"
^XMB(3.9,63,2,697,0)="""PKG"",53,22,1,""PAH"",1,1,82,0)"
^XMB(3.9,63,2,698,0)="     Sites should use CHECK^XTSUMBLD to verify checksums."
^XMB(3.9,63,2,699,0)="""PKG"",53,22,1,""PAH"",1,1,83,0)"
^XMB(3.9,63,2,700,0)=" "
^XMB(3.9,63,2,701,0)="""PKG"",53,22,1,""PAH"",1,1,84,0)"
^XMB(3.9,63,2,702,0)=" "
^XMB(3.9,63,2,703,0)="""PKG"",53,22,1,""PAH"",1,1,85,0)"
^XMB(3.9,63,2,704,0)="INSTALLATION INSTRUCTIONS"
^XMB(3.9,63,2,705,0)="""PKG"",53,22,1,""PAH"",1,1,86,0)"
^XMB(3.9,63,2,706,0)="========================="
^XMB(3.9,63,2,707,0)="""PKG"",53,22,1,""PAH"",1,1,87,0)"
^XMB(3.9,63,2,708,0)=" "
^XMB(3.9,63,2,709,0)="""PKG"",53,22,1,""PAH"",1,1,88,0)"
^XMB(3.9,63,2,710,0)="  The install time for this patch is less than 2 minutes.  This patch"
^XMB(3.9,63,2,711,0)="""PKG"",53,22,1,""PAH"",1,1,89,0)"
^XMB(3.9,63,2,712,0)="  should be installed when Laboratory users are off the system."
^XMB(3.9,63,2,713,0)="""PKG"",53,22,1,""PAH"",1,1,90,0)"
^XMB(3.9,63,2,714,0)=" "
^XMB(3.9,63,2,715,0)="""PKG"",53,22,1,""PAH"",1,1,91,0)"
^XMB(3.9,63,2,716,0)="  Suggested time to install: non-peak requirement hours."
^XMB(3.9,63,2,717,0)="""PKG"",53,22,1,""PAH"",1,1,92,0)"
^XMB(3.9,63,2,718,0)="  The installation should NOT be queued."
^XMB(3.9,63,2,719,0)="""PKG"",53,22,1,""PAH"",1,1,93,0)"
^XMB(3.9,63,2,720,0)=" "
^XMB(3.9,63,2,721,0)="""PKG"",53,22,1,""PAH"",1,1,94,0)"
^XMB(3.9,63,2,722,0)="  NOTE: Kernel patches must be current on the target system to avoid"
^XMB(3.9,63,2,723,0)="""PKG"",53,22,1,""PAH"",1,1,95,0)"
^XMB(3.9,63,2,724,0)="        problems loading and/or installing this patch."
^XMB(3.9,63,2,725,0)="""PKG"",53,22,1,""PAH"",1,1,96,0)"
^XMB(3.9,63,2,726,0)=" "
^XMB(3.9,63,2,727,0)="""PKG"",53,22,1,""PAH"",1,1,97,0)"
^XMB(3.9,63,2,728,0)="      Patch installation needs to be coordinated with the Laboratory"
^XMB(3.9,63,2,729,0)="""PKG"",53,22,1,""PAH"",1,1,98,0)"
^XMB(3.9,63,2,730,0)="      Information Manager (LIM/ADPAC)."
^XMB(3.9,63,2,731,0)="""PKG"",53,22,1,""PAH"",1,1,99,0)"
^XMB(3.9,63,2,732,0)=" "
^XMB(3.9,63,2,733,0)="""PKG"",53,22,1,""PAH"",1,1,100,0)"
^XMB(3.9,63,2,734,0)="  1.  Use the 'INSTALL/CHECK MESSAGE' option of the PackMan menu.  This"
^XMB(3.9,63,2,735,0)="""PKG"",53,22,1,""PAH"",1,1,101,0)"
^XMB(3.9,63,2,736,0)="      option will load the KIDS patch onto your system."
^XMB(3.9,63,2,737,0)="""PKG"",53,22,1,""PAH"",1,1,102,0)"
^XMB(3.9,63,2,738,0)=" "
^XMB(3.9,63,2,739,0)="""PKG"",53,22,1,""PAH"",1,1,103,0)"
^XMB(3.9,63,2,740,0)="  2.  On the 'Kernel Installation & Distribution System' Menu (KIDS),"
^XMB(3.9,63,2,741,0)="""PKG"",53,22,1,""PAH"",1,1,104,0)"
^XMB(3.9,63,2,742,0)="      select the 'Installation' menu."
^XMB(3.9,63,2,743,0)="""PKG"",53,22,1,""PAH"",1,1,105,0)"
^XMB(3.9,63,2,744,0)=" "
^XMB(3.9,63,2,745,0)="""PKG"",53,22,1,""PAH"",1,1,106,0)"
^XMB(3.9,63,2,746,0)="  3.  Use the 'Verify Checksum in Transport Global' option and verify"
^XMB(3.9,63,2,747,0)="""PKG"",53,22,1,""PAH"",1,1,107,0)"
^XMB(3.9,63,2,748,0)="      that all routines have the correct checksums."
^XMB(3.9,63,2,749,0)="""PKG"",53,22,1,""PAH"",1,1,108,0)"
^XMB(3.9,63,2,750,0)=" "
^XMB(3.9,63,2,751,0)="""PKG"",53,22,1,""PAH"",1,1,109,0)"
^XMB(3.9,63,2,752,0)="  4.  On the KIDS menu, under the 'Installation' menu, use the following"
^XMB(3.9,63,2,753,0)="""PKG"",53,22,1,""PAH"",1,1,110,0)"
^XMB(3.9,63,2,754,0)="      options:"
^XMB(3.9,63,2,755,0)="""PKG"",53,22,1,""PAH"",1,1,111,0)"
^XMB(3.9,63,2,756,0)="        Print Transport Global"
^XMB(3.9,63,2,757,0)="""PKG"",53,22,1,""PAH"",1,1,112,0)"
^XMB(3.9,63,2,758,0)="        Compare Transport Global to Current System"
^XMB(3.9,63,2,759,0)="""PKG"",53,22,1,""PAH"",1,1,113,0)"
^XMB(3.9,63,2,760,0)="        Backup a Transport Global"
^XMB(3.9,63,2,761,0)="""PKG"",53,22,1,""PAH"",1,1,114,0)"
^XMB(3.9,63,2,762,0)=" "
^XMB(3.9,63,2,763,0)="""PKG"",53,22,1,""PAH"",1,1,115,0)"
^XMB(3.9,63,2,764,0)="  5.  Use the 'Install Package(s)' option under the 'Installation' menu"
^XMB(3.9,63,2,765,0)="""PKG"",53,22,1,""PAH"",1,1,116,0)"
^XMB(3.9,63,2,766,0)="      and select the package 'LA*5.2*72'"
^XMB(3.9,63,2,767,0)="""PKG"",53,22,1,""PAH"",1,1,117,0)"
^XMB(3.9,63,2,768,0)=" "
^XMB(3.9,63,2,769,0)="""PKG"",53,22,1,""PAH"",1,1,118,0)"
^XMB(3.9,63,2,770,0)="      When prompted"
^XMB(3.9,63,2,771,0)="""PKG"",53,22,1,""PAH"",1,1,119,0)"
^XMB(3.9,63,2,772,0)="        'Want KIDS to Rebuild Menu Trees Upon Completion of Install?' "
^XMB(3.9,63,2,773,0)="""PKG"",53,22,1,""PAH"",1,1,120,0)"
^XMB(3.9,63,2,774,0)="      choose 'NO'.  Note: Responding ""Yes"" to the prompt for rebuilding"
^XMB(3.9,63,2,775,0)="""PKG"",53,22,1,""PAH"",1,1,121,0)"
^XMB(3.9,63,2,776,0)="      menu trees can significantly increase install time."
^XMB(3.9,63,2,777,0)="""PKG"",53,22,1,""PAH"",1,1,122,0)"
^XMB(3.9,63,2,778,0)=" "
^XMB(3.9,63,2,779,0)="""PKG"",53,22,1,""PAH"",1,1,123,0)"
^XMB(3.9,63,2,780,0)="      When prompted "
^XMB(3.9,63,2,781,0)="""PKG"",53,22,1,""PAH"",1,1,124,0)"
^XMB(3.9,63,2,782,0)="         'Want KIDS to INHIBIT LOGONs during the install? "
^XMB(3.9,63,2,783,0)="""PKG"",53,22,1,""PAH"",1,1,125,0)"
^XMB(3.9,63,2,784,0)="      choose 'NO'."
^XMB(3.9,63,2,785,0)="""PKG"",53,22,1,""PAH"",1,1,126,0)"
^XMB(3.9,63,2,786,0)=" "
^XMB(3.9,63,2,787,0)="""PKG"",53,22,1,""PAH"",1,1,127,0)"
^XMB(3.9,63,2,788,0)="      When prompted "
^XMB(3.9,63,2,789,0)="""PKG"",53,22,1,""PAH"",1,1,128,0)"
^XMB(3.9,63,2,790,0)="          'Want to DISABLE Scheduled Options, Menu Options, and"
^XMB(3.9,63,2,791,0)="""PKG"",53,22,1,""PAH"",1,1,129,0)"
^XMB(3.9,63,2,792,0)="           Protocols?  YES//'"
^XMB(3.9,63,2,793,0)="""PKG"",53,22,1,""PAH"",1,1,130,0)"
^XMB(3.9,63,2,794,0)="      choose 'NO' unless site has additional local laboratory  "
^XMB(3.9,63,2,795,0)="""PKG"",53,22,1,""PAH"",1,1,131,0)"
^XMB(3.9,63,2,796,0)="      options that should be disabled during install."
^XMB(3.9,63,2,797,0)="""PKG"",53,22,1,""PAH"",1,1,132,0)"
^XMB(3.9,63,2,798,0)=" "
^XMB(3.9,63,2,799,0)="""PKG"",53,22,1,""PAH"",1,1,133,0)"
^XMB(3.9,63,2,800,0)=" "
^XMB(3.9,63,2,801,0)="""PKG"",53,22,1,""PAH"",1,1,134,0)"
^XMB(3.9,63,2,802,0)=" "
^XMB(3.9,63,2,803,0)="""PKG"",53,22,1,""PAH"",1,1,135,0)"
^XMB(3.9,63,2,804,0)="INSTALLATION EXAMPLE"
^XMB(3.9,63,2,805,0)="""PKG"",53,22,1,""PAH"",1,1,136,0)"
^XMB(3.9,63,2,806,0)="===================="
^XMB(3.9,63,2,807,0)="""PKG"",53,22,1,""PAH"",1,1,137,0)"
^XMB(3.9,63,2,808,0)=" "
^XMB(3.9,63,2,809,0)="""PKG"",53,22,1,""PAH"",1,1,138,0)"
^XMB(3.9,63,2,810,0)="Select KIDS OPTION: INSTALL PACKAGE(S)  "
^XMB(3.9,63,2,811,0)="""PKG"",53,22,1,""PAH"",1,1,139,0)"
^XMB(3.9,63,2,812,0)="Select INSTALL NAME: LA*5.2*72       Loaded from Distribution  "
^XMB(3.9,63,2,813,0)="""PKG"",53,22,1,""PAH"",1,1,140,0)"
^XMB(3.9,63,2,814,0)="7/12/05@14:19:30"
^XMB(3.9,63,2,815,0)="""PKG"",53,22,1,""PAH"",1,1,141,0)"
^XMB(3.9,63,2,816,0)="     => LA*5.2*72 v1"
^XMB(3.9,63,2,817,0)="""PKG"",53,22,1,""PAH"",1,1,142,0)"
^XMB(3.9,63,2,818,0)=" "
^XMB(3.9,63,2,819,0)="""PKG"",53,22,1,""PAH"",1,1,143,0)"
^XMB(3.9,63,2,820,0)="This Distribution was loaded on Jul 12, 2005@14:19:30 with header of "
^XMB(3.9,63,2,821,0)="""PKG"",53,22,1,""PAH"",1,1,144,0)"
^XMB(3.9,63,2,822,0)="   LA*5.2*72 v1"
^XMB(3.9,63,2,823,0)="""PKG"",53,22,1,""PAH"",1,1,145,0)"
^XMB(3.9,63,2,824,0)="   It consisted of the following Install(s):"
^XMB(3.9,63,2,825,0)="""PKG"",53,22,1,""PAH"",1,1,146,0)"
^XMB(3.9,63,2,826,0)="      LA*5.2*72"
^XMB(3.9,63,2,827,0)="""PKG"",53,22,1,""PAH"",1,1,147,0)"
^XMB(3.9,63,2,828,0)="Checking Install for Package LA*5.2*72"
^XMB(3.9,63,2,829,0)="""PKG"",53,22,1,""PAH"",1,1,148,0)"
^XMB(3.9,63,2,830,0)="Will first run the Environment Check Routine, LA72"
^XMB(3.9,63,2,831,0)="""PKG"",53,22,1,""PAH"",1,1,149,0)"
^XMB(3.9,63,2,832,0)=" "
^XMB(3.9,63,2,833,0)="""PKG"",53,22,1,""PAH"",1,1,150,0)"
^XMB(3.9,63,2,834,0)=" "
^XMB(3.9,63,2,835,0)="""PKG"",53,22,1,""PAH"",1,1,151,0)"
^XMB(3.9,63,2,836,0)="                        --- Environment Check is Ok --- "
^XMB(3.9,63,2,837,0)="""PKG"",53,22,1,""PAH"",1,1,152,0)"
^XMB(3.9,63,2,838,0)=" "
^XMB(3.9,63,2,839,0)="""PKG"",53,22,1,""PAH"",1,1,153,0)"
^XMB(3.9,63,2,840,0)="Install Questions for LA*5.2*72"
^XMB(3.9,63,2,841,0)="""PKG"",53,22,1,""PAH"",1,1,154,0)"
^XMB(3.9,63,2,842,0)=" "
^XMB(3.9,63,2,843,0)="""PKG"",53,22,1,""PAH"",1,1,155,0)"
^XMB(3.9,63,2,844,0)="Want KIDS to INHIBIT LOGONs during the install? YES// NO"
^XMB(3.9,63,2,845,0)="""PKG"",53,22,1,""PAH"",1,1,156,0)"
^XMB(3.9,63,2,846,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols? YES// NO"
^XMB(3.9,63,2,847,0)="""PKG"",53,22,1,""PAH"",1,1,157,0)"
^XMB(3.9,63,2,848,0)=" "
^XMB(3.9,63,2,849,0)="""PKG"",53,22,1,""PAH"",1,1,158,0)"
^XMB(3.9,63,2,850,0)=" "
^XMB(3.9,63,2,851,0)="""PKG"",53,22,1,""PAH"",1,1,159,0)"
^XMB(3.9,63,2,852,0)=" Install Started for LA*5.2*72 : "
^XMB(3.9,63,2,853,0)="""PKG"",53,22,1,""PAH"",1,1,160,0)"
^XMB(3.9,63,2,854,0)="               Jul 12, 2005@14:20"
^XMB(3.9,63,2,855,0)="""PKG"",53,22,1,""PAH"",1,1,161,0)"
^XMB(3.9,63,2,856,0)=" "
^XMB(3.9,63,2,857,0)="""PKG"",53,22,1,""PAH"",1,1,162,0)"
^XMB(3.9,63,2,858,0)="Build Distribution Date: Jul 11, 2005"
^XMB(3.9,63,2,859,0)="""PKG"",53,22,1,""PAH"",1,1,163,0)"
^XMB(3.9,63,2,860,0)=" "
^XMB(3.9,63,2,861,0)="""PKG"",53,22,1,""PAH"",1,1,164,0)"
^XMB(3.9,63,2,862,0)=" Installing Routines:"
^XMB(3.9,63,2,863,0)="""PKG"",53,22,1,""PAH"",1,1,165,0)"
^XMB(3.9,63,2,864,0)="               Jul 12, 2005@14:20"
^XMB(3.9,63,2,865,0)="""PKG"",53,22,1,""PAH"",1,1,166,0)"
^XMB(3.9,63,2,866,0)=" "
^XMB(3.9,63,2,867,0)="""PKG"",53,22,1,""PAH"",1,1,167,0)"
^XMB(3.9,63,2,868,0)=" Running Pre-Install Routine: PRE^LA72"
^XMB(3.9,63,2,869,0)="""PKG"",53,22,1,""PAH"",1,1,168,0)"
^XMB(3.9,63,2,870,0)=" "
^XMB(3.9,63,2,871,0)="""PKG"",53,22,1,""PAH"",1,1,169,0)"
^XMB(3.9,63,2,872,0)="               Sending install started alert to mail group G.LMI "
^XMB(3.9,63,2,873,0)="""PKG"",53,22,1,""PAH"",1,1,170,0)"
^XMB(3.9,63,2,874,0)=" "
^XMB(3.9,63,2,875,0)="""PKG"",53,22,1,""PAH"",1,1,171,0)"
^XMB(3.9,63,2,876,0)="                          *** Pre install started *** "
^XMB(3.9,63,2,877,0)="""PKG"",53,22,1,""PAH"",1,1,172,0)"
^XMB(3.9,63,2,878,0)=" "
^XMB(3.9,63,2,879,0)="""PKG"",53,22,1,""PAH"",1,1,173,0)"
^XMB(3.9,63,2,880,0)="                  --- No actions required for pre install --- "
^XMB(3.9,63,2,881,0)="""PKG"",53,22,1,""PAH"",1,1,174,0)"
^XMB(3.9,63,2,882,0)=" "
^XMB(3.9,63,2,883,0)="""PKG"",53,22,1,""PAH"",1,1,175,0)"
^XMB(3.9,63,2,884,0)="                                   LA*5.2*72  "
^XMB(3.9,63,2,885,0)="""PKG"",53,22,1,""PAH"",1,1,176,0)"
^XMB(3.9,63,2,886,0)="-------------------------------------------------------------------------"
^XMB(3.9,63,2,887,0)="""PKG"",53,22,1,""PAH"",1,1,177,0)"
^XMB(3.9,63,2,888,0)="                         *** Pre install completed *** "
^XMB(3.9,63,2,889,0)="""PKG"",53,22,1,""PAH"",1,1,178,0)"
^XMB(3.9,63,2,890,0)=" "
^XMB(3.9,63,2,891,0)="""PKG"",53,22,1,""PAH"",1,1,179,0)"
^XMB(3.9,63,2,892,0)=" Running Post-Install Routine: POST^LA72"
^XMB(3.9,63,2,893,0)="""PKG"",53,22,1,""PAH"",1,1,180,0)"
^XMB(3.9,63,2,894,0)=" "
^XMB(3.9,63,2,895,0)="""PKG"",53,22,1,""PAH"",1,1,181,0)"
^XMB(3.9,63,2,896,0)="                          *** Post install started *** "
^XMB(3.9,63,2,897,0)="""PKG"",53,22,1,""PAH"",1,1,182,0)"
^XMB(3.9,63,2,898,0)=" "
^XMB(3.9,63,2,899,0)="""PKG"",53,22,1,""PAH"",1,1,183,0)"
^XMB(3.9,63,2,900,0)="                         *** Post install completed *** "
^XMB(3.9,63,2,901,0)="""PKG"",53,22,1,""PAH"",1,1,184,0)"
^XMB(3.9,63,2,902,0)=" "
^XMB(3.9,63,2,903,0)="""PKG"",53,22,1,""PAH"",1,1,185,0)"
^XMB(3.9,63,2,904,0)="              Sending install completion alert to mail group G.LMI "
^XMB(3.9,63,2,905,0)="""PKG"",53,22,1,""PAH"",1,1,186,0)"
^XMB(3.9,63,2,906,0)=" "
^XMB(3.9,63,2,907,0)="""PKG"",53,22,1,""PAH"",1,1,187,0)"
^XMB(3.9,63,2,908,0)=" Updating Routine file..."
^XMB(3.9,63,2,909,0)="""PKG"",53,22,1,""PAH"",1,1,188,0)"
^XMB(3.9,63,2,910,0)=" "
^XMB(3.9,63,2,911,0)="""PKG"",53,22,1,""PAH"",1,1,189,0)"
^XMB(3.9,63,2,912,0)=" Updating KIDS files..."
^XMB(3.9,63,2,913,0)="""PKG"",53,22,1,""PAH"",1,1,190,0)"
^XMB(3.9,63,2,914,0)=" "
^XMB(3.9,63,2,915,0)="""PKG"",53,22,1,""PAH"",1,1,191,0)"
^XMB(3.9,63,2,916,0)=" LA*5.2*72 Installed. "
^XMB(3.9,63,2,917,0)="""PKG"",53,22,1,""PAH"",1,1,192,0)"
^XMB(3.9,63,2,918,0)="               Jul 12, 2005@14:20"
^XMB(3.9,63,2,919,0)="""PKG"",53,22,1,""PAH"",1,1,193,0)"
^XMB(3.9,63,2,920,0)=" "
^XMB(3.9,63,2,921,0)="""PKG"",53,22,1,""PAH"",1,1,194,0)"
^XMB(3.9,63,2,922,0)=" Install Message sent #80481"
^XMB(3.9,63,2,923,0)="""PKG"",53,22,1,""PAH"",1,1,195,0)"
^XMB(3.9,63,2,924,0)="-------------------------------------------------------------------------"
^XMB(3.9,63,2,925,0)="""PKG"",53,22,1,""PAH"",1,1,196,0)"
^XMB(3.9,63,2,926,0)="          +------------------------------------------------------------+"
^XMB(3.9,63,2,927,0)="""PKG"",53,22,1,""PAH"",1,1,197,0)"
^XMB(3.9,63,2,928,0)="  100%    I             25             50             75               I"
^XMB(3.9,63,2,929,0)="""PKG"",53,22,1,""PAH"",1,1,198,0)"
^XMB(3.9,63,2,930,0)="Complete  +------------------------------------------------------------+"
^XMB(3.9,63,2,931,0)="""PKG"",53,22,1,""PAH"",1,1,199,0)"
^XMB(3.9,63,2,932,0)=" "
^XMB(3.9,63,2,933,0)="""PKG"",53,22,1,""PAH"",1,1,200,0)"
^XMB(3.9,63,2,934,0)=" "
^XMB(3.9,63,2,935,0)="""PKG"",53,22,1,""PAH"",1,1,201,0)"
^XMB(3.9,63,2,936,0)="Install Completed"
^XMB(3.9,63,2,937,0)="""PRE"")"
^XMB(3.9,63,2,938,0)="LA72"
^XMB(3.9,63,2,939,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,63,2,940,0)="Y"
^XMB(3.9,63,2,941,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,63,2,942,0)="^D REP^XPDH"
^XMB(3.9,63,2,943,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,63,2,944,0)="Shall I write over your |FLAG| File"
^XMB(3.9,63,2,945,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,63,2,946,0)="YES"
^XMB(3.9,63,2,947,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,63,2,948,0)="D XPF1^XPDIQ"
^XMB(3.9,63,2,949,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,63,2,950,0)="Y"
^XMB(3.9,63,2,951,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,63,2,952,0)="^D DTA^XPDH"
^XMB(3.9,63,2,953,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,63,2,954,0)="Want my data |FLAG| yours"
^XMB(3.9,63,2,955,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,63,2,956,0)="YES"
^XMB(3.9,63,2,957,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,63,2,958,0)="D XPF2^XPDIQ"
^XMB(3.9,63,2,959,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,63,2,960,0)="YO"
^XMB(3.9,63,2,961,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,63,2,962,0)="^D INHIBIT^XPDH"
^XMB(3.9,63,2,963,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,63,2,964,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,63,2,965,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,63,2,966,0)="YES"
^XMB(3.9,63,2,967,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,63,2,968,0)="D XPI1^XPDIQ"
^XMB(3.9,63,2,969,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,63,2,970,0)="PO^VA(200,:EM"
^XMB(3.9,63,2,971,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,63,2,972,0)="^D MG^XPDH"
^XMB(3.9,63,2,973,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,63,2,974,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,63,2,975,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,63,2,976,0)=""
^XMB(3.9,63,2,977,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,63,2,978,0)="D XPM1^XPDIQ"
^XMB(3.9,63,2,979,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,63,2,980,0)="Y"
^XMB(3.9,63,2,981,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,63,2,982,0)="^D MENU^XPDH"
^XMB(3.9,63,2,983,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,63,2,984,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,63,2,985,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,63,2,986,0)="YES"
^XMB(3.9,63,2,987,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,63,2,988,0)="D XPO1^XPDIQ"
^XMB(3.9,63,2,989,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,63,2,990,0)="Y"
^XMB(3.9,63,2,991,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,63,2,992,0)="^D OPT^XPDH"
^XMB(3.9,63,2,993,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,63,2,994,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,63,2,995,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,63,2,996,0)="YES"
^XMB(3.9,63,2,997,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,63,2,998,0)="D XPZ1^XPDIQ"
^XMB(3.9,63,2,999,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,63,2,1000,0)="Y"
^XMB(3.9,63,2,1001,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,63,2,1002,0)="^D RTN^XPDH"
^XMB(3.9,63,2,1003,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,63,2,1004,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,63,2,1005,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,63,2,1006,0)="NO"
^XMB(3.9,63,2,1007,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,63,2,1008,0)="D XPZ2^XPDIQ"
^XMB(3.9,63,2,1009,0)="""RTN"")"
^XMB(3.9,63,2,1010,0)="2"
^XMB(3.9,63,2,1011,0)="""RTN"",""LA72"")"
^XMB(3.9,63,2,1012,0)="0^^B9127164"
^XMB(3.9,63,2,1013,0)="""RTN"",""LA72"",1,0)"
^XMB(3.9,63,2,1014,0)="LA72 ;DALOI/JMC - LA*5.2*72 PATCH ENVIRONMENT CHECK ROUTINE ; 8/30/05 12:01pm"
^XMB(3.9,63,2,1015,0)="""RTN"",""LA72"",2,0)"
^XMB(3.9,63,2,1016,0)=" ;;5.2;AUTOMATED LAB INSTRUMENTS;**72**;Sep 27, 1994"
^XMB(3.9,63,2,1017,0)="""RTN"",""LA72"",3,0)"
^XMB(3.9,63,2,1018,0)="EN ;"
^XMB(3.9,63,2,1019,0)="""RTN"",""LA72"",4,0)"
^XMB(3.9,63,2,1020,0)=" ; Does not prevent loading of the transport global."
^XMB(3.9,63,2,1021,0)="""RTN"",""LA72"",5,0)"
^XMB(3.9,63,2,1022,0)=" ; Environment check is done only during the install."
^XMB(3.9,63,2,1023,0)="""RTN"",""LA72"",6,0)"
^XMB(3.9,63,2,1024,0)=" ;"
^XMB(3.9,63,2,1025,0)="""RTN"",""LA72"",7,0)"
^XMB(3.9,63,2,1026,0)=" N XQA,XQAMSG"
^XMB(3.9,63,2,1027,0)="""RTN"",""LA72"",8,0)"
^XMB(3.9,63,2,1028,0)=" ;"
^XMB(3.9,63,2,1029,0)="""RTN"",""LA72"",9,0)"
^XMB(3.9,63,2,1030,0)=" I '$G(XPDENV) D  Q"
^XMB(3.9,63,2,1031,0)="""RTN"",""LA72"",10,0)"
^XMB(3.9,63,2,1032,0)=" . S XQAMSG=""Transport global for patch ""_$G(XPDNM,""Unknown patch"")_"" loaded on ""_$$HTE^XLFDT($H)"
^XMB(3.9,63,2,1033,0)="""RTN"",""LA72"",11,0)"
^XMB(3.9,63,2,1034,0)=" . S XQA(""G.LMI"")="""""
^XMB(3.9,63,2,1035,0)="""RTN"",""LA72"",12,0)"
^XMB(3.9,63,2,1036,0)=" . D SETUP^XQALERT"
^XMB(3.9,63,2,1037,0)="""RTN"",""LA72"",13,0)"
^XMB(3.9,63,2,1038,0)=" . D BMES^XPDUTL($$CJ^XLFSTR(""Sending transport global loaded alert to mail group G.LMI"",80))"
^XMB(3.9,63,2,1039,0)="""RTN"",""LA72"",14,0)"
^XMB(3.9,63,2,1040,0)=" ;"
^XMB(3.9,63,2,1041,0)="""RTN"",""LA72"",15,0)"
^XMB(3.9,63,2,1042,0)=" S XQAMSG=""Installation of patch ""_$G(XPDNM,""Unknown patch"")_"" started on ""_$$HTE^XLFDT($H)"
^XMB(3.9,63,2,1043,0)="""RTN"",""LA72"",16,0)"
^XMB(3.9,63,2,1044,0)=" S XQA(""G.LMI"")="""""
^XMB(3.9,63,2,1045,0)="""RTN"",""LA72"",17,0)"
^XMB(3.9,63,2,1046,0)=" D SETUP^XQALERT"
^XMB(3.9,63,2,1047,0)="""RTN"",""LA72"",18,0)"
^XMB(3.9,63,2,1048,0)=" D CHECK"
^XMB(3.9,63,2,1049,0)="""RTN"",""LA72"",19,0)"
^XMB(3.9,63,2,1050,0)=" D EXIT"
^XMB(3.9,63,2,1051,0)="""RTN"",""LA72"",20,0)"
^XMB(3.9,63,2,1052,0)=" Q"
^XMB(3.9,63,2,1053,0)="""RTN"",""LA72"",21,0)"
^XMB(3.9,63,2,1054,0)=" ;"
^XMB(3.9,63,2,1055,0)="""RTN"",""LA72"",22,0)"
^XMB(3.9,63,2,1056,0)="CHECK ;"
^XMB(3.9,63,2,1057,0)="""RTN"",""LA72"",23,0)"
^XMB(3.9,63,2,1058,0)=" ; Perform environment check"
^XMB(3.9,63,2,1059,0)="""RTN"",""LA72"",24,0)"
^XMB(3.9,63,2,1060,0)=" ; Device Defined"
^XMB(3.9,63,2,1061,0)="""RTN"",""LA72"",25,0)"
^XMB(3.9,63,2,1062,0)=" I $S('$G(IOM):1,'$G(IOSL):1,$G(U)'=""^"":1,1:0) D  Q"
^XMB(3.9,63,2,1063,0)="""RTN"",""LA72"",26,0)"
^XMB(3.9,63,2,1064,0)=" . D BMES^XPDUTL($$CJ^XLFSTR(""Terminal Device is not defined"",80))"
^XMB(3.9,63,2,1065,0)="""RTN"",""LA72"",27,0)"
^XMB(3.9,63,2,1066,0)=" . S XPDQUIT=2"
^XMB(3.9,63,2,1067,0)="""RTN"",""LA72"",28,0)"
^XMB(3.9,63,2,1068,0)=" ; DUZ setup"
^XMB(3.9,63,2,1069,0)="""RTN"",""LA72"",29,0)"
^XMB(3.9,63,2,1070,0)=" I $S('$G(DUZ):1,$D(DUZ)[0:1,$D(DUZ(0))[0:1,1:0) D  Q"
^XMB(3.9,63,2,1071,0)="""RTN"",""LA72"",30,0)"
^XMB(3.9,63,2,1072,0)=" . D BMES^XPDUTL($$CJ^XLFSTR(""Please log in to set local DUZ... variables"",80))"
^XMB(3.9,63,2,1073,0)="""RTN"",""LA72"",31,0)"
^XMB(3.9,63,2,1074,0)=" . S XPDQUIT=2"
^XMB(3.9,63,2,1075,0)="""RTN"",""LA72"",32,0)"
^XMB(3.9,63,2,1076,0)=" ; Active User"
^XMB(3.9,63,2,1077,0)="""RTN"",""LA72"",33,0)"
^XMB(3.9,63,2,1078,0)=" I $P($$ACTIVE^XUSER(DUZ),""^"")'=1 D  Q"
^XMB(3.9,63,2,1079,0)="""RTN"",""LA72"",34,0)"
^XMB(3.9,63,2,1080,0)=" . D BMES^XPDUTL($$CJ^XLFSTR(""You are not a valid user on this system"",80))"
^XMB(3.9,63,2,1081,0)="""RTN"",""LA72"",35,0)"
^XMB(3.9,63,2,1082,0)=" . S XPDQUIT=2"
^XMB(3.9,63,2,1083,0)="""RTN"",""LA72"",36,0)"
^XMB(3.9,63,2,1084,0)=" S XPDIQ(""XPZ1"",""B"")=""NO"""
^XMB(3.9,63,2,1085,0)="""RTN"",""LA72"",37,0)"
^XMB(3.9,63,2,1086,0)=" Q"
^XMB(3.9,63,2,1087,0)="""RTN"",""LA72"",38,0)"
^XMB(3.9,63,2,1088,0)=" ;"
^XMB(3.9,63,2,1089,0)="""RTN"",""LA72"",39,0)"
^XMB(3.9,63,2,1090,0)="EXIT ;"
^XMB(3.9,63,2,1091,0)="""RTN"",""LA72"",40,0)"
^XMB(3.9,63,2,1092,0)=" ;"
^XMB(3.9,63,2,1093,0)="""RTN"",""LA72"",41,0)"
^XMB(3.9,63,2,1094,0)=" I $G(XPDQUIT) D BMES^XPDUTL($$CJ^XLFSTR(""--- Install Environment Check FAILED ---"",80))"
^XMB(3.9,63,2,1095,0)="""RTN"",""LA72"",42,0)"
^XMB(3.9,63,2,1096,0)=" I '$G(XPDQUIT) D BMES^XPDUTL($$CJ^XLFSTR(""--- Environment Check is Ok ---"",80))"
^XMB(3.9,63,2,1097,0)="""RTN"",""LA72"",43,0)"
^XMB(3.9,63,2,1098,0)=" Q"
^XMB(3.9,63,2,1099,0)="""RTN"",""LA72"",44,0)"
^XMB(3.9,63,2,1100,0)=" ;"
^XMB(3.9,63,2,1101,0)="""RTN"",""LA72"",45,0)"
^XMB(3.9,63,2,1102,0)="PRE ;"
^XMB(3.9,63,2,1103,0)="""RTN"",""LA72"",46,0)"
^XMB(3.9,63,2,1104,0)=" ;; KIDS Pre Install"
^XMB(3.9,63,2,1105,0)="""RTN"",""LA72"",47,0)"
^XMB(3.9,63,2,1106,0)=" N DA,DIK"
^XMB(3.9,63,2,1107,0)="""RTN"",""LA72"",48,0)"
^XMB(3.9,63,2,1108,0)=" D BMES^XPDUTL($$CJ^XLFSTR(""Sending install started alert to mail group G.LMI"",80))"
^XMB(3.9,63,2,1109,0)="""RTN"",""LA72"",49,0)"
^XMB(3.9,63,2,1110,0)=" D BMES^XPDUTL($$CJ^XLFSTR(""*** Pre install started ***"",80))"
^XMB(3.9,63,2,1111,0)="""RTN"",""LA72"",50,0)"
^XMB(3.9,63,2,1112,0)=" D BMES^XPDUTL($$CJ^XLFSTR(""--- No actions required for pre install ---"",80))"
^XMB(3.9,63,2,1113,0)="""RTN"",""LA72"",51,0)"
^XMB(3.9,63,2,1114,0)=" D BMES^XPDUTL($$CJ^XLFSTR(""*** Pre install completed ***"",80))"
^XMB(3.9,63,2,1115,0)="""RTN"",""LA72"",52,0)"
^XMB(3.9,63,2,1116,0)=" Q"
^XMB(3.9,63,2,1117,0)="""RTN"",""LA72"",53,0)"
^XMB(3.9,63,2,1118,0)=" ;"
^XMB(3.9,63,2,1119,0)="""RTN"",""LA72"",54,0)"
^XMB(3.9,63,2,1120,0)="POST ;"
^XMB(3.9,63,2,1121,0)="""RTN"",""LA72"",55,0)"
^XMB(3.9,63,2,1122,0)=" ;; KIDS Post Install"
^XMB(3.9,63,2,1123,0)="""RTN"",""LA72"",56,0)"
^XMB(3.9,63,2,1124,0)=" N DA,DIK,FDA,LA7X,LA7ERR,XQA,XQAMSG"
^XMB(3.9,63,2,1125,0)="""RTN"",""LA72"",57,0)"
^XMB(3.9,63,2,1126,0)=" D BMES^XPDUTL($$CJ^XLFSTR(""*** Post install started ***"",80))"
^XMB(3.9,63,2,1127,0)="""RTN"",""LA72"",58,0)"
^XMB(3.9,63,2,1128,0)=" D BMES^XPDUTL($$CJ^XLFSTR(""*** Post install completed ***"",80))"
^XMB(3.9,63,2,1129,0)="""RTN"",""LA72"",59,0)"
^XMB(3.9,63,2,1130,0)=" D BMES^XPDUTL($$CJ^XLFSTR(""Sending install completion alert to mail group G.LMI"",80))"
^XMB(3.9,63,2,1131,0)="""RTN"",""LA72"",60,0)"
^XMB(3.9,63,2,1132,0)=" ; Send alert"
^XMB(3.9,63,2,1133,0)="""RTN"",""LA72"",61,0)"
^XMB(3.9,63,2,1134,0)=" S XQAMSG=""Installation of patch ""_$G(XPDNM,""Unknown patch"")_"" completed on ""_$$HTE^XLFDT($H)"
^XMB(3.9,63,2,1135,0)="""RTN"",""LA72"",62,0)"
^XMB(3.9,63,2,1136,0)=" S XQA(""G.LMI"")="""""
^XMB(3.9,63,2,1137,0)="""RTN"",""LA72"",63,0)"
^XMB(3.9,63,2,1138,0)=" D SETUP^XQALERT"
^XMB(3.9,63,2,1139,0)="""RTN"",""LA72"",64,0)"
^XMB(3.9,63,2,1140,0)=" Q"
^XMB(3.9,63,2,1141,0)="""RTN"",""LA7VIN5A"")"
^XMB(3.9,63,2,1142,0)="0^1^B66941793^B66867521"
^XMB(3.9,63,2,1143,0)="""RTN"",""LA7VIN5A"",1,0)"
^XMB(3.9,63,2,1144,0)="LA7VIN5A ;DALOI/JMC - Process Incoming UI Msgs, continued ; Jan 12, 2004"
^XMB(3.9,63,2,1145,0)="""RTN"",""LA7VIN5A"",2,0)"
^XMB(3.9,63,2,1146,0)=" ;;5.2;AUTOMATED LAB INSTRUMENTS;**46,64,67,72**;Sep 27, 1994"
^XMB(3.9,63,2,1147,0)="""RTN"",""LA7VIN5A"",3,0)"
^XMB(3.9,63,2,1148,0)=" ; This routine is a continuation of LA7VIN5."
^XMB(3.9,63,2,1149,0)="""RTN"",""LA7VIN5A"",4,0)"
^XMB(3.9,63,2,1150,0)=" ; It is performs processing of fields in OBX segments."
^XMB(3.9,63,2,1151,0)="""RTN"",""LA7VIN5A"",5,0)"
^XMB(3.9,63,2,1152,0)=" Q"
^XMB(3.9,63,2,1153,0)="""RTN"",""LA7VIN5A"",6,0)"
^XMB(3.9,63,2,1154,0)=" ;"
^XMB(3.9,63,2,1155,0)="""RTN"",""LA7VIN5A"",7,0)"
^XMB(3.9,63,2,1156,0)="XFORM ; Transform the result based on fields 12,13,14,16,17 in the Chem Test"
^XMB(3.9,63,2,1157,0)="""RTN"",""LA7VIN5A"",8,0)"
^XMB(3.9,63,2,1158,0)=" ; multiple in the Auto Instrument file (62.4), or set on the fly"
^XMB(3.9,63,2,1159,0)="""RTN"",""LA7VIN5A"",9,0)"
^XMB(3.9,63,2,1160,0)=" ; from PARAM 1"
^XMB(3.9,63,2,1161,0)="""RTN"",""LA7VIN5A"",10,0)"
^XMB(3.9,63,2,1162,0)=" N LA7I"
^XMB(3.9,63,2,1163,0)="""RTN"",""LA7VIN5A"",11,0)"
^XMB(3.9,63,2,1164,0)=" S LA7XFORM=LA76241(2)"
^XMB(3.9,63,2,1165,0)="""RTN"",""LA7VIN5A"",12,0)"
^XMB(3.9,63,2,1166,0)=" ;"
^XMB(3.9,63,2,1167,0)="""RTN"",""LA7VIN5A"",13,0)"
^XMB(3.9,63,2,1168,0)=" ; get PARAM 1 overides"
^XMB(3.9,63,2,1169,0)="""RTN"",""LA7VIN5A"",14,0)"
^XMB(3.9,63,2,1170,0)=" I $D(LA7XFORM(1)),LA7XFORM(1)?1.N S $P(LA7XFORM,""^"")=LA7XFORM(1)"
^XMB(3.9,63,2,1171,0)="""RTN"",""LA7VIN5A"",15,0)"
^XMB(3.9,63,2,1172,0)=" F LA7I=2,3,5,6 I $D(LA7XFORM(LA7I)) S $P(LA7XFORM,""^"",LA7I)=LA7XFORM(LA7I)"
^XMB(3.9,63,2,1173,0)="""RTN"",""LA7VIN5A"",16,0)"
^XMB(3.9,63,2,1174,0)=" ; set up defaults if field was not answered"
^XMB(3.9,63,2,1175,0)="""RTN"",""LA7VIN5A"",17,0)"
^XMB(3.9,63,2,1176,0)=" ; accept results,yes"
^XMB(3.9,63,2,1177,0)="""RTN"",""LA7VIN5A"",18,0)"
^XMB(3.9,63,2,1178,0)=" I $P(LA7XFORM,""^"",3)="""" S $P(LA7XFORM,""^"",3)=1"
^XMB(3.9,63,2,1179,0)="""RTN"",""LA7VIN5A"",19,0)"
^XMB(3.9,63,2,1180,0)=" ; strip spaces,no"
^XMB(3.9,63,2,1181,0)="""RTN"",""LA7VIN5A"",20,0)"
^XMB(3.9,63,2,1182,0)=" I $P(LA7XFORM,""^"",6)="""" S $P(LA7XFORM,""^"",6)=0"
^XMB(3.9,63,2,1183,0)="""RTN"",""LA7VIN5A"",21,0)"
^XMB(3.9,63,2,1184,0)=" ; now transform"
^XMB(3.9,63,2,1185,0)="""RTN"",""LA7VIN5A"",22,0)"
^XMB(3.9,63,2,1186,0)=" ;"
^XMB(3.9,63,2,1187,0)="""RTN"",""LA7VIN5A"",23,0)"
^XMB(3.9,63,2,1188,0)=" ; Don't accept results"
^XMB(3.9,63,2,1189,0)="""RTN"",""LA7VIN5A"",24,0)"
^XMB(3.9,63,2,1190,0)=" I '$P(LA7XFORM,""^"",3) S LA7VAL="""" Q"
^XMB(3.9,63,2,1191,0)="""RTN"",""LA7VIN5A"",25,0)"
^XMB(3.9,63,2,1192,0)=" ;"
^XMB(3.9,63,2,1193,0)="""RTN"",""LA7VIN5A"",26,0)"
^XMB(3.9,63,2,1194,0)=" ; Only accept ""FINAL"" type results"
^XMB(3.9,63,2,1195,0)="""RTN"",""LA7VIN5A"",27,0)"
^XMB(3.9,63,2,1196,0)=" I $P(LA7XFORM,""^"",3)=2,""CFUX""'[LA7ORS S LA7VAL="""" Q"
^XMB(3.9,63,2,1197,0)="""RTN"",""LA7VIN5A"",28,0)"
^XMB(3.9,63,2,1198,0)=" ;"
^XMB(3.9,63,2,1199,0)="""RTN"",""LA7VIN5A"",29,0)"
^XMB(3.9,63,2,1200,0)=" ; Accept ordered tests only"
^XMB(3.9,63,2,1201,0)="""RTN"",""LA7VIN5A"",30,0)"
^XMB(3.9,63,2,1202,0)=" ; If LEDI interface (10) and message indicates a reflex (""G"") or add-on"
^XMB(3.9,63,2,1203,0)="""RTN"",""LA7VIN5A"",31,0)"
^XMB(3.9,63,2,1204,0)=" ; test (""A"") then process anyway in case it has not been added to"
^XMB(3.9,63,2,1205,0)="""RTN"",""LA7VIN5A"",32,0)"
^XMB(3.9,63,2,1206,0)=" ; accession."
^XMB(3.9,63,2,1207,0)="""RTN"",""LA7VIN5A"",33,0)"
^XMB(3.9,63,2,1208,0)=" I $P(LA7XFORM,""^"",5) D"
^XMB(3.9,63,2,1209,0)="""RTN"",""LA7VIN5A"",34,0)"
^XMB(3.9,63,2,1210,0)=" . I LA7INTYP=10,LA7SAC?1(1""A"",1""G"") Q"
^XMB(3.9,63,2,1211,0)="""RTN"",""LA7VIN5A"",35,0)"
^XMB(3.9,63,2,1212,0)=" . S LA7LIMIT=1"
^XMB(3.9,63,2,1213,0)="""RTN"",""LA7VIN5A"",36,0)"
^XMB(3.9,63,2,1214,0)=" ;"
^XMB(3.9,63,2,1215,0)="""RTN"",""LA7VIN5A"",37,0)"
^XMB(3.9,63,2,1216,0)=" ; Decimal places if number of places defined"
^XMB(3.9,63,2,1217,0)="""RTN"",""LA7VIN5A"",38,0)"
^XMB(3.9,63,2,1218,0)=" I $P(LA7XFORM,""^"")?1.N D JUSTDEC"
^XMB(3.9,63,2,1219,0)="""RTN"",""LA7VIN5A"",39,0)"
^XMB(3.9,63,2,1220,0)=" ;"
^XMB(3.9,63,2,1221,0)="""RTN"",""LA7VIN5A"",40,0)"
^XMB(3.9,63,2,1222,0)=" ; Strip spaces"
^XMB(3.9,63,2,1223,0)="""RTN"",""LA7VIN5A"",41,0)"
^XMB(3.9,63,2,1224,0)=" I $P(LA7XFORM,""^"",6) S LA7VAL=$TR(LA7VAL,"" "","""")"
^XMB(3.9,63,2,1225,0)="""RTN"",""LA7VIN5A"",42,0)"
^XMB(3.9,63,2,1226,0)=" ;"
^XMB(3.9,63,2,1227,0)="""RTN"",""LA7VIN5A"",43,0)"
^XMB(3.9,63,2,1228,0)=" ; Make result a comment"
^XMB(3.9,63,2,1229,0)="""RTN"",""LA7VIN5A"",44,0)"
^XMB(3.9,63,2,1230,0)=" ; Set value to null after making into remark, don't store twice."
^XMB(3.9,63,2,1231,0)="""RTN"",""LA7VIN5A"",45,0)"
^XMB(3.9,63,2,1232,0)=" I $P(LA7XFORM,""^"",2) D"
^XMB(3.9,63,2,1233,0)="""RTN"",""LA7VIN5A"",46,0)"
^XMB(3.9,63,2,1234,0)=" . N LA7Y"
^XMB(3.9,63,2,1235,0)="""RTN"",""LA7VIN5A"",47,0)"
^XMB(3.9,63,2,1236,0)=" . ; Store comment in ^LAH global"
^XMB(3.9,63,2,1237,0)="""RTN"",""LA7VIN5A"",48,0)"
^XMB(3.9,63,2,1238,0)=" . S LA7Y=$P(LA7RMK(0,+LA76241(0)),""^"",2)"
^XMB(3.9,63,2,1239,0)="""RTN"",""LA7VIN5A"",49,0)"
^XMB(3.9,63,2,1240,0)=" . D RMKSET^LASET(LA7LWL,LA7ISQN,LA7VAL,LA7Y)"
^XMB(3.9,63,2,1241,0)="""RTN"",""LA7VIN5A"",50,0)"
^XMB(3.9,63,2,1242,0)=" . S LA7VAL="""""
^XMB(3.9,63,2,1243,0)="""RTN"",""LA7VIN5A"",51,0)"
^XMB(3.9,63,2,1244,0)=" Q"
^XMB(3.9,63,2,1245,0)="""RTN"",""LA7VIN5A"",52,0)"
^XMB(3.9,63,2,1246,0)=" ;"
^XMB(3.9,63,2,1247,0)="""RTN"",""LA7VIN5A"",53,0)"
^XMB(3.9,63,2,1248,0)=" ;"
^XMB(3.9,63,2,1249,0)="""RTN"",""LA7VIN5A"",54,0)"
^XMB(3.9,63,2,1250,0)="CHKDIE ; Check if value to be stored passes input transform of field in DD"
^XMB(3.9,63,2,1251,0)="""RTN"",""LA7VIN5A"",55,0)"
^XMB(3.9,63,2,1252,0)=" N LA7ERR,LA7Y"
^XMB(3.9,63,2,1253,0)="""RTN"",""LA7VIN5A"",56,0)"
^XMB(3.9,63,2,1254,0)=" ;"
^XMB(3.9,63,2,1255,0)="""RTN"",""LA7VIN5A"",57,0)"
^XMB(3.9,63,2,1256,0)=" ; If result is on a LEDI interface (type=10) then don't check result"
^XMB(3.9,63,2,1257,0)="""RTN"",""LA7VIN5A"",58,0)"
^XMB(3.9,63,2,1258,0)=" ; against FileMan input tranform."
^XMB(3.9,63,2,1259,0)="""RTN"",""LA7VIN5A"",59,0)"
^XMB(3.9,63,2,1260,0)=" ; VistA sends ""canc"" as test result when test is cancelled."
^XMB(3.9,63,2,1261,0)="""RTN"",""LA7VIN5A"",60,0)"
^XMB(3.9,63,2,1262,0)=" ; DoD sends ""PL Canceled"" --> change to ""canc"" for VistA storage."
^XMB(3.9,63,2,1263,0)="""RTN"",""LA7VIN5A"",61,0)"
^XMB(3.9,63,2,1264,0)=" I LA7INTYP=10 D  Q"
^XMB(3.9,63,2,1265,0)="""RTN"",""LA7VIN5A"",62,0)"
^XMB(3.9,63,2,1266,0)=" . I LA7VAL=""PL Cancelled"" S LA7VAL=""canc"""
^XMB(3.9,63,2,1267,0)="""RTN"",""LA7VIN5A"",63,0)"
^XMB(3.9,63,2,1268,0)=" . I LA7VAL=""PL Canceled"" S LA7VAL=""canc"""
^XMB(3.9,63,2,1269,0)="""RTN"",""LA7VIN5A"",64,0)"
^XMB(3.9,63,2,1270,0)=" . I LA7VAL=""PLCanceled"" S LA7VAL=""canc"""
^XMB(3.9,63,2,1271,0)="""RTN"",""LA7VIN5A"",65,0)"
^XMB(3.9,63,2,1272,0)=" ;"
^XMB(3.9,63,2,1273,0)="""RTN"",""LA7VIN5A"",66,0)"
^XMB(3.9,63,2,1274,0)=" ; If value fails data checker then log error and suppress result."
^XMB(3.9,63,2,1275,0)="""RTN"",""LA7VIN5A"",67,0)"
^XMB(3.9,63,2,1276,0)=" D CHK^DIE(LA7SUBFL,LA76304,""H"",LA7VAL,.LA7Y,""LA7ERR"")"
^XMB(3.9,63,2,1277,0)="""RTN"",""LA7VIN5A"",68,0)"
^XMB(3.9,63,2,1278,0)=" I LA7Y=""^"" D"
^XMB(3.9,63,2,1279,0)="""RTN"",""LA7VIN5A"",69,0)"
^XMB(3.9,63,2,1280,0)=" . N LA7X"
^XMB(3.9,63,2,1281,0)="""RTN"",""LA7VIN5A"",70,0)"
^XMB(3.9,63,2,1282,0)=" . S LA7X=$G(LA7ERR(""DIERR"",1,""TEXT"",1))"
^XMB(3.9,63,2,1283,0)="""RTN"",""LA7VIN5A"",71,0)"
^XMB(3.9,63,2,1284,0)=" . D CREATE^LA7LOG(37)"
^XMB(3.9,63,2,1285,0)="""RTN"",""LA7VIN5A"",72,0)"
^XMB(3.9,63,2,1286,0)=" . S LA7VAL="""""
^XMB(3.9,63,2,1287,0)="""RTN"",""LA7VIN5A"",73,0)"
^XMB(3.9,63,2,1288,0)=" Q"
^XMB(3.9,63,2,1289,0)="""RTN"",""LA7VIN5A"",74,0)"
^XMB(3.9,63,2,1290,0)=" ;"
^XMB(3.9,63,2,1291,0)="""RTN"",""LA7VIN5A"",75,0)"
^XMB(3.9,63,2,1292,0)=" ;"
^XMB(3.9,63,2,1293,0)="""RTN"",""LA7VIN5A"",76,0)"
^XMB(3.9,63,2,1294,0)="JUSTDEC ; Justify to number of places specified"
^XMB(3.9,63,2,1295,0)="""RTN"",""LA7VIN5A"",77,0)"
^XMB(3.9,63,2,1296,0)=" ;"
^XMB(3.9,63,2,1297,0)="""RTN"",""LA7VIN5A"",78,0)"
^XMB(3.9,63,2,1298,0)=" N LA7DDTYP,LA7FMT,LA7I,LA7PRFIX,LA7X"
^XMB(3.9,63,2,1299,0)="""RTN"",""LA7VIN5A"",79,0)"
^XMB(3.9,63,2,1300,0)=" ;"
^XMB(3.9,63,2,1301,0)="""RTN"",""LA7VIN5A"",80,0)"
^XMB(3.9,63,2,1302,0)=" ; If LEDI interface (type=10) then skip decimal adjustment"
^XMB(3.9,63,2,1303,0)="""RTN"",""LA7VIN5A"",81,0)"
^XMB(3.9,63,2,1304,0)=" I LA7INTYP=10 Q"
^XMB(3.9,63,2,1305,0)="""RTN"",""LA7VIN5A"",82,0)"
^XMB(3.9,63,2,1306,0)=" ;"
^XMB(3.9,63,2,1307,0)="""RTN"",""LA7VIN5A"",83,0)"
^XMB(3.9,63,2,1308,0)=" ; Get data name field type from DD"
^XMB(3.9,63,2,1309,0)="""RTN"",""LA7VIN5A"",84,0)"
^XMB(3.9,63,2,1310,0)=" ; Only justify if Vista field is numeric or free text."
^XMB(3.9,63,2,1311,0)="""RTN"",""LA7VIN5A"",85,0)"
^XMB(3.9,63,2,1312,0)=" S LA7DDTYP=$$GET1^DID(LA7SUBFL,LA76304,"""",""TYPE"")"
^XMB(3.9,63,2,1313,0)="""RTN"",""LA7VIN5A"",86,0)"
^XMB(3.9,63,2,1314,0)=" I ""NUMERIC^FREE TEXT""'[LA7DDTYP D  Q"
^XMB(3.9,63,2,1315,0)="""RTN"",""LA7VIN5A"",87,0)"
^XMB(3.9,63,2,1316,0)=" . N LA7FLDNM"
^XMB(3.9,63,2,1317,0)="""RTN"",""LA7VIN5A"",88,0)"
^XMB(3.9,63,2,1318,0)=" . S LA7FLDNM=$$GET1^DID(63.04,LA76304,"""",""LABEL"")"
^XMB(3.9,63,2,1319,0)="""RTN"",""LA7VIN5A"",89,0)"
^XMB(3.9,63,2,1320,0)=" . D CREATE^LA7LOG(38)"
^XMB(3.9,63,2,1321,0)="""RTN"",""LA7VIN5A"",90,0)"
^XMB(3.9,63,2,1322,0)=" ;"
^XMB(3.9,63,2,1323,0)="""RTN"",""LA7VIN5A"",91,0)"
^XMB(3.9,63,2,1324,0)=" S LA7X=LA7VAL,(LA7FMT,LA7PRFIX)="""""
^XMB(3.9,63,2,1325,0)="""RTN"",""LA7VIN5A"",92,0)"
^XMB(3.9,63,2,1326,0)=" ;"
^XMB(3.9,63,2,1327,0)="""RTN"",""LA7VIN5A"",93,0)"
^XMB(3.9,63,2,1328,0)=" ; If comma formatted, strip comma and set flag to add back in."
^XMB(3.9,63,2,1329,0)="""RTN"",""LA7VIN5A"",94,0)"
^XMB(3.9,63,2,1330,0)=" S LA7X=$TR(LA7X,"","","""")"
^XMB(3.9,63,2,1331,0)="""RTN"",""LA7VIN5A"",95,0)"
^XMB(3.9,63,2,1332,0)=" I LA7X'=LA7VAL S LA7FMT=""P"""
^XMB(3.9,63,2,1333,0)="""RTN"",""LA7VIN5A"",96,0)"
^XMB(3.9,63,2,1334,0)=" ;"
^XMB(3.9,63,2,1335,0)="""RTN"",""LA7VIN5A"",97,0)"
^XMB(3.9,63,2,1336,0)=" ; If ""<>="" formatted, strip and save to add back in."
^XMB(3.9,63,2,1337,0)="""RTN"",""LA7VIN5A"",98,0)"
^XMB(3.9,63,2,1338,0)=" F LA7I=1:1:$L(LA7X) Q:$E(LA7X,LA7I)'?1(1""<"",1"">"",1""="")"
^XMB(3.9,63,2,1339,0)="""RTN"",""LA7VIN5A"",99,0)"
^XMB(3.9,63,2,1340,0)=" I LA7I>1 D"
^XMB(3.9,63,2,1341,0)="""RTN"",""LA7VIN5A"",100,0)"
^XMB(3.9,63,2,1342,0)=" . S LA7PRFIX=$E(LA7X,1,LA7I-1)"
^XMB(3.9,63,2,1343,0)="""RTN"",""LA7VIN5A"",101,0)"
^XMB(3.9,63,2,1344,0)=" . S LA7X=$E(LA7X,LA7I,$L(LA7X))"
^XMB(3.9,63,2,1345,0)="""RTN"",""LA7VIN5A"",102,0)"
^XMB(3.9,63,2,1346,0)=" ;"
^XMB(3.9,63,2,1347,0)="""RTN"",""LA7VIN5A"",103,0)"
^XMB(3.9,63,2,1348,0)=" ; Format if starts with number or decimal point, skip other results."
^XMB(3.9,63,2,1349,0)="""RTN"",""LA7VIN5A"",104,0)"
^XMB(3.9,63,2,1350,0)=" I LA7X?1(1.N,.N1"".""1.N) D"
^XMB(3.9,63,2,1351,0)="""RTN"",""LA7VIN5A"",105,0)"
^XMB(3.9,63,2,1352,0)=" . S LA7X=$FN(LA7X,LA7FMT,+LA7XFORM)"
^XMB(3.9,63,2,1353,0)="""RTN"",""LA7VIN5A"",106,0)"
^XMB(3.9,63,2,1354,0)=" . S LA7VAL=LA7PRFIX_LA7X"
^XMB(3.9,63,2,1355,0)="""RTN"",""LA7VIN5A"",107,0)"
^XMB(3.9,63,2,1356,0)=" Q"
^XMB(3.9,63,2,1357,0)="""RTN"",""LA7VIN5A"",108,0)"
^XMB(3.9,63,2,1358,0)=" ;"
^XMB(3.9,63,2,1359,0)="""RTN"",""LA7VIN5A"",109,0)"
^XMB(3.9,63,2,1360,0)=" ;"
^XMB(3.9,63,2,1361,0)="""RTN"",""LA7VIN5A"",110,0)"
^XMB(3.9,63,2,1362,0)="PRDID(LA7PRDID,LA7SFAC,LA7CS) ; Process/Store Producer's ID"
^XMB(3.9,63,2,1363,0)="""RTN"",""LA7VIN5A"",111,0)"
^XMB(3.9,63,2,1364,0)=" ; Store where test was performed."
^XMB(3.9,63,2,1365,0)="""RTN"",""LA7VIN5A"",112,0)"
^XMB(3.9,63,2,1366,0)=" ; Call with LA7PRDID = Producer's ID field"
^XMB(3.9,63,2,1367,0)="""RTN"",""LA7VIN5A"",113,0)"
^XMB(3.9,63,2,1368,0)=" ;            LA7SFAC = sending facility"
^XMB(3.9,63,2,1369,0)="""RTN"",""LA7VIN5A"",114,0)"
^XMB(3.9,63,2,1370,0)=" ;              LA7CS = component encoding character"
^XMB(3.9,63,2,1371,0)="""RTN"",""LA7VIN5A"",115,0)"
^XMB(3.9,63,2,1372,0)=" ;"
^XMB(3.9,63,2,1373,0)="""RTN"",""LA7VIN5A"",116,0)"
^XMB(3.9,63,2,1374,0)=" N LA74,LA7I,LA7X,LA7Y"
^XMB(3.9,63,2,1375,0)="""RTN"",""LA7VIN5A"",117,0)"
^XMB(3.9,63,2,1376,0)=" ;"
^XMB(3.9,63,2,1377,0)="""RTN"",""LA7VIN5A"",118,0)"
^XMB(3.9,63,2,1378,0)=" S LA7X=$P(LA7PRDID,LA7CS,2),LA74="""""
^XMB(3.9,63,2,1379,0)="""RTN"",""LA7VIN5A"",119,0)"
^XMB(3.9,63,2,1380,0)=" ;"
^XMB(3.9,63,2,1381,0)="""RTN"",""LA7VIN5A"",120,0)"
^XMB(3.9,63,2,1382,0)=" F LA7I=1,4 D  Q:LA74"
^XMB(3.9,63,2,1383,0)="""RTN"",""LA7VIN5A"",121,0)"
^XMB(3.9,63,2,1384,0)=" . I $P(LA7PRDID,LA7CS,LA7I+2)=""99VA4"" S LA74=$$LKUP^XUAF4($P(LA7PRDID,LA7CS,LA7I))"
^XMB(3.9,63,2,1385,0)="""RTN"",""LA7VIN5A"",122,0)"
^XMB(3.9,63,2,1386,0)=" . I 'LA74 S LA74=$$LKUP^XUAF4($P(LA7PRDID,LA7CS,LA7I+1))"
^XMB(3.9,63,2,1387,0)="""RTN"",""LA7VIN5A"",123,0)"
^XMB(3.9,63,2,1388,0)=" . I 'LA74 S LA74=$$FINDSITE^LA7VHLU2($P(LA7PRDID,LA7CS),1,1)"
^XMB(3.9,63,2,1389,0)="""RTN"",""LA7VIN5A"",124,0)"
^XMB(3.9,63,2,1390,0)=" . I 'LA74 S LA74=$$FINDSITE^LA7VHLU2($P(LA7SFAC,LA7CS),1,1)"
^XMB(3.9,63,2,1391,0)="""RTN"",""LA7VIN5A"",125,0)"
^XMB(3.9,63,2,1392,0)=" ;"
^XMB(3.9,63,2,1393,0)="""RTN"",""LA7VIN5A"",126,0)"
^XMB(3.9,63,2,1394,0)=" ; Store producer's id in LAH global with results."
^XMB(3.9,63,2,1395,0)="""RTN"",""LA7VIN5A"",127,0)"
^XMB(3.9,63,2,1396,0)=" I LA74 S $P(^LAH(LA7LWL,1,LA7ISQN,LA76304),""^"",9)=LA74 Q"
^XMB(3.9,63,2,1397,0)="""RTN"",""LA7VIN5A"",128,0)"
^XMB(3.9,63,2,1398,0)=" ;"
^XMB(3.9,63,2,1399,0)="""RTN"",""LA7VIN5A"",129,0)"
^XMB(3.9,63,2,1400,0)=" ; Don't store producer's id as comment."
^XMB(3.9,63,2,1401,0)="""RTN"",""LA7VIN5A"",130,0)"
^XMB(3.9,63,2,1402,0)=" I '$P(LA76241(2),""^"",9) Q"
^XMB(3.9,63,2,1403,0)="""RTN"",""LA7VIN5A"",131,0)"
^XMB(3.9,63,2,1404,0)=" ; If unable to identify producer in file #4"
^XMB(3.9,63,2,1405,0)="""RTN"",""LA7VIN5A"",132,0)"
^XMB(3.9,63,2,1406,0)=" ;  then store as comment if field STORE PRODUCER'S ID (#20) enabled."
^XMB(3.9,63,2,1407,0)="""RTN"",""LA7VIN5A"",133,0)"
^XMB(3.9,63,2,1408,0)=" I LA7X="""" Q"
^XMB(3.9,63,2,1409,0)="""RTN"",""LA7VIN5A"",134,0)"
^XMB(3.9,63,2,1410,0)=" S LA7Y=$P(LA7RMK(0,+LA76241(0)),""^"",2)"
^XMB(3.9,63,2,1411,0)="""RTN"",""LA7VIN5A"",135,0)"
^XMB(3.9,63,2,1412,0)=" S LA7X=$S(LA7Y="""":""P"",1:""p"")_""erformed by ""_LA7X"
^XMB(3.9,63,2,1413,0)="""RTN"",""LA7VIN5A"",136,0)"
^XMB(3.9,63,2,1414,0)=" D RMKSET^LASET(LA7LWL,LA7ISQN,LA7X,LA7Y)"
^XMB(3.9,63,2,1415,0)="""RTN"",""LA7VIN5A"",137,0)"
^XMB(3.9,63,2,1416,0)=" ;"
^XMB(3.9,63,2,1417,0)="""RTN"",""LA7VIN5A"",138,0)"
^XMB(3.9,63,2,1418,0)=" Q"
^XMB(3.9,63,2,1419,0)="""RTN"",""LA7VIN5A"",139,0)"
^XMB(3.9,63,2,1420,0)=" ;"
^XMB(3.9,63,2,1421,0)="""RTN"",""LA7VIN5A"",140,0)"
^XMB(3.9,63,2,1422,0)=" ;"
^XMB(3.9,63,2,1423,0)="""RTN"",""LA7VIN5A"",141,0)"
^XMB(3.9,63,2,1424,0)="REFRNG(LA7X) ; Process/Store References Range."
^XMB(3.9,63,2,1425,0)="""RTN"",""LA7VIN5A"",142,0)"
^XMB(3.9,63,2,1426,0)=" ; Call with LA7X = reference range to store."
^XMB(3.9,63,2,1427,0)="""RTN"",""LA7VIN5A"",143,0)"
^XMB(3.9,63,2,1428,0)=" ;"
^XMB(3.9,63,2,1429,0)="""RTN"",""LA7VIN5A"",144,0)"
^XMB(3.9,63,2,1430,0)=" N LA7Y,X,Y"
^XMB(3.9,63,2,1431,0)="""RTN"",""LA7VIN5A"",145,0)"
^XMB(3.9,63,2,1432,0)=" ;"
^XMB(3.9,63,2,1433,0)="""RTN"",""LA7VIN5A"",146,0)"
^XMB(3.9,63,2,1434,0)=" ; Check if site does not want to store reference ranges on POC test."
^XMB(3.9,63,2,1435,0)="""RTN"",""LA7VIN5A"",147,0)"
^XMB(3.9,63,2,1436,0)=" I LA7INTYP>19,LA7INTYP<30,+$P(LA76241(2),""^"",10)=0 Q"
^XMB(3.9,63,2,1437,0)="""RTN"",""LA7VIN5A"",148,0)"
^XMB(3.9,63,2,1438,0)=" ;"
^XMB(3.9,63,2,1439,0)="""RTN"",""LA7VIN5A"",149,0)"
^XMB(3.9,63,2,1440,0)=" ; Remove leading and trailing quotes from reference range."
^XMB(3.9,63,2,1441,0)="""RTN"",""LA7VIN5A"",150,0)"
^XMB(3.9,63,2,1442,0)=" S LA7X=$$TRIM^XLFSTR($G(LA7X),""RL"","""""""")"
^XMB(3.9,63,2,1443,0)="""RTN"",""LA7VIN5A"",151,0)"
^XMB(3.9,63,2,1444,0)=" I LA7X="""" Q"
^XMB(3.9,63,2,1445,0)="""RTN"",""LA7VIN5A"",152,0)"
^XMB(3.9,63,2,1446,0)=" ;"
^XMB(3.9,63,2,1447,0)="""RTN"",""LA7VIN5A"",153,0)"
^XMB(3.9,63,2,1448,0)=" S X=$P($G(^LAH(LA7LWL,1,LA7ISQN,LA76304)),""^"",5)"
^XMB(3.9,63,2,1449,0)="""RTN"",""LA7VIN5A"",154,0)"
^XMB(3.9,63,2,1450,0)=" ;"
^XMB(3.9,63,2,1451,0)="""RTN"",""LA7VIN5A"",155,0)"
^XMB(3.9,63,2,1452,0)=" ; >lower limit (no upper limit e.g. >10) - store as low value"
^XMB(3.9,63,2,1453,0)="""RTN"",""LA7VIN5A"",156,0)"
^XMB(3.9,63,2,1454,0)=" I LA7X?1"">"".N.1""."".N S $P(X,""!"",2)=$TR(LA7X,"">"",""""),LA7X="""""
^XMB(3.9,63,2,1455,0)="""RTN"",""LA7VIN5A"",157,0)"
^XMB(3.9,63,2,1456,0)=" ;"
^XMB(3.9,63,2,1457,0)="""RTN"",""LA7VIN5A"",158,0)"
^XMB(3.9,63,2,1458,0)=" ; <upper limit (no lower limit e.g. <15) - store as high value"
^XMB(3.9,63,2,1459,0)="""RTN"",""LA7VIN5A"",159,0)"
^XMB(3.9,63,2,1460,0)=" I LA7X?1""<"".N.1""."".N S $P(X,""!"",3)=$TR(LA7X,""<"",""""),LA7X="""""
^XMB(3.9,63,2,1461,0)="""RTN"",""LA7VIN5A"",160,0)"
^XMB(3.9,63,2,1462,0)=" ;"
^XMB(3.9,63,2,1463,0)="""RTN"",""LA7VIN5A"",161,0)"
^XMB(3.9,63,2,1464,0)=" ; Alphabetic reference with hyphen"
^XMB(3.9,63,2,1465,0)="""RTN"",""LA7VIN5A"",162,0)"
^XMB(3.9,63,2,1466,0)=" I LA7X?1.A1""-""1.A S $P(X,""!"",2)=$C(34)_LA7X_$C(34),LA7X="""""
^XMB(3.9,63,2,1467,0)="""RTN"",""LA7VIN5A"",163,0)"
^XMB(3.9,63,2,1468,0)=" ;"
^XMB(3.9,63,2,1469,0)="""RTN"",""LA7VIN5A"",164,0)"
^XMB(3.9,63,2,1470,0)=" ; Lower limit value"
^XMB(3.9,63,2,1471,0)="""RTN"",""LA7VIN5A"",165,0)"
^XMB(3.9,63,2,1472,0)=" S Y=$P(LA7X,""-"")"
^XMB(3.9,63,2,1473,0)="""RTN"",""LA7VIN5A"",166,0)"
^XMB(3.9,63,2,1474,0)=" I Y'="""" D"
^XMB(3.9,63,2,1475,0)="""RTN"",""LA7VIN5A"",167,0)"
^XMB(3.9,63,2,1476,0)=" . I Y?.N.1""."".N S $P(X,""!"",2)=Y"
^XMB(3.9,63,2,1477,0)="""RTN"",""LA7VIN5A"",168,0)"
^XMB(3.9,63,2,1478,0)=" . E  S $P(X,""!"",2)=$C(34)_$$UNESC^LA7VHLU3(Y,LA7FS_LA7ECH)_$C(34)"
^XMB(3.9,63,2,1479,0)="""RTN"",""LA7VIN5A"",169,0)"
^XMB(3.9,63,2,1480,0)=" ;"
^XMB(3.9,63,2,1481,0)="""RTN"",""LA7VIN5A"",170,0)"
^XMB(3.9,63,2,1482,0)=" ; Upper limit value"
^XMB(3.9,63,2,1483,0)="""RTN"",""LA7VIN5A"",171,0)"
^XMB(3.9,63,2,1484,0)=" S Y=$P(LA7X,""-"",2)"
^XMB(3.9,63,2,1485,0)="""RTN"",""LA7VIN5A"",172,0)"
^XMB(3.9,63,2,1486,0)=" I Y'="""" D"
^XMB(3.9,63,2,1487,0)="""RTN"",""LA7VIN5A"",173,0)"
^XMB(3.9,63,2,1488,0)=" . I Y?.N.1""."".N S $P(X,""!"",3)=Y"
^XMB(3.9,63,2,1489,0)="""RTN"",""LA7VIN5A"",174,0)"
^XMB(3.9,63,2,1490,0)=" . E  S $P(X,""!"",3)=$C(34)_$$UNESC^LA7VHLU3(Y,LA7FS_LA7ECH)_$C(34)"
^XMB(3.9,63,2,1491,0)="""RTN"",""LA7VIN5A"",175,0)"
^XMB(3.9,63,2,1492,0)=" ;"
^XMB(3.9,63,2,1493,0)="""RTN"",""LA7VIN5A"",176,0)"
^XMB(3.9,63,2,1494,0)=" ; Store reference range in LAH global with results."
^XMB(3.9,63,2,1495,0)="""RTN"",""LA7VIN5A"",177,0)"
^XMB(3.9,63,2,1496,0)=" S $P(^LAH(LA7LWL,1,LA7ISQN,LA76304),""^"",5)=X"
^XMB(3.9,63,2,1497,0)="""RTN"",""LA7VIN5A"",178,0)"
^XMB(3.9,63,2,1498,0)=" ;"
^XMB(3.9,63,2,1499,0)="""RTN"",""LA7VIN5A"",179,0)"
^XMB(3.9,63,2,1500,0)=" Q"
^XMB(3.9,63,2,1501,0)="""RTN"",""LA7VIN5A"",180,0)"
^XMB(3.9,63,2,1502,0)=" ;"
^XMB(3.9,63,2,1503,0)="""RTN"",""LA7VIN5A"",181,0)"
^XMB(3.9,63,2,1504,0)=" ;"
^XMB(3.9,63,2,1505,0)="""RTN"",""LA7VIN5A"",182,0)"
^XMB(3.9,63,2,1506,0)="ABFLAG(LA7X) ; Process/Store Abnormal Flags."
^XMB(3.9,63,2,1507,0)="""RTN"",""LA7VIN5A"",183,0)"
^XMB(3.9,63,2,1508,0)=" ; Call with LA7X = abnormal flags to store."
^XMB(3.9,63,2,1509,0)="""RTN"",""LA7VIN5A"",184,0)"
^XMB(3.9,63,2,1510,0)=" ; Converts flag to interpretation based on HL7 Table 0078."
^XMB(3.9,63,2,1511,0)="""RTN"",""LA7VIN5A"",185,0)"
^XMB(3.9,63,2,1512,0)=" ; If no match store code instead of interpretation"
^XMB(3.9,63,2,1513,0)="""RTN"",""LA7VIN5A"",186,0)"
^XMB(3.9,63,2,1514,0)=" ;"
^XMB(3.9,63,2,1515,0)="""RTN"",""LA7VIN5A"",187,0)"
^XMB(3.9,63,2,1516,0)=" N I,LA7I,LA7Y,X"
^XMB(3.9,63,2,1517,0)="""RTN"",""LA7VIN5A"",188,0)"
^XMB(3.9,63,2,1518,0)=" ;"
^XMB(3.9,63,2,1519,0)="""RTN"",""LA7VIN5A"",189,0)"
^XMB(3.9,63,2,1520,0)=" ; Store abnormal flags in LAH global with results."
^XMB(3.9,63,2,1521,0)="""RTN"",""LA7VIN5A"",190,0)"
^XMB(3.9,63,2,1522,0)=" ; Currently only storing high/low and critical flags"
^XMB(3.9,63,2,1523,0)="""RTN"",""LA7VIN5A"",191,0)"
^XMB(3.9,63,2,1524,0)=" S LA7Y=$S(LA7X=""L"":""L"",LA7X=""H"":""H"",LA7X=""LL"":""L*"",LA7X=""HH"":""H*"",1:"""")"
^XMB(3.9,63,2,1525,0)="""RTN"",""LA7VIN5A"",192,0)"
^XMB(3.9,63,2,1526,0)=" S $P(^LAH(LA7LWL,1,LA7ISQN,LA76304),""^"",2)=LA7Y"
^XMB(3.9,63,2,1527,0)="""RTN"",""LA7VIN5A"",193,0)"
^XMB(3.9,63,2,1528,0)=" ;"
^XMB(3.9,63,2,1529,0)="""RTN"",""LA7VIN5A"",194,0)"
^XMB(3.9,63,2,1530,0)=" ; Critical or designated abnormal tests generate bulletin/alert"
^XMB(3.9,63,2,1531,0)="""RTN"",""LA7VIN5A"",195,0)"
^XMB(3.9,63,2,1532,0)=" ; on LEDI (type=10) interfaces."
^XMB(3.9,63,2,1533,0)="""RTN"",""LA7VIN5A"",196,0)"
^XMB(3.9,63,2,1534,0)=" I LA7INTYP=10,LA7Y'="""" D"
^XMB(3.9,63,2,1535,0)="""RTN"",""LA7VIN5A"",197,0)"
^XMB(3.9,63,2,1536,0)=" . I $E(LA7Y,2)'=""*"",'$P(LA76241(2),""^"",11) Q"
^XMB(3.9,63,2,1537,0)="""RTN"",""LA7VIN5A"",198,0)"
^XMB(3.9,63,2,1538,0)=" . S LA7I=$O(^TMP(""LA7 ABNORMAL RESULTS"",$J,""""),-1),LA7I=LA7I+1"
^XMB(3.9,63,2,1539,0)="""RTN"",""LA7VIN5A"",199,0)"
^XMB(3.9,63,2,1540,0)=" . S X=LA7LWL_""^""_LA7ISQN_""^""_LA76304_""^""_LA76248_""^""_LA76249_""^""_LA7ORS_""^""_LA7TEST_""^""_$S(LA7TEST(0)'="""":LA7TEST(0),1:LA7TEST(2,0))_""^""_$$P^LA7VHLU(.LA7SEG,9,LA7FS)"
^XMB(3.9,63,2,1541,0)="""RTN"",""LA7VIN5A"",200,0)"
^XMB(3.9,63,2,1542,0)=" . S ^TMP(""LA7 ABNORMAL RESULTS"",$J,LA7I)=X"
^XMB(3.9,63,2,1543,0)="""RTN"",""LA7VIN5A"",201,0)"
^XMB(3.9,63,2,1544,0)=" ;"
^XMB(3.9,63,2,1545,0)="""RTN"",""LA7VIN5A"",202,0)"
^XMB(3.9,63,2,1546,0)=" ; If POC interface and abnormal flag is not handled by VistA above"
^XMB(3.9,63,2,1547,0)="""RTN"",""LA7VIN5A"",203,0)"
^XMB(3.9,63,2,1548,0)=" ;  then store as comment."
^XMB(3.9,63,2,1549,0)="""RTN"",""LA7VIN5A"",204,0)"
^XMB(3.9,63,2,1550,0)=" I LA7INTYP>19,LA7INTYP<30,LA7Y="""",LA7X'="""" D"
^XMB(3.9,63,2,1551,0)="""RTN"",""LA7VIN5A"",205,0)"
^XMB(3.9,63,2,1552,0)=" . S X="" L^ H^LL^HH^ <^ >^ N^ A^AA^ U^ D^ B^ W^ S^ R^ I^MS^VS"""
^XMB(3.9,63,2,1553,0)="""RTN"",""LA7VIN5A"",206,0)"
^XMB(3.9,63,2,1554,0)=" . S I=$F(X,LA7X)\3"
^XMB(3.9,63,2,1555,0)="""RTN"",""LA7VIN5A"",207,0)"
^XMB(3.9,63,2,1556,0)=" . S LA7Y=""normalcy status - ""_$P($T(ABFLAGS+I^LA7VHLU1),"";;"",2)"
^XMB(3.9,63,2,1557,0)="""RTN"",""LA7VIN5A"",208,0)"
^XMB(3.9,63,2,1558,0)=" . D RMKSET^LASET(LA7LWL,LA7ISQN,LA7Y,$P(LA7RMK(0,+LA76241(0)),""^"",2))"
^XMB(3.9,63,2,1559,0)="""RTN"",""LA7VIN5A"",209,0)"
^XMB(3.9,63,2,1560,0)=" ;"
^XMB(3.9,63,2,1561,0)="""RTN"",""LA7VIN5A"",210,0)"
^XMB(3.9,63,2,1562,0)=" Q"
^XMB(3.9,63,2,1563,0)="""RTN"",""LA7VIN5A"",211,0)"
^XMB(3.9,63,2,1564,0)=" ;"
^XMB(3.9,63,2,1565,0)="""RTN"",""LA7VIN5A"",212,0)"
^XMB(3.9,63,2,1566,0)=" ;"
^XMB(3.9,63,2,1567,0)="""RTN"",""LA7VIN5A"",213,0)"
^XMB(3.9,63,2,1568,0)="EII ; Store equipment instance identifier in LAH global with results."
^XMB(3.9,63,2,1569,0)="""RTN"",""LA7VIN5A"",214,0)"
^XMB(3.9,63,2,1570,0)=" ;"
^XMB(3.9,63,2,1571,0)="""RTN"",""LA7VIN5A"",215,0)"
^XMB(3.9,63,2,1572,0)=" N I,LA7X,X"
^XMB(3.9,63,2,1573,0)="""RTN"",""LA7VIN5A"",216,0)"
^XMB(3.9,63,2,1574,0)=" ;"
^XMB(3.9,63,2,1575,0)="""RTN"",""LA7VIN5A"",217,0)"
^XMB(3.9,63,2,1576,0)=" S LA7X="""""
^XMB(3.9,63,2,1577,0)="""RTN"",""LA7VIN5A"",218,0)"
^XMB(3.9,63,2,1578,0)=" F I=1:1:4 D"
^XMB(3.9,63,2,1579,0)="""RTN"",""LA7VIN5A"",219,0)"
^XMB(3.9,63,2,1580,0)=" . S X=$P(LA7EII,LA7CS,I)"
^XMB(3.9,63,2,1581,0)="""RTN"",""LA7VIN5A"",220,0)"
^XMB(3.9,63,2,1582,0)=" . I X="""" Q"
^XMB(3.9,63,2,1583,0)="""RTN"",""LA7VIN5A"",221,0)"
^XMB(3.9,63,2,1584,0)=" . S $P(LA7X,""!"",I)=$TR(X,""!"",""~"")"
^XMB(3.9,63,2,1585,0)="""RTN"",""LA7VIN5A"",222,0)"
^XMB(3.9,63,2,1586,0)=" I LA7X'="""" S $P(^LAH(LA7LWL,1,LA7ISQN,LA76304),""^"",11)=LA7X"
^XMB(3.9,63,2,1587,0)="""RTN"",""LA7VIN5A"",223,0)"
^XMB(3.9,63,2,1588,0)=" Q"
^XMB(3.9,63,2,1589,0)="""RTN"",""LA7VIN5A"",224,0)"
^XMB(3.9,63,2,1590,0)=" ;"
^XMB(3.9,63,2,1591,0)="""RTN"",""LA7VIN5A"",225,0)"
^XMB(3.9,63,2,1592,0)=" ;"
^XMB(3.9,63,2,1593,0)="""RTN"",""LA7VIN5A"",226,0)"
^XMB(3.9,63,2,1594,0)="ORESULTS ; Process results that accompany order (ORM) messages"
^XMB(3.9,63,2,1595,0)="""RTN"",""LA7VIN5A"",227,0)"
^XMB(3.9,63,2,1596,0)=" ;"
^XMB(3.9,63,2,1597,0)="""RTN"",""LA7VIN5A"",228,0)"
^XMB(3.9,63,2,1598,0)=" N I,LA764,LA7DIE,LA7ERR,LA7I,LA7WP,LA7X,LA7Y,X"
^XMB(3.9,63,2,1599,0)="""RTN"",""LA7VIN5A"",229,0)"
^XMB(3.9,63,2,1600,0)=" S LA7WP(1,0)="" "",LA7I=2,X="""""
^XMB(3.9,63,2,1601,0)="""RTN"",""LA7VIN5A"",230,0)"
^XMB(3.9,63,2,1602,0)=" I LA7RLNC S X=""[LOINC ""_$$GET1^DIQ(95.3,LA7RLNC_"","",.01)_""] ""_$$GET1^DIQ(95.3,LA7RLNC_"","",80)"
^XMB(3.9,63,2,1603,0)="""RTN"",""LA7VIN5A"",231,0)"
^XMB(3.9,63,2,1604,0)=" I 'LA7RLNC,LA7RNLT D"
^XMB(3.9,63,2,1605,0)="""RTN"",""LA7VIN5A"",232,0)"
^XMB(3.9,63,2,1606,0)=" . S LA764=$$FIND1^DIC(64,"""",""X"",LA7RNLT,""E"","""",""LA7ERR"")"
^XMB(3.9,63,2,1607,0)="""RTN"",""LA7VIN5A"",233,0)"
^XMB(3.9,63,2,1608,0)=" . I 'LA764 S LA7RNLT="""" Q"
^XMB(3.9,63,2,1609,0)="""RTN"",""LA7VIN5A"",234,0)"
^XMB(3.9,63,2,1610,0)=" . S X=""[NLT ""_$$GET1^DIQ(64,LA764_"","",1)_""] ""_$$GET1^DIQ(64,LA764_"","",.01,""I"")"
^XMB(3.9,63,2,1611,0)="""RTN"",""LA7VIN5A"",235,0)"
^XMB(3.9,63,2,1612,0)=" I 'LA7RLNC,'LA7RNLT D"
^XMB(3.9,63,2,1613,0)="""RTN"",""LA7VIN5A"",236,0)"
^XMB(3.9,63,2,1614,0)=" . I LA7TEST(0)]""""!(LA7TEST]"""") S X=""[""_LA7TEST(0,1)_"" ""_LA7TEST_""] ""_LA7TEST(0) Q"
^XMB(3.9,63,2,1615,0)="""RTN"",""LA7VIN5A"",237,0)"
^XMB(3.9,63,2,1616,0)=" . S X=""[""_LA7TEST(2,1)_"" ""_LA7TEST(2)_""] ""_LA7TEST(2,0)"
^XMB(3.9,63,2,1617,0)="""RTN"",""LA7VIN5A"",238,0)"
^XMB(3.9,63,2,1618,0)=" S LA7WP(LA7I,0)=""Test result: ""_X"
^XMB(3.9,63,2,1619,0)="""RTN"",""LA7VIN5A"",239,0)"
^XMB(3.9,63,2,1620,0)=" ; Date value"
^XMB(3.9,63,2,1621,0)="""RTN"",""LA7VIN5A"",240,0)"
^XMB(3.9,63,2,1622,0)=" I LA7VTYP=""DT"" D"
^XMB(3.9,63,2,1623,0)="""RTN"",""LA7VIN5A"",241,0)"
^XMB(3.9,63,2,1624,0)=" . S LA7X=$$P^LA7VHLU(.LA7SEG,6,LA7FS)"
^XMB(3.9,63,2,1625,0)="""RTN"",""LA7VIN5A"",242,0)"
^XMB(3.9,63,2,1626,0)=" . S LA7X=$$HL7TFM^XLFDT(LA7X,""L"")"
^XMB(3.9,63,2,1627,0)="""RTN"",""LA7VIN5A"",243,0)"
^XMB(3.9,63,2,1628,0)=" . S LA7I=LA7I+1,LA7WP(LA7I,0)="" Test value: ""_LA7X"
^XMB(3.9,63,2,1629,0)="""RTN"",""LA7VIN5A"",244,0)"
^XMB(3.9,63,2,1630,0)=" ; Coded entry"
^XMB(3.9,63,2,1631,0)="""RTN"",""LA7VIN5A"",245,0)"
^XMB(3.9,63,2,1632,0)=" I ""CECM""[LA7VTYP D"
^XMB(3.9,63,2,1633,0)="""RTN"",""LA7VIN5A"",246,0)"
^XMB(3.9,63,2,1634,0)=" . S LA7X=$P($$P^LA7VHLU(.LA7SEG,6,LA7FS),LA7CS,2)"
^XMB(3.9,63,2,1635,0)="""RTN"",""LA7VIN5A"",247,0)"
^XMB(3.9,63,2,1636,0)=" . S LA7X=$$UNESC^LA7VHLU3(LA7X,LA7FS_LA7ECH)"
^XMB(3.9,63,2,1637,0)="""RTN"",""LA7VIN5A"",248,0)"
^XMB(3.9,63,2,1638,0)=" . S LA7I=LA7I+1,LA7WP(LA7I,0)="" Test value: ""_LA7X_$S(LA7UNITS]"""":"" ""_LA7UNITS,1:"""")"
^XMB(3.9,63,2,1639,0)="""RTN"",""LA7VIN5A"",249,0)"
^XMB(3.9,63,2,1640,0)=" ; Numeric/ Structured Numeric value"
^XMB(3.9,63,2,1641,0)="""RTN"",""LA7VIN5A"",250,0)"
^XMB(3.9,63,2,1642,0)=" I ""NMSN""[LA7VTYP D"
^XMB(3.9,63,2,1643,0)="""RTN"",""LA7VIN5A"",251,0)"
^XMB(3.9,63,2,1644,0)=" . S LA7X=$$P^LA7VHLU(.LA7SEG,6,LA7FS)"
^XMB(3.9,63,2,1645,0)="""RTN"",""LA7VIN5A"",252,0)"
^XMB(3.9,63,2,1646,0)=" . S LA7X=$$UNESC^LA7VHLU3(LA7X,LA7FS_LA7ECH)"
^XMB(3.9,63,2,1647,0)="""RTN"",""LA7VIN5A"",253,0)"
^XMB(3.9,63,2,1648,0)=" . S LA7I=LA7I+1,LA7WP(LA7I,0)="" Test value: ""_LA7X_$S(LA7UNITS]"""":"" ""_LA7UNITS,1:"""")"
^XMB(3.9,63,2,1649,0)="""RTN"",""LA7VIN5A"",254,0)"
^XMB(3.9,63,2,1650,0)=" ; String Data/ Formatted Text/ Text Data"
^XMB(3.9,63,2,1651,0)="""RTN"",""LA7VIN5A"",255,0)"
^XMB(3.9,63,2,1652,0)=" I ""FTSTX""[LA7VTYP D"
^XMB(3.9,63,2,1653,0)="""RTN"",""LA7VIN5A"",256,0)"
^XMB(3.9,63,2,1654,0)=" . D PA^LA7VHLU(.LA7SEG,6,LA7FS,.LA7X)"
^XMB(3.9,63,2,1655,0)="""RTN"",""LA7VIN5A"",257,0)"
^XMB(3.9,63,2,1656,0)=" . D UNESCFT^LA7VHLU3(.LA7X,LA7FS_LA7ECH,.LA7Y)"
^XMB(3.9,63,2,1657,0)="""RTN"",""LA7VIN5A"",258,0)"
^XMB(3.9,63,2,1658,0)=" . I LA7Y=1,(($L(LA7Y(1,0))+$L(LA7UNITS))<225) S LA7I=LA7I+1,LA7WP(LA7I,0)="" Test value: ""_LA7Y(1,0)_$S(LA7UNITS]"""":"" ""_LA7UNITS,1:"""") Q"
^XMB(3.9,63,2,1659,0)="""RTN"",""LA7VIN5A"",259,0)"
^XMB(3.9,63,2,1660,0)=" . S LA7I=LA7I+1,LA7WP(LA7I,0)="" Test value:"""
^XMB(3.9,63,2,1661,0)="""RTN"",""LA7VIN5A"",260,0)"
^XMB(3.9,63,2,1662,0)=" . F I=1:1:LA7Y S LA7I=LA7I+1,LA7WP(LA7I,0)=LA7Y(I,0)"
^XMB(3.9,63,2,1663,0)="""RTN"",""LA7VIN5A"",261,0)"
^XMB(3.9,63,2,1664,0)=" . I LA7UNITS'="""" S LA7I=LA7I+1,LA7WP(LA7I,0)="" Test units: ""_LA7UNITS"
^XMB(3.9,63,2,1665,0)="""RTN"",""LA7VIN5A"",262,0)"
^XMB(3.9,63,2,1666,0)=" ; Normals/ Reference range"
^XMB(3.9,63,2,1667,0)="""RTN"",""LA7VIN5A"",263,0)"
^XMB(3.9,63,2,1668,0)=" S LA7X=$$P^LA7VHLU(.LA7SEG,8,LA7FS)"
^XMB(3.9,63,2,1669,0)="""RTN"",""LA7VIN5A"",264,0)"
^XMB(3.9,63,2,1670,0)=" I LA7X'="""" S LA7I=LA7I+1,LA7WP(LA7I,0)="" Test normals: ""_LA7X"
^XMB(3.9,63,2,1671,0)="""RTN"",""LA7VIN5A"",265,0)"
^XMB(3.9,63,2,1672,0)=" ; Normalcy status"
^XMB(3.9,63,2,1673,0)="""RTN"",""LA7VIN5A"",266,0)"
^XMB(3.9,63,2,1674,0)=" S LA7X=$$P^LA7VHLU(.LA7SEG,9,LA7FS)"
^XMB(3.9,63,2,1675,0)="""RTN"",""LA7VIN5A"",267,0)"
^XMB(3.9,63,2,1676,0)=" I LA7X'="""" D"
^XMB(3.9,63,2,1677,0)="""RTN"",""LA7VIN5A"",268,0)"
^XMB(3.9,63,2,1678,0)=" . S X="" L^ H^LL^HH^ <^ >^ N^ A^AA^ U^ D^ B^ W^ S^ R^ I^MS^VS"""
^XMB(3.9,63,2,1679,0)="""RTN"",""LA7VIN5A"",269,0)"
^XMB(3.9,63,2,1680,0)=" . S I=$F(X,LA7X)\3,LA7X=$P($T(ABFLAGS+I^LA7VHLU1),"";;"",2)"
^XMB(3.9,63,2,1681,0)="""RTN"",""LA7VIN5A"",270,0)"
^XMB(3.9,63,2,1682,0)=" . I LA7X'="""" S LA7I=LA7I+1,LA7WP(LA7I,0)="" Test normalcy status: ""_LA7X"
^XMB(3.9,63,2,1683,0)="""RTN"",""LA7VIN5A"",271,0)"
^XMB(3.9,63,2,1684,0)=" I $D(LA7WP) D WP^DIE(69.6,LA7696_"","",99,""A"",""LA7WP"",""LA7DIE(99)"")"
^XMB(3.9,63,2,1685,0)="""RTN"",""LA7VIN5A"",272,0)"
^XMB(3.9,63,2,1686,0)=" Q"
^XMB(3.9,63,2,1687,0)="""VER"")"
^XMB(3.9,63,2,1688,0)="8.0^22.0"
^XMB(3.9,63,2,1689,0)="""BLD"",5918,6)"
^XMB(3.9,63,2,1690,0)="^54"
^XMB(3.9,63,2,1691,0)="$END KID LA*5.2*72"
^XMB(3.9,63,6,0)="^3.911A^2^2"
^XMB(3.9,63,6,1,0)="POSTMASTER"
^XMB(3.9,63,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,63,6,"B","POSTMASTER",1)=""
^XMB(3.9,63,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,64,0)="LR-5P2_SEQ-269_PAT-355.KID^.5^3061008.015738^^^^K"
^XMB(3.9,64,.6)="3061008"
^XMB(3.9,64,1,0)="^3.91A^2^2"
^XMB(3.9,64,1,1,0)=".5^0^3061008.015738^^^^^^^3061008.015738"
^XMB(3.9,64,1,2,0)="1^0^3061008.023814^^^^^^^3061008.023814"
^XMB(3.9,64,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,64,1,"C",.5,1)=""
^XMB(3.9,64,1,"C",1,2)=""
^XMB(3.9,64,2,0)="^^335^335^3061008"
^XMB(3.9,64,2,1,0)="$TXT Released LR*5.2*355 SEQ #269"
^XMB(3.9,64,2,2,0)="Extracted from mail message"
^XMB(3.9,64,2,3,0)="$END TXT"
^XMB(3.9,64,2,4,0)="$KID LR*5.2*355"
^XMB(3.9,64,2,5,0)="**INSTALL NAME**"
^XMB(3.9,64,2,6,0)="LR*5.2*355"
^XMB(3.9,64,2,7,0)="""BLD"",6714,0)"
^XMB(3.9,64,2,8,0)="LR*5.2*355^LAB SERVICE^0^3060411^y"
^XMB(3.9,64,2,9,0)="""BLD"",6714,1,0)"
^XMB(3.9,64,2,10,0)="^^2^2^3060322^"
^XMB(3.9,64,2,11,0)="""BLD"",6714,1,1,0)"
^XMB(3.9,64,2,12,0)="This patch corrects a SUBSCRIPT error causing the HAM report to error"
^XMB(3.9,64,2,13,0)="""BLD"",6714,1,2,0)"
^XMB(3.9,64,2,14,0)="out."
^XMB(3.9,64,2,15,0)="""BLD"",6714,4,0)"
^XMB(3.9,64,2,16,0)="^9.64PA^^"
^XMB(3.9,64,2,17,0)="""BLD"",6714,6)"
^XMB(3.9,64,2,18,0)="4^"
^XMB(3.9,64,2,19,0)="""BLD"",6714,""ABPKG"")"
^XMB(3.9,64,2,20,0)="n"
^XMB(3.9,64,2,21,0)="""BLD"",6714,""KRN"",0)"
^XMB(3.9,64,2,22,0)="^9.67PA^8989.52^19"
^XMB(3.9,64,2,23,0)="""BLD"",6714,""KRN"",.4,0)"
^XMB(3.9,64,2,24,0)=".4"
^XMB(3.9,64,2,25,0)="""BLD"",6714,""KRN"",.401,0)"
^XMB(3.9,64,2,26,0)=".401"
^XMB(3.9,64,2,27,0)="""BLD"",6714,""KRN"",.402,0)"
^XMB(3.9,64,2,28,0)=".402"
^XMB(3.9,64,2,29,0)="""BLD"",6714,""KRN"",.403,0)"
^XMB(3.9,64,2,30,0)=".403"
^XMB(3.9,64,2,31,0)="""BLD"",6714,""KRN"",.5,0)"
^XMB(3.9,64,2,32,0)=".5"
^XMB(3.9,64,2,33,0)="""BLD"",6714,""KRN"",.84,0)"
^XMB(3.9,64,2,34,0)=".84"
^XMB(3.9,64,2,35,0)="""BLD"",6714,""KRN"",3.6,0)"
^XMB(3.9,64,2,36,0)="3.6"
^XMB(3.9,64,2,37,0)="""BLD"",6714,""KRN"",3.8,0)"
^XMB(3.9,64,2,38,0)="3.8"
^XMB(3.9,64,2,39,0)="""BLD"",6714,""KRN"",9.2,0)"
^XMB(3.9,64,2,40,0)="9.2"
^XMB(3.9,64,2,41,0)="""BLD"",6714,""KRN"",9.8,0)"
^XMB(3.9,64,2,42,0)="9.8"
^XMB(3.9,64,2,43,0)="""BLD"",6714,""KRN"",9.8,""NM"",0)"
^XMB(3.9,64,2,44,0)="^9.68A^1^1"
^XMB(3.9,64,2,45,0)="""BLD"",6714,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,64,2,46,0)="LRAPSM^^0^14446711"
^XMB(3.9,64,2,47,0)="""BLD"",6714,""KRN"",9.8,""NM"",""B"",""LRAPSM"",1)"
^XMB(3.9,64,2,48,0)=""
^XMB(3.9,64,2,49,0)="""BLD"",6714,""KRN"",19,0)"
^XMB(3.9,64,2,50,0)="19"
^XMB(3.9,64,2,51,0)="""BLD"",6714,""KRN"",19,""NM"",0)"
^XMB(3.9,64,2,52,0)="^9.68A^^"
^XMB(3.9,64,2,53,0)="""BLD"",6714,""KRN"",19.1,0)"
^XMB(3.9,64,2,54,0)="19.1"
^XMB(3.9,64,2,55,0)="""BLD"",6714,""KRN"",19.1,""NM"",0)"
^XMB(3.9,64,2,56,0)="^9.68A^^"
^XMB(3.9,64,2,57,0)="""BLD"",6714,""KRN"",101,0)"
^XMB(3.9,64,2,58,0)="101"
^XMB(3.9,64,2,59,0)="""BLD"",6714,""KRN"",101,""NM"",0)"
^XMB(3.9,64,2,60,0)="^9.68A^^"
^XMB(3.9,64,2,61,0)="""BLD"",6714,""KRN"",409.61,0)"
^XMB(3.9,64,2,62,0)="409.61"
^XMB(3.9,64,2,63,0)="""BLD"",6714,""KRN"",409.61,""NM"",0)"
^XMB(3.9,64,2,64,0)="^9.68A^^"
^XMB(3.9,64,2,65,0)="""BLD"",6714,""KRN"",771,0)"
^XMB(3.9,64,2,66,0)="771"
^XMB(3.9,64,2,67,0)="""BLD"",6714,""KRN"",771,""NM"",0)"
^XMB(3.9,64,2,68,0)="^9.68A^^"
^XMB(3.9,64,2,69,0)="""BLD"",6714,""KRN"",870,0)"
^XMB(3.9,64,2,70,0)="870"
^XMB(3.9,64,2,71,0)="""BLD"",6714,""KRN"",870,""NM"",0)"
^XMB(3.9,64,2,72,0)="^9.68A^^"
^XMB(3.9,64,2,73,0)="""BLD"",6714,""KRN"",8989.51,0)"
^XMB(3.9,64,2,74,0)="8989.51"
^XMB(3.9,64,2,75,0)="""BLD"",6714,""KRN"",8989.51,""NM"",0)"
^XMB(3.9,64,2,76,0)="^9.68A^^"
^XMB(3.9,64,2,77,0)="""BLD"",6714,""KRN"",8989.52,0)"
^XMB(3.9,64,2,78,0)="8989.52"
^XMB(3.9,64,2,79,0)="""BLD"",6714,""KRN"",8994,0)"
^XMB(3.9,64,2,80,0)="8994"
^XMB(3.9,64,2,81,0)="""BLD"",6714,""KRN"",""B"",.4,.4)"
^XMB(3.9,64,2,82,0)=""
^XMB(3.9,64,2,83,0)="""BLD"",6714,""KRN"",""B"",.401,.401)"
^XMB(3.9,64,2,84,0)=""
^XMB(3.9,64,2,85,0)="""BLD"",6714,""KRN"",""B"",.402,.402)"
^XMB(3.9,64,2,86,0)=""
^XMB(3.9,64,2,87,0)="""BLD"",6714,""KRN"",""B"",.403,.403)"
^XMB(3.9,64,2,88,0)=""
^XMB(3.9,64,2,89,0)="""BLD"",6714,""KRN"",""B"",.5,.5)"
^XMB(3.9,64,2,90,0)=""
^XMB(3.9,64,2,91,0)="""BLD"",6714,""KRN"",""B"",.84,.84)"
^XMB(3.9,64,2,92,0)=""
^XMB(3.9,64,2,93,0)="""BLD"",6714,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,64,2,94,0)=""
^XMB(3.9,64,2,95,0)="""BLD"",6714,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,64,2,96,0)=""
^XMB(3.9,64,2,97,0)="""BLD"",6714,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,64,2,98,0)=""
^XMB(3.9,64,2,99,0)="""BLD"",6714,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,64,2,100,0)=""
^XMB(3.9,64,2,101,0)="""BLD"",6714,""KRN"",""B"",19,19)"
^XMB(3.9,64,2,102,0)=""
^XMB(3.9,64,2,103,0)="""BLD"",6714,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,64,2,104,0)=""
^XMB(3.9,64,2,105,0)="""BLD"",6714,""KRN"",""B"",101,101)"
^XMB(3.9,64,2,106,0)=""
^XMB(3.9,64,2,107,0)="""BLD"",6714,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,64,2,108,0)=""
^XMB(3.9,64,2,109,0)="""BLD"",6714,""KRN"",""B"",771,771)"
^XMB(3.9,64,2,110,0)=""
^XMB(3.9,64,2,111,0)="""BLD"",6714,""KRN"",""B"",870,870)"
^XMB(3.9,64,2,112,0)=""
^XMB(3.9,64,2,113,0)="""BLD"",6714,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,64,2,114,0)=""
^XMB(3.9,64,2,115,0)="""BLD"",6714,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,64,2,116,0)=""
^XMB(3.9,64,2,117,0)="""BLD"",6714,""KRN"",""B"",8994,8994)"
^XMB(3.9,64,2,118,0)=""
^XMB(3.9,64,2,119,0)="""BLD"",6714,""QUES"",0)"
^XMB(3.9,64,2,120,0)="^9.62^^"
^XMB(3.9,64,2,121,0)="""BLD"",6714,""REQB"",0)"
^XMB(3.9,64,2,122,0)="^9.611^1^1"
^XMB(3.9,64,2,123,0)="""BLD"",6714,""REQB"",1,0)"
^XMB(3.9,64,2,124,0)="LR*5.2*253^1"
^XMB(3.9,64,2,125,0)="""BLD"",6714,""REQB"",""B"",""LR*5.2*253"",1)"
^XMB(3.9,64,2,126,0)=""
^XMB(3.9,64,2,127,0)="""MBREQ"")"
^XMB(3.9,64,2,128,0)="0"
^XMB(3.9,64,2,129,0)="""PKG"",26,-1)"
^XMB(3.9,64,2,130,0)="1^1"
^XMB(3.9,64,2,131,0)="""PKG"",26,0)"
^XMB(3.9,64,2,132,0)="LAB SERVICE^LR^CORE LAB SYSTEM"
^XMB(3.9,64,2,133,0)="""PKG"",26,20,0)"
^XMB(3.9,64,2,134,0)="^9.402P^1^1"
^XMB(3.9,64,2,135,0)="""PKG"",26,20,1,0)"
^XMB(3.9,64,2,136,0)="2^^LRXDRPT"
^XMB(3.9,64,2,137,0)="""PKG"",26,20,1,1)"
^XMB(3.9,64,2,138,0)=""
^XMB(3.9,64,2,139,0)="""PKG"",26,20,""B"",2,1)"
^XMB(3.9,64,2,140,0)=""
^XMB(3.9,64,2,141,0)="""PKG"",26,22,0)"
^XMB(3.9,64,2,142,0)="^9.49I^1^1"
^XMB(3.9,64,2,143,0)="""PKG"",26,22,1,0)"
^XMB(3.9,64,2,144,0)="5.2^2940927^2950304"
^XMB(3.9,64,2,145,0)="""PKG"",26,22,1,""PAH"",1,0)"
^XMB(3.9,64,2,146,0)="355^3060411^33274"
^XMB(3.9,64,2,147,0)="""PKG"",26,22,1,""PAH"",1,1,0)"
^XMB(3.9,64,2,148,0)="^^2^2^3060411"
^XMB(3.9,64,2,149,0)="""PKG"",26,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,64,2,150,0)="This patch corrects a SUBSCRIPT error causing the HAM report to error"
^XMB(3.9,64,2,151,0)="""PKG"",26,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,64,2,152,0)="out."
^XMB(3.9,64,2,153,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,64,2,154,0)="Y"
^XMB(3.9,64,2,155,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,64,2,156,0)="^D REP^XPDH"
^XMB(3.9,64,2,157,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,64,2,158,0)="Shall I write over your |FLAG| File"
^XMB(3.9,64,2,159,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,64,2,160,0)="YES"
^XMB(3.9,64,2,161,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,64,2,162,0)="D XPF1^XPDIQ"
^XMB(3.9,64,2,163,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,64,2,164,0)="Y"
^XMB(3.9,64,2,165,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,64,2,166,0)="^D DTA^XPDH"
^XMB(3.9,64,2,167,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,64,2,168,0)="Want my data |FLAG| yours"
^XMB(3.9,64,2,169,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,64,2,170,0)="YES"
^XMB(3.9,64,2,171,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,64,2,172,0)="D XPF2^XPDIQ"
^XMB(3.9,64,2,173,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,64,2,174,0)="YO"
^XMB(3.9,64,2,175,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,64,2,176,0)="^D INHIBIT^XPDH"
^XMB(3.9,64,2,177,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,64,2,178,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,64,2,179,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,64,2,180,0)="YES"
^XMB(3.9,64,2,181,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,64,2,182,0)="D XPI1^XPDIQ"
^XMB(3.9,64,2,183,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,64,2,184,0)="PO^VA(200,:EM"
^XMB(3.9,64,2,185,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,64,2,186,0)="^D MG^XPDH"
^XMB(3.9,64,2,187,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,64,2,188,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,64,2,189,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,64,2,190,0)=""
^XMB(3.9,64,2,191,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,64,2,192,0)="D XPM1^XPDIQ"
^XMB(3.9,64,2,193,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,64,2,194,0)="Y"
^XMB(3.9,64,2,195,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,64,2,196,0)="^D MENU^XPDH"
^XMB(3.9,64,2,197,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,64,2,198,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,64,2,199,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,64,2,200,0)="YES"
^XMB(3.9,64,2,201,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,64,2,202,0)="D XPO1^XPDIQ"
^XMB(3.9,64,2,203,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,64,2,204,0)="Y"
^XMB(3.9,64,2,205,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,64,2,206,0)="^D OPT^XPDH"
^XMB(3.9,64,2,207,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,64,2,208,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,64,2,209,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,64,2,210,0)="YES"
^XMB(3.9,64,2,211,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,64,2,212,0)="D XPZ1^XPDIQ"
^XMB(3.9,64,2,213,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,64,2,214,0)="Y"
^XMB(3.9,64,2,215,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,64,2,216,0)="^D RTN^XPDH"
^XMB(3.9,64,2,217,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,64,2,218,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,64,2,219,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,64,2,220,0)="NO"
^XMB(3.9,64,2,221,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,64,2,222,0)="D XPZ2^XPDIQ"
^XMB(3.9,64,2,223,0)="""RTN"")"
^XMB(3.9,64,2,224,0)="1"
^XMB(3.9,64,2,225,0)="""RTN"",""LRAPSM"")"
^XMB(3.9,64,2,226,0)="0^1^B14446711^B13812630"
^XMB(3.9,64,2,227,0)="""RTN"",""LRAPSM"",1,0)"
^XMB(3.9,64,2,228,0)="LRAPSM ;AVAMC/REG - SNOMED SEARCH ;8/14/95  09:49"
^XMB(3.9,64,2,229,0)="""RTN"",""LRAPSM"",2,0)"
^XMB(3.9,64,2,230,0)=" ;;5.2;LAB SERVICE;**72,253,355**;Sep 27, 1994"
^XMB(3.9,64,2,231,0)="""RTN"",""LRAPSM"",3,0)"
^XMB(3.9,64,2,232,0)=" S IOP=""HOME"" D ^%ZIS W @IOF,!?20,LRO(68),"" search by "",S(7),"" code"""
^XMB(3.9,64,2,233,0)="""RTN"",""LRAPSM"",4,0)"
^XMB(3.9,64,2,234,0)=" S (LR,LR(1),LR(2),LR(3))=0"
^XMB(3.9,64,2,235,0)="""RTN"",""LRAPSM"",5,0)"
^XMB(3.9,64,2,236,0)="TP K A(""B"") W !!,""TOPOGRAPHY (Organ/Tissue)"",!?5,""Select 1 or more characters of the code"",!?5 R ""For all sites type 'ALL' : "",X:DTIME Q:X=""""!(X[U)  I X[""ALL"" S S(2)=""ALL"""
^XMB(3.9,64,2,237,0)="""RTN"",""LRAPSM"",6,0)"
^XMB(3.9,64,2,238,0)=" E  D CK^LRAUSM G:$D(A(""B"")) TP S S(2)=X,S(1)=$L(X)"
^XMB(3.9,64,2,239,0)="""RTN"",""LRAPSM"",7,0)"
^XMB(3.9,64,2,240,0)=" K LRN,LRM S (LRO,LRN)="""" W !!,S(7) I LRSN=61.5 D POS Q:'$D(LRO)"
^XMB(3.9,64,2,241,0)="""RTN"",""LRAPSM"",8,0)"
^XMB(3.9,64,2,242,0)=" W !?5,""For all choices type 'ALL'"" F B=1:1 D ASK Q:X[U!(X="""")!(LRN=""ALL"")"
^XMB(3.9,64,2,243,0)="""RTN"",""LRAPSM"",9,0)"
^XMB(3.9,64,2,244,0)=" Q:B<2&(LRN="""")  S:LRN=""""&(B=2) LRN=$O(LRN(0)) W ! D B^LRU Q:Y<0  S LRSDT=LRSDT-.01,LRLDT=LRLDT+.99"
^XMB(3.9,64,2,245,0)="""RTN"",""LRAPSM"",10,0)"
^XMB(3.9,64,2,246,0)=" S ZTRTN=""QUE^LRAPSM"" D BEG^LRUTL Q:POP!($D(ZTSK))"
^XMB(3.9,64,2,247,0)="""RTN"",""LRAPSM"",11,0)"
^XMB(3.9,64,2,248,0)="QUE U IO K ^TMP($J) D L^LRU,S^LRU,XR^LRU"
^XMB(3.9,64,2,249,0)="""RTN"",""LRAPSM"",12,0)"
^XMB(3.9,64,2,250,0)=" S ^TMP($J,0)=S(2)_U_LRN_U_LRO(68)_U_S(7)"
^XMB(3.9,64,2,251,0)="""RTN"",""LRAPSM"",13,0)"
^XMB(3.9,64,2,252,0)=" F X=0:0 S LRSDT=$O(^LR(LRXR,LRSDT)) Q:'LRSDT!(LRSDT>LRLDT)  D LRDFN"
^XMB(3.9,64,2,253,0)="""RTN"",""LRAPSM"",14,0)"
^XMB(3.9,64,2,254,0)="END D ^LRAPSM1,END^LRUTL,V^LRU Q"
^XMB(3.9,64,2,255,0)="""RTN"",""LRAPSM"",15,0)"
^XMB(3.9,64,2,256,0)="Y I $E(X,1,Y(1))=Y(2) S I=1 Q"
^XMB(3.9,64,2,257,0)="""RTN"",""LRAPSM"",16,0)"
^XMB(3.9,64,2,258,0)="Y1 S I=1 F I(1)=1:1:Y(1) S I(2)=$E(Y(2),I(1)) I I(2)'=""*"",I(2)'=$E(X,I(1)) S I=0 Q"
^XMB(3.9,64,2,259,0)="""RTN"",""LRAPSM"",17,0)"
^XMB(3.9,64,2,260,0)=" Q"
^XMB(3.9,64,2,261,0)="""RTN"",""LRAPSM"",18,0)"
^XMB(3.9,64,2,262,0)="LRDFN S LRDFN=0 F  S LRDFN=$O(^LR(LRXR,LRSDT,LRDFN)) Q:'LRDFN  S LR(2)=LR(2)+1 D I"
^XMB(3.9,64,2,263,0)="""RTN"",""LRAPSM"",19,0)"
^XMB(3.9,64,2,264,0)=" Q"
^XMB(3.9,64,2,265,0)="""RTN"",""LRAPSM"",20,0)"
^XMB(3.9,64,2,266,0)="I F LRI=0:0 S LRI=$O(^LR(LRXR,LRSDT,LRDFN,LRI)) Q:'LRI  D T"
^XMB(3.9,64,2,267,0)="""RTN"",""LRAPSM"",21,0)"
^XMB(3.9,64,2,268,0)=" Q"
^XMB(3.9,64,2,269,0)="""RTN"",""LRAPSM"",22,0)"
^XMB(3.9,64,2,270,0)="T Q:$P($P($G(^LR(LRDFN,LRSS,LRI,0)),U,6),"" "")'=LRABV"
^XMB(3.9,64,2,271,0)="""RTN"",""LRAPSM"",23,0)"
^XMB(3.9,64,2,272,0)=" S LR(4)=^LR(LRDFN,LRSS,LRI,0),LR(12)=$P(LR(4),""^"",10)"
^XMB(3.9,64,2,273,0)="""RTN"",""LRAPSM"",24,0)"
^XMB(3.9,64,2,274,0)=" S H(2)=$E(LR(12),1,3),LRAC=$P(LR(4),""^"",6),LRAN=+$P(LRAC,"" "",3)"
^XMB(3.9,64,2,275,0)="""RTN"",""LRAPSM"",25,0)"
^XMB(3.9,64,2,276,0)=" S LR(3)=LR(3)+1"
^XMB(3.9,64,2,277,0)="""RTN"",""LRAPSM"",26,0)"
^XMB(3.9,64,2,278,0)=" S T=0 F LR(9)=0:1 S T=$O(^LR(LRDFN,LRSS,LRI,2,T)) Q:'T  S LR(7)=+^(T,0) D TG"
^XMB(3.9,64,2,279,0)="""RTN"",""LRAPSM"",27,0)"
^XMB(3.9,64,2,280,0)=" S LR=LR+LR(9) Q  ;Number of organ/tissues"
^XMB(3.9,64,2,281,0)="""RTN"",""LRAPSM"",28,0)"
^XMB(3.9,64,2,282,0)="TG Q:'$D(^LAB(61,LR(7),0))  S LR(11)=^(0),LR(5)=$P(LR(11),""^""),LR(11)=$P(LR(11),""^"",2) I S(2)'=""ALL"",$E(LR(11),1,S(1))'=S(2) Q:S(2)'[""*""  S Y(1)=S(1),X=LR(11),Y(2)=S(2) D Y1 Q:'I"
^XMB(3.9,64,2,283,0)="""RTN"",""LRAPSM"",29,0)"
^XMB(3.9,64,2,284,0)=" S LR(1)=LR(1)+1 D M Q  ;Total of the organ/tissue searched for"
^XMB(3.9,64,2,285,0)="""RTN"",""LRAPSM"",30,0)"
^XMB(3.9,64,2,286,0)="M F M=0:0 S M=$O(^LR(LRDFN,LRSS,LRI,2,T,V,M)) Q:'M  S X=^(M,0),LR(8)=+X,LRM=$P(X,""^"",2) D @($S(LRSN'=61.2:""MX"",1:""E""))"
^XMB(3.9,64,2,287,0)="""RTN"",""LRAPSM"",31,0)"
^XMB(3.9,64,2,288,0)=" Q"
^XMB(3.9,64,2,289,0)="""RTN"",""LRAPSM"",32,0)"
^XMB(3.9,64,2,290,0)="E F E=0:0 S E=$O(^LR(LRDFN,LRSS,LRI,2,T,V,M,1,E)) Q:'E  S LR(8)=+^(E,0) D MX"
^XMB(3.9,64,2,291,0)="""RTN"",""LRAPSM"",33,0)"
^XMB(3.9,64,2,292,0)=" Q"
^XMB(3.9,64,2,293,0)="""RTN"",""LRAPSM"",34,0)"
^XMB(3.9,64,2,294,0)="MX Q:'$D(^LAB(LRSN,LR(8),0))  S W=^(0) I $D(LRO),LRO]"""",LRO'=LRM Q"
^XMB(3.9,64,2,295,0)="""RTN"",""LRAPSM"",35,0)"
^XMB(3.9,64,2,296,0)=" I LRN=""ALL"" I '$D(^TMP($J,H(2),LRAN,LR(7),0)) S ^TMP($J,H(2),LRAN,LR(7),0)=LR(5) D  G PRT"
^XMB(3.9,64,2,297,0)="""RTN"",""LRAPSM"",36,0)"
^XMB(3.9,64,2,298,0)=" . I $P(W,""^"",2)'="""" S ^TMP($J,H(2),LRAN,LR(7),$P(W,""^"",2))=$P(W,""^"")_""^""_LRM Q"
^XMB(3.9,64,2,299,0)="""RTN"",""LRAPSM"",37,0)"
^XMB(3.9,64,2,300,0)=" . S ^TMP($J,H(2),LRAN,LR(7),""99999999"")=$P(W,""^"")_""^""_LRM"
^XMB(3.9,64,2,301,0)="""RTN"",""LRAPSM"",38,0)"
^XMB(3.9,64,2,302,0)=" S X=$P(W,""^"",2),Y=0 F Z=1:1 S Y=$O(LRN(Y)) Q:Y=""""  S Y(1)=LRM(Y),Y(2)=LRN(Y) D Y I I S:'$D(^TMP($J,H(2),LRAN,LR(7),0)) ^(0)=LR(5) S ^(X)=$P(W,""^"")_""^""_LRM"
^XMB(3.9,64,2,303,0)="""RTN"",""LRAPSM"",39,0)"
^XMB(3.9,64,2,304,0)=" Q:'$D(^TMP($J,H(2),LRAN))"
^XMB(3.9,64,2,305,0)="""RTN"",""LRAPSM"",40,0)"
^XMB(3.9,64,2,306,0)="PRT S X=^LR(LRDFN,0),(LRDPF,LR(14))=$P(X,""^"",2),LRPF=^DIC(LR(14),0,""GL""),DFN=$P(X,""^"",3) Q:'$D(@(LRPF_DFN_"",0)""))"
^XMB(3.9,64,2,307,0)="""RTN"",""LRAPSM"",41,0)"
^XMB(3.9,64,2,308,0)=" S X=@(LRPF_DFN_"",0)""),LRP=$P(X,""^""),SSN=$P(X,""^"",9),SEX=$P(X,""^"",2),DOB=$P(X,""^"",3),X1=$P(LR(4),""^""),X2=DOB D ^%DTC,SSN^LRU S AGE=X\365.25"
^XMB(3.9,64,2,309,0)="""RTN"",""LRAPSM"",42,0)"
^XMB(3.9,64,2,310,0)=" S:AGE>130 AGE=""?"""
^XMB(3.9,64,2,311,0)="""RTN"",""LRAPSM"",43,0)"
^XMB(3.9,64,2,312,0)=" S ^TMP($J,H(2),LRAN)=LRAC_""^""_AGE_""^""_SEX_""^""_LRP_""^""_SSN(1)_""^""_+$E(LR(12),4,5)_""/""_$E(LR(12),6,7)_""^""_LR(14)"
^XMB(3.9,64,2,313,0)="""RTN"",""LRAPSM"",44,0)"
^XMB(3.9,64,2,314,0)=" S ^TMP($J,""B"",LRP,H(2),LRAN)="""""
^XMB(3.9,64,2,315,0)="""RTN"",""LRAPSM"",45,0)"
^XMB(3.9,64,2,316,0)=" Q"
^XMB(3.9,64,2,317,0)="""RTN"",""LRAPSM"",46,0)"
^XMB(3.9,64,2,318,0)="ASK K A(""B"") W !,""Choice #"",$J(B,2),"": Select 1 or more characters of the code: "" R X:DTIME Q:X=""""!(X[U)  I X[""ALL"" S LRN=""ALL"" Q"
^XMB(3.9,64,2,319,0)="""RTN"",""LRAPSM"",47,0)"
^XMB(3.9,64,2,320,0)=" D CK^LRAUSM G:$D(A(""B"")) ASK S LRN(X)=X,LRM(X)=$L(X) Q"
^XMB(3.9,64,2,321,0)="""RTN"",""LRAPSM"",48,0)"
^XMB(3.9,64,2,322,0)="POS ;also from LRAPSEM"
^XMB(3.9,64,2,323,0)="""RTN"",""LRAPSM"",49,0)"
^XMB(3.9,64,2,324,0)=" W !,""Select only procedures with results "" S %=2 D YN^LRU I %<1 K LRO Q"
^XMB(3.9,64,2,325,0)="""RTN"",""LRAPSM"",50,0)"
^XMB(3.9,64,2,326,0)=" I %=2 S LRO="""" Q"
^XMB(3.9,64,2,327,0)="""RTN"",""LRAPSM"",51,0)"
^XMB(3.9,64,2,328,0)="C W !,""Enter 1 for positive results or 0 for negative results: "" R X:DTIME Q:X=""""!(X[U)  I X'=1,X'=0 W $C(7),"" Enter '1' or '0'"" G C"
^XMB(3.9,64,2,329,0)="""RTN"",""LRAPSM"",52,0)"
^XMB(3.9,64,2,330,0)=" S LRO=X Q"
^XMB(3.9,64,2,331,0)="""VER"")"
^XMB(3.9,64,2,332,0)="8.0^22.0"
^XMB(3.9,64,2,333,0)="""BLD"",6714,6)"
^XMB(3.9,64,2,334,0)="^269"
^XMB(3.9,64,2,335,0)="$END KID LR*5.2*355"
^XMB(3.9,64,6,0)="^3.911A^2^2"
^XMB(3.9,64,6,1,0)="POSTMASTER"
^XMB(3.9,64,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,64,6,"B","POSTMASTER",1)=""
^XMB(3.9,64,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,65,0)="LR-5P2_SEQ-270_PAT-357.KID^.5^3061008.015738^^^^K"
^XMB(3.9,65,.6)="3061008"
^XMB(3.9,65,1,0)="^3.91A^2^2"
^XMB(3.9,65,1,1,0)=".5^0^3061008.015738^^^^^^^3061008.015738"
^XMB(3.9,65,1,2,0)="1^0^3061008.023818^^^^^^^3061008.023818"
^XMB(3.9,65,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,65,1,"C",.5,1)=""
^XMB(3.9,65,1,"C",1,2)=""
^XMB(3.9,65,2,0)="^^817^817^3061008"
^XMB(3.9,65,2,1,0)="$TXT Released LR*5.2*357 SEQ #270"
^XMB(3.9,65,2,2,0)="Extracted from mail message"
^XMB(3.9,65,2,3,0)="$END TXT"
^XMB(3.9,65,2,4,0)="$KID LR*5.2*357"
^XMB(3.9,65,2,5,0)="**INSTALL NAME**"
^XMB(3.9,65,2,6,0)="LR*5.2*357"
^XMB(3.9,65,2,7,0)="""BLD"",6724,0)"
^XMB(3.9,65,2,8,0)="LR*5.2*357^LAB SERVICE^0^3060510^y"
^XMB(3.9,65,2,9,0)="""BLD"",6724,1,0)"
^XMB(3.9,65,2,10,0)="^^1^1^3060329^"
^XMB(3.9,65,2,11,0)="""BLD"",6724,1,1,0)"
^XMB(3.9,65,2,12,0)="This patch corrects 2 seperate problems in 3 different Remedy tickets."
^XMB(3.9,65,2,13,0)="""BLD"",6724,4,0)"
^XMB(3.9,65,2,14,0)="^9.64PA^60^1"
^XMB(3.9,65,2,15,0)="""BLD"",6724,4,60,0)"
^XMB(3.9,65,2,16,0)="60"
^XMB(3.9,65,2,17,0)="""BLD"",6724,4,60,2,0)"
^XMB(3.9,65,2,18,0)="^9.641^60.1^1"
^XMB(3.9,65,2,19,0)="""BLD"",6724,4,60,2,60.1,0)"
^XMB(3.9,65,2,20,0)="SYNONYM  (sub-file)"
^XMB(3.9,65,2,21,0)="""BLD"",6724,4,60,2,60.1,1,0)"
^XMB(3.9,65,2,22,0)="^9.6411^.01^1"
^XMB(3.9,65,2,23,0)="""BLD"",6724,4,60,2,60.1,1,.01,0)"
^XMB(3.9,65,2,24,0)="SYNONYM"
^XMB(3.9,65,2,25,0)="""BLD"",6724,4,60,222)"
^XMB(3.9,65,2,26,0)="y^y^p^^^^n^^n"
^XMB(3.9,65,2,27,0)="""BLD"",6724,4,60,224)"
^XMB(3.9,65,2,28,0)=""
^XMB(3.9,65,2,29,0)="""BLD"",6724,4,""APDD"",60,60.1)"
^XMB(3.9,65,2,30,0)=""
^XMB(3.9,65,2,31,0)="""BLD"",6724,4,""APDD"",60,60.1,.01)"
^XMB(3.9,65,2,32,0)=""
^XMB(3.9,65,2,33,0)="""BLD"",6724,4,""B"",60,60)"
^XMB(3.9,65,2,34,0)=""
^XMB(3.9,65,2,35,0)="""BLD"",6724,6)"
^XMB(3.9,65,2,36,0)="3^"
^XMB(3.9,65,2,37,0)="""BLD"",6724,""ABPKG"")"
^XMB(3.9,65,2,38,0)="n"
^XMB(3.9,65,2,39,0)="""BLD"",6724,""KRN"",0)"
^XMB(3.9,65,2,40,0)="^9.67PA^8989.52^19"
^XMB(3.9,65,2,41,0)="""BLD"",6724,""KRN"",.4,0)"
^XMB(3.9,65,2,42,0)=".4"
^XMB(3.9,65,2,43,0)="""BLD"",6724,""KRN"",.401,0)"
^XMB(3.9,65,2,44,0)=".401"
^XMB(3.9,65,2,45,0)="""BLD"",6724,""KRN"",.402,0)"
^XMB(3.9,65,2,46,0)=".402"
^XMB(3.9,65,2,47,0)="""BLD"",6724,""KRN"",.403,0)"
^XMB(3.9,65,2,48,0)=".403"
^XMB(3.9,65,2,49,0)="""BLD"",6724,""KRN"",.5,0)"
^XMB(3.9,65,2,50,0)=".5"
^XMB(3.9,65,2,51,0)="""BLD"",6724,""KRN"",.84,0)"
^XMB(3.9,65,2,52,0)=".84"
^XMB(3.9,65,2,53,0)="""BLD"",6724,""KRN"",3.6,0)"
^XMB(3.9,65,2,54,0)="3.6"
^XMB(3.9,65,2,55,0)="""BLD"",6724,""KRN"",3.8,0)"
^XMB(3.9,65,2,56,0)="3.8"
^XMB(3.9,65,2,57,0)="""BLD"",6724,""KRN"",9.2,0)"
^XMB(3.9,65,2,58,0)="9.2"
^XMB(3.9,65,2,59,0)="""BLD"",6724,""KRN"",9.8,0)"
^XMB(3.9,65,2,60,0)="9.8"
^XMB(3.9,65,2,61,0)="""BLD"",6724,""KRN"",9.8,""NM"",0)"
^XMB(3.9,65,2,62,0)="^9.68A^2^2"
^XMB(3.9,65,2,63,0)="""BLD"",6724,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,65,2,64,0)="LR7OV0^^0^23457676"
^XMB(3.9,65,2,65,0)="""BLD"",6724,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,65,2,66,0)="LRSORA^^0^27384582"
^XMB(3.9,65,2,67,0)="""BLD"",6724,""KRN"",9.8,""NM"",""B"",""LR7OV0"",1)"
^XMB(3.9,65,2,68,0)=""
^XMB(3.9,65,2,69,0)="""BLD"",6724,""KRN"",9.8,""NM"",""B"",""LRSORA"",2)"
^XMB(3.9,65,2,70,0)=""
^XMB(3.9,65,2,71,0)="""BLD"",6724,""KRN"",19,0)"
^XMB(3.9,65,2,72,0)="19"
^XMB(3.9,65,2,73,0)="""BLD"",6724,""KRN"",19,""NM"",0)"
^XMB(3.9,65,2,74,0)="^9.68A^^"
^XMB(3.9,65,2,75,0)="""BLD"",6724,""KRN"",19.1,0)"
^XMB(3.9,65,2,76,0)="19.1"
^XMB(3.9,65,2,77,0)="""BLD"",6724,""KRN"",19.1,""NM"",0)"
^XMB(3.9,65,2,78,0)="^9.68A^^"
^XMB(3.9,65,2,79,0)="""BLD"",6724,""KRN"",101,0)"
^XMB(3.9,65,2,80,0)="101"
^XMB(3.9,65,2,81,0)="""BLD"",6724,""KRN"",101,""NM"",0)"
^XMB(3.9,65,2,82,0)="^9.68A^^"
^XMB(3.9,65,2,83,0)="""BLD"",6724,""KRN"",409.61,0)"
^XMB(3.9,65,2,84,0)="409.61"
^XMB(3.9,65,2,85,0)="""BLD"",6724,""KRN"",409.61,""NM"",0)"
^XMB(3.9,65,2,86,0)="^9.68A^^"
^XMB(3.9,65,2,87,0)="""BLD"",6724,""KRN"",771,0)"
^XMB(3.9,65,2,88,0)="771"
^XMB(3.9,65,2,89,0)="""BLD"",6724,""KRN"",771,""NM"",0)"
^XMB(3.9,65,2,90,0)="^9.68A^^"
^XMB(3.9,65,2,91,0)="""BLD"",6724,""KRN"",870,0)"
^XMB(3.9,65,2,92,0)="870"
^XMB(3.9,65,2,93,0)="""BLD"",6724,""KRN"",870,""NM"",0)"
^XMB(3.9,65,2,94,0)="^9.68A^^"
^XMB(3.9,65,2,95,0)="""BLD"",6724,""KRN"",8989.51,0)"
^XMB(3.9,65,2,96,0)="8989.51"
^XMB(3.9,65,2,97,0)="""BLD"",6724,""KRN"",8989.52,0)"
^XMB(3.9,65,2,98,0)="8989.52"
^XMB(3.9,65,2,99,0)="""BLD"",6724,""KRN"",8994,0)"
^XMB(3.9,65,2,100,0)="8994"
^XMB(3.9,65,2,101,0)="""BLD"",6724,""KRN"",""B"",.4,.4)"
^XMB(3.9,65,2,102,0)=""
^XMB(3.9,65,2,103,0)="""BLD"",6724,""KRN"",""B"",.401,.401)"
^XMB(3.9,65,2,104,0)=""
^XMB(3.9,65,2,105,0)="""BLD"",6724,""KRN"",""B"",.402,.402)"
^XMB(3.9,65,2,106,0)=""
^XMB(3.9,65,2,107,0)="""BLD"",6724,""KRN"",""B"",.403,.403)"
^XMB(3.9,65,2,108,0)=""
^XMB(3.9,65,2,109,0)="""BLD"",6724,""KRN"",""B"",.5,.5)"
^XMB(3.9,65,2,110,0)=""
^XMB(3.9,65,2,111,0)="""BLD"",6724,""KRN"",""B"",.84,.84)"
^XMB(3.9,65,2,112,0)=""
^XMB(3.9,65,2,113,0)="""BLD"",6724,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,65,2,114,0)=""
^XMB(3.9,65,2,115,0)="""BLD"",6724,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,65,2,116,0)=""
^XMB(3.9,65,2,117,0)="""BLD"",6724,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,65,2,118,0)=""
^XMB(3.9,65,2,119,0)="""BLD"",6724,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,65,2,120,0)=""
^XMB(3.9,65,2,121,0)="""BLD"",6724,""KRN"",""B"",19,19)"
^XMB(3.9,65,2,122,0)=""
^XMB(3.9,65,2,123,0)="""BLD"",6724,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,65,2,124,0)=""
^XMB(3.9,65,2,125,0)="""BLD"",6724,""KRN"",""B"",101,101)"
^XMB(3.9,65,2,126,0)=""
^XMB(3.9,65,2,127,0)="""BLD"",6724,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,65,2,128,0)=""
^XMB(3.9,65,2,129,0)="""BLD"",6724,""KRN"",""B"",771,771)"
^XMB(3.9,65,2,130,0)=""
^XMB(3.9,65,2,131,0)="""BLD"",6724,""KRN"",""B"",870,870)"
^XMB(3.9,65,2,132,0)=""
^XMB(3.9,65,2,133,0)="""BLD"",6724,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,65,2,134,0)=""
^XMB(3.9,65,2,135,0)="""BLD"",6724,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,65,2,136,0)=""
^XMB(3.9,65,2,137,0)="""BLD"",6724,""KRN"",""B"",8994,8994)"
^XMB(3.9,65,2,138,0)=""
^XMB(3.9,65,2,139,0)="""BLD"",6724,""QUES"",0)"
^XMB(3.9,65,2,140,0)="^9.62^^"
^XMB(3.9,65,2,141,0)="""BLD"",6724,""REQB"",0)"
^XMB(3.9,65,2,142,0)="^9.611^2^2"
^XMB(3.9,65,2,143,0)="""BLD"",6724,""REQB"",1,0)"
^XMB(3.9,65,2,144,0)="LR*5.2*187^2"
^XMB(3.9,65,2,145,0)="""BLD"",6724,""REQB"",2,0)"
^XMB(3.9,65,2,146,0)="LR*5.2*344^2"
^XMB(3.9,65,2,147,0)="""BLD"",6724,""REQB"",""B"",""LR*5.2*187"",1)"
^XMB(3.9,65,2,148,0)=""
^XMB(3.9,65,2,149,0)="""BLD"",6724,""REQB"",""B"",""LR*5.2*344"",2)"
^XMB(3.9,65,2,150,0)=""
^XMB(3.9,65,2,151,0)="""FIA"",60)"
^XMB(3.9,65,2,152,0)="LABORATORY TEST"
^XMB(3.9,65,2,153,0)="""FIA"",60,0)"
^XMB(3.9,65,2,154,0)="^LAB(60,"
^XMB(3.9,65,2,155,0)="""FIA"",60,0,0)"
^XMB(3.9,65,2,156,0)="60I"
^XMB(3.9,65,2,157,0)="""FIA"",60,0,1)"
^XMB(3.9,65,2,158,0)="y^y^p^^^^n^^n"
^XMB(3.9,65,2,159,0)="""FIA"",60,0,10)"
^XMB(3.9,65,2,160,0)=""
^XMB(3.9,65,2,161,0)="""FIA"",60,0,11)"
^XMB(3.9,65,2,162,0)=""
^XMB(3.9,65,2,163,0)="""FIA"",60,0,""RLRO"")"
^XMB(3.9,65,2,164,0)=""
^XMB(3.9,65,2,165,0)="""FIA"",60,0,""VR"")"
^XMB(3.9,65,2,166,0)="5.2^LR"
^XMB(3.9,65,2,167,0)="""FIA"",60,60)"
^XMB(3.9,65,2,168,0)="1"
^XMB(3.9,65,2,169,0)="""FIA"",60,60,2)"
^XMB(3.9,65,2,170,0)=""
^XMB(3.9,65,2,171,0)="""FIA"",60,60.1)"
^XMB(3.9,65,2,172,0)="1"
^XMB(3.9,65,2,173,0)="""FIA"",60,60.1,.01)"
^XMB(3.9,65,2,174,0)=""
^XMB(3.9,65,2,175,0)="""MBREQ"")"
^XMB(3.9,65,2,176,0)="0"
^XMB(3.9,65,2,177,0)="""PKG"",26,-1)"
^XMB(3.9,65,2,178,0)="1^1"
^XMB(3.9,65,2,179,0)="""PKG"",26,0)"
^XMB(3.9,65,2,180,0)="LAB SERVICE^LR^CORE LAB SYSTEM"
^XMB(3.9,65,2,181,0)="""PKG"",26,20,0)"
^XMB(3.9,65,2,182,0)="^9.402P^1^1"
^XMB(3.9,65,2,183,0)="""PKG"",26,20,1,0)"
^XMB(3.9,65,2,184,0)="2^^LRXDRPT"
^XMB(3.9,65,2,185,0)="""PKG"",26,20,1,1)"
^XMB(3.9,65,2,186,0)=""
^XMB(3.9,65,2,187,0)="""PKG"",26,20,""B"",2,1)"
^XMB(3.9,65,2,188,0)=""
^XMB(3.9,65,2,189,0)="""PKG"",26,22,0)"
^XMB(3.9,65,2,190,0)="^9.49I^1^1"
^XMB(3.9,65,2,191,0)="""PKG"",26,22,1,0)"
^XMB(3.9,65,2,192,0)="5.2^2940927^2950304"
^XMB(3.9,65,2,193,0)="""PKG"",26,22,1,""PAH"",1,0)"
^XMB(3.9,65,2,194,0)="357^3060510^33274"
^XMB(3.9,65,2,195,0)="""PKG"",26,22,1,""PAH"",1,1,0)"
^XMB(3.9,65,2,196,0)="^^1^1^3060510"
^XMB(3.9,65,2,197,0)="""PKG"",26,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,65,2,198,0)="This patch corrects 2 seperate problems in 3 different Remedy tickets."
^XMB(3.9,65,2,199,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,65,2,200,0)="Y"
^XMB(3.9,65,2,201,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,65,2,202,0)="^D REP^XPDH"
^XMB(3.9,65,2,203,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,65,2,204,0)="Shall I write over your |FLAG| File"
^XMB(3.9,65,2,205,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,65,2,206,0)="YES"
^XMB(3.9,65,2,207,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,65,2,208,0)="D XPF1^XPDIQ"
^XMB(3.9,65,2,209,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,65,2,210,0)="Y"
^XMB(3.9,65,2,211,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,65,2,212,0)="^D DTA^XPDH"
^XMB(3.9,65,2,213,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,65,2,214,0)="Want my data |FLAG| yours"
^XMB(3.9,65,2,215,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,65,2,216,0)="YES"
^XMB(3.9,65,2,217,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,65,2,218,0)="D XPF2^XPDIQ"
^XMB(3.9,65,2,219,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,65,2,220,0)="YO"
^XMB(3.9,65,2,221,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,65,2,222,0)="^D INHIBIT^XPDH"
^XMB(3.9,65,2,223,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,65,2,224,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,65,2,225,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,65,2,226,0)="YES"
^XMB(3.9,65,2,227,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,65,2,228,0)="D XPI1^XPDIQ"
^XMB(3.9,65,2,229,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,65,2,230,0)="PO^VA(200,:EM"
^XMB(3.9,65,2,231,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,65,2,232,0)="^D MG^XPDH"
^XMB(3.9,65,2,233,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,65,2,234,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,65,2,235,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,65,2,236,0)=""
^XMB(3.9,65,2,237,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,65,2,238,0)="D XPM1^XPDIQ"
^XMB(3.9,65,2,239,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,65,2,240,0)="Y"
^XMB(3.9,65,2,241,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,65,2,242,0)="^D MENU^XPDH"
^XMB(3.9,65,2,243,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,65,2,244,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,65,2,245,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,65,2,246,0)="YES"
^XMB(3.9,65,2,247,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,65,2,248,0)="D XPO1^XPDIQ"
^XMB(3.9,65,2,249,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,65,2,250,0)="Y"
^XMB(3.9,65,2,251,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,65,2,252,0)="^D OPT^XPDH"
^XMB(3.9,65,2,253,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,65,2,254,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,65,2,255,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,65,2,256,0)="YES"
^XMB(3.9,65,2,257,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,65,2,258,0)="D XPZ1^XPDIQ"
^XMB(3.9,65,2,259,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,65,2,260,0)="Y"
^XMB(3.9,65,2,261,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,65,2,262,0)="^D RTN^XPDH"
^XMB(3.9,65,2,263,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,65,2,264,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,65,2,265,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,65,2,266,0)="NO"
^XMB(3.9,65,2,267,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,65,2,268,0)="D XPZ2^XPDIQ"
^XMB(3.9,65,2,269,0)="""RTN"")"
^XMB(3.9,65,2,270,0)="2"
^XMB(3.9,65,2,271,0)="""RTN"",""LR7OV0"")"
^XMB(3.9,65,2,272,0)="0^1^B23457676^B10554310"
^XMB(3.9,65,2,273,0)="""RTN"",""LR7OV0"",1,0)"
^XMB(3.9,65,2,274,0)="LR7OV0 ;slc/dcm - Update orderable items ;8/11/97"
^XMB(3.9,65,2,275,0)="""RTN"",""LR7OV0"",2,0)"
^XMB(3.9,65,2,276,0)=" ;;5.2;LAB SERVICE;**121,187,357**;Sep 27, 1994"
^XMB(3.9,65,2,277,0)="""RTN"",""LR7OV0"",3,0)"
^XMB(3.9,65,2,278,0)=" ;"
^XMB(3.9,65,2,279,0)="""RTN"",""LR7OV0"",4,0)"
^XMB(3.9,65,2,280,0)="TEST(TEST,ICNT) ;Process single test"
^XMB(3.9,65,2,281,0)="""RTN"",""LR7OV0"",5,0)"
^XMB(3.9,65,2,282,0)=" ;TEST=test ptr to file 60"
^XMB(3.9,65,2,283,0)="""RTN"",""LR7OV0"",6,0)"
^XMB(3.9,65,2,284,0)=" ;ICNT=Current counter in ORUPDMSG(ICNT)"
^XMB(3.9,65,2,285,0)="""RTN"",""LR7OV0"",7,0)"
^XMB(3.9,65,2,286,0)=" N TYPE,TESTID,IFN,IFN1,CTR,CTR1,GENW,X0,S0,SAMP,MAX,DMAX,COLLECT,SAMPLE,SPEC,SYN,COST,Y9,Y10,Y11"
^XMB(3.9,65,2,287,0)="""RTN"",""LR7OV0"",8,0)"
^XMB(3.9,65,2,288,0)=" Q:'$D(^LAB(60,TEST,0))  S X0=^(0),COST=$P(X0,""^"",11),SUB=$P(X0,""^"",4),TYPE=$P(X0,""^"",3),CTR1=0"
^XMB(3.9,65,2,289,0)="""RTN"",""LR7OV0"",9,0)"
^XMB(3.9,65,2,290,0)=" I $D(^LAB(60,TEST,6)) S (CTR,IFN)=0 F  S IFN=$O(^LAB(60,TEST,6,IFN)) Q:IFN<1  S CTR=CTR+1,GENW(CTR)=^(IFN,0)"
^XMB(3.9,65,2,291,0)="""RTN"",""LR7OV0"",10,0)"
^XMB(3.9,65,2,292,0)=" S (CTR,IFN)=0 F  S IFN=$O(^LAB(60,TEST,5,IFN)) Q:IFN<1  S CTR=CTR+1,SYN(CTR)=^(IFN,0)"
^XMB(3.9,65,2,293,0)="""RTN"",""LR7OV0"",11,0)"
^XMB(3.9,65,2,294,0)=" S (Y9,Y10,Y11)="""" I $P($G(^LAB(60,TEST,64)),""^"") S Y9=$P(^(64),""^""),Y10=$P(^LAM(Y9,0),""^""),Y9=$P(^(0),""^"",2),Y11=""99NLT"""
^XMB(3.9,65,2,295,0)="""RTN"",""LR7OV0"",12,0)"
^XMB(3.9,65,2,296,0)=" D"
^XMB(3.9,65,2,297,0)="""RTN"",""LR7OV0"",13,0)"
^XMB(3.9,65,2,298,0)=" . S (COLLECT,SAMP,SPEC)=0,TESTID=$$UVID^LR7OU0(TEST,+SPEC,Y9,Y11,Y10,""ORUPDMSG""),ICNT=ICNT+1,ORUPDMSG(ICNT)=$$MFE(MFECODE,TESTID)"
^XMB(3.9,65,2,299,0)="""RTN"",""LR7OV0"",14,0)"
^XMB(3.9,65,2,300,0)=" . S ICNT=ICNT+1,ORUPDMSG(ICNT)=$$ZLR("""","""",CTR1,SUB,"""","""",COST,TYPE)"
^XMB(3.9,65,2,301,0)="""RTN"",""LR7OV0"",15,0)"
^XMB(3.9,65,2,302,0)=" . S IFN1=0 F  S IFN1=$O(^LAB(60,TEST,2,IFN1)) Q:IFN1<1  S X=^(IFN1,0) I $D(^LAB(60,+X,0)) D"
^XMB(3.9,65,2,303,0)="""RTN"",""LR7OV0"",16,0)"
^XMB(3.9,65,2,304,0)=" .. N Y9,Y10,Y11 S (Y9,Y10,Y11)="""" I $P($G(^LAB(60,+X,64)),""^"") S Y9=$P(^(64),""^""),Y10=$P(^LAM(Y9,0),""^""),Y9=$P(^(0),""^"",2),Y11=""99NLT"""
^XMB(3.9,65,2,305,0)="""RTN"",""LR7OV0"",17,0)"
^XMB(3.9,65,2,306,0)=" .. S SUBID=$$UVID^LR7OU0($P(X,""^""),"""",Y9,Y11,Y10,""ORUPDMSG""),ICNT=ICNT+1,ORUPDMSG(ICNT)=""ZLC||||""_SUBID"
^XMB(3.9,65,2,307,0)="""RTN"",""LR7OV0"",18,0)"
^XMB(3.9,65,2,308,0)=" . D ZSY(.SYN),NTE(.GENW,.WCOM)"
^XMB(3.9,65,2,309,0)="""RTN"",""LR7OV0"",19,0)"
^XMB(3.9,65,2,310,0)=" Q"
^XMB(3.9,65,2,311,0)="""RTN"",""LR7OV0"",20,0)"
^XMB(3.9,65,2,312,0)="MFE(EVENT,KEY) ;MFE component"
^XMB(3.9,65,2,313,0)="""RTN"",""LR7OV0"",21,0)"
^XMB(3.9,65,2,314,0)=" ;EVENT=MAD-Add Record, MDL-Delete Record, MUP-Update Record"
^XMB(3.9,65,2,315,0)="""RTN"",""LR7OV0"",22,0)"
^XMB(3.9,65,2,316,0)=" ;      MDC-Deactivate, MAC-Reactivate"
^XMB(3.9,65,2,317,0)="""RTN"",""LR7OV0"",23,0)"
^XMB(3.9,65,2,318,0)=" S MFE=""MFE|""_EVENT_""|||""_KEY"
^XMB(3.9,65,2,319,0)="""RTN"",""LR7OV0"",24,0)"
^XMB(3.9,65,2,320,0)=" Q MFE"
^XMB(3.9,65,2,321,0)="""RTN"",""LR7OV0"",25,0)"
^XMB(3.9,65,2,322,0)="ZLR(SPEC,COLLECT,SEQ,SUB,MAXORD,DMAXORD,COST,TYPE) ;ZLR component"
^XMB(3.9,65,2,323,0)="""RTN"",""LR7OV0"",26,0)"
^XMB(3.9,65,2,324,0)=" S ZLR=""ZLR|""_SPEC_""|""_COLLECT_""|""_SEQ_""|""_SUB_""|""_MAXORD_""|""_DMAXORD_""|""_COST_""|""_TYPE"
^XMB(3.9,65,2,325,0)="""RTN"",""LR7OV0"",27,0)"
^XMB(3.9,65,2,326,0)=" Q ZLR"
^XMB(3.9,65,2,327,0)="""RTN"",""LR7OV0"",28,0)"
^XMB(3.9,65,2,328,0)="ZSY(SYN) ;ZSY component"
^XMB(3.9,65,2,329,0)="""RTN"",""LR7OV0"",29,0)"
^XMB(3.9,65,2,330,0)=" N IFN"
^XMB(3.9,65,2,331,0)="""RTN"",""LR7OV0"",30,0)"
^XMB(3.9,65,2,332,0)=" S IFN=0 F  S IFN=$O(SYN(IFN)) Q:IFN<1  S ICNT=ICNT+1,ORUPDMSG(ICNT)=""ZSY|""_IFN_""|""_SYN(IFN)"
^XMB(3.9,65,2,333,0)="""RTN"",""LR7OV0"",31,0)"
^XMB(3.9,65,2,334,0)=" Q"
^XMB(3.9,65,2,335,0)="""RTN"",""LR7OV0"",32,0)"
^XMB(3.9,65,2,336,0)="NTE(GEN,COM) ;NTE component"
^XMB(3.9,65,2,337,0)="""RTN"",""LR7OV0"",33,0)"
^XMB(3.9,65,2,338,0)=" N IFN,CTR S CTR=0"
^XMB(3.9,65,2,339,0)="""RTN"",""LR7OV0"",34,0)"
^XMB(3.9,65,2,340,0)=" S ICNT=ICNT+1 D NTE^LR7OU01(CTR,""P"",""GEN("",ICNT)"
^XMB(3.9,65,2,341,0)="""RTN"",""LR7OV0"",35,0)"
^XMB(3.9,65,2,342,0)=" S ICNT=ICNT+1 D NTE^LR7OU01(CTR,""P"",""COM("",ICNT)"
^XMB(3.9,65,2,343,0)="""RTN"",""LR7OV0"",36,0)"
^XMB(3.9,65,2,344,0)=" Q"
^XMB(3.9,65,2,345,0)="""RTN"",""LR7OV0"",37,0)"
^XMB(3.9,65,2,346,0)="MFI(EVENT) ;MFI component"
^XMB(3.9,65,2,347,0)="""RTN"",""LR7OV0"",38,0)"
^XMB(3.9,65,2,348,0)=" ;EVENT=REP for initial population of orderables"
^XMB(3.9,65,2,349,0)="""RTN"",""LR7OV0"",39,0)"
^XMB(3.9,65,2,350,0)=" ;     =UPD for subsequent updates"
^XMB(3.9,65,2,351,0)="""RTN"",""LR7OV0"",40,0)"
^XMB(3.9,65,2,352,0)=" S MFI=""MFI|60^Lab Test^99DD||""_EVENT_""|||NE"""
^XMB(3.9,65,2,353,0)="""RTN"",""LR7OV0"",41,0)"
^XMB(3.9,65,2,354,0)=" Q MFI"
^XMB(3.9,65,2,355,0)="""RTN"",""LR7OV0"",42,0)"
^XMB(3.9,65,2,356,0)="SINGLE(TEST,MFICODE,MFECODE) ;Message for a single test"
^XMB(3.9,65,2,357,0)="""RTN"",""LR7OV0"",43,0)"
^XMB(3.9,65,2,358,0)=" ;TEST= ptr to test in file 60"
^XMB(3.9,65,2,359,0)="""RTN"",""LR7OV0"",44,0)"
^XMB(3.9,65,2,360,0)=" ;MFICODE=File Level Event Code"
^XMB(3.9,65,2,361,0)="""RTN"",""LR7OV0"",45,0)"
^XMB(3.9,65,2,362,0)=" ;MFECODE=Record Level Event Code"
^XMB(3.9,65,2,363,0)="""RTN"",""LR7OV0"",46,0)"
^XMB(3.9,65,2,364,0)=" N X,ORUPDMSG,MSG"
^XMB(3.9,65,2,365,0)="""RTN"",""LR7OV0"",47,0)"
^XMB(3.9,65,2,366,0)=" S MSG=""ORUPDMSG"",X=$$MSH^LR7OU0(""MFN""),ORUPDMSG(1)=X"
^XMB(3.9,65,2,367,0)="""RTN"",""LR7OV0"",48,0)"
^XMB(3.9,65,2,368,0)=" S X=$$MFI(MFICODE),ORUPDMSG(2)=X"
^XMB(3.9,65,2,369,0)="""RTN"",""LR7OV0"",49,0)"
^XMB(3.9,65,2,370,0)=" D TEST(TEST,2)"
^XMB(3.9,65,2,371,0)="""RTN"",""LR7OV0"",50,0)"
^XMB(3.9,65,2,372,0)=" ;W !!,$P(^LAB(60,TEST,0),""^""),! I $D(ORUPDMSG(3)) ZW ORUPDMSG"
^XMB(3.9,65,2,373,0)="""RTN"",""LR7OV0"",51,0)"
^XMB(3.9,65,2,374,0)=" I $D(ORUPDMSG(3)) S ORUPDMSG=""ORUPDMSG"" D MSG^XQOR(""LR7O ORDERABLE OR"",.ORUPDMSG) ;Send update message"
^XMB(3.9,65,2,375,0)="""RTN"",""LR7OV0"",52,0)"
^XMB(3.9,65,2,376,0)=" Q"
^XMB(3.9,65,2,377,0)="""RTN"",""LR7OV0"",53,0)"
^XMB(3.9,65,2,378,0)="ADD(TEST) ;Add single record to Master file"
^XMB(3.9,65,2,379,0)="""RTN"",""LR7OV0"",54,0)"
^XMB(3.9,65,2,380,0)=" N MFICODE,MFECODE S MFECODE=""MAD"",MFICODE=""REP"" D SINGLE(TEST,MFICODE,MFECODE)"
^XMB(3.9,65,2,381,0)="""RTN"",""LR7OV0"",55,0)"
^XMB(3.9,65,2,382,0)=" Q"
^XMB(3.9,65,2,383,0)="""RTN"",""LR7OV0"",56,0)"
^XMB(3.9,65,2,384,0)="DEL(TEST) ;Delete single record from Master file"
^XMB(3.9,65,2,385,0)="""RTN"",""LR7OV0"",57,0)"
^XMB(3.9,65,2,386,0)=" N MFICODE,MFECODE S MFECODE=""MDL"",MFICODE=""UPD"" D SINGLE(TEST,MFICODE,MFECODE)"
^XMB(3.9,65,2,387,0)="""RTN"",""LR7OV0"",58,0)"
^XMB(3.9,65,2,388,0)=" Q"
^XMB(3.9,65,2,389,0)="""RTN"",""LR7OV0"",59,0)"
^XMB(3.9,65,2,390,0)="UPD(TEST) ;Update record in Master file"
^XMB(3.9,65,2,391,0)="""RTN"",""LR7OV0"",60,0)"
^XMB(3.9,65,2,392,0)=" N MFICODE,MFECODE S MFECODE=""MUP"",MFICODE=""UPD"" D SINGLE(TEST,MFICODE,MFECODE)"
^XMB(3.9,65,2,393,0)="""RTN"",""LR7OV0"",61,0)"
^XMB(3.9,65,2,394,0)=" Q"
^XMB(3.9,65,2,395,0)="""RTN"",""LR7OV0"",62,0)"
^XMB(3.9,65,2,396,0)="DEACT(TEST) ;Deactivate record in Master file"
^XMB(3.9,65,2,397,0)="""RTN"",""LR7OV0"",63,0)"
^XMB(3.9,65,2,398,0)=" N MFICODE,MFECODE S MFECODE=""MDC"",MFICODE=""UPD"" D SINGLE(TEST,MFICODE,MFECODE)"
^XMB(3.9,65,2,399,0)="""RTN"",""LR7OV0"",64,0)"
^XMB(3.9,65,2,400,0)=" Q"
^XMB(3.9,65,2,401,0)="""RTN"",""LR7OV0"",65,0)"
^XMB(3.9,65,2,402,0)="REACT(TEST) ;Reactivate record in Master file"
^XMB(3.9,65,2,403,0)="""RTN"",""LR7OV0"",66,0)"
^XMB(3.9,65,2,404,0)=" N MFICODE,MFECODE S MFECODE=""MAC"",MFICODE=""UPD"" D SINGLE(TEST,MFICODE,MFECODE)"
^XMB(3.9,65,2,405,0)="""RTN"",""LR7OV0"",67,0)"
^XMB(3.9,65,2,406,0)=" Q"
^XMB(3.9,65,2,407,0)="""RTN"",""LR7OV0"",68,0)"
^XMB(3.9,65,2,408,0)=" ;Following code added to support LR*5.2*357"
^XMB(3.9,65,2,409,0)="""RTN"",""LR7OV0"",69,0)"
^XMB(3.9,65,2,410,0)=" ;Designed to help update the ORDERABLE ITEMS FILE (file 101.43) after the deletion"
^XMB(3.9,65,2,411,0)="""RTN"",""LR7OV0"",70,0)"
^XMB(3.9,65,2,412,0)=" ;of a SYNONYM from the LABORATORY TEST file (file 60)."
^XMB(3.9,65,2,413,0)="""RTN"",""LR7OV0"",71,0)"
^XMB(3.9,65,2,414,0)="UPD2(TEST,KSYN) ;Update record in Master file"
^XMB(3.9,65,2,415,0)="""RTN"",""LR7OV0"",72,0)"
^XMB(3.9,65,2,416,0)=" ;TEST = IEN of lab test in file 60"
^XMB(3.9,65,2,417,0)="""RTN"",""LR7OV0"",73,0)"
^XMB(3.9,65,2,418,0)=" ;KSYN = IEN of synonym to be deleted from lab test in file 60"
^XMB(3.9,65,2,419,0)="""RTN"",""LR7OV0"",74,0)"
^XMB(3.9,65,2,420,0)=" N MFICODE,MFECODE S MFECODE=""MUP"",MFICODE=""UPD"" D SINGLE2(TEST,KSYN,MFICODE,MFECODE)"
^XMB(3.9,65,2,421,0)="""RTN"",""LR7OV0"",75,0)"
^XMB(3.9,65,2,422,0)=" Q"
^XMB(3.9,65,2,423,0)="""RTN"",""LR7OV0"",76,0)"
^XMB(3.9,65,2,424,0)="SINGLE2(TEST,KSYN,MFICODE,MFECODE) ;Message for a single test"
^XMB(3.9,65,2,425,0)="""RTN"",""LR7OV0"",77,0)"
^XMB(3.9,65,2,426,0)=" ;TEST = IEN of lab test in file 60"
^XMB(3.9,65,2,427,0)="""RTN"",""LR7OV0"",78,0)"
^XMB(3.9,65,2,428,0)=" ;KSYN = IEN of synonym to be deleted from lab test in file 60"
^XMB(3.9,65,2,429,0)="""RTN"",""LR7OV0"",79,0)"
^XMB(3.9,65,2,430,0)=" ;MFICODE = File Level Event Code"
^XMB(3.9,65,2,431,0)="""RTN"",""LR7OV0"",80,0)"
^XMB(3.9,65,2,432,0)=" ;MFECODE = Record Level Event Code"
^XMB(3.9,65,2,433,0)="""RTN"",""LR7OV0"",81,0)"
^XMB(3.9,65,2,434,0)=" N X,ORUPDMSG,MSG"
^XMB(3.9,65,2,435,0)="""RTN"",""LR7OV0"",82,0)"
^XMB(3.9,65,2,436,0)=" S MSG=""ORUPDMSG"",X=$$MSH^LR7OU0(""MFN""),ORUPDMSG(1)=X"
^XMB(3.9,65,2,437,0)="""RTN"",""LR7OV0"",83,0)"
^XMB(3.9,65,2,438,0)=" S X=$$MFI(MFICODE),ORUPDMSG(2)=X"
^XMB(3.9,65,2,439,0)="""RTN"",""LR7OV0"",84,0)"
^XMB(3.9,65,2,440,0)=" D TEST2(TEST,KSYN,2)"
^XMB(3.9,65,2,441,0)="""RTN"",""LR7OV0"",85,0)"
^XMB(3.9,65,2,442,0)=" I $D(ORUPDMSG(3)) S ORUPDMSG=""ORUPDMSG"" D MSG^XQOR(""LR7O ORDERABLE OR"",.ORUPDMSG) ;Send update message"
^XMB(3.9,65,2,443,0)="""RTN"",""LR7OV0"",86,0)"
^XMB(3.9,65,2,444,0)=" Q"
^XMB(3.9,65,2,445,0)="""RTN"",""LR7OV0"",87,0)"
^XMB(3.9,65,2,446,0)="TEST2(TEST,KSYN,ICNT) ;Process single test"
^XMB(3.9,65,2,447,0)="""RTN"",""LR7OV0"",88,0)"
^XMB(3.9,65,2,448,0)=" ;TEST = IEN of lab test in file 60"
^XMB(3.9,65,2,449,0)="""RTN"",""LR7OV0"",89,0)"
^XMB(3.9,65,2,450,0)=" ;KSYN = IEN of synonym to be deleted from lab test in file 60"
^XMB(3.9,65,2,451,0)="""RTN"",""LR7OV0"",90,0)"
^XMB(3.9,65,2,452,0)=" ;ICNT = Current counter in ORUPDMSG(ICNT)"
^XMB(3.9,65,2,453,0)="""RTN"",""LR7OV0"",91,0)"
^XMB(3.9,65,2,454,0)=" N TYPE,TESTID,IFN,IFN1,CTR,CTR1,GENW,X0,S0,SAMP,MAX,DMAX,COLLECT,SAMPLE,SPEC,SYN,COST,Y9,Y10,Y11"
^XMB(3.9,65,2,455,0)="""RTN"",""LR7OV0"",92,0)"
^XMB(3.9,65,2,456,0)=" Q:'$D(^LAB(60,TEST,0))  S X0=^(0),COST=$P(X0,""^"",11),SUB=$P(X0,""^"",4),TYPE=$P(X0,""^"",3),CTR1=0"
^XMB(3.9,65,2,457,0)="""RTN"",""LR7OV0"",93,0)"
^XMB(3.9,65,2,458,0)=" I $D(^LAB(60,TEST,6)) S (CTR,IFN)=0 F  S IFN=$O(^LAB(60,TEST,6,IFN)) Q:IFN<1  S CTR=CTR+1,GENW(CTR)=^(IFN,0)"
^XMB(3.9,65,2,459,0)="""RTN"",""LR7OV0"",94,0)"
^XMB(3.9,65,2,460,0)=" S (CTR,IFN)=0 F  S IFN=$O(^LAB(60,TEST,5,IFN)) Q:IFN<1  D"
^XMB(3.9,65,2,461,0)="""RTN"",""LR7OV0"",95,0)"
^XMB(3.9,65,2,462,0)=" . S:KSYN'=IFN CTR=CTR+1,SYN(CTR)=^LAB(60,TEST,5,IFN,0)"
^XMB(3.9,65,2,463,0)="""RTN"",""LR7OV0"",96,0)"
^XMB(3.9,65,2,464,0)=" S (Y9,Y10,Y11)="""" I $P($G(^LAB(60,TEST,64)),""^"") S Y9=$P(^(64),""^""),Y10=$P(^LAM(Y9,0),""^""),Y9=$P(^(0),""^"",2),Y11=""99NLT"""
^XMB(3.9,65,2,465,0)="""RTN"",""LR7OV0"",97,0)"
^XMB(3.9,65,2,466,0)=" D"
^XMB(3.9,65,2,467,0)="""RTN"",""LR7OV0"",98,0)"
^XMB(3.9,65,2,468,0)=" . S (COLLECT,SAMP,SPEC)=0,TESTID=$$UVID^LR7OU0(TEST,+SPEC,Y9,Y11,Y10,""ORUPDMSG""),ICNT=ICNT+1,ORUPDMSG(ICNT)=$$MFE(MFECODE,TESTID)"
^XMB(3.9,65,2,469,0)="""RTN"",""LR7OV0"",99,0)"
^XMB(3.9,65,2,470,0)=" . S ICNT=ICNT+1,ORUPDMSG(ICNT)=$$ZLR("""","""",CTR1,SUB,"""","""",COST,TYPE)"
^XMB(3.9,65,2,471,0)="""RTN"",""LR7OV0"",100,0)"
^XMB(3.9,65,2,472,0)=" . S IFN1=0 F  S IFN1=$O(^LAB(60,TEST,2,IFN1)) Q:IFN1<1  S X=^(IFN1,0) I $D(^LAB(60,+X,0)) D"
^XMB(3.9,65,2,473,0)="""RTN"",""LR7OV0"",101,0)"
^XMB(3.9,65,2,474,0)=" .. N Y9,Y10,Y11 S (Y9,Y10,Y11)="""" I $P($G(^LAB(60,+X,64)),""^"") S Y9=$P(^(64),""^""),Y10=$P(^LAM(Y9,0),""^""),Y9=$P(^(0),""^"",2),Y11=""99NLT"""
^XMB(3.9,65,2,475,0)="""RTN"",""LR7OV0"",102,0)"
^XMB(3.9,65,2,476,0)=" .. S SUBID=$$UVID^LR7OU0($P(X,""^""),"""",Y9,Y11,Y10,""ORUPDMSG""),ICNT=ICNT+1,ORUPDMSG(ICNT)=""ZLC||||""_SUBID"
^XMB(3.9,65,2,477,0)="""RTN"",""LR7OV0"",103,0)"
^XMB(3.9,65,2,478,0)=" . D ZSY(.SYN),NTE(.GENW,.WCOM)"
^XMB(3.9,65,2,479,0)="""RTN"",""LR7OV0"",104,0)"
^XMB(3.9,65,2,480,0)=" Q"
^XMB(3.9,65,2,481,0)="""RTN"",""LRSORA"")"
^XMB(3.9,65,2,482,0)="0^2^B27384582^B27010859"
^XMB(3.9,65,2,483,0)="""RTN"",""LRSORA"",1,0)"
^XMB(3.9,65,2,484,0)="LRSORA ;DRH/DALISC - HIGH/LOW VALUE REPORT ;2/19/91  11:42 ;"
^XMB(3.9,65,2,485,0)="""RTN"",""LRSORA"",2,0)"
^XMB(3.9,65,2,486,0)=" ;;5.2;LAB SERVICE;**344,357**;Sep 27, 1994"
^XMB(3.9,65,2,487,0)="""RTN"",""LRSORA"",3,0)"
^XMB(3.9,65,2,488,0)="MAIN D INIT,GDT,GAA:'LREND,GLRT:'LREND,GLOG:'LREND,SORTBY^LRSORA1:'LREND"
^XMB(3.9,65,2,489,0)="""RTN"",""LRSORA"",4,0)"
^XMB(3.9,65,2,490,0)=" D PATS^LRSORA1:'LREND,LOCS^LRSORA1:'LREND,GDV:'LREND,RUN:'LREND"
^XMB(3.9,65,2,491,0)="""RTN"",""LRSORA"",5,0)"
^XMB(3.9,65,2,492,0)=" D STOP"
^XMB(3.9,65,2,493,0)="""RTN"",""LRSORA"",6,0)"
^XMB(3.9,65,2,494,0)=" Q"
^XMB(3.9,65,2,495,0)="""RTN"",""LRSORA"",7,0)"
^XMB(3.9,65,2,496,0)="RUN ;"
^XMB(3.9,65,2,497,0)="""RTN"",""LRSORA"",8,0)"
^XMB(3.9,65,2,498,0)=" K ^TMP(""LR"",$J)"
^XMB(3.9,65,2,499,0)="""RTN"",""LRSORA"",9,0)"
^XMB(3.9,65,2,500,0)=" S:$D(ZTQUEUED) ZTREQ=""@"" U IO"
^XMB(3.9,65,2,501,0)="""RTN"",""LRSORA"",10,0)"
^XMB(3.9,65,2,502,0)=" S (LRPAG,LREND)=0,$P(LRDASH,""-"",IOM)=""-"""
^XMB(3.9,65,2,503,0)="""RTN"",""LRSORA"",11,0)"
^XMB(3.9,65,2,504,0)=" K %DT S X=$P(LRSDT,"".""),%DT=""X"" D ^%DT,DD^LRX S LRSDAT=Y"
^XMB(3.9,65,2,505,0)="""RTN"",""LRSORA"",12,0)"
^XMB(3.9,65,2,506,0)=" K %DT S X=LREDT,%DT=""X"" D ^%DT,DD^LRX S LREDAT=Y"
^XMB(3.9,65,2,507,0)="""RTN"",""LRSORA"",13,0)"
^XMB(3.9,65,2,508,0)=" S LRHDR2=""For date range: ""_LREDAT_"" to ""_LRSDAT"
^XMB(3.9,65,2,509,0)="""RTN"",""LRSORA"",14,0)"
^XMB(3.9,65,2,510,0)=" D:'LREND START^LRSORA2"
^XMB(3.9,65,2,511,0)="""RTN"",""LRSORA"",15,0)"
^XMB(3.9,65,2,512,0)=" D:$D(ZTQUEUED) STOP"
^XMB(3.9,65,2,513,0)="""RTN"",""LRSORA"",16,0)"
^XMB(3.9,65,2,514,0)=" Q"
^XMB(3.9,65,2,515,0)="""RTN"",""LRSORA"",17,0)"
^XMB(3.9,65,2,516,0)="STOP ;"
^XMB(3.9,65,2,517,0)="""RTN"",""LRSORA"",18,0)"
^XMB(3.9,65,2,518,0)=" D STOP^LRSORA0"
^XMB(3.9,65,2,519,0)="""RTN"",""LRSORA"",19,0)"
^XMB(3.9,65,2,520,0)=" Q"
^XMB(3.9,65,2,521,0)="""RTN"",""LRSORA"",20,0)"
^XMB(3.9,65,2,522,0)="GAA ;"
^XMB(3.9,65,2,523,0)="""RTN"",""LRSORA"",21,0)"
^XMB(3.9,65,2,524,0)=" D GAA^LRSORA0"
^XMB(3.9,65,2,525,0)="""RTN"",""LRSORA"",22,0)"
^XMB(3.9,65,2,526,0)=" Q"
^XMB(3.9,65,2,527,0)="""RTN"",""LRSORA"",23,0)"
^XMB(3.9,65,2,528,0)="GLRT ;"
^XMB(3.9,65,2,529,0)="""RTN"",""LRSORA"",24,0)"
^XMB(3.9,65,2,530,0)=" W ! K LRTST S LRTST=1"
^XMB(3.9,65,2,531,0)="""RTN"",""LRSORA"",25,0)"
^XMB(3.9,65,2,532,0)=" F I=0:0 D GTSC Q:'$D(LRTST(LRTST,1))  W ! S LRTST=LRTST+1"
^XMB(3.9,65,2,533,0)="""RTN"",""LRSORA"",26,0)"
^XMB(3.9,65,2,534,0)=" K LRTST(LRTST) S LRTST=LRTST-1 Q"
^XMB(3.9,65,2,535,0)="""RTN"",""LRSORA"",27,0)"
^XMB(3.9,65,2,536,0)="GTSC ;"
^XMB(3.9,65,2,537,0)="""RTN"",""LRSORA"",28,0)"
^XMB(3.9,65,2,538,0)=" S LRA=1"
^XMB(3.9,65,2,539,0)="""RTN"",""LRSORA"",29,0)"
^XMB(3.9,65,2,540,0)=" F I=0:0 D @$S(LRA=2:""SPEC"",LRA=3:""CND"",LRA=4:""GV"",1:""TST"") Q:LRA=0"
^XMB(3.9,65,2,541,0)="""RTN"",""LRSORA"",30,0)"
^XMB(3.9,65,2,542,0)=" Q"
^XMB(3.9,65,2,543,0)="""RTN"",""LRSORA"",31,0)"
^XMB(3.9,65,2,544,0)="TST ;"
^XMB(3.9,65,2,545,0)="""RTN"",""LRSORA"",32,0)"
^XMB(3.9,65,2,546,0)=" K DIC S DIC=""^LAB(60,"",DIC(0)=""AEMOQ"""
^XMB(3.9,65,2,547,0)="""RTN"",""LRSORA"",33,0)"
^XMB(3.9,65,2,548,0)=" S DIC(""S"")=""I $P(^(0),U,5)[""""CH"""",""""BO""""[$P(^(0),U,3)"" D ^DIC"
^XMB(3.9,65,2,549,0)="""RTN"",""LRSORA"",34,0)"
^XMB(3.9,65,2,550,0)=" S LRA=$S(Y>0:2,1:0)"
^XMB(3.9,65,2,551,0)="""RTN"",""LRSORA"",35,0)"
^XMB(3.9,65,2,552,0)=" S:X[""^"" LREND=1"
^XMB(3.9,65,2,553,0)="""RTN"",""LRSORA"",36,0)"
^XMB(3.9,65,2,554,0)=" I Y>0 S $P(LRTST(LRTST,3),""^"",1)=$P($P(^LAB(60,+Y,0),U,5),"";"",2)"
^XMB(3.9,65,2,555,0)="""RTN"",""LRSORA"",37,0)"
^XMB(3.9,65,2,556,0)=" I  S $P(LRTST(LRTST,2),""^"",1)=$P(Y,""^"",2)"
^XMB(3.9,65,2,557,0)="""RTN"",""LRSORA"",38,0)"
^XMB(3.9,65,2,558,0)=" Q"
^XMB(3.9,65,2,559,0)="""RTN"",""LRSORA"",39,0)"
^XMB(3.9,65,2,560,0)="SPEC ;"
^XMB(3.9,65,2,561,0)="""RTN"",""LRSORA"",40,0)"
^XMB(3.9,65,2,562,0)=" S LRCNT=LRCNT+1"
^XMB(3.9,65,2,563,0)="""RTN"",""LRSORA"",41,0)"
^XMB(3.9,65,2,564,0)=" K DIC S DIC=""^LAB(61,"",DIC(0)=""AEMOQ"""
^XMB(3.9,65,2,565,0)="""RTN"",""LRSORA"",42,0)"
^XMB(3.9,65,2,566,0)=" S DIC(""A"")=""Select SPECIMEN/SITE: ANY// "" D ^DIC"
^XMB(3.9,65,2,567,0)="""RTN"",""LRSORA"",43,0)"
^XMB(3.9,65,2,568,0)=" S:Y<1 $P(LRTST(LRTST,3),""^"",2)="""",$P(LRTST(LRTST,2),""^"",2)="""""
^XMB(3.9,65,2,569,0)="""RTN"",""LRSORA"",44,0)"
^XMB(3.9,65,2,570,0)=" S LRA=$S(X[""^"":1,1:3)"
^XMB(3.9,65,2,571,0)="""RTN"",""LRSORA"",45,0)"
^XMB(3.9,65,2,572,0)=" I Y>0 S $P(LRTST(LRTST,3),""^"",2)=+Y,$P(LRTST(LRTST,2),""^"",2)=$P(Y,""^"",2)"
^XMB(3.9,65,2,573,0)="""RTN"",""LRSORA"",46,0)"
^XMB(3.9,65,2,574,0)=" Q"
^XMB(3.9,65,2,575,0)="""RTN"",""LRSORA"",47,0)"
^XMB(3.9,65,2,576,0)="CND ;"
^XMB(3.9,65,2,577,0)="""RTN"",""LRSORA"",48,0)"
^XMB(3.9,65,2,578,0)=" W !,""Select CONDITION: "" R X:DTIME S:'$T X=""^"""
^XMB(3.9,65,2,579,0)="""RTN"",""LRSORA"",49,0)"
^XMB(3.9,65,2,580,0)=" D @$S(X?1.N1"":""1.N:""RNG"",1:""GC"") Q"
^XMB(3.9,65,2,581,0)="""RTN"",""LRSORA"",50,0)"
^XMB(3.9,65,2,582,0)="RNG ;"
^XMB(3.9,65,2,583,0)="""RTN"",""LRSORA"",51,0)"
^XMB(3.9,65,2,584,0)=" N Y"
^XMB(3.9,65,2,585,0)="""RTN"",""LRSORA"",52,0)"
^XMB(3.9,65,2,586,0)=" S LRV=+$P(X,"":"",1),LRV2=+$P(X,"":"",2),LRA=0"
^XMB(3.9,65,2,587,0)="""RTN"",""LRSORA"",53,0)"
^XMB(3.9,65,2,588,0)=" S:LRV>LRV2 X=LRV,LRV=LRV2,LRV2=X"
^XMB(3.9,65,2,589,0)="""RTN"",""LRSORA"",54,0)"
^XMB(3.9,65,2,590,0)=" S $P(LRTST(LRTST,2),U,3)=""BETWEEN ""_LRV_"" AND ""_LRV2"
^XMB(3.9,65,2,591,0)="""RTN"",""LRSORA"",55,0)"
^XMB(3.9,65,2,592,0)=" S X=$P(LRTST(LRTST,3),U,1)"
^XMB(3.9,65,2,593,0)="""RTN"",""LRSORA"",56,0)"
^XMB(3.9,65,2,594,0)=" S Y=""I $D(^(""_X"
^XMB(3.9,65,2,595,0)="""RTN"",""LRSORA"",57,0)"
^XMB(3.9,65,2,596,0)=" S Y=Y_"")) S LRVX=$P(^(""_X"
^XMB(3.9,65,2,597,0)="""RTN"",""LRSORA"",58,0)"
^XMB(3.9,65,2,598,0)=" S Y=Y_""),U),LRVX=$S(LRVX?1A.E:LRVX,"""
^XMB(3.9,65,2,599,0)="""RTN"",""LRSORA"",59,0)"
^XMB(3.9,65,2,600,0)=" S Y=Y_""""""<>""""[$E(LRVX):$E(LRVX,2,$L(LRVX)),1:LRVX)"""
^XMB(3.9,65,2,601,0)="""RTN"",""LRSORA"",60,0)"
^XMB(3.9,65,2,602,0)=" S LRTST(LRTST,1)=Y_"" I LRVX>""_LRV_"",LRVX<""_LRV2"
^XMB(3.9,65,2,603,0)="""RTN"",""LRSORA"",61,0)"
^XMB(3.9,65,2,604,0)=" D ASPC Q"
^XMB(3.9,65,2,605,0)="""RTN"",""LRSORA"",62,0)"
^XMB(3.9,65,2,606,0)="GC ;"
^XMB(3.9,65,2,607,0)="""RTN"",""LRSORA"",63,0)"
^XMB(3.9,65,2,608,0)=" S DIC=""^DOPT(""""DIS"""","",DIC(0)=""EMQZ"",DIC(""S"")=""I $L($P(^(0),U,2))"""
^XMB(3.9,65,2,609,0)="""RTN"",""LRSORA"",64,0)"
^XMB(3.9,65,2,610,0)=" D ^DIC K DIC"
^XMB(3.9,65,2,611,0)="""RTN"",""LRSORA"",65,0)"
^XMB(3.9,65,2,612,0)=" S LRA=$S(X[""^"":2,Y<0:3,1:4) D:X[""?"" HLP1 W:'$L(X) "" ??"" Q:Y<0"
^XMB(3.9,65,2,613,0)="""RTN"",""LRSORA"",66,0)"
^XMB(3.9,65,2,614,0)="GV ;"
^XMB(3.9,65,2,615,0)="""RTN"",""LRSORA"",67,0)"
^XMB(3.9,65,2,616,0)=" N LY,ALPHA,DEC,II,TT"
^XMB(3.9,65,2,617,0)="""RTN"",""LRSORA"",68,0)"
^XMB(3.9,65,2,618,0)=" W !,""Enter VALUE: """
^XMB(3.9,65,2,619,0)="""RTN"",""LRSORA"",69,0)"
^XMB(3.9,65,2,620,0)=" R X:DTIME S:'$T X=""^"""
^XMB(3.9,65,2,621,0)="""RTN"",""LRSORA"",70,0)"
^XMB(3.9,65,2,622,0)=" S LRA=$S(X[""^"":3,""?""[X:4,1:0)"
^XMB(3.9,65,2,623,0)="""RTN"",""LRSORA"",71,0)"
^XMB(3.9,65,2,624,0)=" W:X="""" "" ??"" D:X[""?"" HLP2 Q:LRA"
^XMB(3.9,65,2,625,0)="""RTN"",""LRSORA"",72,0)"
^XMB(3.9,65,2,626,0)=" S:""<>""[$P(Y(0),U,2) X=+X"
^XMB(3.9,65,2,627,0)="""RTN"",""LRSORA"",73,0)"
^XMB(3.9,65,2,628,0)=" S $P(LRTST(LRTST,2),""^"",3)=$P(Y(0),""^"",1)_"" ""_X"
^XMB(3.9,65,2,629,0)="""RTN"",""LRSORA"",74,0)"
^XMB(3.9,65,2,630,0)=" ;"
^XMB(3.9,65,2,631,0)="""RTN"",""LRSORA"",75,0)"
^XMB(3.9,65,2,632,0)=" ; determine if entered value is alphanumeric"
^XMB(3.9,65,2,633,0)="""RTN"",""LRSORA"",76,0)"
^XMB(3.9,65,2,634,0)=" S (ALPHA,DEC)=0"
^XMB(3.9,65,2,635,0)="""RTN"",""LRSORA"",77,0)"
^XMB(3.9,65,2,636,0)=" F II=1:1 S TT=$E(X,II) Q:TT=""""  D  Q:ALPHA"
^XMB(3.9,65,2,637,0)="""RTN"",""LRSORA"",78,0)"
^XMB(3.9,65,2,638,0)=" . I TT?1N Q"
^XMB(3.9,65,2,639,0)="""RTN"",""LRSORA"",79,0)"
^XMB(3.9,65,2,640,0)=" . I TT?1""."" S DEC=DEC+1 S:DEC>1 ALPHA=1 Q"
^XMB(3.9,65,2,641,0)="""RTN"",""LRSORA"",80,0)"
^XMB(3.9,65,2,642,0)=" . S ALPHA=1"
^XMB(3.9,65,2,643,0)="""RTN"",""LRSORA"",81,0)"
^XMB(3.9,65,2,644,0)=" I X="""""""""""" S ALPHA=0 ;ADDED FOR LR*5.2*357"
^XMB(3.9,65,2,645,0)="""RTN"",""LRSORA"",82,0)"
^XMB(3.9,65,2,646,0)=" ;"
^XMB(3.9,65,2,647,0)="""RTN"",""LRSORA"",83,0)"
^XMB(3.9,65,2,648,0)=" S LY=""I $D(^(""_$P(LRTST(LRTST,3),U)"
^XMB(3.9,65,2,649,0)="""RTN"",""LRSORA"",84,0)"
^XMB(3.9,65,2,650,0)=" S LY=LY_"")) S LRVX=$P(^("""
^XMB(3.9,65,2,651,0)="""RTN"",""LRSORA"",85,0)"
^XMB(3.9,65,2,652,0)=" S LY=LY_$P(LRTST(LRTST,3),U)"
^XMB(3.9,65,2,653,0)="""RTN"",""LRSORA"",86,0)"
^XMB(3.9,65,2,654,0)=" S LY=LY_""),U),LRVX=$S(LRVX?1A.E:LRVX,"""
^XMB(3.9,65,2,655,0)="""RTN"",""LRSORA"",87,0)"
^XMB(3.9,65,2,656,0)=" S LY=LY_""""""<>""""[$E(LRVX):$E(LRVX,2,$L(LRVX)),1:LRVX) I LRVX"""
^XMB(3.9,65,2,657,0)="""RTN"",""LRSORA"",88,0)"
^XMB(3.9,65,2,658,0)=" S LRTST(LRTST,1)=LY_$P(Y(0),U,2)_$S(ALPHA:""""""""_X_"""""""",1:X) D ASPC Q"
^XMB(3.9,65,2,659,0)="""RTN"",""LRSORA"",89,0)"
^XMB(3.9,65,2,660,0)="ASPC ;"
^XMB(3.9,65,2,661,0)="""RTN"",""LRSORA"",90,0)"
^XMB(3.9,65,2,662,0)=" S:$L($P(LRTST(LRTST,3),U,2)) LRTST(LRTST,1)=LRTST(LRTST,1)_"",$P(^(0),U,5)=""_$P(LRTST(LRTST,3),U,2) Q"
^XMB(3.9,65,2,663,0)="""RTN"",""LRSORA"",91,0)"
^XMB(3.9,65,2,664,0)="INIT ;"
^XMB(3.9,65,2,665,0)="""RTN"",""LRSORA"",92,0)"
^XMB(3.9,65,2,666,0)=" S LRCNT=0"
^XMB(3.9,65,2,667,0)="""RTN"",""LRSORA"",93,0)"
^XMB(3.9,65,2,668,0)=" S U=""^"""
^XMB(3.9,65,2,669,0)="""RTN"",""LRSORA"",94,0)"
^XMB(3.9,65,2,670,0)=" S LREND=0"
^XMB(3.9,65,2,671,0)="""RTN"",""LRSORA"",95,0)"
^XMB(3.9,65,2,672,0)=" S LRLONG=0"
^XMB(3.9,65,2,673,0)="""RTN"",""LRSORA"",96,0)"
^XMB(3.9,65,2,674,0)=" S LRSDT=""TODAY"""
^XMB(3.9,65,2,675,0)="""RTN"",""LRSORA"",97,0)"
^XMB(3.9,65,2,676,0)=" S LREDT=""T-1"""
^XMB(3.9,65,2,677,0)="""RTN"",""LRSORA"",98,0)"
^XMB(3.9,65,2,678,0)=" S LRTW=.00001"
^XMB(3.9,65,2,679,0)="""RTN"",""LRSORA"",99,0)"
^XMB(3.9,65,2,680,0)=" S:'$D(DTIME) DTIME=300"
^XMB(3.9,65,2,681,0)="""RTN"",""LRSORA"",100,0)"
^XMB(3.9,65,2,682,0)=" W !,""SPECIAL REPORT - Search for high/low values"" Q"
^XMB(3.9,65,2,683,0)="""RTN"",""LRSORA"",101,0)"
^XMB(3.9,65,2,684,0)="GDT ;"
^XMB(3.9,65,2,685,0)="""RTN"",""LRSORA"",102,0)"
^XMB(3.9,65,2,686,0)=" F W=0:0 D SDF,GSD Q:LREND  S LRSDT=Y D GED I Y>0 S LREDT=Y S:LREDT>LRSDT X=LREDT,LREDT=LRSDT,LRSDT=X D CXR Q:Y>0"
^XMB(3.9,65,2,687,0)="""RTN"",""LRSORA"",103,0)"
^XMB(3.9,65,2,688,0)=" K %DT S X=$P(LRSDT,"".""),%DT=""X"" D ^%DT,DD^LRX S LRSDAT=Y"
^XMB(3.9,65,2,689,0)="""RTN"",""LRSORA"",104,0)"
^XMB(3.9,65,2,690,0)=" K %DT S X=$P(LREDT,"".""),%DT=""X"" D ^%DT,DD^LRX S LREDAT=Y"
^XMB(3.9,65,2,691,0)="""RTN"",""LRSORA"",105,0)"
^XMB(3.9,65,2,692,0)=" S LRHDR2=""For date range: ""_LREDAT_"" to ""_LRSDAT"
^XMB(3.9,65,2,693,0)="""RTN"",""LRSORA"",106,0)"
^XMB(3.9,65,2,694,0)=" K LRSDAT,LREDAT,%DT Q"
^XMB(3.9,65,2,695,0)="""RTN"",""LRSORA"",107,0)"
^XMB(3.9,65,2,696,0)="GSD ;"
^XMB(3.9,65,2,697,0)="""RTN"",""LRSORA"",108,0)"
^XMB(3.9,65,2,698,0)=" S %DT(""A"")=""Enter START date: "",%DT(""B"")=LRSDT,%DT=""AET"""
^XMB(3.9,65,2,699,0)="""RTN"",""LRSORA"",109,0)"
^XMB(3.9,65,2,700,0)=" D ^%DT S LREND=Y<1 Q"
^XMB(3.9,65,2,701,0)="""RTN"",""LRSORA"",110,0)"
^XMB(3.9,65,2,702,0)="GED ;"
^XMB(3.9,65,2,703,0)="""RTN"",""LRSORA"",111,0)"
^XMB(3.9,65,2,704,0)=" S %DT(""A"")=""Enter END date: "",%DT(""B"")=LREDT D ^%DT Q"
^XMB(3.9,65,2,705,0)="""RTN"",""LRSORA"",112,0)"
^XMB(3.9,65,2,706,0)="CXR ;"
^XMB(3.9,65,2,707,0)="""RTN"",""LRSORA"",113,0)"
^XMB(3.9,65,2,708,0)=" S Y=$E(LREDT,1,3)_""0000"" F I=0:0 S Y=$O(^LRO(69,Y)) Q:Y=""""!($D(^LRO(69,+Y,1,""AN"")))"
^XMB(3.9,65,2,709,0)="""RTN"",""LRSORA"",114,0)"
^XMB(3.9,65,2,710,0)=" I Y>LREDT D DD^LRX W !,""The earliest date in the X-ref is "",Y,"".  Long search required."",! D CXR1"
^XMB(3.9,65,2,711,0)="""RTN"",""LRSORA"",115,0)"
^XMB(3.9,65,2,712,0)=" Q"
^XMB(3.9,65,2,713,0)="""RTN"",""LRSORA"",116,0)"
^XMB(3.9,65,2,714,0)="CXR1 ;"
^XMB(3.9,65,2,715,0)="""RTN"",""LRSORA"",117,0)"
^XMB(3.9,65,2,716,0)=" F I=0:0 S %=2 W ""  OK to continue"" D YN^DICN S:%=2!(%<0) LREND=1 S:%=1 LRLONG=1 Q:%  W !,""Enter 'YES' for the long search, 'NO' to exit."",!"
^XMB(3.9,65,2,717,0)="""RTN"",""LRSORA"",118,0)"
^XMB(3.9,65,2,718,0)=" Q"
^XMB(3.9,65,2,719,0)="""RTN"",""LRSORA"",119,0)"
^XMB(3.9,65,2,720,0)="SDF ;"
^XMB(3.9,65,2,721,0)="""RTN"",""LRSORA"",120,0)"
^XMB(3.9,65,2,722,0)=" I LRSDT?1.7N S Y=LRSDT D DD^LRX S LRSDT=Y"
^XMB(3.9,65,2,723,0)="""RTN"",""LRSORA"",121,0)"
^XMB(3.9,65,2,724,0)=" I LREDT?1.7N S Y=LREDT D DD^LRX S LREDT=Y"
^XMB(3.9,65,2,725,0)="""RTN"",""LRSORA"",122,0)"
^XMB(3.9,65,2,726,0)=" Q"
^XMB(3.9,65,2,727,0)="""RTN"",""LRSORA"",123,0)"
^XMB(3.9,65,2,728,0)="GLOG ;"
^XMB(3.9,65,2,729,0)="""RTN"",""LRSORA"",124,0)"
^XMB(3.9,65,2,730,0)=" S:LRTST=1 LRTST(0)=""A"" D:LRTST>1 EN^LRSORA1 S:LRTST<1 LREND=1 Q"
^XMB(3.9,65,2,731,0)="""RTN"",""LRSORA"",125,0)"
^XMB(3.9,65,2,732,0)="GDV ;"
^XMB(3.9,65,2,733,0)="""RTN"",""LRSORA"",126,0)"
^XMB(3.9,65,2,734,0)=" S %ZIS=""Q"" D ^%ZIS K %ZIS I POP S LREND=1 Q"
^XMB(3.9,65,2,735,0)="""RTN"",""LRSORA"",127,0)"
^XMB(3.9,65,2,736,0)=" I $D(IO(""Q"")) K IO(""Q"") S (LRQUE,LREND)=1,ZTRTN=""RUN^LRSORA"",ZTDESC=""Lab Special Report"",ZTSAVE(""LR*"")="""" D ^%ZTLOAD"
^XMB(3.9,65,2,737,0)="""RTN"",""LRSORA"",128,0)"
^XMB(3.9,65,2,738,0)=" Q"
^XMB(3.9,65,2,739,0)="""RTN"",""LRSORA"",129,0)"
^XMB(3.9,65,2,740,0)="HLP1 ;"
^XMB(3.9,65,2,741,0)="""RTN"",""LRSORA"",130,0)"
^XMB(3.9,65,2,742,0)=" W !,""A VALUE RANGE may also be entered (value:value)."",!,""  For Example, 100:200 will search for values between 100 and 200."",!"
^XMB(3.9,65,2,743,0)="""RTN"",""LRSORA"",131,0)"
^XMB(3.9,65,2,744,0)=" Q"
^XMB(3.9,65,2,745,0)="""RTN"",""LRSORA"",132,0)"
^XMB(3.9,65,2,746,0)="HLP2 ;"
^XMB(3.9,65,2,747,0)="""RTN"",""LRSORA"",133,0)"
^XMB(3.9,65,2,748,0)=" W !,""Enter a value for the comparison:  """
^XMB(3.9,65,2,749,0)="""RTN"",""LRSORA"",134,0)"
^XMB(3.9,65,2,750,0)=" W $P(LRTST(LRTST,2),U,1),"" "",$P(Y(0),U,1)_"" _____."""
^XMB(3.9,65,2,751,0)="""RTN"",""LRSORA"",135,0)"
^XMB(3.9,65,2,752,0)=" Q"
^XMB(3.9,65,2,753,0)="""RTN"",""LRSORA"",136,0)"
^XMB(3.9,65,2,754,0)="XX ;"
^XMB(3.9,65,2,755,0)="""RTN"",""LRSORA"",137,0)"
^XMB(3.9,65,2,756,0)="WAIT K DIR S DIR(0)=""E"" D ^DIR S:($D(DUOUT))!($D(DTOUT)) LREND=1"
^XMB(3.9,65,2,757,0)="""RTN"",""LRSORA"",138,0)"
^XMB(3.9,65,2,758,0)=" Q"
^XMB(3.9,65,2,759,0)="""UP"",60,60.1,-1)"
^XMB(3.9,65,2,760,0)="60^5"
^XMB(3.9,65,2,761,0)="""UP"",60,60.1,0)"
^XMB(3.9,65,2,762,0)="60.1"
^XMB(3.9,65,2,763,0)="""VER"")"
^XMB(3.9,65,2,764,0)="8.0^22.0"
^XMB(3.9,65,2,765,0)="""^DD"",60,60,2,0)"
^XMB(3.9,65,2,766,0)="SYNONYM^60.1A^^5;0"
^XMB(3.9,65,2,767,0)="""^DD"",60,60,2,21,0)"
^XMB(3.9,65,2,768,0)="^.001^2^2^3060411^^^^"
^XMB(3.9,65,2,769,0)="""^DD"",60,60,2,21,1,0)"
^XMB(3.9,65,2,770,0)="This is another name for the test.  It may be the locally preferred name,"
^XMB(3.9,65,2,771,0)="""^DD"",60,60,2,21,2,0)"
^XMB(3.9,65,2,772,0)="or a common misspelling."
^XMB(3.9,65,2,773,0)="""^DD"",60,60.1,0)"
^XMB(3.9,65,2,774,0)="SYNONYM SUB-FIELD^NL^.01^1"
^XMB(3.9,65,2,775,0)="""^DD"",60,60.1,0,""NM"",""SYNONYM"")"
^XMB(3.9,65,2,776,0)=""
^XMB(3.9,65,2,777,0)="""^DD"",60,60.1,.01,0)"
^XMB(3.9,65,2,778,0)="SYNONYM^MFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:(X'?.ANP)!($L(X)>60) X"
^XMB(3.9,65,2,779,0)="""^DD"",60,60.1,.01,1,0)"
^XMB(3.9,65,2,780,0)="^.1"
^XMB(3.9,65,2,781,0)="""^DD"",60,60.1,.01,1,1,0)"
^XMB(3.9,65,2,782,0)="60^B^MNEMONIC"
^XMB(3.9,65,2,783,0)="""^DD"",60,60.1,.01,1,1,1)"
^XMB(3.9,65,2,784,0)="S ^LAB(60,""B"",$E(X,1,30),DA(1))=1"
^XMB(3.9,65,2,785,0)="""^DD"",60,60.1,.01,1,1,2)"
^XMB(3.9,65,2,786,0)="K ^LAB(60,""B"",$E(X,1,30),DA(1))"
^XMB(3.9,65,2,787,0)="""^DD"",60,60.1,.01,1,2,0)"
^XMB(3.9,65,2,788,0)="60.1^B"
^XMB(3.9,65,2,789,0)="""^DD"",60,60.1,.01,1,2,1)"
^XMB(3.9,65,2,790,0)="S ^LAB(60,DA(1),5,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,65,2,791,0)="""^DD"",60,60.1,.01,1,2,2)"
^XMB(3.9,65,2,792,0)="K ^LAB(60,DA(1),5,""B"",$E(X,1,30),DA)"
^XMB(3.9,65,2,793,0)="""^DD"",60,60.1,.01,1,3,0)"
^XMB(3.9,65,2,794,0)="60.1^AX5^MUMPS"
^XMB(3.9,65,2,795,0)="""^DD"",60,60.1,.01,1,3,1)"
^XMB(3.9,65,2,796,0)="N TEST S TEST=DA(1) N DA,DIE,DIC,DE,DW,DH,DS,DO,DD D UPD^LR7OV0(TEST)"
^XMB(3.9,65,2,797,0)="""^DD"",60,60.1,.01,1,3,2)"
^XMB(3.9,65,2,798,0)="N TEST,KSYN S TEST=DA(1),KSYN=DA N DA,DIE,DIC,DE,DW,DH,DS,DO,DD D UPD2^LR7OV0(TEST,KSYN)"
^XMB(3.9,65,2,799,0)="""^DD"",60,60.1,.01,1,3,""%D"",0)"
^XMB(3.9,65,2,800,0)="^.101^1^1^3060411^^^^"
^XMB(3.9,65,2,801,0)="""^DD"",60,60.1,.01,1,3,""%D"",1,0)"
^XMB(3.9,65,2,802,0)="Trigger update to CPRS"
^XMB(3.9,65,2,803,0)="""^DD"",60,60.1,.01,1,3,""DT"")"
^XMB(3.9,65,2,804,0)="3060411"
^XMB(3.9,65,2,805,0)="""^DD"",60,60.1,.01,3)"
^XMB(3.9,65,2,806,0)="ANSWER MUST BE 1-60 CHARACTERS IN LENGTH AND NOT ALREADY IN USE"
^XMB(3.9,65,2,807,0)="""^DD"",60,60.1,.01,21,0)"
^XMB(3.9,65,2,808,0)="^.001^2^2^3060411^^^^"
^XMB(3.9,65,2,809,0)="""^DD"",60,60.1,.01,21,1,0)"
^XMB(3.9,65,2,810,0)="This is another name for the test.  It may be the locally preferred name,"
^XMB(3.9,65,2,811,0)="""^DD"",60,60.1,.01,21,2,0)"
^XMB(3.9,65,2,812,0)="or a common misspelling."
^XMB(3.9,65,2,813,0)="""^DD"",60,60.1,.01,""DT"")"
^XMB(3.9,65,2,814,0)="3060411"
^XMB(3.9,65,2,815,0)="""BLD"",6724,6)"
^XMB(3.9,65,2,816,0)="^270"
^XMB(3.9,65,2,817,0)="$END KID LR*5.2*357"
^XMB(3.9,65,6,0)="^3.911A^2^2"
^XMB(3.9,65,6,1,0)="POSTMASTER"
^XMB(3.9,65,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,65,6,"B","POSTMASTER",1)=""
^XMB(3.9,65,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,66,0)="LR-5P2_SEQ-271_PAT-342.KID^.5^3061008.015738^^^^K"
^XMB(3.9,66,.6)="3061008"
^XMB(3.9,66,1,0)="^3.91A^2^2"
^XMB(3.9,66,1,1,0)=".5^0^3061008.015738^^^^^^^3061008.015738"
^XMB(3.9,66,1,2,0)="1^0^3061008.023822^^^^^^^3061008.023822"
^XMB(3.9,66,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,66,1,"C",.5,1)=""
^XMB(3.9,66,1,"C",1,2)=""
^XMB(3.9,66,2,0)="^^293^293^3061008"
^XMB(3.9,66,2,1,0)="$TXT Released LR*5.2*342 SEQ #271"
^XMB(3.9,66,2,2,0)="Extracted from mail message"
^XMB(3.9,66,2,3,0)="$END TXT"
^XMB(3.9,66,2,4,0)="$KID LR*5.2*342"
^XMB(3.9,66,2,5,0)="**INSTALL NAME**"
^XMB(3.9,66,2,6,0)="LR*5.2*342"
^XMB(3.9,66,2,7,0)="""BLD"",6398,0)"
^XMB(3.9,66,2,8,0)="LR*5.2*342^LAB SERVICE^0^3060427^y"
^XMB(3.9,66,2,9,0)="""BLD"",6398,1,0)"
^XMB(3.9,66,2,10,0)="^^3^3^3060427^^^^"
^XMB(3.9,66,2,11,0)="""BLD"",6398,1,1,0)"
^XMB(3.9,66,2,12,0)="This patch corrects a data integrity problem caused by an input"
^XMB(3.9,66,2,13,0)="""BLD"",6398,1,2,0)"
^XMB(3.9,66,2,14,0)="transform setting data at the wrong global node and removes a"
^XMB(3.9,66,2,15,0)="""BLD"",6398,1,3,0)"
^XMB(3.9,66,2,16,0)="menu option that is obsolete."
^XMB(3.9,66,2,17,0)="""BLD"",6398,4,0)"
^XMB(3.9,66,2,18,0)="^9.64PA^63^1"
^XMB(3.9,66,2,19,0)="""BLD"",6398,4,63,0)"
^XMB(3.9,66,2,20,0)="63"
^XMB(3.9,66,2,21,0)="""BLD"",6398,4,63,2,0)"
^XMB(3.9,66,2,22,0)="^9.641^63.05^1"
^XMB(3.9,66,2,23,0)="""BLD"",6398,4,63,2,63.05,0)"
^XMB(3.9,66,2,24,0)="MICROBIOLOGY  (sub-file)"
^XMB(3.9,66,2,25,0)="""BLD"",6398,4,63,2,63.05,1,0)"
^XMB(3.9,66,2,26,0)="^9.6411^.08^1"
^XMB(3.9,66,2,27,0)="""BLD"",6398,4,63,2,63.05,1,.08,0)"
^XMB(3.9,66,2,28,0)="WARD"
^XMB(3.9,66,2,29,0)="""BLD"",6398,4,63,222)"
^XMB(3.9,66,2,30,0)="y^n^p^^^^n^^n"
^XMB(3.9,66,2,31,0)="""BLD"",6398,4,63,224)"
^XMB(3.9,66,2,32,0)=""
^XMB(3.9,66,2,33,0)="""BLD"",6398,4,""APDD"",63,63.05)"
^XMB(3.9,66,2,34,0)=""
^XMB(3.9,66,2,35,0)="""BLD"",6398,4,""APDD"",63,63.05,.08)"
^XMB(3.9,66,2,36,0)=""
^XMB(3.9,66,2,37,0)="""BLD"",6398,4,""B"",63,63)"
^XMB(3.9,66,2,38,0)=""
^XMB(3.9,66,2,39,0)="""BLD"",6398,6)"
^XMB(3.9,66,2,40,0)="2^"
^XMB(3.9,66,2,41,0)="""BLD"",6398,""ABPKG"")"
^XMB(3.9,66,2,42,0)="n"
^XMB(3.9,66,2,43,0)="""BLD"",6398,""KRN"",0)"
^XMB(3.9,66,2,44,0)="^9.67PA^8989.52^19"
^XMB(3.9,66,2,45,0)="""BLD"",6398,""KRN"",.4,0)"
^XMB(3.9,66,2,46,0)=".4"
^XMB(3.9,66,2,47,0)="""BLD"",6398,""KRN"",.401,0)"
^XMB(3.9,66,2,48,0)=".401"
^XMB(3.9,66,2,49,0)="""BLD"",6398,""KRN"",.402,0)"
^XMB(3.9,66,2,50,0)=".402"
^XMB(3.9,66,2,51,0)="""BLD"",6398,""KRN"",.403,0)"
^XMB(3.9,66,2,52,0)=".403"
^XMB(3.9,66,2,53,0)="""BLD"",6398,""KRN"",.5,0)"
^XMB(3.9,66,2,54,0)=".5"
^XMB(3.9,66,2,55,0)="""BLD"",6398,""KRN"",.84,0)"
^XMB(3.9,66,2,56,0)=".84"
^XMB(3.9,66,2,57,0)="""BLD"",6398,""KRN"",3.6,0)"
^XMB(3.9,66,2,58,0)="3.6"
^XMB(3.9,66,2,59,0)="""BLD"",6398,""KRN"",3.8,0)"
^XMB(3.9,66,2,60,0)="3.8"
^XMB(3.9,66,2,61,0)="""BLD"",6398,""KRN"",9.2,0)"
^XMB(3.9,66,2,62,0)="9.2"
^XMB(3.9,66,2,63,0)="""BLD"",6398,""KRN"",9.8,0)"
^XMB(3.9,66,2,64,0)="9.8"
^XMB(3.9,66,2,65,0)="""BLD"",6398,""KRN"",9.8,""NM"",0)"
^XMB(3.9,66,2,66,0)="^9.68A^^0"
^XMB(3.9,66,2,67,0)="""BLD"",6398,""KRN"",19,0)"
^XMB(3.9,66,2,68,0)="19"
^XMB(3.9,66,2,69,0)="""BLD"",6398,""KRN"",19,""NM"",0)"
^XMB(3.9,66,2,70,0)="^9.68A^1^1"
^XMB(3.9,66,2,71,0)="""BLD"",6398,""KRN"",19,""NM"",1,0)"
^XMB(3.9,66,2,72,0)="LRBLPOST^^1^"
^XMB(3.9,66,2,73,0)="""BLD"",6398,""KRN"",19,""NM"",""B"",""LRBLPOST"",1)"
^XMB(3.9,66,2,74,0)=""
^XMB(3.9,66,2,75,0)="""BLD"",6398,""KRN"",19.1,0)"
^XMB(3.9,66,2,76,0)="19.1"
^XMB(3.9,66,2,77,0)="""BLD"",6398,""KRN"",19.1,""NM"",0)"
^XMB(3.9,66,2,78,0)="^9.68A^^"
^XMB(3.9,66,2,79,0)="""BLD"",6398,""KRN"",101,0)"
^XMB(3.9,66,2,80,0)="101"
^XMB(3.9,66,2,81,0)="""BLD"",6398,""KRN"",101,""NM"",0)"
^XMB(3.9,66,2,82,0)="^9.68A^^"
^XMB(3.9,66,2,83,0)="""BLD"",6398,""KRN"",409.61,0)"
^XMB(3.9,66,2,84,0)="409.61"
^XMB(3.9,66,2,85,0)="""BLD"",6398,""KRN"",409.61,""NM"",0)"
^XMB(3.9,66,2,86,0)="^9.68A^^"
^XMB(3.9,66,2,87,0)="""BLD"",6398,""KRN"",771,0)"
^XMB(3.9,66,2,88,0)="771"
^XMB(3.9,66,2,89,0)="""BLD"",6398,""KRN"",870,0)"
^XMB(3.9,66,2,90,0)="870"
^XMB(3.9,66,2,91,0)="""BLD"",6398,""KRN"",8989.51,0)"
^XMB(3.9,66,2,92,0)="8989.51"
^XMB(3.9,66,2,93,0)="""BLD"",6398,""KRN"",8989.52,0)"
^XMB(3.9,66,2,94,0)="8989.52"
^XMB(3.9,66,2,95,0)="""BLD"",6398,""KRN"",8994,0)"
^XMB(3.9,66,2,96,0)="8994"
^XMB(3.9,66,2,97,0)="""BLD"",6398,""KRN"",""B"",.4,.4)"
^XMB(3.9,66,2,98,0)=""
^XMB(3.9,66,2,99,0)="""BLD"",6398,""KRN"",""B"",.401,.401)"
^XMB(3.9,66,2,100,0)=""
^XMB(3.9,66,2,101,0)="""BLD"",6398,""KRN"",""B"",.402,.402)"
^XMB(3.9,66,2,102,0)=""
^XMB(3.9,66,2,103,0)="""BLD"",6398,""KRN"",""B"",.403,.403)"
^XMB(3.9,66,2,104,0)=""
^XMB(3.9,66,2,105,0)="""BLD"",6398,""KRN"",""B"",.5,.5)"
^XMB(3.9,66,2,106,0)=""
^XMB(3.9,66,2,107,0)="""BLD"",6398,""KRN"",""B"",.84,.84)"
^XMB(3.9,66,2,108,0)=""
^XMB(3.9,66,2,109,0)="""BLD"",6398,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,66,2,110,0)=""
^XMB(3.9,66,2,111,0)="""BLD"",6398,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,66,2,112,0)=""
^XMB(3.9,66,2,113,0)="""BLD"",6398,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,66,2,114,0)=""
^XMB(3.9,66,2,115,0)="""BLD"",6398,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,66,2,116,0)=""
^XMB(3.9,66,2,117,0)="""BLD"",6398,""KRN"",""B"",19,19)"
^XMB(3.9,66,2,118,0)=""
^XMB(3.9,66,2,119,0)="""BLD"",6398,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,66,2,120,0)=""
^XMB(3.9,66,2,121,0)="""BLD"",6398,""KRN"",""B"",101,101)"
^XMB(3.9,66,2,122,0)=""
^XMB(3.9,66,2,123,0)="""BLD"",6398,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,66,2,124,0)=""
^XMB(3.9,66,2,125,0)="""BLD"",6398,""KRN"",""B"",771,771)"
^XMB(3.9,66,2,126,0)=""
^XMB(3.9,66,2,127,0)="""BLD"",6398,""KRN"",""B"",870,870)"
^XMB(3.9,66,2,128,0)=""
^XMB(3.9,66,2,129,0)="""BLD"",6398,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,66,2,130,0)=""
^XMB(3.9,66,2,131,0)="""BLD"",6398,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,66,2,132,0)=""
^XMB(3.9,66,2,133,0)="""BLD"",6398,""KRN"",""B"",8994,8994)"
^XMB(3.9,66,2,134,0)=""
^XMB(3.9,66,2,135,0)="""BLD"",6398,""QUES"",0)"
^XMB(3.9,66,2,136,0)="^9.62^^"
^XMB(3.9,66,2,137,0)="""BLD"",6398,""REQB"",0)"
^XMB(3.9,66,2,138,0)="^9.611^1^1"
^XMB(3.9,66,2,139,0)="""BLD"",6398,""REQB"",1,0)"
^XMB(3.9,66,2,140,0)="LR*5.2*247^1"
^XMB(3.9,66,2,141,0)="""BLD"",6398,""REQB"",""B"",""LR*5.2*247"",1)"
^XMB(3.9,66,2,142,0)=""
^XMB(3.9,66,2,143,0)="""FIA"",63)"
^XMB(3.9,66,2,144,0)="LAB DATA"
^XMB(3.9,66,2,145,0)="""FIA"",63,0)"
^XMB(3.9,66,2,146,0)="^LR("
^XMB(3.9,66,2,147,0)="""FIA"",63,0,0)"
^XMB(3.9,66,2,148,0)="63"
^XMB(3.9,66,2,149,0)="""FIA"",63,0,1)"
^XMB(3.9,66,2,150,0)="y^n^p^^^^n^^n"
^XMB(3.9,66,2,151,0)="""FIA"",63,0,10)"
^XMB(3.9,66,2,152,0)=""
^XMB(3.9,66,2,153,0)="""FIA"",63,0,11)"
^XMB(3.9,66,2,154,0)=""
^XMB(3.9,66,2,155,0)="""FIA"",63,0,""RLRO"")"
^XMB(3.9,66,2,156,0)=""
^XMB(3.9,66,2,157,0)="""FIA"",63,0,""VR"")"
^XMB(3.9,66,2,158,0)="5.2^LR"
^XMB(3.9,66,2,159,0)="""FIA"",63,63)"
^XMB(3.9,66,2,160,0)="1"
^XMB(3.9,66,2,161,0)="""FIA"",63,63.05)"
^XMB(3.9,66,2,162,0)="1"
^XMB(3.9,66,2,163,0)="""FIA"",63,63.05,.08)"
^XMB(3.9,66,2,164,0)=""
^XMB(3.9,66,2,165,0)="""KRN"",19,17380,-1)"
^XMB(3.9,66,2,166,0)="1^1"
^XMB(3.9,66,2,167,0)="""KRN"",19,17380,0)"
^XMB(3.9,66,2,168,0)="LRBLPOST"
^XMB(3.9,66,2,169,0)="""MBREQ"")"
^XMB(3.9,66,2,170,0)="0"
^XMB(3.9,66,2,171,0)="""ORD"",18,19)"
^XMB(3.9,66,2,172,0)="19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA"
^XMB(3.9,66,2,173,0)="""ORD"",18,19,0)"
^XMB(3.9,66,2,174,0)="OPTION"
^XMB(3.9,66,2,175,0)="""PKG"",26,-1)"
^XMB(3.9,66,2,176,0)="1^1"
^XMB(3.9,66,2,177,0)="""PKG"",26,0)"
^XMB(3.9,66,2,178,0)="LAB SERVICE^LR^CORE LAB SYSTEM"
^XMB(3.9,66,2,179,0)="""PKG"",26,20,0)"
^XMB(3.9,66,2,180,0)="^9.402P^1^1"
^XMB(3.9,66,2,181,0)="""PKG"",26,20,1,0)"
^XMB(3.9,66,2,182,0)="2^^LRXDRPT"
^XMB(3.9,66,2,183,0)="""PKG"",26,20,1,1)"
^XMB(3.9,66,2,184,0)=""
^XMB(3.9,66,2,185,0)="""PKG"",26,20,""B"",2,1)"
^XMB(3.9,66,2,186,0)=""
^XMB(3.9,66,2,187,0)="""PKG"",26,22,0)"
^XMB(3.9,66,2,188,0)="^9.49I^1^1"
^XMB(3.9,66,2,189,0)="""PKG"",26,22,1,0)"
^XMB(3.9,66,2,190,0)="5.2^2940927^2950304"
^XMB(3.9,66,2,191,0)="""PKG"",26,22,1,""PAH"",1,0)"
^XMB(3.9,66,2,192,0)="342^3060427^33274"
^XMB(3.9,66,2,193,0)="""PKG"",26,22,1,""PAH"",1,1,0)"
^XMB(3.9,66,2,194,0)="^^3^3^3060427"
^XMB(3.9,66,2,195,0)="""PKG"",26,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,66,2,196,0)="This patch corrects a data integrity problem caused by an input"
^XMB(3.9,66,2,197,0)="""PKG"",26,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,66,2,198,0)="transform setting data at the wrong global node and removes a"
^XMB(3.9,66,2,199,0)="""PKG"",26,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,66,2,200,0)="menu option that is obsolete."
^XMB(3.9,66,2,201,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,66,2,202,0)="Y"
^XMB(3.9,66,2,203,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,66,2,204,0)="^D REP^XPDH"
^XMB(3.9,66,2,205,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,66,2,206,0)="Shall I write over your |FLAG| File"
^XMB(3.9,66,2,207,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,66,2,208,0)="YES"
^XMB(3.9,66,2,209,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,66,2,210,0)="D XPF1^XPDIQ"
^XMB(3.9,66,2,211,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,66,2,212,0)="Y"
^XMB(3.9,66,2,213,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,66,2,214,0)="^D DTA^XPDH"
^XMB(3.9,66,2,215,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,66,2,216,0)="Want my data |FLAG| yours"
^XMB(3.9,66,2,217,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,66,2,218,0)="YES"
^XMB(3.9,66,2,219,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,66,2,220,0)="D XPF2^XPDIQ"
^XMB(3.9,66,2,221,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,66,2,222,0)="YO"
^XMB(3.9,66,2,223,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,66,2,224,0)="^D INHIBIT^XPDH"
^XMB(3.9,66,2,225,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,66,2,226,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,66,2,227,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,66,2,228,0)="YES"
^XMB(3.9,66,2,229,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,66,2,230,0)="D XPI1^XPDIQ"
^XMB(3.9,66,2,231,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,66,2,232,0)="PO^VA(200,:EM"
^XMB(3.9,66,2,233,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,66,2,234,0)="^D MG^XPDH"
^XMB(3.9,66,2,235,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,66,2,236,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,66,2,237,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,66,2,238,0)=""
^XMB(3.9,66,2,239,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,66,2,240,0)="D XPM1^XPDIQ"
^XMB(3.9,66,2,241,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,66,2,242,0)="Y"
^XMB(3.9,66,2,243,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,66,2,244,0)="^D MENU^XPDH"
^XMB(3.9,66,2,245,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,66,2,246,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,66,2,247,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,66,2,248,0)="YES"
^XMB(3.9,66,2,249,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,66,2,250,0)="D XPO1^XPDIQ"
^XMB(3.9,66,2,251,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,66,2,252,0)="Y"
^XMB(3.9,66,2,253,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,66,2,254,0)="^D OPT^XPDH"
^XMB(3.9,66,2,255,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,66,2,256,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,66,2,257,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,66,2,258,0)="YES"
^XMB(3.9,66,2,259,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,66,2,260,0)="D XPZ1^XPDIQ"
^XMB(3.9,66,2,261,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,66,2,262,0)="Y"
^XMB(3.9,66,2,263,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,66,2,264,0)="^D RTN^XPDH"
^XMB(3.9,66,2,265,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,66,2,266,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,66,2,267,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,66,2,268,0)="NO"
^XMB(3.9,66,2,269,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,66,2,270,0)="D XPZ2^XPDIQ"
^XMB(3.9,66,2,271,0)="""UP"",63,63.05,-1)"
^XMB(3.9,66,2,272,0)="63^MI"
^XMB(3.9,66,2,273,0)="""UP"",63,63.05,0)"
^XMB(3.9,66,2,274,0)="63.05"
^XMB(3.9,66,2,275,0)="""VER"")"
^XMB(3.9,66,2,276,0)="8.0^22.0"
^XMB(3.9,66,2,277,0)="""^DD"",63,63.05,.08,0)"
^XMB(3.9,66,2,278,0)="WARD^FX^^0;8^K:$L(X)>30 X I $D(X) S LRLLOC=X,DIC(0)=""EQM"",DIC=44 D ^DIC S X=$P(Y,U,2) X:Y<1 ^DD(63.05,.08,9.2) Q:'$D(X)  S:X']"""" X=""UNKNOWN"" S:$D(LRDFN) ^LR(+LRDFN,.1)=X"
^XMB(3.9,66,2,279,0)="""^DD"",63,63.05,.08,3)"
^XMB(3.9,66,2,280,0)="ANSWER MUST BE 2-19 CHARACTERS IN LENGTH"
^XMB(3.9,66,2,281,0)="""^DD"",63,63.05,.08,4)"
^XMB(3.9,66,2,282,0)="S X=""?"",DIC(0)=""Q"",DIC=44 D ^DIC"
^XMB(3.9,66,2,283,0)="""^DD"",63,63.05,.08,9.2)"
^XMB(3.9,66,2,284,0)="K X R !?3,""NON-STANDARD LOCATION!, OK? N//"",YN:DTIME S:YN[""Y"" X=LRLLOC"
^XMB(3.9,66,2,285,0)="""^DD"",63,63.05,.08,21,0)"
^XMB(3.9,66,2,286,0)="^^1^1^2911202^"
^XMB(3.9,66,2,287,0)="""^DD"",63,63.05,.08,21,1,0)"
^XMB(3.9,66,2,288,0)="This is the requesting location."
^XMB(3.9,66,2,289,0)="""^DD"",63,63.05,.08,""DT"")"
^XMB(3.9,66,2,290,0)="2830315"
^XMB(3.9,66,2,291,0)="""BLD"",6398,6)"
^XMB(3.9,66,2,292,0)="^271"
^XMB(3.9,66,2,293,0)="$END KID LR*5.2*342"
^XMB(3.9,66,6,0)="^3.911A^2^2"
^XMB(3.9,66,6,1,0)="POSTMASTER"
^XMB(3.9,66,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,66,6,"B","POSTMASTER",1)=""
^XMB(3.9,66,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,67,0)="LR-5P2_SEQ-272_PAT-358.KID^.5^3061008.015738^^^^K"
^XMB(3.9,67,.6)="3061008"
^XMB(3.9,67,1,0)="^3.91A^2^2"
^XMB(3.9,67,1,1,0)=".5^0^3061008.015738^^^^^^^3061008.015738"
^XMB(3.9,67,1,2,0)="1^0^3061008.023902^^^^^^^3061008.023902"
^XMB(3.9,67,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,67,1,"C",.5,1)=""
^XMB(3.9,67,1,"C",1,2)=""
^XMB(3.9,67,2,0)="^^463^463^3061008"
^XMB(3.9,67,2,1,0)="$TXT Released LR*5.2*358 SEQ #272"
^XMB(3.9,67,2,2,0)="Extracted from mail message"
^XMB(3.9,67,2,3,0)="$END TXT"
^XMB(3.9,67,2,4,0)="$KID LR*5.2*358"
^XMB(3.9,67,2,5,0)="**INSTALL NAME**"
^XMB(3.9,67,2,6,0)="LR*5.2*358"
^XMB(3.9,67,2,7,0)="""BLD"",6761,0)"
^XMB(3.9,67,2,8,0)="LR*5.2*358^LAB SERVICE^0^3060413^y"
^XMB(3.9,67,2,9,0)="""BLD"",6761,1,0)"
^XMB(3.9,67,2,10,0)="^^2^2^3060413^^"
^XMB(3.9,67,2,11,0)="""BLD"",6761,1,1,0)"
^XMB(3.9,67,2,12,0)="This patch corrects problems with the LEDI Turnaround Time Report and"
^XMB(3.9,67,2,13,0)="""BLD"",6761,1,2,0)"
^XMB(3.9,67,2,14,0)="the Worksheet Accession List."
^XMB(3.9,67,2,15,0)="""BLD"",6761,4,0)"
^XMB(3.9,67,2,16,0)="^9.64PA^^"
^XMB(3.9,67,2,17,0)="""BLD"",6761,""ABPKG"")"
^XMB(3.9,67,2,18,0)="n"
^XMB(3.9,67,2,19,0)="""BLD"",6761,""KRN"",0)"
^XMB(3.9,67,2,20,0)="^9.67PA^8989.52^19"
^XMB(3.9,67,2,21,0)="""BLD"",6761,""KRN"",.4,0)"
^XMB(3.9,67,2,22,0)=".4"
^XMB(3.9,67,2,23,0)="""BLD"",6761,""KRN"",.401,0)"
^XMB(3.9,67,2,24,0)=".401"
^XMB(3.9,67,2,25,0)="""BLD"",6761,""KRN"",.402,0)"
^XMB(3.9,67,2,26,0)=".402"
^XMB(3.9,67,2,27,0)="""BLD"",6761,""KRN"",.403,0)"
^XMB(3.9,67,2,28,0)=".403"
^XMB(3.9,67,2,29,0)="""BLD"",6761,""KRN"",.5,0)"
^XMB(3.9,67,2,30,0)=".5"
^XMB(3.9,67,2,31,0)="""BLD"",6761,""KRN"",.84,0)"
^XMB(3.9,67,2,32,0)=".84"
^XMB(3.9,67,2,33,0)="""BLD"",6761,""KRN"",3.6,0)"
^XMB(3.9,67,2,34,0)="3.6"
^XMB(3.9,67,2,35,0)="""BLD"",6761,""KRN"",3.8,0)"
^XMB(3.9,67,2,36,0)="3.8"
^XMB(3.9,67,2,37,0)="""BLD"",6761,""KRN"",9.2,0)"
^XMB(3.9,67,2,38,0)="9.2"
^XMB(3.9,67,2,39,0)="""BLD"",6761,""KRN"",9.8,0)"
^XMB(3.9,67,2,40,0)="9.8"
^XMB(3.9,67,2,41,0)="""BLD"",6761,""KRN"",9.8,""NM"",0)"
^XMB(3.9,67,2,42,0)="^9.68A^2^2"
^XMB(3.9,67,2,43,0)="""BLD"",6761,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,67,2,44,0)="LRTT5P1^^0^25400134"
^XMB(3.9,67,2,45,0)="""BLD"",6761,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,67,2,46,0)="LRWRKS^^0^11444581"
^XMB(3.9,67,2,47,0)="""BLD"",6761,""KRN"",9.8,""NM"",""B"",""LRTT5P1"",1)"
^XMB(3.9,67,2,48,0)=""
^XMB(3.9,67,2,49,0)="""BLD"",6761,""KRN"",9.8,""NM"",""B"",""LRWRKS"",2)"
^XMB(3.9,67,2,50,0)=""
^XMB(3.9,67,2,51,0)="""BLD"",6761,""KRN"",19,0)"
^XMB(3.9,67,2,52,0)="19"
^XMB(3.9,67,2,53,0)="""BLD"",6761,""KRN"",19.1,0)"
^XMB(3.9,67,2,54,0)="19.1"
^XMB(3.9,67,2,55,0)="""BLD"",6761,""KRN"",101,0)"
^XMB(3.9,67,2,56,0)="101"
^XMB(3.9,67,2,57,0)="""BLD"",6761,""KRN"",409.61,0)"
^XMB(3.9,67,2,58,0)="409.61"
^XMB(3.9,67,2,59,0)="""BLD"",6761,""KRN"",771,0)"
^XMB(3.9,67,2,60,0)="771"
^XMB(3.9,67,2,61,0)="""BLD"",6761,""KRN"",870,0)"
^XMB(3.9,67,2,62,0)="870"
^XMB(3.9,67,2,63,0)="""BLD"",6761,""KRN"",8989.51,0)"
^XMB(3.9,67,2,64,0)="8989.51"
^XMB(3.9,67,2,65,0)="""BLD"",6761,""KRN"",8989.52,0)"
^XMB(3.9,67,2,66,0)="8989.52"
^XMB(3.9,67,2,67,0)="""BLD"",6761,""KRN"",8994,0)"
^XMB(3.9,67,2,68,0)="8994"
^XMB(3.9,67,2,69,0)="""BLD"",6761,""KRN"",""B"",.4,.4)"
^XMB(3.9,67,2,70,0)=""
^XMB(3.9,67,2,71,0)="""BLD"",6761,""KRN"",""B"",.401,.401)"
^XMB(3.9,67,2,72,0)=""
^XMB(3.9,67,2,73,0)="""BLD"",6761,""KRN"",""B"",.402,.402)"
^XMB(3.9,67,2,74,0)=""
^XMB(3.9,67,2,75,0)="""BLD"",6761,""KRN"",""B"",.403,.403)"
^XMB(3.9,67,2,76,0)=""
^XMB(3.9,67,2,77,0)="""BLD"",6761,""KRN"",""B"",.5,.5)"
^XMB(3.9,67,2,78,0)=""
^XMB(3.9,67,2,79,0)="""BLD"",6761,""KRN"",""B"",.84,.84)"
^XMB(3.9,67,2,80,0)=""
^XMB(3.9,67,2,81,0)="""BLD"",6761,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,67,2,82,0)=""
^XMB(3.9,67,2,83,0)="""BLD"",6761,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,67,2,84,0)=""
^XMB(3.9,67,2,85,0)="""BLD"",6761,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,67,2,86,0)=""
^XMB(3.9,67,2,87,0)="""BLD"",6761,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,67,2,88,0)=""
^XMB(3.9,67,2,89,0)="""BLD"",6761,""KRN"",""B"",19,19)"
^XMB(3.9,67,2,90,0)=""
^XMB(3.9,67,2,91,0)="""BLD"",6761,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,67,2,92,0)=""
^XMB(3.9,67,2,93,0)="""BLD"",6761,""KRN"",""B"",101,101)"
^XMB(3.9,67,2,94,0)=""
^XMB(3.9,67,2,95,0)="""BLD"",6761,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,67,2,96,0)=""
^XMB(3.9,67,2,97,0)="""BLD"",6761,""KRN"",""B"",771,771)"
^XMB(3.9,67,2,98,0)=""
^XMB(3.9,67,2,99,0)="""BLD"",6761,""KRN"",""B"",870,870)"
^XMB(3.9,67,2,100,0)=""
^XMB(3.9,67,2,101,0)="""BLD"",6761,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,67,2,102,0)=""
^XMB(3.9,67,2,103,0)="""BLD"",6761,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,67,2,104,0)=""
^XMB(3.9,67,2,105,0)="""BLD"",6761,""KRN"",""B"",8994,8994)"
^XMB(3.9,67,2,106,0)=""
^XMB(3.9,67,2,107,0)="""BLD"",6761,""QUES"",0)"
^XMB(3.9,67,2,108,0)="^9.62^^"
^XMB(3.9,67,2,109,0)="""BLD"",6761,""REQB"",0)"
^XMB(3.9,67,2,110,0)="^9.611^2^2"
^XMB(3.9,67,2,111,0)="""BLD"",6761,""REQB"",1,0)"
^XMB(3.9,67,2,112,0)="LR*5.2*153^2"
^XMB(3.9,67,2,113,0)="""BLD"",6761,""REQB"",2,0)"
^XMB(3.9,67,2,114,0)="LR*5.2*274^2"
^XMB(3.9,67,2,115,0)="""BLD"",6761,""REQB"",""B"",""LR*5.2*153"",1)"
^XMB(3.9,67,2,116,0)=""
^XMB(3.9,67,2,117,0)="""BLD"",6761,""REQB"",""B"",""LR*5.2*274"",2)"
^XMB(3.9,67,2,118,0)=""
^XMB(3.9,67,2,119,0)="""MBREQ"")"
^XMB(3.9,67,2,120,0)="0"
^XMB(3.9,67,2,121,0)="""PKG"",26,-1)"
^XMB(3.9,67,2,122,0)="1^1"
^XMB(3.9,67,2,123,0)="""PKG"",26,0)"
^XMB(3.9,67,2,124,0)="LAB SERVICE^LR^CORE LAB SYSTEM"
^XMB(3.9,67,2,125,0)="""PKG"",26,20,0)"
^XMB(3.9,67,2,126,0)="^9.402P^1^1"
^XMB(3.9,67,2,127,0)="""PKG"",26,20,1,0)"
^XMB(3.9,67,2,128,0)="2^^LRXDRPT"
^XMB(3.9,67,2,129,0)="""PKG"",26,20,1,1)"
^XMB(3.9,67,2,130,0)=""
^XMB(3.9,67,2,131,0)="""PKG"",26,20,""B"",2,1)"
^XMB(3.9,67,2,132,0)=""
^XMB(3.9,67,2,133,0)="""PKG"",26,22,0)"
^XMB(3.9,67,2,134,0)="^9.49I^1^1"
^XMB(3.9,67,2,135,0)="""PKG"",26,22,1,0)"
^XMB(3.9,67,2,136,0)="5.2^2940927^2950304"
^XMB(3.9,67,2,137,0)="""PKG"",26,22,1,""PAH"",1,0)"
^XMB(3.9,67,2,138,0)="358^3060413"
^XMB(3.9,67,2,139,0)="""PKG"",26,22,1,""PAH"",1,1,0)"
^XMB(3.9,67,2,140,0)="^^2^2^3060413"
^XMB(3.9,67,2,141,0)="""PKG"",26,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,67,2,142,0)="This patch corrects problems with the LEDI Turnaround Time Report and"
^XMB(3.9,67,2,143,0)="""PKG"",26,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,67,2,144,0)="the Worksheet Accession List."
^XMB(3.9,67,2,145,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,67,2,146,0)="Y"
^XMB(3.9,67,2,147,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,67,2,148,0)="^D REP^XPDH"
^XMB(3.9,67,2,149,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,67,2,150,0)="Shall I write over your |FLAG| File"
^XMB(3.9,67,2,151,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,67,2,152,0)="YES"
^XMB(3.9,67,2,153,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,67,2,154,0)="D XPF1^XPDIQ"
^XMB(3.9,67,2,155,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,67,2,156,0)="Y"
^XMB(3.9,67,2,157,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,67,2,158,0)="^D DTA^XPDH"
^XMB(3.9,67,2,159,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,67,2,160,0)="Want my data |FLAG| yours"
^XMB(3.9,67,2,161,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,67,2,162,0)="YES"
^XMB(3.9,67,2,163,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,67,2,164,0)="D XPF2^XPDIQ"
^XMB(3.9,67,2,165,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,67,2,166,0)="YO"
^XMB(3.9,67,2,167,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,67,2,168,0)="^D INHIBIT^XPDH"
^XMB(3.9,67,2,169,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,67,2,170,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,67,2,171,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,67,2,172,0)="YES"
^XMB(3.9,67,2,173,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,67,2,174,0)="D XPI1^XPDIQ"
^XMB(3.9,67,2,175,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,67,2,176,0)="PO^VA(200,:EM"
^XMB(3.9,67,2,177,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,67,2,178,0)="^D MG^XPDH"
^XMB(3.9,67,2,179,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,67,2,180,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,67,2,181,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,67,2,182,0)=""
^XMB(3.9,67,2,183,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,67,2,184,0)="D XPM1^XPDIQ"
^XMB(3.9,67,2,185,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,67,2,186,0)="Y"
^XMB(3.9,67,2,187,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,67,2,188,0)="^D MENU^XPDH"
^XMB(3.9,67,2,189,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,67,2,190,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,67,2,191,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,67,2,192,0)="YES"
^XMB(3.9,67,2,193,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,67,2,194,0)="D XPO1^XPDIQ"
^XMB(3.9,67,2,195,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,67,2,196,0)="Y"
^XMB(3.9,67,2,197,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,67,2,198,0)="^D OPT^XPDH"
^XMB(3.9,67,2,199,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,67,2,200,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,67,2,201,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,67,2,202,0)="YES"
^XMB(3.9,67,2,203,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,67,2,204,0)="D XPZ1^XPDIQ"
^XMB(3.9,67,2,205,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,67,2,206,0)="Y"
^XMB(3.9,67,2,207,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,67,2,208,0)="^D RTN^XPDH"
^XMB(3.9,67,2,209,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,67,2,210,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,67,2,211,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,67,2,212,0)="NO"
^XMB(3.9,67,2,213,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,67,2,214,0)="D XPZ2^XPDIQ"
^XMB(3.9,67,2,215,0)="""RTN"")"
^XMB(3.9,67,2,216,0)="2"
^XMB(3.9,67,2,217,0)="""RTN"",""LRTT5P1"")"
^XMB(3.9,67,2,218,0)="0^1^B25400134^B25358507"
^XMB(3.9,67,2,219,0)="""RTN"",""LRTT5P1"",1,0)"
^XMB(3.9,67,2,220,0)="LRTT5P1 ;DALOI/FHS-LAB URGENCY TURNAROUND TIMES PROCESSOR ;12/3/1997"
^XMB(3.9,67,2,221,0)="""RTN"",""LRTT5P1"",2,0)"
^XMB(3.9,67,2,222,0)=" ;;5.2;LAB SERVICE;**153,221,263,274,358**;Sep 27, 1994"
^XMB(3.9,67,2,223,0)="""RTN"",""LRTT5P1"",3,0)"
^XMB(3.9,67,2,224,0)="ONE ; from LRTT5"
^XMB(3.9,67,2,225,0)="""RTN"",""LRTT5P1"",4,0)"
^XMB(3.9,67,2,226,0)=" ; return for reg & irreg: # tests, total time, bad turnaround time"
^XMB(3.9,67,2,227,0)="""RTN"",""LRTT5P1"",5,0)"
^XMB(3.9,67,2,228,0)=" ; input:"
^XMB(3.9,67,2,229,0)="""RTN"",""LRTT5P1"",6,0)"
^XMB(3.9,67,2,230,0)=" ; ^TMP(""LRTT5"",$J,""TESTS"",tests)=test names"
^XMB(3.9,67,2,231,0)="""RTN"",""LRTT5P1"",7,0)"
^XMB(3.9,67,2,232,0)=" ; LRPQ(""URGENCY"",urgencies)=urgency names"
^XMB(3.9,67,2,233,0)="""RTN"",""LRTT5P1"",8,0)"
^XMB(3.9,67,2,234,0)=" ; LRSDT, LREDT, LRPDET"
^XMB(3.9,67,2,235,0)="""RTN"",""LRTT5P1"",9,0)"
^XMB(3.9,67,2,236,0)=" ; output:"
^XMB(3.9,67,2,237,0)="""RTN"",""LRTT5P1"",10,0)"
^XMB(3.9,67,2,238,0)=" ; ^TMP(""LR"",$J,""REG"")=#tests^total time"
^XMB(3.9,67,2,239,0)="""RTN"",""LRTT5P1"",11,0)"
^XMB(3.9,67,2,240,0)=" ; ^TMP(""LR"",$J,""REG"",TAT,#)=acc^test^in^out"
^XMB(3.9,67,2,241,0)="""RTN"",""LRTT5P1"",12,0)"
^XMB(3.9,67,2,242,0)=" ; ^TMP(""LR"",$J,""REGT"",test)=#tests^total time"
^XMB(3.9,67,2,243,0)="""RTN"",""LRTT5P1"",13,0)"
^XMB(3.9,67,2,244,0)=" ; ^TMP(""LR"",$J,""IRREG"")=#tests^total time"
^XMB(3.9,67,2,245,0)="""RTN"",""LRTT5P1"",14,0)"
^XMB(3.9,67,2,246,0)=" ; ^TMP(""LR"",$J,""IRREG"",TAT,#)=acc^test^in^out"
^XMB(3.9,67,2,247,0)="""RTN"",""LRTT5P1"",15,0)"
^XMB(3.9,67,2,248,0)=" ; ^TMP(""LR"",$J,""IRREGT"",test)=#tests^total time"
^XMB(3.9,67,2,249,0)="""RTN"",""LRTT5P1"",16,0)"
^XMB(3.9,67,2,250,0)=" ; ^TMP(""LR"",$J,""BAD"",TAT,#)=acc^test^in^out"
^XMB(3.9,67,2,251,0)="""RTN"",""LRTT5P1"",17,0)"
^XMB(3.9,67,2,252,0)=" ;"
^XMB(3.9,67,2,253,0)="""RTN"",""LRTT5P1"",18,0)"
^XMB(3.9,67,2,254,0)="START ; go thru tests"
^XMB(3.9,67,2,255,0)="""RTN"",""LRTT5P1"",19,0)"
^XMB(3.9,67,2,256,0)=" S LRSDT=$P(LRSDT,"".""),LREDT=$P(LREDT,""."")"
^XMB(3.9,67,2,257,0)="""RTN"",""LRTT5P1"",20,0)"
^XMB(3.9,67,2,258,0)=" I LRSDT>LREDT S X=LRSDT,LRSDT=LREDT,LREDT=X"
^XMB(3.9,67,2,259,0)="""RTN"",""LRTT5P1"",21,0)"
^XMB(3.9,67,2,260,0)=" S LRPSDT=LRSDT,LRPEDT=LREDT"
^XMB(3.9,67,2,261,0)="""RTN"",""LRTT5P1"",22,0)"
^XMB(3.9,67,2,262,0)=" S LRTEST=0 F  S LRTEST=$O(^TMP(""LRTT5"",$J,""TESTS"",LRTEST)) Q:LRTEST<1  D"
^XMB(3.9,67,2,263,0)="""RTN"",""LRTT5P1"",23,0)"
^XMB(3.9,67,2,264,0)=" .; get acc areas for tests"
^XMB(3.9,67,2,265,0)="""RTN"",""LRTT5P1"",24,0)"
^XMB(3.9,67,2,266,0)=" . S LRPN=0 F  S LRPN=$O(^LAB(60,LRTEST,8,LRPN)) Q:LRPN<1  I $D(^(LRPN,0)) S LRAA=+$P(^(0),U,2) I $D(^LRO(68,LRAA,0)) S LRAA(LRAA)="""""
^XMB(3.9,67,2,267,0)="""RTN"",""LRTT5P1"",25,0)"
^XMB(3.9,67,2,268,0)=" ; go thru valid accession areas, get accession type - daily, yearly, etc"
^XMB(3.9,67,2,269,0)="""RTN"",""LRTT5P1"",26,0)"
^XMB(3.9,67,2,270,0)=" S (LRPN,LRAA)=0 F  S LRAA=$O(LRAA(LRAA)) Q:LRAA<1  I $D(^LRO(68,LRAA,0)) S LRAAT=$P(^(0),U,3) D"
^XMB(3.9,67,2,271,0)="""RTN"",""LRTT5P1"",27,0)"
^XMB(3.9,67,2,272,0)=" . ; go thru accession dates, start using appropriate acc type"
^XMB(3.9,67,2,273,0)="""RTN"",""LRTT5P1"",28,0)"
^XMB(3.9,67,2,274,0)=" . S LRSDT=LRPSDT,LREDT=$P(LRPEDT,""."")_"".24"""
^XMB(3.9,67,2,275,0)="""RTN"",""LRTT5P1"",29,0)"
^XMB(3.9,67,2,276,0)=" . S LRAD=$S(LRAAT=""D"":LRSDT,LRAAT=""M"":LRSDT\100*100,1:LRSDT\10000*10000)-.000001"
^XMB(3.9,67,2,277,0)="""RTN"",""LRTT5P1"",30,0)"
^XMB(3.9,67,2,278,0)=" . F  S LRAD=$O(^LRO(68,LRAA,1,LRAD)) Q:LRAD<1!(LRAD>(LREDT))  D"
^XMB(3.9,67,2,279,0)="""RTN"",""LRTT5P1"",31,0)"
^XMB(3.9,67,2,280,0)=" . . ; go thru accession #s"
^XMB(3.9,67,2,281,0)="""RTN"",""LRTT5P1"",32,0)"
^XMB(3.9,67,2,282,0)=" . . S LRAN=0 F  S LRAN=$O(^LRO(68,LRAA,1,LRAD,1,LRAN)) Q:LRAN<1  S LRDPF=$P($G(^(LRAN,0)),U,2) D"
^XMB(3.9,67,2,283,0)="""RTN"",""LRTT5P1"",33,0)"
^XMB(3.9,67,2,284,0)=" . . . Q:$S('LRDPF:1,LRDPF=2:0,LRDPF=67:0,1:1)"
^XMB(3.9,67,2,285,0)="""RTN"",""LRTT5P1"",34,0)"
^XMB(3.9,67,2,286,0)=" . . . ; check lab arrival time, must be >= begin time and <= end time"
^XMB(3.9,67,2,287,0)="""RTN"",""LRTT5P1"",35,0)"
^XMB(3.9,67,2,288,0)=" . . . Q:'$D(^LRO(68,LRAA,1,LRAD,1,LRAN,3))  S LRPLRRX1=$P(^(3),U,3) Q:LRPLRRX1<LRSDT  Q:LRPLRRX1>(LREDT)"
^XMB(3.9,67,2,289,0)="""RTN"",""LRTT5P1"",36,0)"
^XMB(3.9,67,2,290,0)=" . . . I $G(^LRO(68,LRAA,1,LRAD,1,LRAN,.4)),$O(LRLLOC(0)),'$D(LRLLOC(+$G(^(.4)))) Q"
^XMB(3.9,67,2,291,0)="""RTN"",""LRTT5P1"",37,0)"
^XMB(3.9,67,2,292,0)=" . . . ; go thru tests on accession, if valid urgency get date reported"
^XMB(3.9,67,2,293,0)="""RTN"",""LRTT5P1"",38,0)"
^XMB(3.9,67,2,294,0)=" . . . S LRTEST=0 F  S LRTEST=$O(^TMP(""LRTT5"",$J,""TESTS"",LRTEST)) Q:LRTEST<1  I $D(^LRO(68,LRAA,1,LRAD,1,LRAN,4,LRTEST,0)),$D(LRPQ(""URGENCY"",+$P(^(0),U,2))),$P(^(0),U,8)'="""" S LRPLRRX2=+$P(^(0),U,5) D"
^XMB(3.9,67,2,295,0)="""RTN"",""LRTT5P1"",39,0)"
^XMB(3.9,67,2,296,0)=" . . . . Q:'$P(^LRO(68,LRAA,1,LRAD,1,LRAN,4,LRTEST,0),U,4)  ;Must be verified and have suffix code."
^XMB(3.9,67,2,297,0)="""RTN"",""LRTT5P1"",40,0)"
^XMB(3.9,67,2,298,0)=" . . . . ; increment sequence number"
^XMB(3.9,67,2,299,0)="""RTN"",""LRTT5P1"",41,0)"
^XMB(3.9,67,2,300,0)=" . . . . S LRPN=LRPN+1"
^XMB(3.9,67,2,301,0)="""RTN"",""LRTT5P1"",42,0)"
^XMB(3.9,67,2,302,0)=" . . . . ; no report date, set to zero TAT save as bad and quit"
^XMB(3.9,67,2,303,0)="""RTN"",""LRTT5P1"",43,0)"
^XMB(3.9,67,2,304,0)=" . . . . I 'LRPLRRX2 S LRPLRRX2=LRPLRRX1 D SAVE(""BAD"") Q"
^XMB(3.9,67,2,305,0)="""RTN"",""LRTT5P1"",44,0)"
^XMB(3.9,67,2,306,0)=" . . . . ; if negative times save as bad and quit"
^XMB(3.9,67,2,307,0)="""RTN"",""LRTT5P1"",45,0)"
^XMB(3.9,67,2,308,0)=" . . . . I LRPLRRX1>LRPLRRX2 D SAVE(""BAD"") Q"
^XMB(3.9,67,2,309,0)="""RTN"",""LRTT5P1"",46,0)"
^XMB(3.9,67,2,310,0)=" . . . . ; if time is not regular (7am-5pm) then save as irregular and quit"
^XMB(3.9,67,2,311,0)="""RTN"",""LRTT5P1"",47,0)"
^XMB(3.9,67,2,312,0)=" . . . . S LRPRX1T="".""_$P(LRPLRRX1,""."",2) I LRPRX1T<.07!(LRPRX1T>.17) D SAVE(""IRREG"") Q"
^XMB(3.9,67,2,313,0)="""RTN"",""LRTT5P1"",48,0)"
^XMB(3.9,67,2,314,0)=" . . . . ; if Sunday or Saturday save as irregular and quit"
^XMB(3.9,67,2,315,0)="""RTN"",""LRTT5P1"",49,0)"
^XMB(3.9,67,2,316,0)=" . . . . S (LRPRX1D,X)=LRPLRRX1\1 D H^%DTC I %Y=0!(%Y=6) D SAVE(""IRREG"") Q"
^XMB(3.9,67,2,317,0)="""RTN"",""LRTT5P1"",50,0)"
^XMB(3.9,67,2,318,0)=" . . . . ; if holiday save as irregular and quit"
^XMB(3.9,67,2,319,0)="""RTN"",""LRTT5P1"",51,0)"
^XMB(3.9,67,2,320,0)=" . . . . I $D(^HOLIDAY(""B"",LRPRX1D)) D SAVE(""IRREG"") Q"
^XMB(3.9,67,2,321,0)="""RTN"",""LRTT5P1"",52,0)"
^XMB(3.9,67,2,322,0)=" . . . . ; otherwise save as regular and quit"
^XMB(3.9,67,2,323,0)="""RTN"",""LRTT5P1"",53,0)"
^XMB(3.9,67,2,324,0)=" . . . . D SAVE(""REG"")"
^XMB(3.9,67,2,325,0)="""RTN"",""LRTT5P1"",54,0)"
^XMB(3.9,67,2,326,0)=" ; go thru reg & irreg"
^XMB(3.9,67,2,327,0)="""RTN"",""LRTT5P1"",55,0)"
^XMB(3.9,67,2,328,0)=" F LRPTYPE=""REG"",""IRREG"" D"
^XMB(3.9,67,2,329,0)="""RTN"",""LRTT5P1"",56,0)"
^XMB(3.9,67,2,330,0)=" . ; go thru TATs"
^XMB(3.9,67,2,331,0)="""RTN"",""LRTT5P1"",57,0)"
^XMB(3.9,67,2,332,0)=" . S (LRPNN,LRPNT)=0,LRPDIFF="""" F  S LRPDIFF=$O(^TMP(""LR"",$J,LRPTYPE,LRPDIFF)) Q:LRPDIFF=""""  D"
^XMB(3.9,67,2,333,0)="""RTN"",""LRTT5P1"",58,0)"
^XMB(3.9,67,2,334,0)=" . . ; go thru each reg & irreg TAT, count # and total"
^XMB(3.9,67,2,335,0)="""RTN"",""LRTT5P1"",59,0)"
^XMB(3.9,67,2,336,0)=" . . S LRPN="""" F  S LRPN=$O(^TMP(""LR"",$J,LRPTYPE,LRPDIFF,LRPN)) Q:LRPN=""""  S LRPNN=LRPNN+1,LRPNT=LRPNT+LRPDIFF"
^XMB(3.9,67,2,337,0)="""RTN"",""LRTT5P1"",60,0)"
^XMB(3.9,67,2,338,0)=" . ; store reg data"
^XMB(3.9,67,2,339,0)="""RTN"",""LRTT5P1"",61,0)"
^XMB(3.9,67,2,340,0)=" . S ^TMP(""LR"",$J,LRPTYPE)=LRPNN_U_LRPNT"
^XMB(3.9,67,2,341,0)="""RTN"",""LRTT5P1"",62,0)"
^XMB(3.9,67,2,342,0)="CLEAN K %Y,LRAA,LRAAT,LRAN,LRPDIFF,LRAD,LRPLRRX1,LRPLRRX2,LRPN,LRPNN,LRPNT,LRPRX1D,LRPRX1T,LRTEST,LRTESTN,LRPTYPE,X"
^XMB(3.9,67,2,343,0)="""RTN"",""LRTT5P1"",63,0)"
^XMB(3.9,67,2,344,0)=" Q"
^XMB(3.9,67,2,345,0)="""RTN"",""LRTT5P1"",64,0)"
^XMB(3.9,67,2,346,0)="SAVE(LRPUTYPE) ; collect reg, irreg, and bad"
^XMB(3.9,67,2,347,0)="""RTN"",""LRTT5P1"",65,0)"
^XMB(3.9,67,2,348,0)=" N LRUID"
^XMB(3.9,67,2,349,0)="""RTN"",""LRTT5P1"",66,0)"
^XMB(3.9,67,2,350,0)=" S LRUID=$G(^LRO(68,LRAA,1,LRAD,1,LRAN,.3))"
^XMB(3.9,67,2,351,0)="""RTN"",""LRTT5P1"",67,0)"
^XMB(3.9,67,2,352,0)=" S LRPDIFF=$$DIFF(LRPLRRX2,LRPLRRX1),LRTESTN=$P(^LAB(60,LRTEST,0),U)"
^XMB(3.9,67,2,353,0)="""RTN"",""LRTT5P1"",68,0)"
^XMB(3.9,67,2,354,0)=" I LRPUTYPE=""BAD""!('$L(LRUID)) S ^TMP(""LR"",$J,""BAD"",-LRPDIFF,LRPN)=$G(^LRO(68,LRAA,1,LRAD,1,LRAN,.2))_U_LRTESTN_U_LRPLRRX1_U_$S(LRPLRRX2=LRPLRRX1:"""",1:LRPLRRX2) Q"
^XMB(3.9,67,2,355,0)="""RTN"",""LRTT5P1"",69,0)"
^XMB(3.9,67,2,356,0)=" Q:$D(^TMP(""LR"",$J,LRPUTYPE,+LRPDIFF,LRTESTN_LRUID))#2"
^XMB(3.9,67,2,357,0)="""RTN"",""LRTT5P1"",70,0)"
^XMB(3.9,67,2,358,0)=" S ^TMP(""LR"",$J,LRPUTYPE,+LRPDIFF,LRTESTN_LRUID)=$G(^LRO(68,LRAA,1,LRAD,1,LRAN,.2))_U_LRTESTN_U_LRPLRRX1_U_LRPLRRX2"
^XMB(3.9,67,2,359,0)="""RTN"",""LRTT5P1"",71,0)"
^XMB(3.9,67,2,360,0)=" S $P(^(LRTESTN),U)=$P($G(^TMP(""LR"",$J,LRPUTYPE_""T"",LRTESTN)),U)+1,$P(^(LRTESTN),U,2)=$P($G(^(LRTESTN)),U,2)+LRPDIFF"
^XMB(3.9,67,2,361,0)="""RTN"",""LRTT5P1"",72,0)"
^XMB(3.9,67,2,362,0)=" Q"
^XMB(3.9,67,2,363,0)="""RTN"",""LRTT5P1"",73,0)"
^XMB(3.9,67,2,364,0)="DIFF(LRPUT1,LRPUT2) ; $$(time1,time2) -> difference in min"
^XMB(3.9,67,2,365,0)="""RTN"",""LRTT5P1"",74,0)"
^XMB(3.9,67,2,366,0)=" N LRPUDIFF,X1,X2,LRPUX1M,LRPUX2M,LRPUX1H,LRPUX2H,LRPUX1TH,LRPUX2TH,LRPUX1TM,LRPUX2TM,LRPUXMI"
^XMB(3.9,67,2,367,0)="""RTN"",""LRTT5P1"",75,0)"
^XMB(3.9,67,2,368,0)=" S X1=$P(LRPUT1,"".""),X2=$P(LRPUT2,"".""),LRPUX1TH=$E(LRPUT1,9),LRPUX2TH=$E(LRPUT2,9),LRPUX1H=$E(LRPUT1,10),LRPUX2H=$E(LRPUT2,10),LRPUX1TM=$E(LRPUT1,11),LRPUX2TM=$E(LRPUT2,11),LRPUX1M=$E(LRPUT1,12),LRPUX2M=$E(LRPUT2,12)"
^XMB(3.9,67,2,369,0)="""RTN"",""LRTT5P1"",76,0)"
^XMB(3.9,67,2,370,0)=" D ^%DTC S LRPUXMI=X*1440+(LRPUX1M+(LRPUX1TM*10)+(LRPUX1TH*600)+(LRPUX1H*60))-(LRPUX2M+(LRPUX2TM*10)+(LRPUX2TH*600)+(LRPUX2H*60)),LRPUDIFF=LRPUXMI S:LRPUXMI<0 LRPUDIFF=-LRPUXMI"
^XMB(3.9,67,2,371,0)="""RTN"",""LRTT5P1"",77,0)"
^XMB(3.9,67,2,372,0)=" Q LRPUDIFF"
^XMB(3.9,67,2,373,0)="""RTN"",""LRWRKS"")"
^XMB(3.9,67,2,374,0)="0^2^B11444581^B11389478"
^XMB(3.9,67,2,375,0)="""RTN"",""LRWRKS"",1,0)"
^XMB(3.9,67,2,376,0)="LRWRKS ;SLC/RWF - WORK SHEET ACCESSION LIST ;2/19/91  11:48 ;"
^XMB(3.9,67,2,377,0)="""RTN"",""LRWRKS"",2,0)"
^XMB(3.9,67,2,378,0)=" ;;5.2;LAB SERVICE;**153,358**;Sep 27, 1994"
^XMB(3.9,67,2,379,0)="""RTN"",""LRWRKS"",3,0)"
^XMB(3.9,67,2,380,0)=" K DIC S DIC=""^LRO(68,"",DIC(0)=""AEMOQ"",LREND=0 D ^DIC S LRAA=+Y,LRNAME=$P(Y,U,2) G END:LRAA<1"
^XMB(3.9,67,2,381,0)="""RTN"",""LRWRKS"",4,0)"
^XMB(3.9,67,2,382,0)=" K LRSTAR,DIC D STAR^LRWU3:$P(^LRO(68,LRAA,0),U,3)=""Y"",PHD:'$D(LRSTAR) G END:LREND"
^XMB(3.9,67,2,383,0)="""RTN"",""LRWRKS"",5,0)"
^XMB(3.9,67,2,384,0)="W G END:'$D(^LRO(68,LRAA,1,LRAD,1,0))&'$D(LRSTAR)"
^XMB(3.9,67,2,385,0)="""RTN"",""LRWRKS"",6,0)"
^XMB(3.9,67,2,386,0)=" S LRUNC=0,LRTSE=-1"
^XMB(3.9,67,2,387,0)="""RTN"",""LRWRKS"",7,0)"
^XMB(3.9,67,2,388,0)=" K DIC W !,""Do you want a specific test?"" S %=2 D YN^DICN IF %=1 S DIC=""^LAB(60,"",DIC(0)=""AEMOQ"" D ^DIC S LRTSE=+Y"
^XMB(3.9,67,2,389,0)="""RTN"",""LRWRKS"",8,0)"
^XMB(3.9,67,2,390,0)=" W !,""Do you want only incomplete entries?"" S %=1 D YN^DICN S:%=2 LRUNC=1"
^XMB(3.9,67,2,391,0)="""RTN"",""LRWRKS"",9,0)"
^XMB(3.9,67,2,392,0)=" W !,""Do you want a long list?"" S %=2 D YN^DICN S LRSHORT=(%=2)"
^XMB(3.9,67,2,393,0)="""RTN"",""LRWRKS"",10,0)"
^XMB(3.9,67,2,394,0)=" S %ZIS=""Q"" D ^%ZIS G END:POP"
^XMB(3.9,67,2,395,0)="""RTN"",""LRWRKS"",11,0)"
^XMB(3.9,67,2,396,0)=" I $D(IO(""Q"")) K IO(""Q"") S ZTRTN=""DQ^LRWRKS"" S ZTSAVE(""LR*"")="""",ZTSAVE(""LAST"")="""" D ^%ZTLOAD G END"
^XMB(3.9,67,2,397,0)="""RTN"",""LRWRKS"",12,0)"
^XMB(3.9,67,2,398,0)=" D ENT G END"
^XMB(3.9,67,2,399,0)="""RTN"",""LRWRKS"",13,0)"
^XMB(3.9,67,2,400,0)="ENT U IO D URG^LRX S Y=DT D DD^LRX S LRDT0=Y,LRDC=1,LRLINE=""---------------------------------------"""
^XMB(3.9,67,2,401,0)="""RTN"",""LRWRKS"",14,0)"
^XMB(3.9,67,2,402,0)=" I '$D(LRSTAR) S LRAN=LRFAN-1 F LRIX=0:0 S LRAN=$O(^LRO(68,LRAA,1,LRAD,1,LRAN)),LREND=0 Q:LRAN>LRLAN!(LRAN<1)  D ACC"
^XMB(3.9,67,2,403,0)="""RTN"",""LRWRKS"",15,0)"
^XMB(3.9,67,2,404,0)=" I $D(LRSTAR) F A=0:0 S LRAD=$O(^LRO(68,LRAA,1,LRAD)) Q:LRAD<1!(LRAD>LRWDTL)  D AC"
^XMB(3.9,67,2,405,0)="""RTN"",""LRWRKS"",16,0)"
^XMB(3.9,67,2,406,0)=" Q"
^XMB(3.9,67,2,407,0)="""RTN"",""LRWRKS"",17,0)"
^XMB(3.9,67,2,408,0)="ACC D TD IF 'LREND,K1 D:LRUNC!'LRVER ENT^LRWRKS2"
^XMB(3.9,67,2,409,0)="""RTN"",""LRWRKS"",18,0)"
^XMB(3.9,67,2,410,0)=" Q"
^XMB(3.9,67,2,411,0)="""RTN"",""LRWRKS"",19,0)"
^XMB(3.9,67,2,412,0)="TD S:'$D(^LRO(68,LRAA,1,LRAD,1,LRAN,0)) LREND=1 Q:LREND  S LRSN=+$P(^(0),U,5),LRDAT=+$P(^(0),U,4)"
^XMB(3.9,67,2,413,0)="""RTN"",""LRWRKS"",20,0)"
^XMB(3.9,67,2,414,0)=" S LRVER=1,K1=0,I=0 F  S I=$O(^LRO(68,LRAA,1,LRAD,1,LRAN,4,I)) Q:I<.5  S LRVER=(LRVER&$P(^(I,0),U,5)) I 'K1,LRTSE>0,+^(0)=LRTSE S K1=I"
^XMB(3.9,67,2,415,0)="""RTN"",""LRWRKS"",21,0)"
^XMB(3.9,67,2,416,0)=" S K1=$S(LRTSE<0:1,1:K1) Q"
^XMB(3.9,67,2,417,0)="""RTN"",""LRWRKS"",22,0)"
^XMB(3.9,67,2,418,0)=" Q"
^XMB(3.9,67,2,419,0)="""RTN"",""LRWRKS"",23,0)"
^XMB(3.9,67,2,420,0)="PHD Q:LREND  S LREND=0,U=""^"" D ADATE^LRWU Q:LREND  D LRAN^LRWU3 Q"
^XMB(3.9,67,2,421,0)="""RTN"",""LRWRKS"",24,0)"
^XMB(3.9,67,2,422,0)=" Q"
^XMB(3.9,67,2,423,0)="""RTN"",""LRWRKS"",25,0)"
^XMB(3.9,67,2,424,0)="AC S LRTK=LRSTAR-.00001 F B=0:0 S LRTK=$O(^LRO(68,LRAA,1,LRAD,1,""E"",LRTK)) Q:LRTK<1!(LAST>1&(LRTK\1>LAST))  D AC1"
^XMB(3.9,67,2,425,0)="""RTN"",""LRWRKS"",26,0)"
^XMB(3.9,67,2,426,0)=" Q"
^XMB(3.9,67,2,427,0)="""RTN"",""LRWRKS"",27,0)"
^XMB(3.9,67,2,428,0)="AC1 S LRAN=0 F  S LRAN=$O(^LRO(68,LRAA,1,LRAD,1,""E"",LRTK,LRAN)) Q:LRAN<1  I $D(^LRO(68,LRAA,1,LRAD,1,LRAN,0)) D ACC"
^XMB(3.9,67,2,429,0)="""RTN"",""LRWRKS"",28,0)"
^XMB(3.9,67,2,430,0)=" Q"
^XMB(3.9,67,2,431,0)="""RTN"",""LRWRKS"",29,0)"
^XMB(3.9,67,2,432,0)="% R %:DTIME Q:%=""""!(%[""N"")!(%[""Y"")  W !,""Answer 'Y' or 'N': "" G %"
^XMB(3.9,67,2,433,0)="""RTN"",""LRWRKS"",30,0)"
^XMB(3.9,67,2,434,0)="END W !! W:$E(IOST)=""P"" @IOF D ^%ZISC K ZTRTN,ZTIO,ZTDESC,ZTSAVE,%H,%ZIS,DFN,J,LRDFN,LRDOC,LREDT,LRSDT,LRCDT,LRUID"
^XMB(3.9,67,2,435,0)="""RTN"",""LRWRKS"",31,0)"
^XMB(3.9,67,2,436,0)=" K %,A,B,I,K,K1,L,LRACC,LRSPEC,LRURG,SEX,SSN,X,Y,DIC,LRUNC,LRDAT,LRAA,LRAD,LRAN,LRDPF,LRSN,LRSTAR,LRSHORT,LAST,PNM,ZTSK,LRDC,LRIDT,LRLLOC,LRODNUM,LRTK,LRV,LRWDTL,POP,T"
^XMB(3.9,67,2,437,0)="""RTN"",""LRWRKS"",32,0)"
^XMB(3.9,67,2,438,0)=" K LRTSTS,LRLAN,LREND,LRLINE,LRFAN,LRFI,LRIX,LRNAME,LRTSE,LRVER,VA(""BID""),VA(""PID"")"
^XMB(3.9,67,2,439,0)="""RTN"",""LRWRKS"",33,0)"
^XMB(3.9,67,2,440,0)=" Q"
^XMB(3.9,67,2,441,0)="""RTN"",""LRWRKS"",34,0)"
^XMB(3.9,67,2,442,0)="EN ;"
^XMB(3.9,67,2,443,0)="""RTN"",""LRWRKS"",35,0)"
^XMB(3.9,67,2,444,0)="DQ U IO S U=""^"" D ENT S:$D(ZTQUEUED) ZTREQ=""@"" G END"
^XMB(3.9,67,2,445,0)="""RTN"",""LRWRKS"",36,0)"
^XMB(3.9,67,2,446,0)="ALLUNC W !,""LIST ALL UNVERIFIED TEST's for one day"",! D ADATE^LRWU3 G END:LREND S %ZIS=""Q"" D ^%ZIS G END:POP"
^XMB(3.9,67,2,447,0)="""RTN"",""LRWRKS"",37,0)"
^XMB(3.9,67,2,448,0)=" I $D(IO(""Q"")) K IO(""Q"") S ZTRTN=""ALL^LRWRKS"",ZTSAVE(""LRAD"")="""" D ^%ZTLOAD G END"
^XMB(3.9,67,2,449,0)="""RTN"",""LRWRKS"",38,0)"
^XMB(3.9,67,2,450,0)="ALL S U=""^"",LRUNC=0,LRTSE=-1,LRFAN=1,LRLAN=999999,LRSHORT=1"
^XMB(3.9,67,2,451,0)="""RTN"",""LRWRKS"",39,0)"
^XMB(3.9,67,2,452,0)=" F LRAA=0:0 S LRAA=$O(^LRO(68,LRAA)) Q:LRAA'>0  S LRAD(1)=LRAD,LRDC=1 D AL2"
^XMB(3.9,67,2,453,0)="""RTN"",""LRWRKS"",40,0)"
^XMB(3.9,67,2,454,0)=" S:$D(ZTQUEUED) ZTREQ=""@"" G END"
^XMB(3.9,67,2,455,0)="""RTN"",""LRWRKS"",41,0)"
^XMB(3.9,67,2,456,0)="AL2 K LRSTAR S LAST=LRAD+.99 S LRNAME=$P(^LRO(68,LRAA,0),U,1) I $P(^(0),U,3)=""Y"" S LRSTAR=LRAD,LRWDTL=$E(LRAD,1,3)_""0000"",LRAD=LRWDTL-10000"
^XMB(3.9,67,2,457,0)="""RTN"",""LRWRKS"",42,0)"
^XMB(3.9,67,2,458,0)=" D ENT S LRAD=LRAD(1) Q"
^XMB(3.9,67,2,459,0)="""VER"")"
^XMB(3.9,67,2,460,0)="8.0^22.0"
^XMB(3.9,67,2,461,0)="""BLD"",6761,6)"
^XMB(3.9,67,2,462,0)="^272"
^XMB(3.9,67,2,463,0)="$END KID LR*5.2*358"
^XMB(3.9,67,6,0)="^3.911A^2^2"
^XMB(3.9,67,6,1,0)="POSTMASTER"
^XMB(3.9,67,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,67,6,"B","POSTMASTER",1)=""
^XMB(3.9,67,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,68,0)="LR-5P2_SEQ-273_PAT-361.KID^.5^3061008.015738^^^^K"
^XMB(3.9,68,.6)="3061008"
^XMB(3.9,68,1,0)="^3.91A^2^2"
^XMB(3.9,68,1,1,0)=".5^0^3061008.015738^^^^^^^3061008.015738"
^XMB(3.9,68,1,2,0)="1^0^3061008.023908^^^^^^^3061008.023908"
^XMB(3.9,68,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,68,1,"C",.5,1)=""
^XMB(3.9,68,1,"C",1,2)=""
^XMB(3.9,68,2,0)="^^469^469^3061008"
^XMB(3.9,68,2,1,0)="$TXT Released LR*5.2*361 SEQ #273"
^XMB(3.9,68,2,2,0)="Extracted from mail message"
^XMB(3.9,68,2,3,0)="$END TXT"
^XMB(3.9,68,2,4,0)="$KID LR*5.2*361"
^XMB(3.9,68,2,5,0)="**INSTALL NAME**"
^XMB(3.9,68,2,6,0)="LR*5.2*361"
^XMB(3.9,68,2,7,0)="""BLD"",6857,0)"
^XMB(3.9,68,2,8,0)="LR*5.2*361^LAB SERVICE^0^3060601^y"
^XMB(3.9,68,2,9,0)="""BLD"",6857,1,0)"
^XMB(3.9,68,2,10,0)="^^1^1^3060601^"
^XMB(3.9,68,2,11,0)="""BLD"",6857,1,1,0)"
^XMB(3.9,68,2,12,0)="ADDING NEW LAB TEST WITH DOUBLE QUOTES"
^XMB(3.9,68,2,13,0)="""BLD"",6857,4,0)"
^XMB(3.9,68,2,14,0)="^9.64PA^^"
^XMB(3.9,68,2,15,0)="""BLD"",6857,""ABPKG"")"
^XMB(3.9,68,2,16,0)="n"
^XMB(3.9,68,2,17,0)="""BLD"",6857,""KRN"",0)"
^XMB(3.9,68,2,18,0)="^9.67PA^8989.52^19"
^XMB(3.9,68,2,19,0)="""BLD"",6857,""KRN"",.4,0)"
^XMB(3.9,68,2,20,0)=".4"
^XMB(3.9,68,2,21,0)="""BLD"",6857,""KRN"",.401,0)"
^XMB(3.9,68,2,22,0)=".401"
^XMB(3.9,68,2,23,0)="""BLD"",6857,""KRN"",.402,0)"
^XMB(3.9,68,2,24,0)=".402"
^XMB(3.9,68,2,25,0)="""BLD"",6857,""KRN"",.403,0)"
^XMB(3.9,68,2,26,0)=".403"
^XMB(3.9,68,2,27,0)="""BLD"",6857,""KRN"",.5,0)"
^XMB(3.9,68,2,28,0)=".5"
^XMB(3.9,68,2,29,0)="""BLD"",6857,""KRN"",.84,0)"
^XMB(3.9,68,2,30,0)=".84"
^XMB(3.9,68,2,31,0)="""BLD"",6857,""KRN"",3.6,0)"
^XMB(3.9,68,2,32,0)="3.6"
^XMB(3.9,68,2,33,0)="""BLD"",6857,""KRN"",3.8,0)"
^XMB(3.9,68,2,34,0)="3.8"
^XMB(3.9,68,2,35,0)="""BLD"",6857,""KRN"",9.2,0)"
^XMB(3.9,68,2,36,0)="9.2"
^XMB(3.9,68,2,37,0)="""BLD"",6857,""KRN"",9.8,0)"
^XMB(3.9,68,2,38,0)="9.8"
^XMB(3.9,68,2,39,0)="""BLD"",6857,""KRN"",9.8,""NM"",0)"
^XMB(3.9,68,2,40,0)="^9.68A^1^1"
^XMB(3.9,68,2,41,0)="""BLD"",6857,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,68,2,42,0)="LR7OV0^^0^28253396"
^XMB(3.9,68,2,43,0)="""BLD"",6857,""KRN"",9.8,""NM"",""B"",""LR7OV0"",1)"
^XMB(3.9,68,2,44,0)=""
^XMB(3.9,68,2,45,0)="""BLD"",6857,""KRN"",19,0)"
^XMB(3.9,68,2,46,0)="19"
^XMB(3.9,68,2,47,0)="""BLD"",6857,""KRN"",19.1,0)"
^XMB(3.9,68,2,48,0)="19.1"
^XMB(3.9,68,2,49,0)="""BLD"",6857,""KRN"",101,0)"
^XMB(3.9,68,2,50,0)="101"
^XMB(3.9,68,2,51,0)="""BLD"",6857,""KRN"",409.61,0)"
^XMB(3.9,68,2,52,0)="409.61"
^XMB(3.9,68,2,53,0)="""BLD"",6857,""KRN"",771,0)"
^XMB(3.9,68,2,54,0)="771"
^XMB(3.9,68,2,55,0)="""BLD"",6857,""KRN"",870,0)"
^XMB(3.9,68,2,56,0)="870"
^XMB(3.9,68,2,57,0)="""BLD"",6857,""KRN"",8989.51,0)"
^XMB(3.9,68,2,58,0)="8989.51"
^XMB(3.9,68,2,59,0)="""BLD"",6857,""KRN"",8989.52,0)"
^XMB(3.9,68,2,60,0)="8989.52"
^XMB(3.9,68,2,61,0)="""BLD"",6857,""KRN"",8994,0)"
^XMB(3.9,68,2,62,0)="8994"
^XMB(3.9,68,2,63,0)="""BLD"",6857,""KRN"",""B"",.4,.4)"
^XMB(3.9,68,2,64,0)=""
^XMB(3.9,68,2,65,0)="""BLD"",6857,""KRN"",""B"",.401,.401)"
^XMB(3.9,68,2,66,0)=""
^XMB(3.9,68,2,67,0)="""BLD"",6857,""KRN"",""B"",.402,.402)"
^XMB(3.9,68,2,68,0)=""
^XMB(3.9,68,2,69,0)="""BLD"",6857,""KRN"",""B"",.403,.403)"
^XMB(3.9,68,2,70,0)=""
^XMB(3.9,68,2,71,0)="""BLD"",6857,""KRN"",""B"",.5,.5)"
^XMB(3.9,68,2,72,0)=""
^XMB(3.9,68,2,73,0)="""BLD"",6857,""KRN"",""B"",.84,.84)"
^XMB(3.9,68,2,74,0)=""
^XMB(3.9,68,2,75,0)="""BLD"",6857,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,68,2,76,0)=""
^XMB(3.9,68,2,77,0)="""BLD"",6857,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,68,2,78,0)=""
^XMB(3.9,68,2,79,0)="""BLD"",6857,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,68,2,80,0)=""
^XMB(3.9,68,2,81,0)="""BLD"",6857,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,68,2,82,0)=""
^XMB(3.9,68,2,83,0)="""BLD"",6857,""KRN"",""B"",19,19)"
^XMB(3.9,68,2,84,0)=""
^XMB(3.9,68,2,85,0)="""BLD"",6857,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,68,2,86,0)=""
^XMB(3.9,68,2,87,0)="""BLD"",6857,""KRN"",""B"",101,101)"
^XMB(3.9,68,2,88,0)=""
^XMB(3.9,68,2,89,0)="""BLD"",6857,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,68,2,90,0)=""
^XMB(3.9,68,2,91,0)="""BLD"",6857,""KRN"",""B"",771,771)"
^XMB(3.9,68,2,92,0)=""
^XMB(3.9,68,2,93,0)="""BLD"",6857,""KRN"",""B"",870,870)"
^XMB(3.9,68,2,94,0)=""
^XMB(3.9,68,2,95,0)="""BLD"",6857,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,68,2,96,0)=""
^XMB(3.9,68,2,97,0)="""BLD"",6857,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,68,2,98,0)=""
^XMB(3.9,68,2,99,0)="""BLD"",6857,""KRN"",""B"",8994,8994)"
^XMB(3.9,68,2,100,0)=""
^XMB(3.9,68,2,101,0)="""BLD"",6857,""QUES"",0)"
^XMB(3.9,68,2,102,0)="^9.62^^"
^XMB(3.9,68,2,103,0)="""BLD"",6857,""REQB"",0)"
^XMB(3.9,68,2,104,0)="^9.611^1^1"
^XMB(3.9,68,2,105,0)="""BLD"",6857,""REQB"",1,0)"
^XMB(3.9,68,2,106,0)="LR*5.2*357^2"
^XMB(3.9,68,2,107,0)="""BLD"",6857,""REQB"",""B"",""LR*5.2*357"",1)"
^XMB(3.9,68,2,108,0)=""
^XMB(3.9,68,2,109,0)="""MBREQ"")"
^XMB(3.9,68,2,110,0)="0"
^XMB(3.9,68,2,111,0)="""PKG"",26,-1)"
^XMB(3.9,68,2,112,0)="1^1"
^XMB(3.9,68,2,113,0)="""PKG"",26,0)"
^XMB(3.9,68,2,114,0)="LAB SERVICE^LR^CORE LAB SYSTEM"
^XMB(3.9,68,2,115,0)="""PKG"",26,20,0)"
^XMB(3.9,68,2,116,0)="^9.402P^1^1"
^XMB(3.9,68,2,117,0)="""PKG"",26,20,1,0)"
^XMB(3.9,68,2,118,0)="2^^LRXDRPT"
^XMB(3.9,68,2,119,0)="""PKG"",26,20,1,1)"
^XMB(3.9,68,2,120,0)=""
^XMB(3.9,68,2,121,0)="""PKG"",26,20,""B"",2,1)"
^XMB(3.9,68,2,122,0)=""
^XMB(3.9,68,2,123,0)="""PKG"",26,22,0)"
^XMB(3.9,68,2,124,0)="^9.49I^1^1"
^XMB(3.9,68,2,125,0)="""PKG"",26,22,1,0)"
^XMB(3.9,68,2,126,0)="5.2^2940927^2950304"
^XMB(3.9,68,2,127,0)="""PKG"",26,22,1,""PAH"",1,0)"
^XMB(3.9,68,2,128,0)="361^3060601"
^XMB(3.9,68,2,129,0)="""PKG"",26,22,1,""PAH"",1,1,0)"
^XMB(3.9,68,2,130,0)="^^1^1^3060601"
^XMB(3.9,68,2,131,0)="""PKG"",26,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,68,2,132,0)="ADDING NEW LAB TEST WITH DOUBLE QUOTES"
^XMB(3.9,68,2,133,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,68,2,134,0)="Y"
^XMB(3.9,68,2,135,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,68,2,136,0)="^D REP^XPDH"
^XMB(3.9,68,2,137,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,68,2,138,0)="Shall I write over your |FLAG| File"
^XMB(3.9,68,2,139,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,68,2,140,0)="YES"
^XMB(3.9,68,2,141,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,68,2,142,0)="D XPF1^XPDIQ"
^XMB(3.9,68,2,143,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,68,2,144,0)="Y"
^XMB(3.9,68,2,145,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,68,2,146,0)="^D DTA^XPDH"
^XMB(3.9,68,2,147,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,68,2,148,0)="Want my data |FLAG| yours"
^XMB(3.9,68,2,149,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,68,2,150,0)="YES"
^XMB(3.9,68,2,151,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,68,2,152,0)="D XPF2^XPDIQ"
^XMB(3.9,68,2,153,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,68,2,154,0)="YO"
^XMB(3.9,68,2,155,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,68,2,156,0)="^D INHIBIT^XPDH"
^XMB(3.9,68,2,157,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,68,2,158,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,68,2,159,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,68,2,160,0)="YES"
^XMB(3.9,68,2,161,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,68,2,162,0)="D XPI1^XPDIQ"
^XMB(3.9,68,2,163,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,68,2,164,0)="PO^VA(200,:EM"
^XMB(3.9,68,2,165,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,68,2,166,0)="^D MG^XPDH"
^XMB(3.9,68,2,167,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,68,2,168,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,68,2,169,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,68,2,170,0)=""
^XMB(3.9,68,2,171,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,68,2,172,0)="D XPM1^XPDIQ"
^XMB(3.9,68,2,173,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,68,2,174,0)="Y"
^XMB(3.9,68,2,175,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,68,2,176,0)="^D MENU^XPDH"
^XMB(3.9,68,2,177,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,68,2,178,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,68,2,179,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,68,2,180,0)="YES"
^XMB(3.9,68,2,181,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,68,2,182,0)="D XPO1^XPDIQ"
^XMB(3.9,68,2,183,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,68,2,184,0)="Y"
^XMB(3.9,68,2,185,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,68,2,186,0)="^D OPT^XPDH"
^XMB(3.9,68,2,187,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,68,2,188,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,68,2,189,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,68,2,190,0)="YES"
^XMB(3.9,68,2,191,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,68,2,192,0)="D XPZ1^XPDIQ"
^XMB(3.9,68,2,193,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,68,2,194,0)="Y"
^XMB(3.9,68,2,195,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,68,2,196,0)="^D RTN^XPDH"
^XMB(3.9,68,2,197,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,68,2,198,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,68,2,199,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,68,2,200,0)="NO"
^XMB(3.9,68,2,201,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,68,2,202,0)="D XPZ2^XPDIQ"
^XMB(3.9,68,2,203,0)="""RTN"")"
^XMB(3.9,68,2,204,0)="1"
^XMB(3.9,68,2,205,0)="""RTN"",""LR7OV0"")"
^XMB(3.9,68,2,206,0)="0^1^B28253396^B23457676"
^XMB(3.9,68,2,207,0)="""RTN"",""LR7OV0"",1,0)"
^XMB(3.9,68,2,208,0)="LR7OV0 ;slc/dcm - Update orderable items ;8/11/97"
^XMB(3.9,68,2,209,0)="""RTN"",""LR7OV0"",2,0)"
^XMB(3.9,68,2,210,0)=" ;;5.2;LAB SERVICE;**121,187,357,361**;Sep 27, 1994"
^XMB(3.9,68,2,211,0)="""RTN"",""LR7OV0"",3,0)"
^XMB(3.9,68,2,212,0)=" ;"
^XMB(3.9,68,2,213,0)="""RTN"",""LR7OV0"",4,0)"
^XMB(3.9,68,2,214,0)="TEST(TEST,ICNT) ;Process single test"
^XMB(3.9,68,2,215,0)="""RTN"",""LR7OV0"",5,0)"
^XMB(3.9,68,2,216,0)=" ;TEST=test ptr to file 60"
^XMB(3.9,68,2,217,0)="""RTN"",""LR7OV0"",6,0)"
^XMB(3.9,68,2,218,0)=" ;ICNT=Current counter in ORUPDMSG(ICNT)"
^XMB(3.9,68,2,219,0)="""RTN"",""LR7OV0"",7,0)"
^XMB(3.9,68,2,220,0)=" N TYPE,TESTID,IFN,IFN1,CTR,CTR1,GENW,X0,S0,SAMP,MAX,DMAX,COLLECT,SAMPLE,SPEC,SYN,COST,Y9,Y10,Y11"
^XMB(3.9,68,2,221,0)="""RTN"",""LR7OV0"",8,0)"
^XMB(3.9,68,2,222,0)=" Q:'$D(^LAB(60,TEST,0))  S X0=^(0),COST=$P(X0,""^"",11),SUB=$P(X0,""^"",4),TYPE=$P(X0,""^"",3),CTR1=0"
^XMB(3.9,68,2,223,0)="""RTN"",""LR7OV0"",9,0)"
^XMB(3.9,68,2,224,0)=" I $D(^LAB(60,TEST,6)) S (CTR,IFN)=0 F  S IFN=$O(^LAB(60,TEST,6,IFN)) Q:IFN<1  S CTR=CTR+1,GENW(CTR)=^(IFN,0)"
^XMB(3.9,68,2,225,0)="""RTN"",""LR7OV0"",10,0)"
^XMB(3.9,68,2,226,0)=" S (CTR,IFN)=0 F  S IFN=$O(^LAB(60,TEST,5,IFN)) Q:IFN<1  S CTR=CTR+1,SYN(CTR)=^(IFN,0)"
^XMB(3.9,68,2,227,0)="""RTN"",""LR7OV0"",11,0)"
^XMB(3.9,68,2,228,0)=" S (Y9,Y10,Y11)="""" I $P($G(^LAB(60,TEST,64)),""^"") S Y9=$P(^(64),""^""),Y10=$P(^LAM(Y9,0),""^""),Y9=$P(^(0),""^"",2),Y11=""99NLT"""
^XMB(3.9,68,2,229,0)="""RTN"",""LR7OV0"",12,0)"
^XMB(3.9,68,2,230,0)=" D"
^XMB(3.9,68,2,231,0)="""RTN"",""LR7OV0"",13,0)"
^XMB(3.9,68,2,232,0)=" . S (COLLECT,SAMP,SPEC)=0,TESTID=$$UVID^LR7OU0(TEST,+SPEC,Y9,Y11,Y10,""ORUPDMSG""),ICNT=ICNT+1,ORUPDMSG(ICNT)=$$MFE(MFECODE,TESTID)"
^XMB(3.9,68,2,233,0)="""RTN"",""LR7OV0"",14,0)"
^XMB(3.9,68,2,234,0)=" . S ICNT=ICNT+1,ORUPDMSG(ICNT)=$$ZLR("""","""",CTR1,SUB,"""","""",COST,TYPE)"
^XMB(3.9,68,2,235,0)="""RTN"",""LR7OV0"",15,0)"
^XMB(3.9,68,2,236,0)=" . S IFN1=0 F  S IFN1=$O(^LAB(60,TEST,2,IFN1)) Q:IFN1<1  S X=^(IFN1,0) I $D(^LAB(60,+X,0)) D"
^XMB(3.9,68,2,237,0)="""RTN"",""LR7OV0"",16,0)"
^XMB(3.9,68,2,238,0)=" .. N Y9,Y10,Y11 S (Y9,Y10,Y11)="""" I $P($G(^LAB(60,+X,64)),""^"") S Y9=$P(^(64),""^""),Y10=$P(^LAM(Y9,0),""^""),Y9=$P(^(0),""^"",2),Y11=""99NLT"""
^XMB(3.9,68,2,239,0)="""RTN"",""LR7OV0"",17,0)"
^XMB(3.9,68,2,240,0)=" .. S SUBID=$$UVID^LR7OU0($P(X,""^""),"""",Y9,Y11,Y10,""ORUPDMSG""),ICNT=ICNT+1,ORUPDMSG(ICNT)=""ZLC||||""_SUBID"
^XMB(3.9,68,2,241,0)="""RTN"",""LR7OV0"",18,0)"
^XMB(3.9,68,2,242,0)=" . D ZSY(.SYN),NTE(.GENW,.WCOM)"
^XMB(3.9,68,2,243,0)="""RTN"",""LR7OV0"",19,0)"
^XMB(3.9,68,2,244,0)=" Q"
^XMB(3.9,68,2,245,0)="""RTN"",""LR7OV0"",20,0)"
^XMB(3.9,68,2,246,0)="MFE(EVENT,KEY) ;MFE component"
^XMB(3.9,68,2,247,0)="""RTN"",""LR7OV0"",21,0)"
^XMB(3.9,68,2,248,0)=" ;EVENT=MAD-Add Record, MDL-Delete Record, MUP-Update Record"
^XMB(3.9,68,2,249,0)="""RTN"",""LR7OV0"",22,0)"
^XMB(3.9,68,2,250,0)=" ;      MDC-Deactivate, MAC-Reactivate"
^XMB(3.9,68,2,251,0)="""RTN"",""LR7OV0"",23,0)"
^XMB(3.9,68,2,252,0)=" S MFE=""MFE|""_EVENT_""|||""_KEY"
^XMB(3.9,68,2,253,0)="""RTN"",""LR7OV0"",24,0)"
^XMB(3.9,68,2,254,0)=" Q MFE"
^XMB(3.9,68,2,255,0)="""RTN"",""LR7OV0"",25,0)"
^XMB(3.9,68,2,256,0)="ZLR(SPEC,COLLECT,SEQ,SUB,MAXORD,DMAXORD,COST,TYPE) ;ZLR component"
^XMB(3.9,68,2,257,0)="""RTN"",""LR7OV0"",26,0)"
^XMB(3.9,68,2,258,0)=" S ZLR=""ZLR|""_SPEC_""|""_COLLECT_""|""_SEQ_""|""_SUB_""|""_MAXORD_""|""_DMAXORD_""|""_COST_""|""_TYPE"
^XMB(3.9,68,2,259,0)="""RTN"",""LR7OV0"",27,0)"
^XMB(3.9,68,2,260,0)=" Q ZLR"
^XMB(3.9,68,2,261,0)="""RTN"",""LR7OV0"",28,0)"
^XMB(3.9,68,2,262,0)="ZSY(SYN) ;ZSY component"
^XMB(3.9,68,2,263,0)="""RTN"",""LR7OV0"",29,0)"
^XMB(3.9,68,2,264,0)=" N IFN"
^XMB(3.9,68,2,265,0)="""RTN"",""LR7OV0"",30,0)"
^XMB(3.9,68,2,266,0)=" S IFN=0 F  S IFN=$O(SYN(IFN)) Q:IFN<1  S ICNT=ICNT+1,ORUPDMSG(ICNT)=""ZSY|""_IFN_""|""_SYN(IFN)"
^XMB(3.9,68,2,267,0)="""RTN"",""LR7OV0"",31,0)"
^XMB(3.9,68,2,268,0)=" Q"
^XMB(3.9,68,2,269,0)="""RTN"",""LR7OV0"",32,0)"
^XMB(3.9,68,2,270,0)="NTE(GEN,COM) ;NTE component"
^XMB(3.9,68,2,271,0)="""RTN"",""LR7OV0"",33,0)"
^XMB(3.9,68,2,272,0)=" N IFN,CTR S CTR=0"
^XMB(3.9,68,2,273,0)="""RTN"",""LR7OV0"",34,0)"
^XMB(3.9,68,2,274,0)=" S ICNT=ICNT+1 D NTE^LR7OU01(CTR,""P"",""GEN("",ICNT)"
^XMB(3.9,68,2,275,0)="""RTN"",""LR7OV0"",35,0)"
^XMB(3.9,68,2,276,0)=" S ICNT=ICNT+1 D NTE^LR7OU01(CTR,""P"",""COM("",ICNT)"
^XMB(3.9,68,2,277,0)="""RTN"",""LR7OV0"",36,0)"
^XMB(3.9,68,2,278,0)=" Q"
^XMB(3.9,68,2,279,0)="""RTN"",""LR7OV0"",37,0)"
^XMB(3.9,68,2,280,0)="MFI(EVENT) ;MFI component"
^XMB(3.9,68,2,281,0)="""RTN"",""LR7OV0"",38,0)"
^XMB(3.9,68,2,282,0)=" ;EVENT=REP for initial population of orderables"
^XMB(3.9,68,2,283,0)="""RTN"",""LR7OV0"",39,0)"
^XMB(3.9,68,2,284,0)=" ;     =UPD for subsequent updates"
^XMB(3.9,68,2,285,0)="""RTN"",""LR7OV0"",40,0)"
^XMB(3.9,68,2,286,0)=" S MFI=""MFI|60^Lab Test^99DD||""_EVENT_""|||NE"""
^XMB(3.9,68,2,287,0)="""RTN"",""LR7OV0"",41,0)"
^XMB(3.9,68,2,288,0)=" Q MFI"
^XMB(3.9,68,2,289,0)="""RTN"",""LR7OV0"",42,0)"
^XMB(3.9,68,2,290,0)="SINGLE(TEST,MFICODE,MFECODE) ;Message for a single test"
^XMB(3.9,68,2,291,0)="""RTN"",""LR7OV0"",43,0)"
^XMB(3.9,68,2,292,0)=" ;TEST= ptr to test in file 60"
^XMB(3.9,68,2,293,0)="""RTN"",""LR7OV0"",44,0)"
^XMB(3.9,68,2,294,0)=" ;MFICODE=File Level Event Code"
^XMB(3.9,68,2,295,0)="""RTN"",""LR7OV0"",45,0)"
^XMB(3.9,68,2,296,0)=" ;MFECODE=Record Level Event Code"
^XMB(3.9,68,2,297,0)="""RTN"",""LR7OV0"",46,0)"
^XMB(3.9,68,2,298,0)=" ;N X,ORUPDMSG,MSG"
^XMB(3.9,68,2,299,0)="""RTN"",""LR7OV0"",47,0)"
^XMB(3.9,68,2,300,0)=" S MSG=""ORUPDMSG"",X=$$MSH^LR7OU0(""MFN""),ORUPDMSG(1)=X"
^XMB(3.9,68,2,301,0)="""RTN"",""LR7OV0"",48,0)"
^XMB(3.9,68,2,302,0)=" S X=$$MFI(MFICODE),ORUPDMSG(2)=X"
^XMB(3.9,68,2,303,0)="""RTN"",""LR7OV0"",49,0)"
^XMB(3.9,68,2,304,0)=" D TEST(TEST,2)"
^XMB(3.9,68,2,305,0)="""RTN"",""LR7OV0"",50,0)"
^XMB(3.9,68,2,306,0)=" ;W !!,$P(^LAB(60,TEST,0),""^""),! I $D(ORUPDMSG(3)) ZW ORUPDMSG"
^XMB(3.9,68,2,307,0)="""RTN"",""LR7OV0"",51,0)"
^XMB(3.9,68,2,308,0)=" I $D(ORUPDMSG(3)) S ORUPDMSG=""ORUPDMSG"" D MSG^XQOR(""LR7O ORDERABLE OR"",.ORUPDMSG) ;Send update message"
^XMB(3.9,68,2,309,0)="""RTN"",""LR7OV0"",52,0)"
^XMB(3.9,68,2,310,0)=" Q"
^XMB(3.9,68,2,311,0)="""RTN"",""LR7OV0"",53,0)"
^XMB(3.9,68,2,312,0)="ADD(TEST) ;Add single record to Master file"
^XMB(3.9,68,2,313,0)="""RTN"",""LR7OV0"",54,0)"
^XMB(3.9,68,2,314,0)=" N MFICODE,MFECODE S MFECODE=""MAD"",MFICODE=""REP"" D SINGLE(TEST,MFICODE,MFECODE)"
^XMB(3.9,68,2,315,0)="""RTN"",""LR7OV0"",55,0)"
^XMB(3.9,68,2,316,0)=" Q"
^XMB(3.9,68,2,317,0)="""RTN"",""LR7OV0"",56,0)"
^XMB(3.9,68,2,318,0)="DEL(TEST) ;Delete single record from Master file"
^XMB(3.9,68,2,319,0)="""RTN"",""LR7OV0"",57,0)"
^XMB(3.9,68,2,320,0)=" N MFICODE,MFECODE S MFECODE=""MDL"",MFICODE=""UPD"" D SINGLE(TEST,MFICODE,MFECODE)"
^XMB(3.9,68,2,321,0)="""RTN"",""LR7OV0"",58,0)"
^XMB(3.9,68,2,322,0)=" Q"
^XMB(3.9,68,2,323,0)="""RTN"",""LR7OV0"",59,0)"
^XMB(3.9,68,2,324,0)="UPD(TEST) ;Update record in Master file"
^XMB(3.9,68,2,325,0)="""RTN"",""LR7OV0"",60,0)"
^XMB(3.9,68,2,326,0)=" ;Modified for patch LR*5.2*361"
^XMB(3.9,68,2,327,0)="""RTN"",""LR7OV0"",61,0)"
^XMB(3.9,68,2,328,0)=" N ZTSAVE,ZTRTN,ZTDESC,ZTDTH,ZTIO"
^XMB(3.9,68,2,329,0)="""RTN"",""LR7OV0"",62,0)"
^XMB(3.9,68,2,330,0)=" S ZTSAVE(""TEST"")=TEST"
^XMB(3.9,68,2,331,0)="""RTN"",""LR7OV0"",63,0)"
^XMB(3.9,68,2,332,0)=" S ZTRTN=""TUPD^LR7OV0"""
^XMB(3.9,68,2,333,0)="""RTN"",""LR7OV0"",64,0)"
^XMB(3.9,68,2,334,0)=" S ZTDESC=""LABORATORY TEST FILE HL7 update message"""
^XMB(3.9,68,2,335,0)="""RTN"",""LR7OV0"",65,0)"
^XMB(3.9,68,2,336,0)=" S ZTDTH=$H"
^XMB(3.9,68,2,337,0)="""RTN"",""LR7OV0"",66,0)"
^XMB(3.9,68,2,338,0)=" S ZTIO="""""
^XMB(3.9,68,2,339,0)="""RTN"",""LR7OV0"",67,0)"
^XMB(3.9,68,2,340,0)=" D ^%ZTLOAD"
^XMB(3.9,68,2,341,0)="""RTN"",""LR7OV0"",68,0)"
^XMB(3.9,68,2,342,0)=" Q"
^XMB(3.9,68,2,343,0)="""RTN"",""LR7OV0"",69,0)"
^XMB(3.9,68,2,344,0)="TUPD ;Tasked update of record in Master file"
^XMB(3.9,68,2,345,0)="""RTN"",""LR7OV0"",70,0)"
^XMB(3.9,68,2,346,0)=" ;Added for patch LR*5.2*361"
^XMB(3.9,68,2,347,0)="""RTN"",""LR7OV0"",71,0)"
^XMB(3.9,68,2,348,0)=" N MFICODE,MFECODE S MFECODE=""MUP"",MFICODE=""UPD"" D SINGLE(TEST,MFICODE,MFECODE)"
^XMB(3.9,68,2,349,0)="""RTN"",""LR7OV0"",72,0)"
^XMB(3.9,68,2,350,0)=" Q"
^XMB(3.9,68,2,351,0)="""RTN"",""LR7OV0"",73,0)"
^XMB(3.9,68,2,352,0)="DEACT(TEST) ;Deactivate record in Master file"
^XMB(3.9,68,2,353,0)="""RTN"",""LR7OV0"",74,0)"
^XMB(3.9,68,2,354,0)=" N MFICODE,MFECODE S MFECODE=""MDC"",MFICODE=""UPD"" D SINGLE(TEST,MFICODE,MFECODE)"
^XMB(3.9,68,2,355,0)="""RTN"",""LR7OV0"",75,0)"
^XMB(3.9,68,2,356,0)=" Q"
^XMB(3.9,68,2,357,0)="""RTN"",""LR7OV0"",76,0)"
^XMB(3.9,68,2,358,0)="REACT(TEST) ;Reactivate record in Master file"
^XMB(3.9,68,2,359,0)="""RTN"",""LR7OV0"",77,0)"
^XMB(3.9,68,2,360,0)=" N MFICODE,MFECODE S MFECODE=""MAC"",MFICODE=""UPD"" D SINGLE(TEST,MFICODE,MFECODE)"
^XMB(3.9,68,2,361,0)="""RTN"",""LR7OV0"",78,0)"
^XMB(3.9,68,2,362,0)=" Q"
^XMB(3.9,68,2,363,0)="""RTN"",""LR7OV0"",79,0)"
^XMB(3.9,68,2,364,0)=" ;Following code added to support LR*5.2*357"
^XMB(3.9,68,2,365,0)="""RTN"",""LR7OV0"",80,0)"
^XMB(3.9,68,2,366,0)=" ;Following code modified to support LR*5.2*361"
^XMB(3.9,68,2,367,0)="""RTN"",""LR7OV0"",81,0)"
^XMB(3.9,68,2,368,0)=" ;Designed to help update the ORDERABLE ITEMS FILE (file 101.43) after the deletion"
^XMB(3.9,68,2,369,0)="""RTN"",""LR7OV0"",82,0)"
^XMB(3.9,68,2,370,0)=" ;of a SYNONYM from the LABORATORY TEST file (file 60)."
^XMB(3.9,68,2,371,0)="""RTN"",""LR7OV0"",83,0)"
^XMB(3.9,68,2,372,0)="UPD2(TEST,KSYN) ;Update record in Master file - Modified for LR*5.2*361"
^XMB(3.9,68,2,373,0)="""RTN"",""LR7OV0"",84,0)"
^XMB(3.9,68,2,374,0)=" ;TEST = IEN of lab test in file 60"
^XMB(3.9,68,2,375,0)="""RTN"",""LR7OV0"",85,0)"
^XMB(3.9,68,2,376,0)=" ;KSYN = IEN of synonym to be deleted from lab test in file 60"
^XMB(3.9,68,2,377,0)="""RTN"",""LR7OV0"",86,0)"
^XMB(3.9,68,2,378,0)=" ;Modified for LR*5.2*361"
^XMB(3.9,68,2,379,0)="""RTN"",""LR7OV0"",87,0)"
^XMB(3.9,68,2,380,0)=" N ZTSAVE,ZTRTN,ZTDESC,ZTDTH,ZTIO"
^XMB(3.9,68,2,381,0)="""RTN"",""LR7OV0"",88,0)"
^XMB(3.9,68,2,382,0)=" S ZTSAVE(""TEST"")=TEST"
^XMB(3.9,68,2,383,0)="""RTN"",""LR7OV0"",89,0)"
^XMB(3.9,68,2,384,0)=" S ZTSAVE(""KSYN"")=KSYN"
^XMB(3.9,68,2,385,0)="""RTN"",""LR7OV0"",90,0)"
^XMB(3.9,68,2,386,0)=" S ZTRTN=""TUPD2^LR7OV0"""
^XMB(3.9,68,2,387,0)="""RTN"",""LR7OV0"",91,0)"
^XMB(3.9,68,2,388,0)=" S ZTDESC=""LABORATORY TEST FILE HL7 update message"""
^XMB(3.9,68,2,389,0)="""RTN"",""LR7OV0"",92,0)"
^XMB(3.9,68,2,390,0)=" S ZTDTH=$H"
^XMB(3.9,68,2,391,0)="""RTN"",""LR7OV0"",93,0)"
^XMB(3.9,68,2,392,0)=" S ZTIO="""""
^XMB(3.9,68,2,393,0)="""RTN"",""LR7OV0"",94,0)"
^XMB(3.9,68,2,394,0)=" D ^%ZTLOAD"
^XMB(3.9,68,2,395,0)="""RTN"",""LR7OV0"",95,0)"
^XMB(3.9,68,2,396,0)=" Q"
^XMB(3.9,68,2,397,0)="""RTN"",""LR7OV0"",96,0)"
^XMB(3.9,68,2,398,0)="TUPD2 ;Update record in Master file"
^XMB(3.9,68,2,399,0)="""RTN"",""LR7OV0"",97,0)"
^XMB(3.9,68,2,400,0)=" ;TEST = IEN of lab test in file 60"
^XMB(3.9,68,2,401,0)="""RTN"",""LR7OV0"",98,0)"
^XMB(3.9,68,2,402,0)=" ;KSYN = IEN of synonym to be deleted from lab test in file 60"
^XMB(3.9,68,2,403,0)="""RTN"",""LR7OV0"",99,0)"
^XMB(3.9,68,2,404,0)=" N MFICODE,MFECODE S MFECODE=""MUP"",MFICODE=""UPD"" D SINGLE2(TEST,KSYN,MFICODE,MFECODE)"
^XMB(3.9,68,2,405,0)="""RTN"",""LR7OV0"",100,0)"
^XMB(3.9,68,2,406,0)=" Q"
^XMB(3.9,68,2,407,0)="""RTN"",""LR7OV0"",101,0)"
^XMB(3.9,68,2,408,0)="SINGLE2(TEST,KSYN,MFICODE,MFECODE) ;Message for a single test"
^XMB(3.9,68,2,409,0)="""RTN"",""LR7OV0"",102,0)"
^XMB(3.9,68,2,410,0)=" ;TEST = IEN of lab test in file 60"
^XMB(3.9,68,2,411,0)="""RTN"",""LR7OV0"",103,0)"
^XMB(3.9,68,2,412,0)=" ;KSYN = IEN of synonym to be deleted from lab test in file 60"
^XMB(3.9,68,2,413,0)="""RTN"",""LR7OV0"",104,0)"
^XMB(3.9,68,2,414,0)=" ;MFICODE = File Level Event Code"
^XMB(3.9,68,2,415,0)="""RTN"",""LR7OV0"",105,0)"
^XMB(3.9,68,2,416,0)=" ;MFECODE = Record Level Event Code"
^XMB(3.9,68,2,417,0)="""RTN"",""LR7OV0"",106,0)"
^XMB(3.9,68,2,418,0)=" N X,ORUPDMSG,MSG"
^XMB(3.9,68,2,419,0)="""RTN"",""LR7OV0"",107,0)"
^XMB(3.9,68,2,420,0)=" S MSG=""ORUPDMSG"",X=$$MSH^LR7OU0(""MFN""),ORUPDMSG(1)=X"
^XMB(3.9,68,2,421,0)="""RTN"",""LR7OV0"",108,0)"
^XMB(3.9,68,2,422,0)=" S X=$$MFI(MFICODE),ORUPDMSG(2)=X"
^XMB(3.9,68,2,423,0)="""RTN"",""LR7OV0"",109,0)"
^XMB(3.9,68,2,424,0)=" D TEST2(TEST,KSYN,2)"
^XMB(3.9,68,2,425,0)="""RTN"",""LR7OV0"",110,0)"
^XMB(3.9,68,2,426,0)=" I $D(ORUPDMSG(3)) S ORUPDMSG=""ORUPDMSG"" D MSG^XQOR(""LR7O ORDERABLE OR"",.ORUPDMSG) ;Send update message"
^XMB(3.9,68,2,427,0)="""RTN"",""LR7OV0"",111,0)"
^XMB(3.9,68,2,428,0)=" Q"
^XMB(3.9,68,2,429,0)="""RTN"",""LR7OV0"",112,0)"
^XMB(3.9,68,2,430,0)="TEST2(TEST,KSYN,ICNT) ;Process single test"
^XMB(3.9,68,2,431,0)="""RTN"",""LR7OV0"",113,0)"
^XMB(3.9,68,2,432,0)=" ;TEST = IEN of lab test in file 60"
^XMB(3.9,68,2,433,0)="""RTN"",""LR7OV0"",114,0)"
^XMB(3.9,68,2,434,0)=" ;KSYN = IEN of synonym to be deleted from lab test in file 60"
^XMB(3.9,68,2,435,0)="""RTN"",""LR7OV0"",115,0)"
^XMB(3.9,68,2,436,0)=" ;ICNT = Current counter in ORUPDMSG(ICNT)"
^XMB(3.9,68,2,437,0)="""RTN"",""LR7OV0"",116,0)"
^XMB(3.9,68,2,438,0)=" N TYPE,TESTID,IFN,IFN1,CTR,CTR1,GENW,X0,S0,SAMP,MAX,DMAX,COLLECT,SAMPLE,SPEC,SYN,COST,Y9,Y10,Y11"
^XMB(3.9,68,2,439,0)="""RTN"",""LR7OV0"",117,0)"
^XMB(3.9,68,2,440,0)=" Q:'$D(^LAB(60,TEST,0))  S X0=^(0),COST=$P(X0,""^"",11),SUB=$P(X0,""^"",4),TYPE=$P(X0,""^"",3),CTR1=0"
^XMB(3.9,68,2,441,0)="""RTN"",""LR7OV0"",118,0)"
^XMB(3.9,68,2,442,0)=" I $D(^LAB(60,TEST,6)) S (CTR,IFN)=0 F  S IFN=$O(^LAB(60,TEST,6,IFN)) Q:IFN<1  S CTR=CTR+1,GENW(CTR)=^(IFN,0)"
^XMB(3.9,68,2,443,0)="""RTN"",""LR7OV0"",119,0)"
^XMB(3.9,68,2,444,0)=" S (CTR,IFN)=0 F  S IFN=$O(^LAB(60,TEST,5,IFN)) Q:IFN<1  D"
^XMB(3.9,68,2,445,0)="""RTN"",""LR7OV0"",120,0)"
^XMB(3.9,68,2,446,0)=" . S:KSYN'=IFN CTR=CTR+1,SYN(CTR)=^LAB(60,TEST,5,IFN,0)"
^XMB(3.9,68,2,447,0)="""RTN"",""LR7OV0"",121,0)"
^XMB(3.9,68,2,448,0)=" S (Y9,Y10,Y11)="""" I $P($G(^LAB(60,TEST,64)),""^"") S Y9=$P(^(64),""^""),Y10=$P(^LAM(Y9,0),""^""),Y9=$P(^(0),""^"",2),Y11=""99NLT"""
^XMB(3.9,68,2,449,0)="""RTN"",""LR7OV0"",122,0)"
^XMB(3.9,68,2,450,0)=" D"
^XMB(3.9,68,2,451,0)="""RTN"",""LR7OV0"",123,0)"
^XMB(3.9,68,2,452,0)=" . S (COLLECT,SAMP,SPEC)=0,TESTID=$$UVID^LR7OU0(TEST,+SPEC,Y9,Y11,Y10,""ORUPDMSG""),ICNT=ICNT+1,ORUPDMSG(ICNT)=$$MFE(MFECODE,TESTID)"
^XMB(3.9,68,2,453,0)="""RTN"",""LR7OV0"",124,0)"
^XMB(3.9,68,2,454,0)=" . S ICNT=ICNT+1,ORUPDMSG(ICNT)=$$ZLR("""","""",CTR1,SUB,"""","""",COST,TYPE)"
^XMB(3.9,68,2,455,0)="""RTN"",""LR7OV0"",125,0)"
^XMB(3.9,68,2,456,0)=" . S IFN1=0 F  S IFN1=$O(^LAB(60,TEST,2,IFN1)) Q:IFN1<1  S X=^(IFN1,0) I $D(^LAB(60,+X,0)) D"
^XMB(3.9,68,2,457,0)="""RTN"",""LR7OV0"",126,0)"
^XMB(3.9,68,2,458,0)=" .. N Y9,Y10,Y11 S (Y9,Y10,Y11)="""" I $P($G(^LAB(60,+X,64)),""^"") S Y9=$P(^(64),""^""),Y10=$P(^LAM(Y9,0),""^""),Y9=$P(^(0),""^"",2),Y11=""99NLT"""
^XMB(3.9,68,2,459,0)="""RTN"",""LR7OV0"",127,0)"
^XMB(3.9,68,2,460,0)=" .. S SUBID=$$UVID^LR7OU0($P(X,""^""),"""",Y9,Y11,Y10,""ORUPDMSG""),ICNT=ICNT+1,ORUPDMSG(ICNT)=""ZLC||||""_SUBID"
^XMB(3.9,68,2,461,0)="""RTN"",""LR7OV0"",128,0)"
^XMB(3.9,68,2,462,0)=" . D ZSY(.SYN),NTE(.GENW,.WCOM)"
^XMB(3.9,68,2,463,0)="""RTN"",""LR7OV0"",129,0)"
^XMB(3.9,68,2,464,0)=" Q"
^XMB(3.9,68,2,465,0)="""VER"")"
^XMB(3.9,68,2,466,0)="8.0^22.0"
^XMB(3.9,68,2,467,0)="""BLD"",6857,6)"
^XMB(3.9,68,2,468,0)="^273"
^XMB(3.9,68,2,469,0)="$END KID LR*5.2*361"
^XMB(3.9,68,6,0)="^3.911A^2^2"
^XMB(3.9,68,6,1,0)="POSTMASTER"
^XMB(3.9,68,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,68,6,"B","POSTMASTER",1)=""
^XMB(3.9,68,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,69,0)="LR-5P2_SEQ-274_PAT-343.KID^.5^3061008.015738^^^^K"
^XMB(3.9,69,.6)="3061008"
^XMB(3.9,69,1,0)="^3.91A^2^2"
^XMB(3.9,69,1,1,0)=".5^0^3061008.015738^^^^^^^3061008.015738"
^XMB(3.9,69,1,2,0)="1^0^3061008.034424^^^^^^^3061008.023915"
^XMB(3.9,69,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,69,1,"C",.5,1)=""
^XMB(3.9,69,1,"C",1,2)=""
^XMB(3.9,69,2,0)="^^1989^1989^3061008"
^XMB(3.9,69,2,1,0)="$TXT Released LR*5.2*343 SEQ #274"
^XMB(3.9,69,2,2,0)="Extracted from mail message"
^XMB(3.9,69,2,3,0)="$END TXT"
^XMB(3.9,69,2,4,0)="$KID LR*5.2*343"
^XMB(3.9,69,2,5,0)="**INSTALL NAME**"
^XMB(3.9,69,2,6,0)="LR*5.2*343"
^XMB(3.9,69,2,7,0)="""BLD"",5928,0)"
^XMB(3.9,69,2,8,0)="LR*5.2*343^LAB SERVICE^0^3060620^y"
^XMB(3.9,69,2,9,0)="""BLD"",5928,1,0)"
^XMB(3.9,69,2,10,0)="^^304^304^3060620^"
^XMB(3.9,69,2,11,0)="""BLD"",5928,1,1,0)"
^XMB(3.9,69,2,12,0)="Blood Bank Team Coordination"
^XMB(3.9,69,2,13,0)="""BLD"",5928,1,2,0)"
^XMB(3.9,69,2,14,0)="============================"
^XMB(3.9,69,2,15,0)="""BLD"",5928,1,3,0)"
^XMB(3.9,69,2,16,0)="VISTA Laboratory Package patch LR*5.2*343 contains changes to software "
^XMB(3.9,69,2,17,0)="""BLD"",5928,1,4,0)"
^XMB(3.9,69,2,18,0)="controlled by VHA DIRECTIVE 2004-058, titled VISTA BLOOD BANK SOFTWARE. "
^XMB(3.9,69,2,19,0)="""BLD"",5928,1,5,0)"
^XMB(3.9,69,2,20,0)="Changes include: "
^XMB(3.9,69,2,21,0)="""BLD"",5928,1,6,0)"
^XMB(3.9,69,2,22,0)=" File #69.9 (Laboratory Site)"
^XMB(3.9,69,2,23,0)="""BLD"",5928,1,7,0)"
^XMB(3.9,69,2,24,0)="    Field #150.3 (CANCEL ON ADMIT) - Removed"
^XMB(3.9,69,2,25,0)="""BLD"",5928,1,8,0)"
^XMB(3.9,69,2,26,0)="    Field #150.4 (CANCEL ON DISCHARGE) - Removed"
^XMB(3.9,69,2,27,0)="""BLD"",5928,1,9,0)"
^XMB(3.9,69,2,28,0)="    Field #150.5 (CANCEL ON SPECIALTY TRANSFER) - Removed"
^XMB(3.9,69,2,29,0)="""BLD"",5928,1,10,0)"
^XMB(3.9,69,2,30,0)=" "
^XMB(3.9,69,2,31,0)="""BLD"",5928,1,11,0)"
^XMB(3.9,69,2,32,0)="All of the above changes have been reviewed by the VISTA Blood Bank "
^XMB(3.9,69,2,33,0)="""BLD"",5928,1,12,0)"
^XMB(3.9,69,2,34,0)="Developer and found to have no impact on the VISTA BLOOD BANK SOFTWARE "
^XMB(3.9,69,2,35,0)="""BLD"",5928,1,13,0)"
^XMB(3.9,69,2,36,0)="control functions."
^XMB(3.9,69,2,37,0)="""BLD"",5928,1,14,0)"
^XMB(3.9,69,2,38,0)=" "
^XMB(3.9,69,2,39,0)="""BLD"",5928,1,15,0)"
^XMB(3.9,69,2,40,0)="RISK ANALYSIS: Changes made by patch LR*5.2*343 have no effect on Blood "
^XMB(3.9,69,2,41,0)="""BLD"",5928,1,16,0)"
^XMB(3.9,69,2,42,0)="Bank software functionality, therefore RISK is none."
^XMB(3.9,69,2,43,0)="""BLD"",5928,1,17,0)"
^XMB(3.9,69,2,44,0)=" "
^XMB(3.9,69,2,45,0)="""BLD"",5928,1,18,0)"
^XMB(3.9,69,2,46,0)="EFFECT ON BLOOD BANK FUNCTIONAL REQUIREMENTS: Patch LR*5.2*343 does not "
^XMB(3.9,69,2,47,0)="""BLD"",5928,1,19,0)"
^XMB(3.9,69,2,48,0)="alter or modify any software design safeguards or safety critical "
^XMB(3.9,69,2,49,0)="""BLD"",5928,1,20,0)"
^XMB(3.9,69,2,50,0)="elements functions."
^XMB(3.9,69,2,51,0)="""BLD"",5928,1,21,0)"
^XMB(3.9,69,2,52,0)=" "
^XMB(3.9,69,2,53,0)="""BLD"",5928,1,22,0)"
^XMB(3.9,69,2,54,0)="POTENTIAL IMPACT ON SITES: This patch contains changes to 0 routines and "
^XMB(3.9,69,2,55,0)="""BLD"",5928,1,23,0)"
^XMB(3.9,69,2,56,0)="1 file identified in Veterans Health Administration (VHA) Directive "
^XMB(3.9,69,2,57,0)="""BLD"",5928,1,24,0)"
^XMB(3.9,69,2,58,0)="2004-058, group B listing. The changes have no effect on Blood Bank "
^XMB(3.9,69,2,59,0)="""BLD"",5928,1,25,0)"
^XMB(3.9,69,2,60,0)="functionality or medical device control functions. There is no adverse "
^XMB(3.9,69,2,61,0)="""BLD"",5928,1,26,0)"
^XMB(3.9,69,2,62,0)="potential to sites."
^XMB(3.9,69,2,63,0)="""BLD"",5928,1,27,0)"
^XMB(3.9,69,2,64,0)=" "
^XMB(3.9,69,2,65,0)="""BLD"",5928,1,28,0)"
^XMB(3.9,69,2,66,0)="VALIDATION REQUIREMENTS BY OPTION: "
^XMB(3.9,69,2,67,0)="""BLD"",5928,1,29,0)"
^XMB(3.9,69,2,68,0)="There are no validation requirements for this patch."
^XMB(3.9,69,2,69,0)="""BLD"",5928,1,30,0)"
^XMB(3.9,69,2,70,0)=" "
^XMB(3.9,69,2,71,0)="""BLD"",5928,1,31,0)"
^XMB(3.9,69,2,72,0)="MINIMAL TEST CASE SCENARIOS BY OPTION, INCLUSIVE OF ALL CONTROL FUNCTIONS:"
^XMB(3.9,69,2,73,0)="""BLD"",5928,1,32,0)"
^XMB(3.9,69,2,74,0)="There are no test case scenarios for this patch."
^XMB(3.9,69,2,75,0)="""BLD"",5928,1,33,0)"
^XMB(3.9,69,2,76,0)="************************************************************************"
^XMB(3.9,69,2,77,0)="""BLD"",5928,1,34,0)"
^XMB(3.9,69,2,78,0)=" "
^XMB(3.9,69,2,79,0)="""BLD"",5928,1,35,0)"
^XMB(3.9,69,2,80,0)="Remove the LABORATORY package's rules for managing laboratory order "
^XMB(3.9,69,2,81,0)="""BLD"",5928,1,36,0)"
^XMB(3.9,69,2,82,0)="auto-discontinuance on admission, transfer, or discharge events and let "
^XMB(3.9,69,2,83,0)="""BLD"",5928,1,37,0)"
^XMB(3.9,69,2,84,0)="the existing rules in the OERR (ORDER ENTRY RESULTS REPORTING) package "
^XMB(3.9,69,2,85,0)="""BLD"",5928,1,38,0)"
^XMB(3.9,69,2,86,0)="handle the order auto-discontinuance process."
^XMB(3.9,69,2,87,0)="""BLD"",5928,1,39,0)"
^XMB(3.9,69,2,88,0)=" "
^XMB(3.9,69,2,89,0)="""BLD"",5928,1,40,0)"
^XMB(3.9,69,2,90,0)="The LABORATORY package's process that is used to decide if an order "
^XMB(3.9,69,2,91,0)="""BLD"",5928,1,41,0)"
^XMB(3.9,69,2,92,0)="should be discontinued when a patient move event is triggered will be "
^XMB(3.9,69,2,93,0)="""BLD"",5928,1,42,0)"
^XMB(3.9,69,2,94,0)="disabled.  This business rule is already being handled by the OERR "
^XMB(3.9,69,2,95,0)="""BLD"",5928,1,43,0)"
^XMB(3.9,69,2,96,0)="package and the Lab's business rules do not perform all of the needed "
^XMB(3.9,69,2,97,0)="""BLD"",5928,1,44,0)"
^XMB(3.9,69,2,98,0)="checks that the OERR package performs.  For example, the Lab's process "
^XMB(3.9,69,2,99,0)="""BLD"",5928,1,45,0)"
^XMB(3.9,69,2,100,0)="does not check that a new movement is actually tied to the current "
^XMB(3.9,69,2,101,0)="""BLD"",5928,1,46,0)"
^XMB(3.9,69,2,102,0)="admission.  An edit of a patient movement can result in erroneous auto "
^XMB(3.9,69,2,103,0)="""BLD"",5928,1,47,0)"
^XMB(3.9,69,2,104,0)="discontinue of a patient's laboratory orders.  OERR also provides checks "
^XMB(3.9,69,2,105,0)="""BLD"",5928,1,48,0)"
^XMB(3.9,69,2,106,0)="in the software to establish whether the patient event is new or an edit "
^XMB(3.9,69,2,107,0)="""BLD"",5928,1,49,0)"
^XMB(3.9,69,2,108,0)="to an existing event."
^XMB(3.9,69,2,109,0)="""BLD"",5928,1,50,0)"
^XMB(3.9,69,2,110,0)=" "
^XMB(3.9,69,2,111,0)="""BLD"",5928,1,51,0)"
^XMB(3.9,69,2,112,0)="The Lab's process has caused erroneous auto discontinuance of laboratory "
^XMB(3.9,69,2,113,0)="""BLD"",5928,1,52,0)"
^XMB(3.9,69,2,114,0)="orders because it does not check if a new movement is actually tied to "
^XMB(3.9,69,2,115,0)="""BLD"",5928,1,53,0)"
^XMB(3.9,69,2,116,0)="the patient's current admission.  In the case outlined by the Patient "
^XMB(3.9,69,2,117,0)="""BLD"",5928,1,54,0)"
^XMB(3.9,69,2,118,0)="Safety Issue (PSI) report it appeared that a user deleted and re-entered "
^XMB(3.9,69,2,119,0)="""BLD"",5928,1,55,0)"
^XMB(3.9,69,2,120,0)="a movement for a prior admission to make a correction.  Since it was a "
^XMB(3.9,69,2,121,0)="""BLD"",5928,1,56,0)"
^XMB(3.9,69,2,122,0)="new movement the Lab code executed and the orders were discontinued.  "
^XMB(3.9,69,2,123,0)="""BLD"",5928,1,57,0)"
^XMB(3.9,69,2,124,0)="This problem would especially impact sites with patients that are "
^XMB(3.9,69,2,125,0)="""BLD"",5928,1,58,0)"
^XMB(3.9,69,2,126,0)="transferred from the acute hospital to the nursing home."
^XMB(3.9,69,2,127,0)="""BLD"",5928,1,59,0)"
^XMB(3.9,69,2,128,0)=" "
^XMB(3.9,69,2,129,0)="""BLD"",5928,1,60,0)"
^XMB(3.9,69,2,130,0)=" "
^XMB(3.9,69,2,131,0)="""BLD"",5928,1,61,0)"
^XMB(3.9,69,2,132,0)=" "
^XMB(3.9,69,2,133,0)="""BLD"",5928,1,62,0)"
^XMB(3.9,69,2,134,0)="Technical Description"
^XMB(3.9,69,2,135,0)="""BLD"",5928,1,63,0)"
^XMB(3.9,69,2,136,0)="====================="
^XMB(3.9,69,2,137,0)="""BLD"",5928,1,64,0)"
^XMB(3.9,69,2,138,0)="When the DGPM MOVEMENT EVENTS of the PROTOCOL file (#101) is triggered "
^XMB(3.9,69,2,139,0)="""BLD"",5928,1,65,0)"
^XMB(3.9,69,2,140,0)="the LR7O MOVEMENT EVENT protocol may be called (if it is an item of the "
^XMB(3.9,69,2,141,0)="""BLD"",5928,1,66,0)"
^XMB(3.9,69,2,142,0)="DGPM MOVEMENT EVENTS protocol).  In this situation the business rule "
^XMB(3.9,69,2,143,0)="""BLD"",5928,1,67,0)"
^XMB(3.9,69,2,144,0)="processing in the LABORATORY package fails to make all of the needed "
^XMB(3.9,69,2,145,0)="""BLD"",5928,1,68,0)"
^XMB(3.9,69,2,146,0)="checks to properly determine if the order should be discontinued.  If "
^XMB(3.9,69,2,147,0)="""BLD"",5928,1,69,0)"
^XMB(3.9,69,2,148,0)="Lab's logic discontinues the order there will be no order for OERR to "
^XMB(3.9,69,2,149,0)="""BLD"",5928,1,70,0)"
^XMB(3.9,69,2,150,0)="apply its more detailed set of business rules against when the OERR code "
^XMB(3.9,69,2,151,0)="""BLD"",5928,1,71,0)"
^XMB(3.9,69,2,152,0)="is called from the patient movement event."
^XMB(3.9,69,2,153,0)="""BLD"",5928,1,72,0)"
^XMB(3.9,69,2,154,0)=" "
^XMB(3.9,69,2,155,0)="""BLD"",5928,1,73,0)"
^XMB(3.9,69,2,156,0)="Lab will no longer perform any package-level checks for order "
^XMB(3.9,69,2,157,0)="""BLD"",5928,1,74,0)"
^XMB(3.9,69,2,158,0)="auto-discontinuance based on patient movements.  These checks will be "
^XMB(3.9,69,2,159,0)="""BLD"",5928,1,75,0)"
^XMB(3.9,69,2,160,0)="performed by the OERR package.  This change is accomplished by:"
^XMB(3.9,69,2,161,0)="""BLD"",5928,1,76,0)"
^XMB(3.9,69,2,162,0)=" "
^XMB(3.9,69,2,163,0)="""BLD"",5928,1,77,0)"
^XMB(3.9,69,2,164,0)="Deletion of PROTOCOL file (#101) entries:"
^XMB(3.9,69,2,165,0)="""BLD"",5928,1,78,0)"
^XMB(3.9,69,2,166,0)="         LR7O MOVEMENT EVENT and LR7O MOVEMENT EVENT TASK"
^XMB(3.9,69,2,167,0)="""BLD"",5928,1,79,0)"
^XMB(3.9,69,2,168,0)="Deletion of routine LR7OEVNT"
^XMB(3.9,69,2,169,0)="""BLD"",5928,1,80,0)"
^XMB(3.9,69,2,170,0)="Deletion of the following Data Dictionary for LABORATORY SITE file "
^XMB(3.9,69,2,171,0)="""BLD"",5928,1,81,0)"
^XMB(3.9,69,2,172,0)="(#69.9):"
^XMB(3.9,69,2,173,0)="""BLD"",5928,1,82,0)"
^XMB(3.9,69,2,174,0)="    CANCEL ON ADMIT field (#150.3)"
^XMB(3.9,69,2,175,0)="""BLD"",5928,1,83,0)"
^XMB(3.9,69,2,176,0)="    CANCEL ON DISCHARGE field (#150.4)"
^XMB(3.9,69,2,177,0)="""BLD"",5928,1,84,0)"
^XMB(3.9,69,2,178,0)="    CANCEL ON SPECIALTY TRANSFER field (#150.5)"
^XMB(3.9,69,2,179,0)="""BLD"",5928,1,85,0)"
^XMB(3.9,69,2,180,0)=" "
^XMB(3.9,69,2,181,0)="""BLD"",5928,1,86,0)"
^XMB(3.9,69,2,182,0)=" "
^XMB(3.9,69,2,183,0)="""BLD"",5928,1,87,0)"
^XMB(3.9,69,2,184,0)=" "
^XMB(3.9,69,2,185,0)="""BLD"",5928,1,88,0)"
^XMB(3.9,69,2,186,0)="New Service Request:"
^XMB(3.9,69,2,187,0)="""BLD"",5928,1,89,0)"
^XMB(3.9,69,2,188,0)="===================="
^XMB(3.9,69,2,189,0)="""BLD"",5928,1,90,0)"
^XMB(3.9,69,2,190,0)="#20050802 -- Remove Lab Package Options to DC Order on Patient Movement"
^XMB(3.9,69,2,191,0)="""BLD"",5928,1,91,0)"
^XMB(3.9,69,2,192,0)=" "
^XMB(3.9,69,2,193,0)="""BLD"",5928,1,92,0)"
^XMB(3.9,69,2,194,0)=" "
^XMB(3.9,69,2,195,0)="""BLD"",5928,1,93,0)"
^XMB(3.9,69,2,196,0)="Associated Remedy:"
^XMB(3.9,69,2,197,0)="""BLD"",5928,1,94,0)"
^XMB(3.9,69,2,198,0)="=================="
^XMB(3.9,69,2,199,0)="""BLD"",5928,1,95,0)"
^XMB(3.9,69,2,200,0)="HD0000000104211"
^XMB(3.9,69,2,201,0)="""BLD"",5928,1,96,0)"
^XMB(3.9,69,2,202,0)=" "
^XMB(3.9,69,2,203,0)="""BLD"",5928,1,97,0)"
^XMB(3.9,69,2,204,0)=" "
^XMB(3.9,69,2,205,0)="""BLD"",5928,1,98,0)"
^XMB(3.9,69,2,206,0)="Associated E3R:"
^XMB(3.9,69,2,207,0)="""BLD"",5928,1,99,0)"
^XMB(3.9,69,2,208,0)="==============="
^XMB(3.9,69,2,209,0)="""BLD"",5928,1,100,0)"
^XMB(3.9,69,2,210,0)="N/A"
^XMB(3.9,69,2,211,0)="""BLD"",5928,1,101,0)"
^XMB(3.9,69,2,212,0)=" "
^XMB(3.9,69,2,213,0)="""BLD"",5928,1,102,0)"
^XMB(3.9,69,2,214,0)=" "
^XMB(3.9,69,2,215,0)="""BLD"",5928,1,103,0)"
^XMB(3.9,69,2,216,0)="Associated PSI:"
^XMB(3.9,69,2,217,0)="""BLD"",5928,1,104,0)"
^XMB(3.9,69,2,218,0)="==============="
^XMB(3.9,69,2,219,0)="""BLD"",5928,1,105,0)"
^XMB(3.9,69,2,220,0)="PSI-05-068 "
^XMB(3.9,69,2,221,0)="""BLD"",5928,1,106,0)"
^XMB(3.9,69,2,222,0)=" "
^XMB(3.9,69,2,223,0)="""BLD"",5928,1,107,0)"
^XMB(3.9,69,2,224,0)=" "
^XMB(3.9,69,2,225,0)="""BLD"",5928,1,108,0)"
^XMB(3.9,69,2,226,0)="Test Sites"
^XMB(3.9,69,2,227,0)="""BLD"",5928,1,109,0)"
^XMB(3.9,69,2,228,0)="=========="
^XMB(3.9,69,2,229,0)="""BLD"",5928,1,110,0)"
^XMB(3.9,69,2,230,0)="DURHAM, NC -VAMC (Large site)"
^XMB(3.9,69,2,231,0)="""BLD"",5928,1,111,0)"
^XMB(3.9,69,2,232,0)="NORTHERN CALIFORNIA HCS (Large site) "
^XMB(3.9,69,2,233,0)="""BLD"",5928,1,112,0)"
^XMB(3.9,69,2,234,0)=" "
^XMB(3.9,69,2,235,0)="""BLD"",5928,1,113,0)"
^XMB(3.9,69,2,236,0)=" "
^XMB(3.9,69,2,237,0)="""BLD"",5928,1,114,0)"
^XMB(3.9,69,2,238,0)=" "
^XMB(3.9,69,2,239,0)="""BLD"",5928,1,115,0)"
^XMB(3.9,69,2,240,0)="ROUTINE SUMMARY"
^XMB(3.9,69,2,241,0)="""BLD"",5928,1,116,0)"
^XMB(3.9,69,2,242,0)="==============="
^XMB(3.9,69,2,243,0)="""BLD"",5928,1,117,0)"
^XMB(3.9,69,2,244,0)="  The following routines are included in this patch.  The second line"
^XMB(3.9,69,2,245,0)="""BLD"",5928,1,118,0)"
^XMB(3.9,69,2,246,0)="  of each of these routines now looks like:"
^XMB(3.9,69,2,247,0)="""BLD"",5928,1,119,0)"
^XMB(3.9,69,2,248,0)="      <tab> ;; 5.2;LAB SERVICE;<patch list>;Sep 27, 1994"
^XMB(3.9,69,2,249,0)="""BLD"",5928,1,120,0)"
^XMB(3.9,69,2,250,0)=" "
^XMB(3.9,69,2,251,0)="""BLD"",5928,1,121,0)"
^XMB(3.9,69,2,252,0)="                  Checksum       Checksum"
^XMB(3.9,69,2,253,0)="""BLD"",5928,1,122,0)"
^XMB(3.9,69,2,254,0)=" Routine Name     Before Patch   After Patch    Patch List"
^XMB(3.9,69,2,255,0)="""BLD"",5928,1,123,0)"
^XMB(3.9,69,2,256,0)="     LR343        N/A            12851791       343"
^XMB(3.9,69,2,257,0)="""BLD"",5928,1,124,0)"
^XMB(3.9,69,2,258,0)="     LR7OEVNT     5021306        deleted by KIDS"
^XMB(3.9,69,2,259,0)="""BLD"",5928,1,125,0)"
^XMB(3.9,69,2,260,0)=" "
^XMB(3.9,69,2,261,0)="""BLD"",5928,1,126,0)"
^XMB(3.9,69,2,262,0)="     Routines deleted by KIDS: LR343,LR70EVNT"
^XMB(3.9,69,2,263,0)="""BLD"",5928,1,127,0)"
^XMB(3.9,69,2,264,0)="     List of preceding patches: n/a"
^XMB(3.9,69,2,265,0)="""BLD"",5928,1,128,0)"
^XMB(3.9,69,2,266,0)="     Sites should use CHECK^XTSUMBLD to verify checksums."
^XMB(3.9,69,2,267,0)="""BLD"",5928,1,129,0)"
^XMB(3.9,69,2,268,0)=" "
^XMB(3.9,69,2,269,0)="""BLD"",5928,1,130,0)"
^XMB(3.9,69,2,270,0)=" "
^XMB(3.9,69,2,271,0)="""BLD"",5928,1,131,0)"
^XMB(3.9,69,2,272,0)="PROTOCOLS"
^XMB(3.9,69,2,273,0)="""BLD"",5928,1,132,0)"
^XMB(3.9,69,2,274,0)="    LR7O MOVEMENT EVENT  (deleted)"
^XMB(3.9,69,2,275,0)="""BLD"",5928,1,133,0)"
^XMB(3.9,69,2,276,0)="    LR7O MOVEMENT EVENT TASK  (deleted)"
^XMB(3.9,69,2,277,0)="""BLD"",5928,1,134,0)"
^XMB(3.9,69,2,278,0)=" "
^XMB(3.9,69,2,279,0)="""BLD"",5928,1,135,0)"
^XMB(3.9,69,2,280,0)=" "
^XMB(3.9,69,2,281,0)="""BLD"",5928,1,136,0)"
^XMB(3.9,69,2,282,0)="DATA DICTIONARIES"
^XMB(3.9,69,2,283,0)="""BLD"",5928,1,137,0)"
^XMB(3.9,69,2,284,0)="    LABORATORY SITE file (#69.9)"
^XMB(3.9,69,2,285,0)="""BLD"",5928,1,138,0)"
^XMB(3.9,69,2,286,0)="        CANCEL ON ADMIT field (#150.3)  (deleted)"
^XMB(3.9,69,2,287,0)="""BLD"",5928,1,139,0)"
^XMB(3.9,69,2,288,0)="        CANCEL ON DISCHARGE field (#150.4)  (deleted)"
^XMB(3.9,69,2,289,0)="""BLD"",5928,1,140,0)"
^XMB(3.9,69,2,290,0)="        CANCEL ON SPECIALTY TRANSFER field (#150.5)  (deleted)"
^XMB(3.9,69,2,291,0)="""BLD"",5928,1,141,0)"
^XMB(3.9,69,2,292,0)=" "
^XMB(3.9,69,2,293,0)="""BLD"",5928,1,142,0)"
^XMB(3.9,69,2,294,0)=" "
^XMB(3.9,69,2,295,0)="""BLD"",5928,1,143,0)"
^XMB(3.9,69,2,296,0)="INSTALLATION INSTRUCTIONS"
^XMB(3.9,69,2,297,0)="""BLD"",5928,1,144,0)"
^XMB(3.9,69,2,298,0)="========================="
^XMB(3.9,69,2,299,0)="""BLD"",5928,1,145,0)"
^XMB(3.9,69,2,300,0)=" "
^XMB(3.9,69,2,301,0)="""BLD"",5928,1,146,0)"
^XMB(3.9,69,2,302,0)="  The install time for this patch is approximately 6 minutes."
^XMB(3.9,69,2,303,0)="""BLD"",5928,1,147,0)"
^XMB(3.9,69,2,304,0)="  Suggested time to install: non-peak requirement hours."
^XMB(3.9,69,2,305,0)="""BLD"",5928,1,148,0)"
^XMB(3.9,69,2,306,0)="  This patch can be installed when Laboratory users are on the system."
^XMB(3.9,69,2,307,0)="""BLD"",5928,1,149,0)"
^XMB(3.9,69,2,308,0)=" "
^XMB(3.9,69,2,309,0)="""BLD"",5928,1,150,0)"
^XMB(3.9,69,2,310,0)=" "
^XMB(3.9,69,2,311,0)="""BLD"",5928,1,151,0)"
^XMB(3.9,69,2,312,0)="                     I  M  P  O  R  T  A  N  T"
^XMB(3.9,69,2,313,0)="""BLD"",5928,1,152,0)"
^XMB(3.9,69,2,314,0)="                   ============================="
^XMB(3.9,69,2,315,0)="""BLD"",5928,1,153,0)"
^XMB(3.9,69,2,316,0)="                 THIS INSTALLATION MUST BE QUEUED"
^XMB(3.9,69,2,317,0)="""BLD"",5928,1,154,0)"
^XMB(3.9,69,2,318,0)=" "
^XMB(3.9,69,2,319,0)="""BLD"",5928,1,155,0)"
^XMB(3.9,69,2,320,0)=" "
^XMB(3.9,69,2,321,0)="""BLD"",5928,1,156,0)"
^XMB(3.9,69,2,322,0)="  NOTE: Kernel patches must be current on the target system to avoid"
^XMB(3.9,69,2,323,0)="""BLD"",5928,1,157,0)"
^XMB(3.9,69,2,324,0)="        problems loading and/or installing this patch."
^XMB(3.9,69,2,325,0)="""BLD"",5928,1,158,0)"
^XMB(3.9,69,2,326,0)=" "
^XMB(3.9,69,2,327,0)="""BLD"",5928,1,159,0)"
^XMB(3.9,69,2,328,0)="      Patch installation needs to be coordinated with the Laboratory"
^XMB(3.9,69,2,329,0)="""BLD"",5928,1,160,0)"
^XMB(3.9,69,2,330,0)="      Information Manager (LIM/ADPAC)."
^XMB(3.9,69,2,331,0)="""BLD"",5928,1,161,0)"
^XMB(3.9,69,2,332,0)=" "
^XMB(3.9,69,2,333,0)="""BLD"",5928,1,162,0)"
^XMB(3.9,69,2,334,0)=" "
^XMB(3.9,69,2,335,0)="""BLD"",5928,1,163,0)"
^XMB(3.9,69,2,336,0)="  1.  Use the 'INSTALL/CHECK MESSAGE' option of the PackMan menu.  This"
^XMB(3.9,69,2,337,0)="""BLD"",5928,1,164,0)"
^XMB(3.9,69,2,338,0)="      option will load the KIDS patch onto your system."
^XMB(3.9,69,2,339,0)="""BLD"",5928,1,165,0)"
^XMB(3.9,69,2,340,0)=" "
^XMB(3.9,69,2,341,0)="""BLD"",5928,1,166,0)"
^XMB(3.9,69,2,342,0)="  2.  On the 'Kernel Installation & Distribution System' Menu (KIDS),"
^XMB(3.9,69,2,343,0)="""BLD"",5928,1,167,0)"
^XMB(3.9,69,2,344,0)="      select the 'Installation' menu."
^XMB(3.9,69,2,345,0)="""BLD"",5928,1,168,0)"
^XMB(3.9,69,2,346,0)=" "
^XMB(3.9,69,2,347,0)="""BLD"",5928,1,169,0)"
^XMB(3.9,69,2,348,0)="  3.  Use the 'Verify Checksum in Transport Global' option and verify"
^XMB(3.9,69,2,349,0)="""BLD"",5928,1,170,0)"
^XMB(3.9,69,2,350,0)="      that all routines have the correct checksums."
^XMB(3.9,69,2,351,0)="""BLD"",5928,1,171,0)"
^XMB(3.9,69,2,352,0)=" "
^XMB(3.9,69,2,353,0)="""BLD"",5928,1,172,0)"
^XMB(3.9,69,2,354,0)="  4.  On the KIDS menu, under the 'Installation' menu, use the following"
^XMB(3.9,69,2,355,0)="""BLD"",5928,1,173,0)"
^XMB(3.9,69,2,356,0)="      options:"
^XMB(3.9,69,2,357,0)="""BLD"",5928,1,174,0)"
^XMB(3.9,69,2,358,0)="        Print Transport Global"
^XMB(3.9,69,2,359,0)="""BLD"",5928,1,175,0)"
^XMB(3.9,69,2,360,0)="        Compare Transport Global to Current System"
^XMB(3.9,69,2,361,0)="""BLD"",5928,1,176,0)"
^XMB(3.9,69,2,362,0)="        Backup a Transport Global"
^XMB(3.9,69,2,363,0)="""BLD"",5928,1,177,0)"
^XMB(3.9,69,2,364,0)=" "
^XMB(3.9,69,2,365,0)="""BLD"",5928,1,178,0)"
^XMB(3.9,69,2,366,0)="  5.  Use the 'Install Package(s)' option under the 'Installation' menu"
^XMB(3.9,69,2,367,0)="""BLD"",5928,1,179,0)"
^XMB(3.9,69,2,368,0)="      and select the package 'LR*5.2*343*'"
^XMB(3.9,69,2,369,0)="""BLD"",5928,1,180,0)"
^XMB(3.9,69,2,370,0)=" "
^XMB(3.9,69,2,371,0)="""BLD"",5928,1,181,0)"
^XMB(3.9,69,2,372,0)="      If prompted ""Want KIDS to Rebuild Menu Trees Upon Completion of"
^XMB(3.9,69,2,373,0)="""BLD"",5928,1,182,0)"
^XMB(3.9,69,2,374,0)="      Install?"" choose ""NO"".  Note: Responding ""Yes"" to the prompt for"
^XMB(3.9,69,2,375,0)="""BLD"",5928,1,183,0)"
^XMB(3.9,69,2,376,0)="      rebuilding menu trees can significantly increase install time."
^XMB(3.9,69,2,377,0)="""BLD"",5928,1,184,0)"
^XMB(3.9,69,2,378,0)=" "
^XMB(3.9,69,2,379,0)="""BLD"",5928,1,185,0)"
^XMB(3.9,69,2,380,0)="      If prompted ""Want KIDS to INHIBIT LOGONs during the install?"""
^XMB(3.9,69,2,381,0)="""BLD"",5928,1,186,0)"
^XMB(3.9,69,2,382,0)="      choose ""NO""."
^XMB(3.9,69,2,383,0)="""BLD"",5928,1,187,0)"
^XMB(3.9,69,2,384,0)=" "
^XMB(3.9,69,2,385,0)="""BLD"",5928,1,188,0)"
^XMB(3.9,69,2,386,0)="      If prompted ""Want to DISABLE Scheduled Options, Menu Options, and"
^XMB(3.9,69,2,387,0)="""BLD"",5928,1,189,0)"
^XMB(3.9,69,2,388,0)="      Protocols? YES//"" choose ""NO"" unless the site has additional local"
^XMB(3.9,69,2,389,0)="""BLD"",5928,1,190,0)"
^XMB(3.9,69,2,390,0)="      laboratory options that should be disabled during install."
^XMB(3.9,69,2,391,0)="""BLD"",5928,1,191,0)"
^XMB(3.9,69,2,392,0)=" "
^XMB(3.9,69,2,393,0)="""BLD"",5928,1,192,0)"
^XMB(3.9,69,2,394,0)="  6.  When prompted for the DEVICE, enter ""Q"" to queue the build.  If you"
^XMB(3.9,69,2,395,0)="""BLD"",5928,1,193,0)"
^XMB(3.9,69,2,396,0)="      do not queue the installation KIDS will abort the install.  When"
^XMB(3.9,69,2,397,0)="""BLD"",5928,1,194,0)"
^XMB(3.9,69,2,398,0)="      you try to restart the install you may encounter an <UNDEF> error"
^XMB(3.9,69,2,399,0)="""BLD"",5928,1,195,0)"
^XMB(3.9,69,2,400,0)="      due to a bug in KIDS.  If this happens you will need to use FileMan"
^XMB(3.9,69,2,401,0)="""BLD"",5928,1,196,0)"
^XMB(3.9,69,2,402,0)="      to modify the INSTALL file (#9.7) for entry LR*5.2*343 which "
^XMB(3.9,69,2,403,0)="""BLD"",5928,1,197,0)"
^XMB(3.9,69,2,404,0)="      currently has the status of ""Start of Install"" and set its' STATUS "
^XMB(3.9,69,2,405,0)="""BLD"",5928,1,198,0)"
^XMB(3.9,69,2,406,0)="      field to ""Install Completed"".  Reload the transport global and "
^XMB(3.9,69,2,407,0)="""BLD"",5928,1,199,0)"
^XMB(3.9,69,2,408,0)="      install the patch again. "
^XMB(3.9,69,2,409,0)="""BLD"",5928,1,200,0)"
^XMB(3.9,69,2,410,0)=" "
^XMB(3.9,69,2,411,0)="""BLD"",5928,1,201,0)"
^XMB(3.9,69,2,412,0)="  7.  Check your system for errors which may have occurred during the "
^XMB(3.9,69,2,413,0)="""BLD"",5928,1,202,0)"
^XMB(3.9,69,2,414,0)="      time this patch was installed.  If the PROTOCOL DGPM MOVEMENT "
^XMB(3.9,69,2,415,0)="""BLD"",5928,1,203,0)"
^XMB(3.9,69,2,416,0)="      EVENTS was called during this patch installation, system errors "
^XMB(3.9,69,2,417,0)="""BLD"",5928,1,204,0)"
^XMB(3.9,69,2,418,0)="      (such as ""Can't return to source"" for routine LR7OEVNT) may have "
^XMB(3.9,69,2,419,0)="""BLD"",5928,1,205,0)"
^XMB(3.9,69,2,420,0)="      been generated.  If so, those patient movements will have to be re-"
^XMB(3.9,69,2,421,0)="""BLD"",5928,1,206,0)"
^XMB(3.9,69,2,422,0)="      created. "
^XMB(3.9,69,2,423,0)="""BLD"",5928,1,207,0)"
^XMB(3.9,69,2,424,0)=" "
^XMB(3.9,69,2,425,0)="""BLD"",5928,1,208,0)"
^XMB(3.9,69,2,426,0)=" "
^XMB(3.9,69,2,427,0)="""BLD"",5928,1,209,0)"
^XMB(3.9,69,2,428,0)="INSTALLATION EXAMPLE"
^XMB(3.9,69,2,429,0)="""BLD"",5928,1,210,0)"
^XMB(3.9,69,2,430,0)="===================="
^XMB(3.9,69,2,431,0)="""BLD"",5928,1,211,0)"
^XMB(3.9,69,2,432,0)=" "
^XMB(3.9,69,2,433,0)="""BLD"",5928,1,212,0)"
^XMB(3.9,69,2,434,0)="Select Installation Option:  Install Package(s)"
^XMB(3.9,69,2,435,0)="""BLD"",5928,1,213,0)"
^XMB(3.9,69,2,436,0)="Select INSTALL NAME:    LR*5.2*343     Loaded from Distribution  "
^XMB(3.9,69,2,437,0)="""BLD"",5928,1,214,0)"
^XMB(3.9,69,2,438,0)="10/20/05@12:39:58"
^XMB(3.9,69,2,439,0)="""BLD"",5928,1,215,0)"
^XMB(3.9,69,2,440,0)="     => LR343 KIDS  ;Created on Oct 20, 2005@11:59:59"
^XMB(3.9,69,2,441,0)="""BLD"",5928,1,216,0)"
^XMB(3.9,69,2,442,0)=" "
^XMB(3.9,69,2,443,0)="""BLD"",5928,1,217,0)"
^XMB(3.9,69,2,444,0)="This Distribution was loaded on Oct 20, 2005@12:39:58 with header of "
^XMB(3.9,69,2,445,0)="""BLD"",5928,1,218,0)"
^XMB(3.9,69,2,446,0)="   LR343 KIDS  ;Created on Oct 20, 2005@11:59:59"
^XMB(3.9,69,2,447,0)="""BLD"",5928,1,219,0)"
^XMB(3.9,69,2,448,0)="   It consisted of the following Install(s):"
^XMB(3.9,69,2,449,0)="""BLD"",5928,1,220,0)"
^XMB(3.9,69,2,450,0)="     LR*5.2*343"
^XMB(3.9,69,2,451,0)="""BLD"",5928,1,221,0)"
^XMB(3.9,69,2,452,0)="Checking Install for Package LR*5.2*343"
^XMB(3.9,69,2,453,0)="""BLD"",5928,1,222,0)"
^XMB(3.9,69,2,454,0)="Will first run the Environment Check Routine, LR343"
^XMB(3.9,69,2,455,0)="""BLD"",5928,1,223,0)"
^XMB(3.9,69,2,456,0)=" "
^XMB(3.9,69,2,457,0)="""BLD"",5928,1,224,0)"
^XMB(3.9,69,2,458,0)="                Environment is okay "
^XMB(3.9,69,2,459,0)="""BLD"",5928,1,225,0)"
^XMB(3.9,69,2,460,0)=" "
^XMB(3.9,69,2,461,0)="""BLD"",5928,1,226,0)"
^XMB(3.9,69,2,462,0)="Install Questions for LR*5.2*343"
^XMB(3.9,69,2,463,0)="""BLD"",5928,1,227,0)"
^XMB(3.9,69,2,464,0)=" "
^XMB(3.9,69,2,465,0)="""BLD"",5928,1,228,0)"
^XMB(3.9,69,2,466,0)="Want KIDS to INHIBIT LOGONs during the install? NO// "
^XMB(3.9,69,2,467,0)="""BLD"",5928,1,229,0)"
^XMB(3.9,69,2,468,0)=" "
^XMB(3.9,69,2,469,0)="""BLD"",5928,1,230,0)"
^XMB(3.9,69,2,470,0)="Enter the Device you want to print the Install messages."
^XMB(3.9,69,2,471,0)="""BLD"",5928,1,231,0)"
^XMB(3.9,69,2,472,0)="You can queue the install by enter a 'Q' at the device prompt."
^XMB(3.9,69,2,473,0)="""BLD"",5928,1,232,0)"
^XMB(3.9,69,2,474,0)="Enter a '^' to abort the install."
^XMB(3.9,69,2,475,0)="""BLD"",5928,1,233,0)"
^XMB(3.9,69,2,476,0)=" "
^XMB(3.9,69,2,477,0)="""BLD"",5928,1,234,0)"
^XMB(3.9,69,2,478,0)="DEVICE: HOME// QUEUE TO PRINT ON"
^XMB(3.9,69,2,479,0)="""BLD"",5928,1,235,0)"
^XMB(3.9,69,2,480,0)="DEVICE: HOME// P-MAIN"
^XMB(3.9,69,2,481,0)="""BLD"",5928,1,236,0)"
^XMB(3.9,69,2,482,0)=" "
^XMB(3.9,69,2,483,0)="""BLD"",5928,1,237,0)"
^XMB(3.9,69,2,484,0)="Request Start Time: Oct 20, 2005@12:42:41//   (OCT 20, 2005@12:42:41)"
^XMB(3.9,69,2,485,0)="""BLD"",5928,1,238,0)"
^XMB(3.9,69,2,486,0)="Install Queued!"
^XMB(3.9,69,2,487,0)="""BLD"",5928,1,239,0)"
^XMB(3.9,69,2,488,0)=" "
^XMB(3.9,69,2,489,0)="""BLD"",5928,1,240,0)"
^XMB(3.9,69,2,490,0)=" "
^XMB(3.9,69,2,491,0)="""BLD"",5928,1,241,0)"
^XMB(3.9,69,2,492,0)=" "
^XMB(3.9,69,2,493,0)="""BLD"",5928,1,242,0)"
^XMB(3.9,69,2,494,0)="Sample Installation Output"
^XMB(3.9,69,2,495,0)="""BLD"",5928,1,243,0)"
^XMB(3.9,69,2,496,0)="=========================="
^XMB(3.9,69,2,497,0)="""BLD"",5928,1,244,0)"
^XMB(3.9,69,2,498,0)=" "
^XMB(3.9,69,2,499,0)="""BLD"",5928,1,245,0)"
^XMB(3.9,69,2,500,0)="Install Started for LR*5.2*343 : "
^XMB(3.9,69,2,501,0)="""BLD"",5928,1,246,0)"
^XMB(3.9,69,2,502,0)="       Oct 20, 2005@12:42:42"
^XMB(3.9,69,2,503,0)="""BLD"",5928,1,247,0)"
^XMB(3.9,69,2,504,0)=" "
^XMB(3.9,69,2,505,0)="""BLD"",5928,1,248,0)"
^XMB(3.9,69,2,506,0)="Build Distribution Date: Oct 20, 2005"
^XMB(3.9,69,2,507,0)="""BLD"",5928,1,249,0)"
^XMB(3.9,69,2,508,0)=" "
^XMB(3.9,69,2,509,0)="""BLD"",5928,1,250,0)"
^XMB(3.9,69,2,510,0)=" Installing Routines:..."
^XMB(3.9,69,2,511,0)="""BLD"",5928,1,251,0)"
^XMB(3.9,69,2,512,0)="       Oct 20, 2005@12:42:42"
^XMB(3.9,69,2,513,0)="""BLD"",5928,1,252,0)"
^XMB(3.9,69,2,514,0)=" "
^XMB(3.9,69,2,515,0)="""BLD"",5928,1,253,0)"
^XMB(3.9,69,2,516,0)=" Running Pre-Install Routine: PRE^LR343."
^XMB(3.9,69,2,517,0)="""BLD"",5928,1,254,0)"
^XMB(3.9,69,2,518,0)=" "
^XMB(3.9,69,2,519,0)="""BLD"",5928,1,255,0)"
^XMB(3.9,69,2,520,0)="       Pre install started at Oct 20, 2005@12:42:42"
^XMB(3.9,69,2,521,0)="""BLD"",5928,1,256,0)"
^XMB(3.9,69,2,522,0)=" "
^XMB(3.9,69,2,523,0)="""BLD"",5928,1,257,0)"
^XMB(3.9,69,2,524,0)="      Sent install started alert to mail group G.LMI"
^XMB(3.9,69,2,525,0)="""BLD"",5928,1,258,0)"
^XMB(3.9,69,2,526,0)=" "
^XMB(3.9,69,2,527,0)="""BLD"",5928,1,259,0)"
^XMB(3.9,69,2,528,0)="      Setting DISABLE and ACTION fields for Protocols"
^XMB(3.9,69,2,529,0)="""BLD"",5928,1,260,0)"
^XMB(3.9,69,2,530,0)=" "
^XMB(3.9,69,2,531,0)="""BLD"",5928,1,261,0)"
^XMB(3.9,69,2,532,0)="            No actions required for pre install"
^XMB(3.9,69,2,533,0)="""BLD"",5928,1,262,0)"
^XMB(3.9,69,2,534,0)=" "
^XMB(3.9,69,2,535,0)="""BLD"",5928,1,263,0)"
^XMB(3.9,69,2,536,0)="      Pre install completed at Oct 20, 2005@12:47:42"
^XMB(3.9,69,2,537,0)="""BLD"",5928,1,264,0)"
^XMB(3.9,69,2,538,0)=" "
^XMB(3.9,69,2,539,0)="""BLD"",5928,1,265,0)"
^XMB(3.9,69,2,540,0)=" Installing PACKAGE COMPONENTS: "
^XMB(3.9,69,2,541,0)="""BLD"",5928,1,266,0)"
^XMB(3.9,69,2,542,0)=" "
^XMB(3.9,69,2,543,0)="""BLD"",5928,1,267,0)"
^XMB(3.9,69,2,544,0)=" Installing PROTOCOL..."
^XMB(3.9,69,2,545,0)="""BLD"",5928,1,268,0)"
^XMB(3.9,69,2,546,0)="               Oct 20, 2005@12:47:42"
^XMB(3.9,69,2,547,0)="""BLD"",5928,1,269,0)"
^XMB(3.9,69,2,548,0)=" "
^XMB(3.9,69,2,549,0)="""BLD"",5928,1,270,0)"
^XMB(3.9,69,2,550,0)=" Running Post-Install Routine: POST^LR343."
^XMB(3.9,69,2,551,0)="""BLD"",5928,1,271,0)"
^XMB(3.9,69,2,552,0)=" "
^XMB(3.9,69,2,553,0)="""BLD"",5928,1,272,0)"
^XMB(3.9,69,2,554,0)="       Post install started at Oct 20, 2005@12:47:42"
^XMB(3.9,69,2,555,0)="""BLD"",5928,1,273,0)"
^XMB(3.9,69,2,556,0)=" "
^XMB(3.9,69,2,557,0)="""BLD"",5928,1,274,0)"
^XMB(3.9,69,2,558,0)="            File #69.9 field data update started"
^XMB(3.9,69,2,559,0)="""BLD"",5928,1,275,0)"
^XMB(3.9,69,2,560,0)=" "
^XMB(3.9,69,2,561,0)="""BLD"",5928,1,276,0)"
^XMB(3.9,69,2,562,0)="           File #69.9 field data deletion finished"
^XMB(3.9,69,2,563,0)="""BLD"",5928,1,277,0)"
^XMB(3.9,69,2,564,0)=" "
^XMB(3.9,69,2,565,0)="""BLD"",5928,1,278,0)"
^XMB(3.9,69,2,566,0)="  Post install completed at Oct 20, 2005@12:47:42"
^XMB(3.9,69,2,567,0)="""BLD"",5928,1,279,0)"
^XMB(3.9,69,2,568,0)=" "
^XMB(3.9,69,2,569,0)="""BLD"",5928,1,280,0)"
^XMB(3.9,69,2,570,0)="     Sending install completion alert to mail group G.LMI"
^XMB(3.9,69,2,571,0)="""BLD"",5928,1,281,0)"
^XMB(3.9,69,2,572,0)=" "
^XMB(3.9,69,2,573,0)="""BLD"",5928,1,282,0)"
^XMB(3.9,69,2,574,0)=" Updating Routine file......"
^XMB(3.9,69,2,575,0)="""BLD"",5928,1,283,0)"
^XMB(3.9,69,2,576,0)=" "
^XMB(3.9,69,2,577,0)="""BLD"",5928,1,284,0)"
^XMB(3.9,69,2,578,0)=" Updating KIDS files......."
^XMB(3.9,69,2,579,0)="""BLD"",5928,1,285,0)"
^XMB(3.9,69,2,580,0)=" "
^XMB(3.9,69,2,581,0)="""BLD"",5928,1,286,0)"
^XMB(3.9,69,2,582,0)=" LR*5.2*343 Installed. "
^XMB(3.9,69,2,583,0)="""BLD"",5928,1,287,0)"
^XMB(3.9,69,2,584,0)="               Oct 20, 2005@12:47:42"
^XMB(3.9,69,2,585,0)="""BLD"",5928,1,288,0)"
^XMB(3.9,69,2,586,0)=" "
^XMB(3.9,69,2,587,0)="""BLD"",5928,1,289,0)"
^XMB(3.9,69,2,588,0)=" Install Message sent"
^XMB(3.9,69,2,589,0)="""BLD"",5928,1,290,0)"
^XMB(3.9,69,2,590,0)=" "
^XMB(3.9,69,2,591,0)="""BLD"",5928,1,291,0)"
^XMB(3.9,69,2,592,0)=" "
^XMB(3.9,69,2,593,0)="""BLD"",5928,1,292,0)"
^XMB(3.9,69,2,594,0)=" "
^XMB(3.9,69,2,595,0)="""BLD"",5928,1,293,0)"
^XMB(3.9,69,2,596,0)="Sample MailMan Message"
^XMB(3.9,69,2,597,0)="""BLD"",5928,1,294,0)"
^XMB(3.9,69,2,598,0)="======================"
^XMB(3.9,69,2,599,0)="""BLD"",5928,1,295,0)"
^XMB(3.9,69,2,600,0)="Pre install started at Oct 20, 2005@12:48:15"
^XMB(3.9,69,2,601,0)="""BLD"",5928,1,296,0)"
^XMB(3.9,69,2,602,0)="Sent install started alert to mail group G.LMI"
^XMB(3.9,69,2,603,0)="""BLD"",5928,1,297,0)"
^XMB(3.9,69,2,604,0)="Setting DISABLE and ACTION fields for Protocols"
^XMB(3.9,69,2,605,0)="""BLD"",5928,1,298,0)"
^XMB(3.9,69,2,606,0)="No actions required for pre install"
^XMB(3.9,69,2,607,0)="""BLD"",5928,1,299,0)"
^XMB(3.9,69,2,608,0)="Pre install completed at Oct 20, 2005@12:48:55"
^XMB(3.9,69,2,609,0)="""BLD"",5928,1,300,0)"
^XMB(3.9,69,2,610,0)="Post install started at Oct 20, 2005@12:53:59"
^XMB(3.9,69,2,611,0)="""BLD"",5928,1,301,0)"
^XMB(3.9,69,2,612,0)="File #69.9 field data update started"
^XMB(3.9,69,2,613,0)="""BLD"",5928,1,302,0)"
^XMB(3.9,69,2,614,0)="File #69.9 field data deletion finished"
^XMB(3.9,69,2,615,0)="""BLD"",5928,1,303,0)"
^XMB(3.9,69,2,616,0)="Post install completed at Oct 20, 2005@12:54:45"
^XMB(3.9,69,2,617,0)="""BLD"",5928,1,304,0)"
^XMB(3.9,69,2,618,0)="Sending install completion alert to mail group G.LMI"
^XMB(3.9,69,2,619,0)="""BLD"",5928,4,0)"
^XMB(3.9,69,2,620,0)="^9.64PA^^0"
^XMB(3.9,69,2,621,0)="""BLD"",5928,6.3)"
^XMB(3.9,69,2,622,0)="1"
^XMB(3.9,69,2,623,0)="""BLD"",5928,""INI"")"
^XMB(3.9,69,2,624,0)="PRE^LR343"
^XMB(3.9,69,2,625,0)="""BLD"",5928,""INID"")"
^XMB(3.9,69,2,626,0)="y^y^y"
^XMB(3.9,69,2,627,0)="""BLD"",5928,""INIT"")"
^XMB(3.9,69,2,628,0)="POST^LR343"
^XMB(3.9,69,2,629,0)="""BLD"",5928,""KRN"",0)"
^XMB(3.9,69,2,630,0)="^9.67PA^8989.52^19"
^XMB(3.9,69,2,631,0)="""BLD"",5928,""KRN"",.4,0)"
^XMB(3.9,69,2,632,0)=".4"
^XMB(3.9,69,2,633,0)="""BLD"",5928,""KRN"",.401,0)"
^XMB(3.9,69,2,634,0)=".401"
^XMB(3.9,69,2,635,0)="""BLD"",5928,""KRN"",.402,0)"
^XMB(3.9,69,2,636,0)=".402"
^XMB(3.9,69,2,637,0)="""BLD"",5928,""KRN"",.403,0)"
^XMB(3.9,69,2,638,0)=".403"
^XMB(3.9,69,2,639,0)="""BLD"",5928,""KRN"",.5,0)"
^XMB(3.9,69,2,640,0)=".5"
^XMB(3.9,69,2,641,0)="""BLD"",5928,""KRN"",.84,0)"
^XMB(3.9,69,2,642,0)=".84"
^XMB(3.9,69,2,643,0)="""BLD"",5928,""KRN"",3.6,0)"
^XMB(3.9,69,2,644,0)="3.6"
^XMB(3.9,69,2,645,0)="""BLD"",5928,""KRN"",3.8,0)"
^XMB(3.9,69,2,646,0)="3.8"
^XMB(3.9,69,2,647,0)="""BLD"",5928,""KRN"",9.2,0)"
^XMB(3.9,69,2,648,0)="9.2"
^XMB(3.9,69,2,649,0)="""BLD"",5928,""KRN"",9.8,0)"
^XMB(3.9,69,2,650,0)="9.8"
^XMB(3.9,69,2,651,0)="""BLD"",5928,""KRN"",9.8,""NM"",0)"
^XMB(3.9,69,2,652,0)="^9.68A^1^1"
^XMB(3.9,69,2,653,0)="""BLD"",5928,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,69,2,654,0)="LR7OEVNT^^1^"
^XMB(3.9,69,2,655,0)="""BLD"",5928,""KRN"",9.8,""NM"",""B"",""LR7OEVNT"",1)"
^XMB(3.9,69,2,656,0)=""
^XMB(3.9,69,2,657,0)="""BLD"",5928,""KRN"",19,0)"
^XMB(3.9,69,2,658,0)="19"
^XMB(3.9,69,2,659,0)="""BLD"",5928,""KRN"",19.1,0)"
^XMB(3.9,69,2,660,0)="19.1"
^XMB(3.9,69,2,661,0)="""BLD"",5928,""KRN"",101,0)"
^XMB(3.9,69,2,662,0)="101"
^XMB(3.9,69,2,663,0)="""BLD"",5928,""KRN"",101,""NM"",0)"
^XMB(3.9,69,2,664,0)="^9.68A^2^2"
^XMB(3.9,69,2,665,0)="""BLD"",5928,""KRN"",101,""NM"",1,0)"
^XMB(3.9,69,2,666,0)="LR7O MOVEMENT EVENT^^1^"
^XMB(3.9,69,2,667,0)="""BLD"",5928,""KRN"",101,""NM"",2,0)"
^XMB(3.9,69,2,668,0)="LR7O MOVEMENT EVENT TASK^^1^"
^XMB(3.9,69,2,669,0)="""BLD"",5928,""KRN"",101,""NM"",""B"",""LR7O MOVEMENT EVENT"",1)"
^XMB(3.9,69,2,670,0)=""
^XMB(3.9,69,2,671,0)="""BLD"",5928,""KRN"",101,""NM"",""B"",""LR7O MOVEMENT EVENT TASK"",2)"
^XMB(3.9,69,2,672,0)=""
^XMB(3.9,69,2,673,0)="""BLD"",5928,""KRN"",409.61,0)"
^XMB(3.9,69,2,674,0)="409.61"
^XMB(3.9,69,2,675,0)="""BLD"",5928,""KRN"",771,0)"
^XMB(3.9,69,2,676,0)="771"
^XMB(3.9,69,2,677,0)="""BLD"",5928,""KRN"",870,0)"
^XMB(3.9,69,2,678,0)="870"
^XMB(3.9,69,2,679,0)="""BLD"",5928,""KRN"",8989.51,0)"
^XMB(3.9,69,2,680,0)="8989.51"
^XMB(3.9,69,2,681,0)="""BLD"",5928,""KRN"",8989.52,0)"
^XMB(3.9,69,2,682,0)="8989.52"
^XMB(3.9,69,2,683,0)="""BLD"",5928,""KRN"",8994,0)"
^XMB(3.9,69,2,684,0)="8994"
^XMB(3.9,69,2,685,0)="""BLD"",5928,""KRN"",""B"",.4,.4)"
^XMB(3.9,69,2,686,0)=""
^XMB(3.9,69,2,687,0)="""BLD"",5928,""KRN"",""B"",.401,.401)"
^XMB(3.9,69,2,688,0)=""
^XMB(3.9,69,2,689,0)="""BLD"",5928,""KRN"",""B"",.402,.402)"
^XMB(3.9,69,2,690,0)=""
^XMB(3.9,69,2,691,0)="""BLD"",5928,""KRN"",""B"",.403,.403)"
^XMB(3.9,69,2,692,0)=""
^XMB(3.9,69,2,693,0)="""BLD"",5928,""KRN"",""B"",.5,.5)"
^XMB(3.9,69,2,694,0)=""
^XMB(3.9,69,2,695,0)="""BLD"",5928,""KRN"",""B"",.84,.84)"
^XMB(3.9,69,2,696,0)=""
^XMB(3.9,69,2,697,0)="""BLD"",5928,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,69,2,698,0)=""
^XMB(3.9,69,2,699,0)="""BLD"",5928,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,69,2,700,0)=""
^XMB(3.9,69,2,701,0)="""BLD"",5928,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,69,2,702,0)=""
^XMB(3.9,69,2,703,0)="""BLD"",5928,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,69,2,704,0)=""
^XMB(3.9,69,2,705,0)="""BLD"",5928,""KRN"",""B"",19,19)"
^XMB(3.9,69,2,706,0)=""
^XMB(3.9,69,2,707,0)="""BLD"",5928,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,69,2,708,0)=""
^XMB(3.9,69,2,709,0)="""BLD"",5928,""KRN"",""B"",101,101)"
^XMB(3.9,69,2,710,0)=""
^XMB(3.9,69,2,711,0)="""BLD"",5928,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,69,2,712,0)=""
^XMB(3.9,69,2,713,0)="""BLD"",5928,""KRN"",""B"",771,771)"
^XMB(3.9,69,2,714,0)=""
^XMB(3.9,69,2,715,0)="""BLD"",5928,""KRN"",""B"",870,870)"
^XMB(3.9,69,2,716,0)=""
^XMB(3.9,69,2,717,0)="""BLD"",5928,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,69,2,718,0)=""
^XMB(3.9,69,2,719,0)="""BLD"",5928,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,69,2,720,0)=""
^XMB(3.9,69,2,721,0)="""BLD"",5928,""KRN"",""B"",8994,8994)"
^XMB(3.9,69,2,722,0)=""
^XMB(3.9,69,2,723,0)="""BLD"",5928,""PRE"")"
^XMB(3.9,69,2,724,0)="LR343"
^XMB(3.9,69,2,725,0)="""BLD"",5928,""QUES"",0)"
^XMB(3.9,69,2,726,0)="^9.62^^"
^XMB(3.9,69,2,727,0)="""BLD"",5928,""REQB"",0)"
^XMB(3.9,69,2,728,0)="^9.611^2^2"
^XMB(3.9,69,2,729,0)="""BLD"",5928,""REQB"",1,0)"
^XMB(3.9,69,2,730,0)="OR*3.0*142^2"
^XMB(3.9,69,2,731,0)="""BLD"",5928,""REQB"",2,0)"
^XMB(3.9,69,2,732,0)="OR*3.0*141^2"
^XMB(3.9,69,2,733,0)="""BLD"",5928,""REQB"",""B"",""OR*3.0*141"",2)"
^XMB(3.9,69,2,734,0)=""
^XMB(3.9,69,2,735,0)="""BLD"",5928,""REQB"",""B"",""OR*3.0*142"",1)"
^XMB(3.9,69,2,736,0)=""
^XMB(3.9,69,2,737,0)="""INI"")"
^XMB(3.9,69,2,738,0)="PRE^LR343"
^XMB(3.9,69,2,739,0)="""INIT"")"
^XMB(3.9,69,2,740,0)="POST^LR343"
^XMB(3.9,69,2,741,0)="""KRN"",101,5150,-1)"
^XMB(3.9,69,2,742,0)="1^1"
^XMB(3.9,69,2,743,0)="""KRN"",101,5150,0)"
^XMB(3.9,69,2,744,0)="LR7O MOVEMENT EVENT"
^XMB(3.9,69,2,745,0)="""KRN"",101,5151,-1)"
^XMB(3.9,69,2,746,0)="1^2"
^XMB(3.9,69,2,747,0)="""KRN"",101,5151,0)"
^XMB(3.9,69,2,748,0)="LR7O MOVEMENT EVENT TASK"
^XMB(3.9,69,2,749,0)="""MBREQ"")"
^XMB(3.9,69,2,750,0)="0"
^XMB(3.9,69,2,751,0)="""ORD"",0,9.8)"
^XMB(3.9,69,2,752,0)="9.8;;1;RTNF^XPDTA;RTNE^XPDTA"
^XMB(3.9,69,2,753,0)="""ORD"",0,9.8,0)"
^XMB(3.9,69,2,754,0)="ROUTINE"
^XMB(3.9,69,2,755,0)="""ORD"",15,101)"
^XMB(3.9,69,2,756,0)="101;15;;;PRO^XPDTA;PROF1^XPDIA;PROE1^XPDIA;PROF2^XPDIA;;PRODEL^XPDIA"
^XMB(3.9,69,2,757,0)="""ORD"",15,101,0)"
^XMB(3.9,69,2,758,0)="PROTOCOL"
^XMB(3.9,69,2,759,0)="""PKG"",26,-1)"
^XMB(3.9,69,2,760,0)="1^1"
^XMB(3.9,69,2,761,0)="""PKG"",26,0)"
^XMB(3.9,69,2,762,0)="LAB SERVICE^LR^CORE LAB SYSTEM"
^XMB(3.9,69,2,763,0)="""PKG"",26,20,0)"
^XMB(3.9,69,2,764,0)="^9.402P^1^1"
^XMB(3.9,69,2,765,0)="""PKG"",26,20,1,0)"
^XMB(3.9,69,2,766,0)="2^^LRXDRPT"
^XMB(3.9,69,2,767,0)="""PKG"",26,20,1,1)"
^XMB(3.9,69,2,768,0)=""
^XMB(3.9,69,2,769,0)="""PKG"",26,20,""B"",2,1)"
^XMB(3.9,69,2,770,0)=""
^XMB(3.9,69,2,771,0)="""PKG"",26,22,0)"
^XMB(3.9,69,2,772,0)="^9.49I^1^1"
^XMB(3.9,69,2,773,0)="""PKG"",26,22,1,0)"
^XMB(3.9,69,2,774,0)="5.2^2940927^2941128"
^XMB(3.9,69,2,775,0)="""PKG"",26,22,1,""PAH"",1,0)"
^XMB(3.9,69,2,776,0)="343^3060620^6686"
^XMB(3.9,69,2,777,0)="""PKG"",26,22,1,""PAH"",1,1,0)"
^XMB(3.9,69,2,778,0)="^^304^304^3060620"
^XMB(3.9,69,2,779,0)="""PKG"",26,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,69,2,780,0)="Blood Bank Team Coordination"
^XMB(3.9,69,2,781,0)="""PKG"",26,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,69,2,782,0)="============================"
^XMB(3.9,69,2,783,0)="""PKG"",26,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,69,2,784,0)="VISTA Laboratory Package patch LR*5.2*343 contains changes to software "
^XMB(3.9,69,2,785,0)="""PKG"",26,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,69,2,786,0)="controlled by VHA DIRECTIVE 2004-058, titled VISTA BLOOD BANK SOFTWARE. "
^XMB(3.9,69,2,787,0)="""PKG"",26,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,69,2,788,0)="Changes include: "
^XMB(3.9,69,2,789,0)="""PKG"",26,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,69,2,790,0)=" File #69.9 (Laboratory Site)"
^XMB(3.9,69,2,791,0)="""PKG"",26,22,1,""PAH"",1,1,7,0)"
^XMB(3.9,69,2,792,0)="    Field #150.3 (CANCEL ON ADMIT) - Removed"
^XMB(3.9,69,2,793,0)="""PKG"",26,22,1,""PAH"",1,1,8,0)"
^XMB(3.9,69,2,794,0)="    Field #150.4 (CANCEL ON DISCHARGE) - Removed"
^XMB(3.9,69,2,795,0)="""PKG"",26,22,1,""PAH"",1,1,9,0)"
^XMB(3.9,69,2,796,0)="    Field #150.5 (CANCEL ON SPECIALTY TRANSFER) - Removed"
^XMB(3.9,69,2,797,0)="""PKG"",26,22,1,""PAH"",1,1,10,0)"
^XMB(3.9,69,2,798,0)=" "
^XMB(3.9,69,2,799,0)="""PKG"",26,22,1,""PAH"",1,1,11,0)"
^XMB(3.9,69,2,800,0)="All of the above changes have been reviewed by the VISTA Blood Bank "
^XMB(3.9,69,2,801,0)="""PKG"",26,22,1,""PAH"",1,1,12,0)"
^XMB(3.9,69,2,802,0)="Developer and found to have no impact on the VISTA BLOOD BANK SOFTWARE "
^XMB(3.9,69,2,803,0)="""PKG"",26,22,1,""PAH"",1,1,13,0)"
^XMB(3.9,69,2,804,0)="control functions."
^XMB(3.9,69,2,805,0)="""PKG"",26,22,1,""PAH"",1,1,14,0)"
^XMB(3.9,69,2,806,0)=" "
^XMB(3.9,69,2,807,0)="""PKG"",26,22,1,""PAH"",1,1,15,0)"
^XMB(3.9,69,2,808,0)="RISK ANALYSIS: Changes made by patch LR*5.2*343 have no effect on Blood "
^XMB(3.9,69,2,809,0)="""PKG"",26,22,1,""PAH"",1,1,16,0)"
^XMB(3.9,69,2,810,0)="Bank software functionality, therefore RISK is none."
^XMB(3.9,69,2,811,0)="""PKG"",26,22,1,""PAH"",1,1,17,0)"
^XMB(3.9,69,2,812,0)=" "
^XMB(3.9,69,2,813,0)="""PKG"",26,22,1,""PAH"",1,1,18,0)"
^XMB(3.9,69,2,814,0)="EFFECT ON BLOOD BANK FUNCTIONAL REQUIREMENTS: Patch LR*5.2*343 does not "
^XMB(3.9,69,2,815,0)="""PKG"",26,22,1,""PAH"",1,1,19,0)"
^XMB(3.9,69,2,816,0)="alter or modify any software design safeguards or safety critical "
^XMB(3.9,69,2,817,0)="""PKG"",26,22,1,""PAH"",1,1,20,0)"
^XMB(3.9,69,2,818,0)="elements functions."
^XMB(3.9,69,2,819,0)="""PKG"",26,22,1,""PAH"",1,1,21,0)"
^XMB(3.9,69,2,820,0)=" "
^XMB(3.9,69,2,821,0)="""PKG"",26,22,1,""PAH"",1,1,22,0)"
^XMB(3.9,69,2,822,0)="POTENTIAL IMPACT ON SITES: This patch contains changes to 0 routines and "
^XMB(3.9,69,2,823,0)="""PKG"",26,22,1,""PAH"",1,1,23,0)"
^XMB(3.9,69,2,824,0)="1 file identified in Veterans Health Administration (VHA) Directive "
^XMB(3.9,69,2,825,0)="""PKG"",26,22,1,""PAH"",1,1,24,0)"
^XMB(3.9,69,2,826,0)="2004-058, group B listing. The changes have no effect on Blood Bank "
^XMB(3.9,69,2,827,0)="""PKG"",26,22,1,""PAH"",1,1,25,0)"
^XMB(3.9,69,2,828,0)="functionality or medical device control functions. There is no adverse "
^XMB(3.9,69,2,829,0)="""PKG"",26,22,1,""PAH"",1,1,26,0)"
^XMB(3.9,69,2,830,0)="potential to sites."
^XMB(3.9,69,2,831,0)="""PKG"",26,22,1,""PAH"",1,1,27,0)"
^XMB(3.9,69,2,832,0)=" "
^XMB(3.9,69,2,833,0)="""PKG"",26,22,1,""PAH"",1,1,28,0)"
^XMB(3.9,69,2,834,0)="VALIDATION REQUIREMENTS BY OPTION: "
^XMB(3.9,69,2,835,0)="""PKG"",26,22,1,""PAH"",1,1,29,0)"
^XMB(3.9,69,2,836,0)="There are no validation requirements for this patch."
^XMB(3.9,69,2,837,0)="""PKG"",26,22,1,""PAH"",1,1,30,0)"
^XMB(3.9,69,2,838,0)=" "
^XMB(3.9,69,2,839,0)="""PKG"",26,22,1,""PAH"",1,1,31,0)"
^XMB(3.9,69,2,840,0)="MINIMAL TEST CASE SCENARIOS BY OPTION, INCLUSIVE OF ALL CONTROL FUNCTIONS:"
^XMB(3.9,69,2,841,0)="""PKG"",26,22,1,""PAH"",1,1,32,0)"
^XMB(3.9,69,2,842,0)="There are no test case scenarios for this patch."
^XMB(3.9,69,2,843,0)="""PKG"",26,22,1,""PAH"",1,1,33,0)"
^XMB(3.9,69,2,844,0)="************************************************************************"
^XMB(3.9,69,2,845,0)="""PKG"",26,22,1,""PAH"",1,1,34,0)"
^XMB(3.9,69,2,846,0)=" "
^XMB(3.9,69,2,847,0)="""PKG"",26,22,1,""PAH"",1,1,35,0)"
^XMB(3.9,69,2,848,0)="Remove the LABORATORY package's rules for managing laboratory order "
^XMB(3.9,69,2,849,0)="""PKG"",26,22,1,""PAH"",1,1,36,0)"
^XMB(3.9,69,2,850,0)="auto-discontinuance on admission, transfer, or discharge events and let "
^XMB(3.9,69,2,851,0)="""PKG"",26,22,1,""PAH"",1,1,37,0)"
^XMB(3.9,69,2,852,0)="the existing rules in the OERR (ORDER ENTRY RESULTS REPORTING) package "
^XMB(3.9,69,2,853,0)="""PKG"",26,22,1,""PAH"",1,1,38,0)"
^XMB(3.9,69,2,854,0)="handle the order auto-discontinuance process."
^XMB(3.9,69,2,855,0)="""PKG"",26,22,1,""PAH"",1,1,39,0)"
^XMB(3.9,69,2,856,0)=" "
^XMB(3.9,69,2,857,0)="""PKG"",26,22,1,""PAH"",1,1,40,0)"
^XMB(3.9,69,2,858,0)="The LABORATORY package's process that is used to decide if an order "
^XMB(3.9,69,2,859,0)="""PKG"",26,22,1,""PAH"",1,1,41,0)"
^XMB(3.9,69,2,860,0)="should be discontinued when a patient move event is triggered will be "
^XMB(3.9,69,2,861,0)="""PKG"",26,22,1,""PAH"",1,1,42,0)"
^XMB(3.9,69,2,862,0)="disabled.  This business rule is already being handled by the OERR "
^XMB(3.9,69,2,863,0)="""PKG"",26,22,1,""PAH"",1,1,43,0)"
^XMB(3.9,69,2,864,0)="package and the Lab's business rules do not perform all of the needed "
^XMB(3.9,69,2,865,0)="""PKG"",26,22,1,""PAH"",1,1,44,0)"
^XMB(3.9,69,2,866,0)="checks that the OERR package performs.  For example, the Lab's process "
^XMB(3.9,69,2,867,0)="""PKG"",26,22,1,""PAH"",1,1,45,0)"
^XMB(3.9,69,2,868,0)="does not check that a new movement is actually tied to the current "
^XMB(3.9,69,2,869,0)="""PKG"",26,22,1,""PAH"",1,1,46,0)"
^XMB(3.9,69,2,870,0)="admission.  An edit of a patient movement can result in erroneous auto "
^XMB(3.9,69,2,871,0)="""PKG"",26,22,1,""PAH"",1,1,47,0)"
^XMB(3.9,69,2,872,0)="discontinue of a patient's laboratory orders.  OERR also provides checks "
^XMB(3.9,69,2,873,0)="""PKG"",26,22,1,""PAH"",1,1,48,0)"
^XMB(3.9,69,2,874,0)="in the software to establish whether the patient event is new or an edit "
^XMB(3.9,69,2,875,0)="""PKG"",26,22,1,""PAH"",1,1,49,0)"
^XMB(3.9,69,2,876,0)="to an existing event."
^XMB(3.9,69,2,877,0)="""PKG"",26,22,1,""PAH"",1,1,50,0)"
^XMB(3.9,69,2,878,0)=" "
^XMB(3.9,69,2,879,0)="""PKG"",26,22,1,""PAH"",1,1,51,0)"
^XMB(3.9,69,2,880,0)="The Lab's process has caused erroneous auto discontinuance of laboratory "
^XMB(3.9,69,2,881,0)="""PKG"",26,22,1,""PAH"",1,1,52,0)"
^XMB(3.9,69,2,882,0)="orders because it does not check if a new movement is actually tied to "
^XMB(3.9,69,2,883,0)="""PKG"",26,22,1,""PAH"",1,1,53,0)"
^XMB(3.9,69,2,884,0)="the patient's current admission.  In the case outlined by the Patient "
^XMB(3.9,69,2,885,0)="""PKG"",26,22,1,""PAH"",1,1,54,0)"
^XMB(3.9,69,2,886,0)="Safety Issue (PSI) report it appeared that a user deleted and re-entered "
^XMB(3.9,69,2,887,0)="""PKG"",26,22,1,""PAH"",1,1,55,0)"
^XMB(3.9,69,2,888,0)="a movement for a prior admission to make a correction.  Since it was a "
^XMB(3.9,69,2,889,0)="""PKG"",26,22,1,""PAH"",1,1,56,0)"
^XMB(3.9,69,2,890,0)="new movement the Lab code executed and the orders were discontinued.  "
^XMB(3.9,69,2,891,0)="""PKG"",26,22,1,""PAH"",1,1,57,0)"
^XMB(3.9,69,2,892,0)="This problem would especially impact sites with patients that are "
^XMB(3.9,69,2,893,0)="""PKG"",26,22,1,""PAH"",1,1,58,0)"
^XMB(3.9,69,2,894,0)="transferred from the acute hospital to the nursing home."
^XMB(3.9,69,2,895,0)="""PKG"",26,22,1,""PAH"",1,1,59,0)"
^XMB(3.9,69,2,896,0)=" "
^XMB(3.9,69,2,897,0)="""PKG"",26,22,1,""PAH"",1,1,60,0)"
^XMB(3.9,69,2,898,0)=" "
^XMB(3.9,69,2,899,0)="""PKG"",26,22,1,""PAH"",1,1,61,0)"
^XMB(3.9,69,2,900,0)=" "
^XMB(3.9,69,2,901,0)="""PKG"",26,22,1,""PAH"",1,1,62,0)"
^XMB(3.9,69,2,902,0)="Technical Description"
^XMB(3.9,69,2,903,0)="""PKG"",26,22,1,""PAH"",1,1,63,0)"
^XMB(3.9,69,2,904,0)="====================="
^XMB(3.9,69,2,905,0)="""PKG"",26,22,1,""PAH"",1,1,64,0)"
^XMB(3.9,69,2,906,0)="When the DGPM MOVEMENT EVENTS of the PROTOCOL file (#101) is triggered "
^XMB(3.9,69,2,907,0)="""PKG"",26,22,1,""PAH"",1,1,65,0)"
^XMB(3.9,69,2,908,0)="the LR7O MOVEMENT EVENT protocol may be called (if it is an item of the "
^XMB(3.9,69,2,909,0)="""PKG"",26,22,1,""PAH"",1,1,66,0)"
^XMB(3.9,69,2,910,0)="DGPM MOVEMENT EVENTS protocol).  In this situation the business rule "
^XMB(3.9,69,2,911,0)="""PKG"",26,22,1,""PAH"",1,1,67,0)"
^XMB(3.9,69,2,912,0)="processing in the LABORATORY package fails to make all of the needed "
^XMB(3.9,69,2,913,0)="""PKG"",26,22,1,""PAH"",1,1,68,0)"
^XMB(3.9,69,2,914,0)="checks to properly determine if the order should be discontinued.  If "
^XMB(3.9,69,2,915,0)="""PKG"",26,22,1,""PAH"",1,1,69,0)"
^XMB(3.9,69,2,916,0)="Lab's logic discontinues the order there will be no order for OERR to "
^XMB(3.9,69,2,917,0)="""PKG"",26,22,1,""PAH"",1,1,70,0)"
^XMB(3.9,69,2,918,0)="apply its more detailed set of business rules against when the OERR code "
^XMB(3.9,69,2,919,0)="""PKG"",26,22,1,""PAH"",1,1,71,0)"
^XMB(3.9,69,2,920,0)="is called from the patient movement event."
^XMB(3.9,69,2,921,0)="""PKG"",26,22,1,""PAH"",1,1,72,0)"
^XMB(3.9,69,2,922,0)=" "
^XMB(3.9,69,2,923,0)="""PKG"",26,22,1,""PAH"",1,1,73,0)"
^XMB(3.9,69,2,924,0)="Lab will no longer perform any package-level checks for order "
^XMB(3.9,69,2,925,0)="""PKG"",26,22,1,""PAH"",1,1,74,0)"
^XMB(3.9,69,2,926,0)="auto-discontinuance based on patient movements.  These checks will be "
^XMB(3.9,69,2,927,0)="""PKG"",26,22,1,""PAH"",1,1,75,0)"
^XMB(3.9,69,2,928,0)="performed by the OERR package.  This change is accomplished by:"
^XMB(3.9,69,2,929,0)="""PKG"",26,22,1,""PAH"",1,1,76,0)"
^XMB(3.9,69,2,930,0)=" "
^XMB(3.9,69,2,931,0)="""PKG"",26,22,1,""PAH"",1,1,77,0)"
^XMB(3.9,69,2,932,0)="Deletion of PROTOCOL file (#101) entries:"
^XMB(3.9,69,2,933,0)="""PKG"",26,22,1,""PAH"",1,1,78,0)"
^XMB(3.9,69,2,934,0)="         LR7O MOVEMENT EVENT and LR7O MOVEMENT EVENT TASK"
^XMB(3.9,69,2,935,0)="""PKG"",26,22,1,""PAH"",1,1,79,0)"
^XMB(3.9,69,2,936,0)="Deletion of routine LR7OEVNT"
^XMB(3.9,69,2,937,0)="""PKG"",26,22,1,""PAH"",1,1,80,0)"
^XMB(3.9,69,2,938,0)="Deletion of the following Data Dictionary for LABORATORY SITE file "
^XMB(3.9,69,2,939,0)="""PKG"",26,22,1,""PAH"",1,1,81,0)"
^XMB(3.9,69,2,940,0)="(#69.9):"
^XMB(3.9,69,2,941,0)="""PKG"",26,22,1,""PAH"",1,1,82,0)"
^XMB(3.9,69,2,942,0)="    CANCEL ON ADMIT field (#150.3)"
^XMB(3.9,69,2,943,0)="""PKG"",26,22,1,""PAH"",1,1,83,0)"
^XMB(3.9,69,2,944,0)="    CANCEL ON DISCHARGE field (#150.4)"
^XMB(3.9,69,2,945,0)="""PKG"",26,22,1,""PAH"",1,1,84,0)"
^XMB(3.9,69,2,946,0)="    CANCEL ON SPECIALTY TRANSFER field (#150.5)"
^XMB(3.9,69,2,947,0)="""PKG"",26,22,1,""PAH"",1,1,85,0)"
^XMB(3.9,69,2,948,0)=" "
^XMB(3.9,69,2,949,0)="""PKG"",26,22,1,""PAH"",1,1,86,0)"
^XMB(3.9,69,2,950,0)=" "
^XMB(3.9,69,2,951,0)="""PKG"",26,22,1,""PAH"",1,1,87,0)"
^XMB(3.9,69,2,952,0)=" "
^XMB(3.9,69,2,953,0)="""PKG"",26,22,1,""PAH"",1,1,88,0)"
^XMB(3.9,69,2,954,0)="New Service Request:"
^XMB(3.9,69,2,955,0)="""PKG"",26,22,1,""PAH"",1,1,89,0)"
^XMB(3.9,69,2,956,0)="===================="
^XMB(3.9,69,2,957,0)="""PKG"",26,22,1,""PAH"",1,1,90,0)"
^XMB(3.9,69,2,958,0)="#20050802 -- Remove Lab Package Options to DC Order on Patient Movement"
^XMB(3.9,69,2,959,0)="""PKG"",26,22,1,""PAH"",1,1,91,0)"
^XMB(3.9,69,2,960,0)=" "
^XMB(3.9,69,2,961,0)="""PKG"",26,22,1,""PAH"",1,1,92,0)"
^XMB(3.9,69,2,962,0)=" "
^XMB(3.9,69,2,963,0)="""PKG"",26,22,1,""PAH"",1,1,93,0)"
^XMB(3.9,69,2,964,0)="Associated Remedy:"
^XMB(3.9,69,2,965,0)="""PKG"",26,22,1,""PAH"",1,1,94,0)"
^XMB(3.9,69,2,966,0)="=================="
^XMB(3.9,69,2,967,0)="""PKG"",26,22,1,""PAH"",1,1,95,0)"
^XMB(3.9,69,2,968,0)="HD0000000104211"
^XMB(3.9,69,2,969,0)="""PKG"",26,22,1,""PAH"",1,1,96,0)"
^XMB(3.9,69,2,970,0)=" "
^XMB(3.9,69,2,971,0)="""PKG"",26,22,1,""PAH"",1,1,97,0)"
^XMB(3.9,69,2,972,0)=" "
^XMB(3.9,69,2,973,0)="""PKG"",26,22,1,""PAH"",1,1,98,0)"
^XMB(3.9,69,2,974,0)="Associated E3R:"
^XMB(3.9,69,2,975,0)="""PKG"",26,22,1,""PAH"",1,1,99,0)"
^XMB(3.9,69,2,976,0)="==============="
^XMB(3.9,69,2,977,0)="""PKG"",26,22,1,""PAH"",1,1,100,0)"
^XMB(3.9,69,2,978,0)="N/A"
^XMB(3.9,69,2,979,0)="""PKG"",26,22,1,""PAH"",1,1,101,0)"
^XMB(3.9,69,2,980,0)=" "
^XMB(3.9,69,2,981,0)="""PKG"",26,22,1,""PAH"",1,1,102,0)"
^XMB(3.9,69,2,982,0)=" "
^XMB(3.9,69,2,983,0)="""PKG"",26,22,1,""PAH"",1,1,103,0)"
^XMB(3.9,69,2,984,0)="Associated PSI:"
^XMB(3.9,69,2,985,0)="""PKG"",26,22,1,""PAH"",1,1,104,0)"
^XMB(3.9,69,2,986,0)="==============="
^XMB(3.9,69,2,987,0)="""PKG"",26,22,1,""PAH"",1,1,105,0)"
^XMB(3.9,69,2,988,0)="PSI-05-068 "
^XMB(3.9,69,2,989,0)="""PKG"",26,22,1,""PAH"",1,1,106,0)"
^XMB(3.9,69,2,990,0)=" "
^XMB(3.9,69,2,991,0)="""PKG"",26,22,1,""PAH"",1,1,107,0)"
^XMB(3.9,69,2,992,0)=" "
^XMB(3.9,69,2,993,0)="""PKG"",26,22,1,""PAH"",1,1,108,0)"
^XMB(3.9,69,2,994,0)="Test Sites"
^XMB(3.9,69,2,995,0)="""PKG"",26,22,1,""PAH"",1,1,109,0)"
^XMB(3.9,69,2,996,0)="=========="
^XMB(3.9,69,2,997,0)="""PKG"",26,22,1,""PAH"",1,1,110,0)"
^XMB(3.9,69,2,998,0)="DURHAM, NC -VAMC (Large site)"
^XMB(3.9,69,2,999,0)="""PKG"",26,22,1,""PAH"",1,1,111,0)"
^XMB(3.9,69,2,1000,0)="NORTHERN CALIFORNIA HCS (Large site) "
^XMB(3.9,69,2,1001,0)="""PKG"",26,22,1,""PAH"",1,1,112,0)"
^XMB(3.9,69,2,1002,0)=" "
^XMB(3.9,69,2,1003,0)="""PKG"",26,22,1,""PAH"",1,1,113,0)"
^XMB(3.9,69,2,1004,0)=" "
^XMB(3.9,69,2,1005,0)="""PKG"",26,22,1,""PAH"",1,1,114,0)"
^XMB(3.9,69,2,1006,0)=" "
^XMB(3.9,69,2,1007,0)="""PKG"",26,22,1,""PAH"",1,1,115,0)"
^XMB(3.9,69,2,1008,0)="ROUTINE SUMMARY"
^XMB(3.9,69,2,1009,0)="""PKG"",26,22,1,""PAH"",1,1,116,0)"
^XMB(3.9,69,2,1010,0)="==============="
^XMB(3.9,69,2,1011,0)="""PKG"",26,22,1,""PAH"",1,1,117,0)"
^XMB(3.9,69,2,1012,0)="  The following routines are included in this patch.  The second line"
^XMB(3.9,69,2,1013,0)="""PKG"",26,22,1,""PAH"",1,1,118,0)"
^XMB(3.9,69,2,1014,0)="  of each of these routines now looks like:"
^XMB(3.9,69,2,1015,0)="""PKG"",26,22,1,""PAH"",1,1,119,0)"
^XMB(3.9,69,2,1016,0)="      <tab> ;; 5.2;LAB SERVICE;<patch list>;Sep 27, 1994"
^XMB(3.9,69,2,1017,0)="""PKG"",26,22,1,""PAH"",1,1,120,0)"
^XMB(3.9,69,2,1018,0)=" "
^XMB(3.9,69,2,1019,0)="""PKG"",26,22,1,""PAH"",1,1,121,0)"
^XMB(3.9,69,2,1020,0)="                  Checksum       Checksum"
^XMB(3.9,69,2,1021,0)="""PKG"",26,22,1,""PAH"",1,1,122,0)"
^XMB(3.9,69,2,1022,0)=" Routine Name     Before Patch   After Patch    Patch List"
^XMB(3.9,69,2,1023,0)="""PKG"",26,22,1,""PAH"",1,1,123,0)"
^XMB(3.9,69,2,1024,0)="     LR343        N/A            12851791       343"
^XMB(3.9,69,2,1025,0)="""PKG"",26,22,1,""PAH"",1,1,124,0)"
^XMB(3.9,69,2,1026,0)="     LR7OEVNT     5021306        deleted by KIDS"
^XMB(3.9,69,2,1027,0)="""PKG"",26,22,1,""PAH"",1,1,125,0)"
^XMB(3.9,69,2,1028,0)=" "
^XMB(3.9,69,2,1029,0)="""PKG"",26,22,1,""PAH"",1,1,126,0)"
^XMB(3.9,69,2,1030,0)="     Routines deleted by KIDS: LR343,LR70EVNT"
^XMB(3.9,69,2,1031,0)="""PKG"",26,22,1,""PAH"",1,1,127,0)"
^XMB(3.9,69,2,1032,0)="     List of preceding patches: n/a"
^XMB(3.9,69,2,1033,0)="""PKG"",26,22,1,""PAH"",1,1,128,0)"
^XMB(3.9,69,2,1034,0)="     Sites should use CHECK^XTSUMBLD to verify checksums."
^XMB(3.9,69,2,1035,0)="""PKG"",26,22,1,""PAH"",1,1,129,0)"
^XMB(3.9,69,2,1036,0)=" "
^XMB(3.9,69,2,1037,0)="""PKG"",26,22,1,""PAH"",1,1,130,0)"
^XMB(3.9,69,2,1038,0)=" "
^XMB(3.9,69,2,1039,0)="""PKG"",26,22,1,""PAH"",1,1,131,0)"
^XMB(3.9,69,2,1040,0)="PROTOCOLS"
^XMB(3.9,69,2,1041,0)="""PKG"",26,22,1,""PAH"",1,1,132,0)"
^XMB(3.9,69,2,1042,0)="    LR7O MOVEMENT EVENT  (deleted)"
^XMB(3.9,69,2,1043,0)="""PKG"",26,22,1,""PAH"",1,1,133,0)"
^XMB(3.9,69,2,1044,0)="    LR7O MOVEMENT EVENT TASK  (deleted)"
^XMB(3.9,69,2,1045,0)="""PKG"",26,22,1,""PAH"",1,1,134,0)"
^XMB(3.9,69,2,1046,0)=" "
^XMB(3.9,69,2,1047,0)="""PKG"",26,22,1,""PAH"",1,1,135,0)"
^XMB(3.9,69,2,1048,0)=" "
^XMB(3.9,69,2,1049,0)="""PKG"",26,22,1,""PAH"",1,1,136,0)"
^XMB(3.9,69,2,1050,0)="DATA DICTIONARIES"
^XMB(3.9,69,2,1051,0)="""PKG"",26,22,1,""PAH"",1,1,137,0)"
^XMB(3.9,69,2,1052,0)="    LABORATORY SITE file (#69.9)"
^XMB(3.9,69,2,1053,0)="""PKG"",26,22,1,""PAH"",1,1,138,0)"
^XMB(3.9,69,2,1054,0)="        CANCEL ON ADMIT field (#150.3)  (deleted)"
^XMB(3.9,69,2,1055,0)="""PKG"",26,22,1,""PAH"",1,1,139,0)"
^XMB(3.9,69,2,1056,0)="        CANCEL ON DISCHARGE field (#150.4)  (deleted)"
^XMB(3.9,69,2,1057,0)="""PKG"",26,22,1,""PAH"",1,1,140,0)"
^XMB(3.9,69,2,1058,0)="        CANCEL ON SPECIALTY TRANSFER field (#150.5)  (deleted)"
^XMB(3.9,69,2,1059,0)="""PKG"",26,22,1,""PAH"",1,1,141,0)"
^XMB(3.9,69,2,1060,0)=" "
^XMB(3.9,69,2,1061,0)="""PKG"",26,22,1,""PAH"",1,1,142,0)"
^XMB(3.9,69,2,1062,0)=" "
^XMB(3.9,69,2,1063,0)="""PKG"",26,22,1,""PAH"",1,1,143,0)"
^XMB(3.9,69,2,1064,0)="INSTALLATION INSTRUCTIONS"
^XMB(3.9,69,2,1065,0)="""PKG"",26,22,1,""PAH"",1,1,144,0)"
^XMB(3.9,69,2,1066,0)="========================="
^XMB(3.9,69,2,1067,0)="""PKG"",26,22,1,""PAH"",1,1,145,0)"
^XMB(3.9,69,2,1068,0)=" "
^XMB(3.9,69,2,1069,0)="""PKG"",26,22,1,""PAH"",1,1,146,0)"
^XMB(3.9,69,2,1070,0)="  The install time for this patch is approximately 6 minutes."
^XMB(3.9,69,2,1071,0)="""PKG"",26,22,1,""PAH"",1,1,147,0)"
^XMB(3.9,69,2,1072,0)="  Suggested time to install: non-peak requirement hours."
^XMB(3.9,69,2,1073,0)="""PKG"",26,22,1,""PAH"",1,1,148,0)"
^XMB(3.9,69,2,1074,0)="  This patch can be installed when Laboratory users are on the system."
^XMB(3.9,69,2,1075,0)="""PKG"",26,22,1,""PAH"",1,1,149,0)"
^XMB(3.9,69,2,1076,0)=" "
^XMB(3.9,69,2,1077,0)="""PKG"",26,22,1,""PAH"",1,1,150,0)"
^XMB(3.9,69,2,1078,0)=" "
^XMB(3.9,69,2,1079,0)="""PKG"",26,22,1,""PAH"",1,1,151,0)"
^XMB(3.9,69,2,1080,0)="                     I  M  P  O  R  T  A  N  T"
^XMB(3.9,69,2,1081,0)="""PKG"",26,22,1,""PAH"",1,1,152,0)"
^XMB(3.9,69,2,1082,0)="                   ============================="
^XMB(3.9,69,2,1083,0)="""PKG"",26,22,1,""PAH"",1,1,153,0)"
^XMB(3.9,69,2,1084,0)="                 THIS INSTALLATION MUST BE QUEUED"
^XMB(3.9,69,2,1085,0)="""PKG"",26,22,1,""PAH"",1,1,154,0)"
^XMB(3.9,69,2,1086,0)=" "
^XMB(3.9,69,2,1087,0)="""PKG"",26,22,1,""PAH"",1,1,155,0)"
^XMB(3.9,69,2,1088,0)=" "
^XMB(3.9,69,2,1089,0)="""PKG"",26,22,1,""PAH"",1,1,156,0)"
^XMB(3.9,69,2,1090,0)="  NOTE: Kernel patches must be current on the target system to avoid"
^XMB(3.9,69,2,1091,0)="""PKG"",26,22,1,""PAH"",1,1,157,0)"
^XMB(3.9,69,2,1092,0)="        problems loading and/or installing this patch."
^XMB(3.9,69,2,1093,0)="""PKG"",26,22,1,""PAH"",1,1,158,0)"
^XMB(3.9,69,2,1094,0)=" "
^XMB(3.9,69,2,1095,0)="""PKG"",26,22,1,""PAH"",1,1,159,0)"
^XMB(3.9,69,2,1096,0)="      Patch installation needs to be coordinated with the Laboratory"
^XMB(3.9,69,2,1097,0)="""PKG"",26,22,1,""PAH"",1,1,160,0)"
^XMB(3.9,69,2,1098,0)="      Information Manager (LIM/ADPAC)."
^XMB(3.9,69,2,1099,0)="""PKG"",26,22,1,""PAH"",1,1,161,0)"
^XMB(3.9,69,2,1100,0)=" "
^XMB(3.9,69,2,1101,0)="""PKG"",26,22,1,""PAH"",1,1,162,0)"
^XMB(3.9,69,2,1102,0)=" "
^XMB(3.9,69,2,1103,0)="""PKG"",26,22,1,""PAH"",1,1,163,0)"
^XMB(3.9,69,2,1104,0)="  1.  Use the 'INSTALL/CHECK MESSAGE' option of the PackMan menu.  This"
^XMB(3.9,69,2,1105,0)="""PKG"",26,22,1,""PAH"",1,1,164,0)"
^XMB(3.9,69,2,1106,0)="      option will load the KIDS patch onto your system."
^XMB(3.9,69,2,1107,0)="""PKG"",26,22,1,""PAH"",1,1,165,0)"
^XMB(3.9,69,2,1108,0)=" "
^XMB(3.9,69,2,1109,0)="""PKG"",26,22,1,""PAH"",1,1,166,0)"
^XMB(3.9,69,2,1110,0)="  2.  On the 'Kernel Installation & Distribution System' Menu (KIDS),"
^XMB(3.9,69,2,1111,0)="""PKG"",26,22,1,""PAH"",1,1,167,0)"
^XMB(3.9,69,2,1112,0)="      select the 'Installation' menu."
^XMB(3.9,69,2,1113,0)="""PKG"",26,22,1,""PAH"",1,1,168,0)"
^XMB(3.9,69,2,1114,0)=" "
^XMB(3.9,69,2,1115,0)="""PKG"",26,22,1,""PAH"",1,1,169,0)"
^XMB(3.9,69,2,1116,0)="  3.  Use the 'Verify Checksum in Transport Global' option and verify"
^XMB(3.9,69,2,1117,0)="""PKG"",26,22,1,""PAH"",1,1,170,0)"
^XMB(3.9,69,2,1118,0)="      that all routines have the correct checksums."
^XMB(3.9,69,2,1119,0)="""PKG"",26,22,1,""PAH"",1,1,171,0)"
^XMB(3.9,69,2,1120,0)=" "
^XMB(3.9,69,2,1121,0)="""PKG"",26,22,1,""PAH"",1,1,172,0)"
^XMB(3.9,69,2,1122,0)="  4.  On the KIDS menu, under the 'Installation' menu, use the following"
^XMB(3.9,69,2,1123,0)="""PKG"",26,22,1,""PAH"",1,1,173,0)"
^XMB(3.9,69,2,1124,0)="      options:"
^XMB(3.9,69,2,1125,0)="""PKG"",26,22,1,""PAH"",1,1,174,0)"
^XMB(3.9,69,2,1126,0)="        Print Transport Global"
^XMB(3.9,69,2,1127,0)="""PKG"",26,22,1,""PAH"",1,1,175,0)"
^XMB(3.9,69,2,1128,0)="        Compare Transport Global to Current System"
^XMB(3.9,69,2,1129,0)="""PKG"",26,22,1,""PAH"",1,1,176,0)"
^XMB(3.9,69,2,1130,0)="        Backup a Transport Global"
^XMB(3.9,69,2,1131,0)="""PKG"",26,22,1,""PAH"",1,1,177,0)"
^XMB(3.9,69,2,1132,0)=" "
^XMB(3.9,69,2,1133,0)="""PKG"",26,22,1,""PAH"",1,1,178,0)"
^XMB(3.9,69,2,1134,0)="  5.  Use the 'Install Package(s)' option under the 'Installation' menu"
^XMB(3.9,69,2,1135,0)="""PKG"",26,22,1,""PAH"",1,1,179,0)"
^XMB(3.9,69,2,1136,0)="      and select the package 'LR*5.2*343*'"
^XMB(3.9,69,2,1137,0)="""PKG"",26,22,1,""PAH"",1,1,180,0)"
^XMB(3.9,69,2,1138,0)=" "
^XMB(3.9,69,2,1139,0)="""PKG"",26,22,1,""PAH"",1,1,181,0)"
^XMB(3.9,69,2,1140,0)="      If prompted ""Want KIDS to Rebuild Menu Trees Upon Completion of"
^XMB(3.9,69,2,1141,0)="""PKG"",26,22,1,""PAH"",1,1,182,0)"
^XMB(3.9,69,2,1142,0)="      Install?"" choose ""NO"".  Note: Responding ""Yes"" to the prompt for"
^XMB(3.9,69,2,1143,0)="""PKG"",26,22,1,""PAH"",1,1,183,0)"
^XMB(3.9,69,2,1144,0)="      rebuilding menu trees can significantly increase install time."
^XMB(3.9,69,2,1145,0)="""PKG"",26,22,1,""PAH"",1,1,184,0)"
^XMB(3.9,69,2,1146,0)=" "
^XMB(3.9,69,2,1147,0)="""PKG"",26,22,1,""PAH"",1,1,185,0)"
^XMB(3.9,69,2,1148,0)="      If prompted ""Want KIDS to INHIBIT LOGONs during the install?"""
^XMB(3.9,69,2,1149,0)="""PKG"",26,22,1,""PAH"",1,1,186,0)"
^XMB(3.9,69,2,1150,0)="      choose ""NO""."
^XMB(3.9,69,2,1151,0)="""PKG"",26,22,1,""PAH"",1,1,187,0)"
^XMB(3.9,69,2,1152,0)=" "
^XMB(3.9,69,2,1153,0)="""PKG"",26,22,1,""PAH"",1,1,188,0)"
^XMB(3.9,69,2,1154,0)="      If prompted ""Want to DISABLE Scheduled Options, Menu Options, and"
^XMB(3.9,69,2,1155,0)="""PKG"",26,22,1,""PAH"",1,1,189,0)"
^XMB(3.9,69,2,1156,0)="      Protocols? YES//"" choose ""NO"" unless the site has additional local"
^XMB(3.9,69,2,1157,0)="""PKG"",26,22,1,""PAH"",1,1,190,0)"
^XMB(3.9,69,2,1158,0)="      laboratory options that should be disabled during install."
^XMB(3.9,69,2,1159,0)="""PKG"",26,22,1,""PAH"",1,1,191,0)"
^XMB(3.9,69,2,1160,0)=" "
^XMB(3.9,69,2,1161,0)="""PKG"",26,22,1,""PAH"",1,1,192,0)"
^XMB(3.9,69,2,1162,0)="  6.  When prompted for the DEVICE, enter ""Q"" to queue the build.  If you"
^XMB(3.9,69,2,1163,0)="""PKG"",26,22,1,""PAH"",1,1,193,0)"
^XMB(3.9,69,2,1164,0)="      do not queue the installation KIDS will abort the install.  When"
^XMB(3.9,69,2,1165,0)="""PKG"",26,22,1,""PAH"",1,1,194,0)"
^XMB(3.9,69,2,1166,0)="      you try to restart the install you may encounter an <UNDEF> error"
^XMB(3.9,69,2,1167,0)="""PKG"",26,22,1,""PAH"",1,1,195,0)"
^XMB(3.9,69,2,1168,0)="      due to a bug in KIDS.  If this happens you will need to use FileMan"
^XMB(3.9,69,2,1169,0)="""PKG"",26,22,1,""PAH"",1,1,196,0)"
^XMB(3.9,69,2,1170,0)="      to modify the INSTALL file (#9.7) for entry LR*5.2*343 which "
^XMB(3.9,69,2,1171,0)="""PKG"",26,22,1,""PAH"",1,1,197,0)"
^XMB(3.9,69,2,1172,0)="      currently has the status of ""Start of Install"" and set its' STATUS "
^XMB(3.9,69,2,1173,0)="""PKG"",26,22,1,""PAH"",1,1,198,0)"
^XMB(3.9,69,2,1174,0)="      field to ""Install Completed"".  Reload the transport global and "
^XMB(3.9,69,2,1175,0)="""PKG"",26,22,1,""PAH"",1,1,199,0)"
^XMB(3.9,69,2,1176,0)="      install the patch again. "
^XMB(3.9,69,2,1177,0)="""PKG"",26,22,1,""PAH"",1,1,200,0)"
^XMB(3.9,69,2,1178,0)=" "
^XMB(3.9,69,2,1179,0)="""PKG"",26,22,1,""PAH"",1,1,201,0)"
^XMB(3.9,69,2,1180,0)="  7.  Check your system for errors which may have occurred during the "
^XMB(3.9,69,2,1181,0)="""PKG"",26,22,1,""PAH"",1,1,202,0)"
^XMB(3.9,69,2,1182,0)="      time this patch was installed.  If the PROTOCOL DGPM MOVEMENT "
^XMB(3.9,69,2,1183,0)="""PKG"",26,22,1,""PAH"",1,1,203,0)"
^XMB(3.9,69,2,1184,0)="      EVENTS was called during this patch installation, system errors "
^XMB(3.9,69,2,1185,0)="""PKG"",26,22,1,""PAH"",1,1,204,0)"
^XMB(3.9,69,2,1186,0)="      (such as ""Can't return to source"" for routine LR7OEVNT) may have "
^XMB(3.9,69,2,1187,0)="""PKG"",26,22,1,""PAH"",1,1,205,0)"
^XMB(3.9,69,2,1188,0)="      been generated.  If so, those patient movements will have to be re-"
^XMB(3.9,69,2,1189,0)="""PKG"",26,22,1,""PAH"",1,1,206,0)"
^XMB(3.9,69,2,1190,0)="      created. "
^XMB(3.9,69,2,1191,0)="""PKG"",26,22,1,""PAH"",1,1,207,0)"
^XMB(3.9,69,2,1192,0)=" "
^XMB(3.9,69,2,1193,0)="""PKG"",26,22,1,""PAH"",1,1,208,0)"
^XMB(3.9,69,2,1194,0)=" "
^XMB(3.9,69,2,1195,0)="""PKG"",26,22,1,""PAH"",1,1,209,0)"
^XMB(3.9,69,2,1196,0)="INSTALLATION EXAMPLE"
^XMB(3.9,69,2,1197,0)="""PKG"",26,22,1,""PAH"",1,1,210,0)"
^XMB(3.9,69,2,1198,0)="===================="
^XMB(3.9,69,2,1199,0)="""PKG"",26,22,1,""PAH"",1,1,211,0)"
^XMB(3.9,69,2,1200,0)=" "
^XMB(3.9,69,2,1201,0)="""PKG"",26,22,1,""PAH"",1,1,212,0)"
^XMB(3.9,69,2,1202,0)="Select Installation Option:  Install Package(s)"
^XMB(3.9,69,2,1203,0)="""PKG"",26,22,1,""PAH"",1,1,213,0)"
^XMB(3.9,69,2,1204,0)="Select INSTALL NAME:    LR*5.2*343     Loaded from Distribution  "
^XMB(3.9,69,2,1205,0)="""PKG"",26,22,1,""PAH"",1,1,214,0)"
^XMB(3.9,69,2,1206,0)="10/20/05@12:39:58"
^XMB(3.9,69,2,1207,0)="""PKG"",26,22,1,""PAH"",1,1,215,0)"
^XMB(3.9,69,2,1208,0)="     => LR343 KIDS  ;Created on Oct 20, 2005@11:59:59"
^XMB(3.9,69,2,1209,0)="""PKG"",26,22,1,""PAH"",1,1,216,0)"
^XMB(3.9,69,2,1210,0)=" "
^XMB(3.9,69,2,1211,0)="""PKG"",26,22,1,""PAH"",1,1,217,0)"
^XMB(3.9,69,2,1212,0)="This Distribution was loaded on Oct 20, 2005@12:39:58 with header of "
^XMB(3.9,69,2,1213,0)="""PKG"",26,22,1,""PAH"",1,1,218,0)"
^XMB(3.9,69,2,1214,0)="   LR343 KIDS  ;Created on Oct 20, 2005@11:59:59"
^XMB(3.9,69,2,1215,0)="""PKG"",26,22,1,""PAH"",1,1,219,0)"
^XMB(3.9,69,2,1216,0)="   It consisted of the following Install(s):"
^XMB(3.9,69,2,1217,0)="""PKG"",26,22,1,""PAH"",1,1,220,0)"
^XMB(3.9,69,2,1218,0)="     LR*5.2*343"
^XMB(3.9,69,2,1219,0)="""PKG"",26,22,1,""PAH"",1,1,221,0)"
^XMB(3.9,69,2,1220,0)="Checking Install for Package LR*5.2*343"
^XMB(3.9,69,2,1221,0)="""PKG"",26,22,1,""PAH"",1,1,222,0)"
^XMB(3.9,69,2,1222,0)="Will first run the Environment Check Routine, LR343"
^XMB(3.9,69,2,1223,0)="""PKG"",26,22,1,""PAH"",1,1,223,0)"
^XMB(3.9,69,2,1224,0)=" "
^XMB(3.9,69,2,1225,0)="""PKG"",26,22,1,""PAH"",1,1,224,0)"
^XMB(3.9,69,2,1226,0)="                Environment is okay "
^XMB(3.9,69,2,1227,0)="""PKG"",26,22,1,""PAH"",1,1,225,0)"
^XMB(3.9,69,2,1228,0)=" "
^XMB(3.9,69,2,1229,0)="""PKG"",26,22,1,""PAH"",1,1,226,0)"
^XMB(3.9,69,2,1230,0)="Install Questions for LR*5.2*343"
^XMB(3.9,69,2,1231,0)="""PKG"",26,22,1,""PAH"",1,1,227,0)"
^XMB(3.9,69,2,1232,0)=" "
^XMB(3.9,69,2,1233,0)="""PKG"",26,22,1,""PAH"",1,1,228,0)"
^XMB(3.9,69,2,1234,0)="Want KIDS to INHIBIT LOGONs during the install? NO// "
^XMB(3.9,69,2,1235,0)="""PKG"",26,22,1,""PAH"",1,1,229,0)"
^XMB(3.9,69,2,1236,0)=" "
^XMB(3.9,69,2,1237,0)="""PKG"",26,22,1,""PAH"",1,1,230,0)"
^XMB(3.9,69,2,1238,0)="Enter the Device you want to print the Install messages."
^XMB(3.9,69,2,1239,0)="""PKG"",26,22,1,""PAH"",1,1,231,0)"
^XMB(3.9,69,2,1240,0)="You can queue the install by enter a 'Q' at the device prompt."
^XMB(3.9,69,2,1241,0)="""PKG"",26,22,1,""PAH"",1,1,232,0)"
^XMB(3.9,69,2,1242,0)="Enter a '^' to abort the install."
^XMB(3.9,69,2,1243,0)="""PKG"",26,22,1,""PAH"",1,1,233,0)"
^XMB(3.9,69,2,1244,0)=" "
^XMB(3.9,69,2,1245,0)="""PKG"",26,22,1,""PAH"",1,1,234,0)"
^XMB(3.9,69,2,1246,0)="DEVICE: HOME// QUEUE TO PRINT ON"
^XMB(3.9,69,2,1247,0)="""PKG"",26,22,1,""PAH"",1,1,235,0)"
^XMB(3.9,69,2,1248,0)="DEVICE: HOME// P-MAIN"
^XMB(3.9,69,2,1249,0)="""PKG"",26,22,1,""PAH"",1,1,236,0)"
^XMB(3.9,69,2,1250,0)=" "
^XMB(3.9,69,2,1251,0)="""PKG"",26,22,1,""PAH"",1,1,237,0)"
^XMB(3.9,69,2,1252,0)="Request Start Time: Oct 20, 2005@12:42:41//   (OCT 20, 2005@12:42:41)"
^XMB(3.9,69,2,1253,0)="""PKG"",26,22,1,""PAH"",1,1,238,0)"
^XMB(3.9,69,2,1254,0)="Install Queued!"
^XMB(3.9,69,2,1255,0)="""PKG"",26,22,1,""PAH"",1,1,239,0)"
^XMB(3.9,69,2,1256,0)=" "
^XMB(3.9,69,2,1257,0)="""PKG"",26,22,1,""PAH"",1,1,240,0)"
^XMB(3.9,69,2,1258,0)=" "
^XMB(3.9,69,2,1259,0)="""PKG"",26,22,1,""PAH"",1,1,241,0)"
^XMB(3.9,69,2,1260,0)=" "
^XMB(3.9,69,2,1261,0)="""PKG"",26,22,1,""PAH"",1,1,242,0)"
^XMB(3.9,69,2,1262,0)="Sample Installation Output"
^XMB(3.9,69,2,1263,0)="""PKG"",26,22,1,""PAH"",1,1,243,0)"
^XMB(3.9,69,2,1264,0)="=========================="
^XMB(3.9,69,2,1265,0)="""PKG"",26,22,1,""PAH"",1,1,244,0)"
^XMB(3.9,69,2,1266,0)=" "
^XMB(3.9,69,2,1267,0)="""PKG"",26,22,1,""PAH"",1,1,245,0)"
^XMB(3.9,69,2,1268,0)="Install Started for LR*5.2*343 : "
^XMB(3.9,69,2,1269,0)="""PKG"",26,22,1,""PAH"",1,1,246,0)"
^XMB(3.9,69,2,1270,0)="       Oct 20, 2005@12:42:42"
^XMB(3.9,69,2,1271,0)="""PKG"",26,22,1,""PAH"",1,1,247,0)"
^XMB(3.9,69,2,1272,0)=" "
^XMB(3.9,69,2,1273,0)="""PKG"",26,22,1,""PAH"",1,1,248,0)"
^XMB(3.9,69,2,1274,0)="Build Distribution Date: Oct 20, 2005"
^XMB(3.9,69,2,1275,0)="""PKG"",26,22,1,""PAH"",1,1,249,0)"
^XMB(3.9,69,2,1276,0)=" "
^XMB(3.9,69,2,1277,0)="""PKG"",26,22,1,""PAH"",1,1,250,0)"
^XMB(3.9,69,2,1278,0)=" Installing Routines:..."
^XMB(3.9,69,2,1279,0)="""PKG"",26,22,1,""PAH"",1,1,251,0)"
^XMB(3.9,69,2,1280,0)="       Oct 20, 2005@12:42:42"
^XMB(3.9,69,2,1281,0)="""PKG"",26,22,1,""PAH"",1,1,252,0)"
^XMB(3.9,69,2,1282,0)=" "
^XMB(3.9,69,2,1283,0)="""PKG"",26,22,1,""PAH"",1,1,253,0)"
^XMB(3.9,69,2,1284,0)=" Running Pre-Install Routine: PRE^LR343."
^XMB(3.9,69,2,1285,0)="""PKG"",26,22,1,""PAH"",1,1,254,0)"
^XMB(3.9,69,2,1286,0)=" "
^XMB(3.9,69,2,1287,0)="""PKG"",26,22,1,""PAH"",1,1,255,0)"
^XMB(3.9,69,2,1288,0)="       Pre install started at Oct 20, 2005@12:42:42"
^XMB(3.9,69,2,1289,0)="""PKG"",26,22,1,""PAH"",1,1,256,0)"
^XMB(3.9,69,2,1290,0)=" "
^XMB(3.9,69,2,1291,0)="""PKG"",26,22,1,""PAH"",1,1,257,0)"
^XMB(3.9,69,2,1292,0)="      Sent install started alert to mail group G.LMI"
^XMB(3.9,69,2,1293,0)="""PKG"",26,22,1,""PAH"",1,1,258,0)"
^XMB(3.9,69,2,1294,0)=" "
^XMB(3.9,69,2,1295,0)="""PKG"",26,22,1,""PAH"",1,1,259,0)"
^XMB(3.9,69,2,1296,0)="      Setting DISABLE and ACTION fields for Protocols"
^XMB(3.9,69,2,1297,0)="""PKG"",26,22,1,""PAH"",1,1,260,0)"
^XMB(3.9,69,2,1298,0)=" "
^XMB(3.9,69,2,1299,0)="""PKG"",26,22,1,""PAH"",1,1,261,0)"
^XMB(3.9,69,2,1300,0)="            No actions required for pre install"
^XMB(3.9,69,2,1301,0)="""PKG"",26,22,1,""PAH"",1,1,262,0)"
^XMB(3.9,69,2,1302,0)=" "
^XMB(3.9,69,2,1303,0)="""PKG"",26,22,1,""PAH"",1,1,263,0)"
^XMB(3.9,69,2,1304,0)="      Pre install completed at Oct 20, 2005@12:47:42"
^XMB(3.9,69,2,1305,0)="""PKG"",26,22,1,""PAH"",1,1,264,0)"
^XMB(3.9,69,2,1306,0)=" "
^XMB(3.9,69,2,1307,0)="""PKG"",26,22,1,""PAH"",1,1,265,0)"
^XMB(3.9,69,2,1308,0)=" Installing PACKAGE COMPONENTS: "
^XMB(3.9,69,2,1309,0)="""PKG"",26,22,1,""PAH"",1,1,266,0)"
^XMB(3.9,69,2,1310,0)=" "
^XMB(3.9,69,2,1311,0)="""PKG"",26,22,1,""PAH"",1,1,267,0)"
^XMB(3.9,69,2,1312,0)=" Installing PROTOCOL..."
^XMB(3.9,69,2,1313,0)="""PKG"",26,22,1,""PAH"",1,1,268,0)"
^XMB(3.9,69,2,1314,0)="               Oct 20, 2005@12:47:42"
^XMB(3.9,69,2,1315,0)="""PKG"",26,22,1,""PAH"",1,1,269,0)"
^XMB(3.9,69,2,1316,0)=" "
^XMB(3.9,69,2,1317,0)="""PKG"",26,22,1,""PAH"",1,1,270,0)"
^XMB(3.9,69,2,1318,0)=" Running Post-Install Routine: POST^LR343."
^XMB(3.9,69,2,1319,0)="""PKG"",26,22,1,""PAH"",1,1,271,0)"
^XMB(3.9,69,2,1320,0)=" "
^XMB(3.9,69,2,1321,0)="""PKG"",26,22,1,""PAH"",1,1,272,0)"
^XMB(3.9,69,2,1322,0)="       Post install started at Oct 20, 2005@12:47:42"
^XMB(3.9,69,2,1323,0)="""PKG"",26,22,1,""PAH"",1,1,273,0)"
^XMB(3.9,69,2,1324,0)=" "
^XMB(3.9,69,2,1325,0)="""PKG"",26,22,1,""PAH"",1,1,274,0)"
^XMB(3.9,69,2,1326,0)="            File #69.9 field data update started"
^XMB(3.9,69,2,1327,0)="""PKG"",26,22,1,""PAH"",1,1,275,0)"
^XMB(3.9,69,2,1328,0)=" "
^XMB(3.9,69,2,1329,0)="""PKG"",26,22,1,""PAH"",1,1,276,0)"
^XMB(3.9,69,2,1330,0)="           File #69.9 field data deletion finished"
^XMB(3.9,69,2,1331,0)="""PKG"",26,22,1,""PAH"",1,1,277,0)"
^XMB(3.9,69,2,1332,0)=" "
^XMB(3.9,69,2,1333,0)="""PKG"",26,22,1,""PAH"",1,1,278,0)"
^XMB(3.9,69,2,1334,0)="  Post install completed at Oct 20, 2005@12:47:42"
^XMB(3.9,69,2,1335,0)="""PKG"",26,22,1,""PAH"",1,1,279,0)"
^XMB(3.9,69,2,1336,0)=" "
^XMB(3.9,69,2,1337,0)="""PKG"",26,22,1,""PAH"",1,1,280,0)"
^XMB(3.9,69,2,1338,0)="     Sending install completion alert to mail group G.LMI"
^XMB(3.9,69,2,1339,0)="""PKG"",26,22,1,""PAH"",1,1,281,0)"
^XMB(3.9,69,2,1340,0)=" "
^XMB(3.9,69,2,1341,0)="""PKG"",26,22,1,""PAH"",1,1,282,0)"
^XMB(3.9,69,2,1342,0)=" Updating Routine file......"
^XMB(3.9,69,2,1343,0)="""PKG"",26,22,1,""PAH"",1,1,283,0)"
^XMB(3.9,69,2,1344,0)=" "
^XMB(3.9,69,2,1345,0)="""PKG"",26,22,1,""PAH"",1,1,284,0)"
^XMB(3.9,69,2,1346,0)=" Updating KIDS files......."
^XMB(3.9,69,2,1347,0)="""PKG"",26,22,1,""PAH"",1,1,285,0)"
^XMB(3.9,69,2,1348,0)=" "
^XMB(3.9,69,2,1349,0)="""PKG"",26,22,1,""PAH"",1,1,286,0)"
^XMB(3.9,69,2,1350,0)=" LR*5.2*343 Installed. "
^XMB(3.9,69,2,1351,0)="""PKG"",26,22,1,""PAH"",1,1,287,0)"
^XMB(3.9,69,2,1352,0)="               Oct 20, 2005@12:47:42"
^XMB(3.9,69,2,1353,0)="""PKG"",26,22,1,""PAH"",1,1,288,0)"
^XMB(3.9,69,2,1354,0)=" "
^XMB(3.9,69,2,1355,0)="""PKG"",26,22,1,""PAH"",1,1,289,0)"
^XMB(3.9,69,2,1356,0)=" Install Message sent"
^XMB(3.9,69,2,1357,0)="""PKG"",26,22,1,""PAH"",1,1,290,0)"
^XMB(3.9,69,2,1358,0)=" "
^XMB(3.9,69,2,1359,0)="""PKG"",26,22,1,""PAH"",1,1,291,0)"
^XMB(3.9,69,2,1360,0)=" "
^XMB(3.9,69,2,1361,0)="""PKG"",26,22,1,""PAH"",1,1,292,0)"
^XMB(3.9,69,2,1362,0)=" "
^XMB(3.9,69,2,1363,0)="""PKG"",26,22,1,""PAH"",1,1,293,0)"
^XMB(3.9,69,2,1364,0)="Sample MailMan Message"
^XMB(3.9,69,2,1365,0)="""PKG"",26,22,1,""PAH"",1,1,294,0)"
^XMB(3.9,69,2,1366,0)="======================"
^XMB(3.9,69,2,1367,0)="""PKG"",26,22,1,""PAH"",1,1,295,0)"
^XMB(3.9,69,2,1368,0)="Pre install started at Oct 20, 2005@12:48:15"
^XMB(3.9,69,2,1369,0)="""PKG"",26,22,1,""PAH"",1,1,296,0)"
^XMB(3.9,69,2,1370,0)="Sent install started alert to mail group G.LMI"
^XMB(3.9,69,2,1371,0)="""PKG"",26,22,1,""PAH"",1,1,297,0)"
^XMB(3.9,69,2,1372,0)="Setting DISABLE and ACTION fields for Protocols"
^XMB(3.9,69,2,1373,0)="""PKG"",26,22,1,""PAH"",1,1,298,0)"
^XMB(3.9,69,2,1374,0)="No actions required for pre install"
^XMB(3.9,69,2,1375,0)="""PKG"",26,22,1,""PAH"",1,1,299,0)"
^XMB(3.9,69,2,1376,0)="Pre install completed at Oct 20, 2005@12:48:55"
^XMB(3.9,69,2,1377,0)="""PKG"",26,22,1,""PAH"",1,1,300,0)"
^XMB(3.9,69,2,1378,0)="Post install started at Oct 20, 2005@12:53:59"
^XMB(3.9,69,2,1379,0)="""PKG"",26,22,1,""PAH"",1,1,301,0)"
^XMB(3.9,69,2,1380,0)="File #69.9 field data update started"
^XMB(3.9,69,2,1381,0)="""PKG"",26,22,1,""PAH"",1,1,302,0)"
^XMB(3.9,69,2,1382,0)="File #69.9 field data deletion finished"
^XMB(3.9,69,2,1383,0)="""PKG"",26,22,1,""PAH"",1,1,303,0)"
^XMB(3.9,69,2,1384,0)="Post install completed at Oct 20, 2005@12:54:45"
^XMB(3.9,69,2,1385,0)="""PKG"",26,22,1,""PAH"",1,1,304,0)"
^XMB(3.9,69,2,1386,0)="Sending install completion alert to mail group G.LMI"
^XMB(3.9,69,2,1387,0)="""PRE"")"
^XMB(3.9,69,2,1388,0)="LR343"
^XMB(3.9,69,2,1389,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,69,2,1390,0)="Y"
^XMB(3.9,69,2,1391,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,69,2,1392,0)="^D REP^XPDH"
^XMB(3.9,69,2,1393,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,69,2,1394,0)="Shall I write over your |FLAG| File"
^XMB(3.9,69,2,1395,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,69,2,1396,0)="YES"
^XMB(3.9,69,2,1397,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,69,2,1398,0)="D XPF1^XPDIQ"
^XMB(3.9,69,2,1399,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,69,2,1400,0)="Y"
^XMB(3.9,69,2,1401,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,69,2,1402,0)="^D DTA^XPDH"
^XMB(3.9,69,2,1403,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,69,2,1404,0)="Want my data |FLAG| yours"
^XMB(3.9,69,2,1405,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,69,2,1406,0)="YES"
^XMB(3.9,69,2,1407,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,69,2,1408,0)="D XPF2^XPDIQ"
^XMB(3.9,69,2,1409,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,69,2,1410,0)="YO"
^XMB(3.9,69,2,1411,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,69,2,1412,0)="^D INHIBIT^XPDH"
^XMB(3.9,69,2,1413,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,69,2,1414,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,69,2,1415,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,69,2,1416,0)="YES"
^XMB(3.9,69,2,1417,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,69,2,1418,0)="D XPI1^XPDIQ"
^XMB(3.9,69,2,1419,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,69,2,1420,0)="PO^VA(200,:EM"
^XMB(3.9,69,2,1421,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,69,2,1422,0)="^D MG^XPDH"
^XMB(3.9,69,2,1423,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,69,2,1424,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,69,2,1425,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,69,2,1426,0)=""
^XMB(3.9,69,2,1427,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,69,2,1428,0)="D XPM1^XPDIQ"
^XMB(3.9,69,2,1429,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,69,2,1430,0)="Y"
^XMB(3.9,69,2,1431,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,69,2,1432,0)="^D MENU^XPDH"
^XMB(3.9,69,2,1433,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,69,2,1434,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,69,2,1435,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,69,2,1436,0)="YES"
^XMB(3.9,69,2,1437,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,69,2,1438,0)="D XPO1^XPDIQ"
^XMB(3.9,69,2,1439,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,69,2,1440,0)="Y"
^XMB(3.9,69,2,1441,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,69,2,1442,0)="^D OPT^XPDH"
^XMB(3.9,69,2,1443,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,69,2,1444,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,69,2,1445,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,69,2,1446,0)="YES"
^XMB(3.9,69,2,1447,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,69,2,1448,0)="D XPZ1^XPDIQ"
^XMB(3.9,69,2,1449,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,69,2,1450,0)="Y"
^XMB(3.9,69,2,1451,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,69,2,1452,0)="^D RTN^XPDH"
^XMB(3.9,69,2,1453,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,69,2,1454,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,69,2,1455,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,69,2,1456,0)="NO"
^XMB(3.9,69,2,1457,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,69,2,1458,0)="D XPZ2^XPDIQ"
^XMB(3.9,69,2,1459,0)="""RTN"")"
^XMB(3.9,69,2,1460,0)="2"
^XMB(3.9,69,2,1461,0)="""RTN"",""LR343"")"
^XMB(3.9,69,2,1462,0)="0^^B57547450^n/a"
^XMB(3.9,69,2,1463,0)="""RTN"",""LR343"",1,0)"
^XMB(3.9,69,2,1464,0)="LR343 ;DALOI/JDB - LR*5.2*343 KIDS ROUTINE"
^XMB(3.9,69,2,1465,0)="""RTN"",""LR343"",2,0)"
^XMB(3.9,69,2,1466,0)=" ;;5.2;LAB SERVICE;**343**;Sep 27, 1994;Build 1"
^XMB(3.9,69,2,1467,0)="""RTN"",""LR343"",3,0)"
^XMB(3.9,69,2,1468,0)=" ;"
^XMB(3.9,69,2,1469,0)="""RTN"",""LR343"",4,0)"
^XMB(3.9,69,2,1470,0)=" ; Send email if #69.9 fields set to Yes"
^XMB(3.9,69,2,1471,0)="""RTN"",""LR343"",5,0)"
^XMB(3.9,69,2,1472,0)=" ; Set LR7O MOVEMENT EVENT protocols DISABLE and ACTION fields"
^XMB(3.9,69,2,1473,0)="""RTN"",""LR343"",6,0)"
^XMB(3.9,69,2,1474,0)=" ; Pause X minutes so any running protocols can clear"
^XMB(3.9,69,2,1475,0)="""RTN"",""LR343"",7,0)"
^XMB(3.9,69,2,1476,0)=" ; KIDS deletes LR7OEVNT routine"
^XMB(3.9,69,2,1477,0)="""RTN"",""LR343"",8,0)"
^XMB(3.9,69,2,1478,0)=" ; KIDS deletes LR7O MOVEMENT EVENT protocols"
^XMB(3.9,69,2,1479,0)="""RTN"",""LR343"",9,0)"
^XMB(3.9,69,2,1480,0)=" ; Delete data from #69.9 fields"
^XMB(3.9,69,2,1481,0)="""RTN"",""LR343"",10,0)"
^XMB(3.9,69,2,1482,0)=" ; Delete #69.9 fields DD"
^XMB(3.9,69,2,1483,0)="""RTN"",""LR343"",11,0)"
^XMB(3.9,69,2,1484,0)=" ; "
^XMB(3.9,69,2,1485,0)="""RTN"",""LR343"",12,0)"
^XMB(3.9,69,2,1486,0)=" ; "
^XMB(3.9,69,2,1487,0)="""RTN"",""LR343"",13,0)"
^XMB(3.9,69,2,1488,0)="EN ;"
^XMB(3.9,69,2,1489,0)="""RTN"",""LR343"",14,0)"
^XMB(3.9,69,2,1490,0)=" ; Environment Check"
^XMB(3.9,69,2,1491,0)="""RTN"",""LR343"",15,0)"
^XMB(3.9,69,2,1492,0)=" ; Does not prevent loading of the transport global."
^XMB(3.9,69,2,1493,0)="""RTN"",""LR343"",16,0)"
^XMB(3.9,69,2,1494,0)=" ;"
^XMB(3.9,69,2,1495,0)="""RTN"",""LR343"",17,0)"
^XMB(3.9,69,2,1496,0)=" D CLEAN"
^XMB(3.9,69,2,1497,0)="""RTN"",""LR343"",18,0)"
^XMB(3.9,69,2,1498,0)=" D CHECK"
^XMB(3.9,69,2,1499,0)="""RTN"",""LR343"",19,0)"
^XMB(3.9,69,2,1500,0)=" I $G(XPDQUIT) D  Q  ;"
^XMB(3.9,69,2,1501,0)="""RTN"",""LR343"",20,0)"
^XMB(3.9,69,2,1502,0)=" . W !,$$CJ^XLFSTR(""Environment check failed"",$G(IOM,80))"
^XMB(3.9,69,2,1503,0)="""RTN"",""LR343"",21,0)"
^XMB(3.9,69,2,1504,0)=" ;"
^XMB(3.9,69,2,1505,0)="""RTN"",""LR343"",22,0)"
^XMB(3.9,69,2,1506,0)=" W !,$$CJ^XLFSTR(""Environment is okay"",$G(IOM,80))"
^XMB(3.9,69,2,1507,0)="""RTN"",""LR343"",23,0)"
^XMB(3.9,69,2,1508,0)=" D ALERT(""Installation of patch ""_$G(XPDNM,""Unknown patch"")_"" started on ""_$$HTE^XLFDT($H))"
^XMB(3.9,69,2,1509,0)="""RTN"",""LR343"",24,0)"
^XMB(3.9,69,2,1510,0)=" I '$G(XPDENV) D  Q"
^XMB(3.9,69,2,1511,0)="""RTN"",""LR343"",25,0)"
^XMB(3.9,69,2,1512,0)=" . D ALERT(""Transport global for patch ""_$G(XPDNM,""Unknown patch"")_"" loaded on ""_$$HTE^XLFDT($H))"
^XMB(3.9,69,2,1513,0)="""RTN"",""LR343"",26,0)"
^XMB(3.9,69,2,1514,0)=" . D MSGADD(""Sending transport global loaded alert to mail group G.LMI"")"
^XMB(3.9,69,2,1515,0)="""RTN"",""LR343"",27,0)"
^XMB(3.9,69,2,1516,0)=" Q"
^XMB(3.9,69,2,1517,0)="""RTN"",""LR343"",28,0)"
^XMB(3.9,69,2,1518,0)=" ;"
^XMB(3.9,69,2,1519,0)="""RTN"",""LR343"",29,0)"
^XMB(3.9,69,2,1520,0)="CHECK ;"
^XMB(3.9,69,2,1521,0)="""RTN"",""LR343"",30,0)"
^XMB(3.9,69,2,1522,0)=" ; Perform environment check"
^XMB(3.9,69,2,1523,0)="""RTN"",""LR343"",31,0)"
^XMB(3.9,69,2,1524,0)=" N POP"
^XMB(3.9,69,2,1525,0)="""RTN"",""LR343"",32,0)"
^XMB(3.9,69,2,1526,0)=" ; Is Home device defined"
^XMB(3.9,69,2,1527,0)="""RTN"",""LR343"",33,0)"
^XMB(3.9,69,2,1528,0)=" ; Need Home device so ""task install"" option is displayed"
^XMB(3.9,69,2,1529,0)="""RTN"",""LR343"",34,0)"
^XMB(3.9,69,2,1530,0)=" S POP=0 S IOP="""",%ZIS=0 D ^%ZIS"
^XMB(3.9,69,2,1531,0)="""RTN"",""LR343"",35,0)"
^XMB(3.9,69,2,1532,0)=" I POP D  Q"
^XMB(3.9,69,2,1533,0)="""RTN"",""LR343"",36,0)"
^XMB(3.9,69,2,1534,0)=" . S XPDQUIT=2"
^XMB(3.9,69,2,1535,0)="""RTN"",""LR343"",37,0)"
^XMB(3.9,69,2,1536,0)=" . W !,$$CJ^XLFSTR(""*** Home device is not defined ***"",$G(IOM,80))"
^XMB(3.9,69,2,1537,0)="""RTN"",""LR343"",38,0)"
^XMB(3.9,69,2,1538,0)=" ;"
^XMB(3.9,69,2,1539,0)="""RTN"",""LR343"",39,0)"
^XMB(3.9,69,2,1540,0)=" ; Device Defined"
^XMB(3.9,69,2,1541,0)="""RTN"",""LR343"",40,0)"
^XMB(3.9,69,2,1542,0)=" I $S('$G(IOM):1,'$G(IOSL):1,$G(U)'=""^"":1,1:0) D  Q"
^XMB(3.9,69,2,1543,0)="""RTN"",""LR343"",41,0)"
^XMB(3.9,69,2,1544,0)=" . W !,$$CJ^XLFSTR(""*** Terminal Device is not defined ***"",$G(IOM,80))"
^XMB(3.9,69,2,1545,0)="""RTN"",""LR343"",42,0)"
^XMB(3.9,69,2,1546,0)=" . S XPDQUIT=2"
^XMB(3.9,69,2,1547,0)="""RTN"",""LR343"",43,0)"
^XMB(3.9,69,2,1548,0)=" ;"
^XMB(3.9,69,2,1549,0)="""RTN"",""LR343"",44,0)"
^XMB(3.9,69,2,1550,0)=" ; DUZ setup"
^XMB(3.9,69,2,1551,0)="""RTN"",""LR343"",45,0)"
^XMB(3.9,69,2,1552,0)=" I $S('$G(DUZ):1,$D(DUZ)[0:1,$D(DUZ(0))[0:1,1:0) D  Q"
^XMB(3.9,69,2,1553,0)="""RTN"",""LR343"",46,0)"
^XMB(3.9,69,2,1554,0)=" . W !,$$CJ^XLFSTR(""*** Please log in to set variables ***"",$G(IOM,80))"
^XMB(3.9,69,2,1555,0)="""RTN"",""LR343"",47,0)"
^XMB(3.9,69,2,1556,0)=" . S XPDQUIT=2"
^XMB(3.9,69,2,1557,0)="""RTN"",""LR343"",48,0)"
^XMB(3.9,69,2,1558,0)=" ;"
^XMB(3.9,69,2,1559,0)="""RTN"",""LR343"",49,0)"
^XMB(3.9,69,2,1560,0)=" ; Active User"
^XMB(3.9,69,2,1561,0)="""RTN"",""LR343"",50,0)"
^XMB(3.9,69,2,1562,0)=" I $P($$ACTIVE^XUSER(DUZ),""^"")'=1 D  Q"
^XMB(3.9,69,2,1563,0)="""RTN"",""LR343"",51,0)"
^XMB(3.9,69,2,1564,0)=" . W !,$$CJ^XLFSTR(""*** You are not a valid user on this system ***"",$G(IOM,80))"
^XMB(3.9,69,2,1565,0)="""RTN"",""LR343"",52,0)"
^XMB(3.9,69,2,1566,0)=" . S XPDQUIT=2"
^XMB(3.9,69,2,1567,0)="""RTN"",""LR343"",53,0)"
^XMB(3.9,69,2,1568,0)=" ;"
^XMB(3.9,69,2,1569,0)="""RTN"",""LR343"",54,0)"
^XMB(3.9,69,2,1570,0)=" ; KIDS default answer to ""Disable Protocols...."""
^XMB(3.9,69,2,1571,0)="""RTN"",""LR343"",55,0)"
^XMB(3.9,69,2,1572,0)=" S XPDDIQ(""XPZ1"")=0  ;;Dont allow disabling options"
^XMB(3.9,69,2,1573,0)="""RTN"",""LR343"",56,0)"
^XMB(3.9,69,2,1574,0)=" S XPDDIQ(""XPZ1"",""B"")=""NO"""
^XMB(3.9,69,2,1575,0)="""RTN"",""LR343"",57,0)"
^XMB(3.9,69,2,1576,0)=" Q"
^XMB(3.9,69,2,1577,0)="""RTN"",""LR343"",58,0)"
^XMB(3.9,69,2,1578,0)=" ;"
^XMB(3.9,69,2,1579,0)="""RTN"",""LR343"",59,0)"
^XMB(3.9,69,2,1580,0)="PRE ;"
^XMB(3.9,69,2,1581,0)="""RTN"",""LR343"",60,0)"
^XMB(3.9,69,2,1582,0)=" ; KIDS Pre Install"
^XMB(3.9,69,2,1583,0)="""RTN"",""LR343"",61,0)"
^XMB(3.9,69,2,1584,0)=" ; Check that install was tasked"
^XMB(3.9,69,2,1585,0)="""RTN"",""LR343"",62,0)"
^XMB(3.9,69,2,1586,0)=" ; Check if any File #69.9 fields are set to ""YES"" If so send"
^XMB(3.9,69,2,1587,0)="""RTN"",""LR343"",63,0)"
^XMB(3.9,69,2,1588,0)=" ; notification email."
^XMB(3.9,69,2,1589,0)="""RTN"",""LR343"",64,0)"
^XMB(3.9,69,2,1590,0)=" ; Disable Lab Protocols (set DISABLED field and set ACTION to Q)"
^XMB(3.9,69,2,1591,0)="""RTN"",""LR343"",65,0)"
^XMB(3.9,69,2,1592,0)=" ; Hang so current processes started by protocols can end"
^XMB(3.9,69,2,1593,0)="""RTN"",""LR343"",66,0)"
^XMB(3.9,69,2,1594,0)=" N IEN,ERR,PREERR,RECIPS,BODY,VALS,STR"
^XMB(3.9,69,2,1595,0)="""RTN"",""LR343"",67,0)"
^XMB(3.9,69,2,1596,0)=" S PREERR=0"
^XMB(3.9,69,2,1597,0)="""RTN"",""LR343"",68,0)"
^XMB(3.9,69,2,1598,0)=" D MSGADD(""Pre install started at ""_$$HTE^XLFDT($H))"
^XMB(3.9,69,2,1599,0)="""RTN"",""LR343"",69,0)"
^XMB(3.9,69,2,1600,0)=" ;"
^XMB(3.9,69,2,1601,0)="""RTN"",""LR343"",70,0)"
^XMB(3.9,69,2,1602,0)=" ; Was install tasked? Quit if not"
^XMB(3.9,69,2,1603,0)="""RTN"",""LR343"",71,0)"
^XMB(3.9,69,2,1604,0)=" I '$D(ZTQUEUED) I $G(IO(""Q""))="""" D  Q"
^XMB(3.9,69,2,1605,0)="""RTN"",""LR343"",72,0)"
^XMB(3.9,69,2,1606,0)=" . S XPDQUIT=2"
^XMB(3.9,69,2,1607,0)="""RTN"",""LR343"",73,0)"
^XMB(3.9,69,2,1608,0)=" . S XPDABORT=2"
^XMB(3.9,69,2,1609,0)="""RTN"",""LR343"",74,0)"
^XMB(3.9,69,2,1610,0)=" . D MSGADD(""***  THIS INSTALLATION MUST BE TASKED  ***"")"
^XMB(3.9,69,2,1611,0)="""RTN"",""LR343"",75,0)"
^XMB(3.9,69,2,1612,0)=" . D MSGADD("""",0)"
^XMB(3.9,69,2,1613,0)="""RTN"",""LR343"",76,0)"
^XMB(3.9,69,2,1614,0)=" . D MSGADD(""Refer to the Patch Installation instructions"",0)"
^XMB(3.9,69,2,1615,0)="""RTN"",""LR343"",77,0)"
^XMB(3.9,69,2,1616,0)=" . D MSGADD(""for details concerning re-running the install."",0)"
^XMB(3.9,69,2,1617,0)="""RTN"",""LR343"",78,0)"
^XMB(3.9,69,2,1618,0)=" . D CLEAN"
^XMB(3.9,69,2,1619,0)="""RTN"",""LR343"",79,0)"
^XMB(3.9,69,2,1620,0)=" ;"
^XMB(3.9,69,2,1621,0)="""RTN"",""LR343"",80,0)"
^XMB(3.9,69,2,1622,0)=" ; check DD field values and send email if any are YES"
^XMB(3.9,69,2,1623,0)="""RTN"",""LR343"",81,0)"
^XMB(3.9,69,2,1624,0)=" S VALS=$$GETVALS()"
^XMB(3.9,69,2,1625,0)="""RTN"",""LR343"",82,0)"
^XMB(3.9,69,2,1626,0)=" I VALS>0 D  ;"
^XMB(3.9,69,2,1627,0)="""RTN"",""LR343"",83,0)"
^XMB(3.9,69,2,1628,0)=" . S STR=""File #69.9 LABORATORY SITE has one or more fields that were set to YES."""
^XMB(3.9,69,2,1629,0)="""RTN"",""LR343"",84,0)"
^XMB(3.9,69,2,1630,0)=" . D BLDBODY(STR,.BODY)"
^XMB(3.9,69,2,1631,0)="""RTN"",""LR343"",85,0)"
^XMB(3.9,69,2,1632,0)=" . S STR=""    #150.3  CANCEL ON ADMIT set to ""_$S($E(VALS,1,1):""YES"",1:""NO"")"
^XMB(3.9,69,2,1633,0)="""RTN"",""LR343"",86,0)"
^XMB(3.9,69,2,1634,0)=" . D BLDBODY(STR,.BODY)"
^XMB(3.9,69,2,1635,0)="""RTN"",""LR343"",87,0)"
^XMB(3.9,69,2,1636,0)=" . S STR=""    #150.4  CANCEL ON DISCHARGE set to ""_$S($E(VALS,2,2):""YES"",1:""NO"")"
^XMB(3.9,69,2,1637,0)="""RTN"",""LR343"",88,0)"
^XMB(3.9,69,2,1638,0)=" . D BLDBODY(STR,.BODY)"
^XMB(3.9,69,2,1639,0)="""RTN"",""LR343"",89,0)"
^XMB(3.9,69,2,1640,0)=" . S STR=""    #150.5  CANCEL ON SPECIALTY set to ""_$S($E(VALS,3,3):""YES"",1:""NO"")"
^XMB(3.9,69,2,1641,0)="""RTN"",""LR343"",90,0)"
^XMB(3.9,69,2,1642,0)=" . D BLDBODY(STR,.BODY)"
^XMB(3.9,69,2,1643,0)="""RTN"",""LR343"",91,0)"
^XMB(3.9,69,2,1644,0)=" . D BLDBODY("" "",.BODY)"
^XMB(3.9,69,2,1645,0)="""RTN"",""LR343"",92,0)"
^XMB(3.9,69,2,1646,0)=" . S STR=""One or more DC fields of File #69.9 are set to Yes. These fields should have been set to No according to guidelines issued with the release of OR*3*142 and OR*3*141."""
^XMB(3.9,69,2,1647,0)="""RTN"",""LR343"",93,0)"
^XMB(3.9,69,2,1648,0)=" . S STR=STR_""  Facilities would be advised to use the functionality provided in file #100.6 (released with OR*3*142) to maintain the ability to auto discontinue laboratory orders upon a patient movement."""
^XMB(3.9,69,2,1649,0)="""RTN"",""LR343"",94,0)"
^XMB(3.9,69,2,1650,0)=" . S STR=STR_""  Please check your configurations to ensure that this migration has occurred."""
^XMB(3.9,69,2,1651,0)="""RTN"",""LR343"",95,0)"
^XMB(3.9,69,2,1652,0)=" . D BLDBODY(STR,.BODY)"
^XMB(3.9,69,2,1653,0)="""RTN"",""LR343"",96,0)"
^XMB(3.9,69,2,1654,0)=" . S RECIPS(DUZ)="""""
^XMB(3.9,69,2,1655,0)="""RTN"",""LR343"",97,0)"
^XMB(3.9,69,2,1656,0)=" . S RECIPS(""G.LMI"")="""""
^XMB(3.9,69,2,1657,0)="""RTN"",""LR343"",98,0)"
^XMB(3.9,69,2,1658,0)=" . D EMAIL(""LR*5.2*343 -- 69.9 DC Fields"",""BODY"",.RECIPS)"
^XMB(3.9,69,2,1659,0)="""RTN"",""LR343"",99,0)"
^XMB(3.9,69,2,1660,0)=" . K BODY"
^XMB(3.9,69,2,1661,0)="""RTN"",""LR343"",100,0)"
^XMB(3.9,69,2,1662,0)=" . D MSGADD(""***  File #69.9 field(s) set to YES  ***"")"
^XMB(3.9,69,2,1663,0)="""RTN"",""LR343"",101,0)"
^XMB(3.9,69,2,1664,0)=" ;"
^XMB(3.9,69,2,1665,0)="""RTN"",""LR343"",102,0)"
^XMB(3.9,69,2,1666,0)=" D ALERT(""LR*5.2*343 Installation has started"")"
^XMB(3.9,69,2,1667,0)="""RTN"",""LR343"",103,0)"
^XMB(3.9,69,2,1668,0)=" D MSGADD(""Sent install started alert to mail group G.LMI"")"
^XMB(3.9,69,2,1669,0)="""RTN"",""LR343"",104,0)"
^XMB(3.9,69,2,1670,0)=" ;"
^XMB(3.9,69,2,1671,0)="""RTN"",""LR343"",105,0)"
^XMB(3.9,69,2,1672,0)=" ; Disable Protocols and set action event to quit"
^XMB(3.9,69,2,1673,0)="""RTN"",""LR343"",106,0)"
^XMB(3.9,69,2,1674,0)=" D MSGADD(""Setting DISABLE and ACTION fields for Protocols"")"
^XMB(3.9,69,2,1675,0)="""RTN"",""LR343"",107,0)"
^XMB(3.9,69,2,1676,0)=" S IEN=$$FIND1^DIC(101,,""XO"",""LR7O MOVEMENT EVENT"",""B"",,""ERR"")"
^XMB(3.9,69,2,1677,0)="""RTN"",""LR343"",108,0)"
^XMB(3.9,69,2,1678,0)=" I IEN D UPDTPROT(IEN)"
^XMB(3.9,69,2,1679,0)="""RTN"",""LR343"",109,0)"
^XMB(3.9,69,2,1680,0)=" I 'IEN D MSGADD(""***  Did not find LR7O MOVEMENT EVENT PROTOCOL  ***"")"
^XMB(3.9,69,2,1681,0)="""RTN"",""LR343"",110,0)"
^XMB(3.9,69,2,1682,0)=" S IEN=$$FIND1^DIC(101,,""XO"",""LR7O MOVEMENT EVENT TASK"",""B"",,""ERR"")"
^XMB(3.9,69,2,1683,0)="""RTN"",""LR343"",111,0)"
^XMB(3.9,69,2,1684,0)=" I IEN D UPDTPROT(IEN)"
^XMB(3.9,69,2,1685,0)="""RTN"",""LR343"",112,0)"
^XMB(3.9,69,2,1686,0)=" I 'IEN D MSGADD(""***  Did not find LR7O MOVEMENT EVENT TASK PROTOCOL  ***"")"
^XMB(3.9,69,2,1687,0)="""RTN"",""LR343"",113,0)"
^XMB(3.9,69,2,1688,0)=" ;"
^XMB(3.9,69,2,1689,0)="""RTN"",""LR343"",114,0)"
^XMB(3.9,69,2,1690,0)=" ; Now hang for X minutes to let all existing triggered"
^XMB(3.9,69,2,1691,0)="""RTN"",""LR343"",115,0)"
^XMB(3.9,69,2,1692,0)=" ; events to clear so we don't cause any ""cant return to source"""
^XMB(3.9,69,2,1693,0)="""RTN"",""LR343"",116,0)"
^XMB(3.9,69,2,1694,0)=" ; errors when we overwrite the protocl's routine which would"
^XMB(3.9,69,2,1695,0)="""RTN"",""LR343"",117,0)"
^XMB(3.9,69,2,1696,0)=" ; cause the other chained events not to be processed (the hang is"
^XMB(3.9,69,2,1697,0)="""RTN"",""LR343"",118,0)"
^XMB(3.9,69,2,1698,0)=" ; why the install is tasked and not run in direct mode)"
^XMB(3.9,69,2,1699,0)="""RTN"",""LR343"",119,0)"
^XMB(3.9,69,2,1700,0)=" H 300"
^XMB(3.9,69,2,1701,0)="""RTN"",""LR343"",120,0)"
^XMB(3.9,69,2,1702,0)=" ;"
^XMB(3.9,69,2,1703,0)="""RTN"",""LR343"",121,0)"
^XMB(3.9,69,2,1704,0)=" I 'PREERR D MSGADD(""No actions required for pre install"")"
^XMB(3.9,69,2,1705,0)="""RTN"",""LR343"",122,0)"
^XMB(3.9,69,2,1706,0)=" D MSGADD(""Pre install completed at ""_$$HTE^XLFDT($H))"
^XMB(3.9,69,2,1707,0)="""RTN"",""LR343"",123,0)"
^XMB(3.9,69,2,1708,0)=" Q"
^XMB(3.9,69,2,1709,0)="""RTN"",""LR343"",124,0)"
^XMB(3.9,69,2,1710,0)=" ;"
^XMB(3.9,69,2,1711,0)="""RTN"",""LR343"",125,0)"
^XMB(3.9,69,2,1712,0)="POST ;"
^XMB(3.9,69,2,1713,0)="""RTN"",""LR343"",126,0)"
^XMB(3.9,69,2,1714,0)=" ; KIDS Post Install"
^XMB(3.9,69,2,1715,0)="""RTN"",""LR343"",127,0)"
^XMB(3.9,69,2,1716,0)=" ; Delete data in File #69.9 fields"
^XMB(3.9,69,2,1717,0)="""RTN"",""LR343"",128,0)"
^XMB(3.9,69,2,1718,0)=" ; Remove #69.9 fields from Data Dictionary"
^XMB(3.9,69,2,1719,0)="""RTN"",""LR343"",129,0)"
^XMB(3.9,69,2,1720,0)=" ; Email installation progress message"
^XMB(3.9,69,2,1721,0)="""RTN"",""LR343"",130,0)"
^XMB(3.9,69,2,1722,0)=" N DA,DIK,LRFDA,LRMSG,LRMSG2,POSTERR,RECIPS"
^XMB(3.9,69,2,1723,0)="""RTN"",""LR343"",131,0)"
^XMB(3.9,69,2,1724,0)=" S POSTERR=0"
^XMB(3.9,69,2,1725,0)="""RTN"",""LR343"",132,0)"
^XMB(3.9,69,2,1726,0)=" D MSGADD(""Post install started at ""_$$HTE^XLFDT($H))"
^XMB(3.9,69,2,1727,0)="""RTN"",""LR343"",133,0)"
^XMB(3.9,69,2,1728,0)=" D MSGADD(""File #69.9 field data update started"")"
^XMB(3.9,69,2,1729,0)="""RTN"",""LR343"",134,0)"
^XMB(3.9,69,2,1730,0)=" ; delete #69.9 field data"
^XMB(3.9,69,2,1731,0)="""RTN"",""LR343"",135,0)"
^XMB(3.9,69,2,1732,0)=" S LRFDA(1,69.9,""1,"",150.3)=""@"""
^XMB(3.9,69,2,1733,0)="""RTN"",""LR343"",136,0)"
^XMB(3.9,69,2,1734,0)=" S LRFDA(1,69.9,""1,"",150.4)=""@"""
^XMB(3.9,69,2,1735,0)="""RTN"",""LR343"",137,0)"
^XMB(3.9,69,2,1736,0)=" S LRFDA(1,69.9,""1,"",150.5)=""@"""
^XMB(3.9,69,2,1737,0)="""RTN"",""LR343"",138,0)"
^XMB(3.9,69,2,1738,0)=" K MSG"
^XMB(3.9,69,2,1739,0)="""RTN"",""LR343"",139,0)"
^XMB(3.9,69,2,1740,0)=" D FILE^DIE("""",""LRFDA(1)"",""LRMSG"")"
^XMB(3.9,69,2,1741,0)="""RTN"",""LR343"",140,0)"
^XMB(3.9,69,2,1742,0)=" I $D(LRMSG) D  ;"
^XMB(3.9,69,2,1743,0)="""RTN"",""LR343"",141,0)"
^XMB(3.9,69,2,1744,0)=" . K LRMSG2"
^XMB(3.9,69,2,1745,0)="""RTN"",""LR343"",142,0)"
^XMB(3.9,69,2,1746,0)=" . D MSG^DIALOG(""ASEM"",.LRMSG2,$G(IOM,80),,""LRMSG"")"
^XMB(3.9,69,2,1747,0)="""RTN"",""LR343"",143,0)"
^XMB(3.9,69,2,1748,0)=" . S POSTERR=1"
^XMB(3.9,69,2,1749,0)="""RTN"",""LR343"",144,0)"
^XMB(3.9,69,2,1750,0)=" . D MSGADD(.LRMSG2)"
^XMB(3.9,69,2,1751,0)="""RTN"",""LR343"",145,0)"
^XMB(3.9,69,2,1752,0)=" D KILLDD(150.3)"
^XMB(3.9,69,2,1753,0)="""RTN"",""LR343"",146,0)"
^XMB(3.9,69,2,1754,0)=" D KILLDD(150.4)"
^XMB(3.9,69,2,1755,0)="""RTN"",""LR343"",147,0)"
^XMB(3.9,69,2,1756,0)=" D KILLDD(150.5)"
^XMB(3.9,69,2,1757,0)="""RTN"",""LR343"",148,0)"
^XMB(3.9,69,2,1758,0)=" D MSGADD(""File #69.9 field data deletion finished"")"
^XMB(3.9,69,2,1759,0)="""RTN"",""LR343"",149,0)"
^XMB(3.9,69,2,1760,0)=" D MSGADD(""Post install completed""_$S(POSTERR:"" with errors"",1:"""")_"" at ""_$$HTE^XLFDT($H))"
^XMB(3.9,69,2,1761,0)="""RTN"",""LR343"",150,0)"
^XMB(3.9,69,2,1762,0)=" D MSGADD(""Sending install completion alert to mail group G.LMI"")"
^XMB(3.9,69,2,1763,0)="""RTN"",""LR343"",151,0)"
^XMB(3.9,69,2,1764,0)=" ; Send alert"
^XMB(3.9,69,2,1765,0)="""RTN"",""LR343"",152,0)"
^XMB(3.9,69,2,1766,0)=" D ALERT(""Installation of patch ""_$G(XPDNM,""Unknown patch"")_"" completed on ""_$$HTE^XLFDT($H)_$S(POSTERR:"" with errors"",1:""""))"
^XMB(3.9,69,2,1767,0)="""RTN"",""LR343"",153,0)"
^XMB(3.9,69,2,1768,0)=" S RECIPS(DUZ)="""""
^XMB(3.9,69,2,1769,0)="""RTN"",""LR343"",154,0)"
^XMB(3.9,69,2,1770,0)=" D EMAIL(""INSTALL COMPLETED:""_$G(XPDNM),""^TMP(""""LR343"""",""_$J_"",""""MSG"""")"",.RECIPS)"
^XMB(3.9,69,2,1771,0)="""RTN"",""LR343"",155,0)"
^XMB(3.9,69,2,1772,0)=" D CLEAN"
^XMB(3.9,69,2,1773,0)="""RTN"",""LR343"",156,0)"
^XMB(3.9,69,2,1774,0)=" Q"
^XMB(3.9,69,2,1775,0)="""RTN"",""LR343"",157,0)"
^XMB(3.9,69,2,1776,0)=" ;"
^XMB(3.9,69,2,1777,0)="""RTN"",""LR343"",158,0)"
^XMB(3.9,69,2,1778,0)="ALERT(MSG) ;"
^XMB(3.9,69,2,1779,0)="""RTN"",""LR343"",159,0)"
^XMB(3.9,69,2,1780,0)=" N DA,DIK,XQA,XQAMSG"
^XMB(3.9,69,2,1781,0)="""RTN"",""LR343"",160,0)"
^XMB(3.9,69,2,1782,0)=" S MSG=$G(MSG)"
^XMB(3.9,69,2,1783,0)="""RTN"",""LR343"",161,0)"
^XMB(3.9,69,2,1784,0)=" S XQAMSG=MSG"
^XMB(3.9,69,2,1785,0)="""RTN"",""LR343"",162,0)"
^XMB(3.9,69,2,1786,0)=" S XQA(""G.LMI"")="""""
^XMB(3.9,69,2,1787,0)="""RTN"",""LR343"",163,0)"
^XMB(3.9,69,2,1788,0)=" D SETUP^XQALERT"
^XMB(3.9,69,2,1789,0)="""RTN"",""LR343"",164,0)"
^XMB(3.9,69,2,1790,0)=" Q"
^XMB(3.9,69,2,1791,0)="""RTN"",""LR343"",165,0)"
^XMB(3.9,69,2,1792,0)=" ;"
^XMB(3.9,69,2,1793,0)="""RTN"",""LR343"",166,0)"
^XMB(3.9,69,2,1794,0)="EMAIL(SUB,LRTXT,LRADDR) ;"
^XMB(3.9,69,2,1795,0)="""RTN"",""LR343"",167,0)"
^XMB(3.9,69,2,1796,0)=" ; Sends an email message via MailMan using installer's DUZ"
^XMB(3.9,69,2,1797,0)="""RTN"",""LR343"",168,0)"
^XMB(3.9,69,2,1798,0)=" ;    SUB <byval>   Subject for the message"
^XMB(3.9,69,2,1799,0)="""RTN"",""LR343"",169,0)"
^XMB(3.9,69,2,1800,0)=" ;  LRTXT <byval>   Closed root local or global array"
^XMB(3.9,69,2,1801,0)="""RTN"",""LR343"",170,0)"
^XMB(3.9,69,2,1802,0)=" ;              ie local array TEXT(1) passed as ""TEXT"""
^XMB(3.9,69,2,1803,0)="""RTN"",""LR343"",171,0)"
^XMB(3.9,69,2,1804,0)=" ; LRADDR <byref>   MailMan compatable array of message recipients"
^XMB(3.9,69,2,1805,0)="""RTN"",""LR343"",172,0)"
^XMB(3.9,69,2,1806,0)=" N XMERR,XMZ,DIFROM"
^XMB(3.9,69,2,1807,0)="""RTN"",""LR343"",173,0)"
^XMB(3.9,69,2,1808,0)=" D SENDMSG^XMXAPI($G(DUZ),$G(SUB),$G(LRTXT),.LRADDR)"
^XMB(3.9,69,2,1809,0)="""RTN"",""LR343"",174,0)"
^XMB(3.9,69,2,1810,0)=" Q $G(XMZ,-1)"
^XMB(3.9,69,2,1811,0)="""RTN"",""LR343"",175,0)"
^XMB(3.9,69,2,1812,0)=" ;"
^XMB(3.9,69,2,1813,0)="""RTN"",""LR343"",176,0)"
^XMB(3.9,69,2,1814,0)="BLDBODY(STR,ARR) ;"
^XMB(3.9,69,2,1815,0)="""RTN"",""LR343"",177,0)"
^XMB(3.9,69,2,1816,0)=" ; Adds a string to the end of the passed array"
^XMB(3.9,69,2,1817,0)="""RTN"",""LR343"",178,0)"
^XMB(3.9,69,2,1818,0)=" ; Useful for building email message bodies"
^XMB(3.9,69,2,1819,0)="""RTN"",""LR343"",179,0)"
^XMB(3.9,69,2,1820,0)=" ; STR <req>    The string to add to the array"
^XMB(3.9,69,2,1821,0)="""RTN"",""LR343"",180,0)"
^XMB(3.9,69,2,1822,0)=" ; ARR <byref>  The array. Should be a simple, integer"
^XMB(3.9,69,2,1823,0)="""RTN"",""LR343"",181,0)"
^XMB(3.9,69,2,1824,0)=" ;              based subscript array ie X(1), X(2), etc."
^XMB(3.9,69,2,1825,0)="""RTN"",""LR343"",182,0)"
^XMB(3.9,69,2,1826,0)=" N SUB"
^XMB(3.9,69,2,1827,0)="""RTN"",""LR343"",183,0)"
^XMB(3.9,69,2,1828,0)=" S STR=$G(STR)"
^XMB(3.9,69,2,1829,0)="""RTN"",""LR343"",184,0)"
^XMB(3.9,69,2,1830,0)=" S SUB=+$O(ARR(""A""),-1)"
^XMB(3.9,69,2,1831,0)="""RTN"",""LR343"",185,0)"
^XMB(3.9,69,2,1832,0)=" S ARR(SUB+1)=STR"
^XMB(3.9,69,2,1833,0)="""RTN"",""LR343"",186,0)"
^XMB(3.9,69,2,1834,0)=" Q"
^XMB(3.9,69,2,1835,0)="""RTN"",""LR343"",187,0)"
^XMB(3.9,69,2,1836,0)=" ;"
^XMB(3.9,69,2,1837,0)="""RTN"",""LR343"",188,0)"
^XMB(3.9,69,2,1838,0)="GETVALS(NULL) ;"
^XMB(3.9,69,2,1839,0)="""RTN"",""LR343"",189,0)"
^XMB(3.9,69,2,1840,0)=" ; Returns the values for #69.9 fields 150.3,150.4,150.5"
^XMB(3.9,69,2,1841,0)="""RTN"",""LR343"",190,0)"
^XMB(3.9,69,2,1842,0)=" ; as a string  ie 000  or 010 etc (each field is only 1 or 0)"
^XMB(3.9,69,2,1843,0)="""RTN"",""LR343"",191,0)"
^XMB(3.9,69,2,1844,0)=" N NODE,LRDATA,LRERR,VALUES"
^XMB(3.9,69,2,1845,0)="""RTN"",""LR343"",192,0)"
^XMB(3.9,69,2,1846,0)=" S VALUES="""""
^XMB(3.9,69,2,1847,0)="""RTN"",""LR343"",193,0)"
^XMB(3.9,69,2,1848,0)=" D GETS^DIQ(69.9,""1,"",""150.3;150.4;150.5"",""I"",""LRDATA"",""LRERR"")"
^XMB(3.9,69,2,1849,0)="""RTN"",""LR343"",194,0)"
^XMB(3.9,69,2,1850,0)=" I $D(LRDATA(69.9))>9 D  ;"
^XMB(3.9,69,2,1851,0)="""RTN"",""LR343"",195,0)"
^XMB(3.9,69,2,1852,0)=" . S NODE=""LRDATA(69.9)"""
^XMB(3.9,69,2,1853,0)="""RTN"",""LR343"",196,0)"
^XMB(3.9,69,2,1854,0)=" .  F  S NODE=$Q(@NODE) Q:NODE=""""  Q:$QS(NODE,1)'=69.9  S VALUES=VALUES_+@NODE"
^XMB(3.9,69,2,1855,0)="""RTN"",""LR343"",197,0)"
^XMB(3.9,69,2,1856,0)=" Q VALUES"
^XMB(3.9,69,2,1857,0)="""RTN"",""LR343"",198,0)"
^XMB(3.9,69,2,1858,0)=" ;"
^XMB(3.9,69,2,1859,0)="""RTN"",""LR343"",199,0)"
^XMB(3.9,69,2,1860,0)="UPDTPROT(IEN) ;"
^XMB(3.9,69,2,1861,0)="""RTN"",""LR343"",200,0)"
^XMB(3.9,69,2,1862,0)=" ; Sets the PROTOCOL's (#101) DISABLE field (#2) to DISABLED"
^XMB(3.9,69,2,1863,0)="""RTN"",""LR343"",201,0)"
^XMB(3.9,69,2,1864,0)=" ; and its ENTRY ACTION field (#20) to Q (QUIT)"
^XMB(3.9,69,2,1865,0)="""RTN"",""LR343"",202,0)"
^XMB(3.9,69,2,1866,0)=" N LRFDA,LRMSG"
^XMB(3.9,69,2,1867,0)="""RTN"",""LR343"",203,0)"
^XMB(3.9,69,2,1868,0)=" S IEN=$G(IEN)"
^XMB(3.9,69,2,1869,0)="""RTN"",""LR343"",204,0)"
^XMB(3.9,69,2,1870,0)=" S LRFDA(1,101,IEN_"","",2)=""DISABLED BY LR*5.2*343"""
^XMB(3.9,69,2,1871,0)="""RTN"",""LR343"",205,0)"
^XMB(3.9,69,2,1872,0)=" S LRFDA(1,101,IEN_"","",20)=""Q"""
^XMB(3.9,69,2,1873,0)="""RTN"",""LR343"",206,0)"
^XMB(3.9,69,2,1874,0)=" D FILE^DIE(""ET"",""LRFDA(1)"",""LRMSG"")"
^XMB(3.9,69,2,1875,0)="""RTN"",""LR343"",207,0)"
^XMB(3.9,69,2,1876,0)=" Q"
^XMB(3.9,69,2,1877,0)="""RTN"",""LR343"",208,0)"
^XMB(3.9,69,2,1878,0)=" ;"
^XMB(3.9,69,2,1879,0)="""RTN"",""LR343"",209,0)"
^XMB(3.9,69,2,1880,0)="MSGADD(TXT,LB) ;"
^XMB(3.9,69,2,1881,0)="""RTN"",""LR343"",210,0)"
^XMB(3.9,69,2,1882,0)=" ; Utility to create a message global to save install"
^XMB(3.9,69,2,1883,0)="""RTN"",""LR343"",211,0)"
^XMB(3.9,69,2,1884,0)=" ; messages and send later, usually via mailman.  Useful"
^XMB(3.9,69,2,1885,0)="""RTN"",""LR343"",212,0)"
^XMB(3.9,69,2,1886,0)=" ; when an install is tasked.  It will print"
^XMB(3.9,69,2,1887,0)="""RTN"",""LR343"",213,0)"
^XMB(3.9,69,2,1888,0)=" ; the messages out as they come in, as well as save them"
^XMB(3.9,69,2,1889,0)="""RTN"",""LR343"",214,0)"
^XMB(3.9,69,2,1890,0)=" ; to the TMP global"
^XMB(3.9,69,2,1891,0)="""RTN"",""LR343"",215,0)"
^XMB(3.9,69,2,1892,0)=" ; Input"
^XMB(3.9,69,2,1893,0)="""RTN"",""LR343"",216,0)"
^XMB(3.9,69,2,1894,0)=" ; TXT <byref or byval>"
^XMB(3.9,69,2,1895,0)="""RTN"",""LR343"",217,0)"
^XMB(3.9,69,2,1896,0)=" ;         If $D(TXT)=1 then TXT is saved"
^XMB(3.9,69,2,1897,0)="""RTN"",""LR343"",218,0)"
^XMB(3.9,69,2,1898,0)=" ;         If $D(TXT)>9 then step through array and save each node "
^XMB(3.9,69,2,1899,0)="""RTN"",""LR343"",219,0)"
^XMB(3.9,69,2,1900,0)=" ;         as separate line."
^XMB(3.9,69,2,1901,0)="""RTN"",""LR343"",220,0)"
^XMB(3.9,69,2,1902,0)=" ;  LB <opt>   LineBreak  (True then uses MBES -- False uses MES)"
^XMB(3.9,69,2,1903,0)="""RTN"",""LR343"",221,0)"
^XMB(3.9,69,2,1904,0)=" ;"
^XMB(3.9,69,2,1905,0)="""RTN"",""LR343"",222,0)"
^XMB(3.9,69,2,1906,0)=" ; TXT <byref> is used by-ref when passsing in arrays created by"
^XMB(3.9,69,2,1907,0)="""RTN"",""LR343"",223,0)"
^XMB(3.9,69,2,1908,0)=" ; the FileMan MSG^DIALOG output array"
^XMB(3.9,69,2,1909,0)="""RTN"",""LR343"",224,0)"
^XMB(3.9,69,2,1910,0)=" ;"
^XMB(3.9,69,2,1911,0)="""RTN"",""LR343"",225,0)"
^XMB(3.9,69,2,1912,0)=" N NODE,SUB,POS"
^XMB(3.9,69,2,1913,0)="""RTN"",""LR343"",226,0)"
^XMB(3.9,69,2,1914,0)=" S TXT=$G(TXT)"
^XMB(3.9,69,2,1915,0)="""RTN"",""LR343"",227,0)"
^XMB(3.9,69,2,1916,0)=" S LB=$G(LB)"
^XMB(3.9,69,2,1917,0)="""RTN"",""LR343"",228,0)"
^XMB(3.9,69,2,1918,0)=" I LB="""" S LB=1"
^XMB(3.9,69,2,1919,0)="""RTN"",""LR343"",229,0)"
^XMB(3.9,69,2,1920,0)=" S LB=+LB"
^XMB(3.9,69,2,1921,0)="""RTN"",""LR343"",230,0)"
^XMB(3.9,69,2,1922,0)=" S SUB=+$O(^TMP(""LR343"",$J,""MSG"",""A""),-1)"
^XMB(3.9,69,2,1923,0)="""RTN"",""LR343"",231,0)"
^XMB(3.9,69,2,1924,0)=" I $D(TXT)>9 D  ;"
^XMB(3.9,69,2,1925,0)="""RTN"",""LR343"",232,0)"
^XMB(3.9,69,2,1926,0)=" . S NODE=""TXT"""
^XMB(3.9,69,2,1927,0)="""RTN"",""LR343"",233,0)"
^XMB(3.9,69,2,1928,0)=" . F  S NODE=$Q(@NODE) Q:NODE=""""  D  ;"
^XMB(3.9,69,2,1929,0)="""RTN"",""LR343"",234,0)"
^XMB(3.9,69,2,1930,0)=" . . S ^TMP(""LR343"",$J,""MSG"",SUB+1)=@NODE"
^XMB(3.9,69,2,1931,0)="""RTN"",""LR343"",235,0)"
^XMB(3.9,69,2,1932,0)=" . . S SUB=SUB+1"
^XMB(3.9,69,2,1933,0)="""RTN"",""LR343"",236,0)"
^XMB(3.9,69,2,1934,0)=" . . I $D(XPDENV) I LB D BMES^XPDUTL($$CJ^XLFSTR(@NODE,$G(IOM,80)))"
^XMB(3.9,69,2,1935,0)="""RTN"",""LR343"",237,0)"
^XMB(3.9,69,2,1936,0)=" . . I $D(XPDENV) I 'LB D MES^XPDUTL($$CJ^XLFSTR(@NODE,$G(IOM,80)))"
^XMB(3.9,69,2,1937,0)="""RTN"",""LR343"",238,0)"
^XMB(3.9,69,2,1938,0)=" . . I '$D(XPDENV) W !,$$CJ^XLFSTR(@NODE,$G(IOM,80))"
^XMB(3.9,69,2,1939,0)="""RTN"",""LR343"",239,0)"
^XMB(3.9,69,2,1940,0)=" . ;"
^XMB(3.9,69,2,1941,0)="""RTN"",""LR343"",240,0)"
^XMB(3.9,69,2,1942,0)=" ;"
^XMB(3.9,69,2,1943,0)="""RTN"",""LR343"",241,0)"
^XMB(3.9,69,2,1944,0)=" I $D(TXT)=1 D  ;"
^XMB(3.9,69,2,1945,0)="""RTN"",""LR343"",242,0)"
^XMB(3.9,69,2,1946,0)=" . S ^TMP(""LR343"",$J,""MSG"",SUB+1)=TXT"
^XMB(3.9,69,2,1947,0)="""RTN"",""LR343"",243,0)"
^XMB(3.9,69,2,1948,0)=" . I '$D(XPDENV) I LB D BMES^XPDUTL($$CJ^XLFSTR(TXT,$G(IOM,80)))"
^XMB(3.9,69,2,1949,0)="""RTN"",""LR343"",244,0)"
^XMB(3.9,69,2,1950,0)=" . I '$D(XPDENV) I 'LB D MES^XPDUTL($$CJ^XLFSTR(TXT,$G(IOM,80)))"
^XMB(3.9,69,2,1951,0)="""RTN"",""LR343"",245,0)"
^XMB(3.9,69,2,1952,0)=" . I $D(XPDENV) W !,$$CJ^XLFSTR(TXT,$G(IOM,80))"
^XMB(3.9,69,2,1953,0)="""RTN"",""LR343"",246,0)"
^XMB(3.9,69,2,1954,0)=" Q"
^XMB(3.9,69,2,1955,0)="""RTN"",""LR343"",247,0)"
^XMB(3.9,69,2,1956,0)=" ;"
^XMB(3.9,69,2,1957,0)="""RTN"",""LR343"",248,0)"
^XMB(3.9,69,2,1958,0)="CLEAN ;"
^XMB(3.9,69,2,1959,0)="""RTN"",""LR343"",249,0)"
^XMB(3.9,69,2,1960,0)=" K ^TMP(""LR343"",$J)"
^XMB(3.9,69,2,1961,0)="""RTN"",""LR343"",250,0)"
^XMB(3.9,69,2,1962,0)=" D CLEAN^DILF"
^XMB(3.9,69,2,1963,0)="""RTN"",""LR343"",251,0)"
^XMB(3.9,69,2,1964,0)=" Q"
^XMB(3.9,69,2,1965,0)="""RTN"",""LR343"",252,0)"
^XMB(3.9,69,2,1966,0)=" ;"
^XMB(3.9,69,2,1967,0)="""RTN"",""LR343"",253,0)"
^XMB(3.9,69,2,1968,0)="KILLDD(FIELD) ;"
^XMB(3.9,69,2,1969,0)="""RTN"",""LR343"",254,0)"
^XMB(3.9,69,2,1970,0)=" ; Deletes the #69.9 field's DD"
^XMB(3.9,69,2,1971,0)="""RTN"",""LR343"",255,0)"
^XMB(3.9,69,2,1972,0)=" N DIK,DA"
^XMB(3.9,69,2,1973,0)="""RTN"",""LR343"",256,0)"
^XMB(3.9,69,2,1974,0)=" S DIK=""^DD(69.9,"""
^XMB(3.9,69,2,1975,0)="""RTN"",""LR343"",257,0)"
^XMB(3.9,69,2,1976,0)=" S DA=FIELD"
^XMB(3.9,69,2,1977,0)="""RTN"",""LR343"",258,0)"
^XMB(3.9,69,2,1978,0)=" S DA(1)=69.9"
^XMB(3.9,69,2,1979,0)="""RTN"",""LR343"",259,0)"
^XMB(3.9,69,2,1980,0)=" D ^DIK"
^XMB(3.9,69,2,1981,0)="""RTN"",""LR343"",260,0)"
^XMB(3.9,69,2,1982,0)=" Q"
^XMB(3.9,69,2,1983,0)="""RTN"",""LR7OEVNT"")"
^XMB(3.9,69,2,1984,0)="1^1^^B9750943"
^XMB(3.9,69,2,1985,0)="""VER"")"
^XMB(3.9,69,2,1986,0)="8.0^22.0"
^XMB(3.9,69,2,1987,0)="""BLD"",5928,6)"
^XMB(3.9,69,2,1988,0)="^274"
^XMB(3.9,69,2,1989,0)="$END KID LR*5.2*343"
^XMB(3.9,69,6,0)="^3.911A^2^2"
^XMB(3.9,69,6,1,0)="POSTMASTER"
^XMB(3.9,69,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,69,6,"B","POSTMASTER",1)=""
^XMB(3.9,69,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,70,0)="LR-5P2_SEQ-275_PAT-354.KID^.5^3061008.015738^^^^K"
^XMB(3.9,70,.6)="3061008"
^XMB(3.9,70,1,0)="^3.91A^2^2"
^XMB(3.9,70,1,1,0)=".5^0^3061008.015738^^^^^^^3061008.015738"
^XMB(3.9,70,1,2,0)="1^0^3061008.023937^^^^^^^3061008.023937"
^XMB(3.9,70,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,70,1,"C",.5,1)=""
^XMB(3.9,70,1,"C",1,2)=""
^XMB(3.9,70,2,0)="^^389^389^3061008"
^XMB(3.9,70,2,1,0)="$TXT Released LR*5.2*354 SEQ #275"
^XMB(3.9,70,2,2,0)="Extracted from mail message"
^XMB(3.9,70,2,3,0)="$END TXT"
^XMB(3.9,70,2,4,0)="$KID LR*5.2*354"
^XMB(3.9,70,2,5,0)="**INSTALL NAME**"
^XMB(3.9,70,2,6,0)="LR*5.2*354"
^XMB(3.9,70,2,7,0)="""BLD"",6709,0)"
^XMB(3.9,70,2,8,0)="LR*5.2*354^LAB SERVICE^0^3060707^y"
^XMB(3.9,70,2,9,0)="""BLD"",6709,1,0)"
^XMB(3.9,70,2,10,0)="^^2^2^3060313^^^"
^XMB(3.9,70,2,11,0)="""BLD"",6709,1,1,0)"
^XMB(3.9,70,2,12,0)="This patch corrects 2 PROBLEMS WITH THE TURNAROUND TIME REPORT"
^XMB(3.9,70,2,13,0)="""BLD"",6709,1,2,0)"
^XMB(3.9,70,2,14,0)="(LR CAPTT)."
^XMB(3.9,70,2,15,0)="""BLD"",6709,4,0)"
^XMB(3.9,70,2,16,0)="^9.64PA^^"
^XMB(3.9,70,2,17,0)="""BLD"",6709,""ABPKG"")"
^XMB(3.9,70,2,18,0)="n"
^XMB(3.9,70,2,19,0)="""BLD"",6709,""KRN"",0)"
^XMB(3.9,70,2,20,0)="^9.67PA^8989.52^19"
^XMB(3.9,70,2,21,0)="""BLD"",6709,""KRN"",.4,0)"
^XMB(3.9,70,2,22,0)=".4"
^XMB(3.9,70,2,23,0)="""BLD"",6709,""KRN"",.401,0)"
^XMB(3.9,70,2,24,0)=".401"
^XMB(3.9,70,2,25,0)="""BLD"",6709,""KRN"",.402,0)"
^XMB(3.9,70,2,26,0)=".402"
^XMB(3.9,70,2,27,0)="""BLD"",6709,""KRN"",.403,0)"
^XMB(3.9,70,2,28,0)=".403"
^XMB(3.9,70,2,29,0)="""BLD"",6709,""KRN"",.5,0)"
^XMB(3.9,70,2,30,0)=".5"
^XMB(3.9,70,2,31,0)="""BLD"",6709,""KRN"",.84,0)"
^XMB(3.9,70,2,32,0)=".84"
^XMB(3.9,70,2,33,0)="""BLD"",6709,""KRN"",3.6,0)"
^XMB(3.9,70,2,34,0)="3.6"
^XMB(3.9,70,2,35,0)="""BLD"",6709,""KRN"",3.8,0)"
^XMB(3.9,70,2,36,0)="3.8"
^XMB(3.9,70,2,37,0)="""BLD"",6709,""KRN"",9.2,0)"
^XMB(3.9,70,2,38,0)="9.2"
^XMB(3.9,70,2,39,0)="""BLD"",6709,""KRN"",9.8,0)"
^XMB(3.9,70,2,40,0)="9.8"
^XMB(3.9,70,2,41,0)="""BLD"",6709,""KRN"",9.8,""NM"",0)"
^XMB(3.9,70,2,42,0)="^9.68A^1^1"
^XMB(3.9,70,2,43,0)="""BLD"",6709,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,70,2,44,0)="LRUTT^^0^29435333"
^XMB(3.9,70,2,45,0)="""BLD"",6709,""KRN"",9.8,""NM"",""B"",""LRUTT"",1)"
^XMB(3.9,70,2,46,0)=""
^XMB(3.9,70,2,47,0)="""BLD"",6709,""KRN"",19,0)"
^XMB(3.9,70,2,48,0)="19"
^XMB(3.9,70,2,49,0)="""BLD"",6709,""KRN"",19.1,0)"
^XMB(3.9,70,2,50,0)="19.1"
^XMB(3.9,70,2,51,0)="""BLD"",6709,""KRN"",101,0)"
^XMB(3.9,70,2,52,0)="101"
^XMB(3.9,70,2,53,0)="""BLD"",6709,""KRN"",409.61,0)"
^XMB(3.9,70,2,54,0)="409.61"
^XMB(3.9,70,2,55,0)="""BLD"",6709,""KRN"",771,0)"
^XMB(3.9,70,2,56,0)="771"
^XMB(3.9,70,2,57,0)="""BLD"",6709,""KRN"",870,0)"
^XMB(3.9,70,2,58,0)="870"
^XMB(3.9,70,2,59,0)="""BLD"",6709,""KRN"",8989.51,0)"
^XMB(3.9,70,2,60,0)="8989.51"
^XMB(3.9,70,2,61,0)="""BLD"",6709,""KRN"",8989.52,0)"
^XMB(3.9,70,2,62,0)="8989.52"
^XMB(3.9,70,2,63,0)="""BLD"",6709,""KRN"",8994,0)"
^XMB(3.9,70,2,64,0)="8994"
^XMB(3.9,70,2,65,0)="""BLD"",6709,""KRN"",""B"",.4,.4)"
^XMB(3.9,70,2,66,0)=""
^XMB(3.9,70,2,67,0)="""BLD"",6709,""KRN"",""B"",.401,.401)"
^XMB(3.9,70,2,68,0)=""
^XMB(3.9,70,2,69,0)="""BLD"",6709,""KRN"",""B"",.402,.402)"
^XMB(3.9,70,2,70,0)=""
^XMB(3.9,70,2,71,0)="""BLD"",6709,""KRN"",""B"",.403,.403)"
^XMB(3.9,70,2,72,0)=""
^XMB(3.9,70,2,73,0)="""BLD"",6709,""KRN"",""B"",.5,.5)"
^XMB(3.9,70,2,74,0)=""
^XMB(3.9,70,2,75,0)="""BLD"",6709,""KRN"",""B"",.84,.84)"
^XMB(3.9,70,2,76,0)=""
^XMB(3.9,70,2,77,0)="""BLD"",6709,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,70,2,78,0)=""
^XMB(3.9,70,2,79,0)="""BLD"",6709,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,70,2,80,0)=""
^XMB(3.9,70,2,81,0)="""BLD"",6709,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,70,2,82,0)=""
^XMB(3.9,70,2,83,0)="""BLD"",6709,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,70,2,84,0)=""
^XMB(3.9,70,2,85,0)="""BLD"",6709,""KRN"",""B"",19,19)"
^XMB(3.9,70,2,86,0)=""
^XMB(3.9,70,2,87,0)="""BLD"",6709,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,70,2,88,0)=""
^XMB(3.9,70,2,89,0)="""BLD"",6709,""KRN"",""B"",101,101)"
^XMB(3.9,70,2,90,0)=""
^XMB(3.9,70,2,91,0)="""BLD"",6709,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,70,2,92,0)=""
^XMB(3.9,70,2,93,0)="""BLD"",6709,""KRN"",""B"",771,771)"
^XMB(3.9,70,2,94,0)=""
^XMB(3.9,70,2,95,0)="""BLD"",6709,""KRN"",""B"",870,870)"
^XMB(3.9,70,2,96,0)=""
^XMB(3.9,70,2,97,0)="""BLD"",6709,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,70,2,98,0)=""
^XMB(3.9,70,2,99,0)="""BLD"",6709,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,70,2,100,0)=""
^XMB(3.9,70,2,101,0)="""BLD"",6709,""KRN"",""B"",8994,8994)"
^XMB(3.9,70,2,102,0)=""
^XMB(3.9,70,2,103,0)="""BLD"",6709,""QUES"",0)"
^XMB(3.9,70,2,104,0)="^9.62^^"
^XMB(3.9,70,2,105,0)="""BLD"",6709,""REQB"",0)"
^XMB(3.9,70,2,106,0)="^9.611^1^1"
^XMB(3.9,70,2,107,0)="""BLD"",6709,""REQB"",1,0)"
^XMB(3.9,70,2,108,0)="LR*5.2*201^2"
^XMB(3.9,70,2,109,0)="""BLD"",6709,""REQB"",""B"",""LR*5.2*201"",1)"
^XMB(3.9,70,2,110,0)=""
^XMB(3.9,70,2,111,0)="""MBREQ"")"
^XMB(3.9,70,2,112,0)="0"
^XMB(3.9,70,2,113,0)="""PKG"",26,-1)"
^XMB(3.9,70,2,114,0)="1^1"
^XMB(3.9,70,2,115,0)="""PKG"",26,0)"
^XMB(3.9,70,2,116,0)="LAB SERVICE^LR^CORE LAB SYSTEM"
^XMB(3.9,70,2,117,0)="""PKG"",26,20,0)"
^XMB(3.9,70,2,118,0)="^9.402P^1^1"
^XMB(3.9,70,2,119,0)="""PKG"",26,20,1,0)"
^XMB(3.9,70,2,120,0)="2^^LRXDRPT"
^XMB(3.9,70,2,121,0)="""PKG"",26,20,1,1)"
^XMB(3.9,70,2,122,0)=""
^XMB(3.9,70,2,123,0)="""PKG"",26,20,""B"",2,1)"
^XMB(3.9,70,2,124,0)=""
^XMB(3.9,70,2,125,0)="""PKG"",26,22,0)"
^XMB(3.9,70,2,126,0)="^9.49I^1^1"
^XMB(3.9,70,2,127,0)="""PKG"",26,22,1,0)"
^XMB(3.9,70,2,128,0)="5.2^2940927^2950304"
^XMB(3.9,70,2,129,0)="""PKG"",26,22,1,""PAH"",1,0)"
^XMB(3.9,70,2,130,0)="354^3060707"
^XMB(3.9,70,2,131,0)="""PKG"",26,22,1,""PAH"",1,1,0)"
^XMB(3.9,70,2,132,0)="^^2^2^3060707"
^XMB(3.9,70,2,133,0)="""PKG"",26,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,70,2,134,0)="This patch corrects 2 PROBLEMS WITH THE TURNAROUND TIME REPORT"
^XMB(3.9,70,2,135,0)="""PKG"",26,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,70,2,136,0)="(LR CAPTT)."
^XMB(3.9,70,2,137,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,70,2,138,0)="Y"
^XMB(3.9,70,2,139,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,70,2,140,0)="^D REP^XPDH"
^XMB(3.9,70,2,141,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,70,2,142,0)="Shall I write over your |FLAG| File"
^XMB(3.9,70,2,143,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,70,2,144,0)="YES"
^XMB(3.9,70,2,145,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,70,2,146,0)="D XPF1^XPDIQ"
^XMB(3.9,70,2,147,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,70,2,148,0)="Y"
^XMB(3.9,70,2,149,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,70,2,150,0)="^D DTA^XPDH"
^XMB(3.9,70,2,151,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,70,2,152,0)="Want my data |FLAG| yours"
^XMB(3.9,70,2,153,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,70,2,154,0)="YES"
^XMB(3.9,70,2,155,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,70,2,156,0)="D XPF2^XPDIQ"
^XMB(3.9,70,2,157,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,70,2,158,0)="YO"
^XMB(3.9,70,2,159,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,70,2,160,0)="^D INHIBIT^XPDH"
^XMB(3.9,70,2,161,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,70,2,162,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,70,2,163,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,70,2,164,0)="YES"
^XMB(3.9,70,2,165,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,70,2,166,0)="D XPI1^XPDIQ"
^XMB(3.9,70,2,167,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,70,2,168,0)="PO^VA(200,:EM"
^XMB(3.9,70,2,169,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,70,2,170,0)="^D MG^XPDH"
^XMB(3.9,70,2,171,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,70,2,172,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,70,2,173,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,70,2,174,0)=""
^XMB(3.9,70,2,175,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,70,2,176,0)="D XPM1^XPDIQ"
^XMB(3.9,70,2,177,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,70,2,178,0)="Y"
^XMB(3.9,70,2,179,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,70,2,180,0)="^D MENU^XPDH"
^XMB(3.9,70,2,181,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,70,2,182,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,70,2,183,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,70,2,184,0)="YES"
^XMB(3.9,70,2,185,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,70,2,186,0)="D XPO1^XPDIQ"
^XMB(3.9,70,2,187,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,70,2,188,0)="Y"
^XMB(3.9,70,2,189,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,70,2,190,0)="^D OPT^XPDH"
^XMB(3.9,70,2,191,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,70,2,192,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,70,2,193,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,70,2,194,0)="YES"
^XMB(3.9,70,2,195,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,70,2,196,0)="D XPZ1^XPDIQ"
^XMB(3.9,70,2,197,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,70,2,198,0)="Y"
^XMB(3.9,70,2,199,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,70,2,200,0)="^D RTN^XPDH"
^XMB(3.9,70,2,201,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,70,2,202,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,70,2,203,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,70,2,204,0)="NO"
^XMB(3.9,70,2,205,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,70,2,206,0)="D XPZ2^XPDIQ"
^XMB(3.9,70,2,207,0)="""RTN"")"
^XMB(3.9,70,2,208,0)="1"
^XMB(3.9,70,2,209,0)="""RTN"",""LRUTT"")"
^XMB(3.9,70,2,210,0)="0^1^B29435333^B22939035"
^XMB(3.9,70,2,211,0)="""RTN"",""LRUTT"",1,0)"
^XMB(3.9,70,2,212,0)="LRUTT ;AVAMC/REG/CYM - LAB TEST TURNAROUND TIME; 2/19/98 ;"
^XMB(3.9,70,2,213,0)="""RTN"",""LRUTT"",2,0)"
^XMB(3.9,70,2,214,0)=" ;;5.2;LAB SERVICE;**153,201,354**;Sep 27, 1994"
^XMB(3.9,70,2,215,0)="""RTN"",""LRUTT"",3,0)"
^XMB(3.9,70,2,216,0)=" D END W !!?24,""Laboratory Test Turnaround Times"""
^XMB(3.9,70,2,217,0)="""RTN"",""LRUTT"",4,0)"
^XMB(3.9,70,2,218,0)="AT S DIC=60,DIC(0)=""AEQM"" D ^DIC K DIC I Y>0 S LRT(+Y)=$P(Y,U,2) G AT"
^XMB(3.9,70,2,219,0)="""RTN"",""LRUTT"",5,0)"
^XMB(3.9,70,2,220,0)=" I '$D(LRT) W $C(7),!,""NO TESTS SELECTED"" G END"
^XMB(3.9,70,2,221,0)="""RTN"",""LRUTT"",6,0)"
^XMB(3.9,70,2,222,0)="HL W ! S LRL="""",INSTFLAG=0 K DIR S DIR(""?"",1)=""Select an entry from the HOSPITAL LOCATION file (#44) or an entry from"",DIR(""?"",2)=""the INSTITUTION file (#4)."",DIR(""?"",3)="""""
^XMB(3.9,70,2,223,0)="""RTN"",""LRUTT"",7,0)"
^XMB(3.9,70,2,224,0)=" S DIR(""?"",4)=""To specify a selection from the HOSPITAL LOCATION file (#44), enter your"",DIR(""?"",5)=""selection with the 'L.' prefix.  Enter 'L.?' to see the list of entries in"",DIR(""?"",6)=""the HOSPITAL LOCATION file (#44)."""
^XMB(3.9,70,2,225,0)="""RTN"",""LRUTT"",8,0)"
^XMB(3.9,70,2,226,0)=" S DIR(""?"",7)="""",DIR(""?"",8)=""To specify a selection from the INSTITUTION file (#4), enter your selection"",DIR(""?"",9)=""with the 'I.' prefix.  Enter 'I.?' to see the list of entries in the"",DIR(""?"",10)=""INSTITUTION file (#4)."""
^XMB(3.9,70,2,227,0)="""RTN"",""LRUTT"",9,0)"
^XMB(3.9,70,2,228,0)=" S DIR(""?"",11)="""",DIR(""?"",12)=""If the selection entered does not have the 'L.' or 'I.' prefix, the HOSPITAL"",DIR(""?"",13)=""LOCATION file (#44) will be searched for a match first.  If no match is"""
^XMB(3.9,70,2,229,0)="""RTN"",""LRUTT"",10,0)"
^XMB(3.9,70,2,230,0)=" S DIR(""?"")=""found, the INSTITUTION file (#4) will then be searched for a match."""
^XMB(3.9,70,2,231,0)="""RTN"",""LRUTT"",11,0)"
^XMB(3.9,70,2,232,0)=" S DIR(""A"")=""Select HOSPITAL LOCATION NAME: "",DIR(0)=""FOA"" D ^DIR I $D(DIRUT) G END"
^XMB(3.9,70,2,233,0)="""RTN"",""LRUTT"",12,0)"
^XMB(3.9,70,2,234,0)=" S LRY=Y D LOC I LRL="""" G HL"
^XMB(3.9,70,2,235,0)="""RTN"",""LRUTT"",13,0)"
^XMB(3.9,70,2,236,0)=" W ! D B^LRU G:Y<0 END S LRSDT=LRSDT-.1,LRLDT=LRLDT+.9"
^XMB(3.9,70,2,237,0)="""RTN"",""LRUTT"",14,0)"
^XMB(3.9,70,2,238,0)=" W !!,""Print patients "" S %=2 D YN^LRU S:%=1 LRI=1"
^XMB(3.9,70,2,239,0)="""RTN"",""LRUTT"",15,0)"
^XMB(3.9,70,2,240,0)=" S ZTRTN=""QUE^LRUTT"" D BEG^LRUTL G:POP!($D(ZTSK)) END"
^XMB(3.9,70,2,241,0)="""RTN"",""LRUTT"",16,0)"
^XMB(3.9,70,2,242,0)="QUE U IO K ^TMP($J) D L^LRU,S^LRU,H S LR(""F"")=1 F A=0:0 S A=$O(LRT(A)) Q:'A  S (LRG(A),LRH(A))=0"
^XMB(3.9,70,2,243,0)="""RTN"",""LRUTT"",17,0)"
^XMB(3.9,70,2,244,0)=" F LRA=LRSDT:0 S LRA=$O(^LRO(69,LRA)) Q:'LRA!(LRA>LRLDT)  D"
^XMB(3.9,70,2,245,0)="""RTN"",""LRUTT"",18,0)"
^XMB(3.9,70,2,246,0)=" . I 'INSTFLAG D"
^XMB(3.9,70,2,247,0)="""RTN"",""LRUTT"",19,0)"
^XMB(3.9,70,2,248,0)=" . . F LRB=0:0 S LRB=$O(^LRO(69,LRA,1,""AC"",LRL,LRB)) Q:'LRB  F T=0:0 S T=$O(^LRO(69,LRA,1,LRB,2,""B"",T)) Q:'T  D:$D(LRT(T)) C"
^XMB(3.9,70,2,249,0)="""RTN"",""LRUTT"",20,0)"
^XMB(3.9,70,2,250,0)=" . I INSTFLAG D"
^XMB(3.9,70,2,251,0)="""RTN"",""LRUTT"",21,0)"
^XMB(3.9,70,2,252,0)=" . . S XLRL="""" F  S XLRL=$O(^LRO(69,LRA,1,""AC"",XLRL)) Q:XLRL=""""  I $$INSTHIT(XLRL) F LRB=0:0 S LRB=$O(^LRO(69,LRA,1,""AC"",XLRL,LRB)) Q:'LRB  F T=0:0 S T=$O(^LRO(69,LRA,1,LRB,2,""B"",T)) Q:'T  D:$D(LRT(T)) C"
^XMB(3.9,70,2,253,0)="""RTN"",""LRUTT"",22,0)"
^XMB(3.9,70,2,254,0)=" F A=0:0 S A=$O(LRT(A)) Q:'A!(LR(""Q""))  D:$Y>(IOSL-6) H Q:LR(""Q"")  W !,LRT(A),?30,""Count: "",$J(LRH(A),5),?45,""Average time:"" I LRG(A) S X=LRG(A)\LRH(A),Y=X\60,X=X#60 W:Y $J(Y,3),"" hr"" W:X ?65,$J(X,2),"" min"""
^XMB(3.9,70,2,255,0)="""RTN"",""LRUTT"",23,0)"
^XMB(3.9,70,2,256,0)=" F A=0:0 S A=$O(^TMP($J,A)) Q:'A  S X=^LR(A,0),Y=$P(X,""^"",3),X=$P(X,""^"",2),X=^DIC(X,0,""GL""),X=@(X_Y_"",0)"") S ^TMP($J,""B"",$P(X,""^""),A)=$P(X,""^"",9)"
^XMB(3.9,70,2,257,0)="""RTN"",""LRUTT"",24,0)"
^XMB(3.9,70,2,258,0)=" W ! S LRP=0 F Q=0:0 S LRP=$O(^TMP($J,""B"",LRP)) Q:LRP=""""!(LR(""Q""))  F A=0:0 S A=$O(^TMP($J,""B"",LRP,A)) Q:'A!(LR(""Q""))  S SSN=^(A),LRDPF=$P(^LR(A,0),U,2) D SSN^LRU D:$Y>(IOSL-6) H Q:LR(""Q"")  W !,LRP,?31,SSN D L"
^XMB(3.9,70,2,259,0)="""RTN"",""LRUTT"",25,0)"
^XMB(3.9,70,2,260,0)=" D END^LRUTL,END Q"
^XMB(3.9,70,2,261,0)="""RTN"",""LRUTT"",26,0)"
^XMB(3.9,70,2,262,0)="T S V=$P(X,""."",2)_""000"",V=$E(V,1,2)*60+$E(V,3,4) D H^%DTC S X=%H_"".""_$E(""0000"",1,4-$L(V))_V Q"
^XMB(3.9,70,2,263,0)="""RTN"",""LRUTT"",27,0)"
^XMB(3.9,70,2,264,0)="L F T=0:0 S T=$O(^TMP($J,A,T)) Q:'T!(LR(""Q""))  F B=0:0 S B=$O(^TMP($J,A,T,B)) Q:'B!(LR(""Q""))  F C=0:0 S C=$O(^TMP($J,A,T,B,C)) Q:'C!(LR(""Q""))  F E=0:0 S E=$O(^TMP($J,A,T,B,C,E)) Q:'E!(LR(""Q""))  D W"
^XMB(3.9,70,2,265,0)="""RTN"",""LRUTT"",28,0)"
^XMB(3.9,70,2,266,0)=" K T,B,C,E"
^XMB(3.9,70,2,267,0)="""RTN"",""LRUTT"",29,0)"
^XMB(3.9,70,2,268,0)=" Q"
^XMB(3.9,70,2,269,0)="""RTN"",""LRUTT"",30,0)"
^XMB(3.9,70,2,270,0)="W D:$Y>(IOSL-6) H1 Q:LR(""Q"")"
^XMB(3.9,70,2,271,0)="""RTN"",""LRUTT"",31,0)"
^XMB(3.9,70,2,272,0)=" W !?3,LRT(T),?32,$$Y2K^LRX(B,""5D""),?44 S X(1)=^TMP($J,A,T,B,C,E),X=+X(1),Y=X\60,X=X#60 W:Y $J(Y,3),"" hr"" W:X ?50,$J(X,2),"" min"" W ?60,""Arr time:"" S X=$P(X(1),""^"",2) W $E(X,1,2)_"":""_$E(X,3,4) Q"
^XMB(3.9,70,2,273,0)="""RTN"",""LRUTT"",32,0)"
^XMB(3.9,70,2,274,0)=" ;"
^XMB(3.9,70,2,275,0)="""RTN"",""LRUTT"",33,0)"
^XMB(3.9,70,2,276,0)="C S E=$O(^LRO(69,LRA,1,LRB,2,""B"",T,0)),LRS=$S($D(^LRO(69,LRA,1,LRB,3)):+^(3),1:0),E=$S($D(^(2,E,0)):^(0),1:""""),W=$P(E,""^"",4),LRC=$P(E,""^"",3),LRX=$P(E,""^"",5)"
^XMB(3.9,70,2,277,0)="""RTN"",""LRUTT"",34,0)"
^XMB(3.9,70,2,278,0)=" I $P(E,""^"",11)'="""" Q"
^XMB(3.9,70,2,279,0)="""RTN"",""LRUTT"",35,0)"
^XMB(3.9,70,2,280,0)=" I $$CANCEL Q"
^XMB(3.9,70,2,281,0)="""RTN"",""LRUTT"",36,0)"
^XMB(3.9,70,2,282,0)=" I LRS,W,LRC,LRX,$D(^LRO(68,W,1,LRC,1,LRX,4,T,0)) S X=$P(^(0),""^"",5) Q:X'["".""  Q:$P(^(0),""^"",8)=""""  D T S LRF=X D S"
^XMB(3.9,70,2,283,0)="""RTN"",""LRUTT"",37,0)"
^XMB(3.9,70,2,284,0)=" Q"
^XMB(3.9,70,2,285,0)="""RTN"",""LRUTT"",38,0)"
^XMB(3.9,70,2,286,0)="S S (LRS(1),X)=LRS D T S LRS=X,LRDFN=+^LRO(68,W,1,LRC,1,LRX,0) S X=$P(LRF,""."")-$P(LRS,""."") S:X X=X*1440 S LRT=X+$P(LRF,""."",2)-$P(LRS,""."",2)"
^XMB(3.9,70,2,287,0)="""RTN"",""LRUTT"",39,0)"
^XMB(3.9,70,2,288,0)=" S LRG(T)=LRG(T)+LRT,LRH(T)=LRH(T)+1 S:$D(LRI) ^TMP($J,LRDFN,T,LRA,W,LRX)=LRT_""^""_$P(LRS(1),""."",2)_""000"" Q"
^XMB(3.9,70,2,289,0)="""RTN"",""LRUTT"",40,0)"
^XMB(3.9,70,2,290,0)=" ;"
^XMB(3.9,70,2,291,0)="""RTN"",""LRUTT"",41,0)"
^XMB(3.9,70,2,292,0)="H I $D(LR(""F"")),IOST?1""C"".E D M^LRU Q:LR(""Q"")"
^XMB(3.9,70,2,293,0)="""RTN"",""LRUTT"",42,0)"
^XMB(3.9,70,2,294,0)=" D F^LRU W !,""Location: "",LRL,!,""Laboratory test turnaround times from: "",LRSTR,"" to "",LRLST,!,LR(""%"") Q"
^XMB(3.9,70,2,295,0)="""RTN"",""LRUTT"",43,0)"
^XMB(3.9,70,2,296,0)=" ;"
^XMB(3.9,70,2,297,0)="""RTN"",""LRUTT"",44,0)"
^XMB(3.9,70,2,298,0)="H1 D H Q:LR(""Q"")  W !,LRP,?31,SSN Q"
^XMB(3.9,70,2,299,0)="""RTN"",""LRUTT"",45,0)"
^XMB(3.9,70,2,300,0)=" ;"
^XMB(3.9,70,2,301,0)="""RTN"",""LRUTT"",46,0)"
^XMB(3.9,70,2,302,0)="END D V^LRU K INSTFLAG,XLRL Q"
^XMB(3.9,70,2,303,0)="""RTN"",""LRUTT"",47,0)"
^XMB(3.9,70,2,304,0)="LOC ; check file 44 for location entered"
^XMB(3.9,70,2,305,0)="""RTN"",""LRUTT"",48,0)"
^XMB(3.9,70,2,306,0)=" I $E(LRY,1,2)=""L.""!($E(LRY,1,2)=""l."") S LRY=$E(LRY,3,99) D HLOC Q"
^XMB(3.9,70,2,307,0)="""RTN"",""LRUTT"",49,0)"
^XMB(3.9,70,2,308,0)=" I $E(LRY,1,2)=""I.""!($E(LRY,1,2)=""i."") S LRY=$E(LRY,3,99) D INST Q"
^XMB(3.9,70,2,309,0)="""RTN"",""LRUTT"",50,0)"
^XMB(3.9,70,2,310,0)=" D HLOC I Y<1 D INST"
^XMB(3.9,70,2,311,0)="""RTN"",""LRUTT"",51,0)"
^XMB(3.9,70,2,312,0)=" Q"
^XMB(3.9,70,2,313,0)="""RTN"",""LRUTT"",52,0)"
^XMB(3.9,70,2,314,0)="HLOC S X=LRY,DIC=44,DIC(0)=""EMZ"" D ^DIC K DIC I Y'<1 S LRL=$P(Y(0),U,2) I LRL="""" W $C(7),!!,""There must be an abbreviation entered for the hospital location!"""
^XMB(3.9,70,2,315,0)="""RTN"",""LRUTT"",53,0)"
^XMB(3.9,70,2,316,0)=" Q"
^XMB(3.9,70,2,317,0)="""RTN"",""LRUTT"",54,0)"
^XMB(3.9,70,2,318,0)="INST ; check file 4 for location entered"
^XMB(3.9,70,2,319,0)="""RTN"",""LRUTT"",55,0)"
^XMB(3.9,70,2,320,0)=" S X=LRY,DIC=4,DIC(0)=""EQMZ"",DIC(""S"")=""I $G(^DIC(4,Y,99))"" D ^DIC K DIC I Y'<1 S LRL=$P(Y(0),""^""),INSTFLAG=1"
^XMB(3.9,70,2,321,0)="""RTN"",""LRUTT"",56,0)"
^XMB(3.9,70,2,322,0)=" Q"
^XMB(3.9,70,2,323,0)="""RTN"",""LRUTT"",57,0)"
^XMB(3.9,70,2,324,0)="INSTHIT(XLOC) ;"
^XMB(3.9,70,2,325,0)="""RTN"",""LRUTT"",58,0)"
^XMB(3.9,70,2,326,0)=" N HIT,LOCNUM,INSTNUM,X99"
^XMB(3.9,70,2,327,0)="""RTN"",""LRUTT"",59,0)"
^XMB(3.9,70,2,328,0)=" S HIT=0"
^XMB(3.9,70,2,329,0)="""RTN"",""LRUTT"",60,0)"
^XMB(3.9,70,2,330,0)=" S LOCNUM=$O(^SC(""C"",XLOC,0))"
^XMB(3.9,70,2,331,0)="""RTN"",""LRUTT"",61,0)"
^XMB(3.9,70,2,332,0)=" I LOCNUM'="""" D"
^XMB(3.9,70,2,333,0)="""RTN"",""LRUTT"",62,0)"
^XMB(3.9,70,2,334,0)=" . S INSTNUM=$P($G(^SC(LOCNUM,0)),U,4)"
^XMB(3.9,70,2,335,0)="""RTN"",""LRUTT"",63,0)"
^XMB(3.9,70,2,336,0)=" . Q:INSTNUM="""""
^XMB(3.9,70,2,337,0)="""RTN"",""LRUTT"",64,0)"
^XMB(3.9,70,2,338,0)=" . I $D(^DIC(4,""B"",LRL,INSTNUM)) D"
^XMB(3.9,70,2,339,0)="""RTN"",""LRUTT"",65,0)"
^XMB(3.9,70,2,340,0)=" . . S X99=$G(^DIC(4,INSTNUM,99))"
^XMB(3.9,70,2,341,0)="""RTN"",""LRUTT"",66,0)"
^XMB(3.9,70,2,342,0)=" . . Q:X99="""""
^XMB(3.9,70,2,343,0)="""RTN"",""LRUTT"",67,0)"
^XMB(3.9,70,2,344,0)=" . . I $P(X99,U,4) Q"
^XMB(3.9,70,2,345,0)="""RTN"",""LRUTT"",68,0)"
^XMB(3.9,70,2,346,0)=" . . S HIT=1"
^XMB(3.9,70,2,347,0)="""RTN"",""LRUTT"",69,0)"
^XMB(3.9,70,2,348,0)=" Q HIT"
^XMB(3.9,70,2,349,0)="""RTN"",""LRUTT"",70,0)"
^XMB(3.9,70,2,350,0)="CANCEL() ;"
^XMB(3.9,70,2,351,0)="""RTN"",""LRUTT"",71,0)"
^XMB(3.9,70,2,352,0)=" ; This function checks to see if a test was cancelled. "
^XMB(3.9,70,2,353,0)="""RTN"",""LRUTT"",72,0)"
^XMB(3.9,70,2,354,0)=" ; If the test was cancelled the function evaluates as ""true""."
^XMB(3.9,70,2,355,0)="""RTN"",""LRUTT"",73,0)"
^XMB(3.9,70,2,356,0)=" N CANFLAG,COLTIME,LRTIME,LRID,TESTNUM,LR63,PC1"
^XMB(3.9,70,2,357,0)="""RTN"",""LRUTT"",74,0)"
^XMB(3.9,70,2,358,0)=" S CANFLAG=0"
^XMB(3.9,70,2,359,0)="""RTN"",""LRUTT"",75,0)"
^XMB(3.9,70,2,360,0)=" S COLTIME=$P($G(^LRO(69,LRA,1,LRB,1)),""^"",1)"
^XMB(3.9,70,2,361,0)="""RTN"",""LRUTT"",76,0)"
^XMB(3.9,70,2,362,0)=" I COLTIME D"
^XMB(3.9,70,2,363,0)="""RTN"",""LRUTT"",77,0)"
^XMB(3.9,70,2,364,0)=" . S LRTIME=9999999-COLTIME"
^XMB(3.9,70,2,365,0)="""RTN"",""LRUTT"",78,0)"
^XMB(3.9,70,2,366,0)=" . S LRID=$P($G(^LRO(69,LRA,1,LRB,0)),""^"",1)"
^XMB(3.9,70,2,367,0)="""RTN"",""LRUTT"",79,0)"
^XMB(3.9,70,2,368,0)=" . I LRID="""" Q"
^XMB(3.9,70,2,369,0)="""RTN"",""LRUTT"",80,0)"
^XMB(3.9,70,2,370,0)=" . S TESTNUM=$G(^LAB(60,T,.2))"
^XMB(3.9,70,2,371,0)="""RTN"",""LRUTT"",81,0)"
^XMB(3.9,70,2,372,0)=" . I TESTNUM="""" Q"
^XMB(3.9,70,2,373,0)="""RTN"",""LRUTT"",82,0)"
^XMB(3.9,70,2,374,0)=" . S LR63=$G(^LR(LRID,""CH"",LRTIME,TESTNUM))"
^XMB(3.9,70,2,375,0)="""RTN"",""LRUTT"",83,0)"
^XMB(3.9,70,2,376,0)=" . I LR63="""" Q"
^XMB(3.9,70,2,377,0)="""RTN"",""LRUTT"",84,0)"
^XMB(3.9,70,2,378,0)=" . S PC1=$P(LR63,""^"",1)"
^XMB(3.9,70,2,379,0)="""RTN"",""LRUTT"",85,0)"
^XMB(3.9,70,2,380,0)=" . I PC1="""" Q"
^XMB(3.9,70,2,381,0)="""RTN"",""LRUTT"",86,0)"
^XMB(3.9,70,2,382,0)=" . I $E(PC1,1,$L(PC1))=$E(""CANCELLED"",1,$L(PC1))!($E(PC1,1,$L(PC1))=$E(""cancelled"",1,$L(PC1))) S CANFLAG=1"
^XMB(3.9,70,2,383,0)="""RTN"",""LRUTT"",87,0)"
^XMB(3.9,70,2,384,0)=" Q CANFLAG"
^XMB(3.9,70,2,385,0)="""VER"")"
^XMB(3.9,70,2,386,0)="8.0^22.0"
^XMB(3.9,70,2,387,0)="""BLD"",6709,6)"
^XMB(3.9,70,2,388,0)="^275"
^XMB(3.9,70,2,389,0)="$END KID LR*5.2*354"
^XMB(3.9,70,6,0)="^3.911A^2^2"
^XMB(3.9,70,6,1,0)="POSTMASTER"
^XMB(3.9,70,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,70,6,"B","POSTMASTER",1)=""
^XMB(3.9,70,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,71,0)="LR-5P2_SEQ-276_PAT-359.KID^.5^3061008.015738^^^^K"
^XMB(3.9,71,.6)="3061008"
^XMB(3.9,71,1,0)="^3.91A^2^2"
^XMB(3.9,71,1,1,0)=".5^0^3061008.015738^^^^^^^3061008.015738"
^XMB(3.9,71,1,2,0)="1^0^3061008.023941^^^^^^^3061008.023941"
^XMB(3.9,71,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,71,1,"C",.5,1)=""
^XMB(3.9,71,1,"C",1,2)=""
^XMB(3.9,71,2,0)="^^3319^3319^3061008"
^XMB(3.9,71,2,1,0)="$TXT Released LR*5.2*359 SEQ #276"
^XMB(3.9,71,2,2,0)="Extracted from mail message"
^XMB(3.9,71,2,3,0)="$END TXT"
^XMB(3.9,71,2,4,0)="$KID LR*5.2*359"
^XMB(3.9,71,2,5,0)="**INSTALL NAME**"
^XMB(3.9,71,2,6,0)="LR*5.2*359"
^XMB(3.9,71,2,7,0)="""BLD"",6333,0)"
^XMB(3.9,71,2,8,0)="LR*5.2*359^LAB SERVICE^0^3060715^y"
^XMB(3.9,71,2,9,0)="""BLD"",6333,4,0)"
^XMB(3.9,71,2,10,0)="^9.64PA^^"
^XMB(3.9,71,2,11,0)="""BLD"",6333,""KRN"",0)"
^XMB(3.9,71,2,12,0)="^9.67PA^8989.52^19"
^XMB(3.9,71,2,13,0)="""BLD"",6333,""KRN"",.4,0)"
^XMB(3.9,71,2,14,0)=".4"
^XMB(3.9,71,2,15,0)="""BLD"",6333,""KRN"",.401,0)"
^XMB(3.9,71,2,16,0)=".401"
^XMB(3.9,71,2,17,0)="""BLD"",6333,""KRN"",.402,0)"
^XMB(3.9,71,2,18,0)=".402"
^XMB(3.9,71,2,19,0)="""BLD"",6333,""KRN"",.403,0)"
^XMB(3.9,71,2,20,0)=".403"
^XMB(3.9,71,2,21,0)="""BLD"",6333,""KRN"",.5,0)"
^XMB(3.9,71,2,22,0)=".5"
^XMB(3.9,71,2,23,0)="""BLD"",6333,""KRN"",.84,0)"
^XMB(3.9,71,2,24,0)=".84"
^XMB(3.9,71,2,25,0)="""BLD"",6333,""KRN"",3.6,0)"
^XMB(3.9,71,2,26,0)="3.6"
^XMB(3.9,71,2,27,0)="""BLD"",6333,""KRN"",3.8,0)"
^XMB(3.9,71,2,28,0)="3.8"
^XMB(3.9,71,2,29,0)="""BLD"",6333,""KRN"",9.2,0)"
^XMB(3.9,71,2,30,0)="9.2"
^XMB(3.9,71,2,31,0)="""BLD"",6333,""KRN"",9.8,0)"
^XMB(3.9,71,2,32,0)="9.8"
^XMB(3.9,71,2,33,0)="""BLD"",6333,""KRN"",9.8,""NM"",0)"
^XMB(3.9,71,2,34,0)="^9.68A^8^8"
^XMB(3.9,71,2,35,0)="""BLD"",6333,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,71,2,36,0)="LRBEBA2^^0^B78928949"
^XMB(3.9,71,2,37,0)="""BLD"",6333,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,71,2,38,0)="LRBEBA21^^0^B40326837"
^XMB(3.9,71,2,39,0)="""BLD"",6333,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,71,2,40,0)="LRBEBA3^^0^B62466006"
^XMB(3.9,71,2,41,0)="""BLD"",6333,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,71,2,42,0)="LRBEBA4^^0^B61044712"
^XMB(3.9,71,2,43,0)="""BLD"",6333,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,71,2,44,0)="LRBEBAO^^0^B71311928"
^XMB(3.9,71,2,45,0)="""BLD"",6333,""KRN"",9.8,""NM"",6,0)"
^XMB(3.9,71,2,46,0)="LRBEPRPT^^0^B38192060"
^XMB(3.9,71,2,47,0)="""BLD"",6333,""KRN"",9.8,""NM"",7,0)"
^XMB(3.9,71,2,48,0)="LRCAPPH1^^0^B56348077"
^XMB(3.9,71,2,49,0)="""BLD"",6333,""KRN"",9.8,""NM"",8,0)"
^XMB(3.9,71,2,50,0)="LRORDST^^0^B30181718"
^XMB(3.9,71,2,51,0)="""BLD"",6333,""KRN"",9.8,""NM"",""B"",""LRBEBA2"",1)"
^XMB(3.9,71,2,52,0)=" "
^XMB(3.9,71,2,53,0)="""BLD"",6333,""KRN"",9.8,""NM"",""B"",""LRBEBA21"",2)"
^XMB(3.9,71,2,54,0)=" "
^XMB(3.9,71,2,55,0)="""BLD"",6333,""KRN"",9.8,""NM"",""B"",""LRBEBA3"",3)"
^XMB(3.9,71,2,56,0)=" "
^XMB(3.9,71,2,57,0)="""BLD"",6333,""KRN"",9.8,""NM"",""B"",""LRBEBA4"",4)"
^XMB(3.9,71,2,58,0)=" "
^XMB(3.9,71,2,59,0)="""BLD"",6333,""KRN"",9.8,""NM"",""B"",""LRBEBAO"",5)"
^XMB(3.9,71,2,60,0)=" "
^XMB(3.9,71,2,61,0)="""BLD"",6333,""KRN"",9.8,""NM"",""B"",""LRBEPRPT"",6)"
^XMB(3.9,71,2,62,0)=" "
^XMB(3.9,71,2,63,0)="""BLD"",6333,""KRN"",9.8,""NM"",""B"",""LRCAPPH1"",7)"
^XMB(3.9,71,2,64,0)=" "
^XMB(3.9,71,2,65,0)="""BLD"",6333,""KRN"",9.8,""NM"",""B"",""LRORDST"",8)"
^XMB(3.9,71,2,66,0)=" "
^XMB(3.9,71,2,67,0)="""BLD"",6333,""KRN"",19,0)"
^XMB(3.9,71,2,68,0)="19"
^XMB(3.9,71,2,69,0)="""BLD"",6333,""KRN"",19.1,0)"
^XMB(3.9,71,2,70,0)="19.1"
^XMB(3.9,71,2,71,0)="""BLD"",6333,""KRN"",101,0)"
^XMB(3.9,71,2,72,0)="101"
^XMB(3.9,71,2,73,0)="""BLD"",6333,""KRN"",409.61,0)"
^XMB(3.9,71,2,74,0)="409.61"
^XMB(3.9,71,2,75,0)="""BLD"",6333,""KRN"",771,0)"
^XMB(3.9,71,2,76,0)="771"
^XMB(3.9,71,2,77,0)="""BLD"",6333,""KRN"",870,0)"
^XMB(3.9,71,2,78,0)="870"
^XMB(3.9,71,2,79,0)="""BLD"",6333,""KRN"",8989.51,0)"
^XMB(3.9,71,2,80,0)="8989.51"
^XMB(3.9,71,2,81,0)="""BLD"",6333,""KRN"",8989.52,0)"
^XMB(3.9,71,2,82,0)="8989.52"
^XMB(3.9,71,2,83,0)="""BLD"",6333,""KRN"",8994,0)"
^XMB(3.9,71,2,84,0)="8994"
^XMB(3.9,71,2,85,0)="""BLD"",6333,""KRN"",""B"",.4,.4)"
^XMB(3.9,71,2,86,0)=" "
^XMB(3.9,71,2,87,0)="""BLD"",6333,""KRN"",""B"",.401,.401)"
^XMB(3.9,71,2,88,0)=" "
^XMB(3.9,71,2,89,0)="""BLD"",6333,""KRN"",""B"",.402,.402)"
^XMB(3.9,71,2,90,0)=" "
^XMB(3.9,71,2,91,0)="""BLD"",6333,""KRN"",""B"",.403,.403)"
^XMB(3.9,71,2,92,0)=" "
^XMB(3.9,71,2,93,0)="""BLD"",6333,""KRN"",""B"",.5,.5)"
^XMB(3.9,71,2,94,0)=" "
^XMB(3.9,71,2,95,0)="""BLD"",6333,""KRN"",""B"",.84,.84)"
^XMB(3.9,71,2,96,0)=" "
^XMB(3.9,71,2,97,0)="""BLD"",6333,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,71,2,98,0)=" "
^XMB(3.9,71,2,99,0)="""BLD"",6333,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,71,2,100,0)=" "
^XMB(3.9,71,2,101,0)="""BLD"",6333,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,71,2,102,0)=" "
^XMB(3.9,71,2,103,0)="""BLD"",6333,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,71,2,104,0)=" "
^XMB(3.9,71,2,105,0)="""BLD"",6333,""KRN"",""B"",19,19)"
^XMB(3.9,71,2,106,0)=" "
^XMB(3.9,71,2,107,0)="""BLD"",6333,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,71,2,108,0)=" "
^XMB(3.9,71,2,109,0)="""BLD"",6333,""KRN"",""B"",101,101)"
^XMB(3.9,71,2,110,0)=" "
^XMB(3.9,71,2,111,0)="""BLD"",6333,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,71,2,112,0)=" "
^XMB(3.9,71,2,113,0)="""BLD"",6333,""KRN"",""B"",771,771)"
^XMB(3.9,71,2,114,0)=" "
^XMB(3.9,71,2,115,0)="""BLD"",6333,""KRN"",""B"",870,870)"
^XMB(3.9,71,2,116,0)=" "
^XMB(3.9,71,2,117,0)="""BLD"",6333,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,71,2,118,0)=" "
^XMB(3.9,71,2,119,0)="""BLD"",6333,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,71,2,120,0)=" "
^XMB(3.9,71,2,121,0)="""BLD"",6333,""KRN"",""B"",8994,8994)"
^XMB(3.9,71,2,122,0)=" "
^XMB(3.9,71,2,123,0)="""BLD"",6333,""QUES"",0)"
^XMB(3.9,71,2,124,0)="^9.62^^"
^XMB(3.9,71,2,125,0)="""BLD"",6333,""REQB"",0)"
^XMB(3.9,71,2,126,0)="^9.611^1^1"
^XMB(3.9,71,2,127,0)="""BLD"",6333,""REQB"",1,0)"
^XMB(3.9,71,2,128,0)="LR*5.2*291^2"
^XMB(3.9,71,2,129,0)="""BLD"",6333,""REQB"",""B"",""LR*5.2*291"",1)"
^XMB(3.9,71,2,130,0)=" "
^XMB(3.9,71,2,131,0)="""MBREQ"")"
^XMB(3.9,71,2,132,0)="0"
^XMB(3.9,71,2,133,0)="""PKG"",26,-1)"
^XMB(3.9,71,2,134,0)="1^1"
^XMB(3.9,71,2,135,0)="""PKG"",26,0)"
^XMB(3.9,71,2,136,0)="LAB SERVICE^LR^CORE LAB SYSTEM"
^XMB(3.9,71,2,137,0)="""PKG"",26,20,0)"
^XMB(3.9,71,2,138,0)="^9.402P^1^1"
^XMB(3.9,71,2,139,0)="""PKG"",26,20,1,0)"
^XMB(3.9,71,2,140,0)="2^^LRXDRPT"
^XMB(3.9,71,2,141,0)="""PKG"",26,20,1,1)"
^XMB(3.9,71,2,142,0)=" "
^XMB(3.9,71,2,143,0)="""PKG"",26,20,""B"",2,1)"
^XMB(3.9,71,2,144,0)=" "
^XMB(3.9,71,2,145,0)="""PKG"",26,22,0)"
^XMB(3.9,71,2,146,0)="^9.49I^1^1"
^XMB(3.9,71,2,147,0)="""PKG"",26,22,1,0)"
^XMB(3.9,71,2,148,0)="5.2^2940927^2981028^66481"
^XMB(3.9,71,2,149,0)="""PKG"",26,22,1,""PAH"",1,0)"
^XMB(3.9,71,2,150,0)="359^3060715"
^XMB(3.9,71,2,151,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,71,2,152,0)="Y"
^XMB(3.9,71,2,153,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,71,2,154,0)="^D REP^XPDH"
^XMB(3.9,71,2,155,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,71,2,156,0)="Shall I write over your |FLAG| File"
^XMB(3.9,71,2,157,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,71,2,158,0)="YES"
^XMB(3.9,71,2,159,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,71,2,160,0)="D XPF1^XPDIQ"
^XMB(3.9,71,2,161,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,71,2,162,0)="Y"
^XMB(3.9,71,2,163,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,71,2,164,0)="^D DTA^XPDH"
^XMB(3.9,71,2,165,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,71,2,166,0)="Want my data |FLAG| yours"
^XMB(3.9,71,2,167,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,71,2,168,0)="YES"
^XMB(3.9,71,2,169,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,71,2,170,0)="D XPF2^XPDIQ"
^XMB(3.9,71,2,171,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,71,2,172,0)="YO"
^XMB(3.9,71,2,173,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,71,2,174,0)="^D INHIBIT^XPDH"
^XMB(3.9,71,2,175,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,71,2,176,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,71,2,177,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,71,2,178,0)="YES"
^XMB(3.9,71,2,179,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,71,2,180,0)="D XPI1^XPDIQ"
^XMB(3.9,71,2,181,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,71,2,182,0)="PO^VA(200,:EM"
^XMB(3.9,71,2,183,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,71,2,184,0)="^D MG^XPDH"
^XMB(3.9,71,2,185,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,71,2,186,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,71,2,187,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,71,2,188,0)=" "
^XMB(3.9,71,2,189,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,71,2,190,0)="D XPM1^XPDIQ"
^XMB(3.9,71,2,191,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,71,2,192,0)="Y"
^XMB(3.9,71,2,193,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,71,2,194,0)="^D MENU^XPDH"
^XMB(3.9,71,2,195,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,71,2,196,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,71,2,197,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,71,2,198,0)="YES"
^XMB(3.9,71,2,199,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,71,2,200,0)="D XPO1^XPDIQ"
^XMB(3.9,71,2,201,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,71,2,202,0)="Y"
^XMB(3.9,71,2,203,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,71,2,204,0)="^D OPT^XPDH"
^XMB(3.9,71,2,205,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,71,2,206,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,71,2,207,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,71,2,208,0)="YES"
^XMB(3.9,71,2,209,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,71,2,210,0)="D XPZ1^XPDIQ"
^XMB(3.9,71,2,211,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,71,2,212,0)="Y"
^XMB(3.9,71,2,213,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,71,2,214,0)="^D RTN^XPDH"
^XMB(3.9,71,2,215,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,71,2,216,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,71,2,217,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,71,2,218,0)="NO"
^XMB(3.9,71,2,219,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,71,2,220,0)="D XPZ2^XPDIQ"
^XMB(3.9,71,2,221,0)="""RTN"")"
^XMB(3.9,71,2,222,0)="8"
^XMB(3.9,71,2,223,0)="""RTN"",""LRBEBA2"")"
^XMB(3.9,71,2,224,0)="0^1^B78928949^B81298476"
^XMB(3.9,71,2,225,0)="""RTN"",""LRBEBA2"",1,0)"
^XMB(3.9,71,2,226,0)="LRBEBA2 ;DALOI/JAH/FHS - ORDERING AND RESULTING OUTPATIENT ;8/10/04"
^XMB(3.9,71,2,227,0)="""RTN"",""LRBEBA2"",2,0)"
^XMB(3.9,71,2,228,0)=" ;;5.2;LAB SERVICE;**291,359**;Sep 27, 1994"
^XMB(3.9,71,2,229,0)="""RTN"",""LRBEBA2"",3,0)"
^XMB(3.9,71,2,230,0)=" ;"
^XMB(3.9,71,2,231,0)="""RTN"",""LRBEBA2"",4,0)"
^XMB(3.9,71,2,232,0)="DG1(LRBESTG) ; Set the DG1 segment into the ^TMP"
^XMB(3.9,71,2,233,0)="""RTN"",""LRBEBA2"",5,0)"
^XMB(3.9,71,2,234,0)=" N LRBEDGX,LRBETNUM"
^XMB(3.9,71,2,235,0)="""RTN"",""LRBEBA2"",6,0)"
^XMB(3.9,71,2,236,0)=" S LRBETNUM=$O(^TMP(""OR"",$J,""LROT"",STARTDT,TYPE,SAMP,SPEC,LRSX,""LRBEDGX"",""""),-1)"
^XMB(3.9,71,2,237,0)="""RTN"",""LRBEBA2"",7,0)"
^XMB(3.9,71,2,238,0)=" S LRBETNUM=$G(LRBETNUM)+1"
^XMB(3.9,71,2,239,0)="""RTN"",""LRBEBA2"",8,0)"
^XMB(3.9,71,2,240,0)=" S LRBEDGX=$P($P(LRBESTG,""|"",4),""^"",1)"
^XMB(3.9,71,2,241,0)="""RTN"",""LRBEBA2"",9,0)"
^XMB(3.9,71,2,242,0)=" S ^TMP(""OR"",$J,""LROT"",STARTDT,TYPE,SAMP,SPEC,LRSX,""LRBEDGX"",LRBETNUM)=LRBEDGX"
^XMB(3.9,71,2,243,0)="""RTN"",""LRBEBA2"",10,0)"
^XMB(3.9,71,2,244,0)=" Q"
^XMB(3.9,71,2,245,0)="""RTN"",""LRBEBA2"",11,0)"
^XMB(3.9,71,2,246,0)="ZCL(LRBESTG) ; Set the ZCL segment into the ^TMP"
^XMB(3.9,71,2,247,0)="""RTN"",""LRBEBA2"",12,0)"
^XMB(3.9,71,2,248,0)=" N LRBEX,LRBETNUM,LRBEIND"
^XMB(3.9,71,2,249,0)="""RTN"",""LRBEBA2"",13,0)"
^XMB(3.9,71,2,250,0)=" S LRBETNUM=$O(^TMP(""OR"",$J,""LROT"",STARTDT,TYPE,SAMP,SPEC,LRSX,""LRBEDGX"",""""),-1)"
^XMB(3.9,71,2,251,0)="""RTN"",""LRBEBA2"",14,0)"
^XMB(3.9,71,2,252,0)=" S LRBEX=$P(LRBESTG,""|"",3),LRBEIND=$P(LRBESTG,""|"",4)"
^XMB(3.9,71,2,253,0)="""RTN"",""LRBEBA2"",15,0)"
^XMB(3.9,71,2,254,0)=" S $P(^TMP(""OR"",$J,""LROT"",STARTDT,TYPE,SAMP,SPEC,LRSX,""LRBEDGX"",LRBETNUM),U,LRBEX+1)=LRBEIND"
^XMB(3.9,71,2,255,0)="""RTN"",""LRBEBA2"",16,0)"
^XMB(3.9,71,2,256,0)=" Q"
^XMB(3.9,71,2,257,0)="""RTN"",""LRBEBA2"",17,0)"
^XMB(3.9,71,2,258,0)=" ;"
^XMB(3.9,71,2,259,0)="""RTN"",""LRBEBA2"",18,0)"
^XMB(3.9,71,2,260,0)="SDGX69(J,LRBEIEN) ; Set the diagnosis into #69"
^XMB(3.9,71,2,261,0)="""RTN"",""LRBEBA2"",19,0)"
^XMB(3.9,71,2,262,0)=" N LRBEDGX,LRBEFIL,LRFDA,LRFDAIEN,LRBESEQ,LRBEPTDT,LRBEIEN2"
^XMB(3.9,71,2,263,0)="""RTN"",""LRBEBA2"",20,0)"
^XMB(3.9,71,2,264,0)=" S LRBESEQ="""",LRBEFIL=69.05"
^XMB(3.9,71,2,265,0)="""RTN"",""LRBEBA2"",21,0)"
^XMB(3.9,71,2,266,0)=" F  S LRBESEQ=$O(^TMP(""OR"",$J,""LROT"",LRSDT,LRXZ,LRSAMP,LRSPEC,J,""LRBEDGX"",LRBESEQ)) Q:LRBESEQ=""""  D"
^XMB(3.9,71,2,267,0)="""RTN"",""LRBEBA2"",22,0)"
^XMB(3.9,71,2,268,0)=" .S LRBEPTDT=$G(^TMP(""OR"",$J,""LROT"",LRSDT,LRXZ,LRSAMP,LRSPEC,J,""LRBEDGX"",LRBESEQ))"
^XMB(3.9,71,2,269,0)="""RTN"",""LRBEBA2"",23,0)"
^XMB(3.9,71,2,270,0)=" .S LRBEIEN2=LRBESEQ_"",""_LRBEIEN"
^XMB(3.9,71,2,271,0)="""RTN"",""LRBEBA2"",24,0)"
^XMB(3.9,71,2,272,0)=" .I '$D(^LRO(69,LRODT,1,LRSN,2,$P(LRBEIEN,"","",1),2,""B"",$P(LRBEPTDT,U,1))) S LRBEIEN2=""+""_LRBEIEN2"
^XMB(3.9,71,2,273,0)="""RTN"",""LRBEBA2"",25,0)"
^XMB(3.9,71,2,274,0)=" .S LRFDA(99,LRBEFIL,LRBEIEN2,.01)=$P(LRBEPTDT,U,1),LRFDAIEN(LRBESEQ)=LRBESEQ"
^XMB(3.9,71,2,275,0)="""RTN"",""LRBEBA2"",26,0)"
^XMB(3.9,71,2,276,0)=" .S LRFDA(99,LRBEFIL,LRBEIEN2,1)=$P(LRBEPTDT,U,4)   ;SC"
^XMB(3.9,71,2,277,0)="""RTN"",""LRBEBA2"",27,0)"
^XMB(3.9,71,2,278,0)=" .S LRFDA(99,LRBEFIL,LRBEIEN2,2)=$P(LRBEPTDT,U,8)   ;CV"
^XMB(3.9,71,2,279,0)="""RTN"",""LRBEBA2"",28,0)"
^XMB(3.9,71,2,280,0)=" .S LRFDA(99,LRBEFIL,LRBEIEN2,3)=$P(LRBEPTDT,U,2)   ;AO"
^XMB(3.9,71,2,281,0)="""RTN"",""LRBEBA2"",29,0)"
^XMB(3.9,71,2,282,0)=" .S LRFDA(99,LRBEFIL,LRBEIEN2,4)=$P(LRBEPTDT,U,3)   ;IR"
^XMB(3.9,71,2,283,0)="""RTN"",""LRBEBA2"",30,0)"
^XMB(3.9,71,2,284,0)=" .S LRFDA(99,LRBEFIL,LRBEIEN2,5)=$P(LRBEPTDT,U,5)   ;EC"
^XMB(3.9,71,2,285,0)="""RTN"",""LRBEBA2"",31,0)"
^XMB(3.9,71,2,286,0)=" .S LRFDA(99,LRBEFIL,LRBEIEN2,6)=$P(LRBEPTDT,U,6)   ;MST"
^XMB(3.9,71,2,287,0)="""RTN"",""LRBEBA2"",32,0)"
^XMB(3.9,71,2,288,0)=" .S LRFDA(99,LRBEFIL,LRBEIEN2,7)=$P(LRBEPTDT,U,7)   ;HNC"
^XMB(3.9,71,2,289,0)="""RTN"",""LRBEBA2"",33,0)"
^XMB(3.9,71,2,290,0)=" .S:LRBESEQ=1 LRFDA(99,LRBEFIL,LRBEIEN2,8)=1         ;Is Primary?"
^XMB(3.9,71,2,291,0)="""RTN"",""LRBEBA2"",34,0)"
^XMB(3.9,71,2,292,0)=" D UPDATE^DIE("""",""LRFDA(99)"",""LRFDAIEN"",""LRERR"")"
^XMB(3.9,71,2,293,0)="""RTN"",""LRBEBA2"",35,0)"
^XMB(3.9,71,2,294,0)=" Q"
^XMB(3.9,71,2,295,0)="""RTN"",""LRBEBA2"",36,0)"
^XMB(3.9,71,2,296,0)=" ;"
^XMB(3.9,71,2,297,0)="""RTN"",""LRBEBA2"",37,0)"
^XMB(3.9,71,2,298,0)="GDG1(LRODT,SN,IFN) ; diagnosis and indicators back to CPRS"
^XMB(3.9,71,2,299,0)="""RTN"",""LRBEBA2"",38,0)"
^XMB(3.9,71,2,300,0)=" N LRBECNT,LRBEDGX,LRBESEQ,LRBEPTDT"
^XMB(3.9,71,2,301,0)="""RTN"",""LRBEBA2"",39,0)"
^XMB(3.9,71,2,302,0)=" S LRBECNT=2"
^XMB(3.9,71,2,303,0)="""RTN"",""LRBEBA2"",40,0)"
^XMB(3.9,71,2,304,0)=" S LRBESEQ=0 F  S LRBESEQ=$O(^LRO(69,LRODT,1,SN,2,IFN,2,LRBESEQ)) Q:LRBESEQ<1  D"
^XMB(3.9,71,2,305,0)="""RTN"",""LRBEBA2"",41,0)"
^XMB(3.9,71,2,306,0)=" .S LRBEPTDT=$G(^LRO(69,LRODT,1,SN,2,IFN,2,LRBESEQ,0))"
^XMB(3.9,71,2,307,0)="""RTN"",""LRBEBA2"",42,0)"
^XMB(3.9,71,2,308,0)=" .Q:'$G(LRBEPTDT)"
^XMB(3.9,71,2,309,0)="""RTN"",""LRBEBA2"",43,0)"
^XMB(3.9,71,2,310,0)=" .S:$P(LRBEPTDT,""^"",9)=1 ^TMP(""LRX"",$J,69,IFN,""LRBEDGX"",1)=LRBEPTDT"
^XMB(3.9,71,2,311,0)="""RTN"",""LRBEBA2"",44,0)"
^XMB(3.9,71,2,312,0)=" .S:$P(LRBEPTDT,""^"",9)'=1 ^TMP(""LRX"",$J,69,IFN,""LRBEDGX"",LRBECNT)=LRBEPTDT,LRBECNT=LRBECNT+1"
^XMB(3.9,71,2,313,0)="""RTN"",""LRBEBA2"",45,0)"
^XMB(3.9,71,2,314,0)=" Q"
^XMB(3.9,71,2,315,0)="""RTN"",""LRBEBA2"",46,0)"
^XMB(3.9,71,2,316,0)=" ;"
^XMB(3.9,71,2,317,0)="""RTN"",""LRBEBA2"",47,0)"
^XMB(3.9,71,2,318,0)="SDG1(IFN,CTR,LRBEMSG) ; Setup the DG1 segment For CPRS"
^XMB(3.9,71,2,319,0)="""RTN"",""LRBEBA2"",48,0)"
^XMB(3.9,71,2,320,0)=" N LRBEX,LRBEDGX,LRBEIEN,LRBESEQ,LRBEPTDT,LRBEXMSG"
^XMB(3.9,71,2,321,0)="""RTN"",""LRBEBA2"",49,0)"
^XMB(3.9,71,2,322,0)=" S LRBESEQ="""" F  S LRBESEQ=$O(^TMP(""LRX"",$J,69,IFN,""LRBEDGX"",LRBESEQ)) Q:LRBESEQ=""""  D"
^XMB(3.9,71,2,323,0)="""RTN"",""LRBEBA2"",50,0)"
^XMB(3.9,71,2,324,0)=" .S LRBEPTDT=$G(^TMP(""LRX"",$J,69,IFN,""LRBEDGX"",LRBESEQ))"
^XMB(3.9,71,2,325,0)="""RTN"",""LRBEBA2"",51,0)"
^XMB(3.9,71,2,326,0)=" .S LRBEDGX=$$GET1^DIQ(80,$P(LRBEPTDT,U,1)_"","",.01,""I"")"
^XMB(3.9,71,2,327,0)="""RTN"",""LRBEBA2"",52,0)"
^XMB(3.9,71,2,328,0)=" .S LRBEXMSG=$$GET1^DIQ(80,$P(LRBEPTDT,U,1)_"","",3,""I"")"
^XMB(3.9,71,2,329,0)="""RTN"",""LRBEBA2"",53,0)"
^XMB(3.9,71,2,330,0)=" .S LRBEX=$P(LRBEPTDT,U,1)_""^""_LRBEXMSG_""^80^""_LRBEDGX_""^""_LRBEXMSG_""^ICD9"""
^XMB(3.9,71,2,331,0)="""RTN"",""LRBEBA2"",54,0)"
^XMB(3.9,71,2,332,0)=" .S CTR=CTR+1,@LRBEMSG@(CTR)=""DG1|""_LRBESEQ_""||""_LRBEX_""|||||||||||||"""
^XMB(3.9,71,2,333,0)="""RTN"",""LRBEBA2"",55,0)"
^XMB(3.9,71,2,334,0)=" .S CTR=CTR+1,@LRBEMSG@(CTR)=""ZCL|""_LRBESEQ_""|1|""_$P(LRBEPTDT,U,4)"
^XMB(3.9,71,2,335,0)="""RTN"",""LRBEBA2"",56,0)"
^XMB(3.9,71,2,336,0)=" .S CTR=CTR+1,@LRBEMSG@(CTR)=""ZCL|""_LRBESEQ_""|2|""_$P(LRBEPTDT,U,5)"
^XMB(3.9,71,2,337,0)="""RTN"",""LRBEBA2"",57,0)"
^XMB(3.9,71,2,338,0)=" .S CTR=CTR+1,@LRBEMSG@(CTR)=""ZCL|""_LRBESEQ_""|3|""_$P(LRBEPTDT,U,2)"
^XMB(3.9,71,2,339,0)="""RTN"",""LRBEBA2"",58,0)"
^XMB(3.9,71,2,340,0)=" .S CTR=CTR+1,@LRBEMSG@(CTR)=""ZCL|""_LRBESEQ_""|4|""_$P(LRBEPTDT,U,6)"
^XMB(3.9,71,2,341,0)="""RTN"",""LRBEBA2"",59,0)"
^XMB(3.9,71,2,342,0)=" .S CTR=CTR+1,@LRBEMSG@(CTR)=""ZCL|""_LRBESEQ_""|5|""_$P(LRBEPTDT,U,7)"
^XMB(3.9,71,2,343,0)="""RTN"",""LRBEBA2"",60,0)"
^XMB(3.9,71,2,344,0)=" .S CTR=CTR+1,@LRBEMSG@(CTR)=""ZCL|""_LRBESEQ_""|6|""_$P(LRBEPTDT,U,8)"
^XMB(3.9,71,2,345,0)="""RTN"",""LRBEBA2"",61,0)"
^XMB(3.9,71,2,346,0)=" .S CTR=CTR+1,@LRBEMSG@(CTR)=""ZCL|""_LRBESEQ_""|7|""_$P(LRBEPTDT,U,3)"
^XMB(3.9,71,2,347,0)="""RTN"",""LRBEBA2"",62,0)"
^XMB(3.9,71,2,348,0)=" Q"
^XMB(3.9,71,2,349,0)="""RTN"",""LRBEBA2"",63,0)"
^XMB(3.9,71,2,350,0)=" ;"
^XMB(3.9,71,2,351,0)="""RTN"",""LRBEBA2"",64,0)"
^XMB(3.9,71,2,352,0)="GMOD(LRBEAA,LRBECPT) ; Get mod"
^XMB(3.9,71,2,353,0)="""RTN"",""LRBEBA2"",65,0)"
^XMB(3.9,71,2,354,0)=" ;input LRBECPT - ien to #81, not required"
^XMB(3.9,71,2,355,0)="""RTN"",""LRBEBA2"",66,0)"
^XMB(3.9,71,2,356,0)=" N LRBEMOD"
^XMB(3.9,71,2,357,0)="""RTN"",""LRBEBA2"",67,0)"
^XMB(3.9,71,2,358,0)=" S LRBECPT=$G(LRBECPT)"
^XMB(3.9,71,2,359,0)="""RTN"",""LRBEBA2"",68,0)"
^XMB(3.9,71,2,360,0)=" S LRBEMOD=$$GMOD^LRBEBA21(LRBEAA,LRBECPT)"
^XMB(3.9,71,2,361,0)="""RTN"",""LRBEBA2"",69,0)"
^XMB(3.9,71,2,362,0)=" Q LRBEMOD"
^XMB(3.9,71,2,363,0)="""RTN"",""LRBEBA2"",70,0)"
^XMB(3.9,71,2,364,0)=" ;"
^XMB(3.9,71,2,365,0)="""RTN"",""LRBEBA2"",71,0)"
^XMB(3.9,71,2,366,0)="GOPRO(LRODT,LRSN) ; Get the Ordering Provider"
^XMB(3.9,71,2,367,0)="""RTN"",""LRBEBA2"",72,0)"
^XMB(3.9,71,2,368,0)=" N X,Y,DIC,LRBEPRO"
^XMB(3.9,71,2,369,0)="""RTN"",""LRBEBA2"",73,0)"
^XMB(3.9,71,2,370,0)=" S LRBEPRO=$$GET1^DIQ(69.01,LRSN_"",""_LRODT_"","",7,""I"")"
^XMB(3.9,71,2,371,0)="""RTN"",""LRBEBA2"",74,0)"
^XMB(3.9,71,2,372,0)=" I $$GET^XUA4A72(LRBEPRO,DT)<0 S LRBEPRO=0 D"
^XMB(3.9,71,2,373,0)="""RTN"",""LRBEBA2"",75,0)"
^XMB(3.9,71,2,374,0)=" .S X=$$GET1^DIQ(69.9,1,617,""I"")"
^XMB(3.9,71,2,375,0)="""RTN"",""LRBEBA2"",76,0)"
^XMB(3.9,71,2,376,0)=" .I $$GET^XUA4A72(X,DT)>0 S LRBEPRO=X"
^XMB(3.9,71,2,377,0)="""RTN"",""LRBEBA2"",77,0)"
^XMB(3.9,71,2,378,0)=" Q LRBEPRO"
^XMB(3.9,71,2,379,0)="""RTN"",""LRBEBA2"",78,0)"
^XMB(3.9,71,2,380,0)=" ;"
^XMB(3.9,71,2,381,0)="""RTN"",""LRBEBA2"",79,0)"
^XMB(3.9,71,2,382,0)="SACC(LRODT,LRSN,LRTN,LRSAMP,LRSPEC,LRTSTS,LRBEX) ; Set Accession "
^XMB(3.9,71,2,383,0)="""RTN"",""LRBEBA2"",80,0)"
^XMB(3.9,71,2,384,0)=" N LRBEZ"
^XMB(3.9,71,2,385,0)="""RTN"",""LRBEBA2"",81,0)"
^XMB(3.9,71,2,386,0)=" D CARR(.LRBEX,.LRBEZ,LRSAMP,LRSPEC,LRTSTS)"
^XMB(3.9,71,2,387,0)="""RTN"",""LRBEBA2"",82,0)"
^XMB(3.9,71,2,388,0)=" D SDG1^LRBEBA(LRODT,LRSN,LRTN,LRSAMP,LRSPEC,LRTSTS,.LRBEZ)"
^XMB(3.9,71,2,389,0)="""RTN"",""LRBEBA2"",83,0)"
^XMB(3.9,71,2,390,0)=" Q"
^XMB(3.9,71,2,391,0)="""RTN"",""LRBEBA2"",84,0)"
^XMB(3.9,71,2,392,0)=" ;"
^XMB(3.9,71,2,393,0)="""RTN"",""LRBEBA2"",85,0)"
^XMB(3.9,71,2,394,0)="CARR(LRBEAR,LRBEARR,LRBESAMP,LRBESPEC,LRTSTS) ; Change the array to only"
^XMB(3.9,71,2,395,0)="""RTN"",""LRBEBA2"",86,0)"
^XMB(3.9,71,2,396,0)=" ; the specimen that needs to go"
^XMB(3.9,71,2,397,0)="""RTN"",""LRBEBA2"",87,0)"
^XMB(3.9,71,2,398,0)=" N LRBEDFN,LRBETS,LRBESMP,LRBESPC"
^XMB(3.9,71,2,399,0)="""RTN"",""LRBEBA2"",88,0)"
^XMB(3.9,71,2,400,0)=" M LRBEARR=LRBEAR"
^XMB(3.9,71,2,401,0)="""RTN"",""LRBEBA2"",89,0)"
^XMB(3.9,71,2,402,0)=" I '$D(DFN) S LRBEDFN=$$GET1^DIQ(63,LRDFN,.03,""I"")"
^XMB(3.9,71,2,403,0)="""RTN"",""LRBEBA2"",90,0)"
^XMB(3.9,71,2,404,0)=" S:$D(DFN) LRBEDFN=DFN"
^XMB(3.9,71,2,405,0)="""RTN"",""LRBEBA2"",91,0)"
^XMB(3.9,71,2,406,0)=" S LRBESMP="""""
^XMB(3.9,71,2,407,0)="""RTN"",""LRBEBA2"",92,0)"
^XMB(3.9,71,2,408,0)=" F  S LRBESMP=$O(LRBEARR(LRBEDFN,""LRBEDGX"",LRBESMP)) Q:LRBESMP=""""  D"
^XMB(3.9,71,2,409,0)="""RTN"",""LRBEBA2"",93,0)"
^XMB(3.9,71,2,410,0)=" .I LRBESAMP'=LRBESMP D  Q"
^XMB(3.9,71,2,411,0)="""RTN"",""LRBEBA2"",94,0)"
^XMB(3.9,71,2,412,0)=" ..K LRBEARR(LRBEDFN,""LRBEDGX"",LRBESMP)"
^XMB(3.9,71,2,413,0)="""RTN"",""LRBEBA2"",95,0)"
^XMB(3.9,71,2,414,0)="  .S LRBESPC="""""
^XMB(3.9,71,2,415,0)="""RTN"",""LRBEBA2"",96,0)"
^XMB(3.9,71,2,416,0)=" .F  S LRBESPC=$O(LRBEARR(LRBEDFN,""LRBEDGX"",LRBESMP,LRBESPC)) Q:LRBESPC=""""  D"
^XMB(3.9,71,2,417,0)="""RTN"",""LRBEBA2"",97,0)"
^XMB(3.9,71,2,418,0)=" ..I LRBESPEC'=LRBESPC D  Q"
^XMB(3.9,71,2,419,0)="""RTN"",""LRBEBA2"",98,0)"
^XMB(3.9,71,2,420,0)=" ...K LRBEARR(LRBEDFN,""LRBEDGX"",LRBESMP,LRBESPC)"
^XMB(3.9,71,2,421,0)="""RTN"",""LRBEBA2"",99,0)"
^XMB(3.9,71,2,422,0)=" ..S LRBETS="""""
^XMB(3.9,71,2,423,0)="""RTN"",""LRBEBA2"",100,0)"
^XMB(3.9,71,2,424,0)=" ..F  S LRBETS=$O(LRBEARR(LRBEDFN,""LRBEDGX"",LRBESMP,LRBESPC,LRBETS)) Q:LRBETS=""""  D"
^XMB(3.9,71,2,425,0)="""RTN"",""LRBEBA2"",101,0)"
^XMB(3.9,71,2,426,0)=" ...I LRBETS'=LRTSTS K LRBEARR(LRBEDFN,""LRBEDGX"",LRBESMP,LRBESPC,LRBETS)"
^XMB(3.9,71,2,427,0)="""RTN"",""LRBEBA2"",102,0)"
^XMB(3.9,71,2,428,0)=" Q"
^XMB(3.9,71,2,429,0)="""RTN"",""LRBEBA2"",103,0)"
^XMB(3.9,71,2,430,0)=" ;"
^XMB(3.9,71,2,431,0)="""RTN"",""LRBEBA2"",104,0)"
^XMB(3.9,71,2,432,0)="BLDAR(LRBEDFN,LRODT,LRSN,LRTN,LRBESMP,LRBESPC,LRBETST,LRBEAR) ; Build array"
^XMB(3.9,71,2,433,0)="""RTN"",""LRBEBA2"",105,0)"
^XMB(3.9,71,2,434,0)=" ;                                     with diagnosis and indicator info"
^XMB(3.9,71,2,435,0)="""RTN"",""LRBEBA2"",106,0)"
^XMB(3.9,71,2,436,0)=" K LRBEMSG,LRBESEQ,LRBEPTDT,LRBEODT,LRBEDMSG,LRDBEDGX,LRD"
^XMB(3.9,71,2,437,0)="""RTN"",""LRBEBA2"",107,0)"
^XMB(3.9,71,2,438,0)=" S LRBEODT=$P(LRODT,"".""),LRBEPTDT="""""
^XMB(3.9,71,2,439,0)="""RTN"",""LRBEBA2"",108,0)"
^XMB(3.9,71,2,440,0)=" S LRTN=$O(^LRO(69,LRODT,1,LRSN,2,""B"",LRBETST,0))"
^XMB(3.9,71,2,441,0)="""RTN"",""LRBEBA2"",109,0)"
^XMB(3.9,71,2,442,0)=" Q:'$G(LRTN)"
^XMB(3.9,71,2,443,0)="""RTN"",""LRBEBA2"",110,0)"
^XMB(3.9,71,2,444,0)=" S LRBESEQ=0 F  S LRBESEQ=$O(^LRO(69,LRODT,1,LRSN,2,LRTN,2,LRBESEQ)) Q:LRBESEQ<1  D"
^XMB(3.9,71,2,445,0)="""RTN"",""LRBEBA2"",111,0)"
^XMB(3.9,71,2,446,0)=" . I LRBESEQ,$D(^LRO(69,LRODT,1,LRSN,2,LRTN,2,LRBESEQ,0)) S LRD=^(0) D"
^XMB(3.9,71,2,447,0)="""RTN"",""LRBEBA2"",112,0)"
^XMB(3.9,71,2,448,0)=" . . S LRBEMSG=+LRD_""^^^""_$P(LRD,U,4)_U_$P(LRD,U,5)_U_$P(LRD,U,2)"
^XMB(3.9,71,2,449,0)="""RTN"",""LRBEBA2"",113,0)"
^XMB(3.9,71,2,450,0)=" . . S LRBEMSG=LRBEMSG_U_$P(LRD,U,6)_U_$P(LRD,U,7)_U_$P(LRD,U,8)"
^XMB(3.9,71,2,451,0)="""RTN"",""LRBEBA2"",114,0)"
^XMB(3.9,71,2,452,0)=" . . S LRBEMSG=LRBEMSG_U_$P(LRD,U,3)_U_$P(LRD,U,9)"
^XMB(3.9,71,2,453,0)="""RTN"",""LRBEBA2"",115,0)"
^XMB(3.9,71,2,454,0)=" . . S LRBEDGX=+LRD"
^XMB(3.9,71,2,455,0)="""RTN"",""LRBEBA2"",116,0)"
^XMB(3.9,71,2,456,0)=" . S LRBEAR(LRBEDFN,""LRBEDGX"",LRBESMP,LRBESPC,LRBETST,LRBEDGX)=LRBEMSG"
^XMB(3.9,71,2,457,0)="""RTN"",""LRBEBA2"",117,0)"
^XMB(3.9,71,2,458,0)=" ;if test has no dx, sc/ei, then find default dx, sc/ei"
^XMB(3.9,71,2,459,0)="""RTN"",""LRBEBA2"",118,0)"
^XMB(3.9,71,2,460,0)=" S LRBESEQ=$O(^LRO(69,LRODT,1,LRSN,2,LRTN,2,0)) I 'LRBESEQ D"
^XMB(3.9,71,2,461,0)="""RTN"",""LRBEBA2"",119,0)"
^XMB(3.9,71,2,462,0)=" . D DEFAULT^LRBEBA4 Q:$G(LRBENO)"
^XMB(3.9,71,2,463,0)="""RTN"",""LRBEBA2"",120,0)"
^XMB(3.9,71,2,464,0)=" . Q:'$G(LRDBEDGX)"
^XMB(3.9,71,2,465,0)="""RTN"",""LRBEBA2"",121,0)"
^XMB(3.9,71,2,466,0)=" . S LRBEAR(LRBEDFN,""LRBEDGX"",LRBESMP,LRBESPC,LRBETST,LRDBEDGX)=LRBEDMSG"
^XMB(3.9,71,2,467,0)="""RTN"",""LRBEBA2"",122,0)"
^XMB(3.9,71,2,468,0)=" N LRTNX,LRI,LRTNXID"
^XMB(3.9,71,2,469,0)="""RTN"",""LRBEBA2"",123,0)"
^XMB(3.9,71,2,470,0)=" D BLDAR2(LRBETST,LRBETST,LRBESMP,LRBESPC)"
^XMB(3.9,71,2,471,0)="""RTN"",""LRBEBA2"",124,0)"
^XMB(3.9,71,2,472,0)=" S LRI=0 F  S LRI=$O(^LAB(60,LRBETST,2,LRI)) Q:LRI<1  D"
^XMB(3.9,71,2,473,0)="""RTN"",""LRBEBA2"",125,0)"
^XMB(3.9,71,2,474,0)=" . S LRTNX=+$G(^LAB(60,LRBETST,2,LRI,0)) Q:'LRTNX"
^XMB(3.9,71,2,475,0)="""RTN"",""LRBEBA2"",126,0)"
^XMB(3.9,71,2,476,0)=" . S LRTNXID=$P($P(^LAB(60,LRTNX,0),U,5),"";"",2)"
^XMB(3.9,71,2,477,0)="""RTN"",""LRBEBA2"",127,0)"
^XMB(3.9,71,2,478,0)=" . I LRTNXID="""" D BLDAR2(LRBETST,LRTNX,LRBESMP,LRBESPC)"
^XMB(3.9,71,2,479,0)="""RTN"",""LRBEBA2"",128,0)"
^XMB(3.9,71,2,480,0)=" Q"
^XMB(3.9,71,2,481,0)="""RTN"",""LRBEBA2"",129,0)"
^XMB(3.9,71,2,482,0)=" ;"
^XMB(3.9,71,2,483,0)="""RTN"",""LRBEBA2"",130,0)"
^XMB(3.9,71,2,484,0)="BLDAR2(LRBETST,XTEST,LRBESMP,LRBESPC) ;"
^XMB(3.9,71,2,485,0)="""RTN"",""LRBEBA2"",131,0)"
^XMB(3.9,71,2,486,0)=" N LRTNX,LRI,DGX,LRX"
^XMB(3.9,71,2,487,0)="""RTN"",""LRBEBA2"",132,0)"
^XMB(3.9,71,2,488,0)=" S LRI=0"
^XMB(3.9,71,2,489,0)="""RTN"",""LRBEBA2"",133,0)"
^XMB(3.9,71,2,490,0)=" F  S LRI=$O(^LAB(60,XTEST,2,LRI)) Q:LRI<1  D"
^XMB(3.9,71,2,491,0)="""RTN"",""LRBEBA2"",134,0)"
^XMB(3.9,71,2,492,0)=" . S LRTNX=+$G(^LAB(60,XTEST,2,LRI,0)) Q:'LRTNX  D"
^XMB(3.9,71,2,493,0)="""RTN"",""LRBEBA2"",135,0)"
^XMB(3.9,71,2,494,0)=" . . S DGX=0 F  S DGX=$O(LRBEAR(LRBEDFN,""LRBEDGX"",LRBESMP,LRBESPC,LRBETST,DGX)) Q:DGX<1  D"
^XMB(3.9,71,2,495,0)="""RTN"",""LRBEBA2"",136,0)"
^XMB(3.9,71,2,496,0)=" . . . S LRX=$G(LRBEAR(LRBEDFN,""LRBEDGX"",LRBESMP,LRBESPC,LRBETST,DGX))"
^XMB(3.9,71,2,497,0)="""RTN"",""LRBEBA2"",137,0)"
^XMB(3.9,71,2,498,0)=" . . . Q:'LRX"
^XMB(3.9,71,2,499,0)="""RTN"",""LRBEBA2"",138,0)"
^XMB(3.9,71,2,500,0)=" . . . S LRBEAR(LRBEDFN,""LRBEDGX"",LRBESMP,LRBESPC,LRTNX,DGX)=LRX"
^XMB(3.9,71,2,501,0)="""RTN"",""LRBEBA2"",139,0)"
^XMB(3.9,71,2,502,0)=" Q"
^XMB(3.9,71,2,503,0)="""RTN"",""LRBEBA2"",140,0)"
^XMB(3.9,71,2,504,0)=" ;"
^XMB(3.9,71,2,505,0)="""RTN"",""LRBEBA2"",141,0)"
^XMB(3.9,71,2,506,0)="STDN(LRODT,LRBESN,LRBETEST,LRBEAR1) ;  Test and Data Number"
^XMB(3.9,71,2,507,0)="""RTN"",""LRBEBA2"",142,0)"
^XMB(3.9,71,2,508,0)=" N LRBEA,LRBEB,LRBEC,LRBED,LRBEDX,LRBEPTDT,X,Y"
^XMB(3.9,71,2,509,0)="""RTN"",""LRBEBA2"",143,0)"
^XMB(3.9,71,2,510,0)=" S LRBEA="""" F  S LRBEA=$O(LRBETEST(LRBEA)) Q:LRBEA=""""  D"
^XMB(3.9,71,2,511,0)="""RTN"",""LRBEBA2"",144,0)"
^XMB(3.9,71,2,512,0)=" .S DIC=""^LRO(69,""_LRODT_"",""_1_"",""_LRBESN_"",""_""2,"",DIC(0)=""MZ"""
^XMB(3.9,71,2,513,0)="""RTN"",""LRBEBA2"",145,0)"
^XMB(3.9,71,2,514,0)=" .S X=$P(LRBETEST(LRBEA),U,2) D ^DIC K DIC I +Y<1 Q"
^XMB(3.9,71,2,515,0)="""RTN"",""LRBEBA2"",146,0)"
^XMB(3.9,71,2,516,0)=" .S LRBEB=0 F  S LRBEB=$O(^LRO(69,LRODT,1,LRBESN,2,+Y,2,""B"",LRBEB)) Q:LRBEB<1  D"
^XMB(3.9,71,2,517,0)="""RTN"",""LRBEBA2"",147,0)"
^XMB(3.9,71,2,518,0)=" ..S LRBEC=0 F  S LRBEC=$O(^LRO(69,LRODT,1,LRBESN,2,+Y,2,""B"",LRBEB,LRBEC)) Q:'LRBEC  D"
^XMB(3.9,71,2,519,0)="""RTN"",""LRBEBA2"",148,0)"
^XMB(3.9,71,2,520,0)=" ...S LRBED="""" F  S LRBED=$O(LRBEAR1($P(LRBETEST(LRBEA),U,1),LRBED)) Q:LRBED=""""  D"
^XMB(3.9,71,2,521,0)="""RTN"",""LRBEBA2"",149,0)"
^XMB(3.9,71,2,522,0)=" ....S LRBEAR1($P(LRBETEST(LRBEA),U,1),LRBED,LRBEC)=LRBEB"
^XMB(3.9,71,2,523,0)="""RTN"",""LRBEBA2"",150,0)"
^XMB(3.9,71,2,524,0)=" Q"
^XMB(3.9,71,2,525,0)="""RTN"",""LRBEBA2"",151,0)"
^XMB(3.9,71,2,526,0)=" ;"
^XMB(3.9,71,2,527,0)="""RTN"",""LRBEBA2"",152,0)"
^XMB(3.9,71,2,528,0)="SOP(LRBEDFN,LRBESB,LRBEAR1,LRBEPAN,LRBEROLL) ;Outpatient Resulting "
^XMB(3.9,71,2,529,0)="""RTN"",""LRBEBA2"",153,0)"
^XMB(3.9,71,2,530,0)=" ; Information in CIDC Array"
^XMB(3.9,71,2,531,0)="""RTN"",""LRBEBA2"",154,0)"
^XMB(3.9,71,2,532,0)=" N DIC,LRBEDN,LRBESTG,LRBEDGX,LRBEEDT,LRBEEPRO,LRBEOPRO,LRBEQTY,LRBETST"
^XMB(3.9,71,2,533,0)="""RTN"",""LRBEBA2"",155,0)"
^XMB(3.9,71,2,534,0)=" N LRBEPOS,LRORREFN,LRBE21"
^XMB(3.9,71,2,535,0)="""RTN"",""LRBEBA2"",156,0)"
^XMB(3.9,71,2,536,0)=" ;LRBERES=Resend PCE date flag"
^XMB(3.9,71,2,537,0)="""RTN"",""LRBEBA2"",157,0)"
^XMB(3.9,71,2,538,0)=" K LRBECPT S (LRBECPT,LRBEEDT,LRBEEPRO,LRBEOPRO,LRBEQTY,LRORREFN)="""""
^XMB(3.9,71,2,539,0)="""RTN"",""LRBEBA2"",158,0)"
^XMB(3.9,71,2,540,0)=" S LRBEEPRO=$$GEPRO(LRAA),LRBEOPRO=$$GOPRO^LRBEBA2(LRODT,LRSN)"
^XMB(3.9,71,2,541,0)="""RTN"",""LRBEBA2"",159,0)"
^XMB(3.9,71,2,542,0)=" S LRBETST=0 F  S LRBETST=$O(LRBEAR1(LRBETST)) Q:'LRBETST  D"
^XMB(3.9,71,2,543,0)="""RTN"",""LRBEBA2"",160,0)"
^XMB(3.9,71,2,544,0)=" . S LRBE21=0"
^XMB(3.9,71,2,545,0)="""RTN"",""LRBEBA2"",161,0)"
^XMB(3.9,71,2,546,0)=" . ;process AMA/billable panel CPT codes"
^XMB(3.9,71,2,547,0)="""RTN"",""LRBEBA2"",162,0)"
^XMB(3.9,71,2,548,0)=" . I $D(LRBEPAN(LRBETST)) D EN^LRBEBA21(.LRBE21)"
^XMB(3.9,71,2,549,0)="""RTN"",""LRBEBA2"",163,0)"
^XMB(3.9,71,2,550,0)=" . ;otherwise process atomic test(s) CPT codes"
^XMB(3.9,71,2,551,0)="""RTN"",""LRBEBA2"",164,0)"
^XMB(3.9,71,2,552,0)=" . I 'LRBE21 D"
^XMB(3.9,71,2,553,0)="""RTN"",""LRBEBA2"",165,0)"
^XMB(3.9,71,2,554,0)=" . . S LRY=$O(^LRO(69,LRODT,1,LRSN,2,""B"",LRBETST,0))"
^XMB(3.9,71,2,555,0)="""RTN"",""LRBEBA2"",166,0)"
^XMB(3.9,71,2,556,0)=" . . Q:'LRY"
^XMB(3.9,71,2,557,0)="""RTN"",""LRBEBA2"",167,0)"
^XMB(3.9,71,2,558,0)=" . . S LRY=LRY_"",""_LRSN_"",""_LRODT_"","""
^XMB(3.9,71,2,559,0)="""RTN"",""LRBEBA2"",168,0)"
^XMB(3.9,71,2,560,0)=" . . Q:$$GET1^DIQ(69.03,LRY,10,""I"")"
^XMB(3.9,71,2,561,0)="""RTN"",""LRBEBA2"",169,0)"
^XMB(3.9,71,2,562,0)=" . . I $G(ORIEN),$$GET1^DIQ(69.03,LRY,6,""I"")'=ORIEN Q"
^XMB(3.9,71,2,563,0)="""RTN"",""LRBEBA2"",170,0)"
^XMB(3.9,71,2,564,0)=" . . S LRBECDT=$$GET1^DIQ(69.03,LRY,22,""I"")"
^XMB(3.9,71,2,565,0)="""RTN"",""LRBEBA2"",171,0)"
^XMB(3.9,71,2,566,0)=" . . Q:'LRBECDT"
^XMB(3.9,71,2,567,0)="""RTN"",""LRBEBA2"",172,0)"
^XMB(3.9,71,2,568,0)=" . . S LRBEDN="""" F  S LRBEDN=$O(LRBEAR1(LRBETST,LRBEDN)) Q:LRBEDN=""""  D SOP2"
^XMB(3.9,71,2,569,0)="""RTN"",""LRBEBA2"",173,0)"
^XMB(3.9,71,2,570,0)=" . . I $D(LRBECPT)=11 S LRFDA(1,69.03,LRY,11)=1 D FILE^DIE(""KS"",""LRFDA(1)"",""ERR"")"
^XMB(3.9,71,2,571,0)="""RTN"",""LRBEBA2"",174,0)"
^XMB(3.9,71,2,572,0)=" Q"
^XMB(3.9,71,2,573,0)="""RTN"",""LRBEBA2"",175,0)"
^XMB(3.9,71,2,574,0)=" ;"
^XMB(3.9,71,2,575,0)="""RTN"",""LRBEBA2"",176,0)"
^XMB(3.9,71,2,576,0)="SOP2 ;Process atomic test CPT code"
^XMB(3.9,71,2,577,0)="""RTN"",""LRBEBA2"",177,0)"
^XMB(3.9,71,2,578,0)=" N OUT,LRBETSTX"
^XMB(3.9,71,2,579,0)="""RTN"",""LRBEBA2"",178,0)"
^XMB(3.9,71,2,580,0)=" I $G(LRBESB(LRBEDN))'="""" D"
^XMB(3.9,71,2,581,0)="""RTN"",""LRBEBA2"",179,0)"
^XMB(3.9,71,2,582,0)=" . I $P(LRBESB(LRBEDN),U)=""pending"" Q"
^XMB(3.9,71,2,583,0)="""RTN"",""LRBEBA2"",180,0)"
^XMB(3.9,71,2,584,0)=" . I $P(LRBESB(LRBEDN),U)=""canc"" Q"
^XMB(3.9,71,2,585,0)="""RTN"",""LRBEBA2"",181,0)"
^XMB(3.9,71,2,586,0)=" . I '$G(LRBERES) Q:$P($G(LRBESB(LRBEDN)),U,13)"
^XMB(3.9,71,2,587,0)="""RTN"",""LRBEBA2"",182,0)"
^XMB(3.9,71,2,588,0)=" . S LRBEQTY=1"
^XMB(3.9,71,2,589,0)="""RTN"",""LRBEBA2"",183,0)"
^XMB(3.9,71,2,590,0)=" . D GPRO^LRBEBA4(LRBEDN,LRBECDT,LRSPEC,.LRBETSTX) I $G(LRBETSTX),$O(LRBECPT(LRBETSTX,0)) D"
^XMB(3.9,71,2,591,0)="""RTN"",""LRBEBA2"",184,0)"
^XMB(3.9,71,2,592,0)=" . . D GOREF^LRBEBA21(LRODT,LRSN,LRBEDN,.LRBEAR1,.LRORREFN)"
^XMB(3.9,71,2,593,0)="""RTN"",""LRBEBA2"",185,0)"
^XMB(3.9,71,2,594,0)=" . . S OUT=0 I $G(LRDFN),$G(LRIDT),$D(^LR(LRDFN,LRSS,LRIDT,$G(LRBEDN))) D"
^XMB(3.9,71,2,595,0)="""RTN"",""LRBEBA2"",186,0)"
^XMB(3.9,71,2,596,0)=" . . . ;test already sent to PCE"
^XMB(3.9,71,2,597,0)="""RTN"",""LRBEBA2"",187,0)"
^XMB(3.9,71,2,598,0)=" . . . I '$G(LRBERES) S OUT=$P(^LR(LRDFN,LRSS,LRIDT,$G(LRBEDN)),U,13) Q:OUT"
^XMB(3.9,71,2,599,0)="""RTN"",""LRBEBA2"",188,0)"
^XMB(3.9,71,2,600,0)=" . . . ;otherwise, mark it as sent to PCE"
^XMB(3.9,71,2,601,0)="""RTN"",""LRBEBA2"",189,0)"
^XMB(3.9,71,2,602,0)=" . . . S $P(^LR(LRDFN,LRSS,LRIDT,$G(LRBEDN)),U,13)=1"
^XMB(3.9,71,2,603,0)="""RTN"",""LRBEBA2"",190,0)"
^XMB(3.9,71,2,604,0)=" . . ;don't continue if test already sent to PCE and not re-sending from WORK^LRBEBA4"
^XMB(3.9,71,2,605,0)="""RTN"",""LRBEBA2"",191,0)"
^XMB(3.9,71,2,606,0)=" . . Q:OUT"
^XMB(3.9,71,2,607,0)="""RTN"",""LRBEBA2"",192,0)"
^XMB(3.9,71,2,608,0)=" . . S LRI=0 F  S LRI=$O(LRBECPT(LRBETSTX,LRI)) Q:LRI<1  D"
^XMB(3.9,71,2,609,0)="""RTN"",""LRBEBA2"",193,0)"
^XMB(3.9,71,2,610,0)=" . . . S LRBECPT=$O(LRBECPT(LRBETSTX,LRI,0))"
^XMB(3.9,71,2,611,0)="""RTN"",""LRBEBA2"",194,0)"
^XMB(3.9,71,2,612,0)=" . . . S LRBEMOD=$$GMOD^LRBEBA2(LRAA,LRBECPT)"
^XMB(3.9,71,2,613,0)="""RTN"",""LRBEBA2"",195,0)"
^XMB(3.9,71,2,614,0)=" . . . S LRBEPOS=$$GPOS(.LRBESB,LRBEDN)"
^XMB(3.9,71,2,615,0)="""RTN"",""LRBEBA2"",196,0)"
^XMB(3.9,71,2,616,0)=" . . . D GDGX^LRBEBA21(LRBETST,LRBEDN,.LRBEAR,.LRBEAR1,.LRBEDGX)"
^XMB(3.9,71,2,617,0)="""RTN"",""LRBEBA2"",197,0)"
^XMB(3.9,71,2,618,0)=" . . . S LRBESTG=LRBECPT_U_LRBEMOD_U_$G(LRBEDGX(LRBETST,1))_U_$G(LRBEDGX(LRBETST,2))_U_$G(LRBEDGX(LRBETST,3))"
^XMB(3.9,71,2,619,0)="""RTN"",""LRBEBA2"",198,0)"
^XMB(3.9,71,2,620,0)=" . . . S LRBESTG=LRBESTG_U_$G(LRBEDGX(LRBETST,4))_U_LRBECDT_U_LRBEEPRO_U_LRBEOPRO_U_LRBEQTY_U_LRBEPOS"
^XMB(3.9,71,2,621,0)="""RTN"",""LRBEBA2"",199,0)"
^XMB(3.9,71,2,622,0)=" . . . S LRBESTG=LRBESTG_U_$G(LRBEDGX(LRBETST,5))_U_$G(LRBEDGX(LRBETST,6))_U_$G(LRBEDGX(LRBETST,7))"
^XMB(3.9,71,2,623,0)="""RTN"",""LRBEBA2"",200,0)"
^XMB(3.9,71,2,624,0)=" . . . S LRBESTG=LRBESTG_U_$G(LRBEDGX(LRBETST,8))_U_LRORREFN"
^XMB(3.9,71,2,625,0)="""RTN"",""LRBEBA2"",201,0)"
^XMB(3.9,71,2,626,0)=" . . . I $G(LRBECPT(LRBETSTX,LRI,LRBECPT,""COUNT"")) S $P(LRBESTG,U,20)=LRBECPT(LRBETSTX,LRI,LRBECPT,""COUNT"")+1"
^XMB(3.9,71,2,627,0)="""RTN"",""LRBEBA2"",202,0)"
^XMB(3.9,71,2,628,0)=" . . . S LRBEAR(LRBEDFN,""LRBEDGX"",LRI,LRBEDN)=LRBESTG"
^XMB(3.9,71,2,629,0)="""RTN"",""LRBEBA2"",203,0)"
^XMB(3.9,71,2,630,0)=" Q"
^XMB(3.9,71,2,631,0)="""RTN"",""LRBEBA2"",204,0)"
^XMB(3.9,71,2,632,0)=" ;"
^XMB(3.9,71,2,633,0)="""RTN"",""LRBEBA2"",205,0)"
^XMB(3.9,71,2,634,0)="GEPRO(LRBEAA) ; Provider - Responsible Official"
^XMB(3.9,71,2,635,0)="""RTN"",""LRBEBA2"",206,0)"
^XMB(3.9,71,2,636,0)=" N X,LRBEPRO"
^XMB(3.9,71,2,637,0)="""RTN"",""LRBEBA2"",207,0)"
^XMB(3.9,71,2,638,0)=" S LRBEPRO=$$GET1^DIQ(68,LRBEAA_"","",.1,""I"")"
^XMB(3.9,71,2,639,0)="""RTN"",""LRBEBA2"",208,0)"
^XMB(3.9,71,2,640,0)=" I $$GET^XUA4A72(LRBEPRO,DT)<0 S LRBEPRO=$$GET1^DIQ(69.9,1,617,""I"")"
^XMB(3.9,71,2,641,0)="""RTN"",""LRBEBA2"",209,0)"
^XMB(3.9,71,2,642,0)=" Q LRBEPRO"
^XMB(3.9,71,2,643,0)="""RTN"",""LRBEBA2"",210,0)"
^XMB(3.9,71,2,644,0)=" ;"
^XMB(3.9,71,2,645,0)="""RTN"",""LRBEBA2"",211,0)"
^XMB(3.9,71,2,646,0)="GPOS(LRBESB,LRBEDN) ; Get the Place of Service"
^XMB(3.9,71,2,647,0)="""RTN"",""LRBEBA2"",212,0)"
^XMB(3.9,71,2,648,0)=" Q $P($G(LRBESB(LRBEDN)),U,9)"
^XMB(3.9,71,2,649,0)="""RTN"",""LRBEBA2"",213,0)"
^XMB(3.9,71,2,650,0)=" ;"
^XMB(3.9,71,2,651,0)="""RTN"",""LRBEBA2"",214,0)"
^XMB(3.9,71,2,652,0)="SLROT(LRXST,LRTEST,LRBEOT) ;LROT array"
^XMB(3.9,71,2,653,0)="""RTN"",""LRBEBA2"",215,0)"
^XMB(3.9,71,2,654,0)=" D SLROT^LRBEBA3(.LRXST,.LRTEST,.LRBEOT)"
^XMB(3.9,71,2,655,0)="""RTN"",""LRBEBA2"",216,0)"
^XMB(3.9,71,2,656,0)=" Q"
^XMB(3.9,71,2,657,0)="""RTN"",""LRBEBA21"")"
^XMB(3.9,71,2,658,0)="0^2^B40326837^B34208057"
^XMB(3.9,71,2,659,0)="""RTN"",""LRBEBA21"",1,0)"
^XMB(3.9,71,2,660,0)="LRBEBA21 ;DALOI/JAH/FHS - PROCESS PANEL CPT CODE ;8/10/04"
^XMB(3.9,71,2,661,0)="""RTN"",""LRBEBA21"",2,0)"
^XMB(3.9,71,2,662,0)=" ;;5.2;LAB SERVICE;**291,359**;Sep 27, 1994"
^XMB(3.9,71,2,663,0)="""RTN"",""LRBEBA21"",3,0)"
^XMB(3.9,71,2,664,0)=" ;Continued LRBEBA2"
^XMB(3.9,71,2,665,0)="""RTN"",""LRBEBA21"",4,0)"
^XMB(3.9,71,2,666,0)=" ;Process panel test for CPT"
^XMB(3.9,71,2,667,0)="""RTN"",""LRBEBA21"",5,0)"
^XMB(3.9,71,2,668,0)=" ;Set 13th piece of LRSB(X) to prevent double counting"
^XMB(3.9,71,2,669,0)="""RTN"",""LRBEBA21"",6,0)"
^XMB(3.9,71,2,670,0)="EN(LRBE21) ;LRBEAR1(LRBETST,"
^XMB(3.9,71,2,671,0)="""RTN"",""LRBEBA21"",7,0)"
^XMB(3.9,71,2,672,0)=" ;Returns LRBE21"
^XMB(3.9,71,2,673,0)="""RTN"",""LRBEBA21"",8,0)"
^XMB(3.9,71,2,674,0)=" ;        0 = process as atomic test"
^XMB(3.9,71,2,675,0)="""RTN"",""LRBEBA21"",9,0)"
^XMB(3.9,71,2,676,0)=" ;        1 = processed (or will be processed in future) as panel"
^XMB(3.9,71,2,677,0)="""RTN"",""LRBEBA21"",10,0)"
^XMB(3.9,71,2,678,0)=" N LRI,LRY,LRTST,LRNOP,LRNP,LRPEND,LRCANC,LRBSB,LRFDA,ERR,OK"
^XMB(3.9,71,2,679,0)="""RTN"",""LRBEBA21"",11,0)"
^XMB(3.9,71,2,680,0)=" N LRBECDT,LRBEEDT,LRORREFN,LRPCECNT,LRBEQTY,LRNOREQ,LRBESTG"
^XMB(3.9,71,2,681,0)="""RTN"",""LRBEBA21"",12,0)"
^XMB(3.9,71,2,682,0)=" S (LRBE21,LRPCECNT,LRNP,LRNOP,LRPEND,LRCANC)=0"
^XMB(3.9,71,2,683,0)="""RTN"",""LRBEBA21"",13,0)"
^XMB(3.9,71,2,684,0)=" I $D(LRBEAR1(LRBETST)) D"
^XMB(3.9,71,2,685,0)="""RTN"",""LRBEBA21"",14,0)"
^XMB(3.9,71,2,686,0)=" . ;must be AMA/billable panel"
^XMB(3.9,71,2,687,0)="""RTN"",""LRBEBA21"",15,0)"
^XMB(3.9,71,2,688,0)=" . Q:'($D(LRBEPAN(LRBETST)))"
^XMB(3.9,71,2,689,0)="""RTN"",""LRBEBA21"",16,0)"
^XMB(3.9,71,2,690,0)=" . S LRY=$O(^LRO(69,LRODT,1,LRSN,2,""B"",LRBETST,0))"
^XMB(3.9,71,2,691,0)="""RTN"",""LRBEBA21"",17,0)"
^XMB(3.9,71,2,692,0)=" . Q:'LRY"
^XMB(3.9,71,2,693,0)="""RTN"",""LRBEBA21"",18,0)"
^XMB(3.9,71,2,694,0)=" . S LRY=LRY_"",""_LRSN_"",""_LRODT_"","""
^XMB(3.9,71,2,695,0)="""RTN"",""LRBEBA21"",19,0)"
^XMB(3.9,71,2,696,0)=" . ;canceled test"
^XMB(3.9,71,2,697,0)="""RTN"",""LRBEBA21"",20,0)"
^XMB(3.9,71,2,698,0)=" . I $$GET1^DIQ(69.03,LRY,8,""I"")=""CA"" K LRY Q"
^XMB(3.9,71,2,699,0)="""RTN"",""LRBEBA21"",21,0)"
^XMB(3.9,71,2,700,0)=" . S LRBECDT=$$GET1^DIQ(69.03,LRY,22,""I"")"
^XMB(3.9,71,2,701,0)="""RTN"",""LRBEBA21"",22,0)"
^XMB(3.9,71,2,702,0)=" . I 'LRBECDT K LRY Q"
^XMB(3.9,71,2,703,0)="""RTN"",""LRBEBA21"",23,0)"
^XMB(3.9,71,2,704,0)=" . I '$G(LRBERES) S LRPCECNT=$$GET1^DIQ(69.03,LRY,11,""I"")"
^XMB(3.9,71,2,705,0)="""RTN"",""LRBEBA21"",24,0)"
^XMB(3.9,71,2,706,0)=" . I LRPCECNT K LRY Q"
^XMB(3.9,71,2,707,0)="""RTN"",""LRBEBA21"",25,0)"
^XMB(3.9,71,2,708,0)=" . S LRORREFN=$$GET1^DIQ(69.03,LRY,6,""I"")"
^XMB(3.9,71,2,709,0)="""RTN"",""LRBEBA21"",26,0)"
^XMB(3.9,71,2,710,0)=" . I $G(ORIEN),LRORREFN'=ORIEN K LRY Q"
^XMB(3.9,71,2,711,0)="""RTN"",""LRBEBA21"",27,0)"
^XMB(3.9,71,2,712,0)=" . ;check status of atomic tests"
^XMB(3.9,71,2,713,0)="""RTN"",""LRBEBA21"",28,0)"
^XMB(3.9,71,2,714,0)=" . S LRNOREQ=1"
^XMB(3.9,71,2,715,0)="""RTN"",""LRBEBA21"",29,0)"
^XMB(3.9,71,2,716,0)=" . S LRBSB=0 F  S LRBSB=$O(LRBEAR1(LRBETST,LRBSB)) Q:'LRBSB  I $G(LRIDT) D"
^XMB(3.9,71,2,717,0)="""RTN"",""LRBEBA21"",30,0)"
^XMB(3.9,71,2,718,0)=" . . ;check only 'required' atomic tests"
^XMB(3.9,71,2,719,0)="""RTN"",""LRBEBA21"",31,0)"
^XMB(3.9,71,2,720,0)=" . . Q:'$D(LRBEAR1(LRBETST,LRBSB,""R""))"
^XMB(3.9,71,2,721,0)="""RTN"",""LRBEBA21"",32,0)"
^XMB(3.9,71,2,722,0)=" . . S LRTST=+LRBEAR1(LRBETST,LRBSB,""R"")"
^XMB(3.9,71,2,723,0)="""RTN"",""LRBEBA21"",33,0)"
^XMB(3.9,71,2,724,0)=" . . S X=$G(LRBESB(LRBSB)) I 'LRTST S LRTST=+$P($P(X,""^"",3),""!"",7)"
^XMB(3.9,71,2,725,0)="""RTN"",""LRBEBA21"",34,0)"
^XMB(3.9,71,2,726,0)=" . . I X="""" S X=$G(^LR(LRDFN,LRSS,LRIDT,LRBSB)) S:(X'="""") LRBESB(LRBSB)=X S:(X="""") X=""pending"""
^XMB(3.9,71,2,727,0)="""RTN"",""LRBEBA21"",35,0)"
^XMB(3.9,71,2,728,0)=" . . ;check for not performed tests"
^XMB(3.9,71,2,729,0)="""RTN"",""LRBEBA21"",36,0)"
^XMB(3.9,71,2,730,0)=" . . I $P($G(^LRO(68,LRAA,1,LRAD,1,LRAN,4,LRTST,0)),U,6)=""*Not Performed"" S LRNP=1"
^XMB(3.9,71,2,731,0)="""RTN"",""LRBEBA21"",37,0)"
^XMB(3.9,71,2,732,0)=" . . ;check for tests already sent to pce"
^XMB(3.9,71,2,733,0)="""RTN"",""LRBEBA21"",38,0)"
^XMB(3.9,71,2,734,0)=" . . I $P(X,U,13)=1 S LRNOP=1 Q"
^XMB(3.9,71,2,735,0)="""RTN"",""LRBEBA21"",39,0)"
^XMB(3.9,71,2,736,0)=" . . ;check for cancelled tests"
^XMB(3.9,71,2,737,0)="""RTN"",""LRBEBA21"",40,0)"
^XMB(3.9,71,2,738,0)=" . . I $P(X,U,1)=""canc"" S LRCANC=1"
^XMB(3.9,71,2,739,0)="""RTN"",""LRBEBA21"",41,0)"
^XMB(3.9,71,2,740,0)=" . . ;check for tests still pending"
^XMB(3.9,71,2,741,0)="""RTN"",""LRBEBA21"",42,0)"
^XMB(3.9,71,2,742,0)=" . . I $P(X,U,1)=""pending"" S LRPEND=1"
^XMB(3.9,71,2,743,0)="""RTN"",""LRBEBA21"",43,0)"
^XMB(3.9,71,2,744,0)=" . . S LRNOREQ=0"
^XMB(3.9,71,2,745,0)="""RTN"",""LRBEBA21"",44,0)"
^XMB(3.9,71,2,746,0)=" . ;quit if any 'required' atomic tests not performed or cancelled"
^XMB(3.9,71,2,747,0)="""RTN"",""LRBEBA21"",45,0)"
^XMB(3.9,71,2,748,0)=" . Q:((LRNOREQ=0)&(LRNP!LRCANC))"
^XMB(3.9,71,2,749,0)="""RTN"",""LRBEBA21"",46,0)"
^XMB(3.9,71,2,750,0)=" . ;check for resulted tests in panel with no 'required' tests"
^XMB(3.9,71,2,751,0)="""RTN"",""LRBEBA21"",47,0)"
^XMB(3.9,71,2,752,0)=" . S OK=0"
^XMB(3.9,71,2,753,0)="""RTN"",""LRBEBA21"",48,0)"
^XMB(3.9,71,2,754,0)=" . I LRNOREQ S LRBSB=0 F  S LRBSB=$O(LRBEAR1(LRBETST,LRBSB)) Q:'LRBSB!($G(LRNP))  D"
^XMB(3.9,71,2,755,0)="""RTN"",""LRBEBA21"",49,0)"
^XMB(3.9,71,2,756,0)=" . . S X=$G(LRBESB(LRBSB)),LRTST=+$P($P(X,""^"",3),""!"",7)"
^XMB(3.9,71,2,757,0)="""RTN"",""LRBEBA21"",50,0)"
^XMB(3.9,71,2,758,0)=" . . I $P(X,U,1)'="""",$P(X,U,1)'=""canc"",$P(X,U,1)'=""pending"" S OK=1"
^XMB(3.9,71,2,759,0)="""RTN"",""LRBEBA21"",51,0)"
^XMB(3.9,71,2,760,0)=" . . ;check for not performed tests"
^XMB(3.9,71,2,761,0)="""RTN"",""LRBEBA21"",52,0)"
^XMB(3.9,71,2,762,0)=" . . I $P($G(^LRO(68,LRAA,1,LRAD,1,LRAN,4,LRTST,0)),U,6)=""*Not Performed"" S LRNP=1"
^XMB(3.9,71,2,763,0)="""RTN"",""LRBEBA21"",53,0)"
^XMB(3.9,71,2,764,0)=" . ;quit if no 'required' tests on panel and no resulted tests"
^XMB(3.9,71,2,765,0)="""RTN"",""LRBEBA21"",54,0)"
^XMB(3.9,71,2,766,0)=" . Q:(LRNOREQ&'OK)"
^XMB(3.9,71,2,767,0)="""RTN"",""LRBEBA21"",55,0)"
^XMB(3.9,71,2,768,0)=" . ;if not roll-up to PCE, proceed to panel CPT; "
^XMB(3.9,71,2,769,0)="""RTN"",""LRBEBA21"",56,0)"
^XMB(3.9,71,2,770,0)=" . ;including case where none of atomic tests are 'required' (if results available)"
^XMB(3.9,71,2,771,0)="""RTN"",""LRBEBA21"",57,0)"
^XMB(3.9,71,2,772,0)=" . I '$G(LRBEROLL) D PANEL^LRBEBA4 I $O(LRBECPT(LRBETST,0)) D"
^XMB(3.9,71,2,773,0)="""RTN"",""LRBEBA21"",58,0)"
^XMB(3.9,71,2,774,0)=" . . S LRI=0 F  S LRI=$O(LRBECPT(LRBETST,LRI)) Q:LRI<1  D"
^XMB(3.9,71,2,775,0)="""RTN"",""LRBEBA21"",59,0)"
^XMB(3.9,71,2,776,0)=" . . . S LRBECPT=$O(LRBECPT(LRBETST,LRI,0))"
^XMB(3.9,71,2,777,0)="""RTN"",""LRBEBA21"",60,0)"
^XMB(3.9,71,2,778,0)=" . . . S LRBEMOD=$$GMOD^LRBEBA2(LRAA,LRBECPT)"
^XMB(3.9,71,2,779,0)="""RTN"",""LRBEBA21"",61,0)"
^XMB(3.9,71,2,780,0)=" . . . S LRBEPOS=DUZ,LRBEQTY=1,LRBEDN=+$O(LRBEAR1(LRBETST,0))"
^XMB(3.9,71,2,781,0)="""RTN"",""LRBEBA21"",62,0)"
^XMB(3.9,71,2,782,0)=" . . . D GDGX^LRBEBA21(LRBETST,LRBEDN,.LRBEAR,.LRBEAR1,.LRBEDGX)"
^XMB(3.9,71,2,783,0)="""RTN"",""LRBEBA21"",63,0)"
^XMB(3.9,71,2,784,0)=" . . . S LRBESTG=LRBECPT_U_$G(LRBEMOD)_U_$G(LRBEDGX(LRBETST,1))_U_$G(LRBEDGX(LRBETST,2))_U_$G(LRBEDGX(LRBETST,3))"
^XMB(3.9,71,2,785,0)="""RTN"",""LRBEBA21"",64,0)"
^XMB(3.9,71,2,786,0)=" . . . S LRBESTG=LRBESTG_U_$G(LRBEDGX(LRBETST,4))_U_LRBECDT_U_LRBEEPRO_U_LRBEOPRO_U_LRBEQTY_U_LRBEPOS"
^XMB(3.9,71,2,787,0)="""RTN"",""LRBEBA21"",65,0)"
^XMB(3.9,71,2,788,0)=" . . . S LRBESTG=LRBESTG_U_$G(LRBEDGX(LRBETST,5))_U_$G(LRBEDGX(LRBETST,6))_U_$G(LRBEDGX(LRBETST,7))"
^XMB(3.9,71,2,789,0)="""RTN"",""LRBEBA21"",66,0)"
^XMB(3.9,71,2,790,0)=" . . . S LRBESTG=LRBESTG_U_$G(LRBEDGX(LRBETST,8))_U_LRORREFN"
^XMB(3.9,71,2,791,0)="""RTN"",""LRBEBA21"",67,0)"
^XMB(3.9,71,2,792,0)=" . . . I $G(LRBECPT(LRBETST,LRI,LRBECPT,""COUNT"")) S $P(LRBESTG,U,20)=LRBECPT(LRBETST,LRI,LRBECPT,""COUNT"")+1"
^XMB(3.9,71,2,793,0)="""RTN"",""LRBEBA21"",68,0)"
^XMB(3.9,71,2,794,0)=" . . . S LRBEAR(LRBEDFN,""LRBEDGX"",LRI,LRBETST)=LRBESTG"
^XMB(3.9,71,2,795,0)="""RTN"",""LRBEBA21"",69,0)"
^XMB(3.9,71,2,796,0)=" ;"
^XMB(3.9,71,2,797,0)="""RTN"",""LRBEBA21"",70,0)"
^XMB(3.9,71,2,798,0)=" Q:$G(LRY)="""""
^XMB(3.9,71,2,799,0)="""RTN"",""LRBEBA21"",71,0)"
^XMB(3.9,71,2,800,0)=" ;"
^XMB(3.9,71,2,801,0)="""RTN"",""LRBEBA21"",72,0)"
^XMB(3.9,71,2,802,0)=" ;if PCE rollup, then 'unbundled' in SOP2^LRBEBA2"
^XMB(3.9,71,2,803,0)="""RTN"",""LRBEBA21"",73,0)"
^XMB(3.9,71,2,804,0)=" I $G(LRBEROLL) D  Q"
^XMB(3.9,71,2,805,0)="""RTN"",""LRBEBA21"",74,0)"
^XMB(3.9,71,2,806,0)=" . K LRBECPT(LRBETST)"
^XMB(3.9,71,2,807,0)="""RTN"",""LRBEBA21"",75,0)"
^XMB(3.9,71,2,808,0)=" . ;clear 'pending panel' xref"
^XMB(3.9,71,2,809,0)="""RTN"",""LRBEBA21"",76,0)"
^XMB(3.9,71,2,810,0)=" . S LRFDA(1,69.03,LRY,22.1)=0"
^XMB(3.9,71,2,811,0)="""RTN"",""LRBEBA21"",77,0)"
^XMB(3.9,71,2,812,0)=" . D FILE^DIE(""KS"",""LRFDA(1)"",""ERR"")"
^XMB(3.9,71,2,813,0)="""RTN"",""LRBEBA21"",78,0)"
^XMB(3.9,71,2,814,0)=" ;"
^XMB(3.9,71,2,815,0)="""RTN"",""LRBEBA21"",79,0)"
^XMB(3.9,71,2,816,0)=" ;if no required tests on panel and panel CPT exists, at least one resulted atomic,"
^XMB(3.9,71,2,817,0)="""RTN"",""LRBEBA21"",80,0)"
^XMB(3.9,71,2,818,0)=" ;then mark panel as processed; retain LRBECPT array for BAWRK^LRBEBA;"
^XMB(3.9,71,2,819,0)="""RTN"",""LRBEBA21"",81,0)"
^XMB(3.9,71,2,820,0)=" ;set return to ""1"" to avoid 'unbundled' processing in SOP2^LRBEBA2"
^XMB(3.9,71,2,821,0)="""RTN"",""LRBEBA21"",82,0)"
^XMB(3.9,71,2,822,0)=" I $O(LRBECPT(LRBETST,0)),LRNOREQ D  Q"
^XMB(3.9,71,2,823,0)="""RTN"",""LRBEBA21"",83,0)"
^XMB(3.9,71,2,824,0)=" . S LRBE21=1"
^XMB(3.9,71,2,825,0)="""RTN"",""LRBEBA21"",84,0)"
^XMB(3.9,71,2,826,0)=" . D LRSB"
^XMB(3.9,71,2,827,0)="""RTN"",""LRBEBA21"",85,0)"
^XMB(3.9,71,2,828,0)=" . S LRFDA(1,69.03,LRY,11)=1"
^XMB(3.9,71,2,829,0)="""RTN"",""LRBEBA21"",86,0)"
^XMB(3.9,71,2,830,0)=" . ;clear 'pending panel' xref"
^XMB(3.9,71,2,831,0)="""RTN"",""LRBEBA21"",87,0)"
^XMB(3.9,71,2,832,0)=" . S LRFDA(1,69.03,LRY,22.1)=0"
^XMB(3.9,71,2,833,0)="""RTN"",""LRBEBA21"",88,0)"
^XMB(3.9,71,2,834,0)=" . D FILE^DIE(""KS"",""LRFDA(1)"",""ERR"")"
^XMB(3.9,71,2,835,0)="""RTN"",""LRBEBA21"",89,0)"
^XMB(3.9,71,2,836,0)=" ;"
^XMB(3.9,71,2,837,0)="""RTN"",""LRBEBA21"",90,0)"
^XMB(3.9,71,2,838,0)=" ;if no required tests on panel and panel has no CPT or inactive CPT,"
^XMB(3.9,71,2,839,0)="""RTN"",""LRBEBA21"",91,0)"
^XMB(3.9,71,2,840,0)=" ;then return is ""0"" for 'unbundled' processing in SOP2^LRBEBA2"
^XMB(3.9,71,2,841,0)="""RTN"",""LRBEBA21"",92,0)"
^XMB(3.9,71,2,842,0)=" I '$O(LRBECPT(LRBETST,0)),LRNOREQ Q"
^XMB(3.9,71,2,843,0)="""RTN"",""LRBEBA21"",93,0)"
^XMB(3.9,71,2,844,0)=" ;"
^XMB(3.9,71,2,845,0)="""RTN"",""LRBEBA21"",94,0)"
^XMB(3.9,71,2,846,0)=" ;if resending (from WORK^LRBEBA4) and panel CPT determined,"
^XMB(3.9,71,2,847,0)="""RTN"",""LRBEBA21"",95,0)"
^XMB(3.9,71,2,848,0)=" ;then return ""1"" to avoid 'unbundled' processing in SOP2^LRBEBA2"
^XMB(3.9,71,2,849,0)="""RTN"",""LRBEBA21"",96,0)"
^XMB(3.9,71,2,850,0)=" I $G(LRBERES)&LRNOP&('LRPEND)&($O(LRBECPT(LRBETST,0))) S LRBE21=1 Q"
^XMB(3.9,71,2,851,0)="""RTN"",""LRBEBA21"",97,0)"
^XMB(3.9,71,2,852,0)=" ;"
^XMB(3.9,71,2,853,0)="""RTN"",""LRBEBA21"",98,0)"
^XMB(3.9,71,2,854,0)=" ;if required atomic tests not performed, previously sent, or cancelled,"
^XMB(3.9,71,2,855,0)="""RTN"",""LRBEBA21"",99,0)"
^XMB(3.9,71,2,856,0)=" ;then return is ""0"" for 'unbundled' processing in SOP2^LRBEBA2"
^XMB(3.9,71,2,857,0)="""RTN"",""LRBEBA21"",100,0)"
^XMB(3.9,71,2,858,0)=" I (LRNP!LRNOP!LRCANC) D  Q"
^XMB(3.9,71,2,859,0)="""RTN"",""LRBEBA21"",101,0)"
^XMB(3.9,71,2,860,0)=" . K LRBECPT(LRBETST)"
^XMB(3.9,71,2,861,0)="""RTN"",""LRBEBA21"",102,0)"
^XMB(3.9,71,2,862,0)=" . ;clear 'pending panel' xref"
^XMB(3.9,71,2,863,0)="""RTN"",""LRBEBA21"",103,0)"
^XMB(3.9,71,2,864,0)=" . S LRFDA(1,69.03,LRY,22.1)=0"
^XMB(3.9,71,2,865,0)="""RTN"",""LRBEBA21"",104,0)"
^XMB(3.9,71,2,866,0)=" . D FILE^DIE(""KS"",""LRFDA(1)"",""ERR"")"
^XMB(3.9,71,2,867,0)="""RTN"",""LRBEBA21"",105,0)"
^XMB(3.9,71,2,868,0)=" ;"
^XMB(3.9,71,2,869,0)="""RTN"",""LRBEBA21"",106,0)"
^XMB(3.9,71,2,870,0)=" ;if panel has CPT and no required atomic test still pending,"
^XMB(3.9,71,2,871,0)="""RTN"",""LRBEBA21"",107,0)"
^XMB(3.9,71,2,872,0)=" ;then mark panel as processed; retain LRBECPT array for BAWRK^LRBEBA;"
^XMB(3.9,71,2,873,0)="""RTN"",""LRBEBA21"",108,0)"
^XMB(3.9,71,2,874,0)=" ;set return to ""1"" to avoid 'unbundled' processing in SOP2^LRBEBA2"
^XMB(3.9,71,2,875,0)="""RTN"",""LRBEBA21"",109,0)"
^XMB(3.9,71,2,876,0)=" I $O(LRBECPT(LRBETST,0)),'LRPEND D  Q"
^XMB(3.9,71,2,877,0)="""RTN"",""LRBEBA21"",110,0)"
^XMB(3.9,71,2,878,0)=" . S LRBE21=1"
^XMB(3.9,71,2,879,0)="""RTN"",""LRBEBA21"",111,0)"
^XMB(3.9,71,2,880,0)=" . D LRSB"
^XMB(3.9,71,2,881,0)="""RTN"",""LRBEBA21"",112,0)"
^XMB(3.9,71,2,882,0)=" . S LRFDA(1,69.03,LRY,11)=1"
^XMB(3.9,71,2,883,0)="""RTN"",""LRBEBA21"",113,0)"
^XMB(3.9,71,2,884,0)=" . ;clear 'pending panel' xref"
^XMB(3.9,71,2,885,0)="""RTN"",""LRBEBA21"",114,0)"
^XMB(3.9,71,2,886,0)=" . S LRFDA(1,69.03,LRY,22.1)=0"
^XMB(3.9,71,2,887,0)="""RTN"",""LRBEBA21"",115,0)"
^XMB(3.9,71,2,888,0)=" . D FILE^DIE(""KS"",""LRFDA(1)"",""ERR"")"
^XMB(3.9,71,2,889,0)="""RTN"",""LRBEBA21"",116,0)"
^XMB(3.9,71,2,890,0)=" ;"
^XMB(3.9,71,2,891,0)="""RTN"",""LRBEBA21"",117,0)"
^XMB(3.9,71,2,892,0)=" ;if panel has no CPT or inactive CPT, but required atomic test still pending,"
^XMB(3.9,71,2,893,0)="""RTN"",""LRBEBA21"",118,0)"
^XMB(3.9,71,2,894,0)=" ;then set return to ""1"" to avoid 'unbundled' processing in SOP2^LRBEBA2"
^XMB(3.9,71,2,895,0)="""RTN"",""LRBEBA21"",119,0)"
^XMB(3.9,71,2,896,0)=" I '$O(LRBECPT(LRBETST,0)),LRPEND D  Q"
^XMB(3.9,71,2,897,0)="""RTN"",""LRBEBA21"",120,0)"
^XMB(3.9,71,2,898,0)=" . S LRBE21=1"
^XMB(3.9,71,2,899,0)="""RTN"",""LRBEBA21"",121,0)"
^XMB(3.9,71,2,900,0)=" . ;set 'pending panel' xref"
^XMB(3.9,71,2,901,0)="""RTN"",""LRBEBA21"",122,0)"
^XMB(3.9,71,2,902,0)=" . S LRFDA(1,69.03,LRY,22.1)=1"
^XMB(3.9,71,2,903,0)="""RTN"",""LRBEBA21"",123,0)"
^XMB(3.9,71,2,904,0)=" . D FILE^DIE(""KS"",""LRFDA(1)"",""ERR"")"
^XMB(3.9,71,2,905,0)="""RTN"",""LRBEBA21"",124,0)"
^XMB(3.9,71,2,906,0)=" ;"
^XMB(3.9,71,2,907,0)="""RTN"",""LRBEBA21"",125,0)"
^XMB(3.9,71,2,908,0)=" ;if panel has CPT, but required atomic test still pending,"
^XMB(3.9,71,2,909,0)="""RTN"",""LRBEBA21"",126,0)"
^XMB(3.9,71,2,910,0)=" ;then kill cpt to avoid transmission to PCE,"
^XMB(3.9,71,2,911,0)="""RTN"",""LRBEBA21"",127,0)"
^XMB(3.9,71,2,912,0)=" ;set return to ""1"" to avoid 'unbundled' processing in SOP2^LRBEBA2"
^XMB(3.9,71,2,913,0)="""RTN"",""LRBEBA21"",128,0)"
^XMB(3.9,71,2,914,0)=" I $O(LRBECPT(LRBETST,0)),LRPEND D"
^XMB(3.9,71,2,915,0)="""RTN"",""LRBEBA21"",129,0)"
^XMB(3.9,71,2,916,0)=" . S LRBE21=1"
^XMB(3.9,71,2,917,0)="""RTN"",""LRBEBA21"",130,0)"
^XMB(3.9,71,2,918,0)=" . S LRI=$O(LRBECPT(LRBETST,0)) K LRBEAR(LRBEDFN,""LRBEDGX"",LRI,LRBETST)"
^XMB(3.9,71,2,919,0)="""RTN"",""LRBEBA21"",131,0)"
^XMB(3.9,71,2,920,0)=" . K LRBECPT(LRBETST)"
^XMB(3.9,71,2,921,0)="""RTN"",""LRBEBA21"",132,0)"
^XMB(3.9,71,2,922,0)=" . ;set 'pending panel' xref"
^XMB(3.9,71,2,923,0)="""RTN"",""LRBEBA21"",133,0)"
^XMB(3.9,71,2,924,0)=" . S LRFDA(1,69.03,LRY,22.1)=1"
^XMB(3.9,71,2,925,0)="""RTN"",""LRBEBA21"",134,0)"
^XMB(3.9,71,2,926,0)=" . D FILE^DIE(""KS"",""LRFDA(1)"",""ERR"")"
^XMB(3.9,71,2,927,0)="""RTN"",""LRBEBA21"",135,0)"
^XMB(3.9,71,2,928,0)=" ;"
^XMB(3.9,71,2,929,0)="""RTN"",""LRBEBA21"",136,0)"
^XMB(3.9,71,2,930,0)=" Q"
^XMB(3.9,71,2,931,0)="""RTN"",""LRBEBA21"",137,0)"
^XMB(3.9,71,2,932,0)=" ;"
^XMB(3.9,71,2,933,0)="""RTN"",""LRBEBA21"",138,0)"
^XMB(3.9,71,2,934,0)="LRSB ;Set LRBESB(TEST) 13th piece to 1, counted as part of panel."
^XMB(3.9,71,2,935,0)="""RTN"",""LRBEBA21"",139,0)"
^XMB(3.9,71,2,936,0)=" ;Set 13th piece of LRBESB(X) to prevent double counting"
^XMB(3.9,71,2,937,0)="""RTN"",""LRBEBA21"",140,0)"
^XMB(3.9,71,2,938,0)=" N LRSBX"
^XMB(3.9,71,2,939,0)="""RTN"",""LRBEBA21"",141,0)"
^XMB(3.9,71,2,940,0)=" S LRSBX=0 F  S LRSBX=$O(LRBEAR1(LRBETST,LRSBX)) Q:LRSBX<1  D"
^XMB(3.9,71,2,941,0)="""RTN"",""LRBEBA21"",142,0)"
^XMB(3.9,71,2,942,0)=" . I $D(LRBESB(LRSBX))#2 S $P(LRBESB(LRSBX),U,13)=1"
^XMB(3.9,71,2,943,0)="""RTN"",""LRBEBA21"",143,0)"
^XMB(3.9,71,2,944,0)=" . I $G(LRIDT),$D(^LR(LRDFN,LRSS,LRIDT,LRSBX)) S $P(^(LRSBX),U,13)=1"
^XMB(3.9,71,2,945,0)="""RTN"",""LRBEBA21"",144,0)"
^XMB(3.9,71,2,946,0)=" Q"
^XMB(3.9,71,2,947,0)="""RTN"",""LRBEBA21"",145,0)"
^XMB(3.9,71,2,948,0)=" ;"
^XMB(3.9,71,2,949,0)="""RTN"",""LRBEBA21"",146,0)"
^XMB(3.9,71,2,950,0)="GDGX(LRBETST,LRBEDN,LRBEAR,LRBEAR1,LRBEDGX) ; Set diagnosis LRBEDGX"
^XMB(3.9,71,2,951,0)="""RTN"",""LRBEBA21"",147,0)"
^XMB(3.9,71,2,952,0)=" N LRBEPOV,LRBEPTDT,LRBETNUM"
^XMB(3.9,71,2,953,0)="""RTN"",""LRBEBA21"",148,0)"
^XMB(3.9,71,2,954,0)=" S (LRBEPOV,LRBETNUM)=""""  F  S LRBEPOV=$O(LRBEAR1(LRBETST,LRBEDN,LRBEPOV)) Q:'LRBEPOV  D"
^XMB(3.9,71,2,955,0)="""RTN"",""LRBEBA21"",149,0)"
^XMB(3.9,71,2,956,0)=" . S LRBEPTDT=$G(LRBEAR1(LRBETST,LRBEDN,LRBEPOV))"
^XMB(3.9,71,2,957,0)="""RTN"",""LRBEBA21"",150,0)"
^XMB(3.9,71,2,958,0)=" . S LRBETNUM=$G(LRBETNUM)+1,LRBEDGX(LRBETST,LRBETNUM)=$P(LRBEPTDT,U,1)"
^XMB(3.9,71,2,959,0)="""RTN"",""LRBEBA21"",151,0)"
^XMB(3.9,71,2,960,0)="  Q:$D(LRBEDGX(LRBETST,1))"
^XMB(3.9,71,2,961,0)="""RTN"",""LRBEBA21"",152,0)"
^XMB(3.9,71,2,962,0)=" N DGX S DGX=0"
^XMB(3.9,71,2,963,0)="""RTN"",""LRBEBA21"",153,0)"
^XMB(3.9,71,2,964,0)=" F  S DGX=$O(LRBEAR(LRBEDFN,""LRBEDGX"",LRSAMP,LRSPEC,LRBETST,DGX)) Q:DGX<1  D"
^XMB(3.9,71,2,965,0)="""RTN"",""LRBEBA21"",154,0)"
^XMB(3.9,71,2,966,0)=" . S LRBETNUM=$G(LRBETNUM)+1,LRBEDGX(LRBETST,LRBETNUM)=DGX"
^XMB(3.9,71,2,967,0)="""RTN"",""LRBEBA21"",155,0)"
^XMB(3.9,71,2,968,0)=" Q"
^XMB(3.9,71,2,969,0)="""RTN"",""LRBEBA21"",156,0)"
^XMB(3.9,71,2,970,0)="GOREF(LRODT,LRSN,LRBEDN,LRBEAR1,LRORREFN) ;"
^XMB(3.9,71,2,971,0)="""RTN"",""LRBEBA21"",157,0)"
^XMB(3.9,71,2,972,0)=" ;Get the OERR INTERNAL FILE #"
^XMB(3.9,71,2,973,0)="""RTN"",""LRBEBA21"",158,0)"
^XMB(3.9,71,2,974,0)=" N LRX1,LRBEIEN1,LRBETST"
^XMB(3.9,71,2,975,0)="""RTN"",""LRBEBA21"",159,0)"
^XMB(3.9,71,2,976,0)=" S LRBETST="""""
^XMB(3.9,71,2,977,0)="""RTN"",""LRBEBA21"",160,0)"
^XMB(3.9,71,2,978,0)=" F  S LRBETST=$O(LRBEAR1(LRBETST)) Q:LRBETST=""""  D"
^XMB(3.9,71,2,979,0)="""RTN"",""LRBEBA21"",161,0)"
^XMB(3.9,71,2,980,0)=" .Q:'$D(LRBEAR1(LRBETST,LRBEDN))"
^XMB(3.9,71,2,981,0)="""RTN"",""LRBEBA21"",162,0)"
^XMB(3.9,71,2,982,0)=" .S LRX1=$O(^LRO(69,LRODT,1,LRSN,2,""B"",LRBETST,0))"
^XMB(3.9,71,2,983,0)="""RTN"",""LRBEBA21"",163,0)"
^XMB(3.9,71,2,984,0)=" .I $G(LRX1) D  Q"
^XMB(3.9,71,2,985,0)="""RTN"",""LRBEBA21"",164,0)"
^XMB(3.9,71,2,986,0)=" ..S LRBEIEN1=LRX1_"",""_LRSN_"",""_LRODT_"","""
^XMB(3.9,71,2,987,0)="""RTN"",""LRBEBA21"",165,0)"
^XMB(3.9,71,2,988,0)=" ..S LRORREFN=$$GET1^DIQ(69.03,LRBEIEN1,6,""I"")"
^XMB(3.9,71,2,989,0)="""RTN"",""LRBEBA21"",166,0)"
^XMB(3.9,71,2,990,0)=" .S LRORREFN="""""
^XMB(3.9,71,2,991,0)="""RTN"",""LRBEBA21"",167,0)"
^XMB(3.9,71,2,992,0)=" Q"
^XMB(3.9,71,2,993,0)="""RTN"",""LRBEBA21"",168,0)"
^XMB(3.9,71,2,994,0)=" ;"
^XMB(3.9,71,2,995,0)="""RTN"",""LRBEBA21"",169,0)"
^XMB(3.9,71,2,996,0)="GMOD(LRBEAA,LRBECPT) ; Get external service modifier"
^XMB(3.9,71,2,997,0)="""RTN"",""LRBEBA21"",170,0)"
^XMB(3.9,71,2,998,0)=" ;input LRBECPT - ien to #81, not required"
^XMB(3.9,71,2,999,0)="""RTN"",""LRBEBA21"",171,0)"
^XMB(3.9,71,2,1000,0)=" N DIC,LRBEESA,LRBEMOD,MOD,STAT,X,Y"
^XMB(3.9,71,2,1001,0)="""RTN"",""LRBEBA21"",172,0)"
^XMB(3.9,71,2,1002,0)=" S LRBEESA=$$GET1^DIQ(68,LRBEAA_"","",12,""I""),LRBEMOD="""""
^XMB(3.9,71,2,1003,0)="""RTN"",""LRBEBA21"",173,0)"
^XMB(3.9,71,2,1004,0)=" I LRBEESA D"
^XMB(3.9,71,2,1005,0)="""RTN"",""LRBEBA21"",174,0)"
^XMB(3.9,71,2,1006,0)=" .S X=90,DIC=""^DIC(81.3,"",DIC(0)=""Z"" D ^DIC"
^XMB(3.9,71,2,1007,0)="""RTN"",""LRBEBA21"",175,0)"
^XMB(3.9,71,2,1008,0)=" .I +Y<0 K DIC Q"
^XMB(3.9,71,2,1009,0)="""RTN"",""LRBEBA21"",176,0)"
^XMB(3.9,71,2,1010,0)=" .S LRBEMOD=$P(Y,U,2),MOD=+Y"
^XMB(3.9,71,2,1011,0)="""RTN"",""LRBEBA21"",177,0)"
^XMB(3.9,71,2,1012,0)=" .;if cpt/hcpcs provided, check if modifier is valid to use"
^XMB(3.9,71,2,1013,0)="""RTN"",""LRBEBA21"",178,0)"
^XMB(3.9,71,2,1014,0)=" .I $G(LRBECPT) D"
^XMB(3.9,71,2,1015,0)="""RTN"",""LRBEBA21"",179,0)"
^XMB(3.9,71,2,1016,0)=" ..S STAT=$$MODP^ICPTMOD(LRBECPT,MOD,""I"",DT)"
^XMB(3.9,71,2,1017,0)="""RTN"",""LRBEBA21"",180,0)"
^XMB(3.9,71,2,1018,0)=" ..I +STAT=0 S LRBEMOD="""""
^XMB(3.9,71,2,1019,0)="""RTN"",""LRBEBA21"",181,0)"
^XMB(3.9,71,2,1020,0)=" Q LRBEMOD"
^XMB(3.9,71,2,1021,0)="""RTN"",""LRBEBA3"")"
^XMB(3.9,71,2,1022,0)="0^3^B62466006^B24961895"
^XMB(3.9,71,2,1023,0)="""RTN"",""LRBEBA3"",1,0)"
^XMB(3.9,71,2,1024,0)="LRBEBA3 ;DALOI/JAH/FHS - ORDERING AND RESULTING OUTPATIENT ;8/10/04"
^XMB(3.9,71,2,1025,0)="""RTN"",""LRBEBA3"",2,0)"
^XMB(3.9,71,2,1026,0)=" ;;5.2;LAB SERVICE;**291,359**;Sep 27, 1994"
^XMB(3.9,71,2,1027,0)="""RTN"",""LRBEBA3"",3,0)"
^XMB(3.9,71,2,1028,0)=" ;"
^XMB(3.9,71,2,1029,0)="""RTN"",""LRBEBA3"",4,0)"
^XMB(3.9,71,2,1030,0)="BLDAR(LRBEDFN,LRODT,LRSN,LRBEAR,LRBEY,LRBETEST,LRBEPAN,LRBEDEL) ; Build LRBEAR array with"
^XMB(3.9,71,2,1031,0)="""RTN"",""LRBEBA3"",5,0)"
^XMB(3.9,71,2,1032,0)=" ; CIDC information"
^XMB(3.9,71,2,1033,0)="""RTN"",""LRBEBA3"",6,0)"
^XMB(3.9,71,2,1034,0)=" N LRBEODT,LRBEIEN,LRBETST,LRBETS,LRJ,N,NX,P,X,XX,REQX,OK"
^XMB(3.9,71,2,1035,0)="""RTN"",""LRBEBA3"",7,0)"
^XMB(3.9,71,2,1036,0)=" S LRBEAR(LRBEDFN,""DSS ID"")=LROOS"
^XMB(3.9,71,2,1037,0)="""RTN"",""LRBEBA3"",8,0)"
^XMB(3.9,71,2,1038,0)=" S LRBEAR(LRBEDFN,""ORDGX"")=""O"""
^XMB(3.9,71,2,1039,0)="""RTN"",""LRBEBA3"",9,0)"
^XMB(3.9,71,2,1040,0)=" S LRBEAR(LRBEDFN,""DOS"")=LRBECDT"
^XMB(3.9,71,2,1041,0)="""RTN"",""LRBEBA3"",10,0)"
^XMB(3.9,71,2,1042,0)=" S LRBEAR(LRBEDFN,""PAT"")=$G(LRBEDFN)"
^XMB(3.9,71,2,1043,0)="""RTN"",""LRBEBA3"",11,0)"
^XMB(3.9,71,2,1044,0)=" S LRBEAR(LRBEDFN,""POS"")=LROOS"
^XMB(3.9,71,2,1045,0)="""RTN"",""LRBEBA3"",12,0)"
^XMB(3.9,71,2,1046,0)=" S LRBEAR(LRBEDFN,""DEL"")=LRBEDEL"
^XMB(3.9,71,2,1047,0)="""RTN"",""LRBEBA3"",13,0)"
^XMB(3.9,71,2,1048,0)=" S LRBEAR(LRBEDFN,""USR"")=DUZ"
^XMB(3.9,71,2,1049,0)="""RTN"",""LRBEBA3"",14,0)"
^XMB(3.9,71,2,1050,0)=" S LRBEIEN=LRSN_"",""_LRODT_"","""
^XMB(3.9,71,2,1051,0)="""RTN"",""LRBEBA3"",15,0)"
^XMB(3.9,71,2,1052,0)=" S LRBEAR(LRBEDFN,""ORDPRO"")=$$GET1^DIQ(69.01,LRBEIEN,7,""I"")"
^XMB(3.9,71,2,1053,0)="""RTN"",""LRBEBA3"",16,0)"
^XMB(3.9,71,2,1054,0)=" S:'+$G(LRSAMP) LRSAMP=$$GET1^DIQ(69.01,LRBEIEN,3,""I"")"
^XMB(3.9,71,2,1055,0)="""RTN"",""LRBEBA3"",17,0)"
^XMB(3.9,71,2,1056,0)=" ;reset LRBETEST, LRBEY for panel tests"
^XMB(3.9,71,2,1057,0)="""RTN"",""LRBEBA3"",18,0)"
^XMB(3.9,71,2,1058,0)=" S LRBETS="""" F  S LRBETS=$O(^LRO(69,LRODT,1,LRSN,2,""B"",LRBETS)) Q:'LRBETS  D"
^XMB(3.9,71,2,1059,0)="""RTN"",""LRBEBA3"",19,0)"
^XMB(3.9,71,2,1060,0)=" .S LRJ=$O(^LRO(69,LRODT,1,LRSN,2,""B"",LRBETS,0))"
^XMB(3.9,71,2,1061,0)="""RTN"",""LRBEBA3"",20,0)"
^XMB(3.9,71,2,1062,0)=" .Q:($P(^LRO(69,LRODT,1,LRSN,2,LRJ,0),U,9)=""CA"")"
^XMB(3.9,71,2,1063,0)="""RTN"",""LRBEBA3"",21,0)"
^XMB(3.9,71,2,1064,0)=" .I $G(ORIEN),$P(^LRO(69,LRODT,1,LRSN,2,LRJ,0),U,7)'=ORIEN Q"
^XMB(3.9,71,2,1065,0)="""RTN"",""LRBEBA3"",22,0)"
^XMB(3.9,71,2,1066,0)=" .I ($G(^LAB(60,LRBETS,12))),($D(^LAB(60,LRBETS,0))#2),'$L($P($G(^LAB(60,LRBETS,0)),U,5)) S LRBEPAN(LRBETS)="""""
^XMB(3.9,71,2,1067,0)="""RTN"",""LRBEBA3"",23,0)"
^XMB(3.9,71,2,1068,0)=" .S OK=0,N=0 F  S N=$O(LRBETEST(N)) Q:'N  I LRBETS=+LRBETEST(N) S OK=1"
^XMB(3.9,71,2,1069,0)="""RTN"",""LRBEBA3"",24,0)"
^XMB(3.9,71,2,1070,0)=" .I 'OK S N=$O(LRBETEST(""""),-1),N=N+1,LRBETEST(N)=LRBETS_U_^LAB(60,LRBETS,0),LRBETEST(N,""P"")=LRBETS_U_$$NLT^LRVER1(LRBETS)"
^XMB(3.9,71,2,1071,0)="""RTN"",""LRBEBA3"",25,0)"
^XMB(3.9,71,2,1072,0)=" .S NX=0 F  S NX=$O(^LAB(60,LRBETS,2,NX)) Q:'NX  D"
^XMB(3.9,71,2,1073,0)="""RTN"",""LRBEBA3"",26,0)"
^XMB(3.9,71,2,1074,0)=" ..S X=+^LAB(60,LRBETS,2,NX,0)"
^XMB(3.9,71,2,1075,0)="""RTN"",""LRBEBA3"",27,0)"
^XMB(3.9,71,2,1076,0)=" ..S XX=$P($P(^LAB(60,X,0),U,5),"";"",2),REQX=$P(^(0),U,17)"
^XMB(3.9,71,2,1077,0)="""RTN"",""LRBEBA3"",28,0)"
^XMB(3.9,71,2,1078,0)=" ..I XX,$D(LRBESB(XX)) S P(LRBETS,XX,X)="""""
^XMB(3.9,71,2,1079,0)="""RTN"",""LRBEBA3"",29,0)"
^XMB(3.9,71,2,1080,0)=" ..I XX,$D(LRBEPAN(LRBETS)),REQX S P(LRBETS,XX,X)=""R"""
^XMB(3.9,71,2,1081,0)="""RTN"",""LRBEBA3"",30,0)"
^XMB(3.9,71,2,1082,0)=" ..;if XX null, then possibly another panel"
^XMB(3.9,71,2,1083,0)="""RTN"",""LRBEBA3"",31,0)"
^XMB(3.9,71,2,1084,0)=" ..I 'XX D PARRAY(X,LRBETS,.P)"
^XMB(3.9,71,2,1085,0)="""RTN"",""LRBEBA3"",32,0)"
^XMB(3.9,71,2,1086,0)=" .;reset LRBEY array;"
^XMB(3.9,71,2,1087,0)="""RTN"",""LRBEBA3"",33,0)"
^XMB(3.9,71,2,1088,0)=" .;1st subscript is panel test; 2nd subscript is data identifier of atomic test"
^XMB(3.9,71,2,1089,0)="""RTN"",""LRBEBA3"",34,0)"
^XMB(3.9,71,2,1090,0)=" .I $D(P(LRBETS)) D"
^XMB(3.9,71,2,1091,0)="""RTN"",""LRBEBA3"",35,0)"
^XMB(3.9,71,2,1092,0)=" ..;retain original LRBEY array node if atomic test exists as a separate accession"
^XMB(3.9,71,2,1093,0)="""RTN"",""LRBEBA3"",36,0)"
^XMB(3.9,71,2,1094,0)=" ..I '$D(^LRO(68,$G(LRAA),1,$G(LRAD),1,$G(LRAN),4,LRBETS,0)) K LRBEY(LRBETS)"
^XMB(3.9,71,2,1095,0)="""RTN"",""LRBEBA3"",37,0)"
^XMB(3.9,71,2,1096,0)=" ..S XX=0 F  S XX=$O(P(LRBETS,XX)) Q:'XX  D"
^XMB(3.9,71,2,1097,0)="""RTN"",""LRBEBA3"",38,0)"
^XMB(3.9,71,2,1098,0)=" ...S LRBEY(LRBETS,XX)="""""
^XMB(3.9,71,2,1099,0)="""RTN"",""LRBEBA3"",39,0)"
^XMB(3.9,71,2,1100,0)=" ...S X=$O(P(LRBETS,XX,0))"
^XMB(3.9,71,2,1101,0)="""RTN"",""LRBEBA3"",40,0)"
^XMB(3.9,71,2,1102,0)=" ...I P(LRBETS,XX,X)=""R"" S LRBEY(LRBETS,XX,""R"")=X"
^XMB(3.9,71,2,1103,0)="""RTN"",""LRBEBA3"",41,0)"
^XMB(3.9,71,2,1104,0)=" ;continue"
^XMB(3.9,71,2,1105,0)="""RTN"",""LRBEBA3"",42,0)"
^XMB(3.9,71,2,1106,0)=" S LRBETS="""" F  S LRBETS=$O(LRBETEST(LRBETS)) Q:LRBETS=""""  D"
^XMB(3.9,71,2,1107,0)="""RTN"",""LRBEBA3"",43,0)"
^XMB(3.9,71,2,1108,0)=" .S LRBETST=$P(LRBETEST(LRBETS),U,1)"
^XMB(3.9,71,2,1109,0)="""RTN"",""LRBEBA3"",44,0)"
^XMB(3.9,71,2,1110,0)=" .D BLDAR^LRBEBA2(LRBEDFN,LRODT,LRSN,LRBETS,LRSAMP,LRSPEC,LRBETST,.LRBEAR)"
^XMB(3.9,71,2,1111,0)="""RTN"",""LRBEBA3"",45,0)"
^XMB(3.9,71,2,1112,0)=" Q"
^XMB(3.9,71,2,1113,0)="""RTN"",""LRBEBA3"",46,0)"
^XMB(3.9,71,2,1114,0)=" ;"
^XMB(3.9,71,2,1115,0)="""RTN"",""LRBEBA3"",47,0)"
^XMB(3.9,71,2,1116,0)="PARRAY(XTEST,PTEST,P) ;"
^XMB(3.9,71,2,1117,0)="""RTN"",""LRBEBA3"",48,0)"
^XMB(3.9,71,2,1118,0)=" N NX,X,XX,REQX"
^XMB(3.9,71,2,1119,0)="""RTN"",""LRBEBA3"",49,0)"
^XMB(3.9,71,2,1120,0)=" S NX=0 F  S NX=$O(^LAB(60,XTEST,2,NX)) Q:'NX  D"
^XMB(3.9,71,2,1121,0)="""RTN"",""LRBEBA3"",50,0)"
^XMB(3.9,71,2,1122,0)=" .S X=+^LAB(60,XTEST,2,NX,0)"
^XMB(3.9,71,2,1123,0)="""RTN"",""LRBEBA3"",51,0)"
^XMB(3.9,71,2,1124,0)=" .S XX=$P($P(^LAB(60,X,0),U,5),"";"",2),REQX=$P(^(0),U,17)"
^XMB(3.9,71,2,1125,0)="""RTN"",""LRBEBA3"",52,0)"
^XMB(3.9,71,2,1126,0)=" .I XX,$D(LRBESB(XX)) S P(PTEST,XX,X)="""""
^XMB(3.9,71,2,1127,0)="""RTN"",""LRBEBA3"",53,0)"
^XMB(3.9,71,2,1128,0)=" .I XX,$D(LRBEPAN(PTEST)),REQX S P(PTEST,XX,X)=""R"""
^XMB(3.9,71,2,1129,0)="""RTN"",""LRBEBA3"",54,0)"
^XMB(3.9,71,2,1130,0)=" Q"
^XMB(3.9,71,2,1131,0)="""RTN"",""LRBEBA3"",55,0)"
^XMB(3.9,71,2,1132,0)=" ;"
^XMB(3.9,71,2,1133,0)="""RTN"",""LRBEBA3"",56,0)"
^XMB(3.9,71,2,1134,0)="QRYADD(LRODT,LRSN,LRTS,LRBEDFN,LRBESMP,LRBESPC,LRBETS,LRBEX,LRBEXD) ; Query #69 for"
^XMB(3.9,71,2,1135,0)="""RTN"",""LRBEBA3"",57,0)"
^XMB(3.9,71,2,1136,0)=" ; default LRBEDGX and SC/EI"
^XMB(3.9,71,2,1137,0)="""RTN"",""LRBEBA3"",58,0)"
^XMB(3.9,71,2,1138,0)=" N LRBEA,LRDGX,LRDX,LRDGXD"
^XMB(3.9,71,2,1139,0)="""RTN"",""LRBEBA3"",59,0)"
^XMB(3.9,71,2,1140,0)=" S LRDGX=0"
^XMB(3.9,71,2,1141,0)="""RTN"",""LRBEBA3"",60,0)"
^XMB(3.9,71,2,1142,0)=" F  S LRDGX=$O(^LRO(69,LRODT,1,LRSN,2,LRTS,2,LRDGX)) Q:LRDGX<1  D"
^XMB(3.9,71,2,1143,0)="""RTN"",""LRBEBA3"",61,0)"
^XMB(3.9,71,2,1144,0)=" .S LRDGXD=2"
^XMB(3.9,71,2,1145,0)="""RTN"",""LRBEBA3"",62,0)"
^XMB(3.9,71,2,1146,0)=" .S LRBEPTDT=$G(^LRO(69,LRODT,1,LRSN,2,LRTS,2,LRDGX,0)) Q:'LRBEPTDT"
^XMB(3.9,71,2,1147,0)="""RTN"",""LRBEBA3"",63,0)"
^XMB(3.9,71,2,1148,0)=" .S LRBEA=$P(LRBEPTDT,U,1)_""^^^""_$P(LRBEPTDT,U,4)_U_$P(LRBEPTDT,U,5)"
^XMB(3.9,71,2,1149,0)="""RTN"",""LRBEBA3"",64,0)"
^XMB(3.9,71,2,1150,0)=" .S LRBEA=LRBEA_U_$P(LRBEPTDT,U,2)_U_$P(LRBEPTDT,U,6)_U_$P(LRBEPTDT,U,8)"
^XMB(3.9,71,2,1151,0)="""RTN"",""LRBEBA3"",65,0)"
^XMB(3.9,71,2,1152,0)=" .S LRBEA=LRBEA_U_$P(LRBEPTDT,U,7)_U_$P(LRBEPTDT,U,3)"
^XMB(3.9,71,2,1153,0)="""RTN"",""LRBEBA3"",66,0)"
^XMB(3.9,71,2,1154,0)=" .I $P(LRBEPTDT,U,9)=1 S LRBEA=LRBEA_U_$P(LRBEPTDT,U,9),LRDGXD=1"
^XMB(3.9,71,2,1155,0)="""RTN"",""LRBEBA3"",67,0)"
^XMB(3.9,71,2,1156,0)=" .S LRBEX(LRBEDFN,""LRBEDGX"",LRBESMP,LRBESPC,LRBETS,$P(LRBEA,U))=LRBEA"
^XMB(3.9,71,2,1157,0)="""RTN"",""LRBEBA3"",68,0)"
^XMB(3.9,71,2,1158,0)=" .S LRBEXD(LRBEDFN,""LRBEDGX"",LRBESMP,LRBESPC,LRBETS,LRDGXD,$P(LRBEA,U))=LRBEA"
^XMB(3.9,71,2,1159,0)="""RTN"",""LRBEBA3"",69,0)"
^XMB(3.9,71,2,1160,0)=" Q"
^XMB(3.9,71,2,1161,0)="""RTN"",""LRBEBA3"",70,0)"
^XMB(3.9,71,2,1162,0)=" ;"
^XMB(3.9,71,2,1163,0)="""RTN"",""LRBEBA3"",71,0)"
^XMB(3.9,71,2,1164,0)="ELIG(DFN) ; Display eligibility and disabilities"
^XMB(3.9,71,2,1165,0)="""RTN"",""LRBEBA3"",72,0)"
^XMB(3.9,71,2,1166,0)=" D ELIG^VADPT W !,"" Eligibility: ""_$P(VAEL(1),""^"",2)_$S(+VAEL(3):""    SC%: ""_$P(VAEL(3),""^"",2),1:"""")"
^XMB(3.9,71,2,1167,0)="""RTN"",""LRBEBA3"",73,0)"
^XMB(3.9,71,2,1168,0)=" W !,"" Disabilities: "" F I=0:0 S I=$O(^DPT(DFN,.372,I)) Q:'I  S I1=$S($D(^DPT(DFN,.372,I,0)):^(0),1:"""") D:+I1"
^XMB(3.9,71,2,1169,0)="""RTN"",""LRBEBA3"",74,0)"
^XMB(3.9,71,2,1170,0)=" .S LRDIS=$S($P($G(^DIC(31,+I1,0)),""^"")]""""&($P($G(^(0)),""^"",4)']""""):$P(^(0),""^""),$P($G(^DIC(31,+I1,0)),""^"",4)]"""":$P(^(0),""^"",4),1:""""),LRCNT=$P(I1,""^"",2)"
^XMB(3.9,71,2,1171,0)="""RTN"",""LRBEBA3"",75,0)"
^XMB(3.9,71,2,1172,0)=" .S LRDIS=$E(LRDIS,1,55)"
^XMB(3.9,71,2,1173,0)="""RTN"",""LRBEBA3"",76,0)"
^XMB(3.9,71,2,1174,0)=" .I LRDIS]"""" W ?15,LRDIS_"" - ""_LRCNT_""%(""_$S($P(I1,""^"",3):""SC"",1:""NSC"")_"")"",!"
^XMB(3.9,71,2,1175,0)="""RTN"",""LRBEBA3"",77,0)"
^XMB(3.9,71,2,1176,0)=" K LRDIS,LRCNT,I,I1,VAEL"
^XMB(3.9,71,2,1177,0)="""RTN"",""LRBEBA3"",78,0)"
^XMB(3.9,71,2,1178,0)=" Q"
^XMB(3.9,71,2,1179,0)="""RTN"",""LRBEBA3"",79,0)"
^XMB(3.9,71,2,1180,0)=" ;"
^XMB(3.9,71,2,1181,0)="""RTN"",""LRBEBA3"",80,0)"
^XMB(3.9,71,2,1182,0)="BALROW(LRODT,LRSN,LRTEST) ; CIDC LROW"
^XMB(3.9,71,2,1183,0)="""RTN"",""LRBEBA3"",81,0)"
^XMB(3.9,71,2,1184,0)=" N LRBEA,LRBEB,LRBEAT,LRBET,LRBESN,LRBETS,LRBETST,LRBEQT,LRBEOT,LRBEVAL"
^XMB(3.9,71,2,1185,0)="""RTN"",""LRBEBA3"",82,0)"
^XMB(3.9,71,2,1186,0)=" S LRBEVAL=$D(^XUSEC(""PROVIDER"",DUZ)) Q:'LRBEVAL"
^XMB(3.9,71,2,1187,0)="""RTN"",""LRBEBA3"",83,0)"
^XMB(3.9,71,2,1188,0)=" S LRBEVAL=$$CIDC^IBBAPI(DFN) Q:'LRBEVAL"
^XMB(3.9,71,2,1189,0)="""RTN"",""LRBEBA3"",84,0)"
^XMB(3.9,71,2,1190,0)=" I '$D(DFN) S LRBEDFN=$$GET1^DIQ(63,LRDFN_"","",.03,""I"")"
^XMB(3.9,71,2,1191,0)="""RTN"",""LRBEBA3"",85,0)"
^XMB(3.9,71,2,1192,0)=" S:$G(LRSN)="""" LRSN=1"
^XMB(3.9,71,2,1193,0)="""RTN"",""LRBEBA3"",86,0)"
^XMB(3.9,71,2,1194,0)=" D SLROT^LRBEBA3(.LRXST,.LRTEST,.LRBEOT) S:$G(LRSS)="""" LRSS=""CH"""
^XMB(3.9,71,2,1195,0)="""RTN"",""LRBEBA3"",87,0)"
^XMB(3.9,71,2,1196,0)=" S LRBEAT=1,LRBEY=$$SBA^LRBEBA31(LRDFN,.LRBEX,.LRBEQT,.LRBEOT)"
^XMB(3.9,71,2,1197,0)="""RTN"",""LRBEBA3"",88,0)"
^XMB(3.9,71,2,1198,0)=" Q"
^XMB(3.9,71,2,1199,0)="""RTN"",""LRBEBA3"",89,0)"
^XMB(3.9,71,2,1200,0)=" ;"
^XMB(3.9,71,2,1201,0)="""RTN"",""LRBEBA3"",90,0)"
^XMB(3.9,71,2,1202,0)="AQ1 ; Ask question from LRORD1"
^XMB(3.9,71,2,1203,0)="""RTN"",""LRBEBA3"",91,0)"
^XMB(3.9,71,2,1204,0)=" N LRBEVAL"
^XMB(3.9,71,2,1205,0)="""RTN"",""LRBEBA3"",92,0)"
^XMB(3.9,71,2,1206,0)=" S LRBEVAL=$D(^XUSEC(""PROVIDER"",DUZ)) Q:'LRBEVAL"
^XMB(3.9,71,2,1207,0)="""RTN"",""LRBEBA3"",93,0)"
^XMB(3.9,71,2,1208,0)=" S LRBEVAL=$$CIDC^IBBAPI(DFN) Q:'LRBEVAL"
^XMB(3.9,71,2,1209,0)="""RTN"",""LRBEBA3"",94,0)"
^XMB(3.9,71,2,1210,0)=" K LRBEODT D DT^LRX S LRBEODT=%"
^XMB(3.9,71,2,1211,0)="""RTN"",""LRBEBA3"",95,0)"
^XMB(3.9,71,2,1212,0)=" S:$G(LRSS)="""" LRSS=""CH"""
^XMB(3.9,71,2,1213,0)="""RTN"",""LRBEBA3"",96,0)"
^XMB(3.9,71,2,1214,0)=" S LRBEAT=1,LRBEY=$$SBA^LRBEBA31(LRDFN,.LRBEX,.LRBEQT,.LROT)"
^XMB(3.9,71,2,1215,0)="""RTN"",""LRBEBA3"",97,0)"
^XMB(3.9,71,2,1216,0)=" Q"
^XMB(3.9,71,2,1217,0)="""RTN"",""LRBEBA3"",98,0)"
^XMB(3.9,71,2,1218,0)=" ;"
^XMB(3.9,71,2,1219,0)="""RTN"",""LRBEBA3"",99,0)"
^XMB(3.9,71,2,1220,0)="AQ2 ; from LROW2A"
^XMB(3.9,71,2,1221,0)="""RTN"",""LRBEBA3"",100,0)"
^XMB(3.9,71,2,1222,0)=" N LRBEVAL"
^XMB(3.9,71,2,1223,0)="""RTN"",""LRBEBA3"",101,0)"
^XMB(3.9,71,2,1224,0)=" S LRBEVAL=$$CIDC^IBBAPI(DFN) Q:'LRBEVAL"
^XMB(3.9,71,2,1225,0)="""RTN"",""LRBEBA3"",102,0)"
^XMB(3.9,71,2,1226,0)=" D SACC^LRBEBA2(LRODT,LRSN,LRTN,LRSSP,LRSPEC,$P(LRTEST(LRI),U,1),.LRBEX)"
^XMB(3.9,71,2,1227,0)="""RTN"",""LRBEBA3"",103,0)"
^XMB(3.9,71,2,1228,0)=" Q"
^XMB(3.9,71,2,1229,0)="""RTN"",""LRBEBA3"",104,0)"
^XMB(3.9,71,2,1230,0)=" ;"
^XMB(3.9,71,2,1231,0)="""RTN"",""LRBEBA3"",105,0)"
^XMB(3.9,71,2,1232,0)="SVST(ENUM,ETYP,LRODT,LRSN) ; Set the Encounter # in #69"
^XMB(3.9,71,2,1233,0)="""RTN"",""LRBEBA3"",106,0)"
^XMB(3.9,71,2,1234,0)=" S ^LRO(69,LRODT,1,LRSN,ETYP)=ENUM"
^XMB(3.9,71,2,1235,0)="""RTN"",""LRBEBA3"",107,0)"
^XMB(3.9,71,2,1236,0)=" Q"
^XMB(3.9,71,2,1237,0)="""RTN"",""LRBEBA3"",108,0)"
^XMB(3.9,71,2,1238,0)=" ;"
^XMB(3.9,71,2,1239,0)="""RTN"",""LRBEBA3"",109,0)"
^XMB(3.9,71,2,1240,0)="BALROR(LRORD) ; CIDC LRORD"
^XMB(3.9,71,2,1241,0)="""RTN"",""LRBEBA3"",110,0)"
^XMB(3.9,71,2,1242,0)=" N LRBEA,LRBEAT,LRBEB,LRBET,LRBESN,LRBETS,LRBETST,LRBEQT,LRBEODT"
^XMB(3.9,71,2,1243,0)="""RTN"",""LRBEBA3"",111,0)"
^XMB(3.9,71,2,1244,0)=" N LRBEOT,LRBEVAL,LRBEZ,LRBETN"
^XMB(3.9,71,2,1245,0)="""RTN"",""LRBEBA3"",112,0)"
^XMB(3.9,71,2,1246,0)=" S LRBEVAL=$D(^XUSEC(""PROVIDER"",DUZ)) Q:'LRBEVAL"
^XMB(3.9,71,2,1247,0)="""RTN"",""LRBEBA3"",113,0)"
^XMB(3.9,71,2,1248,0)=" S LRBEVAL=$$CIDC^IBBAPI(DFN) Q:'LRBEVAL"
^XMB(3.9,71,2,1249,0)="""RTN"",""LRBEBA3"",114,0)"
^XMB(3.9,71,2,1250,0)=" I '$D(DFN) S LRBEDFN=$$GET1^DIQ(63,LRDFN_"","",.03,""I"")"
^XMB(3.9,71,2,1251,0)="""RTN"",""LRBEBA3"",115,0)"
^XMB(3.9,71,2,1252,0)=" S LRBEAT=1,LRBEY=$$SBA^LRBEBA31(LRDFN,.LRBEX,.LRBEQT,.LROT)"
^XMB(3.9,71,2,1253,0)="""RTN"",""LRBEBA3"",116,0)"
^XMB(3.9,71,2,1254,0)=" Q"
^XMB(3.9,71,2,1255,0)="""RTN"",""LRBEBA3"",117,0)"
^XMB(3.9,71,2,1256,0)=" ;"
^XMB(3.9,71,2,1257,0)="""RTN"",""LRBEBA3"",118,0)"
^XMB(3.9,71,2,1258,0)="SLROT(LRXST,LRTEST,LRBEOT) ;LROT array"
^XMB(3.9,71,2,1259,0)="""RTN"",""LRBEBA3"",119,0)"
^XMB(3.9,71,2,1260,0)=" N LRBEA,LRBESMP,LRBESPC"
^XMB(3.9,71,2,1261,0)="""RTN"",""LRBEBA3"",120,0)"
^XMB(3.9,71,2,1262,0)=" S LRBESMP="""" F  S LRBESMP=$O(LRXST(LRBESMP)) Q:LRBESMP=""""  D"
^XMB(3.9,71,2,1263,0)="""RTN"",""LRBEBA3"",121,0)"
^XMB(3.9,71,2,1264,0)=" .S LRBEA="""" F  S LRBEA=$O(LRXST(LRBESMP,LRBEA)) Q:LRBEA=""""  D"
^XMB(3.9,71,2,1265,0)="""RTN"",""LRBEBA3"",122,0)"
^XMB(3.9,71,2,1266,0)=" ..S LRBESPC=$P(LRXST(LRBESMP,LRBEA),U,1)"
^XMB(3.9,71,2,1267,0)="""RTN"",""LRBEBA3"",123,0)"
^XMB(3.9,71,2,1268,0)=" ..S LRBEOT(LRBESMP,LRBESPC,LRBEA)=$P(LRTEST(LRBEA),U,1)"
^XMB(3.9,71,2,1269,0)="""RTN"",""LRBEBA3"",124,0)"
^XMB(3.9,71,2,1270,0)=" Q"
^XMB(3.9,71,2,1271,0)="""RTN"",""LRBEBA3"",125,0)"
^XMB(3.9,71,2,1272,0)=" ;"
^XMB(3.9,71,2,1273,0)="""RTN"",""LRBEBA3"",126,0)"
^XMB(3.9,71,2,1274,0)="MICRO1(LRODT,LRSN,LRTST,LRCNT) ;get CIDC data for microbiology"
^XMB(3.9,71,2,1275,0)="""RTN"",""LRBEBA3"",127,0)"
^XMB(3.9,71,2,1276,0)=" ;called from LRCAPPH1"
^XMB(3.9,71,2,1277,0)="""RTN"",""LRBEBA3"",128,0)"
^XMB(3.9,71,2,1278,0)=" N LRBETM"
^XMB(3.9,71,2,1279,0)="""RTN"",""LRBEBA3"",129,0)"
^XMB(3.9,71,2,1280,0)=" N AA,DX,DXCNT,FINAL,GOPRO,GEPRO,MOD,ORD,N,X"
^XMB(3.9,71,2,1281,0)="""RTN"",""LRBEBA3"",130,0)"
^XMB(3.9,71,2,1282,0)=" S FINAL=$$FINAL^LRBEBA3(LRODT,LRSN,LRTST)"
^XMB(3.9,71,2,1283,0)="""RTN"",""LRBEBA3"",131,0)"
^XMB(3.9,71,2,1284,0)=" I $P(FINAL,U)=0 K ^TMP(""LRPXAPI"",$J,""PROCEDURE"",LRCNT) Q"
^XMB(3.9,71,2,1285,0)="""RTN"",""LRBEBA3"",132,0)"
^XMB(3.9,71,2,1286,0)=" ;continue if micro test completed"
^XMB(3.9,71,2,1287,0)="""RTN"",""LRBEBA3"",133,0)"
^XMB(3.9,71,2,1288,0)=" S DXCNT=+$O(^TMP(""LRBEDX"",$J,999),-1)"
^XMB(3.9,71,2,1289,0)="""RTN"",""LRBEBA3"",134,0)"
^XMB(3.9,71,2,1290,0)=" S LRBETM=$P($G(^LRO(69,LRODT,1,LRSN,3)),U) I 'LRBETM S LRBETM=LRODT"
^XMB(3.9,71,2,1291,0)="""RTN"",""LRBEBA3"",135,0)"
^XMB(3.9,71,2,1292,0)=" S LRBETM=$$PCETM^LRBEBAO(LRBETM)"
^XMB(3.9,71,2,1293,0)="""RTN"",""LRBEBA3"",136,0)"
^XMB(3.9,71,2,1294,0)=" S ^TMP(""LRPXAPI"",$J,""PROCEDURE"",LRCNT,""EVENT D/T"")=LRBETM"
^XMB(3.9,71,2,1295,0)="""RTN"",""LRBEBA3"",137,0)"
^XMB(3.9,71,2,1296,0)=" S AA=$P($P(FINAL,"";"",2),U,4)"
^XMB(3.9,71,2,1297,0)="""RTN"",""LRBEBA3"",138,0)"
^XMB(3.9,71,2,1298,0)=" S GOPRO=$$GOPRO^LRBEBA2(LRODT,LRSN)"
^XMB(3.9,71,2,1299,0)="""RTN"",""LRBEBA3"",139,0)"
^XMB(3.9,71,2,1300,0)=" S GEPRO=$$GEPRO^LRBEBA2(AA)"
^XMB(3.9,71,2,1301,0)="""RTN"",""LRBEBA3"",140,0)"
^XMB(3.9,71,2,1302,0)=" S ^TMP(""LRPXAPI"",$J,""PROVIDER"",1,""NAME"")=GOPRO"
^XMB(3.9,71,2,1303,0)="""RTN"",""LRBEBA3"",141,0)"
^XMB(3.9,71,2,1304,0)=" S ^TMP(""LRPXAPI"",$J,""PROVIDER"",1,""PRIMARY"")=1"
^XMB(3.9,71,2,1305,0)="""RTN"",""LRBEBA3"",142,0)"
^XMB(3.9,71,2,1306,0)=" S ^TMP(""LRPXAPI"",$J,""PROCEDURE"",LRCNT,""ORD PROVIDER"")=GOPRO"
^XMB(3.9,71,2,1307,0)="""RTN"",""LRBEBA3"",143,0)"
^XMB(3.9,71,2,1308,0)=" S ^TMP(""LRPXAPI"",$J,""PROCEDURE"",LRCNT,""ENC PROVIDER"")=GEPRO"
^XMB(3.9,71,2,1309,0)="""RTN"",""LRBEBA3"",144,0)"
^XMB(3.9,71,2,1310,0)=" S ORD=$P($P(FINAL,"";"",2),U,7)"
^XMB(3.9,71,2,1311,0)="""RTN"",""LRBEBA3"",145,0)"
^XMB(3.9,71,2,1312,0)=" S ^TMP(""LRPXAPI"",$J,""PROCEDURE"",LRCNT,""ORD REFERENCE"")=ORD"
^XMB(3.9,71,2,1313,0)="""RTN"",""LRBEBA3"",146,0)"
^XMB(3.9,71,2,1314,0)=" S ^TMP(""LRBEDX"",$J,""ID"")=LRODT_U_LRSN"
^XMB(3.9,71,2,1315,0)="""RTN"",""LRBEBA3"",147,0)"
^XMB(3.9,71,2,1316,0)=" S N=0 F  S N=$O(^LRO(69,LRODT,1,LRSN,2,LRTST,2,N)) Q:'N  Q:N>4  D"
^XMB(3.9,71,2,1317,0)="""RTN"",""LRBEBA3"",148,0)"
^XMB(3.9,71,2,1318,0)=" .S X=^LRO(69,LRODT,1,LRSN,2,LRTST,2,N,0)"
^XMB(3.9,71,2,1319,0)="""RTN"",""LRBEBA3"",149,0)"
^XMB(3.9,71,2,1320,0)=" .S DXCNT=DXCNT+1,^TMP(""LRBEDX"",$J,DXCNT)=X"
^XMB(3.9,71,2,1321,0)="""RTN"",""LRBEBA3"",150,0)"
^XMB(3.9,71,2,1322,0)=" .I N=1 S ^TMP(""LRPXAPI"",$J,""PROCEDURE"",LRCNT,""DIAGNOSIS"")=$P(X,U,1)"
^XMB(3.9,71,2,1323,0)="""RTN"",""LRBEBA3"",151,0)"
^XMB(3.9,71,2,1324,0)=" .I N>1 S ^TMP(""LRPXAPI"",$J,""PROCEDURE"",LRCNT,""DIAGNOSIS ""_N)=$P(X,U,1)"
^XMB(3.9,71,2,1325,0)="""RTN"",""LRBEBA3"",152,0)"
^XMB(3.9,71,2,1326,0)=" Q"
^XMB(3.9,71,2,1327,0)="""RTN"",""LRBEBA3"",153,0)"
^XMB(3.9,71,2,1328,0)=" ;"
^XMB(3.9,71,2,1329,0)="""RTN"",""LRBEBA3"",154,0)"
^XMB(3.9,71,2,1330,0)="MICRO2(LRODT,LRSN) ;setup more CIDC data for microbiology"
^XMB(3.9,71,2,1331,0)="""RTN"",""LRBEBA3"",155,0)"
^XMB(3.9,71,2,1332,0)=" ;called from LRCAPPH1"
^XMB(3.9,71,2,1333,0)="""RTN"",""LRBEBA3"",156,0)"
^XMB(3.9,71,2,1334,0)=" N DXCNT,EI,EIX,X"
^XMB(3.9,71,2,1335,0)="""RTN"",""LRBEBA3"",157,0)"
^XMB(3.9,71,2,1336,0)=" S X=$G(^TMP(""LRBEDX"",$J,""ID""))"
^XMB(3.9,71,2,1337,0)="""RTN"",""LRBEBA3"",158,0)"
^XMB(3.9,71,2,1338,0)=" I ($P(X,U)'=LRODT)!($P(X,U,2)'=LRSN) Q"
^XMB(3.9,71,2,1339,0)="""RTN"",""LRBEBA3"",159,0)"
^XMB(3.9,71,2,1340,0)=" S DXCNT=+$O(^TMP(""LRBEDX"",$J,999),-1)"
^XMB(3.9,71,2,1341,0)="""RTN"",""LRBEBA3"",160,0)"
^XMB(3.9,71,2,1342,0)=" Q:'DXCNT"
^XMB(3.9,71,2,1343,0)="""RTN"",""LRBEBA3"",161,0)"
^XMB(3.9,71,2,1344,0)=" S DXCNT=0 F  S DXCNT=$O(^TMP(""LRBEDX"",$J,DXCNT)) Q:'DXCNT  D"
^XMB(3.9,71,2,1345,0)="""RTN"",""LRBEBA3"",162,0)"
^XMB(3.9,71,2,1346,0)=" .S X=^TMP(""LRBEDX"",$J,DXCNT)"
^XMB(3.9,71,2,1347,0)="""RTN"",""LRBEBA3"",163,0)"
^XMB(3.9,71,2,1348,0)=" .S ^TMP(""LRPXAPI"",$J,""DX/PL"",DXCNT,""DIAGNOSIS"")=$P(X,U,1)"
^XMB(3.9,71,2,1349,0)="""RTN"",""LRBEBA3"",164,0)"
^XMB(3.9,71,2,1350,0)=" .I $P(X,U,2)'="""" S ^TMP(""LRPXAPI"",$J,""DX/PL"",DXCNT,""PL SC"")=$P(X,U,2),EIX(""SC"")=$G(EIX(""SC""))+$P(X,U,2)"
^XMB(3.9,71,2,1351,0)="""RTN"",""LRBEBA3"",165,0)"
^XMB(3.9,71,2,1352,0)=" .I $P(X,U,3)'="""" S ^TMP(""LRPXAPI"",$J,""DX/PL"",DXCNT,""PL CV"")=$P(X,U,3),EIX(""CV"")=$G(EIX(""CV""))+$P(X,U,3)"
^XMB(3.9,71,2,1353,0)="""RTN"",""LRBEBA3"",166,0)"
^XMB(3.9,71,2,1354,0)=" .I $P(X,U,4)'="""" S ^TMP(""LRPXAPI"",$J,""DX/PL"",DXCNT,""PL AO"")=$P(X,U,4),EIX(""AO"")=$G(EIX(""AO""))+$P(X,U,4)"
^XMB(3.9,71,2,1355,0)="""RTN"",""LRBEBA3"",167,0)"
^XMB(3.9,71,2,1356,0)=" .I $P(X,U,5)'="""" S ^TMP(""LRPXAPI"",$J,""DX/PL"",DXCNT,""PL IR"")=$P(X,U,5),EIX(""IR"")=$G(EIX(""IR""))+$P(X,U,5)"
^XMB(3.9,71,2,1357,0)="""RTN"",""LRBEBA3"",168,0)"
^XMB(3.9,71,2,1358,0)=" .I $P(X,U,6)'="""" S ^TMP(""LRPXAPI"",$J,""DX/PL"",DXCNT,""PL EC"")=$P(X,U,6),EIX(""EC"")=$G(EIX(""EC""))+$P(X,U,6)"
^XMB(3.9,71,2,1359,0)="""RTN"",""LRBEBA3"",169,0)"
^XMB(3.9,71,2,1360,0)=" .I $P(X,U,7)'="""" S ^TMP(""LRPXAPI"",$J,""DX/PL"",DXCNT,""PL MST"")=$P(X,U,7),EIX(""MST"")=$G(EIX(""MST""))+$P(X,U,7)"
^XMB(3.9,71,2,1361,0)="""RTN"",""LRBEBA3"",170,0)"
^XMB(3.9,71,2,1362,0)=" .I $P(X,U,8)'="""" S ^TMP(""LRPXAPI"",$J,""DX/PL"",DXCNT,""PL HNC"")=$P(X,U,8),EIX(""HNC"")=$G(EIX(""HNC""))+$P(X,U,8)"
^XMB(3.9,71,2,1363,0)="""RTN"",""LRBEBA3"",171,0)"
^XMB(3.9,71,2,1364,0)=" .I $P(X,U,9) S ^TMP(""LRPXAPI"",$J,""DX/PL"",DXCNT,""PRIMARY"")=$P(X,U,9)"
^XMB(3.9,71,2,1365,0)="""RTN"",""LRBEBA3"",172,0)"
^XMB(3.9,71,2,1366,0)=" F EI=""SC"",""CV"",""AO"",""IR"",""EC"",""MST"",""HNC"" D"
^XMB(3.9,71,2,1367,0)="""RTN"",""LRBEBA3"",173,0)"
^XMB(3.9,71,2,1368,0)=" .I $G(EIX(EI))>1 S EIX(EI)=1"
^XMB(3.9,71,2,1369,0)="""RTN"",""LRBEBA3"",174,0)"
^XMB(3.9,71,2,1370,0)=" .I $G(EIX(EI))'="""" S ^TMP(""LRPXAPI"",$J,""ENCOUNTER"",1,EI)=EIX(EI)"
^XMB(3.9,71,2,1371,0)="""RTN"",""LRBEBA3"",175,0)"
^XMB(3.9,71,2,1372,0)=" Q"
^XMB(3.9,71,2,1373,0)="""RTN"",""LRBEBA3"",176,0)"
^XMB(3.9,71,2,1374,0)=" ;"
^XMB(3.9,71,2,1375,0)="""RTN"",""LRBEBA3"",177,0)"
^XMB(3.9,71,2,1376,0)="FINAL(LRODT,LRSN,LRTST) ;is microbiology test complete/final?"
^XMB(3.9,71,2,1377,0)="""RTN"",""LRBEBA3"",178,0)"
^XMB(3.9,71,2,1378,0)=" ;called from MICRO1 only"
^XMB(3.9,71,2,1379,0)="""RTN"",""LRBEBA3"",179,0)"
^XMB(3.9,71,2,1380,0)=" ;returns 1_"";""_<0-node of order>, if test completed"
^XMB(3.9,71,2,1381,0)="""RTN"",""LRBEBA3"",180,0)"
^XMB(3.9,71,2,1382,0)=" ;        otherwise returns 0"
^XMB(3.9,71,2,1383,0)="""RTN"",""LRBEBA3"",181,0)"
^XMB(3.9,71,2,1384,0)=" N AA,AI,AY,NODEO,NODEA,NOKILL,RETURN,TST,TT,X"
^XMB(3.9,71,2,1385,0)="""RTN"",""LRBEBA3"",182,0)"
^XMB(3.9,71,2,1386,0)=" S RETURN=0,NODEA="""""
^XMB(3.9,71,2,1387,0)="""RTN"",""LRBEBA3"",183,0)"
^XMB(3.9,71,2,1388,0)=" S NODEO=$G(^LRO(69,LRODT,1,LRSN,2,LRTST,0))"
^XMB(3.9,71,2,1389,0)="""RTN"",""LRBEBA3"",184,0)"
^XMB(3.9,71,2,1390,0)=" S TST=$P(NODEO,U),AY=$P(NODEO,U,3),AA=$P(NODEO,U,4),AI=$P(NODEO,U,5)"
^XMB(3.9,71,2,1391,0)="""RTN"",""LRBEBA3"",185,0)"
^XMB(3.9,71,2,1392,0)=" I TST,AA,AI,AY S NODEA=$G(^LRO(68,AA,1,AY,1,AI,4,TST,0))"
^XMB(3.9,71,2,1393,0)="""RTN"",""LRBEBA3"",186,0)"
^XMB(3.9,71,2,1394,0)=" ;does complete date exist?"
^XMB(3.9,71,2,1395,0)="""RTN"",""LRBEBA3"",187,0)"
^XMB(3.9,71,2,1396,0)=" I $P(NODEA,U,5) S RETURN=1_"";""_NODEO"
^XMB(3.9,71,2,1397,0)="""RTN"",""LRBEBA3"",188,0)"
^XMB(3.9,71,2,1398,0)=" I RETURN'=0 D"
^XMB(3.9,71,2,1399,0)="""RTN"",""LRBEBA3"",189,0)"
^XMB(3.9,71,2,1400,0)=" .S $P(^LRO(69,LRODT,1,LRSN,2,LRTST,0),U,12)=1"
^XMB(3.9,71,2,1401,0)="""RTN"",""LRBEBA3"",190,0)"
^XMB(3.9,71,2,1402,0)=" .S NOKILL=0"
^XMB(3.9,71,2,1403,0)="""RTN"",""LRBEBA3"",191,0)"
^XMB(3.9,71,2,1404,0)=" .S TT=0 F  S TT=$O(^LRO(69,LRODT,1,LRSN,2,TT)) Q:'TT  D"
^XMB(3.9,71,2,1405,0)="""RTN"",""LRBEBA3"",192,0)"
^XMB(3.9,71,2,1406,0)=" ..S NODEO=^LRO(69,LRODT,1,LRSN,2,TT,0),AA=$P(NODEO,U,4)"
^XMB(3.9,71,2,1407,0)="""RTN"",""LRBEBA3"",193,0)"
^XMB(3.9,71,2,1408,0)=" ..I AA,$P(NODEO,U,12)'=1,$P($G(^LRO(68,AA,0)),U,2)=""MI"" S NOKILL=1"
^XMB(3.9,71,2,1409,0)="""RTN"",""LRBEBA3"",194,0)"
^XMB(3.9,71,2,1410,0)=" .I NOKILL=0 S ^LRO(69,""AA"",LRCEX,LROA)="""""
^XMB(3.9,71,2,1411,0)="""RTN"",""LRBEBA3"",195,0)"
^XMB(3.9,71,2,1412,0)=" Q RETURN"
^XMB(3.9,71,2,1413,0)="""RTN"",""LRBEBA4"")"
^XMB(3.9,71,2,1414,0)="0^4^B61044712^B57653585"
^XMB(3.9,71,2,1415,0)="""RTN"",""LRBEBA4"",1,0)"
^XMB(3.9,71,2,1416,0)="LRBEBA4 ;DALOI/JAH/FHS - ORDERING AND RESULTING OUTPATIENT ;8/10/04"
^XMB(3.9,71,2,1417,0)="""RTN"",""LRBEBA4"",2,0)"
^XMB(3.9,71,2,1418,0)=" ;;5.2;LAB SERVICE;**291,359**;Sep 27, 1994"
^XMB(3.9,71,2,1419,0)="""RTN"",""LRBEBA4"",3,0)"
^XMB(3.9,71,2,1420,0)=" ;"
^XMB(3.9,71,2,1421,0)="""RTN"",""LRBEBA4"",4,0)"
^XMB(3.9,71,2,1422,0)="GPRO(LRBEDN,LRBECDT,LRBESPC,LRBETST) ; Get the Procedure (CPT)"
^XMB(3.9,71,2,1423,0)="""RTN"",""LRBEBA4"",5,0)"
^XMB(3.9,71,2,1424,0)=" ; A qualified coder will setup the CPTs in #60. The routine look for "
^XMB(3.9,71,2,1425,0)="""RTN"",""LRBEBA4"",6,0)"
^XMB(3.9,71,2,1426,0)=" ; CPTs by specimen, then HCPCS, and lasty, by a default."
^XMB(3.9,71,2,1427,0)="""RTN"",""LRBEBA4"",7,0)"
^XMB(3.9,71,2,1428,0)=" ;"
^XMB(3.9,71,2,1429,0)="""RTN"",""LRBEBA4"",8,0)"
^XMB(3.9,71,2,1430,0)=" S X=""CH;""_LRBEDN_"";1"",Y=$O(^LAB(60,""C"",X,0))"
^XMB(3.9,71,2,1431,0)="""RTN"",""LRBEBA4"",9,0)"
^XMB(3.9,71,2,1432,0)=" Q:+Y<0"
^XMB(3.9,71,2,1433,0)="""RTN"",""LRBEBA4"",10,0)"
^XMB(3.9,71,2,1434,0)=" S LRBETST=+Y"
^XMB(3.9,71,2,1435,0)="""RTN"",""LRBEBA4"",11,0)"
^XMB(3.9,71,2,1436,0)="PANEL ;Entry point for panel cpt"
^XMB(3.9,71,2,1437,0)="""RTN"",""LRBEBA4"",12,0)"
^XMB(3.9,71,2,1438,0)=" N X,Y,DIC,LRBEIEN,LRBENLT,LRN"
^XMB(3.9,71,2,1439,0)="""RTN"",""LRBEBA4"",13,0)"
^XMB(3.9,71,2,1440,0)=" S:$G(LRSPEC)="""" LRSPEC=$G(LRBESPC)"
^XMB(3.9,71,2,1441,0)="""RTN"",""LRBEBA4"",14,0)"
^XMB(3.9,71,2,1442,0)=" S (LRI,LRBECPT)="""""
^XMB(3.9,71,2,1443,0)="""RTN"",""LRBEBA4"",15,0)"
^XMB(3.9,71,2,1444,0)=" ; #60 Specimen CPT"
^XMB(3.9,71,2,1445,0)="""RTN"",""LRBEBA4"",16,0)"
^XMB(3.9,71,2,1446,0)="SP60 D GCPT(LRBETST,LRBECDT,LRSPEC) Q:$O(LRBECPT(LRBETST,0))"
^XMB(3.9,71,2,1447,0)="""RTN"",""LRBEBA4"",17,0)"
^XMB(3.9,71,2,1448,0)=" ;HCPCS CODE"
^XMB(3.9,71,2,1449,0)="""RTN"",""LRBEBA4"",18,0)"
^XMB(3.9,71,2,1450,0)="HCPCS D"
^XMB(3.9,71,2,1451,0)="""RTN"",""LRBEBA4"",19,0)"
^XMB(3.9,71,2,1452,0)=" . S LRBECPT=$$GET1^DIQ(60,LRBETST_"","",""HCPCS CODE"",""I"")"
^XMB(3.9,71,2,1453,0)="""RTN"",""LRBEBA4"",20,0)"
^XMB(3.9,71,2,1454,0)=" . I LRBECPT D"
^XMB(3.9,71,2,1455,0)="""RTN"",""LRBEBA4"",21,0)"
^XMB(3.9,71,2,1456,0)=" . . S LRBECPT=$$CPT^ICPTCOD(LRBECPT,LRBECDT)"
^XMB(3.9,71,2,1457,0)="""RTN"",""LRBEBA4"",22,0)"
^XMB(3.9,71,2,1458,0)=" . . I '$P(LRBECPT,U,7) S LRBECPT="""" Q"
^XMB(3.9,71,2,1459,0)="""RTN"",""LRBEBA4"",23,0)"
^XMB(3.9,71,2,1460,0)=" . . S LRBECPT(LRBETST,$G(LRI)+1,$P(LRBECPT,U))=""HCPCS CODE"",LRI=$G(LRI)+1"
^XMB(3.9,71,2,1461,0)="""RTN"",""LRBEBA4"",24,0)"
^XMB(3.9,71,2,1462,0)=" ;Try file #64"
^XMB(3.9,71,2,1463,0)="""RTN"",""LRBEBA4"",25,0)"
^XMB(3.9,71,2,1464,0)="NLT Q:$O(LRBECPT(LRBETST,0))  D"
^XMB(3.9,71,2,1465,0)="""RTN"",""LRBEBA4"",26,0)"
^XMB(3.9,71,2,1466,0)=" . N I,LRBENLT,LRX,LRN,LRNM,SUFX"
^XMB(3.9,71,2,1467,0)="""RTN"",""LRBEBA4"",27,0)"
^XMB(3.9,71,2,1468,0)=" . S LRBENLT=$$GET1^DIQ(60,LRBETST_"","",64,""I"")"
^XMB(3.9,71,2,1469,0)="""RTN"",""LRBEBA4"",28,0)"
^XMB(3.9,71,2,1470,0)=" . Q:'LRBENLT"
^XMB(3.9,71,2,1471,0)="""RTN"",""LRBEBA4"",29,0)"
^XMB(3.9,71,2,1472,0)=" . S LRNM=$P($G(^LAM(LRBENLT,0)),U,2)"
^XMB(3.9,71,2,1473,0)="""RTN"",""LRBEBA4"",30,0)"
^XMB(3.9,71,2,1474,0)=" . S LRNM(1)=LRNM"
^XMB(3.9,71,2,1475,0)="""RTN"",""LRBEBA4"",31,0)"
^XMB(3.9,71,2,1476,0)=" . S SUFX=$P(LRNM,""."",2)"
^XMB(3.9,71,2,1477,0)="""RTN"",""LRBEBA4"",32,0)"
^XMB(3.9,71,2,1478,0)=" . I $G(LRCDEF),SUFX'=LRCDEF S LRNM(2)=$P(LRNM,""."",1)_"".""_LRCDEF"
^XMB(3.9,71,2,1479,0)="""RTN"",""LRBEBA4"",33,0)"
^XMB(3.9,71,2,1480,0)=" . I SUFX S LRNM(3)=$P(LRNM,""."",1)_"".""_""0000"""
^XMB(3.9,71,2,1481,0)="""RTN"",""LRBEBA4"",34,0)"
^XMB(3.9,71,2,1482,0)=" . S I=0 F  S I=$O(LRNM(I)) Q:'I  Q:$O(LRBECPT(LRBETST,0))  D"
^XMB(3.9,71,2,1483,0)="""RTN"",""LRBEBA4"",35,0)"
^XMB(3.9,71,2,1484,0)=" . . S LRBENLT=$O(^LAM(""C"",LRNM(I)_"" "",0)) Q:'LRBENLT"
^XMB(3.9,71,2,1485,0)="""RTN"",""LRBEBA4"",36,0)"
^XMB(3.9,71,2,1486,0)=" . . S LRN=0 F  S LRN=$O(^LAM(LRBENLT,4,""AC"",""CPT"",LRN)) Q:LRN<1  D"
^XMB(3.9,71,2,1487,0)="""RTN"",""LRBEBA4"",37,0)"
^XMB(3.9,71,2,1488,0)=" . . . S LRX=$G(^LAM(LRBENLT,4,LRN,0)) Q:'LRX  D"
^XMB(3.9,71,2,1489,0)="""RTN"",""LRBEBA4"",38,0)"
^XMB(3.9,71,2,1490,0)=" . . . . Q:'$P(LRX,U,3)!($P(LRX,U,3)>LRBECDT)!($P(LRX,U,4)&($P(LRX,U,4)<LRBECDT))"
^XMB(3.9,71,2,1491,0)="""RTN"",""LRBEBA4"",39,0)"
^XMB(3.9,71,2,1492,0)=" . . . . S LRBECPT=+LRX"
^XMB(3.9,71,2,1493,0)="""RTN"",""LRBEBA4"",40,0)"
^XMB(3.9,71,2,1494,0)=" . . . . I '$P($$CPT^ICPTCOD(LRBECPT,LRBECDT),U,7) Q"
^XMB(3.9,71,2,1495,0)="""RTN"",""LRBEBA4"",41,0)"
^XMB(3.9,71,2,1496,0)=" . . . . S LRBECPT(LRBETST,($G(LRI)+1),LRBECPT)=""WKLD CODE-""_LRNM(I),LRI=$G(LRI)+1"
^XMB(3.9,71,2,1497,0)="""RTN"",""LRBEBA4"",42,0)"
^XMB(3.9,71,2,1498,0)=" . . . . I LRI>1,LRBECPT(LRBETST,LRI,LRBECPT)=$G(LRBECPT(LRBETST,($G(LRI)-1),LRBECPT)) D"
^XMB(3.9,71,2,1499,0)="""RTN"",""LRBEBA4"",43,0)"
^XMB(3.9,71,2,1500,0)=" . . . . . S LRBECPT(LRBETST,($G(LRI)-1),LRBECPT,""COUNT"")=+$G(LRBECPT(LRBETST,($G(LRI)-1),LRBECPT,""COUNT""))+1"
^XMB(3.9,71,2,1501,0)="""RTN"",""LRBEBA4"",44,0)"
^XMB(3.9,71,2,1502,0)=" . . . . . K LRBECPT(LRBETST,LRI,LRBECPT) S LRI=$G(LRI)-1"
^XMB(3.9,71,2,1503,0)="""RTN"",""LRBEBA4"",45,0)"
^XMB(3.9,71,2,1504,0)=" ;Default Site/Spec CPT"
^XMB(3.9,71,2,1505,0)="""RTN"",""LRBEBA4"",46,0)"
^XMB(3.9,71,2,1506,0)="SPCPT Q:$O(LRBECPT(LRBETST,0))  D"
^XMB(3.9,71,2,1507,0)="""RTN"",""LRBEBA4"",47,0)"
^XMB(3.9,71,2,1508,0)=" . S LRBECPT=$$GET1^DIQ(60,LRBETST_"","",""DEFAULT SITE/SPECIMEN CPT"",""E"")"
^XMB(3.9,71,2,1509,0)="""RTN"",""LRBEBA4"",48,0)"
^XMB(3.9,71,2,1510,0)=" . I LRBECPT D"
^XMB(3.9,71,2,1511,0)="""RTN"",""LRBEBA4"",49,0)"
^XMB(3.9,71,2,1512,0)=" . . I '$P($$CPT^ICPTCOD(LRBECPT,LRBECDT),U,7) S LRBECPT="""" Q"
^XMB(3.9,71,2,1513,0)="""RTN"",""LRBEBA4"",50,0)"
^XMB(3.9,71,2,1514,0)=" . . S LRBECPT(LRBETST,$G(LRI)+1,LRBECPT)=""DEFAULT SITE/SPECIMEN CPT"",LRI=$G(LRI)+1"
^XMB(3.9,71,2,1515,0)="""RTN"",""LRBEBA4"",51,0)"
^XMB(3.9,71,2,1516,0)=" Q"
^XMB(3.9,71,2,1517,0)="""RTN"",""LRBEBA4"",52,0)"
^XMB(3.9,71,2,1518,0)=" ;"
^XMB(3.9,71,2,1519,0)="""RTN"",""LRBEBA4"",53,0)"
^XMB(3.9,71,2,1520,0)="SCPT(CPT,TDAT) ; Get the CPT/HCPCS Code"
^XMB(3.9,71,2,1521,0)="""RTN"",""LRBEBA4"",54,0)"
^XMB(3.9,71,2,1522,0)=" Q $$CPT^ICPTCOD(CPT,TDAT)"
^XMB(3.9,71,2,1523,0)="""RTN"",""LRBEBA4"",55,0)"
^XMB(3.9,71,2,1524,0)=" ;"
^XMB(3.9,71,2,1525,0)="""RTN"",""LRBEBA4"",56,0)"
^XMB(3.9,71,2,1526,0)="GCPT(LRBETST,LRBECDT,LRSPEC) ; Get the CPT"
^XMB(3.9,71,2,1527,0)="""RTN"",""LRBEBA4"",57,0)"
^XMB(3.9,71,2,1528,0)=" N A,ARR,LRBEAX,LRBEIEN,LRBEAR60,X,XX"
^XMB(3.9,71,2,1529,0)="""RTN"",""LRBEBA4"",58,0)"
^XMB(3.9,71,2,1530,0)=" S LRBEIEN=LRSPEC_"",""_LRBETST_"","",(LRI,LRBECPT)="""""
^XMB(3.9,71,2,1531,0)="""RTN"",""LRBEBA4"",59,0)"
^XMB(3.9,71,2,1532,0)=" D GETS^DIQ(60.01,LRBEIEN,""96*"",""I"",""LRBEAR60"")"
^XMB(3.9,71,2,1533,0)="""RTN"",""LRBEBA4"",60,0)"
^XMB(3.9,71,2,1534,0)=" S A="""" F  S A=$O(LRBEAR60(60.196,A)) Q:A=""""  D"
^XMB(3.9,71,2,1535,0)="""RTN"",""LRBEBA4"",61,0)"
^XMB(3.9,71,2,1536,0)=" . Q:$G(LRBEAR60(60.196,A,1,""I""))="""""
^XMB(3.9,71,2,1537,0)="""RTN"",""LRBEBA4"",62,0)"
^XMB(3.9,71,2,1538,0)=" . S ARR($G(LRBEAR60(60.196,A,1,""I"")))=$G(LRBEAR60(60.196,A,.01,""I""))"
^XMB(3.9,71,2,1539,0)="""RTN"",""LRBEBA4"",63,0)"
^XMB(3.9,71,2,1540,0)=" S XX=$P(LRBECDT,""."",1)_"".""_9999"
^XMB(3.9,71,2,1541,0)="""RTN"",""LRBEBA4"",64,0)"
^XMB(3.9,71,2,1542,0)=" S X=$O(ARR(XX),-1) I X D"
^XMB(3.9,71,2,1543,0)="""RTN"",""LRBEBA4"",65,0)"
^XMB(3.9,71,2,1544,0)=" .S LRBEAX=ARR(X)"
^XMB(3.9,71,2,1545,0)="""RTN"",""LRBEBA4"",66,0)"
^XMB(3.9,71,2,1546,0)=" .S LRBEAX=$$CPT^ICPTCOD(LRBEAX,LRBECDT)"
^XMB(3.9,71,2,1547,0)="""RTN"",""LRBEBA4"",67,0)"
^XMB(3.9,71,2,1548,0)=" .Q:'$P(LRBEAX,U,7)"
^XMB(3.9,71,2,1549,0)="""RTN"",""LRBEBA4"",68,0)"
^XMB(3.9,71,2,1550,0)=" .S LRBECPT(LRBETST,($G(LRI)+1),$P(LRBEAX,U))=""SPECIMEN CPT"",LRI=$G(LRI)+1"
^XMB(3.9,71,2,1551,0)="""RTN"",""LRBEBA4"",69,0)"
^XMB(3.9,71,2,1552,0)=" Q"
^XMB(3.9,71,2,1553,0)="""RTN"",""LRBEBA4"",70,0)"
^XMB(3.9,71,2,1554,0)=" ;"
^XMB(3.9,71,2,1555,0)="""RTN"",""LRBEBA4"",71,0)"
^XMB(3.9,71,2,1556,0)="UPDOR(DFN,ORITEM,ORIEN,ORDX,ORSCEI) ; Update CIDC information from OERR"
^XMB(3.9,71,2,1557,0)="""RTN"",""LRBEBA4"",72,0)"
^XMB(3.9,71,2,1558,0)=" I $G(^XTMP(""LRPCELOG"",0)) D"
^XMB(3.9,71,2,1559,0)="""RTN"",""LRBEBA4"",73,0)"
^XMB(3.9,71,2,1560,0)=" . N LRLNOW,LRI"
^XMB(3.9,71,2,1561,0)="""RTN"",""LRBEBA4"",74,0)"
^XMB(3.9,71,2,1562,0)=" . F  S LRLNOW=$$NOW^XLFDT Q:'$D(^XTMP(""LRPCELOG"",3,LRLNOW))"
^XMB(3.9,71,2,1563,0)="""RTN"",""LRBEBA4"",75,0)"
^XMB(3.9,71,2,1564,0)=" . S ^XTMP(""LRPCELOG"",3,LRLNOW)=DFN_U_ORITEM_U_ORIEN_U_""[""_ORSCEI_""]"""
^XMB(3.9,71,2,1565,0)="""RTN"",""LRBEBA4"",76,0)"
^XMB(3.9,71,2,1566,0)=" . S LRI=0 F  S LRI=$O(ORDX(LRI)) Q:LRI=""""  D"
^XMB(3.9,71,2,1567,0)="""RTN"",""LRBEBA4"",77,0)"
^XMB(3.9,71,2,1568,0)=" . . S ^XTMP(""LRPCELOG"",3,LRLNOW,""ORDX"",LRI)=ORDX(LRI)"
^XMB(3.9,71,2,1569,0)="""RTN"",""LRBEBA4"",78,0)"
^XMB(3.9,71,2,1570,0)=" I $S('$O(ORDX(0)):1,ORSCEI=""^^^^^"":1,1:0) Q ""O^No Diagnosis Entered"""
^XMB(3.9,71,2,1571,0)="""RTN"",""LRBEBA4"",79,0)"
^XMB(3.9,71,2,1572,0)=" N LRBEAR,LRBEDFN,LRDFN,LRBEIEN,LRODT,LRORD,LRSN,LRBERMS,LRBETN,LRBETYP"
^XMB(3.9,71,2,1573,0)="""RTN"",""LRBEBA4"",80,0)"
^XMB(3.9,71,2,1574,0)=" N LRBEVST,LRAA,LRLLOC,LRSAMP,LRSPEC,LRSB,LRBEY"
^XMB(3.9,71,2,1575,0)="""RTN"",""LRBEBA4"",81,0)"
^XMB(3.9,71,2,1576,0)=" S LRBERMS=1,LRORD=$P(ORITEM,"";"",1),LRODT=$P(ORITEM,"";"",2)"
^XMB(3.9,71,2,1577,0)="""RTN"",""LRBEBA4"",82,0)"
^XMB(3.9,71,2,1578,0)=" S LRSN=$P(ORITEM,"";"",3),LRBEIEN=LRSN_"",""_LRODT_"","""
^XMB(3.9,71,2,1579,0)="""RTN"",""LRBEBA4"",83,0)"
^XMB(3.9,71,2,1580,0)=" S (LRBEDFN,LRDFN)=$$GET1^DIQ(69.01,LRBEIEN,.01,""I"")"
^XMB(3.9,71,2,1581,0)="""RTN"",""LRBEBA4"",84,0)"
^XMB(3.9,71,2,1582,0)=" S LRSAMP=$$GET1^DIQ(69.01,LRBEIEN,3,""I"")"
^XMB(3.9,71,2,1583,0)="""RTN"",""LRBEBA4"",85,0)"
^XMB(3.9,71,2,1584,0)=" S LRLLOC=$$GET1^DIQ(69.01,LRBEIEN,8,""I"")"
^XMB(3.9,71,2,1585,0)="""RTN"",""LRBEBA4"",86,0)"
^XMB(3.9,71,2,1586,0)=" S LRSPEC=$$GET1^DIQ(69.02,""1,""_LRBEIEN,.01,""I"") S:LRSPEC="""" LRSPEC=72"
^XMB(3.9,71,2,1587,0)="""RTN"",""LRBEBA4"",87,0)"
^XMB(3.9,71,2,1588,0)=" I LRORD'=$$GET1^DIQ(69.01,LRBEIEN,9.5,""I"") D  Q LRBERMS"
^XMB(3.9,71,2,1589,0)="""RTN"",""LRBEBA4"",88,0)"
^XMB(3.9,71,2,1590,0)=" .S LRBERMS=""0^""_$$EMSG(1)"
^XMB(3.9,71,2,1591,0)="""RTN"",""LRBEBA4"",89,0)"
^XMB(3.9,71,2,1592,0)=" I DFN'=$$GET1^DIQ(63,LRBEDFN_"","",.03,""I"") D  Q LRBERMS"
^XMB(3.9,71,2,1593,0)="""RTN"",""LRBEBA4"",90,0)"
^XMB(3.9,71,2,1594,0)=" .S LRBERMS=""0^""_$$EMSG(2)"
^XMB(3.9,71,2,1595,0)="""RTN"",""LRBEBA4"",91,0)"
^XMB(3.9,71,2,1596,0)=" S LRBEVST=$P($G(^LRO(69,LRODT,1,LRSN,""PCE"")),"";"",1) D WORK"
^XMB(3.9,71,2,1597,0)="""RTN"",""LRBEBA4"",92,0)"
^XMB(3.9,71,2,1598,0)=" Q LRBERMS"
^XMB(3.9,71,2,1599,0)="""RTN"",""LRBEBA4"",93,0)"
^XMB(3.9,71,2,1600,0)=" ;"
^XMB(3.9,71,2,1601,0)="""RTN"",""LRBEBA4"",94,0)"
^XMB(3.9,71,2,1602,0)="WORK ; Enter the updated information into file"
^XMB(3.9,71,2,1603,0)="""RTN"",""LRBEBA4"",95,0)"
^XMB(3.9,71,2,1604,0)=" N LRBEFND,LRBETNM,LRBETST,LRBEZ,LRBERES"
^XMB(3.9,71,2,1605,0)="""RTN"",""LRBEBA4"",96,0)"
^XMB(3.9,71,2,1606,0)=" S (LRBETN,LRBEFND)=0"
^XMB(3.9,71,2,1607,0)="""RTN"",""LRBEBA4"",97,0)"
^XMB(3.9,71,2,1608,0)=" F  S LRBETN=$O(^LRO(69,LRODT,1,LRSN,2,LRBETN)) Q:LRBETN=""""!('LRBETN)  D"
^XMB(3.9,71,2,1609,0)="""RTN"",""LRBEBA4"",98,0)"
^XMB(3.9,71,2,1610,0)=" .Q:ORIEN'=$$GET1^DIQ(69.03,LRBETN_"",""_LRBEIEN,6,""I"")"
^XMB(3.9,71,2,1611,0)="""RTN"",""LRBEBA4"",99,0)"
^XMB(3.9,71,2,1612,0)=" .S:'LRBEFND LRBEFND=1 S LRAA="""""
^XMB(3.9,71,2,1613,0)="""RTN"",""LRBEBA4"",100,0)"
^XMB(3.9,71,2,1614,0)=" .S LRBETST=$$GET1^DIQ(69.03,LRBETN_"",""_LRBEIEN,.01,""I"")"
^XMB(3.9,71,2,1615,0)="""RTN"",""LRBEBA4"",101,0)"
^XMB(3.9,71,2,1616,0)=" .S LRBETNM=$$GET1^DIQ(60,LRBETST_"","",.01,""I"")"
^XMB(3.9,71,2,1617,0)="""RTN"",""LRBEBA4"",102,0)"
^XMB(3.9,71,2,1618,0)=" .S LRBEZ(LRBETN)=LRBETST_""^""_LRBETNM K LRBEAR"
^XMB(3.9,71,2,1619,0)="""RTN"",""LRBEBA4"",103,0)"
^XMB(3.9,71,2,1620,0)=" .D BLRSB(.LRSB,LRBETN_"",""_LRBEIEN,LRBETST,.LRBEY)"
^XMB(3.9,71,2,1621,0)="""RTN"",""LRBEBA4"",104,0)"
^XMB(3.9,71,2,1622,0)=" .D KILL(LRODT,LRSN,LRBETN),SET(DFN,.ORDX,ORSCEI)"
^XMB(3.9,71,2,1623,0)="""RTN"",""LRBEBA4"",105,0)"
^XMB(3.9,71,2,1624,0)=" .D SDG1(LRODT,LRSN,LRBETN,DFN,.LRBEAR)"
^XMB(3.9,71,2,1625,0)="""RTN"",""LRBEBA4"",106,0)"
^XMB(3.9,71,2,1626,0)=" I 'LRBEFND S LRBERMS=""0^""_$$EMSG(3) Q"
^XMB(3.9,71,2,1627,0)="""RTN"",""LRBEBA4"",107,0)"
^XMB(3.9,71,2,1628,0)=" I LRBEVST'="""",LRAA'="""" S LRBERES=1 D BAWRK^LRBEBA(LRODT,LRSN,1,.LRBEY,.LRBEZ,"""",LRBEVST,"""",ORIEN)"
^XMB(3.9,71,2,1629,0)="""RTN"",""LRBEBA4"",108,0)"
^XMB(3.9,71,2,1630,0)=" Q"
^XMB(3.9,71,2,1631,0)="""RTN"",""LRBEBA4"",109,0)"
^XMB(3.9,71,2,1632,0)=" ;"
^XMB(3.9,71,2,1633,0)="""RTN"",""LRBEBA4"",110,0)"
^XMB(3.9,71,2,1634,0)="KILL(LRBEODT,LRBESN,LRBETN) ; Kill the existing DGX and SC/EI"
^XMB(3.9,71,2,1635,0)="""RTN"",""LRBEBA4"",111,0)"
^XMB(3.9,71,2,1636,0)=" N DA,DIK"
^XMB(3.9,71,2,1637,0)="""RTN"",""LRBEBA4"",112,0)"
^XMB(3.9,71,2,1638,0)=" S DA(1)=LRBETN,DA(2)=LRSN,DA(3)=LRODT"
^XMB(3.9,71,2,1639,0)="""RTN"",""LRBEBA4"",113,0)"
^XMB(3.9,71,2,1640,0)=" S DA="""" F  S DA=$O(^LRO(69,DA(3),1,DA(2),2,DA(1),2,DA)) Q:DA=""""  D"
^XMB(3.9,71,2,1641,0)="""RTN"",""LRBEBA4"",114,0)"
^XMB(3.9,71,2,1642,0)=" .S DIK=""^LRO(69,""_DA(3)_"",""_1_"",""_DA(2)_"",""_2_"",""_DA(1)_"",""_2_"","""
^XMB(3.9,71,2,1643,0)="""RTN"",""LRBEBA4"",115,0)"
^XMB(3.9,71,2,1644,0)=" .D ^DIK"
^XMB(3.9,71,2,1645,0)="""RTN"",""LRBEBA4"",116,0)"
^XMB(3.9,71,2,1646,0)=" Q"
^XMB(3.9,71,2,1647,0)="""RTN"",""LRBEBA4"",117,0)"
^XMB(3.9,71,2,1648,0)=" ;"
^XMB(3.9,71,2,1649,0)="""RTN"",""LRBEBA4"",118,0)"
^XMB(3.9,71,2,1650,0)="SET(DFN,ORDX,ORSCEI) ; Set #69 with new DGX and SC/EI"
^XMB(3.9,71,2,1651,0)="""RTN"",""LRBEBA4"",119,0)"
^XMB(3.9,71,2,1652,0)=" N LRBEA"
^XMB(3.9,71,2,1653,0)="""RTN"",""LRBEBA4"",120,0)"
^XMB(3.9,71,2,1654,0)=" S LRBEA="""" F  S LRBEA=$O(ORDX(LRBEA)) Q:LRBEA=""""  D"
^XMB(3.9,71,2,1655,0)="""RTN"",""LRBEBA4"",121,0)"
^XMB(3.9,71,2,1656,0)=" .S LRBEAR(DFN,""LRBEDGX"",LRBEA,$G(ORDX(LRBEA)))=""^^^""_ORSCEI"
^XMB(3.9,71,2,1657,0)="""RTN"",""LRBEBA4"",122,0)"
^XMB(3.9,71,2,1658,0)=" .S:LRBEA=1 $P(LRBEAR(DFN,""LRBEDGX"",LRBEA,$G(ORDX(LRBEA))),U,11)=1"
^XMB(3.9,71,2,1659,0)="""RTN"",""LRBEBA4"",123,0)"
^XMB(3.9,71,2,1660,0)=" Q"
^XMB(3.9,71,2,1661,0)="""RTN"",""LRBEBA4"",124,0)"
^XMB(3.9,71,2,1662,0)=" ;"
^XMB(3.9,71,2,1663,0)="""RTN"",""LRBEBA4"",125,0)"
^XMB(3.9,71,2,1664,0)="SDG1(LRODT,LRSN,LRBETN,DFN,LRBEAR) ; Set the diagnois "
^XMB(3.9,71,2,1665,0)="""RTN"",""LRBEBA4"",126,0)"
^XMB(3.9,71,2,1666,0)=" ;                             and indicators file #69"
^XMB(3.9,71,2,1667,0)="""RTN"",""LRBEBA4"",127,0)"
^XMB(3.9,71,2,1668,0)=" N LRBEA,LRBEFIL,LRBEIEN,LRFDA,LRFDAIEN,LRERR,LRBEPDGX,LRBETNUM"
^XMB(3.9,71,2,1669,0)="""RTN"",""LRBEBA4"",128,0)"
^XMB(3.9,71,2,1670,0)=" S LRBEFIL=69.05,LRBETNUM=$O(^LRO(69,LRODT,1,LRSN,2,LRBETN,2,""""),-1)+1"
^XMB(3.9,71,2,1671,0)="""RTN"",""LRBEBA4"",129,0)"
^XMB(3.9,71,2,1672,0)=" S LRBEA="""" F  S LRBEA=$O(LRBEAR(DFN,""LRBEDGX"",LRBEA)) Q:LRBEA=""""  D"
^XMB(3.9,71,2,1673,0)="""RTN"",""LRBEBA4"",130,0)"
^XMB(3.9,71,2,1674,0)=" .S LRBEPDGX="""""
^XMB(3.9,71,2,1675,0)="""RTN"",""LRBEBA4"",131,0)"
^XMB(3.9,71,2,1676,0)=" .F  S LRBEPDGX=$O(LRBEAR(DFN,""LRBEDGX"",LRBEA,LRBEPDGX)) Q:LRBEPDGX=""""  D"
^XMB(3.9,71,2,1677,0)="""RTN"",""LRBEBA4"",132,0)"
^XMB(3.9,71,2,1678,0)=" ..S LRBEPTDT=$G(LRBEAR(DFN,""LRBEDGX"",LRBEA,LRBEPDGX))"
^XMB(3.9,71,2,1679,0)="""RTN"",""LRBEBA4"",133,0)"
^XMB(3.9,71,2,1680,0)=" ..S LRBEIEN=""+""_LRBETNUM_"",""_LRBETN_"",""_LRSN_"",""_LRODT_"","""
^XMB(3.9,71,2,1681,0)="""RTN"",""LRBEBA4"",134,0)"
^XMB(3.9,71,2,1682,0)=" ..S LRFDAIEN(LRBETNUM)=LRBETNUM,LRFDA(99,LRBEFIL,LRBEIEN,.01)=LRBEPDGX"
^XMB(3.9,71,2,1683,0)="""RTN"",""LRBEBA4"",135,0)"
^XMB(3.9,71,2,1684,0)=" ..S:$P(LRBEPTDT,U,6)'="""" LRFDA(99,LRBEFIL,LRBEIEN,1)=$P(LRBEPTDT,U,6)"
^XMB(3.9,71,2,1685,0)="""RTN"",""LRBEBA4"",136,0)"
^XMB(3.9,71,2,1686,0)=" ..S:$P(LRBEPTDT,U,10)'="""" LRFDA(99,LRBEFIL,LRBEIEN,2)=$P(LRBEPTDT,U,10)"
^XMB(3.9,71,2,1687,0)="""RTN"",""LRBEBA4"",137,0)"
^XMB(3.9,71,2,1688,0)=" ..S:$P(LRBEPTDT,U,4)'="""" LRFDA(99,LRBEFIL,LRBEIEN,3)=$P(LRBEPTDT,U,4)"
^XMB(3.9,71,2,1689,0)="""RTN"",""LRBEBA4"",138,0)"
^XMB(3.9,71,2,1690,0)=" ..S:$P(LRBEPTDT,U,5)'="""" LRFDA(99,LRBEFIL,LRBEIEN,4)=$P(LRBEPTDT,U,5)"
^XMB(3.9,71,2,1691,0)="""RTN"",""LRBEBA4"",139,0)"
^XMB(3.9,71,2,1692,0)=" ..S:$P(LRBEPTDT,U,7)'="""" LRFDA(99,LRBEFIL,LRBEIEN,5)=$P(LRBEPTDT,U,7)"
^XMB(3.9,71,2,1693,0)="""RTN"",""LRBEBA4"",140,0)"
^XMB(3.9,71,2,1694,0)=" ..S:$P(LRBEPTDT,U,8)'="""" LRFDA(99,LRBEFIL,LRBEIEN,6)=$P(LRBEPTDT,U,8)"
^XMB(3.9,71,2,1695,0)="""RTN"",""LRBEBA4"",141,0)"
^XMB(3.9,71,2,1696,0)=" ..S:$P(LRBEPTDT,U,9)'="""" LRFDA(99,LRBEFIL,LRBEIEN,7)=$P(LRBEPTDT,U,9)"
^XMB(3.9,71,2,1697,0)="""RTN"",""LRBEBA4"",142,0)"
^XMB(3.9,71,2,1698,0)=" ..S:$P(LRBEPTDT,U,11)=1 LRFDA(99,LRBEFIL,LRBEIEN,8)=1         ;Is Primary?"
^XMB(3.9,71,2,1699,0)="""RTN"",""LRBEBA4"",143,0)"
^XMB(3.9,71,2,1700,0)=" ..S LRBETNUM=LRBETNUM+1"
^XMB(3.9,71,2,1701,0)="""RTN"",""LRBEBA4"",144,0)"
^XMB(3.9,71,2,1702,0)=" D UPDATE^DIE("""",""LRFDA(99)"",""LRFDAIEN"",""LRERR"")"
^XMB(3.9,71,2,1703,0)="""RTN"",""LRBEBA4"",145,0)"
^XMB(3.9,71,2,1704,0)=" Q"
^XMB(3.9,71,2,1705,0)="""RTN"",""LRBEBA4"",146,0)"
^XMB(3.9,71,2,1706,0)=" ;"
^XMB(3.9,71,2,1707,0)="""RTN"",""LRBEBA4"",147,0)"
^XMB(3.9,71,2,1708,0)="EMSG(LRBETYP) ; Return Error Message"
^XMB(3.9,71,2,1709,0)="""RTN"",""LRBEBA4"",148,0)"
^XMB(3.9,71,2,1710,0)=" N LRBEEMS,LRBETYPN"
^XMB(3.9,71,2,1711,0)="""RTN"",""LRBEBA4"",149,0)"
^XMB(3.9,71,2,1712,0)=" S:LRBETYP=1 LRBETYPN=""Order Number"" S:LRBETYP=2 LRBETYPN=""DFN"""
^XMB(3.9,71,2,1713,0)="""RTN"",""LRBEBA4"",150,0)"
^XMB(3.9,71,2,1714,0)=" S:LRBETYP=3 LRBETYPN=""Orderable Item"""
^XMB(3.9,71,2,1715,0)="""RTN"",""LRBEBA4"",151,0)"
^XMB(3.9,71,2,1716,0)=" S LRBEEMS=""Possible reasons for failure is the ""_LRBETYPN_"" did not match."""
^XMB(3.9,71,2,1717,0)="""RTN"",""LRBEBA4"",152,0)"
^XMB(3.9,71,2,1718,0)=" Q LRBEEMS"
^XMB(3.9,71,2,1719,0)="""RTN"",""LRBEBA4"",153,0)"
^XMB(3.9,71,2,1720,0)=" ;"
^XMB(3.9,71,2,1721,0)="""RTN"",""LRBEBA4"",154,0)"
^XMB(3.9,71,2,1722,0)="BLRSB(LRSB,LRBEIENT,LRBETST,LRBEY) ; Build the LRSB global"
^XMB(3.9,71,2,1723,0)="""RTN"",""LRBEBA4"",155,0)"
^XMB(3.9,71,2,1724,0)=" N LRBESS,LRBEIDT,LRBESB,LRBEAA,LRBEAD,LRBEAN,LRBEIEN2,LRBET,NX,XX"
^XMB(3.9,71,2,1725,0)="""RTN"",""LRBEBA4"",156,0)"
^XMB(3.9,71,2,1726,0)=" S (LRAD,LRBEAD)=$$GET1^DIQ(69.03,LRBEIENT,2,""I"")"
^XMB(3.9,71,2,1727,0)="""RTN"",""LRBEBA4"",157,0)"
^XMB(3.9,71,2,1728,0)=" S (LRAA,LRBEAA)=$$GET1^DIQ(69.03,LRBEIENT,3,""I"") Q:LRAA="""""
^XMB(3.9,71,2,1729,0)="""RTN"",""LRBEBA4"",158,0)"
^XMB(3.9,71,2,1730,0)=" S (LRAN,LRBEAN)=$$GET1^DIQ(69.03,LRBEIENT,4,""I"")"
^XMB(3.9,71,2,1731,0)="""RTN"",""LRBEBA4"",159,0)"
^XMB(3.9,71,2,1732,0)=" S LRBEIEN2=LRBEAN_"",""_LRBEAD_"",""_LRBEAA_"","""
^XMB(3.9,71,2,1733,0)="""RTN"",""LRBEBA4"",160,0)"
^XMB(3.9,71,2,1734,0)=" S (LRSS,LRBESS)=$$GET1^DIQ(68,LRBEAA_"","",.02,""I"")"
^XMB(3.9,71,2,1735,0)="""RTN"",""LRBEBA4"",161,0)"
^XMB(3.9,71,2,1736,0)=" S (LRIDT,LRBEIDT)=$$GET1^DIQ(68.02,LRBEIEN2,13.5,""I"")"
^XMB(3.9,71,2,1737,0)="""RTN"",""LRBEBA4"",162,0)"
^XMB(3.9,71,2,1738,0)=" S XX=$P($P(^LAB(60,LRBETST,0),U,5),"";"",2) I XX D"
^XMB(3.9,71,2,1739,0)="""RTN"",""LRBEBA4"",163,0)"
^XMB(3.9,71,2,1740,0)=" .S LRSB(XX)=$G(^LR(LRDFN,LRSS,LRIDT,XX))"
^XMB(3.9,71,2,1741,0)="""RTN"",""LRBEBA4"",164,0)"
^XMB(3.9,71,2,1742,0)=" .I LRSB(XX)="""" K LRSB(XX) Q"
^XMB(3.9,71,2,1743,0)="""RTN"",""LRBEBA4"",165,0)"
^XMB(3.9,71,2,1744,0)=" .I ""pending^canc""[$P(LRSB(XX),U,1) K LRSB(XX) Q"
^XMB(3.9,71,2,1745,0)="""RTN"",""LRBEBA4"",166,0)"
^XMB(3.9,71,2,1746,0)=" .S LRBEY(LRBETST,XX)="""""
^XMB(3.9,71,2,1747,0)="""RTN"",""LRBEBA4"",167,0)"
^XMB(3.9,71,2,1748,0)=" S NX=0 F  S NX=$O(^LAB(60,LRBETST,2,NX)) Q:'NX  D"
^XMB(3.9,71,2,1749,0)="""RTN"",""LRBEBA4"",168,0)"
^XMB(3.9,71,2,1750,0)=" .S LRBET=+^LAB(60,LRBETST,2,NX,0)"
^XMB(3.9,71,2,1751,0)="""RTN"",""LRBEBA4"",169,0)"
^XMB(3.9,71,2,1752,0)=" .S XX=$P($P(^LAB(60,LRBET,0),U,5),"";"",2) I XX D"
^XMB(3.9,71,2,1753,0)="""RTN"",""LRBEBA4"",170,0)"
^XMB(3.9,71,2,1754,0)=" ..S LRSB(XX)=$G(^LR(LRDFN,LRSS,LRIDT,XX))"
^XMB(3.9,71,2,1755,0)="""RTN"",""LRBEBA4"",171,0)"
^XMB(3.9,71,2,1756,0)=" ..I LRSB(XX)="""" K LRSB(XX) Q"
^XMB(3.9,71,2,1757,0)="""RTN"",""LRBEBA4"",172,0)"
^XMB(3.9,71,2,1758,0)=" ..I ""pending^canc""[$P(LRSB(XX),U,1) K LRSB(XX) Q"
^XMB(3.9,71,2,1759,0)="""RTN"",""LRBEBA4"",173,0)"
^XMB(3.9,71,2,1760,0)=" ..S LRBEY(LRBETST,XX)="""""
^XMB(3.9,71,2,1761,0)="""RTN"",""LRBEBA4"",174,0)"
^XMB(3.9,71,2,1762,0)=" Q"
^XMB(3.9,71,2,1763,0)="""RTN"",""LRBEBA4"",175,0)"
^XMB(3.9,71,2,1764,0)=" ;"
^XMB(3.9,71,2,1765,0)="""RTN"",""LRBEBA4"",176,0)"
^XMB(3.9,71,2,1766,0)="CHKINP(LRDFN,LRBEDAT) ; Check for Inpatient Status)"
^XMB(3.9,71,2,1767,0)="""RTN"",""LRBEBA4"",177,0)"
^XMB(3.9,71,2,1768,0)=" N VAIN,VAINDT"
^XMB(3.9,71,2,1769,0)="""RTN"",""LRBEBA4"",178,0)"
^XMB(3.9,71,2,1770,0)=" I '$G(DFN) D"
^XMB(3.9,71,2,1771,0)="""RTN"",""LRBEBA4"",179,0)"
^XMB(3.9,71,2,1772,0)=" . S DFN=$$GET1^DIQ(63,LRDFN_"","",.03,""I"")"
^XMB(3.9,71,2,1773,0)="""RTN"",""LRBEBA4"",180,0)"
^XMB(3.9,71,2,1774,0)=" . S LRDPF=$$GET1^DIQ(63,LRDFN_"","",.02,""I"")"
^XMB(3.9,71,2,1775,0)="""RTN"",""LRBEBA4"",181,0)"
^XMB(3.9,71,2,1776,0)=" I $G(LRDPF)'=2 Q 0"
^XMB(3.9,71,2,1777,0)="""RTN"",""LRBEBA4"",182,0)"
^XMB(3.9,71,2,1778,0)=" S VAINDT=LRBEDAT D INP^VADPT"
^XMB(3.9,71,2,1779,0)="""RTN"",""LRBEBA4"",183,0)"
^XMB(3.9,71,2,1780,0)=" Q $G(VAIN(1))"
^XMB(3.9,71,2,1781,0)="""RTN"",""LRBEBA4"",184,0)"
^XMB(3.9,71,2,1782,0)=" ;"
^XMB(3.9,71,2,1783,0)="""RTN"",""LRBEBA4"",185,0)"
^XMB(3.9,71,2,1784,0)="RFLX() ; Ask the Reflex Question"
^XMB(3.9,71,2,1785,0)="""RTN"",""LRBEBA4"",186,0)"
^XMB(3.9,71,2,1786,0)=" N DIR,DUOUT,DTOUT,DIRUT,Y"
^XMB(3.9,71,2,1787,0)="""RTN"",""LRBEBA4"",187,0)"
^XMB(3.9,71,2,1788,0)=" S DIR(""A"")=""Is this a Reflex Test? (Y/N): """
^XMB(3.9,71,2,1789,0)="""RTN"",""LRBEBA4"",188,0)"
^XMB(3.9,71,2,1790,0)=" S DIR(0)=""YA"" D ^DIR"
^XMB(3.9,71,2,1791,0)="""RTN"",""LRBEBA4"",189,0)"
^XMB(3.9,71,2,1792,0)=" I $D(DIRUT)!($D(DUOUT)!$D(DTOUT)) Q -1"
^XMB(3.9,71,2,1793,0)="""RTN"",""LRBEBA4"",190,0)"
^XMB(3.9,71,2,1794,0)=" Q +Y"
^XMB(3.9,71,2,1795,0)="""RTN"",""LRBEBA4"",191,0)"
^XMB(3.9,71,2,1796,0)=" ;"
^XMB(3.9,71,2,1797,0)="""RTN"",""LRBEBA4"",192,0)"
^XMB(3.9,71,2,1798,0)="DEFAULT ;Set Default diagnosis"
^XMB(3.9,71,2,1799,0)="""RTN"",""LRBEBA4"",193,0)"
^XMB(3.9,71,2,1800,0)=" N LRD,LRI,LRX,LRY,LRD"
^XMB(3.9,71,2,1801,0)="""RTN"",""LRBEBA4"",194,0)"
^XMB(3.9,71,2,1802,0)=" S (LRBEDMSG,LRDBEDGX)="""""
^XMB(3.9,71,2,1803,0)="""RTN"",""LRBEBA4"",195,0)"
^XMB(3.9,71,2,1804,0)=" S LRI=$O(^LRO(69,LRODT,1,LRSN,2,1,2,0)) Q:LRI<1"
^XMB(3.9,71,2,1805,0)="""RTN"",""LRBEBA4"",196,0)"
^XMB(3.9,71,2,1806,0)=" S LRD=$G(^LRO(69,LRODT,1,LRSN,2,1,2,LRI,0))"
^XMB(3.9,71,2,1807,0)="""RTN"",""LRBEBA4"",197,0)"
^XMB(3.9,71,2,1808,0)=" Q:'LRD"
^XMB(3.9,71,2,1809,0)="""RTN"",""LRBEBA4"",198,0)"
^XMB(3.9,71,2,1810,0)=" S LRDBEDGX=+LRD"
^XMB(3.9,71,2,1811,0)="""RTN"",""LRBEBA4"",199,0)"
^XMB(3.9,71,2,1812,0)=" S LRBEDMSG=+LRD_""^^^""_$P(LRD,U,4)_U_$P(LRD,U,5)_U_$P(LRD,U,2)"
^XMB(3.9,71,2,1813,0)="""RTN"",""LRBEBA4"",200,0)"
^XMB(3.9,71,2,1814,0)=" S LRBEDMSG=LRBEDMSG_U_$P(LRD,U,6)_U_$P(LRD,U,7)_U_$P(LRD,U,8)"
^XMB(3.9,71,2,1815,0)="""RTN"",""LRBEBA4"",201,0)"
^XMB(3.9,71,2,1816,0)=" S LRBEDMSG=LRBEDMSG_U_$P(LRD,U,3)_U_$P(LRD,U,9)"
^XMB(3.9,71,2,1817,0)="""RTN"",""LRBEBA4"",202,0)"
^XMB(3.9,71,2,1818,0)=" W:$G(LRDBUG) !,LRBEDMSG"
^XMB(3.9,71,2,1819,0)="""RTN"",""LRBEBA4"",203,0)"
^XMB(3.9,71,2,1820,0)=" Q"
^XMB(3.9,71,2,1821,0)="""RTN"",""LRBEBAO"")"
^XMB(3.9,71,2,1822,0)="0^5^B71311928^B68648424"
^XMB(3.9,71,2,1823,0)="""RTN"",""LRBEBAO"",1,0)"
^XMB(3.9,71,2,1824,0)="LRBEBAO ;DALOI/JAH/FHS - ORDERING AND RESULTING FOR OUTPATIENTS ;8/10/04"
^XMB(3.9,71,2,1825,0)="""RTN"",""LRBEBAO"",2,0)"
^XMB(3.9,71,2,1826,0)=" ;;5.2;LAB SERVICE;**291,359**;Sep 27, 1994"
^XMB(3.9,71,2,1827,0)="""RTN"",""LRBEBAO"",3,0)"
^XMB(3.9,71,2,1828,0)=" ;"
^XMB(3.9,71,2,1829,0)="""RTN"",""LRBEBAO"",4,0)"
^XMB(3.9,71,2,1830,0)=" ; This routine contains the subroutines that get the diagnosis pointers"
^XMB(3.9,71,2,1831,0)="""RTN"",""LRBEBAO"",5,0)"
^XMB(3.9,71,2,1832,0)=" ; and indicators at order entry and result verification for outpatient."
^XMB(3.9,71,2,1833,0)="""RTN"",""LRBEBAO"",6,0)"
^XMB(3.9,71,2,1834,0)=" ;"
^XMB(3.9,71,2,1835,0)="""RTN"",""LRBEBAO"",7,0)"
^XMB(3.9,71,2,1836,0)=" ; Reference to EN^DDIOL supported by IA #10142"
^XMB(3.9,71,2,1837,0)="""RTN"",""LRBEBAO"",8,0)"
^XMB(3.9,71,2,1838,0)=" ; Reference to ^DIC supported by IA #10006"
^XMB(3.9,71,2,1839,0)="""RTN"",""LRBEBAO"",9,0)"
^XMB(3.9,71,2,1840,0)=" ; Reference to $$GET1^DIQ supported by IA #2056"
^XMB(3.9,71,2,1841,0)="""RTN"",""LRBEBAO"",10,0)"
^XMB(3.9,71,2,1842,0)=" ; Reference to ^DIR supported by IA #10026"
^XMB(3.9,71,2,1843,0)="""RTN"",""LRBEBAO"",11,0)"
^XMB(3.9,71,2,1844,0)=" ; Reference to ^ICD9 supported by IA #10082"
^XMB(3.9,71,2,1845,0)="""RTN"",""LRBEBAO"",12,0)"
^XMB(3.9,71,2,1846,0)=" ; Reference to ^DIC(9.4 supported by IA #10048"
^XMB(3.9,71,2,1847,0)="""RTN"",""LRBEBAO"",13,0)"
^XMB(3.9,71,2,1848,0)=" ; Reference to ^DIC(81.3 supported by IA #2816"
^XMB(3.9,71,2,1849,0)="""RTN"",""LRBEBAO"",14,0)"
^XMB(3.9,71,2,1850,0)=" ;"
^XMB(3.9,71,2,1851,0)="""RTN"",""LRBEBAO"",15,0)"
^XMB(3.9,71,2,1852,0)="OPORD ; Outpatient Order Entry"
^XMB(3.9,71,2,1853,0)="""RTN"",""LRBEBAO"",16,0)"
^XMB(3.9,71,2,1854,0)=" ;"
^XMB(3.9,71,2,1855,0)="""RTN"",""LRBEBAO"",17,0)"
^XMB(3.9,71,2,1856,0)=" ; Input:"
^XMB(3.9,71,2,1857,0)="""RTN"",""LRBEBAO"",18,0)"
^XMB(3.9,71,2,1858,0)=" ;  LRBEDFN    - Patient's DFN (#2)"
^XMB(3.9,71,2,1859,0)="""RTN"",""LRBEBAO"",19,0)"
^XMB(3.9,71,2,1860,0)=" ;  LRBESMP    - Sample"
^XMB(3.9,71,2,1861,0)="""RTN"",""LRBEBAO"",20,0)"
^XMB(3.9,71,2,1862,0)=" ;  LRBESPC    - Specimen"
^XMB(3.9,71,2,1863,0)="""RTN"",""LRBEBAO"",21,0)"
^XMB(3.9,71,2,1864,0)=" ;  LRBETST    - Ordered Test"
^XMB(3.9,71,2,1865,0)="""RTN"",""LRBEBAO"",22,0)"
^XMB(3.9,71,2,1866,0)=" ;  LRBEDGX    - Pointer to Diagnosis (#80)"
^XMB(3.9,71,2,1867,0)="""RTN"",""LRBEBAO"",23,0)"
^XMB(3.9,71,2,1868,0)=" ;  LRBEAR(LRBEDFN,""DOS"")      - Date of Service"
^XMB(3.9,71,2,1869,0)="""RTN"",""LRBEBAO"",24,0)"
^XMB(3.9,71,2,1870,0)=" ;  LRBEAR(LRBEDFN,""PAT"")      - Patient DFN (#2)"
^XMB(3.9,71,2,1871,0)="""RTN"",""LRBEBAO"",25,0)"
^XMB(3.9,71,2,1872,0)=" ;  LRBEAR(LRBEDFN,""POS"")      - Place of Service"
^XMB(3.9,71,2,1873,0)="""RTN"",""LRBEBAO"",26,0)"
^XMB(3.9,71,2,1874,0)=" ;  LRBEAR(LRBEDFN,""ORDGX"")    - Ordering or Resulting Diagnosis"
^XMB(3.9,71,2,1875,0)="""RTN"",""LRBEBAO"",27,0)"
^XMB(3.9,71,2,1876,0)=" ;  LRBEAR(LRBEDFN,""USR"")      - User"
^XMB(3.9,71,2,1877,0)="""RTN"",""LRBEBAO"",28,0)"
^XMB(3.9,71,2,1878,0)=" ;  LRBEAR(LRBEDFN,""ORDPRO"")    - Ordering Provider"
^XMB(3.9,71,2,1879,0)="""RTN"",""LRBEBAO"",29,0)"
^XMB(3.9,71,2,1880,0)=" ;  LRBEAR(LRBEDFN,""LRBEDGX"",LRBESMP,LRBESPC,LRBETST,LRBEDGX)"
^XMB(3.9,71,2,1881,0)="""RTN"",""LRBEBAO"",30,0)"
^XMB(3.9,71,2,1882,0)=" ;   Piece     Desc"
^XMB(3.9,71,2,1883,0)="""RTN"",""LRBEBAO"",31,0)"
^XMB(3.9,71,2,1884,0)=" ;   -----     ---------------------------------"
^XMB(3.9,71,2,1885,0)="""RTN"",""LRBEBAO"",32,0)"
^XMB(3.9,71,2,1886,0)=" ;   1     -   Diagnosis"
^XMB(3.9,71,2,1887,0)="""RTN"",""LRBEBAO"",33,0)"
^XMB(3.9,71,2,1888,0)=" ;   2     -   Unused (blank)"
^XMB(3.9,71,2,1889,0)="""RTN"",""LRBEBAO"",34,0)"
^XMB(3.9,71,2,1890,0)=" ;   3     -   Textual Description of  Diagnosis"
^XMB(3.9,71,2,1891,0)="""RTN"",""LRBEBAO"",35,0)"
^XMB(3.9,71,2,1892,0)=" ;   4     -   Agent Orange"
^XMB(3.9,71,2,1893,0)="""RTN"",""LRBEBAO"",36,0)"
^XMB(3.9,71,2,1894,0)=" ;   5     -   Ionizing Radiation"
^XMB(3.9,71,2,1895,0)="""RTN"",""LRBEBAO"",37,0)"
^XMB(3.9,71,2,1896,0)=" ;   6     -   Service Connected Indicator"
^XMB(3.9,71,2,1897,0)="""RTN"",""LRBEBAO"",38,0)"
^XMB(3.9,71,2,1898,0)=" ;   7     -   Environmental Contaminamts"
^XMB(3.9,71,2,1899,0)="""RTN"",""LRBEBAO"",39,0)"
^XMB(3.9,71,2,1900,0)=" ;   8     -   MST (Military Sexual Tramua)"
^XMB(3.9,71,2,1901,0)="""RTN"",""LRBEBAO"",40,0)"
^XMB(3.9,71,2,1902,0)=" ;   9     -   Head and Neck Cancer"
^XMB(3.9,71,2,1903,0)="""RTN"",""LRBEBAO"",41,0)"
^XMB(3.9,71,2,1904,0)=" ;   10    -   Combat Veteran"
^XMB(3.9,71,2,1905,0)="""RTN"",""LRBEBAO"",42,0)"
^XMB(3.9,71,2,1906,0)=" ;"
^XMB(3.9,71,2,1907,0)="""RTN"",""LRBEBAO"",43,0)"
^XMB(3.9,71,2,1908,0)=" ; Output:"
^XMB(3.9,71,2,1909,0)="""RTN"",""LRBEBAO"",44,0)"
^XMB(3.9,71,2,1910,0)=" ;  LRBEAR1(VISIT,TST,LRBEPOV)=LRBEDGX"
^XMB(3.9,71,2,1911,0)="""RTN"",""LRBEBAO"",45,0)"
^XMB(3.9,71,2,1912,0)=" ;   VISIT      -  Pointer to VISIT (9000010) file"
^XMB(3.9,71,2,1913,0)="""RTN"",""LRBEBAO"",46,0)"
^XMB(3.9,71,2,1914,0)=" ;   TST        -  Ordered Test"
^XMB(3.9,71,2,1915,0)="""RTN"",""LRBEBAO"",47,0)"
^XMB(3.9,71,2,1916,0)=" ;   LRBEPOV        -  Pointer to V POV (#9000010.07) file"
^XMB(3.9,71,2,1917,0)="""RTN"",""LRBEBAO"",48,0)"
^XMB(3.9,71,2,1918,0)=" ;   LRBEDGX        -  Pointer to Diagnosis (#80)"
^XMB(3.9,71,2,1919,0)="""RTN"",""LRBEBAO"",49,0)"
^XMB(3.9,71,2,1920,0)="EN ;"
^XMB(3.9,71,2,1921,0)="""RTN"",""LRBEBAO"",50,0)"
^XMB(3.9,71,2,1922,0)=" D INIT"
^XMB(3.9,71,2,1923,0)="""RTN"",""LRBEBAO"",51,0)"
^XMB(3.9,71,2,1924,0)=" S SUB1=""ENCOUNTER"",SUB2=""DX/PL"",SUB3=""PROVIDER"""
^XMB(3.9,71,2,1925,0)="""RTN"",""LRBEBAO"",52,0)"
^XMB(3.9,71,2,1926,0)=" S LRBEDFN="""" F  S LRBEDFN=$O(LRBEAR(LRBEDFN)) Q:LRBEDFN=""""  D"
^XMB(3.9,71,2,1927,0)="""RTN"",""LRBEBAO"",53,0)"
^XMB(3.9,71,2,1928,0)=" .S LRBETM=$S($P($G(LRBECDT),""."",2):LRBECDT,$G(LRCDT):LRCDT,1:DT)"
^XMB(3.9,71,2,1929,0)="""RTN"",""LRBEBAO"",54,0)"
^XMB(3.9,71,2,1930,0)=" .S LRBETM=$$PCETM(LRBETM)"
^XMB(3.9,71,2,1931,0)="""RTN"",""LRBEBAO"",55,0)"
^XMB(3.9,71,2,1932,0)=" .S ^TMP(""LRPXAPI"",$J,SUB1,1,""ENC D/T"")=LRBETM"
^XMB(3.9,71,2,1933,0)="""RTN"",""LRBEBAO"",56,0)"
^XMB(3.9,71,2,1934,0)=" .S ^TMP(""LRPXAPI"",$J,SUB1,1,""DSS ID"")=LROOS"
^XMB(3.9,71,2,1935,0)="""RTN"",""LRBEBAO"",57,0)"
^XMB(3.9,71,2,1936,0)=" .S ^TMP(""LRPXAPI"",$J,SUB1,1,""HOS LOC"")=$G(LRBEAR(LRBEDFN,""POS""))"
^XMB(3.9,71,2,1937,0)="""RTN"",""LRBEBAO"",58,0)"
^XMB(3.9,71,2,1938,0)=" .S ^TMP(""LRPXAPI"",$J,SUB1,1,""PATIENT"")=$G(LRBEAR(LRBEDFN,""PAT""))"
^XMB(3.9,71,2,1939,0)="""RTN"",""LRBEBAO"",59,0)"
^XMB(3.9,71,2,1940,0)=" .S ^TMP(""LRPXAPI"",$J,SUB1,1,""SERVICE CATEGORY"")=""X"""
^XMB(3.9,71,2,1941,0)="""RTN"",""LRBEBAO"",60,0)"
^XMB(3.9,71,2,1942,0)=" .S ^TMP(""LRPXAPI"",$J,SUB1,1,""ENCOUNTER TYPE"")=""A"""
^XMB(3.9,71,2,1943,0)="""RTN"",""LRBEBAO"",61,0)"
^XMB(3.9,71,2,1944,0)=" .S ^TMP(""LRPXAPI"",$J,SUB3,1,""NAME"")=$G(LRBEAR(LRBEDFN,""ORDPRO""))"
^XMB(3.9,71,2,1945,0)="""RTN"",""LRBEBAO"",62,0)"
^XMB(3.9,71,2,1946,0)=" .S ^TMP(""LRPXAPI"",$J,SUB3,1,""PRIMARY"")=1"
^XMB(3.9,71,2,1947,0)="""RTN"",""LRBEBAO"",63,0)"
^XMB(3.9,71,2,1948,0)=" .I $G(LRBEAR(LRBEDFN,""DEL"")) D"
^XMB(3.9,71,2,1949,0)="""RTN"",""LRBEBAO"",64,0)"
^XMB(3.9,71,2,1950,0)=" ..S ^TMP(""LRPXAPI"",$J,SUB1,1,""DELETE"")=$G(LRBEAR(LRBEDFN,""DEL""))"
^XMB(3.9,71,2,1951,0)="""RTN"",""LRBEBAO"",65,0)"
^XMB(3.9,71,2,1952,0)=" .S LRBESMP="""""
^XMB(3.9,71,2,1953,0)="""RTN"",""LRBEBAO"",66,0)"
^XMB(3.9,71,2,1954,0)=" .F  S LRBESMP=$O(LRBEAR(LRBEDFN,""LRBEDGX"",LRBESMP)) Q:LRBESMP=""""  D"
^XMB(3.9,71,2,1955,0)="""RTN"",""LRBEBAO"",67,0)"
^XMB(3.9,71,2,1956,0)=" ..S LRBESPC="""""
^XMB(3.9,71,2,1957,0)="""RTN"",""LRBEBAO"",68,0)"
^XMB(3.9,71,2,1958,0)=" ..F  S LRBESPC=+$O(LRBEAR(LRBEDFN,""LRBEDGX"",LRBESMP,LRBESPC)) Q:LRBESPC<1  D"
^XMB(3.9,71,2,1959,0)="""RTN"",""LRBEBAO"",69,0)"
^XMB(3.9,71,2,1960,0)=" ...D OPWRK"
^XMB(3.9,71,2,1961,0)="""RTN"",""LRBEBAO"",70,0)"
^XMB(3.9,71,2,1962,0)=" Q"
^XMB(3.9,71,2,1963,0)="""RTN"",""LRBEBAO"",71,0)"
^XMB(3.9,71,2,1964,0)=" ;"
^XMB(3.9,71,2,1965,0)="""RTN"",""LRBEBAO"",72,0)"
^XMB(3.9,71,2,1966,0)="OPWRK ; More Outpatient Work"
^XMB(3.9,71,2,1967,0)="""RTN"",""LRBEBAO"",73,0)"
^XMB(3.9,71,2,1968,0)=" N X,XX,B,BG,N,DX,LRBEDIA"
^XMB(3.9,71,2,1969,0)="""RTN"",""LRBEBAO"",74,0)"
^XMB(3.9,71,2,1970,0)=" ;get all primary (n=1) and secondary (n=2) dx"
^XMB(3.9,71,2,1971,0)="""RTN"",""LRBEBAO"",75,0)"
^XMB(3.9,71,2,1972,0)=" S LRBETST="""" F  S LRBETST=$O(LRBECPT(LRBETST)) Q:'LRBETST  D"
^XMB(3.9,71,2,1973,0)="""RTN"",""LRBEBAO"",76,0)"
^XMB(3.9,71,2,1974,0)=" . S LRBETNUM=0 F  S LRBETNUM=$O(LRBECPT(LRBETST,LRBETNUM)) Q:LRBETNUM<1  D"
^XMB(3.9,71,2,1975,0)="""RTN"",""LRBEBAO"",77,0)"
^XMB(3.9,71,2,1976,0)=" . . S LRBEDGX="""""
^XMB(3.9,71,2,1977,0)="""RTN"",""LRBEBAO"",78,0)"
^XMB(3.9,71,2,1978,0)=" . . F  S LRBEDGX=$O(LRBEAR(LRBEDFN,""LRBEDGX"",LRBESMP,LRBESPC,LRBETST,LRBEDGX)) Q:LRBEDGX=""""  D"
^XMB(3.9,71,2,1979,0)="""RTN"",""LRBEBAO"",79,0)"
^XMB(3.9,71,2,1980,0)=" . . . S LRBEPTDT=$G(LRBEAR(LRBEDFN,""LRBEDGX"",LRBESMP,LRBESPC,LRBETST,LRBEDGX))"
^XMB(3.9,71,2,1981,0)="""RTN"",""LRBEBAO"",80,0)"
^XMB(3.9,71,2,1982,0)=" . . . S N=$S($P(LRBEPTDT,U,11):1,1:2),X=$P(LRBEPTDT,U,4,10)"
^XMB(3.9,71,2,1983,0)="""RTN"",""LRBEBAO"",81,0)"
^XMB(3.9,71,2,1984,0)=" . . . ;collapse indicators for same dx"
^XMB(3.9,71,2,1985,0)="""RTN"",""LRBEBAO"",82,0)"
^XMB(3.9,71,2,1986,0)=" . . . S XX=$G(DX(N,LRBEDGX))"
^XMB(3.9,71,2,1987,0)="""RTN"",""LRBEBAO"",83,0)"
^XMB(3.9,71,2,1988,0)=" . . . F B=1:1:7 I $P(XX,U,B)'=1,$P(X,U,B)'="""" S $P(XX,U,B)=$P(X,U,B)"
^XMB(3.9,71,2,1989,0)="""RTN"",""LRBEBAO"",84,0)"
^XMB(3.9,71,2,1990,0)=" . . . S DX(N,LRBEDGX)=XX"
^XMB(3.9,71,2,1991,0)="""RTN"",""LRBEBAO"",85,0)"
^XMB(3.9,71,2,1992,0)=" ;set primary dx in PCE array"
^XMB(3.9,71,2,1993,0)="""RTN"",""LRBEBAO"",86,0)"
^XMB(3.9,71,2,1994,0)=" S LRBEDGX="""""
^XMB(3.9,71,2,1995,0)="""RTN"",""LRBEBAO"",87,0)"
^XMB(3.9,71,2,1996,0)=" F  S LRBEDGX=$O(DX(1,LRBEDGX)) Q:LRBEDGX=""""  D"
^XMB(3.9,71,2,1997,0)="""RTN"",""LRBEBAO"",88,0)"
^XMB(3.9,71,2,1998,0)=" . S LRBEDIA=$G(LRBEDIA)+1,XX=DX(1,LRBEDGX)"
^XMB(3.9,71,2,1999,0)="""RTN"",""LRBEBAO"",89,0)"
^XMB(3.9,71,2,2000,0)=" . S ^TMP(""LRPXAPI"",$J,SUB2,LRBEDIA,""DIAGNOSIS"")=LRBEDGX"
^XMB(3.9,71,2,2001,0)="""RTN"",""LRBEBAO"",90,0)"
^XMB(3.9,71,2,2002,0)=" . S ^TMP(""LRPXAPI"",$J,SUB2,LRBEDIA,""PRIMARY"")=1"
^XMB(3.9,71,2,2003,0)="""RTN"",""LRBEBAO"",91,0)"
^XMB(3.9,71,2,2004,0)=" . F B=1:1:7 I $P(XX,U,B)'="""" D"
^XMB(3.9,71,2,2005,0)="""RTN"",""LRBEBAO"",92,0)"
^XMB(3.9,71,2,2006,0)=" . . S BG=$$GETT(B)"
^XMB(3.9,71,2,2007,0)="""RTN"",""LRBEBAO"",93,0)"
^XMB(3.9,71,2,2008,0)=" . . I '$G(^TMP(""LRPXAPI"",$J,SUB2,LRBEDIA,BG)) S ^TMP(""LRPXAPI"",$J,SUB2,LRBEDIA,BG)=$P(XX,U,B)"
^XMB(3.9,71,2,2009,0)="""RTN"",""LRBEBAO"",94,0)"
^XMB(3.9,71,2,2010,0)=" . . ;collapse dx indicators into encounter node"
^XMB(3.9,71,2,2011,0)="""RTN"",""LRBEBAO"",95,0)"
^XMB(3.9,71,2,2012,0)=" . . I '$G(^TMP(""LRPXAPI"",$J,SUB1,1,$P(BG,"" "",2))) S ^TMP(""LRPXAPI"",$J,SUB1,1,$P(BG,"" "",2))=$P(XX,U,B)"
^XMB(3.9,71,2,2013,0)="""RTN"",""LRBEBAO"",96,0)"
^XMB(3.9,71,2,2014,0)=" ;set secondary dx in PCE array"
^XMB(3.9,71,2,2015,0)="""RTN"",""LRBEBAO"",97,0)"
^XMB(3.9,71,2,2016,0)=" S LRBEDGX="""""
^XMB(3.9,71,2,2017,0)="""RTN"",""LRBEBAO"",98,0)"
^XMB(3.9,71,2,2018,0)=" F  S LRBEDGX=$O(DX(2,LRBEDGX)) Q:LRBEDGX=""""  D"
^XMB(3.9,71,2,2019,0)="""RTN"",""LRBEBAO"",99,0)"
^XMB(3.9,71,2,2020,0)=" . S LRBEDIA=$G(LRBEDIA)+1,XX=DX(2,LRBEDGX)"
^XMB(3.9,71,2,2021,0)="""RTN"",""LRBEBAO"",100,0)"
^XMB(3.9,71,2,2022,0)=" . S ^TMP(""LRPXAPI"",$J,SUB2,LRBEDIA,""DIAGNOSIS"")=LRBEDGX"
^XMB(3.9,71,2,2023,0)="""RTN"",""LRBEBAO"",101,0)"
^XMB(3.9,71,2,2024,0)=" . F B=1:1:7 I $P(XX,U,B)'="""" D"
^XMB(3.9,71,2,2025,0)="""RTN"",""LRBEBAO"",102,0)"
^XMB(3.9,71,2,2026,0)=" . . S BG=$$GETT(B)"
^XMB(3.9,71,2,2027,0)="""RTN"",""LRBEBAO"",103,0)"
^XMB(3.9,71,2,2028,0)=" . . I '$G(^TMP(""LRPXAPI"",$J,SUB2,LRBEDIA,BG)) S ^TMP(""LRPXAPI"",$J,SUB2,LRBEDIA,BG)=$P(XX,U,B)"
^XMB(3.9,71,2,2029,0)="""RTN"",""LRBEBAO"",104,0)"
^XMB(3.9,71,2,2030,0)=" . . ;collapse dx indicators into encounter node"
^XMB(3.9,71,2,2031,0)="""RTN"",""LRBEBAO"",105,0)"
^XMB(3.9,71,2,2032,0)=" . . I '$G(^TMP(""LRPXAPI"",$J,SUB1,1,$P(BG,"" "",2))) S ^TMP(""LRPXAPI"",$J,SUB1,1,$P(BG,"" "",2))=$P(XX,U,B)"
^XMB(3.9,71,2,2033,0)="""RTN"",""LRBEBAO"",106,0)"
^XMB(3.9,71,2,2034,0)=" Q"
^XMB(3.9,71,2,2035,0)="""RTN"",""LRBEBAO"",107,0)"
^XMB(3.9,71,2,2036,0)=" ;"
^XMB(3.9,71,2,2037,0)="""RTN"",""LRBEBAO"",108,0)"
^XMB(3.9,71,2,2038,0)="GETT(X) ; Indicators for ^TMP"
^XMB(3.9,71,2,2039,0)="""RTN"",""LRBEBAO"",109,0)"
^XMB(3.9,71,2,2040,0)=" I '+X Q """""
^XMB(3.9,71,2,2041,0)="""RTN"",""LRBEBAO"",110,0)"
^XMB(3.9,71,2,2042,0)=" Q ""PL ""_$S(X=1:""AO"",X=2:""IR"",X=3:""SC"",X=4:""EC"",X=5:""MST"",X=6:""HNC"",1:""CV"")"
^XMB(3.9,71,2,2043,0)="""RTN"",""LRBEBAO"",111,0)"
^XMB(3.9,71,2,2044,0)=" ;"
^XMB(3.9,71,2,2045,0)="""RTN"",""LRBEBAO"",112,0)"
^XMB(3.9,71,2,2046,0)="OPRES(LRBEAR,LRBEAR1,LRODT,LRSN,LRBEVST) ; Outpatient Final Resulting"
^XMB(3.9,71,2,2047,0)="""RTN"",""LRBEBAO"",113,0)"
^XMB(3.9,71,2,2048,0)=" ; Inputs:"
^XMB(3.9,71,2,2049,0)="""RTN"",""LRBEBAO"",114,0)"
^XMB(3.9,71,2,2050,0)=" ;  LRBEDN    -  Data Number of Test in #63 field 400"
^XMB(3.9,71,2,2051,0)="""RTN"",""LRBEBAO"",115,0)"
^XMB(3.9,71,2,2052,0)=" ;  LRBEAR(LRBEDFN,""VST"")     -  Patient's Encounter Number #9000010"
^XMB(3.9,71,2,2053,0)="""RTN"",""LRBEBAO"",116,0)"
^XMB(3.9,71,2,2054,0)=" ;  LRBEAR(LRBEDFN,""LRBEDGX"",LRBEDN)"
^XMB(3.9,71,2,2055,0)="""RTN"",""LRBEBAO"",117,0)"
^XMB(3.9,71,2,2056,0)=" ;   Piece     Desc"
^XMB(3.9,71,2,2057,0)="""RTN"",""LRBEBAO"",118,0)"
^XMB(3.9,71,2,2058,0)=" ;   1     -   Procedure (CPT)"
^XMB(3.9,71,2,2059,0)="""RTN"",""LRBEBAO"",119,0)"
^XMB(3.9,71,2,2060,0)=" ;   2     -   Modifiers (Sub-delimited by ""~"")"
^XMB(3.9,71,2,2061,0)="""RTN"",""LRBEBAO"",120,0)"
^XMB(3.9,71,2,2062,0)=" ;   3     -   Diagnosis"
^XMB(3.9,71,2,2063,0)="""RTN"",""LRBEBAO"",121,0)"
^XMB(3.9,71,2,2064,0)=" ;   4     -   Diagnosis 2"
^XMB(3.9,71,2,2065,0)="""RTN"",""LRBEBAO"",122,0)"
^XMB(3.9,71,2,2066,0)=" ;   5     -   Diagnosis 3"
^XMB(3.9,71,2,2067,0)="""RTN"",""LRBEBAO"",123,0)"
^XMB(3.9,71,2,2068,0)=" ;   6     -   Diagnosis 4"
^XMB(3.9,71,2,2069,0)="""RTN"",""LRBEBAO"",124,0)"
^XMB(3.9,71,2,2070,0)=" ;   7     -   Event D/T  (DOS)"
^XMB(3.9,71,2,2071,0)="""RTN"",""LRBEBAO"",125,0)"
^XMB(3.9,71,2,2072,0)=" ;   8     -   Encounter Provider"
^XMB(3.9,71,2,2073,0)="""RTN"",""LRBEBAO"",126,0)"
^XMB(3.9,71,2,2074,0)=" ;   9     -   Ordering Provider"
^XMB(3.9,71,2,2075,0)="""RTN"",""LRBEBAO"",127,0)"
^XMB(3.9,71,2,2076,0)=" ;   10    -   Quantity (Number of times procedure was performed)"
^XMB(3.9,71,2,2077,0)="""RTN"",""LRBEBAO"",128,0)"
^XMB(3.9,71,2,2078,0)=" ;   11    -   Place of Service "
^XMB(3.9,71,2,2079,0)="""RTN"",""LRBEBAO"",129,0)"
^XMB(3.9,71,2,2080,0)=" ; Output:"
^XMB(3.9,71,2,2081,0)="""RTN"",""LRBEBAO"",130,0)"
^XMB(3.9,71,2,2082,0)=" ;  LRBEAR1(VISIT,TST,LRBEPOV)=LRBEDGX"
^XMB(3.9,71,2,2083,0)="""RTN"",""LRBEBAO"",131,0)"
^XMB(3.9,71,2,2084,0)=" ;   VISIT      -  Pointer to VISIT (9000010) file"
^XMB(3.9,71,2,2085,0)="""RTN"",""LRBEBAO"",132,0)"
^XMB(3.9,71,2,2086,0)=" ;   TST        -  Ordered Test"
^XMB(3.9,71,2,2087,0)="""RTN"",""LRBEBAO"",133,0)"
^XMB(3.9,71,2,2088,0)=" ;   LRBEPOV        -  Pointer to V POV (#9000010.07) file"
^XMB(3.9,71,2,2089,0)="""RTN"",""LRBEBAO"",134,0)"
^XMB(3.9,71,2,2090,0)=" ;   LRBEDGX        -  Pointer to Diagnosis (#80)"
^XMB(3.9,71,2,2091,0)="""RTN"",""LRBEBAO"",135,0)"
^XMB(3.9,71,2,2092,0)=" ;"
^XMB(3.9,71,2,2093,0)="""RTN"",""LRBEBAO"",136,0)"
^XMB(3.9,71,2,2094,0)=" D INIT"
^XMB(3.9,71,2,2095,0)="""RTN"",""LRBEBAO"",137,0)"
^XMB(3.9,71,2,2096,0)=" N LRSWSTAT,LRSWDATE"
^XMB(3.9,71,2,2097,0)="""RTN"",""LRBEBAO"",138,0)"
^XMB(3.9,71,2,2098,0)=" S LRSWSTAT=$$SWSTAT^IBBAPI"
^XMB(3.9,71,2,2099,0)="""RTN"",""LRBEBAO"",139,0)"
^XMB(3.9,71,2,2100,0)=" S LRSWDATE=+$P(LRSWSTAT,U,2)"
^XMB(3.9,71,2,2101,0)="""RTN"",""LRBEBAO"",140,0)"
^XMB(3.9,71,2,2102,0)=" S LRSWSTAT=+$P(LRSWSTAT,U)"
^XMB(3.9,71,2,2103,0)="""RTN"",""LRBEBAO"",141,0)"
^XMB(3.9,71,2,2104,0)=" S SUB1=""PROCEDURE"""
^XMB(3.9,71,2,2105,0)="""RTN"",""LRBEBAO"",142,0)"
^XMB(3.9,71,2,2106,0)=" I '$G(LRDBEDGX) D"
^XMB(3.9,71,2,2107,0)="""RTN"",""LRBEBAO"",143,0)"
^XMB(3.9,71,2,2108,0)=" . N LRX"
^XMB(3.9,71,2,2109,0)="""RTN"",""LRBEBAO"",144,0)"
^XMB(3.9,71,2,2110,0)=" . S (LRDBEDGX,LRX)=0"
^XMB(3.9,71,2,2111,0)="""RTN"",""LRBEBAO"",145,0)"
^XMB(3.9,71,2,2112,0)=" . F  S LRX=$O(^LRO(69,LRODT,1,LRSN,2,LRX)) Q:LRX<1!($G(LRDBEDGX))  D"
^XMB(3.9,71,2,2113,0)="""RTN"",""LRBEBAO"",146,0)"
^XMB(3.9,71,2,2114,0)=" . . ;set a default diagnosis and sc/ei indicators"
^XMB(3.9,71,2,2115,0)="""RTN"",""LRBEBAO"",147,0)"
^XMB(3.9,71,2,2116,0)=" . . I $G(^LRO(69,LRODT,1,LRSN,2,LRX,2,1,0)) S LRDBEDGX=+^(0)"
^XMB(3.9,71,2,2117,0)="""RTN"",""LRBEBAO"",148,0)"
^XMB(3.9,71,2,2118,0)=" S LRBEDFN="""" F  S LRBEDFN=$O(LRBEAR(LRBEDFN)) Q:LRBEDFN=""""  D"
^XMB(3.9,71,2,2119,0)="""RTN"",""LRBEBAO"",149,0)"
^XMB(3.9,71,2,2120,0)=" . S LRI=0 F  S LRI=$O(LRBEAR(LRBEDFN,""LRBEDGX"",LRI)) Q:LRI<1  D"
^XMB(3.9,71,2,2121,0)="""RTN"",""LRBEBAO"",150,0)"
^XMB(3.9,71,2,2122,0)=" . . D OPWRK2"
^XMB(3.9,71,2,2123,0)="""RTN"",""LRBEBAO"",151,0)"
^XMB(3.9,71,2,2124,0)=" ;microbiology results sent to PCE in LRCAPPH1"
^XMB(3.9,71,2,2125,0)="""RTN"",""LRBEBAO"",152,0)"
^XMB(3.9,71,2,2126,0)=" I $P($G(^LRO(68,$G(LRAA),0)),U,2)'=""MI"" D SEND"
^XMB(3.9,71,2,2127,0)="""RTN"",""LRBEBAO"",153,0)"
^XMB(3.9,71,2,2128,0)=" Q"
^XMB(3.9,71,2,2129,0)="""RTN"",""LRBEBAO"",154,0)"
^XMB(3.9,71,2,2130,0)="SEND ; Send if procedure is defined"
^XMB(3.9,71,2,2131,0)="""RTN"",""LRBEBAO"",155,0)"
^XMB(3.9,71,2,2132,0)=" N LRLNOW,LRVX,PXALOOK,PXUCV"
^XMB(3.9,71,2,2133,0)="""RTN"",""LRBEBAO"",156,0)"
^XMB(3.9,71,2,2134,0)=" I '$G(^TMP(""LRPXAPI"",$J,""PROCEDURE"",1,""PROCEDURE"")) G END"
^XMB(3.9,71,2,2135,0)="""RTN"",""LRBEBAO"",157,0)"
^XMB(3.9,71,2,2136,0)=" I $G(^XTMP(""LRPCELOG"",0)) D"
^XMB(3.9,71,2,2137,0)="""RTN"",""LRBEBAO"",158,0)"
^XMB(3.9,71,2,2138,0)=" . F  S LRLNOW=$$NOW^XLFDT Q:'$D(^XTMP(""LRPCELOG"",1,LRLNOW))"
^XMB(3.9,71,2,2139,0)="""RTN"",""LRBEBAO"",159,0)"
^XMB(3.9,71,2,2140,0)=" . N LRACCX,LRUIDX"
^XMB(3.9,71,2,2141,0)="""RTN"",""LRBEBAO"",160,0)"
^XMB(3.9,71,2,2142,0)=" . S LRACCX=$G(LRACC),LRUIDX=$G(LRUID)"
^XMB(3.9,71,2,2143,0)="""RTN"",""LRBEBAO"",161,0)"
^XMB(3.9,71,2,2144,0)=" . M ^XTMP(""LRPCELOG"",2,LRLNOW)=^TMP(""LRPXAPI"",$J)"
^XMB(3.9,71,2,2145,0)="""RTN"",""LRBEBAO"",162,0)"
^XMB(3.9,71,2,2146,0)=" . S ^XTMP(""LRPCELOG"",2,LRLNOW,0)=LRACCX_U_LRUIDX"
^XMB(3.9,71,2,2147,0)="""RTN"",""LRBEBAO"",163,0)"
^XMB(3.9,71,2,2148,0)=" S LRVX=$$DATA2PCE^PXAPI(INROOT,LRPKG,SRC,.LRBEVSIT,USR,ERRDIS)"
^XMB(3.9,71,2,2149,0)="""RTN"",""LRBEBAO"",164,0)"
^XMB(3.9,71,2,2150,0)=" I $D(^XTMP(""LRPCELOG"",2,+$G(LRLNOW),0)) D"
^XMB(3.9,71,2,2151,0)="""RTN"",""LRBEBAO"",165,0)"
^XMB(3.9,71,2,2152,0)=" . S $P(^XTMP(""LRPCELOG"",2,+$G(LRLNOW),0),U,3,4)=LRVX_U_LRBEVSIT"
^XMB(3.9,71,2,2153,0)="""RTN"",""LRBEBAO"",166,0)"
^XMB(3.9,71,2,2154,0)=" . M ^XTMP(""LRPCELOG"",2,LRLNOW)=^TMP(""LRPXAPI"",$J)"
^XMB(3.9,71,2,2155,0)="""RTN"",""LRBEBAO"",167,0)"
^XMB(3.9,71,2,2156,0)=" I $G(LRBEVSIT) D SVST^LRBEBA3(LRBEVSIT,""PCE"",LRODT,LRSN)"
^XMB(3.9,71,2,2157,0)="""RTN"",""LRBEBAO"",168,0)"
^XMB(3.9,71,2,2158,0)="END K ^TMP(""LRPXAPI"",$J),LRBETNUM"
^XMB(3.9,71,2,2159,0)="""RTN"",""LRBEBAO"",169,0)"
^XMB(3.9,71,2,2160,0)=" Q"
^XMB(3.9,71,2,2161,0)="""RTN"",""LRBEBAO"",170,0)"
^XMB(3.9,71,2,2162,0)=" ;"
^XMB(3.9,71,2,2163,0)="""RTN"",""LRBEBAO"",171,0)"
^XMB(3.9,71,2,2164,0)="OPWRK2 ; Outpatient Work Two"
^XMB(3.9,71,2,2165,0)="""RTN"",""LRBEBAO"",172,0)"
^XMB(3.9,71,2,2166,0)=" K LRBEPTDT"
^XMB(3.9,71,2,2167,0)="""RTN"",""LRBEBAO"",173,0)"
^XMB(3.9,71,2,2168,0)=" S LRBEDN=0 F  S LRBEDN=+$O(LRBEAR(LRBEDFN,""LRBEDGX"",LRI,LRBEDN)) Q:LRBEDN<1  D OPWRK3"
^XMB(3.9,71,2,2169,0)="""RTN"",""LRBEBAO"",174,0)"
^XMB(3.9,71,2,2170,0)=" Q"
^XMB(3.9,71,2,2171,0)="""RTN"",""LRBEBAO"",175,0)"
^XMB(3.9,71,2,2172,0)="OPWRK3 ;"
^XMB(3.9,71,2,2173,0)="""RTN"",""LRBEBAO"",176,0)"
^XMB(3.9,71,2,2174,0)=" N JJ"
^XMB(3.9,71,2,2175,0)="""RTN"",""LRBEBAO"",177,0)"
^XMB(3.9,71,2,2176,0)=" S LRBEPTDT=$G(LRBEAR(LRBEDFN,""LRBEDGX"",LRI,LRBEDN))"
^XMB(3.9,71,2,2177,0)="""RTN"",""LRBEBAO"",178,0)"
^XMB(3.9,71,2,2178,0)=" Q:'($L(LRBEPTDT))"
^XMB(3.9,71,2,2179,0)="""RTN"",""LRBEBAO"",179,0)"
^XMB(3.9,71,2,2180,0)=" I '$P(LRBEPTDT,U,3) D"
^XMB(3.9,71,2,2181,0)="""RTN"",""LRBEBAO"",180,0)"
^XMB(3.9,71,2,2182,0)=" .S $P(LRBEPTDT,U,3)=LRDBEDGX"
^XMB(3.9,71,2,2183,0)="""RTN"",""LRBEBAO"",181,0)"
^XMB(3.9,71,2,2184,0)=" .S JJ=$O(^TMP(""LRPXAPI"",$J,""DX/PL"",99),-1)+1"
^XMB(3.9,71,2,2185,0)="""RTN"",""LRBEBAO"",182,0)"
^XMB(3.9,71,2,2186,0)=" .S ^TMP(""LRPXAPI"",$J,""DX/PL"",JJ,""DIAGNOSIS"")=LRDBEDGX"
^XMB(3.9,71,2,2187,0)="""RTN"",""LRBEBAO"",183,0)"
^XMB(3.9,71,2,2188,0)=" .I JJ=1 S ^TMP(""LRPXAPI"",$J,""DX/PL"",JJ,""PRIMARY"")=1"
^XMB(3.9,71,2,2189,0)="""RTN"",""LRBEBAO"",184,0)"
^XMB(3.9,71,2,2190,0)=" .E  S ^TMP(""LRPXAPI"",$J,""DX/PL"",JJ,""PRIMARY"")=0"
^XMB(3.9,71,2,2191,0)="""RTN"",""LRBEBAO"",185,0)"
^XMB(3.9,71,2,2192,0)=" S LRBETNUM=$G(LRBETNUM)+1,LRBEIEN=LRSN_"",""_LRODT_"","""
^XMB(3.9,71,2,2193,0)="""RTN"",""LRBEBAO"",186,0)"
^XMB(3.9,71,2,2194,0)=" I $P(LRBEPTDT,U,1)'="""" D"
^XMB(3.9,71,2,2195,0)="""RTN"",""LRBEBAO"",187,0)"
^XMB(3.9,71,2,2196,0)=" .S ^TMP(""LRPXAPI"",$J,SUB1,LRBETNUM,""PROCEDURE"")=$P(LRBEPTDT,U,1)"
^XMB(3.9,71,2,2197,0)="""RTN"",""LRBEBAO"",188,0)"
^XMB(3.9,71,2,2198,0)=" .S ^TMP(""LRPXAPI"",$J,SUB1,LRBETNUM,""QTY"")=1"
^XMB(3.9,71,2,2199,0)="""RTN"",""LRBEBAO"",189,0)"
^XMB(3.9,71,2,2200,0)=" I $P(LRBEPTDT,U,2)'="""" D"
^XMB(3.9,71,2,2201,0)="""RTN"",""LRBEBAO"",190,0)"
^XMB(3.9,71,2,2202,0)=" .S ^TMP(""LRPXAPI"",$J,SUB1,LRBETNUM,""MODIFIERS"",$P(LRBEPTDT,U,2))="""""
^XMB(3.9,71,2,2203,0)="""RTN"",""LRBEBAO"",191,0)"
^XMB(3.9,71,2,2204,0)=" I $P(LRBEPTDT,U,3)'="""" D"
^XMB(3.9,71,2,2205,0)="""RTN"",""LRBEBAO"",192,0)"
^XMB(3.9,71,2,2206,0)=" .S ^TMP(""LRPXAPI"",$J,SUB1,LRBETNUM,""DIAGNOSIS"")=$P(LRBEPTDT,U,3)"
^XMB(3.9,71,2,2207,0)="""RTN"",""LRBEBAO"",193,0)"
^XMB(3.9,71,2,2208,0)=" I $P(LRBEPTDT,U,4)'="""" D"
^XMB(3.9,71,2,2209,0)="""RTN"",""LRBEBAO"",194,0)"
^XMB(3.9,71,2,2210,0)=" .S ^TMP(""LRPXAPI"",$J,SUB1,LRBETNUM,""DIAGNOSIS 2"")=$P(LRBEPTDT,U,4)"
^XMB(3.9,71,2,2211,0)="""RTN"",""LRBEBAO"",195,0)"
^XMB(3.9,71,2,2212,0)=" I $P(LRBEPTDT,U,5)'="""" D"
^XMB(3.9,71,2,2213,0)="""RTN"",""LRBEBAO"",196,0)"
^XMB(3.9,71,2,2214,0)=" .S ^TMP(""LRPXAPI"",$J,SUB1,LRBETNUM,""DIAGNOSIS 3"")=$P(LRBEPTDT,U,5)"
^XMB(3.9,71,2,2215,0)="""RTN"",""LRBEBAO"",197,0)"
^XMB(3.9,71,2,2216,0)=" I $P(LRBEPTDT,U,6)'="""" D"
^XMB(3.9,71,2,2217,0)="""RTN"",""LRBEBAO"",198,0)"
^XMB(3.9,71,2,2218,0)=" .S ^TMP(""LRPXAPI"",$J,SUB1,LRBETNUM,""DIAGNOSIS 4"")=$P(LRBEPTDT,U,6)"
^XMB(3.9,71,2,2219,0)="""RTN"",""LRBEBAO"",199,0)"
^XMB(3.9,71,2,2220,0)=" I $P(LRBEPTDT,U,7)'="""" D"
^XMB(3.9,71,2,2221,0)="""RTN"",""LRBEBAO"",200,0)"
^XMB(3.9,71,2,2222,0)=" . N LRBETM S LRBETM=$P(LRBEPTDT,U,7)"
^XMB(3.9,71,2,2223,0)="""RTN"",""LRBEBAO"",201,0)"
^XMB(3.9,71,2,2224,0)=" . S LRBETM=$$PCETM(LRBETM)"
^XMB(3.9,71,2,2225,0)="""RTN"",""LRBEBAO"",202,0)"
^XMB(3.9,71,2,2226,0)=" . S ^TMP(""LRPXAPI"",$J,SUB1,LRBETNUM,""EVENT D/T"")=LRBETM"
^XMB(3.9,71,2,2227,0)="""RTN"",""LRBEBAO"",203,0)"
^XMB(3.9,71,2,2228,0)=" I $P(LRBEPTDT,U,8)'="""" D"
^XMB(3.9,71,2,2229,0)="""RTN"",""LRBEBAO"",204,0)"
^XMB(3.9,71,2,2230,0)=" .S ^TMP(""LRPXAPI"",$J,SUB1,LRBETNUM,""ENC PROVIDER"")=$P(LRBEPTDT,U,8)"
^XMB(3.9,71,2,2231,0)="""RTN"",""LRBEBAO"",205,0)"
^XMB(3.9,71,2,2232,0)=" I $P(LRBEPTDT,U,9)>0 D"
^XMB(3.9,71,2,2233,0)="""RTN"",""LRBEBAO"",206,0)"
^XMB(3.9,71,2,2234,0)=" .S ^TMP(""LRPXAPI"",$J,SUB1,LRBETNUM,""ORD PROVIDER"")=$P(LRBEPTDT,U,9)"
^XMB(3.9,71,2,2235,0)="""RTN"",""LRBEBAO"",207,0)"
^XMB(3.9,71,2,2236,0)=" I $P(LRBEPTDT,U,10)'="""" D"
^XMB(3.9,71,2,2237,0)="""RTN"",""LRBEBAO"",208,0)"
^XMB(3.9,71,2,2238,0)=" .S ^TMP(""LRPXAPI"",$J,SUB1,LRBETNUM,""QTY"")=$P(LRBEPTDT,U,10)"
^XMB(3.9,71,2,2239,0)="""RTN"",""LRBEBAO"",209,0)"
^XMB(3.9,71,2,2240,0)=" I $P(LRBEPTDT,U,12)'="""" D"
^XMB(3.9,71,2,2241,0)="""RTN"",""LRBEBAO"",210,0)"
^XMB(3.9,71,2,2242,0)=" .S ^TMP(""LRPXAPI"",$J,SUB1,LRBETNUM,""DIAGNOSIS 5"")=$P(LRBEPTDT,U,12)"
^XMB(3.9,71,2,2243,0)="""RTN"",""LRBEBAO"",211,0)"
^XMB(3.9,71,2,2244,0)=" I $P(LRBEPTDT,U,13)'="""" D"
^XMB(3.9,71,2,2245,0)="""RTN"",""LRBEBAO"",212,0)"
^XMB(3.9,71,2,2246,0)=" .S ^TMP(""LRPXAPI"",$J,SUB1,LRBETNUM,""DIAGNOSIS 6"")=$P(LRBEPTDT,U,13)"
^XMB(3.9,71,2,2247,0)="""RTN"",""LRBEBAO"",213,0)"
^XMB(3.9,71,2,2248,0)=" I $P(LRBEPTDT,U,14)'="""" D"
^XMB(3.9,71,2,2249,0)="""RTN"",""LRBEBAO"",214,0)"
^XMB(3.9,71,2,2250,0)=" .S ^TMP(""LRPXAPI"",$J,SUB1,LRBETNUM,""DIAGNOSIS 7"")=$P(LRBEPTDT,U,14)"
^XMB(3.9,71,2,2251,0)="""RTN"",""LRBEBAO"",215,0)"
^XMB(3.9,71,2,2252,0)=" I $P(LRBEPTDT,U,15)'="""" D"
^XMB(3.9,71,2,2253,0)="""RTN"",""LRBEBAO"",216,0)"
^XMB(3.9,71,2,2254,0)=" .S ^TMP(""LRPXAPI"",$J,SUB1,LRBETNUM,""DIAGNOSIS 8"")=$P(LRBEPTDT,U,15)"
^XMB(3.9,71,2,2255,0)="""RTN"",""LRBEBAO"",217,0)"
^XMB(3.9,71,2,2256,0)=" I $P(LRBEPTDT,U,16)'="""" D"
^XMB(3.9,71,2,2257,0)="""RTN"",""LRBEBAO"",218,0)"
^XMB(3.9,71,2,2258,0)=" .S ^TMP(""LRPXAPI"",$J,SUB1,LRBETNUM,""ORD REFERENCE"")=$P(LRBEPTDT,U,16)"
^XMB(3.9,71,2,2259,0)="""RTN"",""LRBEBAO"",219,0)"
^XMB(3.9,71,2,2260,0)=" I LRSWSTAT,($P(LRBETM,""."")'<LRSWDATE) D"
^XMB(3.9,71,2,2261,0)="""RTN"",""LRBEBAO"",220,0)"
^XMB(3.9,71,2,2262,0)=" .S ^TMP(""LRPXAPI"",$J,""PROCEDURE"",LRBETNUM,""DEPARTMENT"")=108"
^XMB(3.9,71,2,2263,0)="""RTN"",""LRBEBAO"",221,0)"
^XMB(3.9,71,2,2264,0)=" I $P(LRBEPTDT,U,20)'="""" D"
^XMB(3.9,71,2,2265,0)="""RTN"",""LRBEBAO"",222,0)"
^XMB(3.9,71,2,2266,0)=" .S ^TMP(""LRPXAPI"",$J,SUB1,LRBETNUM,""QTY"")=$P(LRBEPTDT,U,20)"
^XMB(3.9,71,2,2267,0)="""RTN"",""LRBEBAO"",223,0)"
^XMB(3.9,71,2,2268,0)=" I $G(^TMP(""LRPXAPI"",$J,SUB1,LRBETNUM,""DIAGNOSIS""))=0 K ^TMP(""LRPXAPI"",$J,SUB1,LRBETNUM,""DIAGNOSIS"")"
^XMB(3.9,71,2,2269,0)="""RTN"",""LRBEBAO"",224,0)"
^XMB(3.9,71,2,2270,0)=" Q"
^XMB(3.9,71,2,2271,0)="""RTN"",""LRBEBAO"",225,0)"
^XMB(3.9,71,2,2272,0)=" ;"
^XMB(3.9,71,2,2273,0)="""RTN"",""LRBEBAO"",226,0)"
^XMB(3.9,71,2,2274,0)="INIT ;Setup PCE variables"
^XMB(3.9,71,2,2275,0)="""RTN"",""LRBEBAO"",227,0)"
^XMB(3.9,71,2,2276,0)=" S INROOT=""^TMP(""""LRPXAPI"""",$J)"""
^XMB(3.9,71,2,2277,0)="""RTN"",""LRBEBAO"",228,0)"
^XMB(3.9,71,2,2278,0)=" I '$G(LRPKG) D  Q:'$G(LRPKG)"
^XMB(3.9,71,2,2279,0)="""RTN"",""LRBEBAO"",229,0)"
^XMB(3.9,71,2,2280,0)=" . S X=""LAB SERVICE"",DIC=""^DIC(9.4,"",DIC(0)=""Z"" D ^DIC"
^XMB(3.9,71,2,2281,0)="""RTN"",""LRBEBAO"",230,0)"
^XMB(3.9,71,2,2282,0)=" . I Y S LRPKG=+Y"
^XMB(3.9,71,2,2283,0)="""RTN"",""LRBEBAO"",231,0)"
^XMB(3.9,71,2,2284,0)=" S SRC=""LAB DATA"",USR=DUZ,(LRBETNUM,ERRDIS)=0"
^XMB(3.9,71,2,2285,0)="""RTN"",""LRBEBAO"",232,0)"
^XMB(3.9,71,2,2286,0)=" K DIC"
^XMB(3.9,71,2,2287,0)="""RTN"",""LRBEBAO"",233,0)"
^XMB(3.9,71,2,2288,0)=" Q"
^XMB(3.9,71,2,2289,0)="""RTN"",""LRBEBAO"",234,0)"
^XMB(3.9,71,2,2290,0)="PCETM(LRBETM) ;Return date/time without seconds"
^XMB(3.9,71,2,2291,0)="""RTN"",""LRBEBAO"",235,0)"
^XMB(3.9,71,2,2292,0)=" N PCETM"
^XMB(3.9,71,2,2293,0)="""RTN"",""LRBEBAO"",236,0)"
^XMB(3.9,71,2,2294,0)=" S LRBETM=$G(LRBETM)"
^XMB(3.9,71,2,2295,0)="""RTN"",""LRBEBAO"",237,0)"
^XMB(3.9,71,2,2296,0)=" Q:'LRBETM LRBETM"
^XMB(3.9,71,2,2297,0)="""RTN"",""LRBEBAO"",238,0)"
^XMB(3.9,71,2,2298,0)=" S PCETM=$E($P(LRBETM,""."",2),1,4)"
^XMB(3.9,71,2,2299,0)="""RTN"",""LRBEBAO"",239,0)"
^XMB(3.9,71,2,2300,0)=" F  Q:($L(PCETM)=4)  S PCETM=PCETM_0"
^XMB(3.9,71,2,2301,0)="""RTN"",""LRBEBAO"",240,0)"
^XMB(3.9,71,2,2302,0)=" I PCETM>2359 S PCETM=2359"
^XMB(3.9,71,2,2303,0)="""RTN"",""LRBEBAO"",241,0)"
^XMB(3.9,71,2,2304,0)=" I $E(PCETM,3,4)>59 S PCETM=$E(PCETM,1,2)_59"
^XMB(3.9,71,2,2305,0)="""RTN"",""LRBEBAO"",242,0)"
^XMB(3.9,71,2,2306,0)=" I 'PCETM S PCETM=""0001"""
^XMB(3.9,71,2,2307,0)="""RTN"",""LRBEBAO"",243,0)"
^XMB(3.9,71,2,2308,0)=" S $P(LRBETM,""."",2)=PCETM"
^XMB(3.9,71,2,2309,0)="""RTN"",""LRBEBAO"",244,0)"
^XMB(3.9,71,2,2310,0)=" Q LRBETM"
^XMB(3.9,71,2,2311,0)="""RTN"",""LRBEPRPT"")"
^XMB(3.9,71,2,2312,0)="0^6^B38192060^B37091351"
^XMB(3.9,71,2,2313,0)="""RTN"",""LRBEPRPT"",1,0)"
^XMB(3.9,71,2,2314,0)="LRBEPRPT ;DALOI/FHS - PRINT CPT CODES FOR TESTS AND PANELS ;03/30/2005"
^XMB(3.9,71,2,2315,0)="""RTN"",""LRBEPRPT"",2,0)"
^XMB(3.9,71,2,2316,0)=" ;;5.2;LAB SERVICE;**291,359**;Sep 27, 1994"
^XMB(3.9,71,2,2317,0)="""RTN"",""LRBEPRPT"",3,0)"
^XMB(3.9,71,2,2318,0)="BEBA ;Individual test CPT code look-up"
^XMB(3.9,71,2,2319,0)="""RTN"",""LRBEPRPT"",4,0)"
^XMB(3.9,71,2,2320,0)=" K ^TMP(""LR"",$J,""VTO""),^TMP(""LR"",$J,""TMP"")"
^XMB(3.9,71,2,2321,0)="""RTN"",""LRBEPRPT"",5,0)"
^XMB(3.9,71,2,2322,0)=" S (LRBEPSY,LRBECPT)="""" K DIR,X,Y,LRSTOP,LRPG"
^XMB(3.9,71,2,2323,0)="""RTN"",""LRBEPRPT"",6,0)"
^XMB(3.9,71,2,2324,0)=" S LRBECDT=DT"
^XMB(3.9,71,2,2325,0)="""RTN"",""LRBEPRPT"",7,0)"
^XMB(3.9,71,2,2326,0)=" S DIR(0)=""PO^60:AQEZNM"""
^XMB(3.9,71,2,2327,0)="""RTN"",""LRBEPRPT"",8,0)"
^XMB(3.9,71,2,2328,0)=" S DIR(""S"")=""I $S('$L($P(^(0),U,3)):0,$P(^(0),U,3)=""""N"""":0,1:1)"""
^XMB(3.9,71,2,2329,0)="""RTN"",""LRBEPRPT"",9,0)"
^XMB(3.9,71,2,2330,0)=" D ^DIR K DIR"
^XMB(3.9,71,2,2331,0)="""RTN"",""LRBEPRPT"",10,0)"
^XMB(3.9,71,2,2332,0)=" I $G(Y)<1 D CLEAN Q"
^XMB(3.9,71,2,2333,0)="""RTN"",""LRBEPRPT"",11,0)"
^XMB(3.9,71,2,2334,0)=" W @IOF"
^XMB(3.9,71,2,2335,0)="""RTN"",""LRBEPRPT"",12,0)"
^XMB(3.9,71,2,2336,0)=" S LRBELOP=1,LRBEBY=Y,LRPRT=0"
^XMB(3.9,71,2,2337,0)="""RTN"",""LRBEPRPT"",13,0)"
^XMB(3.9,71,2,2338,0)=" D LOOP"
^XMB(3.9,71,2,2339,0)="""RTN"",""LRBEPRPT"",14,0)"
^XMB(3.9,71,2,2340,0)=" I $G(OUT) D  Q"
^XMB(3.9,71,2,2341,0)="""RTN"",""LRBEPRPT"",15,0)"
^XMB(3.9,71,2,2342,0)=" . W !,+LRBEBY_""  = ""_$P(^LAB(60,+LRBEBY,0),U)"
^XMB(3.9,71,2,2343,0)="""RTN"",""LRBEPRPT"",16,0)"
^XMB(3.9,71,2,2344,0)=" . W !,""**********     "",""Invalid data prevents display."",!"
^XMB(3.9,71,2,2345,0)="""RTN"",""LRBEPRPT"",17,0)"
^XMB(3.9,71,2,2346,0)=" D:'$G(OUT) T1"
^XMB(3.9,71,2,2347,0)="""RTN"",""LRBEPRPT"",18,0)"
^XMB(3.9,71,2,2348,0)=" D CLEAN"
^XMB(3.9,71,2,2349,0)="""RTN"",""LRBEPRPT"",19,0)"
^XMB(3.9,71,2,2350,0)=" G BEBA"
^XMB(3.9,71,2,2351,0)="""RTN"",""LRBEPRPT"",20,0)"
^XMB(3.9,71,2,2352,0)="LOOP ;"
^XMB(3.9,71,2,2353,0)="""RTN"",""LRBEPRPT"",21,0)"
^XMB(3.9,71,2,2354,0)=" Q:$G(LRBEPSY)!($G(LRSTOP))"
^XMB(3.9,71,2,2355,0)="""RTN"",""LRBEPRPT"",22,0)"
^XMB(3.9,71,2,2356,0)=" S:'$G(LRSPEC) LRSPEC=99999999 S:'$G(LRBECDT) LRBECDT=DT"
^XMB(3.9,71,2,2357,0)="""RTN"",""LRBEPRPT"",23,0)"
^XMB(3.9,71,2,2358,0)=" K DIC,LRTEST,LRNAME,LRNLT,T1,LRY,LRBECPT,LRORD"
^XMB(3.9,71,2,2359,0)="""RTN"",""LRBEPRPT"",24,0)"
^XMB(3.9,71,2,2360,0)=" K LRM,LRMX"
^XMB(3.9,71,2,2361,0)="""RTN"",""LRBEPRPT"",25,0)"
^XMB(3.9,71,2,2362,0)=" K ^TMP(""LR"",$J,""VTO""),^TMP(""LR"",$J,""TMP"")"
^XMB(3.9,71,2,2363,0)="""RTN"",""LRBEPRPT"",26,0)"
^XMB(3.9,71,2,2364,0)=" S LRBECPT="""""
^XMB(3.9,71,2,2365,0)="""RTN"",""LRBEPRPT"",27,0)"
^XMB(3.9,71,2,2366,0)=" S X=+LRBEBY_U_+LRBEBY,LRNLT=+LRBEBY,LRTEST(1,""P"")=LRNLT_U_$$NLT^LRVER1(LRNLT)"
^XMB(3.9,71,2,2367,0)="""RTN"",""LRBEPRPT"",28,0)"
^XMB(3.9,71,2,2368,0)=" S T1=1,LRTEST(T1)=+LRBEBY_U_^LAB(60,+LRBEBY,0)"
^XMB(3.9,71,2,2369,0)="""RTN"",""LRBEPRPT"",29,0)"
^XMB(3.9,71,2,2370,0)=" S OUT=0,XX=$P(LRTEST(T1),U,6) D  Q:OUT"
^XMB(3.9,71,2,2371,0)="""RTN"",""LRBEPRPT"",30,0)"
^XMB(3.9,71,2,2372,0)=" . I XX'="""",+$P(XX,"";"",2)=0 S OUT=1 Q"
^XMB(3.9,71,2,2373,0)="""RTN"",""LRBEPRPT"",31,0)"
^XMB(3.9,71,2,2374,0)=" . I XX'="""" S LRBEY(+LRBEBY,+$P(XX,"";"",2))="""""
^XMB(3.9,71,2,2375,0)="""RTN"",""LRBEPRPT"",32,0)"
^XMB(3.9,71,2,2376,0)=" . I $D(^LAB(60,+LRBEBY,2)) D"
^XMB(3.9,71,2,2377,0)="""RTN"",""LRBEPRPT"",33,0)"
^XMB(3.9,71,2,2378,0)=" . . S I=0 F  S I=$O(^LAB(60,+LRBEBY,2,I)) Q:'I  D"
^XMB(3.9,71,2,2379,0)="""RTN"",""LRBEPRPT"",34,0)"
^XMB(3.9,71,2,2380,0)=" . . . S K=$P(^LAB(60,+LRBEBY,2,I,0),U,1)"
^XMB(3.9,71,2,2381,0)="""RTN"",""LRBEPRPT"",35,0)"
^XMB(3.9,71,2,2382,0)=" . . . S XX=$P(^LAB(60,K,0),U,5) I XX'="""",+$P(XX,"";"",2)=0 S OUT=1 Q"
^XMB(3.9,71,2,2383,0)="""RTN"",""LRBEPRPT"",36,0)"
^XMB(3.9,71,2,2384,0)=" . . . S LRBEY(+LRBEBY,+$P(XX,"";"",2))="""""
^XMB(3.9,71,2,2385,0)="""RTN"",""LRBEPRPT"",37,0)"
^XMB(3.9,71,2,2386,0)=" K LRBECPT"
^XMB(3.9,71,2,2387,0)="""RTN"",""LRBEPRPT"",38,0)"
^XMB(3.9,71,2,2388,0)=" S LRBETST=0,(LRPANEL,LRBEPYS)="""""
^XMB(3.9,71,2,2389,0)="""RTN"",""LRBEPRPT"",39,0)"
^XMB(3.9,71,2,2390,0)=" S LRBETST=$O(LRBEY(LRBETST)) Q:LRBETST<1!($G(LRSTOP))  D"
^XMB(3.9,71,2,2391,0)="""RTN"",""LRBEPRPT"",40,0)"
^XMB(3.9,71,2,2392,0)=" . Q:'$G(^LAB(60,LRBETST,12))"
^XMB(3.9,71,2,2393,0)="""RTN"",""LRBEPRPT"",41,0)"
^XMB(3.9,71,2,2394,0)=" . Q:$L($P(^LAB(60,LRBETST,0),U,5))"
^XMB(3.9,71,2,2395,0)="""RTN"",""LRBEPRPT"",42,0)"
^XMB(3.9,71,2,2396,0)=" . D PANEL^LRBEBA4"
^XMB(3.9,71,2,2397,0)="""RTN"",""LRBEPRPT"",43,0)"
^XMB(3.9,71,2,2398,0)=" . I '$O(LRBECPT(LRBETST,0)) Q"
^XMB(3.9,71,2,2399,0)="""RTN"",""LRBEPRPT"",44,0)"
^XMB(3.9,71,2,2400,0)=" . S LRPANEL=""*"""
^XMB(3.9,71,2,2401,0)="""RTN"",""LRBEPRPT"",45,0)"
^XMB(3.9,71,2,2402,0)=" . S LRBEPSY=1 D DISPLAY"
^XMB(3.9,71,2,2403,0)="""RTN"",""LRBEPRPT"",46,0)"
^XMB(3.9,71,2,2404,0)=" . S (LRPANEL)="""""
^XMB(3.9,71,2,2405,0)="""RTN"",""LRBEPRPT"",47,0)"
^XMB(3.9,71,2,2406,0)=" . W !"
^XMB(3.9,71,2,2407,0)="""RTN"",""LRBEPRPT"",48,0)"
^XMB(3.9,71,2,2408,0)="PANEL ;Display panel test CPT"
^XMB(3.9,71,2,2409,0)="""RTN"",""LRBEPRPT"",49,0)"
^XMB(3.9,71,2,2410,0)=" I $G(LRBEPSY) K LRBECPT Q"
^XMB(3.9,71,2,2411,0)="""RTN"",""LRBEPRPT"",50,0)"
^XMB(3.9,71,2,2412,0)=" I $O(LRBECPT(0)) D  Q:$G(LRBELOP)!($G(LRSTOP))"
^XMB(3.9,71,2,2413,0)="""RTN"",""LRBEPRPT"",51,0)"
^XMB(3.9,71,2,2414,0)=" . S LRBEPYS=1 D DISPLAY"
^XMB(3.9,71,2,2415,0)="""RTN"",""LRBEPRPT"",52,0)"
^XMB(3.9,71,2,2416,0)=" Q:$S($G(LRBEPO):1,$G(LRBEPYS):1,1:0)"
^XMB(3.9,71,2,2417,0)="""RTN"",""LRBEPRPT"",53,0)"
^XMB(3.9,71,2,2418,0)=" K LRBECPT"
^XMB(3.9,71,2,2419,0)="""RTN"",""LRBEPRPT"",54,0)"
^XMB(3.9,71,2,2420,0)=" S LRTST=0,LRBETST=+LRBEBY"
^XMB(3.9,71,2,2421,0)="""RTN"",""LRBEPRPT"",55,0)"
^XMB(3.9,71,2,2422,0)="NLT ;"
^XMB(3.9,71,2,2423,0)="""RTN"",""LRBEPRPT"",56,0)"
^XMB(3.9,71,2,2424,0)=" S LRBECDT=DT D PANEL^LRBEBA4"
^XMB(3.9,71,2,2425,0)="""RTN"",""LRBEPRPT"",57,0)"
^XMB(3.9,71,2,2426,0)=" Q:'$O(LRBECPT(0))"
^XMB(3.9,71,2,2427,0)="""RTN"",""LRBEPRPT"",58,0)"
^XMB(3.9,71,2,2428,0)=" S LRI=0 F  S LRI=$O(LRBECPT(LRBETST,LRI)) Q:LRI<1!($G(LRSTOP))  D"
^XMB(3.9,71,2,2429,0)="""RTN"",""LRBEPRPT"",59,0)"
^XMB(3.9,71,2,2430,0)=" . D LN Q:$G(LRSTOP)"
^XMB(3.9,71,2,2431,0)="""RTN"",""LRBEPRPT"",60,0)"
^XMB(3.9,71,2,2432,0)=" . ;W !,""{""_LRBETST_""=""_$P(^LAB(60,LRBETST,0),U)_""} ""_$P($G(LRBEBY),U,2)"
^XMB(3.9,71,2,2433,0)="""RTN"",""LRBEPRPT"",61,0)"
^XMB(3.9,71,2,2434,0)=" . ;W:$D(^LAB(61,LRSPEC,0))#2 ""  (SPEC) = ""_$E($P(^(0),U),1,30)"
^XMB(3.9,71,2,2435,0)="""RTN"",""LRBEPRPT"",62,0)"
^XMB(3.9,71,2,2436,0)=" . S LRREQ=$S($P($G(^LAB(60,LRBETST,0)),U,17):""r "",1:"" "")"
^XMB(3.9,71,2,2437,0)="""RTN"",""LRBEPRPT"",63,0)"
^XMB(3.9,71,2,2438,0)=" . W !,LRBETST_"" = ""_LRREQ_$P($G(LRBEBY),U,2)_""  ""  ;_$P(^LAB(60,LRBETST,0),U)"
^XMB(3.9,71,2,2439,0)="""RTN"",""LRBEPRPT"",64,0)"
^XMB(3.9,71,2,2440,0)=" . W:$D(^LAB(61,LRSPEC,0))#2 "" (SPEC) = ""_$E($P(^(0),U),1,30)"
^XMB(3.9,71,2,2441,0)="""RTN"",""LRBEPRPT"",65,0)"
^XMB(3.9,71,2,2442,0)=" . D WRT"
^XMB(3.9,71,2,2443,0)="""RTN"",""LRBEPRPT"",66,0)"
^XMB(3.9,71,2,2444,0)=" Q"
^XMB(3.9,71,2,2445,0)="""RTN"",""LRBEPRPT"",67,0)"
^XMB(3.9,71,2,2446,0)=" ;"
^XMB(3.9,71,2,2447,0)="""RTN"",""LRBEPRPT"",68,0)"
^XMB(3.9,71,2,2448,0)="DISPLAY ;"
^XMB(3.9,71,2,2449,0)="""RTN"",""LRBEPRPT"",69,0)"
^XMB(3.9,71,2,2450,0)=" Q:$G(LRSTOP)  K LRREQ"
^XMB(3.9,71,2,2451,0)="""RTN"",""LRBEPRPT"",70,0)"
^XMB(3.9,71,2,2452,0)=" I $O(LRBECPT(0)),'$G(LRPRT) W ! S LRPRT=1"
^XMB(3.9,71,2,2453,0)="""RTN"",""LRBEPRPT"",71,0)"
^XMB(3.9,71,2,2454,0)=" S LRBETST=0 F  S LRBETST=$O(LRBECPT(LRBETST)) Q:LRBETST<1!($G(LRSTOP))  D"
^XMB(3.9,71,2,2455,0)="""RTN"",""LRBEPRPT"",72,0)"
^XMB(3.9,71,2,2456,0)=" . D LN Q:$G(LRSTOP)"
^XMB(3.9,71,2,2457,0)="""RTN"",""LRBEPRPT"",73,0)"
^XMB(3.9,71,2,2458,0)=" . S LRREQ=$S($P($G(^LAB(60,LRBETST,0)),U,17):""r "",1:"""")"
^XMB(3.9,71,2,2459,0)="""RTN"",""LRBEPRPT"",74,0)"
^XMB(3.9,71,2,2460,0)=" . W !,LRBETST_"" = ""_LRREQ_$P(^LAB(60,LRBETST,0),U) I $D(^LAB(61,LRSPEC,0))#2 W "" / ""_$P(^(0),U)"
^XMB(3.9,71,2,2461,0)="""RTN"",""LRBEPRPT"",75,0)"
^XMB(3.9,71,2,2462,0)=" . S LRI=0 F  S LRI=$O(LRBECPT(LRBETST,LRI)) Q:LRI<1  D WRT"
^XMB(3.9,71,2,2463,0)="""RTN"",""LRBEPRPT"",76,0)"
^XMB(3.9,71,2,2464,0)=" Q"
^XMB(3.9,71,2,2465,0)="""RTN"",""LRBEPRPT"",77,0)"
^XMB(3.9,71,2,2466,0)="WRT ;"
^XMB(3.9,71,2,2467,0)="""RTN"",""LRBEPRPT"",78,0)"
^XMB(3.9,71,2,2468,0)=" D LN Q:$G(LRSTOP)"
^XMB(3.9,71,2,2469,0)="""RTN"",""LRBEPRPT"",79,0)"
^XMB(3.9,71,2,2470,0)=" S LRPRT=1"
^XMB(3.9,71,2,2471,0)="""RTN"",""LRBEPRPT"",80,0)"
^XMB(3.9,71,2,2472,0)=" S LRCPT=$O(LRBECPT(LRBETST,LRI,0)) Q:'LRCPT!($G(LRSTOP))  D"
^XMB(3.9,71,2,2473,0)="""RTN"",""LRBEPRPT"",81,0)"
^XMB(3.9,71,2,2474,0)=" . D LN Q:$G(LRSTOP)"
^XMB(3.9,71,2,2475,0)="""RTN"",""LRBEPRPT"",82,0)"
^XMB(3.9,71,2,2476,0)=" . S XCODE=$$CPT^ICPTCOD(LRCPT)"
^XMB(3.9,71,2,2477,0)="""RTN"",""LRBEPRPT"",83,0)"
^XMB(3.9,71,2,2478,0)=" . W !?6,$P(XCODE,U,2)_""  ""_$P(XCODE,U,3)_""  [""_LRBECPT(LRBETST,LRI,LRCPT)_""]""_$G(LRPANEL)"
^XMB(3.9,71,2,2479,0)="""RTN"",""LRBEPRPT"",84,0)"
^XMB(3.9,71,2,2480,0)=" . K LRBECPT(LRBETST,LRI,LRCPT),XCODE"
^XMB(3.9,71,2,2481,0)="""RTN"",""LRBEPRPT"",85,0)"
^XMB(3.9,71,2,2482,0)=" Q"
^XMB(3.9,71,2,2483,0)="""RTN"",""LRBEPRPT"",86,0)"
^XMB(3.9,71,2,2484,0)=" ;"
^XMB(3.9,71,2,2485,0)="""RTN"",""LRBEPRPT"",87,0)"
^XMB(3.9,71,2,2486,0)="LN ;Check line spacing"
^XMB(3.9,71,2,2487,0)="""RTN"",""LRBEPRPT"",88,0)"
^XMB(3.9,71,2,2488,0)=" Q:$Y<(IOSL-4)!($G(LRSTOP))"
^XMB(3.9,71,2,2489,0)="""RTN"",""LRBEPRPT"",89,0)"
^XMB(3.9,71,2,2490,0)=" I $E(IOST,1)=""C"" D  Q:LRSTOP"
^XMB(3.9,71,2,2491,0)="""RTN"",""LRBEPRPT"",90,0)"
^XMB(3.9,71,2,2492,0)=" . N DIR S DIR(0)=""E"" D ^DIR S LRSTOP=$G(DIRUT)"
^XMB(3.9,71,2,2493,0)="""RTN"",""LRBEPRPT"",91,0)"
^XMB(3.9,71,2,2494,0)="HDR ;Report header"
^XMB(3.9,71,2,2495,0)="""RTN"",""LRBEPRPT"",92,0)"
^XMB(3.9,71,2,2496,0)=" W @IOF,! S LRPG=$G(LRPG)+1"
^XMB(3.9,71,2,2497,0)="""RTN"",""LRBEPRPT"",93,0)"
^XMB(3.9,71,2,2498,0)=" W $$CJ^XLFSTR($G(LRHDR)_""         ""_$$FMTE^XLFDT(DT,5)_""    Pg ""_LRPG,IOM),!"
^XMB(3.9,71,2,2499,0)="""RTN"",""LRBEPRPT"",94,0)"
^XMB(3.9,71,2,2500,0)=" Q"
^XMB(3.9,71,2,2501,0)="""RTN"",""LRBEPRPT"",95,0)"
^XMB(3.9,71,2,2502,0)=" ;"
^XMB(3.9,71,2,2503,0)="""RTN"",""LRBEPRPT"",96,0)"
^XMB(3.9,71,2,2504,0)="TEST ;List all test with CPT codes"
^XMB(3.9,71,2,2505,0)="""RTN"",""LRBEPRPT"",97,0)"
^XMB(3.9,71,2,2506,0)=" ;logic follows the Billing Aware CPT logic Hierarchy"
^XMB(3.9,71,2,2507,0)="""RTN"",""LRBEPRPT"",98,0)"
^XMB(3.9,71,2,2508,0)="  U IO"
^XMB(3.9,71,2,2509,0)="""RTN"",""LRBEPRPT"",99,0)"
^XMB(3.9,71,2,2510,0)="  I '$G(LRPG) D HDR"
^XMB(3.9,71,2,2511,0)="""RTN"",""LRBEPRPT"",100,0)"
^XMB(3.9,71,2,2512,0)=" S LRBELOP=1,LRBECDT=DT"
^XMB(3.9,71,2,2513,0)="""RTN"",""LRBEPRPT"",101,0)"
^XMB(3.9,71,2,2514,0)="  S LRTN=""^LAB(60,""""B"""")"""
^XMB(3.9,71,2,2515,0)="""RTN"",""LRBEPRPT"",102,0)"
^XMB(3.9,71,2,2516,0)=" F  Q:$G(LRSTOP)  S LRTN=$Q(@LRTN) Q:$QS(LRTN,2)'=""B""  D"
^XMB(3.9,71,2,2517,0)="""RTN"",""LRBEPRPT"",103,0)"
^XMB(3.9,71,2,2518,0)=" . Q:$G(@LRTN)"
^XMB(3.9,71,2,2519,0)="""RTN"",""LRBEPRPT"",104,0)"
^XMB(3.9,71,2,2520,0)=" . S LRSPEC=999999,LRBEBY=$QS(LRTN,4)"
^XMB(3.9,71,2,2521,0)="""RTN"",""LRBEPRPT"",105,0)"
^XMB(3.9,71,2,2522,0)=" . Q:$S('$D(^LAB(60,LRBEBY,0))#2:1,'$L($P(^(0),U,3)):1,$P(^(0),U,3)=""N"":1,1:0)"
^XMB(3.9,71,2,2523,0)="""RTN"",""LRBEPRPT"",106,0)"
^XMB(3.9,71,2,2524,0)=" . Q:$G(LRSTOP)"
^XMB(3.9,71,2,2525,0)="""RTN"",""LRBEPRPT"",107,0)"
^XMB(3.9,71,2,2526,0)=" . S LRPRT=0,LRBEPSY="""""
^XMB(3.9,71,2,2527,0)="""RTN"",""LRBEPRPT"",108,0)"
^XMB(3.9,71,2,2528,0)=" . S LRBEBY=LRBEBY_U_$P(^LAB(60,+LRBEBY,0),U)"
^XMB(3.9,71,2,2529,0)="""RTN"",""LRBEPRPT"",109,0)"
^XMB(3.9,71,2,2530,0)=" . D LOOP"
^XMB(3.9,71,2,2531,0)="""RTN"",""LRBEPRPT"",110,0)"
^XMB(3.9,71,2,2532,0)=" . Q:$G(OUT)"
^XMB(3.9,71,2,2533,0)="""RTN"",""LRBEPRPT"",111,0)"
^XMB(3.9,71,2,2534,0)=" . Q:$G(LRSTOP)"
^XMB(3.9,71,2,2535,0)="""RTN"",""LRBEPRPT"",112,0)"
^XMB(3.9,71,2,2536,0)=" . D T1"
^XMB(3.9,71,2,2537,0)="""RTN"",""LRBEPRPT"",113,0)"
^XMB(3.9,71,2,2538,0)=" . K LRBEY,LRBEBY"
^XMB(3.9,71,2,2539,0)="""RTN"",""LRBEPRPT"",114,0)"
^XMB(3.9,71,2,2540,0)=" . Q:$G(LRSTOP)"
^XMB(3.9,71,2,2541,0)="""RTN"",""LRBEPRPT"",115,0)"
^XMB(3.9,71,2,2542,0)=" D CLEAN"
^XMB(3.9,71,2,2543,0)="""RTN"",""LRBEPRPT"",116,0)"
^XMB(3.9,71,2,2544,0)=" Q"
^XMB(3.9,71,2,2545,0)="""RTN"",""LRBEPRPT"",117,0)"
^XMB(3.9,71,2,2546,0)=" ;"
^XMB(3.9,71,2,2547,0)="""RTN"",""LRBEPRPT"",118,0)"
^XMB(3.9,71,2,2548,0)="T1 ;"
^XMB(3.9,71,2,2549,0)="""RTN"",""LRBEPRPT"",119,0)"
^XMB(3.9,71,2,2550,0)=" S LRSPEC=0 F  S LRSPEC=$O(^LAB(60,+LRBEBY,1,LRSPEC)) Q:LRSPEC<1!($G(LRSTOP))  D"
^XMB(3.9,71,2,2551,0)="""RTN"",""LRBEPRPT"",120,0)"
^XMB(3.9,71,2,2552,0)=" . D LOOP"
^XMB(3.9,71,2,2553,0)="""RTN"",""LRBEPRPT"",121,0)"
^XMB(3.9,71,2,2554,0)=" . K LRBECPT"
^XMB(3.9,71,2,2555,0)="""RTN"",""LRBEPRPT"",122,0)"
^XMB(3.9,71,2,2556,0)=" Q:$G(OUT)"
^XMB(3.9,71,2,2557,0)="""RTN"",""LRBEPRPT"",123,0)"
^XMB(3.9,71,2,2558,0)=" Q:$G(LRSTOP)"
^XMB(3.9,71,2,2559,0)="""RTN"",""LRBEPRPT"",124,0)"
^XMB(3.9,71,2,2560,0)="  D ATOMIC"
^XMB(3.9,71,2,2561,0)="""RTN"",""LRBEPRPT"",125,0)"
^XMB(3.9,71,2,2562,0)=" I $G(LRPRT) W !"
^XMB(3.9,71,2,2563,0)="""RTN"",""LRBEPRPT"",126,0)"
^XMB(3.9,71,2,2564,0)=" K LRBEPSY"
^XMB(3.9,71,2,2565,0)="""RTN"",""LRBEPRPT"",127,0)"
^XMB(3.9,71,2,2566,0)=" Q"
^XMB(3.9,71,2,2567,0)="""RTN"",""LRBEPRPT"",128,0)"
^XMB(3.9,71,2,2568,0)=" ;"
^XMB(3.9,71,2,2569,0)="""RTN"",""LRBEPRPT"",129,0)"
^XMB(3.9,71,2,2570,0)="ATOMIC ; Print Atomic test of panel"
^XMB(3.9,71,2,2571,0)="""RTN"",""LRBEPRPT"",130,0)"
^XMB(3.9,71,2,2572,0)=" Q:'$O(^LAB(60,+LRBEBY,2,0))"
^XMB(3.9,71,2,2573,0)="""RTN"",""LRBEPRPT"",131,0)"
^XMB(3.9,71,2,2574,0)=" W !,+LRBEBY_"" = ""_$P(^LAB(60,+LRBEBY,0),U),!,""**********"""
^XMB(3.9,71,2,2575,0)="""RTN"",""LRBEPRPT"",132,0)"
^XMB(3.9,71,2,2576,0)=" N LRBEBSY,LRII,LRREQ"
^XMB(3.9,71,2,2577,0)="""RTN"",""LRBEPRPT"",133,0)"
^XMB(3.9,71,2,2578,0)=" S LRBEBSY=+LRBEBY N LRII S LRII=0"
^XMB(3.9,71,2,2579,0)="""RTN"",""LRBEPRPT"",134,0)"
^XMB(3.9,71,2,2580,0)=" F  S LRII=$O(^LAB(60,LRBEBSY,2,LRII)) Q:LRII<1!($G(LRSTOP))  D"
^XMB(3.9,71,2,2581,0)="""RTN"",""LRBEPRPT"",135,0)"
^XMB(3.9,71,2,2582,0)=" . S LRBEBY=+$G(^LAB(60,LRBEBSY,2,LRII,0)) Q:'LRBEBY!($G(LRSTOP))  D"
^XMB(3.9,71,2,2583,0)="""RTN"",""LRBEPRPT"",136,0)"
^XMB(3.9,71,2,2584,0)=" . . S LRREQ=$S($P($G(^LAB(60,LRBEBY,0)),U,17):""r"",1:"" "")"
^XMB(3.9,71,2,2585,0)="""RTN"",""LRBEPRPT"",137,0)"
^XMB(3.9,71,2,2586,0)=" . . I $D(^LAB(60,LRBEBY,0)) S LRBEBY=LRREQ_""[""_LRBEBY_""]  ""_$P(^(0),U) D"
^XMB(3.9,71,2,2587,0)="""RTN"",""LRBEPRPT"",138,0)"
^XMB(3.9,71,2,2588,0)=" . . . W ?15,LRBEBY,! D LN"
^XMB(3.9,71,2,2589,0)="""RTN"",""LRBEPRPT"",139,0)"
^XMB(3.9,71,2,2590,0)=" Q"
^XMB(3.9,71,2,2591,0)="""RTN"",""LRBEPRPT"",140,0)"
^XMB(3.9,71,2,2592,0)=" ;"
^XMB(3.9,71,2,2593,0)="""RTN"",""LRBEPRPT"",141,0)"
^XMB(3.9,71,2,2594,0)="ASK ;Present user with a selection of options"
^XMB(3.9,71,2,2595,0)="""RTN"",""LRBEPRPT"",142,0)"
^XMB(3.9,71,2,2596,0)=" K DIR,Y,LRSTOP,POP,ZTRTN,OUT,OPT,XX"
^XMB(3.9,71,2,2597,0)="""RTN"",""LRBEPRPT"",143,0)"
^XMB(3.9,71,2,2598,0)=" K LRDEV,ZTDTH,ZTDESC,ZTIO,ZTSAVE"
^XMB(3.9,71,2,2599,0)="""RTN"",""LRBEPRPT"",144,0)"
^XMB(3.9,71,2,2600,0)=" S OUT=0"
^XMB(3.9,71,2,2601,0)="""RTN"",""LRBEPRPT"",145,0)"
^XMB(3.9,71,2,2602,0)=" S LRBECDT=DT"
^XMB(3.9,71,2,2603,0)="""RTN"",""LRBEPRPT"",146,0)"
^XMB(3.9,71,2,2604,0)=" S DIR(0)=""SO^1:Single Test Look-up;2:List Panels Only;3:List All Test"""
^XMB(3.9,71,2,2605,0)="""RTN"",""LRBEPRPT"",147,0)"
^XMB(3.9,71,2,2606,0)="  D ^DIR K DIR"
^XMB(3.9,71,2,2607,0)="""RTN"",""LRBEPRPT"",148,0)"
^XMB(3.9,71,2,2608,0)=" I Y<1 G CLEAN"
^XMB(3.9,71,2,2609,0)="""RTN"",""LRBEPRPT"",149,0)"
^XMB(3.9,71,2,2610,0)=" S OPT=Y"
^XMB(3.9,71,2,2611,0)="""RTN"",""LRBEPRPT"",150,0)"
^XMB(3.9,71,2,2612,0)=" I OPT=1 D  G ASK"
^XMB(3.9,71,2,2613,0)="""RTN"",""LRBEPRPT"",151,0)"
^XMB(3.9,71,2,2614,0)=" . S LRHDR=""*** Single Test code listing (CPT) ***"""
^XMB(3.9,71,2,2615,0)="""RTN"",""LRBEPRPT"",152,0)"
^XMB(3.9,71,2,2616,0)=" . D BEBA"
^XMB(3.9,71,2,2617,0)="""RTN"",""LRBEPRPT"",153,0)"
^XMB(3.9,71,2,2618,0)=" I OPT=2 D  G ASK"
^XMB(3.9,71,2,2619,0)="""RTN"",""LRBEPRPT"",154,0)"
^XMB(3.9,71,2,2620,0)=" . S LRHDR=""*** Panel Tests Only (CPT) ***"",LRBEPO=1"
^XMB(3.9,71,2,2621,0)="""RTN"",""LRBEPRPT"",155,0)"
^XMB(3.9,71,2,2622,0)=" . D DEV I $G(POP) D ^%ZISC Q"
^XMB(3.9,71,2,2623,0)="""RTN"",""LRBEPRPT"",156,0)"
^XMB(3.9,71,2,2624,0)=" . I IO'=IO(0) D  Q"
^XMB(3.9,71,2,2625,0)="""RTN"",""LRBEPRPT"",157,0)"
^XMB(3.9,71,2,2626,0)=" . . S ZTSAVE(""LRBEPO"")="""""
^XMB(3.9,71,2,2627,0)="""RTN"",""LRBEPRPT"",158,0)"
^XMB(3.9,71,2,2628,0)=" . . S ZTRTN=""TEST^LRBEPRPT"""
^XMB(3.9,71,2,2629,0)="""RTN"",""LRBEPRPT"",159,0)"
^XMB(3.9,71,2,2630,0)=" . . D LOAD"
^XMB(3.9,71,2,2631,0)="""RTN"",""LRBEPRPT"",160,0)"
^XMB(3.9,71,2,2632,0)=" . D TEST"
^XMB(3.9,71,2,2633,0)="""RTN"",""LRBEPRPT"",161,0)"
^XMB(3.9,71,2,2634,0)=" I OPT=3 D  G ASK"
^XMB(3.9,71,2,2635,0)="""RTN"",""LRBEPRPT"",162,0)"
^XMB(3.9,71,2,2636,0)=" . D DEV I $G(POP) D ^%ZISC Q"
^XMB(3.9,71,2,2637,0)="""RTN"",""LRBEPRPT"",163,0)"
^XMB(3.9,71,2,2638,0)=" . S LRHDR=""*** All Lab Tests (CPT) ***"""
^XMB(3.9,71,2,2639,0)="""RTN"",""LRBEPRPT"",164,0)"
^XMB(3.9,71,2,2640,0)=" . I IO'=IO(0) D  Q"
^XMB(3.9,71,2,2641,0)="""RTN"",""LRBEPRPT"",165,0)"
^XMB(3.9,71,2,2642,0)=" . . S ZTRTN=""TEST^LRBEPRPT"""
^XMB(3.9,71,2,2643,0)="""RTN"",""LRBEPRPT"",166,0)"
^XMB(3.9,71,2,2644,0)=" . . D LOAD"
^XMB(3.9,71,2,2645,0)="""RTN"",""LRBEPRPT"",167,0)"
^XMB(3.9,71,2,2646,0)=" . D TEST"
^XMB(3.9,71,2,2647,0)="""RTN"",""LRBEPRPT"",168,0)"
^XMB(3.9,71,2,2648,0)=" Q"
^XMB(3.9,71,2,2649,0)="""RTN"",""LRBEPRPT"",169,0)"
^XMB(3.9,71,2,2650,0)=" ;"
^XMB(3.9,71,2,2651,0)="""RTN"",""LRBEPRPT"",170,0)"
^XMB(3.9,71,2,2652,0)="DEV ;Select print device"
^XMB(3.9,71,2,2653,0)="""RTN"",""LRBEPRPT"",171,0)"
^XMB(3.9,71,2,2654,0)=" N %ZIS,LRMSG,ZTDESC,ZTDTH,ZTIO,ZTSK,ZTSAVE"
^XMB(3.9,71,2,2655,0)="""RTN"",""LRBEPRPT"",172,0)"
^XMB(3.9,71,2,2656,0)=" S %ZIS=""NQ"",%ZIS(""A"")="" Select Print Device: """
^XMB(3.9,71,2,2657,0)="""RTN"",""LRBEPRPT"",173,0)"
^XMB(3.9,71,2,2658,0)=" S (LRDEV,%ZIS(""B""))=""Home"" D ^%ZIS"
^XMB(3.9,71,2,2659,0)="""RTN"",""LRBEPRPT"",174,0)"
^XMB(3.9,71,2,2660,0)=" Q"
^XMB(3.9,71,2,2661,0)="""RTN"",""LRBEPRPT"",175,0)"
^XMB(3.9,71,2,2662,0)="LOAD ;%ZTLOAD section"
^XMB(3.9,71,2,2663,0)="""RTN"",""LRBEPRPT"",176,0)"
^XMB(3.9,71,2,2664,0)=" S ZTDTH=$H"
^XMB(3.9,71,2,2665,0)="""RTN"",""LRBEPRPT"",177,0)"
^XMB(3.9,71,2,2666,0)=" S ZTDESC=$G(LRHDR)"
^XMB(3.9,71,2,2667,0)="""RTN"",""LRBEPRPT"",178,0)"
^XMB(3.9,71,2,2668,0)=" S (LRDEV,ZTIO)=ION,ZTSAVE(""LRHDR"")="""""
^XMB(3.9,71,2,2669,0)="""RTN"",""LRBEPRPT"",179,0)"
^XMB(3.9,71,2,2670,0)=" D ^%ZTLOAD W @IOF,!,$S($G(ZTSK):""Queued to device ""_LRDEV,1:""Not Queued""),!"
^XMB(3.9,71,2,2671,0)="""RTN"",""LRBEPRPT"",180,0)"
^XMB(3.9,71,2,2672,0)=" D ^%ZISC"
^XMB(3.9,71,2,2673,0)="""RTN"",""LRBEPRPT"",181,0)"
^XMB(3.9,71,2,2674,0)=" D HOME^%ZIS"
^XMB(3.9,71,2,2675,0)="""RTN"",""LRBEPRPT"",182,0)"
^XMB(3.9,71,2,2676,0)=" Q"
^XMB(3.9,71,2,2677,0)="""RTN"",""LRBEPRPT"",183,0)"
^XMB(3.9,71,2,2678,0)=" ;"
^XMB(3.9,71,2,2679,0)="""RTN"",""LRBEPRPT"",184,0)"
^XMB(3.9,71,2,2680,0)="CLEAN ;Clean-up"
^XMB(3.9,71,2,2681,0)="""RTN"",""LRBEPRPT"",185,0)"
^XMB(3.9,71,2,2682,0)=" W:$D(ZTQUEUED) @IOF"
^XMB(3.9,71,2,2683,0)="""RTN"",""LRBEPRPT"",186,0)"
^XMB(3.9,71,2,2684,0)=" K DIC,DIR,DIRUT,DTOUT,DUOUT"
^XMB(3.9,71,2,2685,0)="""RTN"",""LRBEPRPT"",187,0)"
^XMB(3.9,71,2,2686,0)=" K LRBEBY,LRBECPT,LRBECDT,LRBEDT,LRBELOP,LRBEPYS,LRBEYS,LRBENLT,LRBETST,LRBEY,LRCFL"
^XMB(3.9,71,2,2687,0)="""RTN"",""LRBEPRPT"",188,0)"
^XMB(3.9,71,2,2688,0)=" K LRCPT,LRI,LRIEN,LRM,LRMX,LRNAME,LRNLT,LRNX,LRORD,LRBEPO,LRPANEL,LRPRT"
^XMB(3.9,71,2,2689,0)="""RTN"",""LRBEPRPT"",189,0)"
^XMB(3.9,71,2,2690,0)=" K LRSPEC,LRSTOP,LRSUB,LRTEST,LRTN,LRTST,LRXX,LRY,S2,T1,X,Y,YY"
^XMB(3.9,71,2,2691,0)="""RTN"",""LRBEPRPT"",190,0)"
^XMB(3.9,71,2,2692,0)=" K LRHDR,LRDEV,LRPG,POP"
^XMB(3.9,71,2,2693,0)="""RTN"",""LRBEPRPT"",191,0)"
^XMB(3.9,71,2,2694,0)=" K ^TMP(""LR"",$J,""VTO""),^TMP(""LR"",$J,""TMP"")"
^XMB(3.9,71,2,2695,0)="""RTN"",""LRBEPRPT"",192,0)"
^XMB(3.9,71,2,2696,0)=" D ^%ZISC"
^XMB(3.9,71,2,2697,0)="""RTN"",""LRBEPRPT"",193,0)"
^XMB(3.9,71,2,2698,0)=" Q"
^XMB(3.9,71,2,2699,0)="""RTN"",""LRCAPPH1"")"
^XMB(3.9,71,2,2700,0)="0^7^B56348077^B49109396"
^XMB(3.9,71,2,2701,0)="""RTN"",""LRCAPPH1"",1,0)"
^XMB(3.9,71,2,2702,0)="LRCAPPH1 ;DALOI/SED/RKS/KLL - PROCESS PHLEBOTOMY WORKLOAD DATA CONT ;07/30/04"
^XMB(3.9,71,2,2703,0)="""RTN"",""LRCAPPH1"",2,0)"
^XMB(3.9,71,2,2704,0)=" ;;5.2;LAB SERVICE;**127,136,138,158,263,264,274,291,359**;Sep 27, 1994"
^XMB(3.9,71,2,2705,0)="""RTN"",""LRCAPPH1"",3,0)"
^XMB(3.9,71,2,2706,0)=" ; Reference to  ^SC( Supported by DBIA #1482"
^XMB(3.9,71,2,2707,0)="""RTN"",""LRCAPPH1"",4,0)"
^XMB(3.9,71,2,2708,0)=" ; Reference to  $$CODM^ICPTCOD Supported by DBIA #1995-A"
^XMB(3.9,71,2,2709,0)="""RTN"",""LRCAPPH1"",5,0)"
^XMB(3.9,71,2,2710,0)=" ; Reference to  $$CPT^ICPTCOD Supported by DBIA #1995-A"
^XMB(3.9,71,2,2711,0)="""RTN"",""LRCAPPH1"",6,0)"
^XMB(3.9,71,2,2712,0)=" ; Reference to  $$DATA2PCE^PXAPI Supported by DBIA #1889-A"
^XMB(3.9,71,2,2713,0)="""RTN"",""LRCAPPH1"",7,0)"
^XMB(3.9,71,2,2714,0)=" ; Reference to  $$DELVFILE^PXAPI Supported by DBIA #1889-B"
^XMB(3.9,71,2,2715,0)="""RTN"",""LRCAPPH1"",8,0)"
^XMB(3.9,71,2,2716,0)=" ; Reference to  ENCEVENT^PXKENC Supported by DBIA #1889-F"
^XMB(3.9,71,2,2717,0)="""RTN"",""LRCAPPH1"",9,0)"
^XMB(3.9,71,2,2718,0)=" ; Reference to  $$NOW^XLFDT Supported by Reference #10103"
^XMB(3.9,71,2,2719,0)="""RTN"",""LRCAPPH1"",10,0)"
^XMB(3.9,71,2,2720,0)=" ; Reference to  $$GET^XUA4A72 Supported by Reference #1625"
^XMB(3.9,71,2,2721,0)="""RTN"",""LRCAPPH1"",11,0)"
^XMB(3.9,71,2,2722,0)="EN3 ;LREDT = PATIENT ENCOUNTER DATE"
^XMB(3.9,71,2,2723,0)="""RTN"",""LRCAPPH1"",12,0)"
^XMB(3.9,71,2,2724,0)=" N LREDT,LRNOP,LRBEID"
^XMB(3.9,71,2,2725,0)="""RTN"",""LRCAPPH1"",13,0)"
^XMB(3.9,71,2,2726,0)=" K ^TMP(""LRPXAPI"",$J),LRXTST,LRVSITN,LRXCPT"
^XMB(3.9,71,2,2727,0)="""RTN"",""LRCAPPH1"",14,0)"
^XMB(3.9,71,2,2728,0)="NP ;Not perform entry"
^XMB(3.9,71,2,2729,0)="""RTN"",""LRCAPPH1"",15,0)"
^XMB(3.9,71,2,2730,0)=" S:$D(^LRO(69,""AA"",LRCEX,LROA)) ^(LROA)="""""
^XMB(3.9,71,2,2731,0)="""RTN"",""LRCAPPH1"",16,0)"
^XMB(3.9,71,2,2732,0)=" S LREDT=$P($G(^LRO(69,LRCDT,1,LRSN,1)),U)"
^XMB(3.9,71,2,2733,0)="""RTN"",""LRCAPPH1"",17,0)"
^XMB(3.9,71,2,2734,0)=" N LRDUZ"
^XMB(3.9,71,2,2735,0)="""RTN"",""LRCAPPH1"",18,0)"
^XMB(3.9,71,2,2736,0)=" Q:+LREDT'>0!('$D(^LR(+NODE,0))#2)"
^XMB(3.9,71,2,2737,0)="""RTN"",""LRCAPPH1"",19,0)"
^XMB(3.9,71,2,2738,0)=" S:$G(LRDBUG) LREDT=$$NOW^XLFDT"
^XMB(3.9,71,2,2739,0)="""RTN"",""LRCAPPH1"",20,0)"
^XMB(3.9,71,2,2740,0)=" S EDATE=$P(LREDT,""."")"
^XMB(3.9,71,2,2741,0)="""RTN"",""LRCAPPH1"",21,0)"
^XMB(3.9,71,2,2742,0)=" S:'$P(LREDT,""."",2) $P(LREDT,""."",2)=""1201"""
^XMB(3.9,71,2,2743,0)="""RTN"",""LRCAPPH1"",22,0)"
^XMB(3.9,71,2,2744,0)=" S LOC=+$P(NODE,U,9),LRNINS=$P(NODE(1),U,8),LRPRO=+$P(NODE,U,6) ;CHECK"
^XMB(3.9,71,2,2745,0)="""RTN"",""LRCAPPH1"",23,0)"
^XMB(3.9,71,2,2746,0)=" S LRDUZ=+$P(NODE,U,2)"
^XMB(3.9,71,2,2747,0)="""RTN"",""LRCAPPH1"",24,0)"
^XMB(3.9,71,2,2748,0)=" S LRNINS=$S($P($G(^SC(LOC,0)),U,4):$P(^(0),U,4),$G(LRNINS):LRNINS,1:LRINS)"
^XMB(3.9,71,2,2749,0)="""RTN"",""LRCAPPH1"",25,0)"
^XMB(3.9,71,2,2750,0)=" S LRPRO=$S($$GET^XUA4A72(LRPRO,EDATE)>0:LRPRO,1:LRDPRAC)"
^XMB(3.9,71,2,2751,0)="""RTN"",""LRCAPPH1"",26,0)"
^XMB(3.9,71,2,2752,0)=" I $S('$G(LOC):1,""CMZ""'[$P($G(^SC(LOC,0)),U,3):1,1:0) Q"
^XMB(3.9,71,2,2753,0)="""RTN"",""LRCAPPH1"",27,0)"
^XMB(3.9,71,2,2754,0)=" I $S('DFN:1,'LOC:1,1:0) S:$D(^LRO(69,""AA"",LRCEX,LROA)) ^(LROA)=1 S LRNOP=1 Q"
^XMB(3.9,71,2,2755,0)="""RTN"",""LRCAPPH1"",28,0)"
^XMB(3.9,71,2,2756,0)=" I 'LRNINS S:$D(^LRO(69,""AA"",LRCEX,LROA)) ^(LROA)=2 S LRNOP=2 Q"
^XMB(3.9,71,2,2757,0)="""RTN"",""LRCAPPH1"",29,0)"
^XMB(3.9,71,2,2758,0)=" I 'LRPRO S:$D(^LRO(69,""AA"",LRCEX,LROA)) ^(LROA)=3 S LRNOP=3 Q"
^XMB(3.9,71,2,2759,0)="""RTN"",""LRCAPPH1"",30,0)"
^XMB(3.9,71,2,2760,0)=" Q:$G(LRNP)"
^XMB(3.9,71,2,2761,0)="""RTN"",""LRCAPPH1"",31,0)"
^XMB(3.9,71,2,2762,0)="EN5 ;GET THE CPT CODES FOR THE TESTS"
^XMB(3.9,71,2,2763,0)="""RTN"",""LRCAPPH1"",32,0)"
^XMB(3.9,71,2,2764,0)=" I LRCDT,LRSN,$D(^LRO(69,LRCDT,1,LRSN,2,0)) D"
^XMB(3.9,71,2,2765,0)="""RTN"",""LRCAPPH1"",33,0)"
^XMB(3.9,71,2,2766,0)=" . S (LRTST,LRCNT,LRXAA)=0 K LRXTST S LRXTST="""""
^XMB(3.9,71,2,2767,0)="""RTN"",""LRCAPPH1"",34,0)"
^XMB(3.9,71,2,2768,0)=" . F  S LRTST=$O(^LRO(69,LRCDT,1,LRSN,2,LRTST)) Q:+LRTST'>0  D"
^XMB(3.9,71,2,2769,0)="""RTN"",""LRCAPPH1"",35,0)"
^XMB(3.9,71,2,2770,0)=" . . Q:'$D(^LRO(69,LRCDT,1,LRSN,2,LRTST,0))#2  S LREN5=^(0)"
^XMB(3.9,71,2,2771,0)="""RTN"",""LRCAPPH1"",36,0)"
^XMB(3.9,71,2,2772,0)=" . . Q:$S($P(LREN5,U,12):1,$P(LREN5,U,11):1,1:0)  ;Don't send cancel/already sent codes"
^XMB(3.9,71,2,2773,0)="""RTN"",""LRCAPPH1"",37,0)"
^XMB(3.9,71,2,2774,0)=" . . S LRTSTP=+$P(LREN5,U),LRAA=+$P(LREN5,U,4) Q:$S('LRTSTP:1,'LRAA:1,1:0)"
^XMB(3.9,71,2,2775,0)="""RTN"",""LRCAPPH1"",38,0)"
^XMB(3.9,71,2,2776,0)=" . . ;Turn off old style PCE reporting for CH subscripts."
^XMB(3.9,71,2,2777,0)="""RTN"",""LRCAPPH1"",39,0)"
^XMB(3.9,71,2,2778,0)=" . . ;Data passed via Billing Aware API"
^XMB(3.9,71,2,2779,0)="""RTN"",""LRCAPPH1"",40,0)"
^XMB(3.9,71,2,2780,0)=" . . I $P($G(^LRO(68,LRAA,0)),U,2)=""CH"" Q"
^XMB(3.9,71,2,2781,0)="""RTN"",""LRCAPPH1"",41,0)"
^XMB(3.9,71,2,2782,0)=" . . S LRBEID=$P(^LRO(69,LRCDT,1,LRSN,2,LRTST,.3),U)"
^XMB(3.9,71,2,2783,0)="""RTN"",""LRCAPPH1"",42,0)"
^XMB(3.9,71,2,2784,0)=" . . I '$G(LRDBUG),$P($G(^LRO(68,LRAA,0)),U,2)'=""MI"" S $P(^LRO(69,LRCDT,1,LRSN,2,LRTST,0),U,12)=1"
^XMB(3.9,71,2,2785,0)="""RTN"",""LRCAPPH1"",43,0)"
^XMB(3.9,71,2,2786,0)=" . . I 'LRXAA S LRXAA=LRAA D LOC"
^XMB(3.9,71,2,2787,0)="""RTN"",""LRCAPPH1"",44,0)"
^XMB(3.9,71,2,2788,0)=" . . Q:'$G(LRDSSID)"
^XMB(3.9,71,2,2789,0)="""RTN"",""LRCAPPH1"",45,0)"
^XMB(3.9,71,2,2790,0)=" . . I LRXAA'=LRAA,$D(^TMP(""LRPXAPI"",$J,""PROCEDURE"")) D SEND K ^TMP(""LRPXAPI"",$J) S LRXAA=LRAA D LOC Q:'$G(LRDSSID)  D EN6 Q"
^XMB(3.9,71,2,2791,0)="""RTN"",""LRCAPPH1"",46,0)"
^XMB(3.9,71,2,2792,0)=" . . D EN6"
^XMB(3.9,71,2,2793,0)="""RTN"",""LRCAPPH1"",47,0)"
^XMB(3.9,71,2,2794,0)=" I $D(^TMP(""LRPXAPI"",$J,""PROCEDURE"")),'$G(^LRO(69,""AA"",LRCEX,LROA)) D SEND"
^XMB(3.9,71,2,2795,0)="""RTN"",""LRCAPPH1"",48,0)"
^XMB(3.9,71,2,2796,0)="END Q:$G(LRDBUG)"
^XMB(3.9,71,2,2797,0)="""RTN"",""LRCAPPH1"",49,0)"
^XMB(3.9,71,2,2798,0)="END0 K ^TMP(""LRPXAPI"",$J),LRINA,LRREL,LRNLT,CPT,LRPRO,LRICPT,EDATE,LRTST"
^XMB(3.9,71,2,2799,0)="""RTN"",""LRCAPPH1"",50,0)"
^XMB(3.9,71,2,2800,0)=" K I,LOC,LRI,LRCNT,LRSTP,LRNINS,LROK,LRAA,LRXAA,LRDSSID,LREN5,LRXTST"
^XMB(3.9,71,2,2801,0)="""RTN"",""LRCAPPH1"",51,0)"
^XMB(3.9,71,2,2802,0)=" K LRNLTN,LRIDT,LRXTSTU,LRXCPT"
^XMB(3.9,71,2,2803,0)="""RTN"",""LRCAPPH1"",52,0)"
^XMB(3.9,71,2,2804,0)=" Q"
^XMB(3.9,71,2,2805,0)="""RTN"",""LRCAPPH1"",53,0)"
^XMB(3.9,71,2,2806,0)="EN6 ;Called from LRCAPPNP"
^XMB(3.9,71,2,2807,0)="""RTN"",""LRCAPPH1"",54,0)"
^XMB(3.9,71,2,2808,0)=" ;Turn off old style PCE reporting for CH subscripts."
^XMB(3.9,71,2,2809,0)="""RTN"",""LRCAPPH1"",55,0)"
^XMB(3.9,71,2,2810,0)=" ;Data passed via Billing Aware API"
^XMB(3.9,71,2,2811,0)="""RTN"",""LRCAPPH1"",56,0)"
^XMB(3.9,71,2,2812,0)=" I $G(LRAA),$P($G(^LRO(68,LRAA,0)),U,2)=""CH"" Q"
^XMB(3.9,71,2,2813,0)="""RTN"",""LRCAPPH1"",57,0)"
^XMB(3.9,71,2,2814,0)=" S:'$D(^LRO(69,LRCDT,1,LRSN,""PCE"")) ^(""PCE"")="""""
^XMB(3.9,71,2,2815,0)="""RTN"",""LRCAPPH1"",58,0)"
^XMB(3.9,71,2,2816,0)=" S LRNLT=+$P($G(^LAB(60,LRTSTP,64)),U),LRICPT=0"
^XMB(3.9,71,2,2817,0)="""RTN"",""LRCAPPH1"",59,0)"
^XMB(3.9,71,2,2818,0)=" Q:+LRNLT'>0"
^XMB(3.9,71,2,2819,0)="""RTN"",""LRCAPPH1"",60,0)"
^XMB(3.9,71,2,2820,0)=" Q:'$D(^LAM(""AD"",LRNLT,""CPT""))  S LRNLTN=$P(^LAM(LRNLT,0),U,2)"
^XMB(3.9,71,2,2821,0)="""RTN"",""LRCAPPH1"",61,0)"
^XMB(3.9,71,2,2822,0)=" Q:'LRNLTN"
^XMB(3.9,71,2,2823,0)="""RTN"",""LRCAPPH1"",62,0)"
^XMB(3.9,71,2,2824,0)=" F  S LRICPT=$O(^LAM(""AD"",LRNLT,""CPT"",LRICPT)) Q:+LRICPT'>0  S CPT=+$P($G(^LAM(LRNLT,4,LRICPT,0)),U) I CPT,$P(^(0),U,2)=""CPT"" D"
^XMB(3.9,71,2,2825,0)="""RTN"",""LRCAPPH1"",63,0)"
^XMB(3.9,71,2,2826,0)=" . Q:'$G(CPT)"
^XMB(3.9,71,2,2827,0)="""RTN"",""LRCAPPH1"",64,0)"
^XMB(3.9,71,2,2828,0)=" . I '$P($$CPT^ICPTCOD(CPT,$P(LREDT,"".""),,),U,7) S:$D(^LRO(69,""AA"",LRCEX,LROA)) ^(LROA)=4 Q"
^XMB(3.9,71,2,2829,0)="""RTN"",""LRCAPPH1"",65,0)"
^XMB(3.9,71,2,2830,0)=" . S LRREL=$P(^LAM(LRNLT,4,LRICPT,0),U,3),LRINA=$P(^(0),U,4)"
^XMB(3.9,71,2,2831,0)="""RTN"",""LRCAPPH1"",66,0)"
^XMB(3.9,71,2,2832,0)=" . D:LRREL&(LRINA="""") SET Q"
^XMB(3.9,71,2,2833,0)="""RTN"",""LRCAPPH1"",67,0)"
^XMB(3.9,71,2,2834,0)=" . D:EDATE>(LRREL-1)&((EDATE<LRINA)!(LRINA="""")) SET"
^XMB(3.9,71,2,2835,0)="""RTN"",""LRCAPPH1"",68,0)"
^XMB(3.9,71,2,2836,0)=" Q"
^XMB(3.9,71,2,2837,0)="""RTN"",""LRCAPPH1"",69,0)"
^XMB(3.9,71,2,2838,0)="LOC ;Called from LRCAPPNP"
^XMB(3.9,71,2,2839,0)="""RTN"",""LRCAPPH1"",70,0)"
^XMB(3.9,71,2,2840,0)=" I '$G(LRAA) S LRNOP=4 Q"
^XMB(3.9,71,2,2841,0)="""RTN"",""LRCAPPH1"",71,0)"
^XMB(3.9,71,2,2842,0)=" S LRDSSLOC=$S($G(^LRO(68,+LRAA,.8)):+^(.8),1:LRDLOC)"
^XMB(3.9,71,2,2843,0)="""RTN"",""LRCAPPH1"",72,0)"
^XMB(3.9,71,2,2844,0)=" I 'LRDSSLOC S:$D(^LRO(69,""AA"",LRCEX,LROA)) ^(LROA)=4 S LRNOP=4 Q"
^XMB(3.9,71,2,2845,0)="""RTN"",""LRCAPPH1"",73,0)"
^XMB(3.9,71,2,2846,0)=" S LRDSSID=+$P($G(^SC(LRDSSLOC,0)),U,7)"
^XMB(3.9,71,2,2847,0)="""RTN"",""LRCAPPH1"",74,0)"
^XMB(3.9,71,2,2848,0)=" I 'LRDSSID S:$D(^LRO(69,""AA"",LRCEX,LROA)) ^(LROA)=5 S LRNOP=5"
^XMB(3.9,71,2,2849,0)="""RTN"",""LRCAPPH1"",75,0)"
^XMB(3.9,71,2,2850,0)=" Q"
^XMB(3.9,71,2,2851,0)="""RTN"",""LRCAPPH1"",76,0)"
^XMB(3.9,71,2,2852,0)="SET ;SET IF VALID PROCEDURE"
^XMB(3.9,71,2,2853,0)="""RTN"",""LRCAPPH1"",77,0)"
^XMB(3.9,71,2,2854,0)=" I $G(LRNP),'$D(LRNPX(CPT))#2 Q"
^XMB(3.9,71,2,2855,0)="""RTN"",""LRCAPPH1"",78,0)"
^XMB(3.9,71,2,2856,0)=" I '$D(^TMP(""LRMOD"",$J,CPT)) S ^(CPT)="""" D"
^XMB(3.9,71,2,2857,0)="""RTN"",""LRCAPPH1"",79,0)"
^XMB(3.9,71,2,2858,0)=" . N X"
^XMB(3.9,71,2,2859,0)="""RTN"",""LRCAPPH1"",80,0)"
^XMB(3.9,71,2,2860,0)=" . S X=$$CODM^ICPTCOD(CPT,""^TMP(""""LRMOD"""",$J,CPT)"",,)"
^XMB(3.9,71,2,2861,0)="""RTN"",""LRCAPPH1"",81,0)"
^XMB(3.9,71,2,2862,0)=" I '$G(LRXCPT(CPT)) S LRCNT=$G(LRCNT)+1,LRXCPT(CPT)=LRCNT"
^XMB(3.9,71,2,2863,0)="""RTN"",""LRCAPPH1"",82,0)"
^XMB(3.9,71,2,2864,0)=" S LRCNT=LRXCPT(CPT)"
^XMB(3.9,71,2,2865,0)="""RTN"",""LRCAPPH1"",83,0)"
^XMB(3.9,71,2,2866,0)=" I '$G(LRNP) S LRXCPT(CPT,""P"",LRCNT)=1+$G(LRXCPT(CPT,""P"",LRCNT))"
^XMB(3.9,71,2,2867,0)="""RTN"",""LRCAPPH1"",84,0)"
^XMB(3.9,71,2,2868,0)=" I $G(LRNP) D"
^XMB(3.9,71,2,2869,0)="""RTN"",""LRCAPPH1"",85,0)"
^XMB(3.9,71,2,2870,0)=" . S LRXCPT(CPT,""P"",LRCNT)=($G(LRNPX(CPT))-1)"
^XMB(3.9,71,2,2871,0)="""RTN"",""LRCAPPH1"",86,0)"
^XMB(3.9,71,2,2872,0)=" . S LRNPX(CPT)=(LRNPX(CPT)-1)"
^XMB(3.9,71,2,2873,0)="""RTN"",""LRCAPPH1"",87,0)"
^XMB(3.9,71,2,2874,0)=" S ^TMP(""LRPXAPI"",$J,""PROCEDURE"",LRCNT,""ENC PROVIDER"")=LRPRO"
^XMB(3.9,71,2,2875,0)="""RTN"",""LRCAPPH1"",88,0)"
^XMB(3.9,71,2,2876,0)=" S ^TMP(""LRPXAPI"",$J,""PROCEDURE"",LRCNT,""PROCEDURE"")=CPT"
^XMB(3.9,71,2,2877,0)="""RTN"",""LRCAPPH1"",89,0)"
^XMB(3.9,71,2,2878,0)=" I $G(LRNP) D"
^XMB(3.9,71,2,2879,0)="""RTN"",""LRCAPPH1"",90,0)"
^XMB(3.9,71,2,2880,0)=" . Q:$G(LRXCPT(CPT,""P"",LRCNT))>0"
^XMB(3.9,71,2,2881,0)="""RTN"",""LRCAPPH1"",91,0)"
^XMB(3.9,71,2,2882,0)=" . S LRXCPT(CPT,""P"",LRCNT)=1"
^XMB(3.9,71,2,2883,0)="""RTN"",""LRCAPPH1"",92,0)"
^XMB(3.9,71,2,2884,0)=" . S ^TMP(""LRPXAPI"",$J,""PROCEDURE"",LRCNT,""DELETE"")=1"
^XMB(3.9,71,2,2885,0)="""RTN"",""LRCAPPH1"",93,0)"
^XMB(3.9,71,2,2886,0)=" S ^TMP(""LRPXAPI"",$J,""PROCEDURE"",LRCNT,""QTY"")=$S($G(LRXCPT(CPT,""P"",LRCNT)):LRXCPT(CPT,""P"",LRCNT),1:1)"
^XMB(3.9,71,2,2887,0)="""RTN"",""LRCAPPH1"",94,0)"
^XMB(3.9,71,2,2888,0)=" Q:$G(LRNP)"
^XMB(3.9,71,2,2889,0)="""RTN"",""LRCAPPH1"",95,0)"
^XMB(3.9,71,2,2890,0)=" I $G(LRXCPT(CPT,""P"",LRCNT))>1,$D(^TMP(""LRMOD"",$J,CPT,59))>0 D"
^XMB(3.9,71,2,2891,0)="""RTN"",""LRCAPPH1"",96,0)"
^XMB(3.9,71,2,2892,0)=" . S ^TMP(""LRPXAPI"",$J,""PROCEDURE"",LRCNT,""MODIFIERS"",59)="""""
^XMB(3.9,71,2,2893,0)="""RTN"",""LRCAPPH1"",97,0)"
^XMB(3.9,71,2,2894,0)=" ;If Manual CPT coding always set modifier to 59 to force PCE to add CPT code."
^XMB(3.9,71,2,2895,0)="""RTN"",""LRCAPPH1"",98,0)"
^XMB(3.9,71,2,2896,0)=" I $G(LRES) S ^TMP(""LRPXAPI"",$J,""PROCEDURE"",LRCNT,""MODIFIERS"",59)="""""
^XMB(3.9,71,2,2897,0)="""RTN"",""LRCAPPH1"",99,0)"
^XMB(3.9,71,2,2898,0)=" I $G(LRAA) D"
^XMB(3.9,71,2,2899,0)="""RTN"",""LRCAPPH1"",100,0)"
^XMB(3.9,71,2,2900,0)=" .S MOD=$$GMOD^LRBEBA2(LRAA,CPT)"
^XMB(3.9,71,2,2901,0)="""RTN"",""LRCAPPH1"",101,0)"
^XMB(3.9,71,2,2902,0)=" .I MOD'="""" S ^TMP(""LRPXAPI"",$J,""PROCEDURE"",LRCNT,""MODIFIERS"",MOD)="""" K MOD"
^XMB(3.9,71,2,2903,0)="""RTN"",""LRCAPPH1"",102,0)"
^XMB(3.9,71,2,2904,0)=" S LRXTST(LRTST)=LRNLTN_U_LRTSTP"
^XMB(3.9,71,2,2905,0)="""RTN"",""LRCAPPH1"",103,0)"
^XMB(3.9,71,2,2906,0)=" I $G(LRAA),$P($G(^LRO(68,LRAA,0)),U,2)=""MI"" D"
^XMB(3.9,71,2,2907,0)="""RTN"",""LRCAPPH1"",104,0)"
^XMB(3.9,71,2,2908,0)=" . Q:('$D(^TMP(""LRPXAPI"",$J,""PROCEDURE"")))"
^XMB(3.9,71,2,2909,0)="""RTN"",""LRCAPPH1"",105,0)"
^XMB(3.9,71,2,2910,0)=" . ;Get PCE data via Billing Aware API for Microbiology"
^XMB(3.9,71,2,2911,0)="""RTN"",""LRCAPPH1"",106,0)"
^XMB(3.9,71,2,2912,0)=" . D MICRO1^LRBEBA3(LRCDT,LRSN,LRTST,LRCNT)"
^XMB(3.9,71,2,2913,0)="""RTN"",""LRCAPPH1"",107,0)"
^XMB(3.9,71,2,2914,0)=" . I '$D(^TMP(""LRPXAPI"",$J,""PROCEDURE"")) S ^LRO(69,""AA"",LRCEX,LROA)=9"
^XMB(3.9,71,2,2915,0)="""RTN"",""LRCAPPH1"",108,0)"
^XMB(3.9,71,2,2916,0)=" Q"
^XMB(3.9,71,2,2917,0)="""RTN"",""LRCAPPH1"",109,0)"
^XMB(3.9,71,2,2918,0)="SEND ;BUILD ENCOUNTER INFO Called from LRCAPPNP"
^XMB(3.9,71,2,2919,0)="""RTN"",""LRCAPPH1"",110,0)"
^XMB(3.9,71,2,2920,0)=" I '$G(LRESCPT) Q:$G(^LRO(69,""AA"",$G(LRCEX),$G(LROA)))"
^XMB(3.9,71,2,2921,0)="""RTN"",""LRCAPPH1"",111,0)"
^XMB(3.9,71,2,2922,0)=" N LRENCDT ; Check for incorrect time"
^XMB(3.9,71,2,2923,0)="""RTN"",""LRCAPPH1"",112,0)"
^XMB(3.9,71,2,2924,0)=" S LRENCDT=$J(LREDT,7,4),LRENCDT(1)=$P(LRENCDT,""."",2)"
^XMB(3.9,71,2,2925,0)="""RTN"",""LRCAPPH1"",113,0)"
^XMB(3.9,71,2,2926,0)=" S:'LRENCDT(1) LRENCDT(1)=1201"
^XMB(3.9,71,2,2927,0)="""RTN"",""LRCAPPH1"",114,0)"
^XMB(3.9,71,2,2928,0)=" I $E(LRENCDT(1),3,4)>59 S LRENCDT(1)=$E(LRENCDT(1),1,2)_59"
^XMB(3.9,71,2,2929,0)="""RTN"",""LRCAPPH1"",115,0)"
^XMB(3.9,71,2,2930,0)=" I $E(LRENCDT(1),1,2)>23 S LRENCDT(1)=23_$E(LRENCDT(1),3,4)"
^XMB(3.9,71,2,2931,0)="""RTN"",""LRCAPPH1"",116,0)"
^XMB(3.9,71,2,2932,0)=" S $P(LRENCDT,""."",2)=LRENCDT(1)"
^XMB(3.9,71,2,2933,0)="""RTN"",""LRCAPPH1"",117,0)"
^XMB(3.9,71,2,2934,0)=" S ^TMP(""LRPXAPI"",$J,""ENCOUNTER"",1,""DSS ID"")=LRDSSID"
^XMB(3.9,71,2,2935,0)="""RTN"",""LRCAPPH1"",118,0)"
^XMB(3.9,71,2,2936,0)=" S ^TMP(""LRPXAPI"",$J,""ENCOUNTER"",1,""ENC D/T"")=LRENCDT"
^XMB(3.9,71,2,2937,0)="""RTN"",""LRCAPPH1"",119,0)"
^XMB(3.9,71,2,2938,0)=" S ^TMP(""LRPXAPI"",$J,""ENCOUNTER"",1,""HOS LOC"")=LRDSSLOC"
^XMB(3.9,71,2,2939,0)="""RTN"",""LRCAPPH1"",120,0)"
^XMB(3.9,71,2,2940,0)=" S:LRNINS ^TMP(""LRPXAPI"",$J,""ENCOUNTER"",1,""INSTITUTION"")=LRNINS"
^XMB(3.9,71,2,2941,0)="""RTN"",""LRCAPPH1"",121,0)"
^XMB(3.9,71,2,2942,0)=" S ^TMP(""LRPXAPI"",$J,""ENCOUNTER"",1,""PATIENT"")=DFN"
^XMB(3.9,71,2,2943,0)="""RTN"",""LRCAPPH1"",122,0)"
^XMB(3.9,71,2,2944,0)=" S ^TMP(""LRPXAPI"",$J,""ENCOUNTER"",1,""SERVICE CATEGORY"")=""X"""
^XMB(3.9,71,2,2945,0)="""RTN"",""LRCAPPH1"",123,0)"
^XMB(3.9,71,2,2946,0)=" S ^TMP(""LRPXAPI"",$J,""ENCOUNTER"",1,""ENCOUNTER TYPE"")=""A"""
^XMB(3.9,71,2,2947,0)="""RTN"",""LRCAPPH1"",124,0)"
^XMB(3.9,71,2,2948,0)="PCE ;SEND DATA TO PCE"
^XMB(3.9,71,2,2949,0)="""RTN"",""LRCAPPH1"",125,0)"
^XMB(3.9,71,2,2950,0)=" N LRLNOW,LRAAX"
^XMB(3.9,71,2,2951,0)="""RTN"",""LRCAPPH1"",126,0)"
^XMB(3.9,71,2,2952,0)=" K LRVSITN S (LROK,LRVSITN)="""""
^XMB(3.9,71,2,2953,0)="""RTN"",""LRCAPPH1"",127,0)"
^XMB(3.9,71,2,2954,0)=" I $G(LRAA) S LRAAX=$P($G(^LRO(68,LRAA,0)),U,2)"
^XMB(3.9,71,2,2955,0)="""RTN"",""LRCAPPH1"",128,0)"
^XMB(3.9,71,2,2956,0)=" I ($G(LRAAX)=""CH"") S LROK=1,LRVSITN=$G(LRBEVSIT)"
^XMB(3.9,71,2,2957,0)="""RTN"",""LRCAPPH1"",129,0)"
^XMB(3.9,71,2,2958,0)=" I ($G(LRAAX)=""MI"") D"
^XMB(3.9,71,2,2959,0)="""RTN"",""LRCAPPH1"",130,0)"
^XMB(3.9,71,2,2960,0)=" . Q:('$D(^TMP(""LRPXAPI"",$J,""PROCEDURE"")))"
^XMB(3.9,71,2,2961,0)="""RTN"",""LRCAPPH1"",131,0)"
^XMB(3.9,71,2,2962,0)=" . ;Get PCE data via Billing Aware API for Microbiology"
^XMB(3.9,71,2,2963,0)="""RTN"",""LRCAPPH1"",132,0)"
^XMB(3.9,71,2,2964,0)=" . D MICRO2^LRBEBA3(LRCDT,LRSN)"
^XMB(3.9,71,2,2965,0)="""RTN"",""LRCAPPH1"",133,0)"
^XMB(3.9,71,2,2966,0)=" . S LROK=$$DATA2PCE^PXAPI(""^TMP(""""LRPXAPI"""",$J)"",LRPKG,""LAB DATA"",.LRVSITN,$G(LRDUZ))"
^XMB(3.9,71,2,2967,0)="""RTN"",""LRCAPPH1"",134,0)"
^XMB(3.9,71,2,2968,0)=" . K ^TMP(""LRBEDX"",$J)"
^XMB(3.9,71,2,2969,0)="""RTN"",""LRCAPPH1"",135,0)"
^XMB(3.9,71,2,2970,0)=" I ("";AU;BB;CY;EM;SP;""[("";""_$G(LRSS)_"";""))!("";AU;BB;CY;EM;SP;""[("";""_$G(LRAAX)_"";"")) D"
^XMB(3.9,71,2,2971,0)="""RTN"",""LRCAPPH1"",136,0)"
^XMB(3.9,71,2,2972,0)=" .S LROK=$$DATA2PCE^PXAPI(""^TMP(""""LRPXAPI"""",$J)"",LRPKG,""LAB DATA"",.LRVSITN,$G(LRDUZ))"
^XMB(3.9,71,2,2973,0)="""RTN"",""LRCAPPH1"",137,0)"
^XMB(3.9,71,2,2974,0)=" I $G(^XTMP(""LRPCELOG"",0)) D  ;Used to log/debug contents of ^TMP(""LRPXAPI"")"
^XMB(3.9,71,2,2975,0)="""RTN"",""LRCAPPH1"",138,0)"
^XMB(3.9,71,2,2976,0)=" . F  S LRLNOW=$$NOW^XLFDT Q:'$D(^XTMP(""LRPCELOG"",1,LRLNOW))  H 1"
^XMB(3.9,71,2,2977,0)="""RTN"",""LRCAPPH1"",139,0)"
^XMB(3.9,71,2,2978,0)=" . S ^XTMP(""LRPCELOG"",1,LRLNOW,0)=U_$G(LRBEID)_U_$G(LRVSITN)"
^XMB(3.9,71,2,2979,0)="""RTN"",""LRCAPPH1"",140,0)"
^XMB(3.9,71,2,2980,0)=" . M ^XTMP(""LRPCELOG"",1,LRLNOW)=^TMP(""LRPXAPI"",$J)"
^XMB(3.9,71,2,2981,0)="""RTN"",""LRCAPPH1"",141,0)"
^XMB(3.9,71,2,2982,0)=" W:$G(LRDBUG) !,""LROK = "",LROK,!,$G(LRVSITN)"
^XMB(3.9,71,2,2983,0)="""RTN"",""LRCAPPH1"",142,0)"
^XMB(3.9,71,2,2984,0)=" Q:$G(LRESCPT)"
^XMB(3.9,71,2,2985,0)="""RTN"",""LRCAPPH1"",143,0)"
^XMB(3.9,71,2,2986,0)=" I '$G(LRNP),$D(^LRO(69,LRCDT,1,LRSN,""PCE"")) S:LRVSITN ^(""PCE"")=$E(^(""PCE"")_$S(LROK>0:LRVSITN,1:LROK)_"";"",1,30) D"
^XMB(3.9,71,2,2987,0)="""RTN"",""LRCAPPH1"",144,0)"
^XMB(3.9,71,2,2988,0)=" . I LROK<1,$D(^LRO(69,""AA"",LRCEX,LROA)) S ^(LROA)=LROK"
^XMB(3.9,71,2,2989,0)="""RTN"",""LRCAPPH1"",145,0)"
^XMB(3.9,71,2,2990,0)="EN7 N LRFND,LRPCE"
^XMB(3.9,71,2,2991,0)="""RTN"",""LRCAPPH1"",146,0)"
^XMB(3.9,71,2,2992,0)=" Q:'$G(LRNP)!(LROK<1)!('LRVSITN)"
^XMB(3.9,71,2,2993,0)="""RTN"",""LRCAPPH1"",147,0)"
^XMB(3.9,71,2,2994,0)=" S LRPCE=$G(^LRO(69,LRCDT,1,LRSN,""PCE""))"
^XMB(3.9,71,2,2995,0)="""RTN"",""LRCAPPH1"",148,0)"
^XMB(3.9,71,2,2996,0)=" I '$F(LRPCE,LRVSITN_""-CPT CANC"") D"
^XMB(3.9,71,2,2997,0)="""RTN"",""LRCAPPH1"",149,0)"
^XMB(3.9,71,2,2998,0)=" . S LRFND=$F(LRPCE,LRVSITN) Q:'LRFND"
^XMB(3.9,71,2,2999,0)="""RTN"",""LRCAPPH1"",150,0)"
^XMB(3.9,71,2,3000,0)=" . I LRFND S LRPCE=$E(LRPCE,1,(LRFND-1))_""-CPT CANC""_$E(LRPCE,LRFND,$L(LRPCE))"
^XMB(3.9,71,2,3001,0)="""RTN"",""LRCAPPH1"",151,0)"
^XMB(3.9,71,2,3002,0)=" . S ^LRO(69,LRCDT,1,LRSN,""PCE"")=$E(LRPCE,1,30)"
^XMB(3.9,71,2,3003,0)="""RTN"",""LRCAPPH1"",152,0)"
^XMB(3.9,71,2,3004,0)="CHK ;Determine if any CPT code remain on the encounter, then delete encounter if false"
^XMB(3.9,71,2,3005,0)="""RTN"",""LRCAPPH1"",153,0)"
^XMB(3.9,71,2,3006,0)=" K ^TMP(""PXKENC"",$J)"
^XMB(3.9,71,2,3007,0)="""RTN"",""LRCAPPH1"",154,0)"
^XMB(3.9,71,2,3008,0)=" D ENCEVENT^PXKENC(LRVSITN,1)"
^XMB(3.9,71,2,3009,0)="""RTN"",""LRCAPPH1"",155,0)"
^XMB(3.9,71,2,3010,0)=" I $O(^TMP(""PXKENC"",$J,LRVSITN,""CPT"",0)) K ^TMP(""PXKENC"",$J) Q"
^XMB(3.9,71,2,3011,0)="""RTN"",""LRCAPPH1"",156,0)"
^XMB(3.9,71,2,3012,0)=" S LROK=$$DELVFILE^PXAPI(""ALL"",$G(LRVSITN),LRPKG,""LAB DATA"",0,0,0)"
^XMB(3.9,71,2,3013,0)="""RTN"",""LRCAPPH1"",157,0)"
^XMB(3.9,71,2,3014,0)=" K ^TMP(""PXKENC"",$J) Q:LROK<1"
^XMB(3.9,71,2,3015,0)="""RTN"",""LRCAPPH1"",158,0)"
^XMB(3.9,71,2,3016,0)=" N LRSN"
^XMB(3.9,71,2,3017,0)="""RTN"",""LRCAPPH1"",159,0)"
^XMB(3.9,71,2,3018,0)=" S LRSN=0"
^XMB(3.9,71,2,3019,0)="""RTN"",""LRCAPPH1"",160,0)"
^XMB(3.9,71,2,3020,0)=" F  S LRSN=$O(^LRO(69,""C"",LRCE,LRCDT,LRSN)) Q:LRSN<1  D DELCAN"
^XMB(3.9,71,2,3021,0)="""RTN"",""LRCAPPH1"",161,0)"
^XMB(3.9,71,2,3022,0)=" Q"
^XMB(3.9,71,2,3023,0)="""RTN"",""LRCAPPH1"",162,0)"
^XMB(3.9,71,2,3024,0)="DELCAN ;Mark PCE Encounter number as '-CPT CANC-ENC DEL'"
^XMB(3.9,71,2,3025,0)="""RTN"",""LRCAPPH1"",163,0)"
^XMB(3.9,71,2,3026,0)=" ;LRVSITN = Encounter IEN"
^XMB(3.9,71,2,3027,0)="""RTN"",""LRCAPPH1"",164,0)"
^XMB(3.9,71,2,3028,0)=" S LRPCE=$G(^LRO(69,LRCDT,1,LRSN,""PCE"")) Q:'$L(LRPCE)  D"
^XMB(3.9,71,2,3029,0)="""RTN"",""LRCAPPH1"",165,0)"
^XMB(3.9,71,2,3030,0)=" . Q:'$G(LRVSITN)"
^XMB(3.9,71,2,3031,0)="""RTN"",""LRCAPPH1"",166,0)"
^XMB(3.9,71,2,3032,0)=" . I $F(LRPCE,LRVSITN_""-CPT CANC-ENC DEL;"") Q"
^XMB(3.9,71,2,3033,0)="""RTN"",""LRCAPPH1"",167,0)"
^XMB(3.9,71,2,3034,0)=" . S LRFND=$F($G(LRPCE),LRVSITN_""-CPT CANC"") I LRFND D  Q"
^XMB(3.9,71,2,3035,0)="""RTN"",""LRCAPPH1"",168,0)"
^XMB(3.9,71,2,3036,0)=" . . S LRPCE=$E(LRPCE,1,(LRFND-1))_""-ENC DEL""_$E(LRPCE,LRFND,$L(LRPCE))"
^XMB(3.9,71,2,3037,0)="""RTN"",""LRCAPPH1"",169,0)"
^XMB(3.9,71,2,3038,0)=" . . S ^LRO(69,LRCDT,1,LRSN,""PCE"")=$E(LRPCE,1,30)"
^XMB(3.9,71,2,3039,0)="""RTN"",""LRCAPPH1"",170,0)"
^XMB(3.9,71,2,3040,0)=" . S LRFND=$F($G(LRPCE),LRVSITN) I LRFND D"
^XMB(3.9,71,2,3041,0)="""RTN"",""LRCAPPH1"",171,0)"
^XMB(3.9,71,2,3042,0)=" . . S LRPCE=$E(LRPCE,1,(LRFND-1))_""-CPT CANC-ENC DEL""_$E(LRPCE,LRFND,$L(LRPCE))"
^XMB(3.9,71,2,3043,0)="""RTN"",""LRCAPPH1"",172,0)"
^XMB(3.9,71,2,3044,0)=" . . S ^LRO(69,LRCDT,1,LRSN,""PCE"")=$E(LRPCE,1,30)"
^XMB(3.9,71,2,3045,0)="""RTN"",""LRCAPPH1"",173,0)"
^XMB(3.9,71,2,3046,0)=" Q"
^XMB(3.9,71,2,3047,0)="""RTN"",""LRCAPPH1"",174,0)"
^XMB(3.9,71,2,3048,0)="TEST ;"
^XMB(3.9,71,2,3049,0)="""RTN"",""LRCAPPH1"",175,0)"
^XMB(3.9,71,2,3050,0)=" S:'$G(LRDPRAC) LRDPRAC=DUZ"
^XMB(3.9,71,2,3051,0)="""RTN"",""LRCAPPH1"",176,0)"
^XMB(3.9,71,2,3052,0)=" S LRDLOC=+$G(^LAB(69.9,1,.8))"
^XMB(3.9,71,2,3053,0)="""RTN"",""LRCAPPH1"",177,0)"
^XMB(3.9,71,2,3054,0)=" S:'$G(LRPKG) LRPKG=26 S:'$G(LRDBUG) LRDBUG=1 S LRVSIT=2"
^XMB(3.9,71,2,3055,0)="""RTN"",""LRCAPPH1"",178,0)"
^XMB(3.9,71,2,3056,0)=" S:'$G(LRCDT) LRCDT=DT S:'$G(LRSN) LRSN=1 S NODE=^LRO(69,LRCDT,1,LRSN,0)"
^XMB(3.9,71,2,3057,0)="""RTN"",""LRCAPPH1"",179,0)"
^XMB(3.9,71,2,3058,0)=" S NODE(1)=^LRO(69,LRCDT,1,LRSN,1)"
^XMB(3.9,71,2,3059,0)="""RTN"",""LRCAPPH1"",180,0)"
^XMB(3.9,71,2,3060,0)=" S DFN=$P(^LR(+NODE,0),U,3)"
^XMB(3.9,71,2,3061,0)="""RTN"",""LRCAPPH1"",181,0)"
^XMB(3.9,71,2,3062,0)=" D EN3"
^XMB(3.9,71,2,3063,0)="""RTN"",""LRCAPPH1"",182,0)"
^XMB(3.9,71,2,3064,0)=" Q"
^XMB(3.9,71,2,3065,0)="""RTN"",""LRORDST"")"
^XMB(3.9,71,2,3066,0)="0^8^B30181718^B30093835"
^XMB(3.9,71,2,3067,0)="""RTN"",""LRORDST"",1,0)"
^XMB(3.9,71,2,3068,0)="LRORDST ;SLC/CJS/WTY - SET THE ORDER AND ACCESSION ;5/16/05"
^XMB(3.9,71,2,3069,0)="""RTN"",""LRORDST"",2,0)"
^XMB(3.9,71,2,3070,0)=" ;;5.2;LAB SERVICE;**100,107,121,153,202,290,291,359**;Sep 27, 1994"
^XMB(3.9,71,2,3071,0)="""RTN"",""LRORDST"",3,0)"
^XMB(3.9,71,2,3072,0)=" ;Called to create orders and accessions from local LROT array"
^XMB(3.9,71,2,3073,0)="""RTN"",""LRORDST"",4,0)"
^XMB(3.9,71,2,3074,0)=" D DT"
^XMB(3.9,71,2,3075,0)="""RTN"",""LRORDST"",5,0)"
^XMB(3.9,71,2,3076,0)=" K ZTSK"
^XMB(3.9,71,2,3077,0)="""RTN"",""LRORDST"",6,0)"
^XMB(3.9,71,2,3078,0)=" I $P(LRPARAM,U,4),'$D(LRNOLABL),'$D(LRTJ),LRORDR="""" D ^LRLABLIO"
^XMB(3.9,71,2,3079,0)="""RTN"",""LRORDST"",7,0)"
^XMB(3.9,71,2,3080,0)=" F LRSAMP=-1:0 S LRSAMP=$O(LROT(LRSAMP)) Q:LRSAMP=""""  F LRSPEC=-1:0 S LRSPEC=$O(LROT(LRSAMP,LRSPEC)) Q:LRSPEC=""""  D ZX"
^XMB(3.9,71,2,3081,0)="""RTN"",""LRORDST"",8,0)"
^XMB(3.9,71,2,3082,0)=" ;"
^XMB(3.9,71,2,3083,0)="""RTN"",""LRORDST"",9,0)"
^XMB(3.9,71,2,3084,0)=" I $D(LRLABLIO),$D(LRLBL) D"
^XMB(3.9,71,2,3085,0)="""RTN"",""LRORDST"",10,0)"
^XMB(3.9,71,2,3086,0)=" . S ZTRTN=""ENT^LRLABLD"",ZTDESC=""LAB LABELS"",ZTDTH=$H"
^XMB(3.9,71,2,3087,0)="""RTN"",""LRORDST"",11,0)"
^XMB(3.9,71,2,3088,0)=" . S ZTIO=LRLABLIO,ZTSAVE(""LRLBL("")="""""
^XMB(3.9,71,2,3089,0)="""RTN"",""LRORDST"",12,0)"
^XMB(3.9,71,2,3090,0)=" . D ^%ZTLOAD K LRLBL"
^XMB(3.9,71,2,3091,0)="""RTN"",""LRORDST"",13,0)"
^XMB(3.9,71,2,3092,0)=" ;"
^XMB(3.9,71,2,3093,0)="""RTN"",""LRORDST"",14,0)"
^XMB(3.9,71,2,3094,0)=" I $D(LRSLIP) F I1=0:0 S I1=$O(LROT(I1)) Q:I1<1  F I2=-1:0 S I2=$O(LROT(I1,I2)) Q:I2=""""  S LRSN=LROT(I1,I2,""SN"") D WCP"
^XMB(3.9,71,2,3095,0)="""RTN"",""LRORDST"",15,0)"
^XMB(3.9,71,2,3096,0)=" K LRLBL,ZTSK"
^XMB(3.9,71,2,3097,0)="""RTN"",""LRORDST"",16,0)"
^XMB(3.9,71,2,3098,0)=" ;Clean-up CIDC variables"
^XMB(3.9,71,2,3099,0)="""RTN"",""LRORDST"",17,0)"
^XMB(3.9,71,2,3100,0)=" K LRBEX,LRBEY,LRBEAR,LRBERF"
^XMB(3.9,71,2,3101,0)="""RTN"",""LRORDST"",18,0)"
^XMB(3.9,71,2,3102,0)=" Q"
^XMB(3.9,71,2,3103,0)="""RTN"",""LRORDST"",19,0)"
^XMB(3.9,71,2,3104,0)=" ;"
^XMB(3.9,71,2,3105,0)="""RTN"",""LRORDST"",20,0)"
^XMB(3.9,71,2,3106,0)=" ;"
^XMB(3.9,71,2,3107,0)="""RTN"",""LRORDST"",21,0)"
^XMB(3.9,71,2,3108,0)="ZX K:$G(LRORDR)'=""P"" LRCOM,LRTCOM"
^XMB(3.9,71,2,3109,0)="""RTN"",""LRORDST"",22,0)"
^XMB(3.9,71,2,3110,0)=" N I,COMB,LRCPRS"
^XMB(3.9,71,2,3111,0)="""RTN"",""LRORDST"",23,0)"
^XMB(3.9,71,2,3112,0)=" I $D(LRGCOM) S LRCCOM=LRGCOM D RCS^LRORD2"
^XMB(3.9,71,2,3113,0)="""RTN"",""LRORDST"",24,0)"
^XMB(3.9,71,2,3114,0)=" S LRSXN=0,I=0"
^XMB(3.9,71,2,3115,0)="""RTN"",""LRORDST"",25,0)"
^XMB(3.9,71,2,3116,0)=" F  S I=$O(LROT(LRSAMP,LRSPEC,I)) Q:I<1  S LRSXN=LRSXN+1"
^XMB(3.9,71,2,3117,0)="""RTN"",""LRORDST"",26,0)"
^XMB(3.9,71,2,3118,0)=" L +^LRO(69,LRODT,1)"
^XMB(3.9,71,2,3119,0)="""RTN"",""LRORDST"",27,0)"
^XMB(3.9,71,2,3120,0)=" S LRSN=1+$P($G(^LRO(69,LRODT,1,0)),U,3)"
^XMB(3.9,71,2,3121,0)="""RTN"",""LRORDST"",28,0)"
^XMB(3.9,71,2,3122,0)=" S LRSUM=1+$P($G(^LRO(69,LRODT,1,0)),U,4)"
^XMB(3.9,71,2,3123,0)="""RTN"",""LRORDST"",29,0)"
^XMB(3.9,71,2,3124,0)="ZSN N I"
^XMB(3.9,71,2,3125,0)="""RTN"",""LRORDST"",30,0)"
^XMB(3.9,71,2,3126,0)=" F  Q:'$D(^LRO(69,LRODT,1,LRSN,0))  S LRSN=LRSN+1"
^XMB(3.9,71,2,3127,0)="""RTN"",""LRORDST"",31,0)"
^XMB(3.9,71,2,3128,0)=" S ^LRO(69,LRODT,1,LRSN,0)=LRDFN_""^""_DUZ_""^""_(+LRSAMP)_""^""_$S($L($G(LRLWC)):LRLWC,$L(LRORDR):LRORDR,1:""SP"")_""^""_LRNT_""^""_LRPRAC_""^""_LRLLOC_""^""_LRODT_$S(+LRORDTIM:"".""_LRORDTIM,1:"""")_""^""_LROLLOC_""^^""_$G(LRORIFN)"
^XMB(3.9,71,2,3129,0)="""RTN"",""LRORDST"",32,0)"
^XMB(3.9,71,2,3130,0)=" S ^LRO(69,LRODT,1,LRSN,2,0)=""^69.03PA^""_LRSXN_U_LRSXN"
^XMB(3.9,71,2,3131,0)="""RTN"",""LRORDST"",33,0)"
^XMB(3.9,71,2,3132,0)=" S ^LRO(69,LRODT,1,0)=""^69.01PA^""_LRSN_U_LRSUM"
^XMB(3.9,71,2,3133,0)="""RTN"",""LRORDST"",34,0)"
^XMB(3.9,71,2,3134,0)=" L -^LRO(69,LRODT,1)"
^XMB(3.9,71,2,3135,0)="""RTN"",""LRORDST"",35,0)"
^XMB(3.9,71,2,3136,0)=" S ^LRO(69,LRODT,1,""AA"",LRDFN,LRSN)="""""
^XMB(3.9,71,2,3137,0)="""RTN"",""LRORDST"",36,0)"
^XMB(3.9,71,2,3138,0)=" S ^LRO(69,LRODT,1,""AC"",LRLLOC,LRSN)="""""
^XMB(3.9,71,2,3139,0)="""RTN"",""LRORDST"",37,0)"
^XMB(3.9,71,2,3140,0)=" S LROT(LRSAMP,LRSPEC,""SN"")=LRSN"
^XMB(3.9,71,2,3141,0)="""RTN"",""LRORDST"",38,0)"
^XMB(3.9,71,2,3142,0)=" S ^LRO(69,""D"",LRDFN,LRODT,LRSN)="""""
^XMB(3.9,71,2,3143,0)="""RTN"",""LRORDST"",39,0)"
^XMB(3.9,71,2,3144,0)=" S COMB=$P($G(^LRO(69,LRODT,1,LRSN,1)),""^"",7)"
^XMB(3.9,71,2,3145,0)="""RTN"",""LRORDST"",40,0)"
^XMB(3.9,71,2,3146,0)=" I $S($G(LRORDR)="""":1,$G(LRORDR)=""P"":1,1:0) D"
^XMB(3.9,71,2,3147,0)="""RTN"",""LRORDST"",41,0)"
^XMB(3.9,71,2,3148,0)=" . S $P(^LRO(69,LRODT,1,LRSN,1),""^"")=$P(LRCDT,""^"")"
^XMB(3.9,71,2,3149,0)="""RTN"",""LRORDST"",42,0)"
^XMB(3.9,71,2,3150,0)=" . S $P(^LRO(69,LRODT,1,LRSN,1),""^"",2)=$P(LRCDT,""^"",2)"
^XMB(3.9,71,2,3151,0)="""RTN"",""LRORDST"",43,0)"
^XMB(3.9,71,2,3152,0)=" . S $P(^LRO(69,LRODT,1,LRSN,1),""^"",4)=""C"""
^XMB(3.9,71,2,3153,0)="""RTN"",""LRORDST"",44,0)"
^XMB(3.9,71,2,3154,0)=" . S $P(^LRO(69,LRODT,1,LRSN,1),""^"",8)=DUZ(2)"
^XMB(3.9,71,2,3155,0)="""RTN"",""LRORDST"",45,0)"
^XMB(3.9,71,2,3156,0)=" . ;S ^LRO(69,LRODT,1,LRSN,1)=LRCDT_""^^C^^^""_COMB_""^""_DUZ(2)"
^XMB(3.9,71,2,3157,0)="""RTN"",""LRORDST"",46,0)"
^XMB(3.9,71,2,3158,0)=" . I $G(LRORDR)'=""P"" S ^LRO(69,""AA"",+$G(LRORD),LRODT_""|""_LRSN)="""""
^XMB(3.9,71,2,3159,0)="""RTN"",""LRORDST"",47,0)"
^XMB(3.9,71,2,3160,0)=" . ; PIECE 4 INDICATED COLLECTED (NOTE: LRCDT HAS 2 PIECES)"
^XMB(3.9,71,2,3161,0)="""RTN"",""LRORDST"",48,0)"
^XMB(3.9,71,2,3162,0)=" I LRSPEC'="""" S ^LRO(69,LRODT,1,LRSN,4,0)=""^69.02PA^1^1"",^(1,0)=LRSPEC"
^XMB(3.9,71,2,3163,0)="""RTN"",""LRORDST"",49,0)"
^XMB(3.9,71,2,3164,0)=" S ^LRO(69,LRODT,1,LRSN,.1)=LRORD,^LRO(69,""C"",+LRORD,LRODT,LRSN)="""",LRJ=0"
^XMB(3.9,71,2,3165,0)="""RTN"",""LRORDST"",50,0)"
^XMB(3.9,71,2,3166,0)=" F LRTN=1:1 S LRJ=$O(LROT(LRSAMP,LRSPEC,LRJ)) Q:LRJ<1  D ZSN1"
^XMB(3.9,71,2,3167,0)="""RTN"",""LRORDST"",51,0)"
^XMB(3.9,71,2,3168,0)=" I $D(LRCOM(LRSAMP,LRSPEC)),LRCOM(LRSAMP,LRSPEC) D"
^XMB(3.9,71,2,3169,0)="""RTN"",""LRORDST"",52,0)"
^XMB(3.9,71,2,3170,0)=" . N I"
^XMB(3.9,71,2,3171,0)="""RTN"",""LRORDST"",53,0)"
^XMB(3.9,71,2,3172,0)=" . S X=LRCOM(LRSAMP,LRSPEC)"
^XMB(3.9,71,2,3173,0)="""RTN"",""LRORDST"",54,0)"
^XMB(3.9,71,2,3174,0)=" . S ^LRO(69,LRODT,1,LRSN,6,0)=""^69.04W^""_X_U_X"
^XMB(3.9,71,2,3175,0)="""RTN"",""LRORDST"",55,0)"
^XMB(3.9,71,2,3176,0)=" . F I=1:1:X S ^LRO(69,LRODT,1,LRSN,6,I,0)=LRCOM(LRSAMP,LRSPEC,I)"
^XMB(3.9,71,2,3177,0)="""RTN"",""LRORDST"",56,0)"
^XMB(3.9,71,2,3178,0)=" D NEW^LR7OB1(LRODT,LRSN,""SN"",$G(LRNATURE),.LRCPRS)"
^XMB(3.9,71,2,3179,0)="""RTN"",""LRORDST"",57,0)"
^XMB(3.9,71,2,3180,0)=" I LRORDR=""LC""!(LRORDR=""I"") D"
^XMB(3.9,71,2,3181,0)="""RTN"",""LRORDST"",58,0)"
^XMB(3.9,71,2,3182,0)=" . S ION=$P($G(^LAB(69.9,1,3.5,+DUZ(2),0)),U,2)"
^XMB(3.9,71,2,3183,0)="""RTN"",""LRORDST"",59,0)"
^XMB(3.9,71,2,3184,0)=" . S:ION="""" ION=$P($G(^LAB(69.9,1,3)),U,4)"
^XMB(3.9,71,2,3185,0)="""RTN"",""LRORDST"",60,0)"
^XMB(3.9,71,2,3186,0)=" . I ION'="""",(LRORDR=""LC""!(LRORDR=""I"")) D ^LROW2P"
^XMB(3.9,71,2,3187,0)="""RTN"",""LRORDST"",61,0)"
^XMB(3.9,71,2,3188,0)=" I LRORDR=""I"" S ION=$P($G(^LAB(69.9,1,7,DUZ(2),0)),U,3) I ION'="""" D ^LROW2P"
^XMB(3.9,71,2,3189,0)="""RTN"",""LRORDST"",62,0)"
^XMB(3.9,71,2,3190,0)=" I $S(LRORDR="""":1,LRORDR=""P"":1,1:0) D ^LRWLST"
^XMB(3.9,71,2,3191,0)="""RTN"",""LRORDST"",63,0)"
^XMB(3.9,71,2,3192,0)=" Q"
^XMB(3.9,71,2,3193,0)="""RTN"",""LRORDST"",64,0)"
^XMB(3.9,71,2,3194,0)=" ;"
^XMB(3.9,71,2,3195,0)="""RTN"",""LRORDST"",65,0)"
^XMB(3.9,71,2,3196,0)="ZSN1 ;"
^XMB(3.9,71,2,3197,0)="""RTN"",""LRORDST"",66,0)"
^XMB(3.9,71,2,3198,0)=" N LRORIFN"
^XMB(3.9,71,2,3199,0)="""RTN"",""LRORDST"",67,0)"
^XMB(3.9,71,2,3200,0)=" S LRTSTS=LROT(LRSAMP,LRSPEC,LRJ),LRCPRS(LRTSTS)="""""
^XMB(3.9,71,2,3201,0)="""RTN"",""LRORDST"",68,0)"
^XMB(3.9,71,2,3202,0)=" S ^LRO(69,LRODT,1,LRSN,2,LRTN,0)=LRTSTS_""^""_$S($D(LROT(LRSAMP,LRSPEC,LRJ,1)):LROT(LRSAMP,LRSPEC,LRJ,1),1:LROUTINE)"
^XMB(3.9,71,2,3203,0)="""RTN"",""LRORDST"",69,0)"
^XMB(3.9,71,2,3204,0)=" D:+LRDPF=2&($G(LRSS)'=""BB"")&('$$CHKINP^LRBEBA4(LRDFN,LRODT))  ;CIDC"
^XMB(3.9,71,2,3205,0)="""RTN"",""LRORDST"",70,0)"
^XMB(3.9,71,2,3206,0)=" .D SACC^LRBEBA2(LRODT,LRSN,LRTN,LRSAMP,LRSPEC,LRTSTS,.LRBEX)"
^XMB(3.9,71,2,3207,0)="""RTN"",""LRORDST"",71,0)"
^XMB(3.9,71,2,3208,0)=" I $G(LRORIFN) S $P(^LRO(69,LRODT,1,LRSN,2,LRTN,0),""^"",7)=LRORIFN ;OE/RR 2.5"
^XMB(3.9,71,2,3209,0)="""RTN"",""LRORDST"",72,0)"
^XMB(3.9,71,2,3210,0)=" S $P(^LRO(69,LRODT,1,LRSN,2,LRTN,0),""^"",9,10)=""IP^L"""
^XMB(3.9,71,2,3211,0)="""RTN"",""LRORDST"",73,0)"
^XMB(3.9,71,2,3212,0)=" S ^LRO(69,LRODT,1,LRSN,2,""B"",LRTSTS,LRTN)="""""
^XMB(3.9,71,2,3213,0)="""RTN"",""LRORDST"",74,0)"
^XMB(3.9,71,2,3214,0)=" S ^LRO(69,""AT"",LRDFN,LRTSTS,LRSPEC,LRODT)="""",^(-LRODT)="""""
^XMB(3.9,71,2,3215,0)="""RTN"",""LRORDST"",75,0)"
^XMB(3.9,71,2,3216,0)=" D RCOM:$D(LROT(LRSAMP,LRSPEC,LRJ,2))"
^XMB(3.9,71,2,3217,0)="""RTN"",""LRORDST"",76,0)"
^XMB(3.9,71,2,3218,0)=" D:$O(LRTCOM(LRTSTS,0)) TCOM^LROW2A(LRTSTS)"
^XMB(3.9,71,2,3219,0)="""RTN"",""LRORDST"",77,0)"
^XMB(3.9,71,2,3220,0)=" Q"
^XMB(3.9,71,2,3221,0)="""RTN"",""LRORDST"",78,0)"
^XMB(3.9,71,2,3222,0)=" ;"
^XMB(3.9,71,2,3223,0)="""RTN"",""LRORDST"",79,0)"
^XMB(3.9,71,2,3224,0)=" ;"
^XMB(3.9,71,2,3225,0)="""RTN"",""LRORDST"",80,0)"
^XMB(3.9,71,2,3226,0)="RCOM ; Required comment"
^XMB(3.9,71,2,3227,0)="""RTN"",""LRORDST"",81,0)"
^XMB(3.9,71,2,3228,0)=" N LRTSTN,LRTEST"
^XMB(3.9,71,2,3229,0)="""RTN"",""LRORDST"",82,0)"
^XMB(3.9,71,2,3230,0)=" S LRTSTN=1,LRTEST(LRTSTN)=LRTSTS"
^XMB(3.9,71,2,3231,0)="""RTN"",""LRORDST"",83,0)"
^XMB(3.9,71,2,3232,0)=" S LRCCOM=""~For Test: ""_$P(^LAB(60,LRTSTS,0),U)_""   ""_$P(^LAB(62,LRSAMP,0),U) S:$P(^(0),U)'=$P(^LAB(61,LRSPEC,0),U) LRCCOM=LRCCOM_""   ""_$P(^LAB(61,LRSPEC,0),U) I $S('$D(DUZ(""AG"")):1,""ARMYAFN""'[DUZ(""AG""):1,1:0) W !,LRCCOM"
^XMB(3.9,71,2,3233,0)="""RTN"",""LRORDST"",84,0)"
^XMB(3.9,71,2,3234,0)=" S LREXP=LROT(LRSAMP,LRSPEC,LRJ,2)"
^XMB(3.9,71,2,3235,0)="""RTN"",""LRORDST"",85,0)"
^XMB(3.9,71,2,3236,0)=" D RCS^LRORD2,RCOM^LRORD2"
^XMB(3.9,71,2,3237,0)="""RTN"",""LRORDST"",86,0)"
^XMB(3.9,71,2,3238,0)=" I LRCCOM="""",$D(LRCOM(LRSAMP,LRSPEC)) S X=+LRCOM(LRSAMP,LRSPEC) I $D(LRCOM(LRSAMP,LRSPEC,X)),LRCOM(LRSAMP,LRSPEC,X)[""~For Test:"" K LRCOM(LRSAMP,LRSPEC,X) S LRCOM(LRSAMP,LRSPEC)=X-1"
^XMB(3.9,71,2,3239,0)="""RTN"",""LRORDST"",87,0)"
^XMB(3.9,71,2,3240,0)=" Q"
^XMB(3.9,71,2,3241,0)="""RTN"",""LRORDST"",88,0)"
^XMB(3.9,71,2,3242,0)=" ;"
^XMB(3.9,71,2,3243,0)="""RTN"",""LRORDST"",89,0)"
^XMB(3.9,71,2,3244,0)=" ;"
^XMB(3.9,71,2,3245,0)="""RTN"",""LRORDST"",90,0)"
^XMB(3.9,71,2,3246,0)="OLD ; to allow unchanged routines to still work, from LROE1, LRPHSET1"
^XMB(3.9,71,2,3247,0)="""RTN"",""LRORDST"",91,0)"
^XMB(3.9,71,2,3248,0)=" N LRNT"
^XMB(3.9,71,2,3249,0)="""RTN"",""LRORDST"",92,0)"
^XMB(3.9,71,2,3250,0)=" D DT,NOW^%DTC"
^XMB(3.9,71,2,3251,0)="""RTN"",""LRORDST"",93,0)"
^XMB(3.9,71,2,3252,0)=" S LRNT=%"
^XMB(3.9,71,2,3253,0)="""RTN"",""LRORDST"",94,0)"
^XMB(3.9,71,2,3254,0)=" I $P(LRPARAM,U,4),'$D(LRNOLABL),'$D(LRTJ) D ^LRLABLIO"
^XMB(3.9,71,2,3255,0)="""RTN"",""LRORDST"",95,0)"
^XMB(3.9,71,2,3256,0)=" D ^LRWLST"
^XMB(3.9,71,2,3257,0)="""RTN"",""LRORDST"",96,0)"
^XMB(3.9,71,2,3258,0)=" Q"
^XMB(3.9,71,2,3259,0)="""RTN"",""LRORDST"",97,0)"
^XMB(3.9,71,2,3260,0)=" ;"
^XMB(3.9,71,2,3261,0)="""RTN"",""LRORDST"",98,0)"
^XMB(3.9,71,2,3262,0)=" ;"
^XMB(3.9,71,2,3263,0)="""RTN"",""LRORDST"",99,0)"
^XMB(3.9,71,2,3264,0)="WCP Q:$D(LRNCWL)"
^XMB(3.9,71,2,3265,0)="""RTN"",""LRORDST"",100,0)"
^XMB(3.9,71,2,3266,0)=" S:$D(LRORDER) ION=LRORDER"
^XMB(3.9,71,2,3267,0)="""RTN"",""LRORDST"",101,0)"
^XMB(3.9,71,2,3268,0)=" I '$D(LRORDER) K %ZIS S IOP=""HOME"",%ZIS=""NQ"" D ^%ZIS G:POP WCP1 S X=ION,DIC(0)=""EQ"",DIC=3.5 D ^DIC G:Y<1 WCP1 G:'$D(^%ZIS(1,+Y,99)) WCP1 G:'$L($P(^(99),U)) WCP1 S IOP=$P(^%ZIS(1,$P(^(99),U),0),U),%ZIS=""NQ"" D ^%ZIS G:POP WCP1 K %ZIS,IOP"
^XMB(3.9,71,2,3269,0)="""RTN"",""LRORDST"",102,0)"
^XMB(3.9,71,2,3270,0)="WCP2 S LRORDER=ION"
^XMB(3.9,71,2,3271,0)="""RTN"",""LRORDST"",103,0)"
^XMB(3.9,71,2,3272,0)=" I IO(0)=IO R !!,""Press RETURN to continue..."",X:DTIME S IOP=LRORDER,%ZIS="""" D ^%ZIS D ENT2^LROW2P Q"
^XMB(3.9,71,2,3273,0)="""RTN"",""LRORDST"",104,0)"
^XMB(3.9,71,2,3274,0)=" I IO'=IO(0) D ^LROW2P Q"
^XMB(3.9,71,2,3275,0)="""RTN"",""LRORDST"",105,0)"
^XMB(3.9,71,2,3276,0)=" Q"
^XMB(3.9,71,2,3277,0)="""RTN"",""LRORDST"",106,0)"
^XMB(3.9,71,2,3278,0)=" ;"
^XMB(3.9,71,2,3279,0)="""RTN"",""LRORDST"",107,0)"
^XMB(3.9,71,2,3280,0)=" ;"
^XMB(3.9,71,2,3281,0)="""RTN"",""LRORDST"",108,0)"
^XMB(3.9,71,2,3282,0)="DT S DT=$$DT^XLFDT()"
^XMB(3.9,71,2,3283,0)="""RTN"",""LRORDST"",109,0)"
^XMB(3.9,71,2,3284,0)=" Q"
^XMB(3.9,71,2,3285,0)="""RTN"",""LRORDST"",110,0)"
^XMB(3.9,71,2,3286,0)=" ;"
^XMB(3.9,71,2,3287,0)="""RTN"",""LRORDST"",111,0)"
^XMB(3.9,71,2,3288,0)=" ;"
^XMB(3.9,71,2,3289,0)="""RTN"",""LRORDST"",112,0)"
^XMB(3.9,71,2,3290,0)="WCP1 S %ZIS=""NQ"",%ZIS(""A"")=""ORDER COPY DEVICE:"""
^XMB(3.9,71,2,3291,0)="""RTN"",""LRORDST"",113,0)"
^XMB(3.9,71,2,3292,0)=" D ^%ZIS"
^XMB(3.9,71,2,3293,0)="""RTN"",""LRORDST"",114,0)"
^XMB(3.9,71,2,3294,0)=" Q:POP"
^XMB(3.9,71,2,3295,0)="""RTN"",""LRORDST"",115,0)"
^XMB(3.9,71,2,3296,0)=" G WCP2"
^XMB(3.9,71,2,3297,0)="""RTN"",""LRORDST"",116,0)"
^XMB(3.9,71,2,3298,0)=" ;"
^XMB(3.9,71,2,3299,0)="""RTN"",""LRORDST"",117,0)"
^XMB(3.9,71,2,3300,0)=" ;"
^XMB(3.9,71,2,3301,0)="""RTN"",""LRORDST"",118,0)"
^XMB(3.9,71,2,3302,0)="OR ;OE/RR 2.5"
^XMB(3.9,71,2,3303,0)="""RTN"",""LRORDST"",119,0)"
^XMB(3.9,71,2,3304,0)=" Q  ;Following logic not required - 2.5 is obsolete version"
^XMB(3.9,71,2,3305,0)="""RTN"",""LRORDST"",120,0)"
^XMB(3.9,71,2,3306,0)=" N LRORDR"
^XMB(3.9,71,2,3307,0)="""RTN"",""LRORDST"",121,0)"
^XMB(3.9,71,2,3308,0)=" Q:$G(LRORDRR)=""R"""
^XMB(3.9,71,2,3309,0)="""RTN"",""LRORDST"",122,0)"
^XMB(3.9,71,2,3310,0)=" S LRY=$S($D(LROT(LRSAMP,LRSPEC,LRJ,1)):LROT(LRSAMP,LRSPEC,LRJ,1),1:LROUTINE),LRI=1,LRTEST(LRI)=LRTSTS_""^""_LRY,LRORDR=$S($L($G(LRLWC)):LRLWC,1:"""")"
^XMB(3.9,71,2,3311,0)="""RTN"",""LRORDST"",123,0)"
^XMB(3.9,71,2,3312,0)=" D SET^LROR"
^XMB(3.9,71,2,3313,0)="""RTN"",""LRORDST"",124,0)"
^XMB(3.9,71,2,3314,0)=" Q"
^XMB(3.9,71,2,3315,0)="""VER"")"
^XMB(3.9,71,2,3316,0)="8.0^22.0"
^XMB(3.9,71,2,3317,0)="""BLD"",6333,6)"
^XMB(3.9,71,2,3318,0)="^276"
^XMB(3.9,71,2,3319,0)="$END KID LR*5.2*359"
^XMB(3.9,71,6,0)="^3.911A^2^2"
^XMB(3.9,71,6,1,0)="POSTMASTER"
^XMB(3.9,71,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,71,6,"B","POSTMASTER",1)=""
^XMB(3.9,71,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,72,0)="LR-5P2_SEQ-277_PAT-329.KID^.5^3061008.015738^^^^K"
^XMB(3.9,72,.6)="3061008"
^XMB(3.9,72,1,0)="^3.91A^2^2"
^XMB(3.9,72,1,1,0)=".5^0^3061008.015738^^^^^^^3061008.015738"
^XMB(3.9,72,1,2,0)="1^0^3061008.023945^^^^^^^3061008.023945"
^XMB(3.9,72,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,72,1,"C",.5,1)=""
^XMB(3.9,72,1,"C",1,2)=""
^XMB(3.9,72,2,0)="^^1867^1867^3061008"
^XMB(3.9,72,2,1,0)="$TXT Released LR*5.2*329 SEQ #277"
^XMB(3.9,72,2,2,0)="Extracted from mail message"
^XMB(3.9,72,2,3,0)="$END TXT"
^XMB(3.9,72,2,4,0)="$KID LR*5.2*329"
^XMB(3.9,72,2,5,0)="**INSTALL NAME**"
^XMB(3.9,72,2,6,0)="LR*5.2*329"
^XMB(3.9,72,2,7,0)="""BLD"",6303,0)"
^XMB(3.9,72,2,8,0)="LR*5.2*329^LAB SERVICE^0^3060717^y"
^XMB(3.9,72,2,9,0)="""BLD"",6303,1,0)"
^XMB(3.9,72,2,10,0)="295"
^XMB(3.9,72,2,11,0)="""BLD"",6303,1,1,0)"
^XMB(3.9,72,2,12,0)="EFFECT ON BLOOD BANK FUNCTIONAL REQUIREMENTS: Patch LR*5.2*329 does"
^XMB(3.9,72,2,13,0)="""BLD"",6303,1,2,0)"
^XMB(3.9,72,2,14,0)="not contain any changes to the VISTA BLOOD BANK Software as defined"
^XMB(3.9,72,2,15,0)="""BLD"",6303,1,3,0)"
^XMB(3.9,72,2,16,0)="by VHA DIRECTIVE 2004-058 titled VISTA BLOOD BANK SOFTWARE VERSION 5.2."
^XMB(3.9,72,2,17,0)="""BLD"",6303,1,4,0)"
^XMB(3.9,72,2,18,0)=" "
^XMB(3.9,72,2,19,0)="""BLD"",6303,1,5,0)"
^XMB(3.9,72,2,20,0)="EFFECT ON BLOOD BANK FUNCTIONAL REQUIREMENTS: Patch LR*5.2*329 does"
^XMB(3.9,72,2,21,0)="""BLD"",6303,1,6,0)"
^XMB(3.9,72,2,22,0)="not alter or modify any software design safeguards or safety critical"
^XMB(3.9,72,2,23,0)="""BLD"",6303,1,7,0)"
^XMB(3.9,72,2,24,0)="elements functions."
^XMB(3.9,72,2,25,0)="""BLD"",6303,1,8,0)"
^XMB(3.9,72,2,26,0)=" "
^XMB(3.9,72,2,27,0)="""BLD"",6303,1,9,0)"
^XMB(3.9,72,2,28,0)="RISK ANALYSIS: Changes made by patch LR*5.2*329 have no effect on Blood"
^XMB(3.9,72,2,29,0)="""BLD"",6303,1,10,0)"
^XMB(3.9,72,2,30,0)="Bank software functionality, therefore RISK is none."
^XMB(3.9,72,2,31,0)="""BLD"",6303,1,11,0)"
^XMB(3.9,72,2,32,0)=" "
^XMB(3.9,72,2,33,0)="""BLD"",6303,1,12,0)"
^XMB(3.9,72,2,34,0)=" "
^XMB(3.9,72,2,35,0)="""BLD"",6303,1,13,0)"
^XMB(3.9,72,2,36,0)="1. Remedy ticket HD0000000088913 reported the Laboratory software was"
^XMB(3.9,72,2,37,0)="""BLD"",6303,1,14,0)"
^XMB(3.9,72,2,38,0)="creating Laboratory Unique Identifiers (UID) which used the prefix '00'"
^XMB(3.9,72,2,39,0)="""BLD"",6303,1,15,0)"
^XMB(3.9,72,2,40,0)="instead of the site's two character identifier assigned to each accession"
^XMB(3.9,72,2,41,0)="""BLD"",6303,1,16,0)"
^XMB(3.9,72,2,42,0)="area. This situation exists when the UIDs from old previously purged"
^XMB(3.9,72,2,43,0)="""BLD"",6303,1,17,0)"
^XMB(3.9,72,2,44,0)="accessions are still in the ""C"" cross-reference of the ACCESSION file"
^XMB(3.9,72,2,45,0)="""BLD"",6303,1,18,0)"
^XMB(3.9,72,2,46,0)="(#68), many from when the UID was first implemented in 1995."
^XMB(3.9,72,2,47,0)="""BLD"",6303,1,19,0)"
^XMB(3.9,72,2,48,0)=" "
^XMB(3.9,72,2,49,0)="""BLD"",6303,1,20,0)"
^XMB(3.9,72,2,50,0)="One of the checks performed during UID creation is to check if the UID"
^XMB(3.9,72,2,51,0)="""BLD"",6303,1,21,0)"
^XMB(3.9,72,2,52,0)="being generated exists in the ""C"" cross-reference. If it does and it is not"
^XMB(3.9,72,2,53,0)="""BLD"",6303,1,22,0)"
^XMB(3.9,72,2,54,0)="for the accession being created then the software replaces the accession"
^XMB(3.9,72,2,55,0)="""BLD"",6303,1,23,0)"
^XMB(3.9,72,2,56,0)="area identifier the site has specified for the accession area and uses ""00"""
^XMB(3.9,72,2,57,0)="""BLD"",6303,1,24,0)"
^XMB(3.9,72,2,58,0)="in its place to insure creation of a unique identifier."
^XMB(3.9,72,2,59,0)="""BLD"",6303,1,25,0)"
^XMB(3.9,72,2,60,0)=" "
^XMB(3.9,72,2,61,0)="""BLD"",6303,1,26,0)"
^XMB(3.9,72,2,62,0)="Example: LRO(68,""C"",1550180008,25,2950118,8)"
^XMB(3.9,72,2,63,0)="""BLD"",6303,1,27,0)"
^XMB(3.9,72,2,64,0)="Where: LRO = LRO global"
^XMB(3.9,72,2,65,0)="""BLD"",6303,1,28,0)"
^XMB(3.9,72,2,66,0)="        68 = ACCESSION file (#68)"
^XMB(3.9,72,2,67,0)="""BLD"",6303,1,29,0)"
^XMB(3.9,72,2,68,0)="       ""C"" = cross reference"
^XMB(3.9,72,2,69,0)="""BLD"",6303,1,30,0)"
^XMB(3.9,72,2,70,0)=" 155018008 = UID"
^XMB(3.9,72,2,71,0)="""BLD"",6303,1,31,0)"
^XMB(3.9,72,2,72,0)="        25 = accession area"
^XMB(3.9,72,2,73,0)="""BLD"",6303,1,32,0)"
^XMB(3.9,72,2,74,0)="   2950118 = accession date (Jan 18 1995)"
^XMB(3.9,72,2,75,0)="""BLD"",6303,1,33,0)"
^XMB(3.9,72,2,76,0)="         8 = accession number portion"
^XMB(3.9,72,2,77,0)="""BLD"",6303,1,34,0)"
^XMB(3.9,72,2,78,0)=""
^XMB(3.9,72,2,79,0)="""BLD"",6303,1,35,0)"
^XMB(3.9,72,2,80,0)="If the software wanted to assign the normally generated accession UID"
^XMB(3.9,72,2,81,0)="""BLD"",6303,1,36,0)"
^XMB(3.9,72,2,82,0)="1550180008 to accession area 25, accession date of Jan 18 2005, accession"
^XMB(3.9,72,2,83,0)="""BLD"",6303,1,37,0)"
^XMB(3.9,72,2,84,0)="number of 18 but found the UID already exist for 1995 accession for the"
^XMB(3.9,72,2,85,0)="""BLD"",6303,1,38,0)"
^XMB(3.9,72,2,86,0)="same day and number then UID generating software would replace 15 with 00"
^XMB(3.9,72,2,87,0)="""BLD"",6303,1,39,0)"
^XMB(3.9,72,2,88,0)="to create a UID 0050180008 to allow accessioning to continue. "
^XMB(3.9,72,2,89,0)="""BLD"",6303,1,40,0)"
^XMB(3.9,72,2,90,0)=""
^XMB(3.9,72,2,91,0)="""BLD"",6303,1,41,0)"
^XMB(3.9,72,2,92,0)="Note: The UID generating software will always produce an unique number."
^XMB(3.9,72,2,93,0)="""BLD"",6303,1,42,0)"
^XMB(3.9,72,2,94,0)="No two accessions will ever have the same UID based on the ""C"" cross reference."
^XMB(3.9,72,2,95,0)="""BLD"",6303,1,43,0)"
^XMB(3.9,72,2,96,0)=" "
^XMB(3.9,72,2,97,0)="""BLD"",6303,1,44,0)"
^XMB(3.9,72,2,98,0)="The routine LROC is modified to check for purged accessions and remove"
^XMB(3.9,72,2,99,0)="""BLD"",6303,1,45,0)"
^XMB(3.9,72,2,100,0)="purged accession's UID from the ""C"" and ""D"" cross reference of the"
^XMB(3.9,72,2,101,0)="""BLD"",6303,1,46,0)"
^XMB(3.9,72,2,102,0)="ACCESSION (#68) file. This will correct the problem of 10 year"
^XMB(3.9,72,2,103,0)="""BLD"",6303,1,47,0)"
^XMB(3.9,72,2,104,0)="overlapping accession UID. This routine is invoked by Purge old orders"
^XMB(3.9,72,2,105,0)="""BLD"",6303,1,48,0)"
^XMB(3.9,72,2,106,0)="& accessions option [LROC]."
^XMB(3.9,72,2,107,0)="""BLD"",6303,1,49,0)"
^XMB(3.9,72,2,108,0)=" "
^XMB(3.9,72,2,109,0)="""BLD"",6303,1,50,0)"
^XMB(3.9,72,2,110,0)="Note: After installation of this patch the Laboratory software will"
^XMB(3.9,72,2,111,0)="""BLD"",6303,1,51,0)"
^XMB(3.9,72,2,112,0)="continue to create UIDs using the ""00"" prefix when an existing accession"
^XMB(3.9,72,2,113,0)="""BLD"",6303,1,52,0)"
^XMB(3.9,72,2,114,0)="is still currently on the system and using the UID. This is to assure that"
^XMB(3.9,72,2,115,0)="""BLD"",6303,1,53,0)"
^XMB(3.9,72,2,116,0)="the UID assigned to an accession is unique. The Laboratory software is"
^XMB(3.9,72,2,117,0)="""BLD"",6303,1,54,0)"
^XMB(3.9,72,2,118,0)="capable of handling UIDs correctly when the UID has a ""00"" prefix. There"
^XMB(3.9,72,2,119,0)="""BLD"",6303,1,55,0)"
^XMB(3.9,72,2,120,0)="is no inherent requirement that a specific UID conform exactly to its"
^XMB(3.9,72,2,121,0)="""BLD"",6303,1,56,0)"
^XMB(3.9,72,2,122,0)="related accession."
^XMB(3.9,72,2,123,0)="""BLD"",6303,1,57,0)"
^XMB(3.9,72,2,124,0)=" "
^XMB(3.9,72,2,125,0)="""BLD"",6303,1,58,0)"
^XMB(3.9,72,2,126,0)="2. The check and purge of these cross-references will be tasked by the"
^XMB(3.9,72,2,127,0)="""BLD"",6303,1,59,0)"
^XMB(3.9,72,2,128,0)="post-install of this patch to cleanup any existing entries in file #68."
^XMB(3.9,72,2,129,0)="""BLD"",6303,1,60,0)"
^XMB(3.9,72,2,130,0)="The post-install of this patch tasks a back-ground job to cleanup any"
^XMB(3.9,72,2,131,0)="""BLD"",6303,1,61,0)"
^XMB(3.9,72,2,132,0)="existing entries in file #68 that have been previously purged. After"
^XMB(3.9,72,2,133,0)="""BLD"",6303,1,62,0)"
^XMB(3.9,72,2,134,0)="this back-ground job has run to completion, the ""C"" and ""D"" should not"
^XMB(3.9,72,2,135,0)="""BLD"",6303,1,63,0)"
^XMB(3.9,72,2,136,0)="contain any UIDs related to purged accessions."
^XMB(3.9,72,2,137,0)="""BLD"",6303,1,64,0)"
^XMB(3.9,72,2,138,0)=" "
^XMB(3.9,72,2,139,0)="""BLD"",6303,1,65,0)"
^XMB(3.9,72,2,140,0)="3. As part of developer review, the Purge old orders & accessions option"
^XMB(3.9,72,2,141,0)="""BLD"",6303,1,66,0)"
^XMB(3.9,72,2,142,0)="[LROC] has been made 'TaskMan aware'. Stopping of this tasked process can"
^XMB(3.9,72,2,143,0)="""BLD"",6303,1,67,0)"
^XMB(3.9,72,2,144,0)="be accomplished using standard TaskMan utilities."
^XMB(3.9,72,2,145,0)="""BLD"",6303,1,68,0)"
^XMB(3.9,72,2,146,0)=" "
^XMB(3.9,72,2,147,0)="""BLD"",6303,1,69,0)"
^XMB(3.9,72,2,148,0)=" "
^XMB(3.9,72,2,149,0)="""BLD"",6303,1,70,0)"
^XMB(3.9,72,2,150,0)=" ASSOCIATED E3R"
^XMB(3.9,72,2,151,0)="""BLD"",6303,1,71,0)"
^XMB(3.9,72,2,152,0)=" --------------"
^XMB(3.9,72,2,153,0)="""BLD"",6303,1,72,0)"
^XMB(3.9,72,2,154,0)=" None"
^XMB(3.9,72,2,155,0)="""BLD"",6303,1,73,0)"
^XMB(3.9,72,2,156,0)=" "
^XMB(3.9,72,2,157,0)="""BLD"",6303,1,74,0)"
^XMB(3.9,72,2,158,0)=" ASSOCIATED REMEDY"
^XMB(3.9,72,2,159,0)="""BLD"",6303,1,75,0)"
^XMB(3.9,72,2,160,0)=" ---------------"
^XMB(3.9,72,2,161,0)="""BLD"",6303,1,76,0)"
^XMB(3.9,72,2,162,0)=" HD0000000088913"
^XMB(3.9,72,2,163,0)="""BLD"",6303,1,77,0)"
^XMB(3.9,72,2,164,0)="  Duplicates:"
^XMB(3.9,72,2,165,0)="""BLD"",6303,1,78,0)"
^XMB(3.9,72,2,166,0)="  HD0000000096348"
^XMB(3.9,72,2,167,0)="""BLD"",6303,1,79,0)"
^XMB(3.9,72,2,168,0)="  HD0000000141232"
^XMB(3.9,72,2,169,0)="""BLD"",6303,1,80,0)"
^XMB(3.9,72,2,170,0)="  HD0000000141237"
^XMB(3.9,72,2,171,0)="""BLD"",6303,1,81,0)"
^XMB(3.9,72,2,172,0)="  HD0000000141258"
^XMB(3.9,72,2,173,0)="""BLD"",6303,1,82,0)"
^XMB(3.9,72,2,174,0)="  HD0000000141298"
^XMB(3.9,72,2,175,0)="""BLD"",6303,1,83,0)"
^XMB(3.9,72,2,176,0)="  HD0000000141977"
^XMB(3.9,72,2,177,0)="""BLD"",6303,1,84,0)"
^XMB(3.9,72,2,178,0)="  HD0000000142004"
^XMB(3.9,72,2,179,0)="""BLD"",6303,1,85,0)"
^XMB(3.9,72,2,180,0)="  HD0000000142663"
^XMB(3.9,72,2,181,0)="""BLD"",6303,1,86,0)"
^XMB(3.9,72,2,182,0)="  HD0000000143065"
^XMB(3.9,72,2,183,0)="""BLD"",6303,1,87,0)"
^XMB(3.9,72,2,184,0)="  HD0000000144052"
^XMB(3.9,72,2,185,0)="""BLD"",6303,1,88,0)"
^XMB(3.9,72,2,186,0)="  HD0000000145774"
^XMB(3.9,72,2,187,0)="""BLD"",6303,1,89,0)"
^XMB(3.9,72,2,188,0)="  HD0000000146357"
^XMB(3.9,72,2,189,0)="""BLD"",6303,1,90,0)"
^XMB(3.9,72,2,190,0)="  HD0000000147586"
^XMB(3.9,72,2,191,0)="""BLD"",6303,1,91,0)"
^XMB(3.9,72,2,192,0)="  HD0000000147794"
^XMB(3.9,72,2,193,0)="""BLD"",6303,1,92,0)"
^XMB(3.9,72,2,194,0)="  HD0000000148645"
^XMB(3.9,72,2,195,0)="""BLD"",6303,1,93,0)"
^XMB(3.9,72,2,196,0)=" "
^XMB(3.9,72,2,197,0)="""BLD"",6303,1,94,0)"
^XMB(3.9,72,2,198,0)=""
^XMB(3.9,72,2,199,0)="""BLD"",6303,1,95,0)"
^XMB(3.9,72,2,200,0)=" TEST SITES"
^XMB(3.9,72,2,201,0)="""BLD"",6303,1,96,0)"
^XMB(3.9,72,2,202,0)=" ----------"
^XMB(3.9,72,2,203,0)="""BLD"",6303,1,97,0)"
^XMB(3.9,72,2,204,0)=" "
^XMB(3.9,72,2,205,0)="""BLD"",6303,1,98,0)"
^XMB(3.9,72,2,206,0)=" ALEXANDRIA, LA"
^XMB(3.9,72,2,207,0)="""BLD"",6303,1,99,0)"
^XMB(3.9,72,2,208,0)=" ALTOONA, PA    "
^XMB(3.9,72,2,209,0)="""BLD"",6303,1,100,0)"
^XMB(3.9,72,2,210,0)=" ANN ARBOR, MI  "
^XMB(3.9,72,2,211,0)="""BLD"",6303,1,101,0)"
^XMB(3.9,72,2,212,0)=" BAY PINES, FL  "
^XMB(3.9,72,2,213,0)="""BLD"",6303,1,102,0)"
^XMB(3.9,72,2,214,0)=" BLACK HILLS HCS"
^XMB(3.9,72,2,215,0)="""BLD"",6303,1,103,0)"
^XMB(3.9,72,2,216,0)=" BOSTON HCS     "
^XMB(3.9,72,2,217,0)="""BLD"",6303,1,104,0)"
^XMB(3.9,72,2,218,0)=" BRONX, NY      "
^XMB(3.9,72,2,219,0)="""BLD"",6303,1,105,0)"
^XMB(3.9,72,2,220,0)=" CENTRAL PLAINS HCS "
^XMB(3.9,72,2,221,0)="""BLD"",6303,1,106,0)"
^XMB(3.9,72,2,222,0)=" CENTRAL TEXAS HCS  "
^XMB(3.9,72,2,223,0)="""BLD"",6303,1,107,0)"
^XMB(3.9,72,2,224,0)=" CLEVELAND, OH"
^XMB(3.9,72,2,225,0)="""BLD"",6303,1,108,0)"
^XMB(3.9,72,2,226,0)=" DAYTON, OH   "
^XMB(3.9,72,2,227,0)="""BLD"",6303,1,109,0)"
^XMB(3.9,72,2,228,0)=" DETROIT, MI  "
^XMB(3.9,72,2,229,0)="""BLD"",6303,1,110,0)"
^XMB(3.9,72,2,230,0)=" DUBLIN, GA   "
^XMB(3.9,72,2,231,0)="""BLD"",6303,1,111,0)"
^XMB(3.9,72,2,232,0)=" DURHAM, NC   "
^XMB(3.9,72,2,233,0)="""BLD"",6303,1,112,0)"
^XMB(3.9,72,2,234,0)=" FARGO, ND    "
^XMB(3.9,72,2,235,0)="""BLD"",6303,1,113,0)"
^XMB(3.9,72,2,236,0)=" FRESNO, CA   "
^XMB(3.9,72,2,237,0)="""BLD"",6303,1,114,0)"
^XMB(3.9,72,2,238,0)=" HAMPTON, VA  "
^XMB(3.9,72,2,239,0)="""BLD"",6303,1,115,0)"
^XMB(3.9,72,2,240,0)=" HINES, IL    "
^XMB(3.9,72,2,241,0)="""BLD"",6303,1,116,0)"
^XMB(3.9,72,2,242,0)=" HOUSTON, TX  "
^XMB(3.9,72,2,243,0)="""BLD"",6303,1,117,0)"
^XMB(3.9,72,2,244,0)=" LEXINGTON, KY"
^XMB(3.9,72,2,245,0)="""BLD"",6303,1,118,0)"
^XMB(3.9,72,2,246,0)=" LOMA LINDA, CA"
^XMB(3.9,72,2,247,0)="""BLD"",6303,1,119,0)"
^XMB(3.9,72,2,248,0)=" LONG BEACH, CA"
^XMB(3.9,72,2,249,0)="""BLD"",6303,1,120,0)"
^XMB(3.9,72,2,250,0)=" MADISON, WI   "
^XMB(3.9,72,2,251,0)="""BLD"",6303,1,121,0)"
^XMB(3.9,72,2,252,0)=" MANCHESTER, NH"
^XMB(3.9,72,2,253,0)="""BLD"",6303,1,122,0)"
^XMB(3.9,72,2,254,0)=" MARYLAND HCS  "
^XMB(3.9,72,2,255,0)="""BLD"",6303,1,123,0)"
^XMB(3.9,72,2,256,0)=" MILWAUKEE, WI "
^XMB(3.9,72,2,257,0)="""BLD"",6303,1,124,0)"
^XMB(3.9,72,2,258,0)=" MINNEAPOLIS, MN"
^XMB(3.9,72,2,259,0)="""BLD"",6303,1,125,0)"
^XMB(3.9,72,2,260,0)=" MUSKOGEE, OK   "
^XMB(3.9,72,2,261,0)="""BLD"",6303,1,126,0)"
^XMB(3.9,72,2,262,0)=" NEW YORK HCS   "
^XMB(3.9,72,2,263,0)="""BLD"",6303,1,127,0)"
^XMB(3.9,72,2,264,0)=" NORTH CHICAGO, IL"
^XMB(3.9,72,2,265,0)="""BLD"",6303,1,128,0)"
^XMB(3.9,72,2,266,0)=" NORTHPORT, NY    "
^XMB(3.9,72,2,267,0)="""BLD"",6303,1,129,0)"
^XMB(3.9,72,2,268,0)=" OKLAHOMA CITY, OK"
^XMB(3.9,72,2,269,0)="""BLD"",6303,1,130,0)"
^XMB(3.9,72,2,270,0)=" PHILADELPHIA, PA "
^XMB(3.9,72,2,271,0)="""BLD"",6303,1,131,0)"
^XMB(3.9,72,2,272,0)=" PROVIDENCE, RI   "
^XMB(3.9,72,2,273,0)="""BLD"",6303,1,132,0)"
^XMB(3.9,72,2,274,0)=" RICHMOND, VA     "
^XMB(3.9,72,2,275,0)="""BLD"",6303,1,133,0)"
^XMB(3.9,72,2,276,0)=" SAN FRANCISCO, CA"
^XMB(3.9,72,2,277,0)="""BLD"",6303,1,134,0)"
^XMB(3.9,72,2,278,0)=" SAN JUAN, PR     "
^XMB(3.9,72,2,279,0)="""BLD"",6303,1,135,0)"
^XMB(3.9,72,2,280,0)=" SHERIDAN, WY     "
^XMB(3.9,72,2,281,0)="""BLD"",6303,1,136,0)"
^XMB(3.9,72,2,282,0)=" SHREVEPORT, LA   "
^XMB(3.9,72,2,283,0)="""BLD"",6303,1,137,0)"
^XMB(3.9,72,2,284,0)=" SIOUX FALLS, SD  "
^XMB(3.9,72,2,285,0)="""BLD"",6303,1,138,0)"
^XMB(3.9,72,2,286,0)=" ST CLOUD, MN     "
^XMB(3.9,72,2,287,0)="""BLD"",6303,1,139,0)"
^XMB(3.9,72,2,288,0)=" TAMPA, FL        "
^XMB(3.9,72,2,289,0)="""BLD"",6303,1,140,0)"
^XMB(3.9,72,2,290,0)=" TENNESSEE VALLEY HCS"
^XMB(3.9,72,2,291,0)="""BLD"",6303,1,141,0)"
^XMB(3.9,72,2,292,0)=" UPSTATE NEW YORK HCS"
^XMB(3.9,72,2,293,0)="""BLD"",6303,1,142,0)"
^XMB(3.9,72,2,294,0)=" WEST PALM BEACH, FL "
^XMB(3.9,72,2,295,0)="""BLD"",6303,1,143,0)"
^XMB(3.9,72,2,296,0)=" "
^XMB(3.9,72,2,297,0)="""BLD"",6303,1,144,0)"
^XMB(3.9,72,2,298,0)=""
^XMB(3.9,72,2,299,0)="""BLD"",6303,1,145,0)"
^XMB(3.9,72,2,300,0)=" "
^XMB(3.9,72,2,301,0)="""BLD"",6303,1,146,0)"
^XMB(3.9,72,2,302,0)="ROUTINE SUMMARY"
^XMB(3.9,72,2,303,0)="""BLD"",6303,1,147,0)"
^XMB(3.9,72,2,304,0)="==============="
^XMB(3.9,72,2,305,0)="""BLD"",6303,1,148,0)"
^XMB(3.9,72,2,306,0)="  The following routines are included in this patch.  The second line"
^XMB(3.9,72,2,307,0)="""BLD"",6303,1,149,0)"
^XMB(3.9,72,2,308,0)="  of each of these routines now looks like:"
^XMB(3.9,72,2,309,0)="""BLD"",6303,1,150,0)"
^XMB(3.9,72,2,310,0)="  <tab> ;;5.2;LAB SERVICE;<patchlist>;Sep 27, 1994"
^XMB(3.9,72,2,311,0)="""BLD"",6303,1,151,0)"
^XMB(3.9,72,2,312,0)=" "
^XMB(3.9,72,2,313,0)="""BLD"",6303,1,152,0)"
^XMB(3.9,72,2,314,0)="                    Checksum       Checksum"
^XMB(3.9,72,2,315,0)="""BLD"",6303,1,153,0)"
^XMB(3.9,72,2,316,0)="   Routine Name     Before Patch   After Patch    Patch List"
^XMB(3.9,72,2,317,0)="""BLD"",6303,1,154,0)"
^XMB(3.9,72,2,318,0)="   ------------     ------------   -----------    ------------"
^XMB(3.9,72,2,319,0)="""BLD"",6303,1,155,0)"
^XMB(3.9,72,2,320,0)="   LR329            N/A            5595661        **329** (Deleted by KIDS)"
^XMB(3.9,72,2,321,0)="""BLD"",6303,1,156,0)"
^XMB(3.9,72,2,322,0)="   LROC             9241387        7783203        **121,295,329**"
^XMB(3.9,72,2,323,0)="""BLD"",6303,1,157,0)"
^XMB(3.9,72,2,324,0)=" "
^XMB(3.9,72,2,325,0)="""BLD"",6303,1,158,0)"
^XMB(3.9,72,2,326,0)=" List of preceding patches: 295"
^XMB(3.9,72,2,327,0)="""BLD"",6303,1,159,0)"
^XMB(3.9,72,2,328,0)=" Sites should use CHECK^XTSUMBLD to verify checksums."
^XMB(3.9,72,2,329,0)="""BLD"",6303,1,160,0)"
^XMB(3.9,72,2,330,0)=" "
^XMB(3.9,72,2,331,0)="""BLD"",6303,1,161,0)"
^XMB(3.9,72,2,332,0)=" "
^XMB(3.9,72,2,333,0)="""BLD"",6303,1,162,0)"
^XMB(3.9,72,2,334,0)="INSTALLATION INSTRUCTIONS"
^XMB(3.9,72,2,335,0)="""BLD"",6303,1,163,0)"
^XMB(3.9,72,2,336,0)="-------------------------"
^XMB(3.9,72,2,337,0)="""BLD"",6303,1,164,0)"
^XMB(3.9,72,2,338,0)="  The install time for this patch is less than 5 minute. This patch"
^XMB(3.9,72,2,339,0)="""BLD"",6303,1,165,0)"
^XMB(3.9,72,2,340,0)="  can be installed when Laboratory users are on the system."
^XMB(3.9,72,2,341,0)="""BLD"",6303,1,166,0)"
^XMB(3.9,72,2,342,0)="  Suggested time to install: non-peak requirement hours."
^XMB(3.9,72,2,343,0)="""BLD"",6303,1,167,0)"
^XMB(3.9,72,2,344,0)=" "
^XMB(3.9,72,2,345,0)="""BLD"",6303,1,168,0)"
^XMB(3.9,72,2,346,0)=" "
^XMB(3.9,72,2,347,0)="""BLD"",6303,1,169,0)"
^XMB(3.9,72,2,348,0)="NOTE: Kernel patches must be current on the target system to avoid"
^XMB(3.9,72,2,349,0)="""BLD"",6303,1,170,0)"
^XMB(3.9,72,2,350,0)="      problems loading and/or installing this patch."
^XMB(3.9,72,2,351,0)="""BLD"",6303,1,171,0)"
^XMB(3.9,72,2,352,0)=" "
^XMB(3.9,72,2,353,0)="""BLD"",6303,1,172,0)"
^XMB(3.9,72,2,354,0)="      Patch installation needs to be coordinated with the Laboratory"
^XMB(3.9,72,2,355,0)="""BLD"",6303,1,173,0)"
^XMB(3.9,72,2,356,0)="      Information Manager (LIM/ADPAC)."
^XMB(3.9,72,2,357,0)="""BLD"",6303,1,174,0)"
^XMB(3.9,72,2,358,0)=" "
^XMB(3.9,72,2,359,0)="""BLD"",6303,1,175,0)"
^XMB(3.9,72,2,360,0)=" "
^XMB(3.9,72,2,361,0)="""BLD"",6303,1,176,0)"
^XMB(3.9,72,2,362,0)="  1.  Use the 'INSTALL/CHECK MESSAGE' option on the PackMan menu. This"
^XMB(3.9,72,2,363,0)="""BLD"",6303,1,177,0)"
^XMB(3.9,72,2,364,0)="        option will load the KIDS package onto your system."
^XMB(3.9,72,2,365,0)="""BLD"",6303,1,178,0)"
^XMB(3.9,72,2,366,0)=" "
^XMB(3.9,72,2,367,0)="""BLD"",6303,1,179,0)"
^XMB(3.9,72,2,368,0)="  2.  On the 'Kernel Installation & Distribution System' Menu (KIDS),"
^XMB(3.9,72,2,369,0)="""BLD"",6303,1,180,0)"
^XMB(3.9,72,2,370,0)="      select the 'Installation' menu."
^XMB(3.9,72,2,371,0)="""BLD"",6303,1,181,0)"
^XMB(3.9,72,2,372,0)=" "
^XMB(3.9,72,2,373,0)="""BLD"",6303,1,182,0)"
^XMB(3.9,72,2,374,0)="  3.  From this menu, you may then elect to use the following options"
^XMB(3.9,72,2,375,0)="""BLD"",6303,1,183,0)"
^XMB(3.9,72,2,376,0)="      (when prompted for the INSTALL NAME, enter LR*5.2*329):"
^XMB(3.9,72,2,377,0)="""BLD"",6303,1,184,0)"
^XMB(3.9,72,2,378,0)="        a. Print Transport Global"
^XMB(3.9,72,2,379,0)="""BLD"",6303,1,185,0)"
^XMB(3.9,72,2,380,0)="        b. Backup a Transport Global"
^XMB(3.9,72,2,381,0)="""BLD"",6303,1,186,0)"
^XMB(3.9,72,2,382,0)="        c. Compare Transport Global to Current System"
^XMB(3.9,72,2,383,0)="""BLD"",6303,1,187,0)"
^XMB(3.9,72,2,384,0)="        d. Verify Checksums in Transport Global"
^XMB(3.9,72,2,385,0)="""BLD"",6303,1,188,0)"
^XMB(3.9,72,2,386,0)=" "
^XMB(3.9,72,2,387,0)="""BLD"",6303,1,189,0)"
^XMB(3.9,72,2,388,0)="      Use the 'Verify Checksum in Transport Global' option and verify that"
^XMB(3.9,72,2,389,0)="""BLD"",6303,1,190,0)"
^XMB(3.9,72,2,390,0)="      all routines have the correct checksums."
^XMB(3.9,72,2,391,0)="""BLD"",6303,1,191,0)"
^XMB(3.9,72,2,392,0)=" "
^XMB(3.9,72,2,393,0)="""BLD"",6303,1,192,0)"
^XMB(3.9,72,2,394,0)="  4.  Use the 'Install Package(s)' option under the 'Installation' menu"
^XMB(3.9,72,2,395,0)="""BLD"",6303,1,193,0)"
^XMB(3.9,72,2,396,0)="      and select the package 'LR*5.2*329'."
^XMB(3.9,72,2,397,0)="""BLD"",6303,1,194,0)"
^XMB(3.9,72,2,398,0)=""
^XMB(3.9,72,2,399,0)="""BLD"",6303,1,195,0)"
^XMB(3.9,72,2,400,0)="      When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of "
^XMB(3.9,72,2,401,0)="""BLD"",6303,1,196,0)"
^XMB(3.9,72,2,402,0)="      Install? YES//' choose 'NO'. Responding 'Yes' to the prompt for "
^XMB(3.9,72,2,403,0)="""BLD"",6303,1,197,0)"
^XMB(3.9,72,2,404,0)="      rebuilding menu trees can significantly increase install time."
^XMB(3.9,72,2,405,0)="""BLD"",6303,1,198,0)"
^XMB(3.9,72,2,406,0)=""
^XMB(3.9,72,2,407,0)="""BLD"",6303,1,199,0)"
^XMB(3.9,72,2,408,0)="      When prompted 'Want KIDS to INHIBIT LOGONs during the install? YES//"
^XMB(3.9,72,2,409,0)="""BLD"",6303,1,200,0)"
^XMB(3.9,72,2,410,0)="      choose 'NO'."
^XMB(3.9,72,2,411,0)="""BLD"",6303,1,201,0)"
^XMB(3.9,72,2,412,0)=" "
^XMB(3.9,72,2,413,0)="""BLD"",6303,1,202,0)"
^XMB(3.9,72,2,414,0)="      When prompted 'Want to DISABLE Scheduled Options, Menu Options,"
^XMB(3.9,72,2,415,0)="""BLD"",6303,1,203,0)"
^XMB(3.9,72,2,416,0)="      and Protocols? YES//', choose 'NO'."
^XMB(3.9,72,2,417,0)="""BLD"",6303,1,204,0)"
^XMB(3.9,72,2,418,0)=" "
^XMB(3.9,72,2,419,0)="""BLD"",6303,1,205,0)"
^XMB(3.9,72,2,420,0)="      During install KIDS will place the Purge old orders & accessions"
^XMB(3.9,72,2,421,0)="""BLD"",6303,1,206,0)"
^XMB(3.9,72,2,422,0)="      option [LROC] out of order."
^XMB(3.9,72,2,423,0)="""BLD"",6303,1,207,0)"
^XMB(3.9,72,2,424,0)=" "
^XMB(3.9,72,2,425,0)="""BLD"",6303,1,208,0)"
^XMB(3.9,72,2,426,0)=" Note: Routine LR329 will be deleted after successful patch installation."
^XMB(3.9,72,2,427,0)="""BLD"",6303,1,209,0)"
^XMB(3.9,72,2,428,0)=" "
^XMB(3.9,72,2,429,0)="""BLD"",6303,1,210,0)"
^XMB(3.9,72,2,430,0)=" "
^XMB(3.9,72,2,431,0)="""BLD"",6303,1,211,0)"
^XMB(3.9,72,2,432,0)="INSTALLATION EXAMPLE"
^XMB(3.9,72,2,433,0)="""BLD"",6303,1,212,0)"
^XMB(3.9,72,2,434,0)="===================="
^XMB(3.9,72,2,435,0)="""BLD"",6303,1,213,0)"
^XMB(3.9,72,2,436,0)=" "
^XMB(3.9,72,2,437,0)="""BLD"",6303,1,214,0)"
^XMB(3.9,72,2,438,0)="Select Installation Option:"
^XMB(3.9,72,2,439,0)="""BLD"",6303,1,215,0)"
^XMB(3.9,72,2,440,0)=" "
^XMB(3.9,72,2,441,0)="""BLD"",6303,1,216,0)"
^XMB(3.9,72,2,442,0)="Select Kernel Installation & Distribution System Option:  Installation"
^XMB(3.9,72,2,443,0)="""BLD"",6303,1,217,0)"
^XMB(3.9,72,2,444,0)=" "
^XMB(3.9,72,2,445,0)="""BLD"",6303,1,218,0)"
^XMB(3.9,72,2,446,0)="Select Installation Option: 6  Install Package(s)"
^XMB(3.9,72,2,447,0)="""BLD"",6303,1,219,0)"
^XMB(3.9,72,2,448,0)="Select INSTALL NAME: LR*5.2*329  Loaded from Distribution  4/11/05@16:15:44"
^XMB(3.9,72,2,449,0)="""BLD"",6303,1,220,0)"
^XMB(3.9,72,2,450,0)="     => LR*5.2*329"
^XMB(3.9,72,2,451,0)="""BLD"",6303,1,221,0)"
^XMB(3.9,72,2,452,0)=" "
^XMB(3.9,72,2,453,0)="""BLD"",6303,1,222,0)"
^XMB(3.9,72,2,454,0)="This Distribution was loaded on Apr 11, 2005@16:15:44 with header of"
^XMB(3.9,72,2,455,0)="""BLD"",6303,1,223,0)"
^XMB(3.9,72,2,456,0)="   LR*5.2*329"
^XMB(3.9,72,2,457,0)="""BLD"",6303,1,224,0)"
^XMB(3.9,72,2,458,0)="   It consisted of the following Install(s):"
^XMB(3.9,72,2,459,0)="""BLD"",6303,1,225,0)"
^XMB(3.9,72,2,460,0)="     LR*5.2*329"
^XMB(3.9,72,2,461,0)="""BLD"",6303,1,226,0)"
^XMB(3.9,72,2,462,0)="Checking Install for Package LR*5.2*329"
^XMB(3.9,72,2,463,0)="""BLD"",6303,1,227,0)"
^XMB(3.9,72,2,464,0)="Will first run the Environment Check Routine, LR329"
^XMB(3.9,72,2,465,0)="""BLD"",6303,1,228,0)"
^XMB(3.9,72,2,466,0)=" "
^XMB(3.9,72,2,467,0)="""BLD"",6303,1,229,0)"
^XMB(3.9,72,2,468,0)=" "
^XMB(3.9,72,2,469,0)="""BLD"",6303,1,230,0)"
^XMB(3.9,72,2,470,0)="               Sending install started alert to mail group G.LMI"
^XMB(3.9,72,2,471,0)="""BLD"",6303,1,231,0)"
^XMB(3.9,72,2,472,0)=" "
^XMB(3.9,72,2,473,0)="""BLD"",6303,1,232,0)"
^XMB(3.9,72,2,474,0)="                        --- Environment Check is Ok ---"
^XMB(3.9,72,2,475,0)="""BLD"",6303,1,233,0)"
^XMB(3.9,72,2,476,0)=" "
^XMB(3.9,72,2,477,0)="""BLD"",6303,1,234,0)"
^XMB(3.9,72,2,478,0)="Install Questions for LR*5.2*329"
^XMB(3.9,72,2,479,0)="""BLD"",6303,1,235,0)"
^XMB(3.9,72,2,480,0)=" "
^XMB(3.9,72,2,481,0)="""BLD"",6303,1,236,0)"
^XMB(3.9,72,2,482,0)=" "
^XMB(3.9,72,2,483,0)="""BLD"",6303,1,237,0)"
^XMB(3.9,72,2,484,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install? YES// NO"
^XMB(3.9,72,2,485,0)="""BLD"",6303,1,238,0)"
^XMB(3.9,72,2,486,0)=" "
^XMB(3.9,72,2,487,0)="""BLD"",6303,1,239,0)"
^XMB(3.9,72,2,488,0)=" "
^XMB(3.9,72,2,489,0)="""BLD"",6303,1,240,0)"
^XMB(3.9,72,2,490,0)="Want KIDS to INHIBIT LOGONs during the install? YES// NO"
^XMB(3.9,72,2,491,0)="""BLD"",6303,1,241,0)"
^XMB(3.9,72,2,492,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols? YES// NO"
^XMB(3.9,72,2,493,0)="""BLD"",6303,1,242,0)"
^XMB(3.9,72,2,494,0)=" "
^XMB(3.9,72,2,495,0)="""BLD"",6303,1,243,0)"
^XMB(3.9,72,2,496,0)="Enter the Device you want to print the Install messages."
^XMB(3.9,72,2,497,0)="""BLD"",6303,1,244,0)"
^XMB(3.9,72,2,498,0)="You can queue the install by enter a 'Q' at the device prompt."
^XMB(3.9,72,2,499,0)="""BLD"",6303,1,245,0)"
^XMB(3.9,72,2,500,0)="Enter a '^' to abort the install."
^XMB(3.9,72,2,501,0)="""BLD"",6303,1,246,0)"
^XMB(3.9,72,2,502,0)=" "
^XMB(3.9,72,2,503,0)="""BLD"",6303,1,247,0)"
^XMB(3.9,72,2,504,0)="DEVICE: HOME// TELNET VIRTUAL"
^XMB(3.9,72,2,505,0)="""BLD"",6303,1,248,0)"
^XMB(3.9,72,2,506,0)=" "
^XMB(3.9,72,2,507,0)="""BLD"",6303,1,249,0)"
^XMB(3.9,72,2,508,0)=" "
^XMB(3.9,72,2,509,0)="""BLD"",6303,1,250,0)"
^XMB(3.9,72,2,510,0)=" Install Started for LR*5.2*329 :"
^XMB(3.9,72,2,511,0)="""BLD"",6303,1,251,0)"
^XMB(3.9,72,2,512,0)="               Apr 11, 2005@16:16:28"
^XMB(3.9,72,2,513,0)="""BLD"",6303,1,252,0)"
^XMB(3.9,72,2,514,0)=" "
^XMB(3.9,72,2,515,0)="""BLD"",6303,1,253,0)"
^XMB(3.9,72,2,516,0)="Build Distribution Date: Apr 11, 2005"
^XMB(3.9,72,2,517,0)="""BLD"",6303,1,254,0)"
^XMB(3.9,72,2,518,0)=" "
^XMB(3.9,72,2,519,0)="""BLD"",6303,1,255,0)"
^XMB(3.9,72,2,520,0)=" Installing Routines:..."
^XMB(3.9,72,2,521,0)="""BLD"",6303,1,256,0)"
^XMB(3.9,72,2,522,0)="               Apr 11, 2005@16:16:28"
^XMB(3.9,72,2,523,0)="""BLD"",6303,1,257,0)"
^XMB(3.9,72,2,524,0)=" "
^XMB(3.9,72,2,525,0)="""BLD"",6303,1,258,0)"
^XMB(3.9,72,2,526,0)=" Running Pre-Install Routine: PRE^LR329."
^XMB(3.9,72,2,527,0)="""BLD"",6303,1,259,0)"
^XMB(3.9,72,2,528,0)=" "
^XMB(3.9,72,2,529,0)="""BLD"",6303,1,260,0)"
^XMB(3.9,72,2,530,0)="                          *** Pre install started ***"
^XMB(3.9,72,2,531,0)="""BLD"",6303,1,261,0)"
^XMB(3.9,72,2,532,0)=" "
^XMB(3.9,72,2,533,0)="""BLD"",6303,1,262,0)"
^XMB(3.9,72,2,534,0)="                           *** No action required ***"
^XMB(3.9,72,2,535,0)="""BLD"",6303,1,263,0)"
^XMB(3.9,72,2,536,0)=" "
^XMB(3.9,72,2,537,0)="""BLD"",6303,1,264,0)"
^XMB(3.9,72,2,538,0)="                         *** Pre install completed ***"
^XMB(3.9,72,2,539,0)="""BLD"",6303,1,265,0)"
^XMB(3.9,72,2,540,0)=" "
^XMB(3.9,72,2,541,0)="""BLD"",6303,1,266,0)"
^XMB(3.9,72,2,542,0)=" Installing PACKAGE COMPONENTS:"
^XMB(3.9,72,2,543,0)="""BLD"",6303,1,267,0)"
^XMB(3.9,72,2,544,0)=" "
^XMB(3.9,72,2,545,0)="""BLD"",6303,1,268,0)"
^XMB(3.9,72,2,546,0)=" Installing OPTION.."
^XMB(3.9,72,2,547,0)="""BLD"",6303,1,269,0)"
^XMB(3.9,72,2,548,0)="               Apr 11, 2005@16:16:28"
^XMB(3.9,72,2,549,0)="""BLD"",6303,1,270,0)"
^XMB(3.9,72,2,550,0)=" "
^XMB(3.9,72,2,551,0)="""BLD"",6303,1,271,0)"
^XMB(3.9,72,2,552,0)=" Running Post-Install Routine: POST^LR329."
^XMB(3.9,72,2,553,0)="""BLD"",6303,1,272,0)"
^XMB(3.9,72,2,554,0)=" "
^XMB(3.9,72,2,555,0)="""BLD"",6303,1,273,0)"
^XMB(3.9,72,2,556,0)="                          *** Post install started ***"
^XMB(3.9,72,2,557,0)="""BLD"",6303,1,274,0)"
^XMB(3.9,72,2,558,0)=" "
^XMB(3.9,72,2,559,0)="""BLD"",6303,1,275,0)"
^XMB(3.9,72,2,560,0)=" *** Tasking check/cleanup ""C"" cross reference on ACCESSION file (#68) ***"
^XMB(3.9,72,2,561,0)="""BLD"",6303,1,276,0)"
^XMB(3.9,72,2,562,0)=" "
^XMB(3.9,72,2,563,0)="""BLD"",6303,1,277,0)"
^XMB(3.9,72,2,564,0)="                       *** Task #XXXX tasked to run ***"
^XMB(3.9,72,2,565,0)="""BLD"",6303,1,278,0)"
^XMB(3.9,72,2,566,0)=" "
^XMB(3.9,72,2,567,0)="""BLD"",6303,1,279,0)"
^XMB(3.9,72,2,568,0)="                         *** Post install completed ***"
^XMB(3.9,72,2,569,0)="""BLD"",6303,1,280,0)"
^XMB(3.9,72,2,570,0)=" "
^XMB(3.9,72,2,571,0)="""BLD"",6303,1,281,0)"
^XMB(3.9,72,2,572,0)="              Sending install completion alert to mail group G.LMI"
^XMB(3.9,72,2,573,0)="""BLD"",6303,1,282,0)"
^XMB(3.9,72,2,574,0)=" "
^XMB(3.9,72,2,575,0)="""BLD"",6303,1,283,0)"
^XMB(3.9,72,2,576,0)=" Updating Routine file......"
^XMB(3.9,72,2,577,0)="""BLD"",6303,1,284,0)"
^XMB(3.9,72,2,578,0)=" "
^XMB(3.9,72,2,579,0)="""BLD"",6303,1,285,0)"
^XMB(3.9,72,2,580,0)=" Updating KIDS files......."
^XMB(3.9,72,2,581,0)="""BLD"",6303,1,286,0)"
^XMB(3.9,72,2,582,0)=" "
^XMB(3.9,72,2,583,0)="""BLD"",6303,1,287,0)"
^XMB(3.9,72,2,584,0)=" LR*5.2*329 Installed."
^XMB(3.9,72,2,585,0)="""BLD"",6303,1,288,0)"
^XMB(3.9,72,2,586,0)="               Apr 11, 2005@16:16:28"
^XMB(3.9,72,2,587,0)="""BLD"",6303,1,289,0)"
^XMB(3.9,72,2,588,0)=" "
^XMB(3.9,72,2,589,0)="""BLD"",6303,1,290,0)"
^XMB(3.9,72,2,590,0)=" Install Message sent #XXXX"
^XMB(3.9,72,2,591,0)="""BLD"",6303,1,291,0)"
^XMB(3.9,72,2,592,0)=""
^XMB(3.9,72,2,593,0)="""BLD"",6303,1,292,0)"
^XMB(3.9,72,2,594,0)=""
^XMB(3.9,72,2,595,0)="""BLD"",6303,1,293,0)"
^XMB(3.9,72,2,596,0)=""
^XMB(3.9,72,2,597,0)="""BLD"",6303,1,294,0)"
^XMB(3.9,72,2,598,0)=""
^XMB(3.9,72,2,599,0)="""BLD"",6303,1,295,0)"
^XMB(3.9,72,2,600,0)=""
^XMB(3.9,72,2,601,0)="""BLD"",6303,4,0)"
^XMB(3.9,72,2,602,0)="^9.64PA^^"
^XMB(3.9,72,2,603,0)="""BLD"",6303,6.3)"
^XMB(3.9,72,2,604,0)="2"
^XMB(3.9,72,2,605,0)="""BLD"",6303,""ABPKG"")"
^XMB(3.9,72,2,606,0)="n"
^XMB(3.9,72,2,607,0)="""BLD"",6303,""INI"")"
^XMB(3.9,72,2,608,0)="PRE^LR329"
^XMB(3.9,72,2,609,0)="""BLD"",6303,""INID"")"
^XMB(3.9,72,2,610,0)="y"
^XMB(3.9,72,2,611,0)="""BLD"",6303,""INIT"")"
^XMB(3.9,72,2,612,0)="POST^LR329"
^XMB(3.9,72,2,613,0)="""BLD"",6303,""KRN"",0)"
^XMB(3.9,72,2,614,0)="^9.67PA^8989.52^19"
^XMB(3.9,72,2,615,0)="""BLD"",6303,""KRN"",.4,0)"
^XMB(3.9,72,2,616,0)=".4"
^XMB(3.9,72,2,617,0)="""BLD"",6303,""KRN"",.401,0)"
^XMB(3.9,72,2,618,0)=".401"
^XMB(3.9,72,2,619,0)="""BLD"",6303,""KRN"",.402,0)"
^XMB(3.9,72,2,620,0)=".402"
^XMB(3.9,72,2,621,0)="""BLD"",6303,""KRN"",.403,0)"
^XMB(3.9,72,2,622,0)=".403"
^XMB(3.9,72,2,623,0)="""BLD"",6303,""KRN"",.5,0)"
^XMB(3.9,72,2,624,0)=".5"
^XMB(3.9,72,2,625,0)="""BLD"",6303,""KRN"",.84,0)"
^XMB(3.9,72,2,626,0)=".84"
^XMB(3.9,72,2,627,0)="""BLD"",6303,""KRN"",3.6,0)"
^XMB(3.9,72,2,628,0)="3.6"
^XMB(3.9,72,2,629,0)="""BLD"",6303,""KRN"",3.8,0)"
^XMB(3.9,72,2,630,0)="3.8"
^XMB(3.9,72,2,631,0)="""BLD"",6303,""KRN"",9.2,0)"
^XMB(3.9,72,2,632,0)="9.2"
^XMB(3.9,72,2,633,0)="""BLD"",6303,""KRN"",9.8,0)"
^XMB(3.9,72,2,634,0)="9.8"
^XMB(3.9,72,2,635,0)="""BLD"",6303,""KRN"",9.8,""NM"",0)"
^XMB(3.9,72,2,636,0)="^9.68A^1^1"
^XMB(3.9,72,2,637,0)="""BLD"",6303,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,72,2,638,0)="LROC^^0^B27696934"
^XMB(3.9,72,2,639,0)="""BLD"",6303,""KRN"",9.8,""NM"",""B"",""LROC"",1)"
^XMB(3.9,72,2,640,0)=""
^XMB(3.9,72,2,641,0)="""BLD"",6303,""KRN"",19,0)"
^XMB(3.9,72,2,642,0)="19"
^XMB(3.9,72,2,643,0)="""BLD"",6303,""KRN"",19,""NM"",0)"
^XMB(3.9,72,2,644,0)="^9.68A^1^1"
^XMB(3.9,72,2,645,0)="""BLD"",6303,""KRN"",19,""NM"",1,0)"
^XMB(3.9,72,2,646,0)="LROC^^5^"
^XMB(3.9,72,2,647,0)="""BLD"",6303,""KRN"",19,""NM"",""B"",""LROC"",1)"
^XMB(3.9,72,2,648,0)=""
^XMB(3.9,72,2,649,0)="""BLD"",6303,""KRN"",19.1,0)"
^XMB(3.9,72,2,650,0)="19.1"
^XMB(3.9,72,2,651,0)="""BLD"",6303,""KRN"",101,0)"
^XMB(3.9,72,2,652,0)="101"
^XMB(3.9,72,2,653,0)="""BLD"",6303,""KRN"",409.61,0)"
^XMB(3.9,72,2,654,0)="409.61"
^XMB(3.9,72,2,655,0)="""BLD"",6303,""KRN"",771,0)"
^XMB(3.9,72,2,656,0)="771"
^XMB(3.9,72,2,657,0)="""BLD"",6303,""KRN"",870,0)"
^XMB(3.9,72,2,658,0)="870"
^XMB(3.9,72,2,659,0)="""BLD"",6303,""KRN"",8989.51,0)"
^XMB(3.9,72,2,660,0)="8989.51"
^XMB(3.9,72,2,661,0)="""BLD"",6303,""KRN"",8989.52,0)"
^XMB(3.9,72,2,662,0)="8989.52"
^XMB(3.9,72,2,663,0)="""BLD"",6303,""KRN"",8994,0)"
^XMB(3.9,72,2,664,0)="8994"
^XMB(3.9,72,2,665,0)="""BLD"",6303,""KRN"",""B"",.4,.4)"
^XMB(3.9,72,2,666,0)=""
^XMB(3.9,72,2,667,0)="""BLD"",6303,""KRN"",""B"",.401,.401)"
^XMB(3.9,72,2,668,0)=""
^XMB(3.9,72,2,669,0)="""BLD"",6303,""KRN"",""B"",.402,.402)"
^XMB(3.9,72,2,670,0)=""
^XMB(3.9,72,2,671,0)="""BLD"",6303,""KRN"",""B"",.403,.403)"
^XMB(3.9,72,2,672,0)=""
^XMB(3.9,72,2,673,0)="""BLD"",6303,""KRN"",""B"",.5,.5)"
^XMB(3.9,72,2,674,0)=""
^XMB(3.9,72,2,675,0)="""BLD"",6303,""KRN"",""B"",.84,.84)"
^XMB(3.9,72,2,676,0)=""
^XMB(3.9,72,2,677,0)="""BLD"",6303,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,72,2,678,0)=""
^XMB(3.9,72,2,679,0)="""BLD"",6303,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,72,2,680,0)=""
^XMB(3.9,72,2,681,0)="""BLD"",6303,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,72,2,682,0)=""
^XMB(3.9,72,2,683,0)="""BLD"",6303,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,72,2,684,0)=""
^XMB(3.9,72,2,685,0)="""BLD"",6303,""KRN"",""B"",19,19)"
^XMB(3.9,72,2,686,0)=""
^XMB(3.9,72,2,687,0)="""BLD"",6303,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,72,2,688,0)=""
^XMB(3.9,72,2,689,0)="""BLD"",6303,""KRN"",""B"",101,101)"
^XMB(3.9,72,2,690,0)=""
^XMB(3.9,72,2,691,0)="""BLD"",6303,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,72,2,692,0)=""
^XMB(3.9,72,2,693,0)="""BLD"",6303,""KRN"",""B"",771,771)"
^XMB(3.9,72,2,694,0)=""
^XMB(3.9,72,2,695,0)="""BLD"",6303,""KRN"",""B"",870,870)"
^XMB(3.9,72,2,696,0)=""
^XMB(3.9,72,2,697,0)="""BLD"",6303,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,72,2,698,0)=""
^XMB(3.9,72,2,699,0)="""BLD"",6303,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,72,2,700,0)=""
^XMB(3.9,72,2,701,0)="""BLD"",6303,""KRN"",""B"",8994,8994)"
^XMB(3.9,72,2,702,0)=""
^XMB(3.9,72,2,703,0)="""BLD"",6303,""PRE"")"
^XMB(3.9,72,2,704,0)="LR329"
^XMB(3.9,72,2,705,0)="""BLD"",6303,""QUES"",0)"
^XMB(3.9,72,2,706,0)="^9.62^^"
^XMB(3.9,72,2,707,0)="""BLD"",6303,""REQB"",0)"
^XMB(3.9,72,2,708,0)="^9.611^1^1"
^XMB(3.9,72,2,709,0)="""BLD"",6303,""REQB"",1,0)"
^XMB(3.9,72,2,710,0)="LR*5.2*295^2"
^XMB(3.9,72,2,711,0)="""BLD"",6303,""REQB"",""B"",""LR*5.2*295"",1)"
^XMB(3.9,72,2,712,0)=""
^XMB(3.9,72,2,713,0)="""INI"")"
^XMB(3.9,72,2,714,0)="PRE^LR329"
^XMB(3.9,72,2,715,0)="""INIT"")"
^XMB(3.9,72,2,716,0)="POST^LR329"
^XMB(3.9,72,2,717,0)="""KRN"",19,8335,-1)"
^XMB(3.9,72,2,718,0)="5^1"
^XMB(3.9,72,2,719,0)="""KRN"",19,8335,0)"
^XMB(3.9,72,2,720,0)="LROC"
^XMB(3.9,72,2,721,0)="""MBREQ"")"
^XMB(3.9,72,2,722,0)="0"
^XMB(3.9,72,2,723,0)="""ORD"",18,19)"
^XMB(3.9,72,2,724,0)="19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA"
^XMB(3.9,72,2,725,0)="""ORD"",18,19,0)"
^XMB(3.9,72,2,726,0)="OPTION"
^XMB(3.9,72,2,727,0)="""PKG"",26,-1)"
^XMB(3.9,72,2,728,0)="1^1"
^XMB(3.9,72,2,729,0)="""PKG"",26,0)"
^XMB(3.9,72,2,730,0)="LAB SERVICE^LR^CORE LAB SYSTEM"
^XMB(3.9,72,2,731,0)="""PKG"",26,20,0)"
^XMB(3.9,72,2,732,0)="^9.402P^1^1"
^XMB(3.9,72,2,733,0)="""PKG"",26,20,1,0)"
^XMB(3.9,72,2,734,0)="2^^LRXDRPT"
^XMB(3.9,72,2,735,0)="""PKG"",26,20,1,1)"
^XMB(3.9,72,2,736,0)=""
^XMB(3.9,72,2,737,0)="""PKG"",26,20,""B"",2,1)"
^XMB(3.9,72,2,738,0)=""
^XMB(3.9,72,2,739,0)="""PKG"",26,22,0)"
^XMB(3.9,72,2,740,0)="^9.49I^1^1"
^XMB(3.9,72,2,741,0)="""PKG"",26,22,1,0)"
^XMB(3.9,72,2,742,0)="5.2^2940927^2981028^66481"
^XMB(3.9,72,2,743,0)="""PKG"",26,22,1,""PAH"",1,0)"
^XMB(3.9,72,2,744,0)="329^3060717^235"
^XMB(3.9,72,2,745,0)="""PKG"",26,22,1,""PAH"",1,1,0)"
^XMB(3.9,72,2,746,0)="^^295^295^3060717"
^XMB(3.9,72,2,747,0)="""PKG"",26,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,72,2,748,0)="EFFECT ON BLOOD BANK FUNCTIONAL REQUIREMENTS: Patch LR*5.2*329 does"
^XMB(3.9,72,2,749,0)="""PKG"",26,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,72,2,750,0)="not contain any changes to the VISTA BLOOD BANK Software as defined"
^XMB(3.9,72,2,751,0)="""PKG"",26,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,72,2,752,0)="by VHA DIRECTIVE 2004-058 titled VISTA BLOOD BANK SOFTWARE VERSION 5.2."
^XMB(3.9,72,2,753,0)="""PKG"",26,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,72,2,754,0)=" "
^XMB(3.9,72,2,755,0)="""PKG"",26,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,72,2,756,0)="EFFECT ON BLOOD BANK FUNCTIONAL REQUIREMENTS: Patch LR*5.2*329 does"
^XMB(3.9,72,2,757,0)="""PKG"",26,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,72,2,758,0)="not alter or modify any software design safeguards or safety critical"
^XMB(3.9,72,2,759,0)="""PKG"",26,22,1,""PAH"",1,1,7,0)"
^XMB(3.9,72,2,760,0)="elements functions."
^XMB(3.9,72,2,761,0)="""PKG"",26,22,1,""PAH"",1,1,8,0)"
^XMB(3.9,72,2,762,0)=" "
^XMB(3.9,72,2,763,0)="""PKG"",26,22,1,""PAH"",1,1,9,0)"
^XMB(3.9,72,2,764,0)="RISK ANALYSIS: Changes made by patch LR*5.2*329 have no effect on Blood"
^XMB(3.9,72,2,765,0)="""PKG"",26,22,1,""PAH"",1,1,10,0)"
^XMB(3.9,72,2,766,0)="Bank software functionality, therefore RISK is none."
^XMB(3.9,72,2,767,0)="""PKG"",26,22,1,""PAH"",1,1,11,0)"
^XMB(3.9,72,2,768,0)=" "
^XMB(3.9,72,2,769,0)="""PKG"",26,22,1,""PAH"",1,1,12,0)"
^XMB(3.9,72,2,770,0)=" "
^XMB(3.9,72,2,771,0)="""PKG"",26,22,1,""PAH"",1,1,13,0)"
^XMB(3.9,72,2,772,0)="1. Remedy ticket HD0000000088913 reported the Laboratory software was"
^XMB(3.9,72,2,773,0)="""PKG"",26,22,1,""PAH"",1,1,14,0)"
^XMB(3.9,72,2,774,0)="creating Laboratory Unique Identifiers (UID) which used the prefix '00'"
^XMB(3.9,72,2,775,0)="""PKG"",26,22,1,""PAH"",1,1,15,0)"
^XMB(3.9,72,2,776,0)="instead of the site's two character identifier assigned to each accession"
^XMB(3.9,72,2,777,0)="""PKG"",26,22,1,""PAH"",1,1,16,0)"
^XMB(3.9,72,2,778,0)="area. This situation exists when the UIDs from old previously purged"
^XMB(3.9,72,2,779,0)="""PKG"",26,22,1,""PAH"",1,1,17,0)"
^XMB(3.9,72,2,780,0)="accessions are still in the ""C"" cross-reference of the ACCESSION file"
^XMB(3.9,72,2,781,0)="""PKG"",26,22,1,""PAH"",1,1,18,0)"
^XMB(3.9,72,2,782,0)="(#68), many from when the UID was first implemented in 1995."
^XMB(3.9,72,2,783,0)="""PKG"",26,22,1,""PAH"",1,1,19,0)"
^XMB(3.9,72,2,784,0)=" "
^XMB(3.9,72,2,785,0)="""PKG"",26,22,1,""PAH"",1,1,20,0)"
^XMB(3.9,72,2,786,0)="One of the checks performed during UID creation is to check if the UID"
^XMB(3.9,72,2,787,0)="""PKG"",26,22,1,""PAH"",1,1,21,0)"
^XMB(3.9,72,2,788,0)="being generated exists in the ""C"" cross-reference. If it does and it is not"
^XMB(3.9,72,2,789,0)="""PKG"",26,22,1,""PAH"",1,1,22,0)"
^XMB(3.9,72,2,790,0)="for the accession being created then the software replaces the accession"
^XMB(3.9,72,2,791,0)="""PKG"",26,22,1,""PAH"",1,1,23,0)"
^XMB(3.9,72,2,792,0)="area identifier the site has specified for the accession area and uses ""00"""
^XMB(3.9,72,2,793,0)="""PKG"",26,22,1,""PAH"",1,1,24,0)"
^XMB(3.9,72,2,794,0)="in its place to insure creation of a unique identifier."
^XMB(3.9,72,2,795,0)="""PKG"",26,22,1,""PAH"",1,1,25,0)"
^XMB(3.9,72,2,796,0)=" "
^XMB(3.9,72,2,797,0)="""PKG"",26,22,1,""PAH"",1,1,26,0)"
^XMB(3.9,72,2,798,0)="Example: LRO(68,""C"",1550180008,25,2950118,8)"
^XMB(3.9,72,2,799,0)="""PKG"",26,22,1,""PAH"",1,1,27,0)"
^XMB(3.9,72,2,800,0)="Where: LRO = LRO global"
^XMB(3.9,72,2,801,0)="""PKG"",26,22,1,""PAH"",1,1,28,0)"
^XMB(3.9,72,2,802,0)="        68 = ACCESSION file (#68)"
^XMB(3.9,72,2,803,0)="""PKG"",26,22,1,""PAH"",1,1,29,0)"
^XMB(3.9,72,2,804,0)="       ""C"" = cross reference"
^XMB(3.9,72,2,805,0)="""PKG"",26,22,1,""PAH"",1,1,30,0)"
^XMB(3.9,72,2,806,0)=" 155018008 = UID"
^XMB(3.9,72,2,807,0)="""PKG"",26,22,1,""PAH"",1,1,31,0)"
^XMB(3.9,72,2,808,0)="        25 = accession area"
^XMB(3.9,72,2,809,0)="""PKG"",26,22,1,""PAH"",1,1,32,0)"
^XMB(3.9,72,2,810,0)="   2950118 = accession date (Jan 18 1995)"
^XMB(3.9,72,2,811,0)="""PKG"",26,22,1,""PAH"",1,1,33,0)"
^XMB(3.9,72,2,812,0)="         8 = accession number portion"
^XMB(3.9,72,2,813,0)="""PKG"",26,22,1,""PAH"",1,1,34,0)"
^XMB(3.9,72,2,814,0)=""
^XMB(3.9,72,2,815,0)="""PKG"",26,22,1,""PAH"",1,1,35,0)"
^XMB(3.9,72,2,816,0)="If the software wanted to assign the normally generated accession UID"
^XMB(3.9,72,2,817,0)="""PKG"",26,22,1,""PAH"",1,1,36,0)"
^XMB(3.9,72,2,818,0)="1550180008 to accession area 25, accession date of Jan 18 2005, accession"
^XMB(3.9,72,2,819,0)="""PKG"",26,22,1,""PAH"",1,1,37,0)"
^XMB(3.9,72,2,820,0)="number of 18 but found the UID already exist for 1995 accession for the"
^XMB(3.9,72,2,821,0)="""PKG"",26,22,1,""PAH"",1,1,38,0)"
^XMB(3.9,72,2,822,0)="same day and number then UID generating software would replace 15 with 00"
^XMB(3.9,72,2,823,0)="""PKG"",26,22,1,""PAH"",1,1,39,0)"
^XMB(3.9,72,2,824,0)="to create a UID 0050180008 to allow accessioning to continue. "
^XMB(3.9,72,2,825,0)="""PKG"",26,22,1,""PAH"",1,1,40,0)"
^XMB(3.9,72,2,826,0)=""
^XMB(3.9,72,2,827,0)="""PKG"",26,22,1,""PAH"",1,1,41,0)"
^XMB(3.9,72,2,828,0)="Note: The UID generating software will always produce an unique number."
^XMB(3.9,72,2,829,0)="""PKG"",26,22,1,""PAH"",1,1,42,0)"
^XMB(3.9,72,2,830,0)="No two accessions will ever have the same UID based on the ""C"" cross reference."
^XMB(3.9,72,2,831,0)="""PKG"",26,22,1,""PAH"",1,1,43,0)"
^XMB(3.9,72,2,832,0)=" "
^XMB(3.9,72,2,833,0)="""PKG"",26,22,1,""PAH"",1,1,44,0)"
^XMB(3.9,72,2,834,0)="The routine LROC is modified to check for purged accessions and remove"
^XMB(3.9,72,2,835,0)="""PKG"",26,22,1,""PAH"",1,1,45,0)"
^XMB(3.9,72,2,836,0)="purged accession's UID from the ""C"" and ""D"" cross reference of the"
^XMB(3.9,72,2,837,0)="""PKG"",26,22,1,""PAH"",1,1,46,0)"
^XMB(3.9,72,2,838,0)="ACCESSION (#68) file. This will correct the problem of 10 year"
^XMB(3.9,72,2,839,0)="""PKG"",26,22,1,""PAH"",1,1,47,0)"
^XMB(3.9,72,2,840,0)="overlapping accession UID. This routine is invoked by Purge old orders"
^XMB(3.9,72,2,841,0)="""PKG"",26,22,1,""PAH"",1,1,48,0)"
^XMB(3.9,72,2,842,0)="& accessions option [LROC]."
^XMB(3.9,72,2,843,0)="""PKG"",26,22,1,""PAH"",1,1,49,0)"
^XMB(3.9,72,2,844,0)=" "
^XMB(3.9,72,2,845,0)="""PKG"",26,22,1,""PAH"",1,1,50,0)"
^XMB(3.9,72,2,846,0)="Note: After installation of this patch the Laboratory software will"
^XMB(3.9,72,2,847,0)="""PKG"",26,22,1,""PAH"",1,1,51,0)"
^XMB(3.9,72,2,848,0)="continue to create UIDs using the ""00"" prefix when an existing accession"
^XMB(3.9,72,2,849,0)="""PKG"",26,22,1,""PAH"",1,1,52,0)"
^XMB(3.9,72,2,850,0)="is still currently on the system and using the UID. This is to assure that"
^XMB(3.9,72,2,851,0)="""PKG"",26,22,1,""PAH"",1,1,53,0)"
^XMB(3.9,72,2,852,0)="the UID assigned to an accession is unique. The Laboratory software is"
^XMB(3.9,72,2,853,0)="""PKG"",26,22,1,""PAH"",1,1,54,0)"
^XMB(3.9,72,2,854,0)="capable of handling UIDs correctly when the UID has a ""00"" prefix. There"
^XMB(3.9,72,2,855,0)="""PKG"",26,22,1,""PAH"",1,1,55,0)"
^XMB(3.9,72,2,856,0)="is no inherent requirement that a specific UID conform exactly to its"
^XMB(3.9,72,2,857,0)="""PKG"",26,22,1,""PAH"",1,1,56,0)"
^XMB(3.9,72,2,858,0)="related accession."
^XMB(3.9,72,2,859,0)="""PKG"",26,22,1,""PAH"",1,1,57,0)"
^XMB(3.9,72,2,860,0)=" "
^XMB(3.9,72,2,861,0)="""PKG"",26,22,1,""PAH"",1,1,58,0)"
^XMB(3.9,72,2,862,0)="2. The check and purge of these cross-references will be tasked by the"
^XMB(3.9,72,2,863,0)="""PKG"",26,22,1,""PAH"",1,1,59,0)"
^XMB(3.9,72,2,864,0)="post-install of this patch to cleanup any existing entries in file #68."
^XMB(3.9,72,2,865,0)="""PKG"",26,22,1,""PAH"",1,1,60,0)"
^XMB(3.9,72,2,866,0)="The post-install of this patch tasks a back-ground job to cleanup any"
^XMB(3.9,72,2,867,0)="""PKG"",26,22,1,""PAH"",1,1,61,0)"
^XMB(3.9,72,2,868,0)="existing entries in file #68 that have been previously purged. After"
^XMB(3.9,72,2,869,0)="""PKG"",26,22,1,""PAH"",1,1,62,0)"
^XMB(3.9,72,2,870,0)="this back-ground job has run to completion, the ""C"" and ""D"" should not"
^XMB(3.9,72,2,871,0)="""PKG"",26,22,1,""PAH"",1,1,63,0)"
^XMB(3.9,72,2,872,0)="contain any UIDs related to purged accessions."
^XMB(3.9,72,2,873,0)="""PKG"",26,22,1,""PAH"",1,1,64,0)"
^XMB(3.9,72,2,874,0)=" "
^XMB(3.9,72,2,875,0)="""PKG"",26,22,1,""PAH"",1,1,65,0)"
^XMB(3.9,72,2,876,0)="3. As part of developer review, the Purge old orders & accessions option"
^XMB(3.9,72,2,877,0)="""PKG"",26,22,1,""PAH"",1,1,66,0)"
^XMB(3.9,72,2,878,0)="[LROC] has been made 'TaskMan aware'. Stopping of this tasked process can"
^XMB(3.9,72,2,879,0)="""PKG"",26,22,1,""PAH"",1,1,67,0)"
^XMB(3.9,72,2,880,0)="be accomplished using standard TaskMan utilities."
^XMB(3.9,72,2,881,0)="""PKG"",26,22,1,""PAH"",1,1,68,0)"
^XMB(3.9,72,2,882,0)=" "
^XMB(3.9,72,2,883,0)="""PKG"",26,22,1,""PAH"",1,1,69,0)"
^XMB(3.9,72,2,884,0)=" "
^XMB(3.9,72,2,885,0)="""PKG"",26,22,1,""PAH"",1,1,70,0)"
^XMB(3.9,72,2,886,0)=" ASSOCIATED E3R"
^XMB(3.9,72,2,887,0)="""PKG"",26,22,1,""PAH"",1,1,71,0)"
^XMB(3.9,72,2,888,0)=" --------------"
^XMB(3.9,72,2,889,0)="""PKG"",26,22,1,""PAH"",1,1,72,0)"
^XMB(3.9,72,2,890,0)=" None"
^XMB(3.9,72,2,891,0)="""PKG"",26,22,1,""PAH"",1,1,73,0)"
^XMB(3.9,72,2,892,0)=" "
^XMB(3.9,72,2,893,0)="""PKG"",26,22,1,""PAH"",1,1,74,0)"
^XMB(3.9,72,2,894,0)=" ASSOCIATED REMEDY"
^XMB(3.9,72,2,895,0)="""PKG"",26,22,1,""PAH"",1,1,75,0)"
^XMB(3.9,72,2,896,0)=" ---------------"
^XMB(3.9,72,2,897,0)="""PKG"",26,22,1,""PAH"",1,1,76,0)"
^XMB(3.9,72,2,898,0)=" HD0000000088913"
^XMB(3.9,72,2,899,0)="""PKG"",26,22,1,""PAH"",1,1,77,0)"
^XMB(3.9,72,2,900,0)="  Duplicates:"
^XMB(3.9,72,2,901,0)="""PKG"",26,22,1,""PAH"",1,1,78,0)"
^XMB(3.9,72,2,902,0)="  HD0000000096348"
^XMB(3.9,72,2,903,0)="""PKG"",26,22,1,""PAH"",1,1,79,0)"
^XMB(3.9,72,2,904,0)="  HD0000000141232"
^XMB(3.9,72,2,905,0)="""PKG"",26,22,1,""PAH"",1,1,80,0)"
^XMB(3.9,72,2,906,0)="  HD0000000141237"
^XMB(3.9,72,2,907,0)="""PKG"",26,22,1,""PAH"",1,1,81,0)"
^XMB(3.9,72,2,908,0)="  HD0000000141258"
^XMB(3.9,72,2,909,0)="""PKG"",26,22,1,""PAH"",1,1,82,0)"
^XMB(3.9,72,2,910,0)="  HD0000000141298"
^XMB(3.9,72,2,911,0)="""PKG"",26,22,1,""PAH"",1,1,83,0)"
^XMB(3.9,72,2,912,0)="  HD0000000141977"
^XMB(3.9,72,2,913,0)="""PKG"",26,22,1,""PAH"",1,1,84,0)"
^XMB(3.9,72,2,914,0)="  HD0000000142004"
^XMB(3.9,72,2,915,0)="""PKG"",26,22,1,""PAH"",1,1,85,0)"
^XMB(3.9,72,2,916,0)="  HD0000000142663"
^XMB(3.9,72,2,917,0)="""PKG"",26,22,1,""PAH"",1,1,86,0)"
^XMB(3.9,72,2,918,0)="  HD0000000143065"
^XMB(3.9,72,2,919,0)="""PKG"",26,22,1,""PAH"",1,1,87,0)"
^XMB(3.9,72,2,920,0)="  HD0000000144052"
^XMB(3.9,72,2,921,0)="""PKG"",26,22,1,""PAH"",1,1,88,0)"
^XMB(3.9,72,2,922,0)="  HD0000000145774"
^XMB(3.9,72,2,923,0)="""PKG"",26,22,1,""PAH"",1,1,89,0)"
^XMB(3.9,72,2,924,0)="  HD0000000146357"
^XMB(3.9,72,2,925,0)="""PKG"",26,22,1,""PAH"",1,1,90,0)"
^XMB(3.9,72,2,926,0)="  HD0000000147586"
^XMB(3.9,72,2,927,0)="""PKG"",26,22,1,""PAH"",1,1,91,0)"
^XMB(3.9,72,2,928,0)="  HD0000000147794"
^XMB(3.9,72,2,929,0)="""PKG"",26,22,1,""PAH"",1,1,92,0)"
^XMB(3.9,72,2,930,0)="  HD0000000148645"
^XMB(3.9,72,2,931,0)="""PKG"",26,22,1,""PAH"",1,1,93,0)"
^XMB(3.9,72,2,932,0)=" "
^XMB(3.9,72,2,933,0)="""PKG"",26,22,1,""PAH"",1,1,94,0)"
^XMB(3.9,72,2,934,0)=""
^XMB(3.9,72,2,935,0)="""PKG"",26,22,1,""PAH"",1,1,95,0)"
^XMB(3.9,72,2,936,0)=" TEST SITES"
^XMB(3.9,72,2,937,0)="""PKG"",26,22,1,""PAH"",1,1,96,0)"
^XMB(3.9,72,2,938,0)=" ----------"
^XMB(3.9,72,2,939,0)="""PKG"",26,22,1,""PAH"",1,1,97,0)"
^XMB(3.9,72,2,940,0)=" "
^XMB(3.9,72,2,941,0)="""PKG"",26,22,1,""PAH"",1,1,98,0)"
^XMB(3.9,72,2,942,0)=" ALEXANDRIA, LA"
^XMB(3.9,72,2,943,0)="""PKG"",26,22,1,""PAH"",1,1,99,0)"
^XMB(3.9,72,2,944,0)=" ALTOONA, PA    "
^XMB(3.9,72,2,945,0)="""PKG"",26,22,1,""PAH"",1,1,100,0)"
^XMB(3.9,72,2,946,0)=" ANN ARBOR, MI  "
^XMB(3.9,72,2,947,0)="""PKG"",26,22,1,""PAH"",1,1,101,0)"
^XMB(3.9,72,2,948,0)=" BAY PINES, FL  "
^XMB(3.9,72,2,949,0)="""PKG"",26,22,1,""PAH"",1,1,102,0)"
^XMB(3.9,72,2,950,0)=" BLACK HILLS HCS"
^XMB(3.9,72,2,951,0)="""PKG"",26,22,1,""PAH"",1,1,103,0)"
^XMB(3.9,72,2,952,0)=" BOSTON HCS     "
^XMB(3.9,72,2,953,0)="""PKG"",26,22,1,""PAH"",1,1,104,0)"
^XMB(3.9,72,2,954,0)=" BRONX, NY      "
^XMB(3.9,72,2,955,0)="""PKG"",26,22,1,""PAH"",1,1,105,0)"
^XMB(3.9,72,2,956,0)=" CENTRAL PLAINS HCS "
^XMB(3.9,72,2,957,0)="""PKG"",26,22,1,""PAH"",1,1,106,0)"
^XMB(3.9,72,2,958,0)=" CENTRAL TEXAS HCS  "
^XMB(3.9,72,2,959,0)="""PKG"",26,22,1,""PAH"",1,1,107,0)"
^XMB(3.9,72,2,960,0)=" CLEVELAND, OH"
^XMB(3.9,72,2,961,0)="""PKG"",26,22,1,""PAH"",1,1,108,0)"
^XMB(3.9,72,2,962,0)=" DAYTON, OH   "
^XMB(3.9,72,2,963,0)="""PKG"",26,22,1,""PAH"",1,1,109,0)"
^XMB(3.9,72,2,964,0)=" DETROIT, MI  "
^XMB(3.9,72,2,965,0)="""PKG"",26,22,1,""PAH"",1,1,110,0)"
^XMB(3.9,72,2,966,0)=" DUBLIN, GA   "
^XMB(3.9,72,2,967,0)="""PKG"",26,22,1,""PAH"",1,1,111,0)"
^XMB(3.9,72,2,968,0)=" DURHAM, NC   "
^XMB(3.9,72,2,969,0)="""PKG"",26,22,1,""PAH"",1,1,112,0)"
^XMB(3.9,72,2,970,0)=" FARGO, ND    "
^XMB(3.9,72,2,971,0)="""PKG"",26,22,1,""PAH"",1,1,113,0)"
^XMB(3.9,72,2,972,0)=" FRESNO, CA   "
^XMB(3.9,72,2,973,0)="""PKG"",26,22,1,""PAH"",1,1,114,0)"
^XMB(3.9,72,2,974,0)=" HAMPTON, VA  "
^XMB(3.9,72,2,975,0)="""PKG"",26,22,1,""PAH"",1,1,115,0)"
^XMB(3.9,72,2,976,0)=" HINES, IL    "
^XMB(3.9,72,2,977,0)="""PKG"",26,22,1,""PAH"",1,1,116,0)"
^XMB(3.9,72,2,978,0)=" HOUSTON, TX  "
^XMB(3.9,72,2,979,0)="""PKG"",26,22,1,""PAH"",1,1,117,0)"
^XMB(3.9,72,2,980,0)=" LEXINGTON, KY"
^XMB(3.9,72,2,981,0)="""PKG"",26,22,1,""PAH"",1,1,118,0)"
^XMB(3.9,72,2,982,0)=" LOMA LINDA, CA"
^XMB(3.9,72,2,983,0)="""PKG"",26,22,1,""PAH"",1,1,119,0)"
^XMB(3.9,72,2,984,0)=" LONG BEACH, CA"
^XMB(3.9,72,2,985,0)="""PKG"",26,22,1,""PAH"",1,1,120,0)"
^XMB(3.9,72,2,986,0)=" MADISON, WI   "
^XMB(3.9,72,2,987,0)="""PKG"",26,22,1,""PAH"",1,1,121,0)"
^XMB(3.9,72,2,988,0)=" MANCHESTER, NH"
^XMB(3.9,72,2,989,0)="""PKG"",26,22,1,""PAH"",1,1,122,0)"
^XMB(3.9,72,2,990,0)=" MARYLAND HCS  "
^XMB(3.9,72,2,991,0)="""PKG"",26,22,1,""PAH"",1,1,123,0)"
^XMB(3.9,72,2,992,0)=" MILWAUKEE, WI "
^XMB(3.9,72,2,993,0)="""PKG"",26,22,1,""PAH"",1,1,124,0)"
^XMB(3.9,72,2,994,0)=" MINNEAPOLIS, MN"
^XMB(3.9,72,2,995,0)="""PKG"",26,22,1,""PAH"",1,1,125,0)"
^XMB(3.9,72,2,996,0)=" MUSKOGEE, OK   "
^XMB(3.9,72,2,997,0)="""PKG"",26,22,1,""PAH"",1,1,126,0)"
^XMB(3.9,72,2,998,0)=" NEW YORK HCS   "
^XMB(3.9,72,2,999,0)="""PKG"",26,22,1,""PAH"",1,1,127,0)"
^XMB(3.9,72,2,1000,0)=" NORTH CHICAGO, IL"
^XMB(3.9,72,2,1001,0)="""PKG"",26,22,1,""PAH"",1,1,128,0)"
^XMB(3.9,72,2,1002,0)=" NORTHPORT, NY    "
^XMB(3.9,72,2,1003,0)="""PKG"",26,22,1,""PAH"",1,1,129,0)"
^XMB(3.9,72,2,1004,0)=" OKLAHOMA CITY, OK"
^XMB(3.9,72,2,1005,0)="""PKG"",26,22,1,""PAH"",1,1,130,0)"
^XMB(3.9,72,2,1006,0)=" PHILADELPHIA, PA "
^XMB(3.9,72,2,1007,0)="""PKG"",26,22,1,""PAH"",1,1,131,0)"
^XMB(3.9,72,2,1008,0)=" PROVIDENCE, RI   "
^XMB(3.9,72,2,1009,0)="""PKG"",26,22,1,""PAH"",1,1,132,0)"
^XMB(3.9,72,2,1010,0)=" RICHMOND, VA     "
^XMB(3.9,72,2,1011,0)="""PKG"",26,22,1,""PAH"",1,1,133,0)"
^XMB(3.9,72,2,1012,0)=" SAN FRANCISCO, CA"
^XMB(3.9,72,2,1013,0)="""PKG"",26,22,1,""PAH"",1,1,134,0)"
^XMB(3.9,72,2,1014,0)=" SAN JUAN, PR     "
^XMB(3.9,72,2,1015,0)="""PKG"",26,22,1,""PAH"",1,1,135,0)"
^XMB(3.9,72,2,1016,0)=" SHERIDAN, WY     "
^XMB(3.9,72,2,1017,0)="""PKG"",26,22,1,""PAH"",1,1,136,0)"
^XMB(3.9,72,2,1018,0)=" SHREVEPORT, LA   "
^XMB(3.9,72,2,1019,0)="""PKG"",26,22,1,""PAH"",1,1,137,0)"
^XMB(3.9,72,2,1020,0)=" SIOUX FALLS, SD  "
^XMB(3.9,72,2,1021,0)="""PKG"",26,22,1,""PAH"",1,1,138,0)"
^XMB(3.9,72,2,1022,0)=" ST CLOUD, MN     "
^XMB(3.9,72,2,1023,0)="""PKG"",26,22,1,""PAH"",1,1,139,0)"
^XMB(3.9,72,2,1024,0)=" TAMPA, FL        "
^XMB(3.9,72,2,1025,0)="""PKG"",26,22,1,""PAH"",1,1,140,0)"
^XMB(3.9,72,2,1026,0)=" TENNESSEE VALLEY HCS"
^XMB(3.9,72,2,1027,0)="""PKG"",26,22,1,""PAH"",1,1,141,0)"
^XMB(3.9,72,2,1028,0)=" UPSTATE NEW YORK HCS"
^XMB(3.9,72,2,1029,0)="""PKG"",26,22,1,""PAH"",1,1,142,0)"
^XMB(3.9,72,2,1030,0)=" WEST PALM BEACH, FL "
^XMB(3.9,72,2,1031,0)="""PKG"",26,22,1,""PAH"",1,1,143,0)"
^XMB(3.9,72,2,1032,0)=" "
^XMB(3.9,72,2,1033,0)="""PKG"",26,22,1,""PAH"",1,1,144,0)"
^XMB(3.9,72,2,1034,0)=""
^XMB(3.9,72,2,1035,0)="""PKG"",26,22,1,""PAH"",1,1,145,0)"
^XMB(3.9,72,2,1036,0)=" "
^XMB(3.9,72,2,1037,0)="""PKG"",26,22,1,""PAH"",1,1,146,0)"
^XMB(3.9,72,2,1038,0)="ROUTINE SUMMARY"
^XMB(3.9,72,2,1039,0)="""PKG"",26,22,1,""PAH"",1,1,147,0)"
^XMB(3.9,72,2,1040,0)="==============="
^XMB(3.9,72,2,1041,0)="""PKG"",26,22,1,""PAH"",1,1,148,0)"
^XMB(3.9,72,2,1042,0)="  The following routines are included in this patch.  The second line"
^XMB(3.9,72,2,1043,0)="""PKG"",26,22,1,""PAH"",1,1,149,0)"
^XMB(3.9,72,2,1044,0)="  of each of these routines now looks like:"
^XMB(3.9,72,2,1045,0)="""PKG"",26,22,1,""PAH"",1,1,150,0)"
^XMB(3.9,72,2,1046,0)="  <tab> ;;5.2;LAB SERVICE;<patchlist>;Sep 27, 1994"
^XMB(3.9,72,2,1047,0)="""PKG"",26,22,1,""PAH"",1,1,151,0)"
^XMB(3.9,72,2,1048,0)=" "
^XMB(3.9,72,2,1049,0)="""PKG"",26,22,1,""PAH"",1,1,152,0)"
^XMB(3.9,72,2,1050,0)="                    Checksum       Checksum"
^XMB(3.9,72,2,1051,0)="""PKG"",26,22,1,""PAH"",1,1,153,0)"
^XMB(3.9,72,2,1052,0)="   Routine Name     Before Patch   After Patch    Patch List"
^XMB(3.9,72,2,1053,0)="""PKG"",26,22,1,""PAH"",1,1,154,0)"
^XMB(3.9,72,2,1054,0)="   ------------     ------------   -----------    ------------"
^XMB(3.9,72,2,1055,0)="""PKG"",26,22,1,""PAH"",1,1,155,0)"
^XMB(3.9,72,2,1056,0)="   LR329            N/A            5595661        **329** (Deleted by KIDS)"
^XMB(3.9,72,2,1057,0)="""PKG"",26,22,1,""PAH"",1,1,156,0)"
^XMB(3.9,72,2,1058,0)="   LROC             9241387        7783203        **121,295,329**"
^XMB(3.9,72,2,1059,0)="""PKG"",26,22,1,""PAH"",1,1,157,0)"
^XMB(3.9,72,2,1060,0)=" "
^XMB(3.9,72,2,1061,0)="""PKG"",26,22,1,""PAH"",1,1,158,0)"
^XMB(3.9,72,2,1062,0)=" List of preceding patches: 295"
^XMB(3.9,72,2,1063,0)="""PKG"",26,22,1,""PAH"",1,1,159,0)"
^XMB(3.9,72,2,1064,0)=" Sites should use CHECK^XTSUMBLD to verify checksums."
^XMB(3.9,72,2,1065,0)="""PKG"",26,22,1,""PAH"",1,1,160,0)"
^XMB(3.9,72,2,1066,0)=" "
^XMB(3.9,72,2,1067,0)="""PKG"",26,22,1,""PAH"",1,1,161,0)"
^XMB(3.9,72,2,1068,0)=" "
^XMB(3.9,72,2,1069,0)="""PKG"",26,22,1,""PAH"",1,1,162,0)"
^XMB(3.9,72,2,1070,0)="INSTALLATION INSTRUCTIONS"
^XMB(3.9,72,2,1071,0)="""PKG"",26,22,1,""PAH"",1,1,163,0)"
^XMB(3.9,72,2,1072,0)="-------------------------"
^XMB(3.9,72,2,1073,0)="""PKG"",26,22,1,""PAH"",1,1,164,0)"
^XMB(3.9,72,2,1074,0)="  The install time for this patch is less than 5 minute. This patch"
^XMB(3.9,72,2,1075,0)="""PKG"",26,22,1,""PAH"",1,1,165,0)"
^XMB(3.9,72,2,1076,0)="  can be installed when Laboratory users are on the system."
^XMB(3.9,72,2,1077,0)="""PKG"",26,22,1,""PAH"",1,1,166,0)"
^XMB(3.9,72,2,1078,0)="  Suggested time to install: non-peak requirement hours."
^XMB(3.9,72,2,1079,0)="""PKG"",26,22,1,""PAH"",1,1,167,0)"
^XMB(3.9,72,2,1080,0)=" "
^XMB(3.9,72,2,1081,0)="""PKG"",26,22,1,""PAH"",1,1,168,0)"
^XMB(3.9,72,2,1082,0)=" "
^XMB(3.9,72,2,1083,0)="""PKG"",26,22,1,""PAH"",1,1,169,0)"
^XMB(3.9,72,2,1084,0)="NOTE: Kernel patches must be current on the target system to avoid"
^XMB(3.9,72,2,1085,0)="""PKG"",26,22,1,""PAH"",1,1,170,0)"
^XMB(3.9,72,2,1086,0)="      problems loading and/or installing this patch."
^XMB(3.9,72,2,1087,0)="""PKG"",26,22,1,""PAH"",1,1,171,0)"
^XMB(3.9,72,2,1088,0)=" "
^XMB(3.9,72,2,1089,0)="""PKG"",26,22,1,""PAH"",1,1,172,0)"
^XMB(3.9,72,2,1090,0)="      Patch installation needs to be coordinated with the Laboratory"
^XMB(3.9,72,2,1091,0)="""PKG"",26,22,1,""PAH"",1,1,173,0)"
^XMB(3.9,72,2,1092,0)="      Information Manager (LIM/ADPAC)."
^XMB(3.9,72,2,1093,0)="""PKG"",26,22,1,""PAH"",1,1,174,0)"
^XMB(3.9,72,2,1094,0)=" "
^XMB(3.9,72,2,1095,0)="""PKG"",26,22,1,""PAH"",1,1,175,0)"
^XMB(3.9,72,2,1096,0)=" "
^XMB(3.9,72,2,1097,0)="""PKG"",26,22,1,""PAH"",1,1,176,0)"
^XMB(3.9,72,2,1098,0)="  1.  Use the 'INSTALL/CHECK MESSAGE' option on the PackMan menu. This"
^XMB(3.9,72,2,1099,0)="""PKG"",26,22,1,""PAH"",1,1,177,0)"
^XMB(3.9,72,2,1100,0)="        option will load the KIDS package onto your system."
^XMB(3.9,72,2,1101,0)="""PKG"",26,22,1,""PAH"",1,1,178,0)"
^XMB(3.9,72,2,1102,0)=" "
^XMB(3.9,72,2,1103,0)="""PKG"",26,22,1,""PAH"",1,1,179,0)"
^XMB(3.9,72,2,1104,0)="  2.  On the 'Kernel Installation & Distribution System' Menu (KIDS),"
^XMB(3.9,72,2,1105,0)="""PKG"",26,22,1,""PAH"",1,1,180,0)"
^XMB(3.9,72,2,1106,0)="      select the 'Installation' menu."
^XMB(3.9,72,2,1107,0)="""PKG"",26,22,1,""PAH"",1,1,181,0)"
^XMB(3.9,72,2,1108,0)=" "
^XMB(3.9,72,2,1109,0)="""PKG"",26,22,1,""PAH"",1,1,182,0)"
^XMB(3.9,72,2,1110,0)="  3.  From this menu, you may then elect to use the following options"
^XMB(3.9,72,2,1111,0)="""PKG"",26,22,1,""PAH"",1,1,183,0)"
^XMB(3.9,72,2,1112,0)="      (when prompted for the INSTALL NAME, enter LR*5.2*329):"
^XMB(3.9,72,2,1113,0)="""PKG"",26,22,1,""PAH"",1,1,184,0)"
^XMB(3.9,72,2,1114,0)="        a. Print Transport Global"
^XMB(3.9,72,2,1115,0)="""PKG"",26,22,1,""PAH"",1,1,185,0)"
^XMB(3.9,72,2,1116,0)="        b. Backup a Transport Global"
^XMB(3.9,72,2,1117,0)="""PKG"",26,22,1,""PAH"",1,1,186,0)"
^XMB(3.9,72,2,1118,0)="        c. Compare Transport Global to Current System"
^XMB(3.9,72,2,1119,0)="""PKG"",26,22,1,""PAH"",1,1,187,0)"
^XMB(3.9,72,2,1120,0)="        d. Verify Checksums in Transport Global"
^XMB(3.9,72,2,1121,0)="""PKG"",26,22,1,""PAH"",1,1,188,0)"
^XMB(3.9,72,2,1122,0)=" "
^XMB(3.9,72,2,1123,0)="""PKG"",26,22,1,""PAH"",1,1,189,0)"
^XMB(3.9,72,2,1124,0)="      Use the 'Verify Checksum in Transport Global' option and verify that"
^XMB(3.9,72,2,1125,0)="""PKG"",26,22,1,""PAH"",1,1,190,0)"
^XMB(3.9,72,2,1126,0)="      all routines have the correct checksums."
^XMB(3.9,72,2,1127,0)="""PKG"",26,22,1,""PAH"",1,1,191,0)"
^XMB(3.9,72,2,1128,0)=" "
^XMB(3.9,72,2,1129,0)="""PKG"",26,22,1,""PAH"",1,1,192,0)"
^XMB(3.9,72,2,1130,0)="  4.  Use the 'Install Package(s)' option under the 'Installation' menu"
^XMB(3.9,72,2,1131,0)="""PKG"",26,22,1,""PAH"",1,1,193,0)"
^XMB(3.9,72,2,1132,0)="      and select the package 'LR*5.2*329'."
^XMB(3.9,72,2,1133,0)="""PKG"",26,22,1,""PAH"",1,1,194,0)"
^XMB(3.9,72,2,1134,0)=""
^XMB(3.9,72,2,1135,0)="""PKG"",26,22,1,""PAH"",1,1,195,0)"
^XMB(3.9,72,2,1136,0)="      When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of "
^XMB(3.9,72,2,1137,0)="""PKG"",26,22,1,""PAH"",1,1,196,0)"
^XMB(3.9,72,2,1138,0)="      Install? YES//' choose 'NO'. Responding 'Yes' to the prompt for "
^XMB(3.9,72,2,1139,0)="""PKG"",26,22,1,""PAH"",1,1,197,0)"
^XMB(3.9,72,2,1140,0)="      rebuilding menu trees can significantly increase install time."
^XMB(3.9,72,2,1141,0)="""PKG"",26,22,1,""PAH"",1,1,198,0)"
^XMB(3.9,72,2,1142,0)=""
^XMB(3.9,72,2,1143,0)="""PKG"",26,22,1,""PAH"",1,1,199,0)"
^XMB(3.9,72,2,1144,0)="      When prompted 'Want KIDS to INHIBIT LOGONs during the install? YES//"
^XMB(3.9,72,2,1145,0)="""PKG"",26,22,1,""PAH"",1,1,200,0)"
^XMB(3.9,72,2,1146,0)="      choose 'NO'."
^XMB(3.9,72,2,1147,0)="""PKG"",26,22,1,""PAH"",1,1,201,0)"
^XMB(3.9,72,2,1148,0)=" "
^XMB(3.9,72,2,1149,0)="""PKG"",26,22,1,""PAH"",1,1,202,0)"
^XMB(3.9,72,2,1150,0)="      When prompted 'Want to DISABLE Scheduled Options, Menu Options,"
^XMB(3.9,72,2,1151,0)="""PKG"",26,22,1,""PAH"",1,1,203,0)"
^XMB(3.9,72,2,1152,0)="      and Protocols? YES//', choose 'NO'."
^XMB(3.9,72,2,1153,0)="""PKG"",26,22,1,""PAH"",1,1,204,0)"
^XMB(3.9,72,2,1154,0)=" "
^XMB(3.9,72,2,1155,0)="""PKG"",26,22,1,""PAH"",1,1,205,0)"
^XMB(3.9,72,2,1156,0)="      During install KIDS will place the Purge old orders & accessions"
^XMB(3.9,72,2,1157,0)="""PKG"",26,22,1,""PAH"",1,1,206,0)"
^XMB(3.9,72,2,1158,0)="      option [LROC] out of order."
^XMB(3.9,72,2,1159,0)="""PKG"",26,22,1,""PAH"",1,1,207,0)"
^XMB(3.9,72,2,1160,0)=" "
^XMB(3.9,72,2,1161,0)="""PKG"",26,22,1,""PAH"",1,1,208,0)"
^XMB(3.9,72,2,1162,0)=" Note: Routine LR329 will be deleted after successful patch installation."
^XMB(3.9,72,2,1163,0)="""PKG"",26,22,1,""PAH"",1,1,209,0)"
^XMB(3.9,72,2,1164,0)=" "
^XMB(3.9,72,2,1165,0)="""PKG"",26,22,1,""PAH"",1,1,210,0)"
^XMB(3.9,72,2,1166,0)=" "
^XMB(3.9,72,2,1167,0)="""PKG"",26,22,1,""PAH"",1,1,211,0)"
^XMB(3.9,72,2,1168,0)="INSTALLATION EXAMPLE"
^XMB(3.9,72,2,1169,0)="""PKG"",26,22,1,""PAH"",1,1,212,0)"
^XMB(3.9,72,2,1170,0)="===================="
^XMB(3.9,72,2,1171,0)="""PKG"",26,22,1,""PAH"",1,1,213,0)"
^XMB(3.9,72,2,1172,0)=" "
^XMB(3.9,72,2,1173,0)="""PKG"",26,22,1,""PAH"",1,1,214,0)"
^XMB(3.9,72,2,1174,0)="Select Installation Option:"
^XMB(3.9,72,2,1175,0)="""PKG"",26,22,1,""PAH"",1,1,215,0)"
^XMB(3.9,72,2,1176,0)=" "
^XMB(3.9,72,2,1177,0)="""PKG"",26,22,1,""PAH"",1,1,216,0)"
^XMB(3.9,72,2,1178,0)="Select Kernel Installation & Distribution System Option:  Installation"
^XMB(3.9,72,2,1179,0)="""PKG"",26,22,1,""PAH"",1,1,217,0)"
^XMB(3.9,72,2,1180,0)=" "
^XMB(3.9,72,2,1181,0)="""PKG"",26,22,1,""PAH"",1,1,218,0)"
^XMB(3.9,72,2,1182,0)="Select Installation Option: 6  Install Package(s)"
^XMB(3.9,72,2,1183,0)="""PKG"",26,22,1,""PAH"",1,1,219,0)"
^XMB(3.9,72,2,1184,0)="Select INSTALL NAME: LR*5.2*329  Loaded from Distribution  4/11/05@16:15:44"
^XMB(3.9,72,2,1185,0)="""PKG"",26,22,1,""PAH"",1,1,220,0)"
^XMB(3.9,72,2,1186,0)="     => LR*5.2*329"
^XMB(3.9,72,2,1187,0)="""PKG"",26,22,1,""PAH"",1,1,221,0)"
^XMB(3.9,72,2,1188,0)=" "
^XMB(3.9,72,2,1189,0)="""PKG"",26,22,1,""PAH"",1,1,222,0)"
^XMB(3.9,72,2,1190,0)="This Distribution was loaded on Apr 11, 2005@16:15:44 with header of"
^XMB(3.9,72,2,1191,0)="""PKG"",26,22,1,""PAH"",1,1,223,0)"
^XMB(3.9,72,2,1192,0)="   LR*5.2*329"
^XMB(3.9,72,2,1193,0)="""PKG"",26,22,1,""PAH"",1,1,224,0)"
^XMB(3.9,72,2,1194,0)="   It consisted of the following Install(s):"
^XMB(3.9,72,2,1195,0)="""PKG"",26,22,1,""PAH"",1,1,225,0)"
^XMB(3.9,72,2,1196,0)="     LR*5.2*329"
^XMB(3.9,72,2,1197,0)="""PKG"",26,22,1,""PAH"",1,1,226,0)"
^XMB(3.9,72,2,1198,0)="Checking Install for Package LR*5.2*329"
^XMB(3.9,72,2,1199,0)="""PKG"",26,22,1,""PAH"",1,1,227,0)"
^XMB(3.9,72,2,1200,0)="Will first run the Environment Check Routine, LR329"
^XMB(3.9,72,2,1201,0)="""PKG"",26,22,1,""PAH"",1,1,228,0)"
^XMB(3.9,72,2,1202,0)=" "
^XMB(3.9,72,2,1203,0)="""PKG"",26,22,1,""PAH"",1,1,229,0)"
^XMB(3.9,72,2,1204,0)=" "
^XMB(3.9,72,2,1205,0)="""PKG"",26,22,1,""PAH"",1,1,230,0)"
^XMB(3.9,72,2,1206,0)="               Sending install started alert to mail group G.LMI"
^XMB(3.9,72,2,1207,0)="""PKG"",26,22,1,""PAH"",1,1,231,0)"
^XMB(3.9,72,2,1208,0)=" "
^XMB(3.9,72,2,1209,0)="""PKG"",26,22,1,""PAH"",1,1,232,0)"
^XMB(3.9,72,2,1210,0)="                        --- Environment Check is Ok ---"
^XMB(3.9,72,2,1211,0)="""PKG"",26,22,1,""PAH"",1,1,233,0)"
^XMB(3.9,72,2,1212,0)=" "
^XMB(3.9,72,2,1213,0)="""PKG"",26,22,1,""PAH"",1,1,234,0)"
^XMB(3.9,72,2,1214,0)="Install Questions for LR*5.2*329"
^XMB(3.9,72,2,1215,0)="""PKG"",26,22,1,""PAH"",1,1,235,0)"
^XMB(3.9,72,2,1216,0)=" "
^XMB(3.9,72,2,1217,0)="""PKG"",26,22,1,""PAH"",1,1,236,0)"
^XMB(3.9,72,2,1218,0)=" "
^XMB(3.9,72,2,1219,0)="""PKG"",26,22,1,""PAH"",1,1,237,0)"
^XMB(3.9,72,2,1220,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install? YES// NO"
^XMB(3.9,72,2,1221,0)="""PKG"",26,22,1,""PAH"",1,1,238,0)"
^XMB(3.9,72,2,1222,0)=" "
^XMB(3.9,72,2,1223,0)="""PKG"",26,22,1,""PAH"",1,1,239,0)"
^XMB(3.9,72,2,1224,0)=" "
^XMB(3.9,72,2,1225,0)="""PKG"",26,22,1,""PAH"",1,1,240,0)"
^XMB(3.9,72,2,1226,0)="Want KIDS to INHIBIT LOGONs during the install? YES// NO"
^XMB(3.9,72,2,1227,0)="""PKG"",26,22,1,""PAH"",1,1,241,0)"
^XMB(3.9,72,2,1228,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols? YES// NO"
^XMB(3.9,72,2,1229,0)="""PKG"",26,22,1,""PAH"",1,1,242,0)"
^XMB(3.9,72,2,1230,0)=" "
^XMB(3.9,72,2,1231,0)="""PKG"",26,22,1,""PAH"",1,1,243,0)"
^XMB(3.9,72,2,1232,0)="Enter the Device you want to print the Install messages."
^XMB(3.9,72,2,1233,0)="""PKG"",26,22,1,""PAH"",1,1,244,0)"
^XMB(3.9,72,2,1234,0)="You can queue the install by enter a 'Q' at the device prompt."
^XMB(3.9,72,2,1235,0)="""PKG"",26,22,1,""PAH"",1,1,245,0)"
^XMB(3.9,72,2,1236,0)="Enter a '^' to abort the install."
^XMB(3.9,72,2,1237,0)="""PKG"",26,22,1,""PAH"",1,1,246,0)"
^XMB(3.9,72,2,1238,0)=" "
^XMB(3.9,72,2,1239,0)="""PKG"",26,22,1,""PAH"",1,1,247,0)"
^XMB(3.9,72,2,1240,0)="DEVICE: HOME// TELNET VIRTUAL"
^XMB(3.9,72,2,1241,0)="""PKG"",26,22,1,""PAH"",1,1,248,0)"
^XMB(3.9,72,2,1242,0)=" "
^XMB(3.9,72,2,1243,0)="""PKG"",26,22,1,""PAH"",1,1,249,0)"
^XMB(3.9,72,2,1244,0)=" "
^XMB(3.9,72,2,1245,0)="""PKG"",26,22,1,""PAH"",1,1,250,0)"
^XMB(3.9,72,2,1246,0)=" Install Started for LR*5.2*329 :"
^XMB(3.9,72,2,1247,0)="""PKG"",26,22,1,""PAH"",1,1,251,0)"
^XMB(3.9,72,2,1248,0)="               Apr 11, 2005@16:16:28"
^XMB(3.9,72,2,1249,0)="""PKG"",26,22,1,""PAH"",1,1,252,0)"
^XMB(3.9,72,2,1250,0)=" "
^XMB(3.9,72,2,1251,0)="""PKG"",26,22,1,""PAH"",1,1,253,0)"
^XMB(3.9,72,2,1252,0)="Build Distribution Date: Apr 11, 2005"
^XMB(3.9,72,2,1253,0)="""PKG"",26,22,1,""PAH"",1,1,254,0)"
^XMB(3.9,72,2,1254,0)=" "
^XMB(3.9,72,2,1255,0)="""PKG"",26,22,1,""PAH"",1,1,255,0)"
^XMB(3.9,72,2,1256,0)=" Installing Routines:..."
^XMB(3.9,72,2,1257,0)="""PKG"",26,22,1,""PAH"",1,1,256,0)"
^XMB(3.9,72,2,1258,0)="               Apr 11, 2005@16:16:28"
^XMB(3.9,72,2,1259,0)="""PKG"",26,22,1,""PAH"",1,1,257,0)"
^XMB(3.9,72,2,1260,0)=" "
^XMB(3.9,72,2,1261,0)="""PKG"",26,22,1,""PAH"",1,1,258,0)"
^XMB(3.9,72,2,1262,0)=" Running Pre-Install Routine: PRE^LR329."
^XMB(3.9,72,2,1263,0)="""PKG"",26,22,1,""PAH"",1,1,259,0)"
^XMB(3.9,72,2,1264,0)=" "
^XMB(3.9,72,2,1265,0)="""PKG"",26,22,1,""PAH"",1,1,260,0)"
^XMB(3.9,72,2,1266,0)="                          *** Pre install started ***"
^XMB(3.9,72,2,1267,0)="""PKG"",26,22,1,""PAH"",1,1,261,0)"
^XMB(3.9,72,2,1268,0)=" "
^XMB(3.9,72,2,1269,0)="""PKG"",26,22,1,""PAH"",1,1,262,0)"
^XMB(3.9,72,2,1270,0)="                           *** No action required ***"
^XMB(3.9,72,2,1271,0)="""PKG"",26,22,1,""PAH"",1,1,263,0)"
^XMB(3.9,72,2,1272,0)=" "
^XMB(3.9,72,2,1273,0)="""PKG"",26,22,1,""PAH"",1,1,264,0)"
^XMB(3.9,72,2,1274,0)="                         *** Pre install completed ***"
^XMB(3.9,72,2,1275,0)="""PKG"",26,22,1,""PAH"",1,1,265,0)"
^XMB(3.9,72,2,1276,0)=" "
^XMB(3.9,72,2,1277,0)="""PKG"",26,22,1,""PAH"",1,1,266,0)"
^XMB(3.9,72,2,1278,0)=" Installing PACKAGE COMPONENTS:"
^XMB(3.9,72,2,1279,0)="""PKG"",26,22,1,""PAH"",1,1,267,0)"
^XMB(3.9,72,2,1280,0)=" "
^XMB(3.9,72,2,1281,0)="""PKG"",26,22,1,""PAH"",1,1,268,0)"
^XMB(3.9,72,2,1282,0)=" Installing OPTION.."
^XMB(3.9,72,2,1283,0)="""PKG"",26,22,1,""PAH"",1,1,269,0)"
^XMB(3.9,72,2,1284,0)="               Apr 11, 2005@16:16:28"
^XMB(3.9,72,2,1285,0)="""PKG"",26,22,1,""PAH"",1,1,270,0)"
^XMB(3.9,72,2,1286,0)=" "
^XMB(3.9,72,2,1287,0)="""PKG"",26,22,1,""PAH"",1,1,271,0)"
^XMB(3.9,72,2,1288,0)=" Running Post-Install Routine: POST^LR329."
^XMB(3.9,72,2,1289,0)="""PKG"",26,22,1,""PAH"",1,1,272,0)"
^XMB(3.9,72,2,1290,0)=" "
^XMB(3.9,72,2,1291,0)="""PKG"",26,22,1,""PAH"",1,1,273,0)"
^XMB(3.9,72,2,1292,0)="                          *** Post install started ***"
^XMB(3.9,72,2,1293,0)="""PKG"",26,22,1,""PAH"",1,1,274,0)"
^XMB(3.9,72,2,1294,0)=" "
^XMB(3.9,72,2,1295,0)="""PKG"",26,22,1,""PAH"",1,1,275,0)"
^XMB(3.9,72,2,1296,0)=" *** Tasking check/cleanup ""C"" cross reference on ACCESSION file (#68) ***"
^XMB(3.9,72,2,1297,0)="""PKG"",26,22,1,""PAH"",1,1,276,0)"
^XMB(3.9,72,2,1298,0)=" "
^XMB(3.9,72,2,1299,0)="""PKG"",26,22,1,""PAH"",1,1,277,0)"
^XMB(3.9,72,2,1300,0)="                       *** Task #XXXX tasked to run ***"
^XMB(3.9,72,2,1301,0)="""PKG"",26,22,1,""PAH"",1,1,278,0)"
^XMB(3.9,72,2,1302,0)=" "
^XMB(3.9,72,2,1303,0)="""PKG"",26,22,1,""PAH"",1,1,279,0)"
^XMB(3.9,72,2,1304,0)="                         *** Post install completed ***"
^XMB(3.9,72,2,1305,0)="""PKG"",26,22,1,""PAH"",1,1,280,0)"
^XMB(3.9,72,2,1306,0)=" "
^XMB(3.9,72,2,1307,0)="""PKG"",26,22,1,""PAH"",1,1,281,0)"
^XMB(3.9,72,2,1308,0)="              Sending install completion alert to mail group G.LMI"
^XMB(3.9,72,2,1309,0)="""PKG"",26,22,1,""PAH"",1,1,282,0)"
^XMB(3.9,72,2,1310,0)=" "
^XMB(3.9,72,2,1311,0)="""PKG"",26,22,1,""PAH"",1,1,283,0)"
^XMB(3.9,72,2,1312,0)=" Updating Routine file......"
^XMB(3.9,72,2,1313,0)="""PKG"",26,22,1,""PAH"",1,1,284,0)"
^XMB(3.9,72,2,1314,0)=" "
^XMB(3.9,72,2,1315,0)="""PKG"",26,22,1,""PAH"",1,1,285,0)"
^XMB(3.9,72,2,1316,0)=" Updating KIDS files......."
^XMB(3.9,72,2,1317,0)="""PKG"",26,22,1,""PAH"",1,1,286,0)"
^XMB(3.9,72,2,1318,0)=" "
^XMB(3.9,72,2,1319,0)="""PKG"",26,22,1,""PAH"",1,1,287,0)"
^XMB(3.9,72,2,1320,0)=" LR*5.2*329 Installed."
^XMB(3.9,72,2,1321,0)="""PKG"",26,22,1,""PAH"",1,1,288,0)"
^XMB(3.9,72,2,1322,0)="               Apr 11, 2005@16:16:28"
^XMB(3.9,72,2,1323,0)="""PKG"",26,22,1,""PAH"",1,1,289,0)"
^XMB(3.9,72,2,1324,0)=" "
^XMB(3.9,72,2,1325,0)="""PKG"",26,22,1,""PAH"",1,1,290,0)"
^XMB(3.9,72,2,1326,0)=" Install Message sent #XXXX"
^XMB(3.9,72,2,1327,0)="""PKG"",26,22,1,""PAH"",1,1,291,0)"
^XMB(3.9,72,2,1328,0)=""
^XMB(3.9,72,2,1329,0)="""PKG"",26,22,1,""PAH"",1,1,292,0)"
^XMB(3.9,72,2,1330,0)=""
^XMB(3.9,72,2,1331,0)="""PKG"",26,22,1,""PAH"",1,1,293,0)"
^XMB(3.9,72,2,1332,0)=""
^XMB(3.9,72,2,1333,0)="""PKG"",26,22,1,""PAH"",1,1,294,0)"
^XMB(3.9,72,2,1334,0)=""
^XMB(3.9,72,2,1335,0)="""PKG"",26,22,1,""PAH"",1,1,295,0)"
^XMB(3.9,72,2,1336,0)=""
^XMB(3.9,72,2,1337,0)="""PRE"")"
^XMB(3.9,72,2,1338,0)="LR329"
^XMB(3.9,72,2,1339,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,72,2,1340,0)="Y"
^XMB(3.9,72,2,1341,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,72,2,1342,0)="^D REP^XPDH"
^XMB(3.9,72,2,1343,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,72,2,1344,0)="Shall I write over your |FLAG| File"
^XMB(3.9,72,2,1345,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,72,2,1346,0)="YES"
^XMB(3.9,72,2,1347,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,72,2,1348,0)="D XPF1^XPDIQ"
^XMB(3.9,72,2,1349,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,72,2,1350,0)="Y"
^XMB(3.9,72,2,1351,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,72,2,1352,0)="^D DTA^XPDH"
^XMB(3.9,72,2,1353,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,72,2,1354,0)="Want my data |FLAG| yours"
^XMB(3.9,72,2,1355,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,72,2,1356,0)="YES"
^XMB(3.9,72,2,1357,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,72,2,1358,0)="D XPF2^XPDIQ"
^XMB(3.9,72,2,1359,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,72,2,1360,0)="YO"
^XMB(3.9,72,2,1361,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,72,2,1362,0)="^D INHIBIT^XPDH"
^XMB(3.9,72,2,1363,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,72,2,1364,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,72,2,1365,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,72,2,1366,0)="YES"
^XMB(3.9,72,2,1367,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,72,2,1368,0)="D XPI1^XPDIQ"
^XMB(3.9,72,2,1369,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,72,2,1370,0)="PO^VA(200,:EM"
^XMB(3.9,72,2,1371,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,72,2,1372,0)="^D MG^XPDH"
^XMB(3.9,72,2,1373,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,72,2,1374,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,72,2,1375,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,72,2,1376,0)=""
^XMB(3.9,72,2,1377,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,72,2,1378,0)="D XPM1^XPDIQ"
^XMB(3.9,72,2,1379,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,72,2,1380,0)="Y"
^XMB(3.9,72,2,1381,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,72,2,1382,0)="^D MENU^XPDH"
^XMB(3.9,72,2,1383,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,72,2,1384,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,72,2,1385,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,72,2,1386,0)="YES"
^XMB(3.9,72,2,1387,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,72,2,1388,0)="D XPO1^XPDIQ"
^XMB(3.9,72,2,1389,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,72,2,1390,0)="Y"
^XMB(3.9,72,2,1391,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,72,2,1392,0)="^D OPT^XPDH"
^XMB(3.9,72,2,1393,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,72,2,1394,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,72,2,1395,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,72,2,1396,0)="YES"
^XMB(3.9,72,2,1397,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,72,2,1398,0)="D XPZ1^XPDIQ"
^XMB(3.9,72,2,1399,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,72,2,1400,0)="Y"
^XMB(3.9,72,2,1401,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,72,2,1402,0)="^D RTN^XPDH"
^XMB(3.9,72,2,1403,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,72,2,1404,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,72,2,1405,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,72,2,1406,0)="NO"
^XMB(3.9,72,2,1407,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,72,2,1408,0)="D XPZ2^XPDIQ"
^XMB(3.9,72,2,1409,0)="""RTN"")"
^XMB(3.9,72,2,1410,0)="2"
^XMB(3.9,72,2,1411,0)="""RTN"",""LR329"")"
^XMB(3.9,72,2,1412,0)="0^^B11411168^n/a"
^XMB(3.9,72,2,1413,0)="""RTN"",""LR329"",1,0)"
^XMB(3.9,72,2,1414,0)="LR329 ;DALOI/JMC - LR*5.2*329 PATCH ENVIRONMENT CHECK ROUTINE ;24 Jan 2004"
^XMB(3.9,72,2,1415,0)="""RTN"",""LR329"",2,0)"
^XMB(3.9,72,2,1416,0)=" ;;5.2;LAB SERVICE;**329**;Sep 27, 1994;Build 2"
^XMB(3.9,72,2,1417,0)="""RTN"",""LR329"",3,0)"
^XMB(3.9,72,2,1418,0)="EN ; Does not prevent loading of the transport global."
^XMB(3.9,72,2,1419,0)="""RTN"",""LR329"",4,0)"
^XMB(3.9,72,2,1420,0)=" ; Environment check is done only during the install."
^XMB(3.9,72,2,1421,0)="""RTN"",""LR329"",5,0)"
^XMB(3.9,72,2,1422,0)=" ;"
^XMB(3.9,72,2,1423,0)="""RTN"",""LR329"",6,0)"
^XMB(3.9,72,2,1424,0)=" N XQA,XQAMSG"
^XMB(3.9,72,2,1425,0)="""RTN"",""LR329"",7,0)"
^XMB(3.9,72,2,1426,0)=" ;"
^XMB(3.9,72,2,1427,0)="""RTN"",""LR329"",8,0)"
^XMB(3.9,72,2,1428,0)=" I '$G(XPDENV) D  Q"
^XMB(3.9,72,2,1429,0)="""RTN"",""LR329"",9,0)"
^XMB(3.9,72,2,1430,0)=" . S XQAMSG=""Transport global for patch ""_$G(XPDNM,""Unknown patch"")_"" loaded on ""_$$HTE^XLFDT($H)"
^XMB(3.9,72,2,1431,0)="""RTN"",""LR329"",10,0)"
^XMB(3.9,72,2,1432,0)=" . S XQA(""G.LMI"")="""""
^XMB(3.9,72,2,1433,0)="""RTN"",""LR329"",11,0)"
^XMB(3.9,72,2,1434,0)=" . D SETUP^XQALERT"
^XMB(3.9,72,2,1435,0)="""RTN"",""LR329"",12,0)"
^XMB(3.9,72,2,1436,0)=" . D BMES^XPDUTL($$CJ^XLFSTR(""Sending transport global loaded alert to mail group G.LMI"",80))"
^XMB(3.9,72,2,1437,0)="""RTN"",""LR329"",13,0)"
^XMB(3.9,72,2,1438,0)=" ;"
^XMB(3.9,72,2,1439,0)="""RTN"",""LR329"",14,0)"
^XMB(3.9,72,2,1440,0)=" S XQAMSG=""Installation of patch ""_$G(XPDNM,""Unknown patch"")_"" started on ""_$$HTE^XLFDT($H)"
^XMB(3.9,72,2,1441,0)="""RTN"",""LR329"",15,0)"
^XMB(3.9,72,2,1442,0)=" S XQA(""G.LMI"")="""""
^XMB(3.9,72,2,1443,0)="""RTN"",""LR329"",16,0)"
^XMB(3.9,72,2,1444,0)=" D SETUP^XQALERT"
^XMB(3.9,72,2,1445,0)="""RTN"",""LR329"",17,0)"
^XMB(3.9,72,2,1446,0)=" D BMES^XPDUTL($$CJ^XLFSTR(""Sending install started alert to mail group G.LMI"",80))"
^XMB(3.9,72,2,1447,0)="""RTN"",""LR329"",18,0)"
^XMB(3.9,72,2,1448,0)=" ;"
^XMB(3.9,72,2,1449,0)="""RTN"",""LR329"",19,0)"
^XMB(3.9,72,2,1450,0)=" D CHECK"
^XMB(3.9,72,2,1451,0)="""RTN"",""LR329"",20,0)"
^XMB(3.9,72,2,1452,0)=" D EXIT"
^XMB(3.9,72,2,1453,0)="""RTN"",""LR329"",21,0)"
^XMB(3.9,72,2,1454,0)=" Q"
^XMB(3.9,72,2,1455,0)="""RTN"",""LR329"",22,0)"
^XMB(3.9,72,2,1456,0)=" ;"
^XMB(3.9,72,2,1457,0)="""RTN"",""LR329"",23,0)"
^XMB(3.9,72,2,1458,0)="CHECK ; Perform environment check"
^XMB(3.9,72,2,1459,0)="""RTN"",""LR329"",24,0)"
^XMB(3.9,72,2,1460,0)=" I $S('$G(IOM):1,'$G(IOSL):1,$G(U)'=""^"":1,1:0) D  Q"
^XMB(3.9,72,2,1461,0)="""RTN"",""LR329"",25,0)"
^XMB(3.9,72,2,1462,0)=" . D BMES^XPDUTL($$CJ^XLFSTR(""Terminal Device is not defined"",80))"
^XMB(3.9,72,2,1463,0)="""RTN"",""LR329"",26,0)"
^XMB(3.9,72,2,1464,0)=" . S XPDQUIT=2"
^XMB(3.9,72,2,1465,0)="""RTN"",""LR329"",27,0)"
^XMB(3.9,72,2,1466,0)=" I $S('$G(DUZ):1,$D(DUZ)[0:1,$D(DUZ(0))[0:1,1:0) D  Q"
^XMB(3.9,72,2,1467,0)="""RTN"",""LR329"",28,0)"
^XMB(3.9,72,2,1468,0)=" . D BMES^XPDUTL($$CJ^XLFSTR(""Please log in to set local DUZ... variables"",80))"
^XMB(3.9,72,2,1469,0)="""RTN"",""LR329"",29,0)"
^XMB(3.9,72,2,1470,0)=" . S XPDQUIT=2"
^XMB(3.9,72,2,1471,0)="""RTN"",""LR329"",30,0)"
^XMB(3.9,72,2,1472,0)=" I $P($$ACTIVE^XUSER(DUZ),""^"")'=1 D  Q"
^XMB(3.9,72,2,1473,0)="""RTN"",""LR329"",31,0)"
^XMB(3.9,72,2,1474,0)=" . D BMES^XPDUTL($$CJ^XLFSTR(""You are not a valid user on this system"",80))"
^XMB(3.9,72,2,1475,0)="""RTN"",""LR329"",32,0)"
^XMB(3.9,72,2,1476,0)=" . S XPDQUIT=2"
^XMB(3.9,72,2,1477,0)="""RTN"",""LR329"",33,0)"
^XMB(3.9,72,2,1478,0)=" S XPDIQ(""XPZ1"",""B"")=""NO"""
^XMB(3.9,72,2,1479,0)="""RTN"",""LR329"",34,0)"
^XMB(3.9,72,2,1480,0)=" Q"
^XMB(3.9,72,2,1481,0)="""RTN"",""LR329"",35,0)"
^XMB(3.9,72,2,1482,0)=" ;"
^XMB(3.9,72,2,1483,0)="""RTN"",""LR329"",36,0)"
^XMB(3.9,72,2,1484,0)="EXIT ;"
^XMB(3.9,72,2,1485,0)="""RTN"",""LR329"",37,0)"
^XMB(3.9,72,2,1486,0)=" I $G(XPDQUIT) D BMES^XPDUTL($$CJ^XLFSTR(""--- Install Environment Check FAILED ---"",80))"
^XMB(3.9,72,2,1487,0)="""RTN"",""LR329"",38,0)"
^XMB(3.9,72,2,1488,0)=" I '$G(XPDQUIT) D BMES^XPDUTL($$CJ^XLFSTR(""--- Environment Check is Ok ---"",80))"
^XMB(3.9,72,2,1489,0)="""RTN"",""LR329"",39,0)"
^XMB(3.9,72,2,1490,0)=" Q"
^XMB(3.9,72,2,1491,0)="""RTN"",""LR329"",40,0)"
^XMB(3.9,72,2,1492,0)=" ;"
^XMB(3.9,72,2,1493,0)="""RTN"",""LR329"",41,0)"
^XMB(3.9,72,2,1494,0)="PRE ; KIDS Pre install"
^XMB(3.9,72,2,1495,0)="""RTN"",""LR329"",42,0)"
^XMB(3.9,72,2,1496,0)=" D BMES^XPDUTL($$CJ^XLFSTR(""*** Pre install started ***"",80))"
^XMB(3.9,72,2,1497,0)="""RTN"",""LR329"",43,0)"
^XMB(3.9,72,2,1498,0)=" D BMES^XPDUTL($$CJ^XLFSTR(""*** No action required ***"",80))"
^XMB(3.9,72,2,1499,0)="""RTN"",""LR329"",44,0)"
^XMB(3.9,72,2,1500,0)=" D BMES^XPDUTL($$CJ^XLFSTR(""*** Pre install completed ***"",80))"
^XMB(3.9,72,2,1501,0)="""RTN"",""LR329"",45,0)"
^XMB(3.9,72,2,1502,0)=" Q"
^XMB(3.9,72,2,1503,0)="""RTN"",""LR329"",46,0)"
^XMB(3.9,72,2,1504,0)=" ;"
^XMB(3.9,72,2,1505,0)="""RTN"",""LR329"",47,0)"
^XMB(3.9,72,2,1506,0)="POST ; KIDS Post install"
^XMB(3.9,72,2,1507,0)="""RTN"",""LR329"",48,0)"
^XMB(3.9,72,2,1508,0)=" N XQA,XQAMSG,ZTDTH,ZTSK,ZTRTN,ZTDESC,ZTIO,ZTSAVE"
^XMB(3.9,72,2,1509,0)="""RTN"",""LR329"",49,0)"
^XMB(3.9,72,2,1510,0)=" D BMES^XPDUTL($$CJ^XLFSTR(""*** Post install started ***"",80))"
^XMB(3.9,72,2,1511,0)="""RTN"",""LR329"",50,0)"
^XMB(3.9,72,2,1512,0)=" ;"
^XMB(3.9,72,2,1513,0)="""RTN"",""LR329"",51,0)"
^XMB(3.9,72,2,1514,0)=" ; Task job to cleanup LR(68,""C"" x-ref now"
^XMB(3.9,72,2,1515,0)="""RTN"",""LR329"",52,0)"
^XMB(3.9,72,2,1516,0)=" D BMES^XPDUTL($$CJ^XLFSTR(""*** Tasking check/cleanup """"C"""" cross reference on ACCESSION file (#68) ***"",80))"
^XMB(3.9,72,2,1517,0)="""RTN"",""LR329"",53,0)"
^XMB(3.9,72,2,1518,0)=" S ZTRTN=""CHKUID^LROC"",ZTDESC=""Check/cleanup file #68 'C' and 'D' x-ref"""
^XMB(3.9,72,2,1519,0)="""RTN"",""LR329"",54,0)"
^XMB(3.9,72,2,1520,0)=" S ZTIO="""",ZTDTH=$H"
^XMB(3.9,72,2,1521,0)="""RTN"",""LR329"",55,0)"
^XMB(3.9,72,2,1522,0)=" D ^%ZTLOAD"
^XMB(3.9,72,2,1523,0)="""RTN"",""LR329"",56,0)"
^XMB(3.9,72,2,1524,0)=" D BMES^XPDUTL($$CJ^XLFSTR(""*** Task #""_ZTSK_"" tasked to run ***"",80))"
^XMB(3.9,72,2,1525,0)="""RTN"",""LR329"",57,0)"
^XMB(3.9,72,2,1526,0)=" ;"
^XMB(3.9,72,2,1527,0)="""RTN"",""LR329"",58,0)"
^XMB(3.9,72,2,1528,0)=" D BMES^XPDUTL($$CJ^XLFSTR(""*** Post install completed ***"",80))"
^XMB(3.9,72,2,1529,0)="""RTN"",""LR329"",59,0)"
^XMB(3.9,72,2,1530,0)=" D BMES^XPDUTL($$CJ^XLFSTR(""Sending install completion alert to mail group G.LMI"",80))"
^XMB(3.9,72,2,1531,0)="""RTN"",""LR329"",60,0)"
^XMB(3.9,72,2,1532,0)=" ;"
^XMB(3.9,72,2,1533,0)="""RTN"",""LR329"",61,0)"
^XMB(3.9,72,2,1534,0)=" S XQAMSG=""Installation of patch ""_$G(XPDNM,""Unknown patch"")_"" completed on ""_$$HTE^XLFDT($H)"
^XMB(3.9,72,2,1535,0)="""RTN"",""LR329"",62,0)"
^XMB(3.9,72,2,1536,0)=" S XQA(""G.LMI"")="""""
^XMB(3.9,72,2,1537,0)="""RTN"",""LR329"",63,0)"
^XMB(3.9,72,2,1538,0)=" D SETUP^XQALERT"
^XMB(3.9,72,2,1539,0)="""RTN"",""LR329"",64,0)"
^XMB(3.9,72,2,1540,0)=" ;"
^XMB(3.9,72,2,1541,0)="""RTN"",""LR329"",65,0)"
^XMB(3.9,72,2,1542,0)=" S XQAMSG=""LIM: Review description for ""_$G(XPDNM,""Unknown patch"")_"" use KIDS:Utilities:Build File Print"""
^XMB(3.9,72,2,1543,0)="""RTN"",""LR329"",66,0)"
^XMB(3.9,72,2,1544,0)=" S XQA(""G.LMI"")="""""
^XMB(3.9,72,2,1545,0)="""RTN"",""LR329"",67,0)"
^XMB(3.9,72,2,1546,0)=" D SETUP^XQALERT"
^XMB(3.9,72,2,1547,0)="""RTN"",""LR329"",68,0)"
^XMB(3.9,72,2,1548,0)=" Q"
^XMB(3.9,72,2,1549,0)="""RTN"",""LROC"")"
^XMB(3.9,72,2,1550,0)="0^1^B27696934^B15121360"
^XMB(3.9,72,2,1551,0)="""RTN"",""LROC"",1,0)"
^XMB(3.9,72,2,1552,0)="LROC ;DALOI/CJS - ORDER LIST CLEAN-UP ; 20 Apr 2005"
^XMB(3.9,72,2,1553,0)="""RTN"",""LROC"",2,0)"
^XMB(3.9,72,2,1554,0)=" ;;5.2;LAB SERVICE;**121,295,329**;Sep 27, 1994;Build 2"
^XMB(3.9,72,2,1555,0)="""RTN"",""LROC"",3,0)"
^XMB(3.9,72,2,1556,0)=" ; Modified slc/jer to include set/kill for ""D"" cross-reference"
^XMB(3.9,72,2,1557,0)="""RTN"",""LROC"",4,0)"
^XMB(3.9,72,2,1558,0)=" ;"
^XMB(3.9,72,2,1559,0)="""RTN"",""LROC"",5,0)"
^XMB(3.9,72,2,1560,0)=" N DA,DIR,DIROUT,DTOUT,DUOUT,LRAA,LRSAVE,LRX,MSG,X,Y"
^XMB(3.9,72,2,1561,0)="""RTN"",""LROC"",6,0)"
^XMB(3.9,72,2,1562,0)=" D ^LROCM"
^XMB(3.9,72,2,1563,0)="""RTN"",""LROC"",7,0)"
^XMB(3.9,72,2,1564,0)=" ;"
^XMB(3.9,72,2,1565,0)="""RTN"",""LROC"",8,0)"
^XMB(3.9,72,2,1566,0)=" S DIR(0)=""Y"""
^XMB(3.9,72,2,1567,0)="""RTN"",""LROC"",9,0)"
^XMB(3.9,72,2,1568,0)=" S DIR(""A"")=""Do you wish to Purge old Orders and Accessions"",DIR(""B"")=""NO"""
^XMB(3.9,72,2,1569,0)="""RTN"",""LROC"",10,0)"
^XMB(3.9,72,2,1570,0)=" D ^DIR"
^XMB(3.9,72,2,1571,0)="""RTN"",""LROC"",11,0)"
^XMB(3.9,72,2,1572,0)=" I Y'=1 Q"
^XMB(3.9,72,2,1573,0)="""RTN"",""LROC"",12,0)"
^XMB(3.9,72,2,1574,0)=" ;"
^XMB(3.9,72,2,1575,0)="""RTN"",""LROC"",13,0)"
^XMB(3.9,72,2,1576,0)=" S LRX=+$P($G(^LAB(69.9,1,0)),U,9) S:'LRX LRX=7"
^XMB(3.9,72,2,1577,0)="""RTN"",""LROC"",14,0)"
^XMB(3.9,72,2,1578,0)=" S LRSAVE=$$FMADD^XLFDT(DT,""-""_LRX)"
^XMB(3.9,72,2,1579,0)="""RTN"",""LROC"",15,0)"
^XMB(3.9,72,2,1580,0)=" ;"
^XMB(3.9,72,2,1581,0)="""RTN"",""LROC"",16,0)"
^XMB(3.9,72,2,1582,0)="L1 ; Purge the daily accession areas that meet cutoff"
^XMB(3.9,72,2,1583,0)="""RTN"",""LROC"",17,0)"
^XMB(3.9,72,2,1584,0)=" S LRAA=0"
^XMB(3.9,72,2,1585,0)="""RTN"",""LROC"",18,0)"
^XMB(3.9,72,2,1586,0)=" F  S LRAA=$O(^LRO(68,LRAA)) Q:LRAA<1  D"
^XMB(3.9,72,2,1587,0)="""RTN"",""LROC"",19,0)"
^XMB(3.9,72,2,1588,0)=" . I $P(^LRO(68,LRAA,0),U,3)'=""D"" W !,""Use File Manager to clear "",$P(^(0),U)"
^XMB(3.9,72,2,1589,0)="""RTN"",""LROC"",20,0)"
^XMB(3.9,72,2,1590,0)=" ;"
^XMB(3.9,72,2,1591,0)="""RTN"",""LROC"",21,0)"
^XMB(3.9,72,2,1592,0)=" N ZTSK,ZTRTN,ZTDESC,ZTIO,ZTSAVE"
^XMB(3.9,72,2,1593,0)="""RTN"",""LROC"",22,0)"
^XMB(3.9,72,2,1594,0)=" S ZTRTN=""DQ^LROC"",ZTDESC=""Purge old orders and accessions"""
^XMB(3.9,72,2,1595,0)="""RTN"",""LROC"",23,0)"
^XMB(3.9,72,2,1596,0)=" S ZTIO="""",ZTSAVE(""LR*"")="""""
^XMB(3.9,72,2,1597,0)="""RTN"",""LROC"",24,0)"
^XMB(3.9,72,2,1598,0)=" D ^%ZTLOAD"
^XMB(3.9,72,2,1599,0)="""RTN"",""LROC"",25,0)"
^XMB(3.9,72,2,1600,0)=" S MSG=$S($G(ZTSK):""Task #""_ZTSK_"" tasked to run"",1:""Tasking failed"")"
^XMB(3.9,72,2,1601,0)="""RTN"",""LROC"",26,0)"
^XMB(3.9,72,2,1602,0)=" D EN^DDIOL(MSG,"""",""!?2"")"
^XMB(3.9,72,2,1603,0)="""RTN"",""LROC"",27,0)"
^XMB(3.9,72,2,1604,0)=" Q"
^XMB(3.9,72,2,1605,0)="""RTN"",""LROC"",28,0)"
^XMB(3.9,72,2,1606,0)=" ;"
^XMB(3.9,72,2,1607,0)="""RTN"",""LROC"",29,0)"
^XMB(3.9,72,2,1608,0)=" ;"
^XMB(3.9,72,2,1609,0)="""RTN"",""LROC"",30,0)"
^XMB(3.9,72,2,1610,0)="DQ ; Tasked entry point to clean up file #69"
^XMB(3.9,72,2,1611,0)="""RTN"",""LROC"",31,0)"
^XMB(3.9,72,2,1612,0)=" N DA,I,J,K,LRDA"
^XMB(3.9,72,2,1613,0)="""RTN"",""LROC"",32,0)"
^XMB(3.9,72,2,1614,0)=" ;"
^XMB(3.9,72,2,1615,0)="""RTN"",""LROC"",33,0)"
^XMB(3.9,72,2,1616,0)=" ; Purge the daily accession areas that meet cutoff"
^XMB(3.9,72,2,1617,0)="""RTN"",""LROC"",34,0)"
^XMB(3.9,72,2,1618,0)=" S LRAA=0"
^XMB(3.9,72,2,1619,0)="""RTN"",""LROC"",35,0)"
^XMB(3.9,72,2,1620,0)=" F  S LRAA=$O(^LRO(68,LRAA)) Q:LRAA<1  D  Q:$G(ZTSTOP)"
^XMB(3.9,72,2,1621,0)="""RTN"",""LROC"",36,0)"
^XMB(3.9,72,2,1622,0)=" . I $P(^LRO(68,LRAA,0),U,3)'=""D"" Q"
^XMB(3.9,72,2,1623,0)="""RTN"",""LROC"",37,0)"
^XMB(3.9,72,2,1624,0)=" . I $$S^%ZTLOAD(""Processing accession area: ""_LRAA) S ZTSTOP=1 Q"
^XMB(3.9,72,2,1625,0)="""RTN"",""LROC"",38,0)"
^XMB(3.9,72,2,1626,0)=" . S DA=0"
^XMB(3.9,72,2,1627,0)="""RTN"",""LROC"",39,0)"
^XMB(3.9,72,2,1628,0)=" . F  S DA=$O(^LRO(68,LRAA,1,DA)) Q:DA<1!(LRSAVE<DA)  K ^LRO(68,LRAA,1,DA)"
^XMB(3.9,72,2,1629,0)="""RTN"",""LROC"",40,0)"
^XMB(3.9,72,2,1630,0)=" ;"
^XMB(3.9,72,2,1631,0)="""RTN"",""LROC"",41,0)"
^XMB(3.9,72,2,1632,0)=" I $G(ZTSTOP) Q"
^XMB(3.9,72,2,1633,0)="""RTN"",""LROC"",42,0)"
^XMB(3.9,72,2,1634,0)=" ;"
^XMB(3.9,72,2,1635,0)="""RTN"",""LROC"",43,0)"
^XMB(3.9,72,2,1636,0)=" S I=0"
^XMB(3.9,72,2,1637,0)="""RTN"",""LROC"",44,0)"
^XMB(3.9,72,2,1638,0)=" F  S I=$O(^LRO(69,""C"",I)) Q:I<1  D  Q:$G(ZTSTOP)"
^XMB(3.9,72,2,1639,0)="""RTN"",""LROC"",45,0)"
^XMB(3.9,72,2,1640,0)=" . I $$S^%ZTLOAD(""Processing 'C' X-REF in file #69"") S ZTSTOP=1 Q"
^XMB(3.9,72,2,1641,0)="""RTN"",""LROC"",46,0)"
^XMB(3.9,72,2,1642,0)=" . S J=0"
^XMB(3.9,72,2,1643,0)="""RTN"",""LROC"",47,0)"
^XMB(3.9,72,2,1644,0)=" . F  S J=$O(^LRO(69,""C"",I,J)) Q:J>LRSAVE!(J<1)  K ^(J)"
^XMB(3.9,72,2,1645,0)="""RTN"",""LROC"",48,0)"
^XMB(3.9,72,2,1646,0)=" I $G(ZTSTOP) Q"
^XMB(3.9,72,2,1647,0)="""RTN"",""LROC"",49,0)"
^XMB(3.9,72,2,1648,0)=" ;"
^XMB(3.9,72,2,1649,0)="""RTN"",""LROC"",50,0)"
^XMB(3.9,72,2,1650,0)=" S I=0"
^XMB(3.9,72,2,1651,0)="""RTN"",""LROC"",51,0)"
^XMB(3.9,72,2,1652,0)=" F  S I=$O(^LRO(69,""D"",I)) Q:I<1  D  Q:$G(ZTSTOP)"
^XMB(3.9,72,2,1653,0)="""RTN"",""LROC"",52,0)"
^XMB(3.9,72,2,1654,0)=" . I $$S^%ZTLOAD(""Processing 'D' X-REF in file #69"") S ZTSTOP=1 Q"
^XMB(3.9,72,2,1655,0)="""RTN"",""LROC"",53,0)"
^XMB(3.9,72,2,1656,0)=" . S J=0"
^XMB(3.9,72,2,1657,0)="""RTN"",""LROC"",54,0)"
^XMB(3.9,72,2,1658,0)=" . F  S J=$O(^LRO(69,""D"",I,J)) Q:J>LRSAVE!(J<1)  K ^(J)"
^XMB(3.9,72,2,1659,0)="""RTN"",""LROC"",55,0)"
^XMB(3.9,72,2,1660,0)=" I $G(ZTSTOP) Q"
^XMB(3.9,72,2,1661,0)="""RTN"",""LROC"",56,0)"
^XMB(3.9,72,2,1662,0)=" ;"
^XMB(3.9,72,2,1663,0)="""RTN"",""LROC"",57,0)"
^XMB(3.9,72,2,1664,0)=" S LRDA=1"
^XMB(3.9,72,2,1665,0)="""RTN"",""LROC"",58,0)"
^XMB(3.9,72,2,1666,0)=" F  S LRDA=$O(^LRO(69,LRDA)) D  Q:(LRSAVE<LRDA)!(LRDA<1)  Q:$G(ZTSTOP)"
^XMB(3.9,72,2,1667,0)="""RTN"",""LROC"",59,0)"
^XMB(3.9,72,2,1668,0)=" . I LRDA[""0000"" Q"
^XMB(3.9,72,2,1669,0)="""RTN"",""LROC"",60,0)"
^XMB(3.9,72,2,1670,0)=" . I $$S^%ZTLOAD(""Processing orders in file #69 for ""_$$FMTE^XLFDT(LRDA)) S ZTSTOP=1 Q"
^XMB(3.9,72,2,1671,0)="""RTN"",""LROC"",61,0)"
^XMB(3.9,72,2,1672,0)=" . S ^LRO(69,0)=$P(^LRO(69,0),U,1,2)_U_LRDA_U_($P(^(0),U,4)-1)"
^XMB(3.9,72,2,1673,0)="""RTN"",""LROC"",62,0)"
^XMB(3.9,72,2,1674,0)=" . N LRSN"
^XMB(3.9,72,2,1675,0)="""RTN"",""LROC"",63,0)"
^XMB(3.9,72,2,1676,0)=" . S LRSN=0"
^XMB(3.9,72,2,1677,0)="""RTN"",""LROC"",64,0)"
^XMB(3.9,72,2,1678,0)=" . F  S LRSN=$O(^LRO(69,LRDA,1,LRSN)) Q:LRSN<1  D NEW^LR7OB1(LRDA,LRSN,""Z@"") ; Call OE/RR"
^XMB(3.9,72,2,1679,0)="""RTN"",""LROC"",65,0)"
^XMB(3.9,72,2,1680,0)=" . K ^LRO(69,LRDA),^LRO(69,""B"",LRDA,LRDA)"
^XMB(3.9,72,2,1681,0)="""RTN"",""LROC"",66,0)"
^XMB(3.9,72,2,1682,0)=" ;"
^XMB(3.9,72,2,1683,0)="""RTN"",""LROC"",67,0)"
^XMB(3.9,72,2,1684,0)=" I LRDA<1 S ^LRO(69,0)=$P(^(0),U,1,2)"
^XMB(3.9,72,2,1685,0)="""RTN"",""LROC"",68,0)"
^XMB(3.9,72,2,1686,0)=" I $G(ZTSTOP) Q"
^XMB(3.9,72,2,1687,0)="""RTN"",""LROC"",69,0)"
^XMB(3.9,72,2,1688,0)=" ;"
^XMB(3.9,72,2,1689,0)="""RTN"",""LROC"",70,0)"
^XMB(3.9,72,2,1690,0)=" D CHKUID"
^XMB(3.9,72,2,1691,0)="""RTN"",""LROC"",71,0)"
^XMB(3.9,72,2,1692,0)=" I $G(ZTSTOP) Q"
^XMB(3.9,72,2,1693,0)="""RTN"",""LROC"",72,0)"
^XMB(3.9,72,2,1694,0)=" D ^LROC1"
^XMB(3.9,72,2,1695,0)="""RTN"",""LROC"",73,0)"
^XMB(3.9,72,2,1696,0)=" K LRSAVE"
^XMB(3.9,72,2,1697,0)="""RTN"",""LROC"",74,0)"
^XMB(3.9,72,2,1698,0)=" ;"
^XMB(3.9,72,2,1699,0)="""RTN"",""LROC"",75,0)"
^XMB(3.9,72,2,1700,0)=" Q"
^XMB(3.9,72,2,1701,0)="""RTN"",""LROC"",76,0)"
^XMB(3.9,72,2,1702,0)=" ;"
^XMB(3.9,72,2,1703,0)="""RTN"",""LROC"",77,0)"
^XMB(3.9,72,2,1704,0)=" ;"
^XMB(3.9,72,2,1705,0)="""RTN"",""LROC"",78,0)"
^XMB(3.9,72,2,1706,0)="CENDEL ;"
^XMB(3.9,72,2,1707,0)="""RTN"",""LROC"",79,0)"
^XMB(3.9,72,2,1708,0)=" W !,""STARTING CENTRAL ENTRY #: "" R LRSTA:DTIME S LRSTA=LRSTA-1"
^XMB(3.9,72,2,1709,0)="""RTN"",""LROC"",80,0)"
^XMB(3.9,72,2,1710,0)=" S U=""^"" W !,""ENDING CENTRAL ENTRY #: "" R LRFIN:DTIME"
^XMB(3.9,72,2,1711,0)="""RTN"",""LROC"",81,0)"
^XMB(3.9,72,2,1712,0)=" W !,""ARE YOU SURE? N//"" D % Q:%'[""Y"""
^XMB(3.9,72,2,1713,0)="""RTN"",""LROC"",82,0)"
^XMB(3.9,72,2,1714,0)=" S ZTRTN=""REENTRY^LROC"",ZTIO="""",ZTSAVE(""L*"")="""""
^XMB(3.9,72,2,1715,0)="""RTN"",""LROC"",83,0)"
^XMB(3.9,72,2,1716,0)=" D ^%ZTLOAD"
^XMB(3.9,72,2,1717,0)="""RTN"",""LROC"",84,0)"
^XMB(3.9,72,2,1718,0)=" K IO(""Q""),ZTSK,ZTRTN,ZTIO,ZTSAVE"
^XMB(3.9,72,2,1719,0)="""RTN"",""LROC"",85,0)"
^XMB(3.9,72,2,1720,0)=" K %H,%ZA,%ZB,%ZC,DA,I,J,LRAA,LRAN,LRDFN,LRDTM,LRDTN,LRFIN,LRIDT,LRIOZERO,LRLOST,LROCN,LROID,LRORD,LROSN,LRSAVE,LRSN,LRSS,LRSTA,POP,Z"
^XMB(3.9,72,2,1721,0)="""RTN"",""LROC"",86,0)"
^XMB(3.9,72,2,1722,0)=" Q"
^XMB(3.9,72,2,1723,0)="""RTN"",""LROC"",87,0)"
^XMB(3.9,72,2,1724,0)=" ;"
^XMB(3.9,72,2,1725,0)="""RTN"",""LROC"",88,0)"
^XMB(3.9,72,2,1726,0)=" ;"
^XMB(3.9,72,2,1727,0)="""RTN"",""LROC"",89,0)"
^XMB(3.9,72,2,1728,0)="REENTRY ;"
^XMB(3.9,72,2,1729,0)="""RTN"",""LROC"",90,0)"
^XMB(3.9,72,2,1730,0)=" S LRORD=LRSTA"
^XMB(3.9,72,2,1731,0)="""RTN"",""LROC"",91,0)"
^XMB(3.9,72,2,1732,0)=" F  S LRORD=$O(^LRO(69,""C"",LRORD)) Q:LRORD<1!(LRORD>LRFIN)  D FDAT"
^XMB(3.9,72,2,1733,0)="""RTN"",""LROC"",92,0)"
^XMB(3.9,72,2,1734,0)=" Q"
^XMB(3.9,72,2,1735,0)="""RTN"",""LROC"",93,0)"
^XMB(3.9,72,2,1736,0)=" ;"
^XMB(3.9,72,2,1737,0)="""RTN"",""LROC"",94,0)"
^XMB(3.9,72,2,1738,0)=" ;"
^XMB(3.9,72,2,1739,0)="""RTN"",""LROC"",95,0)"
^XMB(3.9,72,2,1740,0)="FDAT ;"
^XMB(3.9,72,2,1741,0)="""RTN"",""LROC"",96,0)"
^XMB(3.9,72,2,1742,0)=" S LRDTN=0"
^XMB(3.9,72,2,1743,0)="""RTN"",""LROC"",97,0)"
^XMB(3.9,72,2,1744,0)=" F  S LRDTN=$O(^LRO(69,""C"",LRORD,LRDTN)) Q:LRDTN<1  D ZAP"
^XMB(3.9,72,2,1745,0)="""RTN"",""LROC"",98,0)"
^XMB(3.9,72,2,1746,0)=" Q"
^XMB(3.9,72,2,1747,0)="""RTN"",""LROC"",99,0)"
^XMB(3.9,72,2,1748,0)=" ;"
^XMB(3.9,72,2,1749,0)="""RTN"",""LROC"",100,0)"
^XMB(3.9,72,2,1750,0)=" ;"
^XMB(3.9,72,2,1751,0)="""RTN"",""LROC"",101,0)"
^XMB(3.9,72,2,1752,0)="ZAP ;"
^XMB(3.9,72,2,1753,0)="""RTN"",""LROC"",102,0)"
^XMB(3.9,72,2,1754,0)=" S LRSN=0"
^XMB(3.9,72,2,1755,0)="""RTN"",""LROC"",103,0)"
^XMB(3.9,72,2,1756,0)=" F  S LRSN=$O(^LRO(69,""C"",+LRORD,LRDTN,LRSN)) Q:LRSN<1  D"
^XMB(3.9,72,2,1757,0)="""RTN"",""LROC"",104,0)"
^XMB(3.9,72,2,1758,0)=" . D NEW^LR7OB1(LRDTN,LRSN,""Z@"") ;Call OE/RR"
^XMB(3.9,72,2,1759,0)="""RTN"",""LROC"",105,0)"
^XMB(3.9,72,2,1760,0)=" . K ^LRO(69,""C"",+LRORD,LRDTN,LRSN) Q:'$D(^LRO(69,LRDTN,1,LRSN,0))  S LRDFN=+^(0)"
^XMB(3.9,72,2,1761,0)="""RTN"",""LROC"",106,0)"
^XMB(3.9,72,2,1762,0)=" . K ^LRO(69,LRDTN,1,LRSN),^LRO(69,LRDTN,1,""AA"",LRDFN,LRSN),^LRO(69,""D"",LRDFN,LRDTN,LRSN)"
^XMB(3.9,72,2,1763,0)="""RTN"",""LROC"",107,0)"
^XMB(3.9,72,2,1764,0)=" S LRAA=0"
^XMB(3.9,72,2,1765,0)="""RTN"",""LROC"",108,0)"
^XMB(3.9,72,2,1766,0)=" F  S LRAA=$O(^LRO(68,LRAA)) Q:LRAA<1  D:$P(^(LRAA,0),U,10)=""Y"" LRORD"
^XMB(3.9,72,2,1767,0)="""RTN"",""LROC"",109,0)"
^XMB(3.9,72,2,1768,0)=" Q"
^XMB(3.9,72,2,1769,0)="""RTN"",""LROC"",110,0)"
^XMB(3.9,72,2,1770,0)=" ;"
^XMB(3.9,72,2,1771,0)="""RTN"",""LROC"",111,0)"
^XMB(3.9,72,2,1772,0)=" ;"
^XMB(3.9,72,2,1773,0)="""RTN"",""LROC"",112,0)"
^XMB(3.9,72,2,1774,0)="LRORD ;"
^XMB(3.9,72,2,1775,0)="""RTN"",""LROC"",113,0)"
^XMB(3.9,72,2,1776,0)=" S LRAN=$O(^LRO(68,LRAA,1,LRDTN,1,""D"",LRORD,0)) Q:LRAN<1"
^XMB(3.9,72,2,1777,0)="""RTN"",""LROC"",114,0)"
^XMB(3.9,72,2,1778,0)=" Q:'$D(^LRO(68,LRAA,1,LRDTN,1,LRAN,0))"
^XMB(3.9,72,2,1779,0)="""RTN"",""LROC"",115,0)"
^XMB(3.9,72,2,1780,0)=" S LRSS=$P(^LRO(68,LRAA,0),""^"",2)"
^XMB(3.9,72,2,1781,0)="""RTN"",""LROC"",116,0)"
^XMB(3.9,72,2,1782,0)=" S LRDFN=+^LRO(68,LRAA,1,LRDTN,1,LRAN,0) G:'$D(^(3)) SKPLR S LRDTM=+^LRO(68,LRAA,1,LRDTN,1,LRAN,3) G:'LRDTM SKPLR S LRIDT=9999999-LRDTM"
^XMB(3.9,72,2,1783,0)="""RTN"",""LROC"",117,0)"
^XMB(3.9,72,2,1784,0)=" I $D(^LR(LRDFN,LRSS,LRIDT,0)),$P(^(0),U,3) Q"
^XMB(3.9,72,2,1785,0)="""RTN"",""LROC"",118,0)"
^XMB(3.9,72,2,1786,0)=" K ^LR(LRDFN,LRSS,LRIDT)"
^XMB(3.9,72,2,1787,0)="""RTN"",""LROC"",119,0)"
^XMB(3.9,72,2,1788,0)=" I LRSS=""CH"" D CHKILL^LRPX(LRDFN,LRIDT)"
^XMB(3.9,72,2,1789,0)="""RTN"",""LROC"",120,0)"
^XMB(3.9,72,2,1790,0)=" ;"
^XMB(3.9,72,2,1791,0)="""RTN"",""LROC"",121,0)"
^XMB(3.9,72,2,1792,0)="SKPLR S X=^LRO(68,LRAA,1,LRDTN,1,LRAN,0),LROSN=$P(X,U,5),LROID=$P(X,U,6),LROCN=$S($D(^(.1)):$P(^(.1),U),1:"""")"
^XMB(3.9,72,2,1793,0)="""RTN"",""LROC"",122,0)"
^XMB(3.9,72,2,1794,0)=" K:$L(LROID) ^LRO(68,LRAA,1,LRDTN,1,""C"",LROID,LRAN)"
^XMB(3.9,72,2,1795,0)="""RTN"",""LROC"",123,0)"
^XMB(3.9,72,2,1796,0)=" K:$L(LROCN) ^LRO(68,LRAA,1,LRDTN,1,""D"",LROCN,LRAN)"
^XMB(3.9,72,2,1797,0)="""RTN"",""LROC"",124,0)"
^XMB(3.9,72,2,1798,0)=" K ^LRO(68,LRAA,1,LRDTN,1,LRAN)"
^XMB(3.9,72,2,1799,0)="""RTN"",""LROC"",125,0)"
^XMB(3.9,72,2,1800,0)=" W ""."""
^XMB(3.9,72,2,1801,0)="""RTN"",""LROC"",126,0)"
^XMB(3.9,72,2,1802,0)=" Q"
^XMB(3.9,72,2,1803,0)="""RTN"",""LROC"",127,0)"
^XMB(3.9,72,2,1804,0)=" ;"
^XMB(3.9,72,2,1805,0)="""RTN"",""LROC"",128,0)"
^XMB(3.9,72,2,1806,0)=" ;"
^XMB(3.9,72,2,1807,0)="""RTN"",""LROC"",129,0)"
^XMB(3.9,72,2,1808,0)="% R %:DTIME Q:%=""""!(%[""N"")!(%[""Y"")  W !,""Answer 'Y' or 'N': "" G %"
^XMB(3.9,72,2,1809,0)="""RTN"",""LROC"",130,0)"
^XMB(3.9,72,2,1810,0)=" Q"
^XMB(3.9,72,2,1811,0)="""RTN"",""LROC"",131,0)"
^XMB(3.9,72,2,1812,0)=" ;"
^XMB(3.9,72,2,1813,0)="""RTN"",""LROC"",132,0)"
^XMB(3.9,72,2,1814,0)=" ;"
^XMB(3.9,72,2,1815,0)="""RTN"",""LROC"",133,0)"
^XMB(3.9,72,2,1816,0)="CHKUID ; Check UID's for purged accessions"
^XMB(3.9,72,2,1817,0)="""RTN"",""LROC"",134,0)"
^XMB(3.9,72,2,1818,0)=" ;"
^XMB(3.9,72,2,1819,0)="""RTN"",""LROC"",135,0)"
^XMB(3.9,72,2,1820,0)=" N LRAA,LRAD,LRAN,LRCNT,LRROOT"
^XMB(3.9,72,2,1821,0)="""RTN"",""LROC"",136,0)"
^XMB(3.9,72,2,1822,0)=" ;"
^XMB(3.9,72,2,1823,0)="""RTN"",""LROC"",137,0)"
^XMB(3.9,72,2,1824,0)=" ; Check ""C"" cross-reference"
^XMB(3.9,72,2,1825,0)="""RTN"",""LROC"",138,0)"
^XMB(3.9,72,2,1826,0)=" S LRROOT=""^LRO(68,""""C"""")"",(LRAA,LRAD,LRAN,LRCNT)=0"
^XMB(3.9,72,2,1827,0)="""RTN"",""LROC"",139,0)"
^XMB(3.9,72,2,1828,0)=" F  S LRROOT=$Q(@LRROOT) Q:LRROOT=""""  Q:$QS(LRROOT,2)'=""C""  D CHKACN Q:$G(ZTSTOP)"
^XMB(3.9,72,2,1829,0)="""RTN"",""LROC"",140,0)"
^XMB(3.9,72,2,1830,0)=" ;"
^XMB(3.9,72,2,1831,0)="""RTN"",""LROC"",141,0)"
^XMB(3.9,72,2,1832,0)=" ; Check ""D"" cross-reference"
^XMB(3.9,72,2,1833,0)="""RTN"",""LROC"",142,0)"
^XMB(3.9,72,2,1834,0)=" S LRROOT=""^LRO(68,""""D"""")"",(LRAA,LRAD,LRAN,LRCNT)=0"
^XMB(3.9,72,2,1835,0)="""RTN"",""LROC"",143,0)"
^XMB(3.9,72,2,1836,0)=" F  S LRROOT=$Q(@LRROOT) Q:LRROOT=""""  Q:$QS(LRROOT,2)'=""D""  D CHKACN Q:$G(ZTSTOP)"
^XMB(3.9,72,2,1837,0)="""RTN"",""LROC"",144,0)"
^XMB(3.9,72,2,1838,0)=" Q"
^XMB(3.9,72,2,1839,0)="""RTN"",""LROC"",145,0)"
^XMB(3.9,72,2,1840,0)=" ;"
^XMB(3.9,72,2,1841,0)="""RTN"",""LROC"",146,0)"
^XMB(3.9,72,2,1842,0)="CHKACN ; Check for deleted corresponding accession."
^XMB(3.9,72,2,1843,0)="""RTN"",""LROC"",147,0)"
^XMB(3.9,72,2,1844,0)=" S LRAA=$QS(LRROOT,4),LRAD=$QS(LRROOT,5),LRAN=$QS(LRROOT,6)"
^XMB(3.9,72,2,1845,0)="""RTN"",""LROC"",148,0)"
^XMB(3.9,72,2,1846,0)=" S LRCNT=LRCNT+1"
^XMB(3.9,72,2,1847,0)="""RTN"",""LROC"",149,0)"
^XMB(3.9,72,2,1848,0)=" ; take a ""rest"" - allow OS to swap out process"
^XMB(3.9,72,2,1849,0)="""RTN"",""LROC"",150,0)"
^XMB(3.9,72,2,1850,0)=" ; Check if task has been requested to stop"
^XMB(3.9,72,2,1851,0)="""RTN"",""LROC"",151,0)"
^XMB(3.9,72,2,1852,0)=" I '(LRCNT#10000) D  Q:$G(ZTSTOP)"
^XMB(3.9,72,2,1853,0)="""RTN"",""LROC"",152,0)"
^XMB(3.9,72,2,1854,0)=" . I $$S^%ZTLOAD(""Processing UID: ""_$QS(LRROOT,3)) S ZTSTOP=1 Q"
^XMB(3.9,72,2,1855,0)="""RTN"",""LROC"",153,0)"
^XMB(3.9,72,2,1856,0)=" . H 2"
^XMB(3.9,72,2,1857,0)="""RTN"",""LROC"",154,0)"
^XMB(3.9,72,2,1858,0)=" I $D(^LRO(68,LRAA,1,LRAD,1,LRAN,0)) Q"
^XMB(3.9,72,2,1859,0)="""RTN"",""LROC"",155,0)"
^XMB(3.9,72,2,1860,0)=" K @LRROOT"
^XMB(3.9,72,2,1861,0)="""RTN"",""LROC"",156,0)"
^XMB(3.9,72,2,1862,0)=" Q"
^XMB(3.9,72,2,1863,0)="""VER"")"
^XMB(3.9,72,2,1864,0)="8.0^22.0"
^XMB(3.9,72,2,1865,0)="""BLD"",6303,6)"
^XMB(3.9,72,2,1866,0)="^277"
^XMB(3.9,72,2,1867,0)="$END KID LR*5.2*329"
^XMB(3.9,72,6,0)="^3.911A^2^2"
^XMB(3.9,72,6,1,0)="POSTMASTER"
^XMB(3.9,72,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,72,6,"B","POSTMASTER",1)=""
^XMB(3.9,72,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,73,0)="MD-1_SEQ-4_PAT-5.KID^.5^3061008.015738^^^^K"
^XMB(3.9,73,.6)="3061008"
^XMB(3.9,73,1,0)="^3.91A^2^2"
^XMB(3.9,73,1,1,0)=".5^0^3061008.015738^^^^^^^3061008.015738"
^XMB(3.9,73,1,2,0)="1^0^3061008.023952^^^^^^^3061008.023952"
^XMB(3.9,73,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,73,1,"C",.5,1)=""
^XMB(3.9,73,1,"C",1,2)=""
^XMB(3.9,73,2,0)="^^5251^5251^3061008"
^XMB(3.9,73,2,1,0)="$TXT Released MD*1*5 SEQ #4"
^XMB(3.9,73,2,2,0)="Extracted from mail message"
^XMB(3.9,73,2,3,0)="$END TXT"
^XMB(3.9,73,2,4,0)="$KID MD*1.0*5"
^XMB(3.9,73,2,5,0)="**INSTALL NAME**"
^XMB(3.9,73,2,6,0)="MD*1.0*5"
^XMB(3.9,73,2,7,0)="""BLD"",17113,0)"
^XMB(3.9,73,2,8,0)="MD*1.0*5^CLINICAL PROCEDURES^0^3060508^y"
^XMB(3.9,73,2,9,0)="""BLD"",17113,1,0)"
^XMB(3.9,73,2,10,0)="^^2^2^3050106^^^^"
^XMB(3.9,73,2,11,0)="""BLD"",17113,1,1,0)"
^XMB(3.9,73,2,12,0)="Please refer to the National Patch Module for the detail of this patch "
^XMB(3.9,73,2,13,0)="""BLD"",17113,1,2,0)"
^XMB(3.9,73,2,14,0)="build."
^XMB(3.9,73,2,15,0)="""BLD"",17113,4,0)"
^XMB(3.9,73,2,16,0)="^9.64PA^702^2"
^XMB(3.9,73,2,17,0)="""BLD"",17113,4,702,0)"
^XMB(3.9,73,2,18,0)="702"
^XMB(3.9,73,2,19,0)="""BLD"",17113,4,702,2,0)"
^XMB(3.9,73,2,20,0)="^9.641^702^1"
^XMB(3.9,73,2,21,0)="""BLD"",17113,4,702,2,702,0)"
^XMB(3.9,73,2,22,0)="CP TRANSACTION  (File-top level)"
^XMB(3.9,73,2,23,0)="""BLD"",17113,4,702,2,702,1,0)"
^XMB(3.9,73,2,24,0)="^9.6411^.3^1"
^XMB(3.9,73,2,25,0)="""BLD"",17113,4,702,2,702,1,.3,0)"
^XMB(3.9,73,2,26,0)="CONVERSION ID REFERENCE"
^XMB(3.9,73,2,27,0)="""BLD"",17113,4,702,222)"
^XMB(3.9,73,2,28,0)="y^y^p^^^^n^^n"
^XMB(3.9,73,2,29,0)="""BLD"",17113,4,702,224)"
^XMB(3.9,73,2,30,0)=""
^XMB(3.9,73,2,31,0)="""BLD"",17113,4,703.9,0)"
^XMB(3.9,73,2,32,0)="703.9"
^XMB(3.9,73,2,33,0)="""BLD"",17113,4,703.9,222)"
^XMB(3.9,73,2,34,0)="y^y^f^^^^n"
^XMB(3.9,73,2,35,0)="""BLD"",17113,4,""APDD"",702,702)"
^XMB(3.9,73,2,36,0)=""
^XMB(3.9,73,2,37,0)="""BLD"",17113,4,""APDD"",702,702,.3)"
^XMB(3.9,73,2,38,0)=""
^XMB(3.9,73,2,39,0)="""BLD"",17113,4,""B"",702,702)"
^XMB(3.9,73,2,40,0)=""
^XMB(3.9,73,2,41,0)="""BLD"",17113,4,""B"",703.9,703.9)"
^XMB(3.9,73,2,42,0)=""
^XMB(3.9,73,2,43,0)="""BLD"",17113,6)"
^XMB(3.9,73,2,44,0)="6^"
^XMB(3.9,73,2,45,0)="""BLD"",17113,6.3)"
^XMB(3.9,73,2,46,0)="1"
^XMB(3.9,73,2,47,0)="""BLD"",17113,""ABPKG"")"
^XMB(3.9,73,2,48,0)="n"
^XMB(3.9,73,2,49,0)="""BLD"",17113,""INID"")"
^XMB(3.9,73,2,50,0)="^y"
^XMB(3.9,73,2,51,0)="""BLD"",17113,""INIT"")"
^XMB(3.9,73,2,52,0)="MDPOST5"
^XMB(3.9,73,2,53,0)="""BLD"",17113,""KRN"",0)"
^XMB(3.9,73,2,54,0)="^9.67PA^8989.52^19"
^XMB(3.9,73,2,55,0)="""BLD"",17113,""KRN"",.4,0)"
^XMB(3.9,73,2,56,0)=".4"
^XMB(3.9,73,2,57,0)="""BLD"",17113,""KRN"",.4,""NM"",0)"
^XMB(3.9,73,2,58,0)="^9.68A^3^3"
^XMB(3.9,73,2,59,0)="""BLD"",17113,""KRN"",.4,""NM"",1,0)"
^XMB(3.9,73,2,60,0)="MD CONVERSION ERRORS    FILE #703.9^703.9^0"
^XMB(3.9,73,2,61,0)="""BLD"",17113,""KRN"",.4,""NM"",2,0)"
^XMB(3.9,73,2,62,0)="MD CONVERSION SUMMARY    FILE #703.9^703.9^0"
^XMB(3.9,73,2,63,0)="""BLD"",17113,""KRN"",.4,""NM"",3,0)"
^XMB(3.9,73,2,64,0)="MD CONVERSION TOTALS    FILE #703.9^703.9^0"
^XMB(3.9,73,2,65,0)="""BLD"",17113,""KRN"",.4,""NM"",""B"",""MD CONVERSION ERRORS    FILE #703.9"",1)"
^XMB(3.9,73,2,66,0)=""
^XMB(3.9,73,2,67,0)="""BLD"",17113,""KRN"",.4,""NM"",""B"",""MD CONVERSION SUMMARY    FILE #703.9"",2)"
^XMB(3.9,73,2,68,0)=""
^XMB(3.9,73,2,69,0)="""BLD"",17113,""KRN"",.4,""NM"",""B"",""MD CONVERSION TOTALS    FILE #703.9"",3)"
^XMB(3.9,73,2,70,0)=""
^XMB(3.9,73,2,71,0)="""BLD"",17113,""KRN"",.401,0)"
^XMB(3.9,73,2,72,0)=".401"
^XMB(3.9,73,2,73,0)="""BLD"",17113,""KRN"",.401,""NM"",0)"
^XMB(3.9,73,2,74,0)="^9.68A^3^3"
^XMB(3.9,73,2,75,0)="""BLD"",17113,""KRN"",.401,""NM"",1,0)"
^XMB(3.9,73,2,76,0)="MD CONVERSION ERRORS    FILE #703.9^703.9^0"
^XMB(3.9,73,2,77,0)="""BLD"",17113,""KRN"",.401,""NM"",2,0)"
^XMB(3.9,73,2,78,0)="MD CONVERSION SUMMARY    FILE #703.9^703.9^0"
^XMB(3.9,73,2,79,0)="""BLD"",17113,""KRN"",.401,""NM"",3,0)"
^XMB(3.9,73,2,80,0)="MD CONVERSION TOTALS    FILE #703.9^703.9^0"
^XMB(3.9,73,2,81,0)="""BLD"",17113,""KRN"",.401,""NM"",""B"",""MD CONVERSION ERRORS    FILE #703.9"",1)"
^XMB(3.9,73,2,82,0)=""
^XMB(3.9,73,2,83,0)="""BLD"",17113,""KRN"",.401,""NM"",""B"",""MD CONVERSION SUMMARY    FILE #703.9"",2)"
^XMB(3.9,73,2,84,0)=""
^XMB(3.9,73,2,85,0)="""BLD"",17113,""KRN"",.401,""NM"",""B"",""MD CONVERSION TOTALS    FILE #703.9"",3)"
^XMB(3.9,73,2,86,0)=""
^XMB(3.9,73,2,87,0)="""BLD"",17113,""KRN"",.402,0)"
^XMB(3.9,73,2,88,0)=".402"
^XMB(3.9,73,2,89,0)="""BLD"",17113,""KRN"",.403,0)"
^XMB(3.9,73,2,90,0)=".403"
^XMB(3.9,73,2,91,0)="""BLD"",17113,""KRN"",.403,""NM"",0)"
^XMB(3.9,73,2,92,0)="^9.68A^1^1"
^XMB(3.9,73,2,93,0)="""BLD"",17113,""KRN"",.403,""NM"",1,0)"
^XMB(3.9,73,2,94,0)="MD MAIN    FILE #703.9^703.9^0"
^XMB(3.9,73,2,95,0)="""BLD"",17113,""KRN"",.403,""NM"",""B"",""MD MAIN    FILE #703.9"",1)"
^XMB(3.9,73,2,96,0)=""
^XMB(3.9,73,2,97,0)="""BLD"",17113,""KRN"",.5,0)"
^XMB(3.9,73,2,98,0)=".5"
^XMB(3.9,73,2,99,0)="""BLD"",17113,""KRN"",.84,0)"
^XMB(3.9,73,2,100,0)=".84"
^XMB(3.9,73,2,101,0)="""BLD"",17113,""KRN"",3.6,0)"
^XMB(3.9,73,2,102,0)="3.6"
^XMB(3.9,73,2,103,0)="""BLD"",17113,""KRN"",3.8,0)"
^XMB(3.9,73,2,104,0)="3.8"
^XMB(3.9,73,2,105,0)="""BLD"",17113,""KRN"",9.2,0)"
^XMB(3.9,73,2,106,0)="9.2"
^XMB(3.9,73,2,107,0)="""BLD"",17113,""KRN"",9.8,0)"
^XMB(3.9,73,2,108,0)="9.8"
^XMB(3.9,73,2,109,0)="""BLD"",17113,""KRN"",9.8,""NM"",0)"
^XMB(3.9,73,2,110,0)="^9.68A^19^17"
^XMB(3.9,73,2,111,0)="""BLD"",17113,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,73,2,112,0)="MDRPCOT^^0^B62244057"
^XMB(3.9,73,2,113,0)="""BLD"",17113,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,73,2,114,0)="MDRPCOT1^^0^B27880896"
^XMB(3.9,73,2,115,0)="""BLD"",17113,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,73,2,116,0)="MDCVT^^0^B81652612"
^XMB(3.9,73,2,117,0)="""BLD"",17113,""KRN"",9.8,""NM"",6,0)"
^XMB(3.9,73,2,118,0)="MDCVT1^^0^B71614831"
^XMB(3.9,73,2,119,0)="""BLD"",17113,""KRN"",9.8,""NM"",7,0)"
^XMB(3.9,73,2,120,0)="MDCVTU^^0^B2189080"
^XMB(3.9,73,2,121,0)="""BLD"",17113,""KRN"",9.8,""NM"",8,0)"
^XMB(3.9,73,2,122,0)="MDOUTOR^^0^B33171008"
^XMB(3.9,73,2,123,0)="""BLD"",17113,""KRN"",9.8,""NM"",9,0)"
^XMB(3.9,73,2,124,0)="MDPOST5^^0^B1064423"
^XMB(3.9,73,2,125,0)="""BLD"",17113,""KRN"",9.8,""NM"",10,0)"
^XMB(3.9,73,2,126,0)="MDSTATU^^0^B39040181"
^XMB(3.9,73,2,127,0)="""BLD"",17113,""KRN"",9.8,""NM"",11,0)"
^XMB(3.9,73,2,128,0)="MDPCE^^0^B4577099"
^XMB(3.9,73,2,129,0)="""BLD"",17113,""KRN"",9.8,""NM"",12,0)"
^XMB(3.9,73,2,130,0)="MCARPS2^^0^B18375280"
^XMB(3.9,73,2,131,0)="""BLD"",17113,""KRN"",9.8,""NM"",13,0)"
^XMB(3.9,73,2,132,0)="MCARPS3^^0^B17072262"
^XMB(3.9,73,2,133,0)="""BLD"",17113,""KRN"",9.8,""NM"",14,0)"
^XMB(3.9,73,2,134,0)="MCORMN^^0^B27253923"
^XMB(3.9,73,2,135,0)="""BLD"",17113,""KRN"",9.8,""NM"",15,0)"
^XMB(3.9,73,2,136,0)="MCORMN0^^0^B20182884"
^XMB(3.9,73,2,137,0)="""BLD"",17113,""KRN"",9.8,""NM"",16,0)"
^XMB(3.9,73,2,138,0)="MCORMN01^^0^B4360683"
^XMB(3.9,73,2,139,0)="""BLD"",17113,""KRN"",9.8,""NM"",17,0)"
^XMB(3.9,73,2,140,0)="MDPS3^^0^B8616457"
^XMB(3.9,73,2,141,0)="""BLD"",17113,""KRN"",9.8,""NM"",18,0)"
^XMB(3.9,73,2,142,0)="MCARPS1^^0^B8444833"
^XMB(3.9,73,2,143,0)="""BLD"",17113,""KRN"",9.8,""NM"",19,0)"
^XMB(3.9,73,2,144,0)="MDESPRT^^0^B8888916"
^XMB(3.9,73,2,145,0)="""BLD"",17113,""KRN"",9.8,""NM"",""B"",""MCARPS1"",18)"
^XMB(3.9,73,2,146,0)=""
^XMB(3.9,73,2,147,0)="""BLD"",17113,""KRN"",9.8,""NM"",""B"",""MCARPS2"",12)"
^XMB(3.9,73,2,148,0)=""
^XMB(3.9,73,2,149,0)="""BLD"",17113,""KRN"",9.8,""NM"",""B"",""MCARPS3"",13)"
^XMB(3.9,73,2,150,0)=""
^XMB(3.9,73,2,151,0)="""BLD"",17113,""KRN"",9.8,""NM"",""B"",""MCORMN"",14)"
^XMB(3.9,73,2,152,0)=""
^XMB(3.9,73,2,153,0)="""BLD"",17113,""KRN"",9.8,""NM"",""B"",""MCORMN0"",15)"
^XMB(3.9,73,2,154,0)=""
^XMB(3.9,73,2,155,0)="""BLD"",17113,""KRN"",9.8,""NM"",""B"",""MCORMN01"",16)"
^XMB(3.9,73,2,156,0)=""
^XMB(3.9,73,2,157,0)="""BLD"",17113,""KRN"",9.8,""NM"",""B"",""MDCVT"",5)"
^XMB(3.9,73,2,158,0)=""
^XMB(3.9,73,2,159,0)="""BLD"",17113,""KRN"",9.8,""NM"",""B"",""MDCVT1"",6)"
^XMB(3.9,73,2,160,0)=""
^XMB(3.9,73,2,161,0)="""BLD"",17113,""KRN"",9.8,""NM"",""B"",""MDCVTU"",7)"
^XMB(3.9,73,2,162,0)=""
^XMB(3.9,73,2,163,0)="""BLD"",17113,""KRN"",9.8,""NM"",""B"",""MDESPRT"",19)"
^XMB(3.9,73,2,164,0)=""
^XMB(3.9,73,2,165,0)="""BLD"",17113,""KRN"",9.8,""NM"",""B"",""MDOUTOR"",8)"
^XMB(3.9,73,2,166,0)=""
^XMB(3.9,73,2,167,0)="""BLD"",17113,""KRN"",9.8,""NM"",""B"",""MDPCE"",11)"
^XMB(3.9,73,2,168,0)=""
^XMB(3.9,73,2,169,0)="""BLD"",17113,""KRN"",9.8,""NM"",""B"",""MDPOST5"",9)"
^XMB(3.9,73,2,170,0)=""
^XMB(3.9,73,2,171,0)="""BLD"",17113,""KRN"",9.8,""NM"",""B"",""MDPS3"",17)"
^XMB(3.9,73,2,172,0)=""
^XMB(3.9,73,2,173,0)="""BLD"",17113,""KRN"",9.8,""NM"",""B"",""MDRPCOT"",3)"
^XMB(3.9,73,2,174,0)=""
^XMB(3.9,73,2,175,0)="""BLD"",17113,""KRN"",9.8,""NM"",""B"",""MDRPCOT1"",4)"
^XMB(3.9,73,2,176,0)=""
^XMB(3.9,73,2,177,0)="""BLD"",17113,""KRN"",9.8,""NM"",""B"",""MDSTATU"",10)"
^XMB(3.9,73,2,178,0)=""
^XMB(3.9,73,2,179,0)="""BLD"",17113,""KRN"",19,0)"
^XMB(3.9,73,2,180,0)="19"
^XMB(3.9,73,2,181,0)="""BLD"",17113,""KRN"",19,""NM"",0)"
^XMB(3.9,73,2,182,0)="^9.68A^10^10"
^XMB(3.9,73,2,183,0)="""BLD"",17113,""KRN"",19,""NM"",1,0)"
^XMB(3.9,73,2,184,0)="MDCVT BUILD CONVERSION LIST^^0"
^XMB(3.9,73,2,185,0)="""BLD"",17113,""KRN"",19,""NM"",2,0)"
^XMB(3.9,73,2,186,0)="MDCVT CONVERSION LOCKOUT^^0"
^XMB(3.9,73,2,187,0)="""BLD"",17113,""KRN"",19,""NM"",3,0)"
^XMB(3.9,73,2,188,0)="MDCVT DISK SPACE^^0"
^XMB(3.9,73,2,189,0)="""BLD"",17113,""KRN"",19,""NM"",4,0)"
^XMB(3.9,73,2,190,0)="MDCVT ERROR LOG^^0"
^XMB(3.9,73,2,191,0)="""BLD"",17113,""KRN"",19,""NM"",5,0)"
^XMB(3.9,73,2,192,0)="MDCVT LIST OF TIU TITLES^^0"
^XMB(3.9,73,2,193,0)="""BLD"",17113,""KRN"",19,""NM"",6,0)"
^XMB(3.9,73,2,194,0)="MDCVT MANAGER^^0"
^XMB(3.9,73,2,195,0)="""BLD"",17113,""KRN"",19,""NM"",7,0)"
^XMB(3.9,73,2,196,0)="MDCVT RUN^^0"
^XMB(3.9,73,2,197,0)="""BLD"",17113,""KRN"",19,""NM"",8,0)"
^XMB(3.9,73,2,198,0)="MDCVT SETUP^^0"
^XMB(3.9,73,2,199,0)="""BLD"",17113,""KRN"",19,""NM"",9,0)"
^XMB(3.9,73,2,200,0)="MDCVT SUMMARY^^0"
^XMB(3.9,73,2,201,0)="""BLD"",17113,""KRN"",19,""NM"",10,0)"
^XMB(3.9,73,2,202,0)="MDCVT TOTALS^^0"
^XMB(3.9,73,2,203,0)="""BLD"",17113,""KRN"",19,""NM"",""B"",""MDCVT BUILD CONVERSION LIST"",1)"
^XMB(3.9,73,2,204,0)=""
^XMB(3.9,73,2,205,0)="""BLD"",17113,""KRN"",19,""NM"",""B"",""MDCVT CONVERSION LOCKOUT"",2)"
^XMB(3.9,73,2,206,0)=""
^XMB(3.9,73,2,207,0)="""BLD"",17113,""KRN"",19,""NM"",""B"",""MDCVT DISK SPACE"",3)"
^XMB(3.9,73,2,208,0)=""
^XMB(3.9,73,2,209,0)="""BLD"",17113,""KRN"",19,""NM"",""B"",""MDCVT ERROR LOG"",4)"
^XMB(3.9,73,2,210,0)=""
^XMB(3.9,73,2,211,0)="""BLD"",17113,""KRN"",19,""NM"",""B"",""MDCVT LIST OF TIU TITLES"",5)"
^XMB(3.9,73,2,212,0)=""
^XMB(3.9,73,2,213,0)="""BLD"",17113,""KRN"",19,""NM"",""B"",""MDCVT MANAGER"",6)"
^XMB(3.9,73,2,214,0)=""
^XMB(3.9,73,2,215,0)="""BLD"",17113,""KRN"",19,""NM"",""B"",""MDCVT RUN"",7)"
^XMB(3.9,73,2,216,0)=""
^XMB(3.9,73,2,217,0)="""BLD"",17113,""KRN"",19,""NM"",""B"",""MDCVT SETUP"",8)"
^XMB(3.9,73,2,218,0)=""
^XMB(3.9,73,2,219,0)="""BLD"",17113,""KRN"",19,""NM"",""B"",""MDCVT SUMMARY"",9)"
^XMB(3.9,73,2,220,0)=""
^XMB(3.9,73,2,221,0)="""BLD"",17113,""KRN"",19,""NM"",""B"",""MDCVT TOTALS"",10)"
^XMB(3.9,73,2,222,0)=""
^XMB(3.9,73,2,223,0)="""BLD"",17113,""KRN"",19.1,0)"
^XMB(3.9,73,2,224,0)="19.1"
^XMB(3.9,73,2,225,0)="""BLD"",17113,""KRN"",19.1,""NM"",0)"
^XMB(3.9,73,2,226,0)="^9.68A^^"
^XMB(3.9,73,2,227,0)="""BLD"",17113,""KRN"",101,0)"
^XMB(3.9,73,2,228,0)="101"
^XMB(3.9,73,2,229,0)="""BLD"",17113,""KRN"",409.61,0)"
^XMB(3.9,73,2,230,0)="409.61"
^XMB(3.9,73,2,231,0)="""BLD"",17113,""KRN"",771,0)"
^XMB(3.9,73,2,232,0)="771"
^XMB(3.9,73,2,233,0)="""BLD"",17113,""KRN"",870,0)"
^XMB(3.9,73,2,234,0)="870"
^XMB(3.9,73,2,235,0)="""BLD"",17113,""KRN"",8989.51,0)"
^XMB(3.9,73,2,236,0)="8989.51"
^XMB(3.9,73,2,237,0)="""BLD"",17113,""KRN"",8989.51,""NM"",0)"
^XMB(3.9,73,2,238,0)="^9.68A^1^1"
^XMB(3.9,73,2,239,0)="""BLD"",17113,""KRN"",8989.51,""NM"",1,0)"
^XMB(3.9,73,2,240,0)="MD MEDICINE CONVERTED^^0"
^XMB(3.9,73,2,241,0)="""BLD"",17113,""KRN"",8989.51,""NM"",""B"",""MD MEDICINE CONVERTED"",1)"
^XMB(3.9,73,2,242,0)=""
^XMB(3.9,73,2,243,0)="""BLD"",17113,""KRN"",8989.52,0)"
^XMB(3.9,73,2,244,0)="8989.52"
^XMB(3.9,73,2,245,0)="""BLD"",17113,""KRN"",8994,0)"
^XMB(3.9,73,2,246,0)="8994"
^XMB(3.9,73,2,247,0)="""BLD"",17113,""KRN"",""B"",.4,.4)"
^XMB(3.9,73,2,248,0)=""
^XMB(3.9,73,2,249,0)="""BLD"",17113,""KRN"",""B"",.401,.401)"
^XMB(3.9,73,2,250,0)=""
^XMB(3.9,73,2,251,0)="""BLD"",17113,""KRN"",""B"",.402,.402)"
^XMB(3.9,73,2,252,0)=""
^XMB(3.9,73,2,253,0)="""BLD"",17113,""KRN"",""B"",.403,.403)"
^XMB(3.9,73,2,254,0)=""
^XMB(3.9,73,2,255,0)="""BLD"",17113,""KRN"",""B"",.5,.5)"
^XMB(3.9,73,2,256,0)=""
^XMB(3.9,73,2,257,0)="""BLD"",17113,""KRN"",""B"",.84,.84)"
^XMB(3.9,73,2,258,0)=""
^XMB(3.9,73,2,259,0)="""BLD"",17113,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,73,2,260,0)=""
^XMB(3.9,73,2,261,0)="""BLD"",17113,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,73,2,262,0)=""
^XMB(3.9,73,2,263,0)="""BLD"",17113,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,73,2,264,0)=""
^XMB(3.9,73,2,265,0)="""BLD"",17113,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,73,2,266,0)=""
^XMB(3.9,73,2,267,0)="""BLD"",17113,""KRN"",""B"",19,19)"
^XMB(3.9,73,2,268,0)=""
^XMB(3.9,73,2,269,0)="""BLD"",17113,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,73,2,270,0)=""
^XMB(3.9,73,2,271,0)="""BLD"",17113,""KRN"",""B"",101,101)"
^XMB(3.9,73,2,272,0)=""
^XMB(3.9,73,2,273,0)="""BLD"",17113,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,73,2,274,0)=""
^XMB(3.9,73,2,275,0)="""BLD"",17113,""KRN"",""B"",771,771)"
^XMB(3.9,73,2,276,0)=""
^XMB(3.9,73,2,277,0)="""BLD"",17113,""KRN"",""B"",870,870)"
^XMB(3.9,73,2,278,0)=""
^XMB(3.9,73,2,279,0)="""BLD"",17113,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,73,2,280,0)=""
^XMB(3.9,73,2,281,0)="""BLD"",17113,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,73,2,282,0)=""
^XMB(3.9,73,2,283,0)="""BLD"",17113,""KRN"",""B"",8994,8994)"
^XMB(3.9,73,2,284,0)=""
^XMB(3.9,73,2,285,0)="""BLD"",17113,""QUES"",0)"
^XMB(3.9,73,2,286,0)="^9.62^^"
^XMB(3.9,73,2,287,0)="""BLD"",17113,""REQB"",0)"
^XMB(3.9,73,2,288,0)="^9.611^4^4"
^XMB(3.9,73,2,289,0)="""BLD"",17113,""REQB"",1,0)"
^XMB(3.9,73,2,290,0)="TIU*1.0*182^2"
^XMB(3.9,73,2,291,0)="""BLD"",17113,""REQB"",2,0)"
^XMB(3.9,73,2,292,0)="MAG*3.0*47^2"
^XMB(3.9,73,2,293,0)="""BLD"",17113,""REQB"",3,0)"
^XMB(3.9,73,2,294,0)="GMRC*3.0*37^2"
^XMB(3.9,73,2,295,0)="""BLD"",17113,""REQB"",4,0)"
^XMB(3.9,73,2,296,0)="MD*1.0*10^2"
^XMB(3.9,73,2,297,0)="""BLD"",17113,""REQB"",""B"",""GMRC*3.0*37"",3)"
^XMB(3.9,73,2,298,0)=""
^XMB(3.9,73,2,299,0)="""BLD"",17113,""REQB"",""B"",""MAG*3.0*47"",2)"
^XMB(3.9,73,2,300,0)=""
^XMB(3.9,73,2,301,0)="""BLD"",17113,""REQB"",""B"",""MD*1.0*10"",4)"
^XMB(3.9,73,2,302,0)=""
^XMB(3.9,73,2,303,0)="""BLD"",17113,""REQB"",""B"",""TIU*1.0*182"",1)"
^XMB(3.9,73,2,304,0)=""
^XMB(3.9,73,2,305,0)="""FIA"",702)"
^XMB(3.9,73,2,306,0)="CP TRANSACTION"
^XMB(3.9,73,2,307,0)="""FIA"",702,0)"
^XMB(3.9,73,2,308,0)="^MDD(702,"
^XMB(3.9,73,2,309,0)="""FIA"",702,0,0)"
^XMB(3.9,73,2,310,0)="702PIAO"
^XMB(3.9,73,2,311,0)="""FIA"",702,0,1)"
^XMB(3.9,73,2,312,0)="y^y^p^^^^n^^n"
^XMB(3.9,73,2,313,0)="""FIA"",702,0,10)"
^XMB(3.9,73,2,314,0)=""
^XMB(3.9,73,2,315,0)="""FIA"",702,0,11)"
^XMB(3.9,73,2,316,0)=""
^XMB(3.9,73,2,317,0)="""FIA"",702,0,""RLRO"")"
^XMB(3.9,73,2,318,0)=""
^XMB(3.9,73,2,319,0)="""FIA"",702,0,""VR"")"
^XMB(3.9,73,2,320,0)="1.0^MD"
^XMB(3.9,73,2,321,0)="""FIA"",702,702)"
^XMB(3.9,73,2,322,0)="1"
^XMB(3.9,73,2,323,0)="""FIA"",702,702,.3)"
^XMB(3.9,73,2,324,0)=""
^XMB(3.9,73,2,325,0)="""FIA"",703.9)"
^XMB(3.9,73,2,326,0)="CP CONVERSION"
^XMB(3.9,73,2,327,0)="""FIA"",703.9,0)"
^XMB(3.9,73,2,328,0)="^MDD(703.9,"
^XMB(3.9,73,2,329,0)="""FIA"",703.9,0,0)"
^XMB(3.9,73,2,330,0)="703.9s"
^XMB(3.9,73,2,331,0)="""FIA"",703.9,0,1)"
^XMB(3.9,73,2,332,0)="y^y^f^^^^n"
^XMB(3.9,73,2,333,0)="""FIA"",703.9,0,10)"
^XMB(3.9,73,2,334,0)=""
^XMB(3.9,73,2,335,0)="""FIA"",703.9,0,11)"
^XMB(3.9,73,2,336,0)=""
^XMB(3.9,73,2,337,0)="""FIA"",703.9,0,""RLRO"")"
^XMB(3.9,73,2,338,0)=""
^XMB(3.9,73,2,339,0)="""FIA"",703.9,0,""VR"")"
^XMB(3.9,73,2,340,0)="1.0^MD"
^XMB(3.9,73,2,341,0)="""FIA"",703.9,703.9)"
^XMB(3.9,73,2,342,0)="0"
^XMB(3.9,73,2,343,0)="""FIA"",703.9,703.91)"
^XMB(3.9,73,2,344,0)="0"
^XMB(3.9,73,2,345,0)="""FIA"",703.9,703.92)"
^XMB(3.9,73,2,346,0)="0"
^XMB(3.9,73,2,347,0)="""INIT"")"
^XMB(3.9,73,2,348,0)="MDPOST5"
^XMB(3.9,73,2,349,0)="""KRN"",.4,1906,-1)"
^XMB(3.9,73,2,350,0)="0^2"
^XMB(3.9,73,2,351,0)="""KRN"",.4,1906,0)"
^XMB(3.9,73,2,352,0)="MD CONVERSION SUMMARY^3050106.0832^^703.9^^^3050228"
^XMB(3.9,73,2,353,0)="""KRN"",.4,1906,""F"",2)"
^XMB(3.9,73,2,354,0)="2,.01;C1;""ID"";L20~2,.02;C22;L15;""Status""~2,.1;C39;L40;""Message""~"
^XMB(3.9,73,2,355,0)="""KRN"",.4,1906,""H"")"
^XMB(3.9,73,2,356,0)="MEDICINE CONVERSION SUMMARY"
^XMB(3.9,73,2,357,0)="""KRN"",.4,1907,-1)"
^XMB(3.9,73,2,358,0)="0^1"
^XMB(3.9,73,2,359,0)="""KRN"",.4,1907,0)"
^XMB(3.9,73,2,360,0)="MD CONVERSION ERRORS^3030919.1322^@^703.9^^@^3050228"
^XMB(3.9,73,2,361,0)="""KRN"",.4,1907,""F"",2)"
^XMB(3.9,73,2,362,0)="2,.01~2,.1;C35;W40~"
^XMB(3.9,73,2,363,0)="""KRN"",.4,1907,""H"")"
^XMB(3.9,73,2,364,0)="CP CONVERSION ERROR LISTING"
^XMB(3.9,73,2,365,0)="""KRN"",.4,1908,-1)"
^XMB(3.9,73,2,366,0)="0^3"
^XMB(3.9,73,2,367,0)="""KRN"",.4,1908,0)"
^XMB(3.9,73,2,368,0)="MD CONVERSION TOTALS^3030919.1334^@^703.9^^@^3040915"
^XMB(3.9,73,2,369,0)="""KRN"",.4,1908,""DCL"",""703.92^.04"")"
^XMB(3.9,73,2,370,0)="+"
^XMB(3.9,73,2,371,0)="""KRN"",.4,1908,""DCL"",""703.92^.05"")"
^XMB(3.9,73,2,372,0)="+"
^XMB(3.9,73,2,373,0)="""KRN"",.4,1908,""DNP"")"
^XMB(3.9,73,2,374,0)="1"
^XMB(3.9,73,2,375,0)="""KRN"",.4,1908,""F"",2)"
^XMB(3.9,73,2,376,0)="2,.04~2,.05~"
^XMB(3.9,73,2,377,0)="""KRN"",.4,1908,""H"")"
^XMB(3.9,73,2,378,0)="CP CONVERSION STATISTICS"
^XMB(3.9,73,2,379,0)="""KRN"",.401,1167,-1)"
^XMB(3.9,73,2,380,0)="0^2"
^XMB(3.9,73,2,381,0)="""KRN"",.401,1167,0)"
^XMB(3.9,73,2,382,0)="MD CONVERSION SUMMARY^3030923.1446^^703.9^^^3050228"
^XMB(3.9,73,2,383,0)="""KRN"",.401,1167,2,0)"
^XMB(3.9,73,2,384,0)="^.4014^2^2"
^XMB(3.9,73,2,385,0)="""KRN"",.401,1167,2,1,0)"
^XMB(3.9,73,2,386,0)="703.9^.01^NAME^@^^^^^^4"
^XMB(3.9,73,2,387,0)="""KRN"",.401,1167,2,1,""GET"")"
^XMB(3.9,73,2,388,0)="S DISX(1)=$P($G(^MDD(703.9,D0,0)),U)"
^XMB(3.9,73,2,389,0)="""KRN"",.401,1167,2,1,""IX"")"
^XMB(3.9,73,2,390,0)="^MDD(703.9,""B"",^MDD(703.9,^2"
^XMB(3.9,73,2,391,0)="""KRN"",.401,1167,2,1,""QCON"")"
^XMB(3.9,73,2,392,0)="I DISX(1)'="""""
^XMB(3.9,73,2,393,0)="""KRN"",.401,1167,2,1,""SER"")"
^XMB(3.9,73,2,394,0)="0^0"
^XMB(3.9,73,2,395,0)="""KRN"",.401,1167,2,1,""TXT"")"
^XMB(3.9,73,2,396,0)="NAME not null"
^XMB(3.9,73,2,397,0)="""KRN"",.401,1167,2,2,0)"
^XMB(3.9,73,2,398,0)="703.92^.02^STATUS^@^;S1^^^^^3"
^XMB(3.9,73,2,399,0)="""KRN"",.401,1167,2,2,1,0)"
^XMB(3.9,73,2,400,0)="^.40141^1^1"
^XMB(3.9,73,2,401,0)="""KRN"",.401,1167,2,2,1,1,0)"
^XMB(3.9,73,2,402,0)="703.9^2"
^XMB(3.9,73,2,403,0)="""KRN"",.401,1167,2,2,1,""B"",703.9,1)"
^XMB(3.9,73,2,404,0)=""
^XMB(3.9,73,2,405,0)="""KRN"",.401,1167,2,2,""GET"")"
^XMB(3.9,73,2,406,0)="S DISX(2)=$P($G(^MDD(703.9,D0,2,D1,0)),U,2)"
^XMB(3.9,73,2,407,0)="""KRN"",.401,1167,2,2,""QCON"")"
^XMB(3.9,73,2,408,0)="I DISX(2)'="""""
^XMB(3.9,73,2,409,0)="""KRN"",.401,1167,2,2,""TXT"")"
^XMB(3.9,73,2,410,0)="STATUS not null"
^XMB(3.9,73,2,411,0)="""KRN"",.401,1167,2,""B"",703.9,1)"
^XMB(3.9,73,2,412,0)=""
^XMB(3.9,73,2,413,0)="""KRN"",.401,1167,2,""B"",703.92,2)"
^XMB(3.9,73,2,414,0)=""
^XMB(3.9,73,2,415,0)="""KRN"",.401,1168,-1)"
^XMB(3.9,73,2,416,0)="0^1"
^XMB(3.9,73,2,417,0)="""KRN"",.401,1168,0)"
^XMB(3.9,73,2,418,0)="MD CONVERSION ERRORS^3030919.1321^@^703.9^^@^3050228"
^XMB(3.9,73,2,419,0)="""KRN"",.401,1168,2,0)"
^XMB(3.9,73,2,420,0)="^.4014^2^2"
^XMB(3.9,73,2,421,0)="""KRN"",.401,1168,2,1,0)"
^XMB(3.9,73,2,422,0)="703.9^.01^NAME^@^^^^^^4"
^XMB(3.9,73,2,423,0)="""KRN"",.401,1168,2,1,""GET"")"
^XMB(3.9,73,2,424,0)="S DISX(1)=$P($G(^MDD(703.9,D0,0)),U)"
^XMB(3.9,73,2,425,0)="""KRN"",.401,1168,2,1,""IX"")"
^XMB(3.9,73,2,426,0)="^MDD(703.9,""B"",^MDD(703.9,^2"
^XMB(3.9,73,2,427,0)="""KRN"",.401,1168,2,1,""QCON"")"
^XMB(3.9,73,2,428,0)="I DISX(1)'="""""
^XMB(3.9,73,2,429,0)="""KRN"",.401,1168,2,1,""SER"")"
^XMB(3.9,73,2,430,0)="0^0"
^XMB(3.9,73,2,431,0)="""KRN"",.401,1168,2,1,""TXT"")"
^XMB(3.9,73,2,432,0)="NAME not null"
^XMB(3.9,73,2,433,0)="""KRN"",.401,1168,2,2,0)"
^XMB(3.9,73,2,434,0)="703.92^.02^STATUS^^^^^^^3"
^XMB(3.9,73,2,435,0)="""KRN"",.401,1168,2,2,1,0)"
^XMB(3.9,73,2,436,0)="^.40141^1^1"
^XMB(3.9,73,2,437,0)="""KRN"",.401,1168,2,2,1,1,0)"
^XMB(3.9,73,2,438,0)="703.9^2"
^XMB(3.9,73,2,439,0)="""KRN"",.401,1168,2,2,1,""B"",703.9,1)"
^XMB(3.9,73,2,440,0)=""
^XMB(3.9,73,2,441,0)="""KRN"",.401,1168,2,2,""F"")"
^XMB(3.9,73,2,442,0)="Dz^E^E (Error)"
^XMB(3.9,73,2,443,0)="""KRN"",.401,1168,2,2,""GET"")"
^XMB(3.9,73,2,444,0)="S DISX(2)=$P($G(^MDD(703.9,D0,2,D1,0)),U,2)"
^XMB(3.9,73,2,445,0)="""KRN"",.401,1168,2,2,""QCON"")"
^XMB(3.9,73,2,446,0)="I DISX(2)=""E"""
^XMB(3.9,73,2,447,0)="""KRN"",.401,1168,2,2,""T"")"
^XMB(3.9,73,2,448,0)="E^E^E (Error)"
^XMB(3.9,73,2,449,0)="""KRN"",.401,1168,2,2,""TXT"")"
^XMB(3.9,73,2,450,0)="STATUS equals E (Error)"
^XMB(3.9,73,2,451,0)="""KRN"",.401,1168,2,""B"",703.9,1)"
^XMB(3.9,73,2,452,0)=""
^XMB(3.9,73,2,453,0)="""KRN"",.401,1168,2,""B"",703.92,2)"
^XMB(3.9,73,2,454,0)=""
^XMB(3.9,73,2,455,0)="""KRN"",.401,1168,""%D"",0)"
^XMB(3.9,73,2,456,0)="^^1^1^3030919^"
^XMB(3.9,73,2,457,0)="""KRN"",.401,1168,""%D"",1,0)"
^XMB(3.9,73,2,458,0)="Displays a listing of reports in error status"
^XMB(3.9,73,2,459,0)="""KRN"",.401,1169,-1)"
^XMB(3.9,73,2,460,0)="0^3"
^XMB(3.9,73,2,461,0)="""KRN"",.401,1169,0)"
^XMB(3.9,73,2,462,0)="MD CONVERSION TOTALS^3030923.1356^@^703.9^^@^3030923"
^XMB(3.9,73,2,463,0)="""KRN"",.401,1169,2,0)"
^XMB(3.9,73,2,464,0)="^.4014^2^2"
^XMB(3.9,73,2,465,0)="""KRN"",.401,1169,2,1,0)"
^XMB(3.9,73,2,466,0)="703.9^.01^NAME^@^^^^^^4"
^XMB(3.9,73,2,467,0)="""KRN"",.401,1169,2,1,""GET"")"
^XMB(3.9,73,2,468,0)="S DISX(1)=$P($G(^MDD(703.9,D0,0)),U)"
^XMB(3.9,73,2,469,0)="""KRN"",.401,1169,2,1,""IX"")"
^XMB(3.9,73,2,470,0)="^MDD(703.9,""B"",^MDD(703.9,^2"
^XMB(3.9,73,2,471,0)="""KRN"",.401,1169,2,1,""QCON"")"
^XMB(3.9,73,2,472,0)="I DISX(1)'="""""
^XMB(3.9,73,2,473,0)="""KRN"",.401,1169,2,1,""SER"")"
^XMB(3.9,73,2,474,0)="0^0"
^XMB(3.9,73,2,475,0)="""KRN"",.401,1169,2,1,""TXT"")"
^XMB(3.9,73,2,476,0)="NAME not null"
^XMB(3.9,73,2,477,0)="""KRN"",.401,1169,2,2,0)"
^XMB(3.9,73,2,478,0)="703.92^.02^STATUS^+^^^^^^3"
^XMB(3.9,73,2,479,0)="""KRN"",.401,1169,2,2,1,0)"
^XMB(3.9,73,2,480,0)="^.40141^1^1"
^XMB(3.9,73,2,481,0)="""KRN"",.401,1169,2,2,1,1,0)"
^XMB(3.9,73,2,482,0)="703.9^2"
^XMB(3.9,73,2,483,0)="""KRN"",.401,1169,2,2,1,""B"",703.9,1)"
^XMB(3.9,73,2,484,0)=""
^XMB(3.9,73,2,485,0)="""KRN"",.401,1169,2,2,""F"")"
^XMB(3.9,73,2,486,0)="CQz^CR^CR (Converted Real Mode)"
^XMB(3.9,73,2,487,0)="""KRN"",.401,1169,2,2,""GET"")"
^XMB(3.9,73,2,488,0)="S DISX(2)=$P($G(^MDD(703.9,D0,2,D1,0)),U,2)"
^XMB(3.9,73,2,489,0)="""KRN"",.401,1169,2,2,""QCON"")"
^XMB(3.9,73,2,490,0)="I (DISX(2)]]""CQz"")&(DISX(2)']]""CT"")"
^XMB(3.9,73,2,491,0)="""KRN"",.401,1169,2,2,""T"")"
^XMB(3.9,73,2,492,0)="CT^CT^CT (Converted Test Mode)"
^XMB(3.9,73,2,493,0)="""KRN"",.401,1169,2,2,""TXT"")"
^XMB(3.9,73,2,494,0)="STATUS from CR (Converted Real Mode) to CT (Converted Test Mode)"
^XMB(3.9,73,2,495,0)="""KRN"",.401,1169,2,""B"",703.9,1)"
^XMB(3.9,73,2,496,0)=""
^XMB(3.9,73,2,497,0)="""KRN"",.401,1169,2,""B"",703.92,2)"
^XMB(3.9,73,2,498,0)=""
^XMB(3.9,73,2,499,0)="""KRN"",.403,115,-1)"
^XMB(3.9,73,2,500,0)="0^1"
^XMB(3.9,73,2,501,0)="""KRN"",.403,115,0)"
^XMB(3.9,73,2,502,0)="MD MAIN^@^@^^3030203.1413^^^703.9^0^0^1"
^XMB(3.9,73,2,503,0)="""KRN"",.403,115,40,0)"
^XMB(3.9,73,2,504,0)="^.4031I^2^2"
^XMB(3.9,73,2,505,0)="""KRN"",.403,115,40,1,0)"
^XMB(3.9,73,2,506,0)="1^^1,1"
^XMB(3.9,73,2,507,0)="""KRN"",.403,115,40,1,1)"
^XMB(3.9,73,2,508,0)="Page 1"
^XMB(3.9,73,2,509,0)="""KRN"",.403,115,40,1,40,0)"
^XMB(3.9,73,2,510,0)="^.4032IP^435^3"
^XMB(3.9,73,2,511,0)="""KRN"",.403,115,40,1,40,433,0)"
^XMB(3.9,73,2,512,0)="MD HDR^1^1,1^e"
^XMB(3.9,73,2,513,0)="""KRN"",.403,115,40,1,40,434,0)"
^XMB(3.9,73,2,514,0)="MD SETTINGS^2^3,1^e"
^XMB(3.9,73,2,515,0)="""KRN"",.403,115,40,1,40,435,0)"
^XMB(3.9,73,2,516,0)="MD FILES^3^10,1^e"
^XMB(3.9,73,2,517,0)="""KRN"",.403,115,40,1,40,435,2)"
^XMB(3.9,73,2,518,0)="8^B^f^1"
^XMB(3.9,73,2,519,0)="""KRN"",.403,115,40,2,0)"
^XMB(3.9,73,2,520,0)="2^^8,8^^^1^16,73"
^XMB(3.9,73,2,521,0)="""KRN"",.403,115,40,2,1)"
^XMB(3.9,73,2,522,0)="MD MAIN 2"
^XMB(3.9,73,2,523,0)="""KRN"",.403,115,40,2,40,0)"
^XMB(3.9,73,2,524,0)="^.4032IP^436^1"
^XMB(3.9,73,2,525,0)="""KRN"",.403,115,40,2,40,436,0)"
^XMB(3.9,73,2,526,0)="MD PROCEDURE UPDATE^1^1,1^e"
^XMB(3.9,73,2,527,0)="""KRN"",.404,433,0)"
^XMB(3.9,73,2,528,0)="MD HDR^703.9"
^XMB(3.9,73,2,529,0)="""KRN"",.404,433,40,0)"
^XMB(3.9,73,2,530,0)="^.4044I^2^2"
^XMB(3.9,73,2,531,0)="""KRN"",.404,433,40,1,0)"
^XMB(3.9,73,2,532,0)="1^MEDICINE FILE CONVERSION PARAMETERS^1"
^XMB(3.9,73,2,533,0)="""KRN"",.404,433,40,1,2)"
^XMB(3.9,73,2,534,0)="^^1,24"
^XMB(3.9,73,2,535,0)="""KRN"",.404,433,40,2,0)"
^XMB(3.9,73,2,536,0)="2^!M^1"
^XMB(3.9,73,2,537,0)="""KRN"",.404,433,40,2,.1)"
^XMB(3.9,73,2,538,0)="S Y=$TR($J("""",79),"" "",""-"")"
^XMB(3.9,73,2,539,0)="""KRN"",.404,433,40,2,2)"
^XMB(3.9,73,2,540,0)="^^2,1"
^XMB(3.9,73,2,541,0)="""KRN"",.404,434,0)"
^XMB(3.9,73,2,542,0)="MD SETTINGS^703.9"
^XMB(3.9,73,2,543,0)="""KRN"",.404,434,40,0)"
^XMB(3.9,73,2,544,0)="^.4044I^8^7"
^XMB(3.9,73,2,545,0)="""KRN"",.404,434,40,1,0)"
^XMB(3.9,73,2,546,0)="2^Scratch HFS Directory^3"
^XMB(3.9,73,2,547,0)="""KRN"",.404,434,40,1,1)"
^XMB(3.9,73,2,548,0)=".1"
^XMB(3.9,73,2,549,0)="""KRN"",.404,434,40,1,2)"
^XMB(3.9,73,2,550,0)="3,32^45^3,3"
^XMB(3.9,73,2,551,0)="""KRN"",.404,434,40,1,4)"
^XMB(3.9,73,2,552,0)="0"
^XMB(3.9,73,2,553,0)="""KRN"",.404,434,40,2,0)"
^XMB(3.9,73,2,554,0)="4^Files to be converted^1"
^XMB(3.9,73,2,555,0)="""KRN"",.404,434,40,2,2)"
^XMB(3.9,73,2,556,0)="^^6,3"
^XMB(3.9,73,2,557,0)="""KRN"",.404,434,40,3,0)"
^XMB(3.9,73,2,558,0)="5^Medicine Package Procedure^1"
^XMB(3.9,73,2,559,0)="""KRN"",.404,434,40,3,2)"
^XMB(3.9,73,2,560,0)="^^7,3"
^XMB(3.9,73,2,561,0)="""KRN"",.404,434,40,4,0)"
^XMB(3.9,73,2,562,0)="6^(Y/N)^1"
^XMB(3.9,73,2,563,0)="""KRN"",.404,434,40,4,2)"
^XMB(3.9,73,2,564,0)="^^7,53"
^XMB(3.9,73,2,565,0)="""KRN"",.404,434,40,6,0)"
^XMB(3.9,73,2,566,0)="3^Administrative Closure User^3"
^XMB(3.9,73,2,567,0)="""KRN"",.404,434,40,6,1)"
^XMB(3.9,73,2,568,0)=".03"
^XMB(3.9,73,2,569,0)="""KRN"",.404,434,40,6,2)"
^XMB(3.9,73,2,570,0)="4,32^35^4,3"
^XMB(3.9,73,2,571,0)="""KRN"",.404,434,40,7,0)"
^XMB(3.9,73,2,572,0)="1^Conversion Mode^3"
^XMB(3.9,73,2,573,0)="""KRN"",.404,434,40,7,1)"
^XMB(3.9,73,2,574,0)=".02"
^XMB(3.9,73,2,575,0)="""KRN"",.404,434,40,7,2)"
^XMB(3.9,73,2,576,0)="2,32^4^2,3"
^XMB(3.9,73,2,577,0)="""KRN"",.404,434,40,7,3)"
^XMB(3.9,73,2,578,0)="0"
^XMB(3.9,73,2,579,0)="""KRN"",.404,434,40,8,0)"
^XMB(3.9,73,2,580,0)="7^Convert^1"
^XMB(3.9,73,2,581,0)="""KRN"",.404,434,40,8,2)"
^XMB(3.9,73,2,582,0)="^^6,51"
^XMB(3.9,73,2,583,0)="""KRN"",.404,435,0)"
^XMB(3.9,73,2,584,0)="MD FILES^703.91"
^XMB(3.9,73,2,585,0)="""KRN"",.404,435,40,0)"
^XMB(3.9,73,2,586,0)="^.4044I^3^2"
^XMB(3.9,73,2,587,0)="""KRN"",.404,435,40,1,0)"
^XMB(3.9,73,2,588,0)="1^^3"
^XMB(3.9,73,2,589,0)="""KRN"",.404,435,40,1,1)"
^XMB(3.9,73,2,590,0)=".01"
^XMB(3.9,73,2,591,0)="""KRN"",.404,435,40,1,2)"
^XMB(3.9,73,2,592,0)="1,3^35"
^XMB(3.9,73,2,593,0)="""KRN"",.404,435,40,1,4)"
^XMB(3.9,73,2,594,0)="^^^1"
^XMB(3.9,73,2,595,0)="""KRN"",.404,435,40,3,0)"
^XMB(3.9,73,2,596,0)="2^^3"
^XMB(3.9,73,2,597,0)="""KRN"",.404,435,40,3,1)"
^XMB(3.9,73,2,598,0)=".03"
^XMB(3.9,73,2,599,0)="""KRN"",.404,435,40,3,2)"
^XMB(3.9,73,2,600,0)="1,55^3"
^XMB(3.9,73,2,601,0)="""KRN"",.404,435,40,3,3)"
^XMB(3.9,73,2,602,0)="N"
^XMB(3.9,73,2,603,0)="""KRN"",.404,435,40,3,4)"
^XMB(3.9,73,2,604,0)="0^^1"
^XMB(3.9,73,2,605,0)="""KRN"",.404,435,40,3,10)"
^XMB(3.9,73,2,606,0)="S:X=1 DDSSTACK=2"
^XMB(3.9,73,2,607,0)="""KRN"",.404,436,0)"
^XMB(3.9,73,2,608,0)="MD PROCEDURE UPDATE^703.91"
^XMB(3.9,73,2,609,0)="""KRN"",.404,436,40,0)"
^XMB(3.9,73,2,610,0)="^.4044I^6^5"
^XMB(3.9,73,2,611,0)="""KRN"",.404,436,40,1,0)"
^XMB(3.9,73,2,612,0)="1^ Medicine Procedure Conversion Settings ^1"
^XMB(3.9,73,2,613,0)="""KRN"",.404,436,40,1,2)"
^XMB(3.9,73,2,614,0)="^^1,2"
^XMB(3.9,73,2,615,0)="""KRN"",.404,436,40,2,0)"
^XMB(3.9,73,2,616,0)="2^Medicine Procedure^3^^MEDPROC"
^XMB(3.9,73,2,617,0)="""KRN"",.404,436,40,2,1)"
^XMB(3.9,73,2,618,0)=".01"
^XMB(3.9,73,2,619,0)="""KRN"",.404,436,40,2,2)"
^XMB(3.9,73,2,620,0)="3,25^37^3,3"
^XMB(3.9,73,2,621,0)="""KRN"",.404,436,40,2,4)"
^XMB(3.9,73,2,622,0)="^^^1"
^XMB(3.9,73,2,623,0)="""KRN"",.404,436,40,3,0)"
^XMB(3.9,73,2,624,0)="3^CP Procedure^3^^CPPROC"
^XMB(3.9,73,2,625,0)="""KRN"",.404,436,40,3,1)"
^XMB(3.9,73,2,626,0)=".02"
^XMB(3.9,73,2,627,0)="""KRN"",.404,436,40,3,2)"
^XMB(3.9,73,2,628,0)="5,25^30^5,3"
^XMB(3.9,73,2,629,0)="""KRN"",.404,436,40,5,0)"
^XMB(3.9,73,2,630,0)="5^Convert if no status^3"
^XMB(3.9,73,2,631,0)="""KRN"",.404,436,40,5,1)"
^XMB(3.9,73,2,632,0)=".04"
^XMB(3.9,73,2,633,0)="""KRN"",.404,436,40,5,2)"
^XMB(3.9,73,2,634,0)="6,25^3^6,3"
^XMB(3.9,73,2,635,0)="""KRN"",.404,436,40,6,0)"
^XMB(3.9,73,2,636,0)="6^Use TIU Note Title^3"
^XMB(3.9,73,2,637,0)="""KRN"",.404,436,40,6,1)"
^XMB(3.9,73,2,638,0)=".05"
^XMB(3.9,73,2,639,0)="""KRN"",.404,436,40,6,2)"
^XMB(3.9,73,2,640,0)="7,25^40^7,3"
^XMB(3.9,73,2,641,0)="""KRN"",19,11905,-1)"
^XMB(3.9,73,2,642,0)="0^6"
^XMB(3.9,73,2,643,0)="""KRN"",19,11905,0)"
^XMB(3.9,73,2,644,0)="MDCVT MANAGER^Medicine to CP Conversion Manager^^M^^^^^^^^CLINICAL PROCEDURES"
^XMB(3.9,73,2,645,0)="""KRN"",19,11905,1,0)"
^XMB(3.9,73,2,646,0)="^19.06^3^3^3041109^^^^"
^XMB(3.9,73,2,647,0)="""KRN"",19,11905,1,1,0)"
^XMB(3.9,73,2,648,0)="This is the Medicine to CP Manager menu option.  This menu option"
^XMB(3.9,73,2,649,0)="""KRN"",19,11905,1,2,0)"
^XMB(3.9,73,2,650,0)="consists of options to assist the site in converting the Medicine"
^XMB(3.9,73,2,651,0)="""KRN"",19,11905,1,3,0)"
^XMB(3.9,73,2,652,0)="reports to Clinical Procedures text reports."
^XMB(3.9,73,2,653,0)="""KRN"",19,11905,10,0)"
^XMB(3.9,73,2,654,0)="^19.01IP^9^9"
^XMB(3.9,73,2,655,0)="""KRN"",19,11905,10,1,0)"
^XMB(3.9,73,2,656,0)="11906^1^1"
^XMB(3.9,73,2,657,0)="""KRN"",19,11905,10,1,""^"")"
^XMB(3.9,73,2,658,0)="MDCVT SETUP"
^XMB(3.9,73,2,659,0)="""KRN"",19,11905,10,2,0)"
^XMB(3.9,73,2,660,0)="11909^3^3"
^XMB(3.9,73,2,661,0)="""KRN"",19,11905,10,2,""^"")"
^XMB(3.9,73,2,662,0)="MDCVT RUN"
^XMB(3.9,73,2,663,0)="""KRN"",19,11905,10,3,0)"
^XMB(3.9,73,2,664,0)="11908^4^4"
^XMB(3.9,73,2,665,0)="""KRN"",19,11905,10,3,""^"")"
^XMB(3.9,73,2,666,0)="MDCVT SUMMARY"
^XMB(3.9,73,2,667,0)="""KRN"",19,11905,10,4,0)"
^XMB(3.9,73,2,668,0)="11907^5^5"
^XMB(3.9,73,2,669,0)="""KRN"",19,11905,10,4,""^"")"
^XMB(3.9,73,2,670,0)="MDCVT DISK SPACE"
^XMB(3.9,73,2,671,0)="""KRN"",19,11905,10,5,0)"
^XMB(3.9,73,2,672,0)="11910^6^6"
^XMB(3.9,73,2,673,0)="""KRN"",19,11905,10,5,""^"")"
^XMB(3.9,73,2,674,0)="MDCVT LIST OF TIU TITLES"
^XMB(3.9,73,2,675,0)="""KRN"",19,11905,10,6,0)"
^XMB(3.9,73,2,676,0)="11911^7^7"
^XMB(3.9,73,2,677,0)="""KRN"",19,11905,10,6,""^"")"
^XMB(3.9,73,2,678,0)="MDCVT TOTALS"
^XMB(3.9,73,2,679,0)="""KRN"",19,11905,10,7,0)"
^XMB(3.9,73,2,680,0)="11912^8^8"
^XMB(3.9,73,2,681,0)="""KRN"",19,11905,10,7,""^"")"
^XMB(3.9,73,2,682,0)="MDCVT ERROR LOG"
^XMB(3.9,73,2,683,0)="""KRN"",19,11905,10,8,0)"
^XMB(3.9,73,2,684,0)="11913^9^9"
^XMB(3.9,73,2,685,0)="""KRN"",19,11905,10,8,""^"")"
^XMB(3.9,73,2,686,0)="MDCVT CONVERSION LOCKOUT"
^XMB(3.9,73,2,687,0)="""KRN"",19,11905,10,9,0)"
^XMB(3.9,73,2,688,0)="11914^2^2"
^XMB(3.9,73,2,689,0)="""KRN"",19,11905,10,9,""^"")"
^XMB(3.9,73,2,690,0)="MDCVT BUILD CONVERSION LIST"
^XMB(3.9,73,2,691,0)="""KRN"",19,11905,99)"
^XMB(3.9,73,2,692,0)="60142,45029"
^XMB(3.9,73,2,693,0)="""KRN"",19,11905,99.1)"
^XMB(3.9,73,2,694,0)="59904,24363"
^XMB(3.9,73,2,695,0)="""KRN"",19,11905,""U"")"
^XMB(3.9,73,2,696,0)="MEDICINE TO CP CONVERSION MANA"
^XMB(3.9,73,2,697,0)="""KRN"",19,11906,-1)"
^XMB(3.9,73,2,698,0)="0^8"
^XMB(3.9,73,2,699,0)="""KRN"",19,11906,0)"
^XMB(3.9,73,2,700,0)="MDCVT SETUP^Conversion Setup^^R^^^^^^^^CLINICAL PROCEDURES^^^1"
^XMB(3.9,73,2,701,0)="""KRN"",19,11906,1,0)"
^XMB(3.9,73,2,702,0)="^19.06^5^5^3041109^^^^"
^XMB(3.9,73,2,703,0)="""KRN"",19,11906,1,1,0)"
^XMB(3.9,73,2,704,0)="This option will bring up a setup screen for the site"
^XMB(3.9,73,2,705,0)="""KRN"",19,11906,1,2,0)"
^XMB(3.9,73,2,706,0)="to setup the Medicine Report Conversion parameter setup."
^XMB(3.9,73,2,707,0)="""KRN"",19,11906,1,3,0)"
^XMB(3.9,73,2,708,0)="This parameter setup allows the site to control which Medicine"
^XMB(3.9,73,2,709,0)="""KRN"",19,11906,1,4,0)"
^XMB(3.9,73,2,710,0)="reports will be converted and which CP Definition and TIU title"
^XMB(3.9,73,2,711,0)="""KRN"",19,11906,1,5,0)"
^XMB(3.9,73,2,712,0)="to link to."
^XMB(3.9,73,2,713,0)="""KRN"",19,11906,15)"
^XMB(3.9,73,2,714,0)="K DDSFILE,DR,DA"
^XMB(3.9,73,2,715,0)="""KRN"",19,11906,20)"
^XMB(3.9,73,2,716,0)=""
^XMB(3.9,73,2,717,0)="""KRN"",19,11906,25)"
^XMB(3.9,73,2,718,0)="SETUP^MDCVT"
^XMB(3.9,73,2,719,0)="""KRN"",19,11906,""U"")"
^XMB(3.9,73,2,720,0)="CONVERSION SETUP"
^XMB(3.9,73,2,721,0)="""KRN"",19,11907,-1)"
^XMB(3.9,73,2,722,0)="0^3"
^XMB(3.9,73,2,723,0)="""KRN"",19,11907,0)"
^XMB(3.9,73,2,724,0)="MDCVT DISK SPACE^Disk Space Requirements^^R^^^^^^^^CLINICAL PROCEDURES"
^XMB(3.9,73,2,725,0)="""KRN"",19,11907,1,0)"
^XMB(3.9,73,2,726,0)="^19.06^5^5^3060508^^^^"
^XMB(3.9,73,2,727,0)="""KRN"",19,11907,1,1,0)"
^XMB(3.9,73,2,728,0)="This option will generate a summary of the Medicine report"
^XMB(3.9,73,2,729,0)="""KRN"",19,11907,1,2,0)"
^XMB(3.9,73,2,730,0)="conversion.  This summary consists of a list of the files"
^XMB(3.9,73,2,731,0)="""KRN"",19,11907,1,3,0)"
^XMB(3.9,73,2,732,0)="converted to Clinical Procedures, the count of the records converted,"
^XMB(3.9,73,2,733,0)="""KRN"",19,11907,1,4,0)"
^XMB(3.9,73,2,734,0)="and the total lines and Bytes of the records that were converted"
^XMB(3.9,73,2,735,0)="""KRN"",19,11907,1,5,0)"
^XMB(3.9,73,2,736,0)="in each file."
^XMB(3.9,73,2,737,0)="""KRN"",19,11907,25)"
^XMB(3.9,73,2,738,0)="SUMMARY^MDCVT"
^XMB(3.9,73,2,739,0)="""KRN"",19,11907,""U"")"
^XMB(3.9,73,2,740,0)="DISK SPACE REQUIREMENTS"
^XMB(3.9,73,2,741,0)="""KRN"",19,11908,-1)"
^XMB(3.9,73,2,742,0)="0^9"
^XMB(3.9,73,2,743,0)="""KRN"",19,11908,0)"
^XMB(3.9,73,2,744,0)="MDCVT SUMMARY^Summary of Conversion Process^^P^^^^^^^^CLINICAL PROCEDURES"
^XMB(3.9,73,2,745,0)="""KRN"",19,11908,1,0)"
^XMB(3.9,73,2,746,0)="^19.06^8^8^3050105^^^^"
^XMB(3.9,73,2,747,0)="""KRN"",19,11908,1,1,0)"
^XMB(3.9,73,2,748,0)="This option will generate a Medicine Report Conversion report.  This"
^XMB(3.9,73,2,749,0)="""KRN"",19,11908,1,2,0)"
^XMB(3.9,73,2,750,0)="report consists of a listing of all Medicine records that were processed"
^XMB(3.9,73,2,751,0)="""KRN"",19,11908,1,3,0)"
^XMB(3.9,73,2,752,0)="in the conversion in variable pointer format and the status of the"
^XMB(3.9,73,2,753,0)="""KRN"",19,11908,1,4,0)"
^XMB(3.9,73,2,754,0)="conversion whether the record was converted, skipped, or errored."
^XMB(3.9,73,2,755,0)="""KRN"",19,11908,1,5,0)"
^XMB(3.9,73,2,756,0)="If the record was converted, the total number of lines and bytes that"
^XMB(3.9,73,2,757,0)="""KRN"",19,11908,1,6,0)"
^XMB(3.9,73,2,758,0)="the record was converted to in a TIU document will be displayed."
^XMB(3.9,73,2,759,0)="""KRN"",19,11908,1,7,0)"
^XMB(3.9,73,2,760,0)="If the record errored, the reason why it errored will be displayed."
^XMB(3.9,73,2,761,0)="""KRN"",19,11908,1,8,0)"
^XMB(3.9,73,2,762,0)="If the record was skipped, the reason why it was skipped will be displayed."
^XMB(3.9,73,2,763,0)="""KRN"",19,11908,60)"
^XMB(3.9,73,2,764,0)="MDD(703.9,"
^XMB(3.9,73,2,765,0)="""KRN"",19,11908,62)"
^XMB(3.9,73,2,766,0)="0"
^XMB(3.9,73,2,767,0)="""KRN"",19,11908,63)"
^XMB(3.9,73,2,768,0)="[MD CONVERSION SUMMARY]"
^XMB(3.9,73,2,769,0)="""KRN"",19,11908,64)"
^XMB(3.9,73,2,770,0)="[MD CONVERSION SUMMARY]"
^XMB(3.9,73,2,771,0)="""KRN"",19,11908,65)"
^XMB(3.9,73,2,772,0)=""
^XMB(3.9,73,2,773,0)="""KRN"",19,11908,66)"
^XMB(3.9,73,2,774,0)=""
^XMB(3.9,73,2,775,0)="""KRN"",19,11908,""U"")"
^XMB(3.9,73,2,776,0)="SUMMARY OF CONVERSION PROCESS"
^XMB(3.9,73,2,777,0)="""KRN"",19,11909,-1)"
^XMB(3.9,73,2,778,0)="0^7"
^XMB(3.9,73,2,779,0)="""KRN"",19,11909,0)"
^XMB(3.9,73,2,780,0)="MDCVT RUN^Run the Conversion Process^^R^^^^^^^^CLINICAL PROCEDURES"
^XMB(3.9,73,2,781,0)="""KRN"",19,11909,1,0)"
^XMB(3.9,73,2,782,0)="^19.06^4^4^3060508^^^^"
^XMB(3.9,73,2,783,0)="""KRN"",19,11909,1,1,0)"
^XMB(3.9,73,2,784,0)="This option will start the Medicine Report conversion to Clinical"
^XMB(3.9,73,2,785,0)="""KRN"",19,11909,1,2,0)"
^XMB(3.9,73,2,786,0)="Procedures.  This option will only convert reports for procedures that "
^XMB(3.9,73,2,787,0)="""KRN"",19,11909,1,3,0)"
^XMB(3.9,73,2,788,0)="have the ""CONVERT Y/N"" field set to ""Yes"" under the MEDICINE FILE"
^XMB(3.9,73,2,789,0)="""KRN"",19,11909,1,4,0)"
^XMB(3.9,73,2,790,0)="PARAMETERS field in the CP CONVERSION file (#703.9)."
^XMB(3.9,73,2,791,0)="""KRN"",19,11909,25)"
^XMB(3.9,73,2,792,0)="EN^MDCVT"
^XMB(3.9,73,2,793,0)="""KRN"",19,11909,""U"")"
^XMB(3.9,73,2,794,0)="RUN THE CONVERSION PROCESS"
^XMB(3.9,73,2,795,0)="""KRN"",19,11910,-1)"
^XMB(3.9,73,2,796,0)="0^5"
^XMB(3.9,73,2,797,0)="""KRN"",19,11910,0)"
^XMB(3.9,73,2,798,0)="MDCVT LIST OF TIU TITLES^List of TIU Titles Needed^^R^^^^^^^^CLINICAL PROCEDURES"
^XMB(3.9,73,2,799,0)="""KRN"",19,11910,1,0)"
^XMB(3.9,73,2,800,0)="^19.06^7^7^3060508^^^^"
^XMB(3.9,73,2,801,0)="""KRN"",19,11910,1,1,0)"
^XMB(3.9,73,2,802,0)="This option will allow the user to generate a list of Medicine procedures"
^XMB(3.9,73,2,803,0)="""KRN"",19,11910,1,2,0)"
^XMB(3.9,73,2,804,0)="and the TIU titles needed to be created for the procedures that will be"
^XMB(3.9,73,2,805,0)="""KRN"",19,11910,1,3,0)"
^XMB(3.9,73,2,806,0)="used for the Medicine report conversion.  The PRINT NAME of the procedures"
^XMB(3.9,73,2,807,0)="""KRN"",19,11910,1,4,0)"
^XMB(3.9,73,2,808,0)="in the PROCEDURE/SUBSPECIALTY file (#697.2) will be used in the display."
^XMB(3.9,73,2,809,0)="""KRN"",19,11910,1,5,0)"
^XMB(3.9,73,2,810,0)="This list will list the procedures and titles for a Medicine Package"
^XMB(3.9,73,2,811,0)="""KRN"",19,11910,1,6,0)"
^XMB(3.9,73,2,812,0)="Procedure if the ""Convert Y/N"" parameter is set to ""Yes"" and the ""Use"
^XMB(3.9,73,2,813,0)="""KRN"",19,11910,1,7,0)"
^XMB(3.9,73,2,814,0)="TIU Note Title"" parameter is blank in the Conversion Setup option."
^XMB(3.9,73,2,815,0)="""KRN"",19,11910,25)"
^XMB(3.9,73,2,816,0)="DISP^MDSTATU"
^XMB(3.9,73,2,817,0)="""KRN"",19,11910,""U"")"
^XMB(3.9,73,2,818,0)="LIST OF TIU TITLES NEEDED"
^XMB(3.9,73,2,819,0)="""KRN"",19,11911,-1)"
^XMB(3.9,73,2,820,0)="0^10"
^XMB(3.9,73,2,821,0)="""KRN"",19,11911,0)"
^XMB(3.9,73,2,822,0)="MDCVT TOTALS^Conversion Totals By Status^^R^^^^^^^^CLINICAL PROCEDURES"
^XMB(3.9,73,2,823,0)="""KRN"",19,11911,1,0)"
^XMB(3.9,73,2,824,0)="^19.06^2^2^3040708^^^^"
^XMB(3.9,73,2,825,0)="""KRN"",19,11911,1,1,0)"
^XMB(3.9,73,2,826,0)="This option will verify that the Medicine reports conversion is complete"
^XMB(3.9,73,2,827,0)="""KRN"",19,11911,1,2,0)"
^XMB(3.9,73,2,828,0)="and are in appropriate statuses."
^XMB(3.9,73,2,829,0)="""KRN"",19,11911,25)"
^XMB(3.9,73,2,830,0)="TOTALS^MDCVT"
^XMB(3.9,73,2,831,0)="""KRN"",19,11911,""U"")"
^XMB(3.9,73,2,832,0)="CONVERSION TOTALS BY STATUS"
^XMB(3.9,73,2,833,0)="""KRN"",19,11912,-1)"
^XMB(3.9,73,2,834,0)="0^4"
^XMB(3.9,73,2,835,0)="""KRN"",19,11912,0)"
^XMB(3.9,73,2,836,0)="MDCVT ERROR LOG^Error Log^^P^^^^^^^^CLINICAL PROCEDURES"
^XMB(3.9,73,2,837,0)="""KRN"",19,11912,1,0)"
^XMB(3.9,73,2,838,0)="^19.06^5^5^3041109^^"
^XMB(3.9,73,2,839,0)="""KRN"",19,11912,1,1,0)"
^XMB(3.9,73,2,840,0)="This option generates a log of all the errors that occurred with each"
^XMB(3.9,73,2,841,0)="""KRN"",19,11912,1,2,0)"
^XMB(3.9,73,2,842,0)="Medicine report during the conversion.  The listing consists of the"
^XMB(3.9,73,2,843,0)="""KRN"",19,11912,1,3,0)"
^XMB(3.9,73,2,844,0)="CONVERSION ID and ERROR MESSAGE.  The CONVERSION ID consists of"
^XMB(3.9,73,2,845,0)="""KRN"",19,11912,1,4,0)"
^XMB(3.9,73,2,846,0)="the record # concatenated with a "";"" and the global location"
^XMB(3.9,73,2,847,0)="""KRN"",19,11912,1,5,0)"
^XMB(3.9,73,2,848,0)="(e.g.,""345;MCAR(699,"")."
^XMB(3.9,73,2,849,0)="""KRN"",19,11912,60)"
^XMB(3.9,73,2,850,0)="MDD(703.9,"
^XMB(3.9,73,2,851,0)="""KRN"",19,11912,62)"
^XMB(3.9,73,2,852,0)="0"
^XMB(3.9,73,2,853,0)="""KRN"",19,11912,63)"
^XMB(3.9,73,2,854,0)="[MD CONVERSION ERRORS]"
^XMB(3.9,73,2,855,0)="""KRN"",19,11912,64)"
^XMB(3.9,73,2,856,0)="[MD CONVERSION ERRORS]"
^XMB(3.9,73,2,857,0)="""KRN"",19,11912,""U"")"
^XMB(3.9,73,2,858,0)="ERROR LOG"
^XMB(3.9,73,2,859,0)="""KRN"",19,11913,-1)"
^XMB(3.9,73,2,860,0)="0^2"
^XMB(3.9,73,2,861,0)="""KRN"",19,11913,0)"
^XMB(3.9,73,2,862,0)="MDCVT CONVERSION LOCKOUT^Conversion Lockout^^R^^^^^^^^CLINICAL PROCEDURES"
^XMB(3.9,73,2,863,0)="""KRN"",19,11913,1,0)"
^XMB(3.9,73,2,864,0)="^19.06^6^6^3060508^^^^"
^XMB(3.9,73,2,865,0)="""KRN"",19,11913,1,1,0)"
^XMB(3.9,73,2,866,0)="This option will let the user place a specialty/procedure or ALL"
^XMB(3.9,73,2,867,0)="""KRN"",19,11913,1,2,0)"
^XMB(3.9,73,2,868,0)="specialty/procedures Enter/Edit and Report options 'OUT OF SERVICE'"
^XMB(3.9,73,2,869,0)="""KRN"",19,11913,1,3,0)"
^XMB(3.9,73,2,870,0)="in the Medicine package.  It will also set Kernel site parameter"
^XMB(3.9,73,2,871,0)="""KRN"",19,11913,1,4,0)"
^XMB(3.9,73,2,872,0)="MD MEDICINE CONVERTED to ""YES"" when all specialties/procedures enter/edit"
^XMB(3.9,73,2,873,0)="""KRN"",19,11913,1,5,0)"
^XMB(3.9,73,2,874,0)="and report options are disabled or when the user indicated that all"
^XMB(3.9,73,2,875,0)="""KRN"",19,11913,1,6,0)"
^XMB(3.9,73,2,876,0)="Medicine reports have been converted."
^XMB(3.9,73,2,877,0)="""KRN"",19,11913,25)"
^XMB(3.9,73,2,878,0)="LOCKOUT^MDCVT"
^XMB(3.9,73,2,879,0)="""KRN"",19,11913,""U"")"
^XMB(3.9,73,2,880,0)="CONVERSION LOCKOUT"
^XMB(3.9,73,2,881,0)="""KRN"",19,11914,-1)"
^XMB(3.9,73,2,882,0)="0^1"
^XMB(3.9,73,2,883,0)="""KRN"",19,11914,0)"
^XMB(3.9,73,2,884,0)="MDCVT BUILD CONVERSION LIST^Build Conversion List^^A^^^^^^^^CLINICAL PROCEDURES^^1^1"
^XMB(3.9,73,2,885,0)="""KRN"",19,11914,1,0)"
^XMB(3.9,73,2,886,0)="^19.06^11^11^3041109^^^^"
^XMB(3.9,73,2,887,0)="""KRN"",19,11914,1,1,0)"
^XMB(3.9,73,2,888,0)="The user will need to run this option before using the [MDCVT RUN],"
^XMB(3.9,73,2,889,0)="""KRN"",19,11914,1,2,0)"
^XMB(3.9,73,2,890,0)="Run the Conversion Process, option.  This option will let the user"
^XMB(3.9,73,2,891,0)="""KRN"",19,11914,1,3,0)"
^XMB(3.9,73,2,892,0)="build the conversion list of the Medicine file records for the CP"
^XMB(3.9,73,2,893,0)="""KRN"",19,11914,1,4,0)"
^XMB(3.9,73,2,894,0)="CONVERSION file (#703.9).  It will populate the CONVERSION LOG"
^XMB(3.9,73,2,895,0)="""KRN"",19,11914,1,5,0)"
^XMB(3.9,73,2,896,0)="sub-file (#703.92) with all entries in the ""AC"" cross reference in"
^XMB(3.9,73,2,897,0)="""KRN"",19,11914,1,6,0)"
^XMB(3.9,73,2,898,0)="the MEDICAL PATIENT file (#690) and set the STATUS field as"
^XMB(3.9,73,2,899,0)="""KRN"",19,11914,1,7,0)"
^XMB(3.9,73,2,900,0)="""Ready to Convert"" for each entry.  This option can be queued."
^XMB(3.9,73,2,901,0)="""KRN"",19,11914,1,8,0)"
^XMB(3.9,73,2,902,0)="Once the conversion list is built, this option can also be used"
^XMB(3.9,73,2,903,0)="""KRN"",19,11914,1,9,0)"
^XMB(3.9,73,2,904,0)="to add new additional entries in the Medicine file into the conversion"
^XMB(3.9,73,2,905,0)="""KRN"",19,11914,1,10,0)"
^XMB(3.9,73,2,906,0)="list.  This option will not overwrite the existing entries in the"
^XMB(3.9,73,2,907,0)="""KRN"",19,11914,1,11,0)"
^XMB(3.9,73,2,908,0)="CONVERSION LOG but add to the list."
^XMB(3.9,73,2,909,0)="""KRN"",19,11914,15)"
^XMB(3.9,73,2,910,0)="K MDS"
^XMB(3.9,73,2,911,0)="""KRN"",19,11914,20)"
^XMB(3.9,73,2,912,0)="S MDS=$$BLD^MDCVT1()"
^XMB(3.9,73,2,913,0)="""KRN"",19,11914,25)"
^XMB(3.9,73,2,914,0)=""
^XMB(3.9,73,2,915,0)="""KRN"",19,11914,""U"")"
^XMB(3.9,73,2,916,0)="BUILD CONVERSION LIST"
^XMB(3.9,73,2,917,0)="""KRN"",8989.51,349,-1)"
^XMB(3.9,73,2,918,0)="0^1"
^XMB(3.9,73,2,919,0)="""KRN"",8989.51,349,0)"
^XMB(3.9,73,2,920,0)="MD MEDICINE CONVERTED^Medicine Package Converted^0^^Yes/No^0"
^XMB(3.9,73,2,921,0)="""KRN"",8989.51,349,1)"
^XMB(3.9,73,2,922,0)="Y"
^XMB(3.9,73,2,923,0)="""KRN"",8989.51,349,20,0)"
^XMB(3.9,73,2,924,0)="^^1^1^3030923^"
^XMB(3.9,73,2,925,0)="""KRN"",8989.51,349,20,1,0)"
^XMB(3.9,73,2,926,0)="Used to determine if the Medicine Package has been converted."
^XMB(3.9,73,2,927,0)="""KRN"",8989.51,349,30,0)"
^XMB(3.9,73,2,928,0)="^8989.513I^1^1"
^XMB(3.9,73,2,929,0)="""KRN"",8989.51,349,30,1,0)"
^XMB(3.9,73,2,930,0)="1^4.2"
^XMB(3.9,73,2,931,0)="""MBREQ"")"
^XMB(3.9,73,2,932,0)="0"
^XMB(3.9,73,2,933,0)="""ORD"",5,.4)"
^XMB(3.9,73,2,934,0)=".4;5;;;EDEOUT^DIFROMSO(.4,DA,"""",XPDA);FPRE^DIFROMSI(.4,"""",XPDA);EPRE^DIFROMSI(.4,DA,$E(""N"",$G(XPDNEW)),XPDA,"""",OLDA);;EPOST^DIFROMSI(.4,DA,"""",XPDA);DEL^DIFROMSK(.4,"""",%)"
^XMB(3.9,73,2,935,0)="""ORD"",5,.4,0)"
^XMB(3.9,73,2,936,0)="PRINT TEMPLATE"
^XMB(3.9,73,2,937,0)="""ORD"",6,.401)"
^XMB(3.9,73,2,938,0)=".401;6;;;EDEOUT^DIFROMSO(.401,DA,"""",XPDA);FPRE^DIFROMSI(.401,"""",XPDA);EPRE^DIFROMSI(.401,DA,$E(""N"",$G(XPDNEW)),XPDA,"""",OLDA);;EPOST^DIFROMSI(.401,DA,"""",XPDA);DEL^DIFROMSK(.401,"""",%)"
^XMB(3.9,73,2,939,0)="""ORD"",6,.401,0)"
^XMB(3.9,73,2,940,0)="SORT TEMPLATE"
^XMB(3.9,73,2,941,0)="""ORD"",8,.403)"
^XMB(3.9,73,2,942,0)=".403;8;;;EDEOUT^DIFROMSO(.403,DA,"""",XPDA);FPRE^DIFROMSI(.403,"""",XPDA);EPRE^DIFROMSI(.403,DA,$E(""N"",$G(XPDNEW)),XPDA,"""",OLDA);;EPOST^DIFROMSI(.403,DA,"""",XPDA);DEL^DIFROMSK(.403,"""",%)"
^XMB(3.9,73,2,943,0)="""ORD"",8,.403,0)"
^XMB(3.9,73,2,944,0)="FORM"
^XMB(3.9,73,2,945,0)="""ORD"",18,19)"
^XMB(3.9,73,2,946,0)="19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA"
^XMB(3.9,73,2,947,0)="""ORD"",18,19,0)"
^XMB(3.9,73,2,948,0)="OPTION"
^XMB(3.9,73,2,949,0)="""ORD"",20,8989.51)"
^XMB(3.9,73,2,950,0)="8989.51;20;;;PAR1E1^XPDTA2;PAR1F1^XPDIA3;PAR1E1^XPDIA3;PAR1F2^XPDIA3;;PAR1DEL^XPDIA3(%)"
^XMB(3.9,73,2,951,0)="""ORD"",20,8989.51,0)"
^XMB(3.9,73,2,952,0)="PARAMETER DEFINITION"
^XMB(3.9,73,2,953,0)="""PKG"",390,-1)"
^XMB(3.9,73,2,954,0)="1^1"
^XMB(3.9,73,2,955,0)="""PKG"",390,0)"
^XMB(3.9,73,2,956,0)="CLINICAL PROCEDURES^MD^Clinical Procedures"
^XMB(3.9,73,2,957,0)="""PKG"",390,20,0)"
^XMB(3.9,73,2,958,0)="^9.402P^^"
^XMB(3.9,73,2,959,0)="""PKG"",390,22,0)"
^XMB(3.9,73,2,960,0)="^9.49I^1^1"
^XMB(3.9,73,2,961,0)="""PKG"",390,22,1,0)"
^XMB(3.9,73,2,962,0)="1.0^3040521^3040521^4558"
^XMB(3.9,73,2,963,0)="""PKG"",390,22,1,""PAH"",1,0)"
^XMB(3.9,73,2,964,0)="5^3060508^4558"
^XMB(3.9,73,2,965,0)="""PKG"",390,22,1,""PAH"",1,1,0)"
^XMB(3.9,73,2,966,0)="^^2^2^3060508"
^XMB(3.9,73,2,967,0)="""PKG"",390,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,73,2,968,0)="Please refer to the National Patch Module for the detail of this patch "
^XMB(3.9,73,2,969,0)="""PKG"",390,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,73,2,970,0)="build."
^XMB(3.9,73,2,971,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,73,2,972,0)="Y"
^XMB(3.9,73,2,973,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,73,2,974,0)="^D REP^XPDH"
^XMB(3.9,73,2,975,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,73,2,976,0)="Shall I write over your |FLAG| File"
^XMB(3.9,73,2,977,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,73,2,978,0)="YES"
^XMB(3.9,73,2,979,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,73,2,980,0)="D XPF1^XPDIQ"
^XMB(3.9,73,2,981,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,73,2,982,0)="Y"
^XMB(3.9,73,2,983,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,73,2,984,0)="^D DTA^XPDH"
^XMB(3.9,73,2,985,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,73,2,986,0)="Want my data |FLAG| yours"
^XMB(3.9,73,2,987,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,73,2,988,0)="YES"
^XMB(3.9,73,2,989,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,73,2,990,0)="D XPF2^XPDIQ"
^XMB(3.9,73,2,991,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,73,2,992,0)="YO"
^XMB(3.9,73,2,993,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,73,2,994,0)="^D INHIBIT^XPDH"
^XMB(3.9,73,2,995,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,73,2,996,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,73,2,997,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,73,2,998,0)="YES"
^XMB(3.9,73,2,999,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,73,2,1000,0)="D XPI1^XPDIQ"
^XMB(3.9,73,2,1001,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,73,2,1002,0)="PO^VA(200,:EM"
^XMB(3.9,73,2,1003,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,73,2,1004,0)="^D MG^XPDH"
^XMB(3.9,73,2,1005,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,73,2,1006,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,73,2,1007,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,73,2,1008,0)=""
^XMB(3.9,73,2,1009,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,73,2,1010,0)="D XPM1^XPDIQ"
^XMB(3.9,73,2,1011,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,73,2,1012,0)="Y"
^XMB(3.9,73,2,1013,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,73,2,1014,0)="^D MENU^XPDH"
^XMB(3.9,73,2,1015,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,73,2,1016,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,73,2,1017,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,73,2,1018,0)="YES"
^XMB(3.9,73,2,1019,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,73,2,1020,0)="D XPO1^XPDIQ"
^XMB(3.9,73,2,1021,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,73,2,1022,0)="Y"
^XMB(3.9,73,2,1023,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,73,2,1024,0)="^D OPT^XPDH"
^XMB(3.9,73,2,1025,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,73,2,1026,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,73,2,1027,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,73,2,1028,0)="YES"
^XMB(3.9,73,2,1029,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,73,2,1030,0)="D XPZ1^XPDIQ"
^XMB(3.9,73,2,1031,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,73,2,1032,0)="Y"
^XMB(3.9,73,2,1033,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,73,2,1034,0)="^D RTN^XPDH"
^XMB(3.9,73,2,1035,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,73,2,1036,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,73,2,1037,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,73,2,1038,0)="NO"
^XMB(3.9,73,2,1039,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,73,2,1040,0)="D XPZ2^XPDIQ"
^XMB(3.9,73,2,1041,0)="""RTN"")"
^XMB(3.9,73,2,1042,0)="17"
^XMB(3.9,73,2,1043,0)="""RTN"",""MCARPS1"")"
^XMB(3.9,73,2,1044,0)="0^18^B8444833^B8248104"
^XMB(3.9,73,2,1045,0)="""RTN"",""MCARPS1"",1,0)"
^XMB(3.9,73,2,1046,0)="MCARPS1 ;WISC/TJK,RCH-SUMMARY OF PATIENT PROCEDURES (2) ;6/18/97  10:33"
^XMB(3.9,73,2,1047,0)="""RTN"",""MCARPS1"",2,0)"
^XMB(3.9,73,2,1048,0)=" ;;1.0;CLINICAL PROCEDURES;**5**;Apr 01, 2004;Build 1"
^XMB(3.9,73,2,1049,0)="""RTN"",""MCARPS1"",3,0)"
^XMB(3.9,73,2,1050,0)=" K ^TMP(""MCAR"",$J) S S4="""" F M=1:1 S S4=$O(^MCAR(690,""AC"",DFN,S4)) Q:S4=""""  D LOCFIL"
^XMB(3.9,73,2,1051,0)="""RTN"",""MCARPS1"",4,0)"
^XMB(3.9,73,2,1052,0)=" Q"
^XMB(3.9,73,2,1053,0)="""RTN"",""MCARPS1"",5,0)"
^XMB(3.9,73,2,1054,0)="LOCFIL G LOCFIL1:$D(S5) S S5="""" F K=1:1 S S5=$O(^MCAR(690,""AC"",DFN,S4,S5)) Q:S5=""""  D LOCFIL1"
^XMB(3.9,73,2,1055,0)="""RTN"",""MCARPS1"",6,0)"
^XMB(3.9,73,2,1056,0)=" K S5 Q"
^XMB(3.9,73,2,1057,0)="""RTN"",""MCARPS1"",7,0)"
^XMB(3.9,73,2,1058,0)="LOCFIL1 S S6="""" F L=1:1 S S6=$O(^MCAR(690,""AC"",DFN,S4,S5,S6)) Q:S6=""""  D CONT"
^XMB(3.9,73,2,1059,0)="""RTN"",""MCARPS1"",8,0)"
^XMB(3.9,73,2,1060,0)=" Q"
^XMB(3.9,73,2,1061,0)="""RTN"",""MCARPS1"",9,0)"
^XMB(3.9,73,2,1062,0)="CONT ;CONT+1 modified on 2-7-94,S MCFILE..2) added to conform w/alpha site"
^XMB(3.9,73,2,1063,0)="""RTN"",""MCARPS1"",10,0)"
^XMB(3.9,73,2,1064,0)=" Q:$O(^MDD(702,""ACONV"",S6_"";""_S5_"","",0))"
^XMB(3.9,73,2,1065,0)="""RTN"",""MCARPS1"",11,0)"
^XMB(3.9,73,2,1066,0)=" I $D(^MCAR(+$P(S5,""("",2),S6,2005)) S MCFILE=+$P(S5,""("",2) D SUM^MCMAG"
^XMB(3.9,73,2,1067,0)="""RTN"",""MCARPS1"",12,0)"
^XMB(3.9,73,2,1068,0)=" I S5=""MCAR(702.7"" Q"
^XMB(3.9,73,2,1069,0)="""RTN"",""MCARPS1"",13,0)"
^XMB(3.9,73,2,1070,0)=" I S5=""MCAR(699"" S (LL,LL1)=$P($G(^MCAR(699,S6,0)),U,12) Q:LL'>0  S LL=$P($G(^MCAR(697.2,LL,0)),U) G CONT1:'$D(PE) Q:PE'=LL  G CONT1"
^XMB(3.9,73,2,1071,0)="""RTN"",""MCARPS1"",14,0)"
^XMB(3.9,73,2,1072,0)=" ;I S5=""MCAR(699.5"" S (LL,LL1)=$P($G(^MCAR(699.5,S6,0)),U,6) Q:'LL  S LL=$P($G(^MCAR(697.2,LL,0)),U) G CONT1:'$D(PE) Q:PE'=LL  G CONT1  ;MC*2.3*8"
^XMB(3.9,73,2,1073,0)="""RTN"",""MCARPS1"",15,0)"
^XMB(3.9,73,2,1074,0)=" I S5=""MCAR(699.5"",'$D(PE) D  Q  ;MC*2.3*8"
^XMB(3.9,73,2,1075,0)="""RTN"",""MCARPS1"",16,0)"
^XMB(3.9,73,2,1076,0)=" .S LL6=$P($G(^MCAR(699.5,S6,0)),U,6),LL8=$P($G(^MCAR(699.5,S6,0)),U,8)"
^XMB(3.9,73,2,1077,0)="""RTN"",""MCARPS1"",17,0)"
^XMB(3.9,73,2,1078,0)=" .S (LL,LL1)=$P($G(^MCAR(699.5,S6,0)),U,6) Q:'LL  S LL=$P($G(^MCAR(697.2,LL,0)),U) D CONT1"
^XMB(3.9,73,2,1079,0)="""RTN"",""MCARPS1"",18,0)"
^XMB(3.9,73,2,1080,0)=" I S5=""MCAR(699.5"",$D(PE) D  Q  ;MC*2.3*8"
^XMB(3.9,73,2,1081,0)="""RTN"",""MCARPS1"",19,0)"
^XMB(3.9,73,2,1082,0)=" .S LL6=$P($G(^MCAR(699.5,S6,0)),U,6),LL8=$P($G(^MCAR(699.5,S6,0)),U,8)"
^XMB(3.9,73,2,1083,0)="""RTN"",""MCARPS1"",20,0)"
^XMB(3.9,73,2,1084,0)=" .S (LL,LL1)=$P($G(^MCAR(699.5,S6,0)),U,6) Q:'LL  S LL=$P($G(^MCAR(697.2,LL,0)),U)"
^XMB(3.9,73,2,1085,0)="""RTN"",""MCARPS1"",21,0)"
^XMB(3.9,73,2,1086,0)=" .N LLX,LLY"
^XMB(3.9,73,2,1087,0)="""RTN"",""MCARPS1"",22,0)"
^XMB(3.9,73,2,1088,0)=" .S LLX=$O(^MCAR(697.2,""B"",PE,0)) Q:'LLX  S LLY=$P($G(^MCAR(697.2,LLX,1)),U)"
^XMB(3.9,73,2,1089,0)="""RTN"",""MCARPS1"",23,0)"
^XMB(3.9,73,2,1090,0)=" .I LLY=""S"",LLX=LL6 D CONT1"
^XMB(3.9,73,2,1091,0)="""RTN"",""MCARPS1"",24,0)"
^XMB(3.9,73,2,1092,0)=" .I LLY=""P"",LLX=LL8 D CONT1"
^XMB(3.9,73,2,1093,0)="""RTN"",""MCARPS1"",25,0)"
^XMB(3.9,73,2,1094,0)=" I S5[694 S (LL,LL1)=$P($G(^MCAR(694,S6,0)),U,3) Q:'LL  S LL=$P(^MCAR(697.2,LL,0),U) G CONT1:'$D(PE) Q:PE'=LL  G CONT1"
^XMB(3.9,73,2,1095,0)="""RTN"",""MCARPS1"",26,0)"
^XMB(3.9,73,2,1096,0)=" ;MFD 2/5/93 I S5[700,$P($G(^MCAR(700,S6,2)),U)'=""Y"" Q  ;    exclude unreleased PFT"
^XMB(3.9,73,2,1097,0)="""RTN"",""MCARPS1"",27,0)"
^XMB(3.9,73,2,1098,0)=" S (LL,LL1)=$O(^MCAR(697.2,""C"",S5,0)),LL=$P(^MCAR(697.2,LL,0),U,1)"
^XMB(3.9,73,2,1099,0)="""RTN"",""MCARPS1"",28,0)"
^XMB(3.9,73,2,1100,0)="CONT1 ;"
^XMB(3.9,73,2,1101,0)="""RTN"",""MCARPS1"",29,0)"
^XMB(3.9,73,2,1102,0)=" S REC=$O(^MCAR(697.2,""B"",LL,0)) S:REC="""" REC=0"
^XMB(3.9,73,2,1103,0)="""RTN"",""MCARPS1"",30,0)"
^XMB(3.9,73,2,1104,0)=" S MCARCODE="""""
^XMB(3.9,73,2,1105,0)="""RTN"",""MCARPS1"",31,0)"
^XMB(3.9,73,2,1106,0)=" S MCESON=$P($G(^MCAR(697.2,REC,0)),U,14),MCESKEY=$P($G(^MCAR(697.2,REC,0)),U,15),MCSUP=+$P($G(^MCAR(697.2,REC,0)),U,16)"
^XMB(3.9,73,2,1107,0)="""RTN"",""MCARPS1"",32,0)"
^XMB(3.9,73,2,1108,0)=" S (MCARSUM,MCARPSUM)="""",MCARFILE=U_S5_"",""_S6_"",.2)"" S:$D(@MCARFILE) MCARSUM=$P(@MCARFILE,U,1),MCARPSUM=$P(@MCARFILE,U,2)"
^XMB(3.9,73,2,1109,0)="""RTN"",""MCARPS1"",33,0)"
^XMB(3.9,73,2,1110,0)=" K MCARFILE S S1=$S(WH=""P"":LL,1:S4),S2=$S(WH=""P"":S4,1:LL)"
^XMB(3.9,73,2,1111,0)="""RTN"",""MCARPS1"",34,0)"
^XMB(3.9,73,2,1112,0)=" S MCFILE=+$P(S5,""("",2)"
^XMB(3.9,73,2,1113,0)="""RTN"",""MCARPS1"",35,0)"
^XMB(3.9,73,2,1114,0)=" I MCESON,($G(MCESKEY)'=""""),('$$SCRSUMPT^MCESSCR(MCESKEY,S6,MCSUP)) K MCARSUM,MCARPSUM,MCFILE,REC,MCSUP Q"
^XMB(3.9,73,2,1115,0)="""RTN"",""MCARPS1"",36,0)"
^XMB(3.9,73,2,1116,0)=" I $P($G(@(U_S5_"",""_S6_"",""""ES"""")"")),U,7)=""S"" G EXIT  ;MC*2.3*8"
^XMB(3.9,73,2,1117,0)="""RTN"",""MCARPS1"",37,0)"
^XMB(3.9,73,2,1118,0)=" S S2=S2_U_S6  ;MC*2.3*8"
^XMB(3.9,73,2,1119,0)="""RTN"",""MCARPS1"",38,0)"
^XMB(3.9,73,2,1120,0)=" S ^TMP(""MCAR"",$J,S1,S2)=MCARSUM_U_S6_U_$P(^MCAR(697.2,LL1,0),U,5,7)"
^XMB(3.9,73,2,1121,0)="""RTN"",""MCARPS1"",39,0)"
^XMB(3.9,73,2,1122,0)=" S $P(^TMP(""MCAR"",$J,S1,S2),U,10)=MCARPSUM"
^XMB(3.9,73,2,1123,0)="""RTN"",""MCARPS1"",40,0)"
^XMB(3.9,73,2,1124,0)=" S $P(^TMP(""MCAR"",$J,S1,S2),U,11)=LL"
^XMB(3.9,73,2,1125,0)="""RTN"",""MCARPS1"",41,0)"
^XMB(3.9,73,2,1126,0)=" I S5=""MCAR(699.5"" D  ;MC*2.3*8"
^XMB(3.9,73,2,1127,0)="""RTN"",""MCARPS1"",42,0)"
^XMB(3.9,73,2,1128,0)=" .I LL8="""" S LL8="" """
^XMB(3.9,73,2,1129,0)="""RTN"",""MCARPS1"",43,0)"
^XMB(3.9,73,2,1130,0)=" .S $P(^TMP(""MCAR"",$J,S1,S2),U,12)=$E(($E($P($G(^MCAR(697.2,LL6,0)),U,8),1,13)_""/""_$P($G(^MCAR(697.2,LL8,0)),U)),1,31) K LL6,LL8"
^XMB(3.9,73,2,1131,0)="""RTN"",""MCARPS1"",44,0)"
^XMB(3.9,73,2,1132,0)="EXIT K MCARSUM,MCARPSUM,REC,MCSUP,MCESON Q"
^XMB(3.9,73,2,1133,0)="""RTN"",""MCARPS2"")"
^XMB(3.9,73,2,1134,0)="0^12^B18375280^B17411795"
^XMB(3.9,73,2,1135,0)="""RTN"",""MCARPS2"",1,0)"
^XMB(3.9,73,2,1136,0)="MCARPS2 ;SLC/dcm,WAA Summary of patient procedures for CPRS ;12/15/97  14:49"
^XMB(3.9,73,2,1137,0)="""RTN"",""MCARPS2"",2,0)"
^XMB(3.9,73,2,1138,0)=" ;;1.0;CLINICAL PROCEDURES;**5**;Apr 01, 2004;Build 1"
^XMB(3.9,73,2,1139,0)="""RTN"",""MCARPS2"",3,0)"
^XMB(3.9,73,2,1140,0)=" ;Modified from MCARPS1 for CPRS"
^XMB(3.9,73,2,1141,0)="""RTN"",""MCARPS2"",4,0)"
^XMB(3.9,73,2,1142,0)=" ; Reference DBIA # 3397 Medicine Report Support from CPRS."
^XMB(3.9,73,2,1143,0)="""RTN"",""MCARPS2"",5,0)"
^XMB(3.9,73,2,1144,0)=" ;                # 2263 XPAR parameter call."
^XMB(3.9,73,2,1145,0)="""RTN"",""MCARPS2"",6,0)"
^XMB(3.9,73,2,1146,0)="EN(DFN) ;Get procedures for a patient"
^XMB(3.9,73,2,1147,0)="""RTN"",""MCARPS2"",7,0)"
^XMB(3.9,73,2,1148,0)=" I '$$PATCH^XPDUTL(""MD*1.0*2"") G MED"
^XMB(3.9,73,2,1149,0)="""RTN"",""MCARPS2"",8,0)"
^XMB(3.9,73,2,1150,0)=" I $$FIND1^DIC(9.4,"""",""MX"",""MEDICINE"") Q:$$GET^XPAR(""SYS"",""MD MEDICINE CONVERTED"",1)&$D(S5)"
^XMB(3.9,73,2,1151,0)="""RTN"",""MCARPS2"",9,0)"
^XMB(3.9,73,2,1152,0)=" N MCGLB,MCBLK,MCRT K ^TMP(""OR"",$J,""MCAR"") S MCGLB=$NA(^TMP(""OR"",$J,""MCAR"",""OT""))"
^XMB(3.9,73,2,1153,0)="""RTN"",""MCARPS2"",10,0)"
^XMB(3.9,73,2,1154,0)=" S MCBLK="""",MCRT=""D EN1^MDPS1(.MCGLB,DFN,MCBLK,MCBLK,99999,MCBLK,MCBLK)"""
^XMB(3.9,73,2,1155,0)="""RTN"",""MCARPS2"",11,0)"
^XMB(3.9,73,2,1156,0)=" X MCRT"
^XMB(3.9,73,2,1157,0)="""RTN"",""MCARPS2"",12,0)"
^XMB(3.9,73,2,1158,0)=" Q"
^XMB(3.9,73,2,1159,0)="""RTN"",""MCARPS2"",13,0)"
^XMB(3.9,73,2,1160,0)="MED S WH="""""
^XMB(3.9,73,2,1161,0)="""RTN"",""MCARPS2"",14,0)"
^XMB(3.9,73,2,1162,0)=" K ^TMP(""OR"",$J,""MCAR"") S S4="""" F M=1:1 S S4=$O(^MCAR(690,""AC"",DFN,S4)) Q:S4=""""  D LOCFIL"
^XMB(3.9,73,2,1163,0)="""RTN"",""MCARPS2"",15,0)"
^XMB(3.9,73,2,1164,0)=" D PR0"
^XMB(3.9,73,2,1165,0)="""RTN"",""MCARPS2"",16,0)"
^XMB(3.9,73,2,1166,0)=" Q"
^XMB(3.9,73,2,1167,0)="""RTN"",""MCARPS2"",17,0)"
^XMB(3.9,73,2,1168,0)="LOCFIL G LOCFIL1:$D(S5) S S5="""" F K=1:1 S S5=$O(^MCAR(690,""AC"",DFN,S4,S5)) Q:S5=""""  D LOCFIL1"
^XMB(3.9,73,2,1169,0)="""RTN"",""MCARPS2"",18,0)"
^XMB(3.9,73,2,1170,0)=" K S5 Q"
^XMB(3.9,73,2,1171,0)="""RTN"",""MCARPS2"",19,0)"
^XMB(3.9,73,2,1172,0)="LOCFIL1 S S6="""" F L=1:1 S S6=$O(^MCAR(690,""AC"",DFN,S4,S5,S6)) Q:S6=""""  D CONT"
^XMB(3.9,73,2,1173,0)="""RTN"",""MCARPS2"",20,0)"
^XMB(3.9,73,2,1174,0)=" Q"
^XMB(3.9,73,2,1175,0)="""RTN"",""MCARPS2"",21,0)"
^XMB(3.9,73,2,1176,0)="CONT ;CONT+1 modified on 2-7-94,S MCFILE..2) added to conform w/alpha site"
^XMB(3.9,73,2,1177,0)="""RTN"",""MCARPS2"",22,0)"
^XMB(3.9,73,2,1178,0)=" Q:$O(^MDD(702,""ACONV"",S6_"";""_S5_"","",0))"
^XMB(3.9,73,2,1179,0)="""RTN"",""MCARPS2"",23,0)"
^XMB(3.9,73,2,1180,0)=" I $D(^MCAR(+$P(S5,""("",2),S6,2005)) S MCFILE=+$P(S5,""("",2) D SUM^MCMAG"
^XMB(3.9,73,2,1181,0)="""RTN"",""MCARPS2"",24,0)"
^XMB(3.9,73,2,1182,0)=" I S5=""MCAR(702.7"" Q"
^XMB(3.9,73,2,1183,0)="""RTN"",""MCARPS2"",25,0)"
^XMB(3.9,73,2,1184,0)=" I S5=""MCAR(699"" S (LL,LL1)=$P($G(^MCAR(699,S6,0)),U,12) Q:LL'>0  S LL=$P($G(^MCAR(697.2,LL,0)),U) G:'$D(PE) CONT1 Q:PE'=LL  G CONT1"
^XMB(3.9,73,2,1185,0)="""RTN"",""MCARPS2"",26,0)"
^XMB(3.9,73,2,1186,0)=" ;I S5=""MCAR(699.5"" S (LL,LL1)=$P($G(^MCAR(699.5,S6,0)),U,6) Q:'LL  S LL=$P($G(^MCAR(697.2,LL,0)),U) G CONT1:'$D(PE) Q:PE'=LL  G CONT1  ;MC*2.3*8"
^XMB(3.9,73,2,1187,0)="""RTN"",""MCARPS2"",27,0)"
^XMB(3.9,73,2,1188,0)=" I S5=""MCAR(699.5"",'$D(PE) D  Q  ;MC*2.3*8"
^XMB(3.9,73,2,1189,0)="""RTN"",""MCARPS2"",28,0)"
^XMB(3.9,73,2,1190,0)=" .S LL6=$P($G(^MCAR(699.5,S6,0)),U,6),LL8=$P($G(^MCAR(699.5,S6,0)),U,8)"
^XMB(3.9,73,2,1191,0)="""RTN"",""MCARPS2"",29,0)"
^XMB(3.9,73,2,1192,0)=" .S (LL,LL1)=$P($G(^MCAR(699.5,S6,0)),U,6) Q:'LL  S LL=$P($G(^MCAR(697.2,LL,0)),U) D CONT1"
^XMB(3.9,73,2,1193,0)="""RTN"",""MCARPS2"",30,0)"
^XMB(3.9,73,2,1194,0)=" I S5=""MCAR(699.5"",$D(PE) D  Q  ;MC*2.3*8"
^XMB(3.9,73,2,1195,0)="""RTN"",""MCARPS2"",31,0)"
^XMB(3.9,73,2,1196,0)=" .S LL6=$P($G(^MCAR(699.5,S6,0)),U,6),LL8=$P($G(^MCAR(699.5,S6,0)),U,8)"
^XMB(3.9,73,2,1197,0)="""RTN"",""MCARPS2"",32,0)"
^XMB(3.9,73,2,1198,0)=" .S (LL,LL1)=$P($G(^MCAR(699.5,S6,0)),U,6) Q:'LL  S LL=$P($G(^MCAR(697.2,LL,0)),U)"
^XMB(3.9,73,2,1199,0)="""RTN"",""MCARPS2"",33,0)"
^XMB(3.9,73,2,1200,0)=" .N LLX,LLY"
^XMB(3.9,73,2,1201,0)="""RTN"",""MCARPS2"",34,0)"
^XMB(3.9,73,2,1202,0)=" .S LLX=$O(^MCAR(697.2,""B"",PE,0)) Q:'LLX  S LLY=$P($G(^MCAR(697.2,LLX,1)),U)"
^XMB(3.9,73,2,1203,0)="""RTN"",""MCARPS2"",35,0)"
^XMB(3.9,73,2,1204,0)=" .I LLY=""S"",LLX=LL6 D CONT1"
^XMB(3.9,73,2,1205,0)="""RTN"",""MCARPS2"",36,0)"
^XMB(3.9,73,2,1206,0)=" .I LLY=""P"",LLX=LL8 D CONT1"
^XMB(3.9,73,2,1207,0)="""RTN"",""MCARPS2"",37,0)"
^XMB(3.9,73,2,1208,0)=" I S5[694 S (LL,LL1)=$P($G(^MCAR(694,S6,0)),U,3) Q:'LL  S LL=$P(^MCAR(697.2,LL,0),U) G CONT1:'$D(PE) Q:PE'=LL  G CONT1"
^XMB(3.9,73,2,1209,0)="""RTN"",""MCARPS2"",38,0)"
^XMB(3.9,73,2,1210,0)=" ;MFD 2/5/93 I S5[700,$P($G(^MCAR(700,S6,2)),U)'=""Y"" Q  ;    exclude unreleased PFT"
^XMB(3.9,73,2,1211,0)="""RTN"",""MCARPS2"",39,0)"
^XMB(3.9,73,2,1212,0)=" S (LL,LL1)=$O(^MCAR(697.2,""C"",S5,0)),LL=$P(^MCAR(697.2,LL,0),U,1)"
^XMB(3.9,73,2,1213,0)="""RTN"",""MCARPS2"",40,0)"
^XMB(3.9,73,2,1214,0)="CONT1 ;"
^XMB(3.9,73,2,1215,0)="""RTN"",""MCARPS2"",41,0)"
^XMB(3.9,73,2,1216,0)=" S REC=$O(^MCAR(697.2,""B"",LL,0)) S:REC="""" REC=0"
^XMB(3.9,73,2,1217,0)="""RTN"",""MCARPS2"",42,0)"
^XMB(3.9,73,2,1218,0)=" S MCARCODE="""""
^XMB(3.9,73,2,1219,0)="""RTN"",""MCARPS2"",43,0)"
^XMB(3.9,73,2,1220,0)=" S MCESON=$P($G(^MCAR(697.2,REC,0)),U,14),MCESKEY=$P($G(^MCAR(697.2,REC,0)),U,15),MCSUP=+$P($G(^MCAR(697.2,REC,0)),U,16)"
^XMB(3.9,73,2,1221,0)="""RTN"",""MCARPS2"",44,0)"
^XMB(3.9,73,2,1222,0)=" S (MCARSUM,MCARPSUM)="""",MCARFILE=U_S5_"",""_S6_"",.2)"" S:$D(@MCARFILE) MCARSUM=$P(@MCARFILE,U,1),MCARPSUM=$P(@MCARFILE,U,2)"
^XMB(3.9,73,2,1223,0)="""RTN"",""MCARPS2"",45,0)"
^XMB(3.9,73,2,1224,0)=" K MCARFILE S S1=$S(WH=""P"":LL,1:S4),S2=$S(WH=""P"":S4,1:LL)"
^XMB(3.9,73,2,1225,0)="""RTN"",""MCARPS2"",46,0)"
^XMB(3.9,73,2,1226,0)=" S MCFILE=+$P(S5,""("",2)"
^XMB(3.9,73,2,1227,0)="""RTN"",""MCARPS2"",47,0)"
^XMB(3.9,73,2,1228,0)=" I MCESON,($G(MCESKEY)'=""""),('$$SCRSUMPT^MCESSCR(MCESKEY,S6,MCSUP)) K MCARSUM,MCARPSUM,MCFILE,REC,MCSUP Q"
^XMB(3.9,73,2,1229,0)="""RTN"",""MCARPS2"",48,0)"
^XMB(3.9,73,2,1230,0)=" I '$$VALID^MCARUTL5(S5,S6,DFN) Q  ; MC*2.3*33"
^XMB(3.9,73,2,1231,0)="""RTN"",""MCARPS2"",49,0)"
^XMB(3.9,73,2,1232,0)=" I $P($G(@(U_S5_"",""_S6_"",""""ES"""")"")),U,7)=""S"" G EXIT  ;MC*2.3*8"
^XMB(3.9,73,2,1233,0)="""RTN"",""MCARPS2"",50,0)"
^XMB(3.9,73,2,1234,0)=" S S2=S2_U_S6  ;MC*2.3*8"
^XMB(3.9,73,2,1235,0)="""RTN"",""MCARPS2"",51,0)"
^XMB(3.9,73,2,1236,0)=" S ^TMP(""OR"",$J,""MCAR"",S1,S2)=MCARSUM_U_S6_U_$P(^MCAR(697.2,LL1,0),U,5,7)"
^XMB(3.9,73,2,1237,0)="""RTN"",""MCARPS2"",52,0)"
^XMB(3.9,73,2,1238,0)=" ;I $P(^MCAR(697.2,LL1,0),U,2)'=S5 S $P(^TMP(""OR"",$J,""MCAR"",S1,S2),U,3,5)=""EN1^MCARGP^CONSULTS"" ; MC*2.3*33"
^XMB(3.9,73,2,1239,0)="""RTN"",""MCARPS2"",53,0)"
^XMB(3.9,73,2,1240,0)=" ;I $P(^MCAR(697.2,LL1,0),U,2)'=S5 S $P(^TMP(""OR"",$J,""MCAR"",S1,S2),U,3,5)=""EN1^MCARGP^NONENDO"" ; MC*2.3*33"
^XMB(3.9,73,2,1241,0)="""RTN"",""MCARPS2"",54,0)"
^XMB(3.9,73,2,1242,0)=" ;I $P(^MCAR(697.2,LL1,0),U,2)'=S5 S $P(^TMP(""OR"",$J,""MCAR"",S1,S2),U,3,5)=""EN1^MCARGP^GI"" ; MC*2.3*33"
^XMB(3.9,73,2,1243,0)="""RTN"",""MCARPS2"",55,0)"
^XMB(3.9,73,2,1244,0)=" I $P(^MCAR(697.2,LL1,0),U,2)'=S5 S $P(^TMP(""OR"",$J,""MCAR"",S1,S2),U,3,5)=""EN1^MCARGP^PARAC"" ; MC*2.3*33"
^XMB(3.9,73,2,1245,0)="""RTN"",""MCARPS2"",56,0)"
^XMB(3.9,73,2,1246,0)=" S $P(^TMP(""OR"",$J,""MCAR"",S1,S2),U,10)=MCARPSUM"
^XMB(3.9,73,2,1247,0)="""RTN"",""MCARPS2"",57,0)"
^XMB(3.9,73,2,1248,0)=" S $P(^TMP(""OR"",$J,""MCAR"",S1,S2),U,11)=LL"
^XMB(3.9,73,2,1249,0)="""RTN"",""MCARPS2"",58,0)"
^XMB(3.9,73,2,1250,0)=" I S5=""MCAR(699.5"" D  ;MC*2.3*8"
^XMB(3.9,73,2,1251,0)="""RTN"",""MCARPS2"",59,0)"
^XMB(3.9,73,2,1252,0)=" .I LL8="""" S LL8="" """
^XMB(3.9,73,2,1253,0)="""RTN"",""MCARPS2"",60,0)"
^XMB(3.9,73,2,1254,0)=" .S $P(^TMP(""OR"",$J,""MCAR"",S1,S2),U,12)=$E(($E($P($G(^MCAR(697.2,LL6,0)),U,8),1,13)_""/""_$P($G(^MCAR(697.2,LL8,0)),U)),1,31) K LL6,LL8"
^XMB(3.9,73,2,1255,0)="""RTN"",""MCARPS2"",61,0)"
^XMB(3.9,73,2,1256,0)="EXIT K MCARSUM,MCARPSUM,REC,MCSUP,MCESON Q"
^XMB(3.9,73,2,1257,0)="""RTN"",""MCARPS2"",62,0)"
^XMB(3.9,73,2,1258,0)="PR0 S I="""",L=0"
^XMB(3.9,73,2,1259,0)="""RTN"",""MCARPS2"",63,0)"
^XMB(3.9,73,2,1260,0)=" F  S I=$O(^TMP(""OR"",$J,""MCAR"",I)) Q:I=""""  I I'=""OT"" D"
^XMB(3.9,73,2,1261,0)="""RTN"",""MCARPS2"",64,0)"
^XMB(3.9,73,2,1262,0)=" . S J="""" F  S J=$O(^TMP(""OR"",$J,""MCAR"",I,J)) Q:J=""""  S PR=^(J) D"
^XMB(3.9,73,2,1263,0)="""RTN"",""MCARPS2"",65,0)"
^XMB(3.9,73,2,1264,0)=" .. Q:$P(PR,U,3,5)=""^^""  ; MC*2.3*33"
^XMB(3.9,73,2,1265,0)="""RTN"",""MCARPS2"",66,0)"
^XMB(3.9,73,2,1266,0)=" .. S MCARDT=$S(WH=""P"":$P(J,U),1:I),MCARPROC=$S(WH=""P"":I,1:$P(J,U))"
^XMB(3.9,73,2,1267,0)="""RTN"",""MCARPS2"",67,0)"
^XMB(3.9,73,2,1268,0)=" .. S MCARPROC=$O(^MCAR(697.2,""B"",MCARPROC,0)),MCARPROC=$P(^MCAR(697.2,MCARPROC,0),U,8)"
^XMB(3.9,73,2,1269,0)="""RTN"",""MCARPS2"",68,0)"
^XMB(3.9,73,2,1270,0)=" .. I $P(PR,U,12)'="""" S MCARPROC=$P(PR,U,12)"
^XMB(3.9,73,2,1271,0)="""RTN"",""MCARPS2"",69,0)"
^XMB(3.9,73,2,1272,0)=" .. S DA=$P(PR,U,2),K=$P(PR,U),M=$P(PR,U,10)"
^XMB(3.9,73,2,1273,0)="""RTN"",""MCARPS2"",70,0)"
^XMB(3.9,73,2,1274,0)=" .. S K=$S(K=""N""!(K=""L""):""NORMAL"",K=""A"":""ABNORMAL"",K=""B"":""BORDERLINE"",K=""T"":""TECHNICALLY UNSATISFACTORY"",K=""ND"":""NON-DIAGNOSTIC"",K=""MI"":""MILDLY ABNORMAL"",K=""MO"":""MODERATELY ABNORMAL"",K=""S"":""SEVERELY ABNORMAL"",1:"""")"
^XMB(3.9,73,2,1275,0)="""RTN"",""MCARPS2"",71,0)"
^XMB(3.9,73,2,1276,0)=" .. S Y=9999999.9999-MCARDT X ^DD(""DD"")"
^XMB(3.9,73,2,1277,0)="""RTN"",""MCARPS2"",72,0)"
^XMB(3.9,73,2,1278,0)=" .. S L=L+1 S ^TMP(""OR"",$J,""MCAR"",""OT"",L)=MCARPROC_U_DA_U_$P(PR,U,3,5)_U_J S $P(^(L),U,6)=Y,$P(^(L),U,7)=K,$P(^(L),U,10)=M,$P(^(L),U,11)=$S(WH=""P"":I_U_$P(J,U,2),1:J)"
^XMB(3.9,73,2,1279,0)="""RTN"",""MCARPS2"",73,0)"
^XMB(3.9,73,2,1280,0)=" Q"
^XMB(3.9,73,2,1281,0)="""RTN"",""MCARPS3"")"
^XMB(3.9,73,2,1282,0)="0^13^B17072262^B16808255"
^XMB(3.9,73,2,1283,0)="""RTN"",""MCARPS3"",1,0)"
^XMB(3.9,73,2,1284,0)="MCARPS3 ; HOIFO/NCA - Get Procedures for Medicine and CP ;1/13/04  14:35"
^XMB(3.9,73,2,1285,0)="""RTN"",""MCARPS3"",2,0)"
^XMB(3.9,73,2,1286,0)=" ;;1.0;CLINICAL PROCEDURES;**5**;Apr 01, 2004;Build 1"
^XMB(3.9,73,2,1287,0)="""RTN"",""MCARPS3"",3,0)"
^XMB(3.9,73,2,1288,0)=" ;Modified from MCARPS2 for CPRS"
^XMB(3.9,73,2,1289,0)="""RTN"",""MCARPS3"",4,0)"
^XMB(3.9,73,2,1290,0)=" ; Please Reference DBIA # 3397"
^XMB(3.9,73,2,1291,0)="""RTN"",""MCARPS3"",5,0)"
^XMB(3.9,73,2,1292,0)="EN(MCDFN,CODE,MDSDT,MDEDT) ;Get procedures for a patient"
^XMB(3.9,73,2,1293,0)="""RTN"",""MCARPS3"",6,0)"
^XMB(3.9,73,2,1294,0)=" S WH="""" K ^TMP(""OR"",$J,""MCAR"")"
^XMB(3.9,73,2,1295,0)="""RTN"",""MCARPS3"",7,0)"
^XMB(3.9,73,2,1296,0)=" N MDGBL,MDPTR"
^XMB(3.9,73,2,1297,0)="""RTN"",""MCARPS3"",8,0)"
^XMB(3.9,73,2,1298,0)=" S MDGBL=""^MCAR(690,""""AC"""",MCDFN)"""
^XMB(3.9,73,2,1299,0)="""RTN"",""MCARPS3"",9,0)"
^XMB(3.9,73,2,1300,0)=" F  S MDGBL=$Q(@MDGBL) Q:MDGBL=""""  Q:$QS(MDGBL,3)'=MCDFN  D"
^XMB(3.9,73,2,1301,0)="""RTN"",""MCARPS3"",10,0)"
^XMB(3.9,73,2,1302,0)=" .S MDPTR=$QS(MDGBL,6)_"";""_$QS(MDGBL,5)_"","",S4=$QS(MDGBL,4),S5=$QS(MDGBL,5),S6=$QS(MDGBL,6)"
^XMB(3.9,73,2,1303,0)="""RTN"",""MCARPS3"",11,0)"
^XMB(3.9,73,2,1304,0)=" .D CONT"
^XMB(3.9,73,2,1305,0)="""RTN"",""MCARPS3"",12,0)"
^XMB(3.9,73,2,1306,0)=" D PR0"
^XMB(3.9,73,2,1307,0)="""RTN"",""MCARPS3"",13,0)"
^XMB(3.9,73,2,1308,0)=" K S5 Q"
^XMB(3.9,73,2,1309,0)="""RTN"",""MCARPS3"",14,0)"
^XMB(3.9,73,2,1310,0)="CONT ;CONT+1 modified on 2-7-94,S MCFILE..2) added to conform w/alpha site"
^XMB(3.9,73,2,1311,0)="""RTN"",""MCARPS3"",15,0)"
^XMB(3.9,73,2,1312,0)=" Q:$O(^MDD(702,""ACONV"",S6_"";""_S5_"","",0))"
^XMB(3.9,73,2,1313,0)="""RTN"",""MCARPS3"",16,0)"
^XMB(3.9,73,2,1314,0)=" I $D(^MCAR(+$P(S5,""("",2),S6,2005)) S MCFILE=+$P(S5,""("",2) D SUM^MCMAG"
^XMB(3.9,73,2,1315,0)="""RTN"",""MCARPS3"",17,0)"
^XMB(3.9,73,2,1316,0)=" I S5=""MCAR(702.7"" Q"
^XMB(3.9,73,2,1317,0)="""RTN"",""MCARPS3"",18,0)"
^XMB(3.9,73,2,1318,0)=" I S5=""MCAR(699"" S (LL,LL1)=$P($G(^MCAR(699,S6,0)),U,12) Q:LL'>0  S LL=$P($G(^MCAR(697.2,LL,0)),U) G:'$D(PE) CONT1 Q:PE'=LL  G CONT1"
^XMB(3.9,73,2,1319,0)="""RTN"",""MCARPS3"",19,0)"
^XMB(3.9,73,2,1320,0)=" I S5=""MCAR(699.5"",'$D(PE) D  Q  ;MC*2.3*8"
^XMB(3.9,73,2,1321,0)="""RTN"",""MCARPS3"",20,0)"
^XMB(3.9,73,2,1322,0)=" .S LL6=$P($G(^MCAR(699.5,S6,0)),U,6),LL8=$P($G(^MCAR(699.5,S6,0)),U,8)"
^XMB(3.9,73,2,1323,0)="""RTN"",""MCARPS3"",21,0)"
^XMB(3.9,73,2,1324,0)=" .S (LL,LL1)=$P($G(^MCAR(699.5,S6,0)),U,6) Q:'LL  S LL=$P($G(^MCAR(697.2,LL,0)),U) D CONT1"
^XMB(3.9,73,2,1325,0)="""RTN"",""MCARPS3"",22,0)"
^XMB(3.9,73,2,1326,0)=" I S5=""MCAR(699.5"",$D(PE) D  Q  ;MC*2.3*8"
^XMB(3.9,73,2,1327,0)="""RTN"",""MCARPS3"",23,0)"
^XMB(3.9,73,2,1328,0)=" .S LL6=$P($G(^MCAR(699.5,S6,0)),U,6),LL8=$P($G(^MCAR(699.5,S6,0)),U,8)"
^XMB(3.9,73,2,1329,0)="""RTN"",""MCARPS3"",24,0)"
^XMB(3.9,73,2,1330,0)=" .S (LL,LL1)=$P($G(^MCAR(699.5,S6,0)),U,6) Q:'LL  S LL=$P($G(^MCAR(697.2,LL,0)),U)"
^XMB(3.9,73,2,1331,0)="""RTN"",""MCARPS3"",25,0)"
^XMB(3.9,73,2,1332,0)=" .N LLX,LLY"
^XMB(3.9,73,2,1333,0)="""RTN"",""MCARPS3"",26,0)"
^XMB(3.9,73,2,1334,0)=" .S LLX=$O(^MCAR(697.2,""B"",PE,0)) Q:'LLX  S LLY=$P($G(^MCAR(697.2,LLX,1)),U)"
^XMB(3.9,73,2,1335,0)="""RTN"",""MCARPS3"",27,0)"
^XMB(3.9,73,2,1336,0)=" .I LLY=""S"",LLX=LL6 D CONT1"
^XMB(3.9,73,2,1337,0)="""RTN"",""MCARPS3"",28,0)"
^XMB(3.9,73,2,1338,0)=" .I LLY=""P"",LLX=LL8 D CONT1"
^XMB(3.9,73,2,1339,0)="""RTN"",""MCARPS3"",29,0)"
^XMB(3.9,73,2,1340,0)=" I S5[694 S (LL,LL1)=$P($G(^MCAR(694,S6,0)),U,3) Q:'LL  S LL=$P(^MCAR(697.2,LL,0),U) G CONT1:'$D(PE) Q:PE'=LL  G CONT1"
^XMB(3.9,73,2,1341,0)="""RTN"",""MCARPS3"",30,0)"
^XMB(3.9,73,2,1342,0)=" ;MFD 2/5/93 I S5[700,$P($G(^MCAR(700,S6,2)),U)'=""Y"" Q  ;    exclude unreleased PFT"
^XMB(3.9,73,2,1343,0)="""RTN"",""MCARPS3"",31,0)"
^XMB(3.9,73,2,1344,0)=" S (LL,LL1)=$O(^MCAR(697.2,""C"",S5,0)),LL=$P(^MCAR(697.2,LL,0),U,1)"
^XMB(3.9,73,2,1345,0)="""RTN"",""MCARPS3"",32,0)"
^XMB(3.9,73,2,1346,0)="CONT1 ;"
^XMB(3.9,73,2,1347,0)="""RTN"",""MCARPS3"",33,0)"
^XMB(3.9,73,2,1348,0)=" S REC=$O(^MCAR(697.2,""B"",LL,0)) S:REC="""" REC=0"
^XMB(3.9,73,2,1349,0)="""RTN"",""MCARPS3"",34,0)"
^XMB(3.9,73,2,1350,0)=" S MCARCODE="""""
^XMB(3.9,73,2,1351,0)="""RTN"",""MCARPS3"",35,0)"
^XMB(3.9,73,2,1352,0)=" S MCESON=$P($G(^MCAR(697.2,REC,0)),U,14),MCESKEY=$P($G(^MCAR(697.2,REC,0)),U,15),MCSUP=+$P($G(^MCAR(697.2,REC,0)),U,16)"
^XMB(3.9,73,2,1353,0)="""RTN"",""MCARPS3"",36,0)"
^XMB(3.9,73,2,1354,0)=" S (MCARSUM,MCARPSUM)="""",MCARFILE=U_S5_"",""_S6_"",.2)"" S:$D(@MCARFILE) MCARSUM=$P(@MCARFILE,U,1),MCARPSUM=$P(@MCARFILE,U,2)"
^XMB(3.9,73,2,1355,0)="""RTN"",""MCARPS3"",37,0)"
^XMB(3.9,73,2,1356,0)=" K MCARFILE S S1=$S(WH=""P"":LL,1:S4),S2=$S(WH=""P"":S4,1:LL)"
^XMB(3.9,73,2,1357,0)="""RTN"",""MCARPS3"",38,0)"
^XMB(3.9,73,2,1358,0)=" S MCFILE=+$P(S5,""("",2)"
^XMB(3.9,73,2,1359,0)="""RTN"",""MCARPS3"",39,0)"
^XMB(3.9,73,2,1360,0)=" I MCESON,($G(MCESKEY)'=""""),('$$SCRSUMPT^MCESSCR(MCESKEY,S6,MCSUP)) K MCARSUM,MCARPSUM,MCFILE,REC,MCSUP Q"
^XMB(3.9,73,2,1361,0)="""RTN"",""MCARPS3"",40,0)"
^XMB(3.9,73,2,1362,0)=" I '$$VALID^MCARUTL5(S5,S6,MCDFN) Q  ; MC*2.3*33"
^XMB(3.9,73,2,1363,0)="""RTN"",""MCARPS3"",41,0)"
^XMB(3.9,73,2,1364,0)=" I $P($G(@(U_S5_"",""_S6_"",""""ES"""")"")),U,7)=""S"" G EXIT  ;MC*2.3*8"
^XMB(3.9,73,2,1365,0)="""RTN"",""MCARPS3"",42,0)"
^XMB(3.9,73,2,1366,0)=" S S2=S2_U_S6  ;MC*2.3*8"
^XMB(3.9,73,2,1367,0)="""RTN"",""MCARPS3"",43,0)"
^XMB(3.9,73,2,1368,0)=" S ^TMP(""OR"",$J,""MCAR"",S1,S2)=MCARSUM_U_S6_"";""_S5_"",""_U_$P(^MCAR(697.2,LL1,0),U,5,7)"
^XMB(3.9,73,2,1369,0)="""RTN"",""MCARPS3"",44,0)"
^XMB(3.9,73,2,1370,0)=" ;I $P(^MCAR(697.2,LL1,0),U,2)'=S5 S $P(^TMP(""OR"",$J,""MCAR"",S1,S2),U,3,5)=""EN1^MCARGP^CONSULTS"" ; MC*2.3*33"
^XMB(3.9,73,2,1371,0)="""RTN"",""MCARPS3"",45,0)"
^XMB(3.9,73,2,1372,0)=" ;I $P(^MCAR(697.2,LL1,0),U,2)'=S5 S $P(^TMP(""OR"",$J,""MCAR"",S1,S2),U,3,5)=""EN1^MCARGP^NONENDO"" ; MC*2.3*33"
^XMB(3.9,73,2,1373,0)="""RTN"",""MCARPS3"",46,0)"
^XMB(3.9,73,2,1374,0)=" ;I $P(^MCAR(697.2,LL1,0),U,2)'=S5 S $P(^TMP(""OR"",$J,""MCAR"",S1,S2),U,3,5)=""EN1^MCARGP^GI"" ; MC*2.3*33"
^XMB(3.9,73,2,1375,0)="""RTN"",""MCARPS3"",47,0)"
^XMB(3.9,73,2,1376,0)=" I $P(^MCAR(697.2,LL1,0),U,2)'=S5 S $P(^TMP(""OR"",$J,""MCAR"",S1,S2),U,3,5)=""EN1^MCARGP^PARAC"" ; MC*2.3*33"
^XMB(3.9,73,2,1377,0)="""RTN"",""MCARPS3"",48,0)"
^XMB(3.9,73,2,1378,0)=" S $P(^TMP(""OR"",$J,""MCAR"",S1,S2),U,10)=MCARPSUM"
^XMB(3.9,73,2,1379,0)="""RTN"",""MCARPS3"",49,0)"
^XMB(3.9,73,2,1380,0)=" S $P(^TMP(""OR"",$J,""MCAR"",S1,S2),U,11)=LL"
^XMB(3.9,73,2,1381,0)="""RTN"",""MCARPS3"",50,0)"
^XMB(3.9,73,2,1382,0)=" I S5=""MCAR(699.5"" D  ;MC*2.3*8"
^XMB(3.9,73,2,1383,0)="""RTN"",""MCARPS3"",51,0)"
^XMB(3.9,73,2,1384,0)=" .I LL8="""" S LL8="" """
^XMB(3.9,73,2,1385,0)="""RTN"",""MCARPS3"",52,0)"
^XMB(3.9,73,2,1386,0)=" .S $P(^TMP(""OR"",$J,""MCAR"",S1,S2),U,12)=$E(($E($P($G(^MCAR(697.2,LL6,0)),U,8),1,13)_""/""_$P($G(^MCAR(697.2,LL8,0)),U)),1,31) K LL6,LL8"
^XMB(3.9,73,2,1387,0)="""RTN"",""MCARPS3"",53,0)"
^XMB(3.9,73,2,1388,0)="EXIT K MCARSUM,MCARPSUM,REC,MCSUP,MCESON Q"
^XMB(3.9,73,2,1389,0)="""RTN"",""MCARPS3"",54,0)"
^XMB(3.9,73,2,1390,0)="PR0 S I="""",L=0"
^XMB(3.9,73,2,1391,0)="""RTN"",""MCARPS3"",55,0)"
^XMB(3.9,73,2,1392,0)=" F  S I=$O(^TMP(""OR"",$J,""MCAR"",I)) Q:I=""""  I I'=""OT"" D"
^XMB(3.9,73,2,1393,0)="""RTN"",""MCARPS3"",56,0)"
^XMB(3.9,73,2,1394,0)=" . S J="""" F  S J=$O(^TMP(""OR"",$J,""MCAR"",I,J)) Q:J=""""  S PR=^(J) D"
^XMB(3.9,73,2,1395,0)="""RTN"",""MCARPS3"",57,0)"
^XMB(3.9,73,2,1396,0)=" .. Q:$P(PR,U,3,5)=""^^""  ; MC*2.3*33"
^XMB(3.9,73,2,1397,0)="""RTN"",""MCARPS3"",58,0)"
^XMB(3.9,73,2,1398,0)=" .. S MCARDT=$S(WH=""P"":$P(J,U),1:I),MCARPROC=$S(WH=""P"":I,1:$P(J,U))"
^XMB(3.9,73,2,1399,0)="""RTN"",""MCARPS3"",59,0)"
^XMB(3.9,73,2,1400,0)=" .. S MCARPROC=$O(^MCAR(697.2,""B"",MCARPROC,0)),MCARPROC=$P(^MCAR(697.2,MCARPROC,0),U,8)"
^XMB(3.9,73,2,1401,0)="""RTN"",""MCARPS3"",60,0)"
^XMB(3.9,73,2,1402,0)=" .. I $P(PR,U,12)'="""" S MCARPROC=$P(PR,U,12)"
^XMB(3.9,73,2,1403,0)="""RTN"",""MCARPS3"",61,0)"
^XMB(3.9,73,2,1404,0)=" .. S DA=$P(PR,U,2),K=$P(PR,U),M=$P(PR,U,10)"
^XMB(3.9,73,2,1405,0)="""RTN"",""MCARPS3"",62,0)"
^XMB(3.9,73,2,1406,0)=" .. S K=$S(K=""N""!(K=""L""):""NORMAL"",K=""A"":""ABNORMAL"",K=""B"":""BORDERLINE"",K=""T"":""TECHNICALLY UNSATISFACTORY"",K=""ND"":""NON-DIAGNOSTIC"",K=""MI"":""MILDLY ABNORMAL"",K=""MO"":""MODERATELY ABNORMAL"",K=""S"":""SEVERELY ABNORMAL"",1:"""")"
^XMB(3.9,73,2,1407,0)="""RTN"",""MCARPS3"",63,0)"
^XMB(3.9,73,2,1408,0)=" ..I CODE'="""" Q:CODE'=K"
^XMB(3.9,73,2,1409,0)="""RTN"",""MCARPS3"",64,0)"
^XMB(3.9,73,2,1410,0)=" ..I +$G(MDSDT) Q:(9999999.9999-MCARDT)<+$G(MDSDT)"
^XMB(3.9,73,2,1411,0)="""RTN"",""MCARPS3"",65,0)"
^XMB(3.9,73,2,1412,0)=" ..I +$G(MDEDT) Q:(9999999.9999-MCARDT)>+$G(MDEDT)"
^XMB(3.9,73,2,1413,0)="""RTN"",""MCARPS3"",66,0)"
^XMB(3.9,73,2,1414,0)=" ..N MCDT S MCDT=MCARDT,Y=9999999.9999-MCARDT X ^DD(""DD"")"
^XMB(3.9,73,2,1415,0)="""RTN"",""MCARPS3"",67,0)"
^XMB(3.9,73,2,1416,0)=" ..S L=MCARPROC_""~""_DA"
^XMB(3.9,73,2,1417,0)="""RTN"",""MCARPS3"",68,0)"
^XMB(3.9,73,2,1418,0)=" ..S ^TMP(""MDPLST"",$J,MCDT,L)=MCARPROC_U_+DA_U_""PR690^MDPS1""_U_$P(PR,U,5)_U_J S $P(^(L),U,6)=Y,$P(^(L),U,7)=K,$P(^(L),U,10)=M,$P(^(L),U,11)=$S(WH=""P"":I_U_$P(J,U,2),1:J)"
^XMB(3.9,73,2,1419,0)="""RTN"",""MCARPS3"",69,0)"
^XMB(3.9,73,2,1420,0)=" K ^TMP(""OR"",$J,""MCAR"")"
^XMB(3.9,73,2,1421,0)="""RTN"",""MCARPS3"",70,0)"
^XMB(3.9,73,2,1422,0)=" Q"
^XMB(3.9,73,2,1423,0)="""RTN"",""MCORMN"")"
^XMB(3.9,73,2,1424,0)="0^14^B27253923^B26988124"
^XMB(3.9,73,2,1425,0)="""RTN"",""MCORMN"",1,0)"
^XMB(3.9,73,2,1426,0)="MCORMN ;WISC/DCB-Front-end for Health Summary ;4/26/04  11:54"
^XMB(3.9,73,2,1427,0)="""RTN"",""MCORMN"",2,0)"
^XMB(3.9,73,2,1428,0)=" ;;1.0;CLINICAL PROCEDURES;**5**;Apr 01, 2004;Build 1"
^XMB(3.9,73,2,1429,0)="""RTN"",""MCORMN"",3,0)"
^XMB(3.9,73,2,1430,0)=" ; Reference IA #1236 for Medicine and Health Summary interface."
^XMB(3.9,73,2,1431,0)="""RTN"",""MCORMN"",4,0)"
^XMB(3.9,73,2,1432,0)=" ;              #3778 for Medicine and Health Summary interface for RDV"
^XMB(3.9,73,2,1433,0)="""RTN"",""MCORMN"",5,0)"
^XMB(3.9,73,2,1434,0)=" ;              #10070 for XMD API call."
^XMB(3.9,73,2,1435,0)="""RTN"",""MCORMN"",6,0)"
^XMB(3.9,73,2,1436,0)=" ;              #10064 for XM call."
^XMB(3.9,73,2,1437,0)="""RTN"",""MCORMN"",7,0)"
^XMB(3.9,73,2,1438,0)=" ;              #10090 DIC(4) Read Access."
^XMB(3.9,73,2,1439,0)="""RTN"",""MCORMN"",8,0)"
^XMB(3.9,73,2,1440,0)=" ;              #10106 for HLFNC calls."
^XMB(3.9,73,2,1441,0)="""RTN"",""MCORMN"",9,0)"
^XMB(3.9,73,2,1442,0)=" ;              #10113 for Access to ^XMB(3.9,#,2)"
^XMB(3.9,73,2,1443,0)="""RTN"",""MCORMN"",10,0)"
^XMB(3.9,73,2,1444,0)="HL7(MESSNUMB) ;This is the HL7 entry point for queries"
^XMB(3.9,73,2,1445,0)="""RTN"",""MCORMN"",11,0)"
^XMB(3.9,73,2,1446,0)=" N MSH,TEMP,ORD,ST,MSTR,BDATE,EDATE,OCC,PROC,PATID,MCTDEC,XMZ,MCLINE"
^XMB(3.9,73,2,1447,0)="""RTN"",""MCORMN"",12,0)"
^XMB(3.9,73,2,1448,0)=" N QDT,QFC,QP,QID,RAP,GNODE,ATYPE"
^XMB(3.9,73,2,1449,0)="""RTN"",""MCORMN"",13,0)"
^XMB(3.9,73,2,1450,0)=" Q:+MESSNUMB=0 0"
^XMB(3.9,73,2,1451,0)="""RTN"",""MCORMN"",14,0)"
^XMB(3.9,73,2,1452,0)=" S GNODE=""^XMB(3.9,""_MESSNUMB_"",2)"""
^XMB(3.9,73,2,1453,0)="""RTN"",""MCORMN"",15,0)"
^XMB(3.9,73,2,1454,0)=" S MSH=$G(@GNODE@(1,0)) I MSH="""" D ERROR Q 0"
^XMB(3.9,73,2,1455,0)="""RTN"",""MCORMN"",16,0)"
^XMB(3.9,73,2,1456,0)=" S MSTR=$E(MSH,4,9) D SLIP^MCORMN0(MSTR)"
^XMB(3.9,73,2,1457,0)="""RTN"",""MCORMN"",17,0)"
^XMB(3.9,73,2,1458,0)=" S QRD=$G(@GNODE@(2,0)) I QRD="""" D ERROR Q 0"
^XMB(3.9,73,2,1459,0)="""RTN"",""MCORMN"",18,0)"
^XMB(3.9,73,2,1460,0)=" S QFC=$P(QRD,ST(1),3) I QFC'=""R"" D ERROR Q 0"
^XMB(3.9,73,2,1461,0)="""RTN"",""MCORMN"",19,0)"
^XMB(3.9,73,2,1462,0)=" S QLR=$P(QRD,ST(1),8),OCC=$P(QLR,ST(2),2),ATYPE=$P(QLR,ST(2),1)"
^XMB(3.9,73,2,1463,0)="""RTN"",""MCORMN"",20,0)"
^XMB(3.9,73,2,1464,0)=" S PATID=+$P(QRD,ST(1),9)"
^XMB(3.9,73,2,1465,0)="""RTN"",""MCORMN"",21,0)"
^XMB(3.9,73,2,1466,0)=" I '$D(^MCAR(690,""AC"",PATID)) D ERROR Q """""
^XMB(3.9,73,2,1467,0)="""RTN"",""MCORMN"",22,0)"
^XMB(3.9,73,2,1468,0)=" S PROC=$P(QRD,ST(1),11)"
^XMB(3.9,73,2,1469,0)="""RTN"",""MCORMN"",23,0)"
^XMB(3.9,73,2,1470,0)=" S TEMP=$P(QRD,ST(1),12) S BDATE=$P(TEMP,ST(2),1),EDATE=$P(TEMP,ST(2),2)"
^XMB(3.9,73,2,1471,0)="""RTN"",""MCORMN"",24,0)"
^XMB(3.9,73,2,1472,0)=" S BDATE=$$FMDATE^HLFNC(BDATE),EDATE=$$FMDATE^HLFNC(EDATE)"
^XMB(3.9,73,2,1473,0)="""RTN"",""MCORMN"",25,0)"
^XMB(3.9,73,2,1474,0)=" S RAP=$P(MSH,ST(1),3)"
^XMB(3.9,73,2,1475,0)="""RTN"",""MCORMN"",26,0)"
^XMB(3.9,73,2,1476,0)=" S MCTDEC=""^TMP(""""MCAR1"""",$J)"",GLOBAL=1"
^XMB(3.9,73,2,1477,0)="""RTN"",""MCORMN"",27,0)"
^XMB(3.9,73,2,1478,0)=" D HSUM(RAP,PATID,BDATE,EDATE,OCC,PROC,MSTR,MCTDEC,.GLOBAL,ATYPE)"
^XMB(3.9,73,2,1479,0)="""RTN"",""MCORMN"",28,0)"
^XMB(3.9,73,2,1480,0)=" I GLOBAL=0 S ^TMP(""MCAR1"",$J,1)="""" Q 0"
^XMB(3.9,73,2,1481,0)="""RTN"",""MCORMN"",29,0)"
^XMB(3.9,73,2,1482,0)=" I GLOBAL'=0 D"
^XMB(3.9,73,2,1483,0)="""RTN"",""MCORMN"",30,0)"
^XMB(3.9,73,2,1484,0)=" .S XMSUB=""Medicine Response"",XMDUN=""Medicine"",XMDUZ=.5"
^XMB(3.9,73,2,1485,0)="""RTN"",""MCORMN"",31,0)"
^XMB(3.9,73,2,1486,0)=" .S XMTEXT=""^TMP(""""MCAR1"""",$J,"",XMY(""G.MC MESSAGING SERVER"")="""""
^XMB(3.9,73,2,1487,0)="""RTN"",""MCORMN"",32,0)"
^XMB(3.9,73,2,1488,0)=" .;S XMY(DUZ)="""""
^XMB(3.9,73,2,1489,0)="""RTN"",""MCORMN"",33,0)"
^XMB(3.9,73,2,1490,0)=" .D ^XMD"
^XMB(3.9,73,2,1491,0)="""RTN"",""MCORMN"",34,0)"
^XMB(3.9,73,2,1492,0)=" .S GLOBAL=+$G(XMZ)"
^XMB(3.9,73,2,1493,0)="""RTN"",""MCORMN"",35,0)"
^XMB(3.9,73,2,1494,0)=" D KILL^XM"
^XMB(3.9,73,2,1495,0)="""RTN"",""MCORMN"",36,0)"
^XMB(3.9,73,2,1496,0)=" K ^TMP(""MCAR1"",$J)"
^XMB(3.9,73,2,1497,0)="""RTN"",""MCORMN"",37,0)"
^XMB(3.9,73,2,1498,0)=" Q GLOBAL"
^XMB(3.9,73,2,1499,0)="""RTN"",""MCORMN"",38,0)"
^XMB(3.9,73,2,1500,0)="ERROR ;HL7 Messaging Error"
^XMB(3.9,73,2,1501,0)="""RTN"",""MCORMN"",39,0)"
^XMB(3.9,73,2,1502,0)=" D KILL^XM Q"
^XMB(3.9,73,2,1503,0)="""RTN"",""MCORMN"",40,0)"
^XMB(3.9,73,2,1504,0)="SERVER ;A do nothing routine"
^XMB(3.9,73,2,1505,0)="""RTN"",""MCORMN"",41,0)"
^XMB(3.9,73,2,1506,0)=" Q"
^XMB(3.9,73,2,1507,0)="""RTN"",""MCORMN"",42,0)"
^XMB(3.9,73,2,1508,0)="HSUM(RAP,PATID,BDATE,EDATE,OCC,PE,MSTR,MCTDEC,GLOBAL,ATYPE) ;Sending Message Builder"
^XMB(3.9,73,2,1509,0)="""RTN"",""MCORMN"",43,0)"
^XMB(3.9,73,2,1510,0)=" N LOC,REC,RNF,SNF,SAP,MST,PCI,VID,MCDFN,TMP,ENDDATE,BEGDATE,MCIMAGE"
^XMB(3.9,73,2,1511,0)="""RTN"",""MCORMN"",44,0)"
^XMB(3.9,73,2,1512,0)=" N LOOP,DFN,COUNT,MCPROC,MCFILE,PREC,SENDATE,FILE,MCREC,MCDEST"
^XMB(3.9,73,2,1513,0)="""RTN"",""MCORMN"",45,0)"
^XMB(3.9,73,2,1514,0)=" N MCER,MCERR,MCVAL,TEMP,WH,S5"
^XMB(3.9,73,2,1515,0)="""RTN"",""MCORMN"",46,0)"
^XMB(3.9,73,2,1516,0)=" I +PATID'=PATID S GLOBAL=0 Q"
^XMB(3.9,73,2,1517,0)="""RTN"",""MCORMN"",47,0)"
^XMB(3.9,73,2,1518,0)=" I '$D(^MCAR(690,""AC"",PATID))&('$D(^MDD(702,""B"",PATID))) S GLOBAL=0 Q"
^XMB(3.9,73,2,1519,0)="""RTN"",""MCORMN"",48,0)"
^XMB(3.9,73,2,1520,0)=" I PE'="""" D"
^XMB(3.9,73,2,1521,0)="""RTN"",""MCORMN"",49,0)"
^XMB(3.9,73,2,1522,0)=" .S S5=+$O(^MCAR(697.2,""B"",PE,0))"
^XMB(3.9,73,2,1523,0)="""RTN"",""MCORMN"",50,0)"
^XMB(3.9,73,2,1524,0)=" .S S5=$P($G(^MCAR(697.2,S5,0)),U,2)"
^XMB(3.9,73,2,1525,0)="""RTN"",""MCORMN"",51,0)"
^XMB(3.9,73,2,1526,0)=" .I S5="""" S PE="""" K S5"
^XMB(3.9,73,2,1527,0)="""RTN"",""MCORMN"",52,0)"
^XMB(3.9,73,2,1528,0)=" S MCVAL=DUZ(2),REC=$$FIND1^DIC(4,"""",""X"",MCVAL,""D"","""",""MCER"")"
^XMB(3.9,73,2,1529,0)="""RTN"",""MCORMN"",53,0)"
^XMB(3.9,73,2,1530,0)=" S LOC=$S(+REC:$$GET1^DIQ(4,+REC_"","",.01),1:"""")"
^XMB(3.9,73,2,1531,0)="""RTN"",""MCORMN"",54,0)"
^XMB(3.9,73,2,1532,0)=" S (RNF,SNF)=LOC"
^XMB(3.9,73,2,1533,0)="""RTN"",""MCORMN"",55,0)"
^XMB(3.9,73,2,1534,0)=" S SAP=""Medicine"",MST=""HS"",PCI=""P"""
^XMB(3.9,73,2,1535,0)="""RTN"",""MCORMN"",56,0)"
^XMB(3.9,73,2,1536,0)=" S VID=$P($T(+2),"";"",3),MCDFN=PATID,MCLINE=0"
^XMB(3.9,73,2,1537,0)="""RTN"",""MCORMN"",57,0)"
^XMB(3.9,73,2,1538,0)=" S:EDATE="""" EDATE=9999999.9999"
^XMB(3.9,73,2,1539,0)="""RTN"",""MCORMN"",58,0)"
^XMB(3.9,73,2,1540,0)=" S:BDATE="""" BDATE=0"
^XMB(3.9,73,2,1541,0)="""RTN"",""MCORMN"",59,0)"
^XMB(3.9,73,2,1542,0)=" S:+OCC=0 OCC=999999"
^XMB(3.9,73,2,1543,0)="""RTN"",""MCORMN"",60,0)"
^XMB(3.9,73,2,1544,0)=" I EDATE<BDATE S TEMP=EDATE,EDATE=BDATE,BDATE=TEMP"
^XMB(3.9,73,2,1545,0)="""RTN"",""MCORMN"",61,0)"
^XMB(3.9,73,2,1546,0)=" S ENDDATE=(9999999.9999-EDATE)-.00001"
^XMB(3.9,73,2,1547,0)="""RTN"",""MCORMN"",62,0)"
^XMB(3.9,73,2,1548,0)=" S BEGDATE=(9999999.9999-BDATE)+.00001"
^XMB(3.9,73,2,1549,0)="""RTN"",""MCORMN"",63,0)"
^XMB(3.9,73,2,1550,0)=" S LOOP=ENDDATE,COUNT=0"
^XMB(3.9,73,2,1551,0)="""RTN"",""MCORMN"",64,0)"
^XMB(3.9,73,2,1552,0)=" N L,LL,LL1,K,M,PE,REC,S1,S2,S4,S6"
^XMB(3.9,73,2,1553,0)="""RTN"",""MCORMN"",65,0)"
^XMB(3.9,73,2,1554,0)=" N MCARCODE,MCARFILE,MCARPSUM,MCARSUM,MCESKEY,MCESON,MCSUP,MCESSEC"
^XMB(3.9,73,2,1555,0)="""RTN"",""MCORMN"",66,0)"
^XMB(3.9,73,2,1556,0)=" S MCIMAGE="""""
^XMB(3.9,73,2,1557,0)="""RTN"",""MCORMN"",67,0)"
^XMB(3.9,73,2,1558,0)=" K ^TMP(""MCAR"",$J)"
^XMB(3.9,73,2,1559,0)="""RTN"",""MCORMN"",68,0)"
^XMB(3.9,73,2,1560,0)=" S DFN=PATID,WH=""P"" D ^MCARPS1"
^XMB(3.9,73,2,1561,0)="""RTN"",""MCORMN"",69,0)"
^XMB(3.9,73,2,1562,0)="PROCN ;"
^XMB(3.9,73,2,1563,0)="""RTN"",""MCORMN"",70,0)"
^XMB(3.9,73,2,1564,0)=" N MCRESULT,MDHOLDR,MCROU"
^XMB(3.9,73,2,1565,0)="""RTN"",""MCORMN"",71,0)"
^XMB(3.9,73,2,1566,0)=" I $$PATCH^XPDUTL(""MD*1.0*2"")!('$$FIND1^DIC(9.4,"""",""MX"",""MEDICINE"")) D"
^XMB(3.9,73,2,1567,0)="""RTN"",""MCORMN"",72,0)"
^XMB(3.9,73,2,1568,0)=" .S MDRDV=1 K ^TMP(""MDPLST"",$J)"
^XMB(3.9,73,2,1569,0)="""RTN"",""MCORMN"",73,0)"
^XMB(3.9,73,2,1570,0)=" .S MCRESULT=$NA(^TMP(""MDPLST"",$J)) N MCLP,MCLP1,MCXG"
^XMB(3.9,73,2,1571,0)="""RTN"",""MCORMN"",74,0)"
^XMB(3.9,73,2,1572,0)=" .S MCROU=""D GET702^MDPS3(.MCRESULT,PATID,"""""""",BDATE,EDATE,OCC)"""
^XMB(3.9,73,2,1573,0)="""RTN"",""MCORMN"",75,0)"
^XMB(3.9,73,2,1574,0)=" .X MCROU"
^XMB(3.9,73,2,1575,0)="""RTN"",""MCORMN"",76,0)"
^XMB(3.9,73,2,1576,0)=" .S MCLP="""" F  S MCLP=$O(^TMP(""MDPLST"",$J,MCLP)) Q:MCLP=""""  S MCLP1="""" F  S MCLP1=$O(^TMP(""MDPLST"",$J,MCLP,MCLP1)) Q:MCLP1=""""  S MCXG=$G(^(MCLP1)) D"
^XMB(3.9,73,2,1577,0)="""RTN"",""MCORMN"",77,0)"
^XMB(3.9,73,2,1578,0)=" ..S:$G(^TMP(""MCAR"",$J,MCLP,MCLP1))="""" ^TMP(""MCAR"",$J,MCLP,MCLP1)=MCXG"
^XMB(3.9,73,2,1579,0)="""RTN"",""MCORMN"",78,0)"
^XMB(3.9,73,2,1580,0)=" .K ^TMP(""MDPLST"",$J)"
^XMB(3.9,73,2,1581,0)="""RTN"",""MCORMN"",79,0)"
^XMB(3.9,73,2,1582,0)=" S MCPROC="""",COUNT=0 N MCG"
^XMB(3.9,73,2,1583,0)="""RTN"",""MCORMN"",80,0)"
^XMB(3.9,73,2,1584,0)=" F  S MCPROC=$O(^TMP(""MCAR"",$J,MCPROC)) Q:MCPROC=""""  D"
^XMB(3.9,73,2,1585,0)="""RTN"",""MCORMN"",81,0)"
^XMB(3.9,73,2,1586,0)=" .S MCDTIME=ENDDATE"
^XMB(3.9,73,2,1587,0)="""RTN"",""MCORMN"",82,0)"
^XMB(3.9,73,2,1588,0)=" .F  S MCDTIME=$O(^TMP(""MCAR"",$J,MCPROC,MCDTIME)) Q:MCDTIME=""""  Q:COUNT'<OCC  Q:MCDTIME>BEGDATE  S MCG=$G(^(MCDTIME)) D"
^XMB(3.9,73,2,1589,0)="""RTN"",""MCORMN"",83,0)"
^XMB(3.9,73,2,1590,0)=" ..S MCREC=$P(MCG,U,2) Q:+MCREC=0"
^XMB(3.9,73,2,1591,0)="""RTN"",""MCORMN"",84,0)"
^XMB(3.9,73,2,1592,0)=" ..S MCDEST=MCTDEC,SENDATE=9999999.9999-MCDTIME,MDHOLDR=MCPROC"
^XMB(3.9,73,2,1593,0)="""RTN"",""MCORMN"",85,0)"
^XMB(3.9,73,2,1594,0)=" ..I +$G(BDATE) Q:SENDATE<+$G(BDATE)"
^XMB(3.9,73,2,1595,0)="""RTN"",""MCORMN"",86,0)"
^XMB(3.9,73,2,1596,0)=" ..I +$G(EDATE) Q:SENDATE>+$G(EDATE)"
^XMB(3.9,73,2,1597,0)="""RTN"",""MCORMN"",87,0)"
^XMB(3.9,73,2,1598,0)=" ..I $P(MCG,U,4)[""MDPS1"" S MCARGDA=+$P(MCG,U,2) Q:'MCARGDA  D PR690 S COUNT=COUNT+1,MCPROC=MDHOLDR Q"
^XMB(3.9,73,2,1599,0)="""RTN"",""MCORMN"",88,0)"
^XMB(3.9,73,2,1600,0)=" ..S PREC=$O(^MCAR(697.2,""B"",MCPROC,"""")) Q:PREC="""""
^XMB(3.9,73,2,1601,0)="""RTN"",""MCORMN"",89,0)"
^XMB(3.9,73,2,1602,0)=" ..S FILE=$P($G(^MCAR(697.2,PREC,0)),U,2) Q:FILE="""""
^XMB(3.9,73,2,1603,0)="""RTN"",""MCORMN"",90,0)"
^XMB(3.9,73,2,1604,0)=" ..S MCFILE=+$P(FILE,""MCAR("",2)"
^XMB(3.9,73,2,1605,0)="""RTN"",""MCORMN"",91,0)"
^XMB(3.9,73,2,1606,0)=" ..S MCERR=$$BUILD^MCORMN0(RAP,DFN,SAP,SNF,RNF,MST,PCI,VID,.MCLINE,MSTR,MCDEST,MCPROC,MCFILE,MCREC,SENDATE,ATYPE)"
^XMB(3.9,73,2,1607,0)="""RTN"",""MCORMN"",92,0)"
^XMB(3.9,73,2,1608,0)=" ..S:MCERR=0 COUNT=COUNT+1"
^XMB(3.9,73,2,1609,0)="""RTN"",""MCORMN"",93,0)"
^XMB(3.9,73,2,1610,0)=" K ^TMP(""MCAR"",$J),^TMP(""MDPTXT"",$J),MCPRO,MCARPPS,MCARGRTN,MDT,MDHDR,MDRDV"
^XMB(3.9,73,2,1611,0)="""RTN"",""MCORMN"",94,0)"
^XMB(3.9,73,2,1612,0)=" Q"
^XMB(3.9,73,2,1613,0)="""RTN"",""MCORMN"",95,0)"
^XMB(3.9,73,2,1614,0)="PR690 ; Set node for CP Reports"
^XMB(3.9,73,2,1615,0)="""RTN"",""MCORMN"",96,0)"
^XMB(3.9,73,2,1616,0)=" N HLECH,MCRREC,ST"
^XMB(3.9,73,2,1617,0)="""RTN"",""MCORMN"",97,0)"
^XMB(3.9,73,2,1618,0)=" S MCPRO=$P(MCG,U,11),MCARPPS=$P(MCG,U,3,4),MCARGRTN=$P(MCG,U,5),MDT=""RD"",MDHDR=1"
^XMB(3.9,73,2,1619,0)="""RTN"",""MCORMN"",98,0)"
^XMB(3.9,73,2,1620,0)=" S HLECH=$E(MSTR,2,4) D SLIP^MCORMN0(MSTR)"
^XMB(3.9,73,2,1621,0)="""RTN"",""MCORMN"",99,0)"
^XMB(3.9,73,2,1622,0)=" D SETNODE(MCDEST,$$MSH^MCORMN01(MCPROC,SAP,SNF,RAP,RNF,MST,PCI,VID))"
^XMB(3.9,73,2,1623,0)="""RTN"",""MCORMN"",100,0)"
^XMB(3.9,73,2,1624,0)=" D SETNODE(MCDEST,$$PID^MCORMN01(MCDFN))"
^XMB(3.9,73,2,1625,0)="""RTN"",""MCORMN"",101,0)"
^XMB(3.9,73,2,1626,0)=" D SETNODE(MCDEST,$$OBR1(SENDATE,MCPROC,HLECH))"
^XMB(3.9,73,2,1627,0)="""RTN"",""MCORMN"",102,0)"
^XMB(3.9,73,2,1628,0)=" D SETNODE(MCDEST,$$OBX1^MCORMN01(""W"",""ST"",""702~.1~702.1^^DD"",1,""""))"
^XMB(3.9,73,2,1629,0)="""RTN"",""MCORMN"",103,0)"
^XMB(3.9,73,2,1630,0)=" D @MCARPPS S MCRREC=$NA(^TMP(""MDPTXT"",$J))"
^XMB(3.9,73,2,1631,0)="""RTN"",""MCORMN"",104,0)"
^XMB(3.9,73,2,1632,0)=" F  S MCRREC=$Q(@MCRREC) Q:MCRREC=""""  Q:$QS(MCRREC,1)'=""MDPTXT""  D"
^XMB(3.9,73,2,1633,0)="""RTN"",""MCORMN"",105,0)"
^XMB(3.9,73,2,1634,0)=" .D SETNODE(MCTDEC,$G(@MCRREC))"
^XMB(3.9,73,2,1635,0)="""RTN"",""MCORMN"",106,0)"
^XMB(3.9,73,2,1636,0)=" D SETNODE(MCDEST,""||"")"
^XMB(3.9,73,2,1637,0)="""RTN"",""MCORMN"",107,0)"
^XMB(3.9,73,2,1638,0)=" Q"
^XMB(3.9,73,2,1639,0)="""RTN"",""MCORMN"",108,0)"
^XMB(3.9,73,2,1640,0)="OBR1(SDATE,MCPROC,HLECH) ; OBX Messaging Line"
^XMB(3.9,73,2,1641,0)="""RTN"",""MCORMN"",109,0)"
^XMB(3.9,73,2,1642,0)=" N LOOP,TEMP,TMP,STAT,STR"
^XMB(3.9,73,2,1643,0)="""RTN"",""MCORMN"",110,0)"
^XMB(3.9,73,2,1644,0)=" S TMP=""OTH"""
^XMB(3.9,73,2,1645,0)="""RTN"",""MCORMN"",111,0)"
^XMB(3.9,73,2,1646,0)=" S STAT=""COMPLETE"""
^XMB(3.9,73,2,1647,0)="""RTN"",""MCORMN"",112,0)"
^XMB(3.9,73,2,1648,0)=" S TEMP=$$CONVERT^MCORMN01(""D"",SDATE),STR=""OBR"",$P(STR,ST(1),8)=TEMP"
^XMB(3.9,73,2,1649,0)="""RTN"",""MCORMN"",113,0)"
^XMB(3.9,73,2,1650,0)=" S $P(STR,ST(1),16)=TMP,$P(STR,ST(1),26)=STAT"
^XMB(3.9,73,2,1651,0)="""RTN"",""MCORMN"",114,0)"
^XMB(3.9,73,2,1652,0)=" Q STR"
^XMB(3.9,73,2,1653,0)="""RTN"",""MCORMN"",115,0)"
^XMB(3.9,73,2,1654,0)="SETNODE(NODE,VALUE) ; Set the node with the HL7 message string"
^XMB(3.9,73,2,1655,0)="""RTN"",""MCORMN"",116,0)"
^XMB(3.9,73,2,1656,0)=" S MCLINE=MCLINE+1,@NODE@(MCLINE,0)=VALUE"
^XMB(3.9,73,2,1657,0)="""RTN"",""MCORMN"",117,0)"
^XMB(3.9,73,2,1658,0)=" Q"
^XMB(3.9,73,2,1659,0)="""RTN"",""MCORMN"",118,0)"
^XMB(3.9,73,2,1660,0)="HL1(MCSAP,MCDFN,MCB,MCE,MCOCC,MCTYP) ; Alternate Entry Point for Data View"
^XMB(3.9,73,2,1661,0)="""RTN"",""MCORMN"",119,0)"
^XMB(3.9,73,2,1662,0)=" N MSH,TEMP,ORD,ST,MSTR,BDATE,EDATE,OCC,PROC,PATID,MCTDEC,XMZ,MCLINE"
^XMB(3.9,73,2,1663,0)="""RTN"",""MCORMN"",120,0)"
^XMB(3.9,73,2,1664,0)=" N QDT,QFC,QP,QID,RAP,GNODE,ATYPE"
^XMB(3.9,73,2,1665,0)="""RTN"",""MCORMN"",121,0)"
^XMB(3.9,73,2,1666,0)=" S GLOBAL=1 K ^TMP(""MCAR1"",$J)"
^XMB(3.9,73,2,1667,0)="""RTN"",""MCORMN"",122,0)"
^XMB(3.9,73,2,1668,0)=" D HSUM(MCSAP,MCDFN,MCB,MCE,MCOCC,"""",""|^~\&|"",""^TMP(""""MCAR1"""",$J)"",.GLOBAL,MCTYP)"
^XMB(3.9,73,2,1669,0)="""RTN"",""MCORMN"",123,0)"
^XMB(3.9,73,2,1670,0)=" I GLOBAL=0 S ^TMP(""MCAR1"",$J,1,0)="""""
^XMB(3.9,73,2,1671,0)="""RTN"",""MCORMN"",124,0)"
^XMB(3.9,73,2,1672,0)=" Q"
^XMB(3.9,73,2,1673,0)="""RTN"",""MCORMN0"")"
^XMB(3.9,73,2,1674,0)="0^15^B20182884^B20155309"
^XMB(3.9,73,2,1675,0)="""RTN"",""MCORMN0"",1,0)"
^XMB(3.9,73,2,1676,0)="MCORMN0 ;WISC/DCB-HL7 MESSAGE BUILDER ;7/23/99  09:08"
^XMB(3.9,73,2,1677,0)="""RTN"",""MCORMN0"",2,0)"
^XMB(3.9,73,2,1678,0)=" ;;1.0;CLINICAL PROCEDURES;**5**;Apr 01, 2004;Build 1"
^XMB(3.9,73,2,1679,0)="""RTN"",""MCORMN0"",3,0)"
^XMB(3.9,73,2,1680,0)=" W !,""This is not a valid entry point"" Q"
^XMB(3.9,73,2,1681,0)="""RTN"",""MCORMN0"",4,0)"
^XMB(3.9,73,2,1682,0)="BUILD(RAP,MCDFN,SAP,SNF,RNF,MST,PCI,VID,MCLINE,MSTR,MCDEST,MCPROC,MCFILE,MCREC,SDATE,ATYPE) ; Build the message"
^XMB(3.9,73,2,1683,0)="""RTN"",""MCORMN0"",5,0)"
^XMB(3.9,73,2,1684,0)=" K ^TMP(""MCORMN"",$J)"
^XMB(3.9,73,2,1685,0)="""RTN"",""MCORMN0"",6,0)"
^XMB(3.9,73,2,1686,0)=" N MCERR,MCOR,MCOR1,MCOR2,MCOR3,MCOR4,MSE,OBR,HLECH"
^XMB(3.9,73,2,1687,0)="""RTN"",""MCORMN0"",7,0)"
^XMB(3.9,73,2,1688,0)=" N LOOP,MCDS,ST,MSE,MCHOLD,MCHOLD"
^XMB(3.9,73,2,1689,0)="""RTN"",""MCORMN0"",8,0)"
^XMB(3.9,73,2,1690,0)=" S MSE=0,HLECH=$E(MSTR,2,4) D SLIP(MSTR)"
^XMB(3.9,73,2,1691,0)="""RTN"",""MCORMN0"",9,0)"
^XMB(3.9,73,2,1692,0)=" S MCHOLD=+$O(^MCAR(697.2,""B"",MCPROC,""""))"
^XMB(3.9,73,2,1693,0)="""RTN"",""MCORMN0"",10,0)"
^XMB(3.9,73,2,1694,0)=" S MCHOLD=$P($G(^MCAR(697.2,MCHOLD,0)),U,8)"
^XMB(3.9,73,2,1695,0)="""RTN"",""MCORMN0"",11,0)"
^XMB(3.9,73,2,1696,0)=" S MCERR=$$GETDATA^MCORMN1(MCPROC,MCREC,""^TMP(""""MCORMN"""",$J)"",MCFILE,ATYPE) Q:MCERR=0 1"
^XMB(3.9,73,2,1697,0)="""RTN"",""MCORMN0"",12,0)"
^XMB(3.9,73,2,1698,0)=" S MCHOLD=$S(MCHOLD="""":MCPROC,1:MCHOLD)"
^XMB(3.9,73,2,1699,0)="""RTN"",""MCORMN0"",13,0)"
^XMB(3.9,73,2,1700,0)=" D SETNODE(MCDEST,$$MSH^MCORMN01(MCHOLD,SAP,SNF,RAP,RNF,MST,PCI,VID))"
^XMB(3.9,73,2,1701,0)="""RTN"",""MCORMN0"",14,0)"
^XMB(3.9,73,2,1702,0)=" D SETNODE(MCDEST,$$PID^MCORMN01(MCDFN))"
^XMB(3.9,73,2,1703,0)="""RTN"",""MCORMN0"",15,0)"
^XMB(3.9,73,2,1704,0)=" D SETNODE(MCDEST,$$OBR1^MCORMN01(SDATE,MCPROC,MCREC,MCFILE)) S OBR=MCLINE"
^XMB(3.9,73,2,1705,0)="""RTN"",""MCORMN0"",16,0)"
^XMB(3.9,73,2,1706,0)=" S MCOR1="""""
^XMB(3.9,73,2,1707,0)="""RTN"",""MCORMN0"",17,0)"
^XMB(3.9,73,2,1708,0)=" F  S MCOR1=$O(^TMP(""MCORMN"",$J,""E"",MCOR1)) Q:MCOR1=""""  D"
^XMB(3.9,73,2,1709,0)="""RTN"",""MCORMN0"",18,0)"
^XMB(3.9,73,2,1710,0)=" .S MCOR2="""""
^XMB(3.9,73,2,1711,0)="""RTN"",""MCORMN0"",19,0)"
^XMB(3.9,73,2,1712,0)=" .F  S MCOR2=$O(^TMP(""MCORMN"",$J,""E"",MCOR1,MCOR2)) Q:MCOR2=""""  D"
^XMB(3.9,73,2,1713,0)="""RTN"",""MCORMN0"",20,0)"
^XMB(3.9,73,2,1714,0)=" ..S MCOR3="""""
^XMB(3.9,73,2,1715,0)="""RTN"",""MCORMN0"",21,0)"
^XMB(3.9,73,2,1716,0)=" ..F  S MCOR3=$O(^TMP(""MCORMN"",$J,""E"",MCOR1,MCOR2,MCOR3)) Q:MCOR3=""""  D"
^XMB(3.9,73,2,1717,0)="""RTN"",""MCORMN0"",22,0)"
^XMB(3.9,73,2,1718,0)=" ...D GETDATA(RAP,MCDEST,OBR,MCOR1,MCOR2,MCOR3)"
^XMB(3.9,73,2,1719,0)="""RTN"",""MCORMN0"",23,0)"
^XMB(3.9,73,2,1720,0)=" I +$P($G(^MCAR(MCFILE,MCREC,2005,0)),U,4)>0 D"
^XMB(3.9,73,2,1721,0)="""RTN"",""MCORMN0"",24,0)"
^XMB(3.9,73,2,1722,0)=" .N OBI,OBR,OSI,VTI,UNT,RNG"
^XMB(3.9,73,2,1723,0)="""RTN"",""MCORMN0"",25,0)"
^XMB(3.9,73,2,1724,0)=" .S OBI=MCFILE_ST(3)_""2005""_ST(3)_""P""_ST(2)_""IMAGES?""_ST(2)_""DD"""
^XMB(3.9,73,2,1725,0)="""RTN"",""MCORMN0"",26,0)"
^XMB(3.9,73,2,1726,0)=" .S OBR=""Images are associated with this procedure"""
^XMB(3.9,73,2,1727,0)="""RTN"",""MCORMN0"",27,0)"
^XMB(3.9,73,2,1728,0)=" .S OSI="""",VTI="""",FILETYPE=""P"",UNT="""",RNG="""""
^XMB(3.9,73,2,1729,0)="""RTN"",""MCORMN0"",28,0)"
^XMB(3.9,73,2,1730,0)=" .D SETOBX1(FILETYPE,VTI,OBI,OSI,OBR),SETOBX2(UNT,RNG)"
^XMB(3.9,73,2,1731,0)="""RTN"",""MCORMN0"",29,0)"
^XMB(3.9,73,2,1732,0)=" Q 0"
^XMB(3.9,73,2,1733,0)="""RTN"",""MCORMN0"",30,0)"
^XMB(3.9,73,2,1734,0)="GETDATA(RAP,MCDEST,OBR,MCOR1,MCOR2,MCOR3) ; Process the Data"
^XMB(3.9,73,2,1735,0)="""RTN"",""MCORMN0"",31,0)"
^XMB(3.9,73,2,1736,0)=" N TMP1,TMP,HL7,TYPE"
^XMB(3.9,73,2,1737,0)="""RTN"",""MCORMN0"",32,0)"
^XMB(3.9,73,2,1738,0)=" S TMP=$G(^TMP(""MCORMN"",$J,""F"",MCOR1,MCOR3,0))"
^XMB(3.9,73,2,1739,0)="""RTN"",""MCORMN0"",33,0)"
^XMB(3.9,73,2,1740,0)=" S HL7=$G(^TMP(""MCORMN"",$J,""F"",MCOR1,MCOR3,1))"
^XMB(3.9,73,2,1741,0)="""RTN"",""MCORMN0"",34,0)"
^XMB(3.9,73,2,1742,0)=" S TYPE=$P(HL7,U,7)"
^XMB(3.9,73,2,1743,0)="""RTN"",""MCORMN0"",35,0)"
^XMB(3.9,73,2,1744,0)=" I (TYPE'=""OBR""),(TYPE'=""INFO""),(RAP=""Health Summary"") S TYPE=""DD"""
^XMB(3.9,73,2,1745,0)="""RTN"",""MCORMN0"",36,0)"
^XMB(3.9,73,2,1746,0)=" Q:(TYPE=""INFO"")!(TYPE=""MISC"")!(TYPE="""")"
^XMB(3.9,73,2,1747,0)="""RTN"",""MCORMN0"",37,0)"
^XMB(3.9,73,2,1748,0)=" S TMP1=""D ""_TYPE_""(TMP,HL7,OBR,MCOR1,MCOR2,MCOR3)"" X TMP1"
^XMB(3.9,73,2,1749,0)="""RTN"",""MCORMN0"",38,0)"
^XMB(3.9,73,2,1750,0)=" Q"
^XMB(3.9,73,2,1751,0)="""RTN"",""MCORMN0"",39,0)"
^XMB(3.9,73,2,1752,0)="ICD9(TMP,HL7,OBX,MCOR1,MCOR2,MCOR3) ; This is the ICD9 message builder for OBX"
^XMB(3.9,73,2,1753,0)="""RTN"",""MCORMN0"",40,0)"
^XMB(3.9,73,2,1754,0)=" N OID,VT1,UNT,OSI,OBI,RNG,RST,DA,DIC,DR,DIQ,XTMP,CONT"
^XMB(3.9,73,2,1755,0)="""RTN"",""MCORMN0"",41,0)"
^XMB(3.9,73,2,1756,0)=" S OBI=""ICD9"",OSI="""",MST=$G(MST)+1,OSI=MST,CONT="""""
^XMB(3.9,73,2,1757,0)="""RTN"",""MCORMN0"",42,0)"
^XMB(3.9,73,2,1758,0)=" S VTI=$P(HL7,U,2) S:VTI="""" VTI=""CE"""
^XMB(3.9,73,2,1759,0)="""RTN"",""MCORMN0"",43,0)"
^XMB(3.9,73,2,1760,0)=" S UNT="""",RNG="""",RST=$G(^TMP(""MCORMN"",$J,""E"",MCOR1,MCOR2,MCOR3,1)) Q:RST="""""
^XMB(3.9,73,2,1761,0)="""RTN"",""MCORMN0"",44,0)"
^XMB(3.9,73,2,1762,0)=" ;S DA=$O(^ICD9(""B"",RST,"""")) Q:DA="""""
^XMB(3.9,73,2,1763,0)="""RTN"",""MCORMN0"",45,0)"
^XMB(3.9,73,2,1764,0)=" Q"
^XMB(3.9,73,2,1765,0)="""RTN"",""MCORMN0"",46,0)"
^XMB(3.9,73,2,1766,0)=" S DIC=""^ICD9("",DR="".01;3"",DIQ=""XTMP("" D EN^DIQ1"
^XMB(3.9,73,2,1767,0)="""RTN"",""MCORMN0"",47,0)"
^XMB(3.9,73,2,1768,0)=" S RST=XTMP(80,DA,.01)_ST(2)_XTMP(80,DA,3)_ST(2)_""ICD9"""
^XMB(3.9,73,2,1769,0)="""RTN"",""MCORMN0"",48,0)"
^XMB(3.9,73,2,1770,0)=" D SETOBX1("""",VTI,OBI,OSI,RST)"
^XMB(3.9,73,2,1771,0)="""RTN"",""MCORMN0"",49,0)"
^XMB(3.9,73,2,1772,0)=" Q"
^XMB(3.9,73,2,1773,0)="""RTN"",""MCORMN0"",50,0)"
^XMB(3.9,73,2,1774,0)="ASTM(TMP,HL7,OBX,MCOR1,MCOR2,MCOR3) ; This is the ASTM message builder for OBX"
^XMB(3.9,73,2,1775,0)="""RTN"",""MCORMN0"",51,0)"
^XMB(3.9,73,2,1776,0)=" N ASTM,ASTME,VTI,UNT,RNG,RST,OSI,OBI,FILETYPE"
^XMB(3.9,73,2,1777,0)="""RTN"",""MCORMN0"",52,0)"
^XMB(3.9,73,2,1778,0)=" S FILETYPE=$P(TMP,U,2),OSI="""""
^XMB(3.9,73,2,1779,0)="""RTN"",""MCORMN0"",53,0)"
^XMB(3.9,73,2,1780,0)=" S ASTM=$P(HL7,U,1),ASTME=$G(^MCAR(690.5,ASTM,0))"
^XMB(3.9,73,2,1781,0)="""RTN"",""MCORMN0"",54,0)"
^XMB(3.9,73,2,1782,0)=" S ASTM=$P(ASTME,U,1)_$P(ASTME,U,2),VTI=$P(HL7,U,2)"
^XMB(3.9,73,2,1783,0)="""RTN"",""MCORMN0"",55,0)"
^XMB(3.9,73,2,1784,0)=" S OBI=ASTM_ST(2)_$P(ASTME,U,3)_ST(2)_""CPT4"""
^XMB(3.9,73,2,1785,0)="""RTN"",""MCORMN0"",56,0)"
^XMB(3.9,73,2,1786,0)=" S UNT=$P(HL7,U,3),RNG=$P(HL7,U,4)"
^XMB(3.9,73,2,1787,0)="""RTN"",""MCORMN0"",57,0)"
^XMB(3.9,73,2,1788,0)=" D RDATA(VTI,OBI,OSI,UNT,RNG,FILETYPE,MCOR1,MCOR2,MCOR3)"
^XMB(3.9,73,2,1789,0)="""RTN"",""MCORMN0"",58,0)"
^XMB(3.9,73,2,1790,0)=" Q"
^XMB(3.9,73,2,1791,0)="""RTN"",""MCORMN0"",59,0)"
^XMB(3.9,73,2,1792,0)="SUM(TMP,HL7,OBX,MCOR1,MCOR2,MCOR3) ; This is the miss. message builder for OBX"
^XMB(3.9,73,2,1793,0)="""RTN"",""MCORMN0"",60,0)"
^XMB(3.9,73,2,1794,0)=" N FILETYPE,VTI,UNT,RNG,RST,OSI,OBI"
^XMB(3.9,73,2,1795,0)="""RTN"",""MCORMN0"",61,0)"
^XMB(3.9,73,2,1796,0)=" S FILETYPE=$P(TMP,U,2),OSI="""""
^XMB(3.9,73,2,1797,0)="""RTN"",""MCORMN0"",62,0)"
^XMB(3.9,73,2,1798,0)=" S OBI=""SST"",(UNT,RNG)="""",OSI="""""
^XMB(3.9,73,2,1799,0)="""RTN"",""MCORMN0"",63,0)"
^XMB(3.9,73,2,1800,0)=" S VTI=""TX"""
^XMB(3.9,73,2,1801,0)="""RTN"",""MCORMN0"",64,0)"
^XMB(3.9,73,2,1802,0)=" D RDATA(VTI,OBI,OSI,UNT,RNG,FILETYPE,MCOR1,MCOR2,MCOR3)"
^XMB(3.9,73,2,1803,0)="""RTN"",""MCORMN0"",65,0)"
^XMB(3.9,73,2,1804,0)=" Q"
^XMB(3.9,73,2,1805,0)="""RTN"",""MCORMN0"",66,0)"
^XMB(3.9,73,2,1806,0)="DD(TMP,HL7,OBX,MCOR1,MCOR2,MCOR3) ; This is the DD mesage builder for OBX"
^XMB(3.9,73,2,1807,0)="""RTN"",""MCORMN0"",67,0)"
^XMB(3.9,73,2,1808,0)=" N FLDNAME,VTI,OBI,OSI,UNT,RNG,FILETYPE,FLDNAME"
^XMB(3.9,73,2,1809,0)="""RTN"",""MCORMN0"",68,0)"
^XMB(3.9,73,2,1810,0)=" S FILETYPE=$P(TMP,U,2),FLDNAME=$P(TMP,""^"",1),OSI="""""
^XMB(3.9,73,2,1811,0)="""RTN"",""MCORMN0"",69,0)"
^XMB(3.9,73,2,1812,0)=" S VTI=$P(HL7,U,2),OBI=MCOR1_ST(3)_MCOR3_ST(3)_FILETYPE_ST(2)_FLDNAME_ST(2)_""DD"""
^XMB(3.9,73,2,1813,0)="""RTN"",""MCORMN0"",70,0)"
^XMB(3.9,73,2,1814,0)=" S UNT=$P(HL7,U,3),RNG=$P(HL7,U,4)"
^XMB(3.9,73,2,1815,0)="""RTN"",""MCORMN0"",71,0)"
^XMB(3.9,73,2,1816,0)=" D RDATA(VTI,OBI,OSI,UNT,RNG,FILETYPE,MCOR1,MCOR2,MCOR3)"
^XMB(3.9,73,2,1817,0)="""RTN"",""MCORMN0"",72,0)"
^XMB(3.9,73,2,1818,0)=" Q"
^XMB(3.9,73,2,1819,0)="""RTN"",""MCORMN0"",73,0)"
^XMB(3.9,73,2,1820,0)="OBR(TMP,HL7,OBX,MCOR1,MCOR2,MCOR3) ; This is the OBR add on message"
^XMB(3.9,73,2,1821,0)="""RTN"",""MCORMN0"",74,0)"
^XMB(3.9,73,2,1822,0)=" N RST,PIECE,FILETYPE"
^XMB(3.9,73,2,1823,0)="""RTN"",""MCORMN0"",75,0)"
^XMB(3.9,73,2,1824,0)=" S FILETYPE=$P(TMP,U,2),RST=$G(^TMP(""MCORMN"",$J,""E"",MCOR1,MCOR2,MCOR3,1))"
^XMB(3.9,73,2,1825,0)="""RTN"",""MCORMN0"",76,0)"
^XMB(3.9,73,2,1826,0)=" S RST=$$CONVERT^MCORMN01(FILETYPE,RST),PIECE=$P(HL7,U,6)+1"
^XMB(3.9,73,2,1827,0)="""RTN"",""MCORMN0"",77,0)"
^XMB(3.9,73,2,1828,0)=" S $P(@MCDEST@(OBX),ST(1),PIECE)=RST"
^XMB(3.9,73,2,1829,0)="""RTN"",""MCORMN0"",78,0)"
^XMB(3.9,73,2,1830,0)=" Q"
^XMB(3.9,73,2,1831,0)="""RTN"",""MCORMN0"",79,0)"
^XMB(3.9,73,2,1832,0)="RDATA(VTI,OBI,OSI,UNT,RNG,FILETYPE,MCOR1,MCOR2,MCOR3) ;"
^XMB(3.9,73,2,1833,0)="""RTN"",""MCORMN0"",80,0)"
^XMB(3.9,73,2,1834,0)=" N MCOR4,CONT,LEN,RSTT,TEMP,COUNT,END,RST,CNT,LOOP,LOOP2,X,DIWL,DIWR,DIWF"
^XMB(3.9,73,2,1835,0)="""RTN"",""MCORMN0"",81,0)"
^XMB(3.9,73,2,1836,0)=" S MCOR4="""""
^XMB(3.9,73,2,1837,0)="""RTN"",""MCORMN0"",82,0)"
^XMB(3.9,73,2,1838,0)=" F LOOP=1:1 S MCOR4=$O(^TMP(""MCORMN"",$J,""E"",MCOR1,MCOR2,MCOR3,MCOR4)) Q:MCOR4=""""  D"
^XMB(3.9,73,2,1839,0)="""RTN"",""MCORMN0"",83,0)"
^XMB(3.9,73,2,1840,0)=" .S X=^TMP(""MCORMN"",$J,""E"",MCOR1,MCOR2,MCOR3,MCOR4)"
^XMB(3.9,73,2,1841,0)="""RTN"",""MCORMN0"",84,0)"
^XMB(3.9,73,2,1842,0)=" .;I $L(X)>80 D WP"
^XMB(3.9,73,2,1843,0)="""RTN"",""MCORMN0"",85,0)"
^XMB(3.9,73,2,1844,0)=" .I $L(X)>80 D"
^XMB(3.9,73,2,1845,0)="""RTN"",""MCORMN0"",86,0)"
^XMB(3.9,73,2,1846,0)=" ..D WP"
^XMB(3.9,73,2,1847,0)="""RTN"",""MCORMN0"",87,0)"
^XMB(3.9,73,2,1848,0)=" .E  D"
^XMB(3.9,73,2,1849,0)="""RTN"",""MCORMN0"",88,0)"
^XMB(3.9,73,2,1850,0)=" ..D:LOOP=1 SETOBX1(FILETYPE,VTI,OBI,OSI,X)"
^XMB(3.9,73,2,1851,0)="""RTN"",""MCORMN0"",89,0)"
^XMB(3.9,73,2,1852,0)=" ..D:LOOP'=1 SETNODE(MCDEST,X)"
^XMB(3.9,73,2,1853,0)="""RTN"",""MCORMN0"",90,0)"
^XMB(3.9,73,2,1854,0)=" D SETOBX2(UNT,RNG)"
^XMB(3.9,73,2,1855,0)="""RTN"",""MCORMN0"",91,0)"
^XMB(3.9,73,2,1856,0)=" Q"
^XMB(3.9,73,2,1857,0)="""RTN"",""MCORMN0"",92,0)"
^XMB(3.9,73,2,1858,0)="WP ;"
^XMB(3.9,73,2,1859,0)="""RTN"",""MCORMN0"",93,0)"
^XMB(3.9,73,2,1860,0)=" K ^UTILITY($J,""W"") S DIWL=0,DIWR=80,DIWF="""" D ^DIWP"
^XMB(3.9,73,2,1861,0)="""RTN"",""MCORMN0"",94,0)"
^XMB(3.9,73,2,1862,0)=" S CNT=^UTILITY($J,""W"",0)"
^XMB(3.9,73,2,1863,0)="""RTN"",""MCORMN0"",95,0)"
^XMB(3.9,73,2,1864,0)=" F LOOP2=1:1:CNT S RST=^UTILITY($J,""W"",0,LOOP2,0) D"
^XMB(3.9,73,2,1865,0)="""RTN"",""MCORMN0"",96,0)"
^XMB(3.9,73,2,1866,0)=" .I (LOOP2>1)!(LOOP>1) D SETNODE(MCDEST,RST)"
^XMB(3.9,73,2,1867,0)="""RTN"",""MCORMN0"",97,0)"
^XMB(3.9,73,2,1868,0)=" .E  D SETOBX1(FILETYPE,VTI,OBI,OSI,RST)"
^XMB(3.9,73,2,1869,0)="""RTN"",""MCORMN0"",98,0)"
^XMB(3.9,73,2,1870,0)=" K ^UTILITY($J,""W"")"
^XMB(3.9,73,2,1871,0)="""RTN"",""MCORMN0"",99,0)"
^XMB(3.9,73,2,1872,0)=" Q"
^XMB(3.9,73,2,1873,0)="""RTN"",""MCORMN0"",100,0)"
^XMB(3.9,73,2,1874,0)="SETOBX1(FILETYPE,VTI,OBI,OSI,OBR) ; Sets the first part of QBX line"
^XMB(3.9,73,2,1875,0)="""RTN"",""MCORMN0"",101,0)"
^XMB(3.9,73,2,1876,0)=" S:VTI="""" VTI=""ST"""
^XMB(3.9,73,2,1877,0)="""RTN"",""MCORMN0"",102,0)"
^XMB(3.9,73,2,1878,0)=" S:OSI="""" (MSE,OSI)=$G(MSE)+1"
^XMB(3.9,73,2,1879,0)="""RTN"",""MCORMN0"",103,0)"
^XMB(3.9,73,2,1880,0)=" D SETNODE(MCDEST,$$OBX1^MCORMN01(FILETYPE,VTI,OBI,OSI,OBR))"
^XMB(3.9,73,2,1881,0)="""RTN"",""MCORMN0"",104,0)"
^XMB(3.9,73,2,1882,0)=" Q"
^XMB(3.9,73,2,1883,0)="""RTN"",""MCORMN0"",105,0)"
^XMB(3.9,73,2,1884,0)="SETOBX2(RNG,UNT) ;Sets the second part of OBX line"
^XMB(3.9,73,2,1885,0)="""RTN"",""MCORMN0"",106,0)"
^XMB(3.9,73,2,1886,0)=" S @MCDEST@(MCLINE,0)=@MCDEST@(MCLINE,0)_$$OBX2^MCORMN01(RNG,UNT)"
^XMB(3.9,73,2,1887,0)="""RTN"",""MCORMN0"",107,0)"
^XMB(3.9,73,2,1888,0)=" Q"
^XMB(3.9,73,2,1889,0)="""RTN"",""MCORMN0"",108,0)"
^XMB(3.9,73,2,1890,0)="SETNODE(NODE,VALUE) ;Set the node with the HL7 message string"
^XMB(3.9,73,2,1891,0)="""RTN"",""MCORMN0"",109,0)"
^XMB(3.9,73,2,1892,0)=" S MCLINE=MCLINE+1,@NODE@(MCLINE,0)=VALUE"
^XMB(3.9,73,2,1893,0)="""RTN"",""MCORMN0"",110,0)"
^XMB(3.9,73,2,1894,0)=" Q"
^XMB(3.9,73,2,1895,0)="""RTN"",""MCORMN0"",111,0)"
^XMB(3.9,73,2,1896,0)="SLIP(MSTR) ;Seperate the delimiters"
^XMB(3.9,73,2,1897,0)="""RTN"",""MCORMN0"",112,0)"
^XMB(3.9,73,2,1898,0)=" F LOOP=1:1:5 S ST(LOOP)=$E(MSTR,LOOP,LOOP)"
^XMB(3.9,73,2,1899,0)="""RTN"",""MCORMN0"",113,0)"
^XMB(3.9,73,2,1900,0)=" Q"
^XMB(3.9,73,2,1901,0)="""RTN"",""MCORMN01"")"
^XMB(3.9,73,2,1902,0)="0^16^B4360683^B4178975"
^XMB(3.9,73,2,1903,0)="""RTN"",""MCORMN01"",1,0)"
^XMB(3.9,73,2,1904,0)="MCORMN01 ;WISC/DCB-HL7 MESSAGE BUILDER PART 2 ;5/2/96  13:30"
^XMB(3.9,73,2,1905,0)="""RTN"",""MCORMN01"",2,0)"
^XMB(3.9,73,2,1906,0)=" ;;1.0;CLINICAL PROCEDURES;**5**;Apr 01, 2004;Build 1"
^XMB(3.9,73,2,1907,0)="""RTN"",""MCORMN01"",3,0)"
^XMB(3.9,73,2,1908,0)=" ; Reference IA #10106 for HLFNC calls."
^XMB(3.9,73,2,1909,0)="""RTN"",""MCORMN01"",4,0)"
^XMB(3.9,73,2,1910,0)=" ;              #10061 for VADPT call."
^XMB(3.9,73,2,1911,0)="""RTN"",""MCORMN01"",5,0)"
^XMB(3.9,73,2,1912,0)=" W !,""This is not a valid entry point"" Q"
^XMB(3.9,73,2,1913,0)="""RTN"",""MCORMN01"",6,0)"
^XMB(3.9,73,2,1914,0)="MSH(PROC,SAP,SNF,RAP,RNF,MST,PCI,VID) ;MSH Messaging Line"
^XMB(3.9,73,2,1915,0)="""RTN"",""MCORMN01"",7,0)"
^XMB(3.9,73,2,1916,0)=" N MSH,Y,%,%I"
^XMB(3.9,73,2,1917,0)="""RTN"",""MCORMN01"",8,0)"
^XMB(3.9,73,2,1918,0)=" D NOW^%DTC"
^XMB(3.9,73,2,1919,0)="""RTN"",""MCORMN01"",9,0)"
^XMB(3.9,73,2,1920,0)=" S $P(MSH,ST(1),8)=$$CONVERT(""D"",%)"
^XMB(3.9,73,2,1921,0)="""RTN"",""MCORMN01"",10,0)"
^XMB(3.9,73,2,1922,0)=" S MSH=""MSH""_MSTR,$P(MSH,ST(1),3)=PROC_ST(2)_SAP,$P(MSH,ST(1),4)=SNF"
^XMB(3.9,73,2,1923,0)="""RTN"",""MCORMN01"",11,0)"
^XMB(3.9,73,2,1924,0)=" S $P(MSH,ST(1),5)=RAP,$P(MSH,ST(1),6)=RNF,$P(MSH,ST(1),9)=MST"
^XMB(3.9,73,2,1925,0)="""RTN"",""MCORMN01"",12,0)"
^XMB(3.9,73,2,1926,0)=" S $P(MSH,ST(1),10)=PCI,$P(MSH,ST(1),11)=VID"
^XMB(3.9,73,2,1927,0)="""RTN"",""MCORMN01"",13,0)"
^XMB(3.9,73,2,1928,0)=" Q MSH"
^XMB(3.9,73,2,1929,0)="""RTN"",""MCORMN01"",14,0)"
^XMB(3.9,73,2,1930,0)="PID(DFN) ;PID Messaging Line"
^XMB(3.9,73,2,1931,0)="""RTN"",""MCORMN01"",15,0)"
^XMB(3.9,73,2,1932,0)=" N PID,VADM,SSN,PTN,DOB,SEX,LOOP"
^XMB(3.9,73,2,1933,0)="""RTN"",""MCORMN01"",16,0)"
^XMB(3.9,73,2,1934,0)=" D DEM^VADPT"
^XMB(3.9,73,2,1935,0)="""RTN"",""MCORMN01"",17,0)"
^XMB(3.9,73,2,1936,0)=" S SSN=$$M11^HLFNC($P(VADM(2),U,1)),PTN=$$CONVERT(""P200"",VADM(1))"
^XMB(3.9,73,2,1937,0)="""RTN"",""MCORMN01"",18,0)"
^XMB(3.9,73,2,1938,0)=" S DOB=$$CONVERT(""D"",$P(VADM(3),U))"
^XMB(3.9,73,2,1939,0)="""RTN"",""MCORMN01"",19,0)"
^XMB(3.9,73,2,1940,0)=" S SEX=$P(VADM(5),U)"
^XMB(3.9,73,2,1941,0)="""RTN"",""MCORMN01"",20,0)"
^XMB(3.9,73,2,1942,0)=" S PID=""PID"",$P(PID,ST(1),4)=SSN"
^XMB(3.9,73,2,1943,0)="""RTN"",""MCORMN01"",21,0)"
^XMB(3.9,73,2,1944,0)=" S $P(PID,ST(1),7)=PTN,$P(PID,ST(1),8)=DOB,$P(PID,ST(1),9)=SEX"
^XMB(3.9,73,2,1945,0)="""RTN"",""MCORMN01"",22,0)"
^XMB(3.9,73,2,1946,0)=" Q PID"
^XMB(3.9,73,2,1947,0)="""RTN"",""MCORMN01"",23,0)"
^XMB(3.9,73,2,1948,0)="OBX1(FILETYPE,VTI,OBI,OSI,OBR) ; ODX Messaging Line"
^XMB(3.9,73,2,1949,0)="""RTN"",""MCORMN01"",24,0)"
^XMB(3.9,73,2,1950,0)=" N OBX"
^XMB(3.9,73,2,1951,0)="""RTN"",""MCORMN01"",25,0)"
^XMB(3.9,73,2,1952,0)=" S OBR=$$CONVERT(FILETYPE,OBR)"
^XMB(3.9,73,2,1953,0)="""RTN"",""MCORMN01"",26,0)"
^XMB(3.9,73,2,1954,0)=" S OBX=""OBX"",$P(OBX,ST(1),3)=VTI"
^XMB(3.9,73,2,1955,0)="""RTN"",""MCORMN01"",27,0)"
^XMB(3.9,73,2,1956,0)=" S $P(OBX,ST(1),4)=OBI,$P(OBX,ST(1),5)=OSI,$P(OBX,ST(1),6)=OBR"
^XMB(3.9,73,2,1957,0)="""RTN"",""MCORMN01"",28,0)"
^XMB(3.9,73,2,1958,0)=" Q OBX"
^XMB(3.9,73,2,1959,0)="""RTN"",""MCORMN01"",29,0)"
^XMB(3.9,73,2,1960,0)="OBX2(UNT,RNG) ; ODX Messaging Line"
^XMB(3.9,73,2,1961,0)="""RTN"",""MCORMN01"",30,0)"
^XMB(3.9,73,2,1962,0)=" N OBX"
^XMB(3.9,73,2,1963,0)="""RTN"",""MCORMN01"",31,0)"
^XMB(3.9,73,2,1964,0)=" S OBX="""""
^XMB(3.9,73,2,1965,0)="""RTN"",""MCORMN01"",32,0)"
^XMB(3.9,73,2,1966,0)=" S $P(OBX,ST(1),2)=UNT,$P(OBX,ST(1),3)=RNG"
^XMB(3.9,73,2,1967,0)="""RTN"",""MCORMN01"",33,0)"
^XMB(3.9,73,2,1968,0)=" Q OBX"
^XMB(3.9,73,2,1969,0)="""RTN"",""MCORMN01"",34,0)"
^XMB(3.9,73,2,1970,0)="OBR1(SDATE,MCPROC,REC,FILE) ; OBX Messaging Line"
^XMB(3.9,73,2,1971,0)="""RTN"",""MCORMN01"",35,0)"
^XMB(3.9,73,2,1972,0)=" N LOOP,TEMP,TMP,STAT,STR"
^XMB(3.9,73,2,1973,0)="""RTN"",""MCORMN01"",36,0)"
^XMB(3.9,73,2,1974,0)=" S TMP=+$O(^MCAR(697.2,""B"",MCPROC,""""))"
^XMB(3.9,73,2,1975,0)="""RTN"",""MCORMN01"",37,0)"
^XMB(3.9,73,2,1976,0)=" S:'TMP TMP=$P($G(^MCAR(697.2,TMP,0)),U,4)"
^XMB(3.9,73,2,1977,0)="""RTN"",""MCORMN01"",38,0)"
^XMB(3.9,73,2,1978,0)=" S TMP=$S(TMP=""C"":""EC"",TMP=""H"":""HM"",TMP[""P"":""PF"",1:""OTH"")"
^XMB(3.9,73,2,1979,0)="""RTN"",""MCORMN01"",39,0)"
^XMB(3.9,73,2,1980,0)=" S STAT=$P($G(^MCAR(MCFILE,REC,""ES"")),U,7)"
^XMB(3.9,73,2,1981,0)="""RTN"",""MCORMN01"",40,0)"
^XMB(3.9,73,2,1982,0)=" S STAT=$S(STAT=""RNV"":""R"",STAT=""RV"":""F"",STAT=""ROV"":""F"",STAT[""D"":""P"",1:"""")"
^XMB(3.9,73,2,1983,0)="""RTN"",""MCORMN01"",41,0)"
^XMB(3.9,73,2,1984,0)=" S TEMP=$$CONVERT(""D"",SDATE),STR=""OBR"",$P(STR,ST(1),8)=TEMP"
^XMB(3.9,73,2,1985,0)="""RTN"",""MCORMN01"",42,0)"
^XMB(3.9,73,2,1986,0)=" S $P(STR,ST(1),16)=TMP,$P(STR,ST(1),26)=STAT"
^XMB(3.9,73,2,1987,0)="""RTN"",""MCORMN01"",43,0)"
^XMB(3.9,73,2,1988,0)=" Q STR"
^XMB(3.9,73,2,1989,0)="""RTN"",""MCORMN01"",44,0)"
^XMB(3.9,73,2,1990,0)="CONVERT(FILETYPE,RST) ;Convert Fileman to HL7"
^XMB(3.9,73,2,1991,0)="""RTN"",""MCORMN01"",45,0)"
^XMB(3.9,73,2,1992,0)=" N TEMP"
^XMB(3.9,73,2,1993,0)="""RTN"",""MCORMN01"",46,0)"
^XMB(3.9,73,2,1994,0)=" S TEMP=RST"
^XMB(3.9,73,2,1995,0)="""RTN"",""MCORMN01"",47,0)"
^XMB(3.9,73,2,1996,0)=" I FILETYPE[""D"" D"
^XMB(3.9,73,2,1997,0)="""RTN"",""MCORMN01"",48,0)"
^XMB(3.9,73,2,1998,0)=" .S TEMP=$$HLDATE^HLFNC(RST,""TS"")"
^XMB(3.9,73,2,1999,0)="""RTN"",""MCORMN01"",49,0)"
^XMB(3.9,73,2,2000,0)=" S:(FILETYPE[""P200"")!(FILETYPE[""P690"") TEMP=$$HLNAME^HLFNC(RST)"
^XMB(3.9,73,2,2001,0)="""RTN"",""MCORMN01"",50,0)"
^XMB(3.9,73,2,2002,0)=" Q TEMP"
^XMB(3.9,73,2,2003,0)="""RTN"",""MDCVT"")"
^XMB(3.9,73,2,2004,0)="0^5^B81652612^n/a"
^XMB(3.9,73,2,2005,0)="""RTN"",""MDCVT"",1,0)"
^XMB(3.9,73,2,2006,0)="MDCVT ; HOIFO/DP/NCA - Medicine Package Conversion ;10/20/04  12:49"
^XMB(3.9,73,2,2007,0)="""RTN"",""MDCVT"",2,0)"
^XMB(3.9,73,2,2008,0)=" ;;1.0;CLINICAL PROCEDURES;**5**;Apr 01, 2004;Build 1"
^XMB(3.9,73,2,2009,0)="""RTN"",""MDCVT"",3,0)"
^XMB(3.9,73,2,2010,0)=" ; Integration Agreements:"
^XMB(3.9,73,2,2011,0)="""RTN"",""MDCVT"",4,0)"
^XMB(3.9,73,2,2012,0)=" ; IA# 2263 [Supported] XPAR parameter calls."
^XMB(3.9,73,2,2013,0)="""RTN"",""MDCVT"",5,0)"
^XMB(3.9,73,2,2014,0)=" ; IA# 2320 [Supported] %ZISH calls."
^XMB(3.9,73,2,2015,0)="""RTN"",""MDCVT"",6,0)"
^XMB(3.9,73,2,2016,0)=" ; IA#10031 [Supported] DDS call to bring up Screen Man"
^XMB(3.9,73,2,2017,0)="""RTN"",""MDCVT"",7,0)"
^XMB(3.9,73,2,2018,0)=" ;"
^XMB(3.9,73,2,2019,0)="""RTN"",""MDCVT"",8,0)"
^XMB(3.9,73,2,2020,0)="EN ; [Procedure] Main entry point to convert database to TIU notes"
^XMB(3.9,73,2,2021,0)="""RTN"",""MDCVT"",9,0)"
^XMB(3.9,73,2,2022,0)=" N MDCNVT,MDDIR,MDFILE,MDREC,MDTEST,MDTIUI,MDXR,ORHFS,X,Y"
^XMB(3.9,73,2,2023,0)="""RTN"",""MDCVT"",10,0)"
^XMB(3.9,73,2,2024,0)=" S (MDCNVT(""CR""),MDCNVT(""CT""),MDCNVT(""E""),MDCNVT(""S""),MDCNVT(""TOT""))=0"
^XMB(3.9,73,2,2025,0)="""RTN"",""MDCVT"",11,0)"
^XMB(3.9,73,2,2026,0)=" I $$GET^XPAR(""SYS"",""MD MEDICINE CONVERTED"",1) W !!,""Already Converted"" Q"
^XMB(3.9,73,2,2027,0)="""RTN"",""MDCVT"",12,0)"
^XMB(3.9,73,2,2028,0)=" I '$P($G(^MDD(703.9,1,0)),U,3) W !!,""No Administrative Closure Person."" Q"
^XMB(3.9,73,2,2029,0)="""RTN"",""MDCVT"",13,0)"
^XMB(3.9,73,2,2030,0)=" S MDTEST=+$P($G(^MDD(703.9,1,0)),U,2)'=1"
^XMB(3.9,73,2,2031,0)="""RTN"",""MDCVT"",14,0)"
^XMB(3.9,73,2,2032,0)=" S MDXR=$O(^MDD(703.9,1,2,""AS"","""")) I MDXR="""" W !!,""No Conversion List.  Run Build Conversion List option."" Q"
^XMB(3.9,73,2,2033,0)="""RTN"",""MDCVT"",15,0)"
^XMB(3.9,73,2,2034,0)=" ;"
^XMB(3.9,73,2,2035,0)="""RTN"",""MDCVT"",16,0)"
^XMB(3.9,73,2,2036,0)=" W @IOF,!,""Medicine to Clinical Procedure Conversion"""
^XMB(3.9,73,2,2037,0)="""RTN"",""MDCVT"",17,0)"
^XMB(3.9,73,2,2038,0)=" K DIR S DIR(0)=""YA"""
^XMB(3.9,73,2,2039,0)="""RTN"",""MDCVT"",18,0)"
^XMB(3.9,73,2,2040,0)=" S DIR(""A"")=""Ok to continue? """
^XMB(3.9,73,2,2041,0)="""RTN"",""MDCVT"",19,0)"
^XMB(3.9,73,2,2042,0)=" S DIR(""A"",1)=""Running conversion in ""_$S(MDTEST:""TEST"",1:""REAL"")_"" mode."",DIR(""B"")=""NO"" D ^DIR K DIR Q:$D(DIRUT)!$D(DIROUT)!(Y<1)"
^XMB(3.9,73,2,2043,0)="""RTN"",""MDCVT"",20,0)"
^XMB(3.9,73,2,2044,0)=" ;"
^XMB(3.9,73,2,2045,0)="""RTN"",""MDCVT"",21,0)"
^XMB(3.9,73,2,2046,0)=" ; Set up the HFS variables"
^XMB(3.9,73,2,2047,0)="""RTN"",""MDCVT"",22,0)"
^XMB(3.9,73,2,2048,0)=" S MDFILE=""MDCVT.TXT"",MDDIR=$P($G(^MDD(703.9,1,.1)),U)"
^XMB(3.9,73,2,2049,0)="""RTN"",""MDCVT"",23,0)"
^XMB(3.9,73,2,2050,0)=" S X=$$TESTHFS() I '+X W !!,""HFS Device Error: "",$P(X,U,2) Q"
^XMB(3.9,73,2,2051,0)="""RTN"",""MDCVT"",24,0)"
^XMB(3.9,73,2,2052,0)=" ;"
^XMB(3.9,73,2,2053,0)="""RTN"",""MDCVT"",25,0)"
^XMB(3.9,73,2,2054,0)=" ; Last Chance"
^XMB(3.9,73,2,2055,0)="""RTN"",""MDCVT"",26,0)"
^XMB(3.9,73,2,2056,0)=" W ! K DIR S DIR(0)=""YA"""
^XMB(3.9,73,2,2057,0)="""RTN"",""MDCVT"",27,0)"
^XMB(3.9,73,2,2058,0)=" S DIR(""A"")=""Ready to ""_$S(MDTEST:""test the conversion of"",1:""convert"")_"" the Medicine Files? """
^XMB(3.9,73,2,2059,0)="""RTN"",""MDCVT"",28,0)"
^XMB(3.9,73,2,2060,0)=" S DIR(""B"")=""NO"" D ^DIR K DIR Q:$D(DIRUT)!$D(DIROUT)!(Y<1)"
^XMB(3.9,73,2,2061,0)="""RTN"",""MDCVT"",29,0)"
^XMB(3.9,73,2,2062,0)=" ;"
^XMB(3.9,73,2,2063,0)="""RTN"",""MDCVT"",30,0)"
^XMB(3.9,73,2,2064,0)=" ; See if previous errors need to be reset"
^XMB(3.9,73,2,2065,0)="""RTN"",""MDCVT"",31,0)"
^XMB(3.9,73,2,2066,0)=" W !!,""Conversion in progress..."",!"
^XMB(3.9,73,2,2067,0)="""RTN"",""MDCVT"",32,0)"
^XMB(3.9,73,2,2068,0)=" D RESET"
^XMB(3.9,73,2,2069,0)="""RTN"",""MDCVT"",33,0)"
^XMB(3.9,73,2,2070,0)=" ;"
^XMB(3.9,73,2,2071,0)="""RTN"",""MDCVT"",34,0)"
^XMB(3.9,73,2,2072,0)=" ; Set MDREC up here - This prevents loss on M error trap in EN1"
^XMB(3.9,73,2,2073,0)="""RTN"",""MDCVT"",35,0)"
^XMB(3.9,73,2,2074,0)=" S MDREC=0"
^XMB(3.9,73,2,2075,0)="""RTN"",""MDCVT"",36,0)"
^XMB(3.9,73,2,2076,0)=" ;"
^XMB(3.9,73,2,2077,0)="""RTN"",""MDCVT"",37,0)"
^XMB(3.9,73,2,2078,0)=" W !?5,""[.] Indicates converted record"""
^XMB(3.9,73,2,2079,0)="""RTN"",""MDCVT"",38,0)"
^XMB(3.9,73,2,2080,0)=" W !?5,""[*] Indicates error in record"",!!"
^XMB(3.9,73,2,2081,0)="""RTN"",""MDCVT"",39,0)"
^XMB(3.9,73,2,2082,0)=" ;"
^XMB(3.9,73,2,2083,0)="""RTN"",""MDCVT"",40,0)"
^XMB(3.9,73,2,2084,0)="EN1 ; [Procedure] Resumes on error via $ETRAP variable"
^XMB(3.9,73,2,2085,0)="""RTN"",""MDCVT"",41,0)"
^XMB(3.9,73,2,2086,0)=" N $ESTACK,$ETRAP S $ETRAP=""ERR^MDCVT"""
^XMB(3.9,73,2,2087,0)="""RTN"",""MDCVT"",42,0)"
^XMB(3.9,73,2,2088,0)=" N MDCONS,MDECON,MDFDA,MDNODE,MDNOTE,MDOK,MDPR,MDR,MDR1,MDSTUD,MDUSR,MDX1"
^XMB(3.9,73,2,2089,0)="""RTN"",""MDCVT"",43,0)"
^XMB(3.9,73,2,2090,0)=" F  S MDREC=$O(^MDD(703.9,1,2,""AS"",""R"",MDREC)) Q:'MDREC  D"
^XMB(3.9,73,2,2091,0)="""RTN"",""MDCVT"",44,0)"
^XMB(3.9,73,2,2092,0)=" .S MDPTR=$$GET1^DIQ(703.92,MDREC_"",1,"",.01) Q:MDPTR="""""
^XMB(3.9,73,2,2093,0)="""RTN"",""MDCVT"",45,0)"
^XMB(3.9,73,2,2094,0)=" .S MDGBL=U_$P(MDPTR,"";"",2)_$P(MDPTR,"";"",1)_"")"""
^XMB(3.9,73,2,2095,0)="""RTN"",""MDCVT"",46,0)"
^XMB(3.9,73,2,2096,0)=" .S MDCNVT(""TOT"")=MDCNVT(""TOT"")+1"
^XMB(3.9,73,2,2097,0)="""RTN"",""MDCVT"",47,0)"
^XMB(3.9,73,2,2098,0)=" .I '$P($G(^MDD(703.9,1,1,+$P(MDGBL,""("",2),0)),U,3) D  Q"
^XMB(3.9,73,2,2099,0)="""RTN"",""MDCVT"",48,0)"
^XMB(3.9,73,2,2100,0)=" ..D SKIP(MDPTR,""Report type not marked for conversion"")"
^XMB(3.9,73,2,2101,0)="""RTN"",""MDCVT"",49,0)"
^XMB(3.9,73,2,2102,0)=" ..S MDCNVT(""S"")=MDCNVT(""S"")+1"
^XMB(3.9,73,2,2103,0)="""RTN"",""MDCVT"",50,0)"
^XMB(3.9,73,2,2104,0)=" .S MDSTAT=$P($G(@MDGBL@(""ES"")),U,7)"
^XMB(3.9,73,2,2105,0)="""RTN"",""MDCVT"",51,0)"
^XMB(3.9,73,2,2106,0)=" .I MDSTAT="""" D  Q:'MDOK"
^XMB(3.9,73,2,2107,0)="""RTN"",""MDCVT"",52,0)"
^XMB(3.9,73,2,2108,0)=" ..S MDOK=+$P($G(^MDD(703.9,1,1,+$P(MDGBL,""("",2),0)),U,4)"
^XMB(3.9,73,2,2109,0)="""RTN"",""MDCVT"",53,0)"
^XMB(3.9,73,2,2110,0)=" ..D:'MDOK LOGERR(MDPTR,""Unable to determine status"")"
^XMB(3.9,73,2,2111,0)="""RTN"",""MDCVT"",54,0)"
^XMB(3.9,73,2,2112,0)=" .I MDSTAT=""S"" D SKIP(MDPTR,""Report Superseded"") S MDCNVT(""S"")=MDCNVT(""S"")+1 Q"
^XMB(3.9,73,2,2113,0)="""RTN"",""MDCVT"",55,0)"
^XMB(3.9,73,2,2114,0)=" .I MDSTAT[""D"" D LOGERR(MDPTR,""Report in Draft/Problem Draft status"") Q"
^XMB(3.9,73,2,2115,0)="""RTN"",""MDCVT"",56,0)"
^XMB(3.9,73,2,2116,0)=" .;I MDSTAT=""RNV"" D LOGERR(MDPTR,""Report not verified"") Q"
^XMB(3.9,73,2,2117,0)="""RTN"",""MDCVT"",57,0)"
^XMB(3.9,73,2,2118,0)=" .I MDTEST W ""."" ; Progress indicator"
^XMB(3.9,73,2,2119,0)="""RTN"",""MDCVT"",58,0)"
^XMB(3.9,73,2,2120,0)=" .;"
^XMB(3.9,73,2,2121,0)="""RTN"",""MDCVT"",59,0)"
^XMB(3.9,73,2,2122,0)=" .; Produce report using HFS device MDHFS"
^XMB(3.9,73,2,2123,0)="""RTN"",""MDCVT"",60,0)"
^XMB(3.9,73,2,2124,0)=" .S %ZIS(""HFSNAME"")=MDDIR_MDFILE,%ZIS(""HFSMODE"")=""W"",IOP=""MDHFS;P-MDHFS"""
^XMB(3.9,73,2,2125,0)="""RTN"",""MDCVT"",61,0)"
^XMB(3.9,73,2,2126,0)=" .D ^%ZIS I POP D LOGERR(MDPTR,""No HFS Access or device MDHFS"") Q"
^XMB(3.9,73,2,2127,0)="""RTN"",""MDCVT"",62,0)"
^XMB(3.9,73,2,2128,0)=" .S ORHFS=""SCRATCH"""
^XMB(3.9,73,2,2129,0)="""RTN"",""MDCVT"",63,0)"
^XMB(3.9,73,2,2130,0)=" .U IO D EN^MCAPI(MDPTR,0) D ^%ZISC"
^XMB(3.9,73,2,2131,0)="""RTN"",""MDCVT"",64,0)"
^XMB(3.9,73,2,2132,0)=" .;"
^XMB(3.9,73,2,2133,0)="""RTN"",""MDCVT"",65,0)"
^XMB(3.9,73,2,2134,0)=" .; Fetch the report text"
^XMB(3.9,73,2,2135,0)="""RTN"",""MDCVT"",66,0)"
^XMB(3.9,73,2,2136,0)=" .K ^TMP($J)"
^XMB(3.9,73,2,2137,0)="""RTN"",""MDCVT"",67,0)"
^XMB(3.9,73,2,2138,0)=" .S X=$$FTG^%ZISH(MDDIR,MDFILE,$NA(^TMP($J,1)),2)"
^XMB(3.9,73,2,2139,0)="""RTN"",""MDCVT"",68,0)"
^XMB(3.9,73,2,2140,0)=" .;"
^XMB(3.9,73,2,2141,0)="""RTN"",""MDCVT"",69,0)"
^XMB(3.9,73,2,2142,0)=" .; Delete the Host File"
^XMB(3.9,73,2,2143,0)="""RTN"",""MDCVT"",70,0)"
^XMB(3.9,73,2,2144,0)=" .S DELETE(MDFILE)="""""
^XMB(3.9,73,2,2145,0)="""RTN"",""MDCVT"",71,0)"
^XMB(3.9,73,2,2146,0)=" .S X=$$DEL^%ZISH(MDDIR,""DELETE"")"
^XMB(3.9,73,2,2147,0)="""RTN"",""MDCVT"",72,0)"
^XMB(3.9,73,2,2148,0)=" .; Is it a valid report?"
^XMB(3.9,73,2,2149,0)="""RTN"",""MDCVT"",73,0)"
^XMB(3.9,73,2,2150,0)=" .S LINES=$O(^TMP($J,""""),-1)"
^XMB(3.9,73,2,2151,0)="""RTN"",""MDCVT"",74,0)"
^XMB(3.9,73,2,2152,0)=" .S BYTES=0 F X=0:0 S X=$O(^TMP($J,X)) Q:'X  S BYTES=BYTES+$L(^(X))"
^XMB(3.9,73,2,2153,0)="""RTN"",""MDCVT"",75,0)"
^XMB(3.9,73,2,2154,0)=" .I LINES<5&(^TMP($J,2)[""BAD MEDICINE"") D LOGERR(MDPTR,^TMP($J,2)) Q"
^XMB(3.9,73,2,2155,0)="""RTN"",""MDCVT"",76,0)"
^XMB(3.9,73,2,2156,0)=" .;"
^XMB(3.9,73,2,2157,0)="""RTN"",""MDCVT"",77,0)"
^XMB(3.9,73,2,2158,0)=" .; Get Legal header For Report"
^XMB(3.9,73,2,2159,0)="""RTN"",""MDCVT"",78,0)"
^XMB(3.9,73,2,2160,0)=" .S RESULTS=$NA(^TMP($J)) D GETHDR^MDESPRT(.RESULTS,MDPTR)"
^XMB(3.9,73,2,2161,0)="""RTN"",""MDCVT"",79,0)"
^XMB(3.9,73,2,2162,0)=" .;"
^XMB(3.9,73,2,2163,0)="""RTN"",""MDCVT"",80,0)"
^XMB(3.9,73,2,2164,0)=" .; If test mode quit at this point"
^XMB(3.9,73,2,2165,0)="""RTN"",""MDCVT"",81,0)"
^XMB(3.9,73,2,2166,0)=" .I MDTEST D FINISH(MDPTR,LINES,BYTES,"""") S MDCNVT(""CT"")=MDCNVT(""CT"")+1 Q"
^XMB(3.9,73,2,2167,0)="""RTN"",""MDCVT"",82,0)"
^XMB(3.9,73,2,2168,0)=" .;"
^XMB(3.9,73,2,2169,0)="""RTN"",""MDCVT"",83,0)"
^XMB(3.9,73,2,2170,0)=" .; If real mode set to Unspecified Error status and proceed"
^XMB(3.9,73,2,2171,0)="""RTN"",""MDCVT"",84,0)"
^XMB(3.9,73,2,2172,0)=" .;D LOGERR(MDPTR,""Unspecified Error"")"
^XMB(3.9,73,2,2173,0)="""RTN"",""MDCVT"",85,0)"
^XMB(3.9,73,2,2174,0)=" .S MDNODE=$G(^MDD(703.9,1,2,+MDREC,0))"
^XMB(3.9,73,2,2175,0)="""RTN"",""MDCVT"",86,0)"
^XMB(3.9,73,2,2176,0)=" .S MDNODE=$P(MDNODE,U,1)"
^XMB(3.9,73,2,2177,0)="""RTN"",""MDCVT"",87,0)"
^XMB(3.9,73,2,2178,0)=" .;"
^XMB(3.9,73,2,2179,0)="""RTN"",""MDCVT"",88,0)"
^XMB(3.9,73,2,2180,0)=" .; Create the note"
^XMB(3.9,73,2,2181,0)="""RTN"",""MDCVT"",89,0)"
^XMB(3.9,73,2,2182,0)=" .S MDTIUI=$$CONVERT^MDCVT1(MDNODE,$NA(^TMP($J)))"
^XMB(3.9,73,2,2183,0)="""RTN"",""MDCVT"",90,0)"
^XMB(3.9,73,2,2184,0)=" .I +MDTIUI'>0 D LOGERR(MDPTR,""Couldn't create the TIU document"") Q"
^XMB(3.9,73,2,2185,0)="""RTN"",""MDCVT"",91,0)"
^XMB(3.9,73,2,2186,0)=" .;"
^XMB(3.9,73,2,2187,0)="""RTN"",""MDCVT"",92,0)"
^XMB(3.9,73,2,2188,0)=" .; Update Consults and Imaging"
^XMB(3.9,73,2,2189,0)="""RTN"",""MDCVT"",93,0)"
^XMB(3.9,73,2,2190,0)=" .;"
^XMB(3.9,73,2,2191,0)="""RTN"",""MDCVT"",94,0)"
^XMB(3.9,73,2,2192,0)=" .D UPD^MDCVT1(MDGBL,MDNODE,MDTIUI,MDTEST)"
^XMB(3.9,73,2,2193,0)="""RTN"",""MDCVT"",95,0)"
^XMB(3.9,73,2,2194,0)=" .;"
^XMB(3.9,73,2,2195,0)="""RTN"",""MDCVT"",96,0)"
^XMB(3.9,73,2,2196,0)=" .; Flag as finished"
^XMB(3.9,73,2,2197,0)="""RTN"",""MDCVT"",97,0)"
^XMB(3.9,73,2,2198,0)=" .;"
^XMB(3.9,73,2,2199,0)="""RTN"",""MDCVT"",98,0)"
^XMB(3.9,73,2,2200,0)=" .D FINISH(MDPTR,LINES,BYTES,MDTIUI) S MDCNVT(""CR"")=MDCNVT(""CR"")+1"
^XMB(3.9,73,2,2201,0)="""RTN"",""MDCVT"",99,0)"
^XMB(3.9,73,2,2202,0)=" ;"
^XMB(3.9,73,2,2203,0)="""RTN"",""MDCVT"",100,0)"
^XMB(3.9,73,2,2204,0)=" D TOTALS^MDCVT1(.MDCNVT)"
^XMB(3.9,73,2,2205,0)="""RTN"",""MDCVT"",101,0)"
^XMB(3.9,73,2,2206,0)=" Q"
^XMB(3.9,73,2,2207,0)="""RTN"",""MDCVT"",102,0)"
^XMB(3.9,73,2,2208,0)=" ;"
^XMB(3.9,73,2,2209,0)="""RTN"",""MDCVT"",103,0)"
^XMB(3.9,73,2,2210,0)="TESTHFS() ; Verify HFS is working properly"
^XMB(3.9,73,2,2211,0)="""RTN"",""MDCVT"",104,0)"
^XMB(3.9,73,2,2212,0)=" N MDNOW"
^XMB(3.9,73,2,2213,0)="""RTN"",""MDCVT"",105,0)"
^XMB(3.9,73,2,2214,0)=" S %ZIS(""HFSNAME"")=MDDIR_MDFILE,%ZIS(""HFSMODE"")=""W"",IOP=""MDHFS;P-MDHFS"""
^XMB(3.9,73,2,2215,0)="""RTN"",""MDCVT"",106,0)"
^XMB(3.9,73,2,2216,0)=" D ^%ZIS I POP W !,""No HFS Access or missing device MDHFS"" Q 0"
^XMB(3.9,73,2,2217,0)="""RTN"",""MDCVT"",107,0)"
^XMB(3.9,73,2,2218,0)=" S X=1 D  Q:'X 0"
^XMB(3.9,73,2,2219,0)="""RTN"",""MDCVT"",108,0)"
^XMB(3.9,73,2,2220,0)=" .I IOT'=""HFS"" W !,""Device MDHFS not of type HFS"" S X=0"
^XMB(3.9,73,2,2221,0)="""RTN"",""MDCVT"",109,0)"
^XMB(3.9,73,2,2222,0)=" .I IOST'=""P-MDHFS"" W !,""Missing Terminal Type P-MDHFS"" S X=0 Q"
^XMB(3.9,73,2,2223,0)="""RTN"",""MDCVT"",110,0)"
^XMB(3.9,73,2,2224,0)=" .I IOSL'=88 W !,""Improper Page Length in Terminal Type P-MDHFS"" S X=0"
^XMB(3.9,73,2,2225,0)="""RTN"",""MDCVT"",111,0)"
^XMB(3.9,73,2,2226,0)=" .I IOM'=80 W !,""Improper Page Width in Terminal Type P-MDHFS"" S X=0"
^XMB(3.9,73,2,2227,0)="""RTN"",""MDCVT"",112,0)"
^XMB(3.9,73,2,2228,0)=" .I IOF'=""#"" W !,""Improper Form Feed in Terminal Type P-MDHFS"" S X=0"
^XMB(3.9,73,2,2229,0)="""RTN"",""MDCVT"",113,0)"
^XMB(3.9,73,2,2230,0)=" ;"
^XMB(3.9,73,2,2231,0)="""RTN"",""MDCVT"",114,0)"
^XMB(3.9,73,2,2232,0)=" D NOW^%DTC S MDNOW=% K %"
^XMB(3.9,73,2,2233,0)="""RTN"",""MDCVT"",115,0)"
^XMB(3.9,73,2,2234,0)=" U IO W !!,MDNOW"
^XMB(3.9,73,2,2235,0)="""RTN"",""MDCVT"",116,0)"
^XMB(3.9,73,2,2236,0)=" D ^%ZISC"
^XMB(3.9,73,2,2237,0)="""RTN"",""MDCVT"",117,0)"
^XMB(3.9,73,2,2238,0)=" ;"
^XMB(3.9,73,2,2239,0)="""RTN"",""MDCVT"",118,0)"
^XMB(3.9,73,2,2240,0)=" ; Fetch the text"
^XMB(3.9,73,2,2241,0)="""RTN"",""MDCVT"",119,0)"
^XMB(3.9,73,2,2242,0)=" K ^TMP($J)"
^XMB(3.9,73,2,2243,0)="""RTN"",""MDCVT"",120,0)"
^XMB(3.9,73,2,2244,0)=" S X=$$FTG^%ZISH(MDDIR,MDFILE,$NA(^TMP($J,1)),2)"
^XMB(3.9,73,2,2245,0)="""RTN"",""MDCVT"",121,0)"
^XMB(3.9,73,2,2246,0)=" I 'X W !,""Unable to retrieve data back from Host File"" Q 0"
^XMB(3.9,73,2,2247,0)="""RTN"",""MDCVT"",122,0)"
^XMB(3.9,73,2,2248,0)=" I ^TMP($J,3)'=MDNOW W !,""Error verifying data in Host File"" Q 0"
^XMB(3.9,73,2,2249,0)="""RTN"",""MDCVT"",123,0)"
^XMB(3.9,73,2,2250,0)=" ;"
^XMB(3.9,73,2,2251,0)="""RTN"",""MDCVT"",124,0)"
^XMB(3.9,73,2,2252,0)=" ; Delete the Host File"
^XMB(3.9,73,2,2253,0)="""RTN"",""MDCVT"",125,0)"
^XMB(3.9,73,2,2254,0)=" S DELETE(MDFILE)="""""
^XMB(3.9,73,2,2255,0)="""RTN"",""MDCVT"",126,0)"
^XMB(3.9,73,2,2256,0)=" S X=$$DEL^%ZISH(MDDIR,""DELETE"")"
^XMB(3.9,73,2,2257,0)="""RTN"",""MDCVT"",127,0)"
^XMB(3.9,73,2,2258,0)=" I X'=1 W !,""Unable delete Host File"" Q 0"
^XMB(3.9,73,2,2259,0)="""RTN"",""MDCVT"",128,0)"
^XMB(3.9,73,2,2260,0)=" Q 1"
^XMB(3.9,73,2,2261,0)="""RTN"",""MDCVT"",129,0)"
^XMB(3.9,73,2,2262,0)=" ;"
^XMB(3.9,73,2,2263,0)="""RTN"",""MDCVT"",130,0)"
^XMB(3.9,73,2,2264,0)="ERR ; M Error trap submodule to document error and continue"
^XMB(3.9,73,2,2265,0)="""RTN"",""MDCVT"",131,0)"
^XMB(3.9,73,2,2266,0)=" D LOGERR(MDPTR,$ECODE)"
^XMB(3.9,73,2,2267,0)="""RTN"",""MDCVT"",132,0)"
^XMB(3.9,73,2,2268,0)=" I $G(ION)=""MDHFS"" D ^%ZISC ; Close device if using the HFS"
^XMB(3.9,73,2,2269,0)="""RTN"",""MDCVT"",133,0)"
^XMB(3.9,73,2,2270,0)=" G EN1"
^XMB(3.9,73,2,2271,0)="""RTN"",""MDCVT"",134,0)"
^XMB(3.9,73,2,2272,0)=" ;"
^XMB(3.9,73,2,2273,0)="""RTN"",""MDCVT"",135,0)"
^XMB(3.9,73,2,2274,0)="FINISH(MDPTR,LINES,BYTES,TIUIEN) ; Update status to converted"
^XMB(3.9,73,2,2275,0)="""RTN"",""MDCVT"",136,0)"
^XMB(3.9,73,2,2276,0)=" N MDFDA,MDIEN,MDIENS"
^XMB(3.9,73,2,2277,0)="""RTN"",""MDCVT"",137,0)"
^XMB(3.9,73,2,2278,0)=" S MDIEN=$O(^MDD(703.9,1,2,""B"",MDPTR,0))"
^XMB(3.9,73,2,2279,0)="""RTN"",""MDCVT"",138,0)"
^XMB(3.9,73,2,2280,0)=" I MDIEN<1 W !,""Error, no log entry "",MDPTR Q"
^XMB(3.9,73,2,2281,0)="""RTN"",""MDCVT"",139,0)"
^XMB(3.9,73,2,2282,0)=" S MDIENS=MDIEN_"",1,"""
^XMB(3.9,73,2,2283,0)="""RTN"",""MDCVT"",140,0)"
^XMB(3.9,73,2,2284,0)=" I MDTEST S MDFDA(703.92,MDIENS,.02)=""CT"""
^XMB(3.9,73,2,2285,0)="""RTN"",""MDCVT"",141,0)"
^XMB(3.9,73,2,2286,0)=" E  S MDFDA(703.92,MDIENS,.02)=""CR"""
^XMB(3.9,73,2,2287,0)="""RTN"",""MDCVT"",142,0)"
^XMB(3.9,73,2,2288,0)=" S MDFDA(703.92,MDIENS,.03)=TIUIEN"
^XMB(3.9,73,2,2289,0)="""RTN"",""MDCVT"",143,0)"
^XMB(3.9,73,2,2290,0)=" S MDFDA(703.92,MDIENS,.04)=LINES"
^XMB(3.9,73,2,2291,0)="""RTN"",""MDCVT"",144,0)"
^XMB(3.9,73,2,2292,0)=" S MDFDA(703.92,MDIENS,.05)=BYTES"
^XMB(3.9,73,2,2293,0)="""RTN"",""MDCVT"",145,0)"
^XMB(3.9,73,2,2294,0)=" S MDFDA(703.92,MDIENS,.1)=LINES_"" lines, ""_BYTES_"" bytes"""
^XMB(3.9,73,2,2295,0)="""RTN"",""MDCVT"",146,0)"
^XMB(3.9,73,2,2296,0)=" D FILE^DIE("""",""MDFDA"")"
^XMB(3.9,73,2,2297,0)="""RTN"",""MDCVT"",147,0)"
^XMB(3.9,73,2,2298,0)=" Q"
^XMB(3.9,73,2,2299,0)="""RTN"",""MDCVT"",148,0)"
^XMB(3.9,73,2,2300,0)=" ;"
^XMB(3.9,73,2,2301,0)="""RTN"",""MDCVT"",149,0)"
^XMB(3.9,73,2,2302,0)="LOGERR(MDPTR,ERRMSG) ; Log conversion error"
^XMB(3.9,73,2,2303,0)="""RTN"",""MDCVT"",150,0)"
^XMB(3.9,73,2,2304,0)=" N MDFDA,MDIEN,MDIENS"
^XMB(3.9,73,2,2305,0)="""RTN"",""MDCVT"",151,0)"
^XMB(3.9,73,2,2306,0)=" S MDIEN=$O(^MDD(703.9,1,2,""B"",MDPTR,0))"
^XMB(3.9,73,2,2307,0)="""RTN"",""MDCVT"",152,0)"
^XMB(3.9,73,2,2308,0)=" I MDIEN<1 W !,""Error, no log entry "",MDPTR Q"
^XMB(3.9,73,2,2309,0)="""RTN"",""MDCVT"",153,0)"
^XMB(3.9,73,2,2310,0)=" S MDIENS=MDIEN_"",1,"""
^XMB(3.9,73,2,2311,0)="""RTN"",""MDCVT"",154,0)"
^XMB(3.9,73,2,2312,0)=" S MDFDA(703.92,MDIENS,.02)=""E"""
^XMB(3.9,73,2,2313,0)="""RTN"",""MDCVT"",155,0)"
^XMB(3.9,73,2,2314,0)=" S MDFDA(703.92,MDIENS,.1)=$TR(ERRMSG,U,""~"")"
^XMB(3.9,73,2,2315,0)="""RTN"",""MDCVT"",156,0)"
^XMB(3.9,73,2,2316,0)=" D FILE^DIE("""",""MDFDA"")"
^XMB(3.9,73,2,2317,0)="""RTN"",""MDCVT"",157,0)"
^XMB(3.9,73,2,2318,0)=" W ""*"" ; Progress indicator"
^XMB(3.9,73,2,2319,0)="""RTN"",""MDCVT"",158,0)"
^XMB(3.9,73,2,2320,0)=" Q"
^XMB(3.9,73,2,2321,0)="""RTN"",""MDCVT"",159,0)"
^XMB(3.9,73,2,2322,0)=" ;"
^XMB(3.9,73,2,2323,0)="""RTN"",""MDCVT"",160,0)"
^XMB(3.9,73,2,2324,0)="RESET ; Reset error status reports to READY TO CONVERT"
^XMB(3.9,73,2,2325,0)="""RTN"",""MDCVT"",161,0)"
^XMB(3.9,73,2,2326,0)=" N MDIEN S MDIEN=0"
^XMB(3.9,73,2,2327,0)="""RTN"",""MDCVT"",162,0)"
^XMB(3.9,73,2,2328,0)=" ; Check for real mode and convert test conversions"
^XMB(3.9,73,2,2329,0)="""RTN"",""MDCVT"",163,0)"
^XMB(3.9,73,2,2330,0)=" I 'MDTEST F  S MDIEN=$O(^MDD(703.9,1,2,""AS"",""CT"",MDIEN)) Q:'MDIEN  D"
^XMB(3.9,73,2,2331,0)="""RTN"",""MDCVT"",164,0)"
^XMB(3.9,73,2,2332,0)=" .N MDFDA"
^XMB(3.9,73,2,2333,0)="""RTN"",""MDCVT"",165,0)"
^XMB(3.9,73,2,2334,0)=" .S MDFDA(703.92,MDIEN_"",1,"",.02)=""R"""
^XMB(3.9,73,2,2335,0)="""RTN"",""MDCVT"",166,0)"
^XMB(3.9,73,2,2336,0)=" .D FILE^DIE("""",""MDFDA"")"
^XMB(3.9,73,2,2337,0)="""RTN"",""MDCVT"",167,0)"
^XMB(3.9,73,2,2338,0)=" ; Regardless of mode switch skipped back to ready"
^XMB(3.9,73,2,2339,0)="""RTN"",""MDCVT"",168,0)"
^XMB(3.9,73,2,2340,0)=" F  S MDIEN=$O(^MDD(703.9,1,2,""AS"",""S"",MDIEN)) Q:'MDIEN  D"
^XMB(3.9,73,2,2341,0)="""RTN"",""MDCVT"",169,0)"
^XMB(3.9,73,2,2342,0)=" .N MDFDA"
^XMB(3.9,73,2,2343,0)="""RTN"",""MDCVT"",170,0)"
^XMB(3.9,73,2,2344,0)=" .S MDFDA(703.92,MDIEN_"",1,"",.02)=""R"""
^XMB(3.9,73,2,2345,0)="""RTN"",""MDCVT"",171,0)"
^XMB(3.9,73,2,2346,0)=" .D FILE^DIE("""",""MDFDA"")"
^XMB(3.9,73,2,2347,0)="""RTN"",""MDCVT"",172,0)"
^XMB(3.9,73,2,2348,0)=" ; Regardless of mode switch errors back to ready"
^XMB(3.9,73,2,2349,0)="""RTN"",""MDCVT"",173,0)"
^XMB(3.9,73,2,2350,0)=" F  S MDIEN=$O(^MDD(703.9,1,2,""AS"",""E"",MDIEN)) Q:'MDIEN  D"
^XMB(3.9,73,2,2351,0)="""RTN"",""MDCVT"",174,0)"
^XMB(3.9,73,2,2352,0)=" .N MDFDA"
^XMB(3.9,73,2,2353,0)="""RTN"",""MDCVT"",175,0)"
^XMB(3.9,73,2,2354,0)=" .S MDFDA(703.92,MDIEN_"",1,"",.02)=""R"""
^XMB(3.9,73,2,2355,0)="""RTN"",""MDCVT"",176,0)"
^XMB(3.9,73,2,2356,0)=" .D FILE^DIE("""",""MDFDA"")"
^XMB(3.9,73,2,2357,0)="""RTN"",""MDCVT"",177,0)"
^XMB(3.9,73,2,2358,0)=" Q"
^XMB(3.9,73,2,2359,0)="""RTN"",""MDCVT"",178,0)"
^XMB(3.9,73,2,2360,0)=" ;"
^XMB(3.9,73,2,2361,0)="""RTN"",""MDCVT"",179,0)"
^XMB(3.9,73,2,2362,0)="REBUILD ; [Procedure] Build the file manually"
^XMB(3.9,73,2,2363,0)="""RTN"",""MDCVT"",180,0)"
^XMB(3.9,73,2,2364,0)=" N MDROOT"
^XMB(3.9,73,2,2365,0)="""RTN"",""MDCVT"",181,0)"
^XMB(3.9,73,2,2366,0)=" S X=$P(^MDD(703.9,0),U,1,2)_U_U K ^MDD(703.9) S ^MDD(703.9,0)=X"
^XMB(3.9,73,2,2367,0)="""RTN"",""MDCVT"",182,0)"
^XMB(3.9,73,2,2368,0)=" S MDROOT=$NA(^MDD(703.9,1))"
^XMB(3.9,73,2,2369,0)="""RTN"",""MDCVT"",183,0)"
^XMB(3.9,73,2,2370,0)=" S @MDROOT@(0)=""DEFAULT"""
^XMB(3.9,73,2,2371,0)="""RTN"",""MDCVT"",184,0)"
^XMB(3.9,73,2,2372,0)=" S @MDROOT@(1,0)=""^703.91P^^"""
^XMB(3.9,73,2,2373,0)="""RTN"",""MDCVT"",185,0)"
^XMB(3.9,73,2,2374,0)=" F X=691,691.1,691.5,691.6,691.7,691.8,694,694.5,698,698.1,698.2,698.3,699,699.5,700,701 S @MDROOT@(1,X,0)=X"
^XMB(3.9,73,2,2375,0)="""RTN"",""MDCVT"",186,0)"
^XMB(3.9,73,2,2376,0)=" S DA=1,DIK=""^MDD(703.9,"" D IXALL^DIK K DA,DIK"
^XMB(3.9,73,2,2377,0)="""RTN"",""MDCVT"",187,0)"
^XMB(3.9,73,2,2378,0)=" Q"
^XMB(3.9,73,2,2379,0)="""RTN"",""MDCVT"",188,0)"
^XMB(3.9,73,2,2380,0)=" ;"
^XMB(3.9,73,2,2381,0)="""RTN"",""MDCVT"",189,0)"
^XMB(3.9,73,2,2382,0)="SETUP ; [Procedure] "
^XMB(3.9,73,2,2383,0)="""RTN"",""MDCVT"",190,0)"
^XMB(3.9,73,2,2384,0)=" I '$O(^MDD(703.9,0)) W !,""Initializing..."" D REBUILD,SETDEF^MDSTATU"
^XMB(3.9,73,2,2385,0)="""RTN"",""MDCVT"",191,0)"
^XMB(3.9,73,2,2386,0)=" S DDSFILE=703.9,DR=""[MD MAIN]"",DA=1 D ^DDS"
^XMB(3.9,73,2,2387,0)="""RTN"",""MDCVT"",192,0)"
^XMB(3.9,73,2,2388,0)=" Q"
^XMB(3.9,73,2,2389,0)="""RTN"",""MDCVT"",193,0)"
^XMB(3.9,73,2,2390,0)=" ;"
^XMB(3.9,73,2,2391,0)="""RTN"",""MDCVT"",194,0)"
^XMB(3.9,73,2,2392,0)="SKIP(MDPTR,REASON) ; [Procedure] Skip Report"
^XMB(3.9,73,2,2393,0)="""RTN"",""MDCVT"",195,0)"
^XMB(3.9,73,2,2394,0)=" N MDFDA,MDIEN,MDIENS"
^XMB(3.9,73,2,2395,0)="""RTN"",""MDCVT"",196,0)"
^XMB(3.9,73,2,2396,0)=" S MDIEN=$O(^MDD(703.9,1,2,""B"",MDPTR,0))"
^XMB(3.9,73,2,2397,0)="""RTN"",""MDCVT"",197,0)"
^XMB(3.9,73,2,2398,0)=" I MDIEN<1 W !,""Error, no log entry "",MDPTR Q"
^XMB(3.9,73,2,2399,0)="""RTN"",""MDCVT"",198,0)"
^XMB(3.9,73,2,2400,0)=" S MDIENS=MDIEN_"",1,"""
^XMB(3.9,73,2,2401,0)="""RTN"",""MDCVT"",199,0)"
^XMB(3.9,73,2,2402,0)=" S MDFDA(703.92,MDIENS,.02)=""S"""
^XMB(3.9,73,2,2403,0)="""RTN"",""MDCVT"",200,0)"
^XMB(3.9,73,2,2404,0)=" S MDFDA(703.92,MDIENS,.1)=$TR(REASON,U,""~"")"
^XMB(3.9,73,2,2405,0)="""RTN"",""MDCVT"",201,0)"
^XMB(3.9,73,2,2406,0)=" D FILE^DIE("""",""MDFDA"")"
^XMB(3.9,73,2,2407,0)="""RTN"",""MDCVT"",202,0)"
^XMB(3.9,73,2,2408,0)=" Q"
^XMB(3.9,73,2,2409,0)="""RTN"",""MDCVT"",203,0)"
^XMB(3.9,73,2,2410,0)=" ;"
^XMB(3.9,73,2,2411,0)="""RTN"",""MDCVT"",204,0)"
^XMB(3.9,73,2,2412,0)="SYNC(MDPTR) ; Make sure entry exists"
^XMB(3.9,73,2,2413,0)="""RTN"",""MDCVT"",205,0)"
^XMB(3.9,73,2,2414,0)=" N MDFDA"
^XMB(3.9,73,2,2415,0)="""RTN"",""MDCVT"",206,0)"
^XMB(3.9,73,2,2416,0)=" Q:$O(^MDD(703.9,1,2,""B"",MDPTR,0))"
^XMB(3.9,73,2,2417,0)="""RTN"",""MDCVT"",207,0)"
^XMB(3.9,73,2,2418,0)=" Q:$O(^MDD(702,""ACONV"",MDPTR,0))"
^XMB(3.9,73,2,2419,0)="""RTN"",""MDCVT"",208,0)"
^XMB(3.9,73,2,2420,0)=" S MDFDA(703.92,""+1,1,"",.01)=MDPTR"
^XMB(3.9,73,2,2421,0)="""RTN"",""MDCVT"",209,0)"
^XMB(3.9,73,2,2422,0)=" S MDFDA(703.92,""+1,1,"",.02)=""R"""
^XMB(3.9,73,2,2423,0)="""RTN"",""MDCVT"",210,0)"
^XMB(3.9,73,2,2424,0)=" D UPDATE^DIE("""",""MDFDA"")"
^XMB(3.9,73,2,2425,0)="""RTN"",""MDCVT"",211,0)"
^XMB(3.9,73,2,2426,0)=" Q"
^XMB(3.9,73,2,2427,0)="""RTN"",""MDCVT"",212,0)"
^XMB(3.9,73,2,2428,0)=" ;"
^XMB(3.9,73,2,2429,0)="""RTN"",""MDCVT"",213,0)"
^XMB(3.9,73,2,2430,0)="LOCKOUT ; Lockout Options and set API Flag"
^XMB(3.9,73,2,2431,0)="""RTN"",""MDCVT"",214,0)"
^XMB(3.9,73,2,2432,0)=" D ^MDOUTOR"
^XMB(3.9,73,2,2433,0)="""RTN"",""MDCVT"",215,0)"
^XMB(3.9,73,2,2434,0)=" Q"
^XMB(3.9,73,2,2435,0)="""RTN"",""MDCVT"",216,0)"
^XMB(3.9,73,2,2436,0)=" ;"
^XMB(3.9,73,2,2437,0)="""RTN"",""MDCVT"",217,0)"
^XMB(3.9,73,2,2438,0)="STATUS(MDPTR) ; [Procedure] Return status of VPtr"
^XMB(3.9,73,2,2439,0)="""RTN"",""MDCVT"",218,0)"
^XMB(3.9,73,2,2440,0)=" S X=$O(^MDD(703.9,1,2,""B"",MDPTR,0))"
^XMB(3.9,73,2,2441,0)="""RTN"",""MDCVT"",219,0)"
^XMB(3.9,73,2,2442,0)=" I X Q $P($G(^MDD(703.9,1,2,X,0)),U,2)  ; Return actual status"
^XMB(3.9,73,2,2443,0)="""RTN"",""MDCVT"",220,0)"
^XMB(3.9,73,2,2444,0)=" N MDFDA,MDIEN,MDMSG"
^XMB(3.9,73,2,2445,0)="""RTN"",""MDCVT"",221,0)"
^XMB(3.9,73,2,2446,0)=" S MDFDA(703.92,""+1,1,"",.01)=MDPTR"
^XMB(3.9,73,2,2447,0)="""RTN"",""MDCVT"",222,0)"
^XMB(3.9,73,2,2448,0)=" S MDFDA(703.92,""+1,1,"",.02)=""N"""
^XMB(3.9,73,2,2449,0)="""RTN"",""MDCVT"",223,0)"
^XMB(3.9,73,2,2450,0)=" D UPDATE^DIE("""",""MDFDA"",""MDIEN"",""MDMSG"")"
^XMB(3.9,73,2,2451,0)="""RTN"",""MDCVT"",224,0)"
^XMB(3.9,73,2,2452,0)=" I $G(MDIEN(1))<1 W !,""Error adding to conversion log "",MDPTR Q -1"
^XMB(3.9,73,2,2453,0)="""RTN"",""MDCVT"",225,0)"
^XMB(3.9,73,2,2454,0)=" Q ""N"""
^XMB(3.9,73,2,2455,0)="""RTN"",""MDCVT"",226,0)"
^XMB(3.9,73,2,2456,0)=" ;"
^XMB(3.9,73,2,2457,0)="""RTN"",""MDCVT"",227,0)"
^XMB(3.9,73,2,2458,0)="SUMMARY ; Disk space requirements"
^XMB(3.9,73,2,2459,0)="""RTN"",""MDCVT"",228,0)"
^XMB(3.9,73,2,2460,0)=" N FILE,LP,TOTB,TOTC,TOTL,X"
^XMB(3.9,73,2,2461,0)="""RTN"",""MDCVT"",229,0)"
^XMB(3.9,73,2,2462,0)=" W !!,""Summarizing..."""
^XMB(3.9,73,2,2463,0)="""RTN"",""MDCVT"",230,0)"
^XMB(3.9,73,2,2464,0)=" K ^TMP($J)"
^XMB(3.9,73,2,2465,0)="""RTN"",""MDCVT"",231,0)"
^XMB(3.9,73,2,2466,0)=" S (TOTL,TOTC,TOTB)=0"
^XMB(3.9,73,2,2467,0)="""RTN"",""MDCVT"",232,0)"
^XMB(3.9,73,2,2468,0)=" S MDSTAT=$O(^MDD(703.9,1,2,""AS"",""C"")) ; will be CT or CR"
^XMB(3.9,73,2,2469,0)="""RTN"",""MDCVT"",233,0)"
^XMB(3.9,73,2,2470,0)=" I MDSTAT'[""C"" W !!,""No report was converted. You MUST run the conversion in TEST or"",!,""REAL mode first to be able to display the Disk Space Requirements."" Q"
^XMB(3.9,73,2,2471,0)="""RTN"",""MDCVT"",234,0)"
^XMB(3.9,73,2,2472,0)=" D S1 I MDSTAT=""CR"" S MDSTAT=""CT"" D S1"
^XMB(3.9,73,2,2473,0)="""RTN"",""MDCVT"",235,0)"
^XMB(3.9,73,2,2474,0)=" W @IOF,!,""FILE"",?42,$J(""COUNT"",8),?52,$J(""LINES"",8),?62,$J(""BYTES"",12)"
^XMB(3.9,73,2,2475,0)="""RTN"",""MDCVT"",236,0)"
^XMB(3.9,73,2,2476,0)=" W !,$TR($J("""",79),"" "",""-"")"
^XMB(3.9,73,2,2477,0)="""RTN"",""MDCVT"",237,0)"
^XMB(3.9,73,2,2478,0)=" S X="""" F  S X=$O(^TMP($J,X)) Q:X=""""  D"
^XMB(3.9,73,2,2479,0)="""RTN"",""MDCVT"",238,0)"
^XMB(3.9,73,2,2480,0)=" .W !,$E($P(@X,U,1),1,40)"
^XMB(3.9,73,2,2481,0)="""RTN"",""MDCVT"",239,0)"
^XMB(3.9,73,2,2482,0)=" .W ?42,$J(^TMP($J,X,""C""),8)"
^XMB(3.9,73,2,2483,0)="""RTN"",""MDCVT"",240,0)"
^XMB(3.9,73,2,2484,0)=" .W ?52,$J(^TMP($J,X,""L""),8)"
^XMB(3.9,73,2,2485,0)="""RTN"",""MDCVT"",241,0)"
^XMB(3.9,73,2,2486,0)=" .W ?62,$J(^TMP($J,X,""B""),12)"
^XMB(3.9,73,2,2487,0)="""RTN"",""MDCVT"",242,0)"
^XMB(3.9,73,2,2488,0)=" .S TOTC=TOTC+^TMP($J,X,""C"")"
^XMB(3.9,73,2,2489,0)="""RTN"",""MDCVT"",243,0)"
^XMB(3.9,73,2,2490,0)=" .S TOTL=TOTL+^TMP($J,X,""L"")"
^XMB(3.9,73,2,2491,0)="""RTN"",""MDCVT"",244,0)"
^XMB(3.9,73,2,2492,0)=" .S TOTB=TOTB+^TMP($J,X,""B"")"
^XMB(3.9,73,2,2493,0)="""RTN"",""MDCVT"",245,0)"
^XMB(3.9,73,2,2494,0)=" W !?42,$TR($J("""",37),"" "",""="")"
^XMB(3.9,73,2,2495,0)="""RTN"",""MDCVT"",246,0)"
^XMB(3.9,73,2,2496,0)=" W !?42,$J(TOTC,8),?52,$J(TOTL,8),?62,$J(TOTB,12) K ^TMP($J)"
^XMB(3.9,73,2,2497,0)="""RTN"",""MDCVT"",247,0)"
^XMB(3.9,73,2,2498,0)=" Q"
^XMB(3.9,73,2,2499,0)="""RTN"",""MDCVT"",248,0)"
^XMB(3.9,73,2,2500,0)=" ;"
^XMB(3.9,73,2,2501,0)="""RTN"",""MDCVT"",249,0)"
^XMB(3.9,73,2,2502,0)="S1 ; Loop for both CT or CR Statuses"
^XMB(3.9,73,2,2503,0)="""RTN"",""MDCVT"",250,0)"
^XMB(3.9,73,2,2504,0)=" N X S X="""" F  S X=$O(^MDD(703.9,1,2,""AS"",MDSTAT,X)) Q:X=""""  D"
^XMB(3.9,73,2,2505,0)="""RTN"",""MDCVT"",251,0)"
^XMB(3.9,73,2,2506,0)=" .S FILE=$P($G(^MDD(703.9,1,2,X,0)),U,1)"
^XMB(3.9,73,2,2507,0)="""RTN"",""MDCVT"",252,0)"
^XMB(3.9,73,2,2508,0)=" .S FILE=U_$P(FILE,"";"",2)_""0)"""
^XMB(3.9,73,2,2509,0)="""RTN"",""MDCVT"",253,0)"
^XMB(3.9,73,2,2510,0)=" .S ^TMP($J,FILE,""C"")=$G(^TMP($J,FILE,""C""))+1"
^XMB(3.9,73,2,2511,0)="""RTN"",""MDCVT"",254,0)"
^XMB(3.9,73,2,2512,0)=" .S ^TMP($J,FILE,""L"")=$G(^TMP($J,FILE,""L""))+$P(^MDD(703.9,1,2,X,0),U,4)"
^XMB(3.9,73,2,2513,0)="""RTN"",""MDCVT"",255,0)"
^XMB(3.9,73,2,2514,0)=" .S ^TMP($J,FILE,""B"")=$G(^TMP($J,FILE,""B""))+$P(^MDD(703.9,1,2,X,0),U,5)"
^XMB(3.9,73,2,2515,0)="""RTN"",""MDCVT"",256,0)"
^XMB(3.9,73,2,2516,0)=" Q"
^XMB(3.9,73,2,2517,0)="""RTN"",""MDCVT"",257,0)"
^XMB(3.9,73,2,2518,0)="TOTALS ; Count by Status"
^XMB(3.9,73,2,2519,0)="""RTN"",""MDCVT"",258,0)"
^XMB(3.9,73,2,2520,0)=" N MDSTAT S MDSTAT="""""
^XMB(3.9,73,2,2521,0)="""RTN"",""MDCVT"",259,0)"
^XMB(3.9,73,2,2522,0)=" F  S MDSTAT=$O(^MDD(703.9,1,2,""AS"",MDSTAT)) Q:MDSTAT=""""  D"
^XMB(3.9,73,2,2523,0)="""RTN"",""MDCVT"",260,0)"
^XMB(3.9,73,2,2524,0)=" .S Y=0 F X=0:0 S X=$O(^MDD(703.9,1,2,""AS"",MDSTAT,X)) Q:'X  S Y=Y+1"
^XMB(3.9,73,2,2525,0)="""RTN"",""MDCVT"",261,0)"
^XMB(3.9,73,2,2526,0)=" .S MDSTAT(MDSTAT)=Y"
^XMB(3.9,73,2,2527,0)="""RTN"",""MDCVT"",262,0)"
^XMB(3.9,73,2,2528,0)=" W @IOF,!,""Conversion Totals"",!,$TR($J("""",35),"" "",""-"")"
^XMB(3.9,73,2,2529,0)="""RTN"",""MDCVT"",263,0)"
^XMB(3.9,73,2,2530,0)=" W !,""Converted REAL Mode: "",$J(+$G(MDSTAT(""CR"")),9)"
^XMB(3.9,73,2,2531,0)="""RTN"",""MDCVT"",264,0)"
^XMB(3.9,73,2,2532,0)=" W !,""Converted TEST Mode: "",$J(+$G(MDSTAT(""CT"")),9)"
^XMB(3.9,73,2,2533,0)="""RTN"",""MDCVT"",265,0)"
^XMB(3.9,73,2,2534,0)=" W !,""Skipped:             "",$J(+$G(MDSTAT(""S"")),9)"
^XMB(3.9,73,2,2535,0)="""RTN"",""MDCVT"",266,0)"
^XMB(3.9,73,2,2536,0)=" W !,""Error:               "",$J(+$G(MDSTAT(""E"")),9)"
^XMB(3.9,73,2,2537,0)="""RTN"",""MDCVT"",267,0)"
^XMB(3.9,73,2,2538,0)=" Q"
^XMB(3.9,73,2,2539,0)="""RTN"",""MDCVT"",268,0)"
^XMB(3.9,73,2,2540,0)=" ;"
^XMB(3.9,73,2,2541,0)="""RTN"",""MDCVT1"")"
^XMB(3.9,73,2,2542,0)="0^6^B71614831^n/a"
^XMB(3.9,73,2,2543,0)="""RTN"",""MDCVT1"",1,0)"
^XMB(3.9,73,2,2544,0)="MDCVT1 ; HOIFO/NCA - Medicine Package Conversion (Cont.) ;1/6/05  15:12"
^XMB(3.9,73,2,2545,0)="""RTN"",""MDCVT1"",2,0)"
^XMB(3.9,73,2,2546,0)=" ;;1.0;CLINICAL PROCEDURES;**5**;Apr 01, 2004;Build 1"
^XMB(3.9,73,2,2547,0)="""RTN"",""MDCVT1"",3,0)"
^XMB(3.9,73,2,2548,0)=" ; Integration Agreements:"
^XMB(3.9,73,2,2549,0)="""RTN"",""MDCVT1"",4,0)"
^XMB(3.9,73,2,2550,0)=" ; IA# 4630 [Subscription] Calls to GMRCCP."
^XMB(3.9,73,2,2551,0)="""RTN"",""MDCVT1"",5,0)"
^XMB(3.9,73,2,2552,0)=" ; IA# 3535 [Subscription] Calls to TIUSRVP."
^XMB(3.9,73,2,2553,0)="""RTN"",""MDCVT1"",6,0)"
^XMB(3.9,73,2,2554,0)=" ; IA# 4508 [Subscription] Call to TIUSRVPT."
^XMB(3.9,73,2,2555,0)="""RTN"",""MDCVT1"",7,0)"
^XMB(3.9,73,2,2556,0)=" ; IA# 4588 [Subscription] Call to MAGMC2CP"
^XMB(3.9,73,2,2557,0)="""RTN"",""MDCVT1"",8,0)"
^XMB(3.9,73,2,2558,0)=" ; IA# 2729 [Supported] Calls to XMXAPI."
^XMB(3.9,73,2,2559,0)="""RTN"",""MDCVT1"",9,0)"
^XMB(3.9,73,2,2560,0)=" ; IA#10063 [Supported] %ZTLOAD routine calls."
^XMB(3.9,73,2,2561,0)="""RTN"",""MDCVT1"",10,0)"
^XMB(3.9,73,2,2562,0)=" ;"
^XMB(3.9,73,2,2563,0)="""RTN"",""MDCVT1"",11,0)"
^XMB(3.9,73,2,2564,0)="CONVERT(MDNOD,MDGLB) ; [Function] Convert Medicine Report to TIU Document"
^XMB(3.9,73,2,2565,0)="""RTN"",""MDCVT1"",12,0)"
^XMB(3.9,73,2,2566,0)=" ; Input parameters"
^XMB(3.9,73,2,2567,0)="""RTN"",""MDCVT1"",13,0)"
^XMB(3.9,73,2,2568,0)=" ;  1. MDNOD [Literal/Required] "
^XMB(3.9,73,2,2569,0)="""RTN"",""MDCVT1"",14,0)"
^XMB(3.9,73,2,2570,0)=" ;  2. MDGLB [Reference/Required] "
^XMB(3.9,73,2,2571,0)="""RTN"",""MDCVT1"",15,0)"
^XMB(3.9,73,2,2572,0)=" ;"
^XMB(3.9,73,2,2573,0)="""RTN"",""MDCVT1"",16,0)"
^XMB(3.9,73,2,2574,0)=" ; Returns the TIU Note IEN"
^XMB(3.9,73,2,2575,0)="""RTN"",""MDCVT1"",17,0)"
^XMB(3.9,73,2,2576,0)=" ; or 0 if report is skipped because Convert flag is set to ""NO"" or Report Converted"
^XMB(3.9,73,2,2577,0)="""RTN"",""MDCVT1"",18,0)"
^XMB(3.9,73,2,2578,0)=" ; or -1^Error message"
^XMB(3.9,73,2,2579,0)="""RTN"",""MDCVT1"",19,0)"
^XMB(3.9,73,2,2580,0)=" ; (Note: Error messages will be filed in Subfile 703.92 field .1)"
^XMB(3.9,73,2,2581,0)="""RTN"",""MDCVT1"",20,0)"
^XMB(3.9,73,2,2582,0)=" ;"
^XMB(3.9,73,2,2583,0)="""RTN"",""MDCVT1"",21,0)"
^XMB(3.9,73,2,2584,0)=" N MDCONV,MDEX,MDFIEN,MDFILE,MDFLG,MDGN,MDP,MDPROC,MDRES,MDTITL,MDUSER,MDX"
^XMB(3.9,73,2,2585,0)="""RTN"",""MDCVT1"",22,0)"
^XMB(3.9,73,2,2586,0)=" S (MDGN,MDP)=MDNOD"
^XMB(3.9,73,2,2587,0)="""RTN"",""MDCVT1"",23,0)"
^XMB(3.9,73,2,2588,0)=" S (MDEX,MDRES)="""",MDFLG=0"
^XMB(3.9,73,2,2589,0)="""RTN"",""MDCVT1"",24,0)"
^XMB(3.9,73,2,2590,0)=" S MDFIEN=+MDP Q:'MDFIEN ""-1^No IEN for ""_MDP"
^XMB(3.9,73,2,2591,0)="""RTN"",""MDCVT1"",25,0)"
^XMB(3.9,73,2,2592,0)=" S MDFILE=+$P(MDP,""MCAR("",2) Q:'MDFILE ""-1^No File Number for ""_MDP"
^XMB(3.9,73,2,2593,0)="""RTN"",""MDCVT1"",26,0)"
^XMB(3.9,73,2,2594,0)=" I $O(^MDD(702,""ACONV"",MDFIEN_"";MCAR(""_MDFILE_"","",0)) Q ""-1^Already Converted."""
^XMB(3.9,73,2,2595,0)="""RTN"",""MDCVT1"",27,0)"
^XMB(3.9,73,2,2596,0)=" S MDPAT=$$GET1^DIQ(MDFILE,MDFIEN_"","",""MEDICAL PATIENT"",""I"")"
^XMB(3.9,73,2,2597,0)="""RTN"",""MDCVT1"",28,0)"
^XMB(3.9,73,2,2598,0)=" I 'MDPAT S MDPAT=$$GET1^DIQ(MDFILE,MDFIEN_"","",""PATIENT"",""I"")"
^XMB(3.9,73,2,2599,0)="""RTN"",""MDCVT1"",29,0)"
^XMB(3.9,73,2,2600,0)=" I 'MDPAT Q ""-1^No Medical Patient."""
^XMB(3.9,73,2,2601,0)="""RTN"",""MDCVT1"",30,0)"
^XMB(3.9,73,2,2602,0)=" ; Get Medicine Parameter"
^XMB(3.9,73,2,2603,0)="""RTN"",""MDCVT1"",31,0)"
^XMB(3.9,73,2,2604,0)=" S MDPROC=$G(^MDD(703.9,1,1,MDFILE,0))"
^XMB(3.9,73,2,2605,0)="""RTN"",""MDCVT1"",32,0)"
^XMB(3.9,73,2,2606,0)=" ; Get CP Definition and Convert?"
^XMB(3.9,73,2,2607,0)="""RTN"",""MDCVT1"",33,0)"
^XMB(3.9,73,2,2608,0)=" S MDCONV=$P(MDPROC,""^"",3) I '+MDCONV D SKIP^MDCVT(MDP,""CONVERT Y/N flag set to No."") Q 0"
^XMB(3.9,73,2,2609,0)="""RTN"",""MDCVT1"",34,0)"
^XMB(3.9,73,2,2610,0)=" S MDTITL=$P(MDPROC,""^"",5) S:'MDTITL MDTITL=$$LOCATN^MDSTATU(MDGN)"
^XMB(3.9,73,2,2611,0)="""RTN"",""MDCVT1"",35,0)"
^XMB(3.9,73,2,2612,0)=" Q:MDTITL'>0 ""-1^No Historical Note Title."""
^XMB(3.9,73,2,2613,0)="""RTN"",""MDCVT1"",36,0)"
^XMB(3.9,73,2,2614,0)=" S MDPROC=$P(MDPROC,""^"",2) S:'MDPROC MDPROC=$$LOCATP^MDSTATU(MDGN)"
^XMB(3.9,73,2,2615,0)="""RTN"",""MDCVT1"",37,0)"
^XMB(3.9,73,2,2616,0)=" Q:'MDPROC ""-1^No CP definition for ""_MDP"
^XMB(3.9,73,2,2617,0)="""RTN"",""MDCVT1"",38,0)"
^XMB(3.9,73,2,2618,0)=" S MDUSER=$P($G(^MDD(703.9,1,0)),U,3) I 'MDUSER Q ""-1^No Administrative Closure User Designated."""
^XMB(3.9,73,2,2619,0)="""RTN"",""MDCVT1"",39,0)"
^XMB(3.9,73,2,2620,0)=" ; Get Existing TIU Note"
^XMB(3.9,73,2,2621,0)="""RTN"",""MDCVT1"",40,0)"
^XMB(3.9,73,2,2622,0)=" S MDX=$O(^MDD(703.9,1,2,""B"",MDP,0))"
^XMB(3.9,73,2,2623,0)="""RTN"",""MDCVT1"",41,0)"
^XMB(3.9,73,2,2624,0)=" I +MDX S MDX=$G(^MDD(703.9,1,2,+MDX,0))"
^XMB(3.9,73,2,2625,0)="""RTN"",""MDCVT1"",42,0)"
^XMB(3.9,73,2,2626,0)=" I +$P(MDX,""^"",3) S MDEX=+$P(MDX,""^"",3) Q MDEX"
^XMB(3.9,73,2,2627,0)="""RTN"",""MDCVT1"",43,0)"
^XMB(3.9,73,2,2628,0)=" ; Create TIU Note"
^XMB(3.9,73,2,2629,0)="""RTN"",""MDCVT1"",44,0)"
^XMB(3.9,73,2,2630,0)=" S MDRES=$$NEWTIU(MDFILE,MDPAT,MDFIEN,MDPROC,MDTITL,MDUSER,.MDGLB) I +MDRES<1 D LOGERR^MDCVT(MDP,$P(MDRES,""^"",2)) S $P(MDRES,""^"")=-1 Q MDRES"
^XMB(3.9,73,2,2631,0)="""RTN"",""MDCVT1"",45,0)"
^XMB(3.9,73,2,2632,0)=" Q +MDRES"
^XMB(3.9,73,2,2633,0)="""RTN"",""MDCVT1"",46,0)"
^XMB(3.9,73,2,2634,0)=" ;"
^XMB(3.9,73,2,2635,0)="""RTN"",""MDCVT1"",47,0)"
^XMB(3.9,73,2,2636,0)="NEWTIU(MDFILE,MDPAT,MDFIEN,MDPROC,MDTITL,MDU,MDGLB) ; [Function] Create New TIU Note for Medicine Reports"
^XMB(3.9,73,2,2637,0)="""RTN"",""MDCVT1"",48,0)"
^XMB(3.9,73,2,2638,0)=" ; Input parameters"
^XMB(3.9,73,2,2639,0)="""RTN"",""MDCVT1"",49,0)"
^XMB(3.9,73,2,2640,0)=" ;  1. MDFILE [Literal/Required] "
^XMB(3.9,73,2,2641,0)="""RTN"",""MDCVT1"",50,0)"
^XMB(3.9,73,2,2642,0)=" ;  2. MDPAT [Literal/Required] "
^XMB(3.9,73,2,2643,0)="""RTN"",""MDCVT1"",51,0)"
^XMB(3.9,73,2,2644,0)=" ;  3. MDFIEN [Literal/Required] "
^XMB(3.9,73,2,2645,0)="""RTN"",""MDCVT1"",52,0)"
^XMB(3.9,73,2,2646,0)=" ;  4. MDPROC [Literal/Required] "
^XMB(3.9,73,2,2647,0)="""RTN"",""MDCVT1"",53,0)"
^XMB(3.9,73,2,2648,0)=" ;  5. MDTITL [Literal/Required]"
^XMB(3.9,73,2,2649,0)="""RTN"",""MDCVT1"",54,0)"
^XMB(3.9,73,2,2650,0)=" ;  6. MDGLB [Reference/Required] "
^XMB(3.9,73,2,2651,0)="""RTN"",""MDCVT1"",55,0)"
^XMB(3.9,73,2,2652,0)=" ;"
^XMB(3.9,73,2,2653,0)="""RTN"",""MDCVT1"",56,0)"
^XMB(3.9,73,2,2654,0)=" N MDADD,MDCHKI,MDCODE,MDD,MDDT,MDERR,MDFDA,MDIEN,MDIENS,MDK,MDLOC,MDNOTE,MDRET,MDSSTR,MDVST,MDVSTR,MDWP"
^XMB(3.9,73,2,2655,0)="""RTN"",""MDCVT1"",57,0)"
^XMB(3.9,73,2,2656,0)=" ; Get Hospital Location"
^XMB(3.9,73,2,2657,0)="""RTN"",""MDCVT1"",58,0)"
^XMB(3.9,73,2,2658,0)=" S MDLOC=$$HOSP^MDSTATU(MDFIEN_"";MCAR(""_MDFILE)"
^XMB(3.9,73,2,2659,0)="""RTN"",""MDCVT1"",59,0)"
^XMB(3.9,73,2,2660,0)=" I 'MDLOC S MDLOC=$$GET1^DIQ(702.01,+MDPROC_"","",.05,""I"")"
^XMB(3.9,73,2,2661,0)="""RTN"",""MDCVT1"",60,0)"
^XMB(3.9,73,2,2662,0)=" Q:'MDLOC ""0^No Hospital Location."""
^XMB(3.9,73,2,2663,0)="""RTN"",""MDCVT1"",61,0)"
^XMB(3.9,73,2,2664,0)=" S MDCODE=$$GET1^DIQ(MDFILE,MDFIEN_"","",""SUMMARY"",""I"")"
^XMB(3.9,73,2,2665,0)="""RTN"",""MDCVT1"",62,0)"
^XMB(3.9,73,2,2666,0)=" I MDCODE'="""" S MDCODE=$S(MDCODE=""N"":1,MDCODE=""A"":2,MDCODE=""B"":3,MDCODE=""MI"":2,MDCODE=""MO"":2,MDCODE=""S"":2,1:4)"
^XMB(3.9,73,2,2667,0)="""RTN"",""MDCVT1"",63,0)"
^XMB(3.9,73,2,2668,0)=" E  S MDCHKI=$$CHKINT(MDFILE,MDFIEN),MDCODE=$S(+MDCHKI:(MDCHKI+4),1:"""")"
^XMB(3.9,73,2,2669,0)="""RTN"",""MDCVT1"",64,0)"
^XMB(3.9,73,2,2670,0)=" S MDDT=$$GET1^DIQ(MDFILE,MDFIEN_"","",.01,""I"")"
^XMB(3.9,73,2,2671,0)="""RTN"",""MDCVT1"",65,0)"
^XMB(3.9,73,2,2672,0)=" ; Set Un-dictated status"
^XMB(3.9,73,2,2673,0)="""RTN"",""MDCVT1"",66,0)"
^XMB(3.9,73,2,2674,0)=" ;S MDWP(.05)=1"
^XMB(3.9,73,2,2675,0)="""RTN"",""MDCVT1"",67,0)"
^XMB(3.9,73,2,2676,0)=" ; Set Author/Dictator and Entered By"
^XMB(3.9,73,2,2677,0)="""RTN"",""MDCVT1"",68,0)"
^XMB(3.9,73,2,2678,0)=" ;S MDWP(1202)=MDU,MDWP(1302)=MDU"
^XMB(3.9,73,2,2679,0)="""RTN"",""MDCVT1"",69,0)"
^XMB(3.9,73,2,2680,0)=" ; Set Procedure Summary Code and Date/Time of Procedure"
^XMB(3.9,73,2,2681,0)="""RTN"",""MDCVT1"",70,0)"
^XMB(3.9,73,2,2682,0)=" S MDWP(70201)=MDCODE,MDWP(70202)=MDDT"
^XMB(3.9,73,2,2683,0)="""RTN"",""MDCVT1"",71,0)"
^XMB(3.9,73,2,2684,0)=" F MDK=0:0 S MDK=$O(@MDGLB@(MDK)) Q:'MDK  S MDWP(""TEXT"",MDK,0)=$G(@MDGLB@(MDK))"
^XMB(3.9,73,2,2685,0)="""RTN"",""MDCVT1"",72,0)"
^XMB(3.9,73,2,2686,0)=" D NOW^%DTC S MDD=% K %"
^XMB(3.9,73,2,2687,0)="""RTN"",""MDCVT1"",73,0)"
^XMB(3.9,73,2,2688,0)=" S MDFDA(702,""+1,"",.01)=MDPAT"
^XMB(3.9,73,2,2689,0)="""RTN"",""MDCVT1"",74,0)"
^XMB(3.9,73,2,2690,0)=" S MDFDA(702,""+1,"",.02)=MDD"
^XMB(3.9,73,2,2691,0)="""RTN"",""MDCVT1"",75,0)"
^XMB(3.9,73,2,2692,0)=" S MDFDA(702,""+1,"",.03)=DUZ"
^XMB(3.9,73,2,2693,0)="""RTN"",""MDCVT1"",76,0)"
^XMB(3.9,73,2,2694,0)=" S MDFDA(702,""+1,"",.04)=MDPROC"
^XMB(3.9,73,2,2695,0)="""RTN"",""MDCVT1"",77,0)"
^XMB(3.9,73,2,2696,0)=" S MDFDA(702,""+1,"",.09)=4  ; Status = Checked-In"
^XMB(3.9,73,2,2697,0)="""RTN"",""MDCVT1"",78,0)"
^XMB(3.9,73,2,2698,0)=" D UPDATE^DIE("""",""MDFDA"",""MDIEN"",""MDERR"") Q:$D(MDERR)"
^XMB(3.9,73,2,2699,0)="""RTN"",""MDCVT1"",79,0)"
^XMB(3.9,73,2,2700,0)=" S MDRET=$$EN1^MDPCE(MDIEN(1),MDDT,MDPROC_""^""_MDLOC,""E"",""A"")"
^XMB(3.9,73,2,2701,0)="""RTN"",""MDCVT1"",80,0)"
^XMB(3.9,73,2,2702,0)=" I +MDRET S MDVST=+MDRET,MDSSTR=$P(MDRET,""^"",2),MDVSTR=$P(MDSSTR,"";"",3)_"";""_$P(MDSSTR,"";"",2)_"";""_$P(MDSSTR,"";"")"
^XMB(3.9,73,2,2703,0)="""RTN"",""MDCVT1"",81,0)"
^XMB(3.9,73,2,2704,0)=" I +MDRET<1 D DELETE(MDIEN(1)) Q MDRET"
^XMB(3.9,73,2,2705,0)="""RTN"",""MDCVT1"",82,0)"
^XMB(3.9,73,2,2706,0)=" S MDNOTE="""" D MAKE^TIUSRVP(.MDNOTE,MDPAT,MDTITL,$P(MDVSTR,"";"",2),MDLOC,MDVST,.MDWP,MDVSTR,1,1)"
^XMB(3.9,73,2,2707,0)="""RTN"",""MDCVT1"",83,0)"
^XMB(3.9,73,2,2708,0)=" ; Add the TIU Document Reference"
^XMB(3.9,73,2,2709,0)="""RTN"",""MDCVT1"",84,0)"
^XMB(3.9,73,2,2710,0)=" S MDIENS=MDIEN(1)_"","""
^XMB(3.9,73,2,2711,0)="""RTN"",""MDCVT1"",85,0)"
^XMB(3.9,73,2,2712,0)=" I +MDNOTE S MDFDA(702,MDIENS,.06)=MDNOTE D FILE^DIE("""",""MDFDA"",""MDERR"")"
^XMB(3.9,73,2,2713,0)="""RTN"",""MDCVT1"",86,0)"
^XMB(3.9,73,2,2714,0)=" I +MDNOTE'>0 D DELETE(MDIEN(1))"
^XMB(3.9,73,2,2715,0)="""RTN"",""MDCVT1"",87,0)"
^XMB(3.9,73,2,2716,0)=" Q MDNOTE"
^XMB(3.9,73,2,2717,0)="""RTN"",""MDCVT1"",88,0)"
^XMB(3.9,73,2,2718,0)=" ;"
^XMB(3.9,73,2,2719,0)="""RTN"",""MDCVT1"",89,0)"
^XMB(3.9,73,2,2720,0)="UPD(MDGB,MDNOD,MDTI,MDT) ; Do consults and Imaging update and log response"
^XMB(3.9,73,2,2721,0)="""RTN"",""MDCVT1"",90,0)"
^XMB(3.9,73,2,2722,0)=" N MDCONS,MDECON,MDUSR,MDEFLG,MDIMG,MDNOTE,MDR,MDR1,MDRET,MDSTUD,MDTT,MDWP,MDX1 S (MDEFLG,MDRET)=0"
^XMB(3.9,73,2,2723,0)="""RTN"",""MDCVT1"",91,0)"
^XMB(3.9,73,2,2724,0)=" ; Get the existing study"
^XMB(3.9,73,2,2725,0)="""RTN"",""MDCVT1"",92,0)"
^XMB(3.9,73,2,2726,0)=" ;"
^XMB(3.9,73,2,2727,0)="""RTN"",""MDCVT1"",93,0)"
^XMB(3.9,73,2,2728,0)=" S MDSTUD=$O(^MDD(702,""ATIU"",+MDTI,0)) Q:'MDSTUD"
^XMB(3.9,73,2,2729,0)="""RTN"",""MDCVT1"",94,0)"
^XMB(3.9,73,2,2730,0)=" ;"
^XMB(3.9,73,2,2731,0)="""RTN"",""MDCVT1"",95,0)"
^XMB(3.9,73,2,2732,0)=" ;Get existing consult"
^XMB(3.9,73,2,2733,0)="""RTN"",""MDCVT1"",96,0)"
^XMB(3.9,73,2,2734,0)=" ;"
^XMB(3.9,73,2,2735,0)="""RTN"",""MDCVT1"",97,0)"
^XMB(3.9,73,2,2736,0)=" S MDECON=$$GET1^DIQ(702,MDSTUD_"","",.05,""I"")"
^XMB(3.9,73,2,2737,0)="""RTN"",""MDCVT1"",98,0)"
^XMB(3.9,73,2,2738,0)=" ;"
^XMB(3.9,73,2,2739,0)="""RTN"",""MDCVT1"",99,0)"
^XMB(3.9,73,2,2740,0)=" ; Get Administrative Closure Person"
^XMB(3.9,73,2,2741,0)="""RTN"",""MDCVT1"",100,0)"
^XMB(3.9,73,2,2742,0)=" ;"
^XMB(3.9,73,2,2743,0)="""RTN"",""MDCVT1"",101,0)"
^XMB(3.9,73,2,2744,0)=" S MDUSR=$P($G(^MDD(703.9,1,0)),U,3) Q:'MDUSR"
^XMB(3.9,73,2,2745,0)="""RTN"",""MDCVT1"",102,0)"
^XMB(3.9,73,2,2746,0)=" S MDTT=$S(+$G(MDT)>0:0,1:1)"
^XMB(3.9,73,2,2747,0)="""RTN"",""MDCVT1"",103,0)"
^XMB(3.9,73,2,2748,0)=" S MDCONS=$$CVTCONS^MDCVT1(MDTT,MDNOD,+MDTI)"
^XMB(3.9,73,2,2749,0)="""RTN"",""MDCVT1"",104,0)"
^XMB(3.9,73,2,2750,0)=" I +MDCONS<0&($P(MDCONS,U,2)'[""No MC results sent"") D LOGERR^MDCVT(MDNOD,""Consults error: ""_$P(MDCONS,U,2)) Q"
^XMB(3.9,73,2,2751,0)="""RTN"",""MDCVT1"",105,0)"
^XMB(3.9,73,2,2752,0)=" I +MDCONS>0 K MDWP I +$P(MDCONS,U,3) D  Q:MDEFLG"
^XMB(3.9,73,2,2753,0)="""RTN"",""MDCVT1"",106,0)"
^XMB(3.9,73,2,2754,0)=" .S MDWP(1405)=+$P(MDCONS,U,3)_"";GMR(123,"""
^XMB(3.9,73,2,2755,0)="""RTN"",""MDCVT1"",107,0)"
^XMB(3.9,73,2,2756,0)=" .D UPDATE^TIUSRVP(.MDNOTE,+MDTI,.MDWP,1)"
^XMB(3.9,73,2,2757,0)="""RTN"",""MDCVT1"",108,0)"
^XMB(3.9,73,2,2758,0)=" .I +MDNOTE<1 D LOGERR^MDCVT(MDNOD,""COULDN'T UPDATE THE NOTE"") S MDEFLG=1 Q"
^XMB(3.9,73,2,2759,0)="""RTN"",""MDCVT1"",109,0)"
^XMB(3.9,73,2,2760,0)=" .I +$P(MDCONS,U,3) S MDFDA(702,MDSTUD_"","",.05)=+$P(MDCONS,U,3) D FILE^DIE("""",""MDFDA"")"
^XMB(3.9,73,2,2761,0)="""RTN"",""MDCVT1"",110,0)"
^XMB(3.9,73,2,2762,0)=" .Q"
^XMB(3.9,73,2,2763,0)="""RTN"",""MDCVT1"",111,0)"
^XMB(3.9,73,2,2764,0)=" ; Do imaging update and log response"
^XMB(3.9,73,2,2765,0)="""RTN"",""MDCVT1"",112,0)"
^XMB(3.9,73,2,2766,0)=" Q:$$GET1^DIQ(702,MDSTUD_"","",.09,""I"")=3"
^XMB(3.9,73,2,2767,0)="""RTN"",""MDCVT1"",113,0)"
^XMB(3.9,73,2,2768,0)=" I $O(@MDGB@(2005,0)) D  Q:MDRET<0  ; Quit on Imaging error"
^XMB(3.9,73,2,2769,0)="""RTN"",""MDCVT1"",114,0)"
^XMB(3.9,73,2,2770,0)=" .S (MDIMG,MDX1)=0"
^XMB(3.9,73,2,2771,0)="""RTN"",""MDCVT1"",115,0)"
^XMB(3.9,73,2,2772,0)=" .F  S MDX1=$O(@MDGB@(2005,MDX1)) Q:'MDX1  D  Q:MDRET<0"
^XMB(3.9,73,2,2773,0)="""RTN"",""MDCVT1"",116,0)"
^XMB(3.9,73,2,2774,0)=" ..S MDIMG=+@MDGB@(2005,MDX1,0)"
^XMB(3.9,73,2,2775,0)="""RTN"",""MDCVT1"",117,0)"
^XMB(3.9,73,2,2776,0)=" ..S MDRET=$$CVTIMG(MDTT,MDNOD,MDTI,MDIMG)"
^XMB(3.9,73,2,2777,0)="""RTN"",""MDCVT1"",118,0)"
^XMB(3.9,73,2,2778,0)=" ..D:MDRET<0 LOGERR^MDCVT(MDNOD,""Imaging error: ""_$P(MDRET,U,2))"
^XMB(3.9,73,2,2779,0)="""RTN"",""MDCVT1"",119,0)"
^XMB(3.9,73,2,2780,0)=" Q:MDRET<0  K MDFDA S MDFDA(702,MDSTUD_"","",.09)=3,MDFDA(702,MDSTUD_"","",.3)=MDNOD D FILE^DIE("""",""MDFDA"") W ""."""
^XMB(3.9,73,2,2781,0)="""RTN"",""MDCVT1"",120,0)"
^XMB(3.9,73,2,2782,0)=" ;"
^XMB(3.9,73,2,2783,0)="""RTN"",""MDCVT1"",121,0)"
^XMB(3.9,73,2,2784,0)=" ; Close the record with Administrative Closure"
^XMB(3.9,73,2,2785,0)="""RTN"",""MDCVT1"",122,0)"
^XMB(3.9,73,2,2786,0)=" S (MDR,MDR1)="""""
^XMB(3.9,73,2,2787,0)="""RTN"",""MDCVT1"",123,0)"
^XMB(3.9,73,2,2788,0)=" I +MDTI D ADMNCLOS^TIUSRVPT(.MDR,+MDTI,""M"",MDUSR) I '+MDR D DELETE^TIUSRVP(.MDR1,+MDTI) D LOGERR^MDCVT(MDNOD,""Can't Administrative close document"")"
^XMB(3.9,73,2,2789,0)="""RTN"",""MDCVT1"",124,0)"
^XMB(3.9,73,2,2790,0)=" Q"
^XMB(3.9,73,2,2791,0)="""RTN"",""MDCVT1"",125,0)"
^XMB(3.9,73,2,2792,0)="PROC(MDX5,MDX6) ; Get Medicine Procedure Name"
^XMB(3.9,73,2,2793,0)="""RTN"",""MDCVT1"",126,0)"
^XMB(3.9,73,2,2794,0)=" N LL,LL6,LL8"
^XMB(3.9,73,2,2795,0)="""RTN"",""MDCVT1"",127,0)"
^XMB(3.9,73,2,2796,0)=" I MDX5=""MCAR(699"" S LL=$P($G(^MCAR(699,MDX6,0)),U,12) Q:LL'>0  S LL=$P($G(^MCAR(697.2,+LL,0)),U) Q LL"
^XMB(3.9,73,2,2797,0)="""RTN"",""MDCVT1"",128,0)"
^XMB(3.9,73,2,2798,0)=" I MDX5=""MCAR(699.5"" D"
^XMB(3.9,73,2,2799,0)="""RTN"",""MDCVT1"",129,0)"
^XMB(3.9,73,2,2800,0)=" .S LL6=$P($G(^MCAR(699.5,MDX6,0)),U,6),LL8=$P($G(^MCAR(699.5,MDX6,0)),U,8)"
^XMB(3.9,73,2,2801,0)="""RTN"",""MDCVT1"",130,0)"
^XMB(3.9,73,2,2802,0)=" .S LL=$P($G(^MCAR(699.5,MDX6,0)),U,6) Q:'LL  S LL=$P($G(^MCAR(697.2,LL,0)),U) Q LL"
^XMB(3.9,73,2,2803,0)="""RTN"",""MDCVT1"",131,0)"
^XMB(3.9,73,2,2804,0)=" I MDX5[694 S LL=$P($G(^MCAR(694,MDX6,0)),U,3) Q:'LL  S LL=$P(^MCAR(697.2,LL,0),U) Q LL"
^XMB(3.9,73,2,2805,0)="""RTN"",""MDCVT1"",132,0)"
^XMB(3.9,73,2,2806,0)=" S LL=$O(^MCAR(697.2,""C"",MDX5,0)),LL=$P(^MCAR(697.2,LL,0),U,1)"
^XMB(3.9,73,2,2807,0)="""RTN"",""MDCVT1"",133,0)"
^XMB(3.9,73,2,2808,0)=" Q LL"
^XMB(3.9,73,2,2809,0)="""RTN"",""MDCVT1"",134,0)"
^XMB(3.9,73,2,2810,0)="CVTIMG(MDTST,MDN,MDTIU,MDIMAGES) ; Call Imaging API"
^XMB(3.9,73,2,2811,0)="""RTN"",""MDCVT1"",135,0)"
^XMB(3.9,73,2,2812,0)=" Q $$TIU^MAGMC2CP(MDTST,MDN,MDTIU,.MDIMAGES)"
^XMB(3.9,73,2,2813,0)="""RTN"",""MDCVT1"",136,0)"
^XMB(3.9,73,2,2814,0)="CVTCONS(MDTST,MDN,MDTIU) ; Call Consults API"
^XMB(3.9,73,2,2815,0)="""RTN"",""MDCVT1"",137,0)"
^XMB(3.9,73,2,2816,0)=" Q $$MCCNVT^GMRCCP(MDTST,MDN,MDTIU)"
^XMB(3.9,73,2,2817,0)="""RTN"",""MDCVT1"",138,0)"
^XMB(3.9,73,2,2818,0)="CHKINT(MDFL,MDMREC) ; Check to see if record from Medical Device"
^XMB(3.9,73,2,2819,0)="""RTN"",""MDCVT1"",139,0)"
^XMB(3.9,73,2,2820,0)=" ; Returns 1 or 0"
^XMB(3.9,73,2,2821,0)="""RTN"",""MDCVT1"",140,0)"
^XMB(3.9,73,2,2822,0)=" N MDN1,MDF"
^XMB(3.9,73,2,2823,0)="""RTN"",""MDCVT1"",141,0)"
^XMB(3.9,73,2,2824,0)=" I MDFL=691 S MDN1=$G(^MCAR(691,+MDMREC,10,0)) I +$P(MDN1,U,3)&($P(MDN1,U,3)>1) Q 1"
^XMB(3.9,73,2,2825,0)="""RTN"",""MDCVT1"",142,0)"
^XMB(3.9,73,2,2826,0)=" I MDFL=691.1 S MDN1=$G(^MCAR(691.1,+MDMREC,43,0)) I +$P(MDN1,U,3)&($P(MDN1,U,3)>1) Q 1"
^XMB(3.9,73,2,2827,0)="""RTN"",""MDCVT1"",143,0)"
^XMB(3.9,73,2,2828,0)=" I MDFL=691.5 S MDN1=$G(^MCAR(691.5,+MDMREC,9,0)) I +$P(MDN1,U,3)&($P(MDN1,U,3)>1) Q 1"
^XMB(3.9,73,2,2829,0)="""RTN"",""MDCVT1"",144,0)"
^XMB(3.9,73,2,2830,0)=" I MDFL=691.6 S MDN1=$G(^MCAR(691.6,+MDMREC,7,0)) I +$P(MDN1,U,3)&($P(MDN1,U,3)>1) Q 1"
^XMB(3.9,73,2,2831,0)="""RTN"",""MDCVT1"",145,0)"
^XMB(3.9,73,2,2832,0)=" I MDFL=691.8 S MDN1=$G(^MCAR(691.8,+MDMREC,12,0)) I +$P(MDN1,U,3)&($P(MDN1,U,3)>1) Q 1"
^XMB(3.9,73,2,2833,0)="""RTN"",""MDCVT1"",146,0)"
^XMB(3.9,73,2,2834,0)=" I MDFL=698.3 S MDN1=$G(^MCAR(698.3,+MDMREC,10,0)) I +$P(MDN1,U,3)&($P(MDN1,U,3)>1) Q 1"
^XMB(3.9,73,2,2835,0)="""RTN"",""MDCVT1"",147,0)"
^XMB(3.9,73,2,2836,0)=" I MDFL=699 S MDN1=$G(^MCAR(699,+MDMREC,33,0)) I +$P(MDN1,U,3)&($P(MDN1,U,3)>1) Q 1"
^XMB(3.9,73,2,2837,0)="""RTN"",""MDCVT1"",148,0)"
^XMB(3.9,73,2,2838,0)=" I MDFL=700 S MDF=0 D  Q:MDF 1"
^XMB(3.9,73,2,2839,0)="""RTN"",""MDCVT1"",149,0)"
^XMB(3.9,73,2,2840,0)=" .S MDN1=$G(^MCAR(700,+MDMREC,25,0))"
^XMB(3.9,73,2,2841,0)="""RTN"",""MDCVT1"",150,0)"
^XMB(3.9,73,2,2842,0)=" .I +$P(MDN1,U,3)&($P(MDN1,U,3)>1) S MDF=1 Q"
^XMB(3.9,73,2,2843,0)="""RTN"",""MDCVT1"",151,0)"
^XMB(3.9,73,2,2844,0)=" .S MDN1=$G(^MCAR(700,+MDMREC,3,0))"
^XMB(3.9,73,2,2845,0)="""RTN"",""MDCVT1"",152,0)"
^XMB(3.9,73,2,2846,0)=" .I +$P(MDN1,U,3)&($P(MDN1,U,3)>1) S MDF=1 Q"
^XMB(3.9,73,2,2847,0)="""RTN"",""MDCVT1"",153,0)"
^XMB(3.9,73,2,2848,0)=" .S MDN1=$G(^MCAR(700,+MDMREC,4,0))"
^XMB(3.9,73,2,2849,0)="""RTN"",""MDCVT1"",154,0)"
^XMB(3.9,73,2,2850,0)=" .I +$P(MDN1,U,3)&($P(MDN1,U,3)>1) S MDF=1 Q"
^XMB(3.9,73,2,2851,0)="""RTN"",""MDCVT1"",155,0)"
^XMB(3.9,73,2,2852,0)=" I +$P($G(^MCAR(MDFL,+MDMREC,2005,0)),U,4)>0 Q 1"
^XMB(3.9,73,2,2853,0)="""RTN"",""MDCVT1"",156,0)"
^XMB(3.9,73,2,2854,0)=" Q 0"
^XMB(3.9,73,2,2855,0)="""RTN"",""MDCVT1"",157,0)"
^XMB(3.9,73,2,2856,0)="BLD() ; Build the list of reports to convert"
^XMB(3.9,73,2,2857,0)="""RTN"",""MDCVT1"",158,0)"
^XMB(3.9,73,2,2858,0)=" W ! K DIR S DIR(0)=""YA"",DIR(""A"")=""Build the list of reports to convert? """
^XMB(3.9,73,2,2859,0)="""RTN"",""MDCVT1"",159,0)"
^XMB(3.9,73,2,2860,0)=" S DIR(""A"",1)=""You can rebuild the list to check for new Medicine Reports that"""
^XMB(3.9,73,2,2861,0)="""RTN"",""MDCVT1"",160,0)"
^XMB(3.9,73,2,2862,0)=" S DIR(""A"",2)=""may have been added since the last time you ran the Build Conversion List."",DIR(""B"")=""NO"" D ^DIR K DIR"
^XMB(3.9,73,2,2863,0)="""RTN"",""MDCVT1"",161,0)"
^XMB(3.9,73,2,2864,0)=" ;"
^XMB(3.9,73,2,2865,0)="""RTN"",""MDCVT1"",162,0)"
^XMB(3.9,73,2,2866,0)=" Q:Y<1 1  ; User said no to re-build"
^XMB(3.9,73,2,2867,0)="""RTN"",""MDCVT1"",163,0)"
^XMB(3.9,73,2,2868,0)=" Q:$D(DIRUT)!$D(DIROUT)!(Y<1) 0  ; User has cancelled"
^XMB(3.9,73,2,2869,0)="""RTN"",""MDCVT1"",164,0)"
^XMB(3.9,73,2,2870,0)=" ;"
^XMB(3.9,73,2,2871,0)="""RTN"",""MDCVT1"",165,0)"
^XMB(3.9,73,2,2872,0)=" K DIR S DIR(0)=""YA"",DIR(""A"")=""Queue the conversion list build? "",DIR(""B"")=""YES"" D ^DIR K DIR"
^XMB(3.9,73,2,2873,0)="""RTN"",""MDCVT1"",166,0)"
^XMB(3.9,73,2,2874,0)=" I Y=0 D QBLD Q 1  ; User has opted to do it now"
^XMB(3.9,73,2,2875,0)="""RTN"",""MDCVT1"",167,0)"
^XMB(3.9,73,2,2876,0)=" I Y=1 D  Q 0  ; User has queued the build"
^XMB(3.9,73,2,2877,0)="""RTN"",""MDCVT1"",168,0)"
^XMB(3.9,73,2,2878,0)=" .S ZTRTN=""QBLD^MDCVT1"""
^XMB(3.9,73,2,2879,0)="""RTN"",""MDCVT1"",169,0)"
^XMB(3.9,73,2,2880,0)=" .S ZTDESC=""Medicine Conversion List Build"""
^XMB(3.9,73,2,2881,0)="""RTN"",""MDCVT1"",170,0)"
^XMB(3.9,73,2,2882,0)=" .S ZTREQ=""@"",ZTSAVE(""ZTREQ"")="""",MDQUE=1,MDDUZ=DUZ,ZTSAVE(""MDDUZ"")="""",ZTSAVE(""MDQUE"")="""""
^XMB(3.9,73,2,2883,0)="""RTN"",""MDCVT1"",171,0)"
^XMB(3.9,73,2,2884,0)=" .S (ZTDTH,ZTIO)="""""
^XMB(3.9,73,2,2885,0)="""RTN"",""MDCVT1"",172,0)"
^XMB(3.9,73,2,2886,0)=" .D ^%ZTLOAD"
^XMB(3.9,73,2,2887,0)="""RTN"",""MDCVT1"",173,0)"
^XMB(3.9,73,2,2888,0)=" .I $G(ZTSK) W ""Task Queued"""
^XMB(3.9,73,2,2889,0)="""RTN"",""MDCVT1"",174,0)"
^XMB(3.9,73,2,2890,0)=" .E  W ""Task Cancelled"""
^XMB(3.9,73,2,2891,0)="""RTN"",""MDCVT1"",175,0)"
^XMB(3.9,73,2,2892,0)=" Q 0  ; User cancelled out of the queueing"
^XMB(3.9,73,2,2893,0)="""RTN"",""MDCVT1"",176,0)"
^XMB(3.9,73,2,2894,0)=" ;"
^XMB(3.9,73,2,2895,0)="""RTN"",""MDCVT1"",177,0)"
^XMB(3.9,73,2,2896,0)="QBLD ; Queued entry point for re-build"
^XMB(3.9,73,2,2897,0)="""RTN"",""MDCVT1"",178,0)"
^XMB(3.9,73,2,2898,0)=" L +(^MDD(703.9,1,2)):5 E  Q"
^XMB(3.9,73,2,2899,0)="""RTN"",""MDCVT1"",179,0)"
^XMB(3.9,73,2,2900,0)=" N MDGBL,MDPTR,MDFDA,MDFL,MDIEN,MDY,X2"
^XMB(3.9,73,2,2901,0)="""RTN"",""MDCVT1"",180,0)"
^XMB(3.9,73,2,2902,0)=" S X2="""" F  S X2=$O(^MDD(703.9,1,1,X2)) Q:X2=""""  S MDY=$G(^(X2,0)) D"
^XMB(3.9,73,2,2903,0)="""RTN"",""MDCVT1"",181,0)"
^XMB(3.9,73,2,2904,0)=" .Q:'+$P(MDY,U,3)"
^XMB(3.9,73,2,2905,0)="""RTN"",""MDCVT1"",182,0)"
^XMB(3.9,73,2,2906,0)=" .S MDFL=$P(MDY,U),MDGBL=""^MCAR(""_MDFL_"",""""B"""")"""
^XMB(3.9,73,2,2907,0)="""RTN"",""MDCVT1"",183,0)"
^XMB(3.9,73,2,2908,0)=" .F  S MDGBL=$Q(@MDGBL) Q:MDGBL=""""  Q:$QS(MDGBL,2)'=""B""  D"
^XMB(3.9,73,2,2909,0)="""RTN"",""MDCVT1"",184,0)"
^XMB(3.9,73,2,2910,0)=" ..Q:'$P($G(^MCAR(MDFL,+$QS(MDGBL,4),0)),U,2)"
^XMB(3.9,73,2,2911,0)="""RTN"",""MDCVT1"",185,0)"
^XMB(3.9,73,2,2912,0)=" ..S MDPTR=$QS(MDGBL,4)_"";MCAR(""_MDFL_"","""
^XMB(3.9,73,2,2913,0)="""RTN"",""MDCVT1"",186,0)"
^XMB(3.9,73,2,2914,0)=" ..D SYNC^MDCVT(MDPTR)"
^XMB(3.9,73,2,2915,0)="""RTN"",""MDCVT1"",187,0)"
^XMB(3.9,73,2,2916,0)=" L -(^MDD(703.9,1,2))"
^XMB(3.9,73,2,2917,0)="""RTN"",""MDCVT1"",188,0)"
^XMB(3.9,73,2,2918,0)=" I +$G(MDQUE) D"
^XMB(3.9,73,2,2919,0)="""RTN"",""MDCVT1"",189,0)"
^XMB(3.9,73,2,2920,0)=" .N TXT,XMTO,XMBODY,XMDUZ,XMSUBJ"
^XMB(3.9,73,2,2921,0)="""RTN"",""MDCVT1"",190,0)"
^XMB(3.9,73,2,2922,0)=" .S XMINSTR(""FROM"")=.5,XMSUBJ=""Conversion List"""
^XMB(3.9,73,2,2923,0)="""RTN"",""MDCVT1"",191,0)"
^XMB(3.9,73,2,2924,0)=" .S XMTO=$G(MDDUZ) Q:'XMTO"
^XMB(3.9,73,2,2925,0)="""RTN"",""MDCVT1"",192,0)"
^XMB(3.9,73,2,2926,0)=" .S TXT(1)=""The Queued Conversion List is finished."""
^XMB(3.9,73,2,2927,0)="""RTN"",""MDCVT1"",193,0)"
^XMB(3.9,73,2,2928,0)=" .S TXT(2)=""You can run the Medicine report conversion process."",XMBODY=""TXT"""
^XMB(3.9,73,2,2929,0)="""RTN"",""MDCVT1"",194,0)"
^XMB(3.9,73,2,2930,0)=" .D SENDMSG^XMXAPI(DUZ,XMSUBJ,XMBODY,XMTO,.XMINSTR)"
^XMB(3.9,73,2,2931,0)="""RTN"",""MDCVT1"",195,0)"
^XMB(3.9,73,2,2932,0)=" .K MDQUE,MDDUZ"
^XMB(3.9,73,2,2933,0)="""RTN"",""MDCVT1"",196,0)"
^XMB(3.9,73,2,2934,0)=" Q"
^XMB(3.9,73,2,2935,0)="""RTN"",""MDCVT1"",197,0)"
^XMB(3.9,73,2,2936,0)="DELETE(MDIN) ; Delete study upon unsuccessful Note Creation"
^XMB(3.9,73,2,2937,0)="""RTN"",""MDCVT1"",198,0)"
^XMB(3.9,73,2,2938,0)=" N MDFDA"
^XMB(3.9,73,2,2939,0)="""RTN"",""MDCVT1"",199,0)"
^XMB(3.9,73,2,2940,0)=" S MDFDA(702,MDIN_"","",.01)="""""
^XMB(3.9,73,2,2941,0)="""RTN"",""MDCVT1"",200,0)"
^XMB(3.9,73,2,2942,0)=" D FILE^DIE("""",""MDFDA"")"
^XMB(3.9,73,2,2943,0)="""RTN"",""MDCVT1"",201,0)"
^XMB(3.9,73,2,2944,0)=" N DA,DIK S DA=+MDIN,DIK=""^MDD(702,"" D ^DIK"
^XMB(3.9,73,2,2945,0)="""RTN"",""MDCVT1"",202,0)"
^XMB(3.9,73,2,2946,0)=" Q"
^XMB(3.9,73,2,2947,0)="""RTN"",""MDCVT1"",203,0)"
^XMB(3.9,73,2,2948,0)="TOTALS(MDSTAT) ; Count by Status"
^XMB(3.9,73,2,2949,0)="""RTN"",""MDCVT1"",204,0)"
^XMB(3.9,73,2,2950,0)=" S MDSTAT(""E"")=0"
^XMB(3.9,73,2,2951,0)="""RTN"",""MDCVT1"",205,0)"
^XMB(3.9,73,2,2952,0)=" S MDSTAT(""E"")=MDSTAT(""TOT"")-(MDSTAT(""S"")+MDSTAT(""CR"")+MDSTAT(""CT""))"
^XMB(3.9,73,2,2953,0)="""RTN"",""MDCVT1"",206,0)"
^XMB(3.9,73,2,2954,0)=" W @IOF,!,""Conversion Totals"",!,$TR($J("""",35),"" "",""-"")"
^XMB(3.9,73,2,2955,0)="""RTN"",""MDCVT1"",207,0)"
^XMB(3.9,73,2,2956,0)=" W !,""Converted REAL Mode: "",$J(+$G(MDSTAT(""CR"")),9)"
^XMB(3.9,73,2,2957,0)="""RTN"",""MDCVT1"",208,0)"
^XMB(3.9,73,2,2958,0)=" W !,""Converted TEST Mode: "",$J(+$G(MDSTAT(""CT"")),9)"
^XMB(3.9,73,2,2959,0)="""RTN"",""MDCVT1"",209,0)"
^XMB(3.9,73,2,2960,0)=" W !,""Skipped:             "",$J(+$G(MDSTAT(""S"")),9)"
^XMB(3.9,73,2,2961,0)="""RTN"",""MDCVT1"",210,0)"
^XMB(3.9,73,2,2962,0)=" W !,""Error:               "",$J(+$G(MDSTAT(""E"")),9)"
^XMB(3.9,73,2,2963,0)="""RTN"",""MDCVT1"",211,0)"
^XMB(3.9,73,2,2964,0)=" Q"
^XMB(3.9,73,2,2965,0)="""RTN"",""MDCVTU"")"
^XMB(3.9,73,2,2966,0)="0^7^B2189080^n/a"
^XMB(3.9,73,2,2967,0)="""RTN"",""MDCVTU"",1,0)"
^XMB(3.9,73,2,2968,0)="MDCVTU ; HOIFO/NCA - Medicine Conversion Verification Utility ; [08-28-2003 11:34]"
^XMB(3.9,73,2,2969,0)="""RTN"",""MDCVTU"",2,0)"
^XMB(3.9,73,2,2970,0)=" ;;1.0;CLINICAL PROCEDURES;**5**;Apr 01, 2004;Build 1"
^XMB(3.9,73,2,2971,0)="""RTN"",""MDCVTU"",3,0)"
^XMB(3.9,73,2,2972,0)=" ; Integration Agreement:"
^XMB(3.9,73,2,2973,0)="""RTN"",""MDCVTU"",4,0)"
^XMB(3.9,73,2,2974,0)=" ; IA #10155 Access 3rd piece of ^DD(filenumber,fieldnumber,0)"
^XMB(3.9,73,2,2975,0)="""RTN"",""MDCVTU"",5,0)"
^XMB(3.9,73,2,2976,0)=" ;"
^XMB(3.9,73,2,2977,0)="""RTN"",""MDCVTU"",6,0)"
^XMB(3.9,73,2,2978,0)="EN ; [Procedure] Verify the Medicine Records Are Converted"
^XMB(3.9,73,2,2979,0)="""RTN"",""MDCVTU"",7,0)"
^XMB(3.9,73,2,2980,0)=" N CNT,CNTS,MDC,MDK,MDL,MDTIT"
^XMB(3.9,73,2,2981,0)="""RTN"",""MDCVTU"",8,0)"
^XMB(3.9,73,2,2982,0)=" S MDTIT="";""_$P($G(^DD(703.92,.02,0)),U,3)"
^XMB(3.9,73,2,2983,0)="""RTN"",""MDCVTU"",9,0)"
^XMB(3.9,73,2,2984,0)=" D EN1 W !!!"
^XMB(3.9,73,2,2985,0)="""RTN"",""MDCVTU"",10,0)"
^XMB(3.9,73,2,2986,0)=" S MDK="""" F  S MDK=$O(MDC(MDK)) Q:MDK=""""  S MDX=$G(MDC(MDK)) D"
^XMB(3.9,73,2,2987,0)="""RTN"",""MDCVTU"",11,0)"
^XMB(3.9,73,2,2988,0)=" .I +MDX S MDL=$F(MDTIT,"";""_MDK_"":"") W !,$P($E(MDTIT,MDL,999),"";"")_"": "",?30,+MDX"
^XMB(3.9,73,2,2989,0)="""RTN"",""MDCVTU"",12,0)"
^XMB(3.9,73,2,2990,0)=" I '$D(MDC) W !,""Verified Medicine Reports Conversion Completed."",!"
^XMB(3.9,73,2,2991,0)="""RTN"",""MDCVTU"",13,0)"
^XMB(3.9,73,2,2992,0)=" W !,""Reports Converted "",?30,CNT"
^XMB(3.9,73,2,2993,0)="""RTN"",""MDCVTU"",14,0)"
^XMB(3.9,73,2,2994,0)=" W !,""Reports Skipped: "",?30,CNTS"
^XMB(3.9,73,2,2995,0)="""RTN"",""MDCVTU"",15,0)"
^XMB(3.9,73,2,2996,0)=" Q"
^XMB(3.9,73,2,2997,0)="""RTN"",""MDCVTU"",16,0)"
^XMB(3.9,73,2,2998,0)="EN1 ; Loop to Check Medicine Records"
^XMB(3.9,73,2,2999,0)="""RTN"",""MDCVTU"",17,0)"
^XMB(3.9,73,2,3000,0)=" N MDP,MDPTR,MDREC,MDS,MDX"
^XMB(3.9,73,2,3001,0)="""RTN"",""MDCVTU"",18,0)"
^XMB(3.9,73,2,3002,0)=" S MDREC=$NA(^MCAR(690,""AC"")),(CNT,CNTS)=0"
^XMB(3.9,73,2,3003,0)="""RTN"",""MDCVTU"",19,0)"
^XMB(3.9,73,2,3004,0)=" F  S MDREC=$Q(@MDREC) Q:MDREC=""""  Q:$QS(MDREC,2)'=""AC""  D"
^XMB(3.9,73,2,3005,0)="""RTN"",""MDCVTU"",20,0)"
^XMB(3.9,73,2,3006,0)=" .S MDPTR=$QS(MDREC,6)_"";""_$QS(MDREC,5)_"","""
^XMB(3.9,73,2,3007,0)="""RTN"",""MDCVTU"",21,0)"
^XMB(3.9,73,2,3008,0)=" .S MDP=$O(^MDD(703.9,1,2,""B"",MDPTR,0))"
^XMB(3.9,73,2,3009,0)="""RTN"",""MDCVTU"",22,0)"
^XMB(3.9,73,2,3010,0)=" .I 'MDP S MDS=$$STATUS^MDCVT(MDPTR) S:$G(MDC(MDS))="""" MDC(MDS)=0 S MDC(MDS)=MDC(MDS)+1 Q"
^XMB(3.9,73,2,3011,0)="""RTN"",""MDCVTU"",23,0)"
^XMB(3.9,73,2,3012,0)=" .S MDS=$P(^MDD(703.9,1,2,MDP,0),U,2)"
^XMB(3.9,73,2,3013,0)="""RTN"",""MDCVTU"",24,0)"
^XMB(3.9,73,2,3014,0)=" .I MDS=""CR"" S CNT=CNT+1 Q"
^XMB(3.9,73,2,3015,0)="""RTN"",""MDCVTU"",25,0)"
^XMB(3.9,73,2,3016,0)=" .I MDS=""S"" S CNTS=CNTS+1 Q"
^XMB(3.9,73,2,3017,0)="""RTN"",""MDCVTU"",26,0)"
^XMB(3.9,73,2,3018,0)=" .S:$G(MDC(MDS))="""" MDC(MDS)=0 S MDC(MDS)=MDC(MDS)+1"
^XMB(3.9,73,2,3019,0)="""RTN"",""MDCVTU"",27,0)"
^XMB(3.9,73,2,3020,0)=" .Q"
^XMB(3.9,73,2,3021,0)="""RTN"",""MDCVTU"",28,0)"
^XMB(3.9,73,2,3022,0)=" Q"
^XMB(3.9,73,2,3023,0)="""RTN"",""MDESPRT"")"
^XMB(3.9,73,2,3024,0)="0^19^B8888916^n/a"
^XMB(3.9,73,2,3025,0)="""RTN"",""MDESPRT"",1,0)"
^XMB(3.9,73,2,3026,0)="MDESPRT ;HOIFO/NCA - ELECTRONIC SIGNATURE PRINT ;12/21/04  09:24"
^XMB(3.9,73,2,3027,0)="""RTN"",""MDESPRT"",2,0)"
^XMB(3.9,73,2,3028,0)=" ;;1.0;CLINICAL PROCEDURES;**5**;Apr 01, 2004;Build 1"
^XMB(3.9,73,2,3029,0)="""RTN"",""MDESPRT"",3,0)"
^XMB(3.9,73,2,3030,0)="GETHDR(RESULTS,MDDP) ; Get Legal Header for Report Text"
^XMB(3.9,73,2,3031,0)="""RTN"",""MDESPRT"",4,0)"
^XMB(3.9,73,2,3032,0)=" K ^TMP(""MDTMP"",$J) N MDC,MDFCHK,MDFT,MDS5,MDS6,X3,Y S (MDFCHK,MDFT)=0"
^XMB(3.9,73,2,3033,0)="""RTN"",""MDESPRT"",5,0)"
^XMB(3.9,73,2,3034,0)=" N MCSTAT,TEMP,CODE,CREATION,FNAME,FT,FTYPE,NAME,NUM,TT,VERSION S MDC=7"
^XMB(3.9,73,2,3035,0)="""RTN"",""MDESPRT"",6,0)"
^XMB(3.9,73,2,3036,0)=" S ^TMP(""MDTMP"",$J,1)=""****************************************************************"""
^XMB(3.9,73,2,3037,0)="""RTN"",""MDESPRT"",7,0)"
^XMB(3.9,73,2,3038,0)=" S ^TMP(""MDTMP"",$J,2)=""This information was imported from the Medicine Package software"""
^XMB(3.9,73,2,3039,0)="""RTN"",""MDESPRT"",8,0)"
^XMB(3.9,73,2,3040,0)=" S ^TMP(""MDTMP"",$J,3)=""and does not include an electronic signature; therefore, it is"""
^XMB(3.9,73,2,3041,0)="""RTN"",""MDESPRT"",9,0)"
^XMB(3.9,73,2,3042,0)=" S ^TMP(""MDTMP"",$J,4)=""being administratively closed and should be used as information"""
^XMB(3.9,73,2,3043,0)="""RTN"",""MDESPRT"",10,0)"
^XMB(3.9,73,2,3044,0)=" S ^TMP(""MDTMP"",$J,5)=""only."""
^XMB(3.9,73,2,3045,0)="""RTN"",""MDESPRT"",11,0)"
^XMB(3.9,73,2,3046,0)=" S ^TMP(""MDTMP"",$J,6)=""****************************************************************"""
^XMB(3.9,73,2,3047,0)="""RTN"",""MDESPRT"",12,0)"
^XMB(3.9,73,2,3048,0)=" S ^TMP(""MDTMP"",$J,7)="""""
^XMB(3.9,73,2,3049,0)="""RTN"",""MDESPRT"",13,0)"
^XMB(3.9,73,2,3050,0)=" S MDS5=$P($P($G(MDDP),"";"",2),"",""),MDS5=+$P(MDS5,""("",2),MDS6=+MDDP"
^XMB(3.9,73,2,3051,0)="""RTN"",""MDESPRT"",14,0)"
^XMB(3.9,73,2,3052,0)=" I $P($G(^MCAR(MDS5,MDS6,""ES"")),U,7)=""""!($P($G(^MCAR(MDS5,MDS6,""ES"")),U,7)=""RNV"") S ^TMP(""MDTMP"",$J,8)=""                          CONVERTED ARCHIVED REPORT"",MDC=MDC+1"
^XMB(3.9,73,2,3053,0)="""RTN"",""MDESPRT"",15,0)"
^XMB(3.9,73,2,3054,0)=" F X3=0:0 S X3=$O(@RESULTS@(X3)) Q:'X3  D  Q:+MDFCHK"
^XMB(3.9,73,2,3055,0)="""RTN"",""MDESPRT"",16,0)"
^XMB(3.9,73,2,3056,0)=" .I $P($G(^MCAR(MDS5,MDS6,""ES"")),U,7)=""RNV""&($G(@RESULTS@(X3))[""R e l e a s e   S t a t u s"") S MDFCHK=1 Q"
^XMB(3.9,73,2,3057,0)="""RTN"",""MDESPRT"",17,0)"
^XMB(3.9,73,2,3058,0)=" .S MDC=MDC+1,^TMP(""MDTMP"",$J,MDC)=$G(@RESULTS@(X3))"
^XMB(3.9,73,2,3059,0)="""RTN"",""MDESPRT"",18,0)"
^XMB(3.9,73,2,3060,0)=" S TEMP=$G(^MCAR(MDS5,MDS6,""ES""))"
^XMB(3.9,73,2,3061,0)="""RTN"",""MDESPRT"",19,0)"
^XMB(3.9,73,2,3062,0)=" I $P(TEMP,U,7)=""""!($P(TEMP,U,7)=""RNV"") S MDFT=1"
^XMB(3.9,73,2,3063,0)="""RTN"",""MDESPRT"",20,0)"
^XMB(3.9,73,2,3064,0)=" I +MDFT<1 K ^TMP($J) M ^TMP($J)=^TMP(""MDTMP"",$J) K ^TMP(""MDTMP"",$J) Q"
^XMB(3.9,73,2,3065,0)="""RTN"",""MDESPRT"",21,0)"
^XMB(3.9,73,2,3066,0)=" I $P(TEMP,U,7)=""RNV""&($G(^TMP(""MDTMP"",$J,MDC))["" - -"") K ^TMP(""MDTMP"",$J,MDC) S MDC=MDC-1"
^XMB(3.9,73,2,3067,0)="""RTN"",""MDESPRT"",22,0)"
^XMB(3.9,73,2,3068,0)=" S $P(TEMP,U,15)=DT"
^XMB(3.9,73,2,3069,0)="""RTN"",""MDESPRT"",23,0)"
^XMB(3.9,73,2,3070,0)=" ; Retrieve RC/ES Field (NA = Dont need)"
^XMB(3.9,73,2,3071,0)="""RTN"",""MDESPRT"",24,0)"
^XMB(3.9,73,2,3072,0)=" S NAME=""^^^^^^CODE^^^^^^^^CREATION"",FTYPE=""^^^^^^F^^^^^^^^D"""
^XMB(3.9,73,2,3073,0)="""RTN"",""MDESPRT"",25,0)"
^XMB(3.9,73,2,3074,0)=" F TT=7,15 D"
^XMB(3.9,73,2,3075,0)="""RTN"",""MDESPRT"",26,0)"
^XMB(3.9,73,2,3076,0)=" .S Y=$P(TEMP,U,TT),FT=$P(FTYPE,U,TT),FNAME=$P(NAME,U,TT)"
^XMB(3.9,73,2,3077,0)="""RTN"",""MDESPRT"",27,0)"
^XMB(3.9,73,2,3078,0)=" .I Y S:FT=""D"" @FNAME=+$E(Y,4,5)_""/""_+$E(Y,6,7)_""/""_$E((1700+$E(Y,1,3)),3,4) S:FT=""F"" @FNAME=Y"
^XMB(3.9,73,2,3079,0)="""RTN"",""MDESPRT"",28,0)"
^XMB(3.9,73,2,3080,0)=" S MCSTAT=""CONVERTED ARCHIVED REPORT"""
^XMB(3.9,73,2,3081,0)="""RTN"",""MDESPRT"",29,0)"
^XMB(3.9,73,2,3082,0)=" S NUM=1"
^XMB(3.9,73,2,3083,0)="""RTN"",""MDESPRT"",30,0)"
^XMB(3.9,73,2,3084,0)=" S VERSION=NUM_"" of ""_NUM"
^XMB(3.9,73,2,3085,0)="""RTN"",""MDESPRT"",31,0)"
^XMB(3.9,73,2,3086,0)=" S $P(SS,"" -"",40)="""" S MDC=MDC+1,^TMP(""MDTMP"",$J,MDC)="""""
^XMB(3.9,73,2,3087,0)="""RTN"",""MDESPRT"",32,0)"
^XMB(3.9,73,2,3088,0)=" S MDC=MDC+1,^TMP(""MDTMP"",$J,MDC)="""""
^XMB(3.9,73,2,3089,0)="""RTN"",""MDESPRT"",33,0)"
^XMB(3.9,73,2,3090,0)=" S MDC=MDC+1,^TMP(""MDTMP"",$J,MDC)="""""
^XMB(3.9,73,2,3091,0)="""RTN"",""MDESPRT"",34,0)"
^XMB(3.9,73,2,3092,0)=" S MDC=MDC+1,^TMP(""MDTMP"",$J,MDC)=SS K SS"
^XMB(3.9,73,2,3093,0)="""RTN"",""MDESPRT"",35,0)"
^XMB(3.9,73,2,3094,0)=" S MDC=MDC+1,^TMP(""MDTMP"",$J,MDC)=$J("" "",18)_""R e p o r t   R e l e a s e   S t a t u s"""
^XMB(3.9,73,2,3095,0)="""RTN"",""MDESPRT"",36,0)"
^XMB(3.9,73,2,3096,0)=" S MDC=MDC+1,^TMP(""MDTMP"",$J,MDC)="""""
^XMB(3.9,73,2,3097,0)="""RTN"",""MDESPRT"",37,0)"
^XMB(3.9,73,2,3098,0)=" S MDC=MDC+1,^TMP(""MDTMP"",$J,MDC)=""Current """
^XMB(3.9,73,2,3099,0)="""RTN"",""MDESPRT"",38,0)"
^XMB(3.9,73,2,3100,0)=" S MDC=MDC+1,^TMP(""MDTMP"",$J,MDC)=""Report  ""_$J("" "",51)_""Date of    Report"""
^XMB(3.9,73,2,3101,0)="""RTN"",""MDESPRT"",39,0)"
^XMB(3.9,73,2,3102,0)=" S MDC=MDC+1,^TMP(""MDTMP"",$J,MDC)=""Status  ""_$J("" "",51)_"" Entry     Version"""
^XMB(3.9,73,2,3103,0)="""RTN"",""MDESPRT"",40,0)"
^XMB(3.9,73,2,3104,0)=" S $P(SS,""="",80)="""",MDC=MDC+1,^TMP(""MDTMP"",$J,MDC)=SS K SS"
^XMB(3.9,73,2,3105,0)="""RTN"",""MDESPRT"",41,0)"
^XMB(3.9,73,2,3106,0)=" S MDC=MDC+1,^TMP(""MDTMP"",$J,MDC)=MCSTAT"
^XMB(3.9,73,2,3107,0)="""RTN"",""MDESPRT"",42,0)"
^XMB(3.9,73,2,3108,0)=" S MDC=MDC+1,^TMP(""MDTMP"",$J,MDC)=$J("" "",59)_CREATION_""    ""_VERSION"
^XMB(3.9,73,2,3109,0)="""RTN"",""MDESPRT"",43,0)"
^XMB(3.9,73,2,3110,0)=" K ^TMP($J) M ^TMP($J)=^TMP(""MDTMP"",$J) K ^TMP(""MDTMP"",$J)"
^XMB(3.9,73,2,3111,0)="""RTN"",""MDESPRT"",44,0)"
^XMB(3.9,73,2,3112,0)=" Q"
^XMB(3.9,73,2,3113,0)="""RTN"",""MDOUTOR"")"
^XMB(3.9,73,2,3114,0)="0^8^B33171008^n/a"
^XMB(3.9,73,2,3115,0)="""RTN"",""MDOUTOR"",1,0)"
^XMB(3.9,73,2,3116,0)="MDOUTOR ; HOIFO/NCA - Post Conversion Routine ; [04-14-2003 10:51]"
^XMB(3.9,73,2,3117,0)="""RTN"",""MDOUTOR"",2,0)"
^XMB(3.9,73,2,3118,0)=" ;;1.0;CLINICAL PROCEDURES;**5**;Apr 01, 2004;Build 1"
^XMB(3.9,73,2,3119,0)="""RTN"",""MDOUTOR"",3,0)"
^XMB(3.9,73,2,3120,0)="EN1 ; [Procedure]"
^XMB(3.9,73,2,3121,0)="""RTN"",""MDOUTOR"",4,0)"
^XMB(3.9,73,2,3122,0)=" ; This post conversion routine will place the Medicine Enter/Edit "
^XMB(3.9,73,2,3123,0)="""RTN"",""MDOUTOR"",5,0)"
^XMB(3.9,73,2,3124,0)=" ; options out of order"
^XMB(3.9,73,2,3125,0)="""RTN"",""MDOUTOR"",6,0)"
^XMB(3.9,73,2,3126,0)=" ; Reference IA # 1157 [Supported] Kernel XPDMENU calls."
^XMB(3.9,73,2,3127,0)="""RTN"",""MDOUTOR"",7,0)"
^XMB(3.9,73,2,3128,0)=" ;           IA # 2263 [Supported] XPAR parameter calls"
^XMB(3.9,73,2,3129,0)="""RTN"",""MDOUTOR"",8,0)"
^XMB(3.9,73,2,3130,0)=" ;           IA #10075 [Supported] Option File Read."
^XMB(3.9,73,2,3131,0)="""RTN"",""MDOUTOR"",9,0)"
^XMB(3.9,73,2,3132,0)=" ;"
^XMB(3.9,73,2,3133,0)="""RTN"",""MDOUTOR"",10,0)"
^XMB(3.9,73,2,3134,0)=" N LP,MDAR,MDFDA,MDLAB,MDPI,MDOPI,MDOPT,MDTXT,MDSEL,MDX"
^XMB(3.9,73,2,3135,0)="""RTN"",""MDOUTOR"",11,0)"
^XMB(3.9,73,2,3136,0)=" I $$GET^XPAR(""SYS"",""MD MEDICINE CONVERTED"",1) W !!,""Options Already Disabled."",! Q"
^XMB(3.9,73,2,3137,0)="""RTN"",""MDOUTOR"",12,0)"
^XMB(3.9,73,2,3138,0)=" K DIR S DIR(0)=""YA"",DIR(""A"")=""Place the Medicine options OUT OF ORDER? "",DIR(""B"")=""NO"" D ^DIR K DIR Q:$D(DIRUT)!$D(DIROUT)!(Y<1)"
^XMB(3.9,73,2,3139,0)="""RTN"",""MDOUTOR"",13,0)"
^XMB(3.9,73,2,3140,0)=" K DIR S DIR(0)=""SO^1:CATH;2:ECG;3:ECHO;4:EP;5:HOLTER;6:ETT;7:SURGICAL RISK;8:CONSULT;9:GI;10:PULMONARY-GI;11:PFT;12:HEMATOLOGY;13:PACEMAKER;14:RHEUMATOLOGY;15:ALL"""
^XMB(3.9,73,2,3141,0)="""RTN"",""MDOUTOR"",14,0)"
^XMB(3.9,73,2,3142,0)=" S DIR(""?"")=""Enter a code from 1-15."""
^XMB(3.9,73,2,3143,0)="""RTN"",""MDOUTOR"",15,0)"
^XMB(3.9,73,2,3144,0)=" D ^DIR K DIR Q:$D(DIRUT)!$D(DIROUT)!(Y<1)  S MDSEL=Y"
^XMB(3.9,73,2,3145,0)="""RTN"",""MDOUTOR"",16,0)"
^XMB(3.9,73,2,3146,0)=" S MDTXT=""Medicine Reports Converted to Clinical Procedures - OPTION OUT OF SERVICE"""
^XMB(3.9,73,2,3147,0)="""RTN"",""MDOUTOR"",17,0)"
^XMB(3.9,73,2,3148,0)=" F MDX=1:1 S MDOPT=$P($T(LABEL+MDX),"";;"",2) Q:MDOPT=""**END**""  D"
^XMB(3.9,73,2,3149,0)="""RTN"",""MDOUTOR"",18,0)"
^XMB(3.9,73,2,3150,0)=" .Q:MDOPT="""""
^XMB(3.9,73,2,3151,0)="""RTN"",""MDOUTOR"",19,0)"
^XMB(3.9,73,2,3152,0)=" .S MDAR(MDX)=MDOPT"
^XMB(3.9,73,2,3153,0)="""RTN"",""MDOUTOR"",20,0)"
^XMB(3.9,73,2,3154,0)=" .Q"
^XMB(3.9,73,2,3155,0)="""RTN"",""MDOUTOR"",21,0)"
^XMB(3.9,73,2,3156,0)=" S MDLAB=$S(MDSEL'=15:$G(MDAR(MDSEL)),1:"""")"
^XMB(3.9,73,2,3157,0)="""RTN"",""MDOUTOR"",22,0)"
^XMB(3.9,73,2,3158,0)=" W !!,""Placing the following Medicine options OUT OF ORDER:"",!"
^XMB(3.9,73,2,3159,0)="""RTN"",""MDOUTOR"",23,0)"
^XMB(3.9,73,2,3160,0)=" I MDSEL=15 F LP=1:1:15 S MDLAB=$G(MDAR(LP)) Q:MDLAB=""""  D DISABLE"
^XMB(3.9,73,2,3161,0)="""RTN"",""MDOUTOR"",24,0)"
^XMB(3.9,73,2,3162,0)=" I MDSEL=15 D EN^XPAR(""SYS"",""MD MEDICINE CONVERTED"",1,1) Q"
^XMB(3.9,73,2,3163,0)="""RTN"",""MDOUTOR"",25,0)"
^XMB(3.9,73,2,3164,0)=" D:MDSEL'=15 DISABLE"
^XMB(3.9,73,2,3165,0)="""RTN"",""MDOUTOR"",26,0)"
^XMB(3.9,73,2,3166,0)=" W !! K DIR S DIR(0)=""YA"",DIR(""A"")=""Are All Medicine Reports Converted? "",DIR(""B"")=""NO"" D ^DIR K DIR Q:$D(DIRUT)!$D(DIROUT)!(Y<1)"
^XMB(3.9,73,2,3167,0)="""RTN"",""MDOUTOR"",27,0)"
^XMB(3.9,73,2,3168,0)=" D EN^XPAR(""SYS"",""MD MEDICINE CONVERTED"",1,1)"
^XMB(3.9,73,2,3169,0)="""RTN"",""MDOUTOR"",28,0)"
^XMB(3.9,73,2,3170,0)=" Q"
^XMB(3.9,73,2,3171,0)="""RTN"",""MDOUTOR"",29,0)"
^XMB(3.9,73,2,3172,0)="DISABLE ; Disabling the options"
^XMB(3.9,73,2,3173,0)="""RTN"",""MDOUTOR"",30,0)"
^XMB(3.9,73,2,3174,0)=" F MDX=1:1 S MDOPT=$P($T(@MDLAB+MDX),"";;"",2) Q:MDOPT=""**END**""  D"
^XMB(3.9,73,2,3175,0)="""RTN"",""MDOUTOR"",31,0)"
^XMB(3.9,73,2,3176,0)=" .Q:MDOPT="""""
^XMB(3.9,73,2,3177,0)="""RTN"",""MDOUTOR"",32,0)"
^XMB(3.9,73,2,3178,0)=" .S MDPI=$$FIND1^DIC(19,"""",""MX"",MDOPT) Q:'MDPI"
^XMB(3.9,73,2,3179,0)="""RTN"",""MDOUTOR"",33,0)"
^XMB(3.9,73,2,3180,0)=" .D OUT^XPDMENU(MDOPT,MDTXT)"
^XMB(3.9,73,2,3181,0)="""RTN"",""MDOUTOR"",34,0)"
^XMB(3.9,73,2,3182,0)=" .W !,$$GET1^DIQ(19,MDPI_"","",1,""E""),""   ["",MDOPT,""]"""
^XMB(3.9,73,2,3183,0)="""RTN"",""MDOUTOR"",35,0)"
^XMB(3.9,73,2,3184,0)=" Q"
^XMB(3.9,73,2,3185,0)="""RTN"",""MDOUTOR"",36,0)"
^XMB(3.9,73,2,3186,0)=" ;"
^XMB(3.9,73,2,3187,0)="""RTN"",""MDOUTOR"",37,0)"
^XMB(3.9,73,2,3188,0)="LABEL ; [Labels]"
^XMB(3.9,73,2,3189,0)="""RTN"",""MDOUTOR"",38,0)"
^XMB(3.9,73,2,3190,0)=" ;;CATH"
^XMB(3.9,73,2,3191,0)="""RTN"",""MDOUTOR"",39,0)"
^XMB(3.9,73,2,3192,0)=" ;;ECG"
^XMB(3.9,73,2,3193,0)="""RTN"",""MDOUTOR"",40,0)"
^XMB(3.9,73,2,3194,0)=" ;;ECHO"
^XMB(3.9,73,2,3195,0)="""RTN"",""MDOUTOR"",41,0)"
^XMB(3.9,73,2,3196,0)=" ;;EP"
^XMB(3.9,73,2,3197,0)="""RTN"",""MDOUTOR"",42,0)"
^XMB(3.9,73,2,3198,0)=" ;;HOLTER"
^XMB(3.9,73,2,3199,0)="""RTN"",""MDOUTOR"",43,0)"
^XMB(3.9,73,2,3200,0)=" ;;ETT"
^XMB(3.9,73,2,3201,0)="""RTN"",""MDOUTOR"",44,0)"
^XMB(3.9,73,2,3202,0)=" ;;SURG"
^XMB(3.9,73,2,3203,0)="""RTN"",""MDOUTOR"",45,0)"
^XMB(3.9,73,2,3204,0)=" ;;CONSULT"
^XMB(3.9,73,2,3205,0)="""RTN"",""MDOUTOR"",46,0)"
^XMB(3.9,73,2,3206,0)=" ;;GI"
^XMB(3.9,73,2,3207,0)="""RTN"",""MDOUTOR"",47,0)"
^XMB(3.9,73,2,3208,0)=" ;;PULM"
^XMB(3.9,73,2,3209,0)="""RTN"",""MDOUTOR"",48,0)"
^XMB(3.9,73,2,3210,0)=" ;;PFT"
^XMB(3.9,73,2,3211,0)="""RTN"",""MDOUTOR"",49,0)"
^XMB(3.9,73,2,3212,0)=" ;;HEM"
^XMB(3.9,73,2,3213,0)="""RTN"",""MDOUTOR"",50,0)"
^XMB(3.9,73,2,3214,0)=" ;;PACE"
^XMB(3.9,73,2,3215,0)="""RTN"",""MDOUTOR"",51,0)"
^XMB(3.9,73,2,3216,0)=" ;;RHEUM"
^XMB(3.9,73,2,3217,0)="""RTN"",""MDOUTOR"",52,0)"
^XMB(3.9,73,2,3218,0)=" ;;SUMM"
^XMB(3.9,73,2,3219,0)="""RTN"",""MDOUTOR"",53,0)"
^XMB(3.9,73,2,3220,0)=" ;;**END**"
^XMB(3.9,73,2,3221,0)="""RTN"",""MDOUTOR"",54,0)"
^XMB(3.9,73,2,3222,0)="OPTIONS ; [Data Module] Enter/Edit Medicine options"
^XMB(3.9,73,2,3223,0)="""RTN"",""MDOUTOR"",55,0)"
^XMB(3.9,73,2,3224,0)="CATH ;;[Cardiac Catheterization options]"
^XMB(3.9,73,2,3225,0)="""RTN"",""MDOUTOR"",56,0)"
^XMB(3.9,73,2,3226,0)=" ;;MCFSCATH"
^XMB(3.9,73,2,3227,0)="""RTN"",""MDOUTOR"",57,0)"
^XMB(3.9,73,2,3228,0)=" ;;MCFPCATH"
^XMB(3.9,73,2,3229,0)="""RTN"",""MDOUTOR"",58,0)"
^XMB(3.9,73,2,3230,0)=" ;;MCFLCATH"
^XMB(3.9,73,2,3231,0)="""RTN"",""MDOUTOR"",59,0)"
^XMB(3.9,73,2,3232,0)=" ;;MCBLCATH"
^XMB(3.9,73,2,3233,0)="""RTN"",""MDOUTOR"",60,0)"
^XMB(3.9,73,2,3234,0)=" ;;MCBSCATH"
^XMB(3.9,73,2,3235,0)="""RTN"",""MDOUTOR"",61,0)"
^XMB(3.9,73,2,3236,0)=" ;;MCBPCATH"
^XMB(3.9,73,2,3237,0)="""RTN"",""MDOUTOR"",62,0)"
^XMB(3.9,73,2,3238,0)=" ;;MCARCATHIMAGE"
^XMB(3.9,73,2,3239,0)="""RTN"",""MDOUTOR"",63,0)"
^XMB(3.9,73,2,3240,0)=" ;;**END**"
^XMB(3.9,73,2,3241,0)="""RTN"",""MDOUTOR"",64,0)"
^XMB(3.9,73,2,3242,0)="ECG ;;[Electrocardiogram options]"
^XMB(3.9,73,2,3243,0)="""RTN"",""MDOUTOR"",65,0)"
^XMB(3.9,73,2,3244,0)=" ;;MCFSECG"
^XMB(3.9,73,2,3245,0)="""RTN"",""MDOUTOR"",66,0)"
^XMB(3.9,73,2,3246,0)=" ;;MCFPECG"
^XMB(3.9,73,2,3247,0)="""RTN"",""MDOUTOR"",67,0)"
^XMB(3.9,73,2,3248,0)=" ;;MCFLECG"
^XMB(3.9,73,2,3249,0)="""RTN"",""MDOUTOR"",68,0)"
^XMB(3.9,73,2,3250,0)=" ;;MCARECGAUTOSUM"
^XMB(3.9,73,2,3251,0)="""RTN"",""MDOUTOR"",69,0)"
^XMB(3.9,73,2,3252,0)=" ;;MCBLECG"
^XMB(3.9,73,2,3253,0)="""RTN"",""MDOUTOR"",70,0)"
^XMB(3.9,73,2,3254,0)=" ;;MCBSECG"
^XMB(3.9,73,2,3255,0)="""RTN"",""MDOUTOR"",71,0)"
^XMB(3.9,73,2,3256,0)=" ;;MCBPECG"
^XMB(3.9,73,2,3257,0)="""RTN"",""MDOUTOR"",72,0)"
^XMB(3.9,73,2,3258,0)=" ;;**END**"
^XMB(3.9,73,2,3259,0)="""RTN"",""MDOUTOR"",73,0)"
^XMB(3.9,73,2,3260,0)="ECHO ;;[Echocardiogram options]"
^XMB(3.9,73,2,3261,0)="""RTN"",""MDOUTOR"",74,0)"
^XMB(3.9,73,2,3262,0)=" ;;MCFSECHO"
^XMB(3.9,73,2,3263,0)="""RTN"",""MDOUTOR"",75,0)"
^XMB(3.9,73,2,3264,0)=" ;;MCFPECHO"
^XMB(3.9,73,2,3265,0)="""RTN"",""MDOUTOR"",76,0)"
^XMB(3.9,73,2,3266,0)=" ;;MCFLECHO"
^XMB(3.9,73,2,3267,0)="""RTN"",""MDOUTOR"",77,0)"
^XMB(3.9,73,2,3268,0)=" ;;MCARECHOIMAGE"
^XMB(3.9,73,2,3269,0)="""RTN"",""MDOUTOR"",78,0)"
^XMB(3.9,73,2,3270,0)=" ;;MCBLECHO"
^XMB(3.9,73,2,3271,0)="""RTN"",""MDOUTOR"",79,0)"
^XMB(3.9,73,2,3272,0)=" ;;MCBSECHO"
^XMB(3.9,73,2,3273,0)="""RTN"",""MDOUTOR"",80,0)"
^XMB(3.9,73,2,3274,0)=" ;;MCBPECHO"
^XMB(3.9,73,2,3275,0)="""RTN"",""MDOUTOR"",81,0)"
^XMB(3.9,73,2,3276,0)=" ;;**END**"
^XMB(3.9,73,2,3277,0)="""RTN"",""MDOUTOR"",82,0)"
^XMB(3.9,73,2,3278,0)="EP ;;[Electrophysiology options]"
^XMB(3.9,73,2,3279,0)="""RTN"",""MDOUTOR"",83,0)"
^XMB(3.9,73,2,3280,0)=" ;;MCFSEP"
^XMB(3.9,73,2,3281,0)="""RTN"",""MDOUTOR"",84,0)"
^XMB(3.9,73,2,3282,0)=" ;;MCFPEP"
^XMB(3.9,73,2,3283,0)="""RTN"",""MDOUTOR"",85,0)"
^XMB(3.9,73,2,3284,0)=" ;;MCFLEP"
^XMB(3.9,73,2,3285,0)="""RTN"",""MDOUTOR"",86,0)"
^XMB(3.9,73,2,3286,0)=" ;;MCBLEP"
^XMB(3.9,73,2,3287,0)="""RTN"",""MDOUTOR"",87,0)"
^XMB(3.9,73,2,3288,0)=" ;;MCBSEP"
^XMB(3.9,73,2,3289,0)="""RTN"",""MDOUTOR"",88,0)"
^XMB(3.9,73,2,3290,0)=" ;;MCBPEP"
^XMB(3.9,73,2,3291,0)="""RTN"",""MDOUTOR"",89,0)"
^XMB(3.9,73,2,3292,0)=" ;;**END**"
^XMB(3.9,73,2,3293,0)="""RTN"",""MDOUTOR"",90,0)"
^XMB(3.9,73,2,3294,0)="HOLTER ;;[Holter options]"
^XMB(3.9,73,2,3295,0)="""RTN"",""MDOUTOR"",91,0)"
^XMB(3.9,73,2,3296,0)=" ;;MCFSHOLTER"
^XMB(3.9,73,2,3297,0)="""RTN"",""MDOUTOR"",92,0)"
^XMB(3.9,73,2,3298,0)=" ;;MCFPHOLTER"
^XMB(3.9,73,2,3299,0)="""RTN"",""MDOUTOR"",93,0)"
^XMB(3.9,73,2,3300,0)=" ;;MCFLHOLTER"
^XMB(3.9,73,2,3301,0)="""RTN"",""MDOUTOR"",94,0)"
^XMB(3.9,73,2,3302,0)=" ;;MCBLHOLTER"
^XMB(3.9,73,2,3303,0)="""RTN"",""MDOUTOR"",95,0)"
^XMB(3.9,73,2,3304,0)=" ;;MCBSHOLTER"
^XMB(3.9,73,2,3305,0)="""RTN"",""MDOUTOR"",96,0)"
^XMB(3.9,73,2,3306,0)=" ;;MCBPHOLTER"
^XMB(3.9,73,2,3307,0)="""RTN"",""MDOUTOR"",97,0)"
^XMB(3.9,73,2,3308,0)=" ;;**END**"
^XMB(3.9,73,2,3309,0)="""RTN"",""MDOUTOR"",98,0)"
^XMB(3.9,73,2,3310,0)="ETT ;;[Exercise Tolerance Test options]"
^XMB(3.9,73,2,3311,0)="""RTN"",""MDOUTOR"",99,0)"
^XMB(3.9,73,2,3312,0)=" ;;MCFSETT"
^XMB(3.9,73,2,3313,0)="""RTN"",""MDOUTOR"",100,0)"
^XMB(3.9,73,2,3314,0)=" ;;MCFPETT"
^XMB(3.9,73,2,3315,0)="""RTN"",""MDOUTOR"",101,0)"
^XMB(3.9,73,2,3316,0)=" ;;MCFLETT"
^XMB(3.9,73,2,3317,0)="""RTN"",""MDOUTOR"",102,0)"
^XMB(3.9,73,2,3318,0)=" ;;MCBLETT"
^XMB(3.9,73,2,3319,0)="""RTN"",""MDOUTOR"",103,0)"
^XMB(3.9,73,2,3320,0)=" ;;MCBSETT"
^XMB(3.9,73,2,3321,0)="""RTN"",""MDOUTOR"",104,0)"
^XMB(3.9,73,2,3322,0)=" ;;MCBPETT"
^XMB(3.9,73,2,3323,0)="""RTN"",""MDOUTOR"",105,0)"
^XMB(3.9,73,2,3324,0)=" ;;**END**"
^XMB(3.9,73,2,3325,0)="""RTN"",""MDOUTOR"",106,0)"
^XMB(3.9,73,2,3326,0)="SURG ;;[Surgical Risk Assessment options]"
^XMB(3.9,73,2,3327,0)="""RTN"",""MDOUTOR"",107,0)"
^XMB(3.9,73,2,3328,0)=" ;;MCARCATHSRAPRE"
^XMB(3.9,73,2,3329,0)="""RTN"",""MDOUTOR"",108,0)"
^XMB(3.9,73,2,3330,0)=" ;;MCARCATHSRAPOST"
^XMB(3.9,73,2,3331,0)="""RTN"",""MDOUTOR"",109,0)"
^XMB(3.9,73,2,3332,0)=" ;;MCARSRAPRE"
^XMB(3.9,73,2,3333,0)="""RTN"",""MDOUTOR"",110,0)"
^XMB(3.9,73,2,3334,0)=" ;;MCARSRAPOST"
^XMB(3.9,73,2,3335,0)="""RTN"",""MDOUTOR"",111,0)"
^XMB(3.9,73,2,3336,0)=" ;;MCARCATHSRAPRINT"
^XMB(3.9,73,2,3337,0)="""RTN"",""MDOUTOR"",112,0)"
^XMB(3.9,73,2,3338,0)=" ;;**END**"
^XMB(3.9,73,2,3339,0)="""RTN"",""MDOUTOR"",113,0)"
^XMB(3.9,73,2,3340,0)="CONSULT ;;[Consult options]"
^XMB(3.9,73,2,3341,0)="""RTN"",""MDOUTOR"",114,0)"
^XMB(3.9,73,2,3342,0)=" ;;MCARGICONSULTEDIT"
^XMB(3.9,73,2,3343,0)="""RTN"",""MDOUTOR"",115,0)"
^XMB(3.9,73,2,3344,0)=" ;;MCCONSULTSCREEN"
^XMB(3.9,73,2,3345,0)="""RTN"",""MDOUTOR"",116,0)"
^XMB(3.9,73,2,3346,0)=" ;;MCARGICONSULTPRINT"
^XMB(3.9,73,2,3347,0)="""RTN"",""MDOUTOR"",117,0)"
^XMB(3.9,73,2,3348,0)=" ;;MCARGICONSULTBRIEF"
^XMB(3.9,73,2,3349,0)="""RTN"",""MDOUTOR"",118,0)"
^XMB(3.9,73,2,3350,0)=" ;;MCCONSULTBRSCR"
^XMB(3.9,73,2,3351,0)="""RTN"",""MDOUTOR"",119,0)"
^XMB(3.9,73,2,3352,0)=" ;;MCCONSULTBRREPORT"
^XMB(3.9,73,2,3353,0)="""RTN"",""MDOUTOR"",120,0)"
^XMB(3.9,73,2,3354,0)=" ;;**END**"
^XMB(3.9,73,2,3355,0)="""RTN"",""MDOUTOR"",121,0)"
^XMB(3.9,73,2,3356,0)="GI ;;[GI options]"
^XMB(3.9,73,2,3357,0)="""RTN"",""MDOUTOR"",122,0)"
^XMB(3.9,73,2,3358,0)=" ;;MCFLGI"
^XMB(3.9,73,2,3359,0)="""RTN"",""MDOUTOR"",123,0)"
^XMB(3.9,73,2,3360,0)=" ;;MCFSGI"
^XMB(3.9,73,2,3361,0)="""RTN"",""MDOUTOR"",124,0)"
^XMB(3.9,73,2,3362,0)=" ;;MCFPGI"
^XMB(3.9,73,2,3363,0)="""RTN"",""MDOUTOR"",125,0)"
^XMB(3.9,73,2,3364,0)=" ;;MCARGIDIAG"
^XMB(3.9,73,2,3365,0)="""RTN"",""MDOUTOR"",126,0)"
^XMB(3.9,73,2,3366,0)=" ;;MCARGIRECALLIST"
^XMB(3.9,73,2,3367,0)="""RTN"",""MDOUTOR"",127,0)"
^XMB(3.9,73,2,3368,0)=" ;;MCARGIMAGE"
^XMB(3.9,73,2,3369,0)="""RTN"",""MDOUTOR"",128,0)"
^XMB(3.9,73,2,3370,0)=" ;;MCBLGI"
^XMB(3.9,73,2,3371,0)="""RTN"",""MDOUTOR"",129,0)"
^XMB(3.9,73,2,3372,0)=" ;;MCBSGI"
^XMB(3.9,73,2,3373,0)="""RTN"",""MDOUTOR"",130,0)"
^XMB(3.9,73,2,3374,0)=" ;;MCBPGI"
^XMB(3.9,73,2,3375,0)="""RTN"",""MDOUTOR"",131,0)"
^XMB(3.9,73,2,3376,0)=" ;;MCFLNONENDO"
^XMB(3.9,73,2,3377,0)="""RTN"",""MDOUTOR"",132,0)"
^XMB(3.9,73,2,3378,0)=" ;;MCFSNONENDO"
^XMB(3.9,73,2,3379,0)="""RTN"",""MDOUTOR"",133,0)"
^XMB(3.9,73,2,3380,0)=" ;;MCFPNONENDO"
^XMB(3.9,73,2,3381,0)="""RTN"",""MDOUTOR"",134,0)"
^XMB(3.9,73,2,3382,0)=" ;;MCBLNONENDO"
^XMB(3.9,73,2,3383,0)="""RTN"",""MDOUTOR"",135,0)"
^XMB(3.9,73,2,3384,0)=" ;;MCBSNONENDO"
^XMB(3.9,73,2,3385,0)="""RTN"",""MDOUTOR"",136,0)"
^XMB(3.9,73,2,3386,0)=" ;;MCBPNONENDO"
^XMB(3.9,73,2,3387,0)="""RTN"",""MDOUTOR"",137,0)"
^XMB(3.9,73,2,3388,0)=" ;;**END**"
^XMB(3.9,73,2,3389,0)="""RTN"",""MDOUTOR"",138,0)"
^XMB(3.9,73,2,3390,0)="PULM ;;[Pulmonary options]"
^XMB(3.9,73,2,3391,0)="""RTN"",""MDOUTOR"",139,0)"
^XMB(3.9,73,2,3392,0)=" ;;MCFLPULM"
^XMB(3.9,73,2,3393,0)="""RTN"",""MDOUTOR"",140,0)"
^XMB(3.9,73,2,3394,0)=" ;;MCFSPULM"
^XMB(3.9,73,2,3395,0)="""RTN"",""MDOUTOR"",141,0)"
^XMB(3.9,73,2,3396,0)=" ;;MCFPPULM"
^XMB(3.9,73,2,3397,0)="""RTN"",""MDOUTOR"",142,0)"
^XMB(3.9,73,2,3398,0)=" ;;MCARPULMDIAG"
^XMB(3.9,73,2,3399,0)="""RTN"",""MDOUTOR"",143,0)"
^XMB(3.9,73,2,3400,0)=" ;;MCARPULMRECALLIST"
^XMB(3.9,73,2,3401,0)="""RTN"",""MDOUTOR"",144,0)"
^XMB(3.9,73,2,3402,0)=" ;;MCARPULMIMAGE"
^XMB(3.9,73,2,3403,0)="""RTN"",""MDOUTOR"",145,0)"
^XMB(3.9,73,2,3404,0)=" ;;MCBLPULM"
^XMB(3.9,73,2,3405,0)="""RTN"",""MDOUTOR"",146,0)"
^XMB(3.9,73,2,3406,0)=" ;;MCBSPULM"
^XMB(3.9,73,2,3407,0)="""RTN"",""MDOUTOR"",147,0)"
^XMB(3.9,73,2,3408,0)=" ;;MCBPPULM"
^XMB(3.9,73,2,3409,0)="""RTN"",""MDOUTOR"",148,0)"
^XMB(3.9,73,2,3410,0)=" ;;**END**"
^XMB(3.9,73,2,3411,0)="""RTN"",""MDOUTOR"",149,0)"
^XMB(3.9,73,2,3412,0)="PFT ;;[Pulmonary Function Test Options]"
^XMB(3.9,73,2,3413,0)="""RTN"",""MDOUTOR"",150,0)"
^XMB(3.9,73,2,3414,0)=" ;;MCFLPFT"
^XMB(3.9,73,2,3415,0)="""RTN"",""MDOUTOR"",151,0)"
^XMB(3.9,73,2,3416,0)=" ;;MCFLPFTI"
^XMB(3.9,73,2,3417,0)="""RTN"",""MDOUTOR"",152,0)"
^XMB(3.9,73,2,3418,0)=" ;;MCFPPFT"
^XMB(3.9,73,2,3419,0)="""RTN"",""MDOUTOR"",153,0)"
^XMB(3.9,73,2,3420,0)=" ;;MCFSPFT"
^XMB(3.9,73,2,3421,0)="""RTN"",""MDOUTOR"",154,0)"
^XMB(3.9,73,2,3422,0)=" ;;MCBLPFT"
^XMB(3.9,73,2,3423,0)="""RTN"",""MDOUTOR"",155,0)"
^XMB(3.9,73,2,3424,0)=" ;;MCBSPFT"
^XMB(3.9,73,2,3425,0)="""RTN"",""MDOUTOR"",156,0)"
^XMB(3.9,73,2,3426,0)=" ;;MCBPPFT"
^XMB(3.9,73,2,3427,0)="""RTN"",""MDOUTOR"",157,0)"
^XMB(3.9,73,2,3428,0)=" ;;**END**"
^XMB(3.9,73,2,3429,0)="""RTN"",""MDOUTOR"",158,0)"
^XMB(3.9,73,2,3430,0)="HEM ;;[Hematology options]"
^XMB(3.9,73,2,3431,0)="""RTN"",""MDOUTOR"",159,0)"
^XMB(3.9,73,2,3432,0)=" ;;MCFLHEM"
^XMB(3.9,73,2,3433,0)="""RTN"",""MDOUTOR"",160,0)"
^XMB(3.9,73,2,3434,0)=" ;;MCFSHEM"
^XMB(3.9,73,2,3435,0)="""RTN"",""MDOUTOR"",161,0)"
^XMB(3.9,73,2,3436,0)=" ;;MCFPHEM"
^XMB(3.9,73,2,3437,0)="""RTN"",""MDOUTOR"",162,0)"
^XMB(3.9,73,2,3438,0)=" ;;MCARHEMIMAGE"
^XMB(3.9,73,2,3439,0)="""RTN"",""MDOUTOR"",163,0)"
^XMB(3.9,73,2,3440,0)=" ;;MCBLHEM"
^XMB(3.9,73,2,3441,0)="""RTN"",""MDOUTOR"",164,0)"
^XMB(3.9,73,2,3442,0)=" ;;MCBSHEM"
^XMB(3.9,73,2,3443,0)="""RTN"",""MDOUTOR"",165,0)"
^XMB(3.9,73,2,3444,0)=" ;;MCBPHEM"
^XMB(3.9,73,2,3445,0)="""RTN"",""MDOUTOR"",166,0)"
^XMB(3.9,73,2,3446,0)=" ;;**END**"
^XMB(3.9,73,2,3447,0)="""RTN"",""MDOUTOR"",167,0)"
^XMB(3.9,73,2,3448,0)="PACE ;;[Pacemaker options]"
^XMB(3.9,73,2,3449,0)="""RTN"",""MDOUTOR"",168,0)"
^XMB(3.9,73,2,3450,0)=" ;;MCARPACEMULTEDIT"
^XMB(3.9,73,2,3451,0)="""RTN"",""MDOUTOR"",169,0)"
^XMB(3.9,73,2,3452,0)=" ;;MCARPACEGENIMP"
^XMB(3.9,73,2,3453,0)="""RTN"",""MDOUTOR"",170,0)"
^XMB(3.9,73,2,3454,0)=" ;;MCFLALEAD"
^XMB(3.9,73,2,3455,0)="""RTN"",""MDOUTOR"",171,0)"
^XMB(3.9,73,2,3456,0)=" ;;MCFLVLEAD"
^XMB(3.9,73,2,3457,0)="""RTN"",""MDOUTOR"",172,0)"
^XMB(3.9,73,2,3458,0)=" ;;MCFLSURV"
^XMB(3.9,73,2,3459,0)="""RTN"",""MDOUTOR"",173,0)"
^XMB(3.9,73,2,3460,0)=" ;;MCARPACEDIT"
^XMB(3.9,73,2,3461,0)="""RTN"",""MDOUTOR"",174,0)"
^XMB(3.9,73,2,3462,0)=" ;;MCBLGENE"
^XMB(3.9,73,2,3463,0)="""RTN"",""MDOUTOR"",175,0)"
^XMB(3.9,73,2,3464,0)=" ;;MCBLALEAD"
^XMB(3.9,73,2,3465,0)="""RTN"",""MDOUTOR"",176,0)"
^XMB(3.9,73,2,3466,0)=" ;;MCBLVLEAD"
^XMB(3.9,73,2,3467,0)="""RTN"",""MDOUTOR"",177,0)"
^XMB(3.9,73,2,3468,0)=" ;;MCBLSURV"
^XMB(3.9,73,2,3469,0)="""RTN"",""MDOUTOR"",178,0)"
^XMB(3.9,73,2,3470,0)=" ;;MCFSMULTI"
^XMB(3.9,73,2,3471,0)="""RTN"",""MDOUTOR"",179,0)"
^XMB(3.9,73,2,3472,0)=" ;;MCFSGENIMPL."
^XMB(3.9,73,2,3473,0)="""RTN"",""MDOUTOR"",180,0)"
^XMB(3.9,73,2,3474,0)=" ;;MCFSALEAD"
^XMB(3.9,73,2,3475,0)="""RTN"",""MDOUTOR"",181,0)"
^XMB(3.9,73,2,3476,0)=" ;;MCFSVLEAD"
^XMB(3.9,73,2,3477,0)="""RTN"",""MDOUTOR"",182,0)"
^XMB(3.9,73,2,3478,0)=" ;;MCARPACESCREENSURV"
^XMB(3.9,73,2,3479,0)="""RTN"",""MDOUTOR"",183,0)"
^XMB(3.9,73,2,3480,0)=" ;;MCARPACESCREENDEMO"
^XMB(3.9,73,2,3481,0)="""RTN"",""MDOUTOR"",184,0)"
^XMB(3.9,73,2,3482,0)=" ;;MCBSGENI"
^XMB(3.9,73,2,3483,0)="""RTN"",""MDOUTOR"",185,0)"
^XMB(3.9,73,2,3484,0)=" ;;MCBSALEAD"
^XMB(3.9,73,2,3485,0)="""RTN"",""MDOUTOR"",186,0)"
^XMB(3.9,73,2,3486,0)=" ;;MCBSVLEAD"
^XMB(3.9,73,2,3487,0)="""RTN"",""MDOUTOR"",187,0)"
^XMB(3.9,73,2,3488,0)=" ;;MCPACSURVBRSCR"
^XMB(3.9,73,2,3489,0)="""RTN"",""MDOUTOR"",188,0)"
^XMB(3.9,73,2,3490,0)=" ;;MCARPACEGENPRINT"
^XMB(3.9,73,2,3491,0)="""RTN"",""MDOUTOR"",189,0)"
^XMB(3.9,73,2,3492,0)=" ;;MCFPALEAD"
^XMB(3.9,73,2,3493,0)="""RTN"",""MDOUTOR"",190,0)"
^XMB(3.9,73,2,3494,0)=" ;;MCFPVLEAD"
^XMB(3.9,73,2,3495,0)="""RTN"",""MDOUTOR"",191,0)"
^XMB(3.9,73,2,3496,0)=" ;;MCARPACESURVPRINT"
^XMB(3.9,73,2,3497,0)="""RTN"",""MDOUTOR"",192,0)"
^XMB(3.9,73,2,3498,0)=" ;;MCARPACEPATIENT"
^XMB(3.9,73,2,3499,0)="""RTN"",""MDOUTOR"",193,0)"
^XMB(3.9,73,2,3500,0)=" ;;MCBPGEN.IMPLANT"
^XMB(3.9,73,2,3501,0)="""RTN"",""MDOUTOR"",194,0)"
^XMB(3.9,73,2,3502,0)=" ;;MCBPALEAD"
^XMB(3.9,73,2,3503,0)="""RTN"",""MDOUTOR"",195,0)"
^XMB(3.9,73,2,3504,0)=" ;;MCBPVLEAD"
^XMB(3.9,73,2,3505,0)="""RTN"",""MDOUTOR"",196,0)"
^XMB(3.9,73,2,3506,0)=" ;;MCPACSURVBRREPORT"
^XMB(3.9,73,2,3507,0)="""RTN"",""MDOUTOR"",197,0)"
^XMB(3.9,73,2,3508,0)=" ;;**END**"
^XMB(3.9,73,2,3509,0)="""RTN"",""MDOUTOR"",198,0)"
^XMB(3.9,73,2,3510,0)="RHEUM ;;[Rheumatology options]"
^XMB(3.9,73,2,3511,0)="""RTN"",""MDOUTOR"",199,0)"
^XMB(3.9,73,2,3512,0)=" ;;MCRHDIAGF"
^XMB(3.9,73,2,3513,0)="""RTN"",""MDOUTOR"",200,0)"
^XMB(3.9,73,2,3514,0)=" ;;MCRHBACKF"
^XMB(3.9,73,2,3515,0)="""RTN"",""MDOUTOR"",201,0)"
^XMB(3.9,73,2,3516,0)=" ;;MCRHNARRF"
^XMB(3.9,73,2,3517,0)="""RTN"",""MDOUTOR"",202,0)"
^XMB(3.9,73,2,3518,0)=" ;;MCRHLABF"
^XMB(3.9,73,2,3519,0)="""RTN"",""MDOUTOR"",203,0)"
^XMB(3.9,73,2,3520,0)=" ;;MCRHHAQF"
^XMB(3.9,73,2,3521,0)="""RTN"",""MDOUTOR"",204,0)"
^XMB(3.9,73,2,3522,0)=" ;;MCRHPATHISTF"
^XMB(3.9,73,2,3523,0)="""RTN"",""MDOUTOR"",205,0)"
^XMB(3.9,73,2,3524,0)=" ;;MCRHPHYSF"
^XMB(3.9,73,2,3525,0)="""RTN"",""MDOUTOR"",206,0)"
^XMB(3.9,73,2,3526,0)=" ;;MCRHDEATHF"
^XMB(3.9,73,2,3527,0)="""RTN"",""MDOUTOR"",207,0)"
^XMB(3.9,73,2,3528,0)=" ;;MCRHDIAGP"
^XMB(3.9,73,2,3529,0)="""RTN"",""MDOUTOR"",208,0)"
^XMB(3.9,73,2,3530,0)=" ;;MCRHBACKP"
^XMB(3.9,73,2,3531,0)="""RTN"",""MDOUTOR"",209,0)"
^XMB(3.9,73,2,3532,0)=" ;;MCRHNARRP"
^XMB(3.9,73,2,3533,0)="""RTN"",""MDOUTOR"",210,0)"
^XMB(3.9,73,2,3534,0)=" ;;MCRHLABP"
^XMB(3.9,73,2,3535,0)="""RTN"",""MDOUTOR"",211,0)"
^XMB(3.9,73,2,3536,0)=" ;;MCRHHAQP"
^XMB(3.9,73,2,3537,0)="""RTN"",""MDOUTOR"",212,0)"
^XMB(3.9,73,2,3538,0)=" ;;MCRHPATHISTP"
^XMB(3.9,73,2,3539,0)="""RTN"",""MDOUTOR"",213,0)"
^XMB(3.9,73,2,3540,0)=" ;;MCRHPHYSP"
^XMB(3.9,73,2,3541,0)="""RTN"",""MDOUTOR"",214,0)"
^XMB(3.9,73,2,3542,0)=" ;;MCRHDEATHP"
^XMB(3.9,73,2,3543,0)="""RTN"",""MDOUTOR"",215,0)"
^XMB(3.9,73,2,3544,0)=" ;;MCRHALLP"
^XMB(3.9,73,2,3545,0)="""RTN"",""MDOUTOR"",216,0)"
^XMB(3.9,73,2,3546,0)=" ;;MCBPRHEUM"
^XMB(3.9,73,2,3547,0)="""RTN"",""MDOUTOR"",217,0)"
^XMB(3.9,73,2,3548,0)=" ;;MCRHIMAGE"
^XMB(3.9,73,2,3549,0)="""RTN"",""MDOUTOR"",218,0)"
^XMB(3.9,73,2,3550,0)=" ;;MCRHDIAGL"
^XMB(3.9,73,2,3551,0)="""RTN"",""MDOUTOR"",219,0)"
^XMB(3.9,73,2,3552,0)=" ;;MCRHNARRL"
^XMB(3.9,73,2,3553,0)="""RTN"",""MDOUTOR"",220,0)"
^XMB(3.9,73,2,3554,0)=" ;;MCRHHAQL"
^XMB(3.9,73,2,3555,0)="""RTN"",""MDOUTOR"",221,0)"
^XMB(3.9,73,2,3556,0)=" ;;MCRHPATHISTL"
^XMB(3.9,73,2,3557,0)="""RTN"",""MDOUTOR"",222,0)"
^XMB(3.9,73,2,3558,0)=" ;;MCRHPHYSL"
^XMB(3.9,73,2,3559,0)="""RTN"",""MDOUTOR"",223,0)"
^XMB(3.9,73,2,3560,0)=" ;;MCRHDEATHL"
^XMB(3.9,73,2,3561,0)="""RTN"",""MDOUTOR"",224,0)"
^XMB(3.9,73,2,3562,0)=" ;;MCRHBRIEF"
^XMB(3.9,73,2,3563,0)="""RTN"",""MDOUTOR"",225,0)"
^XMB(3.9,73,2,3564,0)=" ;;MCFLGEN"
^XMB(3.9,73,2,3565,0)="""RTN"",""MDOUTOR"",226,0)"
^XMB(3.9,73,2,3566,0)=" ;;MCFSGEN"
^XMB(3.9,73,2,3567,0)="""RTN"",""MDOUTOR"",227,0)"
^XMB(3.9,73,2,3568,0)=" ;;MCGENERICIMAGE"
^XMB(3.9,73,2,3569,0)="""RTN"",""MDOUTOR"",228,0)"
^XMB(3.9,73,2,3570,0)=" ;;MCBLGEN"
^XMB(3.9,73,2,3571,0)="""RTN"",""MDOUTOR"",229,0)"
^XMB(3.9,73,2,3572,0)=" ;;MCBSGEN"
^XMB(3.9,73,2,3573,0)="""RTN"",""MDOUTOR"",230,0)"
^XMB(3.9,73,2,3574,0)=" ;;**END**"
^XMB(3.9,73,2,3575,0)="""RTN"",""MDOUTOR"",231,0)"
^XMB(3.9,73,2,3576,0)="SUMM ;;[Procedure Summary option]"
^XMB(3.9,73,2,3577,0)="""RTN"",""MDOUTOR"",232,0)"
^XMB(3.9,73,2,3578,0)=" ;;MCARSUMMARY"
^XMB(3.9,73,2,3579,0)="""RTN"",""MDOUTOR"",233,0)"
^XMB(3.9,73,2,3580,0)=" ;;**END**"
^XMB(3.9,73,2,3581,0)="""RTN"",""MDPCE"")"
^XMB(3.9,73,2,3582,0)="0^11^B4577099^B4297640"
^XMB(3.9,73,2,3583,0)="""RTN"",""MDPCE"",1,0)"
^XMB(3.9,73,2,3584,0)="MDPCE ; HIRMFO/NCA - Routine For Data Extract ; [05-28-2002 12:55]"
^XMB(3.9,73,2,3585,0)="""RTN"",""MDPCE"",2,0)"
^XMB(3.9,73,2,3586,0)=" ;;1.0;CLINICAL PROCEDURES;**5**;Apr 01, 2004;Build 1"
^XMB(3.9,73,2,3587,0)="""RTN"",""MDPCE"",3,0)"
^XMB(3.9,73,2,3588,0)=" ; Integration Agreements:"
^XMB(3.9,73,2,3589,0)="""RTN"",""MDPCE"",4,0)"
^XMB(3.9,73,2,3590,0)=" ; IA# 1889 [Subscription] Create New Visit"
^XMB(3.9,73,2,3591,0)="""RTN"",""MDPCE"",5,0)"
^XMB(3.9,73,2,3592,0)=" ;"
^XMB(3.9,73,2,3593,0)="""RTN"",""MDPCE"",6,0)"
^XMB(3.9,73,2,3594,0)="EN1(MDINST,MDPDTE,MDPR,MDTYP,MDETYP) ; [Function] PCE Visit Creation"
^XMB(3.9,73,2,3595,0)="""RTN"",""MDPCE"",7,0)"
^XMB(3.9,73,2,3596,0)=" ; Input parameters"
^XMB(3.9,73,2,3597,0)="""RTN"",""MDPCE"",8,0)"
^XMB(3.9,73,2,3598,0)=" ;  1. MDINST [Literal/Required] Transaction IEN"
^XMB(3.9,73,2,3599,0)="""RTN"",""MDPCE"",9,0)"
^XMB(3.9,73,2,3600,0)=" ;  2. MDPDT [Literal/Optional] Procedure Date/Time"
^XMB(3.9,73,2,3601,0)="""RTN"",""MDPCE"",10,0)"
^XMB(3.9,73,2,3602,0)=" ;  3. MDPR [Literal/Required] CP Definition"
^XMB(3.9,73,2,3603,0)="""RTN"",""MDPCE"",11,0)"
^XMB(3.9,73,2,3604,0)=" ;  4. MDTYP [Literal/Required] Type of Visit (Ambulatory or Hospitalization or Event (Historical))"
^XMB(3.9,73,2,3605,0)="""RTN"",""MDPCE"",12,0)"
^XMB(3.9,73,2,3606,0)=" ;  5. MDETYP [Literal/Required] Encounter Type (Primary or Ancillary)"
^XMB(3.9,73,2,3607,0)="""RTN"",""MDPCE"",13,0)"
^XMB(3.9,73,2,3608,0)=" ;"
^XMB(3.9,73,2,3609,0)="""RTN"",""MDPCE"",14,0)"
^XMB(3.9,73,2,3610,0)=" N DATA,MDCLOC,MDPERR,MDJ,MDPKG,MDRES,MDSTR,MDVISIT,MDDRES K ^TMP(""MDPXAPI"",$J)"
^XMB(3.9,73,2,3611,0)="""RTN"",""MDPCE"",15,0)"
^XMB(3.9,73,2,3612,0)=" S MDOUT="""""
^XMB(3.9,73,2,3613,0)="""RTN"",""MDPCE"",16,0)"
^XMB(3.9,73,2,3614,0)=" S MDPKG=$$FIND1^DIC(9.4,"""",""MX"",""CLINICAL PROCEDURES"")"
^XMB(3.9,73,2,3615,0)="""RTN"",""MDPCE"",17,0)"
^XMB(3.9,73,2,3616,0)=" I 'MDPKG Q ""-1^CLINICAL PROCEDURES does not exist in Package File."""
^XMB(3.9,73,2,3617,0)="""RTN"",""MDPCE"",18,0)"
^XMB(3.9,73,2,3618,0)=" I '$D(^MDD(702,MDINST,0)) Q ""-1^No Study Record."""
^XMB(3.9,73,2,3619,0)="""RTN"",""MDPCE"",19,0)"
^XMB(3.9,73,2,3620,0)=" S MDSTR=$G(^MDD(702,MDINST,0))"
^XMB(3.9,73,2,3621,0)="""RTN"",""MDPCE"",20,0)"
^XMB(3.9,73,2,3622,0)=" S MDJ=0,MDJ=MDJ+1"
^XMB(3.9,73,2,3623,0)="""RTN"",""MDPCE"",21,0)"
^XMB(3.9,73,2,3624,0)=" S MDCLOC=$$GET1^DIQ(702.01,+MDPR_"","",.05,""I"")"
^XMB(3.9,73,2,3625,0)="""RTN"",""MDPCE"",22,0)"
^XMB(3.9,73,2,3626,0)=" I 'MDCLOC S:MDPR[""^"" MDCLOC=$P(MDPR,""^"",2)"
^XMB(3.9,73,2,3627,0)="""RTN"",""MDPCE"",23,0)"
^XMB(3.9,73,2,3628,0)=" I 'MDCLOC Q ""-1^No Hospital Location for CP Definition."""
^XMB(3.9,73,2,3629,0)="""RTN"",""MDPCE"",24,0)"
^XMB(3.9,73,2,3630,0)=" S ^TMP(""MDPXAPI"",$J,""ENCOUNTER"",MDJ,""ENC D/T"")=MDPDTE"
^XMB(3.9,73,2,3631,0)="""RTN"",""MDPCE"",25,0)"
^XMB(3.9,73,2,3632,0)=" S ^TMP(""MDPXAPI"",$J,""ENCOUNTER"",MDJ,""PATIENT"")=$P(MDSTR,""^"",1)"
^XMB(3.9,73,2,3633,0)="""RTN"",""MDPCE"",26,0)"
^XMB(3.9,73,2,3634,0)=" S ^TMP(""MDPXAPI"",$J,""ENCOUNTER"",MDJ,""HOS LOC"")=MDCLOC"
^XMB(3.9,73,2,3635,0)="""RTN"",""MDPCE"",27,0)"
^XMB(3.9,73,2,3636,0)=" S ^TMP(""MDPXAPI"",$J,""ENCOUNTER"",MDJ,""SERVICE CATEGORY"")=MDTYP"
^XMB(3.9,73,2,3637,0)="""RTN"",""MDPCE"",28,0)"
^XMB(3.9,73,2,3638,0)=" S ^TMP(""MDPXAPI"",$J,""ENCOUNTER"",MDJ,""ENCOUNTER TYPE"")=MDETYP"
^XMB(3.9,73,2,3639,0)="""RTN"",""MDPCE"",29,0)"
^XMB(3.9,73,2,3640,0)=" S MDRES=$$DATA2PCE^PXAPI(""^TMP(""""MDPXAPI"""",$J)"",MDPKG,""CLINICAL PROCEDURES"",.MDVISIT,"""","""",1,"""",.MDPERR)"
^XMB(3.9,73,2,3641,0)="""RTN"",""MDPCE"",30,0)"
^XMB(3.9,73,2,3642,0)=" I MDRES S MDOUT=MDVISIT_""^""_MDCLOC_"";""_MDPDTE_"";""_MDTYP S MDFDA(702,MDINST_"","",.07)=MDTYP_"";""_MDPDTE_"";""_MDCLOC D FILE^DIE(""K"",""MDFDA"") K ^TMP(""MDPXAPI"",$J) Q MDOUT"
^XMB(3.9,73,2,3643,0)="""RTN"",""MDPCE"",31,0)"
^XMB(3.9,73,2,3644,0)=" K ^TMP(""MDPXAPI"",$J)"
^XMB(3.9,73,2,3645,0)="""RTN"",""MDPCE"",32,0)"
^XMB(3.9,73,2,3646,0)=" S MDOUT=""-1^PCE Visit Creation Error."""
^XMB(3.9,73,2,3647,0)="""RTN"",""MDPCE"",33,0)"
^XMB(3.9,73,2,3648,0)=" Q MDOUT"
^XMB(3.9,73,2,3649,0)="""RTN"",""MDPCE"",34,0)"
^XMB(3.9,73,2,3650,0)=" ;"
^XMB(3.9,73,2,3651,0)="""RTN"",""MDPOST5"")"
^XMB(3.9,73,2,3652,0)="0^9^B1064423^n/a"
^XMB(3.9,73,2,3653,0)="""RTN"",""MDPOST5"",1,0)"
^XMB(3.9,73,2,3654,0)="MDPOST5 ; HOIFO/NCA - Post-Init Routine ; [04-14-2003 10:51]"
^XMB(3.9,73,2,3655,0)="""RTN"",""MDPOST5"",2,0)"
^XMB(3.9,73,2,3656,0)=" ;;1.0;CLINICAL PROCEDURES;**5**;Apr 01, 2004;Build 1"
^XMB(3.9,73,2,3657,0)="""RTN"",""MDPOST5"",3,0)"
^XMB(3.9,73,2,3658,0)=" ; Reference IA # 1157 [Supported] Kernel XPDMENU calls."
^XMB(3.9,73,2,3659,0)="""RTN"",""MDPOST5"",4,0)"
^XMB(3.9,73,2,3660,0)="EN1 ; [Procedure]"
^XMB(3.9,73,2,3661,0)="""RTN"",""MDPOST5"",5,0)"
^XMB(3.9,73,2,3662,0)=" ; If the patch Medicine is not installed disable the conversion"
^XMB(3.9,73,2,3663,0)="""RTN"",""MDPOST5"",6,0)"
^XMB(3.9,73,2,3664,0)=" ; options."
^XMB(3.9,73,2,3665,0)="""RTN"",""MDPOST5"",7,0)"
^XMB(3.9,73,2,3666,0)=" ;"
^XMB(3.9,73,2,3667,0)="""RTN"",""MDPOST5"",8,0)"
^XMB(3.9,73,2,3668,0)=" N MDPKG"
^XMB(3.9,73,2,3669,0)="""RTN"",""MDPOST5"",9,0)"
^XMB(3.9,73,2,3670,0)=" S MDPKG=$$FIND1^DIC(9.4,"""",""MX"",""MEDICINE"") Q:+MDPKG"
^XMB(3.9,73,2,3671,0)="""RTN"",""MDPOST5"",10,0)"
^XMB(3.9,73,2,3672,0)=" N MDFDA,MDPI,MDOPI,MDOPT,MDX"
^XMB(3.9,73,2,3673,0)="""RTN"",""MDPOST5"",11,0)"
^XMB(3.9,73,2,3674,0)=" F MDX=1:1 S MDOPT=$P($T(OPTIONS+MDX),"";;"",2) Q:MDOPT=""**END**""  D"
^XMB(3.9,73,2,3675,0)="""RTN"",""MDPOST5"",12,0)"
^XMB(3.9,73,2,3676,0)=" .Q:MDOPT="""""
^XMB(3.9,73,2,3677,0)="""RTN"",""MDPOST5"",13,0)"
^XMB(3.9,73,2,3678,0)=" .S MDPI=$$FIND1^DIC(19,"""",""MX"",MDOPT) Q:'MDPI"
^XMB(3.9,73,2,3679,0)="""RTN"",""MDPOST5"",14,0)"
^XMB(3.9,73,2,3680,0)=" .D OUT^XPDMENU(MDOPT,""Out of Order"")"
^XMB(3.9,73,2,3681,0)="""RTN"",""MDPOST5"",15,0)"
^XMB(3.9,73,2,3682,0)=" .Q"
^XMB(3.9,73,2,3683,0)="""RTN"",""MDPOST5"",16,0)"
^XMB(3.9,73,2,3684,0)=" Q"
^XMB(3.9,73,2,3685,0)="""RTN"",""MDPOST5"",17,0)"
^XMB(3.9,73,2,3686,0)=" ;"
^XMB(3.9,73,2,3687,0)="""RTN"",""MDPOST5"",18,0)"
^XMB(3.9,73,2,3688,0)="OPTIONS ; [MD Conversion Options]"
^XMB(3.9,73,2,3689,0)="""RTN"",""MDPOST5"",19,0)"
^XMB(3.9,73,2,3690,0)=" ;;MDCVT SETUP"
^XMB(3.9,73,2,3691,0)="""RTN"",""MDPOST5"",20,0)"
^XMB(3.9,73,2,3692,0)=" ;;MDCVT BUILD CONVERSION LIST"
^XMB(3.9,73,2,3693,0)="""RTN"",""MDPOST5"",21,0)"
^XMB(3.9,73,2,3694,0)=" ;;MDCVT RUN"
^XMB(3.9,73,2,3695,0)="""RTN"",""MDPOST5"",22,0)"
^XMB(3.9,73,2,3696,0)=" ;;MDCVT SUMMARY"
^XMB(3.9,73,2,3697,0)="""RTN"",""MDPOST5"",23,0)"
^XMB(3.9,73,2,3698,0)=" ;;MDCVT DISK SPACE"
^XMB(3.9,73,2,3699,0)="""RTN"",""MDPOST5"",24,0)"
^XMB(3.9,73,2,3700,0)=" ;;MDCVT LIST OF TIU TITLES"
^XMB(3.9,73,2,3701,0)="""RTN"",""MDPOST5"",25,0)"
^XMB(3.9,73,2,3702,0)=" ;;MDCVT TOTALS"
^XMB(3.9,73,2,3703,0)="""RTN"",""MDPOST5"",26,0)"
^XMB(3.9,73,2,3704,0)=" ;;MDCVT ERROR LOG"
^XMB(3.9,73,2,3705,0)="""RTN"",""MDPOST5"",27,0)"
^XMB(3.9,73,2,3706,0)=" ;;MDCVT CONVERSION LOCKOUT"
^XMB(3.9,73,2,3707,0)="""RTN"",""MDPOST5"",28,0)"
^XMB(3.9,73,2,3708,0)=" ;;MDCVT MANAGER"
^XMB(3.9,73,2,3709,0)="""RTN"",""MDPOST5"",29,0)"
^XMB(3.9,73,2,3710,0)=" ;;**END**"
^XMB(3.9,73,2,3711,0)="""RTN"",""MDPOST5"",30,0)"
^XMB(3.9,73,2,3712,0)=" Q"
^XMB(3.9,73,2,3713,0)="""RTN"",""MDPS3"")"
^XMB(3.9,73,2,3714,0)="0^17^B8616457^B8516931"
^XMB(3.9,73,2,3715,0)="""RTN"",""MDPS3"",1,0)"
^XMB(3.9,73,2,3716,0)="MDPS3 ; HOIFO/NCA - Remote Data View Data Retriever for CP ;4/29/04  10:50"
^XMB(3.9,73,2,3717,0)="""RTN"",""MDPS3"",2,0)"
^XMB(3.9,73,2,3718,0)=" ;;1.0;CLINICAL PROCEDURES;**2,5**;Apr 01, 2004;Build 1"
^XMB(3.9,73,2,3719,0)="""RTN"",""MDPS3"",3,0)"
^XMB(3.9,73,2,3720,0)=" ; Integration Agreements:"
^XMB(3.9,73,2,3721,0)="""RTN"",""MDPS3"",4,0)"
^XMB(3.9,73,2,3722,0)=" ; Reference IA# 2693 [Subscription] TIU Extractions."
^XMB(3.9,73,2,3723,0)="""RTN"",""MDPS3"",5,0)"
^XMB(3.9,73,2,3724,0)=" ;               3067 [Private] Read fields in Consult file (#123) w/FM"
^XMB(3.9,73,2,3725,0)="""RTN"",""MDPS3"",6,0)"
^XMB(3.9,73,2,3726,0)=" ;               10104 [Supported] Routine XLFSTR calls."
^XMB(3.9,73,2,3727,0)="""RTN"",""MDPS3"",7,0)"
^XMB(3.9,73,2,3728,0)=" ;                 875 [Subscription] Access Order Status file (#100.01)"
^XMB(3.9,73,2,3729,0)="""RTN"",""MDPS3"",8,0)"
^XMB(3.9,73,2,3730,0)=" ;"
^XMB(3.9,73,2,3731,0)="""RTN"",""MDPS3"",9,0)"
^XMB(3.9,73,2,3732,0)="GET702(MDGLO,MDDFN,MDC,MDSDT,MDEDT,MDMAX) ; Gather the new 702 entries"
^XMB(3.9,73,2,3733,0)="""RTN"",""MDPS3"",10,0)"
^XMB(3.9,73,2,3734,0)=" N MDARR,MDCON,MDDTE,MDLP,MDCODE,MDPROC,MDSTAT,MDX"
^XMB(3.9,73,2,3735,0)="""RTN"",""MDPS3"",11,0)"
^XMB(3.9,73,2,3736,0)=" S MDLP="""" F  S MDLP=$O(^MDD(702,""B"",MDDFN,MDLP)) Q:MDLP<1  D"
^XMB(3.9,73,2,3737,0)="""RTN"",""MDPS3"",12,0)"
^XMB(3.9,73,2,3738,0)=" .S MDX=$G(^MDD(702,MDLP,0)) Q:$P(MDX,""^"",9)'=3"
^XMB(3.9,73,2,3739,0)="""RTN"",""MDPS3"",13,0)"
^XMB(3.9,73,2,3740,0)=" .S MDPROC=$$GET1^DIQ(702,MDLP_"","",.04,""E"") Q:MDPROC="""""
^XMB(3.9,73,2,3741,0)="""RTN"",""MDPS3"",14,0)"
^XMB(3.9,73,2,3742,0)=" .Q:'$P(MDX,U,6)"
^XMB(3.9,73,2,3743,0)="""RTN"",""MDPS3"",15,0)"
^XMB(3.9,73,2,3744,0)=" .K ^TMP(""MDTIUST"",$J) S MDTIUER="""""
^XMB(3.9,73,2,3745,0)="""RTN"",""MDPS3"",16,0)"
^XMB(3.9,73,2,3746,0)=" .D EXTRACT^TIULQ($P(MDX,U,6),""^TMP(""""MDTIUST"""",$J)"",MDTIUER,"".01;.05;70201;70202"") Q:+MDTIUER"
^XMB(3.9,73,2,3747,0)="""RTN"",""MDPS3"",17,0)"
^XMB(3.9,73,2,3748,0)=" .S MDCODE=$G(^TMP(""MDTIUST"",$J,$P(MDX,U,6),70201,""E""))"
^XMB(3.9,73,2,3749,0)="""RTN"",""MDPS3"",18,0)"
^XMB(3.9,73,2,3750,0)=" .S:MDCODE'="""" MDCODE=$$UP^XLFSTR(MDCODE)"
^XMB(3.9,73,2,3751,0)="""RTN"",""MDPS3"",19,0)"
^XMB(3.9,73,2,3752,0)=" .I $G(MDC)'="""" Q:MDCODE'=$G(MDC)"
^XMB(3.9,73,2,3753,0)="""RTN"",""MDPS3"",20,0)"
^XMB(3.9,73,2,3754,0)=" .S MDDTE=$G(^TMP(""MDTIUST"",$J,$P(MDX,U,6),70202,""I""))"
^XMB(3.9,73,2,3755,0)="""RTN"",""MDPS3"",21,0)"
^XMB(3.9,73,2,3756,0)=" .S MDSTAT=$G(^TMP(""MDTIUST"",$J,$P(MDX,U,6),.05,""E""))"
^XMB(3.9,73,2,3757,0)="""RTN"",""MDPS3"",22,0)"
^XMB(3.9,73,2,3758,0)=" .S:'MDDTE MDDTE=$$GET1^DIQ(702,MDLP_"","",.02,""I"")"
^XMB(3.9,73,2,3759,0)="""RTN"",""MDPS3"",23,0)"
^XMB(3.9,73,2,3760,0)=" .K ^TMP(""MDTIUST"",$J)"
^XMB(3.9,73,2,3761,0)="""RTN"",""MDPS3"",24,0)"
^XMB(3.9,73,2,3762,0)=" .S MDCON=$P(MDX,U,5)"
^XMB(3.9,73,2,3763,0)="""RTN"",""MDPS3"",25,0)"
^XMB(3.9,73,2,3764,0)=" .I +$G(MDSDT) Q:MDDTE<+$G(MDSDT)"
^XMB(3.9,73,2,3765,0)="""RTN"",""MDPS3"",26,0)"
^XMB(3.9,73,2,3766,0)=" .I +$G(MDEDT) Q:MDDTE>+$G(MDEDT)"
^XMB(3.9,73,2,3767,0)="""RTN"",""MDPS3"",27,0)"
^XMB(3.9,73,2,3768,0)=" .I MDCON D  Q:MDSTAT'=""COMPLETE"""
^XMB(3.9,73,2,3769,0)="""RTN"",""MDPS3"",28,0)"
^XMB(3.9,73,2,3770,0)=" ..S MDSTAT=$$GET1^DIQ(123,MDCON_"","",8,""E"")"
^XMB(3.9,73,2,3771,0)="""RTN"",""MDPS3"",29,0)"
^XMB(3.9,73,2,3772,0)=" ..I MDSTAT="""" S MDSTAT=$$GET1^DIQ(123,MDCON_"","",8,""I"") S:+MDSTAT MDSTAT=$$GET1^DIQ(100.01,MDSTAT_"","",.01,""E"")"
^XMB(3.9,73,2,3773,0)="""RTN"",""MDPS3"",30,0)"
^XMB(3.9,73,2,3774,0)=" ..Q"
^XMB(3.9,73,2,3775,0)="""RTN"",""MDPS3"",31,0)"
^XMB(3.9,73,2,3776,0)=" .S Y=MDDTE X ^DD(""DD"") N MDREV S MDREV=(9999999.9999-MDDTE)"
^XMB(3.9,73,2,3777,0)="""RTN"",""MDPS3"",32,0)"
^XMB(3.9,73,2,3778,0)=" .I MDCON Q:$G(MDARR(MDCON))'=""""  S MDARR(MDCON)=MDCON"
^XMB(3.9,73,2,3779,0)="""RTN"",""MDPS3"",33,0)"
^XMB(3.9,73,2,3780,0)=" .S:$G(^TMP(""MDPLST"",$J,MDPROC,MDREV_""^""_MDLP))="""" ^(MDREV_""^""_MDLP)=MDPROC_""^""_MDLP_""^""_""PR702""_""^""_""MDPS1""_""^^""_Y_""^""_MDCODE_""^^^^""_MDPROC_""^^""_MDCON"
^XMB(3.9,73,2,3781,0)="""RTN"",""MDPS3"",34,0)"
^XMB(3.9,73,2,3782,0)=" .Q"
^XMB(3.9,73,2,3783,0)="""RTN"",""MDPS3"",35,0)"
^XMB(3.9,73,2,3784,0)=" K MDARR"
^XMB(3.9,73,2,3785,0)="""RTN"",""MDPS3"",36,0)"
^XMB(3.9,73,2,3786,0)=" Q"
^XMB(3.9,73,2,3787,0)="""RTN"",""MDPS3"",37,0)"
^XMB(3.9,73,2,3788,0)="PRO(RESULT) ;  Function to return info on single proceedure."
^XMB(3.9,73,2,3789,0)="""RTN"",""MDPS3"",38,0)"
^XMB(3.9,73,2,3790,0)=" ;"
^XMB(3.9,73,2,3791,0)="""RTN"",""MDPS3"",39,0)"
^XMB(3.9,73,2,3792,0)=" ; RESULT = variable pointer to a medicine file"
^XMB(3.9,73,2,3793,0)="""RTN"",""MDPS3"",40,0)"
^XMB(3.9,73,2,3794,0)=" ;          (e.g. ""12;MCAR(691.5,"") (required)"
^XMB(3.9,73,2,3795,0)="""RTN"",""MDPS3"",41,0)"
^XMB(3.9,73,2,3796,0)=" N MDVAL,LL,S3,S4,S5"
^XMB(3.9,73,2,3797,0)="""RTN"",""MDPS3"",42,0)"
^XMB(3.9,73,2,3798,0)=" S S3=+RESULT,S4=$P(RESULT,"";"",2),S4=$P(S4,"","")"
^XMB(3.9,73,2,3799,0)="""RTN"",""MDPS3"",43,0)"
^XMB(3.9,73,2,3800,0)=" I S4=""MCAR(702.7"" Q """""
^XMB(3.9,73,2,3801,0)="""RTN"",""MDPS3"",44,0)"
^XMB(3.9,73,2,3802,0)=" I S4=""MCAR(699"" S LL=$P($G(^MCAR(699,+S3,0)),U,12),MDVAL=$P($G(^MCAR(697.2,+LL,0)),U) Q MDVAL"
^XMB(3.9,73,2,3803,0)="""RTN"",""MDPS3"",45,0)"
^XMB(3.9,73,2,3804,0)=" I S4=""MCAR(699.5"" S LL=$P($G(^MCAR(699.5,+S3,0)),U,6),MDVAL=$P($G(^MCAR(697.2,+LL,0)),U) Q MDVAL"
^XMB(3.9,73,2,3805,0)="""RTN"",""MDPS3"",46,0)"
^XMB(3.9,73,2,3806,0)=" I S4=""MCAR(694"" S LL=$P($G(^MCAR(699.5,+S3,0)),U,6),MDVAL=$P($G(^MCAR(697.2,+LL,0)),U) Q MDVAL"
^XMB(3.9,73,2,3807,0)="""RTN"",""MDPS3"",47,0)"
^XMB(3.9,73,2,3808,0)=" S LL=$O(^MCAR(697.2,""C"",S4,0)),MDVAL=$P(^MCAR(697.2,LL,0),U)"
^XMB(3.9,73,2,3809,0)="""RTN"",""MDPS3"",48,0)"
^XMB(3.9,73,2,3810,0)=" Q MDVAL"
^XMB(3.9,73,2,3811,0)="""RTN"",""MDPS3"",49,0)"
^XMB(3.9,73,2,3812,0)="HDR ; Print Header for Report Form Feed"
^XMB(3.9,73,2,3813,0)="""RTN"",""MDPS3"",50,0)"
^XMB(3.9,73,2,3814,0)=" N FFL,MDNM,MDNAME,MDTITL S $P(FFL,""-"",80)="""""
^XMB(3.9,73,2,3815,0)="""RTN"",""MDPS3"",51,0)"
^XMB(3.9,73,2,3816,0)=" S MDNM=$QS(MDREC,4),MDNAME=$O(^MCAR(697.2,""B"",MDNM,0))"
^XMB(3.9,73,2,3817,0)="""RTN"",""MDPS3"",52,0)"
^XMB(3.9,73,2,3818,0)=" I MDNAME S MDTITL=$P($G(^MCAR(697.2,+MDNAME,0)),""^"",8)"
^XMB(3.9,73,2,3819,0)="""RTN"",""MDPS3"",53,0)"
^XMB(3.9,73,2,3820,0)=" I $G(MDTITL)="""" S MDNAME=$O(^MDS(702.01,""B"",MDNM,0)) S:MDNAME MDTITL=$P($G(^MDS(702.01,+MDNAME,0)),U)"
^XMB(3.9,73,2,3821,0)="""RTN"",""MDPS3"",54,0)"
^XMB(3.9,73,2,3822,0)=" W !!"
^XMB(3.9,73,2,3823,0)="""RTN"",""MDPS3"",55,0)"
^XMB(3.9,73,2,3824,0)=" S MDRPG=MDRPG+1 W !,""Pg. ""_MDRPG_$J("" "",25)_$$HOSP^MDPS2(DFN)"
^XMB(3.9,73,2,3825,0)="""RTN"",""MDPS3"",56,0)"
^XMB(3.9,73,2,3826,0)=" I $G(MDTITL)'="""" W !,$J("" "",25)_MDTITL"
^XMB(3.9,73,2,3827,0)="""RTN"",""MDPS3"",57,0)"
^XMB(3.9,73,2,3828,0)=" W !,$$DEMO^MDPS2(DFN)"
^XMB(3.9,73,2,3829,0)="""RTN"",""MDPS3"",58,0)"
^XMB(3.9,73,2,3830,0)=" W !,FFL"
^XMB(3.9,73,2,3831,0)="""RTN"",""MDPS3"",59,0)"
^XMB(3.9,73,2,3832,0)=" Q"
^XMB(3.9,73,2,3833,0)="""RTN"",""MDRPCOT"")"
^XMB(3.9,73,2,3834,0)="0^3^B62244057^B61489222"
^XMB(3.9,73,2,3835,0)="""RTN"",""MDRPCOT"",1,0)"
^XMB(3.9,73,2,3836,0)="MDRPCOT ; HOIFO/DP/NCA - Object RPCs (TMDTransaction) ;12/5/02  15:33"
^XMB(3.9,73,2,3837,0)="""RTN"",""MDRPCOT"",2,0)"
^XMB(3.9,73,2,3838,0)=" ;;1.0;CLINICAL PROCEDURES;**5**;Apr 01, 2004;Build 1"
^XMB(3.9,73,2,3839,0)="""RTN"",""MDRPCOT"",3,0)"
^XMB(3.9,73,2,3840,0)=" ; Integration Agreements:"
^XMB(3.9,73,2,3841,0)="""RTN"",""MDRPCOT"",4,0)"
^XMB(3.9,73,2,3842,0)=" ; IA# 2693 [Subscription] TIU Extractions."
^XMB(3.9,73,2,3843,0)="""RTN"",""MDRPCOT"",5,0)"
^XMB(3.9,73,2,3844,0)=" ; IA# 2944 [Subscription] Calls to TIUSRVR1."
^XMB(3.9,73,2,3845,0)="""RTN"",""MDRPCOT"",6,0)"
^XMB(3.9,73,2,3846,0)=" ; IA# 3535 [Subscription] Calls to TIUSRVP."
^XMB(3.9,73,2,3847,0)="""RTN"",""MDRPCOT"",7,0)"
^XMB(3.9,73,2,3848,0)=" ; IA# 10104 [Supported] Routine XLFSTR calls"
^XMB(3.9,73,2,3849,0)="""RTN"",""MDRPCOT"",8,0)"
^XMB(3.9,73,2,3850,0)="ADDMSG ; [Procedure] Add message to transaction"
^XMB(3.9,73,2,3851,0)="""RTN"",""MDRPCOT"",9,0)"
^XMB(3.9,73,2,3852,0)=" N MDIEN,MDIENS,MDRET"
^XMB(3.9,73,2,3853,0)="""RTN"",""MDRPCOT"",10,0)"
^XMB(3.9,73,2,3854,0)=" Q:'$G(DATA(""TRANSACTION""))"
^XMB(3.9,73,2,3855,0)="""RTN"",""MDRPCOT"",11,0)"
^XMB(3.9,73,2,3856,0)=" Q:$G(DATA(""MESSAGE""))="""""
^XMB(3.9,73,2,3857,0)="""RTN"",""MDRPCOT"",12,0)"
^XMB(3.9,73,2,3858,0)=" S MDIEN=+DATA(""TRANSACTION""),MDIENS=""+1,""_MDIEN_"","""
^XMB(3.9,73,2,3859,0)="""RTN"",""MDRPCOT"",13,0)"
^XMB(3.9,73,2,3860,0)=" D NOW^%DTC S DATA(""DATE"")=% K %"
^XMB(3.9,73,2,3861,0)="""RTN"",""MDRPCOT"",14,0)"
^XMB(3.9,73,2,3862,0)=" S MDFDA(702.091,MDIENS,.01)=+$O(^MDD(702,+MDIEN,.091,""A""),-1)+1"
^XMB(3.9,73,2,3863,0)="""RTN"",""MDRPCOT"",15,0)"
^XMB(3.9,73,2,3864,0)=" S MDFDA(702.091,MDIENS,.02)=DATA(""DATE"")"
^XMB(3.9,73,2,3865,0)="""RTN"",""MDRPCOT"",16,0)"
^XMB(3.9,73,2,3866,0)=" S MDFDA(702.091,MDIENS,.03)=$G(DATA(""PKG""),""UNKNOWN"")"
^XMB(3.9,73,2,3867,0)="""RTN"",""MDRPCOT"",17,0)"
^XMB(3.9,73,2,3868,0)=" S MDFDA(702.091,MDIENS,.09)=DATA(""MESSAGE"")"
^XMB(3.9,73,2,3869,0)="""RTN"",""MDRPCOT"",18,0)"
^XMB(3.9,73,2,3870,0)=" D UPDATE^DIE("""",""MDFDA"",""MDRET"")"
^XMB(3.9,73,2,3871,0)="""RTN"",""MDRPCOT"",19,0)"
^XMB(3.9,73,2,3872,0)=" Q"
^XMB(3.9,73,2,3873,0)="""RTN"",""MDRPCOT"",20,0)"
^XMB(3.9,73,2,3874,0)=" ;"
^XMB(3.9,73,2,3875,0)="""RTN"",""MDRPCOT"",21,0)"
^XMB(3.9,73,2,3876,0)="DELETE ; [Procedure] Delete Study"
^XMB(3.9,73,2,3877,0)="""RTN"",""MDRPCOT"",22,0)"
^XMB(3.9,73,2,3878,0)=" ; Sets @RESULTS@(0)=""-1^Reason for not deleting"" or ""1^Study Deleted"""
^XMB(3.9,73,2,3879,0)="""RTN"",""MDRPCOT"",23,0)"
^XMB(3.9,73,2,3880,0)=" ;"
^XMB(3.9,73,2,3881,0)="""RTN"",""MDRPCOT"",24,0)"
^XMB(3.9,73,2,3882,0)=" N MDHOLD,MDNOTE,MDRES,MDSIEN"
^XMB(3.9,73,2,3883,0)="""RTN"",""MDRPCOT"",25,0)"
^XMB(3.9,73,2,3884,0)=" S (MDHOLD,MDSIEN)=+DATA,MDRES=0,MDNOTE="""""
^XMB(3.9,73,2,3885,0)="""RTN"",""MDRPCOT"",26,0)"
^XMB(3.9,73,2,3886,0)=" S:+$P(^MDD(702,MDSIEN,0),U,6) MDNOTE=$P(^MDD(702,MDSIEN,0),U,6)"
^XMB(3.9,73,2,3887,0)="""RTN"",""MDRPCOT"",27,0)"
^XMB(3.9,73,2,3888,0)=" I ""13""[$P(^MDD(702,MDSIEN,0),U,9) S @RESULTS@(0)=""-1^Can't Delete TIU Note from a ""_$$GET1^DIQ(702,MDSIEN,.09,""E"")_"" Study."" Q"
^XMB(3.9,73,2,3889,0)="""RTN"",""MDRPCOT"",28,0)"
^XMB(3.9,73,2,3890,0)=" I ""5""[$P(^MDD(702,MDSIEN,0),U,9) S MDCANR=$$CANCEL^MDHL7B(MDHOLD) I MDCANR<1 S @RESULTS@(0)=""-1^""_$P(MDCANR,""^"",2) Q"
^XMB(3.9,73,2,3891,0)="""RTN"",""MDRPCOT"",29,0)"
^XMB(3.9,73,2,3892,0)=" I +MDNOTE S MDRES="""" D DELETE^TIUSRVP(.MDRES,MDNOTE)"
^XMB(3.9,73,2,3893,0)="""RTN"",""MDRPCOT"",30,0)"
^XMB(3.9,73,2,3894,0)=" I MDRES D  Q"
^XMB(3.9,73,2,3895,0)="""RTN"",""MDRPCOT"",31,0)"
^XMB(3.9,73,2,3896,0)=" .D STATUS(MDSIEN_"","",2,$P(MDRES,""^"",2))"
^XMB(3.9,73,2,3897,0)="""RTN"",""MDRPCOT"",32,0)"
^XMB(3.9,73,2,3898,0)=" .S DATA(""TRANSACTION"")=MDSIEN,DATA(""PKG"")=""TIU"""
^XMB(3.9,73,2,3899,0)="""RTN"",""MDRPCOT"",33,0)"
^XMB(3.9,73,2,3900,0)=" .S DATA(""MESSAGE"")=$P(MDRES,""^"",2) D ADDMSG"
^XMB(3.9,73,2,3901,0)="""RTN"",""MDRPCOT"",34,0)"
^XMB(3.9,73,2,3902,0)=" .S @RESULTS@(0)=""-1^""_$P(MDRES,""^"",2)"
^XMB(3.9,73,2,3903,0)="""RTN"",""MDRPCOT"",35,0)"
^XMB(3.9,73,2,3904,0)=" .Q"
^XMB(3.9,73,2,3905,0)="""RTN"",""MDRPCOT"",36,0)"
^XMB(3.9,73,2,3906,0)=" E  D"
^XMB(3.9,73,2,3907,0)="""RTN"",""MDRPCOT"",37,0)"
^XMB(3.9,73,2,3908,0)=" .S MDFDA(702,DATA_"","",.01)="""""
^XMB(3.9,73,2,3909,0)="""RTN"",""MDRPCOT"",38,0)"
^XMB(3.9,73,2,3910,0)=" .D FILE^DIE("""",""MDFDA"")"
^XMB(3.9,73,2,3911,0)="""RTN"",""MDRPCOT"",39,0)"
^XMB(3.9,73,2,3912,0)=" .N DA,DIK S DA=+MDSIEN,DIK=""^MDD(702,"" D ^DIK"
^XMB(3.9,73,2,3913,0)="""RTN"",""MDRPCOT"",40,0)"
^XMB(3.9,73,2,3914,0)=" .S @RESULTS@(0)=""1^Study Deleted."""
^XMB(3.9,73,2,3915,0)="""RTN"",""MDRPCOT"",41,0)"
^XMB(3.9,73,2,3916,0)=" .Q"
^XMB(3.9,73,2,3917,0)="""RTN"",""MDRPCOT"",42,0)"
^XMB(3.9,73,2,3918,0)=" Q"
^XMB(3.9,73,2,3919,0)="""RTN"",""MDRPCOT"",43,0)"
^XMB(3.9,73,2,3920,0)=" ;"
^XMB(3.9,73,2,3921,0)="""RTN"",""MDRPCOT"",44,0)"
^XMB(3.9,73,2,3922,0)="FILEMSG(STUDY,MDPKG,MDSTAT,MDMSG) ; [Procedure] File Study Status and Message."
^XMB(3.9,73,2,3923,0)="""RTN"",""MDRPCOT"",45,0)"
^XMB(3.9,73,2,3924,0)=" S DATA(""TRANSACTION"")=STUDY,DATA(""PKG"")=MDPKG"
^XMB(3.9,73,2,3925,0)="""RTN"",""MDRPCOT"",46,0)"
^XMB(3.9,73,2,3926,0)=" S DATA(""MESSAGE"")=$P(MDMSG,""^"",2)"
^XMB(3.9,73,2,3927,0)="""RTN"",""MDRPCOT"",47,0)"
^XMB(3.9,73,2,3928,0)=" D STATUS(STUDY_"","",MDSTAT,$P(MDMSG,""^"",2)),ADDMSG"
^XMB(3.9,73,2,3929,0)="""RTN"",""MDRPCOT"",48,0)"
^XMB(3.9,73,2,3930,0)=" Q"
^XMB(3.9,73,2,3931,0)="""RTN"",""MDRPCOT"",49,0)"
^XMB(3.9,73,2,3932,0)=" ;"
^XMB(3.9,73,2,3933,0)="""RTN"",""MDRPCOT"",50,0)"
^XMB(3.9,73,2,3934,0)="FILES ; [Procedure] Add/remove an attachment to this transaction"
^XMB(3.9,73,2,3935,0)="""RTN"",""MDRPCOT"",51,0)"
^XMB(3.9,73,2,3936,0)=" NEW MDFDA,MDIEN,MDIENS,MDRET,P1,P2,P3,P4"
^XMB(3.9,73,2,3937,0)="""RTN"",""MDRPCOT"",52,0)"
^XMB(3.9,73,2,3938,0)=" S P1=$P(DATA,U,1),P2=$P(DATA,U,2),P3=$P(DATA,U,3),P4=$P(DATA,U,4)"
^XMB(3.9,73,2,3939,0)="""RTN"",""MDRPCOT"",53,0)"
^XMB(3.9,73,2,3940,0)=" S MDIEN=0"
^XMB(3.9,73,2,3941,0)="""RTN"",""MDRPCOT"",54,0)"
^XMB(3.9,73,2,3942,0)=" ; Look for file (All comparisons done on lower case values)"
^XMB(3.9,73,2,3943,0)="""RTN"",""MDRPCOT"",55,0)"
^XMB(3.9,73,2,3944,0)=" F  S MDIEN=$O(^MDD(702,P1,.1,MDIEN)) Q:'MDIEN  D  Q:X=P3"
^XMB(3.9,73,2,3945,0)="""RTN"",""MDRPCOT"",56,0)"
^XMB(3.9,73,2,3946,0)=" .S X=$$LOW^XLFSTR($G(^MDD(702,P1,.1,MDIEN,.1)))"
^XMB(3.9,73,2,3947,0)="""RTN"",""MDRPCOT"",57,0)"
^XMB(3.9,73,2,3948,0)=" I MDIEN&P4 S @RESULTS@(0)=""1^File already assigned"" Q"
^XMB(3.9,73,2,3949,0)="""RTN"",""MDRPCOT"",58,0)"
^XMB(3.9,73,2,3950,0)=" I 'MDIEN&'P4 S @RESULTS@(0)=""1^File not assigned"" Q"
^XMB(3.9,73,2,3951,0)="""RTN"",""MDRPCOT"",59,0)"
^XMB(3.9,73,2,3952,0)=" I P4 D  Q  ; Add a file"
^XMB(3.9,73,2,3953,0)="""RTN"",""MDRPCOT"",60,0)"
^XMB(3.9,73,2,3954,0)=" .S MDIENS=""+1,""_P1_"","""
^XMB(3.9,73,2,3955,0)="""RTN"",""MDRPCOT"",61,0)"
^XMB(3.9,73,2,3956,0)=" .S MDFDA(702.1,MDIENS,.01)=$O(^MDD(702,P1,.1,""B"",""""),-1)+1"
^XMB(3.9,73,2,3957,0)="""RTN"",""MDRPCOT"",62,0)"
^XMB(3.9,73,2,3958,0)=" .S MDFDA(702.1,MDIENS,.02)=$S(P2:""I"",1:""U"")"
^XMB(3.9,73,2,3959,0)="""RTN"",""MDRPCOT"",63,0)"
^XMB(3.9,73,2,3960,0)=" .I P2 S MDFDA(702.1,MDIENS,.03)=P2"
^XMB(3.9,73,2,3961,0)="""RTN"",""MDRPCOT"",64,0)"
^XMB(3.9,73,2,3962,0)=" .S MDFDA(702.1,MDIENS,.1)=P3"
^XMB(3.9,73,2,3963,0)="""RTN"",""MDRPCOT"",65,0)"
^XMB(3.9,73,2,3964,0)=" .D UPDATE^DIE("""",""MDFDA"",""MDIEN"")"
^XMB(3.9,73,2,3965,0)="""RTN"",""MDRPCOT"",66,0)"
^XMB(3.9,73,2,3966,0)=" .S @RESULTS@(0)=+$G(MDIEN(1),-1)"
^XMB(3.9,73,2,3967,0)="""RTN"",""MDRPCOT"",67,0)"
^XMB(3.9,73,2,3968,0)=" I 'P4 D  Q  ; Remove the file"
^XMB(3.9,73,2,3969,0)="""RTN"",""MDRPCOT"",68,0)"
^XMB(3.9,73,2,3970,0)=" .S MDFDA(702.1,MDIEN_"",""_P1_"","",.01)=""@"""
^XMB(3.9,73,2,3971,0)="""RTN"",""MDRPCOT"",69,0)"
^XMB(3.9,73,2,3972,0)=" .D FILE^DIE("""",""MDFDA"",""MDRET"")"
^XMB(3.9,73,2,3973,0)="""RTN"",""MDRPCOT"",70,0)"
^XMB(3.9,73,2,3974,0)=" .S @RESULTS@(0)=$S($D(MDRET):-1,1:1)"
^XMB(3.9,73,2,3975,0)="""RTN"",""MDRPCOT"",71,0)"
^XMB(3.9,73,2,3976,0)=" Q"
^XMB(3.9,73,2,3977,0)="""RTN"",""MDRPCOT"",72,0)"
^XMB(3.9,73,2,3978,0)=" ;"
^XMB(3.9,73,2,3979,0)="""RTN"",""MDRPCOT"",73,0)"
^XMB(3.9,73,2,3980,0)="GETATT ; [Procedure] Get Attachments"
^XMB(3.9,73,2,3981,0)="""RTN"",""MDRPCOT"",74,0)"
^XMB(3.9,73,2,3982,0)=" F X=0:0 S X=$O(^MDD(702,DATA,.1,X)) Q:'X  D"
^XMB(3.9,73,2,3983,0)="""RTN"",""MDRPCOT"",75,0)"
^XMB(3.9,73,2,3984,0)=" .S Y=$O(@RESULTS@(""""),-1)+1"
^XMB(3.9,73,2,3985,0)="""RTN"",""MDRPCOT"",76,0)"
^XMB(3.9,73,2,3986,0)=" .S @RESULTS@(Y)=$P(^MDD(702,DATA,.1,X,0),U,1,3)"
^XMB(3.9,73,2,3987,0)="""RTN"",""MDRPCOT"",77,0)"
^XMB(3.9,73,2,3988,0)=" .S $P(@RESULTS@(Y),U,4)=$G(^MDD(702,DATA,.1,X,.1))"
^XMB(3.9,73,2,3989,0)="""RTN"",""MDRPCOT"",78,0)"
^XMB(3.9,73,2,3990,0)=" S @RESULTS@(0)=+$O(@RESULTS@(""""),-1)"
^XMB(3.9,73,2,3991,0)="""RTN"",""MDRPCOT"",79,0)"
^XMB(3.9,73,2,3992,0)=" Q"
^XMB(3.9,73,2,3993,0)="""RTN"",""MDRPCOT"",80,0)"
^XMB(3.9,73,2,3994,0)=" ;"
^XMB(3.9,73,2,3995,0)="""RTN"",""MDRPCOT"",81,0)"
^XMB(3.9,73,2,3996,0)="GETERR ; [Procedure] Return list of Imaging Errors"
^XMB(3.9,73,2,3997,0)="""RTN"",""MDRPCOT"",82,0)"
^XMB(3.9,73,2,3998,0)=" ; DATA = Transaction IEN"
^XMB(3.9,73,2,3999,0)="""RTN"",""MDRPCOT"",83,0)"
^XMB(3.9,73,2,4000,0)=" F MDX=0:0 S MDX=$O(^MDD(702,DATA,.091,MDX)) Q:'MDX  D"
^XMB(3.9,73,2,4001,0)="""RTN"",""MDRPCOT"",84,0)"
^XMB(3.9,73,2,4002,0)=" .S MDY=+^MDD(702,DATA,.091,MDX,0)_U,Y=$P(^(0),U,2)"
^XMB(3.9,73,2,4003,0)="""RTN"",""MDRPCOT"",85,0)"
^XMB(3.9,73,2,4004,0)=" .D D^DIQ S MDY=MDY_Y_U"
^XMB(3.9,73,2,4005,0)="""RTN"",""MDRPCOT"",86,0)"
^XMB(3.9,73,2,4006,0)=" .S MDY=MDY_$P(^MDD(702,DATA,.091,MDX,0),U,3)_U_$P(^(0),U,9)"
^XMB(3.9,73,2,4007,0)="""RTN"",""MDRPCOT"",87,0)"
^XMB(3.9,73,2,4008,0)=" .S ^TMP($J,$O(^TMP($J,""""),-1)+1)=MDY"
^XMB(3.9,73,2,4009,0)="""RTN"",""MDRPCOT"",88,0)"
^XMB(3.9,73,2,4010,0)=" S ^TMP($J,0)=+$O(^TMP($J,""""),-1)"
^XMB(3.9,73,2,4011,0)="""RTN"",""MDRPCOT"",89,0)"
^XMB(3.9,73,2,4012,0)=" Q"
^XMB(3.9,73,2,4013,0)="""RTN"",""MDRPCOT"",90,0)"
^XMB(3.9,73,2,4014,0)=" ;"
^XMB(3.9,73,2,4015,0)="""RTN"",""MDRPCOT"",91,0)"
^XMB(3.9,73,2,4016,0)="NEWSTAT ; [Procedure] RPC Call to set status"
^XMB(3.9,73,2,4017,0)="""RTN"",""MDRPCOT"",92,0)"
^XMB(3.9,73,2,4018,0)=" S MDFDA(702,DATA,.09)=TYPE"
^XMB(3.9,73,2,4019,0)="""RTN"",""MDRPCOT"",93,0)"
^XMB(3.9,73,2,4020,0)=" D FILE^DIE("""",""MDFDA"")"
^XMB(3.9,73,2,4021,0)="""RTN"",""MDRPCOT"",94,0)"
^XMB(3.9,73,2,4022,0)=" Q"
^XMB(3.9,73,2,4023,0)="""RTN"",""MDRPCOT"",95,0)"
^XMB(3.9,73,2,4024,0)=" ;"
^XMB(3.9,73,2,4025,0)="""RTN"",""MDRPCOT"",96,0)"
^XMB(3.9,73,2,4026,0)="RPC(RESULTS,OPTION,DATA,TYPE,FILE,RESREP) ; [Procedure] Main RPC call"
^XMB(3.9,73,2,4027,0)="""RTN"",""MDRPCOT"",97,0)"
^XMB(3.9,73,2,4028,0)=" N MDCANR,MDCON,MDDOC,MDFDA,MDFN,MDGST,MDHOLD,MDIEN,MDIENS,MDL,MDLOC,MDMSG,MDNEWV,MDNOTE,MDNVST,MDPDT,MDPKG,MDPROC,MDRES,MDRESU,MDRESUL,MDRET,MDS,MDSIEN,MDSTAT,MDSTUDY,MDTITL,MDTIUER,MDTRAN,MDTST,MDTSTR,MDVST,MDVSTR,MDWP,MDX,MDY"
^XMB(3.9,73,2,4029,0)="""RTN"",""MDRPCOT"",98,0)"
^XMB(3.9,73,2,4030,0)=" S RESULTS=$NA(^TMP($J)) K @RESULTS"
^XMB(3.9,73,2,4031,0)="""RTN"",""MDRPCOT"",99,0)"
^XMB(3.9,73,2,4032,0)=" D:$T(@OPTION)]"""" @OPTION"
^XMB(3.9,73,2,4033,0)="""RTN"",""MDRPCOT"",100,0)"
^XMB(3.9,73,2,4034,0)=" D:'$D(@RESULTS) BADRPC^MDRPCU(""MD TMDTRANSACTION"",""MDRPCOT"",OPTION)"
^XMB(3.9,73,2,4035,0)="""RTN"",""MDRPCOT"",101,0)"
^XMB(3.9,73,2,4036,0)=" D CLEAN^DILF"
^XMB(3.9,73,2,4037,0)="""RTN"",""MDRPCOT"",102,0)"
^XMB(3.9,73,2,4038,0)=" Q"
^XMB(3.9,73,2,4039,0)="""RTN"",""MDRPCOT"",103,0)"
^XMB(3.9,73,2,4040,0)=" ;"
^XMB(3.9,73,2,4041,0)="""RTN"",""MDRPCOT"",104,0)"
^XMB(3.9,73,2,4042,0)="STATUS(MDIENS,MDSTAT,MDMSG) ; [Procedure] Update transaction status"
^XMB(3.9,73,2,4043,0)="""RTN"",""MDRPCOT"",105,0)"
^XMB(3.9,73,2,4044,0)=" S MDFDA(702,MDIENS,.08)=$G(MDMSG)"
^XMB(3.9,73,2,4045,0)="""RTN"",""MDRPCOT"",106,0)"
^XMB(3.9,73,2,4046,0)=" S MDFDA(702,MDIENS,.09)=MDSTAT"
^XMB(3.9,73,2,4047,0)="""RTN"",""MDRPCOT"",107,0)"
^XMB(3.9,73,2,4048,0)=" D FILE^DIE("""",""MDFDA"")"
^XMB(3.9,73,2,4049,0)="""RTN"",""MDRPCOT"",108,0)"
^XMB(3.9,73,2,4050,0)=" Q"
^XMB(3.9,73,2,4051,0)="""RTN"",""MDRPCOT"",109,0)"
^XMB(3.9,73,2,4052,0)=" ;"
^XMB(3.9,73,2,4053,0)="""RTN"",""MDRPCOT"",110,0)"
^XMB(3.9,73,2,4054,0)="SUBMIT ; [Procedure] Process the Image(s) Submission."
^XMB(3.9,73,2,4055,0)="""RTN"",""MDRPCOT"",111,0)"
^XMB(3.9,73,2,4056,0)=" ; Output: -1^Error Message or"
^XMB(3.9,73,2,4057,0)="""RTN"",""MDRPCOT"",112,0)"
^XMB(3.9,73,2,4058,0)=" ;          1^Successful Message"
^XMB(3.9,73,2,4059,0)="""RTN"",""MDRPCOT"",113,0)"
^XMB(3.9,73,2,4060,0)=" N MDRESUL,MDSTUDY"
^XMB(3.9,73,2,4061,0)="""RTN"",""MDRPCOT"",114,0)"
^XMB(3.9,73,2,4062,0)=" S MDSTUDY=+DATA,MDRESUL="""""
^XMB(3.9,73,2,4063,0)="""RTN"",""MDRPCOT"",115,0)"
^XMB(3.9,73,2,4064,0)=" ; Create New TIU Document"
^XMB(3.9,73,2,4065,0)="""RTN"",""MDRPCOT"",116,0)"
^XMB(3.9,73,2,4066,0)=" S MDRESUL=$$NEWTIUN(MDSTUDY)"
^XMB(3.9,73,2,4067,0)="""RTN"",""MDRPCOT"",117,0)"
^XMB(3.9,73,2,4068,0)=" ; File TIU Error messages"
^XMB(3.9,73,2,4069,0)="""RTN"",""MDRPCOT"",118,0)"
^XMB(3.9,73,2,4070,0)=" ;I +MDRESUL<0 D FILEMSG(MDSTUDY,""TIU"",2,MDRESUL) Q MDRESUL"
^XMB(3.9,73,2,4071,0)="""RTN"",""MDRPCOT"",119,0)"
^XMB(3.9,73,2,4072,0)=" I +MDRESUL<0 D  Q"
^XMB(3.9,73,2,4073,0)="""RTN"",""MDRPCOT"",120,0)"
^XMB(3.9,73,2,4074,0)=" .D FILEMSG(MDSTUDY,""TIU"",2,MDRESUL)"
^XMB(3.9,73,2,4075,0)="""RTN"",""MDRPCOT"",121,0)"
^XMB(3.9,73,2,4076,0)=" .S @RESULTS@(0)=MDRESUL"
^XMB(3.9,73,2,4077,0)="""RTN"",""MDRPCOT"",122,0)"
^XMB(3.9,73,2,4078,0)=" ; Submit and export the images"
^XMB(3.9,73,2,4079,0)="""RTN"",""MDRPCOT"",123,0)"
^XMB(3.9,73,2,4080,0)=" S MDRESUL=$$SUBMIT^MDRPCOT1(MDSTUDY)"
^XMB(3.9,73,2,4081,0)="""RTN"",""MDRPCOT"",124,0)"
^XMB(3.9,73,2,4082,0)=" ; File message"
^XMB(3.9,73,2,4083,0)="""RTN"",""MDRPCOT"",125,0)"
^XMB(3.9,73,2,4084,0)=" D FILEMSG(MDSTUDY,""IMAGING"",$S(+MDRESUL>0:+MDRESUL,1:2),MDRESUL)"
^XMB(3.9,73,2,4085,0)="""RTN"",""MDRPCOT"",126,0)"
^XMB(3.9,73,2,4086,0)=" S @RESULTS@(0)=MDRESUL"
^XMB(3.9,73,2,4087,0)="""RTN"",""MDRPCOT"",127,0)"
^XMB(3.9,73,2,4088,0)=" Q"
^XMB(3.9,73,2,4089,0)="""RTN"",""MDRPCOT"",128,0)"
^XMB(3.9,73,2,4090,0)=" ;"
^XMB(3.9,73,2,4091,0)="""RTN"",""MDRPCOT"",129,0)"
^XMB(3.9,73,2,4092,0)="VIEWTIU ; [Procedure] VIew the associated tiu document"
^XMB(3.9,73,2,4093,0)="""RTN"",""MDRPCOT"",130,0)"
^XMB(3.9,73,2,4094,0)=" I '$P(^MDD(702,+DATA,0),U,6) D  Q"
^XMB(3.9,73,2,4095,0)="""RTN"",""MDRPCOT"",131,0)"
^XMB(3.9,73,2,4096,0)=" .S @RESULTS@(0)=""NO TIU NOTE FOR THIS STUDY"""
^XMB(3.9,73,2,4097,0)="""RTN"",""MDRPCOT"",132,0)"
^XMB(3.9,73,2,4098,0)=" D TGET^TIUSRVR1(.RESULTS,+$P(^MDD(702,+DATA,0),U,6))"
^XMB(3.9,73,2,4099,0)="""RTN"",""MDRPCOT"",133,0)"
^XMB(3.9,73,2,4100,0)=" Q"
^XMB(3.9,73,2,4101,0)="""RTN"",""MDRPCOT"",134,0)"
^XMB(3.9,73,2,4102,0)=" ;"
^XMB(3.9,73,2,4103,0)="""RTN"",""MDRPCOT"",135,0)"
^XMB(3.9,73,2,4104,0)="GETDATA(STUDY) ; [Function] Return the Necessary data for creating a TIU note."
^XMB(3.9,73,2,4105,0)="""RTN"",""MDRPCOT"",136,0)"
^XMB(3.9,73,2,4106,0)=" ; Return: Patient DFN_""^""_TIU title_""^""_Hospital Location_""^""_TIU Note"
^XMB(3.9,73,2,4107,0)="""RTN"",""MDRPCOT"",137,0)"
^XMB(3.9,73,2,4108,0)=" ;         IEN_""^""_Consult #_""^""_CP Definition IEN_""^""_Visit String_""^"""
^XMB(3.9,73,2,4109,0)="""RTN"",""MDRPCOT"",138,0)"
^XMB(3.9,73,2,4110,0)=" ;         New Visit Flag"
^XMB(3.9,73,2,4111,0)="""RTN"",""MDRPCOT"",139,0)"
^XMB(3.9,73,2,4112,0)=" ;         or"
^XMB(3.9,73,2,4113,0)="""RTN"",""MDRPCOT"",140,0)"
^XMB(3.9,73,2,4114,0)=" ;         -1^Error Message"
^XMB(3.9,73,2,4115,0)="""RTN"",""MDRPCOT"",141,0)"
^XMB(3.9,73,2,4116,0)=" N DFN,MDCON,MDFN,MDIEN,MDIENS,MDLOC,MDNEWV,MDNOTE,MDNVST,MDPROC,MDVSTR,MDTITL,MDX,MDTST"
^XMB(3.9,73,2,4117,0)="""RTN"",""MDRPCOT"",142,0)"
^XMB(3.9,73,2,4118,0)=" S MDIEN=+STUDY,MDIENS=MDIEN_"","",MDNVST=0"
^XMB(3.9,73,2,4119,0)="""RTN"",""MDRPCOT"",143,0)"
^XMB(3.9,73,2,4120,0)=" I $$GET1^DIQ(702,MDIENS,.01)="""" Q ""-1^No such study entry."""
^XMB(3.9,73,2,4121,0)="""RTN"",""MDRPCOT"",144,0)"
^XMB(3.9,73,2,4122,0)=" ; Get DFN"
^XMB(3.9,73,2,4123,0)="""RTN"",""MDRPCOT"",145,0)"
^XMB(3.9,73,2,4124,0)=" S DFN=$$GET1^DIQ(702,MDIEN,.01,""I"")"
^XMB(3.9,73,2,4125,0)="""RTN"",""MDRPCOT"",146,0)"
^XMB(3.9,73,2,4126,0)=" I 'DFN Q ""-1^No DFN."""
^XMB(3.9,73,2,4127,0)="""RTN"",""MDRPCOT"",147,0)"
^XMB(3.9,73,2,4128,0)=" ; Get CP Def"
^XMB(3.9,73,2,4129,0)="""RTN"",""MDRPCOT"",148,0)"
^XMB(3.9,73,2,4130,0)=" S MDPROC=$$GET1^DIQ(702,MDIEN,.04,""I"")"
^XMB(3.9,73,2,4131,0)="""RTN"",""MDRPCOT"",149,0)"
^XMB(3.9,73,2,4132,0)=" I 'MDPROC Q ""-1^No CP Def."""
^XMB(3.9,73,2,4133,0)="""RTN"",""MDRPCOT"",150,0)"
^XMB(3.9,73,2,4134,0)=" ; Get Consult"
^XMB(3.9,73,2,4135,0)="""RTN"",""MDRPCOT"",151,0)"
^XMB(3.9,73,2,4136,0)=" S MDCON=$$GET1^DIQ(702,MDIEN,.05,""I"")"
^XMB(3.9,73,2,4137,0)="""RTN"",""MDRPCOT"",152,0)"
^XMB(3.9,73,2,4138,0)=" I 'MDCON Q ""-1^No Consult #."""
^XMB(3.9,73,2,4139,0)="""RTN"",""MDRPCOT"",153,0)"
^XMB(3.9,73,2,4140,0)=" ; Get TIU Note Title"
^XMB(3.9,73,2,4141,0)="""RTN"",""MDRPCOT"",154,0)"
^XMB(3.9,73,2,4142,0)=" S MDTITL=$$GET1^DIQ(702.01,+MDPROC_"","",.04,""I"")"
^XMB(3.9,73,2,4143,0)="""RTN"",""MDRPCOT"",155,0)"
^XMB(3.9,73,2,4144,0)=" I 'MDTITL Q ""-1^No TIU Note Title."""
^XMB(3.9,73,2,4145,0)="""RTN"",""MDRPCOT"",156,0)"
^XMB(3.9,73,2,4146,0)=" S MDVSTR=$$GET1^DIQ(702,MDIEN,.07)"
^XMB(3.9,73,2,4147,0)="""RTN"",""MDRPCOT"",157,0)"
^XMB(3.9,73,2,4148,0)=" I MDVSTR=""""  Q ""-1^No Visit String."""
^XMB(3.9,73,2,4149,0)="""RTN"",""MDRPCOT"",158,0)"
^XMB(3.9,73,2,4150,0)=" I $L(MDVSTR,"";"")=1 S MDNVST=1,MDVSTR="";""_MDVSTR ; If new visit is selected"
^XMB(3.9,73,2,4151,0)="""RTN"",""MDRPCOT"",159,0)"
^XMB(3.9,73,2,4152,0)=" ; MDLOC is Hospital Location"
^XMB(3.9,73,2,4153,0)="""RTN"",""MDRPCOT"",160,0)"
^XMB(3.9,73,2,4154,0)=" I MDVSTR'="""" D"
^XMB(3.9,73,2,4155,0)="""RTN"",""MDRPCOT"",161,0)"
^XMB(3.9,73,2,4156,0)=" .S MDVSTR=$$GETVSTR^MDRPCOT1(DFN,MDVSTR,MDPROC,$$GET1^DIQ(702,MDIEN,.02,""I""))"
^XMB(3.9,73,2,4157,0)="""RTN"",""MDRPCOT"",162,0)"
^XMB(3.9,73,2,4158,0)=" .S MDLOC=$P(MDVSTR,"";"",1)"
^XMB(3.9,73,2,4159,0)="""RTN"",""MDRPCOT"",163,0)"
^XMB(3.9,73,2,4160,0)=" ; Does TIU doc already exist?"
^XMB(3.9,73,2,4161,0)="""RTN"",""MDRPCOT"",164,0)"
^XMB(3.9,73,2,4162,0)=" I $$GET1^DIQ(702,MDIEN,.06,""I"") Q DFN_""^""_MDTITL_""^""_MDLOC_""^""_+$$GET1^DIQ(702,MDIEN,.06,""I"")_""^""_MDCON_""^""_MDPROC_""^""_MDVSTR_""^""_MDNVST"
^XMB(3.9,73,2,4163,0)="""RTN"",""MDRPCOT"",165,0)"
^XMB(3.9,73,2,4164,0)=" ; Does TIU doc exist for previous transaction of this consult?"
^XMB(3.9,73,2,4165,0)="""RTN"",""MDRPCOT"",166,0)"
^XMB(3.9,73,2,4166,0)=" I MDCON S MDNOTE=$$PREV(MDCON,MDIEN)"
^XMB(3.9,73,2,4167,0)="""RTN"",""MDRPCOT"",167,0)"
^XMB(3.9,73,2,4168,0)=" Q DFN_""^""_MDTITL_""^""_MDLOC_""^""_+MDNOTE_""^""_MDCON_""^""_MDPROC_""^""_MDVSTR_""^""_MDNVST"
^XMB(3.9,73,2,4169,0)="""RTN"",""MDRPCOT"",168,0)"
^XMB(3.9,73,2,4170,0)=" ;"
^XMB(3.9,73,2,4171,0)="""RTN"",""MDRPCOT"",169,0)"
^XMB(3.9,73,2,4172,0)="NEWTIUN(STUDY) ; [Function] Create a new TIU for transaction"
^XMB(3.9,73,2,4173,0)="""RTN"",""MDRPCOT"",170,0)"
^XMB(3.9,73,2,4174,0)=" ; Input: STUDY - IENS of CP study entry"
^XMB(3.9,73,2,4175,0)="""RTN"",""MDRPCOT"",171,0)"
^XMB(3.9,73,2,4176,0)=" ; Return: TIU Document IEN"
^XMB(3.9,73,2,4177,0)="""RTN"",""MDRPCOT"",172,0)"
^XMB(3.9,73,2,4178,0)=" N CTR,DFN,MDCON,MDFDA,MDGST,MDL,MDLOC,MDNOTE,MDPDT,MDPROC,MDRESU,MDTITL,MDTSTR,MDVST,MDVSTR,MDWP S CTR=0,MDGST=+STUDY,MDRESU="""""
^XMB(3.9,73,2,4179,0)="""RTN"",""MDRPCOT"",173,0)"
^XMB(3.9,73,2,4180,0)=" ; Get data for TIU Note Creation"
^XMB(3.9,73,2,4181,0)="""RTN"",""MDRPCOT"",174,0)"
^XMB(3.9,73,2,4182,0)=" S (MDTSTR,MDRESU)=$$GETDATA(MDGST)"
^XMB(3.9,73,2,4183,0)="""RTN"",""MDRPCOT"",175,0)"
^XMB(3.9,73,2,4184,0)=" ; File Error message"
^XMB(3.9,73,2,4185,0)="""RTN"",""MDRPCOT"",176,0)"
^XMB(3.9,73,2,4186,0)=" I +MDRESU<0 D FILEMSG(MDGST,""CP"",2,MDRESU) Q MDRESU"
^XMB(3.9,73,2,4187,0)="""RTN"",""MDRPCOT"",177,0)"
^XMB(3.9,73,2,4188,0)=" I $G(MDTSTR)="""" Q ""-1^No Data to Create TIU Document"""
^XMB(3.9,73,2,4189,0)="""RTN"",""MDRPCOT"",178,0)"
^XMB(3.9,73,2,4190,0)=" F MDL=""DFN"",""MDTITL"",""MDLOC"",""MDNOTE"",""MDCON"",""MDPROC"",""MDVSTR"",""MDNVST"" D"
^XMB(3.9,73,2,4191,0)="""RTN"",""MDRPCOT"",179,0)"
^XMB(3.9,73,2,4192,0)=" .S CTR=CTR+1,@MDL=$P(MDTSTR,""^"",CTR)"
^XMB(3.9,73,2,4193,0)="""RTN"",""MDRPCOT"",180,0)"
^XMB(3.9,73,2,4194,0)=" S MDVST="""""
^XMB(3.9,73,2,4195,0)="""RTN"",""MDRPCOT"",181,0)"
^XMB(3.9,73,2,4196,0)=" ; If previous TIU document exists, quit"
^XMB(3.9,73,2,4197,0)="""RTN"",""MDRPCOT"",182,0)"
^XMB(3.9,73,2,4198,0)=" I MDNOTE Q MDNOTE"
^XMB(3.9,73,2,4199,0)="""RTN"",""MDRPCOT"",183,0)"
^XMB(3.9,73,2,4200,0)=" I 'MDLOC Q ""-1^No Hospital Location."""
^XMB(3.9,73,2,4201,0)="""RTN"",""MDRPCOT"",184,0)"
^XMB(3.9,73,2,4202,0)=" ; Create new visit, if no vstring"
^XMB(3.9,73,2,4203,0)="""RTN"",""MDRPCOT"",185,0)"
^XMB(3.9,73,2,4204,0)=" S MDPDT=$$PDT^MDRPCOT1(MDGST)"
^XMB(3.9,73,2,4205,0)="""RTN"",""MDRPCOT"",186,0)"
^XMB(3.9,73,2,4206,0)=" S:'MDPDT MDPDT=$P(MDVSTR,"";"",2) ; If No D/T Performed grab visit D/T"
^XMB(3.9,73,2,4207,0)="""RTN"",""MDRPCOT"",187,0)"
^XMB(3.9,73,2,4208,0)=" ; Build variables for TIU Call"
^XMB(3.9,73,2,4209,0)="""RTN"",""MDRPCOT"",188,0)"
^XMB(3.9,73,2,4210,0)=" S MDWP(.05)=1 ; Undicated Status"
^XMB(3.9,73,2,4211,0)="""RTN"",""MDRPCOT"",189,0)"
^XMB(3.9,73,2,4212,0)=" S MDWP(1405)=+MDCON_"";GMR(123,"" ; Package Reference"
^XMB(3.9,73,2,4213,0)="""RTN"",""MDRPCOT"",190,0)"
^XMB(3.9,73,2,4214,0)=" I MDPDT S MDWP(70202)=MDPDT ; Date/Time Performed"
^XMB(3.9,73,2,4215,0)="""RTN"",""MDRPCOT"",191,0)"
^XMB(3.9,73,2,4216,0)=" ; File PCE Error message"
^XMB(3.9,73,2,4217,0)="""RTN"",""MDRPCOT"",192,0)"
^XMB(3.9,73,2,4218,0)=" I MDNVST S MDRESU=$$EN1^MDPCE(MDGST,MDPDT,MDPROC,$P(MDVSTR,"";"",3),""P"") I +MDRESU S MDVST=+MDRESU,MDVSTR=$P(MDRESU,""^"",2)"
^XMB(3.9,73,2,4219,0)="""RTN"",""MDRPCOT"",193,0)"
^XMB(3.9,73,2,4220,0)=" I MDNVST&(+MDRESU<0) D FILEMSG(MDGST,""PCE"",2,$P(MDRESU,""^"",2)) Q MDRESU"
^XMB(3.9,73,2,4221,0)="""RTN"",""MDRPCOT"",194,0)"
^XMB(3.9,73,2,4222,0)=" ; Create the TIU note stub"
^XMB(3.9,73,2,4223,0)="""RTN"",""MDRPCOT"",195,0)"
^XMB(3.9,73,2,4224,0)=" S MDNOTE="""" D MAKE^TIUSRVP(.MDNOTE,DFN,MDTITL,$P(MDVSTR,"";"",2),MDLOC,$S(MDVST:MDVST,1:""""),.MDWP,MDVSTR,1,1)"
^XMB(3.9,73,2,4225,0)="""RTN"",""MDRPCOT"",196,0)"
^XMB(3.9,73,2,4226,0)=" I '(+MDNOTE) S $P(MDNOTE,""^"")=-1 Q MDNOTE"
^XMB(3.9,73,2,4227,0)="""RTN"",""MDRPCOT"",197,0)"
^XMB(3.9,73,2,4228,0)=" ; Finalize the transaction"
^XMB(3.9,73,2,4229,0)="""RTN"",""MDRPCOT"",198,0)"
^XMB(3.9,73,2,4230,0)=" S MDFDA(702,STUDY_"","",.06)=+MDNOTE"
^XMB(3.9,73,2,4231,0)="""RTN"",""MDRPCOT"",199,0)"
^XMB(3.9,73,2,4232,0)=" S MDFDA(702,STUDY_"","",.08)="""""
^XMB(3.9,73,2,4233,0)="""RTN"",""MDRPCOT"",200,0)"
^XMB(3.9,73,2,4234,0)=" D FILE^DIE("""",""MDFDA"")"
^XMB(3.9,73,2,4235,0)="""RTN"",""MDRPCOT"",201,0)"
^XMB(3.9,73,2,4236,0)=" Q 1"
^XMB(3.9,73,2,4237,0)="""RTN"",""MDRPCOT"",202,0)"
^XMB(3.9,73,2,4238,0)=" ;"
^XMB(3.9,73,2,4239,0)="""RTN"",""MDRPCOT"",203,0)"
^XMB(3.9,73,2,4240,0)="PREV(MDC,MDS) ; [Function] Return the Previous TIU document."
^XMB(3.9,73,2,4241,0)="""RTN"",""MDRPCOT"",204,0)"
^XMB(3.9,73,2,4242,0)=" N MDNEWV,MDDOC,MDTRAN,MDTIUER,MDTST"
^XMB(3.9,73,2,4243,0)="""RTN"",""MDRPCOT"",205,0)"
^XMB(3.9,73,2,4244,0)=" S (MDDOC,MDNEWV,MDTRAN,MDTIUER,MDTST)="""" K ^TMP(""MDTIUST"",$J)"
^XMB(3.9,73,2,4245,0)="""RTN"",""MDRPCOT"",206,0)"
^XMB(3.9,73,2,4246,0)=" F  S MDTRAN=$O(^MDD(702,""ACON"",MDC,MDTRAN)) Q:'MDTRAN  D  Q:'MDTRAN"
^XMB(3.9,73,2,4247,0)="""RTN"",""MDRPCOT"",207,0)"
^XMB(3.9,73,2,4248,0)=" .I $P(^MDD(702,MDTRAN,0),U,6) D"
^XMB(3.9,73,2,4249,0)="""RTN"",""MDRPCOT"",208,0)"
^XMB(3.9,73,2,4250,0)=" ..D EXTRACT^TIULQ($P(^MDD(702,MDTRAN,0),U,6),""^TMP(""""MDTIUST"""",$J)"",MDTIUER,"".01;.05;1406"") Q:+MDTIUER"
^XMB(3.9,73,2,4251,0)="""RTN"",""MDRPCOT"",209,0)"
^XMB(3.9,73,2,4252,0)=" ..S MDTST=$G(^TMP(""MDTIUST"",$J,$P(^MDD(702,MDTRAN,0),U,6),.05,""E""))"
^XMB(3.9,73,2,4253,0)="""RTN"",""MDRPCOT"",210,0)"
^XMB(3.9,73,2,4254,0)=" ..I MDTST'=""UNDICTATED""&(MDTST'=""UNSIGNED"") K ^TMP(""MDTIUST"",$J) Q"
^XMB(3.9,73,2,4255,0)="""RTN"",""MDRPCOT"",211,0)"
^XMB(3.9,73,2,4256,0)=" ..I MDTST=""UNSIGNED""&'($G(^TMP(""MDTIUST"",$J,$P(^MDD(702,MDTRAN,0),U,6),1406,""I""))) K ^TMP(""MDTIUST"",$J) Q"
^XMB(3.9,73,2,4257,0)="""RTN"",""MDRPCOT"",212,0)"
^XMB(3.9,73,2,4258,0)=" ..S MDDOC=$P(^MDD(702,MDTRAN,0),U,6),MDNEWV=$P(^MDD(702,MDTRAN,0),U,7)"
^XMB(3.9,73,2,4259,0)="""RTN"",""MDRPCOT"",213,0)"
^XMB(3.9,73,2,4260,0)=" ..Q:'MDS"
^XMB(3.9,73,2,4261,0)="""RTN"",""MDRPCOT"",214,0)"
^XMB(3.9,73,2,4262,0)=" ..S MDFDA(702,MDS_"","",.06)=MDDOC"
^XMB(3.9,73,2,4263,0)="""RTN"",""MDRPCOT"",215,0)"
^XMB(3.9,73,2,4264,0)=" ..S MDFDA(702,MDS_"","",.07)=MDNEWV"
^XMB(3.9,73,2,4265,0)="""RTN"",""MDRPCOT"",216,0)"
^XMB(3.9,73,2,4266,0)=" ..D FILE^DIE("""",""MDFDA"")"
^XMB(3.9,73,2,4267,0)="""RTN"",""MDRPCOT"",217,0)"
^XMB(3.9,73,2,4268,0)=" ..S MDTRAN="""""
^XMB(3.9,73,2,4269,0)="""RTN"",""MDRPCOT"",218,0)"
^XMB(3.9,73,2,4270,0)=" Q MDDOC"
^XMB(3.9,73,2,4271,0)="""RTN"",""MDRPCOT"",219,0)"
^XMB(3.9,73,2,4272,0)=" ;"
^XMB(3.9,73,2,4273,0)="""RTN"",""MDRPCOT1"")"
^XMB(3.9,73,2,4274,0)="0^4^B27880896^B26833377"
^XMB(3.9,73,2,4275,0)="""RTN"",""MDRPCOT1"",1,0)"
^XMB(3.9,73,2,4276,0)="MDRPCOT1 ; HOIFO/NCA/DP - Object RPCs (TMDTransaction) - Continued ; [08-02-2002 12:55]"
^XMB(3.9,73,2,4277,0)="""RTN"",""MDRPCOT1"",2,0)"
^XMB(3.9,73,2,4278,0)=" ;;1.0;CLINICAL PROCEDURES;**5**;Apr 01, 2004;Build 1"
^XMB(3.9,73,2,4279,0)="""RTN"",""MDRPCOT1"",3,0)"
^XMB(3.9,73,2,4280,0)=" ; Integration Agreements:"
^XMB(3.9,73,2,4281,0)="""RTN"",""MDRPCOT1"",4,0)"
^XMB(3.9,73,2,4282,0)=" ; IA# 3468 [Subscription] GMRCCP API."
^XMB(3.9,73,2,4283,0)="""RTN"",""MDRPCOT1"",5,0)"
^XMB(3.9,73,2,4284,0)=" ; IA# 3567 [Subscription] MAGGSIUI API"
^XMB(3.9,73,2,4285,0)="""RTN"",""MDRPCOT1"",6,0)"
^XMB(3.9,73,2,4286,0)=" ; IA# 10040 [Supported] Hospital Location File Access"
^XMB(3.9,73,2,4287,0)="""RTN"",""MDRPCOT1"",7,0)"
^XMB(3.9,73,2,4288,0)=" ; IA# 10061 [Supported] Calls to VADPT"
^XMB(3.9,73,2,4289,0)="""RTN"",""MDRPCOT1"",8,0)"
^XMB(3.9,73,2,4290,0)=" ; IA# 10103 [Supported] Calls to XLFDT."
^XMB(3.9,73,2,4291,0)="""RTN"",""MDRPCOT1"",9,0)"
^XMB(3.9,73,2,4292,0)=" ;"
^XMB(3.9,73,2,4293,0)="""RTN"",""MDRPCOT1"",10,0)"
^XMB(3.9,73,2,4294,0)="DELERR(MDTIEN) ; [Procedure] Delete Imaging Error Messages"
^XMB(3.9,73,2,4295,0)="""RTN"",""MDRPCOT1"",11,0)"
^XMB(3.9,73,2,4296,0)=" S MDLP=0 F  S MDLP=$O(^MDD(702,MDTIEN,.091,MDLP)) Q:'MDLP  D"
^XMB(3.9,73,2,4297,0)="""RTN"",""MDRPCOT1"",12,0)"
^XMB(3.9,73,2,4298,0)=" .K DA,DIK"
^XMB(3.9,73,2,4299,0)="""RTN"",""MDRPCOT1"",13,0)"
^XMB(3.9,73,2,4300,0)=" .S DA=+MDLP,DA(1)=+MDTIEN,DIK=""^MDD(702,""_DA(1)_"",.091,"" D ^DIK"
^XMB(3.9,73,2,4301,0)="""RTN"",""MDRPCOT1"",14,0)"
^XMB(3.9,73,2,4302,0)=" .Q"
^XMB(3.9,73,2,4303,0)="""RTN"",""MDRPCOT1"",15,0)"
^XMB(3.9,73,2,4304,0)=" Q"
^XMB(3.9,73,2,4305,0)="""RTN"",""MDRPCOT1"",16,0)"
^XMB(3.9,73,2,4306,0)=" ;"
^XMB(3.9,73,2,4307,0)="""RTN"",""MDRPCOT1"",17,0)"
^XMB(3.9,73,2,4308,0)="IMGSTAT(STUDY,MDSTAT) ; [Procedure] Update the Image Status."
^XMB(3.9,73,2,4309,0)="""RTN"",""MDRPCOT1"",18,0)"
^XMB(3.9,73,2,4310,0)=" N MDL"
^XMB(3.9,73,2,4311,0)="""RTN"",""MDRPCOT1"",19,0)"
^XMB(3.9,73,2,4312,0)=" S MDL=0 F  S MDL=$O(^MDD(702,STUDY,.1,MDL)) Q:MDL<1  S $P(^(MDL,0),""^"",9)=MDSTAT"
^XMB(3.9,73,2,4313,0)="""RTN"",""MDRPCOT1"",20,0)"
^XMB(3.9,73,2,4314,0)=" Q"
^XMB(3.9,73,2,4315,0)="""RTN"",""MDRPCOT1"",21,0)"
^XMB(3.9,73,2,4316,0)=" ;"
^XMB(3.9,73,2,4317,0)="""RTN"",""MDRPCOT1"",22,0)"
^XMB(3.9,73,2,4318,0)="GETVSTR(DFN,MDSSTR,MDPR,MDTR) ; [Function] Check the Visit String"
^XMB(3.9,73,2,4319,0)="""RTN"",""MDRPCOT1"",23,0)"
^XMB(3.9,73,2,4320,0)=" N MDCLOC,MDLOC,MDINPT,VAIP"
^XMB(3.9,73,2,4321,0)="""RTN"",""MDRPCOT1"",24,0)"
^XMB(3.9,73,2,4322,0)=" I '$G(MDTR) Q 0"
^XMB(3.9,73,2,4323,0)="""RTN"",""MDRPCOT1"",25,0)"
^XMB(3.9,73,2,4324,0)=" I '$G(MDPR) Q 0"
^XMB(3.9,73,2,4325,0)="""RTN"",""MDRPCOT1"",26,0)"
^XMB(3.9,73,2,4326,0)=" I $G(MDSSTR)="""" Q 0"
^XMB(3.9,73,2,4327,0)="""RTN"",""MDRPCOT1"",27,0)"
^XMB(3.9,73,2,4328,0)=" S VAIP(""D"")=MDTR ; DT of Transaction Created"
^XMB(3.9,73,2,4329,0)="""RTN"",""MDRPCOT1"",28,0)"
^XMB(3.9,73,2,4330,0)=" D IN5^VADPT S MDINPT=$S(+VAIP(13):1,1:0)"
^XMB(3.9,73,2,4331,0)="""RTN"",""MDRPCOT1"",29,0)"
^XMB(3.9,73,2,4332,0)=" S MDCLOC=$$GET1^DIQ(702.01,+MDPR_"","",.05,""I"")"
^XMB(3.9,73,2,4333,0)="""RTN"",""MDRPCOT1"",30,0)"
^XMB(3.9,73,2,4334,0)=" I 'MDCLOC S MDCLOC=+$P(MDSSTR,"";"",3) I 'MDCLOC Q 0"
^XMB(3.9,73,2,4335,0)="""RTN"",""MDRPCOT1"",31,0)"
^XMB(3.9,73,2,4336,0)=" S Y=MDCLOC_"";""_$P(MDSSTR,"";"",2)_"";""_$P(MDSSTR,"";"")"
^XMB(3.9,73,2,4337,0)="""RTN"",""MDRPCOT1"",32,0)"
^XMB(3.9,73,2,4338,0)=" I $P(Y,"";"",3)=""A"" Q Y"
^XMB(3.9,73,2,4339,0)="""RTN"",""MDRPCOT1"",33,0)"
^XMB(3.9,73,2,4340,0)=" S:$P(Y,"";"",3)="""" $P(Y,"";"",3)=""A"""
^XMB(3.9,73,2,4341,0)="""RTN"",""MDRPCOT1"",34,0)"
^XMB(3.9,73,2,4342,0)=" S:+MDINPT $P(Y,"";"",3)=""A"""
^XMB(3.9,73,2,4343,0)="""RTN"",""MDRPCOT1"",35,0)"
^XMB(3.9,73,2,4344,0)=" Q Y"
^XMB(3.9,73,2,4345,0)="""RTN"",""MDRPCOT1"",36,0)"
^XMB(3.9,73,2,4346,0)=" ;"
^XMB(3.9,73,2,4347,0)="""RTN"",""MDRPCOT1"",37,0)"
^XMB(3.9,73,2,4348,0)="PDT(STUDY) ; [Function] Loop through the attachments for Date/Time Performed."
^XMB(3.9,73,2,4349,0)="""RTN"",""MDRPCOT1"",38,0)"
^XMB(3.9,73,2,4350,0)=" N MDL,MDDT"
^XMB(3.9,73,2,4351,0)="""RTN"",""MDRPCOT1"",39,0)"
^XMB(3.9,73,2,4352,0)=" S MDL=0,MDDT="""""
^XMB(3.9,73,2,4353,0)="""RTN"",""MDRPCOT1"",40,0)"
^XMB(3.9,73,2,4354,0)=" F  S MDL=$O(^MDD(702,STUDY,.1,MDL)) Q:'MDL  D  Q:MDDT"
^XMB(3.9,73,2,4355,0)="""RTN"",""MDRPCOT1"",41,0)"
^XMB(3.9,73,2,4356,0)=" .S MDDT=$P($G(^MDD(702,STUDY,.1,MDL,0)),""^"",3)"
^XMB(3.9,73,2,4357,0)="""RTN"",""MDRPCOT1"",42,0)"
^XMB(3.9,73,2,4358,0)=" I MDDT S MDDT=$P($G(^MDD(703.1,+MDDT,0)),""^"",3) ; Get Date/Time Performed"
^XMB(3.9,73,2,4359,0)="""RTN"",""MDRPCOT1"",43,0)"
^XMB(3.9,73,2,4360,0)=" Q MDDT"
^XMB(3.9,73,2,4361,0)="""RTN"",""MDRPCOT1"",44,0)"
^XMB(3.9,73,2,4362,0)=" ;"
^XMB(3.9,73,2,4363,0)="""RTN"",""MDRPCOT1"",45,0)"
^XMB(3.9,73,2,4364,0)="SUBMIT(STUDY) ; [Function] Submit all non-pending/uncomplete images in transaction to Imaging"
^XMB(3.9,73,2,4365,0)="""RTN"",""MDRPCOT1"",46,0)"
^XMB(3.9,73,2,4366,0)=" N DATA,MDACQ,MDC,MDCRES,MDCTR,MDLOC,MDAR,MDARR,MDDT,MDFDA,MDDEL,MDIEN,MDIENS,MDIMG,MDL,MDMAG,MDR,MDST,MDX,MDY,MDZ"
^XMB(3.9,73,2,4367,0)="""RTN"",""MDRPCOT1"",47,0)"
^XMB(3.9,73,2,4368,0)=" S MDIEN=+STUDY,MDIENS=MDIEN_"","""
^XMB(3.9,73,2,4369,0)="""RTN"",""MDRPCOT1"",48,0)"
^XMB(3.9,73,2,4370,0)=" S MDST=$$GET1^DIQ(702,MDIEN,.09,""I"") I ""13""[MDST Q ""-1^Study not in proper status"""
^XMB(3.9,73,2,4371,0)="""RTN"",""MDRPCOT1"",49,0)"
^XMB(3.9,73,2,4372,0)=" D DELERR(+MDIEN)"
^XMB(3.9,73,2,4373,0)="""RTN"",""MDRPCOT1"",50,0)"
^XMB(3.9,73,2,4374,0)=" I $$GET1^DIQ(702,MDIEN,.01)="""" Q ""-1^No Entry in file (#702)."""
^XMB(3.9,73,2,4375,0)="""RTN"",""MDRPCOT1"",51,0)"
^XMB(3.9,73,2,4376,0)=" D NOW^%DTC S MDDT=%"
^XMB(3.9,73,2,4377,0)="""RTN"",""MDRPCOT1"",52,0)"
^XMB(3.9,73,2,4378,0)=" S MDMAG(""IDFN"")=+$$GET1^DIQ(702,MDIEN,.01,""I"")"
^XMB(3.9,73,2,4379,0)="""RTN"",""MDRPCOT1"",53,0)"
^XMB(3.9,73,2,4380,0)=" I 'MDMAG(""IDFN"") Q ""-1^No Patient DFN."""
^XMB(3.9,73,2,4381,0)="""RTN"",""MDRPCOT1"",54,0)"
^XMB(3.9,73,2,4382,0)=" S MDMAG(""PXPKG"")=8925"
^XMB(3.9,73,2,4383,0)="""RTN"",""MDRPCOT1"",55,0)"
^XMB(3.9,73,2,4384,0)=" S MDMAG(""PXIEN"")=+$$GET1^DIQ(702,MDIEN,.06,""I"")"
^XMB(3.9,73,2,4385,0)="""RTN"",""MDRPCOT1"",56,0)"
^XMB(3.9,73,2,4386,0)=" I 'MDMAG(""PXIEN"") Q ""-1^No TIU IEN"""
^XMB(3.9,73,2,4387,0)="""RTN"",""MDRPCOT1"",57,0)"
^XMB(3.9,73,2,4388,0)=" I '$O(^MDD(702,MDIEN,.1,0)) D  Q $S(+MDR<0:MDR,1:""3^Transaction Complete"")"
^XMB(3.9,73,2,4389,0)="""RTN"",""MDRPCOT1"",58,0)"
^XMB(3.9,73,2,4390,0)=" .S MDC=$$GET1^DIQ(702,MDIEN,.05,""I"")"
^XMB(3.9,73,2,4391,0)="""RTN"",""MDRPCOT1"",59,0)"
^XMB(3.9,73,2,4392,0)=" .S MDR=$$UPDCONS(MDC,MDMAG(""PXIEN""))"
^XMB(3.9,73,2,4393,0)="""RTN"",""MDRPCOT1"",60,0)"
^XMB(3.9,73,2,4394,0)=" S MDMAG(""STSCB"")=""ISTAT^MDAPI"""
^XMB(3.9,73,2,4395,0)="""RTN"",""MDRPCOT1"",61,0)"
^XMB(3.9,73,2,4396,0)=" S MDMAG(""TRKID"")=""CP;""_MDIEN_""-""_MDDT"
^XMB(3.9,73,2,4397,0)="""RTN"",""MDRPCOT1"",62,0)"
^XMB(3.9,73,2,4398,0)=" S MDLOC=$$GET1^DIQ(702,MDIEN,.07,""I""),MDLOC=$P(MDLOC,"";"",3)"
^XMB(3.9,73,2,4399,0)="""RTN"",""MDRPCOT1"",63,0)"
^XMB(3.9,73,2,4400,0)=" I 'MDLOC Q ""-1^No Hospital Location."""
^XMB(3.9,73,2,4401,0)="""RTN"",""MDRPCOT1"",64,0)"
^XMB(3.9,73,2,4402,0)=" S MDMAG(""ACQS"")=$S(+$$GET1^DIQ(44,MDLOC_"","",3,""I""):+$$GET1^DIQ(44,MDLOC_"","",3,""I""),1:+$G(DUZ(2)))"
^XMB(3.9,73,2,4403,0)="""RTN"",""MDRPCOT1"",65,0)"
^XMB(3.9,73,2,4404,0)=" S MDMAG(""ACQL"")=MDLOC"
^XMB(3.9,73,2,4405,0)="""RTN"",""MDRPCOT1"",66,0)"
^XMB(3.9,73,2,4406,0)=" S MDX=$$GET1^DIQ(702,MDIEN,.04,""I"")"
^XMB(3.9,73,2,4407,0)="""RTN"",""MDRPCOT1"",67,0)"
^XMB(3.9,73,2,4408,0)=" S MDZ=$P(^MDS(702.01,+MDX,0),""^"",1)"
^XMB(3.9,73,2,4409,0)="""RTN"",""MDRPCOT1"",68,0)"
^XMB(3.9,73,2,4410,0)=" S (MDACQ,MDX,MDDEL)="""",MDCTR=0"
^XMB(3.9,73,2,4411,0)="""RTN"",""MDRPCOT1"",69,0)"
^XMB(3.9,73,2,4412,0)=" N MDTOT S MDTOT=$$GET1^DIQ(702,MDIENS,.991)"
^XMB(3.9,73,2,4413,0)="""RTN"",""MDRPCOT1"",70,0)"
^XMB(3.9,73,2,4414,0)=" S MDL=0 F  S MDL=$O(^MDD(702,MDIEN,.1,MDL)) Q:MDL<1  S MDX=$G(^(MDL,0)) D"
^XMB(3.9,73,2,4415,0)="""RTN"",""MDRPCOT1"",71,0)"
^XMB(3.9,73,2,4416,0)=" .S:'MDDEL MDDEL=$P(MDX,""^"",3)"
^XMB(3.9,73,2,4417,0)="""RTN"",""MDRPCOT1"",72,0)"
^XMB(3.9,73,2,4418,0)=" .S MDY=$G(^MDD(702,MDIEN,.1,MDL,.1)) Q:MDY="""""
^XMB(3.9,73,2,4419,0)="""RTN"",""MDRPCOT1"",73,0)"
^XMB(3.9,73,2,4420,0)=" .S:MDACQ="""" MDACQ=$P($P(MDY,""\\"",2),""\"")"
^XMB(3.9,73,2,4421,0)="""RTN"",""MDRPCOT1"",74,0)"
^XMB(3.9,73,2,4422,0)=" .S:""12""[$P(MDX,""^"",9) $P(MDX,""^"",9)="""""
^XMB(3.9,73,2,4423,0)="""RTN"",""MDRPCOT1"",75,0)"
^XMB(3.9,73,2,4424,0)=" .I $P(MDX,""^"",9)="""" S MDCTR=MDCTR+1,MDARR(MDCTR)=MDY_""^""_MDZ_"" image ""_MDCTR_"" out of ""_MDTOT"
^XMB(3.9,73,2,4425,0)="""RTN"",""MDRPCOT1"",76,0)"
^XMB(3.9,73,2,4426,0)=" .Q"
^XMB(3.9,73,2,4427,0)="""RTN"",""MDRPCOT1"",77,0)"
^XMB(3.9,73,2,4428,0)=" I '$O(MDARR(0)) Q ""-1^No UNC."""
^XMB(3.9,73,2,4429,0)="""RTN"",""MDRPCOT1"",78,0)"
^XMB(3.9,73,2,4430,0)=" S MDMAG(""GDESC"")=MDZ_"" Result"""
^XMB(3.9,73,2,4431,0)="""RTN"",""MDRPCOT1"",79,0)"
^XMB(3.9,73,2,4432,0)=" I MDDEL S MDY=$P($G(^MDD(703.1,+MDDEL,0)),""^"",3,4),MDMAG(""PXDT"")=$P(MDY,""^"",1),MDY=+$P(MDY,""^"",2),MDMAG(""ACQD"")=$P($G(^MDS(702.09,+MDY,0)),""^""),MDMAG(""DFLG"")=+$P($G(^MDS(702.09,+MDY,0)),""^"",5)"
^XMB(3.9,73,2,4433,0)="""RTN"",""MDRPCOT1"",80,0)"
^XMB(3.9,73,2,4434,0)=" S:$G(MDMAG(""ACQD""))="""" MDMAG(""ACQD"")=MDACQ"
^XMB(3.9,73,2,4435,0)="""RTN"",""MDRPCOT1"",81,0)"
^XMB(3.9,73,2,4436,0)=" S:'$G(MDMAG(""PXDT"")) MDMAG(""PXDT"")=MDDT ; If no date, use NOW in MDDT"
^XMB(3.9,73,2,4437,0)="""RTN"",""MDRPCOT1"",82,0)"
^XMB(3.9,73,2,4438,0)=" S MDMAG(""TRTYPE"")=""NEW"""
^XMB(3.9,73,2,4439,0)="""RTN"",""MDRPCOT1"",83,0)"
^XMB(3.9,73,2,4440,0)=" D IMPORT^MAGGSIUI(.MDIMG,.MDARR,.MDMAG)"
^XMB(3.9,73,2,4441,0)="""RTN"",""MDRPCOT1"",84,0)"
^XMB(3.9,73,2,4442,0)=" I '(+$G(MDIMG(0))) D  Q ""-1^""_$P(MDIMG(0),""^"",2)"
^XMB(3.9,73,2,4443,0)="""RTN"",""MDRPCOT1"",85,0)"
^XMB(3.9,73,2,4444,0)=" .D IMGSTAT(+MDIENS,1)"
^XMB(3.9,73,2,4445,0)="""RTN"",""MDRPCOT1"",86,0)"
^XMB(3.9,73,2,4446,0)=" .F MDAR=0:0 S MDAR=$O(MDIMG(MDAR)) Q:'MDAR  I $G(MDIMG(MDAR))'="""" D"
^XMB(3.9,73,2,4447,0)="""RTN"",""MDRPCOT1"",87,0)"
^XMB(3.9,73,2,4448,0)=" ..S DATA(""MESSAGE"")=$$TRANS^MDAPI(MDIMG(MDAR)) D ADDMSG^MDRPCOT"
^XMB(3.9,73,2,4449,0)="""RTN"",""MDRPCOT1"",88,0)"
^XMB(3.9,73,2,4450,0)=" D IMGSTAT(+MDIENS,0)"
^XMB(3.9,73,2,4451,0)="""RTN"",""MDRPCOT1"",89,0)"
^XMB(3.9,73,2,4452,0)=" Q ""1^Images Submitted"""
^XMB(3.9,73,2,4453,0)="""RTN"",""MDRPCOT1"",90,0)"
^XMB(3.9,73,2,4454,0)=" ;"
^XMB(3.9,73,2,4455,0)="""RTN"",""MDRPCOT1"",91,0)"
^XMB(3.9,73,2,4456,0)="UPDCONS(MDC,MDDOC) ; [Function] Update Consults Procedure Status"
^XMB(3.9,73,2,4457,0)="""RTN"",""MDRPCOT1"",92,0)"
^XMB(3.9,73,2,4458,0)=" N MDCRES"
^XMB(3.9,73,2,4459,0)="""RTN"",""MDRPCOT1"",93,0)"
^XMB(3.9,73,2,4460,0)=" S MDCRES=$$CPDOC^GMRCCP(MDC,MDDOC,2)"
^XMB(3.9,73,2,4461,0)="""RTN"",""MDRPCOT1"",94,0)"
^XMB(3.9,73,2,4462,0)=" I '(+MDCRES) Q ""-1^""_$P(MDCRES,""^"",2)"
^XMB(3.9,73,2,4463,0)="""RTN"",""MDRPCOT1"",95,0)"
^XMB(3.9,73,2,4464,0)=" Q 1"
^XMB(3.9,73,2,4465,0)="""RTN"",""MDRPCOT1"",96,0)"
^XMB(3.9,73,2,4466,0)=" ;"
^XMB(3.9,73,2,4467,0)="""RTN"",""MDRPCOT1"",97,0)"
^XMB(3.9,73,2,4468,0)="GETIORD(MDIEN) ; [Function] Return the Instrument order number for this study"
^XMB(3.9,73,2,4469,0)="""RTN"",""MDRPCOT1"",98,0)"
^XMB(3.9,73,2,4470,0)=" ; Called from instrument interface routines"
^XMB(3.9,73,2,4471,0)="""RTN"",""MDRPCOT1"",99,0)"
^XMB(3.9,73,2,4472,0)=" Q:'$D(^MDD(702,MDIEN,0))#2 -1  ; No such study"
^XMB(3.9,73,2,4473,0)="""RTN"",""MDRPCOT1"",100,0)"
^XMB(3.9,73,2,4474,0)=" Q:'$P(^MDD(702,MDIEN,0),U,12) $$NEWIORD(MDIEN)  ; Create a new one"
^XMB(3.9,73,2,4475,0)="""RTN"",""MDRPCOT1"",101,0)"
^XMB(3.9,73,2,4476,0)=" Q $P(^MDD(702,MDIEN,0),U,12)  ; Return the existing one"
^XMB(3.9,73,2,4477,0)="""RTN"",""MDRPCOT1"",102,0)"
^XMB(3.9,73,2,4478,0)=" ;"
^XMB(3.9,73,2,4479,0)="""RTN"",""MDRPCOT1"",103,0)"
^XMB(3.9,73,2,4480,0)="NEWIORD(MDIEN) ; [Function] Generate & return new unique instrument order number"
^XMB(3.9,73,2,4481,0)="""RTN"",""MDRPCOT1"",104,0)"
^XMB(3.9,73,2,4482,0)=" ; Notice: will overwrite existing order number if it exists"
^XMB(3.9,73,2,4483,0)="""RTN"",""MDRPCOT1"",105,0)"
^XMB(3.9,73,2,4484,0)=" N MDFDA"
^XMB(3.9,73,2,4485,0)="""RTN"",""MDRPCOT1"",106,0)"
^XMB(3.9,73,2,4486,0)=" Q:'$D(^MDD(702,MDIEN,0))#2 -1  ; No such study"
^XMB(3.9,73,2,4487,0)="""RTN"",""MDRPCOT1"",107,0)"
^XMB(3.9,73,2,4488,0)=" L +^MDD(702,""AION""):15 E  Q -1  ; Unable to lock and guarantee uniqueness"
^XMB(3.9,73,2,4489,0)="""RTN"",""MDRPCOT1"",108,0)"
^XMB(3.9,73,2,4490,0)=" F  D  Q:'$D(^MDD(702,""AION"",X))  H 1  ; Loop until unique"
^XMB(3.9,73,2,4491,0)="""RTN"",""MDRPCOT1"",109,0)"
^XMB(3.9,73,2,4492,0)=" . S X=$$NOW^XLFDT() ; Current DateTime"
^XMB(3.9,73,2,4493,0)="""RTN"",""MDRPCOT1"",110,0)"
^XMB(3.9,73,2,4494,0)=" . S X=$TR($J(X,14,6),""."","""") ; Pad with 0's and strip the decimal"
^XMB(3.9,73,2,4495,0)="""RTN"",""MDRPCOT1"",111,0)"
^XMB(3.9,73,2,4496,0)=" . Q"
^XMB(3.9,73,2,4497,0)="""RTN"",""MDRPCOT1"",112,0)"
^XMB(3.9,73,2,4498,0)=" I $E($G(^MDS(702.09,DEVIEN,0)),1,4)=""Muse"" D"
^XMB(3.9,73,2,4499,0)="""RTN"",""MDRPCOT1"",113,0)"
^XMB(3.9,73,2,4500,0)=" . ; Due to current limitation to the Muse can only except 9"
^XMB(3.9,73,2,4501,0)="""RTN"",""MDRPCOT1"",114,0)"
^XMB(3.9,73,2,4502,0)=" . S X=$E($TR($H,"","",""""),2,10) ; Using $E($H) only for the MUSE"
^XMB(3.9,73,2,4503,0)="""RTN"",""MDRPCOT1"",115,0)"
^XMB(3.9,73,2,4504,0)=" . I '$D(^MDD(702,""AION"",X)) Q  ; It is unique and quit"
^XMB(3.9,73,2,4505,0)="""RTN"",""MDRPCOT1"",116,0)"
^XMB(3.9,73,2,4506,0)=" . N I,FLG ; Not unique"
^XMB(3.9,73,2,4507,0)="""RTN"",""MDRPCOT1"",117,0)"
^XMB(3.9,73,2,4508,0)=" . S FLG=0"
^XMB(3.9,73,2,4509,0)="""RTN"",""MDRPCOT1"",118,0)"
^XMB(3.9,73,2,4510,0)=" . F I=1:1 D  Q:FLG"
^XMB(3.9,73,2,4511,0)="""RTN"",""MDRPCOT1"",119,0)"
^XMB(3.9,73,2,4512,0)=" . . S X=X+1"
^XMB(3.9,73,2,4513,0)="""RTN"",""MDRPCOT1"",120,0)"
^XMB(3.9,73,2,4514,0)=" . . I '$D(^MDD(702,""AION"",X)) S FLG=1"
^XMB(3.9,73,2,4515,0)="""RTN"",""MDRPCOT1"",121,0)"
^XMB(3.9,73,2,4516,0)=" . . Q"
^XMB(3.9,73,2,4517,0)="""RTN"",""MDRPCOT1"",122,0)"
^XMB(3.9,73,2,4518,0)=" . Q"
^XMB(3.9,73,2,4519,0)="""RTN"",""MDRPCOT1"",123,0)"
^XMB(3.9,73,2,4520,0)=" S MDFDA(702,MDIEN_"","",.12)=X  ; Build FDA"
^XMB(3.9,73,2,4521,0)="""RTN"",""MDRPCOT1"",124,0)"
^XMB(3.9,73,2,4522,0)=" D FILE^DIE("""",""MDFDA"")  ; File it"
^XMB(3.9,73,2,4523,0)="""RTN"",""MDRPCOT1"",125,0)"
^XMB(3.9,73,2,4524,0)=" L -(^MDD(702,""AION""))  ; Unlock it"
^XMB(3.9,73,2,4525,0)="""RTN"",""MDRPCOT1"",126,0)"
^XMB(3.9,73,2,4526,0)=" Q $P(^MDD(702,MDIEN,0),U,12)  ; Return it from the file"
^XMB(3.9,73,2,4527,0)="""RTN"",""MDRPCOT1"",127,0)"
^XMB(3.9,73,2,4528,0)=" ;"
^XMB(3.9,73,2,4529,0)="""RTN"",""MDRPCOT1"",128,0)"
^XMB(3.9,73,2,4530,0)="GETSTDY(MDION) ; [Function] Return study from instrument order number"
^XMB(3.9,73,2,4531,0)="""RTN"",""MDRPCOT1"",129,0)"
^XMB(3.9,73,2,4532,0)=" ; Called from instrument interface routines"
^XMB(3.9,73,2,4533,0)="""RTN"",""MDRPCOT1"",130,0)"
^XMB(3.9,73,2,4534,0)=" Q:'$D(^MDD(702,""AION"",MDION)) -1  ; No such order number"
^XMB(3.9,73,2,4535,0)="""RTN"",""MDRPCOT1"",131,0)"
^XMB(3.9,73,2,4536,0)=" Q $O(^MDD(702,""AION"",MDION,""""))  ; Return the 702 ien"
^XMB(3.9,73,2,4537,0)="""RTN"",""MDRPCOT1"",132,0)"
^XMB(3.9,73,2,4538,0)=" ;"
^XMB(3.9,73,2,4539,0)="""RTN"",""MDSTATU"")"
^XMB(3.9,73,2,4540,0)="0^10^B39040181^n/a"
^XMB(3.9,73,2,4541,0)="""RTN"",""MDSTATU"",1,0)"
^XMB(3.9,73,2,4542,0)="MDSTATU ; HOIFO/NCA - Print List of Document Titles Needed ;10/21/04  13:44"
^XMB(3.9,73,2,4543,0)="""RTN"",""MDSTATU"",2,0)"
^XMB(3.9,73,2,4544,0)=" ;;1.0;CLINICAL PROCEDURES;**5**;Apr 01, 2004;Build 1"
^XMB(3.9,73,2,4545,0)="""RTN"",""MDSTATU"",3,0)"
^XMB(3.9,73,2,4546,0)=" ; Reference Integration Agreement:"
^XMB(3.9,73,2,4547,0)="""RTN"",""MDSTATU"",4,0)"
^XMB(3.9,73,2,4548,0)=" ; IA# 10035 [Supported] Access to DPT file (#2)"
^XMB(3.9,73,2,4549,0)="""RTN"",""MDSTATU"",5,0)"
^XMB(3.9,73,2,4550,0)=" ; IA# 10039 [Supported] Hospital Location lookup in DIC(42"
^XMB(3.9,73,2,4551,0)="""RTN"",""MDSTATU"",6,0)"
^XMB(3.9,73,2,4552,0)=" ; IA# 10061 [Supported VADPT calls"
^XMB(3.9,73,2,4553,0)="""RTN"",""MDSTATU"",7,0)"
^XMB(3.9,73,2,4554,0)=" ; IA# 10104 [Supported] Routine XLFSTR calls"
^XMB(3.9,73,2,4555,0)="""RTN"",""MDSTATU"",8,0)"
^XMB(3.9,73,2,4556,0)=" ;"
^XMB(3.9,73,2,4557,0)="""RTN"",""MDSTATU"",9,0)"
^XMB(3.9,73,2,4558,0)="DISP ; Display List of TIU titles need to be created for Medicine procedures"
^XMB(3.9,73,2,4559,0)="""RTN"",""MDSTATU"",10,0)"
^XMB(3.9,73,2,4560,0)=" W ! K IOP,%ZIS S %ZIS(""A"")=""Select Device: "",%ZIS=""MQ"" D ^%ZIS K %ZIS,IOP Q:POP"
^XMB(3.9,73,2,4561,0)="""RTN"",""MDSTATU"",11,0)"
^XMB(3.9,73,2,4562,0)=" I $D(IO(""Q"")) S ZTRTN=""D1^MDSTATU"",ZTREQ=""@"",ZTSAVE(""ZTREQ"")="""",ZTDESC=""List Documents Titles Needed"",(ZTDTH,ZTIO)="""" D ^%ZTLOAD D ^%ZISC W !,""Request Queued"" Q"
^XMB(3.9,73,2,4563,0)="""RTN"",""MDSTATU"",12,0)"
^XMB(3.9,73,2,4564,0)=" U IO D D1 D ^%ZISC K %ZIS,IOP Q"
^XMB(3.9,73,2,4565,0)="""RTN"",""MDSTATU"",13,0)"
^XMB(3.9,73,2,4566,0)="D1 ; Process Display"
^XMB(3.9,73,2,4567,0)="""RTN"",""MDSTATU"",14,0)"
^XMB(3.9,73,2,4568,0)=" N ANS,CNT,DTP,LN,LP,MDK,MDF,MDFIL,MDN,MDN1,MDR,MDTIT,MDV,MDX,PG,S1,TIT,X"
^XMB(3.9,73,2,4569,0)="""RTN"",""MDSTATU"",15,0)"
^XMB(3.9,73,2,4570,0)=" S (CNT,PG)=0,ANS="""",S1=$S(IOST?1""C"".E:IOSL-2,1:IOSL-7) D H1 S MDFIL=8925.1"
^XMB(3.9,73,2,4571,0)="""RTN"",""MDSTATU"",16,0)"
^XMB(3.9,73,2,4572,0)=" S LP=0 F  S LP=$O(^MDD(703.9,1,1,LP)) Q:LP<1!(ANS=""^"")  S MDF=$G(^(LP,0)) D"
^XMB(3.9,73,2,4573,0)="""RTN"",""MDSTATU"",17,0)"
^XMB(3.9,73,2,4574,0)=" .Q:'$P(MDF,U,3)"
^XMB(3.9,73,2,4575,0)="""RTN"",""MDSTATU"",18,0)"
^XMB(3.9,73,2,4576,0)=" .S MDTIT=$P(MDF,U,5) Q:MDTIT"
^XMB(3.9,73,2,4577,0)="""RTN"",""MDSTATU"",19,0)"
^XMB(3.9,73,2,4578,0)=" .Q:'$P(MDF,U)  S MDR=""MCAR(""_+$P(MDF,U)"
^XMB(3.9,73,2,4579,0)="""RTN"",""MDSTATU"",20,0)"
^XMB(3.9,73,2,4580,0)=" .S MDN=0 F  S MDN=$O(^MCAR(697.2,""C"",MDR,MDN)) Q:MDN<1!(ANS=""^"")  I $G(^MCAR(697.2,MDN,0))'="""" D"
^XMB(3.9,73,2,4581,0)="""RTN"",""MDSTATU"",21,0)"
^XMB(3.9,73,2,4582,0)=" ..S CNT=CNT+1,MDK=$G(^MCAR(697.2,MDN,0)),TIT=$S($P(MDK,U,8)'="""":$P(MDK,U,8),1:$P(MDK,U)),TIT=$$UP^XLFSTR(TIT),MDN1=$G(^MCAR(697.2,MDN,1))"
^XMB(3.9,73,2,4583,0)="""RTN"",""MDSTATU"",22,0)"
^XMB(3.9,73,2,4584,0)=" ..D:$Y'<S1 HDR Q:ANS=""^"""
^XMB(3.9,73,2,4585,0)="""RTN"",""MDSTATU"",23,0)"
^XMB(3.9,73,2,4586,0)=" ..I $P(MDF,U)=699 Q:$P(MDN1,U)=""S"""
^XMB(3.9,73,2,4587,0)="""RTN"",""MDSTATU"",24,0)"
^XMB(3.9,73,2,4588,0)=" ..I $P(MDF,U)=694 Q:$P(MDN1,U)=""S"""
^XMB(3.9,73,2,4589,0)="""RTN"",""MDSTATU"",25,0)"
^XMB(3.9,73,2,4590,0)=" ..I $P(MDF,U)=699.5 Q:$P(MDN1,U)=""P"""
^XMB(3.9,73,2,4591,0)="""RTN"",""MDSTATU"",26,0)"
^XMB(3.9,73,2,4592,0)=" ..S MDV=""HISTORICAL ""_TIT_$S(TIT[""PROCEDURE"":"""",1:"" PROCEDURE"")"
^XMB(3.9,73,2,4593,0)="""RTN"",""MDSTATU"",27,0)"
^XMB(3.9,73,2,4594,0)=" ..S:$L(MDV)>60 MDV=$E(MDV,1,60)"
^XMB(3.9,73,2,4595,0)="""RTN"",""MDSTATU"",28,0)"
^XMB(3.9,73,2,4596,0)=" ..Q:+$$FIND1^DIC(MDFIL,"""",""BOX"",MDV,""B"","""",""MDERR"")"
^XMB(3.9,73,2,4597,0)="""RTN"",""MDSTATU"",29,0)"
^XMB(3.9,73,2,4598,0)=" ..W !,TIT,?35,MDV"
^XMB(3.9,73,2,4599,0)="""RTN"",""MDSTATU"",30,0)"
^XMB(3.9,73,2,4600,0)=" I 'CNT W !!,""No Historical TIU titles need to be created."""
^XMB(3.9,73,2,4601,0)="""RTN"",""MDSTATU"",31,0)"
^XMB(3.9,73,2,4602,0)=" W ! Q"
^XMB(3.9,73,2,4603,0)="""RTN"",""MDSTATU"",32,0)"
^XMB(3.9,73,2,4604,0)="PAUSE ; Pause For Scroll"
^XMB(3.9,73,2,4605,0)="""RTN"",""MDSTATU"",33,0)"
^XMB(3.9,73,2,4606,0)=" I IOST?1""C"".E R !!,""Press RETURN to continue. "",X:DTIME S:'$T!(X[""^"") ANS=""^"" Q:ANS=""^""  I ""^""'[X W !,""Enter a RETURN to Continue."" G PAUSE"
^XMB(3.9,73,2,4607,0)="""RTN"",""MDSTATU"",34,0)"
^XMB(3.9,73,2,4608,0)=" Q"
^XMB(3.9,73,2,4609,0)="""RTN"",""MDSTATU"",35,0)"
^XMB(3.9,73,2,4610,0)="DTP ; Printable Date/Time"
^XMB(3.9,73,2,4611,0)="""RTN"",""MDSTATU"",36,0)"
^XMB(3.9,73,2,4612,0)=" S %=DTP,DTP=$J(+$E(DTP,6,7),2)_""-""_$P(""Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec"","" "",+$E(DTP,4,5))_""-""_$E(DTP,2,3)"
^XMB(3.9,73,2,4613,0)="""RTN"",""MDSTATU"",37,0)"
^XMB(3.9,73,2,4614,0)=" S:%#1 %=+$E(%_""0"",9,10)_""^""_$E(%_""000"",11,12),DTP=DTP_$J($S(%>12:%-12,1:+%),3)_"":""_$P(%,""^"",2)_$S(%<12:""am"",%<24:""pm"",1:""m"") K % Q"
^XMB(3.9,73,2,4615,0)="""RTN"",""MDSTATU"",38,0)"
^XMB(3.9,73,2,4616,0)="HDR ; Display Header and Scroll Pause"
^XMB(3.9,73,2,4617,0)="""RTN"",""MDSTATU"",39,0)"
^XMB(3.9,73,2,4618,0)=" D PAUSE Q:ANS=""^"""
^XMB(3.9,73,2,4619,0)="""RTN"",""MDSTATU"",40,0)"
^XMB(3.9,73,2,4620,0)="H1 ; Print Header"
^XMB(3.9,73,2,4621,0)="""RTN"",""MDSTATU"",41,0)"
^XMB(3.9,73,2,4622,0)=" W:'($E(IOST,1,2)'=""C-""&'PG) @IOF"
^XMB(3.9,73,2,4623,0)="""RTN"",""MDSTATU"",42,0)"
^XMB(3.9,73,2,4624,0)=" D NOW^%DTC S MDX=%"
^XMB(3.9,73,2,4625,0)="""RTN"",""MDSTATU"",43,0)"
^XMB(3.9,73,2,4626,0)=" S PG=PG+1,DTP=MDX D DTP W !,DTP,?20,""L I S T   O F   T I U   T I T L E S   N E E D E D"",?73,""Page "",PG"
^XMB(3.9,73,2,4627,0)="""RTN"",""MDSTATU"",44,0)"
^XMB(3.9,73,2,4628,0)=" W ! S $P(LN,""-"",80)="""" W !,LN,!"
^XMB(3.9,73,2,4629,0)="""RTN"",""MDSTATU"",45,0)"
^XMB(3.9,73,2,4630,0)=" W !,""PROCEDURES"",?35,""Titles Needed to be Created"""
^XMB(3.9,73,2,4631,0)="""RTN"",""MDSTATU"",46,0)"
^XMB(3.9,73,2,4632,0)=" W !,""----------"",?35,""---------------------------"",!"
^XMB(3.9,73,2,4633,0)="""RTN"",""MDSTATU"",47,0)"
^XMB(3.9,73,2,4634,0)=" Q"
^XMB(3.9,73,2,4635,0)="""RTN"",""MDSTATU"",48,0)"
^XMB(3.9,73,2,4636,0)="SETDEF ; Set default CP Definitions in Conversion Parameter"
^XMB(3.9,73,2,4637,0)="""RTN"",""MDSTATU"",49,0)"
^XMB(3.9,73,2,4638,0)=" N MDERR,MDDIEN,MDK,MDF,MDFC,MDFIL,MDFDA,MDLP,MDN,MDNAM,MDOPT,MDR,MDS,MDTAR,MDNAM,MDX,MDY S MDFIL=8925.1 K MDTAR"
^XMB(3.9,73,2,4639,0)="""RTN"",""MDSTATU"",50,0)"
^XMB(3.9,73,2,4640,0)=" F MDX=1:1 S MDOPT=$P($T(MEDTIT+MDX),"";;"",2) Q:MDOPT=""**END**""  D"
^XMB(3.9,73,2,4641,0)="""RTN"",""MDSTATU"",51,0)"
^XMB(3.9,73,2,4642,0)=" .S MDS=$P(MDOPT,"";"",2)"
^XMB(3.9,73,2,4643,0)="""RTN"",""MDSTATU"",52,0)"
^XMB(3.9,73,2,4644,0)=" .S MDY=+$$FIND1^DIC(MDFIL,"""",""BOX"",MDS,""B"","""",""MDERR"") Q:'MDY"
^XMB(3.9,73,2,4645,0)="""RTN"",""MDSTATU"",53,0)"
^XMB(3.9,73,2,4646,0)=" .S MDTAR(+MDOPT)=+MDY"
^XMB(3.9,73,2,4647,0)="""RTN"",""MDSTATU"",54,0)"
^XMB(3.9,73,2,4648,0)=" S MDLP=0 F  S MDLP=$O(^MDD(703.9,1,1,MDLP)) Q:MDLP<1  S MDF=$G(^(MDLP,0)) D"
^XMB(3.9,73,2,4649,0)="""RTN"",""MDSTATU"",55,0)"
^XMB(3.9,73,2,4650,0)=" .S MDFC=+$P(MDF,U)  Q:'MDFC  S MDR=""MCAR(""_MDFC"
^XMB(3.9,73,2,4651,0)="""RTN"",""MDSTATU"",56,0)"
^XMB(3.9,73,2,4652,0)=" .Q:MDFC=699"
^XMB(3.9,73,2,4653,0)="""RTN"",""MDSTATU"",57,0)"
^XMB(3.9,73,2,4654,0)=" .Q:MDFC=699.5"
^XMB(3.9,73,2,4655,0)="""RTN"",""MDSTATU"",58,0)"
^XMB(3.9,73,2,4656,0)=" .Q:MDFC=694"
^XMB(3.9,73,2,4657,0)="""RTN"",""MDSTATU"",59,0)"
^XMB(3.9,73,2,4658,0)=" .S (MDK,MDN)=0,MDNAM="""" F  S MDN=$O(^MCAR(697.2,""C"",MDR,MDN)) Q:MDN<1  I $G(^MCAR(697.2,MDN,0))'="""" D"
^XMB(3.9,73,2,4659,0)="""RTN"",""MDSTATU"",60,0)"
^XMB(3.9,73,2,4660,0)=" ..S MDK=$G(^MCAR(697.2,MDN,0)),MDNAM=$S($P(MDK,U,8)'="""":$P(MDK,U,8),1:$P(MDK,U)),MDNAM=$$UP^XLFSTR(MDNAM)"
^XMB(3.9,73,2,4661,0)="""RTN"",""MDSTATU"",61,0)"
^XMB(3.9,73,2,4662,0)=" .I MDNAM=""""&(+$P(MDF,U)=694.5) S MDNAM=""CARDIAC SURGERY RISK ASSESSMENT"""
^XMB(3.9,73,2,4663,0)="""RTN"",""MDSTATU"",62,0)"
^XMB(3.9,73,2,4664,0)=" .Q:MDNAM="""""
^XMB(3.9,73,2,4665,0)="""RTN"",""MDSTATU"",63,0)"
^XMB(3.9,73,2,4666,0)=" .S:$L(MDNAM)<30 MDNAM=MDNAM_"" - HIST"""
^XMB(3.9,73,2,4667,0)="""RTN"",""MDSTATU"",64,0)"
^XMB(3.9,73,2,4668,0)=" .S:$L(MDNAM)>30 MDNAM=$E(MDNAM,1,30)"
^XMB(3.9,73,2,4669,0)="""RTN"",""MDSTATU"",65,0)"
^XMB(3.9,73,2,4670,0)=" .I '$O(^MDS(702.01,""B"",MDNAM,0)) D"
^XMB(3.9,73,2,4671,0)="""RTN"",""MDSTATU"",66,0)"
^XMB(3.9,73,2,4672,0)=" ..Q:$P(MDF,U,2)'="""""
^XMB(3.9,73,2,4673,0)="""RTN"",""MDSTATU"",67,0)"
^XMB(3.9,73,2,4674,0)=" ..K MDERR,MDDIEN"
^XMB(3.9,73,2,4675,0)="""RTN"",""MDSTATU"",68,0)"
^XMB(3.9,73,2,4676,0)=" ..S MDFDA(702.01,""+1,"",.01)=MDNAM"
^XMB(3.9,73,2,4677,0)="""RTN"",""MDSTATU"",69,0)"
^XMB(3.9,73,2,4678,0)=" ..D UPDATE^DIE("""",""MDFDA"",""MDDIEN"",""MDERR"") Q:$D(MDERR)"
^XMB(3.9,73,2,4679,0)="""RTN"",""MDSTATU"",70,0)"
^XMB(3.9,73,2,4680,0)=" ..S:+MDDIEN(1) $P(^MDD(703.9,1,1,MDLP,0),U,2)=+MDDIEN(1)"
^XMB(3.9,73,2,4681,0)="""RTN"",""MDSTATU"",71,0)"
^XMB(3.9,73,2,4682,0)=" .I $P(MDF,U,5)="""" S:+$G(MDTAR(MDFC)) $P(^MDD(703.9,1,1,MDLP,0),U,5)=+$G(MDTAR(MDFC))"
^XMB(3.9,73,2,4683,0)="""RTN"",""MDSTATU"",72,0)"
^XMB(3.9,73,2,4684,0)=" Q"
^XMB(3.9,73,2,4685,0)="""RTN"",""MDSTATU"",73,0)"
^XMB(3.9,73,2,4686,0)="GETMED(MDMNO,MDTYPE) ; Get the Medicine Procedure name"
^XMB(3.9,73,2,4687,0)="""RTN"",""MDSTATU"",74,0)"
^XMB(3.9,73,2,4688,0)=" N MDI,MDMF,MDLL,MDLL1,MDLL6,MDLL8,MDNA"
^XMB(3.9,73,2,4689,0)="""RTN"",""MDSTATU"",75,0)"
^XMB(3.9,73,2,4690,0)=" S MDNA="""""
^XMB(3.9,73,2,4691,0)="""RTN"",""MDSTATU"",76,0)"
^XMB(3.9,73,2,4692,0)=" Q:MDTYPE="""" MDNA"
^XMB(3.9,73,2,4693,0)="""RTN"",""MDSTATU"",77,0)"
^XMB(3.9,73,2,4694,0)=" Q:'+MDMNO MDNA"
^XMB(3.9,73,2,4695,0)="""RTN"",""MDSTATU"",78,0)"
^XMB(3.9,73,2,4696,0)=" S MDI=+MDMNO,MDMF=+$P(MDMNO,""MCAR("",2) Q:'MDMF MDNA"
^XMB(3.9,73,2,4697,0)="""RTN"",""MDSTATU"",79,0)"
^XMB(3.9,73,2,4698,0)=" I MDMF=699 D"
^XMB(3.9,73,2,4699,0)="""RTN"",""MDSTATU"",80,0)"
^XMB(3.9,73,2,4700,0)=" .S (MDLL,MDLL1)=$P($G(^MCAR(699,+MDI,0)),U,12) Q:'MDLL"
^XMB(3.9,73,2,4701,0)="""RTN"",""MDSTATU"",81,0)"
^XMB(3.9,73,2,4702,0)=" .S MDLL=$G(^MCAR(697.2,MDLL,0)) Q:MDLL="""""
^XMB(3.9,73,2,4703,0)="""RTN"",""MDSTATU"",82,0)"
^XMB(3.9,73,2,4704,0)=" .S MDNA=$S($P(MDLL,U,8)'="""":$P(MDLL,U,8),1:$P(MDLL,U)) Q"
^XMB(3.9,73,2,4705,0)="""RTN"",""MDSTATU"",83,0)"
^XMB(3.9,73,2,4706,0)=" I MDMF=699.5 D"
^XMB(3.9,73,2,4707,0)="""RTN"",""MDSTATU"",84,0)"
^XMB(3.9,73,2,4708,0)=" .S MDLL6=$P($G(^MCAR(699.5,+MDI,0)),U,6) Q:'MDLL6"
^XMB(3.9,73,2,4709,0)="""RTN"",""MDSTATU"",85,0)"
^XMB(3.9,73,2,4710,0)=" .S MDLL8=$P($G(^MCAR(699.5,+MDI,0)),U,8) S:MDLL8="""" MDLL8="" """
^XMB(3.9,73,2,4711,0)="""RTN"",""MDSTATU"",86,0)"
^XMB(3.9,73,2,4712,0)=" .S MDLL=$G(^MCAR(697.2,MDLL6,0)) Q:MDLL="""""
^XMB(3.9,73,2,4713,0)="""RTN"",""MDSTATU"",87,0)"
^XMB(3.9,73,2,4714,0)=" .I MDTYPE=""N"" S MDNA=$S($P(MDLL,U,8)'="""":$P(MDLL,U,8),1:$P(MDLL,U)) Q"
^XMB(3.9,73,2,4715,0)="""RTN"",""MDSTATU"",88,0)"
^XMB(3.9,73,2,4716,0)=" .I MDTYPE=""P"" S MDNA=$E(($E($P(MDLL,U,8),1,13)_""/""_$P($G(^MCAR(697.2,+MDLL8,0)),U)),1,30)"
^XMB(3.9,73,2,4717,0)="""RTN"",""MDSTATU"",89,0)"
^XMB(3.9,73,2,4718,0)=" I MDMF=694 D"
^XMB(3.9,73,2,4719,0)="""RTN"",""MDSTATU"",90,0)"
^XMB(3.9,73,2,4720,0)=" .S MDLL=$P($G(^MCAR(694,MDI,0)),U,3) Q:'MDLL"
^XMB(3.9,73,2,4721,0)="""RTN"",""MDSTATU"",91,0)"
^XMB(3.9,73,2,4722,0)=" .S MDLL=$G(^MCAR(697.2,MDLL,0)) Q:MDLL="""""
^XMB(3.9,73,2,4723,0)="""RTN"",""MDSTATU"",92,0)"
^XMB(3.9,73,2,4724,0)=" .S MDNA=$S($P(MDLL,U,8)'="""":$P(MDLL,U,8),1:$P(MDLL,U)) Q"
^XMB(3.9,73,2,4725,0)="""RTN"",""MDSTATU"",93,0)"
^XMB(3.9,73,2,4726,0)=" S:MDNA'="""" MDNA=$$UP^XLFSTR(MDNA)"
^XMB(3.9,73,2,4727,0)="""RTN"",""MDSTATU"",94,0)"
^XMB(3.9,73,2,4728,0)=" Q MDNA"
^XMB(3.9,73,2,4729,0)="""RTN"",""MDSTATU"",95,0)"
^XMB(3.9,73,2,4730,0)="LOCATP(MDNNO) ; Locate the CP Definition procedure or Add the New Entry"
^XMB(3.9,73,2,4731,0)="""RTN"",""MDSTATU"",96,0)"
^XMB(3.9,73,2,4732,0)=" N MDDIEN,MDERR,MDFDA,MDNM,Y S Y=0"
^XMB(3.9,73,2,4733,0)="""RTN"",""MDSTATU"",97,0)"
^XMB(3.9,73,2,4734,0)=" Q:'+MDNNO 0  S MDMNO=MDNNO"
^XMB(3.9,73,2,4735,0)="""RTN"",""MDSTATU"",98,0)"
^XMB(3.9,73,2,4736,0)=" S MDNM=$$GETMED(MDMNO,""P"") Q:MDNM="""" Y"
^XMB(3.9,73,2,4737,0)="""RTN"",""MDSTATU"",99,0)"
^XMB(3.9,73,2,4738,0)=" S MDNM=MDNM_"" - HIST"" S:$L(MDNM)>30 MDNM=$E(MDNM,1,30)"
^XMB(3.9,73,2,4739,0)="""RTN"",""MDSTATU"",100,0)"
^XMB(3.9,73,2,4740,0)=" S Y=$O(^MDS(702.01,""B"",MDNM,0)) Q:+Y Y"
^XMB(3.9,73,2,4741,0)="""RTN"",""MDSTATU"",101,0)"
^XMB(3.9,73,2,4742,0)=" S MDFDA(702.01,""+1,"",.01)=MDNM"
^XMB(3.9,73,2,4743,0)="""RTN"",""MDSTATU"",102,0)"
^XMB(3.9,73,2,4744,0)=" D UPDATE^DIE("""",""MDFDA"",""MDDIEN"",""MDERR"") Q:$D(MDERR)"
^XMB(3.9,73,2,4745,0)="""RTN"",""MDSTATU"",103,0)"
^XMB(3.9,73,2,4746,0)=" S Y=+MDDIEN(1)"
^XMB(3.9,73,2,4747,0)="""RTN"",""MDSTATU"",104,0)"
^XMB(3.9,73,2,4748,0)=" Q Y"
^XMB(3.9,73,2,4749,0)="""RTN"",""MDSTATU"",105,0)"
^XMB(3.9,73,2,4750,0)="LOCATN(MDNNO) ; Locate the Historical Document Title"
^XMB(3.9,73,2,4751,0)="""RTN"",""MDSTATU"",106,0)"
^XMB(3.9,73,2,4752,0)=" N MDDIEN,MDERR,MDFDA,MDNM,MDT,MDV,Y S Y=0,MDV=8925.1"
^XMB(3.9,73,2,4753,0)="""RTN"",""MDSTATU"",107,0)"
^XMB(3.9,73,2,4754,0)=" Q:'+MDNNO 0  S MDMNO=MDNNO"
^XMB(3.9,73,2,4755,0)="""RTN"",""MDSTATU"",108,0)"
^XMB(3.9,73,2,4756,0)=" S MDNM=$$GETMED(MDMNO,""N"") Q:MDNM="""" Y"
^XMB(3.9,73,2,4757,0)="""RTN"",""MDSTATU"",109,0)"
^XMB(3.9,73,2,4758,0)=" S MDT=""HISTORICAL ""_MDNM_$S(MDNM[""PROCEDURE"":"""",1:"" PROCEDURE"")"
^XMB(3.9,73,2,4759,0)="""RTN"",""MDSTATU"",110,0)"
^XMB(3.9,73,2,4760,0)=" S Y=+$$FIND1^DIC(MDV,"""",""BOX"",MDT,""B"","""",""MDERR"")"
^XMB(3.9,73,2,4761,0)="""RTN"",""MDSTATU"",111,0)"
^XMB(3.9,73,2,4762,0)=" Q Y"
^XMB(3.9,73,2,4763,0)="""RTN"",""MDSTATU"",112,0)"
^XMB(3.9,73,2,4764,0)="HOSP(MDNNO) ; Locate the Hospital Location"
^XMB(3.9,73,2,4765,0)="""RTN"",""MDSTATU"",113,0)"
^XMB(3.9,73,2,4766,0)=" N MDERR,MDI,MDMF,MDOPT,MDL,MDS,MDTAR,MDV,MDW,MDW1,MDX"
^XMB(3.9,73,2,4767,0)="""RTN"",""MDSTATU"",114,0)"
^XMB(3.9,73,2,4768,0)=" S MDL=0 K MDTAR"
^XMB(3.9,73,2,4769,0)="""RTN"",""MDSTATU"",115,0)"
^XMB(3.9,73,2,4770,0)=" Q:'+MDNNO MDL"
^XMB(3.9,73,2,4771,0)="""RTN"",""MDSTATU"",116,0)"
^XMB(3.9,73,2,4772,0)=" S MDI=+MDNNO,MDMF=+$P(MDNNO,""MCAR("",2) Q:'MDMF MDL"
^XMB(3.9,73,2,4773,0)="""RTN"",""MDSTATU"",117,0)"
^XMB(3.9,73,2,4774,0)=" F MDX=1:1 S MDOPT=$P($T(MEDTIT+MDX),"";;"",2) Q:MDOPT=""**END**""  D"
^XMB(3.9,73,2,4775,0)="""RTN"",""MDSTATU"",118,0)"
^XMB(3.9,73,2,4776,0)=" .S MDS=$P(MDOPT,"";"",3,4)"
^XMB(3.9,73,2,4777,0)="""RTN"",""MDSTATU"",119,0)"
^XMB(3.9,73,2,4778,0)=" .S MDTAR(+MDOPT)=MDS"
^XMB(3.9,73,2,4779,0)="""RTN"",""MDSTATU"",120,0)"
^XMB(3.9,73,2,4780,0)=" S MDS=$G(MDTAR(MDMF))"
^XMB(3.9,73,2,4781,0)="""RTN"",""MDSTATU"",121,0)"
^XMB(3.9,73,2,4782,0)=" S:+$P(MDS,"";"",2) MDL=$P($G(^MCAR(MDMF,MDI,$P(MDS,"";""))),""^"",+$P(MDS,"";"",2))"
^XMB(3.9,73,2,4783,0)="""RTN"",""MDSTATU"",122,0)"
^XMB(3.9,73,2,4784,0)=" I 'MDL D"
^XMB(3.9,73,2,4785,0)="""RTN"",""MDSTATU"",123,0)"
^XMB(3.9,73,2,4786,0)=" .S DFN=+$P($G(^MCAR(MDMF,MDI,0)),U,2),VAIP(""D"")=$P($G(^MCAR(MDMF,MDI,0)),U,1)"
^XMB(3.9,73,2,4787,0)="""RTN"",""MDSTATU"",124,0)"
^XMB(3.9,73,2,4788,0)=" .D IN5^VADPT S MDW=+VAIP(5) D KVAR^VADPT S:MDW MDL=+$P($G(^DIC(42,+MDW,44)),U)"
^XMB(3.9,73,2,4789,0)="""RTN"",""MDSTATU"",125,0)"
^XMB(3.9,73,2,4790,0)=" .I 'MDL S MDW=$G(^DPT(DFN,.1)) I MDW'="""" S MDV=42,MDW1=$$FIND1^DIC(MDV,"""",""BOX"",MDW,""B"","""",""MDERR"") S:MDW1 MDL=+$P($G(^DIC(42,+MDW1,44)),U)"
^XMB(3.9,73,2,4791,0)="""RTN"",""MDSTATU"",126,0)"
^XMB(3.9,73,2,4792,0)=" Q MDL"
^XMB(3.9,73,2,4793,0)="""RTN"",""MDSTATU"",127,0)"
^XMB(3.9,73,2,4794,0)="MEDTIT ;; [Medicine Historical Document Titles]"
^XMB(3.9,73,2,4795,0)="""RTN"",""MDSTATU"",128,0)"
^XMB(3.9,73,2,4796,0)=" ;;691.1;HISTORICAL CARDIAC CATHETERIZATION PROCEDURE;0;6"
^XMB(3.9,73,2,4797,0)="""RTN"",""MDSTATU"",129,0)"
^XMB(3.9,73,2,4798,0)=" ;;691;HISTORICAL ECHOCARDIOGRAM PROCEDURE;11;2"
^XMB(3.9,73,2,4799,0)="""RTN"",""MDSTATU"",130,0)"
^XMB(3.9,73,2,4800,0)=" ;;691.5;HISTORICAL ELECTROCARDIOGRAM PROCEDURE;8;1"
^XMB(3.9,73,2,4801,0)="""RTN"",""MDSTATU"",131,0)"
^XMB(3.9,73,2,4802,0)=" ;;691.8;HISTORICAL ELECTROPHYSIOLOGY PROCEDURE;15;3"
^XMB(3.9,73,2,4803,0)="""RTN"",""MDSTATU"",132,0)"
^XMB(3.9,73,2,4804,0)=" ;;691.7;HISTORICAL EXERCISE TOLERANCE TEST PROCEDURE;10;5"
^XMB(3.9,73,2,4805,0)="""RTN"",""MDSTATU"",133,0)"
^XMB(3.9,73,2,4806,0)=" ;;691.6;HISTORICAL HOLTER PROCEDURE;0;18"
^XMB(3.9,73,2,4807,0)="""RTN"",""MDSTATU"",134,0)"
^XMB(3.9,73,2,4808,0)=" ;;698;HISTORICAL PACEMAKER IMPLANTATION PROCEDURE"
^XMB(3.9,73,2,4809,0)="""RTN"",""MDSTATU"",135,0)"
^XMB(3.9,73,2,4810,0)=" ;;698.1;HISTORICAL PACEMAKER IMPLANTATION PROCEDURE"
^XMB(3.9,73,2,4811,0)="""RTN"",""MDSTATU"",136,0)"
^XMB(3.9,73,2,4812,0)=" ;;698.2;HISTORICAL PACEMAKER IMPLANTATION PROCEDURE"
^XMB(3.9,73,2,4813,0)="""RTN"",""MDSTATU"",137,0)"
^XMB(3.9,73,2,4814,0)=" ;;698.3;HISTORICAL PACEMAKER IMPLANTATION PROCEDURE"
^XMB(3.9,73,2,4815,0)="""RTN"",""MDSTATU"",138,0)"
^XMB(3.9,73,2,4816,0)=" ;;694.5;HISTORICAL PRE/POST SURGERY RISK NOTE"
^XMB(3.9,73,2,4817,0)="""RTN"",""MDSTATU"",139,0)"
^XMB(3.9,73,2,4818,0)=" ;;694; ;0;4"
^XMB(3.9,73,2,4819,0)="""RTN"",""MDSTATU"",140,0)"
^XMB(3.9,73,2,4820,0)=" ;;699; ;0;11"
^XMB(3.9,73,2,4821,0)="""RTN"",""MDSTATU"",141,0)"
^XMB(3.9,73,2,4822,0)=" ;;700;HISTORICAL PULMONARY FUNCTION TEST PROCEDURE;0;10"
^XMB(3.9,73,2,4823,0)="""RTN"",""MDSTATU"",142,0)"
^XMB(3.9,73,2,4824,0)=" ;;701;HISTORICAL RHEUMATOLOGY PROCEDURE"
^XMB(3.9,73,2,4825,0)="""RTN"",""MDSTATU"",143,0)"
^XMB(3.9,73,2,4826,0)=" ;;**END**"
^XMB(3.9,73,2,4827,0)="""SEC"",""^DD"",703.9,703.9,1,8)"
^XMB(3.9,73,2,4828,0)=""
^XMB(3.9,73,2,4829,0)="""SEC"",""^DD"",703.9,703.9,1,9)"
^XMB(3.9,73,2,4830,0)=""
^XMB(3.9,73,2,4831,0)="""SEC"",""^DIC"",703.9,703.9,0,""AUDIT"")"
^XMB(3.9,73,2,4832,0)="#"
^XMB(3.9,73,2,4833,0)="""SEC"",""^DIC"",703.9,703.9,0,""DD"")"
^XMB(3.9,73,2,4834,0)="@"
^XMB(3.9,73,2,4835,0)="""SEC"",""^DIC"",703.9,703.9,0,""DEL"")"
^XMB(3.9,73,2,4836,0)="#"
^XMB(3.9,73,2,4837,0)="""SEC"",""^DIC"",703.9,703.9,0,""LAYGO"")"
^XMB(3.9,73,2,4838,0)="#"
^XMB(3.9,73,2,4839,0)="""SEC"",""^DIC"",703.9,703.9,0,""RD"")"
^XMB(3.9,73,2,4840,0)="#"
^XMB(3.9,73,2,4841,0)="""SEC"",""^DIC"",703.9,703.9,0,""WR"")"
^XMB(3.9,73,2,4842,0)="#"
^XMB(3.9,73,2,4843,0)="""VER"")"
^XMB(3.9,73,2,4844,0)="8.0^22.0"
^XMB(3.9,73,2,4845,0)="""^DD"",702,702,.3,0)"
^XMB(3.9,73,2,4846,0)="CONVERSION ID REFERENCE^F^^2;1^K:$L(X)>30!($L(X)<1) X"
^XMB(3.9,73,2,4847,0)="""^DD"",702,702,.3,1,0)"
^XMB(3.9,73,2,4848,0)="^.1"
^XMB(3.9,73,2,4849,0)="""^DD"",702,702,.3,1,1,0)"
^XMB(3.9,73,2,4850,0)="702^ACONV"
^XMB(3.9,73,2,4851,0)="""^DD"",702,702,.3,1,1,1)"
^XMB(3.9,73,2,4852,0)="S ^MDD(702,""ACONV"",$E(X,1,30),DA)="""""
^XMB(3.9,73,2,4853,0)="""^DD"",702,702,.3,1,1,2)"
^XMB(3.9,73,2,4854,0)="K ^MDD(702,""ACONV"",$E(X,1,30),DA)"
^XMB(3.9,73,2,4855,0)="""^DD"",702,702,.3,1,1,3)"
^XMB(3.9,73,2,4856,0)="Do Not Delete."
^XMB(3.9,73,2,4857,0)="""^DD"",702,702,.3,1,1,""%D"",0)"
^XMB(3.9,73,2,4858,0)="^.101^3^3^3040920^^^"
^XMB(3.9,73,2,4859,0)="""^DD"",702,702,.3,1,1,""%D"",1,0)"
^XMB(3.9,73,2,4860,0)="This cross reference is used to keep track of which CP transaction study was"
^XMB(3.9,73,2,4861,0)="""^DD"",702,702,.3,1,1,""%D"",2,0)"
^XMB(3.9,73,2,4862,0)="created during the Medicine report conversion and which Medicine record it is"
^XMB(3.9,73,2,4863,0)="""^DD"",702,702,.3,1,1,""%D"",3,0)"
^XMB(3.9,73,2,4864,0)="asscoaited with."
^XMB(3.9,73,2,4865,0)="""^DD"",702,702,.3,1,1,""DT"")"
^XMB(3.9,73,2,4866,0)="3040920"
^XMB(3.9,73,2,4867,0)="""^DD"",702,702,.3,3)"
^XMB(3.9,73,2,4868,0)="Answer must be 1-30 characters in length."
^XMB(3.9,73,2,4869,0)="""^DD"",702,702,.3,21,0)"
^XMB(3.9,73,2,4870,0)="^.001^22^22^3040923^^^^"
^XMB(3.9,73,2,4871,0)="""^DD"",702,702,.3,21,1,0)"
^XMB(3.9,73,2,4872,0)="This field is the Reference Conversion ID.  It is a variable pointer"
^XMB(3.9,73,2,4873,0)="""^DD"",702,702,.3,21,2,0)"
^XMB(3.9,73,2,4874,0)="to the Medicine files.  It indicates which converted Medicine report record"
^XMB(3.9,73,2,4875,0)="""^DD"",702,702,.3,21,3,0)"
^XMB(3.9,73,2,4876,0)="is associated with the CP Transaction study.  This field helps to keep track"
^XMB(3.9,73,2,4877,0)="""^DD"",702,702,.3,21,4,0)"
^XMB(3.9,73,2,4878,0)="which CP Transaction study was created for the Medicine report conversion."
^XMB(3.9,73,2,4879,0)="""^DD"",702,702,.3,21,5,0)"
^XMB(3.9,73,2,4880,0)="This field is a variable pointer to the following files:"
^XMB(3.9,73,2,4881,0)="""^DD"",702,702,.3,21,6,0)"
^XMB(3.9,73,2,4882,0)="                                                                  "
^XMB(3.9,73,2,4883,0)="""^DD"",702,702,.3,21,7,0)"
^XMB(3.9,73,2,4884,0)="691   ECHO                                   "
^XMB(3.9,73,2,4885,0)="""^DD"",702,702,.3,21,8,0)"
^XMB(3.9,73,2,4886,0)="691.1 CARDIAC CATHETERIZATION                  "
^XMB(3.9,73,2,4887,0)="""^DD"",702,702,.3,21,9,0)"
^XMB(3.9,73,2,4888,0)="691.5 ELECTROCARDIOGRAM (EKG)                  "
^XMB(3.9,73,2,4889,0)="""^DD"",702,702,.3,21,10,0)"
^XMB(3.9,73,2,4890,0)="691.6 HOLTER                               "
^XMB(3.9,73,2,4891,0)="""^DD"",702,702,.3,21,11,0)"
^XMB(3.9,73,2,4892,0)="691.7 EXERCISE TOLERANCE TEST                  "
^XMB(3.9,73,2,4893,0)="""^DD"",702,702,.3,21,12,0)"
^XMB(3.9,73,2,4894,0)="691.8 ELECTROPHYSIOLOGY (EP)                   "
^XMB(3.9,73,2,4895,0)="""^DD"",702,702,.3,21,13,0)"
^XMB(3.9,73,2,4896,0)="694   HEMATOLOGY                            "
^XMB(3.9,73,2,4897,0)="""^DD"",702,702,.3,21,14,0)"
^XMB(3.9,73,2,4898,0)="694.5 CARDIAC SURGERY RISK ASSESSMENT          "
^XMB(3.9,73,2,4899,0)="""^DD"",702,702,.3,21,15,0)"
^XMB(3.9,73,2,4900,0)="698   GENERATOR IMPLANT                        "
^XMB(3.9,73,2,4901,0)="""^DD"",702,702,.3,21,16,0)"
^XMB(3.9,73,2,4902,0)="698.1 V LEAD IMPLANT                          "
^XMB(3.9,73,2,4903,0)="""^DD"",702,702,.3,21,17,0)"
^XMB(3.9,73,2,4904,0)="698.2 A LEAD IMPLANT                       "
^XMB(3.9,73,2,4905,0)="""^DD"",702,702,.3,21,18,0)"
^XMB(3.9,73,2,4906,0)="698.3 PACEMAKER SURVEILLANCE                   "
^XMB(3.9,73,2,4907,0)="""^DD"",702,702,.3,21,19,0)"
^XMB(3.9,73,2,4908,0)="699   ENDOSCOPY/CONSULT                          "
^XMB(3.9,73,2,4909,0)="""^DD"",702,702,.3,21,20,0)"
^XMB(3.9,73,2,4910,0)="699.5 GENERALIZED PROCEDURE/CONSULT              "
^XMB(3.9,73,2,4911,0)="""^DD"",702,702,.3,21,21,0)"
^XMB(3.9,73,2,4912,0)="700   PULMONARY FUNCTION TESTS                   "
^XMB(3.9,73,2,4913,0)="""^DD"",702,702,.3,21,22,0)"
^XMB(3.9,73,2,4914,0)="701   RHEUMATOLOGY           "
^XMB(3.9,73,2,4915,0)="""^DD"",702,702,.3,""DT"")"
^XMB(3.9,73,2,4916,0)="3040920"
^XMB(3.9,73,2,4917,0)="""^DD"",703.9,703.9,0)"
^XMB(3.9,73,2,4918,0)="FIELD^^2^6"
^XMB(3.9,73,2,4919,0)="""^DD"",703.9,703.9,0,""DDA"")"
^XMB(3.9,73,2,4920,0)="N"
^XMB(3.9,73,2,4921,0)="""^DD"",703.9,703.9,0,""DT"")"
^XMB(3.9,73,2,4922,0)="3040915"
^XMB(3.9,73,2,4923,0)="""^DD"",703.9,703.9,0,""IX"",""B"",703.9,.01)"
^XMB(3.9,73,2,4924,0)=""
^XMB(3.9,73,2,4925,0)="""^DD"",703.9,703.9,0,""NM"",""CP CONVERSION"")"
^XMB(3.9,73,2,4926,0)=""
^XMB(3.9,73,2,4927,0)="""^DD"",703.9,703.9,0,""SCR"")"
^XMB(3.9,73,2,4928,0)="I +Y=1"
^XMB(3.9,73,2,4929,0)="""^DD"",703.9,703.9,0,""VRPK"")"
^XMB(3.9,73,2,4930,0)="MD"
^XMB(3.9,73,2,4931,0)="""^DD"",703.9,703.9,.01,0)"
^XMB(3.9,73,2,4932,0)="NAME^RFX^^0;1^K X"
^XMB(3.9,73,2,4933,0)="""^DD"",703.9,703.9,.01,1,0)"
^XMB(3.9,73,2,4934,0)="^.1"
^XMB(3.9,73,2,4935,0)="""^DD"",703.9,703.9,.01,1,1,0)"
^XMB(3.9,73,2,4936,0)="703.9^B"
^XMB(3.9,73,2,4937,0)="""^DD"",703.9,703.9,.01,1,1,1)"
^XMB(3.9,73,2,4938,0)="S ^MDD(703.9,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,73,2,4939,0)="""^DD"",703.9,703.9,.01,1,1,2)"
^XMB(3.9,73,2,4940,0)="K ^MDD(703.9,""B"",$E(X,1,30),DA)"
^XMB(3.9,73,2,4941,0)="""^DD"",703.9,703.9,.01,3)"
^XMB(3.9,73,2,4942,0)="This field is only accessible via the conversion routine."
^XMB(3.9,73,2,4943,0)="""^DD"",703.9,703.9,.01,21,0)"
^XMB(3.9,73,2,4944,0)="^.001^3^3^3041109^^^^"
^XMB(3.9,73,2,4945,0)="""^DD"",703.9,703.9,.01,21,1,0)"
^XMB(3.9,73,2,4946,0)="This field contains the name of the CP conversion."
^XMB(3.9,73,2,4947,0)="""^DD"",703.9,703.9,.01,21,2,0)"
^XMB(3.9,73,2,4948,0)="It is only accessible by the CP conversion routine."
^XMB(3.9,73,2,4949,0)="""^DD"",703.9,703.9,.01,21,3,0)"
^XMB(3.9,73,2,4950,0)="It is exported with one ""DEFAULT"" entry."
^XMB(3.9,73,2,4951,0)="""^DD"",703.9,703.9,.02,0)"
^XMB(3.9,73,2,4952,0)="MODE^S^0:TEST;1:REAL;^0;2^Q"
^XMB(3.9,73,2,4953,0)="""^DD"",703.9,703.9,.02,3)"
^XMB(3.9,73,2,4954,0)="Enter 0 for Test or 1 for Real mode."
^XMB(3.9,73,2,4955,0)="""^DD"",703.9,703.9,.02,21,0)"
^XMB(3.9,73,2,4956,0)="^.001^1^1^3041109^^"
^XMB(3.9,73,2,4957,0)="""^DD"",703.9,703.9,.02,21,1,0)"
^XMB(3.9,73,2,4958,0)="This field indicates if the CP conversion is in test or real mode."
^XMB(3.9,73,2,4959,0)="""^DD"",703.9,703.9,.02,""DT"")"
^XMB(3.9,73,2,4960,0)="3030903"
^XMB(3.9,73,2,4961,0)="""^DD"",703.9,703.9,.03,0)"
^XMB(3.9,73,2,4962,0)="ADMINISTRATIVE CLOSURE USER^P200'^VA(200,^0;3^Q"
^XMB(3.9,73,2,4963,0)="""^DD"",703.9,703.9,.03,3)"
^XMB(3.9,73,2,4964,0)="Enter an Administrative Closure person."
^XMB(3.9,73,2,4965,0)="""^DD"",703.9,703.9,.03,21,0)"
^XMB(3.9,73,2,4966,0)="^^3^3^3040630^"
^XMB(3.9,73,2,4967,0)="""^DD"",703.9,703.9,.03,21,1,0)"
^XMB(3.9,73,2,4968,0)="This field points to the New Person file (#200).  It is used to"
^XMB(3.9,73,2,4969,0)="""^DD"",703.9,703.9,.03,21,2,0)"
^XMB(3.9,73,2,4970,0)="indicate the Administrative Closure person used to close the TIU"
^XMB(3.9,73,2,4971,0)="""^DD"",703.9,703.9,.03,21,3,0)"
^XMB(3.9,73,2,4972,0)="documents for the CP conversion."
^XMB(3.9,73,2,4973,0)="""^DD"",703.9,703.9,.03,""DT"")"
^XMB(3.9,73,2,4974,0)="3030923"
^XMB(3.9,73,2,4975,0)="""^DD"",703.9,703.9,.1,0)"
^XMB(3.9,73,2,4976,0)="SCRATCH HFS DIRECTORY^F^^.1;1^K:$L(X)>50!($L(X)<1) X"
^XMB(3.9,73,2,4977,0)="""^DD"",703.9,703.9,.1,3)"
^XMB(3.9,73,2,4978,0)="Answer must be 1-50 characters in length."
^XMB(3.9,73,2,4979,0)="""^DD"",703.9,703.9,.1,21,0)"
^XMB(3.9,73,2,4980,0)="^^3^3^3040630^"
^XMB(3.9,73,2,4981,0)="""^DD"",703.9,703.9,.1,21,1,0)"
^XMB(3.9,73,2,4982,0)="This field stores the scratch HFS directory used for the"
^XMB(3.9,73,2,4983,0)="""^DD"",703.9,703.9,.1,21,2,0)"
^XMB(3.9,73,2,4984,0)="CP conversion.  The CP conversion program will use this directory"
^XMB(3.9,73,2,4985,0)="""^DD"",703.9,703.9,.1,21,3,0)"
^XMB(3.9,73,2,4986,0)="to convert the Medicine reports."
^XMB(3.9,73,2,4987,0)="""^DD"",703.9,703.9,.1,""DT"")"
^XMB(3.9,73,2,4988,0)="3030103"
^XMB(3.9,73,2,4989,0)="""^DD"",703.9,703.9,1,0)"
^XMB(3.9,73,2,4990,0)="MEDICINE FILE PARAMETERS^703.91P^^1;0"
^XMB(3.9,73,2,4991,0)="""^DD"",703.9,703.9,1,21,0)"
^XMB(3.9,73,2,4992,0)="^.001^2^2^3041109^^^^"
^XMB(3.9,73,2,4993,0)="""^DD"",703.9,703.9,1,21,1,0)"
^XMB(3.9,73,2,4994,0)="This multiple contains the parameter data used for the CP conversion of the"
^XMB(3.9,73,2,4995,0)="""^DD"",703.9,703.9,1,21,2,0)"
^XMB(3.9,73,2,4996,0)="Medicine reports."
^XMB(3.9,73,2,4997,0)="""^DD"",703.9,703.9,2,0)"
^XMB(3.9,73,2,4998,0)="CONVERSION LOG^703.92^^2;0"
^XMB(3.9,73,2,4999,0)="""^DD"",703.9,703.9,2,21,0)"
^XMB(3.9,73,2,5000,0)="^.001^1^1^3040923^^"
^XMB(3.9,73,2,5001,0)="""^DD"",703.9,703.9,2,21,1,0)"
^XMB(3.9,73,2,5002,0)="This multiple is used to store the data for the conversion log."
^XMB(3.9,73,2,5003,0)="""^DD"",703.9,703.91,0)"
^XMB(3.9,73,2,5004,0)="MEDICINE FILE PARAMETERS SUB-FIELD^^.05^5"
^XMB(3.9,73,2,5005,0)="""^DD"",703.9,703.91,0,""DT"")"
^XMB(3.9,73,2,5006,0)="3040915"
^XMB(3.9,73,2,5007,0)="""^DD"",703.9,703.91,0,""IX"",""B"",703.91,.01)"
^XMB(3.9,73,2,5008,0)=""
^XMB(3.9,73,2,5009,0)="""^DD"",703.9,703.91,0,""NM"",""MEDICINE FILE PARAMETERS"")"
^XMB(3.9,73,2,5010,0)=""
^XMB(3.9,73,2,5011,0)="""^DD"",703.9,703.91,0,""UP"")"
^XMB(3.9,73,2,5012,0)="703.9"
^XMB(3.9,73,2,5013,0)="""^DD"",703.9,703.91,.01,0)"
^XMB(3.9,73,2,5014,0)="MEDICINE FILE PARAMETERS^MP1'X^DIC(^0;1^S DINUM=+X"
^XMB(3.9,73,2,5015,0)="""^DD"",703.9,703.91,.01,1,0)"
^XMB(3.9,73,2,5016,0)="^.1"
^XMB(3.9,73,2,5017,0)="""^DD"",703.9,703.91,.01,1,1,0)"
^XMB(3.9,73,2,5018,0)="703.91^B"
^XMB(3.9,73,2,5019,0)="""^DD"",703.9,703.91,.01,1,1,1)"
^XMB(3.9,73,2,5020,0)="S ^MDD(703.9,DA(1),1,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,73,2,5021,0)="""^DD"",703.9,703.91,.01,1,1,2)"
^XMB(3.9,73,2,5022,0)="K ^MDD(703.9,DA(1),1,""B"",$E(X,1,30),DA)"
^XMB(3.9,73,2,5023,0)="""^DD"",703.9,703.91,.01,21,0)"
^XMB(3.9,73,2,5024,0)="^.001^3^3^3041109^^^^"
^XMB(3.9,73,2,5025,0)="""^DD"",703.9,703.91,.01,21,1,0)"
^XMB(3.9,73,2,5026,0)="This field points to the File file (#1).  It is used to store the"
^XMB(3.9,73,2,5027,0)="""^DD"",703.9,703.91,.01,21,2,0)"
^XMB(3.9,73,2,5028,0)="Medicine file number that this parameter is pertaining to."
^XMB(3.9,73,2,5029,0)="""^DD"",703.9,703.91,.01,21,3,0)"
^XMB(3.9,73,2,5030,0)="(Reference IA #4507)"
^XMB(3.9,73,2,5031,0)="""^DD"",703.9,703.91,.01,""DT"")"
^XMB(3.9,73,2,5032,0)="3021107"
^XMB(3.9,73,2,5033,0)="""^DD"",703.9,703.91,.02,0)"
^XMB(3.9,73,2,5034,0)="CP DEFINITION^P702.01'^MDS(702.01,^0;2^Q"
^XMB(3.9,73,2,5035,0)="""^DD"",703.9,703.91,.02,21,0)"
^XMB(3.9,73,2,5036,0)="^.001^2^2^3041109^^"
^XMB(3.9,73,2,5037,0)="""^DD"",703.9,703.91,.02,21,1,0)"
^XMB(3.9,73,2,5038,0)="This field contains the CP Definition to which the Medicine Report will"
^XMB(3.9,73,2,5039,0)="""^DD"",703.9,703.91,.02,21,2,0)"
^XMB(3.9,73,2,5040,0)="be mapped."
^XMB(3.9,73,2,5041,0)="""^DD"",703.9,703.91,.02,""DT"")"
^XMB(3.9,73,2,5042,0)="3021107"
^XMB(3.9,73,2,5043,0)="""^DD"",703.9,703.91,.03,0)"
^XMB(3.9,73,2,5044,0)="CONVERT Y/N^S^0:No;1:Yes;^0;3^Q"
^XMB(3.9,73,2,5045,0)="""^DD"",703.9,703.91,.03,21,0)"
^XMB(3.9,73,2,5046,0)="^.001^2^2^3041109^^"
^XMB(3.9,73,2,5047,0)="""^DD"",703.9,703.91,.03,21,1,0)"
^XMB(3.9,73,2,5048,0)="This field is used as a flag to mark the Medicine Report. Enter"
^XMB(3.9,73,2,5049,0)="""^DD"",703.9,703.91,.03,21,2,0)"
^XMB(3.9,73,2,5050,0)="0 for 'to not convert' or 1 for 'to convert'."
^XMB(3.9,73,2,5051,0)="""^DD"",703.9,703.91,.03,""DT"")"
^XMB(3.9,73,2,5052,0)="3030203"
^XMB(3.9,73,2,5053,0)="""^DD"",703.9,703.91,.04,0)"
^XMB(3.9,73,2,5054,0)="CONVERT IF NO STATUS^S^0:No;1:Yes;^0;4^Q"
^XMB(3.9,73,2,5055,0)="""^DD"",703.9,703.91,.04,3)"
^XMB(3.9,73,2,5056,0)=""
^XMB(3.9,73,2,5057,0)="""^DD"",703.9,703.91,.04,21,0)"
^XMB(3.9,73,2,5058,0)="^.001^4^4^3041109^^"
^XMB(3.9,73,2,5059,0)="""^DD"",703.9,703.91,.04,21,1,0)"
^XMB(3.9,73,2,5060,0)="This field is used as a flag to indicate whether the Medicine"
^XMB(3.9,73,2,5061,0)="""^DD"",703.9,703.91,.04,21,2,0)"
^XMB(3.9,73,2,5062,0)="report should be converted or not be converted, if there is"
^XMB(3.9,73,2,5063,0)="""^DD"",703.9,703.91,.04,21,3,0)"
^XMB(3.9,73,2,5064,0)="no status for the report.  The field is 0 for 'not to convert'"
^XMB(3.9,73,2,5065,0)="""^DD"",703.9,703.91,.04,21,4,0)"
^XMB(3.9,73,2,5066,0)="or 1 for 'to convert'."
^XMB(3.9,73,2,5067,0)="""^DD"",703.9,703.91,.04,""DT"")"
^XMB(3.9,73,2,5068,0)="3031003"
^XMB(3.9,73,2,5069,0)="""^DD"",703.9,703.91,.05,0)"
^XMB(3.9,73,2,5070,0)="USE TIU NOTE TITLE^*P8925.1'^TIU(8925.1,^0;5^S DIC(""S"")=""I $$ISHISTCP^TIUCP(+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^XMB(3.9,73,2,5071,0)="""^DD"",703.9,703.91,.05,12)"
^XMB(3.9,73,2,5072,0)="Restricts title to Historical CP documents only."
^XMB(3.9,73,2,5073,0)="""^DD"",703.9,703.91,.05,12.1)"
^XMB(3.9,73,2,5074,0)="S DIC(""S"")=""I $$ISHISTCP^TIUCP(+Y)"""
^XMB(3.9,73,2,5075,0)="""^DD"",703.9,703.91,.05,21,0)"
^XMB(3.9,73,2,5076,0)="^.001^2^2^3041109^^"
^XMB(3.9,73,2,5077,0)="""^DD"",703.9,703.91,.05,21,1,0)"
^XMB(3.9,73,2,5078,0)="This field stores the Historical TIU note title used for the conversion"
^XMB(3.9,73,2,5079,0)="""^DD"",703.9,703.91,.05,21,2,0)"
^XMB(3.9,73,2,5080,0)="of the Medicine reports to CP reports. (Reference IA #3377 and 3568)"
^XMB(3.9,73,2,5081,0)="""^DD"",703.9,703.91,.05,""DT"")"
^XMB(3.9,73,2,5082,0)="3040915"
^XMB(3.9,73,2,5083,0)="""^DD"",703.9,703.92,0)"
^XMB(3.9,73,2,5084,0)="CONVERSION LOG SUB-FIELD^^.1^6"
^XMB(3.9,73,2,5085,0)="""^DD"",703.9,703.92,0,""DT"")"
^XMB(3.9,73,2,5086,0)="3030923"
^XMB(3.9,73,2,5087,0)="""^DD"",703.9,703.92,0,""IX"",""AS"",703.92,.02)"
^XMB(3.9,73,2,5088,0)=""
^XMB(3.9,73,2,5089,0)="""^DD"",703.9,703.92,0,""IX"",""B"",703.92,.01)"
^XMB(3.9,73,2,5090,0)=""
^XMB(3.9,73,2,5091,0)="""^DD"",703.9,703.92,0,""NM"",""CONVERSION LOG"")"
^XMB(3.9,73,2,5092,0)=""
^XMB(3.9,73,2,5093,0)="""^DD"",703.9,703.92,0,""UP"")"
^XMB(3.9,73,2,5094,0)="703.9"
^XMB(3.9,73,2,5095,0)="""^DD"",703.9,703.92,.01,0)"
^XMB(3.9,73,2,5096,0)="CONVERSION ID^MF^^0;1^K:$L(X)>30!($L(X)<1) X"
^XMB(3.9,73,2,5097,0)="""^DD"",703.9,703.92,.01,1,0)"
^XMB(3.9,73,2,5098,0)="^.1"
^XMB(3.9,73,2,5099,0)="""^DD"",703.9,703.92,.01,1,1,0)"
^XMB(3.9,73,2,5100,0)="703.92^B"
^XMB(3.9,73,2,5101,0)="""^DD"",703.9,703.92,.01,1,1,1)"
^XMB(3.9,73,2,5102,0)="S ^MDD(703.9,DA(1),2,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,73,2,5103,0)="""^DD"",703.9,703.92,.01,1,1,2)"
^XMB(3.9,73,2,5104,0)="K ^MDD(703.9,DA(1),2,""B"",$E(X,1,30),DA)"
^XMB(3.9,73,2,5105,0)="""^DD"",703.9,703.92,.01,3)"
^XMB(3.9,73,2,5106,0)="Answer must be 1-30 characters in length."
^XMB(3.9,73,2,5107,0)="""^DD"",703.9,703.92,.01,21,0)"
^XMB(3.9,73,2,5108,0)="^.001^20^20^3040923^^^^"
^XMB(3.9,73,2,5109,0)="""^DD"",703.9,703.92,.01,21,1,0)"
^XMB(3.9,73,2,5110,0)="This field is the Conversion ID.  It is a variable pointer to the"
^XMB(3.9,73,2,5111,0)="""^DD"",703.9,703.92,.01,21,2,0)"
^XMB(3.9,73,2,5112,0)="Medicine files.  This field will store an entry for each Medicine file"
^XMB(3.9,73,2,5113,0)="""^DD"",703.9,703.92,.01,21,3,0)"
^XMB(3.9,73,2,5114,0)="record converted. This field is a variable pointer to the following files:"
^XMB(3.9,73,2,5115,0)="""^DD"",703.9,703.92,.01,21,4,0)"
^XMB(3.9,73,2,5116,0)=""
^XMB(3.9,73,2,5117,0)="""^DD"",703.9,703.92,.01,21,5,0)"
^XMB(3.9,73,2,5118,0)="691   ECHO                                   "
^XMB(3.9,73,2,5119,0)="""^DD"",703.9,703.92,.01,21,6,0)"
^XMB(3.9,73,2,5120,0)="691.1 CARDIAC CATHETERIZATION                 "
^XMB(3.9,73,2,5121,0)="""^DD"",703.9,703.92,.01,21,7,0)"
^XMB(3.9,73,2,5122,0)="691.5 ELECTROCARDIOGRAM (EKG)                 "
^XMB(3.9,73,2,5123,0)="""^DD"",703.9,703.92,.01,21,8,0)"
^XMB(3.9,73,2,5124,0)="691.6 HOLTER                               "
^XMB(3.9,73,2,5125,0)="""^DD"",703.9,703.92,.01,21,9,0)"
^XMB(3.9,73,2,5126,0)="691.7 EXERCISE TOLERANCE TEST                 "
^XMB(3.9,73,2,5127,0)="""^DD"",703.9,703.92,.01,21,10,0)"
^XMB(3.9,73,2,5128,0)="691.8 ELECTROPHYSIOLOGY (EP)                  "
^XMB(3.9,73,2,5129,0)="""^DD"",703.9,703.92,.01,21,11,0)"
^XMB(3.9,73,2,5130,0)="694   HEMATOLOGY                            "
^XMB(3.9,73,2,5131,0)="""^DD"",703.9,703.92,.01,21,12,0)"
^XMB(3.9,73,2,5132,0)="694.5 CARDIAC SURGERY RISK ASSESSMENT         "
^XMB(3.9,73,2,5133,0)="""^DD"",703.9,703.92,.01,21,13,0)"
^XMB(3.9,73,2,5134,0)="698   GENERATOR IMPLANT                       "
^XMB(3.9,73,2,5135,0)="""^DD"",703.9,703.92,.01,21,14,0)"
^XMB(3.9,73,2,5136,0)="698.1 V LEAD IMPLANT                          "
^XMB(3.9,73,2,5137,0)="""^DD"",703.9,703.92,.01,21,15,0)"
^XMB(3.9,73,2,5138,0)="698.2 A LEAD IMPLANT                      "
^XMB(3.9,73,2,5139,0)="""^DD"",703.9,703.92,.01,21,16,0)"
^XMB(3.9,73,2,5140,0)="698.3 PACEMAKER SURVEILLANCE                  "
^XMB(3.9,73,2,5141,0)="""^DD"",703.9,703.92,.01,21,17,0)"
^XMB(3.9,73,2,5142,0)="699   ENDOSCOPY/CONSULT                       "
^XMB(3.9,73,2,5143,0)="""^DD"",703.9,703.92,.01,21,18,0)"
^XMB(3.9,73,2,5144,0)="699.5 GENERALIZED PROCEDURE/CONSULT           "
^XMB(3.9,73,2,5145,0)="""^DD"",703.9,703.92,.01,21,19,0)"
^XMB(3.9,73,2,5146,0)="700   PULMONARY FUNCTION TESTS                "
^XMB(3.9,73,2,5147,0)="""^DD"",703.9,703.92,.01,21,20,0)"
^XMB(3.9,73,2,5148,0)="701   RHEUMATOLOGY           "
^XMB(3.9,73,2,5149,0)="""^DD"",703.9,703.92,.01,""DT"")"
^XMB(3.9,73,2,5150,0)="3021107"
^XMB(3.9,73,2,5151,0)="""^DD"",703.9,703.92,.02,0)"
^XMB(3.9,73,2,5152,0)="STATUS^S^CR:Converted Real Mode;CT:Converted Test Mode;E:Error;S:Skipped;R:Ready to Convert;^0;2^Q"
^XMB(3.9,73,2,5153,0)="""^DD"",703.9,703.92,.02,1,0)"
^XMB(3.9,73,2,5154,0)="^.1"
^XMB(3.9,73,2,5155,0)="""^DD"",703.9,703.92,.02,1,1,0)"
^XMB(3.9,73,2,5156,0)="703.92^AS"
^XMB(3.9,73,2,5157,0)="""^DD"",703.9,703.92,.02,1,1,1)"
^XMB(3.9,73,2,5158,0)="S ^MDD(703.9,DA(1),2,""AS"",$E(X,1,30),DA)="""""
^XMB(3.9,73,2,5159,0)="""^DD"",703.9,703.92,.02,1,1,2)"
^XMB(3.9,73,2,5160,0)="K ^MDD(703.9,DA(1),2,""AS"",$E(X,1,30),DA)"
^XMB(3.9,73,2,5161,0)="""^DD"",703.9,703.92,.02,1,1,""DT"")"
^XMB(3.9,73,2,5162,0)="3021107"
^XMB(3.9,73,2,5163,0)="""^DD"",703.9,703.92,.02,21,0)"
^XMB(3.9,73,2,5164,0)="^.001^7^7^3040923^^^^"
^XMB(3.9,73,2,5165,0)="""^DD"",703.9,703.92,.02,21,1,0)"
^XMB(3.9,73,2,5166,0)="This is the status field of the conversion log.  There are five"
^XMB(3.9,73,2,5167,0)="""^DD"",703.9,703.92,.02,21,2,0)"
^XMB(3.9,73,2,5168,0)="set of codes:            "
^XMB(3.9,73,2,5169,0)="""^DD"",703.9,703.92,.02,21,3,0)"
^XMB(3.9,73,2,5170,0)="CR   WILL STAND FOR: Converted Real Mode      "
^XMB(3.9,73,2,5171,0)="""^DD"",703.9,703.92,.02,21,4,0)"
^XMB(3.9,73,2,5172,0)="CT   WILL STAND FOR: Converted Test Mode    "
^XMB(3.9,73,2,5173,0)="""^DD"",703.9,703.92,.02,21,5,0)"
^XMB(3.9,73,2,5174,0)=" E   WILL STAND FOR: Error               "
^XMB(3.9,73,2,5175,0)="""^DD"",703.9,703.92,.02,21,6,0)"
^XMB(3.9,73,2,5176,0)=" S   WILL STAND FOR: Skipped              "
^XMB(3.9,73,2,5177,0)="""^DD"",703.9,703.92,.02,21,7,0)"
^XMB(3.9,73,2,5178,0)=" R   WILL STAND FOR: Ready to Convert"
^XMB(3.9,73,2,5179,0)="""^DD"",703.9,703.92,.02,""DT"")"
^XMB(3.9,73,2,5180,0)="3030923"
^XMB(3.9,73,2,5181,0)="""^DD"",703.9,703.92,.03,0)"
^XMB(3.9,73,2,5182,0)="NEW TIU DOCUMENT IEN^F^^0;3^K:$L(X)>15!($L(X)<1) X"
^XMB(3.9,73,2,5183,0)="""^DD"",703.9,703.92,.03,3)"
^XMB(3.9,73,2,5184,0)="Answer must be 1-15 characters in length."
^XMB(3.9,73,2,5185,0)="""^DD"",703.9,703.92,.03,21,0)"
^XMB(3.9,73,2,5186,0)="^.001^3^3^3051005^^^"
^XMB(3.9,73,2,5187,0)="""^DD"",703.9,703.92,.03,21,1,0)"
^XMB(3.9,73,2,5188,0)="This field contains a pointer to the TIU Document file (#8925)."
^XMB(3.9,73,2,5189,0)="""^DD"",703.9,703.92,.03,21,2,0)"
^XMB(3.9,73,2,5190,0)="(Reference IA #4796).  This will hold the internal entry number"
^XMB(3.9,73,2,5191,0)="""^DD"",703.9,703.92,.03,21,3,0)"
^XMB(3.9,73,2,5192,0)="of the document of the converted medicine report."
^XMB(3.9,73,2,5193,0)="""^DD"",703.9,703.92,.03,""DT"")"
^XMB(3.9,73,2,5194,0)="3021107"
^XMB(3.9,73,2,5195,0)="""^DD"",703.9,703.92,.04,0)"
^XMB(3.9,73,2,5196,0)="LINES^NJ9,0^^0;4^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^XMB(3.9,73,2,5197,0)="""^DD"",703.9,703.92,.04,3)"
^XMB(3.9,73,2,5198,0)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^XMB(3.9,73,2,5199,0)="""^DD"",703.9,703.92,.04,21,0)"
^XMB(3.9,73,2,5200,0)="^^2^2^3040630^"
^XMB(3.9,73,2,5201,0)="""^DD"",703.9,703.92,.04,21,1,0)"
^XMB(3.9,73,2,5202,0)="This field contains the line count of the Medicine report"
^XMB(3.9,73,2,5203,0)="""^DD"",703.9,703.92,.04,21,2,0)"
^XMB(3.9,73,2,5204,0)="that was converted."
^XMB(3.9,73,2,5205,0)="""^DD"",703.9,703.92,.04,""DT"")"
^XMB(3.9,73,2,5206,0)="3021107"
^XMB(3.9,73,2,5207,0)="""^DD"",703.9,703.92,.05,0)"
^XMB(3.9,73,2,5208,0)="BYTES^NJ9,0^^0;5^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^XMB(3.9,73,2,5209,0)="""^DD"",703.9,703.92,.05,3)"
^XMB(3.9,73,2,5210,0)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^XMB(3.9,73,2,5211,0)="""^DD"",703.9,703.92,.05,21,0)"
^XMB(3.9,73,2,5212,0)="^^2^2^3040630^"
^XMB(3.9,73,2,5213,0)="""^DD"",703.9,703.92,.05,21,1,0)"
^XMB(3.9,73,2,5214,0)="This field contains the number of bytes of the Medicine report"
^XMB(3.9,73,2,5215,0)="""^DD"",703.9,703.92,.05,21,2,0)"
^XMB(3.9,73,2,5216,0)="that was converted."
^XMB(3.9,73,2,5217,0)="""^DD"",703.9,703.92,.05,""DT"")"
^XMB(3.9,73,2,5218,0)="3021107"
^XMB(3.9,73,2,5219,0)="""^DD"",703.9,703.92,.1,0)"
^XMB(3.9,73,2,5220,0)="ERROR MSG^F^^.1;1^K:$L(X)>250!($L(X)<1) X"
^XMB(3.9,73,2,5221,0)="""^DD"",703.9,703.92,.1,3)"
^XMB(3.9,73,2,5222,0)="Answer must be 1-250 characters in length."
^XMB(3.9,73,2,5223,0)="""^DD"",703.9,703.92,.1,21,0)"
^XMB(3.9,73,2,5224,0)="^^2^2^3040630^"
^XMB(3.9,73,2,5225,0)="""^DD"",703.9,703.92,.1,21,1,0)"
^XMB(3.9,73,2,5226,0)="This field stores the error message during the conversion of"
^XMB(3.9,73,2,5227,0)="""^DD"",703.9,703.92,.1,21,2,0)"
^XMB(3.9,73,2,5228,0)="the Medicine report."
^XMB(3.9,73,2,5229,0)="""^DD"",703.9,703.92,.1,""DT"")"
^XMB(3.9,73,2,5230,0)="3021107"
^XMB(3.9,73,2,5231,0)="""^DIC"",703.9,703.9,0)"
^XMB(3.9,73,2,5232,0)="CP CONVERSION^703.9"
^XMB(3.9,73,2,5233,0)="""^DIC"",703.9,703.9,0,""GL"")"
^XMB(3.9,73,2,5234,0)="^MDD(703.9,"
^XMB(3.9,73,2,5235,0)="""^DIC"",703.9,703.9,""%"",0)"
^XMB(3.9,73,2,5236,0)="^1.005^^0"
^XMB(3.9,73,2,5237,0)="""^DIC"",703.9,703.9,""%D"",0)"
^XMB(3.9,73,2,5238,0)="^1.001^4^4^3041109^^"
^XMB(3.9,73,2,5239,0)="""^DIC"",703.9,703.9,""%D"",1,0)"
^XMB(3.9,73,2,5240,0)="This is the CP Conversion File file (#703.9).  This file is used for storing"
^XMB(3.9,73,2,5241,0)="""^DIC"",703.9,703.9,""%D"",2,0)"
^XMB(3.9,73,2,5242,0)="the site parameters needed and used to convert Medicine reports to CP"
^XMB(3.9,73,2,5243,0)="""^DIC"",703.9,703.9,""%D"",3,0)"
^XMB(3.9,73,2,5244,0)="Text reports.  This file also stores the status of the conversion process"
^XMB(3.9,73,2,5245,0)="""^DIC"",703.9,703.9,""%D"",4,0)"
^XMB(3.9,73,2,5246,0)="for each converted Medicine report."
^XMB(3.9,73,2,5247,0)="""^DIC"",703.9,""B"",""CP CONVERSION"",703.9)"
^XMB(3.9,73,2,5248,0)=""
^XMB(3.9,73,2,5249,0)="""BLD"",17113,6)"
^XMB(3.9,73,2,5250,0)="^4"
^XMB(3.9,73,2,5251,0)="$END KID MD*1.0*5"
^XMB(3.9,73,6,0)="^3.911A^2^2"
^XMB(3.9,73,6,1,0)="POSTMASTER"
^XMB(3.9,73,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,73,6,"B","POSTMASTER",1)=""
^XMB(3.9,73,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,74,0)="MPIF-1_SEQ-42_PAT-45.KID^.5^3061008.015738^^^^K"
^XMB(3.9,74,.6)="3061008"
^XMB(3.9,74,1,0)="^3.91A^2^2"
^XMB(3.9,74,1,1,0)=".5^0^3061008.015738^^^^^^^3061008.015738"
^XMB(3.9,74,1,2,0)="1^0^3061008.031335^^^^^^^3061008.023955"
^XMB(3.9,74,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,74,1,"C",.5,1)=""
^XMB(3.9,74,1,"C",1,2)=""
^XMB(3.9,74,2,0)="^^1051^1051^3061008"
^XMB(3.9,74,2,1,0)="$TXT EMERGENCY Released MPIF*1*45 SEQ #42"
^XMB(3.9,74,2,2,0)="Extracted from mail message"
^XMB(3.9,74,2,3,0)="$END TXT"
^XMB(3.9,74,2,4,0)="$KID MPIF*1.0*45"
^XMB(3.9,74,2,5,0)="**INSTALL NAME**"
^XMB(3.9,74,2,6,0)="MPIF*1.0*45"
^XMB(3.9,74,2,7,0)="""BLD"",2368,0)"
^XMB(3.9,74,2,8,0)="MPIF*1.0*45^MASTER PATIENT INDEX VISTA^0^3060523^y"
^XMB(3.9,74,2,9,0)="""BLD"",2368,1,0)"
^XMB(3.9,74,2,10,0)="^^3^3^3060518^"
^XMB(3.9,74,2,11,0)="""BLD"",2368,1,1,0)"
^XMB(3.9,74,2,12,0)="ICN CHECKSUM ISSUE"
^XMB(3.9,74,2,13,0)="""BLD"",2368,1,2,0)"
^XMB(3.9,74,2,14,0)="Refer to patch MPIF*1*45 in the FORUM Patch Module for a complete"
^XMB(3.9,74,2,15,0)="""BLD"",2368,1,3,0)"
^XMB(3.9,74,2,16,0)="description."
^XMB(3.9,74,2,17,0)="""BLD"",2368,4,0)"
^XMB(3.9,74,2,18,0)="^9.64PA^^"
^XMB(3.9,74,2,19,0)="""BLD"",2368,""ABNS"",0)"
^XMB(3.9,74,2,20,0)="^9.66A^^"
^XMB(3.9,74,2,21,0)="""BLD"",2368,""ABPKG"")"
^XMB(3.9,74,2,22,0)="^^"
^XMB(3.9,74,2,23,0)="""BLD"",2368,""KRN"",0)"
^XMB(3.9,74,2,24,0)="^9.67PA^8989.52^19"
^XMB(3.9,74,2,25,0)="""BLD"",2368,""KRN"",.4,0)"
^XMB(3.9,74,2,26,0)=".4"
^XMB(3.9,74,2,27,0)="""BLD"",2368,""KRN"",.401,0)"
^XMB(3.9,74,2,28,0)=".401"
^XMB(3.9,74,2,29,0)="""BLD"",2368,""KRN"",.402,0)"
^XMB(3.9,74,2,30,0)=".402"
^XMB(3.9,74,2,31,0)="""BLD"",2368,""KRN"",.403,0)"
^XMB(3.9,74,2,32,0)=".403"
^XMB(3.9,74,2,33,0)="""BLD"",2368,""KRN"",.5,0)"
^XMB(3.9,74,2,34,0)=".5"
^XMB(3.9,74,2,35,0)="""BLD"",2368,""KRN"",.84,0)"
^XMB(3.9,74,2,36,0)=".84"
^XMB(3.9,74,2,37,0)="""BLD"",2368,""KRN"",3.6,0)"
^XMB(3.9,74,2,38,0)="3.6"
^XMB(3.9,74,2,39,0)="""BLD"",2368,""KRN"",3.8,0)"
^XMB(3.9,74,2,40,0)="3.8"
^XMB(3.9,74,2,41,0)="""BLD"",2368,""KRN"",9.2,0)"
^XMB(3.9,74,2,42,0)="9.2"
^XMB(3.9,74,2,43,0)="""BLD"",2368,""KRN"",9.8,0)"
^XMB(3.9,74,2,44,0)="9.8"
^XMB(3.9,74,2,45,0)="""BLD"",2368,""KRN"",9.8,""NM"",0)"
^XMB(3.9,74,2,46,0)="^9.68A^2^2"
^XMB(3.9,74,2,47,0)="""BLD"",2368,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,74,2,48,0)="MPIFAPI^^0^B31723970"
^XMB(3.9,74,2,49,0)="""BLD"",2368,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,74,2,50,0)="MPIF001^^0^B53646904"
^XMB(3.9,74,2,51,0)="""BLD"",2368,""KRN"",9.8,""NM"",""B"",""MPIF001"",2)"
^XMB(3.9,74,2,52,0)=""
^XMB(3.9,74,2,53,0)="""BLD"",2368,""KRN"",9.8,""NM"",""B"",""MPIFAPI"",1)"
^XMB(3.9,74,2,54,0)=""
^XMB(3.9,74,2,55,0)="""BLD"",2368,""KRN"",19,0)"
^XMB(3.9,74,2,56,0)="19"
^XMB(3.9,74,2,57,0)="""BLD"",2368,""KRN"",19.1,0)"
^XMB(3.9,74,2,58,0)="19.1"
^XMB(3.9,74,2,59,0)="""BLD"",2368,""KRN"",101,0)"
^XMB(3.9,74,2,60,0)="101"
^XMB(3.9,74,2,61,0)="""BLD"",2368,""KRN"",409.61,0)"
^XMB(3.9,74,2,62,0)="409.61"
^XMB(3.9,74,2,63,0)="""BLD"",2368,""KRN"",771,0)"
^XMB(3.9,74,2,64,0)="771"
^XMB(3.9,74,2,65,0)="""BLD"",2368,""KRN"",870,0)"
^XMB(3.9,74,2,66,0)="870"
^XMB(3.9,74,2,67,0)="""BLD"",2368,""KRN"",8989.51,0)"
^XMB(3.9,74,2,68,0)="8989.51"
^XMB(3.9,74,2,69,0)="""BLD"",2368,""KRN"",8989.52,0)"
^XMB(3.9,74,2,70,0)="8989.52"
^XMB(3.9,74,2,71,0)="""BLD"",2368,""KRN"",8994,0)"
^XMB(3.9,74,2,72,0)="8994"
^XMB(3.9,74,2,73,0)="""BLD"",2368,""KRN"",""B"",.4,.4)"
^XMB(3.9,74,2,74,0)=""
^XMB(3.9,74,2,75,0)="""BLD"",2368,""KRN"",""B"",.401,.401)"
^XMB(3.9,74,2,76,0)=""
^XMB(3.9,74,2,77,0)="""BLD"",2368,""KRN"",""B"",.402,.402)"
^XMB(3.9,74,2,78,0)=""
^XMB(3.9,74,2,79,0)="""BLD"",2368,""KRN"",""B"",.403,.403)"
^XMB(3.9,74,2,80,0)=""
^XMB(3.9,74,2,81,0)="""BLD"",2368,""KRN"",""B"",.5,.5)"
^XMB(3.9,74,2,82,0)=""
^XMB(3.9,74,2,83,0)="""BLD"",2368,""KRN"",""B"",.84,.84)"
^XMB(3.9,74,2,84,0)=""
^XMB(3.9,74,2,85,0)="""BLD"",2368,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,74,2,86,0)=""
^XMB(3.9,74,2,87,0)="""BLD"",2368,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,74,2,88,0)=""
^XMB(3.9,74,2,89,0)="""BLD"",2368,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,74,2,90,0)=""
^XMB(3.9,74,2,91,0)="""BLD"",2368,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,74,2,92,0)=""
^XMB(3.9,74,2,93,0)="""BLD"",2368,""KRN"",""B"",19,19)"
^XMB(3.9,74,2,94,0)=""
^XMB(3.9,74,2,95,0)="""BLD"",2368,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,74,2,96,0)=""
^XMB(3.9,74,2,97,0)="""BLD"",2368,""KRN"",""B"",101,101)"
^XMB(3.9,74,2,98,0)=""
^XMB(3.9,74,2,99,0)="""BLD"",2368,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,74,2,100,0)=""
^XMB(3.9,74,2,101,0)="""BLD"",2368,""KRN"",""B"",771,771)"
^XMB(3.9,74,2,102,0)=""
^XMB(3.9,74,2,103,0)="""BLD"",2368,""KRN"",""B"",870,870)"
^XMB(3.9,74,2,104,0)=""
^XMB(3.9,74,2,105,0)="""BLD"",2368,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,74,2,106,0)=""
^XMB(3.9,74,2,107,0)="""BLD"",2368,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,74,2,108,0)=""
^XMB(3.9,74,2,109,0)="""BLD"",2368,""KRN"",""B"",8994,8994)"
^XMB(3.9,74,2,110,0)=""
^XMB(3.9,74,2,111,0)="""BLD"",2368,""QUES"",0)"
^XMB(3.9,74,2,112,0)="^9.62^^"
^XMB(3.9,74,2,113,0)="""BLD"",2368,""REQB"",0)"
^XMB(3.9,74,2,114,0)="^9.611^3^3"
^XMB(3.9,74,2,115,0)="""BLD"",2368,""REQB"",1,0)"
^XMB(3.9,74,2,116,0)="DG*5.3*711^1"
^XMB(3.9,74,2,117,0)="""BLD"",2368,""REQB"",2,0)"
^XMB(3.9,74,2,118,0)="MPIF*1.0*43^1"
^XMB(3.9,74,2,119,0)="""BLD"",2368,""REQB"",3,0)"
^XMB(3.9,74,2,120,0)="MPIF*1.0*41^1"
^XMB(3.9,74,2,121,0)="""BLD"",2368,""REQB"",""B"",""DG*5.3*711"",1)"
^XMB(3.9,74,2,122,0)=""
^XMB(3.9,74,2,123,0)="""BLD"",2368,""REQB"",""B"",""MPIF*1.0*41"",3)"
^XMB(3.9,74,2,124,0)=""
^XMB(3.9,74,2,125,0)="""BLD"",2368,""REQB"",""B"",""MPIF*1.0*43"",2)"
^XMB(3.9,74,2,126,0)=""
^XMB(3.9,74,2,127,0)="""MBREQ"")"
^XMB(3.9,74,2,128,0)="0"
^XMB(3.9,74,2,129,0)="""PKG"",282,-1)"
^XMB(3.9,74,2,130,0)="1^1"
^XMB(3.9,74,2,131,0)="""PKG"",282,0)"
^XMB(3.9,74,2,132,0)="MASTER PATIENT INDEX VISTA^MPIF^Master Patient Index VistA side"
^XMB(3.9,74,2,133,0)="""PKG"",282,20,0)"
^XMB(3.9,74,2,134,0)="^9.402P^^"
^XMB(3.9,74,2,135,0)="""PKG"",282,22,0)"
^XMB(3.9,74,2,136,0)="^9.49I^1^1"
^XMB(3.9,74,2,137,0)="""PKG"",282,22,1,0)"
^XMB(3.9,74,2,138,0)="1.0^2990428"
^XMB(3.9,74,2,139,0)="""PKG"",282,22,1,""PAH"",1,0)"
^XMB(3.9,74,2,140,0)="45^3060523^12564"
^XMB(3.9,74,2,141,0)="""PKG"",282,22,1,""PAH"",1,1,0)"
^XMB(3.9,74,2,142,0)="^^3^3^3060523"
^XMB(3.9,74,2,143,0)="""PKG"",282,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,74,2,144,0)="ICN CHECKSUM ISSUE"
^XMB(3.9,74,2,145,0)="""PKG"",282,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,74,2,146,0)="Refer to patch MPIF*1*45 in the FORUM Patch Module for a complete"
^XMB(3.9,74,2,147,0)="""PKG"",282,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,74,2,148,0)="description."
^XMB(3.9,74,2,149,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,74,2,150,0)="Y"
^XMB(3.9,74,2,151,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,74,2,152,0)="^D REP^XPDH"
^XMB(3.9,74,2,153,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,74,2,154,0)="Shall I write over your |FLAG| File"
^XMB(3.9,74,2,155,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,74,2,156,0)="YES"
^XMB(3.9,74,2,157,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,74,2,158,0)="D XPF1^XPDIQ"
^XMB(3.9,74,2,159,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,74,2,160,0)="Y"
^XMB(3.9,74,2,161,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,74,2,162,0)="^D DTA^XPDH"
^XMB(3.9,74,2,163,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,74,2,164,0)="Want my data |FLAG| yours"
^XMB(3.9,74,2,165,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,74,2,166,0)="YES"
^XMB(3.9,74,2,167,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,74,2,168,0)="D XPF2^XPDIQ"
^XMB(3.9,74,2,169,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,74,2,170,0)="YO"
^XMB(3.9,74,2,171,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,74,2,172,0)="^D INHIBIT^XPDH"
^XMB(3.9,74,2,173,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,74,2,174,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,74,2,175,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,74,2,176,0)="YES"
^XMB(3.9,74,2,177,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,74,2,178,0)="D XPI1^XPDIQ"
^XMB(3.9,74,2,179,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,74,2,180,0)="PO^VA(200,:EM"
^XMB(3.9,74,2,181,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,74,2,182,0)="^D MG^XPDH"
^XMB(3.9,74,2,183,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,74,2,184,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,74,2,185,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,74,2,186,0)=""
^XMB(3.9,74,2,187,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,74,2,188,0)="D XPM1^XPDIQ"
^XMB(3.9,74,2,189,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,74,2,190,0)="Y"
^XMB(3.9,74,2,191,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,74,2,192,0)="^D MENU^XPDH"
^XMB(3.9,74,2,193,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,74,2,194,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,74,2,195,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,74,2,196,0)="YES"
^XMB(3.9,74,2,197,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,74,2,198,0)="D XPO1^XPDIQ"
^XMB(3.9,74,2,199,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,74,2,200,0)="Y"
^XMB(3.9,74,2,201,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,74,2,202,0)="^D OPT^XPDH"
^XMB(3.9,74,2,203,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,74,2,204,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,74,2,205,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,74,2,206,0)="YES"
^XMB(3.9,74,2,207,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,74,2,208,0)="D XPZ1^XPDIQ"
^XMB(3.9,74,2,209,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,74,2,210,0)="Y"
^XMB(3.9,74,2,211,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,74,2,212,0)="^D RTN^XPDH"
^XMB(3.9,74,2,213,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,74,2,214,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,74,2,215,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,74,2,216,0)="NO"
^XMB(3.9,74,2,217,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,74,2,218,0)="D XPZ2^XPDIQ"
^XMB(3.9,74,2,219,0)="""RTN"")"
^XMB(3.9,74,2,220,0)="2"
^XMB(3.9,74,2,221,0)="""RTN"",""MPIF001"")"
^XMB(3.9,74,2,222,0)="0^2^B53646904^B51371245"
^XMB(3.9,74,2,223,0)="""RTN"",""MPIF001"",1,0)"
^XMB(3.9,74,2,224,0)="MPIF001 ;ALB/RJS/CMC-UTILITY ROUTINE OF APIS ;JUL 12, 1996"
^XMB(3.9,74,2,225,0)="""RTN"",""MPIF001"",2,0)"
^XMB(3.9,74,2,226,0)=" ;;1.0; MASTER PATIENT INDEX VISTA ;**1,3,9,16,18,21,27,33,35,41,45**;30 Apr 99"
^XMB(3.9,74,2,227,0)="""RTN"",""MPIF001"",3,0)"
^XMB(3.9,74,2,228,0)=" ;"
^XMB(3.9,74,2,229,0)="""RTN"",""MPIF001"",4,0)"
^XMB(3.9,74,2,230,0)=" ; Integration Agreements Utilized:"
^XMB(3.9,74,2,231,0)="""RTN"",""MPIF001"",5,0)"
^XMB(3.9,74,2,232,0)=" ;  ^DPT( - #2070"
^XMB(3.9,74,2,233,0)="""RTN"",""MPIF001"",6,0)"
^XMB(3.9,74,2,234,0)=" ; ^DPT(""AICN"" - #2070"
^XMB(3.9,74,2,235,0)="""RTN"",""MPIF001"",7,0)"
^XMB(3.9,74,2,236,0)=" ; ^DPT(""AMPIMIS"" - #2070"
^XMB(3.9,74,2,237,0)="""RTN"",""MPIF001"",8,0)"
^XMB(3.9,74,2,238,0)=" ; EXC^RGHLLOG - #2796"
^XMB(3.9,74,2,239,0)="""RTN"",""MPIF001"",9,0)"
^XMB(3.9,74,2,240,0)=" ; START^RGHLLOG - #2796"
^XMB(3.9,74,2,241,0)="""RTN"",""MPIF001"",10,0)"
^XMB(3.9,74,2,242,0)=" ; STOP^RGHLLOG - #2796"
^XMB(3.9,74,2,243,0)="""RTN"",""MPIF001"",11,0)"
^XMB(3.9,74,2,244,0)=" ;"
^XMB(3.9,74,2,245,0)="""RTN"",""MPIF001"",12,0)"
^XMB(3.9,74,2,246,0)="GETICN(DFN) ; This function returns the ICN, including checksum for a given"
^XMB(3.9,74,2,247,0)="""RTN"",""MPIF001"",13,0)"
^XMB(3.9,74,2,248,0)=" ; DFN or -1^error message"
^XMB(3.9,74,2,249,0)="""RTN"",""MPIF001"",14,0)"
^XMB(3.9,74,2,250,0)=" ; INPUT: DFN - ien in Patient file"
^XMB(3.9,74,2,251,0)="""RTN"",""MPIF001"",15,0)"
^XMB(3.9,74,2,252,0)=" ;"
^XMB(3.9,74,2,253,0)="""RTN"",""MPIF001"",16,0)"
^XMB(3.9,74,2,254,0)=" N RETURN,NODE"
^XMB(3.9,74,2,255,0)="""RTN"",""MPIF001"",17,0)"
^XMB(3.9,74,2,256,0)=" I $G(DFN)'>0 S RETURN=""-1^NO DFN"" G EXIT1"
^XMB(3.9,74,2,257,0)="""RTN"",""MPIF001"",18,0)"
^XMB(3.9,74,2,258,0)=" I '$D(^DPT(DFN,0)) S RETURN=""-1^PATIENT NOT IN DATABASE"" G EXIT1"
^XMB(3.9,74,2,259,0)="""RTN"",""MPIF001"",19,0)"
^XMB(3.9,74,2,260,0)=" I '$D(^DPT(DFN,""MPI"")) S RETURN=""-1^NO MPI NODE"" G EXIT1"
^XMB(3.9,74,2,261,0)="""RTN"",""MPIF001"",20,0)"
^XMB(3.9,74,2,262,0)=" S NODE=$G(^DPT(DFN,""MPI""))"
^XMB(3.9,74,2,263,0)="""RTN"",""MPIF001"",21,0)"
^XMB(3.9,74,2,264,0)=" I $P(NODE,""^"",1)'>0 S RETURN=""-1^NO ICN"" G EXIT1"
^XMB(3.9,74,2,265,0)="""RTN"",""MPIF001"",22,0)"
^XMB(3.9,74,2,266,0)=" S RETURN=$P(NODE,""^"",1)_""V""_$P(NODE,""^"",2)"
^XMB(3.9,74,2,267,0)="""RTN"",""MPIF001"",23,0)"
^XMB(3.9,74,2,268,0)=" I '$D(^DPT(""AICN"",$P(NODE,""^""),DFN)) S ^DPT(""AICN"",$P(NODE,""^""),DFN)="""""
^XMB(3.9,74,2,269,0)="""RTN"",""MPIF001"",24,0)"
^XMB(3.9,74,2,270,0)=" ; ^ set AICN x-ref if missing one"
^XMB(3.9,74,2,271,0)="""RTN"",""MPIF001"",25,0)"
^XMB(3.9,74,2,272,0)="EXIT1 ;"
^XMB(3.9,74,2,273,0)="""RTN"",""MPIF001"",26,0)"
^XMB(3.9,74,2,274,0)=" Q RETURN"
^XMB(3.9,74,2,275,0)="""RTN"",""MPIF001"",27,0)"
^XMB(3.9,74,2,276,0)=" ;"
^XMB(3.9,74,2,277,0)="""RTN"",""MPIF001"",28,0)"
^XMB(3.9,74,2,278,0)="GETDFN(ICN) ; Returns DFN (ien Patient file) or -1^error message for a given ICN"
^XMB(3.9,74,2,279,0)="""RTN"",""MPIF001"",29,0)"
^XMB(3.9,74,2,280,0)=" ; ICN - ICN for a given Patient in the Patient file"
^XMB(3.9,74,2,281,0)="""RTN"",""MPIF001"",30,0)"
^XMB(3.9,74,2,282,0)=" N RETURN,DFN"
^XMB(3.9,74,2,283,0)="""RTN"",""MPIF001"",31,0)"
^XMB(3.9,74,2,284,0)=" I $G(ICN)'>0 S RETURN=""-1^NO ICN"" G EXIT2"
^XMB(3.9,74,2,285,0)="""RTN"",""MPIF001"",32,0)"
^XMB(3.9,74,2,286,0)=" I ICN[""V"" S ICN=+ICN"
^XMB(3.9,74,2,287,0)="""RTN"",""MPIF001"",33,0)"
^XMB(3.9,74,2,288,0)=" I '$D(^DPT(""AICN"",ICN)) S RETURN=""-1^ICN NOT IN DATABASE"" G EXIT2"
^XMB(3.9,74,2,289,0)="""RTN"",""MPIF001"",34,0)"
^XMB(3.9,74,2,290,0)=" S DFN=$O(^DPT(""AICN"",ICN,0))"
^XMB(3.9,74,2,291,0)="""RTN"",""MPIF001"",35,0)"
^XMB(3.9,74,2,292,0)=" I $G(DFN)'>0 S RETURN=""-1^BAD ICN CROSS-REFERENCE"" G EXIT2"
^XMB(3.9,74,2,293,0)="""RTN"",""MPIF001"",36,0)"
^XMB(3.9,74,2,294,0)=" I '$D(^DPT(DFN)) K ^DPT(""AICN"",ICN) S RETURN=""-1^ICN NOT IN DATABASE"" G EXIT2"
^XMB(3.9,74,2,295,0)="""RTN"",""MPIF001"",37,0)"
^XMB(3.9,74,2,296,0)=" ;^ **41 - CHECK IF THE DFN HOLDING THIS ICN IS RELATED TO BOGUS XREF"
^XMB(3.9,74,2,297,0)="""RTN"",""MPIF001"",38,0)"
^XMB(3.9,74,2,298,0)=" S RETURN=DFN"
^XMB(3.9,74,2,299,0)="""RTN"",""MPIF001"",39,0)"
^XMB(3.9,74,2,300,0)="EXIT2 ;"
^XMB(3.9,74,2,301,0)="""RTN"",""MPIF001"",40,0)"
^XMB(3.9,74,2,302,0)=" Q RETURN"
^XMB(3.9,74,2,303,0)="""RTN"",""MPIF001"",41,0)"
^XMB(3.9,74,2,304,0)=" ;"
^XMB(3.9,74,2,305,0)="""RTN"",""MPIF001"",42,0)"
^XMB(3.9,74,2,306,0)="ICNLC(DFN) ;This API will return an ICN if one exists or create and return"
^XMB(3.9,74,2,307,0)="""RTN"",""MPIF001"",43,0)"
^XMB(3.9,74,2,308,0)=" ; a Local ICN and update the appropriate fields if a Local was created"
^XMB(3.9,74,2,309,0)="""RTN"",""MPIF001"",44,0)"
^XMB(3.9,74,2,310,0)=" ; DFN= Patient IEN"
^XMB(3.9,74,2,311,0)="""RTN"",""MPIF001"",45,0)"
^XMB(3.9,74,2,312,0)=" ; Returns ICN (local or National including checksum) or -1^error msg"
^XMB(3.9,74,2,313,0)="""RTN"",""MPIF001"",46,0)"
^XMB(3.9,74,2,314,0)=" N ICN,TMP,CHKSUM,ICNX"
^XMB(3.9,74,2,315,0)="""RTN"",""MPIF001"",47,0)"
^XMB(3.9,74,2,316,0)=" I $G(DFN)'>0 Q ""-1^No DFN Passed"""
^XMB(3.9,74,2,317,0)="""RTN"",""MPIF001"",48,0)"
^XMB(3.9,74,2,318,0)=" D LOCK"
^XMB(3.9,74,2,319,0)="""RTN"",""MPIF001"",49,0)"
^XMB(3.9,74,2,320,0)=" S ICN=$$GETICN(DFN)"
^XMB(3.9,74,2,321,0)="""RTN"",""MPIF001"",50,0)"
^XMB(3.9,74,2,322,0)=" I +ICN=-1 D"
^XMB(3.9,74,2,323,0)="""RTN"",""MPIF001"",51,0)"
^XMB(3.9,74,2,324,0)=" .;no icn create a Local ICN"
^XMB(3.9,74,2,325,0)="""RTN"",""MPIF001"",52,0)"
^XMB(3.9,74,2,326,0)=" .S ICN=$$EN2^MPIFAPI()"
^XMB(3.9,74,2,327,0)="""RTN"",""MPIF001"",53,0)"
^XMB(3.9,74,2,328,0)=" .S CHKSUM=$P(ICN,""V"",2),ICNX=$P(ICN,""V"")"
^XMB(3.9,74,2,329,0)="""RTN"",""MPIF001"",54,0)"
^XMB(3.9,74,2,330,0)=" .S NOLOCK="""""
^XMB(3.9,74,2,331,0)="""RTN"",""MPIF001"",55,0)"
^XMB(3.9,74,2,332,0)=" .I ICNX="""" K NOLOCK S ICN=""-1^PROBLEM CREATING LOCAL ICN"" Q"
^XMB(3.9,74,2,333,0)="""RTN"",""MPIF001"",56,0)"
^XMB(3.9,74,2,334,0)=" .S TMP=$$SETICN(DFN,ICNX,CHKSUM)"
^XMB(3.9,74,2,335,0)="""RTN"",""MPIF001"",57,0)"
^XMB(3.9,74,2,336,0)=" .I +TMP=-1 K NOLOCK Q"
^XMB(3.9,74,2,337,0)="""RTN"",""MPIF001"",58,0)"
^XMB(3.9,74,2,338,0)=" .S TMP=$$SETLOC(DFN,1)"
^XMB(3.9,74,2,339,0)="""RTN"",""MPIF001"",59,0)"
^XMB(3.9,74,2,340,0)=" .S TMP=$$CHANGE(DFN,$P($$SITE^VASITE(),""^""))"
^XMB(3.9,74,2,341,0)="""RTN"",""MPIF001"",60,0)"
^XMB(3.9,74,2,342,0)=" .K NOLOCK"
^XMB(3.9,74,2,343,0)="""RTN"",""MPIF001"",61,0)"
^XMB(3.9,74,2,344,0)=" D UNLOCK"
^XMB(3.9,74,2,345,0)="""RTN"",""MPIF001"",62,0)"
^XMB(3.9,74,2,346,0)=" Q ICN"
^XMB(3.9,74,2,347,0)="""RTN"",""MPIF001"",63,0)"
^XMB(3.9,74,2,348,0)=" ;"
^XMB(3.9,74,2,349,0)="""RTN"",""MPIF001"",64,0)"
^XMB(3.9,74,2,350,0)="CMOR2(DFN) ; Returns CMOR Site Name or -1^error message"
^XMB(3.9,74,2,351,0)="""RTN"",""MPIF001"",65,0)"
^XMB(3.9,74,2,352,0)=" ; DFN = Patient IEN"
^XMB(3.9,74,2,353,0)="""RTN"",""MPIF001"",66,0)"
^XMB(3.9,74,2,354,0)=" I $G(DFN)'>0 Q ""-1^No DFN Passed"""
^XMB(3.9,74,2,355,0)="""RTN"",""MPIF001"",67,0)"
^XMB(3.9,74,2,356,0)=" N NODE"
^XMB(3.9,74,2,357,0)="""RTN"",""MPIF001"",68,0)"
^XMB(3.9,74,2,358,0)=" S NODE=$$MPINODE^MPIFAPI(DFN)"
^XMB(3.9,74,2,359,0)="""RTN"",""MPIF001"",69,0)"
^XMB(3.9,74,2,360,0)=" Q:$P(NODE,""^"",3)="""" ""-1^No CMOR"""
^XMB(3.9,74,2,361,0)="""RTN"",""MPIF001"",70,0)"
^XMB(3.9,74,2,362,0)=" Q $$CMORNAME($P(NODE,""^"",3))"
^XMB(3.9,74,2,363,0)="""RTN"",""MPIF001"",71,0)"
^XMB(3.9,74,2,364,0)=" ;"
^XMB(3.9,74,2,365,0)="""RTN"",""MPIF001"",72,0)"
^XMB(3.9,74,2,366,0)="CMORNAME(CIEN) ; Returns CMOR site name or -1^error message"
^XMB(3.9,74,2,367,0)="""RTN"",""MPIF001"",73,0)"
^XMB(3.9,74,2,368,0)=" ; CIEN - ien from Institution file"
^XMB(3.9,74,2,369,0)="""RTN"",""MPIF001"",74,0)"
^XMB(3.9,74,2,370,0)=" ;"
^XMB(3.9,74,2,371,0)="""RTN"",""MPIF001"",75,0)"
^XMB(3.9,74,2,372,0)=" Q:CIEN="""" ""-1^No Institution parameter"""
^XMB(3.9,74,2,373,0)="""RTN"",""MPIF001"",76,0)"
^XMB(3.9,74,2,374,0)=" N INST"
^XMB(3.9,74,2,375,0)="""RTN"",""MPIF001"",77,0)"
^XMB(3.9,74,2,376,0)=" S INST=$$NNT^XUAF4(CIEN)"
^XMB(3.9,74,2,377,0)="""RTN"",""MPIF001"",78,0)"
^XMB(3.9,74,2,378,0)=" Q:INST="""" ""-1^No Institution for that IEN"""
^XMB(3.9,74,2,379,0)="""RTN"",""MPIF001"",79,0)"
^XMB(3.9,74,2,380,0)=" Q:$P(INST,""^"")="""" ""-1^No Name for this Institution"""
^XMB(3.9,74,2,381,0)="""RTN"",""MPIF001"",80,0)"
^XMB(3.9,74,2,382,0)=" Q $P(INST,""^"")"
^XMB(3.9,74,2,383,0)="""RTN"",""MPIF001"",81,0)"
^XMB(3.9,74,2,384,0)=" ;"
^XMB(3.9,74,2,385,0)="""RTN"",""MPIF001"",82,0)"
^XMB(3.9,74,2,386,0)="GETVCCI(DFN) ; Returns CMOR or -1^error message for a given patient"
^XMB(3.9,74,2,387,0)="""RTN"",""MPIF001"",83,0)"
^XMB(3.9,74,2,388,0)=" ; DFN - ien of patient in Patient file"
^XMB(3.9,74,2,389,0)="""RTN"",""MPIF001"",84,0)"
^XMB(3.9,74,2,390,0)=" N RETURN,NODE,PTR,STANUM"
^XMB(3.9,74,2,391,0)="""RTN"",""MPIF001"",85,0)"
^XMB(3.9,74,2,392,0)=" I $G(DFN)'>0 S RETURN=""-1^NO DFN"" G EXIT3"
^XMB(3.9,74,2,393,0)="""RTN"",""MPIF001"",86,0)"
^XMB(3.9,74,2,394,0)=" I '$D(^DPT(DFN,0)) S RETURN=""-1^PATIENT NOT IN DATABASE"" G EXIT3"
^XMB(3.9,74,2,395,0)="""RTN"",""MPIF001"",87,0)"
^XMB(3.9,74,2,396,0)=" I '$D(^DPT(DFN,""MPI"")) S RETURN=""-1^NO MPI NODE"" G EXIT3"
^XMB(3.9,74,2,397,0)="""RTN"",""MPIF001"",88,0)"
^XMB(3.9,74,2,398,0)=" S NODE=$$MPINODE^MPIFAPI(DFN)"
^XMB(3.9,74,2,399,0)="""RTN"",""MPIF001"",89,0)"
^XMB(3.9,74,2,400,0)=" S PTR=$P(NODE,""^"",3)"
^XMB(3.9,74,2,401,0)="""RTN"",""MPIF001"",90,0)"
^XMB(3.9,74,2,402,0)=" I PTR'>0 S RETURN=""-1^NO CMOR DEFINED FOR PT"" G EXIT3"
^XMB(3.9,74,2,403,0)="""RTN"",""MPIF001"",91,0)"
^XMB(3.9,74,2,404,0)=" S STANUM=$P($$NNT^XUAF4(PTR),""^"",2)"
^XMB(3.9,74,2,405,0)="""RTN"",""MPIF001"",92,0)"
^XMB(3.9,74,2,406,0)=" I STANUM'>0 S RETURN=""-1^PTS CMOR IS DANGLING PTR"" G EXIT3"
^XMB(3.9,74,2,407,0)="""RTN"",""MPIF001"",93,0)"
^XMB(3.9,74,2,408,0)=" S RETURN=STANUM"
^XMB(3.9,74,2,409,0)="""RTN"",""MPIF001"",94,0)"
^XMB(3.9,74,2,410,0)="EXIT3 ;"
^XMB(3.9,74,2,411,0)="""RTN"",""MPIF001"",95,0)"
^XMB(3.9,74,2,412,0)=" Q RETURN"
^XMB(3.9,74,2,413,0)="""RTN"",""MPIF001"",96,0)"
^XMB(3.9,74,2,414,0)=" ;"
^XMB(3.9,74,2,415,0)="""RTN"",""MPIF001"",97,0)"
^XMB(3.9,74,2,416,0)="CHANGE(DFN,VCCI) ;"
^XMB(3.9,74,2,417,0)="""RTN"",""MPIF001"",98,0)"
^XMB(3.9,74,2,418,0)=" ; ** This function is only to be used by approved packages **"
^XMB(3.9,74,2,419,0)="""RTN"",""MPIF001"",99,0)"
^XMB(3.9,74,2,420,0)=" ;"
^XMB(3.9,74,2,421,0)="""RTN"",""MPIF001"",100,0)"
^XMB(3.9,74,2,422,0)=" ; This function updates the CMOR field in the Patient file"
^XMB(3.9,74,2,423,0)="""RTN"",""MPIF001"",101,0)"
^XMB(3.9,74,2,424,0)=" ; DFN = ien in Patient file"
^XMB(3.9,74,2,425,0)="""RTN"",""MPIF001"",102,0)"
^XMB(3.9,74,2,426,0)=" ; VCCI = CMOR ien from the institution file"
^XMB(3.9,74,2,427,0)="""RTN"",""MPIF001"",103,0)"
^XMB(3.9,74,2,428,0)=" ; returned:  -1^error message - problem"
^XMB(3.9,74,2,429,0)="""RTN"",""MPIF001"",104,0)"
^XMB(3.9,74,2,430,0)=" ;             1 - successful"
^XMB(3.9,74,2,431,0)="""RTN"",""MPIF001"",105,0)"
^XMB(3.9,74,2,432,0)=" ; Exception will be generated if Update to File Fails only"
^XMB(3.9,74,2,433,0)="""RTN"",""MPIF001"",106,0)"
^XMB(3.9,74,2,434,0)=" N RETURN,DIQUIET,DIE,DA,DR,Y,X,DIC"
^XMB(3.9,74,2,435,0)="""RTN"",""MPIF001"",107,0)"
^XMB(3.9,74,2,436,0)=" S (RETURN,DIQUIET)=1"
^XMB(3.9,74,2,437,0)="""RTN"",""MPIF001"",108,0)"
^XMB(3.9,74,2,438,0)=" I $G(DFN)'>0 S RETURN=""-1^NO DFN PASSED"" G EXIT4"
^XMB(3.9,74,2,439,0)="""RTN"",""MPIF001"",109,0)"
^XMB(3.9,74,2,440,0)=" I '$D(^DPT(DFN,0)) S RETURN=""-1^PATIENT NOT IN DATABASE"" G EXIT4"
^XMB(3.9,74,2,441,0)="""RTN"",""MPIF001"",110,0)"
^XMB(3.9,74,2,442,0)=" I $G(VCCI)="""" S RETURN=""-1^NO CMOR PASSED"" G EXIT4"
^XMB(3.9,74,2,443,0)="""RTN"",""MPIF001"",111,0)"
^XMB(3.9,74,2,444,0)=" N CNT,TIEN S DIQUIET=1,CNT=0"
^XMB(3.9,74,2,445,0)="""RTN"",""MPIF001"",112,0)"
^XMB(3.9,74,2,446,0)=" I '$D(NOLOCK) D LOCK"
^XMB(3.9,74,2,447,0)="""RTN"",""MPIF001"",113,0)"
^XMB(3.9,74,2,448,0)=" ; moved to here to fix problem with timing"
^XMB(3.9,74,2,449,0)="""RTN"",""MPIF001"",114,0)"
^XMB(3.9,74,2,450,0)=" I $E($$GETICN(DFN),1,3)=$P($$SITE^VASITE(),""^"",3) S VCCI=$P($$SITE^VASITE(),""^"")"
^XMB(3.9,74,2,451,0)="""RTN"",""MPIF001"",115,0)"
^XMB(3.9,74,2,452,0)=" ; ^ to be sure site is self for a local icn"
^XMB(3.9,74,2,453,0)="""RTN"",""MPIF001"",116,0)"
^XMB(3.9,74,2,454,0)=" S VCCI=""`""_VCCI"
^XMB(3.9,74,2,455,0)="""RTN"",""MPIF001"",117,0)"
^XMB(3.9,74,2,456,0)=" ; ^ Have ien stuff added to use ien instead of station number"
^XMB(3.9,74,2,457,0)="""RTN"",""MPIF001"",118,0)"
^XMB(3.9,74,2,458,0)="REP S DIE=""^DPT("",DA=DFN,DR=""991.03///^S X=VCCI"""
^XMB(3.9,74,2,459,0)="""RTN"",""MPIF001"",119,0)"
^XMB(3.9,74,2,460,0)=" D ^DIE"
^XMB(3.9,74,2,461,0)="""RTN"",""MPIF001"",120,0)"
^XMB(3.9,74,2,462,0)=" S CNT=CNT+1"
^XMB(3.9,74,2,463,0)="""RTN"",""MPIF001"",121,0)"
^XMB(3.9,74,2,464,0)=" S TIEN=$P($$MPINODE^MPIFAPI(DFN),""^"",3)"
^XMB(3.9,74,2,465,0)="""RTN"",""MPIF001"",122,0)"
^XMB(3.9,74,2,466,0)=" I ""`""_TIEN'=VCCI&(CNT<4) G REP"
^XMB(3.9,74,2,467,0)="""RTN"",""MPIF001"",123,0)"
^XMB(3.9,74,2,468,0)=" I ""`""_TIEN'=VCCI&(CNT>3) D"
^XMB(3.9,74,2,469,0)="""RTN"",""MPIF001"",124,0)"
^XMB(3.9,74,2,470,0)=" .S RETURN=""-1^Couldn't Update CMOR"""
^XMB(3.9,74,2,471,0)="""RTN"",""MPIF001"",125,0)"
^XMB(3.9,74,2,472,0)=" .D START^RGHLLOG(0)"
^XMB(3.9,74,2,473,0)="""RTN"",""MPIF001"",126,0)"
^XMB(3.9,74,2,474,0)=" .D EXC^RGHLLOG(221,""Unable to update CMOR to ""_$$STA^XUAF4(TIEN)_"" for patient DFN= ""_DFN,DFN)"
^XMB(3.9,74,2,475,0)="""RTN"",""MPIF001"",127,0)"
^XMB(3.9,74,2,476,0)=" .D STOP^RGHLLOG(0)"
^XMB(3.9,74,2,477,0)="""RTN"",""MPIF001"",128,0)"
^XMB(3.9,74,2,478,0)=" I '$D(NOLOCK) D UNLOCK"
^XMB(3.9,74,2,479,0)="""RTN"",""MPIF001"",129,0)"
^XMB(3.9,74,2,480,0)="EXIT4 ;"
^XMB(3.9,74,2,481,0)="""RTN"",""MPIF001"",130,0)"
^XMB(3.9,74,2,482,0)=" Q RETURN"
^XMB(3.9,74,2,483,0)="""RTN"",""MPIF001"",131,0)"
^XMB(3.9,74,2,484,0)=" ;"
^XMB(3.9,74,2,485,0)="""RTN"",""MPIF001"",132,0)"
^XMB(3.9,74,2,486,0)="SETICN(DFN,ICN,CHKSUM) ;"
^XMB(3.9,74,2,487,0)="""RTN"",""MPIF001"",133,0)"
^XMB(3.9,74,2,488,0)=" ; ** this function is to only be used by approved packages **"
^XMB(3.9,74,2,489,0)="""RTN"",""MPIF001"",134,0)"
^XMB(3.9,74,2,490,0)=" ;"
^XMB(3.9,74,2,491,0)="""RTN"",""MPIF001"",135,0)"
^XMB(3.9,74,2,492,0)=" ; This function updates the ICN and ICN Checksum fields in the Patient "
^XMB(3.9,74,2,493,0)="""RTN"",""MPIF001"",136,0)"
^XMB(3.9,74,2,494,0)=" ; file for a given patient."
^XMB(3.9,74,2,495,0)="""RTN"",""MPIF001"",137,0)"
^XMB(3.9,74,2,496,0)=" ; DFN - ien in the Patient file to be updated"
^XMB(3.9,74,2,497,0)="""RTN"",""MPIF001"",138,0)"
^XMB(3.9,74,2,498,0)=" ; ICN - ICN (without checksum) to be updated"
^XMB(3.9,74,2,499,0)="""RTN"",""MPIF001"",139,0)"
^XMB(3.9,74,2,500,0)=" ; CHKSUM - ICN checksum"
^XMB(3.9,74,2,501,0)="""RTN"",""MPIF001"",140,0)"
^XMB(3.9,74,2,502,0)=" ; return:  -1^error message - problem"
^XMB(3.9,74,2,503,0)="""RTN"",""MPIF001"",141,0)"
^XMB(3.9,74,2,504,0)=" ;          1 - successful"
^XMB(3.9,74,2,505,0)="""RTN"",""MPIF001"",142,0)"
^XMB(3.9,74,2,506,0)=" N RETURN,DIQUIET,DIE,DA,DR,RGRSICN,Y,ERR"
^XMB(3.9,74,2,507,0)="""RTN"",""MPIF001"",143,0)"
^XMB(3.9,74,2,508,0)=" S (RETURN,DIQUIET,RGRSICN)=1"
^XMB(3.9,74,2,509,0)="""RTN"",""MPIF001"",144,0)"
^XMB(3.9,74,2,510,0)=" I $G(DFN)'>0 S RETURN=""-1^NO DFN PASSED"" G EXIT5"
^XMB(3.9,74,2,511,0)="""RTN"",""MPIF001"",145,0)"
^XMB(3.9,74,2,512,0)=" I '$D(^DPT(DFN,0)) S RETURN=""-1^PATIENT NOT IN DATABASE"" G EXIT5"
^XMB(3.9,74,2,513,0)="""RTN"",""MPIF001"",146,0)"
^XMB(3.9,74,2,514,0)=" I $G(ICN)="""" S RETURN=""-1^NO ICN PASSED"" G EXIT5"
^XMB(3.9,74,2,515,0)="""RTN"",""MPIF001"",147,0)"
^XMB(3.9,74,2,516,0)=" I $G(CHKSUM)="""" S RETURN=""-1^NO CHKSUM PASSED"" G EXIT5"
^XMB(3.9,74,2,517,0)="""RTN"",""MPIF001"",148,0)"
^XMB(3.9,74,2,518,0)=" I +$$GETICN(DFN)>0 I $E(ICN,1,3)=$P($$SITE^VASITE(),""^"",3),$E($$GETICN(DFN),1,3)'=$E(ICN,1,3) S RETURN=""-1^Don't overwrite national with local"" G EXIT5"
^XMB(3.9,74,2,519,0)="""RTN"",""MPIF001"",149,0)"
^XMB(3.9,74,2,520,0)=" ; ^ stop local from overwriting a national ICN"
^XMB(3.9,74,2,521,0)="""RTN"",""MPIF001"",150,0)"
^XMB(3.9,74,2,522,0)=" I +$$GETICN(DFN)>0 I $E(ICN,1,3)=$P($$SITE^VASITE(),""^"",3),$E($$GETICN(DFN),1,3)=$P($$SITE^VASITE(),""^"",3) S RETURN=""-1^Don't overwrite local ICN with another Local ICN"" G EXIT5"
^XMB(3.9,74,2,523,0)="""RTN"",""MPIF001"",151,0)"
^XMB(3.9,74,2,524,0)=" ; ^ STOP LOCAL FROM OVERWRITING ANOTHER LOCAL ICN"
^XMB(3.9,74,2,525,0)="""RTN"",""MPIF001"",152,0)"
^XMB(3.9,74,2,526,0)=" I $D(^DPT(""AICN"",ICN)) D"
^XMB(3.9,74,2,527,0)="""RTN"",""MPIF001"",153,0)"
^XMB(3.9,74,2,528,0)=" .Q:DFN=$O(^DPT(""AICN"",ICN,""""))"
^XMB(3.9,74,2,529,0)="""RTN"",""MPIF001"",154,0)"
^XMB(3.9,74,2,530,0)=" .I DFN'=($O(^DPT(""AICN"",ICN,""""))) D"
^XMB(3.9,74,2,531,0)="""RTN"",""MPIF001"",155,0)"
^XMB(3.9,74,2,532,0)=" ..N DFN2 S DFN2=$O(^DPT(""AICN"",ICN,""""))"
^XMB(3.9,74,2,533,0)="""RTN"",""MPIF001"",156,0)"
^XMB(3.9,74,2,534,0)=" ..I '$D(TWODFN) D TWODFNS^MPIF002(DFN2,DFN,ICN)"
^XMB(3.9,74,2,535,0)="""RTN"",""MPIF001"",157,0)"
^XMB(3.9,74,2,536,0)=" .S RETURN=""-1^ICN ALREADY IN USE"""
^XMB(3.9,74,2,537,0)="""RTN"",""MPIF001"",158,0)"
^XMB(3.9,74,2,538,0)=" G:+RETURN=-1 EXIT5"
^XMB(3.9,74,2,539,0)="""RTN"",""MPIF001"",159,0)"
^XMB(3.9,74,2,540,0)=" I '$D(NOLOCK) D LOCK"
^XMB(3.9,74,2,541,0)="""RTN"",""MPIF001"",160,0)"
^XMB(3.9,74,2,542,0)=" S DIQUIET=1"
^XMB(3.9,74,2,543,0)="""RTN"",""MPIF001"",161,0)"
^XMB(3.9,74,2,544,0)=" S CHKSUM=$$CHECKDG^MPIFSPC(ICN) ;**45 calculate checksum based upon what's passed for ICN and use that to update 991.02"
^XMB(3.9,74,2,545,0)="""RTN"",""MPIF001"",162,0)"
^XMB(3.9,74,2,546,0)=" S DIE=""^DPT("",DA=DFN,DR=""991.01///^S X=ICN;991.02///^S X=CHKSUM"""
^XMB(3.9,74,2,547,0)="""RTN"",""MPIF001"",163,0)"
^XMB(3.9,74,2,548,0)=" D ^DIE"
^XMB(3.9,74,2,549,0)="""RTN"",""MPIF001"",164,0)"
^XMB(3.9,74,2,550,0)=" I +$G(Y)=-1 S RETURN=""-1^UNSUCCESSFUL DIE CALL"""
^XMB(3.9,74,2,551,0)="""RTN"",""MPIF001"",165,0)"
^XMB(3.9,74,2,552,0)=" I +RETURN>0 D"
^XMB(3.9,74,2,553,0)="""RTN"",""MPIF001"",166,0)"
^XMB(3.9,74,2,554,0)=" .K ^DPT(""AMPIMIS"",DFN)"
^XMB(3.9,74,2,555,0)="""RTN"",""MPIF001"",167,0)"
^XMB(3.9,74,2,556,0)=" .I $E(ICN,1,3)=$P($$SITE^VASITE(),""^"",3) S ERR=$$SETLOC(DFN,1)"
^XMB(3.9,74,2,557,0)="""RTN"",""MPIF001"",168,0)"
^XMB(3.9,74,2,558,0)=" .I $E(ICN,1,3)'=$P($$SITE^VASITE(),""^"",3) S ERR=$$SETLOC(DFN,0)"
^XMB(3.9,74,2,559,0)="""RTN"",""MPIF001"",169,0)"
^XMB(3.9,74,2,560,0)=" I '$D(NOLOCK) D UNLOCK"
^XMB(3.9,74,2,561,0)="""RTN"",""MPIF001"",170,0)"
^XMB(3.9,74,2,562,0)="EXIT5 ;"
^XMB(3.9,74,2,563,0)="""RTN"",""MPIF001"",171,0)"
^XMB(3.9,74,2,564,0)=" Q RETURN"
^XMB(3.9,74,2,565,0)="""RTN"",""MPIF001"",172,0)"
^XMB(3.9,74,2,566,0)=" ;"
^XMB(3.9,74,2,567,0)="""RTN"",""MPIF001"",173,0)"
^XMB(3.9,74,2,568,0)="SETLOC(DFN,DELFLAG) ;"
^XMB(3.9,74,2,569,0)="""RTN"",""MPIF001"",174,0)"
^XMB(3.9,74,2,570,0)=" ; ** This function should be only used by approved packages **"
^XMB(3.9,74,2,571,0)="""RTN"",""MPIF001"",175,0)"
^XMB(3.9,74,2,572,0)=" ;"
^XMB(3.9,74,2,573,0)="""RTN"",""MPIF001"",176,0)"
^XMB(3.9,74,2,574,0)=" ; This function updates the LOCALLY ASSIGNED ICN field in the Patient"
^XMB(3.9,74,2,575,0)="""RTN"",""MPIF001"",177,0)"
^XMB(3.9,74,2,576,0)=" ; for the given patient"
^XMB(3.9,74,2,577,0)="""RTN"",""MPIF001"",178,0)"
^XMB(3.9,74,2,578,0)=" ;DFN - ien from Patient file of patient to be updated"
^XMB(3.9,74,2,579,0)="""RTN"",""MPIF001"",179,0)"
^XMB(3.9,74,2,580,0)=" ;DELFLAG - 1 is to turn the flag on"
^XMB(3.9,74,2,581,0)="""RTN"",""MPIF001"",180,0)"
^XMB(3.9,74,2,582,0)=" ;        - 0 is to turn off the flag"
^XMB(3.9,74,2,583,0)="""RTN"",""MPIF001"",181,0)"
^XMB(3.9,74,2,584,0)=" ;"
^XMB(3.9,74,2,585,0)="""RTN"",""MPIF001"",182,0)"
^XMB(3.9,74,2,586,0)=" N RETURN,DIQUIET,DIE,DA,DR,VALUE,Y"
^XMB(3.9,74,2,587,0)="""RTN"",""MPIF001"",183,0)"
^XMB(3.9,74,2,588,0)=" S (RETURN,DIQUIET)=1"
^XMB(3.9,74,2,589,0)="""RTN"",""MPIF001"",184,0)"
^XMB(3.9,74,2,590,0)=" I $G(DFN)'>0 S RETURN=""-1^NO DFN PASSED"" G EXIT6"
^XMB(3.9,74,2,591,0)="""RTN"",""MPIF001"",185,0)"
^XMB(3.9,74,2,592,0)=" I '$D(^DPT(DFN,0)) S RETURN=""-1^PATIENT NOT IN DATABASE"" G EXIT6"
^XMB(3.9,74,2,593,0)="""RTN"",""MPIF001"",186,0)"
^XMB(3.9,74,2,594,0)=" I '$D(NOLOCK) D LOCK"
^XMB(3.9,74,2,595,0)="""RTN"",""MPIF001"",187,0)"
^XMB(3.9,74,2,596,0)=" S DIQUIET=1,VALUE=$S($G(DELFLAG)=0:""@"",1:1)"
^XMB(3.9,74,2,597,0)="""RTN"",""MPIF001"",188,0)"
^XMB(3.9,74,2,598,0)=" S DIE=""^DPT("",DA=DFN,DR=""991.04///^S X=VALUE"""
^XMB(3.9,74,2,599,0)="""RTN"",""MPIF001"",189,0)"
^XMB(3.9,74,2,600,0)=" D ^DIE"
^XMB(3.9,74,2,601,0)="""RTN"",""MPIF001"",190,0)"
^XMB(3.9,74,2,602,0)=" I +$G(Y)=-1 S RETURN=""-1^UNSUCCESSFUL DIE CALL"""
^XMB(3.9,74,2,603,0)="""RTN"",""MPIF001"",191,0)"
^XMB(3.9,74,2,604,0)=" I +RETURN>0 K ^DPT(""AMPIMIS"",DFN)"
^XMB(3.9,74,2,605,0)="""RTN"",""MPIF001"",192,0)"
^XMB(3.9,74,2,606,0)=" I '$D(NOLOCK) D UNLOCK"
^XMB(3.9,74,2,607,0)="""RTN"",""MPIF001"",193,0)"
^XMB(3.9,74,2,608,0)="EXIT6 ;"
^XMB(3.9,74,2,609,0)="""RTN"",""MPIF001"",194,0)"
^XMB(3.9,74,2,610,0)=" Q RETURN"
^XMB(3.9,74,2,611,0)="""RTN"",""MPIF001"",195,0)"
^XMB(3.9,74,2,612,0)=" ;"
^XMB(3.9,74,2,613,0)="""RTN"",""MPIF001"",196,0)"
^XMB(3.9,74,2,614,0)="IFLOCAL(DFN) ; This function is used to see if a patient has a local ICN"
^XMB(3.9,74,2,615,0)="""RTN"",""MPIF001"",197,0)"
^XMB(3.9,74,2,616,0)=" ; DFN - ien of patient in Patient file"
^XMB(3.9,74,2,617,0)="""RTN"",""MPIF001"",198,0)"
^XMB(3.9,74,2,618,0)=" ; returned:  0 = patient does not exist, dfn is not defined or no MPI node OR Patient does not have a local ICN"
^XMB(3.9,74,2,619,0)="""RTN"",""MPIF001"",199,0)"
^XMB(3.9,74,2,620,0)=" ;            1 = patient has a Local ICN assigned"
^XMB(3.9,74,2,621,0)="""RTN"",""MPIF001"",200,0)"
^XMB(3.9,74,2,622,0)=" Q:$G(DFN)="""" 0"
^XMB(3.9,74,2,623,0)="""RTN"",""MPIF001"",201,0)"
^XMB(3.9,74,2,624,0)=" Q:$G(^DPT(DFN,0))="""" 0"
^XMB(3.9,74,2,625,0)="""RTN"",""MPIF001"",202,0)"
^XMB(3.9,74,2,626,0)=" Q:'$D(^DPT(DFN,""MPI"")) 0"
^XMB(3.9,74,2,627,0)="""RTN"",""MPIF001"",203,0)"
^XMB(3.9,74,2,628,0)=" Q:$E($$GETICN(DFN),1,3)=$P($$SITE^VASITE,""^"",3) 1"
^XMB(3.9,74,2,629,0)="""RTN"",""MPIF001"",204,0)"
^XMB(3.9,74,2,630,0)=" Q 0"
^XMB(3.9,74,2,631,0)="""RTN"",""MPIF001"",205,0)"
^XMB(3.9,74,2,632,0)=" ;"
^XMB(3.9,74,2,633,0)="""RTN"",""MPIF001"",206,0)"
^XMB(3.9,74,2,634,0)="IFVCCI(DFN) ; this function returns 1 if your facility is the CMOR for the given pt"
^XMB(3.9,74,2,635,0)="""RTN"",""MPIF001"",207,0)"
^XMB(3.9,74,2,636,0)=" ; DFN - ien of patient in Patient file"
^XMB(3.9,74,2,637,0)="""RTN"",""MPIF001"",208,0)"
^XMB(3.9,74,2,638,0)=" ; returns: 1 = your site in the CMOR for this patient"
^XMB(3.9,74,2,639,0)="""RTN"",""MPIF001"",209,0)"
^XMB(3.9,74,2,640,0)=" ;          -1 = your site is not the CMOR for this patient"
^XMB(3.9,74,2,641,0)="""RTN"",""MPIF001"",210,0)"
^XMB(3.9,74,2,642,0)=" ;          0^ERROR MSG"
^XMB(3.9,74,2,643,0)="""RTN"",""MPIF001"",211,0)"
^XMB(3.9,74,2,644,0)=" N VCCI,SITE"
^XMB(3.9,74,2,645,0)="""RTN"",""MPIF001"",212,0)"
^XMB(3.9,74,2,646,0)=" I $G(DFN)'>0 Q ""0^No DFN Passed"""
^XMB(3.9,74,2,647,0)="""RTN"",""MPIF001"",213,0)"
^XMB(3.9,74,2,648,0)=" S VCCI=$P($$GETVCCI(DFN),""^"",1)"
^XMB(3.9,74,2,649,0)="""RTN"",""MPIF001"",214,0)"
^XMB(3.9,74,2,650,0)=" S SITE=$P($$SITE^VASITE,""^"",3)\1"
^XMB(3.9,74,2,651,0)="""RTN"",""MPIF001"",215,0)"
^XMB(3.9,74,2,652,0)=" I $P(VCCI,""^"",1)=-1 Q -1"
^XMB(3.9,74,2,653,0)="""RTN"",""MPIF001"",216,0)"
^XMB(3.9,74,2,654,0)=" I VCCI'=SITE Q -1"
^XMB(3.9,74,2,655,0)="""RTN"",""MPIF001"",217,0)"
^XMB(3.9,74,2,656,0)=" Q 1"
^XMB(3.9,74,2,657,0)="""RTN"",""MPIF001"",218,0)"
^XMB(3.9,74,2,658,0)=" ;"
^XMB(3.9,74,2,659,0)="""RTN"",""MPIF001"",219,0)"
^XMB(3.9,74,2,660,0)="HL7CMOR(DFN,SEP) ; This function returns the CMOR station number and institution name for"
^XMB(3.9,74,2,661,0)="""RTN"",""MPIF001"",220,0)"
^XMB(3.9,74,2,662,0)=" ; the given patient."
^XMB(3.9,74,2,663,0)="""RTN"",""MPIF001"",221,0)"
^XMB(3.9,74,2,664,0)=" ; DFN = ien for patient in Patient file"
^XMB(3.9,74,2,665,0)="""RTN"",""MPIF001"",222,0)"
^XMB(3.9,74,2,666,0)=" ; SEP = delimiter to separate station number and name"
^XMB(3.9,74,2,667,0)="""RTN"",""MPIF001"",223,0)"
^XMB(3.9,74,2,668,0)=" ; returned:  Station Number <sep> Institution name"
^XMB(3.9,74,2,669,0)="""RTN"",""MPIF001"",224,0)"
^XMB(3.9,74,2,670,0)=" ;            -1^error message"
^XMB(3.9,74,2,671,0)="""RTN"",""MPIF001"",225,0)"
^XMB(3.9,74,2,672,0)=" N RETURN,NODE,PTR,STAT"
^XMB(3.9,74,2,673,0)="""RTN"",""MPIF001"",226,0)"
^XMB(3.9,74,2,674,0)=" I $G(DFN)'>0 S RETURN=""-1^NO DFN"" G EXIT7"
^XMB(3.9,74,2,675,0)="""RTN"",""MPIF001"",227,0)"
^XMB(3.9,74,2,676,0)=" I $G(SEP)="""" S RETURN=""-1^NO FIELD SEPERATOR"" G EXIT7"
^XMB(3.9,74,2,677,0)="""RTN"",""MPIF001"",228,0)"
^XMB(3.9,74,2,678,0)=" I '$D(^DPT(DFN,0)) S RETURN=""-1^PATIENT NOT IN DATABASE"" G EXIT7"
^XMB(3.9,74,2,679,0)="""RTN"",""MPIF001"",229,0)"
^XMB(3.9,74,2,680,0)=" I $$MPINODE^MPIFAPI(DFN)<1 S RETURN=""-1^NO MPI NODE"" G EXIT7"
^XMB(3.9,74,2,681,0)="""RTN"",""MPIF001"",230,0)"
^XMB(3.9,74,2,682,0)=" S NODE=$$MPINODE^MPIFAPI(DFN)"
^XMB(3.9,74,2,683,0)="""RTN"",""MPIF001"",231,0)"
^XMB(3.9,74,2,684,0)=" S PTR=$P(NODE,""^"",3)"
^XMB(3.9,74,2,685,0)="""RTN"",""MPIF001"",232,0)"
^XMB(3.9,74,2,686,0)=" I PTR'>0 S RETURN=""-1^NO CMOR DEFINED FOR PT"" G EXIT7"
^XMB(3.9,74,2,687,0)="""RTN"",""MPIF001"",233,0)"
^XMB(3.9,74,2,688,0)=" S STAT=$$NNT^XUAF4(PTR)"
^XMB(3.9,74,2,689,0)="""RTN"",""MPIF001"",234,0)"
^XMB(3.9,74,2,690,0)=" I STAT="""" S RETURN=""-1^PTS CMOR IS DANGLING PTR"" G EXIT7"
^XMB(3.9,74,2,691,0)="""RTN"",""MPIF001"",235,0)"
^XMB(3.9,74,2,692,0)=" I $P(STAT,""^"")="""" S RETURN=""-1^NO INSTITUTION NAME"" G EXIT7"
^XMB(3.9,74,2,693,0)="""RTN"",""MPIF001"",236,0)"
^XMB(3.9,74,2,694,0)=" S RETURN=$P(STAT,""^"",2)_SEP_$P(STAT,""^"")"
^XMB(3.9,74,2,695,0)="""RTN"",""MPIF001"",237,0)"
^XMB(3.9,74,2,696,0)="EXIT7 ;"
^XMB(3.9,74,2,697,0)="""RTN"",""MPIF001"",238,0)"
^XMB(3.9,74,2,698,0)=" Q RETURN"
^XMB(3.9,74,2,699,0)="""RTN"",""MPIF001"",239,0)"
^XMB(3.9,74,2,700,0)=" ;"
^XMB(3.9,74,2,701,0)="""RTN"",""MPIF001"",240,0)"
^XMB(3.9,74,2,702,0)="LOCK ;"
^XMB(3.9,74,2,703,0)="""RTN"",""MPIF001"",241,0)"
^XMB(3.9,74,2,704,0)=" F  L +^DPT(DFN,""MPI""):10 Q:$T"
^XMB(3.9,74,2,705,0)="""RTN"",""MPIF001"",242,0)"
^XMB(3.9,74,2,706,0)=" Q"
^XMB(3.9,74,2,707,0)="""RTN"",""MPIF001"",243,0)"
^XMB(3.9,74,2,708,0)=" ;"
^XMB(3.9,74,2,709,0)="""RTN"",""MPIF001"",244,0)"
^XMB(3.9,74,2,710,0)="UNLOCK ;"
^XMB(3.9,74,2,711,0)="""RTN"",""MPIF001"",245,0)"
^XMB(3.9,74,2,712,0)=" L -^DPT(DFN,""MPI"")"
^XMB(3.9,74,2,713,0)="""RTN"",""MPIF001"",246,0)"
^XMB(3.9,74,2,714,0)=" Q"
^XMB(3.9,74,2,715,0)="""RTN"",""MPIFAPI"")"
^XMB(3.9,74,2,716,0)="0^1^B31723970^B28137088"
^XMB(3.9,74,2,717,0)="""RTN"",""MPIFAPI"",1,0)"
^XMB(3.9,74,2,718,0)="MPIFAPI ;CMC/BP-APIS FOR MPI ;DEC 21, 1998"
^XMB(3.9,74,2,719,0)="""RTN"",""MPIFAPI"",2,0)"
^XMB(3.9,74,2,720,0)=" ;;1.0; MASTER PATIENT INDEX VISTA ;**1,3,14,16,17,21,27,28,33,35,37,43,45**;30 Apr 99"
^XMB(3.9,74,2,721,0)="""RTN"",""MPIFAPI"",3,0)"
^XMB(3.9,74,2,722,0)=" ; Integration Agreements Utilized:"
^XMB(3.9,74,2,723,0)="""RTN"",""MPIFAPI"",4,0)"
^XMB(3.9,74,2,724,0)=" ;   ^DPT( - #2070 and #4079"
^XMB(3.9,74,2,725,0)="""RTN"",""MPIFAPI"",5,0)"
^XMB(3.9,74,2,726,0)=" ;   ^DPT(""AICN"", ^DPT(""AMPIMIS"", ^DPT(""ASCN2"" - #2070"
^XMB(3.9,74,2,727,0)="""RTN"",""MPIFAPI"",6,0)"
^XMB(3.9,74,2,728,0)=" ;   EXC, START, STOP^RGHLLOG - #2796"
^XMB(3.9,74,2,729,0)="""RTN"",""MPIFAPI"",7,0)"
^XMB(3.9,74,2,730,0)=" ;"
^XMB(3.9,74,2,731,0)="""RTN"",""MPIFAPI"",8,0)"
^XMB(3.9,74,2,732,0)="EN2() ;NEW ENTRY POINT FOR LOCALS"
^XMB(3.9,74,2,733,0)="""RTN"",""MPIFAPI"",9,0)"
^XMB(3.9,74,2,734,0)=" N MPIOUT,DIC,MPICHK,MPINCK,MPINNM,MPINUM1,DA,MPINUM"
^XMB(3.9,74,2,735,0)="""RTN"",""MPIFAPI"",10,0)"
^XMB(3.9,74,2,736,0)=" I $O(^MPIF(984.1,0))="""" G SETUP"
^XMB(3.9,74,2,737,0)="""RTN"",""MPIFAPI"",11,0)"
^XMB(3.9,74,2,738,0)="AGN2 L +^MPIF(984.1):1 E  H 3 G AGN2"
^XMB(3.9,74,2,739,0)="""RTN"",""MPIFAPI"",12,0)"
^XMB(3.9,74,2,740,0)=" S MPINUM=0,X=$$SITE^VASITE,X=$P(X,""^"",3),X=X\1"
^XMB(3.9,74,2,741,0)="""RTN"",""MPIFAPI"",13,0)"
^XMB(3.9,74,2,742,0)=" S DIC=""^MPIF(984.1,"",DIC(0)=""XZ"" D ^DIC"
^XMB(3.9,74,2,743,0)="""RTN"",""MPIFAPI"",14,0)"
^XMB(3.9,74,2,744,0)=" S MPINUM1=$P(Y(0),""^"",4),MPICHK=$P(Y(0),""^"",5),MPINNM=MPINUM1+1"
^XMB(3.9,74,2,745,0)="""RTN"",""MPIFAPI"",15,0)"
^XMB(3.9,74,2,746,0)=" S MPINUM=MPINUM1_""V""_MPICHK,MPINCK=$$CHECKDG^MPIFSPC(MPINNM)"
^XMB(3.9,74,2,747,0)="""RTN"",""MPIFAPI"",16,0)"
^XMB(3.9,74,2,748,0)=" S DA=1,DIE=""^MPIF(984.1,"",DR=""1////^S X=MPINUM1;2////^S X=MPICHK;3////^S X=MPINNM;5////""_MPINCK"
^XMB(3.9,74,2,749,0)="""RTN"",""MPIFAPI"",17,0)"
^XMB(3.9,74,2,750,0)=" D ^DIE"
^XMB(3.9,74,2,751,0)="""RTN"",""MPIFAPI"",18,0)"
^XMB(3.9,74,2,752,0)=" K DIE,DR,X,Y"
^XMB(3.9,74,2,753,0)="""RTN"",""MPIFAPI"",19,0)"
^XMB(3.9,74,2,754,0)=" L -^MPIF(984.1)"
^XMB(3.9,74,2,755,0)="""RTN"",""MPIFAPI"",20,0)"
^XMB(3.9,74,2,756,0)=" Q MPINUM"
^XMB(3.9,74,2,757,0)="""RTN"",""MPIFAPI"",21,0)"
^XMB(3.9,74,2,758,0)="SETUP ;"
^XMB(3.9,74,2,759,0)="""RTN"",""MPIFAPI"",22,0)"
^XMB(3.9,74,2,760,0)=" N CHK,NUM,NXTCHK,NXTNUM,SITE,DA"
^XMB(3.9,74,2,761,0)="""RTN"",""MPIFAPI"",23,0)"
^XMB(3.9,74,2,762,0)=" S SITE=$$SITE^VASITE,SITE=$P(SITE,""^"",3),SITE=SITE\1"
^XMB(3.9,74,2,763,0)="""RTN"",""MPIFAPI"",24,0)"
^XMB(3.9,74,2,764,0)=" S DIC=""^MPIF(984.1,"",DA=1,DIC(0)="""",X=SITE"
^XMB(3.9,74,2,765,0)="""RTN"",""MPIFAPI"",25,0)"
^XMB(3.9,74,2,766,0)=" S NUM=SITE_""0000000"",CHK=$$CHECKDG^MPIFSPC(NUM),MPINUM=NUM_""V""_CHK"
^XMB(3.9,74,2,767,0)="""RTN"",""MPIFAPI"",26,0)"
^XMB(3.9,74,2,768,0)=" S NXTNUM=NUM+1,NXTCHK=$$CHECKDG^MPIFSPC(NXTNUM)"
^XMB(3.9,74,2,769,0)="""RTN"",""MPIFAPI"",27,0)"
^XMB(3.9,74,2,770,0)=" S DIC(""DR"")=""1////^S X=NUM;2////^S X=CHK;3////^S X=NXTNUM;5////""_NXTCHK"
^XMB(3.9,74,2,771,0)="""RTN"",""MPIFAPI"",28,0)"
^XMB(3.9,74,2,772,0)=" K DD,D0"
^XMB(3.9,74,2,773,0)="""RTN"",""MPIFAPI"",29,0)"
^XMB(3.9,74,2,774,0)=" D FILE^DICN"
^XMB(3.9,74,2,775,0)="""RTN"",""MPIFAPI"",30,0)"
^XMB(3.9,74,2,776,0)=" K DIC,X,Y"
^XMB(3.9,74,2,777,0)="""RTN"",""MPIFAPI"",31,0)"
^XMB(3.9,74,2,778,0)=" Q MPINUM"
^XMB(3.9,74,2,779,0)="""RTN"",""MPIFAPI"",32,0)"
^XMB(3.9,74,2,780,0)=" ;"
^XMB(3.9,74,2,781,0)="""RTN"",""MPIFAPI"",33,0)"
^XMB(3.9,74,2,782,0)="MPILINK() ;returns MPI logical Link"
^XMB(3.9,74,2,783,0)="""RTN"",""MPIFAPI"",34,0)"
^XMB(3.9,74,2,784,0)=" N MPIL,MPILINK"
^XMB(3.9,74,2,785,0)="""RTN"",""MPIFAPI"",35,0)"
^XMB(3.9,74,2,786,0)=" D LINK^HLUTIL3(""MPI"",.MPIL)"
^XMB(3.9,74,2,787,0)="""RTN"",""MPIFAPI"",36,0)"
^XMB(3.9,74,2,788,0)=" I '$D(MPIL) Q ""-1^NOT DEFINED"""
^XMB(3.9,74,2,789,0)="""RTN"",""MPIFAPI"",37,0)"
^XMB(3.9,74,2,790,0)=" S MPILINK=$O(MPIL(0))"
^XMB(3.9,74,2,791,0)="""RTN"",""MPIFAPI"",38,0)"
^XMB(3.9,74,2,792,0)=" I MPILINK="""" Q ""-1^NOT DEFINED"""
^XMB(3.9,74,2,793,0)="""RTN"",""MPIFAPI"",39,0)"
^XMB(3.9,74,2,794,0)=" S MPILINK=$G(MPIL(MPILINK))"
^XMB(3.9,74,2,795,0)="""RTN"",""MPIFAPI"",40,0)"
^XMB(3.9,74,2,796,0)=" Q MPILINK"
^XMB(3.9,74,2,797,0)="""RTN"",""MPIFAPI"",41,0)"
^XMB(3.9,74,2,798,0)=" ;"
^XMB(3.9,74,2,799,0)="""RTN"",""MPIFAPI"",42,0)"
^XMB(3.9,74,2,800,0)="SUBNUM(DFN) ; returns SCN from MPI node for given DFN"
^XMB(3.9,74,2,801,0)="""RTN"",""MPIFAPI"",43,0)"
^XMB(3.9,74,2,802,0)=" ; DFN - ien of patient file"
^XMB(3.9,74,2,803,0)="""RTN"",""MPIFAPI"",44,0)"
^XMB(3.9,74,2,804,0)=" ; returns:  -1^error message << always returns."
^XMB(3.9,74,2,805,0)="""RTN"",""MPIFAPI"",45,0)"
^XMB(3.9,74,2,806,0)=" ;*** Subscription control numbers no longer exist"
^XMB(3.9,74,2,807,0)="""RTN"",""MPIFAPI"",46,0)"
^XMB(3.9,74,2,808,0)=" Q ""-1^No Subscription Control Number for DFN ""_DFN"
^XMB(3.9,74,2,809,0)="""RTN"",""MPIFAPI"",47,0)"
^XMB(3.9,74,2,810,0)=" ;"
^XMB(3.9,74,2,811,0)="""RTN"",""MPIFAPI"",48,0)"
^XMB(3.9,74,2,812,0)="MPINODE(DFN) ; returns MPI node for given DFN"
^XMB(3.9,74,2,813,0)="""RTN"",""MPIFAPI"",49,0)"
^XMB(3.9,74,2,814,0)=" ;DFN - patient file ien"
^XMB(3.9,74,2,815,0)="""RTN"",""MPIFAPI"",50,0)"
^XMB(3.9,74,2,816,0)=" ; returns:  -1^error message or MPI node from patient file"
^XMB(3.9,74,2,817,0)="""RTN"",""MPIFAPI"",51,0)"
^XMB(3.9,74,2,818,0)=" I '$D(DFN) Q ""-1^DFN not defined"""
^XMB(3.9,74,2,819,0)="""RTN"",""MPIFAPI"",52,0)"
^XMB(3.9,74,2,820,0)=" I '$D(^DPT(DFN)) Q ""-1^DFN doesn't exist"""
^XMB(3.9,74,2,821,0)="""RTN"",""MPIFAPI"",53,0)"
^XMB(3.9,74,2,822,0)=" I '$D(^DPT(DFN,""MPI"")) Q ""-1^No MPI node for DFN ""_DFN"
^XMB(3.9,74,2,823,0)="""RTN"",""MPIFAPI"",54,0)"
^XMB(3.9,74,2,824,0)=" L +^DPT(""MPI"",DFN):10 ;**45 added lock check for getting ICN data back"
^XMB(3.9,74,2,825,0)="""RTN"",""MPIFAPI"",55,0)"
^XMB(3.9,74,2,826,0)=" N NODE S NODE=$G(^DPT(DFN,""MPI""))"
^XMB(3.9,74,2,827,0)="""RTN"",""MPIFAPI"",56,0)"
^XMB(3.9,74,2,828,0)=" I NODE=""""!(NODE?.""^"") S NODE=""-1^No MPI data for DFN ""_DFN"
^XMB(3.9,74,2,829,0)="""RTN"",""MPIFAPI"",57,0)"
^XMB(3.9,74,2,830,0)=" I +NODE>0 D"
^XMB(3.9,74,2,831,0)="""RTN"",""MPIFAPI"",58,0)"
^XMB(3.9,74,2,832,0)=" .;**45 checking if checksum for ICN is correct, if not update the 991.02 field"
^XMB(3.9,74,2,833,0)="""RTN"",""MPIFAPI"",59,0)"
^XMB(3.9,74,2,834,0)=" .; and include new value in NODE returned."
^XMB(3.9,74,2,835,0)="""RTN"",""MPIFAPI"",60,0)"
^XMB(3.9,74,2,836,0)=" .N CHK S CHK=$$CHECKDG^MPIFSPC($P(NODE,""^""))"
^XMB(3.9,74,2,837,0)="""RTN"",""MPIFAPI"",61,0)"
^XMB(3.9,74,2,838,0)=" .I CHK'=$P(NODE,""^"",2) D SETICN^MPIF001(DFN,$P(NODE,""^""),CHK) S $P(NODE,""^"",2)=CHK"
^XMB(3.9,74,2,839,0)="""RTN"",""MPIFAPI"",62,0)"
^XMB(3.9,74,2,840,0)=" L -^DPT(""MPI"",DFN)"
^XMB(3.9,74,2,841,0)="""RTN"",""MPIFAPI"",63,0)"
^XMB(3.9,74,2,842,0)=" Q NODE"
^XMB(3.9,74,2,843,0)="""RTN"",""MPIFAPI"",64,0)"
^XMB(3.9,74,2,844,0)=" ;"
^XMB(3.9,74,2,845,0)="""RTN"",""MPIFAPI"",65,0)"
^XMB(3.9,74,2,846,0)="GETADFN(ICN) ; return DFN ONLY if ICN is the active ICN"
^XMB(3.9,74,2,847,0)="""RTN"",""MPIFAPI"",66,0)"
^XMB(3.9,74,2,848,0)=" ; ICN - Integration Control Number for patient to be returned"
^XMB(3.9,74,2,849,0)="""RTN"",""MPIFAPI"",67,0)"
^XMB(3.9,74,2,850,0)=" ; returns:  -1^error message"
^XMB(3.9,74,2,851,0)="""RTN"",""MPIFAPI"",68,0)"
^XMB(3.9,74,2,852,0)=" ;           DFN - IEN for the patient entry in the Patient file (#2)"
^XMB(3.9,74,2,853,0)="""RTN"",""MPIFAPI"",69,0)"
^XMB(3.9,74,2,854,0)=" N RETURN,DFN"
^XMB(3.9,74,2,855,0)="""RTN"",""MPIFAPI"",70,0)"
^XMB(3.9,74,2,856,0)=" I $G(ICN)'>0 Q ""-1^NO ICN"""
^XMB(3.9,74,2,857,0)="""RTN"",""MPIFAPI"",71,0)"
^XMB(3.9,74,2,858,0)=" I '$D(^DPT(""AICN"",ICN)) Q ""-1^ICN NOT IN DATABASE"""
^XMB(3.9,74,2,859,0)="""RTN"",""MPIFAPI"",72,0)"
^XMB(3.9,74,2,860,0)=" S DFN=$O(^DPT(""AICN"",ICN,0))"
^XMB(3.9,74,2,861,0)="""RTN"",""MPIFAPI"",73,0)"
^XMB(3.9,74,2,862,0)=" I $G(DFN)'>0 Q ""-1^BAD AICN CROSS-REFERENCE"""
^XMB(3.9,74,2,863,0)="""RTN"",""MPIFAPI"",74,0)"
^XMB(3.9,74,2,864,0)=" I $P($G(^DPT(DFN,""MPI"")),""^"")'=ICN Q ""-1^ICN is not Active one"""
^XMB(3.9,74,2,865,0)="""RTN"",""MPIFAPI"",75,0)"
^XMB(3.9,74,2,866,0)=" Q DFN"
^XMB(3.9,74,2,867,0)="""RTN"",""MPIFAPI"",76,0)"
^XMB(3.9,74,2,868,0)=" ;"
^XMB(3.9,74,2,869,0)="""RTN"",""MPIFAPI"",77,0)"
^XMB(3.9,74,2,870,0)="UPDATE(DFN,ARR,MPISILNT,REMOVE) ;api to edit 'mpi','mpifhis' and 'mpicmor' nodes"
^XMB(3.9,74,2,871,0)="""RTN"",""MPIFAPI"",78,0)"
^XMB(3.9,74,2,872,0)=" ;**37 UPDATE module moved 3/30/05 from MPIFAPI into MPIFAPI1."
^XMB(3.9,74,2,873,0)="""RTN"",""MPIFAPI"",79,0)"
^XMB(3.9,74,2,874,0)=" ;Linetag must remain due to DBIA #2706."
^XMB(3.9,74,2,875,0)="""RTN"",""MPIFAPI"",80,0)"
^XMB(3.9,74,2,876,0)=" Q $$UPDATE^MPIFAPI1(DFN,ARR,.MPISILNT,.REMOVE)"
^XMB(3.9,74,2,877,0)="""RTN"",""MPIFAPI"",81,0)"
^XMB(3.9,74,2,878,0)=" ;"
^XMB(3.9,74,2,879,0)="""RTN"",""MPIFAPI"",82,0)"
^XMB(3.9,74,2,880,0)="MPIQ(DFN) ;MPI QUERY"
^XMB(3.9,74,2,881,0)="""RTN"",""MPIFAPI"",83,0)"
^XMB(3.9,74,2,882,0)=" L +^DPT(DFN):2 I '$T,'$D(MPIFS) W $C(7),!!,""Patient is being edited. No attempt will be made to connect to the MPI."" H 2 Q"
^XMB(3.9,74,2,883,0)="""RTN"",""MPIFAPI"",84,0)"
^XMB(3.9,74,2,884,0)=" I '$D(MPIFS) D  ;Not from SmartCard background job"
^XMB(3.9,74,2,885,0)="""RTN"",""MPIFAPI"",85,0)"
^XMB(3.9,74,2,886,0)=" .;**37 mods to L -^DPT"
^XMB(3.9,74,2,887,0)="""RTN"",""MPIFAPI"",86,0)"
^XMB(3.9,74,2,888,0)=" .I $G(DGNEW)=1 D  ;New patient, fields always blank, ask"
^XMB(3.9,74,2,889,0)="""RTN"",""MPIFAPI"",87,0)"
^XMB(3.9,74,2,890,0)=" ..D WRTLN"
^XMB(3.9,74,2,891,0)="""RTN"",""MPIFAPI"",88,0)"
^XMB(3.9,74,2,892,0)=" ..S DIE=""^DPT("",DA=DFN,DIE(""NO^"")=""BACK"""
^XMB(3.9,74,2,893,0)="""RTN"",""MPIFAPI"",89,0)"
^XMB(3.9,74,2,894,0)=" ..S DR="".2403;.092;.093;1"",DR(2,2.01)="".01"" D ^DIE K DA,DIE,DR Q"
^XMB(3.9,74,2,895,0)="""RTN"",""MPIFAPI"",90,0)"
^XMB(3.9,74,2,896,0)=" .I $G(DGNEW)="""" D  ;Existing patient, get current values"
^XMB(3.9,74,2,897,0)="""RTN"",""MPIFAPI"",91,0)"
^XMB(3.9,74,2,898,0)=" ..K MPIFARR N MPIDOB,IMPRS,MPIMMN,MPICTY,MPIST"
^XMB(3.9,74,2,899,0)="""RTN"",""MPIFAPI"",92,0)"
^XMB(3.9,74,2,900,0)=" ..S DIC=2,DR="".02;.03;.09;.092;.093;.2403;994;1"",DR(2.01)="".01"""
^XMB(3.9,74,2,901,0)="""RTN"",""MPIFAPI"",93,0)"
^XMB(3.9,74,2,902,0)=" ..S DA=DFN,DA(2.01)=1,DIQ(0)=""EI"",DIQ=""MPIFARR"""
^XMB(3.9,74,2,903,0)="""RTN"",""MPIFAPI"",94,0)"
^XMB(3.9,74,2,904,0)=" ..D EN^DIQ1 K DA,DIC,DIQ,DR"
^XMB(3.9,74,2,905,0)="""RTN"",""MPIFAPI"",95,0)"
^XMB(3.9,74,2,906,0)=" ..;build DR from blank fields / imprecise DOB / pseudo SSN"
^XMB(3.9,74,2,907,0)="""RTN"",""MPIFAPI"",96,0)"
^XMB(3.9,74,2,908,0)=" ..S DR="""""
^XMB(3.9,74,2,909,0)="""RTN"",""MPIFAPI"",97,0)"
^XMB(3.9,74,2,910,0)=" ..S MPIDOB=$G(MPIFARR(2,DFN,.03,""I"")) ;DATE OF BIRTH"
^XMB(3.9,74,2,911,0)="""RTN"",""MPIFAPI"",98,0)"
^XMB(3.9,74,2,912,0)=" ..I MPIDOB="""" S DR=DR_"".03;"" ;DOB null"
^XMB(3.9,74,2,913,0)="""RTN"",""MPIFAPI"",99,0)"
^XMB(3.9,74,2,914,0)=" ..;Is DOB imprecise?"
^XMB(3.9,74,2,915,0)="""RTN"",""MPIFAPI"",100,0)"
^XMB(3.9,74,2,916,0)=" ..I MPIDOB'="""" S IMPRS=0 D"
^XMB(3.9,74,2,917,0)="""RTN"",""MPIFAPI"",101,0)"
^XMB(3.9,74,2,918,0)=" ...I $E(MPIDOB,4,7)=""0000"" S IMPRS=1 ;Year only; no month/day"
^XMB(3.9,74,2,919,0)="""RTN"",""MPIFAPI"",102,0)"
^XMB(3.9,74,2,920,0)=" ...I ($E(MPIDOB,6,7)=""00"")&($E(MPIDOB,4,5)'=""00"") S IMPRS=1 ;Year/month only; no day"
^XMB(3.9,74,2,921,0)="""RTN"",""MPIFAPI"",103,0)"
^XMB(3.9,74,2,922,0)=" ...I IMPRS=1 S DR=DR_"".03;"" ;DOB imprecise"
^XMB(3.9,74,2,923,0)="""RTN"",""MPIFAPI"",104,0)"
^XMB(3.9,74,2,924,0)=" ..I $G(MPIFARR(2,DFN,.02,""I""))="""" S DR=DR_"".02;"" ;SEX"
^XMB(3.9,74,2,925,0)="""RTN"",""MPIFAPI"",105,0)"
^XMB(3.9,74,2,926,0)=" ..I ($G(MPIFARR(2,DFN,.09,""E""))="""")!($G(MPIFARR(2,DFN,.09,""E""))[""P"") S DR=DR_"".09;"" ;SOCIAL SECURITY NUMBER"
^XMB(3.9,74,2,927,0)="""RTN"",""MPIFAPI"",106,0)"
^XMB(3.9,74,2,928,0)=" ..I $G(MPIFARR(2,DFN,994,""I""))="""" S DR=DR_""994;"" ;MULTIPLE BIRTH INDICATOR"
^XMB(3.9,74,2,929,0)="""RTN"",""MPIFAPI"",107,0)"
^XMB(3.9,74,2,930,0)=" ..S MPIMMN=$G(MPIFARR(2,DFN,.2403,""E"")) ;MOTHER'S MAIDEN NAME"
^XMB(3.9,74,2,931,0)="""RTN"",""MPIFAPI"",108,0)"
^XMB(3.9,74,2,932,0)=" ..I $$VALDT(MPIMMN) S DR=DR_"".2403;"" ;Validate MMN value"
^XMB(3.9,74,2,933,0)="""RTN"",""MPIFAPI"",109,0)"
^XMB(3.9,74,2,934,0)=" ..S MPICTY=$G(MPIFARR(2,DFN,.092,""E"")) ;PLACE OF BIRTH [CITY]"
^XMB(3.9,74,2,935,0)="""RTN"",""MPIFAPI"",110,0)"
^XMB(3.9,74,2,936,0)=" ..S MPIST=$G(MPIFARR(2,DFN,.093,""E"")) ;PLACE OF BIRTH [STATE]"
^XMB(3.9,74,2,937,0)="""RTN"",""MPIFAPI"",111,0)"
^XMB(3.9,74,2,938,0)=" ..I $S($$VALDT(MPICTY):1,$$VALDT(MPIST):1,1:0) S DR=DR_"".092;.093;"" ;Validate POB [CITY] & [STATE] value"
^XMB(3.9,74,2,939,0)="""RTN"",""MPIFAPI"",112,0)"
^XMB(3.9,74,2,940,0)=" ..I $G(MPIFARR(2.01,1,.01,""E""))="""" S DR=DR_""1"",DR(2,2.01)="".01"" ;ALIAS"
^XMB(3.9,74,2,941,0)="""RTN"",""MPIFAPI"",113,0)"
^XMB(3.9,74,2,942,0)=" ..K MPIFARR"
^XMB(3.9,74,2,943,0)="""RTN"",""MPIFAPI"",114,0)"
^XMB(3.9,74,2,944,0)=" ..I DR'="""" D"
^XMB(3.9,74,2,945,0)="""RTN"",""MPIFAPI"",115,0)"
^XMB(3.9,74,2,946,0)=" ...D WRTLN"
^XMB(3.9,74,2,947,0)="""RTN"",""MPIFAPI"",116,0)"
^XMB(3.9,74,2,948,0)=" ...S DIE=""^DPT("",DA=DFN,DIE(""NO^"")=""BACK"""
^XMB(3.9,74,2,949,0)="""RTN"",""MPIFAPI"",117,0)"
^XMB(3.9,74,2,950,0)=" ...D ^DIE K DA,DIE,DR"
^XMB(3.9,74,2,951,0)="""RTN"",""MPIFAPI"",118,0)"
^XMB(3.9,74,2,952,0)=" L -^DPT(DFN)"
^XMB(3.9,74,2,953,0)="""RTN"",""MPIFAPI"",119,0)"
^XMB(3.9,74,2,954,0)=" I $D(ZTQUEUED) S ZTREQ=""@"""
^XMB(3.9,74,2,955,0)="""RTN"",""MPIFAPI"",120,0)"
^XMB(3.9,74,2,956,0)=" K MPIFRTN D VTQ^MPIFQ0"
^XMB(3.9,74,2,957,0)="""RTN"",""MPIFAPI"",121,0)"
^XMB(3.9,74,2,958,0)=" ;**43 No longer get list of potential matches to pick from"
^XMB(3.9,74,2,959,0)="""RTN"",""MPIFAPI"",122,0)"
^XMB(3.9,74,2,960,0)=" ;I $G(MPIFRTN)="""" D"
^XMB(3.9,74,2,961,0)="""RTN"",""MPIFAPI"",123,0)"
^XMB(3.9,74,2,962,0)=" ;. ^ Quit at LM screen when presented with a list of possible matches"
^XMB(3.9,74,2,963,0)="""RTN"",""MPIFAPI"",124,0)"
^XMB(3.9,74,2,964,0)=" ;. \/ setup Local ICN and proceed"
^XMB(3.9,74,2,965,0)="""RTN"",""MPIFAPI"",125,0)"
^XMB(3.9,74,2,966,0)=" ;.N ICN,ERR"
^XMB(3.9,74,2,967,0)="""RTN"",""MPIFAPI"",126,0)"
^XMB(3.9,74,2,968,0)=" ;.S ICN=$$EN2^MPIFAPI()"
^XMB(3.9,74,2,969,0)="""RTN"",""MPIFAPI"",127,0)"
^XMB(3.9,74,2,970,0)=" ;.Q:ICN=""""!(+ICN=-1)"
^XMB(3.9,74,2,971,0)="""RTN"",""MPIFAPI"",128,0)"
^XMB(3.9,74,2,972,0)=" ;.S ERR=$$SETICN^MPIF001(DFN,+ICN,$P(ICN,""V"",2))"
^XMB(3.9,74,2,973,0)="""RTN"",""MPIFAPI"",129,0)"
^XMB(3.9,74,2,974,0)=" ;.Q:+ERR=-1"
^XMB(3.9,74,2,975,0)="""RTN"",""MPIFAPI"",130,0)"
^XMB(3.9,74,2,976,0)=" ;. ^ couldn't set ICN don't set other fields"
^XMB(3.9,74,2,977,0)="""RTN"",""MPIFAPI"",131,0)"
^XMB(3.9,74,2,978,0)=" ;.S ERR=$$SETLOC^MPIF001(DFN,1),ERR=$$CHANGE^MPIF001(DFN,$P($$SITE^VASITE,""^""))"
^XMB(3.9,74,2,979,0)="""RTN"",""MPIFAPI"",132,0)"
^XMB(3.9,74,2,980,0)=" K MPIFRTN,ZTREQ"
^XMB(3.9,74,2,981,0)="""RTN"",""MPIFAPI"",133,0)"
^XMB(3.9,74,2,982,0)=" Q"
^XMB(3.9,74,2,983,0)="""RTN"",""MPIFAPI"",134,0)"
^XMB(3.9,74,2,984,0)=" ;"
^XMB(3.9,74,2,985,0)="""RTN"",""MPIFAPI"",135,0)"
^XMB(3.9,74,2,986,0)="MPIQQ(PDFN) ; Entry point for queuing d/c"
^XMB(3.9,74,2,987,0)="""RTN"",""MPIFAPI"",136,0)"
^XMB(3.9,74,2,988,0)=" ; Returned is -1^error message OR Task #"
^XMB(3.9,74,2,989,0)="""RTN"",""MPIFAPI"",137,0)"
^XMB(3.9,74,2,990,0)=" Q:'$D(PDFN) ""-1^No DFN passed"""
^XMB(3.9,74,2,991,0)="""RTN"",""MPIFAPI"",138,0)"
^XMB(3.9,74,2,992,0)=" S ZTRTN=""MPIQ^MPIFAPI(PDFN)"""
^XMB(3.9,74,2,993,0)="""RTN"",""MPIFAPI"",139,0)"
^XMB(3.9,74,2,994,0)=" I $D(DUZ) S ZTSAVE(""DUZ"")=DUZ"
^XMB(3.9,74,2,995,0)="""RTN"",""MPIFAPI"",140,0)"
^XMB(3.9,74,2,996,0)=" S ZTSAVE(""PDFN"")=PDFN,ZTSAVE(""MPIFS"")=1"
^XMB(3.9,74,2,997,0)="""RTN"",""MPIFAPI"",141,0)"
^XMB(3.9,74,2,998,0)=" ; ^ silent flag"
^XMB(3.9,74,2,999,0)="""RTN"",""MPIFAPI"",142,0)"
^XMB(3.9,74,2,1000,0)=" S ZTIO="""",ZTDTH=$$FMADD^XLFDT($$NOW^XLFDT,0,0,1,0)"
^XMB(3.9,74,2,1001,0)="""RTN"",""MPIFAPI"",143,0)"
^XMB(3.9,74,2,1002,0)=" D ^%ZTLOAD"
^XMB(3.9,74,2,1003,0)="""RTN"",""MPIFAPI"",144,0)"
^XMB(3.9,74,2,1004,0)=" D HOME^%ZIS K IO(""Q"")"
^XMB(3.9,74,2,1005,0)="""RTN"",""MPIFAPI"",145,0)"
^XMB(3.9,74,2,1006,0)=" N TSK S TSK=ZTSK"
^XMB(3.9,74,2,1007,0)="""RTN"",""MPIFAPI"",146,0)"
^XMB(3.9,74,2,1008,0)=" K ZTSAVE,ZTRTN,ZTIO,ZTDTH,ZTSK"
^XMB(3.9,74,2,1009,0)="""RTN"",""MPIFAPI"",147,0)"
^XMB(3.9,74,2,1010,0)=" Q TSK"
^XMB(3.9,74,2,1011,0)="""RTN"",""MPIFAPI"",148,0)"
^XMB(3.9,74,2,1012,0)=" ;"
^XMB(3.9,74,2,1013,0)="""RTN"",""MPIFAPI"",149,0)"
^XMB(3.9,74,2,1014,0)="WRTLN ;**37 Write intro text ONLY if there are fields to ask"
^XMB(3.9,74,2,1015,0)="""RTN"",""MPIFAPI"",150,0)"
^XMB(3.9,74,2,1016,0)=" W !!,""Please verify or update the following information:"",!"
^XMB(3.9,74,2,1017,0)="""RTN"",""MPIFAPI"",151,0)"
^XMB(3.9,74,2,1018,0)=" Q"
^XMB(3.9,74,2,1019,0)="""RTN"",""MPIFAPI"",152,0)"
^XMB(3.9,74,2,1020,0)=" ;"
^XMB(3.9,74,2,1021,0)="""RTN"",""MPIFAPI"",153,0)"
^XMB(3.9,74,2,1022,0)="VALDT(VAL) ;**37 Validate value passed in."
^XMB(3.9,74,2,1023,0)="""RTN"",""MPIFAPI"",154,0)"
^XMB(3.9,74,2,1024,0)=" ;Prompt if field contains invalid data (e.g., UNKNOWN, NOT KNOWN, etc.)"
^XMB(3.9,74,2,1025,0)="""RTN"",""MPIFAPI"",155,0)"
^XMB(3.9,74,2,1026,0)=" ;Returns 0 if not found"
^XMB(3.9,74,2,1027,0)="""RTN"",""MPIFAPI"",156,0)"
^XMB(3.9,74,2,1028,0)=" ;Returns 1 if found"
^XMB(3.9,74,2,1029,0)="""RTN"",""MPIFAPI"",157,0)"
^XMB(3.9,74,2,1030,0)=" I VAL="""" Q 1"
^XMB(3.9,74,2,1031,0)="""RTN"",""MPIFAPI"",158,0)"
^XMB(3.9,74,2,1032,0)=" I $E($$UP^XLFSTR(VAL),1,3)=""UNK"" Q 1"
^XMB(3.9,74,2,1033,0)="""RTN"",""MPIFAPI"",159,0)"
^XMB(3.9,74,2,1034,0)=" I $E($$UP^XLFSTR(VAL),1,4)=""NONE"" Q 1"
^XMB(3.9,74,2,1035,0)="""RTN"",""MPIFAPI"",160,0)"
^XMB(3.9,74,2,1036,0)=" I $E($$UP^XLFSTR(VAL),1,4)=""NOT "" Q 1"
^XMB(3.9,74,2,1037,0)="""RTN"",""MPIFAPI"",161,0)"
^XMB(3.9,74,2,1038,0)=" I $$UP^XLFSTR(VAL)[""UNAVAILABLE"" Q 1"
^XMB(3.9,74,2,1039,0)="""RTN"",""MPIFAPI"",162,0)"
^XMB(3.9,74,2,1040,0)=" I $$UP^XLFSTR(VAL)[""DECEASED"" Q 1"
^XMB(3.9,74,2,1041,0)="""RTN"",""MPIFAPI"",163,0)"
^XMB(3.9,74,2,1042,0)=" I $E($$UP^XLFSTR(VAL),1,2)=""DC"" Q 1"
^XMB(3.9,74,2,1043,0)="""RTN"",""MPIFAPI"",164,0)"
^XMB(3.9,74,2,1044,0)=" Q 0"
^XMB(3.9,74,2,1045,0)="""RTN"",""MPIFAPI"",165,0)"
^XMB(3.9,74,2,1046,0)=" ;"
^XMB(3.9,74,2,1047,0)="""VER"")"
^XMB(3.9,74,2,1048,0)="8.0^22.0"
^XMB(3.9,74,2,1049,0)="""BLD"",2368,6)"
^XMB(3.9,74,2,1050,0)="^42"
^XMB(3.9,74,2,1051,0)="$END KID MPIF*1.0*45"
^XMB(3.9,74,6,0)="^3.911A^2^2"
^XMB(3.9,74,6,1,0)="POSTMASTER"
^XMB(3.9,74,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,74,6,"B","POSTMASTER",1)=""
^XMB(3.9,74,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,75,0)="OR-3_SEQ-226_PAT-251.KID^.5^3061008.015738^^^^K"
^XMB(3.9,75,.6)="3061008"
^XMB(3.9,75,1,0)="^3.91A^2^2"
^XMB(3.9,75,1,1,0)=".5^0^3061008.015738^^^^^^^3061008.015738"
^XMB(3.9,75,1,2,0)="1^0^3061008.024^^^^^^^3061008.024"
^XMB(3.9,75,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,75,1,"C",.5,1)=""
^XMB(3.9,75,1,"C",1,2)=""
^XMB(3.9,75,2,0)="^^1325^1325^3061008"
^XMB(3.9,75,2,1,0)="$TXT Released OR*3*251 SEQ #226"
^XMB(3.9,75,2,2,0)="Extracted from mail message"
^XMB(3.9,75,2,3,0)="$END TXT"
^XMB(3.9,75,2,4,0)="$KID OR*3.0*251"
^XMB(3.9,75,2,5,0)="**INSTALL NAME**"
^XMB(3.9,75,2,6,0)="OR*3.0*251"
^XMB(3.9,75,2,7,0)="""BLD"",17653,0)"
^XMB(3.9,75,2,8,0)="OR*3.0*251^ORDER ENTRY/RESULTS REPORTING^0^3060414^y"
^XMB(3.9,75,2,9,0)="""BLD"",17653,4,0)"
^XMB(3.9,75,2,10,0)="^9.64PA^^"
^XMB(3.9,75,2,11,0)="""BLD"",17653,""KRN"",0)"
^XMB(3.9,75,2,12,0)="^9.67PA^8989.52^19"
^XMB(3.9,75,2,13,0)="""BLD"",17653,""KRN"",.4,0)"
^XMB(3.9,75,2,14,0)=".4"
^XMB(3.9,75,2,15,0)="""BLD"",17653,""KRN"",.401,0)"
^XMB(3.9,75,2,16,0)=".401"
^XMB(3.9,75,2,17,0)="""BLD"",17653,""KRN"",.402,0)"
^XMB(3.9,75,2,18,0)=".402"
^XMB(3.9,75,2,19,0)="""BLD"",17653,""KRN"",.403,0)"
^XMB(3.9,75,2,20,0)=".403"
^XMB(3.9,75,2,21,0)="""BLD"",17653,""KRN"",.5,0)"
^XMB(3.9,75,2,22,0)=".5"
^XMB(3.9,75,2,23,0)="""BLD"",17653,""KRN"",.84,0)"
^XMB(3.9,75,2,24,0)=".84"
^XMB(3.9,75,2,25,0)="""BLD"",17653,""KRN"",3.6,0)"
^XMB(3.9,75,2,26,0)="3.6"
^XMB(3.9,75,2,27,0)="""BLD"",17653,""KRN"",3.8,0)"
^XMB(3.9,75,2,28,0)="3.8"
^XMB(3.9,75,2,29,0)="""BLD"",17653,""KRN"",9.2,0)"
^XMB(3.9,75,2,30,0)="9.2"
^XMB(3.9,75,2,31,0)="""BLD"",17653,""KRN"",9.8,0)"
^XMB(3.9,75,2,32,0)="9.8"
^XMB(3.9,75,2,33,0)="""BLD"",17653,""KRN"",9.8,""NM"",0)"
^XMB(3.9,75,2,34,0)="^9.68A^3^3"
^XMB(3.9,75,2,35,0)="""BLD"",17653,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,75,2,36,0)="ORWGAPIA^^0^B82316738"
^XMB(3.9,75,2,37,0)="""BLD"",17653,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,75,2,38,0)="ORB3TIM2^^0^B38807562"
^XMB(3.9,75,2,39,0)="""BLD"",17653,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,75,2,40,0)="ORQOR2^^0^B13837546"
^XMB(3.9,75,2,41,0)="""BLD"",17653,""KRN"",9.8,""NM"",""B"",""ORB3TIM2"",2)"
^XMB(3.9,75,2,42,0)=""
^XMB(3.9,75,2,43,0)="""BLD"",17653,""KRN"",9.8,""NM"",""B"",""ORQOR2"",3)"
^XMB(3.9,75,2,44,0)=""
^XMB(3.9,75,2,45,0)="""BLD"",17653,""KRN"",9.8,""NM"",""B"",""ORWGAPIA"",1)"
^XMB(3.9,75,2,46,0)=""
^XMB(3.9,75,2,47,0)="""BLD"",17653,""KRN"",19,0)"
^XMB(3.9,75,2,48,0)="19"
^XMB(3.9,75,2,49,0)="""BLD"",17653,""KRN"",19.1,0)"
^XMB(3.9,75,2,50,0)="19.1"
^XMB(3.9,75,2,51,0)="""BLD"",17653,""KRN"",101,0)"
^XMB(3.9,75,2,52,0)="101"
^XMB(3.9,75,2,53,0)="""BLD"",17653,""KRN"",409.61,0)"
^XMB(3.9,75,2,54,0)="409.61"
^XMB(3.9,75,2,55,0)="""BLD"",17653,""KRN"",771,0)"
^XMB(3.9,75,2,56,0)="771"
^XMB(3.9,75,2,57,0)="""BLD"",17653,""KRN"",870,0)"
^XMB(3.9,75,2,58,0)="870"
^XMB(3.9,75,2,59,0)="""BLD"",17653,""KRN"",8989.51,0)"
^XMB(3.9,75,2,60,0)="8989.51"
^XMB(3.9,75,2,61,0)="""BLD"",17653,""KRN"",8989.52,0)"
^XMB(3.9,75,2,62,0)="8989.52"
^XMB(3.9,75,2,63,0)="""BLD"",17653,""KRN"",8994,0)"
^XMB(3.9,75,2,64,0)="8994"
^XMB(3.9,75,2,65,0)="""BLD"",17653,""KRN"",""B"",.4,.4)"
^XMB(3.9,75,2,66,0)=""
^XMB(3.9,75,2,67,0)="""BLD"",17653,""KRN"",""B"",.401,.401)"
^XMB(3.9,75,2,68,0)=""
^XMB(3.9,75,2,69,0)="""BLD"",17653,""KRN"",""B"",.402,.402)"
^XMB(3.9,75,2,70,0)=""
^XMB(3.9,75,2,71,0)="""BLD"",17653,""KRN"",""B"",.403,.403)"
^XMB(3.9,75,2,72,0)=""
^XMB(3.9,75,2,73,0)="""BLD"",17653,""KRN"",""B"",.5,.5)"
^XMB(3.9,75,2,74,0)=""
^XMB(3.9,75,2,75,0)="""BLD"",17653,""KRN"",""B"",.84,.84)"
^XMB(3.9,75,2,76,0)=""
^XMB(3.9,75,2,77,0)="""BLD"",17653,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,75,2,78,0)=""
^XMB(3.9,75,2,79,0)="""BLD"",17653,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,75,2,80,0)=""
^XMB(3.9,75,2,81,0)="""BLD"",17653,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,75,2,82,0)=""
^XMB(3.9,75,2,83,0)="""BLD"",17653,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,75,2,84,0)=""
^XMB(3.9,75,2,85,0)="""BLD"",17653,""KRN"",""B"",19,19)"
^XMB(3.9,75,2,86,0)=""
^XMB(3.9,75,2,87,0)="""BLD"",17653,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,75,2,88,0)=""
^XMB(3.9,75,2,89,0)="""BLD"",17653,""KRN"",""B"",101,101)"
^XMB(3.9,75,2,90,0)=""
^XMB(3.9,75,2,91,0)="""BLD"",17653,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,75,2,92,0)=""
^XMB(3.9,75,2,93,0)="""BLD"",17653,""KRN"",""B"",771,771)"
^XMB(3.9,75,2,94,0)=""
^XMB(3.9,75,2,95,0)="""BLD"",17653,""KRN"",""B"",870,870)"
^XMB(3.9,75,2,96,0)=""
^XMB(3.9,75,2,97,0)="""BLD"",17653,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,75,2,98,0)=""
^XMB(3.9,75,2,99,0)="""BLD"",17653,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,75,2,100,0)=""
^XMB(3.9,75,2,101,0)="""BLD"",17653,""KRN"",""B"",8994,8994)"
^XMB(3.9,75,2,102,0)=""
^XMB(3.9,75,2,103,0)="""BLD"",17653,""QUES"",0)"
^XMB(3.9,75,2,104,0)="^9.62^^"
^XMB(3.9,75,2,105,0)="""BLD"",17653,""REQB"",0)"
^XMB(3.9,75,2,106,0)="^9.611^1^1"
^XMB(3.9,75,2,107,0)="""BLD"",17653,""REQB"",1,0)"
^XMB(3.9,75,2,108,0)="OR*3.0*215^2"
^XMB(3.9,75,2,109,0)="""BLD"",17653,""REQB"",""B"",""OR*3.0*215"",1)"
^XMB(3.9,75,2,110,0)=""
^XMB(3.9,75,2,111,0)="""MBREQ"")"
^XMB(3.9,75,2,112,0)="0"
^XMB(3.9,75,2,113,0)="""PKG"",22,-1)"
^XMB(3.9,75,2,114,0)="1^1"
^XMB(3.9,75,2,115,0)="""PKG"",22,0)"
^XMB(3.9,75,2,116,0)="ORDER ENTRY/RESULTS REPORTING^OR^Order Entry/Results Reporting"
^XMB(3.9,75,2,117,0)="""PKG"",22,20,0)"
^XMB(3.9,75,2,118,0)="^9.402P^^"
^XMB(3.9,75,2,119,0)="""PKG"",22,22,0)"
^XMB(3.9,75,2,120,0)="^9.49I^1^1"
^XMB(3.9,75,2,121,0)="""PKG"",22,22,1,0)"
^XMB(3.9,75,2,122,0)="3.0^2971217^2980204^64"
^XMB(3.9,75,2,123,0)="""PKG"",22,22,1,""PAH"",1,0)"
^XMB(3.9,75,2,124,0)="251^3060414"
^XMB(3.9,75,2,125,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,75,2,126,0)="Y"
^XMB(3.9,75,2,127,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,75,2,128,0)="^D REP^XPDH"
^XMB(3.9,75,2,129,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,75,2,130,0)="Shall I write over your |FLAG| File"
^XMB(3.9,75,2,131,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,75,2,132,0)="YES"
^XMB(3.9,75,2,133,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,75,2,134,0)="D XPF1^XPDIQ"
^XMB(3.9,75,2,135,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,75,2,136,0)="Y"
^XMB(3.9,75,2,137,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,75,2,138,0)="^D DTA^XPDH"
^XMB(3.9,75,2,139,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,75,2,140,0)="Want my data |FLAG| yours"
^XMB(3.9,75,2,141,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,75,2,142,0)="YES"
^XMB(3.9,75,2,143,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,75,2,144,0)="D XPF2^XPDIQ"
^XMB(3.9,75,2,145,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,75,2,146,0)="YO"
^XMB(3.9,75,2,147,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,75,2,148,0)="^D INHIBIT^XPDH"
^XMB(3.9,75,2,149,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,75,2,150,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,75,2,151,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,75,2,152,0)="YES"
^XMB(3.9,75,2,153,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,75,2,154,0)="D XPI1^XPDIQ"
^XMB(3.9,75,2,155,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,75,2,156,0)="PO^VA(200,:EM"
^XMB(3.9,75,2,157,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,75,2,158,0)="^D MG^XPDH"
^XMB(3.9,75,2,159,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,75,2,160,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,75,2,161,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,75,2,162,0)=""
^XMB(3.9,75,2,163,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,75,2,164,0)="D XPM1^XPDIQ"
^XMB(3.9,75,2,165,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,75,2,166,0)="Y"
^XMB(3.9,75,2,167,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,75,2,168,0)="^D MENU^XPDH"
^XMB(3.9,75,2,169,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,75,2,170,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,75,2,171,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,75,2,172,0)="YES"
^XMB(3.9,75,2,173,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,75,2,174,0)="D XPO1^XPDIQ"
^XMB(3.9,75,2,175,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,75,2,176,0)="Y"
^XMB(3.9,75,2,177,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,75,2,178,0)="^D OPT^XPDH"
^XMB(3.9,75,2,179,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,75,2,180,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,75,2,181,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,75,2,182,0)="YES"
^XMB(3.9,75,2,183,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,75,2,184,0)="D XPZ1^XPDIQ"
^XMB(3.9,75,2,185,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,75,2,186,0)="Y"
^XMB(3.9,75,2,187,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,75,2,188,0)="^D RTN^XPDH"
^XMB(3.9,75,2,189,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,75,2,190,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,75,2,191,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,75,2,192,0)="NO"
^XMB(3.9,75,2,193,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,75,2,194,0)="D XPZ2^XPDIQ"
^XMB(3.9,75,2,195,0)="""RTN"")"
^XMB(3.9,75,2,196,0)="3"
^XMB(3.9,75,2,197,0)="""RTN"",""ORB3TIM2"")"
^XMB(3.9,75,2,198,0)="0^2^B38807562^B30471606"
^XMB(3.9,75,2,199,0)="""RTN"",""ORB3TIM2"",1,0)"
^XMB(3.9,75,2,200,0)="ORB3TIM2 ; slc/CLA - Routine to trigger time-related notifications ;3/30/01  07:41 [1/3/05 8:21am]"
^XMB(3.9,75,2,201,0)="""RTN"",""ORB3TIM2"",2,0)"
^XMB(3.9,75,2,202,0)=" ;;3.0;ORDER ENTRY/RESULTS REPORTING;**102,215,251**;Dec 17, 1997"
^XMB(3.9,75,2,203,0)="""RTN"",""ORB3TIM2"",3,0)"
^XMB(3.9,75,2,204,0)=" ;"
^XMB(3.9,75,2,205,0)="""RTN"",""ORB3TIM2"",4,0)"
^XMB(3.9,75,2,206,0)="EXPIR ;trigger expiring order notifs"
^XMB(3.9,75,2,207,0)="""RTN"",""ORB3TIM2"",5,0)"
^XMB(3.9,75,2,208,0)=" N EDT,EXDT,EXORN,ORBDNR,ORPT,ORBRSLT,RXORD,ORLASTDT,X,Y,%DT"
^XMB(3.9,75,2,209,0)="""RTN"",""ORB3TIM2"",6,0)"
^XMB(3.9,75,2,210,0)=" N OIFILE,ORBY,ORBZ,ORBI,ORSCH,ORSCHFIL,ONETIME,ORST,ORNG,ORDT,ORDW,ORHOL"
^XMB(3.9,75,2,211,0)="""RTN"",""ORB3TIM2"",7,0)"
^XMB(3.9,75,2,212,0)=" N EXOI,ORBLST,ORBERR,OITXT,PTLOC,ORSDT,ORNOW,ORLDT"
^XMB(3.9,75,2,213,0)="""RTN"",""ORB3TIM2"",8,0)"
^XMB(3.9,75,2,214,0)=" ;"
^XMB(3.9,75,2,215,0)="""RTN"",""ORB3TIM2"",9,0)"
^XMB(3.9,75,2,216,0)=" S ORNOW=$$NOW^XLFDT"
^XMB(3.9,75,2,217,0)="""RTN"",""ORB3TIM2"",10,0)"
^XMB(3.9,75,2,218,0)=" ;"
^XMB(3.9,75,2,219,0)="""RTN"",""ORB3TIM2"",11,0)"
^XMB(3.9,75,2,220,0)=" I '$D(^XTMP(""ORB LAST EXPIRE"")) D  ;holds last dt EXPIR processed"
^XMB(3.9,75,2,221,0)="""RTN"",""ORB3TIM2"",12,0)"
^XMB(3.9,75,2,222,0)=" .S ^XTMP(""ORB LAST EXPIRE"",0)=$$FMADD^XLFDT(ORNOW,7,"""","""","""")_U"
^XMB(3.9,75,2,223,0)="""RTN"",""ORB3TIM2"",13,0)"
^XMB(3.9,75,2,224,0)=" ;"
^XMB(3.9,75,2,225,0)="""RTN"",""ORB3TIM2"",14,0)"
^XMB(3.9,75,2,226,0)=" ;determine number of days to return orders using day of week & holidays"
^XMB(3.9,75,2,227,0)="""RTN"",""ORB3TIM2"",15,0)"
^XMB(3.9,75,2,228,0)=" F ORNG=1:1 D  I ORHOL=0,ORDW=0 Q"
^XMB(3.9,75,2,229,0)="""RTN"",""ORB3TIM2"",16,0)"
^XMB(3.9,75,2,230,0)=" .S ORDW=$S($H-4+ORNG#7>4:1,1:0)          ;if Sat or Sun, ORDW=0"
^XMB(3.9,75,2,231,0)="""RTN"",""ORB3TIM2"",17,0)"
^XMB(3.9,75,2,232,0)=" .S ORDT=$$FMADD^XLFDT(DT,ORNG)"
^XMB(3.9,75,2,233,0)="""RTN"",""ORB3TIM2"",18,0)"
^XMB(3.9,75,2,234,0)=" .K DIC S DIC=""^HOLIDAY("",X=ORDT D ^DIC"
^XMB(3.9,75,2,235,0)="""RTN"",""ORB3TIM2"",19,0)"
^XMB(3.9,75,2,236,0)=" .S ORHOL=$S(+$G(Y)>0:1,1:0)              ;if ORDT is a holiday, ORHOL=0"
^XMB(3.9,75,2,237,0)="""RTN"",""ORB3TIM2"",20,0)"
^XMB(3.9,75,2,238,0)=" S %DT="""",X=""T+""_ORNG D ^%DT"
^XMB(3.9,75,2,239,0)="""RTN"",""ORB3TIM2"",21,0)"
^XMB(3.9,75,2,240,0)=" S EDT=Y_"".2400"""
^XMB(3.9,75,2,241,0)="""RTN"",""ORB3TIM2"",22,0)"
^XMB(3.9,75,2,242,0)=" K DIC"
^XMB(3.9,75,2,243,0)="""RTN"",""ORB3TIM2"",23,0)"
^XMB(3.9,75,2,244,0)=" ;"
^XMB(3.9,75,2,245,0)="""RTN"",""ORB3TIM2"",24,0)"
^XMB(3.9,75,2,246,0)=" ;get DNR OIs:"
^XMB(3.9,75,2,247,0)="""RTN"",""ORB3TIM2"",25,0)"
^XMB(3.9,75,2,248,0)=" S OIFILE=$$TERMLKUP^ORB31(.ORBY,""DNR"")"
^XMB(3.9,75,2,249,0)="""RTN"",""ORB3TIM2"",26,0)"
^XMB(3.9,75,2,250,0)=" ;"
^XMB(3.9,75,2,251,0)="""RTN"",""ORB3TIM2"",27,0)"
^XMB(3.9,75,2,252,0)=" ;get local admin schedules for ONE TIME MED:"
^XMB(3.9,75,2,253,0)="""RTN"",""ORB3TIM2"",28,0)"
^XMB(3.9,75,2,254,0)=" S ORSCHFIL=$$TERMLKUP^ORB31(.ORBZ,""ONE TIME MED"")"
^XMB(3.9,75,2,255,0)="""RTN"",""ORB3TIM2"",29,0)"
^XMB(3.9,75,2,256,0)=" ;"
^XMB(3.9,75,2,257,0)="""RTN"",""ORB3TIM2"",30,0)"
^XMB(3.9,75,2,258,0)=" ;examine expiring orders:"
^XMB(3.9,75,2,259,0)="""RTN"",""ORB3TIM2"",31,0)"
^XMB(3.9,75,2,260,0)=" S ORLASTDT=$P(^XTMP(""ORB LAST EXPIRE"",0),U,2)"
^XMB(3.9,75,2,261,0)="""RTN"",""ORB3TIM2"",32,0)"
^XMB(3.9,75,2,262,0)=" S EXDT=$S($L(ORLASTDT):ORLASTDT,1:ORNOW)"
^XMB(3.9,75,2,263,0)="""RTN"",""ORB3TIM2"",33,0)"
^XMB(3.9,75,2,264,0)=" F  S EXDT=$O(^OR(100,""AE"",EXDT)) Q:(EXDT="""")  D  Q:ORBRSLT<0"
^XMB(3.9,75,2,265,0)="""RTN"",""ORB3TIM2"",34,0)"
^XMB(3.9,75,2,266,0)=" .S ORBRSLT=$$FMDIFF^XLFDT(EDT,$P(EXDT,""."")_"".2400"",2)  ;diff in seconds"
^XMB(3.9,75,2,267,0)="""RTN"",""ORB3TIM2"",35,0)"
^XMB(3.9,75,2,268,0)=" .Q:ORBRSLT<0"
^XMB(3.9,75,2,269,0)="""RTN"",""ORB3TIM2"",36,0)"
^XMB(3.9,75,2,270,0)=" .S EXORN="""" F  S EXORN=$O(^OR(100,""AE"",EXDT,EXORN)) Q:EXORN=""""  D"
^XMB(3.9,75,2,271,0)="""RTN"",""ORB3TIM2"",37,0)"
^XMB(3.9,75,2,272,0)=" ..;"
^XMB(3.9,75,2,273,0)="""RTN"",""ORB3TIM2"",38,0)"
^XMB(3.9,75,2,274,0)=" ..;Quit if isn't at least next day after order's Date of Last Activity:"
^XMB(3.9,75,2,275,0)="""RTN"",""ORB3TIM2"",39,0)"
^XMB(3.9,75,2,276,0)=" ..S ORLDT=$P(^OR(100,EXORN,3),U)"
^XMB(3.9,75,2,277,0)="""RTN"",""ORB3TIM2"",40,0)"
^XMB(3.9,75,2,278,0)=" ..Q:$$FMDIFF^XLFDT(ORNOW,ORLDT)<1"
^XMB(3.9,75,2,279,0)="""RTN"",""ORB3TIM2"",41,0)"
^XMB(3.9,75,2,280,0)=" ..;"
^XMB(3.9,75,2,281,0)="""RTN"",""ORB3TIM2"",42,0)"
^XMB(3.9,75,2,282,0)=" ..Q:$D(^XTMP(""ORB LAST EXPIRE"",EXORN))  ;quit if order already processed"
^XMB(3.9,75,2,283,0)="""RTN"",""ORB3TIM2"",43,0)"
^XMB(3.9,75,2,284,0)=" ..S ^XTMP(""ORB LAST EXPIRE"",EXORN)=EXDT"
^XMB(3.9,75,2,285,0)="""RTN"",""ORB3TIM2"",44,0)"
^XMB(3.9,75,2,286,0)=" ..;"
^XMB(3.9,75,2,287,0)="""RTN"",""ORB3TIM2"",45,0)"
^XMB(3.9,75,2,288,0)=" ..S ORPT=$$PT^ORQOR2(EXORN)   ; get pt assoc w/order"
^XMB(3.9,75,2,289,0)="""RTN"",""ORB3TIM2"",46,0)"
^XMB(3.9,75,2,290,0)=" ..Q:+$G(ORPT)<1"
^XMB(3.9,75,2,291,0)="""RTN"",""ORB3TIM2"",47,0)"
^XMB(3.9,75,2,292,0)=" ..;"
^XMB(3.9,75,2,293,0)="""RTN"",""ORB3TIM2"",48,0)"
^XMB(3.9,75,2,294,0)=" ..Q:+$G(^DPT(ORPT,.35))>0  ; quit if pt deceased - DBIA #10035"
^XMB(3.9,75,2,295,0)="""RTN"",""ORB3TIM2"",49,0)"
^XMB(3.9,75,2,296,0)=" ..;"
^XMB(3.9,75,2,297,0)="""RTN"",""ORB3TIM2"",50,0)"
^XMB(3.9,75,2,298,0)=" ..S PTLOC=$G(^DPT(+$G(ORPT),.1)),PTLOC=$S($L(PTLOC):PTLOC,1:""OUTPT"")"
^XMB(3.9,75,2,299,0)="""RTN"",""ORB3TIM2"",51,0)"
^XMB(3.9,75,2,300,0)=" ..;"
^XMB(3.9,75,2,301,0)="""RTN"",""ORB3TIM2"",52,0)"
^XMB(3.9,75,2,302,0)=" ..; is expiring order a DNR order:"
^XMB(3.9,75,2,303,0)="""RTN"",""ORB3TIM2"",53,0)"
^XMB(3.9,75,2,304,0)=" ..I $D(ORBY),(+$G(OIFILE)=101.43) D"
^XMB(3.9,75,2,305,0)="""RTN"",""ORB3TIM2"",54,0)"
^XMB(3.9,75,2,306,0)=" ...F ORBI=1:1:ORBY D"
^XMB(3.9,75,2,307,0)="""RTN"",""ORB3TIM2"",55,0)"
^XMB(3.9,75,2,308,0)=" ....S ORBDNR=$P(ORBY(ORBI),U) I ORBDNR=$$OI^ORQOR2(EXORN) D"
^XMB(3.9,75,2,309,0)="""RTN"",""ORB3TIM2"",56,0)"
^XMB(3.9,75,2,310,0)=" .....S ORST=$P($$STATUS^ORQOR2(EXORN),U,2)"
^XMB(3.9,75,2,311,0)="""RTN"",""ORB3TIM2"",57,0)"
^XMB(3.9,75,2,312,0)=" .....I ORST'=""DISCONTINUED"",ORST'=""COMPLETE"",ORST'=""EXPIRED"",ORST'=""CANCELLED"",ORST'=""DISCONTINUED/EDIT"" D"
^XMB(3.9,75,2,313,0)="""RTN"",""ORB3TIM2"",58,0)"
^XMB(3.9,75,2,314,0)=" ......D EN^ORB3(45,ORPT,EXORN,"""","""",EXORN_""@"") ;trigger DNR notif"
^XMB(3.9,75,2,315,0)="""RTN"",""ORB3TIM2"",59,0)"
^XMB(3.9,75,2,316,0)=" ..;"
^XMB(3.9,75,2,317,0)="""RTN"",""ORB3TIM2"",60,0)"
^XMB(3.9,75,2,318,0)=" ..; is expiring order a flagged oi:"
^XMB(3.9,75,2,319,0)="""RTN"",""ORB3TIM2"",61,0)"
^XMB(3.9,75,2,320,0)=" ..S EXOI=$$OI^ORQOR2(EXORN) I +$G(EXOI)>0 D"
^XMB(3.9,75,2,321,0)="""RTN"",""ORB3TIM2"",62,0)"
^XMB(3.9,75,2,322,0)=" ...I $L(PTLOC),PTLOC'=""OUTPT"" D"
^XMB(3.9,75,2,323,0)="""RTN"",""ORB3TIM2"",63,0)"
^XMB(3.9,75,2,324,0)=" ....D ENVAL^XPAR(.ORBLST,""ORB OI EXPIRING - INPT"",""`""_EXOI,.ORBERR)"
^XMB(3.9,75,2,325,0)="""RTN"",""ORB3TIM2"",64,0)"
^XMB(3.9,75,2,326,0)=" ....I 'ORBERR,$G(ORBLST)>0 D"
^XMB(3.9,75,2,327,0)="""RTN"",""ORB3TIM2"",65,0)"
^XMB(3.9,75,2,328,0)=" .....S OITXT=$P(^ORD(101.43,EXOI,0),U)"
^XMB(3.9,75,2,329,0)="""RTN"",""ORB3TIM2"",66,0)"
^XMB(3.9,75,2,330,0)=" .....S ORSDT=$P(^OR(100,EXORN,0),U,8),ORSDT=$$FMTE^XLFDT(ORSDT,""2P"")"
^XMB(3.9,75,2,331,0)="""RTN"",""ORB3TIM2"",67,0)"
^XMB(3.9,75,2,332,0)=" .....D EN^ORB3(64,ORPT,EXORN,"""",""[""_PTLOC_""] Order expiring: ""_OITXT_"" ""_ORSDT,EXORN_""@"") ;trigger Expiring Flagged OI - INPT notification"
^XMB(3.9,75,2,333,0)="""RTN"",""ORB3TIM2"",68,0)"
^XMB(3.9,75,2,334,0)=" ...;"
^XMB(3.9,75,2,335,0)="""RTN"",""ORB3TIM2"",69,0)"
^XMB(3.9,75,2,336,0)=" ...I $L(PTLOC),PTLOC=""OUTPT"" D"
^XMB(3.9,75,2,337,0)="""RTN"",""ORB3TIM2"",70,0)"
^XMB(3.9,75,2,338,0)=" ....D ENVAL^XPAR(.ORBLST,""ORB OI EXPIRING - OUTPT"",""`""_EXOI,.ORBERR)"
^XMB(3.9,75,2,339,0)="""RTN"",""ORB3TIM2"",71,0)"
^XMB(3.9,75,2,340,0)=" ....I 'ORBERR,$G(ORBLST)>0 D"
^XMB(3.9,75,2,341,0)="""RTN"",""ORB3TIM2"",72,0)"
^XMB(3.9,75,2,342,0)=" .....S OITXT=$P(^ORD(101.43,EXOI,0),U)"
^XMB(3.9,75,2,343,0)="""RTN"",""ORB3TIM2"",73,0)"
^XMB(3.9,75,2,344,0)=" .....S ORSDT=$P(^OR(100,EXORN,0),U,8),ORSDT=$$FMTE^XLFDT(ORSDT,""2P"")"
^XMB(3.9,75,2,345,0)="""RTN"",""ORB3TIM2"",74,0)"
^XMB(3.9,75,2,346,0)=" .....D EN^ORB3(65,ORPT,EXORN,"""",""[""_PTLOC_""] Order expiring: ""_OITXT_"" ""_ORSDT,EXORN_""@"") ;trigger Expiring Flagged OI - OUTPT notification"
^XMB(3.9,75,2,347,0)="""RTN"",""ORB3TIM2"",75,0)"
^XMB(3.9,75,2,348,0)=" ..;"
^XMB(3.9,75,2,349,0)="""RTN"",""ORB3TIM2"",76,0)"
^XMB(3.9,75,2,350,0)=" ..;is expiring order a med order:"
^XMB(3.9,75,2,351,0)="""RTN"",""ORB3TIM2"",77,0)"
^XMB(3.9,75,2,352,0)=" ..S RXORD=$$DGRX^ORQOR2(EXORN)"
^XMB(3.9,75,2,353,0)="""RTN"",""ORB3TIM2"",78,0)"
^XMB(3.9,75,2,354,0)=" ..I $L(RXORD) D  ;if expiring order is a med order"
^XMB(3.9,75,2,355,0)="""RTN"",""ORB3TIM2"",79,0)"
^XMB(3.9,75,2,356,0)=" ...;"
^XMB(3.9,75,2,357,0)="""RTN"",""ORB3TIM2"",80,0)"
^XMB(3.9,75,2,358,0)=" ...N DFN S DFN=ORPT"
^XMB(3.9,75,2,359,0)="""RTN"",""ORB3TIM2"",81,0)"
^XMB(3.9,75,2,360,0)=" ...D ADM^VADPT2"
^XMB(3.9,75,2,361,0)="""RTN"",""ORB3TIM2"",82,0)"
^XMB(3.9,75,2,362,0)=" ...;"
^XMB(3.9,75,2,363,0)="""RTN"",""ORB3TIM2"",83,0)"
^XMB(3.9,75,2,364,0)=" ...I (RXORD=""OUTPATIENT MEDICATIONS"")!(+$G(VADMVT)<1&(RXORD'=""CLINIC ORDERS"")) D"
^XMB(3.9,75,2,365,0)="""RTN"",""ORB3TIM2"",84,0)"
^XMB(3.9,75,2,366,0)=" ....D EN^ORB3(72,ORPT,EXORN,"""","""",EXORN_""@"")  ;trigger outpt notif"
^XMB(3.9,75,2,367,0)="""RTN"",""ORB3TIM2"",85,0)"
^XMB(3.9,75,2,368,0)=" ...;"
^XMB(3.9,75,2,369,0)="""RTN"",""ORB3TIM2"",86,0)"
^XMB(3.9,75,2,370,0)=" ...Q:RXORD=""OUTPATIENT MEDICATIONS""  ;quit if an outpt med"
^XMB(3.9,75,2,371,0)="""RTN"",""ORB3TIM2"",87,0)"
^XMB(3.9,75,2,372,0)=" ...Q:+$G(VADMVT)<1&(RXORD'=""CLINIC ORDERS"")  ;quit if an outpt"
^XMB(3.9,75,2,373,0)="""RTN"",""ORB3TIM2"",88,0)"
^XMB(3.9,75,2,374,0)=" ...;"
^XMB(3.9,75,2,375,0)="""RTN"",""ORB3TIM2"",89,0)"
^XMB(3.9,75,2,376,0)=" ...K VADMVT"
^XMB(3.9,75,2,377,0)="""RTN"",""ORB3TIM2"",90,0)"
^XMB(3.9,75,2,378,0)=" ...;"
^XMB(3.9,75,2,379,0)="""RTN"",""ORB3TIM2"",91,0)"
^XMB(3.9,75,2,380,0)=" ...;is schedule for the order a ONE TIME MED:"
^XMB(3.9,75,2,381,0)="""RTN"",""ORB3TIM2"",92,0)"
^XMB(3.9,75,2,382,0)=" ...S ONETIME=0"
^XMB(3.9,75,2,383,0)="""RTN"",""ORB3TIM2"",93,0)"
^XMB(3.9,75,2,384,0)=" ...I $D(ORBZ),(+$G(ORSCHFIL)=51.1) F ORBI=1:1:ORBZ D"
^XMB(3.9,75,2,385,0)="""RTN"",""ORB3TIM2"",94,0)"
^XMB(3.9,75,2,386,0)=" ....S ORSCH=$P(ORBZ(ORBI),U,2)"
^XMB(3.9,75,2,387,0)="""RTN"",""ORB3TIM2"",95,0)"
^XMB(3.9,75,2,388,0)=" ....I ORSCH=$$VALUE^ORCSAVE2(EXORN,""SCHEDULE"") S ONETIME=1 Q"
^XMB(3.9,75,2,389,0)="""RTN"",""ORB3TIM2"",96,0)"
^XMB(3.9,75,2,390,0)=" ...Q:+$G(ONETIME)=1  ;quit if one time med"
^XMB(3.9,75,2,391,0)="""RTN"",""ORB3TIM2"",97,0)"
^XMB(3.9,75,2,392,0)=" ...;"
^XMB(3.9,75,2,393,0)="""RTN"",""ORB3TIM2"",98,0)"
^XMB(3.9,75,2,394,0)=" ...;check if this is an IMO order and what it is,send an M.E.-OUTPT alert"
^XMB(3.9,75,2,395,0)="""RTN"",""ORB3TIM2"",99,0)"
^XMB(3.9,75,2,396,0)=" ...I RXORD=""CLINIC ORDERS"" D  Q"
^XMB(3.9,75,2,397,0)="""RTN"",""ORB3TIM2"",100,0)"
^XMB(3.9,75,2,398,0)=" ....N ORDLG,ORDG,ORDLGNM,FLAG,ORX"
^XMB(3.9,75,2,399,0)="""RTN"",""ORB3TIM2"",101,0)"
^XMB(3.9,75,2,400,0)=" ....S FLAG=0"
^XMB(3.9,75,2,401,0)="""RTN"",""ORB3TIM2"",102,0)"
^XMB(3.9,75,2,402,0)=" ....S ORDLG=$P($G(^OR(100,EXORN,0)),U,5) Q:$P(ORDLG,"";"",2)'=""ORD(101.41,"""
^XMB(3.9,75,2,403,0)="""RTN"",""ORB3TIM2"",103,0)"
^XMB(3.9,75,2,404,0)=" ....S ORDLGNM=$P($G(^ORD(101.41,+ORDLG,0)),U)"
^XMB(3.9,75,2,405,0)="""RTN"",""ORB3TIM2"",104,0)"
^XMB(3.9,75,2,406,0)=" ....S ORDG=$P($G(^ORD(101.41,+ORDLG,0)),U,2)"
^XMB(3.9,75,2,407,0)="""RTN"",""ORB3TIM2"",105,0)"
^XMB(3.9,75,2,408,0)=" ....I ORDLGNM=""PSJ OR PAT OE""!(ORDLGNM=""PSJI OR PAT FLUID OE"") S FLAG=1"
^XMB(3.9,75,2,409,0)="""RTN"",""ORB3TIM2"",106,0)"
^XMB(3.9,75,2,410,0)=" ....I 'FLAG F ORX=""INPATIENT MEDICATIONS"",""IV MEDICATIONS"",""UNIT DOSE MEDICATIONS"",""CLINIC ORDERS"" I $$UPPER^ORU(ORDG)=ORX D"
^XMB(3.9,75,2,411,0)="""RTN"",""ORB3TIM2"",107,0)"
^XMB(3.9,75,2,412,0)=" .....S FLAG=1"
^XMB(3.9,75,2,413,0)="""RTN"",""ORB3TIM2"",108,0)"
^XMB(3.9,75,2,414,0)=" .....I ORX=""IV MEDICATIONS"",(+$$IVRENEW(EXORN)=0) S FLAG=0"
^XMB(3.9,75,2,415,0)="""RTN"",""ORB3TIM2"",109,0)"
^XMB(3.9,75,2,416,0)=" .....I ORX=""UNIT DOSE MEDICATIONS"",(+$$UDRENEW(EXORN,EXDT)=0) S FLAG=0"
^XMB(3.9,75,2,417,0)="""RTN"",""ORB3TIM2"",110,0)"
^XMB(3.9,75,2,418,0)=" ....I FLAG D EN^ORB3(72,ORPT,EXORN,"""","""",EXORN_""@"")  ;trigger outpt notif"
^XMB(3.9,75,2,419,0)="""RTN"",""ORB3TIM2"",111,0)"
^XMB(3.9,75,2,420,0)=" ...;"
^XMB(3.9,75,2,421,0)="""RTN"",""ORB3TIM2"",112,0)"
^XMB(3.9,75,2,422,0)=" ...;quit if inpt/unit dose med and med is not renewable:"
^XMB(3.9,75,2,423,0)="""RTN"",""ORB3TIM2"",113,0)"
^XMB(3.9,75,2,424,0)=" ...I RXORD=""UNIT DOSE MEDICATIONS"",(+$$UDRENEW(EXORN,EXDT)=0) Q"
^XMB(3.9,75,2,425,0)="""RTN"",""ORB3TIM2"",114,0)"
^XMB(3.9,75,2,426,0)=" ...;"
^XMB(3.9,75,2,427,0)="""RTN"",""ORB3TIM2"",115,0)"
^XMB(3.9,75,2,428,0)=" ...;quit if IV med and med is not renewable:"
^XMB(3.9,75,2,429,0)="""RTN"",""ORB3TIM2"",116,0)"
^XMB(3.9,75,2,430,0)=" ...I RXORD=""IV MEDICATIONS"",(+$$IVRENEW(EXORN)=0) Q"
^XMB(3.9,75,2,431,0)="""RTN"",""ORB3TIM2"",117,0)"
^XMB(3.9,75,2,432,0)=" ...;"
^XMB(3.9,75,2,433,0)="""RTN"",""ORB3TIM2"",118,0)"
^XMB(3.9,75,2,434,0)=" ...D EN^ORB3(47,ORPT,EXORN,"""","""",EXORN_""@"")  ;trigger notif"
^XMB(3.9,75,2,435,0)="""RTN"",""ORB3TIM2"",119,0)"
^XMB(3.9,75,2,436,0)=" S ^XTMP(""ORB LAST EXPIRE"",0)=$$FMADD^XLFDT(ORNOW,7,"""","""","""")_U_$$NOW^XLFDT"
^XMB(3.9,75,2,437,0)="""RTN"",""ORB3TIM2"",120,0)"
^XMB(3.9,75,2,438,0)=" D EXCLN(ORNOW)"
^XMB(3.9,75,2,439,0)="""RTN"",""ORB3TIM2"",121,0)"
^XMB(3.9,75,2,440,0)=" Q"
^XMB(3.9,75,2,441,0)="""RTN"",""ORB3TIM2"",122,0)"
^XMB(3.9,75,2,442,0)="UDRENEW(EXORN,EXDT) ;extr function returns 1 if med is renewable, 0 if not"
^XMB(3.9,75,2,443,0)="""RTN"",""ORB3TIM2"",123,0)"
^XMB(3.9,75,2,444,0)=" N ORNOW,ORSLT,ORSTATUS"
^XMB(3.9,75,2,445,0)="""RTN"",""ORB3TIM2"",124,0)"
^XMB(3.9,75,2,446,0)=" S ORSLT=0"
^XMB(3.9,75,2,447,0)="""RTN"",""ORB3TIM2"",125,0)"
^XMB(3.9,75,2,448,0)=" S ORSTATUS=$P($$STATUS^ORQOR2(EXORN),U,2)"
^XMB(3.9,75,2,449,0)="""RTN"",""ORB3TIM2"",126,0)"
^XMB(3.9,75,2,450,0)=" I ORSTATUS=""ACTIVE"" Q 1  ;renewable if ""active"""
^XMB(3.9,75,2,451,0)="""RTN"",""ORB3TIM2"",127,0)"
^XMB(3.9,75,2,452,0)=" I ORSTATUS=""HOLD"" Q 1   ;renewable if ""on hold"""
^XMB(3.9,75,2,453,0)="""RTN"",""ORB3TIM2"",128,0)"
^XMB(3.9,75,2,454,0)=" I ORSTATUS=""EXPIRED"" D"
^XMB(3.9,75,2,455,0)="""RTN"",""ORB3TIM2"",129,0)"
^XMB(3.9,75,2,456,0)=" .S ORNOW=$$NOW^XLFDT"
^XMB(3.9,75,2,457,0)="""RTN"",""ORB3TIM2"",130,0)"
^XMB(3.9,75,2,458,0)=" .;renewable if expired w/in past 4 days:"
^XMB(3.9,75,2,459,0)="""RTN"",""ORB3TIM2"",131,0)"
^XMB(3.9,75,2,460,0)=" .I $$FMDIFF^XLFDT(ORNOW,EXDT,1)<4 S ORSLT=1"
^XMB(3.9,75,2,461,0)="""RTN"",""ORB3TIM2"",132,0)"
^XMB(3.9,75,2,462,0)=" Q ORSLT"
^XMB(3.9,75,2,463,0)="""RTN"",""ORB3TIM2"",133,0)"
^XMB(3.9,75,2,464,0)=" ;"
^XMB(3.9,75,2,465,0)="""RTN"",""ORB3TIM2"",134,0)"
^XMB(3.9,75,2,466,0)="IVRENEW(EXORN) ;extr function returns 1 if med is renewable, 0 if not"
^XMB(3.9,75,2,467,0)="""RTN"",""ORB3TIM2"",135,0)"
^XMB(3.9,75,2,468,0)=" N ORSLT,ORSTATUS"
^XMB(3.9,75,2,469,0)="""RTN"",""ORB3TIM2"",136,0)"
^XMB(3.9,75,2,470,0)=" S ORSLT=0"
^XMB(3.9,75,2,471,0)="""RTN"",""ORB3TIM2"",137,0)"
^XMB(3.9,75,2,472,0)=" S ORSTATUS=$P($$STATUS^ORQOR2(EXORN),U,2)"
^XMB(3.9,75,2,473,0)="""RTN"",""ORB3TIM2"",138,0)"
^XMB(3.9,75,2,474,0)=" I ORSTATUS=""ACTIVE"" Q 1   ;renewable if ""active"""
^XMB(3.9,75,2,475,0)="""RTN"",""ORB3TIM2"",139,0)"
^XMB(3.9,75,2,476,0)=" I ORSTATUS=""HOLD"" Q 1   ;renewable if ""on hold"""
^XMB(3.9,75,2,477,0)="""RTN"",""ORB3TIM2"",140,0)"
^XMB(3.9,75,2,478,0)=" I ORSTATUS=""EXPIRED"" Q 1  ;renewable if ""expired"""
^XMB(3.9,75,2,479,0)="""RTN"",""ORB3TIM2"",141,0)"
^XMB(3.9,75,2,480,0)=" Q ORSLT"
^XMB(3.9,75,2,481,0)="""RTN"",""ORB3TIM2"",142,0)"
^XMB(3.9,75,2,482,0)=" ;"
^XMB(3.9,75,2,483,0)="""RTN"",""ORB3TIM2"",143,0)"
^XMB(3.9,75,2,484,0)="EXCLN(ORNOW) ;clean up old entires in ^XTMP(""ORB LAST EXPIRE"")"
^XMB(3.9,75,2,485,0)="""RTN"",""ORB3TIM2"",144,0)"
^XMB(3.9,75,2,486,0)=" N ORN,ORDT"
^XMB(3.9,75,2,487,0)="""RTN"",""ORB3TIM2"",145,0)"
^XMB(3.9,75,2,488,0)=" S ORN=1"
^XMB(3.9,75,2,489,0)="""RTN"",""ORB3TIM2"",146,0)"
^XMB(3.9,75,2,490,0)=" F  S ORN=$O(^XTMP(""ORB LAST EXPIRE"",ORN)) Q:ORN=""""  D"
^XMB(3.9,75,2,491,0)="""RTN"",""ORB3TIM2"",147,0)"
^XMB(3.9,75,2,492,0)=" .S ORDT=$G(^XTMP(""ORB LAST EXPIRE"",ORN))"
^XMB(3.9,75,2,493,0)="""RTN"",""ORB3TIM2"",148,0)"
^XMB(3.9,75,2,494,0)=" .I $L(ORDT),(ORDT<ORNOW) D"
^XMB(3.9,75,2,495,0)="""RTN"",""ORB3TIM2"",149,0)"
^XMB(3.9,75,2,496,0)=" ..K ^XTMP(""ORB LAST EXPIRE"",ORN)"
^XMB(3.9,75,2,497,0)="""RTN"",""ORB3TIM2"",150,0)"
^XMB(3.9,75,2,498,0)=" Q"
^XMB(3.9,75,2,499,0)="""RTN"",""ORQOR2"")"
^XMB(3.9,75,2,500,0)="0^3^B13837546^B13586012"
^XMB(3.9,75,2,501,0)="""RTN"",""ORQOR2"",1,0)"
^XMB(3.9,75,2,502,0)="ORQOR2 ; slc/CLA - Extrinsic functions which return order information ;6/14/96  10:15 [ 04/02/97  1:35 PM ]"
^XMB(3.9,75,2,503,0)="""RTN"",""ORQOR2"",2,0)"
^XMB(3.9,75,2,504,0)=" ;;3.0;ORDER ENTRY/RESULTS REPORTING;**6,32,92,122,144,190,251**;Dec 17, 1997"
^XMB(3.9,75,2,505,0)="""RTN"",""ORQOR2"",3,0)"
^XMB(3.9,75,2,506,0)="STATUS(ORN) ;extrinsic function returns the current status of an order in"
^XMB(3.9,75,2,507,0)="""RTN"",""ORQOR2"",4,0)"
^XMB(3.9,75,2,508,0)=" ;the format: status ien^external text "
^XMB(3.9,75,2,509,0)="""RTN"",""ORQOR2"",5,0)"
^XMB(3.9,75,2,510,0)=" ;DBIA #3458 supported api for outpt pharmacy"
^XMB(3.9,75,2,511,0)="""RTN"",""ORQOR2"",6,0)"
^XMB(3.9,75,2,512,0)=" Q:'$L($G(ORN)) """""
^XMB(3.9,75,2,513,0)="""RTN"",""ORQOR2"",7,0)"
^XMB(3.9,75,2,514,0)=" Q:'$L($G(^OR(100,ORN,3))) """""
^XMB(3.9,75,2,515,0)="""RTN"",""ORQOR2"",8,0)"
^XMB(3.9,75,2,516,0)=" N ORSTATUS"
^XMB(3.9,75,2,517,0)="""RTN"",""ORQOR2"",9,0)"
^XMB(3.9,75,2,518,0)=" S ORSTATUS=$P(^OR(100,ORN,3),U,3)"
^XMB(3.9,75,2,519,0)="""RTN"",""ORQOR2"",10,0)"
^XMB(3.9,75,2,520,0)=" S ORSTATUS=ORSTATUS_U_$G(^ORD(100.01,+ORSTATUS,0))"
^XMB(3.9,75,2,521,0)="""RTN"",""ORQOR2"",11,0)"
^XMB(3.9,75,2,522,0)=" Q ORSTATUS"
^XMB(3.9,75,2,523,0)="""RTN"",""ORQOR2"",12,0)"
^XMB(3.9,75,2,524,0)="RECENT(PT,OI,ST) ;extrinsic funct returns pt's most recent order for an orderable item and status in format:"
^XMB(3.9,75,2,525,0)="""RTN"",""ORQOR2"",13,0)"
^XMB(3.9,75,2,526,0)=" ; order number^order text (truncated to 60 chars)^start d/t^status"
^XMB(3.9,75,2,527,0)="""RTN"",""ORQOR2"",14,0)"
^XMB(3.9,75,2,528,0)=" N INDT,ORN,CDT,ORSTATUS,ORTEXT,RESULT S RESULT="""",ORN="""",INDT="""""
^XMB(3.9,75,2,529,0)="""RTN"",""ORQOR2"",15,0)"
^XMB(3.9,75,2,530,0)=" F  S INDT=$O(^OR(100,""AOI"",OI,PT_"";DPT("",INDT)) Q:INDT=""""!(RESULT'="""")  D"
^XMB(3.9,75,2,531,0)="""RTN"",""ORQOR2"",16,0)"
^XMB(3.9,75,2,532,0)=" .F  S ORN=$O(^OR(100,""AOI"",OI,PT_"";DPT("",INDT,ORN)) Q:ORN=""""  D"
^XMB(3.9,75,2,533,0)="""RTN"",""ORQOR2"",17,0)"
^XMB(3.9,75,2,534,0)=" ..S ORSTATUS=$P(^OR(100,ORN,3),U,3)"
^XMB(3.9,75,2,535,0)="""RTN"",""ORQOR2"",18,0)"
^XMB(3.9,75,2,536,0)=" ..I '$L($G(ST))!($G(ORSTATUS)=ST) D"
^XMB(3.9,75,2,537,0)="""RTN"",""ORQOR2"",19,0)"
^XMB(3.9,75,2,538,0)=" ...S ORSTATUS=$G(^ORD(100.01,ORSTATUS,0)),CDT=9999999-INDT"
^XMB(3.9,75,2,539,0)="""RTN"",""ORQOR2"",20,0)"
^XMB(3.9,75,2,540,0)=" ...S ORTEXT=$P($$TEXT^ORKOR(ORN,60),U,2)"
^XMB(3.9,75,2,541,0)="""RTN"",""ORQOR2"",21,0)"
^XMB(3.9,75,2,542,0)=" ...S RESULT=ORN_U_ORTEXT_U_CDT_U_ORSTATUS"
^XMB(3.9,75,2,543,0)="""RTN"",""ORQOR2"",22,0)"
^XMB(3.9,75,2,544,0)=" Q RESULT"
^XMB(3.9,75,2,545,0)="""RTN"",""ORQOR2"",23,0)"
^XMB(3.9,75,2,546,0)="DUPRANGE(OI,DG,ODT,ORPT) ;extrinsic funct returns duplicate order range beginning date in the format:"
^XMB(3.9,75,2,547,0)="""RTN"",""ORQOR2"",24,0)"
^XMB(3.9,75,2,548,0)=" ;fileman d/t^inverse fileman d/t"
^XMB(3.9,75,2,549,0)="""RTN"",""ORQOR2"",25,0)"
^XMB(3.9,75,2,550,0)=" ;OI   = orderable item ien"
^XMB(3.9,75,2,551,0)="""RTN"",""ORQOR2"",26,0)"
^XMB(3.9,75,2,552,0)=" ;DG   = display group abbrev. (e.g. 'LR')"
^XMB(3.9,75,2,553,0)="""RTN"",""ORQOR2"",27,0)"
^XMB(3.9,75,2,554,0)=" ;ODT  = order effective/start date/time in FM format"
^XMB(3.9,75,2,555,0)="""RTN"",""ORQOR2"",28,0)"
^XMB(3.9,75,2,556,0)=" ;ORPT = patient dfn"
^XMB(3.9,75,2,557,0)="""RTN"",""ORQOR2"",29,0)"
^XMB(3.9,75,2,558,0)=" N DHRS,BDT,INBDT,ORSRV,ORLOC"
^XMB(3.9,75,2,559,0)="""RTN"",""ORQOR2"",30,0)"
^XMB(3.9,75,2,560,0)=" S BDT="""",INBDT="""""
^XMB(3.9,75,2,561,0)="""RTN"",""ORQOR2"",31,0)"
^XMB(3.9,75,2,562,0)=" ;"
^XMB(3.9,75,2,563,0)="""RTN"",""ORQOR2"",32,0)"
^XMB(3.9,75,2,564,0)=" ;get patient's location flag (INPATIENT ONLY - outpt locations cannot be"
^XMB(3.9,75,2,565,0)="""RTN"",""ORQOR2"",33,0)"
^XMB(3.9,75,2,566,0)=" ;reliably determined, and many simultaneous outpt locations can occur):"
^XMB(3.9,75,2,567,0)="""RTN"",""ORQOR2"",34,0)"
^XMB(3.9,75,2,568,0)=" I +$G(ORPT)>0 D"
^XMB(3.9,75,2,569,0)="""RTN"",""ORQOR2"",35,0)"
^XMB(3.9,75,2,570,0)=" .N DFN S DFN=ORPT,VA200="""" D OERR^VADPT"
^XMB(3.9,75,2,571,0)="""RTN"",""ORQOR2"",36,0)"
^XMB(3.9,75,2,572,0)=" .I +$G(VAIN(4))>0 S ORLOC=+$G(^DIC(42,+$G(VAIN(4)),44))"
^XMB(3.9,75,2,573,0)="""RTN"",""ORQOR2"",37,0)"
^XMB(3.9,75,2,574,0)=" .K VA200,VAIN"
^XMB(3.9,75,2,575,0)="""RTN"",""ORQOR2"",38,0)"
^XMB(3.9,75,2,576,0)=" ;"
^XMB(3.9,75,2,577,0)="""RTN"",""ORQOR2"",39,0)"
^XMB(3.9,75,2,578,0)=" S ORSRV=$G(^VA(200,DUZ,5)) I +ORSRV>0 S ORSRV=$P(ORSRV,U)"
^XMB(3.9,75,2,579,0)="""RTN"",""ORQOR2"",40,0)"
^XMB(3.9,75,2,580,0)=" S DHRS=$$GET^XPAR(""LOC.`""_$G(ORLOC)_""^SRV.`""_$G(ORSRV)_""^DIV^SYS"",""ORK DUP ORDER RANGE OI"",OI,""I"")"
^XMB(3.9,75,2,581,0)="""RTN"",""ORQOR2"",41,0)"
^XMB(3.9,75,2,582,0)=" Q:$G(DHRS)=0 ""0^0"" ;quit if number of hours for this OI is zero"
^XMB(3.9,75,2,583,0)="""RTN"",""ORQOR2"",42,0)"
^XMB(3.9,75,2,584,0)=" I +$G(DHRS)<1 D"
^XMB(3.9,75,2,585,0)="""RTN"",""ORQOR2"",43,0)"
^XMB(3.9,75,2,586,0)=" .I DG=""LR"" S DHRS=$$GET^XPAR(""LOC.`""_$G(ORLOC)_""^SRV.`""_$G(ORSRV)_""^DIV^SYS^PKG"",""ORK DUP ORDER RANGE LAB"",1,""I"")"
^XMB(3.9,75,2,587,0)="""RTN"",""ORQOR2"",44,0)"
^XMB(3.9,75,2,588,0)=" .I DG=""RA"" S DHRS=$$GET^XPAR(""LOC.`""_$G(ORLOC)_""^SRV.`""_$G(ORSRV)_""^DIV^SYS^PKG"",""ORK DUP ORDER RANGE RADIOLOGY"",1,""I"")"
^XMB(3.9,75,2,589,0)="""RTN"",""ORQOR2"",45,0)"
^XMB(3.9,75,2,590,0)=" I +$G(DHRS)<1 S DHRS=48  ;non-lab and non-radiology default is 48 hrs"
^XMB(3.9,75,2,591,0)="""RTN"",""ORQOR2"",46,0)"
^XMB(3.9,75,2,592,0)=" S BDT=$$FMADD^XLFDT(ODT,"""",""-""_DHRS,"""",""""),INBDT=9999999-BDT"
^XMB(3.9,75,2,593,0)="""RTN"",""ORQOR2"",47,0)"
^XMB(3.9,75,2,594,0)=" Q BDT_U_INBDT"
^XMB(3.9,75,2,595,0)="""RTN"",""ORQOR2"",48,0)"
^XMB(3.9,75,2,596,0)="ORDERER(ORNUM) ;ext. funct. gets ordering provider DUZ from ORDER File (#100)"
^XMB(3.9,75,2,597,0)="""RTN"",""ORQOR2"",49,0)"
^XMB(3.9,75,2,598,0)=" Q:'$L($G(ORNUM)) """""
^XMB(3.9,75,2,599,0)="""RTN"",""ORQOR2"",50,0)"
^XMB(3.9,75,2,600,0)=" S ORNUM=+$G(ORNUM)"
^XMB(3.9,75,2,601,0)="""RTN"",""ORQOR2"",51,0)"
^XMB(3.9,75,2,602,0)=" N ORQDUZ,ORQI S ORQDUZ="""""
^XMB(3.9,75,2,603,0)="""RTN"",""ORQOR2"",52,0)"
^XMB(3.9,75,2,604,0)=" I $L($G(^OR(100,ORNUM,8,0))) D"
^XMB(3.9,75,2,605,0)="""RTN"",""ORQOR2"",53,0)"
^XMB(3.9,75,2,606,0)=" .S ORQI=0,ORQI=$O(^OR(100,ORNUM,8,""C"",""NW"",ORQI))  ;8 node for New order"
^XMB(3.9,75,2,607,0)="""RTN"",""ORQOR2"",54,0)"
^XMB(3.9,75,2,608,0)=" Q:+$G(ORQI)<1 """""
^XMB(3.9,75,2,609,0)="""RTN"",""ORQOR2"",55,0)"
^XMB(3.9,75,2,610,0)=" S ORQDUZ=$P(^OR(100,ORNUM,8,ORQI,0),U,3)"
^XMB(3.9,75,2,611,0)="""RTN"",""ORQOR2"",56,0)"
^XMB(3.9,75,2,612,0)=" Q ORQDUZ"
^XMB(3.9,75,2,613,0)="""RTN"",""ORQOR2"",57,0)"
^XMB(3.9,75,2,614,0)="UNSIGNOR(ORNUM) ;ext. funct. gets ordering provider DUZ from ORDER File (#100)"
^XMB(3.9,75,2,615,0)="""RTN"",""ORQOR2"",58,0)"
^XMB(3.9,75,2,616,0)=" ; based on order action number (8 node)"
^XMB(3.9,75,2,617,0)="""RTN"",""ORQOR2"",59,0)"
^XMB(3.9,75,2,618,0)=" ; if no action number return orderer for New order"
^XMB(3.9,75,2,619,0)="""RTN"",""ORQOR2"",60,0)"
^XMB(3.9,75,2,620,0)=" ;ORNUM in format: <order ien>;<action number>"
^XMB(3.9,75,2,621,0)="""RTN"",""ORQOR2"",61,0)"
^XMB(3.9,75,2,622,0)=" Q:'$L(+$G(ORNUM)) """""
^XMB(3.9,75,2,623,0)="""RTN"",""ORQOR2"",62,0)"
^XMB(3.9,75,2,624,0)=" N ORQDUZ,ORQI S ORQDUZ="""""
^XMB(3.9,75,2,625,0)="""RTN"",""ORQOR2"",63,0)"
^XMB(3.9,75,2,626,0)=" S ORQI=$P(ORNUM,"";"",2)"
^XMB(3.9,75,2,627,0)="""RTN"",""ORQOR2"",64,0)"
^XMB(3.9,75,2,628,0)=" S ORNUM=$P(ORNUM,"";"")"
^XMB(3.9,75,2,629,0)="""RTN"",""ORQOR2"",65,0)"
^XMB(3.9,75,2,630,0)=" Q:+$G(ORNUM)<1 """""
^XMB(3.9,75,2,631,0)="""RTN"",""ORQOR2"",66,0)"
^XMB(3.9,75,2,632,0)=" I +$G(ORQI)<1 S ORQI=$P($G(^OR(100,ORNUM,8,0)),U,3)"
^XMB(3.9,75,2,633,0)="""RTN"",""ORQOR2"",67,0)"
^XMB(3.9,75,2,634,0)=" I $L(ORQI),$L($G(^OR(100,ORNUM,8,ORQI,0))) D"
^XMB(3.9,75,2,635,0)="""RTN"",""ORQOR2"",68,0)"
^XMB(3.9,75,2,636,0)=" .S ORQDUZ=$P(^OR(100,ORNUM,8,ORQI,0),U,3)"
^XMB(3.9,75,2,637,0)="""RTN"",""ORQOR2"",69,0)"
^XMB(3.9,75,2,638,0)=" Q ORQDUZ"
^XMB(3.9,75,2,639,0)="""RTN"",""ORQOR2"",70,0)"
^XMB(3.9,75,2,640,0)="OI(ORNUM) ;ext. funct. gets Orderable Item ien from ORDER File (#100)"
^XMB(3.9,75,2,641,0)="""RTN"",""ORQOR2"",71,0)"
^XMB(3.9,75,2,642,0)=" Q:+$G(ORNUM)<1 """""
^XMB(3.9,75,2,643,0)="""RTN"",""ORQOR2"",72,0)"
^XMB(3.9,75,2,644,0)=" N OI S OI="""""
^XMB(3.9,75,2,645,0)="""RTN"",""ORQOR2"",73,0)"
^XMB(3.9,75,2,646,0)=" S OI=+$G(^OR(100,+$G(ORNUM),.1,1,0))"
^XMB(3.9,75,2,647,0)="""RTN"",""ORQOR2"",74,0)"
^XMB(3.9,75,2,648,0)=" Q OI"
^XMB(3.9,75,2,649,0)="""RTN"",""ORQOR2"",75,0)"
^XMB(3.9,75,2,650,0)="DG(ORNUM) ;ext. funct. gets Display Group ien from ORDER File (#100)"
^XMB(3.9,75,2,651,0)="""RTN"",""ORQOR2"",76,0)"
^XMB(3.9,75,2,652,0)=" Q:'$L($G(ORNUM)) """""
^XMB(3.9,75,2,653,0)="""RTN"",""ORQOR2"",77,0)"
^XMB(3.9,75,2,654,0)=" N DG S DG="""""
^XMB(3.9,75,2,655,0)="""RTN"",""ORQOR2"",78,0)"
^XMB(3.9,75,2,656,0)=" S DG=$G(^OR(100,ORNUM,0))"
^XMB(3.9,75,2,657,0)="""RTN"",""ORQOR2"",79,0)"
^XMB(3.9,75,2,658,0)=" I $L(DG) S DG=$P(DG,U,11)"
^XMB(3.9,75,2,659,0)="""RTN"",""ORQOR2"",80,0)"
^XMB(3.9,75,2,660,0)=" Q DG"
^XMB(3.9,75,2,661,0)="""RTN"",""ORQOR2"",81,0)"
^XMB(3.9,75,2,662,0)="DGRX(ORNUM)        ;ext. funct. determines if order is pharmacy order"
^XMB(3.9,75,2,663,0)="""RTN"",""ORQOR2"",82,0)"
^XMB(3.9,75,2,664,0)=" Q:+$G(ORNUM)<1 """""
^XMB(3.9,75,2,665,0)="""RTN"",""ORQOR2"",83,0)"
^XMB(3.9,75,2,666,0)=" N DG,DGNAME,RXDG"
^XMB(3.9,75,2,667,0)="""RTN"",""ORQOR2"",84,0)"
^XMB(3.9,75,2,668,0)=" S DG=$$DG(ORNUM)"
^XMB(3.9,75,2,669,0)="""RTN"",""ORQOR2"",85,0)"
^XMB(3.9,75,2,670,0)=" S DGNAME=$P($G(^ORD(100.98,+DG,0)),U) Q:'$L(DGNAME) """""
^XMB(3.9,75,2,671,0)="""RTN"",""ORQOR2"",86,0)"
^XMB(3.9,75,2,672,0)=" F RXDG=""PHARMACY"",""INPATIENT MEDICATIONS"",""OUTPATIENT MEDICATIONS"",""UNIT DOSE MEDICATIONS"",""IV MEDICATIONS"",""NON-VA MEDICATIONS"",""CLINIC ORDERS"","""" Q:(DGNAME=RXDG)"
^XMB(3.9,75,2,673,0)="""RTN"",""ORQOR2"",87,0)"
^XMB(3.9,75,2,674,0)=" Q RXDG"
^XMB(3.9,75,2,675,0)="""RTN"",""ORQOR2"",88,0)"
^XMB(3.9,75,2,676,0)="PT(ORNUM) ;ext. funct. gets Patient dfn from ORDER File (#100)"
^XMB(3.9,75,2,677,0)="""RTN"",""ORQOR2"",89,0)"
^XMB(3.9,75,2,678,0)=" Q:'$L($G(ORNUM)) """""
^XMB(3.9,75,2,679,0)="""RTN"",""ORQOR2"",90,0)"
^XMB(3.9,75,2,680,0)=" N PT S PT="""""
^XMB(3.9,75,2,681,0)="""RTN"",""ORQOR2"",91,0)"
^XMB(3.9,75,2,682,0)=" S PT=$G(^OR(100,ORNUM,0))"
^XMB(3.9,75,2,683,0)="""RTN"",""ORQOR2"",92,0)"
^XMB(3.9,75,2,684,0)=" I $L(PT) S PT=$P(PT,U,2),PT=$P(PT,"";DPT"")"
^XMB(3.9,75,2,685,0)="""RTN"",""ORQOR2"",93,0)"
^XMB(3.9,75,2,686,0)=" Q PT"
^XMB(3.9,75,2,687,0)="""RTN"",""ORQOR2"",94,0)"
^XMB(3.9,75,2,688,0)="RSLTFLG(ORNUM) ;ext. funct. returns duz of user to receive alert if order was"
^XMB(3.9,75,2,689,0)="""RTN"",""ORQOR2"",95,0)"
^XMB(3.9,75,2,690,0)=" ; flagged to alert when resulted"
^XMB(3.9,75,2,691,0)="""RTN"",""ORQOR2"",96,0)"
^XMB(3.9,75,2,692,0)=" Q:'$L($G(ORNUM)) """""
^XMB(3.9,75,2,693,0)="""RTN"",""ORQOR2"",97,0)"
^XMB(3.9,75,2,694,0)=" N FLG S FLG="""""
^XMB(3.9,75,2,695,0)="""RTN"",""ORQOR2"",98,0)"
^XMB(3.9,75,2,696,0)=" S FLG=$G(^OR(100,+ORNUM,3))"
^XMB(3.9,75,2,697,0)="""RTN"",""ORQOR2"",99,0)"
^XMB(3.9,75,2,698,0)=" I $L(FLG) S FLG=$P(FLG,U,10)"
^XMB(3.9,75,2,699,0)="""RTN"",""ORQOR2"",100,0)"
^XMB(3.9,75,2,700,0)=" Q FLG"
^XMB(3.9,75,2,701,0)="""RTN"",""ORWGAPIA"")"
^XMB(3.9,75,2,702,0)="0^1^B82316738^B81629503"
^XMB(3.9,75,2,703,0)="""RTN"",""ORWGAPIA"",1,0)"
^XMB(3.9,75,2,704,0)="ORWGAPIA ; SLC/STAFF - Graph Application Calls ;4/13/06  10:34"
^XMB(3.9,75,2,705,0)="""RTN"",""ORWGAPIA"",2,0)"
^XMB(3.9,75,2,706,0)=" ;;3.0;ORDER ENTRY/RESULTS REPORTING;**215,251**;Dec 17, 1997"
^XMB(3.9,75,2,707,0)="""RTN"",""ORWGAPIA"",3,0)"
^XMB(3.9,75,2,708,0)=" ;"
^XMB(3.9,75,2,709,0)="""RTN"",""ORWGAPIA"",4,0)"
^XMB(3.9,75,2,710,0)="AA(IEN) ; $$(ien) -> external display of accession area"
^XMB(3.9,75,2,711,0)="""RTN"",""ORWGAPIA"",5,0)"
^XMB(3.9,75,2,712,0)=" Q $P($G(^LRO(68,IEN,0)),U)"
^XMB(3.9,75,2,713,0)="""RTN"",""ORWGAPIA"",6,0)"
^XMB(3.9,75,2,714,0)="AALAB(TEST) ; $$(lab test) -> accession ien^acc name^acc abbrev"
^XMB(3.9,75,2,715,0)="""RTN"",""ORWGAPIA"",7,0)"
^XMB(3.9,75,2,716,0)=" N AA,DIV"
^XMB(3.9,75,2,717,0)="""RTN"",""ORWGAPIA"",8,0)"
^XMB(3.9,75,2,718,0)=" S TEST=+$G(TEST)"
^XMB(3.9,75,2,719,0)="""RTN"",""ORWGAPIA"",9,0)"
^XMB(3.9,75,2,720,0)=" S DIV=+$G(DUZ(2))"
^XMB(3.9,75,2,721,0)="""RTN"",""ORWGAPIA"",10,0)"
^XMB(3.9,75,2,722,0)=" S AA=+$P($G(^LAB(60,+TEST,8,DIV,0)),U,2)"
^XMB(3.9,75,2,723,0)="""RTN"",""ORWGAPIA"",11,0)"
^XMB(3.9,75,2,724,0)=" I AA Q AA_U_$$ACCLAB(AA)"
^XMB(3.9,75,2,725,0)="""RTN"",""ORWGAPIA"",12,0)"
^XMB(3.9,75,2,726,0)=" S AA=+$P($G(^LAB(60,+TEST,8,+$O(^LAB(60,+TEST,8,0)),0)),U,2)"
^XMB(3.9,75,2,727,0)="""RTN"",""ORWGAPIA"",13,0)"
^XMB(3.9,75,2,728,0)=" I AA Q AA_U_$$ACCLAB(AA)"
^XMB(3.9,75,2,729,0)="""RTN"",""ORWGAPIA"",14,0)"
^XMB(3.9,75,2,730,0)=" Q """""
^XMB(3.9,75,2,731,0)="""RTN"",""ORWGAPIA"",15,0)"
^XMB(3.9,75,2,732,0)="ACC(DATA) ; API - get accession areas   - from ORWGAPI"
^XMB(3.9,75,2,733,0)="""RTN"",""ORWGAPIA"",16,0)"
^XMB(3.9,75,2,734,0)=" N CNT,IEN,TMP,RESULT,ZERO"
^XMB(3.9,75,2,735,0)="""RTN"",""ORWGAPIA"",17,0)"
^XMB(3.9,75,2,736,0)=" D RETURN^ORWGAPIU(.TMP,.DATA)"
^XMB(3.9,75,2,737,0)="""RTN"",""ORWGAPIA"",18,0)"
^XMB(3.9,75,2,738,0)=" S CNT=0"
^XMB(3.9,75,2,739,0)="""RTN"",""ORWGAPIA"",19,0)"
^XMB(3.9,75,2,740,0)=" S IEN=0"
^XMB(3.9,75,2,741,0)="""RTN"",""ORWGAPIA"",20,0)"
^XMB(3.9,75,2,742,0)=" F  S IEN=$O(^LRO(68,IEN)) Q:IEN<1  D"
^XMB(3.9,75,2,743,0)="""RTN"",""ORWGAPIA"",21,0)"
^XMB(3.9,75,2,744,0)=" . S ZERO=$G(^LRO(68,IEN,0)) I '$L(ZERO) Q"
^XMB(3.9,75,2,745,0)="""RTN"",""ORWGAPIA"",22,0)"
^XMB(3.9,75,2,746,0)=" . S RESULT=""68^""_IEN_U_$P(ZERO,U)_U_$P(ZERO,U,11)"
^XMB(3.9,75,2,747,0)="""RTN"",""ORWGAPIA"",23,0)"
^XMB(3.9,75,2,748,0)=" . D SETUP^ORWGAPIU(.DATA,RESULT,TMP,.CNT)"
^XMB(3.9,75,2,749,0)="""RTN"",""ORWGAPIA"",24,0)"
^XMB(3.9,75,2,750,0)=" Q"
^XMB(3.9,75,2,751,0)="""RTN"",""ORWGAPIA"",25,0)"
^XMB(3.9,75,2,752,0)="ACCLAB(AA) ; $$(accession ien) -> acc name^acc abbrev"
^XMB(3.9,75,2,753,0)="""RTN"",""ORWGAPIA"",26,0)"
^XMB(3.9,75,2,754,0)=" N ZERO"
^XMB(3.9,75,2,755,0)="""RTN"",""ORWGAPIA"",27,0)"
^XMB(3.9,75,2,756,0)=" S ZERO=$G(^LRO(68,AA,0)) I '$L(ZERO) Q """""
^XMB(3.9,75,2,757,0)="""RTN"",""ORWGAPIA"",28,0)"
^XMB(3.9,75,2,758,0)=" Q ""lab - ""_$P(ZERO,U)_U_$P(ZERO,U,11)"
^XMB(3.9,75,2,759,0)="""RTN"",""ORWGAPIA"",29,0)"
^XMB(3.9,75,2,760,0)="ADDDRUG(NUM1) ; $$(additive) -> drug in 50 else """""
^XMB(3.9,75,2,761,0)="""RTN"",""ORWGAPIA"",30,0)"
^XMB(3.9,75,2,762,0)=" N RESULT K ^TMP($J,""RX"")"
^XMB(3.9,75,2,763,0)="""RTN"",""ORWGAPIA"",31,0)"
^XMB(3.9,75,2,764,0)=" I '$G(IEN) Q """""
^XMB(3.9,75,2,765,0)="""RTN"",""ORWGAPIA"",32,0)"
^XMB(3.9,75,2,766,0)=" D ZERO^PSS52P6(IEN,,,""RX"")"
^XMB(3.9,75,2,767,0)="""RTN"",""ORWGAPIA"",33,0)"
^XMB(3.9,75,2,768,0)=" S RESULT=$P($G(^TMP($J,""RX"",IEN,1)),U)"
^XMB(3.9,75,2,769,0)="""RTN"",""ORWGAPIA"",34,0)"
^XMB(3.9,75,2,770,0)=" K ^TMP($J,""RX"")"
^XMB(3.9,75,2,771,0)="""RTN"",""ORWGAPIA"",35,0)"
^XMB(3.9,75,2,772,0)=" Q RESULT"
^XMB(3.9,75,2,773,0)="""RTN"",""ORWGAPIA"",36,0)"
^XMB(3.9,75,2,774,0)="ALLG(IEN) ; $$(ien) -> external display of allergies"
^XMB(3.9,75,2,775,0)="""RTN"",""ORWGAPIA"",37,0)"
^XMB(3.9,75,2,776,0)=" I IEN Q $P($G(^GMRD(120.83,IEN,0)),U) ; this is for rxn, allergy is free text"
^XMB(3.9,75,2,777,0)="""RTN"",""ORWGAPIA"",38,0)"
^XMB(3.9,75,2,778,0)=" Q IEN"
^XMB(3.9,75,2,779,0)="""RTN"",""ORWGAPIA"",39,0)"
^XMB(3.9,75,2,780,0)="CPT(NODE,ORVALUE) ; from ORWGAPI4"
^XMB(3.9,75,2,781,0)="""RTN"",""ORWGAPIA"",40,0)"
^XMB(3.9,75,2,782,0)=" D VCPT^PXPXRM(NODE,.ORVALUE)"
^XMB(3.9,75,2,783,0)="""RTN"",""ORWGAPIA"",41,0)"
^XMB(3.9,75,2,784,0)=" Q"
^XMB(3.9,75,2,785,0)="""RTN"",""ORWGAPIA"",42,0)"
^XMB(3.9,75,2,786,0)="DC(IEN) ; $$(ien) -> external display of drug class"
^XMB(3.9,75,2,787,0)="""RTN"",""ORWGAPIA"",43,0)"
^XMB(3.9,75,2,788,0)=" N RESULT K ^TMP($J,""RX"")"
^XMB(3.9,75,2,789,0)="""RTN"",""ORWGAPIA"",44,0)"
^XMB(3.9,75,2,790,0)=" I '$G(IEN) Q """""
^XMB(3.9,75,2,791,0)="""RTN"",""ORWGAPIA"",45,0)"
^XMB(3.9,75,2,792,0)=" D IEN^PSN50P65(IEN,,""RX"")"
^XMB(3.9,75,2,793,0)="""RTN"",""ORWGAPIA"",46,0)"
^XMB(3.9,75,2,794,0)=" S RESULT=$G(^TMP($J,""RX"",IEN,1))"
^XMB(3.9,75,2,795,0)="""RTN"",""ORWGAPIA"",47,0)"
^XMB(3.9,75,2,796,0)=" K ^TMP($J,""RX"")"
^XMB(3.9,75,2,797,0)="""RTN"",""ORWGAPIA"",48,0)"
^XMB(3.9,75,2,798,0)=" Q RESULT"
^XMB(3.9,75,2,799,0)="""RTN"",""ORWGAPIA"",49,0)"
^XMB(3.9,75,2,800,0)="DISCH(IEN) ; $$(pt movement ien) -> discharge date"
^XMB(3.9,75,2,801,0)="""RTN"",""ORWGAPIA"",50,0)"
^XMB(3.9,75,2,802,0)=" Q $P($G(^DGPM(+$P($G(^DGPM(+$G(IEN),0)),U,17),0)),U)"
^XMB(3.9,75,2,803,0)="""RTN"",""ORWGAPIA"",51,0)"
^XMB(3.9,75,2,804,0)="DOCCLASS(DOCTYPE) ; $$(doc type) -> ien of tiu doc class"
^XMB(3.9,75,2,805,0)="""RTN"",""ORWGAPIA"",52,0)"
^XMB(3.9,75,2,806,0)=" N CONSULTS"
^XMB(3.9,75,2,807,0)="""RTN"",""ORWGAPIA"",53,0)"
^XMB(3.9,75,2,808,0)=" S DOCTYPE=$E(DOCTYPE,1)"
^XMB(3.9,75,2,809,0)="""RTN"",""ORWGAPIA"",54,0)"
^XMB(3.9,75,2,810,0)=" I DOCTYPE=""P"" Q 3"
^XMB(3.9,75,2,811,0)="""RTN"",""ORWGAPIA"",55,0)"
^XMB(3.9,75,2,812,0)=" I DOCTYPE=""D"" Q 244"
^XMB(3.9,75,2,813,0)="""RTN"",""ORWGAPIA"",56,0)"
^XMB(3.9,75,2,814,0)=" I DOCTYPE=""C"" D CNSLCLAS^TIUSRVD(.CONSULTS) Q CONSULTS"
^XMB(3.9,75,2,815,0)="""RTN"",""ORWGAPIA"",57,0)"
^XMB(3.9,75,2,816,0)=" Q 0"
^XMB(3.9,75,2,817,0)="""RTN"",""ORWGAPIA"",58,0)"
^XMB(3.9,75,2,818,0)="DRGCLASS(DRUG) ; $$(drug) -> drug class^classification"
^XMB(3.9,75,2,819,0)="""RTN"",""ORWGAPIA"",59,0)"
^XMB(3.9,75,2,820,0)=" N RESULT K ^TMP($J,""RX"")"
^XMB(3.9,75,2,821,0)="""RTN"",""ORWGAPIA"",60,0)"
^XMB(3.9,75,2,822,0)=" I '$G(DRUG) Q """""
^XMB(3.9,75,2,823,0)="""RTN"",""ORWGAPIA"",61,0)"
^XMB(3.9,75,2,824,0)=" D DATA^PSS50(DRUG,,,,,""RX"")"
^XMB(3.9,75,2,825,0)="""RTN"",""ORWGAPIA"",62,0)"
^XMB(3.9,75,2,826,0)=" S RESULT=+$G(^TMP($J,""RX"",DRUG,25))"
^XMB(3.9,75,2,827,0)="""RTN"",""ORWGAPIA"",63,0)"
^XMB(3.9,75,2,828,0)=" K ^TMP($J,""RX"")"
^XMB(3.9,75,2,829,0)="""RTN"",""ORWGAPIA"",64,0)"
^XMB(3.9,75,2,830,0)=" Q RESULT_U_""drug - ""_$$DC(RESULT)"
^XMB(3.9,75,2,831,0)="""RTN"",""ORWGAPIA"",65,0)"
^XMB(3.9,75,2,832,0)="DRUG(NUM) ; $$(bcma entry) -> drug in 50 else """""
^XMB(3.9,75,2,833,0)="""RTN"",""ORWGAPIA"",66,0)"
^XMB(3.9,75,2,834,0)=" N DONE,DRUG,NUM1"
^XMB(3.9,75,2,835,0)="""RTN"",""ORWGAPIA"",67,0)"
^XMB(3.9,75,2,836,0)=" S DONE=0,NUM=+$G(NUM)"
^XMB(3.9,75,2,837,0)="""RTN"",""ORWGAPIA"",68,0)"
^XMB(3.9,75,2,838,0)=" S NUM1=0"
^XMB(3.9,75,2,839,0)="""RTN"",""ORWGAPIA"",69,0)"
^XMB(3.9,75,2,840,0)=" F  S NUM1=$O(^PSB(53.79,NUM,.5,""B"",NUM1)) Q:NUM1<1  S DONE=1 Q"
^XMB(3.9,75,2,841,0)="""RTN"",""ORWGAPIA"",70,0)"
^XMB(3.9,75,2,842,0)=" I DONE Q NUM1"
^XMB(3.9,75,2,843,0)="""RTN"",""ORWGAPIA"",71,0)"
^XMB(3.9,75,2,844,0)=" S DRUG=0"
^XMB(3.9,75,2,845,0)="""RTN"",""ORWGAPIA"",72,0)"
^XMB(3.9,75,2,846,0)=" S NUM1=0"
^XMB(3.9,75,2,847,0)="""RTN"",""ORWGAPIA"",73,0)"
^XMB(3.9,75,2,848,0)=" F  S NUM1=$O(^PSB(53.79,NUM,.6,""B"",NUM1)) Q:NUM1<1  D  I DONE Q"
^XMB(3.9,75,2,849,0)="""RTN"",""ORWGAPIA"",74,0)"
^XMB(3.9,75,2,850,0)=" . S DRUG=$$ADDDRUG(NUM1)"
^XMB(3.9,75,2,851,0)="""RTN"",""ORWGAPIA"",75,0)"
^XMB(3.9,75,2,852,0)=" . I DRUG S DONE=1"
^XMB(3.9,75,2,853,0)="""RTN"",""ORWGAPIA"",76,0)"
^XMB(3.9,75,2,854,0)=" I DONE Q DRUG"
^XMB(3.9,75,2,855,0)="""RTN"",""ORWGAPIA"",77,0)"
^XMB(3.9,75,2,856,0)=" S DRUG=0"
^XMB(3.9,75,2,857,0)="""RTN"",""ORWGAPIA"",78,0)"
^XMB(3.9,75,2,858,0)=" S NUM1=0"
^XMB(3.9,75,2,859,0)="""RTN"",""ORWGAPIA"",79,0)"
^XMB(3.9,75,2,860,0)=" F  S NUM1=$O(^PSB(53.79,NUM,.7,""B"",NUM1)) Q:NUM1<1  D  I DONE Q"
^XMB(3.9,75,2,861,0)="""RTN"",""ORWGAPIA"",80,0)"
^XMB(3.9,75,2,862,0)=" . S DRUG=$$SOLDRUG(NUM1)"
^XMB(3.9,75,2,863,0)="""RTN"",""ORWGAPIA"",81,0)"
^XMB(3.9,75,2,864,0)=" . I DRUG S DONE=1"
^XMB(3.9,75,2,865,0)="""RTN"",""ORWGAPIA"",82,0)"
^XMB(3.9,75,2,866,0)=" I DONE Q DRUG"
^XMB(3.9,75,2,867,0)="""RTN"",""ORWGAPIA"",83,0)"
^XMB(3.9,75,2,868,0)=" Q """""
^XMB(3.9,75,2,869,0)="""RTN"",""ORWGAPIA"",84,0)"
^XMB(3.9,75,2,870,0)="DRUGC(VALUES) ; API - get drug classes   - from ORWGAPI"
^XMB(3.9,75,2,871,0)="""RTN"",""ORWGAPIA"",85,0)"
^XMB(3.9,75,2,872,0)=" N CLASS,IEN,NUM,ROOT K VALUES"
^XMB(3.9,75,2,873,0)="""RTN"",""ORWGAPIA"",86,0)"
^XMB(3.9,75,2,874,0)=" S NUM=0"
^XMB(3.9,75,2,875,0)="""RTN"",""ORWGAPIA"",87,0)"
^XMB(3.9,75,2,876,0)=" S ROOT=$$ROOT^PSN50P65(1)"
^XMB(3.9,75,2,877,0)="""RTN"",""ORWGAPIA"",88,0)"
^XMB(3.9,75,2,878,0)=" S CLASS="""""
^XMB(3.9,75,2,879,0)="""RTN"",""ORWGAPIA"",89,0)"
^XMB(3.9,75,2,880,0)=" F  S CLASS=$O(@ROOT@(CLASS)) Q:CLASS=""""  D"
^XMB(3.9,75,2,881,0)="""RTN"",""ORWGAPIA"",90,0)"
^XMB(3.9,75,2,882,0)=" . S IEN=0"
^XMB(3.9,75,2,883,0)="""RTN"",""ORWGAPIA"",91,0)"
^XMB(3.9,75,2,884,0)=" . F  S IEN=$O(@ROOT@(CLASS,IEN)) Q:IEN=""""  D"
^XMB(3.9,75,2,885,0)="""RTN"",""ORWGAPIA"",92,0)"
^XMB(3.9,75,2,886,0)=" .. S NUM=NUM+1"
^XMB(3.9,75,2,887,0)="""RTN"",""ORWGAPIA"",93,0)"
^XMB(3.9,75,2,888,0)=" .. S VALUES(NUM)=""50.605^""_IEN_U_CLASS"
^XMB(3.9,75,2,889,0)="""RTN"",""ORWGAPIA"",94,0)"
^XMB(3.9,75,2,890,0)=" M ^TMP(""ORWGRPC"",$J)=VALUES K VALUES"
^XMB(3.9,75,2,891,0)="""RTN"",""ORWGAPIA"",95,0)"
^XMB(3.9,75,2,892,0)=" Q"
^XMB(3.9,75,2,893,0)="""RTN"",""ORWGAPIA"",96,0)"
^XMB(3.9,75,2,894,0)="EDU(NODE,ORVALUE) ; from ORWGAPI4"
^XMB(3.9,75,2,895,0)="""RTN"",""ORWGAPIA"",97,0)"
^XMB(3.9,75,2,896,0)=" D VPEDU^PXPXRM(NODE,.ORVALUE)"
^XMB(3.9,75,2,897,0)="""RTN"",""ORWGAPIA"",98,0)"
^XMB(3.9,75,2,898,0)=" Q"
^XMB(3.9,75,2,899,0)="""RTN"",""ORWGAPIA"",99,0)"
^XMB(3.9,75,2,900,0)="EXAM(NODE,ORVALUE) ; from ORWGAPI4"
^XMB(3.9,75,2,901,0)="""RTN"",""ORWGAPIA"",100,0)"
^XMB(3.9,75,2,902,0)=" D VXAM^PXPXRM(NODE,.ORVALUE)"
^XMB(3.9,75,2,903,0)="""RTN"",""ORWGAPIA"",101,0)"
^XMB(3.9,75,2,904,0)=" Q"
^XMB(3.9,75,2,905,0)="""RTN"",""ORWGAPIA"",102,0)"
^XMB(3.9,75,2,906,0)="GETTIU(ORDATA,IEN) ; from ORWGAPID"
^XMB(3.9,75,2,907,0)="""RTN"",""ORWGAPIA"",103,0)"
^XMB(3.9,75,2,908,0)=" D TGET^TIUSRVR1(.ORDATA,IEN)"
^XMB(3.9,75,2,909,0)="""RTN"",""ORWGAPIA"",104,0)"
^XMB(3.9,75,2,910,0)=" Q"
^XMB(3.9,75,2,911,0)="""RTN"",""ORWGAPIA"",105,0)"
^XMB(3.9,75,2,912,0)="HF(NODE,ORVALUE) ; from ORWGAPI4"
^XMB(3.9,75,2,913,0)="""RTN"",""ORWGAPIA"",106,0)"
^XMB(3.9,75,2,914,0)=" D VHF^PXPXRM(NODE,.ORVALUE)"
^XMB(3.9,75,2,915,0)="""RTN"",""ORWGAPIA"",107,0)"
^XMB(3.9,75,2,916,0)=" Q"
^XMB(3.9,75,2,917,0)="""RTN"",""ORWGAPIA"",108,0)"
^XMB(3.9,75,2,918,0)="ICD0(IEN) ; $$(ien) -> external display of IDC0"
^XMB(3.9,75,2,919,0)="""RTN"",""ORWGAPIA"",109,0)"
^XMB(3.9,75,2,920,0)=" Q $P($G(^ICD0(IEN,0)),U)_"" ""_$P($G(^ICD0(IEN,0)),U,4)"
^XMB(3.9,75,2,921,0)="""RTN"",""ORWGAPIA"",110,0)"
^XMB(3.9,75,2,922,0)="ICD9(IEN) ; $$(ien) -> external display of IDC9"
^XMB(3.9,75,2,923,0)="""RTN"",""ORWGAPIA"",111,0)"
^XMB(3.9,75,2,924,0)=" Q $P($G(^ICD9(IEN,0)),U)_"" ""_$P($G(^ICD9(IEN,0)),U,3)"
^XMB(3.9,75,2,925,0)="""RTN"",""ORWGAPIA"",112,0)"
^XMB(3.9,75,2,926,0)="ICPT(IEN,CSD) ; $$(ien) -> external display of CPT"
^XMB(3.9,75,2,927,0)="""RTN"",""ORWGAPIA"",113,0)"
^XMB(3.9,75,2,928,0)=" N X S X=$$CPT^ICPTCOD($G(IEN),$G(CSD))"
^XMB(3.9,75,2,929,0)="""RTN"",""ORWGAPIA"",114,0)"
^XMB(3.9,75,2,930,0)=" Q $P(X,U,2)_"" ""_$E($P(X,U,3),1,30)"
^XMB(3.9,75,2,931,0)="""RTN"",""ORWGAPIA"",115,0)"
^XMB(3.9,75,2,932,0)="IMM(NODE,ORVALUE) ; from ORWGAPI4"
^XMB(3.9,75,2,933,0)="""RTN"",""ORWGAPIA"",116,0)"
^XMB(3.9,75,2,934,0)=" D VIMM^PXPXRM(NODE,.ORVALUE)"
^XMB(3.9,75,2,935,0)="""RTN"",""ORWGAPIA"",117,0)"
^XMB(3.9,75,2,936,0)=" Q"
^XMB(3.9,75,2,937,0)="""RTN"",""ORWGAPIA"",118,0)"
^XMB(3.9,75,2,938,0)="INSIG(NODE) ; $$(node) -> sig"
^XMB(3.9,75,2,939,0)="""RTN"",""ORWGAPIA"",119,0)"
^XMB(3.9,75,2,940,0)=" N DFN,DNUM,IEN,LNUM,SIG,SUB ; replace this code in v27 with INSIG^ORWGAPIX"
^XMB(3.9,75,2,941,0)="""RTN"",""ORWGAPIA"",120,0)"
^XMB(3.9,75,2,942,0)=" S DFN=+$G(NODE)"
^XMB(3.9,75,2,943,0)="""RTN"",""ORWGAPIA"",121,0)"
^XMB(3.9,75,2,944,0)=" S SUB=$P($G(NODE),"";"",2)"
^XMB(3.9,75,2,945,0)="""RTN"",""ORWGAPIA"",122,0)"
^XMB(3.9,75,2,946,0)=" S IEN=+$P($G(NODE),"";"",3)"
^XMB(3.9,75,2,947,0)="""RTN"",""ORWGAPIA"",123,0)"
^XMB(3.9,75,2,948,0)=" S SIG="""""
^XMB(3.9,75,2,949,0)="""RTN"",""ORWGAPIA"",124,0)"
^XMB(3.9,75,2,950,0)=" I SUB=5 D"
^XMB(3.9,75,2,951,0)="""RTN"",""ORWGAPIA"",125,0)"
^XMB(3.9,75,2,952,0)=" . S LNUM=$G(^PS(55,DFN,5,IEN,0))"
^XMB(3.9,75,2,953,0)="""RTN"",""ORWGAPIA"",126,0)"
^XMB(3.9,75,2,954,0)=" . S DNUM=$G(^PS(55,DFN,5,IEN,.2))"
^XMB(3.9,75,2,955,0)="""RTN"",""ORWGAPIA"",127,0)"
^XMB(3.9,75,2,956,0)=" . I $L(DNUM),$L(LNUM) D"
^XMB(3.9,75,2,957,0)="""RTN"",""ORWGAPIA"",128,0)"
^XMB(3.9,75,2,958,0)=" .. S SIG=""  Give: ""_$$EXT^ORWGAPIX($P(LNUM,U,3),55.06,3)"
^XMB(3.9,75,2,959,0)="""RTN"",""ORWGAPIA"",129,0)"
^XMB(3.9,75,2,960,0)=" .. S SIG=SIG_"" ""_$$EXT^ORWGAPIX($P(LNUM,U,7),55.06,7)"
^XMB(3.9,75,2,961,0)="""RTN"",""ORWGAPIA"",130,0)"
^XMB(3.9,75,2,962,0)=" I SUB=""IV"" D"
^XMB(3.9,75,2,963,0)="""RTN"",""ORWGAPIA"",131,0)"
^XMB(3.9,75,2,964,0)=" . S LNUM=$G(^PS(55,DFN,""IV"",IEN,0))"
^XMB(3.9,75,2,965,0)="""RTN"",""ORWGAPIA"",132,0)"
^XMB(3.9,75,2,966,0)=" . S DNUM=$G(^PS(55,DFN,""IV"",IEN,.2))"
^XMB(3.9,75,2,967,0)="""RTN"",""ORWGAPIA"",133,0)"
^XMB(3.9,75,2,968,0)=" . I $L(DNUM),$L(LNUM) D"
^XMB(3.9,75,2,969,0)="""RTN"",""ORWGAPIA"",134,0)"
^XMB(3.9,75,2,970,0)=" .. S SIG=""  Give: ""_$P(DNUM,U,2)"
^XMB(3.9,75,2,971,0)="""RTN"",""ORWGAPIA"",135,0)"
^XMB(3.9,75,2,972,0)=" .. S SIG=SIG_"" ""_$$EXT^ORWGAPIX($P(LNUM,U,2),55.01,.02)_"" ""_$P(LNUM,U,9)"
^XMB(3.9,75,2,973,0)="""RTN"",""ORWGAPIA"",136,0)"
^XMB(3.9,75,2,974,0)=" Q SIG"
^XMB(3.9,75,2,975,0)="""RTN"",""ORWGAPIA"",137,0)"
^XMB(3.9,75,2,976,0)="ISA(USER,CLASS,ORERR) ; $$(user,user class,err) -> 1 if user in class, else 0"
^XMB(3.9,75,2,977,0)="""RTN"",""ORWGAPIA"",138,0)"
^XMB(3.9,75,2,978,0)=" Q $$ISA^USRLM(USER,CLASS,.ORERR)"
^XMB(3.9,75,2,979,0)="""RTN"",""ORWGAPIA"",139,0)"
^XMB(3.9,75,2,980,0)="LAB(ORVALUE,NODE,ITEM) ; from ORWGAPI3"
^XMB(3.9,75,2,981,0)="""RTN"",""ORWGAPIA"",140,0)"
^XMB(3.9,75,2,982,0)=" D LRPXRM^LRPXAPI(.ORVALUE,NODE,ITEM,""VSC"")"
^XMB(3.9,75,2,983,0)="""RTN"",""ORWGAPIA"",141,0)"
^XMB(3.9,75,2,984,0)=" Q"
^XMB(3.9,75,2,985,0)="""RTN"",""ORWGAPIA"",142,0)"
^XMB(3.9,75,2,986,0)="LABNAME(Y) ; $$(item ien) -> item name"
^XMB(3.9,75,2,987,0)="""RTN"",""ORWGAPIA"",143,0)"
^XMB(3.9,75,2,988,0)=" I $P(Y,"";"")=""A"",$P(Y,"";"",2)=""S"" Q $P(Y,""."",2,99)"
^XMB(3.9,75,2,989,0)="""RTN"",""ORWGAPIA"",144,0)"
^XMB(3.9,75,2,990,0)=" Q $$ITEMNM^LRPXAPIU(Y)"
^XMB(3.9,75,2,991,0)="""RTN"",""ORWGAPIA"",145,0)"
^XMB(3.9,75,2,992,0)="LABSUM(ORDATA,DFN,DATE1,DATE2,ORSUB) ; from ORWGAPID"
^XMB(3.9,75,2,993,0)="""RTN"",""ORWGAPIA"",146,0)"
^XMB(3.9,75,2,994,0)=" D EN^LR7OSUM(.ORDATA,DFN,DATE1,DATE2,,80,.ORSUB)"
^XMB(3.9,75,2,995,0)="""RTN"",""ORWGAPIA"",147,0)"
^XMB(3.9,75,2,996,0)=" Q"
^XMB(3.9,75,2,997,0)="""RTN"",""ORWGAPIA"",148,0)"
^XMB(3.9,75,2,998,0)="LOS(DGPMIFN) ; $$(pt movement ien) -> length of stay"
^XMB(3.9,75,2,999,0)="""RTN"",""ORWGAPIA"",149,0)"
^XMB(3.9,75,2,1000,0)=" N X D ^DGPMLOS"
^XMB(3.9,75,2,1001,0)="""RTN"",""ORWGAPIA"",150,0)"
^XMB(3.9,75,2,1002,0)=" Q +$P($G(X),U,5)"
^XMB(3.9,75,2,1003,0)="""RTN"",""ORWGAPIA"",151,0)"
^XMB(3.9,75,2,1004,0)="LRDFN(DFN) ; $$(dfn) -> lrdfn"
^XMB(3.9,75,2,1005,0)="""RTN"",""ORWGAPIA"",152,0)"
^XMB(3.9,75,2,1006,0)=" Q $$LRDFN^LRPXAPIU(DFN)"
^XMB(3.9,75,2,1007,0)="""RTN"",""ORWGAPIA"",153,0)"
^XMB(3.9,75,2,1008,0)="LRIDT(LRDT) ;  $$(date) -> inverse date"
^XMB(3.9,75,2,1009,0)="""RTN"",""ORWGAPIA"",154,0)"
^XMB(3.9,75,2,1010,0)=" Q $$LRIDT^LRPXAPIU(LRDT)"
^XMB(3.9,75,2,1011,0)="""RTN"",""ORWGAPIA"",155,0)"
^XMB(3.9,75,2,1012,0)="MEDICINE(ARRAY,DFN) ;"
^XMB(3.9,75,2,1013,0)="""RTN"",""ORWGAPIA"",156,0)"
^XMB(3.9,75,2,1014,0)=" N DATE,FILE,IEN,NAME,NUM,REF,VALUES,XREF"
^XMB(3.9,75,2,1015,0)="""RTN"",""ORWGAPIA"",157,0)"
^XMB(3.9,75,2,1016,0)=" K ARRAY,^TMP(""MCAR"",$J),^TMP(""OR"",$J,""MCAR"")"
^XMB(3.9,75,2,1017,0)="""RTN"",""ORWGAPIA"",158,0)"
^XMB(3.9,75,2,1018,0)=" D FILE^ORWGAPIU(690,.REF,.XREF)"
^XMB(3.9,75,2,1019,0)="""RTN"",""ORWGAPIA"",159,0)"
^XMB(3.9,75,2,1020,0)=" I '$L(REF) Q"
^XMB(3.9,75,2,1021,0)="""RTN"",""ORWGAPIA"",160,0)"
^XMB(3.9,75,2,1022,0)=" I $E(REF,$L(REF))="","" S REF=$E(REF,1,$L(REF)-1)_"")"""
^XMB(3.9,75,2,1023,0)="""RTN"",""ORWGAPIA"",161,0)"
^XMB(3.9,75,2,1024,0)=" I $E(REF,$L(REF))=""("" S REF=$P(REF,""("")"
^XMB(3.9,75,2,1025,0)="""RTN"",""ORWGAPIA"",162,0)"
^XMB(3.9,75,2,1026,0)=" D EN^MCARPS2(DFN)"
^XMB(3.9,75,2,1027,0)="""RTN"",""ORWGAPIA"",163,0)"
^XMB(3.9,75,2,1028,0)=" S NUM=0"
^XMB(3.9,75,2,1029,0)="""RTN"",""ORWGAPIA"",164,0)"
^XMB(3.9,75,2,1030,0)=" F  S NUM=$O(^TMP(""OR"",$J,""MCAR"",""OT"",NUM)) Q:NUM<1  D"
^XMB(3.9,75,2,1031,0)="""RTN"",""ORWGAPIA"",165,0)"
^XMB(3.9,75,2,1032,0)=" . S VALUES=^TMP(""OR"",$J,""MCAR"",""OT"",NUM)"
^XMB(3.9,75,2,1033,0)="""RTN"",""ORWGAPIA"",166,0)"
^XMB(3.9,75,2,1034,0)=" . S DATE=$$DATETFM^ORWGAPIU($P(VALUES,U,6))"
^XMB(3.9,75,2,1035,0)="""RTN"",""ORWGAPIA"",167,0)"
^XMB(3.9,75,2,1036,0)=" . S NAME=$P(VALUES,U) I '$L(NAME) Q"
^XMB(3.9,75,2,1037,0)="""RTN"",""ORWGAPIA"",168,0)"
^XMB(3.9,75,2,1038,0)=" . S IEN=+$O(@REF@(XREF,NAME,""""))"
^XMB(3.9,75,2,1039,0)="""RTN"",""ORWGAPIA"",169,0)"
^XMB(3.9,75,2,1040,0)=" . I DATE,IEN S ARRAY(IEN,DATE)=NAME"
^XMB(3.9,75,2,1041,0)="""RTN"",""ORWGAPIA"",170,0)"
^XMB(3.9,75,2,1042,0)=" K ^TMP(""MCAR"",$J),^TMP(""OR"",$J,""MCAR"")"
^XMB(3.9,75,2,1043,0)="""RTN"",""ORWGAPIA"",171,0)"
^XMB(3.9,75,2,1044,0)=" Q"
^XMB(3.9,75,2,1045,0)="""RTN"",""ORWGAPIA"",172,0)"
^XMB(3.9,75,2,1046,0)="MEDVAL(VAL) ;"
^XMB(3.9,75,2,1047,0)="""RTN"",""ORWGAPIA"",173,0)"
^XMB(3.9,75,2,1048,0)=" N IEN,NAME,NAMES,REF,SEQ,XREF K NAMES,VAL"
^XMB(3.9,75,2,1049,0)="""RTN"",""ORWGAPIA"",174,0)"
^XMB(3.9,75,2,1050,0)=" D FILE^ORWGAPIU(690,.REF,.XREF)"
^XMB(3.9,75,2,1051,0)="""RTN"",""ORWGAPIA"",175,0)"
^XMB(3.9,75,2,1052,0)=" I '$L(REF) Q"
^XMB(3.9,75,2,1053,0)="""RTN"",""ORWGAPIA"",176,0)"
^XMB(3.9,75,2,1054,0)=" I $E(REF,$L(REF))="","" S REF=$E(REF,1,$L(REF)-1)_"")"""
^XMB(3.9,75,2,1055,0)="""RTN"",""ORWGAPIA"",177,0)"
^XMB(3.9,75,2,1056,0)=" I $E(REF,$L(REF))=""("" S REF=$P(REF,""("")"
^XMB(3.9,75,2,1057,0)="""RTN"",""ORWGAPIA"",178,0)"
^XMB(3.9,75,2,1058,0)=" S NAME="""""
^XMB(3.9,75,2,1059,0)="""RTN"",""ORWGAPIA"",179,0)"
^XMB(3.9,75,2,1060,0)=" F  S NAME=$O(@REF@(XREF,NAME)) Q:NAME=""""  D"
^XMB(3.9,75,2,1061,0)="""RTN"",""ORWGAPIA"",180,0)"
^XMB(3.9,75,2,1062,0)=" . S IEN=0"
^XMB(3.9,75,2,1063,0)="""RTN"",""ORWGAPIA"",181,0)"
^XMB(3.9,75,2,1064,0)=" . F  S IEN=$O(@REF@(XREF,NAME,IEN)) Q:IEN<1  D"
^XMB(3.9,75,2,1065,0)="""RTN"",""ORWGAPIA"",182,0)"
^XMB(3.9,75,2,1066,0)=" .. S NAMES(IEN)=NAME"
^XMB(3.9,75,2,1067,0)="""RTN"",""ORWGAPIA"",183,0)"
^XMB(3.9,75,2,1068,0)=" S SEQ=0"
^XMB(3.9,75,2,1069,0)="""RTN"",""ORWGAPIA"",184,0)"
^XMB(3.9,75,2,1070,0)=" S IEN=0"
^XMB(3.9,75,2,1071,0)="""RTN"",""ORWGAPIA"",185,0)"
^XMB(3.9,75,2,1072,0)=" F  S IEN=$O(NAMES(IEN)) Q:IEN<1  D"
^XMB(3.9,75,2,1073,0)="""RTN"",""ORWGAPIA"",186,0)"
^XMB(3.9,75,2,1074,0)=" . S SEQ=SEQ+1"
^XMB(3.9,75,2,1075,0)="""RTN"",""ORWGAPIA"",187,0)"
^XMB(3.9,75,2,1076,0)=" . S VAL(SEQ)=690_U_IEN_U_NAMES(IEN)"
^XMB(3.9,75,2,1077,0)="""RTN"",""ORWGAPIA"",188,0)"
^XMB(3.9,75,2,1078,0)=" Q"
^XMB(3.9,75,2,1079,0)="""RTN"",""ORWGAPIA"",189,0)"
^XMB(3.9,75,2,1080,0)="MH(ORVALUE,NODE) ; from ORWGAPI4"
^XMB(3.9,75,2,1081,0)="""RTN"",""ORWGAPIA"",190,0)"
^XMB(3.9,75,2,1082,0)=" D ENDAS^YTAPI10(.ORVALUE,NODE)"
^XMB(3.9,75,2,1083,0)="""RTN"",""ORWGAPIA"",191,0)"
^XMB(3.9,75,2,1084,0)=" Q"
^XMB(3.9,75,2,1085,0)="""RTN"",""ORWGAPIA"",192,0)"
^XMB(3.9,75,2,1086,0)="NVASIG(NODE) ;  $$(node) -> sig on non-va drug"
^XMB(3.9,75,2,1087,0)="""RTN"",""ORWGAPIA"",193,0)"
^XMB(3.9,75,2,1088,0)=" N RESULTS,SIG K RESULTS"
^XMB(3.9,75,2,1089,0)="""RTN"",""ORWGAPIA"",194,0)"
^XMB(3.9,75,2,1090,0)=" I '$L(NODE) Q """""
^XMB(3.9,75,2,1091,0)="""RTN"",""ORWGAPIA"",195,0)"
^XMB(3.9,75,2,1092,0)=" D RXNVA(NODE,.RESULTS)"
^XMB(3.9,75,2,1093,0)="""RTN"",""ORWGAPIA"",196,0)"
^XMB(3.9,75,2,1094,0)=" S SIG=RESULTS(""DOSAGE"")"
^XMB(3.9,75,2,1095,0)="""RTN"",""ORWGAPIA"",197,0)"
^XMB(3.9,75,2,1096,0)=" S SIG=SIG_"" ""_RESULTS(""MEDICATION ROUTE"")"
^XMB(3.9,75,2,1097,0)="""RTN"",""ORWGAPIA"",198,0)"
^XMB(3.9,75,2,1098,0)=" S SIG=SIG_"" ""_RESULTS(""SCHEDULE"")"
^XMB(3.9,75,2,1099,0)="""RTN"",""ORWGAPIA"",199,0)"
^XMB(3.9,75,2,1100,0)=" Q SIG"
^XMB(3.9,75,2,1101,0)="""RTN"",""ORWGAPIA"",200,0)"
^XMB(3.9,75,2,1102,0)="OITEM(DATA) ; API - get order display groups   -  from ORWGAPI"
^XMB(3.9,75,2,1103,0)="""RTN"",""ORWGAPIA"",201,0)"
^XMB(3.9,75,2,1104,0)=" N CNT,IEN,RESULT,TMP,ZERO"
^XMB(3.9,75,2,1105,0)="""RTN"",""ORWGAPIA"",202,0)"
^XMB(3.9,75,2,1106,0)=" D RETURN^ORWGAPIU(.TMP,.DATA)"
^XMB(3.9,75,2,1107,0)="""RTN"",""ORWGAPIA"",203,0)"
^XMB(3.9,75,2,1108,0)=" S CNT=0"
^XMB(3.9,75,2,1109,0)="""RTN"",""ORWGAPIA"",204,0)"
^XMB(3.9,75,2,1110,0)=" S IEN=0"
^XMB(3.9,75,2,1111,0)="""RTN"",""ORWGAPIA"",205,0)"
^XMB(3.9,75,2,1112,0)=" F  S IEN=$O(^ORD(100.98,IEN)) Q:IEN<1  D"
^XMB(3.9,75,2,1113,0)="""RTN"",""ORWGAPIA"",206,0)"
^XMB(3.9,75,2,1114,0)=" . S ZERO=$G(^ORD(100.98,IEN,0)) I '$L(ZERO) Q"
^XMB(3.9,75,2,1115,0)="""RTN"",""ORWGAPIA"",207,0)"
^XMB(3.9,75,2,1116,0)=" . S RESULT=""100.98^""_IEN_U_$P(ZERO,U)_U_$P(ZERO,U,3)"
^XMB(3.9,75,2,1117,0)="""RTN"",""ORWGAPIA"",208,0)"
^XMB(3.9,75,2,1118,0)=" . D SETUP^ORWGAPIU(.DATA,RESULT,TMP,.CNT)"
^XMB(3.9,75,2,1119,0)="""RTN"",""ORWGAPIA"",209,0)"
^XMB(3.9,75,2,1120,0)=" Q"
^XMB(3.9,75,2,1121,0)="""RTN"",""ORWGAPIA"",210,0)"
^XMB(3.9,75,2,1122,0)="POINAME(IEN) ; $$(poi entry) - > name and dosage form else """""
^XMB(3.9,75,2,1123,0)="""RTN"",""ORWGAPIA"",211,0)"
^XMB(3.9,75,2,1124,0)=" N NAME,RESULT K ^TMP($J,""RX"")"
^XMB(3.9,75,2,1125,0)="""RTN"",""ORWGAPIA"",212,0)"
^XMB(3.9,75,2,1126,0)=" I '$G(IEN) Q """""
^XMB(3.9,75,2,1127,0)="""RTN"",""ORWGAPIA"",213,0)"
^XMB(3.9,75,2,1128,0)=" D ZERO^PSS50P7(IEN,,,""RX"")"
^XMB(3.9,75,2,1129,0)="""RTN"",""ORWGAPIA"",214,0)"
^XMB(3.9,75,2,1130,0)=" S NAME=$P($G(^TMP($J,""RX"",IEN,.01)),U)"
^XMB(3.9,75,2,1131,0)="""RTN"",""ORWGAPIA"",215,0)"
^XMB(3.9,75,2,1132,0)=" S NAME=NAME_"" ""_$P($G(^TMP($J,""BOB"",IEN,.02)),U,2)"
^XMB(3.9,75,2,1133,0)="""RTN"",""ORWGAPIA"",216,0)"
^XMB(3.9,75,2,1134,0)=" K ^TMP($J,""RX"")"
^XMB(3.9,75,2,1135,0)="""RTN"",""ORWGAPIA"",217,0)"
^XMB(3.9,75,2,1136,0)=" I NAME'="" "" Q NAME"
^XMB(3.9,75,2,1137,0)="""RTN"",""ORWGAPIA"",218,0)"
^XMB(3.9,75,2,1138,0)=" Q """""
^XMB(3.9,75,2,1139,0)="""RTN"",""ORWGAPIA"",219,0)"
^XMB(3.9,75,2,1140,0)="POV(NODE,ORVALUE) ; from ORWGAPI4"
^XMB(3.9,75,2,1141,0)="""RTN"",""ORWGAPIA"",220,0)"
^XMB(3.9,75,2,1142,0)=" D VPOV^PXPXRM(NODE,.ORVALUE)"
^XMB(3.9,75,2,1143,0)="""RTN"",""ORWGAPIA"",221,0)"
^XMB(3.9,75,2,1144,0)=" Q"
^XMB(3.9,75,2,1145,0)="""RTN"",""ORWGAPIA"",222,0)"
^XMB(3.9,75,2,1146,0)="PROB(GMPLLEX,GMPLSTAT,GMPLICD,GMPLODAT,GMPLXDAT,NODE) ; from ORWGAPI4"
^XMB(3.9,75,2,1147,0)="""RTN"",""ORWGAPIA"",223,0)"
^XMB(3.9,75,2,1148,0)=" N GMPLPNAM,GMPLDLM,GMPLTXT,GMPLCOND,GMPLPRV,GMPLPRIO"
^XMB(3.9,75,2,1149,0)="""RTN"",""ORWGAPIA"",224,0)"
^XMB(3.9,75,2,1150,0)=" D CALL2^GMPLUTL3(NODE)"
^XMB(3.9,75,2,1151,0)="""RTN"",""ORWGAPIA"",225,0)"
^XMB(3.9,75,2,1152,0)=" Q"
^XMB(3.9,75,2,1153,0)="""RTN"",""ORWGAPIA"",226,0)"
^XMB(3.9,75,2,1154,0)="PTF(NODE,ORVALUE) ; from ORWGAPI3, ORWGAPI4"
^XMB(3.9,75,2,1155,0)="""RTN"",""ORWGAPIA"",227,0)"
^XMB(3.9,75,2,1156,0)=" D PTF^DGPTPXRM(NODE,.ORVALUE)"
^XMB(3.9,75,2,1157,0)="""RTN"",""ORWGAPIA"",228,0)"
^XMB(3.9,75,2,1158,0)=" Q"
^XMB(3.9,75,2,1159,0)="""RTN"",""ORWGAPIA"",229,0)"
^XMB(3.9,75,2,1160,0)="RAD(NODE,ORVALUE) ; from ORWGAPI3"
^XMB(3.9,75,2,1161,0)="""RTN"",""ORWGAPIA"",230,0)"
^XMB(3.9,75,2,1162,0)=" D EN1^RAPXRM(NODE,.ORVALUE)"
^XMB(3.9,75,2,1163,0)="""RTN"",""ORWGAPIA"",231,0)"
^XMB(3.9,75,2,1164,0)=" Q"
^XMB(3.9,75,2,1165,0)="""RTN"",""ORWGAPIA"",232,0)"
^XMB(3.9,75,2,1166,0)="RXIN(NODE,ORVALUE) ; from ORWGAPI3"
^XMB(3.9,75,2,1167,0)="""RTN"",""ORWGAPIA"",233,0)"
^XMB(3.9,75,2,1168,0)=" D OEL^PSJPXRM1(NODE,.ORVALUE)"
^XMB(3.9,75,2,1169,0)="""RTN"",""ORWGAPIA"",234,0)"
^XMB(3.9,75,2,1170,0)=" Q"
^XMB(3.9,75,2,1171,0)="""RTN"",""ORWGAPIA"",235,0)"
^XMB(3.9,75,2,1172,0)="RXNVA(NODE,ORVALUE) ; from ORWGAPI1, ORWGAPI3"
^XMB(3.9,75,2,1173,0)="""RTN"",""ORWGAPIA"",236,0)"
^XMB(3.9,75,2,1174,0)=" D NVA^PSOPXRM1(NODE,.ORVALUE)"
^XMB(3.9,75,2,1175,0)="""RTN"",""ORWGAPIA"",237,0)"
^XMB(3.9,75,2,1176,0)=" Q"
^XMB(3.9,75,2,1177,0)="""RTN"",""ORWGAPIA"",238,0)"
^XMB(3.9,75,2,1178,0)="RXOUT(NODE,ORVALUE) ; from ORWGAPI3"
^XMB(3.9,75,2,1179,0)="""RTN"",""ORWGAPIA"",239,0)"
^XMB(3.9,75,2,1180,0)=" D PSRX^PSOPXRM1(NODE,.ORVALUE)"
^XMB(3.9,75,2,1181,0)="""RTN"",""ORWGAPIA"",240,0)"
^XMB(3.9,75,2,1182,0)=" Q"
^XMB(3.9,75,2,1183,0)="""RTN"",""ORWGAPIA"",241,0)"
^XMB(3.9,75,2,1184,0)="SIG(DFN,RXIEN) ; $$(dfn,prescription ien) -> sig"
^XMB(3.9,75,2,1185,0)="""RTN"",""ORWGAPIA"",242,0)"
^XMB(3.9,75,2,1186,0)=" N LNUM,SIG K ^TMP($J,""RX"")"
^XMB(3.9,75,2,1187,0)="""RTN"",""ORWGAPIA"",243,0)"
^XMB(3.9,75,2,1188,0)=" S RXIEN=+$G(RXIEN)"
^XMB(3.9,75,2,1189,0)="""RTN"",""ORWGAPIA"",244,0)"
^XMB(3.9,75,2,1190,0)=" D RX^PSO52API(DFN,""RX"",RXIEN,,""M"",,)"
^XMB(3.9,75,2,1191,0)="""RTN"",""ORWGAPIA"",245,0)"
^XMB(3.9,75,2,1192,0)=" S SIG="""""
^XMB(3.9,75,2,1193,0)="""RTN"",""ORWGAPIA"",246,0)"
^XMB(3.9,75,2,1194,0)=" S LNUM=0"
^XMB(3.9,75,2,1195,0)="""RTN"",""ORWGAPIA"",247,0)"
^XMB(3.9,75,2,1196,0)=" F  S LNUM=$O(^TMP($J,""RX"",DFN,RXIEN,""M"",LNUM)) Q:LNUM<1  D"
^XMB(3.9,75,2,1197,0)="""RTN"",""ORWGAPIA"",248,0)"
^XMB(3.9,75,2,1198,0)=" . S SIG=SIG_$G(^TMP($J,""RX"",DFN,RXIEN,""M"",LNUM,0))_"" """
^XMB(3.9,75,2,1199,0)="""RTN"",""ORWGAPIA"",249,0)"
^XMB(3.9,75,2,1200,0)=" I $L(SIG) S SIG=""  Sig: ""_$$LOW^ORWGAPIX(SIG)"
^XMB(3.9,75,2,1201,0)="""RTN"",""ORWGAPIA"",250,0)"
^XMB(3.9,75,2,1202,0)=" K ^TMP($J,""RX"")"
^XMB(3.9,75,2,1203,0)="""RTN"",""ORWGAPIA"",251,0)"
^XMB(3.9,75,2,1204,0)=" Q SIG"
^XMB(3.9,75,2,1205,0)="""RTN"",""ORWGAPIA"",252,0)"
^XMB(3.9,75,2,1206,0)="SKIN(NODE,ORVALUE) ; from ORWGAPI4"
^XMB(3.9,75,2,1207,0)="""RTN"",""ORWGAPIA"",253,0)"
^XMB(3.9,75,2,1208,0)=" D VSKIN^PXPXRM(NODE,.ORVALUE)"
^XMB(3.9,75,2,1209,0)="""RTN"",""ORWGAPIA"",254,0)"
^XMB(3.9,75,2,1210,0)=" Q"
^XMB(3.9,75,2,1211,0)="""RTN"",""ORWGAPIA"",255,0)"
^XMB(3.9,75,2,1212,0)="SOLDRUG(NUM1) ; $$(iv solution) -> drug in 50 else """""
^XMB(3.9,75,2,1213,0)="""RTN"",""ORWGAPIA"",256,0)"
^XMB(3.9,75,2,1214,0)=" N RESULT K ^TMP($J,""RX"")"
^XMB(3.9,75,2,1215,0)="""RTN"",""ORWGAPIA"",257,0)"
^XMB(3.9,75,2,1216,0)=" I '$G(IEN) Q """""
^XMB(3.9,75,2,1217,0)="""RTN"",""ORWGAPIA"",258,0)"
^XMB(3.9,75,2,1218,0)=" D ZERO^PSS52P7(IEN,,,""RX"")"
^XMB(3.9,75,2,1219,0)="""RTN"",""ORWGAPIA"",259,0)"
^XMB(3.9,75,2,1220,0)=" S RESULT=$P($G(^TMP($J,""RX"",IEN,1)),U)"
^XMB(3.9,75,2,1221,0)="""RTN"",""ORWGAPIA"",260,0)"
^XMB(3.9,75,2,1222,0)=" K ^TMP($J,""RX"")"
^XMB(3.9,75,2,1223,0)="""RTN"",""ORWGAPIA"",261,0)"
^XMB(3.9,75,2,1224,0)=" Q RESULT"
^XMB(3.9,75,2,1225,0)="""RTN"",""ORWGAPIA"",262,0)"
^XMB(3.9,75,2,1226,0)="SURG(ORSURG,DFN) ; from ORWGAPI2, ORWGAPI4"
^XMB(3.9,75,2,1227,0)="""RTN"",""ORWGAPIA"",263,0)"
^XMB(3.9,75,2,1228,0)=" D GET^SROGTSR(.ORSURG,DFN)"
^XMB(3.9,75,2,1229,0)="""RTN"",""ORWGAPIA"",264,0)"
^XMB(3.9,75,2,1230,0)=" Q"
^XMB(3.9,75,2,1231,0)="""RTN"",""ORWGAPIA"",265,0)"
^XMB(3.9,75,2,1232,0)="TAX(IEN) ; $$(ien) -> external display of reminder taxonomy"
^XMB(3.9,75,2,1233,0)="""RTN"",""ORWGAPIA"",266,0)"
^XMB(3.9,75,2,1234,0)=" Q $P($G(^PXD(811.2,+$G(IEN),0)),U)"
^XMB(3.9,75,2,1235,0)="""RTN"",""ORWGAPIA"",267,0)"
^XMB(3.9,75,2,1236,0)="TITLE(DOCTYPE) ; $$(document type) -> parent ien^parent^parent abbrev"
^XMB(3.9,75,2,1237,0)="""RTN"",""ORWGAPIA"",268,0)"
^XMB(3.9,75,2,1238,0)=" N IEN,RESULTS K RESULTS"
^XMB(3.9,75,2,1239,0)="""RTN"",""ORWGAPIA"",269,0)"
^XMB(3.9,75,2,1240,0)=" S DOCTYPE=+$G(^TIU(8925,+$G(DOCTYPE),0))"
^XMB(3.9,75,2,1241,0)="""RTN"",""ORWGAPIA"",270,0)"
^XMB(3.9,75,2,1242,0)=" S IEN=+$$DOCCLASS^TIULC1(DOCTYPE) I 'IEN Q """""
^XMB(3.9,75,2,1243,0)="""RTN"",""ORWGAPIA"",271,0)"
^XMB(3.9,75,2,1244,0)=" D GETDATA^ORWGAPIX(.RESULTS,8925.1,"".01;.02"",IEN)"
^XMB(3.9,75,2,1245,0)="""RTN"",""ORWGAPIA"",272,0)"
^XMB(3.9,75,2,1246,0)=" I '$L($G(RESULTS(.01))) Q """""
^XMB(3.9,75,2,1247,0)="""RTN"",""ORWGAPIA"",273,0)"
^XMB(3.9,75,2,1248,0)=" Q IEN_U_""note - ""_RESULTS(.01)_U_$G(RESULTS(.02))"
^XMB(3.9,75,2,1249,0)="""RTN"",""ORWGAPIA"",274,0)"
^XMB(3.9,75,2,1250,0)="TIU(ORVALUE,DOCIEN,ONE,DFN,OLDEST,NEWEST) ; from ORWGAPI1, ORWGAPI3"
^XMB(3.9,75,2,1251,0)="""RTN"",""ORWGAPIA"",275,0)"
^XMB(3.9,75,2,1252,0)=" D CONTEXT^TIUSRVLO(.ORVALUE,DOCIEN,ONE,DFN,$G(OLDEST),$G(NEWEST))"
^XMB(3.9,75,2,1253,0)="""RTN"",""ORWGAPIA"",276,0)"
^XMB(3.9,75,2,1254,0)=" Q"
^XMB(3.9,75,2,1255,0)="""RTN"",""ORWGAPIA"",277,0)"
^XMB(3.9,75,2,1256,0)="TIUTITLE(DATA) ; API - get tiu document titles   - from ORWGAPI"
^XMB(3.9,75,2,1257,0)="""RTN"",""ORWGAPIA"",278,0)"
^XMB(3.9,75,2,1258,0)=" N CNT,IEN,RESULT,RESULTS,TMP"
^XMB(3.9,75,2,1259,0)="""RTN"",""ORWGAPIA"",279,0)"
^XMB(3.9,75,2,1260,0)=" D RETURN^ORWGAPIU(.TMP,.DATA)"
^XMB(3.9,75,2,1261,0)="""RTN"",""ORWGAPIA"",280,0)"
^XMB(3.9,75,2,1262,0)=" S CNT=0"
^XMB(3.9,75,2,1263,0)="""RTN"",""ORWGAPIA"",281,0)"
^XMB(3.9,75,2,1264,0)=" S IEN=0"
^XMB(3.9,75,2,1265,0)="""RTN"",""ORWGAPIA"",282,0)"
^XMB(3.9,75,2,1266,0)=" F  S IEN=$O(^TIU(8925.1,IEN)) Q:IEN<1  D"
^XMB(3.9,75,2,1267,0)="""RTN"",""ORWGAPIA"",283,0)"
^XMB(3.9,75,2,1268,0)=" . I $P($G(^TIU(8925.1,IEN,0)),U,4)'=""DOC"" Q"
^XMB(3.9,75,2,1269,0)="""RTN"",""ORWGAPIA"",284,0)"
^XMB(3.9,75,2,1270,0)=" . K RESULTS"
^XMB(3.9,75,2,1271,0)="""RTN"",""ORWGAPIA"",285,0)"
^XMB(3.9,75,2,1272,0)=" . D GETDATA^ORWGAPIX(.RESULTS,8925.1,"".01;.02"",IEN)"
^XMB(3.9,75,2,1273,0)="""RTN"",""ORWGAPIA"",286,0)"
^XMB(3.9,75,2,1274,0)=" . I '$L($G(RESULTS(.01))) Q"
^XMB(3.9,75,2,1275,0)="""RTN"",""ORWGAPIA"",287,0)"
^XMB(3.9,75,2,1276,0)=" . S RESULT=""8925.1^""_IEN_U_RESULTS(.01)_U_$G(RESULTS(.02))"
^XMB(3.9,75,2,1277,0)="""RTN"",""ORWGAPIA"",288,0)"
^XMB(3.9,75,2,1278,0)=" . D SETUP^ORWGAPIU(.DATA,RESULT,TMP,.CNT)"
^XMB(3.9,75,2,1279,0)="""RTN"",""ORWGAPIA"",289,0)"
^XMB(3.9,75,2,1280,0)=" Q"
^XMB(3.9,75,2,1281,0)="""RTN"",""ORWGAPIA"",290,0)"
^XMB(3.9,75,2,1282,0)="VITAL(ORVALUE,NODE) ; from ORWGAPI4"
^XMB(3.9,75,2,1283,0)="""RTN"",""ORWGAPIA"",291,0)"
^XMB(3.9,75,2,1284,0)=" D EN^GMVPXRM(.ORVALUE,NODE)"
^XMB(3.9,75,2,1285,0)="""RTN"",""ORWGAPIA"",292,0)"
^XMB(3.9,75,2,1286,0)=" Q"
^XMB(3.9,75,2,1287,0)="""RTN"",""ORWGAPIA"",293,0)"
^XMB(3.9,75,2,1288,0)=" ; $$(dfn) -> 1 if patient has data else 0"
^XMB(3.9,75,2,1289,0)="""RTN"",""ORWGAPIA"",294,0)"
^XMB(3.9,75,2,1290,0)="ADMITX(DFN) ;"
^XMB(3.9,75,2,1291,0)="""RTN"",""ORWGAPIA"",295,0)"
^XMB(3.9,75,2,1292,0)=" Q $O(^DGPM(""C"",+$G(DFN),0))>0"
^XMB(3.9,75,2,1293,0)="""RTN"",""ORWGAPIA"",296,0)"
^XMB(3.9,75,2,1294,0)="ALLERGYX(DFN) ;"
^XMB(3.9,75,2,1295,0)="""RTN"",""ORWGAPIA"",297,0)"
^XMB(3.9,75,2,1296,0)=" Q $O(^GMR(120.8,""B"",+$G(DFN),0))>0"
^XMB(3.9,75,2,1297,0)="""RTN"",""ORWGAPIA"",298,0)"
^XMB(3.9,75,2,1298,0)="BCMAX(DFN) ;"
^XMB(3.9,75,2,1299,0)="""RTN"",""ORWGAPIA"",299,0)"
^XMB(3.9,75,2,1300,0)=" Q $O(^PSB(53.79,""B"",+$G(DFN),0))>0"
^XMB(3.9,75,2,1301,0)="""RTN"",""ORWGAPIA"",300,0)"
^XMB(3.9,75,2,1302,0)="NOTEX(DFN) ;"
^XMB(3.9,75,2,1303,0)="""RTN"",""ORWGAPIA"",301,0)"
^XMB(3.9,75,2,1304,0)=" Q $O(^TIU(8925,""C"",+$G(DFN),0))>0"
^XMB(3.9,75,2,1305,0)="""RTN"",""ORWGAPIA"",302,0)"
^XMB(3.9,75,2,1306,0)="NVAX(DFN) ;"
^XMB(3.9,75,2,1307,0)="""RTN"",""ORWGAPIA"",303,0)"
^XMB(3.9,75,2,1308,0)=" Q $L($O(^PXRMINDX(""55NVA"",""PI"",+$G(DFN),"""")))>0"
^XMB(3.9,75,2,1309,0)="""RTN"",""ORWGAPIA"",304,0)"
^XMB(3.9,75,2,1310,0)="SURGX(DFN) ;"
^XMB(3.9,75,2,1311,0)="""RTN"",""ORWGAPIA"",305,0)"
^XMB(3.9,75,2,1312,0)=" Q $O(^SRF(""B"",+$G(DFN),0))>0"
^XMB(3.9,75,2,1313,0)="""RTN"",""ORWGAPIA"",306,0)"
^XMB(3.9,75,2,1314,0)="TREATX(DFN) ;"
^XMB(3.9,75,2,1315,0)="""RTN"",""ORWGAPIA"",307,0)"
^XMB(3.9,75,2,1316,0)=" Q $L($O(^AUPNVTRT(""AA"",+$G(DFN),"""")))>0"
^XMB(3.9,75,2,1317,0)="""RTN"",""ORWGAPIA"",308,0)"
^XMB(3.9,75,2,1318,0)="VISITX(DFN) ;"
^XMB(3.9,75,2,1319,0)="""RTN"",""ORWGAPIA"",309,0)"
^XMB(3.9,75,2,1320,0)=" Q $O(^AUPNVSIT(""AET"",+$G(DFN),0))>0"
^XMB(3.9,75,2,1321,0)="""VER"")"
^XMB(3.9,75,2,1322,0)="8.0^22.0"
^XMB(3.9,75,2,1323,0)="""BLD"",17653,6)"
^XMB(3.9,75,2,1324,0)="^226"
^XMB(3.9,75,2,1325,0)="$END KID OR*3.0*251"
^XMB(3.9,75,6,0)="^3.911A^2^2"
^XMB(3.9,75,6,1,0)="POSTMASTER"
^XMB(3.9,75,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,75,6,"B","POSTMASTER",1)=""
^XMB(3.9,75,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,76,0)="OR-3_SEQ-228_PAT-257.KID^.5^3061008.015738^^^^K"
^XMB(3.9,76,.6)="3061008"
^XMB(3.9,76,1,0)="^3.91A^2^2"
^XMB(3.9,76,1,1,0)=".5^0^3061008.015738^^^^^^^3061008.015738"
^XMB(3.9,76,1,2,0)="1^0^3061008.024004^^^^^^^3061008.024004"
^XMB(3.9,76,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,76,1,"C",.5,1)=""
^XMB(3.9,76,1,"C",1,2)=""
^XMB(3.9,76,2,0)="^^225^225^3061008"
^XMB(3.9,76,2,1,0)="$TXT Released OR*3*257 SEQ #228"
^XMB(3.9,76,2,2,0)="Extracted from mail message"
^XMB(3.9,76,2,3,0)="$END TXT"
^XMB(3.9,76,2,4,0)="$KID OR*3.0*257"
^XMB(3.9,76,2,5,0)="**INSTALL NAME**"
^XMB(3.9,76,2,6,0)="OR*3.0*257"
^XMB(3.9,76,2,7,0)="""BLD"",6827,0)"
^XMB(3.9,76,2,8,0)="OR*3.0*257^ORDER ENTRY/RESULTS REPORTING^0^3060523^y"
^XMB(3.9,76,2,9,0)="""BLD"",6827,1,0)"
^XMB(3.9,76,2,10,0)="^^1^1^3060522^"
^XMB(3.9,76,2,11,0)="""BLD"",6827,1,1,0)"
^XMB(3.9,76,2,12,0)="UPDATING ORWRP TIME/OCC LIMITS ALL PARAMETER"
^XMB(3.9,76,2,13,0)="""BLD"",6827,4,0)"
^XMB(3.9,76,2,14,0)="^9.64PA^^0"
^XMB(3.9,76,2,15,0)="""BLD"",6827,""INID"")"
^XMB(3.9,76,2,16,0)="^y"
^XMB(3.9,76,2,17,0)="""BLD"",6827,""INIT"")"
^XMB(3.9,76,2,18,0)="ORY257"
^XMB(3.9,76,2,19,0)="""BLD"",6827,""KRN"",0)"
^XMB(3.9,76,2,20,0)="^9.67PA^8989.52^19"
^XMB(3.9,76,2,21,0)="""BLD"",6827,""KRN"",.4,0)"
^XMB(3.9,76,2,22,0)=".4"
^XMB(3.9,76,2,23,0)="""BLD"",6827,""KRN"",.401,0)"
^XMB(3.9,76,2,24,0)=".401"
^XMB(3.9,76,2,25,0)="""BLD"",6827,""KRN"",.402,0)"
^XMB(3.9,76,2,26,0)=".402"
^XMB(3.9,76,2,27,0)="""BLD"",6827,""KRN"",.403,0)"
^XMB(3.9,76,2,28,0)=".403"
^XMB(3.9,76,2,29,0)="""BLD"",6827,""KRN"",.5,0)"
^XMB(3.9,76,2,30,0)=".5"
^XMB(3.9,76,2,31,0)="""BLD"",6827,""KRN"",.84,0)"
^XMB(3.9,76,2,32,0)=".84"
^XMB(3.9,76,2,33,0)="""BLD"",6827,""KRN"",3.6,0)"
^XMB(3.9,76,2,34,0)="3.6"
^XMB(3.9,76,2,35,0)="""BLD"",6827,""KRN"",3.8,0)"
^XMB(3.9,76,2,36,0)="3.8"
^XMB(3.9,76,2,37,0)="""BLD"",6827,""KRN"",9.2,0)"
^XMB(3.9,76,2,38,0)="9.2"
^XMB(3.9,76,2,39,0)="""BLD"",6827,""KRN"",9.8,0)"
^XMB(3.9,76,2,40,0)="9.8"
^XMB(3.9,76,2,41,0)="""BLD"",6827,""KRN"",9.8,""NM"",0)"
^XMB(3.9,76,2,42,0)="^9.68A^1^1"
^XMB(3.9,76,2,43,0)="""BLD"",6827,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,76,2,44,0)="ORY257^^0^148879"
^XMB(3.9,76,2,45,0)="""BLD"",6827,""KRN"",9.8,""NM"",""B"",""ORY257"",1)"
^XMB(3.9,76,2,46,0)=""
^XMB(3.9,76,2,47,0)="""BLD"",6827,""KRN"",19,0)"
^XMB(3.9,76,2,48,0)="19"
^XMB(3.9,76,2,49,0)="""BLD"",6827,""KRN"",19.1,0)"
^XMB(3.9,76,2,50,0)="19.1"
^XMB(3.9,76,2,51,0)="""BLD"",6827,""KRN"",101,0)"
^XMB(3.9,76,2,52,0)="101"
^XMB(3.9,76,2,53,0)="""BLD"",6827,""KRN"",409.61,0)"
^XMB(3.9,76,2,54,0)="409.61"
^XMB(3.9,76,2,55,0)="""BLD"",6827,""KRN"",771,0)"
^XMB(3.9,76,2,56,0)="771"
^XMB(3.9,76,2,57,0)="""BLD"",6827,""KRN"",870,0)"
^XMB(3.9,76,2,58,0)="870"
^XMB(3.9,76,2,59,0)="""BLD"",6827,""KRN"",8989.51,0)"
^XMB(3.9,76,2,60,0)="8989.51"
^XMB(3.9,76,2,61,0)="""BLD"",6827,""KRN"",8989.51,""NM"",0)"
^XMB(3.9,76,2,62,0)="^9.68A^^0"
^XMB(3.9,76,2,63,0)="""BLD"",6827,""KRN"",8989.52,0)"
^XMB(3.9,76,2,64,0)="8989.52"
^XMB(3.9,76,2,65,0)="""BLD"",6827,""KRN"",8994,0)"
^XMB(3.9,76,2,66,0)="8994"
^XMB(3.9,76,2,67,0)="""BLD"",6827,""KRN"",""B"",.4,.4)"
^XMB(3.9,76,2,68,0)=""
^XMB(3.9,76,2,69,0)="""BLD"",6827,""KRN"",""B"",.401,.401)"
^XMB(3.9,76,2,70,0)=""
^XMB(3.9,76,2,71,0)="""BLD"",6827,""KRN"",""B"",.402,.402)"
^XMB(3.9,76,2,72,0)=""
^XMB(3.9,76,2,73,0)="""BLD"",6827,""KRN"",""B"",.403,.403)"
^XMB(3.9,76,2,74,0)=""
^XMB(3.9,76,2,75,0)="""BLD"",6827,""KRN"",""B"",.5,.5)"
^XMB(3.9,76,2,76,0)=""
^XMB(3.9,76,2,77,0)="""BLD"",6827,""KRN"",""B"",.84,.84)"
^XMB(3.9,76,2,78,0)=""
^XMB(3.9,76,2,79,0)="""BLD"",6827,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,76,2,80,0)=""
^XMB(3.9,76,2,81,0)="""BLD"",6827,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,76,2,82,0)=""
^XMB(3.9,76,2,83,0)="""BLD"",6827,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,76,2,84,0)=""
^XMB(3.9,76,2,85,0)="""BLD"",6827,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,76,2,86,0)=""
^XMB(3.9,76,2,87,0)="""BLD"",6827,""KRN"",""B"",19,19)"
^XMB(3.9,76,2,88,0)=""
^XMB(3.9,76,2,89,0)="""BLD"",6827,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,76,2,90,0)=""
^XMB(3.9,76,2,91,0)="""BLD"",6827,""KRN"",""B"",101,101)"
^XMB(3.9,76,2,92,0)=""
^XMB(3.9,76,2,93,0)="""BLD"",6827,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,76,2,94,0)=""
^XMB(3.9,76,2,95,0)="""BLD"",6827,""KRN"",""B"",771,771)"
^XMB(3.9,76,2,96,0)=""
^XMB(3.9,76,2,97,0)="""BLD"",6827,""KRN"",""B"",870,870)"
^XMB(3.9,76,2,98,0)=""
^XMB(3.9,76,2,99,0)="""BLD"",6827,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,76,2,100,0)=""
^XMB(3.9,76,2,101,0)="""BLD"",6827,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,76,2,102,0)=""
^XMB(3.9,76,2,103,0)="""BLD"",6827,""KRN"",""B"",8994,8994)"
^XMB(3.9,76,2,104,0)=""
^XMB(3.9,76,2,105,0)="""BLD"",6827,""QUES"",0)"
^XMB(3.9,76,2,106,0)="^9.62^^"
^XMB(3.9,76,2,107,0)="""BLD"",6827,""REQB"",0)"
^XMB(3.9,76,2,108,0)="^9.611^1^1"
^XMB(3.9,76,2,109,0)="""BLD"",6827,""REQB"",1,0)"
^XMB(3.9,76,2,110,0)="OR*3.0*215^2"
^XMB(3.9,76,2,111,0)="""BLD"",6827,""REQB"",""B"",""OR*3.0*215"",1)"
^XMB(3.9,76,2,112,0)=""
^XMB(3.9,76,2,113,0)="""INIT"")"
^XMB(3.9,76,2,114,0)="ORY257"
^XMB(3.9,76,2,115,0)="""MBREQ"")"
^XMB(3.9,76,2,116,0)="0"
^XMB(3.9,76,2,117,0)="""PKG"",167,-1)"
^XMB(3.9,76,2,118,0)="1^1"
^XMB(3.9,76,2,119,0)="""PKG"",167,0)"
^XMB(3.9,76,2,120,0)="ORDER ENTRY/RESULTS REPORTING^OR^Order Entry/Results Reporting"
^XMB(3.9,76,2,121,0)="""PKG"",167,22,0)"
^XMB(3.9,76,2,122,0)="^9.49I^1^1"
^XMB(3.9,76,2,123,0)="""PKG"",167,22,1,0)"
^XMB(3.9,76,2,124,0)="3.0^2971217^2980417^1271"
^XMB(3.9,76,2,125,0)="""PKG"",167,22,1,""PAH"",1,0)"
^XMB(3.9,76,2,126,0)="257^3060523^33284"
^XMB(3.9,76,2,127,0)="""PKG"",167,22,1,""PAH"",1,1,0)"
^XMB(3.9,76,2,128,0)="^^1^1^3060523"
^XMB(3.9,76,2,129,0)="""PKG"",167,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,76,2,130,0)="UPDATING ORWRP TIME/OCC LIMITS ALL PARAMETER"
^XMB(3.9,76,2,131,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,76,2,132,0)="Y"
^XMB(3.9,76,2,133,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,76,2,134,0)="^D REP^XPDH"
^XMB(3.9,76,2,135,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,76,2,136,0)="Shall I write over your |FLAG| File"
^XMB(3.9,76,2,137,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,76,2,138,0)="YES"
^XMB(3.9,76,2,139,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,76,2,140,0)="D XPF1^XPDIQ"
^XMB(3.9,76,2,141,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,76,2,142,0)="Y"
^XMB(3.9,76,2,143,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,76,2,144,0)="^D DTA^XPDH"
^XMB(3.9,76,2,145,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,76,2,146,0)="Want my data |FLAG| yours"
^XMB(3.9,76,2,147,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,76,2,148,0)="YES"
^XMB(3.9,76,2,149,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,76,2,150,0)="D XPF2^XPDIQ"
^XMB(3.9,76,2,151,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,76,2,152,0)="YO"
^XMB(3.9,76,2,153,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,76,2,154,0)="^D INHIBIT^XPDH"
^XMB(3.9,76,2,155,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,76,2,156,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,76,2,157,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,76,2,158,0)="YES"
^XMB(3.9,76,2,159,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,76,2,160,0)="D XPI1^XPDIQ"
^XMB(3.9,76,2,161,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,76,2,162,0)="PO^VA(200,:EM"
^XMB(3.9,76,2,163,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,76,2,164,0)="^D MG^XPDH"
^XMB(3.9,76,2,165,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,76,2,166,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,76,2,167,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,76,2,168,0)=""
^XMB(3.9,76,2,169,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,76,2,170,0)="D XPM1^XPDIQ"
^XMB(3.9,76,2,171,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,76,2,172,0)="Y"
^XMB(3.9,76,2,173,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,76,2,174,0)="^D MENU^XPDH"
^XMB(3.9,76,2,175,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,76,2,176,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,76,2,177,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,76,2,178,0)="YES"
^XMB(3.9,76,2,179,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,76,2,180,0)="D XPO1^XPDIQ"
^XMB(3.9,76,2,181,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,76,2,182,0)="Y"
^XMB(3.9,76,2,183,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,76,2,184,0)="^D OPT^XPDH"
^XMB(3.9,76,2,185,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,76,2,186,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,76,2,187,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,76,2,188,0)="YES"
^XMB(3.9,76,2,189,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,76,2,190,0)="D XPZ1^XPDIQ"
^XMB(3.9,76,2,191,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,76,2,192,0)="Y"
^XMB(3.9,76,2,193,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,76,2,194,0)="^D RTN^XPDH"
^XMB(3.9,76,2,195,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,76,2,196,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,76,2,197,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,76,2,198,0)="NO"
^XMB(3.9,76,2,199,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,76,2,200,0)="D XPZ2^XPDIQ"
^XMB(3.9,76,2,201,0)="""RTN"")"
^XMB(3.9,76,2,202,0)="1"
^XMB(3.9,76,2,203,0)="""RTN"",""ORY257"")"
^XMB(3.9,76,2,204,0)="0^1^B148879"
^XMB(3.9,76,2,205,0)="""RTN"",""ORY257"",1,0)"
^XMB(3.9,76,2,206,0)="ORY257 ;SLC/JM -- post-install for OR*3*257; 5/19/2006"
^XMB(3.9,76,2,207,0)="""RTN"",""ORY257"",2,0)"
^XMB(3.9,76,2,208,0)=" ;;3.0;ORDER ENTRY/RESULTS REPORTING;**257**;Dec 17, 1997"
^XMB(3.9,76,2,209,0)="""RTN"",""ORY257"",3,0)"
^XMB(3.9,76,2,210,0)=" ;"
^XMB(3.9,76,2,211,0)="""RTN"",""ORY257"",4,0)"
^XMB(3.9,76,2,212,0)="SETVAL ; Reset Package level parameter value"
^XMB(3.9,76,2,213,0)="""RTN"",""ORY257"",5,0)"
^XMB(3.9,76,2,214,0)=" N ORP,ORT"
^XMB(3.9,76,2,215,0)="""RTN"",""ORY257"",6,0)"
^XMB(3.9,76,2,216,0)=" S ORP=""ORWRP TIME/OCC LIMITS ALL"",ORT=""T-7;T;10"""
^XMB(3.9,76,2,217,0)="""RTN"",""ORY257"",7,0)"
^XMB(3.9,76,2,218,0)=" D PUT^XPAR(""PKG"",ORP,1,ORT)"
^XMB(3.9,76,2,219,0)="""RTN"",""ORY257"",8,0)"
^XMB(3.9,76,2,220,0)=" Q"
^XMB(3.9,76,2,221,0)="""VER"")"
^XMB(3.9,76,2,222,0)="8.0^22.0"
^XMB(3.9,76,2,223,0)="""BLD"",6827,6)"
^XMB(3.9,76,2,224,0)="^228"
^XMB(3.9,76,2,225,0)="$END KID OR*3.0*257"
^XMB(3.9,76,6,0)="^3.911A^2^2"
^XMB(3.9,76,6,1,0)="POSTMASTER"
^XMB(3.9,76,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,76,6,"B","POSTMASTER",1)=""
^XMB(3.9,76,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,77,0)="OR-3_SEQ-229_PAT-264.KID^.5^3061008.015738^^^^K"
^XMB(3.9,77,.6)="3061008"
^XMB(3.9,77,1,0)="^3.91A^2^2"
^XMB(3.9,77,1,1,0)=".5^0^3061008.015738^^^^^^^3061008.015738"
^XMB(3.9,77,1,2,0)="1^0^3061008.024008^^^^^^^3061008.024008"
^XMB(3.9,77,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,77,1,"C",.5,1)=""
^XMB(3.9,77,1,"C",1,2)=""
^XMB(3.9,77,2,0)="^^257^257^3061008"
^XMB(3.9,77,2,1,0)="$TXT Released OR*3*264 SEQ #229"
^XMB(3.9,77,2,2,0)="Extracted from mail message"
^XMB(3.9,77,2,3,0)="$END TXT"
^XMB(3.9,77,2,4,0)="$KID OR*3.0*264"
^XMB(3.9,77,2,5,0)="**INSTALL NAME**"
^XMB(3.9,77,2,6,0)="OR*3.0*264"
^XMB(3.9,77,2,7,0)="""BLD"",6926,0)"
^XMB(3.9,77,2,8,0)="OR*3.0*264^ORDER ENTRY/RESULTS REPORTING^0^3060712^y"
^XMB(3.9,77,2,9,0)="""BLD"",6926,1,0)"
^XMB(3.9,77,2,10,0)="^^3^3^3060712^"
^XMB(3.9,77,2,11,0)="""BLD"",6926,1,1,0)"
^XMB(3.9,77,2,12,0)=" This patch fixes an incorrect Web address for activating VistaWeb from"
^XMB(3.9,77,2,13,0)="""BLD"",6926,1,2,0)"
^XMB(3.9,77,2,14,0)=" CPRS. The parameter: ORWRP VISTAWEB ADDRESS is changed to:"
^XMB(3.9,77,2,15,0)="""BLD"",6926,1,3,0)"
^XMB(3.9,77,2,16,0)="  ""https://vistaweb.med.va.gov/ToolsPage.aspx"""
^XMB(3.9,77,2,17,0)="""BLD"",6926,4,0)"
^XMB(3.9,77,2,18,0)="^9.64PA^^0"
^XMB(3.9,77,2,19,0)="""BLD"",6926,6)"
^XMB(3.9,77,2,20,0)="2^"
^XMB(3.9,77,2,21,0)="""BLD"",6926,""ABNS"",0)"
^XMB(3.9,77,2,22,0)="^9.66A^^"
^XMB(3.9,77,2,23,0)="""BLD"",6926,""ABPKG"")"
^XMB(3.9,77,2,24,0)="n^n^"
^XMB(3.9,77,2,25,0)="""BLD"",6926,""INI"")"
^XMB(3.9,77,2,26,0)="PRE^ORY264"
^XMB(3.9,77,2,27,0)="""BLD"",6926,""INID"")"
^XMB(3.9,77,2,28,0)="^^n"
^XMB(3.9,77,2,29,0)="""BLD"",6926,""INIT"")"
^XMB(3.9,77,2,30,0)=""
^XMB(3.9,77,2,31,0)="""BLD"",6926,""KRN"",0)"
^XMB(3.9,77,2,32,0)="^9.67PA^8989.52^20"
^XMB(3.9,77,2,33,0)="""BLD"",6926,""KRN"",.4,0)"
^XMB(3.9,77,2,34,0)=".4"
^XMB(3.9,77,2,35,0)="""BLD"",6926,""KRN"",.4,""NM"",0)"
^XMB(3.9,77,2,36,0)="^9.68A^^"
^XMB(3.9,77,2,37,0)="""BLD"",6926,""KRN"",.401,0)"
^XMB(3.9,77,2,38,0)=".401"
^XMB(3.9,77,2,39,0)="""BLD"",6926,""KRN"",.402,0)"
^XMB(3.9,77,2,40,0)=".402"
^XMB(3.9,77,2,41,0)="""BLD"",6926,""KRN"",.403,0)"
^XMB(3.9,77,2,42,0)=".403"
^XMB(3.9,77,2,43,0)="""BLD"",6926,""KRN"",.5,0)"
^XMB(3.9,77,2,44,0)=".5"
^XMB(3.9,77,2,45,0)="""BLD"",6926,""KRN"",.84,0)"
^XMB(3.9,77,2,46,0)=".84"
^XMB(3.9,77,2,47,0)="""BLD"",6926,""KRN"",3.6,0)"
^XMB(3.9,77,2,48,0)="3.6"
^XMB(3.9,77,2,49,0)="""BLD"",6926,""KRN"",3.8,0)"
^XMB(3.9,77,2,50,0)="3.8"
^XMB(3.9,77,2,51,0)="""BLD"",6926,""KRN"",9.2,0)"
^XMB(3.9,77,2,52,0)="9.2"
^XMB(3.9,77,2,53,0)="""BLD"",6926,""KRN"",9.8,0)"
^XMB(3.9,77,2,54,0)="9.8"
^XMB(3.9,77,2,55,0)="""BLD"",6926,""KRN"",9.8,""NM"",0)"
^XMB(3.9,77,2,56,0)="^9.68A^^0"
^XMB(3.9,77,2,57,0)="""BLD"",6926,""KRN"",19,0)"
^XMB(3.9,77,2,58,0)="19"
^XMB(3.9,77,2,59,0)="""BLD"",6926,""KRN"",19,""NM"",0)"
^XMB(3.9,77,2,60,0)="^9.68A^^"
^XMB(3.9,77,2,61,0)="""BLD"",6926,""KRN"",19.1,0)"
^XMB(3.9,77,2,62,0)="19.1"
^XMB(3.9,77,2,63,0)="""BLD"",6926,""KRN"",19.1,""NM"",0)"
^XMB(3.9,77,2,64,0)="^9.68A^^"
^XMB(3.9,77,2,65,0)="""BLD"",6926,""KRN"",101,0)"
^XMB(3.9,77,2,66,0)="101"
^XMB(3.9,77,2,67,0)="""BLD"",6926,""KRN"",101,""NM"",0)"
^XMB(3.9,77,2,68,0)="^9.68A^^0"
^XMB(3.9,77,2,69,0)="""BLD"",6926,""KRN"",409.61,0)"
^XMB(3.9,77,2,70,0)="409.61"
^XMB(3.9,77,2,71,0)="""BLD"",6926,""KRN"",409.61,""NM"",0)"
^XMB(3.9,77,2,72,0)="^9.68A^^"
^XMB(3.9,77,2,73,0)="""BLD"",6926,""KRN"",771,0)"
^XMB(3.9,77,2,74,0)="771"
^XMB(3.9,77,2,75,0)="""BLD"",6926,""KRN"",869.2,0)"
^XMB(3.9,77,2,76,0)="869.2"
^XMB(3.9,77,2,77,0)="""BLD"",6926,""KRN"",870,0)"
^XMB(3.9,77,2,78,0)="870"
^XMB(3.9,77,2,79,0)="""BLD"",6926,""KRN"",8989.51,0)"
^XMB(3.9,77,2,80,0)="8989.51"
^XMB(3.9,77,2,81,0)="""BLD"",6926,""KRN"",8989.52,0)"
^XMB(3.9,77,2,82,0)="8989.52"
^XMB(3.9,77,2,83,0)="""BLD"",6926,""KRN"",8994,0)"
^XMB(3.9,77,2,84,0)="8994"
^XMB(3.9,77,2,85,0)="""BLD"",6926,""KRN"",""B"",.4,.4)"
^XMB(3.9,77,2,86,0)=""
^XMB(3.9,77,2,87,0)="""BLD"",6926,""KRN"",""B"",.401,.401)"
^XMB(3.9,77,2,88,0)=""
^XMB(3.9,77,2,89,0)="""BLD"",6926,""KRN"",""B"",.402,.402)"
^XMB(3.9,77,2,90,0)=""
^XMB(3.9,77,2,91,0)="""BLD"",6926,""KRN"",""B"",.403,.403)"
^XMB(3.9,77,2,92,0)=""
^XMB(3.9,77,2,93,0)="""BLD"",6926,""KRN"",""B"",.5,.5)"
^XMB(3.9,77,2,94,0)=""
^XMB(3.9,77,2,95,0)="""BLD"",6926,""KRN"",""B"",.84,.84)"
^XMB(3.9,77,2,96,0)=""
^XMB(3.9,77,2,97,0)="""BLD"",6926,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,77,2,98,0)=""
^XMB(3.9,77,2,99,0)="""BLD"",6926,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,77,2,100,0)=""
^XMB(3.9,77,2,101,0)="""BLD"",6926,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,77,2,102,0)=""
^XMB(3.9,77,2,103,0)="""BLD"",6926,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,77,2,104,0)=""
^XMB(3.9,77,2,105,0)="""BLD"",6926,""KRN"",""B"",19,19)"
^XMB(3.9,77,2,106,0)=""
^XMB(3.9,77,2,107,0)="""BLD"",6926,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,77,2,108,0)=""
^XMB(3.9,77,2,109,0)="""BLD"",6926,""KRN"",""B"",101,101)"
^XMB(3.9,77,2,110,0)=""
^XMB(3.9,77,2,111,0)="""BLD"",6926,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,77,2,112,0)=""
^XMB(3.9,77,2,113,0)="""BLD"",6926,""KRN"",""B"",771,771)"
^XMB(3.9,77,2,114,0)=""
^XMB(3.9,77,2,115,0)="""BLD"",6926,""KRN"",""B"",869.2,869.2)"
^XMB(3.9,77,2,116,0)=""
^XMB(3.9,77,2,117,0)="""BLD"",6926,""KRN"",""B"",870,870)"
^XMB(3.9,77,2,118,0)=""
^XMB(3.9,77,2,119,0)="""BLD"",6926,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,77,2,120,0)=""
^XMB(3.9,77,2,121,0)="""BLD"",6926,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,77,2,122,0)=""
^XMB(3.9,77,2,123,0)="""BLD"",6926,""KRN"",""B"",8994,8994)"
^XMB(3.9,77,2,124,0)=""
^XMB(3.9,77,2,125,0)="""BLD"",6926,""QUES"",0)"
^XMB(3.9,77,2,126,0)="^9.62^^"
^XMB(3.9,77,2,127,0)="""BLD"",6926,""REQB"",0)"
^XMB(3.9,77,2,128,0)="^9.611^2^2"
^XMB(3.9,77,2,129,0)="""BLD"",6926,""REQB"",1,0)"
^XMB(3.9,77,2,130,0)="OR*3.0*160^2"
^XMB(3.9,77,2,131,0)="""BLD"",6926,""REQB"",2,0)"
^XMB(3.9,77,2,132,0)="OR*3.0*215^2"
^XMB(3.9,77,2,133,0)="""BLD"",6926,""REQB"",""B"",""OR*3.0*160"",1)"
^XMB(3.9,77,2,134,0)=""
^XMB(3.9,77,2,135,0)="""BLD"",6926,""REQB"",""B"",""OR*3.0*215"",2)"
^XMB(3.9,77,2,136,0)=""
^XMB(3.9,77,2,137,0)="""INI"")"
^XMB(3.9,77,2,138,0)="PRE^ORY264"
^XMB(3.9,77,2,139,0)="""MBREQ"")"
^XMB(3.9,77,2,140,0)="0"
^XMB(3.9,77,2,141,0)="""PKG"",167,-1)"
^XMB(3.9,77,2,142,0)="1^1"
^XMB(3.9,77,2,143,0)="""PKG"",167,0)"
^XMB(3.9,77,2,144,0)="ORDER ENTRY/RESULTS REPORTING^OR^Order Entry/Results Reporting"
^XMB(3.9,77,2,145,0)="""PKG"",167,20,0)"
^XMB(3.9,77,2,146,0)="^9.402P^^"
^XMB(3.9,77,2,147,0)="""PKG"",167,22,0)"
^XMB(3.9,77,2,148,0)="^9.49I^1^1"
^XMB(3.9,77,2,149,0)="""PKG"",167,22,1,0)"
^XMB(3.9,77,2,150,0)="3.0^2971217^2980417^1271"
^XMB(3.9,77,2,151,0)="""PKG"",167,22,1,""PAH"",1,0)"
^XMB(3.9,77,2,152,0)="264^3060712^33245"
^XMB(3.9,77,2,153,0)="""PKG"",167,22,1,""PAH"",1,1,0)"
^XMB(3.9,77,2,154,0)="^^3^3^3060712"
^XMB(3.9,77,2,155,0)="""PKG"",167,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,77,2,156,0)=" This patch fixes an incorrect Web address for activating VistaWeb from"
^XMB(3.9,77,2,157,0)="""PKG"",167,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,77,2,158,0)=" CPRS. The parameter: ORWRP VISTAWEB ADDRESS is changed to:"
^XMB(3.9,77,2,159,0)="""PKG"",167,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,77,2,160,0)="  ""https://vistaweb.med.va.gov/ToolsPage.aspx"""
^XMB(3.9,77,2,161,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,77,2,162,0)="Y"
^XMB(3.9,77,2,163,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,77,2,164,0)="^D REP^XPDH"
^XMB(3.9,77,2,165,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,77,2,166,0)="Shall I write over your |FLAG| File"
^XMB(3.9,77,2,167,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,77,2,168,0)="YES"
^XMB(3.9,77,2,169,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,77,2,170,0)="D XPF1^XPDIQ"
^XMB(3.9,77,2,171,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,77,2,172,0)="Y"
^XMB(3.9,77,2,173,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,77,2,174,0)="^D DTA^XPDH"
^XMB(3.9,77,2,175,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,77,2,176,0)="Want my data |FLAG| yours"
^XMB(3.9,77,2,177,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,77,2,178,0)="YES"
^XMB(3.9,77,2,179,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,77,2,180,0)="D XPF2^XPDIQ"
^XMB(3.9,77,2,181,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,77,2,182,0)="YO"
^XMB(3.9,77,2,183,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,77,2,184,0)="^D INHIBIT^XPDH"
^XMB(3.9,77,2,185,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,77,2,186,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,77,2,187,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,77,2,188,0)="YES"
^XMB(3.9,77,2,189,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,77,2,190,0)="D XPI1^XPDIQ"
^XMB(3.9,77,2,191,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,77,2,192,0)="PO^VA(200,:EM"
^XMB(3.9,77,2,193,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,77,2,194,0)="^D MG^XPDH"
^XMB(3.9,77,2,195,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,77,2,196,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,77,2,197,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,77,2,198,0)=""
^XMB(3.9,77,2,199,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,77,2,200,0)="D XPM1^XPDIQ"
^XMB(3.9,77,2,201,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,77,2,202,0)="Y"
^XMB(3.9,77,2,203,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,77,2,204,0)="^D MENU^XPDH"
^XMB(3.9,77,2,205,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,77,2,206,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,77,2,207,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,77,2,208,0)="YES"
^XMB(3.9,77,2,209,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,77,2,210,0)="D XPO1^XPDIQ"
^XMB(3.9,77,2,211,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,77,2,212,0)="Y"
^XMB(3.9,77,2,213,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,77,2,214,0)="^D OPT^XPDH"
^XMB(3.9,77,2,215,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,77,2,216,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,77,2,217,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,77,2,218,0)="YES"
^XMB(3.9,77,2,219,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,77,2,220,0)="D XPZ1^XPDIQ"
^XMB(3.9,77,2,221,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,77,2,222,0)="Y"
^XMB(3.9,77,2,223,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,77,2,224,0)="^D RTN^XPDH"
^XMB(3.9,77,2,225,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,77,2,226,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,77,2,227,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,77,2,228,0)="NO"
^XMB(3.9,77,2,229,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,77,2,230,0)="D XPZ2^XPDIQ"
^XMB(3.9,77,2,231,0)="""RTN"")"
^XMB(3.9,77,2,232,0)="1"
^XMB(3.9,77,2,233,0)="""RTN"",""ORY264"")"
^XMB(3.9,77,2,234,0)="0^^B581794"
^XMB(3.9,77,2,235,0)="""RTN"",""ORY264"",1,0)"
^XMB(3.9,77,2,236,0)="ORY264 ;;SLCOIFO - Pre and Post-init for patch OR*3*264 ;7/11/06  13:20"
^XMB(3.9,77,2,237,0)="""RTN"",""ORY264"",2,0)"
^XMB(3.9,77,2,238,0)=" ;;3.0;ORDER ENTRY/RESULTS REPORTING;**264**;Dec 17, 1997"
^XMB(3.9,77,2,239,0)="""RTN"",""ORY264"",3,0)"
^XMB(3.9,77,2,240,0)="PRE ; Pre-init for patch 264"
^XMB(3.9,77,2,241,0)="""RTN"",""ORY264"",4,0)"
^XMB(3.9,77,2,242,0)=" D PARVAL"
^XMB(3.9,77,2,243,0)="""RTN"",""ORY264"",5,0)"
^XMB(3.9,77,2,244,0)=" Q"
^XMB(3.9,77,2,245,0)="""RTN"",""ORY264"",6,0)"
^XMB(3.9,77,2,246,0)="PARVAL ; Set parameter values"
^XMB(3.9,77,2,247,0)="""RTN"",""ORY264"",7,0)"
^XMB(3.9,77,2,248,0)=" ; Set VistaWeb Parameter"
^XMB(3.9,77,2,249,0)="""RTN"",""ORY264"",8,0)"
^XMB(3.9,77,2,250,0)=" D EN^XPAR(""PKG"",""ORWRP VISTAWEB ADDRESS"",1,""https://vistaweb.med.va.gov/ToolsPage.aspx"")"
^XMB(3.9,77,2,251,0)="""RTN"",""ORY264"",9,0)"
^XMB(3.9,77,2,252,0)=" Q"
^XMB(3.9,77,2,253,0)="""VER"")"
^XMB(3.9,77,2,254,0)="8.0^22.0"
^XMB(3.9,77,2,255,0)="""BLD"",6926,6)"
^XMB(3.9,77,2,256,0)="^229"
^XMB(3.9,77,2,257,0)="$END KID OR*3.0*264"
^XMB(3.9,77,6,0)="^3.911A^2^2"
^XMB(3.9,77,6,1,0)="POSTMASTER"
^XMB(3.9,77,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,77,6,"B","POSTMASTER",1)=""
^XMB(3.9,77,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,78,0)="OR-3_SEQ-230_PAT-253.KID^.5^3061008.015738^^^^K"
^XMB(3.9,78,.6)="3061008"
^XMB(3.9,78,1,0)="^3.91A^2^2"
^XMB(3.9,78,1,1,0)=".5^0^3061008.015738^^^^^^^3061008.015738"
^XMB(3.9,78,1,2,0)="1^0^3061008.024012^^^^^^^3061008.024012"
^XMB(3.9,78,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,78,1,"C",.5,1)=""
^XMB(3.9,78,1,"C",1,2)=""
^XMB(3.9,78,2,0)="^^1837^1837^3061008"
^XMB(3.9,78,2,1,0)="$TXT Released OR*3*253 SEQ #230"
^XMB(3.9,78,2,2,0)="Extracted from mail message"
^XMB(3.9,78,2,3,0)="$END TXT"
^XMB(3.9,78,2,4,0)="$KID OR*3.0*253"
^XMB(3.9,78,2,5,0)="**INSTALL NAME**"
^XMB(3.9,78,2,6,0)="OR*3.0*253"
^XMB(3.9,78,2,7,0)="""BLD"",6791,0)"
^XMB(3.9,78,2,8,0)="OR*3.0*253^ORDER ENTRY/RESULTS REPORTING^0^3060607^y"
^XMB(3.9,78,2,9,0)="""BLD"",6791,1,0)"
^XMB(3.9,78,2,10,0)="^^3^3^3060607^"
^XMB(3.9,78,2,11,0)="""BLD"",6791,1,1,0)"
^XMB(3.9,78,2,12,0)="FIX UNSIGNED ORDERS NOT GENERATING ALERTS."
^XMB(3.9,78,2,13,0)="""BLD"",6791,1,2,0)"
^XMB(3.9,78,2,14,0)="MORE USEFUL NUMERIC PROMPT ERROR MESSAGES"
^XMB(3.9,78,2,15,0)="""BLD"",6791,1,3,0)"
^XMB(3.9,78,2,16,0)="FIX RESTRICTED PATIENT LIST SCROLLING BUG."
^XMB(3.9,78,2,17,0)="""BLD"",6791,4,0)"
^XMB(3.9,78,2,18,0)="^9.64PA^^"
^XMB(3.9,78,2,19,0)="""BLD"",6791,""INI"")"
^XMB(3.9,78,2,20,0)="PRECHECK^ORMTIMST"
^XMB(3.9,78,2,21,0)="""BLD"",6791,""INID"")"
^XMB(3.9,78,2,22,0)="n^^n"
^XMB(3.9,78,2,23,0)="""BLD"",6791,""INIT"")"
^XMB(3.9,78,2,24,0)=""
^XMB(3.9,78,2,25,0)="""BLD"",6791,""KRN"",0)"
^XMB(3.9,78,2,26,0)="^9.67PA^8989.52^19"
^XMB(3.9,78,2,27,0)="""BLD"",6791,""KRN"",.4,0)"
^XMB(3.9,78,2,28,0)=".4"
^XMB(3.9,78,2,29,0)="""BLD"",6791,""KRN"",.401,0)"
^XMB(3.9,78,2,30,0)=".401"
^XMB(3.9,78,2,31,0)="""BLD"",6791,""KRN"",.402,0)"
^XMB(3.9,78,2,32,0)=".402"
^XMB(3.9,78,2,33,0)="""BLD"",6791,""KRN"",.403,0)"
^XMB(3.9,78,2,34,0)=".403"
^XMB(3.9,78,2,35,0)="""BLD"",6791,""KRN"",.5,0)"
^XMB(3.9,78,2,36,0)=".5"
^XMB(3.9,78,2,37,0)="""BLD"",6791,""KRN"",.84,0)"
^XMB(3.9,78,2,38,0)=".84"
^XMB(3.9,78,2,39,0)="""BLD"",6791,""KRN"",3.6,0)"
^XMB(3.9,78,2,40,0)="3.6"
^XMB(3.9,78,2,41,0)="""BLD"",6791,""KRN"",3.8,0)"
^XMB(3.9,78,2,42,0)="3.8"
^XMB(3.9,78,2,43,0)="""BLD"",6791,""KRN"",9.2,0)"
^XMB(3.9,78,2,44,0)="9.2"
^XMB(3.9,78,2,45,0)="""BLD"",6791,""KRN"",9.8,0)"
^XMB(3.9,78,2,46,0)="9.8"
^XMB(3.9,78,2,47,0)="""BLD"",6791,""KRN"",9.8,""NM"",0)"
^XMB(3.9,78,2,48,0)="^9.68A^8^6"
^XMB(3.9,78,2,49,0)="""BLD"",6791,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,78,2,50,0)="ORMTIME^^0^9171622"
^XMB(3.9,78,2,51,0)="""BLD"",6791,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,78,2,52,0)="ORQPTQ11^^0^56815266"
^XMB(3.9,78,2,53,0)="""BLD"",6791,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,78,2,54,0)="ORWDOR^^0^8459671"
^XMB(3.9,78,2,55,0)="""BLD"",6791,""KRN"",9.8,""NM"",6,0)"
^XMB(3.9,78,2,56,0)="ORMTIM02^^0^16808061"
^XMB(3.9,78,2,57,0)="""BLD"",6791,""KRN"",9.8,""NM"",7,0)"
^XMB(3.9,78,2,58,0)="ORB3^^0^88202399"
^XMB(3.9,78,2,59,0)="""BLD"",6791,""KRN"",9.8,""NM"",8,0)"
^XMB(3.9,78,2,60,0)="ORMTIMST^^0^17732442"
^XMB(3.9,78,2,61,0)="""BLD"",6791,""KRN"",9.8,""NM"",""B"",""ORB3"",7)"
^XMB(3.9,78,2,62,0)=""
^XMB(3.9,78,2,63,0)="""BLD"",6791,""KRN"",9.8,""NM"",""B"",""ORMTIM02"",6)"
^XMB(3.9,78,2,64,0)=""
^XMB(3.9,78,2,65,0)="""BLD"",6791,""KRN"",9.8,""NM"",""B"",""ORMTIME"",1)"
^XMB(3.9,78,2,66,0)=""
^XMB(3.9,78,2,67,0)="""BLD"",6791,""KRN"",9.8,""NM"",""B"",""ORMTIMST"",8)"
^XMB(3.9,78,2,68,0)=""
^XMB(3.9,78,2,69,0)="""BLD"",6791,""KRN"",9.8,""NM"",""B"",""ORQPTQ11"",2)"
^XMB(3.9,78,2,70,0)=""
^XMB(3.9,78,2,71,0)="""BLD"",6791,""KRN"",9.8,""NM"",""B"",""ORWDOR"",3)"
^XMB(3.9,78,2,72,0)=""
^XMB(3.9,78,2,73,0)="""BLD"",6791,""KRN"",19,0)"
^XMB(3.9,78,2,74,0)="19"
^XMB(3.9,78,2,75,0)="""BLD"",6791,""KRN"",19,""NM"",0)"
^XMB(3.9,78,2,76,0)="^9.68A^^"
^XMB(3.9,78,2,77,0)="""BLD"",6791,""KRN"",19.1,0)"
^XMB(3.9,78,2,78,0)="19.1"
^XMB(3.9,78,2,79,0)="""BLD"",6791,""KRN"",101,0)"
^XMB(3.9,78,2,80,0)="101"
^XMB(3.9,78,2,81,0)="""BLD"",6791,""KRN"",409.61,0)"
^XMB(3.9,78,2,82,0)="409.61"
^XMB(3.9,78,2,83,0)="""BLD"",6791,""KRN"",771,0)"
^XMB(3.9,78,2,84,0)="771"
^XMB(3.9,78,2,85,0)="""BLD"",6791,""KRN"",870,0)"
^XMB(3.9,78,2,86,0)="870"
^XMB(3.9,78,2,87,0)="""BLD"",6791,""KRN"",8989.51,0)"
^XMB(3.9,78,2,88,0)="8989.51"
^XMB(3.9,78,2,89,0)="""BLD"",6791,""KRN"",8989.52,0)"
^XMB(3.9,78,2,90,0)="8989.52"
^XMB(3.9,78,2,91,0)="""BLD"",6791,""KRN"",8994,0)"
^XMB(3.9,78,2,92,0)="8994"
^XMB(3.9,78,2,93,0)="""BLD"",6791,""KRN"",""B"",.4,.4)"
^XMB(3.9,78,2,94,0)=""
^XMB(3.9,78,2,95,0)="""BLD"",6791,""KRN"",""B"",.401,.401)"
^XMB(3.9,78,2,96,0)=""
^XMB(3.9,78,2,97,0)="""BLD"",6791,""KRN"",""B"",.402,.402)"
^XMB(3.9,78,2,98,0)=""
^XMB(3.9,78,2,99,0)="""BLD"",6791,""KRN"",""B"",.403,.403)"
^XMB(3.9,78,2,100,0)=""
^XMB(3.9,78,2,101,0)="""BLD"",6791,""KRN"",""B"",.5,.5)"
^XMB(3.9,78,2,102,0)=""
^XMB(3.9,78,2,103,0)="""BLD"",6791,""KRN"",""B"",.84,.84)"
^XMB(3.9,78,2,104,0)=""
^XMB(3.9,78,2,105,0)="""BLD"",6791,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,78,2,106,0)=""
^XMB(3.9,78,2,107,0)="""BLD"",6791,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,78,2,108,0)=""
^XMB(3.9,78,2,109,0)="""BLD"",6791,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,78,2,110,0)=""
^XMB(3.9,78,2,111,0)="""BLD"",6791,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,78,2,112,0)=""
^XMB(3.9,78,2,113,0)="""BLD"",6791,""KRN"",""B"",19,19)"
^XMB(3.9,78,2,114,0)=""
^XMB(3.9,78,2,115,0)="""BLD"",6791,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,78,2,116,0)=""
^XMB(3.9,78,2,117,0)="""BLD"",6791,""KRN"",""B"",101,101)"
^XMB(3.9,78,2,118,0)=""
^XMB(3.9,78,2,119,0)="""BLD"",6791,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,78,2,120,0)=""
^XMB(3.9,78,2,121,0)="""BLD"",6791,""KRN"",""B"",771,771)"
^XMB(3.9,78,2,122,0)=""
^XMB(3.9,78,2,123,0)="""BLD"",6791,""KRN"",""B"",870,870)"
^XMB(3.9,78,2,124,0)=""
^XMB(3.9,78,2,125,0)="""BLD"",6791,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,78,2,126,0)=""
^XMB(3.9,78,2,127,0)="""BLD"",6791,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,78,2,128,0)=""
^XMB(3.9,78,2,129,0)="""BLD"",6791,""KRN"",""B"",8994,8994)"
^XMB(3.9,78,2,130,0)=""
^XMB(3.9,78,2,131,0)="""BLD"",6791,""PRE"")"
^XMB(3.9,78,2,132,0)="ORMTIMST"
^XMB(3.9,78,2,133,0)="""BLD"",6791,""QUES"",0)"
^XMB(3.9,78,2,134,0)="^9.62^^"
^XMB(3.9,78,2,135,0)="""BLD"",6791,""REQB"",0)"
^XMB(3.9,78,2,136,0)="^9.611^1^1"
^XMB(3.9,78,2,137,0)="""BLD"",6791,""REQB"",1,0)"
^XMB(3.9,78,2,138,0)="OR*3.0*220^2"
^XMB(3.9,78,2,139,0)="""BLD"",6791,""REQB"",""B"",""OR*3.0*220"",1)"
^XMB(3.9,78,2,140,0)=""
^XMB(3.9,78,2,141,0)="""INI"")"
^XMB(3.9,78,2,142,0)="PRECHECK^ORMTIMST"
^XMB(3.9,78,2,143,0)="""MBREQ"")"
^XMB(3.9,78,2,144,0)="0"
^XMB(3.9,78,2,145,0)="""PKG"",167,-1)"
^XMB(3.9,78,2,146,0)="1^1"
^XMB(3.9,78,2,147,0)="""PKG"",167,0)"
^XMB(3.9,78,2,148,0)="ORDER ENTRY/RESULTS REPORTING^OR^Order Entry/Results Reporting"
^XMB(3.9,78,2,149,0)="""PKG"",167,22,0)"
^XMB(3.9,78,2,150,0)="^9.49I^1^1"
^XMB(3.9,78,2,151,0)="""PKG"",167,22,1,0)"
^XMB(3.9,78,2,152,0)="3.0^2971217^2980417^1271"
^XMB(3.9,78,2,153,0)="""PKG"",167,22,1,""PAH"",1,0)"
^XMB(3.9,78,2,154,0)="253^3060607"
^XMB(3.9,78,2,155,0)="""PKG"",167,22,1,""PAH"",1,1,0)"
^XMB(3.9,78,2,156,0)="^^3^3^3060607"
^XMB(3.9,78,2,157,0)="""PKG"",167,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,78,2,158,0)="FIX UNSIGNED ORDERS NOT GENERATING ALERTS."
^XMB(3.9,78,2,159,0)="""PKG"",167,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,78,2,160,0)="MORE USEFUL NUMERIC PROMPT ERROR MESSAGES"
^XMB(3.9,78,2,161,0)="""PKG"",167,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,78,2,162,0)="FIX RESTRICTED PATIENT LIST SCROLLING BUG."
^XMB(3.9,78,2,163,0)="""PRE"")"
^XMB(3.9,78,2,164,0)="ORMTIMST"
^XMB(3.9,78,2,165,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,78,2,166,0)="Y"
^XMB(3.9,78,2,167,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,78,2,168,0)="^D REP^XPDH"
^XMB(3.9,78,2,169,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,78,2,170,0)="Shall I write over your |FLAG| File"
^XMB(3.9,78,2,171,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,78,2,172,0)="YES"
^XMB(3.9,78,2,173,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,78,2,174,0)="D XPF1^XPDIQ"
^XMB(3.9,78,2,175,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,78,2,176,0)="Y"
^XMB(3.9,78,2,177,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,78,2,178,0)="^D DTA^XPDH"
^XMB(3.9,78,2,179,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,78,2,180,0)="Want my data |FLAG| yours"
^XMB(3.9,78,2,181,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,78,2,182,0)="YES"
^XMB(3.9,78,2,183,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,78,2,184,0)="D XPF2^XPDIQ"
^XMB(3.9,78,2,185,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,78,2,186,0)="YO"
^XMB(3.9,78,2,187,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,78,2,188,0)="^D INHIBIT^XPDH"
^XMB(3.9,78,2,189,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,78,2,190,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,78,2,191,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,78,2,192,0)="YES"
^XMB(3.9,78,2,193,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,78,2,194,0)="D XPI1^XPDIQ"
^XMB(3.9,78,2,195,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,78,2,196,0)="PO^VA(200,:EM"
^XMB(3.9,78,2,197,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,78,2,198,0)="^D MG^XPDH"
^XMB(3.9,78,2,199,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,78,2,200,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,78,2,201,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,78,2,202,0)=""
^XMB(3.9,78,2,203,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,78,2,204,0)="D XPM1^XPDIQ"
^XMB(3.9,78,2,205,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,78,2,206,0)="Y"
^XMB(3.9,78,2,207,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,78,2,208,0)="^D MENU^XPDH"
^XMB(3.9,78,2,209,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,78,2,210,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,78,2,211,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,78,2,212,0)="YES"
^XMB(3.9,78,2,213,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,78,2,214,0)="D XPO1^XPDIQ"
^XMB(3.9,78,2,215,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,78,2,216,0)="Y"
^XMB(3.9,78,2,217,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,78,2,218,0)="^D OPT^XPDH"
^XMB(3.9,78,2,219,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,78,2,220,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,78,2,221,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,78,2,222,0)="YES"
^XMB(3.9,78,2,223,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,78,2,224,0)="D XPZ1^XPDIQ"
^XMB(3.9,78,2,225,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,78,2,226,0)="Y"
^XMB(3.9,78,2,227,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,78,2,228,0)="^D RTN^XPDH"
^XMB(3.9,78,2,229,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,78,2,230,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,78,2,231,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,78,2,232,0)="NO"
^XMB(3.9,78,2,233,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,78,2,234,0)="D XPZ2^XPDIQ"
^XMB(3.9,78,2,235,0)="""RTN"")"
^XMB(3.9,78,2,236,0)="6"
^XMB(3.9,78,2,237,0)="""RTN"",""ORB3"")"
^XMB(3.9,78,2,238,0)="0^7^B88202399^B87608247"
^XMB(3.9,78,2,239,0)="""RTN"",""ORB3"",1,0)"
^XMB(3.9,78,2,240,0)="ORB3 ; slc/CLA - Main routine for OE/RR 3 notifications ;6/6/01  10:46 [8/16/05 5:33am]"
^XMB(3.9,78,2,241,0)="""RTN"",""ORB3"",2,0)"
^XMB(3.9,78,2,242,0)=" ;;3.0;ORDER ENTRY/RESULTS REPORTING;**31,74,91,105,139,190,220,253**;Dec 17, 1997"
^XMB(3.9,78,2,243,0)="""RTN"",""ORB3"",3,0)"
^XMB(3.9,78,2,244,0)="EN(ORN,ORBDFN,ORNUM,ORBADUZ,ORBPMSG,ORBPDATA) ;"
^XMB(3.9,78,2,245,0)="""RTN"",""ORB3"",4,0)"
^XMB(3.9,78,2,246,0)=" ;"
^XMB(3.9,78,2,247,0)="""RTN"",""ORB3"",5,0)"
^XMB(3.9,78,2,248,0)=" N ORBENT"
^XMB(3.9,78,2,249,0)="""RTN"",""ORB3"",6,0)"
^XMB(3.9,78,2,250,0)=" S ORBENT=$$ENTITY^ORB31(ORNUM)"
^XMB(3.9,78,2,251,0)="""RTN"",""ORB3"",7,0)"
^XMB(3.9,78,2,252,0)=" ;"
^XMB(3.9,78,2,253,0)="""RTN"",""ORB3"",8,0)"
^XMB(3.9,78,2,254,0)=" Q:$$GET^XPAR(ORBENT,""ORB SYSTEM ENABLE/DISABLE"",1,""I"")=""D"""
^XMB(3.9,78,2,255,0)="""RTN"",""ORB3"",9,0)"
^XMB(3.9,78,2,256,0)=" Q:'$L($G(^ORD(100.9,ORN,0)))"
^XMB(3.9,78,2,257,0)="""RTN"",""ORB3"",10,0)"
^XMB(3.9,78,2,258,0)=" Q:+$$ONOFF^ORB3FN(ORN)=0"
^XMB(3.9,78,2,259,0)="""RTN"",""ORB3"",11,0)"
^XMB(3.9,78,2,260,0)=" ;"
^XMB(3.9,78,2,261,0)="""RTN"",""ORB3"",12,0)"
^XMB(3.9,78,2,262,0)=" S ORBPMSG=$E($G(ORBPMSG),1,51)"
^XMB(3.9,78,2,263,0)="""RTN"",""ORB3"",13,0)"
^XMB(3.9,78,2,264,0)=" ;"
^XMB(3.9,78,2,265,0)="""RTN"",""ORB3"",14,0)"
^XMB(3.9,78,2,266,0)=" ;if msg from notif file or oc notif (#54), quit if dup w/in past 1 min:"
^XMB(3.9,78,2,267,0)="""RTN"",""ORB3"",15,0)"
^XMB(3.9,78,2,268,0)=" N ORBDUP,ORBN"
^XMB(3.9,78,2,269,0)="""RTN"",""ORB3"",16,0)"
^XMB(3.9,78,2,270,0)=" S ORBN=^ORD(100.9,ORN,0)"
^XMB(3.9,78,2,271,0)="""RTN"",""ORB3"",17,0)"
^XMB(3.9,78,2,272,0)=" I ($P(ORBN,""^"",4)=""NOT"")!(ORN=54) D"
^XMB(3.9,78,2,273,0)="""RTN"",""ORB3"",18,0)"
^XMB(3.9,78,2,274,0)=" .S ORBDUP=$$DUP^ORB31(ORN,ORBDFN,ORBPMSG,ORNUM)"
^XMB(3.9,78,2,275,0)="""RTN"",""ORB3"",19,0)"
^XMB(3.9,78,2,276,0)=" Q:+$G(ORBDUP)=1"
^XMB(3.9,78,2,277,0)="""RTN"",""ORB3"",20,0)"
^XMB(3.9,78,2,278,0)=" ;"
^XMB(3.9,78,2,279,0)="""RTN"",""ORB3"",21,0)"
^XMB(3.9,78,2,280,0)=" N ORBDESC"
^XMB(3.9,78,2,281,0)="""RTN"",""ORB3"",22,0)"
^XMB(3.9,78,2,282,0)=" S ORBDESC="" Send Alert Notification (""_(+ORN)_"") ""_$P($G(^ORD(100.9,+ORN,0)),U,1)_""  """
^XMB(3.9,78,2,283,0)="""RTN"",""ORB3"",23,0)"
^XMB(3.9,78,2,284,0)=" ;"
^XMB(3.9,78,2,285,0)="""RTN"",""ORB3"",24,0)"
^XMB(3.9,78,2,286,0)=" D QUEUE^ORB31(ORN,ORBDFN,$G(ORNUM),.ORBADUZ,$G(ORBPMSG),$G(ORBPDATA),$H,ORBDESC,$G(DGPMA))"
^XMB(3.9,78,2,287,0)="""RTN"",""ORB3"",25,0)"
^XMB(3.9,78,2,288,0)=" Q"
^XMB(3.9,78,2,289,0)="""RTN"",""ORB3"",26,0)"
^XMB(3.9,78,2,290,0)="ZTSK ;"
^XMB(3.9,78,2,291,0)="""RTN"",""ORB3"",27,0)"
^XMB(3.9,78,2,292,0)=" D START"
^XMB(3.9,78,2,293,0)="""RTN"",""ORB3"",28,0)"
^XMB(3.9,78,2,294,0)=" S ZTREQ=""@"""
^XMB(3.9,78,2,295,0)="""RTN"",""ORB3"",29,0)"
^XMB(3.9,78,2,296,0)=" Q"
^XMB(3.9,78,2,297,0)="""RTN"",""ORB3"",30,0)"
^XMB(3.9,78,2,298,0)="UTL(ORBU,ORN,ORBDFN,ORNUM,ORBADUZ,ORBPMSG,ORBPDATA) ;"
^XMB(3.9,78,2,299,0)="""RTN"",""ORB3"",31,0)"
^XMB(3.9,78,2,300,0)=" Q:$G(ORBU)'=1"
^XMB(3.9,78,2,301,0)="""RTN"",""ORB3"",32,0)"
^XMB(3.9,78,2,302,0)="START Q:$G(ORN)=""""!($G(ORBDFN)="""")"
^XMB(3.9,78,2,303,0)="""RTN"",""ORB3"",33,0)"
^XMB(3.9,78,2,304,0)=" Q:'$L($G(^ORD(100.9,ORN,0)))"
^XMB(3.9,78,2,305,0)="""RTN"",""ORB3"",34,0)"
^XMB(3.9,78,2,306,0)=" N ORBNOW,ORBID,ORBLOCK,ORBDESC"
^XMB(3.9,78,2,307,0)="""RTN"",""ORB3"",35,0)"
^XMB(3.9,78,2,308,0)=" S ORBNOW=$$NOW^XLFDT"
^XMB(3.9,78,2,309,0)="""RTN"",""ORB3"",36,0)"
^XMB(3.9,78,2,310,0)=" S ORBLOCK=0"
^XMB(3.9,78,2,311,0)="""RTN"",""ORB3"",37,0)"
^XMB(3.9,78,2,312,0)=" ;"
^XMB(3.9,78,2,313,0)="""RTN"",""ORB3"",38,0)"
^XMB(3.9,78,2,314,0)=" ;lock to prevent concurrent processing by other resource slots:"
^XMB(3.9,78,2,315,0)="""RTN"",""ORB3"",39,0)"
^XMB(3.9,78,2,316,0)=" I '$D(ORBU) D"
^XMB(3.9,78,2,317,0)="""RTN"",""ORB3"",40,0)"
^XMB(3.9,78,2,318,0)=" .S ^XTMP(""ORBLOCK"",0)=$$FMADD^XLFDT(ORBNOW,1,"""","""","""")_""^""_ORBNOW"
^XMB(3.9,78,2,319,0)="""RTN"",""ORB3"",41,0)"
^XMB(3.9,78,2,320,0)=" .S ORBID=$P($P($G(ORBPDATA),""|"",2),""@"")  ;get unique data id"
^XMB(3.9,78,2,321,0)="""RTN"",""ORB3"",42,0)"
^XMB(3.9,78,2,322,0)=" .I $L(ORBID) D"
^XMB(3.9,78,2,323,0)="""RTN"",""ORB3"",43,0)"
^XMB(3.9,78,2,324,0)=" ..LOCK +^XTMP(""ORBLOCK"",ORBDFN,ORN,ORBID):60 E  D  Q"
^XMB(3.9,78,2,325,0)="""RTN"",""ORB3"",44,0)"
^XMB(3.9,78,2,326,0)=" ...S ORBDESC="" Requeue Alert Notification (""_(+ORN)_"") ""_$P($G(^ORD(100.9,+ORN,0)),U,1)_""  """
^XMB(3.9,78,2,327,0)="""RTN"",""ORB3"",45,0)"
^XMB(3.9,78,2,328,0)=" ...D QUEUE^ORB31(ORN,ORBDFN,$G(ORNUM),.ORBADUZ,$G(ORBPMSG),$G(ORBPDATA),$$HADD^XLFDT($H,"""","""",5,""""),ORBDESC,$G(DGPMA)) ;requeue in 5 min."
^XMB(3.9,78,2,329,0)="""RTN"",""ORB3"",46,0)"
^XMB(3.9,78,2,330,0)=" ...S ORBLOCK=1"
^XMB(3.9,78,2,331,0)="""RTN"",""ORB3"",47,0)"
^XMB(3.9,78,2,332,0)=" .;"
^XMB(3.9,78,2,333,0)="""RTN"",""ORB3"",48,0)"
^XMB(3.9,78,2,334,0)=" .I '$L(ORBID) D"
^XMB(3.9,78,2,335,0)="""RTN"",""ORB3"",49,0)"
^XMB(3.9,78,2,336,0)=" ..LOCK +^XTMP(""ORBLOCK"",ORBDFN,ORN):60 E  D  Q"
^XMB(3.9,78,2,337,0)="""RTN"",""ORB3"",50,0)"
^XMB(3.9,78,2,338,0)=" ...S ORBDESC="" Requeue Alert Notification (""_(+ORN)_"") ""_$P($G(^ORD(100.9,+ORN,0)),U,1)_""  """
^XMB(3.9,78,2,339,0)="""RTN"",""ORB3"",51,0)"
^XMB(3.9,78,2,340,0)=" ...D QUEUE^ORB31(ORN,ORBDFN,$G(ORNUM),.ORBADUZ,$G(ORBPMSG),$G(ORBPDATA),$$HADD^XLFDT($H,"""","""",5,""""),ORBDESC,$G(DGPMA)) ;requeue in 5 min."
^XMB(3.9,78,2,341,0)="""RTN"",""ORB3"",52,0)"
^XMB(3.9,78,2,342,0)=" ...S ORBLOCK=1"
^XMB(3.9,78,2,343,0)="""RTN"",""ORB3"",53,0)"
^XMB(3.9,78,2,344,0)=" .;"
^XMB(3.9,78,2,345,0)="""RTN"",""ORB3"",54,0)"
^XMB(3.9,78,2,346,0)=" I ORBLOCK=1 D QUIT Q"
^XMB(3.9,78,2,347,0)="""RTN"",""ORB3"",55,0)"
^XMB(3.9,78,2,348,0)=" ;"
^XMB(3.9,78,2,349,0)="""RTN"",""ORB3"",56,0)"
^XMB(3.9,78,2,350,0)="DOALERT ; Entry point for alert logic outside of TaskMan"
^XMB(3.9,78,2,351,0)="""RTN"",""ORB3"",57,0)"
^XMB(3.9,78,2,352,0)=" N ORBDUZ,ORBN,ORBXQAID,ORPTNAM,ORBPRIM,ORBATTD,ORBDEV,ORBENT"
^XMB(3.9,78,2,353,0)="""RTN"",""ORB3"",58,0)"
^XMB(3.9,78,2,354,0)=" N ORBUI,ORBASPEC,ORBSMSG,ORBADT,ORBSDEV,ORBDEL,ORBDI,ORBTDEV,ORY"
^XMB(3.9,78,2,355,0)="""RTN"",""ORB3"",59,0)"
^XMB(3.9,78,2,356,0)=" S ORBUI=1,ORBADT=0"
^XMB(3.9,78,2,357,0)="""RTN"",""ORB3"",60,0)"
^XMB(3.9,78,2,358,0)=" S:'$L($G(ORBPMSG)) ORBPMSG="""""
^XMB(3.9,78,2,359,0)="""RTN"",""ORB3"",61,0)"
^XMB(3.9,78,2,360,0)=" I '$L(ORBPDATA),(+$G(ORNUM)>0) S ORBPDATA=+$G(ORNUM)_""@"""
^XMB(3.9,78,2,361,0)="""RTN"",""ORB3"",62,0)"
^XMB(3.9,78,2,362,0)=" S ORBN=^ORD(100.9,ORN,0)"
^XMB(3.9,78,2,363,0)="""RTN"",""ORB3"",63,0)"
^XMB(3.9,78,2,364,0)=" ;"
^XMB(3.9,78,2,365,0)="""RTN"",""ORB3"",64,0)"
^XMB(3.9,78,2,366,0)=" S ORBENT=$$ENTITY^ORB31(ORNUM)"
^XMB(3.9,78,2,367,0)="""RTN"",""ORB3"",65,0)"
^XMB(3.9,78,2,368,0)=" ;"
^XMB(3.9,78,2,369,0)="""RTN"",""ORB3"",66,0)"
^XMB(3.9,78,2,370,0)=" N DFN S DFN=ORBDFN,VA200="""" D OERR^VADPT"
^XMB(3.9,78,2,371,0)="""RTN"",""ORB3"",67,0)"
^XMB(3.9,78,2,372,0)=" I ('$L($G(VA(""BID""))))!('$L($G(VADM(1)))) D QUIT Q"
^XMB(3.9,78,2,373,0)="""RTN"",""ORB3"",68,0)"
^XMB(3.9,78,2,374,0)=" I (ORN=18)!(ORN=20)!(ORN=35) S ORBADT=1 ;A/D/T notif"
^XMB(3.9,78,2,375,0)="""RTN"",""ORB3"",69,0)"
^XMB(3.9,78,2,376,0)=" ;if not an A/D/T notif, get primary & attending from OERR^VADPT:"
^XMB(3.9,78,2,377,0)="""RTN"",""ORB3"",70,0)"
^XMB(3.9,78,2,378,0)=" I ORBADT=0 S ORBPRIM=+$P(VAIN(2),U),ORBATTD=+$P(VAIN(11),U)"
^XMB(3.9,78,2,379,0)="""RTN"",""ORB3"",71,0)"
^XMB(3.9,78,2,380,0)=" I ORBADT=1 D ADT^ORB31(ORN,ORBDFN,.ORBPRIM,.ORBATTD,$G(ORDGPMA)) ;A/D/T notif"
^XMB(3.9,78,2,381,0)="""RTN"",""ORB3"",72,0)"
^XMB(3.9,78,2,382,0)=" I $D(ORBU) D  ;create debug msg"
^XMB(3.9,78,2,383,0)="""RTN"",""ORB3"",73,0)"
^XMB(3.9,78,2,384,0)=" .S ORBU(ORBUI)=""Processing notification: ""_$P(ORBN,U),ORBUI=ORBUI+1"
^XMB(3.9,78,2,385,0)="""RTN"",""ORB3"",74,0)"
^XMB(3.9,78,2,386,0)=" .S ORBU(ORBUI)=""            for patient: ""_VADM(1),ORBUI=ORBUI+1"
^XMB(3.9,78,2,387,0)="""RTN"",""ORB3"",75,0)"
^XMB(3.9,78,2,388,0)=" .I $G(ORNUM)>0 S ORBU(ORBUI)=""              for order: ""_ORNUM,ORBUI=ORBUI+1"
^XMB(3.9,78,2,389,0)="""RTN"",""ORB3"",76,0)"
^XMB(3.9,78,2,390,0)=" D REGULAR^ORB3REG(ORN,.XQA,.ORBU,.ORBUI,.ORBDEV,ORBDFN)"
^XMB(3.9,78,2,391,0)="""RTN"",""ORB3"",77,0)"
^XMB(3.9,78,2,392,0)=" D SPECIAL^ORB3SPEC(ORN,.ORBASPEC,.ORBU,.ORBUI,$G(ORNUM),ORBDFN,$G(ORBPDATA),.ORBSMSG,$G(ORBPMSG),.ORBSDEV,$G(ORBPRIM),$G(ORBATTD))"
^XMB(3.9,78,2,393,0)="""RTN"",""ORB3"",78,0)"
^XMB(3.9,78,2,394,0)=" I $L($G(ORBSMSG)) S ORBPMSG=$E(ORBSMSG,1,51)"
^XMB(3.9,78,2,395,0)="""RTN"",""ORB3"",79,0)"
^XMB(3.9,78,2,396,0)=" I $D(ORBASPEC)>1 D SPECDUZS ;special recips"
^XMB(3.9,78,2,397,0)="""RTN"",""ORB3"",80,0)"
^XMB(3.9,78,2,398,0)=" I $D(ORBADUZ)>1 D PKGDUZS ;pkg-supplied recips"
^XMB(3.9,78,2,399,0)="""RTN"",""ORB3"",81,0)"
^XMB(3.9,78,2,400,0)=" D TITLE ;provider recips"
^XMB(3.9,78,2,401,0)="""RTN"",""ORB3"",82,0)"
^XMB(3.9,78,2,402,0)=" S ORBXQAID=$P(ORBN,""^"",2)_"",""_ORBDFN_"",""_ORN"
^XMB(3.9,78,2,403,0)="""RTN"",""ORB3"",83,0)"
^XMB(3.9,78,2,404,0)=" ;"
^XMB(3.9,78,2,405,0)="""RTN"",""ORB3"",84,0)"
^XMB(3.9,78,2,406,0)=" I ($D(XQA)>1)!($D(ORBDEV)>1)!($D(ORBSDEV)>1) D  ;recips found"
^XMB(3.9,78,2,407,0)="""RTN"",""ORB3"",85,0)"
^XMB(3.9,78,2,408,0)=" .S XQAFLG=$P(ORBN,""^"",5)"
^XMB(3.9,78,2,409,0)="""RTN"",""ORB3"",86,0)"
^XMB(3.9,78,2,410,0)=" .S XQADFN=ORBDFN"
^XMB(3.9,78,2,411,0)="""RTN"",""ORB3"",87,0)"
^XMB(3.9,78,2,412,0)=" .I XQAFLG=""R"" S XQAROU=$P(ORBN,""^"",6)_""^""_$P(ORBN,""^"",7)"
^XMB(3.9,78,2,413,0)="""RTN"",""ORB3"",88,0)"
^XMB(3.9,78,2,414,0)=" .I $G(ORBPDATA)'="""" S XQADATA=ORBPDATA"
^XMB(3.9,78,2,415,0)="""RTN"",""ORB3"",89,0)"
^XMB(3.9,78,2,416,0)=" .S ORPTNAM=$E(VADM(1)_""         "",1,9)"
^XMB(3.9,78,2,417,0)="""RTN"",""ORB3"",90,0)"
^XMB(3.9,78,2,418,0)=" .S XQAMSG=ORPTNAM_"" ""_""(""_$E(ORPTNAM)_$E(VA(""BID""),1,4)_"")""_"": """
^XMB(3.9,78,2,419,0)="""RTN"",""ORB3"",91,0)"
^XMB(3.9,78,2,420,0)=" .S XQAMSG=XQAMSG_$S(ORBPMSG'="""":ORBPMSG,1:$P(ORBN,""^"",3))"
^XMB(3.9,78,2,421,0)="""RTN"",""ORB3"",92,0)"
^XMB(3.9,78,2,422,0)=" .S XQAARCH=$$GET^XPAR(ORBENT,""ORB ARCHIVE PERIOD"",ORN,""I"")"
^XMB(3.9,78,2,423,0)="""RTN"",""ORB3"",93,0)"
^XMB(3.9,78,2,424,0)=" .S XQASUPV=$$GET^XPAR(ORBENT,""ORB FORWARD SUPERVISOR"",ORN,""I"")"
^XMB(3.9,78,2,425,0)="""RTN"",""ORB3"",94,0)"
^XMB(3.9,78,2,426,0)=" .S XQASURO=$$GET^XPAR(ORBENT,""ORB FORWARD SURROGATES"",ORN,""I"")"
^XMB(3.9,78,2,427,0)="""RTN"",""ORB3"",95,0)"
^XMB(3.9,78,2,428,0)=" .S XQAREVUE=$$GET^XPAR(ORBENT,""ORB FORWARD BACKUP REVIEWER"",ORN,""I"")"
^XMB(3.9,78,2,429,0)="""RTN"",""ORB3"",96,0)"
^XMB(3.9,78,2,430,0)=" .S XQACNDEL=$$GET^XPAR(ORBENT,""ORB REMOVE"",ORN,""I"")"
^XMB(3.9,78,2,431,0)="""RTN"",""ORB3"",97,0)"
^XMB(3.9,78,2,432,0)=" .S XQACNDEL=$S(XQACNDEL=1:1,1:"""")"
^XMB(3.9,78,2,433,0)="""RTN"",""ORB3"",98,0)"
^XMB(3.9,78,2,434,0)=" .I $D(ORBDEV)>1 D REGDEV^ORB31(.ORBDEV)"
^XMB(3.9,78,2,435,0)="""RTN"",""ORB3"",99,0)"
^XMB(3.9,78,2,436,0)=" .I $D(ORBSDEV)>1 D REGDEV^ORB31(.ORBSDEV)"
^XMB(3.9,78,2,437,0)="""RTN"",""ORB3"",100,0)"
^XMB(3.9,78,2,438,0)=" .I $D(ORBTDEV)>1 D REGDEV^ORB31(.ORBTDEV)"
^XMB(3.9,78,2,439,0)="""RTN"",""ORB3"",101,0)"
^XMB(3.9,78,2,440,0)=" .S XQAID=ORBXQAID"
^XMB(3.9,78,2,441,0)="""RTN"",""ORB3"",102,0)"
^XMB(3.9,78,2,442,0)=" .I $D(XQA) D SETUP^XQALERT  ;if no [new] recips don't send alert"
^XMB(3.9,78,2,443,0)="""RTN"",""ORB3"",103,0)"
^XMB(3.9,78,2,444,0)="QUIT ;"
^XMB(3.9,78,2,445,0)="""RTN"",""ORB3"",104,0)"
^XMB(3.9,78,2,446,0)=" K VA,VA200,VADM,VAERR,VAIN,XQA,XQADATA,XQAID,XQAFLG,XQAMSG,XQAROU,XQAARCH,XQASUPV,XQASURO,XQADFN"
^XMB(3.9,78,2,447,0)="""RTN"",""ORB3"",105,0)"
^XMB(3.9,78,2,448,0)=" K ^XTMP(""ORBUSER"",$J)"
^XMB(3.9,78,2,449,0)="""RTN"",""ORB3"",106,0)"
^XMB(3.9,78,2,450,0)=" I '$D(ORBU),$D(ORBLOCK) D"
^XMB(3.9,78,2,451,0)="""RTN"",""ORB3"",107,0)"
^XMB(3.9,78,2,452,0)=" .I $L(ORBID) LOCK -^XTMP(""ORBLOCK"",ORBDFN,ORN,ORBID)"
^XMB(3.9,78,2,453,0)="""RTN"",""ORB3"",108,0)"
^XMB(3.9,78,2,454,0)=" .E  LOCK -^XTMP(""ORBLOCK"",ORBDFN,ORN)"
^XMB(3.9,78,2,455,0)="""RTN"",""ORB3"",109,0)"
^XMB(3.9,78,2,456,0)=" Q"
^XMB(3.9,78,2,457,0)="""RTN"",""ORB3"",110,0)"
^XMB(3.9,78,2,458,0)="PKGDUZS ;get DUZs from pkg-passed ORBADUZ() array"
^XMB(3.9,78,2,459,0)="""RTN"",""ORB3"",111,0)"
^XMB(3.9,78,2,460,0)=" N ORBPDUZ"
^XMB(3.9,78,2,461,0)="""RTN"",""ORB3"",112,0)"
^XMB(3.9,78,2,462,0)=" I $D(ORBU) D"
^XMB(3.9,78,2,463,0)="""RTN"",""ORB3"",113,0)"
^XMB(3.9,78,2,464,0)=" .S ORBU(ORBUI)="" "",ORBUI=ORBUI+1"
^XMB(3.9,78,2,465,0)="""RTN"",""ORB3"",114,0)"
^XMB(3.9,78,2,466,0)=" .I ORN=68 S ORBU(ORBUI)=""Recipients with Lab Threshold Exceeded:"",ORBUI=ORBUI+1"
^XMB(3.9,78,2,467,0)="""RTN"",""ORB3"",115,0)"
^XMB(3.9,78,2,468,0)=" .E  S ORBU(ORBUI)=""Recipients defined when notif was triggered:"",ORBUI=ORBUI+1"
^XMB(3.9,78,2,469,0)="""RTN"",""ORB3"",116,0)"
^XMB(3.9,78,2,470,0)=" S ORBPDUZ="""""
^XMB(3.9,78,2,471,0)="""RTN"",""ORB3"",117,0)"
^XMB(3.9,78,2,472,0)=" F  S ORBPDUZ=$O(ORBADUZ(ORBPDUZ)) Q:ORBPDUZ=""""  S ORBDUZ=ORBPDUZ D USER"
^XMB(3.9,78,2,473,0)="""RTN"",""ORB3"",118,0)"
^XMB(3.9,78,2,474,0)=" Q"
^XMB(3.9,78,2,475,0)="""RTN"",""ORB3"",119,0)"
^XMB(3.9,78,2,476,0)="SPECDUZS ;get DUZs rtn by SPECIAL^ORB3SPEC"
^XMB(3.9,78,2,477,0)="""RTN"",""ORB3"",120,0)"
^XMB(3.9,78,2,478,0)=" N ORBSDUZ"
^XMB(3.9,78,2,479,0)="""RTN"",""ORB3"",121,0)"
^XMB(3.9,78,2,480,0)=" I $D(ORBU) D"
^XMB(3.9,78,2,481,0)="""RTN"",""ORB3"",122,0)"
^XMB(3.9,78,2,482,0)=" .S ORBU(ORBUI)="" "",ORBUI=ORBUI+1"
^XMB(3.9,78,2,483,0)="""RTN"",""ORB3"",123,0)"
^XMB(3.9,78,2,484,0)=" .S ORBU(ORBUI)=""Special recipients associated with the notification:"",ORBUI=ORBUI+1"
^XMB(3.9,78,2,485,0)="""RTN"",""ORB3"",124,0)"
^XMB(3.9,78,2,486,0)=" S ORBSDUZ="""""
^XMB(3.9,78,2,487,0)="""RTN"",""ORB3"",125,0)"
^XMB(3.9,78,2,488,0)=" F  S ORBSDUZ=$O(ORBASPEC(ORBSDUZ)) Q:ORBSDUZ=""""  S ORBDUZ=ORBSDUZ D USER"
^XMB(3.9,78,2,489,0)="""RTN"",""ORB3"",126,0)"
^XMB(3.9,78,2,490,0)=" Q"
^XMB(3.9,78,2,491,0)="""RTN"",""ORB3"",127,0)"
^XMB(3.9,78,2,492,0)="TITLE ;get provider recips"
^XMB(3.9,78,2,493,0)="""RTN"",""ORB3"",128,0)"
^XMB(3.9,78,2,494,0)=" N TITLES"
^XMB(3.9,78,2,495,0)="""RTN"",""ORB3"",129,0)"
^XMB(3.9,78,2,496,0)=" I $D(ORBU) D"
^XMB(3.9,78,2,497,0)="""RTN"",""ORB3"",130,0)"
^XMB(3.9,78,2,498,0)=" .S ORBU(ORBUI)="" "",ORBUI=ORBUI+1"
^XMB(3.9,78,2,499,0)="""RTN"",""ORB3"",131,0)"
^XMB(3.9,78,2,500,0)=" .S ORBU(ORBUI)=""Recipients determined by Provider Recipient parameter:"",ORBUI=ORBUI+1"
^XMB(3.9,78,2,501,0)="""RTN"",""ORB3"",132,0)"
^XMB(3.9,78,2,502,0)=" ;"
^XMB(3.9,78,2,503,0)="""RTN"",""ORB3"",133,0)"
^XMB(3.9,78,2,504,0)=" S TITLES=$$GET^XPAR(ORBENT,""ORB PROVIDER RECIPIENTS"",ORN,""I"")"
^XMB(3.9,78,2,505,0)="""RTN"",""ORB3"",134,0)"
^XMB(3.9,78,2,506,0)=" I TITLES[""P"" D PRIMARY"
^XMB(3.9,78,2,507,0)="""RTN"",""ORB3"",135,0)"
^XMB(3.9,78,2,508,0)=" I TITLES[""A"" D ATTEND"
^XMB(3.9,78,2,509,0)="""RTN"",""ORB3"",136,0)"
^XMB(3.9,78,2,510,0)=" I TITLES[""T"" D TEAMS"
^XMB(3.9,78,2,511,0)="""RTN"",""ORB3"",137,0)"
^XMB(3.9,78,2,512,0)=" I TITLES[""O"" D ORDERER"
^XMB(3.9,78,2,513,0)="""RTN"",""ORB3"",138,0)"
^XMB(3.9,78,2,514,0)=" I TITLES[""E"" D ENTERBY"
^XMB(3.9,78,2,515,0)="""RTN"",""ORB3"",139,0)"
^XMB(3.9,78,2,516,0)=" I TITLES[""R"" D PCMMPRIM"
^XMB(3.9,78,2,517,0)="""RTN"",""ORB3"",140,0)"
^XMB(3.9,78,2,518,0)=" I TITLES[""S"" D PCMMASSC"
^XMB(3.9,78,2,519,0)="""RTN"",""ORB3"",141,0)"
^XMB(3.9,78,2,520,0)=" I TITLES[""M"" D PCMMTEAM"
^XMB(3.9,78,2,521,0)="""RTN"",""ORB3"",142,0)"
^XMB(3.9,78,2,522,0)=" Q"
^XMB(3.9,78,2,523,0)="""RTN"",""ORB3"",143,0)"
^XMB(3.9,78,2,524,0)="PRIMARY ;"
^XMB(3.9,78,2,525,0)="""RTN"",""ORB3"",144,0)"
^XMB(3.9,78,2,526,0)=" I $D(ORBU),ORBADT=0 S ORBU(ORBUI)="" Inpt primary provider:"",ORBUI=ORBUI+1"
^XMB(3.9,78,2,527,0)="""RTN"",""ORB3"",145,0)"
^XMB(3.9,78,2,528,0)=" I $D(ORBU),ORBADT=1 S ORBU(ORBUI)="" Inpt primary provider: option cannot determine without A/D/T event data."",ORBUI=ORBUI+1"
^XMB(3.9,78,2,529,0)="""RTN"",""ORB3"",146,0)"
^XMB(3.9,78,2,530,0)=" I +$G(ORBPRIM)>0 S ORBDUZ=ORBPRIM D USER"
^XMB(3.9,78,2,531,0)="""RTN"",""ORB3"",147,0)"
^XMB(3.9,78,2,532,0)=" Q"
^XMB(3.9,78,2,533,0)="""RTN"",""ORB3"",148,0)"
^XMB(3.9,78,2,534,0)="ATTEND ;"
^XMB(3.9,78,2,535,0)="""RTN"",""ORB3"",149,0)"
^XMB(3.9,78,2,536,0)=" I $D(ORBU),ORBADT=0 S ORBU(ORBUI)="" Attending physician:"",ORBUI=ORBUI+1"
^XMB(3.9,78,2,537,0)="""RTN"",""ORB3"",150,0)"
^XMB(3.9,78,2,538,0)=" I $D(ORBU),ORBADT=1 S ORBU(ORBUI)="" Attending physician: option cannot determine without A/D/T event data."",ORBUI=ORBUI+1"
^XMB(3.9,78,2,539,0)="""RTN"",""ORB3"",151,0)"
^XMB(3.9,78,2,540,0)=" I +$G(ORBATTD)>0 S ORBDUZ=ORBATTD D USER"
^XMB(3.9,78,2,541,0)="""RTN"",""ORB3"",152,0)"
^XMB(3.9,78,2,542,0)=" Q"
^XMB(3.9,78,2,543,0)="""RTN"",""ORB3"",153,0)"
^XMB(3.9,78,2,544,0)="TEAMS ;"
^XMB(3.9,78,2,545,0)="""RTN"",""ORB3"",154,0)"
^XMB(3.9,78,2,546,0)=" I $D(ORBU) S ORBU(ORBUI)="" Teams/Personal Lists related to patient:"",ORBUI=ORBUI+1"
^XMB(3.9,78,2,547,0)="""RTN"",""ORB3"",155,0)"
^XMB(3.9,78,2,548,0)=" N ORBLST,ORBI,ORBJ,ORBTM,ORBTNAME,ORBTTYPE,ORBTD"
^XMB(3.9,78,2,549,0)="""RTN"",""ORB3"",156,0)"
^XMB(3.9,78,2,550,0)=" D TMSPT^ORQPTQ1(.ORBLST,ORBDFN)"
^XMB(3.9,78,2,551,0)="""RTN"",""ORB3"",157,0)"
^XMB(3.9,78,2,552,0)=" Q:+$G(ORBLST(1))<1"
^XMB(3.9,78,2,553,0)="""RTN"",""ORB3"",158,0)"
^XMB(3.9,78,2,554,0)=" S ORBI="""" F  S ORBI=$O(ORBLST(ORBI)) Q:ORBI=""""  D"
^XMB(3.9,78,2,555,0)="""RTN"",""ORB3"",159,0)"
^XMB(3.9,78,2,556,0)=" .S ORBTM=$P(ORBLST(ORBI),U),ORBTNAME=$P(ORBLST(ORBI),U,2)"
^XMB(3.9,78,2,557,0)="""RTN"",""ORB3"",160,0)"
^XMB(3.9,78,2,558,0)=" .S ORBTTYPE=$P(ORBLST(ORBI),U,3)"
^XMB(3.9,78,2,559,0)="""RTN"",""ORB3"",161,0)"
^XMB(3.9,78,2,560,0)=" .I $D(ORBU) D"
^XMB(3.9,78,2,561,0)="""RTN"",""ORB3"",162,0)"
^XMB(3.9,78,2,562,0)=" ..S ORBU(ORBUI)=""  Patient list ""_ORBTNAME_"" [""_ORBTTYPE_""]:"",ORBUI=ORBUI+1"
^XMB(3.9,78,2,563,0)="""RTN"",""ORB3"",163,0)"
^XMB(3.9,78,2,564,0)=" .N ORBLST2 D TEAMPROV^ORQPTQ1(.ORBLST2,ORBTM)"
^XMB(3.9,78,2,565,0)="""RTN"",""ORB3"",164,0)"
^XMB(3.9,78,2,566,0)=" .Q:+$G(ORBLST2(1))<1"
^XMB(3.9,78,2,567,0)="""RTN"",""ORB3"",165,0)"
^XMB(3.9,78,2,568,0)=" .S ORBJ="""" F  S ORBJ=$O(ORBLST2(ORBJ)) Q:ORBJ=""""  D"
^XMB(3.9,78,2,569,0)="""RTN"",""ORB3"",166,0)"
^XMB(3.9,78,2,570,0)=" ..S ORBDUZ=$P(ORBLST2(ORBJ),U)_U_ORBTM I +$G(ORBDUZ)>0 D USER"
^XMB(3.9,78,2,571,0)="""RTN"",""ORB3"",167,0)"
^XMB(3.9,78,2,572,0)=" .;"
^XMB(3.9,78,2,573,0)="""RTN"",""ORB3"",168,0)"
^XMB(3.9,78,2,574,0)=" .S ORBTD=$P($$TMDEV^ORB31(ORBTM),U,2)  ;Team's device"
^XMB(3.9,78,2,575,0)="""RTN"",""ORB3"",169,0)"
^XMB(3.9,78,2,576,0)=" .I $L(ORBTD) D"
^XMB(3.9,78,2,577,0)="""RTN"",""ORB3"",170,0)"
^XMB(3.9,78,2,578,0)=" ..S ORBTDEV(ORBTD)="""""
^XMB(3.9,78,2,579,0)="""RTN"",""ORB3"",171,0)"
^XMB(3.9,78,2,580,0)=" ..I $D(ORBU) D"
^XMB(3.9,78,2,581,0)="""RTN"",""ORB3"",172,0)"
^XMB(3.9,78,2,582,0)=" ...S ORBU(ORBUI)=""   Team's Device ""_ORBTD_"" is a recipient"",ORBUI=ORBUI+1"
^XMB(3.9,78,2,583,0)="""RTN"",""ORB3"",173,0)"
^XMB(3.9,78,2,584,0)=" Q"
^XMB(3.9,78,2,585,0)="""RTN"",""ORB3"",174,0)"
^XMB(3.9,78,2,586,0)="ORDERER ;"
^XMB(3.9,78,2,587,0)="""RTN"",""ORB3"",175,0)"
^XMB(3.9,78,2,588,0)=" Q:+$G(ORNUM)<1"
^XMB(3.9,78,2,589,0)="""RTN"",""ORB3"",176,0)"
^XMB(3.9,78,2,590,0)=" I $D(ORBU) S ORBU(ORBUI)="" Ordering provider:"",ORBUI=ORBUI+1"
^XMB(3.9,78,2,591,0)="""RTN"",""ORB3"",177,0)"
^XMB(3.9,78,2,592,0)=" N ORBLST,ORBI,ORBTM,ORBJ,ORBTNAME,ORBPLST,ORBPI,ORBPTM,ORBTTYPE"
^XMB(3.9,78,2,593,0)="""RTN"",""ORB3"",178,0)"
^XMB(3.9,78,2,594,0)=" S ORBDUZ=$S(ORN=12:+$$UNSIGNOR^ORQOR2(ORNUM),1:$$ORDERER^ORQOR2(ORNUM))"
^XMB(3.9,78,2,595,0)="""RTN"",""ORB3"",179,0)"
^XMB(3.9,78,2,596,0)=" I +$G(ORBDUZ)>0 D"
^XMB(3.9,78,2,597,0)="""RTN"",""ORB3"",180,0)"
^XMB(3.9,78,2,598,0)=" .D USER"
^XMB(3.9,78,2,599,0)="""RTN"",""ORB3"",181,0)"
^XMB(3.9,78,2,600,0)=" .;if notif = Order Req E/S (#12) or Order Req Co-sign (#37) and"
^XMB(3.9,78,2,601,0)="""RTN"",""ORB3"",182,0)"
^XMB(3.9,78,2,602,0)=" .;user doesn't have ES authority, send to fellow team members w/ES:"
^XMB(3.9,78,2,603,0)="""RTN"",""ORB3"",183,0)"
^XMB(3.9,78,2,604,0)=" .I ((ORN=12)!(ORN=37)),('$D(^XUSEC(""ORES"",ORBDUZ))) D"
^XMB(3.9,78,2,605,0)="""RTN"",""ORB3"",184,0)"
^XMB(3.9,78,2,606,0)=" ..I $D(ORBU) S ORBU(ORBUI)="" Orderer can't elec sign, getting teams orderer belongs to:"",ORBUI=ORBUI+1"
^XMB(3.9,78,2,607,0)="""RTN"",""ORB3"",185,0)"
^XMB(3.9,78,2,608,0)=" ..D TEAMPR^ORQPTQ1(.ORBLST,ORBDUZ)  ;get orderer's tms"
^XMB(3.9,78,2,609,0)="""RTN"",""ORB3"",186,0)"
^XMB(3.9,78,2,610,0)=" ..Q:+$G(ORBLST(1))<1"
^XMB(3.9,78,2,611,0)="""RTN"",""ORB3"",187,0)"
^XMB(3.9,78,2,612,0)=" ..D TMSPT^ORQPTQ1(.ORBPLST,ORBDFN)  ;get pt's tms"
^XMB(3.9,78,2,613,0)="""RTN"",""ORB3"",188,0)"
^XMB(3.9,78,2,614,0)=" ..Q:+$G(ORBPLST(1))<1"
^XMB(3.9,78,2,615,0)="""RTN"",""ORB3"",189,0)"
^XMB(3.9,78,2,616,0)=" ..S ORBI="""" F  S ORBI=$O(ORBLST(ORBI)) Q:ORBI=""""  D"
^XMB(3.9,78,2,617,0)="""RTN"",""ORB3"",190,0)"
^XMB(3.9,78,2,618,0)=" ...S ORBPI="""" F  S ORBPI=$O(ORBPLST(ORBPI)) Q:ORBPI=""""  D"
^XMB(3.9,78,2,619,0)="""RTN"",""ORB3"",191,0)"
^XMB(3.9,78,2,620,0)=" ....S ORBTM=$P(ORBLST(ORBI),U),ORBPTM=$P(ORBPLST(ORBPI),U)"
^XMB(3.9,78,2,621,0)="""RTN"",""ORB3"",192,0)"
^XMB(3.9,78,2,622,0)=" ....I ORBTM=ORBPTM D  ;if pt is on provider's team"
^XMB(3.9,78,2,623,0)="""RTN"",""ORB3"",193,0)"
^XMB(3.9,78,2,624,0)=" .....I +$G(ORBPTM)>0 D"
^XMB(3.9,78,2,625,0)="""RTN"",""ORB3"",194,0)"
^XMB(3.9,78,2,626,0)=" ......S ORBTNAME=$P(ORBPLST(ORBPI),U,2)"
^XMB(3.9,78,2,627,0)="""RTN"",""ORB3"",195,0)"
^XMB(3.9,78,2,628,0)=" ......S ORBTTYPE=$P(ORBPLST(ORBPI),U,3)"
^XMB(3.9,78,2,629,0)="""RTN"",""ORB3"",196,0)"
^XMB(3.9,78,2,630,0)=" ......I $D(ORBU) S ORBU(ORBUI)=""  Orderer's pt list ""_ORBTNAME_"" [""_ORBTTYPE_""] recipients: "",ORBUI=ORBUI+1"
^XMB(3.9,78,2,631,0)="""RTN"",""ORB3"",197,0)"
^XMB(3.9,78,2,632,0)=" ......N ORBLST2 D TEAMPROV^ORQPTQ1(.ORBLST2,ORBPTM)"
^XMB(3.9,78,2,633,0)="""RTN"",""ORB3"",198,0)"
^XMB(3.9,78,2,634,0)=" ......Q:+$G(ORBLST2(1))<1"
^XMB(3.9,78,2,635,0)="""RTN"",""ORB3"",199,0)"
^XMB(3.9,78,2,636,0)=" ......S ORBJ="""" F  S ORBJ=$O(ORBLST2(ORBJ)) Q:ORBJ=""""  D"
^XMB(3.9,78,2,637,0)="""RTN"",""ORB3"",200,0)"
^XMB(3.9,78,2,638,0)=" .......S ORBDUZ=$P(ORBLST2(ORBJ),U)_U_ORBPTM I +$G(ORBDUZ)>0,($D(^XUSEC(""ORES"",+ORBDUZ))) D USER"
^XMB(3.9,78,2,639,0)="""RTN"",""ORB3"",201,0)"
^XMB(3.9,78,2,640,0)=" Q"
^XMB(3.9,78,2,641,0)="""RTN"",""ORB3"",202,0)"
^XMB(3.9,78,2,642,0)="ENTERBY ;"
^XMB(3.9,78,2,643,0)="""RTN"",""ORB3"",203,0)"
^XMB(3.9,78,2,644,0)=" I $D(ORBU) S ORBU(ORBUI)="" User entering order's most recent activity:"",ORBUI=ORBUI+1"
^XMB(3.9,78,2,645,0)="""RTN"",""ORB3"",204,0)"
^XMB(3.9,78,2,646,0)=" Q:+$G(ORNUM)<1"
^XMB(3.9,78,2,647,0)="""RTN"",""ORB3"",205,0)"
^XMB(3.9,78,2,648,0)=" I $D(^OR(100,ORNUM,8,0)) D"
^XMB(3.9,78,2,649,0)="""RTN"",""ORB3"",206,0)"
^XMB(3.9,78,2,650,0)=" .S ORBDUZ=$P(^OR(100,ORNUM,8,$P(^OR(100,ORNUM,8,0),U,3),0),U,13)"
^XMB(3.9,78,2,651,0)="""RTN"",""ORB3"",207,0)"
^XMB(3.9,78,2,652,0)=" I +$G(ORBDUZ)>0 D USER"
^XMB(3.9,78,2,653,0)="""RTN"",""ORB3"",208,0)"
^XMB(3.9,78,2,654,0)=" Q"
^XMB(3.9,78,2,655,0)="""RTN"",""ORB3"",209,0)"
^XMB(3.9,78,2,656,0)="PCMMPRIM ;"
^XMB(3.9,78,2,657,0)="""RTN"",""ORB3"",210,0)"
^XMB(3.9,78,2,658,0)=" I $D(ORBU) S ORBU(ORBUI)="" PCMM Primary Care Practitioner:"",ORBUI=ORBUI+1"
^XMB(3.9,78,2,659,0)="""RTN"",""ORB3"",211,0)"
^XMB(3.9,78,2,660,0)=" S ORBDUZ=+$$OUTPTPR^SDUTL3(ORBDFN,$$NOW^XLFDT,1)  ;DBIA #1252"
^XMB(3.9,78,2,661,0)="""RTN"",""ORB3"",212,0)"
^XMB(3.9,78,2,662,0)=" I +$G(ORBDUZ)>0 D USER"
^XMB(3.9,78,2,663,0)="""RTN"",""ORB3"",213,0)"
^XMB(3.9,78,2,664,0)=" Q"
^XMB(3.9,78,2,665,0)="""RTN"",""ORB3"",214,0)"
^XMB(3.9,78,2,666,0)="PCMMASSC ;"
^XMB(3.9,78,2,667,0)="""RTN"",""ORB3"",215,0)"
^XMB(3.9,78,2,668,0)=" I $D(ORBU) S ORBU(ORBUI)="" PCMM Associate Provider:"",ORBUI=ORBUI+1"
^XMB(3.9,78,2,669,0)="""RTN"",""ORB3"",216,0)"
^XMB(3.9,78,2,670,0)=" S ORBDUZ=+$$OUTPTAP^SDUTL3(ORBDFN,$$NOW^XLFDT)  ;DBIA #1252"
^XMB(3.9,78,2,671,0)="""RTN"",""ORB3"",217,0)"
^XMB(3.9,78,2,672,0)=" I +$G(ORBDUZ)>0 D USER"
^XMB(3.9,78,2,673,0)="""RTN"",""ORB3"",218,0)"
^XMB(3.9,78,2,674,0)=" Q"
^XMB(3.9,78,2,675,0)="""RTN"",""ORB3"",219,0)"
^XMB(3.9,78,2,676,0)="PCMMTEAM ;"
^XMB(3.9,78,2,677,0)="""RTN"",""ORB3"",220,0)"
^XMB(3.9,78,2,678,0)=" N ORPCMM,ORPCMMDZ"
^XMB(3.9,78,2,679,0)="""RTN"",""ORB3"",221,0)"
^XMB(3.9,78,2,680,0)=" I $D(ORBU) S ORBU(ORBUI)="" PCMM Team Position Assignments:"",ORBUI=ORBUI+1"
^XMB(3.9,78,2,681,0)="""RTN"",""ORB3"",222,0)"
^XMB(3.9,78,2,682,0)=" S ORPCMM=$$PRPT^SCAPMC(ORBDFN,,,,,,""^TMP(""""ORPCMM"""",$J)"",)  ;DBIA #1916"
^XMB(3.9,78,2,683,0)="""RTN"",""ORB3"",223,0)"
^XMB(3.9,78,2,684,0)=" S ORPCMMDZ=0"
^XMB(3.9,78,2,685,0)="""RTN"",""ORB3"",224,0)"
^XMB(3.9,78,2,686,0)=" F  S ORPCMMDZ=$O(^TMP(""ORPCMM"",$J,""SCPR"",ORPCMMDZ)) Q:'ORPCMMDZ  D"
^XMB(3.9,78,2,687,0)="""RTN"",""ORB3"",225,0)"
^XMB(3.9,78,2,688,0)=" .S ORBDUZ=ORPCMMDZ D USER"
^XMB(3.9,78,2,689,0)="""RTN"",""ORB3"",226,0)"
^XMB(3.9,78,2,690,0)=" K ^TMP(""ORPCMM"",$J)"
^XMB(3.9,78,2,691,0)="""RTN"",""ORB3"",227,0)"
^XMB(3.9,78,2,692,0)=" Q"
^XMB(3.9,78,2,693,0)="""RTN"",""ORB3"",228,0)"
^XMB(3.9,78,2,694,0)="USER ;should USER (ORBDUZ) be a recip"
^XMB(3.9,78,2,695,0)="""RTN"",""ORB3"",229,0)"
^XMB(3.9,78,2,696,0)=" D USER^ORB3USER(.XQA,ORBDUZ,ORN,.ORBU,.ORBUI,ORBDFN,+$G(ORNUM))"
^XMB(3.9,78,2,697,0)="""RTN"",""ORB3"",230,0)"
^XMB(3.9,78,2,698,0)=" Q"
^XMB(3.9,78,2,699,0)="""RTN"",""ORMTIM02"")"
^XMB(3.9,78,2,700,0)="0^6^B16808061^n/a"
^XMB(3.9,78,2,701,0)="""RTN"",""ORMTIM02"",1,0)"
^XMB(3.9,78,2,702,0)="ORMTIM02 ; JM/SLC-ISC - PERFORM MISC TIME BASED ACTIVITIES ;05/02/06"
^XMB(3.9,78,2,703,0)="""RTN"",""ORMTIM02"",2,0)"
^XMB(3.9,78,2,704,0)=" ;;3.0;ORDER ENTRY/RESULTS REPORTING;**253**;Dec 17, 1997"
^XMB(3.9,78,2,705,0)="""RTN"",""ORMTIM02"",3,0)"
^XMB(3.9,78,2,706,0)=" ;"
^XMB(3.9,78,2,707,0)="""RTN"",""ORMTIM02"",4,0)"
^XMB(3.9,78,2,708,0)=" Q"
^XMB(3.9,78,2,709,0)="""RTN"",""ORMTIM02"",5,0)"
^XMB(3.9,78,2,710,0)="MISC ; Perform misc time based activities"
^XMB(3.9,78,2,711,0)="""RTN"",""ORMTIM02"",6,0)"
^XMB(3.9,78,2,712,0)=" ;"
^XMB(3.9,78,2,713,0)="""RTN"",""ORMTIM02"",7,0)"
^XMB(3.9,78,2,714,0)=" D UNSIGNED ; Generate alerts for unsigned orders that have slipped through the cracks"
^XMB(3.9,78,2,715,0)="""RTN"",""ORMTIM02"",8,0)"
^XMB(3.9,78,2,716,0)=" ;"
^XMB(3.9,78,2,717,0)="""RTN"",""ORMTIM02"",9,0)"
^XMB(3.9,78,2,718,0)=" Q"
^XMB(3.9,78,2,719,0)="""RTN"",""ORMTIM02"",10,0)"
^XMB(3.9,78,2,720,0)=" ;"
^XMB(3.9,78,2,721,0)="""RTN"",""ORMTIM02"",11,0)"
^XMB(3.9,78,2,722,0)="UNSIGNED ; Generate alerts for unsigned orders that were not alerted by CPRS"
^XMB(3.9,78,2,723,0)="""RTN"",""ORMTIM02"",12,0)"
^XMB(3.9,78,2,724,0)=" ; This happens when CPRS crashes - through network connection drops or other causes"
^XMB(3.9,78,2,725,0)="""RTN"",""ORMTIM02"",13,0)"
^XMB(3.9,78,2,726,0)=" N ORZPAT,ORZDATE,ORZIEN,ORZSUB,ORZSDATE,%DT,X,Y,ORZTIME,ORZNOW,ORZPURGE"
^XMB(3.9,78,2,727,0)="""RTN"",""ORMTIM02"",14,0)"
^XMB(3.9,78,2,728,0)=" N ORN,ORBDFN,ORNUM,ORBADUZ,ORBPMSG,ORBPDATA,ORZREC8,ORZSIGDT,ORZSTS,ORZWHEN,ORMARKID"
^XMB(3.9,78,2,729,0)="""RTN"",""ORMTIM02"",15,0)"
^XMB(3.9,78,2,730,0)=" N MINTIME,XTMPDAYS,XTMPHOUR,MINDAYS"
^XMB(3.9,78,2,731,0)="""RTN"",""ORMTIM02"",16,0)"
^XMB(3.9,78,2,732,0)=" S ORN=12,ORMARKID=""ORMTIME_UNSGNORD"""
^XMB(3.9,78,2,733,0)="""RTN"",""ORMTIM02"",17,0)"
^XMB(3.9,78,2,734,0)=" ;"
^XMB(3.9,78,2,735,0)="""RTN"",""ORMTIM02"",18,0)"
^XMB(3.9,78,2,736,0)=" S MINTIME=60 ; Order must be unsigned for 60 Minutes before generating an alert"
^XMB(3.9,78,2,737,0)="""RTN"",""ORMTIM02"",19,0)"
^XMB(3.9,78,2,738,0)=" S MINDAYS=90 ; Order must have been generated within the last 90 days"
^XMB(3.9,78,2,739,0)="""RTN"",""ORMTIM02"",20,0)"
^XMB(3.9,78,2,740,0)=" ;"
^XMB(3.9,78,2,741,0)="""RTN"",""ORMTIM02"",21,0)"
^XMB(3.9,78,2,742,0)=" S XTMPDAYS=10 ; Keep ^XTMP record for 10 days - reset timeframe with each run"
^XMB(3.9,78,2,743,0)="""RTN"",""ORMTIM02"",22,0)"
^XMB(3.9,78,2,744,0)=" S XTMPHOUR=48 ; Each order that's verified as having generated an alert has a flag set in"
^XMB(3.9,78,2,745,0)="""RTN"",""ORMTIM02"",23,0)"
^XMB(3.9,78,2,746,0)=" ;               ^XTMP that's kept for 48 hours.  When flag is gone, must recheck alert status"
^XMB(3.9,78,2,747,0)="""RTN"",""ORMTIM02"",24,0)"
^XMB(3.9,78,2,748,0)=" ;"
^XMB(3.9,78,2,749,0)="""RTN"",""ORMTIM02"",25,0)"
^XMB(3.9,78,2,750,0)=" S X=""T-""_MINDAYS"
^XMB(3.9,78,2,751,0)="""RTN"",""ORMTIM02"",26,0)"
^XMB(3.9,78,2,752,0)=" D ^%DT S ORZSDATE=9999999-Y"
^XMB(3.9,78,2,753,0)="""RTN"",""ORMTIM02"",27,0)"
^XMB(3.9,78,2,754,0)=" S %DT=""ST"",X=""NOW"" D ^%DT"
^XMB(3.9,78,2,755,0)="""RTN"",""ORMTIM02"",28,0)"
^XMB(3.9,78,2,756,0)=" S ORZNOW=Y"
^XMB(3.9,78,2,757,0)="""RTN"",""ORMTIM02"",29,0)"
^XMB(3.9,78,2,758,0)=" S ORZTIME=$$FMADD^XLFDT(ORZNOW,0,0,-MINTIME,0) ; Order must have existed for ORZTIME minutes"
^XMB(3.9,78,2,759,0)="""RTN"",""ORMTIM02"",30,0)"
^XMB(3.9,78,2,760,0)=" S ORZPURGE=$$FMADD^XLFDT(ORZNOW,XTMPDAYS,0,0,0) ; Purge all marked flags if not run in XTMPDAYS days"
^XMB(3.9,78,2,761,0)="""RTN"",""ORMTIM02"",31,0)"
^XMB(3.9,78,2,762,0)=" S ^XTMP(ORMARKID,0)=ORZPURGE_U_ORZNOW_U_""Unsigned Orders Reviewed by ORMTIME"""
^XMB(3.9,78,2,763,0)="""RTN"",""ORMTIM02"",32,0)"
^XMB(3.9,78,2,764,0)=" S ORZPURGE=$$FMADD^XLFDT(ORZNOW,0,XTMPHOUR,0,0) ; Purge each marked flag XTMPHOUR hours after creation"
^XMB(3.9,78,2,765,0)="""RTN"",""ORMTIM02"",33,0)"
^XMB(3.9,78,2,766,0)=" K MINTIME,MINDAYS,XTMPDAYS,XTMPHOUR,X,Y,%DT ; Kill non-namespaced vars"
^XMB(3.9,78,2,767,0)="""RTN"",""ORMTIM02"",34,0)"
^XMB(3.9,78,2,768,0)=" S ORZPAT="""" F  S ORZPAT=$O(^OR(100,""AS"",ORZPAT)) Q:'ORZPAT  D"
^XMB(3.9,78,2,769,0)="""RTN"",""ORMTIM02"",35,0)"
^XMB(3.9,78,2,770,0)=" . Q:$P(^DPT(+ORZPAT,0),U,21)  ; Quit if test patient"
^XMB(3.9,78,2,771,0)="""RTN"",""ORMTIM02"",36,0)"
^XMB(3.9,78,2,772,0)=" . S ORZDATE=0 F  S ORZDATE=$O(^OR(100,""AS"",ORZPAT,ORZDATE)) Q:'ORZDATE  I ORZDATE<ORZSDATE D"
^XMB(3.9,78,2,773,0)="""RTN"",""ORMTIM02"",37,0)"
^XMB(3.9,78,2,774,0)=" . . S ORZIEN=0 F  S ORZIEN=$O(^OR(100,""AS"",ORZPAT,ORZDATE,ORZIEN)) Q:'ORZIEN  D"
^XMB(3.9,78,2,775,0)="""RTN"",""ORMTIM02"",38,0)"
^XMB(3.9,78,2,776,0)=" . . . S ORZSUB=0 F  S ORZSUB=$O(^OR(100,""AS"",ORZPAT,ORZDATE,ORZIEN,ORZSUB)) Q:'ORZSUB  D"
^XMB(3.9,78,2,777,0)="""RTN"",""ORMTIM02"",39,0)"
^XMB(3.9,78,2,778,0)=" . . . . I $D(^OR(100,ORZIEN,8,ORZSUB,0)) D"
^XMB(3.9,78,2,779,0)="""RTN"",""ORMTIM02"",40,0)"
^XMB(3.9,78,2,780,0)=" . . . . . S ORZREC8=^OR(100,ORZIEN,8,ORZSUB,0)"
^XMB(3.9,78,2,781,0)="""RTN"",""ORMTIM02"",41,0)"
^XMB(3.9,78,2,782,0)=" . . . . . S ORZSIGDT=$P(ORZREC8,U,6) I $L(ORZSIGDT)>0 Q  ; Can't have a sign date/time"
^XMB(3.9,78,2,783,0)="""RTN"",""ORMTIM02"",42,0)"
^XMB(3.9,78,2,784,0)=" . . . . . S ORZSTS=$P(ORZREC8,U,4) I ORZSTS'=2 Q  ; must be in an unsigned state"
^XMB(3.9,78,2,785,0)="""RTN"",""ORMTIM02"",43,0)"
^XMB(3.9,78,2,786,0)=" . . . . . S ORZWHEN=$P(ORZREC8,U) I ORZWHEN>ORZTIME Q  ; must have been unsigned for MINTIME"
^XMB(3.9,78,2,787,0)="""RTN"",""ORMTIM02"",44,0)"
^XMB(3.9,78,2,788,0)=" . . . . . S ORBDFN=+ORZPAT"
^XMB(3.9,78,2,789,0)="""RTN"",""ORMTIM02"",45,0)"
^XMB(3.9,78,2,790,0)=" . . . . . S ORNUM=ORZIEN_"";""_ORZSUB"
^XMB(3.9,78,2,791,0)="""RTN"",""ORMTIM02"",46,0)"
^XMB(3.9,78,2,792,0)=" . . . . . I $$NEEDALRT($P(ORZREC8,U,3),ORBDFN,ORNUM) D  ; must not have already generated an alert"
^XMB(3.9,78,2,793,0)="""RTN"",""ORMTIM02"",47,0)"
^XMB(3.9,78,2,794,0)=" . . . . . . S (ORBADUZ,ORBPMSG,ORBPDATA)="""""
^XMB(3.9,78,2,795,0)="""RTN"",""ORMTIM02"",48,0)"
^XMB(3.9,78,2,796,0)=" . . . . . . D DOALERT^ORB3"
^XMB(3.9,78,2,797,0)="""RTN"",""ORMTIM02"",49,0)"
^XMB(3.9,78,2,798,0)=" . . . . . . D MARK(ORNUM) ; Alert sent, don't send another one"
^XMB(3.9,78,2,799,0)="""RTN"",""ORMTIM02"",50,0)"
^XMB(3.9,78,2,800,0)=" D CLEAN"
^XMB(3.9,78,2,801,0)="""RTN"",""ORMTIM02"",51,0)"
^XMB(3.9,78,2,802,0)=" Q"
^XMB(3.9,78,2,803,0)="""RTN"",""ORMTIM02"",52,0)"
^XMB(3.9,78,2,804,0)=" ;"
^XMB(3.9,78,2,805,0)="""RTN"",""ORMTIM02"",53,0)"
^XMB(3.9,78,2,806,0)="NEEDALRT(PROVIDER,DFN,ORNUM) ; Returns true if order needs an alert"
^XMB(3.9,78,2,807,0)="""RTN"",""ORMTIM02"",54,0)"
^XMB(3.9,78,2,808,0)=" ;"
^XMB(3.9,78,2,809,0)="""RTN"",""ORMTIM02"",55,0)"
^XMB(3.9,78,2,810,0)=" I $$MARKED(ORNUM) Q 0 ; If already checked, return"
^XMB(3.9,78,2,811,0)="""RTN"",""ORMTIM02"",56,0)"
^XMB(3.9,78,2,812,0)=" ;"
^XMB(3.9,78,2,813,0)="""RTN"",""ORMTIM02"",57,0)"
^XMB(3.9,78,2,814,0)=" N RESULT,SUROGATE"
^XMB(3.9,78,2,815,0)="""RTN"",""ORMTIM02"",58,0)"
^XMB(3.9,78,2,816,0)=" S RESULT=1"
^XMB(3.9,78,2,817,0)="""RTN"",""ORMTIM02"",59,0)"
^XMB(3.9,78,2,818,0)=" I $$HASALERT(PROVIDER,DFN) S RESULT=0 I 1"
^XMB(3.9,78,2,819,0)="""RTN"",""ORMTIM02"",60,0)"
^XMB(3.9,78,2,820,0)=" E  D"
^XMB(3.9,78,2,821,0)="""RTN"",""ORMTIM02"",61,0)"
^XMB(3.9,78,2,822,0)=" . S SUROGATE=$P($$GETSURO^XQALSURO(PROVIDER),U,1)"
^XMB(3.9,78,2,823,0)="""RTN"",""ORMTIM02"",62,0)"
^XMB(3.9,78,2,824,0)=" . I +SUROGATE,$$HASALERT(SUROGATE,DFN) S RESULT=0"
^XMB(3.9,78,2,825,0)="""RTN"",""ORMTIM02"",63,0)"
^XMB(3.9,78,2,826,0)=" I 'RESULT D MARK(ORNUM)"
^XMB(3.9,78,2,827,0)="""RTN"",""ORMTIM02"",64,0)"
^XMB(3.9,78,2,828,0)=" Q RESULT"
^XMB(3.9,78,2,829,0)="""RTN"",""ORMTIM02"",65,0)"
^XMB(3.9,78,2,830,0)=" ;"
^XMB(3.9,78,2,831,0)="""RTN"",""ORMTIM02"",66,0)"
^XMB(3.9,78,2,832,0)="HASALERT(USER,PATIENT) ; Returns true if alert exists for user and patient"
^XMB(3.9,78,2,833,0)="""RTN"",""ORMTIM02"",67,0)"
^XMB(3.9,78,2,834,0)=" N RESULT,ALERTID,DATE"
^XMB(3.9,78,2,835,0)="""RTN"",""ORMTIM02"",68,0)"
^XMB(3.9,78,2,836,0)=" S RESULT=0,ALERTID=""OR,""_PATIENT_"",12"""
^XMB(3.9,78,2,837,0)="""RTN"",""ORMTIM02"",69,0)"
^XMB(3.9,78,2,838,0)=" I $D(^XTV(8992,""AXQAN"",ALERTID,USER)) D  ;DBIA# 2689"
^XMB(3.9,78,2,839,0)="""RTN"",""ORMTIM02"",70,0)"
^XMB(3.9,78,2,840,0)=" . S DATE=$O(^XTV(8992,""AXQAN"",ALERTID,USER,0))"
^XMB(3.9,78,2,841,0)="""RTN"",""ORMTIM02"",71,0)"
^XMB(3.9,78,2,842,0)=" . I $G(DATE)>0 S RESULT=1"
^XMB(3.9,78,2,843,0)="""RTN"",""ORMTIM02"",72,0)"
^XMB(3.9,78,2,844,0)=" Q RESULT"
^XMB(3.9,78,2,845,0)="""RTN"",""ORMTIM02"",73,0)"
^XMB(3.9,78,2,846,0)=" ;"
^XMB(3.9,78,2,847,0)="""RTN"",""ORMTIM02"",74,0)"
^XMB(3.9,78,2,848,0)="MARKED(ORNUM) ; Returns true if the order has been marked as not needing an alert"
^XMB(3.9,78,2,849,0)="""RTN"",""ORMTIM02"",75,0)"
^XMB(3.9,78,2,850,0)=" I $D(^XTMP(ORMARKID,""A"",ORNUM))>0 Q 1"
^XMB(3.9,78,2,851,0)="""RTN"",""ORMTIM02"",76,0)"
^XMB(3.9,78,2,852,0)=" Q 0"
^XMB(3.9,78,2,853,0)="""RTN"",""ORMTIM02"",77,0)"
^XMB(3.9,78,2,854,0)=" ; "
^XMB(3.9,78,2,855,0)="""RTN"",""ORMTIM02"",78,0)"
^XMB(3.9,78,2,856,0)="MARK(ORNUM) ; Marks an order as already having been alerted"
^XMB(3.9,78,2,857,0)="""RTN"",""ORMTIM02"",79,0)"
^XMB(3.9,78,2,858,0)=" S ^XTMP(ORMARKID,""A"",ORNUM)="""""
^XMB(3.9,78,2,859,0)="""RTN"",""ORMTIM02"",80,0)"
^XMB(3.9,78,2,860,0)=" S ^XTMP(ORMARKID,""B"",ORZPURGE,ORNUM)="""""
^XMB(3.9,78,2,861,0)="""RTN"",""ORMTIM02"",81,0)"
^XMB(3.9,78,2,862,0)=" Q"
^XMB(3.9,78,2,863,0)="""RTN"",""ORMTIM02"",82,0)"
^XMB(3.9,78,2,864,0)="CLEAN ; Clean up old entries in ^XTMP"
^XMB(3.9,78,2,865,0)="""RTN"",""ORMTIM02"",83,0)"
^XMB(3.9,78,2,866,0)=" N IDX,ORNUM"
^XMB(3.9,78,2,867,0)="""RTN"",""ORMTIM02"",84,0)"
^XMB(3.9,78,2,868,0)=" S IDX=0"
^XMB(3.9,78,2,869,0)="""RTN"",""ORMTIM02"",85,0)"
^XMB(3.9,78,2,870,0)=" F  S IDX=$O(^XTMP(ORMARKID,""B"",IDX)) Q:((+IDX=0)!(IDX>ORZNOW))  D"
^XMB(3.9,78,2,871,0)="""RTN"",""ORMTIM02"",86,0)"
^XMB(3.9,78,2,872,0)=" . S ORNUM=0"
^XMB(3.9,78,2,873,0)="""RTN"",""ORMTIM02"",87,0)"
^XMB(3.9,78,2,874,0)=" . F  S ORNUM=$O(^XTMP(ORMARKID,""B"",IDX,ORNUM)) Q:+ORNUM=0  D"
^XMB(3.9,78,2,875,0)="""RTN"",""ORMTIM02"",88,0)"
^XMB(3.9,78,2,876,0)=" . . K ^XTMP(ORMARKID,""A"",ORNUM)"
^XMB(3.9,78,2,877,0)="""RTN"",""ORMTIM02"",89,0)"
^XMB(3.9,78,2,878,0)=" . . K ^XTMP(ORMARKID,""B"",IDX,ORNUM)"
^XMB(3.9,78,2,879,0)="""RTN"",""ORMTIM02"",90,0)"
^XMB(3.9,78,2,880,0)=" Q"
^XMB(3.9,78,2,881,0)="""RTN"",""ORMTIME"")"
^XMB(3.9,78,2,882,0)="0^1^B9171622^B9053145"
^XMB(3.9,78,2,883,0)="""RTN"",""ORMTIME"",1,0)"
^XMB(3.9,78,2,884,0)="ORMTIME ; SLC/RJS - PROCESS TIME BASED EVENT ;9/29/99  09:35 [2/1/00 9:30am]"
^XMB(3.9,78,2,885,0)="""RTN"",""ORMTIME"",2,0)"
^XMB(3.9,78,2,886,0)=" ;;3.0;ORDER ENTRY/RESULTS REPORTING;**40,253**;Dec 17, 1997"
^XMB(3.9,78,2,887,0)="""RTN"",""ORMTIME"",3,0)"
^XMB(3.9,78,2,888,0)=" ;"
^XMB(3.9,78,2,889,0)="""RTN"",""ORMTIME"",4,0)"
^XMB(3.9,78,2,890,0)="EN ; Main entry tag."
^XMB(3.9,78,2,891,0)="""RTN"",""ORMTIME"",5,0)"
^XMB(3.9,78,2,892,0)=" ;"
^XMB(3.9,78,2,893,0)="""RTN"",""ORMTIME"",6,0)"
^XMB(3.9,78,2,894,0)=" N OCXPSDT,OCXZTSK,OCXERR,OCXORMTR,OCXSTDT,OCXLOCK,OCXPAR"
^XMB(3.9,78,2,895,0)="""RTN"",""ORMTIME"",7,0)"
^XMB(3.9,78,2,896,0)=" K ^TMP(""OCXORMTIME"",$J)"
^XMB(3.9,78,2,897,0)="""RTN"",""ORMTIME"",8,0)"
^XMB(3.9,78,2,898,0)=" S OCXLOCK=0"
^XMB(3.9,78,2,899,0)="""RTN"",""ORMTIME"",9,0)"
^XMB(3.9,78,2,900,0)=" S OCXORMTR=""ORMTIME: Startup"""
^XMB(3.9,78,2,901,0)="""RTN"",""ORMTIME"",10,0)"
^XMB(3.9,78,2,902,0)=" S OCXSTDT=$$EDATE($$IDATE(""NOW""))"
^XMB(3.9,78,2,903,0)="""RTN"",""ORMTIME"",11,0)"
^XMB(3.9,78,2,904,0)=" S ^TMP(""OCXORMTIME"",$J,""STATUS"")=""ORMTIME: Attempting to lock ^OR(100,""""AE"""") at ""_OCXSTDT_""."""
^XMB(3.9,78,2,905,0)="""RTN"",""ORMTIME"",12,0)"
^XMB(3.9,78,2,906,0)=" L +^OR(100,""AE""):10"
^XMB(3.9,78,2,907,0)="""RTN"",""ORMTIME"",13,0)"
^XMB(3.9,78,2,908,0)=" I  D"
^XMB(3.9,78,2,909,0)="""RTN"",""ORMTIME"",14,0)"
^XMB(3.9,78,2,910,0)=" .S OCXLOCK=1"
^XMB(3.9,78,2,911,0)="""RTN"",""ORMTIME"",15,0)"
^XMB(3.9,78,2,912,0)=" .D SCAN"
^XMB(3.9,78,2,913,0)="""RTN"",""ORMTIME"",16,0)"
^XMB(3.9,78,2,914,0)=" .L -^OR(100,""AE"")"
^XMB(3.9,78,2,915,0)="""RTN"",""ORMTIME"",17,0)"
^XMB(3.9,78,2,916,0)=" .K ^TMP(""OCXORMTIME"")"
^XMB(3.9,78,2,917,0)="""RTN"",""ORMTIME"",18,0)"
^XMB(3.9,78,2,918,0)=" .S OCXPAR=$$IDATE2(""NOW"")"
^XMB(3.9,78,2,919,0)="""RTN"",""ORMTIME"",19,0)"
^XMB(3.9,78,2,920,0)=" .D PUT^XPAR(""SYS"",""ORM ORMTIME LAST RUN"",1,OCXPAR,.OCXERR)"
^XMB(3.9,78,2,921,0)="""RTN"",""ORMTIME"",20,0)"
^XMB(3.9,78,2,922,0)=" S:'OCXLOCK ^TMP(""OCXORMTIME"",$J,""STATUS"")=""ORMTIME: Unable to lock ^OR(100,""""AE"""") at ""_OCXSTDT_"" attempt."""
^XMB(3.9,78,2,923,0)="""RTN"",""ORMTIME"",21,0)"
^XMB(3.9,78,2,924,0)=" Q"
^XMB(3.9,78,2,925,0)="""RTN"",""ORMTIME"",22,0)"
^XMB(3.9,78,2,926,0)=" ;"
^XMB(3.9,78,2,927,0)="""RTN"",""ORMTIME"",23,0)"
^XMB(3.9,78,2,928,0)="SCAN ; Call ORMTIM01 for order checking, etc.  ORMTIM02 for misc time based tasks"
^XMB(3.9,78,2,929,0)="""RTN"",""ORMTIME"",24,0)"
^XMB(3.9,78,2,930,0)=" ;"
^XMB(3.9,78,2,931,0)="""RTN"",""ORMTIME"",25,0)"
^XMB(3.9,78,2,932,0)=" D SCAN^ORMTIM01"
^XMB(3.9,78,2,933,0)="""RTN"",""ORMTIME"",26,0)"
^XMB(3.9,78,2,934,0)=" D MISC^ORMTIM02"
^XMB(3.9,78,2,935,0)="""RTN"",""ORMTIME"",27,0)"
^XMB(3.9,78,2,936,0)=" Q"
^XMB(3.9,78,2,937,0)="""RTN"",""ORMTIME"",28,0)"
^XMB(3.9,78,2,938,0)=" ;"
^XMB(3.9,78,2,939,0)="""RTN"",""ORMTIME"",29,0)"
^XMB(3.9,78,2,940,0)="EDATE(Y) X ^DD(""DD"") S:(Y[""@"") Y=$P(Y,""@"",1)_"" at ""_$P(Y,""@"",2) Q Y"
^XMB(3.9,78,2,941,0)="""RTN"",""ORMTIME"",30,0)"
^XMB(3.9,78,2,942,0)=" ;"
^XMB(3.9,78,2,943,0)="""RTN"",""ORMTIME"",31,0)"
^XMB(3.9,78,2,944,0)="IDATE(X) N %DT,Y S %DT=""F"" D ^%DT Q Y"
^XMB(3.9,78,2,945,0)="""RTN"",""ORMTIME"",32,0)"
^XMB(3.9,78,2,946,0)=" ;"
^XMB(3.9,78,2,947,0)="""RTN"",""ORMTIME"",33,0)"
^XMB(3.9,78,2,948,0)="IDATE2(X) N %DT,Y S %DT=""TF"" D ^%DT Q Y"
^XMB(3.9,78,2,949,0)="""RTN"",""ORMTIME"",34,0)"
^XMB(3.9,78,2,950,0)=" ;"
^XMB(3.9,78,2,951,0)="""RTN"",""ORMTIME"",35,0)"
^XMB(3.9,78,2,952,0)="REQUEUE(ORMQT) ; Code formerly queued ORMTIME tasks in Taskman."
^XMB(3.9,78,2,953,0)="""RTN"",""ORMTIME"",36,0)"
^XMB(3.9,78,2,954,0)=" ;"
^XMB(3.9,78,2,955,0)="""RTN"",""ORMTIME"",37,0)"
^XMB(3.9,78,2,956,0)=" ; (This tag kept for compatibility with outside calls.)"
^XMB(3.9,78,2,957,0)="""RTN"",""ORMTIME"",38,0)"
^XMB(3.9,78,2,958,0)=" ;"
^XMB(3.9,78,2,959,0)="""RTN"",""ORMTIME"",39,0)"
^XMB(3.9,78,2,960,0)=" Q"
^XMB(3.9,78,2,961,0)="""RTN"",""ORMTIME"",40,0)"
^XMB(3.9,78,2,962,0)=" ;"
^XMB(3.9,78,2,963,0)="""RTN"",""ORMTIME"",41,0)"
^XMB(3.9,78,2,964,0)="STATUS ; Check status of last ORMTIME run. "
^XMB(3.9,78,2,965,0)="""RTN"",""ORMTIME"",42,0)"
^XMB(3.9,78,2,966,0)=" ;"
^XMB(3.9,78,2,967,0)="""RTN"",""ORMTIME"",43,0)"
^XMB(3.9,78,2,968,0)=" N ORMLAST"
^XMB(3.9,78,2,969,0)="""RTN"",""ORMTIME"",44,0)"
^XMB(3.9,78,2,970,0)=" ;"
^XMB(3.9,78,2,971,0)="""RTN"",""ORMTIME"",45,0)"
^XMB(3.9,78,2,972,0)=" ; Get date/time of last ORMTIME run:"
^XMB(3.9,78,2,973,0)="""RTN"",""ORMTIME"",46,0)"
^XMB(3.9,78,2,974,0)=" S ORMLAST=$$GET^XPAR(""SYS"",""ORM ORMTIME LAST RUN"",1,""I"")"
^XMB(3.9,78,2,975,0)="""RTN"",""ORMTIME"",47,0)"
^XMB(3.9,78,2,976,0)=" S ORMLAST=$$EDATE(ORMLAST) ; Convert to external format for display."
^XMB(3.9,78,2,977,0)="""RTN"",""ORMTIME"",48,0)"
^XMB(3.9,78,2,978,0)=" ;"
^XMB(3.9,78,2,979,0)="""RTN"",""ORMTIME"",49,0)"
^XMB(3.9,78,2,980,0)=" ; Present information to user:"
^XMB(3.9,78,2,981,0)="""RTN"",""ORMTIME"",50,0)"
^XMB(3.9,78,2,982,0)=" W !"
^XMB(3.9,78,2,983,0)="""RTN"",""ORMTIME"",51,0)"
^XMB(3.9,78,2,984,0)=" W !,""     ORMTIME last ran ""_ORMLAST_""."""
^XMB(3.9,78,2,985,0)="""RTN"",""ORMTIME"",52,0)"
^XMB(3.9,78,2,986,0)=" W !"
^XMB(3.9,78,2,987,0)="""RTN"",""ORMTIME"",53,0)"
^XMB(3.9,78,2,988,0)=" ;"
^XMB(3.9,78,2,989,0)="""RTN"",""ORMTIME"",54,0)"
^XMB(3.9,78,2,990,0)=" Q"
^XMB(3.9,78,2,991,0)="""RTN"",""ORMTIME"",55,0)"
^XMB(3.9,78,2,992,0)=" ;"
^XMB(3.9,78,2,993,0)="""RTN"",""ORMTIME"",56,0)"
^XMB(3.9,78,2,994,0)="BULL ; Send a bulletin if ORMTIME's last run is greater than 24 hours."
^XMB(3.9,78,2,995,0)="""RTN"",""ORMTIME"",57,0)"
^XMB(3.9,78,2,996,0)=" ;"
^XMB(3.9,78,2,997,0)="""RTN"",""ORMTIME"",58,0)"
^XMB(3.9,78,2,998,0)=" N DIC,ORMMSG,X,XMSUB,XMTEXT,XMY,XMZ,Y,ORMLAST"
^XMB(3.9,78,2,999,0)="""RTN"",""ORMTIME"",59,0)"
^XMB(3.9,78,2,1000,0)=" ;"
^XMB(3.9,78,2,1001,0)="""RTN"",""ORMTIME"",60,0)"
^XMB(3.9,78,2,1002,0)=" ; Don't send bulletin if ORMTIME STATUS mail group does not exist:"
^XMB(3.9,78,2,1003,0)="""RTN"",""ORMTIME"",61,0)"
^XMB(3.9,78,2,1004,0)=" S DIC=3.8,DIC(0)="""",X=""ORMTIME STATUS"""
^XMB(3.9,78,2,1005,0)="""RTN"",""ORMTIME"",62,0)"
^XMB(3.9,78,2,1006,0)=" D ^DIC Q:(+Y<0)"
^XMB(3.9,78,2,1007,0)="""RTN"",""ORMTIME"",63,0)"
^XMB(3.9,78,2,1008,0)=" ;"
^XMB(3.9,78,2,1009,0)="""RTN"",""ORMTIME"",64,0)"
^XMB(3.9,78,2,1010,0)=" S ORMLAST=$$GET^XPAR(""SYS"",""ORM ORMTIME LAST RUN"",1,""I"")"
^XMB(3.9,78,2,1011,0)="""RTN"",""ORMTIME"",65,0)"
^XMB(3.9,78,2,1012,0)=" I $$FMDIFF^XLFDT($$IDATE2(""NOW""),ORMLAST,2)>86400  D"
^XMB(3.9,78,2,1013,0)="""RTN"",""ORMTIME"",66,0)"
^XMB(3.9,78,2,1014,0)=" .S XMY(""G.ORMTIME STATUS"")="""""
^XMB(3.9,78,2,1015,0)="""RTN"",""ORMTIME"",67,0)"
^XMB(3.9,78,2,1016,0)=" .S XMSUB="" ORMTIME Warning"""
^XMB(3.9,78,2,1017,0)="""RTN"",""ORMTIME"",68,0)"
^XMB(3.9,78,2,1018,0)=" .S ORMMSG(1,0)="" """
^XMB(3.9,78,2,1019,0)="""RTN"",""ORMTIME"",69,0)"
^XMB(3.9,78,2,1020,0)=" .S ORMMSG(2,0)=""    The ORMTIME process last ran more than 24 hours ago. """
^XMB(3.9,78,2,1021,0)="""RTN"",""ORMTIME"",70,0)"
^XMB(3.9,78,2,1022,0)=" .S ORMMSG(3,0)="" """
^XMB(3.9,78,2,1023,0)="""RTN"",""ORMTIME"",71,0)"
^XMB(3.9,78,2,1024,0)=" .S ORMMSG(4,0)="" The ORMTIME background job handles activating and expiring orders,"""
^XMB(3.9,78,2,1025,0)="""RTN"",""ORMTIME"",72,0)"
^XMB(3.9,78,2,1026,0)=" .S ORMMSG(5,0)="" some time based notifications, as well as purging of temporary CPRS"""
^XMB(3.9,78,2,1027,0)="""RTN"",""ORMTIME"",73,0)"
^XMB(3.9,78,2,1028,0)=" .S ORMMSG(6,0)="" data. It is important that it runs regularly."""
^XMB(3.9,78,2,1029,0)="""RTN"",""ORMTIME"",74,0)"
^XMB(3.9,78,2,1030,0)=" .S ORMMSG(7,0)="" """
^XMB(3.9,78,2,1031,0)="""RTN"",""ORMTIME"",75,0)"
^XMB(3.9,78,2,1032,0)=" .S ORMMSG(8,0)=""    Assure that the scheduled option, ORMTIME RUN, is correctly implemented."""
^XMB(3.9,78,2,1033,0)="""RTN"",""ORMTIME"",76,0)"
^XMB(3.9,78,2,1034,0)=" .S ORMMSG(9,0)="" """
^XMB(3.9,78,2,1035,0)="""RTN"",""ORMTIME"",77,0)"
^XMB(3.9,78,2,1036,0)=" .S XMTEXT=""ORMMSG("""
^XMB(3.9,78,2,1037,0)="""RTN"",""ORMTIME"",78,0)"
^XMB(3.9,78,2,1038,0)=" .D ^XMD"
^XMB(3.9,78,2,1039,0)="""RTN"",""ORMTIME"",79,0)"
^XMB(3.9,78,2,1040,0)=" Q"
^XMB(3.9,78,2,1041,0)="""RTN"",""ORMTIME"",80,0)"
^XMB(3.9,78,2,1042,0)=" ;"
^XMB(3.9,78,2,1043,0)="""RTN"",""ORMTIMST"")"
^XMB(3.9,78,2,1044,0)="0^8^B17732442^n/a"
^XMB(3.9,78,2,1045,0)="""RTN"",""ORMTIMST"",1,0)"
^XMB(3.9,78,2,1046,0)="ORMTIMST ; JM/SLC-ISC - ORMTIME STATUS ROUTINES ;06/06/2006"
^XMB(3.9,78,2,1047,0)="""RTN"",""ORMTIMST"",2,0)"
^XMB(3.9,78,2,1048,0)=" ;;3.0;ORDER ENTRY/RESULTS REPORTING;**253**;Dec 17, 1997"
^XMB(3.9,78,2,1049,0)="""RTN"",""ORMTIMST"",3,0)"
^XMB(3.9,78,2,1050,0)=" ;"
^XMB(3.9,78,2,1051,0)="""RTN"",""ORMTIMST"",4,0)"
^XMB(3.9,78,2,1052,0)="EN ; Pre-install environment check - will ORMTIME run in the next 5 minutes?"
^XMB(3.9,78,2,1053,0)="""RTN"",""ORMTIMST"",5,0)"
^XMB(3.9,78,2,1054,0)=" ;"
^XMB(3.9,78,2,1055,0)="""RTN"",""ORMTIMST"",6,0)"
^XMB(3.9,78,2,1056,0)=" D ENVCHECK(5)"
^XMB(3.9,78,2,1057,0)="""RTN"",""ORMTIMST"",7,0)"
^XMB(3.9,78,2,1058,0)=" Q"
^XMB(3.9,78,2,1059,0)="""RTN"",""ORMTIMST"",8,0)"
^XMB(3.9,78,2,1060,0)=" ;"
^XMB(3.9,78,2,1061,0)="""RTN"",""ORMTIMST"",9,0)"
^XMB(3.9,78,2,1062,0)="RUNNING() ; Checks to see if ORMTIME is running"
^XMB(3.9,78,2,1063,0)="""RTN"",""ORMTIMST"",10,0)"
^XMB(3.9,78,2,1064,0)=" L +^OR(100,""AE""):2 I $T L -^OR(100,""AE"") Q 0"
^XMB(3.9,78,2,1065,0)="""RTN"",""ORMTIMST"",11,0)"
^XMB(3.9,78,2,1066,0)=" Q 1"
^XMB(3.9,78,2,1067,0)="""RTN"",""ORMTIMST"",12,0)"
^XMB(3.9,78,2,1068,0)=" ;"
^XMB(3.9,78,2,1069,0)="""RTN"",""ORMTIMST"",13,0)"
^XMB(3.9,78,2,1070,0)="NEXTRUN() ; Number of minutes before the next scheduled run of ORMTIME. - returns in format MINUTES:SECONDS"
^XMB(3.9,78,2,1071,0)="""RTN"",""ORMTIMST"",14,0)"
^XMB(3.9,78,2,1072,0)=" ;  If past scheduled time, but within the last 10 minutes, returns 0 (give TaskMan time to invoke it)"
^XMB(3.9,78,2,1073,0)="""RTN"",""ORMTIMST"",15,0)"
^XMB(3.9,78,2,1074,0)=" ;  If -1, unable to determine value"
^XMB(3.9,78,2,1075,0)="""RTN"",""ORMTIMST"",16,0)"
^XMB(3.9,78,2,1076,0)=" N RESULT,ORY,I,SCHDT,NOWDT,DIFFDT,MAX,DELAY,SEC,MIN,PASTDUE"
^XMB(3.9,78,2,1077,0)="""RTN"",""ORMTIMST"",17,0)"
^XMB(3.9,78,2,1078,0)=" S MAX=9999999"
^XMB(3.9,78,2,1079,0)="""RTN"",""ORMTIMST"",18,0)"
^XMB(3.9,78,2,1080,0)=" S RESULT=MAX"
^XMB(3.9,78,2,1081,0)="""RTN"",""ORMTIMST"",19,0)"
^XMB(3.9,78,2,1082,0)=" S DELAY=10 ; Give Taskman 10 minutes to invoke ORMTIME"
^XMB(3.9,78,2,1083,0)="""RTN"",""ORMTIMST"",20,0)"
^XMB(3.9,78,2,1084,0)=" S NOWDT=$$NOW^XLFDT"
^XMB(3.9,78,2,1085,0)="""RTN"",""ORMTIMST"",21,0)"
^XMB(3.9,78,2,1086,0)=" S PASTDUE=$$FMADD^XLFDT(NOWDT,0,0,-DELAY,0)"
^XMB(3.9,78,2,1087,0)="""RTN"",""ORMTIMST"",22,0)"
^XMB(3.9,78,2,1088,0)=" D OPTSTAT^XUTMOPT(""ORMTIME RUN"",.ORY)  ; get option schedule info IA# 1472"
^XMB(3.9,78,2,1089,0)="""RTN"",""ORMTIMST"",23,0)"
^XMB(3.9,78,2,1090,0)=" F I=1:1:ORY D  Q:(RESULT=0)"
^XMB(3.9,78,2,1091,0)="""RTN"",""ORMTIMST"",24,0)"
^XMB(3.9,78,2,1092,0)=" . S SCHDT=$P(ORY(I),U,2)  ; next scheduled ORMTIME run time"
^XMB(3.9,78,2,1093,0)="""RTN"",""ORMTIMST"",25,0)"
^XMB(3.9,78,2,1094,0)=" . S DIFFDT=$$FMDIFF^XLFDT(SCHDT,NOWDT,2)"
^XMB(3.9,78,2,1095,0)="""RTN"",""ORMTIMST"",26,0)"
^XMB(3.9,78,2,1096,0)=" . I DIFFDT<0 D  Q"
^XMB(3.9,78,2,1097,0)="""RTN"",""ORMTIMST"",27,0)"
^XMB(3.9,78,2,1098,0)=" . . I SCHDT>PASTDUE S RESULT=0"
^XMB(3.9,78,2,1099,0)="""RTN"",""ORMTIMST"",28,0)"
^XMB(3.9,78,2,1100,0)=" . I RESULT>DIFFDT S RESULT=DIFFDT"
^XMB(3.9,78,2,1101,0)="""RTN"",""ORMTIMST"",29,0)"
^XMB(3.9,78,2,1102,0)=" I RESULT=MAX S RESULT=-1"
^XMB(3.9,78,2,1103,0)="""RTN"",""ORMTIMST"",30,0)"
^XMB(3.9,78,2,1104,0)=" I RESULT>0 D"
^XMB(3.9,78,2,1105,0)="""RTN"",""ORMTIMST"",31,0)"
^XMB(3.9,78,2,1106,0)=" . S SEC=RESULT#60,MIN=RESULT\60"
^XMB(3.9,78,2,1107,0)="""RTN"",""ORMTIMST"",32,0)"
^XMB(3.9,78,2,1108,0)=" . I SEC<10 S SEC=""0""_SEC"
^XMB(3.9,78,2,1109,0)="""RTN"",""ORMTIMST"",33,0)"
^XMB(3.9,78,2,1110,0)=" . S RESULT=MIN_"":""_SEC"
^XMB(3.9,78,2,1111,0)="""RTN"",""ORMTIMST"",34,0)"
^XMB(3.9,78,2,1112,0)=" Q RESULT"
^XMB(3.9,78,2,1113,0)="""RTN"",""ORMTIMST"",35,0)"
^XMB(3.9,78,2,1114,0)=" ;"
^XMB(3.9,78,2,1115,0)="""RTN"",""ORMTIMST"",36,0)"
^XMB(3.9,78,2,1116,0)="ENVCHECK(MINUTES) ; Environment check to see if ORMTIME is running, or will run in the next few minutes"
^XMB(3.9,78,2,1117,0)="""RTN"",""ORMTIMST"",37,0)"
^XMB(3.9,78,2,1118,0)=" ;"
^XMB(3.9,78,2,1119,0)="""RTN"",""ORMTIMST"",38,0)"
^XMB(3.9,78,2,1120,0)=" I '+$G(XPDENV) Q  ; Don't evaluate during the global load - just when actually installing"
^XMB(3.9,78,2,1121,0)="""RTN"",""ORMTIMST"",39,0)"
^XMB(3.9,78,2,1122,0)=" N KIDS"
^XMB(3.9,78,2,1123,0)="""RTN"",""ORMTIMST"",40,0)"
^XMB(3.9,78,2,1124,0)=" S KIDS=1"
^XMB(3.9,78,2,1125,0)="""RTN"",""ORMTIMST"",41,0)"
^XMB(3.9,78,2,1126,0)=" G ENVMAIN"
^XMB(3.9,78,2,1127,0)="""RTN"",""ORMTIMST"",42,0)"
^XMB(3.9,78,2,1128,0)=" ;"
^XMB(3.9,78,2,1129,0)="""RTN"",""ORMTIMST"",43,0)"
^XMB(3.9,78,2,1130,0)="ENVTEST(MINUTES) ; Run for testing purposes only"
^XMB(3.9,78,2,1131,0)="""RTN"",""ORMTIMST"",44,0)"
^XMB(3.9,78,2,1132,0)=" N KIDS"
^XMB(3.9,78,2,1133,0)="""RTN"",""ORMTIMST"",45,0)"
^XMB(3.9,78,2,1134,0)=" S KIDS=0"
^XMB(3.9,78,2,1135,0)="""RTN"",""ORMTIMST"",46,0)"
^XMB(3.9,78,2,1136,0)=" ;"
^XMB(3.9,78,2,1137,0)="""RTN"",""ORMTIMST"",47,0)"
^XMB(3.9,78,2,1138,0)="ENVMAIN ;"
^XMB(3.9,78,2,1139,0)="""RTN"",""ORMTIMST"",48,0)"
^XMB(3.9,78,2,1140,0)=" N I,RUNNING,MSG,CHKSOON,SOON,COUNT,NEXT,STARTMSG"
^XMB(3.9,78,2,1141,0)="""RTN"",""ORMTIMST"",49,0)"
^XMB(3.9,78,2,1142,0)=" D BOUT(""Checking ORMTIME status..."")"
^XMB(3.9,78,2,1143,0)="""RTN"",""ORMTIMST"",50,0)"
^XMB(3.9,78,2,1144,0)=" S RUNNING=$$RUNNING"
^XMB(3.9,78,2,1145,0)="""RTN"",""ORMTIMST"",51,0)"
^XMB(3.9,78,2,1146,0)=" S CHKSOON=1"
^XMB(3.9,78,2,1147,0)="""RTN"",""ORMTIMST"",52,0)"
^XMB(3.9,78,2,1148,0)=" S MSG=""ORMTIME is """
^XMB(3.9,78,2,1149,0)="""RTN"",""ORMTIMST"",53,0)"
^XMB(3.9,78,2,1150,0)=" I RUNNING S MSG=MSG_""running, waiting for it to finish..."""
^XMB(3.9,78,2,1151,0)="""RTN"",""ORMTIMST"",54,0)"
^XMB(3.9,78,2,1152,0)=" E  S MSG=MSG_""not running."""
^XMB(3.9,78,2,1153,0)="""RTN"",""ORMTIMST"",55,0)"
^XMB(3.9,78,2,1154,0)=" D BOUT(MSG)"
^XMB(3.9,78,2,1155,0)="""RTN"",""ORMTIMST"",56,0)"
^XMB(3.9,78,2,1156,0)=" I RUNNING D"
^XMB(3.9,78,2,1157,0)="""RTN"",""ORMTIMST"",57,0)"
^XMB(3.9,78,2,1158,0)=" . S (COUNT,CHKSOON)=0"
^XMB(3.9,78,2,1159,0)="""RTN"",""ORMTIMST"",58,0)"
^XMB(3.9,78,2,1160,0)=" . F I=1:1:15 D  Q:'RUNNING"
^XMB(3.9,78,2,1161,0)="""RTN"",""ORMTIMST"",59,0)"
^XMB(3.9,78,2,1162,0)=" . . S RUNNING=$$RUNNING"
^XMB(3.9,78,2,1163,0)="""RTN"",""ORMTIMST"",60,0)"
^XMB(3.9,78,2,1164,0)=" . . I RUNNING S COUNT=COUNT+1 I COUNT>2 S COUNT=0 D OUT(""   ORMTIME is still running..."")"
^XMB(3.9,78,2,1165,0)="""RTN"",""ORMTIMST"",61,0)"
^XMB(3.9,78,2,1166,0)=" . I 'RUNNING D"
^XMB(3.9,78,2,1167,0)="""RTN"",""ORMTIMST"",62,0)"
^XMB(3.9,78,2,1168,0)=" . . H 2 ; Wait 2 seconds after the lock is released, to make sure ORMTIME is finished executing"
^XMB(3.9,78,2,1169,0)="""RTN"",""ORMTIMST"",63,0)"
^XMB(3.9,78,2,1170,0)=" . . D OUT(""ORMTIME is done."")"
^XMB(3.9,78,2,1171,0)="""RTN"",""ORMTIMST"",64,0)"
^XMB(3.9,78,2,1172,0)=" I RUNNING D ABORT(""ORMTIME is taking too long to run."") Q"
^XMB(3.9,78,2,1173,0)="""RTN"",""ORMTIMST"",65,0)"
^XMB(3.9,78,2,1174,0)=" ;"
^XMB(3.9,78,2,1175,0)="""RTN"",""ORMTIMST"",66,0)"
^XMB(3.9,78,2,1176,0)=" I CHKSOON D  Q:SOON"
^XMB(3.9,78,2,1177,0)="""RTN"",""ORMTIMST"",67,0)"
^XMB(3.9,78,2,1178,0)=" . D BOUT(""Checking ORMTIME Schedule..."")"
^XMB(3.9,78,2,1179,0)="""RTN"",""ORMTIMST"",68,0)"
^XMB(3.9,78,2,1180,0)=" . S NEXT=$$NEXTRUN"
^XMB(3.9,78,2,1181,0)="""RTN"",""ORMTIMST"",69,0)"
^XMB(3.9,78,2,1182,0)=" . S SOON=1"
^XMB(3.9,78,2,1183,0)="""RTN"",""ORMTIMST"",70,0)"
^XMB(3.9,78,2,1184,0)=" . I (NEXT<0)!(NEXT'<MINUTES) S SOON=0"
^XMB(3.9,78,2,1185,0)="""RTN"",""ORMTIMST"",71,0)"
^XMB(3.9,78,2,1186,0)=" . S MSG=""ORMTIME is """
^XMB(3.9,78,2,1187,0)="""RTN"",""ORMTIMST"",72,0)"
^XMB(3.9,78,2,1188,0)=" . I SOON D  I 1"
^XMB(3.9,78,2,1189,0)="""RTN"",""ORMTIMST"",73,0)"
^XMB(3.9,78,2,1190,0)=" . . I NEXT<1 S STARTMSG=""less than a minute."""
^XMB(3.9,78,2,1191,0)="""RTN"",""ORMTIMST"",74,0)"
^XMB(3.9,78,2,1192,0)=" . . E  S STARTMSG=NEXT_"" minutes."""
^XMB(3.9,78,2,1193,0)="""RTN"",""ORMTIMST"",75,0)"
^XMB(3.9,78,2,1194,0)=" . E  S MSG=MSG_""not "" S STARTMSG=""the next ""_MINUTES_"":00 minutes."""
^XMB(3.9,78,2,1195,0)="""RTN"",""ORMTIMST"",76,0)"
^XMB(3.9,78,2,1196,0)=" . S MSG=MSG_""scheduled to run in ""_STARTMSG"
^XMB(3.9,78,2,1197,0)="""RTN"",""ORMTIMST"",77,0)"
^XMB(3.9,78,2,1198,0)=" . D BOUT(MSG)"
^XMB(3.9,78,2,1199,0)="""RTN"",""ORMTIMST"",78,0)"
^XMB(3.9,78,2,1200,0)=" . I SOON D ABORT(""Too close to ORMTIME's scheduled start time."")"
^XMB(3.9,78,2,1201,0)="""RTN"",""ORMTIMST"",79,0)"
^XMB(3.9,78,2,1202,0)=" D BOUT(""Installation conditions are acceptable, continuing installation..."")"
^XMB(3.9,78,2,1203,0)="""RTN"",""ORMTIMST"",80,0)"
^XMB(3.9,78,2,1204,0)=" Q"
^XMB(3.9,78,2,1205,0)="""RTN"",""ORMTIMST"",81,0)"
^XMB(3.9,78,2,1206,0)=" ;"
^XMB(3.9,78,2,1207,0)="""RTN"",""ORMTIMST"",82,0)"
^XMB(3.9,78,2,1208,0)="ABORT(TXT) ; Send abort message"
^XMB(3.9,78,2,1209,0)="""RTN"",""ORMTIMST"",83,0)"
^XMB(3.9,78,2,1210,0)=" D BOUT(""***********************************"")"
^XMB(3.9,78,2,1211,0)="""RTN"",""ORMTIMST"",84,0)"
^XMB(3.9,78,2,1212,0)=" D OUT(""*****  ABORTING INSTALLATION  *****"")"
^XMB(3.9,78,2,1213,0)="""RTN"",""ORMTIMST"",85,0)"
^XMB(3.9,78,2,1214,0)=" D OUT(""***********************************"")"
^XMB(3.9,78,2,1215,0)="""RTN"",""ORMTIMST"",86,0)"
^XMB(3.9,78,2,1216,0)=" D OUT(TXT)"
^XMB(3.9,78,2,1217,0)="""RTN"",""ORMTIMST"",87,0)"
^XMB(3.9,78,2,1218,0)=" D OUT(""Try installation again after ORMTIME completes."")"
^XMB(3.9,78,2,1219,0)="""RTN"",""ORMTIMST"",88,0)"
^XMB(3.9,78,2,1220,0)=" S XPDQUIT=2  ;abort installation but leave transport global in ^XTMP"
^XMB(3.9,78,2,1221,0)="""RTN"",""ORMTIMST"",89,0)"
^XMB(3.9,78,2,1222,0)=" Q"
^XMB(3.9,78,2,1223,0)="""RTN"",""ORMTIMST"",90,0)"
^XMB(3.9,78,2,1224,0)=" ;"
^XMB(3.9,78,2,1225,0)="""RTN"",""ORMTIMST"",91,0)"
^XMB(3.9,78,2,1226,0)="OUT(TEXT) ; Send output - if run from install, send to MES^XPDUTL"
^XMB(3.9,78,2,1227,0)="""RTN"",""ORMTIMST"",92,0)"
^XMB(3.9,78,2,1228,0)=" I KIDS D MES^XPDUTL(TEXT) I 1"
^XMB(3.9,78,2,1229,0)="""RTN"",""ORMTIMST"",93,0)"
^XMB(3.9,78,2,1230,0)=" E  W TEXT,!"
^XMB(3.9,78,2,1231,0)="""RTN"",""ORMTIMST"",94,0)"
^XMB(3.9,78,2,1232,0)=" Q"
^XMB(3.9,78,2,1233,0)="""RTN"",""ORMTIMST"",95,0)"
^XMB(3.9,78,2,1234,0)="BOUT(TEXT) ; Send output - if run from install, send to BMES^XPDUTL"
^XMB(3.9,78,2,1235,0)="""RTN"",""ORMTIMST"",96,0)"
^XMB(3.9,78,2,1236,0)=" I KIDS D BMES^XPDUTL(TEXT) I 1"
^XMB(3.9,78,2,1237,0)="""RTN"",""ORMTIMST"",97,0)"
^XMB(3.9,78,2,1238,0)=" E  W !,TEXT,!"
^XMB(3.9,78,2,1239,0)="""RTN"",""ORMTIMST"",98,0)"
^XMB(3.9,78,2,1240,0)=" Q"
^XMB(3.9,78,2,1241,0)="""RTN"",""ORMTIMST"",99,0)"
^XMB(3.9,78,2,1242,0)="PRETEST ; test install"
^XMB(3.9,78,2,1243,0)="""RTN"",""ORMTIMST"",100,0)"
^XMB(3.9,78,2,1244,0)=" N KIDS"
^XMB(3.9,78,2,1245,0)="""RTN"",""ORMTIMST"",101,0)"
^XMB(3.9,78,2,1246,0)=" S KIDS=0"
^XMB(3.9,78,2,1247,0)="""RTN"",""ORMTIMST"",102,0)"
^XMB(3.9,78,2,1248,0)=" G PREMAIN"
^XMB(3.9,78,2,1249,0)="""RTN"",""ORMTIMST"",103,0)"
^XMB(3.9,78,2,1250,0)=" ;"
^XMB(3.9,78,2,1251,0)="""RTN"",""ORMTIMST"",104,0)"
^XMB(3.9,78,2,1252,0)="PRECHECK ; Start install - make sure ORMTIME doesn't run while the installation takes place."
^XMB(3.9,78,2,1253,0)="""RTN"",""ORMTIMST"",105,0)"
^XMB(3.9,78,2,1254,0)=" N KIDS"
^XMB(3.9,78,2,1255,0)="""RTN"",""ORMTIMST"",106,0)"
^XMB(3.9,78,2,1256,0)=" S KIDS=1"
^XMB(3.9,78,2,1257,0)="""RTN"",""ORMTIMST"",107,0)"
^XMB(3.9,78,2,1258,0)="PREMAIN ;"
^XMB(3.9,78,2,1259,0)="""RTN"",""ORMTIMST"",108,0)"
^XMB(3.9,78,2,1260,0)=" N COUNT"
^XMB(3.9,78,2,1261,0)="""RTN"",""ORMTIMST"",109,0)"
^XMB(3.9,78,2,1262,0)=" S COUNT=0"
^XMB(3.9,78,2,1263,0)="""RTN"",""ORMTIMST"",110,0)"
^XMB(3.9,78,2,1264,0)=" F  Q:'$$RUNNING  D"
^XMB(3.9,78,2,1265,0)="""RTN"",""ORMTIMST"",111,0)"
^XMB(3.9,78,2,1266,0)=" .  I COUNT=0 D BOUT(""ORMTIME is running.  Install waiting for ORMTIME to finished..."")"
^XMB(3.9,78,2,1267,0)="""RTN"",""ORMTIMST"",112,0)"
^XMB(3.9,78,2,1268,0)=" .  S COUNT=COUNT+1"
^XMB(3.9,78,2,1269,0)="""RTN"",""ORMTIMST"",113,0)"
^XMB(3.9,78,2,1270,0)=" .  I COUNT>4 D OUT(""   ORMTIME is still running..."") S COUNT=1"
^XMB(3.9,78,2,1271,0)="""RTN"",""ORMTIMST"",114,0)"
^XMB(3.9,78,2,1272,0)=" I COUNT>0 H 2 D BOUT(""ORMTIME has finished running, continuing with install..."")"
^XMB(3.9,78,2,1273,0)="""RTN"",""ORMTIMST"",115,0)"
^XMB(3.9,78,2,1274,0)=" D BOUT(""Starting ORMTIME update..."")"
^XMB(3.9,78,2,1275,0)="""RTN"",""ORMTIMST"",116,0)"
^XMB(3.9,78,2,1276,0)=" Q"
^XMB(3.9,78,2,1277,0)="""RTN"",""ORQPTQ11"")"
^XMB(3.9,78,2,1278,0)="0^2^B56815266^B56149817"
^XMB(3.9,78,2,1279,0)="""RTN"",""ORQPTQ11"",1,0)"
^XMB(3.9,78,2,1280,0)="ORQPTQ11 ; SLC/CLA - Functs which return patient lists and sources pt 1B ;12/15/97 [ 08/04/97  3:32 PM ] [6/6/03 2:36pm]"
^XMB(3.9,78,2,1281,0)="""RTN"",""ORQPTQ11"",2,0)"
^XMB(3.9,78,2,1282,0)=" ;;3.0;ORDER ENTRY/RESULTS REPORTING;**82,85,109,132,173,253**;Dec 17, 1997"
^XMB(3.9,78,2,1283,0)="""RTN"",""ORQPTQ11"",3,0)"
^XMB(3.9,78,2,1284,0)=" ;"
^XMB(3.9,78,2,1285,0)="""RTN"",""ORQPTQ11"",4,0)"
^XMB(3.9,78,2,1286,0)=" ; SLC/PKS - Modified to deal with ""Combination"" lists - 3/2000."
^XMB(3.9,78,2,1287,0)="""RTN"",""ORQPTQ11"",5,0)"
^XMB(3.9,78,2,1288,0)=" ; SLC/PKS - Additions for ""Restricted Pt. Lists"" - 11/2001."
^XMB(3.9,78,2,1289,0)="""RTN"",""ORQPTQ11"",6,0)"
^XMB(3.9,78,2,1290,0)=" ;"
^XMB(3.9,78,2,1291,0)="""RTN"",""ORQPTQ11"",7,0)"
^XMB(3.9,78,2,1292,0)="DEFSRC(Y) ; return current user's default list source"
^XMB(3.9,78,2,1293,0)="""RTN"",""ORQPTQ11"",8,0)"
^XMB(3.9,78,2,1294,0)=" Q:'$D(DUZ)"
^XMB(3.9,78,2,1295,0)="""RTN"",""ORQPTQ11"",9,0)"
^XMB(3.9,78,2,1296,0)=" N FROM,API,ORSRV"
^XMB(3.9,78,2,1297,0)="""RTN"",""ORQPTQ11"",10,0)"
^XMB(3.9,78,2,1298,0)=" S ORSRV=$G(^VA(200,DUZ,5)) I +ORSRV>0 S ORSRV=$P(ORSRV,U)"
^XMB(3.9,78,2,1299,0)="""RTN"",""ORQPTQ11"",11,0)"
^XMB(3.9,78,2,1300,0)=" S FROM=$$GET^XPAR(""USR^SRV.`""_+$G(ORSRV),""ORLP DEFAULT LIST SOURCE"",1,""Q"")"
^XMB(3.9,78,2,1301,0)="""RTN"",""ORQPTQ11"",12,0)"
^XMB(3.9,78,2,1302,0)=" Q:'$L($G(FROM))"
^XMB(3.9,78,2,1303,0)="""RTN"",""ORQPTQ11"",13,0)"
^XMB(3.9,78,2,1304,0)=" I FROM=""T"" S Y=$$GET^XPAR(""USR^SRV.`""_+$G(ORSRV),""ORLP DEFAULT TEAM"",1,""B"")_""^Team"""
^XMB(3.9,78,2,1305,0)="""RTN"",""ORQPTQ11"",14,0)"
^XMB(3.9,78,2,1306,0)=" I FROM=""W"" S Y=$$GET^XPAR(""USR^SRV.`""_+$G(ORSRV),""ORLP DEFAULT WARD"",1,""B"")_""^Ward"""
^XMB(3.9,78,2,1307,0)="""RTN"",""ORQPTQ11"",15,0)"
^XMB(3.9,78,2,1308,0)=" I FROM=""P"" S Y=$$GET^XPAR(""USR^SRV.`""_+$G(ORSRV),""ORLP DEFAULT PROVIDER"",1,""B"")_""^Primary Provider"""
^XMB(3.9,78,2,1309,0)="""RTN"",""ORQPTQ11"",16,0)"
^XMB(3.9,78,2,1310,0)=" I FROM=""S"" S Y=$$GET^XPAR(""USR^SRV.`""_+$G(ORSRV),""ORLP DEFAULT SPECIALTY"",1,""B"")_""^Specialty"""
^XMB(3.9,78,2,1311,0)="""RTN"",""ORQPTQ11"",17,0)"
^XMB(3.9,78,2,1312,0)=" I FROM=""C"" D"
^XMB(3.9,78,2,1313,0)="""RTN"",""ORQPTQ11"",18,0)"
^XMB(3.9,78,2,1314,0)=" .S API=""ORLP DEFAULT CLINIC ""_$$UP^XLFSTR($$DOW^XLFDT(DT))"
^XMB(3.9,78,2,1315,0)="""RTN"",""ORQPTQ11"",19,0)"
^XMB(3.9,78,2,1316,0)=" .S Y=$$GET^XPAR(""USR^SRV.`""_+$G(ORSRV),API,1,""B"")_""^""_$$DOW^XLFDT(DT)_"" Clinic"""
^XMB(3.9,78,2,1317,0)="""RTN"",""ORQPTQ11"",20,0)"
^XMB(3.9,78,2,1318,0)=" I FROM=""M"" S Y=""^Combination"""
^XMB(3.9,78,2,1319,0)="""RTN"",""ORQPTQ11"",21,0)"
^XMB(3.9,78,2,1320,0)=" Q"
^XMB(3.9,78,2,1321,0)="""RTN"",""ORQPTQ11"",22,0)"
^XMB(3.9,78,2,1322,0)="FDEFSRC(ORDUZ) ; extrinsic function return user's (ORDUZ) default list source"
^XMB(3.9,78,2,1323,0)="""RTN"",""ORQPTQ11"",23,0)"
^XMB(3.9,78,2,1324,0)=" Q:'$D(ORDUZ) ""^^Error: No user identified"""
^XMB(3.9,78,2,1325,0)="""RTN"",""ORQPTQ11"",24,0)"
^XMB(3.9,78,2,1326,0)=" N FROM,API,RESULT,ORSRV"
^XMB(3.9,78,2,1327,0)="""RTN"",""ORQPTQ11"",25,0)"
^XMB(3.9,78,2,1328,0)=" S ORSRV=$G(^VA(200,ORDUZ,5)) I +ORSRV>0 S ORSRV=$P(ORSRV,U)"
^XMB(3.9,78,2,1329,0)="""RTN"",""ORQPTQ11"",26,0)"
^XMB(3.9,78,2,1330,0)=" S FROM=$$GET^XPAR(""USR.`""_ORDUZ_""^SRV.`""_+$G(ORSRV),""ORLP DEFAULT LIST SOURCE"",1,""Q"")"
^XMB(3.9,78,2,1331,0)="""RTN"",""ORQPTQ11"",27,0)"
^XMB(3.9,78,2,1332,0)=" Q:'$L($G(FROM)) ""^^No default list source specified"""
^XMB(3.9,78,2,1333,0)="""RTN"",""ORQPTQ11"",28,0)"
^XMB(3.9,78,2,1334,0)=" I FROM=""T"" S RESULT=$$GET^XPAR(""USR.`""_ORDUZ_""^SRV.`""_+$G(ORSRV),""ORLP DEFAULT TEAM"",1,""B"")_""^Team"""
^XMB(3.9,78,2,1335,0)="""RTN"",""ORQPTQ11"",29,0)"
^XMB(3.9,78,2,1336,0)=" I FROM=""W"" S RESULT=$$GET^XPAR(""USR.`""_ORDUZ_""^SRV.`""_+$G(ORSRV),""ORLP DEFAULT WARD"",1,""B"")_""^Ward"""
^XMB(3.9,78,2,1337,0)="""RTN"",""ORQPTQ11"",30,0)"
^XMB(3.9,78,2,1338,0)=" I FROM=""P"" S RESULT=$$GET^XPAR(""USR.`""_ORDUZ_""^SRV.`""_+$G(ORSRV),""ORLP DEFAULT PROVIDER"",1,""B"")_""^Primary Provider"""
^XMB(3.9,78,2,1339,0)="""RTN"",""ORQPTQ11"",31,0)"
^XMB(3.9,78,2,1340,0)=" I FROM=""S"" S RESULT=$$GET^XPAR(""USR.`""_ORDUZ_""^SRV.`""_+$G(ORSRV),""ORLP DEFAULT SPECIALTY"",1,""B"")_""^Specialty"""
^XMB(3.9,78,2,1341,0)="""RTN"",""ORQPTQ11"",32,0)"
^XMB(3.9,78,2,1342,0)=" I FROM=""C"" D"
^XMB(3.9,78,2,1343,0)="""RTN"",""ORQPTQ11"",33,0)"
^XMB(3.9,78,2,1344,0)=" .S API=""ORLP DEFAULT CLINIC ""_$$UP^XLFSTR($$DOW^XLFDT(DT))"
^XMB(3.9,78,2,1345,0)="""RTN"",""ORQPTQ11"",34,0)"
^XMB(3.9,78,2,1346,0)=" .S RESULT=$$GET^XPAR(""USR.`""_ORDUZ_""^SRV.`""_+$G(ORSRV),API,1,""B"")_""^""_$$DOW^XLFDT(DT)_"" Clinic"""
^XMB(3.9,78,2,1347,0)="""RTN"",""ORQPTQ11"",35,0)"
^XMB(3.9,78,2,1348,0)=" I FROM=""M"" S RESULT=""^Combination"""
^XMB(3.9,78,2,1349,0)="""RTN"",""ORQPTQ11"",36,0)"
^XMB(3.9,78,2,1350,0)=" Q RESULT"
^XMB(3.9,78,2,1351,0)="""RTN"",""ORQPTQ11"",37,0)"
^XMB(3.9,78,2,1352,0)="LISTSRC(ORDUZ,TYPE) ; extrinsic function return user's (ORDUZ) list source"
^XMB(3.9,78,2,1353,0)="""RTN"",""ORQPTQ11"",38,0)"
^XMB(3.9,78,2,1354,0)=" ; for list type team, ward, primary provider, specialty, clinic, combination (TYPE)"
^XMB(3.9,78,2,1355,0)="""RTN"",""ORQPTQ11"",39,0)"
^XMB(3.9,78,2,1356,0)=" Q:'$D(ORDUZ) ""^^Error: No user identified"""
^XMB(3.9,78,2,1357,0)="""RTN"",""ORQPTQ11"",40,0)"
^XMB(3.9,78,2,1358,0)=" Q:'$D(TYPE) ""^^Error: No list type identified"""
^XMB(3.9,78,2,1359,0)="""RTN"",""ORQPTQ11"",41,0)"
^XMB(3.9,78,2,1360,0)=" N API,RESULT,ORSRV"
^XMB(3.9,78,2,1361,0)="""RTN"",""ORQPTQ11"",42,0)"
^XMB(3.9,78,2,1362,0)=" S ORSRV=$G(^VA(200,ORDUZ,5)) I +ORSRV>0 S ORSRV=$P(ORSRV,U)"
^XMB(3.9,78,2,1363,0)="""RTN"",""ORQPTQ11"",43,0)"
^XMB(3.9,78,2,1364,0)=" I TYPE=""T"" S RESULT=$$GET^XPAR(""USR.`""_ORDUZ_""^SRV.`""_+$G(ORSRV),""ORLP DEFAULT TEAM"",1,""B"")_""^Team"""
^XMB(3.9,78,2,1365,0)="""RTN"",""ORQPTQ11"",44,0)"
^XMB(3.9,78,2,1366,0)=" I TYPE=""W"" S RESULT=$$GET^XPAR(""USR.`""_ORDUZ_""^SRV.`""_+$G(ORSRV),""ORLP DEFAULT WARD"",1,""B"")_""^Ward"""
^XMB(3.9,78,2,1367,0)="""RTN"",""ORQPTQ11"",45,0)"
^XMB(3.9,78,2,1368,0)=" I TYPE=""P"" S RESULT=$$GET^XPAR(""USR.`""_ORDUZ_""^SRV.`""_+$G(ORSRV),""ORLP DEFAULT PROVIDER"",1,""B"")_""^Primary Provider"""
^XMB(3.9,78,2,1369,0)="""RTN"",""ORQPTQ11"",46,0)"
^XMB(3.9,78,2,1370,0)=" I TYPE=""S"" S RESULT=$$GET^XPAR(""USR.`""_ORDUZ_""^SRV.`""_+$G(ORSRV),""ORLP DEFAULT SPECIALTY"",1,""B"")_""^Specialty"""
^XMB(3.9,78,2,1371,0)="""RTN"",""ORQPTQ11"",47,0)"
^XMB(3.9,78,2,1372,0)=" I TYPE=""C"" D"
^XMB(3.9,78,2,1373,0)="""RTN"",""ORQPTQ11"",48,0)"
^XMB(3.9,78,2,1374,0)=" .S API=""ORLP DEFAULT CLINIC ""_$$UP^XLFSTR($$DOW^XLFDT(DT))"
^XMB(3.9,78,2,1375,0)="""RTN"",""ORQPTQ11"",49,0)"
^XMB(3.9,78,2,1376,0)=" .S RESULT=$$GET^XPAR(""USR.`""_ORDUZ_""^SRV.`""_+$G(ORSRV),API,1,""B"")_""^""_$$DOW^XLFDT(DT)_"" Clinic"""
^XMB(3.9,78,2,1377,0)="""RTN"",""ORQPTQ11"",50,0)"
^XMB(3.9,78,2,1378,0)=" I TYPE=""M"" S RESULT=""Combination"""
^XMB(3.9,78,2,1379,0)="""RTN"",""ORQPTQ11"",51,0)"
^XMB(3.9,78,2,1380,0)=" I $P(RESULT,U)="""" S RESULT=U_RESULT"
^XMB(3.9,78,2,1381,0)="""RTN"",""ORQPTQ11"",52,0)"
^XMB(3.9,78,2,1382,0)=" Q RESULT"
^XMB(3.9,78,2,1383,0)="""RTN"",""ORQPTQ11"",53,0)"
^XMB(3.9,78,2,1384,0)="DEFLIST(Y) ; return current user's default patient list"
^XMB(3.9,78,2,1385,0)="""RTN"",""ORQPTQ11"",54,0)"
^XMB(3.9,78,2,1386,0)=" I $$BROKER^XWBLIB S Y=$NA(^TMP(""OR"",$J,""PATIENTS"")) ; GUI = global."
^XMB(3.9,78,2,1387,0)="""RTN"",""ORQPTQ11"",55,0)"
^XMB(3.9,78,2,1388,0)=" I '$$BROKER^XWBLIB S ^TMP(""OR"",$J,""PATIENTS"",0)="""""
^XMB(3.9,78,2,1389,0)="""RTN"",""ORQPTQ11"",56,0)"
^XMB(3.9,78,2,1390,0)=" Q:'$D(DUZ)"
^XMB(3.9,78,2,1391,0)="""RTN"",""ORQPTQ11"",57,0)"
^XMB(3.9,78,2,1392,0)=" N FROM,IEN,BEG,END,API,ORSRV,ORQDAT,ORQCNT,ORGUI"
^XMB(3.9,78,2,1393,0)="""RTN"",""ORQPTQ11"",58,0)"
^XMB(3.9,78,2,1394,0)=" S ORSRV=$G(^VA(200,DUZ,5)) I +ORSRV>0 S ORSRV=$P(ORSRV,U) ; Get S/S."
^XMB(3.9,78,2,1395,0)="""RTN"",""ORQPTQ11"",59,0)"
^XMB(3.9,78,2,1396,0)=" S FROM=$$GET^XPAR(""USR^SRV.`""_+$G(ORSRV),""ORLP DEFAULT LIST SOURCE"",1,""Q"")"
^XMB(3.9,78,2,1397,0)="""RTN"",""ORQPTQ11"",60,0)"
^XMB(3.9,78,2,1398,0)=" Q:'$L($G(FROM))"
^XMB(3.9,78,2,1399,0)="""RTN"",""ORQPTQ11"",61,0)"
^XMB(3.9,78,2,1400,0)=" I FROM=""T"" S IEN=$$GET^XPAR(""USR^SRV.`""_+$G(ORSRV),""ORLP DEFAULT TEAM"",1,""Q"") D:+$G(IEN)>0 TEAMPTS^ORQPTQ1(.Y,IEN)"
^XMB(3.9,78,2,1401,0)="""RTN"",""ORQPTQ11"",62,0)"
^XMB(3.9,78,2,1402,0)=" I FROM=""W"" S IEN=$$GET^XPAR(""USR^SRV.`""_+$G(ORSRV),""ORLP DEFAULT WARD"",1,""Q"") D:+$G(IEN)>0 BYWARD^ORWPT(.Y,IEN)"
^XMB(3.9,78,2,1403,0)="""RTN"",""ORQPTQ11"",63,0)"
^XMB(3.9,78,2,1404,0)=" I FROM=""P"" S IEN=$$GET^XPAR(""USR^SRV.`""_+$G(ORSRV),""ORLP DEFAULT PROVIDER"",1,""Q"") D:+$G(IEN)>0 PROVPTS^ORQPTQ2(.Y,IEN)"
^XMB(3.9,78,2,1405,0)="""RTN"",""ORQPTQ11"",64,0)"
^XMB(3.9,78,2,1406,0)=" I FROM=""S"" S IEN=$$GET^XPAR(""USR^SRV.`""_+$G(ORSRV),""ORLP DEFAULT SPECIALTY"",1,""Q"") D:+$G(IEN)>0 SPECPTS^ORQPTQ2(.Y,IEN)"
^XMB(3.9,78,2,1407,0)="""RTN"",""ORQPTQ11"",65,0)"
^XMB(3.9,78,2,1408,0)=" I FROM=""C"" D"
^XMB(3.9,78,2,1409,0)="""RTN"",""ORQPTQ11"",66,0)"
^XMB(3.9,78,2,1410,0)=" .S API=""ORLP DEFAULT CLINIC ""_$$UP^XLFSTR($$DOW^XLFDT(DT)),IEN=$$GET^XPAR(""USR^SRV.`""_+$G(ORSRV),API,1,""Q"") I +$G(IEN)>0 D"
^XMB(3.9,78,2,1411,0)="""RTN"",""ORQPTQ11"",67,0)"
^XMB(3.9,78,2,1412,0)=" ..S BEG=$$UP^XLFSTR($$GET^XPAR(""USR^SRV.`""_+$G(ORSRV)_""^DIV^SYS^PKG"",""ORLP DEFAULT CLINIC START DATE"",1,""E""))"
^XMB(3.9,78,2,1413,0)="""RTN"",""ORQPTQ11"",68,0)"
^XMB(3.9,78,2,1414,0)=" ..I BEG=""T+0"" S BEG=$$FMTE^XLFDT(DT,BEG)"
^XMB(3.9,78,2,1415,0)="""RTN"",""ORQPTQ11"",69,0)"
^XMB(3.9,78,2,1416,0)=" ..S END=$$UP^XLFSTR($$GET^XPAR(""USR^SRV.`""_+$G(ORSRV)_""^DIV^SYS^PKG"",""ORLP DEFAULT CLINIC STOP DATE"",1,""E""))"
^XMB(3.9,78,2,1417,0)="""RTN"",""ORQPTQ11"",70,0)"
^XMB(3.9,78,2,1418,0)=" ..I END=""T+0"" S END=$$FMTE^XLFDT(DT,END)"
^XMB(3.9,78,2,1419,0)="""RTN"",""ORQPTQ11"",71,0)"
^XMB(3.9,78,2,1420,0)=" ..D CLINPTS^ORQPTQ2(.Y,+$G(IEN),BEG,END)"
^XMB(3.9,78,2,1421,0)="""RTN"",""ORQPTQ11"",72,0)"
^XMB(3.9,78,2,1422,0)=" I FROM=""M"" D"
^XMB(3.9,78,2,1423,0)="""RTN"",""ORQPTQ11"",73,0)"
^XMB(3.9,78,2,1424,0)=" .S IEN=$D(^OR(100.24,DUZ,0)) I +$G(IEN)>0 S IEN=DUZ D"
^XMB(3.9,78,2,1425,0)="""RTN"",""ORQPTQ11"",74,0)"
^XMB(3.9,78,2,1426,0)=" ..S BEG=$$UP^XLFSTR($$GET^XPAR(""USR^SRV.`""_+$G(ORSRV)_""^DIV^SYS^PKG"",""ORLP DEFAULT CLINIC START DATE"",1,""E""))"
^XMB(3.9,78,2,1427,0)="""RTN"",""ORQPTQ11"",75,0)"
^XMB(3.9,78,2,1428,0)=" ..I BEG=""T+0"" S BEG=$$FMTE^XLFDT(DT,BEG)"
^XMB(3.9,78,2,1429,0)="""RTN"",""ORQPTQ11"",76,0)"
^XMB(3.9,78,2,1430,0)=" ..S END=$$UP^XLFSTR($$GET^XPAR(""USR^SRV.`""_+$G(ORSRV)_""^DIV^SYS^PKG"",""ORLP DEFAULT CLINIC STOP DATE"",1,""E""))"
^XMB(3.9,78,2,1431,0)="""RTN"",""ORQPTQ11"",77,0)"
^XMB(3.9,78,2,1432,0)=" ..I END=""T+0"" S END=$$FMTE^XLFDT(DT,END)"
^XMB(3.9,78,2,1433,0)="""RTN"",""ORQPTQ11"",78,0)"
^XMB(3.9,78,2,1434,0)=" ..D COMBPTS^ORQPTQ6(0,+$G(IEN),BEG,END) ; ""0""= GUI RPC call."
^XMB(3.9,78,2,1435,0)="""RTN"",""ORQPTQ11"",79,0)"
^XMB(3.9,78,2,1436,0)=" I ($$BROKER^XWBLIB)&(FROM'=""M"") D  ; Combinations already written to global."
^XMB(3.9,78,2,1437,0)="""RTN"",""ORQPTQ11"",80,0)"
^XMB(3.9,78,2,1438,0)=" .S ORQDAT="""",ORQCNT=1"
^XMB(3.9,78,2,1439,0)="""RTN"",""ORQPTQ11"",81,0)"
^XMB(3.9,78,2,1440,0)=" .F  S ORQDAT=$G(Y(ORQCNT)) Q:ORQDAT=""""  D"
^XMB(3.9,78,2,1441,0)="""RTN"",""ORQPTQ11"",82,0)"
^XMB(3.9,78,2,1442,0)=" ..S ^TMP(""OR"",$J,""PATIENTS"",ORQCNT,0)=ORQDAT"
^XMB(3.9,78,2,1443,0)="""RTN"",""ORQPTQ11"",83,0)"
^XMB(3.9,78,2,1444,0)=" ..S ORQCNT=ORQCNT+1"
^XMB(3.9,78,2,1445,0)="""RTN"",""ORQPTQ11"",84,0)"
^XMB(3.9,78,2,1446,0)=" I ('$$BROKER^XWBLIB) S Y=FROM_"";""_+$G(IEN)_"";""_$G(BEG)_"";""_$G(END) ; MKB 10/13/95"
^XMB(3.9,78,2,1447,0)="""RTN"",""ORQPTQ11"",85,0)"
^XMB(3.9,78,2,1448,0)=" Q"
^XMB(3.9,78,2,1449,0)="""RTN"",""ORQPTQ11"",86,0)"
^XMB(3.9,78,2,1450,0)="DEFSORT(Y) ; Return user's default sort."
^XMB(3.9,78,2,1451,0)="""RTN"",""ORQPTQ11"",87,0)"
^XMB(3.9,78,2,1452,0)=" ; SLC/PKS - 4/6/2001"
^XMB(3.9,78,2,1453,0)="""RTN"",""ORQPTQ11"",88,0)"
^XMB(3.9,78,2,1454,0)=" ;"
^XMB(3.9,78,2,1455,0)="""RTN"",""ORQPTQ11"",89,0)"
^XMB(3.9,78,2,1456,0)=" N ORSORT,ORSECT,ORPARAM"
^XMB(3.9,78,2,1457,0)="""RTN"",""ORQPTQ11"",90,0)"
^XMB(3.9,78,2,1458,0)=" ;"
^XMB(3.9,78,2,1459,0)="""RTN"",""ORQPTQ11"",91,0)"
^XMB(3.9,78,2,1460,0)=" I ('$D(DUZ)) S Y=""Unable to determine DUZ."" Q"
^XMB(3.9,78,2,1461,0)="""RTN"",""ORQPTQ11"",92,0)"
^XMB(3.9,78,2,1462,0)=" S ORSECT=$G(^VA(200,DUZ,5))"
^XMB(3.9,78,2,1463,0)="""RTN"",""ORQPTQ11"",93,0)"
^XMB(3.9,78,2,1464,0)=" I +ORSECT>0 S ORSECT=$P(ORSECT,U)"
^XMB(3.9,78,2,1465,0)="""RTN"",""ORQPTQ11"",94,0)"
^XMB(3.9,78,2,1466,0)=" S Y=""A"" ; Default of ""Alpha"" sort."
^XMB(3.9,78,2,1467,0)="""RTN"",""ORQPTQ11"",95,0)"
^XMB(3.9,78,2,1468,0)=" S ORPARAM=""ORLP DEFAULT LIST ORDER"""
^XMB(3.9,78,2,1469,0)="""RTN"",""ORQPTQ11"",96,0)"
^XMB(3.9,78,2,1470,0)=" S ORSORT=$$GET^XPAR(""USR^SRV.`""_$G(ORSECT)_""^DIV^SYS^PKG"",ORPARAM,1,""I"")"
^XMB(3.9,78,2,1471,0)="""RTN"",""ORQPTQ11"",97,0)"
^XMB(3.9,78,2,1472,0)=" I (ORSORT'="""") S Y=ORSORT"
^XMB(3.9,78,2,1473,0)="""RTN"",""ORQPTQ11"",98,0)"
^XMB(3.9,78,2,1474,0)=" ;"
^XMB(3.9,78,2,1475,0)="""RTN"",""ORQPTQ11"",99,0)"
^XMB(3.9,78,2,1476,0)=" Q"
^XMB(3.9,78,2,1477,0)="""RTN"",""ORQPTQ11"",100,0)"
^XMB(3.9,78,2,1478,0)=" ;"
^XMB(3.9,78,2,1479,0)="""RTN"",""ORQPTQ11"",101,0)"
^XMB(3.9,78,2,1480,0)="PNAMWRIT(ORROOT,ORDFN) ; Write patient name to ^TMP global."
^XMB(3.9,78,2,1481,0)="""RTN"",""ORQPTQ11"",102,0)"
^XMB(3.9,78,2,1482,0)=" ;"
^XMB(3.9,78,2,1483,0)="""RTN"",""ORQPTQ11"",103,0)"
^XMB(3.9,78,2,1484,0)=" ; Variables used:"
^XMB(3.9,78,2,1485,0)="""RTN"",""ORQPTQ11"",104,0)"
^XMB(3.9,78,2,1486,0)=" ;"
^XMB(3.9,78,2,1487,0)="""RTN"",""ORQPTQ11"",105,0)"
^XMB(3.9,78,2,1488,0)=" ;   ORDFN   = Passed patient DFN."
^XMB(3.9,78,2,1489,0)="""RTN"",""ORQPTQ11"",106,0)"
^XMB(3.9,78,2,1490,0)=" ;   ORNAME  = Patient name."
^XMB(3.9,78,2,1491,0)="""RTN"",""ORQPTQ11"",107,0)"
^XMB(3.9,78,2,1492,0)=" ;   ORROOT  = ^TMP root passed by calling code."
^XMB(3.9,78,2,1493,0)="""RTN"",""ORQPTQ11"",108,0)"
^XMB(3.9,78,2,1494,0)=" ;   ORWRITE = Holder for ^TMP node for writing."
^XMB(3.9,78,2,1495,0)="""RTN"",""ORQPTQ11"",109,0)"
^XMB(3.9,78,2,1496,0)=" ;"
^XMB(3.9,78,2,1497,0)="""RTN"",""ORQPTQ11"",110,0)"
^XMB(3.9,78,2,1498,0)=" N ORNAME,ORWRITE"
^XMB(3.9,78,2,1499,0)="""RTN"",""ORQPTQ11"",111,0)"
^XMB(3.9,78,2,1500,0)=" S ORROOT=ORROOT_"",""                       ; Add necessary comma."
^XMB(3.9,78,2,1501,0)="""RTN"",""ORQPTQ11"",112,0)"
^XMB(3.9,78,2,1502,0)=" ;"
^XMB(3.9,78,2,1503,0)="""RTN"",""ORQPTQ11"",113,0)"
^XMB(3.9,78,2,1504,0)=" S ORNAME=""""                               ; Initializae."
^XMB(3.9,78,2,1505,0)="""RTN"",""ORQPTQ11"",114,0)"
^XMB(3.9,78,2,1506,0)=" S ORNAME=$G(^DPT(ORDFN,0))                ; Get zero node pt. data."
^XMB(3.9,78,2,1507,0)="""RTN"",""ORQPTQ11"",115,0)"
^XMB(3.9,78,2,1508,0)=" S ORNAME=$P(ORNAME,U)                     ; Extract pt. name only."
^XMB(3.9,78,2,1509,0)="""RTN"",""ORQPTQ11"",116,0)"
^XMB(3.9,78,2,1510,0)=" I ORNAME="""" Q 0                           ; Problem - punt."
^XMB(3.9,78,2,1511,0)="""RTN"",""ORQPTQ11"",117,0)"
^XMB(3.9,78,2,1512,0)=" ;"
^XMB(3.9,78,2,1513,0)="""RTN"",""ORQPTQ11"",118,0)"
^XMB(3.9,78,2,1514,0)=" ; Create naked reference string for writing to ^TMP:"
^XMB(3.9,78,2,1515,0)="""RTN"",""ORQPTQ11"",119,0)"
^XMB(3.9,78,2,1516,0)=" S ORWRITE=ORROOT_""""""""_ORNAME_""""""""_"",""_ORDFN_"")"""
^XMB(3.9,78,2,1517,0)="""RTN"",""ORQPTQ11"",120,0)"
^XMB(3.9,78,2,1518,0)=" S @ORWRITE=ORDFN_U_ORNAME                 ; Write to ^TMP."
^XMB(3.9,78,2,1519,0)="""RTN"",""ORQPTQ11"",121,0)"
^XMB(3.9,78,2,1520,0)=" ;"
^XMB(3.9,78,2,1521,0)="""RTN"",""ORQPTQ11"",122,0)"
^XMB(3.9,78,2,1522,0)=" Q 1"
^XMB(3.9,78,2,1523,0)="""RTN"",""ORQPTQ11"",123,0)"
^XMB(3.9,78,2,1524,0)=" ;"
^XMB(3.9,78,2,1525,0)="""RTN"",""ORQPTQ11"",124,0)"
^XMB(3.9,78,2,1526,0)="RPLMAKE(Y,ORTL) ; Make global restricted pt. array from Team List."
^XMB(3.9,78,2,1527,0)="""RTN"",""ORQPTQ11"",125,0)"
^XMB(3.9,78,2,1528,0)=" ;"
^XMB(3.9,78,2,1529,0)="""RTN"",""ORQPTQ11"",126,0)"
^XMB(3.9,78,2,1530,0)=" ; Variables used:"
^XMB(3.9,78,2,1531,0)="""RTN"",""ORQPTQ11"",127,0)"
^XMB(3.9,78,2,1532,0)=" ;"
^XMB(3.9,78,2,1533,0)="""RTN"",""ORQPTQ11"",128,0)"
^XMB(3.9,78,2,1534,0)=" ;   ORDFN   = Holder for patient DFN."
^XMB(3.9,78,2,1535,0)="""RTN"",""ORQPTQ11"",129,0)"
^XMB(3.9,78,2,1536,0)=" ;   ORJ     = Holds $J value."
^XMB(3.9,78,2,1537,0)="""RTN"",""ORQPTQ11"",130,0)"
^XMB(3.9,78,2,1538,0)=" ;   ORREAD  = Holder for ^TMP root to kill."
^XMB(3.9,78,2,1539,0)="""RTN"",""ORQPTQ11"",131,0)"
^XMB(3.9,78,2,1540,0)=" ;   ORRET   = Returned value from function call."
^XMB(3.9,78,2,1541,0)="""RTN"",""ORQPTQ11"",132,0)"
^XMB(3.9,78,2,1542,0)=" ;   ORROOT  = ^TMP root to pass."
^XMB(3.9,78,2,1543,0)="""RTN"",""ORQPTQ11"",133,0)"
^XMB(3.9,78,2,1544,0)=" ;   ORTL    = Team List IEN."
^XMB(3.9,78,2,1545,0)="""RTN"",""ORQPTQ11"",134,0)"
^XMB(3.9,78,2,1546,0)=" ;   ORX     = Working variable used in $ORDER statement."
^XMB(3.9,78,2,1547,0)="""RTN"",""ORQPTQ11"",135,0)"
^XMB(3.9,78,2,1548,0)=" ;   Y       = Returned value (same as ORJ)."
^XMB(3.9,78,2,1549,0)="""RTN"",""ORQPTQ11"",136,0)"
^XMB(3.9,78,2,1550,0)=" ;"
^XMB(3.9,78,2,1551,0)="""RTN"",""ORQPTQ11"",137,0)"
^XMB(3.9,78,2,1552,0)=" N ORDFN,ORJ,ORREAD,ORRET,ORROOT,ORX"
^XMB(3.9,78,2,1553,0)="""RTN"",""ORQPTQ11"",138,0)"
^XMB(3.9,78,2,1554,0)=" ;"
^XMB(3.9,78,2,1555,0)="""RTN"",""ORQPTQ11"",139,0)"
^XMB(3.9,78,2,1556,0)=" I ORTL="""" S Y="""" Q                        ; No Team List IEN passed."
^XMB(3.9,78,2,1557,0)="""RTN"",""ORQPTQ11"",140,0)"
^XMB(3.9,78,2,1558,0)=" I $G(^OR(100.21,ORTL,0))="""" S Y="""" Q      ; No such Team List."
^XMB(3.9,78,2,1559,0)="""RTN"",""ORQPTQ11"",141,0)"
^XMB(3.9,78,2,1560,0)=" ;"
^XMB(3.9,78,2,1561,0)="""RTN"",""ORQPTQ11"",142,0)"
^XMB(3.9,78,2,1562,0)=" S (ORJ,Y)=$J                              ; Assign returned value."
^XMB(3.9,78,2,1563,0)="""RTN"",""ORQPTQ11"",143,0)"
^XMB(3.9,78,2,1564,0)=" S ORROOT=""^TMP(""_""""""ORRPL""""""_"",""          ; Initial setting."
^XMB(3.9,78,2,1565,0)="""RTN"",""ORQPTQ11"",144,0)"
^XMB(3.9,78,2,1566,0)=" S ORROOT=ORROOT_ORJ_"",""_""""""B""""""           ; Add job number, ""B."""
^XMB(3.9,78,2,1567,0)="""RTN"",""ORQPTQ11"",145,0)"
^XMB(3.9,78,2,1568,0)=" S ORREAD=ORROOT_"")""                       ; Assign ""kill"" root."
^XMB(3.9,78,2,1569,0)="""RTN"",""ORQPTQ11"",146,0)"
^XMB(3.9,78,2,1570,0)=" K @ORREAD                                 ; Kill old, if any."
^XMB(3.9,78,2,1571,0)="""RTN"",""ORQPTQ11"",147,0)"
^XMB(3.9,78,2,1572,0)=" ;"
^XMB(3.9,78,2,1573,0)="""RTN"",""ORQPTQ11"",148,0)"
^XMB(3.9,78,2,1574,0)=" ; From Team List B x-ref, obtain patients, create new ^TMP entries:"
^XMB(3.9,78,2,1575,0)="""RTN"",""ORQPTQ11"",149,0)"
^XMB(3.9,78,2,1576,0)=" S ORX=""""                                  ; Initialize."
^XMB(3.9,78,2,1577,0)="""RTN"",""ORQPTQ11"",150,0)"
^XMB(3.9,78,2,1578,0)=" F  S ORX=$O(^OR(100.21,ORTL,10,""B"",ORX)) Q:ORX=""""  D"
^XMB(3.9,78,2,1579,0)="""RTN"",""ORQPTQ11"",151,0)"
^XMB(3.9,78,2,1580,0)=" .S ORDFN=$P(ORX,"";"")                      ; Extract patient DFN."
^XMB(3.9,78,2,1581,0)="""RTN"",""ORQPTQ11"",152,0)"
^XMB(3.9,78,2,1582,0)=" .S ORRET=$$PNAMWRIT(ORROOT,ORDFN)         ; Call that writes to ^TMP."
^XMB(3.9,78,2,1583,0)="""RTN"",""ORQPTQ11"",153,0)"
^XMB(3.9,78,2,1584,0)=" ;"
^XMB(3.9,78,2,1585,0)="""RTN"",""ORQPTQ11"",154,0)"
^XMB(3.9,78,2,1586,0)=" Q"
^XMB(3.9,78,2,1587,0)="""RTN"",""ORQPTQ11"",155,0)"
^XMB(3.9,78,2,1588,0)=" ;"
^XMB(3.9,78,2,1589,0)="""RTN"",""ORQPTQ11"",156,0)"
^XMB(3.9,78,2,1590,0)="RPLREAD(Y,ORJ,ORFROM,ORDIR) ; Read disk-based patient array from TMP."
^XMB(3.9,78,2,1591,0)="""RTN"",""ORQPTQ11"",157,0)"
^XMB(3.9,78,2,1592,0)=" ;"
^XMB(3.9,78,2,1593,0)="""RTN"",""ORQPTQ11"",158,0)"
^XMB(3.9,78,2,1594,0)=" ; Variables used:"
^XMB(3.9,78,2,1595,0)="""RTN"",""ORQPTQ11"",159,0)"
^XMB(3.9,78,2,1596,0)=" ;"
^XMB(3.9,78,2,1597,0)="""RTN"",""ORQPTQ11"",160,0)"
^XMB(3.9,78,2,1598,0)=" ;   ORCNT   = Counter variable."
^XMB(3.9,78,2,1599,0)="""RTN"",""ORQPTQ11"",161,0)"
^XMB(3.9,78,2,1600,0)=" ;   ORDIR   = Direction to move through list."
^XMB(3.9,78,2,1601,0)="""RTN"",""ORQPTQ11"",162,0)"
^XMB(3.9,78,2,1602,0)=" ;   ORFROM  = Starting point from which to move through list."
^XMB(3.9,78,2,1603,0)="""RTN"",""ORQPTQ11"",163,0)"
^XMB(3.9,78,2,1604,0)=" ;   ORI     = Counter variable."
^XMB(3.9,78,2,1605,0)="""RTN"",""ORQPTQ11"",164,0)"
^XMB(3.9,78,2,1606,0)=" ;   ORIEN   = Record IEN holder."
^XMB(3.9,78,2,1607,0)="""RTN"",""ORQPTQ11"",165,0)"
^XMB(3.9,78,2,1608,0)=" ;   ORJ     = Job number to use in ^TMP global root."
^XMB(3.9,78,2,1609,0)="""RTN"",""ORQPTQ11"",166,0)"
^XMB(3.9,78,2,1610,0)=" ;   ORROOT  = ^TMP global file root."
^XMB(3.9,78,2,1611,0)="""RTN"",""ORQPTQ11"",167,0)"
^XMB(3.9,78,2,1612,0)=" ;   ORZ     = Temporary value holder."
^XMB(3.9,78,2,1613,0)="""RTN"",""ORQPTQ11"",168,0)"
^XMB(3.9,78,2,1614,0)=" ;   Y       = Returned array."
^XMB(3.9,78,2,1615,0)="""RTN"",""ORQPTQ11"",169,0)"
^XMB(3.9,78,2,1616,0)=" ;"
^XMB(3.9,78,2,1617,0)="""RTN"",""ORQPTQ11"",170,0)"
^XMB(3.9,78,2,1618,0)=" N ORCNT,ORI,ORIEN,ORROOT,ORZ"
^XMB(3.9,78,2,1619,0)="""RTN"",""ORQPTQ11"",171,0)"
^XMB(3.9,78,2,1620,0)=" ;"
^XMB(3.9,78,2,1621,0)="""RTN"",""ORQPTQ11"",172,0)"
^XMB(3.9,78,2,1622,0)=" I $P(ORFROM,U,2)'="""" S ORFROM=$P(ORFROM,U,2)"
^XMB(3.9,78,2,1623,0)="""RTN"",""ORQPTQ11"",173,0)"
^XMB(3.9,78,2,1624,0)=" ;"
^XMB(3.9,78,2,1625,0)="""RTN"",""ORQPTQ11"",174,0)"
^XMB(3.9,78,2,1626,0)=" S ORROOT=""^TMP(""_""""""ORRPL""""""_"",""_ORJ      ; Initial setting."
^XMB(3.9,78,2,1627,0)="""RTN"",""ORQPTQ11"",175,0)"
^XMB(3.9,78,2,1628,0)=" S ORROOT=ORROOT_"",""_""""""B""""""               ; Add final text."
^XMB(3.9,78,2,1629,0)="""RTN"",""ORQPTQ11"",176,0)"
^XMB(3.9,78,2,1630,0)=" ;"
^XMB(3.9,78,2,1631,0)="""RTN"",""ORQPTQ11"",177,0)"
^XMB(3.9,78,2,1632,0)=" ; Check for existence of data:"
^XMB(3.9,78,2,1633,0)="""RTN"",""ORQPTQ11"",178,0)"
^XMB(3.9,78,2,1634,0)=" I '$D(@(ORROOT_"")"")) S Y(0)=""No data available."" Q"
^XMB(3.9,78,2,1635,0)="""RTN"",""ORQPTQ11"",179,0)"
^XMB(3.9,78,2,1636,0)=" ;"
^XMB(3.9,78,2,1637,0)="""RTN"",""ORQPTQ11"",180,0)"
^XMB(3.9,78,2,1638,0)=" S ORROOT=ORROOT_"",""                       ; Add comma."
^XMB(3.9,78,2,1639,0)="""RTN"",""ORQPTQ11"",181,0)"
^XMB(3.9,78,2,1640,0)=" S ORCNT=44                                ; Initialize to maximum."
^XMB(3.9,78,2,1641,0)="""RTN"",""ORQPTQ11"",182,0)"
^XMB(3.9,78,2,1642,0)=" S ORI=0                                   ; Initialize."
^XMB(3.9,78,2,1643,0)="""RTN"",""ORQPTQ11"",183,0)"
^XMB(3.9,78,2,1644,0)=" ;"
^XMB(3.9,78,2,1645,0)="""RTN"",""ORQPTQ11"",184,0)"
^XMB(3.9,78,2,1646,0)=" ; Loop through ^TMP entries for data to return:"
^XMB(3.9,78,2,1647,0)="""RTN"",""ORQPTQ11"",185,0)"
^XMB(3.9,78,2,1648,0)=" F  S ORFROM=$O(@(ORROOT_""""""""_ORFROM_""""""""_"")""),ORDIR) Q:ORFROM=""""  D  Q:ORI=ORCNT"
^XMB(3.9,78,2,1649,0)="""RTN"",""ORQPTQ11"",186,0)"
^XMB(3.9,78,2,1650,0)=" .;"
^XMB(3.9,78,2,1651,0)="""RTN"",""ORQPTQ11"",187,0)"
^XMB(3.9,78,2,1652,0)=" .; Sub-loop for entries up to ORCNT maximum:"
^XMB(3.9,78,2,1653,0)="""RTN"",""ORQPTQ11"",188,0)"
^XMB(3.9,78,2,1654,0)=" .S ORIEN=0                                ; Initialize."
^XMB(3.9,78,2,1655,0)="""RTN"",""ORQPTQ11"",189,0)"
^XMB(3.9,78,2,1656,0)=" .F  S ORIEN=$O(@(ORROOT_""""""""_ORFROM_""""""""_"",""_ORIEN_"")"")) Q:'ORIEN  D  Q:ORI=ORCNT"
^XMB(3.9,78,2,1657,0)="""RTN"",""ORQPTQ11"",190,0)"
^XMB(3.9,78,2,1658,0)=" ..S ORI=ORI+1                             ; Increment counter."
^XMB(3.9,78,2,1659,0)="""RTN"",""ORQPTQ11"",191,0)"
^XMB(3.9,78,2,1660,0)=" ..;"
^XMB(3.9,78,2,1661,0)="""RTN"",""ORQPTQ11"",192,0)"
^XMB(3.9,78,2,1662,0)=" ..; Assign return array:"
^XMB(3.9,78,2,1663,0)="""RTN"",""ORQPTQ11"",193,0)"
^XMB(3.9,78,2,1664,0)=" ..S Y(ORI)=@(ORROOT_""""""""_ORFROM_""""""""_"",""_ORIEN_"")"")"
^XMB(3.9,78,2,1665,0)="""RTN"",""ORQPTQ11"",194,0)"
^XMB(3.9,78,2,1666,0)=" ;"
^XMB(3.9,78,2,1667,0)="""RTN"",""ORQPTQ11"",195,0)"
^XMB(3.9,78,2,1668,0)=" Q"
^XMB(3.9,78,2,1669,0)="""RTN"",""ORQPTQ11"",196,0)"
^XMB(3.9,78,2,1670,0)=" ;"
^XMB(3.9,78,2,1671,0)="""RTN"",""ORQPTQ11"",197,0)"
^XMB(3.9,78,2,1672,0)="RPLCLEAN(Y,ORJ) ; Kill global data using passed global root value."
^XMB(3.9,78,2,1673,0)="""RTN"",""ORQPTQ11"",198,0)"
^XMB(3.9,78,2,1674,0)=" ;"
^XMB(3.9,78,2,1675,0)="""RTN"",""ORQPTQ11"",199,0)"
^XMB(3.9,78,2,1676,0)=" ; Variables used:"
^XMB(3.9,78,2,1677,0)="""RTN"",""ORQPTQ11"",200,0)"
^XMB(3.9,78,2,1678,0)=" ;"
^XMB(3.9,78,2,1679,0)="""RTN"",""ORQPTQ11"",201,0)"
^XMB(3.9,78,2,1680,0)=" ;    ORJ    = Job number to use in ^TMP global root."
^XMB(3.9,78,2,1681,0)="""RTN"",""ORQPTQ11"",202,0)"
^XMB(3.9,78,2,1682,0)=" ;    ORROOT = Root of ^TMP global to kill."
^XMB(3.9,78,2,1683,0)="""RTN"",""ORQPTQ11"",203,0)"
^XMB(3.9,78,2,1684,0)=" ;    Y      = Returned RPC value."
^XMB(3.9,78,2,1685,0)="""RTN"",""ORQPTQ11"",204,0)"
^XMB(3.9,78,2,1686,0)=" ;"
^XMB(3.9,78,2,1687,0)="""RTN"",""ORQPTQ11"",205,0)"
^XMB(3.9,78,2,1688,0)=" N ORROOT"
^XMB(3.9,78,2,1689,0)="""RTN"",""ORQPTQ11"",206,0)"
^XMB(3.9,78,2,1690,0)=" ;"
^XMB(3.9,78,2,1691,0)="""RTN"",""ORQPTQ11"",207,0)"
^XMB(3.9,78,2,1692,0)=" S Y=1                                     ; Initialize."
^XMB(3.9,78,2,1693,0)="""RTN"",""ORQPTQ11"",208,0)"
^XMB(3.9,78,2,1694,0)=" S ORROOT=""^TMP(""_""""""ORRPL""""""_"",""          ; Initial setting."
^XMB(3.9,78,2,1695,0)="""RTN"",""ORQPTQ11"",209,0)"
^XMB(3.9,78,2,1696,0)=" S ORROOT=ORROOT_ORJ_"",""_""""""B""""""_"")""       ; Add rest."
^XMB(3.9,78,2,1697,0)="""RTN"",""ORQPTQ11"",210,0)"
^XMB(3.9,78,2,1698,0)=" K @ORROOT                                 ; Kill global data."
^XMB(3.9,78,2,1699,0)="""RTN"",""ORQPTQ11"",211,0)"
^XMB(3.9,78,2,1700,0)=" ;"
^XMB(3.9,78,2,1701,0)="""RTN"",""ORQPTQ11"",212,0)"
^XMB(3.9,78,2,1702,0)=" Q"
^XMB(3.9,78,2,1703,0)="""RTN"",""ORQPTQ11"",213,0)"
^XMB(3.9,78,2,1704,0)=" ;"
^XMB(3.9,78,2,1705,0)="""RTN"",""ORWDOR"")"
^XMB(3.9,78,2,1706,0)="0^3^B8459671^B7232254"
^XMB(3.9,78,2,1707,0)="""RTN"",""ORWDOR"",1,0)"
^XMB(3.9,78,2,1708,0)="ORWDOR ; SLC/KCM - Generic Orders calls for Windows Dialogs [ 08/05/96  8:21 AM ];03:50 PM  17 Jun 1998"
^XMB(3.9,78,2,1709,0)="""RTN"",""ORWDOR"",2,0)"
^XMB(3.9,78,2,1710,0)=" ;;3.0;ORDER ENTRY/RESULTS REPORTING;**10,164,253**;Dec 17, 1997"
^XMB(3.9,78,2,1711,0)="""RTN"",""ORWDOR"",3,0)"
^XMB(3.9,78,2,1712,0)="NXT() ; -- returns next available index in return data array"
^XMB(3.9,78,2,1713,0)="""RTN"",""ORWDOR"",4,0)"
^XMB(3.9,78,2,1714,0)=" S ILST=ILST+1"
^XMB(3.9,78,2,1715,0)="""RTN"",""ORWDOR"",5,0)"
^XMB(3.9,78,2,1716,0)=" Q ILST"
^XMB(3.9,78,2,1717,0)="""RTN"",""ORWDOR"",6,0)"
^XMB(3.9,78,2,1718,0)=" ;"
^XMB(3.9,78,2,1719,0)="""RTN"",""ORWDOR"",7,0)"
^XMB(3.9,78,2,1720,0)="VMSLCT(LST) ; return default lists for vitals dialog"
^XMB(3.9,78,2,1721,0)="""RTN"",""ORWDOR"",8,0)"
^XMB(3.9,78,2,1722,0)=" N ILST S ILST=0"
^XMB(3.9,78,2,1723,0)="""RTN"",""ORWDOR"",9,0)"
^XMB(3.9,78,2,1724,0)=" S LST($$NXT)=""~Measurements"" D MEAS"
^XMB(3.9,78,2,1725,0)="""RTN"",""ORWDOR"",10,0)"
^XMB(3.9,78,2,1726,0)=" S LST($$NXT)=""~Schedules""    D SCHED"
^XMB(3.9,78,2,1727,0)="""RTN"",""ORWDOR"",11,0)"
^XMB(3.9,78,2,1728,0)=" Q"
^XMB(3.9,78,2,1729,0)="""RTN"",""ORWDOR"",12,0)"
^XMB(3.9,78,2,1730,0)="MEAS ; called from VMSLCT"
^XMB(3.9,78,2,1731,0)="""RTN"",""ORWDOR"",13,0)"
^XMB(3.9,78,2,1732,0)=" N I,X"
^XMB(3.9,78,2,1733,0)="""RTN"",""ORWDOR"",14,0)"
^XMB(3.9,78,2,1734,0)=" S X="""" F  S X=$O(^ORD(101.43,""S.V/M"",X)) Q:X=""""  D"
^XMB(3.9,78,2,1735,0)="""RTN"",""ORWDOR"",15,0)"
^XMB(3.9,78,2,1736,0)=" . S I=$O(^ORD(101.43,""S.V/M"",X,0))"
^XMB(3.9,78,2,1737,0)="""RTN"",""ORWDOR"",16,0)"
^XMB(3.9,78,2,1738,0)=" . S LST($$NXT)=""i""_I_U_$P(^ORD(101.43,""S.V/M"",X,I),U,2)"
^XMB(3.9,78,2,1739,0)="""RTN"",""ORWDOR"",17,0)"
^XMB(3.9,78,2,1740,0)=" Q"
^XMB(3.9,78,2,1741,0)="""RTN"",""ORWDOR"",18,0)"
^XMB(3.9,78,2,1742,0)="SCHED ; called from VMSLCT"
^XMB(3.9,78,2,1743,0)="""RTN"",""ORWDOR"",19,0)"
^XMB(3.9,78,2,1744,0)=" N I,X"
^XMB(3.9,78,2,1745,0)="""RTN"",""ORWDOR"",20,0)"
^XMB(3.9,78,2,1746,0)=" S X="""" F  S X=$O(^PS(51.1,""APGMRV"",X)) Q:X=""""  D"
^XMB(3.9,78,2,1747,0)="""RTN"",""ORWDOR"",21,0)"
^XMB(3.9,78,2,1748,0)=" . S I=$O(^PS(51.1,""APGMRV"",X,0)),LST($$NXT)=""i""_I_U_X"
^XMB(3.9,78,2,1749,0)="""RTN"",""ORWDOR"",22,0)"
^XMB(3.9,78,2,1750,0)=" Q"
^XMB(3.9,78,2,1751,0)="""RTN"",""ORWDOR"",23,0)"
^XMB(3.9,78,2,1752,0)="VALNUM(ERR,X,DOM)       ; return error if invalid number"
^XMB(3.9,78,2,1753,0)="""RTN"",""ORWDOR"",24,0)"
^XMB(3.9,78,2,1754,0)=" N LOW,HIGH,DEC"
^XMB(3.9,78,2,1755,0)="""RTN"",""ORWDOR"",25,0)"
^XMB(3.9,78,2,1756,0)=" S LOW=$P(DOM,"":""),HIGH=$P(DOM,"":"",2),DEC=$P(DOM,"":"",3),ERR=0"
^XMB(3.9,78,2,1757,0)="""RTN"",""ORWDOR"",26,0)"
^XMB(3.9,78,2,1758,0)=" I $L($P(X,"".""))>24 S ERR=""1^Exceeded maximum number of 24 characters"" Q"
^XMB(3.9,78,2,1759,0)="""RTN"",""ORWDOR"",27,0)"
^XMB(3.9,78,2,1760,0)=" I X'?.1""-"".N.1""."".N S ERR=""1^Entry must be numeric"" Q"
^XMB(3.9,78,2,1761,0)="""RTN"",""ORWDOR"",28,0)"
^XMB(3.9,78,2,1762,0)=" I X>HIGH!(X<LOW) S ERR=""1^Out of Range - value must be between ""_LOW_"" and ""_HIGH_"" inclusive"" Q"
^XMB(3.9,78,2,1763,0)="""RTN"",""ORWDOR"",29,0)"
^XMB(3.9,78,2,1764,0)=" I $L($P(+X,""."",2))>DEC D"
^XMB(3.9,78,2,1765,0)="""RTN"",""ORWDOR"",30,0)"
^XMB(3.9,78,2,1766,0)=" . I DEC=0 S ERR=""1^No decimal places allowed"""
^XMB(3.9,78,2,1767,0)="""RTN"",""ORWDOR"",31,0)"
^XMB(3.9,78,2,1768,0)=" . E  I DEC=1 S ERR=""1^Only one decimal place allowed"""
^XMB(3.9,78,2,1769,0)="""RTN"",""ORWDOR"",32,0)"
^XMB(3.9,78,2,1770,0)=" . E  S ERR=""1^No more than ""_DEC_"" decimal places allowed"""
^XMB(3.9,78,2,1771,0)="""RTN"",""ORWDOR"",33,0)"
^XMB(3.9,78,2,1772,0)=" Q"
^XMB(3.9,78,2,1773,0)="""RTN"",""ORWDOR"",34,0)"
^XMB(3.9,78,2,1774,0)="LKSCRN(ORLST,FROM,DIR,REF,GBL,SCR) ; Return a set of entries from xref in REF"
^XMB(3.9,78,2,1775,0)="""RTN"",""ORWDOR"",35,0)"
^XMB(3.9,78,2,1776,0)=" ; .Y=returned list, FROM=text to $O from, DIR=$O direction,"
^XMB(3.9,78,2,1777,0)="""RTN"",""ORWDOR"",36,0)"
^XMB(3.9,78,2,1778,0)=" ; REF=subscript indirection global ref including xref,"
^XMB(3.9,78,2,1779,0)="""RTN"",""ORWDOR"",37,0)"
^XMB(3.9,78,2,1780,0)=" ; GBL=standard FM global ref, SCR=reference to screen in 101.41"
^XMB(3.9,78,2,1781,0)="""RTN"",""ORWDOR"",38,0)"
^XMB(3.9,78,2,1782,0)=" N I,IEN,CNT,X,Y,D,ORTYPE"
^XMB(3.9,78,2,1783,0)="""RTN"",""ORWDOR"",39,0)"
^XMB(3.9,78,2,1784,0)=" S I=0,CNT=44,SCR=$G(SCR)"
^XMB(3.9,78,2,1785,0)="""RTN"",""ORWDOR"",40,0)"
^XMB(3.9,78,2,1786,0)=" I $L(SCR) S SCR=$G(^ORD(101.41,+SCR,10,+$P(SCR,"":"",2),4))"
^XMB(3.9,78,2,1787,0)="""RTN"",""ORWDOR"",41,0)"
^XMB(3.9,78,2,1788,0)=" S D=$P(REF,"""""""",2),ORTYPE=""D"" ;for OI screen"
^XMB(3.9,78,2,1789,0)="""RTN"",""ORWDOR"",42,0)"
^XMB(3.9,78,2,1790,0)=" F  Q:I'<CNT  S FROM=$O(@REF@(FROM),DIR) Q:FROM=""""  D"
^XMB(3.9,78,2,1791,0)="""RTN"",""ORWDOR"",43,0)"
^XMB(3.9,78,2,1792,0)=" . S IEN=0 F  S IEN=$O(@REF@(FROM,IEN)) Q:'IEN  D"
^XMB(3.9,78,2,1793,0)="""RTN"",""ORWDOR"",44,0)"
^XMB(3.9,78,2,1794,0)=" . . ; if screen, set naked ref & Y, then execute screen"
^XMB(3.9,78,2,1795,0)="""RTN"",""ORWDOR"",45,0)"
^XMB(3.9,78,2,1796,0)=" . . I $L(SCR) S Y=IEN,X=$P($G(@(GBL_""Y,0)"")),U) X SCR Q:'$T"
^XMB(3.9,78,2,1797,0)="""RTN"",""ORWDOR"",46,0)"
^XMB(3.9,78,2,1798,0)=" . . S I=I+1,ORLST(I)=IEN_""^""_FROM"
^XMB(3.9,78,2,1799,0)="""RTN"",""ORWDOR"",47,0)"
^XMB(3.9,78,2,1800,0)=" Q"
^XMB(3.9,78,2,1801,0)="""RTN"",""ORWDOR"",48,0)"
^XMB(3.9,78,2,1802,0)="MNUTREE(LST,ROOT)        ; return menu tree for a menu type dialog"
^XMB(3.9,78,2,1803,0)="""RTN"",""ORWDOR"",49,0)"
^XMB(3.9,78,2,1804,0)=" N ILST S ILST=0"
^XMB(3.9,78,2,1805,0)="""RTN"",""ORWDOR"",50,0)"
^XMB(3.9,78,2,1806,0)=" S ILST=ILST+1,LST(ILST)=ROOT_U_$P(^ORD(101.41,ROOT,0),U,2)_""^0^+"""
^XMB(3.9,78,2,1807,0)="""RTN"",""ORWDOR"",51,0)"
^XMB(3.9,78,2,1808,0)=" D LSTCHLD(ROOT)"
^XMB(3.9,78,2,1809,0)="""RTN"",""ORWDOR"",52,0)"
^XMB(3.9,78,2,1810,0)=" Q"
^XMB(3.9,78,2,1811,0)="""RTN"",""ORWDOR"",53,0)"
^XMB(3.9,78,2,1812,0)="LSTCHLD(PARENT) ; list descendends of this node (recursive)"
^XMB(3.9,78,2,1813,0)="""RTN"",""ORWDOR"",54,0)"
^XMB(3.9,78,2,1814,0)=" N CHILD,I,J"
^XMB(3.9,78,2,1815,0)="""RTN"",""ORWDOR"",55,0)"
^XMB(3.9,78,2,1816,0)=" S I=0 F  S I=$O(^ORD(101.41,PARENT,10,""B"",I)) Q:'I  D"
^XMB(3.9,78,2,1817,0)="""RTN"",""ORWDOR"",56,0)"
^XMB(3.9,78,2,1818,0)=" . S J=0 F  S J=$O(^ORD(101.41,PARENT,10,""B"",I,J)) Q:'J  D"
^XMB(3.9,78,2,1819,0)="""RTN"",""ORWDOR"",57,0)"
^XMB(3.9,78,2,1820,0)=" . . S CHILD=+$P(^ORD(101.41,PARENT,10,J,0),U,2) Q:'CHILD"
^XMB(3.9,78,2,1821,0)="""RTN"",""ORWDOR"",58,0)"
^XMB(3.9,78,2,1822,0)=" . . ; also quit if child is not a generic order"
^XMB(3.9,78,2,1823,0)="""RTN"",""ORWDOR"",59,0)"
^XMB(3.9,78,2,1824,0)=" . . S ILST=ILST+1,LST(ILST)=CHILD_U_$P(^ORD(101.41,CHILD,0),U,2)_U_PARENT"
^XMB(3.9,78,2,1825,0)="""RTN"",""ORWDOR"",60,0)"
^XMB(3.9,78,2,1826,0)=" . . I $P(^ORD(101.41,CHILD,0),U,4)=""M"",$D(^ORD(101.41,CHILD,10))>1 D"
^XMB(3.9,78,2,1827,0)="""RTN"",""ORWDOR"",61,0)"
^XMB(3.9,78,2,1828,0)=" . . . S LST(ILST)=LST(ILST)_""^+"""
^XMB(3.9,78,2,1829,0)="""RTN"",""ORWDOR"",62,0)"
^XMB(3.9,78,2,1830,0)=" . . . D LSTCHLD(CHILD)"
^XMB(3.9,78,2,1831,0)="""RTN"",""ORWDOR"",63,0)"
^XMB(3.9,78,2,1832,0)=" Q"
^XMB(3.9,78,2,1833,0)="""VER"")"
^XMB(3.9,78,2,1834,0)="8.0^22.0"
^XMB(3.9,78,2,1835,0)="""BLD"",6791,6)"
^XMB(3.9,78,2,1836,0)="^230"
^XMB(3.9,78,2,1837,0)="$END KID OR*3.0*253"
^XMB(3.9,78,6,0)="^3.911A^2^2"
^XMB(3.9,78,6,1,0)="POSTMASTER"
^XMB(3.9,78,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,78,6,"B","POSTMASTER",1)=""
^XMB(3.9,78,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,79,0)="OR-3_SEQ-231_PAT-228.KID^.5^3061008.015739^^^^K"
^XMB(3.9,79,.6)="3061008"
^XMB(3.9,79,1,0)="^3.91A^2^2"
^XMB(3.9,79,1,1,0)=".5^0^3061008.015739^^^^^^^3061008.015739"
^XMB(3.9,79,1,2,0)="1^0^3061008.024017^^^^^^^3061008.024017"
^XMB(3.9,79,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,79,1,"C",.5,1)=""
^XMB(3.9,79,1,"C",1,2)=""
^XMB(3.9,79,2,0)="^^1967^1967^3061008"
^XMB(3.9,79,2,1,0)="$TXT Released OR*3*228 SEQ #231"
^XMB(3.9,79,2,2,0)="Extracted from mail message"
^XMB(3.9,79,2,3,0)="$END TXT"
^XMB(3.9,79,2,4,0)="$KID OR*3.0*228"
^XMB(3.9,79,2,5,0)="**INSTALL NAME**"
^XMB(3.9,79,2,6,0)="OR*3.0*228"
^XMB(3.9,79,2,7,0)="""BLD"",5673,0)"
^XMB(3.9,79,2,8,0)="OR*3.0*228^ORDER ENTRY/RESULTS REPORTING^0^3051201^y"
^XMB(3.9,79,2,9,0)="""BLD"",5673,1,0)"
^XMB(3.9,79,2,10,0)="^^28^28^3050727^"
^XMB(3.9,79,2,11,0)="""BLD"",5673,1,1,0)"
^XMB(3.9,79,2,12,0)="This patch is part of the Patient Financial Services System (PFSS) "
^XMB(3.9,79,2,13,0)="""BLD"",5673,1,2,0)"
^XMB(3.9,79,2,14,0)="project.  PFSS patches are being released on various schedules.  Some "
^XMB(3.9,79,2,15,0)="""BLD"",5673,1,3,0)"
^XMB(3.9,79,2,16,0)="patch functionality will not be active until a new PFSS switch is "
^XMB(3.9,79,2,17,0)="""BLD"",5673,1,4,0)"
^XMB(3.9,79,2,18,0)="activated during final implementation. PFSS will initially be implemented "
^XMB(3.9,79,2,19,0)="""BLD"",5673,1,5,0)"
^XMB(3.9,79,2,20,0)="at select pilot sites ONLY."
^XMB(3.9,79,2,21,0)="""BLD"",5673,1,6,0)"
^XMB(3.9,79,2,22,0)=" "
^XMB(3.9,79,2,23,0)="""BLD"",5673,1,7,0)"
^XMB(3.9,79,2,24,0)="The purpose of the PFSS project is to prepare the VistA environment for "
^XMB(3.9,79,2,25,0)="""BLD"",5673,1,8,0)"
^XMB(3.9,79,2,26,0)="the implementation of a commercial off-the-shelf (COTS) billing "
^XMB(3.9,79,2,27,0)="""BLD"",5673,1,9,0)"
^XMB(3.9,79,2,28,0)="replacement system.  The project consists of the implementation of the "
^XMB(3.9,79,2,29,0)="""BLD"",5673,1,10,0)"
^XMB(3.9,79,2,30,0)="billing replacement system, business process improvements, and "
^XMB(3.9,79,2,31,0)="""BLD"",5673,1,11,0)"
^XMB(3.9,79,2,32,0)="enhancements to Veterans Health Information Systems and Technology "
^XMB(3.9,79,2,33,0)="""BLD"",5673,1,12,0)"
^XMB(3.9,79,2,34,0)="Architecture (VistA) to support integration with the COTS billing "
^XMB(3.9,79,2,35,0)="""BLD"",5673,1,13,0)"
^XMB(3.9,79,2,36,0)="replacement system.  Significant changes to VistA legacy systems and "
^XMB(3.9,79,2,37,0)="""BLD"",5673,1,14,0)"
^XMB(3.9,79,2,38,0)="ancillary packages are necessary."
^XMB(3.9,79,2,39,0)="""BLD"",5673,1,15,0)"
^XMB(3.9,79,2,40,0)=" "
^XMB(3.9,79,2,41,0)="""BLD"",5673,1,16,0)"
^XMB(3.9,79,2,42,0)="Some of the PFSS software components are not operational until the PFSS "
^XMB(3.9,79,2,43,0)="""BLD"",5673,1,17,0)"
^XMB(3.9,79,2,44,0)="On/Off Switch, distributed with patch IB*2*260, is set to ""ON .  The "
^XMB(3.9,79,2,45,0)="""BLD"",5673,1,18,0)"
^XMB(3.9,79,2,46,0)="ability for the local site to set the switch to ""ON  will be provided at "
^XMB(3.9,79,2,47,0)="""BLD"",5673,1,19,0)"
^XMB(3.9,79,2,48,0)="the appropriate time with the release of a subsequent Integrated Billing "
^XMB(3.9,79,2,49,0)="""BLD"",5673,1,20,0)"
^XMB(3.9,79,2,50,0)="patch."
^XMB(3.9,79,2,51,0)="""BLD"",5673,1,21,0)"
^XMB(3.9,79,2,52,0)=" "
^XMB(3.9,79,2,53,0)="""BLD"",5673,1,22,0)"
^XMB(3.9,79,2,54,0)="For more information about the PFSS project, review the documentation "
^XMB(3.9,79,2,55,0)="""BLD"",5673,1,23,0)"
^XMB(3.9,79,2,56,0)="accompanying this patch and refer to the following website: "
^XMB(3.9,79,2,57,0)="""BLD"",5673,1,24,0)"
^XMB(3.9,79,2,58,0)="http://vista.med.va.gov/billreplace/"
^XMB(3.9,79,2,59,0)="""BLD"",5673,1,25,0)"
^XMB(3.9,79,2,60,0)=" "
^XMB(3.9,79,2,61,0)="""BLD"",5673,1,26,0)"
^XMB(3.9,79,2,62,0)="The OR*3.0*228 patch is phase II of the CPRS portion of the PFSS "
^XMB(3.9,79,2,63,0)="""BLD"",5673,1,27,0)"
^XMB(3.9,79,2,64,0)="project.  Phase I of the CPRS portion of the project is contained in "
^XMB(3.9,79,2,65,0)="""BLD"",5673,1,28,0)"
^XMB(3.9,79,2,66,0)="OR*3.0*215."
^XMB(3.9,79,2,67,0)="""BLD"",5673,4,0)"
^XMB(3.9,79,2,68,0)="^9.64PA^100^1"
^XMB(3.9,79,2,69,0)="""BLD"",5673,4,100,0)"
^XMB(3.9,79,2,70,0)="100"
^XMB(3.9,79,2,71,0)="""BLD"",5673,4,100,2,0)"
^XMB(3.9,79,2,72,0)="^9.641^100^1"
^XMB(3.9,79,2,73,0)="""BLD"",5673,4,100,2,100,0)"
^XMB(3.9,79,2,74,0)="ORDER  (File-top level)"
^XMB(3.9,79,2,75,0)="""BLD"",5673,4,100,2,100,1,0)"
^XMB(3.9,79,2,76,0)="^9.6411^97^1"
^XMB(3.9,79,2,77,0)="""BLD"",5673,4,100,2,100,1,97,0)"
^XMB(3.9,79,2,78,0)="PFSS ACCOUNT REFERENCE"
^XMB(3.9,79,2,79,0)="""BLD"",5673,4,100,222)"
^XMB(3.9,79,2,80,0)="y^n^p^^^^n^^n"
^XMB(3.9,79,2,81,0)="""BLD"",5673,4,100,224)"
^XMB(3.9,79,2,82,0)=""
^XMB(3.9,79,2,83,0)="""BLD"",5673,4,""APDD"",100,100)"
^XMB(3.9,79,2,84,0)=""
^XMB(3.9,79,2,85,0)="""BLD"",5673,4,""APDD"",100,100,97)"
^XMB(3.9,79,2,86,0)=""
^XMB(3.9,79,2,87,0)="""BLD"",5673,4,""B"",100,100)"
^XMB(3.9,79,2,88,0)=""
^XMB(3.9,79,2,89,0)="""BLD"",5673,""ABPKG"")"
^XMB(3.9,79,2,90,0)="n"
^XMB(3.9,79,2,91,0)="""BLD"",5673,""KRN"",0)"
^XMB(3.9,79,2,92,0)="^9.67PA^8989.52^19"
^XMB(3.9,79,2,93,0)="""BLD"",5673,""KRN"",.4,0)"
^XMB(3.9,79,2,94,0)=".4"
^XMB(3.9,79,2,95,0)="""BLD"",5673,""KRN"",.401,0)"
^XMB(3.9,79,2,96,0)=".401"
^XMB(3.9,79,2,97,0)="""BLD"",5673,""KRN"",.402,0)"
^XMB(3.9,79,2,98,0)=".402"
^XMB(3.9,79,2,99,0)="""BLD"",5673,""KRN"",.402,""NM"",0)"
^XMB(3.9,79,2,100,0)="^9.68A^^"
^XMB(3.9,79,2,101,0)="""BLD"",5673,""KRN"",.403,0)"
^XMB(3.9,79,2,102,0)=".403"
^XMB(3.9,79,2,103,0)="""BLD"",5673,""KRN"",.403,""NM"",0)"
^XMB(3.9,79,2,104,0)="^9.68A^^"
^XMB(3.9,79,2,105,0)="""BLD"",5673,""KRN"",.5,0)"
^XMB(3.9,79,2,106,0)=".5"
^XMB(3.9,79,2,107,0)="""BLD"",5673,""KRN"",.5,""NM"",0)"
^XMB(3.9,79,2,108,0)="^9.68A^^"
^XMB(3.9,79,2,109,0)="""BLD"",5673,""KRN"",.84,0)"
^XMB(3.9,79,2,110,0)=".84"
^XMB(3.9,79,2,111,0)="""BLD"",5673,""KRN"",.84,""NM"",0)"
^XMB(3.9,79,2,112,0)="^9.68A^^"
^XMB(3.9,79,2,113,0)="""BLD"",5673,""KRN"",3.6,0)"
^XMB(3.9,79,2,114,0)="3.6"
^XMB(3.9,79,2,115,0)="""BLD"",5673,""KRN"",3.6,""NM"",0)"
^XMB(3.9,79,2,116,0)="^9.68A^^"
^XMB(3.9,79,2,117,0)="""BLD"",5673,""KRN"",3.8,0)"
^XMB(3.9,79,2,118,0)="3.8"
^XMB(3.9,79,2,119,0)="""BLD"",5673,""KRN"",3.8,""NM"",0)"
^XMB(3.9,79,2,120,0)="^9.68A^^"
^XMB(3.9,79,2,121,0)="""BLD"",5673,""KRN"",9.2,0)"
^XMB(3.9,79,2,122,0)="9.2"
^XMB(3.9,79,2,123,0)="""BLD"",5673,""KRN"",9.2,""NM"",0)"
^XMB(3.9,79,2,124,0)="^9.68A^^"
^XMB(3.9,79,2,125,0)="""BLD"",5673,""KRN"",9.8,0)"
^XMB(3.9,79,2,126,0)="9.8"
^XMB(3.9,79,2,127,0)="""BLD"",5673,""KRN"",9.8,""NM"",0)"
^XMB(3.9,79,2,128,0)="^9.68A^8^6"
^XMB(3.9,79,2,129,0)="""BLD"",5673,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,79,2,130,0)="ORWPFSS^^0^B3926796"
^XMB(3.9,79,2,131,0)="""BLD"",5673,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,79,2,132,0)="ORWPFSS1^^0^B11865424"
^XMB(3.9,79,2,133,0)="""BLD"",5673,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,79,2,134,0)="ORWPFSS2^^0^B917624"
^XMB(3.9,79,2,135,0)="""BLD"",5673,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,79,2,136,0)="ORMRA^^0^B59882057"
^XMB(3.9,79,2,137,0)="""BLD"",5673,""KRN"",9.8,""NM"",7,0)"
^XMB(3.9,79,2,138,0)="ORWPFSS4^^0^B7376059"
^XMB(3.9,79,2,139,0)="""BLD"",5673,""KRN"",9.8,""NM"",8,0)"
^XMB(3.9,79,2,140,0)="ORCSEND^^0^B60080179"
^XMB(3.9,79,2,141,0)="""BLD"",5673,""KRN"",9.8,""NM"",""B"",""ORCSEND"",8)"
^XMB(3.9,79,2,142,0)=""
^XMB(3.9,79,2,143,0)="""BLD"",5673,""KRN"",9.8,""NM"",""B"",""ORMRA"",4)"
^XMB(3.9,79,2,144,0)=""
^XMB(3.9,79,2,145,0)="""BLD"",5673,""KRN"",9.8,""NM"",""B"",""ORWPFSS"",1)"
^XMB(3.9,79,2,146,0)=""
^XMB(3.9,79,2,147,0)="""BLD"",5673,""KRN"",9.8,""NM"",""B"",""ORWPFSS1"",2)"
^XMB(3.9,79,2,148,0)=""
^XMB(3.9,79,2,149,0)="""BLD"",5673,""KRN"",9.8,""NM"",""B"",""ORWPFSS2"",3)"
^XMB(3.9,79,2,150,0)=""
^XMB(3.9,79,2,151,0)="""BLD"",5673,""KRN"",9.8,""NM"",""B"",""ORWPFSS4"",7)"
^XMB(3.9,79,2,152,0)=""
^XMB(3.9,79,2,153,0)="""BLD"",5673,""KRN"",19,0)"
^XMB(3.9,79,2,154,0)="19"
^XMB(3.9,79,2,155,0)="""BLD"",5673,""KRN"",19,""NM"",0)"
^XMB(3.9,79,2,156,0)="^9.68A^^"
^XMB(3.9,79,2,157,0)="""BLD"",5673,""KRN"",19.1,0)"
^XMB(3.9,79,2,158,0)="19.1"
^XMB(3.9,79,2,159,0)="""BLD"",5673,""KRN"",19.1,""NM"",0)"
^XMB(3.9,79,2,160,0)="^9.68A^^"
^XMB(3.9,79,2,161,0)="""BLD"",5673,""KRN"",101,0)"
^XMB(3.9,79,2,162,0)="101"
^XMB(3.9,79,2,163,0)="""BLD"",5673,""KRN"",101,""NM"",0)"
^XMB(3.9,79,2,164,0)="^9.68A^^"
^XMB(3.9,79,2,165,0)="""BLD"",5673,""KRN"",409.61,0)"
^XMB(3.9,79,2,166,0)="409.61"
^XMB(3.9,79,2,167,0)="""BLD"",5673,""KRN"",409.61,""NM"",0)"
^XMB(3.9,79,2,168,0)="^9.68A^^"
^XMB(3.9,79,2,169,0)="""BLD"",5673,""KRN"",771,0)"
^XMB(3.9,79,2,170,0)="771"
^XMB(3.9,79,2,171,0)="""BLD"",5673,""KRN"",771,""NM"",0)"
^XMB(3.9,79,2,172,0)="^9.68A^^"
^XMB(3.9,79,2,173,0)="""BLD"",5673,""KRN"",870,0)"
^XMB(3.9,79,2,174,0)="870"
^XMB(3.9,79,2,175,0)="""BLD"",5673,""KRN"",870,""NM"",0)"
^XMB(3.9,79,2,176,0)="^9.68A^^"
^XMB(3.9,79,2,177,0)="""BLD"",5673,""KRN"",8989.51,0)"
^XMB(3.9,79,2,178,0)="8989.51"
^XMB(3.9,79,2,179,0)="""BLD"",5673,""KRN"",8989.51,""NM"",0)"
^XMB(3.9,79,2,180,0)="^9.68A^^"
^XMB(3.9,79,2,181,0)="""BLD"",5673,""KRN"",8989.52,0)"
^XMB(3.9,79,2,182,0)="8989.52"
^XMB(3.9,79,2,183,0)="""BLD"",5673,""KRN"",8989.52,""NM"",0)"
^XMB(3.9,79,2,184,0)="^9.68A^^"
^XMB(3.9,79,2,185,0)="""BLD"",5673,""KRN"",8994,0)"
^XMB(3.9,79,2,186,0)="8994"
^XMB(3.9,79,2,187,0)="""BLD"",5673,""KRN"",8994,""NM"",0)"
^XMB(3.9,79,2,188,0)="^9.68A^^"
^XMB(3.9,79,2,189,0)="""BLD"",5673,""KRN"",""B"",.4,.4)"
^XMB(3.9,79,2,190,0)=""
^XMB(3.9,79,2,191,0)="""BLD"",5673,""KRN"",""B"",.401,.401)"
^XMB(3.9,79,2,192,0)=""
^XMB(3.9,79,2,193,0)="""BLD"",5673,""KRN"",""B"",.402,.402)"
^XMB(3.9,79,2,194,0)=""
^XMB(3.9,79,2,195,0)="""BLD"",5673,""KRN"",""B"",.403,.403)"
^XMB(3.9,79,2,196,0)=""
^XMB(3.9,79,2,197,0)="""BLD"",5673,""KRN"",""B"",.5,.5)"
^XMB(3.9,79,2,198,0)=""
^XMB(3.9,79,2,199,0)="""BLD"",5673,""KRN"",""B"",.84,.84)"
^XMB(3.9,79,2,200,0)=""
^XMB(3.9,79,2,201,0)="""BLD"",5673,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,79,2,202,0)=""
^XMB(3.9,79,2,203,0)="""BLD"",5673,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,79,2,204,0)=""
^XMB(3.9,79,2,205,0)="""BLD"",5673,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,79,2,206,0)=""
^XMB(3.9,79,2,207,0)="""BLD"",5673,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,79,2,208,0)=""
^XMB(3.9,79,2,209,0)="""BLD"",5673,""KRN"",""B"",19,19)"
^XMB(3.9,79,2,210,0)=""
^XMB(3.9,79,2,211,0)="""BLD"",5673,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,79,2,212,0)=""
^XMB(3.9,79,2,213,0)="""BLD"",5673,""KRN"",""B"",101,101)"
^XMB(3.9,79,2,214,0)=""
^XMB(3.9,79,2,215,0)="""BLD"",5673,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,79,2,216,0)=""
^XMB(3.9,79,2,217,0)="""BLD"",5673,""KRN"",""B"",771,771)"
^XMB(3.9,79,2,218,0)=""
^XMB(3.9,79,2,219,0)="""BLD"",5673,""KRN"",""B"",870,870)"
^XMB(3.9,79,2,220,0)=""
^XMB(3.9,79,2,221,0)="""BLD"",5673,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,79,2,222,0)=""
^XMB(3.9,79,2,223,0)="""BLD"",5673,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,79,2,224,0)=""
^XMB(3.9,79,2,225,0)="""BLD"",5673,""KRN"",""B"",8994,8994)"
^XMB(3.9,79,2,226,0)=""
^XMB(3.9,79,2,227,0)="""BLD"",5673,""QUES"",0)"
^XMB(3.9,79,2,228,0)="^9.62^^"
^XMB(3.9,79,2,229,0)="""BLD"",5673,""REQB"",0)"
^XMB(3.9,79,2,230,0)="^9.611^1^1"
^XMB(3.9,79,2,231,0)="""BLD"",5673,""REQB"",1,0)"
^XMB(3.9,79,2,232,0)="OR*3.0*215^1"
^XMB(3.9,79,2,233,0)="""BLD"",5673,""REQB"",""B"",""OR*3.0*215"",1)"
^XMB(3.9,79,2,234,0)=""
^XMB(3.9,79,2,235,0)="""FIA"",100)"
^XMB(3.9,79,2,236,0)="ORDER"
^XMB(3.9,79,2,237,0)="""FIA"",100,0)"
^XMB(3.9,79,2,238,0)="^OR(100,"
^XMB(3.9,79,2,239,0)="""FIA"",100,0,0)"
^XMB(3.9,79,2,240,0)="100I"
^XMB(3.9,79,2,241,0)="""FIA"",100,0,1)"
^XMB(3.9,79,2,242,0)="y^n^p^^^^n^^n"
^XMB(3.9,79,2,243,0)="""FIA"",100,0,10)"
^XMB(3.9,79,2,244,0)=""
^XMB(3.9,79,2,245,0)="""FIA"",100,0,11)"
^XMB(3.9,79,2,246,0)=""
^XMB(3.9,79,2,247,0)="""FIA"",100,0,""RLRO"")"
^XMB(3.9,79,2,248,0)=""
^XMB(3.9,79,2,249,0)="""FIA"",100,0,""VR"")"
^XMB(3.9,79,2,250,0)="3.0^OR"
^XMB(3.9,79,2,251,0)="""FIA"",100,100)"
^XMB(3.9,79,2,252,0)="1"
^XMB(3.9,79,2,253,0)="""FIA"",100,100,97)"
^XMB(3.9,79,2,254,0)=""
^XMB(3.9,79,2,255,0)="""MBREQ"")"
^XMB(3.9,79,2,256,0)="0"
^XMB(3.9,79,2,257,0)="""PKG"",110,-1)"
^XMB(3.9,79,2,258,0)="1^1"
^XMB(3.9,79,2,259,0)="""PKG"",110,0)"
^XMB(3.9,79,2,260,0)="ORDER ENTRY/RESULTS REPORTING^OR^Order Entry/Results Reporting"
^XMB(3.9,79,2,261,0)="""PKG"",110,20,0)"
^XMB(3.9,79,2,262,0)="^9.402P^^"
^XMB(3.9,79,2,263,0)="""PKG"",110,22,0)"
^XMB(3.9,79,2,264,0)="^9.49I^1^1"
^XMB(3.9,79,2,265,0)="""PKG"",110,22,1,0)"
^XMB(3.9,79,2,266,0)="3.0^2971217"
^XMB(3.9,79,2,267,0)="""PKG"",110,22,1,""PAH"",1,0)"
^XMB(3.9,79,2,268,0)="228^3051201"
^XMB(3.9,79,2,269,0)="""PKG"",110,22,1,""PAH"",1,1,0)"
^XMB(3.9,79,2,270,0)="^^28^28^3051201"
^XMB(3.9,79,2,271,0)="""PKG"",110,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,79,2,272,0)="This patch is part of the Patient Financial Services System (PFSS) "
^XMB(3.9,79,2,273,0)="""PKG"",110,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,79,2,274,0)="project.  PFSS patches are being released on various schedules.  Some "
^XMB(3.9,79,2,275,0)="""PKG"",110,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,79,2,276,0)="patch functionality will not be active until a new PFSS switch is "
^XMB(3.9,79,2,277,0)="""PKG"",110,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,79,2,278,0)="activated during final implementation. PFSS will initially be implemented "
^XMB(3.9,79,2,279,0)="""PKG"",110,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,79,2,280,0)="at select pilot sites ONLY."
^XMB(3.9,79,2,281,0)="""PKG"",110,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,79,2,282,0)=" "
^XMB(3.9,79,2,283,0)="""PKG"",110,22,1,""PAH"",1,1,7,0)"
^XMB(3.9,79,2,284,0)="The purpose of the PFSS project is to prepare the VistA environment for "
^XMB(3.9,79,2,285,0)="""PKG"",110,22,1,""PAH"",1,1,8,0)"
^XMB(3.9,79,2,286,0)="the implementation of a commercial off-the-shelf (COTS) billing "
^XMB(3.9,79,2,287,0)="""PKG"",110,22,1,""PAH"",1,1,9,0)"
^XMB(3.9,79,2,288,0)="replacement system.  The project consists of the implementation of the "
^XMB(3.9,79,2,289,0)="""PKG"",110,22,1,""PAH"",1,1,10,0)"
^XMB(3.9,79,2,290,0)="billing replacement system, business process improvements, and "
^XMB(3.9,79,2,291,0)="""PKG"",110,22,1,""PAH"",1,1,11,0)"
^XMB(3.9,79,2,292,0)="enhancements to Veterans Health Information Systems and Technology "
^XMB(3.9,79,2,293,0)="""PKG"",110,22,1,""PAH"",1,1,12,0)"
^XMB(3.9,79,2,294,0)="Architecture (VistA) to support integration with the COTS billing "
^XMB(3.9,79,2,295,0)="""PKG"",110,22,1,""PAH"",1,1,13,0)"
^XMB(3.9,79,2,296,0)="replacement system.  Significant changes to VistA legacy systems and "
^XMB(3.9,79,2,297,0)="""PKG"",110,22,1,""PAH"",1,1,14,0)"
^XMB(3.9,79,2,298,0)="ancillary packages are necessary."
^XMB(3.9,79,2,299,0)="""PKG"",110,22,1,""PAH"",1,1,15,0)"
^XMB(3.9,79,2,300,0)=" "
^XMB(3.9,79,2,301,0)="""PKG"",110,22,1,""PAH"",1,1,16,0)"
^XMB(3.9,79,2,302,0)="Some of the PFSS software components are not operational until the PFSS "
^XMB(3.9,79,2,303,0)="""PKG"",110,22,1,""PAH"",1,1,17,0)"
^XMB(3.9,79,2,304,0)="On/Off Switch, distributed with patch IB*2*260, is set to ""ON .  The "
^XMB(3.9,79,2,305,0)="""PKG"",110,22,1,""PAH"",1,1,18,0)"
^XMB(3.9,79,2,306,0)="ability for the local site to set the switch to ""ON  will be provided at "
^XMB(3.9,79,2,307,0)="""PKG"",110,22,1,""PAH"",1,1,19,0)"
^XMB(3.9,79,2,308,0)="the appropriate time with the release of a subsequent Integrated Billing "
^XMB(3.9,79,2,309,0)="""PKG"",110,22,1,""PAH"",1,1,20,0)"
^XMB(3.9,79,2,310,0)="patch."
^XMB(3.9,79,2,311,0)="""PKG"",110,22,1,""PAH"",1,1,21,0)"
^XMB(3.9,79,2,312,0)=" "
^XMB(3.9,79,2,313,0)="""PKG"",110,22,1,""PAH"",1,1,22,0)"
^XMB(3.9,79,2,314,0)="For more information about the PFSS project, review the documentation "
^XMB(3.9,79,2,315,0)="""PKG"",110,22,1,""PAH"",1,1,23,0)"
^XMB(3.9,79,2,316,0)="accompanying this patch and refer to the following website: "
^XMB(3.9,79,2,317,0)="""PKG"",110,22,1,""PAH"",1,1,24,0)"
^XMB(3.9,79,2,318,0)="http://vista.med.va.gov/billreplace/"
^XMB(3.9,79,2,319,0)="""PKG"",110,22,1,""PAH"",1,1,25,0)"
^XMB(3.9,79,2,320,0)=" "
^XMB(3.9,79,2,321,0)="""PKG"",110,22,1,""PAH"",1,1,26,0)"
^XMB(3.9,79,2,322,0)="The OR*3.0*228 patch is phase II of the CPRS portion of the PFSS "
^XMB(3.9,79,2,323,0)="""PKG"",110,22,1,""PAH"",1,1,27,0)"
^XMB(3.9,79,2,324,0)="project.  Phase I of the CPRS portion of the project is contained in "
^XMB(3.9,79,2,325,0)="""PKG"",110,22,1,""PAH"",1,1,28,0)"
^XMB(3.9,79,2,326,0)="OR*3.0*215."
^XMB(3.9,79,2,327,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,79,2,328,0)="Y"
^XMB(3.9,79,2,329,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,79,2,330,0)="^D REP^XPDH"
^XMB(3.9,79,2,331,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,79,2,332,0)="Shall I write over your |FLAG| File"
^XMB(3.9,79,2,333,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,79,2,334,0)="YES"
^XMB(3.9,79,2,335,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,79,2,336,0)="D XPF1^XPDIQ"
^XMB(3.9,79,2,337,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,79,2,338,0)="Y"
^XMB(3.9,79,2,339,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,79,2,340,0)="^D DTA^XPDH"
^XMB(3.9,79,2,341,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,79,2,342,0)="Want my data |FLAG| yours"
^XMB(3.9,79,2,343,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,79,2,344,0)="YES"
^XMB(3.9,79,2,345,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,79,2,346,0)="D XPF2^XPDIQ"
^XMB(3.9,79,2,347,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,79,2,348,0)="YO"
^XMB(3.9,79,2,349,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,79,2,350,0)="^D INHIBIT^XPDH"
^XMB(3.9,79,2,351,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,79,2,352,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,79,2,353,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,79,2,354,0)="YES"
^XMB(3.9,79,2,355,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,79,2,356,0)="D XPI1^XPDIQ"
^XMB(3.9,79,2,357,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,79,2,358,0)="PO^VA(200,:EM"
^XMB(3.9,79,2,359,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,79,2,360,0)="^D MG^XPDH"
^XMB(3.9,79,2,361,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,79,2,362,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,79,2,363,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,79,2,364,0)=""
^XMB(3.9,79,2,365,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,79,2,366,0)="D XPM1^XPDIQ"
^XMB(3.9,79,2,367,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,79,2,368,0)="Y"
^XMB(3.9,79,2,369,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,79,2,370,0)="^D MENU^XPDH"
^XMB(3.9,79,2,371,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,79,2,372,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,79,2,373,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,79,2,374,0)="YES"
^XMB(3.9,79,2,375,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,79,2,376,0)="D XPO1^XPDIQ"
^XMB(3.9,79,2,377,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,79,2,378,0)="Y"
^XMB(3.9,79,2,379,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,79,2,380,0)="^D OPT^XPDH"
^XMB(3.9,79,2,381,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,79,2,382,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,79,2,383,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,79,2,384,0)="YES"
^XMB(3.9,79,2,385,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,79,2,386,0)="D XPZ1^XPDIQ"
^XMB(3.9,79,2,387,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,79,2,388,0)="Y"
^XMB(3.9,79,2,389,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,79,2,390,0)="^D RTN^XPDH"
^XMB(3.9,79,2,391,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,79,2,392,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,79,2,393,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,79,2,394,0)="NO"
^XMB(3.9,79,2,395,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,79,2,396,0)="D XPZ2^XPDIQ"
^XMB(3.9,79,2,397,0)="""RTN"")"
^XMB(3.9,79,2,398,0)="6"
^XMB(3.9,79,2,399,0)="""RTN"",""ORCSEND"")"
^XMB(3.9,79,2,400,0)="0^8^B60080179^B56693058"
^XMB(3.9,79,2,401,0)="""RTN"",""ORCSEND"",1,0)"
^XMB(3.9,79,2,402,0)="ORCSEND ;SLC/MKB-Release orders ; 08 May 2002  2:12 PM"
^XMB(3.9,79,2,403,0)="""RTN"",""ORCSEND"",2,0)"
^XMB(3.9,79,2,404,0)=" ;;3.0;ORDER ENTRY/RESULTS REPORTING;**4,27,45,79,92,141,165,195,228**;Dec 17, 1997"
^XMB(3.9,79,2,405,0)="""RTN"",""ORCSEND"",3,0)"
^XMB(3.9,79,2,406,0)=" ;"
^XMB(3.9,79,2,407,0)="""RTN"",""ORCSEND"",4,0)"
^XMB(3.9,79,2,408,0)="EN(ORIFN,ACTION,SIGSTS,RELSTS,NATURE,REASON,ORERR) ; -- Release [actions on] orders"
^XMB(3.9,79,2,409,0)="""RTN"",""ORCSEND"",5,0)"
^XMB(3.9,79,2,410,0)=" N ORDA,ORNOW,SIGNREQD,SIGNED,SIGNER"
^XMB(3.9,79,2,411,0)="""RTN"",""ORCSEND"",6,0)"
^XMB(3.9,79,2,412,0)=" S SIGNREQD=+$P($G(^OR(100,+ORIFN,0)),U,16),ORERR="""""
^XMB(3.9,79,2,413,0)="""RTN"",""ORCSEND"",7,0)"
^XMB(3.9,79,2,414,0)=" S SIGNED=$S(SIGSTS=2:0,1:1),SIGNER=$S(SIGSTS=1:DUZ,SIGSTS=7:DUZ,1:"""")"
^XMB(3.9,79,2,415,0)="""RTN"",""ORCSEND"",8,0)"
^XMB(3.9,79,2,416,0)=" S ORDA=+$P(ORIFN,"";"",2),ORIFN=+ORIFN,ORNOW=+$E($$NOW^XLFDT,1,12)"
^XMB(3.9,79,2,417,0)="""RTN"",""ORCSEND"",9,0)"
^XMB(3.9,79,2,418,0)=" S:""ES""[$G(ACTION) ACTION=$P($G(^OR(100,ORIFN,8,ORDA,0)),U,2)"
^XMB(3.9,79,2,419,0)="""RTN"",""ORCSEND"",10,0)"
^XMB(3.9,79,2,420,0)=" I SIGNREQD,ORDA,""^NW^RW^XX^RN^DC^HD^RL^""[(U_ACTION_U) D  ; sign/alert"
^XMB(3.9,79,2,421,0)="""RTN"",""ORCSEND"",11,0)"
^XMB(3.9,79,2,422,0)=" . I 'SIGNED D NOTIF^ORCSIGN Q"
^XMB(3.9,79,2,423,0)="""RTN"",""ORCSEND"",12,0)"
^XMB(3.9,79,2,424,0)=" . D:SIGSTS'="""" SIGN^ORCSAVE2(ORIFN,SIGNER,ORNOW,SIGSTS,ORDA)"
^XMB(3.9,79,2,425,0)="""RTN"",""ORCSEND"",13,0)"
^XMB(3.9,79,2,426,0)=" . D:SIGSTS=4 CHART^ORCSIGN ; not used anymore"
^XMB(3.9,79,2,427,0)="""RTN"",""ORCSEND"",14,0)"
^XMB(3.9,79,2,428,0)=" I '$L(ACTION) S ORERR=""1^Invalid order action"" Q"
^XMB(3.9,79,2,429,0)="""RTN"",""ORCSEND"",15,0)"
^XMB(3.9,79,2,430,0)=" I $$READY(ORIFN,ORDA) D:$L($T(@ACTION)) @ACTION I 'ORERR,ACTION=""NW"" D"
^XMB(3.9,79,2,431,0)="""RTN"",""ORCSEND"",16,0)"
^XMB(3.9,79,2,432,0)=" . N OREVT S OREVT=+$P($G(^OR(100,ORIFN,0)),U,17) Q:OREVT<1"
^XMB(3.9,79,2,433,0)="""RTN"",""ORCSEND"",17,0)"
^XMB(3.9,79,2,434,0)=" . I '$$EVTORDER^OREVNTX(ORIFN) D SAVE^ORMEVNT1(ORIFN,OREVT,2,""ES"")"
^XMB(3.9,79,2,435,0)="""RTN"",""ORCSEND"",18,0)"
^XMB(3.9,79,2,436,0)=" ; If order originated from the back door, send Dx and TxF back to ancil."
^XMB(3.9,79,2,437,0)="""RTN"",""ORCSEND"",19,0)"
^XMB(3.9,79,2,438,0)=" I SIGNED,$P($G(^OR(100,+ORIFN,3)),U,11)=""P"" D BDOEDIT^ORWDBA7"
^XMB(3.9,79,2,439,0)="""RTN"",""ORCSEND"",20,0)"
^XMB(3.9,79,2,440,0)=" Q"
^XMB(3.9,79,2,441,0)="""RTN"",""ORCSEND"",21,0)"
^XMB(3.9,79,2,442,0)=" ;"
^XMB(3.9,79,2,443,0)="""RTN"",""ORCSEND"",22,0)"
^XMB(3.9,79,2,444,0)="EN1(ORDER,ORERR) ; -- Delayed Release [from RELEASE^ORMEVNT]"
^XMB(3.9,79,2,445,0)="""RTN"",""ORCSEND"",23,0)"
^XMB(3.9,79,2,446,0)=" ;"
^XMB(3.9,79,2,447,0)="""RTN"",""ORCSEND"",24,0)"
^XMB(3.9,79,2,448,0)=" Q:$P($G(^OR(100,+ORDER,3)),U,3)'=10"
^XMB(3.9,79,2,449,0)="""RTN"",""ORCSEND"",25,0)"
^XMB(3.9,79,2,450,0)=" N ORPKG,ORA0,ORNOW,ORIFN,ORDA,ORNP,ORNATR,ORQUIT,ORDUZ,SIGSTS,RELSTS"
^XMB(3.9,79,2,451,0)="""RTN"",""ORCSEND"",26,0)"
^XMB(3.9,79,2,452,0)=" S ORPKG=$P($G(^OR(100,+ORDER,0)),U,14),ORA0=$G(^(8,1,0))"
^XMB(3.9,79,2,453,0)="""RTN"",""ORCSEND"",27,0)"
^XMB(3.9,79,2,454,0)=" S ORNOW=+$E($$NOW^XLFDT,1,12),ORIFN=+ORDER,ORDA=1,ORNP=$P(ORA0,U,3)"
^XMB(3.9,79,2,455,0)="""RTN"",""ORCSEND"",28,0)"
^XMB(3.9,79,2,456,0)=" S SIGSTS=$P(ORA0,U,4),ORNATR=$P($G(^ORD(100.02,+$P(ORA0,U,12),0)),U,2)"
^XMB(3.9,79,2,457,0)="""RTN"",""ORCSEND"",29,0)"
^XMB(3.9,79,2,458,0)=" S RELSTS=$S(SIGSTS'=2:1,""^V^P^""[(U_ORNATR_U):1,1:0)"
^XMB(3.9,79,2,459,0)="""RTN"",""ORCSEND"",30,0)"
^XMB(3.9,79,2,460,0)=" I RELSTS D"
^XMB(3.9,79,2,461,0)="""RTN"",""ORCSEND"",31,0)"
^XMB(3.9,79,2,462,0)=" . D STARTDT^ORCSAVE2(ORIFN),PKGSTUFF^ORCSEND1(ORPKG) Q:$G(ORQUIT)"
^XMB(3.9,79,2,463,0)="""RTN"",""ORCSEND"",32,0)"
^XMB(3.9,79,2,464,0)=" . S ORDUZ=$S(SIGSTS=0:$P(ORA0,U,7),SIGSTS=1:$P(ORA0,U,5),SIGSTS=2:$P(ORA0,U,17),SIGSTS=3:$P(ORA0,U,13),1:DUZ)"
^XMB(3.9,79,2,465,0)="""RTN"",""ORCSEND"",33,0)"
^XMB(3.9,79,2,466,0)=" . D EDO1^ORWPFSS1  ;PFSS Event Delayed Orders"
^XMB(3.9,79,2,467,0)="""RTN"",""ORCSEND"",34,0)"
^XMB(3.9,79,2,468,0)=" . D RELEASE^ORCSAVE2(ORIFN,ORDA,ORNOW,ORDUZ),NEW^ORMBLD(ORIFN)"
^XMB(3.9,79,2,469,0)="""RTN"",""ORCSEND"",35,0)"
^XMB(3.9,79,2,470,0)=" . I ""^10^13^""[(U_$P($G(^OR(100,ORIFN,3)),U,3)_U) S ORERR=1 ;error"
^XMB(3.9,79,2,471,0)="""RTN"",""ORCSEND"",36,0)"
^XMB(3.9,79,2,472,0)=" I 'RELSTS!$G(ORERR),$P($G(^OR(100,ORIFN,3)),U,3)=10 D STATUS^ORCSAVE2(ORIFN,11) S $P(^OR(100,ORIFN,8,1,0),U,15)=11"
^XMB(3.9,79,2,473,0)="""RTN"",""ORCSEND"",37,0)"
^XMB(3.9,79,2,474,0)=" Q"
^XMB(3.9,79,2,475,0)="""RTN"",""ORCSEND"",38,0)"
^XMB(3.9,79,2,476,0)=" ;"
^XMB(3.9,79,2,477,0)="""RTN"",""ORCSEND"",39,0)"
^XMB(3.9,79,2,478,0)="EN2(ORIFN,SIGSTS,NATURE,ORERR)  ; -- Manual Release [from OREVNT1,SENDED^ORWDX]"
^XMB(3.9,79,2,479,0)="""RTN"",""ORCSEND"",40,0)"
^XMB(3.9,79,2,480,0)=" N ORDA,ORNOW,OREVT,ORA0,ORNP,SIGNREQD,SIGNED,RELSTS"
^XMB(3.9,79,2,481,0)="""RTN"",""ORCSEND"",41,0)"
^XMB(3.9,79,2,482,0)=" S ORDA=+$P(ORIFN,"";"",2),ORIFN=+ORIFN S:ORDA<1 ORDA=1"
^XMB(3.9,79,2,483,0)="""RTN"",""ORCSEND"",42,0)"
^XMB(3.9,79,2,484,0)=" S OREVT=+$P($G(^OR(100,ORIFN,0)),U,17),ORA0=$G(^(8,ORDA,0))"
^XMB(3.9,79,2,485,0)="""RTN"",""ORCSEND"",43,0)"
^XMB(3.9,79,2,486,0)=" S ORNP=$P(ORA0,U,3),SIGNREQD=($P(ORA0,U,4)'=3),(SIGNED,RELSTS)=1"
^XMB(3.9,79,2,487,0)="""RTN"",""ORCSEND"",44,0)"
^XMB(3.9,79,2,488,0)=" S ORNOW=+$E($$NOW^XLFDT,1,12),ORERR="""""
^XMB(3.9,79,2,489,0)="""RTN"",""ORCSEND"",45,0)"
^XMB(3.9,79,2,490,0)=" I $P(ORA0,U,4)=2 D  ;needs ES"
^XMB(3.9,79,2,491,0)="""RTN"",""ORCSEND"",46,0)"
^XMB(3.9,79,2,492,0)=" . N SIGNER S SIGNER=$S(SIGSTS=1:DUZ,1:"""")"
^XMB(3.9,79,2,493,0)="""RTN"",""ORCSEND"",47,0)"
^XMB(3.9,79,2,494,0)=" . I SIGSTS=2 D NOTIF^ORCSIGN S SIGNED=0 Q  ;still unsigned"
^XMB(3.9,79,2,495,0)="""RTN"",""ORCSEND"",48,0)"
^XMB(3.9,79,2,496,0)=" . D:SIGSTS'="""" SIGN^ORCSAVE2(ORIFN,SIGNER,ORNOW,SIGSTS,ORDA)"
^XMB(3.9,79,2,497,0)="""RTN"",""ORCSEND"",49,0)"
^XMB(3.9,79,2,498,0)=" D EDO2^ORWPFSS1  ;PFSS Event Delayed Orders"
^XMB(3.9,79,2,499,0)="""RTN"",""ORCSEND"",50,0)"
^XMB(3.9,79,2,500,0)=" D NW I 'ORERR D SAVE^ORMEVNT1(+ORIFN,OREVT,2,""MN"")"
^XMB(3.9,79,2,501,0)="""RTN"",""ORCSEND"",51,0)"
^XMB(3.9,79,2,502,0)=" Q"
^XMB(3.9,79,2,503,0)="""RTN"",""ORCSEND"",52,0)"
^XMB(3.9,79,2,504,0)=" ;"
^XMB(3.9,79,2,505,0)="""RTN"",""ORCSEND"",53,0)"
^XMB(3.9,79,2,506,0)="NW ; -- New order ORIFN"
^XMB(3.9,79,2,507,0)="""RTN"",""ORCSEND"",54,0)"
^XMB(3.9,79,2,508,0)="RW ; -- Rewritten order ORIFN"
^XMB(3.9,79,2,509,0)="""RTN"",""ORCSEND"",55,0)"
^XMB(3.9,79,2,510,0)="XX ; -- Changed order ORIFN"
^XMB(3.9,79,2,511,0)="""RTN"",""ORCSEND"",56,0)"
^XMB(3.9,79,2,512,0)="RN ; -- Renewed order ORIFN"
^XMB(3.9,79,2,513,0)="""RTN"",""ORCSEND"",57,0)"
^XMB(3.9,79,2,514,0)=" N ORQUIT,STS,TYPE,OR0,OR3,CODE,ORIG,ORSAVE"
^XMB(3.9,79,2,515,0)="""RTN"",""ORCSEND"",58,0)"
^XMB(3.9,79,2,516,0)=" I SIGNREQD,'SIGNED,'RELSTS S ORERR=$$NEEDSIG,OREBUILD=1 Q"
^XMB(3.9,79,2,517,0)="""RTN"",""ORCSEND"",59,0)"
^XMB(3.9,79,2,518,0)=" S:'ORDA ORDA=1 S ORSAVE=ORIFN"
^XMB(3.9,79,2,519,0)="""RTN"",""ORCSEND"",60,0)"
^XMB(3.9,79,2,520,0)=" S OR0=$G(^OR(100,ORIFN,0)),OR3=$G(^(3)) D STARTDT^ORCSAVE2(ORIFN)"
^XMB(3.9,79,2,521,0)="""RTN"",""ORCSEND"",61,0)"
^XMB(3.9,79,2,522,0)=" S TYPE=$P(OR3,U,11),ORIG=+$P(OR3,U,5),CODE=""NW"""
^XMB(3.9,79,2,523,0)="""RTN"",""ORCSEND"",62,0)"
^XMB(3.9,79,2,524,0)=" I TYPE=1,ORIG,$D(^OR(100,ORIG,4)) S CODE=""XO"",^OR(100,ORIG,6)=$O(^ORD(100.02,""C"",""C"",0))_U_DUZ_U_ORNOW"
^XMB(3.9,79,2,525,0)="""RTN"",""ORCSEND"",63,0)"
^XMB(3.9,79,2,526,0)=" D PKGSTUFF^ORCSEND1(+$P(OR0,U,14)) Q:$G(ORQUIT)"
^XMB(3.9,79,2,527,0)="""RTN"",""ORCSEND"",64,0)"
^XMB(3.9,79,2,528,0)=" D RELEASE^ORCSAVE2(ORIFN,ORDA,ORNOW,DUZ,$G(NATURE))"
^XMB(3.9,79,2,529,0)="""RTN"",""ORCSEND"",65,0)"
^XMB(3.9,79,2,530,0)=" D NEW^ORMBLD(ORIFN,CODE) S ORIFN=ORSAVE,STS=$P($G(^OR(100,ORIFN,3)),U,3)"
^XMB(3.9,79,2,531,0)="""RTN"",""ORCSEND"",66,0)"
^XMB(3.9,79,2,532,0)=" I (STS=1)!(STS=13) S ORERR=""1^""_$$WHY(ORIFN,1) D:'SIGNED&SIGNREQD NOSIG K:ORIG ^OR(100,ORIG,6)"
^XMB(3.9,79,2,533,0)="""RTN"",""ORCSEND"",67,0)"
^XMB(3.9,79,2,534,0)=" I STS=11 S ORERR=""1^ERROR"""
^XMB(3.9,79,2,535,0)="""RTN"",""ORCSEND"",68,0)"
^XMB(3.9,79,2,536,0)=" Q"
^XMB(3.9,79,2,537,0)="""RTN"",""ORCSEND"",69,0)"
^XMB(3.9,79,2,538,0)=" ;"
^XMB(3.9,79,2,539,0)="""RTN"",""ORCSEND"",70,0)"
^XMB(3.9,79,2,540,0)="DC ; -- DC order ORIFN"
^XMB(3.9,79,2,541,0)="""RTN"",""ORCSEND"",71,0)"
^XMB(3.9,79,2,542,0)=" N PKG,CODE,ORCHLD,ORCHDA,STS,ORIDA,ORSAVE,OR3"
^XMB(3.9,79,2,543,0)="""RTN"",""ORCSEND"",72,0)"
^XMB(3.9,79,2,544,0)=" I '$G(REASON),$G(NATURE)=""D"" S REASON=+$O(^ORD(100.03,""C"",""ORDUP"",0))"
^XMB(3.9,79,2,545,0)="""RTN"",""ORCSEND"",73,0)"
^XMB(3.9,79,2,546,0)=" S:$G(REASON) ^OR(100,ORIFN,6)=$S($G(NATURE):NATURE,$L($G(NATURE)):$O(^ORD(100.02,""C"",NATURE,0)),1:"""")_""^^^""_+REASON_U_$P(^ORD(100.03,+REASON,0),U)"
^XMB(3.9,79,2,547,0)="""RTN"",""ORCSEND"",74,0)"
^XMB(3.9,79,2,548,0)=" I SIGNREQD,'SIGNED,'RELSTS S ORERR=$$NEEDSIG Q"
^XMB(3.9,79,2,549,0)="""RTN"",""ORCSEND"",75,0)"
^XMB(3.9,79,2,550,0)=" S $P(^OR(100,ORIFN,6),U,2,3)=$S($G(DGPMT):"""",1:DUZ)_U_ORNOW,ORSAVE=ORIFN S:'$G(REASON) REASON=$P(^(6),U,4)"
^XMB(3.9,79,2,551,0)="""RTN"",""ORCSEND"",76,0)"
^XMB(3.9,79,2,552,0)=" S STS=$P($G(^OR(100,ORIFN,3)),U,3),PKG=$P($G(^(0)),U,14),PKG=$$NMSP^ORCD(PKG),CODE=$S(PKG=""LR"":""CA"",(PKG=""PS"")&(STS=5):""CA"",(PKG=""FH"")&(STS=8):""CA"",1:""DC"")"
^XMB(3.9,79,2,553,0)="""RTN"",""ORCSEND"",77,0)"
^XMB(3.9,79,2,554,0)=" D:ORDA RELEASE^ORCSAVE2(ORIFN,ORDA,ORNOW,DUZ,$G(NATURE))"
^XMB(3.9,79,2,555,0)="""RTN"",""ORCSEND"",78,0)"
^XMB(3.9,79,2,556,0)="DC1 I $O(^OR(100,ORIFN,2,0)) D  G DC2 ; DC children"
^XMB(3.9,79,2,557,0)="""RTN"",""ORCSEND"",79,0)"
^XMB(3.9,79,2,558,0)=" . S ORCHLD=0 F  S ORCHLD=$O(^OR(100,ORIFN,2,ORCHLD)) Q:ORCHLD'>0  I $$VALID^ORCACT0(ORCHLD,""DC"") D  Q:$G(ORERR)"
^XMB(3.9,79,2,559,0)="""RTN"",""ORCSEND"",80,0)"
^XMB(3.9,79,2,560,0)=" . . S ORCHDA=$S(ORDA:$$ACTION^ORCSAVE(""DC"",ORCHLD,ORNP),1:0)"
^XMB(3.9,79,2,561,0)="""RTN"",""ORCSEND"",81,0)"
^XMB(3.9,79,2,562,0)=" . . D:ORCHDA SIGN^ORCSAVE2(ORCHLD,,,"""",ORCHDA) ;Sig on Parent only"
^XMB(3.9,79,2,563,0)="""RTN"",""ORCSEND"",82,0)"
^XMB(3.9,79,2,564,0)=" . . D MSG^ORMBLD((ORCHLD_"";""_ORCHDA),CODE,$G(REASON))"
^XMB(3.9,79,2,565,0)="""RTN"",""ORCSEND"",83,0)"
^XMB(3.9,79,2,566,0)=" . . I ""^1^13^""'[(U_$P(^OR(100,ORCHLD,3),U,3)_U) S ORERR=""1^""_$$WHY(ORCHLD,ORCHDA)"
^XMB(3.9,79,2,567,0)="""RTN"",""ORCSEND"",84,0)"
^XMB(3.9,79,2,568,0)=" . ;D:'$G(ORERR) STATUS^ORCSAVE2(ORIFN,1)"
^XMB(3.9,79,2,569,0)="""RTN"",""ORCSEND"",85,0)"
^XMB(3.9,79,2,570,0)=" . S:$G(ORERR) ^OR(100,ORIFN,8,ORDA,1)=$P(ORERR,U,2)"
^XMB(3.9,79,2,571,0)="""RTN"",""ORCSEND"",86,0)"
^XMB(3.9,79,2,572,0)=" D MSG^ORMBLD((ORIFN_"";""_ORDA),CODE,$G(REASON))"
^XMB(3.9,79,2,573,0)="""RTN"",""ORCSEND"",87,0)"
^XMB(3.9,79,2,574,0)="DC2 S ORIFN=ORSAVE,OR3=$G(^OR(100,ORIFN,3)),STS=$P(OR3,U,3)"
^XMB(3.9,79,2,575,0)="""RTN"",""ORCSEND"",88,0)"
^XMB(3.9,79,2,576,0)=" I STS'=1,STS'=13,STS'=2 D  Q"
^XMB(3.9,79,2,577,0)="""RTN"",""ORCSEND"",89,0)"
^XMB(3.9,79,2,578,0)=" . S ORERR=""1^""_$S(ORDA:$$WHY(ORIFN,ORDA),1:""Unable to discontinue"")"
^XMB(3.9,79,2,579,0)="""RTN"",""ORCSEND"",90,0)"
^XMB(3.9,79,2,580,0)=" . I ORDA,'SIGNED&SIGNREQD D NOSIG ; sig no longer reqd"
^XMB(3.9,79,2,581,0)="""RTN"",""ORCSEND"",91,0)"
^XMB(3.9,79,2,582,0)=" . K ^OR(100,ORIFN,6)"
^XMB(3.9,79,2,583,0)="""RTN"",""ORCSEND"",92,0)"
^XMB(3.9,79,2,584,0)=" S $P(^OR(100,ORIFN,3),U,7)=$S(ORDA:ORDA,'$$ACTV^ORX1($G(NATURE)):0,1:$P(OR3,U,7))"
^XMB(3.9,79,2,585,0)="""RTN"",""ORCSEND"",93,0)"
^XMB(3.9,79,2,586,0)=" D CANCEL(ORIFN),SETALL^ORDD100(ORIFN)"
^XMB(3.9,79,2,587,0)="""RTN"",""ORCSEND"",94,0)"
^XMB(3.9,79,2,588,0)=" I $P(OR3,U,11)=2 D  ; dc a renewal"
^XMB(3.9,79,2,589,0)="""RTN"",""ORCSEND"",95,0)"
^XMB(3.9,79,2,590,0)=" . N ORIG,ORIG3,NATR S ORIG=$P(OR3,U,5),ORIG3=$G(^OR(100,ORIG,3)) Q:'ORIG"
^XMB(3.9,79,2,591,0)="""RTN"",""ORCSEND"",96,0)"
^XMB(3.9,79,2,592,0)=" . I CODE=""CA"" S $P(^OR(100,ORIG,3),U,6)="""" Q  ;pend - remove fwd ptr"
^XMB(3.9,79,2,593,0)="""RTN"",""ORCSEND"",97,0)"
^XMB(3.9,79,2,594,0)=" . Q:""^1^7^12^13^""[(U_$P(ORIG3,U,3)_U)  S NATR=$O(^ORD(100.02,""C"",""A"",0))"
^XMB(3.9,79,2,595,0)="""RTN"",""ORCSEND"",98,0)"
^XMB(3.9,79,2,596,0)=" . S ^OR(100,ORIG,6)=NATR_U_DUZ_U_ORNOW_""^^Renewal cancelled"""
^XMB(3.9,79,2,597,0)="""RTN"",""ORCSEND"",99,0)"
^XMB(3.9,79,2,598,0)=" . D MSG^ORMBLD(ORIG,""DC"") I ""^1^13^""'[$P(^OR(100,ORIG,3),U,3) K ^(6) Q"
^XMB(3.9,79,2,599,0)="""RTN"",""ORCSEND"",100,0)"
^XMB(3.9,79,2,600,0)=" . S:'$$ACTV^ORX1(NATR) $P(^OR(100,ORIG,3),U,7)=0"
^XMB(3.9,79,2,601,0)="""RTN"",""ORCSEND"",101,0)"
^XMB(3.9,79,2,602,0)=" Q"
^XMB(3.9,79,2,603,0)="""RTN"",""ORCSEND"",102,0)"
^XMB(3.9,79,2,604,0)=" ;"
^XMB(3.9,79,2,605,0)="""RTN"",""ORCSEND"",103,0)"
^XMB(3.9,79,2,606,0)="CANCEL(IFN) ; -- Cancel any outstanding actions for order IFN "
^XMB(3.9,79,2,607,0)="""RTN"",""ORCSEND"",104,0)"
^XMB(3.9,79,2,608,0)=" N I S I=0"
^XMB(3.9,79,2,609,0)="""RTN"",""ORCSEND"",105,0)"
^XMB(3.9,79,2,610,0)=" F  S I=$O(^OR(100,IFN,8,I)) Q:I'>0  I $P(^(I,0),U,15)=11 S $P(^(0),U,15)=13 D:$P(^(0),U,4)=2 SIGN^ORCSAVE2(IFN,"""","""",5,I) ; cancelled, sig not reqd now"
^XMB(3.9,79,2,611,0)="""RTN"",""ORCSEND"",106,0)"
^XMB(3.9,79,2,612,0)=" Q"
^XMB(3.9,79,2,613,0)="""RTN"",""ORCSEND"",107,0)"
^XMB(3.9,79,2,614,0)=" ;"
^XMB(3.9,79,2,615,0)="""RTN"",""ORCSEND"",108,0)"
^XMB(3.9,79,2,616,0)="HD ; -- Hold order ORIFN"
^XMB(3.9,79,2,617,0)="""RTN"",""ORCSEND"",109,0)"
^XMB(3.9,79,2,618,0)=" N STS,ORSAVE I 'ORDA S ORERR=""1^Unable to hold"" Q"
^XMB(3.9,79,2,619,0)="""RTN"",""ORCSEND"",110,0)"
^XMB(3.9,79,2,620,0)=" I SIGNREQD,'SIGNED,'RELSTS S ORERR=$$NEEDSIG Q"
^XMB(3.9,79,2,621,0)="""RTN"",""ORCSEND"",111,0)"
^XMB(3.9,79,2,622,0)=" D RELEASE^ORCSAVE2(ORIFN,ORDA,ORNOW,DUZ,$G(NATURE))"
^XMB(3.9,79,2,623,0)="""RTN"",""ORCSEND"",112,0)"
^XMB(3.9,79,2,624,0)=" S ORSAVE=ORIFN D MSG^ORMBLD((ORIFN_"";""_ORDA),""HD"") S ORIFN=ORSAVE"
^XMB(3.9,79,2,625,0)="""RTN"",""ORCSEND"",113,0)"
^XMB(3.9,79,2,626,0)=" S STS=$P($G(^OR(100,ORIFN,3)),U,3) I STS=3 S $P(^(3),U,7)=ORDA D SET^ORDD100(ORIFN,ORDA)"
^XMB(3.9,79,2,627,0)="""RTN"",""ORCSEND"",114,0)"
^XMB(3.9,79,2,628,0)=" I STS'=3 S ORERR=""1^""_$$WHY(ORIFN,ORDA) D:'SIGNED&SIGNREQD NOSIG"
^XMB(3.9,79,2,629,0)="""RTN"",""ORCSEND"",115,0)"
^XMB(3.9,79,2,630,0)=" Q"
^XMB(3.9,79,2,631,0)="""RTN"",""ORCSEND"",116,0)"
^XMB(3.9,79,2,632,0)=" ;"
^XMB(3.9,79,2,633,0)="""RTN"",""ORCSEND"",117,0)"
^XMB(3.9,79,2,634,0)="RL ; -- Release hold on order ORIFN"
^XMB(3.9,79,2,635,0)="""RTN"",""ORCSEND"",118,0)"
^XMB(3.9,79,2,636,0)=" N STS,ORSAVE,ORHD I 'ORDA S ORERR=""1^Unable to release hold"" Q"
^XMB(3.9,79,2,637,0)="""RTN"",""ORCSEND"",119,0)"
^XMB(3.9,79,2,638,0)=" I SIGNREQD,'SIGNED,'RELSTS S ORERR=$$NEEDSIG Q"
^XMB(3.9,79,2,639,0)="""RTN"",""ORCSEND"",120,0)"
^XMB(3.9,79,2,640,0)=" D RELEASE^ORCSAVE2(ORIFN,ORDA,ORNOW,DUZ,$G(NATURE))"
^XMB(3.9,79,2,641,0)="""RTN"",""ORCSEND"",121,0)"
^XMB(3.9,79,2,642,0)=" S ORSAVE=ORIFN D MSG^ORMBLD((ORIFN_"";""_ORDA),""RL"") S ORIFN=ORSAVE"
^XMB(3.9,79,2,643,0)="""RTN"",""ORCSEND"",122,0)"
^XMB(3.9,79,2,644,0)=" S STS=$P($G(^OR(100,ORIFN,3)),U,3),ORHD=+$P($G(^(3)),U,7)"
^XMB(3.9,79,2,645,0)="""RTN"",""ORCSEND"",123,0)"
^XMB(3.9,79,2,646,0)=" I STS'=3 S $P(^OR(100,ORIFN,3),U,7)=ORDA,$P(^(8,ORHD,2),U,1,2)=ORNOW_U_DUZ D SET^ORDD100(ORIFN,ORDA)"
^XMB(3.9,79,2,647,0)="""RTN"",""ORCSEND"",124,0)"
^XMB(3.9,79,2,648,0)=" I STS=3 S ORERR=""1^""_$$WHY(ORIFN,ORDA) D:'SIGNED&SIGNREQD NOSIG"
^XMB(3.9,79,2,649,0)="""RTN"",""ORCSEND"",125,0)"
^XMB(3.9,79,2,650,0)=" Q"
^XMB(3.9,79,2,651,0)="""RTN"",""ORCSEND"",126,0)"
^XMB(3.9,79,2,652,0)=" ;"
^XMB(3.9,79,2,653,0)="""RTN"",""ORCSEND"",127,0)"
^XMB(3.9,79,2,654,0)="FL ; -- Flag order ORIFN"
^XMB(3.9,79,2,655,0)="""RTN"",""ORCSEND"",128,0)"
^XMB(3.9,79,2,656,0)=" Q"
^XMB(3.9,79,2,657,0)="""RTN"",""ORCSEND"",129,0)"
^XMB(3.9,79,2,658,0)=" ;"
^XMB(3.9,79,2,659,0)="""RTN"",""ORCSEND"",130,0)"
^XMB(3.9,79,2,660,0)="UF ; -- Unflag order ORIFN"
^XMB(3.9,79,2,661,0)="""RTN"",""ORCSEND"",131,0)"
^XMB(3.9,79,2,662,0)=" Q"
^XMB(3.9,79,2,663,0)="""RTN"",""ORCSEND"",132,0)"
^XMB(3.9,79,2,664,0)=" ;"
^XMB(3.9,79,2,665,0)="""RTN"",""ORCSEND"",133,0)"
^XMB(3.9,79,2,666,0)="CM ; -- Add Ward comments to order ORIFN"
^XMB(3.9,79,2,667,0)="""RTN"",""ORCSEND"",134,0)"
^XMB(3.9,79,2,668,0)=" Q"
^XMB(3.9,79,2,669,0)="""RTN"",""ORCSEND"",135,0)"
^XMB(3.9,79,2,670,0)=" ;"
^XMB(3.9,79,2,671,0)="""RTN"",""ORCSEND"",136,0)"
^XMB(3.9,79,2,672,0)="VR ; -- Verify order ORIFN"
^XMB(3.9,79,2,673,0)="""RTN"",""ORCSEND"",137,0)"
^XMB(3.9,79,2,674,0)=" I 'ORDA!(SIGSTS=2) S ORERR=""1^Unable to verify"" Q"
^XMB(3.9,79,2,675,0)="""RTN"",""ORCSEND"",138,0)"
^XMB(3.9,79,2,676,0)=" I ""^N^C^R^""'[(U_$G(ORVER)_U) S ORERR=""1^Unable to verify"" Q"
^XMB(3.9,79,2,677,0)="""RTN"",""ORCSEND"",139,0)"
^XMB(3.9,79,2,678,0)=" D VERIFY^ORCSAVE2(ORIFN,ORDA,ORVER,DUZ,ORNOW)"
^XMB(3.9,79,2,679,0)="""RTN"",""ORCSEND"",140,0)"
^XMB(3.9,79,2,680,0)=" ; -- send HL7 msg to Pharmacy if Nurse-Verified, [Sts=pending]"
^XMB(3.9,79,2,681,0)="""RTN"",""ORCSEND"",141,0)"
^XMB(3.9,79,2,682,0)=" Q:ORVER'=""N""  N ORSTS,ORPKG,ORX"
^XMB(3.9,79,2,683,0)="""RTN"",""ORCSEND"",142,0)"
^XMB(3.9,79,2,684,0)=" S ORX=$P($G(^OR(100,ORIFN,8,ORDA,0)),U,2) Q:ORX'=""NW""&(ORX'=""XX"")"
^XMB(3.9,79,2,685,0)="""RTN"",""ORCSEND"",143,0)"
^XMB(3.9,79,2,686,0)=" S ORPKG=+$P($G(^OR(100,ORIFN,0)),U,14),ORSTS=$P($G(^(3)),U,3)"
^XMB(3.9,79,2,687,0)="""RTN"",""ORCSEND"",144,0)"
^XMB(3.9,79,2,688,0)=" ;I ORSTS=5!$L($T(ZV^ORMPS)),$$NMSP^ORCD(ORPKG)=""PS"" D VER^ORMBLDPS(ORIFN)"
^XMB(3.9,79,2,689,0)="""RTN"",""ORCSEND"",145,0)"
^XMB(3.9,79,2,690,0)=" I $$NMSP^ORCD(ORPKG)=""PS"" D VER^ORMBLDPS(ORIFN)"
^XMB(3.9,79,2,691,0)="""RTN"",""ORCSEND"",146,0)"
^XMB(3.9,79,2,692,0)=" Q"
^XMB(3.9,79,2,693,0)="""RTN"",""ORCSEND"",147,0)"
^XMB(3.9,79,2,694,0)=" ;"
^XMB(3.9,79,2,695,0)="""RTN"",""ORCSEND"",148,0)"
^XMB(3.9,79,2,696,0)="NEEDSIG() ; -- Msg"
^XMB(3.9,79,2,697,0)="""RTN"",""ORCSEND"",149,0)"
^XMB(3.9,79,2,698,0)=" Q ""1^This order requires a signature."""
^XMB(3.9,79,2,699,0)="""RTN"",""ORCSEND"",150,0)"
^XMB(3.9,79,2,700,0)=" ;"
^XMB(3.9,79,2,701,0)="""RTN"",""ORCSEND"",151,0)"
^XMB(3.9,79,2,702,0)="WHY(IFN,DA) ; -- Return reason request was rejected"
^XMB(3.9,79,2,703,0)="""RTN"",""ORCSEND"",152,0)"
^XMB(3.9,79,2,704,0)=" N X S X=$G(^OR(100,IFN,8,DA,1))"
^XMB(3.9,79,2,705,0)="""RTN"",""ORCSEND"",153,0)"
^XMB(3.9,79,2,706,0)=" S:'$L(X) X=""Unable to ""_$S(ACTION=""HD"":""hold"",ACTION=""RL"":""release hold"",ACTION=""DC"":""discontinue"",ACTION=""XX"":""change"",ACTION=""RN"":""renew"",1:""release"")"
^XMB(3.9,79,2,707,0)="""RTN"",""ORCSEND"",154,0)"
^XMB(3.9,79,2,708,0)=" Q X"
^XMB(3.9,79,2,709,0)="""RTN"",""ORCSEND"",155,0)"
^XMB(3.9,79,2,710,0)=" ;"
^XMB(3.9,79,2,711,0)="""RTN"",""ORCSEND"",156,0)"
^XMB(3.9,79,2,712,0)="NOSIG ; -- Mark order as Sig not Req'd due to cancel/reject"
^XMB(3.9,79,2,713,0)="""RTN"",""ORCSEND"",157,0)"
^XMB(3.9,79,2,714,0)=" D SIGN^ORCSAVE2(ORIFN,"""","""",5,ORDA) S SIGNREQD=0"
^XMB(3.9,79,2,715,0)="""RTN"",""ORCSEND"",158,0)"
^XMB(3.9,79,2,716,0)=" Q"
^XMB(3.9,79,2,717,0)="""RTN"",""ORCSEND"",159,0)"
^XMB(3.9,79,2,718,0)=" ;"
^XMB(3.9,79,2,719,0)="""RTN"",""ORCSEND"",160,0)"
^XMB(3.9,79,2,720,0)="READY(IFN,ACT) ; -- Ready to release?"
^XMB(3.9,79,2,721,0)="""RTN"",""ORCSEND"",161,0)"
^XMB(3.9,79,2,722,0)=" N X,Y,OR0,OR3,ORA"
^XMB(3.9,79,2,723,0)="""RTN"",""ORCSEND"",162,0)"
^XMB(3.9,79,2,724,0)=" I ACTION=""VR"" S Y=1 G RQ ; no action to release"
^XMB(3.9,79,2,725,0)="""RTN"",""ORCSEND"",163,0)"
^XMB(3.9,79,2,726,0)=" I 'ACT,ACTION=""DC"" S Y=1 G RQ ; cancel a duplicate"
^XMB(3.9,79,2,727,0)="""RTN"",""ORCSEND"",164,0)"
^XMB(3.9,79,2,728,0)=" S Y=0,OR0=$G(^OR(100,IFN,0)),OR3=$G(^(3)),ORA=$G(^(8,ACT,0))"
^XMB(3.9,79,2,729,0)="""RTN"",""ORCSEND"",165,0)"
^XMB(3.9,79,2,730,0)=" I $P(ORA,U,15)=11 S Y=1 G RQ ; unreleased"
^XMB(3.9,79,2,731,0)="""RTN"",""ORCSEND"",166,0)"
^XMB(3.9,79,2,732,0)=" I $P(ORA,U,15)=10 D  G RQ ; delayed"
^XMB(3.9,79,2,733,0)="""RTN"",""ORCSEND"",167,0)"
^XMB(3.9,79,2,734,0)=" . I $G(^DPT(+ORVP,.105)),$$GET1^DIQ(9.4,+$P(OR0,U,14)_"","",1)=""PSO"" S Y=1 Q"
^XMB(3.9,79,2,735,0)="""RTN"",""ORCSEND"",168,0)"
^XMB(3.9,79,2,736,0)=" . Q:'RELSTS  N ORIG S ORIG=+$P(OR3,U,5)"
^XMB(3.9,79,2,737,0)="""RTN"",""ORCSEND"",169,0)"
^XMB(3.9,79,2,738,0)=" . I 'SIGNED,$L($G(NATURE)) S $P(ORA,U,17)=DUZ,$P(ORA,U,12)=$S(NATURE:NATURE,1:+$O(^ORD(100.02,""C"",NATURE,0))),^OR(100,IFN,8,ACT,0)=ORA"
^XMB(3.9,79,2,739,0)="""RTN"",""ORCSEND"",170,0)"
^XMB(3.9,79,2,740,0)=" . Q:$P(OR3,U,11)'=1!('ORIG)  ;dc original if signed edit"
^XMB(3.9,79,2,741,0)="""RTN"",""ORCSEND"",171,0)"
^XMB(3.9,79,2,742,0)=" . D STATUS^ORCSAVE2(ORIG,12)"
^XMB(3.9,79,2,743,0)="""RTN"",""ORCSEND"",172,0)"
^XMB(3.9,79,2,744,0)=" . S ^OR(100,ORIG,6)=+$O(^ORD(100.02,""C"",""C"",0))_U_DUZ_U_ORNOW"
^XMB(3.9,79,2,745,0)="""RTN"",""ORCSEND"",173,0)"
^XMB(3.9,79,2,746,0)=" . S $P(^OR(100,ORIG,3),U,7)=0,$P(^(8,1,0),U,15)=12 D:$P($G(^(0)),U,4)=2 SIGN^ORCSAVE2(ORIG,,,5,1)"
^XMB(3.9,79,2,747,0)="""RTN"",""ORCSEND"",174,0)"
^XMB(3.9,79,2,748,0)=" I $P(OR3,U,3)=11,$P(ORA,U,2)=""NW"" S Y=1 ; Action Sts = """" (old)"
^XMB(3.9,79,2,749,0)="""RTN"",""ORCSEND"",175,0)"
^XMB(3.9,79,2,750,0)="RQ I Y=1 D EN^ORWPFSS4(+IFN) ; Associate PFSS Account Reference with order, Patch OR*3.0*228"
^XMB(3.9,79,2,751,0)="""RTN"",""ORCSEND"",176,0)"
^XMB(3.9,79,2,752,0)=" Q Y"
^XMB(3.9,79,2,753,0)="""RTN"",""ORMRA"")"
^XMB(3.9,79,2,754,0)="0^4^B59882057^B56841321"
^XMB(3.9,79,2,755,0)="""RTN"",""ORMRA"",1,0)"
^XMB(3.9,79,2,756,0)="ORMRA ; SLC/MKB - Process Radiology ORM msgs ;2/21/02  15:44 [3/4/04 10:43am]"
^XMB(3.9,79,2,757,0)="""RTN"",""ORMRA"",2,0)"
^XMB(3.9,79,2,758,0)=" ;;3.0;ORDER ENTRY/RESULTS REPORTING;**3,53,92,110,136,153,174,195,228**;Dec 17, 1997"
^XMB(3.9,79,2,759,0)="""RTN"",""ORMRA"",3,0)"
^XMB(3.9,79,2,760,0)=" ;DBIA 2968 allows for reading ^DIC(34"
^XMB(3.9,79,2,761,0)="""RTN"",""ORMRA"",4,0)"
^XMB(3.9,79,2,762,0)="EN ; -- entry point for RA messages"
^XMB(3.9,79,2,763,0)="""RTN"",""ORMRA"",5,0)"
^XMB(3.9,79,2,764,0)=" I '$L($T(@ORDCNTRL)) Q  ;S ORERR=""Invalid order control code"" Q"
^XMB(3.9,79,2,765,0)="""RTN"",""ORMRA"",6,0)"
^XMB(3.9,79,2,766,0)=" I ORDCNTRL'=""SN"",ORDCNTRL'=""ZP"",'ORIFN!('$D(^OR(100,+ORIFN,0))) S ORERR=""Invalid OE/RR order number"" Q"
^XMB(3.9,79,2,767,0)="""RTN"",""ORMRA"",7,0)"
^XMB(3.9,79,2,768,0)=" S OREASON=$S($P(OREASON,U,6)=""99RAR"":$P(OREASON,U,5),1:$P(OREASON,U,2))"
^XMB(3.9,79,2,769,0)="""RTN"",""ORMRA"",8,0)"
^XMB(3.9,79,2,770,0)=" S:'ORDUZ ORDUZ=DUZ S:'ORLOG ORLOG=+$E($$NOW^XLFDT,1,12)"
^XMB(3.9,79,2,771,0)="""RTN"",""ORMRA"",9,0)"
^XMB(3.9,79,2,772,0)=" D @ORDCNTRL"
^XMB(3.9,79,2,773,0)="""RTN"",""ORMRA"",10,0)"
^XMB(3.9,79,2,774,0)=" Q"
^XMB(3.9,79,2,775,0)="""RTN"",""ORMRA"",11,0)"
^XMB(3.9,79,2,776,0)=" ;"
^XMB(3.9,79,2,777,0)="""RTN"",""ORMRA"",12,0)"
^XMB(3.9,79,2,778,0)="ZP ; -- Purged"
^XMB(3.9,79,2,779,0)="""RTN"",""ORMRA"",13,0)"
^XMB(3.9,79,2,780,0)=" Q:'ORIFN  Q:'$D(^OR(100,+ORIFN,0))  K ^OR(100,+ORIFN,4)"
^XMB(3.9,79,2,781,0)="""RTN"",""ORMRA"",14,0)"
^XMB(3.9,79,2,782,0)=" ; - Set status=lapsed, if still active"
^XMB(3.9,79,2,783,0)="""RTN"",""ORMRA"",15,0)"
^XMB(3.9,79,2,784,0)=" I ""^3^5^6^8^""[(U_$P($G(^OR(100,+ORIFN,3)),U,3)_U) D STATUS^ORCSAVE2(ORIFN,14)"
^XMB(3.9,79,2,785,0)="""RTN"",""ORMRA"",16,0)"
^XMB(3.9,79,2,786,0)=" Q"
^XMB(3.9,79,2,787,0)="""RTN"",""ORMRA"",17,0)"
^XMB(3.9,79,2,788,0)=" ;"
^XMB(3.9,79,2,789,0)="""RTN"",""ORMRA"",18,0)"
^XMB(3.9,79,2,790,0)="ZR ; -- Purged as requested [ack]"
^XMB(3.9,79,2,791,0)="""RTN"",""ORMRA"",19,0)"
^XMB(3.9,79,2,792,0)=" D DELETE^ORCSAVE2(+ORIFN)"
^XMB(3.9,79,2,793,0)="""RTN"",""ORMRA"",20,0)"
^XMB(3.9,79,2,794,0)=" Q"
^XMB(3.9,79,2,795,0)="""RTN"",""ORMRA"",21,0)"
^XMB(3.9,79,2,796,0)=" ;"
^XMB(3.9,79,2,797,0)="""RTN"",""ORMRA"",22,0)"
^XMB(3.9,79,2,798,0)="ZU ; -- Unable to purge [ack]"
^XMB(3.9,79,2,799,0)="""RTN"",""ORMRA"",23,0)"
^XMB(3.9,79,2,800,0)=" S $P(^OR(100,+ORIFN,3),U)=$$NOW^XLFDT ; update Last Activity"
^XMB(3.9,79,2,801,0)="""RTN"",""ORMRA"",24,0)"
^XMB(3.9,79,2,802,0)=" Q"
^XMB(3.9,79,2,803,0)="""RTN"",""ORMRA"",25,0)"
^XMB(3.9,79,2,804,0)=" ;"
^XMB(3.9,79,2,805,0)="""RTN"",""ORMRA"",26,0)"
^XMB(3.9,79,2,806,0)="OK ; -- Order accepted, RA order # assigned [ack]"
^XMB(3.9,79,2,807,0)="""RTN"",""ORMRA"",27,0)"
^XMB(3.9,79,2,808,0)=" N ORSTS,OBR S ^OR(100,+ORIFN,4)=PKGIFN,ORSTS=5 ; 5=pending"
^XMB(3.9,79,2,809,0)="""RTN"",""ORMRA"",28,0)"
^XMB(3.9,79,2,810,0)=" ; Ck if also scheduled, else quit"
^XMB(3.9,79,2,811,0)="""RTN"",""ORMRA"",29,0)"
^XMB(3.9,79,2,812,0)=" S OBR=$O(@ORMSG@(+ORC)) G:'OBR OKQ G:$E(@ORMSG@(OBR),1,3)'=""OBR"" OKQ"
^XMB(3.9,79,2,813,0)="""RTN"",""ORMRA"",30,0)"
^XMB(3.9,79,2,814,0)=" S ORSTRT=$$FMDATE^ORM($P(@ORMSG@(OBR),""|"",37))"
^XMB(3.9,79,2,815,0)="""RTN"",""ORMRA"",31,0)"
^XMB(3.9,79,2,816,0)=" D:ORSTRT DATES^ORCSAVE2(+ORIFN,ORSTRT)"
^XMB(3.9,79,2,817,0)="""RTN"",""ORMRA"",32,0)"
^XMB(3.9,79,2,818,0)="OKQ D STATUS^ORCSAVE2(ORIFN,ORSTS)"
^XMB(3.9,79,2,819,0)="""RTN"",""ORMRA"",33,0)"
^XMB(3.9,79,2,820,0)=" ;Save the Radiology pre-certification Account Reference in the PV1"
^XMB(3.9,79,2,821,0)="""RTN"",""ORMRA"",34,0)"
^XMB(3.9,79,2,822,0)=" ;segment of the HL7 message from the Radiology package to the Order"
^XMB(3.9,79,2,823,0)="""RTN"",""ORMRA"",35,0)"
^XMB(3.9,79,2,824,0)=" ;File (#100). Support for Patch OR*3.0*228"
^XMB(3.9,79,2,825,0)="""RTN"",""ORMRA"",36,0)"
^XMB(3.9,79,2,826,0)=" D PRECERT^ORWPFSS2"
^XMB(3.9,79,2,827,0)="""RTN"",""ORMRA"",37,0)"
^XMB(3.9,79,2,828,0)=" Q"
^XMB(3.9,79,2,829,0)="""RTN"",""ORMRA"",38,0)"
^XMB(3.9,79,2,830,0)=" ;"
^XMB(3.9,79,2,831,0)="""RTN"",""ORMRA"",39,0)"
^XMB(3.9,79,2,832,0)="XX ; -- Change order"
^XMB(3.9,79,2,833,0)="""RTN"",""ORMRA"",40,0)"
^XMB(3.9,79,2,834,0)=" N ORDIALOG,ORDG,ORDA,ORX,ORP S:'$L(ORNATR) ORNATR=""S"""
^XMB(3.9,79,2,835,0)="""RTN"",""ORMRA"",41,0)"
^XMB(3.9,79,2,836,0)=" D DLG Q:$D(ORERR)  Q:'$D(ORDIALOG)  S ORIFN=+ORIFN"
^XMB(3.9,79,2,837,0)="""RTN"",""ORMRA"",42,0)"
^XMB(3.9,79,2,838,0)=" S ORDA=$$ACTION^ORCSAVE(""XX"",ORIFN,ORNP,OREASON,ORLOG,ORDUZ)"
^XMB(3.9,79,2,839,0)="""RTN"",""ORMRA"",43,0)"
^XMB(3.9,79,2,840,0)=" I ORDA'>0 S ORERR=""Cannot create new order action"" Q"
^XMB(3.9,79,2,841,0)="""RTN"",""ORMRA"",44,0)"
^XMB(3.9,79,2,842,0)=" ; -Update sts of order to active, last action to dc/edit:"
^XMB(3.9,79,2,843,0)="""RTN"",""ORMRA"",45,0)"
^XMB(3.9,79,2,844,0)=" S ORX=+$P($G(^OR(100,ORIFN,3)),U,7)"
^XMB(3.9,79,2,845,0)="""RTN"",""ORMRA"",46,0)"
^XMB(3.9,79,2,846,0)=" S:$P($G(^OR(100,ORIFN,8,ORX,0)),U,15)="""" $P(^(0),U,15)=12"
^XMB(3.9,79,2,847,0)="""RTN"",""ORMRA"",47,0)"
^XMB(3.9,79,2,848,0)=" S $P(^OR(100,ORIFN,3),U,7)=ORDA D STATUS^ORCSAVE2(ORIFN,6)"
^XMB(3.9,79,2,849,0)="""RTN"",""ORMRA"",48,0)"
^XMB(3.9,79,2,850,0)=" D RELEASE^ORCSAVE2(ORIFN,ORDA,ORLOG,ORDUZ,ORNATR)"
^XMB(3.9,79,2,851,0)="""RTN"",""ORMRA"",49,0)"
^XMB(3.9,79,2,852,0)=" ; -If unsigned edit, leave XX unsigned & mark ORX as Sig Not Req'd"
^XMB(3.9,79,2,853,0)="""RTN"",""ORMRA"",50,0)"
^XMB(3.9,79,2,854,0)=" S ORSIG=$S($P($G(^OR(100,ORIFN,8,ORX,0)),U,4)'=2:1,1:0)"
^XMB(3.9,79,2,855,0)="""RTN"",""ORMRA"",51,0)"
^XMB(3.9,79,2,856,0)=" D SIGSTS^ORCSAVE2(ORIFN,ORDA):ORSIG,SIGN^ORCSAVE2(ORIFN,,,5,ORX):'ORSIG"
^XMB(3.9,79,2,857,0)="""RTN"",""ORMRA"",52,0)"
^XMB(3.9,79,2,858,0)=" ; -Update responses, get/save new order text:"
^XMB(3.9,79,2,859,0)="""RTN"",""ORMRA"",53,0)"
^XMB(3.9,79,2,860,0)=" K ^OR(100,ORIFN,4.5) D RESPONSE^ORCSAVE,ORDTEXT^ORCSAVE1(ORIFN_"";""_ORDA)"
^XMB(3.9,79,2,861,0)="""RTN"",""ORMRA"",54,0)"
^XMB(3.9,79,2,862,0)=" S $P(^OR(100,ORIFN,8,ORDA,0),U,14)=ORDA"
^XMB(3.9,79,2,863,0)="""RTN"",""ORMRA"",55,0)"
^XMB(3.9,79,2,864,0)=" I $G(ORL) S ORP(1)=+ORIFN_"";""_ORDA_""^1"" D PRINTS^ORWD1(.ORP,+ORL)"
^XMB(3.9,79,2,865,0)="""RTN"",""ORMRA"",56,0)"
^XMB(3.9,79,2,866,0)=" Q"
^XMB(3.9,79,2,867,0)="""RTN"",""ORMRA"",57,0)"
^XMB(3.9,79,2,868,0)=" ;"
^XMB(3.9,79,2,869,0)="""RTN"",""ORMRA"",58,0)"
^XMB(3.9,79,2,870,0)="SN ; -- New backdoor order: return NA msg w/ORIFN, or DE msg"
^XMB(3.9,79,2,871,0)="""RTN"",""ORMRA"",59,0)"
^XMB(3.9,79,2,872,0)=" N ORDIALOG,ORDG,ORP K ^TMP(""ORWORD"",$J) S:'$L(ORNATR) ORNATR=""W"""
^XMB(3.9,79,2,873,0)="""RTN"",""ORMRA"",60,0)"
^XMB(3.9,79,2,874,0)=" I ORDUZ,'$D(^VA(200,ORDUZ,0)) S ORERR=""Invalid entering person"" Q"
^XMB(3.9,79,2,875,0)="""RTN"",""ORMRA"",61,0)"
^XMB(3.9,79,2,876,0)=" I '$D(^VA(200,ORNP,0)) S ORERR=""Missing or invalid ordering provider"" Q"
^XMB(3.9,79,2,877,0)="""RTN"",""ORMRA"",62,0)"
^XMB(3.9,79,2,878,0)=" I '$G(ORL) S ORERR=""Missing or invalid patient location"" Q"
^XMB(3.9,79,2,879,0)="""RTN"",""ORMRA"",63,0)"
^XMB(3.9,79,2,880,0)=" D DLG Q:$D(ORERR)  Q:'$D(ORDIALOG)"
^XMB(3.9,79,2,881,0)="""RTN"",""ORMRA"",64,0)"
^XMB(3.9,79,2,882,0)="SNQ D EN^ORCSAVE K ^TMP(""ORWORD"",$J)"
^XMB(3.9,79,2,883,0)="""RTN"",""ORMRA"",65,0)"
^XMB(3.9,79,2,884,0)=" I '$G(ORIFN) S ORERR=""Cannot create new order"" Q"
^XMB(3.9,79,2,885,0)="""RTN"",""ORMRA"",66,0)"
^XMB(3.9,79,2,886,0)=" ;Save DG1 and ZCL segments of HL7 message from backdoor orders"
^XMB(3.9,79,2,887,0)="""RTN"",""ORMRA"",67,0)"
^XMB(3.9,79,2,888,0)=" D BDOSTR^ORWDBA3"
^XMB(3.9,79,2,889,0)="""RTN"",""ORMRA"",68,0)"
^XMB(3.9,79,2,890,0)=" ;Save the Rediology pre-certification Account Reference in the PV1"
^XMB(3.9,79,2,891,0)="""RTN"",""ORMRA"",69,0)"
^XMB(3.9,79,2,892,0)=" ;segment of the HL7 message from the Radiology package to the Order"
^XMB(3.9,79,2,893,0)="""RTN"",""ORMRA"",70,0)"
^XMB(3.9,79,2,894,0)=" ;File (#100). Support for Patch OR*3.0*228"
^XMB(3.9,79,2,895,0)="""RTN"",""ORMRA"",71,0)"
^XMB(3.9,79,2,896,0)=" D PRECERT^ORWPFSS2"
^XMB(3.9,79,2,897,0)="""RTN"",""ORMRA"",72,0)"
^XMB(3.9,79,2,898,0)=" D RELEASE^ORCSAVE2(ORIFN,1,ORLOG,ORDUZ,ORNATR),SIGSTS^ORCSAVE2(ORIFN,1)"
^XMB(3.9,79,2,899,0)="""RTN"",""ORMRA"",73,0)"
^XMB(3.9,79,2,900,0)=" D STATUS^ORCSAVE2(ORIFN,5) S ^OR(100,ORIFN,4)=PKGIFN"
^XMB(3.9,79,2,901,0)="""RTN"",""ORMRA"",74,0)"
^XMB(3.9,79,2,902,0)=" I $G(ORL) S ORP(1)=ORIFN_"";1^1"" D PRINTS^ORWD1(.ORP,+ORL) ; chart copy"
^XMB(3.9,79,2,903,0)="""RTN"",""ORMRA"",75,0)"
^XMB(3.9,79,2,904,0)=" Q"
^XMB(3.9,79,2,905,0)="""RTN"",""ORMRA"",76,0)"
^XMB(3.9,79,2,906,0)=" ;"
^XMB(3.9,79,2,907,0)="""RTN"",""ORMRA"",77,0)"
^XMB(3.9,79,2,908,0)="DLG ; -- Build ORDIALOG() from msg"
^XMB(3.9,79,2,909,0)="""RTN"",""ORMRA"",78,0)"
^XMB(3.9,79,2,910,0)=" N OBR,OI,MODS,J,X,Y,ILOC,MODE,CH,CHI,OBX,NTE"
^XMB(3.9,79,2,911,0)="""RTN"",""ORMRA"",79,0)"
^XMB(3.9,79,2,912,0)=" S ORDIALOG=$O(^ORD(101.41,""AB"",""RA OERR EXAM"",0))"
^XMB(3.9,79,2,913,0)="""RTN"",""ORMRA"",80,0)"
^XMB(3.9,79,2,914,0)=" D GETDLG1^ORCD(ORDIALOG)"
^XMB(3.9,79,2,915,0)="""RTN"",""ORMRA"",81,0)"
^XMB(3.9,79,2,916,0)=" S ORDIALOG($$PTR(""CATEGORY""),1)=$G(ORCAT)"
^XMB(3.9,79,2,917,0)="""RTN"",""ORMRA"",82,0)"
^XMB(3.9,79,2,918,0)=" S ORDIALOG($$PTR(""START DATE/TIME""),1)=ORSTRT"
^XMB(3.9,79,2,919,0)="""RTN"",""ORMRA"",83,0)"
^XMB(3.9,79,2,920,0)=" S ORDIALOG($$PTR(""URGENCY""),1)=ORURG"
^XMB(3.9,79,2,921,0)="""RTN"",""ORMRA"",84,0)"
^XMB(3.9,79,2,922,0)=" S:$P(ORC,""|"",12) ORDIALOG($$PTR(""PROVIDER""),1)=+$P(ORC,""|"",12)"
^XMB(3.9,79,2,923,0)="""RTN"",""ORMRA"",85,0)"
^XMB(3.9,79,2,924,0)="D1 S OBR=$O(@ORMSG@(+ORC)) I 'OBR!($E($G(@ORMSG@(OBR)),1,3)'=""OBR"") S ORERR=""Missing OBR segment"" Q"
^XMB(3.9,79,2,925,0)="""RTN"",""ORMRA"",86,0)"
^XMB(3.9,79,2,926,0)=" S OI=$$ORDITEM^ORM($P(@ORMSG@(OBR),""|"",5))"
^XMB(3.9,79,2,927,0)="""RTN"",""ORMRA"",87,0)"
^XMB(3.9,79,2,928,0)=" I 'OI S ORERR=""Invalid procedure"" Q"
^XMB(3.9,79,2,929,0)="""RTN"",""ORMRA"",88,0)"
^XMB(3.9,79,2,930,0)=" S ORDIALOG($$PTR(""ORDERABLE ITEM""),1)=OI"
^XMB(3.9,79,2,931,0)="""RTN"",""ORMRA"",89,0)"
^XMB(3.9,79,2,932,0)=" S ORDG=$P($G(^ORD(101.43,+OI,""RA"")),U,3) S:$L(ORDG) ORDG=+$O(^ORD(100.98,""B"",ORDG,0)) I 'ORDG S ORDG=$P(^ORD(101.41,+ORDIALOG,0),U,5) ; Im Type"
^XMB(3.9,79,2,933,0)="""RTN"",""ORMRA"",90,0)"
^XMB(3.9,79,2,934,0)=" S MODS=$P(@ORMSG@(OBR),""|"",19) I $L(MODS) D"
^XMB(3.9,79,2,935,0)="""RTN"",""ORMRA"",91,0)"
^XMB(3.9,79,2,936,0)=" . F J=1:1:$L(MODS,""~"") S X=$P(MODS,""~"",J) I $L(X) S Y=$O(^RAMIS(71.2,""B"",X,0)) S:Y ORDIALOG($$PTR(""MODIFIERS""),J)=Y"
^XMB(3.9,79,2,937,0)="""RTN"",""ORMRA"",92,0)"
^XMB(3.9,79,2,938,0)=" S ILOC=+$P(@ORMSG@(OBR),""|"",20),MODE=$P(@ORMSG@(OBR),""|"",31)"
^XMB(3.9,79,2,939,0)="""RTN"",""ORMRA"",93,0)"
^XMB(3.9,79,2,940,0)=" S:ILOC ORDIALOG($$PTR(""IMAGING LOCATION""),1)=ILOC"
^XMB(3.9,79,2,941,0)="""RTN"",""ORMRA"",94,0)"
^XMB(3.9,79,2,942,0)=" S ORDIALOG($$PTR(""MODE OF TRANSPORT""),1)=$S(MODE=""WALK"":""A"",MODE=""CART"":""S"",1:$E(MODE))"
^XMB(3.9,79,2,943,0)="""RTN"",""ORMRA"",95,0)"
^XMB(3.9,79,2,944,0)=" I ORDCNTRL=""XX"" S NTE=+$O(@ORMSG@(OBR)) I NTE,$E($G(@ORMSG@(NTE)),1,3)=""NTE"" S OREASON=$P(@ORMSG@(NTE),""|"",4) ;Tech's Comments"
^XMB(3.9,79,2,945,0)="""RTN"",""ORMRA"",96,0)"
^XMB(3.9,79,2,946,0)="D2 ; might the procedure be scheduled at this point ??  Not in spec"
^XMB(3.9,79,2,947,0)="""RTN"",""ORMRA"",97,0)"
^XMB(3.9,79,2,948,0)=" S CH=$$PTR(""WORD PROCESSING 1""),CHI=0"
^XMB(3.9,79,2,949,0)="""RTN"",""ORMRA"",98,0)"
^XMB(3.9,79,2,950,0)=" S OBX=OBR F  S OBX=$O(@ORMSG@(OBX)) Q:OBX'>0  S J=$E(@ORMSG@(OBX),1,3) Q:J=""ORC""  Q:J=""MSH""  I J=""OBX"" D"
^XMB(3.9,79,2,951,0)="""RTN"",""ORMRA"",99,0)"
^XMB(3.9,79,2,952,0)=" . N NAME,VALUE,X0 S VALUE=$P(@ORMSG@(OBX),""|"",6)"
^XMB(3.9,79,2,953,0)="""RTN"",""ORMRA"",100,0)"
^XMB(3.9,79,2,954,0)=" . S NAME=$$UP^XLFSTR($P($P(@ORMSG@(OBX),""|"",4),U,2))"
^XMB(3.9,79,2,955,0)="""RTN"",""ORMRA"",101,0)"
^XMB(3.9,79,2,956,0)=" . I NAME=""CONTRACT/SHARING SOURCE"" S X0=$G(^DIC(34,+VALUE,0)) S:$L(X0) ORDIALOG($$PTR(NAME),1)=+VALUE,ORDIALOG($$PTR(""CATEGORY""),1)=$P(X0,U,2) Q"
^XMB(3.9,79,2,957,0)="""RTN"",""ORMRA"",102,0)"
^XMB(3.9,79,2,958,0)=" . I NAME=""RESEARCH SOURCE"" S ORDIALOG($$PTR(NAME),1)=VALUE,ORDIALOG($$PTR(""CATEGORY""),1)=""R"" Q"
^XMB(3.9,79,2,959,0)="""RTN"",""ORMRA"",103,0)"
^XMB(3.9,79,2,960,0)=" . I NAME=""PREGNANT"" S ORDIALOG($$PTR(NAME),1)=VALUE Q"
^XMB(3.9,79,2,961,0)="""RTN"",""ORMRA"",104,0)"
^XMB(3.9,79,2,962,0)=" . I NAME=""PRE-OP SCHEDULED DATE/TIME"" S ORDIALOG($$PTR(NAME),1)=$$FMDATE^ORM(VALUE) Q"
^XMB(3.9,79,2,963,0)="""RTN"",""ORMRA"",105,0)"
^XMB(3.9,79,2,964,0)=" . S CHI=CHI+1,^TMP(""ORWORD"",$J,CH,1,CHI,0)=VALUE"
^XMB(3.9,79,2,965,0)="""RTN"",""ORMRA"",106,0)"
^XMB(3.9,79,2,966,0)=" S:CHI ^TMP(""ORWORD"",$J,CH,1,0)=""^^""_CHI_U_CHI_U_DT_U,ORDIALOG(CH,1)=""^TMP(""""ORWORD"""",$J,""_CH_"",1)"""
^XMB(3.9,79,2,967,0)="""RTN"",""ORMRA"",107,0)"
^XMB(3.9,79,2,968,0)=" Q"
^XMB(3.9,79,2,969,0)="""RTN"",""ORMRA"",108,0)"
^XMB(3.9,79,2,970,0)=" ;"
^XMB(3.9,79,2,971,0)="""RTN"",""ORMRA"",109,0)"
^XMB(3.9,79,2,972,0)="PTR(X) ; -- Returns ptr to prompt in Order Dialog file #101.41"
^XMB(3.9,79,2,973,0)="""RTN"",""ORMRA"",110,0)"
^XMB(3.9,79,2,974,0)=" Q +$O(^ORD(101.41,""AB"",$E(""OR GTX ""_X,1,63),0))"
^XMB(3.9,79,2,975,0)="""RTN"",""ORMRA"",111,0)"
^XMB(3.9,79,2,976,0)=" ;"
^XMB(3.9,79,2,977,0)="""RTN"",""ORMRA"",112,0)"
^XMB(3.9,79,2,978,0)="SC ; -- Status changed (scheduled, registered, or unverified)"
^XMB(3.9,79,2,979,0)="""RTN"",""ORMRA"",113,0)"
^XMB(3.9,79,2,980,0)=" N ORSTS,OBR,OR3 ;110"
^XMB(3.9,79,2,981,0)="""RTN"",""ORMRA"",114,0)"
^XMB(3.9,79,2,982,0)=" S ORSTS=$S(ORDSTS=""ZR"":6,ORDSTS=""ZU"":6,1:8),OR3=$G(^OR(100,+ORIFN,3)) ;110"
^XMB(3.9,79,2,983,0)="""RTN"",""ORMRA"",115,0)"
^XMB(3.9,79,2,984,0)=" G:ORSTS=6 SCQ ;136  Done if active, else get scheduled data"
^XMB(3.9,79,2,985,0)="""RTN"",""ORMRA"",116,0)"
^XMB(3.9,79,2,986,0)=" S OBR=$O(@ORMSG@(+ORC)) I 'OBR!($E($G(@ORMSG@(OBR)),1,3)'=""OBR"") S ORERR=""Missing OBR segment"" Q"
^XMB(3.9,79,2,987,0)="""RTN"",""ORMRA"",117,0)"
^XMB(3.9,79,2,988,0)=" S ORSTRT=$$FMDATE^ORM($P(@ORMSG@(OBR),""|"",37))"
^XMB(3.9,79,2,989,0)="""RTN"",""ORMRA"",118,0)"
^XMB(3.9,79,2,990,0)=" D:ORSTRT DATES^ORCSAVE2(+ORIFN,ORSTRT)"
^XMB(3.9,79,2,991,0)="""RTN"",""ORMRA"",119,0)"
^XMB(3.9,79,2,992,0)=" I $P(OR3,U,3)=3,$P($G(^OR(100,+ORIFN,8,+$P(OR3,U,7),0)),U,2)=""HD"" D RL ;If status is hold and current action is hold then release.  Added with 110"
^XMB(3.9,79,2,993,0)="""RTN"",""ORMRA"",120,0)"
^XMB(3.9,79,2,994,0)="SCQ D STATUS^ORCSAVE2(ORIFN,ORSTS)"
^XMB(3.9,79,2,995,0)="""RTN"",""ORMRA"",121,0)"
^XMB(3.9,79,2,996,0)=" Q"
^XMB(3.9,79,2,997,0)="""RTN"",""ORMRA"",122,0)"
^XMB(3.9,79,2,998,0)=" ;"
^XMB(3.9,79,2,999,0)="""RTN"",""ORMRA"",123,0)"
^XMB(3.9,79,2,1000,0)="RE ; -- Completed, w/results"
^XMB(3.9,79,2,1001,0)="""RTN"",""ORMRA"",124,0)"
^XMB(3.9,79,2,1002,0)=" N I,SEG,OBX"
^XMB(3.9,79,2,1003,0)="""RTN"",""ORMRA"",125,0)"
^XMB(3.9,79,2,1004,0)=" D STATUS^ORCSAVE2(ORIFN,2)"
^XMB(3.9,79,2,1005,0)="""RTN"",""ORMRA"",126,0)"
^XMB(3.9,79,2,1006,0)=" S OBX="""" D  ;get Results D/T [from OBR]"
^XMB(3.9,79,2,1007,0)="""RTN"",""ORMRA"",127,0)"
^XMB(3.9,79,2,1008,0)=" . N DA,DR,DIE,X,Y,OBR"
^XMB(3.9,79,2,1009,0)="""RTN"",""ORMRA"",128,0)"
^XMB(3.9,79,2,1010,0)=" . S DA=+ORIFN,DIE=""^OR(100,"",OBR=+$O(@ORMSG@(+ORC)),X="""""
^XMB(3.9,79,2,1011,0)="""RTN"",""ORMRA"",129,0)"
^XMB(3.9,79,2,1012,0)=" . I OBR,$E($G(@ORMSG@(OBR)),1,3)=""OBR"" S X=$P(@ORMSG@(OBR),""|"",23)"
^XMB(3.9,79,2,1013,0)="""RTN"",""ORMRA"",130,0)"
^XMB(3.9,79,2,1014,0)=" . S DR=""71////""_$S(X:$$FMDATE^ORM(X),1:+$E($$NOW^XLFDT,1,12)) D ^DIE"
^XMB(3.9,79,2,1015,0)="""RTN"",""ORMRA"",131,0)"
^XMB(3.9,79,2,1016,0)=" S I=+ORC F  S I=$O(@ORMSG@(I)) Q:I<1  S SEG=$G(@ORMSG@(I)) Q:$E(SEG,1,3)=""ORC""  I $E(SEG,1,3)=""OBX"" S OBX=I_U_SEG Q  ;first one"
^XMB(3.9,79,2,1017,0)="""RTN"",""ORMRA"",132,0)"
^XMB(3.9,79,2,1018,0)=" S $P(^OR(100,+ORIFN,7),U,2)=$S($P(OBX,""|"",9)=""A"":1,1:"""")"
^XMB(3.9,79,2,1019,0)="""RTN"",""ORMRA"",133,0)"
^XMB(3.9,79,2,1020,0)=" S:'$G(ORNP) ORNP=+$P($G(^OR(100,+ORIFN,0)),U,4)"
^XMB(3.9,79,2,1021,0)="""RTN"",""ORMRA"",134,0)"
^XMB(3.9,79,2,1022,0)=" I $L($T(ADD^ORRCACK)) D ADD^ORRCACK(+ORIFN,ORNP) ;Ack stub for prov"
^XMB(3.9,79,2,1023,0)="""RTN"",""ORMRA"",135,0)"
^XMB(3.9,79,2,1024,0)=" Q"
^XMB(3.9,79,2,1025,0)="""RTN"",""ORMRA"",136,0)"
^XMB(3.9,79,2,1026,0)=" ;"
^XMB(3.9,79,2,1027,0)="""RTN"",""ORMRA"",137,0)"
^XMB(3.9,79,2,1028,0)="OH ; -- Held"
^XMB(3.9,79,2,1029,0)="""RTN"",""ORMRA"",138,0)"
^XMB(3.9,79,2,1030,0)=" D UPDATE(3,""HD"")"
^XMB(3.9,79,2,1031,0)="""RTN"",""ORMRA"",139,0)"
^XMB(3.9,79,2,1032,0)=" Q"
^XMB(3.9,79,2,1033,0)="""RTN"",""ORMRA"",140,0)"
^XMB(3.9,79,2,1034,0)=" ;"
^XMB(3.9,79,2,1035,0)="""RTN"",""ORMRA"",141,0)"
^XMB(3.9,79,2,1036,0)="OC ; -- Cancelled/Unable to accept [ack]"
^XMB(3.9,79,2,1037,0)="""RTN"",""ORMRA"",142,0)"
^XMB(3.9,79,2,1038,0)="UA ; -- Unable to accept [ack]"
^XMB(3.9,79,2,1039,0)="""RTN"",""ORMRA"",143,0)"
^XMB(3.9,79,2,1040,0)=" S:'$L(ORNATR) ORNATR=""X"" ;Rejected"
^XMB(3.9,79,2,1041,0)="""RTN"",""ORMRA"",144,0)"
^XMB(3.9,79,2,1042,0)=" S ^OR(100,+ORIFN,6)=$O(^ORD(100.02,""C"",ORNATR,0))_U_U_ORLOG_U_U_OREASON"
^XMB(3.9,79,2,1043,0)="""RTN"",""ORMRA"",145,0)"
^XMB(3.9,79,2,1044,0)=" D STATUS^ORCSAVE2(ORIFN,13)"
^XMB(3.9,79,2,1045,0)="""RTN"",""ORMRA"",146,0)"
^XMB(3.9,79,2,1046,0)="UD ; -- Unable to discontinue [ack]"
^XMB(3.9,79,2,1047,0)="""RTN"",""ORMRA"",147,0)"
^XMB(3.9,79,2,1048,0)=" N DA S DA=+$P(ORIFN,"";"",2) I DA D"
^XMB(3.9,79,2,1049,0)="""RTN"",""ORMRA"",148,0)"
^XMB(3.9,79,2,1050,0)=" . S $P(^OR(100,+ORIFN,8,DA,0),U,15)=13 ;Request rejected"
^XMB(3.9,79,2,1051,0)="""RTN"",""ORMRA"",149,0)"
^XMB(3.9,79,2,1052,0)=" . S:$L(OREASON) ^OR(100,+ORIFN,8,DA,1)=OREASON"
^XMB(3.9,79,2,1053,0)="""RTN"",""ORMRA"",150,0)"
^XMB(3.9,79,2,1054,0)=" Q"
^XMB(3.9,79,2,1055,0)="""RTN"",""ORMRA"",151,0)"
^XMB(3.9,79,2,1056,0)=" ;"
^XMB(3.9,79,2,1057,0)="""RTN"",""ORMRA"",152,0)"
^XMB(3.9,79,2,1058,0)="OD ; -- Discontinued"
^XMB(3.9,79,2,1059,0)="""RTN"",""ORMRA"",153,0)"
^XMB(3.9,79,2,1060,0)=" S:$G(DGPMT) ORDUZ="""" ;auto-dc on movement"
^XMB(3.9,79,2,1061,0)="""RTN"",""ORMRA"",154,0)"
^XMB(3.9,79,2,1062,0)=" S ^OR(100,+ORIFN,6)=$S($L(ORNATR):$O(^ORD(100.02,""C"",ORNATR,0)),1:"""")_U_ORDUZ_U_ORLOG_U_U_OREASON"
^XMB(3.9,79,2,1063,0)="""RTN"",""ORMRA"",155,0)"
^XMB(3.9,79,2,1064,0)=" D UPDATE(1,""DC"")"
^XMB(3.9,79,2,1065,0)="""RTN"",""ORMRA"",156,0)"
^XMB(3.9,79,2,1066,0)=" Q"
^XMB(3.9,79,2,1067,0)="""RTN"",""ORMRA"",157,0)"
^XMB(3.9,79,2,1068,0)=" ;"
^XMB(3.9,79,2,1069,0)="""RTN"",""ORMRA"",158,0)"
^XMB(3.9,79,2,1070,0)="DR ; -- Discontinued [ack]"
^XMB(3.9,79,2,1071,0)="""RTN"",""ORMRA"",159,0)"
^XMB(3.9,79,2,1072,0)=" D STATUS^ORCSAVE2(ORIFN,1)"
^XMB(3.9,79,2,1073,0)="""RTN"",""ORMRA"",160,0)"
^XMB(3.9,79,2,1074,0)=" Q"
^XMB(3.9,79,2,1075,0)="""RTN"",""ORMRA"",161,0)"
^XMB(3.9,79,2,1076,0)=" ;"
^XMB(3.9,79,2,1077,0)="""RTN"",""ORMRA"",162,0)"
^XMB(3.9,79,2,1078,0)="UPDATE(ORSTS,ORACT) ; -- continue processing"
^XMB(3.9,79,2,1079,0)="""RTN"",""ORMRA"",163,0)"
^XMB(3.9,79,2,1080,0)=" N ORX,ORDA,ORP D:$G(ORSTS) STATUS^ORCSAVE2(ORIFN,ORSTS)"
^XMB(3.9,79,2,1081,0)="""RTN"",""ORMRA"",164,0)"
^XMB(3.9,79,2,1082,0)=" S ORX=$$CREATE^ORX1(ORNATR) D:ORX"
^XMB(3.9,79,2,1083,0)="""RTN"",""ORMRA"",165,0)"
^XMB(3.9,79,2,1084,0)=" . S ORDA=$$ACTION^ORCSAVE(ORACT,+ORIFN,ORNP,OREASON,ORLOG,ORDUZ)"
^XMB(3.9,79,2,1085,0)="""RTN"",""ORMRA"",166,0)"
^XMB(3.9,79,2,1086,0)=" . I ORDA'>0 S ORERR=""Cannot create new order action"" Q"
^XMB(3.9,79,2,1087,0)="""RTN"",""ORMRA"",167,0)"
^XMB(3.9,79,2,1088,0)=" . D RELEASE^ORCSAVE2(+ORIFN,ORDA,ORLOG,ORDUZ,ORNATR)"
^XMB(3.9,79,2,1089,0)="""RTN"",""ORMRA"",168,0)"
^XMB(3.9,79,2,1090,0)=" . D SIGSTS^ORCSAVE2(+ORIFN,ORDA)"
^XMB(3.9,79,2,1091,0)="""RTN"",""ORMRA"",169,0)"
^XMB(3.9,79,2,1092,0)=" . I $G(ORL) S ORP(1)=+ORIFN_"";""_ORDA_""^1"" D PRINTS^ORWD1(.ORP,+ORL)"
^XMB(3.9,79,2,1093,0)="""RTN"",""ORMRA"",170,0)"
^XMB(3.9,79,2,1094,0)=" . S $P(^OR(100,+ORIFN,3),U,7)=ORDA"
^XMB(3.9,79,2,1095,0)="""RTN"",""ORMRA"",171,0)"
^XMB(3.9,79,2,1096,0)=" I 'ORX D  ;no new action created"
^XMB(3.9,79,2,1097,0)="""RTN"",""ORMRA"",172,0)"
^XMB(3.9,79,2,1098,0)=" . I ORACT=""DC"" S:'$$ACTV^ORX1(ORNATR) $P(^OR(100,+ORIFN,3),U,7)=0 Q"
^XMB(3.9,79,2,1099,0)="""RTN"",""ORMRA"",173,0)"
^XMB(3.9,79,2,1100,0)=" . S:ORACT=""HD""&$L(OREASON) ^OR(100,+ORIFN,8,1,1)=OREASON ;pend/sch only"
^XMB(3.9,79,2,1101,0)="""RTN"",""ORMRA"",174,0)"
^XMB(3.9,79,2,1102,0)=" D:ORACT=""DC"" CANCEL^ORCSEND(+ORIFN)"
^XMB(3.9,79,2,1103,0)="""RTN"",""ORMRA"",175,0)"
^XMB(3.9,79,2,1104,0)=" Q"
^XMB(3.9,79,2,1105,0)="""RTN"",""ORMRA"",176,0)"
^XMB(3.9,79,2,1106,0)=" ;"
^XMB(3.9,79,2,1107,0)="""RTN"",""ORMRA"",177,0)"
^XMB(3.9,79,2,1108,0)="RL ;Release hold --entire section added with patch 110"
^XMB(3.9,79,2,1109,0)="""RTN"",""ORMRA"",178,0)"
^XMB(3.9,79,2,1110,0)=" S ^OR(100,+ORIFN,8,$P(OR3,U,7),2)=ORLOG_""^""_ORDUZ  ;Set release hold date/time and release hold user"
^XMB(3.9,79,2,1111,0)="""RTN"",""ORMRA"",179,0)"
^XMB(3.9,79,2,1112,0)=" S ORNATR=$S($L(ORNATR):ORNATR,1:$P(^OR(100,+ORIFN,8,$P(OR3,U,7),0),U,12)) ;set nature of order for release equal to nature of order for hold if it doesn't exist"
^XMB(3.9,79,2,1113,0)="""RTN"",""ORMRA"",180,0)"
^XMB(3.9,79,2,1114,0)=" I $G(ORSTS)="""" S ORSTS=6"
^XMB(3.9,79,2,1115,0)="""RTN"",""ORMRA"",181,0)"
^XMB(3.9,79,2,1116,0)=" D UPDATE(ORSTS,""RL"")"
^XMB(3.9,79,2,1117,0)="""RTN"",""ORMRA"",182,0)"
^XMB(3.9,79,2,1118,0)=" Q"
^XMB(3.9,79,2,1119,0)="""RTN"",""ORWPFSS"")"
^XMB(3.9,79,2,1120,0)="0^1^B3926796^B258658"
^XMB(3.9,79,2,1121,0)="""RTN"",""ORWPFSS"",1,0)"
^XMB(3.9,79,2,1122,0)="ORWPFSS ; SLC/REV/GSS - CPRS PFSS Calls; 11/15/04 [11/15/04 11:43am]"
^XMB(3.9,79,2,1123,0)="""RTN"",""ORWPFSS"",2,0)"
^XMB(3.9,79,2,1124,0)=" ;;3.0;ORDER ENTRY/RESULTS REPORTING;**215,228**;Dec 17, 1997"
^XMB(3.9,79,2,1125,0)="""RTN"",""ORWPFSS"",3,0)"
^XMB(3.9,79,2,1126,0)=" ; Sub-routines for phase II of the CPRS PFSS project except for"
^XMB(3.9,79,2,1127,0)="""RTN"",""ORWPFSS"",4,0)"
^XMB(3.9,79,2,1128,0)=" ;   tag PFSSACTV which (with different code) is in CPRS v26 or phase I"
^XMB(3.9,79,2,1129,0)="""RTN"",""ORWPFSS"",5,0)"
^XMB(3.9,79,2,1130,0)=" ;"
^XMB(3.9,79,2,1131,0)="""RTN"",""ORWPFSS"",6,0)"
^XMB(3.9,79,2,1132,0)=" Q"
^XMB(3.9,79,2,1133,0)="""RTN"",""ORWPFSS"",7,0)"
^XMB(3.9,79,2,1134,0)=" ;"
^XMB(3.9,79,2,1135,0)="""RTN"",""ORWPFSS"",8,0)"
^XMB(3.9,79,2,1136,0)="PFSSACTV(ORY) ; Is PFSS active for this system/user/etc?"
^XMB(3.9,79,2,1137,0)="""RTN"",""ORWPFSS"",9,0)"
^XMB(3.9,79,2,1138,0)=" ; RPC called by Delphi to determine if passing visit string"
^XMB(3.9,79,2,1139,0)="""RTN"",""ORWPFSS"",10,0)"
^XMB(3.9,79,2,1140,0)=" ;"
^XMB(3.9,79,2,1141,0)="""RTN"",""ORWPFSS"",11,0)"
^XMB(3.9,79,2,1142,0)=" ; 1 = PFSS active - pass visit string with order"
^XMB(3.9,79,2,1143,0)="""RTN"",""ORWPFSS"",12,0)"
^XMB(3.9,79,2,1144,0)=" ; 0 = PFSS not active - do not pass visit string"
^XMB(3.9,79,2,1145,0)="""RTN"",""ORWPFSS"",13,0)"
^XMB(3.9,79,2,1146,0)=" ;"
^XMB(3.9,79,2,1147,0)="""RTN"",""ORWPFSS"",14,0)"
^XMB(3.9,79,2,1148,0)=" ;$$SWSTAT^IBBAPI() WILL BE RELEASED IN IB*2*286, as per E.Zeigler"
^XMB(3.9,79,2,1149,0)="""RTN"",""ORWPFSS"",15,0)"
^XMB(3.9,79,2,1150,0)=" ;"
^XMB(3.9,79,2,1151,0)="""RTN"",""ORWPFSS"",16,0)"
^XMB(3.9,79,2,1152,0)=" ;Check for IB patch"
^XMB(3.9,79,2,1153,0)="""RTN"",""ORWPFSS"",17,0)"
^XMB(3.9,79,2,1154,0)=" S ORY=+$$PATCH^XPDUTL(""IB*2.0*286"") Q:ORY=0"
^XMB(3.9,79,2,1155,0)="""RTN"",""ORWPFSS"",18,0)"
^XMB(3.9,79,2,1156,0)=" ;Check PFSS master switch status (1=On, 0=Off) "
^XMB(3.9,79,2,1157,0)="""RTN"",""ORWPFSS"",19,0)"
^XMB(3.9,79,2,1158,0)=" S ORY=+$$SWSTAT^IBBAPI()  ;IA #4663"
^XMB(3.9,79,2,1159,0)="""RTN"",""ORWPFSS"",20,0)"
^XMB(3.9,79,2,1160,0)=" Q"
^XMB(3.9,79,2,1161,0)="""RTN"",""ORWPFSS"",21,0)"
^XMB(3.9,79,2,1162,0)=" ;"
^XMB(3.9,79,2,1163,0)="""RTN"",""ORWPFSS"",22,0)"
^XMB(3.9,79,2,1164,0)="ORACTREF(ORACTREF,ORIEN) ;Return PFSS Account Reference Number (ARN)"
^XMB(3.9,79,2,1165,0)="""RTN"",""ORWPFSS"",23,0)"
^XMB(3.9,79,2,1166,0)=" ; PFSS ARN in order file (#100) as field #97, i.e., ^OR(100,ORIEN,5.5)"
^XMB(3.9,79,2,1167,0)="""RTN"",""ORWPFSS"",24,0)"
^XMB(3.9,79,2,1168,0)=" ; This API is covered under IA #4673"
^XMB(3.9,79,2,1169,0)="""RTN"",""ORWPFSS"",25,0)"
^XMB(3.9,79,2,1170,0)=" ;"
^XMB(3.9,79,2,1171,0)="""RTN"",""ORWPFSS"",26,0)"
^XMB(3.9,79,2,1172,0)=" ; Access as D ORACTREF^ORWPFSS(.ORACTREF,ORIEN), where"
^XMB(3.9,79,2,1173,0)="""RTN"",""ORWPFSS"",27,0)"
^XMB(3.9,79,2,1174,0)=" ;    ORIEN      Order IEN"
^XMB(3.9,79,2,1175,0)="""RTN"",""ORWPFSS"",28,0)"
^XMB(3.9,79,2,1176,0)=" ;    ORACTREF   returned in internal format, i.e., pointer to file #375"
^XMB(3.9,79,2,1177,0)="""RTN"",""ORWPFSS"",29,0)"
^XMB(3.9,79,2,1178,0)=" ;"
^XMB(3.9,79,2,1179,0)="""RTN"",""ORWPFSS"",30,0)"
^XMB(3.9,79,2,1180,0)=" ; Input:"
^XMB(3.9,79,2,1181,0)="""RTN"",""ORWPFSS"",31,0)"
^XMB(3.9,79,2,1182,0)=" ;   ORIEN     Order internal reference number related to PFSS ARN"
^XMB(3.9,79,2,1183,0)="""RTN"",""ORWPFSS"",32,0)"
^XMB(3.9,79,2,1184,0)=" ; Output:"
^XMB(3.9,79,2,1185,0)="""RTN"",""ORWPFSS"",33,0)"
^XMB(3.9,79,2,1186,0)=" ;   ORACTREF  PFSS Account Reference Number"
^XMB(3.9,79,2,1187,0)="""RTN"",""ORWPFSS"",34,0)"
^XMB(3.9,79,2,1188,0)=" ;"
^XMB(3.9,79,2,1189,0)="""RTN"",""ORWPFSS"",35,0)"
^XMB(3.9,79,2,1190,0)=" ; new variables"
^XMB(3.9,79,2,1191,0)="""RTN"",""ORWPFSS"",36,0)"
^XMB(3.9,79,2,1192,0)=" N ORERCK,ORPKG,OIREC,OIV,OIVN"
^XMB(3.9,79,2,1193,0)="""RTN"",""ORWPFSS"",37,0)"
^XMB(3.9,79,2,1194,0)=" ; initialize PCE Account Reference Number variable"
^XMB(3.9,79,2,1195,0)="""RTN"",""ORWPFSS"",38,0)"
^XMB(3.9,79,2,1196,0)=" S ORACTREF="""""
^XMB(3.9,79,2,1197,0)="""RTN"",""ORWPFSS"",39,0)"
^XMB(3.9,79,2,1198,0)=" ; check for a valid ORIEN"
^XMB(3.9,79,2,1199,0)="""RTN"",""ORWPFSS"",40,0)"
^XMB(3.9,79,2,1200,0)=" S ORERCK=$$ORDERCK(ORIEN) Q:+ORERCK>1"
^XMB(3.9,79,2,1201,0)="""RTN"",""ORWPFSS"",41,0)"
^XMB(3.9,79,2,1202,0)=" ; get PFSS ARN from Order File (#100)"
^XMB(3.9,79,2,1203,0)="""RTN"",""ORWPFSS"",42,0)"
^XMB(3.9,79,2,1204,0)=" S ORACTREF=$$GET1^DIQ(100,ORIEN_"","",97,""I"","""","""")"
^XMB(3.9,79,2,1205,0)="""RTN"",""ORWPFSS"",43,0)"
^XMB(3.9,79,2,1206,0)=" Q"
^XMB(3.9,79,2,1207,0)="""RTN"",""ORWPFSS"",44,0)"
^XMB(3.9,79,2,1208,0)=" ;"
^XMB(3.9,79,2,1209,0)="""RTN"",""ORWPFSS"",45,0)"
^XMB(3.9,79,2,1210,0)="ORDERCK(ORIEN) ; check validity of Order IEN (ORIEN)"
^XMB(3.9,79,2,1211,0)="""RTN"",""ORWPFSS"",46,0)"
^XMB(3.9,79,2,1212,0)=" ; used by ORWPFSS & ORWPFSS1, access as $$ORDERCK^ORWPFSS(ORIEN)"
^XMB(3.9,79,2,1213,0)="""RTN"",""ORWPFSS"",47,0)"
^XMB(3.9,79,2,1214,0)=" ;"
^XMB(3.9,79,2,1215,0)="""RTN"",""ORWPFSS"",48,0)"
^XMB(3.9,79,2,1216,0)=" ; Input:"
^XMB(3.9,79,2,1217,0)="""RTN"",""ORWPFSS"",49,0)"
^XMB(3.9,79,2,1218,0)=" ;   ORIEN    Order internal reference number related to PFSS ARN"
^XMB(3.9,79,2,1219,0)="""RTN"",""ORWPFSS"",50,0)"
^XMB(3.9,79,2,1220,0)=" ; Output:"
^XMB(3.9,79,2,1221,0)="""RTN"",""ORWPFSS"",51,0)"
^XMB(3.9,79,2,1222,0)=" ;   if error, returns #^reason, where #>1"
^XMB(3.9,79,2,1223,0)="""RTN"",""ORWPFSS"",52,0)"
^XMB(3.9,79,2,1224,0)=" ;   if valid, returns 1"
^XMB(3.9,79,2,1225,0)="""RTN"",""ORWPFSS"",53,0)"
^XMB(3.9,79,2,1226,0)=" ;"
^XMB(3.9,79,2,1227,0)="""RTN"",""ORWPFSS"",54,0)"
^XMB(3.9,79,2,1228,0)=" ; quit if ORIEN is null"
^XMB(3.9,79,2,1229,0)="""RTN"",""ORWPFSS"",55,0)"
^XMB(3.9,79,2,1230,0)=" I $G(ORIEN)="""" Q 90_U_""ORIEN IS NULL"""
^XMB(3.9,79,2,1231,0)="""RTN"",""ORWPFSS"",56,0)"
^XMB(3.9,79,2,1232,0)=" ; quit if order is a document/note, i.e., not an order"
^XMB(3.9,79,2,1233,0)="""RTN"",""ORWPFSS"",57,0)"
^XMB(3.9,79,2,1234,0)=" I ORIEN=0 Q 91_U_""ORIEN IS A DOCUMENT/NOTE"""
^XMB(3.9,79,2,1235,0)="""RTN"",""ORWPFSS"",58,0)"
^XMB(3.9,79,2,1236,0)=" ; quit if ORIEN value is invalid, e.g., no such order"
^XMB(3.9,79,2,1237,0)="""RTN"",""ORWPFSS"",59,0)"
^XMB(3.9,79,2,1238,0)=" I $D(^OR(100,ORIEN,0))'=1 Q 92_U_""ORIEN IS AN INVALID ORDER NUMBER"""
^XMB(3.9,79,2,1239,0)="""RTN"",""ORWPFSS"",60,0)"
^XMB(3.9,79,2,1240,0)=" ; determine if package type supported"
^XMB(3.9,79,2,1241,0)="""RTN"",""ORWPFSS"",61,0)"
^XMB(3.9,79,2,1242,0)=" I '$$PKGTYP(ORIEN) Q 93_U_""PACKAGE TYPE NOT SUPPORTED"""
^XMB(3.9,79,2,1243,0)="""RTN"",""ORWPFSS"",62,0)"
^XMB(3.9,79,2,1244,0)=" ; ORIEN is valid"
^XMB(3.9,79,2,1245,0)="""RTN"",""ORWPFSS"",63,0)"
^XMB(3.9,79,2,1246,0)=" Q 1"
^XMB(3.9,79,2,1247,0)="""RTN"",""ORWPFSS"",64,0)"
^XMB(3.9,79,2,1248,0)=" ;"
^XMB(3.9,79,2,1249,0)="""RTN"",""ORWPFSS"",65,0)"
^XMB(3.9,79,2,1250,0)="PKGTYP(ORIEN) ; Build CPRS PFSS supported packages array"
^XMB(3.9,79,2,1251,0)="""RTN"",""ORWPFSS"",66,0)"
^XMB(3.9,79,2,1252,0)=" ; returns 1 if order package type supported, otherwise returns 0"
^XMB(3.9,79,2,1253,0)="""RTN"",""ORWPFSS"",67,0)"
^XMB(3.9,79,2,1254,0)=" ; LR=Lab, RA=Radiology"
^XMB(3.9,79,2,1255,0)="""RTN"",""ORWPFSS"",68,0)"
^XMB(3.9,79,2,1256,0)=" ; to add a package, include it above (documentation) & in For stmt below"
^XMB(3.9,79,2,1257,0)="""RTN"",""ORWPFSS"",69,0)"
^XMB(3.9,79,2,1258,0)=" ;"
^XMB(3.9,79,2,1259,0)="""RTN"",""ORWPFSS"",70,0)"
^XMB(3.9,79,2,1260,0)=" N I,ORPKG,ORPKGARY"
^XMB(3.9,79,2,1261,0)="""RTN"",""ORWPFSS"",71,0)"
^XMB(3.9,79,2,1262,0)=" F I=1:1 S ORPKG=$P(""LR;RA"","";"",I) Q:ORPKG=""""  D"
^XMB(3.9,79,2,1263,0)="""RTN"",""ORWPFSS"",72,0)"
^XMB(3.9,79,2,1264,0)=" . ; create ORPKGARY array of supported package types"
^XMB(3.9,79,2,1265,0)="""RTN"",""ORWPFSS"",73,0)"
^XMB(3.9,79,2,1266,0)=" . S ORPKGARY(+$O(^DIC(9.4,""C"",ORPKG,0)))=ORPKG  ; ^DIC(9.4) is pkg file"
^XMB(3.9,79,2,1267,0)="""RTN"",""ORWPFSS"",74,0)"
^XMB(3.9,79,2,1268,0)=" ; yes, order passed is of a package type that is supported"
^XMB(3.9,79,2,1269,0)="""RTN"",""ORWPFSS"",75,0)"
^XMB(3.9,79,2,1270,0)=" I $D(ORPKGARY($P(^OR(100,ORIEN,0),U,14))) Q 1"
^XMB(3.9,79,2,1271,0)="""RTN"",""ORWPFSS"",76,0)"
^XMB(3.9,79,2,1272,0)=" Q 0  ; package type not supported"
^XMB(3.9,79,2,1273,0)="""RTN"",""ORWPFSS1"")"
^XMB(3.9,79,2,1274,0)="0^2^B11865424^n/a"
^XMB(3.9,79,2,1275,0)="""RTN"",""ORWPFSS1"",1,0)"
^XMB(3.9,79,2,1276,0)="ORWPFSS1 ;SLC/GSS - CPRS PFSS; 05/24/05 [05/24/05 11:44am]"
^XMB(3.9,79,2,1277,0)="""RTN"",""ORWPFSS1"",2,0)"
^XMB(3.9,79,2,1278,0)=" ;;3.0;ORDER ENTRY/RESULTS REPORTING;**228**;Dec 17, 1997"
^XMB(3.9,79,2,1279,0)="""RTN"",""ORWPFSS1"",3,0)"
^XMB(3.9,79,2,1280,0)=" ; Sub-routines for phase II of the CPRS PFSS project (CPRS v26=phase I)"
^XMB(3.9,79,2,1281,0)="""RTN"",""ORWPFSS1"",4,0)"
^XMB(3.9,79,2,1282,0)=" ;"
^XMB(3.9,79,2,1283,0)="""RTN"",""ORWPFSS1"",5,0)"
^XMB(3.9,79,2,1284,0)=" Q"
^XMB(3.9,79,2,1285,0)="""RTN"",""ORWPFSS1"",6,0)"
^XMB(3.9,79,2,1286,0)=" ;"
^XMB(3.9,79,2,1287,0)="""RTN"",""ORWPFSS1"",7,0)"
^XMB(3.9,79,2,1288,0)="ACCTREF(ORIEN,ORACTREF) ;File PFSS Account Reference Number (ARN)"
^XMB(3.9,79,2,1289,0)="""RTN"",""ORWPFSS1"",8,0)"
^XMB(3.9,79,2,1290,0)=" ; PFSS ARN stored as 1st piece of ^OR(100,ORIEN,5.5), aka Field #97"
^XMB(3.9,79,2,1291,0)="""RTN"",""ORWPFSS1"",9,0)"
^XMB(3.9,79,2,1292,0)=" ; Call as an extrinsic function,i.e., $$ACCTREF^ORWPFSS1(ORIEN,ORACTREF)"
^XMB(3.9,79,2,1293,0)="""RTN"",""ORWPFSS1"",10,0)"
^XMB(3.9,79,2,1294,0)=" ;"
^XMB(3.9,79,2,1295,0)="""RTN"",""ORWPFSS1"",11,0)"
^XMB(3.9,79,2,1296,0)=" ; Input:"
^XMB(3.9,79,2,1297,0)="""RTN"",""ORWPFSS1"",12,0)"
^XMB(3.9,79,2,1298,0)=" ;   ORIEN     Order internal reference number related to PFSS ARN"
^XMB(3.9,79,2,1299,0)="""RTN"",""ORWPFSS1"",13,0)"
^XMB(3.9,79,2,1300,0)=" ;   ORACTREF  PFSS ARN to store, which is a pointer to File #375"
^XMB(3.9,79,2,1301,0)="""RTN"",""ORWPFSS1"",14,0)"
^XMB(3.9,79,2,1302,0)=" ; Output:"
^XMB(3.9,79,2,1303,0)="""RTN"",""ORWPFSS1"",15,0)"
^XMB(3.9,79,2,1304,0)=" ;   if error, returns #^reason, where #>1"
^XMB(3.9,79,2,1305,0)="""RTN"",""ORWPFSS1"",16,0)"
^XMB(3.9,79,2,1306,0)=" ;   if valid, returns 1"
^XMB(3.9,79,2,1307,0)="""RTN"",""ORWPFSS1"",17,0)"
^XMB(3.9,79,2,1308,0)=" ;"
^XMB(3.9,79,2,1309,0)="""RTN"",""ORWPFSS1"",18,0)"
^XMB(3.9,79,2,1310,0)=" ; Additional variables used:"
^XMB(3.9,79,2,1311,0)="""RTN"",""ORWPFSS1"",19,0)"
^XMB(3.9,79,2,1312,0)=" ;   ORERCK    error variable (error #^verbiage)"
^XMB(3.9,79,2,1313,0)="""RTN"",""ORWPFSS1"",20,0)"
^XMB(3.9,79,2,1314,0)=" ;"
^XMB(3.9,79,2,1315,0)="""RTN"",""ORWPFSS1"",21,0)"
^XMB(3.9,79,2,1316,0)=" ; new variables"
^XMB(3.9,79,2,1317,0)="""RTN"",""ORWPFSS1"",22,0)"
^XMB(3.9,79,2,1318,0)=" N ARE,ORER,ORERCK,ORFDA,ORNEWER"
^XMB(3.9,79,2,1319,0)="""RTN"",""ORWPFSS1"",23,0)"
^XMB(3.9,79,2,1320,0)=" ;"
^XMB(3.9,79,2,1321,0)="""RTN"",""ORWPFSS1"",24,0)"
^XMB(3.9,79,2,1322,0)=" ; check for a valid ORIEN"
^XMB(3.9,79,2,1323,0)="""RTN"",""ORWPFSS1"",25,0)"
^XMB(3.9,79,2,1324,0)=" S ORERCK=$$ORDERCK^ORWPFSS(ORIEN)"
^XMB(3.9,79,2,1325,0)="""RTN"",""ORWPFSS1"",26,0)"
^XMB(3.9,79,2,1326,0)=" I +ORERCK>1 Q ORERCK"
^XMB(3.9,79,2,1327,0)="""RTN"",""ORWPFSS1"",27,0)"
^XMB(3.9,79,2,1328,0)=" ;"
^XMB(3.9,79,2,1329,0)="""RTN"",""ORWPFSS1"",28,0)"
^XMB(3.9,79,2,1330,0)=" ; check for pre-existing, non-null entry, if there is to be no editing"
^XMB(3.9,79,2,1331,0)="""RTN"",""ORWPFSS1"",29,0)"
^XMB(3.9,79,2,1332,0)=" I $G(^OR(100,ORIEN,5.5))'="""" Q 97_U_""PFSS Acct Ref # exists in Order file"""
^XMB(3.9,79,2,1333,0)="""RTN"",""ORWPFSS1"",30,0)"
^XMB(3.9,79,2,1334,0)=" ; check that PFSS ARN is in a valid format"
^XMB(3.9,79,2,1335,0)="""RTN"",""ORWPFSS1"",31,0)"
^XMB(3.9,79,2,1336,0)=" I '+ORACTREF Q 98_U_""PFSS is null or of invalid format"""
^XMB(3.9,79,2,1337,0)="""RTN"",""ORWPFSS1"",32,0)"
^XMB(3.9,79,2,1338,0)=" ; check that PFSS ARN exists in PFSS Acount file #375 - DBIA #4741"
^XMB(3.9,79,2,1339,0)="""RTN"",""ORWPFSS1"",33,0)"
^XMB(3.9,79,2,1340,0)=" I '$D(^IBBAA(375,ORACTREF,0)) Q 99_U_""PFSS Acct Ref # doesn't exist"""
^XMB(3.9,79,2,1341,0)="""RTN"",""ORWPFSS1"",34,0)"
^XMB(3.9,79,2,1342,0)=" ;"
^XMB(3.9,79,2,1343,0)="""RTN"",""ORWPFSS1"",35,0)"
^XMB(3.9,79,2,1344,0)=" ; store PARN (while checking for errors)"
^XMB(3.9,79,2,1345,0)="""RTN"",""ORWPFSS1"",36,0)"
^XMB(3.9,79,2,1346,0)=" S ORERCK=$$STRPARN(ORIEN,ORACTREF)"
^XMB(3.9,79,2,1347,0)="""RTN"",""ORWPFSS1"",37,0)"
^XMB(3.9,79,2,1348,0)=" Q ORERCK"
^XMB(3.9,79,2,1349,0)="""RTN"",""ORWPFSS1"",38,0)"
^XMB(3.9,79,2,1350,0)=" ;"
^XMB(3.9,79,2,1351,0)="""RTN"",""ORWPFSS1"",39,0)"
^XMB(3.9,79,2,1352,0)="EDO1 ; Event Delayed Orders called from EN1^ORCSEND for delayed releases"
^XMB(3.9,79,2,1353,0)="""RTN"",""ORWPFSS1"",40,0)"
^XMB(3.9,79,2,1354,0)=" ;"
^XMB(3.9,79,2,1355,0)="""RTN"",""ORWPFSS1"",41,0)"
^XMB(3.9,79,2,1356,0)=" ;  EIEN     = Release event IEN"
^XMB(3.9,79,2,1357,0)="""RTN"",""ORWPFSS1"",42,0)"
^XMB(3.9,79,2,1358,0)=" ;  EPOINTER = Event pointer"
^XMB(3.9,79,2,1359,0)="""RTN"",""ORWPFSS1"",43,0)"
^XMB(3.9,79,2,1360,0)=" ;  ETYPE    = Event type"
^XMB(3.9,79,2,1361,0)="""RTN"",""ORWPFSS1"",44,0)"
^XMB(3.9,79,2,1362,0)=" ;  DFN      = Patient IEN"
^XMB(3.9,79,2,1363,0)="""RTN"",""ORWPFSS1"",45,0)"
^XMB(3.9,79,2,1364,0)=" ;  ORACTREF = PFSS Account Reference Number"
^XMB(3.9,79,2,1365,0)="""RTN"",""ORWPFSS1"",46,0)"
^XMB(3.9,79,2,1366,0)=" ;  ORERCK   = Order check results (1 = OK)"
^XMB(3.9,79,2,1367,0)="""RTN"",""ORWPFSS1"",47,0)"
^XMB(3.9,79,2,1368,0)=" ;  ORIFN    = Order IEN (previously defined)"
^XMB(3.9,79,2,1369,0)="""RTN"",""ORWPFSS1"",48,0)"
^XMB(3.9,79,2,1370,0)=" ;"
^XMB(3.9,79,2,1371,0)="""RTN"",""ORWPFSS1"",49,0)"
^XMB(3.9,79,2,1372,0)=" ; new variables used"
^XMB(3.9,79,2,1373,0)="""RTN"",""ORWPFSS1"",50,0)"
^XMB(3.9,79,2,1374,0)=" N EIEN,EPOINTER,ETYPE,DFN,ORACTREF,ORERCK,ORPFSS"
^XMB(3.9,79,2,1375,0)="""RTN"",""ORWPFSS1"",51,0)"
^XMB(3.9,79,2,1376,0)=" ;"
^XMB(3.9,79,2,1377,0)="""RTN"",""ORWPFSS1"",52,0)"
^XMB(3.9,79,2,1378,0)=" ; quit if PFSS is not active"
^XMB(3.9,79,2,1379,0)="""RTN"",""ORWPFSS1"",53,0)"
^XMB(3.9,79,2,1380,0)=" D PFSSACTV^ORWPFSS(.ORPFSS) I ORPFSS=0 G EDO1Q"
^XMB(3.9,79,2,1381,0)="""RTN"",""ORWPFSS1"",54,0)"
^XMB(3.9,79,2,1382,0)=" ;"
^XMB(3.9,79,2,1383,0)="""RTN"",""ORWPFSS1"",55,0)"
^XMB(3.9,79,2,1384,0)=" ; check validity/support of order"
^XMB(3.9,79,2,1385,0)="""RTN"",""ORWPFSS1"",56,0)"
^XMB(3.9,79,2,1386,0)=" S ORERCK=$$ORDERCK^ORWPFSS(ORIFN) I +ORERCK>1 G EDO1Q"
^XMB(3.9,79,2,1387,0)="""RTN"",""ORWPFSS1"",57,0)"
^XMB(3.9,79,2,1388,0)=" ;"
^XMB(3.9,79,2,1389,0)="""RTN"",""ORWPFSS1"",58,0)"
^XMB(3.9,79,2,1390,0)=" ; get Event Pointer"
^XMB(3.9,79,2,1391,0)="""RTN"",""ORWPFSS1"",59,0)"
^XMB(3.9,79,2,1392,0)=" S EPOINTER=$P(^OR(100,ORIFN,0),U,17)"
^XMB(3.9,79,2,1393,0)="""RTN"",""ORWPFSS1"",60,0)"
^XMB(3.9,79,2,1394,0)=" ; if EPOINTER is null then quit"
^XMB(3.9,79,2,1395,0)="""RTN"",""ORWPFSS1"",61,0)"
^XMB(3.9,79,2,1396,0)=" I EPOINTER="""" G EDO1Q"
^XMB(3.9,79,2,1397,0)="""RTN"",""ORWPFSS1"",62,0)"
^XMB(3.9,79,2,1398,0)=" ;"
^XMB(3.9,79,2,1399,0)="""RTN"",""ORWPFSS1"",63,0)"
^XMB(3.9,79,2,1400,0)=" ; get Release Event Record"
^XMB(3.9,79,2,1401,0)="""RTN"",""ORWPFSS1"",64,0)"
^XMB(3.9,79,2,1402,0)=" S EIEN=$P(^ORE(100.2,EPOINTER,0),U,2)"
^XMB(3.9,79,2,1403,0)="""RTN"",""ORWPFSS1"",65,0)"
^XMB(3.9,79,2,1404,0)=" ; if EIEN is null then quit"
^XMB(3.9,79,2,1405,0)="""RTN"",""ORWPFSS1"",66,0)"
^XMB(3.9,79,2,1406,0)=" I EIEN="""" G EDO1Q"
^XMB(3.9,79,2,1407,0)="""RTN"",""ORWPFSS1"",67,0)"
^XMB(3.9,79,2,1408,0)=" ;"
^XMB(3.9,79,2,1409,0)="""RTN"",""ORWPFSS1"",68,0)"
^XMB(3.9,79,2,1410,0)=" ; get Event Type"
^XMB(3.9,79,2,1411,0)="""RTN"",""ORWPFSS1"",69,0)"
^XMB(3.9,79,2,1412,0)=" S ETYPE=$P(^ORD(100.5,EIEN,0),U,2)"
^XMB(3.9,79,2,1413,0)="""RTN"",""ORWPFSS1"",70,0)"
^XMB(3.9,79,2,1414,0)=" ;"
^XMB(3.9,79,2,1415,0)="""RTN"",""ORWPFSS1"",71,0)"
^XMB(3.9,79,2,1416,0)=" ; if ETYPE is Admission or Transfer get PFSS ARN from VADPT"
^XMB(3.9,79,2,1417,0)="""RTN"",""ORWPFSS1"",72,0)"
^XMB(3.9,79,2,1418,0)=" I ETYPE=""A""!(ETYPE=""T"") D"
^XMB(3.9,79,2,1419,0)="""RTN"",""ORWPFSS1"",73,0)"
^XMB(3.9,79,2,1420,0)=" . ; set patient IEN (DFN)"
^XMB(3.9,79,2,1421,0)="""RTN"",""ORWPFSS1"",74,0)"
^XMB(3.9,79,2,1422,0)=" . S DFN=$P($P(^OR(100,ORIFN,0),"";""),U,2)"
^XMB(3.9,79,2,1423,0)="""RTN"",""ORWPFSS1"",75,0)"
^XMB(3.9,79,2,1424,0)=" . ; call VADPT (hospital adm/txfr) routine to get PFSS ARN (ORACTREF)"
^XMB(3.9,79,2,1425,0)="""RTN"",""ORWPFSS1"",76,0)"
^XMB(3.9,79,2,1426,0)=" . S ORACTREF=$$HAAR^ORWPFSS4(DFN)"
^XMB(3.9,79,2,1427,0)="""RTN"",""ORWPFSS1"",77,0)"
^XMB(3.9,79,2,1428,0)=" . ; store PFSS ARN in Order file (#100)"
^XMB(3.9,79,2,1429,0)="""RTN"",""ORWPFSS1"",78,0)"
^XMB(3.9,79,2,1430,0)=" . S X=$$STRPARN(ORIFN,ORACTREF)"
^XMB(3.9,79,2,1431,0)="""RTN"",""ORWPFSS1"",79,0)"
^XMB(3.9,79,2,1432,0)=" ;"
^XMB(3.9,79,2,1433,0)="""RTN"",""ORWPFSS1"",80,0)"
^XMB(3.9,79,2,1434,0)=" ; if ETYPE is Discharge store PFSS ARN as null in Order file (#100)"
^XMB(3.9,79,2,1435,0)="""RTN"",""ORWPFSS1"",81,0)"
^XMB(3.9,79,2,1436,0)=" I ETYPE=""D"" S X=$$STRPARN(ORIFN,"""")"
^XMB(3.9,79,2,1437,0)="""RTN"",""ORWPFSS1"",82,0)"
^XMB(3.9,79,2,1438,0)=" ;"
^XMB(3.9,79,2,1439,0)="""RTN"",""ORWPFSS1"",83,0)"
^XMB(3.9,79,2,1440,0)=" ; ???-course of action if errors or EPOINTER or EIEN null?"
^XMB(3.9,79,2,1441,0)="""RTN"",""ORWPFSS1"",84,0)"
^XMB(3.9,79,2,1442,0)="EDO1Q Q"
^XMB(3.9,79,2,1443,0)="""RTN"",""ORWPFSS1"",85,0)"
^XMB(3.9,79,2,1444,0)=" ;"
^XMB(3.9,79,2,1445,0)="""RTN"",""ORWPFSS1"",86,0)"
^XMB(3.9,79,2,1446,0)="EDO2 ; Event Delayed Orders called from EN2^ORCSEND for manual releases"
^XMB(3.9,79,2,1447,0)="""RTN"",""ORWPFSS1"",87,0)"
^XMB(3.9,79,2,1448,0)=" ; Get the PARN in effecxt when the event delayed order (EDO) released."
^XMB(3.9,79,2,1449,0)="""RTN"",""ORWPFSS1"",88,0)"
^XMB(3.9,79,2,1450,0)=" ;"
^XMB(3.9,79,2,1451,0)="""RTN"",""ORWPFSS1"",89,0)"
^XMB(3.9,79,2,1452,0)=" ; Variables used:"
^XMB(3.9,79,2,1453,0)="""RTN"",""ORWPFSS1"",90,0)"
^XMB(3.9,79,2,1454,0)=" ;  EIEN     = Release event IEN"
^XMB(3.9,79,2,1455,0)="""RTN"",""ORWPFSS1"",91,0)"
^XMB(3.9,79,2,1456,0)=" ;  EPOINTER = Event pointer"
^XMB(3.9,79,2,1457,0)="""RTN"",""ORWPFSS1"",92,0)"
^XMB(3.9,79,2,1458,0)=" ;  DFN      = Patient IEN"
^XMB(3.9,79,2,1459,0)="""RTN"",""ORWPFSS1"",93,0)"
^XMB(3.9,79,2,1460,0)=" ;  ORACTREF = PFSS Account Reference Number"
^XMB(3.9,79,2,1461,0)="""RTN"",""ORWPFSS1"",94,0)"
^XMB(3.9,79,2,1462,0)=" ;  ORERCK   = Order check results (1 = OK)"
^XMB(3.9,79,2,1463,0)="""RTN"",""ORWPFSS1"",95,0)"
^XMB(3.9,79,2,1464,0)=" ;  ORIFN    = Order IEN (previously defined)"
^XMB(3.9,79,2,1465,0)="""RTN"",""ORWPFSS1"",96,0)"
^XMB(3.9,79,2,1466,0)=" ;"
^XMB(3.9,79,2,1467,0)="""RTN"",""ORWPFSS1"",97,0)"
^XMB(3.9,79,2,1468,0)=" ; new variables used"
^XMB(3.9,79,2,1469,0)="""RTN"",""ORWPFSS1"",98,0)"
^XMB(3.9,79,2,1470,0)=" N EIEN,EPOINTER,ETYPE,DFN,ORACTREF,ORERCK,ORPFSS"
^XMB(3.9,79,2,1471,0)="""RTN"",""ORWPFSS1"",99,0)"
^XMB(3.9,79,2,1472,0)=" ;"
^XMB(3.9,79,2,1473,0)="""RTN"",""ORWPFSS1"",100,0)"
^XMB(3.9,79,2,1474,0)=" ; quit if PFSS is not active"
^XMB(3.9,79,2,1475,0)="""RTN"",""ORWPFSS1"",101,0)"
^XMB(3.9,79,2,1476,0)=" D PFSSACTV^ORWPFSS(.ORPFSS) I ORPFSS=0 G EDO2Q"
^XMB(3.9,79,2,1477,0)="""RTN"",""ORWPFSS1"",102,0)"
^XMB(3.9,79,2,1478,0)=" ;"
^XMB(3.9,79,2,1479,0)="""RTN"",""ORWPFSS1"",103,0)"
^XMB(3.9,79,2,1480,0)=" ; check validity/support of order"
^XMB(3.9,79,2,1481,0)="""RTN"",""ORWPFSS1"",104,0)"
^XMB(3.9,79,2,1482,0)=" S ORERCK=$$ORDERCK^ORWPFSS(ORIFN) I +ORERCK>1 G EDO2Q"
^XMB(3.9,79,2,1483,0)="""RTN"",""ORWPFSS1"",105,0)"
^XMB(3.9,79,2,1484,0)=" ;"
^XMB(3.9,79,2,1485,0)="""RTN"",""ORWPFSS1"",106,0)"
^XMB(3.9,79,2,1486,0)=" ; get Event Pointer"
^XMB(3.9,79,2,1487,0)="""RTN"",""ORWPFSS1"",107,0)"
^XMB(3.9,79,2,1488,0)=" S EPOINTER=$P(^OR(100,ORIFN,0),U,17)"
^XMB(3.9,79,2,1489,0)="""RTN"",""ORWPFSS1"",108,0)"
^XMB(3.9,79,2,1490,0)=" ; if EPOINTER is null then quit"
^XMB(3.9,79,2,1491,0)="""RTN"",""ORWPFSS1"",109,0)"
^XMB(3.9,79,2,1492,0)=" I EPOINTER="""" G EDO2Q"
^XMB(3.9,79,2,1493,0)="""RTN"",""ORWPFSS1"",110,0)"
^XMB(3.9,79,2,1494,0)=" ;"
^XMB(3.9,79,2,1495,0)="""RTN"",""ORWPFSS1"",111,0)"
^XMB(3.9,79,2,1496,0)=" ; get Release Event Record"
^XMB(3.9,79,2,1497,0)="""RTN"",""ORWPFSS1"",112,0)"
^XMB(3.9,79,2,1498,0)=" S EIEN=$P(^ORE(100.2,EPOINTER,0),U,2)"
^XMB(3.9,79,2,1499,0)="""RTN"",""ORWPFSS1"",113,0)"
^XMB(3.9,79,2,1500,0)=" ; if EIEN is null then quit"
^XMB(3.9,79,2,1501,0)="""RTN"",""ORWPFSS1"",114,0)"
^XMB(3.9,79,2,1502,0)=" I EIEN="""" G EDO2Q"
^XMB(3.9,79,2,1503,0)="""RTN"",""ORWPFSS1"",115,0)"
^XMB(3.9,79,2,1504,0)=" ;"
^XMB(3.9,79,2,1505,0)="""RTN"",""ORWPFSS1"",116,0)"
^XMB(3.9,79,2,1506,0)=" ; set patient IEN (DFN)"
^XMB(3.9,79,2,1507,0)="""RTN"",""ORWPFSS1"",117,0)"
^XMB(3.9,79,2,1508,0)=" S DFN=$P($P(^OR(100,ORIFN,0),"";""),U,2)"
^XMB(3.9,79,2,1509,0)="""RTN"",""ORWPFSS1"",118,0)"
^XMB(3.9,79,2,1510,0)=" ; call VADPT (hospital adm/txfr) routine to get PFSS ARN (ORACTREF)"
^XMB(3.9,79,2,1511,0)="""RTN"",""ORWPFSS1"",119,0)"
^XMB(3.9,79,2,1512,0)=" S ORACTREF=$$HAAR^ORWPFSS4(DFN)"
^XMB(3.9,79,2,1513,0)="""RTN"",""ORWPFSS1"",120,0)"
^XMB(3.9,79,2,1514,0)=" ; store PFSS ARN in Order file (#100)"
^XMB(3.9,79,2,1515,0)="""RTN"",""ORWPFSS1"",121,0)"
^XMB(3.9,79,2,1516,0)=" S X=$$STRPARN(ORIFN,ORACTREF)"
^XMB(3.9,79,2,1517,0)="""RTN"",""ORWPFSS1"",122,0)"
^XMB(3.9,79,2,1518,0)=" ;"
^XMB(3.9,79,2,1519,0)="""RTN"",""ORWPFSS1"",123,0)"
^XMB(3.9,79,2,1520,0)=" ; ???-course of action if errors or EPOINTER or EIEN null?"
^XMB(3.9,79,2,1521,0)="""RTN"",""ORWPFSS1"",124,0)"
^XMB(3.9,79,2,1522,0)="EDO2Q Q"
^XMB(3.9,79,2,1523,0)="""RTN"",""ORWPFSS1"",125,0)"
^XMB(3.9,79,2,1524,0)=" ;"
^XMB(3.9,79,2,1525,0)="""RTN"",""ORWPFSS1"",126,0)"
^XMB(3.9,79,2,1526,0)="STRPARN(ORIEN,ORACTREF) ; store of PFSS ARN"
^XMB(3.9,79,2,1527,0)="""RTN"",""ORWPFSS1"",127,0)"
^XMB(3.9,79,2,1528,0)=" ; stores PFSS Account Reference Number in the Order file #100, field 97"
^XMB(3.9,79,2,1529,0)="""RTN"",""ORWPFSS1"",128,0)"
^XMB(3.9,79,2,1530,0)=" ; see ACCTREF for passed in variable descriptions"
^XMB(3.9,79,2,1531,0)="""RTN"",""ORWPFSS1"",129,0)"
^XMB(3.9,79,2,1532,0)=" ;"
^XMB(3.9,79,2,1533,0)="""RTN"",""ORWPFSS1"",130,0)"
^XMB(3.9,79,2,1534,0)=" ; Variables used:"
^XMB(3.9,79,2,1535,0)="""RTN"",""ORWPFSS1"",131,0)"
^XMB(3.9,79,2,1536,0)=" ;   ORER      = Error message"
^XMB(3.9,79,2,1537,0)="""RTN"",""ORWPFSS1"",132,0)"
^XMB(3.9,79,2,1538,0)=" ;   ORFIELD   = PFSS ARN field (#97)"
^XMB(3.9,79,2,1539,0)="""RTN"",""ORWPFSS1"",133,0)"
^XMB(3.9,79,2,1540,0)=" ;   ORFILE    = ORDER file (#100)"
^XMB(3.9,79,2,1541,0)="""RTN"",""ORWPFSS1"",134,0)"
^XMB(3.9,79,2,1542,0)=" ;   ORFLAGS   = null (flags used in controlling use of FDA^DIFL)"
^XMB(3.9,79,2,1543,0)="""RTN"",""ORWPFSS1"",135,0)"
^XMB(3.9,79,2,1544,0)=" ;"
^XMB(3.9,79,2,1545,0)="""RTN"",""ORWPFSS1"",136,0)"
^XMB(3.9,79,2,1546,0)=" ; new variables"
^XMB(3.9,79,2,1547,0)="""RTN"",""ORWPFSS1"",137,0)"
^XMB(3.9,79,2,1548,0)=" N ORER,ORFILE,ORFIELD,ORFLAGS"
^XMB(3.9,79,2,1549,0)="""RTN"",""ORWPFSS1"",138,0)"
^XMB(3.9,79,2,1550,0)=" ;"
^XMB(3.9,79,2,1551,0)="""RTN"",""ORWPFSS1"",139,0)"
^XMB(3.9,79,2,1552,0)=" ; set contants"
^XMB(3.9,79,2,1553,0)="""RTN"",""ORWPFSS1"",140,0)"
^XMB(3.9,79,2,1554,0)=" S ORFILE=100,ORFIELD=97,ORFLAGS="""""
^XMB(3.9,79,2,1555,0)="""RTN"",""ORWPFSS1"",141,0)"
^XMB(3.9,79,2,1556,0)=" ;"
^XMB(3.9,79,2,1557,0)="""RTN"",""ORWPFSS1"",142,0)"
^XMB(3.9,79,2,1558,0)=" ; do FDA loader to compose FDA_ROOT"
^XMB(3.9,79,2,1559,0)="""RTN"",""ORWPFSS1"",143,0)"
^XMB(3.9,79,2,1560,0)=" D FDA^DILF(ORFILE,ORIEN,ORFIELD,ORFLAGS,ORACTREF,""ORFDA"",""ORER"")"
^XMB(3.9,79,2,1561,0)="""RTN"",""ORWPFSS1"",144,0)"
^XMB(3.9,79,2,1562,0)=" ; check for an error"
^XMB(3.9,79,2,1563,0)="""RTN"",""ORWPFSS1"",145,0)"
^XMB(3.9,79,2,1564,0)=" D ERRCHK I $D(ORNEWER) Q ORER"
^XMB(3.9,79,2,1565,0)="""RTN"",""ORWPFSS1"",146,0)"
^XMB(3.9,79,2,1566,0)=" ; file PFSS ARN in Order file"
^XMB(3.9,79,2,1567,0)="""RTN"",""ORWPFSS1"",147,0)"
^XMB(3.9,79,2,1568,0)=" D UPDATE^DIE("""",""ORFDA"","""",""ORER"")"
^XMB(3.9,79,2,1569,0)="""RTN"",""ORWPFSS1"",148,0)"
^XMB(3.9,79,2,1570,0)=" ; another error check"
^XMB(3.9,79,2,1571,0)="""RTN"",""ORWPFSS1"",149,0)"
^XMB(3.9,79,2,1572,0)=" D ERRCHK I $D(ORNEWER) Q ORER"
^XMB(3.9,79,2,1573,0)="""RTN"",""ORWPFSS1"",150,0)"
^XMB(3.9,79,2,1574,0)=" ; successful data"
^XMB(3.9,79,2,1575,0)="""RTN"",""ORWPFSS1"",151,0)"
^XMB(3.9,79,2,1576,0)=" Q 1"
^XMB(3.9,79,2,1577,0)="""RTN"",""ORWPFSS1"",152,0)"
^XMB(3.9,79,2,1578,0)=" ;"
^XMB(3.9,79,2,1579,0)="""RTN"",""ORWPFSS1"",153,0)"
^XMB(3.9,79,2,1580,0)="ERRCHK ; Compose error message if there's an error from use of DILF or DIE"
^XMB(3.9,79,2,1581,0)="""RTN"",""ORWPFSS1"",154,0)"
^XMB(3.9,79,2,1582,0)=" I $G(ORER(""DIERR"",1)) D"
^XMB(3.9,79,2,1583,0)="""RTN"",""ORWPFSS1"",155,0)"
^XMB(3.9,79,2,1584,0)=" . S ORNEWER=$G(ORER(""DIERR"",1))_U_$G(ORER(""DIERR"",1,""TEXT"",1))"
^XMB(3.9,79,2,1585,0)="""RTN"",""ORWPFSS1"",156,0)"
^XMB(3.9,79,2,1586,0)=" Q"
^XMB(3.9,79,2,1587,0)="""RTN"",""ORWPFSS2"")"
^XMB(3.9,79,2,1588,0)="0^3^B917624^n/a"
^XMB(3.9,79,2,1589,0)="""RTN"",""ORWPFSS2"",1,0)"
^XMB(3.9,79,2,1590,0)="ORWPFSS2 ;SLC-GDU CPRS HL7 PROCESSING FOR RAD PRE-CERT;[04/15/05 09:19]; 4/28/05 15:34"
^XMB(3.9,79,2,1591,0)="""RTN"",""ORWPFSS2"",2,0)"
^XMB(3.9,79,2,1592,0)=" ;;3.0;ORDER ENTRY/RESULTS REPORTING;**228**;Dec 17, 1997"
^XMB(3.9,79,2,1593,0)="""RTN"",""ORWPFSS2"",3,0)"
^XMB(3.9,79,2,1594,0)=" ;Routine to process the HL7 message from the Ancillary Radiology "
^XMB(3.9,79,2,1595,0)="""RTN"",""ORWPFSS2"",4,0)"
^XMB(3.9,79,2,1596,0)=" ;package for the Pre-Certification Account Reference to be associated"
^XMB(3.9,79,2,1597,0)="""RTN"",""ORWPFSS2"",5,0)"
^XMB(3.9,79,2,1598,0)=" ;with the radiology order record in the Order File, file # 100."
^XMB(3.9,79,2,1599,0)="""RTN"",""ORWPFSS2"",6,0)"
^XMB(3.9,79,2,1600,0)=" ;External Variables, set by the HL7 processing"
^XMB(3.9,79,2,1601,0)="""RTN"",""ORWPFSS2"",7,0)"
^XMB(3.9,79,2,1602,0)=" ; ORIFN   - 1st piece of 3rd piece of ORC message segment, Order IEN"
^XMB(3.9,79,2,1603,0)="""RTN"",""ORWPFSS2"",8,0)"
^XMB(3.9,79,2,1604,0)=" ; ORMSG   - The HL7 message being processed"
^XMB(3.9,79,2,1605,0)="""RTN"",""ORWPFSS2"",9,0)"
^XMB(3.9,79,2,1606,0)=" ; PV1     - PV1 segment number in the HL7 message"
^XMB(3.9,79,2,1607,0)="""RTN"",""ORWPFSS2"",10,0)"
^XMB(3.9,79,2,1608,0)=" ;Internal Variables"
^XMB(3.9,79,2,1609,0)="""RTN"",""ORWPFSS2"",11,0)"
^XMB(3.9,79,2,1610,0)=" ; ORAR    - Order PFSS Account Reference"
^XMB(3.9,79,2,1611,0)="""RTN"",""ORWPFSS2"",12,0)"
^XMB(3.9,79,2,1612,0)=" ; ORFDA   - Fileman Data Array"
^XMB(3.9,79,2,1613,0)="""RTN"",""ORWPFSS2"",13,0)"
^XMB(3.9,79,2,1614,0)=" ; OREM    - Error Message"
^XMB(3.9,79,2,1615,0)="""RTN"",""ORWPFSS2"",14,0)"
^XMB(3.9,79,2,1616,0)=" ; ORIEN   - Order Internal Entry Number"
^XMB(3.9,79,2,1617,0)="""RTN"",""ORWPFSS2"",15,0)"
^XMB(3.9,79,2,1618,0)=" ; ORRPAR  - Order Radiology Pre-Certification Account Reference"
^XMB(3.9,79,2,1619,0)="""RTN"",""ORWPFSS2"",16,0)"
^XMB(3.9,79,2,1620,0)=" ; ORUPDT  - Order Update Indicator"
^XMB(3.9,79,2,1621,0)="""RTN"",""ORWPFSS2"",17,0)"
^XMB(3.9,79,2,1622,0)=" ; ORPFSS  - PFSS Active Indicator"
^XMB(3.9,79,2,1623,0)="""RTN"",""ORWPFSS2"",18,0)"
^XMB(3.9,79,2,1624,0)=" ;DBIA References"
^XMB(3.9,79,2,1625,0)="""RTN"",""ORWPFSS2"",19,0)"
^XMB(3.9,79,2,1626,0)=" ; $$GET1^DIQ         - DBIA 2056"
^XMB(3.9,79,2,1627,0)="""RTN"",""ORWPFSS2"",20,0)"
^XMB(3.9,79,2,1628,0)=" ; PFSSACTV^ORWPFSS   - Internal to CPRS PFSS"
^XMB(3.9,79,2,1629,0)="""RTN"",""ORWPFSS2"",21,0)"
^XMB(3.9,79,2,1630,0)=" ; $$ACCTREF^ORWPFSS1 - Internal to CPRS PFSS"
^XMB(3.9,79,2,1631,0)="""RTN"",""ORWPFSS2"",22,0)"
^XMB(3.9,79,2,1632,0)="PRECERT ;Process Radiology HL7 message for precertification PFSS Account"
^XMB(3.9,79,2,1633,0)="""RTN"",""ORWPFSS2"",23,0)"
^XMB(3.9,79,2,1634,0)=" ;Reference."
^XMB(3.9,79,2,1635,0)="""RTN"",""ORWPFSS2"",24,0)"
^XMB(3.9,79,2,1636,0)=" N ORAR,ORFDA,OREM,ORIEN,ORRPAR,ORUPDT,ORPFSS"
^XMB(3.9,79,2,1637,0)="""RTN"",""ORWPFSS2"",25,0)"
^XMB(3.9,79,2,1638,0)=" ;If PFSS inactive quit"
^XMB(3.9,79,2,1639,0)="""RTN"",""ORWPFSS2"",26,0)"
^XMB(3.9,79,2,1640,0)=" D PFSSACTV^ORWPFSS(.ORPFSS) I ORPFSS=0 Q"
^XMB(3.9,79,2,1641,0)="""RTN"",""ORWPFSS2"",27,0)"
^XMB(3.9,79,2,1642,0)=" ;If PV1 is null quit"
^XMB(3.9,79,2,1643,0)="""RTN"",""ORWPFSS2"",28,0)"
^XMB(3.9,79,2,1644,0)=" I PV1="""" Q"
^XMB(3.9,79,2,1645,0)="""RTN"",""ORWPFSS2"",29,0)"
^XMB(3.9,79,2,1646,0)=" ;If pre-cert not present in HL7 PV1 seg quit"
^XMB(3.9,79,2,1647,0)="""RTN"",""ORWPFSS2"",30,0)"
^XMB(3.9,79,2,1648,0)=" S ORRPAR=$P(@ORMSG@(PV1),""|"",51)"
^XMB(3.9,79,2,1649,0)="""RTN"",""ORWPFSS2"",31,0)"
^XMB(3.9,79,2,1650,0)=" I ORRPAR="""" Q"
^XMB(3.9,79,2,1651,0)="""RTN"",""ORWPFSS2"",32,0)"
^XMB(3.9,79,2,1652,0)=" ;If PFSS AR already on file with order quit"
^XMB(3.9,79,2,1653,0)="""RTN"",""ORWPFSS2"",33,0)"
^XMB(3.9,79,2,1654,0)=" S ORIEN=+ORIFN"
^XMB(3.9,79,2,1655,0)="""RTN"",""ORWPFSS2"",34,0)"
^XMB(3.9,79,2,1656,0)=" S ORAR=$$GET1^DIQ(100,ORIEN,97)"
^XMB(3.9,79,2,1657,0)="""RTN"",""ORWPFSS2"",35,0)"
^XMB(3.9,79,2,1658,0)=" I ORAR'="""" Q"
^XMB(3.9,79,2,1659,0)="""RTN"",""ORWPFSS2"",36,0)"
^XMB(3.9,79,2,1660,0)=" ;Update order with pre-cert PFSS AR"
^XMB(3.9,79,2,1661,0)="""RTN"",""ORWPFSS2"",37,0)"
^XMB(3.9,79,2,1662,0)=" S ORUPDT=$$ACCTREF^ORWPFSS1(ORIEN,ORRPAR)"
^XMB(3.9,79,2,1663,0)="""RTN"",""ORWPFSS2"",38,0)"
^XMB(3.9,79,2,1664,0)=" I ORUPDT=1 Q"
^XMB(3.9,79,2,1665,0)="""RTN"",""ORWPFSS2"",39,0)"
^XMB(3.9,79,2,1666,0)=" ;Return error message is error happens during update"
^XMB(3.9,79,2,1667,0)="""RTN"",""ORWPFSS2"",40,0)"
^XMB(3.9,79,2,1668,0)=" S ORERR=$P(ORUPDT,U,2)"
^XMB(3.9,79,2,1669,0)="""RTN"",""ORWPFSS2"",41,0)"
^XMB(3.9,79,2,1670,0)=" Q"
^XMB(3.9,79,2,1671,0)="""RTN"",""ORWPFSS4"")"
^XMB(3.9,79,2,1672,0)="0^7^B7376059^n/a"
^XMB(3.9,79,2,1673,0)="""RTN"",""ORWPFSS4"",1,0)"
^XMB(3.9,79,2,1674,0)="ORWPFSS4 ;SLC-GDU CPRS HL7 PROCESSING FOR RAD PRE-CERT;[08/29/05];"
^XMB(3.9,79,2,1675,0)="""RTN"",""ORWPFSS4"",2,0)"
^XMB(3.9,79,2,1676,0)=" ;;3.0;ORDER ENTRY/RESULTS REPORTING;**228**;Dec 17, 1997"
^XMB(3.9,79,2,1677,0)="""RTN"",""ORWPFSS4"",3,0)"
^XMB(3.9,79,2,1678,0)=" ;Determine if the order is to have an PFSS Account Reference"
^XMB(3.9,79,2,1679,0)="""RTN"",""ORWPFSS4"",4,0)"
^XMB(3.9,79,2,1680,0)=" ;associated with it. This is for orders that are not event delayed"
^XMB(3.9,79,2,1681,0)="""RTN"",""ORWPFSS4"",5,0)"
^XMB(3.9,79,2,1682,0)=" ;"
^XMB(3.9,79,2,1683,0)="""RTN"",""ORWPFSS4"",6,0)"
^XMB(3.9,79,2,1684,0)=" ;DBIA References for external calls"
^XMB(3.9,79,2,1685,0)="""RTN"",""ORWPFSS4"",7,0)"
^XMB(3.9,79,2,1686,0)=" ; $$GETS^DIQ         - DBIA 2056 "
^XMB(3.9,79,2,1687,0)="""RTN"",""ORWPFSS4"",8,0)"
^XMB(3.9,79,2,1688,0)=" ; $$GETS1^DIQ        - DBIA 2056"
^XMB(3.9,79,2,1689,0)="""RTN"",""ORWPFSS4"",9,0)"
^XMB(3.9,79,2,1690,0)=" ; $$PKGTYP^ORWPFSS   - Internal to CPRS PFSS"
^XMB(3.9,79,2,1691,0)="""RTN"",""ORWPFSS4"",10,0)"
^XMB(3.9,79,2,1692,0)=" ; PFSSACTV^ORWPFSS   - Internal to CPRS PFSS"
^XMB(3.9,79,2,1693,0)="""RTN"",""ORWPFSS4"",11,0)"
^XMB(3.9,79,2,1694,0)=" ; $$ACCTREF^ORWPFSS1 - Internal to CPRS PFSS"
^XMB(3.9,79,2,1695,0)="""RTN"",""ORWPFSS4"",12,0)"
^XMB(3.9,79,2,1696,0)=" ; $$GETARN^SDPFSS2   - DBIA 4668"
^XMB(3.9,79,2,1697,0)="""RTN"",""ORWPFSS4"",13,0)"
^XMB(3.9,79,2,1698,0)=" ; INP^VADPT          - DBIA 10061"
^XMB(3.9,79,2,1699,0)="""RTN"",""ORWPFSS4"",14,0)"
^XMB(3.9,79,2,1700,0)=" ; ^VSIT              - DBIA 1900-A"
^XMB(3.9,79,2,1701,0)="""RTN"",""ORWPFSS4"",15,0)"
^XMB(3.9,79,2,1702,0)=" ;"
^XMB(3.9,79,2,1703,0)="""RTN"",""ORWPFSS4"",16,0)"
^XMB(3.9,79,2,1704,0)="EN(ORIEN) ;Primary entry point of this routine"
^XMB(3.9,79,2,1705,0)="""RTN"",""ORWPFSS4"",17,0)"
^XMB(3.9,79,2,1706,0)=" ;Input Variable"
^XMB(3.9,79,2,1707,0)="""RTN"",""ORWPFSS4"",18,0)"
^XMB(3.9,79,2,1708,0)=" ; ORIEN    The Order Internal Entry Number"
^XMB(3.9,79,2,1709,0)="""RTN"",""ORWPFSS4"",19,0)"
^XMB(3.9,79,2,1710,0)=" ;Local Variables"
^XMB(3.9,79,2,1711,0)="""RTN"",""ORWPFSS4"",20,0)"
^XMB(3.9,79,2,1712,0)=" ; ORAR        Order Account Reference (PFSS AR)"
^XMB(3.9,79,2,1713,0)="""RTN"",""ORWPFSS4"",21,0)"
^XMB(3.9,79,2,1714,0)=" ; ORDFN       Order Patient's DFN (IEN)"
^XMB(3.9,79,2,1715,0)="""RTN"",""ORWPFSS4"",22,0)"
^XMB(3.9,79,2,1716,0)=" ; ORPFSS      Order PFSS Active Indicator"
^XMB(3.9,79,2,1717,0)="""RTN"",""ORWPFSS4"",23,0)"
^XMB(3.9,79,2,1718,0)=" ; ORUPDT      Order Update Indicator from record update"
^XMB(3.9,79,2,1719,0)="""RTN"",""ORWPFSS4"",24,0)"
^XMB(3.9,79,2,1720,0)=" ; ORVS        Order Visit String"
^XMB(3.9,79,2,1721,0)="""RTN"",""ORWPFSS4"",25,0)"
^XMB(3.9,79,2,1722,0)=" ;"
^XMB(3.9,79,2,1723,0)="""RTN"",""ORWPFSS4"",26,0)"
^XMB(3.9,79,2,1724,0)=" N ORAR,ORDFN,ORPFSS,ORUPDT,ORVS,X,Y"
^XMB(3.9,79,2,1725,0)="""RTN"",""ORWPFSS4"",27,0)"
^XMB(3.9,79,2,1726,0)=" S (ORAR,ORPFSS)="""""
^XMB(3.9,79,2,1727,0)="""RTN"",""ORWPFSS4"",28,0)"
^XMB(3.9,79,2,1728,0)=" ;If PFSS is inactive goto exit"
^XMB(3.9,79,2,1729,0)="""RTN"",""ORWPFSS4"",29,0)"
^XMB(3.9,79,2,1730,0)=" D PFSSACTV^ORWPFSS(.ORPFSS) I ORPFSS=0 G EXIT"
^XMB(3.9,79,2,1731,0)="""RTN"",""ORWPFSS4"",30,0)"
^XMB(3.9,79,2,1732,0)=" ;If Order already has PFSS Account Reference goto exit"
^XMB(3.9,79,2,1733,0)="""RTN"",""ORWPFSS4"",31,0)"
^XMB(3.9,79,2,1734,0)=" S ORAR=$$GET1^DIQ(100,ORIEN,97) I ORAR'="""" G EXIT"
^XMB(3.9,79,2,1735,0)="""RTN"",""ORWPFSS4"",32,0)"
^XMB(3.9,79,2,1736,0)=" ;If Order package is not one of the currently supported goto exit"
^XMB(3.9,79,2,1737,0)="""RTN"",""ORWPFSS4"",33,0)"
^XMB(3.9,79,2,1738,0)=" I $$PKGTYP^ORWPFSS(ORIEN)=0 G EXIT"
^XMB(3.9,79,2,1739,0)="""RTN"",""ORWPFSS4"",34,0)"
^XMB(3.9,79,2,1740,0)=" ;If Visit String not found goto EXIT."
^XMB(3.9,79,2,1741,0)="""RTN"",""ORWPFSS4"",35,0)"
^XMB(3.9,79,2,1742,0)=" S ORVS=$$GETVS(ORIEN) I ORVS="""" G EXIT"
^XMB(3.9,79,2,1743,0)="""RTN"",""ORWPFSS4"",36,0)"
^XMB(3.9,79,2,1744,0)=" ;Get Patient's DFN from the Order"
^XMB(3.9,79,2,1745,0)="""RTN"",""ORWPFSS4"",37,0)"
^XMB(3.9,79,2,1746,0)=" S ORDFN=+$$GET1^DIQ(100,ORIEN,.02,""I"")"
^XMB(3.9,79,2,1747,0)="""RTN"",""ORWPFSS4"",38,0)"
^XMB(3.9,79,2,1748,0)=" ;If Historical set PFSS Account Reference to null and goto Save"
^XMB(3.9,79,2,1749,0)="""RTN"",""ORWPFSS4"",39,0)"
^XMB(3.9,79,2,1750,0)=" I $P(ORVS,"";"",3)=""E"" S ORAR="""" G SAVE"
^XMB(3.9,79,2,1751,0)="""RTN"",""ORWPFSS4"",40,0)"
^XMB(3.9,79,2,1752,0)=" ;If Scheduled Appointment get PFSS Account Reference and goto Save"
^XMB(3.9,79,2,1753,0)="""RTN"",""ORWPFSS4"",41,0)"
^XMB(3.9,79,2,1754,0)=" I $P(ORVS,"";"",3)=""A"" S ORAR=$$SAAR(ORVS,ORDFN) I ORAR'="""" G SAVE"
^XMB(3.9,79,2,1755,0)="""RTN"",""ORWPFSS4"",42,0)"
^XMB(3.9,79,2,1756,0)=" ;If Hospital Admission get PFSS Account Reference and goto Save"
^XMB(3.9,79,2,1757,0)="""RTN"",""ORWPFSS4"",43,0)"
^XMB(3.9,79,2,1758,0)=" I $P(ORVS,"";"",3)=""H"" S ORAR=$$HAAR(ORDFN) I ORAR'="""" G SAVE"
^XMB(3.9,79,2,1759,0)="""RTN"",""ORWPFSS4"",44,0)"
^XMB(3.9,79,2,1760,0)=" ;Check PCE for PFSS Account Reference"
^XMB(3.9,79,2,1761,0)="""RTN"",""ORWPFSS4"",45,0)"
^XMB(3.9,79,2,1762,0)=" S ORAR=$$PCEAR(ORVS,ORDFN)"
^XMB(3.9,79,2,1763,0)="""RTN"",""ORWPFSS4"",46,0)"
^XMB(3.9,79,2,1764,0)="SAVE ;Save PFSS Account Reference or null value to the Order record"
^XMB(3.9,79,2,1765,0)="""RTN"",""ORWPFSS4"",47,0)"
^XMB(3.9,79,2,1766,0)=" S ORUPDT=$$ACCTREF^ORWPFSS1(ORIEN,ORAR)"
^XMB(3.9,79,2,1767,0)="""RTN"",""ORWPFSS4"",48,0)"
^XMB(3.9,79,2,1768,0)="EXIT ;Exit point for this routine"
^XMB(3.9,79,2,1769,0)="""RTN"",""ORWPFSS4"",49,0)"
^XMB(3.9,79,2,1770,0)=" Q"
^XMB(3.9,79,2,1771,0)="""RTN"",""ORWPFSS4"",50,0)"
^XMB(3.9,79,2,1772,0)="GETVS(X1) ;Get Order Visit String"
^XMB(3.9,79,2,1773,0)="""RTN"",""ORWPFSS4"",51,0)"
^XMB(3.9,79,2,1774,0)=" ;Get the data from the Order's Responses multi-valued field."
^XMB(3.9,79,2,1775,0)="""RTN"",""ORWPFSS4"",52,0)"
^XMB(3.9,79,2,1776,0)=" ;Look for Prompt text of OR GTX VISITSTR"
^XMB(3.9,79,2,1777,0)="""RTN"",""ORWPFSS4"",53,0)"
^XMB(3.9,79,2,1778,0)=" ;If Prompt text found get the Visit String"
^XMB(3.9,79,2,1779,0)="""RTN"",""ORWPFSS4"",54,0)"
^XMB(3.9,79,2,1780,0)=" ;If Prompt text not found return a null value"
^XMB(3.9,79,2,1781,0)="""RTN"",""ORWPFSS4"",55,0)"
^XMB(3.9,79,2,1782,0)=" ;Input variable required, if missing this will return a null value"
^XMB(3.9,79,2,1783,0)="""RTN"",""ORWPFSS4"",56,0)"
^XMB(3.9,79,2,1784,0)=" ;Input Variable for this function"
^XMB(3.9,79,2,1785,0)="""RTN"",""ORWPFSS4"",57,0)"
^XMB(3.9,79,2,1786,0)=" ; X1    The Order IEN"
^XMB(3.9,79,2,1787,0)="""RTN"",""ORWPFSS4"",58,0)"
^XMB(3.9,79,2,1788,0)=" ;Return Variable for this function"
^XMB(3.9,79,2,1789,0)="""RTN"",""ORWPFSS4"",59,0)"
^XMB(3.9,79,2,1790,0)=" ; VS    The Order Visit String"
^XMB(3.9,79,2,1791,0)="""RTN"",""ORWPFSS4"",60,0)"
^XMB(3.9,79,2,1792,0)=" ;Local Variable for this function"
^XMB(3.9,79,2,1793,0)="""RTN"",""ORWPFSS4"",61,0)"
^XMB(3.9,79,2,1794,0)=" ; IENS  Index variable for REC array"
^XMB(3.9,79,2,1795,0)="""RTN"",""ORWPFSS4"",62,0)"
^XMB(3.9,79,2,1796,0)=" ; PT    Prompt Text being searched for"
^XMB(3.9,79,2,1797,0)="""RTN"",""ORWPFSS4"",63,0)"
^XMB(3.9,79,2,1798,0)=" ; REC   Output variable for GETS^DIQ that will contain the Order"
^XMB(3.9,79,2,1799,0)="""RTN"",""ORWPFSS4"",64,0)"
^XMB(3.9,79,2,1800,0)=" ;       Responses data."
^XMB(3.9,79,2,1801,0)="""RTN"",""ORWPFSS4"",65,0)"
^XMB(3.9,79,2,1802,0)=" N IENS,PT,REC,VS"
^XMB(3.9,79,2,1803,0)="""RTN"",""ORWPFSS4"",66,0)"
^XMB(3.9,79,2,1804,0)=" I X1="""" S VS="""" Q VS"
^XMB(3.9,79,2,1805,0)="""RTN"",""ORWPFSS4"",67,0)"
^XMB(3.9,79,2,1806,0)=" S (IENS,VS)="""""
^XMB(3.9,79,2,1807,0)="""RTN"",""ORWPFSS4"",68,0)"
^XMB(3.9,79,2,1808,0)=" S PT=$P($T(VSPT),"";"",3)"
^XMB(3.9,79,2,1809,0)="""RTN"",""ORWPFSS4"",69,0)"
^XMB(3.9,79,2,1810,0)=" D GETS^DIQ(100,X1,""4.5*"",""E"",""REC"")"
^XMB(3.9,79,2,1811,0)="""RTN"",""ORWPFSS4"",70,0)"
^XMB(3.9,79,2,1812,0)=" F  S IENS=$O(REC(100.045,IENS)) Q:IENS=""""  D"
^XMB(3.9,79,2,1813,0)="""RTN"",""ORWPFSS4"",71,0)"
^XMB(3.9,79,2,1814,0)=" . I $G(REC(100.045,IENS,.02,""E""))=PT S VS=$G(REC(100.045,IENS,1,""E""))"
^XMB(3.9,79,2,1815,0)="""RTN"",""ORWPFSS4"",72,0)"
^XMB(3.9,79,2,1816,0)=" Q VS"
^XMB(3.9,79,2,1817,0)="""RTN"",""ORWPFSS4"",73,0)"
^XMB(3.9,79,2,1818,0)="VSPT ;Visit String Prompt Text;OR GTX VISITSTR"
^XMB(3.9,79,2,1819,0)="""RTN"",""ORWPFSS4"",74,0)"
^XMB(3.9,79,2,1820,0)=" ;"
^XMB(3.9,79,2,1821,0)="""RTN"",""ORWPFSS4"",75,0)"
^XMB(3.9,79,2,1822,0)="SAAR(X1,X2) ;Scheduled Appointment Account Reference for PFSS"
^XMB(3.9,79,2,1823,0)="""RTN"",""ORWPFSS4"",76,0)"
^XMB(3.9,79,2,1824,0)=" ;Get the PFSS Account Reference for scheduled appointments"
^XMB(3.9,79,2,1825,0)="""RTN"",""ORWPFSS4"",77,0)"
^XMB(3.9,79,2,1826,0)=" ;All inputs required, any missing this will return a null value"
^XMB(3.9,79,2,1827,0)="""RTN"",""ORWPFSS4"",78,0)"
^XMB(3.9,79,2,1828,0)=" ;Input Variables"
^XMB(3.9,79,2,1829,0)="""RTN"",""ORWPFSS4"",79,0)"
^XMB(3.9,79,2,1830,0)=" ; X1    The Visit String from the Order "
^XMB(3.9,79,2,1831,0)="""RTN"",""ORWPFSS4"",80,0)"
^XMB(3.9,79,2,1832,0)=" ; X2    The Patient's IEN"
^XMB(3.9,79,2,1833,0)="""RTN"",""ORWPFSS4"",81,0)"
^XMB(3.9,79,2,1834,0)=" ;Output Variable"
^XMB(3.9,79,2,1835,0)="""RTN"",""ORWPFSS4"",82,0)"
^XMB(3.9,79,2,1836,0)=" ; AR    PFSS Account Reference returned by $$GETARN^SDPFSS2"
^XMB(3.9,79,2,1837,0)="""RTN"",""ORWPFSS4"",83,0)"
^XMB(3.9,79,2,1838,0)=" ;       Set to null in any input is missing"
^XMB(3.9,79,2,1839,0)="""RTN"",""ORWPFSS4"",84,0)"
^XMB(3.9,79,2,1840,0)=" ;"
^XMB(3.9,79,2,1841,0)="""RTN"",""ORWPFSS4"",85,0)"
^XMB(3.9,79,2,1842,0)=" N AR"
^XMB(3.9,79,2,1843,0)="""RTN"",""ORWPFSS4"",86,0)"
^XMB(3.9,79,2,1844,0)=" I X1=""""!(X2="""") S AR="""" Q AR"
^XMB(3.9,79,2,1845,0)="""RTN"",""ORWPFSS4"",87,0)"
^XMB(3.9,79,2,1846,0)=" ;Get the PFSS Account Reference from Scheduling"
^XMB(3.9,79,2,1847,0)="""RTN"",""ORWPFSS4"",88,0)"
^XMB(3.9,79,2,1848,0)=" S AR=+$$GETARN^SDPFSS2($P(X1,"";"",2),X2,$P(X1,"";""))"
^XMB(3.9,79,2,1849,0)="""RTN"",""ORWPFSS4"",89,0)"
^XMB(3.9,79,2,1850,0)=" I AR>0 Q AR      ;If found return Account Reference"
^XMB(3.9,79,2,1851,0)="""RTN"",""ORWPFSS4"",90,0)"
^XMB(3.9,79,2,1852,0)=" S AR="""" Q AR     ;If not found return null for Account Reference"
^XMB(3.9,79,2,1853,0)="""RTN"",""ORWPFSS4"",91,0)"
^XMB(3.9,79,2,1854,0)=" ;"
^XMB(3.9,79,2,1855,0)="""RTN"",""ORWPFSS4"",92,0)"
^XMB(3.9,79,2,1856,0)="HAAR(X1) ;Hospital Admission Account Reference for PFSS"
^XMB(3.9,79,2,1857,0)="""RTN"",""ORWPFSS4"",93,0)"
^XMB(3.9,79,2,1858,0)=" ;Returns the PFSS Account Reference for the Hospital Admission"
^XMB(3.9,79,2,1859,0)="""RTN"",""ORWPFSS4"",94,0)"
^XMB(3.9,79,2,1860,0)=" ;Input is required. If missing null value returned."
^XMB(3.9,79,2,1861,0)="""RTN"",""ORWPFSS4"",95,0)"
^XMB(3.9,79,2,1862,0)=" ;Returns PFSS Account Reference returned if found."
^XMB(3.9,79,2,1863,0)="""RTN"",""ORWPFSS4"",96,0)"
^XMB(3.9,79,2,1864,0)=" ;Returns null if PFSS Account Reference not found null."
^XMB(3.9,79,2,1865,0)="""RTN"",""ORWPFSS4"",97,0)"
^XMB(3.9,79,2,1866,0)=" ;Input Variable for this function"
^XMB(3.9,79,2,1867,0)="""RTN"",""ORWPFSS4"",98,0)"
^XMB(3.9,79,2,1868,0)=" ; X1    The Patient's DFN"
^XMB(3.9,79,2,1869,0)="""RTN"",""ORWPFSS4"",99,0)"
^XMB(3.9,79,2,1870,0)=" ;Output Variables for this function"
^XMB(3.9,79,2,1871,0)="""RTN"",""ORWPFSS4"",100,0)"
^XMB(3.9,79,2,1872,0)=" ; ER    Set to null and returned if missing input"
^XMB(3.9,79,2,1873,0)="""RTN"",""ORWPFSS4"",101,0)"
^XMB(3.9,79,2,1874,0)=" ; VAIN(""NR"") The node of VAIN that contains the PFSS Account Reference"
^XMB(3.9,79,2,1875,0)="""RTN"",""ORWPFSS4"",102,0)"
^XMB(3.9,79,2,1876,0)=" ;Internal Variables for this function"
^XMB(3.9,79,2,1877,0)="""RTN"",""ORWPFSS4"",103,0)"
^XMB(3.9,79,2,1878,0)=" ; DFN   VADPT input variable, Patient's record number"
^XMB(3.9,79,2,1879,0)="""RTN"",""ORWPFSS4"",104,0)"
^XMB(3.9,79,2,1880,0)=" ; VAHOW VADPT input variable, sends output to array variable VAIN"
^XMB(3.9,79,2,1881,0)="""RTN"",""ORWPFSS4"",105,0)"
^XMB(3.9,79,2,1882,0)=" ; VAIN  Output array variable with results of INP^VAIN"
^XMB(3.9,79,2,1883,0)="""RTN"",""ORWPFSS4"",106,0)"
^XMB(3.9,79,2,1884,0)=" ;"
^XMB(3.9,79,2,1885,0)="""RTN"",""ORWPFSS4"",107,0)"
^XMB(3.9,79,2,1886,0)=" N ER,DFN,VAHOW,VAIN"
^XMB(3.9,79,2,1887,0)="""RTN"",""ORWPFSS4"",108,0)"
^XMB(3.9,79,2,1888,0)=" I X1="""" S ER="""" Q ER"
^XMB(3.9,79,2,1889,0)="""RTN"",""ORWPFSS4"",109,0)"
^XMB(3.9,79,2,1890,0)=" S DFN=X1"
^XMB(3.9,79,2,1891,0)="""RTN"",""ORWPFSS4"",110,0)"
^XMB(3.9,79,2,1892,0)=" S VAHOW=1"
^XMB(3.9,79,2,1893,0)="""RTN"",""ORWPFSS4"",111,0)"
^XMB(3.9,79,2,1894,0)=" D INP^VADPT"
^XMB(3.9,79,2,1895,0)="""RTN"",""ORWPFSS4"",112,0)"
^XMB(3.9,79,2,1896,0)=" Q $G(VAIN(""NR""))"
^XMB(3.9,79,2,1897,0)="""RTN"",""ORWPFSS4"",113,0)"
^XMB(3.9,79,2,1898,0)=" ;"
^XMB(3.9,79,2,1899,0)="""RTN"",""ORWPFSS4"",114,0)"
^XMB(3.9,79,2,1900,0)="PCEAR(X1,X2) ;PCE Account Reference for PFSS"
^XMB(3.9,79,2,1901,0)="""RTN"",""ORWPFSS4"",115,0)"
^XMB(3.9,79,2,1902,0)=" ;Returns the PFSS Account Reference from PCE"
^XMB(3.9,79,2,1903,0)="""RTN"",""ORWPFSS4"",116,0)"
^XMB(3.9,79,2,1904,0)=" ;All input required, if any missing this will a null."
^XMB(3.9,79,2,1905,0)="""RTN"",""ORWPFSS4"",117,0)"
^XMB(3.9,79,2,1906,0)=" ;Returns PFSS Account Reference returned if found."
^XMB(3.9,79,2,1907,0)="""RTN"",""ORWPFSS4"",118,0)"
^XMB(3.9,79,2,1908,0)=" ;Returns null if PFSS Account Reference not found null."
^XMB(3.9,79,2,1909,0)="""RTN"",""ORWPFSS4"",119,0)"
^XMB(3.9,79,2,1910,0)=" ;Input Variable for this function"
^XMB(3.9,79,2,1911,0)="""RTN"",""ORWPFSS4"",120,0)"
^XMB(3.9,79,2,1912,0)=" ; X1    The Visit String from the Order"
^XMB(3.9,79,2,1913,0)="""RTN"",""ORWPFSS4"",121,0)"
^XMB(3.9,79,2,1914,0)=" ; X2    The Patient's IEN"
^XMB(3.9,79,2,1915,0)="""RTN"",""ORWPFSS4"",122,0)"
^XMB(3.9,79,2,1916,0)=" ; VSIT  The input and output array variable for ^VSIT"
^XMB(3.9,79,2,1917,0)="""RTN"",""ORWPFSS4"",123,0)"
^XMB(3.9,79,2,1918,0)=" ;Output Variables for this function"
^XMB(3.9,79,2,1919,0)="""RTN"",""ORWPFSS4"",124,0)"
^XMB(3.9,79,2,1920,0)=" ; ER    Set to null and returned if missing input"
^XMB(3.9,79,2,1921,0)="""RTN"",""ORWPFSS4"",125,0)"
^XMB(3.9,79,2,1922,0)=" ; VSIT(""ACT"") The node of array variable VSIT that contains"
^XMB(3.9,79,2,1923,0)="""RTN"",""ORWPFSS4"",126,0)"
^XMB(3.9,79,2,1924,0)=" ;       the PFSS Account Reference returned by ^VSIT"
^XMB(3.9,79,2,1925,0)="""RTN"",""ORWPFSS4"",127,0)"
^XMB(3.9,79,2,1926,0)=" ;Local Variable for this function"
^XMB(3.9,79,2,1927,0)="""RTN"",""ORWPFSS4"",128,0)"
^XMB(3.9,79,2,1928,0)=" ; VSIT  The input and output array variable for ^VSIT"
^XMB(3.9,79,2,1929,0)="""RTN"",""ORWPFSS4"",129,0)"
^XMB(3.9,79,2,1930,0)=" ;"
^XMB(3.9,79,2,1931,0)="""RTN"",""ORWPFSS4"",130,0)"
^XMB(3.9,79,2,1932,0)=" N ER,VSIT"
^XMB(3.9,79,2,1933,0)="""RTN"",""ORWPFSS4"",131,0)"
^XMB(3.9,79,2,1934,0)=" I X1=""""!(X2="""") S ER="""" Q ER"
^XMB(3.9,79,2,1935,0)="""RTN"",""ORWPFSS4"",132,0)"
^XMB(3.9,79,2,1936,0)=" S VSIT(0)=""D0EM"""
^XMB(3.9,79,2,1937,0)="""RTN"",""ORWPFSS4"",133,0)"
^XMB(3.9,79,2,1938,0)=" S VSIT(""VDT"")=$P(X1,"";"",2)"
^XMB(3.9,79,2,1939,0)="""RTN"",""ORWPFSS4"",134,0)"
^XMB(3.9,79,2,1940,0)=" S VSIT(""LOC"")=$P(X1,"";"")"
^XMB(3.9,79,2,1941,0)="""RTN"",""ORWPFSS4"",135,0)"
^XMB(3.9,79,2,1942,0)=" S VSIT(""PKG"")=""OR"""
^XMB(3.9,79,2,1943,0)="""RTN"",""ORWPFSS4"",136,0)"
^XMB(3.9,79,2,1944,0)=" S VSIT(""PAT"")=X2"
^XMB(3.9,79,2,1945,0)="""RTN"",""ORWPFSS4"",137,0)"
^XMB(3.9,79,2,1946,0)=" D ^VSIT"
^XMB(3.9,79,2,1947,0)="""RTN"",""ORWPFSS4"",138,0)"
^XMB(3.9,79,2,1948,0)=" I $G(VSIT(""IEN""))<0 S ER="""" Q ER"
^XMB(3.9,79,2,1949,0)="""RTN"",""ORWPFSS4"",139,0)"
^XMB(3.9,79,2,1950,0)=" Q $G(VSIT(""ACT""))"
^XMB(3.9,79,2,1951,0)="""VER"")"
^XMB(3.9,79,2,1952,0)="8.0^22.0"
^XMB(3.9,79,2,1953,0)="""^DD"",100,100,97,0)"
^XMB(3.9,79,2,1954,0)="PFSS ACCOUNT REFERENCE^P375'^IBBAA(375,^5.5;1^Q"
^XMB(3.9,79,2,1955,0)="""^DD"",100,100,97,21,0)"
^XMB(3.9,79,2,1956,0)="^.001^3^3^3050607^^^"
^XMB(3.9,79,2,1957,0)="""^DD"",100,100,97,21,1,0)"
^XMB(3.9,79,2,1958,0)="The PFSS Account Reference field stores the PFSS Account Reference "
^XMB(3.9,79,2,1959,0)="""^DD"",100,100,97,21,2,0)"
^XMB(3.9,79,2,1960,0)="associated with the order. The field is a pointer to the PFSS Account "
^XMB(3.9,79,2,1961,0)="""^DD"",100,100,97,21,3,0)"
^XMB(3.9,79,2,1962,0)="Reference file (#375)."
^XMB(3.9,79,2,1963,0)="""^DD"",100,100,97,""DT"")"
^XMB(3.9,79,2,1964,0)="3050602"
^XMB(3.9,79,2,1965,0)="""BLD"",5673,6)"
^XMB(3.9,79,2,1966,0)="^231"
^XMB(3.9,79,2,1967,0)="$END KID OR*3.0*228"
^XMB(3.9,79,6,0)="^3.911A^2^2"
^XMB(3.9,79,6,1,0)="POSTMASTER"
^XMB(3.9,79,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,79,6,"B","POSTMASTER",1)=""
^XMB(3.9,79,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,80,0)="ORRC-1_SEQ-2_PAT-3.KID^.5^3061008.015739^^^^K"
^XMB(3.9,80,.6)="3061008"
^XMB(3.9,80,1,0)="^3.91A^2^2"
^XMB(3.9,80,1,1,0)=".5^0^3061008.015739^^^^^^^3061008.015739"
^XMB(3.9,80,1,2,0)="1^0^3061008.024026^^^^^^^3061008.024026"
^XMB(3.9,80,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,80,1,"C",.5,1)=""
^XMB(3.9,80,1,"C",1,2)=""
^XMB(3.9,80,2,0)="^^563^563^3061008"
^XMB(3.9,80,2,1,0)="$TXT Released ORRC*1*3 SEQ #2"
^XMB(3.9,80,2,2,0)="Extracted from mail message"
^XMB(3.9,80,2,3,0)="$END TXT"
^XMB(3.9,80,2,4,0)="$KID ORRC*1.0*3"
^XMB(3.9,80,2,5,0)="**INSTALL NAME**"
^XMB(3.9,80,2,6,0)="ORRC*1.0*3"
^XMB(3.9,80,2,7,0)="""BLD"",5368,0)"
^XMB(3.9,80,2,8,0)="ORRC*1.0*3^CARE MANAGEMENT^0^3060420^y"
^XMB(3.9,80,2,9,0)="""BLD"",5368,1,0)"
^XMB(3.9,80,2,10,0)="^^2^2^3041208^"
^XMB(3.9,80,2,11,0)="""BLD"",5368,1,1,0)"
^XMB(3.9,80,2,12,0)="Refer to the National Patch Module for complete details of the "
^XMB(3.9,80,2,13,0)="""BLD"",5368,1,2,0)"
^XMB(3.9,80,2,14,0)="enhancements included in this patch."
^XMB(3.9,80,2,15,0)="""BLD"",5368,4,0)"
^XMB(3.9,80,2,16,0)="^9.64PA^^"
^XMB(3.9,80,2,17,0)="""BLD"",5368,""KRN"",0)"
^XMB(3.9,80,2,18,0)="^9.67PA^8989.52^19"
^XMB(3.9,80,2,19,0)="""BLD"",5368,""KRN"",.4,0)"
^XMB(3.9,80,2,20,0)=".4"
^XMB(3.9,80,2,21,0)="""BLD"",5368,""KRN"",.401,0)"
^XMB(3.9,80,2,22,0)=".401"
^XMB(3.9,80,2,23,0)="""BLD"",5368,""KRN"",.402,0)"
^XMB(3.9,80,2,24,0)=".402"
^XMB(3.9,80,2,25,0)="""BLD"",5368,""KRN"",.403,0)"
^XMB(3.9,80,2,26,0)=".403"
^XMB(3.9,80,2,27,0)="""BLD"",5368,""KRN"",.5,0)"
^XMB(3.9,80,2,28,0)=".5"
^XMB(3.9,80,2,29,0)="""BLD"",5368,""KRN"",.84,0)"
^XMB(3.9,80,2,30,0)=".84"
^XMB(3.9,80,2,31,0)="""BLD"",5368,""KRN"",3.6,0)"
^XMB(3.9,80,2,32,0)="3.6"
^XMB(3.9,80,2,33,0)="""BLD"",5368,""KRN"",3.8,0)"
^XMB(3.9,80,2,34,0)="3.8"
^XMB(3.9,80,2,35,0)="""BLD"",5368,""KRN"",9.2,0)"
^XMB(3.9,80,2,36,0)="9.2"
^XMB(3.9,80,2,37,0)="""BLD"",5368,""KRN"",9.8,0)"
^XMB(3.9,80,2,38,0)="9.8"
^XMB(3.9,80,2,39,0)="""BLD"",5368,""KRN"",9.8,""NM"",0)"
^XMB(3.9,80,2,40,0)="^9.68A^2^1"
^XMB(3.9,80,2,41,0)="""BLD"",5368,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,80,2,42,0)="ORRCOR^^0^B48128294"
^XMB(3.9,80,2,43,0)="""BLD"",5368,""KRN"",9.8,""NM"",""B"",""ORRCOR"",2)"
^XMB(3.9,80,2,44,0)=""
^XMB(3.9,80,2,45,0)="""BLD"",5368,""KRN"",19,0)"
^XMB(3.9,80,2,46,0)="19"
^XMB(3.9,80,2,47,0)="""BLD"",5368,""KRN"",19.1,0)"
^XMB(3.9,80,2,48,0)="19.1"
^XMB(3.9,80,2,49,0)="""BLD"",5368,""KRN"",101,0)"
^XMB(3.9,80,2,50,0)="101"
^XMB(3.9,80,2,51,0)="""BLD"",5368,""KRN"",409.61,0)"
^XMB(3.9,80,2,52,0)="409.61"
^XMB(3.9,80,2,53,0)="""BLD"",5368,""KRN"",771,0)"
^XMB(3.9,80,2,54,0)="771"
^XMB(3.9,80,2,55,0)="""BLD"",5368,""KRN"",870,0)"
^XMB(3.9,80,2,56,0)="870"
^XMB(3.9,80,2,57,0)="""BLD"",5368,""KRN"",8989.51,0)"
^XMB(3.9,80,2,58,0)="8989.51"
^XMB(3.9,80,2,59,0)="""BLD"",5368,""KRN"",8989.52,0)"
^XMB(3.9,80,2,60,0)="8989.52"
^XMB(3.9,80,2,61,0)="""BLD"",5368,""KRN"",8994,0)"
^XMB(3.9,80,2,62,0)="8994"
^XMB(3.9,80,2,63,0)="""BLD"",5368,""KRN"",""B"",.4,.4)"
^XMB(3.9,80,2,64,0)=""
^XMB(3.9,80,2,65,0)="""BLD"",5368,""KRN"",""B"",.401,.401)"
^XMB(3.9,80,2,66,0)=""
^XMB(3.9,80,2,67,0)="""BLD"",5368,""KRN"",""B"",.402,.402)"
^XMB(3.9,80,2,68,0)=""
^XMB(3.9,80,2,69,0)="""BLD"",5368,""KRN"",""B"",.403,.403)"
^XMB(3.9,80,2,70,0)=""
^XMB(3.9,80,2,71,0)="""BLD"",5368,""KRN"",""B"",.5,.5)"
^XMB(3.9,80,2,72,0)=""
^XMB(3.9,80,2,73,0)="""BLD"",5368,""KRN"",""B"",.84,.84)"
^XMB(3.9,80,2,74,0)=""
^XMB(3.9,80,2,75,0)="""BLD"",5368,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,80,2,76,0)=""
^XMB(3.9,80,2,77,0)="""BLD"",5368,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,80,2,78,0)=""
^XMB(3.9,80,2,79,0)="""BLD"",5368,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,80,2,80,0)=""
^XMB(3.9,80,2,81,0)="""BLD"",5368,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,80,2,82,0)=""
^XMB(3.9,80,2,83,0)="""BLD"",5368,""KRN"",""B"",19,19)"
^XMB(3.9,80,2,84,0)=""
^XMB(3.9,80,2,85,0)="""BLD"",5368,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,80,2,86,0)=""
^XMB(3.9,80,2,87,0)="""BLD"",5368,""KRN"",""B"",101,101)"
^XMB(3.9,80,2,88,0)=""
^XMB(3.9,80,2,89,0)="""BLD"",5368,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,80,2,90,0)=""
^XMB(3.9,80,2,91,0)="""BLD"",5368,""KRN"",""B"",771,771)"
^XMB(3.9,80,2,92,0)=""
^XMB(3.9,80,2,93,0)="""BLD"",5368,""KRN"",""B"",870,870)"
^XMB(3.9,80,2,94,0)=""
^XMB(3.9,80,2,95,0)="""BLD"",5368,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,80,2,96,0)=""
^XMB(3.9,80,2,97,0)="""BLD"",5368,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,80,2,98,0)=""
^XMB(3.9,80,2,99,0)="""BLD"",5368,""KRN"",""B"",8994,8994)"
^XMB(3.9,80,2,100,0)=""
^XMB(3.9,80,2,101,0)="""BLD"",5368,""QUES"",0)"
^XMB(3.9,80,2,102,0)="^9.62^^"
^XMB(3.9,80,2,103,0)="""BLD"",5368,""REQB"",0)"
^XMB(3.9,80,2,104,0)="^9.611^1^1"
^XMB(3.9,80,2,105,0)="""BLD"",5368,""REQB"",1,0)"
^XMB(3.9,80,2,106,0)="ORRC*1.0*1^2"
^XMB(3.9,80,2,107,0)="""BLD"",5368,""REQB"",""B"",""ORRC*1.0*1"",1)"
^XMB(3.9,80,2,108,0)=""
^XMB(3.9,80,2,109,0)="""MBREQ"")"
^XMB(3.9,80,2,110,0)="0"
^XMB(3.9,80,2,111,0)="""PKG"",395,-1)"
^XMB(3.9,80,2,112,0)="1^1"
^XMB(3.9,80,2,113,0)="""PKG"",395,0)"
^XMB(3.9,80,2,114,0)="CARE MANAGEMENT^ORRC^Care Mgt Modules"
^XMB(3.9,80,2,115,0)="""PKG"",395,20,0)"
^XMB(3.9,80,2,116,0)="^9.402P^^"
^XMB(3.9,80,2,117,0)="""PKG"",395,22,0)"
^XMB(3.9,80,2,118,0)="^9.49I^1^1"
^XMB(3.9,80,2,119,0)="""PKG"",395,22,1,0)"
^XMB(3.9,80,2,120,0)="1.0^3040116^3040426^1119"
^XMB(3.9,80,2,121,0)="""PKG"",395,22,1,""PAH"",1,0)"
^XMB(3.9,80,2,122,0)="3^3060420"
^XMB(3.9,80,2,123,0)="""PKG"",395,22,1,""PAH"",1,1,0)"
^XMB(3.9,80,2,124,0)="^^2^2^3060420"
^XMB(3.9,80,2,125,0)="""PKG"",395,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,80,2,126,0)="Refer to the National Patch Module for complete details of the "
^XMB(3.9,80,2,127,0)="""PKG"",395,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,80,2,128,0)="enhancements included in this patch."
^XMB(3.9,80,2,129,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,80,2,130,0)="Y"
^XMB(3.9,80,2,131,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,80,2,132,0)="^D REP^XPDH"
^XMB(3.9,80,2,133,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,80,2,134,0)="Shall I write over your |FLAG| File"
^XMB(3.9,80,2,135,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,80,2,136,0)="YES"
^XMB(3.9,80,2,137,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,80,2,138,0)="D XPF1^XPDIQ"
^XMB(3.9,80,2,139,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,80,2,140,0)="Y"
^XMB(3.9,80,2,141,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,80,2,142,0)="^D DTA^XPDH"
^XMB(3.9,80,2,143,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,80,2,144,0)="Want my data |FLAG| yours"
^XMB(3.9,80,2,145,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,80,2,146,0)="YES"
^XMB(3.9,80,2,147,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,80,2,148,0)="D XPF2^XPDIQ"
^XMB(3.9,80,2,149,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,80,2,150,0)="YO"
^XMB(3.9,80,2,151,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,80,2,152,0)="^D INHIBIT^XPDH"
^XMB(3.9,80,2,153,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,80,2,154,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,80,2,155,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,80,2,156,0)="YES"
^XMB(3.9,80,2,157,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,80,2,158,0)="D XPI1^XPDIQ"
^XMB(3.9,80,2,159,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,80,2,160,0)="PO^VA(200,:EM"
^XMB(3.9,80,2,161,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,80,2,162,0)="^D MG^XPDH"
^XMB(3.9,80,2,163,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,80,2,164,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,80,2,165,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,80,2,166,0)=""
^XMB(3.9,80,2,167,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,80,2,168,0)="D XPM1^XPDIQ"
^XMB(3.9,80,2,169,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,80,2,170,0)="Y"
^XMB(3.9,80,2,171,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,80,2,172,0)="^D MENU^XPDH"
^XMB(3.9,80,2,173,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,80,2,174,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,80,2,175,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,80,2,176,0)="YES"
^XMB(3.9,80,2,177,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,80,2,178,0)="D XPO1^XPDIQ"
^XMB(3.9,80,2,179,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,80,2,180,0)="Y"
^XMB(3.9,80,2,181,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,80,2,182,0)="^D OPT^XPDH"
^XMB(3.9,80,2,183,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,80,2,184,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,80,2,185,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,80,2,186,0)="YES"
^XMB(3.9,80,2,187,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,80,2,188,0)="D XPZ1^XPDIQ"
^XMB(3.9,80,2,189,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,80,2,190,0)="Y"
^XMB(3.9,80,2,191,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,80,2,192,0)="^D RTN^XPDH"
^XMB(3.9,80,2,193,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,80,2,194,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,80,2,195,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,80,2,196,0)="NO"
^XMB(3.9,80,2,197,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,80,2,198,0)="D XPZ2^XPDIQ"
^XMB(3.9,80,2,199,0)="""RTN"")"
^XMB(3.9,80,2,200,0)="1"
^XMB(3.9,80,2,201,0)="""RTN"",""ORRCOR"")"
^XMB(3.9,80,2,202,0)="0^2^B48128294^B42048781"
^XMB(3.9,80,2,203,0)="""RTN"",""ORRCOR"",1,0)"
^XMB(3.9,80,2,204,0)="ORRCOR ;SLC/MKB - OR data for CM ; 25 Jul 2003  9:31 AM"
^XMB(3.9,80,2,205,0)="""RTN"",""ORRCOR"",2,0)"
^XMB(3.9,80,2,206,0)=" ;;1.0;CARE MANAGEMENT;**3**;Jul 15, 2003"
^XMB(3.9,80,2,207,0)="""RTN"",""ORRCOR"",3,0)"
^XMB(3.9,80,2,208,0)=" ;"
^XMB(3.9,80,2,209,0)="""RTN"",""ORRCOR"",4,0)"
^XMB(3.9,80,2,210,0)="PTUNS(ORY,ORUSR) ; -- Return list of patients with unsigned orders by ORUSR"
^XMB(3.9,80,2,211,0)="""RTN"",""ORRCOR"",5,0)"
^XMB(3.9,80,2,212,0)=" ; in @ORY@(PAT) = #unsigned orders"
^XMB(3.9,80,2,213,0)="""RTN"",""ORRCOR"",6,0)"
^XMB(3.9,80,2,214,0)=" ;    @ORY@(PAT,""ORU:ien;act"")="""""
^XMB(3.9,80,2,215,0)="""RTN"",""ORRCOR"",7,0)"
^XMB(3.9,80,2,216,0)=" ; [from ORRCDPT]"
^XMB(3.9,80,2,217,0)="""RTN"",""ORRCOR"",8,0)"
^XMB(3.9,80,2,218,0)=" N IDX,PAT,IFN,ACT,NUM,X"
^XMB(3.9,80,2,219,0)="""RTN"",""ORRCOR"",9,0)"
^XMB(3.9,80,2,220,0)=" S ORY=$NA(^TMP($J,""ORRCORU"")),IDX=""^OR(100,""""AS"""")"" K @ORY"
^XMB(3.9,80,2,221,0)="""RTN"",""ORRCOR"",10,0)"
^XMB(3.9,80,2,222,0)=" F  S IDX=$Q(@IDX) Q:IDX'?1""^OR(100,""""AS"""","".E  D"
^XMB(3.9,80,2,223,0)="""RTN"",""ORRCOR"",11,0)"
^XMB(3.9,80,2,224,0)=" . S PAT=+$P($P(IDX,"","",3),"""""""",2),IFN=+$P(IDX,"","",5),ACT=+$P(IDX,"","",6)"
^XMB(3.9,80,2,225,0)="""RTN"",""ORRCOR"",12,0)"
^XMB(3.9,80,2,226,0)=" . Q:+$P($G(^OR(100,IFN,8,ACT,0)),U,3)'=ORUSR"
^XMB(3.9,80,2,227,0)="""RTN"",""ORRCOR"",13,0)"
^XMB(3.9,80,2,228,0)=" . S X=+$G(ORY(PAT)),ORY(PAT)=X+1,ORY(PAT,""ORU:""_IFN_"";""_ACT)="""""
^XMB(3.9,80,2,229,0)="""RTN"",""ORRCOR"",14,0)"
^XMB(3.9,80,2,230,0)=" Q"
^XMB(3.9,80,2,231,0)="""RTN"",""ORRCOR"",15,0)"
^XMB(3.9,80,2,232,0)=" ;"
^XMB(3.9,80,2,233,0)="""RTN"",""ORRCOR"",16,0)"
^XMB(3.9,80,2,234,0)="IDS(ORY,ORPAT,ORTYPE,ORBEG,OREND) ; -- Return order IDs for ORPAT where"
^XMB(3.9,80,2,235,0)="""RTN"",""ORRCOR"",17,0)"
^XMB(3.9,80,2,236,0)=" ; ORTYPE = ORN: Active Nursing Orders (2)"
^XMB(3.9,80,2,237,0)="""RTN"",""ORRCOR"",18,0)"
^XMB(3.9,80,2,238,0)=" ;          ORV: Orders Unverified by Nursing (9)"
^XMB(3.9,80,2,239,0)="""RTN"",""ORRCOR"",19,0)"
^XMB(3.9,80,2,240,0)=" ; in @ORY@(PAT) = #orders"
^XMB(3.9,80,2,241,0)="""RTN"",""ORRCOR"",20,0)"
^XMB(3.9,80,2,242,0)=" ;    @ORY@(PAT,ID)= ! if completed (for ORN), else null"
^XMB(3.9,80,2,243,0)="""RTN"",""ORRCOR"",21,0)"
^XMB(3.9,80,2,244,0)=" ; [from ORRCDPT1]"
^XMB(3.9,80,2,245,0)="""RTN"",""ORRCOR"",22,0)"
^XMB(3.9,80,2,246,0)=" N ORN,ORWARD,ORFLG,ORID,ORDG,ORPKG,ORLIST,ORI,ORIFN,STS,PKG,X"
^XMB(3.9,80,2,247,0)="""RTN"",""ORRCOR"",23,0)"
^XMB(3.9,80,2,248,0)=" S ORY=$NA(^TMP($J,""ORRCORU"")) K @ORY"
^XMB(3.9,80,2,249,0)="""RTN"",""ORRCOR"",24,0)"
^XMB(3.9,80,2,250,0)=" S ORPAT=+$G(ORPAT)_"";DPT("",ORTYPE=$G(ORTYPE,""ORD"")"
^XMB(3.9,80,2,251,0)="""RTN"",""ORRCOR"",25,0)"
^XMB(3.9,80,2,252,0)=" S ORWARD=$G(^DPT(+ORPAT,.1)) S:$L(ORWARD) ORWARD=+$O(^DIC(42,""B"",ORWARD,0))"
^XMB(3.9,80,2,253,0)="""RTN"",""ORRCOR"",26,0)"
^XMB(3.9,80,2,254,0)=" S ORFLG=$S(ORTYPE=""ORU"":11,ORTYPE=""ORV"":9,1:2),ORID=ORTYPE_"":"""
^XMB(3.9,80,2,255,0)="""RTN"",""ORRCOR"",27,0)"
^XMB(3.9,80,2,256,0)=" S ORDG=$S(ORTYPE=""ORN"":""NURS"",1:""ALL""),ORDG=+$O(^ORD(100.98,""B"",ORDG,0))"
^XMB(3.9,80,2,257,0)="""RTN"",""ORRCOR"",28,0)"
^XMB(3.9,80,2,258,0)=" S ORPKG=+$O(^DIC(9.4,""C"",""OR"",0))"
^XMB(3.9,80,2,259,0)="""RTN"",""ORRCOR"",29,0)"
^XMB(3.9,80,2,260,0)=" ;S (ORBEG,OREND)="""" I ORFLG=9 S OREND=$$NOW^XLFDT,ORBEG=OREND-1"
^XMB(3.9,80,2,261,0)="""RTN"",""ORRCOR"",30,0)"
^XMB(3.9,80,2,262,0)=" D EN^ORQ1(ORPAT,ORDG,ORFLG,,$G(ORBEG),$G(OREND)) S (ORI,CNT)=0"
^XMB(3.9,80,2,263,0)="""RTN"",""ORRCOR"",31,0)"
^XMB(3.9,80,2,264,0)=" F  S ORI=+$O(^TMP(""ORR"",$J,ORLIST,ORI)) Q:ORI<1  S ORIFN=^(ORI) D"
^XMB(3.9,80,2,265,0)="""RTN"",""ORRCOR"",32,0)"
^XMB(3.9,80,2,266,0)=" . S STS=$P($G(^OR(100,+ORIFN,3)),U,3),PKG=+$P($G(^(0)),U,14),X="""""
^XMB(3.9,80,2,267,0)="""RTN"",""ORRCOR"",33,0)"
^XMB(3.9,80,2,268,0)=" . ;I ORTYPE=""ORV"",STS=1,+$G(^(6))=10 Q  ;changed ??"
^XMB(3.9,80,2,269,0)="""RTN"",""ORRCOR"",34,0)"
^XMB(3.9,80,2,270,0)=" . I ORTYPE=""ORN"",""^1^2^7^11^12^13^14^""[(U_STS_U)!(PKG'=ORPKG) S X=""!"" ;can't complete"
^XMB(3.9,80,2,271,0)="""RTN"",""ORRCOR"",35,0)"
^XMB(3.9,80,2,272,0)=" . S CNT=CNT+1,@ORY@(+ORPAT,ORID_ORIFN)=X"
^XMB(3.9,80,2,273,0)="""RTN"",""ORRCOR"",36,0)"
^XMB(3.9,80,2,274,0)=" S:CNT @ORY@(+ORPAT)=CNT K ^TMP(""ORR"",$J,ORLIST)"
^XMB(3.9,80,2,275,0)="""RTN"",""ORRCOR"",37,0)"
^XMB(3.9,80,2,276,0)=" ;if ORTYPE=ORN also get all other GEN TEXT ORDERS not in NURSING display group"
^XMB(3.9,80,2,277,0)="""RTN"",""ORRCOR"",38,0)"
^XMB(3.9,80,2,278,0)=" Q:ORTYPE'=""ORN"""
^XMB(3.9,80,2,279,0)="""RTN"",""ORRCOR"",39,0)"
^XMB(3.9,80,2,280,0)=" S ORDG=""CLINIC ORDERS"",ORDG=+$O(^ORD(100.98,""B"",ORDG,0))"
^XMB(3.9,80,2,281,0)="""RTN"",""ORRCOR"",40,0)"
^XMB(3.9,80,2,282,0)=" D EN^ORQ1(ORPAT,ORDG,ORFLG,,$G(ORBEG),$G(OREND))"
^XMB(3.9,80,2,283,0)="""RTN"",""ORRCOR"",41,0)"
^XMB(3.9,80,2,284,0)=" S ORI=0 F  S ORI=+$O(^TMP(""ORR"",$J,ORLIST,ORI)) Q:ORI<1  D"
^XMB(3.9,80,2,285,0)="""RTN"",""ORRCOR"",42,0)"
^XMB(3.9,80,2,286,0)=" . S ORIFN=$G(^TMP(""ORR"",$J,ORLIST,ORI))"
^XMB(3.9,80,2,287,0)="""RTN"",""ORRCOR"",43,0)"
^XMB(3.9,80,2,288,0)=" . S STS=$P($G(^OR(100,+ORIFN,3)),U,3),PKG=+$P($G(^(0)),U,14),X="""""
^XMB(3.9,80,2,289,0)="""RTN"",""ORRCOR"",44,0)"
^XMB(3.9,80,2,290,0)=" . I ORTYPE=""ORN"",""^1^2^7^11^12^13^14^""[(U_STS_U)!(PKG'=ORPKG) S X=""!"" ;can't complete"
^XMB(3.9,80,2,291,0)="""RTN"",""ORRCOR"",45,0)"
^XMB(3.9,80,2,292,0)=" . Q:(PKG'=ORPKG)"
^XMB(3.9,80,2,293,0)="""RTN"",""ORRCOR"",46,0)"
^XMB(3.9,80,2,294,0)=" . S CNT=CNT+1,@ORY@(+ORPAT,ORID_ORIFN)=X"
^XMB(3.9,80,2,295,0)="""RTN"",""ORRCOR"",47,0)"
^XMB(3.9,80,2,296,0)=" S:CNT @ORY@(+ORPAT)=CNT K ^TMP(""ORR"",$J,ORLIST)"
^XMB(3.9,80,2,297,0)="""RTN"",""ORRCOR"",48,0)"
^XMB(3.9,80,2,298,0)=" Q"
^XMB(3.9,80,2,299,0)="""RTN"",""ORRCOR"",49,0)"
^XMB(3.9,80,2,300,0)=" ;"
^XMB(3.9,80,2,301,0)="""RTN"",""ORRCOR"",50,0)"
^XMB(3.9,80,2,302,0)="LISTUNS(ORY,ORUSR,ORPAT,ORDET) ; -- Return unsigned orders by ORUSR for ORPAT"
^XMB(3.9,80,2,303,0)="""RTN"",""ORRCOR"",51,0)"
^XMB(3.9,80,2,304,0)=" ; in @ORY@(#) = Item=ID^Text^OrderDate in HL7 format"
^XMB(3.9,80,2,305,0)="""RTN"",""ORRCOR"",52,0)"
^XMB(3.9,80,2,306,0)=" ;             = Order=line of order text, and also if ORDET"
^XMB(3.9,80,2,307,0)="""RTN"",""ORRCOR"",53,0)"
^XMB(3.9,80,2,308,0)=" ;             = Text=line of report text"
^XMB(3.9,80,2,309,0)="""RTN"",""ORRCOR"",54,0)"
^XMB(3.9,80,2,310,0)=" ; [from LIST^ORRCSIG]"
^XMB(3.9,80,2,311,0)="""RTN"",""ORRCOR"",55,0)"
^XMB(3.9,80,2,312,0)=" N ORN,ORDT,ORIFN,ORACT,ORID,ORRCTX,I"
^XMB(3.9,80,2,313,0)="""RTN"",""ORRCOR"",56,0)"
^XMB(3.9,80,2,314,0)=" S ORY=$NA(^TMP($J,""ORRCORD"")) K @ORY"
^XMB(3.9,80,2,315,0)="""RTN"",""ORRCOR"",57,0)"
^XMB(3.9,80,2,316,0)=" S ORUSR=+$G(ORUSR),ORPAT=+$G(ORPAT)_"";DPT("",ORN=0"
^XMB(3.9,80,2,317,0)="""RTN"",""ORRCOR"",58,0)"
^XMB(3.9,80,2,318,0)=" S ORDT=0 F  S ORDT=+$O(^OR(100,""AS"",ORPAT,ORDT)) Q:ORDT<1  D"
^XMB(3.9,80,2,319,0)="""RTN"",""ORRCOR"",59,0)"
^XMB(3.9,80,2,320,0)=" . S ORIFN=0 F  S ORIFN=+$O(^OR(100,""AS"",ORPAT,ORDT,ORIFN)) Q:ORIFN<1  D"
^XMB(3.9,80,2,321,0)="""RTN"",""ORRCOR"",60,0)"
^XMB(3.9,80,2,322,0)=" .. S ORACT=0 F  S ORACT=+$O(^OR(100,""AS"",ORPAT,ORDT,ORIFN,ORACT)) Q:ORACT<1  D"
^XMB(3.9,80,2,323,0)="""RTN"",""ORRCOR"",61,0)"
^XMB(3.9,80,2,324,0)=" ... Q:+$P($G(^OR(100,ORIFN,8,ORACT,0)),U,3)'=ORUSR  S ORID=ORIFN_"";""_ORACT"
^XMB(3.9,80,2,325,0)="""RTN"",""ORRCOR"",62,0)"
^XMB(3.9,80,2,326,0)=" ... D TEXT^ORQ12(.ORRCTX,ORID,200)"
^XMB(3.9,80,2,327,0)="""RTN"",""ORRCOR"",63,0)"
^XMB(3.9,80,2,328,0)=" ... S ORN=ORN+1,@ORY@(ORN)=""Item=ORU:""_ORID_U_$$TXT1_U_$$FMTHL7^XLFDT(ORDT)_U_$$STS(ORIFN)"
^XMB(3.9,80,2,329,0)="""RTN"",""ORRCOR"",64,0)"
^XMB(3.9,80,2,330,0)=" ... S I=0 F  S I=$O(ORRCTX(I)) Q:I<1  S ORN=ORN+1,@ORY@(ORN)=""Order=""_ORRCTX(I)"
^XMB(3.9,80,2,331,0)="""RTN"",""ORRCOR"",65,0)"
^XMB(3.9,80,2,332,0)=" ... I $G(ORDET) D ORD ;add Detailed Display to @ORY@(#)"
^XMB(3.9,80,2,333,0)="""RTN"",""ORRCOR"",66,0)"
^XMB(3.9,80,2,334,0)=" ;S ORY(0)=CNT"
^XMB(3.9,80,2,335,0)="""RTN"",""ORRCOR"",67,0)"
^XMB(3.9,80,2,336,0)=" Q"
^XMB(3.9,80,2,337,0)="""RTN"",""ORRCOR"",68,0)"
^XMB(3.9,80,2,338,0)=" ;"
^XMB(3.9,80,2,339,0)="""RTN"",""ORRCOR"",69,0)"
^XMB(3.9,80,2,340,0)="LIST(ORY,ORPAT,ORTYPE,ORUSR,ORDET,ORBEG,OREND) ; -- Return orders for ORPAT where"
^XMB(3.9,80,2,341,0)="""RTN"",""ORRCOR"",70,0)"
^XMB(3.9,80,2,342,0)=" ; ORTYPE = ORN: Active Nursing Orders (2)"
^XMB(3.9,80,2,343,0)="""RTN"",""ORRCOR"",71,0)"
^XMB(3.9,80,2,344,0)=" ;          ORV: Orders Unverified by Nursing (9)"
^XMB(3.9,80,2,345,0)="""RTN"",""ORRCOR"",72,0)"
^XMB(3.9,80,2,346,0)=" ;          ORU: Unsigned Orders by ORUSR (11)"
^XMB(3.9,80,2,347,0)="""RTN"",""ORRCOR"",73,0)"
^XMB(3.9,80,2,348,0)=" ; in @ORY@(#) = Item=ID^Text^OrderDate in HL7 format^Status"
^XMB(3.9,80,2,349,0)="""RTN"",""ORRCOR"",74,0)"
^XMB(3.9,80,2,350,0)=" ;             = Order=line of order text, & if ORDET"
^XMB(3.9,80,2,351,0)="""RTN"",""ORRCOR"",75,0)"
^XMB(3.9,80,2,352,0)=" ;             = Text=line of report text"
^XMB(3.9,80,2,353,0)="""RTN"",""ORRCOR"",76,0)"
^XMB(3.9,80,2,354,0)=" ;    where ID = ORTYPE_"":""_order#;action#"
^XMB(3.9,80,2,355,0)="""RTN"",""ORRCOR"",77,0)"
^XMB(3.9,80,2,356,0)=" ; RPC = ORRC ORDERS BY PATIENT"
^XMB(3.9,80,2,357,0)="""RTN"",""ORRCOR"",78,0)"
^XMB(3.9,80,2,358,0)=" N ORN,ORWARD,ORIGVIEW,ORFLG,ORID,ORDG,ORLIST,ORI,ORIFN,ORACT,OR0,ORA0,ORDT,ORRCTX,I"
^XMB(3.9,80,2,359,0)="""RTN"",""ORRCOR"",79,0)"
^XMB(3.9,80,2,360,0)=" S ORY=$NA(^TMP($J,""ORRCORD"")) K @ORY"
^XMB(3.9,80,2,361,0)="""RTN"",""ORRCOR"",80,0)"
^XMB(3.9,80,2,362,0)=" S ORUSR=+$G(ORUSR),ORPAT=+$G(ORPAT)_"";DPT("",ORTYPE=$G(ORTYPE,""ORD"")"
^XMB(3.9,80,2,363,0)="""RTN"",""ORRCOR"",81,0)"
^XMB(3.9,80,2,364,0)=" S ORWARD=$G(^DPT(+ORPAT,.1)),ORIGVIEW=1"
^XMB(3.9,80,2,365,0)="""RTN"",""ORRCOR"",82,0)"
^XMB(3.9,80,2,366,0)=" S:$L(ORWARD) ORWARD=+$O(^DIC(42,""B"",ORWARD,0))"
^XMB(3.9,80,2,367,0)="""RTN"",""ORRCOR"",83,0)"
^XMB(3.9,80,2,368,0)=" S ORFLG=$S(ORTYPE=""ORU"":11,ORTYPE=""ORV"":9,1:2),ORID=ORTYPE_"":"""
^XMB(3.9,80,2,369,0)="""RTN"",""ORRCOR"",84,0)"
^XMB(3.9,80,2,370,0)=" S ORDG=$S(ORTYPE=""ORN"":""NURS"",1:""ALL""),ORDG=+$O(^ORD(100.98,""B"",ORDG,0))"
^XMB(3.9,80,2,371,0)="""RTN"",""ORRCOR"",85,0)"
^XMB(3.9,80,2,372,0)=" S:$G(ORBEG) ORBEG=$$HL7TFM^XLFDT(ORBEG) S:$G(OREND) OREND=$$HL7TFM^XLFDT(OREND)"
^XMB(3.9,80,2,373,0)="""RTN"",""ORRCOR"",86,0)"
^XMB(3.9,80,2,374,0)=" D EN^ORQ1(ORPAT,ORDG,ORFLG,,$G(ORBEG),$G(OREND)) S (ORI,ORN)=0"
^XMB(3.9,80,2,375,0)="""RTN"",""ORRCOR"",87,0)"
^XMB(3.9,80,2,376,0)=" F  S ORI=+$O(^TMP(""ORR"",$J,ORLIST,ORI)) Q:ORI<1  S ORIFN=^(ORI) D"
^XMB(3.9,80,2,377,0)="""RTN"",""ORRCOR"",88,0)"
^XMB(3.9,80,2,378,0)=" . S ORACT=+$P(ORIFN,"";"",2) S:ORACT<1 ORACT=+$P($G(^OR(100,+ORIFN,3)),U,7)"
^XMB(3.9,80,2,379,0)="""RTN"",""ORRCOR"",89,0)"
^XMB(3.9,80,2,380,0)=" . S OR0=$G(^OR(100,+ORIFN,0)),ORA0=$G(^(8,ORACT,0))"
^XMB(3.9,80,2,381,0)="""RTN"",""ORRCOR"",90,0)"
^XMB(3.9,80,2,382,0)=" . I ORFLG=11,+$P(ORA0,U,3)'=ORUSR Q"
^XMB(3.9,80,2,383,0)="""RTN"",""ORRCOR"",91,0)"
^XMB(3.9,80,2,384,0)=" . S ORDT=$S('$P(OR0,U,8):$P(ORA0,U),""^DC^HD^""[(U_$P(ORA0,U,2)_U):$P(ORA0,U),1:$P(OR0,U,8))"
^XMB(3.9,80,2,385,0)="""RTN"",""ORRCOR"",92,0)"
^XMB(3.9,80,2,386,0)=" . D TEXT^ORQ12(.ORRCTX,ORIFN,200)"
^XMB(3.9,80,2,387,0)="""RTN"",""ORRCOR"",93,0)"
^XMB(3.9,80,2,388,0)=" . S ORN=ORN+1,@ORY@(ORN)=""Item=""_ORID_ORIFN_U_$$TXT1_U_$$FMTHL7^XLFDT(ORDT)_U_$$STS(ORIFN)"
^XMB(3.9,80,2,389,0)="""RTN"",""ORRCOR"",94,0)"
^XMB(3.9,80,2,390,0)=" . S I=0 F  S I=$O(ORRCTX(I)) Q:I<1  S ORN=ORN+1,@ORY@(ORN)=""Order=""_ORRCTX(I)"
^XMB(3.9,80,2,391,0)="""RTN"",""ORRCOR"",95,0)"
^XMB(3.9,80,2,392,0)=" . I $G(ORDET) D ORD ;add Detailed Display to @ORY@(#)"
^XMB(3.9,80,2,393,0)="""RTN"",""ORRCOR"",96,0)"
^XMB(3.9,80,2,394,0)=" Q"
^XMB(3.9,80,2,395,0)="""RTN"",""ORRCOR"",97,0)"
^XMB(3.9,80,2,396,0)=" ;"
^XMB(3.9,80,2,397,0)="""RTN"",""ORRCOR"",98,0)"
^XMB(3.9,80,2,398,0)="DETAIL(ORY,ORDER) ; -- Return details of ORDERs"
^XMB(3.9,80,2,399,0)="""RTN"",""ORRCOR"",99,0)"
^XMB(3.9,80,2,400,0)=" ; where ORDER(#) = ID"
^XMB(3.9,80,2,401,0)="""RTN"",""ORRCOR"",100,0)"
^XMB(3.9,80,2,402,0)=" ; in @ORY@(#) = Item=ID^Text^OrderDate in HL7 format^Status"
^XMB(3.9,80,2,403,0)="""RTN"",""ORRCOR"",101,0)"
^XMB(3.9,80,2,404,0)=" ;             = Order=line of order text"
^XMB(3.9,80,2,405,0)="""RTN"",""ORRCOR"",102,0)"
^XMB(3.9,80,2,406,0)=" ;             = Text=line of report text"
^XMB(3.9,80,2,407,0)="""RTN"",""ORRCOR"",103,0)"
^XMB(3.9,80,2,408,0)=" ; RPC = ORRC ORDERS BY ID [and from DETAIL^ORRCSIG]"
^XMB(3.9,80,2,409,0)="""RTN"",""ORRCOR"",104,0)"
^XMB(3.9,80,2,410,0)=" N ORN,ORI,ORID,ORIFN,ORACT,ORDT,ORRCTX,I"
^XMB(3.9,80,2,411,0)="""RTN"",""ORRCOR"",105,0)"
^XMB(3.9,80,2,412,0)=" S ORN=0,ORY=$NA(^TMP($J,""ORRCORD"")) K @ORY"
^XMB(3.9,80,2,413,0)="""RTN"",""ORRCOR"",106,0)"
^XMB(3.9,80,2,414,0)=" S ORI="""" F  S ORI=$O(ORDER(ORI)) Q:ORI=""""  S ORID=ORDER(ORI) D"
^XMB(3.9,80,2,415,0)="""RTN"",""ORRCOR"",107,0)"
^XMB(3.9,80,2,416,0)=" . S ORIFN=$P(ORID,"":"",2),ORACT=+$P(ORIFN,"";"",2)"
^XMB(3.9,80,2,417,0)="""RTN"",""ORRCOR"",108,0)"
^XMB(3.9,80,2,418,0)=" . S:ORACT<1 ORACT=+$P($G(^OR(100,+ORIFN,3)),U,7) S:ORACT<1 ORACT=1"
^XMB(3.9,80,2,419,0)="""RTN"",""ORRCOR"",109,0)"
^XMB(3.9,80,2,420,0)=" . S ORDT=+$G(^OR(100,+ORIFN,8,ORACT,0))"
^XMB(3.9,80,2,421,0)="""RTN"",""ORRCOR"",110,0)"
^XMB(3.9,80,2,422,0)=" . D TEXT^ORQ12(.ORRCTX,ORIFN,200)"
^XMB(3.9,80,2,423,0)="""RTN"",""ORRCOR"",111,0)"
^XMB(3.9,80,2,424,0)=" . S ORN=ORN+1,@ORY@(ORN)=""Item=""_ORID_U_$$TXT1_U_$P($$FMTHL7^XLFDT(ORDT),""-"")_U_$$STS(ORIFN)"
^XMB(3.9,80,2,425,0)="""RTN"",""ORRCOR"",112,0)"
^XMB(3.9,80,2,426,0)=" . S I=0 F  S I=$O(ORRCTX(I)) Q:I<1  S ORN=ORN+1,@ORY@(ORN)=""Order=""_ORRCTX(I)"
^XMB(3.9,80,2,427,0)="""RTN"",""ORRCOR"",113,0)"
^XMB(3.9,80,2,428,0)=" . D ORD"
^XMB(3.9,80,2,429,0)="""RTN"",""ORRCOR"",114,0)"
^XMB(3.9,80,2,430,0)=" Q"
^XMB(3.9,80,2,431,0)="""RTN"",""ORRCOR"",115,0)"
^XMB(3.9,80,2,432,0)=" ;"
^XMB(3.9,80,2,433,0)="""RTN"",""ORRCOR"",116,0)"
^XMB(3.9,80,2,434,0)="TXT(IFN) ; -- Return [first line of] order IFN's text"
^XMB(3.9,80,2,435,0)="""RTN"",""ORRCOR"",117,0)"
^XMB(3.9,80,2,436,0)=" N ORRCTX,Y D TEXT^ORQ12(.ORRCTX,$G(IFN),200)"
^XMB(3.9,80,2,437,0)="""RTN"",""ORRCOR"",118,0)"
^XMB(3.9,80,2,438,0)=" S Y=$G(ORRCTX(1))_$S($O(ORRCTX(1)):""..."",1:"""")"
^XMB(3.9,80,2,439,0)="""RTN"",""ORRCOR"",119,0)"
^XMB(3.9,80,2,440,0)=" Q Y"
^XMB(3.9,80,2,441,0)="""RTN"",""ORRCOR"",120,0)"
^XMB(3.9,80,2,442,0)=" ;"
^XMB(3.9,80,2,443,0)="""RTN"",""ORRCOR"",121,0)"
^XMB(3.9,80,2,444,0)="TXT1() ; -- Return [first line of] order text from ORRCTX()"
^XMB(3.9,80,2,445,0)="""RTN"",""ORRCOR"",122,0)"
^XMB(3.9,80,2,446,0)=" N Y"
^XMB(3.9,80,2,447,0)="""RTN"",""ORRCOR"",123,0)"
^XMB(3.9,80,2,448,0)=" S Y=$G(ORRCTX(1))_$S($O(ORRCTX(1)):""..."",1:"""")"
^XMB(3.9,80,2,449,0)="""RTN"",""ORRCOR"",124,0)"
^XMB(3.9,80,2,450,0)=" Q Y"
^XMB(3.9,80,2,451,0)="""RTN"",""ORRCOR"",125,0)"
^XMB(3.9,80,2,452,0)=" ;"
^XMB(3.9,80,2,453,0)="""RTN"",""ORRCOR"",126,0)"
^XMB(3.9,80,2,454,0)="STS(IFN) ; --Return name of order IFN's status"
^XMB(3.9,80,2,455,0)="""RTN"",""ORRCOR"",127,0)"
^XMB(3.9,80,2,456,0)=" N STS,X,Y"
^XMB(3.9,80,2,457,0)="""RTN"",""ORRCOR"",128,0)"
^XMB(3.9,80,2,458,0)=" S STS=+$P($G(^OR(100,+$G(IFN),3)),U,3)"
^XMB(3.9,80,2,459,0)="""RTN"",""ORRCOR"",129,0)"
^XMB(3.9,80,2,460,0)=" S X=$P($G(^ORD(100.01,STS,0)),U),Y=$$LOW^XLFSTR(X)"
^XMB(3.9,80,2,461,0)="""RTN"",""ORRCOR"",130,0)"
^XMB(3.9,80,2,462,0)=" Q Y"
^XMB(3.9,80,2,463,0)="""RTN"",""ORRCOR"",131,0)"
^XMB(3.9,80,2,464,0)=" ;"
^XMB(3.9,80,2,465,0)="""RTN"",""ORRCOR"",132,0)"
^XMB(3.9,80,2,466,0)="ORD ; -- Add details of ORIFN to @ORY@(ORN)"
^XMB(3.9,80,2,467,0)="""RTN"",""ORRCOR"",133,0)"
^XMB(3.9,80,2,468,0)=" Q:'+$G(ORIFN)  N ORRCZ,ORI,ORVP"
^XMB(3.9,80,2,469,0)="""RTN"",""ORRCOR"",134,0)"
^XMB(3.9,80,2,470,0)=" S ORVP=$P($G(^OR(100,+ORIFN,0)),U,2)"
^XMB(3.9,80,2,471,0)="""RTN"",""ORRCOR"",135,0)"
^XMB(3.9,80,2,472,0)=" S ORRCZ=""^TMP($J,""""ORRCTXT"""")"" D DETAIL^ORQ2(.ORRCZ,ORIFN)"
^XMB(3.9,80,2,473,0)="""RTN"",""ORRCOR"",136,0)"
^XMB(3.9,80,2,474,0)=" S ORI=0 F  S ORI=$O(@ORRCZ@(ORI)) Q:ORI<1  S ORN=ORN+1,@ORY@(ORN)=""Text=""_@ORRCZ@(ORI)"
^XMB(3.9,80,2,475,0)="""RTN"",""ORRCOR"",137,0)"
^XMB(3.9,80,2,476,0)=" K @ORRCZ"
^XMB(3.9,80,2,477,0)="""RTN"",""ORRCOR"",138,0)"
^XMB(3.9,80,2,478,0)=" Q"
^XMB(3.9,80,2,479,0)="""RTN"",""ORRCOR"",139,0)"
^XMB(3.9,80,2,480,0)=" ;"
^XMB(3.9,80,2,481,0)="""RTN"",""ORRCOR"",140,0)"
^XMB(3.9,80,2,482,0)="VERIFY(ORY,ORUSR,ORDER) ; -- Mark ORDERs as verified by ORUSR"
^XMB(3.9,80,2,483,0)="""RTN"",""ORRCOR"",141,0)"
^XMB(3.9,80,2,484,0)=" ;where ORDER(#) = ID = ORV:order#;action#"
^XMB(3.9,80,2,485,0)="""RTN"",""ORRCOR"",142,0)"
^XMB(3.9,80,2,486,0)=" ;returns ORY(#) = ID^1 if successful, else ID^0^error"
^XMB(3.9,80,2,487,0)="""RTN"",""ORRCOR"",143,0)"
^XMB(3.9,80,2,488,0)=" ;RPC = ORRC ORDERS VERIFY"
^XMB(3.9,80,2,489,0)="""RTN"",""ORRCOR"",144,0)"
^XMB(3.9,80,2,490,0)=" Q:'$G(ORUSR)  N ORVER,ORI,ORID,ORIFN,ORACT,ORA0,ORLK,ORES,ORERR,ORVP,ORWARD"
^XMB(3.9,80,2,491,0)="""RTN"",""ORRCOR"",145,0)"
^XMB(3.9,80,2,492,0)=" K ORY S ORVER=""N"""
^XMB(3.9,80,2,493,0)="""RTN"",""ORRCOR"",146,0)"
^XMB(3.9,80,2,494,0)=" S ORI=""""  F  S ORI=$O(ORDER(ORI)) Q:ORI=""""  D"
^XMB(3.9,80,2,495,0)="""RTN"",""ORRCOR"",147,0)"
^XMB(3.9,80,2,496,0)=" . S ORID=ORDER(ORI),ORIFN=$P(ORID,"":"",2),ORACT=+$P(ORIFN,"";"",2)"
^XMB(3.9,80,2,497,0)="""RTN"",""ORRCOR"",148,0)"
^XMB(3.9,80,2,498,0)=" . I ORACT<1 S ORACT=+$P($G(^OR(100,+ORIFN,3)),U,7),ORIFN=+ORIFN_"";""_ORACT"
^XMB(3.9,80,2,499,0)="""RTN"",""ORRCOR"",149,0)"
^XMB(3.9,80,2,500,0)=" . S ORA0=$G(^OR(100,+ORIFN,8,ORACT,0)) I $P(ORA0,U,9) D  Q  ;verified"
^XMB(3.9,80,2,501,0)="""RTN"",""ORRCOR"",150,0)"
^XMB(3.9,80,2,502,0)=" .. N WHO,WHEN,X S WHO=$P(ORA0,U,8),WHEN=$P(ORA0,U,9),X="""""
^XMB(3.9,80,2,503,0)="""RTN"",""ORRCOR"",151,0)"
^XMB(3.9,80,2,504,0)=" .. S:WHO X=X_"" by ""_$$UP^XLFSTR($$NAME^XUSER(WHO,""F""))"
^XMB(3.9,80,2,505,0)="""RTN"",""ORRCOR"",152,0)"
^XMB(3.9,80,2,506,0)=" .. S:WHEN X=X_"" on ""_$$FMTE^XLFDT(WHEN,""2P"")"
^XMB(3.9,80,2,507,0)="""RTN"",""ORRCOR"",153,0)"
^XMB(3.9,80,2,508,0)=" .. S ORY(ORI)=ORID_""^0^This order has been verified""_X_""!"" Q"
^XMB(3.9,80,2,509,0)="""RTN"",""ORRCOR"",154,0)"
^XMB(3.9,80,2,510,0)=" . S ORLK=$$LOCK1^ORX2(+ORIFN) I 'ORLK S ORY(ORI)=ORID_U_ORLK Q"
^XMB(3.9,80,2,511,0)="""RTN"",""ORRCOR"",155,0)"
^XMB(3.9,80,2,512,0)=" . S ORES(ORIFN)=ORID,ORES(""B"",ORIFN)=ORI"
^XMB(3.9,80,2,513,0)="""RTN"",""ORRCOR"",156,0)"
^XMB(3.9,80,2,514,0)=" . D REPLCD^ORCACT1 ;incl unverified replaced orders"
^XMB(3.9,80,2,515,0)="""RTN"",""ORRCOR"",157,0)"
^XMB(3.9,80,2,516,0)=" Q:'$O(ORES(0))  S ORIFN=0 F  S ORIFN=$O(ORES(ORIFN)) Q:ORIFN<1  D"
^XMB(3.9,80,2,517,0)="""RTN"",""ORRCOR"",158,0)"
^XMB(3.9,80,2,518,0)=" . S ORVP=$P($G(^OR(100,+ORIFN,0)),U,2),ORVP(ORVP)="""""
^XMB(3.9,80,2,519,0)="""RTN"",""ORRCOR"",159,0)"
^XMB(3.9,80,2,520,0)=" . D EN^ORCSEND(ORIFN,""VR"","""","""",,,.ORERR),UNLK1^ORX2(+ORIFN)"
^XMB(3.9,80,2,521,0)="""RTN"",""ORRCOR"",160,0)"
^XMB(3.9,80,2,522,0)=" . S ORID=$G(ORES(ORIFN)),ORI=+$G(ORES(""B"",ORIFN))"
^XMB(3.9,80,2,523,0)="""RTN"",""ORRCOR"",161,0)"
^XMB(3.9,80,2,524,0)=" . I ORI S ORY(ORI)=ORID_U_$S($G(ORERR):""0^""_$P(ORERR,U,2),1:1)"
^XMB(3.9,80,2,525,0)="""RTN"",""ORRCOR"",162,0)"
^XMB(3.9,80,2,526,0)=" S ORVP="""" F  S ORVP=$O(ORVP(ORVP)) Q:ORVP=""""  D"
^XMB(3.9,80,2,527,0)="""RTN"",""ORRCOR"",163,0)"
^XMB(3.9,80,2,528,0)=" . S ORWARD=$S($G(^DPT(+ORVP,.105)):1,1:0) ;inpt"
^XMB(3.9,80,2,529,0)="""RTN"",""ORRCOR"",164,0)"
^XMB(3.9,80,2,530,0)=" . D CKALERT^ORCACT1 ;delete unver orders alerts"
^XMB(3.9,80,2,531,0)="""RTN"",""ORRCOR"",165,0)"
^XMB(3.9,80,2,532,0)=" Q"
^XMB(3.9,80,2,533,0)="""RTN"",""ORRCOR"",166,0)"
^XMB(3.9,80,2,534,0)=" ;"
^XMB(3.9,80,2,535,0)="""RTN"",""ORRCOR"",167,0)"
^XMB(3.9,80,2,536,0)="COMP(ORY,ORUSR,ORDER) ; -- Mark ORDERs as completed by ORUSR"
^XMB(3.9,80,2,537,0)="""RTN"",""ORRCOR"",168,0)"
^XMB(3.9,80,2,538,0)=" ;where ORDER(#) = ID = ORN:order#;action#"
^XMB(3.9,80,2,539,0)="""RTN"",""ORRCOR"",169,0)"
^XMB(3.9,80,2,540,0)=" ;returns ORY(#) = ID^1 if successful, else ID^0^error"
^XMB(3.9,80,2,541,0)="""RTN"",""ORRCOR"",170,0)"
^XMB(3.9,80,2,542,0)=" ;RPC = ORRC ORDERS COMPLETE"
^XMB(3.9,80,2,543,0)="""RTN"",""ORRCOR"",171,0)"
^XMB(3.9,80,2,544,0)=" Q:'$G(ORUSR)  N ORNOW,ORI,ORID,ORIFN,ORLK"
^XMB(3.9,80,2,545,0)="""RTN"",""ORRCOR"",172,0)"
^XMB(3.9,80,2,546,0)=" K ORY S ORNOW=+$E($$NOW^XLFDT,1,12)"
^XMB(3.9,80,2,547,0)="""RTN"",""ORRCOR"",173,0)"
^XMB(3.9,80,2,548,0)=" S ORI=""""  F  S ORI=$O(ORDER(ORI)) Q:ORI=""""  D"
^XMB(3.9,80,2,549,0)="""RTN"",""ORRCOR"",174,0)"
^XMB(3.9,80,2,550,0)=" . S ORID=ORDER(ORI),ORIFN=+$P(ORID,"":"",2)"
^XMB(3.9,80,2,551,0)="""RTN"",""ORRCOR"",175,0)"
^XMB(3.9,80,2,552,0)=" . S ORLK=$$LOCK1^ORX2(ORIFN) I 'ORLK S ORY(ORI)=ORID_U_ORLK Q"
^XMB(3.9,80,2,553,0)="""RTN"",""ORRCOR"",176,0)"
^XMB(3.9,80,2,554,0)=" . D COMP^ORCSAVE2(ORIFN,ORUSR,ORNOW),UNLK1^ORX2(ORIFN)"
^XMB(3.9,80,2,555,0)="""RTN"",""ORRCOR"",177,0)"
^XMB(3.9,80,2,556,0)=" . S ORY(ORI)=ORID_U_$S($P($G(^OR(100,ORIFN,6)),U,6):1,1:0)"
^XMB(3.9,80,2,557,0)="""RTN"",""ORRCOR"",178,0)"
^XMB(3.9,80,2,558,0)=" Q"
^XMB(3.9,80,2,559,0)="""VER"")"
^XMB(3.9,80,2,560,0)="8.0^22.0"
^XMB(3.9,80,2,561,0)="""BLD"",5368,6)"
^XMB(3.9,80,2,562,0)="^2"
^XMB(3.9,80,2,563,0)="$END KID ORRC*1.0*3"
^XMB(3.9,80,6,0)="^3.911A^2^2"
^XMB(3.9,80,6,1,0)="POSTMASTER"
^XMB(3.9,80,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,80,6,"B","POSTMASTER",1)=""
^XMB(3.9,80,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,81,0)="PPP-1_SEQ-36_PAT-41.KID^.5^3061008.015739^^^^K"
^XMB(3.9,81,.6)="3061008"
^XMB(3.9,81,1,0)="^3.91A^2^2"
^XMB(3.9,81,1,1,0)=".5^0^3061008.015739^^^^^^^3061008.015739"
^XMB(3.9,81,1,2,0)="1^0^3061008.02403^^^^^^^3061008.02403"
^XMB(3.9,81,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,81,1,"C",.5,1)=""
^XMB(3.9,81,1,"C",1,2)=""
^XMB(3.9,81,2,0)="^^901^901^3061008"
^XMB(3.9,81,2,1,0)="$TXT Released PPP*1*41 SEQ #36"
^XMB(3.9,81,2,2,0)="Extracted from mail message"
^XMB(3.9,81,2,3,0)="$END TXT"
^XMB(3.9,81,2,4,0)="$KID PPP*1.0*41"
^XMB(3.9,81,2,5,0)="**INSTALL NAME**"
^XMB(3.9,81,2,6,0)="PPP*1.0*41"
^XMB(3.9,81,2,7,0)="""BLD"",5285,0)"
^XMB(3.9,81,2,8,0)="PPP*1.0*41^PHARMACY PRESCRIPTION PRACTICE^0^3060323^y"
^XMB(3.9,81,2,9,0)="""BLD"",5285,1,0)"
^XMB(3.9,81,2,10,0)="^^8^8^3060323^"
^XMB(3.9,81,2,11,0)="""BLD"",5285,1,1,0)"
^XMB(3.9,81,2,12,0)="PPPBLD1A CHANGE VAR I TO PPPI TO PREVENT POSS UNDEF ERROR"
^XMB(3.9,81,2,13,0)="""BLD"",5285,1,2,0)"
^XMB(3.9,81,2,14,0)=" "
^XMB(3.9,81,2,15,0)="""BLD"",5285,1,3,0)"
^XMB(3.9,81,2,16,0)="PPPMPI MODIFY PPP BUILD FFX TO PREVENT DUPLICATE ENTRIES"
^XMB(3.9,81,2,17,0)="""BLD"",5285,1,4,0)"
^XMB(3.9,81,2,18,0)=" "
^XMB(3.9,81,2,19,0)="""BLD"",5285,1,5,0)"
^XMB(3.9,81,2,20,0)="PPPMPI UPDATE DATE OF LAST AUTO BUILD"
^XMB(3.9,81,2,21,0)="""BLD"",5285,1,6,0)"
^XMB(3.9,81,2,22,0)=" "
^XMB(3.9,81,2,23,0)="""BLD"",5285,1,7,0)"
^XMB(3.9,81,2,24,0)="PPPSCN2 MODIFY ROUTINE TO LOOK AT THE FILE 44.003 MULTIPLE INSTEAD OF "
^XMB(3.9,81,2,25,0)="""BLD"",5285,1,8,0)"
^XMB(3.9,81,2,26,0)="JUST THE FIRST ENTRY"
^XMB(3.9,81,2,27,0)="""BLD"",5285,4,0)"
^XMB(3.9,81,2,28,0)="^9.64PA^^"
^XMB(3.9,81,2,29,0)="""BLD"",5285,6)"
^XMB(3.9,81,2,30,0)="2^"
^XMB(3.9,81,2,31,0)="""BLD"",5285,""ABPKG"")"
^XMB(3.9,81,2,32,0)="n"
^XMB(3.9,81,2,33,0)="""BLD"",5285,""INID"")"
^XMB(3.9,81,2,34,0)="^n"
^XMB(3.9,81,2,35,0)="""BLD"",5285,""INIT"")"
^XMB(3.9,81,2,36,0)=""
^XMB(3.9,81,2,37,0)="""BLD"",5285,""KRN"",0)"
^XMB(3.9,81,2,38,0)="^9.67PA^8989.52^19"
^XMB(3.9,81,2,39,0)="""BLD"",5285,""KRN"",.4,0)"
^XMB(3.9,81,2,40,0)=".4"
^XMB(3.9,81,2,41,0)="""BLD"",5285,""KRN"",.401,0)"
^XMB(3.9,81,2,42,0)=".401"
^XMB(3.9,81,2,43,0)="""BLD"",5285,""KRN"",.402,0)"
^XMB(3.9,81,2,44,0)=".402"
^XMB(3.9,81,2,45,0)="""BLD"",5285,""KRN"",.403,0)"
^XMB(3.9,81,2,46,0)=".403"
^XMB(3.9,81,2,47,0)="""BLD"",5285,""KRN"",.5,0)"
^XMB(3.9,81,2,48,0)=".5"
^XMB(3.9,81,2,49,0)="""BLD"",5285,""KRN"",.84,0)"
^XMB(3.9,81,2,50,0)=".84"
^XMB(3.9,81,2,51,0)="""BLD"",5285,""KRN"",3.6,0)"
^XMB(3.9,81,2,52,0)="3.6"
^XMB(3.9,81,2,53,0)="""BLD"",5285,""KRN"",3.8,0)"
^XMB(3.9,81,2,54,0)="3.8"
^XMB(3.9,81,2,55,0)="""BLD"",5285,""KRN"",9.2,0)"
^XMB(3.9,81,2,56,0)="9.2"
^XMB(3.9,81,2,57,0)="""BLD"",5285,""KRN"",9.8,0)"
^XMB(3.9,81,2,58,0)="9.8"
^XMB(3.9,81,2,59,0)="""BLD"",5285,""KRN"",9.8,""NM"",0)"
^XMB(3.9,81,2,60,0)="^9.68A^3^3"
^XMB(3.9,81,2,61,0)="""BLD"",5285,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,81,2,62,0)="PPPBLD1A^^0^B18984309"
^XMB(3.9,81,2,63,0)="""BLD"",5285,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,81,2,64,0)="PPPSCN2^^0^B16603361"
^XMB(3.9,81,2,65,0)="""BLD"",5285,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,81,2,66,0)="PPPMPI^^0^B27108371"
^XMB(3.9,81,2,67,0)="""BLD"",5285,""KRN"",9.8,""NM"",""B"",""PPPBLD1A"",1)"
^XMB(3.9,81,2,68,0)=""
^XMB(3.9,81,2,69,0)="""BLD"",5285,""KRN"",9.8,""NM"",""B"",""PPPMPI"",3)"
^XMB(3.9,81,2,70,0)=""
^XMB(3.9,81,2,71,0)="""BLD"",5285,""KRN"",9.8,""NM"",""B"",""PPPSCN2"",2)"
^XMB(3.9,81,2,72,0)=""
^XMB(3.9,81,2,73,0)="""BLD"",5285,""KRN"",19,0)"
^XMB(3.9,81,2,74,0)="19"
^XMB(3.9,81,2,75,0)="""BLD"",5285,""KRN"",19.1,0)"
^XMB(3.9,81,2,76,0)="19.1"
^XMB(3.9,81,2,77,0)="""BLD"",5285,""KRN"",101,0)"
^XMB(3.9,81,2,78,0)="101"
^XMB(3.9,81,2,79,0)="""BLD"",5285,""KRN"",409.61,0)"
^XMB(3.9,81,2,80,0)="409.61"
^XMB(3.9,81,2,81,0)="""BLD"",5285,""KRN"",771,0)"
^XMB(3.9,81,2,82,0)="771"
^XMB(3.9,81,2,83,0)="""BLD"",5285,""KRN"",870,0)"
^XMB(3.9,81,2,84,0)="870"
^XMB(3.9,81,2,85,0)="""BLD"",5285,""KRN"",8989.51,0)"
^XMB(3.9,81,2,86,0)="8989.51"
^XMB(3.9,81,2,87,0)="""BLD"",5285,""KRN"",8989.52,0)"
^XMB(3.9,81,2,88,0)="8989.52"
^XMB(3.9,81,2,89,0)="""BLD"",5285,""KRN"",8994,0)"
^XMB(3.9,81,2,90,0)="8994"
^XMB(3.9,81,2,91,0)="""BLD"",5285,""KRN"",""B"",.4,.4)"
^XMB(3.9,81,2,92,0)=""
^XMB(3.9,81,2,93,0)="""BLD"",5285,""KRN"",""B"",.401,.401)"
^XMB(3.9,81,2,94,0)=""
^XMB(3.9,81,2,95,0)="""BLD"",5285,""KRN"",""B"",.402,.402)"
^XMB(3.9,81,2,96,0)=""
^XMB(3.9,81,2,97,0)="""BLD"",5285,""KRN"",""B"",.403,.403)"
^XMB(3.9,81,2,98,0)=""
^XMB(3.9,81,2,99,0)="""BLD"",5285,""KRN"",""B"",.5,.5)"
^XMB(3.9,81,2,100,0)=""
^XMB(3.9,81,2,101,0)="""BLD"",5285,""KRN"",""B"",.84,.84)"
^XMB(3.9,81,2,102,0)=""
^XMB(3.9,81,2,103,0)="""BLD"",5285,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,81,2,104,0)=""
^XMB(3.9,81,2,105,0)="""BLD"",5285,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,81,2,106,0)=""
^XMB(3.9,81,2,107,0)="""BLD"",5285,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,81,2,108,0)=""
^XMB(3.9,81,2,109,0)="""BLD"",5285,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,81,2,110,0)=""
^XMB(3.9,81,2,111,0)="""BLD"",5285,""KRN"",""B"",19,19)"
^XMB(3.9,81,2,112,0)=""
^XMB(3.9,81,2,113,0)="""BLD"",5285,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,81,2,114,0)=""
^XMB(3.9,81,2,115,0)="""BLD"",5285,""KRN"",""B"",101,101)"
^XMB(3.9,81,2,116,0)=""
^XMB(3.9,81,2,117,0)="""BLD"",5285,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,81,2,118,0)=""
^XMB(3.9,81,2,119,0)="""BLD"",5285,""KRN"",""B"",771,771)"
^XMB(3.9,81,2,120,0)=""
^XMB(3.9,81,2,121,0)="""BLD"",5285,""KRN"",""B"",870,870)"
^XMB(3.9,81,2,122,0)=""
^XMB(3.9,81,2,123,0)="""BLD"",5285,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,81,2,124,0)=""
^XMB(3.9,81,2,125,0)="""BLD"",5285,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,81,2,126,0)=""
^XMB(3.9,81,2,127,0)="""BLD"",5285,""KRN"",""B"",8994,8994)"
^XMB(3.9,81,2,128,0)=""
^XMB(3.9,81,2,129,0)="""BLD"",5285,""QUES"",0)"
^XMB(3.9,81,2,130,0)="^9.62^^"
^XMB(3.9,81,2,131,0)="""BLD"",5285,""REQB"",0)"
^XMB(3.9,81,2,132,0)="^9.611^4^3"
^XMB(3.9,81,2,133,0)="""BLD"",5285,""REQB"",1,0)"
^XMB(3.9,81,2,134,0)="PPP*1.0*9^1"
^XMB(3.9,81,2,135,0)="""BLD"",5285,""REQB"",3,0)"
^XMB(3.9,81,2,136,0)="PPP*1.0*38^2"
^XMB(3.9,81,2,137,0)="""BLD"",5285,""REQB"",4,0)"
^XMB(3.9,81,2,138,0)="PPP*1.0*39^2"
^XMB(3.9,81,2,139,0)="""BLD"",5285,""REQB"",""B"",""PPP*1.0*38"",3)"
^XMB(3.9,81,2,140,0)=""
^XMB(3.9,81,2,141,0)="""BLD"",5285,""REQB"",""B"",""PPP*1.0*39"",4)"
^XMB(3.9,81,2,142,0)=""
^XMB(3.9,81,2,143,0)="""BLD"",5285,""REQB"",""B"",""PPP*1.0*9"",1)"
^XMB(3.9,81,2,144,0)=""
^XMB(3.9,81,2,145,0)="""MBREQ"")"
^XMB(3.9,81,2,146,0)="0"
^XMB(3.9,81,2,147,0)="""PKG"",521,-1)"
^XMB(3.9,81,2,148,0)="1^1"
^XMB(3.9,81,2,149,0)="""PKG"",521,0)"
^XMB(3.9,81,2,150,0)="PHARMACY PRESCRIPTION PRACTICE^PPP^3P"
^XMB(3.9,81,2,151,0)="""PKG"",521,20,0)"
^XMB(3.9,81,2,152,0)="^9.402P^^"
^XMB(3.9,81,2,153,0)="""PKG"",521,22,0)"
^XMB(3.9,81,2,154,0)="^9.49I^1^1"
^XMB(3.9,81,2,155,0)="""PKG"",521,22,1,0)"
^XMB(3.9,81,2,156,0)="1.0^2950407^2951019"
^XMB(3.9,81,2,157,0)="""PKG"",521,22,1,""PAH"",1,0)"
^XMB(3.9,81,2,158,0)="41^3060323^123456952"
^XMB(3.9,81,2,159,0)="""PKG"",521,22,1,""PAH"",1,1,0)"
^XMB(3.9,81,2,160,0)="^^8^8^3060323"
^XMB(3.9,81,2,161,0)="""PKG"",521,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,81,2,162,0)="PPPBLD1A CHANGE VAR I TO PPPI TO PREVENT POSS UNDEF ERROR"
^XMB(3.9,81,2,163,0)="""PKG"",521,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,81,2,164,0)=" "
^XMB(3.9,81,2,165,0)="""PKG"",521,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,81,2,166,0)="PPPMPI MODIFY PPP BUILD FFX TO PREVENT DUPLICATE ENTRIES"
^XMB(3.9,81,2,167,0)="""PKG"",521,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,81,2,168,0)=" "
^XMB(3.9,81,2,169,0)="""PKG"",521,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,81,2,170,0)="PPPMPI UPDATE DATE OF LAST AUTO BUILD"
^XMB(3.9,81,2,171,0)="""PKG"",521,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,81,2,172,0)=" "
^XMB(3.9,81,2,173,0)="""PKG"",521,22,1,""PAH"",1,1,7,0)"
^XMB(3.9,81,2,174,0)="PPPSCN2 MODIFY ROUTINE TO LOOK AT THE FILE 44.003 MULTIPLE INSTEAD OF "
^XMB(3.9,81,2,175,0)="""PKG"",521,22,1,""PAH"",1,1,8,0)"
^XMB(3.9,81,2,176,0)="JUST THE FIRST ENTRY"
^XMB(3.9,81,2,177,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,81,2,178,0)="Y"
^XMB(3.9,81,2,179,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,81,2,180,0)="^D REP^XPDH"
^XMB(3.9,81,2,181,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,81,2,182,0)="Shall I write over your |FLAG| File"
^XMB(3.9,81,2,183,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,81,2,184,0)="YES"
^XMB(3.9,81,2,185,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,81,2,186,0)="D XPF1^XPDIQ"
^XMB(3.9,81,2,187,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,81,2,188,0)="Y"
^XMB(3.9,81,2,189,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,81,2,190,0)="^D DTA^XPDH"
^XMB(3.9,81,2,191,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,81,2,192,0)="Want my data |FLAG| yours"
^XMB(3.9,81,2,193,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,81,2,194,0)="YES"
^XMB(3.9,81,2,195,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,81,2,196,0)="D XPF2^XPDIQ"
^XMB(3.9,81,2,197,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,81,2,198,0)="YO"
^XMB(3.9,81,2,199,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,81,2,200,0)="^D INHIBIT^XPDH"
^XMB(3.9,81,2,201,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,81,2,202,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,81,2,203,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,81,2,204,0)="YES"
^XMB(3.9,81,2,205,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,81,2,206,0)="D XPI1^XPDIQ"
^XMB(3.9,81,2,207,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,81,2,208,0)="PO^VA(200,:EM"
^XMB(3.9,81,2,209,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,81,2,210,0)="^D MG^XPDH"
^XMB(3.9,81,2,211,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,81,2,212,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,81,2,213,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,81,2,214,0)=""
^XMB(3.9,81,2,215,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,81,2,216,0)="D XPM1^XPDIQ"
^XMB(3.9,81,2,217,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,81,2,218,0)="Y"
^XMB(3.9,81,2,219,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,81,2,220,0)="^D MENU^XPDH"
^XMB(3.9,81,2,221,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,81,2,222,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,81,2,223,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,81,2,224,0)="YES"
^XMB(3.9,81,2,225,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,81,2,226,0)="D XPO1^XPDIQ"
^XMB(3.9,81,2,227,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,81,2,228,0)="Y"
^XMB(3.9,81,2,229,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,81,2,230,0)="^D OPT^XPDH"
^XMB(3.9,81,2,231,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,81,2,232,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,81,2,233,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,81,2,234,0)="YES"
^XMB(3.9,81,2,235,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,81,2,236,0)="D XPZ1^XPDIQ"
^XMB(3.9,81,2,237,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,81,2,238,0)="Y"
^XMB(3.9,81,2,239,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,81,2,240,0)="^D RTN^XPDH"
^XMB(3.9,81,2,241,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,81,2,242,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,81,2,243,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,81,2,244,0)="NO"
^XMB(3.9,81,2,245,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,81,2,246,0)="D XPZ2^XPDIQ"
^XMB(3.9,81,2,247,0)="""RTN"")"
^XMB(3.9,81,2,248,0)="3"
^XMB(3.9,81,2,249,0)="""RTN"",""PPPBLD1A"")"
^XMB(3.9,81,2,250,0)="0^1^B18984309^B18553476"
^XMB(3.9,81,2,251,0)="""RTN"",""PPPBLD1A"",1,0)"
^XMB(3.9,81,2,252,0)="PPPBLD1A ;ALB/DMB - BUILD FFX FROM CDROM - CONTINUED : 3/4/92"
^XMB(3.9,81,2,253,0)="""RTN"",""PPPBLD1A"",2,0)"
^XMB(3.9,81,2,254,0)=" ;;1.0;PHARMACY PRESCRIPTION PRACTICE;**2,26,38,41**;APR 7,1995"
^XMB(3.9,81,2,255,0)="""RTN"",""PPPBLD1A"",3,0)"
^XMB(3.9,81,2,256,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,81,2,257,0)="""RTN"",""PPPBLD1A"",4,0)"
^XMB(3.9,81,2,258,0)=" ;"
^XMB(3.9,81,2,259,0)="""RTN"",""PPPBLD1A"",5,0)"
^XMB(3.9,81,2,260,0)="GETDATA ;"
^XMB(3.9,81,2,261,0)="""RTN"",""PPPBLD1A"",6,0)"
^XMB(3.9,81,2,262,0)=" ;"
^XMB(3.9,81,2,263,0)="""RTN"",""PPPBLD1A"",7,0)"
^XMB(3.9,81,2,264,0)=" S STARTTM=$$NOW^PPPCNV1"
^XMB(3.9,81,2,265,0)="""RTN"",""PPPBLD1A"",8,0)"
^XMB(3.9,81,2,266,0)=" ;VMP OIFO BAY PINES;PPP*1*41  CHANGED F I= TO F PPPI="
^XMB(3.9,81,2,267,0)="""RTN"",""PPPBLD1A"",9,0)"
^XMB(3.9,81,2,268,0)=" NEW PPPI"
^XMB(3.9,81,2,269,0)="""RTN"",""PPPBLD1A"",10,0)"
^XMB(3.9,81,2,270,0)=" F PPPI=0:0 D  Q:(STATUS)"
^XMB(3.9,81,2,271,0)="""RTN"",""PPPBLD1A"",11,0)"
^XMB(3.9,81,2,272,0)=" .;"
^XMB(3.9,81,2,273,0)="""RTN"",""PPPBLD1A"",12,0)"
^XMB(3.9,81,2,274,0)=" .; "
^XMB(3.9,81,2,275,0)="""RTN"",""PPPBLD1A"",13,0)"
^XMB(3.9,81,2,276,0)=" .;"
^XMB(3.9,81,2,277,0)="""RTN"",""PPPBLD1A"",14,0)"
^XMB(3.9,81,2,278,0)="CHKTM .;VMP OIFO BAY PINES;ELR;PPP*1*38"
^XMB(3.9,81,2,279,0)="""RTN"",""PPPBLD1A"",15,0)"
^XMB(3.9,81,2,280,0)=" .;REMOVE CHECKING FOR TIMEOUT ON MPD"
^XMB(3.9,81,2,281,0)="""RTN"",""PPPBLD1A"",16,0)"
^XMB(3.9,81,2,282,0)="GETSSN .S SSN=$O(@OUTARRY@(""DONE"",""""))"
^XMB(3.9,81,2,283,0)="""RTN"",""PPPBLD1A"",17,0)"
^XMB(3.9,81,2,284,0)=" .I SSN'="""" D"
^XMB(3.9,81,2,285,0)="""RTN"",""PPPBLD1A"",18,0)"
^XMB(3.9,81,2,286,0)=" ..S STARTTM=$$NOW^PPPCNV1"
^XMB(3.9,81,2,287,0)="""RTN"",""PPPBLD1A"",19,0)"
^XMB(3.9,81,2,288,0)=" ..S TSSN=TSSN+1"
^XMB(3.9,81,2,289,0)="""RTN"",""PPPBLD1A"",20,0)"
^XMB(3.9,81,2,290,0)=" ..S FOUND=$G(@OUTARRY@(SSN,""FOUND""))"
^XMB(3.9,81,2,291,0)="""RTN"",""PPPBLD1A"",21,0)"
^XMB(3.9,81,2,292,0)=" ..I FOUND<1 D  Q"
^XMB(3.9,81,2,293,0)="""RTN"",""PPPBLD1A"",22,0)"
^XMB(3.9,81,2,294,0)=" ...I FOUND<0 D"
^XMB(3.9,81,2,295,0)="""RTN"",""PPPBLD1A"",23,0)"
^XMB(3.9,81,2,296,0)=" ....S TMP=$$LOGEVNT^PPPMSC1(MPDERR2,PPPMRT,SSN_""/""_+FOUND)"
^XMB(3.9,81,2,297,0)="""RTN"",""PPPBLD1A"",24,0)"
^XMB(3.9,81,2,298,0)=" ...K @OUTARRY@(SSN)"
^XMB(3.9,81,2,299,0)="""RTN"",""PPPBLD1A"",25,0)"
^XMB(3.9,81,2,300,0)=" ...K @OUTARRY@(""DONE"",SSN)"
^XMB(3.9,81,2,301,0)="""RTN"",""PPPBLD1A"",26,0)"
^XMB(3.9,81,2,302,0)=" ...D DEL"
^XMB(3.9,81,2,303,0)="""RTN"",""PPPBLD1A"",27,0)"
^XMB(3.9,81,2,304,0)=" ..;"
^XMB(3.9,81,2,305,0)="""RTN"",""PPPBLD1A"",28,0)"
^XMB(3.9,81,2,306,0)="GETDFN ..; Get the DFN for the SSN.  If we can't then we have an invalid SSN."
^XMB(3.9,81,2,307,0)="""RTN"",""PPPBLD1A"",29,0)"
^XMB(3.9,81,2,308,0)=" ..;"
^XMB(3.9,81,2,309,0)="""RTN"",""PPPBLD1A"",30,0)"
^XMB(3.9,81,2,310,0)=" ..S PATDFN=+$$GETDFN^PPPGET1(SSN)"
^XMB(3.9,81,2,311,0)="""RTN"",""PPPBLD1A"",31,0)"
^XMB(3.9,81,2,312,0)=" ..I PATDFN<1 D  Q"
^XMB(3.9,81,2,313,0)="""RTN"",""PPPBLD1A"",32,0)"
^XMB(3.9,81,2,314,0)=" ...S STARTTM=$$NOW^PPPCNV1"
^XMB(3.9,81,2,315,0)="""RTN"",""PPPBLD1A"",33,0)"
^XMB(3.9,81,2,316,0)=" ...S ERRTXT=""Could not find SSN ""_SSN_"" in Patient File."""
^XMB(3.9,81,2,317,0)="""RTN"",""PPPBLD1A"",34,0)"
^XMB(3.9,81,2,318,0)=" ...S ERRORS=1"
^XMB(3.9,81,2,319,0)="""RTN"",""PPPBLD1A"",35,0)"
^XMB(3.9,81,2,320,0)=" ...S TMP=$$ADD2ERR^PPPBLD2(ERRARY2,ERRTXT)"
^XMB(3.9,81,2,321,0)="""RTN"",""PPPBLD1A"",36,0)"
^XMB(3.9,81,2,322,0)=" ...K @OUTARRY@(""DONE"",SSN)"
^XMB(3.9,81,2,323,0)="""RTN"",""PPPBLD1A"",37,0)"
^XMB(3.9,81,2,324,0)=" ...K @OUTARRY@(SSN)"
^XMB(3.9,81,2,325,0)="""RTN"",""PPPBLD1A"",38,0)"
^XMB(3.9,81,2,326,0)=" ...D DEL"
^XMB(3.9,81,2,327,0)="""RTN"",""PPPBLD1A"",39,0)"
^XMB(3.9,81,2,328,0)=" ..;"
^XMB(3.9,81,2,329,0)="""RTN"",""PPPBLD1A"",40,0)"
^XMB(3.9,81,2,330,0)="GETSTA ..; Now get the station number.  If its not in the institution file"
^XMB(3.9,81,2,331,0)="""RTN"",""PPPBLD1A"",41,0)"
^XMB(3.9,81,2,332,0)=" ..; then reject it."
^XMB(3.9,81,2,333,0)="""RTN"",""PPPBLD1A"",42,0)"
^XMB(3.9,81,2,334,0)=" ..;"
^XMB(3.9,81,2,335,0)="""RTN"",""PPPBLD1A"",43,0)"
^XMB(3.9,81,2,336,0)=" ..S STANO=0"
^XMB(3.9,81,2,337,0)="""RTN"",""PPPBLD1A"",44,0)"
^XMB(3.9,81,2,338,0)=" ..F  D  Q:STANO="""""
^XMB(3.9,81,2,339,0)="""RTN"",""PPPBLD1A"",45,0)"
^XMB(3.9,81,2,340,0)=" ...S STANO=$O(@OUTARRY@(SSN,""SITES"",STANO)) Q:STANO="""""
^XMB(3.9,81,2,341,0)="""RTN"",""PPPBLD1A"",46,0)"
^XMB(3.9,81,2,342,0)=" ...;"
^XMB(3.9,81,2,343,0)="""RTN"",""PPPBLD1A"",47,0)"
^XMB(3.9,81,2,344,0)=" ...; We need the station IFN to look up the entry in the FFX file."
^XMB(3.9,81,2,345,0)="""RTN"",""PPPBLD1A"",48,0)"
^XMB(3.9,81,2,346,0)=" ...;"
^XMB(3.9,81,2,347,0)="""RTN"",""PPPBLD1A"",49,0)"
^XMB(3.9,81,2,348,0)=" ...;S SNIFN=$O(^DIC(4,""D"",STANO,""""))"
^XMB(3.9,81,2,349,0)="""RTN"",""PPPBLD1A"",50,0)"
^XMB(3.9,81,2,350,0)=" ...S SNIFN=STANO"
^XMB(3.9,81,2,351,0)="""RTN"",""PPPBLD1A"",51,0)"
^XMB(3.9,81,2,352,0)=" ...I SNIFN="""" D  Q"
^XMB(3.9,81,2,353,0)="""RTN"",""PPPBLD1A"",52,0)"
^XMB(3.9,81,2,354,0)=" ....S SNIFN=$O(^PPP(1020.128,""AC"",STANO,0)) I SNIFN]"""" Q"
^XMB(3.9,81,2,355,0)="""RTN"",""PPPBLD1A"",53,0)"
^XMB(3.9,81,2,356,0)=" ....S STARTTM=$$NOW^PPPCNV1"
^XMB(3.9,81,2,357,0)="""RTN"",""PPPBLD1A"",54,0)"
^XMB(3.9,81,2,358,0)=" ....S ERRTXT=""Could not find station ""_STANO_"" in Institution File for SSN ""_SSN_""."""
^XMB(3.9,81,2,359,0)="""RTN"",""PPPBLD1A"",55,0)"
^XMB(3.9,81,2,360,0)=" ....S ERRORS=1"
^XMB(3.9,81,2,361,0)="""RTN"",""PPPBLD1A"",56,0)"
^XMB(3.9,81,2,362,0)=" ....S TMP=$$ADD2ERR^PPPBLD2(ERRARY2,ERRTXT)"
^XMB(3.9,81,2,363,0)="""RTN"",""PPPBLD1A"",57,0)"
^XMB(3.9,81,2,364,0)=" ...;"
^XMB(3.9,81,2,365,0)="""RTN"",""PPPBLD1A"",58,0)"
^XMB(3.9,81,2,366,0)="FFXIFN ...; Check to see if the entry already exists.  If it does then update"
^XMB(3.9,81,2,367,0)="""RTN"",""PPPBLD1A"",59,0)"
^XMB(3.9,81,2,368,0)=" ...; the last date of visit if necessary.  Else create a new entry."
^XMB(3.9,81,2,369,0)="""RTN"",""PPPBLD1A"",60,0)"
^XMB(3.9,81,2,370,0)=" ...;"
^XMB(3.9,81,2,371,0)="""RTN"",""PPPBLD1A"",61,0)"
^XMB(3.9,81,2,372,0)=" ...S FFXIFN=$$GETFFIFN^PPPGET1(PATDFN,SNIFN)"
^XMB(3.9,81,2,373,0)="""RTN"",""PPPBLD1A"",62,0)"
^XMB(3.9,81,2,374,0)=" ...S MPDLDOV=$G(@OUTARRY@(SSN,""SITES"",STANO))"
^XMB(3.9,81,2,375,0)="""RTN"",""PPPBLD1A"",63,0)"
^XMB(3.9,81,2,376,0)=" ...I FFXIFN>0 D"
^XMB(3.9,81,2,377,0)="""RTN"",""PPPBLD1A"",64,0)"
^XMB(3.9,81,2,378,0)=" ....S FFXLDOV=$P($G(^PPP(1020.2,FFXIFN,0)),""^"",3)"
^XMB(3.9,81,2,379,0)="""RTN"",""PPPBLD1A"",65,0)"
^XMB(3.9,81,2,380,0)=" ....I MPDLDOV>FFXLDOV D"
^XMB(3.9,81,2,381,0)="""RTN"",""PPPBLD1A"",66,0)"
^XMB(3.9,81,2,382,0)=" .....S DIE=1020.2"
^XMB(3.9,81,2,383,0)="""RTN"",""PPPBLD1A"",67,0)"
^XMB(3.9,81,2,384,0)=" .....S DA=FFXIFN"
^XMB(3.9,81,2,385,0)="""RTN"",""PPPBLD1A"",68,0)"
^XMB(3.9,81,2,386,0)=" .....S DR=""2///""_MPDLDOV"
^XMB(3.9,81,2,387,0)="""RTN"",""PPPBLD1A"",69,0)"
^XMB(3.9,81,2,388,0)=" .....D ^DIE"
^XMB(3.9,81,2,389,0)="""RTN"",""PPPBLD1A"",70,0)"
^XMB(3.9,81,2,390,0)=" ....S TEDTENT=TEDTENT+1"
^XMB(3.9,81,2,391,0)="""RTN"",""PPPBLD1A"",71,0)"
^XMB(3.9,81,2,392,0)=" ...E  D"
^XMB(3.9,81,2,393,0)="""RTN"",""PPPBLD1A"",72,0)"
^XMB(3.9,81,2,394,0)=" ....S X=PATDFN"
^XMB(3.9,81,2,395,0)="""RTN"",""PPPBLD1A"",73,0)"
^XMB(3.9,81,2,396,0)=" ....S DIC=""^PPP(1020.2,"""
^XMB(3.9,81,2,397,0)="""RTN"",""PPPBLD1A"",74,0)"
^XMB(3.9,81,2,398,0)=" ....S DIC(0)="""""
^XMB(3.9,81,2,399,0)="""RTN"",""PPPBLD1A"",75,0)"
^XMB(3.9,81,2,400,0)=" ....S DIC(""DR"")=""1////""_SNIFN_"";2///""_MPDLDOV_"";7///0"""
^XMB(3.9,81,2,401,0)="""RTN"",""PPPBLD1A"",76,0)"
^XMB(3.9,81,2,402,0)=" ....K DD,DO D FILE^DICN"
^XMB(3.9,81,2,403,0)="""RTN"",""PPPBLD1A"",77,0)"
^XMB(3.9,81,2,404,0)=" ....S TNEWENT=TNEWENT+1"
^XMB(3.9,81,2,405,0)="""RTN"",""PPPBLD1A"",78,0)"
^XMB(3.9,81,2,406,0)=" ....I $P(Y,""^"",3)'=1 D"
^XMB(3.9,81,2,407,0)="""RTN"",""PPPBLD1A"",79,0)"
^XMB(3.9,81,2,408,0)=" .....S ERRTXT=""Could not add ""_SSN_""/""_STANO_"" to FFX file."""
^XMB(3.9,81,2,409,0)="""RTN"",""PPPBLD1A"",80,0)"
^XMB(3.9,81,2,410,0)=" .....S ERRORS=1"
^XMB(3.9,81,2,411,0)="""RTN"",""PPPBLD1A"",81,0)"
^XMB(3.9,81,2,412,0)=" .....S TMP=$$ADD2ERR^PPPBLD2(ERRARY2,ERRTXT)"
^XMB(3.9,81,2,413,0)="""RTN"",""PPPBLD1A"",82,0)"
^XMB(3.9,81,2,414,0)=" ....;"
^XMB(3.9,81,2,415,0)="""RTN"",""PPPBLD1A"",83,0)"
^XMB(3.9,81,2,416,0)=" ....; Make sure the DOMAIN name got resolved."
^XMB(3.9,81,2,417,0)="""RTN"",""PPPBLD1A"",84,0)"
^XMB(3.9,81,2,418,0)=" ....;"
^XMB(3.9,81,2,419,0)="""RTN"",""PPPBLD1A"",85,0)"
^XMB(3.9,81,2,420,0)=" ....I $P($G(^PPP(1020.2,+Y,1)),""^"",5)="""" D"
^XMB(3.9,81,2,421,0)="""RTN"",""PPPBLD1A"",86,0)"
^XMB(3.9,81,2,422,0)=" .....S ERRTXT=""Could not resolve DOMAIN for ""_SSN_""/""_STANO"
^XMB(3.9,81,2,423,0)="""RTN"",""PPPBLD1A"",87,0)"
^XMB(3.9,81,2,424,0)=" .....S ERRORS=1"
^XMB(3.9,81,2,425,0)="""RTN"",""PPPBLD1A"",88,0)"
^XMB(3.9,81,2,426,0)=" .....S TMP=$$ADD2ERR^PPPBLD2(ERRARY2,ERRTXT)"
^XMB(3.9,81,2,427,0)="""RTN"",""PPPBLD1A"",89,0)"
^XMB(3.9,81,2,428,0)=" ..;"
^XMB(3.9,81,2,429,0)="""RTN"",""PPPBLD1A"",90,0)"
^XMB(3.9,81,2,430,0)=" ..; We're done with that SSN, kill it off and set last SSN processed"
^XMB(3.9,81,2,431,0)="""RTN"",""PPPBLD1A"",91,0)"
^XMB(3.9,81,2,432,0)=" ..;VMP OIFO BAY PINES;ELR;PPP*1*38"
^XMB(3.9,81,2,433,0)="""RTN"",""PPPBLD1A"",92,0)"
^XMB(3.9,81,2,434,0)=" ..D DEL"
^XMB(3.9,81,2,435,0)="""RTN"",""PPPBLD1A"",93,0)"
^XMB(3.9,81,2,436,0)=" ..;"
^XMB(3.9,81,2,437,0)="""RTN"",""PPPBLD1A"",94,0)"
^XMB(3.9,81,2,438,0)=" ..K @OUTARRY@(""DONE"",SSN)"
^XMB(3.9,81,2,439,0)="""RTN"",""PPPBLD1A"",95,0)"
^XMB(3.9,81,2,440,0)=" ..;PPP*1*26 Dave Blocker - remove setting last SSN"
^XMB(3.9,81,2,441,0)="""RTN"",""PPPBLD1A"",96,0)"
^XMB(3.9,81,2,442,0)=" ..;messes up the build option"
^XMB(3.9,81,2,443,0)="""RTN"",""PPPBLD1A"",97,0)"
^XMB(3.9,81,2,444,0)=" ..K @OUTARRY@(SSN)"
^XMB(3.9,81,2,445,0)="""RTN"",""PPPBLD1A"",98,0)"
^XMB(3.9,81,2,446,0)=" ..;S $P(^PPP(1020.1,1,2),""^"",1)=SSN"
^XMB(3.9,81,2,447,0)="""RTN"",""PPPBLD1A"",99,0)"
^XMB(3.9,81,2,448,0)=" ..S STARTTM=$$NOW^PPPCNV1"
^XMB(3.9,81,2,449,0)="""RTN"",""PPPBLD1A"",100,0)"
^XMB(3.9,81,2,450,0)=" .E  D"
^XMB(3.9,81,2,451,0)="""RTN"",""PPPBLD1A"",101,0)"
^XMB(3.9,81,2,452,0)=" ..;"
^XMB(3.9,81,2,453,0)="""RTN"",""PPPBLD1A"",102,0)"
^XMB(3.9,81,2,454,0)=" ..; There was no SSN available.  Check to see if we're done."
^XMB(3.9,81,2,455,0)="""RTN"",""PPPBLD1A"",103,0)"
^XMB(3.9,81,2,456,0)=" ..; If not then check again."
^XMB(3.9,81,2,457,0)="""RTN"",""PPPBLD1A"",104,0)"
^XMB(3.9,81,2,458,0)=" ..;"
^XMB(3.9,81,2,459,0)="""RTN"",""PPPBLD1A"",105,0)"
^XMB(3.9,81,2,460,0)=" ..S STATUS=+$G(@OUTARRY@(""STATUS""))"
^XMB(3.9,81,2,461,0)="""RTN"",""PPPBLD1A"",106,0)"
^XMB(3.9,81,2,462,0)=" ..I STATUS<0 D"
^XMB(3.9,81,2,463,0)="""RTN"",""PPPBLD1A"",107,0)"
^XMB(3.9,81,2,464,0)=" ...S ERR=MPDSTERR"
^XMB(3.9,81,2,465,0)="""RTN"",""PPPBLD1A"",108,0)"
^XMB(3.9,81,2,466,0)=" ...S TMP=$$LOGEVNT^PPPMSC1(ERR,PPPMRT,""Status = ""_$P($G(@OUTARRY@(""STATUS"")),U,2))"
^XMB(3.9,81,2,467,0)="""RTN"",""PPPBLD1A"",109,0)"
^XMB(3.9,81,2,468,0)=" ..E  H 1"
^XMB(3.9,81,2,469,0)="""RTN"",""PPPBLD1A"",110,0)"
^XMB(3.9,81,2,470,0)=" ;"
^XMB(3.9,81,2,471,0)="""RTN"",""PPPBLD1A"",111,0)"
^XMB(3.9,81,2,472,0)=" ; We're all done.  Check to see if we need to send an error bulletin."
^XMB(3.9,81,2,473,0)="""RTN"",""PPPBLD1A"",112,0)"
^XMB(3.9,81,2,474,0)=" ;"
^XMB(3.9,81,2,475,0)="""RTN"",""PPPBLD1A"",113,0)"
^XMB(3.9,81,2,476,0)=" I ERRORS D"
^XMB(3.9,81,2,477,0)="""RTN"",""PPPBLD1A"",114,0)"
^XMB(3.9,81,2,478,0)=" .S TMP=$$SNDBLTN^PPPMSC1(""PPP FFX BUILD MESSAGES"",""PRESCRIPTION PRACTICES"",ERRARY1)"
^XMB(3.9,81,2,479,0)="""RTN"",""PPPBLD1A"",115,0)"
^XMB(3.9,81,2,480,0)=" ;"
^XMB(3.9,81,2,481,0)="""RTN"",""PPPBLD1A"",116,0)"
^XMB(3.9,81,2,482,0)=" Q"
^XMB(3.9,81,2,483,0)="""RTN"",""PPPBLD1A"",117,0)"
^XMB(3.9,81,2,484,0)=" ;"
^XMB(3.9,81,2,485,0)="""RTN"",""PPPBLD1A"",118,0)"
^XMB(3.9,81,2,486,0)="DEL ;VMP OIFO BAY PINES;ELR;PPP*1*38"
^XMB(3.9,81,2,487,0)="""RTN"",""PPPBLD1A"",119,0)"
^XMB(3.9,81,2,488,0)=" NEW PPPDA S PPPDA=0"
^XMB(3.9,81,2,489,0)="""RTN"",""PPPBLD1A"",120,0)"
^XMB(3.9,81,2,490,0)=" F  S PPPDA=$O(^PPP(1020.7,""B"",SSN,PPPDA)) Q:PPPDA=""""  D"
^XMB(3.9,81,2,491,0)="""RTN"",""PPPBLD1A"",121,0)"
^XMB(3.9,81,2,492,0)=" .I PPPDA S DA=PPPDA,DIK=""^PPP(1020.7,"" D ^DIK K DIK"
^XMB(3.9,81,2,493,0)="""RTN"",""PPPBLD1A"",122,0)"
^XMB(3.9,81,2,494,0)=" Q"
^XMB(3.9,81,2,495,0)="""RTN"",""PPPMPI"")"
^XMB(3.9,81,2,496,0)="0^3^B27108371^B24128712"
^XMB(3.9,81,2,497,0)="""RTN"",""PPPMPI"",1,0)"
^XMB(3.9,81,2,498,0)="PPPMPI ;BHM/DB - OBTAIN VISIT DATA FROM MPI ;21NOV01"
^XMB(3.9,81,2,499,0)="""RTN"",""PPPMPI"",2,0)"
^XMB(3.9,81,2,500,0)=" ;;1.0;PHARMACY PRESCRIPTION PRACTICE;**35,39,41**;APR 7, 1995"
^XMB(3.9,81,2,501,0)="""RTN"",""PPPMPI"",3,0)"
^XMB(3.9,81,2,502,0)=" ;"
^XMB(3.9,81,2,503,0)="""RTN"",""PPPMPI"",4,0)"
^XMB(3.9,81,2,504,0)=" ;Reference to ^DPT(""SSN"" are covered by IA# 350"
^XMB(3.9,81,2,505,0)="""RTN"",""PPPMPI"",5,0)"
^XMB(3.9,81,2,506,0)=" ;Reference to ^DIC(4) are covered by IA# 10090"
^XMB(3.9,81,2,507,0)="""RTN"",""PPPMPI"",6,0)"
^XMB(3.9,81,2,508,0)=" D DONE"
^XMB(3.9,81,2,509,0)="""RTN"",""PPPMPI"",7,0)"
^XMB(3.9,81,2,510,0)=" S (PPPCNT,PPPCNT1)=0"
^XMB(3.9,81,2,511,0)="""RTN"",""PPPMPI"",8,0)"
^XMB(3.9,81,2,512,0)=" ;This routine extracts patient data from the"
^XMB(3.9,81,2,513,0)="""RTN"",""PPPMPI"",9,0)"
^XMB(3.9,81,2,514,0)=" ;Treating Facility List file (#391.91)"
^XMB(3.9,81,2,515,0)="""RTN"",""PPPMPI"",10,0)"
^XMB(3.9,81,2,516,0)=" ;^DGCN(391.91,D0,0) ="
^XMB(3.9,81,2,517,0)="""RTN"",""PPPMPI"",11,0)"
^XMB(3.9,81,2,518,0)=" ;(#.01) PATIENT [1P] ^ (#.02) INSTITUTION [2P] ^"
^XMB(3.9,81,2,519,0)="""RTN"",""PPPMPI"",12,0)"
^XMB(3.9,81,2,520,0)=" ;(#.03) DATE LAST TREATED [3D]"
^XMB(3.9,81,2,521,0)="""RTN"",""PPPMPI"",13,0)"
^XMB(3.9,81,2,522,0)=" ;"
^XMB(3.9,81,2,523,0)="""RTN"",""PPPMPI"",14,0)"
^XMB(3.9,81,2,524,0)=" W @IOF,!!,?20,""Build Foreign Facility Cross Reference"",!"
^XMB(3.9,81,2,525,0)="""RTN"",""PPPMPI"",15,0)"
^XMB(3.9,81,2,526,0)=" ;I '$D(^DGCN(391.91)) W !,""Sorry could not find the TREATING FACILITY LIST file (#391.91)."",! G Q"
^XMB(3.9,81,2,527,0)="""RTN"",""PPPMPI"",16,0)"
^XMB(3.9,81,2,528,0)="DATE ;Check for last build date"
^XMB(3.9,81,2,529,0)="""RTN"",""PPPMPI"",17,0)"
^XMB(3.9,81,2,530,0)=" S PPPDUZ=DUZ"
^XMB(3.9,81,2,531,0)="""RTN"",""PPPMPI"",18,0)"
^XMB(3.9,81,2,532,0)=" I $P($G(^PPP(1020.1,1,0)),""^"",4)'>0 W !,""Could not find last build date."" G ASKDT"
^XMB(3.9,81,2,533,0)="""RTN"",""PPPMPI"",19,0)"
^XMB(3.9,81,2,534,0)=" S (PPPDT,Y)=$P($G(^PPP(1020.1,1,0)),""^"",4) I +Y>0 X ^DD(""DD"") S PPPDT(1)=Y W !,""This option was last run on ""_PPPDT(1)"
^XMB(3.9,81,2,535,0)="""RTN"",""PPPMPI"",20,0)"
^XMB(3.9,81,2,536,0)="ASKDT S %DT(""A"")=""Start searching from what date? "" I $G(PPPDT)'="""" S %DT(0)=PPPDT,%DT(""B"")=PPPDT(1)"
^XMB(3.9,81,2,537,0)="""RTN"",""PPPMPI"",21,0)"
^XMB(3.9,81,2,538,0)=" S %DT=""AE"" D ^%DT G DONE:$G(DTOUT)=1 G DONE:+Y'>0  S PPPSTDT=+Y"
^XMB(3.9,81,2,539,0)="""RTN"",""PPPMPI"",22,0)"
^XMB(3.9,81,2,540,0)="PPPSSN ;CHECK SSN"
^XMB(3.9,81,2,541,0)="""RTN"",""PPPMPI"",23,0)"
^XMB(3.9,81,2,542,0)=" ;First check for Last SSN processed"
^XMB(3.9,81,2,543,0)="""RTN"",""PPPMPI"",24,0)"
^XMB(3.9,81,2,544,0)=" S PPPSSN=$P($G(^PPP(1020.1,1,2)),""^"",1) I PPPSSN="""" S PPPSSN=0 G TSKMAN"
^XMB(3.9,81,2,545,0)="""RTN"",""PPPMPI"",25,0)"
^XMB(3.9,81,2,546,0)=" I $O(^DPT(""SSN"",PPPSSN))="""" W !!,?10,""The last SSN processed ("",PPPSSN,"") is the last in the file."",!,?10,""therefore, we will start the extract from the beginning."",! S PPPSSN=0 G TSKMAN"
^XMB(3.9,81,2,547,0)="""RTN"",""PPPMPI"",26,0)"
^XMB(3.9,81,2,548,0)=" ;"
^XMB(3.9,81,2,549,0)="""RTN"",""PPPMPI"",27,0)"
^XMB(3.9,81,2,550,0)="ASK1 W !,""Do you want to start this extract at SSN : "",PPPSSN,"" ? NO// "" R AN:DTIME G DONE:AN[""^"" I AN="""" S AN=""N"""
^XMB(3.9,81,2,551,0)="""RTN"",""PPPMPI"",28,0)"
^XMB(3.9,81,2,552,0)=" I ""YyNn""'[AN W !!,?10,""Answer Y and the report will commence with the next SSN."",!,?10,""Answer 'N' and the process will start with the first SSN on file."",! K AN G ASK1"
^XMB(3.9,81,2,553,0)="""RTN"",""PPPMPI"",29,0)"
^XMB(3.9,81,2,554,0)=" I ""Yy""[AN G TSKMAN"
^XMB(3.9,81,2,555,0)="""RTN"",""PPPMPI"",30,0)"
^XMB(3.9,81,2,556,0)=" I ""Nn""[AN W !!,""OK, we'll start at the beginning."" S PPPSSN=0"
^XMB(3.9,81,2,557,0)="""RTN"",""PPPMPI"",31,0)"
^XMB(3.9,81,2,558,0)="TSKMAN ;Call taskman"
^XMB(3.9,81,2,559,0)="""RTN"",""PPPMPI"",32,0)"
^XMB(3.9,81,2,560,0)=" W ! K DIR S DIR(0)=""DA^NOW::ERSX"",DIR(""A"")=""When do you want to run this utility? "",DIR(""B"")=""NOW"",DIR(""?"")=""Complete data and time must be stated."" D ^DIR G DONE:$D(DIRUT)"
^XMB(3.9,81,2,561,0)="""RTN"",""PPPMPI"",33,0)"
^XMB(3.9,81,2,562,0)=" F X=""PPPSTDT"",""PPPRCVD"",""PPPDUZ"",""PPPSSN"",""PPPDT"" S ZTSAVE(X)="""""
^XMB(3.9,81,2,563,0)="""RTN"",""PPPMPI"",34,0)"
^XMB(3.9,81,2,564,0)=" S ZTDTH=Y,ZTRTN=""PPPBGN^PPPMPI"",ZTDESC=""FFX BUILD FROM CD ROM"",ZTIO="""""
^XMB(3.9,81,2,565,0)="""RTN"",""PPPMPI"",35,0)"
^XMB(3.9,81,2,566,0)=" D ^%ZTLOAD"
^XMB(3.9,81,2,567,0)="""RTN"",""PPPMPI"",36,0)"
^XMB(3.9,81,2,568,0)=" I '$D(ZTSK) D HOME^%ZIS W !,""Task was not started properly."",! G DONE"
^XMB(3.9,81,2,569,0)="""RTN"",""PPPMPI"",37,0)"
^XMB(3.9,81,2,570,0)=" W !!,""Task Queued - Task Number: "",ZTSK,!!"
^XMB(3.9,81,2,571,0)="""RTN"",""PPPMPI"",38,0)"
^XMB(3.9,81,2,572,0)=" G DONE"
^XMB(3.9,81,2,573,0)="""RTN"",""PPPMPI"",39,0)"
^XMB(3.9,81,2,574,0)=" ;"
^XMB(3.9,81,2,575,0)="""RTN"",""PPPMPI"",40,0)"
^XMB(3.9,81,2,576,0)="PPPBGN ;Entry point for building FFX file"
^XMB(3.9,81,2,577,0)="""RTN"",""PPPMPI"",41,0)"
^XMB(3.9,81,2,578,0)=" N PPPDLUP"
^XMB(3.9,81,2,579,0)="""RTN"",""PPPMPI"",42,0)"
^XMB(3.9,81,2,580,0)=" D NOW^%DTC S Y=%,PPPDLUP=$P(Y,""."") X ^DD(""DD"") S PPPSTRT=Y,(PPPCNTR,PPPVSTC,PPPEND,PPPCNT,PPPENDT)=0"
^XMB(3.9,81,2,581,0)="""RTN"",""PPPMPI"",43,0)"
^XMB(3.9,81,2,582,0)=" S PPPCNTR=0,PPPSSN1=PPPSSN F  S PPPSSN1=$O(^DPT(""SSN"",PPPSSN1)) Q:PPPSSN1=""""  S PPPCNTR=$G(PPPCNTR)+1"
^XMB(3.9,81,2,583,0)="""RTN"",""PPPMPI"",44,0)"
^XMB(3.9,81,2,584,0)=" ;"
^XMB(3.9,81,2,585,0)="""RTN"",""PPPMPI"",45,0)"
^XMB(3.9,81,2,586,0)=" ;"
^XMB(3.9,81,2,587,0)="""RTN"",""PPPMPI"",46,0)"
^XMB(3.9,81,2,588,0)="PPPLOOP S PPPSSN=$O(^DPT(""SSN"",PPPSSN)) G Q:$G(PPPSSN)="""" S PPPCNT=$G(PPPCNT)+1,PPPDFN=+$$GETDFN^PPPGET1(PPPSSN) I $G(PPPDFN)'>0 G PPPLOOP"
^XMB(3.9,81,2,589,0)="""RTN"",""PPPMPI"",47,0)"
^XMB(3.9,81,2,590,0)=" S ^PPP(1020.1,1,2)=PPPSSN,PPPEND=PPPSSN"
^XMB(3.9,81,2,591,0)="""RTN"",""PPPMPI"",48,0)"
^XMB(3.9,81,2,592,0)=" K PPPDATA D TFL^VAFCTFU1(.PPPDATA,PPPDFN) ;Supported IA #2990"
^XMB(3.9,81,2,593,0)="""RTN"",""PPPMPI"",49,0)"
^XMB(3.9,81,2,594,0)=" S PPPX1=0"
^XMB(3.9,81,2,595,0)="""RTN"",""PPPMPI"",50,0)"
^XMB(3.9,81,2,596,0)="1 S PPPX1=$O(PPPDATA(PPPX1)) G PPPLOOP:PPPX1'>0 S DATA=PPPDATA(PPPX1),PPPVSTC=$G(PPPVSTC)+1"
^XMB(3.9,81,2,597,0)="""RTN"",""PPPMPI"",51,0)"
^XMB(3.9,81,2,598,0)=" I $P(DATA,""^"",5)'=""VAMC"" G 1"
^XMB(3.9,81,2,599,0)="""RTN"",""PPPMPI"",52,0)"
^XMB(3.9,81,2,600,0)=" S PPPSITE=$P(DATA,""^"",1) I $D(^PPP(1020.5,""B"",PPPSITE)) G 1"
^XMB(3.9,81,2,601,0)="""RTN"",""PPPMPI"",53,0)"
^XMB(3.9,81,2,602,0)=" I PPPSITE=$P($G(^PPP(1020.1,1,0)),""^"",9) G 1"
^XMB(3.9,81,2,603,0)="""RTN"",""PPPMPI"",54,0)"
^XMB(3.9,81,2,604,0)=" ;get visit information & update 1020.2"
^XMB(3.9,81,2,605,0)="""RTN"",""PPPMPI"",55,0)"
^XMB(3.9,81,2,606,0)=" S PPPVST=$P($P(DATA,""^"",3),""."") I $G(PPPVST)<PPPSTDT G 1"
^XMB(3.9,81,2,607,0)="""RTN"",""PPPMPI"",56,0)"
^XMB(3.9,81,2,608,0)=" ;"
^XMB(3.9,81,2,609,0)="""RTN"",""PPPMPI"",57,0)"
^XMB(3.9,81,2,610,0)="MTCH ;Site data already exist for SSN"
^XMB(3.9,81,2,611,0)="""RTN"",""PPPMPI"",58,0)"
^XMB(3.9,81,2,612,0)=" ;VMP OIFO BAY PINES;VGF;PPP*1.0*39;STORE INSTITUTION FILE IEN INTO PLACE OF VISIT FIELD OF 1020.2"
^XMB(3.9,81,2,613,0)="""RTN"",""PPPMPI"",59,0)"
^XMB(3.9,81,2,614,0)=" K PPPIIEN"
^XMB(3.9,81,2,615,0)="""RTN"",""PPPMPI"",60,0)"
^XMB(3.9,81,2,616,0)=" S PPPIIEN=$O(^DIC(4,""D"",PPPSITE,0))"
^XMB(3.9,81,2,617,0)="""RTN"",""PPPMPI"",61,0)"
^XMB(3.9,81,2,618,0)=" S PPPUPDT=0,PPPIEN1=$O(^PPP(1020.2,""APOV"",PPPDFN,PPPIIEN,""""))"
^XMB(3.9,81,2,619,0)="""RTN"",""PPPMPI"",62,0)"
^XMB(3.9,81,2,620,0)=" I $G(PPPIEN1)>0 S PPPOLDDT=$P($G(^PPP(1020.2,PPPIEN1,0)),""^"",3) D"
^XMB(3.9,81,2,621,0)="""RTN"",""PPPMPI"",63,0)"
^XMB(3.9,81,2,622,0)=" .I $G(PPPOLDDT)'="""",PPPVST>PPPOLDDT K DIE,DR S DIE=""^PPP(1020.2,"",DA=PPPIEN1,DR=""2///""_PPPVST D ^DIE K DIE,DR,DA S PPPUPDT=1"
^XMB(3.9,81,2,623,0)="""RTN"",""PPPMPI"",64,0)"
^XMB(3.9,81,2,624,0)=" .;VMP OIFO BAY PINES;PPP*1*41"
^XMB(3.9,81,2,625,0)="""RTN"",""PPPMPI"",65,0)"
^XMB(3.9,81,2,626,0)=" .;ADDED NEXT LINE VISIT DATE CAN BE NULL IF ADDED BY PDX TRANSACTION IN PPPPDX3"
^XMB(3.9,81,2,627,0)="""RTN"",""PPPMPI"",66,0)"
^XMB(3.9,81,2,628,0)=" .I $G(PPPOLDDT)="""",PPPVST>0 K DIE,DR S DIE=""^PPP(1020.2,"",DA=PPPIEN1,DR=""2///""_PPPVST D ^DIE K DIE,DR,DA S PPPUPDT=1"
^XMB(3.9,81,2,629,0)="""RTN"",""PPPMPI"",67,0)"
^XMB(3.9,81,2,630,0)=" I $G(PPPUPDT)=1 G 1"
^XMB(3.9,81,2,631,0)="""RTN"",""PPPMPI"",68,0)"
^XMB(3.9,81,2,632,0)=" I $G(PPPIEN1)>0 G 1"
^XMB(3.9,81,2,633,0)="""RTN"",""PPPMPI"",69,0)"
^XMB(3.9,81,2,634,0)=" ;"
^XMB(3.9,81,2,635,0)="""RTN"",""PPPMPI"",70,0)"
^XMB(3.9,81,2,636,0)=" ;"
^XMB(3.9,81,2,637,0)="""RTN"",""PPPMPI"",71,0)"
^XMB(3.9,81,2,638,0)=" ;"
^XMB(3.9,81,2,639,0)="""RTN"",""PPPMPI"",72,0)"
^XMB(3.9,81,2,640,0)="NEWSSN ;Add patient to 1020.2"
^XMB(3.9,81,2,641,0)="""RTN"",""PPPMPI"",73,0)"
^XMB(3.9,81,2,642,0)=" S X=PPPDFN,DLAYGO=""1020.2"",DIC=""^PPP(1020.2,"",DIC(0)="""",DIC(""DR"")=""1////""_PPPIIEN_"";2///""_PPPVST_"";7///0"" K DD,D0 D FILE^DICN"
^XMB(3.9,81,2,643,0)="""RTN"",""PPPMPI"",74,0)"
^XMB(3.9,81,2,644,0)=" G 1"
^XMB(3.9,81,2,645,0)="""RTN"",""PPPMPI"",75,0)"
^XMB(3.9,81,2,646,0)="Q ;"
^XMB(3.9,81,2,647,0)="""RTN"",""PPPMPI"",76,0)"
^XMB(3.9,81,2,648,0)=" ;VMP OIFO BAY PINES;PPP*1*41"
^XMB(3.9,81,2,649,0)="""RTN"",""PPPMPI"",77,0)"
^XMB(3.9,81,2,650,0)=" ;ADDED NEXT LINE TO UPDATE LAST PDX BATCH DATE IN PARAMETER FILE"
^XMB(3.9,81,2,651,0)="""RTN"",""PPPMPI"",78,0)"
^XMB(3.9,81,2,652,0)=" K DIE,DR S DIE=""^PPP(1020.1,"",DA=1,DR=""3///""_PPPDLUP D ^DIE K DIE,DR,DA"
^XMB(3.9,81,2,653,0)="""RTN"",""PPPMPI"",79,0)"
^XMB(3.9,81,2,654,0)=" K DIC"
^XMB(3.9,81,2,655,0)="""RTN"",""PPPMPI"",80,0)"
^XMB(3.9,81,2,656,0)=" D NOW^%DTC S Y=% X ^DD(""DD"") S PPPENDT=Y"
^XMB(3.9,81,2,657,0)="""RTN"",""PPPMPI"",81,0)"
^XMB(3.9,81,2,658,0)=" S ^TMP($J,""PPP"",1)="" """
^XMB(3.9,81,2,659,0)="""RTN"",""PPPMPI"",82,0)"
^XMB(3.9,81,2,660,0)=" S ^TMP($J,""PPP"",2)="" RESULTS FROM BUILD PROCESS"""
^XMB(3.9,81,2,661,0)="""RTN"",""PPPMPI"",83,0)"
^XMB(3.9,81,2,662,0)=" S ^TMP($J,""PPP"",3)="" Build Started at   : ""_$G(PPPSTRT)"
^XMB(3.9,81,2,663,0)="""RTN"",""PPPMPI"",84,0)"
^XMB(3.9,81,2,664,0)=" S ^TMP($J,""PPP"",4)="" Build Finished at  : ""_$G(PPPENDT)"
^XMB(3.9,81,2,665,0)="""RTN"",""PPPMPI"",85,0)"
^XMB(3.9,81,2,666,0)=" S ^TMP($J,""PPP"",5)="" Last SSN processed : ""_$G(PPPEND) I $O(^DPT(""SSN"",PPPEND))="""" S ^TMP($J,""PPP"",5)=^TMP($J,""PPP"",5)_""   << Last SSN on file."""
^XMB(3.9,81,2,667,0)="""RTN"",""PPPMPI"",86,0)"
^XMB(3.9,81,2,668,0)=" S ^TMP($J,""PPP"",6)="" Processed ""_$G(PPPCNT)_"" out of ""_$G(PPPCNTR)_"" SSNs."""
^XMB(3.9,81,2,669,0)="""RTN"",""PPPMPI"",87,0)"
^XMB(3.9,81,2,670,0)=" S ^TMP($J,""PPP"",7)="" Examined ""_$G(PPPVSTC)_"" site visits"""
^XMB(3.9,81,2,671,0)="""RTN"",""PPPMPI"",88,0)"
^XMB(3.9,81,2,672,0)=" ;"
^XMB(3.9,81,2,673,0)="""RTN"",""PPPMPI"",89,0)"
^XMB(3.9,81,2,674,0)=" ;"
^XMB(3.9,81,2,675,0)="""RTN"",""PPPMPI"",90,0)"
^XMB(3.9,81,2,676,0)="SNDMAIL ;Send message to user"
^XMB(3.9,81,2,677,0)="""RTN"",""PPPMPI"",91,0)"
^XMB(3.9,81,2,678,0)=" S XMSUB=""PHARMACY PRESCRIPTION PRACTICES"",XMTEXT=""^TMP(""_$J_"",""_""""""PPP""""""_"","",XMDUZ=.5,XMY(PPPDUZ)="""" D ^XMD K XMDUZ"
^XMB(3.9,81,2,679,0)="""RTN"",""PPPMPI"",92,0)"
^XMB(3.9,81,2,680,0)=" K ^TMP($J)"
^XMB(3.9,81,2,681,0)="""RTN"",""PPPMPI"",93,0)"
^XMB(3.9,81,2,682,0)="DONE ;kill variables & exit"
^XMB(3.9,81,2,683,0)="""RTN"",""PPPMPI"",94,0)"
^XMB(3.9,81,2,684,0)=" K AN,DA,DATA,DD,DIC,DIE,DIR,DR,OLDDT,PPPCNT,PPPCNT1,PPPCNTR,PPPDATA,PPPDFN,PPPDT,PPPDUZ,PPPEND,PPPENDT,PPPIEN1,PPPSITE,PPPSSN,PPPSSN1,PPPSTDT,PPPSTRT,PPPUPDT,PPPVST,PPPVSTC,PPPX1"
^XMB(3.9,81,2,685,0)="""RTN"",""PPPMPI"",95,0)"
^XMB(3.9,81,2,686,0)=" K X,XMDUZ,XMY,Y Q"
^XMB(3.9,81,2,687,0)="""RTN"",""PPPSCN2"")"
^XMB(3.9,81,2,688,0)="0^2^B16603361^B15182169"
^XMB(3.9,81,2,689,0)="""RTN"",""PPPSCN2"",1,0)"
^XMB(3.9,81,2,690,0)="PPPSCN2 ;ALB/DMB - PPP CLINIC SCAN ROUTINE ; 2/20/92"
^XMB(3.9,81,2,691,0)="""RTN"",""PPPSCN2"",2,0)"
^XMB(3.9,81,2,692,0)=" ;;1.0;PHARMACY PRESCRIPTION PRACTICE;**9,41**;APR 7,1995"
^XMB(3.9,81,2,693,0)="""RTN"",""PPPSCN2"",3,0)"
^XMB(3.9,81,2,694,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,81,2,695,0)="""RTN"",""PPPSCN2"",4,0)"
^XMB(3.9,81,2,696,0)=" ;"
^XMB(3.9,81,2,697,0)="""RTN"",""PPPSCN2"",5,0)"
^XMB(3.9,81,2,698,0)="FFSCAN ; Scan clinic for patients to send PDX's for"
^XMB(3.9,81,2,699,0)="""RTN"",""PPPSCN2"",6,0)"
^XMB(3.9,81,2,700,0)=" ;"
^XMB(3.9,81,2,701,0)="""RTN"",""PPPSCN2"",7,0)"
^XMB(3.9,81,2,702,0)=" N X,TMP,DTCERR,PFGERR,CSCNSTRT,CSCNEND,DATE,SCANDATE,PCSD,TOTPATS"
^XMB(3.9,81,2,703,0)="""RTN"",""PPPSCN2"",8,0)"
^XMB(3.9,81,2,704,0)=" N PDXSTRT,PDXEND,CODE,ERR,FFXIFN,LPDX,MAXDAYS,RSLTPTR,UNSPTR"
^XMB(3.9,81,2,705,0)="""RTN"",""PPPSCN2"",9,0)"
^XMB(3.9,81,2,706,0)=" N PATDFN,STAPTR,TOTSTA,X1,X2,PROCPTR,AUTOPTR"
^XMB(3.9,81,2,707,0)="""RTN"",""PPPSCN2"",10,0)"
^XMB(3.9,81,2,708,0)=" ;"
^XMB(3.9,81,2,709,0)="""RTN"",""PPPSCN2"",11,0)"
^XMB(3.9,81,2,710,0)=" S PPPMRT=""FFSCAN_PPPSCN2"""
^XMB(3.9,81,2,711,0)="""RTN"",""PPPSCN2"",12,0)"
^XMB(3.9,81,2,712,0)=" S DTCERR=-9006"
^XMB(3.9,81,2,713,0)="""RTN"",""PPPSCN2"",13,0)"
^XMB(3.9,81,2,714,0)=" S PFGERR=-9007"
^XMB(3.9,81,2,715,0)="""RTN"",""PPPSCN2"",14,0)"
^XMB(3.9,81,2,716,0)=" S CSCNSTRT=1006"
^XMB(3.9,81,2,717,0)="""RTN"",""PPPSCN2"",15,0)"
^XMB(3.9,81,2,718,0)=" S CSCNEND=1007"
^XMB(3.9,81,2,719,0)="""RTN"",""PPPSCN2"",16,0)"
^XMB(3.9,81,2,720,0)=" S PDXSTRT=1008"
^XMB(3.9,81,2,721,0)="""RTN"",""PPPSCN2"",17,0)"
^XMB(3.9,81,2,722,0)=" S PDXEND=1009"
^XMB(3.9,81,2,723,0)="""RTN"",""PPPSCN2"",18,0)"
^XMB(3.9,81,2,724,0)=" S ^TMP(""PPP"",$J,""ERR"",1)=""The following Errors occurred while attempting to send PDX's:"""
^XMB(3.9,81,2,725,0)="""RTN"",""PPPSCN2"",19,0)"
^XMB(3.9,81,2,726,0)=" S ^TMP(""PPP"",$J,""ERR"",2)="" """
^XMB(3.9,81,2,727,0)="""RTN"",""PPPSCN2"",20,0)"
^XMB(3.9,81,2,728,0)=" S (PDXSNT,TOTSTA)=0"
^XMB(3.9,81,2,729,0)="""RTN"",""PPPSCN2"",21,0)"
^XMB(3.9,81,2,730,0)=" S ERR=0"
^XMB(3.9,81,2,731,0)="""RTN"",""PPPSCN2"",22,0)"
^XMB(3.9,81,2,732,0)=" ;GET POINTERS TO ACCEPTABLE PDX STATUSES"
^XMB(3.9,81,2,733,0)="""RTN"",""PPPSCN2"",23,0)"
^XMB(3.9,81,2,734,0)=" S RSLTPTR=$$GETSTPTR^PPPGET7(""VAQ-RSLT"")"
^XMB(3.9,81,2,735,0)="""RTN"",""PPPSCN2"",24,0)"
^XMB(3.9,81,2,736,0)=" S UNSPTR=$$GETSTPTR^PPPGET7(""VAQ-UNSOL"")"
^XMB(3.9,81,2,737,0)="""RTN"",""PPPSCN2"",25,0)"
^XMB(3.9,81,2,738,0)=" S PROCPTR=$$GETSTPTR^PPPGET7(""VAQ-PROC"")"
^XMB(3.9,81,2,739,0)="""RTN"",""PPPSCN2"",26,0)"
^XMB(3.9,81,2,740,0)=" S AUTOPTR=$$GETSTPTR^PPPGET7(""VAQ-AUTO"")"
^XMB(3.9,81,2,741,0)="""RTN"",""PPPSCN2"",27,0)"
^XMB(3.9,81,2,742,0)=" ;"
^XMB(3.9,81,2,743,0)="""RTN"",""PPPSCN2"",28,0)"
^XMB(3.9,81,2,744,0)=" S TMP=$$LOGEVNT^PPPMSC1(CSCNSTRT,PPPMRT)"
^XMB(3.9,81,2,745,0)="""RTN"",""PPPSCN2"",29,0)"
^XMB(3.9,81,2,746,0)=" ;"
^XMB(3.9,81,2,747,0)="""RTN"",""PPPSCN2"",30,0)"
^XMB(3.9,81,2,748,0)=" D NOW^%DTC"
^XMB(3.9,81,2,749,0)="""RTN"",""PPPSCN2"",31,0)"
^XMB(3.9,81,2,750,0)=" I X="""" D  Q"
^XMB(3.9,81,2,751,0)="""RTN"",""PPPSCN2"",32,0)"
^XMB(3.9,81,2,752,0)=" .S TMP=$$LOGEVNT^PPPMSC1(DTCERR,PPPMRT)"
^XMB(3.9,81,2,753,0)="""RTN"",""PPPSCN2"",33,0)"
^XMB(3.9,81,2,754,0)=" S DATE=X"
^XMB(3.9,81,2,755,0)="""RTN"",""PPPSCN2"",34,0)"
^XMB(3.9,81,2,756,0)=" K %,%H,%I,X"
^XMB(3.9,81,2,757,0)="""RTN"",""PPPSCN2"",35,0)"
^XMB(3.9,81,2,758,0)=" ;"
^XMB(3.9,81,2,759,0)="""RTN"",""PPPSCN2"",36,0)"
^XMB(3.9,81,2,760,0)=" S PCSD=$P($G(^PPP(1020.1,1,0)),""^"",2)"
^XMB(3.9,81,2,761,0)="""RTN"",""PPPSCN2"",37,0)"
^XMB(3.9,81,2,762,0)=" I PCSD="""" D  Q"
^XMB(3.9,81,2,763,0)="""RTN"",""PPPSCN2"",38,0)"
^XMB(3.9,81,2,764,0)=" .S TMP=$$LOGEVNT^PPPMSC1(PFGERR,PPPMRT)"
^XMB(3.9,81,2,765,0)="""RTN"",""PPPSCN2"",39,0)"
^XMB(3.9,81,2,766,0)=" S X1=DATE"
^XMB(3.9,81,2,767,0)="""RTN"",""PPPSCN2"",40,0)"
^XMB(3.9,81,2,768,0)=" S X2=PCSD"
^XMB(3.9,81,2,769,0)="""RTN"",""PPPSCN2"",41,0)"
^XMB(3.9,81,2,770,0)=" D C^%DTC"
^XMB(3.9,81,2,771,0)="""RTN"",""PPPSCN2"",42,0)"
^XMB(3.9,81,2,772,0)=" I X="""" D  Q"
^XMB(3.9,81,2,773,0)="""RTN"",""PPPSCN2"",43,0)"
^XMB(3.9,81,2,774,0)=" .S TMP=$$LOGEVNT^PPPMSC1(DTCERR,PPPMRT)"
^XMB(3.9,81,2,775,0)="""RTN"",""PPPSCN2"",44,0)"
^XMB(3.9,81,2,776,0)=" S SCANDATE=X"
^XMB(3.9,81,2,777,0)="""RTN"",""PPPSCN2"",45,0)"
^XMB(3.9,81,2,778,0)=" K X1,X2,X,%H"
^XMB(3.9,81,2,779,0)="""RTN"",""PPPSCN2"",46,0)"
^XMB(3.9,81,2,780,0)=" ;"
^XMB(3.9,81,2,781,0)="""RTN"",""PPPSCN2"",47,0)"
^XMB(3.9,81,2,782,0)=" S TOTPATS=$$CLINSCAN(SCANDATE,""^TMP(""""PPP"""",$J,SCANDATE)"")"
^XMB(3.9,81,2,783,0)="""RTN"",""PPPSCN2"",48,0)"
^XMB(3.9,81,2,784,0)=" S TMP=$$LOGEVNT^PPPMSC1(CSCNEND,PPPMRT,""TOTAL ENTRIES = ""_TOTPATS)"
^XMB(3.9,81,2,785,0)="""RTN"",""PPPSCN2"",49,0)"
^XMB(3.9,81,2,786,0)=" ;"
^XMB(3.9,81,2,787,0)="""RTN"",""PPPSCN2"",50,0)"
^XMB(3.9,81,2,788,0)=" S MAXDAYS=$P($G(^PPP(1020.1,1,0)),""^"",3)"
^XMB(3.9,81,2,789,0)="""RTN"",""PPPSCN2"",51,0)"
^XMB(3.9,81,2,790,0)=" S TMP=$$LOGEVNT^PPPMSC1(PDXSTRT,PPPMRT)"
^XMB(3.9,81,2,791,0)="""RTN"",""PPPSCN2"",52,0)"
^XMB(3.9,81,2,792,0)=" ;"
^XMB(3.9,81,2,793,0)="""RTN"",""PPPSCN2"",53,0)"
^XMB(3.9,81,2,794,0)=" F PATDFN=0:0 D  Q:PATDFN="""""
^XMB(3.9,81,2,795,0)="""RTN"",""PPPSCN2"",54,0)"
^XMB(3.9,81,2,796,0)=" .K PPPSTA"
^XMB(3.9,81,2,797,0)="""RTN"",""PPPSCN2"",55,0)"
^XMB(3.9,81,2,798,0)=" .S PATDFN=$O(^TMP(""PPP"",$J,SCANDATE,PATDFN)) Q:PATDFN="""""
^XMB(3.9,81,2,799,0)="""RTN"",""PPPSCN2"",56,0)"
^XMB(3.9,81,2,800,0)=" .F STAPTR=0:0 D  Q:STAPTR="""""
^XMB(3.9,81,2,801,0)="""RTN"",""PPPSCN2"",57,0)"
^XMB(3.9,81,2,802,0)=" ..S STAPTR=$O(^PPP(1020.2,""APOV"",PATDFN,STAPTR)) Q:STAPTR="""""
^XMB(3.9,81,2,803,0)="""RTN"",""PPPSCN2"",58,0)"
^XMB(3.9,81,2,804,0)=" ..S FFXIFN=$O(^PPP(1020.2,""APOV"",PATDFN,STAPTR,"""")) Q:FFXIFN="""""
^XMB(3.9,81,2,805,0)="""RTN"",""PPPSCN2"",59,0)"
^XMB(3.9,81,2,806,0)=" ..I '$D(^PPP(1020.5,""B"",STAPTR)) D"
^XMB(3.9,81,2,807,0)="""RTN"",""PPPSCN2"",60,0)"
^XMB(3.9,81,2,808,0)=" ...S LPDX=$P($G(^PPP(1020.2,FFXIFN,1)),""^"",2)"
^XMB(3.9,81,2,809,0)="""RTN"",""PPPSCN2"",61,0)"
^XMB(3.9,81,2,810,0)=" ...I LPDX=""""!($$DIFFDT^PPPCNV1(DATE,LPDX)>MAXDAYS) D"
^XMB(3.9,81,2,811,0)="""RTN"",""PPPSCN2"",62,0)"
^XMB(3.9,81,2,812,0)=" ....S CODE=$P($G(^PPP(1020.2,FFXIFN,1)),""^"",3)"
^XMB(3.9,81,2,813,0)="""RTN"",""PPPSCN2"",63,0)"
^XMB(3.9,81,2,814,0)=" ....I ((CODE=RSLTPTR)!(CODE=UNSPTR)!(CODE=PROCPTR)!(CODE=AUTOPTR)!(CODE="""")) D"
^XMB(3.9,81,2,815,0)="""RTN"",""PPPSCN2"",64,0)"
^XMB(3.9,81,2,816,0)=" .....S PPPSTA(STAPTR)="""""
^XMB(3.9,81,2,817,0)="""RTN"",""PPPSCN2"",65,0)"
^XMB(3.9,81,2,818,0)=" .....S TOTSTA=TOTSTA+1"
^XMB(3.9,81,2,819,0)="""RTN"",""PPPSCN2"",66,0)"
^XMB(3.9,81,2,820,0)=" .I $O(PPPSTA(""""))'="""" D  Q:ERR"
^XMB(3.9,81,2,821,0)="""RTN"",""PPPSCN2"",67,0)"
^XMB(3.9,81,2,822,0)=" ..S ERR=$$SNDPDX^PPPPDX1(PATDFN,""PPPSTA"",""^TMP(""""PPP"""",$J,""""ERR"""")"")"
^XMB(3.9,81,2,823,0)="""RTN"",""PPPSCN2"",68,0)"
^XMB(3.9,81,2,824,0)=" ..I ERR D"
^XMB(3.9,81,2,825,0)="""RTN"",""PPPSCN2"",69,0)"
^XMB(3.9,81,2,826,0)=" ...S TMP=$$LOGEVNT^PPPMSC1(ERR,PPPMRT,""Error From PPPPDX1 ==> ""_ERR)"
^XMB(3.9,81,2,827,0)="""RTN"",""PPPSCN2"",70,0)"
^XMB(3.9,81,2,828,0)=" ...S PATDFN="""""
^XMB(3.9,81,2,829,0)="""RTN"",""PPPSCN2"",71,0)"
^XMB(3.9,81,2,830,0)=" ;"
^XMB(3.9,81,2,831,0)="""RTN"",""PPPSCN2"",72,0)"
^XMB(3.9,81,2,832,0)=" ; Set the last batch request date to today"
^XMB(3.9,81,2,833,0)="""RTN"",""PPPSCN2"",73,0)"
^XMB(3.9,81,2,834,0)=" ;"
^XMB(3.9,81,2,835,0)="""RTN"",""PPPSCN2"",74,0)"
^XMB(3.9,81,2,836,0)=" S $P(^PPP(1020.1,1,0),""^"",6)=DT"
^XMB(3.9,81,2,837,0)="""RTN"",""PPPSCN2"",75,0)"
^XMB(3.9,81,2,838,0)=" S TMP=$$LOGEVNT^PPPMSC1(PDXEND,PPPMRT,""TOTAL PDX'S REQUESTED = ""_TOTSTA)"
^XMB(3.9,81,2,839,0)="""RTN"",""PPPSCN2"",76,0)"
^XMB(3.9,81,2,840,0)=" I '$D(^TMP(""PPP"",$J,""ERR"",3)) S ^TMP(""PPP"",$J,""ERR"",1)=""No Errors occurred while attempting to send PDX's"""
^XMB(3.9,81,2,841,0)="""RTN"",""PPPSCN2"",77,0)"
^XMB(3.9,81,2,842,0)=" ;S ^TMP(""PPP"",$J,""ERR"",4)="""""
^XMB(3.9,81,2,843,0)="""RTN"",""PPPSCN2"",78,0)"
^XMB(3.9,81,2,844,0)=" S TMP=$$SNDBLTN^PPPMSC1(""PPP DAILY BATCH ""_$$SLASHDT^PPPCNV1(DT),""PRESCRIPTION PRACTICES"",""^TMP(""""PPP"""",$J,""""ERR"""","")"
^XMB(3.9,81,2,845,0)="""RTN"",""PPPSCN2"",79,0)"
^XMB(3.9,81,2,846,0)=" ;"
^XMB(3.9,81,2,847,0)="""RTN"",""PPPSCN2"",80,0)"
^XMB(3.9,81,2,848,0)=" K ^TMP(""PPP"",$J,""ERR""),^TMP(""PPP"",$J,SCANDATE),PPPMRT,PPPSTA,PDXSNT"
^XMB(3.9,81,2,849,0)="""RTN"",""PPPSCN2"",81,0)"
^XMB(3.9,81,2,850,0)=" Q"
^XMB(3.9,81,2,851,0)="""RTN"",""PPPSCN2"",82,0)"
^XMB(3.9,81,2,852,0)=" ;"
^XMB(3.9,81,2,853,0)="""RTN"",""PPPSCN2"",83,0)"
^XMB(3.9,81,2,854,0)="CLINSCAN(SCANDATE,ARRYNM) ; Scan the clinics for appointments"
^XMB(3.9,81,2,855,0)="""RTN"",""PPPSCN2"",84,0)"
^XMB(3.9,81,2,856,0)=" ;"
^XMB(3.9,81,2,857,0)="""RTN"",""PPPSCN2"",85,0)"
^XMB(3.9,81,2,858,0)=" N CLINIC,DATE,DPTINFO,I,PATDFN"
^XMB(3.9,81,2,859,0)="""RTN"",""PPPSCN2"",86,0)"
^XMB(3.9,81,2,860,0)=" N TMP,TPATS,X,PPPSCDA"
^XMB(3.9,81,2,861,0)="""RTN"",""PPPSCN2"",87,0)"
^XMB(3.9,81,2,862,0)=" ;"
^XMB(3.9,81,2,863,0)="""RTN"",""PPPSCN2"",88,0)"
^XMB(3.9,81,2,864,0)=" S TPATS=0"
^XMB(3.9,81,2,865,0)="""RTN"",""PPPSCN2"",89,0)"
^XMB(3.9,81,2,866,0)=" ;"
^XMB(3.9,81,2,867,0)="""RTN"",""PPPSCN2"",90,0)"
^XMB(3.9,81,2,868,0)=" S CLINIC="""""
^XMB(3.9,81,2,869,0)="""RTN"",""PPPSCN2"",91,0)"
^XMB(3.9,81,2,870,0)=" F I=0:0 D  Q:CLINIC="""""
^XMB(3.9,81,2,871,0)="""RTN"",""PPPSCN2"",92,0)"
^XMB(3.9,81,2,872,0)=" .S CLINIC=$O(^SC(""AC"",""C"",CLINIC)) Q:CLINIC="""""
^XMB(3.9,81,2,873,0)="""RTN"",""PPPSCN2"",93,0)"
^XMB(3.9,81,2,874,0)=" .F DATE=SCANDATE:0 D  Q:$P(DATE,""."")'=SCANDATE"
^XMB(3.9,81,2,875,0)="""RTN"",""PPPSCN2"",94,0)"
^XMB(3.9,81,2,876,0)=" ..S DATE=$O(^SC(CLINIC,""S"",DATE)) Q:$P(DATE,""."")'=SCANDATE"
^XMB(3.9,81,2,877,0)="""RTN"",""PPPSCN2"",95,0)"
^XMB(3.9,81,2,878,0)=" ..I $P(DATE,""."")=SCANDATE D"
^XMB(3.9,81,2,879,0)="""RTN"",""PPPSCN2"",96,0)"
^XMB(3.9,81,2,880,0)=" ...;VMP OIFO BAY PINES;PPP*1*41"
^XMB(3.9,81,2,881,0)="""RTN"",""PPPSCN2"",97,0)"
^XMB(3.9,81,2,882,0)=" ...;ADD F LOOP TO PICK UP 44.003 MULTIPLE"
^XMB(3.9,81,2,883,0)="""RTN"",""PPPSCN2"",98,0)"
^XMB(3.9,81,2,884,0)=" ...S PPPSCDA=0 F  S PPPSCDA=$O(^SC(CLINIC,""S"",DATE,1,PPPSCDA)) Q:PPPSCDA'>0  D"
^XMB(3.9,81,2,885,0)="""RTN"",""PPPSCN2"",99,0)"
^XMB(3.9,81,2,886,0)=" ....S PATDFN=$P($G(^SC(CLINIC,""S"",DATE,1,PPPSCDA,0)),""^"") Q:PATDFN="""""
^XMB(3.9,81,2,887,0)="""RTN"",""PPPSCN2"",100,0)"
^XMB(3.9,81,2,888,0)=" ....S DPTINFO=$P($G(^DPT(PATDFN,""S"",DATE,0)),""^"",1,2)"
^XMB(3.9,81,2,889,0)="""RTN"",""PPPSCN2"",101,0)"
^XMB(3.9,81,2,890,0)=" ....I $P(DPTINFO,""^"")=CLINIC&($P(DPTINFO,""^"",2)="""") D"
^XMB(3.9,81,2,891,0)="""RTN"",""PPPSCN2"",102,0)"
^XMB(3.9,81,2,892,0)=" .....S @ARRYNM@(PATDFN)="""""
^XMB(3.9,81,2,893,0)="""RTN"",""PPPSCN2"",103,0)"
^XMB(3.9,81,2,894,0)=" .....S TPATS=TPATS+1"
^XMB(3.9,81,2,895,0)="""RTN"",""PPPSCN2"",104,0)"
^XMB(3.9,81,2,896,0)=" Q TPATS"
^XMB(3.9,81,2,897,0)="""VER"")"
^XMB(3.9,81,2,898,0)="8.0^22.0"
^XMB(3.9,81,2,899,0)="""BLD"",5285,6)"
^XMB(3.9,81,2,900,0)="^36"
^XMB(3.9,81,2,901,0)="$END KID PPP*1.0*41"
^XMB(3.9,81,6,0)="^3.911A^2^2"
^XMB(3.9,81,6,1,0)="POSTMASTER"
^XMB(3.9,81,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,81,6,"B","POSTMASTER",1)=""
^XMB(3.9,81,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,82,0)="PRC-5P1_SEQ-82_PAT-41.KID^.5^3061008.015739^^^^K"
^XMB(3.9,82,.6)="3061008"
^XMB(3.9,82,1,0)="^3.91A^2^2"
^XMB(3.9,82,1,1,0)=".5^0^3061008.015739^^^^^^^3061008.015739"
^XMB(3.9,82,1,2,0)="1^0^3061008.02405^^^^^^^3061008.024034"
^XMB(3.9,82,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,82,1,"C",.5,1)=""
^XMB(3.9,82,1,"C",1,2)=""
^XMB(3.9,82,2,0)="^^1669^1669^3061008"
^XMB(3.9,82,2,1,0)="$TXT Released PRC*5.1*41 SEQ #82"
^XMB(3.9,82,2,2,0)="Extracted from mail message"
^XMB(3.9,82,2,3,0)="$END TXT"
^XMB(3.9,82,2,4,0)="$KID PRC*5.1*41"
^XMB(3.9,82,2,5,0)="**INSTALL NAME**"
^XMB(3.9,82,2,6,0)="PRC*5.1*41"
^XMB(3.9,82,2,7,0)="""BLD"",4283,0)"
^XMB(3.9,82,2,8,0)="PRC*5.1*41^IFCAP^0^3060405^y"
^XMB(3.9,82,2,9,0)="""BLD"",4283,1,0)"
^XMB(3.9,82,2,10,0)="^^1^1^3050914^^"
^XMB(3.9,82,2,11,0)="""BLD"",4283,1,1,0)"
^XMB(3.9,82,2,12,0)="GIP, CASE CART AND INSTRUMENT KIT FIXES"
^XMB(3.9,82,2,13,0)="""BLD"",4283,4,0)"
^XMB(3.9,82,2,14,0)="^9.64PA^^"
^XMB(3.9,82,2,15,0)="""BLD"",4283,""ABPKG"")"
^XMB(3.9,82,2,16,0)="n"
^XMB(3.9,82,2,17,0)="""BLD"",4283,""KRN"",0)"
^XMB(3.9,82,2,18,0)="^9.67PA^8989.52^19"
^XMB(3.9,82,2,19,0)="""BLD"",4283,""KRN"",.4,0)"
^XMB(3.9,82,2,20,0)=".4"
^XMB(3.9,82,2,21,0)="""BLD"",4283,""KRN"",.401,0)"
^XMB(3.9,82,2,22,0)=".401"
^XMB(3.9,82,2,23,0)="""BLD"",4283,""KRN"",.402,0)"
^XMB(3.9,82,2,24,0)=".402"
^XMB(3.9,82,2,25,0)="""BLD"",4283,""KRN"",.403,0)"
^XMB(3.9,82,2,26,0)=".403"
^XMB(3.9,82,2,27,0)="""BLD"",4283,""KRN"",.5,0)"
^XMB(3.9,82,2,28,0)=".5"
^XMB(3.9,82,2,29,0)="""BLD"",4283,""KRN"",.84,0)"
^XMB(3.9,82,2,30,0)=".84"
^XMB(3.9,82,2,31,0)="""BLD"",4283,""KRN"",3.6,0)"
^XMB(3.9,82,2,32,0)="3.6"
^XMB(3.9,82,2,33,0)="""BLD"",4283,""KRN"",3.8,0)"
^XMB(3.9,82,2,34,0)="3.8"
^XMB(3.9,82,2,35,0)="""BLD"",4283,""KRN"",9.2,0)"
^XMB(3.9,82,2,36,0)="9.2"
^XMB(3.9,82,2,37,0)="""BLD"",4283,""KRN"",9.8,0)"
^XMB(3.9,82,2,38,0)="9.8"
^XMB(3.9,82,2,39,0)="""BLD"",4283,""KRN"",9.8,""NM"",0)"
^XMB(3.9,82,2,40,0)="^9.68A^10^7"
^XMB(3.9,82,2,41,0)="""BLD"",4283,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,82,2,42,0)="PRCPRISP^^0^B25854913"
^XMB(3.9,82,2,43,0)="""BLD"",4283,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,82,2,44,0)="PRCPOPL^^0^B25807256"
^XMB(3.9,82,2,45,0)="""BLD"",4283,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,82,2,46,0)="PRCPRSSR^^0^B26117439"
^XMB(3.9,82,2,47,0)="""BLD"",4283,""KRN"",9.8,""NM"",7,0)"
^XMB(3.9,82,2,48,0)="PRCPOPP^^0^B33813357"
^XMB(3.9,82,2,49,0)="""BLD"",4283,""KRN"",9.8,""NM"",8,0)"
^XMB(3.9,82,2,50,0)="PRCPOPP3^^0^B19187191"
^XMB(3.9,82,2,51,0)="""BLD"",4283,""KRN"",9.8,""NM"",9,0)"
^XMB(3.9,82,2,52,0)="PRCPRISS^^0^B31105422"
^XMB(3.9,82,2,53,0)="""BLD"",4283,""KRN"",9.8,""NM"",10,0)"
^XMB(3.9,82,2,54,0)="PRCPLO2^^0^B29511924"
^XMB(3.9,82,2,55,0)="""BLD"",4283,""KRN"",9.8,""NM"",""B"",""PRCPLO2"",10)"
^XMB(3.9,82,2,56,0)=""
^XMB(3.9,82,2,57,0)="""BLD"",4283,""KRN"",9.8,""NM"",""B"",""PRCPOPL"",4)"
^XMB(3.9,82,2,58,0)=""
^XMB(3.9,82,2,59,0)="""BLD"",4283,""KRN"",9.8,""NM"",""B"",""PRCPOPP"",7)"
^XMB(3.9,82,2,60,0)=""
^XMB(3.9,82,2,61,0)="""BLD"",4283,""KRN"",9.8,""NM"",""B"",""PRCPOPP3"",8)"
^XMB(3.9,82,2,62,0)=""
^XMB(3.9,82,2,63,0)="""BLD"",4283,""KRN"",9.8,""NM"",""B"",""PRCPRISP"",2)"
^XMB(3.9,82,2,64,0)=""
^XMB(3.9,82,2,65,0)="""BLD"",4283,""KRN"",9.8,""NM"",""B"",""PRCPRISS"",9)"
^XMB(3.9,82,2,66,0)=""
^XMB(3.9,82,2,67,0)="""BLD"",4283,""KRN"",9.8,""NM"",""B"",""PRCPRSSR"",5)"
^XMB(3.9,82,2,68,0)=""
^XMB(3.9,82,2,69,0)="""BLD"",4283,""KRN"",19,0)"
^XMB(3.9,82,2,70,0)="19"
^XMB(3.9,82,2,71,0)="""BLD"",4283,""KRN"",19.1,0)"
^XMB(3.9,82,2,72,0)="19.1"
^XMB(3.9,82,2,73,0)="""BLD"",4283,""KRN"",101,0)"
^XMB(3.9,82,2,74,0)="101"
^XMB(3.9,82,2,75,0)="""BLD"",4283,""KRN"",409.61,0)"
^XMB(3.9,82,2,76,0)="409.61"
^XMB(3.9,82,2,77,0)="""BLD"",4283,""KRN"",771,0)"
^XMB(3.9,82,2,78,0)="771"
^XMB(3.9,82,2,79,0)="""BLD"",4283,""KRN"",870,0)"
^XMB(3.9,82,2,80,0)="870"
^XMB(3.9,82,2,81,0)="""BLD"",4283,""KRN"",8989.51,0)"
^XMB(3.9,82,2,82,0)="8989.51"
^XMB(3.9,82,2,83,0)="""BLD"",4283,""KRN"",8989.52,0)"
^XMB(3.9,82,2,84,0)="8989.52"
^XMB(3.9,82,2,85,0)="""BLD"",4283,""KRN"",8994,0)"
^XMB(3.9,82,2,86,0)="8994"
^XMB(3.9,82,2,87,0)="""BLD"",4283,""KRN"",""B"",.4,.4)"
^XMB(3.9,82,2,88,0)=""
^XMB(3.9,82,2,89,0)="""BLD"",4283,""KRN"",""B"",.401,.401)"
^XMB(3.9,82,2,90,0)=""
^XMB(3.9,82,2,91,0)="""BLD"",4283,""KRN"",""B"",.402,.402)"
^XMB(3.9,82,2,92,0)=""
^XMB(3.9,82,2,93,0)="""BLD"",4283,""KRN"",""B"",.403,.403)"
^XMB(3.9,82,2,94,0)=""
^XMB(3.9,82,2,95,0)="""BLD"",4283,""KRN"",""B"",.5,.5)"
^XMB(3.9,82,2,96,0)=""
^XMB(3.9,82,2,97,0)="""BLD"",4283,""KRN"",""B"",.84,.84)"
^XMB(3.9,82,2,98,0)=""
^XMB(3.9,82,2,99,0)="""BLD"",4283,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,82,2,100,0)=""
^XMB(3.9,82,2,101,0)="""BLD"",4283,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,82,2,102,0)=""
^XMB(3.9,82,2,103,0)="""BLD"",4283,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,82,2,104,0)=""
^XMB(3.9,82,2,105,0)="""BLD"",4283,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,82,2,106,0)=""
^XMB(3.9,82,2,107,0)="""BLD"",4283,""KRN"",""B"",19,19)"
^XMB(3.9,82,2,108,0)=""
^XMB(3.9,82,2,109,0)="""BLD"",4283,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,82,2,110,0)=""
^XMB(3.9,82,2,111,0)="""BLD"",4283,""KRN"",""B"",101,101)"
^XMB(3.9,82,2,112,0)=""
^XMB(3.9,82,2,113,0)="""BLD"",4283,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,82,2,114,0)=""
^XMB(3.9,82,2,115,0)="""BLD"",4283,""KRN"",""B"",771,771)"
^XMB(3.9,82,2,116,0)=""
^XMB(3.9,82,2,117,0)="""BLD"",4283,""KRN"",""B"",870,870)"
^XMB(3.9,82,2,118,0)=""
^XMB(3.9,82,2,119,0)="""BLD"",4283,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,82,2,120,0)=""
^XMB(3.9,82,2,121,0)="""BLD"",4283,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,82,2,122,0)=""
^XMB(3.9,82,2,123,0)="""BLD"",4283,""KRN"",""B"",8994,8994)"
^XMB(3.9,82,2,124,0)=""
^XMB(3.9,82,2,125,0)="""BLD"",4283,""QUES"",0)"
^XMB(3.9,82,2,126,0)="^9.62^^"
^XMB(3.9,82,2,127,0)="""BLD"",4283,""REQB"",0)"
^XMB(3.9,82,2,128,0)="^9.611^3^3"
^XMB(3.9,82,2,129,0)="""BLD"",4283,""REQB"",1,0)"
^XMB(3.9,82,2,130,0)="PRC*5.1*1^1"
^XMB(3.9,82,2,131,0)="""BLD"",4283,""REQB"",2,0)"
^XMB(3.9,82,2,132,0)="PRC*5.1*17^1"
^XMB(3.9,82,2,133,0)="""BLD"",4283,""REQB"",3,0)"
^XMB(3.9,82,2,134,0)="PRC*5.1*83^1"
^XMB(3.9,82,2,135,0)="""BLD"",4283,""REQB"",""B"",""PRC*5.1*1"",1)"
^XMB(3.9,82,2,136,0)=""
^XMB(3.9,82,2,137,0)="""BLD"",4283,""REQB"",""B"",""PRC*5.1*17"",2)"
^XMB(3.9,82,2,138,0)=""
^XMB(3.9,82,2,139,0)="""BLD"",4283,""REQB"",""B"",""PRC*5.1*83"",3)"
^XMB(3.9,82,2,140,0)=""
^XMB(3.9,82,2,141,0)="""MBREQ"")"
^XMB(3.9,82,2,142,0)="0"
^XMB(3.9,82,2,143,0)="""PKG"",455,-1)"
^XMB(3.9,82,2,144,0)="1^1"
^XMB(3.9,82,2,145,0)="""PKG"",455,0)"
^XMB(3.9,82,2,146,0)="IFCAP^PRC^IFCAP System Files"
^XMB(3.9,82,2,147,0)="""PKG"",455,20,0)"
^XMB(3.9,82,2,148,0)="^9.402P^^"
^XMB(3.9,82,2,149,0)="""PKG"",455,22,0)"
^XMB(3.9,82,2,150,0)="^9.49I^1^1"
^XMB(3.9,82,2,151,0)="""PKG"",455,22,1,0)"
^XMB(3.9,82,2,152,0)="5.1^3001012^3001019^68"
^XMB(3.9,82,2,153,0)="""PKG"",455,22,1,""PAH"",1,0)"
^XMB(3.9,82,2,154,0)="41^3060405"
^XMB(3.9,82,2,155,0)="""PKG"",455,22,1,""PAH"",1,1,0)"
^XMB(3.9,82,2,156,0)="^^1^1^3060405"
^XMB(3.9,82,2,157,0)="""PKG"",455,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,82,2,158,0)="GIP, CASE CART AND INSTRUMENT KIT FIXES"
^XMB(3.9,82,2,159,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,82,2,160,0)="Y"
^XMB(3.9,82,2,161,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,82,2,162,0)="^D REP^XPDH"
^XMB(3.9,82,2,163,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,82,2,164,0)="Shall I write over your |FLAG| File"
^XMB(3.9,82,2,165,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,82,2,166,0)="YES"
^XMB(3.9,82,2,167,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,82,2,168,0)="D XPF1^XPDIQ"
^XMB(3.9,82,2,169,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,82,2,170,0)="Y"
^XMB(3.9,82,2,171,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,82,2,172,0)="^D DTA^XPDH"
^XMB(3.9,82,2,173,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,82,2,174,0)="Want my data |FLAG| yours"
^XMB(3.9,82,2,175,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,82,2,176,0)="YES"
^XMB(3.9,82,2,177,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,82,2,178,0)="D XPF2^XPDIQ"
^XMB(3.9,82,2,179,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,82,2,180,0)="YO"
^XMB(3.9,82,2,181,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,82,2,182,0)="^D INHIBIT^XPDH"
^XMB(3.9,82,2,183,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,82,2,184,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,82,2,185,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,82,2,186,0)="YES"
^XMB(3.9,82,2,187,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,82,2,188,0)="D XPI1^XPDIQ"
^XMB(3.9,82,2,189,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,82,2,190,0)="PO^VA(200,:EM"
^XMB(3.9,82,2,191,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,82,2,192,0)="^D MG^XPDH"
^XMB(3.9,82,2,193,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,82,2,194,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,82,2,195,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,82,2,196,0)=""
^XMB(3.9,82,2,197,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,82,2,198,0)="D XPM1^XPDIQ"
^XMB(3.9,82,2,199,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,82,2,200,0)="Y"
^XMB(3.9,82,2,201,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,82,2,202,0)="^D MENU^XPDH"
^XMB(3.9,82,2,203,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,82,2,204,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,82,2,205,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,82,2,206,0)="YES"
^XMB(3.9,82,2,207,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,82,2,208,0)="D XPO1^XPDIQ"
^XMB(3.9,82,2,209,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,82,2,210,0)="Y"
^XMB(3.9,82,2,211,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,82,2,212,0)="^D OPT^XPDH"
^XMB(3.9,82,2,213,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,82,2,214,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,82,2,215,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,82,2,216,0)="YES"
^XMB(3.9,82,2,217,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,82,2,218,0)="D XPZ1^XPDIQ"
^XMB(3.9,82,2,219,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,82,2,220,0)="Y"
^XMB(3.9,82,2,221,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,82,2,222,0)="^D RTN^XPDH"
^XMB(3.9,82,2,223,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,82,2,224,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,82,2,225,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,82,2,226,0)="NO"
^XMB(3.9,82,2,227,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,82,2,228,0)="D XPZ2^XPDIQ"
^XMB(3.9,82,2,229,0)="""RTN"")"
^XMB(3.9,82,2,230,0)="7"
^XMB(3.9,82,2,231,0)="""RTN"",""PRCPLO2"")"
^XMB(3.9,82,2,232,0)="0^10^B29511924^B29302908"
^XMB(3.9,82,2,233,0)="""RTN"",""PRCPLO2"",1,0)"
^XMB(3.9,82,2,234,0)="PRCPLO2 ;WISC/RFJ/dh/DWA/DAP-stock status report (option, whse) ;3.13.98"
^XMB(3.9,82,2,235,0)="""RTN"",""PRCPLO2"",2,0)"
^XMB(3.9,82,2,236,0)=" ;;5.1;IFCAP;**83,41**;Oct 20, 2000"
^XMB(3.9,82,2,237,0)="""RTN"",""PRCPLO2"",3,0)"
^XMB(3.9,82,2,238,0)=" ;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,82,2,239,0)="""RTN"",""PRCPLO2"",4,0)"
^XMB(3.9,82,2,240,0)=" ;Copied from routine ^PRCPRSSR and modified for PRC*5.1*83 (CLRS)"
^XMB(3.9,82,2,241,0)="""RTN"",""PRCPLO2"",5,0)"
^XMB(3.9,82,2,242,0)=" ;"
^XMB(3.9,82,2,243,0)="""RTN"",""PRCPLO2"",6,0)"
^XMB(3.9,82,2,244,0)="ENT ;This report will be called from option PRCPLO CLO GIP OPTION with fixed"
^XMB(3.9,82,2,245,0)="""RTN"",""PRCPLO2"",7,0)"
^XMB(3.9,82,2,246,0)=" ;input parameters and run for all stations and active inventory points"
^XMB(3.9,82,2,247,0)="""RTN"",""PRCPLO2"",8,0)"
^XMB(3.9,82,2,248,0)=" ;on a given VistA system."
^XMB(3.9,82,2,249,0)="""RTN"",""PRCPLO2"",9,0)"
^XMB(3.9,82,2,250,0)=" ;D ^PRCPUSEL Q:'$D(PRCP(""I""))"
^XMB(3.9,82,2,251,0)="""RTN"",""PRCPLO2"",10,0)"
^XMB(3.9,82,2,252,0)=" L +^PRCP(446.7,""STATUS""):3 I $T=0 S PRCPMSG(1)=""Error encountered when attempting to run CLO GIP Reports due to other"",PRCPMSG(2)=""CLRS extracts in progress, please try again later."" D MAIL^PRCPLO3 Q"
^XMB(3.9,82,2,253,0)="""RTN"",""PRCPLO2"",11,0)"
^XMB(3.9,82,2,254,0)=" K ^PRCP(446.7)"
^XMB(3.9,82,2,255,0)="""RTN"",""PRCPLO2"",12,0)"
^XMB(3.9,82,2,256,0)=" S ^PRCP(446.7,0)=""CLRS REPORT STORAGE^446.7^^"""
^XMB(3.9,82,2,257,0)="""RTN"",""PRCPLO2"",13,0)"
^XMB(3.9,82,2,258,0)=" N CLRSFLAG"
^XMB(3.9,82,2,259,0)="""RTN"",""PRCPLO2"",14,0)"
^XMB(3.9,82,2,260,0)=" S CLRSFLAG=""SS"" D GETIPT^PRCPLO1"
^XMB(3.9,82,2,261,0)="""RTN"",""PRCPLO2"",15,0)"
^XMB(3.9,82,2,262,0)=" ;*83 This call links the Stock on Hand Report in a series of two"
^XMB(3.9,82,2,263,0)="""RTN"",""PRCPLO2"",16,0)"
^XMB(3.9,82,2,264,0)=" ;consecutive report runs to be executed on the 1st of each month."
^XMB(3.9,82,2,265,0)="""RTN"",""PRCPLO2"",17,0)"
^XMB(3.9,82,2,266,0)=" L -^PRCP(446.7,""STATUS"")"
^XMB(3.9,82,2,267,0)="""RTN"",""PRCPLO2"",18,0)"
^XMB(3.9,82,2,268,0)=" D ENT^PRCPLO"
^XMB(3.9,82,2,269,0)="""RTN"",""PRCPLO2"",19,0)"
^XMB(3.9,82,2,270,0)=" N PRCPMSG S PRCPMSG(1)=""CLO GIP Reports completed on ""_$$HTE^XLFDT($H) D MAIL^PRCPLO3"
^XMB(3.9,82,2,271,0)="""RTN"",""PRCPLO2"",20,0)"
^XMB(3.9,82,2,272,0)=" Q"
^XMB(3.9,82,2,273,0)="""RTN"",""PRCPLO2"",21,0)"
^XMB(3.9,82,2,274,0)=" ;"
^XMB(3.9,82,2,275,0)="""RTN"",""PRCPLO2"",22,0)"
^XMB(3.9,82,2,276,0)="EN1 ;*83 Call coming in from PRCPLO1 with station number and inventory point"
^XMB(3.9,82,2,277,0)="""RTN"",""PRCPLO2"",23,0)"
^XMB(3.9,82,2,278,0)=" ;"
^XMB(3.9,82,2,279,0)="""RTN"",""PRCPLO2"",24,0)"
^XMB(3.9,82,2,280,0)=" N %,%DT,%H,%I,DATEINAC,DATESTRT,TODAY,X,X1,X2,Y,MNT,INARNG"
^XMB(3.9,82,2,281,0)="""RTN"",""PRCPLO2"",25,0)"
^XMB(3.9,82,2,282,0)=" ;K X S X(1)=""The Stock Status Report will print a summary of all issues, receipts, and adjustments with the opening and closing balances by account codes."""
^XMB(3.9,82,2,283,0)="""RTN"",""PRCPLO2"",26,0)"
^XMB(3.9,82,2,284,0)=" ;S X(2)=""It will calculate the turnover rate, inactive item percent, long supply percent, and non-issuable percent."""
^XMB(3.9,82,2,285,0)="""RTN"",""PRCPLO2"",27,0)"
^XMB(3.9,82,2,286,0)=" ;D DISPLAY^PRCPUX2(40,79,.X)"
^XMB(3.9,82,2,287,0)="""RTN"",""PRCPLO2"",28,0)"
^XMB(3.9,82,2,288,0)=" ;K X S X(1)=""Enter the date (month-year) for the Stock Status Report."" D DISPLAY^PRCPUX2(2,40,.X)"
^XMB(3.9,82,2,289,0)="""RTN"",""PRCPLO2"",29,0)"
^XMB(3.9,82,2,290,0)=" ;*83 The following was edited to always enter the previous month as the start date"
^XMB(3.9,82,2,291,0)="""RTN"",""PRCPLO2"",30,0)"
^XMB(3.9,82,2,292,0)=" D NOW^%DTC S TODAY=X,Y=$E(X,1,3),MNT=$E(X,4,5)"
^XMB(3.9,82,2,293,0)="""RTN"",""PRCPLO2"",31,0)"
^XMB(3.9,82,2,294,0)=" S MNT=MNT-1"
^XMB(3.9,82,2,295,0)="""RTN"",""PRCPLO2"",32,0)"
^XMB(3.9,82,2,296,0)=" I MNT=0 S MNT=12,Y=Y-1"
^XMB(3.9,82,2,297,0)="""RTN"",""PRCPLO2"",33,0)"
^XMB(3.9,82,2,298,0)=" I $L(MNT)=1 S MNT=0_MNT"
^XMB(3.9,82,2,299,0)="""RTN"",""PRCPLO2"",34,0)"
^XMB(3.9,82,2,300,0)=" S DATESTRT=Y_MNT_""00"""
^XMB(3.9,82,2,301,0)="""RTN"",""PRCPLO2"",35,0)"
^XMB(3.9,82,2,302,0)=" ;S %DT(0)=-Y D DD^%DT S %DT=""AEP"",%DT(""B"")=Y,%DT(""A"")=""Print Stock Status for MONTH and YEAR: "" D ^%DT K %DT I Y<1 Q"
^XMB(3.9,82,2,303,0)="""RTN"",""PRCPLO2"",36,0)"
^XMB(3.9,82,2,304,0)=" ;S DATESTRT=$E(Y,1,5)_""00"""
^XMB(3.9,82,2,305,0)="""RTN"",""PRCPLO2"",37,0)"
^XMB(3.9,82,2,306,0)=" ;K X S X(1)=""The inactive item percent is calculated for items which have not had activity (receipts or issues) after a specified cutoff date."" D DISPLAY^PRCPUX2(40,79,.X)"
^XMB(3.9,82,2,307,0)="""RTN"",""PRCPLO2"",38,0)"
^XMB(3.9,82,2,308,0)=" ;K X S X(1)=""Enter the Inactivity cutoff date."" D DISPLAY^PRCPUX2(2,40,.X)"
^XMB(3.9,82,2,309,0)="""RTN"",""PRCPLO2"",39,0)"
^XMB(3.9,82,2,310,0)=" ;*83 The following was edited to always enter a 90 day previous to "
^XMB(3.9,82,2,311,0)="""RTN"",""PRCPLO2"",40,0)"
^XMB(3.9,82,2,312,0)=" ;current date default inactivity range if no other is indicated via the"
^XMB(3.9,82,2,313,0)="""RTN"",""PRCPLO2"",41,0)"
^XMB(3.9,82,2,314,0)=" ;PRCPLO INACTIVITY RANGE parameter"
^XMB(3.9,82,2,315,0)="""RTN"",""PRCPLO2"",42,0)"
^XMB(3.9,82,2,316,0)=" S INARNG=$$GET^XPAR(""SYS"",""PRCPLO INACTIVITY RANGE"",1,""Q"")"
^XMB(3.9,82,2,317,0)="""RTN"",""PRCPLO2"",43,0)"
^XMB(3.9,82,2,318,0)=" I INARNG="""" S INARNG=90"
^XMB(3.9,82,2,319,0)="""RTN"",""PRCPLO2"",44,0)"
^XMB(3.9,82,2,320,0)=" S X1=TODAY,X2=(INARNG*-1) D C^%DTC S DATEINAC=$E(X,1,5)_""00"""
^XMB(3.9,82,2,321,0)="""RTN"",""PRCPLO2"",45,0)"
^XMB(3.9,82,2,322,0)=" S DT=TODAY"
^XMB(3.9,82,2,323,0)="""RTN"",""PRCPLO2"",46,0)"
^XMB(3.9,82,2,324,0)=" ;D DD^%DT"
^XMB(3.9,82,2,325,0)="""RTN"",""PRCPLO2"",47,0)"
^XMB(3.9,82,2,326,0)=" ;S %DT(0)=-($E(TODAY,1,5)_""00""),%DT=""AEP"",%DT(""B"")=Y,%DT(""A"")=""Enter Inactivity Cutoff MONTH and YEAR: "" D ^%DT K %DT I Y<1 Q"
^XMB(3.9,82,2,327,0)="""RTN"",""PRCPLO2"",48,0)"
^XMB(3.9,82,2,328,0)=" ;S DATEINAC=$E(Y,1,5)_""00"""
^XMB(3.9,82,2,329,0)="""RTN"",""PRCPLO2"",49,0)"
^XMB(3.9,82,2,330,0)=" ;W ! S %ZIS=""Q"" D ^%ZIS Q:POP  I $D(IO(""Q"")) D  D ^%ZTLOAD K IO(""Q""),ZTSK Q"
^XMB(3.9,82,2,331,0)="""RTN"",""PRCPLO2"",50,0)"
^XMB(3.9,82,2,332,0)=" ;.   S ZTDESC=""Stock Status Report"",ZTRTN=""DQ^PRCPRSSR"""
^XMB(3.9,82,2,333,0)="""RTN"",""PRCPLO2"",51,0)"
^XMB(3.9,82,2,334,0)=" ;.   S ZTSAVE(""PRCP*"")="""",ZTSAVE(""DATE*"")="""",ZTSAVE(""ZTREQ"")=""@"""
^XMB(3.9,82,2,335,0)="""RTN"",""PRCPLO2"",52,0)"
^XMB(3.9,82,2,336,0)=" ;W !!,""<*> please wait <*>"""
^XMB(3.9,82,2,337,0)="""RTN"",""PRCPLO2"",53,0)"
^XMB(3.9,82,2,338,0)=" ;*83 Build report with station and inventory point passed in from PRCPLO1 call"
^XMB(3.9,82,2,339,0)="""RTN"",""PRCPLO2"",54,0)"
^XMB(3.9,82,2,340,0)="DQ ;  queue starts here"
^XMB(3.9,82,2,341,0)="""RTN"",""PRCPLO2"",55,0)"
^XMB(3.9,82,2,342,0)=" N ACCT,ADJ,ADJN,AVERAGE,D,DA,DATE,DATELONG,DUEIN,DUEOUT,INACT,INACTN,INVVAL,ISS,ISSN,ITEMDA,LONG,LONGN,NONISS,NONISSN,ONHAND,OPEN,QTY,REC,RECN,TOTAL,TOTDAYS,TRANSNO,TYPE,VALUE"
^XMB(3.9,82,2,343,0)="""RTN"",""PRCPLO2"",56,0)"
^XMB(3.9,82,2,344,0)=" ;*83 Added newing of variables"
^XMB(3.9,82,2,345,0)="""RTN"",""PRCPLO2"",57,0)"
^XMB(3.9,82,2,346,0)=" N STA,INV,TOTOPEN,TOTREC,TOTISS,TOTADJ,TOTCLOS,RECNM,TOTN,DATRN,TOTINA,TOTIS1,TOTAD1,TOTIND,TOTLNG,TOTLND,DAYS,DATRN1"
^XMB(3.9,82,2,347,0)="""RTN"",""PRCPLO2"",58,0)"
^XMB(3.9,82,2,348,0)=" ;"
^XMB(3.9,82,2,349,0)="""RTN"",""PRCPLO2"",59,0)"
^XMB(3.9,82,2,350,0)=" K OPEN"
^XMB(3.9,82,2,351,0)="""RTN"",""PRCPLO2"",60,0)"
^XMB(3.9,82,2,352,0)=" S ITEMDA=0 F  S ITEMDA=$O(^PRCP(445.1,PRCP(""I""),1,ITEMDA)) Q:'ITEMDA  S X=$$GETOPEN^PRCPUBAL(PRCP(""I""),ITEMDA,$E(DATESTRT,1,5)) I X'="""" D"
^XMB(3.9,82,2,353,0)="""RTN"",""PRCPLO2"",61,0)"
^XMB(3.9,82,2,354,0)=" .   S ACCT=$$ACCT1^PRCPUX1($$FSC^PRCPUX1(ITEMDA))"
^XMB(3.9,82,2,355,0)="""RTN"",""PRCPLO2"",62,0)"
^XMB(3.9,82,2,356,0)=" .   S $P(OPEN(ACCT),""^"")=$P($G(OPEN(ACCT)),""^"")+$P(X,""^"",2)+$P(X,""^"",3)"
^XMB(3.9,82,2,357,0)="""RTN"",""PRCPLO2"",63,0)"
^XMB(3.9,82,2,358,0)=" .   S $P(OPEN(ACCT),""^"",2)=$P($G(OPEN(ACCT)),""^"",2)+$P(X,""^"",8)"
^XMB(3.9,82,2,359,0)="""RTN"",""PRCPLO2"",64,0)"
^XMB(3.9,82,2,360,0)=" S DATE=DATESTRT F  S DATE=$O(^PRCP(445.2,""AX"",PRCP(""I""),DATE)) Q:$E(DATE,1,5)'=$E(DATESTRT,1,5)  S TYPE="""" F  S TYPE=$O(^PRCP(445.2,""AX"",PRCP(""I""),DATE,TYPE)) Q:TYPE=""""  D"
^XMB(3.9,82,2,361,0)="""RTN"",""PRCPLO2"",65,0)"
^XMB(3.9,82,2,362,0)=" .   S DA=0 F  S DA=$O(^PRCP(445.2,""AX"",PRCP(""I""),DATE,TYPE,DA)) Q:'DA  D"
^XMB(3.9,82,2,363,0)="""RTN"",""PRCPLO2"",66,0)"
^XMB(3.9,82,2,364,0)=" .   .   S D=$G(^PRCP(445.2,DA,0)) I '$P(D,""^"",5) Q"
^XMB(3.9,82,2,365,0)="""RTN"",""PRCPLO2"",67,0)"
^XMB(3.9,82,2,366,0)=" .   .   ;  non-issuable"
^XMB(3.9,82,2,367,0)="""RTN"",""PRCPLO2"",68,0)"
^XMB(3.9,82,2,368,0)=" .   .   Q:$P(D,""^"",11)=""N""  ;count if not flagged as non-issueable"
^XMB(3.9,82,2,369,0)="""RTN"",""PRCPLO2"",69,0)"
^XMB(3.9,82,2,370,0)=" .   .   S ACCT=$$ACCT1^PRCPUX1($$FSC^PRCPUX1($P(D,""^"",5)))"
^XMB(3.9,82,2,371,0)="""RTN"",""PRCPLO2"",70,0)"
^XMB(3.9,82,2,372,0)=" .   .   S TRANSNO=$P(D,""^"",19)"
^XMB(3.9,82,2,373,0)="""RTN"",""PRCPLO2"",71,0)"
^XMB(3.9,82,2,374,0)=" .   .   S INVVAL=$P(D,""^"",7)*$P(D,""^"",8) I $P(D,""^"",22)'="""" S INVVAL=$P(D,""^"",22)"
^XMB(3.9,82,2,375,0)="""RTN"",""PRCPLO2"",72,0)"
^XMB(3.9,82,2,376,0)=" .   .   ;  set transno temporary for primary and secondary to"
^XMB(3.9,82,2,377,0)="""RTN"",""PRCPLO2"",73,0)"
^XMB(3.9,82,2,378,0)=" .   .   ;  indicate type of transaction"
^XMB(3.9,82,2,379,0)="""RTN"",""PRCPLO2"",74,0)"
^XMB(3.9,82,2,380,0)=" .   .   I PRCP(""DPTYPE"")'=""W"" D"
^XMB(3.9,82,2,381,0)="""RTN"",""PRCPLO2"",75,0)"
^XMB(3.9,82,2,382,0)=" .   .   .   I TYPE=""R""!(TYPE=""C"")!(TYPE=""E"")!(TYPE=""U"")!(TYPE=""S"") S TRANSNO=""--1"" Q  ;issue"
^XMB(3.9,82,2,383,0)="""RTN"",""PRCPLO2"",76,0)"
^XMB(3.9,82,2,384,0)=" .   .   .   I TYPE=""RC"" S TRANSNO=1 Q  ;receipt"
^XMB(3.9,82,2,385,0)="""RTN"",""PRCPLO2"",77,0)"
^XMB(3.9,82,2,386,0)=" .   .   .   S TRANSNO="""" ;adjustment"
^XMB(3.9,82,2,387,0)="""RTN"",""PRCPLO2"",78,0)"
^XMB(3.9,82,2,388,0)=" .   .   ;  other adjustments"
^XMB(3.9,82,2,389,0)="""RTN"",""PRCPLO2"",79,0)"
^XMB(3.9,82,2,390,0)=" .   .   I PRCP(""DPTYPE"")=""W"",$P(TRANSNO,""-"",2)="""" S ADJ(ACCT)=$G(ADJ(ACCT))+INVVAL,ADJN(ACCT)=$G(ADJN(ACCT))+1 Q"
^XMB(3.9,82,2,391,0)="""RTN"",""PRCPLO2"",80,0)"
^XMB(3.9,82,2,392,0)=" .   .   I TRANSNO="""" S ADJ(ACCT)=$G(ADJ(ACCT))+INVVAL,ADJN(ACCT)=$G(ADJN(ACCT))+1"
^XMB(3.9,82,2,393,0)="""RTN"",""PRCPLO2"",81,0)"
^XMB(3.9,82,2,394,0)=" .   .   E  D"
^XMB(3.9,82,2,395,0)="""RTN"",""PRCPLO2"",82,0)"
^XMB(3.9,82,2,396,0)=" .   .   .   ;  purchase order"
^XMB(3.9,82,2,397,0)="""RTN"",""PRCPLO2"",83,0)"
^XMB(3.9,82,2,398,0)=" .   .   .   I $P(TRANSNO,""-"",3)="""" S REC(ACCT)=$G(REC(ACCT))+INVVAL,RECN(ACCT)=$G(RECN(ACCT))+1 Q"
^XMB(3.9,82,2,399,0)="""RTN"",""PRCPLO2"",84,0)"
^XMB(3.9,82,2,400,0)=" .   .   .   ;  issue"
^XMB(3.9,82,2,401,0)="""RTN"",""PRCPLO2"",85,0)"
^XMB(3.9,82,2,402,0)=" .   .   .   S ISS(ACCT)=$G(ISS(ACCT))+INVVAL,ISSN(ACCT)=$G(ISSN(ACCT))+1"
^XMB(3.9,82,2,403,0)="""RTN"",""PRCPLO2"",86,0)"
^XMB(3.9,82,2,404,0)=" ;  calculate inactive, long supply, set non-issuable"
^XMB(3.9,82,2,405,0)="""RTN"",""PRCPLO2"",87,0)"
^XMB(3.9,82,2,406,0)=" S X1=$E(DT,1,5)_""01"",X2=-89 D C^%DTC S DATELONG=$E(X,1,5),X1=DT,X2=$E(X,1,5)_""00"" D ^%DTC S TOTDAYS=X"
^XMB(3.9,82,2,407,0)="""RTN"",""PRCPLO2"",88,0)"
^XMB(3.9,82,2,408,0)=" S ITEMDA=0 F  S ITEMDA=$O(^PRCP(445,PRCP(""I""),1,ITEMDA)) Q:'ITEMDA  S D=$G(^(ITEMDA,0)) I D'="""" D"
^XMB(3.9,82,2,409,0)="""RTN"",""PRCPLO2"",89,0)"
^XMB(3.9,82,2,410,0)=" .   S ACCT=$$ACCT1^PRCPUX1($$FSC^PRCPUX1(ITEMDA))"
^XMB(3.9,82,2,411,0)="""RTN"",""PRCPLO2"",90,0)"
^XMB(3.9,82,2,412,0)=" .   ;  value"
^XMB(3.9,82,2,413,0)="""RTN"",""PRCPLO2"",91,0)"
^XMB(3.9,82,2,414,0)=" .   S VALUE(ACCT)=$G(VALUE(ACCT))+$P(D,""^"",27)"
^XMB(3.9,82,2,415,0)="""RTN"",""PRCPLO2"",92,0)"
^XMB(3.9,82,2,416,0)=" .   S DUEIN(ACCT)=$G(DUEIN(ACCT))+($$GETIN^PRCPUDUE(PRCP(""I""),ITEMDA)*$P(D,""^"",22))"
^XMB(3.9,82,2,417,0)="""RTN"",""PRCPLO2"",93,0)"
^XMB(3.9,82,2,418,0)=" .   S DUEOUT(ACCT)=$G(DUEOUT(ACCT))+($$GETOUT^PRCPUDUE(PRCP(""I""),ITEMDA)*$P(D,""^"",22))"
^XMB(3.9,82,2,419,0)="""RTN"",""PRCPLO2"",94,0)"
^XMB(3.9,82,2,420,0)=" .   ;  non-issuable"
^XMB(3.9,82,2,421,0)="""RTN"",""PRCPLO2"",95,0)"
^XMB(3.9,82,2,422,0)=" .   I $P(D,""^"",19) S NONISS(ACCT)=$G(NONISS(ACCT))+($J($P(D,""^"",19)*$P(D,""^"",22),0,2)),NONISSN(ACCT)=$G(NONISSN(ACCT))+1"
^XMB(3.9,82,2,423,0)="""RTN"",""PRCPLO2"",96,0)"
^XMB(3.9,82,2,424,0)=" .   ;  inactive"
^XMB(3.9,82,2,425,0)="""RTN"",""PRCPLO2"",97,0)"
^XMB(3.9,82,2,426,0)=" .   ;  if reusable, quit"
^XMB(3.9,82,2,427,0)="""RTN"",""PRCPLO2"",98,0)"
^XMB(3.9,82,2,428,0)=" .   I $$REUSABLE^PRCPU441(ITEMDA) Q"
^XMB(3.9,82,2,429,0)="""RTN"",""PRCPLO2"",99,0)"
^XMB(3.9,82,2,430,0)=" .   S QTY=$P(D,""^"",7)+$P(D,""^"",19)"
^XMB(3.9,82,2,431,0)="""RTN"",""PRCPLO2"",100,0)"
^XMB(3.9,82,2,432,0)=" .   I QTY,'$O(^PRCP(445,PRCP(""I""),1,ITEMDA,2,$E(DATEINAC,1,5)-.01)),'$O(^PRCP(445,PRCP(""I""),1,ITEMDA,3,DATEINAC)) S INACT(ACCT)=$G(INACT(ACCT))+$P(D,""^"",27),INACTN(ACCT)=$G(INACTN(ACCT))+1"
^XMB(3.9,82,2,433,0)="""RTN"",""PRCPLO2"",101,0)"
^XMB(3.9,82,2,434,0)=" .   ;  long supply"
^XMB(3.9,82,2,435,0)="""RTN"",""PRCPLO2"",102,0)"
^XMB(3.9,82,2,436,0)=" .   S DATE=DATELONG-.01,TOTAL=0 F  S DATE=$O(^PRCP(445,PRCP(""I""),1,ITEMDA,2,DATE)) Q:'DATE  S TOTAL=TOTAL+$P($G(^(DATE,0)),""^"",2)"
^XMB(3.9,82,2,437,0)="""RTN"",""PRCPLO2"",103,0)"
^XMB(3.9,82,2,438,0)=" .   S AVERAGE=$J(TOTAL/TOTDAYS,0,2),TOTAL=$S('AVERAGE&(QTY):9999999,'AVERAGE:0,1:QTY/AVERAGE\1)"
^XMB(3.9,82,2,439,0)="""RTN"",""PRCPLO2"",104,0)"
^XMB(3.9,82,2,440,0)=" .   I TOTAL>270 S LONG(ACCT)=$G(LONG(ACCT))+$P(D,""^"",27),LONGN(ACCT)=$G(LONGN(ACCT))+1"
^XMB(3.9,82,2,441,0)="""RTN"",""PRCPLO2"",105,0)"
^XMB(3.9,82,2,442,0)=" ;"
^XMB(3.9,82,2,443,0)="""RTN"",""PRCPLO2"",106,0)"
^XMB(3.9,82,2,444,0)=" D ENT^PRCPLO2A"
^XMB(3.9,82,2,445,0)="""RTN"",""PRCPLO2"",107,0)"
^XMB(3.9,82,2,446,0)=" ;"
^XMB(3.9,82,2,447,0)="""RTN"",""PRCPLO2"",108,0)"
^XMB(3.9,82,2,448,0)=" Q"
^XMB(3.9,82,2,449,0)="""RTN"",""PRCPOPL"")"
^XMB(3.9,82,2,450,0)="0^4^B25807256^B23658744"
^XMB(3.9,82,2,451,0)="""RTN"",""PRCPOPL"",1,0)"
^XMB(3.9,82,2,452,0)="PRCPOPL ;WISC/RFJ/DGL-distribution order processing list manager ; 3/20/00 9:27am"
^XMB(3.9,82,2,453,0)="""RTN"",""PRCPOPL"",2,0)"
^XMB(3.9,82,2,454,0)="V ;;5.1;IFCAP;**1,41**;Oct 20, 2000"
^XMB(3.9,82,2,455,0)="""RTN"",""PRCPOPL"",3,0)"
^XMB(3.9,82,2,456,0)=" ;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,82,2,457,0)="""RTN"",""PRCPOPL"",4,0)"
^XMB(3.9,82,2,458,0)=" D ^PRCPUSEL Q:'$G(PRCP(""I""))"
^XMB(3.9,82,2,459,0)="""RTN"",""PRCPOPL"",5,0)"
^XMB(3.9,82,2,460,0)=" I ""PS""'[PRCP(""DPTYPE"") W !,""THIS OPTION SHOULD ONLY BE USED BY A PRIMARY OR SECONDARY INVENTORY POINT."" Q"
^XMB(3.9,82,2,461,0)="""RTN"",""PRCPOPL"",6,0)"
^XMB(3.9,82,2,462,0)=" ;"
^XMB(3.9,82,2,463,0)="""RTN"",""PRCPOPL"",7,0)"
^XMB(3.9,82,2,464,0)=" N %,ORDERDA,PRCPFNEW,PRCPFONE,PRCPORD,PRCPPAT,PRCPPRIM,PRCPSECO,VA,X,Y"
^XMB(3.9,82,2,465,0)="""RTN"",""PRCPOPL"",8,0)"
^XMB(3.9,82,2,466,0)=" ;"
^XMB(3.9,82,2,467,0)="""RTN"",""PRCPOPL"",9,0)"
^XMB(3.9,82,2,468,0)=" I PRCP(""DPTYPE"")=""S"" S PRCPPRIM=+$$FROMCHEK^PRCPUDPT(PRCP(""I""),1) Q:'PRCPPRIM  S PRCPSECO=PRCP(""I"")"
^XMB(3.9,82,2,469,0)="""RTN"",""PRCPOPL"",10,0)"
^XMB(3.9,82,2,470,0)=" I PRCP(""DPTYPE"")=""P"" S PRCPSECO=+$$TO^PRCPUDPT(PRCP(""I"")) Q:'PRCPSECO  S PRCPPRIM=PRCP(""I"")"
^XMB(3.9,82,2,471,0)="""RTN"",""PRCPOPL"",11,0)"
^XMB(3.9,82,2,472,0)=" W !!,""** Distribution "",$S(PRCP(""DPTYPE"")=""S"":""from"",1:""to"")_"" inventory point: "",$$INVNAME^PRCPUX1($S(PRCP(""DPTYPE"")=""S"":PRCPPRIM,1:PRCPSECO)),"" **"""
^XMB(3.9,82,2,473,0)="""RTN"",""PRCPOPL"",12,0)"
^XMB(3.9,82,2,474,0)=" ;"
^XMB(3.9,82,2,475,0)="""RTN"",""PRCPOPL"",13,0)"
^XMB(3.9,82,2,476,0)=" F  W !! S ORDERDA=+$$ORDERSEL^PRCPOPUS(PRCPPRIM,PRCPSECO,""*"",1) Q:'ORDERDA  D"
^XMB(3.9,82,2,477,0)="""RTN"",""PRCPOPL"",14,0)"
^XMB(3.9,82,2,478,0)=" .   W !"
^XMB(3.9,82,2,479,0)="""RTN"",""PRCPOPL"",15,0)"
^XMB(3.9,82,2,480,0)=" .   L +^PRCP(445.3,ORDERDA):5 I '$T D SHOWWHO^PRCPULOC(445.3,ORDERDA,0) D R^PRCPUREP Q"
^XMB(3.9,82,2,481,0)="""RTN"",""PRCPOPL"",16,0)"
^XMB(3.9,82,2,482,0)=" .   D ADD^PRCPULOC(445.3,ORDERDA,0,""Distribution Order Processing"")"
^XMB(3.9,82,2,483,0)="""RTN"",""PRCPOPL"",17,0)"
^XMB(3.9,82,2,484,0)=" .   I $$TYPE^PRCPOPUS(ORDERDA) D UNLOCK Q"
^XMB(3.9,82,2,485,0)="""RTN"",""PRCPOPL"",18,0)"
^XMB(3.9,82,2,486,0)=" .   W ! I $$REMARKS^PRCPOPUS(ORDERDA) D UNLOCK Q"
^XMB(3.9,82,2,487,0)="""RTN"",""PRCPOPL"",19,0)"
^XMB(3.9,82,2,488,0)=" .   D VARIABLE^PRCPOPU"
^XMB(3.9,82,2,489,0)="""RTN"",""PRCPOPL"",20,0)"
^XMB(3.9,82,2,490,0)=" .   D EN^VALM(""PRCP DIST ORDER PROCESSING"")"
^XMB(3.9,82,2,491,0)="""RTN"",""PRCPOPL"",21,0)"
^XMB(3.9,82,2,492,0)=" .   D UNLOCK"
^XMB(3.9,82,2,493,0)="""RTN"",""PRCPOPL"",22,0)"
^XMB(3.9,82,2,494,0)=" Q"
^XMB(3.9,82,2,495,0)="""RTN"",""PRCPOPL"",23,0)"
^XMB(3.9,82,2,496,0)=" ;"
^XMB(3.9,82,2,497,0)="""RTN"",""PRCPOPL"",24,0)"
^XMB(3.9,82,2,498,0)=" ;"
^XMB(3.9,82,2,499,0)="""RTN"",""PRCPOPL"",25,0)"
^XMB(3.9,82,2,500,0)="UNLOCK ;  unlock distribution order"
^XMB(3.9,82,2,501,0)="""RTN"",""PRCPOPL"",26,0)"
^XMB(3.9,82,2,502,0)=" D CLEAR^PRCPULOC(445.3,ORDERDA,0)"
^XMB(3.9,82,2,503,0)="""RTN"",""PRCPOPL"",27,0)"
^XMB(3.9,82,2,504,0)=" L -^PRCP(445.3,ORDERDA)"
^XMB(3.9,82,2,505,0)="""RTN"",""PRCPOPL"",28,0)"
^XMB(3.9,82,2,506,0)=" Q"
^XMB(3.9,82,2,507,0)="""RTN"",""PRCPOPL"",29,0)"
^XMB(3.9,82,2,508,0)=" ;"
^XMB(3.9,82,2,509,0)="""RTN"",""PRCPOPL"",30,0)"
^XMB(3.9,82,2,510,0)=" ;"
^XMB(3.9,82,2,511,0)="""RTN"",""PRCPOPL"",31,0)"
^XMB(3.9,82,2,512,0)="HDR ;  build header"
^XMB(3.9,82,2,513,0)="""RTN"",""PRCPOPL"",32,0)"
^XMB(3.9,82,2,514,0)=" K VALMHDR"
^XMB(3.9,82,2,515,0)="""RTN"",""PRCPOPL"",33,0)"
^XMB(3.9,82,2,516,0)=" I $P($G(PRCPORD(2)),""^"")'="""" S VALMHDR(1)=$E(""POST ITEMS TO: ""_$P(PRCPORD(2),""^"")_$J("" "",80),1,47)_""  THRU SECONDARY: ""_$E($P(PRCPORD(0),""^"",3),1,15)"
^XMB(3.9,82,2,517,0)="""RTN"",""PRCPOPL"",34,0)"
^XMB(3.9,82,2,518,0)=" I $P($G(PRCPORD(2)),""^"")="""" S VALMHDR(1)=""POST ITEMS TO SECONDARY: ""_$P(PRCPORD(0),""^"",3)"
^XMB(3.9,82,2,519,0)="""RTN"",""PRCPOPL"",35,0)"
^XMB(3.9,82,2,520,0)=" S VALMHDR(2)=$E(""  ""_$E($P(PRCPORD(0),""^"",2),1,15)_"" DISTRIBUTION ORDER: ""_$P(PRCPORD(0),""^"")_$J("" "",50),1,49)_""STATUS: ""_$$STATUS^PRCPOPU(ORDERDA)"
^XMB(3.9,82,2,521,0)="""RTN"",""PRCPOPL"",36,0)"
^XMB(3.9,82,2,522,0)=" Q"
^XMB(3.9,82,2,523,0)="""RTN"",""PRCPOPL"",37,0)"
^XMB(3.9,82,2,524,0)=" ;"
^XMB(3.9,82,2,525,0)="""RTN"",""PRCPOPL"",38,0)"
^XMB(3.9,82,2,526,0)=" ;"
^XMB(3.9,82,2,527,0)="""RTN"",""PRCPOPL"",39,0)"
^XMB(3.9,82,2,528,0)="INIT ;  init variables and build array"
^XMB(3.9,82,2,529,0)="""RTN"",""PRCPOPL"",40,0)"
^XMB(3.9,82,2,530,0)=" N DATA,ITEMDA,ITEMDATA,QTYOH,STATUS"
^XMB(3.9,82,2,531,0)="""RTN"",""PRCPOPL"",41,0)"
^XMB(3.9,82,2,532,0)=" K ^TMP($J,""PRCPOP"")"
^XMB(3.9,82,2,533,0)="""RTN"",""PRCPOPL"",42,0)"
^XMB(3.9,82,2,534,0)=" S VALMCNT=0"
^XMB(3.9,82,2,535,0)="""RTN"",""PRCPOPL"",43,0)"
^XMB(3.9,82,2,536,0)=" I $P(^PRCP(445.3,ORDERDA,0),""^"",10)]"""" D SET(""  ***This Order was sent to the supply station and cannot be updated. ***""),SET("" "")"
^XMB(3.9,82,2,537,0)="""RTN"",""PRCPOPL"",44,0)"
^XMB(3.9,82,2,538,0)=" S STATUS=$P(^PRCP(445.3,ORDERDA,0),""^"",6)"
^XMB(3.9,82,2,539,0)="""RTN"",""PRCPOPL"",45,0)"
^XMB(3.9,82,2,540,0)=" S ITEMDA=0 F  S ITEMDA=$O(^PRCP(445.3,ORDERDA,1,ITEMDA)) Q:'ITEMDA  S DATA=$G(^(ITEMDA,0)) I DATA'="""" D"
^XMB(3.9,82,2,541,0)="""RTN"",""PRCPOPL"",46,0)"
^XMB(3.9,82,2,542,0)=" .   D BLDARRAY(PRCPPRIM,PRCPSECO,ITEMDA,$P(DATA,""^"",2),STATUS)"
^XMB(3.9,82,2,543,0)="""RTN"",""PRCPOPL"",47,0)"
^XMB(3.9,82,2,544,0)=" .   S ITEMDATA=$G(^PRCP(445,PRCPPRIM,1,ITEMDA,0)),QTYOH=+$P($G(ITEMDATA),""^"",7)"
^XMB(3.9,82,2,545,0)="""RTN"",""PRCPOPL"",48,0)"
^XMB(3.9,82,2,546,0)=" .   I ITEMDATA="""" D SET(""  *** WARNING -- ITEM IS NO LONGER STOCKED IN PRIMARY INVENTORY POINT *** "") Q"
^XMB(3.9,82,2,547,0)="""RTN"",""PRCPOPL"",49,0)"
^XMB(3.9,82,2,548,0)=" .   I STATUS'=""P""&($P(DATA,""^"",2)>QTYOH),QTYOH'<0 D"
^XMB(3.9,82,2,549,0)="""RTN"",""PRCPOPL"",50,0)"
^XMB(3.9,82,2,550,0)=" .   .   D SET(""     *** WARNING -- QTY ORDERED (""_$P(DATA,""^"",2)_"") IS MORE THAN QTY ON HAND (""_QTYOH_"") ***"")"
^XMB(3.9,82,2,551,0)="""RTN"",""PRCPOPL"",51,0)"
^XMB(3.9,82,2,552,0)=" .   .   D SET(""     *** Quantity on hand will be posted unless quantity ordered is edited ***"")"
^XMB(3.9,82,2,553,0)="""RTN"",""PRCPOPL"",52,0)"
^XMB(3.9,82,2,554,0)=" .   I STATUS'=""P""&($P(DATA,""^"",2)>QTYOH),QTYOH<0 D"
^XMB(3.9,82,2,555,0)="""RTN"",""PRCPOPL"",53,0)"
^XMB(3.9,82,2,556,0)=" .   .   D SET(""     *** WARNING -- QTY ORDERED (""_$P(DATA,""^"",2)_"") IS MORE THAN QTY ON HAND (""_QTYOH_"") ***"")"
^XMB(3.9,82,2,557,0)="""RTN"",""PRCPOPL"",54,0)"
^XMB(3.9,82,2,558,0)=" .   .   D SET("" *** A quantity of ZERO(0) will be posted unless quantity ordered is edited ***"")"
^XMB(3.9,82,2,559,0)="""RTN"",""PRCPOPL"",55,0)"
^XMB(3.9,82,2,560,0)=" .   I STATUS=""P""&($P(DATA,""^"",2)'=$P(DATA,""^"",7)) D SET(""              *** Actual posted quantity was ""_$P(DATA,""^"",7)_"" ***"")"
^XMB(3.9,82,2,561,0)="""RTN"",""PRCPOPL"",56,0)"
^XMB(3.9,82,2,562,0)=" ;"
^XMB(3.9,82,2,563,0)="""RTN"",""PRCPOPL"",57,0)"
^XMB(3.9,82,2,564,0)=" I VALMCNT=0 D SET("" ""),SET(""  * * * NO ITEMS ARE ON THIS ORDER * * *"")"
^XMB(3.9,82,2,565,0)="""RTN"",""PRCPOPL"",58,0)"
^XMB(3.9,82,2,566,0)=" Q"
^XMB(3.9,82,2,567,0)="""RTN"",""PRCPOPL"",59,0)"
^XMB(3.9,82,2,568,0)=" ;"
^XMB(3.9,82,2,569,0)="""RTN"",""PRCPOPL"",60,0)"
^XMB(3.9,82,2,570,0)=" ;"
^XMB(3.9,82,2,571,0)="""RTN"",""PRCPOPL"",61,0)"
^XMB(3.9,82,2,572,0)="BLDARRAY(PRCPPRIM,PRCPSECO,ITEMDA,QTYORDER,STATUS) ;  build item array"
^XMB(3.9,82,2,573,0)="""RTN"",""PRCPOPL"",62,0)"
^XMB(3.9,82,2,574,0)=" S:'$D(STATUS) STATUS=0"
^XMB(3.9,82,2,575,0)="""RTN"",""PRCPOPL"",63,0)"
^XMB(3.9,82,2,576,0)=" S X=$$SETFLD^VALM1(""  ""_$E($$DESCR^PRCPUX1(PRCPPRIM,ITEMDA),1,28)_"" (#""_ITEMDA_"")"","""",""ITEM"")"
^XMB(3.9,82,2,577,0)="""RTN"",""PRCPOPL"",64,0)"
^XMB(3.9,82,2,578,0)=" S X=$$SETFLD^VALM1($P($$UNIT^PRCPUX1(PRCPPRIM,ITEMDA,""^""),""^"",2),X,""UNIT"")"
^XMB(3.9,82,2,579,0)="""RTN"",""PRCPOPL"",65,0)"
^XMB(3.9,82,2,580,0)=" S X=$$SETFLD^VALM1(QTYORDER,X,""ORDERED"")"
^XMB(3.9,82,2,581,0)="""RTN"",""PRCPOPL"",66,0)"
^XMB(3.9,82,2,582,0)=" S X=$$SETFLD^VALM1($P($$GETVEN^PRCPUVEN(PRCPSECO,ITEMDA,PRCPPRIM_"";PRCP(445,"",1),""^"",4),X,""CONV"")"
^XMB(3.9,82,2,583,0)="""RTN"",""PRCPOPL"",67,0)"
^XMB(3.9,82,2,584,0)=" I STATUS'=""P"" S X=$$SETFLD^VALM1($P($G(^PRCP(445,PRCPPRIM,1,ITEMDA,0)),""^"",7),X,""ONHAND"")"
^XMB(3.9,82,2,585,0)="""RTN"",""PRCPOPL"",68,0)"
^XMB(3.9,82,2,586,0)=" S VALMCNT=VALMCNT+1"
^XMB(3.9,82,2,587,0)="""RTN"",""PRCPOPL"",69,0)"
^XMB(3.9,82,2,588,0)=" D SET^VALM10(VALMCNT,X,VALMCNT)"
^XMB(3.9,82,2,589,0)="""RTN"",""PRCPOPL"",70,0)"
^XMB(3.9,82,2,590,0)=" Q"
^XMB(3.9,82,2,591,0)="""RTN"",""PRCPOPL"",71,0)"
^XMB(3.9,82,2,592,0)=" ;"
^XMB(3.9,82,2,593,0)="""RTN"",""PRCPOPL"",72,0)"
^XMB(3.9,82,2,594,0)=" ;"
^XMB(3.9,82,2,595,0)="""RTN"",""PRCPOPL"",73,0)"
^XMB(3.9,82,2,596,0)="EXIT ;  exit and clean up"
^XMB(3.9,82,2,597,0)="""RTN"",""PRCPOPL"",74,0)"
^XMB(3.9,82,2,598,0)=" K ^TMP($J,""PRCPOP"")"
^XMB(3.9,82,2,599,0)="""RTN"",""PRCPOPL"",75,0)"
^XMB(3.9,82,2,600,0)=" Q"
^XMB(3.9,82,2,601,0)="""RTN"",""PRCPOPL"",76,0)"
^XMB(3.9,82,2,602,0)=" ;"
^XMB(3.9,82,2,603,0)="""RTN"",""PRCPOPL"",77,0)"
^XMB(3.9,82,2,604,0)=" ;"
^XMB(3.9,82,2,605,0)="""RTN"",""PRCPOPL"",78,0)"
^XMB(3.9,82,2,606,0)="EEITEMS ;  called from protocol file to enter/edit invpt items"
^XMB(3.9,82,2,607,0)="""RTN"",""PRCPOPL"",79,0)"
^XMB(3.9,82,2,608,0)=" N PRC,PRCP"
^XMB(3.9,82,2,609,0)="""RTN"",""PRCPOPL"",80,0)"
^XMB(3.9,82,2,610,0)=" S PRCP(""DPTYPE"")=""PS"""
^XMB(3.9,82,2,611,0)="""RTN"",""PRCPOPL"",81,0)"
^XMB(3.9,82,2,612,0)=" D ^PRCPEILM"
^XMB(3.9,82,2,613,0)="""RTN"",""PRCPOPL"",82,0)"
^XMB(3.9,82,2,614,0)=" D INIT"
^XMB(3.9,82,2,615,0)="""RTN"",""PRCPOPL"",83,0)"
^XMB(3.9,82,2,616,0)=" S VALMBCK=""R"""
^XMB(3.9,82,2,617,0)="""RTN"",""PRCPOPL"",84,0)"
^XMB(3.9,82,2,618,0)=" Q"
^XMB(3.9,82,2,619,0)="""RTN"",""PRCPOPL"",85,0)"
^XMB(3.9,82,2,620,0)=" ;"
^XMB(3.9,82,2,621,0)="""RTN"",""PRCPOPL"",86,0)"
^XMB(3.9,82,2,622,0)=" ;"
^XMB(3.9,82,2,623,0)="""RTN"",""PRCPOPL"",87,0)"
^XMB(3.9,82,2,624,0)="CHECK(TYPE)        ;  called when screen displays and when protocol selected"
^XMB(3.9,82,2,625,0)="""RTN"",""PRCPOPL"",88,0)"
^XMB(3.9,82,2,626,0)=" ;  causes () to be display around inappropriate protocol selections"
^XMB(3.9,82,2,627,0)="""RTN"",""PRCPOPL"",89,0)"
^XMB(3.9,82,2,628,0)=" ;  type=""edit"" or ""delete"" or ""release"" or ""picktick"" or ""post"""
^XMB(3.9,82,2,629,0)="""RTN"",""PRCPOPL"",90,0)"
^XMB(3.9,82,2,630,0)=" ;  returns 1 for sucess, 0 for no"
^XMB(3.9,82,2,631,0)="""RTN"",""PRCPOPL"",91,0)"
^XMB(3.9,82,2,632,0)=" I '$D(^PRCP(445.3,$G(ORDERDA),0)) Q 0"
^XMB(3.9,82,2,633,0)="""RTN"",""PRCPOPL"",92,0)"
^XMB(3.9,82,2,634,0)=" N STATUS,SECID"
^XMB(3.9,82,2,635,0)="""RTN"",""PRCPOPL"",93,0)"
^XMB(3.9,82,2,636,0)=" S STATUS=$P(^PRCP(445.3,ORDERDA,0),""^"",6) S:STATUS=""B"" STATUS=""R"""
^XMB(3.9,82,2,637,0)="""RTN"",""PRCPOPL"",94,0)"
^XMB(3.9,82,2,638,0)=" S SECID=$P(^PRCP(445.3,ORDERDA,0),""^"",3)"
^XMB(3.9,82,2,639,0)="""RTN"",""PRCPOPL"",95,0)"
^XMB(3.9,82,2,640,0)=" I TYPE=""EDIT"",PRCP(""DPTYPE"")=""S"",STATUS'="""" Q 0"
^XMB(3.9,82,2,641,0)="""RTN"",""PRCPOPL"",96,0)"
^XMB(3.9,82,2,642,0)=" I TYPE'=""DELETE"",TYPE'=""PICKTICK"",TYPE'=""SEND"",$P(^PRCP(445.3,ORDERDA,0),""^"",10)]"""" Q 0"
^XMB(3.9,82,2,643,0)="""RTN"",""PRCPOPL"",97,0)"
^XMB(3.9,82,2,644,0)=" I TYPE=""EDIT"",STATUS=""P"" Q 0"
^XMB(3.9,82,2,645,0)="""RTN"",""PRCPOPL"",98,0)"
^XMB(3.9,82,2,646,0)=" I TYPE=""DELETE"",PRCP(""DPTYPE"")=""S"",STATUS'="""" Q 0"
^XMB(3.9,82,2,647,0)="""RTN"",""PRCPOPL"",99,0)"
^XMB(3.9,82,2,648,0)=" I TYPE=""DELETE"",STATUS=""P"" Q 0"
^XMB(3.9,82,2,649,0)="""RTN"",""PRCPOPL"",100,0)"
^XMB(3.9,82,2,650,0)=" I TYPE=""RELEASE"",STATUS'="""" Q 0"
^XMB(3.9,82,2,651,0)="""RTN"",""PRCPOPL"",101,0)"
^XMB(3.9,82,2,652,0)=" I TYPE=""POST"",PRCP(""DPTYPE"")=""S"" Q 0"
^XMB(3.9,82,2,653,0)="""RTN"",""PRCPOPL"",102,0)"
^XMB(3.9,82,2,654,0)=" I TYPE=""POST"",STATUS="""" Q 0"
^XMB(3.9,82,2,655,0)="""RTN"",""PRCPOPL"",103,0)"
^XMB(3.9,82,2,656,0)=" ;I TYPE=""POST"",$P(^PRCP(445.3,ORDERDA,0),""^"",7)="""" Q 0"
^XMB(3.9,82,2,657,0)="""RTN"",""PRCPOPL"",104,0)"
^XMB(3.9,82,2,658,0)=" I TYPE=""POST"",STATUS=""P"" Q 0"
^XMB(3.9,82,2,659,0)="""RTN"",""PRCPOPL"",105,0)"
^XMB(3.9,82,2,660,0)=" I TYPE=""PICKTICK"",STATUS=""P"" Q 1"
^XMB(3.9,82,2,661,0)="""RTN"",""PRCPOPL"",106,0)"
^XMB(3.9,82,2,662,0)=" I TYPE=""PICKTICK"" I STATUS'=""R"" Q 0"
^XMB(3.9,82,2,663,0)="""RTN"",""PRCPOPL"",107,0)"
^XMB(3.9,82,2,664,0)=" I TYPE=""SEND"",$P(^PRCP(445.3,ORDERDA,0),""^"",8)'=""R"" Q 0"
^XMB(3.9,82,2,665,0)="""RTN"",""PRCPOPL"",108,0)"
^XMB(3.9,82,2,666,0)=" I TYPE=""SEND"",$P($G(^PRCP(445,SECID,5)),""^"",1)']"""" Q 0"
^XMB(3.9,82,2,667,0)="""RTN"",""PRCPOPL"",109,0)"
^XMB(3.9,82,2,668,0)=" I TYPE=""SEND"",STATUS'=""R"" Q 0"
^XMB(3.9,82,2,669,0)="""RTN"",""PRCPOPL"",110,0)"
^XMB(3.9,82,2,670,0)=" Q 1"
^XMB(3.9,82,2,671,0)="""RTN"",""PRCPOPL"",111,0)"
^XMB(3.9,82,2,672,0)=" ;"
^XMB(3.9,82,2,673,0)="""RTN"",""PRCPOPL"",112,0)"
^XMB(3.9,82,2,674,0)=" ;"
^XMB(3.9,82,2,675,0)="""RTN"",""PRCPOPL"",113,0)"
^XMB(3.9,82,2,676,0)="SET(STRING)        ;  set string in array"
^XMB(3.9,82,2,677,0)="""RTN"",""PRCPOPL"",114,0)"
^XMB(3.9,82,2,678,0)=" N %"
^XMB(3.9,82,2,679,0)="""RTN"",""PRCPOPL"",115,0)"
^XMB(3.9,82,2,680,0)=" S VALMCNT=VALMCNT+1"
^XMB(3.9,82,2,681,0)="""RTN"",""PRCPOPL"",116,0)"
^XMB(3.9,82,2,682,0)=" D SET^VALM10(VALMCNT,STRING)"
^XMB(3.9,82,2,683,0)="""RTN"",""PRCPOPL"",117,0)"
^XMB(3.9,82,2,684,0)=" Q"
^XMB(3.9,82,2,685,0)="""RTN"",""PRCPOPP"")"
^XMB(3.9,82,2,686,0)="0^7^B33813357^B33514761"
^XMB(3.9,82,2,687,0)="""RTN"",""PRCPOPP"",1,0)"
^XMB(3.9,82,2,688,0)="PRCPOPP ;WISC/RFJ-post distribution order;  ; 8/4/99 1:05pm"
^XMB(3.9,82,2,689,0)="""RTN"",""PRCPOPP"",2,0)"
^XMB(3.9,82,2,690,0)="V ;;5.1;IFCAP;**1,41**;Oct 20, 2000"
^XMB(3.9,82,2,691,0)="""RTN"",""PRCPOPP"",3,0)"
^XMB(3.9,82,2,692,0)=" ;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,82,2,693,0)="""RTN"",""PRCPOPP"",4,0)"
^XMB(3.9,82,2,694,0)=" Q"
^XMB(3.9,82,2,695,0)="""RTN"",""PRCPOPP"",5,0)"
^XMB(3.9,82,2,696,0)=" ;"
^XMB(3.9,82,2,697,0)="""RTN"",""PRCPOPP"",6,0)"
^XMB(3.9,82,2,698,0)="PRCPSS(ORDERDA,PRCPSECO,PRCPPRIM,PRCPSS) ; entry point for supply station"
^XMB(3.9,82,2,699,0)="""RTN"",""PRCPOPP"",7,0)"
^XMB(3.9,82,2,700,0)=" ; ORDERDA  order to be posted"
^XMB(3.9,82,2,701,0)="""RTN"",""PRCPOPP"",8,0)"
^XMB(3.9,82,2,702,0)=" ; PRCPSECO secondary inventory point"
^XMB(3.9,82,2,703,0)="""RTN"",""PRCPOPP"",9,0)"
^XMB(3.9,82,2,704,0)=" ; PRCPPRIM primary inventory point"
^XMB(3.9,82,2,705,0)="""RTN"",""PRCPOPP"",10,0)"
^XMB(3.9,82,2,706,0)=" ; PRCPSS   flag to designate supply station posting (value = 1)"
^XMB(3.9,82,2,707,0)="""RTN"",""PRCPOPP"",11,0)"
^XMB(3.9,82,2,708,0)=" G PRCPSS0"
^XMB(3.9,82,2,709,0)="""RTN"",""PRCPOPP"",12,0)"
^XMB(3.9,82,2,710,0)=" ;"
^XMB(3.9,82,2,711,0)="""RTN"",""PRCPOPP"",13,0)"
^XMB(3.9,82,2,712,0)="POST ;  post order"
^XMB(3.9,82,2,713,0)="""RTN"",""PRCPOPP"",14,0)"
^XMB(3.9,82,2,714,0)=" ;  orderda=order number"
^XMB(3.9,82,2,715,0)="""RTN"",""PRCPOPP"",15,0)"
^XMB(3.9,82,2,716,0)=" S VALMBCK=""R"""
^XMB(3.9,82,2,717,0)="""RTN"",""PRCPOPP"",16,0)"
^XMB(3.9,82,2,718,0)=" N PRCPSS S PRCPSS=0 ; posting is done at GIP"
^XMB(3.9,82,2,719,0)="""RTN"",""PRCPOPP"",17,0)"
^XMB(3.9,82,2,720,0)=" ;"
^XMB(3.9,82,2,721,0)="""RTN"",""PRCPOPP"",18,0)"
^XMB(3.9,82,2,722,0)="PRCPSS0 N %,CONVFACT,DATA,ITEMDA,ITEMDATA,ORDRDATA,PRCPFLAG,PRCPID,PRCPOH,PRCPOPP,PRCPPORD,PRCPPTDA,PRCPSORD,QTYDUE,QUANTITY,TOTCOST,UNITCOST,XORDERDA,XDT"
^XMB(3.9,82,2,723,0)="""RTN"",""PRCPOPP"",19,0)"
^XMB(3.9,82,2,724,0)=" ;"
^XMB(3.9,82,2,725,0)="""RTN"",""PRCPOPP"",20,0)"
^XMB(3.9,82,2,726,0)=" ;  Check for old orders"
^XMB(3.9,82,2,727,0)="""RTN"",""PRCPOPP"",21,0)"
^XMB(3.9,82,2,728,0)=" S XORDERDA=0 F  S XORDERDA=$O(^PRCP(445.3,XORDERDA)) Q:'XORDERDA  Q:XORDERDA]""A""  D"
^XMB(3.9,82,2,729,0)="""RTN"",""PRCPOPP"",22,0)"
^XMB(3.9,82,2,730,0)=" .  S XDT=$P($G(^PRCP(445.3,XORDERDA,0)),""^"",9)"
^XMB(3.9,82,2,731,0)="""RTN"",""PRCPOPP"",23,0)"
^XMB(3.9,82,2,732,0)=" .  Q:'XDT"
^XMB(3.9,82,2,733,0)="""RTN"",""PRCPOPP"",24,0)"
^XMB(3.9,82,2,734,0)=" .  I XDT+2<DT D DELORDER^PRCPOPD(XORDERDA)"
^XMB(3.9,82,2,735,0)="""RTN"",""PRCPOPP"",25,0)"
^XMB(3.9,82,2,736,0)=" .  Q"
^XMB(3.9,82,2,737,0)="""RTN"",""PRCPOPP"",26,0)"
^XMB(3.9,82,2,738,0)=" ;"
^XMB(3.9,82,2,739,0)="""RTN"",""PRCPOPP"",27,0)"
^XMB(3.9,82,2,740,0)=" I PRCPSS G PRCPSS1 ; checks not valid for supply station posting"
^XMB(3.9,82,2,741,0)="""RTN"",""PRCPOPP"",28,0)"
^XMB(3.9,82,2,742,0)=" ;"
^XMB(3.9,82,2,743,0)="""RTN"",""PRCPOPP"",29,0)"
^XMB(3.9,82,2,744,0)=" W !!,""CHECKING ITEMS ON ORDER..."""
^XMB(3.9,82,2,745,0)="""RTN"",""PRCPOPP"",30,0)"
^XMB(3.9,82,2,746,0)=" S (ITEMDA,PRCPFLAG)=0 F  S ITEMDA=$O(^PRCP(445.3,ORDERDA,1,ITEMDA)) Q:'ITEMDA  S QUANTITY=$P($G(^(ITEMDA,0)),""^"",2) I QUANTITY D  I PRCPFLAG Q"
^XMB(3.9,82,2,747,0)="""RTN"",""PRCPOPP"",31,0)"
^XMB(3.9,82,2,748,0)=" .   I $$ITEMCHK^PRCPOPER(PRCPPRIM,PRCPSECO,ITEMDA)'="""" S PRCPFLAG=1 Q"
^XMB(3.9,82,2,749,0)="""RTN"",""PRCPOPP"",32,0)"
^XMB(3.9,82,2,750,0)=" I PRCPFLAG S VALMSG=""ORDER CANNOT BE POSTED - FIX ALL ERRORS FIRST"" D CHECKORD^PRCPOPER Q"
^XMB(3.9,82,2,751,0)="""RTN"",""PRCPOPP"",33,0)"
^XMB(3.9,82,2,752,0)=" W "" NO ERRORS FOUND !"",!"
^XMB(3.9,82,2,753,0)="""RTN"",""PRCPOPP"",34,0)"
^XMB(3.9,82,2,754,0)=" ;"
^XMB(3.9,82,2,755,0)="""RTN"",""PRCPOPP"",35,0)"
^XMB(3.9,82,2,756,0)=" I $P($G(^PRCP(445.3,ORDERDA,0)),""^"",7)="""" D  Q:$G(PRCPFLAG)"
^XMB(3.9,82,2,757,0)="""RTN"",""PRCPOPP"",36,0)"
^XMB(3.9,82,2,758,0)=" .   S XP=""Do you want to print the picking ticket before posting"",XH=""Enter YES to print the picking ticket, NO to skip printing it, or ^ to exit."""
^XMB(3.9,82,2,759,0)="""RTN"",""PRCPOPP"",37,0)"
^XMB(3.9,82,2,760,0)=" .   S %=$$YN^PRCPUYN(1) I %<1 S PRCPFLAG=1 Q"
^XMB(3.9,82,2,761,0)="""RTN"",""PRCPOPP"",38,0)"
^XMB(3.9,82,2,762,0)=" .   I %'=1 Q"
^XMB(3.9,82,2,763,0)="""RTN"",""PRCPOPP"",39,0)"
^XMB(3.9,82,2,764,0)=" .   D PICKLM^PRCPOPT"
^XMB(3.9,82,2,765,0)="""RTN"",""PRCPOPP"",40,0)"
^XMB(3.9,82,2,766,0)=" ;"
^XMB(3.9,82,2,767,0)="""RTN"",""PRCPOPP"",41,0)"
^XMB(3.9,82,2,768,0)=" S XP=""Are you sure you want to POST this order to ""_$$INVNAME^PRCPUX1(+$P($G(^PRCP(445.3,+ORDERDA,0)),""^"",3)),XH=""Enter 'YES' to start posting the order to the secondary inventory point"",XH(1)=""Enter 'NO' or '^' to exit."""
^XMB(3.9,82,2,769,0)="""RTN"",""PRCPOPP"",42,0)"
^XMB(3.9,82,2,770,0)=" W ! I $$YN^PRCPUYN(1)'=1 Q"
^XMB(3.9,82,2,771,0)="""RTN"",""PRCPOPP"",43,0)"
^XMB(3.9,82,2,772,0)=" ;"
^XMB(3.9,82,2,773,0)="""RTN"",""PRCPOPP"",44,0)"
^XMB(3.9,82,2,774,0)=" L +^PRCP(445,PRCPPRIM,1):5"
^XMB(3.9,82,2,775,0)="""RTN"",""PRCPOPP"",45,0)"
^XMB(3.9,82,2,776,0)=" I '$T D SHOWWHO^PRCPULOC(445,PRCPPRIM_""-1"",0) Q"
^XMB(3.9,82,2,777,0)="""RTN"",""PRCPOPP"",46,0)"
^XMB(3.9,82,2,778,0)=" L +^PRCP(445,PRCPSECO,1):5 I '$T D  Q"
^XMB(3.9,82,2,779,0)="""RTN"",""PRCPOPP"",47,0)"
^XMB(3.9,82,2,780,0)=" . L -^PRCP(445,PRCPPRIM,1)"
^XMB(3.9,82,2,781,0)="""RTN"",""PRCPOPP"",48,0)"
^XMB(3.9,82,2,782,0)=" . D SHOWWHO^PRCPULOC(445,PRCPSECO_""-1"",0)"
^XMB(3.9,82,2,783,0)="""RTN"",""PRCPOPP"",49,0)"
^XMB(3.9,82,2,784,0)=" D ADD^PRCPULOC(445,PRCPPRIM_""-1"",0,""Distribution Order Processing"")"
^XMB(3.9,82,2,785,0)="""RTN"",""PRCPOPP"",50,0)"
^XMB(3.9,82,2,786,0)=" D ADD^PRCPULOC(445,PRCPSECO_""-1"",0,""Distribution Order Processing"")"
^XMB(3.9,82,2,787,0)="""RTN"",""PRCPOPP"",51,0)"
^XMB(3.9,82,2,788,0)=" ;"
^XMB(3.9,82,2,789,0)="""RTN"",""PRCPOPP"",52,0)"
^XMB(3.9,82,2,790,0)=" W !,""POSTING DISTRIBUTION ORDER ..."""
^XMB(3.9,82,2,791,0)="""RTN"",""PRCPOPP"",53,0)"
^XMB(3.9,82,2,792,0)=" ;"
^XMB(3.9,82,2,793,0)="""RTN"",""PRCPOPP"",54,0)"
^XMB(3.9,82,2,794,0)=" ;  if patient is on order, add entry"
^XMB(3.9,82,2,795,0)="""RTN"",""PRCPOPP"",55,0)"
^XMB(3.9,82,2,796,0)="PRCPSS1 ;  use the same transaction register numbers fr the entire order"
^XMB(3.9,82,2,797,0)="""RTN"",""PRCPOPP"",56,0)"
^XMB(3.9,82,2,798,0)=" S PRCPPORD=$$ORDERNO^PRCPUTRX(PRCPPRIM)"
^XMB(3.9,82,2,799,0)="""RTN"",""PRCPOPP"",57,0)"
^XMB(3.9,82,2,800,0)=" S PRCPSORD=$$ORDERNO^PRCPUTRX(PRCPSECO)"
^XMB(3.9,82,2,801,0)="""RTN"",""PRCPOPP"",58,0)"
^XMB(3.9,82,2,802,0)=" ;"
^XMB(3.9,82,2,803,0)="""RTN"",""PRCPOPP"",59,0)"
^XMB(3.9,82,2,804,0)=" I $P($G(^PRCP(445.3,ORDERDA,2)),""^"") S DATA=^(2) D"
^XMB(3.9,82,2,805,0)="""RTN"",""PRCPOPP"",60,0)"
^XMB(3.9,82,2,806,0)=" .   S PRCPPTDA=+$P(DATA,""^"",3) I $D(^PRCP(446.1,PRCPPTDA,0)) Q"
^XMB(3.9,82,2,807,0)="""RTN"",""PRCPOPP"",61,0)"
^XMB(3.9,82,2,808,0)=" .   S PRCPPTDA=$$PATIENT^PRCPUPAT(+$P(DATA,""^""),+$P(DATA,""^"",2))"
^XMB(3.9,82,2,809,0)="""RTN"",""PRCPOPP"",62,0)"
^XMB(3.9,82,2,810,0)=" .   I 'PRCPPTDA Q"
^XMB(3.9,82,2,811,0)="""RTN"",""PRCPOPP"",63,0)"
^XMB(3.9,82,2,812,0)=" .   S $P(^PRCP(445.3,ORDERDA,2),""^"",3)=PRCPPTDA"
^XMB(3.9,82,2,813,0)="""RTN"",""PRCPOPP"",64,0)"
^XMB(3.9,82,2,814,0)=" .   S $P(^PRCP(446.1,PRCPPTDA,0),""^"",6)=PRCPSECO"
^XMB(3.9,82,2,815,0)="""RTN"",""PRCPOPP"",65,0)"
^XMB(3.9,82,2,816,0)=" ;"
^XMB(3.9,82,2,817,0)="""RTN"",""PRCPOPP"",66,0)"
^XMB(3.9,82,2,818,0)=" ;  store case carts and instrument kits in"
^XMB(3.9,82,2,819,0)="""RTN"",""PRCPOPP"",67,0)"
^XMB(3.9,82,2,820,0)=" ;  ^tmp($j,""prcpopccik"",itemda)=qty for cc/ik item posting"
^XMB(3.9,82,2,821,0)="""RTN"",""PRCPOPP"",68,0)"
^XMB(3.9,82,2,822,0)=" K ^TMP($J,""PRCPOPCCIK"")"
^XMB(3.9,82,2,823,0)="""RTN"",""PRCPOPP"",69,0)"
^XMB(3.9,82,2,824,0)=" ;"
^XMB(3.9,82,2,825,0)="""RTN"",""PRCPOPP"",70,0)"
^XMB(3.9,82,2,826,0)=" ;  post order"
^XMB(3.9,82,2,827,0)="""RTN"",""PRCPOPP"",71,0)"
^XMB(3.9,82,2,828,0)=" S ITEMDA=0 F  S ITEMDA=$O(^PRCP(445.3,ORDERDA,1,ITEMDA)) Q:'ITEMDA  S ORDRDATA=$G(^(ITEMDA,0)) D"
^XMB(3.9,82,2,829,0)="""RTN"",""PRCPOPP"",72,0)"
^XMB(3.9,82,2,830,0)=" .   S (QTYDUE,QUANTITY)=$P(ORDRDATA,""^"",2)"
^XMB(3.9,82,2,831,0)="""RTN"",""PRCPOPP"",73,0)"
^XMB(3.9,82,2,832,0)=" .   S PRCPOH=$P($G(^PRCP(445,PRCPPRIM,1,ITEMDA,0)),""^"",7)"
^XMB(3.9,82,2,833,0)="""RTN"",""PRCPOPP"",74,0)"
^XMB(3.9,82,2,834,0)=" .   I PRCPOH+0=0 S PRCPOH=0"
^XMB(3.9,82,2,835,0)="""RTN"",""PRCPOPP"",75,0)"
^XMB(3.9,82,2,836,0)=" .   I QUANTITY>PRCPOH S QUANTITY=PRCPOH"
^XMB(3.9,82,2,837,0)="""RTN"",""PRCPOPP"",76,0)"
^XMB(3.9,82,2,838,0)=" .   I PRCPOH<0 S QUANTITY=0"
^XMB(3.9,82,2,839,0)="""RTN"",""PRCPOPP"",77,0)"
^XMB(3.9,82,2,840,0)=" .   I PRCPSS S QUANTITY=$P(ORDRDATA,""^"",7) ; use qty that was stocked"
^XMB(3.9,82,2,841,0)="""RTN"",""PRCPOPP"",78,0)"
^XMB(3.9,82,2,842,0)=" .   ; "
^XMB(3.9,82,2,843,0)="""RTN"",""PRCPOPP"",79,0)"
^XMB(3.9,82,2,844,0)=" .   ;  if case cart or instrument kit, set tmp global"
^XMB(3.9,82,2,845,0)="""RTN"",""PRCPOPP"",80,0)"
^XMB(3.9,82,2,846,0)=" .   I $D(^PRCP(445.7,ITEMDA,0))!($D(^PRCP(445.8,ITEMDA,0))) S:QUANTITY>0 ^TMP($J,""PRCPOPCCIK"",ITEMDA)=QUANTITY Q"
^XMB(3.9,82,2,847,0)="""RTN"",""PRCPOPP"",81,0)"
^XMB(3.9,82,2,848,0)=" .   ;"
^XMB(3.9,82,2,849,0)="""RTN"",""PRCPOPP"",82,0)"
^XMB(3.9,82,2,850,0)=" .   S ITEMDATA=^PRCP(445,PRCPPRIM,1,ITEMDA,0)"
^XMB(3.9,82,2,851,0)="""RTN"",""PRCPOPP"",83,0)"
^XMB(3.9,82,2,852,0)=" .   S UNITCOST=+$P(ITEMDATA,""^"",22) I 'UNITCOST S UNITCOST=+$P(ITEMDATA,""^"",15)"
^XMB(3.9,82,2,853,0)="""RTN"",""PRCPOPP"",84,0)"
^XMB(3.9,82,2,854,0)=" .   I 'UNITCOST S UNITCOST=+$P(ORDRDATA,""^"",3)"
^XMB(3.9,82,2,855,0)="""RTN"",""PRCPOPP"",85,0)"
^XMB(3.9,82,2,856,0)=" .   S TOTCOST=$J(QUANTITY*UNITCOST,0,2)"
^XMB(3.9,82,2,857,0)="""RTN"",""PRCPOPP"",86,0)"
^XMB(3.9,82,2,858,0)=" .   ;"
^XMB(3.9,82,2,859,0)="""RTN"",""PRCPOPP"",87,0)"
^XMB(3.9,82,2,860,0)=" .   ;"
^XMB(3.9,82,2,861,0)="""RTN"",""PRCPOPP"",88,0)"
^XMB(3.9,82,2,862,0)=" .   I QTYDUE'=0 D"
^XMB(3.9,82,2,863,0)="""RTN"",""PRCPOPP"",89,0)"
^XMB(3.9,82,2,864,0)=" .   .   I 'PRCPSS!(PRCPSS&$D(^PRCP(445,PRCPPRIM,1,ITEMDA))) D "
^XMB(3.9,82,2,865,0)="""RTN"",""PRCPOPP"",90,0)"
^XMB(3.9,82,2,866,0)=" .   .   .   ;  sell from primary"
^XMB(3.9,82,2,867,0)="""RTN"",""PRCPOPP"",91,0)"
^XMB(3.9,82,2,868,0)=" .   .   .   K PRCPOPP"
^XMB(3.9,82,2,869,0)="""RTN"",""PRCPOPP"",92,0)"
^XMB(3.9,82,2,870,0)=" .   .   .   S PRCPOPP(""QTY"")=-QUANTITY,PRCPOPP(""DUEOUT"")=-QTYDUE,PRCPOPP(""INVVAL"")=-TOTCOST,PRCPOPP(""OTHERPT"")=PRCPSECO,PRCPOPP(""ORDERDA"")=ORDERDA"
^XMB(3.9,82,2,871,0)="""RTN"",""PRCPOPP"",93,0)"
^XMB(3.9,82,2,872,0)=" .   .   .   D SALE^PRCPOPPP(PRCPPRIM,ITEMDA,PRCPPORD,.PRCPOPP)"
^XMB(3.9,82,2,873,0)="""RTN"",""PRCPOPP"",94,0)"
^XMB(3.9,82,2,874,0)=" .   .   ;"
^XMB(3.9,82,2,875,0)="""RTN"",""PRCPOPP"",95,0)"
^XMB(3.9,82,2,876,0)=" .   .   I 'PRCPSS!(PRCPSS&$D(^PRCP(445,PRCPSECO,1,ITEMDA))) D"
^XMB(3.9,82,2,877,0)="""RTN"",""PRCPOPP"",96,0)"
^XMB(3.9,82,2,878,0)=" .   .   .   ;  receipt in secondary"
^XMB(3.9,82,2,879,0)="""RTN"",""PRCPOPP"",97,0)"
^XMB(3.9,82,2,880,0)=" .   .   .   S CONVFACT=$P($$GETVEN^PRCPUVEN(PRCPSECO,ITEMDA,PRCPPRIM_"";PRCP(445,"",1),""^"",4)"
^XMB(3.9,82,2,881,0)="""RTN"",""PRCPOPP"",98,0)"
^XMB(3.9,82,2,882,0)=" .   .   .   K PRCPOPP"
^XMB(3.9,82,2,883,0)="""RTN"",""PRCPOPP"",99,0)"
^XMB(3.9,82,2,884,0)=" .   .   .   S PRCPOPP(""QTY"")=QUANTITY*CONVFACT,PRCPOPP(""DUEIN"")=-QTYDUE*CONVFACT,PRCPOPP(""INVVAL"")=TOTCOST,PRCPOPP(""OTHERPT"")=PRCPPRIM"
^XMB(3.9,82,2,885,0)="""RTN"",""PRCPOPP"",100,0)"
^XMB(3.9,82,2,886,0)=" .   .   .   ;  if patient, distribute from secondary to patient"
^XMB(3.9,82,2,887,0)="""RTN"",""PRCPOPP"",101,0)"
^XMB(3.9,82,2,888,0)=" .   .   .   I $G(PRCPPTDA) S PRCPOPP(""PRCPPTDA"")=PRCPPTDA"
^XMB(3.9,82,2,889,0)="""RTN"",""PRCPOPP"",102,0)"
^XMB(3.9,82,2,890,0)=" .   .   .   D RECEIPT^PRCPOPPP(PRCPSECO,ITEMDA,PRCPSORD,.PRCPOPP)"
^XMB(3.9,82,2,891,0)="""RTN"",""PRCPOPP"",103,0)"
^XMB(3.9,82,2,892,0)=" .   .   .   Q"
^XMB(3.9,82,2,893,0)="""RTN"",""PRCPOPP"",104,0)"
^XMB(3.9,82,2,894,0)=" .   ;"
^XMB(3.9,82,2,895,0)="""RTN"",""PRCPOPP"",105,0)"
^XMB(3.9,82,2,896,0)=" .   ;  Set quantity posted into item multiple"
^XMB(3.9,82,2,897,0)="""RTN"",""PRCPOPP"",106,0)"
^XMB(3.9,82,2,898,0)=" .   I 'PRCPSS S $P(^PRCP(445.3,ORDERDA,1,ITEMDA,0),""^"",7)=QUANTITY"
^XMB(3.9,82,2,899,0)="""RTN"",""PRCPOPP"",107,0)"
^XMB(3.9,82,2,900,0)=" ;"
^XMB(3.9,82,2,901,0)="""RTN"",""PRCPOPP"",108,0)"
^XMB(3.9,82,2,902,0)=" ;  Set up posted status"
^XMB(3.9,82,2,903,0)="""RTN"",""PRCPOPP"",109,0)"
^XMB(3.9,82,2,904,0)=" S $P(^PRCP(445.3,ORDERDA,0),""^"",6)=""P"",$P(^(0),""^"",9)=DT"
^XMB(3.9,82,2,905,0)="""RTN"",""PRCPOPP"",110,0)"
^XMB(3.9,82,2,906,0)=" ;"
^XMB(3.9,82,2,907,0)="""RTN"",""PRCPOPP"",111,0)"
^XMB(3.9,82,2,908,0)=" ;  if an item is a cc or ik"
^XMB(3.9,82,2,909,0)="""RTN"",""PRCPOPP"",112,0)"
^XMB(3.9,82,2,910,0)=" I $O(^TMP($J,""PRCPOPCCIK"",0)) D"
^XMB(3.9,82,2,911,0)="""RTN"",""PRCPOPP"",113,0)"
^XMB(3.9,82,2,912,0)=" .   ; if interactive, display screen to post items in cc and iks"
^XMB(3.9,82,2,913,0)="""RTN"",""PRCPOPP"",114,0)"
^XMB(3.9,82,2,914,0)=" .   I 'PRCPSS D EN^VALM(""PRCP DIST ORDER CC/IK POSTING"")"
^XMB(3.9,82,2,915,0)="""RTN"",""PRCPOPP"",115,0)"
^XMB(3.9,82,2,916,0)=" .   I PRCPSS D  ; mark amount rec'd as 0, so user gets message"
^XMB(3.9,82,2,917,0)="""RTN"",""PRCPOPP"",116,0)"
^XMB(3.9,82,2,918,0)=" .   .  N PRCPAMT"
^XMB(3.9,82,2,919,0)="""RTN"",""PRCPOPP"",117,0)"
^XMB(3.9,82,2,920,0)=" .   .  S DIE=""^PRCP(445.3,""_ORDERDA_"",1,"""
^XMB(3.9,82,2,921,0)="""RTN"",""PRCPOPP"",118,0)"
^XMB(3.9,82,2,922,0)=" .   .  S DA=PRCPITEM"
^XMB(3.9,82,2,923,0)="""RTN"",""PRCPOPP"",119,0)"
^XMB(3.9,82,2,924,0)=" .   .  S PRCPAMT=""@"" ; delete entry to invoke bulletin to user"
^XMB(3.9,82,2,925,0)="""RTN"",""PRCPOPP"",120,0)"
^XMB(3.9,82,2,926,0)=" .   .  S DR=""6///^S X=PRCPAMT"""
^XMB(3.9,82,2,927,0)="""RTN"",""PRCPOPP"",121,0)"
^XMB(3.9,82,2,928,0)=" .   .  D ^DIE K DIE"
^XMB(3.9,82,2,929,0)="""RTN"",""PRCPOPP"",122,0)"
^XMB(3.9,82,2,930,0)=" .   .  Q"
^XMB(3.9,82,2,931,0)="""RTN"",""PRCPOPP"",123,0)"
^XMB(3.9,82,2,932,0)=" .   Q"
^XMB(3.9,82,2,933,0)="""RTN"",""PRCPOPP"",124,0)"
^XMB(3.9,82,2,934,0)=" ;"
^XMB(3.9,82,2,935,0)="""RTN"",""PRCPOPP"",125,0)"
^XMB(3.9,82,2,936,0)=" I 'PRCPSS D"
^XMB(3.9,82,2,937,0)="""RTN"",""PRCPOPP"",126,0)"
^XMB(3.9,82,2,938,0)=" . D CLEAR^PRCPULOC(445,PRCPPRIM_""-1"",0),CLEAR^PRCPULOC(445,PRCPSECO_""-1"",0)"
^XMB(3.9,82,2,939,0)="""RTN"",""PRCPOPP"",127,0)"
^XMB(3.9,82,2,940,0)=" . L -^PRCP(445,PRCPPRIM,1),-^PRCP(445,PRCPSECO,1)"
^XMB(3.9,82,2,941,0)="""RTN"",""PRCPOPP"",128,0)"
^XMB(3.9,82,2,942,0)=" ;"
^XMB(3.9,82,2,943,0)="""RTN"",""PRCPOPP"",129,0)"
^XMB(3.9,82,2,944,0)=" Q"
^XMB(3.9,82,2,945,0)="""RTN"",""PRCPOPP3"")"
^XMB(3.9,82,2,946,0)="0^8^B19187191^B20917787"
^XMB(3.9,82,2,947,0)="""RTN"",""PRCPOPP3"",1,0)"
^XMB(3.9,82,2,948,0)="PRCPOPP3 ;WISC/RFJ/DWA-case cart/instrument kit post (cont) ;27 Sep 93"
^XMB(3.9,82,2,949,0)="""RTN"",""PRCPOPP3"",2,0)"
^XMB(3.9,82,2,950,0)=" ;;5.1;IFCAP;**41**;Oct 20, 2000"
^XMB(3.9,82,2,951,0)="""RTN"",""PRCPOPP3"",3,0)"
^XMB(3.9,82,2,952,0)=" ;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,82,2,953,0)="""RTN"",""PRCPOPP3"",4,0)"
^XMB(3.9,82,2,954,0)=" Q"
^XMB(3.9,82,2,955,0)="""RTN"",""PRCPOPP3"",5,0)"
^XMB(3.9,82,2,956,0)=" ;"
^XMB(3.9,82,2,957,0)="""RTN"",""PRCPOPP3"",6,0)"
^XMB(3.9,82,2,958,0)=" ;"
^XMB(3.9,82,2,959,0)="""RTN"",""PRCPOPP3"",7,0)"
^XMB(3.9,82,2,960,0)="POST ;  post cc/ik items"
^XMB(3.9,82,2,961,0)="""RTN"",""PRCPOPP3"",8,0)"
^XMB(3.9,82,2,962,0)=" N INVVALUE,ORDRDATA,PRCPOPP,QTYORDER,QTYPOST,QTYRET,QUANTITY,REUSABLE,UNITCOST"
^XMB(3.9,82,2,963,0)="""RTN"",""PRCPOPP3"",9,0)"
^XMB(3.9,82,2,964,0)=" S CCIKITEM=0 F  S CCIKITEM=$O(^TMP($J,""PRCPOPPC-ITEMS"",CCIKITEM)) Q:'CCIKITEM  D"
^XMB(3.9,82,2,965,0)="""RTN"",""PRCPOPP3"",10,0)"
^XMB(3.9,82,2,966,0)=" .   ;  if cc or ik item is on distribution order, sell ccik item from"
^XMB(3.9,82,2,967,0)="""RTN"",""PRCPOPP3"",11,0)"
^XMB(3.9,82,2,968,0)=" .   ;  primary and update primary qty on-hand, dueouts, etc."
^XMB(3.9,82,2,969,0)="""RTN"",""PRCPOPP3"",12,0)"
^XMB(3.9,82,2,970,0)=" .   I $D(^PRCP(445.3,ORDERDA,1,CCIKITEM,0)) S ORDRDATA=^(0) D"
^XMB(3.9,82,2,971,0)="""RTN"",""PRCPOPP3"",13,0)"
^XMB(3.9,82,2,972,0)=" .   .   S QUANTITY=$P(ORDRDATA,""^"",2),INVVALUE=$J(QUANTITY*$P(ORDRDATA,""^"",3),0,2)"
^XMB(3.9,82,2,973,0)="""RTN"",""PRCPOPP3"",14,0)"
^XMB(3.9,82,2,974,0)=" .   .   I 'QUANTITY D DELITEM^PRCPOPD(ORDERDA,CCIKITEM) Q"
^XMB(3.9,82,2,975,0)="""RTN"",""PRCPOPP3"",15,0)"
^XMB(3.9,82,2,976,0)=" .   .   ;  sell item from primary"
^XMB(3.9,82,2,977,0)="""RTN"",""PRCPOPP3"",16,0)"
^XMB(3.9,82,2,978,0)=" .   .   K PRCPOPP"
^XMB(3.9,82,2,979,0)="""RTN"",""PRCPOPP3"",17,0)"
^XMB(3.9,82,2,980,0)=" .   .   S (PRCPOPP(""QTY""),PRCPOPP(""DUEOUT""))=-QUANTITY,PRCPOPP(""INVVAL"")=-INVVALUE,PRCPOPP(""OTHERPT"")=PRCPSECO,PRCPOPP(""ORDERDA"")=ORDERDA"
^XMB(3.9,82,2,981,0)="""RTN"",""PRCPOPP3"",18,0)"
^XMB(3.9,82,2,982,0)=" .   .   D SALE^PRCPOPPP(PRCPPRIM,CCIKITEM,PRCPPORD,.PRCPOPP)"
^XMB(3.9,82,2,983,0)="""RTN"",""PRCPOPP3"",19,0)"
^XMB(3.9,82,2,984,0)=" .   .   ;"
^XMB(3.9,82,2,985,0)="""RTN"",""PRCPOPP3"",20,0)"
^XMB(3.9,82,2,986,0)=" .   .   K PRCPOPP"
^XMB(3.9,82,2,987,0)="""RTN"",""PRCPOPP3"",21,0)"
^XMB(3.9,82,2,988,0)=" .   .   S PRCPOPP(""QTY"")=QUANTITY*$P($$GETVEN^PRCPUVEN(PRCPSECO,CCIKITEM,PRCPPRIM_"";PRCP(445,"",1),""^"",4),PRCPOPP(""DUEIN"")=-PRCPOPP(""QTY""),PRCPOPP(""INVVAL"")=INVVALUE"
^XMB(3.9,82,2,989,0)="""RTN"",""PRCPOPP3"",22,0)"
^XMB(3.9,82,2,990,0)=" .   .   I $G(PRCPPTDA) S PRCPOPP(""PRCPPTDA"")=+$G(PRCPPTDA)"
^XMB(3.9,82,2,991,0)="""RTN"",""PRCPOPP3"",23,0)"
^XMB(3.9,82,2,992,0)=" .   .   D RECEIPT^PRCPOPPP(PRCPSECO,CCIKITEM,PRCPSORD,.PRCPOPP)"
^XMB(3.9,82,2,993,0)="""RTN"",""PRCPOPP3"",24,0)"
^XMB(3.9,82,2,994,0)=" .   .   ;"
^XMB(3.9,82,2,995,0)="""RTN"",""PRCPOPP3"",25,0)"
^XMB(3.9,82,2,996,0)=" .   .   ;  remove ccik item from order"
^XMB(3.9,82,2,997,0)="""RTN"",""PRCPOPP3"",26,0)"
^XMB(3.9,82,2,998,0)=" .   .   ;D DELITEM^PRCPOPD(ORDERDA,CCIKITEM)"
^XMB(3.9,82,2,999,0)="""RTN"",""PRCPOPP3"",27,0)"
^XMB(3.9,82,2,1000,0)=" .   ;"
^XMB(3.9,82,2,1001,0)="""RTN"",""PRCPOPP3"",28,0)"
^XMB(3.9,82,2,1002,0)=" .   ;  post items in cc/ik"
^XMB(3.9,82,2,1003,0)="""RTN"",""PRCPOPP3"",29,0)"
^XMB(3.9,82,2,1004,0)=" .   S ITEMDA=0 F  S ITEMDA=$O(^TMP($J,""PRCPOPPC-ITEMS"",CCIKITEM,ITEMDA)) Q:'ITEMDA  S %=^(ITEMDA) D"
^XMB(3.9,82,2,1005,0)="""RTN"",""PRCPOPP3"",30,0)"
^XMB(3.9,82,2,1006,0)=" .   .   S QTYORDER=$P(%,""^""),QTYRET=$P(%,""^"",2),QTYPOST=QTYORDER-QTYRET"
^XMB(3.9,82,2,1007,0)="""RTN"",""PRCPOPP3"",31,0)"
^XMB(3.9,82,2,1008,0)=" .   .   S REUSABLE=$$REUSABLE^PRCPU441(ITEMDA)"
^XMB(3.9,82,2,1009,0)="""RTN"",""PRCPOPP3"",32,0)"
^XMB(3.9,82,2,1010,0)=" .   .   ;  calculate inventory value of items sold"
^XMB(3.9,82,2,1011,0)="""RTN"",""PRCPOPP3"",33,0)"
^XMB(3.9,82,2,1012,0)=" .   .   S %=$G(^PRCP(445,PRCPPRIM,1,ITEMDA,0))"
^XMB(3.9,82,2,1013,0)="""RTN"",""PRCPOPP3"",34,0)"
^XMB(3.9,82,2,1014,0)=" .   .   S UNITCOST=$P(%,""^"",15) I 'UNITCOST S UNITCOST=$P(%,""^"",22)"
^XMB(3.9,82,2,1015,0)="""RTN"",""PRCPOPP3"",35,0)"
^XMB(3.9,82,2,1016,0)=" .   .   S INVVALUE=$J(QTYPOST*UNITCOST,0,2)"
^XMB(3.9,82,2,1017,0)="""RTN"",""PRCPOPP3"",36,0)"
^XMB(3.9,82,2,1018,0)=" .   .   D PRIMARY"
^XMB(3.9,82,2,1019,0)="""RTN"",""PRCPOPP3"",37,0)"
^XMB(3.9,82,2,1020,0)=" .   .   D SECOND"
^XMB(3.9,82,2,1021,0)="""RTN"",""PRCPOPP3"",38,0)"
^XMB(3.9,82,2,1022,0)=" Q"
^XMB(3.9,82,2,1023,0)="""RTN"",""PRCPOPP3"",39,0)"
^XMB(3.9,82,2,1024,0)=" ;"
^XMB(3.9,82,2,1025,0)="""RTN"",""PRCPOPP3"",40,0)"
^XMB(3.9,82,2,1026,0)=" ;"
^XMB(3.9,82,2,1027,0)="""RTN"",""PRCPOPP3"",41,0)"
^XMB(3.9,82,2,1028,0)="PRIMARY ;  sale of item from primary"
^XMB(3.9,82,2,1029,0)="""RTN"",""PRCPOPP3"",42,0)"
^XMB(3.9,82,2,1030,0)=" ;  if an item is an ik, sell it"
^XMB(3.9,82,2,1031,0)="""RTN"",""PRCPOPP3"",43,0)"
^XMB(3.9,82,2,1032,0)=" ;I $D(^PRCP(445.8,ITEMDA)) D  Q"
^XMB(3.9,82,2,1033,0)="""RTN"",""PRCPOPP3"",44,0)"
^XMB(3.9,82,2,1034,0)=" ;.   K PRCPOPP"
^XMB(3.9,82,2,1035,0)="""RTN"",""PRCPOPP3"",45,0)"
^XMB(3.9,82,2,1036,0)=" ;.   S PRCPOPP(""QTY"")=-QTYPOST,PRCPOPP(""INVVAL"")=-INVVALUE,PRCPOPP(""OTHERPT"")=PRCPSECO,PRCPOPP(""ORDERDA"")=ORDERDA"
^XMB(3.9,82,2,1037,0)="""RTN"",""PRCPOPP3"",46,0)"
^XMB(3.9,82,2,1038,0)=" ;.   S PRCPOPP(""REASON"")=""0:Instrument kit sold with case cart IM# ""_CCIKITEM"
^XMB(3.9,82,2,1039,0)="""RTN"",""PRCPOPP3"",47,0)"
^XMB(3.9,82,2,1040,0)=" ;.   D SALE^PRCPOPPP(PRCPPRIM,ITEMDA,PRCPPORD,.PRCPOPP)"
^XMB(3.9,82,2,1041,0)="""RTN"",""PRCPOPP3"",48,0)"
^XMB(3.9,82,2,1042,0)=" ;"
^XMB(3.9,82,2,1043,0)="""RTN"",""PRCPOPP3"",49,0)"
^XMB(3.9,82,2,1044,0)=" ;  if item is reusable and was returned, do nothing"
^XMB(3.9,82,2,1045,0)="""RTN"",""PRCPOPP3"",50,0)"
^XMB(3.9,82,2,1046,0)=" I REUSABLE,QTYPOST=0 Q"
^XMB(3.9,82,2,1047,0)="""RTN"",""PRCPOPP3"",51,0)"
^XMB(3.9,82,2,1048,0)=" ;"
^XMB(3.9,82,2,1049,0)="""RTN"",""PRCPOPP3"",52,0)"
^XMB(3.9,82,2,1050,0)=" ;  if item is reusable and not returned, sell it"
^XMB(3.9,82,2,1051,0)="""RTN"",""PRCPOPP3"",53,0)"
^XMB(3.9,82,2,1052,0)=" I REUSABLE D  Q"
^XMB(3.9,82,2,1053,0)="""RTN"",""PRCPOPP3"",54,0)"
^XMB(3.9,82,2,1054,0)=" .   K PRCPOPP"
^XMB(3.9,82,2,1055,0)="""RTN"",""PRCPOPP3"",55,0)"
^XMB(3.9,82,2,1056,0)=" .   S PRCPOPP(""QTY"")=-QTYPOST,PRCPOPP(""INVVAL"")=-INVVALUE,PRCPOPP(""OTHERPT"")=PRCPSECO,PRCPOPP(""ORDERDA"")=ORDERDA"
^XMB(3.9,82,2,1057,0)="""RTN"",""PRCPOPP3"",56,0)"
^XMB(3.9,82,2,1058,0)=" .   S PRCPOPP(""REASON"")=""0:Reusable item not returned in cc,ik IM# ""_CCIKITEM"
^XMB(3.9,82,2,1059,0)="""RTN"",""PRCPOPP3"",57,0)"
^XMB(3.9,82,2,1060,0)=" .   D SALE^PRCPOPPP(PRCPPRIM,ITEMDA,PRCPPORD,.PRCPOPP)"
^XMB(3.9,82,2,1061,0)="""RTN"",""PRCPOPP3"",58,0)"
^XMB(3.9,82,2,1062,0)=" ;"
^XMB(3.9,82,2,1063,0)="""RTN"",""PRCPOPP3"",59,0)"
^XMB(3.9,82,2,1064,0)=" ;  disposable items"
^XMB(3.9,82,2,1065,0)="""RTN"",""PRCPOPP3"",60,0)"
^XMB(3.9,82,2,1066,0)=" ;  if item is disposable and not returned, show distribution"
^XMB(3.9,82,2,1067,0)="""RTN"",""PRCPOPP3"",61,0)"
^XMB(3.9,82,2,1068,0)=" ;  do not update primary invpt since it was updated during assembly"
^XMB(3.9,82,2,1069,0)="""RTN"",""PRCPOPP3"",62,0)"
^XMB(3.9,82,2,1070,0)=" I QTYRET=0 D  Q"
^XMB(3.9,82,2,1071,0)="""RTN"",""PRCPOPP3"",63,0)"
^XMB(3.9,82,2,1072,0)=" .   K PRCPOPP"
^XMB(3.9,82,2,1073,0)="""RTN"",""PRCPOPP3"",64,0)"
^XMB(3.9,82,2,1074,0)=" .   S PRCPOPP(""QTY"")=-QTYPOST,PRCPOPP(""INVVAL"")=-INVVALUE,PRCPOPP(""OTHERPT"")=PRCPSECO,PRCPOPP(""ORDERDA"")=ORDERDA,PRCPOPP(""NOINVPT"")=1"
^XMB(3.9,82,2,1075,0)="""RTN"",""PRCPOPP3"",65,0)"
^XMB(3.9,82,2,1076,0)=" .   D SALE^PRCPOPPP(PRCPPRIM,ITEMDA,PRCPPORD,.PRCPOPP)"
^XMB(3.9,82,2,1077,0)="""RTN"",""PRCPOPP3"",66,0)"
^XMB(3.9,82,2,1078,0)=" ;"
^XMB(3.9,82,2,1079,0)="""RTN"",""PRCPOPP3"",67,0)"
^XMB(3.9,82,2,1080,0)=" ;  if disposable item is returned, add back to primary inventory"
^XMB(3.9,82,2,1081,0)="""RTN"",""PRCPOPP3"",68,0)"
^XMB(3.9,82,2,1082,0)=" K PRCPOPP"
^XMB(3.9,82,2,1083,0)="""RTN"",""PRCPOPP3"",69,0)"
^XMB(3.9,82,2,1084,0)=" S PRCPOPP(""QTY"")=QTYRET,PRCPOPP(""INVVAL"")=$J(QTYRET*UNITCOST,0,2)"
^XMB(3.9,82,2,1085,0)="""RTN"",""PRCPOPP3"",70,0)"
^XMB(3.9,82,2,1086,0)=" S PRCPOPP(""REASON"")=""0:Disposable item returned with cc,ik IM# ""_CCIKITEM"
^XMB(3.9,82,2,1087,0)="""RTN"",""PRCPOPP3"",71,0)"
^XMB(3.9,82,2,1088,0)=" D INVPT^PRCPOPPP(PRCPPRIM,ITEMDA,""S"",PRCPPORD,.PRCPOPP)"
^XMB(3.9,82,2,1089,0)="""RTN"",""PRCPOPP3"",72,0)"
^XMB(3.9,82,2,1090,0)=" Q"
^XMB(3.9,82,2,1091,0)="""RTN"",""PRCPOPP3"",73,0)"
^XMB(3.9,82,2,1092,0)=" ;"
^XMB(3.9,82,2,1093,0)="""RTN"",""PRCPOPP3"",74,0)"
^XMB(3.9,82,2,1094,0)=" ;"
^XMB(3.9,82,2,1095,0)="""RTN"",""PRCPOPP3"",75,0)"
^XMB(3.9,82,2,1096,0)="SECOND ;  receipt in secondary"
^XMB(3.9,82,2,1097,0)="""RTN"",""PRCPOPP3"",76,0)"
^XMB(3.9,82,2,1098,0)=" ;  if an item is an ik, receive it"
^XMB(3.9,82,2,1099,0)="""RTN"",""PRCPOPP3"",77,0)"
^XMB(3.9,82,2,1100,0)=" I $D(^PRCP(445.8,ITEMDA)) D  Q"
^XMB(3.9,82,2,1101,0)="""RTN"",""PRCPOPP3"",78,0)"
^XMB(3.9,82,2,1102,0)=" .   K PRCPOPP"
^XMB(3.9,82,2,1103,0)="""RTN"",""PRCPOPP3"",79,0)"
^XMB(3.9,82,2,1104,0)=" .   S PRCPOPP(""QTY"")=QTYPOST,PRCPOPP(""INVVAL"")=INVVALUE,PRCPOPP(""OTHERPT"")=PRCPPRIM"
^XMB(3.9,82,2,1105,0)="""RTN"",""PRCPOPP3"",80,0)"
^XMB(3.9,82,2,1106,0)=" .   I $G(PRCPPTDA) S PRCPOPP(""PRCPPTDA"")=+$G(PRCPPTDA)"
^XMB(3.9,82,2,1107,0)="""RTN"",""PRCPOPP3"",81,0)"
^XMB(3.9,82,2,1108,0)=" .   S PRCPOPP(""REASON"")=""0:Instrument kit sold with case cart IM# ""_CCIKITEM"
^XMB(3.9,82,2,1109,0)="""RTN"",""PRCPOPP3"",82,0)"
^XMB(3.9,82,2,1110,0)=" .   D RECEIPT^PRCPOPPP(PRCPSECO,ITEMDA,PRCPSORD,.PRCPOPP)"
^XMB(3.9,82,2,1111,0)="""RTN"",""PRCPOPP3"",83,0)"
^XMB(3.9,82,2,1112,0)=" ;"
^XMB(3.9,82,2,1113,0)="""RTN"",""PRCPOPP3"",84,0)"
^XMB(3.9,82,2,1114,0)=" ;  if item is reusable and was returned, do nothing"
^XMB(3.9,82,2,1115,0)="""RTN"",""PRCPOPP3"",85,0)"
^XMB(3.9,82,2,1116,0)=" I REUSABLE,QTYPOST=0 Q"
^XMB(3.9,82,2,1117,0)="""RTN"",""PRCPOPP3"",86,0)"
^XMB(3.9,82,2,1118,0)=" ;"
^XMB(3.9,82,2,1119,0)="""RTN"",""PRCPOPP3"",87,0)"
^XMB(3.9,82,2,1120,0)=" ;  if item is reusable and not returned, receive it"
^XMB(3.9,82,2,1121,0)="""RTN"",""PRCPOPP3"",88,0)"
^XMB(3.9,82,2,1122,0)=" I REUSABLE D  Q"
^XMB(3.9,82,2,1123,0)="""RTN"",""PRCPOPP3"",89,0)"
^XMB(3.9,82,2,1124,0)=" .   K PRCPOPP"
^XMB(3.9,82,2,1125,0)="""RTN"",""PRCPOPP3"",90,0)"
^XMB(3.9,82,2,1126,0)=" .   S PRCPOPP(""QTY"")=QTYPOST,PRCPOPP(""INVVAL"")=INVVALUE,PRCPOPP(""OTHERPT"")=PRCPPRIM"
^XMB(3.9,82,2,1127,0)="""RTN"",""PRCPOPP3"",91,0)"
^XMB(3.9,82,2,1128,0)=" .   I $G(PRCPPTDA) S PRCPOPP(""PRCPPTDA"")=+$G(PRCPPTDA)"
^XMB(3.9,82,2,1129,0)="""RTN"",""PRCPOPP3"",92,0)"
^XMB(3.9,82,2,1130,0)=" .   S PRCPOPP(""REASON"")=""0:Reusable item not returned in cc,ik IM# ""_CCIKITEM"
^XMB(3.9,82,2,1131,0)="""RTN"",""PRCPOPP3"",93,0)"
^XMB(3.9,82,2,1132,0)=" .   D RECEIPT^PRCPOPPP(PRCPSECO,ITEMDA,PRCPSORD,.PRCPOPP)"
^XMB(3.9,82,2,1133,0)="""RTN"",""PRCPOPP3"",94,0)"
^XMB(3.9,82,2,1134,0)=" ;"
^XMB(3.9,82,2,1135,0)="""RTN"",""PRCPOPP3"",95,0)"
^XMB(3.9,82,2,1136,0)=" ;  disposable items"
^XMB(3.9,82,2,1137,0)="""RTN"",""PRCPOPP3"",96,0)"
^XMB(3.9,82,2,1138,0)=" ;  if item is disposable and returned, do nothing"
^XMB(3.9,82,2,1139,0)="""RTN"",""PRCPOPP3"",97,0)"
^XMB(3.9,82,2,1140,0)=" I QTYPOST=0 Q"
^XMB(3.9,82,2,1141,0)="""RTN"",""PRCPOPP3"",98,0)"
^XMB(3.9,82,2,1142,0)=" ;"
^XMB(3.9,82,2,1143,0)="""RTN"",""PRCPOPP3"",99,0)"
^XMB(3.9,82,2,1144,0)=" ;  disposable items not returned"
^XMB(3.9,82,2,1145,0)="""RTN"",""PRCPOPP3"",100,0)"
^XMB(3.9,82,2,1146,0)=" K PRCPOPP"
^XMB(3.9,82,2,1147,0)="""RTN"",""PRCPOPP3"",101,0)"
^XMB(3.9,82,2,1148,0)=" S PRCPOPP(""QTY"")=QTYPOST,PRCPOPP(""INVVAL"")=INVVALUE,PRCPOPP(""OTHERPT"")=PRCPPRIM"
^XMB(3.9,82,2,1149,0)="""RTN"",""PRCPOPP3"",102,0)"
^XMB(3.9,82,2,1150,0)=" I $G(PRCPPTDA) S PRCPOPP(""PRCPPTDA"")=+$G(PRCPPTDA)"
^XMB(3.9,82,2,1151,0)="""RTN"",""PRCPOPP3"",103,0)"
^XMB(3.9,82,2,1152,0)=" D RECEIPT^PRCPOPPP(PRCPSECO,ITEMDA,PRCPSORD,.PRCPOPP)"
^XMB(3.9,82,2,1153,0)="""RTN"",""PRCPOPP3"",104,0)"
^XMB(3.9,82,2,1154,0)=" Q"
^XMB(3.9,82,2,1155,0)="""RTN"",""PRCPRISP"")"
^XMB(3.9,82,2,1156,0)="0^2^B25854913^B25769117"
^XMB(3.9,82,2,1157,0)="""RTN"",""PRCPRISP"",1,0)"
^XMB(3.9,82,2,1158,0)="PRCPRISP ;WISC/RFJ/DWA-inventory sales (primary) ;24 May 93"
^XMB(3.9,82,2,1159,0)="""RTN"",""PRCPRISP"",2,0)"
^XMB(3.9,82,2,1160,0)=" ;;5.1;IFCAP;**41**;Oct 20, 2000"
^XMB(3.9,82,2,1161,0)="""RTN"",""PRCPRISP"",3,0)"
^XMB(3.9,82,2,1162,0)=" ;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,82,2,1163,0)="""RTN"",""PRCPRISP"",4,0)"
^XMB(3.9,82,2,1164,0)=" Q"
^XMB(3.9,82,2,1165,0)="""RTN"",""PRCPRISP"",5,0)"
^XMB(3.9,82,2,1166,0)=" ;"
^XMB(3.9,82,2,1167,0)="""RTN"",""PRCPRISP"",6,0)"
^XMB(3.9,82,2,1168,0)=" ;"
^XMB(3.9,82,2,1169,0)="""RTN"",""PRCPRISP"",7,0)"
^XMB(3.9,82,2,1170,0)="PRIMARY ;  inventory sales for primary"
^XMB(3.9,82,2,1171,0)="""RTN"",""PRCPRISP"",8,0)"
^XMB(3.9,82,2,1172,0)=" N DATEEND,DATESTRT,DISTRALL,PRCPSUMM,X"
^XMB(3.9,82,2,1173,0)="""RTN"",""PRCPRISP"",9,0)"
^XMB(3.9,82,2,1174,0)=" K X S X(1)=""The Inventory Sales Report will display all sales from the Primary to the Secondary inventory points.  This report is sorted by description, the distribution point, and date issued."" D DISPLAY^PRCPUX2(40,79,.X)"
^XMB(3.9,82,2,1175,0)="""RTN"",""PRCPRISP"",10,0)"
^XMB(3.9,82,2,1176,0)=" K X S X(1)=""Select the DISTRIBUTION POINTS to display"" D DISPLAY^PRCPUX2(2,40,.X)"
^XMB(3.9,82,2,1177,0)="""RTN"",""PRCPRISP"",11,0)"
^XMB(3.9,82,2,1178,0)=" D DISTRSEL^PRCPURS3(PRCP(""I""))"
^XMB(3.9,82,2,1179,0)="""RTN"",""PRCPRISP"",12,0)"
^XMB(3.9,82,2,1180,0)=" I '$G(DISTRALL),'$O(^TMP($J,""PRCPURS3"",""YES"",0)) W !,""*** NO DISTRIBUTION POINTS SELECTED !"" D Q Q"
^XMB(3.9,82,2,1181,0)="""RTN"",""PRCPRISP"",13,0)"
^XMB(3.9,82,2,1182,0)=" K X S X(1)=""Select the range of ISSUE DATES to display"" W !! D DISPLAY^PRCPUX2(2,40,.X)"
^XMB(3.9,82,2,1183,0)="""RTN"",""PRCPRISP"",14,0)"
^XMB(3.9,82,2,1184,0)=" D DATESEL^PRCPURS2(""Issue"") I '$G(DATEEND) D Q Q"
^XMB(3.9,82,2,1185,0)="""RTN"",""PRCPRISP"",15,0)"
^XMB(3.9,82,2,1186,0)=" S PRCPSUMM=$$SUMMARY^PRCPURS0 I PRCPSUMM<0 D Q Q"
^XMB(3.9,82,2,1187,0)="""RTN"",""PRCPRISP"",16,0)"
^XMB(3.9,82,2,1188,0)=" W ! S %ZIS=""Q"" D ^%ZIS G:POP Q I $D(IO(""Q"")) D  D ^%ZTLOAD K IO(""Q""),ZTSK D Q Q"
^XMB(3.9,82,2,1189,0)="""RTN"",""PRCPRISP"",17,0)"
^XMB(3.9,82,2,1190,0)=" . S ZTDESC=""Primary Inventory Sales Report"",ZTRTN=""DQ^PRCPRISP"""
^XMB(3.9,82,2,1191,0)="""RTN"",""PRCPRISP"",18,0)"
^XMB(3.9,82,2,1192,0)=" . S ZTSAVE(""PRCP*"")="""",ZTSAVE(""DATE*"")="""",ZTSAVE(""DISTRALL"")="""",ZTSAVE(""^TMP($J,""""PRCPURS3"""","")="""",ZTSAVE(""ZTREQ"")=""@"""
^XMB(3.9,82,2,1193,0)="""RTN"",""PRCPRISP"",19,0)"
^XMB(3.9,82,2,1194,0)=" W !!,""<*> please wait <*>"""
^XMB(3.9,82,2,1195,0)="""RTN"",""PRCPRISP"",20,0)"
^XMB(3.9,82,2,1196,0)="DQ ;  queue starts here"
^XMB(3.9,82,2,1197,0)="""RTN"",""PRCPRISP"",21,0)"
^XMB(3.9,82,2,1198,0)=" N %,%H,%I,DA,DATA,DATE,DATEEDT,DATESDT,DESCR,DISTRNM,DISTRPT,ITEMDA,ITEMDATA,NOW,PAGE,PRCPDATA,PRCPFLAG,SCREEN,TOTALQ,TOTALQI,TOTALV,TOTALVI,TYPE,X,Y"
^XMB(3.9,82,2,1199,0)="""RTN"",""PRCPRISP"",22,0)"
^XMB(3.9,82,2,1200,0)=" K ^TMP($J,""PRCPRISP""),^TMP($J,""PRCPRISP TOT"")"
^XMB(3.9,82,2,1201,0)="""RTN"",""PRCPRISP"",23,0)"
^XMB(3.9,82,2,1202,0)=" S DATE=DATESTRT-.01 F  S DATE=$O(^PRCP(445.2,""AX"",PRCP(""I""),DATE)) Q:'DATE!(DATE>DATEEND)  F TYPE=""R"",""C"",""E"",""U"",""S"" S DA=0 F  S DA=$O(^PRCP(445.2,""AX"",PRCP(""I""),DATE,TYPE,DA)) Q:'DA  D"
^XMB(3.9,82,2,1203,0)="""RTN"",""PRCPRISP"",24,0)"
^XMB(3.9,82,2,1204,0)=" . S DATA=$G(^PRCP(445.2,DA,0)) I DATA="""" Q"
^XMB(3.9,82,2,1205,0)="""RTN"",""PRCPRISP"",25,0)"
^XMB(3.9,82,2,1206,0)=" . S ITEMDA=$P(DATA,""^"",5),DESCR=$$DESCR^PRCPUX1(PRCP(""I""),ITEMDA) S:DESCR="""" DESCR="" """
^XMB(3.9,82,2,1207,0)="""RTN"",""PRCPRISP"",26,0)"
^XMB(3.9,82,2,1208,0)=" . S DISTRPT=+$P(DATA,""^"",18)"
^XMB(3.9,82,2,1209,0)="""RTN"",""PRCPRISP"",27,0)"
^XMB(3.9,82,2,1210,0)=" . I 'DISTRPT,'$G(DISTRALL) Q"
^XMB(3.9,82,2,1211,0)="""RTN"",""PRCPRISP"",28,0)"
^XMB(3.9,82,2,1212,0)=" . I $G(DISTRALL),$D(^TMP($J,""PRCPURS3"",""NO"",DISTRPT)) Q"
^XMB(3.9,82,2,1213,0)="""RTN"",""PRCPRISP"",29,0)"
^XMB(3.9,82,2,1214,0)=" . I '$G(DISTRALL),'$D(^TMP($J,""PRCPURS3"",""YES"",DISTRPT)) Q"
^XMB(3.9,82,2,1215,0)="""RTN"",""PRCPRISP"",30,0)"
^XMB(3.9,82,2,1216,0)=" . S DISTRNM=$$INVNAME^PRCPUX1(DISTRPT) S:DISTRNM="""" DISTRNM="" """
^XMB(3.9,82,2,1217,0)="""RTN"",""PRCPRISP"",31,0)"
^XMB(3.9,82,2,1218,0)=" . S $P(DATA,""^"",7)=-$P(DATA,""^"",7),$P(DATA,""^"",23)=-$P(DATA,""^"",23)"
^XMB(3.9,82,2,1219,0)="""RTN"",""PRCPRISP"",32,0)"
^XMB(3.9,82,2,1220,0)=" . I '$P(DATA,""^"",23) S $P(DATA,""^"",23)=$J($P(DATA,""^"",7)*$P(DATA,""^"",8),0,2)"
^XMB(3.9,82,2,1221,0)="""RTN"",""PRCPRISP"",33,0)"
^XMB(3.9,82,2,1222,0)=" . ;I $P(DATA,""^"",23)<0 S $P(DATA,""^"",23)=-$P(DATA,""^"",23)"
^XMB(3.9,82,2,1223,0)="""RTN"",""PRCPRISP"",34,0)"
^XMB(3.9,82,2,1224,0)=" . S ^TMP($J,""PRCPRISP"",$E(DESCR,1,10),ITEMDA,$E(DISTRNM,1,24),DATE,DA)=$P(DATA,""^"",7)_""^""_$S('$P(DATA,""^"",7):0,1:$J($P(DATA,""^"",23)/$P(DATA,""^"",7),0,3))_""^""_$P(DATA,""^"",23)"
^XMB(3.9,82,2,1225,0)="""RTN"",""PRCPRISP"",35,0)"
^XMB(3.9,82,2,1226,0)=" ;  print report"
^XMB(3.9,82,2,1227,0)="""RTN"",""PRCPRISP"",36,0)"
^XMB(3.9,82,2,1228,0)=" S Y=DATESTRT D DD^%DT S DATESDT=Y,Y=DATEEND D DD^%DT S DATEEDT=Y"
^XMB(3.9,82,2,1229,0)="""RTN"",""PRCPRISP"",37,0)"
^XMB(3.9,82,2,1230,0)=" D NOW^%DTC S Y=% D DD^%DT S NOW=Y,PAGE=1,SCREEN=$$SCRPAUSE^PRCPUREP U IO D H"
^XMB(3.9,82,2,1231,0)="""RTN"",""PRCPRISP"",38,0)"
^XMB(3.9,82,2,1232,0)=" S DESCR="""" F  S DESCR=$O(^TMP($J,""PRCPRISP"",DESCR)) Q:DESCR=""""!($G(PRCPFLAG))  S ITEMDA=0 F  S ITEMDA=$O(^TMP($J,""PRCPRISP"",DESCR,ITEMDA)) Q:'ITEMDA!($G(PRCPFLAG))  D"
^XMB(3.9,82,2,1233,0)="""RTN"",""PRCPRISP"",39,0)"
^XMB(3.9,82,2,1234,0)=" . I $G(ZTQUEUED),$$S^%ZTLOAD S PRCPFLAG=1 W !?10,""<<< TASKMANAGER JOB TERMINATED BY USER >>>"" Q"
^XMB(3.9,82,2,1235,0)="""RTN"",""PRCPRISP"",40,0)"
^XMB(3.9,82,2,1236,0)=" . I $Y>(IOSL-6) D:SCREEN P^PRCPUREP Q:$D(PRCPFLAG)  D H"
^XMB(3.9,82,2,1237,0)="""RTN"",""PRCPRISP"",41,0)"
^XMB(3.9,82,2,1238,0)=" . S ITEMDATA=$G(^PRCP(445,PRCP(""I""),1,ITEMDA,0))"
^XMB(3.9,82,2,1239,0)="""RTN"",""PRCPRISP"",42,0)"
^XMB(3.9,82,2,1240,0)=" . W:'PRCPSUMM !,$E($$DESCR^PRCPUX1(PRCP(""I""),ITEMDA),1,38),?39,""["",ITEMDA,""]"""
^XMB(3.9,82,2,1241,0)="""RTN"",""PRCPRISP"",43,0)"
^XMB(3.9,82,2,1242,0)=" . S (TOTALQI,TOTALVI)=0"
^XMB(3.9,82,2,1243,0)="""RTN"",""PRCPRISP"",44,0)"
^XMB(3.9,82,2,1244,0)=" . S DISTRPT="""" F  S DISTRPT=$O(^TMP($J,""PRCPRISP"",DESCR,ITEMDA,DISTRPT)) Q:DISTRPT=""""!($G(PRCPFLAG))  D"
^XMB(3.9,82,2,1245,0)="""RTN"",""PRCPRISP"",45,0)"
^XMB(3.9,82,2,1246,0)=" . . W:'PRCPSUMM !?15,$S(DISTRPT="" "":""<<NONE>>"",1:DISTRPT)"
^XMB(3.9,82,2,1247,0)="""RTN"",""PRCPRISP"",46,0)"
^XMB(3.9,82,2,1248,0)=" . . S (TOTALQ,TOTALV)=0"
^XMB(3.9,82,2,1249,0)="""RTN"",""PRCPRISP"",47,0)"
^XMB(3.9,82,2,1250,0)=" . . S DATE=0 F  S DATE=$O(^TMP($J,""PRCPRISP"",DESCR,ITEMDA,DISTRPT,DATE)) Q:'DATE!($G(PRCPFLAG))  S DA=0 F  S DA=$O(^TMP($J,""PRCPRISP"",DESCR,ITEMDA,DISTRPT,DATE,DA)) Q:'DA!($G(PRCPFLAG))  S PRCPDATA=^(DA) D"
^XMB(3.9,82,2,1251,0)="""RTN"",""PRCPRISP"",48,0)"
^XMB(3.9,82,2,1252,0)=" . . . W:'PRCPSUMM ?40,$E(DATE,4,5),""/"",$E(DATE,6,7),""/"",$E(DATE,2,3),$J($P(PRCPDATA,""^""),10),$J($P(PRCPDATA,""^"",2),10,3),$J($P(PRCPDATA,""^"",3),12,2),!"
^XMB(3.9,82,2,1253,0)="""RTN"",""PRCPRISP"",49,0)"
^XMB(3.9,82,2,1254,0)=" . . . S TOTALQ=TOTALQ+$P(PRCPDATA,""^""),TOTALV=TOTALV+$P(PRCPDATA,""^"",3)"
^XMB(3.9,82,2,1255,0)="""RTN"",""PRCPRISP"",50,0)"
^XMB(3.9,82,2,1256,0)=" . . . I $Y>(IOSL-6) D:SCREEN P^PRCPUREP Q:$D(PRCPFLAG)  D H W !"
^XMB(3.9,82,2,1257,0)="""RTN"",""PRCPRISP"",51,0)"
^XMB(3.9,82,2,1258,0)=" . . I $G(PRCPFLAG) Q"
^XMB(3.9,82,2,1259,0)="""RTN"",""PRCPRISP"",52,0)"
^XMB(3.9,82,2,1260,0)=" . . S TOTALQI=TOTALQI+TOTALQ,TOTALVI=TOTALVI+TOTALV"
^XMB(3.9,82,2,1261,0)="""RTN"",""PRCPRISP"",53,0)"
^XMB(3.9,82,2,1262,0)=" . . S ^TMP($J,""PRCPRISP TOT"",DISTRPT)=$G(^TMP($J,""PRCPRISP TOT"",DISTRPT))+TOTALV"
^XMB(3.9,82,2,1263,0)="""RTN"",""PRCPRISP"",54,0)"
^XMB(3.9,82,2,1264,0)=" . . I 'PRCPSUMM W:$X>20 ! W ?27,""TOTALS BY DISTR. PT: "",$J(TOTALQ,10),$J(TOTALV,22,2)"
^XMB(3.9,82,2,1265,0)="""RTN"",""PRCPRISP"",55,0)"
^XMB(3.9,82,2,1266,0)=" . I $G(PRCPFLAG) Q"
^XMB(3.9,82,2,1267,0)="""RTN"",""PRCPRISP"",56,0)"
^XMB(3.9,82,2,1268,0)=" . W:'PRCPSUMM !?32,""TOTALS BY ITEM: "",$J(TOTALQI,10),$J(TOTALVI,22,2)"
^XMB(3.9,82,2,1269,0)="""RTN"",""PRCPRISP"",57,0)"
^XMB(3.9,82,2,1270,0)=" I $G(PRCPFLAG) D Q Q"
^XMB(3.9,82,2,1271,0)="""RTN"",""PRCPRISP"",58,0)"
^XMB(3.9,82,2,1272,0)=" I $Y>(IOSL-8) D:SCREEN P^PRCPUREP Q:$D(PRCPFLAG)  D H"
^XMB(3.9,82,2,1273,0)="""RTN"",""PRCPRISP"",59,0)"
^XMB(3.9,82,2,1274,0)=" W !!,""TOTAL SALES TO DISTRIBUTION POINTS:"""
^XMB(3.9,82,2,1275,0)="""RTN"",""PRCPRISP"",60,0)"
^XMB(3.9,82,2,1276,0)=" S TOTALV=0,DISTRPT="""" F  S DISTRPT=$O(^TMP($J,""PRCPRISP TOT"",DISTRPT)) Q:DISTRPT=""""!($G(PRCPFLAG))  S %=$G(^(DISTRPT)) D"
^XMB(3.9,82,2,1277,0)="""RTN"",""PRCPRISP"",61,0)"
^XMB(3.9,82,2,1278,0)=" . W !?10,DISTRPT,?40,$J(%,20,2)"
^XMB(3.9,82,2,1279,0)="""RTN"",""PRCPRISP"",62,0)"
^XMB(3.9,82,2,1280,0)=" . S TOTALV=TOTALV+%"
^XMB(3.9,82,2,1281,0)="""RTN"",""PRCPRISP"",63,0)"
^XMB(3.9,82,2,1282,0)=" . I $Y>(IOSL-4) D:SCREEN P^PRCPUREP Q:$D(PRCPFLAG)  D H"
^XMB(3.9,82,2,1283,0)="""RTN"",""PRCPRISP"",64,0)"
^XMB(3.9,82,2,1284,0)=" I $G(PRCPFLAG) D Q Q"
^XMB(3.9,82,2,1285,0)="""RTN"",""PRCPRISP"",65,0)"
^XMB(3.9,82,2,1286,0)=" W !?10,""TOTAL"",?40,$J(TOTALV,20,2)"
^XMB(3.9,82,2,1287,0)="""RTN"",""PRCPRISP"",66,0)"
^XMB(3.9,82,2,1288,0)=" D END^PRCPUREP"
^XMB(3.9,82,2,1289,0)="""RTN"",""PRCPRISP"",67,0)"
^XMB(3.9,82,2,1290,0)="Q D ^%ZISC K ^TMP($J,""PRCPURS3""),^TMP($J,""PRCPRISP""),^TMP($J,""PRCPRISP TOT"")"
^XMB(3.9,82,2,1291,0)="""RTN"",""PRCPRISP"",68,0)"
^XMB(3.9,82,2,1292,0)=" Q"
^XMB(3.9,82,2,1293,0)="""RTN"",""PRCPRISP"",69,0)"
^XMB(3.9,82,2,1294,0)=" ;"
^XMB(3.9,82,2,1295,0)="""RTN"",""PRCPRISP"",70,0)"
^XMB(3.9,82,2,1296,0)="H S %=NOW_""  PAGE ""_PAGE,PAGE=PAGE+1 I PAGE'=2!(SCREEN) W @IOF"
^XMB(3.9,82,2,1297,0)="""RTN"",""PRCPRISP"",71,0)"
^XMB(3.9,82,2,1298,0)=" W $C(13),""INVENTORY SALES FOR: "",$E(PRCP(""IN""),1,20),?(80-$L(%)),%"
^XMB(3.9,82,2,1299,0)="""RTN"",""PRCPRISP"",72,0)"
^XMB(3.9,82,2,1300,0)=" W !?5,""INVENTORY SALES DATE RANGE: "",DATESDT,""  TO  "",DATEEDT"
^XMB(3.9,82,2,1301,0)="""RTN"",""PRCPRISP"",73,0)"
^XMB(3.9,82,2,1302,0)=" S %="""",$P(%,""-"",81)="""""
^XMB(3.9,82,2,1303,0)="""RTN"",""PRCPRISP"",74,0)"
^XMB(3.9,82,2,1304,0)=" I PRCPSUMM W !?1,""*** ONLY SUMMARY OF SALES PRINTED ***"",!,% Q"
^XMB(3.9,82,2,1305,0)="""RTN"",""PRCPRISP"",75,0)"
^XMB(3.9,82,2,1306,0)=" W !,""DESCRIPTION"",?37,""DATE ISSUED"",$J(""QUANTITY"",10),$J(""SELL COST"",10),$J(""TOTAL VALUE"",12),!,%"
^XMB(3.9,82,2,1307,0)="""RTN"",""PRCPRISP"",76,0)"
^XMB(3.9,82,2,1308,0)=" Q"
^XMB(3.9,82,2,1309,0)="""RTN"",""PRCPRISS"")"
^XMB(3.9,82,2,1310,0)="0^9^B31105422^B31091039"
^XMB(3.9,82,2,1311,0)="""RTN"",""PRCPRISS"",1,0)"
^XMB(3.9,82,2,1312,0)="PRCPRISS ;WISC/RFJ-inventory sales (secondary)               ;24 May 93"
^XMB(3.9,82,2,1313,0)="""RTN"",""PRCPRISS"",2,0)"
^XMB(3.9,82,2,1314,0)="V ;;5.1;IFCAP;**1,41**;Oct 20, 2000"
^XMB(3.9,82,2,1315,0)="""RTN"",""PRCPRISS"",3,0)"
^XMB(3.9,82,2,1316,0)=" ;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,82,2,1317,0)="""RTN"",""PRCPRISS"",4,0)"
^XMB(3.9,82,2,1318,0)=" Q"
^XMB(3.9,82,2,1319,0)="""RTN"",""PRCPRISS"",5,0)"
^XMB(3.9,82,2,1320,0)=" ;"
^XMB(3.9,82,2,1321,0)="""RTN"",""PRCPRISS"",6,0)"
^XMB(3.9,82,2,1322,0)=" ;"
^XMB(3.9,82,2,1323,0)="""RTN"",""PRCPRISS"",7,0)"
^XMB(3.9,82,2,1324,0)=" ;  inventory sales report"
^XMB(3.9,82,2,1325,0)="""RTN"",""PRCPRISS"",8,0)"
^XMB(3.9,82,2,1326,0)="SECOND N ANS,DATEEND,DATESTRT,DISTRALL,PRCPEND,PRCPSTRT,PRCPSUMM,X"
^XMB(3.9,82,2,1327,0)="""RTN"",""PRCPRISS"",9,0)"
^XMB(3.9,82,2,1328,0)=" K X S X(1)=""The Inventory Sales Report will display all sales from the Secondary inventory point.  This report is sorted by description, the recipient and the date issued."" D DISPLAY^PRCPUX2(40,79,.X)"
^XMB(3.9,82,2,1329,0)="""RTN"",""PRCPRISS"",10,0)"
^XMB(3.9,82,2,1330,0)=" ;"
^XMB(3.9,82,2,1331,0)="""RTN"",""PRCPRISS"",11,0)"
^XMB(3.9,82,2,1332,0)=" K X S X(1)=""Select the RECIPIENTS to display"" D DISPLAY^PRCPUX2(2,40,.X)"
^XMB(3.9,82,2,1333,0)="""RTN"",""PRCPRISS"",12,0)"
^XMB(3.9,82,2,1334,0)=" D DISTRSEL^PRCPURS3(PRCP(""I""))"
^XMB(3.9,82,2,1335,0)="""RTN"",""PRCPRISS"",13,0)"
^XMB(3.9,82,2,1336,0)=" I '$G(DISTRALL),$O(^TMP($J,""PRCPURS3"",""YES"",0))']"""" W !,""*** NO RECIPIENTS SELECTED !"" D Q Q"
^XMB(3.9,82,2,1337,0)="""RTN"",""PRCPRISS"",14,0)"
^XMB(3.9,82,2,1338,0)=" ;"
^XMB(3.9,82,2,1339,0)="""RTN"",""PRCPRISS"",15,0)"
^XMB(3.9,82,2,1340,0)=" K X S X(1)=""Select the range of ISSUE DATES to display"" W !! D DISPLAY^PRCPUX2(2,40,.X)"
^XMB(3.9,82,2,1341,0)="""RTN"",""PRCPRISS"",16,0)"
^XMB(3.9,82,2,1342,0)=" D DATESEL^PRCPURS2(""Issue"") I '$G(DATEEND) D Q Q"
^XMB(3.9,82,2,1343,0)="""RTN"",""PRCPRISS"",17,0)"
^XMB(3.9,82,2,1344,0)=" ;"
^XMB(3.9,82,2,1345,0)="""RTN"",""PRCPRISS"",18,0)"
^XMB(3.9,82,2,1346,0)=" S PRCPSUMM=$$SUMMARY^PRCPURS0 I PRCPSUMM<0 D Q Q"
^XMB(3.9,82,2,1347,0)="""RTN"",""PRCPRISS"",19,0)"
^XMB(3.9,82,2,1348,0)=" ;"
^XMB(3.9,82,2,1349,0)="""RTN"",""PRCPRISS"",20,0)"
^XMB(3.9,82,2,1350,0)=" W ! S %ZIS=""Q"" D ^%ZIS G:POP Q I $D(IO(""Q"")) D  D ^%ZTLOAD K IO(""Q""),ZTSK D Q Q"
^XMB(3.9,82,2,1351,0)="""RTN"",""PRCPRISS"",21,0)"
^XMB(3.9,82,2,1352,0)=" . S ZTDESC=""Secondary Inventory Sales Report"",ZTRTN=""DQ^PRCPRISS"""
^XMB(3.9,82,2,1353,0)="""RTN"",""PRCPRISS"",22,0)"
^XMB(3.9,82,2,1354,0)=" . S ZTSAVE(""PRCP*"")="""",ZTSAVE(""DATE*"")="""",ZTSAVE(""DISTRALL"")="""",ZTSAVE(""^TMP($J,""""PRCPURS3"""","")="""",ZTSAVE(""ZTREQ"")=""@"""
^XMB(3.9,82,2,1355,0)="""RTN"",""PRCPRISS"",23,0)"
^XMB(3.9,82,2,1356,0)=" W !!,""<*> please wait <*>"""
^XMB(3.9,82,2,1357,0)="""RTN"",""PRCPRISS"",24,0)"
^XMB(3.9,82,2,1358,0)=" ;"
^XMB(3.9,82,2,1359,0)="""RTN"",""PRCPRISS"",25,0)"
^XMB(3.9,82,2,1360,0)=" ;  queue starts here"
^XMB(3.9,82,2,1361,0)="""RTN"",""PRCPRISS"",26,0)"
^XMB(3.9,82,2,1362,0)="DQ N %,%H,%I,DA,DATA,DATE,DATEEDT,DATESDT,DESCR,DISTRNM,DISTRPT,ITEMDA,ITEMDATA,NOW,PAGE,PRCPDATA,PRCPFLAG,SCREEN,TOTALQ,TOTALQI,TOTALV,TOTALVI,X,Y"
^XMB(3.9,82,2,1363,0)="""RTN"",""PRCPRISS"",27,0)"
^XMB(3.9,82,2,1364,0)=" K ^TMP($J,""PRCPRISP""),^TMP($J,""PRCPRISP TOT"")"
^XMB(3.9,82,2,1365,0)="""RTN"",""PRCPRISS"",28,0)"
^XMB(3.9,82,2,1366,0)=" S DATE=DATESTRT-.01 F  S DATE=$O(^PRCP(445.2,""AX"",PRCP(""I""),DATE)) Q:'DATE!(DATE>DATEEND)  S DA=0 F  S DA=$O(^PRCP(445.2,""AX"",PRCP(""I""),DATE,""U"",DA)) Q:'DA  D"
^XMB(3.9,82,2,1367,0)="""RTN"",""PRCPRISS"",29,0)"
^XMB(3.9,82,2,1368,0)=" . S DATA=$G(^PRCP(445.2,DA,0)) I DATA="""" Q"
^XMB(3.9,82,2,1369,0)="""RTN"",""PRCPRISS"",30,0)"
^XMB(3.9,82,2,1370,0)=" . S ITEMDA=$P(DATA,""^"",5),DESCR=$$DESCR^PRCPUX1(PRCP(""I""),ITEMDA) S:DESCR="""" DESCR="" """
^XMB(3.9,82,2,1371,0)="""RTN"",""PRCPRISS"",31,0)"
^XMB(3.9,82,2,1372,0)=" . S DISTRPT=$P($G(^PRCP(445.2,DA,2)),""^"",2)"
^XMB(3.9,82,2,1373,0)="""RTN"",""PRCPRISS"",32,0)"
^XMB(3.9,82,2,1374,0)=" . I DISTRPT']"""",'$G(DISTRALL) Q"
^XMB(3.9,82,2,1375,0)="""RTN"",""PRCPRISS"",33,0)"
^XMB(3.9,82,2,1376,0)=" . I $G(DISTRALL),$D(^TMP($J,""PRCPURS3"",""NO"",DISTRPT)) Q"
^XMB(3.9,82,2,1377,0)="""RTN"",""PRCPRISS"",34,0)"
^XMB(3.9,82,2,1378,0)=" . I '$G(DISTRALL),'$D(^TMP($J,""PRCPURS3"",""YES"",DISTRPT)) Q"
^XMB(3.9,82,2,1379,0)="""RTN"",""PRCPRISS"",35,0)"
^XMB(3.9,82,2,1380,0)=" . S $P(DATA,""^"",7)=-$P(DATA,""^"",7),$P(DATA,""^"",23)=-$P(DATA,""^"",23)"
^XMB(3.9,82,2,1381,0)="""RTN"",""PRCPRISS"",36,0)"
^XMB(3.9,82,2,1382,0)=" . I '$P(DATA,""^"",23) S $P(DATA,""^"",23)=$J($P(DATA,""^"",7)*$P(DATA,""^"",8),0,2)"
^XMB(3.9,82,2,1383,0)="""RTN"",""PRCPRISS"",37,0)"
^XMB(3.9,82,2,1384,0)=" . S ^TMP($J,""PRCPRISP"",$E(DESCR,1,10),ITEMDA,$E(DISTRPT,1,24),DATE,DA)=$P(DATA,""^"",7)_""^""_$S('$P(DATA,""^"",7):0,1:$J($P(DATA,""^"",23)/$P(DATA,""^"",7),0,3))_""^""_$P(DATA,""^"",23)"
^XMB(3.9,82,2,1385,0)="""RTN"",""PRCPRISS"",38,0)"
^XMB(3.9,82,2,1386,0)=" ;"
^XMB(3.9,82,2,1387,0)="""RTN"",""PRCPRISS"",39,0)"
^XMB(3.9,82,2,1388,0)=" ;  print report"
^XMB(3.9,82,2,1389,0)="""RTN"",""PRCPRISS"",40,0)"
^XMB(3.9,82,2,1390,0)=" S Y=DATESTRT D DD^%DT S DATESDT=Y,Y=DATEEND D DD^%DT S DATEEDT=Y"
^XMB(3.9,82,2,1391,0)="""RTN"",""PRCPRISS"",41,0)"
^XMB(3.9,82,2,1392,0)=" D NOW^%DTC S Y=% D DD^%DT S NOW=Y"
^XMB(3.9,82,2,1393,0)="""RTN"",""PRCPRISS"",42,0)"
^XMB(3.9,82,2,1394,0)=" S PAGE=1,SCREEN=$$SCRPAUSE^PRCPUREP U IO D H"
^XMB(3.9,82,2,1395,0)="""RTN"",""PRCPRISS"",43,0)"
^XMB(3.9,82,2,1396,0)=" S DESCR="""" F  S DESCR=$O(^TMP($J,""PRCPRISP"",DESCR)) Q:DESCR=""""!($G(PRCPFLAG))  S ITEMDA=0 F  S ITEMDA=$O(^TMP($J,""PRCPRISP"",DESCR,ITEMDA)) Q:'ITEMDA!($G(PRCPFLAG))  D"
^XMB(3.9,82,2,1397,0)="""RTN"",""PRCPRISS"",44,0)"
^XMB(3.9,82,2,1398,0)=" . I $G(ZTQUEUED),$$S^%ZTLOAD S PRCPFLAG=1 W !?10,""<<< TASKMANAGER JOB TERMINATED BY USER >>>"" Q"
^XMB(3.9,82,2,1399,0)="""RTN"",""PRCPRISS"",45,0)"
^XMB(3.9,82,2,1400,0)=" . I $Y>(IOSL-6) D:SCREEN P^PRCPUREP Q:$D(PRCPFLAG)  D H"
^XMB(3.9,82,2,1401,0)="""RTN"",""PRCPRISS"",46,0)"
^XMB(3.9,82,2,1402,0)=" . S ITEMDATA=$G(^PRCP(445,PRCP(""I""),1,ITEMDA,0))"
^XMB(3.9,82,2,1403,0)="""RTN"",""PRCPRISS"",47,0)"
^XMB(3.9,82,2,1404,0)=" . W:'PRCPSUMM !,$E($$DESCR^PRCPUX1(PRCP(""I""),ITEMDA),1,38),?39,""["",ITEMDA,""]"""
^XMB(3.9,82,2,1405,0)="""RTN"",""PRCPRISS"",48,0)"
^XMB(3.9,82,2,1406,0)=" . S (TOTALQI,TOTALVI)=0"
^XMB(3.9,82,2,1407,0)="""RTN"",""PRCPRISS"",49,0)"
^XMB(3.9,82,2,1408,0)=" . S DISTRPT="""" F  S DISTRPT=$O(^TMP($J,""PRCPRISP"",DESCR,ITEMDA,DISTRPT)) Q:DISTRPT=""""!($G(PRCPFLAG))  D"
^XMB(3.9,82,2,1409,0)="""RTN"",""PRCPRISS"",50,0)"
^XMB(3.9,82,2,1410,0)=" . . W:'PRCPSUMM !?15,$S(DISTRPT="" "":""<<NONE>>"",1:DISTRPT)"
^XMB(3.9,82,2,1411,0)="""RTN"",""PRCPRISS"",51,0)"
^XMB(3.9,82,2,1412,0)=" . . S (TOTALQ,TOTALV)=0"
^XMB(3.9,82,2,1413,0)="""RTN"",""PRCPRISS"",52,0)"
^XMB(3.9,82,2,1414,0)=" . . S DATE=0 F  S DATE=$O(^TMP($J,""PRCPRISP"",DESCR,ITEMDA,DISTRPT,DATE)) Q:'DATE!($G(PRCPFLAG))  S DA=0 F  S DA=$O(^TMP($J,""PRCPRISP"",DESCR,ITEMDA,DISTRPT,DATE,DA)) Q:'DA!($G(PRCPFLAG))  S PRCPDATA=^(DA) D"
^XMB(3.9,82,2,1415,0)="""RTN"",""PRCPRISS"",53,0)"
^XMB(3.9,82,2,1416,0)=" . . . W:'PRCPSUMM ?40,$E(DATE,4,5),""/"",$E(DATE,6,7),""/"",$E(DATE,2,3),$J($P(PRCPDATA,""^""),10),$J($P(PRCPDATA,""^"",2),10,3),$J($P(PRCPDATA,""^"",3),12,2),!"
^XMB(3.9,82,2,1417,0)="""RTN"",""PRCPRISS"",54,0)"
^XMB(3.9,82,2,1418,0)=" . . . S TOTALQ=TOTALQ+$P(PRCPDATA,""^""),TOTALV=TOTALV+$P(PRCPDATA,""^"",3)"
^XMB(3.9,82,2,1419,0)="""RTN"",""PRCPRISS"",55,0)"
^XMB(3.9,82,2,1420,0)=" . . . I $Y>(IOSL-6) D:SCREEN P^PRCPUREP Q:$D(PRCPFLAG)  D H W !"
^XMB(3.9,82,2,1421,0)="""RTN"",""PRCPRISS"",56,0)"
^XMB(3.9,82,2,1422,0)=" . . I $G(PRCPFLAG) Q"
^XMB(3.9,82,2,1423,0)="""RTN"",""PRCPRISS"",57,0)"
^XMB(3.9,82,2,1424,0)=" . . S TOTALQI=TOTALQI+TOTALQ,TOTALVI=TOTALVI+TOTALV"
^XMB(3.9,82,2,1425,0)="""RTN"",""PRCPRISS"",58,0)"
^XMB(3.9,82,2,1426,0)=" . . S ^TMP($J,""PRCPRISP TOT"",DISTRPT)=$G(^TMP($J,""PRCPRISP TOT"",DISTRPT))+TOTALV"
^XMB(3.9,82,2,1427,0)="""RTN"",""PRCPRISS"",59,0)"
^XMB(3.9,82,2,1428,0)=" . . I 'PRCPSUMM W:$X>20 ! W ?27,""TOTALS BY RECIPIENT: "",$J(TOTALQ,10),$J(TOTALV,22,2)"
^XMB(3.9,82,2,1429,0)="""RTN"",""PRCPRISS"",60,0)"
^XMB(3.9,82,2,1430,0)=" . I $G(PRCPFLAG) Q"
^XMB(3.9,82,2,1431,0)="""RTN"",""PRCPRISS"",61,0)"
^XMB(3.9,82,2,1432,0)=" . W:'PRCPSUMM !?32,""TOTALS BY ITEM: "",$J(TOTALQI,10),$J(TOTALVI,22,2)"
^XMB(3.9,82,2,1433,0)="""RTN"",""PRCPRISS"",62,0)"
^XMB(3.9,82,2,1434,0)=" I $G(PRCPFLAG) D Q Q"
^XMB(3.9,82,2,1435,0)="""RTN"",""PRCPRISS"",63,0)"
^XMB(3.9,82,2,1436,0)=" I $Y>(IOSL-8) D:SCREEN P^PRCPUREP Q:$D(PRCPFLAG)  D H"
^XMB(3.9,82,2,1437,0)="""RTN"",""PRCPRISS"",64,0)"
^XMB(3.9,82,2,1438,0)=" W !!,""TOTAL SALES TO RECIPIENTS:"""
^XMB(3.9,82,2,1439,0)="""RTN"",""PRCPRISS"",65,0)"
^XMB(3.9,82,2,1440,0)=" S TOTALV=0,DISTRPT="""" F  S DISTRPT=$O(^TMP($J,""PRCPRISP TOT"",DISTRPT)) Q:DISTRPT=""""!($G(PRCPFLAG))  S %=$G(^(DISTRPT)) D"
^XMB(3.9,82,2,1441,0)="""RTN"",""PRCPRISS"",66,0)"
^XMB(3.9,82,2,1442,0)=" . W !?10,DISTRPT,?40,$J(%,20,2)"
^XMB(3.9,82,2,1443,0)="""RTN"",""PRCPRISS"",67,0)"
^XMB(3.9,82,2,1444,0)=" . S TOTALV=TOTALV+%"
^XMB(3.9,82,2,1445,0)="""RTN"",""PRCPRISS"",68,0)"
^XMB(3.9,82,2,1446,0)=" . I $Y>(IOSL-4) D:SCREEN P^PRCPUREP Q:$D(PRCPFLAG)  D H"
^XMB(3.9,82,2,1447,0)="""RTN"",""PRCPRISS"",69,0)"
^XMB(3.9,82,2,1448,0)=" I $G(PRCPFLAG) D Q Q"
^XMB(3.9,82,2,1449,0)="""RTN"",""PRCPRISS"",70,0)"
^XMB(3.9,82,2,1450,0)=" W !?10,""TOTAL"",?40,$J(TOTALV,20,2)"
^XMB(3.9,82,2,1451,0)="""RTN"",""PRCPRISS"",71,0)"
^XMB(3.9,82,2,1452,0)=" D END^PRCPUREP"
^XMB(3.9,82,2,1453,0)="""RTN"",""PRCPRISS"",72,0)"
^XMB(3.9,82,2,1454,0)="Q D ^%ZISC K ^TMP($J,""PRCPURS3""),^TMP($J,""PRCPRISP""),^TMP($J,""PRCPRISP TOT"")"
^XMB(3.9,82,2,1455,0)="""RTN"",""PRCPRISS"",73,0)"
^XMB(3.9,82,2,1456,0)=" Q"
^XMB(3.9,82,2,1457,0)="""RTN"",""PRCPRISS"",74,0)"
^XMB(3.9,82,2,1458,0)=" ;"
^XMB(3.9,82,2,1459,0)="""RTN"",""PRCPRISS"",75,0)"
^XMB(3.9,82,2,1460,0)="H S %=NOW_""  PAGE ""_PAGE,PAGE=PAGE+1 I PAGE'=2!(SCREEN) W @IOF"
^XMB(3.9,82,2,1461,0)="""RTN"",""PRCPRISS"",76,0)"
^XMB(3.9,82,2,1462,0)=" W $C(13),""INVENTORY SALES FOR: "",$E(PRCP(""IN""),1,20),?(80-$L(%)),%"
^XMB(3.9,82,2,1463,0)="""RTN"",""PRCPRISS"",77,0)"
^XMB(3.9,82,2,1464,0)=" W !?5,""INVENTORY SALES DATE RANGE: "",DATESDT,""  TO  "",DATEEDT"
^XMB(3.9,82,2,1465,0)="""RTN"",""PRCPRISS"",78,0)"
^XMB(3.9,82,2,1466,0)=" S %="""",$P(%,""-"",81)="""""
^XMB(3.9,82,2,1467,0)="""RTN"",""PRCPRISS"",79,0)"
^XMB(3.9,82,2,1468,0)=" I PRCPSUMM W !?1,""*** ONLY SUMMARY OF SALES PRINTED ***"",!,% Q"
^XMB(3.9,82,2,1469,0)="""RTN"",""PRCPRISS"",80,0)"
^XMB(3.9,82,2,1470,0)=" W !,""DESCRIPTION"",?37,""DATE ISSUED"",$J(""QUANTITY"",10),$J(""SELL COST"",10),$J(""TOTAL VALUE"",12),!,%"
^XMB(3.9,82,2,1471,0)="""RTN"",""PRCPRISS"",81,0)"
^XMB(3.9,82,2,1472,0)=" Q"
^XMB(3.9,82,2,1473,0)="""RTN"",""PRCPRISS"",82,0)"
^XMB(3.9,82,2,1474,0)=" ;"
^XMB(3.9,82,2,1475,0)="""RTN"",""PRCPRISS"",83,0)"
^XMB(3.9,82,2,1476,0)="TOWHOM(INVPT) ; identify a recipient"
^XMB(3.9,82,2,1477,0)="""RTN"",""PRCPRISS"",84,0)"
^XMB(3.9,82,2,1478,0)=" ;"
^XMB(3.9,82,2,1479,0)="""RTN"",""PRCPRISS"",85,0)"
^XMB(3.9,82,2,1480,0)=" ;"
^XMB(3.9,82,2,1481,0)="""RTN"",""PRCPRISS"",86,0)"
^XMB(3.9,82,2,1482,0)=" N DIC,DIR,PRCPA,PRCPB,PRCPC,PRCPD,PRCPI"
^XMB(3.9,82,2,1483,0)="""RTN"",""PRCPRISS"",87,0)"
^XMB(3.9,82,2,1484,0)="TOWHOM1 S DIR(0)=""FOU^3:50"""
^XMB(3.9,82,2,1485,0)="""RTN"",""PRCPRISS"",88,0)"
^XMB(3.9,82,2,1486,0)=" S DIR(""A"")=""RECIPIENT"""
^XMB(3.9,82,2,1487,0)="""RTN"",""PRCPRISS"",89,0)"
^XMB(3.9,82,2,1488,0)=" D ^DIR K DIR"
^XMB(3.9,82,2,1489,0)="""RTN"",""PRCPRISS"",90,0)"
^XMB(3.9,82,2,1490,0)=" I $G(DUOUT)!$G(DTOUT)!(Y']"""") G TOWHOMQ"
^XMB(3.9,82,2,1491,0)="""RTN"",""PRCPRISS"",91,0)"
^XMB(3.9,82,2,1492,0)=" S PRCPI=0,PRCPB=X"
^XMB(3.9,82,2,1493,0)="""RTN"",""PRCPRISS"",92,0)"
^XMB(3.9,82,2,1494,0)=" I $O(^PRCP(445.2,""D"",INVPT,X,"""")) S PRCPD(1)=X,PRCPI=1"
^XMB(3.9,82,2,1495,0)="""RTN"",""PRCPRISS"",93,0)"
^XMB(3.9,82,2,1496,0)=" S PRCPA=X"
^XMB(3.9,82,2,1497,0)="""RTN"",""PRCPRISS"",94,0)"
^XMB(3.9,82,2,1498,0)=" F PRCPC=PRCPI:1 S PRCPA=$O(^PRCP(445.2,""D"",INVPT,PRCPA)) Q:$E(PRCPA,1,$L(PRCPB))'=PRCPB!(PRCPA']"""")  S PRCPD(PRCPC+1)=PRCPA"
^XMB(3.9,82,2,1499,0)="""RTN"",""PRCPRISS"",95,0)"
^XMB(3.9,82,2,1500,0)=" I '$O(PRCPD("""")) W !,""THERE ARE NO RECIPIENTS OF THAT NAME IN THIS INVENTORY POINT"" G TOWHOM1"
^XMB(3.9,82,2,1501,0)="""RTN"",""PRCPRISS"",96,0)"
^XMB(3.9,82,2,1502,0)=" F PRCPI=1:1:PRCPC S DIR(""A"",PRCPI)=$E(""    "",$L(PRCPI+1),4)_PRCPI_""  ""_PRCPD(PRCPI)"
^XMB(3.9,82,2,1503,0)="""RTN"",""PRCPRISS"",97,0)"
^XMB(3.9,82,2,1504,0)=" S DIR(""A"")=""WHICH RECIPIENT"""
^XMB(3.9,82,2,1505,0)="""RTN"",""PRCPRISS"",98,0)"
^XMB(3.9,82,2,1506,0)=" S DIR(0)=""L^1:""_PRCPI"
^XMB(3.9,82,2,1507,0)="""RTN"",""PRCPRISS"",99,0)"
^XMB(3.9,82,2,1508,0)=" D ^DIR K DIR"
^XMB(3.9,82,2,1509,0)="""RTN"",""PRCPRISS"",100,0)"
^XMB(3.9,82,2,1510,0)="TOWHOMQ Q ($S($G(DUOUT):""^"",$G(DTOUT):""^"",Y<1:0,Y=""^"":0,1:$G(PRCPD(+Y))))"
^XMB(3.9,82,2,1511,0)="""RTN"",""PRCPRSSR"")"
^XMB(3.9,82,2,1512,0)="0^5^B26117439^B24514851"
^XMB(3.9,82,2,1513,0)="""RTN"",""PRCPRSSR"",1,0)"
^XMB(3.9,82,2,1514,0)="PRCPRSSR ;WISC/RFJ/dh/DWA-stock status report (option, whse) ;3.13.98"
^XMB(3.9,82,2,1515,0)="""RTN"",""PRCPRSSR"",2,0)"
^XMB(3.9,82,2,1516,0)=" ;;5.1;IFCAP;**17,41**;Oct 20, 2000"
^XMB(3.9,82,2,1517,0)="""RTN"",""PRCPRSSR"",3,0)"
^XMB(3.9,82,2,1518,0)=" ;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,82,2,1519,0)="""RTN"",""PRCPRSSR"",4,0)"
^XMB(3.9,82,2,1520,0)=" ;"
^XMB(3.9,82,2,1521,0)="""RTN"",""PRCPRSSR"",5,0)"
^XMB(3.9,82,2,1522,0)=" ;*83 Routine PRCPLO2 associated with PRC*5.1*83 is a modified copy of"
^XMB(3.9,82,2,1523,0)="""RTN"",""PRCPRSSR"",6,0)"
^XMB(3.9,82,2,1524,0)=" ;this routine and any changes made to this routine should also be"
^XMB(3.9,82,2,1525,0)="""RTN"",""PRCPRSSR"",7,0)"
^XMB(3.9,82,2,1526,0)=" ;considered for that routine as well."
^XMB(3.9,82,2,1527,0)="""RTN"",""PRCPRSSR"",8,0)"
^XMB(3.9,82,2,1528,0)=" ;"
^XMB(3.9,82,2,1529,0)="""RTN"",""PRCPRSSR"",9,0)"
^XMB(3.9,82,2,1530,0)=" D ^PRCPUSEL Q:'$D(PRCP(""I""))"
^XMB(3.9,82,2,1531,0)="""RTN"",""PRCPRSSR"",10,0)"
^XMB(3.9,82,2,1532,0)=" N %,%DT,%H,%I,DATEINAC,DATESTRT,TODAY,X,X1,X2,Y"
^XMB(3.9,82,2,1533,0)="""RTN"",""PRCPRSSR"",11,0)"
^XMB(3.9,82,2,1534,0)=" K X S X(1)=""The Stock Status Report will print a summary of all issues, receipts, and adjustments with the opening and closing balances by account codes."""
^XMB(3.9,82,2,1535,0)="""RTN"",""PRCPRSSR"",12,0)"
^XMB(3.9,82,2,1536,0)=" S X(2)=""It will calculate the turnover rate, inactive item percent, long supply percent, and non-issuable percent."""
^XMB(3.9,82,2,1537,0)="""RTN"",""PRCPRSSR"",13,0)"
^XMB(3.9,82,2,1538,0)=" D DISPLAY^PRCPUX2(40,79,.X)"
^XMB(3.9,82,2,1539,0)="""RTN"",""PRCPRSSR"",14,0)"
^XMB(3.9,82,2,1540,0)=" K X S X(1)=""Enter the date (month-year) for the Stock Status Report."" D DISPLAY^PRCPUX2(2,40,.X)"
^XMB(3.9,82,2,1541,0)="""RTN"",""PRCPRSSR"",15,0)"
^XMB(3.9,82,2,1542,0)=" D NOW^%DTC S TODAY=X,Y=$E(X,1,5)_""00"" S %DT(0)=-Y D DD^%DT S %DT=""AEP"",%DT(""B"")=Y,%DT(""A"")=""Print Stock Status for MONTH and YEAR: "" D ^%DT K %DT I Y<1 Q"
^XMB(3.9,82,2,1543,0)="""RTN"",""PRCPRSSR"",16,0)"
^XMB(3.9,82,2,1544,0)=" S DATESTRT=$E(Y,1,5)_""00"""
^XMB(3.9,82,2,1545,0)="""RTN"",""PRCPRSSR"",17,0)"
^XMB(3.9,82,2,1546,0)=" K X S X(1)=""The inactive item percent is calculated for items which have not had activity (receipts or issues) after a specified cutoff date."" D DISPLAY^PRCPUX2(40,79,.X)"
^XMB(3.9,82,2,1547,0)="""RTN"",""PRCPRSSR"",18,0)"
^XMB(3.9,82,2,1548,0)=" K X S X(1)=""Enter the Inactivity cutoff date."" D DISPLAY^PRCPUX2(2,40,.X)"
^XMB(3.9,82,2,1549,0)="""RTN"",""PRCPRSSR"",19,0)"
^XMB(3.9,82,2,1550,0)=" S X1=TODAY,X2=-90 D C^%DTC S Y=$E(X,1,5)_""00"" D DD^%DT"
^XMB(3.9,82,2,1551,0)="""RTN"",""PRCPRSSR"",20,0)"
^XMB(3.9,82,2,1552,0)=" S %DT(0)=-($E(TODAY,1,5)_""00""),%DT=""AEP"",%DT(""B"")=Y,%DT(""A"")=""Enter Inactivity Cutoff MONTH and YEAR: "" D ^%DT K %DT I Y<1 Q"
^XMB(3.9,82,2,1553,0)="""RTN"",""PRCPRSSR"",21,0)"
^XMB(3.9,82,2,1554,0)=" S DATEINAC=$E(Y,1,5)_""00"""
^XMB(3.9,82,2,1555,0)="""RTN"",""PRCPRSSR"",22,0)"
^XMB(3.9,82,2,1556,0)=" W ! S %ZIS=""Q"" D ^%ZIS Q:POP  I $D(IO(""Q"")) D  D ^%ZTLOAD K IO(""Q""),ZTSK Q"
^XMB(3.9,82,2,1557,0)="""RTN"",""PRCPRSSR"",23,0)"
^XMB(3.9,82,2,1558,0)=" .   S ZTDESC=""Stock Status Report"",ZTRTN=""DQ^PRCPRSSR"""
^XMB(3.9,82,2,1559,0)="""RTN"",""PRCPRSSR"",24,0)"
^XMB(3.9,82,2,1560,0)=" .   S ZTSAVE(""PRCP*"")="""",ZTSAVE(""DATE*"")="""",ZTSAVE(""ZTREQ"")=""@"""
^XMB(3.9,82,2,1561,0)="""RTN"",""PRCPRSSR"",25,0)"
^XMB(3.9,82,2,1562,0)=" W !!,""<*> please wait <*>"""
^XMB(3.9,82,2,1563,0)="""RTN"",""PRCPRSSR"",26,0)"
^XMB(3.9,82,2,1564,0)="DQ ;  queue starts here"
^XMB(3.9,82,2,1565,0)="""RTN"",""PRCPRSSR"",27,0)"
^XMB(3.9,82,2,1566,0)=" N ACCT,ADJ,ADJN,AVERAGE,D,DA,DATE,DATELONG,DUEIN,DUEOUT,INACT,INACTN,INVVAL,ISS,ISSN,ITEMDA,LONG,LONGN,NONISS,NONISSN,ONHAND,OPEN,QTY,REC,RECN,TOTAL,TOTDAYS,TRANSNO,TYPE,VALUE"
^XMB(3.9,82,2,1567,0)="""RTN"",""PRCPRSSR"",28,0)"
^XMB(3.9,82,2,1568,0)=" K OPEN"
^XMB(3.9,82,2,1569,0)="""RTN"",""PRCPRSSR"",29,0)"
^XMB(3.9,82,2,1570,0)=" S ITEMDA=0 F  S ITEMDA=$O(^PRCP(445.1,PRCP(""I""),1,ITEMDA)) Q:'ITEMDA  S X=$$GETOPEN^PRCPUBAL(PRCP(""I""),ITEMDA,$E(DATESTRT,1,5)) I X'="""" D"
^XMB(3.9,82,2,1571,0)="""RTN"",""PRCPRSSR"",30,0)"
^XMB(3.9,82,2,1572,0)=" .   S ACCT=$$ACCT1^PRCPUX1($$FSC^PRCPUX1(ITEMDA))"
^XMB(3.9,82,2,1573,0)="""RTN"",""PRCPRSSR"",31,0)"
^XMB(3.9,82,2,1574,0)=" .   S $P(OPEN(ACCT),""^"")=$P($G(OPEN(ACCT)),""^"")+$P(X,""^"",2)+$P(X,""^"",3)"
^XMB(3.9,82,2,1575,0)="""RTN"",""PRCPRSSR"",32,0)"
^XMB(3.9,82,2,1576,0)=" .   S $P(OPEN(ACCT),""^"",2)=$P($G(OPEN(ACCT)),""^"",2)+$P(X,""^"",8)"
^XMB(3.9,82,2,1577,0)="""RTN"",""PRCPRSSR"",33,0)"
^XMB(3.9,82,2,1578,0)=" S DATE=DATESTRT F  S DATE=$O(^PRCP(445.2,""AX"",PRCP(""I""),DATE)) Q:$E(DATE,1,5)'=$E(DATESTRT,1,5)  S TYPE="""" F  S TYPE=$O(^PRCP(445.2,""AX"",PRCP(""I""),DATE,TYPE)) Q:TYPE=""""  D"
^XMB(3.9,82,2,1579,0)="""RTN"",""PRCPRSSR"",34,0)"
^XMB(3.9,82,2,1580,0)=" .   S DA=0 F  S DA=$O(^PRCP(445.2,""AX"",PRCP(""I""),DATE,TYPE,DA)) Q:'DA  D"
^XMB(3.9,82,2,1581,0)="""RTN"",""PRCPRSSR"",35,0)"
^XMB(3.9,82,2,1582,0)=" .   .   S D=$G(^PRCP(445.2,DA,0)) I '$P(D,""^"",5) Q"
^XMB(3.9,82,2,1583,0)="""RTN"",""PRCPRSSR"",36,0)"
^XMB(3.9,82,2,1584,0)=" .   .   ;  non-issuable"
^XMB(3.9,82,2,1585,0)="""RTN"",""PRCPRSSR"",37,0)"
^XMB(3.9,82,2,1586,0)=" .   .   Q:$P(D,""^"",11)=""N""  ;count if not flagged as non-issueable"
^XMB(3.9,82,2,1587,0)="""RTN"",""PRCPRSSR"",38,0)"
^XMB(3.9,82,2,1588,0)=" .   .   S ACCT=$$ACCT1^PRCPUX1($$FSC^PRCPUX1($P(D,""^"",5)))"
^XMB(3.9,82,2,1589,0)="""RTN"",""PRCPRSSR"",39,0)"
^XMB(3.9,82,2,1590,0)=" .   .   S TRANSNO=$P(D,""^"",19)"
^XMB(3.9,82,2,1591,0)="""RTN"",""PRCPRSSR"",40,0)"
^XMB(3.9,82,2,1592,0)=" .   .   S INVVAL=$P(D,""^"",7)*$P(D,""^"",8) I $P(D,""^"",22)'="""" S INVVAL=$P(D,""^"",22)"
^XMB(3.9,82,2,1593,0)="""RTN"",""PRCPRSSR"",41,0)"
^XMB(3.9,82,2,1594,0)=" .   .   ;  set transno temporary for primary and secondary to"
^XMB(3.9,82,2,1595,0)="""RTN"",""PRCPRSSR"",42,0)"
^XMB(3.9,82,2,1596,0)=" .   .   ;  indicate type of transaction"
^XMB(3.9,82,2,1597,0)="""RTN"",""PRCPRSSR"",43,0)"
^XMB(3.9,82,2,1598,0)=" .   .   I PRCP(""DPTYPE"")'=""W"" D"
^XMB(3.9,82,2,1599,0)="""RTN"",""PRCPRSSR"",44,0)"
^XMB(3.9,82,2,1600,0)=" .   .   .   I TYPE=""R""!(TYPE=""C"")!(TYPE=""E"")!(TYPE=""U"")!(TYPE=""S"") S TRANSNO=""--1"" Q  ;issue"
^XMB(3.9,82,2,1601,0)="""RTN"",""PRCPRSSR"",45,0)"
^XMB(3.9,82,2,1602,0)=" .   .   .   I TYPE=""RC"" S TRANSNO=1 Q  ;receipt"
^XMB(3.9,82,2,1603,0)="""RTN"",""PRCPRSSR"",46,0)"
^XMB(3.9,82,2,1604,0)=" .   .   .   S TRANSNO="""" ;adjustment"
^XMB(3.9,82,2,1605,0)="""RTN"",""PRCPRSSR"",47,0)"
^XMB(3.9,82,2,1606,0)=" .   .   ;  other adjustments"
^XMB(3.9,82,2,1607,0)="""RTN"",""PRCPRSSR"",48,0)"
^XMB(3.9,82,2,1608,0)=" .   .   I PRCP(""DPTYPE"")=""W"",$P(TRANSNO,""-"",2)="""" S ADJ(ACCT)=$G(ADJ(ACCT))+INVVAL,ADJN(ACCT)=$G(ADJN(ACCT))+1 Q"
^XMB(3.9,82,2,1609,0)="""RTN"",""PRCPRSSR"",49,0)"
^XMB(3.9,82,2,1610,0)=" .   .   I TRANSNO="""" S ADJ(ACCT)=$G(ADJ(ACCT))+INVVAL,ADJN(ACCT)=$G(ADJN(ACCT))+1"
^XMB(3.9,82,2,1611,0)="""RTN"",""PRCPRSSR"",50,0)"
^XMB(3.9,82,2,1612,0)=" .   .   E  D"
^XMB(3.9,82,2,1613,0)="""RTN"",""PRCPRSSR"",51,0)"
^XMB(3.9,82,2,1614,0)=" .   .   .   ;  purchase order"
^XMB(3.9,82,2,1615,0)="""RTN"",""PRCPRSSR"",52,0)"
^XMB(3.9,82,2,1616,0)=" .   .   .   I $P(TRANSNO,""-"",3)="""" S REC(ACCT)=$G(REC(ACCT))+INVVAL,RECN(ACCT)=$G(RECN(ACCT))+1 Q"
^XMB(3.9,82,2,1617,0)="""RTN"",""PRCPRSSR"",53,0)"
^XMB(3.9,82,2,1618,0)=" .   .   .   ;  issue"
^XMB(3.9,82,2,1619,0)="""RTN"",""PRCPRSSR"",54,0)"
^XMB(3.9,82,2,1620,0)=" .   .   .   S ISS(ACCT)=$G(ISS(ACCT))+INVVAL,ISSN(ACCT)=$G(ISSN(ACCT))+1"
^XMB(3.9,82,2,1621,0)="""RTN"",""PRCPRSSR"",55,0)"
^XMB(3.9,82,2,1622,0)=" ;"
^XMB(3.9,82,2,1623,0)="""RTN"",""PRCPRSSR"",56,0)"
^XMB(3.9,82,2,1624,0)=" ;  calculate inactive, long supply, set non-issuable"
^XMB(3.9,82,2,1625,0)="""RTN"",""PRCPRSSR"",57,0)"
^XMB(3.9,82,2,1626,0)=" S X1=$E(DT,1,5)_""01"",X2=-89 D C^%DTC S DATELONG=$E(X,1,5),X1=DT,X2=$E(X,1,5)_""00"" D ^%DTC S TOTDAYS=X"
^XMB(3.9,82,2,1627,0)="""RTN"",""PRCPRSSR"",58,0)"
^XMB(3.9,82,2,1628,0)=" S ITEMDA=0 F  S ITEMDA=$O(^PRCP(445,PRCP(""I""),1,ITEMDA)) Q:'ITEMDA  S D=$G(^(ITEMDA,0)) I D'="""" D"
^XMB(3.9,82,2,1629,0)="""RTN"",""PRCPRSSR"",59,0)"
^XMB(3.9,82,2,1630,0)=" .   S ACCT=$$ACCT1^PRCPUX1($$FSC^PRCPUX1(ITEMDA))"
^XMB(3.9,82,2,1631,0)="""RTN"",""PRCPRSSR"",60,0)"
^XMB(3.9,82,2,1632,0)=" .   ;  value"
^XMB(3.9,82,2,1633,0)="""RTN"",""PRCPRSSR"",61,0)"
^XMB(3.9,82,2,1634,0)=" .   S VALUE(ACCT)=$G(VALUE(ACCT))+$P(D,""^"",27)"
^XMB(3.9,82,2,1635,0)="""RTN"",""PRCPRSSR"",62,0)"
^XMB(3.9,82,2,1636,0)=" .   S DUEIN(ACCT)=$G(DUEIN(ACCT))+($$GETIN^PRCPUDUE(PRCP(""I""),ITEMDA)*$P(D,""^"",22))"
^XMB(3.9,82,2,1637,0)="""RTN"",""PRCPRSSR"",63,0)"
^XMB(3.9,82,2,1638,0)=" .   S DUEOUT(ACCT)=$G(DUEOUT(ACCT))+($$GETOUT^PRCPUDUE(PRCP(""I""),ITEMDA)*$P(D,""^"",22))"
^XMB(3.9,82,2,1639,0)="""RTN"",""PRCPRSSR"",64,0)"
^XMB(3.9,82,2,1640,0)=" .   ;  non-issuable"
^XMB(3.9,82,2,1641,0)="""RTN"",""PRCPRSSR"",65,0)"
^XMB(3.9,82,2,1642,0)=" .   I $P(D,""^"",19) S NONISS(ACCT)=$G(NONISS(ACCT))+($J($P(D,""^"",19)*$P(D,""^"",22),0,2)),NONISSN(ACCT)=$G(NONISSN(ACCT))+1"
^XMB(3.9,82,2,1643,0)="""RTN"",""PRCPRSSR"",66,0)"
^XMB(3.9,82,2,1644,0)=" .   ;  inactive"
^XMB(3.9,82,2,1645,0)="""RTN"",""PRCPRSSR"",67,0)"
^XMB(3.9,82,2,1646,0)=" .   ;  if reusable, quit"
^XMB(3.9,82,2,1647,0)="""RTN"",""PRCPRSSR"",68,0)"
^XMB(3.9,82,2,1648,0)=" .   I $$REUSABLE^PRCPU441(ITEMDA) Q"
^XMB(3.9,82,2,1649,0)="""RTN"",""PRCPRSSR"",69,0)"
^XMB(3.9,82,2,1650,0)=" .   S QTY=$P(D,""^"",7)+$P(D,""^"",19)"
^XMB(3.9,82,2,1651,0)="""RTN"",""PRCPRSSR"",70,0)"
^XMB(3.9,82,2,1652,0)=" .   I QTY,'$O(^PRCP(445,PRCP(""I""),1,ITEMDA,2,$E(DATEINAC,1,5)-.01)),'$O(^PRCP(445,PRCP(""I""),1,ITEMDA,3,DATEINAC)) S INACT(ACCT)=$G(INACT(ACCT))+$P(D,""^"",27),INACTN(ACCT)=$G(INACTN(ACCT))+1"
^XMB(3.9,82,2,1653,0)="""RTN"",""PRCPRSSR"",71,0)"
^XMB(3.9,82,2,1654,0)=" .   ;  long supply"
^XMB(3.9,82,2,1655,0)="""RTN"",""PRCPRSSR"",72,0)"
^XMB(3.9,82,2,1656,0)=" .   S DATE=DATELONG-.01,TOTAL=0 F  S DATE=$O(^PRCP(445,PRCP(""I""),1,ITEMDA,2,DATE)) Q:'DATE  S TOTAL=TOTAL+$P($G(^(DATE,0)),""^"",2)"
^XMB(3.9,82,2,1657,0)="""RTN"",""PRCPRSSR"",73,0)"
^XMB(3.9,82,2,1658,0)=" .   S AVERAGE=$J(TOTAL/TOTDAYS,0,2),TOTAL=$S('AVERAGE&(QTY):9999999,'AVERAGE:0,1:QTY/AVERAGE\1)"
^XMB(3.9,82,2,1659,0)="""RTN"",""PRCPRSSR"",74,0)"
^XMB(3.9,82,2,1660,0)=" .   I TOTAL>270 S LONG(ACCT)=$G(LONG(ACCT))+$P(D,""^"",27),LONGN(ACCT)=$G(LONGN(ACCT))+1"
^XMB(3.9,82,2,1661,0)="""RTN"",""PRCPRSSR"",75,0)"
^XMB(3.9,82,2,1662,0)=" D PRINT^PRCPRSS0"
^XMB(3.9,82,2,1663,0)="""RTN"",""PRCPRSSR"",76,0)"
^XMB(3.9,82,2,1664,0)=" Q"
^XMB(3.9,82,2,1665,0)="""VER"")"
^XMB(3.9,82,2,1666,0)="8.0^22.0"
^XMB(3.9,82,2,1667,0)="""BLD"",4283,6)"
^XMB(3.9,82,2,1668,0)="^82"
^XMB(3.9,82,2,1669,0)="$END KID PRC*5.1*41"
^XMB(3.9,82,6,0)="^3.911A^2^2"
^XMB(3.9,82,6,1,0)="POSTMASTER"
^XMB(3.9,82,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,82,6,"B","POSTMASTER",1)=""
^XMB(3.9,82,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,83,0)="PRC-5P1_SEQ-83_PAT-97.KID^.5^3061008.015739^^^^K"
^XMB(3.9,83,.6)="3061008"
^XMB(3.9,83,1,0)="^3.91A^2^2"
^XMB(3.9,83,1,1,0)=".5^0^3061008.015739^^^^^^^3061008.015739"
^XMB(3.9,83,1,2,0)="1^0^3061008.024128^^^^^^^3061008.024128"
^XMB(3.9,83,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,83,1,"C",.5,1)=""
^XMB(3.9,83,1,"C",1,2)=""
^XMB(3.9,83,2,0)="^^751^751^3061008"
^XMB(3.9,83,2,1,0)="$TXT Released PRC*5.1*97 SEQ #83"
^XMB(3.9,83,2,2,0)="Extracted from mail message"
^XMB(3.9,83,2,3,0)="$END TXT"
^XMB(3.9,83,2,4,0)="$KID PRC*5.1*97"
^XMB(3.9,83,2,5,0)="**INSTALL NAME**"
^XMB(3.9,83,2,6,0)="PRC*5.1*97"
^XMB(3.9,83,2,7,0)="""BLD"",4943,0)"
^XMB(3.9,83,2,8,0)="PRC*5.1*97^IFCAP^0^3060509^y"
^XMB(3.9,83,2,9,0)="""BLD"",4943,1,0)"
^XMB(3.9,83,2,10,0)="^^9^9^3060216^"
^XMB(3.9,83,2,11,0)="""BLD"",4943,1,1,0)"
^XMB(3.9,83,2,12,0)="There are two issues being addressed with this patch, the first is an"
^XMB(3.9,83,2,13,0)="""BLD"",4943,1,2,0)"
^XMB(3.9,83,2,14,0)="error in the code that ran the option PRCB CPA RUNNING BALANCE.  The error"
^XMB(3.9,83,2,15,0)="""BLD"",4943,1,3,0)"
^XMB(3.9,83,2,16,0)="was involves the setting of the DIC screen when certain conditions are "
^XMB(3.9,83,2,17,0)="""BLD"",4943,1,4,0)"
^XMB(3.9,83,2,18,0)="met.  The current code causes a runtime syntax error.  The second issue "
^XMB(3.9,83,2,19,0)="""BLD"",4943,1,5,0)"
^XMB(3.9,83,2,20,0)="involves a change in functionality that will allow users of the option"
^XMB(3.9,83,2,21,0)="""BLD"",4943,1,6,0)"
^XMB(3.9,83,2,22,0)="'AMENDMENT TO PURCHASE ORDER' to exit the user prompts while performing a"
^XMB(3.9,83,2,23,0)="""BLD"",4943,1,7,0)"
^XMB(3.9,83,2,24,0)="'Line Item Add'.  The user will be able to use the standard '^' to exit "
^XMB(3.9,83,2,25,0)="""BLD"",4943,1,8,0)"
^XMB(3.9,83,2,26,0)="the prompts. If the user did not enter a value for the Quantity field, "
^XMB(3.9,83,2,27,0)="""BLD"",4943,1,9,0)"
^XMB(3.9,83,2,28,0)="the line item is deleted."
^XMB(3.9,83,2,29,0)="""BLD"",4943,4,0)"
^XMB(3.9,83,2,30,0)="^9.64PA^^"
^XMB(3.9,83,2,31,0)="""BLD"",4943,""KRN"",0)"
^XMB(3.9,83,2,32,0)="^9.67PA^8989.52^19"
^XMB(3.9,83,2,33,0)="""BLD"",4943,""KRN"",.4,0)"
^XMB(3.9,83,2,34,0)=".4"
^XMB(3.9,83,2,35,0)="""BLD"",4943,""KRN"",.401,0)"
^XMB(3.9,83,2,36,0)=".401"
^XMB(3.9,83,2,37,0)="""BLD"",4943,""KRN"",.402,0)"
^XMB(3.9,83,2,38,0)=".402"
^XMB(3.9,83,2,39,0)="""BLD"",4943,""KRN"",.403,0)"
^XMB(3.9,83,2,40,0)=".403"
^XMB(3.9,83,2,41,0)="""BLD"",4943,""KRN"",.5,0)"
^XMB(3.9,83,2,42,0)=".5"
^XMB(3.9,83,2,43,0)="""BLD"",4943,""KRN"",.84,0)"
^XMB(3.9,83,2,44,0)=".84"
^XMB(3.9,83,2,45,0)="""BLD"",4943,""KRN"",3.6,0)"
^XMB(3.9,83,2,46,0)="3.6"
^XMB(3.9,83,2,47,0)="""BLD"",4943,""KRN"",3.8,0)"
^XMB(3.9,83,2,48,0)="3.8"
^XMB(3.9,83,2,49,0)="""BLD"",4943,""KRN"",9.2,0)"
^XMB(3.9,83,2,50,0)="9.2"
^XMB(3.9,83,2,51,0)="""BLD"",4943,""KRN"",9.8,0)"
^XMB(3.9,83,2,52,0)="9.8"
^XMB(3.9,83,2,53,0)="""BLD"",4943,""KRN"",9.8,""NM"",0)"
^XMB(3.9,83,2,54,0)="^9.68A^5^5"
^XMB(3.9,83,2,55,0)="""BLD"",4943,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,83,2,56,0)="PRCBSUT^^0^B4369244"
^XMB(3.9,83,2,57,0)="""BLD"",4943,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,83,2,58,0)="PRCHMA0^^0^B33867696"
^XMB(3.9,83,2,59,0)="""BLD"",4943,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,83,2,60,0)="PRCBCPR^^0^B7148946"
^XMB(3.9,83,2,61,0)="""BLD"",4943,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,83,2,62,0)="PRCFAC^^0^B22964705"
^XMB(3.9,83,2,63,0)="""BLD"",4943,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,83,2,64,0)="PRCFACS1^^0^B3012091"
^XMB(3.9,83,2,65,0)="""BLD"",4943,""KRN"",9.8,""NM"",""B"",""PRCBCPR"",3)"
^XMB(3.9,83,2,66,0)=""
^XMB(3.9,83,2,67,0)="""BLD"",4943,""KRN"",9.8,""NM"",""B"",""PRCBSUT"",1)"
^XMB(3.9,83,2,68,0)=""
^XMB(3.9,83,2,69,0)="""BLD"",4943,""KRN"",9.8,""NM"",""B"",""PRCFAC"",4)"
^XMB(3.9,83,2,70,0)=""
^XMB(3.9,83,2,71,0)="""BLD"",4943,""KRN"",9.8,""NM"",""B"",""PRCFACS1"",5)"
^XMB(3.9,83,2,72,0)=""
^XMB(3.9,83,2,73,0)="""BLD"",4943,""KRN"",9.8,""NM"",""B"",""PRCHMA0"",2)"
^XMB(3.9,83,2,74,0)=""
^XMB(3.9,83,2,75,0)="""BLD"",4943,""KRN"",19,0)"
^XMB(3.9,83,2,76,0)="19"
^XMB(3.9,83,2,77,0)="""BLD"",4943,""KRN"",19.1,0)"
^XMB(3.9,83,2,78,0)="19.1"
^XMB(3.9,83,2,79,0)="""BLD"",4943,""KRN"",101,0)"
^XMB(3.9,83,2,80,0)="101"
^XMB(3.9,83,2,81,0)="""BLD"",4943,""KRN"",409.61,0)"
^XMB(3.9,83,2,82,0)="409.61"
^XMB(3.9,83,2,83,0)="""BLD"",4943,""KRN"",771,0)"
^XMB(3.9,83,2,84,0)="771"
^XMB(3.9,83,2,85,0)="""BLD"",4943,""KRN"",870,0)"
^XMB(3.9,83,2,86,0)="870"
^XMB(3.9,83,2,87,0)="""BLD"",4943,""KRN"",8989.51,0)"
^XMB(3.9,83,2,88,0)="8989.51"
^XMB(3.9,83,2,89,0)="""BLD"",4943,""KRN"",8989.52,0)"
^XMB(3.9,83,2,90,0)="8989.52"
^XMB(3.9,83,2,91,0)="""BLD"",4943,""KRN"",8994,0)"
^XMB(3.9,83,2,92,0)="8994"
^XMB(3.9,83,2,93,0)="""BLD"",4943,""KRN"",""B"",.4,.4)"
^XMB(3.9,83,2,94,0)=""
^XMB(3.9,83,2,95,0)="""BLD"",4943,""KRN"",""B"",.401,.401)"
^XMB(3.9,83,2,96,0)=""
^XMB(3.9,83,2,97,0)="""BLD"",4943,""KRN"",""B"",.402,.402)"
^XMB(3.9,83,2,98,0)=""
^XMB(3.9,83,2,99,0)="""BLD"",4943,""KRN"",""B"",.403,.403)"
^XMB(3.9,83,2,100,0)=""
^XMB(3.9,83,2,101,0)="""BLD"",4943,""KRN"",""B"",.5,.5)"
^XMB(3.9,83,2,102,0)=""
^XMB(3.9,83,2,103,0)="""BLD"",4943,""KRN"",""B"",.84,.84)"
^XMB(3.9,83,2,104,0)=""
^XMB(3.9,83,2,105,0)="""BLD"",4943,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,83,2,106,0)=""
^XMB(3.9,83,2,107,0)="""BLD"",4943,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,83,2,108,0)=""
^XMB(3.9,83,2,109,0)="""BLD"",4943,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,83,2,110,0)=""
^XMB(3.9,83,2,111,0)="""BLD"",4943,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,83,2,112,0)=""
^XMB(3.9,83,2,113,0)="""BLD"",4943,""KRN"",""B"",19,19)"
^XMB(3.9,83,2,114,0)=""
^XMB(3.9,83,2,115,0)="""BLD"",4943,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,83,2,116,0)=""
^XMB(3.9,83,2,117,0)="""BLD"",4943,""KRN"",""B"",101,101)"
^XMB(3.9,83,2,118,0)=""
^XMB(3.9,83,2,119,0)="""BLD"",4943,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,83,2,120,0)=""
^XMB(3.9,83,2,121,0)="""BLD"",4943,""KRN"",""B"",771,771)"
^XMB(3.9,83,2,122,0)=""
^XMB(3.9,83,2,123,0)="""BLD"",4943,""KRN"",""B"",870,870)"
^XMB(3.9,83,2,124,0)=""
^XMB(3.9,83,2,125,0)="""BLD"",4943,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,83,2,126,0)=""
^XMB(3.9,83,2,127,0)="""BLD"",4943,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,83,2,128,0)=""
^XMB(3.9,83,2,129,0)="""BLD"",4943,""KRN"",""B"",8994,8994)"
^XMB(3.9,83,2,130,0)=""
^XMB(3.9,83,2,131,0)="""BLD"",4943,""QUES"",0)"
^XMB(3.9,83,2,132,0)="^9.62^^"
^XMB(3.9,83,2,133,0)="""MBREQ"")"
^XMB(3.9,83,2,134,0)="0"
^XMB(3.9,83,2,135,0)="""PKG"",455,-1)"
^XMB(3.9,83,2,136,0)="1^1"
^XMB(3.9,83,2,137,0)="""PKG"",455,0)"
^XMB(3.9,83,2,138,0)="IFCAP^PRC^IFCAP System Files"
^XMB(3.9,83,2,139,0)="""PKG"",455,20,0)"
^XMB(3.9,83,2,140,0)="^9.402P^^"
^XMB(3.9,83,2,141,0)="""PKG"",455,22,0)"
^XMB(3.9,83,2,142,0)="^9.49I^1^1"
^XMB(3.9,83,2,143,0)="""PKG"",455,22,1,0)"
^XMB(3.9,83,2,144,0)="5.1^3001012^3001019^68"
^XMB(3.9,83,2,145,0)="""PKG"",455,22,1,""PAH"",1,0)"
^XMB(3.9,83,2,146,0)="97^3060509^123456803"
^XMB(3.9,83,2,147,0)="""PKG"",455,22,1,""PAH"",1,1,0)"
^XMB(3.9,83,2,148,0)="^^9^9^3060509"
^XMB(3.9,83,2,149,0)="""PKG"",455,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,83,2,150,0)="There are two issues being addressed with this patch, the first is an"
^XMB(3.9,83,2,151,0)="""PKG"",455,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,83,2,152,0)="error in the code that ran the option PRCB CPA RUNNING BALANCE.  The error"
^XMB(3.9,83,2,153,0)="""PKG"",455,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,83,2,154,0)="was involves the setting of the DIC screen when certain conditions are "
^XMB(3.9,83,2,155,0)="""PKG"",455,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,83,2,156,0)="met.  The current code causes a runtime syntax error.  The second issue "
^XMB(3.9,83,2,157,0)="""PKG"",455,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,83,2,158,0)="involves a change in functionality that will allow users of the option"
^XMB(3.9,83,2,159,0)="""PKG"",455,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,83,2,160,0)="'AMENDMENT TO PURCHASE ORDER' to exit the user prompts while performing a"
^XMB(3.9,83,2,161,0)="""PKG"",455,22,1,""PAH"",1,1,7,0)"
^XMB(3.9,83,2,162,0)="'Line Item Add'.  The user will be able to use the standard '^' to exit "
^XMB(3.9,83,2,163,0)="""PKG"",455,22,1,""PAH"",1,1,8,0)"
^XMB(3.9,83,2,164,0)="the prompts. If the user did not enter a value for the Quantity field, "
^XMB(3.9,83,2,165,0)="""PKG"",455,22,1,""PAH"",1,1,9,0)"
^XMB(3.9,83,2,166,0)="the line item is deleted."
^XMB(3.9,83,2,167,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,83,2,168,0)="Y"
^XMB(3.9,83,2,169,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,83,2,170,0)="^D REP^XPDH"
^XMB(3.9,83,2,171,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,83,2,172,0)="Shall I write over your |FLAG| File"
^XMB(3.9,83,2,173,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,83,2,174,0)="YES"
^XMB(3.9,83,2,175,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,83,2,176,0)="D XPF1^XPDIQ"
^XMB(3.9,83,2,177,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,83,2,178,0)="Y"
^XMB(3.9,83,2,179,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,83,2,180,0)="^D DTA^XPDH"
^XMB(3.9,83,2,181,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,83,2,182,0)="Want my data |FLAG| yours"
^XMB(3.9,83,2,183,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,83,2,184,0)="YES"
^XMB(3.9,83,2,185,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,83,2,186,0)="D XPF2^XPDIQ"
^XMB(3.9,83,2,187,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,83,2,188,0)="YO"
^XMB(3.9,83,2,189,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,83,2,190,0)="^D INHIBIT^XPDH"
^XMB(3.9,83,2,191,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,83,2,192,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,83,2,193,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,83,2,194,0)="YES"
^XMB(3.9,83,2,195,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,83,2,196,0)="D XPI1^XPDIQ"
^XMB(3.9,83,2,197,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,83,2,198,0)="PO^VA(200,:EM"
^XMB(3.9,83,2,199,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,83,2,200,0)="^D MG^XPDH"
^XMB(3.9,83,2,201,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,83,2,202,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,83,2,203,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,83,2,204,0)=""
^XMB(3.9,83,2,205,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,83,2,206,0)="D XPM1^XPDIQ"
^XMB(3.9,83,2,207,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,83,2,208,0)="Y"
^XMB(3.9,83,2,209,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,83,2,210,0)="^D MENU^XPDH"
^XMB(3.9,83,2,211,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,83,2,212,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,83,2,213,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,83,2,214,0)="YES"
^XMB(3.9,83,2,215,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,83,2,216,0)="D XPO1^XPDIQ"
^XMB(3.9,83,2,217,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,83,2,218,0)="Y"
^XMB(3.9,83,2,219,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,83,2,220,0)="^D OPT^XPDH"
^XMB(3.9,83,2,221,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,83,2,222,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,83,2,223,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,83,2,224,0)="YES"
^XMB(3.9,83,2,225,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,83,2,226,0)="D XPZ1^XPDIQ"
^XMB(3.9,83,2,227,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,83,2,228,0)="Y"
^XMB(3.9,83,2,229,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,83,2,230,0)="^D RTN^XPDH"
^XMB(3.9,83,2,231,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,83,2,232,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,83,2,233,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,83,2,234,0)="NO"
^XMB(3.9,83,2,235,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,83,2,236,0)="D XPZ2^XPDIQ"
^XMB(3.9,83,2,237,0)="""RTN"")"
^XMB(3.9,83,2,238,0)="5"
^XMB(3.9,83,2,239,0)="""RTN"",""PRCBCPR"")"
^XMB(3.9,83,2,240,0)="0^3^B7148946^B7069708"
^XMB(3.9,83,2,241,0)="""RTN"",""PRCBCPR"",1,0)"
^XMB(3.9,83,2,242,0)="PRCBCPR ;WISC@ALTOONA/CTB-CONTROL POINT REPORT ; 05/18/93  2:10 PM"
^XMB(3.9,83,2,243,0)="""RTN"",""PRCBCPR"",2,0)"
^XMB(3.9,83,2,244,0)="V ;;5.1;IFCAP;**97**;Oct 20, 2000"
^XMB(3.9,83,2,245,0)="""RTN"",""PRCBCPR"",3,0)"
^XMB(3.9,83,2,246,0)=" ;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,83,2,247,0)="""RTN"",""PRCBCPR"",4,0)"
^XMB(3.9,83,2,248,0)=" D ^PRCFSITE Q:'%  D QT^PRCBSUT Q"
^XMB(3.9,83,2,249,0)="""RTN"",""PRCBCPR"",5,0)"
^XMB(3.9,83,2,250,0)="INDIV D V G:'% OUT S DIC=""^PRC(420,""_PRC(""SITE"")_"",1,"",DIC(0)=""AEMNZ"" D ^DIC G:Y<0 OUT S Z=PRC(""SITE"")_""-""_PRC(""FY"")_""-""_PRC(""QTR"")_""-""_$P(Y(0),"" "") D QUE"
^XMB(3.9,83,2,251,0)="""RTN"",""PRCBCPR"",6,0)"
^XMB(3.9,83,2,252,0)=" W !!,""CONTROL POINT OFFICIAL'S BALANCE: "",?35,""$""_$J(PRCS(""C""),10,2),!,""FISCAL UNOBLIGATED BALANCE: "",?35,""$""_$J(PRCS(""O""),10,2)"
^XMB(3.9,83,2,253,0)="""RTN"",""PRCBCPR"",7,0)"
^XMB(3.9,83,2,254,0)=" W !,""TOTAL COMMITTED, NOT OBLIGATED: "",?35,""$""_$J((PRCS(""O"")-PRCS(""C"")),10,2) K %DT,%P,I,N,PRCS,Z,Z1 W ! G INDIV"
^XMB(3.9,83,2,255,0)="""RTN"",""PRCBCPR"",8,0)"
^XMB(3.9,83,2,256,0)="OUT K %,C,DIC,J,POP,PRCSQTT,T,T1,X,Y,Z Q"
^XMB(3.9,83,2,257,0)="""RTN"",""PRCBCPR"",9,0)"
^XMB(3.9,83,2,258,0)="QALL ;;PRINT ALL CONTROL POINT BALANCES"
^XMB(3.9,83,2,259,0)="""RTN"",""PRCBCPR"",10,0)"
^XMB(3.9,83,2,260,0)=" D V G:'% OUT S ZTDESC=$P($T(QALL),"";"",3),ZTRTN=""ALL^PRCBCPR"",ZTSAVE(""PRC*"")="""" D ^PRCFQ G OUT"
^XMB(3.9,83,2,261,0)="""RTN"",""PRCBCPR"",11,0)"
^XMB(3.9,83,2,262,0)="ALL ;PRINT BALANCES FOR ALL CONTROL POINTS"
^XMB(3.9,83,2,263,0)="""RTN"",""PRCBCPR"",12,0)"
^XMB(3.9,83,2,264,0)=" D:$D(ZTQUEUED) KILL^%ZTLOAD S DA=0,ZZ=PRC(""SITE"")_""-""_PRC(""FY"")_""-""_PRC(""QTR"")_""-"""
^XMB(3.9,83,2,265,0)="""RTN"",""PRCBCPR"",13,0)"
^XMB(3.9,83,2,266,0)=" S PAGE=1,$P(LINE,""-"",IOM-2)="""" D HDR"
^XMB(3.9,83,2,267,0)="""RTN"",""PRCBCPR"",14,0)"
^XMB(3.9,83,2,268,0)=" F K=1:1 S DA=$O(^PRC(420,PRC(""SITE""),1,DA)) G OUT:DA>9998!'DA I $D(^(DA,0)) S PRC(""CP"")=^(0),Z=ZZ_$P(PRC(""CP""),"" "") D QUE S %=1 D:IOSL-$Y<4&(IOST[""C-"") ENCON^PRCFQ G:'%!(X=U) OUT D:IOSL-$Y<4 HDR D LINE K PRC(""CP"")"
^XMB(3.9,83,2,269,0)="""RTN"",""PRCBCPR"",15,0)"
^XMB(3.9,83,2,270,0)=" W !,""DONE"" Q"
^XMB(3.9,83,2,271,0)="""RTN"",""PRCBCPR"",16,0)"
^XMB(3.9,83,2,272,0)="LINE W !!,$P(PRC(""CP""),""^""),?32,""$""_$J(PRCS(""C""),10,2),?49,""$""_$J(PRCS(""O""),10,2),?66,""$""_$J((PRCS(""O"")-PRCS(""C"")),10,2) K %DT,%P,I,N,PRCS,Z,Z1 Q"
^XMB(3.9,83,2,273,0)="""RTN"",""PRCBCPR"",17,0)"
^XMB(3.9,83,2,274,0)="HDR ;HEADER"
^XMB(3.9,83,2,275,0)="""RTN"",""PRCBCPR"",18,0)"
^XMB(3.9,83,2,276,0)=" D NOW^%DTC S Y=% D DD^%DT S DATETIME=Y"
^XMB(3.9,83,2,277,0)="""RTN"",""PRCBCPR"",19,0)"
^XMB(3.9,83,2,278,0)=" W @IOF,""FUND CONTROL POINT BALANCE LISTING"",?IOM-40,""PAGE: "",PAGE,?IOM-20,DATETIME,!,""FOR STATION: "",PRC(""SITE""),""   FY-QTR: "",PRC(""FY"")_""-""_PRC(""QTR"")"
^XMB(3.9,83,2,279,0)="""RTN"",""PRCBCPR"",20,0)"
^XMB(3.9,83,2,280,0)=" W !!,""FUND CONTROL POINT"",?32,""UNCOMMITTED"",?49,""UNOBLIGATED"",?70,""PENDING"",!,LINE S PAGE=PAGE+1 Q"
^XMB(3.9,83,2,281,0)="""RTN"",""PRCBCPR"",21,0)"
^XMB(3.9,83,2,282,0)="QUE ;"
^XMB(3.9,83,2,283,0)="""RTN"",""PRCBCPR"",22,0)"
^XMB(3.9,83,2,284,0)=" S PRCS(""O"")=$$FCPBAL^PRC0D(PRC(""SITE""),PRC(""CP""),PRC(""FY""),1),PRCS(""O"")=$P(PRCS(""O""),""^"",PRC(""QTR""))"
^XMB(3.9,83,2,285,0)="""RTN"",""PRCBCPR"",23,0)"
^XMB(3.9,83,2,286,0)=" S PRCS(""C"")=$$FCPBAL^PRC0D(PRC(""SITE""),PRC(""CP""),PRC(""FY""),2),PRCS(""C"")=$P(PRCS(""C""),""^"",PRC(""QTR""))"
^XMB(3.9,83,2,287,0)="""RTN"",""PRCBCPR"",24,0)"
^XMB(3.9,83,2,288,0)=" QUIT"
^XMB(3.9,83,2,289,0)="""RTN"",""PRCBSUT"")"
^XMB(3.9,83,2,290,0)="0^1^B4369244^B4379563"
^XMB(3.9,83,2,291,0)="""RTN"",""PRCBSUT"",1,0)"
^XMB(3.9,83,2,292,0)="PRCBSUT ;WISC@ALTOONA/CTB/SAW-GET STATION INFO ;8/25/00  16:18"
^XMB(3.9,83,2,293,0)="""RTN"",""PRCBSUT"",2,0)"
^XMB(3.9,83,2,294,0)="V ;;5.1;IFCAP;**97**;Oct 20, 2000"
^XMB(3.9,83,2,295,0)="""RTN"",""PRCBSUT"",3,0)"
^XMB(3.9,83,2,296,0)=" ;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,83,2,297,0)="""RTN"",""PRCBSUT"",4,0)"
^XMB(3.9,83,2,298,0)="EN1 ;STATION,FY,QUARTER,CONTROL POINT"
^XMB(3.9,83,2,299,0)="""RTN"",""PRCBSUT"",5,0)"
^XMB(3.9,83,2,300,0)=" D ^PRCFSITE G:'% EX D QT G:PRC(""QTR"")=""^"" EX D CP G:Y<0 EX"
^XMB(3.9,83,2,301,0)="""RTN"",""PRCBSUT"",6,0)"
^XMB(3.9,83,2,302,0)=" S %=1,Z=PRC(""SITE"")_""-""_PRC(""FY"")_""-""_PRC(""QTR"")_""-""_C1,X=$P(Z,""-"",1,2)_""-""_C1 G EXIT"
^XMB(3.9,83,2,303,0)="""RTN"",""PRCBSUT"",7,0)"
^XMB(3.9,83,2,304,0)="QT ;SELECT QUARTER"
^XMB(3.9,83,2,305,0)="""RTN"",""PRCBSUT"",8,0)"
^XMB(3.9,83,2,306,0)=" D:'$D(DT) DT^DICRW I '$D(PRCSQTT) S:$D(PRC(""QTR"")) PRCSQTT=PRC(""QTR"") I '$D(PRCSQTT) S PRCSI=$E(DT,4,5),PRCSQTT=$P(""2^2^2^3^3^3^4^4^4^1^1^1"",""^"",PRCSI)"
^XMB(3.9,83,2,307,0)="""RTN"",""PRCBSUT"",9,0)"
^XMB(3.9,83,2,308,0)=" W !,""Select QUARTER: "",PRCSQTT,""// "" R PRC(""QTR""):DTIME S:'$T PRC(""QTR"")=U S:PRC(""QTR"")=U %=0 S:PRC(""QTR"")="""" PRC(""QTR"")=PRCSQTT Q:PRC(""QTR"")=""^""  I PRC(""QTR"")<1!(PRC(""QTR"")>4)!(PRC(""QTR"")'?1N) W $C(7) G QT"
^XMB(3.9,83,2,309,0)="""RTN"",""PRCBSUT"",10,0)"
^XMB(3.9,83,2,310,0)=" Q"
^XMB(3.9,83,2,311,0)="""RTN"",""PRCBSUT"",11,0)"
^XMB(3.9,83,2,312,0)="CP ;SELECT CONTROL POINT"
^XMB(3.9,83,2,313,0)="""RTN"",""PRCBSUT"",12,0)"
^XMB(3.9,83,2,314,0)=" S DIC=""^PRC(420,""_PRC(""SITE"")_"",1,"",DIC(0)=""AEMNQZ"",DIC(""S"")=""I $D(^(2))"",DIC(""A"")=""Select CONTROL POINT: """
^XMB(3.9,83,2,315,0)="""RTN"",""PRCBSUT"",13,0)"
^XMB(3.9,83,2,316,0)=" I $D(PRCSK) S DIC(""S"")=$P(DIC(""S""),"",1"",1)_""!($P(^PRC(420,PRC(""""SITE""""),1,+Y,0),""""^"""",9)=""""Y"""")"""
^XMB(3.9,83,2,317,0)="""RTN"",""PRCBSUT"",14,0)"
^XMB(3.9,83,2,318,0)=" S:$D(PRC(""CP"")) DIC(""B"")=PRC(""CP"") S D=""B^C"""
^XMB(3.9,83,2,319,0)="""RTN"",""PRCBSUT"",15,0)"
^XMB(3.9,83,2,320,0)=" D MIX^DIC1 K DIC G:Y<0 EXIT I Y>0 S C=$P(Y(0),""^"",1),C1=$P(Y(0),"" "",1),PRC(""CP"")=+Y"
^XMB(3.9,83,2,321,0)="""RTN"",""PRCBSUT"",16,0)"
^XMB(3.9,83,2,322,0)=" S C=$P(^PRC(420,PRC(""SITE""),1,PRC(""CP""),0),""^"",1),C1=$P(C,"" "",1)"
^XMB(3.9,83,2,323,0)="""RTN"",""PRCBSUT"",17,0)"
^XMB(3.9,83,2,324,0)=" K DIC,N Q"
^XMB(3.9,83,2,325,0)="""RTN"",""PRCBSUT"",18,0)"
^XMB(3.9,83,2,326,0)="EX S Y=-1,%=0 K PRC(""QTR""),PRC(""FY""),PRCSI I $D(PRC(""CP"")) K:PRC(""CP"")=""ALL""!(PRC(""CP"")=""^"") PRC(""CP"")"
^XMB(3.9,83,2,327,0)="""RTN"",""PRCBSUT"",19,0)"
^XMB(3.9,83,2,328,0)="EXIT K PRCSFYT,PRCSI,PRCSK,PRCSQTT Q"
^XMB(3.9,83,2,329,0)="""RTN"",""PRCFAC"")"
^XMB(3.9,83,2,330,0)="0^4^B22964705^B23345023"
^XMB(3.9,83,2,331,0)="""RTN"",""PRCFAC"",1,0)"
^XMB(3.9,83,2,332,0)="PRCFAC ;WISC/CTB-CODE SHEET GENERATOR ; 05/11/93  10:46 AM"
^XMB(3.9,83,2,333,0)="""RTN"",""PRCFAC"",2,0)"
^XMB(3.9,83,2,334,0)="V ;;5.1;IFCAP;**97**;Oct 20, 2000"
^XMB(3.9,83,2,335,0)="""RTN"",""PRCFAC"",3,0)"
^XMB(3.9,83,2,336,0)=" ;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,83,2,337,0)="""RTN"",""PRCFAC"",4,0)"
^XMB(3.9,83,2,338,0)="LOG ;CREATE LOG CODE SHEETS"
^XMB(3.9,83,2,339,0)="""RTN"",""PRCFAC"",5,0)"
^XMB(3.9,83,2,340,0)=" S PRCHLOG="""" D EN1 K PRCHLOG,PRCFASYS Q"
^XMB(3.9,83,2,341,0)="""RTN"",""PRCFAC"",6,0)"
^XMB(3.9,83,2,342,0)="NEWCS K DA,PRCFDEL L +^PRCF(423,0):1 I '$T W $C(7),""Batching or purging is now going on."",!,""  Code sheet operations are temporarily suspended."",! Q"
^XMB(3.9,83,2,343,0)="""RTN"",""PRCFAC"",7,0)"
^XMB(3.9,83,2,344,0)=" S X=PRC(""SITE"")_""-CSC-""_PRC(""FY"") D COUNTER^PRCFACP I Y<0 K DA Q"
^XMB(3.9,83,2,345,0)="""RTN"",""PRCFAC"",8,0)"
^XMB(3.9,83,2,346,0)=" S X=Y_""-""_PRC(""FY"") S:$D(PRCFA(""KP"")) X=""KP-""_X G:$D(^PRCF(423,""B"",X)) NEWCS S DLAYGO=423,DIC=423,DIC(0)=""LZ"" D ^DIC K DLAYGO Q:Y<0  G:$P(Y,U,3)'=1 NEWCS"
^XMB(3.9,83,2,347,0)="""RTN"",""PRCFAC"",9,0)"
^XMB(3.9,83,2,348,0)=" G:$P(Y,""^"",3)'=1 NEWCS W:'$D(PRCHAUTO) !!,""THIS CODE SHEET HAS BEEN ASSIGNED ID # "",$P(Y(0),U),!! S PRCFA(""CSNAME"")=$P(Y(0),""^"")"
^XMB(3.9,83,2,349,0)="""RTN"",""PRCFAC"",10,0)"
^XMB(3.9,83,2,350,0)=" S (PRCFA(""CSDA""),DA)=+Y I '$D(PRCFA(""TTDATE"")) D NOW^%DTC K %,%H,%I S PRCFA(""TTDATE"")=$E(X,4,7)_$E(X,2,3)"
^XMB(3.9,83,2,351,0)="""RTN"",""PRCFAC"",11,0)"
^XMB(3.9,83,2,352,0)=" S X=$P(^PRCF(423,+Y,0),U,1)_U_PRC(""SITE"")_U_PRCFA(""EDIT"")_U_PRCFA(""TT"")_U_PRCFA(""TTDATE"")_U_$S($D(PRCFA(""REF"")):$P(PRCFA(""REF""),""^""),1:"""")"
^XMB(3.9,83,2,353,0)="""RTN"",""PRCFAC"",12,0)"
^XMB(3.9,83,2,354,0)=" S X=X_""^^""_$S($D(PRC(""PER"")):+PRC(""PER""),1:"""")_""^^""_$S($D(PRCFA(""SYS"")):PRCFA(""SYS""),1:"""")"
^XMB(3.9,83,2,355,0)="""RTN"",""PRCFAC"",13,0)"
^XMB(3.9,83,2,356,0)=" S ^PRCF(423,+Y,0)=X,$P(^(""TRANS""),U,1)="""",$P(^(""TRANS""),U,15)=$G(PRCFA(""TTLEN""))"
^XMB(3.9,83,2,357,0)="""RTN"",""PRCFAC"",14,0)"
^XMB(3.9,83,2,358,0)=" I $D(PRCFA(""REF"")),PRCFA(""REF"")]"""" S ^PRCF(423,""C"",PRCFA(""REF""),+Y)="""""
^XMB(3.9,83,2,359,0)="""RTN"",""PRCFAC"",15,0)"
^XMB(3.9,83,2,360,0)=" K C,DIC,X,Y I '$D(PRCHLOG) K PRCFA(""REF""),PRCFA(""TTLEN"")"
^XMB(3.9,83,2,361,0)="""RTN"",""PRCFAC"",16,0)"
^XMB(3.9,83,2,362,0)=" Q"
^XMB(3.9,83,2,363,0)="""RTN"",""PRCFAC"",17,0)"
^XMB(3.9,83,2,364,0)="TT K PRCFDEL S:$D(PRCFA(""TT"")) DIC(""B"")=PRCFA(""TT"") S DIC(""A"")=""Select LOG TRANSACTION TYPE: "" S DIC=420.4,DIC(0)=""AEQMNZ"""
^XMB(3.9,83,2,365,0)="""RTN"",""PRCFAC"",18,0)"
^XMB(3.9,83,2,366,0)=" I '$D(PRCFASYS) S PRCFASYS=$S('$D(PRCHLOG):""FEEFENIRSISMCLIPRC"",1:""LOG"")"
^XMB(3.9,83,2,367,0)="""RTN"",""PRCFAC"",19,0)"
^XMB(3.9,83,2,368,0)=" S DIC(""S"")=""I PRCFASYS[$P(^(0),U,6)"" I $D(PRCFA(""DICS"")) S DIC(""S"")=DIC(""S"")_"" ""_PRCFA(""DICS"")"
^XMB(3.9,83,2,369,0)="""RTN"",""PRCFAC"",20,0)"
^XMB(3.9,83,2,370,0)=" ;I $D(PRCFA(""ARCS"")) S DIC(""S"")=""I $P(^(0),U,7)=1"""
^XMB(3.9,83,2,371,0)="""RTN"",""PRCFAC"",21,0)"
^XMB(3.9,83,2,372,0)=" W:'$D(PRCFA(""TTF"")) ! S:$D(PRCFA(""TTF"")) X=PRCFA(""TTF""),DIC(0)=""MNZ"" D ^DIC K DIC I +Y<0 S %=0 Q"
^XMB(3.9,83,2,373,0)="""RTN"",""PRCFAC"",22,0)"
^XMB(3.9,83,2,374,0)=" I ""PRC""'[PRCFASYS,$P(Y(0),U,3)=""""!($P(Y(0),U,5)'=""Y"") W !,""THIS TRANSACTION TYPE IS NOT YET "",$S($P(Y(0),""^"",5)'=""Y"":""ACTIVATED"",1:""AVAILABLE""),$C(7) Q:$D(PRCFA(""TTF""))  G TT"
^XMB(3.9,83,2,375,0)="""RTN"",""PRCFAC"",23,0)"
^XMB(3.9,83,2,376,0)=" S PRCFA(""TT"")=$P(Y(0),U,1),PRCFA(""TTDA"")=+Y,PRCFA(""EDIT"")=$P(Y(0),U,3),PRCFA(""SYS"")=$P(Y(0),""^"",6),PRCFA(""TTLEN"")=$P(Y(0),""^"",8),%=1"
^XMB(3.9,83,2,377,0)="""RTN"",""PRCFAC"",24,0)"
^XMB(3.9,83,2,378,0)=" ;K C,Y Q"
^XMB(3.9,83,2,379,0)="""RTN"",""PRCFAC"",25,0)"
^XMB(3.9,83,2,380,0)=" Q"
^XMB(3.9,83,2,381,0)="""RTN"",""PRCFAC"",26,0)"
^XMB(3.9,83,2,382,0)="SE S U=""^"" D ^PRCFSITE G:'% OUT"
^XMB(3.9,83,2,383,0)="""RTN"",""PRCFAC"",27,0)"
^XMB(3.9,83,2,384,0)=" S %DT="""",X=""T"" D ^%DT S PRCFA(""TTDATE"")=$E(Y,4,7)_$E(Y,2,3) Q"
^XMB(3.9,83,2,385,0)="""RTN"",""PRCFAC"",28,0)"
^XMB(3.9,83,2,386,0)="EN1 ;CREATE A CODE SHEET"
^XMB(3.9,83,2,387,0)="""RTN"",""PRCFAC"",29,0)"
^XMB(3.9,83,2,388,0)=" K PRCFDEL,PRCFA(""PODA"") G:$D(PRCFAA) OUT"
^XMB(3.9,83,2,389,0)="""RTN"",""PRCFAC"",30,0)"
^XMB(3.9,83,2,390,0)=" S PRCF(""X"")=""AS"" D SE G:'$D(PRC(""SITE"")) OUT"
^XMB(3.9,83,2,391,0)="""RTN"",""PRCFAC"",31,0)"
^XMB(3.9,83,2,392,0)="AM D TT G OUT:%'>0,EN1:'% D NEWCS G:'$D(DA) OUT S DIE=""^PRCF(423,"""
^XMB(3.9,83,2,393,0)="""RTN"",""PRCFAC"",32,0)"
^XMB(3.9,83,2,394,0)=" S DR=PRCFA(""EDIT"") D ^DIE I $D(Y)=0 D ^PRCFACXM S X=PRCFA(""TT""),X1=PRCFA(""TTDATE"") K PRCFA,P,PO,PODA S PRCFA(""TT"")=X,PRCFA(""TTDATE"")=X1 K X,X1 G EN1"
^XMB(3.9,83,2,395,0)="""RTN"",""PRCFAC"",33,0)"
^XMB(3.9,83,2,396,0)=" D DEL^PRCFACXM,OUT1 G EN1"
^XMB(3.9,83,2,397,0)="""RTN"",""PRCFAC"",34,0)"
^XMB(3.9,83,2,398,0)="OUT1 K %,%DT,%X,%Y,A,B,C,DIG,DIH,DIU,DIV,DIW,DIK,DQ,I,M,N,PRCFASYS,X1,XL1 Q"
^XMB(3.9,83,2,399,0)="""RTN"",""PRCFAC"",35,0)"
^XMB(3.9,83,2,400,0)="EN2 ;EDIT EXISTING TRANSACTION"
^XMB(3.9,83,2,401,0)="""RTN"",""PRCFAC"",36,0)"
^XMB(3.9,83,2,402,0)=" K PRCFDEL S PRCF(""X"")=""AS"" D SE G:'$D(PRC(""SITE"")) OUT K Q1"
^XMB(3.9,83,2,403,0)="""RTN"",""PRCFAC"",37,0)"
^XMB(3.9,83,2,404,0)=" S:'$D(PRCFASYS) PRCFASYS=""FEEFENIRSCLI"" K Q1 S DIC=""^PRCF(423,"",DIC(0)=""AEMNQZ"",DIC(""S"")=""S ZX=^(0) I $P(ZX,U,10)]"""""""",PRCFASYS[$P(ZX,U,10),$P(ZX,U,2)=PRC(""""SITE"""")"" D ^DIC K DIC(""A"") I Y<0 K PRCFASYS G OUT"
^XMB(3.9,83,2,405,0)="""RTN"",""PRCFAC"",38,0)"
^XMB(3.9,83,2,406,0)=" K DIE S DA=+Y,PRCFA(""CSDA"")=DA,DIE=DIC,PRCFA(""EDIT"")=$P(Y(0),""^"",3),PRCFA(""SYS"")=$P(Y(0),""^"",10),PRCFA(""TTLEN"")=$P(^PRCF(423,DA,""TRANS""),""^"",15) K DIC"
^XMB(3.9,83,2,407,0)="""RTN"",""PRCFAC"",39,0)"
^XMB(3.9,83,2,408,0)=" I $P(Y,""^"",2)[""KP"" W $C(7),!,""Code Sheet has been Key Punched and may not be edited with this option."" G EN2"
^XMB(3.9,83,2,409,0)="""RTN"",""PRCFAC"",40,0)"
^XMB(3.9,83,2,410,0)="EN21 S DR="""" S:$D(PRCFA(""EDIT"")) DR=PRCFA(""EDIT"") S:$D(Y(0)) DR=$P(Y(0),U,3),PRCFA(""TT"")=$P(Y(0),""^"",4) I DR="""" W !,""THIS CODE SHEET CANNOT BE EDITED, IT MUST BE RE-ENTERED UNDER ANOTHER NUMBER."",$C(7) G EN2"
^XMB(3.9,83,2,411,0)="""RTN"",""PRCFAC"",41,0)"
^XMB(3.9,83,2,412,0)=" D ^DIE,^PRCFACXM G EN2"
^XMB(3.9,83,2,413,0)="""RTN"",""PRCFAC"",42,0)"
^XMB(3.9,83,2,414,0)="OUT K %,B,D,D0,DA,DG,DIC,DIE,DIG,DIH,DIU,DIV,DIW,DLAYGO,DQ,DR,I,J,K,M,N,PRCFA,PRCFASYS,Q,Q1,S,X,XL1,Y,Z,PRCENT Q"
^XMB(3.9,83,2,415,0)="""RTN"",""PRCFAC"",43,0)"
^XMB(3.9,83,2,416,0)="EN73 D ^PRCFSITE G:'% OUT"
^XMB(3.9,83,2,417,0)="""RTN"",""PRCFAC"",44,0)"
^XMB(3.9,83,2,418,0)="EN731 K DIC(""A"") S D=""C"",DIC(""S"")=""I $D(^(7)),+$P(^(0),U)=PRC(""""SITE"""") S FSO=$P(^PRCD(442.3,+^(7),0),U,3) I FSO=10"",DIC(""A"")=""Select Purchase Order Number: "",DIC=442,DIC(0)=""AEQZ"" D IX^DIC K DIC(""S""),DIC(""A""),FSO G:+Y<0 OUT S DA=+Y"
^XMB(3.9,83,2,419,0)="""RTN"",""PRCFAC"",45,0)"
^XMB(3.9,83,2,420,0)="EN732 W !,$C(7) S %A=""Are you sure that you do not want to obligate this order"""
^XMB(3.9,83,2,421,0)="""RTN"",""PRCFAC"",46,0)"
^XMB(3.9,83,2,422,0)=" S %=1,%B=""Answering 'YES' will return the order to Supply, unobligated."" D ^PRCFYN S PRCENT=% D:PRCENT=1 ^PRCFACS1 G:PRCENT=2 EN731 I PRCENT<0 W !,""No Action Taken."" R X:3 G OUT"
^XMB(3.9,83,2,423,0)="""RTN"",""PRCFAC"",47,0)"
^XMB(3.9,83,2,424,0)="LCK L @(""+""_DIC_DA_""):0"") E  W !,$C(7),""ANOTHER USER IS EDITING THIS ENTRY!"" K DA Q"
^XMB(3.9,83,2,425,0)="""RTN"",""PRCFAC"",48,0)"
^XMB(3.9,83,2,426,0)=" D REMOVE^PRCHES5(DA) S X=8 D ENF^PRCHSTAT W !!,""...Purchase Order has been returned, Supply has been notified..."",$C(7),!"
^XMB(3.9,83,2,427,0)="""RTN"",""PRCFAC"",49,0)"
^XMB(3.9,83,2,428,0)=" I $G(DIC),$G(DA) L @(""-""_DIC_DA_""):0"")"
^XMB(3.9,83,2,429,0)="""RTN"",""PRCFAC"",50,0)"
^XMB(3.9,83,2,430,0)=" Q"
^XMB(3.9,83,2,431,0)="""RTN"",""PRCFACS1"")"
^XMB(3.9,83,2,432,0)="0^5^B3012091^B2903354"
^XMB(3.9,83,2,433,0)="""RTN"",""PRCFACS1"",1,0)"
^XMB(3.9,83,2,434,0)="PRCFACS1 ;WISC/PL-BULLETIN FOR RETURNED PRUCHASE ORDER ;12/17/93"
^XMB(3.9,83,2,435,0)="""RTN"",""PRCFACS1"",2,0)"
^XMB(3.9,83,2,436,0)=" ;;5.1;IFCAP;**97**;Oct 20, 2000"
^XMB(3.9,83,2,437,0)="""RTN"",""PRCFACS1"",3,0)"
^XMB(3.9,83,2,438,0)=" ;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,83,2,439,0)="""RTN"",""PRCFACS1"",4,0)"
^XMB(3.9,83,2,440,0)=" ;"
^XMB(3.9,83,2,441,0)="""RTN"",""PRCFACS1"",5,0)"
^XMB(3.9,83,2,442,0)=" K ^UTILITY($J),MSG S DIWL=0,DIWR=79,DIWF="""""
^XMB(3.9,83,2,443,0)="""RTN"",""PRCFACS1"",6,0)"
^XMB(3.9,83,2,444,0)=" S MSG(1,0)=""The following purchase order was not obligated"",MSG(2,0)=""and has been  'RETURNED'  by Fiscal Service !! "",MSG(3,0)=""Purchase Order information is as follows:"""
^XMB(3.9,83,2,445,0)="""RTN"",""PRCFACS1"",7,0)"
^XMB(3.9,83,2,446,0)=" S MSG(4,0)=""   "",MSG(5,0)=""Purchase Order Number: ""_$P(^PRC(442,DA,0),""^"",1)"
^XMB(3.9,83,2,447,0)="""RTN"",""PRCFACS1"",8,0)"
^XMB(3.9,83,2,448,0)=" S XMSUB=""RETURNED PURCHASE ORDER NOTIFICATION"""
^XMB(3.9,83,2,449,0)="""RTN"",""PRCFACS1"",9,0)"
^XMB(3.9,83,2,450,0)=" D MSG W !! S X=""...Purchase Order returned, bulletin transmitted...*"" D MSG^PRCFQ"
^XMB(3.9,83,2,451,0)="""RTN"",""PRCFACS1"",10,0)"
^XMB(3.9,83,2,452,0)="EXIT ;"
^XMB(3.9,83,2,453,0)="""RTN"",""PRCFACS1"",11,0)"
^XMB(3.9,83,2,454,0)=" K DIWF,DIWL,DIWR,X,X1,XMDUZ,XMSUB,XMTEXT,XMY"
^XMB(3.9,83,2,455,0)="""RTN"",""PRCFACS1"",12,0)"
^XMB(3.9,83,2,456,0)=" Q"
^XMB(3.9,83,2,457,0)="""RTN"",""PRCFACS1"",13,0)"
^XMB(3.9,83,2,458,0)=" ;"
^XMB(3.9,83,2,459,0)="""RTN"",""PRCFACS1"",14,0)"
^XMB(3.9,83,2,460,0)="MSG ;SET VARIABLES AND CALL XMD"
^XMB(3.9,83,2,461,0)="""RTN"",""PRCFACS1"",15,0)"
^XMB(3.9,83,2,462,0)=" S XMDUZ=DUZ,X=$S($D(^PRC(442,DA,1)):^(1),1:"""") I $P(X,""^"",10)]"""" S X1=$P(X,""^"",10) I X1]"""" S XMY(+X1)="""",XMTEXT=""MSG("" D WAIT^PRCFYN N DIFROM D ^XMD"
^XMB(3.9,83,2,463,0)="""RTN"",""PRCFACS1"",16,0)"
^XMB(3.9,83,2,464,0)=" Q"
^XMB(3.9,83,2,465,0)="""RTN"",""PRCHMA0"")"
^XMB(3.9,83,2,466,0)="0^2^B33867696^B31157233"
^XMB(3.9,83,2,467,0)="""RTN"",""PRCHMA0"",1,0)"
^XMB(3.9,83,2,468,0)="PRCHMA0 ;WISC/AKS-Amendments to purchase orders and requisitions ;3/5/97  15:05"
^XMB(3.9,83,2,469,0)="""RTN"",""PRCHMA0"",2,0)"
^XMB(3.9,83,2,470,0)=" ;;5.1;IFCAP;**97**;Oct 20, 2000"
^XMB(3.9,83,2,471,0)="""RTN"",""PRCHMA0"",3,0)"
^XMB(3.9,83,2,472,0)=" ;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,83,2,473,0)="""RTN"",""PRCHMA0"",4,0)"
^XMB(3.9,83,2,474,0)="EN1 ;Ship to edit"
^XMB(3.9,83,2,475,0)="""RTN"",""PRCHMA0"",5,0)"
^XMB(3.9,83,2,476,0)=" N DR,DIE,DA,DIE,PRCH0"
^XMB(3.9,83,2,477,0)="""RTN"",""PRCHMA0"",6,0)"
^XMB(3.9,83,2,478,0)=" S PRCH0=$G(^PRC(443.6,PRCHPO,0))"
^XMB(3.9,83,2,479,0)="""RTN"",""PRCHMA0"",7,0)"
^XMB(3.9,83,2,480,0)=" S DR=$S($P(PRCH0,U,2)'=4:5.4,1:5.3)"
^XMB(3.9,83,2,481,0)="""RTN"",""PRCHMA0"",8,0)"
^XMB(3.9,83,2,482,0)=" S DIE=""^PRC(443.6,"",DA=PRCHPO D ^DIE"
^XMB(3.9,83,2,483,0)="""RTN"",""PRCHMA0"",9,0)"
^XMB(3.9,83,2,484,0)=" S DELIVER=1 W !"
^XMB(3.9,83,2,485,0)="""RTN"",""PRCHMA0"",10,0)"
^XMB(3.9,83,2,486,0)=" Q"
^XMB(3.9,83,2,487,0)="""RTN"",""PRCHMA0"",11,0)"
^XMB(3.9,83,2,488,0)="EN2 ;Line Item add"
^XMB(3.9,83,2,489,0)="""RTN"",""PRCHMA0"",12,0)"
^XMB(3.9,83,2,490,0)=" N J,%,%A,%B,DIE,DA,DR,D0,D1,PRCHI,PRCHLC,PRCHSTN,NODE0,PRCHI1,PRCHPONO,BFLAG"
^XMB(3.9,83,2,491,0)="""RTN"",""PRCHMA0"",13,0)"
^XMB(3.9,83,2,492,0)=" N X,Y"
^XMB(3.9,83,2,493,0)="""RTN"",""PRCHMA0"",14,0)"
^XMB(3.9,83,2,494,0)=" D MV,MVDIS^PRCHMA3 S NODE0=^PRC(443.6,PRCHPO,0),PRCHLC=$P(NODE0,U,14)"
^XMB(3.9,83,2,495,0)="""RTN"",""PRCHMA0"",15,0)"
^XMB(3.9,83,2,496,0)=" S J=PRCHLC+1,BFLAG=0"
^XMB(3.9,83,2,497,0)="""RTN"",""PRCHMA0"",16,0)"
^XMB(3.9,83,2,498,0)=" S (I,N,M)=0 F  S N=$O(^PRC(443.6,PRCHPO,2,N)) Q:'N  S I=$P(^(N,0),U),M=N"
^XMB(3.9,83,2,499,0)="""RTN"",""PRCHMA0"",17,0)"
^XMB(3.9,83,2,500,0)=" S PRCHI=(I+1)_""^""_J S:$P(^PRC(443.6,PRCHPO,2,0),U,3)<M $P(^(0),U,3)=M"
^XMB(3.9,83,2,501,0)="""RTN"",""PRCHMA0"",18,0)"
^XMB(3.9,83,2,502,0)=" S %=2,%A=""     ADD LINE ITEM ""_+PRCHI,%B="""" D ^PRCFYN"
^XMB(3.9,83,2,503,0)="""RTN"",""PRCHMA0"",19,0)"
^XMB(3.9,83,2,504,0)=" I %'=1 W ?40,""<NOTHING ADDED>"" Q"
^XMB(3.9,83,2,505,0)="""RTN"",""PRCHMA0"",20,0)"
^XMB(3.9,83,2,506,0)=" K DD,DO S DA(1)=PRCHPO,X=+PRCHI,DIC=""^PRC(443.6,""_DA(1)_"",2,"""
^XMB(3.9,83,2,507,0)="""RTN"",""PRCHMA0"",21,0)"
^XMB(3.9,83,2,508,0)=" S DIC(0)=""L"" D FILE^DICN K DIC Q:+Y'>0"
^XMB(3.9,83,2,509,0)="""RTN"",""PRCHMA0"",22,0)"
^XMB(3.9,83,2,510,0)=" S PRCHI1=+PRCHI,$P(PRCHI,U)=+Y"
^XMB(3.9,83,2,511,0)="""RTN"",""PRCHMA0"",23,0)"
^XMB(3.9,83,2,512,0)=" ;S $P(^PRC(443.6,PRCHPO,2,0),U,3)=$P(PRCHI,U),$P(^(0),U,4)=+PRCHI"
^XMB(3.9,83,2,513,0)="""RTN"",""PRCHMA0"",24,0)"
^XMB(3.9,83,2,514,0)=" S $P(NODE0,U,14)=J"
^XMB(3.9,83,2,515,0)="""RTN"",""PRCHMA0"",25,0)"
^XMB(3.9,83,2,516,0)=" I $D(^PRC(443.6,PRCHPO,3)) D"
^XMB(3.9,83,2,517,0)="""RTN"",""PRCHMA0"",26,0)"
^XMB(3.9,83,2,518,0)=" .S N=0 F  S N=$O(^PRC(443.6,PRCHPO,3,N)) Q:'N  S $P(^PRC(443.6,PRCHPO,3,N,0),U,6)=$P(^PRC(443.6,PRCHPO,3,N,0),U,6)+1"
^XMB(3.9,83,2,519,0)="""RTN"",""PRCHMA0"",27,0)"
^XMB(3.9,83,2,520,0)=" S:$P(NODE0,U,18)]"""" $P(NODE0,U,18)=J"
^XMB(3.9,83,2,521,0)="""RTN"",""PRCHMA0"",28,0)"
^XMB(3.9,83,2,522,0)=" S ^PRC(443.6,PRCHPO,0)=NODE0"
^XMB(3.9,83,2,523,0)="""RTN"",""PRCHMA0"",29,0)"
^XMB(3.9,83,2,524,0)=" S PRCHEDI=$G(^PRC(440,$P(^PRC(443.6,PRCHPO,1),U),3)) S:PRCHEDI]"""" PRCHEDI=$P(PRCHEDI,U,2)"
^XMB(3.9,83,2,525,0)="""RTN"",""PRCHMA0"",30,0)"
^XMB(3.9,83,2,526,0)=" S PRCHSTN=$P($P(NODE0,U),""-""),PRCHPONO=$P(NODE0,U)"
^XMB(3.9,83,2,527,0)="""RTN"",""PRCHMA0"",31,0)"
^XMB(3.9,83,2,528,0)=" S DIE=""^PRC(443.6,"",DA=PRCHPO"
^XMB(3.9,83,2,529,0)="""RTN"",""PRCHMA0"",32,0)"
^XMB(3.9,83,2,530,0)=" S DR=$S($D(PRCHREQ):""[PRCHRQITM]"",1:""[PRCHLINE]""),DIE(""NO^"")=""BACK"""
^XMB(3.9,83,2,531,0)="""RTN"",""PRCHMA0"",33,0)"
^XMB(3.9,83,2,532,0)=" I $G(PRCHAUTH)=1 S DR=""[PRCH PURCHASE CARD AMEND]"""
^XMB(3.9,83,2,533,0)="""RTN"",""PRCHMA0"",34,0)"
^XMB(3.9,83,2,534,0)=" I $G(PRCHAUTH)=2 S DR=""[PRCH DELIVERY ORDER AMEND]"""
^XMB(3.9,83,2,535,0)="""RTN"",""PRCHMA0"",35,0)"
^XMB(3.9,83,2,536,0)=" S DIE(""NO^"")=""OUTOK"""
^XMB(3.9,83,2,537,0)="""RTN"",""PRCHMA0"",36,0)"
^XMB(3.9,83,2,538,0)=" D ^DIE K DIE"
^XMB(3.9,83,2,539,0)="""RTN"",""PRCHMA0"",37,0)"
^XMB(3.9,83,2,540,0)=" I $D(^PRC(443.6,PRCHPO,2,+PRCHI,0))  D"
^XMB(3.9,83,2,541,0)="""RTN"",""PRCHMA0"",38,0)"
^XMB(3.9,83,2,542,0)=" .S:'$D(^(2)) ^(2)=0"
^XMB(3.9,83,2,543,0)="""RTN"",""PRCHMA0"",39,0)"
^XMB(3.9,83,2,544,0)=" .I $P(^PRC(443.6,PRCHPO,2,+PRCHI,0),U,2)=""""  D"
^XMB(3.9,83,2,545,0)="""RTN"",""PRCHMA0"",40,0)"
^XMB(3.9,83,2,546,0)=" ..W !,""Line item is being deleted because of incomplete information."",!"
^XMB(3.9,83,2,547,0)="""RTN"",""PRCHMA0"",41,0)"
^XMB(3.9,83,2,548,0)=" ..S DA=+PRCHI,DA(1)=PRCHPO,DIK=""^PRC(443.6,""_DA(1)_"",2,"",BFLAG=1"
^XMB(3.9,83,2,549,0)="""RTN"",""PRCHMA0"",42,0)"
^XMB(3.9,83,2,550,0)=" ..D ^DIK"
^XMB(3.9,83,2,551,0)="""RTN"",""PRCHMA0"",43,0)"
^XMB(3.9,83,2,552,0)=" I BFLAG=0  D"
^XMB(3.9,83,2,553,0)="""RTN"",""PRCHMA0"",44,0)"
^XMB(3.9,83,2,554,0)=" .S DELIVER=1 W !"
^XMB(3.9,83,2,555,0)="""RTN"",""PRCHMA0"",45,0)"
^XMB(3.9,83,2,556,0)=" .D ERCHK^PRCHMA1 K ERROR"
^XMB(3.9,83,2,557,0)="""RTN"",""PRCHMA0"",46,0)"
^XMB(3.9,83,2,558,0)=" .S DA(1)=PRCHPO,DA=PRCHI1 D EN12^PRCHAMXG"
^XMB(3.9,83,2,559,0)="""RTN"",""PRCHMA0"",47,0)"
^XMB(3.9,83,2,560,0)=" Q"
^XMB(3.9,83,2,561,0)="""RTN"",""PRCHMA0"",48,0)"
^XMB(3.9,83,2,562,0)="EN3 ;Line Item delete"
^XMB(3.9,83,2,563,0)="""RTN"",""PRCHMA0"",49,0)"
^XMB(3.9,83,2,564,0)=" N PRCHI,I442,I2Z,DIC,PRCHAREC,DIE,DR,DELIVER,%,%A,%B,PONUM,DIK"
^XMB(3.9,83,2,565,0)="""RTN"",""PRCHMA0"",50,0)"
^XMB(3.9,83,2,566,0)=" N PONOEXT,PODS,IENDS"
^XMB(3.9,83,2,567,0)="""RTN"",""PRCHMA0"",51,0)"
^XMB(3.9,83,2,568,0)=" D MV,MVDIS^PRCHMA3 S DA(1)=PRCHPO,DIC=""^PRC(443.6,""_DA(1)_"",2,"",DIC(0)=""AEQZ"" D ^DIC"
^XMB(3.9,83,2,569,0)="""RTN"",""PRCHMA0"",52,0)"
^XMB(3.9,83,2,570,0)=" I Y<0 W !?5,""<NOTHING DELETED>"" Q"
^XMB(3.9,83,2,571,0)="""RTN"",""PRCHMA0"",53,0)"
^XMB(3.9,83,2,572,0)=" S PRCHI=Y"
^XMB(3.9,83,2,573,0)="""RTN"",""PRCHMA0"",54,0)"
^XMB(3.9,83,2,574,0)=" I $P($G(^PRC(443.6,PRCHPO,2,+PRCHI,2)),U,8)>0 D  Q"
^XMB(3.9,83,2,575,0)="""RTN"",""PRCHMA0"",55,0)"
^XMB(3.9,83,2,576,0)=" .W !?5,""CANNOT DELETE ITEM "",$P(PRCHI,U,2),"", IT HAS ALREADY BEEN RECEIVED!"",$C(7)"
^XMB(3.9,83,2,577,0)="""RTN"",""PRCHMA0"",56,0)"
^XMB(3.9,83,2,578,0)=" S %="""",%A=""   SURE YOU WANT TO DELETE LINE ITEM ""_$P(PRCHI,U,2),%B="""""
^XMB(3.9,83,2,579,0)="""RTN"",""PRCHMA0"",57,0)"
^XMB(3.9,83,2,580,0)=" D ^PRCFYN I %'=1 W ?50,""<NOTHING DELETED>"" Q"
^XMB(3.9,83,2,581,0)="""RTN"",""PRCHMA0"",58,0)"
^XMB(3.9,83,2,582,0)=" S I442=$G(^PRC(442,PRCHPO,2,+PRCHI,0)) I I442="""" D  Q"
^XMB(3.9,83,2,583,0)="""RTN"",""PRCHMA0"",59,0)"
^XMB(3.9,83,2,584,0)=" .S PONUM=$P(^PRC(443.6,PRCHPO,2,+PRCHI,0),U)"
^XMB(3.9,83,2,585,0)="""RTN"",""PRCHMA0"",60,0)"
^XMB(3.9,83,2,586,0)=" .K ^PRC(443.6,PRCHPO,2,""B"",PONUM),^PRC(443.6,PRCHPO,2,""C"",PONUM)"
^XMB(3.9,83,2,587,0)="""RTN"",""PRCHMA0"",61,0)"
^XMB(3.9,83,2,588,0)=" .I $P($G(^PRC(443.6,PRCHPO,2,+PRCHI,0)),U,5)]"""" K ^PRC(443.6,PRCHPO,2,""AE"",$P(^PRC(443.6,PRCHPO,2,+PRCHI,0),U,5))"
^XMB(3.9,83,2,589,0)="""RTN"",""PRCHMA0"",62,0)"
^XMB(3.9,83,2,590,0)=" .;"
^XMB(3.9,83,2,591,0)="""RTN"",""PRCHMA0"",63,0)"
^XMB(3.9,83,2,592,0)=" .;If item was added during amendment process then kill Item/Del. Sch."
^XMB(3.9,83,2,593,0)="""RTN"",""PRCHMA0"",64,0)"
^XMB(3.9,83,2,594,0)=" .S PONOEXT=$P(^PRC(443.6,PRCHPO,0),U),PODS=0"
^XMB(3.9,83,2,595,0)="""RTN"",""PRCHMA0"",65,0)"
^XMB(3.9,83,2,596,0)=" .F  S PODS=$O(^PRC(441.7,""AG"",PONOEXT,+PRCHI,PODS)) Q:'PODS  I $D(PODS) S DA=PODS,DIK=""^PRC(441.7,"" D ^DIK"
^XMB(3.9,83,2,597,0)="""RTN"",""PRCHMA0"",66,0)"
^XMB(3.9,83,2,598,0)=" .;"
^XMB(3.9,83,2,599,0)="""RTN"",""PRCHMA0"",67,0)"
^XMB(3.9,83,2,600,0)=" .K ^PRC(443.6,PRCHPO,2,+PRCHI)"
^XMB(3.9,83,2,601,0)="""RTN"",""PRCHMA0"",68,0)"
^XMB(3.9,83,2,602,0)=" .S I2Z=^PRC(443.6,PRCHPO,2,0),$P(I2Z,U,4)=$P(I2Z,U,4)-1"
^XMB(3.9,83,2,603,0)="""RTN"",""PRCHMA0"",69,0)"
^XMB(3.9,83,2,604,0)=" .S ^PRC(443.6,PRCHPO,2,0)=I2Z"
^XMB(3.9,83,2,605,0)="""RTN"",""PRCHMA0"",70,0)"
^XMB(3.9,83,2,606,0)=" .S N=0 F I=1:1 S N=$O(^PRC(443.6,PRCHPO,2,N)) Q:'N  D"
^XMB(3.9,83,2,607,0)="""RTN"",""PRCHMA0"",71,0)"
^XMB(3.9,83,2,608,0)=" ..S $P(^PRC(443.6,PRCHPO,2,N,0),U)=I"
^XMB(3.9,83,2,609,0)="""RTN"",""PRCHMA0"",72,0)"
^XMB(3.9,83,2,610,0)=" .K ^PRC(443.6,PRCHPO,2,""B""),^PRC(443.6,PRCHPO,2,""C"")"
^XMB(3.9,83,2,611,0)="""RTN"",""PRCHMA0"",73,0)"
^XMB(3.9,83,2,612,0)=" .S DA(1)=PRCHPO,DIK(1)="".01^B^C"""
^XMB(3.9,83,2,613,0)="""RTN"",""PRCHMA0"",74,0)"
^XMB(3.9,83,2,614,0)=" .S DIK=""^PRC(443.6,""_DA(1)_"",2,"" D ENALL^DIK K N,I,DIK"
^XMB(3.9,83,2,615,0)="""RTN"",""PRCHMA0"",75,0)"
^XMB(3.9,83,2,616,0)=" .S J=$P(^PRC(443.6,PRCHPO,0),U,14)-1"
^XMB(3.9,83,2,617,0)="""RTN"",""PRCHMA0"",76,0)"
^XMB(3.9,83,2,618,0)=" .S $P(^PRC(443.6,PRCHPO,0),U,14)=J,$P(^(0),U,18)=J"
^XMB(3.9,83,2,619,0)="""RTN"",""PRCHMA0"",77,0)"
^XMB(3.9,83,2,620,0)=" .I $D(^PRC(443.6,PRCHPO,3)) D"
^XMB(3.9,83,2,621,0)="""RTN"",""PRCHMA0"",78,0)"
^XMB(3.9,83,2,622,0)=" ..S N=0 F  S N=$O(^PRC(443.6,PRCHPO,3,N)) Q:'N  S $P(^PRC(443.6,PRCHPO,3,N,0),U,6)=$P(^PRC(443.6,PRCHPO,3,N,0),U,6)-1"
^XMB(3.9,83,2,623,0)="""RTN"",""PRCHMA0"",79,0)"
^XMB(3.9,83,2,624,0)=" I $D(^PRC(443.6,PRCHPO,2,+PRCHI,2)),$P(^(2),U,6)>0 S PRCHAREC=1"
^XMB(3.9,83,2,625,0)="""RTN"",""PRCHMA0"",80,0)"
^XMB(3.9,83,2,626,0)=" ;"
^XMB(3.9,83,2,627,0)="""RTN"",""PRCHMA0"",81,0)"
^XMB(3.9,83,2,628,0)=" ;If item already exists then either mark or delete the Del. Sch. "
^XMB(3.9,83,2,629,0)="""RTN"",""PRCHMA0"",82,0)"
^XMB(3.9,83,2,630,0)=" I I442]"""" D"
^XMB(3.9,83,2,631,0)="""RTN"",""PRCHMA0"",83,0)"
^XMB(3.9,83,2,632,0)=" .S PONOEXT=$P(^PRC(443.6,PRCHPO,0),U)"
^XMB(3.9,83,2,633,0)="""RTN"",""PRCHMA0"",84,0)"
^XMB(3.9,83,2,634,0)=" .S POSC=0"
^XMB(3.9,83,2,635,0)="""RTN"",""PRCHMA0"",85,0)"
^XMB(3.9,83,2,636,0)=" .F  S POSC=$O(^PRC(441.7,""AG"",PONOEXT,+PRCHI,POSC)) Q:'POSC  D"
^XMB(3.9,83,2,637,0)="""RTN"",""PRCHMA0"",86,0)"
^XMB(3.9,83,2,638,0)=" . . S IENDS=$G(^PRC(441.7,POSC,0))"
^XMB(3.9,83,2,639,0)="""RTN"",""PRCHMA0"",87,0)"
^XMB(3.9,83,2,640,0)=" . . Q:IENDS="""""
^XMB(3.9,83,2,641,0)="""RTN"",""PRCHMA0"",88,0)"
^XMB(3.9,83,2,642,0)=" . . S PERM=+$P(IENDS,U,7)"
^XMB(3.9,83,2,643,0)="""RTN"",""PRCHMA0"",89,0)"
^XMB(3.9,83,2,644,0)=" . . I PERM>0 S DR=""5////D"",DIE=""^PRC(441.7,"",DA=POSC D ^DIE Q"
^XMB(3.9,83,2,645,0)="""RTN"",""PRCHMA0"",90,0)"
^XMB(3.9,83,2,646,0)=" . . I PERM'>0 K PRCHNORE S DIK=""^PRC(441.7,"",DA=POSC D ^DIK  S PRCHNORE=1 Q"
^XMB(3.9,83,2,647,0)="""RTN"",""PRCHMA0"",91,0)"
^XMB(3.9,83,2,648,0)=" ;"
^XMB(3.9,83,2,649,0)="""RTN"",""PRCHMA0"",92,0)"
^XMB(3.9,83,2,650,0)=" S DR=""5///0;2////0"""
^XMB(3.9,83,2,651,0)="""RTN"",""PRCHMA0"",93,0)"
^XMB(3.9,83,2,652,0)=" S DA(1)=PRCHPO,DA=+PRCHI"
^XMB(3.9,83,2,653,0)="""RTN"",""PRCHMA0"",94,0)"
^XMB(3.9,83,2,654,0)=" S DIE=""^PRC(443.6,""_DA(1)_"",2,"""
^XMB(3.9,83,2,655,0)="""RTN"",""PRCHMA0"",95,0)"
^XMB(3.9,83,2,656,0)=" D ^DIE K DIE"
^XMB(3.9,83,2,657,0)="""RTN"",""PRCHMA0"",96,0)"
^XMB(3.9,83,2,658,0)=" S DELIVER=1 W !"
^XMB(3.9,83,2,659,0)="""RTN"",""PRCHMA0"",97,0)"
^XMB(3.9,83,2,660,0)=" Q"
^XMB(3.9,83,2,661,0)="""RTN"",""PRCHMA0"",98,0)"
^XMB(3.9,83,2,662,0)="MV ;Move line item information from 442"
^XMB(3.9,83,2,663,0)="""RTN"",""PRCHMA0"",99,0)"
^XMB(3.9,83,2,664,0)=" Q:$D(^PRC(443.6,PRCHPO,2,0))  Q:$P($G(^(0)),U,4)>0  D WAIT^DICD"
^XMB(3.9,83,2,665,0)="""RTN"",""PRCHMA0"",100,0)"
^XMB(3.9,83,2,666,0)=" N %X,%Y,N,M,PRCHPO1,OK,PRCHNORE"
^XMB(3.9,83,2,667,0)="""RTN"",""PRCHMA0"",101,0)"
^XMB(3.9,83,2,668,0)=" S %X=""^PRC(442,PRCHPO,2,"",%Y=""^PRC(443.6,PRCHPO,2,"" D %XY^%RCR"
^XMB(3.9,83,2,669,0)="""RTN"",""PRCHMA0"",102,0)"
^XMB(3.9,83,2,670,0)=" S $P(^PRC(443.6,PRCHPO,2,0),U,2)=$P(^DD(443.6,40,0),U,2) K ^(""C"")"
^XMB(3.9,83,2,671,0)="""RTN"",""PRCHMA0"",103,0)"
^XMB(3.9,83,2,672,0)=" S PRCHPO1=$P(^PRC(442,PRCHPO,0),""^"")"
^XMB(3.9,83,2,673,0)="""RTN"",""PRCHMA0"",104,0)"
^XMB(3.9,83,2,674,0)=" Q:'$D(^PRC(442.8,""B"",PRCHPO1))  Q:$D(^PRC(441.7,""B"",PRCHPO1))"
^XMB(3.9,83,2,675,0)="""RTN"",""PRCHMA0"",105,0)"
^XMB(3.9,83,2,676,0)=" S N=0,M=+$P(^PRC(441.7,0),""^"",3)"
^XMB(3.9,83,2,677,0)="""RTN"",""PRCHMA0"",106,0)"
^XMB(3.9,83,2,678,0)=" F  S N=$O(^PRC(442.8,""B"",PRCHPO1,N)) Q:'N  D"
^XMB(3.9,83,2,679,0)="""RTN"",""PRCHMA0"",107,0)"
^XMB(3.9,83,2,680,0)="MV1 .S M=M+1,OK=$G(^PRC(441.7,M,0)) I OK'="""" G MV1"
^XMB(3.9,83,2,681,0)="""RTN"",""PRCHMA0"",108,0)"
^XMB(3.9,83,2,682,0)=" .S ^PRC(441.7,M,0)=^PRC(442.8,N,0)"
^XMB(3.9,83,2,683,0)="""RTN"",""PRCHMA0"",109,0)"
^XMB(3.9,83,2,684,0)=" .S $P(^PRC(441.7,M,0),U,7)=N"
^XMB(3.9,83,2,685,0)="""RTN"",""PRCHMA0"",110,0)"
^XMB(3.9,83,2,686,0)=" .S $P(^PRC(441.7,0),""^"",3)=M"
^XMB(3.9,83,2,687,0)="""RTN"",""PRCHMA0"",111,0)"
^XMB(3.9,83,2,688,0)=" .S $P(^PRC(441.7,0),""^"",4)=$P(^(0),""^"",4)+1"
^XMB(3.9,83,2,689,0)="""RTN"",""PRCHMA0"",112,0)"
^XMB(3.9,83,2,690,0)=" .S DIK=""^PRC(441.7,"",DA=M D IX^DIK K DIK,DA"
^XMB(3.9,83,2,691,0)="""RTN"",""PRCHMA0"",113,0)"
^XMB(3.9,83,2,692,0)=" .Q"
^XMB(3.9,83,2,693,0)="""RTN"",""PRCHMA0"",114,0)"
^XMB(3.9,83,2,694,0)=" Q"
^XMB(3.9,83,2,695,0)="""RTN"",""PRCHMA0"",115,0)"
^XMB(3.9,83,2,696,0)="ONLY ;Make sure only 'Cancel' amendment"
^XMB(3.9,83,2,697,0)="""RTN"",""PRCHMA0"",116,0)"
^XMB(3.9,83,2,698,0)=" S PRCHON=0"
^XMB(3.9,83,2,699,0)="""RTN"",""PRCHMA0"",117,0)"
^XMB(3.9,83,2,700,0)=" I $P($G(^PRC(443.6,PRCHPO,6,PRCHAM,3,0)),U,4)>2 D ERR Q"
^XMB(3.9,83,2,701,0)="""RTN"",""PRCHMA0"",118,0)"
^XMB(3.9,83,2,702,0)=" I $P($G(^PRC(443.6,PRCHPO,6,PRCHAM,3,0)),U,4)=2 D  Q"
^XMB(3.9,83,2,703,0)="""RTN"",""PRCHMA0"",119,0)"
^XMB(3.9,83,2,704,0)=" .I $P($G(^PRC(443.6,PRCHPO,6,PRCHAM,3,2,0)),U,2)'=34 D ERR Q"
^XMB(3.9,83,2,705,0)="""RTN"",""PRCHMA0"",120,0)"
^XMB(3.9,83,2,706,0)=" .S PRCHON=1"
^XMB(3.9,83,2,707,0)="""RTN"",""PRCHMA0"",121,0)"
^XMB(3.9,83,2,708,0)=" S PRCHON=1"
^XMB(3.9,83,2,709,0)="""RTN"",""PRCHMA0"",122,0)"
^XMB(3.9,83,2,710,0)=" QUIT"
^XMB(3.9,83,2,711,0)="""RTN"",""PRCHMA0"",123,0)"
^XMB(3.9,83,2,712,0)="ERR ;Error"
^XMB(3.9,83,2,713,0)="""RTN"",""PRCHMA0"",124,0)"
^XMB(3.9,83,2,714,0)=" ;W !?5,""You can only ""_$S($D(PRCHREQ):$P(^PRCD(442.2,15,0),U,2),1:$P(^PRCD(442.2,5,0),U,2))_"" if this is the ONLY change you"",!?5,""are making to the ""_$S($D(PRCHREQ):""requisition."",1:""purchase order."")"
^XMB(3.9,83,2,715,0)="""RTN"",""PRCHMA0"",125,0)"
^XMB(3.9,83,2,716,0)=" W !?5,""To ""_$S($D(PRCHREQ):$P(^PRCD(442.2,15,0),U,2),1:$P(^PRCD(442.2,5,0),U,2))_"" it must be the ONLY change you"",!?5,""are making on the amendment."""
^XMB(3.9,83,2,717,0)="""RTN"",""PRCHMA0"",126,0)"
^XMB(3.9,83,2,718,0)=" QUIT"
^XMB(3.9,83,2,719,0)="""RTN"",""PRCHMA0"",127,0)"
^XMB(3.9,83,2,720,0)=" ;"
^XMB(3.9,83,2,721,0)="""RTN"",""PRCHMA0"",128,0)"
^XMB(3.9,83,2,722,0)="SUPBOC(QUIETLY) ;compute pre-implied BOC, moved from template PRCHRQITEM, PRCHLINE into this routine and also called in BOC input transform"
^XMB(3.9,83,2,723,0)="""RTN"",""PRCHMA0"",129,0)"
^XMB(3.9,83,2,724,0)=" N PRCHIDA,SPFCP,PRCHBOCC,ACCT"
^XMB(3.9,83,2,725,0)="""RTN"",""PRCHMA0"",130,0)"
^XMB(3.9,83,2,726,0)=" S:$G(QUIETLY)=-1 X=$P($G(^PRC(443.6,DA(1),2,DA,0)),U,4)"
^XMB(3.9,83,2,727,0)="""RTN"",""PRCHMA0"",131,0)"
^XMB(3.9,83,2,728,0)=" Q:'$D(X)"
^XMB(3.9,83,2,729,0)="""RTN"",""PRCHMA0"",132,0)"
^XMB(3.9,83,2,730,0)=" S PRCHIDA=+$P($G(^PRC(443.6,DA(1),2,DA,0)),U,5),SPFCP=+$P(^PRC(443.6,DA(1),0),U,19)"
^XMB(3.9,83,2,731,0)="""RTN"",""PRCHMA0"",133,0)"
^XMB(3.9,83,2,732,0)=" I SPFCP=2 D"
^XMB(3.9,83,2,733,0)="""RTN"",""PRCHMA0"",134,0)"
^XMB(3.9,83,2,734,0)=" . S PRCHN(""SFC"")=SPFCP,ACCT=$$ACCT^PRCPUX1($E($$NSN^PRCPUX1(PRCHIDA),1,4))"
^XMB(3.9,83,2,735,0)="""RTN"",""PRCHMA0"",135,0)"
^XMB(3.9,83,2,736,0)=" . D  ;:$D(ACCT)"
^XMB(3.9,83,2,737,0)="""RTN"",""PRCHMA0"",136,0)"
^XMB(3.9,83,2,738,0)=" . . S PRCHBOCC=$P($G(^PRCD(420.2,$S(ACCT=1:2697,ACCT=2:2698,ACCT=3:2699,ACCT=6:2699,ACCT=8:2696,1:2699),0)),U)"
^XMB(3.9,83,2,739,0)="""RTN"",""PRCHMA0"",137,0)"
^XMB(3.9,83,2,740,0)=" . . I PRCHBOCC S $P(^PRC(443.6,DA(1),2,DA,0),U,4)=PRCHBOCC D"
^XMB(3.9,83,2,741,0)="""RTN"",""PRCHMA0"",138,0)"
^XMB(3.9,83,2,742,0)=" . . . I PRCHBOCC'=X,PRCHBOCC W:'$G(QUIETLY) !,?5,""BOC must be "",PRCHBOCC,!,?5,""For a supply fund order, a BOC "",X,"" is invalid."",! S X=PRCHBOCC"
^XMB(3.9,83,2,743,0)="""RTN"",""PRCHMA0"",139,0)"
^XMB(3.9,83,2,744,0)=" Q X"
^XMB(3.9,83,2,745,0)="""RTN"",""PRCHMA0"",140,0)"
^XMB(3.9,83,2,746,0)=" ;"
^XMB(3.9,83,2,747,0)="""VER"")"
^XMB(3.9,83,2,748,0)="8.0^22.0"
^XMB(3.9,83,2,749,0)="""BLD"",4943,6)"
^XMB(3.9,83,2,750,0)="^83"
^XMB(3.9,83,2,751,0)="$END KID PRC*5.1*97"
^XMB(3.9,83,6,0)="^3.911A^2^2"
^XMB(3.9,83,6,1,0)="POSTMASTER"
^XMB(3.9,83,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,83,6,"B","POSTMASTER",1)=""
^XMB(3.9,83,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,84,0)="PRC-5P1_SEQ-84_PAT-100.KID^.5^3061008.015739^^^^K"
^XMB(3.9,84,.6)="3061008"
^XMB(3.9,84,1,0)="^3.91A^2^2"
^XMB(3.9,84,1,1,0)=".5^0^3061008.015739^^^^^^^3061008.015739"
^XMB(3.9,84,1,2,0)="1^0^3061008.024132^^^^^^^3061008.024132"
^XMB(3.9,84,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,84,1,"C",.5,1)=""
^XMB(3.9,84,1,"C",1,2)=""
^XMB(3.9,84,2,0)="^^2517^2517^3061008"
^XMB(3.9,84,2,1,0)="$TXT Released PRC*5.1*100 SEQ #84"
^XMB(3.9,84,2,2,0)="Extracted from mail message"
^XMB(3.9,84,2,3,0)="$END TXT"
^XMB(3.9,84,2,4,0)="$KID PRC*5.1*100"
^XMB(3.9,84,2,5,0)="**INSTALL NAME**"
^XMB(3.9,84,2,6,0)="PRC*5.1*100"
^XMB(3.9,84,2,7,0)="""BLD"",4973,0)"
^XMB(3.9,84,2,8,0)="PRC*5.1*100^IFCAP^0^3060705^y"
^XMB(3.9,84,2,9,0)="""BLD"",4973,1,0)"
^XMB(3.9,84,2,10,0)="^^2^2^3060515^"
^XMB(3.9,84,2,11,0)="""BLD"",4973,1,1,0)"
^XMB(3.9,84,2,12,0)="This patch addresses issues with the new functionality introduced by the "
^XMB(3.9,84,2,13,0)="""BLD"",4973,1,2,0)"
^XMB(3.9,84,2,14,0)="patch PRC*5.1*79 and reported via the Remedy system."
^XMB(3.9,84,2,15,0)="""BLD"",4973,4,0)"
^XMB(3.9,84,2,16,0)="^9.64PA^^"
^XMB(3.9,84,2,17,0)="""BLD"",4973,""ABPKG"")"
^XMB(3.9,84,2,18,0)="n"
^XMB(3.9,84,2,19,0)="""BLD"",4973,""KRN"",0)"
^XMB(3.9,84,2,20,0)="^9.67PA^8989.52^19"
^XMB(3.9,84,2,21,0)="""BLD"",4973,""KRN"",.4,0)"
^XMB(3.9,84,2,22,0)=".4"
^XMB(3.9,84,2,23,0)="""BLD"",4973,""KRN"",.401,0)"
^XMB(3.9,84,2,24,0)=".401"
^XMB(3.9,84,2,25,0)="""BLD"",4973,""KRN"",.402,0)"
^XMB(3.9,84,2,26,0)=".402"
^XMB(3.9,84,2,27,0)="""BLD"",4973,""KRN"",.402,""NM"",0)"
^XMB(3.9,84,2,28,0)="^9.68A^8^8"
^XMB(3.9,84,2,29,0)="""BLD"",4973,""KRN"",.402,""NM"",1,0)"
^XMB(3.9,84,2,30,0)="PRCH DELIVERY ORDER    FILE #442^442^0"
^XMB(3.9,84,2,31,0)="""BLD"",4973,""KRN"",.402,""NM"",2,0)"
^XMB(3.9,84,2,32,0)="PRCH DELIVERY ORDER AMEND    FILE #443.6^443.6^0"
^XMB(3.9,84,2,33,0)="""BLD"",4973,""KRN"",.402,""NM"",3,0)"
^XMB(3.9,84,2,34,0)="PRCH DETAILED PURCHASE CARD    FILE #442^442^0"
^XMB(3.9,84,2,35,0)="""BLD"",4973,""KRN"",.402,""NM"",4,0)"
^XMB(3.9,84,2,36,0)="PRCH PC DIRECT DELIVERY    FILE #442^442^0"
^XMB(3.9,84,2,37,0)="""BLD"",4973,""KRN"",.402,""NM"",5,0)"
^XMB(3.9,84,2,38,0)="PRCH PURCHASE CARD AMEND    FILE #443.6^443.6^0"
^XMB(3.9,84,2,39,0)="""BLD"",4973,""KRN"",.402,""NM"",6,0)"
^XMB(3.9,84,2,40,0)="PRCHLINE    FILE #443.6^443.6^0"
^XMB(3.9,84,2,41,0)="""BLD"",4973,""KRN"",.402,""NM"",7,0)"
^XMB(3.9,84,2,42,0)="PRCHQ RFQ REQUEST    FILE #444^444^0"
^XMB(3.9,84,2,43,0)="""BLD"",4973,""KRN"",.402,""NM"",8,0)"
^XMB(3.9,84,2,44,0)="PRCH2138    FILE #442^442^0"
^XMB(3.9,84,2,45,0)="""BLD"",4973,""KRN"",.402,""NM"",""B"",""PRCH DELIVERY ORDER    FILE #442"",1)"
^XMB(3.9,84,2,46,0)=""
^XMB(3.9,84,2,47,0)="""BLD"",4973,""KRN"",.402,""NM"",""B"",""PRCH DELIVERY ORDER AMEND    FILE #443.6"",2)"
^XMB(3.9,84,2,48,0)=""
^XMB(3.9,84,2,49,0)="""BLD"",4973,""KRN"",.402,""NM"",""B"",""PRCH DETAILED PURCHASE CARD    FILE #442"",3)"
^XMB(3.9,84,2,50,0)=""
^XMB(3.9,84,2,51,0)="""BLD"",4973,""KRN"",.402,""NM"",""B"",""PRCH PC DIRECT DELIVERY    FILE #442"",4)"
^XMB(3.9,84,2,52,0)=""
^XMB(3.9,84,2,53,0)="""BLD"",4973,""KRN"",.402,""NM"",""B"",""PRCH PURCHASE CARD AMEND    FILE #443.6"",5)"
^XMB(3.9,84,2,54,0)=""
^XMB(3.9,84,2,55,0)="""BLD"",4973,""KRN"",.402,""NM"",""B"",""PRCH2138    FILE #442"",8)"
^XMB(3.9,84,2,56,0)=""
^XMB(3.9,84,2,57,0)="""BLD"",4973,""KRN"",.402,""NM"",""B"",""PRCHLINE    FILE #443.6"",6)"
^XMB(3.9,84,2,58,0)=""
^XMB(3.9,84,2,59,0)="""BLD"",4973,""KRN"",.402,""NM"",""B"",""PRCHQ RFQ REQUEST    FILE #444"",7)"
^XMB(3.9,84,2,60,0)=""
^XMB(3.9,84,2,61,0)="""BLD"",4973,""KRN"",.403,0)"
^XMB(3.9,84,2,62,0)=".403"
^XMB(3.9,84,2,63,0)="""BLD"",4973,""KRN"",.5,0)"
^XMB(3.9,84,2,64,0)=".5"
^XMB(3.9,84,2,65,0)="""BLD"",4973,""KRN"",.84,0)"
^XMB(3.9,84,2,66,0)=".84"
^XMB(3.9,84,2,67,0)="""BLD"",4973,""KRN"",3.6,0)"
^XMB(3.9,84,2,68,0)="3.6"
^XMB(3.9,84,2,69,0)="""BLD"",4973,""KRN"",3.8,0)"
^XMB(3.9,84,2,70,0)="3.8"
^XMB(3.9,84,2,71,0)="""BLD"",4973,""KRN"",9.2,0)"
^XMB(3.9,84,2,72,0)="9.2"
^XMB(3.9,84,2,73,0)="""BLD"",4973,""KRN"",9.8,0)"
^XMB(3.9,84,2,74,0)="9.8"
^XMB(3.9,84,2,75,0)="""BLD"",4973,""KRN"",9.8,""NM"",0)"
^XMB(3.9,84,2,76,0)="^9.68A^7^7"
^XMB(3.9,84,2,77,0)="""BLD"",4973,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,84,2,78,0)="PRCHAAC4^^0^B963460"
^XMB(3.9,84,2,79,0)="""BLD"",4973,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,84,2,80,0)="PRCHNPO1^^0^B54452339"
^XMB(3.9,84,2,81,0)="""BLD"",4973,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,84,2,82,0)="PRCHFPDE^^0^B31116983"
^XMB(3.9,84,2,83,0)="""BLD"",4973,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,84,2,84,0)="PRCHFPD2^^0^B14180601"
^XMB(3.9,84,2,85,0)="""BLD"",4973,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,84,2,86,0)="PRCHAMYB^^0^B25029264"
^XMB(3.9,84,2,87,0)="""BLD"",4973,""KRN"",9.8,""NM"",6,0)"
^XMB(3.9,84,2,88,0)="PRCHNPO7^^0^B63147574"
^XMB(3.9,84,2,89,0)="""BLD"",4973,""KRN"",9.8,""NM"",7,0)"
^XMB(3.9,84,2,90,0)="PRCHMA^^0^B77180458"
^XMB(3.9,84,2,91,0)="""BLD"",4973,""KRN"",9.8,""NM"",""B"",""PRCHAAC4"",1)"
^XMB(3.9,84,2,92,0)=""
^XMB(3.9,84,2,93,0)="""BLD"",4973,""KRN"",9.8,""NM"",""B"",""PRCHAMYB"",5)"
^XMB(3.9,84,2,94,0)=""
^XMB(3.9,84,2,95,0)="""BLD"",4973,""KRN"",9.8,""NM"",""B"",""PRCHFPD2"",4)"
^XMB(3.9,84,2,96,0)=""
^XMB(3.9,84,2,97,0)="""BLD"",4973,""KRN"",9.8,""NM"",""B"",""PRCHFPDE"",3)"
^XMB(3.9,84,2,98,0)=""
^XMB(3.9,84,2,99,0)="""BLD"",4973,""KRN"",9.8,""NM"",""B"",""PRCHMA"",7)"
^XMB(3.9,84,2,100,0)=""
^XMB(3.9,84,2,101,0)="""BLD"",4973,""KRN"",9.8,""NM"",""B"",""PRCHNPO1"",2)"
^XMB(3.9,84,2,102,0)=""
^XMB(3.9,84,2,103,0)="""BLD"",4973,""KRN"",9.8,""NM"",""B"",""PRCHNPO7"",6)"
^XMB(3.9,84,2,104,0)=""
^XMB(3.9,84,2,105,0)="""BLD"",4973,""KRN"",19,0)"
^XMB(3.9,84,2,106,0)="19"
^XMB(3.9,84,2,107,0)="""BLD"",4973,""KRN"",19.1,0)"
^XMB(3.9,84,2,108,0)="19.1"
^XMB(3.9,84,2,109,0)="""BLD"",4973,""KRN"",101,0)"
^XMB(3.9,84,2,110,0)="101"
^XMB(3.9,84,2,111,0)="""BLD"",4973,""KRN"",409.61,0)"
^XMB(3.9,84,2,112,0)="409.61"
^XMB(3.9,84,2,113,0)="""BLD"",4973,""KRN"",771,0)"
^XMB(3.9,84,2,114,0)="771"
^XMB(3.9,84,2,115,0)="""BLD"",4973,""KRN"",870,0)"
^XMB(3.9,84,2,116,0)="870"
^XMB(3.9,84,2,117,0)="""BLD"",4973,""KRN"",8989.51,0)"
^XMB(3.9,84,2,118,0)="8989.51"
^XMB(3.9,84,2,119,0)="""BLD"",4973,""KRN"",8989.52,0)"
^XMB(3.9,84,2,120,0)="8989.52"
^XMB(3.9,84,2,121,0)="""BLD"",4973,""KRN"",8994,0)"
^XMB(3.9,84,2,122,0)="8994"
^XMB(3.9,84,2,123,0)="""BLD"",4973,""KRN"",""B"",.4,.4)"
^XMB(3.9,84,2,124,0)=""
^XMB(3.9,84,2,125,0)="""BLD"",4973,""KRN"",""B"",.401,.401)"
^XMB(3.9,84,2,126,0)=""
^XMB(3.9,84,2,127,0)="""BLD"",4973,""KRN"",""B"",.402,.402)"
^XMB(3.9,84,2,128,0)=""
^XMB(3.9,84,2,129,0)="""BLD"",4973,""KRN"",""B"",.403,.403)"
^XMB(3.9,84,2,130,0)=""
^XMB(3.9,84,2,131,0)="""BLD"",4973,""KRN"",""B"",.5,.5)"
^XMB(3.9,84,2,132,0)=""
^XMB(3.9,84,2,133,0)="""BLD"",4973,""KRN"",""B"",.84,.84)"
^XMB(3.9,84,2,134,0)=""
^XMB(3.9,84,2,135,0)="""BLD"",4973,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,84,2,136,0)=""
^XMB(3.9,84,2,137,0)="""BLD"",4973,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,84,2,138,0)=""
^XMB(3.9,84,2,139,0)="""BLD"",4973,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,84,2,140,0)=""
^XMB(3.9,84,2,141,0)="""BLD"",4973,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,84,2,142,0)=""
^XMB(3.9,84,2,143,0)="""BLD"",4973,""KRN"",""B"",19,19)"
^XMB(3.9,84,2,144,0)=""
^XMB(3.9,84,2,145,0)="""BLD"",4973,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,84,2,146,0)=""
^XMB(3.9,84,2,147,0)="""BLD"",4973,""KRN"",""B"",101,101)"
^XMB(3.9,84,2,148,0)=""
^XMB(3.9,84,2,149,0)="""BLD"",4973,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,84,2,150,0)=""
^XMB(3.9,84,2,151,0)="""BLD"",4973,""KRN"",""B"",771,771)"
^XMB(3.9,84,2,152,0)=""
^XMB(3.9,84,2,153,0)="""BLD"",4973,""KRN"",""B"",870,870)"
^XMB(3.9,84,2,154,0)=""
^XMB(3.9,84,2,155,0)="""BLD"",4973,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,84,2,156,0)=""
^XMB(3.9,84,2,157,0)="""BLD"",4973,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,84,2,158,0)=""
^XMB(3.9,84,2,159,0)="""BLD"",4973,""KRN"",""B"",8994,8994)"
^XMB(3.9,84,2,160,0)=""
^XMB(3.9,84,2,161,0)="""BLD"",4973,""QUES"",0)"
^XMB(3.9,84,2,162,0)="^9.62^^"
^XMB(3.9,84,2,163,0)="""BLD"",4973,""REQB"",0)"
^XMB(3.9,84,2,164,0)="^9.611^^"
^XMB(3.9,84,2,165,0)="""KRN"",.402,2456,-1)"
^XMB(3.9,84,2,166,0)="0^8"
^XMB(3.9,84,2,167,0)="""KRN"",.402,2456,0)"
^XMB(3.9,84,2,168,0)="PRCH2138^3060705.0821^^442^^^3060705"
^XMB(3.9,84,2,169,0)="""KRN"",.402,2456,""DIAB"",1,0,442,11)"
^XMB(3.9,84,2,170,0)="VENDOR:"
^XMB(3.9,84,2,171,0)="""KRN"",.402,2456,""DIAB"",1,1,442.01,22)"
^XMB(3.9,84,2,172,0)="PURCHASE ORDER NUMBER:DELIVERY SCHEDULE (ORDER):"
^XMB(3.9,84,2,173,0)="""KRN"",.402,2456,""DIAB"",1,1,442.12,0)"
^XMB(3.9,84,2,174,0)="ALL"
^XMB(3.9,84,2,175,0)="""KRN"",.402,2456,""DIAB"",2,0,442,4)"
^XMB(3.9,84,2,176,0)="SUBSTATION;REQ"
^XMB(3.9,84,2,177,0)="""KRN"",.402,2456,""DIAB"",7,1,442.01,9)"
^XMB(3.9,84,2,178,0)="FEDERAL SUPPLY CLASSIFICATION;T"
^XMB(3.9,84,2,179,0)="""KRN"",.402,2456,""DR"",1,442)"
^XMB(3.9,84,2,180,0)="Q:'$D(PRC(""SITE""));S (PRCHN(""SVC""),PRCHN(""CC""),PRCHN(""SC""),PRCHN(""INV""))="""";S PRCHN(""SFC"")=+$P(^PRC(442,DA,0),U,19);S PRCHN(""FOB"")=$S($D(^(1)):$P(^(1),U,6),1:"""");S PRCHN(12)=$S($D(^PRC(442,DA,12)):^(12),1:"""");"
^XMB(3.9,84,2,181,0)="""KRN"",.402,2456,""DR"",1,442,1)"
^XMB(3.9,84,2,182,0)="S PRCHNVF="""",PRCHPONO=$P(^PRC(442,DA,0),U,1),PRCHSTN=$P(PRCHPONO,""-"") S PRCHIEN=DA;S PRCX=$O(^PRC(411,PRC(""SITE""),1,0)) S:$G(PRCX)]"""" PRCY=$P($G(^PRC(411,PRC(""SITE""),1,PRCX,0)),U) K PRCX;D EN2^PRCHNPO6;"
^XMB(3.9,84,2,183,0)="""KRN"",.402,2456,""DR"",1,442,2)"
^XMB(3.9,84,2,184,0)="S PRCHDUZ=$P(^VA(200,DUZ,0),U,1);S PRCHN(""MP"")=$S($D(^PRCD(442.5,+$P(^PRC(442,DA,0),U,2),0)):$P(^(0),U,3),1:"""");S PRCHN(""INV"")=$S(PRCHN(""MP"")=2:""FISCAL"",PRCHN(""MP"")=12:"""",PRCHN(""INV"")'="""":PRCHN(""INV""),1:""FMS"");"
^XMB(3.9,84,2,185,0)="""KRN"",.402,2456,""DR"",1,442,3)"
^XMB(3.9,84,2,186,0)="S PRCHCTPO=$S(PRCHN(""MP"")=2:""Y"",1:""N"");S X=$P($G(^PRC(442,DA,1)),U) I X>0,$P($G(^PRC(440,X,3)),U,2)=""Y"" S PRCHEDI="""";I '$D(^PRC(411,""UP"",PRC(""SITE""))) S Y=.1;S OSUB=$P($G(^PRC(442,DA,23)),U,7);"
^XMB(3.9,84,2,187,0)="""KRN"",.402,2456,""DR"",1,442,4)"
^XMB(3.9,84,2,188,0)="I $D(^PRCS(410,+$P(^PRC(442,DA,0),""^"",12),0)) S X=$P($G(^(0)),U,10) I +X=OSUB W !,""SUBSTATION: "",$P(^PRC(411,$P(^PRC(442,DA,23),U,7),0),U) S Y=.1;31R~;"
^XMB(3.9,84,2,189,0)="""KRN"",.402,2456,""DR"",1,442,5)"
^XMB(3.9,84,2,190,0)="I $D(^PRCS(410,+$P(^PRC(442,DA,0),""^"",12),0)),X'=OSUB W !,?5,""Sub-station cannot be changed because the attached 2237"",!,?5,""would then have a different sub-station."",!;"
^XMB(3.9,84,2,191,0)="""KRN"",.402,2456,""DR"",1,442,6)"
^XMB(3.9,84,2,192,0)="S PRCX=$O(^PRC(411,X,1,0)) S:$G(PRCX)]"""" PRCY=$P($G(^PRC(411,X,1,PRCX,0)),U) K PRCX;Q;.1//TODAY;.02//^S X=""INVOICE/RECEIVING REPORT"";"
^XMB(3.9,84,2,193,0)="""KRN"",.402,2456,""DR"",1,442,7)"
^XMB(3.9,84,2,194,0)="S PRCHN(""MP"")=$S($D(^PRCD(442.5,+X,0)):$P(^(0),U,3),1:""""),PRCHN(""INV"")=$S(PRCHN(""MP"")=2:""FISCAL"",PRCHN(""MP"")=12:"""",PRCHN(""INV"")]"""":PRCHN(""INV""),1:""FMS"");S:PRCHN(""MP"")'=25 Y=.08;D LOOK^PRCSPC;I (X="""")!(X[""^"") S ERRFLG=38,Y=0;"
^XMB(3.9,84,2,195,0)="""KRN"",.402,2456,""DR"",1,442,8)"
^XMB(3.9,84,2,196,0)="I $G(PRCHXXX)="""" S ERRFLG=38,Y=0;46////^S X=$G(PRCHXXX);56////^S X=DUZ;I PRCHXXX]"""" S PRCPO=^PRC(440.5,PRCHXXX,0),PRCHHLDR=$P(PRCPO,U,8);61////^S X=PRCHHLDR;K PRCPO,PRCHHLDR,PRCHXXX;"
^XMB(3.9,84,2,197,0)="""KRN"",.402,2456,""DR"",1,442,9)"
^XMB(3.9,84,2,198,0)=".08//^S X=$S(PRCHN(""MP"")=2:""Y"",PRCHN(""MP"")=12:""Y"",1:""N"");.04//^S X=PRCHN(""INV"");5;I $P(PRCHNVF,""^"",3)=1 S Y=""@20"";S PRCHOV3=$G(^PRC(440,+^PRC(442,D0,1),3)) S:$P(PRCHOV3,""^"",12)=""P"" Y=""@20"";S:$P(PRCHOV3,""^"",6)=""N"" Y=""@20"";"
^XMB(3.9,84,2,199,0)="""KRN"",.402,2456,""DR"",1,442,10)"
^XMB(3.9,84,2,200,0)="S FLAG=0 I $P(PRCHOV3,""^"",4)]""""!(($P(PRCHOV3,""^"",9)]"""")&($P(PRCHOV3,""^"",8)]"""")) S FLAG=1;D EN9^PRCHNPO7;W:0 ""The jump Y=@20 is set in routine EN9^PRCHNPO7"";"
^XMB(3.9,84,2,201,0)="""KRN"",.402,2456,""DR"",1,442,11)"
^XMB(3.9,84,2,202,0)="^440^PRC(440,^^S I(0,0)=D0 S Y(1)=$S($D(^PRC(442,D0,1)):^(1),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");@20;I '$D(PRCHEDI) S:$D(^PRC(442,DA,12)) $P(^(12),U,13,14)=""^"" S Y=""@10"";18.6//^S X=""N"";"
^XMB(3.9,84,2,203,0)="""KRN"",.402,2456,""DR"",1,442,12)"
^XMB(3.9,84,2,204,0)="I X'=""Y"" S:$D(^PRC(442,DA,12)) $P(^(12),U,14)="""" S Y=""@10"";18.7;@10;8//^S X=PRCHN(""SC"");I ""29""'[X K:0 DIC(""DR"") D ^PRCHNPO3 S Y=""@1"";.25;D ^PRCHNPO3;@1;"
^XMB(3.9,84,2,205,0)="""KRN"",.402,2456,""DR"",1,442,13)"
^XMB(3.9,84,2,206,0)="I $D(^PRCS(410,+$P(^PRC(442,DA,0),""^"",12),0)) S X=$P($P(^(0),U,1),""-"",4) I +X=+$P(^PRC(442,DA,0),U,3) W !,""FCP: "",$P(^(0),U,3) S Y=""@2"";1;S PRCHN(""SFC"")=$P(^PRC(442,DA,0),U,19);@2;"
^XMB(3.9,84,2,207,0)="""KRN"",.402,2456,""DR"",1,442,14)"
^XMB(3.9,84,2,208,0)="I $G(PRC(""BBFY""))="""" S PRC(""BBFY"")=$$BBFY^PRCSUT(PRC(""SITE""),PRC(""FY""),$P(^PRC(442,DA,0),U,3));26///^S X=PRC(""BBFY"");D EN2^PRCHNPO3;2//^S X=PRCHN(""CC"");@88;5.2//^S X=PRCHN(""SVC"");I $P(^PRC(442,DA,0),U,2)=25 S Y=""@89"";S Y=""@90"";@89;"
^XMB(3.9,84,2,209,0)="""KRN"",.402,2456,""DR"",1,442,15)"
^XMB(3.9,84,2,210,0)="54;@90;S:PRCHN(""MP"")=2 Y=""@3"" I $D(^PRC(442,DA,1)),$P(^(1),U,18)]"""" S Y=""@3"";.3//^S X=""E"";@3;S:PRCHN(""MP"")=4 Y=5.3;"
^XMB(3.9,84,2,211,0)="""KRN"",.402,2456,""DR"",1,442,16)"
^XMB(3.9,84,2,212,0)="I '$P(^PRC(442,DA,0),U,19)&(PRCHN(""MP"")'=2) W !,""Enter the word 'PATIENT' in the 'DELIVERY LOCATION' field for a direct delivery"",!,""to a patient."";5.6;"
^XMB(3.9,84,2,213,0)="""KRN"",.402,2456,""DR"",1,442,17)"
^XMB(3.9,84,2,214,0)="I X=""PATIENT"",$P(^PRC(442,DA,0),U,19) I $P(^(0),U,19)!(PRCHN(""MP"")=2) W *7,!,""  PATIENT DELIVERY not valid for this type of order!"" S Y=5.6;I X=""PATIENT"" W ""   Direct Delivery to Patient"" S Y=5.3;5.4//^S X=$G(PRCY);"
^XMB(3.9,84,2,215,0)="""KRN"",.402,2456,""DR"",1,442,18)"
^XMB(3.9,84,2,216,0)="I $P(^PRC(442,DA,1),U,12)'="""" W *7,!,""Delete the Direct Delivery patient name if you wish the 'Ship to' address"",!,""to print on the P.O."",!;S:(PRCHN(""MP"")'=4)&($P(^(1),U,12)="""") Y=6;5.3;K DIC(""DR"");6//NO;S:X'=""Y"" Y=6.4;6.2;"
^XMB(3.9,84,2,217,0)="""KRN"",.402,2456,""DR"",1,442,19)"
^XMB(3.9,84,2,218,0)="6.4//DESTINATION;S PRCHN(""FOB"")=X;Q;7//TODAY+10;8.2//^S X=""N/A"";8.3;13;S PRCHSHP=+X;S:X']"""" Y=""@99"";I $P(^PRC(442,DA,0),U,19)'=2 S Y=""@98"";S PRCHSBOC=$P($G(^PRCD(420.2,2299,0)),U);13.05////^S X=PRCHSBOC;S Y=""@100"";@98;13.05;@100;"
^XMB(3.9,84,2,219,0)="""KRN"",.402,2456,""DR"",1,442,20)"
^XMB(3.9,84,2,220,0)="S:'$D(PRCHSHP) PRCHSHP=$P(^PRC(442,DA,0),U,13) I '(PRCHN(""FOB"")=""O""&((PRCHSHP>250)!(PRCHSHP=0))) S Y=""@99"";13.2;13.4;13.3;@99;97//^S X=""A"";16//^S X=$S($D(PRCHDUZ):PRCHDUZ,1:"""");"
^XMB(3.9,84,2,221,0)="""KRN"",.402,2456,""DR"",1,442,21)"
^XMB(3.9,84,2,222,0)="S PRCHDUZ1=X I $P(^PRC(442,DA,0),U,2)=25,'$D(^PRC(440.5,""H"",X)) W *7,!,""This user is not a purchase card user."" S Y=16;K PRCHDUZ,PRCHDUZ1;40;24;20;501//^S X=$G(PRCHCTPO);K PRCHANS,PRCHTPO,PRCHSEEN,PRCHMORE,PRCHQTY,PRCSAVE;"
^XMB(3.9,84,2,223,0)="""KRN"",.402,2456,""DR"",2,440)"
^XMB(3.9,84,2,224,0)="I FLAG S Y=17.3;38;I X]"""" S Y=39;W !!,""This VENDOR needs a TAX IDENTIFICATION NUMBER or a SOCIAL SECURITY NUMBER."",!,""Please enter one if you have it or get one from the VENDOR."",!;39;I X]"""" S Y=17.3;"
^XMB(3.9,84,2,225,0)="""KRN"",.402,2456,""DR"",2,440,1)"
^XMB(3.9,84,2,226,0)="W !!,""Please tell me whether the TAX ID/SSN field is a TAX NUMBER or a SSN NUMBER."",!;17.3;17.4;17.7;17.8;17.9;I $P(PRCHOV3,U,11)]"""" S Y=""@10"";41;@10;I $P(PRCHOV3,U,14)]"""" S Y=""@11"";44;@11;I $P(PRCHOV3,U,13)]"""" S Y="""";"
^XMB(3.9,84,2,227,0)="""KRN"",.402,2456,""DR"",2,442.01)"
^XMB(3.9,84,2,228,0)="S PRCHREC=DA,PRCHQUAN="""",Z="""",PRCHTOT=0;S PRCHINUM=DA;.01;K PRCSAVE;S PRCHOLD=$P($G(^PRC(442,PRCHIEN,2,PRCHINUM,0)),U,2);1.5;I X=""""&($L($P($G(^PRC(442,DA(1),2,DA,2)),U,3))=4) S PRCSAVE=""G"",Y=""@101"";"
^XMB(3.9,84,2,229,0)="""KRN"",.402,2456,""DR"",2,442.01,1)"
^XMB(3.9,84,2,230,0)="I X=""""&($L($P($G(^PRC(442,DA(1),2,DA,2)),U,3))=5) S PRCSAVE=""S"",Y=""@101"";I X=""""&($G(PRCSAVE)="""") D ^PRCHAAC4 I $D(PRCHANS) S PRCSAVE=PRCHANS;@101;I $G(PRCSAVE)=""^"" K PRCHANS,PRCSAVE S Y=0;1;"
^XMB(3.9,84,2,231,0)="""KRN"",.402,2456,""DR"",2,442.01,2)"
^XMB(3.9,84,2,232,0)="I '$D(^PRC(442,DA(1),2,DA,1)) W $C(7),!,""Description is Required!!"" S Y=1;I $D(^PRC(442,DA(1),1)) S Z=$S($D(^PRC(441,+$P(^PRC(442,DA(1),2,DA,0),U,5),2,+^PRC(442,DA(1),1),0)):^(0),1:"""");"
^XMB(3.9,84,2,233,0)="""KRN"",.402,2456,""DR"",2,442.01,3)"
^XMB(3.9,84,2,234,0)="I Z'="""" W:$P(Z,U,12)'="""" !,""    Minimum Order Qty.: "",$P(Z,U,12) W:$P(Z,U,9) !,""    Maximum Order Qty.: "",$P(Z,U,9) W:$P(Z,U,11) !,""    Required Order Multiple: "",$P(Z,U,11) S PRCHQUAN=Z K Z;"
^XMB(3.9,84,2,235,0)="""KRN"",.402,2456,""DR"",2,442.01,4)"
^XMB(3.9,84,2,236,0)="2//^S X=$S($P(PRCHQUAN,U,12)'="""":$P(PRCHQUAN,U,12),$P(PRCHQUAN,U,11)'="""":$P(PRCHQUAN,U,11),1:"""");I X<PRCHOLD N I F I=0:0 S I=$O(^PRC(442.8,""AC"",PRCHPONO,PRCHINUM,I)) Q:'I  S PRCHTOT=PRCHTOT+$P($G(^PRC(442.8,I,0)),U,5);"
^XMB(3.9,84,2,237,0)="""KRN"",.402,2456,""DR"",2,442.01,5)"
^XMB(3.9,84,2,238,0)="I $G(PRCHTOT)>X W !!!!!,$C(7),""****Delivery schedule total for this item ("",PRCHTOT,"") EXCEEDS order quantity ("",X,"")."",!,""Edit delivery schedule(s)."",!! S PRCHFLG=1,PRCHQTY=X S Y=""@16"";@44;"
^XMB(3.9,84,2,239,0)="""KRN"",.402,2456,""DR"",2,442.01,6)"
^XMB(3.9,84,2,240,0)="I $P(PRCHQUAN,U,12)'="""" I X<$P(PRCHQUAN,U,12) W !,""QUANTITY is less than the Minimum Order Quantity of "",$P(PRCHQUAN,U,12),$C(7) S Y=2;"
^XMB(3.9,84,2,241,0)="""KRN"",.402,2456,""DR"",2,442.01,7)"
^XMB(3.9,84,2,242,0)="I $P(PRCHQUAN,U,9)'="""" I X>$P(PRCHQUAN,U,9) W !,""QUANTITY is more than the Maximum Order Quantity of "",$P(PRCHQUAN,U,9),$C(7) S Y=2;"
^XMB(3.9,84,2,243,0)="""KRN"",.402,2456,""DR"",2,442.01,8)"
^XMB(3.9,84,2,244,0)="I $P(PRCHQUAN,U,11)'="""" I X#$P(PRCHQUAN,U,11)'=0 W !,""QUANTITY is not a Required Order Multiple value of "",$P(PRCHQUAN,U,11),$C(7) S Y=2;3;5;I $D(^PRC(442,DA(1),1)),$P(^(1),U,20)=""Y"" S Y=""@6"";D TSTREQ1^PRCHNPO9;3.1;9.4;S:X']"""" Y=9;"
^XMB(3.9,84,2,245,0)="""KRN"",.402,2456,""DR"",2,442.01,9)"
^XMB(3.9,84,2,246,0)="S DIE(""NO^"")=""A"";9.7;K DIE(""NO^"");9;9.5;@6;8T~;I $G(PRCSAVE)'=""^"" D EN10^PRCHNPO7;"
^XMB(3.9,84,2,247,0)="""KRN"",.402,2456,""DR"",2,442.01,10)"
^XMB(3.9,84,2,248,0)="S PRCHFCP=+$P(^PRC(442,DA(1),0),U,3),PRCHN(""COM"")=$S($D(^PRC(441.2,+X,0)):$P(^(0),U,4),1:"""") S:$E($P($G(^PRC(420,PRCHSTN,1,PRCHFCP,0)),U,18),1,2)=11 Y=41 S:(PRCHN(""COM"")'=1)&($E($P($G(^(0)),U,18),1,2)'=11) Y=4;S:PRCHN(""MP"")=2 Y=4;"
^XMB(3.9,84,2,249,0)="""KRN"",.402,2456,""DR"",2,442.01,11)"
^XMB(3.9,84,2,250,0)="9.3;D TSTREQ2^PRCHNPO9;40;S Y=4;41//^S Z=$S($D(^PRC(441,+$P(^PRC(442,DA(1),2,DA,0),U,5),3)):^(3),1:""""),X=$P(Z,U,7);42;4;I PRCHN(""SFC"")=2 S $P(^PRC(442,DA(1),2,DA,0),U,4)=$$SUPBOC^PRCHNPO7(-1) S Y=""@87"";"
^XMB(3.9,84,2,251,0)="""KRN"",.402,2456,""DR"",2,442.01,12)"
^XMB(3.9,84,2,252,0)="3.5//^S X=$$SUPBOC^PRCHNPO7(-1);@87;S:'$D(PRCHEDI) Y=""@5"";36.3;36.6;@5;S PRCHTOT=0,PRCHSCN="""" F I=0:0 S PRCHSCN=$O(^PRC(442.8,""B"",PRCHPONO,PRCHSCN)) Q:PRCHSCN=""""  I $P(^PRC(442.8,PRCHSCN,0),U,2)=DA S PRCHTOT=PRCHTOT+$P(^(0),U,5);"
^XMB(3.9,84,2,253,0)="""KRN"",.402,2456,""DR"",2,442.01,13)"
^XMB(3.9,84,2,254,0)="S PRCHQTY=$P(^PRC(442,DA(1),2,DA,0),U,2);I PRCHTOT>PRCHQTY S PRCHDA1=DA(1),PRCHDA=DA,PRCHLINO=$P(^PRC(442,DA(1),2,PRCHREC,0),U) W !,""Line Item # = "",PRCHLINO,!,""Quantity Ordered: ""_$P(^PRC(442,DA(1),2,PRCHREC,0),U,2),! S Y=""@555"";"
^XMB(3.9,84,2,255,0)="""KRN"",.402,2456,""DR"",2,442.01,14)"
^XMB(3.9,84,2,256,0)="W !!,""Enter/Edit Delivery Schedule for this Item?  NO// "" R X:DTIME S:'$T X=""^"" S:X="""" X=""N"" S:X[""?"" Y=""@5"" S:""Yy?""'[$E(X) Y=""@56"" W ""  ""_$S(""Yy""[$E(X):""(YES)"",""Nn""[$E(X):""(NO)"",1:"""");@16;"
^XMB(3.9,84,2,257,0)="""KRN"",.402,2456,""DR"",2,442.01,15)"
^XMB(3.9,84,2,258,0)="S PRCHDA1=DA(1),PRCHDA=DA,PRCHLINO=$P(^PRC(442,DA(1),2,PRCHREC,0),U) W !,""Line Item #="",PRCHLINO,!,""Quantity Ordered: ""_$P(^PRC(442,DA(1),2,PRCHREC,0),U,2),!;"
^XMB(3.9,84,2,259,0)="""KRN"",.402,2456,""DR"",2,442.01,16)"
^XMB(3.9,84,2,260,0)="I PRCHTOT=PRCHQTY W !,""Delivery schedule quantity of "",PRCHTOT,"" equals order quantity of "",PRCHQTY,""."",!,""You may edit delivery schedule(s), but cannot add a new schedule."",!;@555;"
^XMB(3.9,84,2,261,0)="""KRN"",.402,2456,""DR"",2,442.01,17)"
^XMB(3.9,84,2,262,0)="I PRCHTOT>PRCHQTY W !,""Delivery schedule quantity of "",PRCHTOT,"" EXCEEDS order quantity of "",PRCHQTY,"".  You must edit"",!,""one or more schedules so that the total equals no more than "",PRCHQTY,""."",!! S Y=""@55"";"
^XMB(3.9,84,2,263,0)="""KRN"",.402,2456,""DR"",2,442.01,18)"
^XMB(3.9,84,2,264,0)="S:$D(PRCHSEEN) Y=""@55"";S PRCHSEEN=1 W !!,""To delete a schedule, zero out the quantity to be delivered. To add a new"",!,""delivery schedule do the following:"",!!;"
^XMB(3.9,84,2,265,0)="""KRN"",.402,2456,""DR"",2,442.01,19)"
^XMB(3.9,84,2,266,0)="W ""a. If there is no delivery schedule already in file answer 'Yes' when asked if     you are adding a new delivery schedule."";"
^XMB(3.9,84,2,267,0)="""KRN"",.402,2456,""DR"",2,442.01,20)"
^XMB(3.9,84,2,268,0)="W !,""b. If there is only one delivery schedule already in the file you will see         'OK? YES//' answer 'No' and then answer 'Yes' when asked if you are adding a    new delivery schedule."";"
^XMB(3.9,84,2,269,0)="""KRN"",.402,2456,""DR"",2,442.01,21)"
^XMB(3.9,84,2,270,0)="W !,""c. If there is more than one delivery schedule in the file, hit <return> key at    'CHOOSE' prompt and answer 'Yes' when asked if you are adding a new delivery    schedule."",!!;@55;"
^XMB(3.9,84,2,271,0)="""KRN"",.402,2456,""DR"",2,442.01,22)"
^XMB(3.9,84,2,272,0)="^442.8^PRC(442.8,^^X DR(99,1,9.2) S Y(101)=$S($D(^PRC(442.8,D0,0)):^(0),1:"""") S X=$P(Y(101),U,1),Y(102)=$G(X) S X=$P(Y(101),U,1) S D0=I(0,0) S D1=I(1,0) S X=$S(D(0)>0:D(0),1:"""");"
^XMB(3.9,84,2,273,0)="""KRN"",.402,2456,""DR"",2,442.01,23)"
^XMB(3.9,84,2,274,0)="S:$G(PRCHDA) PRCHINUM=PRCHDA S PRCHQTY=$P(^PRC(442,PRCHIEN,2,PRCHINUM,0),U,2);"
^XMB(3.9,84,2,275,0)="""KRN"",.402,2456,""DR"",2,442.01,24)"
^XMB(3.9,84,2,276,0)="I $G(PRCHFLG),PRCHTOT>PRCHQTY W !!,""Delivery schedule total of "",PRCHTOT,"" EXCEEDS ordered quantity."",!,""of "",PRCHQTY,"".  Adjust delivery schedule(s)."",!! S Y=""@16"";"
^XMB(3.9,84,2,277,0)="""KRN"",.402,2456,""DR"",2,442.01,25)"
^XMB(3.9,84,2,278,0)="I $G(PRCHFLG) S PRCHFLG=0 W !!!!,""****Returning to Item Multiple edit session."",!! S Y=""@44"";I PRCHTOT>PRCHQTY S Y=""@555"";"
^XMB(3.9,84,2,279,0)="""KRN"",.402,2456,""DR"",2,442.01,26)"
^XMB(3.9,84,2,280,0)="W !!,""Enter/Edit Another Delivery Schedule for this Item? NO// "" R X:DTIME S:'$T X=""^"" S:X="""" X=""N"" S:X[""?"" Y=""@5"" S:""Yy?""[$E(X) Y=""@16"";@56;K DIE(""NO^""),PRCHTOT,PRCHSCN,PRCHSEEN;"
^XMB(3.9,84,2,281,0)="""KRN"",.402,2456,""DR"",2,442.12)"
^XMB(3.9,84,2,282,0)=".01"
^XMB(3.9,84,2,283,0)="""KRN"",.402,2456,""DR"",2,442.15)"
^XMB(3.9,84,2,284,0)=".01;"
^XMB(3.9,84,2,285,0)="""KRN"",.402,2456,""DR"",3,442.8)"
^XMB(3.9,84,2,286,0)="1///^S X=PRCHDA;S DIE(""NO^"")="""";2;3;@6;4;K DIE(""NO^"");S PRCHTOT=0,PRCHSCN="""" F I=0:0 S PRCHSCN=$O(^PRC(442.8,""B"",PRCHPONO,PRCHSCN)) Q:PRCHSCN=""""  I $P(^PRC(442.8,PRCHSCN,0),U,2)=PRCHDA S PRCHTOT=PRCHTOT+$P(^(0),U,5);"
^XMB(3.9,84,2,287,0)="""KRN"",.402,2456,""DR"",3,442.8,1)"
^XMB(3.9,84,2,288,0)="S PRCHQTY=$P(^PRC(442,PRCHIEN,2,PRCHDA,0),U,2);S PRCHMORE=$P(^PRC(442.8,DA,0),U,5),PRCHMOR2=(PRCHQTY-PRCHTOT+PRCHMORE);"
^XMB(3.9,84,2,289,0)="""KRN"",.402,2456,""DR"",3,442.8,2)"
^XMB(3.9,84,2,290,0)="I PRCHTOT>PRCHQTY I PRCHMORE'=0 W *7,!,""Del. sched. total of "",PRCHTOT,"" for item "",PRCHDA,"" EXCEEDS the purchase"",!,""order quantity of "",PRCHQTY,""."",!,""Max. quantity here is "",$S(PRCHMOR2>0:PRCHMOR2,1:0),""."",!! S Y=""@6"";"
^XMB(3.9,84,2,291,0)="""KRN"",.402,2456,""DR"",3,442.8,3)"
^XMB(3.9,84,2,292,0)="I PRCHTOT<PRCHQTY W !,""Delivery schedule total of "",PRCHTOT,"" for item "",PRCHDA,"" is less than purchase"",!,""order quantity."",!!;I X>0 S Y=""@445"";W *7,!,""Delivery Schedule DELETED"",!;.01////@;@445;"
^XMB(3.9,84,2,293,0)="""KRN"",.402,2456,""DR"",99,1,9.2)"
^XMB(3.9,84,2,294,0)="S I(1,0)=$G(D1),I(0,0)=$G(D0),Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1) K DIC S DIC=""^PRC(442.8,"",DIC(0)=""MFLE"" D ^DIC S (D,D0,D(0))=+Y"
^XMB(3.9,84,2,295,0)="""KRN"",.402,2647,-1)"
^XMB(3.9,84,2,296,0)="0^6"
^XMB(3.9,84,2,297,0)="""KRN"",.402,2647,0)"
^XMB(3.9,84,2,298,0)="PRCHLINE^3060630.1115^^443.6^^^3060705"
^XMB(3.9,84,2,299,0)="""KRN"",.402,2647,""DIAB"",1,1,443.61,24)"
^XMB(3.9,84,2,300,0)="PURCHASE ORDER NUMBER:AMENDMENTS TO DELIVERY SCHEDULES:"
^XMB(3.9,84,2,301,0)="""KRN"",.402,2647,""DIAB"",14,1,443.61,9)"
^XMB(3.9,84,2,302,0)="FEDERAL SUPPLY CLASSIFICATION;T"
^XMB(3.9,84,2,303,0)="""KRN"",.402,2647,""DR"",1,443.6)"
^XMB(3.9,84,2,304,0)="S PRCHPONO=$P(^PRC(443.6,PRCHPO,0),U);40///^S X=PRCHI1;K DIE(""NO^""),PRCHSEEN,PRCHMORE,PRCHQTY,PRCHTOT,PRCHSCN,PRCHDSCH,PRCHDSFL,PRCHANS,PRCSAVE;"
^XMB(3.9,84,2,305,0)="""KRN"",.402,2647,""DR"",2,443.61)"
^XMB(3.9,84,2,306,0)="S (D0,PRCHIEN)=DA(1),PRCHINUM=DA,PRCHREC=DA;K PRCSAVE;1.5;I X=""""&($L($P($G(^PRC(443.6,DA(1),2,DA,2)),U,3))=4) S PRCSAVE=""G"",Y=""@101"";I X=""""&($L($P($G(^PRC(443.6,DA(1),2,DA,2)),U,3))=5) S PRCSAVE=""S"",Y=""@101"";"
^XMB(3.9,84,2,307,0)="""KRN"",.402,2647,""DR"",2,443.61,1)"
^XMB(3.9,84,2,308,0)="I X=""""&($G(PRCSAVE)="""") D ^PRCHAAC4 I $D(PRCHANS) S PRCSAVE=PRCHANS;@101;I $G(PRCSAVE)=""^"" K PRCHANS,PRCSAVE S Y=0;1;I '$D(^PRC(443.6,DA(1),2,DA,1)) W $C(7),?3,!,""Description is Required!!"" S Y=1;"
^XMB(3.9,84,2,309,0)="""KRN"",.402,2647,""DR"",2,443.61,2)"
^XMB(3.9,84,2,310,0)="S PRCHOLD=$P($G(^PRC(443.6,PRCHIEN,2,PRCHINUM,0)),U,2);S (PRCHQUAN,PRCHZ)="""" I $D(^PRC(443.6,DA(1),1)) S PRCHZ=$S($D(^PRC(441,+$P(^PRC(443.6,DA(1),2,DA,0),U,5),2,+^PRC(443.6,DA(1),1),0)):^(0),1:"""");"
^XMB(3.9,84,2,311,0)="""KRN"",.402,2647,""DR"",2,443.61,3)"
^XMB(3.9,84,2,312,0)="I PRCHZ'="""" W:$P(PRCHZ,U,12)'="""" !,*7,""    Minimum Order Qty.: "",$P(PRCHZ,U,12) W:$P(PRCHZ,U,9) !,*7,""    Maximum Order Qty.: "",$P(PRCHZ,U,9) W:$P(PRCHZ,U,11) !,*7,""    Required Order Multiple: "",$P(PRCHZ,U,11) S PRCHQUAN=PRCHZ;"
^XMB(3.9,84,2,313,0)="""KRN"",.402,2647,""DR"",2,443.61,4)"
^XMB(3.9,84,2,314,0)="S PRCHQPR=$P($G(^PRC(443.6,DA(1),2,DA,2)),U,8);@2;2//^S X=$S($P(PRCHQUAN,U,12)'="""":$P(PRCHQUAN,U,12),$P(PRCHQUAN,U,11)'="""":$P(PRCHQUAN,U,11),1:"""");S PRCHQTY=X,PRCHDSFL=0;"
^XMB(3.9,84,2,315,0)="""KRN"",.402,2647,""DR"",2,443.61,5)"
^XMB(3.9,84,2,316,0)="I PRCHQTY<$G(PRCHOLD) N I F I=0:0 S I=$O(^PRC(441.7,""AG"",PRCHPONO,PRCHINUM,I)) Q:'I  S PRCHTOT=$G(PRCHTOT)+$P($G(^PRC(441.7,I,0)),U,5) I 'PRCHDSFL S PRCHDSFL=1;"
^XMB(3.9,84,2,317,0)="""KRN"",.402,2647,""DR"",2,443.61,6)"
^XMB(3.9,84,2,318,0)="I $G(PRCHTOT)>PRCHQTY,PRCHDSFL W !!!,$C(7),""****Delivery Schedule total for this item ("",PRCHTOT,"") EXCEEDS order quantity ("",PRCHQTY,"")."",!,""Edit delivery schedule(s) now."",! S PRCHFLG=1 S Y=""@16"";@44;S DA=PRCHINUM;"
^XMB(3.9,84,2,319,0)="""KRN"",.402,2647,""DR"",2,443.61,7)"
^XMB(3.9,84,2,320,0)="I PRCHQPR>0 I X<PRCHQPR W !,""QUANTITY is less than Quantity Previously Received."",$C(7) S Y=""@2"";I $P(PRCHQUAN,U,12)'="""" I X<$P(PRCHQUAN,U,12) W !,""QUANTITY is less than Minimum Order Quantity."",$C(7) S Y=""@2"";"
^XMB(3.9,84,2,321,0)="""KRN"",.402,2647,""DR"",2,443.61,8)"
^XMB(3.9,84,2,322,0)="I $P(PRCHQUAN,U,9)'="""" I X>$P(PRCHQUAN,U,9) W !,""QUANTITY is more than Maximum Order Quantity."",$C(7) S Y=""@2"";I $P(PRCHQUAN,U,11)'="""" I X#$P(PRCHQUAN,U,11)'=0 W !,""QUANTITY is not a Required Order Multiple value."",$C(7) S Y=""@2"";"
^XMB(3.9,84,2,323,0)="""KRN"",.402,2647,""DR"",2,443.61,9)"
^XMB(3.9,84,2,324,0)="3;5;I $D(^PRC(443.6,DA(1),1)),$P(^(1),U,20)=""Y"" S Y=""@66"";3.1;9.4;S:X']"""" Y=9;S DIE(""NO^"")=""A"";9.7;K DIE(""NO^"");9;9.5;@66;S PRCHN(""MP"")=$S($D(^PRCD(442.5,+$P(^PRC(443.6,DA(1),0),U,2),0)):$P(^(0),U,3),1:"""");8T~;"
^XMB(3.9,84,2,325,0)="""KRN"",.402,2647,""DR"",2,443.61,10)"
^XMB(3.9,84,2,326,0)="I $G(PRCSAVE)'=""^"" D EN100^PRCHNPO7;"
^XMB(3.9,84,2,327,0)="""KRN"",.402,2647,""DR"",2,443.61,11)"
^XMB(3.9,84,2,328,0)="S PRCHFCP=+$P(^PRC(443.6,DA(1),0),U,3),PRCHN(""COM"")=$S($D(^PRC(441.2,+X,0)):$P(^(0),U,4),1:"""") S:$E($P($G(^PRC(420,PRCHSTN,1,PRCHFCP,0)),U,18),1,2)=11 Y=41 S:(PRCHN(""COM"")'=1)&($E($P($G(^(0)),U,18),1,2)'=11) Y=4;"
^XMB(3.9,84,2,329,0)="""KRN"",.402,2647,""DR"",2,443.61,12)"
^XMB(3.9,84,2,330,0)="S:PRCHN(""MP"")=2 Y=4;9.3;40//^S X=""D"";S Y=""@4"";41//^S Z=$S($D(^PRC(441,+$P(^PRC(443.6,DA(1),2,DA,0),U,5),3)):^(3),1:""""),X=$P(Z,U,7);42;@4;4;S PRCHN(""SFC"")=+$P(^PRC(443.6,DA(1),0),U,19);"
^XMB(3.9,84,2,331,0)="""KRN"",.402,2647,""DR"",2,443.61,13)"
^XMB(3.9,84,2,332,0)="I PRCHN(""SFC"")=2 S $P(^PRC(443.6,DA(1),2,DA,0),U,4)=$$SUPBOC^PRCHMA0(-1) S Y=""@87"";3.5//^S X=$$SUPBOC^PRCHMA0(-1);@87;S:$G(PRCHEDI)']"""" Y=""@5"";36.3;36.6;@5;"
^XMB(3.9,84,2,333,0)="""KRN"",.402,2647,""DR"",2,443.61,14)"
^XMB(3.9,84,2,334,0)="S PRCHTOT=0,PRCHSCN="""" F I=0:0 S PRCHSCN=$O(^PRC(441.7,""B"",PRCHPONO,PRCHSCN)) Q:PRCHSCN=""""  I $P(^PRC(441.7,PRCHSCN,0),U,2)=PRCHINUM S PRCHTOT=PRCHTOT+$P(^(0),U,5);S PRCHQTY=$P(^PRC(443.6,PRCHIEN,2,PRCHINUM,0),U,2);"
^XMB(3.9,84,2,335,0)="""KRN"",.402,2647,""DR"",2,443.61,15)"
^XMB(3.9,84,2,336,0)="I PRCHTOT>PRCHQTY S PRCHDA1=DA(1),PRCHDA=DA,PRCHLINO=$P(^PRC(443.6,PRCHIEN,2,PRCHINUM,0),U) W !,""Line Item # = "",PRCHLINO,!,""Quantity Ordered: "",$P(^PRC(443.6,PRCHIEN,2,PRCHINUM,0),U,2),! S Y=""@555"";"
^XMB(3.9,84,2,337,0)="""KRN"",.402,2647,""DR"",2,443.61,16)"
^XMB(3.9,84,2,338,0)="W !!,""Enter/Edit Delivery Schedule for this Item?  NO// "" R XX:DTIME S:'$T XX=""^"" S:XX="""" XX=""N"" S:XX[""?"" Y=""@5"" S:""Yy?""'[$E(XX) Y="""" W ""  ""_$S(""Yy""[$E(XX):""(YES)"",""Nn""[$E(XX):""(NO)"",1:"""");@16;"
^XMB(3.9,84,2,339,0)="""KRN"",.402,2647,""DR"",2,443.61,17)"
^XMB(3.9,84,2,340,0)="S PRCHDA1=DA(1),PRCHDA=DA,PRCHLINO=$P(^PRC(443.6,PRCHIEN,2,PRCHINUM,0),U) W !,""Line Item # = "",PRCHLINO,!,""Quantity Ordered: "",$P(^PRC(443.6,PRCHIEN,2,PRCHINUM,0),U,2),!;"
^XMB(3.9,84,2,341,0)="""KRN"",.402,2647,""DR"",2,443.61,18)"
^XMB(3.9,84,2,342,0)="I PRCHTOT=PRCHQTY W !,""Delivery schedule quantity of "",PRCHTOT,"" equals order quantity of "",PRCHQTY,""."",!,""You may edit delivery schedule(s), but cannot add a new schedule."",!!;@555;"
^XMB(3.9,84,2,343,0)="""KRN"",.402,2647,""DR"",2,443.61,19)"
^XMB(3.9,84,2,344,0)="I PRCHTOT>PRCHQTY W !,""Delivery schedule quantity of "",PRCHTOT,"" EXCEEDS order quantity of "",PRCHQTY,"". You must edit"",!,""one or more schedules so that the total equals no more than "",PRCHQTY,""."",!! S Y=""@55"";"
^XMB(3.9,84,2,345,0)="""KRN"",.402,2647,""DR"",2,443.61,20)"
^XMB(3.9,84,2,346,0)="S:$D(PRCHSEEN) Y=""@55"";S PRCHSEEN=1 W !!,""To delete a schedule, zero out the quantity to be delivered. To add a new"",!,""delivery schedule do the following:"",!!;"
^XMB(3.9,84,2,347,0)="""KRN"",.402,2647,""DR"",2,443.61,21)"
^XMB(3.9,84,2,348,0)="W ""a. If there is no delivery schedule already in file answer 'Yes' when asked if     you are adding a new delivery schedule."";"
^XMB(3.9,84,2,349,0)="""KRN"",.402,2647,""DR"",2,443.61,22)"
^XMB(3.9,84,2,350,0)="W !,""b. If there is only one delivery schedule already in the file you will see         'OK? YES//' answer 'No' and then answer 'Yes' when asked if you are adding a    new delivery schedule."";"
^XMB(3.9,84,2,351,0)="""KRN"",.402,2647,""DR"",2,443.61,23)"
^XMB(3.9,84,2,352,0)="W !,""c. If there is more than one delivery schedule in the file, hit <return> key at    'CHOOSE' prompt and answer 'Yes' when asked if you are adding a new delivery    schedule."",!!;@55;"
^XMB(3.9,84,2,353,0)="""KRN"",.402,2647,""DR"",2,443.61,24)"
^XMB(3.9,84,2,354,0)="^441.7^PRC(441.7,^^X DR(99,1,9.2) S Y(101)=$S($D(^PRC(441.7,D0,0)):^(0),1:"""") S X=$P(Y(101),U,1) S D0=I(0,0) S D1=I(1,0) S X=$S(D(0)>0:D(0),1:"""");S PRCHNORE=1;S (DA,D1)=PRCHDA,(D0,DA(1))=PRCHDA1;"
^XMB(3.9,84,2,355,0)="""KRN"",.402,2647,""DR"",2,443.61,25)"
^XMB(3.9,84,2,356,0)="S PRCHQTY=$P(^PRC(443.6,PRCHIEN,2,PRCHINUM,0),U,2);I $G(PRCHTOT)>$G(PRCHQTY) W !!,""Delivery schedule total of "",PRCHTOT,"" EXCEEDS ordered quantity"",!,""of "",PRCHQTY,"".  Adjust delivery schedule(s)."",! S Y=""@16"";"
^XMB(3.9,84,2,357,0)="""KRN"",.402,2647,""DR"",2,443.61,26)"
^XMB(3.9,84,2,358,0)="I $G(PRCHFLG)=1 W !!!,""****Returning to Item Multiple session."",!! S Y=""@44"" S PRCHFLG=0;W !!,""Enter/Edit Another Delivery Schedule for this Item? NO// "" R X:DTIME S:'$T S=""^"" S:X="""" X=""N"" S:X[""?"" Y=""@5"" S:""Yy?""[$E(X) Y=""@16"";"
^XMB(3.9,84,2,359,0)="""KRN"",.402,2647,""DR"",3,441.7)"
^XMB(3.9,84,2,360,0)="S PRCHAA=$P($G(^PRC(441.7,D0,0)),U),PRCHAB=+$P($G(^PRC(441.7,D0,0)),U,7),PRCHYY=D0_""^""_PRCHAA_""^""_$S(PRCHAB=0:1,1:"""");1///^S X=PRCHDA;S DIE(""NO^"")="""";2;3;@6;4;K DIE(""NO^"");"
^XMB(3.9,84,2,361,0)="""KRN"",.402,2647,""DR"",3,441.7,1)"
^XMB(3.9,84,2,362,0)="S PRCHTOT=0,PRCHSCN="""" F I=0:0 S PRCHSCN=$O(^PRC(441.7,""B"",PRCHPONO,PRCHSCN)) Q:PRCHSCN=""""  I $P(^PRC(441.7,PRCHSCN,0),U,2)=PRCHINUM S PRCHTOT=PRCHTOT+$P(^PRC(441.7,PRCHSCN,0),U,5);"
^XMB(3.9,84,2,363,0)="""KRN"",.402,2647,""DR"",3,441.7,2)"
^XMB(3.9,84,2,364,0)="S PRCHQTY=$P(^PRC(443.6,PRCHIEN,2,PRCHINUM,0),U,2);S PRCHMORE=$P(^PRC(441.7,DA,0),U,5) S PRCHMOR2=(PRCHQTY-PRCHTOT+PRCHMORE);S PRCHDSCH=DA;"
^XMB(3.9,84,2,365,0)="""KRN"",.402,2647,""DR"",3,441.7,3)"
^XMB(3.9,84,2,366,0)="I PRCHTOT>PRCHQTY I PRCHMORE'=0 W *7,!,""Delivery sched. total of "",PRCHTOT,"" for item "",PRCHINUM,"" EXCEEDS the purchase"",!,""order quantity of "",PRCHQTY,""."",!,""Max. quantity here is "",($S(PRCHMOR2>0:PRCHMOR2,1:0)),""."",!! S Y=""@6"";"
^XMB(3.9,84,2,367,0)="""KRN"",.402,2647,""DR"",3,441.7,4)"
^XMB(3.9,84,2,368,0)="I PRCHTOT<PRCHQTY,PRCHTOT>0 W !!,""Delivery schedule total of "",PRCHTOT,"" for item "",PRCHINUM,"" is less than the purchase"",!,""order quantity."",!!;S DA(1)=PRCHDA1 S:X>0 Y=""@17"",$P(^PRC(441.7,PRCHDSCH,0),U,6)="""";"
^XMB(3.9,84,2,369,0)="""KRN"",.402,2647,""DR"",3,441.7,5)"
^XMB(3.9,84,2,370,0)="I $P($G(^PRC(441.7,PRCHDSCH,0)),U,7)]"""" S Y=""@117"";W *7,!!,""Delivery Schedule DELETED!"",!!;K PRCHNORE;.01////@;S Y=""@17"";@117;5////^S X=""D"";W *7,!!,""Delivery Schedule DELETED at the time of the obligation of this P.0."",!!;@17;"
^XMB(3.9,84,2,371,0)="""KRN"",.402,2647,""DR"",99,1)"
^XMB(3.9,84,2,372,0)="X DR(99,1,9.2) S Y(101)=$S($D(^PRC(441.7,D0,0)):^(0),1:"""") S X=$P(Y(101),U,1) S D0=I(0,0) S D1=I(1,0)"
^XMB(3.9,84,2,373,0)="""KRN"",.402,2647,""DR"",99,1,9.2)"
^XMB(3.9,84,2,374,0)="S I(1,0)=$G(D1),I(0,0)=$G(D0),Y(1)=$S($D(^PRC(443.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1) K DIC S DIC=""^PRC(441.7,"",DIC(0)=""MF"" D ^DIC S (D,D0,D(0))=+Y"
^XMB(3.9,84,2,375,0)="""KRN"",.402,2663,-1)"
^XMB(3.9,84,2,376,0)="0^3"
^XMB(3.9,84,2,377,0)="""KRN"",.402,2663,0)"
^XMB(3.9,84,2,378,0)="PRCH DETAILED PURCHASE CARD^3060509.1504^^442^^^3060530"
^XMB(3.9,84,2,379,0)="""KRN"",.402,2663,""DIAB"",1,0,442,6)"
^XMB(3.9,84,2,380,0)="P.O. DATE//TODAY"
^XMB(3.9,84,2,381,0)="""KRN"",.402,2663,""DIAB"",3,0,442,7)"
^XMB(3.9,84,2,382,0)="PCDO VENDOR;REQ"
^XMB(3.9,84,2,383,0)="""KRN"",.402,2663,""DIAB"",6,0,442,10)"
^XMB(3.9,84,2,384,0)="DELIVERY DATE//TODAY+10"
^XMB(3.9,84,2,385,0)="""KRN"",.402,2663,""DIAB"",7,0,442,2)"
^XMB(3.9,84,2,386,0)="SUBSTATION;REQ"
^XMB(3.9,84,2,387,0)="""KRN"",.402,2663,""DIAB"",10,1,442.01,8)"
^XMB(3.9,84,2,388,0)="FEDERAL SUPPLY CLASSIFICATION;T"
^XMB(3.9,84,2,389,0)="""KRN"",.402,2663,""DR"",1,442)"
^XMB(3.9,84,2,390,0)="Q:'$D(PRC(""SITE""))  S (PRCHN(""SVC""),PRCHN(""CC""),PRCHN(""SC""),PRCHN(""INV""))="""",PRCHN(""SFC"")=+$P(^PRC(442,DA,0),U,19),PRCHN(""FOB"")=$S($D(^(1)):$P(^(1),U,6),1:""""),PRCHN(12)=$S($D(^PRC(442,DA,12)):^(12),1:"""");"
^XMB(3.9,84,2,391,0)="""KRN"",.402,2663,""DR"",1,442,1)"
^XMB(3.9,84,2,392,0)="S PRCHPONO=$P(^PRC(442,DA,0),U,1),PRCHSTN=$P(PRCHPONO,""-"") S PRCHIEN=DA;S PRCX=$O(^PRC(411,PRC(""SITE""),1,0)) S:$G(PRCX)]"""" PRCY=$P($G(^PRC(411,PRC(""SITE""),1,PRCX,0)),U) K PRCX;D EN2^PRCHNPO6;S PRCHDUZ=$P(^VA(200,DUZ,0),U,1);"
^XMB(3.9,84,2,393,0)="""KRN"",.402,2663,""DR"",1,442,2)"
^XMB(3.9,84,2,394,0)="16////^S X=DUZ;56////^S X=DUZ;.02///^S X=25;48///^S X=""P"";63///^S X=1;I '$D(^PRC(411,""UP"",PRC(""SITE""))) S Y=""@46"";31R~;S SUB=X;I $D(SUB) S PRCX=$O(^PRC(411,SUB,1,0)) S:$G(PRCX)]"""" PRCY=$P($G(^PRC(411,SUB,1,PRCX,0)),U) K PRCX;@46;"
^XMB(3.9,84,2,395,0)="""KRN"",.402,2663,""DR"",1,442,3)"
^XMB(3.9,84,2,396,0)="S PRCHCDNO=$P($G(^PRC(442,DA,23)),U,8);S PRCHNN=0 F PRCHII=1:1 S PRCHNN=$O(^PRC(440.5,""C"",DUZ,PRCHNN)) Q:'PRCHNN  S PRCHCDF=$P(^PRC(440.5,PRCHNN,0),U);S PRCHCDFT="""" I PRCHII=2 S PRCHCDFT=PRCHCDF;D LOOK^PRCSPC;"
^XMB(3.9,84,2,397,0)="""KRN"",.402,2663,""DR"",1,442,4)"
^XMB(3.9,84,2,398,0)="I (X="""")!(X[""^"") S ERRFLG=2,Y=0;I $G(PRCHXXX)="""" S ERRFLG=2,Y=0;46////^S X=$G(PRCHXXX);I PRCHCDNO'="""",X'=PRCHCDNO W !,?5,""Please verify the accounting information for the new Purchase Card."",!;"
^XMB(3.9,84,2,399,0)="""KRN"",.402,2663,""DR"",1,442,5)"
^XMB(3.9,84,2,400,0)="I X]"""" S PRCHP0=^PRC(440.5,X,0),PRCHFCP=$P(PRCHP0,U,2),PRCHCC=$P(PRCHP0,U,3),PRCHBOC1=$P(PRCHP0,U,4),PRCHDLOC=$P(PRCHP0,U,7),PRCHCD=$P(PRCHP0,U),PRCHCDNO=+X,PRCHHLDR=$P(PRCHP0,U,8);61////^S X=PRCHHLDR;55///^S X=PRCHCD;Q;"
^XMB(3.9,84,2,401,0)="""KRN"",.402,2663,""DR"",1,442,6)"
^XMB(3.9,84,2,402,0)=".1//^S X=DT;I +X<DT W $C(7),!!,""Enter TODAY or a future date only. Contact Fiscal or A&MM Service for "",!,""assistance with PO requiring prior date since an ET is required."",! S $P(^PRC(442,DA,1),U,15)="""",Y=.1;"
^XMB(3.9,84,2,403,0)="""KRN"",.402,2663,""DR"",1,442,7)"
^XMB(3.9,84,2,404,0)="S PRCHN(""MP"")=$S($D(^PRCD(442.5,+X,0)):$P(^(0),U,3),1:""""),PRCHN(""INV"")=$S(PRCHN(""INV"")]"""":PRCHN(""INV""),1:""FMS"");.08//^S X=""N"";53R~;I $G(PRCFLAG)=1 S $P(^PRC(442,DA,23),U,14)="""" K X S Y=53;S PRCHVEN=+X;5////^S X=PRCHVEN;8//^S X=""B"";"
^XMB(3.9,84,2,405,0)="""KRN"",.402,2663,""DR"",1,442,8)"
^XMB(3.9,84,2,406,0)="S PRCHN(""MP"")=$P(^PRC(442,DA,0),U,2);1//^S X=PRCHFCP;S PRC(""CP"")=X;S PRCHN(""SFC"")=$P(^PRC(442,DA,0),U,19);@2;I $G(PRC(""BBFY""))="""" S PRC(""BBFY"")=$$BBFY^PRCSUT(PRC(""SITE""),PRC(""FY""),$P(^PRC(442,DA,0),U,3));26///^S X=PRC(""BBFY"");"
^XMB(3.9,84,2,407,0)="""KRN"",.402,2663,""DR"",1,442,9)"
^XMB(3.9,84,2,408,0)="D EN2^PRCHNPO3;2//^S X=PRCHCC;5.2;52;@88;54;I X[""N"" S Y=6.4;5.6//^S X=PRCHDLOC;I X=""PATIENT"",$P(^PRC(442,DA,0),U,19) I $P(^(0),U,19)!(PRCHN(""MP"")=2) W *7,!,""  PATIENT DELIVERY not valid for this type of order!"" S Y=5.6;"
^XMB(3.9,84,2,409,0)="""KRN"",.402,2663,""DR"",1,442,10)"
^XMB(3.9,84,2,410,0)="5.4//^S X=$G(PRCY);K DIC(""DR"");6.4//DESTINATION;S PRCHN(""FOB"")=X;Q;7//^S X=DT S X=X,X1=X,X2=+10,X="""" D C^%DTC:X1;8.2//^S X=""N/A"";13;S PRCHSHP=+X;S:X']"""" Y=""@99"";I $P(^PRC(442,DA,0),U,19)'=2 S Y=""@98"";"
^XMB(3.9,84,2,411,0)="""KRN"",.402,2663,""DR"",1,442,11)"
^XMB(3.9,84,2,412,0)="S PRCHSBOC=$P($G(^PRCD(420.2,2299,0)),U);13.05////^S X=PRCHSBOC;S Y=""@100"";@98;13.05;@100;I '(PRCHN(""FOB"")=""O""&((PRCHSHP>250)!(PRCHSHP=0))) S Y=""@99"";13.2;13.4;13.3;@99;K PRCHDUZ;40;20;"
^XMB(3.9,84,2,413,0)="""KRN"",.402,2663,""DR"",2,442.01)"
^XMB(3.9,84,2,414,0)="S PRCHREC=DA;.01;K PRCSAVE;S PRCHINUM=DA,PRCHOLD=$P($G(^PRC(442,PRCHIEN,2,PRCHINUM,0)),U,2);1.5;I X=""""&($L($P($G(^PRC(442,DA(1),2,DA,2)),U,3))=4) S PRCSAVE=""G"",Y=""@101"";"
^XMB(3.9,84,2,415,0)="""KRN"",.402,2663,""DR"",2,442.01,1)"
^XMB(3.9,84,2,416,0)="I X=""""&($L($P($G(^PRC(442,DA(1),2,DA,2)),U,3))=5) S PRCSAVE=""S"",Y=""@101"";I X=""""&($G(PRCSAVE)="""") D ^PRCHAAC4 I $D(PRCHANS) S PRCSAVE=PRCHANS;@101;I $G(PRCSAVE)=""^"" K PRCHANS,PRCSAVE S Y=0;"
^XMB(3.9,84,2,417,0)="""KRN"",.402,2663,""DR"",2,442.01,2)"
^XMB(3.9,84,2,418,0)="I X'="""",$G(PRCHN(""SFC""))'=2 S PRCHMAND=$P($G(^PRC(441,X,0)),U,8) I $G(PRCHMAND),PRCHMAND'=$P($G(^PRC(442,DA(1),1)),U) W !,""This item can only be purchased from ""_$P($G(^PRC(440,PRCHMAND,0)),U) S Y=1.5;1;"
^XMB(3.9,84,2,419,0)="""KRN"",.402,2663,""DR"",2,442.01,3)"
^XMB(3.9,84,2,420,0)="I '$D(^PRC(442,DA(1),2,DA,1)) W $C(7),!,""Description is Required!!"" S Y=1;S (PRCHQUAN,Z)="""" I $D(^PRC(442,DA(1),1)) S Z=$S($D(^PRC(441,+$P(^PRC(442,DA(1),2,DA,0),U,5),2,+^PRC(442,DA(1),1),0)):^(0),1:"""");"
^XMB(3.9,84,2,421,0)="""KRN"",.402,2663,""DR"",2,442.01,4)"
^XMB(3.9,84,2,422,0)="I Z'="""" W:$P(Z,U,12)'="""" !,""    Minimum Order Qty.: "",$P(Z,U,12) W:$P(Z,U,9) !,""    Maximum Order Qty.: "",$P(Z,U,9) W:$P(Z,U,11) !,""    Required Order Multiple: "",$P(Z,U,11) S PRCHQUAN=Z K Z;"
^XMB(3.9,84,2,423,0)="""KRN"",.402,2663,""DR"",2,442.01,5)"
^XMB(3.9,84,2,424,0)="2//^S X=$S($P(PRCHQUAN,U,12)'="""":$P(PRCHQUAN,U,12),$P(PRCHQUAN,U,11)'="""":$P(PRCHQUAN,U,11),1:"""");"
^XMB(3.9,84,2,425,0)="""KRN"",.402,2663,""DR"",2,442.01,6)"
^XMB(3.9,84,2,426,0)="I $P(PRCHQUAN,U,12)'="""" I X<$P(PRCHQUAN,U,12) W !,""QUANTITY is less than the Minimum Order Quantity of "",$P(PRCHQUAN,U,12),$C(7) S Y=2;"
^XMB(3.9,84,2,427,0)="""KRN"",.402,2663,""DR"",2,442.01,7)"
^XMB(3.9,84,2,428,0)="I $P(PRCHQUAN,U,9)'="""" I X>$P(PRCHQUAN,U,9) W !,""QUANTITY is more than the Maximum Order Quantity of "",$P(PRCHQUAN,U,9),$C(7) S Y=2;"
^XMB(3.9,84,2,429,0)="""KRN"",.402,2663,""DR"",2,442.01,8)"
^XMB(3.9,84,2,430,0)="I $P(PRCHQUAN,U,11)'="""" I X#$P(PRCHQUAN,U,11)'=0 W !,""QUANTITY is not a Required Order Multiple value of "",$P(PRCHQUAN,U,11),$C(7) S Y=2;3;5;D TSTREQ1^PRCHNPO9;3.1;S DIE(""NO^"")=""A"";9.7;K DIE(""NO^"");9;8T~;"
^XMB(3.9,84,2,431,0)="""KRN"",.402,2663,""DR"",2,442.01,9)"
^XMB(3.9,84,2,432,0)="I $G(PRCSAVE)'=""^"" D EN10^PRCHNPO7;S PRCHFCP=+$P(^PRC(442,DA(1),0),U,3),PRCHN(""COM"")=$S($D(^PRC(441.2,+X,0)):$P(^(0),U,4),1:"""") S:(PRCHN(""COM"")'=1)&($E($P($G(^PRC(420,PRCHSTN,1,PRCHFCP,0)),U,18),1,2)'=11) Y=4;4;"
^XMB(3.9,84,2,433,0)="""KRN"",.402,2663,""DR"",2,442.01,10)"
^XMB(3.9,84,2,434,0)="S PRCHIDA=+$P(^PRC(442,DA(1),2,DA,0),U,5);K PRCHBOCC;I PRCHN(""SFC"")=2 S ACCT=$$ACCT^PRCPUX1($E($$NSN^PRCPUX1(PRCHIDA),1,4)) S PRCHBOCC=$S(ACCT=1:2697,ACCT=2:2698,ACCT=3:2699,ACCT=6:2699,ACCT=8:2696,1:2699);"
^XMB(3.9,84,2,435,0)="""KRN"",.402,2663,""DR"",2,442.01,11)"
^XMB(3.9,84,2,436,0)="I '$G(PRCHBOCC) S Y=""@87"";S PRCHBOCC=$P($G(^PRCD(420.2,PRCHBOCC,0)),U);3.5////^S X=PRCHBOCC;S Y=""@89"";@87;3.5;@89;K PRCHBOCC,PRCHANS,PRCSAVE;"
^XMB(3.9,84,2,437,0)="""KRN"",.402,2664,-1)"
^XMB(3.9,84,2,438,0)="0^1"
^XMB(3.9,84,2,439,0)="""KRN"",.402,2664,0)"
^XMB(3.9,84,2,440,0)="PRCH DELIVERY ORDER^3060512.1103^^442^^^3060705"
^XMB(3.9,84,2,441,0)="""KRN"",.402,2664,""DIAB"",3,0,442,6)"
^XMB(3.9,84,2,442,0)="PCDO VENDOR;REQ"
^XMB(3.9,84,2,443,0)="""KRN"",.402,2664,""DIAB"",4,0,442,3)"
^XMB(3.9,84,2,444,0)="SUBSTATION;REQ"
^XMB(3.9,84,2,445,0)="""KRN"",.402,2664,""DIAB"",4,0,442,4)"
^XMB(3.9,84,2,446,0)="P.O. DATE//TODAY"
^XMB(3.9,84,2,447,0)="""KRN"",.402,2664,""DIAB"",5,0,442,10)"
^XMB(3.9,84,2,448,0)="DELIVERY DATE//TODAY+10"
^XMB(3.9,84,2,449,0)="""KRN"",.402,2664,""DIAB"",8,1,442.01,10)"
^XMB(3.9,84,2,450,0)="FEDERAL SUPPLY CLASSIFICATION;T"
^XMB(3.9,84,2,451,0)="""KRN"",.402,2664,""DR"",1,442)"
^XMB(3.9,84,2,452,0)="Q:'$D(PRC(""SITE""))  S (PRCHN(""SVC""),PRCHN(""CC""),PRCHN(""SC""),PRCHN(""INV""))="""",PRCHN(""SFC"")=+$P(^PRC(442,DA,0),U,19),PRCHN(""FOB"")=$S($D(^(1)):$P(^(1),U,6),1:""""),PRCHN(12)=$S($D(^PRC(442,DA,12)):^(12),1:"""");"
^XMB(3.9,84,2,453,0)="""KRN"",.402,2664,""DR"",1,442,1)"
^XMB(3.9,84,2,454,0)="S PRCHNVF="""",PRCHPONO=$P(^PRC(442,DA,0),U,1),PRCHSTN=$P(PRCHPONO,""-"") S PRCHIEN=DA;S PRCX=$O(^PRC(411,PRC(""SITE""),1,0)) S:$G(PRCX)]"""" PRCY=$P($G(^PRC(411,PRC(""SITE""),1,PRCX,0)),U) K PRCX;D EN2^PRCHNPO6;"
^XMB(3.9,84,2,455,0)="""KRN"",.402,2664,""DR"",1,442,2)"
^XMB(3.9,84,2,456,0)="S PRCHDUZ=$P(^VA(200,DUZ,0),U,1);S PRCHN(""MP"")=$S($D(^PRCD(442.5,+$P(^PRC(442,DA,0),U,2),0)):$P(^(0),U,3),1:""""),PRCHN(""INV"")=$S(PRCHN(""MP"")=2:""FISCAL"",PRCHN(""MP"")=12:"""",PRCHN(""INV"")'="""":PRCHN(""INV""),1:""FMS"");48///^S X=""D"";"
^XMB(3.9,84,2,457,0)="""KRN"",.402,2664,""DR"",1,442,3)"
^XMB(3.9,84,2,458,0)="I '$D(^PRC(411,""UP"",PRC(""SITE""))) S Y=.1;S OSUB=$P($G(^PRC(442,DA,23)),U,7);I $D(^PRCS(410,+$P(^PRC(442,DA,0),""^"",12),0)) S X=$P($G(^(0)),U,10) I +X=OSUB W !,""SUBSTATION: "",$P(^PRC(411,$P(^PRC(442,DA,23),U,7),0),U) S Y=.1;31R~;"
^XMB(3.9,84,2,459,0)="""KRN"",.402,2664,""DR"",1,442,4)"
^XMB(3.9,84,2,460,0)="S SUB=X;I $D(SUB) S PRCX=$O(^PRC(411,SUB,1,0)) S:$G(PRCX)]"""" PRCY=$P($G(^PRC(411,SUB,1,PRCX,0)),U) K PRCX;Q;.1//^S X=DT;.02//^S X=""INVOICE/RECEIVING REPORT"";"
^XMB(3.9,84,2,461,0)="""KRN"",.402,2664,""DR"",1,442,5)"
^XMB(3.9,84,2,462,0)="S PRCHN(""MP"")=$S($D(^PRCD(442.5,+X,0)):$P(^(0),U,3),1:""""),PRCHN(""INV"")=$S(PRCHN(""MP"")=2:""FISCAL"",PRCHN(""MP"")=12:"""",PRCHN(""INV"")]"""":PRCHN(""INV""),1:""FMS"");S PRCHCTPO=$S(PRCHN(""MP"")=2:""Y"",1:""N"");"
^XMB(3.9,84,2,463,0)="""KRN"",.402,2664,""DR"",1,442,6)"
^XMB(3.9,84,2,464,0)=".08//^S X=$S(PRCHN(""MP"")=2:""Y"",PRCHN(""MP"")=12:""Y"",1:""N"");.04//^S X=PRCHN(""INV"");53R~;S PRCHVEN=+X;5////^S X=PRCHVEN;8///^S X=6;K DIC(""DR"");@1;1;S PRCHN(""SFC"")=$P(^PRC(442,DA,0),U,19);@2;"
^XMB(3.9,84,2,465,0)="""KRN"",.402,2664,""DR"",1,442,7)"
^XMB(3.9,84,2,466,0)="I $G(PRC(""BBFY""))="""" S PRC(""BBFY"")=$$BBFY^PRCSUT(PRC(""SITE""),PRC(""FY""),$P(^PRC(442,DA,0),U,3));26///^S X=PRC(""BBFY"");D EN2^PRCHNPO3;2//^S X=PRCHN(""CC"");@88;S:PRCHN(""MP"")=2 Y=""@3"" I $D(^PRC(442,DA,1)),$P(^(1),U,18)]"""" S Y=""@3"";@3;"
^XMB(3.9,84,2,467,0)="""KRN"",.402,2664,""DR"",1,442,8)"
^XMB(3.9,84,2,468,0)="S:PRCHN(""MP"")=4 Y=5.3;I '$P(^PRC(442,DA,0),U,19)&(PRCHN(""MP"")'=2) W !,""Enter the word 'PATIENT' in the 'DELIVERY LOCATION' field for a direct delivery"",!,""to a patient."";5.6;"
^XMB(3.9,84,2,469,0)="""KRN"",.402,2664,""DR"",1,442,9)"
^XMB(3.9,84,2,470,0)="I X=""PATIENT"",$P(^PRC(442,DA,0),U,19) I $P(^(0),U,19)!(PRCHN(""MP"")=2) W *7,!,""  PATIENT DELIVERY not valid for this type of order!"" S Y=5.6;5.4//^S X=$G(PRCY);"
^XMB(3.9,84,2,471,0)="""KRN"",.402,2664,""DR"",1,442,10)"
^XMB(3.9,84,2,472,0)="I $P(^PRC(442,DA,1),U,12)'="""" W *7,!,""Delete the Direct Delivery patient name if you wish the 'Ship to' address"",!,""to print on the P.O."",!;6.4//DESTINATION;S PRCHN(""FOB"")=X;Q;7//^S X=DT S X=X,X1=X,X2=+10,X="""" D C^%DTC:X1;"
^XMB(3.9,84,2,473,0)="""KRN"",.402,2664,""DR"",1,442,11)"
^XMB(3.9,84,2,474,0)="8.2//^S X=""N/A"";13;S PRCHSHP=+X;S:X']"""" Y=""@99"";I $P(^PRC(442,DA,0),U,19)'=2 S Y=""@98"";S PRCHSBOC=$P($G(^PRCD(420.2,2299,0)),U);13.05////^S X=PRCHSBOC;S Y=""@100"";@98;13.05;@100;"
^XMB(3.9,84,2,475,0)="""KRN"",.402,2664,""DR"",1,442,12)"
^XMB(3.9,84,2,476,0)="I '(PRCHN(""FOB"")=""O""&((PRCHSHP>250)!(PRCHSHP=0))) S Y=""@99"";13.2;13.4;13.3;@99;16////^S X=DUZ;K PRCHDUZ;40;20;"
^XMB(3.9,84,2,477,0)="""KRN"",.402,2664,""DR"",2,442.01)"
^XMB(3.9,84,2,478,0)="S PRCHREC=DA;.01;K PRCSAVE;S PRCHINUM=DA,PRCHOLD=$P($G(^PRC(442,PRCHIEN,2,PRCHINUM,0)),U,2);1.5;I X=""""&($L($P($G(^PRC(442,DA(1),2,DA,2)),U,3))=4) S PRCSAVE=""G"",Y=""@101"";"
^XMB(3.9,84,2,479,0)="""KRN"",.402,2664,""DR"",2,442.01,1)"
^XMB(3.9,84,2,480,0)="I X=""""&($L($P($G(^PRC(442,DA(1),2,DA,2)),U,3))=5) S PRCSAVE=""S"",Y=""@101"";I X=""""&($G(PRCSAVE)="""") D ^PRCHAAC4 I $D(PRCHANS) S PRCSAVE=PRCHANS;@101;I $G(PRCSAVE)=""^"" K PRCHANS,PRCSAVE S Y=0;"
^XMB(3.9,84,2,481,0)="""KRN"",.402,2664,""DR"",2,442.01,2)"
^XMB(3.9,84,2,482,0)="I X'="""",$P($G(^PRC(441,X,2,PRCHVEN,0)),U,3)="""",$G(PRCSAVE)="""" W !,""This is not a contract item."" S Y=1.5;"
^XMB(3.9,84,2,483,0)="""KRN"",.402,2664,""DR"",2,442.01,3)"
^XMB(3.9,84,2,484,0)="I X'="""" S PRCHMAND=$P($G(^PRC(441,X,0)),U,8) I $G(PRCHMAND),PRCHMAND'=$P($G(^PRC(442,DA(1),1)),U) W !,""This item can only be purchased from ""_$P($G(^PRC(440,PRCHMAND,0)),U) S Y=1.5;1;"
^XMB(3.9,84,2,485,0)="""KRN"",.402,2664,""DR"",2,442.01,4)"
^XMB(3.9,84,2,486,0)="I '$D(^PRC(442,DA(1),2,DA,1)) W $C(7),!,""Description is Required!!"" S Y=1;S (PRCHQUAN,Z)="""" I $D(^PRC(442,DA(1),1)) S Z=$S($D(^PRC(441,+$P(^PRC(442,DA(1),2,DA,0),U,5),2,+^PRC(442,DA(1),1),0)):^(0),1:"""");"
^XMB(3.9,84,2,487,0)="""KRN"",.402,2664,""DR"",2,442.01,5)"
^XMB(3.9,84,2,488,0)="I Z'="""" W:$P(Z,U,12)'="""" !,""    Minimum Order Qty.: "",$P(Z,U,12) W:$P(Z,U,9) !,""    Maximum Order Qty.: "",$P(Z,U,9) W:$P(Z,U,11) !,""    Required Order Multiple: "",$P(Z,U,11) S PRCHQUAN=Z K Z;"
^XMB(3.9,84,2,489,0)="""KRN"",.402,2664,""DR"",2,442.01,6)"
^XMB(3.9,84,2,490,0)="2//^S X=$S($P(PRCHQUAN,U,12)'="""":$P(PRCHQUAN,U,12),$P(PRCHQUAN,U,11)'="""":$P(PRCHQUAN,U,11),1:"""");S PRCHTOT=0 I X<PRCHOLD N I F I=0:0 S I=$O(^PRC(442.8,""AC"",PRCHPONO,PRCHINUM,I)) Q:'I  S PRCHTOT=PRCHTOT+$P($G(^PRC(442.8,I,0)),U,5);"
^XMB(3.9,84,2,491,0)="""KRN"",.402,2664,""DR"",2,442.01,7)"
^XMB(3.9,84,2,492,0)="I $P(PRCHQUAN,U,12)'="""" I X<$P(PRCHQUAN,U,12) W !,""QUANTITY is less than the Minimum Order Quantity of "",$P(PRCHQUAN,U,12),$C(7) S Y=2;"
^XMB(3.9,84,2,493,0)="""KRN"",.402,2664,""DR"",2,442.01,8)"
^XMB(3.9,84,2,494,0)="I $P(PRCHQUAN,U,9)'="""" I X>$P(PRCHQUAN,U,9) W !,""QUANTITY is more than the Maximum Order Quantity of "",$P(PRCHQUAN,U,9),$C(7) S Y=2;"
^XMB(3.9,84,2,495,0)="""KRN"",.402,2664,""DR"",2,442.01,9)"
^XMB(3.9,84,2,496,0)="I $P(PRCHQUAN,U,11)'="""" I X#$P(PRCHQUAN,U,11)'=0 W !,""QUANTITY is not a Required Order Multiple value of "",$P(PRCHQUAN,U,11),$C(7) S Y=2;3;5;I $D(^PRC(442,DA(1),1)),$P(^(1),U,20)=""Y"" S Y=""@6"";D TSTREQ1^PRCHNPO9;3.1;"
^XMB(3.9,84,2,497,0)="""KRN"",.402,2664,""DR"",2,442.01,10)"
^XMB(3.9,84,2,498,0)="S DIE(""NO^"")=""A"";9.7;K DIE(""NO^"");9;9.5;@6;S:PRCHN(""MP"")=2 Y=4;8T~;I $G(PRCSAVE)'=""^"" D EN10^PRCHNPO7;"
^XMB(3.9,84,2,499,0)="""KRN"",.402,2664,""DR"",2,442.01,11)"
^XMB(3.9,84,2,500,0)="S PRCHFCP=+$P(^PRC(442,DA(1),0),U,3),PRCHN(""COM"")=$S($D(^PRC(441.2,+X,0)):$P(^(0),U,4),1:"""") S:$E($P($G(^PRC(420,PRCHSTN,1,PRCHFCP,0)),U,18),1,2)=11 Y=41 S:(PRCHN(""COM"")'=1)&($E($P($G(^(0)),U,18),1,2)'=11) Y=4;9.3;"
^XMB(3.9,84,2,501,0)="""KRN"",.402,2664,""DR"",2,442.01,12)"
^XMB(3.9,84,2,502,0)="D TSTREQ2^PRCHNPO9;40;S Y=4;41//^S Z=$S($D(^PRC(441,+$P(^PRC(442,DA(1),2,DA,0),U,5),3)):^(3),1:""""),X=$P(Z,U,7);4;S PRCHIDA=+$P(^PRC(442,DA(1),2,DA,0),U,5);K PRCHBOCC;"
^XMB(3.9,84,2,503,0)="""KRN"",.402,2664,""DR"",2,442.01,13)"
^XMB(3.9,84,2,504,0)="S:PRCHN(""SFC"")=2 ACCT=$$ACCT^PRCPUX1($E($$NSN^PRCPUX1(PRCHIDA),1,4)),PRCHBOCC=$P($G(^PRCD(420.2,$S(ACCT=1:2697,ACCT=2:2698,ACCT=3:2699,ACCT=6:2699,ACCT=8:2696,1:2699),0)),U);I $G(PRCHBOCC) S Y=""@87"";3.5//^S X=$G(PRCHBOCC);"
^XMB(3.9,84,2,505,0)="""KRN"",.402,2664,""DR"",2,442.01,14)"
^XMB(3.9,84,2,506,0)="S Y=""@89"";@87;3.5////^S X=PRCHBOCC;S Y=""@89"";@87;3.5;@89;K PRCHBOCC,PRCHANS,PRCSAVE;S:'$D(PRCHEDI) Y=""@5"";36.3;36.6;@5;"
^XMB(3.9,84,2,507,0)="""KRN"",.402,2665,-1)"
^XMB(3.9,84,2,508,0)="0^5"
^XMB(3.9,84,2,509,0)="""KRN"",.402,2665,0)"
^XMB(3.9,84,2,510,0)="PRCH PURCHASE CARD AMEND^3060505.1009^^443.6^^^3060629"
^XMB(3.9,84,2,511,0)="""KRN"",.402,2665,""DIAB"",12,1,443.61,7)"
^XMB(3.9,84,2,512,0)="FEDERAL SUPPLY CLASSIFICATION;T"
^XMB(3.9,84,2,513,0)="""KRN"",.402,2665,""DR"",1,443.6)"
^XMB(3.9,84,2,514,0)="40///^S X=PRCHI1;"
^XMB(3.9,84,2,515,0)="""KRN"",.402,2665,""DR"",2,443.61)"
^XMB(3.9,84,2,516,0)="K PRCSAVE;1.5;I X=""""&($L($P($G(^PRC(443.6,DA(1),2,DA,2)),U,3))=4) S PRCSAVE=""G"",Y=""@101"";I X=""""&($L($P($G(^PRC(443.6,DA(1),2,DA,2)),U,3))=5) S PRCSAVE=""S"",Y=""@101"";"
^XMB(3.9,84,2,517,0)="""KRN"",.402,2665,""DR"",2,443.61,1)"
^XMB(3.9,84,2,518,0)="I X=""""&($G(PRCSAVE)="""") D ^PRCHAAC4 I $D(PRCHANS) S PRCSAVE=PRCHANS;@101;I $G(PRCSAVE)=""^"" K PRCHANS,PRCSAVE S Y=0;1;I '$D(^PRC(443.6,DA(1),2,DA,1)) W $C(7),!,""Description is Required!!"" S Y=1;"
^XMB(3.9,84,2,519,0)="""KRN"",.402,2665,""DR"",2,443.61,2)"
^XMB(3.9,84,2,520,0)="S (PRCHQUAN,PRCHZ)="""" I $D(^PRC(443.6,DA(1),1)) S PRCHZ=$S($D(^PRC(441,+$P(^PRC(443.6,DA(1),2,DA,0),U,5),2,+^PRC(443.6,DA(1),1),0)):^(0),1:"""");"
^XMB(3.9,84,2,521,0)="""KRN"",.402,2665,""DR"",2,443.61,3)"
^XMB(3.9,84,2,522,0)="I PRCHZ'="""" W:$P(PRCHZ,U,12)'="""" !,*7,""    Minimum Order Qty.: "",$P(PRCHZ,U,12) W:$P(PRCHZ,U,9) !,*7,""    Maximum Order Qty.: "",$P(PRCHZ,U,9) W:$P(PRCHZ,U,11) !,*7,""    Required Order Multiple: "",$P(PRCHZ,U,11) S PRCHQUAN=PRCHZ;"
^XMB(3.9,84,2,523,0)="""KRN"",.402,2665,""DR"",2,443.61,4)"
^XMB(3.9,84,2,524,0)="S PRCHQPR=$P($G(^PRC(443.6,DA(1),2,DA,2)),U,8);@2;2//^S X=$S($P(PRCHQUAN,U,12)'="""":$P(PRCHQUAN,U,12),$P(PRCHQUAN,U,11)'="""":$P(PRCHQUAN,U,11),1:"""");"
^XMB(3.9,84,2,525,0)="""KRN"",.402,2665,""DR"",2,443.61,5)"
^XMB(3.9,84,2,526,0)="I PRCHQPR>0 I X<PRCHQPR W !,""QUANTITY is less than Quantity Previously Received."",$C(7) S Y=""@2"";I $P(PRCHQUAN,U,12)'="""" I X<$P(PRCHQUAN,U,12) W !,""QUANTITY is less than Minimum Order Quantity."",$C(7) S Y=""@2"";"
^XMB(3.9,84,2,527,0)="""KRN"",.402,2665,""DR"",2,443.61,6)"
^XMB(3.9,84,2,528,0)="I $P(PRCHQUAN,U,9)'="""" I X>$P(PRCHQUAN,U,9) W !,""QUANTITY is more than Maximum Order Quantity."",$C(7) S Y=""@2"";I $P(PRCHQUAN,U,11)'="""" I X#$P(PRCHQUAN,U,11)'=0 W !,""QUANTITY is not a Required Order Multiple value."",$C(7) S Y=""@2"";"
^XMB(3.9,84,2,529,0)="""KRN"",.402,2665,""DR"",2,443.61,7)"
^XMB(3.9,84,2,530,0)="3;5;I $D(^PRC(443.6,DA(1),1)),$P(^(1),U,20)=""Y"" S Y=""@6"";D TSTREQ1^PRCHNPO9;3.1;S DIE(""NO^"")=""A"";9.7;K DIE(""NO^"");9;@6;S PRCHN(""MP"")=$S($D(^PRCD(442.5,+$P(^PRC(443.6,DA(1),0),U,2),0)):$P(^(0),U,3),1:"""");8T~;"
^XMB(3.9,84,2,531,0)="""KRN"",.402,2665,""DR"",2,443.61,8)"
^XMB(3.9,84,2,532,0)="I $G(PRCSAVE)'=""^"" D EN100^PRCHNPO7;"
^XMB(3.9,84,2,533,0)="""KRN"",.402,2665,""DR"",2,443.61,9)"
^XMB(3.9,84,2,534,0)="S PRCHFCP=+$P(^PRC(443.6,DA(1),0),U,3),PRCHN(""COM"")=$S($D(^PRC(441.2,+X,0)):$P(^(0),U,4),1:"""") S:$E($P($G(^PRC(420,PRCHSTN,1,PRCHFCP,0)),U,18),1,2)=11 Y=41 S:(PRCHN(""COM"")'=1)&($E($P($G(^(0)),U,18),1,2)'=11) Y=4;@4;4;"
^XMB(3.9,84,2,535,0)="""KRN"",.402,2665,""DR"",2,443.61,10)"
^XMB(3.9,84,2,536,0)="S PRCHIDA=+$P(^PRC(443.6,DA(1),2,DA,0),U,5),PRCHN(""SFC"")=+$P(^PRC(443.6,DA(1),0),U,19);"
^XMB(3.9,84,2,537,0)="""KRN"",.402,2665,""DR"",2,443.61,11)"
^XMB(3.9,84,2,538,0)="I PRCHN(""SFC"")=2 S ACCT=$$ACCT^PRCPUX1($E($$NSN^PRCPUX1(PRCHIDA),1,4)) S PRCHBOCC=$S(ACCT=1:2697,ACCT=2:2698,ACCT=3:2699,ACCT=6:2699,ACCT=8:2696,1:2699);I '$G(PRCHBOCC) S Y=""@87"";S PRCHBOCC=$P($G(^PRCD(420.2,PRCHBOCC,0)),U);"
^XMB(3.9,84,2,539,0)="""KRN"",.402,2665,""DR"",2,443.61,12)"
^XMB(3.9,84,2,540,0)="3.5////^S X=PRCHBOCC;S Y=""@89"";@87;3.5;@89;K PRCHBOCC,PRCHANS,PRCSAVE;"
^XMB(3.9,84,2,541,0)="""KRN"",.402,2666,-1)"
^XMB(3.9,84,2,542,0)="0^2"
^XMB(3.9,84,2,543,0)="""KRN"",.402,2666,0)"
^XMB(3.9,84,2,544,0)="PRCH DELIVERY ORDER AMEND^3060512.1112^^443.6^^^3060705"
^XMB(3.9,84,2,545,0)="""KRN"",.402,2666,""DIAB"",14,1,443.61,8)"
^XMB(3.9,84,2,546,0)="FEDERAL SUPPLY CLASSIFICATION;T"
^XMB(3.9,84,2,547,0)="""KRN"",.402,2666,""DR"",1,443.6)"
^XMB(3.9,84,2,548,0)="40///^S X=PRCHI1;"
^XMB(3.9,84,2,549,0)="""KRN"",.402,2666,""DR"",2,443.61)"
^XMB(3.9,84,2,550,0)="K PRCSAVE;1.5;I X=""""&($L($P($G(^PRC(443.6,DA(1),2,DA,2)),U,3))=4) S PRCSAVE=""G"",Y=""@101"";I X=""""&($L($P($G(^PRC(443.6,DA(1),2,DA,2)),U,3))=5) S PRCSAVE=""S"",Y=""@101"";"
^XMB(3.9,84,2,551,0)="""KRN"",.402,2666,""DR"",2,443.61,1)"
^XMB(3.9,84,2,552,0)="I X=""""&($G(PRCSAVE)="""") D ^PRCHAAC4 I $D(PRCHANS) S PRCSAVE=PRCHANS;@101;I $G(PRCSAVE)=""^"" K PRCHANS,PRCSAVE S Y=0;S PRCHVEN=$P(^PRC(443.6,PRCHPO,1),U);"
^XMB(3.9,84,2,553,0)="""KRN"",.402,2666,""DR"",2,443.61,2)"
^XMB(3.9,84,2,554,0)="I X'="""",$P($G(^PRC(441,X,2,PRCHVEN,0)),U,3)="""",$G(PRCSAVE)="""" W !,""This is not a contract item."" S Y=1.5;1;I '$D(^PRC(443.6,DA(1),2,DA,1)) W $C(7),?3,!,""Description is Required!!"" S Y=1;"
^XMB(3.9,84,2,555,0)="""KRN"",.402,2666,""DR"",2,443.61,3)"
^XMB(3.9,84,2,556,0)="S (PRCHQUAN,PRCHZ)="""" I $D(^PRC(443.6,DA(1),1)) S PRCHZ=$S($D(^PRC(441,+$P(^PRC(443.6,DA(1),2,DA,0),U,5),2,+^PRC(443.6,DA(1),1),0)):^(0),1:"""");"
^XMB(3.9,84,2,557,0)="""KRN"",.402,2666,""DR"",2,443.61,4)"
^XMB(3.9,84,2,558,0)="I PRCHZ'="""" W:$P(PRCHZ,U,12)'="""" !,*7,""    Minimum Order Qty.: "",$P(PRCHZ,U,12) W:$P(PRCHZ,U,9) !,*7,""    Maximum Order Qty.: "",$P(PRCHZ,U,9) W:$P(PRCHZ,U,11) !,*7,""    Required Order Multiple: "",$P(PRCHZ,U,11) S PRCHQUAN=PRCHZ;"
^XMB(3.9,84,2,559,0)="""KRN"",.402,2666,""DR"",2,443.61,5)"
^XMB(3.9,84,2,560,0)="S PRCHQPR=$P($G(^PRC(443.6,DA(1),2,DA,2)),U,8);@2;2//^S X=$S($P(PRCHQUAN,U,12)'="""":$P(PRCHQUAN,U,12),$P(PRCHQUAN,U,11)'="""":$P(PRCHQUAN,U,11),1:"""");"
^XMB(3.9,84,2,561,0)="""KRN"",.402,2666,""DR"",2,443.61,6)"
^XMB(3.9,84,2,562,0)="I PRCHQPR>0 I X<PRCHQPR W !,""QUANTITY is less than Quantity Previously Received."",$C(7) S Y=""@2"";I $P(PRCHQUAN,U,12)'="""" I X<$P(PRCHQUAN,U,12) W !,""QUANTITY is less than Minimum Order Quantity."",$C(7) S Y=""@2"";"
^XMB(3.9,84,2,563,0)="""KRN"",.402,2666,""DR"",2,443.61,7)"
^XMB(3.9,84,2,564,0)="I $P(PRCHQUAN,U,9)'="""" I X>$P(PRCHQUAN,U,9) W !,""QUANTITY is more than Maximum Order Quantity."",$C(7) S Y=""@2"";I $P(PRCHQUAN,U,11)'="""" I X#$P(PRCHQUAN,U,11)'=0 W !,""QUANTITY is not a Required Order Multiple value."",$C(7) S Y=""@2"";"
^XMB(3.9,84,2,565,0)="""KRN"",.402,2666,""DR"",2,443.61,8)"
^XMB(3.9,84,2,566,0)="3;5;I $D(^PRC(443.6,DA(1),1)),$P(^(1),U,20)=""Y"" S Y=""@6"";D TSTREQ1^PRCHNPO9;3.1;S DIE(""NO^"")=""A"";9.7;K DIE(""NO^"");9;9.5;@6;S PRCHN(""MP"")=$S($D(^PRCD(442.5,+$P(^PRC(443.6,DA(1),0),U,2),0)):$P(^(0),U,3),1:"""");S:PRCHN(""MP"")=2 Y=4;8T~;"
^XMB(3.9,84,2,567,0)="""KRN"",.402,2666,""DR"",2,443.61,9)"
^XMB(3.9,84,2,568,0)="I $G(PRCSAVE)'=""^"" D EN100^PRCHNPO7;"
^XMB(3.9,84,2,569,0)="""KRN"",.402,2666,""DR"",2,443.61,10)"
^XMB(3.9,84,2,570,0)="S PRCHFCP=+$P(^PRC(443.6,DA(1),0),U,3),PRCHN(""COM"")=$S($D(^PRC(441.2,+X,0)):$P(^(0),U,4),1:"""") S:$E($P($G(^PRC(420,PRCHSTN,1,PRCHFCP,0)),U,18),1,2)=11 Y=41 S:(PRCHN(""COM"")'=1)&($E($P($G(^(0)),U,18),1,2)'=11) Y=4;9.3;"
^XMB(3.9,84,2,571,0)="""KRN"",.402,2666,""DR"",2,443.61,11)"
^XMB(3.9,84,2,572,0)="D TSTREQ2^PRCHNPO9;40;S Y=""@4"";41//^S Z=$S($D(^PRC(441,+$P(^PRC(443.6,DA(1),2,DA,0),U,5),3)):^(3),1:""""),X=$P(Z,U,7);@4;4;S PRCHIDA=+$P(^PRC(443.6,DA(1),2,DA,0),U,5),PRCHN(""SFC"")=+$P(^PRC(443.6,DA(1),0),U,19);"
^XMB(3.9,84,2,573,0)="""KRN"",.402,2666,""DR"",2,443.61,12)"
^XMB(3.9,84,2,574,0)="I PRCHN(""SFC"")=2 S ACCT=$$ACCT^PRCPUX1($E($$NSN^PRCPUX1(PRCHIDA),1,4)) S PRCHBOCC=$S(ACCT=1:2697,ACCT=2:2698,ACCT=3:2699,ACCT=6:2699,ACCT=8:2696,1:2699);I '$G(PRCHBOCC) S Y=""@87"";S PRCHBOCC=$P($G(^PRCD(420.2,PRCHBOCC,0)),U);"
^XMB(3.9,84,2,575,0)="""KRN"",.402,2666,""DR"",2,443.61,13)"
^XMB(3.9,84,2,576,0)="3.5////^S X=PRCHBOCC;S Y=""@89"";@87;3.5;@89;K PRCHBOCC,PRCHANS,PRCSAVE;S:'$D(PRCHEDI) Y=""@5"";36.3;36.6;@5;"
^XMB(3.9,84,2,577,0)="""KRN"",.402,2669,-1)"
^XMB(3.9,84,2,578,0)="0^7"
^XMB(3.9,84,2,579,0)="""KRN"",.402,2669,0)"
^XMB(3.9,84,2,580,0)="PRCHQ RFQ REQUEST^3060509.0853^@^444^^@^3060509"
^XMB(3.9,84,2,581,0)="""KRN"",.402,2669,""DIAB"",3,1,444.019,2)"
^XMB(3.9,84,2,582,0)="FEDERAL SUPPLY CLASSIFICATION;T;REQ"
^XMB(3.9,84,2,583,0)="""KRN"",.402,2669,""DIAB"",4,0,444,1)"
^XMB(3.9,84,2,584,0)="TRANSMIT TO 'PUBLIC';REQ"
^XMB(3.9,84,2,585,0)="""KRN"",.402,2669,""DIAB"",5,0,444,0)"
^XMB(3.9,84,2,586,0)="REFERENCE DATE//TODAY;REQ"
^XMB(3.9,84,2,587,0)="""KRN"",.402,2669,""DIAB"",7,0,444,0)"
^XMB(3.9,84,2,588,0)="REQD DELIVERY DATE;REQ"
^XMB(3.9,84,2,589,0)="""KRN"",.402,2669,""DIAB"",8,1,444.019,1)"
^XMB(3.9,84,2,590,0)="DESCRIPTION;REQ"
^XMB(3.9,84,2,591,0)="""KRN"",.402,2669,""DIAB"",9,0,444,0)"
^XMB(3.9,84,2,592,0)="QUOTE DUE DATE/TIME;REQ"
^XMB(3.9,84,2,593,0)="""KRN"",.402,2669,""DIAB"",9,1,444.019,2)"
^XMB(3.9,84,2,594,0)="BOC;REQ"
^XMB(3.9,84,2,595,0)="""KRN"",.402,2669,""DIAB"",11,1,444.019,1)"
^XMB(3.9,84,2,596,0)="SIC CODE;REQ"
^XMB(3.9,84,2,597,0)="""KRN"",.402,2669,""DIAB"",12,0,444,0)"
^XMB(3.9,84,2,598,0)="PRIORITY OF REQUEST;REQ"
^XMB(3.9,84,2,599,0)="""KRN"",.402,2669,""DIAB"",13,0,444,0)"
^XMB(3.9,84,2,600,0)="SHIP TO;REQ"
^XMB(3.9,84,2,601,0)="""KRN"",.402,2669,""DIAB"",14,0,444,0)"
^XMB(3.9,84,2,602,0)="DELIVER TO;REQ"
^XMB(3.9,84,2,603,0)="""KRN"",.402,2669,""DIAB"",15,0,444,0)"
^XMB(3.9,84,2,604,0)="FOB;REQ"
^XMB(3.9,84,2,605,0)="""KRN"",.402,2669,""DR"",1,444)"
^XMB(3.9,84,2,606,0)="S:'$D(PRCDA) PRCDA=D0;S PRCRD=$P($G(^PRC(444,PRCDA,0)),U,2);S PRCRQD=$P($G(^PRC(444,PRCDA,1)),U,2);Q;1R~//^S X=DT;S PRCRD=X;13R~;S PRCRQD=X;2R~;S Y=$$QUOTEDUE^PRCHQ1C(X,PRCRD,PRCRQD) S:Y="""" Y=""@1"";@1;5R~;14R~;15R~;12R~;17.5;3;"
^XMB(3.9,84,2,607,0)="""KRN"",.402,2669,""DR"",1,444,1)"
^XMB(3.9,84,2,608,0)="I $P($G(^VA(200,X,.13)),U,5)="""" W !,""Contracting Officer lacks Commercial Phone #"" S Y=3;19;20;20.5R~;16;S:$$ADMCERT^PRCHQ1C(PRCDA)]"""" Y=0;17;"
^XMB(3.9,84,2,609,0)="""KRN"",.402,2669,""DR"",2,444.01)"
^XMB(3.9,84,2,610,0)=".01;S PRCVEN=X;1;I $G(X)'="""" S Y=$$METHOD^PRCHQ1C(X,PRCVEN) S:Y="""" Y=""@4"";@4;"
^XMB(3.9,84,2,611,0)="""KRN"",.402,2669,""DR"",2,444.019)"
^XMB(3.9,84,2,612,0)="S PRCDA2=D1;S PRCITMO=$P($G(^PRC(444,PRCDA,2,PRCDA2,0)),U,4);.01;K PRCSAVE;1;I X=""""&($L($P($G(^PRC(444,PRCDA,2,PRCDA2,0)),U,5))=4) S PRCSAVE=""G"",Y=""@5"";I X=""""&($L($P($G(^PRC(444,PRCDA,2,PRCDA2,0)),U,5))=5) S PRCSAVE=""S"",Y=""@5"";"
^XMB(3.9,84,2,613,0)="""KRN"",.402,2669,""DR"",2,444.019,1)"
^XMB(3.9,84,2,614,0)="I X=""""&($G(PRCSAVE)="""") D ^PRCHAAC4 I $D(PRCHANS) S PRCSAVE=PRCHANS;@5;I $G(PRCSAVE)=""^"" K PRCHANS,PRCSAVE S Y=0;S PRCIEN=X;D:PRCIEN'=PRCITMO STUFFITM^PRCHQ1C(X,PRCDA,PRCDA2);S PRCITMO=PRCIEN;1.6;1.5R~;3;2;6R~;7;5;"
^XMB(3.9,84,2,615,0)="""KRN"",.402,2669,""DR"",2,444.019,2)"
^XMB(3.9,84,2,616,0)="S Y=$$NSN^PRCHQ1C(X) S:Y="""" Y=""@3"";@3;4R~T~;I $G(PRCSAVE)'=""^"" D EN101^PRCHNPO7;8;9;10;12;12.5R~;K PRCHANS,PRCSAVE;20;S Y=$$DELTOTAL^PRCHQ1C(PRCDA,PRCDA2) S:Y="""" Y=""@2"";@2;"
^XMB(3.9,84,2,617,0)="""KRN"",.402,2669,""DR"",3,444.039)"
^XMB(3.9,84,2,618,0)=".01;1;2;3;"
^XMB(3.9,84,2,619,0)="""KRN"",.402,2673,-1)"
^XMB(3.9,84,2,620,0)="0^4"
^XMB(3.9,84,2,621,0)="""KRN"",.402,2673,0)"
^XMB(3.9,84,2,622,0)="PRCH PC DIRECT DELIVERY^3060515.0902^^442^^^3060515"
^XMB(3.9,84,2,623,0)="""KRN"",.402,2673,""DIAB"",3,0,442,3)"
^XMB(3.9,84,2,624,0)="SUBSTATION;REQ"
^XMB(3.9,84,2,625,0)="""KRN"",.402,2673,""DIAB"",6,0,442,8)"
^XMB(3.9,84,2,626,0)="PCDO VENDOR;REQ"
^XMB(3.9,84,2,627,0)="""KRN"",.402,2673,""DIAB"",7,1,442.01,9)"
^XMB(3.9,84,2,628,0)="FEDERAL SUPPLY CLASSIFICATION;T"
^XMB(3.9,84,2,629,0)="""KRN"",.402,2673,""DR"",1,442)"
^XMB(3.9,84,2,630,0)="Q:'$D(PRC(""SITE""));S (PRCHN(""SVC""),PRCHN(""CC""),PRCHN(""SC""),PRCHN(""INV""))="""",PRCHN(""SFC"")=+$P(^PRC(442,DA,0),U,19),PRCHN(""FOB"")=$S($D(^(1)):$P(^(1),U,6),1:""""),PRCHN(12)=$S($D(^PRC(442,DA,12)):^(12),1:"""");"
^XMB(3.9,84,2,631,0)="""KRN"",.402,2673,""DR"",1,442,1)"
^XMB(3.9,84,2,632,0)="S PRCHNVF="""",PRCHPONO=$P(^PRC(442,DA,0),U,1),PRCHSTN=$P(PRCHPONO,""-"") S PRCHIEN=DA;S PRCX=$O(^PRC(411,PRC(""SITE""),1,0)) S:$G(PRCX)]"""" PRCY=$P($G(^PRC(411,PRC(""SITE""),1,PRCX,0)),U) K PRCX;D EN2^PRCHNPO6;"
^XMB(3.9,84,2,633,0)="""KRN"",.402,2673,""DR"",1,442,2)"
^XMB(3.9,84,2,634,0)="S PRCHDUZ=$P(^VA(200,DUZ,0),U,1);16////^S X=DUZ;56////^S X=DUZ;.02///^S X=25;48///^S X=""P"";63///^S X=1;S X=$P($G(^PRC(442,DA,1)),U) I X>0,$P($G(^PRC(440,X,3)),U,2)=""Y"" S PRCHEDI="""";I '$D(^PRC(411,""UP"",PRC(""SITE""))) S Y=.1;"
^XMB(3.9,84,2,635,0)="""KRN"",.402,2673,""DR"",1,442,3)"
^XMB(3.9,84,2,636,0)="S OSUB=$P($G(^PRC(442,DA,23)),U,7);I $D(^PRCS(410,+$P(^PRC(442,DA,0),""^"",12),0)) S X=$P($G(^(0)),U,10) I +X=OSUB W !,""SUBSTATION: "",$P(^PRC(411,$P(^PRC(442,DA,23),U,7),0),U) S Y=.1;31R~;"
^XMB(3.9,84,2,637,0)="""KRN"",.402,2673,""DR"",1,442,4)"
^XMB(3.9,84,2,638,0)="I $D(^PRCS(410,+$P(^PRC(442,DA,0),""^"",12),0)) I X'=OSUB W !,?5,""Sub-station cannot be changed because the attached 2237"",!,?5,""would then have a different sub-station."",! S $P(^PRC(442,DA,23),U,7)=OSUB S Y=31;"
^XMB(3.9,84,2,639,0)="""KRN"",.402,2673,""DR"",1,442,5)"
^XMB(3.9,84,2,640,0)="S PRCX=$O(^PRC(411,X,1,0)) S:$G(PRCX)]"""" PRCY=$P($G(^PRC(411,X,1,PRCX,0)),U) K PRCX;Q;.1//TODAY;S PRCHN(""MP"")=$S($D(^PRCD(442.5,+X,0)):$P(^(0),U,3),1:""""),PRCHN(""INV"")=$S(PRCHN(""INV"")]"""":PRCHN(""INV""),1:""FMS"");"
^XMB(3.9,84,2,641,0)="""KRN"",.402,2673,""DR"",1,442,6)"
^XMB(3.9,84,2,642,0)="S PRCHCDNO=$P($G(^PRC(442,DA,23)),U,8);D LOOK^PRCSPC;I (X="""")!(X[""^"") S ERRFLG=3,Y=0;I $G(PRCHXXX)="""" S ERRFLG=3,Y=0;46////^S X=$G(PRCHXXX);"
^XMB(3.9,84,2,643,0)="""KRN"",.402,2673,""DR"",1,442,7)"
^XMB(3.9,84,2,644,0)="I PRCHCDNO'="""",X'=PRCHCDNO W !,?5,""Please verify the accounting information for the new purchase card."",!;"
^XMB(3.9,84,2,645,0)="""KRN"",.402,2673,""DR"",1,442,8)"
^XMB(3.9,84,2,646,0)="I X]"""" S PRCHP0=^PRC(440.5,X,0),PRCHFCP=$P(PRCHP0,U,2),PRCHCC=$P(PRCHP0,U,3),PRCHBOC1=$P(PRCHP0,U,4),PRCHCD=$P(PRCHP0,U),PRCHCDNO=+X,PRCHHLDR=$P(PRCHP0,U,8);55///^S X=PRCHCD;.08//^S X=""N"";.04//^S X=PRCHN(""INV"");@33;53R~;"
^XMB(3.9,84,2,647,0)="""KRN"",.402,2673,""DR"",1,442,9)"
^XMB(3.9,84,2,648,0)="I $P($G(^PRC(440,($P(^PRC(442,D0,23),U,14)),2)),U,11)'=""Y"" W !,?5,""This vendor is not a guarenteed delivery vendor."" S $P(^PRC(442,DA,23),U,14)="""" K X S Y=""@33"";"
^XMB(3.9,84,2,649,0)="""KRN"",.402,2673,""DR"",1,442,10)"
^XMB(3.9,84,2,650,0)="S PRCHOV3=$G(^PRC(440,+^PRC(442,D0,1),3)) S:$P(PRCHOV3,""^"",12)=""P"" Y=""@20"";I $G(PRCFLAG)=1 S $P(^PRC(442,DA,23),U,14)="""" K X S Y=53;S PRCHVEN=+X;5////^S X=PRCHVEN;@20;18.6//^S X=""N"";I X=""N"" S Y=""@10"";18.7;@10;8//^S X=PRCHN(""SC"");"
^XMB(3.9,84,2,651,0)="""KRN"",.402,2673,""DR"",1,442,11)"
^XMB(3.9,84,2,652,0)="I ""46910""'[X K:0 DIC(""DR"") D ^PRCHNPO3 S Y=""@1"";.25;D ^PRCHNPO3;@1;1//^S X=PRCHFCP;I $D(^PRCS(410,+$P(^PRC(442,DA,0),""^"",12),0)) S X=$P($P(^(0),U,1),""-"",4) I +X=+$P(^PRC(442,DA,0),U,3) W !,""FCP: "",$P(^(0),U,3) S Y=""@2"";S X=PRCHFCP;"
^XMB(3.9,84,2,653,0)="""KRN"",.402,2673,""DR"",1,442,12)"
^XMB(3.9,84,2,654,0)="S PRCHN(""SFC"")=$P(^PRC(442,DA,0),U,19) I PRCHN(""SFC"")'="""" W !,""You cannot use a special control point for this type of order."" S Y=""@1"";S PRC(""CP"")=$P(^PRC(442,DA,0),U,3);@2;"
^XMB(3.9,84,2,655,0)="""KRN"",.402,2673,""DR"",1,442,13)"
^XMB(3.9,84,2,656,0)="I $G(PRC(""BBFY""))="""" S PRC(""BBFY"")=$$BBFY^PRCSUT(PRC(""SITE""),PRC(""FY""),$P(^PRC(442,DA,0),U,3));26///^S X=PRC(""BBFY"");D EN2^PRCHNPO3;2//^S X=PRCHCC;@88;5.2//^S X=PRCHN(""SVC"");I $D(^PRC(442,DA,1)),$P(^(1),U,18)]"""" S Y=""@3"";"
^XMB(3.9,84,2,657,0)="""KRN"",.402,2673,""DR"",1,442,14)"
^XMB(3.9,84,2,658,0)=".3//^S X=""E"";@3;52;5.3;5.6////^S X=""PATIENT"";5.4;6.2;6.4;S PRCHN(""FOB"")=X;Q;7//TODAY+10;8.2//^S X=""N/A"";8.3;13;S PRCHSHP=+X;I $P(^PRC(442,DA,0),U,19)'=2 S Y=""@98"";S PRCHSBOC=$P($G(^PRCD(420.2,2299,0)),U);13.05////^S X=PRCHSBOC;"
^XMB(3.9,84,2,659,0)="""KRN"",.402,2673,""DR"",1,442,15)"
^XMB(3.9,84,2,660,0)="S Y=""@100"";@98;13.05;@100;S:'$D(PRCHSHP) PRCHSHP=$P(^PRC(442,DA,0),U,13) I '(PRCHN(""FOB"")=""O""&((PRCHSHP>250)!(PRCHSHP=0))) S Y=""@99"";13.2;13.4;13.3;@99;97//^S X=""A"";16//^S X=$S($D(PRCHDUZ):PRCHDUZ,1:"""");"
^XMB(3.9,84,2,661,0)="""KRN"",.402,2673,""DR"",1,442,16)"
^XMB(3.9,84,2,662,0)="S PRCHDUZ1=X I $P(^PRC(442,DA,0),U,2)=25,'$D(^PRC(440.5,""H"",X)) W *7,!,""This user is not a purchase card user."" S Y=16;61////^S X=PRCHDUZ1;@25;K PRCHDUZ,PRCHDUZ1;40;24;20;K PRCHANS,PRCHTPO,PRCHSEEN,PRCHMORE,PRCHQTY,PRCSAVE;"
^XMB(3.9,84,2,663,0)="""KRN"",.402,2673,""DR"",2,442.01)"
^XMB(3.9,84,2,664,0)="S PRCHREC=DA,PRCHQUAN="""",Z="""",PRCHTOT=0;.01;K PRCSAVE;S PRCHINUM=DA,PRCHOLD=$P($G(^PRC(442,PRCHIEN,2,PRCHINUM,0)),U,2);1.5;I X=""""&($L($P($G(^PRC(442,DA(1),2,DA,2)),U,3))=4) S PRCSAVE=""G"",Y=""@101"";"
^XMB(3.9,84,2,665,0)="""KRN"",.402,2673,""DR"",2,442.01,1)"
^XMB(3.9,84,2,666,0)="I X=""""&($L($P($G(^PRC(442,DA(1),2,DA,2)),U,3))=5) S PRCSAVE=""S"",Y=""@101"";I X=""""&($G(PRCSAVE)="""") D ^PRCHAAC4 I $D(PRCHANS) S PRCSAVE=PRCHANS;@101;I $G(PRCSAVE)=""^"" K PRCHANS,PRCSAVE S Y=0;1;"
^XMB(3.9,84,2,667,0)="""KRN"",.402,2673,""DR"",2,442.01,2)"
^XMB(3.9,84,2,668,0)="I '$D(^PRC(442,DA(1),2,DA,1)) W $C(7),!,""Description is Required!!"" S Y=1;I $D(^PRC(442,DA(1),1)) S Z=$S($D(^PRC(441,+$P(^PRC(442,DA(1),2,DA,0),U,5),2,+^PRC(442,DA(1),1),0)):^(0),1:"""");"
^XMB(3.9,84,2,669,0)="""KRN"",.402,2673,""DR"",2,442.01,3)"
^XMB(3.9,84,2,670,0)="I Z'="""" W:$P(Z,U,12)'="""" !,""    Minimum Order Qty.: "",$P(Z,U,12) W:$P(Z,U,9) !,""    Maximum Order Qty.: "",$P(Z,U,9) W:$P(Z,U,11) !,""    Required Order Multiple: "",$P(Z,U,11) S PRCHQUAN=Z K Z;"
^XMB(3.9,84,2,671,0)="""KRN"",.402,2673,""DR"",2,442.01,4)"
^XMB(3.9,84,2,672,0)="2//^S X=$S($P(PRCHQUAN,U,12)'="""":$P(PRCHQUAN,U,12),$P(PRCHQUAN,U,11)'="""":$P(PRCHQUAN,U,11),1:"""");I X<PRCHOLD N I F I=0:0 S I=$O(^PRC(442.8,""AC"",PRCHPONO,PRCHINUM,I)) Q:'I  S PRCHTOT=PRCHTOT+$P($G(^PRC(442.8,I,0)),U,5);"
^XMB(3.9,84,2,673,0)="""KRN"",.402,2673,""DR"",2,442.01,5)"
^XMB(3.9,84,2,674,0)="I $G(PRCHTOT)>X W !!!!!,$C(7),""****Delivery schedule total for this item ("",PRCHTOT,"") EXCEEDS order quantity ("",X,"")."",!,""Edit delivery schedule(s) now."" S PRCHFLG=1,PRCHQTY=X S Y=""@16"";@44;"
^XMB(3.9,84,2,675,0)="""KRN"",.402,2673,""DR"",2,442.01,6)"
^XMB(3.9,84,2,676,0)="I $P(PRCHQUAN,U,12)'="""" I X<$P(PRCHQUAN,U,12) W !,""QUANTITY is less than the Minimum Order Quantity of "",$P(PRCHQUAN,U,12),$C(7) S Y=2;"
^XMB(3.9,84,2,677,0)="""KRN"",.402,2673,""DR"",2,442.01,7)"
^XMB(3.9,84,2,678,0)="I $P(PRCHQUAN,U,9)'="""" I X>$P(PRCHQUAN,U,9) W !,""QUANTITY is more than the Maximum Order Quantity of "",$P(PRCHQUAN,U,9),$C(7) S Y=2;"
^XMB(3.9,84,2,679,0)="""KRN"",.402,2673,""DR"",2,442.01,8)"
^XMB(3.9,84,2,680,0)="I $P(PRCHQUAN,U,11)'="""" I X#$P(PRCHQUAN,U,11)'=0 W !,""QUANTITY is not a Required Order Multiple value of "",$P(PRCHQUAN,U,11),$C(7) S Y=2;3;5;I $D(^PRC(442,DA(1),1)),$P(^(1),U,20)=""Y"" S Y=""@6"";D TSTREQ1^PRCHNPO9;3.1;9.4;S:X']"""" Y=9;"
^XMB(3.9,84,2,681,0)="""KRN"",.402,2673,""DR"",2,442.01,9)"
^XMB(3.9,84,2,682,0)="S DIE(""NO^"")=""A"";9.7;K DIE(""NO^"");9;9.5;@6;8T~;I $G(PRCSAVE)'=""^"" D EN10^PRCHNPO7;"
^XMB(3.9,84,2,683,0)="""KRN"",.402,2673,""DR"",2,442.01,10)"
^XMB(3.9,84,2,684,0)="S PRCHFCP=+$P(^PRC(442,DA(1),0),U,3),PRCHN(""COM"")=$S($D(^PRC(441.2,+X,0)):$P(^(0),U,4),1:"""") S:$E($P($G(^PRC(420,PRCHSTN,1,PRCHFCP,0)),U,18),1,2)=11 Y=41 S:(PRCHN(""COM"")'=1)&($E($P($G(^(0)),U,18),1,2)'=11) Y=4;9.3;"
^XMB(3.9,84,2,685,0)="""KRN"",.402,2673,""DR"",2,442.01,11)"
^XMB(3.9,84,2,686,0)="D TSTREQ2^PRCHNPO9;40;41//^S Z=$S($D(^PRC(441,+$P(^PRC(442,DA(1),2,DA,0),U,5),3)):^(3),1:""""),X=$P(Z,U,7);42;4;@87;36.3;36.6;@5;"
^XMB(3.9,84,2,687,0)="""KRN"",.402,2673,""DR"",2,442.01,12)"
^XMB(3.9,84,2,688,0)="S PRCHTOT=0,PRCHSCN="""" F I=0:0 S PRCHSCN=$O(^PRC(442.8,""B"",PRCHPONO,PRCHSCN)) Q:PRCHSCN=""""  I $P(^PRC(442.8,PRCHSCN,0),U,2)=DA S PRCHTOT=PRCHTOT+$P(^(0),U,5);S PRCHQTY=$P(^PRC(442,DA(1),2,DA,0),U,2);"
^XMB(3.9,84,2,689,0)="""KRN"",.402,2673,""DR"",2,442.01,13)"
^XMB(3.9,84,2,690,0)="I PRCHTOT>PRCHQTY S PRCHDA1=DA(1),PRCHDA=DA,PRCHLINO=$P(^PRC(442,DA(1),2,PRCHREC,0),U) W !,""Line Item # = "",PRCHLINO,!,""Orig. Quantity Ordered: ""_$P(^PRC(442,DA(1),2,PRCHREC,0),U,2),! S Y=""@555"";"
^XMB(3.9,84,2,691,0)="""KRN"",.402,2673,""DR"",2,442.01,14)"
^XMB(3.9,84,2,692,0)="W !!,""Enter/Edit Delivery Schedule for this Item?  NO// "" R X:DTIME S:'$T X=""^"" S:X="""" X=""N"" S:X[""?"" Y=""@5"" S:""Yy?""'[$E(X) Y=""@56"" W ""  ""_$S(""Yy""[$E(X):""(YES)"",""Nn""[$E(X):""(NO)"",1:"""");@16;"
^XMB(3.9,84,2,693,0)="""KRN"",.402,2673,""DR"",2,442.01,15)"
^XMB(3.9,84,2,694,0)="S PRCHDA1=DA(1),PRCHDA=DA,PRCHLINO=$P(^PRC(442,DA(1),2,PRCHREC,0),U) W !,""Line Item #="",PRCHLINO,!,""Orig. Quantity Ordered: ""_$P(^PRC(442,DA(1),2,PRCHREC,0),U,2),!;"
^XMB(3.9,84,2,695,0)="""KRN"",.402,2673,""DR"",2,442.01,16)"
^XMB(3.9,84,2,696,0)="I PRCHTOT=PRCHQTY W !,""Delivery schedule quantity of "",PRCHTOT,"" equals order quantity of "",PRCHQTY,""."",!,""You may edit delivery schedule(s), but cannot add a new schedule."",!;@555;"
^XMB(3.9,84,2,697,0)="""KRN"",.402,2673,""DR"",2,442.01,17)"
^XMB(3.9,84,2,698,0)="I PRCHTOT>PRCHQTY W !,""Delivery schedule quantity of "",PRCHTOT,"" EXCEEDS order quantity of "",PRCHQTY,"".  You must edit"",!,""one or more schedules so that the total equals no more than "",PRCHQTY,""."",! S Y=""@55"";"
^XMB(3.9,84,2,699,0)="""KRN"",.402,2673,""DR"",2,442.01,18)"
^XMB(3.9,84,2,700,0)="S:$D(PRCHSEEN) Y=""@55"";S PRCHSEEN=1 W !!,""To delete a schedule, zero out the quantity to be delivered. To add a new"",!,""delivery schedule do the following:"",!!;"
^XMB(3.9,84,2,701,0)="""KRN"",.402,2673,""DR"",2,442.01,19)"
^XMB(3.9,84,2,702,0)="W ""a. If there is no delivery schedule already in file answer 'Yes' when asked if     you are adding a new delivery schedule."";"
^XMB(3.9,84,2,703,0)="""KRN"",.402,2673,""DR"",2,442.01,20)"
^XMB(3.9,84,2,704,0)="W !,""b. If there is only one delivery schedule already in the file you will see         'OK? YES//' answer 'No' and then answer 'Yes' when asked if you are adding a    new delivery schedule."";"
^XMB(3.9,84,2,705,0)="""KRN"",.402,2673,""DR"",2,442.01,21)"
^XMB(3.9,84,2,706,0)="W !,""c. If there is more than one delivery schedule in the file, hit <return> key at    'CHOOSE' prompt and answer 'Yes' when asked if you are adding a new delivery    schedule."";@55;"
^XMB(3.9,84,2,707,0)="""KRN"",.402,2673,""DR"",2,442.01,22)"
^XMB(3.9,84,2,708,0)="S:$G(PRCHDA) PRCHINUM=PRCHDA S PRCHQTY=$P(^PRC(442,PRCHIEN,2,PRCHINUM,0),U,2);"
^XMB(3.9,84,2,709,0)="""KRN"",.402,2673,""DR"",2,442.01,23)"
^XMB(3.9,84,2,710,0)="I $G(PRCHFLG),PRCHTOT>PRCHQTY W !!,""Delivery schedule total of "",PRCHTOT,"" EXCEEDS ordered quantity."",!,""of "",PRCHQTY,"".  Adjust delivery schedule(s)."" S Y=""@16"";"
^XMB(3.9,84,2,711,0)="""KRN"",.402,2673,""DR"",2,442.01,24)"
^XMB(3.9,84,2,712,0)="I $G(PRCHFLG) S PRCHFLG=0 W !!!!,""****Returning to Item Multiple edit session."" S Y=""@44"";I PRCHTOT>PRCHQTY S Y=""@555"";"
^XMB(3.9,84,2,713,0)="""KRN"",.402,2673,""DR"",2,442.01,25)"
^XMB(3.9,84,2,714,0)="W !!,""Enter/Edit Another Delivery Schedule for this Item? NO// "" R X:DTIME S:'$T X=""^"" S:X="""" X=""N"" S:X[""?"" Y=""@5"" S:""Yy?""[$E(X) Y=""@16"";@56;K PRCHTOT,PRCHSCN;3.5;"
^XMB(3.9,84,2,715,0)="""KRN"",.402,2673,""DR"",2,442.12)"
^XMB(3.9,84,2,716,0)=".01;"
^XMB(3.9,84,2,717,0)="""KRN"",.402,2673,""DR"",2,442.15)"
^XMB(3.9,84,2,718,0)=".01;"
^XMB(3.9,84,2,719,0)="""MBREQ"")"
^XMB(3.9,84,2,720,0)="0"
^XMB(3.9,84,2,721,0)="""ORD"",7,.402)"
^XMB(3.9,84,2,722,0)=".402;7;;;EDEOUT^DIFROMSO(.402,DA,"""",XPDA);FPRE^DIFROMSI(.402,"""",XPDA);EPRE^DIFROMSI(.402,DA,$E(""N"",$G(XPDNEW)),XPDA,"""",OLDA);;EPOST^DIFROMSI(.402,DA,"""",XPDA);DEL^DIFROMSK(.402,"""",%)"
^XMB(3.9,84,2,723,0)="""ORD"",7,.402,0)"
^XMB(3.9,84,2,724,0)="INPUT TEMPLATE"
^XMB(3.9,84,2,725,0)="""PKG"",455,-1)"
^XMB(3.9,84,2,726,0)="1^1"
^XMB(3.9,84,2,727,0)="""PKG"",455,0)"
^XMB(3.9,84,2,728,0)="IFCAP^PRC^IFCAP System Files"
^XMB(3.9,84,2,729,0)="""PKG"",455,20,0)"
^XMB(3.9,84,2,730,0)="^9.402P^^"
^XMB(3.9,84,2,731,0)="""PKG"",455,22,0)"
^XMB(3.9,84,2,732,0)="^9.49I^1^1"
^XMB(3.9,84,2,733,0)="""PKG"",455,22,1,0)"
^XMB(3.9,84,2,734,0)="5.1^3001012^3001019^68"
^XMB(3.9,84,2,735,0)="""PKG"",455,22,1,""PAH"",1,0)"
^XMB(3.9,84,2,736,0)="100^3060705"
^XMB(3.9,84,2,737,0)="""PKG"",455,22,1,""PAH"",1,1,0)"
^XMB(3.9,84,2,738,0)="^^2^2^3060705"
^XMB(3.9,84,2,739,0)="""PKG"",455,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,84,2,740,0)="This patch addresses issues with the new functionality introduced by the "
^XMB(3.9,84,2,741,0)="""PKG"",455,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,84,2,742,0)="patch PRC*5.1*79 and reported via the Remedy system."
^XMB(3.9,84,2,743,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,84,2,744,0)="Y"
^XMB(3.9,84,2,745,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,84,2,746,0)="^D REP^XPDH"
^XMB(3.9,84,2,747,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,84,2,748,0)="Shall I write over your |FLAG| File"
^XMB(3.9,84,2,749,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,84,2,750,0)="YES"
^XMB(3.9,84,2,751,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,84,2,752,0)="D XPF1^XPDIQ"
^XMB(3.9,84,2,753,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,84,2,754,0)="Y"
^XMB(3.9,84,2,755,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,84,2,756,0)="^D DTA^XPDH"
^XMB(3.9,84,2,757,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,84,2,758,0)="Want my data |FLAG| yours"
^XMB(3.9,84,2,759,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,84,2,760,0)="YES"
^XMB(3.9,84,2,761,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,84,2,762,0)="D XPF2^XPDIQ"
^XMB(3.9,84,2,763,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,84,2,764,0)="YO"
^XMB(3.9,84,2,765,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,84,2,766,0)="^D INHIBIT^XPDH"
^XMB(3.9,84,2,767,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,84,2,768,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,84,2,769,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,84,2,770,0)="YES"
^XMB(3.9,84,2,771,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,84,2,772,0)="D XPI1^XPDIQ"
^XMB(3.9,84,2,773,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,84,2,774,0)="PO^VA(200,:EM"
^XMB(3.9,84,2,775,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,84,2,776,0)="^D MG^XPDH"
^XMB(3.9,84,2,777,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,84,2,778,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,84,2,779,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,84,2,780,0)=""
^XMB(3.9,84,2,781,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,84,2,782,0)="D XPM1^XPDIQ"
^XMB(3.9,84,2,783,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,84,2,784,0)="Y"
^XMB(3.9,84,2,785,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,84,2,786,0)="^D MENU^XPDH"
^XMB(3.9,84,2,787,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,84,2,788,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,84,2,789,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,84,2,790,0)="YES"
^XMB(3.9,84,2,791,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,84,2,792,0)="D XPO1^XPDIQ"
^XMB(3.9,84,2,793,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,84,2,794,0)="Y"
^XMB(3.9,84,2,795,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,84,2,796,0)="^D OPT^XPDH"
^XMB(3.9,84,2,797,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,84,2,798,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,84,2,799,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,84,2,800,0)="YES"
^XMB(3.9,84,2,801,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,84,2,802,0)="D XPZ1^XPDIQ"
^XMB(3.9,84,2,803,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,84,2,804,0)="Y"
^XMB(3.9,84,2,805,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,84,2,806,0)="^D RTN^XPDH"
^XMB(3.9,84,2,807,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,84,2,808,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,84,2,809,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,84,2,810,0)="NO"
^XMB(3.9,84,2,811,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,84,2,812,0)="D XPZ2^XPDIQ"
^XMB(3.9,84,2,813,0)="""RTN"")"
^XMB(3.9,84,2,814,0)="7"
^XMB(3.9,84,2,815,0)="""RTN"",""PRCHAAC4"")"
^XMB(3.9,84,2,816,0)="0^1^B963460^n/a"
^XMB(3.9,84,2,817,0)="""RTN"",""PRCHAAC4"",1,0)"
^XMB(3.9,84,2,818,0)="PRCHAAC4 ;WIFO/CR-General Questions Utility ;7/8/05 1:43 PM"
^XMB(3.9,84,2,819,0)="""RTN"",""PRCHAAC4"",2,0)"
^XMB(3.9,84,2,820,0)="V ;;5.1;IFCAP;**79,100**;Oct 20, 2000"
^XMB(3.9,84,2,821,0)="""RTN"",""PRCHAAC4"",3,0)"
^XMB(3.9,84,2,822,0)=" ;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,84,2,823,0)="""RTN"",""PRCHAAC4"",4,0)"
^XMB(3.9,84,2,824,0)=" ;"
^XMB(3.9,84,2,825,0)="""RTN"",""PRCHAAC4"",5,0)"
^XMB(3.9,84,2,826,0)=" ;This routine is called from the input template for Detailed purchase"
^XMB(3.9,84,2,827,0)="""RTN"",""PRCHAAC4"",6,0)"
^XMB(3.9,84,2,828,0)=" ;card and any other place where the field Federal Supply Classification"
^XMB(3.9,84,2,829,0)="""RTN"",""PRCHAAC4"",7,0)"
^XMB(3.9,84,2,830,0)=" ;is used. It is also used in combination with tags EN10-EN101 of"
^XMB(3.9,84,2,831,0)="""RTN"",""PRCHAAC4"",8,0)"
^XMB(3.9,84,2,832,0)=" ;PRCHNPO7. The variable PRCHANS is not killed here. Instead, it is "
^XMB(3.9,84,2,833,0)="""RTN"",""PRCHAAC4"",9,0)"
^XMB(3.9,84,2,834,0)=" ;killed within various PO input templates where it is used."
^XMB(3.9,84,2,835,0)="""RTN"",""PRCHAAC4"",10,0)"
^XMB(3.9,84,2,836,0)=" N L,M,X"
^XMB(3.9,84,2,837,0)="""RTN"",""PRCHAAC4"",11,0)"
^XMB(3.9,84,2,838,0)=" S L(1)=$TR($J("""",60),"" "",""-"")"
^XMB(3.9,84,2,839,0)="""RTN"",""PRCHAAC4"",12,0)"
^XMB(3.9,84,2,840,0)=" S L(2)=""     Select one Item Type: Goods (G)  or  Services (S)"""
^XMB(3.9,84,2,841,0)="""RTN"",""PRCHAAC4"",13,0)"
^XMB(3.9,84,2,842,0)=" S L(3)=$TR($J("""",60),"" "",""-"")"
^XMB(3.9,84,2,843,0)="""RTN"",""PRCHAAC4"",14,0)"
^XMB(3.9,84,2,844,0)=" S M(1)=""     Answer with G, g, S, s, or '^' to exit"""
^XMB(3.9,84,2,845,0)="""RTN"",""PRCHAAC4"",15,0)"
^XMB(3.9,84,2,846,0)=" ;"
^XMB(3.9,84,2,847,0)="""RTN"",""PRCHAAC4"",16,0)"
^XMB(3.9,84,2,848,0)=" D FT^PRC0A(.L,.M,""     Enter an Item Type"","""","""")"
^XMB(3.9,84,2,849,0)="""RTN"",""PRCHAAC4"",17,0)"
^XMB(3.9,84,2,850,0)=" S X=$E(L,1,1) X ""F %=1:1:$L(X) S:$E(X,%)?1L X=$E(X,0,%-1)_$C($A(X,%)-32)_$E(X,%+1,999)"" S L=X"
^XMB(3.9,84,2,851,0)="""RTN"",""PRCHAAC4"",18,0)"
^XMB(3.9,84,2,852,0)=" I ""GS^""'[L G V"
^XMB(3.9,84,2,853,0)="""RTN"",""PRCHAAC4"",19,0)"
^XMB(3.9,84,2,854,0)=" S PRCHANS=L"
^XMB(3.9,84,2,855,0)="""RTN"",""PRCHAAC4"",20,0)"
^XMB(3.9,84,2,856,0)=" QUIT"
^XMB(3.9,84,2,857,0)="""RTN"",""PRCHAMYB"")"
^XMB(3.9,84,2,858,0)="0^5^B25029264^B24352836"
^XMB(3.9,84,2,859,0)="""RTN"",""PRCHAMYB"",1,0)"
^XMB(3.9,84,2,860,0)="PRCHAMYB ;WISC/DJM-MOVING AMENDMENT INFO FROM 443.6 TO 442 ;4/4/95  10:57 AM"
^XMB(3.9,84,2,861,0)="""RTN"",""PRCHAMYB"",2,0)"
^XMB(3.9,84,2,862,0)="V ;;5.1;IFCAP;**79,100**;Oct 20, 2000"
^XMB(3.9,84,2,863,0)="""RTN"",""PRCHAMYB"",3,0)"
^XMB(3.9,84,2,864,0)=" ;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,84,2,865,0)="""RTN"",""PRCHAMYB"",4,0)"
^XMB(3.9,84,2,866,0)=" ;"
^XMB(3.9,84,2,867,0)="""RTN"",""PRCHAMYB"",5,0)"
^XMB(3.9,84,2,868,0)=" N PRCIEN,PRCIEN1,PRCDSL,PAT,PRCDS,PRCDATA,PRCAS,FLAG,DIC,X,DIK,PRCHIEN,LAST,%X,%Y,LOOP,LOOPVAL,DA,MESSG1,CHECKSUM,PRCHPO1,PRCHPOX,PRCHPO2,STATUS,FCP,IMF,O0,O1,PODATE,Y,PRCOPODA"
^XMB(3.9,84,2,869,0)="""RTN"",""PRCHAMYB"",6,0)"
^XMB(3.9,84,2,870,0)=" S PRCIEN=0 F  S PRCIEN=$O(^PRC(442,PRCHPO,6,PRCHAM,3,PRCIEN)) Q:PRCIEN'>0  D"
^XMB(3.9,84,2,871,0)="""RTN"",""PRCHAMYB"",7,0)"
^XMB(3.9,84,2,872,0)=" .S PRCIEN1=$G(^PRC(442,PRCHPO,6,PRCHAM,3,PRCIEN,0)) Q:PRCIEN1="""""
^XMB(3.9,84,2,873,0)="""RTN"",""PRCHAMYB"",8,0)"
^XMB(3.9,84,2,874,0)=" .S PRCDSL=$P(PRCIEN1,U,7) Q:PRCDSL'>0"
^XMB(3.9,84,2,875,0)="""RTN"",""PRCHAMYB"",9,0)"
^XMB(3.9,84,2,876,0)=" .S ^PRC(442,PRCHPO,6,PRCHAM,3,""AD"",PRCDSL,PRCIEN)="""""
^XMB(3.9,84,2,877,0)="""RTN"",""PRCHAMYB"",10,0)"
^XMB(3.9,84,2,878,0)=" .Q"
^XMB(3.9,84,2,879,0)="""RTN"",""PRCHAMYB"",11,0)"
^XMB(3.9,84,2,880,0)=" ;"
^XMB(3.9,84,2,881,0)="""RTN"",""PRCHAMYB"",12,0)"
^XMB(3.9,84,2,882,0)="COPY2 ;NOW TO COPY ANY DELIVERY SCHEDULES FROM 441.7 TO 442.8."
^XMB(3.9,84,2,883,0)="""RTN"",""PRCHAMYB"",13,0)"
^XMB(3.9,84,2,884,0)=" S FLAG=0,PAT=$P(^PRC(443.6,PRCHPO,0),U,1),PRCDS="""""
^XMB(3.9,84,2,885,0)="""RTN"",""PRCHAMYB"",14,0)"
^XMB(3.9,84,2,886,0)=" F  S PRCDS=$O(^PRC(441.7,""AG"",PAT,PRCDS)) Q:PRCDS'>0  D  Q:FLAG>0"
^XMB(3.9,84,2,887,0)="""RTN"",""PRCHAMYB"",15,0)"
^XMB(3.9,84,2,888,0)=" .S PRCDSL="""" F  S PRCDSL=$O(^PRC(441.7,""AG"",PAT,PRCDS,PRCDSL)) Q:PRCDSL'>0  D  Q:FLAG>0"
^XMB(3.9,84,2,889,0)="""RTN"",""PRCHAMYB"",16,0)"
^XMB(3.9,84,2,890,0)=" ..S PRCDATA=$G(^PRC(441.7,PRCDSL,0))"
^XMB(3.9,84,2,891,0)="""RTN"",""PRCHAMYB"",17,0)"
^XMB(3.9,84,2,892,0)=" ..S PRCAS=$P(PRCDATA,U,7)"
^XMB(3.9,84,2,893,0)="""RTN"",""PRCHAMYB"",18,0)"
^XMB(3.9,84,2,894,0)=" ..S PRCDATA=$P(PRCDATA,U,1,6)"
^XMB(3.9,84,2,895,0)="""RTN"",""PRCHAMYB"",19,0)"
^XMB(3.9,84,2,896,0)=" ..S PRCDELF=$P(PRCDATA,U,6)"
^XMB(3.9,84,2,897,0)="""RTN"",""PRCHAMYB"",20,0)"
^XMB(3.9,84,2,898,0)=" ..S:PRCAS>0&(PRCDELF="""") ^PRC(442.8,PRCAS,0)=PRCDATA"
^XMB(3.9,84,2,899,0)="""RTN"",""PRCHAMYB"",21,0)"
^XMB(3.9,84,2,900,0)=" ..I PRCAS>0&(PRCDELF=""D"") D"
^XMB(3.9,84,2,901,0)="""RTN"",""PRCHAMYB"",22,0)"
^XMB(3.9,84,2,902,0)=" ...S DIK=""^PRC(442.8,"""
^XMB(3.9,84,2,903,0)="""RTN"",""PRCHAMYB"",23,0)"
^XMB(3.9,84,2,904,0)=" ...S DA=PRCAS"
^XMB(3.9,84,2,905,0)="""RTN"",""PRCHAMYB"",24,0)"
^XMB(3.9,84,2,906,0)=" ...D ^DIK"
^XMB(3.9,84,2,907,0)="""RTN"",""PRCHAMYB"",25,0)"
^XMB(3.9,84,2,908,0)=" ...Q"
^XMB(3.9,84,2,909,0)="""RTN"",""PRCHAMYB"",26,0)"
^XMB(3.9,84,2,910,0)=" ..I PRCAS'>0 D  Q:FLAG>0"
^XMB(3.9,84,2,911,0)="""RTN"",""PRCHAMYB"",27,0)"
^XMB(3.9,84,2,912,0)=" ...S DIC=""^PRC(442.8,"",DIC(0)=""L"",X=PAT K DD,DO D FILE^DICN I Y'>0 W !,""An error has occurred while restoring file 442.8 for ""_PAT,!,"",item ""_PRCDS_""."" S FLAG=1 Q"
^XMB(3.9,84,2,913,0)="""RTN"",""PRCHAMYB"",28,0)"
^XMB(3.9,84,2,914,0)=" ...S PRCAS=$S(PRCAS>0:PRCAS,1:+Y),^PRC(442.8,PRCAS,0)=PRCDATA"
^XMB(3.9,84,2,915,0)="""RTN"",""PRCHAMYB"",29,0)"
^XMB(3.9,84,2,916,0)=" ..Q:FLAG>0"
^XMB(3.9,84,2,917,0)="""RTN"",""PRCHAMYB"",30,0)"
^XMB(3.9,84,2,918,0)=" ..S DIK=""^PRC(442.8,"",DA=$S(PRCAS>0:PRCAS,1:+Y) D IX^DIK"
^XMB(3.9,84,2,919,0)="""RTN"",""PRCHAMYB"",31,0)"
^XMB(3.9,84,2,920,0)=" ..S PRCHIEN=0 F  S PRCHIEN=$O(^PRC(442,PRCHPO,6,PRCHAM,3,""AD"",PRCDSL,PRCHIEN)) Q:PRCHIEN=""""  S $P(^PRC(442,PRCHPO,6,PRCHAM,3,PRCHIEN,0),U,7)=PRCAS"
^XMB(3.9,84,2,921,0)="""RTN"",""PRCHAMYB"",32,0)"
^XMB(3.9,84,2,922,0)=" ..Q"
^XMB(3.9,84,2,923,0)="""RTN"",""PRCHAMYB"",33,0)"
^XMB(3.9,84,2,924,0)=" .Q"
^XMB(3.9,84,2,925,0)="""RTN"",""PRCHAMYB"",34,0)"
^XMB(3.9,84,2,926,0)=" Q:FLAG>0"
^XMB(3.9,84,2,927,0)="""RTN"",""PRCHAMYB"",35,0)"
^XMB(3.9,84,2,928,0)="ROLL ;THIS WILL DO THE LINE ITEM ROLL-UP INTO ALL THE 'BOC's."
^XMB(3.9,84,2,929,0)="""RTN"",""PRCHAMYB"",36,0)"
^XMB(3.9,84,2,930,0)=" S LAST=0,%X=""^PRC(442,PRCHPO,22,"",%Y=""^PRC(443.6,PRCHPO,22,"" D %XY^%RCR"
^XMB(3.9,84,2,931,0)="""RTN"",""PRCHAMYB"",37,0)"
^XMB(3.9,84,2,932,0)=" S LOOP=0 F  S LOOP=$O(^PRC(442,PRCHPO,22,LOOP)) Q:LOOP'>0  D"
^XMB(3.9,84,2,933,0)="""RTN"",""PRCHAMYB"",38,0)"
^XMB(3.9,84,2,934,0)=" .S LOOPVAL=$G(^PRC(442,PRCHPO,22,LOOP,0)),$P(LOOPVAL,U,2)=0"
^XMB(3.9,84,2,935,0)="""RTN"",""PRCHAMYB"",39,0)"
^XMB(3.9,84,2,936,0)=" .S ^PRC(442,PRCHPO,22,LOOP,0)=LOOPVAL I $P(LOOPVAL,U,3)'=991,$P(LOOPVAL,U,3)>LAST S LAST=$P(LOOPVAL,U,3)"
^XMB(3.9,84,2,937,0)="""RTN"",""PRCHAMYB"",40,0)"
^XMB(3.9,84,2,938,0)=" .Q"
^XMB(3.9,84,2,939,0)="""RTN"",""PRCHAMYB"",41,0)"
^XMB(3.9,84,2,940,0)=" S DA=PRCHPO D ^PRCHAMYC,^PRCHSF1"
^XMB(3.9,84,2,941,0)="""RTN"",""PRCHAMYB"",42,0)"
^XMB(3.9,84,2,942,0)=" S (MESSG1,CHECKSUM)="""" D RECODE^PRCHES5(PRCHPO,CHECKSUM,.MESSG1)"
^XMB(3.9,84,2,943,0)="""RTN"",""PRCHAMYB"",43,0)"
^XMB(3.9,84,2,944,0)=" ;"
^XMB(3.9,84,2,945,0)="""RTN"",""PRCHAMYB"",44,0)"
^XMB(3.9,84,2,946,0)="CLEANUP ;THE CODE FOLLOWING THIS COMMENT WILL DELETE THE TEMPORARY FILE"
^XMB(3.9,84,2,947,0)="""RTN"",""PRCHAMYB"",45,0)"
^XMB(3.9,84,2,948,0)=" ;ENTRIES IN FILE 443.6 AND 441.7 FOR PRCHPO ENTRY FROM 442 AND 442.8"
^XMB(3.9,84,2,949,0)="""RTN"",""PRCHAMYB"",46,0)"
^XMB(3.9,84,2,950,0)=" ;FILES."
^XMB(3.9,84,2,951,0)="""RTN"",""PRCHAMYB"",47,0)"
^XMB(3.9,84,2,952,0)=" S PRCHPO1=$P($G(^PRC(443.6,PRCHPO,0)),U),PRCHPOX=$P($G(^PRC(443.6,PRCHPO,23)),U,4)"
^XMB(3.9,84,2,953,0)="""RTN"",""PRCHAMYB"",48,0)"
^XMB(3.9,84,2,954,0)=" I PRCHPOX]"""" S PRCHPO2=$P($G(^PRC(443.6,PRCHPOX,0)),U)"
^XMB(3.9,84,2,955,0)="""RTN"",""PRCHAMYB"",49,0)"
^XMB(3.9,84,2,956,0)=" K ^PRC(443.6,PRCHPO) I PRCHPOX>0 K ^PRC(443.6,PRCHPOX)"
^XMB(3.9,84,2,957,0)="""RTN"",""PRCHAMYB"",50,0)"
^XMB(3.9,84,2,958,0)=" K ^PRC(443.6,""E"",$P(PRCHPO1,""-"",2),PRCHPO),^PRC(443.6,""B"",PRCHPO1,PRCHPO),^PRC(443.6,""D"",PRCHPO),^PRC(443.6,""C"",PRCHPO,PRCHAM)"
^XMB(3.9,84,2,959,0)="""RTN"",""PRCHAMYB"",51,0)"
^XMB(3.9,84,2,960,0)=" I PRCHPOX>0 K ^PRC(443.6,""E"",$P(PRCHPO2,""-"",2),PRCHPOX),^PRC(443.6,""B"",PRCHPO2,PRCHPOX),^PRC(443.6,""D"",PRCHPOX),^PRC(443.6,""C"",PRCHPOX,PRCHAM)"
^XMB(3.9,84,2,961,0)="""RTN"",""PRCHAMYB"",52,0)"
^XMB(3.9,84,2,962,0)=" S PRCDS="""" F  S PRCDS=$O(^PRC(441.7,""B"",PRCHPO1,PRCDS)) Q:PRCDS'>0  D"
^XMB(3.9,84,2,963,0)="""RTN"",""PRCHAMYB"",53,0)"
^XMB(3.9,84,2,964,0)=" .S DIK=""^PRC(441.7,"",DA=PRCDS D ^DIK"
^XMB(3.9,84,2,965,0)="""RTN"",""PRCHAMYB"",54,0)"
^XMB(3.9,84,2,966,0)=" .Q"
^XMB(3.9,84,2,967,0)="""RTN"",""PRCHAMYB"",55,0)"
^XMB(3.9,84,2,968,0)=" ;"
^XMB(3.9,84,2,969,0)="""RTN"",""PRCHAMYB"",56,0)"
^XMB(3.9,84,2,970,0)="STATUS ;NOW TO UPDATE THE 'SUPPLY STATUS', FIELD .5.  THIS WILL UPDATE"
^XMB(3.9,84,2,971,0)="""RTN"",""PRCHAMYB"",57,0)"
^XMB(3.9,84,2,972,0)=" ;THE P.O. STATUS TO EQUAL THE LATEST AMENDMENT STATUS."
^XMB(3.9,84,2,973,0)="""RTN"",""PRCHAMYB"",58,0)"
^XMB(3.9,84,2,974,0)=" S STATUS=$P($G(^PRC(442,PRCHPO,6,PRCHAM,1)),U,4),DR="".5////^S X=STATUS"",DIE=""^PRC(442,"",DA=PRCHPO D ^DIE"
^XMB(3.9,84,2,975,0)="""RTN"",""PRCHAMYB"",59,0)"
^XMB(3.9,84,2,976,0)=" S PRCOPODA=PRCHPO_""^""_1_""^""_PRCHAM"
^XMB(3.9,84,2,977,0)="""RTN"",""PRCHAMYB"",60,0)"
^XMB(3.9,84,2,978,0)=" ; ...now generating the PHM transaction..."
^XMB(3.9,84,2,979,0)="""RTN"",""PRCHAMYB"",61,0)"
^XMB(3.9,84,2,980,0)=" D NEW^PRCOEDI ; set up & send PHM"
^XMB(3.9,84,2,981,0)="""RTN"",""PRCHAMYB"",62,0)"
^XMB(3.9,84,2,982,0)=" ; Create FPDS message for the AAC, PRC*5.1*79. Check if the order was"
^XMB(3.9,84,2,983,0)="""RTN"",""PRCHAMYB"",63,0)"
^XMB(3.9,84,2,984,0)=" ; amended but the total dollar amount did not. If there is a cancellation, then send the HL7 message."
^XMB(3.9,84,2,985,0)="""RTN"",""PRCHAMYB"",64,0)"
^XMB(3.9,84,2,986,0)=" ;PRC*5.1*100: check node 9 and the source code before sending PO to FPDS. Source codes 0,1,3, and 9 not required by FPDS - IEN stored in global."
^XMB(3.9,84,2,987,0)="""RTN"",""PRCHAMYB"",65,0)"
^XMB(3.9,84,2,988,0)=" I ""1378""[$P(^PRC(442,PRCHPO,1),U,7) G OUT1"
^XMB(3.9,84,2,989,0)="""RTN"",""PRCHAMYB"",66,0)"
^XMB(3.9,84,2,990,0)=" I $P(^PRC(442,PRCHPO,0),U,15)>0,$D(^PRC(442,PRCHPO,25)),$D(^PRC(442,PRCHPO,9,1,0)) D"
^XMB(3.9,84,2,991,0)="""RTN"",""PRCHAMYB"",67,0)"
^XMB(3.9,84,2,992,0)=" . I $D(^PRC(442,PRCHPO,6,0)) D"
^XMB(3.9,84,2,993,0)="""RTN"",""PRCHAMYB"",68,0)"
^XMB(3.9,84,2,994,0)=" .. S PRCMN=$P(^PRC(442,PRCHPO,6,0),U,3)"
^XMB(3.9,84,2,995,0)="""RTN"",""PRCHAMYB"",69,0)"
^XMB(3.9,84,2,996,0)=" .. I $P(^PRC(442,PRCHPO,6,PRCMN,0),U,3)=0,$P(^PRC(442,PRCHPO,7),U,2)'=45 S PRCQ=1"
^XMB(3.9,84,2,997,0)="""RTN"",""PRCHAMYB"",70,0)"
^XMB(3.9,84,2,998,0)=" . D:$G(PRCQ)'=1 EN^DDIOL(""...now generating the FPDS message for the AAC..."","""",""!!""),EN^DDIOL("" "")"
^XMB(3.9,84,2,999,0)="""RTN"",""PRCHAMYB"",71,0)"
^XMB(3.9,84,2,1000,0)=" . D:$G(PRCQ)'=1 AAC^PRCHAAC"
^XMB(3.9,84,2,1001,0)="""RTN"",""PRCHAMYB"",72,0)"
^XMB(3.9,84,2,1002,0)=" ; End of changes for PRC*5.1*79"
^XMB(3.9,84,2,1003,0)="""RTN"",""PRCHAMYB"",73,0)"
^XMB(3.9,84,2,1004,0)="OUT1 K PRCOPODA,PRCQ,PRCMN"
^XMB(3.9,84,2,1005,0)="""RTN"",""PRCHAMYB"",74,0)"
^XMB(3.9,84,2,1006,0)=" I STATUS'=45 G EXIT"
^XMB(3.9,84,2,1007,0)="""RTN"",""PRCHAMYB"",75,0)"
^XMB(3.9,84,2,1008,0)=" S AUTH=$P($G(^PRC(442,PRCHPO,6,PRCHAM,0)),U,4)"
^XMB(3.9,84,2,1009,0)="""RTN"",""PRCHAMYB"",76,0)"
^XMB(3.9,84,2,1010,0)=" G:AUTH="""" EXIT"
^XMB(3.9,84,2,1011,0)="""RTN"",""PRCHAMYB"",77,0)"
^XMB(3.9,84,2,1012,0)=" G:'((AUTH=5)!(AUTH=15)) UPDATE"
^XMB(3.9,84,2,1013,0)="""RTN"",""PRCHAMYB"",78,0)"
^XMB(3.9,84,2,1014,0)=" K AUTH,REF,REF1 G EXIT"
^XMB(3.9,84,2,1015,0)="""RTN"",""PRCHAMYB"",79,0)"
^XMB(3.9,84,2,1016,0)=" ;"
^XMB(3.9,84,2,1017,0)="""RTN"",""PRCHAMYB"",80,0)"
^XMB(3.9,84,2,1018,0)="UPDATE ;UPDATE FILE 410 TO POINT TO THE CORRECT P.O."
^XMB(3.9,84,2,1019,0)="""RTN"",""PRCHAMYB"",81,0)"
^XMB(3.9,84,2,1020,0)=" S O0=$G(^PRC(442,PRCHPO,0))"
^XMB(3.9,84,2,1021,0)="""RTN"",""PRCHAMYB"",82,0)"
^XMB(3.9,84,2,1022,0)=" S O1=$G(^PRC(442,PRCHPO,1))"
^XMB(3.9,84,2,1023,0)="""RTN"",""PRCHAMYB"",83,0)"
^XMB(3.9,84,2,1024,0)=" S FCP=+$P(O0,U)_+$P(O0,U,3)"
^XMB(3.9,84,2,1025,0)="""RTN"",""PRCHAMYB"",84,0)"
^XMB(3.9,84,2,1026,0)=" S PODATE=+$P(O1,U,15)"
^XMB(3.9,84,2,1027,0)="""RTN"",""PRCHAMYB"",85,0)"
^XMB(3.9,84,2,1028,0)=" S NEWPO=$P($G(^PRC(442,PRCHPO,23)),U,4)"
^XMB(3.9,84,2,1029,0)="""RTN"",""PRCHAMYB"",86,0)"
^XMB(3.9,84,2,1030,0)=" G:NEWPO="""" FINI"
^XMB(3.9,84,2,1031,0)="""RTN"",""PRCHAMYB"",87,0)"
^XMB(3.9,84,2,1032,0)=" S PRCOPODA=NEWPO_""^""_2_""^""_PRCHAM_""^""_PRCHPO"
^XMB(3.9,84,2,1033,0)="""RTN"",""PRCHAMYB"",88,0)"
^XMB(3.9,84,2,1034,0)=" ;...now generating PHA transaction..."
^XMB(3.9,84,2,1035,0)="""RTN"",""PRCHAMYB"",89,0)"
^XMB(3.9,84,2,1036,0)=" D NEW^PRCOEDI"
^XMB(3.9,84,2,1037,0)="""RTN"",""PRCHAMYB"",90,0)"
^XMB(3.9,84,2,1038,0)=" K PRCOPODA"
^XMB(3.9,84,2,1039,0)="""RTN"",""PRCHAMYB"",91,0)"
^XMB(3.9,84,2,1040,0)=" S LOOP=0 F  S LOOP=$O(^PRC(442,NEWPO,2,LOOP)) Q:LOOP'>0  D"
^XMB(3.9,84,2,1041,0)="""RTN"",""PRCHAMYB"",92,0)"
^XMB(3.9,84,2,1042,0)=" .S L0=$G(^PRC(442,NEWPO,2,LOOP,0))"
^XMB(3.9,84,2,1043,0)="""RTN"",""PRCHAMYB"",93,0)"
^XMB(3.9,84,2,1044,0)=" .S L2=$G(^PRC(442,NEWPO,2,LOOP,2))"
^XMB(3.9,84,2,1045,0)="""RTN"",""PRCHAMYB"",94,0)"
^XMB(3.9,84,2,1046,0)=" .S L0=$P(L0,U,10),L2=$P(L2,U,13)"
^XMB(3.9,84,2,1047,0)="""RTN"",""PRCHAMYB"",95,0)"
^XMB(3.9,84,2,1048,0)=" .Q:L0=""""!(L2="""")"
^XMB(3.9,84,2,1049,0)="""RTN"",""PRCHAMYB"",96,0)"
^XMB(3.9,84,2,1050,0)=" .I $P(L0,U,5)>0 D"
^XMB(3.9,84,2,1051,0)="""RTN"",""PRCHAMYB"",97,0)"
^XMB(3.9,84,2,1052,0)=" ..S IMF=$P(L0,U,5)"
^XMB(3.9,84,2,1053,0)="""RTN"",""PRCHAMYB"",98,0)"
^XMB(3.9,84,2,1054,0)=" ..K ^PRC(441,IMF,4,FCP,1,PRCHPO,0)"
^XMB(3.9,84,2,1055,0)="""RTN"",""PRCHAMYB"",99,0)"
^XMB(3.9,84,2,1056,0)=" ..S ^PRC(441,IMF,4,FCP,1,NEWPO,0)=NEWPO"
^XMB(3.9,84,2,1057,0)="""RTN"",""PRCHAMYB"",100,0)"
^XMB(3.9,84,2,1058,0)=" ..K ^PRC(441,IMF,4,FCP,1,""AC"",9999999-PODATE,PRCHPO)"
^XMB(3.9,84,2,1059,0)="""RTN"",""PRCHAMYB"",101,0)"
^XMB(3.9,84,2,1060,0)=" ..S ^PRC(441,IMF,4,FCP,1,""AC"",9999999-PODATE,NEWPO)="""""
^XMB(3.9,84,2,1061,0)="""RTN"",""PRCHAMYB"",102,0)"
^XMB(3.9,84,2,1062,0)=" ..Q"
^XMB(3.9,84,2,1063,0)="""RTN"",""PRCHAMYB"",103,0)"
^XMB(3.9,84,2,1064,0)=" .S DA(1)=L0,DA=L2,DIE=""^PRCS(410,""_DA(1)_"",""""IT"""","",DR=""9///^S X=NEWPO"""
^XMB(3.9,84,2,1065,0)="""RTN"",""PRCHAMYB"",104,0)"
^XMB(3.9,84,2,1066,0)=" .D ^DIE"
^XMB(3.9,84,2,1067,0)="""RTN"",""PRCHAMYB"",105,0)"
^XMB(3.9,84,2,1068,0)=" .Q"
^XMB(3.9,84,2,1069,0)="""RTN"",""PRCHAMYB"",106,0)"
^XMB(3.9,84,2,1070,0)=" S PRC2237=$P($G(^PRC(442,PRCHPO,0)),U,12) G:PRC2237'>0 FINI"
^XMB(3.9,84,2,1071,0)="""RTN"",""PRCHAMYB"",107,0)"
^XMB(3.9,84,2,1072,0)=" S PRCCNS=$P($P($G(^PRC(442,NEWPO,0)),U),""-"",2)"
^XMB(3.9,84,2,1073,0)="""RTN"",""PRCHAMYB"",108,0)"
^XMB(3.9,84,2,1074,0)=" S OLDCNS=$P(^PRCS(410,PRC2237,4),U,5)"
^XMB(3.9,84,2,1075,0)="""RTN"",""PRCHAMYB"",109,0)"
^XMB(3.9,84,2,1076,0)=" K ^PRCS(410,""D"",OLDCNS,PRC2237)"
^XMB(3.9,84,2,1077,0)="""RTN"",""PRCHAMYB"",110,0)"
^XMB(3.9,84,2,1078,0)=" S $P(^PRCS(410,PRC2237,4),U,5)=PRCCNS"
^XMB(3.9,84,2,1079,0)="""RTN"",""PRCHAMYB"",111,0)"
^XMB(3.9,84,2,1080,0)=" S ^PRCS(410,""D"",PRCCNS,PRC2237)="""""
^XMB(3.9,84,2,1081,0)="""RTN"",""PRCHAMYB"",112,0)"
^XMB(3.9,84,2,1082,0)=" S $P(^PRCS(410,PRC2237,10),U,3)=NEWPO"
^XMB(3.9,84,2,1083,0)="""RTN"",""PRCHAMYB"",113,0)"
^XMB(3.9,84,2,1084,0)=" S MESSAGE="""" D RECODE^PRCSC2(PRC2237,.MESSAGE)"
^XMB(3.9,84,2,1085,0)="""RTN"",""PRCHAMYB"",114,0)"
^XMB(3.9,84,2,1086,0)=" I MESSAGE'=1 W !,""An error has occurred while recoding an ESIG."",!"
^XMB(3.9,84,2,1087,0)="""RTN"",""PRCHAMYB"",115,0)"
^XMB(3.9,84,2,1088,0)="FINI K NEWPO,LOOP,L0,L2,DIE,DR,PRC2237,OLDCNS,PRCCNS,MESSAGE"
^XMB(3.9,84,2,1089,0)="""RTN"",""PRCHAMYB"",116,0)"
^XMB(3.9,84,2,1090,0)="EXIT G OTHER^PRCHAMYD"
^XMB(3.9,84,2,1091,0)="""RTN"",""PRCHFPD2"")"
^XMB(3.9,84,2,1092,0)="0^4^B14180601^B13159078"
^XMB(3.9,84,2,1093,0)="""RTN"",""PRCHFPD2"",1,0)"
^XMB(3.9,84,2,1094,0)="PRCHFPD2 ;SF/FKV,TKW/RHD-PROMPT WHETHER FPDS DATA IS TO BE ENTERED ;2/9/93  14:54"
^XMB(3.9,84,2,1095,0)="""RTN"",""PRCHFPD2"",2,0)"
^XMB(3.9,84,2,1096,0)="V ;;5.1;IFCAP;**79,100**;Oct 20, 2000"
^XMB(3.9,84,2,1097,0)="""RTN"",""PRCHFPD2"",3,0)"
^XMB(3.9,84,2,1098,0)=" ;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,84,2,1099,0)="""RTN"",""PRCHFPD2"",4,0)"
^XMB(3.9,84,2,1100,0)="AMT ;"
^XMB(3.9,84,2,1101,0)="""RTN"",""PRCHFPD2"",5,0)"
^XMB(3.9,84,2,1102,0)=" S PRCHY=0 I PRCHEST>0,PRCHEC>0 S PRCHY=PRCHEST/PRCHEC,Y=$P(PRCHY,""."",2) I $L(Y)>2 S PRCHY=$P(PRCHY,""."",1)+$J("".""_Y,2,2)"
^XMB(3.9,84,2,1103,0)="""RTN"",""PRCHFPD2"",6,0)"
^XMB(3.9,84,2,1104,0)=" S PRCH=0 F PRCHI=1:1 S PRCH=$O(PRCH(""AM"",PRCH)) Q:PRCH=""""  D CHEC S PRCHAMT=""""""""_PRCH(""AM"",PRCH)_"""""""" K DR S DR=""35///""_PRCHAMT,DR(2,442.1)="".01////""_PRCHAMT S:PRCH'="".OM"" DR(2,442.1)=DR(2,442.1)_"";2////""_PRCH D ^DIE"
^XMB(3.9,84,2,1105,0)="""RTN"",""PRCHFPD2"",7,0)"
^XMB(3.9,84,2,1106,0)=" K PRCHI,PRCHY,DR"
^XMB(3.9,84,2,1107,0)="""RTN"",""PRCHFPD2"",8,0)"
^XMB(3.9,84,2,1108,0)=" Q"
^XMB(3.9,84,2,1109,0)="""RTN"",""PRCHFPD2"",9,0)"
^XMB(3.9,84,2,1110,0)="CHEC ;"
^XMB(3.9,84,2,1111,0)="""RTN"",""PRCHFPD2"",10,0)"
^XMB(3.9,84,2,1112,0)=" I PRCHI=PRCHEC,PRCHEST'=(PRCHY*PRCHEC) S PRCHY=PRCHY+(PRCHEST-(PRCHY*PRCHEC))"
^XMB(3.9,84,2,1113,0)="""RTN"",""PRCHFPD2"",11,0)"
^XMB(3.9,84,2,1114,0)=" I PRCHY>0 S PRCH(""AM"",PRCH)=$P(PRCH(""AM"",PRCH),U,1)_U_($P(PRCH(""AM"",PRCH),U,2)+PRCHY)_U_$P(PRCH(""AM"",PRCH),U,3)"
^XMB(3.9,84,2,1115,0)="""RTN"",""PRCHFPD2"",12,0)"
^XMB(3.9,84,2,1116,0)=" S PRCH(""AM"",PRCH)=+$P(PRCH(""AM"",PRCH),U,2)"
^XMB(3.9,84,2,1117,0)="""RTN"",""PRCHFPD2"",13,0)"
^XMB(3.9,84,2,1118,0)=" Q"
^XMB(3.9,84,2,1119,0)="""RTN"",""PRCHFPD2"",14,0)"
^XMB(3.9,84,2,1120,0)="FPDS ;"
^XMB(3.9,84,2,1121,0)="""RTN"",""PRCHFPD2"",15,0)"
^XMB(3.9,84,2,1122,0)=" ;If source code is not 2, 5, or [4,6,7,B], delivery order from a PA,"
^XMB(3.9,84,2,1123,0)="""RTN"",""PRCHFPD2"",16,0)"
^XMB(3.9,84,2,1124,0)=" ;do not ask for any FPDS information and quit."
^XMB(3.9,84,2,1125,0)="""RTN"",""PRCHFPD2"",17,0)"
^XMB(3.9,84,2,1126,0)=" ;If source code is 9, do not ask for any FPDS information"
^XMB(3.9,84,2,1127,0)="""RTN"",""PRCHFPD2"",18,0)"
^XMB(3.9,84,2,1128,0)=" I $D(^PRC(442,PRCHPO,14)),$P(^PRC(442,PRCHPO,23),U,11)'=""P"",$P(^PRC(442,PRCHPO,23),U,11)'=""D"",PRCHSC=9 S PRCHFPDS=0 D AMT Q"
^XMB(3.9,84,2,1129,0)="""RTN"",""PRCHFPD2"",19,0)"
^XMB(3.9,84,2,1130,0)=" ;"
^XMB(3.9,84,2,1131,0)="""RTN"",""PRCHFPD2"",20,0)"
^XMB(3.9,84,2,1132,0)=" S PRCHFPDS=0,%B=""Specifically excluded from reporting are grants,intragovernmental"",%B(1)=""procurements,procurements from imprest fund,nonappropriated"",%B(2)=""(general post,loan guarantee,etc.),SF44s,credit card"""
^XMB(3.9,84,2,1133,0)="""RTN"",""PRCHFPD2"",21,0)"
^XMB(3.9,84,2,1134,0)=" S %B(3)=""transactions,training authorizations,Government Bills of"",%B(4)=""Lading (GBL),and Government Transportation Requests (GTR)."""
^XMB(3.9,84,2,1135,0)="""RTN"",""PRCHFPD2"",22,0)"
^XMB(3.9,84,2,1136,0)=" S X="""",PRCH="""" F I=0:0 S PRCH=$O(PRCH(""AM"",PRCH)) Q:PRCH=""""  S X=X+$P(PRCH(""AM"",PRCH),U,2)"
^XMB(3.9,84,2,1137,0)="""RTN"",""PRCHFPD2"",23,0)"
^XMB(3.9,84,2,1138,0)=" ; DON'T ASK FOR FPDS DATA IF TOTAL $>25,000, IF FEDERAL SOURCE, IF IMPREST FUNDS, IF A REQUISITION (FEDERAL SOURCE), OR IF GENERAL POST FUNDS."
^XMB(3.9,84,2,1139,0)="""RTN"",""PRCHFPD2"",24,0)"
^XMB(3.9,84,2,1140,0)=" S X=X+PRCHEST,PRCHTTT=X"
^XMB(3.9,84,2,1141,0)="""RTN"",""PRCHFPD2"",25,0)"
^XMB(3.9,84,2,1142,0)=" ; For a delivery PO, forget the 25K limit on the total amount. This is"
^XMB(3.9,84,2,1143,0)="""RTN"",""PRCHFPD2"",26,0)"
^XMB(3.9,84,2,1144,0)=" ; intended for Purchasing Agents and Delivery Orders menu users. Now a"
^XMB(3.9,84,2,1145,0)="""RTN"",""PRCHFPD2"",27,0)"
^XMB(3.9,84,2,1146,0)=" ; definition for delivery orders is in effect: if the PO uses source"
^XMB(3.9,84,2,1147,0)="""RTN"",""PRCHFPD2"",28,0)"
^XMB(3.9,84,2,1148,0)=" ; codes 4, 6, 7, or B, then it is a delivery order (DO)."
^XMB(3.9,84,2,1149,0)="""RTN"",""PRCHFPD2"",29,0)"
^XMB(3.9,84,2,1150,0)=" ; Check Detailed PO from a PC user if it has source codes 6 or B."
^XMB(3.9,84,2,1151,0)="""RTN"",""PRCHFPD2"",30,0)"
^XMB(3.9,84,2,1152,0)=" ; PRC*5.1*100: for non-general post funds (GPF), when creating a PO"
^XMB(3.9,84,2,1153,0)="""RTN"",""PRCHFPD2"",31,0)"
^XMB(3.9,84,2,1154,0)=" ; PRCHN(""SFC"")=0. If using a GPF, PRCHN(""SFC"")=1."
^XMB(3.9,84,2,1155,0)="""RTN"",""PRCHFPD2"",32,0)"
^XMB(3.9,84,2,1156,0)=" I PRCHTTT>25000&($P(^PRC(442,PRCHPO,23),U,11)=""P"")&($G(PRCHPC)=2)&(""6B""[PRCHSC)&($G(PRCHN(""SFC""))>1!($G(PRCHN(""SFC""))=0)) D PC Q"
^XMB(3.9,84,2,1157,0)="""RTN"",""PRCHFPD2"",33,0)"
^XMB(3.9,84,2,1158,0)=" ;"
^XMB(3.9,84,2,1159,0)="""RTN"",""PRCHFPD2"",34,0)"
^XMB(3.9,84,2,1160,0)=" ; Check PO from users of the separate Delivery Orders menu"
^XMB(3.9,84,2,1161,0)="""RTN"",""PRCHFPD2"",35,0)"
^XMB(3.9,84,2,1162,0)=" I PRCHTTT>25000&(($G(PRCHPHAM)=1)!($G(PRCHDELV)=1))&($G(PRCHN(""SFC""))>1!($G(PRCHN(""SFC""))=0)) D PC Q"
^XMB(3.9,84,2,1163,0)="""RTN"",""PRCHFPD2"",36,0)"
^XMB(3.9,84,2,1164,0)=" ;"
^XMB(3.9,84,2,1165,0)="""RTN"",""PRCHFPD2"",37,0)"
^XMB(3.9,84,2,1166,0)=" ; Check PO from the purchasing agent who can use any source code."
^XMB(3.9,84,2,1167,0)="""RTN"",""PRCHFPD2"",38,0)"
^XMB(3.9,84,2,1168,0)=" I PRCHTTT>25000&(""467B""[PRCHSC)&($D(^PRC(442,PRCHPO,14)))&($G(PRCHN(""SFC""))>1!($G(PRCHN(""SFC""))=0)) D DEL Q"
^XMB(3.9,84,2,1169,0)="""RTN"",""PRCHFPD2"",39,0)"
^XMB(3.9,84,2,1170,0)=" ;"
^XMB(3.9,84,2,1171,0)="""RTN"",""PRCHFPD2"",40,0)"
^XMB(3.9,84,2,1172,0)=" S Y=$S(X>25000:0,""130""[PRCHSC:0,PRCHN(""MP"")=12:0,PRCHN(""MP"")=5:0,PRCHN(""SFC"")=1:0,1:1)"
^XMB(3.9,84,2,1173,0)="""RTN"",""PRCHFPD2"",41,0)"
^XMB(3.9,84,2,1174,0)=" I 'Y S X=$S(X>25000:""Total Amount ""_$J(X,11,2)_"" is greater than $25000.00"",1:"""") W !!!,""No FPDS Data to be Entered: ""_X,!!,%B,!,%B(1),!,%B(2),!,%B(3),!,%B(4),! D AMT K %B Q"
^XMB(3.9,84,2,1175,0)="""RTN"",""PRCHFPD2"",42,0)"
^XMB(3.9,84,2,1176,0)=" ; Check below for Delivery or Detailed purchase card orders, PRC*5.1*79"
^XMB(3.9,84,2,1177,0)="""RTN"",""PRCHFPD2"",43,0)"
^XMB(3.9,84,2,1178,0)=" I $G(PRCHTTT)'>0 S PRCHFPDS=0 Q  ;don't need $0 orders"
^XMB(3.9,84,2,1179,0)="""RTN"",""PRCHFPD2"",44,0)"
^XMB(3.9,84,2,1180,0)=" I $G(PRCHPC)=2!$G(PRCHPHAM)=1!$G(PRCHDELV)=1 D PC Q"
^XMB(3.9,84,2,1181,0)="""RTN"",""PRCHFPD2"",45,0)"
^XMB(3.9,84,2,1182,0)=" S %A=""Is this P.O. to be reported to the FPDS system (Under $25,000 report)"",%=1 D YN^PRCFYN S:%=1 PRCHFPDS=1 K:%=-1 PRCHPO D AMT:$D(PRCHPO)&(%=2)"
^XMB(3.9,84,2,1183,0)="""RTN"",""PRCHFPD2"",46,0)"
^XMB(3.9,84,2,1184,0)=" K %B"
^XMB(3.9,84,2,1185,0)="""RTN"",""PRCHFPD2"",47,0)"
^XMB(3.9,84,2,1186,0)=" Q"
^XMB(3.9,84,2,1187,0)="""RTN"",""PRCHFPD2"",48,0)"
^XMB(3.9,84,2,1188,0)=" ;"
^XMB(3.9,84,2,1189,0)="""RTN"",""PRCHFPD2"",49,0)"
^XMB(3.9,84,2,1190,0)="DEL S %A=""Is this P.O. to be reported to the FPDS system"",%=1 W ! D YN^PRCFYN S:%=1 PRCHFPDS=1 K:%=-1 PRCHPO D AMT:$D(PRCHPO)&(%=2)"
^XMB(3.9,84,2,1191,0)="""RTN"",""PRCHFPD2"",50,0)"
^XMB(3.9,84,2,1192,0)=" K %A,%B"
^XMB(3.9,84,2,1193,0)="""RTN"",""PRCHFPD2"",51,0)"
^XMB(3.9,84,2,1194,0)=" Q"
^XMB(3.9,84,2,1195,0)="""RTN"",""PRCHFPD2"",52,0)"
^XMB(3.9,84,2,1196,0)=" ;"
^XMB(3.9,84,2,1197,0)="""RTN"",""PRCHFPD2"",53,0)"
^XMB(3.9,84,2,1198,0)="PC ; Checks below for PRC*5.1*79."
^XMB(3.9,84,2,1199,0)="""RTN"",""PRCHFPD2"",54,0)"
^XMB(3.9,84,2,1200,0)=" S A(1)=""This P.O. must be reported to the FPDS system."""
^XMB(3.9,84,2,1201,0)="""RTN"",""PRCHFPD2"",55,0)"
^XMB(3.9,84,2,1202,0)=" S A(1,""F"")=""!!?10"""
^XMB(3.9,84,2,1203,0)="""RTN"",""PRCHFPD2"",56,0)"
^XMB(3.9,84,2,1204,0)=" S A(2,""F"")=""!!"""
^XMB(3.9,84,2,1205,0)="""RTN"",""PRCHFPD2"",57,0)"
^XMB(3.9,84,2,1206,0)=" D EN^DDIOL(.A)"
^XMB(3.9,84,2,1207,0)="""RTN"",""PRCHFPD2"",58,0)"
^XMB(3.9,84,2,1208,0)=" S PRCHFPDS=1"
^XMB(3.9,84,2,1209,0)="""RTN"",""PRCHFPD2"",59,0)"
^XMB(3.9,84,2,1210,0)=" K A,%B"
^XMB(3.9,84,2,1211,0)="""RTN"",""PRCHFPD2"",60,0)"
^XMB(3.9,84,2,1212,0)=" Q"
^XMB(3.9,84,2,1213,0)="""RTN"",""PRCHFPDE"")"
^XMB(3.9,84,2,1214,0)="0^3^B31116983^B27053598"
^XMB(3.9,84,2,1215,0)="""RTN"",""PRCHFPDE"",1,0)"
^XMB(3.9,84,2,1216,0)="PRCHFPDE ;SF-ISC/TKW-EDIT FPDS DATA ON P.O. AFTER SIGNED BY P.A. ;12-6-90/15:48"
^XMB(3.9,84,2,1217,0)="""RTN"",""PRCHFPDE"",2,0)"
^XMB(3.9,84,2,1218,0)="V ;;5.1;IFCAP;**79,100**;Oct 20, 2000"
^XMB(3.9,84,2,1219,0)="""RTN"",""PRCHFPDE"",3,0)"
^XMB(3.9,84,2,1220,0)=" ;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,84,2,1221,0)="""RTN"",""PRCHFPDE"",4,0)"
^XMB(3.9,84,2,1222,0)=" ;"
^XMB(3.9,84,2,1223,0)="""RTN"",""PRCHFPDE"",5,0)"
^XMB(3.9,84,2,1224,0)="EN1 ;EDIT FPDS DATA ON P.O. AFTER BEING SIGNED BY P.A."
^XMB(3.9,84,2,1225,0)="""RTN"",""PRCHFPDE"",6,0)"
^XMB(3.9,84,2,1226,0)=" I $D(PRCHAM) S PRCHFLG="""""
^XMB(3.9,84,2,1227,0)="""RTN"",""PRCHFPDE"",7,0)"
^XMB(3.9,84,2,1228,0)=" N PRCHER,PRCHAM,PRCHAMDA,PRCHAMT,PRCHDUZ ;Newing variables for amends"
^XMB(3.9,84,2,1229,0)="""RTN"",""PRCHFPDE"",8,0)"
^XMB(3.9,84,2,1230,0)=" I $D(PRCHPO) S PRCHPOO=PRCHPO N PRCHPO S PRCHPO=PRCHPOO K PRCHPOO"
^XMB(3.9,84,2,1231,0)="""RTN"",""PRCHFPDE"",9,0)"
^XMB(3.9,84,2,1232,0)=" D:'$D(PRCHPO) ST^PRCHE Q:'$D(PRC(""SITE""))"
^XMB(3.9,84,2,1233,0)="""RTN"",""PRCHFPDE"",10,0)"
^XMB(3.9,84,2,1234,0)="EN10 D:'$D(PRCHPO)!'$D(PRCHFLG) LOOK G:'$D(PRCHPO) Q D LCK1^PRCHE G:'$D(DA) EN10 S PRCHEST=$P(^PRC(442,PRCHPO,0),U,13)"
^XMB(3.9,84,2,1235,0)="""RTN"",""PRCHFPDE"",11,0)"
^XMB(3.9,84,2,1236,0)=" S X=$G(^PRC(442,PRCHPO,1)),PRCHV=+X,PRCHDT=$S($P(X,U,15)<2881001:0,$P(X,U,15)>2880930:1,1:""""),PRCHSC="""" I $D(^PRCD(420.8,+$P(X,U,7),0)) S PRCHSC=$P(^(0),U,1)"
^XMB(3.9,84,2,1237,0)="""RTN"",""PRCHFPDE"",12,0)"
^XMB(3.9,84,2,1238,0)=" ;"
^XMB(3.9,84,2,1239,0)="""RTN"",""PRCHFPDE"",13,0)"
^XMB(3.9,84,2,1240,0)=" ;PRC*5.1*79 - check for canceled orders or ineligible orders, i.e. RMPR"
^XMB(3.9,84,2,1241,0)="""RTN"",""PRCHFPDE"",14,0)"
^XMB(3.9,84,2,1242,0)=" I $P(^PRC(442,PRCHPO,7),U,2)=45!($G(PRCHSC)="""") D OUT G EN10"
^XMB(3.9,84,2,1243,0)="""RTN"",""PRCHFPDE"",15,0)"
^XMB(3.9,84,2,1244,0)=" I $P(^PRC(442,PRCHPO,7),U,2)'>10 D EN^DDIOL(""This Purchase Order has not been properly completed."") G EN10"
^XMB(3.9,84,2,1245,0)="""RTN"",""PRCHFPDE"",16,0)"
^XMB(3.9,84,2,1246,0)=" I ""0139""[PRCHSC D OUT G EN10"
^XMB(3.9,84,2,1247,0)="""RTN"",""PRCHFPDE"",17,0)"
^XMB(3.9,84,2,1248,0)=" ;End check for PRC*5.1*79"
^XMB(3.9,84,2,1249,0)="""RTN"",""PRCHFPDE"",18,0)"
^XMB(3.9,84,2,1250,0)=" I PRCHDT="""" D EN^DDIOL(""Purchase Order has no date. "","""",""!"") G EN10"
^XMB(3.9,84,2,1251,0)="""RTN"",""PRCHFPDE"",19,0)"
^XMB(3.9,84,2,1252,0)=" I 'PRCHDT W $C(7),!,""This option only available for P.O.'s beyond FY 1988!"" G EN10"
^XMB(3.9,84,2,1253,0)="""RTN"",""PRCHFPDE"",20,0)"
^XMB(3.9,84,2,1254,0)=" S Y=$G(^PRC(440,PRCHV,2)),PRCHN(""LSA"")=$P(Y,U,5),PRCHN(""MB"")=$S(PRCHDT:$P(Y,U,3),1:$P(Y,U,6))"
^XMB(3.9,84,2,1255,0)="""RTN"",""PRCHFPDE"",21,0)"
^XMB(3.9,84,2,1256,0)=" S PRCHN(""SFC"")=$P(^PRC(442,PRCHPO,0),U,19),PRCHN(""MP"")=$P($G(^PRCD(442.5,+$P(^PRC(442,PRCHPO,0),U,2),0)),U,3) I 'PRCHN(""MP"") W !,$C(7),""Method of Processing not entered!"" G Q"
^XMB(3.9,84,2,1257,0)="""RTN"",""PRCHFPDE"",22,0)"
^XMB(3.9,84,2,1258,0)=" S PRCHBO=$S(PRCHDT:1.1,1:1) K PRCHB"
^XMB(3.9,84,2,1259,0)="""RTN"",""PRCHFPDE"",23,0)"
^XMB(3.9,84,2,1260,0)=" G:PRCHDT&(""013""[PRCHSC) ASK I $O(^PRC(440,PRCHV,PRCHBO,0)) S PRCHB(0)=""^442.16PA^""_$P(^(0),U,3,4) F I=0:0 S I=$O(^PRC(440,PRCHV,PRCHBO,I)) Q:'I  S PRCHB(I)=I"
^XMB(3.9,84,2,1261,0)="""RTN"",""PRCHFPDE"",24,0)"
^XMB(3.9,84,2,1262,0)=" I PRCHDT,'$D(PRCHB) D ER3^PRCHNPO6 G EN10"
^XMB(3.9,84,2,1263,0)="""RTN"",""PRCHFPDE"",25,0)"
^XMB(3.9,84,2,1264,0)=" ;"
^XMB(3.9,84,2,1265,0)="""RTN"",""PRCHFPDE"",26,0)"
^XMB(3.9,84,2,1266,0)="ASK W !!,$C(7),""ARE YOU SURE YOU WANT TO RE-ENTER THE FPDS CODES "" D YN^DICN Q:($D(PRCHFLG)>0)&(%=-1)  G:($D(PRCHFLG)=0)&(%=-1) EN10"
^XMB(3.9,84,2,1267,0)="""RTN"",""PRCHFPDE"",27,0)"
^XMB(3.9,84,2,1268,0)=" D:%=0 W G:%=0 ASK Q:($D(PRCHFLG)>0)&(%'=1)  G:($D(PRCHFLG)=0)&(%'=1) EN10"
^XMB(3.9,84,2,1269,0)="""RTN"",""PRCHFPDE"",28,0)"
^XMB(3.9,84,2,1270,0)=" I 'PRCHDT!(""013""'[PRCHSC) D EN6^PRCHNPO2 G EN10:'$D(PRCHPO)"
^XMB(3.9,84,2,1271,0)="""RTN"",""PRCHFPDE"",29,0)"
^XMB(3.9,84,2,1272,0)=" K PRCH S PRCHEC=0 F I=0:0 S I=$O(^PRC(442,PRCHPO,2,I)) Q:'I  I $D(^(I,0)) S X=^(0),Y=$G(^(2)) D TBL"
^XMB(3.9,84,2,1273,0)="""RTN"",""PRCHFPDE"",30,0)"
^XMB(3.9,84,2,1274,0)=" ;"
^XMB(3.9,84,2,1275,0)="""RTN"",""PRCHFPDE"",31,0)"
^XMB(3.9,84,2,1276,0)=" ;Clear node 25 of any FPDS data, PRC*5.1*79"
^XMB(3.9,84,2,1277,0)="""RTN"",""PRCHFPDE"",32,0)"
^XMB(3.9,84,2,1278,0)=" K ^PRC(442,PRCHPO,9),^PRC(442,PRCHPO,25) S ^(9,0)=""^442.1A^^"",$P(^PRC(442,PRCHPO,0),U,15)=0"
^XMB(3.9,84,2,1279,0)="""RTN"",""PRCHFPDE"",33,0)"
^XMB(3.9,84,2,1280,0)=" W $C(7),!!,""PREVIOUS FPDS CODES HAVE BEEN DELETED!"",!!"
^XMB(3.9,84,2,1281,0)="""RTN"",""PRCHFPDE"",34,0)"
^XMB(3.9,84,2,1282,0)=" S PRCHY=0 I PRCHEST>0,PRCHEC>0 S PRCHY=PRCHEST/PRCHEC,Y=$P(PRCHY,""."",2) I $L(Y)>2 S PRCHY=$P(PRCHY,""."",1)+$J("".""_Y,2,2)"
^XMB(3.9,84,2,1283,0)="""RTN"",""PRCHFPDE"",35,0)"
^XMB(3.9,84,2,1284,0)=" S DIE=""^PRC(442,"",DR=""[PRCHAMT89]"",DA=PRCHPO"
^XMB(3.9,84,2,1285,0)="""RTN"",""PRCHFPDE"",36,0)"
^XMB(3.9,84,2,1286,0)=" I PRCHDT D FPDS^PRCHFPD2 Q:$D(PRCHFLG)>0&(%=-1)  G:'PRCHFPDS EN10"
^XMB(3.9,84,2,1287,0)="""RTN"",""PRCHFPDE"",37,0)"
^XMB(3.9,84,2,1288,0)=" S PRCH="""" F PRCHI=1:1 S PRCH=$O(PRCH(""AM"",PRCH)) Q:PRCH=""""  D TYPE^PRCHNPO1 S PRCHAMT=+PRCH(""AM"",PRCH),PRCHCN=$S(PRCH="".OM"":"""",1:PRCH) W ?40,""AMOUNT: "",PRCHAMT S PRCHAMT=""""""""_PRCHAMT_"""""""",DIE(""NO^"")=""NO"" D ^DIE"
^XMB(3.9,84,2,1289,0)="""RTN"",""PRCHFPDE"",38,0)"
^XMB(3.9,84,2,1290,0)=" ;PRC*5.1*79 - call new input templates for FPDS data."
^XMB(3.9,84,2,1291,0)="""RTN"",""PRCHFPDE"",39,0)"
^XMB(3.9,84,2,1292,0)=" ;Check a regular PO from a Purchasing Agent."
^XMB(3.9,84,2,1293,0)="""RTN"",""PRCHFPDE"",40,0)"
^XMB(3.9,84,2,1294,0)=" ;PRC*5.1*100 - if the user times out and does not complete the input"
^XMB(3.9,84,2,1295,0)="""RTN"",""PRCHFPDE"",41,0)"
^XMB(3.9,84,2,1296,0)=" ;template for the new FPDS, don't allow electronic sig. Check the last"
^XMB(3.9,84,2,1297,0)="""RTN"",""PRCHFPDE"",42,0)"
^XMB(3.9,84,2,1298,0)=" ;field required for the PO, based on the source code."
^XMB(3.9,84,2,1299,0)="""RTN"",""PRCHFPDE"",43,0)"
^XMB(3.9,84,2,1300,0)=" ;"
^XMB(3.9,84,2,1301,0)="""RTN"",""PRCHFPDE"",44,0)"
^XMB(3.9,84,2,1302,0)=" I (""25""[PRCHSC),$D(^PRC(442,PRCHPO,14)) D  G:$G(PRCHER)=1 Q"
^XMB(3.9,84,2,1303,0)="""RTN"",""PRCHFPDE"",45,0)"
^XMB(3.9,84,2,1304,0)=" . S DR=""[PRCH NEW PO FPDS]"" D ^DIE"
^XMB(3.9,84,2,1305,0)="""RTN"",""PRCHFPDE"",46,0)"
^XMB(3.9,84,2,1306,0)=" . I '$D(^PRC(442,PRCHPO,25)) D STOP Q"
^XMB(3.9,84,2,1307,0)="""RTN"",""PRCHFPDE"",47,0)"
^XMB(3.9,84,2,1308,0)=" . I $P(^PRC(442,PRCHPO,25),U,6)="""" D STOP Q"
^XMB(3.9,84,2,1309,0)="""RTN"",""PRCHFPDE"",48,0)"
^XMB(3.9,84,2,1310,0)=" . ;Fund agency code & fund agency office code can be empty in pairs only."
^XMB(3.9,84,2,1311,0)="""RTN"",""PRCHFPDE"",49,0)"
^XMB(3.9,84,2,1312,0)=" . I +$P(^PRC(442,PRCHPO,25),U,7)>0,$P(^PRC(442,PRCHPO,25),U,8)="""" D STOP Q"
^XMB(3.9,84,2,1313,0)="""RTN"",""PRCHFPDE"",50,0)"
^XMB(3.9,84,2,1314,0)=" ;End of changes for PRC*5.1*100."
^XMB(3.9,84,2,1315,0)="""RTN"",""PRCHFPDE"",51,0)"
^XMB(3.9,84,2,1316,0)=" ;"
^XMB(3.9,84,2,1317,0)="""RTN"",""PRCHFPDE"",52,0)"
^XMB(3.9,84,2,1318,0)=" ;For FPDS purposes, consider any PO with any of the following source"
^XMB(3.9,84,2,1319,0)="""RTN"",""PRCHFPDE"",53,0)"
^XMB(3.9,84,2,1320,0)=" ;codes as a delivery order:"
^XMB(3.9,84,2,1321,0)="""RTN"",""PRCHFPDE"",54,0)"
^XMB(3.9,84,2,1322,0)=" ;PRC*5.1*100 - if the user times out, don't allow electronic sig."
^XMB(3.9,84,2,1323,0)="""RTN"",""PRCHFPDE"",55,0)"
^XMB(3.9,84,2,1324,0)=" I (""467B""[PRCHSC)&($D(^PRC(442,PRCHPO,14))) D  G:$G(PRCHER)=1 Q"
^XMB(3.9,84,2,1325,0)="""RTN"",""PRCHFPDE"",56,0)"
^XMB(3.9,84,2,1326,0)=" . S DR=""[PRCH NEW PO FPDS]"" D ^DIE"
^XMB(3.9,84,2,1327,0)="""RTN"",""PRCHFPDE"",57,0)"
^XMB(3.9,84,2,1328,0)=" . I '$D(^PRC(442,PRCHPO,25)) D STOP Q"
^XMB(3.9,84,2,1329,0)="""RTN"",""PRCHFPDE"",58,0)"
^XMB(3.9,84,2,1330,0)=" . I $P(^PRC(442,PRCHPO,25),U,15)="""" D STOP Q "
^XMB(3.9,84,2,1331,0)="""RTN"",""PRCHFPDE"",59,0)"
^XMB(3.9,84,2,1332,0)=" . E  D POP^PRCHNPO1"
^XMB(3.9,84,2,1333,0)="""RTN"",""PRCHFPDE"",60,0)"
^XMB(3.9,84,2,1334,0)=" ;"
^XMB(3.9,84,2,1335,0)="""RTN"",""PRCHFPDE"",61,0)"
^XMB(3.9,84,2,1336,0)=" ;Quit if type code, pref, program, etc., are not defined."
^XMB(3.9,84,2,1337,0)="""RTN"",""PRCHFPDE"",62,0)"
^XMB(3.9,84,2,1338,0)=" I '$D(^PRC(442,PRCHPO,9)) D STOP G Q"
^XMB(3.9,84,2,1339,0)="""RTN"",""PRCHFPDE"",63,0)"
^XMB(3.9,84,2,1340,0)=" D EN^DDIOL(""Ok, let me save your changes.....done!"","""",""!!?3"") D ^PRCHSF"
^XMB(3.9,84,2,1341,0)="""RTN"",""PRCHFPDE"",64,0)"
^XMB(3.9,84,2,1342,0)=" ;End of changes for PRC*5.1*100."
^XMB(3.9,84,2,1343,0)="""RTN"",""PRCHFPDE"",65,0)"
^XMB(3.9,84,2,1344,0)=" ;"
^XMB(3.9,84,2,1345,0)="""RTN"",""PRCHFPDE"",66,0)"
^XMB(3.9,84,2,1346,0)=" ;Send HL7 message to the AAC"
^XMB(3.9,84,2,1347,0)="""RTN"",""PRCHFPDE"",67,0)"
^XMB(3.9,84,2,1348,0)=" I $P($G(^PRC(442,PRCHPO,25)),U,17)=""YES"",$P(^PRC(442,PRCHPO,0),U,15)>0 D EN^DDIOL(""...now generating the FPDS message for the AAC"","""",""!"") D AAC^PRCHAAC"
^XMB(3.9,84,2,1349,0)="""RTN"",""PRCHFPDE"",68,0)"
^XMB(3.9,84,2,1350,0)=" ;End changes for PRC*5.1*79"
^XMB(3.9,84,2,1351,0)="""RTN"",""PRCHFPDE"",69,0)"
^XMB(3.9,84,2,1352,0)=" K DIE F I=0:0 Q:'$D(PRCHPO)  S I=$O(^PRC(442,PRCHPO,9,I)) Q:'I  D ER2^PRCHNPO6:$P(^(I,0),U,2)="""",ER3^PRCHNPO6:'$O(^(1,0))"
^XMB(3.9,84,2,1353,0)="""RTN"",""PRCHFPDE"",70,0)"
^XMB(3.9,84,2,1354,0)=" L  I $D(PRCHFLG) K PRCHFLG Q"
^XMB(3.9,84,2,1355,0)="""RTN"",""PRCHFPDE"",71,0)"
^XMB(3.9,84,2,1356,0)=" G EN10"
^XMB(3.9,84,2,1357,0)="""RTN"",""PRCHFPDE"",72,0)"
^XMB(3.9,84,2,1358,0)=" ;"
^XMB(3.9,84,2,1359,0)="""RTN"",""PRCHFPDE"",73,0)"
^XMB(3.9,84,2,1360,0)="OUT ;Tell the user that the PO is not eligible for FPDS"
^XMB(3.9,84,2,1361,0)="""RTN"",""PRCHFPDE"",74,0)"
^XMB(3.9,84,2,1362,0)=" D EN^DDIOL(""This PO is not required for FPDS."","""",""!!?10"")"
^XMB(3.9,84,2,1363,0)="""RTN"",""PRCHFPDE"",75,0)"
^XMB(3.9,84,2,1364,0)=" Q"
^XMB(3.9,84,2,1365,0)="""RTN"",""PRCHFPDE"",76,0)"
^XMB(3.9,84,2,1366,0)=" ;"
^XMB(3.9,84,2,1367,0)="""RTN"",""PRCHFPDE"",77,0)"
^XMB(3.9,84,2,1368,0)="STOP ;PRC*5.1*100 - quit if all the FPDS info was not entered."
^XMB(3.9,84,2,1369,0)="""RTN"",""PRCHFPDE"",78,0)"
^XMB(3.9,84,2,1370,0)=" D EN^DDIOL(""WARNING: YOU HAVE NOT ENTERED ALL THE FPDS DATA - NO MESSAGE GENERATED."","""",""!!?5"") S PRCHER=1"
^XMB(3.9,84,2,1371,0)="""RTN"",""PRCHFPDE"",79,0)"
^XMB(3.9,84,2,1372,0)=" Q"
^XMB(3.9,84,2,1373,0)="""RTN"",""PRCHFPDE"",80,0)"
^XMB(3.9,84,2,1374,0)=" ;End of changes for PRC*5.1*100."
^XMB(3.9,84,2,1375,0)="""RTN"",""PRCHFPDE"",81,0)"
^XMB(3.9,84,2,1376,0)=" ;"
^XMB(3.9,84,2,1377,0)="""RTN"",""PRCHFPDE"",82,0)"
^XMB(3.9,84,2,1378,0)="TBL ;TABLE LINE/ITEM AMOUNTS MINUS DISCOUNTS BY CONTRACT NO."
^XMB(3.9,84,2,1379,0)="""RTN"",""PRCHFPDE"",83,0)"
^XMB(3.9,84,2,1380,0)=" S PRCHCN=$S($P(Y,U,2)'="""":$P(Y,U,2),1:"".OM"") S:'$D(PRCH(""AM"",PRCHCN)) PRCH(""AM"",PRCHCN)="""",PRCHEC=PRCHEC+1"
^XMB(3.9,84,2,1381,0)="""RTN"",""PRCHFPDE"",84,0)"
^XMB(3.9,84,2,1382,0)=" S PRCH(""AM"",PRCHCN)=($P(PRCH(""AM"",PRCHCN),U,1)+1)_""^""_($P(PRCH(""AM"",PRCHCN),U,2)+Y-$P(Y,U,6))_""^""_($P(PRCH(""AM"",PRCHCN),U,3))_+X_"","" Q:$L(PRCH(""AM"",PRCHCN))<240"
^XMB(3.9,84,2,1383,0)="""RTN"",""PRCHFPDE"",85,0)"
^XMB(3.9,84,2,1384,0)=" ;"
^XMB(3.9,84,2,1385,0)="""RTN"",""PRCHFPDE"",86,0)"
^XMB(3.9,84,2,1386,0)="CNDNS N X,Y,I,J,C S C="","",X=$P(PRCH(""AM"",PRCHCN),U,3)"
^XMB(3.9,84,2,1387,0)="""RTN"",""PRCHFPDE"",87,0)"
^XMB(3.9,84,2,1388,0)=" F I=1:1:999 Q:$P(X,C,I)=""""  I $P(X,C,I)?.N,$P(X,C,I+1)=($P(X,C,I)+1) F J=I+1:1:999 I ($P(X,C,J+1)'?1N.N)!(($P(X,C,J)+1)'=$P(X,C,J+1)) S Y=C_$P(X,C,I+1,J-1)_C,$P(PRCH(""AM"",PRCHCN),U,3)=$P(X,Y,1)_"":1:""_$P(X,Y,2),I=999,J=999"
^XMB(3.9,84,2,1389,0)="""RTN"",""PRCHFPDE"",88,0)"
^XMB(3.9,84,2,1390,0)=" Q"
^XMB(3.9,84,2,1391,0)="""RTN"",""PRCHFPDE"",89,0)"
^XMB(3.9,84,2,1392,0)=" ;"
^XMB(3.9,84,2,1393,0)="""RTN"",""PRCHFPDE"",90,0)"
^XMB(3.9,84,2,1394,0)="LOOK ;K PRCHPO,PRCHNEW,DA,DIC,D0,DQ S DIC(""S"")=""I +^(0)=PRC(""""SITE"""") S PRCHX=$S($D(^(7)):+^(7),1:0) I $D(^PRCD(442.3,PRCHX,0)),$P(^(0),U,2)>9"""
^XMB(3.9,84,2,1395,0)="""RTN"",""PRCHFPDE"",91,0)"
^XMB(3.9,84,2,1396,0)=" K PRCHPO,PRCHNEW,DA,DIC,D0,DQ S DIC(""S"")=""I +^(0)=PRC(""""SITE"""") S PRCHX=+$G(^(7)) I $D(^PRCD(442.3,PRCHX,0)),$P(^(0),U,2)>9"""
^XMB(3.9,84,2,1397,0)="""RTN"",""PRCHFPDE"",92,0)"
^XMB(3.9,84,2,1398,0)=" S DIC=""^PRC(442,"",DIC(0)=""QEAMZ"",D=""C"",DIC(""A"")=""PURCHASE ORDER: "" S:'$D(DIC(""S"")) DIC(""S"")=""I +$P(^(0),U,1)=PRC(""""SITE"""")"""
^XMB(3.9,84,2,1399,0)="""RTN"",""PRCHFPDE"",93,0)"
^XMB(3.9,84,2,1400,0)=" W !! D IX^DIC K DIC S X="""" Q:+Y<0  S (PRCHPO,DA)=+Y"
^XMB(3.9,84,2,1401,0)="""RTN"",""PRCHFPDE"",94,0)"
^XMB(3.9,84,2,1402,0)=" Q"
^XMB(3.9,84,2,1403,0)="""RTN"",""PRCHFPDE"",95,0)"
^XMB(3.9,84,2,1404,0)=" ;"
^XMB(3.9,84,2,1405,0)="""RTN"",""PRCHFPDE"",96,0)"
^XMB(3.9,84,2,1406,0)="ER W !,$S('PRCHDT:"" Breakout Code is undefined."",1:"" Socioeconomic Group (FY89) not defined in Vendor file.""),$C(7) K PRCHPO"
^XMB(3.9,84,2,1407,0)="""RTN"",""PRCHFPDE"",97,0)"
^XMB(3.9,84,2,1408,0)=" Q"
^XMB(3.9,84,2,1409,0)="""RTN"",""PRCHFPDE"",98,0)"
^XMB(3.9,84,2,1410,0)=" ;"
^XMB(3.9,84,2,1411,0)="""RTN"",""PRCHFPDE"",99,0)"
^XMB(3.9,84,2,1412,0)="W W !!,?10,"" Enter either Yes/No  or  enter """"^"""" to exit."""
^XMB(3.9,84,2,1413,0)="""RTN"",""PRCHFPDE"",100,0)"
^XMB(3.9,84,2,1414,0)=" W !!,""This option will delete all FPDS codes that were previously entered"",!,""for this Purchase Order, then allow you to re-enter them."""
^XMB(3.9,84,2,1415,0)="""RTN"",""PRCHFPDE"",101,0)"
^XMB(3.9,84,2,1416,0)=" Q"
^XMB(3.9,84,2,1417,0)="""RTN"",""PRCHFPDE"",102,0)"
^XMB(3.9,84,2,1418,0)=" ;"
^XMB(3.9,84,2,1419,0)="""RTN"",""PRCHFPDE"",103,0)"
^XMB(3.9,84,2,1420,0)=" ;"
^XMB(3.9,84,2,1421,0)="""RTN"",""PRCHFPDE"",104,0)"
^XMB(3.9,84,2,1422,0)="Q L  K PRC,PRCHI,PRCHFLG G Q^PRCHNPO4"
^XMB(3.9,84,2,1423,0)="""RTN"",""PRCHMA"")"
^XMB(3.9,84,2,1424,0)="0^7^B77180458^B78026253"
^XMB(3.9,84,2,1425,0)="""RTN"",""PRCHMA"",1,0)"
^XMB(3.9,84,2,1426,0)="PRCHMA ;WISC/AKS-Amend to PO, req ;6/10/96  14:07"
^XMB(3.9,84,2,1427,0)="""RTN"",""PRCHMA"",2,0)"
^XMB(3.9,84,2,1428,0)=" ;;5.1;IFCAP;**21,79,100**;Oct 20, 2000"
^XMB(3.9,84,2,1429,0)="""RTN"",""PRCHMA"",3,0)"
^XMB(3.9,84,2,1430,0)=" ;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,84,2,1431,0)="""RTN"",""PRCHMA"",4,0)"
^XMB(3.9,84,2,1432,0)="REQ ;Req."
^XMB(3.9,84,2,1433,0)="""RTN"",""PRCHMA"",5,0)"
^XMB(3.9,84,2,1434,0)=" N PRCHREQ"
^XMB(3.9,84,2,1435,0)="""RTN"",""PRCHMA"",6,0)"
^XMB(3.9,84,2,1436,0)=" S PRCHREQ=1"
^XMB(3.9,84,2,1437,0)="""RTN"",""PRCHMA"",7,0)"
^XMB(3.9,84,2,1438,0)="PO ;PO"
^XMB(3.9,84,2,1439,0)="""RTN"",""PRCHMA"",8,0)"
^XMB(3.9,84,2,1440,0)=" N PRCF,RETURN,PRCHAM,PRCHPO,PRCHNEW,OUT,CAN,PRCHAU,PRCHER,PRCHON"
^XMB(3.9,84,2,1441,0)="""RTN"",""PRCHMA"",9,0)"
^XMB(3.9,84,2,1442,0)=" N A,B,ER,FL,FIS,DELIVER,PRCHAMDA,PRCHAV,PRCHL1,PRCHLN,PRCHRET,LCNT"
^XMB(3.9,84,2,1443,0)="""RTN"",""PRCHMA"",10,0)"
^XMB(3.9,84,2,1444,0)=" N PRCHL2,ROU,DIC,I,PRCHAMT,PRCHAREC,PRCHEDI,X,Y,PRCHN,PRCHO,SFUND"
^XMB(3.9,84,2,1445,0)="""RTN"",""PRCHMA"",11,0)"
^XMB(3.9,84,2,1446,0)=" N PRCHX,PRCHIMP,PRCHNRQ,PRCHP,REPO,PRCHNORE,%,%A,%B,D0,D1,J"
^XMB(3.9,84,2,1447,0)="""RTN"",""PRCHMA"",12,0)"
^XMB(3.9,84,2,1448,0)=" N PRCFL,MSG"
^XMB(3.9,84,2,1449,0)="""RTN"",""PRCHMA"",13,0)"
^XMB(3.9,84,2,1450,0)="LOOP D KILL^PRCHMA1 S PRCHNEW="""",PRCHNORE=1,CAN=0"
^XMB(3.9,84,2,1451,0)="""RTN"",""PRCHMA"",14,0)"
^XMB(3.9,84,2,1452,0)=" ;"
^XMB(3.9,84,2,1453,0)="""RTN"",""PRCHMA"",15,0)"
^XMB(3.9,84,2,1454,0)=" ; See routine PRCHAMXA for information on variable PRCHNORE and for"
^XMB(3.9,84,2,1455,0)="""RTN"",""PRCHMA"",16,0)"
^XMB(3.9,84,2,1456,0)=" ; incidence of undefined DIK variable errors."
^XMB(3.9,84,2,1457,0)="""RTN"",""PRCHMA"",17,0)"
^XMB(3.9,84,2,1458,0)=" ; The var PRCHPO is the basic premise of locks applied to amendments."
^XMB(3.9,84,2,1459,0)="""RTN"",""PRCHMA"",18,0)"
^XMB(3.9,84,2,1460,0)=" ; Anytime amend module is accessed add +lock & save po# in PRCENTRY."
^XMB(3.9,84,2,1461,0)="""RTN"",""PRCHMA"",19,0)"
^XMB(3.9,84,2,1462,0)=" ;"
^XMB(3.9,84,2,1463,0)="""RTN"",""PRCHMA"",20,0)"
^XMB(3.9,84,2,1464,0)=" S PRCF(""X"")=""S"" D ^PRCFSITE Q:'$D(PRC(""SITE""))"
^XMB(3.9,84,2,1465,0)="""RTN"",""PRCHMA"",21,0)"
^XMB(3.9,84,2,1466,0)=" ;"
^XMB(3.9,84,2,1467,0)="""RTN"",""PRCHMA"",22,0)"
^XMB(3.9,84,2,1468,0)=" ; Lock simultaneous entry of users in amend. module for the same record."
^XMB(3.9,84,2,1469,0)="""RTN"",""PRCHMA"",23,0)"
^XMB(3.9,84,2,1470,0)=" ; Var Y is saved in PRCHPO at the end of GETPO subrtn, when we start"
^XMB(3.9,84,2,1471,0)="""RTN"",""PRCHMA"",24,0)"
^XMB(3.9,84,2,1472,0)=" ; the process(AMENDNO) of amending the record we must have var PRCHPO."
^XMB(3.9,84,2,1473,0)="""RTN"",""PRCHMA"",25,0)"
^XMB(3.9,84,2,1474,0)=" ;"
^XMB(3.9,84,2,1475,0)="""RTN"",""PRCHMA"",26,0)"
^XMB(3.9,84,2,1476,0)=" S PRCFL=0"
^XMB(3.9,84,2,1477,0)="""RTN"",""PRCHMA"",27,0)"
^XMB(3.9,84,2,1478,0)=" W !! D GETPO^PRCHAMU"
^XMB(3.9,84,2,1479,0)="""RTN"",""PRCHMA"",28,0)"
^XMB(3.9,84,2,1480,0)=" ; If no record is selected or time-out or up-arrow out then exit"
^XMB(3.9,84,2,1481,0)="""RTN"",""PRCHMA"",29,0)"
^XMB(3.9,84,2,1482,0)=" ; without unlocking a record."
^XMB(3.9,84,2,1483,0)="""RTN"",""PRCHMA"",30,0)"
^XMB(3.9,84,2,1484,0)=" I $D(DTOUT)!$D(DUOUT)!$G(OUT)=1 G EXIT1"
^XMB(3.9,84,2,1485,0)="""RTN"",""PRCHMA"",31,0)"
^XMB(3.9,84,2,1486,0)=" I PRCFL=1 G LOOP"
^XMB(3.9,84,2,1487,0)="""RTN"",""PRCHMA"",32,0)"
^XMB(3.9,84,2,1488,0)=" I '$G(PRCHPO)!$D(FIS) G EXIT"
^XMB(3.9,84,2,1489,0)="""RTN"",""PRCHMA"",33,0)"
^XMB(3.9,84,2,1490,0)=" I '$$VERIFY^PRCHES5(PRCHPO) W !!,?5,""This purchase order has been tampered with."",!,?5,""Please notify IFCAP APPLICATION COORDINATOR."",! G EXIT"
^XMB(3.9,84,2,1491,0)="""RTN"",""PRCHMA"",34,0)"
^XMB(3.9,84,2,1492,0)=" D AMENDNO^PRCHAMU G:'$G(PRCHAM) EXIT"
^XMB(3.9,84,2,1493,0)="""RTN"",""PRCHMA"",35,0)"
^XMB(3.9,84,2,1494,0)=" S PRCHAMT=0,FL=0"
^XMB(3.9,84,2,1495,0)="""RTN"",""PRCHMA"",36,0)"
^XMB(3.9,84,2,1496,0)=" D INFO^PRCHAMU G:$D(PRCHAV)!ER EXIT"
^XMB(3.9,84,2,1497,0)="""RTN"",""PRCHMA"",37,0)"
^XMB(3.9,84,2,1498,0)=" S X=$P($G(^PRC(443.6,PRCHPO,0)),U,16) D EN2^PRCHAMXB"
^XMB(3.9,84,2,1499,0)="""RTN"",""PRCHMA"",38,0)"
^XMB(3.9,84,2,1500,0)=" I PRCHNEW="""" S DA(1)=PRCHPO,DA=PRCHAM,PRCHX=X,X=0,PRCHAMDA=34 D EN8^PRCHAMXB S X=PRCHX"
^XMB(3.9,84,2,1501,0)="""RTN"",""PRCHMA"",39,0)"
^XMB(3.9,84,2,1502,0)=" I $P(^PRC(443.6,PRCHPO,6,PRCHAM,0),U,4)=5!($P(^(0),U,4)=15) S CAN=1"
^XMB(3.9,84,2,1503,0)="""RTN"",""PRCHMA"",40,0)"
^XMB(3.9,84,2,1504,0)=" I PRCHNEW=111&($G(CAN)=0) D REV"
^XMB(3.9,84,2,1505,0)="""RTN"",""PRCHMA"",41,0)"
^XMB(3.9,84,2,1506,0)=" I $G(CAN)>0 D ENC G:ER EXIT I $G(NOCAN)=0 S DA(1)=PRCHPO,DA=PRCHAM,PRCHAMDA=34,PRCHX=X,X=0 D EN8^PRCHAMXB S X=PRCHX G CAN1"
^XMB(3.9,84,2,1507,0)="""RTN"",""PRCHMA"",42,0)"
^XMB(3.9,84,2,1508,0)="ASK K NOCAN,DTOUT,DUOUT,REPONUM D ASK^PRCHAMU"
^XMB(3.9,84,2,1509,0)="""RTN"",""PRCHMA"",43,0)"
^XMB(3.9,84,2,1510,0)=" G:$D(REPONUM)=1 CAN1"
^XMB(3.9,84,2,1511,0)="""RTN"",""PRCHMA"",44,0)"
^XMB(3.9,84,2,1512,0)=" I ER=0 D  G:'$D(REPO)&($G(CAN)=0) ASK"
^XMB(3.9,84,2,1513,0)="""RTN"",""PRCHMA"",45,0)"
^XMB(3.9,84,2,1514,0)=" . D @ROU"
^XMB(3.9,84,2,1515,0)="""RTN"",""PRCHMA"",46,0)"
^XMB(3.9,84,2,1516,0)=" . I $G(PRCHAMDA)=31 D MSG^PRCHAMU Q"
^XMB(3.9,84,2,1517,0)="""RTN"",""PRCHMA"",47,0)"
^XMB(3.9,84,2,1518,0)=" . I $G(PRCHAMDA)=24,$G(X)=2 D MSG1^PRCHAMU S SCE=1 Q"
^XMB(3.9,84,2,1519,0)="""RTN"",""PRCHMA"",48,0)"
^XMB(3.9,84,2,1520,0)=" ;"
^XMB(3.9,84,2,1521,0)="""RTN"",""PRCHMA"",49,0)"
^XMB(3.9,84,2,1522,0)=" I $P(^PRC(443.6,PRCHPO,6,PRCHAM,0),U,4)=5!($P(^(0),U,4)=15) S CAN=1"
^XMB(3.9,84,2,1523,0)="""RTN"",""PRCHMA"",50,0)"
^XMB(3.9,84,2,1524,0)=" I $D(DTOUT)!($D(DUOUT)) G EXIT"
^XMB(3.9,84,2,1525,0)="""RTN"",""PRCHMA"",51,0)"
^XMB(3.9,84,2,1526,0)=" I $G(NOCAN)=1 G ASK"
^XMB(3.9,84,2,1527,0)="""RTN"",""PRCHMA"",52,0)"
^XMB(3.9,84,2,1528,0)=" G:$P($G(^PRC(443.6,PRCHPO,6,PRCHAM,3,0)),U,4)'>1 EXIT"
^XMB(3.9,84,2,1529,0)="""RTN"",""PRCHMA"",53,0)"
^XMB(3.9,84,2,1530,0)="CAN1 D UPDATE^PRCHAMU G:$D(Y) EXIT"
^XMB(3.9,84,2,1531,0)="""RTN"",""PRCHMA"",54,0)"
^XMB(3.9,84,2,1532,0)="CHK I '$$VERIFY^PRCHES5(PRCHPO) W !!,?5,""This purchase order has been tampered with."",!,?5,""Please notify IFCAP APPLICATION COORDINATOR."" G EXIT"
^XMB(3.9,84,2,1533,0)="""RTN"",""PRCHMA"",55,0)"
^XMB(3.9,84,2,1534,0)=" I $P($G(^PRC(443.6,PRCHPO,6,PRCHAM,1)),U,4)']"""" W !!,?5,""There is no Amendment Status."" D"
^XMB(3.9,84,2,1535,0)="""RTN"",""PRCHMA"",56,0)"
^XMB(3.9,84,2,1536,0)=" .S POSTAT=+$G(^PRC(443.6,PRCHPO,7))"
^XMB(3.9,84,2,1537,0)="""RTN"",""PRCHMA"",57,0)"
^XMB(3.9,84,2,1538,0)=" .S AMSTAT=$S(POSTAT=25:26,POSTAT=30:31,POSTAT=40:71,POSTAT=6:83,POSTAT=84:85,POSTAT=86:87,POSTAT=90:91,POSTAT=92:93,POSTAT=94:95,POSTAT=96:97,POSTAT=45:45,1:POSTAT)"
^XMB(3.9,84,2,1539,0)="""RTN"",""PRCHMA"",58,0)"
^XMB(3.9,84,2,1540,0)=" .S AMSTAT=$P(^PRCD(442.3,AMSTAT,0),U)"
^XMB(3.9,84,2,1541,0)="""RTN"",""PRCHMA"",59,0)"
^XMB(3.9,84,2,1542,0)=" .S DIE=""^PRC(443.6,PRCHPO,6,"",DA(1)=PRCHPO,DA=PRCHAM,DR=""9//^S X=AMSTAT"""
^XMB(3.9,84,2,1543,0)="""RTN"",""PRCHMA"",60,0)"
^XMB(3.9,84,2,1544,0)=" .D ^DIE K DIE,AMSTAT,POSTAT"
^XMB(3.9,84,2,1545,0)="""RTN"",""PRCHMA"",61,0)"
^XMB(3.9,84,2,1546,0)=" K PRCHER S LCNT=1 I $P($G(^PRC(443.6,PRCHPO,6,PRCHAM,1)),U,4)']"""" W !!,?5,""There is no Amendment Status."",! S PRCHER="""""
^XMB(3.9,84,2,1547,0)="""RTN"",""PRCHMA"",62,0)"
^XMB(3.9,84,2,1548,0)=" I $P($G(^PRC(443.6,PRCHPO,2,0)),U,4)>0 D  G:$D(PRCHER) ERR"
^XMB(3.9,84,2,1549,0)="""RTN"",""PRCHMA"",63,0)"
^XMB(3.9,84,2,1550,0)=" .N END S END=IOSL-3"
^XMB(3.9,84,2,1551,0)="""RTN"",""PRCHMA"",64,0)"
^XMB(3.9,84,2,1552,0)=" .S PRCH=0 F  S PRCH=$O(^PRC(443.6,PRCHPO,2,PRCH)) Q:PRCH=""""!(PRCH'>0)  D"
^XMB(3.9,84,2,1553,0)="""RTN"",""PRCHMA"",65,0)"
^XMB(3.9,84,2,1554,0)=" ..S PRCHLN=$G(^PRC(443.6,PRCHPO,2,PRCH,0)) D  Q"
^XMB(3.9,84,2,1555,0)="""RTN"",""PRCHMA"",66,0)"
^XMB(3.9,84,2,1556,0)=" ...I $P(PRCHLN,U,4)="""" D:LCNT>END TOP W !!,?5,""Line item "",+$P(PRCHLN,U),"" is missing BOC !"",$C(7) S PRCHER="""",LCNT=LCNT+2"
^XMB(3.9,84,2,1557,0)="""RTN"",""PRCHMA"",67,0)"
^XMB(3.9,84,2,1558,0)=" ...I $G(PRCHAUTH)'=1,$G(PRCHREQ) I $P(PRCHLN,U,13)="""" D:LCNT>END TOP W !!,?5,""Line item "",+$P(PRCHLN,U),"" is missing NSN!"",$C(7) S PRCHER="""",LCNT=LCNT+2"
^XMB(3.9,84,2,1559,0)="""RTN"",""PRCHMA"",68,0)"
^XMB(3.9,84,2,1560,0)=" ...S J=0 S J=$O(^PRC(443.6,PRCHPO,2,PRCH,1,J)) I J'>0 D:LCNT>END TOP W !!,?5,""Line item "",+$P(PRCHLN,U),"" is missing its description!"",$C(7) S PRCHER="""",LCNT=LCNT+2"
^XMB(3.9,84,2,1561,0)="""RTN"",""PRCHMA"",69,0)"
^XMB(3.9,84,2,1562,0)=" ...I $P($G(^PRC(442,PRCHPO,23)),U,11)=""D"",$P($G(^PRC(443.6,PRCHPO,2,PRCH,2)),U,2)="""" D:LCNT>END TOP W !!,?5,""Line item "",+$P(PRCHLN,U),"" is missing contract number."",$C(7) S PRCHER="""",LCNT=LCNT+2"
^XMB(3.9,84,2,1563,0)="""RTN"",""PRCHMA"",70,0)"
^XMB(3.9,84,2,1564,0)=" ...; PRC*5.1*79 - Check line items of PC orders with source code=6 to"
^XMB(3.9,84,2,1565,0)="""RTN"",""PRCHMA"",71,0)"
^XMB(3.9,84,2,1566,0)=" ...; make sure that a contract number is entered"
^XMB(3.9,84,2,1567,0)="""RTN"",""PRCHMA"",72,0)"
^XMB(3.9,84,2,1568,0)=" ...D PCD^PRCHMA1"
^XMB(3.9,84,2,1569,0)="""RTN"",""PRCHMA"",73,0)"
^XMB(3.9,84,2,1570,0)=" ...Q"
^XMB(3.9,84,2,1571,0)="""RTN"",""PRCHMA"",74,0)"
^XMB(3.9,84,2,1572,0)=" ..Q"
^XMB(3.9,84,2,1573,0)="""RTN"",""PRCHMA"",75,0)"
^XMB(3.9,84,2,1574,0)=" .I $D(PRCHER) I LCNT>END N DIR S DIR(0)=""E"" D ^DIR S LCNT=1"
^XMB(3.9,84,2,1575,0)="""RTN"",""PRCHMA"",76,0)"
^XMB(3.9,84,2,1576,0)=" .Q"
^XMB(3.9,84,2,1577,0)="""RTN"",""PRCHMA"",77,0)"
^XMB(3.9,84,2,1578,0)=" ;PRC*5.1*100: check line items without an FSC or PSC"
^XMB(3.9,84,2,1579,0)="""RTN"",""PRCHMA"",78,0)"
^XMB(3.9,84,2,1580,0)=" D EN106^PRCHNPO7 I $G(ERROR)=1 G EXIT"
^XMB(3.9,84,2,1581,0)="""RTN"",""PRCHMA"",79,0)"
^XMB(3.9,84,2,1582,0)=" I $P($G(^PRC(443.6,PRCHPO,0)),U,13)>0 I $P($G(^PRC(443.6,PRCHPO,23)),U)="""" W !!,?5,""This amendment has Est. Shipping and/or Handling charges without any"",!,?5,""Est. Shipping BOC."" S PRCHER="""""
^XMB(3.9,84,2,1583,0)="""RTN"",""PRCHMA"",80,0)"
^XMB(3.9,84,2,1584,0)=" I $P($G(^PRC(443.6,PRCHPO,6,PRCHAM,0)),U,4)=5!($P($G(^(0)),U,4)=15) S CAN=1"
^XMB(3.9,84,2,1585,0)="""RTN"",""PRCHMA"",81,0)"
^XMB(3.9,84,2,1586,0)=" I $G(CAN)'=1 D CHECK^PRCHAMDF(PRCHPO,PRCHAM,.PRCHER)"
^XMB(3.9,84,2,1587,0)="""RTN"",""PRCHMA"",82,0)"
^XMB(3.9,84,2,1588,0)=" ; "
^XMB(3.9,84,2,1589,0)="""RTN"",""PRCHMA"",83,0)"
^XMB(3.9,84,2,1590,0)=" ; Change below to allow checks for monthly limits in file #440.5 before"
^XMB(3.9,84,2,1591,0)="""RTN"",""PRCHMA"",84,0)"
^XMB(3.9,84,2,1592,0)=" ; completion of the amendment."
^XMB(3.9,84,2,1593,0)="""RTN"",""PRCHMA"",85,0)"
^XMB(3.9,84,2,1594,0)=" ;"
^XMB(3.9,84,2,1595,0)="""RTN"",""PRCHMA"",86,0)"
^XMB(3.9,84,2,1596,0)=" I $G(PRCHAUTH)=1!($P($G(^PRC(443.6,PRCHPO,0)),U,2)=25) S FILE=443.6 D  I $G(ERROR) S PRCHER="""" K ERROR,FILE"
^XMB(3.9,84,2,1597,0)="""RTN"",""PRCHMA"",87,0)"
^XMB(3.9,84,2,1598,0)=" .D ^PRCHSF3"
^XMB(3.9,84,2,1599,0)="""RTN"",""PRCHMA"",88,0)"
^XMB(3.9,84,2,1600,0)=" .D ADJ1^PRCHCD0"
^XMB(3.9,84,2,1601,0)="""RTN"",""PRCHMA"",89,0)"
^XMB(3.9,84,2,1602,0)=" .D LIMIT^PRCHCD0"
^XMB(3.9,84,2,1603,0)="""RTN"",""PRCHMA"",90,0)"
^XMB(3.9,84,2,1604,0)=" ;"
^XMB(3.9,84,2,1605,0)="""RTN"",""PRCHMA"",91,0)"
^XMB(3.9,84,2,1606,0)="ERR I $D(PRCHER) W !!,?5,""This amendment needs to be re-edited before it can be signed."",!,""**REMINDER** Unsigned amendments are deleted from the system after 7 days."" D:LCNT>20  G EXIT"
^XMB(3.9,84,2,1607,0)="""RTN"",""PRCHMA"",92,0)"
^XMB(3.9,84,2,1608,0)=" .N DIR S DIR(0)=""E"" D ^DIR"
^XMB(3.9,84,2,1609,0)="""RTN"",""PRCHMA"",93,0)"
^XMB(3.9,84,2,1610,0)=" .Q"
^XMB(3.9,84,2,1611,0)="""RTN"",""PRCHMA"",94,0)"
^XMB(3.9,84,2,1612,0)=" D REV:'$G(PRCPROST),APP G:%'=1 EXIT"
^XMB(3.9,84,2,1613,0)="""RTN"",""PRCHMA"",95,0)"
^XMB(3.9,84,2,1614,0)=" S PRCHRET=$$ASK^PRCHAM8(PRCHPO,PRCHAM) G:PRCHRET'=1 EXIT"
^XMB(3.9,84,2,1615,0)="""RTN"",""PRCHMA"",96,0)"
^XMB(3.9,84,2,1616,0)=" S RETURN="""" D COMMIT^PRCHAM8(PRCHPO,PRCHAM,.RETURN)"
^XMB(3.9,84,2,1617,0)="""RTN"",""PRCHMA"",97,0)"
^XMB(3.9,84,2,1618,0)=" G:RETURN'=1 EXIT"
^XMB(3.9,84,2,1619,0)="""RTN"",""PRCHMA"",98,0)"
^XMB(3.9,84,2,1620,0)=" S DIE=""^PRC(443.6,""_PRCHPO_"",6,"",DA=PRCHAM,DR=""15///TODAY+4"" D ^DIE"
^XMB(3.9,84,2,1621,0)="""RTN"",""PRCHMA"",99,0)"
^XMB(3.9,84,2,1622,0)=" D ^PRCHSF3"
^XMB(3.9,84,2,1623,0)="""RTN"",""PRCHMA"",100,0)"
^XMB(3.9,84,2,1624,0)=" I $P(^PRC(443.6,PRCHPO,0),U,2)'=25 S PRCHQ=""^PRCHPAM8"",PRCHQ(""DEST"")=""F"",D0=PRCHPO,D1=PRCHAM D ^PRCHQUE"
^XMB(3.9,84,2,1625,0)="""RTN"",""PRCHMA"",101,0)"
^XMB(3.9,84,2,1626,0)=" I '($P(^PRC(443.6,PRCHPO,0),U,2)=25!($P(^PRC(443.6,PRCHPO,0),U,19)=2)) D"
^XMB(3.9,84,2,1627,0)="""RTN"",""PRCHMA"",102,0)"
^XMB(3.9,84,2,1628,0)=" . W !?3,""SEND TO SUPPLY "" S PRCHQ=""^PRCHPAM8"",D0=PRCHPO,D1=PRCHAM D ^PRCHQUE"
^XMB(3.9,84,2,1629,0)="""RTN"",""PRCHMA"",103,0)"
^XMB(3.9,84,2,1630,0)=" . S FILE=443.6 D:$D(PRCHPO) CHECK^PRCHSWCH"
^XMB(3.9,84,2,1631,0)="""RTN"",""PRCHMA"",104,0)"
^XMB(3.9,84,2,1632,0)=" . I $G(PRCHOBL)=1 D SUPP^PRCFFM2M K FILE Q"
^XMB(3.9,84,2,1633,0)="""RTN"",""PRCHMA"",105,0)"
^XMB(3.9,84,2,1634,0)=" . I $G(PRCHOBL)=2 S PRCOPODA=PRCHPO D ^PRCOEDI K FILE,PRCOPODA Q"
^XMB(3.9,84,2,1635,0)="""RTN"",""PRCHMA"",106,0)"
^XMB(3.9,84,2,1636,0)=" I $P($G(^PRC(443.6,PRCHPO,0)),U,2)=25 D  S:$G(PRCPROST) PRCPROST=PRCPROST+0.9 G EXIT"
^XMB(3.9,84,2,1637,0)="""RTN"",""PRCHMA"",107,0)"
^XMB(3.9,84,2,1638,0)=" .S MTOPDA=1"
^XMB(3.9,84,2,1639,0)="""RTN"",""PRCHMA"",108,0)"
^XMB(3.9,84,2,1640,0)=" .D SUPP^PRCFFM2M ;I $P($G(^PRC(442,PRCHPO,23)),""^"",11)=""P"" W !!,""...now generating the PHA transaction..."" S PRCOPODA=PRCHPO D NEW^PRCOEDI K PRCOPODA W !!"
^XMB(3.9,84,2,1641,0)="""RTN"",""PRCHMA"",109,0)"
^XMB(3.9,84,2,1642,0)=" .S PPTEMP=0,PP410=$P($G(^PRC(442,PRCHPO,0)),""^"",12),PPAMT=$P($G(^PRC(442,PRCHPO,0)),""^"",16) I PP410'="""" S PPTEMP=$P($G(^PRCS(410,PP410,4)),""^"",8),PPTEMP=-(PPAMT-PPTEMP)"
^XMB(3.9,84,2,1643,0)="""RTN"",""PRCHMA"",110,0)"
^XMB(3.9,84,2,1644,0)=" .I $P($G(^PRC(442,PRCHPO,7)),""^"",2)=45 S PPTEMP=PPAMT,PPAMT=0"
^XMB(3.9,84,2,1645,0)="""RTN"",""PRCHMA"",111,0)"
^XMB(3.9,84,2,1646,0)=" .I PP410'="""" S $P(^PRCS(410,PP410,4),""^"",3)=0"
^XMB(3.9,84,2,1647,0)="""RTN"",""PRCHMA"",112,0)"
^XMB(3.9,84,2,1648,0)=" .I PP410'="""" S $P(^PRCS(410,PP410,4),""^"",8)=PPAMT"
^XMB(3.9,84,2,1649,0)="""RTN"",""PRCHMA"",113,0)"
^XMB(3.9,84,2,1650,0)=" .S A=$$DATE^PRC0C($P(PRCOAMT,""^"",3),""I""),$P(PRCOAMT,""^"",3,4)=$E(A,3,4)_""^""_$P(A,""^"",2),$P(PRCOAMT,""^"",5)=PPTEMP D EBAL^PRCSEZ(PRCOAMT,""O"")"
^XMB(3.9,84,2,1651,0)="""RTN"",""PRCHMA"",114,0)"
^XMB(3.9,84,2,1652,0)=" .I PP410'="""",$P($G(^PRC(442,PRCHPO,7)),""^"",2)=45 S $P(^PRCS(410,PP410,0),""^"",2)=""CA"" D ERS410^PRC0G(PP410_""^C"")"
^XMB(3.9,84,2,1653,0)="""RTN"",""PRCHMA"",115,0)"
^XMB(3.9,84,2,1654,0)=" .D REMOVE^PRCSC2(PP410),ENCODE^PRCSC2(PP410,DUZ,.MESSAGE) K MESSAGE"
^XMB(3.9,84,2,1655,0)="""RTN"",""PRCHMA"",116,0)"
^XMB(3.9,84,2,1656,0)=" .I '$G(PRCPROST) W !?3,""SEND TO SUPPLY "" S PRCHQ=""^PRCHPAM"",D0=PRCHPO,D1=PRCHAM D ^PRCHQUE"
^XMB(3.9,84,2,1657,0)="""RTN"",""PRCHMA"",117,0)"
^XMB(3.9,84,2,1658,0)=" .;"
^XMB(3.9,84,2,1659,0)="""RTN"",""PRCHMA"",118,0)"
^XMB(3.9,84,2,1660,0)=" .; Update file #440.5 after amendment has been approved. Consider orders"
^XMB(3.9,84,2,1661,0)="""RTN"",""PRCHMA"",119,0)"
^XMB(3.9,84,2,1662,0)=" .; created and amended in the same month and year and the user either"
^XMB(3.9,84,2,1663,0)="""RTN"",""PRCHMA"",120,0)"
^XMB(3.9,84,2,1664,0)=" .; cancels the order or enters other type of amendment that changes the"
^XMB(3.9,84,2,1665,0)="""RTN"",""PRCHMA"",121,0)"
^XMB(3.9,84,2,1666,0)=" .; final amount of the order. No credit is given for orders from a"
^XMB(3.9,84,2,1667,0)="""RTN"",""PRCHMA"",122,0)"
^XMB(3.9,84,2,1668,0)=" .; previous month and year. DT is the current date, system-supplied."
^XMB(3.9,84,2,1669,0)="""RTN"",""PRCHMA"",123,0)"
^XMB(3.9,84,2,1670,0)=" .;"
^XMB(3.9,84,2,1671,0)="""RTN"",""PRCHMA"",124,0)"
^XMB(3.9,84,2,1672,0)=" .S PRCHCD=$P($G(^PRC(442,PRCHPO,23)),U,8)"
^XMB(3.9,84,2,1673,0)="""RTN"",""PRCHMA"",125,0)"
^XMB(3.9,84,2,1674,0)=" .S PRCNODE=$G(^PRC(442,PRCHPO,6,0)),PRCAMD=$P(PRCNODE,U,3)"
^XMB(3.9,84,2,1675,0)="""RTN"",""PRCHMA"",126,0)"
^XMB(3.9,84,2,1676,0)=" .S PRCCHG=$P($G(^PRC(442,PRCHPO,6,PRCAMD,0)),U,3)"
^XMB(3.9,84,2,1677,0)="""RTN"",""PRCHMA"",127,0)"
^XMB(3.9,84,2,1678,0)=" .S POSTAT=$P($G(^PRC(442,PRCHPO,7)),""^"",2)"
^XMB(3.9,84,2,1679,0)="""RTN"",""PRCHMA"",128,0)"
^XMB(3.9,84,2,1680,0)=" .I $E($P(^PRC(442,PRCHPO,1),U,15),1,5)=$E(DT,1,5),POSTAT'=45 D"
^XMB(3.9,84,2,1681,0)="""RTN"",""PRCHMA"",129,0)"
^XMB(3.9,84,2,1682,0)=" ..I $G(PPAMT)<0 Q"
^XMB(3.9,84,2,1683,0)="""RTN"",""PRCHMA"",130,0)"
^XMB(3.9,84,2,1684,0)=" ..S $P(^PRC(440.5,PRCHCD,2),U)=$P($G(^PRC(440.5,PRCHCD,2)),U)+$G(PRCCHG)"
^XMB(3.9,84,2,1685,0)="""RTN"",""PRCHMA"",131,0)"
^XMB(3.9,84,2,1686,0)=" ..I $P($G(^PRC(440.5,PRCHCD,2)),U)<0 S $P(^PRC(440.5,PRCHCD,2),U)=0"
^XMB(3.9,84,2,1687,0)="""RTN"",""PRCHMA"",132,0)"
^XMB(3.9,84,2,1688,0)=" .;"
^XMB(3.9,84,2,1689,0)="""RTN"",""PRCHMA"",133,0)"
^XMB(3.9,84,2,1690,0)=" .I $E($P(^PRC(442,PRCHPO,1),U,15),1,5)=$E(DT,1,5),POSTAT=45 D"
^XMB(3.9,84,2,1691,0)="""RTN"",""PRCHMA"",134,0)"
^XMB(3.9,84,2,1692,0)=" ..I $G(PPTEMP)<0 Q"
^XMB(3.9,84,2,1693,0)="""RTN"",""PRCHMA"",135,0)"
^XMB(3.9,84,2,1694,0)=" ..S $P(^PRC(440.5,PRCHCD,2),U)=$P($G(^PRC(440.5,PRCHCD,2)),U)-$G(PPTEMP)"
^XMB(3.9,84,2,1695,0)="""RTN"",""PRCHMA"",136,0)"
^XMB(3.9,84,2,1696,0)=" ..I $P($G(^PRC(440.5,PRCHCD,2)),U)<0 S $P(^PRC(440.5,PRCHCD,2),U)=0"
^XMB(3.9,84,2,1697,0)="""RTN"",""PRCHMA"",137,0)"
^XMB(3.9,84,2,1698,0)=" .;"
^XMB(3.9,84,2,1699,0)="""RTN"",""PRCHMA"",138,0)"
^XMB(3.9,84,2,1700,0)=" .; Update file #440.5 only if the amendment is for non-cancellation"
^XMB(3.9,84,2,1701,0)="""RTN"",""PRCHMA"",139,0)"
^XMB(3.9,84,2,1702,0)=" .; of an order from a previous month regardless of the year."
^XMB(3.9,84,2,1703,0)="""RTN"",""PRCHMA"",140,0)"
^XMB(3.9,84,2,1704,0)=" .I $E($P(^PRC(442,PRCHPO,1),U,15),1,5)'=$E(DT,1,5),POSTAT'=45 D"
^XMB(3.9,84,2,1705,0)="""RTN"",""PRCHMA"",141,0)"
^XMB(3.9,84,2,1706,0)=" ..I $G(PPAMT)<0 Q"
^XMB(3.9,84,2,1707,0)="""RTN"",""PRCHMA"",142,0)"
^XMB(3.9,84,2,1708,0)=" ..S $P(^PRC(440.5,PRCHCD,2),U)=$P($G(^PRC(440.5,PRCHCD,2)),U)+$G(PPAMT)"
^XMB(3.9,84,2,1709,0)="""RTN"",""PRCHMA"",143,0)"
^XMB(3.9,84,2,1710,0)=" .K DA,MTOPDA,PRCAMD,PRCHCD,PRCCHG,PRCNODE,POSTAT,PPTEMP,PPAMT,PP410"
^XMB(3.9,84,2,1711,0)="""RTN"",""PRCHMA"",144,0)"
^XMB(3.9,84,2,1712,0)=" S SFUND="""" I $P($G(^PRC(443.6,PRCHPO,0)),U,19)=2 D SUPP^PRCFFM2M S SFUND=1"
^XMB(3.9,84,2,1713,0)="""RTN"",""PRCHMA"",145,0)"
^XMB(3.9,84,2,1714,0)=" I SFUND=1 W !?3,""SEND TO SUPPLY "" S PRCHQ=""^PRCHPAM"",D0=PRCHPO,D1=PRCHAM D ^PRCHQUE"
^XMB(3.9,84,2,1715,0)="""RTN"",""PRCHMA"",146,0)"
^XMB(3.9,84,2,1716,0)=" ;"
^XMB(3.9,84,2,1717,0)="""RTN"",""PRCHMA"",147,0)"
^XMB(3.9,84,2,1718,0)=" D SOURCE^PRCHAMU:$G(SCE)"
^XMB(3.9,84,2,1719,0)="""RTN"",""PRCHMA"",148,0)"
^XMB(3.9,84,2,1720,0)=" G EXIT"
^XMB(3.9,84,2,1721,0)="""RTN"",""PRCHMA"",149,0)"
^XMB(3.9,84,2,1722,0)=" ;"
^XMB(3.9,84,2,1723,0)="""RTN"",""PRCHMA"",150,0)"
^XMB(3.9,84,2,1724,0)="ENC ;Can"
^XMB(3.9,84,2,1725,0)="""RTN"",""PRCHMA"",151,0)"
^XMB(3.9,84,2,1726,0)=" S ER=0"
^XMB(3.9,84,2,1727,0)="""RTN"",""PRCHMA"",152,0)"
^XMB(3.9,84,2,1728,0)=" D CAN^PRCHMA3"
^XMB(3.9,84,2,1729,0)="""RTN"",""PRCHMA"",153,0)"
^XMB(3.9,84,2,1730,0)=" I $G(NOCAN)=1 W !?5,$S($D(PRCHREQ):""REQUISITION"",1:""PURCHASE ORDER"")_"" HAS BEEN RECEIVED, CANNOT CANCEL !"",$C(7) S ER=1 Q"
^XMB(3.9,84,2,1731,0)="""RTN"",""PRCHMA"",154,0)"
^XMB(3.9,84,2,1732,0)=" I $G(PRCHAUTH)=1 D PAID^PRCHINQ I $G(PAID)=1 D  S ER=1 Q"
^XMB(3.9,84,2,1733,0)="""RTN"",""PRCHMA"",155,0)"
^XMB(3.9,84,2,1734,0)=" . W !,?5,""THERE HAS BEEN PAYMENT MADE FOR THIS PURCHASE CARD ORDER, CANNOT CANCEL !"",$C(7)"
^XMB(3.9,84,2,1735,0)="""RTN"",""PRCHMA"",156,0)"
^XMB(3.9,84,2,1736,0)=" S %="""",%A=""     SURE YOU WANT TO CANCEL THIS ORDER "",%B="""" D ^PRCFYN"
^XMB(3.9,84,2,1737,0)="""RTN"",""PRCHMA"",157,0)"
^XMB(3.9,84,2,1738,0)=" I %'=1 W ?40,""    <NOTHING CANCELLED>"" D  Q"
^XMB(3.9,84,2,1739,0)="""RTN"",""PRCHMA"",158,0)"
^XMB(3.9,84,2,1740,0)=" .I $D(PRCHAU) D"
^XMB(3.9,84,2,1741,0)="""RTN"",""PRCHMA"",159,0)"
^XMB(3.9,84,2,1742,0)=" ..S $P(^PRC(443.6,PRCHPO,6,PRCHAM,0),U,4)=PRCHAU"
^XMB(3.9,84,2,1743,0)="""RTN"",""PRCHMA"",160,0)"
^XMB(3.9,84,2,1744,0)=" ..S $P(^PRC(443.6,PRCHPO,6,PRCHAM,1),U,4)="""""
^XMB(3.9,84,2,1745,0)="""RTN"",""PRCHMA"",161,0)"
^XMB(3.9,84,2,1746,0)=" .S NOCAN=1"
^XMB(3.9,84,2,1747,0)="""RTN"",""PRCHMA"",162,0)"
^XMB(3.9,84,2,1748,0)=" S DA(1)=PRCHPO,DIE=""^PRC(443.6,""_DA(1)_"",6,"",DA=PRCHAM,DR=""9////^S X=$O(^PRCD(442.3,""""C"""",45,0))"""
^XMB(3.9,84,2,1749,0)="""RTN"",""PRCHMA"",163,0)"
^XMB(3.9,84,2,1750,0)=" D ^DIE K DIE,DA,DR S CAN=1"
^XMB(3.9,84,2,1751,0)="""RTN"",""PRCHMA"",164,0)"
^XMB(3.9,84,2,1752,0)=" S PRCHAMT=-$P(^PRC(443.6,PRCHPO,0),U,15) W !"
^XMB(3.9,84,2,1753,0)="""RTN"",""PRCHMA"",165,0)"
^XMB(3.9,84,2,1754,0)=" QUIT"
^XMB(3.9,84,2,1755,0)="""RTN"",""PRCHMA"",166,0)"
^XMB(3.9,84,2,1756,0)="APP ;App,pr"
^XMB(3.9,84,2,1757,0)="""RTN"",""PRCHMA"",167,0)"
^XMB(3.9,84,2,1758,0)=" S %A=""   Approve Amendment number ""_PRCHAM_"": "",%B="""",%=$S($G(PRCPROST):1,1:2) D ^PRCFYN"
^XMB(3.9,84,2,1759,0)="""RTN"",""PRCHMA"",168,0)"
^XMB(3.9,84,2,1760,0)=" Q"
^XMB(3.9,84,2,1761,0)="""RTN"",""PRCHMA"",169,0)"
^XMB(3.9,84,2,1762,0)="REV ;Rev"
^XMB(3.9,84,2,1763,0)="""RTN"",""PRCHMA"",170,0)"
^XMB(3.9,84,2,1764,0)=" N PRCH"
^XMB(3.9,84,2,1765,0)="""RTN"",""PRCHMA"",171,0)"
^XMB(3.9,84,2,1766,0)=" S %=1,%B="""",%A=""   Review Amendment "" D ^PRCHSF3 W ! D ^PRCFYN"
^XMB(3.9,84,2,1767,0)="""RTN"",""PRCHMA"",172,0)"
^XMB(3.9,84,2,1768,0)=" I %=1 S D0=PRCHPO,D1=PRCHAM,PRCH=""^PRC(443.6,"" D ^PRCHDAM"
^XMB(3.9,84,2,1769,0)="""RTN"",""PRCHMA"",173,0)"
^XMB(3.9,84,2,1770,0)=" Q"
^XMB(3.9,84,2,1771,0)="""RTN"",""PRCHMA"",174,0)"
^XMB(3.9,84,2,1772,0)="EXIT ;Ex"
^XMB(3.9,84,2,1773,0)="""RTN"",""PRCHMA"",175,0)"
^XMB(3.9,84,2,1774,0)=" L -^PRC(442,PRCENTRY)"
^XMB(3.9,84,2,1775,0)="""RTN"",""PRCHMA"",176,0)"
^XMB(3.9,84,2,1776,0)="EXIT1 K ERROR,FIS,REPO,DEL"
^XMB(3.9,84,2,1777,0)="""RTN"",""PRCHMA"",177,0)"
^XMB(3.9,84,2,1778,0)=" QUIT:$G(PRCPROST)"
^XMB(3.9,84,2,1779,0)="""RTN"",""PRCHMA"",178,0)"
^XMB(3.9,84,2,1780,0)=" I $G(OUT)'=1 G LOOP"
^XMB(3.9,84,2,1781,0)="""RTN"",""PRCHMA"",179,0)"
^XMB(3.9,84,2,1782,0)=" QUIT"
^XMB(3.9,84,2,1783,0)="""RTN"",""PRCHMA"",180,0)"
^XMB(3.9,84,2,1784,0)=" ;"
^XMB(3.9,84,2,1785,0)="""RTN"",""PRCHMA"",181,0)"
^XMB(3.9,84,2,1786,0)="FLAG ;"
^XMB(3.9,84,2,1787,0)="""RTN"",""PRCHMA"",182,0)"
^XMB(3.9,84,2,1788,0)=" I $G(FLAG)=1 K FLAG Q"
^XMB(3.9,84,2,1789,0)="""RTN"",""PRCHMA"",183,0)"
^XMB(3.9,84,2,1790,0)=" Q"
^XMB(3.9,84,2,1791,0)="""RTN"",""PRCHMA"",184,0)"
^XMB(3.9,84,2,1792,0)="NOSIGN ;"
^XMB(3.9,84,2,1793,0)="""RTN"",""PRCHMA"",185,0)"
^XMB(3.9,84,2,1794,0)=" S $P(^PRC(443.6,PRCHPO,6,PRCHAM,0),U,4)=PRCHAU"
^XMB(3.9,84,2,1795,0)="""RTN"",""PRCHMA"",186,0)"
^XMB(3.9,84,2,1796,0)="NOSIGN1 S DA(1)=PRCHPO,DIE=""^PRC(443.6,""_DA(1)_"",6,"",DA=PRCHAM,DR=""9///@"""
^XMB(3.9,84,2,1797,0)="""RTN"",""PRCHMA"",187,0)"
^XMB(3.9,84,2,1798,0)=" D ^DIE K DIE,DA,DR"
^XMB(3.9,84,2,1799,0)="""RTN"",""PRCHMA"",188,0)"
^XMB(3.9,84,2,1800,0)=" Q"
^XMB(3.9,84,2,1801,0)="""RTN"",""PRCHMA"",189,0)"
^XMB(3.9,84,2,1802,0)="TOP ;PAUSE AT BOTTOM OF SCREEN"
^XMB(3.9,84,2,1803,0)="""RTN"",""PRCHMA"",190,0)"
^XMB(3.9,84,2,1804,0)=" N DIR S DIR(0)=""E"""
^XMB(3.9,84,2,1805,0)="""RTN"",""PRCHMA"",191,0)"
^XMB(3.9,84,2,1806,0)=" D ^DIR"
^XMB(3.9,84,2,1807,0)="""RTN"",""PRCHMA"",192,0)"
^XMB(3.9,84,2,1808,0)=" S LCNT=1"
^XMB(3.9,84,2,1809,0)="""RTN"",""PRCHMA"",193,0)"
^XMB(3.9,84,2,1810,0)=" Q"
^XMB(3.9,84,2,1811,0)="""RTN"",""PRCHNPO1"")"
^XMB(3.9,84,2,1812,0)="0^2^B54452339^B36217028"
^XMB(3.9,84,2,1813,0)="""RTN"",""PRCHNPO1"",1,0)"
^XMB(3.9,84,2,1814,0)="PRCHNPO1 ;SF-ISC/RSD/RHD-CONT. OF NEW PO ;6/9/96  19:48"
^XMB(3.9,84,2,1815,0)="""RTN"",""PRCHNPO1"",2,0)"
^XMB(3.9,84,2,1816,0)="V ;;5.1;IFCAP;**16,79,100**;Oct 20, 2000"
^XMB(3.9,84,2,1817,0)="""RTN"",""PRCHNPO1"",3,0)"
^XMB(3.9,84,2,1818,0)=" ;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,84,2,1819,0)="""RTN"",""PRCHNPO1"",4,0)"
^XMB(3.9,84,2,1820,0)=" I '$G(PRCHPC),'$G(PRCHPHAM) D"
^XMB(3.9,84,2,1821,0)="""RTN"",""PRCHNPO1"",5,0)"
^XMB(3.9,84,2,1822,0)=" .S PRCH=0,DIE=""^PRC(442,"",DR=""[PRCHDISCNT]"",(D0,DA,DA(1))=PRCHPO"
^XMB(3.9,84,2,1823,0)="""RTN"",""PRCHNPO1"",6,0)"
^XMB(3.9,84,2,1824,0)=" .I $G(PRCHDELV) S DR=""[PRCHPROMPT]"""
^XMB(3.9,84,2,1825,0)="""RTN"",""PRCHNPO1"",7,0)"
^XMB(3.9,84,2,1826,0)=" .D ^DIE"
^XMB(3.9,84,2,1827,0)="""RTN"",""PRCHNPO1"",8,0)"
^XMB(3.9,84,2,1828,0)=" F I=1:1 S PRCH=$O(^PRC(442,PRCHPO,3,PRCH)) Q:PRCH=""""!(PRCH'>0)  S PRCHCN=$S($P(^(PRCH,0),U,5)]"""":$P(^(0),U,5),1:"".OM""),PRCHAC=$P(^(0),U,1),PRCHACT=$P(^(0),U,4),PRCHP=$P(^(0),U,2) D SET Q:'$D(PRCHPO)"
^XMB(3.9,84,2,1829,0)="""RTN"",""PRCHNPO1"",9,0)"
^XMB(3.9,84,2,1830,0)=" G ERR^PRCHNPO:'$D(PRCHPO) S $P(^PRC(442,PRCHPO,0),U,14)=$P(^PRC(442,PRCHPO,0),U,14)+I-1,PRCHLCNT=$P(^(0),U,14),Y=$G(^PRC(440,PRCHV,2)),PRCHN(""LSA"")=$P(Y,U,5),PRCHN(""MB"")=$S(PRCHDT:$P(Y,U,3),1:$P(Y,U,6))"
^XMB(3.9,84,2,1831,0)="""RTN"",""PRCHNPO1"",10,0)"
^XMB(3.9,84,2,1832,0)=" S PRCHBO=$S(PRCHDT:1.1,1:1) K PRCHB"
^XMB(3.9,84,2,1833,0)="""RTN"",""PRCHNPO1"",11,0)"
^XMB(3.9,84,2,1834,0)=" S X="""",PRCH="""" F I=0:0 S PRCH=$O(PRCH(""AM"",PRCH)) Q:PRCH=""""  S X=X+$P(PRCH(""AM"",PRCH),U,2)"
^XMB(3.9,84,2,1835,0)="""RTN"",""PRCHNPO1"",12,0)"
^XMB(3.9,84,2,1836,0)=" ;Comment line below for PRC*5.1*79, new FPDS report for Austin"
^XMB(3.9,84,2,1837,0)="""RTN"",""PRCHNPO1"",13,0)"
^XMB(3.9,84,2,1838,0)=" ;G:($G(PRCHPC)!$G(PRCHDELV)) EST"
^XMB(3.9,84,2,1839,0)="""RTN"",""PRCHNPO1"",14,0)"
^XMB(3.9,84,2,1840,0)=" I $G(PRCHPC)=1 G EST ;skip for Simplified PC orders, PRC*5.1*79"
^XMB(3.9,84,2,1841,0)="""RTN"",""PRCHNPO1"",15,0)"
^XMB(3.9,84,2,1842,0)=" I PRCHDT I (X+PRCHEST>25000&(""467B""'[PRCHSC))!(""013""[PRCHSC)!(PRCHN(""MP"")=12)!(PRCHN(""MP"")=5)!(PRCHN(""SFC"")=1) G E2"
^XMB(3.9,84,2,1843,0)="""RTN"",""PRCHNPO1"",16,0)"
^XMB(3.9,84,2,1844,0)=" I $O(^PRC(440,PRCHV,PRCHBO,0)) S PRCHB(0)=""^442.16PA^""_$P(^(0),U,3,4) F I=0:0 S I=$O(^PRC(440,PRCHV,PRCHBO,I)) Q:'I  S:$P(^PRCD(420.6,+I,0),""^"",5)'=""N"" PRCHB(I)=I"
^XMB(3.9,84,2,1845,0)="""RTN"",""PRCHNPO1"",17,0)"
^XMB(3.9,84,2,1846,0)=" I PRCHDT,'$D(PRCHB) D ER3^PRCHNPO6 G ERR^PRCHNPO"
^XMB(3.9,84,2,1847,0)="""RTN"",""PRCHNPO1"",18,0)"
^XMB(3.9,84,2,1848,0)=" D EN6^PRCHNPO2 G ERR^PRCHNPO:'$D(PRCHPO)"
^XMB(3.9,84,2,1849,0)="""RTN"",""PRCHNPO1"",19,0)"
^XMB(3.9,84,2,1850,0)=" ;"
^XMB(3.9,84,2,1851,0)="""RTN"",""PRCHNPO1"",20,0)"
^XMB(3.9,84,2,1852,0)=" ;Clean up node 25 to place new FPDS data, PRC*5.1*79."
^XMB(3.9,84,2,1853,0)="""RTN"",""PRCHNPO1"",21,0)"
^XMB(3.9,84,2,1854,0)="E2 S DR=$S($G(PRCHPC)=2:""[PRCHAMT89 NEW]"",$D(PRCHDELV):""[PRCHAMT89 NEW]"",$D(PRCHPHAM):""[PRCHAMT89 NEW]"",PRCHDT:""[PRCHAMT89]"",1:""[PRCHAMT]"")"
^XMB(3.9,84,2,1855,0)="""RTN"",""PRCHNPO1"",22,0)"
^XMB(3.9,84,2,1856,0)=" K ^PRC(442,PRCHPO,9),^PRC(442,PRCHPO,25) S $P(^PRC(442,PRCHPO,0),U,15,16)=""0^0"""
^XMB(3.9,84,2,1857,0)="""RTN"",""PRCHNPO1"",23,0)"
^XMB(3.9,84,2,1858,0)=" ;"
^XMB(3.9,84,2,1859,0)="""RTN"",""PRCHNPO1"",24,0)"
^XMB(3.9,84,2,1860,0)=" I PRCHDT D FPDS^PRCHFPD2 G:'PRCHFPDS EST"
^XMB(3.9,84,2,1861,0)="""RTN"",""PRCHNPO1"",25,0)"
^XMB(3.9,84,2,1862,0)=" S PRCHY=0 I PRCHEST>0,PRCHEC>0 S PRCHY=PRCHEST/PRCHEC,Y=$P(PRCHY,""."",2) I $L(Y)>2 S PRCHY=$P(PRCHY,""."",1)+$J("".""_Y,2,2)"
^XMB(3.9,84,2,1863,0)="""RTN"",""PRCHNPO1"",26,0)"
^XMB(3.9,84,2,1864,0)=" S PRCH=0 F PRCHI=1:1 S PRCH=$O(PRCH(""AM"",PRCH)) Q:PRCH=""""  D TYPE S PRCHAMT=PRCH(""AM"",PRCH),PRCHCN=$S(PRCH="".OM"":"""",1:PRCH),DIE(""NO^"")=""NO"" W ?40,""AMOUNT: "",PRCHAMT S PRCHAMT=""""""""_PRCHAMT_"""""""" D ^DIE"
^XMB(3.9,84,2,1865,0)="""RTN"",""PRCHNPO1"",27,0)"
^XMB(3.9,84,2,1866,0)=" ;New tasks for FPDS data collection, PRC*5.1*79."
^XMB(3.9,84,2,1867,0)="""RTN"",""PRCHNPO1"",28,0)"
^XMB(3.9,84,2,1868,0)=" ;Look at the entry actions for POs created by a Purchasing Agent, a PC"
^XMB(3.9,84,2,1869,0)="""RTN"",""PRCHNPO1"",29,0)"
^XMB(3.9,84,2,1870,0)=" ;user and a Delivery Orders user and call the required input template."
^XMB(3.9,84,2,1871,0)="""RTN"",""PRCHNPO1"",30,0)"
^XMB(3.9,84,2,1872,0)=" ;PRC*5.1*100 - If the user times out and does not complete the input"
^XMB(3.9,84,2,1873,0)="""RTN"",""PRCHNPO1"",31,0)"
^XMB(3.9,84,2,1874,0)=" ;template for the new FPDS, don't allow electronic sig. Check the last"
^XMB(3.9,84,2,1875,0)="""RTN"",""PRCHNPO1"",32,0)"
^XMB(3.9,84,2,1876,0)=" ;field required for the PO, based on the source code and menu."
^XMB(3.9,84,2,1877,0)="""RTN"",""PRCHNPO1"",33,0)"
^XMB(3.9,84,2,1878,0)=" I '$D(PRCHPC)&(""25""[PRCHSC) D  G:$G(PRCHER)=1 ERR^PRCHNPO"
^XMB(3.9,84,2,1879,0)="""RTN"",""PRCHNPO1"",34,0)"
^XMB(3.9,84,2,1880,0)=" . S DR=""[PRCH NEW PO FPDS]"" D ^DIE"
^XMB(3.9,84,2,1881,0)="""RTN"",""PRCHNPO1"",35,0)"
^XMB(3.9,84,2,1882,0)=" . I '$D(^PRC(442,PRCHPO,25)) S PRCHER=1 Q"
^XMB(3.9,84,2,1883,0)="""RTN"",""PRCHNPO1"",36,0)"
^XMB(3.9,84,2,1884,0)=" . I $P(^PRC(442,PRCHPO,25),U,6)="""" S PRCHER=1 Q"
^XMB(3.9,84,2,1885,0)="""RTN"",""PRCHNPO1"",37,0)"
^XMB(3.9,84,2,1886,0)=" . ;Fund agency code & fund agency office code can be empty in pairs only."
^XMB(3.9,84,2,1887,0)="""RTN"",""PRCHNPO1"",38,0)"
^XMB(3.9,84,2,1888,0)=" . I +$P(^PRC(442,PRCHPO,25),U,7)>0,$P(^PRC(442,PRCHPO,25),U,8)="""" S PRCHER=1 Q"
^XMB(3.9,84,2,1889,0)="""RTN"",""PRCHNPO1"",39,0)"
^XMB(3.9,84,2,1890,0)=" ;"
^XMB(3.9,84,2,1891,0)="""RTN"",""PRCHNPO1"",40,0)"
^XMB(3.9,84,2,1892,0)=" ;For FPDS purposes, consider any PO with any of the following source"
^XMB(3.9,84,2,1893,0)="""RTN"",""PRCHNPO1"",41,0)"
^XMB(3.9,84,2,1894,0)=" ;codes as a delivery order (including direct delivery POs)from a PA:"
^XMB(3.9,84,2,1895,0)="""RTN"",""PRCHNPO1"",42,0)"
^XMB(3.9,84,2,1896,0)=" ;If the user times out, don't allow electronic sig., PRC*5.1*100."
^XMB(3.9,84,2,1897,0)="""RTN"",""PRCHNPO1"",43,0)"
^XMB(3.9,84,2,1898,0)=" I (""467B""[PRCHSC)&($D(^PRC(442,PRCHPO,14)))!($G(PRCHPC)=3) D  G:$G(PRCHER)=1 ERR^PRCHNPO"
^XMB(3.9,84,2,1899,0)="""RTN"",""PRCHNPO1"",44,0)"
^XMB(3.9,84,2,1900,0)=" . S DR=""[PRCH NEW PO FPDS]"" D ^DIE"
^XMB(3.9,84,2,1901,0)="""RTN"",""PRCHNPO1"",45,0)"
^XMB(3.9,84,2,1902,0)=" . I '$D(^PRC(442,PRCHPO,25)) S PRCHER=1 Q"
^XMB(3.9,84,2,1903,0)="""RTN"",""PRCHNPO1"",46,0)"
^XMB(3.9,84,2,1904,0)=" . I $P(^PRC(442,PRCHPO,25),U,15)'="""" D POP Q"
^XMB(3.9,84,2,1905,0)="""RTN"",""PRCHNPO1"",47,0)"
^XMB(3.9,84,2,1906,0)=" . E  S PRCHER=1"
^XMB(3.9,84,2,1907,0)="""RTN"",""PRCHNPO1"",48,0)"
^XMB(3.9,84,2,1908,0)=" ;"
^XMB(3.9,84,2,1909,0)="""RTN"",""PRCHNPO1"",49,0)"
^XMB(3.9,84,2,1910,0)=" ;Get eligible Detailed purchase card orders. If the user times out,"
^XMB(3.9,84,2,1911,0)="""RTN"",""PRCHNPO1"",50,0)"
^XMB(3.9,84,2,1912,0)=" ;don't allow electronic signature, PRC*5.1*100."
^XMB(3.9,84,2,1913,0)="""RTN"",""PRCHNPO1"",51,0)"
^XMB(3.9,84,2,1914,0)=" I $G(PRCHPC)=2 D  G:$G(PRCHER)=1 ERR^PRCHNPO"
^XMB(3.9,84,2,1915,0)="""RTN"",""PRCHNPO1"",52,0)"
^XMB(3.9,84,2,1916,0)=" . S DR=""[PRCH NEW PC FPDS]"" D ^DIE"
^XMB(3.9,84,2,1917,0)="""RTN"",""PRCHNPO1"",53,0)"
^XMB(3.9,84,2,1918,0)=" . I '$D(^PRC(442,PRCHPO,25)) S PRCHER=1 Q"
^XMB(3.9,84,2,1919,0)="""RTN"",""PRCHNPO1"",54,0)"
^XMB(3.9,84,2,1920,0)=" . S PRCHSC=$P(^PRCD(420.8,+PRCHSC,0),U,1)"
^XMB(3.9,84,2,1921,0)="""RTN"",""PRCHNPO1"",55,0)"
^XMB(3.9,84,2,1922,0)=" . I (""2""[PRCHSC)&($P(^PRC(442,PRCHPO,25),U,6)="""") S PRCHER=1 Q"
^XMB(3.9,84,2,1923,0)="""RTN"",""PRCHNPO1"",56,0)"
^XMB(3.9,84,2,1924,0)=" . ;Fund agency code & fund agency office code can be empty in pairs only."
^XMB(3.9,84,2,1925,0)="""RTN"",""PRCHNPO1"",57,0)"
^XMB(3.9,84,2,1926,0)=" . I (""2""[PRCHSC)&(+$P(^PRC(442,PRCHPO,25),U,7)>0),$P(^PRC(442,PRCHPO,25),U,8)="""" S PRCHER=1 Q"
^XMB(3.9,84,2,1927,0)="""RTN"",""PRCHNPO1"",58,0)"
^XMB(3.9,84,2,1928,0)=" . I (""6B""[PRCHSC)&($P(^PRC(442,PRCHPO,25),U,13)="""") S PRCHER=1 Q"
^XMB(3.9,84,2,1929,0)="""RTN"",""PRCHNPO1"",59,0)"
^XMB(3.9,84,2,1930,0)=" ;"
^XMB(3.9,84,2,1931,0)="""RTN"",""PRCHNPO1"",60,0)"
^XMB(3.9,84,2,1932,0)=" ;Get delivery orders from the separate Delivery Orders menu. If the"
^XMB(3.9,84,2,1933,0)="""RTN"",""PRCHNPO1"",61,0)"
^XMB(3.9,84,2,1934,0)=" ;user times out, don't allow electronic sig.; PRC*5.1*100."
^XMB(3.9,84,2,1935,0)="""RTN"",""PRCHNPO1"",62,0)"
^XMB(3.9,84,2,1936,0)=" I $G(PRCHDELV)=1!($G(PRCHPHAM)=1) D  G:$G(PRCHER)=1 ERR^PRCHNPO"
^XMB(3.9,84,2,1937,0)="""RTN"",""PRCHNPO1"",63,0)"
^XMB(3.9,84,2,1938,0)=" . S DR=""[PRCH NEW DEL FPDS]"" D ^DIE"
^XMB(3.9,84,2,1939,0)="""RTN"",""PRCHNPO1"",64,0)"
^XMB(3.9,84,2,1940,0)=" . I '$D(^PRC(442,PRCHPO,25)) S PRCHER=1 Q"
^XMB(3.9,84,2,1941,0)="""RTN"",""PRCHNPO1"",65,0)"
^XMB(3.9,84,2,1942,0)=" . I $P(^PRC(442,PRCHPO,25),U,15)'="""" D POP Q"
^XMB(3.9,84,2,1943,0)="""RTN"",""PRCHNPO1"",66,0)"
^XMB(3.9,84,2,1944,0)=" . E  S PRCHER=1"
^XMB(3.9,84,2,1945,0)="""RTN"",""PRCHNPO1"",67,0)"
^XMB(3.9,84,2,1946,0)=" ;"
^XMB(3.9,84,2,1947,0)="""RTN"",""PRCHNPO1"",68,0)"
^XMB(3.9,84,2,1948,0)=" ;End of changes for PRC*5.1*79."
^XMB(3.9,84,2,1949,0)="""RTN"",""PRCHNPO1"",69,0)"
^XMB(3.9,84,2,1950,0)=" K DIE F I=0:0 Q:'$D(PRCHPO)  S I=$O(^PRC(442,PRCHPO,9,I)) Q:'I  D ER2^PRCHNPO6:$P(^(I,0),""^"",2)="""",ER3^PRCHNPO6:'$O(^(1,0))"
^XMB(3.9,84,2,1951,0)="""RTN"",""PRCHNPO1"",70,0)"
^XMB(3.9,84,2,1952,0)=" ;PRC*5.1*100 - Quit if user fails to populate any required field in"
^XMB(3.9,84,2,1953,0)="""RTN"",""PRCHNPO1"",71,0)"
^XMB(3.9,84,2,1954,0)=" ;node 9 (amount, type code, pref. program, etc.) or just times out."
^XMB(3.9,84,2,1955,0)="""RTN"",""PRCHNPO1"",72,0)"
^XMB(3.9,84,2,1956,0)=" ;"
^XMB(3.9,84,2,1957,0)="""RTN"",""PRCHNPO1"",73,0)"
^XMB(3.9,84,2,1958,0)=" N J,K,L S K=+$P(^PRC(442,PRCHPO,9,0),U,3)"
^XMB(3.9,84,2,1959,0)="""RTN"",""PRCHNPO1"",74,0)"
^XMB(3.9,84,2,1960,0)=" F L=1:1:K D  G:$G(PRCHER)=1 ERR^PRCHNPO"
^XMB(3.9,84,2,1961,0)="""RTN"",""PRCHNPO1"",75,0)"
^XMB(3.9,84,2,1962,0)=" . F J=1,2,4,5 D"
^XMB(3.9,84,2,1963,0)="""RTN"",""PRCHNPO1"",76,0)"
^XMB(3.9,84,2,1964,0)=" .. I $P(^PRC(442,PRCHPO,9,L,0),""^"",J)="""" S PRCHER=1"
^XMB(3.9,84,2,1965,0)="""RTN"",""PRCHNPO1"",77,0)"
^XMB(3.9,84,2,1966,0)=" ;End of changes for PRC*5.1*100."
^XMB(3.9,84,2,1967,0)="""RTN"",""PRCHNPO1"",78,0)"
^XMB(3.9,84,2,1968,0)=" ;"
^XMB(3.9,84,2,1969,0)="""RTN"",""PRCHNPO1"",79,0)"
^XMB(3.9,84,2,1970,0)="EST G ERR^PRCHNPO:'$D(PRCHPO) I 'PRCHEST,PRCHESTL S $P(^PRC(442,PRCHPO,0),U,18)="""""
^XMB(3.9,84,2,1971,0)="""RTN"",""PRCHNPO1"",80,0)"
^XMB(3.9,84,2,1972,0)=" D EN2^PRCHNPO7 I PRCHEST D EST^PRCHNPO6"
^XMB(3.9,84,2,1973,0)="""RTN"",""PRCHNPO1"",81,0)"
^XMB(3.9,84,2,1974,0)=" I $P($G(^PRC(442,PRCHPO,23)),U,11)="""",PRCHSTAT'=22 S (X,Y)=5,DA=PRCHPO D UPD^PRCHSTAT"
^XMB(3.9,84,2,1975,0)="""RTN"",""PRCHNPO1"",82,0)"
^XMB(3.9,84,2,1976,0)=" I $G(PRCHPC)=2!$G(PRCHDELV) S (D0,DA)=PRCHPO D ^PRCHSF"
^XMB(3.9,84,2,1977,0)="""RTN"",""PRCHNPO1"",83,0)"
^XMB(3.9,84,2,1978,0)=" I '$G(PRCPROST) S %=1,%B="""",%A=""     Review ""_$S($G(PRCHPC):""Purchase Card"",$G(PRCHDELV):""Delivery"",1:""Purchase"")_"" Order "" D ^PRCFYN I %=1 S D0=PRCHPO D ^PRCHDP1"
^XMB(3.9,84,2,1979,0)="""RTN"",""PRCHNPO1"",84,0)"
^XMB(3.9,84,2,1980,0)=" I PRCHSTAT=22 S (D0,DA)=PRCHPO D ^PRCHSF G Q^PRCHNPO4"
^XMB(3.9,84,2,1981,0)="""RTN"",""PRCHNPO1"",85,0)"
^XMB(3.9,84,2,1982,0)=" G ^PRCHNPO4"
^XMB(3.9,84,2,1983,0)="""RTN"",""PRCHNPO1"",86,0)"
^XMB(3.9,84,2,1984,0)=" ;"
^XMB(3.9,84,2,1985,0)="""RTN"",""PRCHNPO1"",87,0)"
^XMB(3.9,84,2,1986,0)="SET G:PRCHAC=""Q"" PCTQ"
^XMB(3.9,84,2,1987,0)="""RTN"",""PRCHNPO1"",88,0)"
^XMB(3.9,84,2,1988,0)=" I PRCHAC["":"" S PRCHAC=$P(PRCHAC,"":"",1)_"":1:""_$P(PRCHAC,"":"",2)"
^XMB(3.9,84,2,1989,0)="""RTN"",""PRCHNPO1"",89,0)"
^XMB(3.9,84,2,1990,0)=" ;"
^XMB(3.9,84,2,1991,0)="""RTN"",""PRCHNPO1"",90,0)"
^XMB(3.9,84,2,1992,0)="PCT S PRCHAMT=0,Y=""F J=""_PRCHAC_"" S PRCHN=J D PCT1 G:$D(PRCHER) Q"" X Y Q:'$D(PRCHPO)"
^XMB(3.9,84,2,1993,0)="""RTN"",""PRCHNPO1"",91,0)"
^XMB(3.9,84,2,1994,0)=" S PRCHAMT=PRCHAMT*100+.5\1/100,$P(PRCH(""AM"",PRCHCN),U,2)=$P(PRCH(""AM"",PRCHCN),U,2)-PRCHAMT"
^XMB(3.9,84,2,1995,0)="""RTN"",""PRCHNPO1"",92,0)"
^XMB(3.9,84,2,1996,0)=" S $P(^PRC(442,PRCHPO,3,PRCH,0),U,3)=PRCHAMT,$P(^(0),U,6)=I+PRCHLCNT"
^XMB(3.9,84,2,1997,0)="""RTN"",""PRCHNPO1"",93,0)"
^XMB(3.9,84,2,1998,0)=" Q"
^XMB(3.9,84,2,1999,0)="""RTN"",""PRCHNPO1"",94,0)"
^XMB(3.9,84,2,2000,0)=" ;"
^XMB(3.9,84,2,2001,0)="""RTN"",""PRCHNPO1"",95,0)"
^XMB(3.9,84,2,2002,0)="PCT1 I $D(^PRC(442,PRCHPO,2,""B"",PRCHN)) S GTFLAG="""" D  G:GTFLAG=1 ER^PRCHNPO6 G:GTFLAG=2 ER1^PRCHNPO6"
^XMB(3.9,84,2,2003,0)="""RTN"",""PRCHNPO1"",96,0)"
^XMB(3.9,84,2,2004,0)=" .S PRCHN=$O(^PRC(442,PRCHPO,2,""B"",PRCHN,0)),PRCHD=+$P($G(^PRC(442,PRCHPO,2,PRCHN,2)),U,1) I PRCHD'>0 S GTFLAG=1 Q"
^XMB(3.9,84,2,2005,0)="""RTN"",""PRCHNPO1"",97,0)"
^XMB(3.9,84,2,2006,0)=" .I $S(PRCHCN="".OM""&($P(^(2),U,2)=""""):0,PRCHCN=$P(^(2),U,2):0,1:1) S GTFLAG=2 Q"
^XMB(3.9,84,2,2007,0)="""RTN"",""PRCHNPO1"",98,0)"
^XMB(3.9,84,2,2008,0)=" .S PRCHDA=0"
^XMB(3.9,84,2,2009,0)="""RTN"",""PRCHNPO1"",99,0)"
^XMB(3.9,84,2,2010,0)=" .I $E(PRCHP,1)=""$"" S PRCHDA=$P(PRCHP,""$"",2)/PRCHACT"
^XMB(3.9,84,2,2011,0)="""RTN"",""PRCHNPO1"",100,0)"
^XMB(3.9,84,2,2012,0)=" .E  S PRCHDA=$J(PRCHD*(PRCHP/100),0,2)"
^XMB(3.9,84,2,2013,0)="""RTN"",""PRCHNPO1"",101,0)"
^XMB(3.9,84,2,2014,0)=" .S PRCHAMT=PRCHAMT+PRCHDA,$P(^PRC(442,PRCHPO,2,PRCHN,2),U,6)=PRCHDA"
^XMB(3.9,84,2,2015,0)="""RTN"",""PRCHNPO1"",102,0)"
^XMB(3.9,84,2,2016,0)=" Q"
^XMB(3.9,84,2,2017,0)="""RTN"",""PRCHNPO1"",103,0)"
^XMB(3.9,84,2,2018,0)=" ;"
^XMB(3.9,84,2,2019,0)="""RTN"",""PRCHNPO1"",104,0)"
^XMB(3.9,84,2,2020,0)="PCTQ S (PRCHAMT,PRCHCN,PRCHX)=0,PRCHACT=PRCHLCNT F K=0:0 S PRCHCN=$O(PRCH(""AM"",PRCHCN)) Q:PRCHCN=""""  S PRCHAC=$E($P(PRCH(""AM"",PRCHCN),U,3),1,$L($P(PRCH(""AM"",PRCHCN),U,3))-1) D PCT Q:'$D(PRCHPO)  S PRCHX=PRCHX+PRCHAMT"
^XMB(3.9,84,2,2021,0)="""RTN"",""PRCHNPO1"",105,0)"
^XMB(3.9,84,2,2022,0)=" Q:'$D(PRCHPO)  S $P(^PRC(442,PRCHPO,3,PRCH,0),U,3)=PRCHX"
^XMB(3.9,84,2,2023,0)="""RTN"",""PRCHNPO1"",106,0)"
^XMB(3.9,84,2,2024,0)=" Q"
^XMB(3.9,84,2,2025,0)="""RTN"",""PRCHNPO1"",107,0)"
^XMB(3.9,84,2,2026,0)=" ;"
^XMB(3.9,84,2,2027,0)="""RTN"",""PRCHNPO1"",108,0)"
^XMB(3.9,84,2,2028,0)="POP ;Set up place of performance for PRC*5.1*79, new FPDS. If station is the"
^XMB(3.9,84,2,2029,0)="""RTN"",""PRCHNPO1"",109,0)"
^XMB(3.9,84,2,2030,0)=" ;place of perf. for PO, send the state abbrev. and zip code, otherwise"
^XMB(3.9,84,2,2031,0)="""RTN"",""PRCHNPO1"",110,0)"
^XMB(3.9,84,2,2032,0)=" ;send the vendor's state and zip code. Applies to all Delivery POs."
^XMB(3.9,84,2,2033,0)="""RTN"",""PRCHNPO1"",111,0)"
^XMB(3.9,84,2,2034,0)=" ;For Guaranteed Delivery orders, we have to choose the VAMC since users"
^XMB(3.9,84,2,2035,0)="""RTN"",""PRCHNPO1"",112,0)"
^XMB(3.9,84,2,2036,0)=" ;are not asked for a SHIP TO location - PRC*5.1*100."
^XMB(3.9,84,2,2037,0)="""RTN"",""PRCHNPO1"",113,0)"
^XMB(3.9,84,2,2038,0)=" N PRCST,PRCSTL,PRCSZP,PRCPOP,PRCLOC,PRCROOT,PRCVAMC"
^XMB(3.9,84,2,2039,0)="""RTN"",""PRCHNPO1"",114,0)"
^XMB(3.9,84,2,2040,0)=" I $P(^PRC(442,PRCHPO,25),""^"",15)=""Y"" D"
^XMB(3.9,84,2,2041,0)="""RTN"",""PRCHNPO1"",115,0)"
^XMB(3.9,84,2,2042,0)=" . I $P(^PRC(442,PRCHPO,0),""^"",2)=4 D POP1 Q"
^XMB(3.9,84,2,2043,0)="""RTN"",""PRCHNPO1"",116,0)"
^XMB(3.9,84,2,2044,0)=" . S PRCLOC=$P(^PRC(442,PRCHPO,1),U,3) ;ship to location"
^XMB(3.9,84,2,2045,0)="""RTN"",""PRCHNPO1"",117,0)"
^XMB(3.9,84,2,2046,0)=" . S PRCST=$P(^PRC(411,PRC(""SITE""),1,PRCLOC,0),""^"",6)  ;station's state"
^XMB(3.9,84,2,2047,0)="""RTN"",""PRCHNPO1"",118,0)"
^XMB(3.9,84,2,2048,0)=" . S PRCSTL=$P(^DIC(5,PRCST,0),""^"",2)"
^XMB(3.9,84,2,2049,0)="""RTN"",""PRCHNPO1"",119,0)"
^XMB(3.9,84,2,2050,0)=" . S PRCSZP=$P(^PRC(411,PRC(""SITE""),1,PRCLOC,0),""^"",7) ;station's zip"
^XMB(3.9,84,2,2051,0)="""RTN"",""PRCHNPO1"",120,0)"
^XMB(3.9,84,2,2052,0)=" . S PRCPOP=PRCSTL_PRCSZP,$P(^PRC(442,PRCHPO,25),""^"",16)=PRCPOP"
^XMB(3.9,84,2,2053,0)="""RTN"",""PRCHNPO1"",121,0)"
^XMB(3.9,84,2,2054,0)=" . Q"
^XMB(3.9,84,2,2055,0)="""RTN"",""PRCHNPO1"",122,0)"
^XMB(3.9,84,2,2056,0)=" I $P(^PRC(442,PRCHPO,25),""^"",15)=""N"" D"
^XMB(3.9,84,2,2057,0)="""RTN"",""PRCHNPO1"",123,0)"
^XMB(3.9,84,2,2058,0)=" . S PRCST=$P(^PRC(440,PRCHV,0),""^"",7) ;vendor's state"
^XMB(3.9,84,2,2059,0)="""RTN"",""PRCHNPO1"",124,0)"
^XMB(3.9,84,2,2060,0)=" . S PRCSTL=$P(^DIC(5,PRCST,0),""^"",2)"
^XMB(3.9,84,2,2061,0)="""RTN"",""PRCHNPO1"",125,0)"
^XMB(3.9,84,2,2062,0)=" . S PRCSZP=$E($P(^PRC(440,PRCHV,0),""^"",8),1,5) ;vendor's zip"
^XMB(3.9,84,2,2063,0)="""RTN"",""PRCHNPO1"",126,0)"
^XMB(3.9,84,2,2064,0)=" . S PRCPOP=PRCSTL_PRCSZP,$P(^PRC(442,PRCHPO,25),""^"",16)=PRCPOP"
^XMB(3.9,84,2,2065,0)="""RTN"",""PRCHNPO1"",127,0)"
^XMB(3.9,84,2,2066,0)=" Q"
^XMB(3.9,84,2,2067,0)="""RTN"",""PRCHNPO1"",128,0)"
^XMB(3.9,84,2,2068,0)=" ;"
^XMB(3.9,84,2,2069,0)="""RTN"",""PRCHNPO1"",129,0)"
^XMB(3.9,84,2,2070,0)="POP1 ;Set up for Guaranteed Delivery orders - users are not asked for a SHIP"
^XMB(3.9,84,2,2071,0)="""RTN"",""PRCHNPO1"",130,0)"
^XMB(3.9,84,2,2072,0)=" ;TO location during PO creation - PRC*5.1*100."
^XMB(3.9,84,2,2073,0)="""RTN"",""PRCHNPO1"",131,0)"
^XMB(3.9,84,2,2074,0)=" S PRCROOT=$G(^PRC(411,PRC(""SITE""),0)),PRCVAMC=$G(^(3)) ; local VAMC"
^XMB(3.9,84,2,2075,0)="""RTN"",""PRCHNPO1"",132,0)"
^XMB(3.9,84,2,2076,0)=" S PRCST=$P(PRCVAMC,""^"",4)"
^XMB(3.9,84,2,2077,0)="""RTN"",""PRCHNPO1"",133,0)"
^XMB(3.9,84,2,2078,0)=" S PRCSTL=$P(^DIC(5,PRCST,0),""^"",2) ;station's state"
^XMB(3.9,84,2,2079,0)="""RTN"",""PRCHNPO1"",134,0)"
^XMB(3.9,84,2,2080,0)=" S PRCSZP=$E($P(PRCVAMC,""^"",5),1,5) ;station's zip"
^XMB(3.9,84,2,2081,0)="""RTN"",""PRCHNPO1"",135,0)"
^XMB(3.9,84,2,2082,0)=" S PRCPOP=PRCSTL_PRCSZP,$P(^PRC(442,PRCHPO,25),""^"",16)=PRCPOP"
^XMB(3.9,84,2,2083,0)="""RTN"",""PRCHNPO1"",136,0)"
^XMB(3.9,84,2,2084,0)=" Q"
^XMB(3.9,84,2,2085,0)="""RTN"",""PRCHNPO1"",137,0)"
^XMB(3.9,84,2,2086,0)=" ;End of changes for new FPDS"
^XMB(3.9,84,2,2087,0)="""RTN"",""PRCHNPO1"",138,0)"
^XMB(3.9,84,2,2088,0)=" ;"
^XMB(3.9,84,2,2089,0)="""RTN"",""PRCHNPO1"",139,0)"
^XMB(3.9,84,2,2090,0)="TYPE I PRCHI=PRCHEC,PRCHEST'=(PRCHY*PRCHEC) S PRCHY=PRCHY+(PRCHEST-(PRCHY*PRCHEC))"
^XMB(3.9,84,2,2091,0)="""RTN"",""PRCHNPO1"",140,0)"
^XMB(3.9,84,2,2092,0)=" I PRCHY>0 S PRCH(""AM"",PRCH)=$P(PRCH(""AM"",PRCH),U,1)_U_($P(PRCH(""AM"",PRCH),U,2)+PRCHY)_U_$P(PRCH(""AM"",PRCH),U,3)"
^XMB(3.9,84,2,2093,0)="""RTN"",""PRCHNPO1"",141,0)"
^XMB(3.9,84,2,2094,0)=" ;When Source Code is not 5 then display a list of Possible Type Codes"
^XMB(3.9,84,2,2095,0)="""RTN"",""PRCHNPO1"",142,0)"
^XMB(3.9,84,2,2096,0)=" I PRCHSC'=5 D"
^XMB(3.9,84,2,2097,0)="""RTN"",""PRCHNPO1"",143,0)"
^XMB(3.9,84,2,2098,0)=" . W !,$S(PRCH'="".OM"":""CONTRACT/BOA: ""_PRCH,1:""""),""  Possible "",$S(PRCHDT:""Method/Type Codes: "",1:""Type Codes: "")"
^XMB(3.9,84,2,2099,0)="""RTN"",""PRCHNPO1"",144,0)"
^XMB(3.9,84,2,2100,0)=" . I 'PRCHDT S I=0 F Y=0:0 S Y=$O(^PRCD(420.6,Y)) S:Y>100 Y="""" Q:'Y  D EN7^PRCHNPO2 I $T W:I "","" W $P(^PRCD(420.6,Y,0),""^"",1) S I=I+1"
^XMB(3.9,84,2,2101,0)="""RTN"",""PRCHNPO1"",145,0)"
^XMB(3.9,84,2,2102,0)=" . I PRCHDT S I=0 F Y=100:0 S Y=$O(^PRCD(420.6,Y)) S:Y>120 Y="""" Q:'Y  D PROC^PRCHFPDS I $T W:I "","" W $P(^PRCD(420.6,Y,0),U,1) S I=I+1"
^XMB(3.9,84,2,2103,0)="""RTN"",""PRCHNPO1"",146,0)"
^XMB(3.9,84,2,2104,0)=" . Q"
^XMB(3.9,84,2,2105,0)="""RTN"",""PRCHNPO1"",147,0)"
^XMB(3.9,84,2,2106,0)=" ;"
^XMB(3.9,84,2,2107,0)="""RTN"",""PRCHNPO1"",148,0)"
^XMB(3.9,84,2,2108,0)=" S PRCHX=$P(PRCH(""AM"",PRCH),U,3),K=0"
^XMB(3.9,84,2,2109,0)="""RTN"",""PRCHNPO1"",149,0)"
^XMB(3.9,84,2,2110,0)=" I PRCHX]"""" W !?1,""ITEM: "" W:PRCHX'["":1:"" PRCHX I PRCHX["":1:"" F J=0:0 S PRCHX=$P(PRCHX,"":1:"",1)_"":""_$P(PRCHX,"":1:"",2,99) I PRCHX'["":1:"" W PRCHX Q"
^XMB(3.9,84,2,2111,0)="""RTN"",""PRCHNPO1"",150,0)"
^XMB(3.9,84,2,2112,0)=" S:$P(PRCH(""AM"",PRCH),U,2)]"""" PRCH(""AM"",PRCH)=$P(PRCH(""AM"",PRCH),U,2)"
^XMB(3.9,84,2,2113,0)="""RTN"",""PRCHNPO1"",151,0)"
^XMB(3.9,84,2,2114,0)=" Q"
^XMB(3.9,84,2,2115,0)="""RTN"",""PRCHNPO1"",152,0)"
^XMB(3.9,84,2,2116,0)=" ;"
^XMB(3.9,84,2,2117,0)="""RTN"",""PRCHNPO1"",153,0)"
^XMB(3.9,84,2,2118,0)="Q L  K PRCH,PRCHAC,PRCHACT,PRCHAM,PRCHAMT,PRCHB,PRCHBO,PRCHCN,PRCHCNT,PRCHD,PRCHDA,PRCHDT,PRCHEC,PRCHER,PRCHES,PRCHEST,PRCHFPDS,PRCHI,PRCHL0,PRCHL1,PRCHL2,PRCHL3,PRCHLCNT,PRCHLI"
^XMB(3.9,84,2,2119,0)="""RTN"",""PRCHNPO1"",154,0)"
^XMB(3.9,84,2,2120,0)=" K PRCHN,PRCHP,PRCHPO,PRCHSC,PRCHV,PRCHX,PRCHY,DIC,DIE,DR,D0,DA,X,Y"
^XMB(3.9,84,2,2121,0)="""RTN"",""PRCHNPO1"",155,0)"
^XMB(3.9,84,2,2122,0)=" Q"
^XMB(3.9,84,2,2123,0)="""RTN"",""PRCHNPO7"")"
^XMB(3.9,84,2,2124,0)="0^6^B63147574^B58672235"
^XMB(3.9,84,2,2125,0)="""RTN"",""PRCHNPO7"",1,0)"
^XMB(3.9,84,2,2126,0)="PRCHNPO7 ;WISC/RHD-MISCELLANEOUS ROUTINES FROM P.O.ADD/EDIT 442 ; 7/27/05 10:16am"
^XMB(3.9,84,2,2127,0)="""RTN"",""PRCHNPO7"",2,0)"
^XMB(3.9,84,2,2128,0)="V ;;5.1;IFCAP;**79,100**;Oct 20, 2000"
^XMB(3.9,84,2,2129,0)="""RTN"",""PRCHNPO7"",3,0)"
^XMB(3.9,84,2,2130,0)=" ;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,84,2,2131,0)="""RTN"",""PRCHNPO7"",4,0)"
^XMB(3.9,84,2,2132,0)=" ;"
^XMB(3.9,84,2,2133,0)="""RTN"",""PRCHNPO7"",5,0)"
^XMB(3.9,84,2,2134,0)="EN1 ;INPUT TRANSFORM-FILE 442, NSN #9.5"
^XMB(3.9,84,2,2135,0)="""RTN"",""PRCHNPO7"",6,0)"
^XMB(3.9,84,2,2136,0)=" I '$D(^PRC(441.2,+X,0)) W !!,$C(7),""Invalid NSN--first 4 characters must be FSC code!!"" K X Q"
^XMB(3.9,84,2,2137,0)="""RTN"",""PRCHNPO7"",7,0)"
^XMB(3.9,84,2,2138,0)=" S PRCHCI=+$P(^PRC(442,DA(1),2,DA,0),U,5)"
^XMB(3.9,84,2,2139,0)="""RTN"",""PRCHNPO7"",8,0)"
^XMB(3.9,84,2,2140,0)=" S Z=$O(^PRC(441,""BB"",X,0)) S:Z=PRCHCI Z=$O(^(Z)) I Z W !!,$C(7),""This NSN has already been assigned to item # ""_$O(^(0))_""!!"" K X Q"
^XMB(3.9,84,2,2141,0)="""RTN"",""PRCHNPO7"",9,0)"
^XMB(3.9,84,2,2142,0)=" I $P(^PRC(441.2,+X,0),U,4)="""" W $C(7),!,""Commodity Code missing on this FSC--Required for LOG code sheets!"" K X Q"
^XMB(3.9,84,2,2143,0)="""RTN"",""PRCHNPO7"",10,0)"
^XMB(3.9,84,2,2144,0)=" S $P(^PRC(442,DA(1),2,DA,2),U,3)=+X"
^XMB(3.9,84,2,2145,0)="""RTN"",""PRCHNPO7"",11,0)"
^XMB(3.9,84,2,2146,0)=" Q:$P(^PRC(442,DA(1),2,DA,0),U,5)="""""
^XMB(3.9,84,2,2147,0)="""RTN"",""PRCHNPO7"",12,0)"
^XMB(3.9,84,2,2148,0)=" S:'$D(PRC(""SITE"")) PRC(""SITE"")=+^PRC(442,DA(1),0) S PRCHCPO=DA(1) D EN5^PRCHCRD"
^XMB(3.9,84,2,2149,0)="""RTN"",""PRCHNPO7"",13,0)"
^XMB(3.9,84,2,2150,0)=" S PRCHSAVX=X,X=+X"
^XMB(3.9,84,2,2151,0)="""RTN"",""PRCHNPO7"",14,0)"
^XMB(3.9,84,2,2152,0)=" G EN11"
^XMB(3.9,84,2,2153,0)="""RTN"",""PRCHNPO7"",15,0)"
^XMB(3.9,84,2,2154,0)=" ;"
^XMB(3.9,84,2,2155,0)="""RTN"",""PRCHNPO7"",16,0)"
^XMB(3.9,84,2,2156,0)="EN10 ;UPDATE FEDERAL SUPPLY CLASSIFICATION/PRODUCT SERVICE CODE (FSC/PSC), field #8, file #442."
^XMB(3.9,84,2,2157,0)="""RTN"",""PRCHNPO7"",17,0)"
^XMB(3.9,84,2,2158,0)=" ;PRC*5.1*79: if entering a service item, don't check for commodity code."
^XMB(3.9,84,2,2159,0)="""RTN"",""PRCHNPO7"",18,0)"
^XMB(3.9,84,2,2160,0)=" ;The field title is now called 'FSC/PSC' to hold either a Federal Supply"
^XMB(3.9,84,2,2161,0)="""RTN"",""PRCHNPO7"",19,0)"
^XMB(3.9,84,2,2162,0)=" ;Classification (FSC) code or a Product Service Code (PSC) to support a"
^XMB(3.9,84,2,2163,0)="""RTN"",""PRCHNPO7"",20,0)"
^XMB(3.9,84,2,2164,0)=" ;new FPDS report for the Austin Automation Center (AAC). The variable"
^XMB(3.9,84,2,2165,0)="""RTN"",""PRCHNPO7"",21,0)"
^XMB(3.9,84,2,2166,0)=" ;PRCSAVE is killed in various PO input templates where it is used."
^XMB(3.9,84,2,2167,0)="""RTN"",""PRCHNPO7"",22,0)"
^XMB(3.9,84,2,2168,0)=" ;"
^XMB(3.9,84,2,2169,0)="""RTN"",""PRCHNPO7"",23,0)"
^XMB(3.9,84,2,2170,0)=" I '$D(PRCSAVE)&(X'=$P(^PRC(441.2,+X,0),U,1))&($P(^PRC(442,DA(1),2,DA,0),U,5)'="""") D EN102 K A,X Q"
^XMB(3.9,84,2,2171,0)="""RTN"",""PRCHNPO7"",24,0)"
^XMB(3.9,84,2,2172,0)=" ;"
^XMB(3.9,84,2,2173,0)="""RTN"",""PRCHNPO7"",25,0)"
^XMB(3.9,84,2,2174,0)=" I ($P(^PRC(441.2,+X,0),U,4)="""")&(X=$P(^PRC(441.2,+X,0),U,1)) D EN104 K A,X Q"
^XMB(3.9,84,2,2175,0)="""RTN"",""PRCHNPO7"",26,0)"
^XMB(3.9,84,2,2176,0)=" S:'$D(PRC(""SITE"")) PRC(""SITE"")=+^PRC(442,DA(1),0)"
^XMB(3.9,84,2,2177,0)="""RTN"",""PRCHNPO7"",27,0)"
^XMB(3.9,84,2,2178,0)=" I $G(PRCSAVE)=""G""&(X'=$P(^PRC(441.2,+X,0),U,1)) D EN102 K A,X Q"
^XMB(3.9,84,2,2179,0)="""RTN"",""PRCHNPO7"",28,0)"
^XMB(3.9,84,2,2180,0)=" ;"
^XMB(3.9,84,2,2181,0)="""RTN"",""PRCHNPO7"",29,0)"
^XMB(3.9,84,2,2182,0)=" I $G(PRCSAVE)=""S""&(X=$P(^PRC(441.2,+X,0),U,1))&($P(^PRC(442,DA(1),2,DA,0),U,5)="""") D EN103 K A,X Q"
^XMB(3.9,84,2,2183,0)="""RTN"",""PRCHNPO7"",30,0)"
^XMB(3.9,84,2,2184,0)=" ;"
^XMB(3.9,84,2,2185,0)="""RTN"",""PRCHNPO7"",31,0)"
^XMB(3.9,84,2,2186,0)="EN11 S PRCHCI=+$P(^PRC(442,DA(1),2,DA,0),U,5),PRCHCPO=DA(1) I $D(^PRC(441,+PRCHCI,0)) D EN8^PRCHCRD1"
^XMB(3.9,84,2,2187,0)="""RTN"",""PRCHNPO7"",32,0)"
^XMB(3.9,84,2,2188,0)=" S:$D(PRCHSAVX) X=PRCHSAVX K PRCHSAVX"
^XMB(3.9,84,2,2189,0)="""RTN"",""PRCHNPO7"",33,0)"
^XMB(3.9,84,2,2190,0)=" Q"
^XMB(3.9,84,2,2191,0)="""RTN"",""PRCHNPO7"",34,0)"
^XMB(3.9,84,2,2192,0)=" ;"
^XMB(3.9,84,2,2193,0)="""RTN"",""PRCHNPO7"",35,0)"
^XMB(3.9,84,2,2194,0)="EN100 ;Come here for amended orders - check FSC/PSC, field #8, file #443.6."
^XMB(3.9,84,2,2195,0)="""RTN"",""PRCHNPO7"",36,0)"
^XMB(3.9,84,2,2196,0)=" ;PRC*5.1*79: if entering a service item, don't check for commodity code"
^XMB(3.9,84,2,2197,0)="""RTN"",""PRCHNPO7"",37,0)"
^XMB(3.9,84,2,2198,0)=" I X=""""&($P(^PRC(443.6,DA(1),2,DA,2),U,3)="""") D EN^DDIOL(""This field is Required!!"") S Y=""@6"" Q"
^XMB(3.9,84,2,2199,0)="""RTN"",""PRCHNPO7"",38,0)"
^XMB(3.9,84,2,2200,0)=" I '$D(PRCSAVE)&(X'=$P(^PRC(441.2,+X,0),U,1))&($P(^PRC(443.6,DA(1),2,DA,0),U,5)'="""") D EN102 K A,X Q"
^XMB(3.9,84,2,2201,0)="""RTN"",""PRCHNPO7"",39,0)"
^XMB(3.9,84,2,2202,0)=" ;"
^XMB(3.9,84,2,2203,0)="""RTN"",""PRCHNPO7"",40,0)"
^XMB(3.9,84,2,2204,0)=" I ($P(^PRC(441.2,+X,0),U,4)="""")&(X=$P(^PRC(441.2,+X,0),U,1)) D EN104 K A,X Q"
^XMB(3.9,84,2,2205,0)="""RTN"",""PRCHNPO7"",41,0)"
^XMB(3.9,84,2,2206,0)=" S:'$D(PRC(""SITE"")) PRC(""SITE"")=+^PRC(442,DA(1),0)"
^XMB(3.9,84,2,2207,0)="""RTN"",""PRCHNPO7"",42,0)"
^XMB(3.9,84,2,2208,0)=" I $G(PRCSAVE)=""G""&(X'=$P(^PRC(441.2,+X,0),U,1)) D EN102 K A,X Q"
^XMB(3.9,84,2,2209,0)="""RTN"",""PRCHNPO7"",43,0)"
^XMB(3.9,84,2,2210,0)=" ;"
^XMB(3.9,84,2,2211,0)="""RTN"",""PRCHNPO7"",44,0)"
^XMB(3.9,84,2,2212,0)=" I $G(PRCSAVE)=""S""&(X=$P(^PRC(441.2,+X,0),U,1))&($P(^PRC(443.6,DA(1),2,DA,0),U,5)="""") D EN103 K A,X Q"
^XMB(3.9,84,2,2213,0)="""RTN"",""PRCHNPO7"",45,0)"
^XMB(3.9,84,2,2214,0)=" ;"
^XMB(3.9,84,2,2215,0)="""RTN"",""PRCHNPO7"",46,0)"
^XMB(3.9,84,2,2216,0)=" S PRCHCI=+$P(^PRC(443.6,DA(1),2,DA,0),U,5),PRCHCPO=DA(1) I $D(^PRC(441,+PRCHCI,0)) D EN8^PRCHCRD1"
^XMB(3.9,84,2,2217,0)="""RTN"",""PRCHNPO7"",47,0)"
^XMB(3.9,84,2,2218,0)=" S:$D(PRCHSAVX) X=PRCHSAVX K PRCHSAVX"
^XMB(3.9,84,2,2219,0)="""RTN"",""PRCHNPO7"",48,0)"
^XMB(3.9,84,2,2220,0)=" Q"
^XMB(3.9,84,2,2221,0)="""RTN"",""PRCHNPO7"",49,0)"
^XMB(3.9,84,2,2222,0)=" ;"
^XMB(3.9,84,2,2223,0)="""RTN"",""PRCHNPO7"",50,0)"
^XMB(3.9,84,2,2224,0)="EN101 ;Check Request for Quotations - check FSC/PSC, field #4, file #444."
^XMB(3.9,84,2,2225,0)="""RTN"",""PRCHNPO7"",51,0)"
^XMB(3.9,84,2,2226,0)=" I '$D(PRCSAVE)&($P(^PRC(444,DA(1),2,DA,0),U,4)'="""")&(X'=$P(^PRC(441.2,+X,0),U,1)) D EN102 K A,X Q"
^XMB(3.9,84,2,2227,0)="""RTN"",""PRCHNPO7"",52,0)"
^XMB(3.9,84,2,2228,0)=" ;"
^XMB(3.9,84,2,2229,0)="""RTN"",""PRCHNPO7"",53,0)"
^XMB(3.9,84,2,2230,0)=" I ($P(^PRC(441.2,+X,0),U,4)="""")&(X=$P(^PRC(441.2,+X,0),U,1)) D EN104 K A,X Q"
^XMB(3.9,84,2,2231,0)="""RTN"",""PRCHNPO7"",54,0)"
^XMB(3.9,84,2,2232,0)=" I $G(PRCSAVE)=""G""&(X'=$P(^PRC(441.2,+X,0),U,1)) D EN102 K A,X Q"
^XMB(3.9,84,2,2233,0)="""RTN"",""PRCHNPO7"",55,0)"
^XMB(3.9,84,2,2234,0)=" ;"
^XMB(3.9,84,2,2235,0)="""RTN"",""PRCHNPO7"",56,0)"
^XMB(3.9,84,2,2236,0)=" I $G(PRCSAVE)=""S""&(X=$P(^PRC(441.2,+X,0),U,1)) D EN103 K A,X Q"
^XMB(3.9,84,2,2237,0)="""RTN"",""PRCHNPO7"",57,0)"
^XMB(3.9,84,2,2238,0)=" ;"
^XMB(3.9,84,2,2239,0)="""RTN"",""PRCHNPO7"",58,0)"
^XMB(3.9,84,2,2240,0)=" S PRCHCI=+$P(^PRC(444,DA(1),2,DA,0),U,5),PRCHCPO=DA(1) I $D(^PRC(441,+PRCHCI,0)) D EN8^PRCHCRD1"
^XMB(3.9,84,2,2241,0)="""RTN"",""PRCHNPO7"",59,0)"
^XMB(3.9,84,2,2242,0)=" S:$D(PRCHSAVX) X=PRCHSAVX K PRCHSAVX"
^XMB(3.9,84,2,2243,0)="""RTN"",""PRCHNPO7"",60,0)"
^XMB(3.9,84,2,2244,0)=" Q"
^XMB(3.9,84,2,2245,0)="""RTN"",""PRCHNPO7"",61,0)"
^XMB(3.9,84,2,2246,0)=" ;"
^XMB(3.9,84,2,2247,0)="""RTN"",""PRCHNPO7"",62,0)"
^XMB(3.9,84,2,2248,0)="EN102 ;Stop assignment of a PSC to an item."
^XMB(3.9,84,2,2249,0)="""RTN"",""PRCHNPO7"",63,0)"
^XMB(3.9,84,2,2250,0)=" S A(1)=""This is a Product Service Code - Not allowed on ITEMS!!"""
^XMB(3.9,84,2,2251,0)="""RTN"",""PRCHNPO7"",64,0)"
^XMB(3.9,84,2,2252,0)=" S A(2,""F"")=""!"""
^XMB(3.9,84,2,2253,0)="""RTN"",""PRCHNPO7"",65,0)"
^XMB(3.9,84,2,2254,0)=" D EN^DDIOL(.A)"
^XMB(3.9,84,2,2255,0)="""RTN"",""PRCHNPO7"",66,0)"
^XMB(3.9,84,2,2256,0)=" Q"
^XMB(3.9,84,2,2257,0)="""RTN"",""PRCHNPO7"",67,0)"
^XMB(3.9,84,2,2258,0)=" ;"
^XMB(3.9,84,2,2259,0)="""RTN"",""PRCHNPO7"",68,0)"
^XMB(3.9,84,2,2260,0)="EN103 ;Stop assignment of an FSC to a service."
^XMB(3.9,84,2,2261,0)="""RTN"",""PRCHNPO7"",69,0)"
^XMB(3.9,84,2,2262,0)=" S A(1)=""This is a Federal Supply Classification Code - Not allowed on SERVICES!!"""
^XMB(3.9,84,2,2263,0)="""RTN"",""PRCHNPO7"",70,0)"
^XMB(3.9,84,2,2264,0)=" S A(2,""F"")=""!"""
^XMB(3.9,84,2,2265,0)="""RTN"",""PRCHNPO7"",71,0)"
^XMB(3.9,84,2,2266,0)=" D EN^DDIOL(.A)"
^XMB(3.9,84,2,2267,0)="""RTN"",""PRCHNPO7"",72,0)"
^XMB(3.9,84,2,2268,0)=" Q"
^XMB(3.9,84,2,2269,0)="""RTN"",""PRCHNPO7"",73,0)"
^XMB(3.9,84,2,2270,0)=" ;"
^XMB(3.9,84,2,2271,0)="""RTN"",""PRCHNPO7"",74,0)"
^XMB(3.9,84,2,2272,0)="EN104 ;Stop user if commodity code is missing."
^XMB(3.9,84,2,2273,0)="""RTN"",""PRCHNPO7"",75,0)"
^XMB(3.9,84,2,2274,0)=" S A(1)=""Commodity Code missing on this Federal Supply Classification--Required for LOG code sheets!"""
^XMB(3.9,84,2,2275,0)="""RTN"",""PRCHNPO7"",76,0)"
^XMB(3.9,84,2,2276,0)=" S A(2,""F"")=""!"""
^XMB(3.9,84,2,2277,0)="""RTN"",""PRCHNPO7"",77,0)"
^XMB(3.9,84,2,2278,0)=" D EN^DDIOL(.A)"
^XMB(3.9,84,2,2279,0)="""RTN"",""PRCHNPO7"",78,0)"
^XMB(3.9,84,2,2280,0)=" Q"
^XMB(3.9,84,2,2281,0)="""RTN"",""PRCHNPO7"",79,0)"
^XMB(3.9,84,2,2282,0)=" ;"
^XMB(3.9,84,2,2283,0)="""RTN"",""PRCHNPO7"",80,0)"
^XMB(3.9,84,2,2284,0)="EN105 ;Stop a PO if a line item does not contain an FSC or PSC. This tag is"
^XMB(3.9,84,2,2285,0)="""RTN"",""PRCHNPO7"",81,0)"
^XMB(3.9,84,2,2286,0)=" ;called from the routine PRCHNP04. Do not clean up variables here."
^XMB(3.9,84,2,2287,0)="""RTN"",""PRCHNPO7"",82,0)"
^XMB(3.9,84,2,2288,0)=" ;This check is for all POs that may be required by FPDS. PRC*5.1*100."
^XMB(3.9,84,2,2289,0)="""RTN"",""PRCHNPO7"",83,0)"
^XMB(3.9,84,2,2290,0)=" I $P(^PRC(442,PRCHPO,1),U,7)]"""" D"
^XMB(3.9,84,2,2291,0)="""RTN"",""PRCHNPO7"",84,0)"
^XMB(3.9,84,2,2292,0)=" . S PRCHITM=0 F  S PRCHITM=$O(^PRC(442,PRCHPO,2,PRCHITM)) Q:'PRCHITM  I $P($G(^PRC(442,PRCHPO,2,PRCHITM,2)),U,3)="""" D EN^DDIOL(""Line item ""_PRCHITM_"" on this PO does not contain an FSC or PSC."","""",""!!?5"") S ERROR=1"
^XMB(3.9,84,2,2293,0)="""RTN"",""PRCHNPO7"",85,0)"
^XMB(3.9,84,2,2294,0)=" ;End of changes for PRC*5.1*79"
^XMB(3.9,84,2,2295,0)="""RTN"",""PRCHNPO7"",86,0)"
^XMB(3.9,84,2,2296,0)=" Q"
^XMB(3.9,84,2,2297,0)="""RTN"",""PRCHNPO7"",87,0)"
^XMB(3.9,84,2,2298,0)=" ;"
^XMB(3.9,84,2,2299,0)="""RTN"",""PRCHNPO7"",88,0)"
^XMB(3.9,84,2,2300,0)="EN106 ;PRC*5.1*100: stop amended PO with line items lacking an FSC or PSC."
^XMB(3.9,84,2,2301,0)="""RTN"",""PRCHNPO7"",89,0)"
^XMB(3.9,84,2,2302,0)=" I $P(^PRC(443.6,PRCHPO,1),U,7)]"""" D"
^XMB(3.9,84,2,2303,0)="""RTN"",""PRCHNPO7"",90,0)"
^XMB(3.9,84,2,2304,0)=" . S PRCHITM=0 F  S PRCHITM=$O(^PRC(443.6,PRCHPO,2,PRCHITM)) Q:'PRCHITM  I $P($G(^PRC(443.6,PRCHPO,2,PRCHITM,2)),U,3)="""" D EN^DDIOL(""Line item ""_PRCHITM_"" on this PO does not contain an FSC or PSC."","""",""!!?5"") S ERROR=1"
^XMB(3.9,84,2,2305,0)="""RTN"",""PRCHNPO7"",91,0)"
^XMB(3.9,84,2,2306,0)=" Q"
^XMB(3.9,84,2,2307,0)="""RTN"",""PRCHNPO7"",92,0)"
^XMB(3.9,84,2,2308,0)=" ;"
^XMB(3.9,84,2,2309,0)="""RTN"",""PRCHNPO7"",93,0)"
^XMB(3.9,84,2,2310,0)="EN2 ;IF 'ESTIMATED P.O.' MOVE VERBAGE INTO COMMENTS"
^XMB(3.9,84,2,2311,0)="""RTN"",""PRCHNPO7"",94,0)"
^XMB(3.9,84,2,2312,0)=" D EN2A"
^XMB(3.9,84,2,2313,0)="""RTN"",""PRCHNPO7"",95,0)"
^XMB(3.9,84,2,2314,0)=" Q:'$D(^PRC(442,PRCHPO,7))  Q:$P(^(7),U,3)'=""Y""  S WX=""*** ESTIMATED PURCHASE ORDER ***"" I $D(^PRC(442,PRCHPO,4,1,0)),^(0)[WX K WX Q"
^XMB(3.9,84,2,2315,0)="""RTN"",""PRCHNPO7"",96,0)"
^XMB(3.9,84,2,2316,0)=" S WX=WX_""   "",PRCH=""^PRC(442,PRCHPO,4,"" D WORD^PRCHUTL K PRCH"
^XMB(3.9,84,2,2317,0)="""RTN"",""PRCHNPO7"",97,0)"
^XMB(3.9,84,2,2318,0)=" Q"
^XMB(3.9,84,2,2319,0)="""RTN"",""PRCHNPO7"",98,0)"
^XMB(3.9,84,2,2320,0)=" ;"
^XMB(3.9,84,2,2321,0)="""RTN"",""PRCHNPO7"",99,0)"
^XMB(3.9,84,2,2322,0)="EN2A ;CHECK DELIVERY SCHEDULES-QUANTITY DELIVERED MUST BE >0"
^XMB(3.9,84,2,2323,0)="""RTN"",""PRCHNPO7"",100,0)"
^XMB(3.9,84,2,2324,0)=" N NUM,J,K,DA"
^XMB(3.9,84,2,2325,0)="""RTN"",""PRCHNPO7"",101,0)"
^XMB(3.9,84,2,2326,0)=" S NUM=$P(^PRC(442,PRCHPO,0),U)"
^XMB(3.9,84,2,2327,0)="""RTN"",""PRCHNPO7"",102,0)"
^XMB(3.9,84,2,2328,0)=" I $D(^PRC(442.8,""AC"",NUM)) D"
^XMB(3.9,84,2,2329,0)="""RTN"",""PRCHNPO7"",103,0)"
^XMB(3.9,84,2,2330,0)=" . F J=0:0 S J=$O(^PRC(442.8,""AC"",NUM,J)) Q:J'>0  D"
^XMB(3.9,84,2,2331,0)="""RTN"",""PRCHNPO7"",104,0)"
^XMB(3.9,84,2,2332,0)=" . . F K=0:0 S K=$O(^PRC(442.8,""AC"",NUM,J,K)) Q:K'>0  D"
^XMB(3.9,84,2,2333,0)="""RTN"",""PRCHNPO7"",105,0)"
^XMB(3.9,84,2,2334,0)=" . . . I $P(^PRC(442.8,K,0),U,5)'>0 S DIK=""^PRC(442.8,"",DA=K D ^DIK K DIK"
^XMB(3.9,84,2,2335,0)="""RTN"",""PRCHNPO7"",106,0)"
^XMB(3.9,84,2,2336,0)=" Q"
^XMB(3.9,84,2,2337,0)="""RTN"",""PRCHNPO7"",107,0)"
^XMB(3.9,84,2,2338,0)="EN3 ;COMPLETE DEPOT/GSA PUSH ORDERS"
^XMB(3.9,84,2,2339,0)="""RTN"",""PRCHNPO7"",108,0)"
^XMB(3.9,84,2,2340,0)=" S I=$P(^PRC(442,PRCHPO,0),U,15)"
^XMB(3.9,84,2,2341,0)="""RTN"",""PRCHNPO7"",109,0)"
^XMB(3.9,84,2,2342,0)=" W !!,""Total Dollar Amount: ""_I_"" //"" R X:DTIME S:'$T X=""^"" S:X="""" X=I I X[""^"" S X=1 G EN31"
^XMB(3.9,84,2,2343,0)="""RTN"",""PRCHNPO7"",110,0)"
^XMB(3.9,84,2,2344,0)=" I X=""""!(X=0) G EN30"
^XMB(3.9,84,2,2345,0)="""RTN"",""PRCHNPO7"",111,0)"
^XMB(3.9,84,2,2346,0)=" I X[""?"" W !!,""You can either enter the total dollar amount for the entire PUSH, or just the"",!,""dollar amount for this part (regular, subsistence or drugs).  This is just"",!,""used to update the P.O.register."" G EN3"
^XMB(3.9,84,2,2347,0)="""RTN"",""PRCHNPO7"",112,0)"
^XMB(3.9,84,2,2348,0)=" S:X[""$"" X=$P(X,""$"",2) I X'?.N.1""."".2N!(X>9999999.99)!(X<1) W $C(7),""??"" G EN3"
^XMB(3.9,84,2,2349,0)="""RTN"",""PRCHNPO7"",113,0)"
^XMB(3.9,84,2,2350,0)=" S $P(^PRC(442,PRCHPO,0),U,15)=X"
^XMB(3.9,84,2,2351,0)="""RTN"",""PRCHNPO7"",114,0)"
^XMB(3.9,84,2,2352,0)=" ;"
^XMB(3.9,84,2,2353,0)="""RTN"",""PRCHNPO7"",115,0)"
^XMB(3.9,84,2,2354,0)="EN30 S X=1,%A=""Complete this Requisition "",%B=""This action will change the status to 'Transaction Complete'."",%=1 D ^PRCFYN I %=1 S X=40"
^XMB(3.9,84,2,2355,0)="""RTN"",""PRCHNPO7"",116,0)"
^XMB(3.9,84,2,2356,0)=" ;"
^XMB(3.9,84,2,2357,0)="""RTN"",""PRCHNPO7"",117,0)"
^XMB(3.9,84,2,2358,0)="EN31 S DA=PRCHPO D ENS^PRCHSTAT"
^XMB(3.9,84,2,2359,0)="""RTN"",""PRCHNPO7"",118,0)"
^XMB(3.9,84,2,2360,0)=" Q"
^XMB(3.9,84,2,2361,0)="""RTN"",""PRCHNPO7"",119,0)"
^XMB(3.9,84,2,2362,0)=" ;"
^XMB(3.9,84,2,2363,0)="""RTN"",""PRCHNPO7"",120,0)"
^XMB(3.9,84,2,2364,0)="EN6 ;FILE 442, SKU #9.4"
^XMB(3.9,84,2,2365,0)="""RTN"",""PRCHNPO7"",121,0)"
^XMB(3.9,84,2,2366,0)=" D VEN Q:'$D(X)!($P(^PRC(442,DA(1),2,DA,0),U,5)="""")"
^XMB(3.9,84,2,2367,0)="""RTN"",""PRCHNPO7"",122,0)"
^XMB(3.9,84,2,2368,0)=" S:'$D(PRC(""SITE"")) PRC(""SITE"")=$P($P(^PRC(442,DA(1),0),U,1),""-"",1) S PRCHCV=$P(^PRC(442,DA(1),1),U,1),PRCHCI=$P(^(2,DA,0),U,5),PRCHCPO=DA(1) D EN10^PRCHCRD1"
^XMB(3.9,84,2,2369,0)="""RTN"",""PRCHNPO7"",123,0)"
^XMB(3.9,84,2,2370,0)=" Q"
^XMB(3.9,84,2,2371,0)="""RTN"",""PRCHNPO7"",124,0)"
^XMB(3.9,84,2,2372,0)=" ;"
^XMB(3.9,84,2,2373,0)="""RTN"",""PRCHNPO7"",125,0)"
^XMB(3.9,84,2,2374,0)="EN7 ;FILE 442, UNIT CONVERSION FACTOR #9.7"
^XMB(3.9,84,2,2375,0)="""RTN"",""PRCHNPO7"",126,0)"
^XMB(3.9,84,2,2376,0)=" D VEN Q:'$D(X)!($P(^PRC(442,DA(1),2,DA,0),U,5)="""")"
^XMB(3.9,84,2,2377,0)="""RTN"",""PRCHNPO7"",127,0)"
^XMB(3.9,84,2,2378,0)=" S:'$D(PRC(""SITE"")) PRC(""SITE"")=+^PRC(442,DA(1),0) S PRCHCV=+$P(^PRC(442,DA(1),1),U,1),PRCHCI=+$P(^(2,DA,0),U,5),PRCHCPO=DA(1) D EN11^PRCHCRD1"
^XMB(3.9,84,2,2379,0)="""RTN"",""PRCHNPO7"",128,0)"
^XMB(3.9,84,2,2380,0)=" Q"
^XMB(3.9,84,2,2381,0)="""RTN"",""PRCHNPO7"",129,0)"
^XMB(3.9,84,2,2382,0)=" ;"
^XMB(3.9,84,2,2383,0)="""RTN"",""PRCHNPO7"",130,0)"
^XMB(3.9,84,2,2384,0)="VEN I $S('$D(^PRC(442,DA(1),1)):1,$P(^(1),U,1)="""":1,1:0) W !!,""Vendor must be entered before items ! "",$C(7) K X"
^XMB(3.9,84,2,2385,0)="""RTN"",""PRCHNPO7"",131,0)"
^XMB(3.9,84,2,2386,0)=" Q"
^XMB(3.9,84,2,2387,0)="""RTN"",""PRCHNPO7"",132,0)"
^XMB(3.9,84,2,2388,0)=" ;"
^XMB(3.9,84,2,2389,0)="""RTN"",""PRCHNPO7"",133,0)"
^XMB(3.9,84,2,2390,0)="VENA I $S('$D(^PRC(442,DA,1)):1,$P(^(1),U,1)="""":1,1:0) W !!,""Vendor must be entered before items ! "",$C(7) K X"
^XMB(3.9,84,2,2391,0)="""RTN"",""PRCHNPO7"",134,0)"
^XMB(3.9,84,2,2392,0)=" Q"
^XMB(3.9,84,2,2393,0)="""RTN"",""PRCHNPO7"",135,0)"
^XMB(3.9,84,2,2394,0)=" ;"
^XMB(3.9,84,2,2395,0)="""RTN"",""PRCHNPO7"",136,0)"
^XMB(3.9,84,2,2396,0)="VEN1 I $S('$D(^PRC(443.6,DA(1),1)):1,$P(^(1),U,1)="""":1,1:0) W !!,""Vendor must be entered before items ! "",$C(7) K X"
^XMB(3.9,84,2,2397,0)="""RTN"",""PRCHNPO7"",137,0)"
^XMB(3.9,84,2,2398,0)=" Q"
^XMB(3.9,84,2,2399,0)="""RTN"",""PRCHNPO7"",138,0)"
^XMB(3.9,84,2,2400,0)=" ;"
^XMB(3.9,84,2,2401,0)="""RTN"",""PRCHNPO7"",139,0)"
^XMB(3.9,84,2,2402,0)="VEN1A I $S('$D(^PRC(443.6,DA,1)):1,$P(^(1),U,1)="""":1,1:0) W !!,""Vendor must be entered before items ! "",$C(7) K X"
^XMB(3.9,84,2,2403,0)="""RTN"",""PRCHNPO7"",140,0)"
^XMB(3.9,84,2,2404,0)=" Q"
^XMB(3.9,84,2,2405,0)="""RTN"",""PRCHNPO7"",141,0)"
^XMB(3.9,84,2,2406,0)=" ;"
^XMB(3.9,84,2,2407,0)="""RTN"",""PRCHNPO7"",142,0)"
^XMB(3.9,84,2,2408,0)=" ;"
^XMB(3.9,84,2,2409,0)="""RTN"",""PRCHNPO7"",143,0)"
^XMB(3.9,84,2,2410,0)=" ;"
^XMB(3.9,84,2,2411,0)="""RTN"",""PRCHNPO7"",144,0)"
^XMB(3.9,84,2,2412,0)="SUPBOC(QUIETLY) ;stmts.to compute pre-implied BOC, moved from template PRCH2138 into this routine and also called in BOC input transform"
^XMB(3.9,84,2,2413,0)="""RTN"",""PRCHNPO7"",145,0)"
^XMB(3.9,84,2,2414,0)=" N PRCHIDA,SPFCP,PRCHBOCC,ACCT"
^XMB(3.9,84,2,2415,0)="""RTN"",""PRCHNPO7"",146,0)"
^XMB(3.9,84,2,2416,0)=" S:$G(QUIETLY)=-1 X=$P($G(^PRC(442,DA(1),2,DA,0)),U,4)"
^XMB(3.9,84,2,2417,0)="""RTN"",""PRCHNPO7"",147,0)"
^XMB(3.9,84,2,2418,0)=" D VEN Q:'$D(X) """""
^XMB(3.9,84,2,2419,0)="""RTN"",""PRCHNPO7"",148,0)"
^XMB(3.9,84,2,2420,0)=" S PRCHIDA=+$P(^PRC(442,DA(1),2,DA,0),U,5),SPFCP=+$P(^PRC(442,DA(1),0),U,19)"
^XMB(3.9,84,2,2421,0)="""RTN"",""PRCHNPO7"",149,0)"
^XMB(3.9,84,2,2422,0)=" I SPFCP=2 D"
^XMB(3.9,84,2,2423,0)="""RTN"",""PRCHNPO7"",150,0)"
^XMB(3.9,84,2,2424,0)=" . S PRCHN(""SFC"")=SPFCP,ACCT=$$ACCT^PRCPUX1($E($$NSN^PRCPUX1(PRCHIDA),1,4))"
^XMB(3.9,84,2,2425,0)="""RTN"",""PRCHNPO7"",151,0)"
^XMB(3.9,84,2,2426,0)=" . D  ;:$D(ACCT)"
^XMB(3.9,84,2,2427,0)="""RTN"",""PRCHNPO7"",152,0)"
^XMB(3.9,84,2,2428,0)=" .  .  S PRCHBOCC=$P($G(^PRCD(420.2,$S(ACCT=1:2697,ACCT=2:2698,ACCT=3:2699,ACCT=6:2699,ACCT=8:2696,1:2699),0)),U)"
^XMB(3.9,84,2,2429,0)="""RTN"",""PRCHNPO7"",153,0)"
^XMB(3.9,84,2,2430,0)=" .  .  I PRCHBOCC S $P(^PRC(442,DA(1),2,DA,0),U,4)=PRCHBOCC D"
^XMB(3.9,84,2,2431,0)="""RTN"",""PRCHNPO7"",154,0)"
^XMB(3.9,84,2,2432,0)=" .  .  .  I PRCHBOCC'=X,PRCHBOCC W:'$G(QUIETLY) !,?5,""BOC must be "",PRCHBOCC,!,?5,""For a supply fund order, a BOC "",X,"" is invalid."",! S X=PRCHBOCC"
^XMB(3.9,84,2,2433,0)="""RTN"",""PRCHNPO7"",155,0)"
^XMB(3.9,84,2,2434,0)=" Q X"
^XMB(3.9,84,2,2435,0)="""RTN"",""PRCHNPO7"",156,0)"
^XMB(3.9,84,2,2436,0)=" ;"
^XMB(3.9,84,2,2437,0)="""RTN"",""PRCHNPO7"",157,0)"
^XMB(3.9,84,2,2438,0)=" ;"
^XMB(3.9,84,2,2439,0)="""RTN"",""PRCHNPO7"",158,0)"
^XMB(3.9,84,2,2440,0)=" ;"
^XMB(3.9,84,2,2441,0)="""RTN"",""PRCHNPO7"",159,0)"
^XMB(3.9,84,2,2442,0)="EN8 ;FILE 442, ITEM #40; BOC #3.5  -- Z0 must = BOC on entry"
^XMB(3.9,84,2,2443,0)="""RTN"",""PRCHNPO7"",160,0)"
^XMB(3.9,84,2,2444,0)=" N DIC D VEN Q:'$D(X)"
^XMB(3.9,84,2,2445,0)="""RTN"",""PRCHNPO7"",161,0)"
^XMB(3.9,84,2,2446,0)=" S DIC=""^PRCD(420.1,""_Z0_"",1,"",DIC(0)=""QEMZ"""
^XMB(3.9,84,2,2447,0)="""RTN"",""PRCHNPO7"",162,0)"
^XMB(3.9,84,2,2448,0)=" I $P(^PRC(442,DA(1),0),U,19)'=2 D"
^XMB(3.9,84,2,2449,0)="""RTN"",""PRCHNPO7"",163,0)"
^XMB(3.9,84,2,2450,0)=" . D ^DIC K:Y<0 X K Z0"
^XMB(3.9,84,2,2451,0)="""RTN"",""PRCHNPO7"",164,0)"
^XMB(3.9,84,2,2452,0)=" . I $D(X) S X=$P(Y(0,0),""^"",1) D"
^XMB(3.9,84,2,2453,0)="""RTN"",""PRCHNPO7"",165,0)"
^XMB(3.9,84,2,2454,0)=" . . S PRCHBOC=+Y ;D EN2^PRCHNPO8"
^XMB(3.9,84,2,2455,0)="""RTN"",""PRCHNPO7"",166,0)"
^XMB(3.9,84,2,2456,0)=" . . W !,X"
^XMB(3.9,84,2,2457,0)="""RTN"",""PRCHNPO7"",167,0)"
^XMB(3.9,84,2,2458,0)=" Q"
^XMB(3.9,84,2,2459,0)="""RTN"",""PRCHNPO7"",168,0)"
^XMB(3.9,84,2,2460,0)=" ;"
^XMB(3.9,84,2,2461,0)="""RTN"",""PRCHNPO7"",169,0)"
^XMB(3.9,84,2,2462,0)=" ;"
^XMB(3.9,84,2,2463,0)="""RTN"",""PRCHNPO7"",170,0)"
^XMB(3.9,84,2,2464,0)="EN88 ;FILE 442, EST. SHIPPING BOC #13.05  -- Z0 must = BOC on entry"
^XMB(3.9,84,2,2465,0)="""RTN"",""PRCHNPO7"",171,0)"
^XMB(3.9,84,2,2466,0)=" N DIC D VENA Q:'$D(X)"
^XMB(3.9,84,2,2467,0)="""RTN"",""PRCHNPO7"",172,0)"
^XMB(3.9,84,2,2468,0)=" S DIC=""^PRCD(420.1,""_Z0_"",1,"",DIC(0)=""QEMZ"" D ^DIC K:Y<0 X K Z0"
^XMB(3.9,84,2,2469,0)="""RTN"",""PRCHNPO7"",173,0)"
^XMB(3.9,84,2,2470,0)=" I $D(X) S X=$P(Y(0,0),""^"",1) W !,X"
^XMB(3.9,84,2,2471,0)="""RTN"",""PRCHNPO7"",174,0)"
^XMB(3.9,84,2,2472,0)=" Q"
^XMB(3.9,84,2,2473,0)="""RTN"",""PRCHNPO7"",175,0)"
^XMB(3.9,84,2,2474,0)=" ;"
^XMB(3.9,84,2,2475,0)="""RTN"",""PRCHNPO7"",176,0)"
^XMB(3.9,84,2,2476,0)="EN9 ;CHECK FOR PAYMENT FIELDS AND OTHER FIELDS IN VENDOR FILE"
^XMB(3.9,84,2,2477,0)="""RTN"",""PRCHNPO7"",177,0)"
^XMB(3.9,84,2,2478,0)=" ;CALLED FROM FILE 442 INPUT TEMPLATES."
^XMB(3.9,84,2,2479,0)="""RTN"",""PRCHNPO7"",178,0)"
^XMB(3.9,84,2,2480,0)=" ;FLAG --is set to 1 in template when certain VENDOR conditions are met"
^XMB(3.9,84,2,2481,0)="""RTN"",""PRCHNPO7"",179,0)"
^XMB(3.9,84,2,2482,0)=" S PRCHOV7=$G(^PRC(440,+^PRC(442,D0,1),7)) G:PRCHOV7="""" EXIT"
^XMB(3.9,84,2,2483,0)="""RTN"",""PRCHNPO7"",180,0)"
^XMB(3.9,84,2,2484,0)=" I $P(PRCHOV7,U,3)]"""",($P(PRCHOV7,U,7)]""""),($P(PRCHOV7,U,8)]""""),($P(PRCHOV7,U,9)]""""),$P(PRCHOV3,U,11)]"""",$P(PRCHOV3,U,14)]"""",$P(PRCHOV3,U,13)]"""",FLAG S Y=""@20"" G EXIT"
^XMB(3.9,84,2,2485,0)="""RTN"",""PRCHNPO7"",181,0)"
^XMB(3.9,84,2,2486,0)=" S VEN=+^PRC(442,D0,1),%X=""^PRC(440,VEN,"",%Y=""^PRC(440.3,VEN,"" D %XY^%RCR K VEN"
^XMB(3.9,84,2,2487,0)="""RTN"",""PRCHNPO7"",182,0)"
^XMB(3.9,84,2,2488,0)="EXIT Q"
^XMB(3.9,84,2,2489,0)="""RTN"",""PRCHNPO7"",183,0)"
^XMB(3.9,84,2,2490,0)=" ;"
^XMB(3.9,84,2,2491,0)="""RTN"",""PRCHNPO7"",184,0)"
^XMB(3.9,84,2,2492,0)="EN12 ;UPDATE NATIONAL DRUG CODE #9.3"
^XMB(3.9,84,2,2493,0)="""RTN"",""PRCHNPO7"",185,0)"
^XMB(3.9,84,2,2494,0)=" D VEN Q:'$D(X)!($P(^PRC(442,DA(1),2,DA,0),U,5)="""")"
^XMB(3.9,84,2,2495,0)="""RTN"",""PRCHNPO7"",186,0)"
^XMB(3.9,84,2,2496,0)=" S:'$D(PRC(""SITE"")) PRC(""SITE"")=$P($P(^PRC(442,DA(1),0),U,1),""-"",1) S PRCHCV=$P(^PRC(442,DA(1),1),U,1),PRCHCI=$P(^(2,DA,0),U,5),PRCHCPO=DA(1) D EN12^PRCHCRD1"
^XMB(3.9,84,2,2497,0)="""RTN"",""PRCHNPO7"",187,0)"
^XMB(3.9,84,2,2498,0)=" Q"
^XMB(3.9,84,2,2499,0)="""RTN"",""PRCHNPO7"",188,0)"
^XMB(3.9,84,2,2500,0)=" ;"
^XMB(3.9,84,2,2501,0)="""RTN"",""PRCHNPO7"",189,0)"
^XMB(3.9,84,2,2502,0)="EN13 ;FILE 443.6, ITEM #40;BOC #3.5, EST. SHIPPING BOC #13.05"
^XMB(3.9,84,2,2503,0)="""RTN"",""PRCHNPO7"",190,0)"
^XMB(3.9,84,2,2504,0)=" D VEN1 Q:'$D(X)  S DIC=""^PRCD(420.1,""_Z0_"",1,"",DIC(0)=""QEMZ"" D ^DIC K:Y<0 X K DIC,Z0 I $D(X) S X=$P(Y(0,0),""^"",1) W !,X"
^XMB(3.9,84,2,2505,0)="""RTN"",""PRCHNPO7"",191,0)"
^XMB(3.9,84,2,2506,0)=" Q"
^XMB(3.9,84,2,2507,0)="""RTN"",""PRCHNPO7"",192,0)"
^XMB(3.9,84,2,2508,0)="EN133 ;FILE 443.6, EST. SHIPPING BOC #13.05"
^XMB(3.9,84,2,2509,0)="""RTN"",""PRCHNPO7"",193,0)"
^XMB(3.9,84,2,2510,0)=" D VEN1A Q:'$D(X)  S DIC=""^PRCD(420.1,""_Z0_"",1,"",DIC(0)=""QEMZ"" D ^DIC K:Y<0 X K DIC,Z0 I $D(X) S X=$P(Y(0,0),""^"",1) W !,X"
^XMB(3.9,84,2,2511,0)="""RTN"",""PRCHNPO7"",194,0)"
^XMB(3.9,84,2,2512,0)=" Q"
^XMB(3.9,84,2,2513,0)="""VER"")"
^XMB(3.9,84,2,2514,0)="8.0^22.0"
^XMB(3.9,84,2,2515,0)="""BLD"",4973,6)"
^XMB(3.9,84,2,2516,0)="^84"
^XMB(3.9,84,2,2517,0)="$END KID PRC*5.1*100"
^XMB(3.9,84,6,0)="^3.911A^2^2"
^XMB(3.9,84,6,1,0)="POSTMASTER"
^XMB(3.9,84,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,84,6,"B","POSTMASTER",1)=""
^XMB(3.9,84,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,85,0)="PRC-5P1_SEQ-85_PAT-96.KID^.5^3061008.015739^^^^K"
^XMB(3.9,85,.6)="3061008"
^XMB(3.9,85,1,0)="^3.91A^2^2"
^XMB(3.9,85,1,1,0)=".5^0^3061008.015739^^^^^^^3061008.015739"
^XMB(3.9,85,1,2,0)="1^0^3061008.024137^^^^^^^3061008.024137"
^XMB(3.9,85,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,85,1,"C",.5,1)=""
^XMB(3.9,85,1,"C",1,2)=""
^XMB(3.9,85,2,0)="^^427^427^3061008"
^XMB(3.9,85,2,1,0)="$TXT Released PRC*5.1*96 SEQ #85"
^XMB(3.9,85,2,2,0)="Extracted from mail message"
^XMB(3.9,85,2,3,0)="$END TXT"
^XMB(3.9,85,2,4,0)="$KID PRC*5.1*96"
^XMB(3.9,85,2,5,0)="**INSTALL NAME**"
^XMB(3.9,85,2,6,0)="PRC*5.1*96"
^XMB(3.9,85,2,7,0)="""BLD"",4942,0)"
^XMB(3.9,85,2,8,0)="PRC*5.1*96^IFCAP^0^3060206^y"
^XMB(3.9,85,2,9,0)="""BLD"",4942,1,0)"
^XMB(3.9,85,2,10,0)="^^9^9^3060206^"
^XMB(3.9,85,2,11,0)="""BLD"",4942,1,1,0)"
^XMB(3.9,85,2,12,0)="This patch corrects an issue with FMS transactions that have a Transcode "
^XMB(3.9,85,2,13,0)="""BLD"",4942,1,2,0)"
^XMB(3.9,85,2,14,0)="of PR (payroll).  The issue occurs when payroll transactions use the same "
^XMB(3.9,85,2,15,0)="""BLD"",4942,1,3,0)"
^XMB(3.9,85,2,16,0)="common number series for transaction numbers as Purchase Orders.  The "
^XMB(3.9,85,2,17,0)="""BLD"",4942,1,4,0)"
^XMB(3.9,85,2,18,0)="code initially look at file 442 to find a transaction number match, if "
^XMB(3.9,85,2,19,0)="""BLD"",4942,1,5,0)"
^XMB(3.9,85,2,20,0)="one did not exist it then searched for payroll transactions.  "
^XMB(3.9,85,2,21,0)="""BLD"",4942,1,6,0)"
^XMB(3.9,85,2,22,0)="Unfortunately, if the same common number series was used to create both "
^XMB(3.9,85,2,23,0)="""BLD"",4942,1,7,0)"
^XMB(3.9,85,2,24,0)="types of transactions there are instances where two separate transactions "
^XMB(3.9,85,2,25,0)="""BLD"",4942,1,8,0)"
^XMB(3.9,85,2,26,0)="have the same exact transaction number causing an incorrect posting of "
^XMB(3.9,85,2,27,0)="""BLD"",4942,1,9,0)"
^XMB(3.9,85,2,28,0)="payroll data to Purchase Order transactions."
^XMB(3.9,85,2,29,0)="""BLD"",4942,4,0)"
^XMB(3.9,85,2,30,0)="^9.64PA^^"
^XMB(3.9,85,2,31,0)="""BLD"",4942,""KRN"",0)"
^XMB(3.9,85,2,32,0)="^9.67PA^8989.52^19"
^XMB(3.9,85,2,33,0)="""BLD"",4942,""KRN"",.4,0)"
^XMB(3.9,85,2,34,0)=".4"
^XMB(3.9,85,2,35,0)="""BLD"",4942,""KRN"",.401,0)"
^XMB(3.9,85,2,36,0)=".401"
^XMB(3.9,85,2,37,0)="""BLD"",4942,""KRN"",.402,0)"
^XMB(3.9,85,2,38,0)=".402"
^XMB(3.9,85,2,39,0)="""BLD"",4942,""KRN"",.403,0)"
^XMB(3.9,85,2,40,0)=".403"
^XMB(3.9,85,2,41,0)="""BLD"",4942,""KRN"",.5,0)"
^XMB(3.9,85,2,42,0)=".5"
^XMB(3.9,85,2,43,0)="""BLD"",4942,""KRN"",.84,0)"
^XMB(3.9,85,2,44,0)=".84"
^XMB(3.9,85,2,45,0)="""BLD"",4942,""KRN"",3.6,0)"
^XMB(3.9,85,2,46,0)="3.6"
^XMB(3.9,85,2,47,0)="""BLD"",4942,""KRN"",3.8,0)"
^XMB(3.9,85,2,48,0)="3.8"
^XMB(3.9,85,2,49,0)="""BLD"",4942,""KRN"",9.2,0)"
^XMB(3.9,85,2,50,0)="9.2"
^XMB(3.9,85,2,51,0)="""BLD"",4942,""KRN"",9.8,0)"
^XMB(3.9,85,2,52,0)="9.8"
^XMB(3.9,85,2,53,0)="""BLD"",4942,""KRN"",9.8,""NM"",0)"
^XMB(3.9,85,2,54,0)="^9.68A^1^1"
^XMB(3.9,85,2,55,0)="""BLD"",4942,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,85,2,56,0)="PRCSREC^^0^B22653875"
^XMB(3.9,85,2,57,0)="""BLD"",4942,""KRN"",9.8,""NM"",""B"",""PRCSREC"",1)"
^XMB(3.9,85,2,58,0)=""
^XMB(3.9,85,2,59,0)="""BLD"",4942,""KRN"",19,0)"
^XMB(3.9,85,2,60,0)="19"
^XMB(3.9,85,2,61,0)="""BLD"",4942,""KRN"",19.1,0)"
^XMB(3.9,85,2,62,0)="19.1"
^XMB(3.9,85,2,63,0)="""BLD"",4942,""KRN"",101,0)"
^XMB(3.9,85,2,64,0)="101"
^XMB(3.9,85,2,65,0)="""BLD"",4942,""KRN"",409.61,0)"
^XMB(3.9,85,2,66,0)="409.61"
^XMB(3.9,85,2,67,0)="""BLD"",4942,""KRN"",771,0)"
^XMB(3.9,85,2,68,0)="771"
^XMB(3.9,85,2,69,0)="""BLD"",4942,""KRN"",870,0)"
^XMB(3.9,85,2,70,0)="870"
^XMB(3.9,85,2,71,0)="""BLD"",4942,""KRN"",8989.51,0)"
^XMB(3.9,85,2,72,0)="8989.51"
^XMB(3.9,85,2,73,0)="""BLD"",4942,""KRN"",8989.52,0)"
^XMB(3.9,85,2,74,0)="8989.52"
^XMB(3.9,85,2,75,0)="""BLD"",4942,""KRN"",8994,0)"
^XMB(3.9,85,2,76,0)="8994"
^XMB(3.9,85,2,77,0)="""BLD"",4942,""KRN"",""B"",.4,.4)"
^XMB(3.9,85,2,78,0)=""
^XMB(3.9,85,2,79,0)="""BLD"",4942,""KRN"",""B"",.401,.401)"
^XMB(3.9,85,2,80,0)=""
^XMB(3.9,85,2,81,0)="""BLD"",4942,""KRN"",""B"",.402,.402)"
^XMB(3.9,85,2,82,0)=""
^XMB(3.9,85,2,83,0)="""BLD"",4942,""KRN"",""B"",.403,.403)"
^XMB(3.9,85,2,84,0)=""
^XMB(3.9,85,2,85,0)="""BLD"",4942,""KRN"",""B"",.5,.5)"
^XMB(3.9,85,2,86,0)=""
^XMB(3.9,85,2,87,0)="""BLD"",4942,""KRN"",""B"",.84,.84)"
^XMB(3.9,85,2,88,0)=""
^XMB(3.9,85,2,89,0)="""BLD"",4942,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,85,2,90,0)=""
^XMB(3.9,85,2,91,0)="""BLD"",4942,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,85,2,92,0)=""
^XMB(3.9,85,2,93,0)="""BLD"",4942,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,85,2,94,0)=""
^XMB(3.9,85,2,95,0)="""BLD"",4942,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,85,2,96,0)=""
^XMB(3.9,85,2,97,0)="""BLD"",4942,""KRN"",""B"",19,19)"
^XMB(3.9,85,2,98,0)=""
^XMB(3.9,85,2,99,0)="""BLD"",4942,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,85,2,100,0)=""
^XMB(3.9,85,2,101,0)="""BLD"",4942,""KRN"",""B"",101,101)"
^XMB(3.9,85,2,102,0)=""
^XMB(3.9,85,2,103,0)="""BLD"",4942,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,85,2,104,0)=""
^XMB(3.9,85,2,105,0)="""BLD"",4942,""KRN"",""B"",771,771)"
^XMB(3.9,85,2,106,0)=""
^XMB(3.9,85,2,107,0)="""BLD"",4942,""KRN"",""B"",870,870)"
^XMB(3.9,85,2,108,0)=""
^XMB(3.9,85,2,109,0)="""BLD"",4942,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,85,2,110,0)=""
^XMB(3.9,85,2,111,0)="""BLD"",4942,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,85,2,112,0)=""
^XMB(3.9,85,2,113,0)="""BLD"",4942,""KRN"",""B"",8994,8994)"
^XMB(3.9,85,2,114,0)=""
^XMB(3.9,85,2,115,0)="""BLD"",4942,""QUES"",0)"
^XMB(3.9,85,2,116,0)="^9.62^^"
^XMB(3.9,85,2,117,0)="""BLD"",4942,""REQB"",0)"
^XMB(3.9,85,2,118,0)="^9.611^^"
^XMB(3.9,85,2,119,0)="""MBREQ"")"
^XMB(3.9,85,2,120,0)="0"
^XMB(3.9,85,2,121,0)="""PKG"",455,-1)"
^XMB(3.9,85,2,122,0)="1^1"
^XMB(3.9,85,2,123,0)="""PKG"",455,0)"
^XMB(3.9,85,2,124,0)="IFCAP^PRC^IFCAP System Files"
^XMB(3.9,85,2,125,0)="""PKG"",455,20,0)"
^XMB(3.9,85,2,126,0)="^9.402P^^"
^XMB(3.9,85,2,127,0)="""PKG"",455,22,0)"
^XMB(3.9,85,2,128,0)="^9.49I^1^1"
^XMB(3.9,85,2,129,0)="""PKG"",455,22,1,0)"
^XMB(3.9,85,2,130,0)="5.1^3001012^3001019^68"
^XMB(3.9,85,2,131,0)="""PKG"",455,22,1,""PAH"",1,0)"
^XMB(3.9,85,2,132,0)="96^3060206"
^XMB(3.9,85,2,133,0)="""PKG"",455,22,1,""PAH"",1,1,0)"
^XMB(3.9,85,2,134,0)="^^9^9^3060206"
^XMB(3.9,85,2,135,0)="""PKG"",455,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,85,2,136,0)="This patch corrects an issue with FMS transactions that have a Transcode "
^XMB(3.9,85,2,137,0)="""PKG"",455,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,85,2,138,0)="of PR (payroll).  The issue occurs when payroll transactions use the same "
^XMB(3.9,85,2,139,0)="""PKG"",455,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,85,2,140,0)="common number series for transaction numbers as Purchase Orders.  The "
^XMB(3.9,85,2,141,0)="""PKG"",455,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,85,2,142,0)="code initially look at file 442 to find a transaction number match, if "
^XMB(3.9,85,2,143,0)="""PKG"",455,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,85,2,144,0)="one did not exist it then searched for payroll transactions.  "
^XMB(3.9,85,2,145,0)="""PKG"",455,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,85,2,146,0)="Unfortunately, if the same common number series was used to create both "
^XMB(3.9,85,2,147,0)="""PKG"",455,22,1,""PAH"",1,1,7,0)"
^XMB(3.9,85,2,148,0)="types of transactions there are instances where two separate transactions "
^XMB(3.9,85,2,149,0)="""PKG"",455,22,1,""PAH"",1,1,8,0)"
^XMB(3.9,85,2,150,0)="have the same exact transaction number causing an incorrect posting of "
^XMB(3.9,85,2,151,0)="""PKG"",455,22,1,""PAH"",1,1,9,0)"
^XMB(3.9,85,2,152,0)="payroll data to Purchase Order transactions."
^XMB(3.9,85,2,153,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,85,2,154,0)="Y"
^XMB(3.9,85,2,155,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,85,2,156,0)="^D REP^XPDH"
^XMB(3.9,85,2,157,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,85,2,158,0)="Shall I write over your |FLAG| File"
^XMB(3.9,85,2,159,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,85,2,160,0)="YES"
^XMB(3.9,85,2,161,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,85,2,162,0)="D XPF1^XPDIQ"
^XMB(3.9,85,2,163,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,85,2,164,0)="Y"
^XMB(3.9,85,2,165,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,85,2,166,0)="^D DTA^XPDH"
^XMB(3.9,85,2,167,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,85,2,168,0)="Want my data |FLAG| yours"
^XMB(3.9,85,2,169,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,85,2,170,0)="YES"
^XMB(3.9,85,2,171,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,85,2,172,0)="D XPF2^XPDIQ"
^XMB(3.9,85,2,173,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,85,2,174,0)="YO"
^XMB(3.9,85,2,175,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,85,2,176,0)="^D INHIBIT^XPDH"
^XMB(3.9,85,2,177,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,85,2,178,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,85,2,179,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,85,2,180,0)="YES"
^XMB(3.9,85,2,181,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,85,2,182,0)="D XPI1^XPDIQ"
^XMB(3.9,85,2,183,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,85,2,184,0)="PO^VA(200,:EM"
^XMB(3.9,85,2,185,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,85,2,186,0)="^D MG^XPDH"
^XMB(3.9,85,2,187,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,85,2,188,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,85,2,189,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,85,2,190,0)=""
^XMB(3.9,85,2,191,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,85,2,192,0)="D XPM1^XPDIQ"
^XMB(3.9,85,2,193,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,85,2,194,0)="Y"
^XMB(3.9,85,2,195,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,85,2,196,0)="^D MENU^XPDH"
^XMB(3.9,85,2,197,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,85,2,198,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,85,2,199,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,85,2,200,0)="YES"
^XMB(3.9,85,2,201,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,85,2,202,0)="D XPO1^XPDIQ"
^XMB(3.9,85,2,203,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,85,2,204,0)="Y"
^XMB(3.9,85,2,205,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,85,2,206,0)="^D OPT^XPDH"
^XMB(3.9,85,2,207,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,85,2,208,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,85,2,209,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,85,2,210,0)="YES"
^XMB(3.9,85,2,211,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,85,2,212,0)="D XPZ1^XPDIQ"
^XMB(3.9,85,2,213,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,85,2,214,0)="Y"
^XMB(3.9,85,2,215,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,85,2,216,0)="^D RTN^XPDH"
^XMB(3.9,85,2,217,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,85,2,218,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,85,2,219,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,85,2,220,0)="NO"
^XMB(3.9,85,2,221,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,85,2,222,0)="D XPZ2^XPDIQ"
^XMB(3.9,85,2,223,0)="""RTN"")"
^XMB(3.9,85,2,224,0)="1"
^XMB(3.9,85,2,225,0)="""RTN"",""PRCSREC"")"
^XMB(3.9,85,2,226,0)="0^1^B22653875^B22254107"
^XMB(3.9,85,2,227,0)="""RTN"",""PRCSREC"",1,0)"
^XMB(3.9,85,2,228,0)="PRCSREC ;WISC/KMB/DL-FMS 820 RECONCILIATION INTERCEPT ;12/28/99  11:06"
^XMB(3.9,85,2,229,0)="""RTN"",""PRCSREC"",2,0)"
^XMB(3.9,85,2,230,0)="V ;;5.1;IFCAP;**96**;Oct 20, 2000"
^XMB(3.9,85,2,231,0)="""RTN"",""PRCSREC"",3,0)"
^XMB(3.9,85,2,232,0)=" ;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,85,2,233,0)="""RTN"",""PRCSREC"",4,0)"
^XMB(3.9,85,2,234,0)=" ;  add entry to file 417, update CP balance on File 420"
^XMB(3.9,85,2,235,0)="""RTN"",""PRCSREC"",5,0)"
^XMB(3.9,85,2,236,0)=" ;  finally, send 820 to designee at CP"
^XMB(3.9,85,2,237,0)="""RTN"",""PRCSREC"",6,0)"
^XMB(3.9,85,2,238,0)=" ;  if duplicate, or CP is not in IFCAP, set status to ""N"" or ""D"""
^XMB(3.9,85,2,239,0)="""RTN"",""PRCSREC"",7,0)"
^XMB(3.9,85,2,240,0)="START ;"
^XMB(3.9,85,2,241,0)="""RTN"",""PRCSREC"",8,0)"
^XMB(3.9,85,2,242,0)=" Q:'$D(PRCDA)"
^XMB(3.9,85,2,243,0)="""RTN"",""PRCSREC"",9,0)"
^XMB(3.9,85,2,244,0)=" N AA,STATUS,STATION,CHECK,FILE,FCP,PODA,OUT,RDA,FY,QTR,TEMP,PONUM,PONUM1,TRANSNUM,X,Y,TDATE"
^XMB(3.9,85,2,245,0)="""RTN"",""PRCSREC"",10,0)"
^XMB(3.9,85,2,246,0)=" N LINE,LNN,TRANCODE,COUNTER,AMT,RDATE,FMSREF,K,ERROR,STRING"
^XMB(3.9,85,2,247,0)="""RTN"",""PRCSREC"",11,0)"
^XMB(3.9,85,2,248,0)=" N ENDFY,BEGFY"
^XMB(3.9,85,2,249,0)="""RTN"",""PRCSREC"",12,0)"
^XMB(3.9,85,2,250,0)=" S OUT=0,(FCP,STATION)="""""
^XMB(3.9,85,2,251,0)="""RTN"",""PRCSREC"",13,0)"
^XMB(3.9,85,2,252,0)=" D NOW^%DTC S RDATE=%,RDA=PRCDA"
^XMB(3.9,85,2,253,0)="""RTN"",""PRCSREC"",14,0)"
^XMB(3.9,85,2,254,0)=" ;    1,2 is this the right type of transaction"
^XMB(3.9,85,2,255,0)="""RTN"",""PRCSREC"",15,0)"
^XMB(3.9,85,2,256,0)=" S CHECK=$P($G(^PRCF(423.6,RDA,1,10000,0)),""^"",3) I CHECK'[""IFC"" S OUT=1 D EVAL Q"
^XMB(3.9,85,2,257,0)="""RTN"",""PRCSREC"",16,0)"
^XMB(3.9,85,2,258,0)=" S CHECK=$P($G(^PRCF(423.6,RDA,1,10000,0)),""^"",5) I CHECK'[""REC"" S OUT=2 D EVAL Q"
^XMB(3.9,85,2,259,0)="""RTN"",""PRCSREC"",17,0)"
^XMB(3.9,85,2,260,0)=" ;    3 is site correct"
^XMB(3.9,85,2,261,0)="""RTN"",""PRCSREC"",18,0)"
^XMB(3.9,85,2,262,0)=" S STATION=$P($G(^PRCF(423.6,RDA,1,10000,0)),""^"",4) I STATION="""" S OUT=3 D EVAL Q"
^XMB(3.9,85,2,263,0)="""RTN"",""PRCSREC"",19,0)"
^XMB(3.9,85,2,264,0)=" I '$D(^PRC(420,STATION)) S OUT=3 D EVAL Q"
^XMB(3.9,85,2,265,0)="""RTN"",""PRCSREC"",20,0)"
^XMB(3.9,85,2,266,0)=" S LINE=10000 F  S LINE=$O(^PRCF(423.6,RDA,1,LINE)) Q:'LINE  D PROCESS"
^XMB(3.9,85,2,267,0)="""RTN"",""PRCSREC"",21,0)"
^XMB(3.9,85,2,268,0)=" D KILL^PRCOSRV3(PRCDA)"
^XMB(3.9,85,2,269,0)="""RTN"",""PRCSREC"",22,0)"
^XMB(3.9,85,2,270,0)=" QUIT"
^XMB(3.9,85,2,271,0)="""RTN"",""PRCSREC"",23,0)"
^XMB(3.9,85,2,272,0)="PROCESS ;  check each transmission line sent"
^XMB(3.9,85,2,273,0)="""RTN"",""PRCSREC"",24,0)"
^XMB(3.9,85,2,274,0)=" Q:$P($G(^PRCF(423.6,RDA,1,LINE,0)),""^"")[""{"""
^XMB(3.9,85,2,275,0)="""RTN"",""PRCSREC"",25,0)"
^XMB(3.9,85,2,276,0)=" S STRING=^PRCF(423.6,RDA,1,LINE,0)"
^XMB(3.9,85,2,277,0)="""RTN"",""PRCSREC"",26,0)"
^XMB(3.9,85,2,278,0)=" ;    5,7 can a unique transmission record be determined"
^XMB(3.9,85,2,279,0)="""RTN"",""PRCSREC"",27,0)"
^XMB(3.9,85,2,280,0)=" S (PONUM,PONUM1)=$P(STRING,""^"",18) I PONUM="""" S OUT=5 D EVAL Q"
^XMB(3.9,85,2,281,0)="""RTN"",""PRCSREC"",28,0)"
^XMB(3.9,85,2,282,0)=" S LNN=$P(STRING,""^"",19),TDATE=$P(STRING,""^"",22) I TDATE="""" S OUT=5 D EVAL Q"
^XMB(3.9,85,2,283,0)="""RTN"",""PRCSREC"",29,0)"
^XMB(3.9,85,2,284,0)=" S TRANCODE=$P(STRING,""^"",17) I TRANCODE="""" S OUT=7 D EVAL Q"
^XMB(3.9,85,2,285,0)="""RTN"",""PRCSREC"",30,0)"
^XMB(3.9,85,2,286,0)=" ;    8  is there a fiscal year/quarter"
^XMB(3.9,85,2,287,0)="""RTN"",""PRCSREC"",31,0)"
^XMB(3.9,85,2,288,0)=" S STATION=$P(STRING,""^"",8),FY=$P(STRING,""^"",4),QUARTER=$P(STRING,""^"",5),AMT=$P(STRING,""^"",20)"
^XMB(3.9,85,2,289,0)="""RTN"",""PRCSREC"",32,0)"
^XMB(3.9,85,2,290,0)=" I (FY="""")!(QUARTER="""") S OUT=8 D EVAL Q"
^XMB(3.9,85,2,291,0)="""RTN"",""PRCSREC"",33,0)"
^XMB(3.9,85,2,292,0)=" I (QUARTER'?1N)!(QUARTER>5) S OUT=8 D EVAL Q"
^XMB(3.9,85,2,293,0)="""RTN"",""PRCSREC"",34,0)"
^XMB(3.9,85,2,294,0)=" S ENDFY=$P(STRING,""^"",3),BEGFY=$P(STRING,""^"",2)"
^XMB(3.9,85,2,295,0)="""RTN"",""PRCSREC"",35,0)"
^XMB(3.9,85,2,296,0)=" S TRANSNUM=TRANCODE_""-""_PONUM_""-""_TDATE_""-""_+LNN_""-""_QUARTER"
^XMB(3.9,85,2,297,0)="""RTN"",""PRCSREC"",36,0)"
^XMB(3.9,85,2,298,0)="FCPCHEC ;"
^XMB(3.9,85,2,299,0)="""RTN"",""PRCSREC"",37,0)"
^XMB(3.9,85,2,300,0)=" ;    if there is a PO number, get CP from 442 record"
^XMB(3.9,85,2,301,0)="""RTN"",""PRCSREC"",38,0)"
^XMB(3.9,85,2,302,0)=" S $P(STRING,""^"",9)=$P(STRING,""^"",21)"
^XMB(3.9,85,2,303,0)="""RTN"",""PRCSREC"",39,0)"
^XMB(3.9,85,2,304,0)=" S PODA=0,(FCP,FILE)="""" S PONUM=$E(PONUM,4,9),PONUM=STATION_""-""_PONUM"
^XMB(3.9,85,2,305,0)="""RTN"",""PRCSREC"",40,0)"
^XMB(3.9,85,2,306,0)=" ;    if it is not an employee payroll transaction ok to search file 442"
^XMB(3.9,85,2,307,0)="""RTN"",""PRCSREC"",41,0)"
^XMB(3.9,85,2,308,0)=" I TRANCODE'=""PR"" D  I $D(^PRC(420,STATION,1,+FCP,4,FY)) D CONTINU Q"
^XMB(3.9,85,2,309,0)="""RTN"",""PRCSREC"",42,0)"
^XMB(3.9,85,2,310,0)=" .S:$D(^PRC(442,""B"",PONUM)) PODA=$O(^PRC(442,""B"",PONUM,0))"
^XMB(3.9,85,2,311,0)="""RTN"",""PRCSREC"",43,0)"
^XMB(3.9,85,2,312,0)=" .I +PODA'=0 S FCP=$P($G(^PRC(442,PODA,0)),""^"",3),FCP=+$P(FCP,"" "")"
^XMB(3.9,85,2,313,0)="""RTN"",""PRCSREC"",44,0)"
^XMB(3.9,85,2,314,0)=" .Q"
^XMB(3.9,85,2,315,0)="""RTN"",""PRCSREC"",45,0)"
^XMB(3.9,85,2,316,0)=" ;    if no PO match is found, use required fields table"
^XMB(3.9,85,2,317,0)="""RTN"",""PRCSREC"",46,0)"
^XMB(3.9,85,2,318,0)=" S ARRAY(""BFY"")=+$$YEAR^PRC0C($P(STRING,""^"",2))"
^XMB(3.9,85,2,319,0)="""RTN"",""PRCSREC"",47,0)"
^XMB(3.9,85,2,320,0)=" S FILE=417.1"
^XMB(3.9,85,2,321,0)="""RTN"",""PRCSREC"",48,0)"
^XMB(3.9,85,2,322,0)=" S ARRAY(""FUND"")=$P(STRING,""^"",6),ARRAY(""AO"")=$P(STRING,""^"",7),ARRAY(""FCPRJ"")=$P(STRING,""^"",10)"
^XMB(3.9,85,2,323,0)="""RTN"",""PRCSREC"",49,0)"
^XMB(3.9,85,2,324,0)=" S ARRAY(""PGM"")=$P(STRING,""^"",21),ARRAY(""OC"")=$P(STRING,""^"",16),ARRAY(""JOB"")=$P(STRING,""^"",14),ARRAY(""SITE"")=STATION"
^XMB(3.9,85,2,325,0)="""RTN"",""PRCSREC"",50,0)"
^XMB(3.9,85,2,326,0)=" ;"
^XMB(3.9,85,2,327,0)="""RTN"",""PRCSREC"",51,0)"
^XMB(3.9,85,2,328,0)=" S A="""" D FINDCP I A="""" S FCP=""000"" S STATUS=""N"" D SET Q"
^XMB(3.9,85,2,329,0)="""RTN"",""PRCSREC"",52,0)"
^XMB(3.9,85,2,330,0)=" ;"
^XMB(3.9,85,2,331,0)="""RTN"",""PRCSREC"",53,0)"
^XMB(3.9,85,2,332,0)=" S B=$$FIRST^PRC0B1(""^PRCD(420.141,""""B"""",""""""_A_"""""","",0)"
^XMB(3.9,85,2,333,0)="""RTN"",""PRCSREC"",54,0)"
^XMB(3.9,85,2,334,0)=" I 'B S FCP=""000"" S STATUS=""N"" D SET Q"
^XMB(3.9,85,2,335,0)="""RTN"",""PRCSREC"",55,0)"
^XMB(3.9,85,2,336,0)=" S FCP=+$P(^PRCD(420.141,B,0),""^"",2)"
^XMB(3.9,85,2,337,0)="""RTN"",""PRCSREC"",56,0)"
^XMB(3.9,85,2,338,0)=" I +FCP=0 S FCP=""000"" S STATUS=""N"" D SET Q"
^XMB(3.9,85,2,339,0)="""RTN"",""PRCSREC"",57,0)"
^XMB(3.9,85,2,340,0)=" I '$D(^PRC(420,STATION,1,+FCP)) S FCP=""000"",STATUS=""N"" D SET Q"
^XMB(3.9,85,2,341,0)="""RTN"",""PRCSREC"",58,0)"
^XMB(3.9,85,2,342,0)="CONTINU ;    set control point balance on file 420"
^XMB(3.9,85,2,343,0)="""RTN"",""PRCSREC"",59,0)"
^XMB(3.9,85,2,344,0)=" S FILE=417,TRANSNUM=TRANSNUM_""-""_FCP"
^XMB(3.9,85,2,345,0)="""RTN"",""PRCSREC"",60,0)"
^XMB(3.9,85,2,346,0)=" S CHECK=TRANSNUM I $D(^PRCS(417,""B"",CHECK)) S FILE=417.1 D SET Q"
^XMB(3.9,85,2,347,0)="""RTN"",""PRCSREC"",61,0)"
^XMB(3.9,85,2,348,0)=" S STATUS=""P"" D SET S AA=STATION_""^""_+FCP_""^""_FY_""^""_QUARTER_""^""_AMT"
^XMB(3.9,85,2,349,0)="""RTN"",""PRCSREC"",62,0)"
^XMB(3.9,85,2,350,0)=" I TRANCODE'=""CC"",$E(PONUM1,4,7)'?4A D EBAL^PRCSEZ(AA,""C"")"
^XMB(3.9,85,2,351,0)="""RTN"",""PRCSREC"",63,0)"
^XMB(3.9,85,2,352,0)=" D EBAL^PRCSEZ(AA,""O"")"
^XMB(3.9,85,2,353,0)="""RTN"",""PRCSREC"",64,0)"
^XMB(3.9,85,2,354,0)=" S INFORM=$P($T(MESSAGE+9),"";;"",2)"
^XMB(3.9,85,2,355,0)="""RTN"",""PRCSREC"",65,0)"
^XMB(3.9,85,2,356,0)=" I STATUS=""P"" D ^PRCSREC1 K INFORM QUIT"
^XMB(3.9,85,2,357,0)="""RTN"",""PRCSREC"",66,0)"
^XMB(3.9,85,2,358,0)="EVAL I OUT'=0 S ERROR=$P($T(MESSAGE+OUT),"";;"",2) D ^PRCSREC1"
^XMB(3.9,85,2,359,0)="""RTN"",""PRCSREC"",67,0)"
^XMB(3.9,85,2,360,0)=" S OUT=0 K ERROR QUIT"
^XMB(3.9,85,2,361,0)="""RTN"",""PRCSREC"",68,0)"
^XMB(3.9,85,2,362,0)="SET ;  set data on file 417 with status of ""P"" (posted), ""D"" (duplicate), ""N"" (no CP)"
^XMB(3.9,85,2,363,0)="""RTN"",""PRCSREC"",69,0)"
^XMB(3.9,85,2,364,0)=" S X=TRANSNUM,DIC=""^PRCS(""_FILE_"","",DIC(0)=""LZ"",DLAYGO=FILE D FILE^DICN Q:Y=-1  S FMSDA=+Y K DLAYGO"
^XMB(3.9,85,2,365,0)="""RTN"",""PRCSREC"",70,0)"
^XMB(3.9,85,2,366,0)=" L +^PRCS(FILE,FMSDA):5 Q:'$T  F K=2,3,5:1:20 S $P(^PRCS(FILE,FMSDA,0),""^"",K)=$P(STRING,""^"",K)"
^XMB(3.9,85,2,367,0)="""RTN"",""PRCSREC"",71,0)"
^XMB(3.9,85,2,368,0)=" S K=$P(STRING,""^"",4),DIE=DIC,DA=FMSDA,DR=""3////^S X=K"" D ^DIE"
^XMB(3.9,85,2,369,0)="""RTN"",""PRCSREC"",72,0)"
^XMB(3.9,85,2,370,0)=" S X=TDATE,X=$E(X,3,4)_""/""_$E(X,5,6)_""/""_$E(X,1,2) K %DT D ^%DT"
^XMB(3.9,85,2,371,0)="""RTN"",""PRCSREC"",73,0)"
^XMB(3.9,85,2,372,0)=" S $P(^PRCS(FILE,FMSDA,0),""^"",22)=Y"
^XMB(3.9,85,2,373,0)="""RTN"",""PRCSREC"",74,0)"
^XMB(3.9,85,2,374,0)=" I FILE=417 S DIE=DIC,DA=FMSDA,DR=""51///^S X=STATUS""_"";""_""22///^S X=1"" D ^DIE"
^XMB(3.9,85,2,375,0)="""RTN"",""PRCSREC"",75,0)"
^XMB(3.9,85,2,376,0)=" S COUNTER=STATION_""-""_FY_""-""_QUARTER_""-""_FCP,$P(^PRCS(FILE,FMSDA,0),""^"",21)=COUNTER"
^XMB(3.9,85,2,377,0)="""RTN"",""PRCSREC"",76,0)"
^XMB(3.9,85,2,378,0)=" S ^PRCS(FILE,""C"",COUNTER,FMSDA)="""""
^XMB(3.9,85,2,379,0)="""RTN"",""PRCSREC"",77,0)"
^XMB(3.9,85,2,380,0)=" L -^PRCS(FILE,FMSDA)"
^XMB(3.9,85,2,381,0)="""RTN"",""PRCSREC"",78,0)"
^XMB(3.9,85,2,382,0)=" K ARRAY,DA,DIC,DIE,DR QUIT"
^XMB(3.9,85,2,383,0)="""RTN"",""PRCSREC"",79,0)"
^XMB(3.9,85,2,384,0)="FINDCP ;"
^XMB(3.9,85,2,385,0)="""RTN"",""PRCSREC"",80,0)"
^XMB(3.9,85,2,386,0)=" S FUNDCODE=+$$FUND^PRC0C(ARRAY(""FUND""),ARRAY(""BFY"")) Q:FUNDCODE=0"
^XMB(3.9,85,2,387,0)="""RTN"",""PRCSREC"",81,0)"
^XMB(3.9,85,2,388,0)=" D DOCREQ^PRC0C(FUNDCODE,""AB"",""AB""),DOCREQ^PRC0C(FUNDCODE,""SAB"",""SAB"")"
^XMB(3.9,85,2,389,0)="""RTN"",""PRCSREC"",82,0)"
^XMB(3.9,85,2,390,0)=" F A=""SPE"",""REV"",""GL"" I $$REQ^PRC0C(FUNDCODE,A,""JOB"")=""Y"" S SAB(""JOB"")=""Y"""
^XMB(3.9,85,2,391,0)="""RTN"",""PRCSREC"",83,0)"
^XMB(3.9,85,2,392,0)=" S EE=""~"",A=ARRAY(""SITE"")_EE_ARRAY(""BFY"")_EE_ARRAY(""FUND"")"
^XMB(3.9,85,2,393,0)="""RTN"",""PRCSREC"",84,0)"
^XMB(3.9,85,2,394,0)=" F I=""AO"",""PGM"",""FCPRJ"",""OC"",""JOB"" D"
^XMB(3.9,85,2,395,0)="""RTN"",""PRCSREC"",85,0)"
^XMB(3.9,85,2,396,0)=" .I $G(AB(I))=""Y""!($G(SAB(I))=""Y"") S PIECE=ARRAY(I)"
^XMB(3.9,85,2,397,0)="""RTN"",""PRCSREC"",86,0)"
^XMB(3.9,85,2,398,0)=" .E  S PIECE="""""
^XMB(3.9,85,2,399,0)="""RTN"",""PRCSREC"",87,0)"
^XMB(3.9,85,2,400,0)=" .S A=A_EE_PIECE"
^XMB(3.9,85,2,401,0)="""RTN"",""PRCSREC"",88,0)"
^XMB(3.9,85,2,402,0)=" K AB,EE,I,PIECE,FIELD,FUNDCODE,SAB Q"
^XMB(3.9,85,2,403,0)="""RTN"",""PRCSREC"",89,0)"
^XMB(3.9,85,2,404,0)="MESSAGE ;"
^XMB(3.9,85,2,405,0)="""RTN"",""PRCSREC"",90,0)"
^XMB(3.9,85,2,406,0)=" ;;IFCAP transmission code is incorrect"
^XMB(3.9,85,2,407,0)="""RTN"",""PRCSREC"",91,0)"
^XMB(3.9,85,2,408,0)=" ;;Transmission type is not correct for 820 processing"
^XMB(3.9,85,2,409,0)="""RTN"",""PRCSREC"",92,0)"
^XMB(3.9,85,2,410,0)=" ;;Site reference is incorrect"
^XMB(3.9,85,2,411,0)="""RTN"",""PRCSREC"",93,0)"
^XMB(3.9,85,2,412,0)=" ;;"
^XMB(3.9,85,2,413,0)="""RTN"",""PRCSREC"",94,0)"
^XMB(3.9,85,2,414,0)=" ;;No FMS message transmission number sent in this transaction"
^XMB(3.9,85,2,415,0)="""RTN"",""PRCSREC"",95,0)"
^XMB(3.9,85,2,416,0)=" ;;Duplicate message transmission number sent in transaction"
^XMB(3.9,85,2,417,0)="""RTN"",""PRCSREC"",96,0)"
^XMB(3.9,85,2,418,0)=" ;;No FMS transaction code was sent for this transaction"
^XMB(3.9,85,2,419,0)="""RTN"",""PRCSREC"",97,0)"
^XMB(3.9,85,2,420,0)=" ;;Invalid fiscal year or quarter sent in this transaction"
^XMB(3.9,85,2,421,0)="""RTN"",""PRCSREC"",98,0)"
^XMB(3.9,85,2,422,0)=" ;;Your control point balances have been adjusted by the amount above"
^XMB(3.9,85,2,423,0)="""VER"")"
^XMB(3.9,85,2,424,0)="8.0^22.0"
^XMB(3.9,85,2,425,0)="""BLD"",4942,6)"
^XMB(3.9,85,2,426,0)="^85"
^XMB(3.9,85,2,427,0)="$END KID PRC*5.1*96"
^XMB(3.9,85,6,0)="^3.911A^2^2"
^XMB(3.9,85,6,1,0)="POSTMASTER"
^XMB(3.9,85,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,85,6,"B","POSTMASTER",1)=""
^XMB(3.9,85,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,86,0)="PRCA-4P5_SEQ-217_PAT-246.KID^.5^3061008.015739^^^^K"
^XMB(3.9,86,.6)="3061008"
^XMB(3.9,86,1,0)="^3.91A^2^2"
^XMB(3.9,86,1,1,0)=".5^0^3061008.015739^^^^^^^3061008.015739"
^XMB(3.9,86,1,2,0)="1^0^3061008.02414^^^^^^^3061008.02414"
^XMB(3.9,86,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,86,1,"C",.5,1)=""
^XMB(3.9,86,1,"C",1,2)=""
^XMB(3.9,86,2,0)="^^899^899^3061008"
^XMB(3.9,86,2,1,0)="$TXT Released PRCA*4.5*246 SEQ #217"
^XMB(3.9,86,2,2,0)="Extracted from mail message"
^XMB(3.9,86,2,3,0)="$END TXT"
^XMB(3.9,86,2,4,0)="$KID PRCA*4.5*246"
^XMB(3.9,86,2,5,0)="**INSTALL NAME**"
^XMB(3.9,86,2,6,0)="PRCA*4.5*246"
^XMB(3.9,86,2,7,0)="""BLD"",6725,0)"
^XMB(3.9,86,2,8,0)="PRCA*4.5*246^ACCOUNTS RECEIVABLE^0^3060512^y"
^XMB(3.9,86,2,9,0)="""BLD"",6725,1,0)"
^XMB(3.9,86,2,10,0)="^^4^4^3060512^"
^XMB(3.9,86,2,11,0)="""BLD"",6725,1,1,0)"
^XMB(3.9,86,2,12,0)="Patch PRCA*4.5*246 re-enables two Katrina-related functions"
^XMB(3.9,86,2,13,0)="""BLD"",6725,1,2,0)"
^XMB(3.9,86,2,14,0)="that became inactive on 4/30/06.  They are the option"
^XMB(3.9,86,2,15,0)="""BLD"",6725,1,3,0)"
^XMB(3.9,86,2,16,0)="Emergency Response Report and the patch PRCA*4.5*241"
^XMB(3.9,86,2,17,0)="""BLD"",6725,1,4,0)"
^XMB(3.9,86,2,18,0)="post-initialization process."
^XMB(3.9,86,2,19,0)="""BLD"",6725,4,0)"
^XMB(3.9,86,2,20,0)="^9.64PA^^"
^XMB(3.9,86,2,21,0)="""BLD"",6725,""ABPKG"")"
^XMB(3.9,86,2,22,0)="n"
^XMB(3.9,86,2,23,0)="""BLD"",6725,""KRN"",0)"
^XMB(3.9,86,2,24,0)="^9.67PA^8989.52^19"
^XMB(3.9,86,2,25,0)="""BLD"",6725,""KRN"",.4,0)"
^XMB(3.9,86,2,26,0)=".4"
^XMB(3.9,86,2,27,0)="""BLD"",6725,""KRN"",.401,0)"
^XMB(3.9,86,2,28,0)=".401"
^XMB(3.9,86,2,29,0)="""BLD"",6725,""KRN"",.402,0)"
^XMB(3.9,86,2,30,0)=".402"
^XMB(3.9,86,2,31,0)="""BLD"",6725,""KRN"",.403,0)"
^XMB(3.9,86,2,32,0)=".403"
^XMB(3.9,86,2,33,0)="""BLD"",6725,""KRN"",.5,0)"
^XMB(3.9,86,2,34,0)=".5"
^XMB(3.9,86,2,35,0)="""BLD"",6725,""KRN"",.84,0)"
^XMB(3.9,86,2,36,0)=".84"
^XMB(3.9,86,2,37,0)="""BLD"",6725,""KRN"",3.6,0)"
^XMB(3.9,86,2,38,0)="3.6"
^XMB(3.9,86,2,39,0)="""BLD"",6725,""KRN"",3.8,0)"
^XMB(3.9,86,2,40,0)="3.8"
^XMB(3.9,86,2,41,0)="""BLD"",6725,""KRN"",9.2,0)"
^XMB(3.9,86,2,42,0)="9.2"
^XMB(3.9,86,2,43,0)="""BLD"",6725,""KRN"",9.8,0)"
^XMB(3.9,86,2,44,0)="9.8"
^XMB(3.9,86,2,45,0)="""BLD"",6725,""KRN"",9.8,""NM"",0)"
^XMB(3.9,86,2,46,0)="^9.68A^2^2"
^XMB(3.9,86,2,47,0)="""BLD"",6725,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,86,2,48,0)="RCKATP^^0^B52728564"
^XMB(3.9,86,2,49,0)="""BLD"",6725,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,86,2,50,0)="RCKATRPT^^0^B33045980"
^XMB(3.9,86,2,51,0)="""BLD"",6725,""KRN"",9.8,""NM"",""B"",""RCKATP"",1)"
^XMB(3.9,86,2,52,0)=""
^XMB(3.9,86,2,53,0)="""BLD"",6725,""KRN"",9.8,""NM"",""B"",""RCKATRPT"",2)"
^XMB(3.9,86,2,54,0)=""
^XMB(3.9,86,2,55,0)="""BLD"",6725,""KRN"",19,0)"
^XMB(3.9,86,2,56,0)="19"
^XMB(3.9,86,2,57,0)="""BLD"",6725,""KRN"",19.1,0)"
^XMB(3.9,86,2,58,0)="19.1"
^XMB(3.9,86,2,59,0)="""BLD"",6725,""KRN"",101,0)"
^XMB(3.9,86,2,60,0)="101"
^XMB(3.9,86,2,61,0)="""BLD"",6725,""KRN"",409.61,0)"
^XMB(3.9,86,2,62,0)="409.61"
^XMB(3.9,86,2,63,0)="""BLD"",6725,""KRN"",771,0)"
^XMB(3.9,86,2,64,0)="771"
^XMB(3.9,86,2,65,0)="""BLD"",6725,""KRN"",870,0)"
^XMB(3.9,86,2,66,0)="870"
^XMB(3.9,86,2,67,0)="""BLD"",6725,""KRN"",8989.51,0)"
^XMB(3.9,86,2,68,0)="8989.51"
^XMB(3.9,86,2,69,0)="""BLD"",6725,""KRN"",8989.52,0)"
^XMB(3.9,86,2,70,0)="8989.52"
^XMB(3.9,86,2,71,0)="""BLD"",6725,""KRN"",8994,0)"
^XMB(3.9,86,2,72,0)="8994"
^XMB(3.9,86,2,73,0)="""BLD"",6725,""KRN"",""B"",.4,.4)"
^XMB(3.9,86,2,74,0)=""
^XMB(3.9,86,2,75,0)="""BLD"",6725,""KRN"",""B"",.401,.401)"
^XMB(3.9,86,2,76,0)=""
^XMB(3.9,86,2,77,0)="""BLD"",6725,""KRN"",""B"",.402,.402)"
^XMB(3.9,86,2,78,0)=""
^XMB(3.9,86,2,79,0)="""BLD"",6725,""KRN"",""B"",.403,.403)"
^XMB(3.9,86,2,80,0)=""
^XMB(3.9,86,2,81,0)="""BLD"",6725,""KRN"",""B"",.5,.5)"
^XMB(3.9,86,2,82,0)=""
^XMB(3.9,86,2,83,0)="""BLD"",6725,""KRN"",""B"",.84,.84)"
^XMB(3.9,86,2,84,0)=""
^XMB(3.9,86,2,85,0)="""BLD"",6725,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,86,2,86,0)=""
^XMB(3.9,86,2,87,0)="""BLD"",6725,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,86,2,88,0)=""
^XMB(3.9,86,2,89,0)="""BLD"",6725,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,86,2,90,0)=""
^XMB(3.9,86,2,91,0)="""BLD"",6725,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,86,2,92,0)=""
^XMB(3.9,86,2,93,0)="""BLD"",6725,""KRN"",""B"",19,19)"
^XMB(3.9,86,2,94,0)=""
^XMB(3.9,86,2,95,0)="""BLD"",6725,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,86,2,96,0)=""
^XMB(3.9,86,2,97,0)="""BLD"",6725,""KRN"",""B"",101,101)"
^XMB(3.9,86,2,98,0)=""
^XMB(3.9,86,2,99,0)="""BLD"",6725,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,86,2,100,0)=""
^XMB(3.9,86,2,101,0)="""BLD"",6725,""KRN"",""B"",771,771)"
^XMB(3.9,86,2,102,0)=""
^XMB(3.9,86,2,103,0)="""BLD"",6725,""KRN"",""B"",870,870)"
^XMB(3.9,86,2,104,0)=""
^XMB(3.9,86,2,105,0)="""BLD"",6725,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,86,2,106,0)=""
^XMB(3.9,86,2,107,0)="""BLD"",6725,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,86,2,108,0)=""
^XMB(3.9,86,2,109,0)="""BLD"",6725,""KRN"",""B"",8994,8994)"
^XMB(3.9,86,2,110,0)=""
^XMB(3.9,86,2,111,0)="""BLD"",6725,""QUES"",0)"
^XMB(3.9,86,2,112,0)="^9.62^^"
^XMB(3.9,86,2,113,0)="""BLD"",6725,""REQB"",0)"
^XMB(3.9,86,2,114,0)="^9.611^2^2"
^XMB(3.9,86,2,115,0)="""BLD"",6725,""REQB"",1,0)"
^XMB(3.9,86,2,116,0)="PRCA*4.5*242^2"
^XMB(3.9,86,2,117,0)="""BLD"",6725,""REQB"",2,0)"
^XMB(3.9,86,2,118,0)="PRCA*4.5*241^2"
^XMB(3.9,86,2,119,0)="""BLD"",6725,""REQB"",""B"",""PRCA*4.5*241"",2)"
^XMB(3.9,86,2,120,0)=""
^XMB(3.9,86,2,121,0)="""BLD"",6725,""REQB"",""B"",""PRCA*4.5*242"",1)"
^XMB(3.9,86,2,122,0)=""
^XMB(3.9,86,2,123,0)="""MBREQ"")"
^XMB(3.9,86,2,124,0)="0"
^XMB(3.9,86,2,125,0)="""PKG"",142,-1)"
^XMB(3.9,86,2,126,0)="1^1"
^XMB(3.9,86,2,127,0)="""PKG"",142,0)"
^XMB(3.9,86,2,128,0)="ACCOUNTS RECEIVABLE^PRCA^BILL COLLECTIONS"
^XMB(3.9,86,2,129,0)="""PKG"",142,20,0)"
^XMB(3.9,86,2,130,0)="^9.402P^1^1"
^XMB(3.9,86,2,131,0)="""PKG"",142,20,1,0)"
^XMB(3.9,86,2,132,0)="2^^PRCAMRG"
^XMB(3.9,86,2,133,0)="""PKG"",142,20,1,1)"
^XMB(3.9,86,2,134,0)=""
^XMB(3.9,86,2,135,0)="""PKG"",142,20,""B"",2,1)"
^XMB(3.9,86,2,136,0)=""
^XMB(3.9,86,2,137,0)="""PKG"",142,22,0)"
^XMB(3.9,86,2,138,0)="^9.49I^1^1"
^XMB(3.9,86,2,139,0)="""PKG"",142,22,1,0)"
^XMB(3.9,86,2,140,0)="4.5^^2950320"
^XMB(3.9,86,2,141,0)="""PKG"",142,22,1,""PAH"",1,0)"
^XMB(3.9,86,2,142,0)="246^3060512"
^XMB(3.9,86,2,143,0)="""PKG"",142,22,1,""PAH"",1,1,0)"
^XMB(3.9,86,2,144,0)="^^4^4^3060512"
^XMB(3.9,86,2,145,0)="""PKG"",142,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,86,2,146,0)="Patch PRCA*4.5*246 re-enables two Katrina-related functions"
^XMB(3.9,86,2,147,0)="""PKG"",142,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,86,2,148,0)="that became inactive on 4/30/06.  They are the option"
^XMB(3.9,86,2,149,0)="""PKG"",142,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,86,2,150,0)="Emergency Response Report and the patch PRCA*4.5*241"
^XMB(3.9,86,2,151,0)="""PKG"",142,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,86,2,152,0)="post-initialization process."
^XMB(3.9,86,2,153,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,86,2,154,0)="Y"
^XMB(3.9,86,2,155,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,86,2,156,0)="^D REP^XPDH"
^XMB(3.9,86,2,157,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,86,2,158,0)="Shall I write over your |FLAG| File"
^XMB(3.9,86,2,159,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,86,2,160,0)="YES"
^XMB(3.9,86,2,161,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,86,2,162,0)="D XPF1^XPDIQ"
^XMB(3.9,86,2,163,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,86,2,164,0)="Y"
^XMB(3.9,86,2,165,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,86,2,166,0)="^D DTA^XPDH"
^XMB(3.9,86,2,167,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,86,2,168,0)="Want my data |FLAG| yours"
^XMB(3.9,86,2,169,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,86,2,170,0)="YES"
^XMB(3.9,86,2,171,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,86,2,172,0)="D XPF2^XPDIQ"
^XMB(3.9,86,2,173,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,86,2,174,0)="YO"
^XMB(3.9,86,2,175,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,86,2,176,0)="^D INHIBIT^XPDH"
^XMB(3.9,86,2,177,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,86,2,178,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,86,2,179,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,86,2,180,0)="YES"
^XMB(3.9,86,2,181,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,86,2,182,0)="D XPI1^XPDIQ"
^XMB(3.9,86,2,183,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,86,2,184,0)="PO^VA(200,:EM"
^XMB(3.9,86,2,185,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,86,2,186,0)="^D MG^XPDH"
^XMB(3.9,86,2,187,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,86,2,188,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,86,2,189,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,86,2,190,0)=""
^XMB(3.9,86,2,191,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,86,2,192,0)="D XPM1^XPDIQ"
^XMB(3.9,86,2,193,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,86,2,194,0)="Y"
^XMB(3.9,86,2,195,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,86,2,196,0)="^D MENU^XPDH"
^XMB(3.9,86,2,197,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,86,2,198,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,86,2,199,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,86,2,200,0)="YES"
^XMB(3.9,86,2,201,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,86,2,202,0)="D XPO1^XPDIQ"
^XMB(3.9,86,2,203,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,86,2,204,0)="Y"
^XMB(3.9,86,2,205,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,86,2,206,0)="^D OPT^XPDH"
^XMB(3.9,86,2,207,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,86,2,208,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,86,2,209,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,86,2,210,0)="YES"
^XMB(3.9,86,2,211,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,86,2,212,0)="D XPZ1^XPDIQ"
^XMB(3.9,86,2,213,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,86,2,214,0)="Y"
^XMB(3.9,86,2,215,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,86,2,216,0)="^D RTN^XPDH"
^XMB(3.9,86,2,217,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,86,2,218,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,86,2,219,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,86,2,220,0)="NO"
^XMB(3.9,86,2,221,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,86,2,222,0)="D XPZ2^XPDIQ"
^XMB(3.9,86,2,223,0)="""RTN"")"
^XMB(3.9,86,2,224,0)="2"
^XMB(3.9,86,2,225,0)="""RTN"",""RCKATP"")"
^XMB(3.9,86,2,226,0)="0^1^B52728564^B52172732"
^XMB(3.9,86,2,227,0)="""RTN"",""RCKATP"",1,0)"
^XMB(3.9,86,2,228,0)="RCKATP ;ALB/CPM - ADJUST ACCOUNTS FOR KATRINA VETS ; 28-FEB-06"
^XMB(3.9,86,2,229,0)="""RTN"",""RCKATP"",2,0)"
^XMB(3.9,86,2,230,0)=" ;;4.5;Accounts Receivable;**241,246**;Mar 20, 1995"
^XMB(3.9,86,2,231,0)="""RTN"",""RCKATP"",3,0)"
^XMB(3.9,86,2,232,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,86,2,233,0)="""RTN"",""RCKATP"",4,0)"
^XMB(3.9,86,2,234,0)=" Q"
^XMB(3.9,86,2,235,0)="""RTN"",""RCKATP"",5,0)"
^XMB(3.9,86,2,236,0)=" ;"
^XMB(3.9,86,2,237,0)="""RTN"",""RCKATP"",6,0)"
^XMB(3.9,86,2,238,0)=" ;"
^XMB(3.9,86,2,239,0)="""RTN"",""RCKATP"",7,0)"
^XMB(3.9,86,2,240,0)="POST ; Queue PRCA*4.5*241 post-init job."
^XMB(3.9,86,2,241,0)="""RTN"",""RCKATP"",8,0)"
^XMB(3.9,86,2,242,0)=" ;"
^XMB(3.9,86,2,243,0)="""RTN"",""RCKATP"",9,0)"
^XMB(3.9,86,2,244,0)=" D BMES^XPDUTL("">>> Queuing the post-initialization to run now..."")"
^XMB(3.9,86,2,245,0)="""RTN"",""RCKATP"",10,0)"
^XMB(3.9,86,2,246,0)=" S ZTDTH=$H,ZTRTN=""EN^RCKATP"",ZTIO="""""
^XMB(3.9,86,2,247,0)="""RTN"",""RCKATP"",11,0)"
^XMB(3.9,86,2,248,0)=" S ZTDESC=""RC - PATCH PRCA*4.5*241 POST INITIALIZATION"""
^XMB(3.9,86,2,249,0)="""RTN"",""RCKATP"",12,0)"
^XMB(3.9,86,2,250,0)=" D ^%ZTLOAD"
^XMB(3.9,86,2,251,0)="""RTN"",""RCKATP"",13,0)"
^XMB(3.9,86,2,252,0)=" I $D(ZTSK) D MES^XPDUTL("" >> Queued as task #""_ZTSK_""."")"
^XMB(3.9,86,2,253,0)="""RTN"",""RCKATP"",14,0)"
^XMB(3.9,86,2,254,0)=" I '$D(ZTSK) D MES^XPDUTL("" >> Unable to queue task - contact EVS."")"
^XMB(3.9,86,2,255,0)="""RTN"",""RCKATP"",15,0)"
^XMB(3.9,86,2,256,0)=" K ZTDTH,ZTRTN,ZTDESC,ZTSK,ZTIO"
^XMB(3.9,86,2,257,0)="""RTN"",""RCKATP"",16,0)"
^XMB(3.9,86,2,258,0)=" Q"
^XMB(3.9,86,2,259,0)="""RTN"",""RCKATP"",17,0)"
^XMB(3.9,86,2,260,0)=" ;"
^XMB(3.9,86,2,261,0)="""RTN"",""RCKATP"",18,0)"
^XMB(3.9,86,2,262,0)=" ;"
^XMB(3.9,86,2,263,0)="""RTN"",""RCKATP"",19,0)"
^XMB(3.9,86,2,264,0)="EN ; Queued entry point to run the PRCA*4.5*241 post init."
^XMB(3.9,86,2,265,0)="""RTN"",""RCKATP"",20,0)"
^XMB(3.9,86,2,266,0)=" ;"
^XMB(3.9,86,2,267,0)="""RTN"",""RCKATP"",21,0)"
^XMB(3.9,86,2,268,0)=" D EX ;                    exempt interest - return RCTOTAL"
^XMB(3.9,86,2,269,0)="""RTN"",""RCKATP"",22,0)"
^XMB(3.9,86,2,270,0)=" ;"
^XMB(3.9,86,2,271,0)="""RTN"",""RCKATP"",23,0)"
^XMB(3.9,86,2,272,0)=" S RCRES=$$CAN^IBAKAT() ;  cancel copay charges"
^XMB(3.9,86,2,273,0)="""RTN"",""RCKATP"",24,0)"
^XMB(3.9,86,2,274,0)=" ;"
^XMB(3.9,86,2,275,0)="""RTN"",""RCKATP"",25,0)"
^XMB(3.9,86,2,276,0)=" D BULL ;                  generate bulletin with results"
^XMB(3.9,86,2,277,0)="""RTN"",""RCKATP"",26,0)"
^XMB(3.9,86,2,278,0)=" ;"
^XMB(3.9,86,2,279,0)="""RTN"",""RCKATP"",27,0)"
^XMB(3.9,86,2,280,0)=" I $D(ZTQUEUED) S ZTREQ=""@"""
^XMB(3.9,86,2,281,0)="""RTN"",""RCKATP"",28,0)"
^XMB(3.9,86,2,282,0)=" K RCTOTAL,RCRES"
^XMB(3.9,86,2,283,0)="""RTN"",""RCKATP"",29,0)"
^XMB(3.9,86,2,284,0)=" Q"
^XMB(3.9,86,2,285,0)="""RTN"",""RCKATP"",30,0)"
^XMB(3.9,86,2,286,0)=" ;"
^XMB(3.9,86,2,287,0)="""RTN"",""RCKATP"",31,0)"
^XMB(3.9,86,2,288,0)=" ;"
^XMB(3.9,86,2,289,0)="""RTN"",""RCKATP"",32,0)"
^XMB(3.9,86,2,290,0)="EX ; Entry point to exempt interest/admin charges"
^XMB(3.9,86,2,291,0)="""RTN"",""RCKATP"",33,0)"
^XMB(3.9,86,2,292,0)=" ;"
^XMB(3.9,86,2,293,0)="""RTN"",""RCKATP"",34,0)"
^XMB(3.9,86,2,294,0)=" ; - get all 'Katrina' vets based on interest/admin charges "
^XMB(3.9,86,2,295,0)="""RTN"",""RCKATP"",35,0)"
^XMB(3.9,86,2,296,0)=" K ^TMP(""RCKATP"",$J)"
^XMB(3.9,86,2,297,0)="""RTN"",""RCKATP"",36,0)"
^XMB(3.9,86,2,298,0)=" S RCCOM(1)=""INTEREST ADJUSTMENT FOR HURRICANE KATRINA VETERAN"""
^XMB(3.9,86,2,299,0)="""RTN"",""RCKATP"",37,0)"
^XMB(3.9,86,2,300,0)=" S RCD=3050828.9"
^XMB(3.9,86,2,301,0)="""RTN"",""RCKATP"",38,0)"
^XMB(3.9,86,2,302,0)=" F  S RCD=$O(^PRCA(433,""AT"",13,RCD)) Q:'RCD!($P(RCD,""."")>3060430)  D"
^XMB(3.9,86,2,303,0)="""RTN"",""RCKATP"",39,0)"
^XMB(3.9,86,2,304,0)=" .S RCT=0 F  S RCT=$O(^PRCA(433,""AT"",13,RCD,RCT)) Q:'RCT  D"
^XMB(3.9,86,2,305,0)="""RTN"",""RCKATP"",40,0)"
^XMB(3.9,86,2,306,0)=" ..S RCB=+$P($G(^PRCA(433,RCT,0)),""^"",2) Q:'RCB"
^XMB(3.9,86,2,307,0)="""RTN"",""RCKATP"",41,0)"
^XMB(3.9,86,2,308,0)=" ..I '$P($G(^PRCA(430,RCB,0)),""^"",12) Q"
^XMB(3.9,86,2,309,0)="""RTN"",""RCKATP"",42,0)"
^XMB(3.9,86,2,310,0)=" ..S RCDPT=+$P($G(^PRCA(430,RCB,0)),""^"",9)"
^XMB(3.9,86,2,311,0)="""RTN"",""RCKATP"",43,0)"
^XMB(3.9,86,2,312,0)=" ..S RCDEB=$G(^RCD(340,RCDPT,0))"
^XMB(3.9,86,2,313,0)="""RTN"",""RCKATP"",44,0)"
^XMB(3.9,86,2,314,0)=" ..Q:$P(RCDEB,""^"")'[""DPT""  Q:'RCDEB"
^XMB(3.9,86,2,315,0)="""RTN"",""RCKATP"",45,0)"
^XMB(3.9,86,2,316,0)=" ..;Q:$$EMERES^PRCAUTL(+RCDEB)="""""
^XMB(3.9,86,2,317,0)="""RTN"",""RCKATP"",46,0)"
^XMB(3.9,86,2,318,0)=" ..Q:$$EMGRES^DGUTL(+RCDEB)="""""
^XMB(3.9,86,2,319,0)="""RTN"",""RCKATP"",47,0)"
^XMB(3.9,86,2,320,0)=" ..Q:$P(RCDEB,""^"",8)  ;    vet has been already been processed"
^XMB(3.9,86,2,321,0)="""RTN"",""RCKATP"",48,0)"
^XMB(3.9,86,2,322,0)=" ..;"
^XMB(3.9,86,2,323,0)="""RTN"",""RCKATP"",49,0)"
^XMB(3.9,86,2,324,0)=" ..; - store the vet and bill"
^XMB(3.9,86,2,325,0)="""RTN"",""RCKATP"",50,0)"
^XMB(3.9,86,2,326,0)=" ..S ^TMP(""RCKATP"",$J,RCDPT,RCB)="""""
^XMB(3.9,86,2,327,0)="""RTN"",""RCKATP"",51,0)"
^XMB(3.9,86,2,328,0)=" ;"
^XMB(3.9,86,2,329,0)="""RTN"",""RCKATP"",52,0)"
^XMB(3.9,86,2,330,0)=" ; - look for extra interest exemptions to create"
^XMB(3.9,86,2,331,0)="""RTN"",""RCKATP"",53,0)"
^XMB(3.9,86,2,332,0)=" S RCTOTAL=""0^0"""
^XMB(3.9,86,2,333,0)="""RTN"",""RCKATP"",54,0)"
^XMB(3.9,86,2,334,0)=" S RCDEB=0 F  S RCDEB=$O(^TMP(""RCKATP"",$J,RCDEB)) Q:'RCDEB  D"
^XMB(3.9,86,2,335,0)="""RTN"",""RCKATP"",55,0)"
^XMB(3.9,86,2,336,0)=" .;"
^XMB(3.9,86,2,337,0)="""RTN"",""RCKATP"",56,0)"
^XMB(3.9,86,2,338,0)=" .; - initialize bucket and new patient flag"
^XMB(3.9,86,2,339,0)="""RTN"",""RCKATP"",57,0)"
^XMB(3.9,86,2,340,0)=" .S (RCBUCK,RCNEWP)=0"
^XMB(3.9,86,2,341,0)="""RTN"",""RCKATP"",58,0)"
^XMB(3.9,86,2,342,0)=" .S RCB=0 F  S RCB=$O(^TMP(""RCKATP"",$J,RCDEB,RCB)) Q:'RCB  D"
^XMB(3.9,86,2,343,0)="""RTN"",""RCKATP"",59,0)"
^XMB(3.9,86,2,344,0)=" ..;"
^XMB(3.9,86,2,345,0)="""RTN"",""RCKATP"",60,0)"
^XMB(3.9,86,2,346,0)=" ..; - review transactions to find interest added/exempted"
^XMB(3.9,86,2,347,0)="""RTN"",""RCKATP"",61,0)"
^XMB(3.9,86,2,348,0)=" ..S RCCB=$$GETTRANS^RCDPBTLM(RCB),RCH=0,RCHOLD="""""
^XMB(3.9,86,2,349,0)="""RTN"",""RCKATP"",62,0)"
^XMB(3.9,86,2,350,0)=" ..S RCDT=3050828.9 F  S RCDT=$O(RCLIST(RCDT)) Q:'RCDT  D"
^XMB(3.9,86,2,351,0)="""RTN"",""RCKATP"",63,0)"
^XMB(3.9,86,2,352,0)=" ...S RCT=0 F  S RCT=$O(RCLIST(RCDT,RCT)) Q:'RCT  D"
^XMB(3.9,86,2,353,0)="""RTN"",""RCKATP"",64,0)"
^XMB(3.9,86,2,354,0)=" ....S RCV=RCLIST(RCDT,RCT)"
^XMB(3.9,86,2,355,0)="""RTN"",""RCKATP"",65,0)"
^XMB(3.9,86,2,356,0)=" ....;"
^XMB(3.9,86,2,357,0)="""RTN"",""RCKATP"",66,0)"
^XMB(3.9,86,2,358,0)=" ....; - if transaction is an interest charge, save off amount"
^XMB(3.9,86,2,359,0)="""RTN"",""RCKATP"",67,0)"
^XMB(3.9,86,2,360,0)=" ....I RCV[""INTEREST/ADM. CHARGE"",RCDT<3060501 S RCH=1 D  Q"
^XMB(3.9,86,2,361,0)="""RTN"",""RCKATP"",68,0)"
^XMB(3.9,86,2,362,0)=" .....S $P(RCHOLD,""^"")=$P(RCHOLD,""^"")+$P(RCV,""^"",3)"
^XMB(3.9,86,2,363,0)="""RTN"",""RCKATP"",69,0)"
^XMB(3.9,86,2,364,0)=" .....S $P(RCHOLD,""^"",2)=$P(RCHOLD,""^"",2)+$P(RCV,""^"",4)"
^XMB(3.9,86,2,365,0)="""RTN"",""RCKATP"",70,0)"
^XMB(3.9,86,2,366,0)=" ....;"
^XMB(3.9,86,2,367,0)="""RTN"",""RCKATP"",71,0)"
^XMB(3.9,86,2,368,0)=" ....; - if transaction is an interest exemption, save off (+) amount"
^XMB(3.9,86,2,369,0)="""RTN"",""RCKATP"",72,0)"
^XMB(3.9,86,2,370,0)=" ....I RCV[""EXEMPT INT/ADM. COST"",RCH D  Q"
^XMB(3.9,86,2,371,0)="""RTN"",""RCKATP"",73,0)"
^XMB(3.9,86,2,372,0)=" .....S $P(RCHOLD,""^"",3)=$P(RCHOLD,""^"",3)-$P(RCV,""^"",3)"
^XMB(3.9,86,2,373,0)="""RTN"",""RCKATP"",74,0)"
^XMB(3.9,86,2,374,0)=" .....S $P(RCHOLD,""^"",4)=$P(RCHOLD,""^"",4)-$P(RCV,""^"",4)"
^XMB(3.9,86,2,375,0)="""RTN"",""RCKATP"",75,0)"
^XMB(3.9,86,2,376,0)=" ..;"
^XMB(3.9,86,2,377,0)="""RTN"",""RCKATP"",76,0)"
^XMB(3.9,86,2,378,0)=" ..; - get total amounts of interest added and exempted"
^XMB(3.9,86,2,379,0)="""RTN"",""RCKATP"",77,0)"
^XMB(3.9,86,2,380,0)=" ..S RCINT=$P(RCHOLD,""^"")+$P(RCHOLD,""^"",2)"
^XMB(3.9,86,2,381,0)="""RTN"",""RCKATP"",78,0)"
^XMB(3.9,86,2,382,0)=" ..S RCEXEM=$P(RCHOLD,""^"",3)+$P(RCHOLD,""^"",4)"
^XMB(3.9,86,2,383,0)="""RTN"",""RCKATP"",79,0)"
^XMB(3.9,86,2,384,0)=" ..;"
^XMB(3.9,86,2,385,0)="""RTN"",""RCKATP"",80,0)"
^XMB(3.9,86,2,386,0)=" ..; - quit if interest added less than or equal to exemptions"
^XMB(3.9,86,2,387,0)="""RTN"",""RCKATP"",81,0)"
^XMB(3.9,86,2,388,0)=" ..S RCAPPLY=RCINT-RCEXEM"
^XMB(3.9,86,2,389,0)="""RTN"",""RCKATP"",82,0)"
^XMB(3.9,86,2,390,0)=" ..Q:RCAPPLY'>0"
^XMB(3.9,86,2,391,0)="""RTN"",""RCKATP"",83,0)"
^XMB(3.9,86,2,392,0)=" ..;"
^XMB(3.9,86,2,393,0)="""RTN"",""RCKATP"",84,0)"
^XMB(3.9,86,2,394,0)=" ..; - get bill's interest balance"
^XMB(3.9,86,2,395,0)="""RTN"",""RCKATP"",85,0)"
^XMB(3.9,86,2,396,0)=" ..S RCNEWP=1"
^XMB(3.9,86,2,397,0)="""RTN"",""RCKATP"",86,0)"
^XMB(3.9,86,2,398,0)=" ..S X=$G(^PRCA(430,RCB,7)),RCINTB=$P(X,""^"",2)+$P(X,""^"",3)"
^XMB(3.9,86,2,399,0)="""RTN"",""RCKATP"",87,0)"
^XMB(3.9,86,2,400,0)=" ..;"
^XMB(3.9,86,2,401,0)="""RTN"",""RCKATP"",88,0)"
^XMB(3.9,86,2,402,0)=" ..; - if no balance, put in bucket and quit"
^XMB(3.9,86,2,403,0)="""RTN"",""RCKATP"",89,0)"
^XMB(3.9,86,2,404,0)=" ..I 'RCINTB S RCBUCK=RCBUCK+RCAPPLY Q"
^XMB(3.9,86,2,405,0)="""RTN"",""RCKATP"",90,0)"
^XMB(3.9,86,2,406,0)=" ..;"
^XMB(3.9,86,2,407,0)="""RTN"",""RCKATP"",91,0)"
^XMB(3.9,86,2,408,0)=" ..; - adjust bucket and amount to apply"
^XMB(3.9,86,2,409,0)="""RTN"",""RCKATP"",92,0)"
^XMB(3.9,86,2,410,0)=" ..S RCAMT=$S(RCAPPLY'<RCINTB:RCINTB,1:RCAPPLY)"
^XMB(3.9,86,2,411,0)="""RTN"",""RCKATP"",93,0)"
^XMB(3.9,86,2,412,0)=" ..S RCBUCK=$S(RCAPPLY>RCINTB:RCBUCK+(RCAPPLY-RCINTB),1:RCBUCK)"
^XMB(3.9,86,2,413,0)="""RTN"",""RCKATP"",94,0)"
^XMB(3.9,86,2,414,0)=" ..;"
^XMB(3.9,86,2,415,0)="""RTN"",""RCKATP"",95,0)"
^XMB(3.9,86,2,416,0)=" ..; - will apply RCAMT - spread over admin then interest."
^XMB(3.9,86,2,417,0)="""RTN"",""RCKATP"",96,0)"
^XMB(3.9,86,2,418,0)=" ..S RCAPA=$S(RCAMT'<$P(X,""^"",3):$P(X,""^"",3),1:RCAMT)"
^XMB(3.9,86,2,419,0)="""RTN"",""RCKATP"",97,0)"
^XMB(3.9,86,2,420,0)=" ..S RCAPI=RCAMT-RCAPA"
^XMB(3.9,86,2,421,0)="""RTN"",""RCKATP"",98,0)"
^XMB(3.9,86,2,422,0)=" ..S RC=$$EXEMPT^RCBEUTR2(RCB,RCAPI_""^""_RCAPA,.RCCOM,0)"
^XMB(3.9,86,2,423,0)="""RTN"",""RCKATP"",99,0)"
^XMB(3.9,86,2,424,0)=" ..;"
^XMB(3.9,86,2,425,0)="""RTN"",""RCKATP"",100,0)"
^XMB(3.9,86,2,426,0)=" ..; - update total amount exempted"
^XMB(3.9,86,2,427,0)="""RTN"",""RCKATP"",101,0)"
^XMB(3.9,86,2,428,0)=" ..S $P(RCTOTAL,""^"",2)=$P(RCTOTAL,""^"",2)+RCAMT"
^XMB(3.9,86,2,429,0)="""RTN"",""RCKATP"",102,0)"
^XMB(3.9,86,2,430,0)=" .;"
^XMB(3.9,86,2,431,0)="""RTN"",""RCKATP"",103,0)"
^XMB(3.9,86,2,432,0)=" .;"
^XMB(3.9,86,2,433,0)="""RTN"",""RCKATP"",104,0)"
^XMB(3.9,86,2,434,0)=" .; - set debtor as having been processed"
^XMB(3.9,86,2,435,0)="""RTN"",""RCKATP"",105,0)"
^XMB(3.9,86,2,436,0)=" .S $P(^RCD(340,RCDEB,0),""^"",8)=1"
^XMB(3.9,86,2,437,0)="""RTN"",""RCKATP"",106,0)"
^XMB(3.9,86,2,438,0)=" .;"
^XMB(3.9,86,2,439,0)="""RTN"",""RCKATP"",107,0)"
^XMB(3.9,86,2,440,0)=" .; - if an amount is left in the bucket, process it,"
^XMB(3.9,86,2,441,0)="""RTN"",""RCKATP"",108,0)"
^XMB(3.9,86,2,442,0)=" .;   update total exempted, and the number of vets exempted"
^XMB(3.9,86,2,443,0)="""RTN"",""RCKATP"",109,0)"
^XMB(3.9,86,2,444,0)=" .I RCBUCK D"
^XMB(3.9,86,2,445,0)="""RTN"",""RCKATP"",110,0)"
^XMB(3.9,86,2,446,0)=" ..D EN^RCKATPD($P($G(^RCD(340,RCDEB,0)),""^""),RCBUCK,RCCOM(1))"
^XMB(3.9,86,2,447,0)="""RTN"",""RCKATP"",111,0)"
^XMB(3.9,86,2,448,0)=" ..S $P(RCTOTAL,""^"",2)=$P(RCTOTAL,""^"",2)+RCBUCK"
^XMB(3.9,86,2,449,0)="""RTN"",""RCKATP"",112,0)"
^XMB(3.9,86,2,450,0)=" .I RCNEWP S $P(RCTOTAL,""^"")=$P(RCTOTAL,""^"")+1"
^XMB(3.9,86,2,451,0)="""RTN"",""RCKATP"",113,0)"
^XMB(3.9,86,2,452,0)=" ;"
^XMB(3.9,86,2,453,0)="""RTN"",""RCKATP"",114,0)"
^XMB(3.9,86,2,454,0)=" ;"
^XMB(3.9,86,2,455,0)="""RTN"",""RCKATP"",115,0)"
^XMB(3.9,86,2,456,0)=" K ^TMP(""RCKATP"",$J)"
^XMB(3.9,86,2,457,0)="""RTN"",""RCKATP"",116,0)"
^XMB(3.9,86,2,458,0)=" K RCD,RCT,RCB,RCDPT,RCDEB,RCBUCK,RCNEWP,RC,RCCB,RCH,RCHOLD,RCDT"
^XMB(3.9,86,2,459,0)="""RTN"",""RCKATP"",117,0)"
^XMB(3.9,86,2,460,0)=" K RCLIST,RCV,RCINT,RCINTB,RCEXEM,RCAPPLY,RCAMT,RCAPA,RCAPI,RCCOM,X"
^XMB(3.9,86,2,461,0)="""RTN"",""RCKATP"",118,0)"
^XMB(3.9,86,2,462,0)=" Q"
^XMB(3.9,86,2,463,0)="""RTN"",""RCKATP"",119,0)"
^XMB(3.9,86,2,464,0)=" ;"
^XMB(3.9,86,2,465,0)="""RTN"",""RCKATP"",120,0)"
^XMB(3.9,86,2,466,0)=" ;"
^XMB(3.9,86,2,467,0)="""RTN"",""RCKATP"",121,0)"
^XMB(3.9,86,2,468,0)="CHK(DFN) ; Check to see if vet should have charges cancelled"
^XMB(3.9,86,2,469,0)="""RTN"",""RCKATP"",122,0)"
^XMB(3.9,86,2,470,0)=" ;  Input:  DFN  --  Pointer to patient in file 2"
^XMB(3.9,86,2,471,0)="""RTN"",""RCKATP"",123,0)"
^XMB(3.9,86,2,472,0)=" ; Output:    0  --  No, don't cancel charges"
^XMB(3.9,86,2,473,0)="""RTN"",""RCKATP"",124,0)"
^XMB(3.9,86,2,474,0)=" ;            1  --  Yes, cancel charges"
^XMB(3.9,86,2,475,0)="""RTN"",""RCKATP"",125,0)"
^XMB(3.9,86,2,476,0)=" N RCDEB,RCH"
^XMB(3.9,86,2,477,0)="""RTN"",""RCKATP"",126,0)"
^XMB(3.9,86,2,478,0)=" S RCH=0"
^XMB(3.9,86,2,479,0)="""RTN"",""RCKATP"",127,0)"
^XMB(3.9,86,2,480,0)=" ;I $$EMERES^PRCAUTL(DFN)="""" G CHKQ"
^XMB(3.9,86,2,481,0)="""RTN"",""RCKATP"",128,0)"
^XMB(3.9,86,2,482,0)=" I $$EMGRES^DGUTL(DFN)="""" G CHKQ"
^XMB(3.9,86,2,483,0)="""RTN"",""RCKATP"",129,0)"
^XMB(3.9,86,2,484,0)=" S RCDEB=$O(^RCD(340,""B"",DFN_"";DPT("",0))"
^XMB(3.9,86,2,485,0)="""RTN"",""RCKATP"",130,0)"
^XMB(3.9,86,2,486,0)=" ;"
^XMB(3.9,86,2,487,0)="""RTN"",""RCKATP"",131,0)"
^XMB(3.9,86,2,488,0)=" ; - if a Katrina vet is not in file #340, must look for held charges"
^XMB(3.9,86,2,489,0)="""RTN"",""RCKATP"",132,0)"
^XMB(3.9,86,2,490,0)=" I 'RCDEB S RCH=1 G CHKQ"
^XMB(3.9,86,2,491,0)="""RTN"",""RCKATP"",133,0)"
^XMB(3.9,86,2,492,0)=" ;"
^XMB(3.9,86,2,493,0)="""RTN"",""RCKATP"",134,0)"
^XMB(3.9,86,2,494,0)=" ; - make sure charges have not yet been canceled"
^XMB(3.9,86,2,495,0)="""RTN"",""RCKATP"",135,0)"
^XMB(3.9,86,2,496,0)=" I '$P($G(^RCD(340,RCDEB,0)),""^"",9) S RCH=1"
^XMB(3.9,86,2,497,0)="""RTN"",""RCKATP"",136,0)"
^XMB(3.9,86,2,498,0)="CHKQ Q RCH"
^XMB(3.9,86,2,499,0)="""RTN"",""RCKATP"",137,0)"
^XMB(3.9,86,2,500,0)=" ;"
^XMB(3.9,86,2,501,0)="""RTN"",""RCKATP"",138,0)"
^XMB(3.9,86,2,502,0)=" ;"
^XMB(3.9,86,2,503,0)="""RTN"",""RCKATP"",139,0)"
^XMB(3.9,86,2,504,0)="TPP(RCTI,RCH) ; Identify decreases that are credits for third party payments"
^XMB(3.9,86,2,505,0)="""RTN"",""RCKATP"",140,0)"
^XMB(3.9,86,2,506,0)=" ;  Input:  RCTI  --  Pointer to AR Transaction in file 433"
^XMB(3.9,86,2,507,0)="""RTN"",""RCKATP"",141,0)"
^XMB(3.9,86,2,508,0)=" ;           RCH  --  Array of 'counted' transactions passed by reference"
^XMB(3.9,86,2,509,0)="""RTN"",""RCKATP"",142,0)"
^XMB(3.9,86,2,510,0)=" ; Output:  RCRES --  1^2, where"
^XMB(3.9,86,2,511,0)="""RTN"",""RCKATP"",143,0)"
^XMB(3.9,86,2,512,0)=" ;                      1 = total amount of credit adjustments"
^XMB(3.9,86,2,513,0)="""RTN"",""RCKATP"",144,0)"
^XMB(3.9,86,2,514,0)=" ;                      2 = pointer to the affected bill in file #430"
^XMB(3.9,86,2,515,0)="""RTN"",""RCKATP"",145,0)"
^XMB(3.9,86,2,516,0)=" ;"
^XMB(3.9,86,2,517,0)="""RTN"",""RCKATP"",146,0)"
^XMB(3.9,86,2,518,0)=" N RCRES,RCB,RCAMT,RCT,RCTD,RCQ,RCI,RCS"
^XMB(3.9,86,2,519,0)="""RTN"",""RCKATP"",147,0)"
^XMB(3.9,86,2,520,0)=" S RCRES="""",RCAMT=0"
^XMB(3.9,86,2,521,0)="""RTN"",""RCKATP"",148,0)"
^XMB(3.9,86,2,522,0)=" I '$G(RCTI) G TPPQ"
^XMB(3.9,86,2,523,0)="""RTN"",""RCKATP"",149,0)"
^XMB(3.9,86,2,524,0)=" S RCB=+$P($G(^PRCA(433,RCTI,0)),""^"",2) I 'RCB G TPPQ"
^XMB(3.9,86,2,525,0)="""RTN"",""RCKATP"",150,0)"
^XMB(3.9,86,2,526,0)=" S RCAMT=0"
^XMB(3.9,86,2,527,0)="""RTN"",""RCKATP"",151,0)"
^XMB(3.9,86,2,528,0)=" S RCT=RCTI F  S RCT=$O(^PRCA(433,""C"",RCB,RCT)) Q:'RCT  D"
^XMB(3.9,86,2,529,0)="""RTN"",""RCKATP"",152,0)"
^XMB(3.9,86,2,530,0)=" .Q:$D(RCH(RCB,RCT))  ;    transaction has been counted"
^XMB(3.9,86,2,531,0)="""RTN"",""RCKATP"",153,0)"
^XMB(3.9,86,2,532,0)=" .S RCTD=$G(^PRCA(433,RCT,1))"
^XMB(3.9,86,2,533,0)="""RTN"",""RCKATP"",154,0)"
^XMB(3.9,86,2,534,0)=" .Q:$P(RCTD,""^"",2)'=35  ;  not a decrease"
^XMB(3.9,86,2,535,0)="""RTN"",""RCKATP"",155,0)"
^XMB(3.9,86,2,536,0)=" .;"
^XMB(3.9,86,2,537,0)="""RTN"",""RCKATP"",156,0)"
^XMB(3.9,86,2,538,0)=" .; - check for a potential 'Katrina decrease'"
^XMB(3.9,86,2,539,0)="""RTN"",""RCKATP"",157,0)"
^XMB(3.9,86,2,540,0)=" .S RCQ=0,RCS=""HURRICANE KATRINA VETERAN"" D  Q:RCQ"
^XMB(3.9,86,2,541,0)="""RTN"",""RCKATP"",158,0)"
^XMB(3.9,86,2,542,0)=" ..S RCI=0 F  S RCI=$O(^PRCA(433,RCT,7,RCI)) Q:'RCI  D  Q:RCQ"
^XMB(3.9,86,2,543,0)="""RTN"",""RCKATP"",159,0)"
^XMB(3.9,86,2,544,0)=" ...I $G(^PRCA(433,RCT,7,RCI,0))[RCS S RCQ=1"
^XMB(3.9,86,2,545,0)="""RTN"",""RCKATP"",160,0)"
^XMB(3.9,86,2,546,0)=" .;"
^XMB(3.9,86,2,547,0)="""RTN"",""RCKATP"",161,0)"
^XMB(3.9,86,2,548,0)=" .; - increment the credit amount"
^XMB(3.9,86,2,549,0)="""RTN"",""RCKATP"",162,0)"
^XMB(3.9,86,2,550,0)=" .S RCAMT=RCAMT+$P(RCTD,""^"",5),RCH(RCB,RCT)="""""
^XMB(3.9,86,2,551,0)="""RTN"",""RCKATP"",163,0)"
^XMB(3.9,86,2,552,0)=" ;"
^XMB(3.9,86,2,553,0)="""RTN"",""RCKATP"",164,0)"
^XMB(3.9,86,2,554,0)=" S RCRES=RCAMT_""^""_RCB"
^XMB(3.9,86,2,555,0)="""RTN"",""RCKATP"",165,0)"
^XMB(3.9,86,2,556,0)="TPPQ Q RCRES"
^XMB(3.9,86,2,557,0)="""RTN"",""RCKATP"",166,0)"
^XMB(3.9,86,2,558,0)=" ;"
^XMB(3.9,86,2,559,0)="""RTN"",""RCKATP"",167,0)"
^XMB(3.9,86,2,560,0)=" ;"
^XMB(3.9,86,2,561,0)="""RTN"",""RCKATP"",168,0)"
^XMB(3.9,86,2,562,0)="DEC(RCBILL,RCAMT) ; Decrease a bill"
^XMB(3.9,86,2,563,0)="""RTN"",""RCKATP"",169,0)"
^XMB(3.9,86,2,564,0)=" ;  Input:  RCBILL  --  Bill Number of a bill in file 430"
^XMB(3.9,86,2,565,0)="""RTN"",""RCKATP"",170,0)"
^XMB(3.9,86,2,566,0)=" ;           RCAMT  --  Amount to decrease bill"
^XMB(3.9,86,2,567,0)="""RTN"",""RCKATP"",171,0)"
^XMB(3.9,86,2,568,0)=" ; Output:  RCBUCK  --  Amount not decreased, to go to bucket"
^XMB(3.9,86,2,569,0)="""RTN"",""RCKATP"",172,0)"
^XMB(3.9,86,2,570,0)=" ;"
^XMB(3.9,86,2,571,0)="""RTN"",""RCKATP"",173,0)"
^XMB(3.9,86,2,572,0)=" N RCBUCK,RCMSG,RCT"
^XMB(3.9,86,2,573,0)="""RTN"",""RCKATP"",174,0)"
^XMB(3.9,86,2,574,0)=" S RCBUCK=RCAMT"
^XMB(3.9,86,2,575,0)="""RTN"",""RCKATP"",175,0)"
^XMB(3.9,86,2,576,0)=" S RCB=$O(^PRCA(430,""B"",RCBILL,0))"
^XMB(3.9,86,2,577,0)="""RTN"",""RCKATP"",176,0)"
^XMB(3.9,86,2,578,0)=" I RCB D"
^XMB(3.9,86,2,579,0)="""RTN"",""RCKATP"",177,0)"
^XMB(3.9,86,2,580,0)=" .S RCMSG=""CANCEL COPAYMENTS FOR HURRICANE KATRINA VETERAN"""
^XMB(3.9,86,2,581,0)="""RTN"",""RCKATP"",178,0)"
^XMB(3.9,86,2,582,0)=" .D DEC^PRCASER1(RCB,.RCBUCK,DUZ,RCMSG,"""",.RCT)"
^XMB(3.9,86,2,583,0)="""RTN"",""RCKATP"",179,0)"
^XMB(3.9,86,2,584,0)="DECQ Q RCBUCK"
^XMB(3.9,86,2,585,0)="""RTN"",""RCKATP"",180,0)"
^XMB(3.9,86,2,586,0)=" ;"
^XMB(3.9,86,2,587,0)="""RTN"",""RCKATP"",181,0)"
^XMB(3.9,86,2,588,0)=" ;"
^XMB(3.9,86,2,589,0)="""RTN"",""RCKATP"",182,0)"
^XMB(3.9,86,2,590,0)="FLAG(DFN) ; Flag veteran as having had copay charges cancelled"
^XMB(3.9,86,2,591,0)="""RTN"",""RCKATP"",183,0)"
^XMB(3.9,86,2,592,0)=" ;  Input:  DFN  --  Pointer to patient in file 2"
^XMB(3.9,86,2,593,0)="""RTN"",""RCKATP"",184,0)"
^XMB(3.9,86,2,594,0)=" ;"
^XMB(3.9,86,2,595,0)="""RTN"",""RCKATP"",185,0)"
^XMB(3.9,86,2,596,0)=" N RCDEB"
^XMB(3.9,86,2,597,0)="""RTN"",""RCKATP"",186,0)"
^XMB(3.9,86,2,598,0)=" S RCDEB=$O(^RCD(340,""B"",DFN_"";DPT("",0))"
^XMB(3.9,86,2,599,0)="""RTN"",""RCKATP"",187,0)"
^XMB(3.9,86,2,600,0)=" I 'RCDEB D"
^XMB(3.9,86,2,601,0)="""RTN"",""RCKATP"",188,0)"
^XMB(3.9,86,2,602,0)=" .S DIC=""^RCD(340,"",DIC(0)=""QL"",X=DFN_"";DPT("",DLAYGO=340"
^XMB(3.9,86,2,603,0)="""RTN"",""RCKATP"",189,0)"
^XMB(3.9,86,2,604,0)=" .K DD,DO D FILE^DICN K DIC,DLAYGO,DO,DD S RCDEB=+Y"
^XMB(3.9,86,2,605,0)="""RTN"",""RCKATP"",190,0)"
^XMB(3.9,86,2,606,0)=" I RCDEB>0 S $P(^RCD(340,RCDEB,0),""^"",9)=1"
^XMB(3.9,86,2,607,0)="""RTN"",""RCKATP"",191,0)"
^XMB(3.9,86,2,608,0)=" Q"
^XMB(3.9,86,2,609,0)="""RTN"",""RCKATP"",192,0)"
^XMB(3.9,86,2,610,0)=" ;"
^XMB(3.9,86,2,611,0)="""RTN"",""RCKATP"",193,0)"
^XMB(3.9,86,2,612,0)=" ;"
^XMB(3.9,86,2,613,0)="""RTN"",""RCKATP"",194,0)"
^XMB(3.9,86,2,614,0)="ADJ(DFN,RCAMT) ; Make final credit adjustments to the vet's account"
^XMB(3.9,86,2,615,0)="""RTN"",""RCKATP"",195,0)"
^XMB(3.9,86,2,616,0)=" ;  Input:  DFN  --  Pointer to patient in file 2"
^XMB(3.9,86,2,617,0)="""RTN"",""RCKATP"",196,0)"
^XMB(3.9,86,2,618,0)=" ;        RCAMT  --  Amount to decrease from account"
^XMB(3.9,86,2,619,0)="""RTN"",""RCKATP"",197,0)"
^XMB(3.9,86,2,620,0)=" ;"
^XMB(3.9,86,2,621,0)="""RTN"",""RCKATP"",198,0)"
^XMB(3.9,86,2,622,0)=" N RCDEBN,RCMSG"
^XMB(3.9,86,2,623,0)="""RTN"",""RCKATP"",199,0)"
^XMB(3.9,86,2,624,0)=" S RCDEBN=DFN_"";DPT("""
^XMB(3.9,86,2,625,0)="""RTN"",""RCKATP"",200,0)"
^XMB(3.9,86,2,626,0)=" S RCMSG=""CANCEL COPAYMENTS FOR HURRICANE KATRINA VETERAN"""
^XMB(3.9,86,2,627,0)="""RTN"",""RCKATP"",201,0)"
^XMB(3.9,86,2,628,0)=" D EN^RCKATPD(RCDEBN,RCAMT,RCMSG)"
^XMB(3.9,86,2,629,0)="""RTN"",""RCKATP"",202,0)"
^XMB(3.9,86,2,630,0)=" Q"
^XMB(3.9,86,2,631,0)="""RTN"",""RCKATP"",203,0)"
^XMB(3.9,86,2,632,0)=" ;"
^XMB(3.9,86,2,633,0)="""RTN"",""RCKATP"",204,0)"
^XMB(3.9,86,2,634,0)=" ;"
^XMB(3.9,86,2,635,0)="""RTN"",""RCKATP"",205,0)"
^XMB(3.9,86,2,636,0)="BULL ; Send job completion bulletin"
^XMB(3.9,86,2,637,0)="""RTN"",""RCKATP"",206,0)"
^XMB(3.9,86,2,638,0)=" N XMSUB,XMTEXT,XMY,XMDUZ,RCT,RCN"
^XMB(3.9,86,2,639,0)="""RTN"",""RCKATP"",207,0)"
^XMB(3.9,86,2,640,0)=" S RCT(1)=""The patch PRCA*4.5*241 post initialization has completed."""
^XMB(3.9,86,2,641,0)="""RTN"",""RCKATP"",208,0)"
^XMB(3.9,86,2,642,0)=" S RCT(2)="" """
^XMB(3.9,86,2,643,0)="""RTN"",""RCKATP"",209,0)"
^XMB(3.9,86,2,644,0)=" S RCT(3)=""Number of Veterans with Interest Exempted:  ""_+RCTOTAL"
^XMB(3.9,86,2,645,0)="""RTN"",""RCKATP"",210,0)"
^XMB(3.9,86,2,646,0)=" S RCT(4)=""        Total Amount of Interest Exempted: $""_$J($P(RCTOTAL,""^"",2),0,2)"
^XMB(3.9,86,2,647,0)="""RTN"",""RCKATP"",211,0)"
^XMB(3.9,86,2,648,0)=" S RCT(5)="" """
^XMB(3.9,86,2,649,0)="""RTN"",""RCKATP"",212,0)"
^XMB(3.9,86,2,650,0)=" I RCRES="""" S RCT(6)=""*** Note: Copay Charges were not cancelled - contact EVS ***"""
^XMB(3.9,86,2,651,0)="""RTN"",""RCKATP"",213,0)"
^XMB(3.9,86,2,652,0)=" I RCRES'="""" D"
^XMB(3.9,86,2,653,0)="""RTN"",""RCKATP"",214,0)"
^XMB(3.9,86,2,654,0)=" .S RCT(6)=""Number of Veterans with Charges Cancelled:  ""_+RCRES"
^XMB(3.9,86,2,655,0)="""RTN"",""RCKATP"",215,0)"
^XMB(3.9,86,2,656,0)=" .S RCT(7)=""        Total Amount of Charges Cancelled: $""_$J($P(RCRES,""^"",2),0,2)"
^XMB(3.9,86,2,657,0)="""RTN"",""RCKATP"",216,0)"
^XMB(3.9,86,2,658,0)=" .S RCT(8)=""   Total Amount of Held Charges Cancelled: $""_$J($P(RCRES,""^"",3),0,2)"
^XMB(3.9,86,2,659,0)="""RTN"",""RCKATP"",217,0)"
^XMB(3.9,86,2,660,0)=" ;"
^XMB(3.9,86,2,661,0)="""RTN"",""RCKATP"",218,0)"
^XMB(3.9,86,2,662,0)=" S XMSUB=""Job Completion - PRCA*4.5*241 Post Initialization"""
^XMB(3.9,86,2,663,0)="""RTN"",""RCKATP"",219,0)"
^XMB(3.9,86,2,664,0)=" S XMTEXT=""RCT("""
^XMB(3.9,86,2,665,0)="""RTN"",""RCKATP"",220,0)"
^XMB(3.9,86,2,666,0)=" S XMY(""G.PRCA ADJUSTMENT TRANS"")="""",XMY(DUZ)="""""
^XMB(3.9,86,2,667,0)="""RTN"",""RCKATP"",221,0)"
^XMB(3.9,86,2,668,0)=" S XMDUZ=""ACCOUNTS RECEIVABLE"""
^XMB(3.9,86,2,669,0)="""RTN"",""RCKATP"",222,0)"
^XMB(3.9,86,2,670,0)=" D ^XMD"
^XMB(3.9,86,2,671,0)="""RTN"",""RCKATP"",223,0)"
^XMB(3.9,86,2,672,0)=" Q"
^XMB(3.9,86,2,673,0)="""RTN"",""RCKATRPT"")"
^XMB(3.9,86,2,674,0)="0^2^B33045980^B32447812"
^XMB(3.9,86,2,675,0)="""RTN"",""RCKATRPT"",1,0)"
^XMB(3.9,86,2,676,0)="RCKATRPT ;ALB/MAF-KATRINA FINANCIAL STATEMENT REPORT ;12/1/05  4:14 PM"
^XMB(3.9,86,2,677,0)="""RTN"",""RCKATRPT"",2,0)"
^XMB(3.9,86,2,678,0)="V ;;4.5;Accounts Receivable;**242,246**;Mar 20, 1995"
^XMB(3.9,86,2,679,0)="""RTN"",""RCKATRPT"",3,0)"
^XMB(3.9,86,2,680,0)=" ;"
^XMB(3.9,86,2,681,0)="""RTN"",""RCKATRPT"",4,0)"
^XMB(3.9,86,2,682,0)="EN1 ;"
^XMB(3.9,86,2,683,0)="""RTN"",""RCKATRPT"",5,0)"
^XMB(3.9,86,2,684,0)=" N RCTYPE,X,%,DUOUT,DTOUT,DIR,RCDATE,Y"
^XMB(3.9,86,2,685,0)="""RTN"",""RCKATRPT"",6,0)"
^XMB(3.9,86,2,686,0)=" S DIR(""A"")=""(S)UMMARY OR (D)ETAIL?: "",DIR(0)=""SBA^S:SUMMARY TOTALS ONLY;D:DETAILS AND SUMMARY"""
^XMB(3.9,86,2,687,0)="""RTN"",""RCKATRPT"",7,0)"
^XMB(3.9,86,2,688,0)=" S DIR(""B"")=""S"" D ^DIR K DIR"
^XMB(3.9,86,2,689,0)="""RTN"",""RCKATRPT"",8,0)"
^XMB(3.9,86,2,690,0)=" I $D(DTOUT)!$D(DUOUT)!(Y="""") G RPTQ"
^XMB(3.9,86,2,691,0)="""RTN"",""RCKATRPT"",9,0)"
^XMB(3.9,86,2,692,0)=" S RCTYPE=Y"
^XMB(3.9,86,2,693,0)="""RTN"",""RCKATRPT"",10,0)"
^XMB(3.9,86,2,694,0)=" D NOW^%DTC"
^XMB(3.9,86,2,695,0)="""RTN"",""RCKATRPT"",11,0)"
^XMB(3.9,86,2,696,0)=" S RCDATE=DT"
^XMB(3.9,86,2,697,0)="""RTN"",""RCKATRPT"",12,0)"
^XMB(3.9,86,2,698,0)=" ; Ask device"
^XMB(3.9,86,2,699,0)="""RTN"",""RCKATRPT"",13,0)"
^XMB(3.9,86,2,700,0)=" N ZTRTN,ZTSK,ZTSAVE,ZTDESC,%ZIS,POP"
^XMB(3.9,86,2,701,0)="""RTN"",""RCKATRPT"",14,0)"
^XMB(3.9,86,2,702,0)=" S %ZIS=""QM"" D ^%ZIS G:POP RPTQ"
^XMB(3.9,86,2,703,0)="""RTN"",""RCKATRPT"",15,0)"
^XMB(3.9,86,2,704,0)=" I $D(IO(""Q"")) D  G RPTQ"
^XMB(3.9,86,2,705,0)="""RTN"",""RCKATRPT"",16,0)"
^XMB(3.9,86,2,706,0)=" . S ZTRTN=""EN^RCKATRPT"",ZTSAVE(""RCTYPE"")="""",ZTSAVE(""RCDATE"")="""",ZTDESC=""KATRINA REPORT"""
^XMB(3.9,86,2,707,0)="""RTN"",""RCKATRPT"",17,0)"
^XMB(3.9,86,2,708,0)=" . D ^%ZTLOAD"
^XMB(3.9,86,2,709,0)="""RTN"",""RCKATRPT"",18,0)"
^XMB(3.9,86,2,710,0)=" . W !!,$S($D(ZTSK):""Your task number ""_ZTSK_"" has been queued."",1:""Unavailable"")"
^XMB(3.9,86,2,711,0)="""RTN"",""RCKATRPT"",19,0)"
^XMB(3.9,86,2,712,0)=" . K ZTSK,IO(""Q"") D HOME^%ZIS"
^XMB(3.9,86,2,713,0)="""RTN"",""RCKATRPT"",20,0)"
^XMB(3.9,86,2,714,0)=" U IO"
^XMB(3.9,86,2,715,0)="""RTN"",""RCKATRPT"",21,0)"
^XMB(3.9,86,2,716,0)=" D EN^RCKATRPT"
^XMB(3.9,86,2,717,0)="""RTN"",""RCKATRPT"",22,0)"
^XMB(3.9,86,2,718,0)="RPTQ Q"
^XMB(3.9,86,2,719,0)="""RTN"",""RCKATRPT"",23,0)"
^XMB(3.9,86,2,720,0)="EN ;"
^XMB(3.9,86,2,721,0)="""RTN"",""RCKATRPT"",24,0)"
^XMB(3.9,86,2,722,0)=" N BBAL,DEB,RCDFN,X,SITE,Y,%,%H,%I,RCSITE,DFN,BN,RCDCL,RCDL,RCPAG,STAT,TOTAMT,TOTVET,BAL,DATA,INT,RCTOT,AC,OP,PRE,ADM,PB,RCFLAG,X1,X2"
^XMB(3.9,86,2,723,0)="""RTN"",""RCKATRPT"",25,0)"
^XMB(3.9,86,2,724,0)=" K ^XTMP(""RCKATRPT"")"
^XMB(3.9,86,2,725,0)="""RTN"",""RCKATRPT"",26,0)"
^XMB(3.9,86,2,726,0)=" D NOW^%DTC S X1=DT,X2=30 D C^%DTC"
^XMB(3.9,86,2,727,0)="""RTN"",""RCKATRPT"",27,0)"
^XMB(3.9,86,2,728,0)=" S ^XTMP(""RCKATRPT"",0)=DT_""^""_X_""^Katrina Detailed Report"""
^XMB(3.9,86,2,729,0)="""RTN"",""RCKATRPT"",28,0)"
^XMB(3.9,86,2,730,0)=" S (DEB,TOTAMT,TOTVET)=0"
^XMB(3.9,86,2,731,0)="""RTN"",""RCKATRPT"",29,0)"
^XMB(3.9,86,2,732,0)=" K ^TMP(""RCDEBTOR"",$J),^TMP(""RCTOT"",$J),^TMP(""DEBTOR"",$J),^TMP(""RCSITE"",$J),^TMP(""RCDFN"",$J),^TMP(""RCBBL"",$J)"
^XMB(3.9,86,2,733,0)="""RTN"",""RCKATRPT"",30,0)"
^XMB(3.9,86,2,734,0)=" F  S DEB=$O(^RCD(340,""AB"",""DPT("",DEB)) Q:DEB=""""  D"
^XMB(3.9,86,2,735,0)="""RTN"",""RCKATRPT"",31,0)"
^XMB(3.9,86,2,736,0)=" .   I $L(+$$SSN^RCFN01(DEB))<5 Q"
^XMB(3.9,86,2,737,0)="""RTN"",""RCKATRPT"",32,0)"
^XMB(3.9,86,2,738,0)=" .   ;Check for Emergency Response Indicator (ERI) Flag."
^XMB(3.9,86,2,739,0)="""RTN"",""RCKATRPT"",33,0)"
^XMB(3.9,86,2,740,0)=" .   ;N RCDFN S RCDFN=$P($G(^RCD(340,DEB,0)),""^"",1) I $$EMERES^PRCAUTL(+RCDFN)']"""" Q"
^XMB(3.9,86,2,741,0)="""RTN"",""RCKATRPT"",34,0)"
^XMB(3.9,86,2,742,0)=" .   N RCDFN S RCDFN=$P($G(^RCD(340,DEB,0)),""^"",1) I $$EMGRES^DGUTL(+RCDFN)']"""" Q"
^XMB(3.9,86,2,743,0)="""RTN"",""RCKATRPT"",35,0)"
^XMB(3.9,86,2,744,0)=" .   S BBAL=0 D BBAL ;get bill bal"
^XMB(3.9,86,2,745,0)="""RTN"",""RCKATRPT"",36,0)"
^XMB(3.9,86,2,746,0)=" D PRINT"
^XMB(3.9,86,2,747,0)="""RTN"",""RCKATRPT"",37,0)"
^XMB(3.9,86,2,748,0)=" K ^TMP(""RCDEBTOR"",$J),^TMP(""RCTOT"",$J),^TMP(""DEBTOR"",$J),^TMP(""RCSITE"",$J),^TMP(""RCDFN"",$J),^TMP(""RCBBL"",$J)"
^XMB(3.9,86,2,749,0)="""RTN"",""RCKATRPT"",38,0)"
^XMB(3.9,86,2,750,0)=" Q"
^XMB(3.9,86,2,751,0)="""RTN"",""RCKATRPT"",39,0)"
^XMB(3.9,86,2,752,0)="BBAL ;get bills balances return array"
^XMB(3.9,86,2,753,0)="""RTN"",""RCKATRPT"",40,0)"
^XMB(3.9,86,2,754,0)=" G:'DEB BBALQ"
^XMB(3.9,86,2,755,0)="""RTN"",""RCKATRPT"",41,0)"
^XMB(3.9,86,2,756,0)=" S AC=+$O(^PRCA(430.3,""AC"",102,0)),OP=+$O(^PRCA(430.3,""AC"",112,0))"
^XMB(3.9,86,2,757,0)="""RTN"",""RCKATRPT"",42,0)"
^XMB(3.9,86,2,758,0)=" F STAT=AC,OP F BN=0:0 S BN=$O(^PRCA(430,""AS"",DEB,STAT,BN)) Q:'BN  D"
^XMB(3.9,86,2,759,0)="""RTN"",""RCKATRPT"",43,0)"
^XMB(3.9,86,2,760,0)=" .I '$D(^TMP(""RCBBL"",$J,DEB)) S (BBAL,PB,INT,ADM)=0 S ^TMP(""RCBBL"",$J,DEB)="""""
^XMB(3.9,86,2,761,0)="""RTN"",""RCKATRPT"",44,0)"
^XMB(3.9,86,2,762,0)=" .S BAL=$G(^PRCA(430,BN,7))"
^XMB(3.9,86,2,763,0)="""RTN"",""RCKATRPT"",45,0)"
^XMB(3.9,86,2,764,0)=" .S SITE=$S($P($G(^PRCA(430,BN,0)),""^"",12):$P($G(^PRCA(430,BN,0)),""^"",12),1:""SITE UNKNOWN"")"
^XMB(3.9,86,2,765,0)="""RTN"",""RCKATRPT"",46,0)"
^XMB(3.9,86,2,766,0)=" .I '$D(^TMP(""DEBTOR"",$J,SITE,DEB)) S TOTVET=TOTVET+1"
^XMB(3.9,86,2,767,0)="""RTN"",""RCKATRPT"",47,0)"
^XMB(3.9,86,2,768,0)=" .S PB=PB+$P(BAL,""^"",1),INT=INT+$P(BAL,""^"",2),ADM=ADM+$P(BAL,""^"",3)"
^XMB(3.9,86,2,769,0)="""RTN"",""RCKATRPT"",48,0)"
^XMB(3.9,86,2,770,0)=" .S BBAL=$P(BAL,""^"",1)+$P(BAL,""^"",2)+$P(BAL,""^"",3)"
^XMB(3.9,86,2,771,0)="""RTN"",""RCKATRPT"",49,0)"
^XMB(3.9,86,2,772,0)=" .S ^TMP(""DEBTOR"",$J,SITE,DEB,+RCDFN,BN)=$P(BAL,""^"",1)_""^""_$P(BAL,""^"",2)_""^""_$P(BAL,""^"",3)_""^""_BBAL"
^XMB(3.9,86,2,773,0)="""RTN"",""RCKATRPT"",50,0)"
^XMB(3.9,86,2,774,0)=" .S ^TMP(""RCDEBTOR"",$J,SITE,DEB,+RCDFN)=PB_""^""_INT_""^""_ADM_""^""_(PB+INT+ADM)"
^XMB(3.9,86,2,775,0)="""RTN"",""RCKATRPT"",51,0)"
^XMB(3.9,86,2,776,0)=" .S RCTOT=$G(^TMP(""RCTOT"",$J,SITE)),$P(^TMP(""RCTOT"",$J,SITE),""^"",1)=$P(RCTOT,""^"",1)+$P(BAL,""^"",1),$P(^TMP(""RCTOT"",$J,SITE),""^"",2)=$P(RCTOT,""^"",2)+$P(BAL,""^"",2)"
^XMB(3.9,86,2,777,0)="""RTN"",""RCKATRPT"",52,0)"
^XMB(3.9,86,2,778,0)=" .S $P(^TMP(""RCTOT"",$J,SITE),""^"",3)=$P(RCTOT,""^"",3)+$P(BAL,""^"",3),$P(^TMP(""RCTOT"",$J,SITE),""^"",4)=$P(RCTOT,""^"",4)+BBAL"
^XMB(3.9,86,2,779,0)="""RTN"",""RCKATRPT"",53,0)"
^XMB(3.9,86,2,780,0)=" .Q"
^XMB(3.9,86,2,781,0)="""RTN"",""RCKATRPT"",54,0)"
^XMB(3.9,86,2,782,0)="BBALQ Q"
^XMB(3.9,86,2,783,0)="""RTN"",""RCKATRPT"",55,0)"
^XMB(3.9,86,2,784,0)="PRINT ;PRINT THE REPORT"
^XMB(3.9,86,2,785,0)="""RTN"",""RCKATRPT"",56,0)"
^XMB(3.9,86,2,786,0)=" S $P(RCDCL,""="",81)="""",(SITE,RCPAG)=0"
^XMB(3.9,86,2,787,0)="""RTN"",""RCKATRPT"",57,0)"
^XMB(3.9,86,2,788,0)=" D HEAD"
^XMB(3.9,86,2,789,0)="""RTN"",""RCKATRPT"",58,0)"
^XMB(3.9,86,2,790,0)=" I '$D(^TMP(""RCDEBTOR"",$J)) W !!,""No data meets this criteria"" Q"
^XMB(3.9,86,2,791,0)="""RTN"",""RCKATRPT"",59,0)"
^XMB(3.9,86,2,792,0)=" I RCTYPE=""D"" D"
^XMB(3.9,86,2,793,0)="""RTN"",""RCKATRPT"",60,0)"
^XMB(3.9,86,2,794,0)=" .S RCFLAG=0 F  S SITE=$O(^TMP(""DEBTOR"",$J,SITE)) Q:SITE=""""!(RCFLAG)  S DEB=0 F  S DEB=$O(^TMP(""DEBTOR"",$J,SITE,DEB)) Q:DEB=""""!(RCFLAG)  D"
^XMB(3.9,86,2,795,0)="""RTN"",""RCKATRPT"",61,0)"
^XMB(3.9,86,2,796,0)=" ..S DFN=0 F  S DFN=$O(^TMP(""DEBTOR"",$J,SITE,DEB,DFN)) Q:DFN=""""!(RCFLAG)  S BN=0 F  S BN=$O(^TMP(""DEBTOR"",$J,SITE,DEB,DFN,BN)) Q:BN=""""!(RCFLAG)  D:$Y+5>IOSL RET Q:RCFLAG  D PRDATA"
^XMB(3.9,86,2,797,0)="""RTN"",""RCKATRPT"",62,0)"
^XMB(3.9,86,2,798,0)=" ..Q"
^XMB(3.9,86,2,799,0)="""RTN"",""RCKATRPT"",63,0)"
^XMB(3.9,86,2,800,0)=" .Q"
^XMB(3.9,86,2,801,0)="""RTN"",""RCKATRPT"",64,0)"
^XMB(3.9,86,2,802,0)=" I RCTYPE=""D"" Q:RCFLAG  S RCTYPE=""S"" S RCPAG=0 D RET Q:RCFLAG"
^XMB(3.9,86,2,803,0)="""RTN"",""RCKATRPT"",65,0)"
^XMB(3.9,86,2,804,0)=" I RCTYPE=""S"" D"
^XMB(3.9,86,2,805,0)="""RTN"",""RCKATRPT"",66,0)"
^XMB(3.9,86,2,806,0)=" .F  S SITE=$O(^TMP(""RCTOT"",$J,SITE)) Q:SITE=""""  D PRDATA"
^XMB(3.9,86,2,807,0)="""RTN"",""RCKATRPT"",67,0)"
^XMB(3.9,86,2,808,0)=" .Q"
^XMB(3.9,86,2,809,0)="""RTN"",""RCKATRPT"",68,0)"
^XMB(3.9,86,2,810,0)=" Q"
^XMB(3.9,86,2,811,0)="""RTN"",""RCKATRPT"",69,0)"
^XMB(3.9,86,2,812,0)="RET ;"
^XMB(3.9,86,2,813,0)="""RTN"",""RCKATRPT"",70,0)"
^XMB(3.9,86,2,814,0)=" F X=$Y:1:(IOSL-3) W !"
^XMB(3.9,86,2,815,0)="""RTN"",""RCKATRPT"",71,0)"
^XMB(3.9,86,2,816,0)=" I IOST'?1""C-"".E D  Q"
^XMB(3.9,86,2,817,0)="""RTN"",""RCKATRPT"",72,0)"
^XMB(3.9,86,2,818,0)=" .I RCTYPE=""D"" K ^TMP(""RCSITE"",$J,SITE),^TMP(""RCDFN"",$J,DFN)"
^XMB(3.9,86,2,819,0)="""RTN"",""RCKATRPT"",73,0)"
^XMB(3.9,86,2,820,0)=" .D HEAD"
^XMB(3.9,86,2,821,0)="""RTN"",""RCKATRPT"",74,0)"
^XMB(3.9,86,2,822,0)=" N DIR,DUOUT,DTOUT"
^XMB(3.9,86,2,823,0)="""RTN"",""RCKATRPT"",75,0)"
^XMB(3.9,86,2,824,0)=" S DIR(0)=""EA"",DIR(""A"")=""Enter <RET> to continue or ^ to quit "" D ^DIR"
^XMB(3.9,86,2,825,0)="""RTN"",""RCKATRPT"",76,0)"
^XMB(3.9,86,2,826,0)=" I $D(DTOUT)!$D(DUOUT) S RCFLAG=1 Q:RCFLAG"
^XMB(3.9,86,2,827,0)="""RTN"",""RCKATRPT"",77,0)"
^XMB(3.9,86,2,828,0)=" I RCTYPE=""D"" K ^TMP(""RCSITE"",$J,SITE),^TMP(""RCDFN"",$J,DFN)"
^XMB(3.9,86,2,829,0)="""RTN"",""RCKATRPT"",78,0)"
^XMB(3.9,86,2,830,0)="HEAD ;HEADING DETAILED"
^XMB(3.9,86,2,831,0)="""RTN"",""RCKATRPT"",79,0)"
^XMB(3.9,86,2,832,0)=" N Y S RCPAG=RCPAG+1"
^XMB(3.9,86,2,833,0)="""RTN"",""RCKATRPT"",80,0)"
^XMB(3.9,86,2,834,0)=" W @IOF,""Financial""_$S(RCTYPE=""S"":"" Summary "",1:"" Detailed "")_""Statement for Hurricane Katrina "",?53 S Y=RCDATE D DD^%DT W Y,""   "",$J(""PAGE: ""_RCPAG,12),!"
^XMB(3.9,86,2,835,0)="""RTN"",""RCKATRPT"",81,0)"
^XMB(3.9,86,2,836,0)=" I RCTYPE=""S"" D"
^XMB(3.9,86,2,837,0)="""RTN"",""RCKATRPT"",82,0)"
^XMB(3.9,86,2,838,0)=" .W !,""SITE"",?25,""#AFFECTED VETS"",?48,""TOTAL AMT."",?65,""AVG. AMOUNT/VET"""
^XMB(3.9,86,2,839,0)="""RTN"",""RCKATRPT"",83,0)"
^XMB(3.9,86,2,840,0)=" I RCTYPE=""D"" D"
^XMB(3.9,86,2,841,0)="""RTN"",""RCKATRPT"",84,0)"
^XMB(3.9,86,2,842,0)=" .W !,""BILL #"",?17,""PRINC. BAL"",?41,""INT."",?56,""ADM."",?75,""TOTAL"""
^XMB(3.9,86,2,843,0)="""RTN"",""RCKATRPT"",85,0)"
^XMB(3.9,86,2,844,0)=" W !,RCDCL"
^XMB(3.9,86,2,845,0)="""RTN"",""RCKATRPT"",86,0)"
^XMB(3.9,86,2,846,0)=" Q"
^XMB(3.9,86,2,847,0)="""RTN"",""RCKATRPT"",87,0)"
^XMB(3.9,86,2,848,0)="PRDATA ;WRITE THE DATA"
^XMB(3.9,86,2,849,0)="""RTN"",""RCKATRPT"",88,0)"
^XMB(3.9,86,2,850,0)=" ;W !"
^XMB(3.9,86,2,851,0)="""RTN"",""RCKATRPT"",89,0)"
^XMB(3.9,86,2,852,0)=" I RCTYPE=""S"" D"
^XMB(3.9,86,2,853,0)="""RTN"",""RCKATRPT"",90,0)"
^XMB(3.9,86,2,854,0)=" .S TOTAMT=$P($G(^TMP(""RCTOT"",$J,SITE)),""^"",4)"
^XMB(3.9,86,2,855,0)="""RTN"",""RCKATRPT"",91,0)"
^XMB(3.9,86,2,856,0)=" .W !,$P($$SITE^VASITE(),""^"",2),?20,$J(TOTVET,18),?40,$J(""$""_TOTAMT,18),?60,$J(""$""_$P(TOTAMT/TOTVET,""."",1)_"".""_$E($P(TOTAMT/TOTVET,""."",2),1,2),18)"
^XMB(3.9,86,2,857,0)="""RTN"",""RCKATRPT"",92,0)"
^XMB(3.9,86,2,858,0)=" .S ^XTMP(""RCKATRPT"",SITE,""TOTGRAND"")=TOTVET_""^""_TOTAMT_""^""_$P(TOTAMT/TOTVET,""."",1)_"".""_$E($P(TOTAMT/TOTVET,""."",2),1,2)"
^XMB(3.9,86,2,859,0)="""RTN"",""RCKATRPT"",93,0)"
^XMB(3.9,86,2,860,0)=" I RCTYPE=""D"" D"
^XMB(3.9,86,2,861,0)="""RTN"",""RCKATRPT"",94,0)"
^XMB(3.9,86,2,862,0)=" .N DATA"
^XMB(3.9,86,2,863,0)="""RTN"",""RCKATRPT"",95,0)"
^XMB(3.9,86,2,864,0)=" .S DATA=$G(^TMP(""DEBTOR"",$J,SITE,DEB,DFN,BN))"
^XMB(3.9,86,2,865,0)="""RTN"",""RCKATRPT"",96,0)"
^XMB(3.9,86,2,866,0)=" . I '$D(^TMP(""RCSITE"",$J,SITE)) W !,?35,$P($$SITE^VASITE(),""^"",2),! S ^TMP(""RCSITE"",$J,SITE)="""""
^XMB(3.9,86,2,867,0)="""RTN"",""RCKATRPT"",97,0)"
^XMB(3.9,86,2,868,0)=" . I '$D(^TMP(""RCDFN"",$J,DFN)) W !,DEB_"":""_$P($G(^DPT(DFN,0)),""^"",1) S ^TMP(""RCDFN"",$J,DFN)="""""
^XMB(3.9,86,2,869,0)="""RTN"",""RCKATRPT"",98,0)"
^XMB(3.9,86,2,870,0)=" . W !,$P($G(^PRCA(430,BN,0)),""^"",1),?12,$S($P($G(DATA),""^"",1):$J(""$""_$P(DATA,""^"",1),15),1:$J(""$0"",15)),?30,$S($P($G(DATA),""^"",2):$J(""$""_$P(DATA,""^"",2),15),1:$J(""$0"",15))"
^XMB(3.9,86,2,871,0)="""RTN"",""RCKATRPT"",99,0)"
^XMB(3.9,86,2,872,0)=" .W ?45,$S($P($G(DATA),""^"",3):$J(""$""_$P(DATA,""^"",3),15),1:$J(""$0"",15)),?65,$S($P($G(DATA),""^"",4):$J(""$""_$P(DATA,""^"",4),15),1:$J(""$0"",15))"
^XMB(3.9,86,2,873,0)="""RTN"",""RCKATRPT"",100,0)"
^XMB(3.9,86,2,874,0)=" .S ^TMP(""RCSITE"",$J,SITE)="""",^TMP(""RCDFN"",$J,DFN)="""""
^XMB(3.9,86,2,875,0)="""RTN"",""RCKATRPT"",101,0)"
^XMB(3.9,86,2,876,0)=" .I '$O(^TMP(""DEBTOR"",$J,SITE,DEB,DFN,BN)) D"
^XMB(3.9,86,2,877,0)="""RTN"",""RCKATRPT"",102,0)"
^XMB(3.9,86,2,878,0)=" ..I $Y+5>IOSL D RET Q:RCFLAG  W !,?35,$P($$SITE^VASITE(),""^"",2),!!,DEB_"":""_$P($G(^DPT(DFN,0)),""^"",1),! S ^TMP(""RCSITE"",$J,SITE)="""",^TMP(""RCDFN"",$J,DFN)="""""
^XMB(3.9,86,2,879,0)="""RTN"",""RCKATRPT"",103,0)"
^XMB(3.9,86,2,880,0)=" ..N X"
^XMB(3.9,86,2,881,0)="""RTN"",""RCKATRPT"",104,0)"
^XMB(3.9,86,2,882,0)=" ..S X=$G(^TMP(""RCDEBTOR"",$J,SITE,DEB,DFN))"
^XMB(3.9,86,2,883,0)="""RTN"",""RCKATRPT"",105,0)"
^XMB(3.9,86,2,884,0)=" ..S $P(RCDL,""-"",65)="""" W !,""------"",?16,RCDL"
^XMB(3.9,86,2,885,0)="""RTN"",""RCKATRPT"",106,0)"
^XMB(3.9,86,2,886,0)=" ..W !,""TOTAL: "",?12,$J(""$""_$P(X,""^"",1),15),?30,$J(""$""_$P(X,""^"",2),15),?45,$J(""$""_$P(X,""^"",3),15),?65,$J(""$""_$P(X,""^"",4),15),!"
^XMB(3.9,86,2,887,0)="""RTN"",""RCKATRPT"",107,0)"
^XMB(3.9,86,2,888,0)=" ..S ^XTMP(""RCKATRPT"",SITE,DEB,DFN,""TOT"")=DEB_""^""_""^""_X"
^XMB(3.9,86,2,889,0)="""RTN"",""RCKATRPT"",108,0)"
^XMB(3.9,86,2,890,0)=" .S ^XTMP(""RCKATRPT"",SITE,DEB,DFN,BN)=DEB_""^""_BN_""^""_DATA"
^XMB(3.9,86,2,891,0)="""RTN"",""RCKATRPT"",109,0)"
^XMB(3.9,86,2,892,0)=" .Q"
^XMB(3.9,86,2,893,0)="""RTN"",""RCKATRPT"",110,0)"
^XMB(3.9,86,2,894,0)=" Q"
^XMB(3.9,86,2,895,0)="""VER"")"
^XMB(3.9,86,2,896,0)="8.0^22.0"
^XMB(3.9,86,2,897,0)="""BLD"",6725,6)"
^XMB(3.9,86,2,898,0)="^217"
^XMB(3.9,86,2,899,0)="$END KID PRCA*4.5*246"
^XMB(3.9,86,6,0)="^3.911A^2^2"
^XMB(3.9,86,6,1,0)="POSTMASTER"
^XMB(3.9,86,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,86,6,"B","POSTMASTER",1)=""
^XMB(3.9,86,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,87,0)="PRCA-4P5_SEQ-218_PAT-243.KID^.5^3061008.015739^^^^K"
^XMB(3.9,87,.6)="3061008"
^XMB(3.9,87,1,0)="^3.91A^2^2"
^XMB(3.9,87,1,1,0)=".5^0^3061008.015739^^^^^^^3061008.015739"
^XMB(3.9,87,1,2,0)="1^0^3061008.024145^^^^^^^3061008.024145"
^XMB(3.9,87,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,87,1,"C",.5,1)=""
^XMB(3.9,87,1,"C",1,2)=""
^XMB(3.9,87,2,0)="^^799^799^3061008"
^XMB(3.9,87,2,1,0)="$TXT Released PRCA*4.5*243 SEQ #218"
^XMB(3.9,87,2,2,0)="Extracted from mail message"
^XMB(3.9,87,2,3,0)="$END TXT"
^XMB(3.9,87,2,4,0)="$KID PRCA*4.5*243"
^XMB(3.9,87,2,5,0)="**INSTALL NAME**"
^XMB(3.9,87,2,6,0)="PRCA*4.5*243"
^XMB(3.9,87,2,7,0)="""BLD"",6617,0)"
^XMB(3.9,87,2,8,0)="PRCA*4.5*243^ACCOUNTS RECEIVABLE^0^3060314^y"
^XMB(3.9,87,2,9,0)="""BLD"",6617,1,0)"
^XMB(3.9,87,2,10,0)="^^3^3^3060310^^^^"
^XMB(3.9,87,2,11,0)="""BLD"",6617,1,1,0)"
^XMB(3.9,87,2,12,0)="This patch adds four new fields to the VISTA IB-AR extract."
^XMB(3.9,87,2,13,0)="""BLD"",6617,1,2,0)"
^XMB(3.9,87,2,14,0)="It also fixes a subscript error when using the option:"
^XMB(3.9,87,2,15,0)="""BLD"",6617,1,3,0)"
^XMB(3.9,87,2,16,0)="[PRCAF ADJ ADMIN] Admisistrative Cost Adjustment."
^XMB(3.9,87,2,17,0)="""BLD"",6617,4,0)"
^XMB(3.9,87,2,18,0)="^9.64PA^^"
^XMB(3.9,87,2,19,0)="""BLD"",6617,""ABPKG"")"
^XMB(3.9,87,2,20,0)="n"
^XMB(3.9,87,2,21,0)="""BLD"",6617,""KRN"",0)"
^XMB(3.9,87,2,22,0)="^9.67PA^8989.52^19"
^XMB(3.9,87,2,23,0)="""BLD"",6617,""KRN"",.4,0)"
^XMB(3.9,87,2,24,0)=".4"
^XMB(3.9,87,2,25,0)="""BLD"",6617,""KRN"",.401,0)"
^XMB(3.9,87,2,26,0)=".401"
^XMB(3.9,87,2,27,0)="""BLD"",6617,""KRN"",.402,0)"
^XMB(3.9,87,2,28,0)=".402"
^XMB(3.9,87,2,29,0)="""BLD"",6617,""KRN"",.403,0)"
^XMB(3.9,87,2,30,0)=".403"
^XMB(3.9,87,2,31,0)="""BLD"",6617,""KRN"",.5,0)"
^XMB(3.9,87,2,32,0)=".5"
^XMB(3.9,87,2,33,0)="""BLD"",6617,""KRN"",.84,0)"
^XMB(3.9,87,2,34,0)=".84"
^XMB(3.9,87,2,35,0)="""BLD"",6617,""KRN"",3.6,0)"
^XMB(3.9,87,2,36,0)="3.6"
^XMB(3.9,87,2,37,0)="""BLD"",6617,""KRN"",3.8,0)"
^XMB(3.9,87,2,38,0)="3.8"
^XMB(3.9,87,2,39,0)="""BLD"",6617,""KRN"",9.2,0)"
^XMB(3.9,87,2,40,0)="9.2"
^XMB(3.9,87,2,41,0)="""BLD"",6617,""KRN"",9.8,0)"
^XMB(3.9,87,2,42,0)="9.8"
^XMB(3.9,87,2,43,0)="""BLD"",6617,""KRN"",9.8,""NM"",0)"
^XMB(3.9,87,2,44,0)="^9.68A^3^3"
^XMB(3.9,87,2,45,0)="""BLD"",6617,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,87,2,46,0)="RCXVDC5^^0^B18373279"
^XMB(3.9,87,2,47,0)="""BLD"",6617,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,87,2,48,0)="RCXVDC7^^0^B1125831"
^XMB(3.9,87,2,49,0)="""BLD"",6617,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,87,2,50,0)="RCXVDEQ^^0^B15138965"
^XMB(3.9,87,2,51,0)="""BLD"",6617,""KRN"",9.8,""NM"",""B"",""RCXVDC5"",1)"
^XMB(3.9,87,2,52,0)=""
^XMB(3.9,87,2,53,0)="""BLD"",6617,""KRN"",9.8,""NM"",""B"",""RCXVDC7"",2)"
^XMB(3.9,87,2,54,0)=""
^XMB(3.9,87,2,55,0)="""BLD"",6617,""KRN"",9.8,""NM"",""B"",""RCXVDEQ"",3)"
^XMB(3.9,87,2,56,0)=""
^XMB(3.9,87,2,57,0)="""BLD"",6617,""KRN"",19,0)"
^XMB(3.9,87,2,58,0)="19"
^XMB(3.9,87,2,59,0)="""BLD"",6617,""KRN"",19.1,0)"
^XMB(3.9,87,2,60,0)="19.1"
^XMB(3.9,87,2,61,0)="""BLD"",6617,""KRN"",101,0)"
^XMB(3.9,87,2,62,0)="101"
^XMB(3.9,87,2,63,0)="""BLD"",6617,""KRN"",409.61,0)"
^XMB(3.9,87,2,64,0)="409.61"
^XMB(3.9,87,2,65,0)="""BLD"",6617,""KRN"",771,0)"
^XMB(3.9,87,2,66,0)="771"
^XMB(3.9,87,2,67,0)="""BLD"",6617,""KRN"",870,0)"
^XMB(3.9,87,2,68,0)="870"
^XMB(3.9,87,2,69,0)="""BLD"",6617,""KRN"",8989.51,0)"
^XMB(3.9,87,2,70,0)="8989.51"
^XMB(3.9,87,2,71,0)="""BLD"",6617,""KRN"",8989.52,0)"
^XMB(3.9,87,2,72,0)="8989.52"
^XMB(3.9,87,2,73,0)="""BLD"",6617,""KRN"",8994,0)"
^XMB(3.9,87,2,74,0)="8994"
^XMB(3.9,87,2,75,0)="""BLD"",6617,""KRN"",""B"",.4,.4)"
^XMB(3.9,87,2,76,0)=""
^XMB(3.9,87,2,77,0)="""BLD"",6617,""KRN"",""B"",.401,.401)"
^XMB(3.9,87,2,78,0)=""
^XMB(3.9,87,2,79,0)="""BLD"",6617,""KRN"",""B"",.402,.402)"
^XMB(3.9,87,2,80,0)=""
^XMB(3.9,87,2,81,0)="""BLD"",6617,""KRN"",""B"",.403,.403)"
^XMB(3.9,87,2,82,0)=""
^XMB(3.9,87,2,83,0)="""BLD"",6617,""KRN"",""B"",.5,.5)"
^XMB(3.9,87,2,84,0)=""
^XMB(3.9,87,2,85,0)="""BLD"",6617,""KRN"",""B"",.84,.84)"
^XMB(3.9,87,2,86,0)=""
^XMB(3.9,87,2,87,0)="""BLD"",6617,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,87,2,88,0)=""
^XMB(3.9,87,2,89,0)="""BLD"",6617,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,87,2,90,0)=""
^XMB(3.9,87,2,91,0)="""BLD"",6617,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,87,2,92,0)=""
^XMB(3.9,87,2,93,0)="""BLD"",6617,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,87,2,94,0)=""
^XMB(3.9,87,2,95,0)="""BLD"",6617,""KRN"",""B"",19,19)"
^XMB(3.9,87,2,96,0)=""
^XMB(3.9,87,2,97,0)="""BLD"",6617,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,87,2,98,0)=""
^XMB(3.9,87,2,99,0)="""BLD"",6617,""KRN"",""B"",101,101)"
^XMB(3.9,87,2,100,0)=""
^XMB(3.9,87,2,101,0)="""BLD"",6617,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,87,2,102,0)=""
^XMB(3.9,87,2,103,0)="""BLD"",6617,""KRN"",""B"",771,771)"
^XMB(3.9,87,2,104,0)=""
^XMB(3.9,87,2,105,0)="""BLD"",6617,""KRN"",""B"",870,870)"
^XMB(3.9,87,2,106,0)=""
^XMB(3.9,87,2,107,0)="""BLD"",6617,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,87,2,108,0)=""
^XMB(3.9,87,2,109,0)="""BLD"",6617,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,87,2,110,0)=""
^XMB(3.9,87,2,111,0)="""BLD"",6617,""KRN"",""B"",8994,8994)"
^XMB(3.9,87,2,112,0)=""
^XMB(3.9,87,2,113,0)="""BLD"",6617,""QUES"",0)"
^XMB(3.9,87,2,114,0)="^9.62^^"
^XMB(3.9,87,2,115,0)="""BLD"",6617,""REQB"",0)"
^XMB(3.9,87,2,116,0)="^9.611^2^2"
^XMB(3.9,87,2,117,0)="""BLD"",6617,""REQB"",1,0)"
^XMB(3.9,87,2,118,0)="PRCA*4.5*228^1"
^XMB(3.9,87,2,119,0)="""BLD"",6617,""REQB"",2,0)"
^XMB(3.9,87,2,120,0)="PRCA*4.5*240^1"
^XMB(3.9,87,2,121,0)="""BLD"",6617,""REQB"",""B"",""PRCA*4.5*228"",1)"
^XMB(3.9,87,2,122,0)=""
^XMB(3.9,87,2,123,0)="""BLD"",6617,""REQB"",""B"",""PRCA*4.5*240"",2)"
^XMB(3.9,87,2,124,0)=""
^XMB(3.9,87,2,125,0)="""MBREQ"")"
^XMB(3.9,87,2,126,0)="0"
^XMB(3.9,87,2,127,0)="""PKG"",142,-1)"
^XMB(3.9,87,2,128,0)="1^1"
^XMB(3.9,87,2,129,0)="""PKG"",142,0)"
^XMB(3.9,87,2,130,0)="ACCOUNTS RECEIVABLE^PRCA^BILL COLLECTIONS"
^XMB(3.9,87,2,131,0)="""PKG"",142,20,0)"
^XMB(3.9,87,2,132,0)="^9.402P^1^1"
^XMB(3.9,87,2,133,0)="""PKG"",142,20,1,0)"
^XMB(3.9,87,2,134,0)="2^^PRCAMRG"
^XMB(3.9,87,2,135,0)="""PKG"",142,20,1,1)"
^XMB(3.9,87,2,136,0)=""
^XMB(3.9,87,2,137,0)="""PKG"",142,20,""B"",2,1)"
^XMB(3.9,87,2,138,0)=""
^XMB(3.9,87,2,139,0)="""PKG"",142,22,0)"
^XMB(3.9,87,2,140,0)="^9.49I^1^1"
^XMB(3.9,87,2,141,0)="""PKG"",142,22,1,0)"
^XMB(3.9,87,2,142,0)="4.5^^2950320"
^XMB(3.9,87,2,143,0)="""PKG"",142,22,1,""PAH"",1,0)"
^XMB(3.9,87,2,144,0)="243^3060314^1258"
^XMB(3.9,87,2,145,0)="""PKG"",142,22,1,""PAH"",1,1,0)"
^XMB(3.9,87,2,146,0)="^^3^3^3060314"
^XMB(3.9,87,2,147,0)="""PKG"",142,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,87,2,148,0)="This patch adds four new fields to the VISTA IB-AR extract."
^XMB(3.9,87,2,149,0)="""PKG"",142,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,87,2,150,0)="It also fixes a subscript error when using the option:"
^XMB(3.9,87,2,151,0)="""PKG"",142,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,87,2,152,0)="[PRCAF ADJ ADMIN] Admisistrative Cost Adjustment."
^XMB(3.9,87,2,153,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,87,2,154,0)="Y"
^XMB(3.9,87,2,155,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,87,2,156,0)="^D REP^XPDH"
^XMB(3.9,87,2,157,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,87,2,158,0)="Shall I write over your |FLAG| File"
^XMB(3.9,87,2,159,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,87,2,160,0)="YES"
^XMB(3.9,87,2,161,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,87,2,162,0)="D XPF1^XPDIQ"
^XMB(3.9,87,2,163,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,87,2,164,0)="Y"
^XMB(3.9,87,2,165,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,87,2,166,0)="^D DTA^XPDH"
^XMB(3.9,87,2,167,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,87,2,168,0)="Want my data |FLAG| yours"
^XMB(3.9,87,2,169,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,87,2,170,0)="YES"
^XMB(3.9,87,2,171,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,87,2,172,0)="D XPF2^XPDIQ"
^XMB(3.9,87,2,173,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,87,2,174,0)="YO"
^XMB(3.9,87,2,175,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,87,2,176,0)="^D INHIBIT^XPDH"
^XMB(3.9,87,2,177,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,87,2,178,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,87,2,179,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,87,2,180,0)="YES"
^XMB(3.9,87,2,181,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,87,2,182,0)="D XPI1^XPDIQ"
^XMB(3.9,87,2,183,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,87,2,184,0)="PO^VA(200,:EM"
^XMB(3.9,87,2,185,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,87,2,186,0)="^D MG^XPDH"
^XMB(3.9,87,2,187,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,87,2,188,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,87,2,189,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,87,2,190,0)=""
^XMB(3.9,87,2,191,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,87,2,192,0)="D XPM1^XPDIQ"
^XMB(3.9,87,2,193,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,87,2,194,0)="Y"
^XMB(3.9,87,2,195,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,87,2,196,0)="^D MENU^XPDH"
^XMB(3.9,87,2,197,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,87,2,198,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,87,2,199,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,87,2,200,0)="YES"
^XMB(3.9,87,2,201,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,87,2,202,0)="D XPO1^XPDIQ"
^XMB(3.9,87,2,203,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,87,2,204,0)="Y"
^XMB(3.9,87,2,205,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,87,2,206,0)="^D OPT^XPDH"
^XMB(3.9,87,2,207,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,87,2,208,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,87,2,209,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,87,2,210,0)="YES"
^XMB(3.9,87,2,211,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,87,2,212,0)="D XPZ1^XPDIQ"
^XMB(3.9,87,2,213,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,87,2,214,0)="Y"
^XMB(3.9,87,2,215,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,87,2,216,0)="^D RTN^XPDH"
^XMB(3.9,87,2,217,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,87,2,218,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,87,2,219,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,87,2,220,0)="NO"
^XMB(3.9,87,2,221,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,87,2,222,0)="D XPZ2^XPDIQ"
^XMB(3.9,87,2,223,0)="""RTN"")"
^XMB(3.9,87,2,224,0)="3"
^XMB(3.9,87,2,225,0)="""RTN"",""RCXVDC5"")"
^XMB(3.9,87,2,226,0)="0^1^B18373279^B11213461"
^XMB(3.9,87,2,227,0)="""RTN"",""RCXVDC5"",1,0)"
^XMB(3.9,87,2,228,0)="RCXVDC5 ;DAOU/ALA-AR Data Extraction Data Creation ;02-JUL-03"
^XMB(3.9,87,2,229,0)="""RTN"",""RCXVDC5"",2,0)"
^XMB(3.9,87,2,230,0)=" ;;4.5;Accounts Receivable;**201,227,228,240,243**;Mar 20, 1995"
^XMB(3.9,87,2,231,0)="""RTN"",""RCXVDC5"",3,0)"
^XMB(3.9,87,2,232,0)=" ;"
^XMB(3.9,87,2,233,0)="""RTN"",""RCXVDC5"",4,0)"
^XMB(3.9,87,2,234,0)=" ; Integrated Billing Action File (# 350) "
^XMB(3.9,87,2,235,0)="""RTN"",""RCXVDC5"",5,0)"
^XMB(3.9,87,2,236,0)=" Q"
^XMB(3.9,87,2,237,0)="""RTN"",""RCXVDC5"",6,0)"
^XMB(3.9,87,2,238,0)="D350 ; "
^XMB(3.9,87,2,239,0)="""RTN"",""RCXVDC5"",7,0)"
^XMB(3.9,87,2,240,0)=" NEW RCXVD,RCXVDA,RCXVDB,RCXVD0A,RCXVDT,RCXVP1,RCXVP2,RCXVPC,RCT"
^XMB(3.9,87,2,241,0)="""RTN"",""RCXVDC5"",8,0)"
^XMB(3.9,87,2,242,0)=" NEW RCIBVD,RCIBAD,RCIBDD,RCIBSL,RCIBBG,RCIBPE"
^XMB(3.9,87,2,243,0)="""RTN"",""RCXVDC5"",9,0)"
^XMB(3.9,87,2,244,0)=" S RCXVD0A="""",RCT=0"
^XMB(3.9,87,2,245,0)="""RTN"",""RCXVDC5"",10,0)"
^XMB(3.9,87,2,246,0)=" F  S RCXVD0A=$O(^IB(""ABIL"",RCXVBLNA,RCXVD0A)) Q:RCXVD0A=""""  D"
^XMB(3.9,87,2,247,0)="""RTN"",""RCXVDC5"",11,0)"
^XMB(3.9,87,2,248,0)=" . S RCXVD=$G(^IB(RCXVD0A,0))"
^XMB(3.9,87,2,249,0)="""RTN"",""RCXVDC5"",12,0)"
^XMB(3.9,87,2,250,0)=" . I $G(DFN)="""" S DFN=$P(RCXVD,U,2)"
^XMB(3.9,87,2,251,0)="""RTN"",""RCXVDC5"",13,0)"
^XMB(3.9,87,2,252,0)=" . ;"
^XMB(3.9,87,2,253,0)="""RTN"",""RCXVDC5"",14,0)"
^XMB(3.9,87,2,254,0)=" . S RCXVDA=RCXVBLNA_RCXVU_$P(RCXVD,U,1)"
^XMB(3.9,87,2,255,0)="""RTN"",""RCXVDC5"",15,0)"
^XMB(3.9,87,2,256,0)=" . S RCXVDA=RCXVDA_RCXVU_$$GET1^DIQ(350,RCXVD0A_"","",.05,""E"")"
^XMB(3.9,87,2,257,0)="""RTN"",""RCXVDC5"",16,0)"
^XMB(3.9,87,2,258,0)=" . S RCXVP1=$P(RCXVD,U,3),RCXVP2="""""
^XMB(3.9,87,2,259,0)="""RTN"",""RCXVDC5"",17,0)"
^XMB(3.9,87,2,260,0)=" . I RCXVP1'="""" S RCXVP2=$P($G(^IBE(350.1,RCXVP1,0)),U,1)"
^XMB(3.9,87,2,261,0)="""RTN"",""RCXVDC5"",18,0)"
^XMB(3.9,87,2,262,0)=" . S RCXVDA=RCXVDA_RCXVU_RCXVP2 ; ACTION TYPE (P)"
^XMB(3.9,87,2,263,0)="""RTN"",""RCXVDC5"",19,0)"
^XMB(3.9,87,2,264,0)=" . S RCXVDA=RCXVDA_RCXVU_$P(RCXVD,U,6) ; UNITS"
^XMB(3.9,87,2,265,0)="""RTN"",""RCXVDC5"",20,0)"
^XMB(3.9,87,2,266,0)=" . S RCXVDA=RCXVDA_RCXVU_$P(RCXVD,U,7) ; TOTAL CHARGE"
^XMB(3.9,87,2,267,0)="""RTN"",""RCXVDC5"",21,0)"
^XMB(3.9,87,2,268,0)=" . S RCXVDT=$P(RCXVD,U,14)"
^XMB(3.9,87,2,269,0)="""RTN"",""RCXVDC5"",22,0)"
^XMB(3.9,87,2,270,0)=" . S RCXVDA=RCXVDA_RCXVU_$E($$HLDATE^HLFNC(RCXVDT),1,8) ; DT BILLD FROM"
^XMB(3.9,87,2,271,0)="""RTN"",""RCXVDC5"",23,0)"
^XMB(3.9,87,2,272,0)=" . S RCXVDT=$P(RCXVD,U,15)"
^XMB(3.9,87,2,273,0)="""RTN"",""RCXVDC5"",24,0)"
^XMB(3.9,87,2,274,0)=" . S RCXVDA=RCXVDA_RCXVU_$E($$HLDATE^HLFNC(RCXVDT),1,8) ; DT BILLD TO"
^XMB(3.9,87,2,275,0)="""RTN"",""RCXVDC5"",25,0)"
^XMB(3.9,87,2,276,0)=" . S RCXVDA=RCXVDA_RCXVU_$P(RCXVD,U,11) ; AR BILL #"
^XMB(3.9,87,2,277,0)="""RTN"",""RCXVDC5"",26,0)"
^XMB(3.9,87,2,278,0)=" . S RCXVDT=$P($P($G(^IB(RCXVD0A,1)),U,2),""."",1)"
^XMB(3.9,87,2,279,0)="""RTN"",""RCXVDC5"",27,0)"
^XMB(3.9,87,2,280,0)=" . S RCXVDA=RCXVDA_RCXVU_$E($$HLDATE^HLFNC(RCXVDT),1,8) ; DT ENTRY ADDED"
^XMB(3.9,87,2,281,0)="""RTN"",""RCXVDC5"",28,0)"
^XMB(3.9,87,2,282,0)=" . S RCXVDA=RCXVDA_RCXVU_$P($G(^DPT(DFN,0)),U,9) ; SSN"
^XMB(3.9,87,2,283,0)="""RTN"",""RCXVDC5"",29,0)"
^XMB(3.9,87,2,284,0)=" . S RCXVDT=$P(RCXVD,U,17)"
^XMB(3.9,87,2,285,0)="""RTN"",""RCXVDC5"",30,0)"
^XMB(3.9,87,2,286,0)=" . S RCXVDA=RCXVDA_RCXVU_$E($$HLDATE^HLFNC(RCXVDT),1,8) ; EVENT DT"
^XMB(3.9,87,2,287,0)="""RTN"",""RCXVDC5"",31,0)"
^XMB(3.9,87,2,288,0)=" . S RCXVDT=$$PRESC($P(RCXVD,U,4))"
^XMB(3.9,87,2,289,0)="""RTN"",""RCXVDC5"",32,0)"
^XMB(3.9,87,2,290,0)=" . S RCXVDA=RCXVDA_RCXVU_$E($$HLDATE^HLFNC(RCXVDT),1,8) ;FILL/REFILL DATE"
^XMB(3.9,87,2,291,0)="""RTN"",""RCXVDC5"",33,0)"
^XMB(3.9,87,2,292,0)=" . S (RCIBVD,RCIBAD,RCIBDD)="""" D"
^XMB(3.9,87,2,293,0)="""RTN"",""RCXVDC5"",34,0)"
^XMB(3.9,87,2,294,0)="       ..S RCIBSL=$P(RCXVD,U,4) Q:+RCIBSL=52"
^XMB(3.9,87,2,295,0)="""RTN"",""RCXVDC5"",35,0)"
^XMB(3.9,87,2,296,0)="       ..S RCIBBG=$P($G(^IBE(350.1,+$P(RCXVD,""^"",3),0)),""^"",11)"
^XMB(3.9,87,2,297,0)="""RTN"",""RCXVDC5"",36,0)"
^XMB(3.9,87,2,298,0)="       ..I RCIBBG=4 S RCXVDT=$P(RCXVD,U,14),RCIBVD=$E($$HLDATE^HLFNC(RCXVDT),1,8) Q"
^XMB(3.9,87,2,299,0)="""RTN"",""RCXVDC5"",37,0)"
^XMB(3.9,87,2,300,0)="       ..S RCIBPE=$G(^IB(+$P(RCXVD,""^"",16),0))"
^XMB(3.9,87,2,301,0)="""RTN"",""RCXVDC5"",38,0)"
^XMB(3.9,87,2,302,0)="       ..I +RCIBSL'=405,+RCIBSL'=45 S RCIBSL=$P(RCIBPE,""^"",4)"
^XMB(3.9,87,2,303,0)="""RTN"",""RCXVDC5"",39,0)"
^XMB(3.9,87,2,304,0)="       ..I +RCIBSL=405!(+RCIBSL=45) D INP"
^XMB(3.9,87,2,305,0)="""RTN"",""RCXVDC5"",40,0)"
^XMB(3.9,87,2,306,0)="       ..Q"
^XMB(3.9,87,2,307,0)="""RTN"",""RCXVDC5"",41,0)"
^XMB(3.9,87,2,308,0)=" . ;add outpatient visit date, inp. admission date, inp. discharge date"
^XMB(3.9,87,2,309,0)="""RTN"",""RCXVDC5"",42,0)"
^XMB(3.9,87,2,310,0)=" . S RCXVDA=RCXVDA_RCXVU_RCIBVD_RCXVU_RCIBAD_RCXVU_RCIBDD"
^XMB(3.9,87,2,311,0)="""RTN"",""RCXVDC5"",43,0)"
^XMB(3.9,87,2,312,0)=" . S RCXVDA=RCXVDA_RCXVU_$$SITE(RCXVD0A,1) ;DIVISION WHERE CARE RENDERED"
^XMB(3.9,87,2,313,0)="""RTN"",""RCXVDC5"",44,0)"
^XMB(3.9,87,2,314,0)=" . S RCT=RCT+1"
^XMB(3.9,87,2,315,0)="""RTN"",""RCXVDC5"",45,0)"
^XMB(3.9,87,2,316,0)=" . S ^TMP($J,RCXVBLN,""5-350A"",RCT)=RCXVDA"
^XMB(3.9,87,2,317,0)="""RTN"",""RCXVDC5"",46,0)"
^XMB(3.9,87,2,318,0)=" Q"
^XMB(3.9,87,2,319,0)="""RTN"",""RCXVDC5"",47,0)"
^XMB(3.9,87,2,320,0)=" ;"
^XMB(3.9,87,2,321,0)="""RTN"",""RCXVDC5"",48,0)"
^XMB(3.9,87,2,322,0)="PRESC(RCPC4) ;Calculates prescription fill/refill date"
^XMB(3.9,87,2,323,0)="""RTN"",""RCXVDC5"",49,0)"
^XMB(3.9,87,2,324,0)=" ; Input is resulting from field (4th piece of 0 node) in 350"
^XMB(3.9,87,2,325,0)="""RTN"",""RCXVDC5"",50,0)"
^XMB(3.9,87,2,326,0)=" ; Output is fill/refill date in fileman format"
^XMB(3.9,87,2,327,0)="""RTN"",""RCXVDC5"",51,0)"
^XMB(3.9,87,2,328,0)=" N RCRXN,RCRF,RCENS,RCPRDT"
^XMB(3.9,87,2,329,0)="""RTN"",""RCXVDC5"",52,0)"
^XMB(3.9,87,2,330,0)=" S RCPRDT="""""
^XMB(3.9,87,2,331,0)="""RTN"",""RCXVDC5"",53,0)"
^XMB(3.9,87,2,332,0)=" I $P(RCPC4,"":"")'=52 Q RCPRDT"
^XMB(3.9,87,2,333,0)="""RTN"",""RCXVDC5"",54,0)"
^XMB(3.9,87,2,334,0)=" S RCRXN=+$P(RCPC4,"":"",2),RCRF=$P(RCPC4,"":"",3)"
^XMB(3.9,87,2,335,0)="""RTN"",""RCXVDC5"",55,0)"
^XMB(3.9,87,2,336,0)=" I RCRF>0 S RCENS=+RCRF_"",""_+RCRXN_"","",RCPRDT=$$GET1^DIQ(52.1,RCENS,17,""I""),RCPRDT=$P(RCPRDT,""."")"
^XMB(3.9,87,2,337,0)="""RTN"",""RCXVDC5"",56,0)"
^XMB(3.9,87,2,338,0)=" E  S RCENS=+RCRXN_"","",RCPRDT=$$GET1^DIQ(52,RCENS,31,""I""),RCPRDT=$P(RCPRDT,""."")"
^XMB(3.9,87,2,339,0)="""RTN"",""RCXVDC5"",57,0)"
^XMB(3.9,87,2,340,0)=" Q RCPRDT"
^XMB(3.9,87,2,341,0)="""RTN"",""RCXVDC5"",58,0)"
^XMB(3.9,87,2,342,0)="INP ; get inpatient admission and discharge date"
^XMB(3.9,87,2,343,0)="""RTN"",""RCXVDC5"",59,0)"
^XMB(3.9,87,2,344,0)=" N PM,PM0,X,X1,X2"
^XMB(3.9,87,2,345,0)="""RTN"",""RCXVDC5"",60,0)"
^XMB(3.9,87,2,346,0)=" I +RCIBSL=405 D"
^XMB(3.9,87,2,347,0)="""RTN"",""RCXVDC5"",61,0)"
^XMB(3.9,87,2,348,0)="    .S PM=+$P(RCIBSL,"":"",2),PM0=$G(^DGPM(PM,0))"
^XMB(3.9,87,2,349,0)="""RTN"",""RCXVDC5"",62,0)"
^XMB(3.9,87,2,350,0)="    .S RCIBAD=$S(PM0:+PM0\1,1:$P(RCIBPE,""^"",17))"
^XMB(3.9,87,2,351,0)="""RTN"",""RCXVDC5"",63,0)"
^XMB(3.9,87,2,352,0)="    .S RCIBAD=$E($$HLDATE^HLFNC(RCIBAD),1,8)"
^XMB(3.9,87,2,353,0)="""RTN"",""RCXVDC5"",64,0)"
^XMB(3.9,87,2,354,0)="    .S RCIBDD=$S(PM0:$S($D(^DGPM(+$P(PM0,""^"",17),0)):+^(0)\1,1:""""),1:"""")"
^XMB(3.9,87,2,355,0)="""RTN"",""RCXVDC5"",65,0)"
^XMB(3.9,87,2,356,0)="    .S RCIBDD=$E($$HLDATE^HLFNC(RCIBDD),1,8)"
^XMB(3.9,87,2,357,0)="""RTN"",""RCXVDC5"",66,0)"
^XMB(3.9,87,2,358,0)=" I +RCIBSL=45 D"
^XMB(3.9,87,2,359,0)="""RTN"",""RCXVDC5"",67,0)"
^XMB(3.9,87,2,360,0)="    .S PM=+$P(RCIBSL,"":"",2),PM0=$G(^DGPT(PM,0))"
^XMB(3.9,87,2,361,0)="""RTN"",""RCXVDC5"",68,0)"
^XMB(3.9,87,2,362,0)="    .S RCIBAD=$S(PM0:+$P(PM0,""^"",2)\1,1:$P(RCIBPE,""^"",17))"
^XMB(3.9,87,2,363,0)="""RTN"",""RCXVDC5"",69,0)"
^XMB(3.9,87,2,364,0)="    .S RCIBAD=$E($$HLDATE^HLFNC(RCIBAD),1,8)"
^XMB(3.9,87,2,365,0)="""RTN"",""RCXVDC5"",70,0)"
^XMB(3.9,87,2,366,0)="    .S RCIBDD=$S($G(^DGPT(PM,70)):+^(70)\1,1:"""")"
^XMB(3.9,87,2,367,0)="""RTN"",""RCXVDC5"",71,0)"
^XMB(3.9,87,2,368,0)="    .S RCIBDD=$E($$HLDATE^HLFNC(RCIBDD),1,8)"
^XMB(3.9,87,2,369,0)="""RTN"",""RCXVDC5"",72,0)"
^XMB(3.9,87,2,370,0)=" Q"
^XMB(3.9,87,2,371,0)="""RTN"",""RCXVDC5"",73,0)"
^XMB(3.9,87,2,372,0)="SITE(IIEN,FLG) ;  Find the Care Site for Co-Pays"
^XMB(3.9,87,2,373,0)="""RTN"",""RCXVDC5"",74,0)"
^XMB(3.9,87,2,374,0)=" ;  Input Parameters"
^XMB(3.9,87,2,375,0)="""RTN"",""RCXVDC5"",75,0)"
^XMB(3.9,87,2,376,0)=" ;    IIEN = Internal Entry Number for IB ACTION #350"
^XMB(3.9,87,2,377,0)="""RTN"",""RCXVDC5"",76,0)"
^XMB(3.9,87,2,378,0)=" ;    FLG = 1=Division Name,2=Facility Number"
^XMB(3.9,87,2,379,0)="""RTN"",""RCXVDC5"",77,0)"
^XMB(3.9,87,2,380,0)=" ;"
^XMB(3.9,87,2,381,0)="""RTN"",""RCXVDC5"",78,0)"
^XMB(3.9,87,2,382,0)=" NEW VDIV,VFAC,VWIEN,VWFIL,VVIS,VLOC,VWARD,VLVAL,VWHER"
^XMB(3.9,87,2,383,0)="""RTN"",""RCXVDC5"",79,0)"
^XMB(3.9,87,2,384,0)=" S VWHER=$P(^IB(IIEN,0),U,4)"
^XMB(3.9,87,2,385,0)="""RTN"",""RCXVDC5"",80,0)"
^XMB(3.9,87,2,386,0)=" ;"
^XMB(3.9,87,2,387,0)="""RTN"",""RCXVDC5"",81,0)"
^XMB(3.9,87,2,388,0)=" I VWHER="""" Q """""
^XMB(3.9,87,2,389,0)="""RTN"",""RCXVDC5"",82,0)"
^XMB(3.9,87,2,390,0)=" ;"
^XMB(3.9,87,2,391,0)="""RTN"",""RCXVDC5"",83,0)"
^XMB(3.9,87,2,392,0)=" S VWFIL=$P(VWHER,"":"",1),VWIEN=$P(VWHER,"":"",2)"
^XMB(3.9,87,2,393,0)="""RTN"",""RCXVDC5"",84,0)"
^XMB(3.9,87,2,394,0)=" I VWIEN["";"" S VWIEN=$P(VWIEN,"";"",1)"
^XMB(3.9,87,2,395,0)="""RTN"",""RCXVDC5"",85,0)"
^XMB(3.9,87,2,396,0)=" ;"
^XMB(3.9,87,2,397,0)="""RTN"",""RCXVDC5"",86,0)"
^XMB(3.9,87,2,398,0)=" S VLVAL="""""
^XMB(3.9,87,2,399,0)="""RTN"",""RCXVDC5"",87,0)"
^XMB(3.9,87,2,400,0)="MV I VWFIL=405 D"
^XMB(3.9,87,2,401,0)="""RTN"",""RCXVDC5"",88,0)"
^XMB(3.9,87,2,402,0)=" . I VWIEN="""" Q"
^XMB(3.9,87,2,403,0)="""RTN"",""RCXVDC5"",89,0)"
^XMB(3.9,87,2,404,0)=" . S VWARD=$P($G(^DGPM(VWIEN,0)),U,6)"
^XMB(3.9,87,2,405,0)="""RTN"",""RCXVDC5"",90,0)"
^XMB(3.9,87,2,406,0)=" . I VWARD="""" Q"
^XMB(3.9,87,2,407,0)="""RTN"",""RCXVDC5"",91,0)"
^XMB(3.9,87,2,408,0)=" . S VLOC=$P($G(^DIC(42,VWARD,44)),U,1)"
^XMB(3.9,87,2,409,0)="""RTN"",""RCXVDC5"",92,0)"
^XMB(3.9,87,2,410,0)=" . I VLOC="""" Q"
^XMB(3.9,87,2,411,0)="""RTN"",""RCXVDC5"",93,0)"
^XMB(3.9,87,2,412,0)=" . S VDIV=$P($G(^SC(VLOC,0)),U,15)"
^XMB(3.9,87,2,413,0)="""RTN"",""RCXVDC5"",94,0)"
^XMB(3.9,87,2,414,0)=" . I VDIV="""" Q"
^XMB(3.9,87,2,415,0)="""RTN"",""RCXVDC5"",95,0)"
^XMB(3.9,87,2,416,0)=" . D VLU"
^XMB(3.9,87,2,417,0)="""RTN"",""RCXVDC5"",96,0)"
^XMB(3.9,87,2,418,0)=" ;"
^XMB(3.9,87,2,419,0)="""RTN"",""RCXVDC5"",97,0)"
^XMB(3.9,87,2,420,0)="OP I VWFIL=409.68 D"
^XMB(3.9,87,2,421,0)="""RTN"",""RCXVDC5"",98,0)"
^XMB(3.9,87,2,422,0)=" . S VLOC=$P($G(^SCE(VWIEN,0)),U,4)"
^XMB(3.9,87,2,423,0)="""RTN"",""RCXVDC5"",99,0)"
^XMB(3.9,87,2,424,0)=" . I VLOC="""" D"
^XMB(3.9,87,2,425,0)="""RTN"",""RCXVDC5"",100,0)"
^XMB(3.9,87,2,426,0)=" .. S VVIS=$P($G(^SCE(VWIEN,0)),U,5)"
^XMB(3.9,87,2,427,0)="""RTN"",""RCXVDC5"",101,0)"
^XMB(3.9,87,2,428,0)=" .. I VVIS="""" Q"
^XMB(3.9,87,2,429,0)="""RTN"",""RCXVDC5"",102,0)"
^XMB(3.9,87,2,430,0)=" .. S VLOC=$P($G(^AUPNVSIT(VVIS,0)),U,22)"
^XMB(3.9,87,2,431,0)="""RTN"",""RCXVDC5"",103,0)"
^XMB(3.9,87,2,432,0)=" . I VLOC="""" Q"
^XMB(3.9,87,2,433,0)="""RTN"",""RCXVDC5"",104,0)"
^XMB(3.9,87,2,434,0)=" . S VDIV=$P($G(^SC(VLOC,0)),U,15)"
^XMB(3.9,87,2,435,0)="""RTN"",""RCXVDC5"",105,0)"
^XMB(3.9,87,2,436,0)=" . I VDIV="""" Q"
^XMB(3.9,87,2,437,0)="""RTN"",""RCXVDC5"",106,0)"
^XMB(3.9,87,2,438,0)=" . D VLU"
^XMB(3.9,87,2,439,0)="""RTN"",""RCXVDC5"",107,0)"
^XMB(3.9,87,2,440,0)=" ;"
^XMB(3.9,87,2,441,0)="""RTN"",""RCXVDC5"",108,0)"
^XMB(3.9,87,2,442,0)="RX I VWFIL=52 D"
^XMB(3.9,87,2,443,0)="""RTN"",""RCXVDC5"",109,0)"
^XMB(3.9,87,2,444,0)=" . S VLOC=$$GET1^DIQ(52,VWIEN_"","",5,""I"")"
^XMB(3.9,87,2,445,0)="""RTN"",""RCXVDC5"",110,0)"
^XMB(3.9,87,2,446,0)=" . I VLOC="""" Q"
^XMB(3.9,87,2,447,0)="""RTN"",""RCXVDC5"",111,0)"
^XMB(3.9,87,2,448,0)=" . S VDIV=$P($G(^SC(VLOC,0)),U,15)"
^XMB(3.9,87,2,449,0)="""RTN"",""RCXVDC5"",112,0)"
^XMB(3.9,87,2,450,0)=" . I VDIV="""" Q"
^XMB(3.9,87,2,451,0)="""RTN"",""RCXVDC5"",113,0)"
^XMB(3.9,87,2,452,0)=" . D VLU"
^XMB(3.9,87,2,453,0)="""RTN"",""RCXVDC5"",114,0)"
^XMB(3.9,87,2,454,0)=" ;"
^XMB(3.9,87,2,455,0)="""RTN"",""RCXVDC5"",115,0)"
^XMB(3.9,87,2,456,0)="LC I VWFIL=44 D"
^XMB(3.9,87,2,457,0)="""RTN"",""RCXVDC5"",116,0)"
^XMB(3.9,87,2,458,0)=" . S VDIV=$P($G(^SC(VWIEN,0)),U,15)"
^XMB(3.9,87,2,459,0)="""RTN"",""RCXVDC5"",117,0)"
^XMB(3.9,87,2,460,0)=" . I VDIV="""" Q"
^XMB(3.9,87,2,461,0)="""RTN"",""RCXVDC5"",118,0)"
^XMB(3.9,87,2,462,0)=" . D VLU"
^XMB(3.9,87,2,463,0)="""RTN"",""RCXVDC5"",119,0)"
^XMB(3.9,87,2,464,0)=" ;"
^XMB(3.9,87,2,465,0)="""RTN"",""RCXVDC5"",120,0)"
^XMB(3.9,87,2,466,0)="IB I VWFIL=350 D"
^XMB(3.9,87,2,467,0)="""RTN"",""RCXVDC5"",121,0)"
^XMB(3.9,87,2,468,0)=" . S VFAC=$P($G(^IB(VWIEN,0)),U,13)"
^XMB(3.9,87,2,469,0)="""RTN"",""RCXVDC5"",122,0)"
^XMB(3.9,87,2,470,0)=" . I VFAC="""" Q"
^XMB(3.9,87,2,471,0)="""RTN"",""RCXVDC5"",123,0)"
^XMB(3.9,87,2,472,0)=" . S VDIV=$O(^DG(40.8,""C"",VFAC,""""))"
^XMB(3.9,87,2,473,0)="""RTN"",""RCXVDC5"",124,0)"
^XMB(3.9,87,2,474,0)=" . I VDIV="""" Q"
^XMB(3.9,87,2,475,0)="""RTN"",""RCXVDC5"",125,0)"
^XMB(3.9,87,2,476,0)=" . D VLU"
^XMB(3.9,87,2,477,0)="""RTN"",""RCXVDC5"",126,0)"
^XMB(3.9,87,2,478,0)=" ;"
^XMB(3.9,87,2,479,0)="""RTN"",""RCXVDC5"",127,0)"
^XMB(3.9,87,2,480,0)=" Q VLVAL"
^XMB(3.9,87,2,481,0)="""RTN"",""RCXVDC5"",128,0)"
^XMB(3.9,87,2,482,0)=" ;"
^XMB(3.9,87,2,483,0)="""RTN"",""RCXVDC5"",129,0)"
^XMB(3.9,87,2,484,0)="VLU I FLG=1 S VLVAL=$P(^DG(40.8,VDIV,0),U,1)"
^XMB(3.9,87,2,485,0)="""RTN"",""RCXVDC5"",130,0)"
^XMB(3.9,87,2,486,0)=" I FLG=2 S VLVAL=$P(^DG(40.8,VDIV,0),U,2)"
^XMB(3.9,87,2,487,0)="""RTN"",""RCXVDC5"",131,0)"
^XMB(3.9,87,2,488,0)=" Q"
^XMB(3.9,87,2,489,0)="""RTN"",""RCXVDC7"")"
^XMB(3.9,87,2,490,0)="0^2^B1125831^B829025"
^XMB(3.9,87,2,491,0)="""RTN"",""RCXVDC7"",1,0)"
^XMB(3.9,87,2,492,0)="RCXVDC7 ;TJK/ALBANY OI @ALTOONA, PA-AR Data Extraction Data Creation ;02-JUL-03"
^XMB(3.9,87,2,493,0)="""RTN"",""RCXVDC7"",2,0)"
^XMB(3.9,87,2,494,0)=" ;;4.5;Accounts Receivable;**228,243**;Mar 20, 1995"
^XMB(3.9,87,2,495,0)="""RTN"",""RCXVDC7"",3,0)"
^XMB(3.9,87,2,496,0)=" ;"
^XMB(3.9,87,2,497,0)="""RTN"",""RCXVDC7"",4,0)"
^XMB(3.9,87,2,498,0)=" ; IB Bill/Claims Prosthetics File (362.5)"
^XMB(3.9,87,2,499,0)="""RTN"",""RCXVDC7"",5,0)"
^XMB(3.9,87,2,500,0)=" Q"
^XMB(3.9,87,2,501,0)="""RTN"",""RCXVDC7"",6,0)"
^XMB(3.9,87,2,502,0)="D3625 ;"
^XMB(3.9,87,2,503,0)="""RTN"",""RCXVDC7"",7,0)"
^XMB(3.9,87,2,504,0)=" NEW RCIBD,RCT,RCXVDA,RCNT,RCBILL,RCPDATA,RCPDATE"
^XMB(3.9,87,2,505,0)="""RTN"",""RCXVDC7"",8,0)"
^XMB(3.9,87,2,506,0)=" Q:'$G(RCXVD0)"
^XMB(3.9,87,2,507,0)="""RTN"",""RCXVDC7"",9,0)"
^XMB(3.9,87,2,508,0)=" S RCIBD="""" S RCIBD=$$IBAREXT^IBRFN4(RCXVD0,.RCIBD)"
^XMB(3.9,87,2,509,0)="""RTN"",""RCXVDC7"",10,0)"
^XMB(3.9,87,2,510,0)=" S (RCT,RCNT)=0 F  S RCT=$O(RCIBD(""PRD"",RCT)) Q:'RCT  D"
^XMB(3.9,87,2,511,0)="""RTN"",""RCXVDC7"",11,0)"
^XMB(3.9,87,2,512,0)=" . S RCPDATA=RCIBD(""PRD"",RCT)"
^XMB(3.9,87,2,513,0)="""RTN"",""RCXVDC7"",12,0)"
^XMB(3.9,87,2,514,0)=" . S RCPDATE=$P(RCPDATA,U,2)"
^XMB(3.9,87,2,515,0)="""RTN"",""RCXVDC7"",13,0)"
^XMB(3.9,87,2,516,0)=" . S RCPDATE=$E($$HLDATE^HLFNC(RCPDATE),1,8)"
^XMB(3.9,87,2,517,0)="""RTN"",""RCXVDC7"",14,0)"
^XMB(3.9,87,2,518,0)=" . S RCBILL=$P(RCPDATA,U,3),RCBILL=$P($G(^DGCR(399,RCBILL,0)),U)"
^XMB(3.9,87,2,519,0)="""RTN"",""RCXVDC7"",15,0)"
^XMB(3.9,87,2,520,0)=" . S RCXVDA=RCBILL_RCXVU_$P(RCPDATA,U)_RCXVU_RCPDATE ;BILL#,ITEM,DATE"
^XMB(3.9,87,2,521,0)="""RTN"",""RCXVDC7"",16,0)"
^XMB(3.9,87,2,522,0)=" . S RCNT=RCNT+1"
^XMB(3.9,87,2,523,0)="""RTN"",""RCXVDC7"",17,0)"
^XMB(3.9,87,2,524,0)=" . S ^TMP($J,RCXVBLN,""7-362.5A"",RCNT)=RCXVDA"
^XMB(3.9,87,2,525,0)="""RTN"",""RCXVDC7"",18,0)"
^XMB(3.9,87,2,526,0)=" . Q"
^XMB(3.9,87,2,527,0)="""RTN"",""RCXVDC7"",19,0)"
^XMB(3.9,87,2,528,0)=" Q"
^XMB(3.9,87,2,529,0)="""RTN"",""RCXVDC7"",20,0)"
^XMB(3.9,87,2,530,0)=" ;"
^XMB(3.9,87,2,531,0)="""RTN"",""RCXVDEQ"")"
^XMB(3.9,87,2,532,0)="0^3^B15138965^B14830955"
^XMB(3.9,87,2,533,0)="""RTN"",""RCXVDEQ"",1,0)"
^XMB(3.9,87,2,534,0)="RCXVDEQ ;DAOU/ALA-AR Data Extract Queue Trigger ;02-JUL-03"
^XMB(3.9,87,2,535,0)="""RTN"",""RCXVDEQ"",2,0)"
^XMB(3.9,87,2,536,0)=" ;;4.5;Accounts Receivable;**201,228,240,243**;Mar 20, 1995"
^XMB(3.9,87,2,537,0)="""RTN"",""RCXVDEQ"",3,0)"
^XMB(3.9,87,2,538,0)=" ;"
^XMB(3.9,87,2,539,0)="""RTN"",""RCXVDEQ"",4,0)"
^XMB(3.9,87,2,540,0)=" ;**Program Description**"
^XMB(3.9,87,2,541,0)="""RTN"",""RCXVDEQ"",5,0)"
^XMB(3.9,87,2,542,0)=" ;  This program will log a record who meets the"
^XMB(3.9,87,2,543,0)="""RTN"",""RCXVDEQ"",6,0)"
^XMB(3.9,87,2,544,0)=" ;  selection criteria for the VISTA Data Extract"
^XMB(3.9,87,2,545,0)="""RTN"",""RCXVDEQ"",7,0)"
^XMB(3.9,87,2,546,0)=" ;"
^XMB(3.9,87,2,547,0)="""RTN"",""RCXVDEQ"",8,0)"
^XMB(3.9,87,2,548,0)="AR ;  Triggers from the Accounts Receivable File (#430)"
^XMB(3.9,87,2,549,0)="""RTN"",""RCXVDEQ"",9,0)"
^XMB(3.9,87,2,550,0)=" NEW DFN"
^XMB(3.9,87,2,551,0)="""RTN"",""RCXVDEQ"",10,0)"
^XMB(3.9,87,2,552,0)=" ;"
^XMB(3.9,87,2,553,0)="""RTN"",""RCXVDEQ"",11,0)"
^XMB(3.9,87,2,554,0)=" S RCXVBLN=D0,RCXVSTAT=$P(^PRCA(430,D0,0),U,8)"
^XMB(3.9,87,2,555,0)="""RTN"",""RCXVDEQ"",12,0)"
^XMB(3.9,87,2,556,0)=" I '+$P(^PRCA(430.3,RCXVSTAT,0),U,6) Q"
^XMB(3.9,87,2,557,0)="""RTN"",""RCXVDEQ"",13,0)"
^XMB(3.9,87,2,558,0)=" ;"
^XMB(3.9,87,2,559,0)="""RTN"",""RCXVDEQ"",14,0)"
^XMB(3.9,87,2,560,0)=" S DFN=$P(^PRCA(430,D0,0),U,7)"
^XMB(3.9,87,2,561,0)="""RTN"",""RCXVDEQ"",15,0)"
^XMB(3.9,87,2,562,0)=" D FIL(""D"")"
^XMB(3.9,87,2,563,0)="""RTN"",""RCXVDEQ"",16,0)"
^XMB(3.9,87,2,564,0)=" ;"
^XMB(3.9,87,2,565,0)="""RTN"",""RCXVDEQ"",17,0)"
^XMB(3.9,87,2,566,0)=" K RCXVBLN,RCXVSTAT"
^XMB(3.9,87,2,567,0)="""RTN"",""RCXVDEQ"",18,0)"
^XMB(3.9,87,2,568,0)=" Q"
^XMB(3.9,87,2,569,0)="""RTN"",""RCXVDEQ"",19,0)"
^XMB(3.9,87,2,570,0)=" ;"
^XMB(3.9,87,2,571,0)="""RTN"",""RCXVDEQ"",20,0)"
^XMB(3.9,87,2,572,0)="AT ;  Triggers from the Accounts Receivable Transactions (#433)"
^XMB(3.9,87,2,573,0)="""RTN"",""RCXVDEQ"",21,0)"
^XMB(3.9,87,2,574,0)=" NEW DFN"
^XMB(3.9,87,2,575,0)="""RTN"",""RCXVDEQ"",22,0)"
^XMB(3.9,87,2,576,0)=" ;"
^XMB(3.9,87,2,577,0)="""RTN"",""RCXVDEQ"",23,0)"
^XMB(3.9,87,2,578,0)=" S RCXVBLN=$P($G(^PRCA(433,D0,0)),U,2)"
^XMB(3.9,87,2,579,0)="""RTN"",""RCXVDEQ"",24,0)"
^XMB(3.9,87,2,580,0)=" I RCXVBLN="""" Q"
^XMB(3.9,87,2,581,0)="""RTN"",""RCXVDEQ"",25,0)"
^XMB(3.9,87,2,582,0)=" S RCXVTYP=$P($G(^PRCA(433,D0,1)),U,2)"
^XMB(3.9,87,2,583,0)="""RTN"",""RCXVDEQ"",26,0)"
^XMB(3.9,87,2,584,0)=" I RCXVTYP="""" Q"
^XMB(3.9,87,2,585,0)="""RTN"",""RCXVDEQ"",27,0)"
^XMB(3.9,87,2,586,0)=" ;"
^XMB(3.9,87,2,587,0)="""RTN"",""RCXVDEQ"",28,0)"
^XMB(3.9,87,2,588,0)=" I '+$P(^PRCA(430.3,RCXVTYP,0),U,6) Q"
^XMB(3.9,87,2,589,0)="""RTN"",""RCXVDEQ"",29,0)"
^XMB(3.9,87,2,590,0)=" ;"
^XMB(3.9,87,2,591,0)="""RTN"",""RCXVDEQ"",30,0)"
^XMB(3.9,87,2,592,0)=" S DFN=$P(^PRCA(430,RCXVBLN,0),U,7)"
^XMB(3.9,87,2,593,0)="""RTN"",""RCXVDEQ"",31,0)"
^XMB(3.9,87,2,594,0)=" D FIL(""D"")"
^XMB(3.9,87,2,595,0)="""RTN"",""RCXVDEQ"",32,0)"
^XMB(3.9,87,2,596,0)=" ;"
^XMB(3.9,87,2,597,0)="""RTN"",""RCXVDEQ"",33,0)"
^XMB(3.9,87,2,598,0)=" K RCXVBLN,RCXVTYP"
^XMB(3.9,87,2,599,0)="""RTN"",""RCXVDEQ"",34,0)"
^XMB(3.9,87,2,600,0)=" Q"
^XMB(3.9,87,2,601,0)="""RTN"",""RCXVDEQ"",35,0)"
^XMB(3.9,87,2,602,0)=" ;"
^XMB(3.9,87,2,603,0)="""RTN"",""RCXVDEQ"",36,0)"
^XMB(3.9,87,2,604,0)="FIL(RCXVBTY) ;  File the record into the AR Data Queue File (#348.4)"
^XMB(3.9,87,2,605,0)="""RTN"",""RCXVDEQ"",37,0)"
^XMB(3.9,87,2,606,0)=" ;"
^XMB(3.9,87,2,607,0)="""RTN"",""RCXVDEQ"",38,0)"
^XMB(3.9,87,2,608,0)=" ;  If a test system has 'turned off' extract, quit"
^XMB(3.9,87,2,609,0)="""RTN"",""RCXVDEQ"",39,0)"
^XMB(3.9,87,2,610,0)=" I '$$GET1^DIQ(342,""1,"",20.04,""I"") Q"
^XMB(3.9,87,2,611,0)="""RTN"",""RCXVDEQ"",40,0)"
^XMB(3.9,87,2,612,0)=" ;"
^XMB(3.9,87,2,613,0)="""RTN"",""RCXVDEQ"",41,0)"
^XMB(3.9,87,2,614,0)=" ;  Input Parameter"
^XMB(3.9,87,2,615,0)="""RTN"",""RCXVDEQ"",42,0)"
^XMB(3.9,87,2,616,0)=" ;    RCXVBTY = Batch Type (H=Historical, D=Daily, C=Current Fiscal Year, A=Active,E=FY05 DATA)"
^XMB(3.9,87,2,617,0)="""RTN"",""RCXVDEQ"",43,0)"
^XMB(3.9,87,2,618,0)=" ;    RCXVBLN = Bill IEN"
^XMB(3.9,87,2,619,0)="""RTN"",""RCXVDEQ"",44,0)"
^XMB(3.9,87,2,620,0)=" ;"
^XMB(3.9,87,2,621,0)="""RTN"",""RCXVDEQ"",45,0)"
^XMB(3.9,87,2,622,0)=" N FDA,RCXVCURB,RCVXBNM,RCVXBMX"
^XMB(3.9,87,2,623,0)="""RTN"",""RCXVDEQ"",46,0)"
^XMB(3.9,87,2,624,0)=" ; "
^XMB(3.9,87,2,625,0)="""RTN"",""RCXVDEQ"",47,0)"
^XMB(3.9,87,2,626,0)=" ; Where there has been any update/change to the system "
^XMB(3.9,87,2,627,0)="""RTN"",""RCXVDEQ"",48,0)"
^XMB(3.9,87,2,628,0)=" ; for a particular bill for the previous days business business (T-1). "
^XMB(3.9,87,2,629,0)="""RTN"",""RCXVDEQ"",49,0)"
^XMB(3.9,87,2,630,0)=" ;"
^XMB(3.9,87,2,631,0)="""RTN"",""RCXVDEQ"",50,0)"
^XMB(3.9,87,2,632,0)=" ; Get current batch"
^XMB(3.9,87,2,633,0)="""RTN"",""RCXVDEQ"",51,0)"
^XMB(3.9,87,2,634,0)="BTC K ^TMP(""RCXVA"",$J)"
^XMB(3.9,87,2,635,0)="""RTN"",""RCXVDEQ"",52,0)"
^XMB(3.9,87,2,636,0)=" D FIND^DIC(348.4,"""","""",""P"",DT,"""",""C"",""I $P(^(0),U,4)=RCXVBTY"","""",""^TMP(""""RCXVA"""",$J)"")"
^XMB(3.9,87,2,637,0)="""RTN"",""RCXVDEQ"",53,0)"
^XMB(3.9,87,2,638,0)=" S RCXVCURB=+$P($G(^TMP(""RCXVA"",$J,""DILIST"",0)),U,1)"
^XMB(3.9,87,2,639,0)="""RTN"",""RCXVDEQ"",54,0)"
^XMB(3.9,87,2,640,0)=" S RCVXCTY="""",RCXVBDT="""",RCXQFL=0"
^XMB(3.9,87,2,641,0)="""RTN"",""RCXVDEQ"",55,0)"
^XMB(3.9,87,2,642,0)=" ;"
^XMB(3.9,87,2,643,0)="""RTN"",""RCXVDEQ"",56,0)"
^XMB(3.9,87,2,644,0)=" ;  If there is no batch for today, create a new batch"
^XMB(3.9,87,2,645,0)="""RTN"",""RCXVDEQ"",57,0)"
^XMB(3.9,87,2,646,0)=" I RCXVCURB=0 D NBT G CON:'RCXQFL,BTC"
^XMB(3.9,87,2,647,0)="""RTN"",""RCXVDEQ"",58,0)"
^XMB(3.9,87,2,648,0)=" ;"
^XMB(3.9,87,2,649,0)="""RTN"",""RCXVDEQ"",59,0)"
^XMB(3.9,87,2,650,0)=" ; Check to see if batch is full."
^XMB(3.9,87,2,651,0)="""RTN"",""RCXVDEQ"",60,0)"
^XMB(3.9,87,2,652,0)=" S RCXVCURB=$P(^TMP(""RCXVA"",$J,""DILIST"",RCXVCURB,0),U,1)"
^XMB(3.9,87,2,653,0)="""RTN"",""RCXVDEQ"",61,0)"
^XMB(3.9,87,2,654,0)=" I RCXVCURB'=0 D"
^XMB(3.9,87,2,655,0)="""RTN"",""RCXVDEQ"",62,0)"
^XMB(3.9,87,2,656,0)=" . S RCVXBNM=$P($G(^RCXV(RCXVCURB,0)),U,7) ; Number of record in batch"
^XMB(3.9,87,2,657,0)="""RTN"",""RCXVDEQ"",63,0)"
^XMB(3.9,87,2,658,0)=" . S RCVXCTY=$P($G(^RCXV(RCXVCURB,0)),U,4) ; Current batch type"
^XMB(3.9,87,2,659,0)="""RTN"",""RCXVDEQ"",64,0)"
^XMB(3.9,87,2,660,0)=" . S RCXVBDT=$P($G(^RCXV(RCXVCURB,0)),U,2) ; Batch Date"
^XMB(3.9,87,2,661,0)="""RTN"",""RCXVDEQ"",65,0)"
^XMB(3.9,87,2,662,0)=" . S RCXVBST=$P($G(^RCXV(RCXVCURB,0)),U,3) ; Batch Status"
^XMB(3.9,87,2,663,0)="""RTN"",""RCXVDEQ"",66,0)"
^XMB(3.9,87,2,664,0)=" S RCVXBMX=$P($G(^RC(342,1,20)),U,5) ; Max. # of record per batch"
^XMB(3.9,87,2,665,0)="""RTN"",""RCXVDEQ"",67,0)"
^XMB(3.9,87,2,666,0)=" ;  OR if the number of records in batch exceeds the"
^XMB(3.9,87,2,667,0)="""RTN"",""RCXVDEQ"",68,0)"
^XMB(3.9,87,2,668,0)=" ;  maximum number of records per batch --> create new batch"
^XMB(3.9,87,2,669,0)="""RTN"",""RCXVDEQ"",69,0)"
^XMB(3.9,87,2,670,0)=" I (RCVXBNM>RCVXBMX)!(RCVXBNM=RCVXBMX)!(RCXVBST=""T"")!(RCXVBST=""C"") D NBT G BTC:RCXQFL=1"
^XMB(3.9,87,2,671,0)="""RTN"",""RCXVDEQ"",70,0)"
^XMB(3.9,87,2,672,0)=" ;"
^XMB(3.9,87,2,673,0)="""RTN"",""RCXVDEQ"",71,0)"
^XMB(3.9,87,2,674,0)="CON ;  Continue with updating the AR Data Queue file"
^XMB(3.9,87,2,675,0)="""RTN"",""RCXVDEQ"",72,0)"
^XMB(3.9,87,2,676,0)=" S RCXVDA=$S($G(RCXVCURB)'=0:RCXVCURB,1:RCXVDA)"
^XMB(3.9,87,2,677,0)="""RTN"",""RCXVDEQ"",73,0)"
^XMB(3.9,87,2,678,0)=" ;"
^XMB(3.9,87,2,679,0)="""RTN"",""RCXVDEQ"",74,0)"
^XMB(3.9,87,2,680,0)=" ;  If the Batch Type is 'R', quit"
^XMB(3.9,87,2,681,0)="""RTN"",""RCXVDEQ"",75,0)"
^XMB(3.9,87,2,682,0)=" I RCXVBTY=""R"" Q"
^XMB(3.9,87,2,683,0)="""RTN"",""RCXVDEQ"",76,0)"
^XMB(3.9,87,2,684,0)=" ;"
^XMB(3.9,87,2,685,0)="""RTN"",""RCXVDEQ"",77,0)"
^XMB(3.9,87,2,686,0)=" ;  If this bill number already exists in this batch, quit"
^XMB(3.9,87,2,687,0)="""RTN"",""RCXVDEQ"",78,0)"
^XMB(3.9,87,2,688,0)=" I $D(^RCXV(RCXVDA,1,RCXVBLN)) Q"
^XMB(3.9,87,2,689,0)="""RTN"",""RCXVDEQ"",79,0)"
^XMB(3.9,87,2,690,0)=" ;"
^XMB(3.9,87,2,691,0)="""RTN"",""RCXVDEQ"",80,0)"
^XMB(3.9,87,2,692,0)=" ; File record"
^XMB(3.9,87,2,693,0)="""RTN"",""RCXVDEQ"",81,0)"
^XMB(3.9,87,2,694,0)=" NEW DIC,DIE,X,DA,DLAYGO,Y,DINUM"
^XMB(3.9,87,2,695,0)="""RTN"",""RCXVDEQ"",82,0)"
^XMB(3.9,87,2,696,0)=" S DA(1)=RCXVDA,DIC=""^RCXV(""_DA(1)_"",1,"",DIE=DIC,(X,DINUM)=RCXVBLN"
^XMB(3.9,87,2,697,0)="""RTN"",""RCXVDEQ"",83,0)"
^XMB(3.9,87,2,698,0)=" S DLAYGO=348.41,DIC(0)=""L"",DIC(""P"")=DLAYGO"
^XMB(3.9,87,2,699,0)="""RTN"",""RCXVDEQ"",84,0)"
^XMB(3.9,87,2,700,0)=" I '$D(^RCXV(DA(1),1,0)) S ^RCXV(DA(1),1,0)=""^348.41^^"""
^XMB(3.9,87,2,701,0)="""RTN"",""RCXVDEQ"",85,0)"
^XMB(3.9,87,2,702,0)=" K DO D FILE^DICN K DO"
^XMB(3.9,87,2,703,0)="""RTN"",""RCXVDEQ"",86,0)"
^XMB(3.9,87,2,704,0)=" ;"
^XMB(3.9,87,2,705,0)="""RTN"",""RCXVDEQ"",87,0)"
^XMB(3.9,87,2,706,0)=" S RCUPD(348.4,RCXVDA_"","",.07)=(RCVXBNM+1)"
^XMB(3.9,87,2,707,0)="""RTN"",""RCXVDEQ"",88,0)"
^XMB(3.9,87,2,708,0)=" S RCUPD(348.41,RCXVBLN_"",""_RCXVDA_"","",.02)=$G(DFN)"
^XMB(3.9,87,2,709,0)="""RTN"",""RCXVDEQ"",89,0)"
^XMB(3.9,87,2,710,0)=" D FILE^DIE("""",""RCUPD"",""RCXVERR"")"
^XMB(3.9,87,2,711,0)="""RTN"",""RCXVDEQ"",90,0)"
^XMB(3.9,87,2,712,0)=" ;"
^XMB(3.9,87,2,713,0)="""RTN"",""RCXVDEQ"",91,0)"
^XMB(3.9,87,2,714,0)=" K RCXVDA,RCVXBNM,RCXVBLN,RCXVCURB,RCXVBTY,RCVXBMX,RCVXCTY,RCXVBDT"
^XMB(3.9,87,2,715,0)="""RTN"",""RCXVDEQ"",92,0)"
^XMB(3.9,87,2,716,0)=" K ^TMP(""RCXVA"",$J),IENARRAY,RCXVBST,RCUPD,RCXVERR,RCXQFL"
^XMB(3.9,87,2,717,0)="""RTN"",""RCXVDEQ"",93,0)"
^XMB(3.9,87,2,718,0)=" Q"
^XMB(3.9,87,2,719,0)="""RTN"",""RCXVDEQ"",94,0)"
^XMB(3.9,87,2,720,0)=" ;"
^XMB(3.9,87,2,721,0)="""RTN"",""RCXVDEQ"",95,0)"
^XMB(3.9,87,2,722,0)="NBT ;  Create a new batch"
^XMB(3.9,87,2,723,0)="""RTN"",""RCXVDEQ"",96,0)"
^XMB(3.9,87,2,724,0)=" N $ES,$ET"
^XMB(3.9,87,2,725,0)="""RTN"",""RCXVDEQ"",97,0)"
^XMB(3.9,87,2,726,0)=" S $ET=""D ER^RCXVDEQ"""
^XMB(3.9,87,2,727,0)="""RTN"",""RCXVDEQ"",98,0)"
^XMB(3.9,87,2,728,0)=" L +^RCXVLK:1 E  S RCXQFL=1 Q"
^XMB(3.9,87,2,729,0)="""RTN"",""RCXVDEQ"",99,0)"
^XMB(3.9,87,2,730,0)=" S RCXVCURB=$P(^RCXV(0),U,3)+1"
^XMB(3.9,87,2,731,0)="""RTN"",""RCXVDEQ"",100,0)"
^XMB(3.9,87,2,732,0)=" S RCVXBNM=0"
^XMB(3.9,87,2,733,0)="""RTN"",""RCXVDEQ"",101,0)"
^XMB(3.9,87,2,734,0)=" S FDA(348.4,""+1,"",.01)=RCXVCURB"
^XMB(3.9,87,2,735,0)="""RTN"",""RCXVDEQ"",102,0)"
^XMB(3.9,87,2,736,0)=" S FDA(348.4,""+1,"",.02)=DT"
^XMB(3.9,87,2,737,0)="""RTN"",""RCXVDEQ"",103,0)"
^XMB(3.9,87,2,738,0)=" S FDA(348.4,""+1,"",.03)=""P"""
^XMB(3.9,87,2,739,0)="""RTN"",""RCXVDEQ"",104,0)"
^XMB(3.9,87,2,740,0)=" S FDA(348.4,""+1,"",.04)=RCXVBTY"
^XMB(3.9,87,2,741,0)="""RTN"",""RCXVDEQ"",105,0)"
^XMB(3.9,87,2,742,0)=" S FDA(348.4,""+1,"",.07)=RCVXBNM"
^XMB(3.9,87,2,743,0)="""RTN"",""RCXVDEQ"",106,0)"
^XMB(3.9,87,2,744,0)=" D UPDATE^DIE("""",""FDA"",""IENARRAY"",""ERROR"")"
^XMB(3.9,87,2,745,0)="""RTN"",""RCXVDEQ"",107,0)"
^XMB(3.9,87,2,746,0)=" I '$D(ERROR) S RCXVDA=$G(IENARRAY(1))"
^XMB(3.9,87,2,747,0)="""RTN"",""RCXVDEQ"",108,0)"
^XMB(3.9,87,2,748,0)=" L -^RCXVLK"
^XMB(3.9,87,2,749,0)="""RTN"",""RCXVDEQ"",109,0)"
^XMB(3.9,87,2,750,0)=" Q"
^XMB(3.9,87,2,751,0)="""RTN"",""RCXVDEQ"",110,0)"
^XMB(3.9,87,2,752,0)=" ;"
^XMB(3.9,87,2,753,0)="""RTN"",""RCXVDEQ"",111,0)"
^XMB(3.9,87,2,754,0)="UDR ;  Update Deposits/Receipts subfile"
^XMB(3.9,87,2,755,0)="""RTN"",""RCXVDEQ"",112,0)"
^XMB(3.9,87,2,756,0)=" ; If this batch payment number already exists in this batch, quit"
^XMB(3.9,87,2,757,0)="""RTN"",""RCXVDEQ"",113,0)"
^XMB(3.9,87,2,758,0)=" I $D(^RCXV(RCXVDA,2,RCXVD0)) Q"
^XMB(3.9,87,2,759,0)="""RTN"",""RCXVDEQ"",114,0)"
^XMB(3.9,87,2,760,0)=" ;"
^XMB(3.9,87,2,761,0)="""RTN"",""RCXVDEQ"",115,0)"
^XMB(3.9,87,2,762,0)=" ; File record"
^XMB(3.9,87,2,763,0)="""RTN"",""RCXVDEQ"",116,0)"
^XMB(3.9,87,2,764,0)=" NEW DIC,DIE,X,DA,DLAYGO,Y,DINUM"
^XMB(3.9,87,2,765,0)="""RTN"",""RCXVDEQ"",117,0)"
^XMB(3.9,87,2,766,0)=" S DA(1)=RCXVDA,DIC=""^RCXV(""_DA(1)_"",2,"",DIE=DIC,(X,DINUM)=RCXVD0"
^XMB(3.9,87,2,767,0)="""RTN"",""RCXVDEQ"",118,0)"
^XMB(3.9,87,2,768,0)=" S DLAYGO=348.42,DIC(0)=""L"",DIC(""P"")=DLAYGO"
^XMB(3.9,87,2,769,0)="""RTN"",""RCXVDEQ"",119,0)"
^XMB(3.9,87,2,770,0)=" I '$D(^RCXV(DA(1),2,0)) S ^RCXV(DA(1),2,0)=""^348.42^^"""
^XMB(3.9,87,2,771,0)="""RTN"",""RCXVDEQ"",120,0)"
^XMB(3.9,87,2,772,0)=" K DO D FILE^DICN K DO"
^XMB(3.9,87,2,773,0)="""RTN"",""RCXVDEQ"",121,0)"
^XMB(3.9,87,2,774,0)=" ;"
^XMB(3.9,87,2,775,0)="""RTN"",""RCXVDEQ"",122,0)"
^XMB(3.9,87,2,776,0)=" S RCUPD(348.4,RCXVDA_"","",.07)=RCXVRNUM"
^XMB(3.9,87,2,777,0)="""RTN"",""RCXVDEQ"",123,0)"
^XMB(3.9,87,2,778,0)=" D FILE^DIE("""",""RCUPD"",""RCXVERR"")"
^XMB(3.9,87,2,779,0)="""RTN"",""RCXVDEQ"",124,0)"
^XMB(3.9,87,2,780,0)=" K RCXVERR,RCUPD"
^XMB(3.9,87,2,781,0)="""RTN"",""RCXVDEQ"",125,0)"
^XMB(3.9,87,2,782,0)=" Q"
^XMB(3.9,87,2,783,0)="""RTN"",""RCXVDEQ"",126,0)"
^XMB(3.9,87,2,784,0)=" ;"
^XMB(3.9,87,2,785,0)="""RTN"",""RCXVDEQ"",127,0)"
^XMB(3.9,87,2,786,0)="ER ; Unlock and log error"
^XMB(3.9,87,2,787,0)="""RTN"",""RCXVDEQ"",128,0)"
^XMB(3.9,87,2,788,0)=" L -^RCXVLK"
^XMB(3.9,87,2,789,0)="""RTN"",""RCXVDEQ"",129,0)"
^XMB(3.9,87,2,790,0)=" D ^%ZTER"
^XMB(3.9,87,2,791,0)="""RTN"",""RCXVDEQ"",130,0)"
^XMB(3.9,87,2,792,0)=" D UNWIND^%ZTER"
^XMB(3.9,87,2,793,0)="""RTN"",""RCXVDEQ"",131,0)"
^XMB(3.9,87,2,794,0)=" Q"
^XMB(3.9,87,2,795,0)="""VER"")"
^XMB(3.9,87,2,796,0)="8.0^22.0"
^XMB(3.9,87,2,797,0)="""BLD"",6617,6)"
^XMB(3.9,87,2,798,0)="^218"
^XMB(3.9,87,2,799,0)="$END KID PRCA*4.5*243"
^XMB(3.9,87,6,0)="^3.911A^2^2"
^XMB(3.9,87,6,1,0)="POSTMASTER"
^XMB(3.9,87,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,87,6,"B","POSTMASTER",1)=""
^XMB(3.9,87,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,88,0)="PRCA-4P5_SEQ-219_PAT-232.KID^.5^3061008.015739^^^^K"
^XMB(3.9,88,.6)="3061008"
^XMB(3.9,88,1,0)="^3.91A^2^2"
^XMB(3.9,88,1,1,0)=".5^0^3061008.015739^^^^^^^3061008.015739"
^XMB(3.9,88,1,2,0)="1^0^3061008.024149^^^^^^^3061008.024149"
^XMB(3.9,88,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,88,1,"C",.5,1)=""
^XMB(3.9,88,1,"C",1,2)=""
^XMB(3.9,88,2,0)="^^1727^1727^3061008"
^XMB(3.9,88,2,1,0)="$TXT Released PRCA*4.5*232 SEQ #219"
^XMB(3.9,88,2,2,0)="Extracted from mail message"
^XMB(3.9,88,2,3,0)="$END TXT"
^XMB(3.9,88,2,4,0)="$KID PRCA*4.5*232"
^XMB(3.9,88,2,5,0)="**INSTALL NAME**"
^XMB(3.9,88,2,6,0)="PRCA*4.5*232"
^XMB(3.9,88,2,7,0)="""BLD"",6160,0)"
^XMB(3.9,88,2,8,0)="PRCA*4.5*232^ACCOUNTS RECEIVABLE^0^3060718^y"
^XMB(3.9,88,2,9,0)="""BLD"",6160,1,0)"
^XMB(3.9,88,2,10,0)="^^1^1^3060202^"
^XMB(3.9,88,2,11,0)="""BLD"",6160,1,1,0)"
^XMB(3.9,88,2,12,0)="AR IB EXTRACT PHASE II PART 2"
^XMB(3.9,88,2,13,0)="""BLD"",6160,4,0)"
^XMB(3.9,88,2,14,0)="^9.64PA^348.4^1"
^XMB(3.9,88,2,15,0)="""BLD"",6160,4,348.4,0)"
^XMB(3.9,88,2,16,0)="348.4"
^XMB(3.9,88,2,17,0)="""BLD"",6160,4,348.4,222)"
^XMB(3.9,88,2,18,0)="y^y^f^^^^n^^n"
^XMB(3.9,88,2,19,0)="""BLD"",6160,4,348.4,224)"
^XMB(3.9,88,2,20,0)=""
^XMB(3.9,88,2,21,0)="""BLD"",6160,4,""B"",348.4,348.4)"
^XMB(3.9,88,2,22,0)=""
^XMB(3.9,88,2,23,0)="""BLD"",6160,""ABPKG"")"
^XMB(3.9,88,2,24,0)="n"
^XMB(3.9,88,2,25,0)="""BLD"",6160,""INID"")"
^XMB(3.9,88,2,26,0)="^n"
^XMB(3.9,88,2,27,0)="""BLD"",6160,""INIT"")"
^XMB(3.9,88,2,28,0)="EN^RCXVP232"
^XMB(3.9,88,2,29,0)="""BLD"",6160,""KRN"",0)"
^XMB(3.9,88,2,30,0)="^9.67PA^8989.52^19"
^XMB(3.9,88,2,31,0)="""BLD"",6160,""KRN"",.4,0)"
^XMB(3.9,88,2,32,0)=".4"
^XMB(3.9,88,2,33,0)="""BLD"",6160,""KRN"",.4,""NM"",0)"
^XMB(3.9,88,2,34,0)="^9.68A^^"
^XMB(3.9,88,2,35,0)="""BLD"",6160,""KRN"",.401,0)"
^XMB(3.9,88,2,36,0)=".401"
^XMB(3.9,88,2,37,0)="""BLD"",6160,""KRN"",.402,0)"
^XMB(3.9,88,2,38,0)=".402"
^XMB(3.9,88,2,39,0)="""BLD"",6160,""KRN"",.403,0)"
^XMB(3.9,88,2,40,0)=".403"
^XMB(3.9,88,2,41,0)="""BLD"",6160,""KRN"",.5,0)"
^XMB(3.9,88,2,42,0)=".5"
^XMB(3.9,88,2,43,0)="""BLD"",6160,""KRN"",.84,0)"
^XMB(3.9,88,2,44,0)=".84"
^XMB(3.9,88,2,45,0)="""BLD"",6160,""KRN"",3.6,0)"
^XMB(3.9,88,2,46,0)="3.6"
^XMB(3.9,88,2,47,0)="""BLD"",6160,""KRN"",3.8,0)"
^XMB(3.9,88,2,48,0)="3.8"
^XMB(3.9,88,2,49,0)="""BLD"",6160,""KRN"",9.2,0)"
^XMB(3.9,88,2,50,0)="9.2"
^XMB(3.9,88,2,51,0)="""BLD"",6160,""KRN"",9.8,0)"
^XMB(3.9,88,2,52,0)="9.8"
^XMB(3.9,88,2,53,0)="""BLD"",6160,""KRN"",9.8,""NM"",0)"
^XMB(3.9,88,2,54,0)="^9.68A^5^5"
^XMB(3.9,88,2,55,0)="""BLD"",6160,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,88,2,56,0)="RCXVDEQ^^0^B15467596"
^XMB(3.9,88,2,57,0)="""BLD"",6160,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,88,2,58,0)="RCXVTSK^^0^B42720951"
^XMB(3.9,88,2,59,0)="""BLD"",6160,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,88,2,60,0)="RCXVDC10^^0^B8113955"
^XMB(3.9,88,2,61,0)="""BLD"",6160,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,88,2,62,0)="RCXVP232^^0^B46691"
^XMB(3.9,88,2,63,0)="""BLD"",6160,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,88,2,64,0)="RCXVDC3^^0^B26462535"
^XMB(3.9,88,2,65,0)="""BLD"",6160,""KRN"",9.8,""NM"",""B"",""RCXVDC10"",3)"
^XMB(3.9,88,2,66,0)=""
^XMB(3.9,88,2,67,0)="""BLD"",6160,""KRN"",9.8,""NM"",""B"",""RCXVDC3"",5)"
^XMB(3.9,88,2,68,0)=""
^XMB(3.9,88,2,69,0)="""BLD"",6160,""KRN"",9.8,""NM"",""B"",""RCXVDEQ"",1)"
^XMB(3.9,88,2,70,0)=""
^XMB(3.9,88,2,71,0)="""BLD"",6160,""KRN"",9.8,""NM"",""B"",""RCXVP232"",4)"
^XMB(3.9,88,2,72,0)=""
^XMB(3.9,88,2,73,0)="""BLD"",6160,""KRN"",9.8,""NM"",""B"",""RCXVTSK"",2)"
^XMB(3.9,88,2,74,0)=""
^XMB(3.9,88,2,75,0)="""BLD"",6160,""KRN"",19,0)"
^XMB(3.9,88,2,76,0)="19"
^XMB(3.9,88,2,77,0)="""BLD"",6160,""KRN"",19.1,0)"
^XMB(3.9,88,2,78,0)="19.1"
^XMB(3.9,88,2,79,0)="""BLD"",6160,""KRN"",101,0)"
^XMB(3.9,88,2,80,0)="101"
^XMB(3.9,88,2,81,0)="""BLD"",6160,""KRN"",409.61,0)"
^XMB(3.9,88,2,82,0)="409.61"
^XMB(3.9,88,2,83,0)="""BLD"",6160,""KRN"",771,0)"
^XMB(3.9,88,2,84,0)="771"
^XMB(3.9,88,2,85,0)="""BLD"",6160,""KRN"",870,0)"
^XMB(3.9,88,2,86,0)="870"
^XMB(3.9,88,2,87,0)="""BLD"",6160,""KRN"",8989.51,0)"
^XMB(3.9,88,2,88,0)="8989.51"
^XMB(3.9,88,2,89,0)="""BLD"",6160,""KRN"",8989.52,0)"
^XMB(3.9,88,2,90,0)="8989.52"
^XMB(3.9,88,2,91,0)="""BLD"",6160,""KRN"",8994,0)"
^XMB(3.9,88,2,92,0)="8994"
^XMB(3.9,88,2,93,0)="""BLD"",6160,""KRN"",""B"",.4,.4)"
^XMB(3.9,88,2,94,0)=""
^XMB(3.9,88,2,95,0)="""BLD"",6160,""KRN"",""B"",.401,.401)"
^XMB(3.9,88,2,96,0)=""
^XMB(3.9,88,2,97,0)="""BLD"",6160,""KRN"",""B"",.402,.402)"
^XMB(3.9,88,2,98,0)=""
^XMB(3.9,88,2,99,0)="""BLD"",6160,""KRN"",""B"",.403,.403)"
^XMB(3.9,88,2,100,0)=""
^XMB(3.9,88,2,101,0)="""BLD"",6160,""KRN"",""B"",.5,.5)"
^XMB(3.9,88,2,102,0)=""
^XMB(3.9,88,2,103,0)="""BLD"",6160,""KRN"",""B"",.84,.84)"
^XMB(3.9,88,2,104,0)=""
^XMB(3.9,88,2,105,0)="""BLD"",6160,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,88,2,106,0)=""
^XMB(3.9,88,2,107,0)="""BLD"",6160,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,88,2,108,0)=""
^XMB(3.9,88,2,109,0)="""BLD"",6160,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,88,2,110,0)=""
^XMB(3.9,88,2,111,0)="""BLD"",6160,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,88,2,112,0)=""
^XMB(3.9,88,2,113,0)="""BLD"",6160,""KRN"",""B"",19,19)"
^XMB(3.9,88,2,114,0)=""
^XMB(3.9,88,2,115,0)="""BLD"",6160,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,88,2,116,0)=""
^XMB(3.9,88,2,117,0)="""BLD"",6160,""KRN"",""B"",101,101)"
^XMB(3.9,88,2,118,0)=""
^XMB(3.9,88,2,119,0)="""BLD"",6160,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,88,2,120,0)=""
^XMB(3.9,88,2,121,0)="""BLD"",6160,""KRN"",""B"",771,771)"
^XMB(3.9,88,2,122,0)=""
^XMB(3.9,88,2,123,0)="""BLD"",6160,""KRN"",""B"",870,870)"
^XMB(3.9,88,2,124,0)=""
^XMB(3.9,88,2,125,0)="""BLD"",6160,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,88,2,126,0)=""
^XMB(3.9,88,2,127,0)="""BLD"",6160,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,88,2,128,0)=""
^XMB(3.9,88,2,129,0)="""BLD"",6160,""KRN"",""B"",8994,8994)"
^XMB(3.9,88,2,130,0)=""
^XMB(3.9,88,2,131,0)="""BLD"",6160,""QUES"",0)"
^XMB(3.9,88,2,132,0)="^9.62^^"
^XMB(3.9,88,2,133,0)="""BLD"",6160,""REQB"",0)"
^XMB(3.9,88,2,134,0)="^9.611^6^6"
^XMB(3.9,88,2,135,0)="""BLD"",6160,""REQB"",1,0)"
^XMB(3.9,88,2,136,0)="PRCA*4.5*201^2"
^XMB(3.9,88,2,137,0)="""BLD"",6160,""REQB"",2,0)"
^XMB(3.9,88,2,138,0)="PRCA*4.5*228^2"
^XMB(3.9,88,2,139,0)="""BLD"",6160,""REQB"",3,0)"
^XMB(3.9,88,2,140,0)="IB*2.0*233^2"
^XMB(3.9,88,2,141,0)="""BLD"",6160,""REQB"",4,0)"
^XMB(3.9,88,2,142,0)="IB*2.0*301^2"
^XMB(3.9,88,2,143,0)="""BLD"",6160,""REQB"",5,0)"
^XMB(3.9,88,2,144,0)="IB*2.0*305^2"
^XMB(3.9,88,2,145,0)="""BLD"",6160,""REQB"",6,0)"
^XMB(3.9,88,2,146,0)="PRCA*4.5*243^2"
^XMB(3.9,88,2,147,0)="""BLD"",6160,""REQB"",""B"",""IB*2.0*233"",3)"
^XMB(3.9,88,2,148,0)=""
^XMB(3.9,88,2,149,0)="""BLD"",6160,""REQB"",""B"",""IB*2.0*301"",4)"
^XMB(3.9,88,2,150,0)=""
^XMB(3.9,88,2,151,0)="""BLD"",6160,""REQB"",""B"",""IB*2.0*305"",5)"
^XMB(3.9,88,2,152,0)=""
^XMB(3.9,88,2,153,0)="""BLD"",6160,""REQB"",""B"",""PRCA*4.5*201"",1)"
^XMB(3.9,88,2,154,0)=""
^XMB(3.9,88,2,155,0)="""BLD"",6160,""REQB"",""B"",""PRCA*4.5*228"",2)"
^XMB(3.9,88,2,156,0)=""
^XMB(3.9,88,2,157,0)="""BLD"",6160,""REQB"",""B"",""PRCA*4.5*243"",6)"
^XMB(3.9,88,2,158,0)=""
^XMB(3.9,88,2,159,0)="""FIA"",348.4)"
^XMB(3.9,88,2,160,0)="AR DATA QUEUE"
^XMB(3.9,88,2,161,0)="""FIA"",348.4,0)"
^XMB(3.9,88,2,162,0)="^RCXV("
^XMB(3.9,88,2,163,0)="""FIA"",348.4,0,0)"
^XMB(3.9,88,2,164,0)="348.4"
^XMB(3.9,88,2,165,0)="""FIA"",348.4,0,1)"
^XMB(3.9,88,2,166,0)="y^y^f^^^^n^^n"
^XMB(3.9,88,2,167,0)="""FIA"",348.4,0,10)"
^XMB(3.9,88,2,168,0)=""
^XMB(3.9,88,2,169,0)="""FIA"",348.4,0,11)"
^XMB(3.9,88,2,170,0)=""
^XMB(3.9,88,2,171,0)="""FIA"",348.4,0,""RLRO"")"
^XMB(3.9,88,2,172,0)=""
^XMB(3.9,88,2,173,0)="""FIA"",348.4,0,""VR"")"
^XMB(3.9,88,2,174,0)="4.5^PRCA"
^XMB(3.9,88,2,175,0)="""FIA"",348.4,348.4)"
^XMB(3.9,88,2,176,0)="0"
^XMB(3.9,88,2,177,0)="""FIA"",348.4,348.41)"
^XMB(3.9,88,2,178,0)="0"
^XMB(3.9,88,2,179,0)="""FIA"",348.4,348.42)"
^XMB(3.9,88,2,180,0)="0"
^XMB(3.9,88,2,181,0)="""FIA"",348.4,348.43)"
^XMB(3.9,88,2,182,0)="0"
^XMB(3.9,88,2,183,0)="""INIT"")"
^XMB(3.9,88,2,184,0)="EN^RCXVP232"
^XMB(3.9,88,2,185,0)="""MBREQ"")"
^XMB(3.9,88,2,186,0)="0"
^XMB(3.9,88,2,187,0)="""PKG"",142,-1)"
^XMB(3.9,88,2,188,0)="1^1"
^XMB(3.9,88,2,189,0)="""PKG"",142,0)"
^XMB(3.9,88,2,190,0)="ACCOUNTS RECEIVABLE^PRCA^BILL COLLECTIONS"
^XMB(3.9,88,2,191,0)="""PKG"",142,20,0)"
^XMB(3.9,88,2,192,0)="^9.402P^1^1"
^XMB(3.9,88,2,193,0)="""PKG"",142,20,1,0)"
^XMB(3.9,88,2,194,0)="2^^PRCAMRG"
^XMB(3.9,88,2,195,0)="""PKG"",142,20,1,1)"
^XMB(3.9,88,2,196,0)=""
^XMB(3.9,88,2,197,0)="""PKG"",142,20,""B"",2,1)"
^XMB(3.9,88,2,198,0)=""
^XMB(3.9,88,2,199,0)="""PKG"",142,22,0)"
^XMB(3.9,88,2,200,0)="^9.49I^1^1"
^XMB(3.9,88,2,201,0)="""PKG"",142,22,1,0)"
^XMB(3.9,88,2,202,0)="4.5^^2950320"
^XMB(3.9,88,2,203,0)="""PKG"",142,22,1,""PAH"",1,0)"
^XMB(3.9,88,2,204,0)="232^3060718^1258"
^XMB(3.9,88,2,205,0)="""PKG"",142,22,1,""PAH"",1,1,0)"
^XMB(3.9,88,2,206,0)="^^1^1^3060718"
^XMB(3.9,88,2,207,0)="""PKG"",142,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,88,2,208,0)="AR IB EXTRACT PHASE II PART 2"
^XMB(3.9,88,2,209,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,88,2,210,0)="Y"
^XMB(3.9,88,2,211,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,88,2,212,0)="^D REP^XPDH"
^XMB(3.9,88,2,213,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,88,2,214,0)="Shall I write over your |FLAG| File"
^XMB(3.9,88,2,215,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,88,2,216,0)="YES"
^XMB(3.9,88,2,217,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,88,2,218,0)="D XPF1^XPDIQ"
^XMB(3.9,88,2,219,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,88,2,220,0)="Y"
^XMB(3.9,88,2,221,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,88,2,222,0)="^D DTA^XPDH"
^XMB(3.9,88,2,223,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,88,2,224,0)="Want my data |FLAG| yours"
^XMB(3.9,88,2,225,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,88,2,226,0)="YES"
^XMB(3.9,88,2,227,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,88,2,228,0)="D XPF2^XPDIQ"
^XMB(3.9,88,2,229,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,88,2,230,0)="YO"
^XMB(3.9,88,2,231,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,88,2,232,0)="^D INHIBIT^XPDH"
^XMB(3.9,88,2,233,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,88,2,234,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,88,2,235,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,88,2,236,0)="YES"
^XMB(3.9,88,2,237,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,88,2,238,0)="D XPI1^XPDIQ"
^XMB(3.9,88,2,239,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,88,2,240,0)="PO^VA(200,:EM"
^XMB(3.9,88,2,241,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,88,2,242,0)="^D MG^XPDH"
^XMB(3.9,88,2,243,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,88,2,244,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,88,2,245,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,88,2,246,0)=""
^XMB(3.9,88,2,247,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,88,2,248,0)="D XPM1^XPDIQ"
^XMB(3.9,88,2,249,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,88,2,250,0)="Y"
^XMB(3.9,88,2,251,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,88,2,252,0)="^D MENU^XPDH"
^XMB(3.9,88,2,253,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,88,2,254,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,88,2,255,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,88,2,256,0)="YES"
^XMB(3.9,88,2,257,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,88,2,258,0)="D XPO1^XPDIQ"
^XMB(3.9,88,2,259,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,88,2,260,0)="Y"
^XMB(3.9,88,2,261,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,88,2,262,0)="^D OPT^XPDH"
^XMB(3.9,88,2,263,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,88,2,264,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,88,2,265,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,88,2,266,0)="YES"
^XMB(3.9,88,2,267,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,88,2,268,0)="D XPZ1^XPDIQ"
^XMB(3.9,88,2,269,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,88,2,270,0)="Y"
^XMB(3.9,88,2,271,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,88,2,272,0)="^D RTN^XPDH"
^XMB(3.9,88,2,273,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,88,2,274,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,88,2,275,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,88,2,276,0)="NO"
^XMB(3.9,88,2,277,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,88,2,278,0)="D XPZ2^XPDIQ"
^XMB(3.9,88,2,279,0)="""RTN"")"
^XMB(3.9,88,2,280,0)="5"
^XMB(3.9,88,2,281,0)="""RTN"",""RCXVDC10"")"
^XMB(3.9,88,2,282,0)="0^3^B8113955^n/a"
^XMB(3.9,88,2,283,0)="""RTN"",""RCXVDC10"",1,0)"
^XMB(3.9,88,2,284,0)="RCXVDC10 ;ALBANY OI@ALTOONA,PA/TJK-AR Data Extraction Data Creation ;08/18/05"
^XMB(3.9,88,2,285,0)="""RTN"",""RCXVDC10"",2,0)"
^XMB(3.9,88,2,286,0)=" ;;4.5;Accounts Receivable;**232**;Mar 20, 1995"
^XMB(3.9,88,2,287,0)="""RTN"",""RCXVDC10"",3,0)"
^XMB(3.9,88,2,288,0)=" ;"
^XMB(3.9,88,2,289,0)="""RTN"",""RCXVDC10"",4,0)"
^XMB(3.9,88,2,290,0)=" ;  Monthly transmissions "
^XMB(3.9,88,2,291,0)="""RTN"",""RCXVDC10"",5,0)"
^XMB(3.9,88,2,292,0)=" Q"
^XMB(3.9,88,2,293,0)="""RTN"",""RCXVDC10"",6,0)"
^XMB(3.9,88,2,294,0)="EN ;Entry point from nightly process to set up monthly batch jobs"
^XMB(3.9,88,2,295,0)="""RTN"",""RCXVDC10"",7,0)"
^XMB(3.9,88,2,296,0)=" N RCXVMO,RCXVDA,IENARRAY,RCDA"
^XMB(3.9,88,2,297,0)="""RTN"",""RCXVDC10"",8,0)"
^XMB(3.9,88,2,298,0)=" S X1=$E(DT,1,5)_""01"",X2=-1 D C^%DTC S RCXVMO=$E(X,1,5)_""00"""
^XMB(3.9,88,2,299,0)="""RTN"",""RCXVDC10"",9,0)"
^XMB(3.9,88,2,300,0)="EN1 ;branch point for historical job"
^XMB(3.9,88,2,301,0)="""RTN"",""RCXVDC10"",10,0)"
^XMB(3.9,88,2,302,0)=" F RCXVBTY=""P"",""B"",""I"" K RCXVDA,IENARRAY D NBT^RCXVDEQ S RCDA(RCXVBTY)=RCXVDA"
^XMB(3.9,88,2,303,0)="""RTN"",""RCXVDC10"",11,0)"
^XMB(3.9,88,2,304,0)=" S RCXVDA=RCDA(""I""),$P(^RCXV(RCXVDA,0),U,10)=RCXVMO D D3547A"
^XMB(3.9,88,2,305,0)="""RTN"",""RCXVDC10"",12,0)"
^XMB(3.9,88,2,306,0)=" S RCXVDA=RCDA(""P""),$P(^RCXV(RCXVDA,4),U)=RCXVMO"
^XMB(3.9,88,2,307,0)="""RTN"",""RCXVDC10"",13,0)"
^XMB(3.9,88,2,308,0)=" S RCXVDA=RCDA(""B""),$P(^RCXV(RCXVDA,5),U)=RCXVMO"
^XMB(3.9,88,2,309,0)="""RTN"",""RCXVDC10"",14,0)"
^XMB(3.9,88,2,310,0)=" Q"
^XMB(3.9,88,2,311,0)="""RTN"",""RCXVDC10"",15,0)"
^XMB(3.9,88,2,312,0)="D3547 ;IB Patient Copay account data"
^XMB(3.9,88,2,313,0)="""RTN"",""RCXVDC10"",16,0)"
^XMB(3.9,88,2,314,0)=" ;DFN,RCXVBTN defined in routine RCXVTSK"
^XMB(3.9,88,2,315,0)="""RTN"",""RCXVDC10"",17,0)"
^XMB(3.9,88,2,316,0)=" ;RCXVBTN=Internal number of batch file in ^RCXV("
^XMB(3.9,88,2,317,0)="""RTN"",""RCXVDC10"",18,0)"
^XMB(3.9,88,2,318,0)=" N I,RCFLAG,RCXVDA,RCXVMO,SSN,RCXVDT,RCXVCO,VADM"
^XMB(3.9,88,2,319,0)="""RTN"",""RCXVDC10"",19,0)"
^XMB(3.9,88,2,320,0)=" S RCXVMO=$P(^RCXV(RCXVBTN,0),U,10)"
^XMB(3.9,88,2,321,0)="""RTN"",""RCXVDC10"",20,0)"
^XMB(3.9,88,2,322,0)=" S (I,RCFLAG)=0 F  S I=$O(^IBAM(354.7,DFN,1,I)) Q:'I  S RCXVCO=$G(^(I,0)) D  Q:RCFLAG"
^XMB(3.9,88,2,323,0)="""RTN"",""RCXVDC10"",21,0)"
^XMB(3.9,88,2,324,0)=" . I +RCXVCO=RCXVMO S RCFLAG=1"
^XMB(3.9,88,2,325,0)="""RTN"",""RCXVDC10"",22,0)"
^XMB(3.9,88,2,326,0)=" . Q"
^XMB(3.9,88,2,327,0)="""RTN"",""RCXVDC10"",23,0)"
^XMB(3.9,88,2,328,0)=" Q:'RCFLAG"
^XMB(3.9,88,2,329,0)="""RTN"",""RCXVDC10"",24,0)"
^XMB(3.9,88,2,330,0)=" ; Write data into FTP file"
^XMB(3.9,88,2,331,0)="""RTN"",""RCXVDC10"",25,0)"
^XMB(3.9,88,2,332,0)=" D DEM^VADPT S SSN=$P(VADM(2),U)"
^XMB(3.9,88,2,333,0)="""RTN"",""RCXVDC10"",26,0)"
^XMB(3.9,88,2,334,0)=" S RCXVDT=$P(RCXVCO,U),RCXVDA=SSN_RCXVU_$E($$HLDATE^HLFNC(RCXVDT),1,8)"
^XMB(3.9,88,2,335,0)="""RTN"",""RCXVDC10"",27,0)"
^XMB(3.9,88,2,336,0)=" S RCXVDA=RCXVDA_RCXVU_$P(RCXVCO,U,2)"
^XMB(3.9,88,2,337,0)="""RTN"",""RCXVDC10"",28,0)"
^XMB(3.9,88,2,338,0)=" S X=$P(RCXVCO,U,3),X=$S(X=1:""YES"",X=2:""OVER"",1:""NO"")"
^XMB(3.9,88,2,339,0)="""RTN"",""RCXVDC10"",29,0)"
^XMB(3.9,88,2,340,0)=" S RCXVDA=RCXVDA_RCXVU_X_RCXVU_$P(RCXVCO,U,4)"
^XMB(3.9,88,2,341,0)="""RTN"",""RCXVDC10"",30,0)"
^XMB(3.9,88,2,342,0)=" S ^TMP($J,""RCXVDC10"",DFN)=RCXVDA"
^XMB(3.9,88,2,343,0)="""RTN"",""RCXVDC10"",31,0)"
^XMB(3.9,88,2,344,0)=" W ""REC:""_$P(RCXVDA,RCXVU,1),!"
^XMB(3.9,88,2,345,0)="""RTN"",""RCXVDC10"",32,0)"
^XMB(3.9,88,2,346,0)=" W ""354.7:""_$P(RCXVDA,RCXVU,2,5),!"
^XMB(3.9,88,2,347,0)="""RTN"",""RCXVDC10"",33,0)"
^XMB(3.9,88,2,348,0)=" Q"
^XMB(3.9,88,2,349,0)="""RTN"",""RCXVDC10"",34,0)"
^XMB(3.9,88,2,350,0)="PREREG ;Pre-Registration"
^XMB(3.9,88,2,351,0)="""RTN"",""RCXVDC10"",35,0)"
^XMB(3.9,88,2,352,0)=" N IBDATA,X1,X2,IBEDT,IBBDT,RCXVDA"
^XMB(3.9,88,2,353,0)="""RTN"",""RCXVDC10"",36,0)"
^XMB(3.9,88,2,354,0)=" S IBBDT=$E(RCXVMO,1,5)_""01"",IBEDT=$$ENDT(IBBDT)"
^XMB(3.9,88,2,355,0)="""RTN"",""RCXVDC10"",37,0)"
^XMB(3.9,88,2,356,0)=" S IBDATA=$$PREREG^IBRFN4(IBBDT,IBEDT)"
^XMB(3.9,88,2,357,0)="""RTN"",""RCXVDC10"",38,0)"
^XMB(3.9,88,2,358,0)=" S RCXVDA=$E($$HLDATE^HLFNC(IBBDT),1,8)"
^XMB(3.9,88,2,359,0)="""RTN"",""RCXVDC10"",39,0)"
^XMB(3.9,88,2,360,0)=" S RCXVDA=RCXVDA_RCXVU_$E($$HLDATE^HLFNC(IBEDT),1,8)_RCXVU_IBDATA"
^XMB(3.9,88,2,361,0)="""RTN"",""RCXVDC10"",40,0)"
^XMB(3.9,88,2,362,0)=" S ^TMP($J,""RCXVDC10"",""PRE-REG"")=RCXVDA"
^XMB(3.9,88,2,363,0)="""RTN"",""RCXVDC10"",41,0)"
^XMB(3.9,88,2,364,0)=" W ""PRE-REG:""_RCXVDA,!"
^XMB(3.9,88,2,365,0)="""RTN"",""RCXVDC10"",42,0)"
^XMB(3.9,88,2,366,0)=" Q "
^XMB(3.9,88,2,367,0)="""RTN"",""RCXVDC10"",43,0)"
^XMB(3.9,88,2,368,0)="BUFFER ;Insurance buffer"
^XMB(3.9,88,2,369,0)="""RTN"",""RCXVDC10"",44,0)"
^XMB(3.9,88,2,370,0)=" S IBBDT=$E(RCXVMO,1,5)_""01"",IBEDT=$$ENDT(IBBDT)"
^XMB(3.9,88,2,371,0)="""RTN"",""RCXVDC10"",45,0)"
^XMB(3.9,88,2,372,0)=" S IBDATA=$$BUFFER^IBRFN4(IBBDT,IBEDT)"
^XMB(3.9,88,2,373,0)="""RTN"",""RCXVDC10"",46,0)"
^XMB(3.9,88,2,374,0)=" S RCXVDA=$E($$HLDATE^HLFNC(IBBDT),1,8)"
^XMB(3.9,88,2,375,0)="""RTN"",""RCXVDC10"",47,0)"
^XMB(3.9,88,2,376,0)=" S RCXVDA=RCXVDA_RCXVU_$E($$HLDATE^HLFNC(IBEDT),1,8)_RCXVU_IBDATA"
^XMB(3.9,88,2,377,0)="""RTN"",""RCXVDC10"",48,0)"
^XMB(3.9,88,2,378,0)=" S ^TMP($J,""RCXVDC10"",""BUFFER"")=RCXVDA"
^XMB(3.9,88,2,379,0)="""RTN"",""RCXVDC10"",49,0)"
^XMB(3.9,88,2,380,0)=" W ""BUFFER:""_RCXVDA,!"
^XMB(3.9,88,2,381,0)="""RTN"",""RCXVDC10"",50,0)"
^XMB(3.9,88,2,382,0)=" Q "
^XMB(3.9,88,2,383,0)="""RTN"",""RCXVDC10"",51,0)"
^XMB(3.9,88,2,384,0)="ENDT(IBBDT) ;Calculates end date"
^XMB(3.9,88,2,385,0)="""RTN"",""RCXVDC10"",52,0)"
^XMB(3.9,88,2,386,0)=" S X1=IBBDT,X2=+31 D C^%DTC"
^XMB(3.9,88,2,387,0)="""RTN"",""RCXVDC10"",53,0)"
^XMB(3.9,88,2,388,0)=" S X1=$E(X,1,5)_""01"",X2=-1 D C^%DTC"
^XMB(3.9,88,2,389,0)="""RTN"",""RCXVDC10"",54,0)"
^XMB(3.9,88,2,390,0)=" Q X"
^XMB(3.9,88,2,391,0)="""RTN"",""RCXVDC10"",55,0)"
^XMB(3.9,88,2,392,0)="D3547A ;Sets Patient list from 354.7 into 348.4"
^XMB(3.9,88,2,393,0)="""RTN"",""RCXVDC10"",56,0)"
^XMB(3.9,88,2,394,0)=" N I,DFN,RCXVDA"
^XMB(3.9,88,2,395,0)="""RTN"",""RCXVDC10"",57,0)"
^XMB(3.9,88,2,396,0)=" S RCXVDA=RCDA(""I"")"
^XMB(3.9,88,2,397,0)="""RTN"",""RCXVDC10"",58,0)"
^XMB(3.9,88,2,398,0)=" F I=0,1,2 D"
^XMB(3.9,88,2,399,0)="""RTN"",""RCXVDC10"",59,0)"
^XMB(3.9,88,2,400,0)=" . S DFN=0 F  S DFN=$O(^IBAM(354.7,""AC"",RCXVMO,I,DFN)) Q:'DFN  D"
^XMB(3.9,88,2,401,0)="""RTN"",""RCXVDC10"",60,0)"
^XMB(3.9,88,2,402,0)=" . . D FIL^RCXVDEQ(""I"")"
^XMB(3.9,88,2,403,0)="""RTN"",""RCXVDC10"",61,0)"
^XMB(3.9,88,2,404,0)=" . . ;  If this patient already exists in this batch, quit"
^XMB(3.9,88,2,405,0)="""RTN"",""RCXVDC10"",62,0)"
^XMB(3.9,88,2,406,0)=" . . I $D(^RCXV(RCXVDA,3,DFN)) Q "
^XMB(3.9,88,2,407,0)="""RTN"",""RCXVDC10"",63,0)"
^XMB(3.9,88,2,408,0)=" . . ;; File record"
^XMB(3.9,88,2,409,0)="""RTN"",""RCXVDC10"",64,0)"
^XMB(3.9,88,2,410,0)=" . . NEW DIC,DIE,X,DA,DLAYGO,Y,DINUM"
^XMB(3.9,88,2,411,0)="""RTN"",""RCXVDC10"",65,0)"
^XMB(3.9,88,2,412,0)=" . . S DA(1)=RCXVDA,DIC=""^RCXV(""_DA(1)_"",3,"",DIE=DIC,(X,DINUM)=DFN"
^XMB(3.9,88,2,413,0)="""RTN"",""RCXVDC10"",66,0)"
^XMB(3.9,88,2,414,0)=" . . S DLAYGO=348.43,DIC(0)=""L"",DIC(""P"")=DLAYGO"
^XMB(3.9,88,2,415,0)="""RTN"",""RCXVDC10"",67,0)"
^XMB(3.9,88,2,416,0)=" . . I '$D(^RCXV(DA(1),3,0)) S ^RCXV(DA(1),3,0)=""^348.43^^"""
^XMB(3.9,88,2,417,0)="""RTN"",""RCXVDC10"",68,0)"
^XMB(3.9,88,2,418,0)=" . . D FILE^DICN"
^XMB(3.9,88,2,419,0)="""RTN"",""RCXVDC10"",69,0)"
^XMB(3.9,88,2,420,0)=" . . Q"
^XMB(3.9,88,2,421,0)="""RTN"",""RCXVDC10"",70,0)"
^XMB(3.9,88,2,422,0)=" . Q"
^XMB(3.9,88,2,423,0)="""RTN"",""RCXVDC10"",71,0)"
^XMB(3.9,88,2,424,0)=" S $P(^RCXV(RCXVDA,0),U,10)=RCXVMO"
^XMB(3.9,88,2,425,0)="""RTN"",""RCXVDC10"",72,0)"
^XMB(3.9,88,2,426,0)=" ;"
^XMB(3.9,88,2,427,0)="""RTN"",""RCXVDC10"",73,0)"
^XMB(3.9,88,2,428,0)=" Q"
^XMB(3.9,88,2,429,0)="""RTN"",""RCXVDC10"",74,0)"
^XMB(3.9,88,2,430,0)="HIST ;entry point from post-init for historical job"
^XMB(3.9,88,2,431,0)="""RTN"",""RCXVDC10"",75,0)"
^XMB(3.9,88,2,432,0)=" D EN1"
^XMB(3.9,88,2,433,0)="""RTN"",""RCXVDC10"",76,0)"
^XMB(3.9,88,2,434,0)=" Q"
^XMB(3.9,88,2,435,0)="""RTN"",""RCXVDC3"")"
^XMB(3.9,88,2,436,0)="0^5^B26462535^B25730617"
^XMB(3.9,88,2,437,0)="""RTN"",""RCXVDC3"",1,0)"
^XMB(3.9,88,2,438,0)="RCXVDC3 ;DAOU/ALA-AR Data Extraction Data Creation ;02-JUL-03"
^XMB(3.9,88,2,439,0)="""RTN"",""RCXVDC3"",2,0)"
^XMB(3.9,88,2,440,0)=" ;;4.5;Accounts Receivable;**201,227,228,232**;Mar 20, 1995"
^XMB(3.9,88,2,441,0)="""RTN"",""RCXVDC3"",3,0)"
^XMB(3.9,88,2,442,0)=" ;"
^XMB(3.9,88,2,443,0)="""RTN"",""RCXVDC3"",4,0)"
^XMB(3.9,88,2,444,0)=" ; CLAIMS (# 399)"
^XMB(3.9,88,2,445,0)="""RTN"",""RCXVDC3"",5,0)"
^XMB(3.9,88,2,446,0)=" Q"
^XMB(3.9,88,2,447,0)="""RTN"",""RCXVDC3"",6,0)"
^XMB(3.9,88,2,448,0)="D399 ;"
^XMB(3.9,88,2,449,0)="""RTN"",""RCXVDC3"",7,0)"
^XMB(3.9,88,2,450,0)=" NEW RCXVD,RCXVBC,RCXVDT,RCXVD1,RCXVD2,RCXVD3"
^XMB(3.9,88,2,451,0)="""RTN"",""RCXVDC3"",8,0)"
^XMB(3.9,88,2,452,0)=" NEW RCXVD4,RCXVD5,RCXVD6,RCXVD7,RCXVDA,RCXVDB,RCXVDC,RCXVDD"
^XMB(3.9,88,2,453,0)="""RTN"",""RCXVDC3"",9,0)"
^XMB(3.9,88,2,454,0)=" NEW RCXVP1,RCXVP2,RCXVD0C,RCXVP3,RCXVP4,RCXVP5,RCXVCFL,RCXVPAY"
^XMB(3.9,88,2,455,0)="""RTN"",""RCXVDC3"",10,0)"
^XMB(3.9,88,2,456,0)=" NEW RCXVINS,RCXVVAN,RCXVDRG,RCXVCAN,RCXVSNR,IBD,X1,X2"
^XMB(3.9,88,2,457,0)="""RTN"",""RCXVDC3"",11,0)"
^XMB(3.9,88,2,458,0)=" ;"
^XMB(3.9,88,2,459,0)="""RTN"",""RCXVDC3"",12,0)"
^XMB(3.9,88,2,460,0)=" I $P(RCXVBLNA,""-"",2)="""" Q"
^XMB(3.9,88,2,461,0)="""RTN"",""RCXVDC3"",13,0)"
^XMB(3.9,88,2,462,0)=" S RCXVD0=$O(^DGCR(399,""B"",$P(RCXVBLNA,""-"",2),""""))"
^XMB(3.9,88,2,463,0)="""RTN"",""RCXVDC3"",14,0)"
^XMB(3.9,88,2,464,0)=" I RCXVD0="""" Q"
^XMB(3.9,88,2,465,0)="""RTN"",""RCXVDC3"",15,0)"
^XMB(3.9,88,2,466,0)=" S RCXVD1=$G(^DGCR(399,RCXVD0,0))"
^XMB(3.9,88,2,467,0)="""RTN"",""RCXVDC3"",16,0)"
^XMB(3.9,88,2,468,0)=" I $G(DFN)="""" S DFN=$P(RCXVD1,U,2)"
^XMB(3.9,88,2,469,0)="""RTN"",""RCXVDC3"",17,0)"
^XMB(3.9,88,2,470,0)=" S RCXVD2=$G(^DGCR(399,RCXVD0,""S""))"
^XMB(3.9,88,2,471,0)="""RTN"",""RCXVDC3"",18,0)"
^XMB(3.9,88,2,472,0)=" S RCXVD3=$G(^DGCR(399,RCXVD0,""U""))"
^XMB(3.9,88,2,473,0)="""RTN"",""RCXVDC3"",19,0)"
^XMB(3.9,88,2,474,0)=" S RCXVD7=$G(^DGCR(399,RCXVD0,""TX""))"
^XMB(3.9,88,2,475,0)="""RTN"",""RCXVDC3"",20,0)"
^XMB(3.9,88,2,476,0)=" S RCXVDA=$P(RCXVD1,U,1) ; BILL #"
^XMB(3.9,88,2,477,0)="""RTN"",""RCXVDC3"",21,0)"
^XMB(3.9,88,2,478,0)=" S (RCXVEVDT,RCXVDT)=$P($P(RCXVD1,U,3),""."",1)"
^XMB(3.9,88,2,479,0)="""RTN"",""RCXVDC3"",22,0)"
^XMB(3.9,88,2,480,0)=" ;S RCXVDA=RCXVBLNB_RCXVDA_RCXVU_$E($$HLDATE^HLFNC(RCXVDT),1,8) ; EVNT DT"
^XMB(3.9,88,2,481,0)="""RTN"",""RCXVDC3"",23,0)"
^XMB(3.9,88,2,482,0)=" S RCXVDA=RCXVBLNA_RCXVU_$P(^DPT(DFN,0),U,9) ; SSN"
^XMB(3.9,88,2,483,0)="""RTN"",""RCXVDC3"",24,0)"
^XMB(3.9,88,2,484,0)=" S RCXVDA=RCXVDA_RCXVU_$E($$HLDATE^HLFNC(RCXVDT),1,8) ; EVNT DT"
^XMB(3.9,88,2,485,0)="""RTN"",""RCXVDC3"",25,0)"
^XMB(3.9,88,2,486,0)=" S RCXVDA=RCXVDA_RCXVU_$P(RCXVD1,U,5) ; BILL CLASS"
^XMB(3.9,88,2,487,0)="""RTN"",""RCXVDC3"",26,0)"
^XMB(3.9,88,2,488,0)=" S RCXVP1=$P(RCXVD1,U,7),RCXVP2="""""
^XMB(3.9,88,2,489,0)="""RTN"",""RCXVDC3"",27,0)"
^XMB(3.9,88,2,490,0)=" I RCXVP1'="""" S RCXVP2=$P($G(^DGCR(399.3,RCXVP1,0)),U,1)"
^XMB(3.9,88,2,491,0)="""RTN"",""RCXVDC3"",28,0)"
^XMB(3.9,88,2,492,0)=" S RCXVDA=RCXVDA_RCXVU_RCXVP2 ; RATE TYPE (P) "
^XMB(3.9,88,2,493,0)="""RTN"",""RCXVDC3"",29,0)"
^XMB(3.9,88,2,494,0)=" S RCXVP1=$P(RCXVD2,U,11),RCXVP2="""""
^XMB(3.9,88,2,495,0)="""RTN"",""RCXVDC3"",30,0)"
^XMB(3.9,88,2,496,0)=" I RCXVP1'="""" S RCXVP2=$P($G(^VA(200,RCXVP1,2,0)),U,1)_RCXVP1 ; SITE_IEN"
^XMB(3.9,88,2,497,0)="""RTN"",""RCXVDC3"",31,0)"
^XMB(3.9,88,2,498,0)=" S RCXVDA=RCXVDA_RCXVU_RCXVSITE_RCXVP2 ; Authorizer (P)"
^XMB(3.9,88,2,499,0)="""RTN"",""RCXVDC3"",32,0)"
^XMB(3.9,88,2,500,0)=" S RCXVDA=RCXVDA_RCXVU_$P(RCXVD1,U,13) ; Stat "
^XMB(3.9,88,2,501,0)="""RTN"",""RCXVDC3"",33,0)"
^XMB(3.9,88,2,502,0)=" S RCXVDT=$P(RCXVD1,U,14)"
^XMB(3.9,88,2,503,0)="""RTN"",""RCXVDC3"",34,0)"
^XMB(3.9,88,2,504,0)=" S RCXVDA=RCXVDA_RCXVU_$E($$HLDATE^HLFNC(RCXVDT),1,8) ; Stat DT"
^XMB(3.9,88,2,505,0)="""RTN"",""RCXVDC3"",35,0)"
^XMB(3.9,88,2,506,0)=" S RCXVP1=$P(RCXVD1,U,22),RCXVP2="""""
^XMB(3.9,88,2,507,0)="""RTN"",""RCXVDC3"",36,0)"
^XMB(3.9,88,2,508,0)=" I RCXVP1'="""" S RCXVP2=$P($G(^DG(40.8,RCXVP1,0)),U,2)"
^XMB(3.9,88,2,509,0)="""RTN"",""RCXVDC3"",37,0)"
^XMB(3.9,88,2,510,0)=" S RCXVDA=RCXVDA_RCXVU_RCXVP2 ; Default division"
^XMB(3.9,88,2,511,0)="""RTN"",""RCXVDC3"",38,0)"
^XMB(3.9,88,2,512,0)=" S RCXVDA=RCXVDA_RCXVU_$P(RCXVD1,U,24) ; UB92 Location"
^XMB(3.9,88,2,513,0)="""RTN"",""RCXVDC3"",39,0)"
^XMB(3.9,88,2,514,0)=" S RCXVDA=RCXVDA_RCXVU_$P(RCXVD1,U,27) ; Bill Chrg type"
^XMB(3.9,88,2,515,0)="""RTN"",""RCXVDC3"",40,0)"
^XMB(3.9,88,2,516,0)=" S RCXVDT=$P(RCXVD2,U,10)"
^XMB(3.9,88,2,517,0)="""RTN"",""RCXVDC3"",41,0)"
^XMB(3.9,88,2,518,0)=" S RCXVDB=$E($$HLDATE^HLFNC(RCXVDT),1,8) ; Auth. DT"
^XMB(3.9,88,2,519,0)="""RTN"",""RCXVDC3"",42,0)"
^XMB(3.9,88,2,520,0)=" S RCXVDT=$P(RCXVD2,U,12)"
^XMB(3.9,88,2,521,0)="""RTN"",""RCXVDC3"",43,0)"
^XMB(3.9,88,2,522,0)=" S RCXVDB=RCXVDB_RCXVU_$E($$HLDATE^HLFNC(RCXVDT),1,8) ; DT 1st printed"
^XMB(3.9,88,2,523,0)="""RTN"",""RCXVDC3"",44,0)"
^XMB(3.9,88,2,524,0)=" S (RCXVP1,RCXVD0C)=$P($G(^DGCR(399,RCXVD0,""M"")),U,1),RCXVP2="""""
^XMB(3.9,88,2,525,0)="""RTN"",""RCXVDC3"",45,0)"
^XMB(3.9,88,2,526,0)=" I RCXVP1'="""" S RCXVP2=$P($G(^DIC(36,RCXVP1,0)),U,1)"
^XMB(3.9,88,2,527,0)="""RTN"",""RCXVDC3"",46,0)"
^XMB(3.9,88,2,528,0)=" S RCXVDB=RCXVDB_RCXVU_RCXVP2 ; PRIM. INSR (P)"
^XMB(3.9,88,2,529,0)="""RTN"",""RCXVDC3"",47,0)"
^XMB(3.9,88,2,530,0)=" ;"
^XMB(3.9,88,2,531,0)="""RTN"",""RCXVDC3"",48,0)"
^XMB(3.9,88,2,532,0)=" ; Type of Plan"
^XMB(3.9,88,2,533,0)="""RTN"",""RCXVDC3"",49,0)"
^XMB(3.9,88,2,534,0)=" S RCXVP2="""",RCXVI=0,RCXVP3="""",RCXVP4="""",RCXVP5="""""
^XMB(3.9,88,2,535,0)="""RTN"",""RCXVDC3"",50,0)"
^XMB(3.9,88,2,536,0)=" S IBD=$$IBAREXT^IBRFN4(RCXVD0,.IBD)"
^XMB(3.9,88,2,537,0)="""RTN"",""RCXVDC3"",51,0)"
^XMB(3.9,88,2,538,0)=" S RCXVP2=$P(IBD(""IN""),U),RCXVP5=$P(IBD(""IN""),U,2),RCXVP3=$P(IBD(""IN""),U,3),RCXVP4=$P(IBD(""IN""),U,4)"
^XMB(3.9,88,2,539,0)="""RTN"",""RCXVDC3"",52,0)"
^XMB(3.9,88,2,540,0)=" S RCXVDB=RCXVDB_RCXVU_RCXVP2_RCXVU_RCXVP5_RCXVU_RCXVP3_RCXVU_RCXVP4,RCXVD5="""",RCXVD6="""""
^XMB(3.9,88,2,541,0)="""RTN"",""RCXVDC3"",53,0)"
^XMB(3.9,88,2,542,0)=" ; "
^XMB(3.9,88,2,543,0)="""RTN"",""RCXVDC3"",54,0)"
^XMB(3.9,88,2,544,0)=" ; 36, 36.3 ADDRESS/EDI"
^XMB(3.9,88,2,545,0)="""RTN"",""RCXVDC3"",55,0)"
^XMB(3.9,88,2,546,0)=" I RCXVD0C S RCXVD5=$G(^DIC(36,RCXVD0C,.11))"
^XMB(3.9,88,2,547,0)="""RTN"",""RCXVDC3"",56,0)"
^XMB(3.9,88,2,548,0)=" S RCXVDB=RCXVDB_RCXVU_$P(RCXVD5,U,1) ; STRT ADD 1 "
^XMB(3.9,88,2,549,0)="""RTN"",""RCXVDC3"",57,0)"
^XMB(3.9,88,2,550,0)=" S RCXVDB=RCXVDB_RCXVU_$P(RCXVD5,U,2) ; STRT ADD 2"
^XMB(3.9,88,2,551,0)="""RTN"",""RCXVDC3"",58,0)"
^XMB(3.9,88,2,552,0)=" S RCXVDB=RCXVDB_RCXVU_$P(RCXVD5,U,4) ; CITY"
^XMB(3.9,88,2,553,0)="""RTN"",""RCXVDC3"",59,0)"
^XMB(3.9,88,2,554,0)=" S RCXVP1=$P(RCXVD5,U,5),RCXVP2="""""
^XMB(3.9,88,2,555,0)="""RTN"",""RCXVDC3"",60,0)"
^XMB(3.9,88,2,556,0)=" I RCXVP1'="""" S RCXVP2=$P($G(^DIC(5,RCXVP1,0)),U,1)"
^XMB(3.9,88,2,557,0)="""RTN"",""RCXVDC3"",61,0)"
^XMB(3.9,88,2,558,0)=" S RCXVDB=RCXVDB_RCXVU_RCXVP2 ; STATE (P)"
^XMB(3.9,88,2,559,0)="""RTN"",""RCXVDC3"",62,0)"
^XMB(3.9,88,2,560,0)=" S RCXVDB=RCXVDB_RCXVU_$P(RCXVD5,U,6) ; ZIP"
^XMB(3.9,88,2,561,0)="""RTN"",""RCXVDC3"",63,0)"
^XMB(3.9,88,2,562,0)=" I RCXVD0C'="""" S RCXVD6=$G(^DIC(36,RCXVD0C,3))"
^XMB(3.9,88,2,563,0)="""RTN"",""RCXVDC3"",64,0)"
^XMB(3.9,88,2,564,0)=" S RCXVDB=RCXVDB_RCXVU_$P(RCXVD6,U,2) ; EDI - PROF"
^XMB(3.9,88,2,565,0)="""RTN"",""RCXVDC3"",65,0)"
^XMB(3.9,88,2,566,0)=" S RCXVDB=RCXVDB_RCXVU_$P(RCXVD6,U,4) ; EDI - INST"
^XMB(3.9,88,2,567,0)="""RTN"",""RCXVDC3"",66,0)"
^XMB(3.9,88,2,568,0)=" S RCXVDB=RCXVDB_RCXVU_$$GET1^DIQ(36,RCXVD0C_"","",1,""I"") ; REIMBURSE?"
^XMB(3.9,88,2,569,0)="""RTN"",""RCXVDC3"",67,0)"
^XMB(3.9,88,2,570,0)=" ;"
^XMB(3.9,88,2,571,0)="""RTN"",""RCXVDC3"",68,0)"
^XMB(3.9,88,2,572,0)=" S RCXVPFDT=$P(RCXVD3,U,1)"
^XMB(3.9,88,2,573,0)="""RTN"",""RCXVDC3"",69,0)"
^XMB(3.9,88,2,574,0)=" S RCXVDC=$$HLDATE^HLFNC(RCXVPFDT) ; STMT COVERS FROM"
^XMB(3.9,88,2,575,0)="""RTN"",""RCXVDC3"",70,0)"
^XMB(3.9,88,2,576,0)=" S RCXVPTDT=$P(RCXVD3,U,2)"
^XMB(3.9,88,2,577,0)="""RTN"",""RCXVDC3"",71,0)"
^XMB(3.9,88,2,578,0)=" S RCXVDC=RCXVDC_RCXVU_$$HLDATE^HLFNC(RCXVPTDT) ; STMT COVERS TO"
^XMB(3.9,88,2,579,0)="""RTN"",""RCXVDC3"",72,0)"
^XMB(3.9,88,2,580,0)=" S RCXVP1=$P(RCXVD3,U,11),RCXVP2="""""
^XMB(3.9,88,2,581,0)="""RTN"",""RCXVDC3"",73,0)"
^XMB(3.9,88,2,582,0)=" I RCXVP1'="""" S RCXVP2=$P($G(^DGCR(399.1,RCXVP1,0)),U,1)"
^XMB(3.9,88,2,583,0)="""RTN"",""RCXVDC3"",74,0)"
^XMB(3.9,88,2,584,0)=" S RCXVDC=RCXVDC_RCXVU_RCXVP2 ; DISCH. BED SEC."
^XMB(3.9,88,2,585,0)="""RTN"",""RCXVDC3"",75,0)"
^XMB(3.9,88,2,586,0)=" S RCXVD4=$G(^DGCR(399,RCXVD0,""U1""))"
^XMB(3.9,88,2,587,0)="""RTN"",""RCXVDC3"",76,0)"
^XMB(3.9,88,2,588,0)=" S RCXVDC=RCXVDC_RCXVU_$P(RCXVD4,U,1) ; TOT CHRG"
^XMB(3.9,88,2,589,0)="""RTN"",""RCXVDC3"",77,0)"
^XMB(3.9,88,2,590,0)=" ;"
^XMB(3.9,88,2,591,0)="""RTN"",""RCXVDC3"",78,0)"
^XMB(3.9,88,2,592,0)=" S RCXVP1=$P($G(^DGCR(399,RCXVD0,""U2"")),U,10),RCXVP2="""""
^XMB(3.9,88,2,593,0)="""RTN"",""RCXVDC3"",79,0)"
^XMB(3.9,88,2,594,0)=" I RCXVP1'="""" S RCXVP2=$P($G(^IBA(355.93,RCXVP1,0)),U,1)"
^XMB(3.9,88,2,595,0)="""RTN"",""RCXVDC3"",80,0)"
^XMB(3.9,88,2,596,0)=" S RCXVDC=RCXVDC_RCXVU_RCXVP2 ; NON VA FAC (P)"
^XMB(3.9,88,2,597,0)="""RTN"",""RCXVDC3"",81,0)"
^XMB(3.9,88,2,598,0)=" ;"
^XMB(3.9,88,2,599,0)="""RTN"",""RCXVDC3"",82,0)"
^XMB(3.9,88,2,600,0)=" ;  Get VACARE or NONVACARE flag"
^XMB(3.9,88,2,601,0)="""RTN"",""RCXVDC3"",83,0)"
^XMB(3.9,88,2,602,0)=" NEW RCXVIEN"
^XMB(3.9,88,2,603,0)="""RTN"",""RCXVDC3"",84,0)"
^XMB(3.9,88,2,604,0)=" D CARE^RCXVUTIL(RCXVD0)"
^XMB(3.9,88,2,605,0)="""RTN"",""RCXVDC3"",85,0)"
^XMB(3.9,88,2,606,0)=" S RCXVDC=RCXVDC_RCXVU_$S(RCXVCFL=1:""VACARE"",1:""NONVACARE"")"
^XMB(3.9,88,2,607,0)="""RTN"",""RCXVDC3"",86,0)"
^XMB(3.9,88,2,608,0)=" ;  MRA data"
^XMB(3.9,88,2,609,0)="""RTN"",""RCXVDC3"",87,0)"
^XMB(3.9,88,2,610,0)=" S RCXVDT=$P(IBD,U,2)"
^XMB(3.9,88,2,611,0)="""RTN"",""RCXVDC3"",88,0)"
^XMB(3.9,88,2,612,0)=" S RCXVDD=$E($$HLDATE^HLFNC(RCXVDT),1,8) ; MRA Requested DT"
^XMB(3.9,88,2,613,0)="""RTN"",""RCXVDC3"",89,0)"
^XMB(3.9,88,2,614,0)=" S RCXVDT=$P(IBD,U,3)"
^XMB(3.9,88,2,615,0)="""RTN"",""RCXVDC3"",90,0)"
^XMB(3.9,88,2,616,0)=" S RCXVDD=RCXVDD_RCXVU_$E($$HLDATE^HLFNC(RCXVDT),1,8) ;Last Electronic Extract Date"
^XMB(3.9,88,2,617,0)="""RTN"",""RCXVDC3"",91,0)"
^XMB(3.9,88,2,618,0)=" S RCXVDD=RCXVDD_RCXVU_$P(IBD,U,4) ;Printed VIA EDI"
^XMB(3.9,88,2,619,0)="""RTN"",""RCXVDC3"",92,0)"
^XMB(3.9,88,2,620,0)=" S RCXVDD=RCXVDD_RCXVU_$P(IBD,U,5) ;Force Claim To Print"
^XMB(3.9,88,2,621,0)="""RTN"",""RCXVDC3"",93,0)"
^XMB(3.9,88,2,622,0)=" S RCXVDD=RCXVDD_RCXVU_$P(IBD,U,6) ;Claim MRA Status"
^XMB(3.9,88,2,623,0)="""RTN"",""RCXVDC3"",94,0)"
^XMB(3.9,88,2,624,0)=" S RCXVDT=$P(IBD,U,7)"
^XMB(3.9,88,2,625,0)="""RTN"",""RCXVDC3"",95,0)"
^XMB(3.9,88,2,626,0)=" S RCXVDD=RCXVDD_RCXVU_$E($$HLDATE^HLFNC(RCXVDT),1,8) ;MRA Recorded Date"
^XMB(3.9,88,2,627,0)="""RTN"",""RCXVDC3"",96,0)"
^XMB(3.9,88,2,628,0)=" S RCXVDT=$P(IBD,U,8)"
^XMB(3.9,88,2,629,0)="""RTN"",""RCXVDC3"",97,0)"
^XMB(3.9,88,2,630,0)=" S RCXVDD=RCXVDD_RCXVU_$E($$HLDATE^HLFNC(RCXVDT),1,8) ;Date Cancelled"
^XMB(3.9,88,2,631,0)="""RTN"",""RCXVDC3"",98,0)"
^XMB(3.9,88,2,632,0)=" S RCXVDD=RCXVDD_RCXVU_$P(IBD,U,9) ;Form Type"
^XMB(3.9,88,2,633,0)="""RTN"",""RCXVDC3"",99,0)"
^XMB(3.9,88,2,634,0)=" S RCXVDD=RCXVDD_RCXVU_$P(IBD,U,16)_RCXVU_$P(IBD,U,15) ;PAYER&VA NAT.ID #"
^XMB(3.9,88,2,635,0)="""RTN"",""RCXVDC3"",100,0)"
^XMB(3.9,88,2,636,0)=" S RCXVDRG=$P(IBD,U,11)"
^XMB(3.9,88,2,637,0)="""RTN"",""RCXVDC3"",101,0)"
^XMB(3.9,88,2,638,0)=" S RCXVDD=RCXVDD_RCXVU_RCXVDRG ;DRG"
^XMB(3.9,88,2,639,0)="""RTN"",""RCXVDC3"",102,0)"
^XMB(3.9,88,2,640,0)=" S RCXVSNR=$P(IBD,U,14) ;Days site not responsible for MRA request"
^XMB(3.9,88,2,641,0)="""RTN"",""RCXVDC3"",103,0)"
^XMB(3.9,88,2,642,0)=" S RCXVDD=RCXVDD_RCXVU_RCXVSNR"
^XMB(3.9,88,2,643,0)="""RTN"",""RCXVDC3"",104,0)"
^XMB(3.9,88,2,644,0)=" S RCXVDD=RCXVDD_RCXVU_$P($P(IBD,U,12),"";"") ;ECME #"
^XMB(3.9,88,2,645,0)="""RTN"",""RCXVDC3"",105,0)"
^XMB(3.9,88,2,646,0)=" S RCXVDD=RCXVDD_RCXVU_$P(IBD,U,17) ;Offset Amount"
^XMB(3.9,88,2,647,0)="""RTN"",""RCXVDC3"",106,0)"
^XMB(3.9,88,2,648,0)=" S ^TMP($J,RCXVBLN,""3-399A"")=RCXVDA"
^XMB(3.9,88,2,649,0)="""RTN"",""RCXVDC3"",107,0)"
^XMB(3.9,88,2,650,0)=" S ^TMP($J,RCXVBLN,""3-399B"")=RCXVDB"
^XMB(3.9,88,2,651,0)="""RTN"",""RCXVDC3"",108,0)"
^XMB(3.9,88,2,652,0)=" S ^TMP($J,RCXVBLN,""3-399C"")=RCXVDC"
^XMB(3.9,88,2,653,0)="""RTN"",""RCXVDC3"",109,0)"
^XMB(3.9,88,2,654,0)=" S ^TMP($J,RCXVBLN,""3-399D"")=RCXVDD"
^XMB(3.9,88,2,655,0)="""RTN"",""RCXVDC3"",110,0)"
^XMB(3.9,88,2,656,0)=" Q"
^XMB(3.9,88,2,657,0)="""RTN"",""RCXVDC3"",111,0)"
^XMB(3.9,88,2,658,0)=" ;"
^XMB(3.9,88,2,659,0)="""RTN"",""RCXVDC3"",112,0)"
^XMB(3.9,88,2,660,0)="REJ() ;Checks for reject on a claim"
^XMB(3.9,88,2,661,0)="""RTN"",""RCXVDC3"",113,0)"
^XMB(3.9,88,2,662,0)=" S X=""NO"""
^XMB(3.9,88,2,663,0)="""RTN"",""RCXVDC3"",114,0)"
^XMB(3.9,88,2,664,0)=" S X1=$P(RCXVD1,U,15) S D0=RCXVD0"
^XMB(3.9,88,2,665,0)="""RTN"",""RCXVDC3"",115,0)"
^XMB(3.9,88,2,666,0)=" F  D  G REJQ:'D0"
^XMB(3.9,88,2,667,0)="""RTN"",""RCXVDC3"",116,0)"
^XMB(3.9,88,2,668,0)=" . S I=0 F  S I=$O(^IBM(361,""B"",D0,I)) Q:'I  D  Q:'D0"
^XMB(3.9,88,2,669,0)="""RTN"",""RCXVDC3"",117,0)"
^XMB(3.9,88,2,670,0)="   ..S X2=$P($G(^IBM(361,I,0)),U,3)"
^XMB(3.9,88,2,671,0)="""RTN"",""RCXVDC3"",118,0)"
^XMB(3.9,88,2,672,0)="   ..I X2=""R"" S X=""YES"",D0="""""
^XMB(3.9,88,2,673,0)="""RTN"",""RCXVDC3"",119,0)"
^XMB(3.9,88,2,674,0)="   ..Q"
^XMB(3.9,88,2,675,0)="""RTN"",""RCXVDC3"",120,0)"
^XMB(3.9,88,2,676,0)=" .I X=""YES"" Q"
^XMB(3.9,88,2,677,0)="""RTN"",""RCXVDC3"",121,0)"
^XMB(3.9,88,2,678,0)=" .I X1=D0 S D0="""" Q"
^XMB(3.9,88,2,679,0)="""RTN"",""RCXVDC3"",122,0)"
^XMB(3.9,88,2,680,0)=" .S D0=X1 Q:'D0  S X1=$P($G(^DGCR(399,X1,0)),U,15)"
^XMB(3.9,88,2,681,0)="""RTN"",""RCXVDC3"",123,0)"
^XMB(3.9,88,2,682,0)=" .Q"
^XMB(3.9,88,2,683,0)="""RTN"",""RCXVDC3"",124,0)"
^XMB(3.9,88,2,684,0)=" K I"
^XMB(3.9,88,2,685,0)="""RTN"",""RCXVDC3"",125,0)"
^XMB(3.9,88,2,686,0)="REJQ Q X"
^XMB(3.9,88,2,687,0)="""RTN"",""RCXVDC3"",126,0)"
^XMB(3.9,88,2,688,0)=" ;"
^XMB(3.9,88,2,689,0)="""RTN"",""RCXVDEQ"")"
^XMB(3.9,88,2,690,0)="0^1^B15467596^B15138965"
^XMB(3.9,88,2,691,0)="""RTN"",""RCXVDEQ"",1,0)"
^XMB(3.9,88,2,692,0)="RCXVDEQ ;DAOU/ALA-AR Data Extract Queue Trigger ;02-JUL-03"
^XMB(3.9,88,2,693,0)="""RTN"",""RCXVDEQ"",2,0)"
^XMB(3.9,88,2,694,0)=" ;;4.5;Accounts Receivable;**201,228,240,243,232**;Mar 20, 1995"
^XMB(3.9,88,2,695,0)="""RTN"",""RCXVDEQ"",3,0)"
^XMB(3.9,88,2,696,0)=" ;*****240 change in this routine for test sites only****"
^XMB(3.9,88,2,697,0)="""RTN"",""RCXVDEQ"",4,0)"
^XMB(3.9,88,2,698,0)=" ;"
^XMB(3.9,88,2,699,0)="""RTN"",""RCXVDEQ"",5,0)"
^XMB(3.9,88,2,700,0)=" ;**Program Description**"
^XMB(3.9,88,2,701,0)="""RTN"",""RCXVDEQ"",6,0)"
^XMB(3.9,88,2,702,0)=" ;  This program will log a record who meets the"
^XMB(3.9,88,2,703,0)="""RTN"",""RCXVDEQ"",7,0)"
^XMB(3.9,88,2,704,0)=" ;  selection criteria for the VISTA Data Extract"
^XMB(3.9,88,2,705,0)="""RTN"",""RCXVDEQ"",8,0)"
^XMB(3.9,88,2,706,0)=" ;"
^XMB(3.9,88,2,707,0)="""RTN"",""RCXVDEQ"",9,0)"
^XMB(3.9,88,2,708,0)="AR ;  Triggers from the Accounts Receivable File (#430)"
^XMB(3.9,88,2,709,0)="""RTN"",""RCXVDEQ"",10,0)"
^XMB(3.9,88,2,710,0)=" NEW DFN"
^XMB(3.9,88,2,711,0)="""RTN"",""RCXVDEQ"",11,0)"
^XMB(3.9,88,2,712,0)=" ;"
^XMB(3.9,88,2,713,0)="""RTN"",""RCXVDEQ"",12,0)"
^XMB(3.9,88,2,714,0)=" S RCXVBLN=D0,RCXVSTAT=$P(^PRCA(430,D0,0),U,8)"
^XMB(3.9,88,2,715,0)="""RTN"",""RCXVDEQ"",13,0)"
^XMB(3.9,88,2,716,0)=" I '+$P(^PRCA(430.3,RCXVSTAT,0),U,6) Q"
^XMB(3.9,88,2,717,0)="""RTN"",""RCXVDEQ"",14,0)"
^XMB(3.9,88,2,718,0)=" ;"
^XMB(3.9,88,2,719,0)="""RTN"",""RCXVDEQ"",15,0)"
^XMB(3.9,88,2,720,0)=" S DFN=$P(^PRCA(430,D0,0),U,7)"
^XMB(3.9,88,2,721,0)="""RTN"",""RCXVDEQ"",16,0)"
^XMB(3.9,88,2,722,0)=" D FIL(""D"")"
^XMB(3.9,88,2,723,0)="""RTN"",""RCXVDEQ"",17,0)"
^XMB(3.9,88,2,724,0)=" ;"
^XMB(3.9,88,2,725,0)="""RTN"",""RCXVDEQ"",18,0)"
^XMB(3.9,88,2,726,0)=" K RCXVBLN,RCXVSTAT"
^XMB(3.9,88,2,727,0)="""RTN"",""RCXVDEQ"",19,0)"
^XMB(3.9,88,2,728,0)=" Q"
^XMB(3.9,88,2,729,0)="""RTN"",""RCXVDEQ"",20,0)"
^XMB(3.9,88,2,730,0)=" ;"
^XMB(3.9,88,2,731,0)="""RTN"",""RCXVDEQ"",21,0)"
^XMB(3.9,88,2,732,0)="AT ;  Triggers from the Accounts Receivable Transactions (#433)"
^XMB(3.9,88,2,733,0)="""RTN"",""RCXVDEQ"",22,0)"
^XMB(3.9,88,2,734,0)=" NEW DFN"
^XMB(3.9,88,2,735,0)="""RTN"",""RCXVDEQ"",23,0)"
^XMB(3.9,88,2,736,0)=" ;"
^XMB(3.9,88,2,737,0)="""RTN"",""RCXVDEQ"",24,0)"
^XMB(3.9,88,2,738,0)=" S RCXVBLN=$P($G(^PRCA(433,D0,0)),U,2)"
^XMB(3.9,88,2,739,0)="""RTN"",""RCXVDEQ"",25,0)"
^XMB(3.9,88,2,740,0)=" I RCXVBLN="""" Q"
^XMB(3.9,88,2,741,0)="""RTN"",""RCXVDEQ"",26,0)"
^XMB(3.9,88,2,742,0)=" S RCXVTYP=$P($G(^PRCA(433,D0,1)),U,2)"
^XMB(3.9,88,2,743,0)="""RTN"",""RCXVDEQ"",27,0)"
^XMB(3.9,88,2,744,0)=" I RCXVTYP="""" Q"
^XMB(3.9,88,2,745,0)="""RTN"",""RCXVDEQ"",28,0)"
^XMB(3.9,88,2,746,0)=" ;"
^XMB(3.9,88,2,747,0)="""RTN"",""RCXVDEQ"",29,0)"
^XMB(3.9,88,2,748,0)=" I '+$P(^PRCA(430.3,RCXVTYP,0),U,6) Q"
^XMB(3.9,88,2,749,0)="""RTN"",""RCXVDEQ"",30,0)"
^XMB(3.9,88,2,750,0)=" ;"
^XMB(3.9,88,2,751,0)="""RTN"",""RCXVDEQ"",31,0)"
^XMB(3.9,88,2,752,0)=" S DFN=$P(^PRCA(430,RCXVBLN,0),U,7)"
^XMB(3.9,88,2,753,0)="""RTN"",""RCXVDEQ"",32,0)"
^XMB(3.9,88,2,754,0)=" D FIL(""D"")"
^XMB(3.9,88,2,755,0)="""RTN"",""RCXVDEQ"",33,0)"
^XMB(3.9,88,2,756,0)=" ;"
^XMB(3.9,88,2,757,0)="""RTN"",""RCXVDEQ"",34,0)"
^XMB(3.9,88,2,758,0)=" K RCXVBLN,RCXVTYP"
^XMB(3.9,88,2,759,0)="""RTN"",""RCXVDEQ"",35,0)"
^XMB(3.9,88,2,760,0)=" Q"
^XMB(3.9,88,2,761,0)="""RTN"",""RCXVDEQ"",36,0)"
^XMB(3.9,88,2,762,0)=" ;"
^XMB(3.9,88,2,763,0)="""RTN"",""RCXVDEQ"",37,0)"
^XMB(3.9,88,2,764,0)="FIL(RCXVBTY) ;  File the record into the AR Data Queue File (#348.4)"
^XMB(3.9,88,2,765,0)="""RTN"",""RCXVDEQ"",38,0)"
^XMB(3.9,88,2,766,0)=" ;"
^XMB(3.9,88,2,767,0)="""RTN"",""RCXVDEQ"",39,0)"
^XMB(3.9,88,2,768,0)=" ;  If a test system has 'turned off' extract, quit"
^XMB(3.9,88,2,769,0)="""RTN"",""RCXVDEQ"",40,0)"
^XMB(3.9,88,2,770,0)=" I '$$GET1^DIQ(342,""1,"",20.04,""I"") Q"
^XMB(3.9,88,2,771,0)="""RTN"",""RCXVDEQ"",41,0)"
^XMB(3.9,88,2,772,0)=" ;"
^XMB(3.9,88,2,773,0)="""RTN"",""RCXVDEQ"",42,0)"
^XMB(3.9,88,2,774,0)=" ;  Input Parameter"
^XMB(3.9,88,2,775,0)="""RTN"",""RCXVDEQ"",43,0)"
^XMB(3.9,88,2,776,0)=" ;    RCXVBTY = Batch Type (H=Historical, D=Daily, C=Current Fiscal Year, A=Active,E=FY05 DATA,I=CoPay Patient Data)"
^XMB(3.9,88,2,777,0)="""RTN"",""RCXVDEQ"",44,0)"
^XMB(3.9,88,2,778,0)=" ;    RCXVBLN = Bill IEN"
^XMB(3.9,88,2,779,0)="""RTN"",""RCXVDEQ"",45,0)"
^XMB(3.9,88,2,780,0)=" ;"
^XMB(3.9,88,2,781,0)="""RTN"",""RCXVDEQ"",46,0)"
^XMB(3.9,88,2,782,0)=" N FDA,RCXVCURB,RCVXBNM,RCVXBMX"
^XMB(3.9,88,2,783,0)="""RTN"",""RCXVDEQ"",47,0)"
^XMB(3.9,88,2,784,0)=" ; "
^XMB(3.9,88,2,785,0)="""RTN"",""RCXVDEQ"",48,0)"
^XMB(3.9,88,2,786,0)=" ; Where there has been any update/change to the system "
^XMB(3.9,88,2,787,0)="""RTN"",""RCXVDEQ"",49,0)"
^XMB(3.9,88,2,788,0)=" ; for a particular bill for the previous days business business (T-1). "
^XMB(3.9,88,2,789,0)="""RTN"",""RCXVDEQ"",50,0)"
^XMB(3.9,88,2,790,0)=" ;"
^XMB(3.9,88,2,791,0)="""RTN"",""RCXVDEQ"",51,0)"
^XMB(3.9,88,2,792,0)=" ; Get current batch"
^XMB(3.9,88,2,793,0)="""RTN"",""RCXVDEQ"",52,0)"
^XMB(3.9,88,2,794,0)="BTC K ^TMP(""RCXVA"",$J)"
^XMB(3.9,88,2,795,0)="""RTN"",""RCXVDEQ"",53,0)"
^XMB(3.9,88,2,796,0)=" D FIND^DIC(348.4,"""","""",""P"",DT,"""",""C"",""I $P(^(0),U,4)=RCXVBTY"","""",""^TMP(""""RCXVA"""",$J)"")"
^XMB(3.9,88,2,797,0)="""RTN"",""RCXVDEQ"",54,0)"
^XMB(3.9,88,2,798,0)=" S RCXVCURB=+$P($G(^TMP(""RCXVA"",$J,""DILIST"",0)),U,1)"
^XMB(3.9,88,2,799,0)="""RTN"",""RCXVDEQ"",55,0)"
^XMB(3.9,88,2,800,0)=" S RCVXCTY="""",RCXVBDT="""",RCXQFL=0"
^XMB(3.9,88,2,801,0)="""RTN"",""RCXVDEQ"",56,0)"
^XMB(3.9,88,2,802,0)=" ;"
^XMB(3.9,88,2,803,0)="""RTN"",""RCXVDEQ"",57,0)"
^XMB(3.9,88,2,804,0)=" ;  If there is no batch for today, create a new batch"
^XMB(3.9,88,2,805,0)="""RTN"",""RCXVDEQ"",58,0)"
^XMB(3.9,88,2,806,0)=" I RCXVCURB=0 D NBT G CON:'RCXQFL,BTC"
^XMB(3.9,88,2,807,0)="""RTN"",""RCXVDEQ"",59,0)"
^XMB(3.9,88,2,808,0)=" ;"
^XMB(3.9,88,2,809,0)="""RTN"",""RCXVDEQ"",60,0)"
^XMB(3.9,88,2,810,0)=" ; Check to see if batch is full."
^XMB(3.9,88,2,811,0)="""RTN"",""RCXVDEQ"",61,0)"
^XMB(3.9,88,2,812,0)=" S RCXVCURB=$P(^TMP(""RCXVA"",$J,""DILIST"",RCXVCURB,0),U,1)"
^XMB(3.9,88,2,813,0)="""RTN"",""RCXVDEQ"",62,0)"
^XMB(3.9,88,2,814,0)=" I RCXVCURB'=0 D"
^XMB(3.9,88,2,815,0)="""RTN"",""RCXVDEQ"",63,0)"
^XMB(3.9,88,2,816,0)=" . S RCVXBNM=$P($G(^RCXV(RCXVCURB,0)),U,7) ; Number of record in batch"
^XMB(3.9,88,2,817,0)="""RTN"",""RCXVDEQ"",64,0)"
^XMB(3.9,88,2,818,0)=" . S RCVXCTY=$P($G(^RCXV(RCXVCURB,0)),U,4) ; Current batch type"
^XMB(3.9,88,2,819,0)="""RTN"",""RCXVDEQ"",65,0)"
^XMB(3.9,88,2,820,0)=" . S RCXVBDT=$P($G(^RCXV(RCXVCURB,0)),U,2) ; Batch Date"
^XMB(3.9,88,2,821,0)="""RTN"",""RCXVDEQ"",66,0)"
^XMB(3.9,88,2,822,0)=" . S RCXVBST=$P($G(^RCXV(RCXVCURB,0)),U,3) ; Batch Status"
^XMB(3.9,88,2,823,0)="""RTN"",""RCXVDEQ"",67,0)"
^XMB(3.9,88,2,824,0)=" S RCVXBMX=$P($G(^RC(342,1,20)),U,5) ; Max. # of record per batch"
^XMB(3.9,88,2,825,0)="""RTN"",""RCXVDEQ"",68,0)"
^XMB(3.9,88,2,826,0)=" ;  OR if the number of records in batch exceeds the"
^XMB(3.9,88,2,827,0)="""RTN"",""RCXVDEQ"",69,0)"
^XMB(3.9,88,2,828,0)=" ;  maximum number of records per batch --> create new batch"
^XMB(3.9,88,2,829,0)="""RTN"",""RCXVDEQ"",70,0)"
^XMB(3.9,88,2,830,0)=" ;  change in line below for patch 240"
^XMB(3.9,88,2,831,0)="""RTN"",""RCXVDEQ"",71,0)"
^XMB(3.9,88,2,832,0)=" I (RCVXBNM>RCVXBMX)!(RCVXBNM=RCVXBMX)!(RCXVBST=""T"")!(RCXVBST=""C"") D NBT G BTC:RCXQFL=1"
^XMB(3.9,88,2,833,0)="""RTN"",""RCXVDEQ"",72,0)"
^XMB(3.9,88,2,834,0)=" ;"
^XMB(3.9,88,2,835,0)="""RTN"",""RCXVDEQ"",73,0)"
^XMB(3.9,88,2,836,0)="CON ;  Continue with updating the AR Data Queue file"
^XMB(3.9,88,2,837,0)="""RTN"",""RCXVDEQ"",74,0)"
^XMB(3.9,88,2,838,0)=" S RCXVDA=$S($G(RCXVCURB)'=0:RCXVCURB,1:RCXVDA)"
^XMB(3.9,88,2,839,0)="""RTN"",""RCXVDEQ"",75,0)"
^XMB(3.9,88,2,840,0)=" ;"
^XMB(3.9,88,2,841,0)="""RTN"",""RCXVDEQ"",76,0)"
^XMB(3.9,88,2,842,0)=" ;  If the Batch Type is 'R', quit"
^XMB(3.9,88,2,843,0)="""RTN"",""RCXVDEQ"",77,0)"
^XMB(3.9,88,2,844,0)=" I RCXVBTY=""R""!(RCXVBTY=""I"") Q"
^XMB(3.9,88,2,845,0)="""RTN"",""RCXVDEQ"",78,0)"
^XMB(3.9,88,2,846,0)=" ;"
^XMB(3.9,88,2,847,0)="""RTN"",""RCXVDEQ"",79,0)"
^XMB(3.9,88,2,848,0)=" ;  If this bill number already exists in this batch, quit"
^XMB(3.9,88,2,849,0)="""RTN"",""RCXVDEQ"",80,0)"
^XMB(3.9,88,2,850,0)=" I $D(^RCXV(RCXVDA,1,RCXVBLN)) Q"
^XMB(3.9,88,2,851,0)="""RTN"",""RCXVDEQ"",81,0)"
^XMB(3.9,88,2,852,0)=" ;"
^XMB(3.9,88,2,853,0)="""RTN"",""RCXVDEQ"",82,0)"
^XMB(3.9,88,2,854,0)=" ; File record"
^XMB(3.9,88,2,855,0)="""RTN"",""RCXVDEQ"",83,0)"
^XMB(3.9,88,2,856,0)=" NEW DIC,DIE,X,DA,DLAYGO,Y,DINUM"
^XMB(3.9,88,2,857,0)="""RTN"",""RCXVDEQ"",84,0)"
^XMB(3.9,88,2,858,0)=" S DA(1)=RCXVDA,DIC=""^RCXV(""_DA(1)_"",1,"",DIE=DIC,(X,DINUM)=RCXVBLN"
^XMB(3.9,88,2,859,0)="""RTN"",""RCXVDEQ"",85,0)"
^XMB(3.9,88,2,860,0)=" S DLAYGO=348.41,DIC(0)=""L"",DIC(""P"")=DLAYGO"
^XMB(3.9,88,2,861,0)="""RTN"",""RCXVDEQ"",86,0)"
^XMB(3.9,88,2,862,0)=" I '$D(^RCXV(DA(1),1,0)) S ^RCXV(DA(1),1,0)=""^348.41^^"""
^XMB(3.9,88,2,863,0)="""RTN"",""RCXVDEQ"",87,0)"
^XMB(3.9,88,2,864,0)=" K DO D FILE^DICN K DO"
^XMB(3.9,88,2,865,0)="""RTN"",""RCXVDEQ"",88,0)"
^XMB(3.9,88,2,866,0)=" ;"
^XMB(3.9,88,2,867,0)="""RTN"",""RCXVDEQ"",89,0)"
^XMB(3.9,88,2,868,0)=" S RCUPD(348.4,RCXVDA_"","",.07)=(RCVXBNM+1)"
^XMB(3.9,88,2,869,0)="""RTN"",""RCXVDEQ"",90,0)"
^XMB(3.9,88,2,870,0)=" S RCUPD(348.41,RCXVBLN_"",""_RCXVDA_"","",.02)=$G(DFN)"
^XMB(3.9,88,2,871,0)="""RTN"",""RCXVDEQ"",91,0)"
^XMB(3.9,88,2,872,0)=" D FILE^DIE("""",""RCUPD"",""RCXVERR"")"
^XMB(3.9,88,2,873,0)="""RTN"",""RCXVDEQ"",92,0)"
^XMB(3.9,88,2,874,0)=" ;"
^XMB(3.9,88,2,875,0)="""RTN"",""RCXVDEQ"",93,0)"
^XMB(3.9,88,2,876,0)=" K RCXVDA,RCVXBNM,RCXVBLN,RCXVCURB,RCXVBTY,RCVXBMX,RCVXCTY,RCXVBDT"
^XMB(3.9,88,2,877,0)="""RTN"",""RCXVDEQ"",94,0)"
^XMB(3.9,88,2,878,0)=" K ^TMP(""RCXVA"",$J),IENARRAY,RCXVBST,RCUPD,RCXVERR,RCXQFL"
^XMB(3.9,88,2,879,0)="""RTN"",""RCXVDEQ"",95,0)"
^XMB(3.9,88,2,880,0)=" Q"
^XMB(3.9,88,2,881,0)="""RTN"",""RCXVDEQ"",96,0)"
^XMB(3.9,88,2,882,0)=" ;"
^XMB(3.9,88,2,883,0)="""RTN"",""RCXVDEQ"",97,0)"
^XMB(3.9,88,2,884,0)="NBT ;  Create a new batch"
^XMB(3.9,88,2,885,0)="""RTN"",""RCXVDEQ"",98,0)"
^XMB(3.9,88,2,886,0)=" N $ES,$ET"
^XMB(3.9,88,2,887,0)="""RTN"",""RCXVDEQ"",99,0)"
^XMB(3.9,88,2,888,0)=" S $ET=""D ER^RCXVDEQ"""
^XMB(3.9,88,2,889,0)="""RTN"",""RCXVDEQ"",100,0)"
^XMB(3.9,88,2,890,0)=" L +^RCXVLK:1 E  S RCXQFL=1 Q"
^XMB(3.9,88,2,891,0)="""RTN"",""RCXVDEQ"",101,0)"
^XMB(3.9,88,2,892,0)=" S RCXVCURB=$P(^RCXV(0),U,3)+1"
^XMB(3.9,88,2,893,0)="""RTN"",""RCXVDEQ"",102,0)"
^XMB(3.9,88,2,894,0)=" S RCVXBNM=0"
^XMB(3.9,88,2,895,0)="""RTN"",""RCXVDEQ"",103,0)"
^XMB(3.9,88,2,896,0)=" S FDA(348.4,""+1,"",.01)=RCXVCURB"
^XMB(3.9,88,2,897,0)="""RTN"",""RCXVDEQ"",104,0)"
^XMB(3.9,88,2,898,0)=" S FDA(348.4,""+1,"",.02)=DT"
^XMB(3.9,88,2,899,0)="""RTN"",""RCXVDEQ"",105,0)"
^XMB(3.9,88,2,900,0)=" S FDA(348.4,""+1,"",.03)=""P"""
^XMB(3.9,88,2,901,0)="""RTN"",""RCXVDEQ"",106,0)"
^XMB(3.9,88,2,902,0)=" S FDA(348.4,""+1,"",.04)=RCXVBTY"
^XMB(3.9,88,2,903,0)="""RTN"",""RCXVDEQ"",107,0)"
^XMB(3.9,88,2,904,0)=" S FDA(348.4,""+1,"",.07)=RCVXBNM"
^XMB(3.9,88,2,905,0)="""RTN"",""RCXVDEQ"",108,0)"
^XMB(3.9,88,2,906,0)=" D UPDATE^DIE("""",""FDA"",""IENARRAY"",""ERROR"")"
^XMB(3.9,88,2,907,0)="""RTN"",""RCXVDEQ"",109,0)"
^XMB(3.9,88,2,908,0)=" I '$D(ERROR) S RCXVDA=$G(IENARRAY(1))"
^XMB(3.9,88,2,909,0)="""RTN"",""RCXVDEQ"",110,0)"
^XMB(3.9,88,2,910,0)=" L -^RCXVLK"
^XMB(3.9,88,2,911,0)="""RTN"",""RCXVDEQ"",111,0)"
^XMB(3.9,88,2,912,0)=" Q"
^XMB(3.9,88,2,913,0)="""RTN"",""RCXVDEQ"",112,0)"
^XMB(3.9,88,2,914,0)=" ;"
^XMB(3.9,88,2,915,0)="""RTN"",""RCXVDEQ"",113,0)"
^XMB(3.9,88,2,916,0)="UDR ;  Update Deposits/Receipts subfile"
^XMB(3.9,88,2,917,0)="""RTN"",""RCXVDEQ"",114,0)"
^XMB(3.9,88,2,918,0)=" ; If this batch payment number already exists in this batch, quit"
^XMB(3.9,88,2,919,0)="""RTN"",""RCXVDEQ"",115,0)"
^XMB(3.9,88,2,920,0)=" I $D(^RCXV(RCXVDA,2,RCXVD0)) Q"
^XMB(3.9,88,2,921,0)="""RTN"",""RCXVDEQ"",116,0)"
^XMB(3.9,88,2,922,0)=" ;"
^XMB(3.9,88,2,923,0)="""RTN"",""RCXVDEQ"",117,0)"
^XMB(3.9,88,2,924,0)=" ; File record"
^XMB(3.9,88,2,925,0)="""RTN"",""RCXVDEQ"",118,0)"
^XMB(3.9,88,2,926,0)=" NEW DIC,DIE,X,DA,DLAYGO,Y,DINUM"
^XMB(3.9,88,2,927,0)="""RTN"",""RCXVDEQ"",119,0)"
^XMB(3.9,88,2,928,0)=" S DA(1)=RCXVDA,DIC=""^RCXV(""_DA(1)_"",2,"",DIE=DIC,(X,DINUM)=RCXVD0"
^XMB(3.9,88,2,929,0)="""RTN"",""RCXVDEQ"",120,0)"
^XMB(3.9,88,2,930,0)=" S DLAYGO=348.42,DIC(0)=""L"",DIC(""P"")=DLAYGO"
^XMB(3.9,88,2,931,0)="""RTN"",""RCXVDEQ"",121,0)"
^XMB(3.9,88,2,932,0)=" I '$D(^RCXV(DA(1),2,0)) S ^RCXV(DA(1),2,0)=""^348.42^^"""
^XMB(3.9,88,2,933,0)="""RTN"",""RCXVDEQ"",122,0)"
^XMB(3.9,88,2,934,0)=" K DO D FILE^DICN K DO"
^XMB(3.9,88,2,935,0)="""RTN"",""RCXVDEQ"",123,0)"
^XMB(3.9,88,2,936,0)=" ;"
^XMB(3.9,88,2,937,0)="""RTN"",""RCXVDEQ"",124,0)"
^XMB(3.9,88,2,938,0)=" S RCUPD(348.4,RCXVDA_"","",.07)=RCXVRNUM"
^XMB(3.9,88,2,939,0)="""RTN"",""RCXVDEQ"",125,0)"
^XMB(3.9,88,2,940,0)=" D FILE^DIE("""",""RCUPD"",""RCXVERR"")"
^XMB(3.9,88,2,941,0)="""RTN"",""RCXVDEQ"",126,0)"
^XMB(3.9,88,2,942,0)=" K RCXVERR,RCUPD"
^XMB(3.9,88,2,943,0)="""RTN"",""RCXVDEQ"",127,0)"
^XMB(3.9,88,2,944,0)=" Q"
^XMB(3.9,88,2,945,0)="""RTN"",""RCXVDEQ"",128,0)"
^XMB(3.9,88,2,946,0)=" ;"
^XMB(3.9,88,2,947,0)="""RTN"",""RCXVDEQ"",129,0)"
^XMB(3.9,88,2,948,0)="ER ; Unlock and log error"
^XMB(3.9,88,2,949,0)="""RTN"",""RCXVDEQ"",130,0)"
^XMB(3.9,88,2,950,0)=" L -^RCXVLK"
^XMB(3.9,88,2,951,0)="""RTN"",""RCXVDEQ"",131,0)"
^XMB(3.9,88,2,952,0)=" D ^%ZTER"
^XMB(3.9,88,2,953,0)="""RTN"",""RCXVDEQ"",132,0)"
^XMB(3.9,88,2,954,0)=" D UNWIND^%ZTER"
^XMB(3.9,88,2,955,0)="""RTN"",""RCXVDEQ"",133,0)"
^XMB(3.9,88,2,956,0)=" Q"
^XMB(3.9,88,2,957,0)="""RTN"",""RCXVP232"")"
^XMB(3.9,88,2,958,0)="0^4^B46691^n/a"
^XMB(3.9,88,2,959,0)="""RTN"",""RCXVP232"",1,0)"
^XMB(3.9,88,2,960,0)="RCXVP232 ;ALBANY OI@ALTOONA,PA/TJK-AR Data Extraction - Post-Install Program ;8/18/05"
^XMB(3.9,88,2,961,0)="""RTN"",""RCXVP232"",2,0)"
^XMB(3.9,88,2,962,0)=" ;;4.5;Accounts Receivable;**232**;Mar 20, 1995"
^XMB(3.9,88,2,963,0)="""RTN"",""RCXVP232"",3,0)"
^XMB(3.9,88,2,964,0)=" ;"
^XMB(3.9,88,2,965,0)="""RTN"",""RCXVP232"",4,0)"
^XMB(3.9,88,2,966,0)=" ;** Program Description **"
^XMB(3.9,88,2,967,0)="""RTN"",""RCXVP232"",5,0)"
^XMB(3.9,88,2,968,0)=" ;  This program will be run on installation of patch"
^XMB(3.9,88,2,969,0)="""RTN"",""RCXVP232"",6,0)"
^XMB(3.9,88,2,970,0)=" ;  PRCA*4.5*232 for CBO to ARC Data Extractions"
^XMB(3.9,88,2,971,0)="""RTN"",""RCXVP232"",7,0)"
^XMB(3.9,88,2,972,0)=" ;"
^XMB(3.9,88,2,973,0)="""RTN"",""RCXVP232"",8,0)"
^XMB(3.9,88,2,974,0)="EN ; Entry Point"
^XMB(3.9,88,2,975,0)="""RTN"",""RCXVP232"",9,0)"
^XMB(3.9,88,2,976,0)=" ; Reset CBO Flag field to for bills in NEW BILL status to ""INCLUDE"""
^XMB(3.9,88,2,977,0)="""RTN"",""RCXVP232"",10,0)"
^XMB(3.9,88,2,978,0)=" S $P(^PRCA(430.3,18,0),U,6)=1"
^XMB(3.9,88,2,979,0)="""RTN"",""RCXVP232"",11,0)"
^XMB(3.9,88,2,980,0)=" Q"
^XMB(3.9,88,2,981,0)="""RTN"",""RCXVP232"",12,0)"
^XMB(3.9,88,2,982,0)=" ;"
^XMB(3.9,88,2,983,0)="""RTN"",""RCXVTSK"")"
^XMB(3.9,88,2,984,0)="0^2^B42720951^B38032406"
^XMB(3.9,88,2,985,0)="""RTN"",""RCXVTSK"",1,0)"
^XMB(3.9,88,2,986,0)="RCXVTSK ;DAOU/ALA-AR Data Extract Nightly Task ;23-JUL-03"
^XMB(3.9,88,2,987,0)="""RTN"",""RCXVTSK"",2,0)"
^XMB(3.9,88,2,988,0)=" ;;4.5;Accounts Receivable;**201,227,228,232**;Mar 20, 1995"
^XMB(3.9,88,2,989,0)="""RTN"",""RCXVTSK"",3,0)"
^XMB(3.9,88,2,990,0)=" ;"
^XMB(3.9,88,2,991,0)="""RTN"",""RCXVTSK"",4,0)"
^XMB(3.9,88,2,992,0)=" ;** Program Description **"
^XMB(3.9,88,2,993,0)="""RTN"",""RCXVTSK"",5,0)"
^XMB(3.9,88,2,994,0)=" ;  This program is the nightly task program for the"
^XMB(3.9,88,2,995,0)="""RTN"",""RCXVTSK"",6,0)"
^XMB(3.9,88,2,996,0)=" ;  CBO Data Extract to the Boston Allocation Resource"
^XMB(3.9,88,2,997,0)="""RTN"",""RCXVTSK"",7,0)"
^XMB(3.9,88,2,998,0)=" ;  Center"
^XMB(3.9,88,2,999,0)="""RTN"",""RCXVTSK"",8,0)"
^XMB(3.9,88,2,1000,0)=" ;"
^XMB(3.9,88,2,1001,0)="""RTN"",""RCXVTSK"",9,0)"
^XMB(3.9,88,2,1002,0)="EN ;  Entry point"
^XMB(3.9,88,2,1003,0)="""RTN"",""RCXVTSK"",10,0)"
^XMB(3.9,88,2,1004,0)=" ;"
^XMB(3.9,88,2,1005,0)="""RTN"",""RCXVTSK"",11,0)"
^XMB(3.9,88,2,1006,0)=" ;  If a test system has 'turned off' extract, quit"
^XMB(3.9,88,2,1007,0)="""RTN"",""RCXVTSK"",12,0)"
^XMB(3.9,88,2,1008,0)=" I '$$GET1^DIQ(342,""1,"",20.04,""I"") Q"
^XMB(3.9,88,2,1009,0)="""RTN"",""RCXVTSK"",13,0)"
^XMB(3.9,88,2,1010,0)=" ;"
^XMB(3.9,88,2,1011,0)="""RTN"",""RCXVTSK"",14,0)"
^XMB(3.9,88,2,1012,0)=" N $ES,$ET"
^XMB(3.9,88,2,1013,0)="""RTN"",""RCXVTSK"",15,0)"
^XMB(3.9,88,2,1014,0)=" S $ET=""D ER^RCXVTSK"""
^XMB(3.9,88,2,1015,0)="""RTN"",""RCXVTSK"",16,0)"
^XMB(3.9,88,2,1016,0)=" ;"
^XMB(3.9,88,2,1017,0)="""RTN"",""RCXVTSK"",17,0)"
^XMB(3.9,88,2,1018,0)=" L +^RCXVTSK:60 E  Q"
^XMB(3.9,88,2,1019,0)="""RTN"",""RCXVTSK"",18,0)"
^XMB(3.9,88,2,1020,0)=" ;"
^XMB(3.9,88,2,1021,0)="""RTN"",""RCXVTSK"",19,0)"
^XMB(3.9,88,2,1022,0)=" ;  Purge completed batches"
^XMB(3.9,88,2,1023,0)="""RTN"",""RCXVTSK"",20,0)"
^XMB(3.9,88,2,1024,0)=" S IEN="""",DIK=""^RCXV("""
^XMB(3.9,88,2,1025,0)="""RTN"",""RCXVTSK"",21,0)"
^XMB(3.9,88,2,1026,0)=" F  S IEN=$O(^RCXV(""AC"",""C"",IEN)) Q:IEN=""""  D"
^XMB(3.9,88,2,1027,0)="""RTN"",""RCXVTSK"",22,0)"
^XMB(3.9,88,2,1028,0)=" . S DA=IEN D ^DIK"
^XMB(3.9,88,2,1029,0)="""RTN"",""RCXVTSK"",23,0)"
^XMB(3.9,88,2,1030,0)=" ;"
^XMB(3.9,88,2,1031,0)="""RTN"",""RCXVTSK"",24,0)"
^XMB(3.9,88,2,1032,0)=" K ^TMP(""RCXVMSG"",$J)"
^XMB(3.9,88,2,1033,0)="""RTN"",""RCXVTSK"",25,0)"
^XMB(3.9,88,2,1034,0)=" ;"
^XMB(3.9,88,2,1035,0)="""RTN"",""RCXVTSK"",26,0)"
^XMB(3.9,88,2,1036,0)=" ;  Find all deposits/receipts"
^XMB(3.9,88,2,1037,0)="""RTN"",""RCXVTSK"",27,0)"
^XMB(3.9,88,2,1038,0)=" S RCXVD0="""",RCXVRNUM=0,RCXVDT=$$FMADD^XLFDT(DT,-1)"
^XMB(3.9,88,2,1039,0)="""RTN"",""RCXVTSK"",28,0)"
^XMB(3.9,88,2,1040,0)=" F  S RCXVD0=$O(^RCY(344,""ASTAT"",0,RCXVD0)) Q:RCXVD0=""""  D"
^XMB(3.9,88,2,1041,0)="""RTN"",""RCXVTSK"",29,0)"
^XMB(3.9,88,2,1042,0)=" . S RCXVEDT=$P($G(^RCY(344,RCXVD0,0)),U,12)\1"
^XMB(3.9,88,2,1043,0)="""RTN"",""RCXVTSK"",30,0)"
^XMB(3.9,88,2,1044,0)=" . I RCXVEDT'=RCXVDT Q"
^XMB(3.9,88,2,1045,0)="""RTN"",""RCXVTSK"",31,0)"
^XMB(3.9,88,2,1046,0)=" . S RCXVRNUM=RCXVRNUM+1"
^XMB(3.9,88,2,1047,0)="""RTN"",""RCXVTSK"",32,0)"
^XMB(3.9,88,2,1048,0)=" . D FIL^RCXVDEQ(""R"")"
^XMB(3.9,88,2,1049,0)="""RTN"",""RCXVTSK"",33,0)"
^XMB(3.9,88,2,1050,0)=" . D UDR^RCXVDEQ"
^XMB(3.9,88,2,1051,0)="""RTN"",""RCXVTSK"",34,0)"
^XMB(3.9,88,2,1052,0)=" ;"
^XMB(3.9,88,2,1053,0)="""RTN"",""RCXVTSK"",35,0)"
^XMB(3.9,88,2,1054,0)=" K RCXVD0,RCXVRNUM,RCXVDT,RCXVEDT,RCXVDA,RCVXCTY,RCXVBDT"
^XMB(3.9,88,2,1055,0)="""RTN"",""RCXVTSK"",36,0)"
^XMB(3.9,88,2,1056,0)=" ;"
^XMB(3.9,88,2,1057,0)="""RTN"",""RCXVTSK"",37,0)"
^XMB(3.9,88,2,1058,0)=" S RCXVBTN="""",RCXVU=""^"",RCXVXDT=DT"
^XMB(3.9,88,2,1059,0)="""RTN"",""RCXVTSK"",38,0)"
^XMB(3.9,88,2,1060,0)=" ;"
^XMB(3.9,88,2,1061,0)="""RTN"",""RCXVTSK"",39,0)"
^XMB(3.9,88,2,1062,0)=" ;  If the CCPC calculation is scheduled to run, don't"
^XMB(3.9,88,2,1063,0)="""RTN"",""RCXVTSK"",40,0)"
^XMB(3.9,88,2,1064,0)=" ;  run the nightly task"
^XMB(3.9,88,2,1065,0)="""RTN"",""RCXVTSK"",41,0)"
^XMB(3.9,88,2,1066,0)=" ; Patch 228 changes software to allow nightly task on CCPC date"
^XMB(3.9,88,2,1067,0)="""RTN"",""RCXVTSK"",42,0)"
^XMB(3.9,88,2,1068,0)=" ;S X1=$$STD^RCCPCFN,X2=-3 D C^%DTC I X=DT L -^RCXVTSK K X Q"
^XMB(3.9,88,2,1069,0)="""RTN"",""RCXVTSK"",43,0)"
^XMB(3.9,88,2,1070,0)=" ;K X1,X2"
^XMB(3.9,88,2,1071,0)="""RTN"",""RCXVTSK"",44,0)"
^XMB(3.9,88,2,1072,0)=" ;"
^XMB(3.9,88,2,1073,0)="""RTN"",""RCXVTSK"",45,0)"
^XMB(3.9,88,2,1074,0)="MONTHLY ;Set up monthly transmission batches"
^XMB(3.9,88,2,1075,0)="""RTN"",""RCXVTSK"",46,0)"
^XMB(3.9,88,2,1076,0)=" I $E(DT,6,7)=""01"" D EN^RCXVDC10"
^XMB(3.9,88,2,1077,0)="""RTN"",""RCXVTSK"",47,0)"
^XMB(3.9,88,2,1078,0)="NM ;  Find all new batches to be transmitted"
^XMB(3.9,88,2,1079,0)="""RTN"",""RCXVTSK"",48,0)"
^XMB(3.9,88,2,1080,0)=" S RBSQ=0,RBTOT=0"
^XMB(3.9,88,2,1081,0)="""RTN"",""RCXVTSK"",49,0)"
^XMB(3.9,88,2,1082,0)=" F  S RCXVBTN=$O(^RCXV(""AC"",""P"",RCXVBTN)) Q:RCXVBTN=""""  D"
^XMB(3.9,88,2,1083,0)="""RTN"",""RCXVTSK"",50,0)"
^XMB(3.9,88,2,1084,0)=" . I $G(^RCXV(RCXVBTN,0))="""" Q"
^XMB(3.9,88,2,1085,0)="""RTN"",""RCXVTSK"",51,0)"
^XMB(3.9,88,2,1086,0)=" . S RBSQ=RBSQ+1,RBTOT=RBTOT+1"
^XMB(3.9,88,2,1087,0)="""RTN"",""RCXVTSK"",52,0)"
^XMB(3.9,88,2,1088,0)=" . I $P(^RCXV(RCXVBTN,0),U,1)'=RCXVBTN S RCXVUP(348.4,RCXVBTN_"","",.01)=RCXVBTN"
^XMB(3.9,88,2,1089,0)="""RTN"",""RCXVTSK"",53,0)"
^XMB(3.9,88,2,1090,0)=" . S RCXVUP(348.4,RCXVBTN_"","",.05)=RBSQ"
^XMB(3.9,88,2,1091,0)="""RTN"",""RCXVTSK"",54,0)"
^XMB(3.9,88,2,1092,0)=" F  S RCXVBTN=$O(RCXVUP(348.4,RCXVBTN)) Q:RCXVBTN=""""  D"
^XMB(3.9,88,2,1093,0)="""RTN"",""RCXVTSK"",55,0)"
^XMB(3.9,88,2,1094,0)=" . S RCXVUP(348.4,RCXVBTN,.06)=RBTOT"
^XMB(3.9,88,2,1095,0)="""RTN"",""RCXVTSK"",56,0)"
^XMB(3.9,88,2,1096,0)=" D FILE^DIE("""",""RCXVUP"",""RCXVERR"")"
^XMB(3.9,88,2,1097,0)="""RTN"",""RCXVTSK"",57,0)"
^XMB(3.9,88,2,1098,0)=" K RCXVUP"
^XMB(3.9,88,2,1099,0)="""RTN"",""RCXVTSK"",58,0)"
^XMB(3.9,88,2,1100,0)=" ;"
^XMB(3.9,88,2,1101,0)="""RTN"",""RCXVTSK"",59,0)"
^XMB(3.9,88,2,1102,0)=" S RCXVBTN="""""
^XMB(3.9,88,2,1103,0)="""RTN"",""RCXVTSK"",60,0)"
^XMB(3.9,88,2,1104,0)="STRT ;  Start the build and transmission of batches"
^XMB(3.9,88,2,1105,0)="""RTN"",""RCXVTSK"",61,0)"
^XMB(3.9,88,2,1106,0)=" D ^RCXVCHK"
^XMB(3.9,88,2,1107,0)="""RTN"",""RCXVTSK"",62,0)"
^XMB(3.9,88,2,1108,0)=" F RCSTAT=""T"",""P"" F  S RCXVBTN=$O(^RCXV(""AC"",RCSTAT,RCXVBTN)) Q:RCXVBTN=""""  D"
^XMB(3.9,88,2,1109,0)="""RTN"",""RCXVTSK"",63,0)"
^XMB(3.9,88,2,1110,0)=" . S RCXVBLN=0,RQFL=0"
^XMB(3.9,88,2,1111,0)="""RTN"",""RCXVTSK"",64,0)"
^XMB(3.9,88,2,1112,0)=" . S RCXVSITE=$P($$SITE^VASITE(),U,3)"
^XMB(3.9,88,2,1113,0)="""RTN"",""RCXVTSK"",65,0)"
^XMB(3.9,88,2,1114,0)=" . S RCXVDIR=$P($G(^RC(342,1,20)),U,1)"
^XMB(3.9,88,2,1115,0)="""RTN"",""RCXVTSK"",66,0)"
^XMB(3.9,88,2,1116,0)=" . S RCXVBDT=$P($G(^RCXV(RCXVBTN,0)),U,2)"
^XMB(3.9,88,2,1117,0)="""RTN"",""RCXVTSK"",67,0)"
^XMB(3.9,88,2,1118,0)=" . S RCXVBTY=$P($G(^RCXV(RCXVBTN,0)),U,4)"
^XMB(3.9,88,2,1119,0)="""RTN"",""RCXVTSK"",68,0)"
^XMB(3.9,88,2,1120,0)=" . S RCXVSEQ=$P($G(^RCXV(RCXVBTN,0)),U,5)"
^XMB(3.9,88,2,1121,0)="""RTN"",""RCXVTSK"",69,0)"
^XMB(3.9,88,2,1122,0)=" . S RCXVSTOT=$P($G(^RCXV(RCXVBTN,0)),U,6)"
^XMB(3.9,88,2,1123,0)="""RTN"",""RCXVTSK"",70,0)"
^XMB(3.9,88,2,1124,0)=" . S RCXVLDOM=$P($G(^RC(342,1,20)),U,8)"
^XMB(3.9,88,2,1125,0)="""RTN"",""RCXVTSK"",71,0)"
^XMB(3.9,88,2,1126,0)=" . ;S RCXVLEG=+$P($G(^RC(342,1,20)),U,7)"
^XMB(3.9,88,2,1127,0)="""RTN"",""RCXVTSK"",72,0)"
^XMB(3.9,88,2,1128,0)=" . ;"
^XMB(3.9,88,2,1129,0)="""RTN"",""RCXVTSK"",73,0)"
^XMB(3.9,88,2,1130,0)=" . I RCSTAT'=""T"" D  Q:RQFL"
^XMB(3.9,88,2,1131,0)="""RTN"",""RCXVTSK"",74,0)"
^XMB(3.9,88,2,1132,0)=" .. I $G(RCXVSEQ)="""" S RQFL=1 Q"
^XMB(3.9,88,2,1133,0)="""RTN"",""RCXVTSK"",75,0)"
^XMB(3.9,88,2,1134,0)=" .. I $P(^RCXV(RCXVBTN,0),U,3)=""C"" S RQFL=1 Q"
^XMB(3.9,88,2,1135,0)="""RTN"",""RCXVTSK"",76,0)"
^XMB(3.9,88,2,1136,0)=" .. S RCXVUP(348.4,RCXVBTN_"","",.03)=""T"""
^XMB(3.9,88,2,1137,0)="""RTN"",""RCXVTSK"",77,0)"
^XMB(3.9,88,2,1138,0)=" .. D FILE^DIE(""I"",""RCXVUP"",""RCXVERR"")"
^XMB(3.9,88,2,1139,0)="""RTN"",""RCXVTSK"",78,0)"
^XMB(3.9,88,2,1140,0)=" .. K RCXVUP"
^XMB(3.9,88,2,1141,0)="""RTN"",""RCXVTSK"",79,0)"
^XMB(3.9,88,2,1142,0)=" . ;"
^XMB(3.9,88,2,1143,0)="""RTN"",""RCXVTSK"",80,0)"
^XMB(3.9,88,2,1144,0)=" . ; If a file has been transmitted but no acknowledgement"
^XMB(3.9,88,2,1145,0)="""RTN"",""RCXVTSK"",81,0)"
^XMB(3.9,88,2,1146,0)=" . ; has been received after 5 days, resend"
^XMB(3.9,88,2,1147,0)="""RTN"",""RCXVTSK"",82,0)"
^XMB(3.9,88,2,1148,0)=" . I RCSTAT=""T"" D  Q:RQFL"
^XMB(3.9,88,2,1149,0)="""RTN"",""RCXVTSK"",83,0)"
^XMB(3.9,88,2,1150,0)=" .. S RCXVTRD=$P($G(^RCXV(RCXVBTN,0)),U,8)\1"
^XMB(3.9,88,2,1151,0)="""RTN"",""RCXVTSK"",84,0)"
^XMB(3.9,88,2,1152,0)=" .. S RCXVARD=$P($G(^RCXV(RCXVBTN,0)),U,9)\1"
^XMB(3.9,88,2,1153,0)="""RTN"",""RCXVTSK"",85,0)"
^XMB(3.9,88,2,1154,0)=" .. I $$FMADD^XLFDT(RCXVTRD,5)>DT S RQFL=1"
^XMB(3.9,88,2,1155,0)="""RTN"",""RCXVTSK"",86,0)"
^XMB(3.9,88,2,1156,0)=" .. ;I RCXVARD=0,RCXVLEG,RCXVTRD'=0 S RQFL=1"
^XMB(3.9,88,2,1157,0)="""RTN"",""RCXVTSK"",87,0)"
^XMB(3.9,88,2,1158,0)=" . ;"
^XMB(3.9,88,2,1159,0)="""RTN"",""RCXVTSK"",88,0)"
^XMB(3.9,88,2,1160,0)=" . Q:RQFL"
^XMB(3.9,88,2,1161,0)="""RTN"",""RCXVTSK"",89,0)"
^XMB(3.9,88,2,1162,0)=" . ; FILENAME=SITE_DATE_BATCH# "
^XMB(3.9,88,2,1163,0)="""RTN"",""RCXVTSK"",90,0)"
^XMB(3.9,88,2,1164,0)=" . S RCXVFILE=""RCXV""_RCXVSITE_RCXVBDT_RCXVBTN_"".TXT"""
^XMB(3.9,88,2,1165,0)="""RTN"",""RCXVTSK"",91,0)"
^XMB(3.9,88,2,1166,0)=" . S RCXVSCR=""TMP_RCXV""_RCXVSITE_""_""_RCXVBTN"
^XMB(3.9,88,2,1167,0)="""RTN"",""RCXVTSK"",92,0)"
^XMB(3.9,88,2,1168,0)=" . D OPEN^%ZISH(""RCXVHNDL"",RCXVDIR,RCXVFILE,""W"")"
^XMB(3.9,88,2,1169,0)="""RTN"",""RCXVTSK"",93,0)"
^XMB(3.9,88,2,1170,0)=" . U IO"
^XMB(3.9,88,2,1171,0)="""RTN"",""RCXVTSK"",94,0)"
^XMB(3.9,88,2,1172,0)=" . S RCXVDMN=$P($G(^XTV(8989.3,1,0)),U,1)"
^XMB(3.9,88,2,1173,0)="""RTN"",""RCXVTSK"",95,0)"
^XMB(3.9,88,2,1174,0)=" . S RCXVDMN=$P($G(^DIC(4.2,RCXVDMN,0)),U,1)"
^XMB(3.9,88,2,1175,0)="""RTN"",""RCXVTSK"",96,0)"
^XMB(3.9,88,2,1176,0)=" . S RCXVRN=$P($G(^RCXV(RCXVBTN,1,0)),U,4) ; # OF REC FOR BILLS"
^XMB(3.9,88,2,1177,0)="""RTN"",""RCXVTSK"",97,0)"
^XMB(3.9,88,2,1178,0)=" . I RCXVRN="""" S RCXVRN=$P($G(^RCXV(RCXVBTN,2,0)),U,4) ; # REC DEP/REC"
^XMB(3.9,88,2,1179,0)="""RTN"",""RCXVTSK"",98,0)"
^XMB(3.9,88,2,1180,0)=" . S RCXVRT=$P($G(^RCXV(RCXVBTN,0)),U,4) ; TYPE OF DATA "
^XMB(3.9,88,2,1181,0)="""RTN"",""RCXVTSK"",99,0)"
^XMB(3.9,88,2,1182,0)=" . W ""HDR:""_RCXVSITE_RCXVU_RCXVDMN_RCXVU_RCXVRT_RCXVU_RCXVRN_RCXVU_RCXVBDT_RCXVU_RCXVXDT_RCXVU_RCXVSEQ_RCXVU_RCXVSTOT_RCXVU_RCXVLDOM,!"
^XMB(3.9,88,2,1183,0)="""RTN"",""RCXVTSK"",100,0)"
^XMB(3.9,88,2,1184,0)=" . F  S RCXVBLN=$O(^RCXV(RCXVBTN,1,RCXVBLN)) Q:'RCXVBLN  D"
^XMB(3.9,88,2,1185,0)="""RTN"",""RCXVTSK"",101,0)"
^XMB(3.9,88,2,1186,0)=" .. S DFN=$P(^RCXV(RCXVBTN,1,RCXVBLN,0),U,2)"
^XMB(3.9,88,2,1187,0)="""RTN"",""RCXVTSK"",102,0)"
^XMB(3.9,88,2,1188,0)=" .. D EN^RCXVDC"
^XMB(3.9,88,2,1189,0)="""RTN"",""RCXVTSK"",103,0)"
^XMB(3.9,88,2,1190,0)=" . ;"
^XMB(3.9,88,2,1191,0)="""RTN"",""RCXVTSK"",104,0)"
^XMB(3.9,88,2,1192,0)=" . S RCXVD0=0"
^XMB(3.9,88,2,1193,0)="""RTN"",""RCXVTSK"",105,0)"
^XMB(3.9,88,2,1194,0)=" . F  S RCXVD0=$O(^RCXV(RCXVBTN,2,RCXVD0)) Q:'RCXVD0  D"
^XMB(3.9,88,2,1195,0)="""RTN"",""RCXVTSK"",106,0)"
^XMB(3.9,88,2,1196,0)=" .. S RCXVEDT=$P($G(^RCY(344,RCXVD0,0)),U,12)\1"
^XMB(3.9,88,2,1197,0)="""RTN"",""RCXVTSK"",107,0)"
^XMB(3.9,88,2,1198,0)=" .. D D344^RCXVDC8"
^XMB(3.9,88,2,1199,0)="""RTN"",""RCXVTSK"",108,0)"
^XMB(3.9,88,2,1200,0)=" . ;"
^XMB(3.9,88,2,1201,0)="""RTN"",""RCXVTSK"",109,0)"
^XMB(3.9,88,2,1202,0)=" . S RCXVD0=0"
^XMB(3.9,88,2,1203,0)="""RTN"",""RCXVTSK"",110,0)"
^XMB(3.9,88,2,1204,0)=" . F  S RCXVD0=$O(^RCXV(RCXVBTN,3,RCXVD0)) Q:'RCXVD0  D"
^XMB(3.9,88,2,1205,0)="""RTN"",""RCXVTSK"",111,0)"
^XMB(3.9,88,2,1206,0)=" .. S DFN=RCXVD0"
^XMB(3.9,88,2,1207,0)="""RTN"",""RCXVTSK"",112,0)"
^XMB(3.9,88,2,1208,0)=" .. D D3547^RCXVDC10"
^XMB(3.9,88,2,1209,0)="""RTN"",""RCXVTSK"",113,0)"
^XMB(3.9,88,2,1210,0)=" . ;"
^XMB(3.9,88,2,1211,0)="""RTN"",""RCXVTSK"",114,0)"
^XMB(3.9,88,2,1212,0)=" . I $D(^RCXV(RCXVBTN,4)) S RCXVMO=$G(^(4)) D PREREG^RCXVDC10"
^XMB(3.9,88,2,1213,0)="""RTN"",""RCXVTSK"",115,0)"
^XMB(3.9,88,2,1214,0)=" . ;"
^XMB(3.9,88,2,1215,0)="""RTN"",""RCXVTSK"",116,0)"
^XMB(3.9,88,2,1216,0)=" . I $D(^RCXV(RCXVBTN,5)) S RCXVMO=$G(^(5)) D BUFFER^RCXVDC10"
^XMB(3.9,88,2,1217,0)="""RTN"",""RCXVTSK"",117,0)"
^XMB(3.9,88,2,1218,0)=" . ;"
^XMB(3.9,88,2,1219,0)="""RTN"",""RCXVTSK"",118,0)"
^XMB(3.9,88,2,1220,0)=" . D CLOSE^%ZISH(""RCXVHNDL"")"
^XMB(3.9,88,2,1221,0)="""RTN"",""RCXVTSK"",119,0)"
^XMB(3.9,88,2,1222,0)=" . ;"
^XMB(3.9,88,2,1223,0)="""RTN"",""RCXVTSK"",120,0)"
^XMB(3.9,88,2,1224,0)=" . S $P(^RC(342,1,20),U,9)=$$NOW^XLFDT()"
^XMB(3.9,88,2,1225,0)="""RTN"",""RCXVTSK"",121,0)"
^XMB(3.9,88,2,1226,0)=" . ;"
^XMB(3.9,88,2,1227,0)="""RTN"",""RCXVTSK"",122,0)"
^XMB(3.9,88,2,1228,0)=" . ;  FTP directly to ARC"
^XMB(3.9,88,2,1229,0)="""RTN"",""RCXVTSK"",123,0)"
^XMB(3.9,88,2,1230,0)=" . D EN^RCXVFTP(RCXVFILE,RCXVDIR)"
^XMB(3.9,88,2,1231,0)="""RTN"",""RCXVTSK"",124,0)"
^XMB(3.9,88,2,1232,0)=" ;"
^XMB(3.9,88,2,1233,0)="""RTN"",""RCXVTSK"",125,0)"
^XMB(3.9,88,2,1234,0)=" ;  Check on FTP transfer messages"
^XMB(3.9,88,2,1235,0)="""RTN"",""RCXVTSK"",126,0)"
^XMB(3.9,88,2,1236,0)=" D ^RCXVFTR"
^XMB(3.9,88,2,1237,0)="""RTN"",""RCXVTSK"",127,0)"
^XMB(3.9,88,2,1238,0)=" ;"
^XMB(3.9,88,2,1239,0)="""RTN"",""RCXVTSK"",128,0)"
^XMB(3.9,88,2,1240,0)=" L -^RCXVTSK"
^XMB(3.9,88,2,1241,0)="""RTN"",""RCXVTSK"",129,0)"
^XMB(3.9,88,2,1242,0)="EXIT D MSG^RCXVCHK"
^XMB(3.9,88,2,1243,0)="""RTN"",""RCXVTSK"",130,0)"
^XMB(3.9,88,2,1244,0)=" K IEN,DIK,DA,RCXVBLN,RCXVBTN,RCSTAT,RCXVBDT,RCXVDMN,RCXVXDT,RCXVTRD"
^XMB(3.9,88,2,1245,0)="""RTN"",""RCXVTSK"",131,0)"
^XMB(3.9,88,2,1246,0)=" K RCXVSITE,RCXVFILE,RCXVRN,RCXVRT,RCXVDIR,RCXVATP,RCXVU,DTACT,RBSQ,RBTOT"
^XMB(3.9,88,2,1247,0)="""RTN"",""RCXVTSK"",132,0)"
^XMB(3.9,88,2,1248,0)=" K RCFDATE,RCXVCFLG,RCXVDBN,RCXVIDT,RCXVSEQ,RCXVSTOT,RCXVTRD,CCT,DTENT"
^XMB(3.9,88,2,1249,0)="""RTN"",""RCXVTSK"",133,0)"
^XMB(3.9,88,2,1250,0)=" K RCBLN,RCDBTR,RCDEBT,RCTRAN,RCXVTR,RCBCN,RCXVPFDT,RCXVPTDT,RCXRMB"
^XMB(3.9,88,2,1251,0)="""RTN"",""RCXVTSK"",134,0)"
^XMB(3.9,88,2,1252,0)=" K RCXVLDOM,RCXVARD,RCXVSUB,RCXVBTY,RCXVLEG,RCXVSCR,Y,X,RCXVMO"
^XMB(3.9,88,2,1253,0)="""RTN"",""RCXVTSK"",135,0)"
^XMB(3.9,88,2,1254,0)=" K ^TMP(""RCXVMSG"",$J),^TMP(""RCXVA"",$J),^TMP(""RCXVIN"",$J)"
^XMB(3.9,88,2,1255,0)="""RTN"",""RCXVTSK"",136,0)"
^XMB(3.9,88,2,1256,0)=" Q"
^XMB(3.9,88,2,1257,0)="""RTN"",""RCXVTSK"",137,0)"
^XMB(3.9,88,2,1258,0)=" ;"
^XMB(3.9,88,2,1259,0)="""RTN"",""RCXVTSK"",138,0)"
^XMB(3.9,88,2,1260,0)="HIS ;  Historical data extract"
^XMB(3.9,88,2,1261,0)="""RTN"",""RCXVTSK"",139,0)"
^XMB(3.9,88,2,1262,0)=" ;"
^XMB(3.9,88,2,1263,0)="""RTN"",""RCXVTSK"",140,0)"
^XMB(3.9,88,2,1264,0)=" L +^RCXVTSK:60 E  HANG 600 G HIS"
^XMB(3.9,88,2,1265,0)="""RTN"",""RCXVTSK"",141,0)"
^XMB(3.9,88,2,1266,0)=" ;"
^XMB(3.9,88,2,1267,0)="""RTN"",""RCXVTSK"",142,0)"
^XMB(3.9,88,2,1268,0)=" I $G(DT)="""" D DT^DICRW"
^XMB(3.9,88,2,1269,0)="""RTN"",""RCXVTSK"",143,0)"
^XMB(3.9,88,2,1270,0)=" ;"
^XMB(3.9,88,2,1271,0)="""RTN"",""RCXVTSK"",144,0)"
^XMB(3.9,88,2,1272,0)=" I $G(RCXVFFD)="""" D"
^XMB(3.9,88,2,1273,0)="""RTN"",""RCXVTSK"",145,0)"
^XMB(3.9,88,2,1274,0)=" . S RCFDATE=$$FYCY^IBCU8(DT)"
^XMB(3.9,88,2,1275,0)="""RTN"",""RCXVTSK"",146,0)"
^XMB(3.9,88,2,1276,0)=" . S RCXVFFD=$P(RCFDATE,U,3),RCXVFTD=$P(RCFDATE,U,4)"
^XMB(3.9,88,2,1277,0)="""RTN"",""RCXVTSK"",147,0)"
^XMB(3.9,88,2,1278,0)=" ;"
^XMB(3.9,88,2,1279,0)="""RTN"",""RCXVTSK"",148,0)"
^XMB(3.9,88,2,1280,0)=" S RCXVDAT=RCXVFFD-.01"
^XMB(3.9,88,2,1281,0)="""RTN"",""RCXVTSK"",149,0)"
^XMB(3.9,88,2,1282,0)=" F  S RCXVDAT=$O(^PRCA(430,""ACTDT"",RCXVDAT)) Q:RCXVDAT=""""!(RCXVDAT>RCXVFTD)  D"
^XMB(3.9,88,2,1283,0)="""RTN"",""RCXVTSK"",150,0)"
^XMB(3.9,88,2,1284,0)=" . S IEN="""""
^XMB(3.9,88,2,1285,0)="""RTN"",""RCXVTSK"",151,0)"
^XMB(3.9,88,2,1286,0)=" . F  S IEN=$O(^PRCA(430,""ACTDT"",RCXVDAT,IEN)) Q:IEN=""""  D"
^XMB(3.9,88,2,1287,0)="""RTN"",""RCXVTSK"",152,0)"
^XMB(3.9,88,2,1288,0)=" .. I $P(^PRCA(430,IEN,0),U,8)=16!($P(^PRCA(430,IEN,0),U,8)=40) Q"
^XMB(3.9,88,2,1289,0)="""RTN"",""RCXVTSK"",153,0)"
^XMB(3.9,88,2,1290,0)=" .. S RCXVBLN=IEN,DFN=$P(^PRCA(430,IEN,0),U,7)"
^XMB(3.9,88,2,1291,0)="""RTN"",""RCXVTSK"",154,0)"
^XMB(3.9,88,2,1292,0)=" .. D FIL^RCXVDEQ(""H"")"
^XMB(3.9,88,2,1293,0)="""RTN"",""RCXVTSK"",155,0)"
^XMB(3.9,88,2,1294,0)=" ;"
^XMB(3.9,88,2,1295,0)="""RTN"",""RCXVTSK"",156,0)"
^XMB(3.9,88,2,1296,0)=" L -^RCXVTSK"
^XMB(3.9,88,2,1297,0)="""RTN"",""RCXVTSK"",157,0)"
^XMB(3.9,88,2,1298,0)=" ;"
^XMB(3.9,88,2,1299,0)="""RTN"",""RCXVTSK"",158,0)"
^XMB(3.9,88,2,1300,0)=" D EN"
^XMB(3.9,88,2,1301,0)="""RTN"",""RCXVTSK"",159,0)"
^XMB(3.9,88,2,1302,0)=" K RCXVDAT,RCFDATE,RCXVFFD,RCXVFTD,IEN,DFN,RCXVBLN"
^XMB(3.9,88,2,1303,0)="""RTN"",""RCXVTSK"",160,0)"
^XMB(3.9,88,2,1304,0)=" ;"
^XMB(3.9,88,2,1305,0)="""RTN"",""RCXVTSK"",161,0)"
^XMB(3.9,88,2,1306,0)=" Q"
^XMB(3.9,88,2,1307,0)="""RTN"",""RCXVTSK"",162,0)"
^XMB(3.9,88,2,1308,0)=" ;"
^XMB(3.9,88,2,1309,0)="""RTN"",""RCXVTSK"",163,0)"
^XMB(3.9,88,2,1310,0)="CUR ;  Find all current fiscal year bills"
^XMB(3.9,88,2,1311,0)="""RTN"",""RCXVTSK"",164,0)"
^XMB(3.9,88,2,1312,0)=" ;"
^XMB(3.9,88,2,1313,0)="""RTN"",""RCXVTSK"",165,0)"
^XMB(3.9,88,2,1314,0)=" L +^RCXVTSK:60 E  HANG 600 G CUR"
^XMB(3.9,88,2,1315,0)="""RTN"",""RCXVTSK"",166,0)"
^XMB(3.9,88,2,1316,0)=" ;"
^XMB(3.9,88,2,1317,0)="""RTN"",""RCXVTSK"",167,0)"
^XMB(3.9,88,2,1318,0)=" S TTYP="""""
^XMB(3.9,88,2,1319,0)="""RTN"",""RCXVTSK"",168,0)"
^XMB(3.9,88,2,1320,0)=" F  S TTYP=$O(^PRCA(433,""AT"",TTYP)) Q:TTYP=""""  D"
^XMB(3.9,88,2,1321,0)="""RTN"",""RCXVTSK"",169,0)"
^XMB(3.9,88,2,1322,0)=" . I '+$P(^PRCA(430.3,TTYP,0),U,6) Q"
^XMB(3.9,88,2,1323,0)="""RTN"",""RCXVTSK"",170,0)"
^XMB(3.9,88,2,1324,0)=" . S RDATE=RCXVFFD-.01"
^XMB(3.9,88,2,1325,0)="""RTN"",""RCXVTSK"",171,0)"
^XMB(3.9,88,2,1326,0)=" . F  S RDATE=$O(^PRCA(433,""AT"",TTYP,RDATE)) Q:RDATE=""""!(RDATE\1>RCXVFTD)  D"
^XMB(3.9,88,2,1327,0)="""RTN"",""RCXVTSK"",172,0)"
^XMB(3.9,88,2,1328,0)=" .. S IEN="""""
^XMB(3.9,88,2,1329,0)="""RTN"",""RCXVTSK"",173,0)"
^XMB(3.9,88,2,1330,0)=" .. F  S IEN=$O(^PRCA(433,""AT"",TTYP,RDATE,IEN)) Q:IEN=""""  D"
^XMB(3.9,88,2,1331,0)="""RTN"",""RCXVTSK"",174,0)"
^XMB(3.9,88,2,1332,0)=" ... S RCXVBLN=$P(^PRCA(433,IEN,0),U,2)"
^XMB(3.9,88,2,1333,0)="""RTN"",""RCXVTSK"",175,0)"
^XMB(3.9,88,2,1334,0)=" ... I RCXVBLN="""" Q"
^XMB(3.9,88,2,1335,0)="""RTN"",""RCXVTSK"",176,0)"
^XMB(3.9,88,2,1336,0)=" ... S X=$P($G(^PRCA(430,RCXVBLN,0)),U,8)"
^XMB(3.9,88,2,1337,0)="""RTN"",""RCXVTSK"",177,0)"
^XMB(3.9,88,2,1338,0)=" ... I X=16!(X=40) Q"
^XMB(3.9,88,2,1339,0)="""RTN"",""RCXVTSK"",178,0)"
^XMB(3.9,88,2,1340,0)=" ... ; Line below changed for patch 228 to do FY05 extract"
^XMB(3.9,88,2,1341,0)="""RTN"",""RCXVTSK"",179,0)"
^XMB(3.9,88,2,1342,0)=" ... D FIL^RCXVDEQ(""E"")"
^XMB(3.9,88,2,1343,0)="""RTN"",""RCXVTSK"",180,0)"
^XMB(3.9,88,2,1344,0)=" ;"
^XMB(3.9,88,2,1345,0)="""RTN"",""RCXVTSK"",181,0)"
^XMB(3.9,88,2,1346,0)=" L -^RCXVTSK"
^XMB(3.9,88,2,1347,0)="""RTN"",""RCXVTSK"",182,0)"
^XMB(3.9,88,2,1348,0)=" ;"
^XMB(3.9,88,2,1349,0)="""RTN"",""RCXVTSK"",183,0)"
^XMB(3.9,88,2,1350,0)=" D EN"
^XMB(3.9,88,2,1351,0)="""RTN"",""RCXVTSK"",184,0)"
^XMB(3.9,88,2,1352,0)=" K TTYP,RDATE,RCXVFFD,RCXVFTD,RCXVBLN"
^XMB(3.9,88,2,1353,0)="""RTN"",""RCXVTSK"",185,0)"
^XMB(3.9,88,2,1354,0)=" Q"
^XMB(3.9,88,2,1355,0)="""RTN"",""RCXVTSK"",186,0)"
^XMB(3.9,88,2,1356,0)=" ;"
^XMB(3.9,88,2,1357,0)="""RTN"",""RCXVTSK"",187,0)"
^XMB(3.9,88,2,1358,0)="ACT ;  Active data extract"
^XMB(3.9,88,2,1359,0)="""RTN"",""RCXVTSK"",188,0)"
^XMB(3.9,88,2,1360,0)=" ;"
^XMB(3.9,88,2,1361,0)="""RTN"",""RCXVTSK"",189,0)"
^XMB(3.9,88,2,1362,0)=" L +^RCXVTSK:60 E  HANG 600 G ACT"
^XMB(3.9,88,2,1363,0)="""RTN"",""RCXVTSK"",190,0)"
^XMB(3.9,88,2,1364,0)=" ;"
^XMB(3.9,88,2,1365,0)="""RTN"",""RCXVTSK"",191,0)"
^XMB(3.9,88,2,1366,0)=" NEW STAT,CSTAT,QFL"
^XMB(3.9,88,2,1367,0)="""RTN"",""RCXVTSK"",192,0)"
^XMB(3.9,88,2,1368,0)=" ;  Set up the AR Data Queue for all 'Active' and 'Suspended' bills"
^XMB(3.9,88,2,1369,0)="""RTN"",""RCXVTSK"",193,0)"
^XMB(3.9,88,2,1370,0)=" F STAT=16,40 S IEN="""" F  S IEN=$O(^PRCA(430,""AC"",STAT,IEN)) Q:IEN=""""  D"
^XMB(3.9,88,2,1371,0)="""RTN"",""RCXVTSK"",194,0)"
^XMB(3.9,88,2,1372,0)=" . S RCXVBLN=IEN,DFN=$P(^PRCA(430,IEN,0),U,7)"
^XMB(3.9,88,2,1373,0)="""RTN"",""RCXVTSK"",195,0)"
^XMB(3.9,88,2,1374,0)=" . I $P(^PRCA(430,IEN,0),U,2)="""" Q"
^XMB(3.9,88,2,1375,0)="""RTN"",""RCXVTSK"",196,0)"
^XMB(3.9,88,2,1376,0)=" . S CSTAT=$P(^PRCA(430,IEN,0),U,8)"
^XMB(3.9,88,2,1377,0)="""RTN"",""RCXVTSK"",197,0)"
^XMB(3.9,88,2,1378,0)=" . I CSTAT'=STAT S QFL=0 D  Q:QFL"
^XMB(3.9,88,2,1379,0)="""RTN"",""RCXVTSK"",198,0)"
^XMB(3.9,88,2,1380,0)=" .. I CSTAT'=16!(CSTAT'=40) S QFL=1"
^XMB(3.9,88,2,1381,0)="""RTN"",""RCXVTSK"",199,0)"
^XMB(3.9,88,2,1382,0)=" . D FIL^RCXVDEQ(""A"")"
^XMB(3.9,88,2,1383,0)="""RTN"",""RCXVTSK"",200,0)"
^XMB(3.9,88,2,1384,0)=" ;"
^XMB(3.9,88,2,1385,0)="""RTN"",""RCXVTSK"",201,0)"
^XMB(3.9,88,2,1386,0)=" L -^RCXVTSK"
^XMB(3.9,88,2,1387,0)="""RTN"",""RCXVTSK"",202,0)"
^XMB(3.9,88,2,1388,0)=" ;"
^XMB(3.9,88,2,1389,0)="""RTN"",""RCXVTSK"",203,0)"
^XMB(3.9,88,2,1390,0)=" D EN"
^XMB(3.9,88,2,1391,0)="""RTN"",""RCXVTSK"",204,0)"
^XMB(3.9,88,2,1392,0)=" Q"
^XMB(3.9,88,2,1393,0)="""RTN"",""RCXVTSK"",205,0)"
^XMB(3.9,88,2,1394,0)=" ;"
^XMB(3.9,88,2,1395,0)="""RTN"",""RCXVTSK"",206,0)"
^XMB(3.9,88,2,1396,0)="ER ; Unlock and log error"
^XMB(3.9,88,2,1397,0)="""RTN"",""RCXVTSK"",207,0)"
^XMB(3.9,88,2,1398,0)=" L -^RCXVTSK"
^XMB(3.9,88,2,1399,0)="""RTN"",""RCXVTSK"",208,0)"
^XMB(3.9,88,2,1400,0)=" D ^%ZTER"
^XMB(3.9,88,2,1401,0)="""RTN"",""RCXVTSK"",209,0)"
^XMB(3.9,88,2,1402,0)=" D UNWIND^%ZTER"
^XMB(3.9,88,2,1403,0)="""RTN"",""RCXVTSK"",210,0)"
^XMB(3.9,88,2,1404,0)=" Q"
^XMB(3.9,88,2,1405,0)="""SEC"",""^DIC"",348.4,348.4,0,""AUDIT"")"
^XMB(3.9,88,2,1406,0)="@"
^XMB(3.9,88,2,1407,0)="""SEC"",""^DIC"",348.4,348.4,0,""DD"")"
^XMB(3.9,88,2,1408,0)="@"
^XMB(3.9,88,2,1409,0)="""SEC"",""^DIC"",348.4,348.4,0,""DEL"")"
^XMB(3.9,88,2,1410,0)="@"
^XMB(3.9,88,2,1411,0)="""SEC"",""^DIC"",348.4,348.4,0,""LAYGO"")"
^XMB(3.9,88,2,1412,0)="@"
^XMB(3.9,88,2,1413,0)="""SEC"",""^DIC"",348.4,348.4,0,""RD"")"
^XMB(3.9,88,2,1414,0)="@"
^XMB(3.9,88,2,1415,0)="""SEC"",""^DIC"",348.4,348.4,0,""WR"")"
^XMB(3.9,88,2,1416,0)="@"
^XMB(3.9,88,2,1417,0)="""VER"")"
^XMB(3.9,88,2,1418,0)="8.0^22.0"
^XMB(3.9,88,2,1419,0)="""^DD"",348.4,348.4,0)"
^XMB(3.9,88,2,1420,0)="FIELD^^5^15"
^XMB(3.9,88,2,1421,0)="""^DD"",348.4,348.4,0,""DDA"")"
^XMB(3.9,88,2,1422,0)="N"
^XMB(3.9,88,2,1423,0)="""^DD"",348.4,348.4,0,""DT"")"
^XMB(3.9,88,2,1424,0)="3060718"
^XMB(3.9,88,2,1425,0)="""^DD"",348.4,348.4,0,""IX"",""AC"",348.4,.03)"
^XMB(3.9,88,2,1426,0)=""
^XMB(3.9,88,2,1427,0)="""^DD"",348.4,348.4,0,""IX"",""B"",348.4,.01)"
^XMB(3.9,88,2,1428,0)=""
^XMB(3.9,88,2,1429,0)="""^DD"",348.4,348.4,0,""IX"",""C"",348.4,.02)"
^XMB(3.9,88,2,1430,0)=""
^XMB(3.9,88,2,1431,0)="""^DD"",348.4,348.4,0,""NM"",""AR DATA QUEUE"")"
^XMB(3.9,88,2,1432,0)=""
^XMB(3.9,88,2,1433,0)="""^DD"",348.4,348.4,0,""VRPK"")"
^XMB(3.9,88,2,1434,0)="PRCA"
^XMB(3.9,88,2,1435,0)="""^DD"",348.4,348.4,.01,0)"
^XMB(3.9,88,2,1436,0)="BATCH NUMBER^RNJ9,0^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^XMB(3.9,88,2,1437,0)="""^DD"",348.4,348.4,.01,1,0)"
^XMB(3.9,88,2,1438,0)="^.1"
^XMB(3.9,88,2,1439,0)="""^DD"",348.4,348.4,.01,1,1,0)"
^XMB(3.9,88,2,1440,0)="348.4^B"
^XMB(3.9,88,2,1441,0)="""^DD"",348.4,348.4,.01,1,1,1)"
^XMB(3.9,88,2,1442,0)="S ^RCXV(""B"",$E(X,1,30),DA)="""""
^XMB(3.9,88,2,1443,0)="""^DD"",348.4,348.4,.01,1,1,2)"
^XMB(3.9,88,2,1444,0)="K ^RCXV(""B"",$E(X,1,30),DA)"
^XMB(3.9,88,2,1445,0)="""^DD"",348.4,348.4,.01,3)"
^XMB(3.9,88,2,1446,0)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^XMB(3.9,88,2,1447,0)="""^DD"",348.4,348.4,.01,21,0)"
^XMB(3.9,88,2,1448,0)="^^1^1^3030716^"
^XMB(3.9,88,2,1449,0)="""^DD"",348.4,348.4,.01,21,1,0)"
^XMB(3.9,88,2,1450,0)="The Batch Number is a sequential counter distinguishing each batch of data to be transmitted"
^XMB(3.9,88,2,1451,0)="""^DD"",348.4,348.4,.01,""DT"")"
^XMB(3.9,88,2,1452,0)="3030728"
^XMB(3.9,88,2,1453,0)="""^DD"",348.4,348.4,.02,0)"
^XMB(3.9,88,2,1454,0)="BATCH DATE^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,88,2,1455,0)="""^DD"",348.4,348.4,.02,1,0)"
^XMB(3.9,88,2,1456,0)="^.1"
^XMB(3.9,88,2,1457,0)="""^DD"",348.4,348.4,.02,1,1,0)"
^XMB(3.9,88,2,1458,0)="348.4^C"
^XMB(3.9,88,2,1459,0)="""^DD"",348.4,348.4,.02,1,1,1)"
^XMB(3.9,88,2,1460,0)="S ^RCXV(""C"",$E(X,1,30),DA)="""""
^XMB(3.9,88,2,1461,0)="""^DD"",348.4,348.4,.02,1,1,2)"
^XMB(3.9,88,2,1462,0)="K ^RCXV(""C"",$E(X,1,30),DA)"
^XMB(3.9,88,2,1463,0)="""^DD"",348.4,348.4,.02,1,1,""%D"",0)"
^XMB(3.9,88,2,1464,0)="^^1^1^3030728^"
^XMB(3.9,88,2,1465,0)="""^DD"",348.4,348.4,.02,1,1,""%D"",1,0)"
^XMB(3.9,88,2,1466,0)="This cross-reference is used to look up a batch by the batch date."
^XMB(3.9,88,2,1467,0)="""^DD"",348.4,348.4,.02,1,1,""DT"")"
^XMB(3.9,88,2,1468,0)="3030728"
^XMB(3.9,88,2,1469,0)="""^DD"",348.4,348.4,.02,21,0)"
^XMB(3.9,88,2,1470,0)="^^1^1^3030716^"
^XMB(3.9,88,2,1471,0)="""^DD"",348.4,348.4,.02,21,1,0)"
^XMB(3.9,88,2,1472,0)="This field will contain the date for which the batch is generated."
^XMB(3.9,88,2,1473,0)="""^DD"",348.4,348.4,.02,""DT"")"
^XMB(3.9,88,2,1474,0)="3030728"
^XMB(3.9,88,2,1475,0)="""^DD"",348.4,348.4,.03,0)"
^XMB(3.9,88,2,1476,0)="STATUS^S^P:PENDING;T:TRANSMITTED;C:COMPLETED;^0;3^Q"
^XMB(3.9,88,2,1477,0)="""^DD"",348.4,348.4,.03,1,0)"
^XMB(3.9,88,2,1478,0)="^.1"
^XMB(3.9,88,2,1479,0)="""^DD"",348.4,348.4,.03,1,1,0)"
^XMB(3.9,88,2,1480,0)="348.4^AC"
^XMB(3.9,88,2,1481,0)="""^DD"",348.4,348.4,.03,1,1,1)"
^XMB(3.9,88,2,1482,0)="S ^RCXV(""AC"",$E(X,1,30),DA)="""""
^XMB(3.9,88,2,1483,0)="""^DD"",348.4,348.4,.03,1,1,2)"
^XMB(3.9,88,2,1484,0)="K ^RCXV(""AC"",$E(X,1,30),DA)"
^XMB(3.9,88,2,1485,0)="""^DD"",348.4,348.4,.03,1,1,""%D"",0)"
^XMB(3.9,88,2,1486,0)="^^1^1^3030724^"
^XMB(3.9,88,2,1487,0)="""^DD"",348.4,348.4,.03,1,1,""%D"",1,0)"
^XMB(3.9,88,2,1488,0)="This cross-reference tells the status of the batch."
^XMB(3.9,88,2,1489,0)="""^DD"",348.4,348.4,.03,1,1,""DT"")"
^XMB(3.9,88,2,1490,0)="3030724"
^XMB(3.9,88,2,1491,0)="""^DD"",348.4,348.4,.03,21,0)"
^XMB(3.9,88,2,1492,0)="3^.001^3^3^3030716^"
^XMB(3.9,88,2,1493,0)="""^DD"",348.4,348.4,.03,21,1,0)"
^XMB(3.9,88,2,1494,0)="This field contains the status of the batch. 'Pending' will indicate that the batch is ready for the nightly process. 'Transmitted' will indicate that the batch has been sent to the Vitria server but no completed acknowledgement has been"
^XMB(3.9,88,2,1495,0)="""^DD"",348.4,348.4,.03,21,2,0)"
^XMB(3.9,88,2,1496,0)="received. If the batch is still at the status of 'Transmitted' the next night, it will be sent to Vitria. 'Completed' will indicate that the batch has been successfully received and processed on the Vitria server and records may now be "
^XMB(3.9,88,2,1497,0)="""^DD"",348.4,348.4,.03,21,3,0)"
^XMB(3.9,88,2,1498,0)="available for purging."
^XMB(3.9,88,2,1499,0)="""^DD"",348.4,348.4,.03,""DT"")"
^XMB(3.9,88,2,1500,0)="3030724"
^XMB(3.9,88,2,1501,0)="""^DD"",348.4,348.4,.04,0)"
^XMB(3.9,88,2,1502,0)="BATCH TYPE^S^D:DAILY;H:HISTORICAL;A:ACTIVE;R:DEPOSITS/RECEIPTS;C:CURRENT FY;E:FY 05;P:PRE-REGISTRATION;B:BUFFER;I:IB COPAY;^0;4^Q"
^XMB(3.9,88,2,1503,0)="""^DD"",348.4,348.4,.04,21,0)"
^XMB(3.9,88,2,1504,0)="^.001^1^1^3060718^^^"
^XMB(3.9,88,2,1505,0)="""^DD"",348.4,348.4,.04,21,1,0)"
^XMB(3.9,88,2,1506,0)="This field contains the type of data contained in this batch."
^XMB(3.9,88,2,1507,0)="""^DD"",348.4,348.4,.04,23,0)"
^XMB(3.9,88,2,1508,0)="^^1^1^3060718^"
^XMB(3.9,88,2,1509,0)="""^DD"",348.4,348.4,.04,23,1,0)"
^XMB(3.9,88,2,1510,0)=" "
^XMB(3.9,88,2,1511,0)="""^DD"",348.4,348.4,.04,""DT"")"
^XMB(3.9,88,2,1512,0)="3060718"
^XMB(3.9,88,2,1513,0)="""^DD"",348.4,348.4,.05,0)"
^XMB(3.9,88,2,1514,0)="BATCH SEQUENCE NUMBER^NJ4,0^^0;5^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^XMB(3.9,88,2,1515,0)="""^DD"",348.4,348.4,.05,3)"
^XMB(3.9,88,2,1516,0)="Type a Number between 1 and 9999, 0 Decimal Digits"
^XMB(3.9,88,2,1517,0)="""^DD"",348.4,348.4,.05,21,0)"
^XMB(3.9,88,2,1518,0)="^.001^2^2^3031021^^"
^XMB(3.9,88,2,1519,0)="""^DD"",348.4,348.4,.05,21,1,0)"
^XMB(3.9,88,2,1520,0)="This field contains the sequence number of the batch where there"
^XMB(3.9,88,2,1521,0)="""^DD"",348.4,348.4,.05,21,2,0)"
^XMB(3.9,88,2,1522,0)="may be more than one batch transmitted in the daily transmission."
^XMB(3.9,88,2,1523,0)="""^DD"",348.4,348.4,.05,""DT"")"
^XMB(3.9,88,2,1524,0)="3031021"
^XMB(3.9,88,2,1525,0)="""^DD"",348.4,348.4,.06,0)"
^XMB(3.9,88,2,1526,0)="TOTAL BATCH SEQUENCE NUMBER^NJ4,0^^0;6^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^XMB(3.9,88,2,1527,0)="""^DD"",348.4,348.4,.06,3)"
^XMB(3.9,88,2,1528,0)="Type a Number between 1 and 9999, 0 Decimal Digits"
^XMB(3.9,88,2,1529,0)="""^DD"",348.4,348.4,.06,21,0)"
^XMB(3.9,88,2,1530,0)="^.001^2^2^3031021^^"
^XMB(3.9,88,2,1531,0)="""^DD"",348.4,348.4,.06,21,1,0)"
^XMB(3.9,88,2,1532,0)="This field contains the total number of batches in a daily"
^XMB(3.9,88,2,1533,0)="""^DD"",348.4,348.4,.06,21,2,0)"
^XMB(3.9,88,2,1534,0)="transmission."
^XMB(3.9,88,2,1535,0)="""^DD"",348.4,348.4,.06,""DT"")"
^XMB(3.9,88,2,1536,0)="3031021"
^XMB(3.9,88,2,1537,0)="""^DD"",348.4,348.4,.07,0)"
^XMB(3.9,88,2,1538,0)="NUMBER OF RECORDS^NJ11,0^^0;7^K:+X'=X!(X>99999999999)!(X<0)!(X?.E1"".""1N.N) X"
^XMB(3.9,88,2,1539,0)="""^DD"",348.4,348.4,.07,3)"
^XMB(3.9,88,2,1540,0)="Type a Number between 0 and 99999999999, 0 Decimal Digits"
^XMB(3.9,88,2,1541,0)="""^DD"",348.4,348.4,.07,21,0)"
^XMB(3.9,88,2,1542,0)="^^1^1^3030716^"
^XMB(3.9,88,2,1543,0)="""^DD"",348.4,348.4,.07,21,1,0)"
^XMB(3.9,88,2,1544,0)="This field will contain the number of records contained in this batch."
^XMB(3.9,88,2,1545,0)="""^DD"",348.4,348.4,.07,""DT"")"
^XMB(3.9,88,2,1546,0)="3030716"
^XMB(3.9,88,2,1547,0)="""^DD"",348.4,348.4,.08,0)"
^XMB(3.9,88,2,1548,0)="ACK RECEIVED DATE/TIME^D^^0;8^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,88,2,1549,0)="""^DD"",348.4,348.4,.08,21,0)"
^XMB(3.9,88,2,1550,0)="^^1^1^3030716^"
^XMB(3.9,88,2,1551,0)="""^DD"",348.4,348.4,.08,21,1,0)"
^XMB(3.9,88,2,1552,0)="This field will contain the date and time that the successful acknowledgement was received from the Vitria server."
^XMB(3.9,88,2,1553,0)="""^DD"",348.4,348.4,.08,""DT"")"
^XMB(3.9,88,2,1554,0)="3030716"
^XMB(3.9,88,2,1555,0)="""^DD"",348.4,348.4,.09,0)"
^XMB(3.9,88,2,1556,0)="ARC ACK RECEIVED DATE/TIME^D^^0;9^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,88,2,1557,0)="""^DD"",348.4,348.4,.09,21,0)"
^XMB(3.9,88,2,1558,0)="^^3^3^3030924^"
^XMB(3.9,88,2,1559,0)="""^DD"",348.4,348.4,.09,21,1,0)"
^XMB(3.9,88,2,1560,0)="This field contains the date and time that the Boston Allocation"
^XMB(3.9,88,2,1561,0)="""^DD"",348.4,348.4,.09,21,2,0)"
^XMB(3.9,88,2,1562,0)="Resource Center sent back an acknowledgement that the data was"
^XMB(3.9,88,2,1563,0)="""^DD"",348.4,348.4,.09,21,3,0)"
^XMB(3.9,88,2,1564,0)="loaded succesfully."
^XMB(3.9,88,2,1565,0)="""^DD"",348.4,348.4,.09,""DT"")"
^XMB(3.9,88,2,1566,0)="3030924"
^XMB(3.9,88,2,1567,0)="""^DD"",348.4,348.4,.1,0)"
^XMB(3.9,88,2,1568,0)="COPAY MONTH/YEAR^D^^0;10^S %DT=""E"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,88,2,1569,0)="""^DD"",348.4,348.4,.1,3)"
^XMB(3.9,88,2,1570,0)="Month and year for this transmission"
^XMB(3.9,88,2,1571,0)="""^DD"",348.4,348.4,.1,21,0)"
^XMB(3.9,88,2,1572,0)="^^2^2^3050822^"
^XMB(3.9,88,2,1573,0)="""^DD"",348.4,348.4,.1,21,1,0)"
^XMB(3.9,88,2,1574,0)="If this batch is a Co-Pay Transmission, (""I"" batch type), this field will "
^XMB(3.9,88,2,1575,0)="""^DD"",348.4,348.4,.1,21,2,0)"
^XMB(3.9,88,2,1576,0)="hold the month/year that the transmission is for."
^XMB(3.9,88,2,1577,0)="""^DD"",348.4,348.4,.1,""DT"")"
^XMB(3.9,88,2,1578,0)="3050822"
^XMB(3.9,88,2,1579,0)="""^DD"",348.4,348.4,1.01,0)"
^XMB(3.9,88,2,1580,0)="BILL NUMBER^348.41PA^^1;0"
^XMB(3.9,88,2,1581,0)="""^DD"",348.4,348.4,2.01,0)"
^XMB(3.9,88,2,1582,0)="AR BATCH PAYMENT^348.42P^^2;0"
^XMB(3.9,88,2,1583,0)="""^DD"",348.4,348.4,3.01,0)"
^XMB(3.9,88,2,1584,0)="COPAY PATIENT^348.43P^^3;0"
^XMB(3.9,88,2,1585,0)="""^DD"",348.4,348.4,4,0)"
^XMB(3.9,88,2,1586,0)="PRE-REGISTRATION MONTH/YEAR^D^^4;1^S %DT=""E"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,88,2,1587,0)="""^DD"",348.4,348.4,4,3)"
^XMB(3.9,88,2,1588,0)="(No range limit on date)"
^XMB(3.9,88,2,1589,0)="""^DD"",348.4,348.4,4,21,0)"
^XMB(3.9,88,2,1590,0)="^^2^2^3050822^"
^XMB(3.9,88,2,1591,0)="""^DD"",348.4,348.4,4,21,1,0)"
^XMB(3.9,88,2,1592,0)="If this batch is a Pre-registration transmission, (""P"" batch type), this"
^XMB(3.9,88,2,1593,0)="""^DD"",348.4,348.4,4,21,2,0)"
^XMB(3.9,88,2,1594,0)="field will hold the month/year that the transmission is for."
^XMB(3.9,88,2,1595,0)="""^DD"",348.4,348.4,4,""DT"")"
^XMB(3.9,88,2,1596,0)="3050822"
^XMB(3.9,88,2,1597,0)="""^DD"",348.4,348.4,5,0)"
^XMB(3.9,88,2,1598,0)="INSURANCE BUFFER MONTH/YEAR^D^^5;1^S %DT=""E"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,88,2,1599,0)="""^DD"",348.4,348.4,5,3)"
^XMB(3.9,88,2,1600,0)="(No range limit on date)"
^XMB(3.9,88,2,1601,0)="""^DD"",348.4,348.4,5,21,0)"
^XMB(3.9,88,2,1602,0)="^^2^2^3050822^"
^XMB(3.9,88,2,1603,0)="""^DD"",348.4,348.4,5,21,1,0)"
^XMB(3.9,88,2,1604,0)="If this batch is a Buffer file transmission, (""B"" batch type), this field"
^XMB(3.9,88,2,1605,0)="""^DD"",348.4,348.4,5,21,2,0)"
^XMB(3.9,88,2,1606,0)="will hold the month/year that the transmission is for."
^XMB(3.9,88,2,1607,0)="""^DD"",348.4,348.4,5,""DT"")"
^XMB(3.9,88,2,1608,0)="3050822"
^XMB(3.9,88,2,1609,0)="""^DD"",348.4,348.41,0)"
^XMB(3.9,88,2,1610,0)="BILL NUMBER SUB-FIELD^^.02^2"
^XMB(3.9,88,2,1611,0)="""^DD"",348.4,348.41,0,""DT"")"
^XMB(3.9,88,2,1612,0)="3030722"
^XMB(3.9,88,2,1613,0)="""^DD"",348.4,348.41,0,""IX"",""B"",348.41,.01)"
^XMB(3.9,88,2,1614,0)=""
^XMB(3.9,88,2,1615,0)="""^DD"",348.4,348.41,0,""NM"",""BILL NUMBER"")"
^XMB(3.9,88,2,1616,0)=""
^XMB(3.9,88,2,1617,0)="""^DD"",348.4,348.41,0,""UP"")"
^XMB(3.9,88,2,1618,0)="348.4"
^XMB(3.9,88,2,1619,0)="""^DD"",348.4,348.41,.01,0)"
^XMB(3.9,88,2,1620,0)="BILL NUMBER^MP430'X^PRCA(430,^0;1^S X=DINUM"
^XMB(3.9,88,2,1621,0)="""^DD"",348.4,348.41,.01,1,0)"
^XMB(3.9,88,2,1622,0)="^.1"
^XMB(3.9,88,2,1623,0)="""^DD"",348.4,348.41,.01,1,1,0)"
^XMB(3.9,88,2,1624,0)="348.41^B"
^XMB(3.9,88,2,1625,0)="""^DD"",348.4,348.41,.01,1,1,1)"
^XMB(3.9,88,2,1626,0)="S ^RCXV(DA(1),1,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,88,2,1627,0)="""^DD"",348.4,348.41,.01,1,1,2)"
^XMB(3.9,88,2,1628,0)="K ^RCXV(DA(1),1,""B"",$E(X,1,30),DA)"
^XMB(3.9,88,2,1629,0)="""^DD"",348.4,348.41,.01,21,0)"
^XMB(3.9,88,2,1630,0)="^^1^1^3030716^"
^XMB(3.9,88,2,1631,0)="""^DD"",348.4,348.41,.01,21,1,0)"
^XMB(3.9,88,2,1632,0)="This field will contain the IEN of the bill who was triggered to be processed for this BATCH DATE.  This field will be DINUM'd so there will not be any duplicates."
^XMB(3.9,88,2,1633,0)="""^DD"",348.4,348.41,.01,""DT"")"
^XMB(3.9,88,2,1634,0)="3030723"
^XMB(3.9,88,2,1635,0)="""^DD"",348.4,348.41,.02,0)"
^XMB(3.9,88,2,1636,0)="PATIENT^P2'^DPT(^0;2^Q"
^XMB(3.9,88,2,1637,0)="""^DD"",348.4,348.41,.02,21,0)"
^XMB(3.9,88,2,1638,0)="^^1^1^3030930^"
^XMB(3.9,88,2,1639,0)="""^DD"",348.4,348.41,.02,21,1,0)"
^XMB(3.9,88,2,1640,0)="This is the patient associated with the bill."
^XMB(3.9,88,2,1641,0)="""^DD"",348.4,348.41,.02,""DT"")"
^XMB(3.9,88,2,1642,0)="3030722"
^XMB(3.9,88,2,1643,0)="""^DD"",348.4,348.42,0)"
^XMB(3.9,88,2,1644,0)="AR BATCH PAYMENT SUB-FIELD^^.01^1"
^XMB(3.9,88,2,1645,0)="""^DD"",348.4,348.42,0,""DT"")"
^XMB(3.9,88,2,1646,0)="3031022"
^XMB(3.9,88,2,1647,0)="""^DD"",348.4,348.42,0,""IX"",""B"",348.42,.01)"
^XMB(3.9,88,2,1648,0)=""
^XMB(3.9,88,2,1649,0)="""^DD"",348.4,348.42,0,""NM"",""AR BATCH PAYMENT"")"
^XMB(3.9,88,2,1650,0)=""
^XMB(3.9,88,2,1651,0)="""^DD"",348.4,348.42,0,""UP"")"
^XMB(3.9,88,2,1652,0)="348.4"
^XMB(3.9,88,2,1653,0)="""^DD"",348.4,348.42,.01,0)"
^XMB(3.9,88,2,1654,0)="AR BATCH PAYMENT^MP344'X^RCY(344,^0;1^S DINUM=X Q"
^XMB(3.9,88,2,1655,0)="""^DD"",348.4,348.42,.01,1,0)"
^XMB(3.9,88,2,1656,0)="^.1"
^XMB(3.9,88,2,1657,0)="""^DD"",348.4,348.42,.01,1,1,0)"
^XMB(3.9,88,2,1658,0)="348.42^B"
^XMB(3.9,88,2,1659,0)="""^DD"",348.4,348.42,.01,1,1,1)"
^XMB(3.9,88,2,1660,0)="S ^RCXV(DA(1),2,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,88,2,1661,0)="""^DD"",348.4,348.42,.01,1,1,2)"
^XMB(3.9,88,2,1662,0)="K ^RCXV(DA(1),2,""B"",$E(X,1,30),DA)"
^XMB(3.9,88,2,1663,0)="""^DD"",348.4,348.42,.01,21,0)"
^XMB(3.9,88,2,1664,0)="^^3^3^3031022^"
^XMB(3.9,88,2,1665,0)="""^DD"",348.4,348.42,.01,21,1,0)"
^XMB(3.9,88,2,1666,0)="This field will contain any batch payments for a specific date."
^XMB(3.9,88,2,1667,0)="""^DD"",348.4,348.42,.01,21,2,0)"
^XMB(3.9,88,2,1668,0)="It will be used to transmit information to the Boston Allocation"
^XMB(3.9,88,2,1669,0)="""^DD"",348.4,348.42,.01,21,3,0)"
^XMB(3.9,88,2,1670,0)="Resource Center or re-transmit as needed."
^XMB(3.9,88,2,1671,0)="""^DD"",348.4,348.42,.01,""DT"")"
^XMB(3.9,88,2,1672,0)="3031022"
^XMB(3.9,88,2,1673,0)="""^DD"",348.4,348.43,0)"
^XMB(3.9,88,2,1674,0)="COPAY PATIENT SUB-FIELD^^.01^1"
^XMB(3.9,88,2,1675,0)="""^DD"",348.4,348.43,0,""DT"")"
^XMB(3.9,88,2,1676,0)="3050504"
^XMB(3.9,88,2,1677,0)="""^DD"",348.4,348.43,0,""IX"",""B"",348.43,.01)"
^XMB(3.9,88,2,1678,0)=""
^XMB(3.9,88,2,1679,0)="""^DD"",348.4,348.43,0,""NM"",""COPAY PATIENT"")"
^XMB(3.9,88,2,1680,0)=""
^XMB(3.9,88,2,1681,0)="""^DD"",348.4,348.43,0,""UP"")"
^XMB(3.9,88,2,1682,0)="348.4"
^XMB(3.9,88,2,1683,0)="""^DD"",348.4,348.43,.01,0)"
^XMB(3.9,88,2,1684,0)="COPAY PATIENT^P2'X^DPT(^0;1^S X=DINUM"
^XMB(3.9,88,2,1685,0)="""^DD"",348.4,348.43,.01,1,0)"
^XMB(3.9,88,2,1686,0)="^.1"
^XMB(3.9,88,2,1687,0)="""^DD"",348.4,348.43,.01,1,1,0)"
^XMB(3.9,88,2,1688,0)="348.43^B"
^XMB(3.9,88,2,1689,0)="""^DD"",348.4,348.43,.01,1,1,1)"
^XMB(3.9,88,2,1690,0)="S ^RCXV(DA(1),3,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,88,2,1691,0)="""^DD"",348.4,348.43,.01,1,1,2)"
^XMB(3.9,88,2,1692,0)="K ^RCXV(DA(1),3,""B"",$E(X,1,30),DA)"
^XMB(3.9,88,2,1693,0)="""^DD"",348.4,348.43,.01,3)"
^XMB(3.9,88,2,1694,0)="This is the patient's DFN"
^XMB(3.9,88,2,1695,0)="""^DD"",348.4,348.43,.01,21,0)"
^XMB(3.9,88,2,1696,0)="^^5^5^3050829^"
^XMB(3.9,88,2,1697,0)="""^DD"",348.4,348.43,.01,21,1,0)"
^XMB(3.9,88,2,1698,0)="If this transmission is a Co-Pay transmission (""P"" batch type), this"
^XMB(3.9,88,2,1699,0)="""^DD"",348.4,348.43,.01,21,2,0)"
^XMB(3.9,88,2,1700,0)="field will contain the IEN of the patient whose data will be transmitted."
^XMB(3.9,88,2,1701,0)="""^DD"",348.4,348.43,.01,21,3,0)"
^XMB(3.9,88,2,1702,0)="This field will be DINUMed, so there are no duplicates."
^XMB(3.9,88,2,1703,0)="""^DD"",348.4,348.43,.01,21,4,0)"
^XMB(3.9,88,2,1704,0)=" "
^XMB(3.9,88,2,1705,0)="""^DD"",348.4,348.43,.01,21,5,0)"
^XMB(3.9,88,2,1706,0)="This field is populated from routine RCXVDC10."
^XMB(3.9,88,2,1707,0)="""^DD"",348.4,348.43,.01,""DT"")"
^XMB(3.9,88,2,1708,0)="3050829"
^XMB(3.9,88,2,1709,0)="""^DIC"",348.4,348.4,0)"
^XMB(3.9,88,2,1710,0)="AR DATA QUEUE^348.4"
^XMB(3.9,88,2,1711,0)="""^DIC"",348.4,348.4,0,""GL"")"
^XMB(3.9,88,2,1712,0)="^RCXV("
^XMB(3.9,88,2,1713,0)="""^DIC"",348.4,348.4,""%D"",0)"
^XMB(3.9,88,2,1714,0)="^1.001^4^4^3031022^^"
^XMB(3.9,88,2,1715,0)="""^DIC"",348.4,348.4,""%D"",1,0)"
^XMB(3.9,88,2,1716,0)="This file contains bill entries which based upon certain criteria"
^XMB(3.9,88,2,1717,0)="""^DIC"",348.4,348.4,""%D"",2,0)"
^XMB(3.9,88,2,1718,0)="have been triggered into this file.  These bill entries are used"
^XMB(3.9,88,2,1719,0)="""^DIC"",348.4,348.4,""%D"",3,0)"
^XMB(3.9,88,2,1720,0)="to export data information for CBO to the Boston Allocation"
^XMB(3.9,88,2,1721,0)="""^DIC"",348.4,348.4,""%D"",4,0)"
^XMB(3.9,88,2,1722,0)="Resource Center (ARC)."
^XMB(3.9,88,2,1723,0)="""^DIC"",348.4,""B"",""AR DATA QUEUE"",348.4)"
^XMB(3.9,88,2,1724,0)=""
^XMB(3.9,88,2,1725,0)="""BLD"",6160,6)"
^XMB(3.9,88,2,1726,0)="^219"
^XMB(3.9,88,2,1727,0)="$END KID PRCA*4.5*232"
^XMB(3.9,88,6,0)="^3.911A^2^2"
^XMB(3.9,88,6,1,0)="POSTMASTER"
^XMB(3.9,88,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,88,6,"B","POSTMASTER",1)=""
^XMB(3.9,88,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,89,0)="PRCA-4P5_SEQ-220_PAT-235.KID^.5^3061008.015739^^^^K"
^XMB(3.9,89,.6)="3061008"
^XMB(3.9,89,1,0)="^3.91A^2^2"
^XMB(3.9,89,1,1,0)=".5^0^3061008.015739^^^^^^^3061008.015739"
^XMB(3.9,89,1,2,0)="1^0^3061008.024154^^^^^^^3061008.024154"
^XMB(3.9,89,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,89,1,"C",.5,1)=""
^XMB(3.9,89,1,"C",1,2)=""
^XMB(3.9,89,2,0)="^^601^601^3061008"
^XMB(3.9,89,2,1,0)="$TXT Released PRCA*4.5*235 SEQ #220"
^XMB(3.9,89,2,2,0)="Extracted from mail message"
^XMB(3.9,89,2,3,0)="$END TXT"
^XMB(3.9,89,2,4,0)="$KID PRCA*4.5*235"
^XMB(3.9,89,2,5,0)="**INSTALL NAME**"
^XMB(3.9,89,2,6,0)="PRCA*4.5*235"
^XMB(3.9,89,2,7,0)="""BLD"",6443,0)"
^XMB(3.9,89,2,8,0)="PRCA*4.5*235^ACCOUNTS RECEIVABLE^0^3051024^y"
^XMB(3.9,89,2,9,0)="""BLD"",6443,1,0)"
^XMB(3.9,89,2,10,0)="^^2^2^3051024^"
^XMB(3.9,89,2,11,0)="""BLD"",6443,1,1,0)"
^XMB(3.9,89,2,12,0)="The Chief Business Office has requested a patch to correct the audit"
^XMB(3.9,89,2,13,0)="""BLD"",6443,1,2,0)"
^XMB(3.9,89,2,14,0)="problem when billing CHAMPVA Other Health Insurance."
^XMB(3.9,89,2,15,0)="""BLD"",6443,4,0)"
^XMB(3.9,89,2,16,0)="^9.64PA^^"
^XMB(3.9,89,2,17,0)="""BLD"",6443,""KRN"",0)"
^XMB(3.9,89,2,18,0)="^9.67PA^8989.52^19"
^XMB(3.9,89,2,19,0)="""BLD"",6443,""KRN"",.4,0)"
^XMB(3.9,89,2,20,0)=".4"
^XMB(3.9,89,2,21,0)="""BLD"",6443,""KRN"",.401,0)"
^XMB(3.9,89,2,22,0)=".401"
^XMB(3.9,89,2,23,0)="""BLD"",6443,""KRN"",.402,0)"
^XMB(3.9,89,2,24,0)=".402"
^XMB(3.9,89,2,25,0)="""BLD"",6443,""KRN"",.403,0)"
^XMB(3.9,89,2,26,0)=".403"
^XMB(3.9,89,2,27,0)="""BLD"",6443,""KRN"",.5,0)"
^XMB(3.9,89,2,28,0)=".5"
^XMB(3.9,89,2,29,0)="""BLD"",6443,""KRN"",.84,0)"
^XMB(3.9,89,2,30,0)=".84"
^XMB(3.9,89,2,31,0)="""BLD"",6443,""KRN"",3.6,0)"
^XMB(3.9,89,2,32,0)="3.6"
^XMB(3.9,89,2,33,0)="""BLD"",6443,""KRN"",3.8,0)"
^XMB(3.9,89,2,34,0)="3.8"
^XMB(3.9,89,2,35,0)="""BLD"",6443,""KRN"",9.2,0)"
^XMB(3.9,89,2,36,0)="9.2"
^XMB(3.9,89,2,37,0)="""BLD"",6443,""KRN"",9.8,0)"
^XMB(3.9,89,2,38,0)="9.8"
^XMB(3.9,89,2,39,0)="""BLD"",6443,""KRN"",9.8,""NM"",0)"
^XMB(3.9,89,2,40,0)="^9.68A^2^2"
^XMB(3.9,89,2,41,0)="""BLD"",6443,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,89,2,42,0)="PRCACPV^^0^B13280235"
^XMB(3.9,89,2,43,0)="""BLD"",6443,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,89,2,44,0)="RCXFMSUF^^0^B31990259"
^XMB(3.9,89,2,45,0)="""BLD"",6443,""KRN"",9.8,""NM"",""B"",""PRCACPV"",1)"
^XMB(3.9,89,2,46,0)=""
^XMB(3.9,89,2,47,0)="""BLD"",6443,""KRN"",9.8,""NM"",""B"",""RCXFMSUF"",2)"
^XMB(3.9,89,2,48,0)=""
^XMB(3.9,89,2,49,0)="""BLD"",6443,""KRN"",19,0)"
^XMB(3.9,89,2,50,0)="19"
^XMB(3.9,89,2,51,0)="""BLD"",6443,""KRN"",19.1,0)"
^XMB(3.9,89,2,52,0)="19.1"
^XMB(3.9,89,2,53,0)="""BLD"",6443,""KRN"",101,0)"
^XMB(3.9,89,2,54,0)="101"
^XMB(3.9,89,2,55,0)="""BLD"",6443,""KRN"",409.61,0)"
^XMB(3.9,89,2,56,0)="409.61"
^XMB(3.9,89,2,57,0)="""BLD"",6443,""KRN"",771,0)"
^XMB(3.9,89,2,58,0)="771"
^XMB(3.9,89,2,59,0)="""BLD"",6443,""KRN"",870,0)"
^XMB(3.9,89,2,60,0)="870"
^XMB(3.9,89,2,61,0)="""BLD"",6443,""KRN"",8989.51,0)"
^XMB(3.9,89,2,62,0)="8989.51"
^XMB(3.9,89,2,63,0)="""BLD"",6443,""KRN"",8989.52,0)"
^XMB(3.9,89,2,64,0)="8989.52"
^XMB(3.9,89,2,65,0)="""BLD"",6443,""KRN"",8994,0)"
^XMB(3.9,89,2,66,0)="8994"
^XMB(3.9,89,2,67,0)="""BLD"",6443,""KRN"",""B"",.4,.4)"
^XMB(3.9,89,2,68,0)=""
^XMB(3.9,89,2,69,0)="""BLD"",6443,""KRN"",""B"",.401,.401)"
^XMB(3.9,89,2,70,0)=""
^XMB(3.9,89,2,71,0)="""BLD"",6443,""KRN"",""B"",.402,.402)"
^XMB(3.9,89,2,72,0)=""
^XMB(3.9,89,2,73,0)="""BLD"",6443,""KRN"",""B"",.403,.403)"
^XMB(3.9,89,2,74,0)=""
^XMB(3.9,89,2,75,0)="""BLD"",6443,""KRN"",""B"",.5,.5)"
^XMB(3.9,89,2,76,0)=""
^XMB(3.9,89,2,77,0)="""BLD"",6443,""KRN"",""B"",.84,.84)"
^XMB(3.9,89,2,78,0)=""
^XMB(3.9,89,2,79,0)="""BLD"",6443,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,89,2,80,0)=""
^XMB(3.9,89,2,81,0)="""BLD"",6443,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,89,2,82,0)=""
^XMB(3.9,89,2,83,0)="""BLD"",6443,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,89,2,84,0)=""
^XMB(3.9,89,2,85,0)="""BLD"",6443,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,89,2,86,0)=""
^XMB(3.9,89,2,87,0)="""BLD"",6443,""KRN"",""B"",19,19)"
^XMB(3.9,89,2,88,0)=""
^XMB(3.9,89,2,89,0)="""BLD"",6443,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,89,2,90,0)=""
^XMB(3.9,89,2,91,0)="""BLD"",6443,""KRN"",""B"",101,101)"
^XMB(3.9,89,2,92,0)=""
^XMB(3.9,89,2,93,0)="""BLD"",6443,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,89,2,94,0)=""
^XMB(3.9,89,2,95,0)="""BLD"",6443,""KRN"",""B"",771,771)"
^XMB(3.9,89,2,96,0)=""
^XMB(3.9,89,2,97,0)="""BLD"",6443,""KRN"",""B"",870,870)"
^XMB(3.9,89,2,98,0)=""
^XMB(3.9,89,2,99,0)="""BLD"",6443,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,89,2,100,0)=""
^XMB(3.9,89,2,101,0)="""BLD"",6443,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,89,2,102,0)=""
^XMB(3.9,89,2,103,0)="""BLD"",6443,""KRN"",""B"",8994,8994)"
^XMB(3.9,89,2,104,0)=""
^XMB(3.9,89,2,105,0)="""BLD"",6443,""QUES"",0)"
^XMB(3.9,89,2,106,0)="^9.62^^"
^XMB(3.9,89,2,107,0)="""BLD"",6443,""REQB"",0)"
^XMB(3.9,89,2,108,0)="^9.611^2^2"
^XMB(3.9,89,2,109,0)="""BLD"",6443,""REQB"",1,0)"
^XMB(3.9,89,2,110,0)="PRCA*4.5*192^2"
^XMB(3.9,89,2,111,0)="""BLD"",6443,""REQB"",2,0)"
^XMB(3.9,89,2,112,0)="PRCA*4.5*220^2"
^XMB(3.9,89,2,113,0)="""BLD"",6443,""REQB"",""B"",""PRCA*4.5*192"",1)"
^XMB(3.9,89,2,114,0)=""
^XMB(3.9,89,2,115,0)="""BLD"",6443,""REQB"",""B"",""PRCA*4.5*220"",2)"
^XMB(3.9,89,2,116,0)=""
^XMB(3.9,89,2,117,0)="""MBREQ"")"
^XMB(3.9,89,2,118,0)="0"
^XMB(3.9,89,2,119,0)="""PKG"",142,-1)"
^XMB(3.9,89,2,120,0)="1^1"
^XMB(3.9,89,2,121,0)="""PKG"",142,0)"
^XMB(3.9,89,2,122,0)="ACCOUNTS RECEIVABLE^PRCA^BILL COLLECTIONS"
^XMB(3.9,89,2,123,0)="""PKG"",142,20,0)"
^XMB(3.9,89,2,124,0)="^9.402P^1^1"
^XMB(3.9,89,2,125,0)="""PKG"",142,20,1,0)"
^XMB(3.9,89,2,126,0)="2^^PRCAMRG"
^XMB(3.9,89,2,127,0)="""PKG"",142,20,1,1)"
^XMB(3.9,89,2,128,0)=""
^XMB(3.9,89,2,129,0)="""PKG"",142,20,""B"",2,1)"
^XMB(3.9,89,2,130,0)=""
^XMB(3.9,89,2,131,0)="""PKG"",142,22,0)"
^XMB(3.9,89,2,132,0)="^9.49I^1^1"
^XMB(3.9,89,2,133,0)="""PKG"",142,22,1,0)"
^XMB(3.9,89,2,134,0)="4.5^^2950320"
^XMB(3.9,89,2,135,0)="""PKG"",142,22,1,""PAH"",1,0)"
^XMB(3.9,89,2,136,0)="235^3051024"
^XMB(3.9,89,2,137,0)="""PKG"",142,22,1,""PAH"",1,1,0)"
^XMB(3.9,89,2,138,0)="^^2^2^3051024"
^XMB(3.9,89,2,139,0)="""PKG"",142,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,89,2,140,0)="The Chief Business Office has requested a patch to correct the audit"
^XMB(3.9,89,2,141,0)="""PKG"",142,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,89,2,142,0)="problem when billing CHAMPVA Other Health Insurance."
^XMB(3.9,89,2,143,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,89,2,144,0)="Y"
^XMB(3.9,89,2,145,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,89,2,146,0)="^D REP^XPDH"
^XMB(3.9,89,2,147,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,89,2,148,0)="Shall I write over your |FLAG| File"
^XMB(3.9,89,2,149,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,89,2,150,0)="YES"
^XMB(3.9,89,2,151,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,89,2,152,0)="D XPF1^XPDIQ"
^XMB(3.9,89,2,153,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,89,2,154,0)="Y"
^XMB(3.9,89,2,155,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,89,2,156,0)="^D DTA^XPDH"
^XMB(3.9,89,2,157,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,89,2,158,0)="Want my data |FLAG| yours"
^XMB(3.9,89,2,159,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,89,2,160,0)="YES"
^XMB(3.9,89,2,161,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,89,2,162,0)="D XPF2^XPDIQ"
^XMB(3.9,89,2,163,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,89,2,164,0)="YO"
^XMB(3.9,89,2,165,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,89,2,166,0)="^D INHIBIT^XPDH"
^XMB(3.9,89,2,167,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,89,2,168,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,89,2,169,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,89,2,170,0)="YES"
^XMB(3.9,89,2,171,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,89,2,172,0)="D XPI1^XPDIQ"
^XMB(3.9,89,2,173,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,89,2,174,0)="PO^VA(200,:EM"
^XMB(3.9,89,2,175,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,89,2,176,0)="^D MG^XPDH"
^XMB(3.9,89,2,177,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,89,2,178,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,89,2,179,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,89,2,180,0)=""
^XMB(3.9,89,2,181,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,89,2,182,0)="D XPM1^XPDIQ"
^XMB(3.9,89,2,183,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,89,2,184,0)="Y"
^XMB(3.9,89,2,185,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,89,2,186,0)="^D MENU^XPDH"
^XMB(3.9,89,2,187,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,89,2,188,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,89,2,189,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,89,2,190,0)="YES"
^XMB(3.9,89,2,191,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,89,2,192,0)="D XPO1^XPDIQ"
^XMB(3.9,89,2,193,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,89,2,194,0)="Y"
^XMB(3.9,89,2,195,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,89,2,196,0)="^D OPT^XPDH"
^XMB(3.9,89,2,197,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,89,2,198,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,89,2,199,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,89,2,200,0)="YES"
^XMB(3.9,89,2,201,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,89,2,202,0)="D XPZ1^XPDIQ"
^XMB(3.9,89,2,203,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,89,2,204,0)="Y"
^XMB(3.9,89,2,205,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,89,2,206,0)="^D RTN^XPDH"
^XMB(3.9,89,2,207,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,89,2,208,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,89,2,209,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,89,2,210,0)="NO"
^XMB(3.9,89,2,211,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,89,2,212,0)="D XPZ2^XPDIQ"
^XMB(3.9,89,2,213,0)="""RTN"")"
^XMB(3.9,89,2,214,0)="2"
^XMB(3.9,89,2,215,0)="""RTN"",""PRCACPV"")"
^XMB(3.9,89,2,216,0)="0^1^B13280235^B13147911"
^XMB(3.9,89,2,217,0)="""RTN"",""PRCACPV"",1,0)"
^XMB(3.9,89,2,218,0)="PRCACPV ;WASH-ISC@ALTOONA,PA/LDB- CHAMPVA FMS DOCUMENTS ;5/1/95  3:06 PM"
^XMB(3.9,89,2,219,0)="""RTN"",""PRCACPV"",2,0)"
^XMB(3.9,89,2,220,0)="V ;;4.5;Accounts Receivable;**1,48,90,119,204,192,235**;Mar 20, 1995"
^XMB(3.9,89,2,221,0)="""RTN"",""PRCACPV"",3,0)"
^XMB(3.9,89,2,222,0)=" ;"
^XMB(3.9,89,2,223,0)="""RTN"",""PRCACPV"",4,0)"
^XMB(3.9,89,2,224,0)="EN(BILL,ERR) ;Send CHAMPVA SUBSISTENCE bill to FMS"
^XMB(3.9,89,2,225,0)="""RTN"",""PRCACPV"",5,0)"
^XMB(3.9,89,2,226,0)=" N ADD,ADDR,AMT,BILL0,BNUM,CAT,DA,DIE,DOC,DR,ERROR,ENT,FY,GECSFMS,I,P,PAT,SITE,TXT,VA,VAERR,VADM,X,XMDUZ,XMTEXT,XMY,XMSUB,Y"
^XMB(3.9,89,2,227,0)="""RTN"",""PRCACPV"",6,0)"
^XMB(3.9,89,2,228,0)=" S ERR=-1"
^XMB(3.9,89,2,229,0)="""RTN"",""PRCACPV"",7,0)"
^XMB(3.9,89,2,230,0)=" I '$G(BILL) S ERR=""NO BILL NUMBER TO PROCESS"" D ERR Q"
^XMB(3.9,89,2,231,0)="""RTN"",""PRCACPV"",8,0)"
^XMB(3.9,89,2,232,0)=" S BILL0=$G(^PRCA(430,+BILL,0)) I BILL0']"""" S ERR=""BILL INFO CORRUPTED FOR BILL '""_BILL D ERR Q"
^XMB(3.9,89,2,233,0)="""RTN"",""PRCACPV"",9,0)"
^XMB(3.9,89,2,234,0)=" I ""^27^28^30^31^""'[(""^""_$P(BILL0,""^"",2)_""^"")  Q"
^XMB(3.9,89,2,235,0)="""RTN"",""PRCACPV"",10,0)"
^XMB(3.9,89,2,236,0)=" I $P(BILL0,""^"",2)=30,$$AUD^IBRFN(+BILL) Q"
^XMB(3.9,89,2,237,0)="""RTN"",""PRCACPV"",11,0)"
^XMB(3.9,89,2,238,0)=" S SITE=$P($P(BILL0,""^""),""-"") I SITE']"""" S ERR=""BILL NUMBER CORRUPTED"" D ERR Q"
^XMB(3.9,89,2,239,0)="""RTN"",""PRCACPV"",12,0)"
^XMB(3.9,89,2,240,0)=" S BNUM=$P(BILL0,""^"")"
^XMB(3.9,89,2,241,0)="""RTN"",""PRCACPV"",13,0)"
^XMB(3.9,89,2,242,0)=" S AMT=$J($P(BILL0,""^"",3),0,2)"
^XMB(3.9,89,2,243,0)="""RTN"",""PRCACPV"",14,0)"
^XMB(3.9,89,2,244,0)=" S CAT=$P(BILL0,""^"",2)"
^XMB(3.9,89,2,245,0)="""RTN"",""PRCACPV"",15,0)"
^XMB(3.9,89,2,246,0)=" I ""^27^31^""[(""^""_CAT_""^"") S PAT=$P($G(^PRCA(430,+BILL,0)),""^"",9),PAT=$P($G(^RCD(340,+PAT,0)),""^""),PAT=$$NAM^RCFN01(PAT),PAT=$P(PAT,"","",2)_"" ""_$P(PAT,"","")"
^XMB(3.9,89,2,247,0)="""RTN"",""PRCACPV"",16,0)"
^XMB(3.9,89,2,248,0)=" S FY=$$FY^RCFN01(DT)"
^XMB(3.9,89,2,249,0)="""RTN"",""PRCACPV"",17,0)"
^XMB(3.9,89,2,250,0)=" S ADD=$$SADD^RCFN01(5)"
^XMB(3.9,89,2,251,0)="""RTN"",""PRCACPV"",18,0)"
^XMB(3.9,89,2,252,0)=" S DESC=$S(CAT=27:""CHAMPVA Subsistence"",CAT=30:""TRICARE"",CAT=31:""TRICARE PATIENT"",1:""CHAMPVA Third Party"")"
^XMB(3.9,89,2,253,0)="""RTN"",""PRCACPV"",19,0)"
^XMB(3.9,89,2,254,0)=" F I=1:1:6 S ADDR(I)=$P(ADD,""^"",I) I (I'=3),(ADDR(I)']"""") S ERR=""NO HOSPITAL ADDRESS FOUND FOR SITE GROUP"" D ERR Q"
^XMB(3.9,89,2,255,0)="""RTN"",""PRCACPV"",20,0)"
^XMB(3.9,89,2,256,0)=" I ERR>0 Q"
^XMB(3.9,89,2,257,0)="""RTN"",""PRCACPV"",21,0)"
^XMB(3.9,89,2,258,0)=" ;CALL TO GET VENDORID BELOW - CHECK NOT NECESSARY SINCE GENERIC"
^XMB(3.9,89,2,259,0)="""RTN"",""PRCACPV"",22,0)"
^XMB(3.9,89,2,260,0)=" ;VENDOR CODE ALWAYS RETURNED FOR THESE BILL TYPES"
^XMB(3.9,89,2,261,0)="""RTN"",""PRCACPV"",23,0)"
^XMB(3.9,89,2,262,0)=" S VENDORID=$$VENDORID^RCXFMSUV(BILL)"
^XMB(3.9,89,2,263,0)="""RTN"",""PRCACPV"",24,0)"
^XMB(3.9,89,2,264,0)=" I ADDR(6)[""-"" S ADDR(7)=$P(ADDR(6),""-"",2),ADDR(6)=$P(ADDR(6),""-"")"
^XMB(3.9,89,2,265,0)="""RTN"",""PRCACPV"",25,0)"
^XMB(3.9,89,2,266,0)=" N FMSDT S FMSDT=$$FMSDATE^RCBEUTRA(DT)"
^XMB(3.9,89,2,267,0)="""RTN"",""PRCACPV"",26,0)"
^XMB(3.9,89,2,268,0)=" S ^TMP(""PRCACPV"",$J,1)=""BD2^""_$E(FMSDT,4,5)_""^""_$E(FMSDT,6,7)_""^""_$E(FMSDT,2,3)"
^XMB(3.9,89,2,269,0)="""RTN"",""PRCACPV"",27,0)"
^XMB(3.9,89,2,270,0)=" S ^TMP(""PRCACPV"",$J,1)=^TMP(""PRCACPV"",$J,1)_""^^^^^^E^""_VENDORID_""^^""_AMT_""^^^^""_$E(ADDR(1),1,30)_""^""_$E(ADDR(2),1,30)_""^""_$E(ADDR(3),1,30)_""^""_$E(ADDR(4),1,19)_""^""_ADDR(5)_""^""_ADDR(6)_""^""_$G(ADDR(7))_""^""_""N^^^^^^W^~"""
^XMB(3.9,89,2,271,0)="""RTN"",""PRCACPV"",28,0)"
^XMB(3.9,89,2,272,0)=" S ^TMP(""PRCACPV"",$J,2)=""LIN^~BDA^""_$$LINE^RCXFMSC1(BILL)_""^""_FY_""^^""_$S(CAT=28:""0160A1"",CAT<30:""3220"",1:""0160A1"")_""^""_SITE_""^^^"""
^XMB(3.9,89,2,273,0)="""RTN"",""PRCACPV"",29,0)"
^XMB(3.9,89,2,274,0)=" S:CAT<30 CAT(""R"")=1000"
^XMB(3.9,89,2,275,0)="""RTN"",""PRCACPV"",30,0)"
^XMB(3.9,89,2,276,0)=" I CAT'<30 S CAT(""R"")=$P($G(^PRCA(430,+BILL,11)),U,6)"
^XMB(3.9,89,2,277,0)="""RTN"",""PRCACPV"",31,0)"
^XMB(3.9,89,2,278,0)=" S ^TMP(""PRCACPV"",$J,2)=^TMP(""PRCACPV"",$J,2)_CAT(""R"")_""^^^^^^^""_AMT_""^I^AR_INTERFACE^^^^""_$S(CAT<30:""09"",1:""02"")_""^~"""
^XMB(3.9,89,2,279,0)="""RTN"",""PRCACPV"",32,0)"
^XMB(3.9,89,2,280,0)=" D CONTROL^GECSUFMS(""A"",SITE,BNUM,""BD"",10,0,"""",DESC)"
^XMB(3.9,89,2,281,0)="""RTN"",""PRCACPV"",33,0)"
^XMB(3.9,89,2,282,0)=" I '$D(GECSFMS(""DA"")) S ERR=""COULD NOT ACCESS STACK FILE"" D ERR Q"
^XMB(3.9,89,2,283,0)="""RTN"",""PRCACPV"",34,0)"
^XMB(3.9,89,2,284,0)=" S DOC=$S($G(GECSFMS(""DOC""))]"""":$P(GECSFMS(""DOC""),""^"",3)_""-""_$P(GECSFMS(""DOC""),""^"",4),1:BNUM)"
^XMB(3.9,89,2,285,0)="""RTN"",""PRCACPV"",35,0)"
^XMB(3.9,89,2,286,0)=" S DA=0 F  S DA=$O(^TMP(""PRCACPV"",$J,DA)) Q:'DA  D"
^XMB(3.9,89,2,287,0)="""RTN"",""PRCACPV"",36,0)"
^XMB(3.9,89,2,288,0)=" . D SETCS^GECSSTAA(GECSFMS(""DA""),^TMP(""PRCACPV"",$J,DA))"
^XMB(3.9,89,2,289,0)="""RTN"",""PRCACPV"",37,0)"
^XMB(3.9,89,2,290,0)=" D OPEN^RCFMDRV1(DOC,6,""B""_+BILL,.ENT,.ERROR,+BILL)"
^XMB(3.9,89,2,291,0)="""RTN"",""PRCACPV"",38,0)"
^XMB(3.9,89,2,292,0)=" I ERROR]"""" S ERR=""AR DOCUMENT MISSING - ""_ERROR Q"
^XMB(3.9,89,2,293,0)="""RTN"",""PRCACPV"",39,0)"
^XMB(3.9,89,2,294,0)=" D SETCODE^GECSSDCT(GECSFMS(""DA""),""D RETN^RCFMFN02"")"
^XMB(3.9,89,2,295,0)="""RTN"",""PRCACPV"",40,0)"
^XMB(3.9,89,2,296,0)=" D SETSTAT^GECSSTAA(GECSFMS(""DA""),""Q"")"
^XMB(3.9,89,2,297,0)="""RTN"",""PRCACPV"",41,0)"
^XMB(3.9,89,2,298,0)=" D SSTAT^RCFMFN02(""B""_+BILL,1)"
^XMB(3.9,89,2,299,0)="""RTN"",""PRCACPV"",42,0)"
^XMB(3.9,89,2,300,0)=" K ^TMP(""PRCACPV"",$J)"
^XMB(3.9,89,2,301,0)="""RTN"",""PRCACPV"",43,0)"
^XMB(3.9,89,2,302,0)=" ;"
^XMB(3.9,89,2,303,0)="""RTN"",""PRCACPV"",44,0)"
^XMB(3.9,89,2,304,0)="ERR I ERR'<0 S ERR=""1^""_ERR D"
^XMB(3.9,89,2,305,0)="""RTN"",""PRCACPV"",45,0)"
^XMB(3.9,89,2,306,0)=" .S TXT(1)=""The following error has occurred while processing a ""_$S(CAT=31:""TRICARE PATIENT "",1:""CHAMPVA"")"
^XMB(3.9,89,2,307,0)="""RTN"",""PRCACPV"",46,0)"
^XMB(3.9,89,2,308,0)=" .S TXT(2)=""bill: (""_$S($G(BNUM):BNUM,1:""BILL IFN - ""_+BILL)_"")"""
^XMB(3.9,89,2,309,0)="""RTN"",""PRCACPV"",47,0)"
^XMB(3.9,89,2,310,0)=" .S TXT(3)="" """
^XMB(3.9,89,2,311,0)="""RTN"",""PRCACPV"",48,0)"
^XMB(3.9,89,2,312,0)=" .S TXT(4)=$P(ERR,""^"",2)"
^XMB(3.9,89,2,313,0)="""RTN"",""PRCACPV"",49,0)"
^XMB(3.9,89,2,314,0)=" .S TXT(5)="""""
^XMB(3.9,89,2,315,0)="""RTN"",""PRCACPV"",50,0)"
^XMB(3.9,89,2,316,0)=" .S TXT(6)=""You will need to use the BILLING DOCUMENT REGENERATION option to create the FMS document."""
^XMB(3.9,89,2,317,0)="""RTN"",""PRCACPV"",51,0)"
^XMB(3.9,89,2,318,0)=" .S XMTEXT=""TXT("",XMY(""G.PRCA ERROR"")="""""
^XMB(3.9,89,2,319,0)="""RTN"",""PRCACPV"",52,0)"
^XMB(3.9,89,2,320,0)=" .S XMSUB=$S(CAT=31:""TRICARE PATIENT"",1:""CHAMPVA"")_"" FMS DOC error"",XMDUZ=""ACCOUNTS RECEIVABLE PACKAGE"""
^XMB(3.9,89,2,321,0)="""RTN"",""PRCACPV"",53,0)"
^XMB(3.9,89,2,322,0)=" .D ^XMD"
^XMB(3.9,89,2,323,0)="""RTN"",""PRCACPV"",54,0)"
^XMB(3.9,89,2,324,0)=" Q"
^XMB(3.9,89,2,325,0)="""RTN"",""RCXFMSUF"")"
^XMB(3.9,89,2,326,0)="0^2^B31990259^B31971051"
^XMB(3.9,89,2,327,0)="""RTN"",""RCXFMSUF"",1,0)"
^XMB(3.9,89,2,328,0)="RCXFMSUF ;WISC/RFJ-calculate fms fund code for a bill ;1 Oct 97"
^XMB(3.9,89,2,329,0)="""RTN"",""RCXFMSUF"",2,0)"
^XMB(3.9,89,2,330,0)=" ;;4.5;Accounts Receivable;**90,101,135,157,160,165,170,203,207,173,211,192,220,235**;Mar 20, 1995"
^XMB(3.9,89,2,331,0)="""RTN"",""RCXFMSUF"",3,0)"
^XMB(3.9,89,2,332,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,89,2,333,0)="""RTN"",""RCXFMSUF"",4,0)"
^XMB(3.9,89,2,334,0)=" Q"
^XMB(3.9,89,2,335,0)="""RTN"",""RCXFMSUF"",5,0)"
^XMB(3.9,89,2,336,0)=" ;"
^XMB(3.9,89,2,337,0)="""RTN"",""RCXFMSUF"",6,0)"
^XMB(3.9,89,2,338,0)=" ;"
^XMB(3.9,89,2,339,0)="""RTN"",""RCXFMSUF"",7,0)"
^XMB(3.9,89,2,340,0)="GETFUNDO(TYPE) ;  return the fund for other type associated collections"
^XMB(3.9,89,2,341,0)="""RTN"",""RCXFMSUF"",8,0)"
^XMB(3.9,89,2,342,0)=" ;  type can equal:"
^XMB(3.9,89,2,343,0)="""RTN"",""RCXFMSUF"",9,0)"
^XMB(3.9,89,2,344,0)=" ;  I for interest         A for admin"
^XMB(3.9,89,2,345,0)="""RTN"",""RCXFMSUF"",10,0)"
^XMB(3.9,89,2,346,0)=" ;  M for marshall fee     C for court cost"
^XMB(3.9,89,2,347,0)="""RTN"",""RCXFMSUF"",11,0)"
^XMB(3.9,89,2,348,0)=" I TYPE=""I"" Q ""1435"""
^XMB(3.9,89,2,349,0)="""RTN"",""RCXFMSUF"",12,0)"
^XMB(3.9,89,2,350,0)=" I TYPE=""A"" Q ""3220"""
^XMB(3.9,89,2,351,0)="""RTN"",""RCXFMSUF"",13,0)"
^XMB(3.9,89,2,352,0)=" I TYPE=""M"" Q ""0869"""
^XMB(3.9,89,2,353,0)="""RTN"",""RCXFMSUF"",14,0)"
^XMB(3.9,89,2,354,0)=" I TYPE=""C"" Q ""0869"""
^XMB(3.9,89,2,355,0)="""RTN"",""RCXFMSUF"",15,0)"
^XMB(3.9,89,2,356,0)=" Q """""
^XMB(3.9,89,2,357,0)="""RTN"",""RCXFMSUF"",16,0)"
^XMB(3.9,89,2,358,0)=" ;"
^XMB(3.9,89,2,359,0)="""RTN"",""RCXFMSUF"",17,0)"
^XMB(3.9,89,2,360,0)=" ;"
^XMB(3.9,89,2,361,0)="""RTN"",""RCXFMSUF"",18,0)"
^XMB(3.9,89,2,362,0)="GETFUNDB(BILLDA,DONTSTOR,RCEFT) ;  return a bills fms fund code"
^XMB(3.9,89,2,363,0)="""RTN"",""RCXFMSUF"",19,0)"
^XMB(3.9,89,2,364,0)=" ;  pass DONTSTOR equal 1 to prevent storing the fund code"
^XMB(3.9,89,2,365,0)="""RTN"",""RCXFMSUF"",20,0)"
^XMB(3.9,89,2,366,0)=" ;  cannot rely on data in the fund field since it may reference the"
^XMB(3.9,89,2,367,0)="""RTN"",""RCXFMSUF"",21,0)"
^XMB(3.9,89,2,368,0)=" ;  old funds S FUND=$P($G(^PRCA(430,BILLDA,11)),""^"",17).  since there"
^XMB(3.9,89,2,369,0)="""RTN"",""RCXFMSUF"",22,0)"
^XMB(3.9,89,2,370,0)=" ;  are reports which use 11;17, set it for a bill once its computed"
^XMB(3.9,89,2,371,0)="""RTN"",""RCXFMSUF"",23,0)"
^XMB(3.9,89,2,372,0)=" ;  until all references to the fund are eliminated."
^XMB(3.9,89,2,373,0)="""RTN"",""RCXFMSUF"",24,0)"
^XMB(3.9,89,2,374,0)=" ;  rceft = 1 if processing an EFT deposit"
^XMB(3.9,89,2,375,0)="""RTN"",""RCXFMSUF"",25,0)"
^XMB(3.9,89,2,376,0)=" ;"
^XMB(3.9,89,2,377,0)="""RTN"",""RCXFMSUF"",26,0)"
^XMB(3.9,89,2,378,0)=" N ACTDATE,CATEGDA,FUND"
^XMB(3.9,89,2,379,0)="""RTN"",""RCXFMSUF"",27,0)"
^XMB(3.9,89,2,380,0)=" ;"
^XMB(3.9,89,2,381,0)="""RTN"",""RCXFMSUF"",28,0)"
^XMB(3.9,89,2,382,0)=" ;  calculate a bills fund"
^XMB(3.9,89,2,383,0)="""RTN"",""RCXFMSUF"",29,0)"
^XMB(3.9,89,2,384,0)=" I $G(RCEFT)=1 S FUND=""5287""_$S(DT<3030926:"""",DT'<3030926&(DT<$$ADDPTEDT^PRCAACC()):"".4"",1:""04"") Q FUND"
^XMB(3.9,89,2,385,0)="""RTN"",""RCXFMSUF"",30,0)"
^XMB(3.9,89,2,386,0)=" S CATEGDA=+$P($G(^PRCA(430,BILLDA,0)),""^"",2)"
^XMB(3.9,89,2,387,0)="""RTN"",""RCXFMSUF"",31,0)"
^XMB(3.9,89,2,388,0)=" I CATEGDA>44 Q """""
^XMB(3.9,89,2,389,0)="""RTN"",""RCXFMSUF"",32,0)"
^XMB(3.9,89,2,390,0)=" ;"
^XMB(3.9,89,2,391,0)="""RTN"",""RCXFMSUF"",33,0)"
^XMB(3.9,89,2,392,0)=" ;  piece 5 is new fund, remove spaces"
^XMB(3.9,89,2,393,0)="""RTN"",""RCXFMSUF"",34,0)"
^XMB(3.9,89,2,394,0)=" S FUND=$P($TR($T(@CATEGDA),"" ""),"";"",5)"
^XMB(3.9,89,2,395,0)="""RTN"",""RCXFMSUF"",35,0)"
^XMB(3.9,89,2,396,0)=" ;"
^XMB(3.9,89,2,397,0)="""RTN"",""RCXFMSUF"",36,0)"
^XMB(3.9,89,2,398,0)=" ;  if category is vendor(17), ex-employee(15), current employee(16)"
^XMB(3.9,89,2,399,0)="""RTN"",""RCXFMSUF"",37,0)"
^XMB(3.9,89,2,400,0)=" ;  federal agency refund(13), federal agency reimb(14), military(12)"
^XMB(3.9,89,2,401,0)="""RTN"",""RCXFMSUF"",38,0)"
^XMB(3.9,89,2,402,0)=" ;  set the fund to what is stored in the file.  This was entered"
^XMB(3.9,89,2,403,0)="""RTN"",""RCXFMSUF"",39,0)"
^XMB(3.9,89,2,404,0)=" ;  by the user during the audit process.  If fund is in the file"
^XMB(3.9,89,2,405,0)="""RTN"",""RCXFMSUF"",40,0)"
^XMB(3.9,89,2,406,0)=" ;  already, do not need to store it again."
^XMB(3.9,89,2,407,0)="""RTN"",""RCXFMSUF"",41,0)"
^XMB(3.9,89,2,408,0)=" ;  if category is nursing home proceeds (40), parking fees (41),"
^XMB(3.9,89,2,409,0)="""RTN"",""RCXFMSUF"",42,0)"
^XMB(3.9,89,2,410,0)=" ;  cwt proceeds (42), comp & pen proceeds (43), enhanced use lease"
^XMB(3.9,89,2,411,0)="""RTN"",""RCXFMSUF"",43,0)"
^XMB(3.9,89,2,412,0)=" ;  proceeds (44), set the fund to what is stored in the file."
^XMB(3.9,89,2,413,0)="""RTN"",""RCXFMSUF"",44,0)"
^XMB(3.9,89,2,414,0)=" ;  This was generated by the software at the time of bill enter."
^XMB(3.9,89,2,415,0)="""RTN"",""RCXFMSUF"",45,0)"
^XMB(3.9,89,2,416,0)=" I CATEGDA=17!(CATEGDA=15)!(CATEGDA=16)!(CATEGDA=13)!(CATEGDA=14)!(CATEGDA=12)!(CATEGDA=40)!(CATEGDA=41)!(CATEGDA=42)!(CATEGDA=43)!(CATEGDA=44) D"
^XMB(3.9,89,2,417,0)="""RTN"",""RCXFMSUF"",46,0)"
^XMB(3.9,89,2,418,0)=" .   I $P($G(^PRCA(430,BILLDA,11)),""^"",17)'="""" S FUND=$P(^(11),""^"",17),DONTSTOR=1"
^XMB(3.9,89,2,419,0)="""RTN"",""RCXFMSUF"",47,0)"
^XMB(3.9,89,2,420,0)=" ;"
^XMB(3.9,89,2,421,0)="""RTN"",""RCXFMSUF"",48,0)"
^XMB(3.9,89,2,422,0)=" ;  public law states that bills in the category ineligible (1),"
^XMB(3.9,89,2,423,0)="""RTN"",""RCXFMSUF"",49,0)"
^XMB(3.9,89,2,424,0)=" ;  emerg/human (2), torts (10), or medicare (21) which are older "
^XMB(3.9,89,2,425,0)="""RTN"",""RCXFMSUF"",50,0)"
^XMB(3.9,89,2,426,0)=" ;  than oct 1, 1992 should be reported under fund 3220."
^XMB(3.9,89,2,427,0)="""RTN"",""RCXFMSUF"",51,0)"
^XMB(3.9,89,2,428,0)=" I CATEGDA=1!(CATEGDA=2)!(CATEGDA=10)!(CATEGDA=21) D"
^XMB(3.9,89,2,429,0)="""RTN"",""RCXFMSUF"",52,0)"
^XMB(3.9,89,2,430,0)=" .   S ACTDATE=$P($G(^PRCA(430,BILLDA,6)),""^"",21)"
^XMB(3.9,89,2,431,0)="""RTN"",""RCXFMSUF"",53,0)"
^XMB(3.9,89,2,432,0)=" .   I ACTDATE,ACTDATE<2921001 S FUND=3220 Q"
^XMB(3.9,89,2,433,0)="""RTN"",""RCXFMSUF"",54,0)"
^XMB(3.9,89,2,434,0)=" .   ;"
^XMB(3.9,89,2,435,0)="""RTN"",""RCXFMSUF"",55,0)"
^XMB(3.9,89,2,436,0)=" .   ;  patch157 changes ineligibles.  an ineligible activated before"
^XMB(3.9,89,2,437,0)="""RTN"",""RCXFMSUF"",56,0)"
^XMB(3.9,89,2,438,0)=" .   ;  oct 1, 1992 or after sep 30, 2000 will be recorded in fund 0160A1."
^XMB(3.9,89,2,439,0)="""RTN"",""RCXFMSUF"",57,0)"
^XMB(3.9,89,2,440,0)=" .   ;  otherwise it will be recorded in fund 5287.3 if before 3040928"
^XMB(3.9,89,2,441,0)="""RTN"",""RCXFMSUF"",58,0)"
^XMB(3.9,89,2,442,0)=" .   ; if 3040928 or after,  fund should be 528703"
^XMB(3.9,89,2,443,0)="""RTN"",""RCXFMSUF"",59,0)"
^XMB(3.9,89,2,444,0)=" .   I CATEGDA=1,ACTDATE,ACTDATE<3001001 S FUND=$S(DT<$$ADDPTEDT^PRCAACC():""5287.3"",1:528703)"
^XMB(3.9,89,2,445,0)="""RTN"",""RCXFMSUF"",60,0)"
^XMB(3.9,89,2,446,0)=" ;"
^XMB(3.9,89,2,447,0)="""RTN"",""RCXFMSUF"",61,0)"
^XMB(3.9,89,2,448,0)=" ;  set the fund for the bill"
^XMB(3.9,89,2,449,0)="""RTN"",""RCXFMSUF"",62,0)"
^XMB(3.9,89,2,450,0)=" I $G(DONTSTOR)'=1 D STORE^RCXFMSUR(BILLDA,"""",FUND)"
^XMB(3.9,89,2,451,0)="""RTN"",""RCXFMSUF"",63,0)"
^XMB(3.9,89,2,452,0)=" ;"
^XMB(3.9,89,2,453,0)="""RTN"",""RCXFMSUF"",64,0)"
^XMB(3.9,89,2,454,0)=" I FUND>528704,FUND<528709!(FUND=528710) Q FUND"
^XMB(3.9,89,2,455,0)="""RTN"",""RCXFMSUF"",65,0)"
^XMB(3.9,89,2,456,0)=" I $G(REPRODT),REPRODT<3030926,$E(FUND,1,4)=5287 Q 5287"
^XMB(3.9,89,2,457,0)="""RTN"",""RCXFMSUF"",66,0)"
^XMB(3.9,89,2,458,0)=" I $G(REPRODT),REPRODT<3031001,$E(FUND,1,4)=5287,$G(REFMS) Q 5287"
^XMB(3.9,89,2,459,0)="""RTN"",""RCXFMSUF"",67,0)"
^XMB(3.9,89,2,460,0)=" I DT<3030926,$E(FUND,1,4)=5287 Q 5287 ; Effective date"
^XMB(3.9,89,2,461,0)="""RTN"",""RCXFMSUF"",68,0)"
^XMB(3.9,89,2,462,0)=" I $G(REPRODT),REPRODT<$$ADDPTEDT^PRCAACC(),FUND=528709 Q 4032 ;Effective date-528709"
^XMB(3.9,89,2,463,0)="""RTN"",""RCXFMSUF"",69,0)"
^XMB(3.9,89,2,464,0)=" I $G(REPRODT),REPRODT<3041001,FUND=528709,$G(REFMS) Q 4032 ;Resubmitted documents not held"
^XMB(3.9,89,2,465,0)="""RTN"",""RCXFMSUF"",70,0)"
^XMB(3.9,89,2,466,0)=" I $G(DATEEND),$E(DATEEND,2,5)<""0410"",FUND=528709 Q 4032"
^XMB(3.9,89,2,467,0)="""RTN"",""RCXFMSUF"",71,0)"
^XMB(3.9,89,2,468,0)=" I DT<$$ADDPTEDT^PRCAACC(),FUND=528709 Q 4032"
^XMB(3.9,89,2,469,0)="""RTN"",""RCXFMSUF"",72,0)"
^XMB(3.9,89,2,470,0)=" I $G(REPRODT),REPRODT<$$ADDPTEDT^PRCAACC(),FUND=528701 Q 5287.1 ;Effective date-528701"
^XMB(3.9,89,2,471,0)="""RTN"",""RCXFMSUF"",73,0)"
^XMB(3.9,89,2,472,0)=" I $G(REPRODT),REPRODT<3041001,FUND=528701,$G(REFMS) Q 5287.1 ;Resubmitted documents not held"
^XMB(3.9,89,2,473,0)="""RTN"",""RCXFMSUF"",74,0)"
^XMB(3.9,89,2,474,0)=" I $G(DATEEND),$E(DATEEND,2,5)<""0410"",FUND=528701 Q 5287.1"
^XMB(3.9,89,2,475,0)="""RTN"",""RCXFMSUF"",75,0)"
^XMB(3.9,89,2,476,0)=" I DT<$$ADDPTEDT^PRCAACC(),FUND=528701 Q 5287.1"
^XMB(3.9,89,2,477,0)="""RTN"",""RCXFMSUF"",76,0)"
^XMB(3.9,89,2,478,0)=" I $G(REPRODT),REPRODT<$$ADDPTEDT^PRCAACC(),FUND=528703 Q 5287.3 ;Effective date-528703"
^XMB(3.9,89,2,479,0)="""RTN"",""RCXFMSUF"",77,0)"
^XMB(3.9,89,2,480,0)=" I $G(REPRODT),REPRODT<3041001,FUND=528703,$G(REFMS) Q 5287.3 ;Resubmitted documents not held"
^XMB(3.9,89,2,481,0)="""RTN"",""RCXFMSUF"",78,0)"
^XMB(3.9,89,2,482,0)=" I $G(DATEEND),$E(DATEEND,2,5)<""0410"",FUND=528703 Q 5287.3"
^XMB(3.9,89,2,483,0)="""RTN"",""RCXFMSUF"",79,0)"
^XMB(3.9,89,2,484,0)=" I DT<$$ADDPTEDT^PRCAACC(),FUND=528703 Q 5287.3"
^XMB(3.9,89,2,485,0)="""RTN"",""RCXFMSUF"",80,0)"
^XMB(3.9,89,2,486,0)=" I $G(REPRODT),REPRODT<$$ADDPTEDT^PRCAACC(),FUND=528704 Q 5287.4 ;Effective date-528704"
^XMB(3.9,89,2,487,0)="""RTN"",""RCXFMSUF"",81,0)"
^XMB(3.9,89,2,488,0)=" I $G(REPRODT),REPRODT<3041001,FUND=528704,$G(REFMS) Q 5287.4 ;Resubmitted documents not held"
^XMB(3.9,89,2,489,0)="""RTN"",""RCXFMSUF"",82,0)"
^XMB(3.9,89,2,490,0)=" I $G(DATEEND),$E(DATEEND,2,5)<""0410"",FUND=528704 Q 5287.4"
^XMB(3.9,89,2,491,0)="""RTN"",""RCXFMSUF"",83,0)"
^XMB(3.9,89,2,492,0)=" I DT<$$ADDPTEDT^PRCAACC(),FUND=528704 Q 5287.4"
^XMB(3.9,89,2,493,0)="""RTN"",""RCXFMSUF"",84,0)"
^XMB(3.9,89,2,494,0)=" Q FUND"
^XMB(3.9,89,2,495,0)="""RTN"",""RCXFMSUF"",85,0)"
^XMB(3.9,89,2,496,0)=" ;"
^XMB(3.9,89,2,497,0)="""RTN"",""RCXFMSUF"",86,0)"
^XMB(3.9,89,2,498,0)=" ;"
^XMB(3.9,89,2,499,0)="""RTN"",""RCXFMSUF"",87,0)"
^XMB(3.9,89,2,500,0)=" ;  this is a listing of all categories and associated funds"
^XMB(3.9,89,2,501,0)="""RTN"",""RCXFMSUF"",88,0)"
^XMB(3.9,89,2,502,0)=" ;  the label is from the internal entry number in the category"
^XMB(3.9,89,2,503,0)="""RTN"",""RCXFMSUF"",89,0)"
^XMB(3.9,89,2,504,0)=" ;  file 430.2.  piece 3 is a description, piece 4 is the old fund,"
^XMB(3.9,89,2,505,0)="""RTN"",""RCXFMSUF"",90,0)"
^XMB(3.9,89,2,506,0)=" ;  piece 5 is the new fund"
^XMB(3.9,89,2,507,0)="""RTN"",""RCXFMSUF"",91,0)"
^XMB(3.9,89,2,508,0)="0 ;;no fund                       ;       ;    "
^XMB(3.9,89,2,509,0)="""RTN"",""RCXFMSUF"",92,0)"
^XMB(3.9,89,2,510,0)="1 ;;INELIGIBLE HOSP.              ;3220   ;0160A1"
^XMB(3.9,89,2,511,0)="""RTN"",""RCXFMSUF"",93,0)"
^XMB(3.9,89,2,512,0)="2 ;;EMERGENCY/HUMANITARIAN        ;0160A1 ;528703"
^XMB(3.9,89,2,513,0)="""RTN"",""RCXFMSUF"",94,0)"
^XMB(3.9,89,2,514,0)="3 ;;NURSING HOME CARE(NSC)        ;2431   ;528703"
^XMB(3.9,89,2,515,0)="""RTN"",""RCXFMSUF"",95,0)"
^XMB(3.9,89,2,516,0)="4 ;;OUTPATIENT CARE(NSC)          ;2431   ;528703"
^XMB(3.9,89,2,517,0)="""RTN"",""RCXFMSUF"",96,0)"
^XMB(3.9,89,2,518,0)="5 ;;HOSPITAL CARE (NSC)           ;2431   ;528703"
^XMB(3.9,89,2,519,0)="""RTN"",""RCXFMSUF"",97,0)"
^XMB(3.9,89,2,520,0)="6 ;;WORKMAN'S COMP.               ;5014   ;528704"
^XMB(3.9,89,2,521,0)="""RTN"",""RCXFMSUF"",98,0)"
^XMB(3.9,89,2,522,0)="7 ;;NO-FAULT AUTO ACC.            ;5014   ;528704"
^XMB(3.9,89,2,523,0)="""RTN"",""RCXFMSUF"",99,0)"
^XMB(3.9,89,2,524,0)="8 ;;CRIME OF PER.VIO.             ;5014   ;528704"
^XMB(3.9,89,2,525,0)="""RTN"",""RCXFMSUF"",100,0)"
^XMB(3.9,89,2,526,0)="9 ;;REIMBURS.HEALTH INS.          ;5014   ;528704"
^XMB(3.9,89,2,527,0)="""RTN"",""RCXFMSUF"",101,0)"
^XMB(3.9,89,2,528,0)="10 ;;TORT FEASOR                   ;0160A1 ;528704"
^XMB(3.9,89,2,529,0)="""RTN"",""RCXFMSUF"",102,0)"
^XMB(3.9,89,2,530,0)="11 ;;no entry                      ;       ;"
^XMB(3.9,89,2,531,0)="""RTN"",""RCXFMSUF"",103,0)"
^XMB(3.9,89,2,532,0)="12 ;;MILITARY                      ;0160A1 ;0160A1"
^XMB(3.9,89,2,533,0)="""RTN"",""RCXFMSUF"",104,0)"
^XMB(3.9,89,2,534,0)="13 ;;FEDERAL AGENCIES-REFUND       ;0160A1 ;0160A1"
^XMB(3.9,89,2,535,0)="""RTN"",""RCXFMSUF"",105,0)"
^XMB(3.9,89,2,536,0)="14 ;;FEDERAL AGENCIES-REIMB.       ;0160A1 ;0160A1"
^XMB(3.9,89,2,537,0)="""RTN"",""RCXFMSUF"",106,0)"
^XMB(3.9,89,2,538,0)="15 ;;EX-EMPLOYEE                   ;0160A1 ;0160A1"
^XMB(3.9,89,2,539,0)="""RTN"",""RCXFMSUF"",107,0)"
^XMB(3.9,89,2,540,0)="16 ;;CURRENT EMP.                  ;0160A1 ;0160A1"
^XMB(3.9,89,2,541,0)="""RTN"",""RCXFMSUF"",108,0)"
^XMB(3.9,89,2,542,0)="17 ;;VENDOR                        ;0160A1 ;0160A1"
^XMB(3.9,89,2,543,0)="""RTN"",""RCXFMSUF"",109,0)"
^XMB(3.9,89,2,544,0)="18 ;;C (MEANS TEST)                ;2431   ;528703"
^XMB(3.9,89,2,545,0)="""RTN"",""RCXFMSUF"",110,0)"
^XMB(3.9,89,2,546,0)="19 ;;SHARING AGREEMENTS            ;0160A1 ;0160A1"
^XMB(3.9,89,2,547,0)="""RTN"",""RCXFMSUF"",111,0)"
^XMB(3.9,89,2,548,0)="20 ;;INTERAGENCY                   ;0160A1 ;0160A1"
^XMB(3.9,89,2,549,0)="""RTN"",""RCXFMSUF"",112,0)"
^XMB(3.9,89,2,550,0)="21 ;;MEDICARE                      ;5014   ;528704"
^XMB(3.9,89,2,551,0)="""RTN"",""RCXFMSUF"",113,0)"
^XMB(3.9,89,2,552,0)="22 ;;RX CO-PAYMENT/SC VET          ;5014   ;528701"
^XMB(3.9,89,2,553,0)="""RTN"",""RCXFMSUF"",114,0)"
^XMB(3.9,89,2,554,0)="23 ;;RX CO-PAYMENT/NSC VET         ;5014   ;528701"
^XMB(3.9,89,2,555,0)="""RTN"",""RCXFMSUF"",115,0)"
^XMB(3.9,89,2,556,0)="24 ;;NURSING HOME CARE PER DIEM    ;2431   ;528703"
^XMB(3.9,89,2,557,0)="""RTN"",""RCXFMSUF"",116,0)"
^XMB(3.9,89,2,558,0)="25 ;;HOSPITAL CARE PER DIEM        ;2431   ;528703"
^XMB(3.9,89,2,559,0)="""RTN"",""RCXFMSUF"",117,0)"
^XMB(3.9,89,2,560,0)="26 ;;PREPAYMENT                    ;5014   ;528703"
^XMB(3.9,89,2,561,0)="""RTN"",""RCXFMSUF"",118,0)"
^XMB(3.9,89,2,562,0)="27 ;;CHAMPVA SUBSISTENCE           ;3220   ;3220"
^XMB(3.9,89,2,563,0)="""RTN"",""RCXFMSUF"",119,0)"
^XMB(3.9,89,2,564,0)="28 ;;CHAMPVA THIRD PARTY           ;3220   ;0160A1"
^XMB(3.9,89,2,565,0)="""RTN"",""RCXFMSUF"",120,0)"
^XMB(3.9,89,2,566,0)="29 ;;CHAMPVA                       ;0160A1 ;0160A1"
^XMB(3.9,89,2,567,0)="""RTN"",""RCXFMSUF"",121,0)"
^XMB(3.9,89,2,568,0)="30 ;;TRICARE                       ;0160A1 ;0160A1"
^XMB(3.9,89,2,569,0)="""RTN"",""RCXFMSUF"",122,0)"
^XMB(3.9,89,2,570,0)="31 ;;TRICARE PATIENT               ;0160A1 ;0160A1"
^XMB(3.9,89,2,571,0)="""RTN"",""RCXFMSUF"",123,0)"
^XMB(3.9,89,2,572,0)="32 ;;TRICARE THIRD PARTY           ;0160A1 ;0160A1"
^XMB(3.9,89,2,573,0)="""RTN"",""RCXFMSUF"",124,0)"
^XMB(3.9,89,2,574,0)="33 ;;ADULT DAY HEALTH CARE         ;4032   ;528709"
^XMB(3.9,89,2,575,0)="""RTN"",""RCXFMSUF"",125,0)"
^XMB(3.9,89,2,576,0)="34 ;;DOMICILIARY                   ;4032   ;528709"
^XMB(3.9,89,2,577,0)="""RTN"",""RCXFMSUF"",126,0)"
^XMB(3.9,89,2,578,0)="35 ;;RESPITE CARE-INSTITUTIONAL    ;4032   ;528709"
^XMB(3.9,89,2,579,0)="""RTN"",""RCXFMSUF"",127,0)"
^XMB(3.9,89,2,580,0)="36 ;;RESPITE CARE-NON-INSTITUTIONAL;4032   ;528709"
^XMB(3.9,89,2,581,0)="""RTN"",""RCXFMSUF"",128,0)"
^XMB(3.9,89,2,582,0)="37 ;;GERIATRIC EVAL-INSTITUTIONAL  ;4032   ;528709"
^XMB(3.9,89,2,583,0)="""RTN"",""RCXFMSUF"",129,0)"
^XMB(3.9,89,2,584,0)="38 ;;GERIATRIC EVAL-NON-INSTITUTION;4032   ;528709"
^XMB(3.9,89,2,585,0)="""RTN"",""RCXFMSUF"",130,0)"
^XMB(3.9,89,2,586,0)="39 ;;NURSING HOME CARE-LTC         ;4032   ;528709"
^XMB(3.9,89,2,587,0)="""RTN"",""RCXFMSUF"",131,0)"
^XMB(3.9,89,2,588,0)="40 ;;NURSING HOME PROCEEDS         ;       ;528705"
^XMB(3.9,89,2,589,0)="""RTN"",""RCXFMSUF"",132,0)"
^XMB(3.9,89,2,590,0)="41 ;;PARKING FEES                  ;       ;528706"
^XMB(3.9,89,2,591,0)="""RTN"",""RCXFMSUF"",133,0)"
^XMB(3.9,89,2,592,0)="42 ;;CWT PROCEEDS                  ;       ;528707"
^XMB(3.9,89,2,593,0)="""RTN"",""RCXFMSUF"",134,0)"
^XMB(3.9,89,2,594,0)="43 ;;COMP & PEN PROCEEDS           ;       ;528708"
^XMB(3.9,89,2,595,0)="""RTN"",""RCXFMSUF"",135,0)"
^XMB(3.9,89,2,596,0)="44 ;;ENHANCED USE LEASE PROCEEDS   ;5358.3 ;528710"
^XMB(3.9,89,2,597,0)="""VER"")"
^XMB(3.9,89,2,598,0)="8.0^22.0"
^XMB(3.9,89,2,599,0)="""BLD"",6443,6)"
^XMB(3.9,89,2,600,0)="^220"
^XMB(3.9,89,2,601,0)="$END KID PRCA*4.5*235"
^XMB(3.9,89,6,0)="^3.911A^2^2"
^XMB(3.9,89,6,1,0)="POSTMASTER"
^XMB(3.9,89,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,89,6,"B","POSTMASTER",1)=""
^XMB(3.9,89,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,90,0)="PRCA-4P5_SEQ-221_PAT-247.KID^.5^3061008.015739^^^^K"
^XMB(3.9,90,.6)="3061008"
^XMB(3.9,90,1,0)="^3.91A^2^2"
^XMB(3.9,90,1,1,0)=".5^0^3061008.015739^^^^^^^3061008.015739"
^XMB(3.9,90,1,2,0)="1^0^3061008.024201^^^^^^^3061008.024201"
^XMB(3.9,90,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,90,1,"C",.5,1)=""
^XMB(3.9,90,1,"C",1,2)=""
^XMB(3.9,90,2,0)="^^665^665^3061008"
^XMB(3.9,90,2,1,0)="$TXT Released PRCA*4.5*247 SEQ #221"
^XMB(3.9,90,2,2,0)="Extracted from mail message"
^XMB(3.9,90,2,3,0)="$END TXT"
^XMB(3.9,90,2,4,0)="$KID PRCA*4.5*247"
^XMB(3.9,90,2,5,0)="**INSTALL NAME**"
^XMB(3.9,90,2,6,0)="PRCA*4.5*247"
^XMB(3.9,90,2,7,0)="""BLD"",5785,0)"
^XMB(3.9,90,2,8,0)="PRCA*4.5*247^ACCOUNTS RECEIVABLE^0^3060724^y"
^XMB(3.9,90,2,9,0)="""BLD"",5785,1,0)"
^XMB(3.9,90,2,10,0)="^^13^13^3060724^"
^XMB(3.9,90,2,11,0)="""BLD"",5785,1,1,0)"
^XMB(3.9,90,2,12,0)="This patch supports the National Council for Prescription Drug Programs "
^XMB(3.9,90,2,13,0)="""BLD"",5785,1,2,0)"
^XMB(3.9,90,2,14,0)="(NCPDP) standard which was adopted under the Healthcare Insurance"
^XMB(3.9,90,2,15,0)="""BLD"",5785,1,3,0)"
^XMB(3.9,90,2,16,0)="Portability and Accountability Act (HIPAA) for pharmacy claims. This patch"
^XMB(3.9,90,2,17,0)="""BLD"",5785,1,4,0)"
^XMB(3.9,90,2,18,0)="is one of six to be released.  Three patches will be released in a KIDS"
^XMB(3.9,90,2,19,0)="""BLD"",5785,1,5,0)"
^XMB(3.9,90,2,20,0)="multi-build distribution containing: BPS*1*3, PSO*7*247, and IB*2*342.  "
^XMB(3.9,90,2,21,0)="""BLD"",5785,1,6,0)"
^XMB(3.9,90,2,22,0)="Three patches will be released individually and they are: PRCA*4.5*247,"
^XMB(3.9,90,2,23,0)="""BLD"",5785,1,7,0)"
^XMB(3.9,90,2,24,0)="PSX*2*62, and PSS*1*115."
^XMB(3.9,90,2,25,0)="""BLD"",5785,1,8,0)"
^XMB(3.9,90,2,26,0)=" "
^XMB(3.9,90,2,27,0)="""BLD"",5785,1,9,0)"
^XMB(3.9,90,2,28,0)="Enhancements included in the release of the six patches are a new option "
^XMB(3.9,90,2,29,0)="""BLD"",5785,1,10,0)"
^XMB(3.9,90,2,30,0)="that will enable the user to reopen a closed Electronic Claims Management"
^XMB(3.9,90,2,31,0)="""BLD"",5785,1,11,0)"
^XMB(3.9,90,2,32,0)="Engine (ECME) claim; updates to the Rx Activity Log; and permanent storage"
^XMB(3.9,90,2,33,0)="""BLD"",5785,1,12,0)"
^XMB(3.9,90,2,34,0)="of Claims activity information as reported by the ECME Billing Events"
^XMB(3.9,90,2,35,0)="""BLD"",5785,1,13,0)"
^XMB(3.9,90,2,36,0)="Report."
^XMB(3.9,90,2,37,0)="""BLD"",5785,4,0)"
^XMB(3.9,90,2,38,0)="^9.64PA^^"
^XMB(3.9,90,2,39,0)="""BLD"",5785,6.3)"
^XMB(3.9,90,2,40,0)="5"
^XMB(3.9,90,2,41,0)="""BLD"",5785,""KRN"",0)"
^XMB(3.9,90,2,42,0)="^9.67PA^8989.52^19"
^XMB(3.9,90,2,43,0)="""BLD"",5785,""KRN"",.4,0)"
^XMB(3.9,90,2,44,0)=".4"
^XMB(3.9,90,2,45,0)="""BLD"",5785,""KRN"",.401,0)"
^XMB(3.9,90,2,46,0)=".401"
^XMB(3.9,90,2,47,0)="""BLD"",5785,""KRN"",.402,0)"
^XMB(3.9,90,2,48,0)=".402"
^XMB(3.9,90,2,49,0)="""BLD"",5785,""KRN"",.403,0)"
^XMB(3.9,90,2,50,0)=".403"
^XMB(3.9,90,2,51,0)="""BLD"",5785,""KRN"",.5,0)"
^XMB(3.9,90,2,52,0)=".5"
^XMB(3.9,90,2,53,0)="""BLD"",5785,""KRN"",.84,0)"
^XMB(3.9,90,2,54,0)=".84"
^XMB(3.9,90,2,55,0)="""BLD"",5785,""KRN"",3.6,0)"
^XMB(3.9,90,2,56,0)="3.6"
^XMB(3.9,90,2,57,0)="""BLD"",5785,""KRN"",3.8,0)"
^XMB(3.9,90,2,58,0)="3.8"
^XMB(3.9,90,2,59,0)="""BLD"",5785,""KRN"",9.2,0)"
^XMB(3.9,90,2,60,0)="9.2"
^XMB(3.9,90,2,61,0)="""BLD"",5785,""KRN"",9.8,0)"
^XMB(3.9,90,2,62,0)="9.8"
^XMB(3.9,90,2,63,0)="""BLD"",5785,""KRN"",9.8,""NM"",0)"
^XMB(3.9,90,2,64,0)="^9.68A^1^1"
^XMB(3.9,90,2,65,0)="""BLD"",5785,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,90,2,66,0)="RCDPBTLM^^0^B46607011"
^XMB(3.9,90,2,67,0)="""BLD"",5785,""KRN"",9.8,""NM"",""B"",""RCDPBTLM"",1)"
^XMB(3.9,90,2,68,0)=""
^XMB(3.9,90,2,69,0)="""BLD"",5785,""KRN"",19,0)"
^XMB(3.9,90,2,70,0)="19"
^XMB(3.9,90,2,71,0)="""BLD"",5785,""KRN"",19.1,0)"
^XMB(3.9,90,2,72,0)="19.1"
^XMB(3.9,90,2,73,0)="""BLD"",5785,""KRN"",101,0)"
^XMB(3.9,90,2,74,0)="101"
^XMB(3.9,90,2,75,0)="""BLD"",5785,""KRN"",409.61,0)"
^XMB(3.9,90,2,76,0)="409.61"
^XMB(3.9,90,2,77,0)="""BLD"",5785,""KRN"",771,0)"
^XMB(3.9,90,2,78,0)="771"
^XMB(3.9,90,2,79,0)="""BLD"",5785,""KRN"",870,0)"
^XMB(3.9,90,2,80,0)="870"
^XMB(3.9,90,2,81,0)="""BLD"",5785,""KRN"",8989.51,0)"
^XMB(3.9,90,2,82,0)="8989.51"
^XMB(3.9,90,2,83,0)="""BLD"",5785,""KRN"",8989.52,0)"
^XMB(3.9,90,2,84,0)="8989.52"
^XMB(3.9,90,2,85,0)="""BLD"",5785,""KRN"",8994,0)"
^XMB(3.9,90,2,86,0)="8994"
^XMB(3.9,90,2,87,0)="""BLD"",5785,""KRN"",""B"",.4,.4)"
^XMB(3.9,90,2,88,0)=""
^XMB(3.9,90,2,89,0)="""BLD"",5785,""KRN"",""B"",.401,.401)"
^XMB(3.9,90,2,90,0)=""
^XMB(3.9,90,2,91,0)="""BLD"",5785,""KRN"",""B"",.402,.402)"
^XMB(3.9,90,2,92,0)=""
^XMB(3.9,90,2,93,0)="""BLD"",5785,""KRN"",""B"",.403,.403)"
^XMB(3.9,90,2,94,0)=""
^XMB(3.9,90,2,95,0)="""BLD"",5785,""KRN"",""B"",.5,.5)"
^XMB(3.9,90,2,96,0)=""
^XMB(3.9,90,2,97,0)="""BLD"",5785,""KRN"",""B"",.84,.84)"
^XMB(3.9,90,2,98,0)=""
^XMB(3.9,90,2,99,0)="""BLD"",5785,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,90,2,100,0)=""
^XMB(3.9,90,2,101,0)="""BLD"",5785,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,90,2,102,0)=""
^XMB(3.9,90,2,103,0)="""BLD"",5785,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,90,2,104,0)=""
^XMB(3.9,90,2,105,0)="""BLD"",5785,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,90,2,106,0)=""
^XMB(3.9,90,2,107,0)="""BLD"",5785,""KRN"",""B"",19,19)"
^XMB(3.9,90,2,108,0)=""
^XMB(3.9,90,2,109,0)="""BLD"",5785,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,90,2,110,0)=""
^XMB(3.9,90,2,111,0)="""BLD"",5785,""KRN"",""B"",101,101)"
^XMB(3.9,90,2,112,0)=""
^XMB(3.9,90,2,113,0)="""BLD"",5785,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,90,2,114,0)=""
^XMB(3.9,90,2,115,0)="""BLD"",5785,""KRN"",""B"",771,771)"
^XMB(3.9,90,2,116,0)=""
^XMB(3.9,90,2,117,0)="""BLD"",5785,""KRN"",""B"",870,870)"
^XMB(3.9,90,2,118,0)=""
^XMB(3.9,90,2,119,0)="""BLD"",5785,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,90,2,120,0)=""
^XMB(3.9,90,2,121,0)="""BLD"",5785,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,90,2,122,0)=""
^XMB(3.9,90,2,123,0)="""BLD"",5785,""KRN"",""B"",8994,8994)"
^XMB(3.9,90,2,124,0)=""
^XMB(3.9,90,2,125,0)="""BLD"",5785,""QUES"",0)"
^XMB(3.9,90,2,126,0)="^9.62^^"
^XMB(3.9,90,2,127,0)="""BLD"",5785,""REQB"",0)"
^XMB(3.9,90,2,128,0)="^9.611^1^1"
^XMB(3.9,90,2,129,0)="""BLD"",5785,""REQB"",1,0)"
^XMB(3.9,90,2,130,0)="PRCA*4.5*198^1"
^XMB(3.9,90,2,131,0)="""BLD"",5785,""REQB"",""B"",""PRCA*4.5*198"",1)"
^XMB(3.9,90,2,132,0)=""
^XMB(3.9,90,2,133,0)="""MBREQ"")"
^XMB(3.9,90,2,134,0)="0"
^XMB(3.9,90,2,135,0)="""PKG"",261,-1)"
^XMB(3.9,90,2,136,0)="1^1"
^XMB(3.9,90,2,137,0)="""PKG"",261,0)"
^XMB(3.9,90,2,138,0)="ACCOUNTS RECEIVABLE^PRCA^FMS"
^XMB(3.9,90,2,139,0)="""PKG"",261,20,0)"
^XMB(3.9,90,2,140,0)="^9.402P^1^1"
^XMB(3.9,90,2,141,0)="""PKG"",261,20,1,0)"
^XMB(3.9,90,2,142,0)="2^^PRCAMRG"
^XMB(3.9,90,2,143,0)="""PKG"",261,20,1,1)"
^XMB(3.9,90,2,144,0)=""
^XMB(3.9,90,2,145,0)="""PKG"",261,20,""B"",2,1)"
^XMB(3.9,90,2,146,0)=""
^XMB(3.9,90,2,147,0)="""PKG"",261,22,0)"
^XMB(3.9,90,2,148,0)="^9.49I^1^1"
^XMB(3.9,90,2,149,0)="""PKG"",261,22,1,0)"
^XMB(3.9,90,2,150,0)="4.5^2950320^2960503"
^XMB(3.9,90,2,151,0)="""PKG"",261,22,1,""PAH"",1,0)"
^XMB(3.9,90,2,152,0)="247^3060724"
^XMB(3.9,90,2,153,0)="""PKG"",261,22,1,""PAH"",1,1,0)"
^XMB(3.9,90,2,154,0)="^^13^13^3060724"
^XMB(3.9,90,2,155,0)="""PKG"",261,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,90,2,156,0)="This patch supports the National Council for Prescription Drug Programs "
^XMB(3.9,90,2,157,0)="""PKG"",261,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,90,2,158,0)="(NCPDP) standard which was adopted under the Healthcare Insurance"
^XMB(3.9,90,2,159,0)="""PKG"",261,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,90,2,160,0)="Portability and Accountability Act (HIPAA) for pharmacy claims. This patch"
^XMB(3.9,90,2,161,0)="""PKG"",261,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,90,2,162,0)="is one of six to be released.  Three patches will be released in a KIDS"
^XMB(3.9,90,2,163,0)="""PKG"",261,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,90,2,164,0)="multi-build distribution containing: BPS*1*3, PSO*7*247, and IB*2*342.  "
^XMB(3.9,90,2,165,0)="""PKG"",261,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,90,2,166,0)="Three patches will be released individually and they are: PRCA*4.5*247,"
^XMB(3.9,90,2,167,0)="""PKG"",261,22,1,""PAH"",1,1,7,0)"
^XMB(3.9,90,2,168,0)="PSX*2*62, and PSS*1*115."
^XMB(3.9,90,2,169,0)="""PKG"",261,22,1,""PAH"",1,1,8,0)"
^XMB(3.9,90,2,170,0)=" "
^XMB(3.9,90,2,171,0)="""PKG"",261,22,1,""PAH"",1,1,9,0)"
^XMB(3.9,90,2,172,0)="Enhancements included in the release of the six patches are a new option "
^XMB(3.9,90,2,173,0)="""PKG"",261,22,1,""PAH"",1,1,10,0)"
^XMB(3.9,90,2,174,0)="that will enable the user to reopen a closed Electronic Claims Management"
^XMB(3.9,90,2,175,0)="""PKG"",261,22,1,""PAH"",1,1,11,0)"
^XMB(3.9,90,2,176,0)="Engine (ECME) claim; updates to the Rx Activity Log; and permanent storage"
^XMB(3.9,90,2,177,0)="""PKG"",261,22,1,""PAH"",1,1,12,0)"
^XMB(3.9,90,2,178,0)="of Claims activity information as reported by the ECME Billing Events"
^XMB(3.9,90,2,179,0)="""PKG"",261,22,1,""PAH"",1,1,13,0)"
^XMB(3.9,90,2,180,0)="Report."
^XMB(3.9,90,2,181,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,90,2,182,0)="Y"
^XMB(3.9,90,2,183,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,90,2,184,0)="^D REP^XPDH"
^XMB(3.9,90,2,185,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,90,2,186,0)="Shall I write over your |FLAG| File"
^XMB(3.9,90,2,187,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,90,2,188,0)="YES"
^XMB(3.9,90,2,189,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,90,2,190,0)="D XPF1^XPDIQ"
^XMB(3.9,90,2,191,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,90,2,192,0)="Y"
^XMB(3.9,90,2,193,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,90,2,194,0)="^D DTA^XPDH"
^XMB(3.9,90,2,195,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,90,2,196,0)="Want my data |FLAG| yours"
^XMB(3.9,90,2,197,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,90,2,198,0)="YES"
^XMB(3.9,90,2,199,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,90,2,200,0)="D XPF2^XPDIQ"
^XMB(3.9,90,2,201,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,90,2,202,0)="YO"
^XMB(3.9,90,2,203,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,90,2,204,0)="^D INHIBIT^XPDH"
^XMB(3.9,90,2,205,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,90,2,206,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,90,2,207,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,90,2,208,0)="YES"
^XMB(3.9,90,2,209,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,90,2,210,0)="D XPI1^XPDIQ"
^XMB(3.9,90,2,211,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,90,2,212,0)="PO^VA(200,:EM"
^XMB(3.9,90,2,213,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,90,2,214,0)="^D MG^XPDH"
^XMB(3.9,90,2,215,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,90,2,216,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,90,2,217,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,90,2,218,0)=""
^XMB(3.9,90,2,219,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,90,2,220,0)="D XPM1^XPDIQ"
^XMB(3.9,90,2,221,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,90,2,222,0)="Y"
^XMB(3.9,90,2,223,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,90,2,224,0)="^D MENU^XPDH"
^XMB(3.9,90,2,225,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,90,2,226,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,90,2,227,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,90,2,228,0)="YES"
^XMB(3.9,90,2,229,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,90,2,230,0)="D XPO1^XPDIQ"
^XMB(3.9,90,2,231,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,90,2,232,0)="Y"
^XMB(3.9,90,2,233,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,90,2,234,0)="^D OPT^XPDH"
^XMB(3.9,90,2,235,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,90,2,236,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,90,2,237,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,90,2,238,0)="YES"
^XMB(3.9,90,2,239,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,90,2,240,0)="D XPZ1^XPDIQ"
^XMB(3.9,90,2,241,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,90,2,242,0)="Y"
^XMB(3.9,90,2,243,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,90,2,244,0)="^D RTN^XPDH"
^XMB(3.9,90,2,245,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,90,2,246,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,90,2,247,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,90,2,248,0)="NO"
^XMB(3.9,90,2,249,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,90,2,250,0)="D XPZ2^XPDIQ"
^XMB(3.9,90,2,251,0)="""RTN"")"
^XMB(3.9,90,2,252,0)="1"
^XMB(3.9,90,2,253,0)="""RTN"",""RCDPBTLM"")"
^XMB(3.9,90,2,254,0)="0^1^B46607011^B40264606"
^XMB(3.9,90,2,255,0)="""RTN"",""RCDPBTLM"",1,0)"
^XMB(3.9,90,2,256,0)="RCDPBTLM ;WISC/RFJ - bill transactions List Manager top routine ;1 Jun 99"
^XMB(3.9,90,2,257,0)="""RTN"",""RCDPBTLM"",2,0)"
^XMB(3.9,90,2,258,0)=" ;;4.5;Accounts Receivable;**114,148,153,168,169,198,247**;Mar 20, 1995;Build 5"
^XMB(3.9,90,2,259,0)="""RTN"",""RCDPBTLM"",3,0)"
^XMB(3.9,90,2,260,0)=" ;;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,90,2,261,0)="""RTN"",""RCDPBTLM"",4,0)"
^XMB(3.9,90,2,262,0)=" ;"
^XMB(3.9,90,2,263,0)="""RTN"",""RCDPBTLM"",5,0)"
^XMB(3.9,90,2,264,0)=" ;"
^XMB(3.9,90,2,265,0)="""RTN"",""RCDPBTLM"",6,0)"
^XMB(3.9,90,2,266,0)=" ;  called from menu option (19)"
^XMB(3.9,90,2,267,0)="""RTN"",""RCDPBTLM"",7,0)"
^XMB(3.9,90,2,268,0)=" ;"
^XMB(3.9,90,2,269,0)="""RTN"",""RCDPBTLM"",8,0)"
^XMB(3.9,90,2,270,0)=" N RCBILLDA,RCDPFXIT"
^XMB(3.9,90,2,271,0)="""RTN"",""RCDPBTLM"",9,0)"
^XMB(3.9,90,2,272,0)=" ;"
^XMB(3.9,90,2,273,0)="""RTN"",""RCDPBTLM"",10,0)"
^XMB(3.9,90,2,274,0)=" F  D  Q:'RCBILLDA"
^XMB(3.9,90,2,275,0)="""RTN"",""RCDPBTLM"",11,0)"
^XMB(3.9,90,2,276,0)=" .   W !! S RCBILLDA=$$SELBILL"
^XMB(3.9,90,2,277,0)="""RTN"",""RCDPBTLM"",12,0)"
^XMB(3.9,90,2,278,0)=" .   I RCBILLDA<1 S RCBILLDA=0 Q"
^XMB(3.9,90,2,279,0)="""RTN"",""RCDPBTLM"",13,0)"
^XMB(3.9,90,2,280,0)=" .   D EN^VALM(""RCDP TRANSACTIONS LIST"")"
^XMB(3.9,90,2,281,0)="""RTN"",""RCDPBTLM"",14,0)"
^XMB(3.9,90,2,282,0)=" .   ;  fast exit"
^XMB(3.9,90,2,283,0)="""RTN"",""RCDPBTLM"",15,0)"
^XMB(3.9,90,2,284,0)=" .   I $G(RCDPFXIT) S RCBILLDA=0"
^XMB(3.9,90,2,285,0)="""RTN"",""RCDPBTLM"",16,0)"
^XMB(3.9,90,2,286,0)=" Q"
^XMB(3.9,90,2,287,0)="""RTN"",""RCDPBTLM"",17,0)"
^XMB(3.9,90,2,288,0)=" ;"
^XMB(3.9,90,2,289,0)="""RTN"",""RCDPBTLM"",18,0)"
^XMB(3.9,90,2,290,0)=" ;"
^XMB(3.9,90,2,291,0)="""RTN"",""RCDPBTLM"",19,0)"
^XMB(3.9,90,2,292,0)="INIT ;  initialization for list manager list"
^XMB(3.9,90,2,293,0)="""RTN"",""RCDPBTLM"",20,0)"
^XMB(3.9,90,2,294,0)=" ;  requires rcbillda"
^XMB(3.9,90,2,295,0)="""RTN"",""RCDPBTLM"",21,0)"
^XMB(3.9,90,2,296,0)=" N ADMIN,DATE,RCLINE,RCLIST,RCTOTAL,RCTRAN,RCTRANDA"
^XMB(3.9,90,2,297,0)="""RTN"",""RCDPBTLM"",22,0)"
^XMB(3.9,90,2,298,0)=" K ^TMP(""RCDPBTLM"",$J),^TMP(""VALM VIDEO"",$J)"
^XMB(3.9,90,2,299,0)="""RTN"",""RCDPBTLM"",23,0)"
^XMB(3.9,90,2,300,0)=" ;"
^XMB(3.9,90,2,301,0)="""RTN"",""RCDPBTLM"",24,0)"
^XMB(3.9,90,2,302,0)=" ;  fast exit"
^XMB(3.9,90,2,303,0)="""RTN"",""RCDPBTLM"",25,0)"
^XMB(3.9,90,2,304,0)=" I $G(RCDPFXIT) S VALMQUIT=1 Q"
^XMB(3.9,90,2,305,0)="""RTN"",""RCDPBTLM"",26,0)"
^XMB(3.9,90,2,306,0)=" ;"
^XMB(3.9,90,2,307,0)="""RTN"",""RCDPBTLM"",27,0)"
^XMB(3.9,90,2,308,0)=" ;  set the List Manager line number"
^XMB(3.9,90,2,309,0)="""RTN"",""RCDPBTLM"",28,0)"
^XMB(3.9,90,2,310,0)=" S RCLINE=0"
^XMB(3.9,90,2,311,0)="""RTN"",""RCDPBTLM"",29,0)"
^XMB(3.9,90,2,312,0)=" ;  set the List Manager transaction number"
^XMB(3.9,90,2,313,0)="""RTN"",""RCDPBTLM"",30,0)"
^XMB(3.9,90,2,314,0)=" S RCTRAN=0"
^XMB(3.9,90,2,315,0)="""RTN"",""RCDPBTLM"",31,0)"
^XMB(3.9,90,2,316,0)=" ;"
^XMB(3.9,90,2,317,0)="""RTN"",""RCDPBTLM"",32,0)"
^XMB(3.9,90,2,318,0)=" ;  get transactions and balance for bill"
^XMB(3.9,90,2,319,0)="""RTN"",""RCDPBTLM"",33,0)"
^XMB(3.9,90,2,320,0)=" S RCTOTAL=$$GETTRANS(RCBILLDA)"
^XMB(3.9,90,2,321,0)="""RTN"",""RCDPBTLM"",34,0)"
^XMB(3.9,90,2,322,0)=" ;"
^XMB(3.9,90,2,323,0)="""RTN"",""RCDPBTLM"",35,0)"
^XMB(3.9,90,2,324,0)=" S DATE="""" F  S DATE=$O(RCLIST(DATE)) Q:'DATE  D"
^XMB(3.9,90,2,325,0)="""RTN"",""RCDPBTLM"",36,0)"
^XMB(3.9,90,2,326,0)=" .   S RCTRANDA="""" F  S RCTRANDA=$O(RCLIST(DATE,RCTRANDA)) Q:RCTRANDA=""""  D"
^XMB(3.9,90,2,327,0)="""RTN"",""RCDPBTLM"",37,0)"
^XMB(3.9,90,2,328,0)=" .   .   S RCLINE=RCLINE+1"
^XMB(3.9,90,2,329,0)="""RTN"",""RCDPBTLM"",38,0)"
^XMB(3.9,90,2,330,0)=" .   .   ;"
^XMB(3.9,90,2,331,0)="""RTN"",""RCDPBTLM"",39,0)"
^XMB(3.9,90,2,332,0)=" .   .   ;  create an index array for transaction lookup in list"
^XMB(3.9,90,2,333,0)="""RTN"",""RCDPBTLM"",40,0)"
^XMB(3.9,90,2,334,0)=" .   .   I RCTRANDA D"
^XMB(3.9,90,2,335,0)="""RTN"",""RCDPBTLM"",41,0)"
^XMB(3.9,90,2,336,0)=" .   .   .   S RCTRAN=RCTRAN+1"
^XMB(3.9,90,2,337,0)="""RTN"",""RCDPBTLM"",42,0)"
^XMB(3.9,90,2,338,0)=" .   .   .   S ^TMP(""RCDPBTLM"",$J,""IDX"",RCTRAN,RCTRAN)=RCTRANDA"
^XMB(3.9,90,2,339,0)="""RTN"",""RCDPBTLM"",43,0)"
^XMB(3.9,90,2,340,0)=" .   .   .   D SET^RCDPAPLI(RCTRAN,RCLINE,1,80,0,IORVON,IORVOFF)"
^XMB(3.9,90,2,341,0)="""RTN"",""RCDPBTLM"",44,0)"
^XMB(3.9,90,2,342,0)=" .   .   ;"
^XMB(3.9,90,2,343,0)="""RTN"",""RCDPBTLM"",45,0)"
^XMB(3.9,90,2,344,0)=" .   .   D SET^RCDPAPLI($S(RCTRANDA:RCTRANDA,1:"" ""),RCLINE,4,80)"
^XMB(3.9,90,2,345,0)="""RTN"",""RCDPBTLM"",46,0)"
^XMB(3.9,90,2,346,0)=" .   .   D SET^RCDPAPLI($E(DATE,4,5)_""/""_$E(DATE,6,7)_""/""_$E(DATE,2,3),RCLINE,13,21)"
^XMB(3.9,90,2,347,0)="""RTN"",""RCDPBTLM"",47,0)"
^XMB(3.9,90,2,348,0)=" .   .   D SET^RCDPAPLI($TR($P(RCLIST(DATE,RCTRANDA),""^""),""ABCDEFGHIJKLMNOPQRSTUVWXYZ"",""abcdefghijklmnopqrstuvwxyz""),RCLINE,25,50)"
^XMB(3.9,90,2,349,0)="""RTN"",""RCDPBTLM"",48,0)"
^XMB(3.9,90,2,350,0)=" .   .   D SET^RCDPAPLI($J($P(RCLIST(DATE,RCTRANDA),""^"",2),9,2),RCLINE,53,62)"
^XMB(3.9,90,2,351,0)="""RTN"",""RCDPBTLM"",49,0)"
^XMB(3.9,90,2,352,0)=" .   .   D SET^RCDPAPLI($J($P(RCLIST(DATE,RCTRANDA),""^"",3),9,2),RCLINE,62,71)"
^XMB(3.9,90,2,353,0)="""RTN"",""RCDPBTLM"",50,0)"
^XMB(3.9,90,2,354,0)=" .   .   ;  add marshal fee and court cost to create admin dollars"
^XMB(3.9,90,2,355,0)="""RTN"",""RCDPBTLM"",51,0)"
^XMB(3.9,90,2,356,0)=" .   .   S ADMIN=$P(RCLIST(DATE,RCTRANDA),""^"",4)+$P(RCLIST(DATE,RCTRANDA),""^"",5)+$P(RCLIST(DATE,RCTRANDA),""^"",6)"
^XMB(3.9,90,2,357,0)="""RTN"",""RCDPBTLM"",52,0)"
^XMB(3.9,90,2,358,0)=" .   .   D SET^RCDPAPLI($J(ADMIN,9,2),RCLINE,71,80)"
^XMB(3.9,90,2,359,0)="""RTN"",""RCDPBTLM"",53,0)"
^XMB(3.9,90,2,360,0)=" ;"
^XMB(3.9,90,2,361,0)="""RTN"",""RCDPBTLM"",54,0)"
^XMB(3.9,90,2,362,0)=" ;  show totals"
^XMB(3.9,90,2,363,0)="""RTN"",""RCDPBTLM"",55,0)"
^XMB(3.9,90,2,364,0)=" S RCLINE=RCLINE+1"
^XMB(3.9,90,2,365,0)="""RTN"",""RCDPBTLM"",56,0)"
^XMB(3.9,90,2,366,0)=" D SET^RCDPAPLI(""                                                    --------- -------- --------"",RCLINE,1,80)"
^XMB(3.9,90,2,367,0)="""RTN"",""RCDPBTLM"",57,0)"
^XMB(3.9,90,2,368,0)=" S RCLINE=RCLINE+1"
^XMB(3.9,90,2,369,0)="""RTN"",""RCDPBTLM"",58,0)"
^XMB(3.9,90,2,370,0)=" D SET^RCDPAPLI(""   TOTAL BALANCE FOR BILL"",RCLINE,1,80)"
^XMB(3.9,90,2,371,0)="""RTN"",""RCDPBTLM"",59,0)"
^XMB(3.9,90,2,372,0)=" D SET^RCDPAPLI($J($P(RCTOTAL,""^"",1),9,2),RCLINE,53,62)"
^XMB(3.9,90,2,373,0)="""RTN"",""RCDPBTLM"",60,0)"
^XMB(3.9,90,2,374,0)=" D SET^RCDPAPLI($J($P(RCTOTAL,""^"",2),9,2),RCLINE,62,71)"
^XMB(3.9,90,2,375,0)="""RTN"",""RCDPBTLM"",61,0)"
^XMB(3.9,90,2,376,0)=" D SET^RCDPAPLI($J($P(RCTOTAL,""^"",3)+$P(RCTOTAL,""^"",4)+$P(RCTOTAL,""^"",5),9,2),RCLINE,71,80)"
^XMB(3.9,90,2,377,0)="""RTN"",""RCDPBTLM"",62,0)"
^XMB(3.9,90,2,378,0)=" ;"
^XMB(3.9,90,2,379,0)="""RTN"",""RCDPBTLM"",63,0)"
^XMB(3.9,90,2,380,0)=" ;  compare totals to what is stored in the file"
^XMB(3.9,90,2,381,0)="""RTN"",""RCDPBTLM"",64,0)"
^XMB(3.9,90,2,382,0)=" N RCDATA7,RCFOUT"
^XMB(3.9,90,2,383,0)="""RTN"",""RCDPBTLM"",65,0)"
^XMB(3.9,90,2,384,0)=" S RCDATA7=$G(^PRCA(430,RCBILLDA,7))"
^XMB(3.9,90,2,385,0)="""RTN"",""RCDPBTLM"",66,0)"
^XMB(3.9,90,2,386,0)=" ;  for a write-off bill, the balance should equal all zeros, for"
^XMB(3.9,90,2,387,0)="""RTN"",""RCDPBTLM"",67,0)"
^XMB(3.9,90,2,388,0)=" ;  these bills, node 7 is the write-off amount, so for the out of"
^XMB(3.9,90,2,389,0)="""RTN"",""RCDPBTLM"",68,0)"
^XMB(3.9,90,2,390,0)=" ;  balance check to work, node 7 needs to be adjusted to all zeros"
^XMB(3.9,90,2,391,0)="""RTN"",""RCDPBTLM"",69,0)"
^XMB(3.9,90,2,392,0)=" I $P(^PRCA(430,RCBILLDA,0),""^"",8)=23 S RCDATA7=""0^0^0^0^0"""
^XMB(3.9,90,2,393,0)="""RTN"",""RCDPBTLM"",70,0)"
^XMB(3.9,90,2,394,0)=" I +$P(RCDATA7,""^"",1)'=+$P(RCTOTAL,""^"",1) S RCFOUT=1"
^XMB(3.9,90,2,395,0)="""RTN"",""RCDPBTLM"",71,0)"
^XMB(3.9,90,2,396,0)=" I +$P(RCDATA7,""^"",2)'=+$P(RCTOTAL,""^"",2) S RCFOUT=1"
^XMB(3.9,90,2,397,0)="""RTN"",""RCDPBTLM"",72,0)"
^XMB(3.9,90,2,398,0)=" I ($P(RCDATA7,""^"",3)+$P(RCDATA7,""^"",4)+$P(RCDATA7,""^"",5))'=+$P(RCTOTAL,""^"",3) S RCFOUT=1"
^XMB(3.9,90,2,399,0)="""RTN"",""RCDPBTLM"",73,0)"
^XMB(3.9,90,2,400,0)=" I $G(RCFOUT) D"
^XMB(3.9,90,2,401,0)="""RTN"",""RCDPBTLM"",74,0)"
^XMB(3.9,90,2,402,0)=" .   S RCLINE=RCLINE+1"
^XMB(3.9,90,2,403,0)="""RTN"",""RCDPBTLM"",75,0)"
^XMB(3.9,90,2,404,0)=" .   D SET^RCDPAPLI("" "",RCLINE,1,80)"
^XMB(3.9,90,2,405,0)="""RTN"",""RCDPBTLM"",76,0)"
^XMB(3.9,90,2,406,0)=" .   S RCLINE=RCLINE+1"
^XMB(3.9,90,2,407,0)="""RTN"",""RCDPBTLM"",77,0)"
^XMB(3.9,90,2,408,0)=" .   D SET^RCDPAPLI(""  STORED BALANCE FOR BILL (** INCORRECT **)"",RCLINE,1,80)"
^XMB(3.9,90,2,409,0)="""RTN"",""RCDPBTLM"",78,0)"
^XMB(3.9,90,2,410,0)=" .   D SET^RCDPAPLI($J($P(RCDATA7,""^"",1),9,2),RCLINE,53,62)"
^XMB(3.9,90,2,411,0)="""RTN"",""RCDPBTLM"",79,0)"
^XMB(3.9,90,2,412,0)=" .   D SET^RCDPAPLI($J($P(RCDATA7,""^"",2),9,2),RCLINE,62,71)"
^XMB(3.9,90,2,413,0)="""RTN"",""RCDPBTLM"",80,0)"
^XMB(3.9,90,2,414,0)=" .   D SET^RCDPAPLI($J($P(RCDATA7,""^"",3)+$P(RCDATA7,""^"",4)+$P(RCDATA7,""^"",5),9,2),RCLINE,71,80)"
^XMB(3.9,90,2,415,0)="""RTN"",""RCDPBTLM"",81,0)"
^XMB(3.9,90,2,416,0)=" ;"
^XMB(3.9,90,2,417,0)="""RTN"",""RCDPBTLM"",82,0)"
^XMB(3.9,90,2,418,0)=" ;  set valmcnt to number of lines in the list"
^XMB(3.9,90,2,419,0)="""RTN"",""RCDPBTLM"",83,0)"
^XMB(3.9,90,2,420,0)=" S VALMCNT=RCLINE"
^XMB(3.9,90,2,421,0)="""RTN"",""RCDPBTLM"",84,0)"
^XMB(3.9,90,2,422,0)=" D HDR"
^XMB(3.9,90,2,423,0)="""RTN"",""RCDPBTLM"",85,0)"
^XMB(3.9,90,2,424,0)=" Q"
^XMB(3.9,90,2,425,0)="""RTN"",""RCDPBTLM"",86,0)"
^XMB(3.9,90,2,426,0)=" ;"
^XMB(3.9,90,2,427,0)="""RTN"",""RCDPBTLM"",87,0)"
^XMB(3.9,90,2,428,0)=" ;"
^XMB(3.9,90,2,429,0)="""RTN"",""RCDPBTLM"",88,0)"
^XMB(3.9,90,2,430,0)="HDR ;  header code for list manager display"
^XMB(3.9,90,2,431,0)="""RTN"",""RCDPBTLM"",89,0)"
^XMB(3.9,90,2,432,0)=" ;  requires rcbillda"
^XMB(3.9,90,2,433,0)="""RTN"",""RCDPBTLM"",90,0)"
^XMB(3.9,90,2,434,0)=" N %,DATA,RCDEBTDA,RCDPDATA"
^XMB(3.9,90,2,435,0)="""RTN"",""RCDPBTLM"",91,0)"
^XMB(3.9,90,2,436,0)=" ;"
^XMB(3.9,90,2,437,0)="""RTN"",""RCDPBTLM"",92,0)"
^XMB(3.9,90,2,438,0)=" D DIQ430^RCDPBPLM(RCBILLDA,"".01;8;"")"
^XMB(3.9,90,2,439,0)="""RTN"",""RCDPBTLM"",93,0)"
^XMB(3.9,90,2,440,0)=" ;"
^XMB(3.9,90,2,441,0)="""RTN"",""RCDPBTLM"",94,0)"
^XMB(3.9,90,2,442,0)=" S RCDEBTDA=$P(^PRCA(430,RCBILLDA,0),""^"",9)"
^XMB(3.9,90,2,443,0)="""RTN"",""RCDPBTLM"",95,0)"
^XMB(3.9,90,2,444,0)=" S DATA=$$ACCNTHDR^RCDPAPLM(RCDEBTDA)"
^XMB(3.9,90,2,445,0)="""RTN"",""RCDPBTLM"",96,0)"
^XMB(3.9,90,2,446,0)=" ;"
^XMB(3.9,90,2,447,0)="""RTN"",""RCDPBTLM"",97,0)"
^XMB(3.9,90,2,448,0)=" S %="""",$P(%,"" "",80)="""""
^XMB(3.9,90,2,449,0)="""RTN"",""RCDPBTLM"",98,0)"
^XMB(3.9,90,2,450,0)=" S VALMHDR(1)=$E(""Bill #: ""_$G(RCDPDATA(430,RCBILLDA,.01,""E""))_%,1,25)_""Account: ""_$P(DATA,""^"")_$P(DATA,""^"",2)"
^XMB(3.9,90,2,451,0)="""RTN"",""RCDPBTLM"",99,0)"
^XMB(3.9,90,2,452,0)=" S VALMHDR(2)=$E(""Status: ""_$G(RCDPDATA(430,RCBILLDA,8,""E""))_%,1,25)_$E(""   Addr: ""_$P(DATA,""^"",4)_"", ""_$P(DATA,""^"",7)_"", ""_$P(DATA,""^"",8)_""  ""_$P(DATA,""^"",9)_%,1,55)"
^XMB(3.9,90,2,453,0)="""RTN"",""RCDPBTLM"",100,0)"
^XMB(3.9,90,2,454,0)=" Q"
^XMB(3.9,90,2,455,0)="""RTN"",""RCDPBTLM"",101,0)"
^XMB(3.9,90,2,456,0)=" S VALMHDR(3)=""  ""_IORVON_$E(""Bill Balance: ""_$J($P(RCTOTAL,""^"")+$P(RCTOTAL,""^"",2)+$P(RCTOTAL,""^"",3)+$P(RCTOTAL,""^"",4)+$P(RCTOTAL,""^"",5),0,2)_%,1,23)_IORVOFF_""  Phone: ""_$P(DATA,""^"",10)"
^XMB(3.9,90,2,457,0)="""RTN"",""RCDPBTLM"",102,0)"
^XMB(3.9,90,2,458,0)=" Q"
^XMB(3.9,90,2,459,0)="""RTN"",""RCDPBTLM"",103,0)"
^XMB(3.9,90,2,460,0)=" ;"
^XMB(3.9,90,2,461,0)="""RTN"",""RCDPBTLM"",104,0)"
^XMB(3.9,90,2,462,0)=" ;"
^XMB(3.9,90,2,463,0)="""RTN"",""RCDPBTLM"",105,0)"
^XMB(3.9,90,2,464,0)="EXIT ;  exit list manager option and clean up"
^XMB(3.9,90,2,465,0)="""RTN"",""RCDPBTLM"",106,0)"
^XMB(3.9,90,2,466,0)=" K ^TMP(""RCDPBTLM"",$J),^TMP(""RCDPBTLMX"",$J)"
^XMB(3.9,90,2,467,0)="""RTN"",""RCDPBTLM"",107,0)"
^XMB(3.9,90,2,468,0)=" Q"
^XMB(3.9,90,2,469,0)="""RTN"",""RCDPBTLM"",108,0)"
^XMB(3.9,90,2,470,0)=" ;"
^XMB(3.9,90,2,471,0)="""RTN"",""RCDPBTLM"",109,0)"
^XMB(3.9,90,2,472,0)=" ;"
^XMB(3.9,90,2,473,0)="""RTN"",""RCDPBTLM"",110,0)"
^XMB(3.9,90,2,474,0)="SELBILL() ;  select a bill"
^XMB(3.9,90,2,475,0)="""RTN"",""RCDPBTLM"",111,0)"
^XMB(3.9,90,2,476,0)=" ;  returns -1 for timeout or ^, 0 for no selection, or ien of bill"
^XMB(3.9,90,2,477,0)="""RTN"",""RCDPBTLM"",112,0)"
^XMB(3.9,90,2,478,0)=" N %,%Y,C,DIC,DTOUT,DUOUT,RCBEFLUP,X,Y"
^XMB(3.9,90,2,479,0)="""RTN"",""RCDPBTLM"",113,0)"
^XMB(3.9,90,2,480,0)=" N DPTNOFZY,DPTNOFZK S (DPTNOFZY,DPTNOFZK)=1"
^XMB(3.9,90,2,481,0)="""RTN"",""RCDPBTLM"",114,0)"
^XMB(3.9,90,2,482,0)=" N RCY,DIR,DIRUT"
^XMB(3.9,90,2,483,0)="""RTN"",""RCDPBTLM"",115,0)"
^XMB(3.9,90,2,484,0)=" ; allow user to get the record using bill# or ECME#"
^XMB(3.9,90,2,485,0)="""RTN"",""RCDPBTLM"",116,0)"
^XMB(3.9,90,2,486,0)=" S DIR(""A"")=""Select (B)ILL or (E)CME#: """
^XMB(3.9,90,2,487,0)="""RTN"",""RCDPBTLM"",117,0)"
^XMB(3.9,90,2,488,0)=" S DIR(0)=""SA^B:BILL NUMBER;E:ECME#"""
^XMB(3.9,90,2,489,0)="""RTN"",""RCDPBTLM"",118,0)"
^XMB(3.9,90,2,490,0)=" S DIR(""B"")=""B"""
^XMB(3.9,90,2,491,0)="""RTN"",""RCDPBTLM"",119,0)"
^XMB(3.9,90,2,492,0)=" D ^DIR K DIR I $D(DIRUT) Q 0"
^XMB(3.9,90,2,493,0)="""RTN"",""RCDPBTLM"",120,0)"
^XMB(3.9,90,2,494,0)=" S RCY=Y"
^XMB(3.9,90,2,495,0)="""RTN"",""RCDPBTLM"",121,0)"
^XMB(3.9,90,2,496,0)=" I RCY=""E"" Q $$SELECME"
^XMB(3.9,90,2,497,0)="""RTN"",""RCDPBTLM"",122,0)"
^XMB(3.9,90,2,498,0)=" S DIC=""^PRCA(430,"",DIC(0)=""QEAM"",DIC(""A"")=""Select BILL: """
^XMB(3.9,90,2,499,0)="""RTN"",""RCDPBTLM"",123,0)"
^XMB(3.9,90,2,500,0)=" S DIC(""W"")=""D DICW^RCBEUBI1"""
^XMB(3.9,90,2,501,0)="""RTN"",""RCDPBTLM"",124,0)"
^XMB(3.9,90,2,502,0)=" ;  special lookup on input"
^XMB(3.9,90,2,503,0)="""RTN"",""RCDPBTLM"",125,0)"
^XMB(3.9,90,2,504,0)=" S RCBEFLUP=1"
^XMB(3.9,90,2,505,0)="""RTN"",""RCDPBTLM"",126,0)"
^XMB(3.9,90,2,506,0)=" D ^DIC"
^XMB(3.9,90,2,507,0)="""RTN"",""RCDPBTLM"",127,0)"
^XMB(3.9,90,2,508,0)=" I Y<0,'$G(DUOUT),'$G(DTOUT) S Y=0"
^XMB(3.9,90,2,509,0)="""RTN"",""RCDPBTLM"",128,0)"
^XMB(3.9,90,2,510,0)=" Q +Y"
^XMB(3.9,90,2,511,0)="""RTN"",""RCDPBTLM"",129,0)"
^XMB(3.9,90,2,512,0)=" ;"
^XMB(3.9,90,2,513,0)="""RTN"",""RCDPBTLM"",130,0)"
^XMB(3.9,90,2,514,0)=" ;"
^XMB(3.9,90,2,515,0)="""RTN"",""RCDPBTLM"",131,0)"
^XMB(3.9,90,2,516,0)="GETTRANS(BILLDA) ;  original amount goes first for bill"
^XMB(3.9,90,2,517,0)="""RTN"",""RCDPBTLM"",132,0)"
^XMB(3.9,90,2,518,0)=" ;  returns list of transactions in"
^XMB(3.9,90,2,519,0)="""RTN"",""RCDPBTLM"",133,0)"
^XMB(3.9,90,2,520,0)=" ;  rclist(date,tranda)=trantype ^ principle ^ interest ^ admin"
^XMB(3.9,90,2,521,0)="""RTN"",""RCDPBTLM"",134,0)"
^XMB(3.9,90,2,522,0)=" ;  returns principle balance ^ interest balance ^ admin balance"
^XMB(3.9,90,2,523,0)="""RTN"",""RCDPBTLM"",135,0)"
^XMB(3.9,90,2,524,0)=" ;        ^ marshall fee balance ^ court cost balance"
^XMB(3.9,90,2,525,0)="""RTN"",""RCDPBTLM"",136,0)"
^XMB(3.9,90,2,526,0)=" N %,ADMBAL,AMTDISP,CCBAL,DATA1,DATE,INTBAL,MFBAL,PRINBAL,RCDPDATA,TRANDA,VALUE"
^XMB(3.9,90,2,527,0)="""RTN"",""RCDPBTLM"",137,0)"
^XMB(3.9,90,2,528,0)=" ;"
^XMB(3.9,90,2,529,0)="""RTN"",""RCDPBTLM"",138,0)"
^XMB(3.9,90,2,530,0)=" D DIQ430^RCDPBPLM(BILLDA,""3;60;"")"
^XMB(3.9,90,2,531,0)="""RTN"",""RCDPBTLM"",139,0)"
^XMB(3.9,90,2,532,0)=" ;"
^XMB(3.9,90,2,533,0)="""RTN"",""RCDPBTLM"",140,0)"
^XMB(3.9,90,2,534,0)=" K RCLIST"
^XMB(3.9,90,2,535,0)="""RTN"",""RCDPBTLM"",141,0)"
^XMB(3.9,90,2,536,0)=" S (ADMBAL,CCBAL,INTBAL,MFBAL,PRINBAL)=0"
^XMB(3.9,90,2,537,0)="""RTN"",""RCDPBTLM"",142,0)"
^XMB(3.9,90,2,538,0)=" S PRINBAL=RCDPDATA(430,BILLDA,3,""I"")"
^XMB(3.9,90,2,539,0)="""RTN"",""RCDPBTLM"",143,0)"
^XMB(3.9,90,2,540,0)=" ;  loop transaction and add to list"
^XMB(3.9,90,2,541,0)="""RTN"",""RCDPBTLM"",144,0)"
^XMB(3.9,90,2,542,0)=" S TRANDA=0 F  S TRANDA=$O(^PRCA(433,""C"",BILLDA,TRANDA)) Q:'TRANDA  D"
^XMB(3.9,90,2,543,0)="""RTN"",""RCDPBTLM"",145,0)"
^XMB(3.9,90,2,544,0)=" .   S DATA1=$G(^PRCA(433,TRANDA,1))"
^XMB(3.9,90,2,545,0)="""RTN"",""RCDPBTLM"",146,0)"
^XMB(3.9,90,2,546,0)=" .   S DATE=$P(DATA1,""^"",9) I 'DATE Q"
^XMB(3.9,90,2,547,0)="""RTN"",""RCDPBTLM"",147,0)"
^XMB(3.9,90,2,548,0)=" .   S VALUE=$$TRANVALU(TRANDA) I VALUE="""" Q"
^XMB(3.9,90,2,549,0)="""RTN"",""RCDPBTLM"",148,0)"
^XMB(3.9,90,2,550,0)=" .   S RCLIST($P(DATE,"".""),TRANDA)=$P($G(^PRCA(430.3,+$P(DATA1,""^"",2),0)),""^"")_VALUE"
^XMB(3.9,90,2,551,0)="""RTN"",""RCDPBTLM"",149,0)"
^XMB(3.9,90,2,552,0)=" .   ;"
^XMB(3.9,90,2,553,0)="""RTN"",""RCDPBTLM"",150,0)"
^XMB(3.9,90,2,554,0)=" .   ;  calculate bill's balance"
^XMB(3.9,90,2,555,0)="""RTN"",""RCDPBTLM"",151,0)"
^XMB(3.9,90,2,556,0)=" .   S PRINBAL=PRINBAL+$P(VALUE,""^"",2)"
^XMB(3.9,90,2,557,0)="""RTN"",""RCDPBTLM"",152,0)"
^XMB(3.9,90,2,558,0)=" .   S INTBAL=INTBAL+$P(VALUE,""^"",3)"
^XMB(3.9,90,2,559,0)="""RTN"",""RCDPBTLM"",153,0)"
^XMB(3.9,90,2,560,0)=" .   S ADMBAL=ADMBAL+$P(VALUE,""^"",4)"
^XMB(3.9,90,2,561,0)="""RTN"",""RCDPBTLM"",154,0)"
^XMB(3.9,90,2,562,0)=" .   S MFBAL=MFBAL+$P(VALUE,""^"",5)"
^XMB(3.9,90,2,563,0)="""RTN"",""RCDPBTLM"",155,0)"
^XMB(3.9,90,2,564,0)=" .   S CCBAL=CCBAL+$P(VALUE,""^"",6)"
^XMB(3.9,90,2,565,0)="""RTN"",""RCDPBTLM"",156,0)"
^XMB(3.9,90,2,566,0)=" ;"
^XMB(3.9,90,2,567,0)="""RTN"",""RCDPBTLM"",157,0)"
^XMB(3.9,90,2,568,0)=" S DATE=$G(RCDPDATA(430,BILLDA,60,""I""))"
^XMB(3.9,90,2,569,0)="""RTN"",""RCDPBTLM"",158,0)"
^XMB(3.9,90,2,570,0)=" ;  check to make sure activation date is not greater than first transaction"
^XMB(3.9,90,2,571,0)="""RTN"",""RCDPBTLM"",159,0)"
^XMB(3.9,90,2,572,0)=" S %=$O(RCLIST(0)) I DATE>% S DATE=%"
^XMB(3.9,90,2,573,0)="""RTN"",""RCDPBTLM"",160,0)"
^XMB(3.9,90,2,574,0)=" S RCLIST(+$P(DATE,"".""),0)=""original amount^""_RCDPDATA(430,BILLDA,3,""I"")"
^XMB(3.9,90,2,575,0)="""RTN"",""RCDPBTLM"",161,0)"
^XMB(3.9,90,2,576,0)=" ;"
^XMB(3.9,90,2,577,0)="""RTN"",""RCDPBTLM"",162,0)"
^XMB(3.9,90,2,578,0)=" Q PRINBAL_""^""_INTBAL_""^""_ADMBAL_""^""_MFBAL_""^""_CCBAL"
^XMB(3.9,90,2,579,0)="""RTN"",""RCDPBTLM"",163,0)"
^XMB(3.9,90,2,580,0)=" ;"
^XMB(3.9,90,2,581,0)="""RTN"",""RCDPBTLM"",164,0)"
^XMB(3.9,90,2,582,0)=" ;"
^XMB(3.9,90,2,583,0)="""RTN"",""RCDPBTLM"",165,0)"
^XMB(3.9,90,2,584,0)="TRANVALU(TRANDA) ;  return the transaction value as displayed (with + or - sign)"
^XMB(3.9,90,2,585,0)="""RTN"",""RCDPBTLM"",166,0)"
^XMB(3.9,90,2,586,0)=" N TYPE,VALUE"
^XMB(3.9,90,2,587,0)="""RTN"",""RCDPBTLM"",167,0)"
^XMB(3.9,90,2,588,0)=" S VALUE=$$TRANBAL^RCRJRCOT(TRANDA)"
^XMB(3.9,90,2,589,0)="""RTN"",""RCDPBTLM"",168,0)"
^XMB(3.9,90,2,590,0)=" ;  no dollars on transaction"
^XMB(3.9,90,2,591,0)="""RTN"",""RCDPBTLM"",169,0)"
^XMB(3.9,90,2,592,0)=" I '$P(VALUE,""^""),'$P(VALUE,""^"",2),'$P(VALUE,""^"",3),'$P(VALUE,""^"",4),'$P(VALUE,""^"",5) Q """""
^XMB(3.9,90,2,593,0)="""RTN"",""RCDPBTLM"",170,0)"
^XMB(3.9,90,2,594,0)=" ;  check type for payments, etc, make values (-) to subtract"
^XMB(3.9,90,2,595,0)="""RTN"",""RCDPBTLM"",171,0)"
^XMB(3.9,90,2,596,0)=" S TYPE=$P($G(^PRCA(433,TRANDA,1)),""^"",2)"
^XMB(3.9,90,2,597,0)="""RTN"",""RCDPBTLM"",172,0)"
^XMB(3.9,90,2,598,0)=" I TYPE=2!(TYPE=8)!(TYPE=9)!(TYPE=10)!(TYPE=11)!(TYPE=14)!(TYPE=29)!(TYPE=34)!(TYPE=35)!(TYPE=41) D"
^XMB(3.9,90,2,599,0)="""RTN"",""RCDPBTLM"",173,0)"
^XMB(3.9,90,2,600,0)=" .   S $P(VALUE,""^"",1)=-$P(VALUE,""^"",1)"
^XMB(3.9,90,2,601,0)="""RTN"",""RCDPBTLM"",174,0)"
^XMB(3.9,90,2,602,0)=" .   S $P(VALUE,""^"",2)=-$P(VALUE,""^"",2)"
^XMB(3.9,90,2,603,0)="""RTN"",""RCDPBTLM"",175,0)"
^XMB(3.9,90,2,604,0)=" .   S $P(VALUE,""^"",3)=-$P(VALUE,""^"",3)"
^XMB(3.9,90,2,605,0)="""RTN"",""RCDPBTLM"",176,0)"
^XMB(3.9,90,2,606,0)=" .   S $P(VALUE,""^"",4)=-$P(VALUE,""^"",4)"
^XMB(3.9,90,2,607,0)="""RTN"",""RCDPBTLM"",177,0)"
^XMB(3.9,90,2,608,0)=" .   S $P(VALUE,""^"",5)=-$P(VALUE,""^"",5)"
^XMB(3.9,90,2,609,0)="""RTN"",""RCDPBTLM"",178,0)"
^XMB(3.9,90,2,610,0)=" ;"
^XMB(3.9,90,2,611,0)="""RTN"",""RCDPBTLM"",179,0)"
^XMB(3.9,90,2,612,0)=" ;  the following transaction types should not change the bills balance"
^XMB(3.9,90,2,613,0)="""RTN"",""RCDPBTLM"",180,0)"
^XMB(3.9,90,2,614,0)=" ;  return the amount displayed in the description and 0 for value"
^XMB(3.9,90,2,615,0)="""RTN"",""RCDPBTLM"",181,0)"
^XMB(3.9,90,2,616,0)=" ;    refer to RC 3, refer to DOJ 4, reestablish 5, returned 6 and 32"
^XMB(3.9,90,2,617,0)="""RTN"",""RCDPBTLM"",182,0)"
^XMB(3.9,90,2,618,0)=" ;    repayment plan 25, amended 33, suspended 47, unsuspended 46"
^XMB(3.9,90,2,619,0)="""RTN"",""RCDPBTLM"",183,0)"
^XMB(3.9,90,2,620,0)=" K AMTDISP"
^XMB(3.9,90,2,621,0)="""RTN"",""RCDPBTLM"",184,0)"
^XMB(3.9,90,2,622,0)=" I TYPE=3!(TYPE=4)!(TYPE=5)!(TYPE=6)!(TYPE=25)!(TYPE=32)!(TYPE=33)!(TYPE=46)!(TYPE=47) D"
^XMB(3.9,90,2,623,0)="""RTN"",""RCDPBTLM"",185,0)"
^XMB(3.9,90,2,624,0)=" .   S AMTDISP="" ($""_$J($P(VALUE,""^"")+$P(VALUE,""^"",2)+$P(VALUE,""^"",3)+$P(VALUE,""^"",4)+$P(VALUE,""^"",5),0,2)_"")"""
^XMB(3.9,90,2,625,0)="""RTN"",""RCDPBTLM"",186,0)"
^XMB(3.9,90,2,626,0)=" .   S VALUE="""""
^XMB(3.9,90,2,627,0)="""RTN"",""RCDPBTLM"",187,0)"
^XMB(3.9,90,2,628,0)=" Q $G(AMTDISP)_""^""_VALUE"
^XMB(3.9,90,2,629,0)="""RTN"",""RCDPBTLM"",188,0)"
^XMB(3.9,90,2,630,0)=" ;"
^XMB(3.9,90,2,631,0)="""RTN"",""RCDPBTLM"",189,0)"
^XMB(3.9,90,2,632,0)="SELECME() ;"
^XMB(3.9,90,2,633,0)="""RTN"",""RCDPBTLM"",190,0)"
^XMB(3.9,90,2,634,0)=" ; function takes the user input of the ECME # to return a valid ien of file 430"
^XMB(3.9,90,2,635,0)="""RTN"",""RCDPBTLM"",191,0)"
^XMB(3.9,90,2,636,0)=" ; if an invalid ECME is evaluated then the process keeps asking the user for ECME #"
^XMB(3.9,90,2,637,0)="""RTN"",""RCDPBTLM"",192,0)"
^XMB(3.9,90,2,638,0)=" ; until a valid ECME# is entered or until the user enters a ""^"" or null value"
^XMB(3.9,90,2,639,0)="""RTN"",""RCDPBTLM"",193,0)"
^XMB(3.9,90,2,640,0)=" ; output - returns the IEN of the record entry in the ACCOUNT RECEIVABLE file (#430) or ""??"""
^XMB(3.9,90,2,641,0)="""RTN"",""RCDPBTLM"",194,0)"
^XMB(3.9,90,2,642,0)=" N RCECME,RCBILL,DIR,DIRUT,Y"
^XMB(3.9,90,2,643,0)="""RTN"",""RCDPBTLM"",195,0)"
^XMB(3.9,90,2,644,0)=" S DIR(0)=""FO^7:7^I X'?1.7N W !!,""""Cannot contain alpha characters"""" K X"""
^XMB(3.9,90,2,645,0)="""RTN"",""RCDPBTLM"",196,0)"
^XMB(3.9,90,2,646,0)=" S DIR(""A"")=""Select ECME#"""
^XMB(3.9,90,2,647,0)="""RTN"",""RCDPBTLM"",197,0)"
^XMB(3.9,90,2,648,0)="RET D ^DIR I $D(DIRUT) Q 0"
^XMB(3.9,90,2,649,0)="""RTN"",""RCDPBTLM"",198,0)"
^XMB(3.9,90,2,650,0)=" S RCECME=$S(+Y>0:Y,1:0)"
^XMB(3.9,90,2,651,0)="""RTN"",""RCDPBTLM"",199,0)"
^XMB(3.9,90,2,652,0)=" S RCBILL=$$REC^IBRFN(RCECME)"
^XMB(3.9,90,2,653,0)="""RTN"",""RCDPBTLM"",200,0)"
^XMB(3.9,90,2,654,0)=" I RCBILL<0 W !!,""??"" G RET"
^XMB(3.9,90,2,655,0)="""RTN"",""RCDPBTLM"",201,0)"
^XMB(3.9,90,2,656,0)=" E  W !!,$P($G(^PRCA(430,+RCBILL,0)),""^""),"" """
^XMB(3.9,90,2,657,0)="""RTN"",""RCDPBTLM"",202,0)"
^XMB(3.9,90,2,658,0)=" Q RCBILL"
^XMB(3.9,90,2,659,0)="""RTN"",""RCDPBTLM"",203,0)"
^XMB(3.9,90,2,660,0)=" ;RCDPBTLM"
^XMB(3.9,90,2,661,0)="""VER"")"
^XMB(3.9,90,2,662,0)="8.0^22.0"
^XMB(3.9,90,2,663,0)="""BLD"",5785,6)"
^XMB(3.9,90,2,664,0)="^221"
^XMB(3.9,90,2,665,0)="$END KID PRCA*4.5*247"
^XMB(3.9,90,6,0)="^3.911A^2^2"
^XMB(3.9,90,6,1,0)="POSTMASTER"
^XMB(3.9,90,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,90,6,"B","POSTMASTER",1)=""
^XMB(3.9,90,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,91,0)="PRPF-3_SEQ-17_PAT-15.KID^.5^3061008.015739^^^^K"
^XMB(3.9,91,.6)="3061008"
^XMB(3.9,91,1,0)="^3.91A^2^2"
^XMB(3.9,91,1,1,0)=".5^0^3061008.015739^^^^^^^3061008.015739"
^XMB(3.9,91,1,2,0)="1^0^3061008.024205^^^^^^^3061008.024205"
^XMB(3.9,91,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,91,1,"C",.5,1)=""
^XMB(3.9,91,1,"C",1,2)=""
^XMB(3.9,91,2,0)="^^1817^1817^3061008"
^XMB(3.9,91,2,1,0)="$TXT Released PRPF*3*15 SEQ #17"
^XMB(3.9,91,2,2,0)="Extracted from mail message"
^XMB(3.9,91,2,3,0)="$END TXT"
^XMB(3.9,91,2,4,0)="$KID PRPF*3.0*15"
^XMB(3.9,91,2,5,0)="**INSTALL NAME**"
^XMB(3.9,91,2,6,0)="PRPF*3.0*15"
^XMB(3.9,91,2,7,0)="""BLD"",4744,0)"
^XMB(3.9,91,2,8,0)="PRPF*3.0*15^INTEGRATED PATIENT FUNDS^0^3060227^y"
^XMB(3.9,91,2,9,0)="""BLD"",4744,1,0)"
^XMB(3.9,91,2,10,0)="^^1^1^3050719^"
^XMB(3.9,91,2,11,0)="""BLD"",4744,1,1,0)"
^XMB(3.9,91,2,12,0)="Patient Funds Diagnostic Patch"
^XMB(3.9,91,2,13,0)="""BLD"",4744,4,0)"
^XMB(3.9,91,2,14,0)="^9.64PA^^0"
^XMB(3.9,91,2,15,0)="""BLD"",4744,""INID"")"
^XMB(3.9,91,2,16,0)="^n"
^XMB(3.9,91,2,17,0)="""BLD"",4744,""INIT"")"
^XMB(3.9,91,2,18,0)=""
^XMB(3.9,91,2,19,0)="""BLD"",4744,""KRN"",0)"
^XMB(3.9,91,2,20,0)="^9.67PA^8989.52^19"
^XMB(3.9,91,2,21,0)="""BLD"",4744,""KRN"",.4,0)"
^XMB(3.9,91,2,22,0)=".4"
^XMB(3.9,91,2,23,0)="""BLD"",4744,""KRN"",.401,0)"
^XMB(3.9,91,2,24,0)=".401"
^XMB(3.9,91,2,25,0)="""BLD"",4744,""KRN"",.402,0)"
^XMB(3.9,91,2,26,0)=".402"
^XMB(3.9,91,2,27,0)="""BLD"",4744,""KRN"",.403,0)"
^XMB(3.9,91,2,28,0)=".403"
^XMB(3.9,91,2,29,0)="""BLD"",4744,""KRN"",.5,0)"
^XMB(3.9,91,2,30,0)=".5"
^XMB(3.9,91,2,31,0)="""BLD"",4744,""KRN"",.84,0)"
^XMB(3.9,91,2,32,0)=".84"
^XMB(3.9,91,2,33,0)="""BLD"",4744,""KRN"",3.6,0)"
^XMB(3.9,91,2,34,0)="3.6"
^XMB(3.9,91,2,35,0)="""BLD"",4744,""KRN"",3.8,0)"
^XMB(3.9,91,2,36,0)="3.8"
^XMB(3.9,91,2,37,0)="""BLD"",4744,""KRN"",9.2,0)"
^XMB(3.9,91,2,38,0)="9.2"
^XMB(3.9,91,2,39,0)="""BLD"",4744,""KRN"",9.8,0)"
^XMB(3.9,91,2,40,0)="9.8"
^XMB(3.9,91,2,41,0)="""BLD"",4744,""KRN"",9.8,""NM"",0)"
^XMB(3.9,91,2,42,0)="^9.68A^6^6"
^XMB(3.9,91,2,43,0)="""BLD"",4744,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,91,2,44,0)="PRPFDR1^^0^B73189530"
^XMB(3.9,91,2,45,0)="""BLD"",4744,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,91,2,46,0)="PRPFDR2^^0^B68312638"
^XMB(3.9,91,2,47,0)="""BLD"",4744,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,91,2,48,0)="PRPFDR3^^0^B71656753"
^XMB(3.9,91,2,49,0)="""BLD"",4744,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,91,2,50,0)="PRPFDR4^^0^B33333935"
^XMB(3.9,91,2,51,0)="""BLD"",4744,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,91,2,52,0)="PRPFDR5^^0^B63996018"
^XMB(3.9,91,2,53,0)="""BLD"",4744,""KRN"",9.8,""NM"",6,0)"
^XMB(3.9,91,2,54,0)="PRPFDR6^^0^B32913557"
^XMB(3.9,91,2,55,0)="""BLD"",4744,""KRN"",9.8,""NM"",""B"",""PRPFDR1"",1)"
^XMB(3.9,91,2,56,0)=""
^XMB(3.9,91,2,57,0)="""BLD"",4744,""KRN"",9.8,""NM"",""B"",""PRPFDR2"",2)"
^XMB(3.9,91,2,58,0)=""
^XMB(3.9,91,2,59,0)="""BLD"",4744,""KRN"",9.8,""NM"",""B"",""PRPFDR3"",3)"
^XMB(3.9,91,2,60,0)=""
^XMB(3.9,91,2,61,0)="""BLD"",4744,""KRN"",9.8,""NM"",""B"",""PRPFDR4"",4)"
^XMB(3.9,91,2,62,0)=""
^XMB(3.9,91,2,63,0)="""BLD"",4744,""KRN"",9.8,""NM"",""B"",""PRPFDR5"",5)"
^XMB(3.9,91,2,64,0)=""
^XMB(3.9,91,2,65,0)="""BLD"",4744,""KRN"",9.8,""NM"",""B"",""PRPFDR6"",6)"
^XMB(3.9,91,2,66,0)=""
^XMB(3.9,91,2,67,0)="""BLD"",4744,""KRN"",19,0)"
^XMB(3.9,91,2,68,0)="19"
^XMB(3.9,91,2,69,0)="""BLD"",4744,""KRN"",19,""NM"",0)"
^XMB(3.9,91,2,70,0)="^9.68A^2^2"
^XMB(3.9,91,2,71,0)="""BLD"",4744,""KRN"",19,""NM"",1,0)"
^XMB(3.9,91,2,72,0)="PRPF SUPERVISOR^^2"
^XMB(3.9,91,2,73,0)="""BLD"",4744,""KRN"",19,""NM"",2,0)"
^XMB(3.9,91,2,74,0)="PRPF DATA DIAGNOSTIC REPORT^^0"
^XMB(3.9,91,2,75,0)="""BLD"",4744,""KRN"",19,""NM"",""B"",""PRPF DATA DIAGNOSTIC REPORT"",2)"
^XMB(3.9,91,2,76,0)=""
^XMB(3.9,91,2,77,0)="""BLD"",4744,""KRN"",19,""NM"",""B"",""PRPF SUPERVISOR"",1)"
^XMB(3.9,91,2,78,0)=""
^XMB(3.9,91,2,79,0)="""BLD"",4744,""KRN"",19.1,0)"
^XMB(3.9,91,2,80,0)="19.1"
^XMB(3.9,91,2,81,0)="""BLD"",4744,""KRN"",19.1,""NM"",0)"
^XMB(3.9,91,2,82,0)="^9.68A^^0"
^XMB(3.9,91,2,83,0)="""BLD"",4744,""KRN"",101,0)"
^XMB(3.9,91,2,84,0)="101"
^XMB(3.9,91,2,85,0)="""BLD"",4744,""KRN"",409.61,0)"
^XMB(3.9,91,2,86,0)="409.61"
^XMB(3.9,91,2,87,0)="""BLD"",4744,""KRN"",771,0)"
^XMB(3.9,91,2,88,0)="771"
^XMB(3.9,91,2,89,0)="""BLD"",4744,""KRN"",870,0)"
^XMB(3.9,91,2,90,0)="870"
^XMB(3.9,91,2,91,0)="""BLD"",4744,""KRN"",8989.51,0)"
^XMB(3.9,91,2,92,0)="8989.51"
^XMB(3.9,91,2,93,0)="""BLD"",4744,""KRN"",8989.52,0)"
^XMB(3.9,91,2,94,0)="8989.52"
^XMB(3.9,91,2,95,0)="""BLD"",4744,""KRN"",8994,0)"
^XMB(3.9,91,2,96,0)="8994"
^XMB(3.9,91,2,97,0)="""BLD"",4744,""KRN"",8994,""NM"",0)"
^XMB(3.9,91,2,98,0)="^9.68A^^0"
^XMB(3.9,91,2,99,0)="""BLD"",4744,""KRN"",""B"",.4,.4)"
^XMB(3.9,91,2,100,0)=""
^XMB(3.9,91,2,101,0)="""BLD"",4744,""KRN"",""B"",.401,.401)"
^XMB(3.9,91,2,102,0)=""
^XMB(3.9,91,2,103,0)="""BLD"",4744,""KRN"",""B"",.402,.402)"
^XMB(3.9,91,2,104,0)=""
^XMB(3.9,91,2,105,0)="""BLD"",4744,""KRN"",""B"",.403,.403)"
^XMB(3.9,91,2,106,0)=""
^XMB(3.9,91,2,107,0)="""BLD"",4744,""KRN"",""B"",.5,.5)"
^XMB(3.9,91,2,108,0)=""
^XMB(3.9,91,2,109,0)="""BLD"",4744,""KRN"",""B"",.84,.84)"
^XMB(3.9,91,2,110,0)=""
^XMB(3.9,91,2,111,0)="""BLD"",4744,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,91,2,112,0)=""
^XMB(3.9,91,2,113,0)="""BLD"",4744,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,91,2,114,0)=""
^XMB(3.9,91,2,115,0)="""BLD"",4744,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,91,2,116,0)=""
^XMB(3.9,91,2,117,0)="""BLD"",4744,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,91,2,118,0)=""
^XMB(3.9,91,2,119,0)="""BLD"",4744,""KRN"",""B"",19,19)"
^XMB(3.9,91,2,120,0)=""
^XMB(3.9,91,2,121,0)="""BLD"",4744,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,91,2,122,0)=""
^XMB(3.9,91,2,123,0)="""BLD"",4744,""KRN"",""B"",101,101)"
^XMB(3.9,91,2,124,0)=""
^XMB(3.9,91,2,125,0)="""BLD"",4744,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,91,2,126,0)=""
^XMB(3.9,91,2,127,0)="""BLD"",4744,""KRN"",""B"",771,771)"
^XMB(3.9,91,2,128,0)=""
^XMB(3.9,91,2,129,0)="""BLD"",4744,""KRN"",""B"",870,870)"
^XMB(3.9,91,2,130,0)=""
^XMB(3.9,91,2,131,0)="""BLD"",4744,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,91,2,132,0)=""
^XMB(3.9,91,2,133,0)="""BLD"",4744,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,91,2,134,0)=""
^XMB(3.9,91,2,135,0)="""BLD"",4744,""KRN"",""B"",8994,8994)"
^XMB(3.9,91,2,136,0)=""
^XMB(3.9,91,2,137,0)="""BLD"",4744,""QUES"",0)"
^XMB(3.9,91,2,138,0)="^9.62^^"
^XMB(3.9,91,2,139,0)="""BLD"",4744,""REQB"",0)"
^XMB(3.9,91,2,140,0)="^9.611^1^1"
^XMB(3.9,91,2,141,0)="""BLD"",4744,""REQB"",1,0)"
^XMB(3.9,91,2,142,0)="XU*8.0*343^1"
^XMB(3.9,91,2,143,0)="""BLD"",4744,""REQB"",""B"",""XU*8.0*343"",1)"
^XMB(3.9,91,2,144,0)=""
^XMB(3.9,91,2,145,0)="""KRN"",19,7228,-1)"
^XMB(3.9,91,2,146,0)="2^1"
^XMB(3.9,91,2,147,0)="""KRN"",19,7228,0)"
^XMB(3.9,91,2,148,0)="PRPF SUPERVISOR^Supervisor Menu^^M^.5^PRPF SUPERVISOR^^^^^^466"
^XMB(3.9,91,2,149,0)="""KRN"",19,7228,10,0)"
^XMB(3.9,91,2,150,0)="^19.01IP^13^13"
^XMB(3.9,91,2,151,0)="""KRN"",19,7228,10,12,0)"
^XMB(3.9,91,2,152,0)="11754^12"
^XMB(3.9,91,2,153,0)="""KRN"",19,7228,10,12,""^"")"
^XMB(3.9,91,2,154,0)="PRPF DATA DIAGNOSTIC REPORT"
^XMB(3.9,91,2,155,0)="""KRN"",19,7228,""U"")"
^XMB(3.9,91,2,156,0)="SUPERVISOR MENU"
^XMB(3.9,91,2,157,0)="""KRN"",19,11754,-1)"
^XMB(3.9,91,2,158,0)="0^2"
^XMB(3.9,91,2,159,0)="""KRN"",19,11754,0)"
^XMB(3.9,91,2,160,0)="PRPF DATA DIAGNOSTIC REPORT^Database Diagnostic Report^^R^^PRPF SUPERVISOR^^^^^^INTEGRATED PATIENT FUNDS"
^XMB(3.9,91,2,161,0)="""KRN"",19,11754,1,0)"
^XMB(3.9,91,2,162,0)="^^3^3^3050804^"
^XMB(3.9,91,2,163,0)="""KRN"",19,11754,1,1,0)"
^XMB(3.9,91,2,164,0)="This routine is for use with the Patient Funds re-hosting project."
^XMB(3.9,91,2,165,0)="""KRN"",19,11754,1,2,0)"
^XMB(3.9,91,2,166,0)="This routine will scan the PRPF file range for specific errors and"
^XMB(3.9,91,2,167,0)="""KRN"",19,11754,1,3,0)"
^XMB(3.9,91,2,168,0)="print a summary report with optional detail report."
^XMB(3.9,91,2,169,0)="""KRN"",19,11754,25)"
^XMB(3.9,91,2,170,0)="LEG^PRPFDR2"
^XMB(3.9,91,2,171,0)="""KRN"",19,11754,""U"")"
^XMB(3.9,91,2,172,0)="DATABASE DIAGNOSTIC REPORT"
^XMB(3.9,91,2,173,0)="""MBREQ"")"
^XMB(3.9,91,2,174,0)="0"
^XMB(3.9,91,2,175,0)="""ORD"",18,19)"
^XMB(3.9,91,2,176,0)="19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA"
^XMB(3.9,91,2,177,0)="""ORD"",18,19,0)"
^XMB(3.9,91,2,178,0)="OPTION"
^XMB(3.9,91,2,179,0)="""PKG"",466,-1)"
^XMB(3.9,91,2,180,0)="1^1"
^XMB(3.9,91,2,181,0)="""PKG"",466,0)"
^XMB(3.9,91,2,182,0)="INTEGRATED PATIENT FUNDS^PRPF^PATIENT FUNDS.  INTEGRATED WITH PATIENT FILE"
^XMB(3.9,91,2,183,0)="""PKG"",466,20,0)"
^XMB(3.9,91,2,184,0)="^9.402P^^"
^XMB(3.9,91,2,185,0)="""PKG"",466,22,0)"
^XMB(3.9,91,2,186,0)="^9.49I^1^1"
^XMB(3.9,91,2,187,0)="""PKG"",466,22,1,0)"
^XMB(3.9,91,2,188,0)="3.0^2970224"
^XMB(3.9,91,2,189,0)="""PKG"",466,22,1,""PAH"",1,0)"
^XMB(3.9,91,2,190,0)="15^3060227^100839"
^XMB(3.9,91,2,191,0)="""PKG"",466,22,1,""PAH"",1,1,0)"
^XMB(3.9,91,2,192,0)="^^1^1^3060227"
^XMB(3.9,91,2,193,0)="""PKG"",466,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,91,2,194,0)="Patient Funds Diagnostic Patch"
^XMB(3.9,91,2,195,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,91,2,196,0)="Y"
^XMB(3.9,91,2,197,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,91,2,198,0)="^D REP^XPDH"
^XMB(3.9,91,2,199,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,91,2,200,0)="Shall I write over your |FLAG| File"
^XMB(3.9,91,2,201,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,91,2,202,0)="YES"
^XMB(3.9,91,2,203,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,91,2,204,0)="D XPF1^XPDIQ"
^XMB(3.9,91,2,205,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,91,2,206,0)="Y"
^XMB(3.9,91,2,207,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,91,2,208,0)="^D DTA^XPDH"
^XMB(3.9,91,2,209,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,91,2,210,0)="Want my data |FLAG| yours"
^XMB(3.9,91,2,211,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,91,2,212,0)="YES"
^XMB(3.9,91,2,213,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,91,2,214,0)="D XPF2^XPDIQ"
^XMB(3.9,91,2,215,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,91,2,216,0)="YO"
^XMB(3.9,91,2,217,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,91,2,218,0)="^D INHIBIT^XPDH"
^XMB(3.9,91,2,219,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,91,2,220,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,91,2,221,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,91,2,222,0)="YES"
^XMB(3.9,91,2,223,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,91,2,224,0)="D XPI1^XPDIQ"
^XMB(3.9,91,2,225,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,91,2,226,0)="PO^VA(200,:EM"
^XMB(3.9,91,2,227,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,91,2,228,0)="^D MG^XPDH"
^XMB(3.9,91,2,229,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,91,2,230,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,91,2,231,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,91,2,232,0)=""
^XMB(3.9,91,2,233,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,91,2,234,0)="D XPM1^XPDIQ"
^XMB(3.9,91,2,235,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,91,2,236,0)="Y"
^XMB(3.9,91,2,237,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,91,2,238,0)="^D MENU^XPDH"
^XMB(3.9,91,2,239,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,91,2,240,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,91,2,241,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,91,2,242,0)="YES"
^XMB(3.9,91,2,243,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,91,2,244,0)="D XPO1^XPDIQ"
^XMB(3.9,91,2,245,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,91,2,246,0)="Y"
^XMB(3.9,91,2,247,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,91,2,248,0)="^D OPT^XPDH"
^XMB(3.9,91,2,249,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,91,2,250,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,91,2,251,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,91,2,252,0)="YES"
^XMB(3.9,91,2,253,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,91,2,254,0)="D XPZ1^XPDIQ"
^XMB(3.9,91,2,255,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,91,2,256,0)="Y"
^XMB(3.9,91,2,257,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,91,2,258,0)="^D RTN^XPDH"
^XMB(3.9,91,2,259,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,91,2,260,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,91,2,261,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,91,2,262,0)="NO"
^XMB(3.9,91,2,263,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,91,2,264,0)="D XPZ2^XPDIQ"
^XMB(3.9,91,2,265,0)="""RTN"")"
^XMB(3.9,91,2,266,0)="6"
^XMB(3.9,91,2,267,0)="""RTN"",""PRPFDR1"")"
^XMB(3.9,91,2,268,0)="0^1^B73189530"
^XMB(3.9,91,2,269,0)="""RTN"",""PRPFDR1"",1,0)"
^XMB(3.9,91,2,270,0)="PRPFDR1 ;BAYPINES/MJE  VPFS DATA MIGRATION ROUTINE 1 ;05/15/03"
^XMB(3.9,91,2,271,0)="""RTN"",""PRPFDR1"",2,0)"
^XMB(3.9,91,2,272,0)=" ;;3.0;PATIENT FUNDS DIAG V5.9;**15**;JUNE 1, 1989"
^XMB(3.9,91,2,273,0)="""RTN"",""PRPFDR1"",3,0)"
^XMB(3.9,91,2,274,0)=" ;BAD ENTRY POINT"
^XMB(3.9,91,2,275,0)="""RTN"",""PRPFDR1"",4,0)"
^XMB(3.9,91,2,276,0)=" Q"
^XMB(3.9,91,2,277,0)="""RTN"",""PRPFDR1"",5,0)"
^XMB(3.9,91,2,278,0)="NODE4 S PRPFHLD2=0"
^XMB(3.9,91,2,279,0)="""RTN"",""PRPFDR1"",6,0)"
^XMB(3.9,91,2,280,0)=" F  S PRPFHLD2=$O(^PRPF(470,PRPFHLD1,4,PRPFHLD2)) Q:'PRPFHLD2  D"
^XMB(3.9,91,2,281,0)="""RTN"",""PRPFDR1"",7,0)"
^XMB(3.9,91,2,282,0)=" .S PFNODE4=^PRPF(470,PRPFHLD1,4,PRPFHLD2,0)"
^XMB(3.9,91,2,283,0)="""RTN"",""PRPFDR1"",8,0)"
^XMB(3.9,91,2,284,0)=" .I '$D(^PRPF(470.1,+$P(PFNODE4,""^"",1),0)) D"
^XMB(3.9,91,2,285,0)="""RTN"",""PRPFDR1"",9,0)"
^XMB(3.9,91,2,286,0)=" ..S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,47,PFNAME_""_""_PRPFHLD1_""_""_""DefTrans#""_PRPFHLD2)=""TRANSACTION REC^Transaction record missing, blank or ID invalid (Transaction missing)^""_$P(PFNODE4,""^"",1)"
^XMB(3.9,91,2,287,0)="""RTN"",""PRPFDR1"",10,0)"
^XMB(3.9,91,2,288,0)=" ..S CNTERR(47)=CNTERR(47)+1"
^XMB(3.9,91,2,289,0)="""RTN"",""PRPFDR1"",11,0)"
^XMB(3.9,91,2,290,0)=" ..S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,291,0)="""RTN"",""PRPFDR1"",12,0)"
^XMB(3.9,91,2,292,0)=" .I $D(^PRPF(470.1,+$P(PFNODE4,""^"",1),0)) D"
^XMB(3.9,91,2,293,0)="""RTN"",""PRPFDR1"",13,0)"
^XMB(3.9,91,2,294,0)=" ..S PFNODE4D=^PRPF(470.1,$P(PFNODE4,""^"",1),0)"
^XMB(3.9,91,2,295,0)="""RTN"",""PRPFDR1"",14,0)"
^XMB(3.9,91,2,296,0)=" ..I PFNODE4D="""" D"
^XMB(3.9,91,2,297,0)="""RTN"",""PRPFDR1"",15,0)"
^XMB(3.9,91,2,298,0)=" ...S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,47,PFNAME_""_""_PRPFHLD1_""_""_""DefTrans#""_PRPFHLD2)=""TRANSACTION REC^Transaction record missing, blank or ID invalid (Record blank)^""_$P(PFNODE4,""^"",1)"
^XMB(3.9,91,2,299,0)="""RTN"",""PRPFDR1"",16,0)"
^XMB(3.9,91,2,300,0)=" ...S CNTERR(47)=CNTERR(47)+1"
^XMB(3.9,91,2,301,0)="""RTN"",""PRPFDR1"",17,0)"
^XMB(3.9,91,2,302,0)=" ...S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,303,0)="""RTN"",""PRPFDR1"",18,0)"
^XMB(3.9,91,2,304,0)=" ..I PFNODE4D'="""" D"
^XMB(3.9,91,2,305,0)="""RTN"",""PRPFDR1"",19,0)"
^XMB(3.9,91,2,306,0)=" ...I +($P(PFNODE4D,""^"",1))'=+$P(PFNODE4,""^"",1) D"
^XMB(3.9,91,2,307,0)="""RTN"",""PRPFDR1"",20,0)"
^XMB(3.9,91,2,308,0)=" ....S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,47,PFNAME_""_""_PRPFHLD1_""_""_""DefTrans#""_PRPFHLD2)=""TRANSACTION REC^Transaction record missing, blank or ID invalid (Transaction ID does not match IEN)^""_$P(PFNODE4,""^"",1)"
^XMB(3.9,91,2,309,0)="""RTN"",""PRPFDR1"",21,0)"
^XMB(3.9,91,2,310,0)=" ....S CNTERR(47)=CNTERR(47)+1"
^XMB(3.9,91,2,311,0)="""RTN"",""PRPFDR1"",22,0)"
^XMB(3.9,91,2,312,0)=" ....S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,313,0)="""RTN"",""PRPFDR1"",23,0)"
^XMB(3.9,91,2,314,0)=" ...I $P(PFNODE4D,""^"",2)'=PRPFHLD1 D"
^XMB(3.9,91,2,315,0)="""RTN"",""PRPFDR1"",24,0)"
^XMB(3.9,91,2,316,0)=" ....S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,48,PFNAME_""_""_PRPFHLD1_""_""_""DefTrans#""_PRPFHLD2)=""PATIENT NAME^Patient name does not match transaction^""_$P(PFNODE4D,""^"",2)"
^XMB(3.9,91,2,317,0)="""RTN"",""PRPFDR1"",25,0)"
^XMB(3.9,91,2,318,0)=" ....S CNTERR(48)=CNTERR(48)+1"
^XMB(3.9,91,2,319,0)="""RTN"",""PRPFDR1"",26,0)"
^XMB(3.9,91,2,320,0)=" ....S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,321,0)="""RTN"",""PRPFDR1"",27,0)"
^XMB(3.9,91,2,322,0)=" ...S PFNODE4X=$P(PFNODE4D,""^"",3)"
^XMB(3.9,91,2,323,0)="""RTN"",""PRPFDR1"",28,0)"
^XMB(3.9,91,2,324,0)=" ...I +PFNODE4X'=PFNODE4X!(PFNODE4X>99999)!(PFNODE4X<1) D"
^XMB(3.9,91,2,325,0)="""RTN"",""PRPFDR1"",29,0)"
^XMB(3.9,91,2,326,0)=" ....S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,49,PFNAME_""_""_PRPFHLD1_""_""_""DefTrans#""_PRPFHLD2)=""PATIENT TRANSACTION #^Patient transaction # invalid^""_$P(PFNODE4D,""^"",3)"
^XMB(3.9,91,2,327,0)="""RTN"",""PRPFDR1"",30,0)"
^XMB(3.9,91,2,328,0)=" ....S CNTERR(49)=CNTERR(49)+1"
^XMB(3.9,91,2,329,0)="""RTN"",""PRPFDR1"",31,0)"
^XMB(3.9,91,2,330,0)=" ....S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,331,0)="""RTN"",""PRPFDR1"",32,0)"
^XMB(3.9,91,2,332,0)=" ...S PFNODE4X=$P(PFNODE4D,""^"",4)"
^XMB(3.9,91,2,333,0)="""RTN"",""PRPFDR1"",33,0)"
^XMB(3.9,91,2,334,0)=" ...I PFNODE4X=""""!(+PFNODE4X'=PFNODE4X)&(PFNODE4X'?.N1""."".N)!(PFNODE4X>99999)!(PFNODE4X<.01) D"
^XMB(3.9,91,2,335,0)="""RTN"",""PRPFDR1"",34,0)"
^XMB(3.9,91,2,336,0)=" ....S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,50,PFNAME_""_""_PRPFHLD1_""_""_""DefTrans#""_PRPFHLD2)=""AMOUNT^Deferred amount invalid^""_$P(PFNODE4D,""^"",4)"
^XMB(3.9,91,2,337,0)="""RTN"",""PRPFDR1"",35,0)"
^XMB(3.9,91,2,338,0)=" ....S CNTERR(50)=CNTERR(50)+1"
^XMB(3.9,91,2,339,0)="""RTN"",""PRPFDR1"",36,0)"
^XMB(3.9,91,2,340,0)=" ....S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,341,0)="""RTN"",""PRPFDR1"",37,0)"
^XMB(3.9,91,2,342,0)=" ...S PFTDT=$P(PFNODE4D,""^"",5)"
^XMB(3.9,91,2,343,0)="""RTN"",""PRPFDR1"",38,0)"
^XMB(3.9,91,2,344,0)=" ...S PRPFBADD="""""
^XMB(3.9,91,2,345,0)="""RTN"",""PRPFDR1"",39,0)"
^XMB(3.9,91,2,346,0)=" ...D DT^DILF(""X"",PFTDT,.PRPFBADD)"
^XMB(3.9,91,2,347,0)="""RTN"",""PRPFDR1"",40,0)"
^XMB(3.9,91,2,348,0)=" ...I $L(+PFTDT)'=7!(PRPFBADD=-1)!(PRPFBADD="""") D"
^XMB(3.9,91,2,349,0)="""RTN"",""PRPFDR1"",41,0)"
^XMB(3.9,91,2,350,0)=" ....S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,51,PFNAME_""_""_PRPFHLD1_""_""_""DefTrans#""_PRPFHLD2)=""TRANSACTION DATE^Transaction date Invalid^""_$P(PFNODE4D,""^"",5)"
^XMB(3.9,91,2,351,0)="""RTN"",""PRPFDR1"",42,0)"
^XMB(3.9,91,2,352,0)=" ....S CNTERR(51)=CNTERR(51)+1"
^XMB(3.9,91,2,353,0)="""RTN"",""PRPFDR1"",43,0)"
^XMB(3.9,91,2,354,0)=" ....S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,355,0)="""RTN"",""PRPFDR1"",44,0)"
^XMB(3.9,91,2,356,0)=" ...S PFTDTE=$P(PFNODE4D,""^"",6)"
^XMB(3.9,91,2,357,0)="""RTN"",""PRPFDR1"",45,0)"
^XMB(3.9,91,2,358,0)=" ...S PRPFBADD="""""
^XMB(3.9,91,2,359,0)="""RTN"",""PRPFDR1"",46,0)"
^XMB(3.9,91,2,360,0)=" ...D DT^DILF(""X"",PFTDTE,.PRPFBADD)"
^XMB(3.9,91,2,361,0)="""RTN"",""PRPFDR1"",47,0)"
^XMB(3.9,91,2,362,0)=" ...I $L(+PFTDTE)'=7!(PRPFBADD=-1)!(PRPFBADD="""") D"
^XMB(3.9,91,2,363,0)="""RTN"",""PRPFDR1"",48,0)"
^XMB(3.9,91,2,364,0)=" ....S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,52,PFNAME_""_""_PRPFHLD1_""_""_""DefTrans#""_PRPFHLD2)=""DATE TRANSACTION ENTERED^Date transaction entered Invalid^""_$P(PFNODE4D,""^"",6)"
^XMB(3.9,91,2,365,0)="""RTN"",""PRPFDR1"",49,0)"
^XMB(3.9,91,2,366,0)=" ....S CNTERR(52)=CNTERR(52)+1"
^XMB(3.9,91,2,367,0)="""RTN"",""PRPFDR1"",50,0)"
^XMB(3.9,91,2,368,0)=" ....S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,369,0)="""RTN"",""PRPFDR1"",51,0)"
^XMB(3.9,91,2,370,0)=" ...S PFNODE4X=$P(PFNODE4D,""^"",7)"
^XMB(3.9,91,2,371,0)="""RTN"",""PRPFDR1"",52,0)"
^XMB(3.9,91,2,372,0)=" ...I $L(PFNODE4X)>10!($L(PFNODE4X)<1) D"
^XMB(3.9,91,2,373,0)="""RTN"",""PRPFDR1"",53,0)"
^XMB(3.9,91,2,374,0)=" ....S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,53,PFNAME_""_""_PRPFHLD1_""_""_""DefTrans#""_PRPFHLD2)=""REFERENCE^Reference Invalid < 1 or > 10 in length^""_$P(PFNODE4D,""^"",7)"
^XMB(3.9,91,2,375,0)="""RTN"",""PRPFDR1"",54,0)"
^XMB(3.9,91,2,376,0)=" ....S CNTERR(53)=CNTERR(53)+1"
^XMB(3.9,91,2,377,0)="""RTN"",""PRPFDR1"",55,0)"
^XMB(3.9,91,2,378,0)=" ....S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,379,0)="""RTN"",""PRPFDR1"",56,0)"
^XMB(3.9,91,2,380,0)=" ...S PFNODE4X=$P(PFNODE4D,""^"",8)"
^XMB(3.9,91,2,381,0)="""RTN"",""PRPFDR1"",57,0)"
^XMB(3.9,91,2,382,0)=" ...I PFNODE4X'[""D""&(PFNODE4X'[""W"") D"
^XMB(3.9,91,2,383,0)="""RTN"",""PRPFDR1"",58,0)"
^XMB(3.9,91,2,384,0)=" ....S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,54,PFNAME_""_""_PRPFHLD1_""_""_""DefTrans#""_PRPFHLD2)=""DEPOSIT/WITHDRAWAL^Deposit/Withdrawal status Invalid^""_$P(PFNODE4D,""^"",8)"
^XMB(3.9,91,2,385,0)="""RTN"",""PRPFDR1"",59,0)"
^XMB(3.9,91,2,386,0)=" ....S CNTERR(54)=CNTERR(54)+1"
^XMB(3.9,91,2,387,0)="""RTN"",""PRPFDR1"",60,0)"
^XMB(3.9,91,2,388,0)=" ....S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,389,0)="""RTN"",""PRPFDR1"",61,0)"
^XMB(3.9,91,2,390,0)=" ...S PFNODE4X=$P(PFNODE4D,""^"",9)"
^XMB(3.9,91,2,391,0)="""RTN"",""PRPFDR1"",62,0)"
^XMB(3.9,91,2,392,0)=" ...I PFNODE4X'[""1""&(PFNODE4X'[""2"")&(PFNODE4X'[""3"") D"
^XMB(3.9,91,2,393,0)="""RTN"",""PRPFDR1"",63,0)"
^XMB(3.9,91,2,394,0)=" ....S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,55,PFNAME_""_""_PRPFHLD1_""_""_""DefTrans#""_PRPFHLD2)=""CASH/CHECK/OTHER^Cash/Check/Other status Invalid^""_$P(PFNODE4D,""^"",9)"
^XMB(3.9,91,2,395,0)="""RTN"",""PRPFDR1"",64,0)"
^XMB(3.9,91,2,396,0)=" ....S CNTERR(55)=CNTERR(55)+1"
^XMB(3.9,91,2,397,0)="""RTN"",""PRPFDR1"",65,0)"
^XMB(3.9,91,2,398,0)=" ....S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,399,0)="""RTN"",""PRPFDR1"",66,0)"
^XMB(3.9,91,2,400,0)=" ...S PFNODE4X=$P(PFNODE4D,""^"",10)"
^XMB(3.9,91,2,401,0)="""RTN"",""PRPFDR1"",67,0)"
^XMB(3.9,91,2,402,0)=" ...I PFNODE4X'[""P""&(PFNODE4X'[""G"")&(PFNODE4X'=""B"") D"
^XMB(3.9,91,2,403,0)="""RTN"",""PRPFDR1"",68,0)"
^XMB(3.9,91,2,404,0)=" ....S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,56,PFNAME_""_""_PRPFHLD1_""_""_""DefTrans#""_PRPFHLD2)=""SOURCE^Transaction source invalid^""_$P(PFNODE4D,""^"",10)"
^XMB(3.9,91,2,405,0)="""RTN"",""PRPFDR1"",69,0)"
^XMB(3.9,91,2,406,0)=" ....S CNTERR(56)=CNTERR(56)+1"
^XMB(3.9,91,2,407,0)="""RTN"",""PRPFDR1"",70,0)"
^XMB(3.9,91,2,408,0)=" ....S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,409,0)="""RTN"",""PRPFDR1"",71,0)"
^XMB(3.9,91,2,410,0)=" ...I $P(PFNODE4D,""^"",11)="""" D"
^XMB(3.9,91,2,411,0)="""RTN"",""PRPFDR1"",72,0)"
^XMB(3.9,91,2,412,0)=" ....S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,57,PFNAME_""_""_PRPFHLD1_""_""_""DefTrans#""_PRPFHLD2)=""FORM^Form does not match^""_$P(PFNODE4D,""^"",11)"
^XMB(3.9,91,2,413,0)="""RTN"",""PRPFDR1"",73,0)"
^XMB(3.9,91,2,414,0)=" ....S CNTERR(57)=CNTERR(57)+1"
^XMB(3.9,91,2,415,0)="""RTN"",""PRPFDR1"",74,0)"
^XMB(3.9,91,2,416,0)=" ....S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,417,0)="""RTN"",""PRPFDR1"",75,0)"
^XMB(3.9,91,2,418,0)=" ...I $P(PFNODE4D,""^"",11)'="""" D"
^XMB(3.9,91,2,419,0)="""RTN"",""PRPFDR1"",76,0)"
^XMB(3.9,91,2,420,0)=" ....I '$D(^PRPF(470.2,$P(PFNODE4D,""^"",11),0)) D"
^XMB(3.9,91,2,421,0)="""RTN"",""PRPFDR1"",77,0)"
^XMB(3.9,91,2,422,0)=" .....S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,57,PFNAME_""_""_PRPFHLD1_""_""_""DefTrans#""_PRPFHLD2)=""FORM^Form does not match^""_$P(PFNODE4D,""^"",11)"
^XMB(3.9,91,2,423,0)="""RTN"",""PRPFDR1"",78,0)"
^XMB(3.9,91,2,424,0)=" .....S CNTERR(57)=CNTERR(57)+1"
^XMB(3.9,91,2,425,0)="""RTN"",""PRPFDR1"",79,0)"
^XMB(3.9,91,2,426,0)=" .....S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,427,0)="""RTN"",""PRPFDR1"",80,0)"
^XMB(3.9,91,2,428,0)=" ...S PFNODE4X=$P(PFNODE4D,""^"",12)"
^XMB(3.9,91,2,429,0)="""RTN"",""PRPFDR1"",81,0)"
^XMB(3.9,91,2,430,0)=" ...I PFNODE4X'="""" I +PFNODE4X'=PFNODE4X&(PFNODE4X'?.N1""."".N)!(PFNODE4X>99999)!(PFNODE4X<.01) D"
^XMB(3.9,91,2,431,0)="""RTN"",""PRPFDR1"",82,0)"
^XMB(3.9,91,2,432,0)=" ....S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,58,PFNAME_""_""_PRPFHLD1_""_""_""DefTrans#""_PRPFHLD2)=""PRIVATE SOURCE AMT^Pvt src amt invalid or < 0 or > 99999^""_$P(PFNODE4D,""^"",12)"
^XMB(3.9,91,2,433,0)="""RTN"",""PRPFDR1"",83,0)"
^XMB(3.9,91,2,434,0)=" ....S CNTERR(58)=CNTERR(58)+1"
^XMB(3.9,91,2,435,0)="""RTN"",""PRPFDR1"",84,0)"
^XMB(3.9,91,2,436,0)=" ....S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,437,0)="""RTN"",""PRPFDR1"",85,0)"
^XMB(3.9,91,2,438,0)=" ...S PFNODE4X=$P(PFNODE4D,""^"",13)"
^XMB(3.9,91,2,439,0)="""RTN"",""PRPFDR1"",86,0)"
^XMB(3.9,91,2,440,0)=" ...I PFNODE4X'="""" I +PFNODE4X'=PFNODE4X&(PFNODE4X'?.N1""."".N)!(PFNODE4X>99999)!(PFNODE4X<.01) D"
^XMB(3.9,91,2,441,0)="""RTN"",""PRPFDR1"",87,0)"
^XMB(3.9,91,2,442,0)=" ....S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,59,PFNAME_""_""_PRPFHLD1_""_""_""DefTrans#""_PRPFHLD2)=""GRATUITOUS AMOUNT^Gratuitous amt invalid or < 0 or > 99999^""_$P(PFNODE4D,""^"",13)"
^XMB(3.9,91,2,443,0)="""RTN"",""PRPFDR1"",88,0)"
^XMB(3.9,91,2,444,0)=" ....S CNTERR(59)=CNTERR(59)+1"
^XMB(3.9,91,2,445,0)="""RTN"",""PRPFDR1"",89,0)"
^XMB(3.9,91,2,446,0)=" ....S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,447,0)="""RTN"",""PRPFDR1"",90,0)"
^XMB(3.9,91,2,448,0)=" ...S PFNODE4X=$P(PFNODE4D,""^"",14)"
^XMB(3.9,91,2,449,0)="""RTN"",""PRPFDR1"",91,0)"
^XMB(3.9,91,2,450,0)=" ...I PFNODE4X'="""" D"
^XMB(3.9,91,2,451,0)="""RTN"",""PRPFDR1"",92,0)"
^XMB(3.9,91,2,452,0)=" ....I '$D(^VA(200,PFNODE4X,0))!($L($P($G(^VA(200,PFNODE4X,0)),""^"",1))<3!($L($P($G(^VA(200,PFNODE4X,0)),""^"",1))>35)) D"
^XMB(3.9,91,2,453,0)="""RTN"",""PRPFDR1"",93,0)"
^XMB(3.9,91,2,454,0)=" .....S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,60,PFNAME_""_""_PRPFHLD1_""_""_""DefTrans#""_PRPFHLD2)=""PATIENT FUNDS CLERK^Pfunds clerk invalid^""_$P($G(^VA(200,PFNODE4X,0)),""^"",1)"
^XMB(3.9,91,2,455,0)="""RTN"",""PRPFDR1"",94,0)"
^XMB(3.9,91,2,456,0)=" .....S CNTERR(60)=CNTERR(60)+1"
^XMB(3.9,91,2,457,0)="""RTN"",""PRPFDR1"",95,0)"
^XMB(3.9,91,2,458,0)=" .....S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,459,0)="""RTN"",""PRPFDR1"",96,0)"
^XMB(3.9,91,2,460,0)=" ...I PFNODE4X="""" D"
^XMB(3.9,91,2,461,0)="""RTN"",""PRPFDR1"",97,0)"
^XMB(3.9,91,2,462,0)=" ....S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,60,PFNAME_""_""_PRPFHLD1_""_""_""DefTrans#""_PRPFHLD2)=""PATIENT FUNDS CLERK^Pfunds clerk invalid^""_"""""
^XMB(3.9,91,2,463,0)="""RTN"",""PRPFDR1"",98,0)"
^XMB(3.9,91,2,464,0)=" ....S CNTERR(60)=CNTERR(60)+1"
^XMB(3.9,91,2,465,0)="""RTN"",""PRPFDR1"",99,0)"
^XMB(3.9,91,2,466,0)=" ....S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,467,0)="""RTN"",""PRPFDR1"",100,0)"
^XMB(3.9,91,2,468,0)=" .S PRPFDEFR=PRPFDEFR+1"
^XMB(3.9,91,2,469,0)="""RTN"",""PRPFDR1"",101,0)"
^XMB(3.9,91,2,470,0)=" Q"
^XMB(3.9,91,2,471,0)="""RTN"",""PRPFDR1"",102,0)"
^XMB(3.9,91,2,472,0)="NODE5 S (PRPFHLD2,PRPFHLD3,PRPFHLD4)=0"
^XMB(3.9,91,2,473,0)="""RTN"",""PRPFDR1"",103,0)"
^XMB(3.9,91,2,474,0)=" F  S PRPFHLD2=$O(^PRPF(470,PRPFHLD1,5,PRPFHLD2)) Q:'PRPFHLD2  D"
^XMB(3.9,91,2,475,0)="""RTN"",""PRPFDR1"",104,0)"
^XMB(3.9,91,2,476,0)=" .S PFNODE5=$G(^PRPF(470,PRPFHLD1,5,PRPFHLD2,0))"
^XMB(3.9,91,2,477,0)="""RTN"",""PRPFDR1"",105,0)"
^XMB(3.9,91,2,478,0)=" .S PFSUSDT=$P(PFNODE5,""^"",1)"
^XMB(3.9,91,2,479,0)="""RTN"",""PRPFDR1"",106,0)"
^XMB(3.9,91,2,480,0)=" .I PFSUSDT="""" D"
^XMB(3.9,91,2,481,0)="""RTN"",""PRPFDR1"",107,0)"
^XMB(3.9,91,2,482,0)=" ..S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,43.1,PFNAME_""_""_PRPFHLD1_""_""_""SuspenseDate#""_PRPFHLD2)=""SUSPENSE DATE^Suspense date is blank^""_PFSUSDT"
^XMB(3.9,91,2,483,0)="""RTN"",""PRPFDR1"",108,0)"
^XMB(3.9,91,2,484,0)=" ..S CNTERR(43)=CNTERR(43)+1"
^XMB(3.9,91,2,485,0)="""RTN"",""PRPFDR1"",109,0)"
^XMB(3.9,91,2,486,0)=" ..S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,487,0)="""RTN"",""PRPFDR1"",110,0)"
^XMB(3.9,91,2,488,0)=" .ELSE  D"
^XMB(3.9,91,2,489,0)="""RTN"",""PRPFDR1"",111,0)"
^XMB(3.9,91,2,490,0)=" ..K PRPFBADD"
^XMB(3.9,91,2,491,0)="""RTN"",""PRPFDR1"",112,0)"
^XMB(3.9,91,2,492,0)=" ..D DT^DILF(""X"",PFSUSDT,.PRPFBADD)"
^XMB(3.9,91,2,493,0)="""RTN"",""PRPFDR1"",113,0)"
^XMB(3.9,91,2,494,0)=" ..I $L(+PFSUSDT)'=7!(PRPFBADD=-1) D"
^XMB(3.9,91,2,495,0)="""RTN"",""PRPFDR1"",114,0)"
^XMB(3.9,91,2,496,0)=" ...S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,43.2,PFNAME_""_""_PRPFHLD1_""_""_""SuspenseDate#""_PRPFHLD2)=""SUSPENSE DATE^Suspense date is not valid^""_PFSUSDT"
^XMB(3.9,91,2,497,0)="""RTN"",""PRPFDR1"",115,0)"
^XMB(3.9,91,2,498,0)=" ...S CNTERR(43)=CNTERR(43)+1"
^XMB(3.9,91,2,499,0)="""RTN"",""PRPFDR1"",116,0)"
^XMB(3.9,91,2,500,0)=" ...S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,501,0)="""RTN"",""PRPFDR1"",117,0)"
^XMB(3.9,91,2,502,0)=" .F  S PRPFHLD3=$O(^PRPF(470,PRPFHLD1,5,PRPFHLD2,1,PRPFHLD3)) Q:'PRPFHLD3  D"
^XMB(3.9,91,2,503,0)="""RTN"",""PRPFDR1"",118,0)"
^XMB(3.9,91,2,504,0)=" ..S PFNODE51=$G(^PRPF(470,PRPFHLD1,5,PRPFHLD2,1,PRPFHLD3,0))"
^XMB(3.9,91,2,505,0)="""RTN"",""PRPFDR1"",119,0)"
^XMB(3.9,91,2,506,0)=" ..S PFSUSID=PFNODE51"
^XMB(3.9,91,2,507,0)="""RTN"",""PRPFDR1"",120,0)"
^XMB(3.9,91,2,508,0)=" ..I PFSUSID="""" D"
^XMB(3.9,91,2,509,0)="""RTN"",""PRPFDR1"",121,0)"
^XMB(3.9,91,2,510,0)=" ...S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,44.1,PFNAME_""_""_PRPFHLD1_""_""_""SuspenseDate#""_PRPFHLD2_""_Item#""_PRPFHLD3)=""SUSPENSE ID^Suspense ID is blank^""_PFSUSID"
^XMB(3.9,91,2,511,0)="""RTN"",""PRPFDR1"",122,0)"
^XMB(3.9,91,2,512,0)=" ...S CNTERR(44)=CNTERR(44)+1"
^XMB(3.9,91,2,513,0)="""RTN"",""PRPFDR1"",123,0)"
^XMB(3.9,91,2,514,0)=" ...S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,515,0)="""RTN"",""PRPFDR1"",124,0)"
^XMB(3.9,91,2,516,0)=" ..I PFSUSID'="""" I $L(PFSUSID)<1!($L(PFSUSID)>40) D"
^XMB(3.9,91,2,517,0)="""RTN"",""PRPFDR1"",125,0)"
^XMB(3.9,91,2,518,0)=" ...S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,44.2,PFNAME_""_""_PRPFHLD1_""_""_""SuspenseDate#""_PRPFHLD2_""_Item#""_PRPFHLD3)=""SUSPENSE ID^Suspense ID < 1 or > 40 characters^""_PFSUSID"
^XMB(3.9,91,2,519,0)="""RTN"",""PRPFDR1"",126,0)"
^XMB(3.9,91,2,520,0)=" ...S CNTERR(44)=CNTERR(44)+1"
^XMB(3.9,91,2,521,0)="""RTN"",""PRPFDR1"",127,0)"
^XMB(3.9,91,2,522,0)=" ...S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,523,0)="""RTN"",""PRPFDR1"",128,0)"
^XMB(3.9,91,2,524,0)=" ..S PFSUSTXT="""""
^XMB(3.9,91,2,525,0)="""RTN"",""PRPFDR1"",129,0)"
^XMB(3.9,91,2,526,0)=" ..F  S PRPFHLD4=$O(^PRPF(470,PRPFHLD1,5,PRPFHLD2,1,PRPFHLD3,1,PRPFHLD4)) Q:'PRPFHLD4  D"
^XMB(3.9,91,2,527,0)="""RTN"",""PRPFDR1"",130,0)"
^XMB(3.9,91,2,528,0)=" ...S PFNODE52=$G(^PRPF(470,PRPFHLD1,5,PRPFHLD2,1,PRPFHLD3,1,PRPFHLD4,0))"
^XMB(3.9,91,2,529,0)="""RTN"",""PRPFDR1"",131,0)"
^XMB(3.9,91,2,530,0)=" ...S PFSUSTXT=PFSUSTXT_PFNODE52"
^XMB(3.9,91,2,531,0)="""RTN"",""PRPFDR1"",132,0)"
^XMB(3.9,91,2,532,0)=" ..I PFSUSTXT="""" D"
^XMB(3.9,91,2,533,0)="""RTN"",""PRPFDR1"",133,0)"
^XMB(3.9,91,2,534,0)=" ...S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,45.1,PFNAME_""_""_PRPFHLD1_""_""_""SuspenseDate#""_PRPFHLD2_""_Item#""_PRPFHLD3)=""SUSPENSE DESC^Suspense description is blank^""_PFSUSTXT"
^XMB(3.9,91,2,535,0)="""RTN"",""PRPFDR1"",134,0)"
^XMB(3.9,91,2,536,0)=" ...S CNTERR(45)=CNTERR(45)+1"
^XMB(3.9,91,2,537,0)="""RTN"",""PRPFDR1"",135,0)"
^XMB(3.9,91,2,538,0)=" ...S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,539,0)="""RTN"",""PRPFDR1"",136,0)"
^XMB(3.9,91,2,540,0)=" ..I PFSUSTXT'="""" I $L(PFSUSTXT)<1!($L(PFSUSTXT)>255) D"
^XMB(3.9,91,2,541,0)="""RTN"",""PRPFDR1"",137,0)"
^XMB(3.9,91,2,542,0)=" ...S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,45.2,PFNAME_""_""_PRPFHLD1_""_""_""SuspenseDate#""_PRPFHLD2_""_Item#""_PRPFHLD3)=""SUSPENSE DESC^Suspense description < 1 or > 255 characters^""_""SUSPENSE ID=""_PFSUSID_"", DESCRIPTION LENGTH=""_$L(PFSUSTXT)"
^XMB(3.9,91,2,543,0)="""RTN"",""PRPFDR1"",138,0)"
^XMB(3.9,91,2,544,0)=" ...S CNTERR(45)=CNTERR(45)+1"
^XMB(3.9,91,2,545,0)="""RTN"",""PRPFDR1"",139,0)"
^XMB(3.9,91,2,546,0)=" ...S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,547,0)="""RTN"",""PRPFDR1"",140,0)"
^XMB(3.9,91,2,548,0)=" ..S PRPFHLD4=0"
^XMB(3.9,91,2,549,0)="""RTN"",""PRPFDR1"",141,0)"
^XMB(3.9,91,2,550,0)=" .S PRPFHLD3=0"
^XMB(3.9,91,2,551,0)="""RTN"",""PRPFDR1"",142,0)"
^XMB(3.9,91,2,552,0)=" Q"
^XMB(3.9,91,2,553,0)="""RTN"",""PRPFDR1"",143,0)"
^XMB(3.9,91,2,554,0)="NODE12 I $G(^PRPF(470,PRPFHLD1,12))'="""" D"
^XMB(3.9,91,2,555,0)="""RTN"",""PRPFDR1"",144,0)"
^XMB(3.9,91,2,556,0)=" .I '$D(^DIC(4,^PRPF(470,PRPFHLD1,12),99))!(PFSTAID=""ERRBADID"")!(PFSTAID=""ERRBADID1"") D"
^XMB(3.9,91,2,557,0)="""RTN"",""PRPFDR1"",145,0)"
^XMB(3.9,91,2,558,0)=" ..S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,42,PFNAME_""_""_PRPFHLD1)=""STATIONID^STATION ID INVALID^""_PFSTAID"
^XMB(3.9,91,2,559,0)="""RTN"",""PRPFDR1"",146,0)"
^XMB(3.9,91,2,560,0)=" ..S CNTERR(42)=CNTERR(42)+1"
^XMB(3.9,91,2,561,0)="""RTN"",""PRPFDR1"",147,0)"
^XMB(3.9,91,2,562,0)=" ..S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,563,0)="""RTN"",""PRPFDR1"",148,0)"
^XMB(3.9,91,2,564,0)=" S:$G(^PRPF(470,PRPFHLD1,12))="""" PFSTAID=""UNASSIGNED"""
^XMB(3.9,91,2,565,0)="""RTN"",""PRPFDR1"",149,0)"
^XMB(3.9,91,2,566,0)="NODE12X I PFSTAID=""""!(PFSTAID=""UNASSIGNED"")!(PFSTAID=""ERRNOID"")!(PFSTAID=""ERRNOID1"") D"
^XMB(3.9,91,2,567,0)="""RTN"",""PRPFDR1"",150,0)"
^XMB(3.9,91,2,568,0)=" .S:PFSTAID="""" PFSTAID=""UNASSIGNED"""
^XMB(3.9,91,2,569,0)="""RTN"",""PRPFDR1"",151,0)"
^XMB(3.9,91,2,570,0)=" .S CNTERR(41)=CNTERR(41)+1"
^XMB(3.9,91,2,571,0)="""RTN"",""PRPFDR1"",152,0)"
^XMB(3.9,91,2,572,0)=" .S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,573,0)="""RTN"",""PRPFDR1"",153,0)"
^XMB(3.9,91,2,574,0)=" Q"
^XMB(3.9,91,2,575,0)="""RTN"",""PRPFDR2"")"
^XMB(3.9,91,2,576,0)="0^2^B68312638"
^XMB(3.9,91,2,577,0)="""RTN"",""PRPFDR2"",1,0)"
^XMB(3.9,91,2,578,0)="PRPFDR2 ;BAYPINES/MJE  VPFS DATA MIGRATION ROUTINE 2 ;05/15/03"
^XMB(3.9,91,2,579,0)="""RTN"",""PRPFDR2"",2,0)"
^XMB(3.9,91,2,580,0)=" ;;3.0;PATIENT FUNDS DIAG V5.9;**15**;JUNE 1, 1989"
^XMB(3.9,91,2,581,0)="""RTN"",""PRPFDR2"",3,0)"
^XMB(3.9,91,2,582,0)=" ;ENTRY AT LINETAG ONLY"
^XMB(3.9,91,2,583,0)="""RTN"",""PRPFDR2"",4,0)"
^XMB(3.9,91,2,584,0)=" Q"
^XMB(3.9,91,2,585,0)="""RTN"",""PRPFDR2"",5,0)"
^XMB(3.9,91,2,586,0)="LEG ;ENTRY POINT FOR LEGACY SYSTEM"
^XMB(3.9,91,2,587,0)="""RTN"",""PRPFDR2"",6,0)"
^XMB(3.9,91,2,588,0)=" D SETUP"
^XMB(3.9,91,2,589,0)="""RTN"",""PRPFDR2"",7,0)"
^XMB(3.9,91,2,590,0)=" D SUM"
^XMB(3.9,91,2,591,0)="""RTN"",""PRPFDR2"",8,0)"
^XMB(3.9,91,2,592,0)=" W !"
^XMB(3.9,91,2,593,0)="""RTN"",""PRPFDR2"",9,0)"
^XMB(3.9,91,2,594,0)=" W !,""NOTE: In addition to the summary report there is an available detail"""
^XMB(3.9,91,2,595,0)="""RTN"",""PRPFDR2"",10,0)"
^XMB(3.9,91,2,596,0)=" W !,""report, this report can be sent to any device or flat file if required."""
^XMB(3.9,91,2,597,0)="""RTN"",""PRPFDR2"",11,0)"
^XMB(3.9,91,2,598,0)=" W !,"""""
^XMB(3.9,91,2,599,0)="""RTN"",""PRPFDR2"",12,0)"
^XMB(3.9,91,2,600,0)=" W !,"">>>>> The detail diagnostic report will contain ""_CNTERR(100)_"" lines."""
^XMB(3.9,91,2,601,0)="""RTN"",""PRPFDR2"",13,0)"
^XMB(3.9,91,2,602,0)=" W !,"""""
^XMB(3.9,91,2,603,0)="""RTN"",""PRPFDR2"",14,0)"
^XMB(3.9,91,2,604,0)=" W !,""If you still desire the detail report, then please input the name of the"""
^XMB(3.9,91,2,605,0)="""RTN"",""PRPFDR2"",15,0)"
^XMB(3.9,91,2,606,0)=" W !,""device that the report will be sent to."""
^XMB(3.9,91,2,607,0)="""RTN"",""PRPFDR2"",16,0)"
^XMB(3.9,91,2,608,0)=" W !,"""""
^XMB(3.9,91,2,609,0)="""RTN"",""PRPFDR2"",17,0)"
^XMB(3.9,91,2,610,0)=" W !,""If the detail report is not desired then input """"^"""" at the device prompt and the detail report will not print."""
^XMB(3.9,91,2,611,0)="""RTN"",""PRPFDR2"",18,0)"
^XMB(3.9,91,2,612,0)=" W !,"""""
^XMB(3.9,91,2,613,0)="""RTN"",""PRPFDR2"",19,0)"
^XMB(3.9,91,2,614,0)=" D REP"
^XMB(3.9,91,2,615,0)="""RTN"",""PRPFDR2"",20,0)"
^XMB(3.9,91,2,616,0)=" K ^TMP(""PRPF_DIAGX"")"
^XMB(3.9,91,2,617,0)="""RTN"",""PRPFDR2"",21,0)"
^XMB(3.9,91,2,618,0)=" D KILLIT^PRPFDR4"
^XMB(3.9,91,2,619,0)="""RTN"",""PRPFDR2"",22,0)"
^XMB(3.9,91,2,620,0)=" Q"
^XMB(3.9,91,2,621,0)="""RTN"",""PRPFDR2"",23,0)"
^XMB(3.9,91,2,622,0)="REP S (PFX,PFY,PFZ,PFNAME)="""""
^XMB(3.9,91,2,623,0)="""RTN"",""PRPFDR2"",24,0)"
^XMB(3.9,91,2,624,0)=" S %ZIS(""B"")="""",%ZIS(""HFSMODE"")=""W"" D ^%ZIS K XION R X:2"
^XMB(3.9,91,2,625,0)="""RTN"",""PRPFDR2"",25,0)"
^XMB(3.9,91,2,626,0)=" I POP K ^TMP(""PRPF_DIAGX"") Q"
^XMB(3.9,91,2,627,0)="""RTN"",""PRPFDR2"",26,0)"
^XMB(3.9,91,2,628,0)=" U IO"
^XMB(3.9,91,2,629,0)="""RTN"",""PRPFDR2"",27,0)"
^XMB(3.9,91,2,630,0)=" D SUM"
^XMB(3.9,91,2,631,0)="""RTN"",""PRPFDR2"",28,0)"
^XMB(3.9,91,2,632,0)=" F  S PFX=$O(^TMP(""PRPF_DIAGX"",$J,PFX)) Q:PFX=""""  D"
^XMB(3.9,91,2,633,0)="""RTN"",""PRPFDR2"",29,0)"
^XMB(3.9,91,2,634,0)=" .F  S PFY=$O(^TMP(""PRPF_DIAGX"",$J,PFX,PFY)) Q:PFY=""""  D"
^XMB(3.9,91,2,635,0)="""RTN"",""PRPFDR2"",30,0)"
^XMB(3.9,91,2,636,0)=" ..F  S PFZ=$O(^TMP(""PRPF_DIAGX"",$J,PFX,PFY,PFZ)) Q:PFZ=""""  D"
^XMB(3.9,91,2,637,0)="""RTN"",""PRPFDR2"",31,0)"
^XMB(3.9,91,2,638,0)=" ...S PFTEMP=^TMP(""PRPF_DIAGX"",$J,PFX,PFY,PFZ)"
^XMB(3.9,91,2,639,0)="""RTN"",""PRPFDR2"",32,0)"
^XMB(3.9,91,2,640,0)=" ...W !,""STATION ID=""_PFX_""^ERR#=""_PFY_""^NAME=""_PFZ_""^DESC=""_$P(PFTEMP,""^"",2)_""^VALUE=>""_$P(PFTEMP,""^"",3)_""<"""
^XMB(3.9,91,2,641,0)="""RTN"",""PRPFDR2"",33,0)"
^XMB(3.9,91,2,642,0)=" D ^%ZISC"
^XMB(3.9,91,2,643,0)="""RTN"",""PRPFDR2"",34,0)"
^XMB(3.9,91,2,644,0)=" Q"
^XMB(3.9,91,2,645,0)="""RTN"",""PRPFDR2"",35,0)"
^XMB(3.9,91,2,646,0)="SUM W !,""**************************************************************************"""
^XMB(3.9,91,2,647,0)="""RTN"",""PRPFDR2"",36,0)"
^XMB(3.9,91,2,648,0)=" W !,""**      Patient Funds Diagnostic Summary      (version 5.9)             **"""
^XMB(3.9,91,2,649,0)="""RTN"",""PRPFDR2"",37,0)"
^XMB(3.9,91,2,650,0)=" W !,""**************************************************************************"""
^XMB(3.9,91,2,651,0)="""RTN"",""PRPFDR2"",38,0)"
^XMB(3.9,91,2,652,0)=" D NOW^%DTC S Y=% D DD^%DT"
^XMB(3.9,91,2,653,0)="""RTN"",""PRPFDR2"",39,0)"
^XMB(3.9,91,2,654,0)=" W !,""Run Date: ""_$P(Y,""@"",1)_""  Run Time: ""_$P(Y,""@"",2),?72,""**"""
^XMB(3.9,91,2,655,0)="""RTN"",""PRPFDR2"",40,0)"
^XMB(3.9,91,2,656,0)=" W !,""Total accounts processed = ""_CNTREC,?72,""**"""
^XMB(3.9,91,2,657,0)="""RTN"",""PRPFDR2"",41,0)"
^XMB(3.9,91,2,658,0)=" W !,""Total balance of accounts for migration = $""_$FN(CNTBAL,"","",2),?72,""**"""
^XMB(3.9,91,2,659,0)="""RTN"",""PRPFDR2"",42,0)"
^XMB(3.9,91,2,660,0)=" W !,""**************************************************************************"""
^XMB(3.9,91,2,661,0)="""RTN"",""PRPFDR2"",43,0)"
^XMB(3.9,91,2,662,0)=" W !,""Err#    Field           Error                                        Total"""
^XMB(3.9,91,2,663,0)="""RTN"",""PRPFDR2"",44,0)"
^XMB(3.9,91,2,664,0)=" W !,"" #      Name            Description                                  Count"""
^XMB(3.9,91,2,665,0)="""RTN"",""PRPFDR2"",45,0)"
^XMB(3.9,91,2,666,0)=" W !,""**************************************************************************"""
^XMB(3.9,91,2,667,0)="""RTN"",""PRPFDR2"",46,0)"
^XMB(3.9,91,2,668,0)=" W !,"" #1     NAME            Name is blank"",?72,CNTERR(1)"
^XMB(3.9,91,2,669,0)="""RTN"",""PRPFDR2"",47,0)"
^XMB(3.9,91,2,670,0)=" W !,"" #2     NAME            Name contains invalid data"",?72,CNTERR(2)"
^XMB(3.9,91,2,671,0)="""RTN"",""PRPFDR2"",48,0)"
^XMB(3.9,91,2,672,0)=" W !,"" #3     SSN             SSN is blank"",?72,CNTERR(3)"
^XMB(3.9,91,2,673,0)="""RTN"",""PRPFDR2"",49,0)"
^XMB(3.9,91,2,674,0)=" W !,"" #4     SSN             SSN contains invalid data"",?72,CNTERR(4)"
^XMB(3.9,91,2,675,0)="""RTN"",""PRPFDR2"",50,0)"
^XMB(3.9,91,2,676,0)=" W !,"" #5     SSN             SSN contains duplicate value"",?72,CNTERR(5)"
^XMB(3.9,91,2,677,0)="""RTN"",""PRPFDR2"",51,0)"
^XMB(3.9,91,2,678,0)=" W !,"" #6     SSN             SSN contains Pseudo SSN value"",?72,CNTRPSU"
^XMB(3.9,91,2,679,0)="""RTN"",""PRPFDR2"",52,0)"
^XMB(3.9,91,2,680,0)=" W !,"" #7     DOB             DOB is blank"",?72,CNTERR(7)"
^XMB(3.9,91,2,681,0)="""RTN"",""PRPFDR2"",53,0)"
^XMB(3.9,91,2,682,0)=" W !,"" #8     DOB             DOB contains invalid date"",?72,CNTERR(8)"
^XMB(3.9,91,2,683,0)="""RTN"",""PRPFDR2"",54,0)"
^XMB(3.9,91,2,684,0)=" W !,"" #9     WARD            Ward loc invalid length"",?72,CNTERR(9)"
^XMB(3.9,91,2,685,0)="""RTN"",""PRPFDR2"",55,0)"
^XMB(3.9,91,2,686,0)=" W !,"" #10    CLAIM           Claim # contains invalid data"",?72,CNTERR(10)"
^XMB(3.9,91,2,687,0)="""RTN"",""PRPFDR2"",56,0)"
^XMB(3.9,91,2,688,0)=" W !,"" #11    ZIP             Zipcode contains invalid data"",?72,CNTERR(11)"
^XMB(3.9,91,2,689,0)="""RTN"",""PRPFDR2"",57,0)"
^XMB(3.9,91,2,690,0)=" W !,"" #12    REGION OFFICE   Regional Office ID invalid data"",?72,CNTERR(12)"
^XMB(3.9,91,2,691,0)="""RTN"",""PRPFDR2"",58,0)"
^XMB(3.9,91,2,692,0)=" W !,"" #13    ICN             ICN Duplicate"",?72,CNTERR(13)"
^XMB(3.9,91,2,693,0)="""RTN"",""PRPFDR2"",59,0)"
^XMB(3.9,91,2,694,0)=" W !,"" #14    ICN             ICN unassigned or invalid"",?72,CNTERR(14)"
^XMB(3.9,91,2,695,0)="""RTN"",""PRPFDR2"",60,0)"
^XMB(3.9,91,2,696,0)=" W !,"" #15    PROVIDER AUTHR  Provider Name contains invalid data"",?72,CNTERR(15)"
^XMB(3.9,91,2,697,0)="""RTN"",""PRPFDR2"",61,0)"
^XMB(3.9,91,2,698,0)=" W !,""*#16    PROVID AUTH DT  Date of current restriction invalid date"",?72,CNTERR(16)"
^XMB(3.9,91,2,699,0)="""RTN"",""PRPFDR2"",62,0)"
^XMB(3.9,91,2,700,0)=" W !,""*#17    NO DEMO RECORD  No demographic record for account"",?72,CNTERR(17)"
^XMB(3.9,91,2,701,0)="""RTN"",""PRPFDR2"",63,0)"
^XMB(3.9,91,2,702,0)=" W !,""*#18    ACCOUNT STATUS  Account status not (A),I,Blank=""_PRPFBC18,?72,CNTERR(18)"
^XMB(3.9,91,2,703,0)="""RTN"",""PRPFDR2"",64,0)"
^XMB(3.9,91,2,704,0)=" W !,""*#19    PATIENT TYPE    Patient type not L,R,(U),X,Blank=""_PRPFBC19,?72,CNTERR(19)"
^XMB(3.9,91,2,705,0)="""RTN"",""PRPFDR2"",65,0)"
^XMB(3.9,91,2,706,0)=" W !,""*#20    PAT TYPE/PHY    Patient type L or R without Phy name"",?72,CNTERR(20)"
^XMB(3.9,91,2,707,0)="""RTN"",""PRPFDR2"",66,0)"
^XMB(3.9,91,2,708,0)=" W !,""*#21    PATIENT STATUS  Patient Status not A,R,C,N,(X),Blank=""_PRPFBC21,?72,CNTERR(21)"
^XMB(3.9,91,2,709,0)="""RTN"",""PRPFDR2"",67,0)"
^XMB(3.9,91,2,710,0)=" W !,""*#22    INDIGENT        Indigent status not (N),Y,Blank=""_PRPFBC22,?72,CNTERR(22)"
^XMB(3.9,91,2,711,0)="""RTN"",""PRPFDR2"",68,0)"
^XMB(3.9,91,2,712,0)=" W !,""*#23    APPORTIONEE $   Apportionee amount invalid or < $0 or > $99,999"",?72,CNTERR(23)"
^XMB(3.9,91,2,713,0)="""RTN"",""PRPFDR2"",69,0)"
^XMB(3.9,91,2,714,0)=" W !,""*#24    GUARDIAN $      Guardian amount invalid or < $0 or > $99,999"",?72,CNTERR(24)"
^XMB(3.9,91,2,715,0)="""RTN"",""PRPFDR2"",70,0)"
^XMB(3.9,91,2,716,0)=" W !,""*#25    INSTITUT AWARD  Institut award invalid or < $0 or > $99,999"",?72,CNTERR(25)"
^XMB(3.9,91,2,717,0)="""RTN"",""PRPFDR2"",71,0)"
^XMB(3.9,91,2,718,0)=" W !,""*#26    OTHER ASSETS    Other assets invalid or < $0 or > $99,999"",?72,CNTERR(26)"
^XMB(3.9,91,2,719,0)="""RTN"",""PRPFDR2"",72,0)"
^XMB(3.9,91,2,720,0)=" W !,""*#27    STORED BALANCE  Stored balance invalid or < $0 or > $99,999"",?72,CNTERR(27)"
^XMB(3.9,91,2,721,0)="""RTN"",""PRPFDR2"",73,0)"
^XMB(3.9,91,2,722,0)=" W !,""*#28    STORED PRIVATE  Stored private invalid or < $0 or > $99,999"",?72,CNTERR(28)"
^XMB(3.9,91,2,723,0)="""RTN"",""PRPFDR2"",74,0)"
^XMB(3.9,91,2,724,0)=" W !,""*#29    STORED GRATUIT  Stored gratuitous invalid or < $0 or > $99,999"",?72,CNTERR(29)"
^XMB(3.9,91,2,725,0)="""RTN"",""PRPFDR2"",75,0)"
^XMB(3.9,91,2,726,0)=" W !,""*#30    RESTRCT MONTH   Restricted Monthly invalid or < $0 or > $99,999"",?72,CNTERR(30)"
^XMB(3.9,91,2,727,0)="""RTN"",""PRPFDR2"",76,0)"
^XMB(3.9,91,2,728,0)=" W !,""*#31    RESTRCT WEEKLY  Restricted Weekly invalid or < $0 or > $99,999"",?72,CNTERR(31)"
^XMB(3.9,91,2,729,0)="""RTN"",""PRPFDR2"",77,0)"
^XMB(3.9,91,2,730,0)=" W !,""*#32    RESTRCT AMT ER  Restrict Mnthly amount < (5X) weekly amt"",?72,CNTERR(32)"
^XMB(3.9,91,2,731,0)="""RTN"",""PRPFDR2"",78,0)"
^XMB(3.9,91,2,732,0)=" W !,""*#33    RESTRCT AMT ER  Restrict Mnthly amount < weekly amt"",?72,CNTERR(33)"
^XMB(3.9,91,2,733,0)="""RTN"",""PRPFDR2"",79,0)"
^XMB(3.9,91,2,734,0)=" W !,""*#34    MINIMUM BAL     Minimum balance #1 invalid or < $0 or > $99,999"",?72,CNTERR(34)"
^XMB(3.9,91,2,735,0)="""RTN"",""PRPFDR2"",80,0)"
^XMB(3.9,91,2,736,0)=" W !,""*#35    MAXIMUM BAL     Maximum balance #1 invalid or < $0 or > $99,999"",?72,CNTERR(35)"
^XMB(3.9,91,2,737,0)="""RTN"",""PRPFDR2"",81,0)"
^XMB(3.9,91,2,738,0)=" W !,""*#36    NO BALANCE REC  Balance record missing for account"",?72,CNTERR(36)"
^XMB(3.9,91,2,739,0)="""RTN"",""PRPFDR2"",82,0)"
^XMB(3.9,91,2,740,0)=" W !,""*#37    INCOME PAYEE    Income payee blank, Income source present"",?72,CNTERR(37)"
^XMB(3.9,91,2,741,0)="""RTN"",""PRPFDR2"",83,0)"
^XMB(3.9,91,2,742,0)=" W !,""*#38    INCOME AMOUNT   Income amount error, Income source present"",?72,CNTERR(38)"
^XMB(3.9,91,2,743,0)="""RTN"",""PRPFDR2"",84,0)"
^XMB(3.9,91,2,744,0)=" W !,""*#39    INCOME AMOUNT   Income amount < $1 or > $99,999"",?72,CNTERR(39)"
^XMB(3.9,91,2,745,0)="""RTN"",""PRPFDR2"",85,0)"
^XMB(3.9,91,2,746,0)=" W !,""*#40    INCOME FREQCY   Income frequency not D,W,M,Y,X,V,O,Blank=""_PRPFBC40,?72,CNTERR(40)"
^XMB(3.9,91,2,747,0)="""RTN"",""PRPFDR2"",86,0)"
^XMB(3.9,91,2,748,0)=" W !,""*#41    STATION ID      Station ID blank or unassigned"",?72,CNTERR(41)"
^XMB(3.9,91,2,749,0)="""RTN"",""PRPFDR2"",87,0)"
^XMB(3.9,91,2,750,0)=" W !,"" #42    STATION ID      Station ID invalid"",?72,CNTERR(42)"
^XMB(3.9,91,2,751,0)="""RTN"",""PRPFDR2"",88,0)"
^XMB(3.9,91,2,752,0)=" W !,""*#43    SUSPENSE DATE   Suspense date has invalid date"",?72,CNTERR(43)"
^XMB(3.9,91,2,753,0)="""RTN"",""PRPFDR2"",89,0)"
^XMB(3.9,91,2,754,0)=" W !,""*#44    SUSPENSE ID     Suspense ID has Invalid data"",?72,CNTERR(44)"
^XMB(3.9,91,2,755,0)="""RTN"",""PRPFDR2"",90,0)"
^XMB(3.9,91,2,756,0)=" W !,""*#45    SUSPENSE TEXT   Suspense text is < 1 or > 255 characters"",?72,CNTERR(45)"
^XMB(3.9,91,2,757,0)="""RTN"",""PRPFDR2"",91,0)"
^XMB(3.9,91,2,758,0)=" W !,""*#46    DEFERRED TRANS  There are ""_PRPFDEFR_"" deferred transactions"",?72,PRPFDEFR"
^XMB(3.9,91,2,759,0)="""RTN"",""PRPFDR2"",92,0)"
^XMB(3.9,91,2,760,0)=" W !,""*#47    TRANSACTION REC Transaction record missing, blank or ID invalid"",?72,CNTERR(47)"
^XMB(3.9,91,2,761,0)="""RTN"",""PRPFDR2"",93,0)"
^XMB(3.9,91,2,762,0)=" W !,""*#48    PATIENT NAME    Patient name does not match deferred trans"",?72,CNTERR(48)"
^XMB(3.9,91,2,763,0)="""RTN"",""PRPFDR2"",94,0)"
^XMB(3.9,91,2,764,0)=" W !,""*#49    PATIENT TRANS # Patient transaction # invalid"",?72,CNTERR(49)"
^XMB(3.9,91,2,765,0)="""RTN"",""PRPFDR2"",95,0)"
^XMB(3.9,91,2,766,0)=" W !,""*#50    DEFR AMOUNT     Deferred amount invalid"",?72,CNTERR(50)"
^XMB(3.9,91,2,767,0)="""RTN"",""PRPFDR2"",96,0)"
^XMB(3.9,91,2,768,0)=" W !,""*#51    TRANSACTN DATE  Transaction date Invalid"",?72,CNTERR(51)"
^XMB(3.9,91,2,769,0)="""RTN"",""PRPFDR2"",97,0)"
^XMB(3.9,91,2,770,0)=" W !,""*#52    DT TRAN ENTD    Date transaction entered Invalid"",?72,CNTERR(52)"
^XMB(3.9,91,2,771,0)="""RTN"",""PRPFDR2"",98,0)"
^XMB(3.9,91,2,772,0)=" W !,""*#53    REFERENCE       Reference Invalid < 1 or > 10 in length"",?72,CNTERR(53)"
^XMB(3.9,91,2,773,0)="""RTN"",""PRPFDR2"",99,0)"
^XMB(3.9,91,2,774,0)=" W !,""*#54    DEPOSIT/WTHDRWL Deposit/Withdrawal status Invalid"",?72,CNTERR(54)"
^XMB(3.9,91,2,775,0)="""RTN"",""PRPFDR2"",100,0)"
^XMB(3.9,91,2,776,0)=" W !,""*#55    CASH/CHECK/OTR  Cash/Check/Other status Invalid"",?72,CNTERR(55)"
^XMB(3.9,91,2,777,0)="""RTN"",""PRPFDR2"",101,0)"
^XMB(3.9,91,2,778,0)=" W !,""*#56    SOURCE          Transaction source invalid"",?72,CNTERR(56)"
^XMB(3.9,91,2,779,0)="""RTN"",""PRPFDR2"",102,0)"
^XMB(3.9,91,2,780,0)=" W !,""*#57    FORM            Form does not match"",?72,CNTERR(57)"
^XMB(3.9,91,2,781,0)="""RTN"",""PRPFDR2"",103,0)"
^XMB(3.9,91,2,782,0)=" W !,""*#58    PRVT SOURCE AMT Private source amount invalid or < 0 or > 99999"",?72,CNTERR(58)"
^XMB(3.9,91,2,783,0)="""RTN"",""PRPFDR2"",104,0)"
^XMB(3.9,91,2,784,0)=" W !,""*#59    GRATUITOUS AMT  Gratuitous amount invalid or < 0 or > 99999"",?72,CNTERR(59)"
^XMB(3.9,91,2,785,0)="""RTN"",""PRPFDR2"",105,0)"
^XMB(3.9,91,2,786,0)=" W !,""*#60    PFUNDS CLERK    PFunds clerk invalid"",?72,CNTERR(60)"
^XMB(3.9,91,2,787,0)="""RTN"",""PRPFDR2"",106,0)"
^XMB(3.9,91,2,788,0)=" W !,""**************************************************************************"""
^XMB(3.9,91,2,789,0)="""RTN"",""PRPFDR2"",107,0)"
^XMB(3.9,91,2,790,0)=" Q"
^XMB(3.9,91,2,791,0)="""RTN"",""PRPFDR2"",108,0)"
^XMB(3.9,91,2,792,0)="SETUP ;SETUP PARAMS GET DATA"
^XMB(3.9,91,2,793,0)="""RTN"",""PRPFDR2"",109,0)"
^XMB(3.9,91,2,794,0)=" K ^TMP(""PRPF_DIAGX"")"
^XMB(3.9,91,2,795,0)="""RTN"",""PRPFDR2"",110,0)"
^XMB(3.9,91,2,796,0)=" S ^TMP(""PRPF_DIAGX"",$J,0)=DTIME_""^""_""DTIME""_""^""_""PRPF MIGRATION DIAGNOSTIC TEMP DATA"""
^XMB(3.9,91,2,797,0)="""RTN"",""PRPFDR2"",111,0)"
^XMB(3.9,91,2,798,0)=" S (PRPFDEFR,PRPFBBAL,PRPFBDMO,PRPFHLD1,PRPFHLD2,PRPFHLD3,PRPFHLD4,CNTBAL,CNTREC,CNTRPSU,PFG,PFSTDBAL)=0"
^XMB(3.9,91,2,799,0)="""RTN"",""PRPFDR2"",112,0)"
^XMB(3.9,91,2,800,0)=" S (PRPFBC18,PRPFBC19,PRPFBC21,PRPFBC22,PRPFBC40)=0"
^XMB(3.9,91,2,801,0)="""RTN"",""PRPFDR2"",113,0)"
^XMB(3.9,91,2,802,0)=" F I=1:1:100 D"
^XMB(3.9,91,2,803,0)="""RTN"",""PRPFDR2"",114,0)"
^XMB(3.9,91,2,804,0)=" .S CNTERR(I)=0"
^XMB(3.9,91,2,805,0)="""RTN"",""PRPFDR2"",115,0)"
^XMB(3.9,91,2,806,0)=" F  S PRPFHLD1=$O(^PRPF(470,PRPFHLD1)) Q:'PRPFHLD1  D"
^XMB(3.9,91,2,807,0)="""RTN"",""PRPFDR2"",116,0)"
^XMB(3.9,91,2,808,0)=" .S PFG=PFG+1 I PFG=100 W ""."" S PFG=0"
^XMB(3.9,91,2,809,0)="""RTN"",""PRPFDR2"",117,0)"
^XMB(3.9,91,2,810,0)=" .S ND="""""
^XMB(3.9,91,2,811,0)="""RTN"",""PRPFDR2"",118,0)"
^XMB(3.9,91,2,812,0)=" .S CNTREC=CNTREC+1"
^XMB(3.9,91,2,813,0)="""RTN"",""PRPFDR2"",119,0)"
^XMB(3.9,91,2,814,0)=" .D:$G(^PRPF(470,PRPFHLD1,0))'="""" COMPU"
^XMB(3.9,91,2,815,0)="""RTN"",""PRPFDR2"",120,0)"
^XMB(3.9,91,2,816,0)=" .I $D(^PRPF(470,PRPFHLD1,12)) I $G(^PRPF(470,PRPFHLD1,12))'="""" D"
^XMB(3.9,91,2,817,0)="""RTN"",""PRPFDR2"",121,0)"
^XMB(3.9,91,2,818,0)=" ..I $D(^DIC(4,^PRPF(470,PRPFHLD1,12),99)) I $P(^DIC(4,^PRPF(470,PRPFHLD1,12),99),""^"",1)'="""" D"
^XMB(3.9,91,2,819,0)="""RTN"",""PRPFDR2"",122,0)"
^XMB(3.9,91,2,820,0)=" ...S PFSTAID=^PRPF(470,PRPFHLD1,12)"
^XMB(3.9,91,2,821,0)="""RTN"",""PRPFDR2"",123,0)"
^XMB(3.9,91,2,822,0)=" ...D NODE12^PRPFDR1"
^XMB(3.9,91,2,823,0)="""RTN"",""PRPFDR2"",124,0)"
^XMB(3.9,91,2,824,0)=" ..I $D(^DIC(4,^PRPF(470,PRPFHLD1,12),99)) I $P(^DIC(4,^PRPF(470,PRPFHLD1,12),99),""^"",1)="""" D"
^XMB(3.9,91,2,825,0)="""RTN"",""PRPFDR2"",125,0)"
^XMB(3.9,91,2,826,0)=" ...S PFSTAID=""ERRBADID1"""
^XMB(3.9,91,2,827,0)="""RTN"",""PRPFDR2"",126,0)"
^XMB(3.9,91,2,828,0)=" ...D NODE12^PRPFDR1"
^XMB(3.9,91,2,829,0)="""RTN"",""PRPFDR2"",127,0)"
^XMB(3.9,91,2,830,0)=" ..I '$D(^DIC(4,^PRPF(470,PRPFHLD1,12),99)) D"
^XMB(3.9,91,2,831,0)="""RTN"",""PRPFDR2"",128,0)"
^XMB(3.9,91,2,832,0)=" ...S PFSTAID=""ERRBADID"""
^XMB(3.9,91,2,833,0)="""RTN"",""PRPFDR2"",129,0)"
^XMB(3.9,91,2,834,0)=" ...D NODE12^PRPFDR1"
^XMB(3.9,91,2,835,0)="""RTN"",""PRPFDR2"",130,0)"
^XMB(3.9,91,2,836,0)=" .I '$D(^PRPF(470,PRPFHLD1,12)) S PFSTAID=""ERRNOID"" D NODE12X^PRPFDR1"
^XMB(3.9,91,2,837,0)="""RTN"",""PRPFDR2"",131,0)"
^XMB(3.9,91,2,838,0)=" .I $D(^PRPF(470,PRPFHLD1,12)) I $G(^PRPF(470,PRPFHLD1,12))="""" D"
^XMB(3.9,91,2,839,0)="""RTN"",""PRPFDR2"",132,0)"
^XMB(3.9,91,2,840,0)=" ..S PFSTAID=""ERRNOID1"""
^XMB(3.9,91,2,841,0)="""RTN"",""PRPFDR2"",133,0)"
^XMB(3.9,91,2,842,0)=" ..D NODE12X^PRPFDR1"
^XMB(3.9,91,2,843,0)="""RTN"",""PRPFDR2"",134,0)"
^XMB(3.9,91,2,844,0)=" .D:$G(^PRPF(470,PRPFHLD1,0))'="""" NODE0^PRPFDR5"
^XMB(3.9,91,2,845,0)="""RTN"",""PRPFDR2"",135,0)"
^XMB(3.9,91,2,846,0)=" .D:$G(^PRPF(470,PRPFHLD1,0))="""" NODE0X^PRPFDR5"
^XMB(3.9,91,2,847,0)="""RTN"",""PRPFDR2"",136,0)"
^XMB(3.9,91,2,848,0)=" .D:$G(^PRPF(470,PRPFHLD1,1))'="""" NODE1^PRPFDR4"
^XMB(3.9,91,2,849,0)="""RTN"",""PRPFDR2"",137,0)"
^XMB(3.9,91,2,850,0)=" .D:$G(^PRPF(470,PRPFHLD1,1))="""" NODE1X^PRPFDR4"
^XMB(3.9,91,2,851,0)="""RTN"",""PRPFDR2"",138,0)"
^XMB(3.9,91,2,852,0)=" .D:$G(^PRPF(470,PRPFHLD1,2))'="""" NODE2^PRPFDR4"
^XMB(3.9,91,2,853,0)="""RTN"",""PRPFDR2"",139,0)"
^XMB(3.9,91,2,854,0)=" .D:$O(^PRPF(470,PRPFHLD1,4,0))>0 NODE4^PRPFDR1"
^XMB(3.9,91,2,855,0)="""RTN"",""PRPFDR2"",140,0)"
^XMB(3.9,91,2,856,0)=" .D:$O(^PRPF(470,PRPFHLD1,5,0))>0 NODE5^PRPFDR1"
^XMB(3.9,91,2,857,0)="""RTN"",""PRPFDR2"",141,0)"
^XMB(3.9,91,2,858,0)=" .D:$O(^PRPF(470,PRPFHLD1,6,0))>0 NODE6^PRPFDR4"
^XMB(3.9,91,2,859,0)="""RTN"",""PRPFDR2"",142,0)"
^XMB(3.9,91,2,860,0)=" Q"
^XMB(3.9,91,2,861,0)="""RTN"",""PRPFDR2"",143,0)"
^XMB(3.9,91,2,862,0)=" ;***************************************************************"
^XMB(3.9,91,2,863,0)="""RTN"",""PRPFDR2"",144,0)"
^XMB(3.9,91,2,864,0)="COMPU ; SPECIFIC PATIENT INFO LOOKUP"
^XMB(3.9,91,2,865,0)="""RTN"",""PRPFDR2"",145,0)"
^XMB(3.9,91,2,866,0)=" S PFNAME=$P($G(^DPT(PRPFHLD1,0)),""^"",1)"
^XMB(3.9,91,2,867,0)="""RTN"",""PRPFDR2"",146,0)"
^XMB(3.9,91,2,868,0)=" S PFSSN=$P($G(^DPT(PRPFHLD1,0)),""^"",9)"
^XMB(3.9,91,2,869,0)="""RTN"",""PRPFDR2"",147,0)"
^XMB(3.9,91,2,870,0)=" I PFNAME="""" I PFSSN'="""" S PFNAME=""NAME-MISSING-SSN#""_PFSSN"
^XMB(3.9,91,2,871,0)="""RTN"",""PRPFDR2"",148,0)"
^XMB(3.9,91,2,872,0)=" I PFNAME="""" I PFSSN="""" S PFNAME=""NAME-MISSING-NO-SSN-IEN#""_PRPFHLD1"
^XMB(3.9,91,2,873,0)="""RTN"",""PRPFDR2"",149,0)"
^XMB(3.9,91,2,874,0)=" S PFDOB=$P($G(^DPT(PRPFHLD1,0)),""^"",3)"
^XMB(3.9,91,2,875,0)="""RTN"",""PRPFDR2"",150,0)"
^XMB(3.9,91,2,876,0)=" S PFWARD=$P($G(^DPT(PRPFHLD1,.1)),""^"",1)"
^XMB(3.9,91,2,877,0)="""RTN"",""PRPFDR2"",151,0)"
^XMB(3.9,91,2,878,0)=" S PFCLAIM=$P($G(^DPT(PRPFHLD1,.31)),""^"",3)"
^XMB(3.9,91,2,879,0)="""RTN"",""PRPFDR2"",152,0)"
^XMB(3.9,91,2,880,0)=" S PFADDR1=$P($G(^DPT(PRPFHLD1,.11)),""^"",1)"
^XMB(3.9,91,2,881,0)="""RTN"",""PRPFDR2"",153,0)"
^XMB(3.9,91,2,882,0)=" S PFADDR2=$P($G(^DPT(PRPFHLD1,.11)),""^"",2)"
^XMB(3.9,91,2,883,0)="""RTN"",""PRPFDR2"",154,0)"
^XMB(3.9,91,2,884,0)=" S PFADDR3=$P($G(^DPT(PRPFHLD1,.11)),""^"",3)"
^XMB(3.9,91,2,885,0)="""RTN"",""PRPFDR2"",155,0)"
^XMB(3.9,91,2,886,0)=" S PFCITY=$P($G(^DPT(PRPFHLD1,.11)),""^"",4)"
^XMB(3.9,91,2,887,0)="""RTN"",""PRPFDR2"",156,0)"
^XMB(3.9,91,2,888,0)=" S PFSTATE=$P($G(^DPT(PRPFHLD1,.11)),""^"",5)"
^XMB(3.9,91,2,889,0)="""RTN"",""PRPFDR2"",157,0)"
^XMB(3.9,91,2,890,0)=" S PFZIP=$P($G(^DPT(PRPFHLD1,.11)),""^"",6)"
^XMB(3.9,91,2,891,0)="""RTN"",""PRPFDR2"",158,0)"
^XMB(3.9,91,2,892,0)=" S PFSITE=$P($$SITE^VASITE(),""^"",3)"
^XMB(3.9,91,2,893,0)="""RTN"",""PRPFDR2"",159,0)"
^XMB(3.9,91,2,894,0)=" S:PFSITE="""" PFSITE=""###"""
^XMB(3.9,91,2,895,0)="""RTN"",""PRPFDR2"",160,0)"
^XMB(3.9,91,2,896,0)=" S PFAUTH=$P(^PRPF(470,PRPFHLD1,0),""^"",13)"
^XMB(3.9,91,2,897,0)="""RTN"",""PRPFDR2"",161,0)"
^XMB(3.9,91,2,898,0)=" Q"
^XMB(3.9,91,2,899,0)="""RTN"",""PRPFDR3"")"
^XMB(3.9,91,2,900,0)="0^3^B71656753"
^XMB(3.9,91,2,901,0)="""RTN"",""PRPFDR3"",1,0)"
^XMB(3.9,91,2,902,0)="PRPFDR3 ;BAYPINES/MJE  VPFS DATA MIGRATION ROUTINE 3 ;05/15/03"
^XMB(3.9,91,2,903,0)="""RTN"",""PRPFDR3"",2,0)"
^XMB(3.9,91,2,904,0)=" ;;3.0;PATIENT FUNDS DIAG V5.9;**15**;JUNE 1, 1989"
^XMB(3.9,91,2,905,0)="""RTN"",""PRPFDR3"",3,0)"
^XMB(3.9,91,2,906,0)=" ;ENTRY AT LINETAG ONLY"
^XMB(3.9,91,2,907,0)="""RTN"",""PRPFDR3"",4,0)"
^XMB(3.9,91,2,908,0)=" Q"
^XMB(3.9,91,2,909,0)="""RTN"",""PRPFDR3"",5,0)"
^XMB(3.9,91,2,910,0)="RPC(RESULTS,PARAM1,PARAM2) ;ENTRY POINT FOR VPFS RPC"
^XMB(3.9,91,2,911,0)="""RTN"",""PRPFDR3"",6,0)"
^XMB(3.9,91,2,912,0)=" S PRPFJ=PARAM2"
^XMB(3.9,91,2,913,0)="""RTN"",""PRPFDR3"",7,0)"
^XMB(3.9,91,2,914,0)=" S PRPFSEG=PARAM1"
^XMB(3.9,91,2,915,0)="""RTN"",""PRPFDR3"",8,0)"
^XMB(3.9,91,2,916,0)=" I PRPFSEG>1 D SENDSEG Q"
^XMB(3.9,91,2,917,0)="""RTN"",""PRPFDR3"",9,0)"
^XMB(3.9,91,2,918,0)="TESTRPC ;ENTRY POINT FOR TESTING"
^XMB(3.9,91,2,919,0)="""RTN"",""PRPFDR3"",10,0)"
^XMB(3.9,91,2,920,0)=" K ^TMP(""PRPF_DIAGVL"")"
^XMB(3.9,91,2,921,0)="""RTN"",""PRPFDR3"",11,0)"
^XMB(3.9,91,2,922,0)=" D SETUP^PRPFDR2"
^XMB(3.9,91,2,923,0)="""RTN"",""PRPFDR3"",12,0)"
^XMB(3.9,91,2,924,0)=" S CNTSEG=1"
^XMB(3.9,91,2,925,0)="""RTN"",""PRPFDR3"",13,0)"
^XMB(3.9,91,2,926,0)=" S CNTTOT=0"
^XMB(3.9,91,2,927,0)="""RTN"",""PRPFDR3"",14,0)"
^XMB(3.9,91,2,928,0)=" D XSUM"
^XMB(3.9,91,2,929,0)="""RTN"",""PRPFDR3"",15,0)"
^XMB(3.9,91,2,930,0)=" D XREP"
^XMB(3.9,91,2,931,0)="""RTN"",""PRPFDR3"",16,0)"
^XMB(3.9,91,2,932,0)=" S RESULTS=$NA(^TMP(""PRPF_DIAGVL"",$J,1))"
^XMB(3.9,91,2,933,0)="""RTN"",""PRPFDR3"",17,0)"
^XMB(3.9,91,2,934,0)=" D KILLIT^PRPFDR4"
^XMB(3.9,91,2,935,0)="""RTN"",""PRPFDR3"",18,0)"
^XMB(3.9,91,2,936,0)=" Q"
^XMB(3.9,91,2,937,0)="""RTN"",""PRPFDR3"",19,0)"
^XMB(3.9,91,2,938,0)="SENDSEG ;SEND A SEGMENT OF DATA TO MIGRATION JAVA APP"
^XMB(3.9,91,2,939,0)="""RTN"",""PRPFDR3"",20,0)"
^XMB(3.9,91,2,940,0)=" S RESULTS=$NA(^TMP(""PRPF_DIAGVL"",PRPFJ,PRPFSEG))"
^XMB(3.9,91,2,941,0)="""RTN"",""PRPFDR3"",21,0)"
^XMB(3.9,91,2,942,0)=" Q"
^XMB(3.9,91,2,943,0)="""RTN"",""PRPFDR3"",22,0)"
^XMB(3.9,91,2,944,0)="SEG ;SET UP NEW SEGMENT NODE"
^XMB(3.9,91,2,945,0)="""RTN"",""PRPFDR3"",23,0)"
^XMB(3.9,91,2,946,0)=" D:PRPFCNTR=10000"
^XMB(3.9,91,2,947,0)="""RTN"",""PRPFDR3"",24,0)"
^XMB(3.9,91,2,948,0)=" .S CNTSEG=CNTSEG+1"
^XMB(3.9,91,2,949,0)="""RTN"",""PRPFDR3"",25,0)"
^XMB(3.9,91,2,950,0)=" .S CNTTOT=CNTTOT+PRPFCNTR"
^XMB(3.9,91,2,951,0)="""RTN"",""PRPFDR3"",26,0)"
^XMB(3.9,91,2,952,0)=" .S PRPFCNTR=0"
^XMB(3.9,91,2,953,0)="""RTN"",""PRPFDR3"",27,0)"
^XMB(3.9,91,2,954,0)=" Q"
^XMB(3.9,91,2,955,0)="""RTN"",""PRPFDR3"",28,0)"
^XMB(3.9,91,2,956,0)="XREP S (PFX,PFY,PFZ,PFNAME)="""""
^XMB(3.9,91,2,957,0)="""RTN"",""PRPFDR3"",29,0)"
^XMB(3.9,91,2,958,0)=" F  S PFX=$O(^TMP(""PRPF_DIAGX"",$J,PFX)) Q:PFX=""""  D"
^XMB(3.9,91,2,959,0)="""RTN"",""PRPFDR3"",30,0)"
^XMB(3.9,91,2,960,0)=" .F  S PFY=$O(^TMP(""PRPF_DIAGX"",$J,PFX,PFY)) Q:PFY=""""  D"
^XMB(3.9,91,2,961,0)="""RTN"",""PRPFDR3"",31,0)"
^XMB(3.9,91,2,962,0)=" ..F  S PFZ=$O(^TMP(""PRPF_DIAGX"",$J,PFX,PFY,PFZ)) Q:PFZ=""""  D"
^XMB(3.9,91,2,963,0)="""RTN"",""PRPFDR3"",32,0)"
^XMB(3.9,91,2,964,0)=" ...S PFTEMP=^TMP(""PRPF_DIAGX"",$J,PFX,PFY,PFZ)"
^XMB(3.9,91,2,965,0)="""RTN"",""PRPFDR3"",33,0)"
^XMB(3.9,91,2,966,0)=" ...S PRPFCNTR=PRPFCNTR+1"
^XMB(3.9,91,2,967,0)="""RTN"",""PRPFDR3"",34,0)"
^XMB(3.9,91,2,968,0)=" ...S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""STATION ID=""_PFX_""^ERR#=""_PFY_""^NAME=""_PFZ_""^DESC=""_$P(PFTEMP,""^"",2)_""^VALUE=>""_$P(PFTEMP,""^"",3)_""<"""
^XMB(3.9,91,2,969,0)="""RTN"",""PRPFDR3"",35,0)"
^XMB(3.9,91,2,970,0)=" ...D SEG"
^XMB(3.9,91,2,971,0)="""RTN"",""PRPFDR3"",36,0)"
^XMB(3.9,91,2,972,0)=" S CNTTOT=CNTTOT+PRPFCNTR"
^XMB(3.9,91,2,973,0)="""RTN"",""PRPFDR3"",37,0)"
^XMB(3.9,91,2,974,0)=" S ^TMP(""PRPF_DIAGVL"",$J,0)=DTIME_""^""_""DTIME""_""^""_""PRPF MIGRATION DIAGNOSTIC TEMP DATA SENT TO J2EE"""
^XMB(3.9,91,2,975,0)="""RTN"",""PRPFDR3"",38,0)"
^XMB(3.9,91,2,976,0)=" S ^TMP(""PRPF_DIAGVL"",$J,1,0)=""VPFS""_U_PFSITE_U_U_U_U_""0""_U_""A1""_U_CNTREC_U_CNTTOT_U_$J"
^XMB(3.9,91,2,977,0)="""RTN"",""PRPFDR3"",39,0)"
^XMB(3.9,91,2,978,0)=" K ^TMP(""PRPF_DIAGX"")"
^XMB(3.9,91,2,979,0)="""RTN"",""PRPFDR3"",40,0)"
^XMB(3.9,91,2,980,0)=" Q"
^XMB(3.9,91,2,981,0)="""RTN"",""PRPFDR3"",41,0)"
^XMB(3.9,91,2,982,0)="XSUM ;THIS ENTRY POINT FOR VISTALINK"
^XMB(3.9,91,2,983,0)="""RTN"",""PRPFDR3"",42,0)"
^XMB(3.9,91,2,984,0)=" S PRPFCNTR=0"
^XMB(3.9,91,2,985,0)="""RTN"",""PRPFDR3"",43,0)"
^XMB(3.9,91,2,986,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""**************************************************************************"""
^XMB(3.9,91,2,987,0)="""RTN"",""PRPFDR3"",44,0)"
^XMB(3.9,91,2,988,0)=" D SEG"
^XMB(3.9,91,2,989,0)="""RTN"",""PRPFDR3"",45,0)"
^XMB(3.9,91,2,990,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""**      Patient Funds Diagnostic Summary LEGACY RPC    (version 5.9)    **"""
^XMB(3.9,91,2,991,0)="""RTN"",""PRPFDR3"",46,0)"
^XMB(3.9,91,2,992,0)=" D SEG"
^XMB(3.9,91,2,993,0)="""RTN"",""PRPFDR3"",47,0)"
^XMB(3.9,91,2,994,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""**************************************************************************"""
^XMB(3.9,91,2,995,0)="""RTN"",""PRPFDR3"",48,0)"
^XMB(3.9,91,2,996,0)=" D SEG"
^XMB(3.9,91,2,997,0)="""RTN"",""PRPFDR3"",49,0)"
^XMB(3.9,91,2,998,0)=" D NOW^%DTC S Y=% D DD^%DT"
^XMB(3.9,91,2,999,0)="""RTN"",""PRPFDR3"",50,0)"
^XMB(3.9,91,2,1000,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""Run Date: ""_$P(Y,""@"",1)_""  Run Time: ""_$P(Y,""@"",2)_$P(""       "","" "",1,7-$L(CNTREC))_""                            **"""
^XMB(3.9,91,2,1001,0)="""RTN"",""PRPFDR3"",51,0)"
^XMB(3.9,91,2,1002,0)=" D SEG"
^XMB(3.9,91,2,1003,0)="""RTN"",""PRPFDR3"",52,0)"
^XMB(3.9,91,2,1004,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""Total accounts processed = ""_CNTREC_$P(""       "","" "",1,7-$L(CNTREC))_""                                       **"""
^XMB(3.9,91,2,1005,0)="""RTN"",""PRPFDR3"",53,0)"
^XMB(3.9,91,2,1006,0)=" D SEG"
^XMB(3.9,91,2,1007,0)="""RTN"",""PRPFDR3"",54,0)"
^XMB(3.9,91,2,1008,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""Total balance of accounts for migration = $""_$FN(CNTBAL,"","",2)_$P(""              "","" "",1,14-$L($FN(CNTBAL,"","",2)))_""                **"""
^XMB(3.9,91,2,1009,0)="""RTN"",""PRPFDR3"",55,0)"
^XMB(3.9,91,2,1010,0)=" D SEG"
^XMB(3.9,91,2,1011,0)="""RTN"",""PRPFDR3"",56,0)"
^XMB(3.9,91,2,1012,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""**************************************************************************"""
^XMB(3.9,91,2,1013,0)="""RTN"",""PRPFDR3"",57,0)"
^XMB(3.9,91,2,1014,0)=" D SEG"
^XMB(3.9,91,2,1015,0)="""RTN"",""PRPFDR3"",58,0)"
^XMB(3.9,91,2,1016,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""Err#    Field           Error                                        Total"""
^XMB(3.9,91,2,1017,0)="""RTN"",""PRPFDR3"",59,0)"
^XMB(3.9,91,2,1018,0)=" D SEG"
^XMB(3.9,91,2,1019,0)="""RTN"",""PRPFDR3"",60,0)"
^XMB(3.9,91,2,1020,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)="" #      Name            Description                                  Count"""
^XMB(3.9,91,2,1021,0)="""RTN"",""PRPFDR3"",61,0)"
^XMB(3.9,91,2,1022,0)=" D SEG"
^XMB(3.9,91,2,1023,0)="""RTN"",""PRPFDR3"",62,0)"
^XMB(3.9,91,2,1024,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""**************************************************************************"""
^XMB(3.9,91,2,1025,0)="""RTN"",""PRPFDR3"",63,0)"
^XMB(3.9,91,2,1026,0)=" D SEG"
^XMB(3.9,91,2,1027,0)="""RTN"",""PRPFDR3"",64,0)"
^XMB(3.9,91,2,1028,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)="" #1     NAME            Name is blank                                   ""_CNTERR(1)"
^XMB(3.9,91,2,1029,0)="""RTN"",""PRPFDR3"",65,0)"
^XMB(3.9,91,2,1030,0)=" D SEG"
^XMB(3.9,91,2,1031,0)="""RTN"",""PRPFDR3"",66,0)"
^XMB(3.9,91,2,1032,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)="" #2     NAME            Name contains invalid data                      ""_CNTERR(2)"
^XMB(3.9,91,2,1033,0)="""RTN"",""PRPFDR3"",67,0)"
^XMB(3.9,91,2,1034,0)=" D SEG"
^XMB(3.9,91,2,1035,0)="""RTN"",""PRPFDR3"",68,0)"
^XMB(3.9,91,2,1036,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)="" #3     SSN             SSN is blank                                    ""_CNTERR(3)"
^XMB(3.9,91,2,1037,0)="""RTN"",""PRPFDR3"",69,0)"
^XMB(3.9,91,2,1038,0)=" D SEG"
^XMB(3.9,91,2,1039,0)="""RTN"",""PRPFDR3"",70,0)"
^XMB(3.9,91,2,1040,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)="" #4     SSN             SSN contains invalid data                       ""_CNTERR(4)"
^XMB(3.9,91,2,1041,0)="""RTN"",""PRPFDR3"",71,0)"
^XMB(3.9,91,2,1042,0)=" D SEG"
^XMB(3.9,91,2,1043,0)="""RTN"",""PRPFDR3"",72,0)"
^XMB(3.9,91,2,1044,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)="" #5     SSN             SSN contains duplicate value                    ""_CNTERR(5)"
^XMB(3.9,91,2,1045,0)="""RTN"",""PRPFDR3"",73,0)"
^XMB(3.9,91,2,1046,0)=" D SEG"
^XMB(3.9,91,2,1047,0)="""RTN"",""PRPFDR3"",74,0)"
^XMB(3.9,91,2,1048,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)="" #6     SSN             SSN contains Pseudo SSN value                   ""_CNTRPSU"
^XMB(3.9,91,2,1049,0)="""RTN"",""PRPFDR3"",75,0)"
^XMB(3.9,91,2,1050,0)=" D SEG"
^XMB(3.9,91,2,1051,0)="""RTN"",""PRPFDR3"",76,0)"
^XMB(3.9,91,2,1052,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)="" #7     DOB             DOB is blank                                    ""_CNTERR(7)"
^XMB(3.9,91,2,1053,0)="""RTN"",""PRPFDR3"",77,0)"
^XMB(3.9,91,2,1054,0)=" D SEG"
^XMB(3.9,91,2,1055,0)="""RTN"",""PRPFDR3"",78,0)"
^XMB(3.9,91,2,1056,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)="" #8     DOB             DOB contains invalid date                       ""_CNTERR(8)"
^XMB(3.9,91,2,1057,0)="""RTN"",""PRPFDR3"",79,0)"
^XMB(3.9,91,2,1058,0)=" D SEG"
^XMB(3.9,91,2,1059,0)="""RTN"",""PRPFDR3"",80,0)"
^XMB(3.9,91,2,1060,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)="" #9     WARD            Ward loc invalid length                         ""_CNTERR(9)"
^XMB(3.9,91,2,1061,0)="""RTN"",""PRPFDR3"",81,0)"
^XMB(3.9,91,2,1062,0)=" D SEG"
^XMB(3.9,91,2,1063,0)="""RTN"",""PRPFDR3"",82,0)"
^XMB(3.9,91,2,1064,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)="" #10    CLAIM           Claim # contains invalid data                   ""_CNTERR(10)"
^XMB(3.9,91,2,1065,0)="""RTN"",""PRPFDR3"",83,0)"
^XMB(3.9,91,2,1066,0)=" D SEG"
^XMB(3.9,91,2,1067,0)="""RTN"",""PRPFDR3"",84,0)"
^XMB(3.9,91,2,1068,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)="" #11    ZIP             Zipcode contains invalid data                   ""_CNTERR(11)"
^XMB(3.9,91,2,1069,0)="""RTN"",""PRPFDR3"",85,0)"
^XMB(3.9,91,2,1070,0)=" D SEG"
^XMB(3.9,91,2,1071,0)="""RTN"",""PRPFDR3"",86,0)"
^XMB(3.9,91,2,1072,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)="" #12    REGION OFFICE   Regional Office ID invalid data                 ""_CNTERR(12)"
^XMB(3.9,91,2,1073,0)="""RTN"",""PRPFDR3"",87,0)"
^XMB(3.9,91,2,1074,0)=" D SEG"
^XMB(3.9,91,2,1075,0)="""RTN"",""PRPFDR3"",88,0)"
^XMB(3.9,91,2,1076,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)="" #13    ICN             ICN Duplicate                                   ""_CNTERR(13)"
^XMB(3.9,91,2,1077,0)="""RTN"",""PRPFDR3"",89,0)"
^XMB(3.9,91,2,1078,0)=" D SEG"
^XMB(3.9,91,2,1079,0)="""RTN"",""PRPFDR3"",90,0)"
^XMB(3.9,91,2,1080,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)="" #14    ICN             ICN unassigned or invalid                       ""_CNTERR(14)"
^XMB(3.9,91,2,1081,0)="""RTN"",""PRPFDR3"",91,0)"
^XMB(3.9,91,2,1082,0)=" D SEG"
^XMB(3.9,91,2,1083,0)="""RTN"",""PRPFDR3"",92,0)"
^XMB(3.9,91,2,1084,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)="" #15    PROVIDER AUTHR  Provider Name contains invalid data             ""_CNTERR(15)"
^XMB(3.9,91,2,1085,0)="""RTN"",""PRPFDR3"",93,0)"
^XMB(3.9,91,2,1086,0)=" D SEG"
^XMB(3.9,91,2,1087,0)="""RTN"",""PRPFDR3"",94,0)"
^XMB(3.9,91,2,1088,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#16    PROVID AUTH DT  Date of current restriction invalid date        ""_CNTERR(16)"
^XMB(3.9,91,2,1089,0)="""RTN"",""PRPFDR3"",95,0)"
^XMB(3.9,91,2,1090,0)=" D SEG"
^XMB(3.9,91,2,1091,0)="""RTN"",""PRPFDR3"",96,0)"
^XMB(3.9,91,2,1092,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#17    NO DEMO REC     No demographic record for account               ""_CNTERR(17)"
^XMB(3.9,91,2,1093,0)="""RTN"",""PRPFDR3"",97,0)"
^XMB(3.9,91,2,1094,0)=" D SEG"
^XMB(3.9,91,2,1095,0)="""RTN"",""PRPFDR3"",98,0)"
^XMB(3.9,91,2,1096,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#18    ACCOUNT STATUS  Account status not (A),I,Blank=""_PRPFBC18_$P(""      "","" "",1,6-$L(PRPFBC18))_""            ""_CNTERR(18)"
^XMB(3.9,91,2,1097,0)="""RTN"",""PRPFDR3"",99,0)"
^XMB(3.9,91,2,1098,0)=" D SEG"
^XMB(3.9,91,2,1099,0)="""RTN"",""PRPFDR3"",100,0)"
^XMB(3.9,91,2,1100,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#19    PATIENT TYPE    Patient type not L,R,(U),X,Blank=""_PRPFBC19_$P(""      "","" "",1,8-$L(PRPFBC19))_""        ""_CNTERR(19)"
^XMB(3.9,91,2,1101,0)="""RTN"",""PRPFDR3"",101,0)"
^XMB(3.9,91,2,1102,0)=" D SEG"
^XMB(3.9,91,2,1103,0)="""RTN"",""PRPFDR3"",102,0)"
^XMB(3.9,91,2,1104,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#20    PAT TYPE/PHY    Patient type L or R without Phy name            ""_CNTERR(20)"
^XMB(3.9,91,2,1105,0)="""RTN"",""PRPFDR3"",103,0)"
^XMB(3.9,91,2,1106,0)=" D SEG"
^XMB(3.9,91,2,1107,0)="""RTN"",""PRPFDR3"",104,0)"
^XMB(3.9,91,2,1108,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#21    PATIENT STATUS  Patient Status not A,R,C,N,(X),Blank=""_PRPFBC21_$P(""      "","" "",1,6-$L(PRPFBC21))_""      ""_CNTERR(21)"
^XMB(3.9,91,2,1109,0)="""RTN"",""PRPFDR3"",105,0)"
^XMB(3.9,91,2,1110,0)=" D SEG"
^XMB(3.9,91,2,1111,0)="""RTN"",""PRPFDR3"",106,0)"
^XMB(3.9,91,2,1112,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#22    INDIGENT        Indigent status not (N),Y,Blank=""_PRPFBC22_$P(""      "","" "",1,6-$L(PRPFBC22))_""           ""_CNTERR(22)"
^XMB(3.9,91,2,1113,0)="""RTN"",""PRPFDR3"",107,0)"
^XMB(3.9,91,2,1114,0)=" D SEG"
^XMB(3.9,91,2,1115,0)="""RTN"",""PRPFDR3"",108,0)"
^XMB(3.9,91,2,1116,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#23    APPORTIONEE $   Apportionee amount invalid or < $0 or > $99,999 ""_CNTERR(23)"
^XMB(3.9,91,2,1117,0)="""RTN"",""PRPFDR3"",109,0)"
^XMB(3.9,91,2,1118,0)=" D SEG"
^XMB(3.9,91,2,1119,0)="""RTN"",""PRPFDR3"",110,0)"
^XMB(3.9,91,2,1120,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#24    GUARDIAN $      Guardian amount invalid or < $0 or > $99,999    ""_CNTERR(24)"
^XMB(3.9,91,2,1121,0)="""RTN"",""PRPFDR3"",111,0)"
^XMB(3.9,91,2,1122,0)=" D SEG"
^XMB(3.9,91,2,1123,0)="""RTN"",""PRPFDR3"",112,0)"
^XMB(3.9,91,2,1124,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#25    INSTITUT AWARD  Institut award invalid or < $0 or > $99,999     ""_CNTERR(25)"
^XMB(3.9,91,2,1125,0)="""RTN"",""PRPFDR3"",113,0)"
^XMB(3.9,91,2,1126,0)=" D SEG"
^XMB(3.9,91,2,1127,0)="""RTN"",""PRPFDR3"",114,0)"
^XMB(3.9,91,2,1128,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#26    OTHER ASSETS    Other assets invalid or < $0 or > $99,999       ""_CNTERR(26)"
^XMB(3.9,91,2,1129,0)="""RTN"",""PRPFDR3"",115,0)"
^XMB(3.9,91,2,1130,0)=" D SEG"
^XMB(3.9,91,2,1131,0)="""RTN"",""PRPFDR3"",116,0)"
^XMB(3.9,91,2,1132,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#27    STORED BALANCE  Stored balance invalid or < $0 or > $99,999     ""_CNTERR(27)"
^XMB(3.9,91,2,1133,0)="""RTN"",""PRPFDR3"",117,0)"
^XMB(3.9,91,2,1134,0)=" D SEG"
^XMB(3.9,91,2,1135,0)="""RTN"",""PRPFDR3"",118,0)"
^XMB(3.9,91,2,1136,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#28    STORED PRIVATE  Stored private invalid or < $0 or > $99,999     ""_CNTERR(28)"
^XMB(3.9,91,2,1137,0)="""RTN"",""PRPFDR3"",119,0)"
^XMB(3.9,91,2,1138,0)=" D SEG"
^XMB(3.9,91,2,1139,0)="""RTN"",""PRPFDR3"",120,0)"
^XMB(3.9,91,2,1140,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#29    STORED GRATUIT  Stored gratuitous invalid or < $0 or > $99,999  ""_CNTERR(29)"
^XMB(3.9,91,2,1141,0)="""RTN"",""PRPFDR3"",121,0)"
^XMB(3.9,91,2,1142,0)=" D SEG"
^XMB(3.9,91,2,1143,0)="""RTN"",""PRPFDR3"",122,0)"
^XMB(3.9,91,2,1144,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#30    RESTRCT MONTH   Restricted Monthly invalid or < $0 or > $99,999 ""_CNTERR(30)"
^XMB(3.9,91,2,1145,0)="""RTN"",""PRPFDR3"",123,0)"
^XMB(3.9,91,2,1146,0)=" D SEG"
^XMB(3.9,91,2,1147,0)="""RTN"",""PRPFDR3"",124,0)"
^XMB(3.9,91,2,1148,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#31    RESTRCT WEEKLY  Restricted Weekly invalid or < $0 or > $99,999  ""_CNTERR(31)"
^XMB(3.9,91,2,1149,0)="""RTN"",""PRPFDR3"",125,0)"
^XMB(3.9,91,2,1150,0)=" D SEG"
^XMB(3.9,91,2,1151,0)="""RTN"",""PRPFDR3"",126,0)"
^XMB(3.9,91,2,1152,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#32    RESTRCT AMT ER  Restrict Mnthly amount > (5X) weekly amt        ""_CNTERR(32)"
^XMB(3.9,91,2,1153,0)="""RTN"",""PRPFDR3"",127,0)"
^XMB(3.9,91,2,1154,0)=" D SEG"
^XMB(3.9,91,2,1155,0)="""RTN"",""PRPFDR3"",128,0)"
^XMB(3.9,91,2,1156,0)=" D XSUM1^PRPFDR6"
^XMB(3.9,91,2,1157,0)="""RTN"",""PRPFDR3"",129,0)"
^XMB(3.9,91,2,1158,0)=" Q"
^XMB(3.9,91,2,1159,0)="""RTN"",""PRPFDR4"")"
^XMB(3.9,91,2,1160,0)="0^4^B33333935"
^XMB(3.9,91,2,1161,0)="""RTN"",""PRPFDR4"",1,0)"
^XMB(3.9,91,2,1162,0)="PRPFDR4 ;BAYPINES/MJE  VPFS DATA MIGRATION ROUTINE 4 ;05/15/03"
^XMB(3.9,91,2,1163,0)="""RTN"",""PRPFDR4"",2,0)"
^XMB(3.9,91,2,1164,0)=" ;;3.0;PATIENT FUNDS DIAG V5.9;**15**;JUNE 1, 1989"
^XMB(3.9,91,2,1165,0)="""RTN"",""PRPFDR4"",3,0)"
^XMB(3.9,91,2,1166,0)=" ;BAD ENTRY POINT"
^XMB(3.9,91,2,1167,0)="""RTN"",""PRPFDR4"",4,0)"
^XMB(3.9,91,2,1168,0)=" Q"
^XMB(3.9,91,2,1169,0)="""RTN"",""PRPFDR4"",5,0)"
^XMB(3.9,91,2,1170,0)="NODE1 S PFNODE1=$G(^PRPF(470,PRPFHLD1,1))"
^XMB(3.9,91,2,1171,0)="""RTN"",""PRPFDR4"",6,0)"
^XMB(3.9,91,2,1172,0)=" S PFSTDBAL=$P(PFNODE1,""^"",4)"
^XMB(3.9,91,2,1173,0)="""RTN"",""PRPFDR4"",7,0)"
^XMB(3.9,91,2,1174,0)=" I PFSTDBAL>0 S CNTBAL=CNTBAL+PFSTDBAL"
^XMB(3.9,91,2,1175,0)="""RTN"",""PRPFDR4"",8,0)"
^XMB(3.9,91,2,1176,0)=" I PFSTDBAL'="""" I PFSTDBAL<0!(PFSTDBAL>99999)!((PFSTDBAL'=+PFSTDBAL)&(PFSTDBAL'?.N1""."".N)) D"
^XMB(3.9,91,2,1177,0)="""RTN"",""PRPFDR4"",9,0)"
^XMB(3.9,91,2,1178,0)=" .S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,27,PFNAME_""_""_PRPFHLD1)=""STORED BALANCE^Stored balance invalid or out of range either < $0 or > $99,999^""_PFSTDBAL"
^XMB(3.9,91,2,1179,0)="""RTN"",""PRPFDR4"",10,0)"
^XMB(3.9,91,2,1180,0)=" .S CNTERR(27)=CNTERR(27)+1"
^XMB(3.9,91,2,1181,0)="""RTN"",""PRPFDR4"",11,0)"
^XMB(3.9,91,2,1182,0)=" .S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1183,0)="""RTN"",""PRPFDR4"",12,0)"
^XMB(3.9,91,2,1184,0)=" S PFSTDPVT=$P(PFNODE1,""^"",5)"
^XMB(3.9,91,2,1185,0)="""RTN"",""PRPFDR4"",13,0)"
^XMB(3.9,91,2,1186,0)=" I PFSTDPVT'="""" I PFSTDPVT<0!(PFSTDPVT>99999)!((PFSTDPVT'=+PFSTDPVT)&(PFSTDPVT'?.N1""."".N)) D"
^XMB(3.9,91,2,1187,0)="""RTN"",""PRPFDR4"",14,0)"
^XMB(3.9,91,2,1188,0)=" .S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,28,PFNAME_""_""_PRPFHLD1)=""STORED PRIVATE SOURCE^Stored private invalid or out of range either < $0 or > $99,999^""_PFSTDPVT"
^XMB(3.9,91,2,1189,0)="""RTN"",""PRPFDR4"",15,0)"
^XMB(3.9,91,2,1190,0)=" .S CNTERR(28)=CNTERR(28)+1"
^XMB(3.9,91,2,1191,0)="""RTN"",""PRPFDR4"",16,0)"
^XMB(3.9,91,2,1192,0)=" .S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1193,0)="""RTN"",""PRPFDR4"",17,0)"
^XMB(3.9,91,2,1194,0)=" S PFSTDGRT=$P(PFNODE1,""^"",6)"
^XMB(3.9,91,2,1195,0)="""RTN"",""PRPFDR4"",18,0)"
^XMB(3.9,91,2,1196,0)=" I PFSTDGRT'="""" I PFSTDGRT<0!(PFSTDGRT>99999)!((PFSTDGRT'=+PFSTDGRT)&(PFSTDGRT'?.N1""."".N)) D"
^XMB(3.9,91,2,1197,0)="""RTN"",""PRPFDR4"",19,0)"
^XMB(3.9,91,2,1198,0)=" .S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,29,PFNAME_""_""_PRPFHLD1)=""STORED GRATUITOUS^Stored gratuitous invalid or out of range either < $0 or > $99,999^""_PFSTDGRT"
^XMB(3.9,91,2,1199,0)="""RTN"",""PRPFDR4"",20,0)"
^XMB(3.9,91,2,1200,0)=" .S CNTERR(29)=CNTERR(29)+1"
^XMB(3.9,91,2,1201,0)="""RTN"",""PRPFDR4"",21,0)"
^XMB(3.9,91,2,1202,0)=" .S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1203,0)="""RTN"",""PRPFDR4"",22,0)"
^XMB(3.9,91,2,1204,0)=" S PFARPM=$P(PFNODE1,""^"",7)"
^XMB(3.9,91,2,1205,0)="""RTN"",""PRPFDR4"",23,0)"
^XMB(3.9,91,2,1206,0)=" I PFARPM'="""" I PFARPM<0!(PFARPM>99999)!((PFARPM'=+PFARPM)&(PFARPM'?.N1""."".N)) D"
^XMB(3.9,91,2,1207,0)="""RTN"",""PRPFDR4"",24,0)"
^XMB(3.9,91,2,1208,0)=" .S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,30,PFNAME_""_""_PRPFHLD1)=""RESTRICTED AMOUNT^Restricted monthly amount invalid or < $0 or > $99,999^""_PFARPM"
^XMB(3.9,91,2,1209,0)="""RTN"",""PRPFDR4"",25,0)"
^XMB(3.9,91,2,1210,0)=" .S CNTERR(30)=CNTERR(30)+1"
^XMB(3.9,91,2,1211,0)="""RTN"",""PRPFDR4"",26,0)"
^XMB(3.9,91,2,1212,0)=" .S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1213,0)="""RTN"",""PRPFDR4"",27,0)"
^XMB(3.9,91,2,1214,0)=" S PFARPW=$P(PFNODE1,""^"",8)"
^XMB(3.9,91,2,1215,0)="""RTN"",""PRPFDR4"",28,0)"
^XMB(3.9,91,2,1216,0)=" I PFARPW'="""" I PFARPW<0!(PFARPW>99999)!((PFARPW'=+PFARPW)&(PFARPW'?.N1""."".N)) D"
^XMB(3.9,91,2,1217,0)="""RTN"",""PRPFDR4"",29,0)"
^XMB(3.9,91,2,1218,0)=" .S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,31,PFNAME_""_""_PRPFHLD1)=""RESTRICTED AMOUNT^Restricted weekly amount invalid or < $0 or > $99,999^""_PFARPW"
^XMB(3.9,91,2,1219,0)="""RTN"",""PRPFDR4"",30,0)"
^XMB(3.9,91,2,1220,0)=" .S CNTERR(31)=CNTERR(31)+1"
^XMB(3.9,91,2,1221,0)="""RTN"",""PRPFDR4"",31,0)"
^XMB(3.9,91,2,1222,0)=" .S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1223,0)="""RTN"",""PRPFDR4"",32,0)"
^XMB(3.9,91,2,1224,0)=" I PFARPW'=""""&(PFARPM'="""") I PFARPM<(5*PFARPW) D"
^XMB(3.9,91,2,1225,0)="""RTN"",""PRPFDR4"",33,0)"
^XMB(3.9,91,2,1226,0)=" .S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,32,PFNAME_""_""_PRPFHLD1)=""RESTRCT AMT ER^Restrict Mnthly amount < (5X) weekly amt^""_PFARPM"
^XMB(3.9,91,2,1227,0)="""RTN"",""PRPFDR4"",34,0)"
^XMB(3.9,91,2,1228,0)=" .S CNTERR(32)=CNTERR(32)+1"
^XMB(3.9,91,2,1229,0)="""RTN"",""PRPFDR4"",35,0)"
^XMB(3.9,91,2,1230,0)=" .S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1231,0)="""RTN"",""PRPFDR4"",36,0)"
^XMB(3.9,91,2,1232,0)=" I PFARPW'=""""&(PFARPM'="""") I PFARPM<PFARPW D"
^XMB(3.9,91,2,1233,0)="""RTN"",""PRPFDR4"",37,0)"
^XMB(3.9,91,2,1234,0)=" .S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,33,PFNAME_""_""_PRPFHLD1)=""RESTRCT AMT ER^Restrict Mnthly amount < weekly amt^""_PFARPM"
^XMB(3.9,91,2,1235,0)="""RTN"",""PRPFDR4"",38,0)"
^XMB(3.9,91,2,1236,0)=" .S CNTERR(33)=CNTERR(33)+1"
^XMB(3.9,91,2,1237,0)="""RTN"",""PRPFDR4"",39,0)"
^XMB(3.9,91,2,1238,0)=" .S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1239,0)="""RTN"",""PRPFDR4"",40,0)"
^XMB(3.9,91,2,1240,0)=" Q"
^XMB(3.9,91,2,1241,0)="""RTN"",""PRPFDR4"",41,0)"
^XMB(3.9,91,2,1242,0)="NODE1X S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,36,PFNAME_""_""_PRPFHLD1)=""NO BALANCE REC^BALANCE RECORD DATA MISSING^""_PFNAME"
^XMB(3.9,91,2,1243,0)="""RTN"",""PRPFDR4"",42,0)"
^XMB(3.9,91,2,1244,0)=" S CNTERR(36)=CNTERR(36)+1"
^XMB(3.9,91,2,1245,0)="""RTN"",""PRPFDR4"",43,0)"
^XMB(3.9,91,2,1246,0)=" S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1247,0)="""RTN"",""PRPFDR4"",44,0)"
^XMB(3.9,91,2,1248,0)=" Q"
^XMB(3.9,91,2,1249,0)="""RTN"",""PRPFDR4"",45,0)"
^XMB(3.9,91,2,1250,0)="NODE2 S PFNODE2=^PRPF(470,PRPFHLD1,2)"
^XMB(3.9,91,2,1251,0)="""RTN"",""PRPFDR4"",46,0)"
^XMB(3.9,91,2,1252,0)=" S PFMIN1=$P(PFNODE2,""^"",1)"
^XMB(3.9,91,2,1253,0)="""RTN"",""PRPFDR4"",47,0)"
^XMB(3.9,91,2,1254,0)=" I PFMIN1'="""" I PFMIN1<0!(PFMIN1>99999)!((PFMIN1'=+PFMIN1)&(PFMIN1'?.N1""."".N)) D"
^XMB(3.9,91,2,1255,0)="""RTN"",""PRPFDR4"",48,0)"
^XMB(3.9,91,2,1256,0)=" .S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,34,PFNAME_""_""_PRPFHLD1)=""MINIMUM BALANCE #1^MIN balance invalid or out of range either < $0 or > $99,999^""_PFMIN1"
^XMB(3.9,91,2,1257,0)="""RTN"",""PRPFDR4"",49,0)"
^XMB(3.9,91,2,1258,0)=" .S CNTERR(34)=CNTERR(34)+1"
^XMB(3.9,91,2,1259,0)="""RTN"",""PRPFDR4"",50,0)"
^XMB(3.9,91,2,1260,0)=" .S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1261,0)="""RTN"",""PRPFDR4"",51,0)"
^XMB(3.9,91,2,1262,0)=" S PFMAX1=$P(PFNODE2,""^"",2)"
^XMB(3.9,91,2,1263,0)="""RTN"",""PRPFDR4"",52,0)"
^XMB(3.9,91,2,1264,0)=" I PFMAX1'="""" I PFMAX1<0!(PFMAX1>99999)!((PFMAX1'=+PFMAX1)&(PFMAX1'?.N1""."".N)) D"
^XMB(3.9,91,2,1265,0)="""RTN"",""PRPFDR4"",53,0)"
^XMB(3.9,91,2,1266,0)=" .S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,35,PFNAME_""_""_PRPFHLD1)=""MAXIMUM BALANCE #1^MAX balance invalid or out of range either < $0 or > $99,999^""_PFMAX1"
^XMB(3.9,91,2,1267,0)="""RTN"",""PRPFDR4"",54,0)"
^XMB(3.9,91,2,1268,0)=" .S CNTERR(35)=CNTERR(35)+1"
^XMB(3.9,91,2,1269,0)="""RTN"",""PRPFDR4"",55,0)"
^XMB(3.9,91,2,1270,0)=" .S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1271,0)="""RTN"",""PRPFDR4"",56,0)"
^XMB(3.9,91,2,1272,0)=" Q"
^XMB(3.9,91,2,1273,0)="""RTN"",""PRPFDR4"",57,0)"
^XMB(3.9,91,2,1274,0)="NODE6 S PRPFHLD2=0"
^XMB(3.9,91,2,1275,0)="""RTN"",""PRPFDR4"",58,0)"
^XMB(3.9,91,2,1276,0)=" S (PFMCTR1,PFMCTR2,PFMCTR3)=1"
^XMB(3.9,91,2,1277,0)="""RTN"",""PRPFDR4"",59,0)"
^XMB(3.9,91,2,1278,0)=" S PFMCTR1=1"
^XMB(3.9,91,2,1279,0)="""RTN"",""PRPFDR4"",60,0)"
^XMB(3.9,91,2,1280,0)=" F  S PRPFHLD2=$O(^PRPF(470,PRPFHLD1,6,PRPFHLD2)) Q:'PRPFHLD2  D"
^XMB(3.9,91,2,1281,0)="""RTN"",""PRPFDR4"",61,0)"
^XMB(3.9,91,2,1282,0)=" .S PFNODE6=^PRPF(470,PRPFHLD1,6,PRPFHLD2,0)"
^XMB(3.9,91,2,1283,0)="""RTN"",""PRPFDR4"",62,0)"
^XMB(3.9,91,2,1284,0)=" .S PFINCPYE=$P(PFNODE6,""^"",2)"
^XMB(3.9,91,2,1285,0)="""RTN"",""PRPFDR4"",63,0)"
^XMB(3.9,91,2,1286,0)=" .I PFINCPYE="""" D"
^XMB(3.9,91,2,1287,0)="""RTN"",""PRPFDR4"",64,0)"
^XMB(3.9,91,2,1288,0)=" ..S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,37,PFNAME_""_""_PRPFHLD1_""_""_""Inc#""_PRPFHLD2)=""INCOME PAYEE^Income payee blank, Income source present^""_PFINCPYE"
^XMB(3.9,91,2,1289,0)="""RTN"",""PRPFDR4"",65,0)"
^XMB(3.9,91,2,1290,0)=" ..S PFMCTR1=PFMCTR1+1"
^XMB(3.9,91,2,1291,0)="""RTN"",""PRPFDR4"",66,0)"
^XMB(3.9,91,2,1292,0)=" ..S CNTERR(37)=CNTERR(37)+1"
^XMB(3.9,91,2,1293,0)="""RTN"",""PRPFDR4"",67,0)"
^XMB(3.9,91,2,1294,0)=" ..S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1295,0)="""RTN"",""PRPFDR4"",68,0)"
^XMB(3.9,91,2,1296,0)=" .S PFINCOME=$P(PFNODE6,""^"",3)"
^XMB(3.9,91,2,1297,0)="""RTN"",""PRPFDR4"",69,0)"
^XMB(3.9,91,2,1298,0)=" .I +PFINCOME'=PFINCOME&(PFINCOME'?.N1""."".N) D"
^XMB(3.9,91,2,1299,0)="""RTN"",""PRPFDR4"",70,0)"
^XMB(3.9,91,2,1300,0)=" ..S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,38,PFNAME_""_""_PRPFHLD1_""_""_""Inc#""_PRPFHLD2)=""INCOME AMOUNT^Invalid income amount, Income source present^""_PFINCOME"
^XMB(3.9,91,2,1301,0)="""RTN"",""PRPFDR4"",71,0)"
^XMB(3.9,91,2,1302,0)=" ..S PFMCTR2=PFMCTR2+1"
^XMB(3.9,91,2,1303,0)="""RTN"",""PRPFDR4"",72,0)"
^XMB(3.9,91,2,1304,0)=" ..S CNTERR(38)=CNTERR(38)+1"
^XMB(3.9,91,2,1305,0)="""RTN"",""PRPFDR4"",73,0)"
^XMB(3.9,91,2,1306,0)=" ..S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1307,0)="""RTN"",""PRPFDR4"",74,0)"
^XMB(3.9,91,2,1308,0)=" .I +PFINCOME=PFINCOME I PFINCOME<1!(PFINCOME>99999) D"
^XMB(3.9,91,2,1309,0)="""RTN"",""PRPFDR4"",75,0)"
^XMB(3.9,91,2,1310,0)=" ..S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,39,PFNAME_""_""_PRPFHLD1_""_""_""Inc#""_PRPFHLD2)=""INCOME AMOUNT^Income amount out of range either < $1 or > $99,999^""_PFINCOME"
^XMB(3.9,91,2,1311,0)="""RTN"",""PRPFDR4"",76,0)"
^XMB(3.9,91,2,1312,0)=" ..S CNTERR(39)=CNTERR(39)+1"
^XMB(3.9,91,2,1313,0)="""RTN"",""PRPFDR4"",77,0)"
^XMB(3.9,91,2,1314,0)=" ..S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1315,0)="""RTN"",""PRPFDR4"",78,0)"
^XMB(3.9,91,2,1316,0)=" .S PFINCFRQ=$P(PFNODE6,""^"",4)"
^XMB(3.9,91,2,1317,0)="""RTN"",""PRPFDR4"",79,0)"
^XMB(3.9,91,2,1318,0)=" .I PFINCFRQ="""" D"
^XMB(3.9,91,2,1319,0)="""RTN"",""PRPFDR4"",80,0)"
^XMB(3.9,91,2,1320,0)=" ..S PRPFBC40=PRPFBC40+1"
^XMB(3.9,91,2,1321,0)="""RTN"",""PRPFDR4"",81,0)"
^XMB(3.9,91,2,1322,0)=" .I PFINCFRQ'[""D""&(PFINCFRQ'[""W"")&(PFINCFRQ'[""M"")&(PFINCFRQ'[""Y"")&(PFINCFRQ'[""X"")&(PFINCFRQ'[""V"")&(PFINCFRQ'[""O"")&(PFINCFRQ'="""") D"
^XMB(3.9,91,2,1323,0)="""RTN"",""PRPFDR4"",82,0)"
^XMB(3.9,91,2,1324,0)=" ..S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,40,PFNAME_""_""_PRPFHLD1_""_""_""Inc#""_PRPFHLD2)=""INCOME FREQUENCY^Income frequency not D,W,M,Y,X,V,O,Blank^""_PFINCFRQ"
^XMB(3.9,91,2,1325,0)="""RTN"",""PRPFDR4"",83,0)"
^XMB(3.9,91,2,1326,0)=" ..S PFMCTR3=PFMCTR3+1"
^XMB(3.9,91,2,1327,0)="""RTN"",""PRPFDR4"",84,0)"
^XMB(3.9,91,2,1328,0)=" ..S CNTERR(40)=CNTERR(40)+1"
^XMB(3.9,91,2,1329,0)="""RTN"",""PRPFDR4"",85,0)"
^XMB(3.9,91,2,1330,0)=" ..S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1331,0)="""RTN"",""PRPFDR4"",86,0)"
^XMB(3.9,91,2,1332,0)=" Q"
^XMB(3.9,91,2,1333,0)="""RTN"",""PRPFDR4"",87,0)"
^XMB(3.9,91,2,1334,0)="KILLIT ;VARIABLES KILLED HERE"
^XMB(3.9,91,2,1335,0)="""RTN"",""PRPFDR4"",88,0)"
^XMB(3.9,91,2,1336,0)=" K CNTBAL,CNTERR,CNTREC,CNTRPSU,CNTSEG,CNTTOT,ND,PARAMS,PFADDR1,PFADDR2"
^XMB(3.9,91,2,1337,0)="""RTN"",""PRPFDR4"",89,0)"
^XMB(3.9,91,2,1338,0)=" K PFADDR3,PFAPPOR,PFARPM,PFARPW,PFAUTH,PFAUTHDT,PFAUTHRS,PFCITY,PFCLAIM,PFDOB"
^XMB(3.9,91,2,1339,0)="""RTN"",""PRPFDR4"",90,0)"
^XMB(3.9,91,2,1340,0)=" K PFG,PFGUARD,PFICNFLG,PFINCFRQ,PFINCOME,PFINCPYE,PFINDIG,PFINSAWD,PFMAX1,PFMCTR1"
^XMB(3.9,91,2,1341,0)="""RTN"",""PRPFDR4"",91,0)"
^XMB(3.9,91,2,1342,0)=" K PFMCTR2,PFMCTR3,PFMIN1,PFNAME,PFNAMEX,PFNODE0,PFNODE1,PFNODE2,PFNODE4,PFNODE4D"
^XMB(3.9,91,2,1343,0)="""RTN"",""PRPFDR4"",92,0)"
^XMB(3.9,91,2,1344,0)=" K PFNODE4X,PFNODE5,PFNODE51,PFNODE52,PFNODE6,PFNODE7,PFNODE8,PFOTRAST,PFPSTAT"
^XMB(3.9,91,2,1345,0)="""RTN"",""PRPFDR4"",93,0)"
^XMB(3.9,91,2,1346,0)=" K PFRGNID,PFSITE,PFSSN,PFSTAID,PFSTAT,PFSTATE,PFSTDBAL,PFSTDGRT,PFSTDPVT,PFSUSDT"
^XMB(3.9,91,2,1347,0)="""RTN"",""PRPFDR4"",94,0)"
^XMB(3.9,91,2,1348,0)=" K PFSUSID,PFSUSTXT,PFTDT,PFTDTE,PFTEMP,PFTYPE,PFWARD,PFX,PFY,PFZ,PFZIP,POP,PRPFBADD"
^XMB(3.9,91,2,1349,0)="""RTN"",""PRPFDR4"",95,0)"
^XMB(3.9,91,2,1350,0)=" K PRPFBBAL,PRPFBDMO,PRPFCNTR,PRPFDEFR,PRPFHLD1,PRPFHLD2,PRPFHLD3,PRPFHLD4,PRPFSEG"
^XMB(3.9,91,2,1351,0)="""RTN"",""PRPFDR4"",96,0)"
^XMB(3.9,91,2,1352,0)=" K X,XION"
^XMB(3.9,91,2,1353,0)="""RTN"",""PRPFDR4"",97,0)"
^XMB(3.9,91,2,1354,0)=" Q"
^XMB(3.9,91,2,1355,0)="""RTN"",""PRPFDR5"")"
^XMB(3.9,91,2,1356,0)="0^5^B63996018"
^XMB(3.9,91,2,1357,0)="""RTN"",""PRPFDR5"",1,0)"
^XMB(3.9,91,2,1358,0)="PRPFDR5 ;BAYPINES/MJE  VPFS DATA MIGRATION ROUTINE 5 ;05/15/03"
^XMB(3.9,91,2,1359,0)="""RTN"",""PRPFDR5"",2,0)"
^XMB(3.9,91,2,1360,0)=" ;;3.0;PATIENT FUNDS DIAG V5.9;**15**;JUNE 1, 1989"
^XMB(3.9,91,2,1361,0)="""RTN"",""PRPFDR5"",3,0)"
^XMB(3.9,91,2,1362,0)=" ;BAD ENTRY POINT"
^XMB(3.9,91,2,1363,0)="""RTN"",""PRPFDR5"",4,0)"
^XMB(3.9,91,2,1364,0)=" Q"
^XMB(3.9,91,2,1365,0)="""RTN"",""PRPFDR5"",5,0)"
^XMB(3.9,91,2,1366,0)="NODE0 S PFNODE0=^PRPF(470,PRPFHLD1,0)"
^XMB(3.9,91,2,1367,0)="""RTN"",""PRPFDR5"",6,0)"
^XMB(3.9,91,2,1368,0)=" S PFNAMEX="""""
^XMB(3.9,91,2,1369,0)="""RTN"",""PRPFDR5"",7,0)"
^XMB(3.9,91,2,1370,0)=" S PFNAMEX=PFNAME"
^XMB(3.9,91,2,1371,0)="""RTN"",""PRPFDR5"",8,0)"
^XMB(3.9,91,2,1372,0)=" I PFNAME=""""!($E(PFNAME,1,12)=""NAME-MISSING"") D"
^XMB(3.9,91,2,1373,0)="""RTN"",""PRPFDR5"",9,0)"
^XMB(3.9,91,2,1374,0)=" .S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,1,PFNAME_""_""_PRPFHLD1)=""NAME^Name is blank^""_PFNAME"
^XMB(3.9,91,2,1375,0)="""RTN"",""PRPFDR5"",10,0)"
^XMB(3.9,91,2,1376,0)=" .S CNTERR(1)=CNTERR(1)+1"
^XMB(3.9,91,2,1377,0)="""RTN"",""PRPFDR5"",11,0)"
^XMB(3.9,91,2,1378,0)=" .S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1379,0)="""RTN"",""PRPFDR5"",12,0)"
^XMB(3.9,91,2,1380,0)=" ELSE  I $$FORMAT^XLFNAME7(PFNAMEX,3,30)'=PFNAMEX D"
^XMB(3.9,91,2,1381,0)="""RTN"",""PRPFDR5"",13,0)"
^XMB(3.9,91,2,1382,0)=" .S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,2,PFNAME_""_""_PRPFHLD1)=""NAME^Patient Name contains invalid data^""_PFNAME"
^XMB(3.9,91,2,1383,0)="""RTN"",""PRPFDR5"",14,0)"
^XMB(3.9,91,2,1384,0)=" .S CNTERR(2)=CNTERR(2)+1"
^XMB(3.9,91,2,1385,0)="""RTN"",""PRPFDR5"",15,0)"
^XMB(3.9,91,2,1386,0)=" .S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1387,0)="""RTN"",""PRPFDR5"",16,0)"
^XMB(3.9,91,2,1388,0)=" I PFSSN="""" D"
^XMB(3.9,91,2,1389,0)="""RTN"",""PRPFDR5"",17,0)"
^XMB(3.9,91,2,1390,0)=" .S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,3,PFNAME_""_""_PRPFHLD1)=""SSN^SSN is blank^""_PFSSN"
^XMB(3.9,91,2,1391,0)="""RTN"",""PRPFDR5"",18,0)"
^XMB(3.9,91,2,1392,0)=" .S CNTERR(3)=CNTERR(3)+1"
^XMB(3.9,91,2,1393,0)="""RTN"",""PRPFDR5"",19,0)"
^XMB(3.9,91,2,1394,0)=" .S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1395,0)="""RTN"",""PRPFDR5"",20,0)"
^XMB(3.9,91,2,1396,0)=" I PFSSN'="""" D"
^XMB(3.9,91,2,1397,0)="""RTN"",""PRPFDR5"",21,0)"
^XMB(3.9,91,2,1398,0)=" .I $L(PFSSN)<9!($L(PFSSN)>10) D"
^XMB(3.9,91,2,1399,0)="""RTN"",""PRPFDR5"",22,0)"
^XMB(3.9,91,2,1400,0)=" ..S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,4,PFNAME_""_""_PRPFHLD1)=""SSN^SSN that is not 9 digits or has non-numeric values^""_PFSSN"
^XMB(3.9,91,2,1401,0)="""RTN"",""PRPFDR5"",23,0)"
^XMB(3.9,91,2,1402,0)=" ..S CNTERR(4)=CNTERR(4)+1"
^XMB(3.9,91,2,1403,0)="""RTN"",""PRPFDR5"",24,0)"
^XMB(3.9,91,2,1404,0)=" ..S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1405,0)="""RTN"",""PRPFDR5"",25,0)"
^XMB(3.9,91,2,1406,0)=" .I $L(PFSSN)=9 D"
^XMB(3.9,91,2,1407,0)="""RTN"",""PRPFDR5"",26,0)"
^XMB(3.9,91,2,1408,0)=" ..I '(PFSSN?.9N) D"
^XMB(3.9,91,2,1409,0)="""RTN"",""PRPFDR5"",27,0)"
^XMB(3.9,91,2,1410,0)=" ...S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,4.1,PFNAME_""_""_PRPFHLD1)=""SSN^SSN that is not 9 digits or has non-numeric values^""_PFSSN"
^XMB(3.9,91,2,1411,0)="""RTN"",""PRPFDR5"",28,0)"
^XMB(3.9,91,2,1412,0)=" ...S CNTERR(4)=CNTERR(4)+1"
^XMB(3.9,91,2,1413,0)="""RTN"",""PRPFDR5"",29,0)"
^XMB(3.9,91,2,1414,0)=" ...S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1415,0)="""RTN"",""PRPFDR5"",30,0)"
^XMB(3.9,91,2,1416,0)=" .I $L(PFSSN)=10 D"
^XMB(3.9,91,2,1417,0)="""RTN"",""PRPFDR5"",31,0)"
^XMB(3.9,91,2,1418,0)=" ..I ($E(PFSSN,1,9)?.9N)&($E(PFSSN,10,10)=""P"") D"
^XMB(3.9,91,2,1419,0)="""RTN"",""PRPFDR5"",32,0)"
^XMB(3.9,91,2,1420,0)=" ...S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,6,PFNAME_""_""_PRPFHLD1)=""SSN^PSEUDO SSN value^""_PFSSN"
^XMB(3.9,91,2,1421,0)="""RTN"",""PRPFDR5"",33,0)"
^XMB(3.9,91,2,1422,0)=" ...S CNTRPSU=CNTRPSU+1"
^XMB(3.9,91,2,1423,0)="""RTN"",""PRPFDR5"",34,0)"
^XMB(3.9,91,2,1424,0)=" ..I '($E(PFSSN,1,9)?.9N)!($E(PFSSN,10,10)'=""P"") D"
^XMB(3.9,91,2,1425,0)="""RTN"",""PRPFDR5"",35,0)"
^XMB(3.9,91,2,1426,0)=" ...S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,4.2,PFNAME_""_""_PRPFHLD1)=""SSN^SSN that is not 9 digits or has non-numeric values^""_PFSSN"
^XMB(3.9,91,2,1427,0)="""RTN"",""PRPFDR5"",36,0)"
^XMB(3.9,91,2,1428,0)=" ...S CNTERR(4)=CNTERR(4)+1"
^XMB(3.9,91,2,1429,0)="""RTN"",""PRPFDR5"",37,0)"
^XMB(3.9,91,2,1430,0)=" ...S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1431,0)="""RTN"",""PRPFDR5"",38,0)"
^XMB(3.9,91,2,1432,0)=" I PFSSN'="""" D"
^XMB(3.9,91,2,1433,0)="""RTN"",""PRPFDR5"",39,0)"
^XMB(3.9,91,2,1434,0)=" .I $D(^TMP(""PRPF_DIAGX"",$J,""PFSSN"",PFSSN)) D"
^XMB(3.9,91,2,1435,0)="""RTN"",""PRPFDR5"",40,0)"
^XMB(3.9,91,2,1436,0)=" ..S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,5,PFNAME_""_""_PRPFHLD1)=""SSN^SSN duplicate value^""_PFSSN"
^XMB(3.9,91,2,1437,0)="""RTN"",""PRPFDR5"",41,0)"
^XMB(3.9,91,2,1438,0)=" ..S CNTERR(5)=CNTERR(5)+1"
^XMB(3.9,91,2,1439,0)="""RTN"",""PRPFDR5"",42,0)"
^XMB(3.9,91,2,1440,0)=" ..S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1441,0)="""RTN"",""PRPFDR5"",43,0)"
^XMB(3.9,91,2,1442,0)=" .S ^TMP(""PRPF_DIAGX"",$J,""PFSSN"",PFSSN)=PFSSN"
^XMB(3.9,91,2,1443,0)="""RTN"",""PRPFDR5"",44,0)"
^XMB(3.9,91,2,1444,0)=" I PFDOB="""" D"
^XMB(3.9,91,2,1445,0)="""RTN"",""PRPFDR5"",45,0)"
^XMB(3.9,91,2,1446,0)=" .S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,7,PFNAME_""_""_PRPFHLD1)=""DOB^DOB blank^""_PFDOB"
^XMB(3.9,91,2,1447,0)="""RTN"",""PRPFDR5"",46,0)"
^XMB(3.9,91,2,1448,0)=" .S CNTERR(7)=CNTERR(7)+1"
^XMB(3.9,91,2,1449,0)="""RTN"",""PRPFDR5"",47,0)"
^XMB(3.9,91,2,1450,0)=" .S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1451,0)="""RTN"",""PRPFDR5"",48,0)"
^XMB(3.9,91,2,1452,0)=" ELSE  D"
^XMB(3.9,91,2,1453,0)="""RTN"",""PRPFDR5"",49,0)"
^XMB(3.9,91,2,1454,0)=" .K PRPFBADD"
^XMB(3.9,91,2,1455,0)="""RTN"",""PRPFDR5"",50,0)"
^XMB(3.9,91,2,1456,0)=" .D DT^DILF(""X"",PFDOB,.PRPFBADD)"
^XMB(3.9,91,2,1457,0)="""RTN"",""PRPFDR5"",51,0)"
^XMB(3.9,91,2,1458,0)=" .I $L(+PFDOB)'=7!(PRPFBADD=-1) D"
^XMB(3.9,91,2,1459,0)="""RTN"",""PRPFDR5"",52,0)"
^XMB(3.9,91,2,1460,0)=" ..S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,8,PFNAME_""_""_PRPFHLD1)=""DOB^DOB contains invalid date^""_PFDOB"
^XMB(3.9,91,2,1461,0)="""RTN"",""PRPFDR5"",53,0)"
^XMB(3.9,91,2,1462,0)=" ..S CNTERR(8)=CNTERR(8)+1"
^XMB(3.9,91,2,1463,0)="""RTN"",""PRPFDR5"",54,0)"
^XMB(3.9,91,2,1464,0)=" ..S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1465,0)="""RTN"",""PRPFDR5"",55,0)"
^XMB(3.9,91,2,1466,0)=" I PFWARD'="""" I $L(PFWARD)>30!($L(PFWARD)<2) D"
^XMB(3.9,91,2,1467,0)="""RTN"",""PRPFDR5"",56,0)"
^XMB(3.9,91,2,1468,0)=" .S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,9,PFNAME_""_""_PRPFHLD1)=""WARD^Ward loc invalid length not 2 TO 30^""_PFWARD"
^XMB(3.9,91,2,1469,0)="""RTN"",""PRPFDR5"",57,0)"
^XMB(3.9,91,2,1470,0)=" .S CNTERR(9)=CNTERR(9)+1"
^XMB(3.9,91,2,1471,0)="""RTN"",""PRPFDR5"",58,0)"
^XMB(3.9,91,2,1472,0)=" .S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1473,0)="""RTN"",""PRPFDR5"",59,0)"
^XMB(3.9,91,2,1474,0)=" I PFCLAIM=""""!(PFCLAIM=""SS"") D"
^XMB(3.9,91,2,1475,0)="""RTN"",""PRPFDR5"",60,0)"
^XMB(3.9,91,2,1476,0)=" .;S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,8,PFNAME_""_""_PRPFHLD1)=""CLAIM#^Claim # blank^""_PFCLAIM"
^XMB(3.9,91,2,1477,0)="""RTN"",""PRPFDR5"",61,0)"
^XMB(3.9,91,2,1478,0)=" .;S CNTERR(8)=CNTERR(8)+1"
^XMB(3.9,91,2,1479,0)="""RTN"",""PRPFDR5"",62,0)"
^XMB(3.9,91,2,1480,0)=" .;S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1481,0)="""RTN"",""PRPFDR5"",63,0)"
^XMB(3.9,91,2,1482,0)=" ELSE  I $L(PFCLAIM)<7!($L(PFCLAIM)>9)!'(PFCLAIM?.N) D"
^XMB(3.9,91,2,1483,0)="""RTN"",""PRPFDR5"",64,0)"
^XMB(3.9,91,2,1484,0)=" .S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,10,PFNAME_""_""_PRPFHLD1)=""CLAIM#^Claim # < 7 or > 9 digits or non-numeric^""_PFCLAIM"
^XMB(3.9,91,2,1485,0)="""RTN"",""PRPFDR5"",65,0)"
^XMB(3.9,91,2,1486,0)=" .S CNTERR(10)=CNTERR(10)+1"
^XMB(3.9,91,2,1487,0)="""RTN"",""PRPFDR5"",66,0)"
^XMB(3.9,91,2,1488,0)=" .S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1489,0)="""RTN"",""PRPFDR5"",67,0)"
^XMB(3.9,91,2,1490,0)=" I PFSTATE="""" D"
^XMB(3.9,91,2,1491,0)="""RTN"",""PRPFDR5"",68,0)"
^XMB(3.9,91,2,1492,0)=" .;S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,10,PFNAME_""_""_PRPFHLD1)=""STATE^STATE field is blank^""_PFSTATE"
^XMB(3.9,91,2,1493,0)="""RTN"",""PRPFDR5"",69,0)"
^XMB(3.9,91,2,1494,0)=" .;S CNTERR(10)=CNTERR(10)+1"
^XMB(3.9,91,2,1495,0)="""RTN"",""PRPFDR5"",70,0)"
^XMB(3.9,91,2,1496,0)=" .;S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1497,0)="""RTN"",""PRPFDR5"",71,0)"
^XMB(3.9,91,2,1498,0)=" I PFZIP="""" D"
^XMB(3.9,91,2,1499,0)="""RTN"",""PRPFDR5"",72,0)"
^XMB(3.9,91,2,1500,0)=" .;S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,11,PFNAME_""_""_PRPFHLD1)=""ZIPCODE#^ZIPCODE blank^""_PFZIP"
^XMB(3.9,91,2,1501,0)="""RTN"",""PRPFDR5"",73,0)"
^XMB(3.9,91,2,1502,0)=" .;S CNTERR(11)=CNTERR(11)+1"
^XMB(3.9,91,2,1503,0)="""RTN"",""PRPFDR5"",74,0)"
^XMB(3.9,91,2,1504,0)=" .;S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1505,0)="""RTN"",""PRPFDR5"",75,0)"
^XMB(3.9,91,2,1506,0)=" ELSE  I $L(PFZIP)>5!($L(PFZIP)<5)!'(PFZIP?5N) D"
^XMB(3.9,91,2,1507,0)="""RTN"",""PRPFDR5"",76,0)"
^XMB(3.9,91,2,1508,0)=" .S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,11,PFNAME_""_""_PRPFHLD1)=""ZIPCODE#^ZIPCODE < or > 5 digits or non-numeric^""_PFZIP"
^XMB(3.9,91,2,1509,0)="""RTN"",""PRPFDR5"",77,0)"
^XMB(3.9,91,2,1510,0)=" .S CNTERR(11)=CNTERR(11)+1"
^XMB(3.9,91,2,1511,0)="""RTN"",""PRPFDR5"",78,0)"
^XMB(3.9,91,2,1512,0)=" .S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1513,0)="""RTN"",""PRPFDR5"",79,0)"
^XMB(3.9,91,2,1514,0)=" S PFRGNID="""""
^XMB(3.9,91,2,1515,0)="""RTN"",""PRPFDR5"",80,0)"
^XMB(3.9,91,2,1516,0)=" S PFICNFLG=$$GETICN^MPIF001(PRPFHLD1)"
^XMB(3.9,91,2,1517,0)="""RTN"",""PRPFDR5"",81,0)"
^XMB(3.9,91,2,1518,0)=" I +PFICNFLG'=-1 D"
^XMB(3.9,91,2,1519,0)="""RTN"",""PRPFDR5"",82,0)"
^XMB(3.9,91,2,1520,0)=" .I $D(^TMP(""PRPF_DIAGX"",$J,""PFICN"",+PFICNFLG)) D"
^XMB(3.9,91,2,1521,0)="""RTN"",""PRPFDR5"",83,0)"
^XMB(3.9,91,2,1522,0)=" ..S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,13,PFNAME_""_""_PRPFHLD1)=""ICN^ICN Duplicate^""_PFICNFLG"
^XMB(3.9,91,2,1523,0)="""RTN"",""PRPFDR5"",84,0)"
^XMB(3.9,91,2,1524,0)=" ..S CNTERR(13)=CNTERR(13)+1"
^XMB(3.9,91,2,1525,0)="""RTN"",""PRPFDR5"",85,0)"
^XMB(3.9,91,2,1526,0)=" ..S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1527,0)="""RTN"",""PRPFDR5"",86,0)"
^XMB(3.9,91,2,1528,0)=" .S ^TMP(""PRPF_DIAGX"",$J,""PFICN"",+PFICNFLG)=PFICNFLG"
^XMB(3.9,91,2,1529,0)="""RTN"",""PRPFDR5"",87,0)"
^XMB(3.9,91,2,1530,0)=" I +PFICNFLG=-1 D"
^XMB(3.9,91,2,1531,0)="""RTN"",""PRPFDR5"",88,0)"
^XMB(3.9,91,2,1532,0)=" .S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,14,PFNAME_""_""_PRPFHLD1)=""ICN^ICN Unassigned or invalid^""_$P(PFICNFLG,""^"",2)"
^XMB(3.9,91,2,1533,0)="""RTN"",""PRPFDR5"",89,0)"
^XMB(3.9,91,2,1534,0)=" .S CNTERR(14)=CNTERR(14)+1"
^XMB(3.9,91,2,1535,0)="""RTN"",""PRPFDR5"",90,0)"
^XMB(3.9,91,2,1536,0)=" .S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1537,0)="""RTN"",""PRPFDR5"",91,0)"
^XMB(3.9,91,2,1538,0)=" .;S PRPFBJOB=$$MPIQQ^MPIFAPI(PRPFHLD1)"
^XMB(3.9,91,2,1539,0)="""RTN"",""PRPFDR5"",92,0)"
^XMB(3.9,91,2,1540,0)=" S (PFAUTHRS,PFNAMEX)="""""
^XMB(3.9,91,2,1541,0)="""RTN"",""PRPFDR5"",93,0)"
^XMB(3.9,91,2,1542,0)=" I PFAUTH'="""" D"
^XMB(3.9,91,2,1543,0)="""RTN"",""PRPFDR5"",94,0)"
^XMB(3.9,91,2,1544,0)=" .S (PFAUTHRS,PFNAMEX)=$P($G(^VA(200,PFAUTH,0)),""^"",1)"
^XMB(3.9,91,2,1545,0)="""RTN"",""PRPFDR5"",95,0)"
^XMB(3.9,91,2,1546,0)=" .I $$FORMAT^XLFNAME7(PFNAMEX,3,30)'=PFNAMEX!('$D(^VA(200,PFAUTH,0))) D"
^XMB(3.9,91,2,1547,0)="""RTN"",""PRPFDR5"",96,0)"
^XMB(3.9,91,2,1548,0)=" ..S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,15,PFNAME_""_""_PRPFHLD1)=""PFAUTHRS^Provider name contains invalid data^""_PFAUTHRS"
^XMB(3.9,91,2,1549,0)="""RTN"",""PRPFDR5"",97,0)"
^XMB(3.9,91,2,1550,0)=" ..S CNTERR(15)=CNTERR(15)+1"
^XMB(3.9,91,2,1551,0)="""RTN"",""PRPFDR5"",98,0)"
^XMB(3.9,91,2,1552,0)=" ..S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1553,0)="""RTN"",""PRPFDR5"",99,0)"
^XMB(3.9,91,2,1554,0)=" S PFAUTHDT=$P(^PRPF(470,PRPFHLD1,0),""^"",12)"
^XMB(3.9,91,2,1555,0)="""RTN"",""PRPFDR5"",100,0)"
^XMB(3.9,91,2,1556,0)=" I PFAUTHDT'="""" D"
^XMB(3.9,91,2,1557,0)="""RTN"",""PRPFDR5"",101,0)"
^XMB(3.9,91,2,1558,0)=" .K PRPFBADD"
^XMB(3.9,91,2,1559,0)="""RTN"",""PRPFDR5"",102,0)"
^XMB(3.9,91,2,1560,0)=" .D DT^DILF(""X"",PFAUTHDT,.PRPFBADD)"
^XMB(3.9,91,2,1561,0)="""RTN"",""PRPFDR5"",103,0)"
^XMB(3.9,91,2,1562,0)=" .I $L(+PFAUTHDT)'=7!(PRPFBADD=-1) D"
^XMB(3.9,91,2,1563,0)="""RTN"",""PRPFDR5"",104,0)"
^XMB(3.9,91,2,1564,0)=" ..S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,16,PFNAME_""_""_PRPFHLD1)=""PROVAUTHDT^Date of current restriction contains invalid date^""_PFAUTHDT"
^XMB(3.9,91,2,1565,0)="""RTN"",""PRPFDR5"",105,0)"
^XMB(3.9,91,2,1566,0)=" ..S CNTERR(16)=CNTERR(16)+1"
^XMB(3.9,91,2,1567,0)="""RTN"",""PRPFDR5"",106,0)"
^XMB(3.9,91,2,1568,0)=" ..S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1569,0)="""RTN"",""PRPFDR5"",107,0)"
^XMB(3.9,91,2,1570,0)=" S PFSTAT=$P(PFNODE0,""^"",2)"
^XMB(3.9,91,2,1571,0)="""RTN"",""PRPFDR5"",108,0)"
^XMB(3.9,91,2,1572,0)=" I PFSTAT="""" D"
^XMB(3.9,91,2,1573,0)="""RTN"",""PRPFDR5"",109,0)"
^XMB(3.9,91,2,1574,0)=" .S PRPFBC18=PRPFBC18+1"
^XMB(3.9,91,2,1575,0)="""RTN"",""PRPFDR5"",110,0)"
^XMB(3.9,91,2,1576,0)=" I PFSTAT'[""A""&(PFSTAT'[""I"")&(PFSTAT'="""") D"
^XMB(3.9,91,2,1577,0)="""RTN"",""PRPFDR5"",111,0)"
^XMB(3.9,91,2,1578,0)=" .S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,18,PFNAME_""_""_PRPFHLD1)=""ACCOUNT STATUS^Account status containing values other than A or I^""_PFSTAT"
^XMB(3.9,91,2,1579,0)="""RTN"",""PRPFDR5"",112,0)"
^XMB(3.9,91,2,1580,0)=" .S CNTERR(18)=CNTERR(18)+1"
^XMB(3.9,91,2,1581,0)="""RTN"",""PRPFDR5"",113,0)"
^XMB(3.9,91,2,1582,0)=" .S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1583,0)="""RTN"",""PRPFDR5"",114,0)"
^XMB(3.9,91,2,1584,0)=" S PFTYPE=$P(PFNODE0,""^"",3)"
^XMB(3.9,91,2,1585,0)="""RTN"",""PRPFDR5"",115,0)"
^XMB(3.9,91,2,1586,0)=" I PFTYPE="""" D"
^XMB(3.9,91,2,1587,0)="""RTN"",""PRPFDR5"",116,0)"
^XMB(3.9,91,2,1588,0)=" .S PRPFBC19=PRPFBC19+1"
^XMB(3.9,91,2,1589,0)="""RTN"",""PRPFDR5"",117,0)"
^XMB(3.9,91,2,1590,0)=" I PFTYPE'[""L""&(PFTYPE'[""R"")&(PFTYPE'[""U"")&(PFTYPE'[""X"")&(PFTYPE'="""") D"
^XMB(3.9,91,2,1591,0)="""RTN"",""PRPFDR5"",118,0)"
^XMB(3.9,91,2,1592,0)=" .S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,19,PFNAME_""_""_PRPFHLD1)=""PATIENT TYPE^Patient type values other than L, R, U, X^""_PFTYPE"
^XMB(3.9,91,2,1593,0)="""RTN"",""PRPFDR5"",119,0)"
^XMB(3.9,91,2,1594,0)=" .S CNTERR(19)=CNTERR(19)+1"
^XMB(3.9,91,2,1595,0)="""RTN"",""PRPFDR5"",120,0)"
^XMB(3.9,91,2,1596,0)=" .S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1597,0)="""RTN"",""PRPFDR5"",121,0)"
^XMB(3.9,91,2,1598,0)=" I (PFAUTH=""""&(PFTYPE=""L""))!(PFAUTH=""""&(PFTYPE=""R"")) D"
^XMB(3.9,91,2,1599,0)="""RTN"",""PRPFDR5"",122,0)"
^XMB(3.9,91,2,1600,0)=" .S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,20,PFNAME_""_""_PRPFHLD1)=""PATIENT TYPE/PHY^No Physician name for L or R^""_PFTYPE"
^XMB(3.9,91,2,1601,0)="""RTN"",""PRPFDR5"",123,0)"
^XMB(3.9,91,2,1602,0)=" .S CNTERR(20)=CNTERR(20)+1"
^XMB(3.9,91,2,1603,0)="""RTN"",""PRPFDR5"",124,0)"
^XMB(3.9,91,2,1604,0)=" .S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1605,0)="""RTN"",""PRPFDR5"",125,0)"
^XMB(3.9,91,2,1606,0)=" S PFPSTAT=$P(PFNODE0,""^"",4)"
^XMB(3.9,91,2,1607,0)="""RTN"",""PRPFDR5"",126,0)"
^XMB(3.9,91,2,1608,0)=" I PFPSTAT="""" D"
^XMB(3.9,91,2,1609,0)="""RTN"",""PRPFDR5"",127,0)"
^XMB(3.9,91,2,1610,0)=" .S PRPFBC21=PRPFBC21+1"
^XMB(3.9,91,2,1611,0)="""RTN"",""PRPFDR5"",128,0)"
^XMB(3.9,91,2,1612,0)=" I PFPSTAT'[""A""&(PFPSTAT'[""R"")&(PFPSTAT'[""C"")&(PFPSTAT'[""N"")&(PFPSTAT'[""X"")&(PFPSTAT'="""") D"
^XMB(3.9,91,2,1613,0)="""RTN"",""PRPFDR5"",129,0)"
^XMB(3.9,91,2,1614,0)=" .S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,21,PFNAME_""_""_PRPFHLD1)=""PATIENT STATUS^Patient status values other than A, R, C, N, X^""_PFPSTAT"
^XMB(3.9,91,2,1615,0)="""RTN"",""PRPFDR5"",130,0)"
^XMB(3.9,91,2,1616,0)=" .S CNTERR(21)=CNTERR(21)+1"
^XMB(3.9,91,2,1617,0)="""RTN"",""PRPFDR5"",131,0)"
^XMB(3.9,91,2,1618,0)=" .S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1619,0)="""RTN"",""PRPFDR5"",132,0)"
^XMB(3.9,91,2,1620,0)=" S PFINDIG=$P(PFNODE0,""^"",5)"
^XMB(3.9,91,2,1621,0)="""RTN"",""PRPFDR5"",133,0)"
^XMB(3.9,91,2,1622,0)=" I PFINDIG="""" D"
^XMB(3.9,91,2,1623,0)="""RTN"",""PRPFDR5"",134,0)"
^XMB(3.9,91,2,1624,0)=" .S PRPFBC22=PRPFBC22+1"
^XMB(3.9,91,2,1625,0)="""RTN"",""PRPFDR5"",135,0)"
^XMB(3.9,91,2,1626,0)=" I PFINDIG'[""Y""&(PFINDIG'[""N"")&(PFINDIG'="""") D"
^XMB(3.9,91,2,1627,0)="""RTN"",""PRPFDR5"",136,0)"
^XMB(3.9,91,2,1628,0)=" .S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,22,PFNAME_""_""_PRPFHLD1)=""INDIGENT^Indigent indicator values other than Y, N^""_PFINDIG"
^XMB(3.9,91,2,1629,0)="""RTN"",""PRPFDR5"",137,0)"
^XMB(3.9,91,2,1630,0)=" .S CNTERR(22)=CNTERR(22)+1"
^XMB(3.9,91,2,1631,0)="""RTN"",""PRPFDR5"",138,0)"
^XMB(3.9,91,2,1632,0)=" .S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1633,0)="""RTN"",""PRPFDR5"",139,0)"
^XMB(3.9,91,2,1634,0)=" S PFAPPOR=$P(PFNODE0,""^"",6)"
^XMB(3.9,91,2,1635,0)="""RTN"",""PRPFDR5"",140,0)"
^XMB(3.9,91,2,1636,0)=" I PFAPPOR'="""" I PFAPPOR<0!(PFAPPOR>99999)!((PFAPPOR'=+PFAPPOR)&(PFAPPOR'?.N1""."".N)) D"
^XMB(3.9,91,2,1637,0)="""RTN"",""PRPFDR5"",141,0)"
^XMB(3.9,91,2,1638,0)=" .S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,23,PFNAME_""_""_PRPFHLD1)=""APPORTIONEE $^Apportionee amount invalid or out of range either < 0 or > $99,999.00^""_PFAPPOR"
^XMB(3.9,91,2,1639,0)="""RTN"",""PRPFDR5"",142,0)"
^XMB(3.9,91,2,1640,0)=" .S CNTERR(23)=CNTERR(23)+1"
^XMB(3.9,91,2,1641,0)="""RTN"",""PRPFDR5"",143,0)"
^XMB(3.9,91,2,1642,0)=" .S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1643,0)="""RTN"",""PRPFDR5"",144,0)"
^XMB(3.9,91,2,1644,0)=" S PFGUARD=$P(PFNODE0,""^"",7)"
^XMB(3.9,91,2,1645,0)="""RTN"",""PRPFDR5"",145,0)"
^XMB(3.9,91,2,1646,0)=" I PFGUARD'="""" I PFGUARD<0!(PFGUARD>99999)!((PFGUARD'=+PFGUARD)&(PFGUARD'?.N1""."".N)) D"
^XMB(3.9,91,2,1647,0)="""RTN"",""PRPFDR5"",146,0)"
^XMB(3.9,91,2,1648,0)=" .S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,24,PFNAME_""_""_PRPFHLD1)=""GUARDIAN $^Guardian amount invalid or out of range either < 0 or > $99,999.00^""_PFGUARD"
^XMB(3.9,91,2,1649,0)="""RTN"",""PRPFDR5"",147,0)"
^XMB(3.9,91,2,1650,0)=" .S CNTERR(24)=CNTERR(24)+1"
^XMB(3.9,91,2,1651,0)="""RTN"",""PRPFDR5"",148,0)"
^XMB(3.9,91,2,1652,0)=" .S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1653,0)="""RTN"",""PRPFDR5"",149,0)"
^XMB(3.9,91,2,1654,0)=" S PFINSAWD=$P(PFNODE0,""^"",8)"
^XMB(3.9,91,2,1655,0)="""RTN"",""PRPFDR5"",150,0)"
^XMB(3.9,91,2,1656,0)=" I PFINSAWD'="""" I PFINSAWD<0!(PFINSAWD>99999)!((PFINSAWD'=+PFINSAWD)&(PFINSAWD'?.N1""."".N)) D"
^XMB(3.9,91,2,1657,0)="""RTN"",""PRPFDR5"",151,0)"
^XMB(3.9,91,2,1658,0)=" .S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,25,PFNAME_""_""_PRPFHLD1)=""INSTITUTIONAL AWARD^Institutional award invalid or out of range either < 0 or > $99,999.00^""_PFINSAWD"
^XMB(3.9,91,2,1659,0)="""RTN"",""PRPFDR5"",152,0)"
^XMB(3.9,91,2,1660,0)=" .S CNTERR(25)=CNTERR(25)+1"
^XMB(3.9,91,2,1661,0)="""RTN"",""PRPFDR5"",153,0)"
^XMB(3.9,91,2,1662,0)=" .S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1663,0)="""RTN"",""PRPFDR5"",154,0)"
^XMB(3.9,91,2,1664,0)=" S PFOTRAST=$P(PFNODE0,""^"",10)"
^XMB(3.9,91,2,1665,0)="""RTN"",""PRPFDR5"",155,0)"
^XMB(3.9,91,2,1666,0)=" I PFOTRAST'="""" I PFOTRAST<0!(PFOTRAST>99999)!((PFOTRAST'=+PFOTRAST)&(PFOTRAST'?.N1""."".N)) D"
^XMB(3.9,91,2,1667,0)="""RTN"",""PRPFDR5"",156,0)"
^XMB(3.9,91,2,1668,0)=" .S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,26,PFNAME_""_""_PRPFHLD1)=""OTHER ASSETS^Other assets invalid or out of range either < 0 or > $99,999.00^""_PFOTRAST"
^XMB(3.9,91,2,1669,0)="""RTN"",""PRPFDR5"",157,0)"
^XMB(3.9,91,2,1670,0)=" .S CNTERR(26)=CNTERR(26)+1"
^XMB(3.9,91,2,1671,0)="""RTN"",""PRPFDR5"",158,0)"
^XMB(3.9,91,2,1672,0)=" .S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1673,0)="""RTN"",""PRPFDR5"",159,0)"
^XMB(3.9,91,2,1674,0)=" Q"
^XMB(3.9,91,2,1675,0)="""RTN"",""PRPFDR5"",160,0)"
^XMB(3.9,91,2,1676,0)="NODE0X S ^TMP(""PRPF_DIAGX"",$J,PFSTAID,17,PFNAME_""_""_PRPFHLD1)=""NO DEMO RECORD^No demographic record for account^""_PFNAME"
^XMB(3.9,91,2,1677,0)="""RTN"",""PRPFDR5"",161,0)"
^XMB(3.9,91,2,1678,0)=" S CNTERR(17)=CNTERR(17)+1"
^XMB(3.9,91,2,1679,0)="""RTN"",""PRPFDR5"",162,0)"
^XMB(3.9,91,2,1680,0)=" S CNTERR(100)=CNTERR(100)+1"
^XMB(3.9,91,2,1681,0)="""RTN"",""PRPFDR5"",163,0)"
^XMB(3.9,91,2,1682,0)=" Q"
^XMB(3.9,91,2,1683,0)="""RTN"",""PRPFDR6"")"
^XMB(3.9,91,2,1684,0)="0^6^B32913557"
^XMB(3.9,91,2,1685,0)="""RTN"",""PRPFDR6"",1,0)"
^XMB(3.9,91,2,1686,0)="PRPFDR6 ;BAYPINES/MJE  VPFS DATA MIGRATION ROUTINE 6 ;05/15/03"
^XMB(3.9,91,2,1687,0)="""RTN"",""PRPFDR6"",2,0)"
^XMB(3.9,91,2,1688,0)=" ;;3.0;PATIENT FUNDS DIAG V5.9;**15**;JUNE 1, 1989"
^XMB(3.9,91,2,1689,0)="""RTN"",""PRPFDR6"",3,0)"
^XMB(3.9,91,2,1690,0)=" ;ENTRY AT LINETAG ONLY"
^XMB(3.9,91,2,1691,0)="""RTN"",""PRPFDR6"",4,0)"
^XMB(3.9,91,2,1692,0)=" Q"
^XMB(3.9,91,2,1693,0)="""RTN"",""PRPFDR6"",5,0)"
^XMB(3.9,91,2,1694,0)="XSUM1 ;THIS ENTRY POINT FOR SUMMARY INFO"
^XMB(3.9,91,2,1695,0)="""RTN"",""PRPFDR6"",6,0)"
^XMB(3.9,91,2,1696,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#33    RESTRCT AMT ER  Restrict Mnthly amount < weekly amt             ""_CNTERR(33)"
^XMB(3.9,91,2,1697,0)="""RTN"",""PRPFDR6"",7,0)"
^XMB(3.9,91,2,1698,0)=" D SEG^PRPFDR3"
^XMB(3.9,91,2,1699,0)="""RTN"",""PRPFDR6"",8,0)"
^XMB(3.9,91,2,1700,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#34    MINIMUM BAL     Minimum balance #1 invalid or < $0 or > $99,999 ""_CNTERR(34)"
^XMB(3.9,91,2,1701,0)="""RTN"",""PRPFDR6"",9,0)"
^XMB(3.9,91,2,1702,0)=" D SEG^PRPFDR3"
^XMB(3.9,91,2,1703,0)="""RTN"",""PRPFDR6"",10,0)"
^XMB(3.9,91,2,1704,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#35    MAXIMUM BAL     Maximum balance #1 invalid or < $0 or > $99,999 ""_CNTERR(35)"
^XMB(3.9,91,2,1705,0)="""RTN"",""PRPFDR6"",11,0)"
^XMB(3.9,91,2,1706,0)=" D SEG^PRPFDR3"
^XMB(3.9,91,2,1707,0)="""RTN"",""PRPFDR6"",12,0)"
^XMB(3.9,91,2,1708,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#36    NO BALANCE REC  Balance record missing for account              ""_CNTERR(36)"
^XMB(3.9,91,2,1709,0)="""RTN"",""PRPFDR6"",13,0)"
^XMB(3.9,91,2,1710,0)=" D SEG^PRPFDR3"
^XMB(3.9,91,2,1711,0)="""RTN"",""PRPFDR6"",14,0)"
^XMB(3.9,91,2,1712,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#37    INCOME PAYEE    Income payee blank, Income source present       ""_CNTERR(37)"
^XMB(3.9,91,2,1713,0)="""RTN"",""PRPFDR6"",15,0)"
^XMB(3.9,91,2,1714,0)=" D SEG^PRPFDR3"
^XMB(3.9,91,2,1715,0)="""RTN"",""PRPFDR6"",16,0)"
^XMB(3.9,91,2,1716,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#38    INCOME AMOUNT   Income amount error, Income source present      ""_CNTERR(38)"
^XMB(3.9,91,2,1717,0)="""RTN"",""PRPFDR6"",17,0)"
^XMB(3.9,91,2,1718,0)=" D SEG^PRPFDR3"
^XMB(3.9,91,2,1719,0)="""RTN"",""PRPFDR6"",18,0)"
^XMB(3.9,91,2,1720,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#39    INCOME AMOUNT   Income amount < $1 or > $99,999                 ""_CNTERR(39)"
^XMB(3.9,91,2,1721,0)="""RTN"",""PRPFDR6"",19,0)"
^XMB(3.9,91,2,1722,0)=" D SEG^PRPFDR3"
^XMB(3.9,91,2,1723,0)="""RTN"",""PRPFDR6"",20,0)"
^XMB(3.9,91,2,1724,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#40    INCOME FREQCY   Income frequency not D,W,M,Y,X,V,O,Blank=""_PRPFBC40_$P(""      "","" "",1,6-$L(PRPFBC40))_""  ""_CNTERR(40)"
^XMB(3.9,91,2,1725,0)="""RTN"",""PRPFDR6"",21,0)"
^XMB(3.9,91,2,1726,0)=" D SEG^PRPFDR3"
^XMB(3.9,91,2,1727,0)="""RTN"",""PRPFDR6"",22,0)"
^XMB(3.9,91,2,1728,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#41    STATION ID      Station ID blank or unassigned                  ""_CNTERR(41)"
^XMB(3.9,91,2,1729,0)="""RTN"",""PRPFDR6"",23,0)"
^XMB(3.9,91,2,1730,0)=" D SEG^PRPFDR3"
^XMB(3.9,91,2,1731,0)="""RTN"",""PRPFDR6"",24,0)"
^XMB(3.9,91,2,1732,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)="" #42    STATION ID      Station ID invalid                              ""_CNTERR(42)"
^XMB(3.9,91,2,1733,0)="""RTN"",""PRPFDR6"",25,0)"
^XMB(3.9,91,2,1734,0)=" D SEG^PRPFDR3"
^XMB(3.9,91,2,1735,0)="""RTN"",""PRPFDR6"",26,0)"
^XMB(3.9,91,2,1736,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#43    SUSPENSE DATE   Suspense date has invalid date                  ""_CNTERR(43)"
^XMB(3.9,91,2,1737,0)="""RTN"",""PRPFDR6"",27,0)"
^XMB(3.9,91,2,1738,0)=" D SEG^PRPFDR3"
^XMB(3.9,91,2,1739,0)="""RTN"",""PRPFDR6"",28,0)"
^XMB(3.9,91,2,1740,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#44    SUSPENSE ID     Suspense ID has Invalid data                    ""_CNTERR(44)"
^XMB(3.9,91,2,1741,0)="""RTN"",""PRPFDR6"",29,0)"
^XMB(3.9,91,2,1742,0)=" D SEG^PRPFDR3"
^XMB(3.9,91,2,1743,0)="""RTN"",""PRPFDR6"",30,0)"
^XMB(3.9,91,2,1744,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#45    SUSPENSE TEXT   Suspense text is < 1 or > 255 characters        ""_CNTERR(45)"
^XMB(3.9,91,2,1745,0)="""RTN"",""PRPFDR6"",31,0)"
^XMB(3.9,91,2,1746,0)=" D SEG^PRPFDR3"
^XMB(3.9,91,2,1747,0)="""RTN"",""PRPFDR6"",32,0)"
^XMB(3.9,91,2,1748,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#46    DEFERRED TRANS  There are ""_PRPFDEFR_"" deferred transactions               ""_PRPFDEFR"
^XMB(3.9,91,2,1749,0)="""RTN"",""PRPFDR6"",33,0)"
^XMB(3.9,91,2,1750,0)=" D SEG^PRPFDR3"
^XMB(3.9,91,2,1751,0)="""RTN"",""PRPFDR6"",34,0)"
^XMB(3.9,91,2,1752,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#47    TRANSACTION REC Transaction record missing, blank or ID invalid ""_CNTERR(47)"
^XMB(3.9,91,2,1753,0)="""RTN"",""PRPFDR6"",35,0)"
^XMB(3.9,91,2,1754,0)=" D SEG^PRPFDR3"
^XMB(3.9,91,2,1755,0)="""RTN"",""PRPFDR6"",36,0)"
^XMB(3.9,91,2,1756,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#48    PATIENT NAME    Patient name does not match deferred trans      ""_CNTERR(48)"
^XMB(3.9,91,2,1757,0)="""RTN"",""PRPFDR6"",37,0)"
^XMB(3.9,91,2,1758,0)=" D SEG^PRPFDR3"
^XMB(3.9,91,2,1759,0)="""RTN"",""PRPFDR6"",38,0)"
^XMB(3.9,91,2,1760,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#49    PATIENT TRANS # Patient transaction # invalid                   ""_CNTERR(49)"
^XMB(3.9,91,2,1761,0)="""RTN"",""PRPFDR6"",39,0)"
^XMB(3.9,91,2,1762,0)=" D SEG^PRPFDR3"
^XMB(3.9,91,2,1763,0)="""RTN"",""PRPFDR6"",40,0)"
^XMB(3.9,91,2,1764,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#50    DEFR AMOUNT     Deferred amount invalid                         ""_CNTERR(50)"
^XMB(3.9,91,2,1765,0)="""RTN"",""PRPFDR6"",41,0)"
^XMB(3.9,91,2,1766,0)=" D SEG^PRPFDR3"
^XMB(3.9,91,2,1767,0)="""RTN"",""PRPFDR6"",42,0)"
^XMB(3.9,91,2,1768,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#51    TRANSACTN DATE  Transaction date Invalid                        ""_CNTERR(51)"
^XMB(3.9,91,2,1769,0)="""RTN"",""PRPFDR6"",43,0)"
^XMB(3.9,91,2,1770,0)=" D SEG^PRPFDR3"
^XMB(3.9,91,2,1771,0)="""RTN"",""PRPFDR6"",44,0)"
^XMB(3.9,91,2,1772,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#52    DT TRAN ENTD    Date transaction entered Invalid                ""_CNTERR(52)"
^XMB(3.9,91,2,1773,0)="""RTN"",""PRPFDR6"",45,0)"
^XMB(3.9,91,2,1774,0)=" D SEG^PRPFDR3"
^XMB(3.9,91,2,1775,0)="""RTN"",""PRPFDR6"",46,0)"
^XMB(3.9,91,2,1776,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#53    REFERENCE       Reference Invalid < 1 or > 10 in length         ""_CNTERR(53)"
^XMB(3.9,91,2,1777,0)="""RTN"",""PRPFDR6"",47,0)"
^XMB(3.9,91,2,1778,0)=" D SEG^PRPFDR3"
^XMB(3.9,91,2,1779,0)="""RTN"",""PRPFDR6"",48,0)"
^XMB(3.9,91,2,1780,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#54    DEPOSIT/WTHDRWL Deposit/Withdrawal status Invalid               ""_CNTERR(54)"
^XMB(3.9,91,2,1781,0)="""RTN"",""PRPFDR6"",49,0)"
^XMB(3.9,91,2,1782,0)=" D SEG^PRPFDR3"
^XMB(3.9,91,2,1783,0)="""RTN"",""PRPFDR6"",50,0)"
^XMB(3.9,91,2,1784,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#55    CASH/CHECK/OTR  Cash/Check/Other status Invalid                 ""_CNTERR(55)"
^XMB(3.9,91,2,1785,0)="""RTN"",""PRPFDR6"",51,0)"
^XMB(3.9,91,2,1786,0)=" D SEG^PRPFDR3"
^XMB(3.9,91,2,1787,0)="""RTN"",""PRPFDR6"",52,0)"
^XMB(3.9,91,2,1788,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#56    SOURCE          Transaction source invalid                      ""_CNTERR(56)"
^XMB(3.9,91,2,1789,0)="""RTN"",""PRPFDR6"",53,0)"
^XMB(3.9,91,2,1790,0)=" D SEG^PRPFDR3"
^XMB(3.9,91,2,1791,0)="""RTN"",""PRPFDR6"",54,0)"
^XMB(3.9,91,2,1792,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#57    FORM            Form does not match                             ""_CNTERR(57)"
^XMB(3.9,91,2,1793,0)="""RTN"",""PRPFDR6"",55,0)"
^XMB(3.9,91,2,1794,0)=" D SEG^PRPFDR3"
^XMB(3.9,91,2,1795,0)="""RTN"",""PRPFDR6"",56,0)"
^XMB(3.9,91,2,1796,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#58    PRVT SOURCE AMT Private source amount invalid or < 0 or > 99999 ""_CNTERR(58)"
^XMB(3.9,91,2,1797,0)="""RTN"",""PRPFDR6"",57,0)"
^XMB(3.9,91,2,1798,0)=" D SEG^PRPFDR3"
^XMB(3.9,91,2,1799,0)="""RTN"",""PRPFDR6"",58,0)"
^XMB(3.9,91,2,1800,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#59    GRATUITOUS AMT  Gratuitous amount invalid or < 0 or > 99999     ""_CNTERR(59)"
^XMB(3.9,91,2,1801,0)="""RTN"",""PRPFDR6"",59,0)"
^XMB(3.9,91,2,1802,0)=" D SEG^PRPFDR3"
^XMB(3.9,91,2,1803,0)="""RTN"",""PRPFDR6"",60,0)"
^XMB(3.9,91,2,1804,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""*#60    PFUNDS CLERK    PFunds clerk invalid                            ""_CNTERR(60)"
^XMB(3.9,91,2,1805,0)="""RTN"",""PRPFDR6"",61,0)"
^XMB(3.9,91,2,1806,0)=" D SEG^PRPFDR3"
^XMB(3.9,91,2,1807,0)="""RTN"",""PRPFDR6"",62,0)"
^XMB(3.9,91,2,1808,0)=" S PRPFCNTR=PRPFCNTR+1 S ^TMP(""PRPF_DIAGVL"",$J,CNTSEG,PRPFCNTR)=""**************************************************************************#DETAIL#"""
^XMB(3.9,91,2,1809,0)="""RTN"",""PRPFDR6"",63,0)"
^XMB(3.9,91,2,1810,0)=" D SEG^PRPFDR3"
^XMB(3.9,91,2,1811,0)="""RTN"",""PRPFDR6"",64,0)"
^XMB(3.9,91,2,1812,0)=" Q"
^XMB(3.9,91,2,1813,0)="""VER"")"
^XMB(3.9,91,2,1814,0)="8.0^22.0"
^XMB(3.9,91,2,1815,0)="""BLD"",4744,6)"
^XMB(3.9,91,2,1816,0)="^17"
^XMB(3.9,91,2,1817,0)="$END KID PRPF*3.0*15"
^XMB(3.9,91,6,0)="^3.911A^2^2"
^XMB(3.9,91,6,1,0)="POSTMASTER"
^XMB(3.9,91,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,91,6,"B","POSTMASTER",1)=""
^XMB(3.9,91,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,92,0)="PRS-4_SEQ-95_PAT-108.KID^.5^3061008.015739^^^^K"
^XMB(3.9,92,.6)="3061008"
^XMB(3.9,92,1,0)="^3.91A^2^2"
^XMB(3.9,92,1,1,0)=".5^0^3061008.015739^^^^^^^3061008.015739"
^XMB(3.9,92,1,2,0)="1^0^3061008.024208^^^^^^^3061008.024208"
^XMB(3.9,92,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,92,1,"C",.5,1)=""
^XMB(3.9,92,1,"C",1,2)=""
^XMB(3.9,92,2,0)="^^1619^1619^3061008"
^XMB(3.9,92,2,1,0)="$TXT Released PRS*4*108 SEQ #95"
^XMB(3.9,92,2,2,0)="Extracted from mail message"
^XMB(3.9,92,2,3,0)="$END TXT"
^XMB(3.9,92,2,4,0)="$KID PRS*4.0*108"
^XMB(3.9,92,2,5,0)="**INSTALL NAME**"
^XMB(3.9,92,2,6,0)="PRS*4.0*108"
^XMB(3.9,92,2,7,0)="""BLD"",6677,0)"
^XMB(3.9,92,2,8,0)="PRS*4.0*108^PAID^0^3060505^y"
^XMB(3.9,92,2,9,0)="""BLD"",6677,4,0)"
^XMB(3.9,92,2,10,0)="^9.64PA^^"
^XMB(3.9,92,2,11,0)="""BLD"",6677,""KRN"",0)"
^XMB(3.9,92,2,12,0)="^9.67PA^8989.52^19"
^XMB(3.9,92,2,13,0)="""BLD"",6677,""KRN"",.4,0)"
^XMB(3.9,92,2,14,0)=".4"
^XMB(3.9,92,2,15,0)="""BLD"",6677,""KRN"",.401,0)"
^XMB(3.9,92,2,16,0)=".401"
^XMB(3.9,92,2,17,0)="""BLD"",6677,""KRN"",.402,0)"
^XMB(3.9,92,2,18,0)=".402"
^XMB(3.9,92,2,19,0)="""BLD"",6677,""KRN"",.403,0)"
^XMB(3.9,92,2,20,0)=".403"
^XMB(3.9,92,2,21,0)="""BLD"",6677,""KRN"",.5,0)"
^XMB(3.9,92,2,22,0)=".5"
^XMB(3.9,92,2,23,0)="""BLD"",6677,""KRN"",.84,0)"
^XMB(3.9,92,2,24,0)=".84"
^XMB(3.9,92,2,25,0)="""BLD"",6677,""KRN"",3.6,0)"
^XMB(3.9,92,2,26,0)="3.6"
^XMB(3.9,92,2,27,0)="""BLD"",6677,""KRN"",3.8,0)"
^XMB(3.9,92,2,28,0)="3.8"
^XMB(3.9,92,2,29,0)="""BLD"",6677,""KRN"",9.2,0)"
^XMB(3.9,92,2,30,0)="9.2"
^XMB(3.9,92,2,31,0)="""BLD"",6677,""KRN"",9.8,0)"
^XMB(3.9,92,2,32,0)="9.8"
^XMB(3.9,92,2,33,0)="""BLD"",6677,""KRN"",9.8,""NM"",0)"
^XMB(3.9,92,2,34,0)="^9.68A^5^5"
^XMB(3.9,92,2,35,0)="""BLD"",6677,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,92,2,36,0)="PRSATP5^^0^B26276696"
^XMB(3.9,92,2,37,0)="""BLD"",6677,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,92,2,38,0)="PRSATP6^^0^B5087366"
^XMB(3.9,92,2,39,0)="""BLD"",6677,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,92,2,40,0)="PRSATP7^^0^B4957081"
^XMB(3.9,92,2,41,0)="""BLD"",6677,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,92,2,42,0)="PRS8HR^^0^B29706028"
^XMB(3.9,92,2,43,0)="""BLD"",6677,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,92,2,44,0)="PRS8HRSV^^0^B35348193"
^XMB(3.9,92,2,45,0)="""BLD"",6677,""KRN"",9.8,""NM"",""B"",""PRS8HR"",4)"
^XMB(3.9,92,2,46,0)=""
^XMB(3.9,92,2,47,0)="""BLD"",6677,""KRN"",9.8,""NM"",""B"",""PRS8HRSV"",5)"
^XMB(3.9,92,2,48,0)=""
^XMB(3.9,92,2,49,0)="""BLD"",6677,""KRN"",9.8,""NM"",""B"",""PRSATP5"",1)"
^XMB(3.9,92,2,50,0)=""
^XMB(3.9,92,2,51,0)="""BLD"",6677,""KRN"",9.8,""NM"",""B"",""PRSATP6"",2)"
^XMB(3.9,92,2,52,0)=""
^XMB(3.9,92,2,53,0)="""BLD"",6677,""KRN"",9.8,""NM"",""B"",""PRSATP7"",3)"
^XMB(3.9,92,2,54,0)=""
^XMB(3.9,92,2,55,0)="""BLD"",6677,""KRN"",19,0)"
^XMB(3.9,92,2,56,0)="19"
^XMB(3.9,92,2,57,0)="""BLD"",6677,""KRN"",19.1,0)"
^XMB(3.9,92,2,58,0)="19.1"
^XMB(3.9,92,2,59,0)="""BLD"",6677,""KRN"",101,0)"
^XMB(3.9,92,2,60,0)="101"
^XMB(3.9,92,2,61,0)="""BLD"",6677,""KRN"",409.61,0)"
^XMB(3.9,92,2,62,0)="409.61"
^XMB(3.9,92,2,63,0)="""BLD"",6677,""KRN"",771,0)"
^XMB(3.9,92,2,64,0)="771"
^XMB(3.9,92,2,65,0)="""BLD"",6677,""KRN"",870,0)"
^XMB(3.9,92,2,66,0)="870"
^XMB(3.9,92,2,67,0)="""BLD"",6677,""KRN"",8989.51,0)"
^XMB(3.9,92,2,68,0)="8989.51"
^XMB(3.9,92,2,69,0)="""BLD"",6677,""KRN"",8989.52,0)"
^XMB(3.9,92,2,70,0)="8989.52"
^XMB(3.9,92,2,71,0)="""BLD"",6677,""KRN"",8994,0)"
^XMB(3.9,92,2,72,0)="8994"
^XMB(3.9,92,2,73,0)="""BLD"",6677,""KRN"",""B"",.4,.4)"
^XMB(3.9,92,2,74,0)=""
^XMB(3.9,92,2,75,0)="""BLD"",6677,""KRN"",""B"",.401,.401)"
^XMB(3.9,92,2,76,0)=""
^XMB(3.9,92,2,77,0)="""BLD"",6677,""KRN"",""B"",.402,.402)"
^XMB(3.9,92,2,78,0)=""
^XMB(3.9,92,2,79,0)="""BLD"",6677,""KRN"",""B"",.403,.403)"
^XMB(3.9,92,2,80,0)=""
^XMB(3.9,92,2,81,0)="""BLD"",6677,""KRN"",""B"",.5,.5)"
^XMB(3.9,92,2,82,0)=""
^XMB(3.9,92,2,83,0)="""BLD"",6677,""KRN"",""B"",.84,.84)"
^XMB(3.9,92,2,84,0)=""
^XMB(3.9,92,2,85,0)="""BLD"",6677,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,92,2,86,0)=""
^XMB(3.9,92,2,87,0)="""BLD"",6677,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,92,2,88,0)=""
^XMB(3.9,92,2,89,0)="""BLD"",6677,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,92,2,90,0)=""
^XMB(3.9,92,2,91,0)="""BLD"",6677,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,92,2,92,0)=""
^XMB(3.9,92,2,93,0)="""BLD"",6677,""KRN"",""B"",19,19)"
^XMB(3.9,92,2,94,0)=""
^XMB(3.9,92,2,95,0)="""BLD"",6677,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,92,2,96,0)=""
^XMB(3.9,92,2,97,0)="""BLD"",6677,""KRN"",""B"",101,101)"
^XMB(3.9,92,2,98,0)=""
^XMB(3.9,92,2,99,0)="""BLD"",6677,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,92,2,100,0)=""
^XMB(3.9,92,2,101,0)="""BLD"",6677,""KRN"",""B"",771,771)"
^XMB(3.9,92,2,102,0)=""
^XMB(3.9,92,2,103,0)="""BLD"",6677,""KRN"",""B"",870,870)"
^XMB(3.9,92,2,104,0)=""
^XMB(3.9,92,2,105,0)="""BLD"",6677,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,92,2,106,0)=""
^XMB(3.9,92,2,107,0)="""BLD"",6677,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,92,2,108,0)=""
^XMB(3.9,92,2,109,0)="""BLD"",6677,""KRN"",""B"",8994,8994)"
^XMB(3.9,92,2,110,0)=""
^XMB(3.9,92,2,111,0)="""BLD"",6677,""QUES"",0)"
^XMB(3.9,92,2,112,0)="^9.62^^"
^XMB(3.9,92,2,113,0)="""BLD"",6677,""REQB"",0)"
^XMB(3.9,92,2,114,0)="^9.611^1^1"
^XMB(3.9,92,2,115,0)="""BLD"",6677,""REQB"",1,0)"
^XMB(3.9,92,2,116,0)="PRS*4.0*102^1"
^XMB(3.9,92,2,117,0)="""BLD"",6677,""REQB"",""B"",""PRS*4.0*102"",1)"
^XMB(3.9,92,2,118,0)=""
^XMB(3.9,92,2,119,0)="""MBREQ"")"
^XMB(3.9,92,2,120,0)="0"
^XMB(3.9,92,2,121,0)="""PKG"",408,-1)"
^XMB(3.9,92,2,122,0)="1^1"
^XMB(3.9,92,2,123,0)="""PKG"",408,0)"
^XMB(3.9,92,2,124,0)="PAID^PRS^PAID"
^XMB(3.9,92,2,125,0)="""PKG"",408,20,0)"
^XMB(3.9,92,2,126,0)="^9.402P^^"
^XMB(3.9,92,2,127,0)="""PKG"",408,22,0)"
^XMB(3.9,92,2,128,0)="^9.49I^1^1"
^XMB(3.9,92,2,129,0)="""PKG"",408,22,1,0)"
^XMB(3.9,92,2,130,0)="4.0^2950912^2960130"
^XMB(3.9,92,2,131,0)="""PKG"",408,22,1,""PAH"",1,0)"
^XMB(3.9,92,2,132,0)="108^3060505"
^XMB(3.9,92,2,133,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,92,2,134,0)="Y"
^XMB(3.9,92,2,135,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,92,2,136,0)="^D REP^XPDH"
^XMB(3.9,92,2,137,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,92,2,138,0)="Shall I write over your |FLAG| File"
^XMB(3.9,92,2,139,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,92,2,140,0)="YES"
^XMB(3.9,92,2,141,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,92,2,142,0)="D XPF1^XPDIQ"
^XMB(3.9,92,2,143,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,92,2,144,0)="Y"
^XMB(3.9,92,2,145,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,92,2,146,0)="^D DTA^XPDH"
^XMB(3.9,92,2,147,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,92,2,148,0)="Want my data |FLAG| yours"
^XMB(3.9,92,2,149,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,92,2,150,0)="YES"
^XMB(3.9,92,2,151,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,92,2,152,0)="D XPF2^XPDIQ"
^XMB(3.9,92,2,153,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,92,2,154,0)="YO"
^XMB(3.9,92,2,155,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,92,2,156,0)="^D INHIBIT^XPDH"
^XMB(3.9,92,2,157,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,92,2,158,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,92,2,159,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,92,2,160,0)="YES"
^XMB(3.9,92,2,161,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,92,2,162,0)="D XPI1^XPDIQ"
^XMB(3.9,92,2,163,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,92,2,164,0)="PO^VA(200,:EM"
^XMB(3.9,92,2,165,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,92,2,166,0)="^D MG^XPDH"
^XMB(3.9,92,2,167,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,92,2,168,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,92,2,169,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,92,2,170,0)=""
^XMB(3.9,92,2,171,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,92,2,172,0)="D XPM1^XPDIQ"
^XMB(3.9,92,2,173,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,92,2,174,0)="Y"
^XMB(3.9,92,2,175,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,92,2,176,0)="^D MENU^XPDH"
^XMB(3.9,92,2,177,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,92,2,178,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,92,2,179,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,92,2,180,0)="YES"
^XMB(3.9,92,2,181,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,92,2,182,0)="D XPO1^XPDIQ"
^XMB(3.9,92,2,183,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,92,2,184,0)="Y"
^XMB(3.9,92,2,185,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,92,2,186,0)="^D OPT^XPDH"
^XMB(3.9,92,2,187,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,92,2,188,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,92,2,189,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,92,2,190,0)="YES"
^XMB(3.9,92,2,191,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,92,2,192,0)="D XPZ1^XPDIQ"
^XMB(3.9,92,2,193,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,92,2,194,0)="Y"
^XMB(3.9,92,2,195,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,92,2,196,0)="^D RTN^XPDH"
^XMB(3.9,92,2,197,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,92,2,198,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,92,2,199,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,92,2,200,0)="NO"
^XMB(3.9,92,2,201,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,92,2,202,0)="D XPZ2^XPDIQ"
^XMB(3.9,92,2,203,0)="""RTN"")"
^XMB(3.9,92,2,204,0)="5"
^XMB(3.9,92,2,205,0)="""RTN"",""PRS8HR"")"
^XMB(3.9,92,2,206,0)="0^4^B29706028^B41812105"
^XMB(3.9,92,2,207,0)="""RTN"",""PRS8HR"",1,0)"
^XMB(3.9,92,2,208,0)="PRS8HR ;HISC/MRL,WCIOFO/JAH-DECOMPOSITION, HOURS ;05/05/06"
^XMB(3.9,92,2,209,0)="""RTN"",""PRS8HR"",2,0)"
^XMB(3.9,92,2,210,0)=" ;;4.0;PAID;**2,22,29,42,52,102,108**;Sep 21, 1995"
^XMB(3.9,92,2,211,0)="""RTN"",""PRS8HR"",3,0)"
^XMB(3.9,92,2,212,0)=" ;"
^XMB(3.9,92,2,213,0)="""RTN"",""PRS8HR"",4,0)"
^XMB(3.9,92,2,214,0)=" ;This routine is called by ^PRS8PP (premium pay calculator)"
^XMB(3.9,92,2,215,0)="""RTN"",""PRS8HR"",5,0)"
^XMB(3.9,92,2,216,0)=" ;====================================================================="
^XMB(3.9,92,2,217,0)="""RTN"",""PRS8HR"",6,0)"
^XMB(3.9,92,2,218,0)=" ; ** indicates incompleted comments"
^XMB(3.9,92,2,219,0)="""RTN"",""PRS8HR"",7,0)"
^XMB(3.9,92,2,220,0)=" ;"
^XMB(3.9,92,2,221,0)="""RTN"",""PRS8HR"",8,0)"
^XMB(3.9,92,2,222,0)=" ;VARIABLE DEFINITION"
^XMB(3.9,92,2,223,0)="""RTN"",""PRS8HR"",9,0)"
^XMB(3.9,92,2,224,0)=" ;"
^XMB(3.9,92,2,225,0)="""RTN"",""PRS8HR"",10,0)"
^XMB(3.9,92,2,226,0)=" ; TYP   =  contains codes representing type of employee."
^XMB(3.9,92,2,227,0)="""RTN"",""PRS8HR"",11,0)"
^XMB(3.9,92,2,228,0)=" ;          It's a composite code string w/ characters that"
^XMB(3.9,92,2,229,0)="""RTN"",""PRS8HR"",12,0)"
^XMB(3.9,92,2,230,0)=" ;          represent pay plan, duty basis, & normal hours."
^XMB(3.9,92,2,231,0)="""RTN"",""PRS8HR"",13,0)"
^XMB(3.9,92,2,232,0)=" ;    CODE  REPRESENTS      CODE   REPRESENTS"
^XMB(3.9,92,2,233,0)="""RTN"",""PRS8HR"",14,0)"
^XMB(3.9,92,2,234,0)=" ;     D     daily            f     firefighter"
^XMB(3.9,92,2,235,0)="""RTN"",""PRS8HR"",15,0)"
^XMB(3.9,92,2,236,0)=" ;     W     wagegrade        P     part-time"
^XMB(3.9,92,2,237,0)="""RTN"",""PRS8HR"",16,0)"
^XMB(3.9,92,2,238,0)=" ;     N     nurse            d     doctor"
^XMB(3.9,92,2,239,0)="""RTN"",""PRS8HR"",17,0)"
^XMB(3.9,92,2,240,0)=" ;     B     baylor plan      dR    doctor/resident or intern"
^XMB(3.9,92,2,241,0)="""RTN"",""PRS8HR"",18,0)"
^XMB(3.9,92,2,242,0)=" ;     H     Nurse Hybrid     """"    *"
^XMB(3.9,92,2,243,0)="""RTN"",""PRS8HR"",19,0)"
^XMB(3.9,92,2,244,0)=" ;     I     intermittent"
^XMB(3.9,92,2,245,0)="""RTN"",""PRS8HR"",20,0)"
^XMB(3.9,92,2,246,0)=" ; VAL   =  Single char code represents employee's work status for"
^XMB(3.9,92,2,247,0)="""RTN"",""PRS8HR"",21,0)"
^XMB(3.9,92,2,248,0)=" ;          current 15 min increment."
^XMB(3.9,92,2,249,0)="""RTN"",""PRS8HR"",22,0)"
^XMB(3.9,92,2,250,0)=" ; FLX   =  Flex tour indicator."
^XMB(3.9,92,2,251,0)="""RTN"",""PRS8HR"",23,0)"
^XMB(3.9,92,2,252,0)=" ; TH(W) =  Tour Hours for week 1, TH(1) & week 2, TH(2)"
^XMB(3.9,92,2,253,0)="""RTN"",""PRS8HR"",24,0)"
^XMB(3.9,92,2,254,0)=" ; TH    =  Tour Hours"
^XMB(3.9,92,2,255,0)="""RTN"",""PRS8HR"",25,0)"
^XMB(3.9,92,2,256,0)=" ; HTP   =  PAYABLE hours worked today."
^XMB(3.9,92,2,257,0)="""RTN"",""PRS8HR"",26,0)"
^XMB(3.9,92,2,258,0)=" ; HT    =  Hours worked today."
^XMB(3.9,92,2,259,0)="""RTN"",""PRS8HR"",27,0)"
^XMB(3.9,92,2,260,0)=" ; AV    =  String w/ most normal types of time (see bottom of PRS8EX)"
^XMB(3.9,92,2,261,0)="""RTN"",""PRS8HR"",28,0)"
^XMB(3.9,92,2,262,0)=" ;          does NOT contain premium times or unscheduled time (OoEes4)"
^XMB(3.9,92,2,263,0)="""RTN"",""PRS8HR"",29,0)"
^XMB(3.9,92,2,264,0)=" ;===================================================================="
^XMB(3.9,92,2,265,0)="""RTN"",""PRS8HR"",30,0)"
^XMB(3.9,92,2,266,0)=" ;"
^XMB(3.9,92,2,267,0)="""RTN"",""PRS8HR"",31,0)"
^XMB(3.9,92,2,268,0)=" S AV=""1235nHMLSWNARUXYVJFGD"""
^XMB(3.9,92,2,269,0)="""RTN"",""PRS8HR"",32,0)"
^XMB(3.9,92,2,270,0)=" ;"
^XMB(3.9,92,2,271,0)="""RTN"",""PRS8HR"",33,0)"
^XMB(3.9,92,2,272,0)=" ;   Loop thru each quarter hour segment of day."
^XMB(3.9,92,2,273,0)="""RTN"",""PRS8HR"",34,0)"
^XMB(3.9,92,2,274,0)=" ;   Check for times in AV array."
^XMB(3.9,92,2,275,0)="""RTN"",""PRS8HR"",35,0)"
^XMB(3.9,92,2,276,0)=" ;   Proceed w/ calculation if Overtime worked on Holiday."
^XMB(3.9,92,2,277,0)="""RTN"",""PRS8HR"",36,0)"
^XMB(3.9,92,2,278,0)=" ;"
^XMB(3.9,92,2,279,0)="""RTN"",""PRS8HR"",37,0)"
^XMB(3.9,92,2,280,0)=" F M=1:1:96 D"
^XMB(3.9,92,2,281,0)="""RTN"",""PRS8HR"",38,0)"
^XMB(3.9,92,2,282,0)=" .  S VAL=$E(D,M)"
^XMB(3.9,92,2,283,0)="""RTN"",""PRS8HR"",39,0)"
^XMB(3.9,92,2,284,0)=" .;"
^XMB(3.9,92,2,285,0)="""RTN"",""PRS8HR"",40,0)"
^XMB(3.9,92,2,286,0)=" .;    If non premium type of time or (overtime on holiday)"
^XMB(3.9,92,2,287,0)="""RTN"",""PRS8HR"",41,0)"
^XMB(3.9,92,2,288,0)=" .;"
^XMB(3.9,92,2,289,0)="""RTN"",""PRS8HR"",42,0)"
^XMB(3.9,92,2,290,0)=" .  I AV[VAL!(VAL=""O""&($E(DAY(DAY,""HOL""),M)=2)) D CALC"
^XMB(3.9,92,2,291,0)="""RTN"",""PRS8HR"",43,0)"
^XMB(3.9,92,2,292,0)=" Q"
^XMB(3.9,92,2,293,0)="""RTN"",""PRS8HR"",44,0)"
^XMB(3.9,92,2,294,0)=" ;"
^XMB(3.9,92,2,295,0)="""RTN"",""PRS8HR"",45,0)"
^XMB(3.9,92,2,296,0)=" ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
^XMB(3.9,92,2,297,0)="""RTN"",""PRS8HR"",46,0)"
^XMB(3.9,92,2,298,0)=" ;"
^XMB(3.9,92,2,299,0)="""RTN"",""PRS8HR"",47,0)"
^XMB(3.9,92,2,300,0)="CALC ; --- Entry point for calculating placement of time"
^XMB(3.9,92,2,301,0)="""RTN"",""PRS8HR"",48,0)"
^XMB(3.9,92,2,302,0)=" ;"
^XMB(3.9,92,2,303,0)="""RTN"",""PRS8HR"",49,0)"
^XMB(3.9,92,2,304,0)=" ;     Set up variables for calculations and comparisons in this routine"
^XMB(3.9,92,2,305,0)="""RTN"",""PRS8HR"",50,0)"
^XMB(3.9,92,2,306,0)=" ;"
^XMB(3.9,92,2,307,0)="""RTN"",""PRS8HR"",51,0)"
^XMB(3.9,92,2,308,0)=" N HOLWKD,HOLEX,HOLWKEX"
^XMB(3.9,92,2,309,0)="""RTN"",""PRS8HR"",52,0)"
^XMB(3.9,92,2,310,0)=" D ^PRS8HRSV"
^XMB(3.9,92,2,311,0)="""RTN"",""PRS8HR"",53,0)"
^XMB(3.9,92,2,312,0)=" ;"
^XMB(3.9,92,2,313,0)="""RTN"",""PRS8HR"",54,0)"
^XMB(3.9,92,2,314,0)=" ;     IF intermittent employee on continuation of pay OR overtime on "
^XMB(3.9,92,2,315,0)="""RTN"",""PRS8HR"",55,0)"
^XMB(3.9,92,2,316,0)=" ;     holiday THEN increment Pay Period tour hours and current weeks "
^XMB(3.9,92,2,317,0)="""RTN"",""PRS8HR"",56,0)"
^XMB(3.9,92,2,318,0)=" ;     tour hours."
^XMB(3.9,92,2,319,0)="""RTN"",""PRS8HR"",57,0)"
^XMB(3.9,92,2,320,0)=" ;"
^XMB(3.9,92,2,321,0)="""RTN"",""PRS8HR"",58,0)"
^XMB(3.9,92,2,322,0)=" I TYP[""I"",VAL[""V""!(VAL=""O""&(HOLWKD)) S TH=TH+1,TH(W)=TH(W)+1"
^XMB(3.9,92,2,323,0)="""RTN"",""PRS8HR"",59,0)"
^XMB(3.9,92,2,324,0)=" ;"
^XMB(3.9,92,2,325,0)="""RTN"",""PRS8HR"",60,0)"
^XMB(3.9,92,2,326,0)=" ;     IF part time doctor & total hours = 80 & type of"
^XMB(3.9,92,2,327,0)="""RTN"",""PRS8HR"",61,0)"
^XMB(3.9,92,2,328,0)=" ;     time is unscheduled, overtime, comptime THEN quit"
^XMB(3.9,92,2,329,0)="""RTN"",""PRS8HR"",62,0)"
^XMB(3.9,92,2,330,0)=" ;"
^XMB(3.9,92,2,331,0)="""RTN"",""PRS8HR"",63,0)"
^XMB(3.9,92,2,332,0)=" I TYP[""d"",TYP[""P"",TH=320,""4OosEe""[VAL Q"
^XMB(3.9,92,2,333,0)="""RTN"",""PRS8HR"",64,0)"
^XMB(3.9,92,2,334,0)=" ;"
^XMB(3.9,92,2,335,0)="""RTN"",""PRS8HR"",65,0)"
^XMB(3.9,92,2,336,0)=" ;     IF INT doctor & total hours = 80 THEN quit"
^XMB(3.9,92,2,337,0)="""RTN"",""PRS8HR"",66,0)"
^XMB(3.9,92,2,338,0)=" ;"
^XMB(3.9,92,2,339,0)="""RTN"",""PRS8HR"",67,0)"
^XMB(3.9,92,2,340,0)=" I TYP[""I"",$E(AC,1)=""L"",TH=320,""4OosEe""[VAL Q"
^XMB(3.9,92,2,341,0)="""RTN"",""PRS8HR"",68,0)"
^XMB(3.9,92,2,342,0)=" ;"
^XMB(3.9,92,2,343,0)="""RTN"",""PRS8HR"",69,0)"
^XMB(3.9,92,2,344,0)=" ;     IF type of time is anything but (leave w/out pay, comp time) "
^XMB(3.9,92,2,345,0)="""RTN"",""PRS8HR"",70,0)"
^XMB(3.9,92,2,346,0)=" ;     THEN increment total hrs(HT) & increment HTP if type of "
^XMB(3.9,92,2,347,0)="""RTN"",""PRS8HR"",71,0)"
^XMB(3.9,92,2,348,0)=" ;     time not non pay or leave w/out pay."
^XMB(3.9,92,2,349,0)="""RTN"",""PRS8HR"",72,0)"
^XMB(3.9,92,2,350,0)=" ;"
^XMB(3.9,92,2,351,0)="""RTN"",""PRS8HR"",73,0)"
^XMB(3.9,92,2,352,0)=" ; Update daily counter - *102 added non-pay back into daily count"
^XMB(3.9,92,2,353,0)="""RTN"",""PRS8HR"",74,0)"
^XMB(3.9,92,2,354,0)=" ;"
^XMB(3.9,92,2,355,0)="""RTN"",""PRS8HR"",75,0)"
^XMB(3.9,92,2,356,0)=" S HT=HT+1,HTP=HTP+1"
^XMB(3.9,92,2,357,0)="""RTN"",""PRS8HR"",76,0)"
^XMB(3.9,92,2,358,0)=" ;"
^XMB(3.9,92,2,359,0)="""RTN"",""PRS8HR"",77,0)"
^XMB(3.9,92,2,360,0)=" ;---------------------------------------------------------"
^XMB(3.9,92,2,361,0)="""RTN"",""PRS8HR"",78,0)"
^XMB(3.9,92,2,362,0)=" ;     IF entitled to VCS commission sales & normal time(1) ??(2,3)"
^XMB(3.9,92,2,363,0)="""RTN"",""PRS8HR"",79,0)"
^XMB(3.9,92,2,364,0)=" ;     & holiday excused set X to type of time=Piece Worker Hol excused."
^XMB(3.9,92,2,365,0)="""RTN"",""PRS8HR"",80,0)"
^XMB(3.9,92,2,366,0)=" ;     Then IF part time set X to part time hours code."
^XMB(3.9,92,2,367,0)="""RTN"",""PRS8HR"",81,0)"
^XMB(3.9,92,2,368,0)=" ;"
^XMB(3.9,92,2,369,0)="""RTN"",""PRS8HR"",82,0)"
^XMB(3.9,92,2,370,0)=" I $E(ENT,38),""123""[VAL,HOLEX S X=36 D CHK^PRS8HRSV D  Q:X"
^XMB(3.9,92,2,371,0)="""RTN"",""PRS8HR"",83,0)"
^XMB(3.9,92,2,372,0)=" .  I TYP[""P"" S X=32 D CHK^PRS8HRSV"
^XMB(3.9,92,2,373,0)="""RTN"",""PRS8HR"",84,0)"
^XMB(3.9,92,2,374,0)=" ;"
^XMB(3.9,92,2,375,0)="""RTN"",""PRS8HR"",85,0)"
^XMB(3.9,92,2,376,0)=" ;---------------------------------------------------------------"
^XMB(3.9,92,2,377,0)="""RTN"",""PRS8HR"",86,0)"
^XMB(3.9,92,2,378,0)=" ;"
^XMB(3.9,92,2,379,0)="""RTN"",""PRS8HR"",87,0)"
^XMB(3.9,92,2,380,0)=" ;     Don't mess w/ fire fighters"
^XMB(3.9,92,2,381,0)="""RTN"",""PRS8HR"",88,0)"
^XMB(3.9,92,2,382,0)=" ;"
^XMB(3.9,92,2,383,0)="""RTN"",""PRS8HR"",89,0)"
^XMB(3.9,92,2,384,0)=" Q:""Ff""[TYP"
^XMB(3.9,92,2,385,0)="""RTN"",""PRS8HR"",90,0)"
^XMB(3.9,92,2,386,0)=" ;"
^XMB(3.9,92,2,387,0)="""RTN"",""PRS8HR"",91,0)"
^XMB(3.9,92,2,388,0)=" S GO=0"
^XMB(3.9,92,2,389,0)="""RTN"",""PRS8HR"",92,0)"
^XMB(3.9,92,2,390,0)=" ;     IF compressed tour & parttime & tour hours are over 80"
^XMB(3.9,92,2,391,0)="""RTN"",""PRS8HR"",93,0)"
^XMB(3.9,92,2,392,0)=" ;     OR tour hours = 80 & it's overtime, comptime, or unscheduled reg."
^XMB(3.9,92,2,393,0)="""RTN"",""PRS8HR"",94,0)"
^XMB(3.9,92,2,394,0)=" ;"
^XMB(3.9,92,2,395,0)="""RTN"",""PRS8HR"",95,0)"
^XMB(3.9,92,2,396,0)=" ; Check for FT Compressed"
^XMB(3.9,92,2,397,0)="""RTN"",""PRS8HR"",96,0)"
^XMB(3.9,92,2,398,0)=" I NH>319,FLX=""C"",(""OoseE4""[VAL) S GO=1"
^XMB(3.9,92,2,399,0)="""RTN"",""PRS8HR"",97,0)"
^XMB(3.9,92,2,400,0)=" ;"
^XMB(3.9,92,2,401,0)="""RTN"",""PRS8HR"",98,0)"
^XMB(3.9,92,2,402,0)=" ; Check for week"
^XMB(3.9,92,2,403,0)="""RTN"",""PRS8HR"",99,0)"
^XMB(3.9,92,2,404,0)=" I (TH(W)>160&(""OoseE4""[VAL))!(TH(W)=160&(""OosEe4""[VAL)) S GO=1"
^XMB(3.9,92,2,405,0)="""RTN"",""PRS8HR"",100,0)"
^XMB(3.9,92,2,406,0)=" ;"
^XMB(3.9,92,2,407,0)="""RTN"",""PRS8HR"",101,0)"
^XMB(3.9,92,2,408,0)=" ; Check for day"
^XMB(3.9,92,2,409,0)="""RTN"",""PRS8HR"",102,0)"
^XMB(3.9,92,2,410,0)=" I HT>32,""OoseE4""[VAL S GO=1"
^XMB(3.9,92,2,411,0)="""RTN"",""PRS8HR"",103,0)"
^XMB(3.9,92,2,412,0)=" ;"
^XMB(3.9,92,2,413,0)="""RTN"",""PRS8HR"",104,0)"
^XMB(3.9,92,2,414,0)=" ;     Following segment is concerned w/ variations of part time"
^XMB(3.9,92,2,415,0)="""RTN"",""PRS8HR"",105,0)"
^XMB(3.9,92,2,416,0)=" ;     employees (TYP[""P""), & 1 baylor (TYP[""B"")."
^XMB(3.9,92,2,417,0)="""RTN"",""PRS8HR"",106,0)"
^XMB(3.9,92,2,418,0)=" ;-------------------------------------------------------------------"
^XMB(3.9,92,2,419,0)="""RTN"",""PRS8HR"",107,0)"
^XMB(3.9,92,2,420,0)=" ;"
^XMB(3.9,92,2,421,0)="""RTN"",""PRS8HR"",108,0)"
^XMB(3.9,92,2,422,0)=" ;     Doctor over 8 hours"
^XMB(3.9,92,2,423,0)="""RTN"",""PRS8HR"",109,0)"
^XMB(3.9,92,2,424,0)=" ;"
^XMB(3.9,92,2,425,0)="""RTN"",""PRS8HR"",110,0)"
^XMB(3.9,92,2,426,0)=" I TYP[""Pd"",HT>32 S GO=0 ; part-time doctors PT + PH must = NH"
^XMB(3.9,92,2,427,0)="""RTN"",""PRS8HR"",111,0)"
^XMB(3.9,92,2,428,0)=" ;"
^XMB(3.9,92,2,429,0)="""RTN"",""PRS8HR"",112,0)"
^XMB(3.9,92,2,430,0)=" I TYP[""P"",HOLWKD S GO=0"
^XMB(3.9,92,2,431,0)="""RTN"",""PRS8HR"",113,0)"
^XMB(3.9,92,2,432,0)=" ;"
^XMB(3.9,92,2,433,0)="""RTN"",""PRS8HR"",114,0)"
^XMB(3.9,92,2,434,0)=" ;     Baylor plan & ct/ot/s"
^XMB(3.9,92,2,435,0)="""RTN"",""PRS8HR"",115,0)"
^XMB(3.9,92,2,436,0)=" ;"
^XMB(3.9,92,2,437,0)="""RTN"",""PRS8HR"",116,0)"
^XMB(3.9,92,2,438,0)=" I TYP[""B"",""EeOos""[VAL S GO=1"
^XMB(3.9,92,2,439,0)="""RTN"",""PRS8HR"",117,0)"
^XMB(3.9,92,2,440,0)=" ;"
^XMB(3.9,92,2,441,0)="""RTN"",""PRS8HR"",118,0)"
^XMB(3.9,92,2,442,0)=" ;-------------------------------------------------------------------"
^XMB(3.9,92,2,443,0)="""RTN"",""PRS8HR"",119,0)"
^XMB(3.9,92,2,444,0)=" ;     GO set in cases where employee maybe eligible for OT"
^XMB(3.9,92,2,445,0)="""RTN"",""PRS8HR"",120,0)"
^XMB(3.9,92,2,446,0)=" ;     due to over > 8/day OR > 40/week."
^XMB(3.9,92,2,447,0)="""RTN"",""PRS8HR"",121,0)"
^XMB(3.9,92,2,448,0)=" ;"
^XMB(3.9,92,2,449,0)="""RTN"",""PRS8HR"",122,0)"
^XMB(3.9,92,2,450,0)=" S X=0 I GO D TH^PRS8HRSV D OVER840^PRS8HROT Q"
^XMB(3.9,92,2,451,0)="""RTN"",""PRS8HR"",123,0)"
^XMB(3.9,92,2,452,0)=" ;"
^XMB(3.9,92,2,453,0)="""RTN"",""PRS8HR"",124,0)"
^XMB(3.9,92,2,454,0)=" ;-------------------------------------------------------------------"
^XMB(3.9,92,2,455,0)="""RTN"",""PRS8HR"",125,0)"
^XMB(3.9,92,2,456,0)=" ;-------------------------------------------------------------------"
^XMB(3.9,92,2,457,0)="""RTN"",""PRS8HR"",126,0)"
^XMB(3.9,92,2,458,0)=" ;     GO not set for compressed schedule of at least 80 hrs."
^XMB(3.9,92,2,459,0)="""RTN"",""PRS8HR"",127,0)"
^XMB(3.9,92,2,460,0)=" ;     GO not set for non compressed schedule of over 40 hrs."
^XMB(3.9,92,2,461,0)="""RTN"",""PRS8HR"",128,0)"
^XMB(3.9,92,2,462,0)=" ;     IF GO is set and we are evaluating normal hours or"
^XMB(3.9,92,2,463,0)="""RTN"",""PRS8HR"",129,0)"
^XMB(3.9,92,2,464,0)=" ;     HOLIDAY OVERTIME use NORMHRS to increment TIME"
^XMB(3.9,92,2,465,0)="""RTN"",""PRS8HR"",130,0)"
^XMB(3.9,92,2,466,0)=" ;     in week array.  THEN QUIT."
^XMB(3.9,92,2,467,0)="""RTN"",""PRS8HR"",131,0)"
^XMB(3.9,92,2,468,0)=" ;"
^XMB(3.9,92,2,469,0)="""RTN"",""PRS8HR"",132,0)"
^XMB(3.9,92,2,470,0)=" S GO=1"
^XMB(3.9,92,2,471,0)="""RTN"",""PRS8HR"",133,0)"
^XMB(3.9,92,2,472,0)=" I FLX=""C"",NH>319 S GO=0"
^XMB(3.9,92,2,473,0)="""RTN"",""PRS8HR"",134,0)"
^XMB(3.9,92,2,474,0)=" I FLX'=""C"",NH(WK)>160,TYP'[""Pd"" S GO=0 ;IF pt-doctor don't set GO=0"
^XMB(3.9,92,2,475,0)="""RTN"",""PRS8HR"",135,0)"
^XMB(3.9,92,2,476,0)=" I GO,""1235nHMLSWNARUXYVJFGD""[VAL!(VAL=""O""&(HOLWKD)) D NORMHRS^PRS8HROT Q"
^XMB(3.9,92,2,477,0)="""RTN"",""PRS8HR"",136,0)"
^XMB(3.9,92,2,478,0)=" ;"
^XMB(3.9,92,2,479,0)="""RTN"",""PRS8HR"",137,0)"
^XMB(3.9,92,2,480,0)=" ;--------------------------------------------------------------------"
^XMB(3.9,92,2,481,0)="""RTN"",""PRS8HR"",138,0)"
^XMB(3.9,92,2,482,0)=" ;   Check employees with Normal hours less than 80. (Baylor NH=320)"
^XMB(3.9,92,2,483,0)="""RTN"",""PRS8HR"",139,0)"
^XMB(3.9,92,2,484,0)=" ;"
^XMB(3.9,92,2,485,0)="""RTN"",""PRS8HR"",140,0)"
^XMB(3.9,92,2,486,0)=" I NH'>319 D TH^PRS8HRSV D  Q"
^XMB(3.9,92,2,487,0)="""RTN"",""PRS8HR"",141,0)"
^XMB(3.9,92,2,488,0)=" .I FLX=""C"" D  Q:X"
^XMB(3.9,92,2,489,0)="""RTN"",""PRS8HR"",142,0)"
^XMB(3.9,92,2,490,0)=" ..;"
^XMB(3.9,92,2,491,0)="""RTN"",""PRS8HR"",143,0)"
^XMB(3.9,92,2,492,0)=" ..; For PT employees review hours worked to determine X"
^XMB(3.9,92,2,493,0)="""RTN"",""PRS8HR"",144,0)"
^XMB(3.9,92,2,494,0)=" ..I ""OosEe4""'[VAL S X=32  ; All tour time = PT/PH"
^XMB(3.9,92,2,495,0)="""RTN"",""PRS8HR"",145,0)"
^XMB(3.9,92,2,496,0)=" ..;"
^XMB(3.9,92,2,497,0)="""RTN"",""PRS8HR"",146,0)"
^XMB(3.9,92,2,498,0)=" ..; Checks for CT"
^XMB(3.9,92,2,499,0)="""RTN"",""PRS8HR"",147,0)"
^XMB(3.9,92,2,500,0)=" ..I ""Ee""[VAL D"
^XMB(3.9,92,2,501,0)="""RTN"",""PRS8HR"",148,0)"
^XMB(3.9,92,2,502,0)=" ...; <8/DAY & <40/WK  = UN/US"
^XMB(3.9,92,2,503,0)="""RTN"",""PRS8HR"",149,0)"
^XMB(3.9,92,2,504,0)=" ...I HT'>32,TH(W)'>160 S X=9 Q"
^XMB(3.9,92,2,505,0)="""RTN"",""PRS8HR"",150,0)"
^XMB(3.9,92,2,506,0)=" ...S X=7 ; CE/CT"
^XMB(3.9,92,2,507,0)="""RTN"",""PRS8HR"",151,0)"
^XMB(3.9,92,2,508,0)=" ..;"
^XMB(3.9,92,2,509,0)="""RTN"",""PRS8HR"",152,0)"
^XMB(3.9,92,2,510,0)=" ..; Checks for all other types of time"
^XMB(3.9,92,2,511,0)="""RTN"",""PRS8HR"",153,0)"
^XMB(3.9,92,2,512,0)=" ..I ""Oos4""[VAL D"
^XMB(3.9,92,2,513,0)="""RTN"",""PRS8HR"",154,0)"
^XMB(3.9,92,2,514,0)=" ...I HT>32 S X=TOUR+15 Q  ; DA/DE"
^XMB(3.9,92,2,515,0)="""RTN"",""PRS8HR"",155,0)"
^XMB(3.9,92,2,516,0)=" ...I TH(W)>160 S X=TOUR+19 Q  ; OA/OE"
^XMB(3.9,92,2,517,0)="""RTN"",""PRS8HR"",156,0)"
^XMB(3.9,92,2,518,0)=" ...S X=9 ; UN/US"
^XMB(3.9,92,2,519,0)="""RTN"",""PRS8HR"",157,0)"
^XMB(3.9,92,2,520,0)=" ..D CHK^PRS8HRSV"
^XMB(3.9,92,2,521,0)="""RTN"",""PRS8HR"",158,0)"
^XMB(3.9,92,2,522,0)=" .;"
^XMB(3.9,92,2,523,0)="""RTN"",""PRS8HR"",159,0)"
^XMB(3.9,92,2,524,0)=" .;     Under 8/day, 40/week, and not coded as overtime or comptime"
^XMB(3.9,92,2,525,0)="""RTN"",""PRS8HR"",160,0)"
^XMB(3.9,92,2,526,0)=" .;     or overtime on holiday."
^XMB(3.9,92,2,527,0)="""RTN"",""PRS8HR"",161,0)"
^XMB(3.9,92,2,528,0)=" .;"
^XMB(3.9,92,2,529,0)="""RTN"",""PRS8HR"",162,0)"
^XMB(3.9,92,2,530,0)=" .; Checks for non-compressed employees"
^XMB(3.9,92,2,531,0)="""RTN"",""PRS8HR"",163,0)"
^XMB(3.9,92,2,532,0)=" .I HT'>32,TH(W)'>160,""OoseE""'[VAL!(VAL=""O""&(HOLWKD)) S X=0 D  Q:X"
^XMB(3.9,92,2,533,0)="""RTN"",""PRS8HR"",164,0)"
^XMB(3.9,92,2,534,0)=" ..;"
^XMB(3.9,92,2,535,0)="""RTN"",""PRS8HR"",165,0)"
^XMB(3.9,92,2,536,0)=" ..;    Not intermittent, normal hours and not unscheduled reg. "
^XMB(3.9,92,2,537,0)="""RTN"",""PRS8HR"",166,0)"
^XMB(3.9,92,2,538,0)=" ..;    TIME gets parttime hours."
^XMB(3.9,92,2,539,0)="""RTN"",""PRS8HR"",167,0)"
^XMB(3.9,92,2,540,0)=" ..;"
^XMB(3.9,92,2,541,0)="""RTN"",""PRS8HR"",168,0)"
^XMB(3.9,92,2,542,0)=" ..I TYP'[""I"",AV[VAL,VAL'=4 S X=32 D CHK^PRS8HRSV Q"
^XMB(3.9,92,2,543,0)="""RTN"",""PRS8HR"",169,0)"
^XMB(3.9,92,2,544,0)=" ..;"
^XMB(3.9,92,2,545,0)="""RTN"",""PRS8HR"",170,0)"
^XMB(3.9,92,2,546,0)=" ..;    All else fails - TIME gets unscheduled regular."
^XMB(3.9,92,2,547,0)="""RTN"",""PRS8HR"",171,0)"
^XMB(3.9,92,2,548,0)=" ..;"
^XMB(3.9,92,2,549,0)="""RTN"",""PRS8HR"",172,0)"
^XMB(3.9,92,2,550,0)=" ..S X=9 D CHK^PRS8HRSV Q"
^XMB(3.9,92,2,551,0)="""RTN"",""PRS8HR"",173,0)"
^XMB(3.9,92,2,552,0)=" .;"
^XMB(3.9,92,2,553,0)="""RTN"",""PRS8HR"",174,0)"
^XMB(3.9,92,2,554,0)=" .;     Part time doctor w/ unscheduled reg. TIME gets unscheduled reg."
^XMB(3.9,92,2,555,0)="""RTN"",""PRS8HR"",175,0)"
^XMB(3.9,92,2,556,0)=" .; "
^XMB(3.9,92,2,557,0)="""RTN"",""PRS8HR"",176,0)"
^XMB(3.9,92,2,558,0)=" .I TYP[""P"",TYP[""d"",VAL=4 S X=9 D CHK^PRS8HRSV Q"
^XMB(3.9,92,2,559,0)="""RTN"",""PRS8HR"",177,0)"
^XMB(3.9,92,2,560,0)=" .;"
^XMB(3.9,92,2,561,0)="""RTN"",""PRS8HR"",178,0)"
^XMB(3.9,92,2,562,0)=" .;     Over 8/day"
^XMB(3.9,92,2,563,0)="""RTN"",""PRS8HR"",179,0)"
^XMB(3.9,92,2,564,0)=" .;"
^XMB(3.9,92,2,565,0)="""RTN"",""PRS8HR"",180,0)"
^XMB(3.9,92,2,566,0)=" .I HT>32 D G8^PRS8HRSV Q:X"
^XMB(3.9,92,2,567,0)="""RTN"",""PRS8HR"",181,0)"
^XMB(3.9,92,2,568,0)=" .;"
^XMB(3.9,92,2,569,0)="""RTN"",""PRS8HR"",182,0)"
^XMB(3.9,92,2,570,0)=" .;     For all time left except comptime set TIME to appropriate OT"
^XMB(3.9,92,2,571,0)="""RTN"",""PRS8HR"",183,0)"
^XMB(3.9,92,2,572,0)=" .;     unless comptime has been worked earlier in the week making"
^XMB(3.9,92,2,573,0)="""RTN"",""PRS8HR"",184,0)"
^XMB(3.9,92,2,574,0)=" .;     the total hours less than 40, then TIME gets unscheduled reg."
^XMB(3.9,92,2,575,0)="""RTN"",""PRS8HR"",185,0)"
^XMB(3.9,92,2,576,0)=" .;     COMPTIME OVER 8/DAY WILL BE CREDITED HERE"
^XMB(3.9,92,2,577,0)="""RTN"",""PRS8HR"",186,0)"
^XMB(3.9,92,2,578,0)=" .;"
^XMB(3.9,92,2,579,0)="""RTN"",""PRS8HR"",187,0)"
^XMB(3.9,92,2,580,0)=" .S X=$S(""Ee""'[VAL:TOUR+19,(TH(W)'>160)&(HT'>32):9,1:7)"
^XMB(3.9,92,2,581,0)="""RTN"",""PRS8HR"",188,0)"
^XMB(3.9,92,2,582,0)=" .I TYP[""P"",VAL[4,TH(W)'>160,HT'>32 S X=9"
^XMB(3.9,92,2,583,0)="""RTN"",""PRS8HR"",189,0)"
^XMB(3.9,92,2,584,0)=" .D CHK^PRS8HRSV"
^XMB(3.9,92,2,585,0)="""RTN"",""PRS8HR"",190,0)"
^XMB(3.9,92,2,586,0)=" Q"
^XMB(3.9,92,2,587,0)="""RTN"",""PRS8HR"",191,0)"
^XMB(3.9,92,2,588,0)=" ;"
^XMB(3.9,92,2,589,0)="""RTN"",""PRS8HR"",192,0)"
^XMB(3.9,92,2,590,0)=" ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
^XMB(3.9,92,2,591,0)="""RTN"",""PRS8HR"",193,0)"
^XMB(3.9,92,2,592,0)=" ; ### DELETE UNLESS EARLIER CHECK WAS RESTORED"
^XMB(3.9,92,2,593,0)="""RTN"",""PRS8HR"",194,0)"
^XMB(3.9,92,2,594,0)="CT2DAY() ;Determine if comptime eligible including 2 day tour."
^XMB(3.9,92,2,595,0)="""RTN"",""PRS8HR"",195,0)"
^XMB(3.9,92,2,596,0)=" ;"
^XMB(3.9,92,2,597,0)="""RTN"",""PRS8HR"",196,0)"
^XMB(3.9,92,2,598,0)=" N TOUREC,TWODAY"
^XMB(3.9,92,2,599,0)="""RTN"",""PRS8HR"",197,0)"
^XMB(3.9,92,2,600,0)=" S (RTN,TWODAY)=0"
^XMB(3.9,92,2,601,0)="""RTN"",""PRS8HR"",198,0)"
^XMB(3.9,92,2,602,0)=" ;"
^XMB(3.9,92,2,603,0)="""RTN"",""PRS8HR"",199,0)"
^XMB(3.9,92,2,604,0)=" ;      IF time segment contains Scheduled or unscheduled comptime "
^XMB(3.9,92,2,605,0)="""RTN"",""PRS8HR"",200,0)"
^XMB(3.9,92,2,606,0)=" ;      or overtime and there is some time in tour hours worked THEN"
^XMB(3.9,92,2,607,0)="""RTN"",""PRS8HR"",201,0)"
^XMB(3.9,92,2,608,0)=" ;      check if it's a 2 day tour. For 2 day tours some of time worked"
^XMB(3.9,92,2,609,0)="""RTN"",""PRS8HR"",202,0)"
^XMB(3.9,92,2,610,0)=" ;      won't be in HT variable since it occured on other day of two"
^XMB(3.9,92,2,611,0)="""RTN"",""PRS8HR"",203,0)"
^XMB(3.9,92,2,612,0)=" ;      day tour, it's not valid to simply check the HT variable for"
^XMB(3.9,92,2,613,0)="""RTN"",""PRS8HR"",204,0)"
^XMB(3.9,92,2,614,0)=" ;      8 hours of work. (patch PRS*4*22)"
^XMB(3.9,92,2,615,0)="""RTN"",""PRS8HR"",205,0)"
^XMB(3.9,92,2,616,0)=" ;"
^XMB(3.9,92,2,617,0)="""RTN"",""PRS8HR"",206,0)"
^XMB(3.9,92,2,618,0)=" I ""OosEe4""[VAL,(HT>0),(NH>319) D"
^XMB(3.9,92,2,619,0)="""RTN"",""PRS8HR"",207,0)"
^XMB(3.9,92,2,620,0)=" .S TOUREC=$P($G(DAY(DAY,0)),""^"",2)"
^XMB(3.9,92,2,621,0)="""RTN"",""PRS8HR"",208,0)"
^XMB(3.9,92,2,622,0)=" .I TOUREC>0 S TWODAY=$P($G(^PRST(457.1,TOUREC,0)),""^"",5)"
^XMB(3.9,92,2,623,0)="""RTN"",""PRS8HR"",209,0)"
^XMB(3.9,92,2,624,0)=" .I TWODAY=""Y"" S RTN=1"
^XMB(3.9,92,2,625,0)="""RTN"",""PRS8HR"",210,0)"
^XMB(3.9,92,2,626,0)=" Q RTN"
^XMB(3.9,92,2,627,0)="""RTN"",""PRS8HRSV"")"
^XMB(3.9,92,2,628,0)="0^5^B35348193^B37540189"
^XMB(3.9,92,2,629,0)="""RTN"",""PRS8HRSV"",1,0)"
^XMB(3.9,92,2,630,0)="PRS8HRSV ;WCIOFO/JAH-HOLIDAY FLAG, TIME CHECKER, WK() SET; 05/02/06"
^XMB(3.9,92,2,631,0)="""RTN"",""PRS8HRSV"",2,0)"
^XMB(3.9,92,2,632,0)=" ;;4.0;PAID;**29,52,102,108**;Sep 21, 1995"
^XMB(3.9,92,2,633,0)="""RTN"",""PRS8HRSV"",3,0)"
^XMB(3.9,92,2,634,0)=" ;  Set up variable for holiday worked or holiday exused"
^XMB(3.9,92,2,635,0)="""RTN"",""PRS8HRSV"",4,0)"
^XMB(3.9,92,2,636,0)=" ;  Holiday worked coded 2 in DAY array"
^XMB(3.9,92,2,637,0)="""RTN"",""PRS8HRSV"",5,0)"
^XMB(3.9,92,2,638,0)=" ;  Holiday exused coded 1 in DAY array"
^XMB(3.9,92,2,639,0)="""RTN"",""PRS8HRSV"",6,0)"
^XMB(3.9,92,2,640,0)=" ;  A NON holiday is coded as all zero's in day array."
^XMB(3.9,92,2,641,0)="""RTN"",""PRS8HRSV"",7,0)"
^XMB(3.9,92,2,642,0)=" ;"
^XMB(3.9,92,2,643,0)="""RTN"",""PRS8HRSV"",8,0)"
^XMB(3.9,92,2,644,0)=" ;  HOLIDAY WORKED"
^XMB(3.9,92,2,645,0)="""RTN"",""PRS8HRSV"",9,0)"
^XMB(3.9,92,2,646,0)=" S HOLWKD=$E(DAY(DAY,""HOL""),M)=2"
^XMB(3.9,92,2,647,0)="""RTN"",""PRS8HRSV"",10,0)"
^XMB(3.9,92,2,648,0)=" ;"
^XMB(3.9,92,2,649,0)="""RTN"",""PRS8HRSV"",11,0)"
^XMB(3.9,92,2,650,0)=" ;  HOLIDAY EXCUSED"
^XMB(3.9,92,2,651,0)="""RTN"",""PRS8HRSV"",12,0)"
^XMB(3.9,92,2,652,0)=" S HOLEX=$E(DAY(DAY,""HOL""),M)=1"
^XMB(3.9,92,2,653,0)="""RTN"",""PRS8HRSV"",13,0)"
^XMB(3.9,92,2,654,0)=" ;"
^XMB(3.9,92,2,655,0)="""RTN"",""PRS8HRSV"",14,0)"
^XMB(3.9,92,2,656,0)=" ;  HOLIDAY EXCUSED OR HOLIDAY WORKED"
^XMB(3.9,92,2,657,0)="""RTN"",""PRS8HRSV"",15,0)"
^XMB(3.9,92,2,658,0)=" S HOLWKEX=$E(DAY(DAY,""HOL""),M)"
^XMB(3.9,92,2,659,0)="""RTN"",""PRS8HRSV"",16,0)"
^XMB(3.9,92,2,660,0)=" Q"
^XMB(3.9,92,2,661,0)="""RTN"",""PRS8HRSV"",17,0)"
^XMB(3.9,92,2,662,0)=" ;"
^XMB(3.9,92,2,663,0)="""RTN"",""PRS8HRSV"",18,0)"
^XMB(3.9,92,2,664,0)=" ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
^XMB(3.9,92,2,665,0)="""RTN"",""PRS8HRSV"",19,0)"
^XMB(3.9,92,2,666,0)=" ;"
^XMB(3.9,92,2,667,0)="""RTN"",""PRS8HRSV"",20,0)"
^XMB(3.9,92,2,668,0)="CHK ; --- Check ENT for acceptable X value"
^XMB(3.9,92,2,669,0)="""RTN"",""PRS8HRSV"",21,0)"
^XMB(3.9,92,2,670,0)=" ;    Pieces of Y have values in locations corresponding to premium"
^XMB(3.9,92,2,671,0)="""RTN"",""PRS8HRSV"",22,0)"
^XMB(3.9,92,2,672,0)=" ;    times in value of X.  Values in Y string are locations"
^XMB(3.9,92,2,673,0)="""RTN"",""PRS8HRSV"",23,0)"
^XMB(3.9,92,2,674,0)=" ;    in entitlement string where associated time in X is"
^XMB(3.9,92,2,675,0)="""RTN"",""PRS8HRSV"",24,0)"
^XMB(3.9,92,2,676,0)=" ;    located."
^XMB(3.9,92,2,677,0)="""RTN"",""PRS8HRSV"",25,0)"
^XMB(3.9,92,2,678,0)=" ;   --------------------------------------------------"
^XMB(3.9,92,2,679,0)="""RTN"",""PRS8HRSV"",26,0)"
^XMB(3.9,92,2,680,0)=" ;                 | Fixed      |  Premium"
^XMB(3.9,92,2,681,0)="""RTN"",""PRS8HRSV"",27,0)"
^XMB(3.9,92,2,682,0)=" ;     Piece       | Position in|  Type Of Time"
^XMB(3.9,92,2,683,0)="""RTN"",""PRS8HRSV"",28,0)"
^XMB(3.9,92,2,684,0)=" ;    Of Y-String  | Entitlement|"
^XMB(3.9,92,2,685,0)="""RTN"",""PRS8HRSV"",29,0)"
^XMB(3.9,92,2,686,0)=" ;    & **WK()     | String     |"
^XMB(3.9,92,2,687,0)="""RTN"",""PRS8HRSV"",30,0)"
^XMB(3.9,92,2,688,0)=" ;    -----------  | -----------|  --------------------"
^XMB(3.9,92,2,689,0)="""RTN"",""PRS8HRSV"",31,0)"
^XMB(3.9,92,2,690,0)=" ;        7        |    28      |  comp earned"
^XMB(3.9,92,2,691,0)="""RTN"",""PRS8HRSV"",32,0)"
^XMB(3.9,92,2,692,0)=" ;        9        |     2      |  unscheduled regular"
^XMB(3.9,92,2,693,0)="""RTN"",""PRS8HRSV"",33,0)"
^XMB(3.9,92,2,694,0)=" ;       16        |    19      |  hrs excess 8-d"
^XMB(3.9,92,2,695,0)="""RTN"",""PRS8HRSV"",34,0)"
^XMB(3.9,92,2,696,0)=" ;       17        |    20      |  hrs excess 8-d2"
^XMB(3.9,92,2,697,0)="""RTN"",""PRS8HRSV"",35,0)"
^XMB(3.9,92,2,698,0)=" ;       18        |    21      |  hrs excess 8 d3"
^XMB(3.9,92,2,699,0)="""RTN"",""PRS8HRSV"",36,0)"
^XMB(3.9,92,2,700,0)=" ;       20        |    12      |  OT total hrs d"
^XMB(3.9,92,2,701,0)="""RTN"",""PRS8HRSV"",37,0)"
^XMB(3.9,92,2,702,0)=" ;       21        |    13      |  OT total hrs d2"
^XMB(3.9,92,2,703,0)="""RTN"",""PRS8HRSV"",38,0)"
^XMB(3.9,92,2,704,0)=" ;       22        |    14      |  OT total hrs d3"
^XMB(3.9,92,2,705,0)="""RTN"",""PRS8HRSV"",39,0)"
^XMB(3.9,92,2,706,0)=" ;   ---------------------------------------------------"
^XMB(3.9,92,2,707,0)="""RTN"",""PRS8HRSV"",40,0)"
^XMB(3.9,92,2,708,0)=" ;"
^XMB(3.9,92,2,709,0)="""RTN"",""PRS8HRSV"",41,0)"
^XMB(3.9,92,2,710,0)=" N ZZ S Y=""^^^^^^28^^2^^^^^^^19^20^21^^12^13^14^^^^3^4^^^^"""
^XMB(3.9,92,2,711,0)="""RTN"",""PRS8HRSV"",42,0)"
^XMB(3.9,92,2,712,0)=" ;"
^XMB(3.9,92,2,713,0)="""RTN"",""PRS8HRSV"",43,0)"
^XMB(3.9,92,2,714,0)=" ;   Set Y to a premium time in Y string, based on X "
^XMB(3.9,92,2,715,0)="""RTN"",""PRS8HRSV"",44,0)"
^XMB(3.9,92,2,716,0)=" ;   OR set Y to zero if X is a non premium time or parttime hours."
^XMB(3.9,92,2,717,0)="""RTN"",""PRS8HRSV"",45,0)"
^XMB(3.9,92,2,718,0)=" ;"
^XMB(3.9,92,2,719,0)="""RTN"",""PRS8HRSV"",46,0)"
^XMB(3.9,92,2,720,0)=" I X'=32 S Y=+$P(Y,""^"",X)"
^XMB(3.9,92,2,721,0)="""RTN"",""PRS8HRSV"",47,0)"
^XMB(3.9,92,2,722,0)=" ;"
^XMB(3.9,92,2,723,0)="""RTN"",""PRS8HRSV"",48,0)"
^XMB(3.9,92,2,724,0)=" ;   IF Y is premium time & not Unscheduled regular but employee not"
^XMB(3.9,92,2,725,0)="""RTN"",""PRS8HRSV"",49,0)"
^XMB(3.9,92,2,726,0)=" ;   ENTITLED to that type of time THEN set X to zero."
^XMB(3.9,92,2,727,0)="""RTN"",""PRS8HRSV"",50,0)"
^XMB(3.9,92,2,728,0)=" ;"
^XMB(3.9,92,2,729,0)="""RTN"",""PRS8HRSV"",51,0)"
^XMB(3.9,92,2,730,0)=" I +Y,Y'=2,'$E(ENT,+Y) S X=0"
^XMB(3.9,92,2,731,0)="""RTN"",""PRS8HRSV"",52,0)"
^XMB(3.9,92,2,732,0)=" ;"
^XMB(3.9,92,2,733,0)="""RTN"",""PRS8HRSV"",53,0)"
^XMB(3.9,92,2,734,0)=" ;   Overtime & Not entitled set X & Y to unscheduled regular"
^XMB(3.9,92,2,735,0)="""RTN"",""PRS8HRSV"",54,0)"
^XMB(3.9,92,2,736,0)=" ;"
^XMB(3.9,92,2,737,0)="""RTN"",""PRS8HRSV"",55,0)"
^XMB(3.9,92,2,738,0)=" I ""^12^13^14^""[(""^""_Y_""^""),'X S X=9,Y=2"
^XMB(3.9,92,2,739,0)="""RTN"",""PRS8HRSV"",56,0)"
^XMB(3.9,92,2,740,0)=" ;"
^XMB(3.9,92,2,741,0)="""RTN"",""PRS8HRSV"",57,0)"
^XMB(3.9,92,2,742,0)=" ;   IF regular unscheduled (Y=2) & not hourly for regular unscheduled"
^XMB(3.9,92,2,743,0)="""RTN"",""PRS8HRSV"",58,0)"
^XMB(3.9,92,2,744,0)=" ;   THEN set X=0, unless Baylor then X gets regular unscheduled."
^XMB(3.9,92,2,745,0)="""RTN"",""PRS8HRSV"",59,0)"
^XMB(3.9,92,2,746,0)=" ;"
^XMB(3.9,92,2,747,0)="""RTN"",""PRS8HRSV"",60,0)"
^XMB(3.9,92,2,748,0)=" I X,Y=2,$E(ENT,+Y)'=""H"" S X=$S(TYP'[""B"":0,1:9)"
^XMB(3.9,92,2,749,0)="""RTN"",""PRS8HRSV"",61,0)"
^XMB(3.9,92,2,750,0)=" ;"
^XMB(3.9,92,2,751,0)="""RTN"",""PRS8HRSV"",62,0)"
^XMB(3.9,92,2,752,0)=" ;   If X is hours in excess of 8/day & > 40/week & type of time"
^XMB(3.9,92,2,753,0)="""RTN"",""PRS8HRSV"",63,0)"
^XMB(3.9,92,2,754,0)=" ;   is compensatory time X = 0"
^XMB(3.9,92,2,755,0)="""RTN"",""PRS8HRSV"",64,0)"
^XMB(3.9,92,2,756,0)=" ;"
^XMB(3.9,92,2,757,0)="""RTN"",""PRS8HRSV"",65,0)"
^XMB(3.9,92,2,758,0)=" I ""^16^17^18^""[(""^""_X_""^""),TH(WK)>160,""Ee""[VAL S X=0"
^XMB(3.9,92,2,759,0)="""RTN"",""PRS8HRSV"",66,0)"
^XMB(3.9,92,2,760,0)=" ;"
^XMB(3.9,92,2,761,0)="""RTN"",""PRS8HRSV"",67,0)"
^XMB(3.9,92,2,762,0)=" ;   ** Significance of checking ""X"" now as opposed to Y."
^XMB(3.9,92,2,763,0)="""RTN"",""PRS8HRSV"",68,0)"
^XMB(3.9,92,2,764,0)=" ;"
^XMB(3.9,92,2,765,0)="""RTN"",""PRS8HRSV"",69,0)"
^XMB(3.9,92,2,766,0)=" K Y Q:'X"
^XMB(3.9,92,2,767,0)="""RTN"",""PRS8HRSV"",70,0)"
^XMB(3.9,92,2,768,0)=" ;"
^XMB(3.9,92,2,769,0)="""RTN"",""PRS8HRSV"",71,0)"
^XMB(3.9,92,2,770,0)=" ;   (Hours excess 8/day, OT hours, Reg hours @ OT rate, Holiday hours, "
^XMB(3.9,92,2,771,0)="""RTN"",""PRS8HRSV"",72,0)"
^XMB(3.9,92,2,772,0)=" ;   part time hours) OR unscheduled regular & Nurse or Nurse Hybrid."
^XMB(3.9,92,2,773,0)="""RTN"",""PRS8HRSV"",73,0)"
^XMB(3.9,92,2,774,0)=" ; ### DO WE NEED TO ADD !HYBRID TO THIS CHECK ???"
^XMB(3.9,92,2,775,0)="""RTN"",""PRS8HRSV"",74,0)"
^XMB(3.9,92,2,776,0)=" I ""^16^17^18^20^21^22^29^30^31^32^""[(""^""_X_""^"")!(X=9&(TYP[""N""!(TYP[""H""))) D"
^XMB(3.9,92,2,777,0)="""RTN"",""PRS8HRSV"",75,0)"
^XMB(3.9,92,2,778,0)=" .;"
^XMB(3.9,92,2,779,0)="""RTN"",""PRS8HRSV"",76,0)"
^XMB(3.9,92,2,780,0)=" .;     If today holiday or holiday benefit day for employee"
^XMB(3.9,92,2,781,0)="""RTN"",""PRS8HRSV"",77,0)"
^XMB(3.9,92,2,782,0)=" .;"
^XMB(3.9,92,2,783,0)="""RTN"",""PRS8HRSV"",78,0)"
^XMB(3.9,92,2,784,0)=" .I $$HOLIDAY^PRS8UT(PY,DFN,DAY) D  Q:'X"
^XMB(3.9,92,2,785,0)="""RTN"",""PRS8HRSV"",79,0)"
^XMB(3.9,92,2,786,0)=" ..;"
^XMB(3.9,92,2,787,0)="""RTN"",""PRS8HRSV"",80,0)"
^XMB(3.9,92,2,788,0)=" ..;     If part time hours & entitled to (Holiday [Shift day, 2 or 3])"
^XMB(3.9,92,2,789,0)="""RTN"",""PRS8HRSV"",81,0)"
^XMB(3.9,92,2,790,0)=" ..;"
^XMB(3.9,92,2,791,0)="""RTN"",""PRS8HRSV"",82,0)"
^XMB(3.9,92,2,792,0)=" ..I X=32,$E(ENT,TOUR+21),HOLWKD S ZZ=X,X=$S($G(DAY(DAY,""OFF""))'=1:TOUR+28,1:9) D SET S X=$S(TYP'[""I"":ZZ,1:9) Q"
^XMB(3.9,92,2,793,0)="""RTN"",""PRS8HRSV"",83,0)"
^XMB(3.9,92,2,794,0)=" ..;"
^XMB(3.9,92,2,795,0)="""RTN"",""PRS8HRSV"",84,0)"
^XMB(3.9,92,2,796,0)=" ..;     IF not part time hours & intermittent employee & employee"
^XMB(3.9,92,2,797,0)="""RTN"",""PRS8HRSV"",85,0)"
^XMB(3.9,92,2,798,0)=" ..;     entitled to holiday overtime & holiday worked THEN set TIME "
^XMB(3.9,92,2,799,0)="""RTN"",""PRS8HRSV"",86,0)"
^XMB(3.9,92,2,800,0)=" ..;     to OT on Holiday and credit that TIME in SET."
^XMB(3.9,92,2,801,0)="""RTN"",""PRS8HRSV"",87,0)"
^XMB(3.9,92,2,802,0)=" ..;"
^XMB(3.9,92,2,803,0)="""RTN"",""PRS8HRSV"",88,0)"
^XMB(3.9,92,2,804,0)=" ..I X'=32,TYP[""I"",$E(ENT,25),HOLWKD S ZZ=X,X=24 D SET S X=0"
^XMB(3.9,92,2,805,0)="""RTN"",""PRS8HRSV"",89,0)"
^XMB(3.9,92,2,806,0)=" ..;"
^XMB(3.9,92,2,807,0)="""RTN"",""PRS8HRSV"",90,0)"
^XMB(3.9,92,2,808,0)=" ..;     IF conditions same as above except employee is NOT entitled"
^XMB(3.9,92,2,809,0)="""RTN"",""PRS8HRSV"",91,0)"
^XMB(3.9,92,2,810,0)=" ..;     to Holiday OT THEN use X as coded to credit TIME."
^XMB(3.9,92,2,811,0)="""RTN"",""PRS8HRSV"",92,0)"
^XMB(3.9,92,2,812,0)=" ..;"
^XMB(3.9,92,2,813,0)="""RTN"",""PRS8HRSV"",93,0)"
^XMB(3.9,92,2,814,0)=" ..I X'=32,TYP[""I"",'$E(ENT,25),HOLWKD S ZZ=0 D SET S X=9"
^XMB(3.9,92,2,815,0)="""RTN"",""PRS8HRSV"",94,0)"
^XMB(3.9,92,2,816,0)=" ..;"
^XMB(3.9,92,2,817,0)="""RTN"",""PRS8HRSV"",95,0)"
^XMB(3.9,92,2,818,0)=" ..;     IF not part time hours & emp. is entitled to Holiday OT But"
^XMB(3.9,92,2,819,0)="""RTN"",""PRS8HRSV"",96,0)"
^XMB(3.9,92,2,820,0)=" ..;     they did not work the holiday THEN if emp. is part time or"
^XMB(3.9,92,2,821,0)="""RTN"",""PRS8HRSV"",97,0)"
^XMB(3.9,92,2,822,0)=" ..;     intermittent set type of time to Regular hrs @ OT rate 3"
^XMB(3.9,92,2,823,0)="""RTN"",""PRS8HRSV"",98,0)"
^XMB(3.9,92,2,824,0)=" ..;     otherwise OT @ Holiday rate & IF the original coded TIME"
^XMB(3.9,92,2,825,0)="""RTN"",""PRS8HRSV"",99,0)"
^XMB(3.9,92,2,826,0)=" ..;     NOT = reg hrs @ OT rate(shift D,2,3) THEN credit TIME at "
^XMB(3.9,92,2,827,0)="""RTN"",""PRS8HRSV"",100,0)"
^XMB(3.9,92,2,828,0)=" ..;     OT on holiday or Reg hours @ OT rate.  THEN also credit time "
^XMB(3.9,92,2,829,0)="""RTN"",""PRS8HRSV"",101,0)"
^XMB(3.9,92,2,830,0)=" ..;     as unscheduled regular.  ** why code time twice?"
^XMB(3.9,92,2,831,0)="""RTN"",""PRS8HRSV"",102,0)"
^XMB(3.9,92,2,832,0)=" ..;"
^XMB(3.9,92,2,833,0)="""RTN"",""PRS8HRSV"",103,0)"
^XMB(3.9,92,2,834,0)=" ..I X'=32,$E(ENT,25),'HOLWKD D"
^XMB(3.9,92,2,835,0)="""RTN"",""PRS8HRSV"",104,0)"
^XMB(3.9,92,2,836,0)=" ...S ZZ=X"
^XMB(3.9,92,2,837,0)="""RTN"",""PRS8HRSV"",105,0)"
^XMB(3.9,92,2,838,0)=" ...S X=$S(TYP[""P""!(TYP[""I""):TOUR+28,1:24) D SET"
^XMB(3.9,92,2,839,0)="""RTN"",""PRS8HRSV"",106,0)"
^XMB(3.9,92,2,840,0)=" ...I TYP[""P""!(TYP[""I"") S X=9 D SET"
^XMB(3.9,92,2,841,0)="""RTN"",""PRS8HRSV"",107,0)"
^XMB(3.9,92,2,842,0)=" ...S X=0"
^XMB(3.9,92,2,843,0)="""RTN"",""PRS8HRSV"",108,0)"
^XMB(3.9,92,2,844,0)=" .;"
^XMB(3.9,92,2,845,0)="""RTN"",""PRS8HRSV"",109,0)"
^XMB(3.9,92,2,846,0)=" .;     IF type of time is part time hours for intermittent employee"
^XMB(3.9,92,2,847,0)="""RTN"",""PRS8HRSV"",110,0)"
^XMB(3.9,92,2,848,0)=" .;     THEN set TIME = unscheduled regular."
^XMB(3.9,92,2,849,0)="""RTN"",""PRS8HRSV"",111,0)"
^XMB(3.9,92,2,850,0)=" .;"
^XMB(3.9,92,2,851,0)="""RTN"",""PRS8HRSV"",112,0)"
^XMB(3.9,92,2,852,0)=" .I X=32,TYP[""I"" S X=9"
^XMB(3.9,92,2,853,0)="""RTN"",""PRS8HRSV"",113,0)"
^XMB(3.9,92,2,854,0)=" .;"
^XMB(3.9,92,2,855,0)="""RTN"",""PRS8HRSV"",114,0)"
^XMB(3.9,92,2,856,0)=" .;    Part time hours or unscheduled regular."
^XMB(3.9,92,2,857,0)="""RTN"",""PRS8HRSV"",115,0)"
^XMB(3.9,92,2,858,0)=" .;"
^XMB(3.9,92,2,859,0)="""RTN"",""PRS8HRSV"",116,0)"
^XMB(3.9,92,2,860,0)=" .Q:X=32!(X=9)"
^XMB(3.9,92,2,861,0)="""RTN"",""PRS8HRSV"",117,0)"
^XMB(3.9,92,2,862,0)=" .;"
^XMB(3.9,92,2,863,0)="""RTN"",""PRS8HRSV"",118,0)"
^XMB(3.9,92,2,864,0)=" .;     IF employee worked holiday THEN set TIME to zero & if original"
^XMB(3.9,92,2,865,0)="""RTN"",""PRS8HRSV"",119,0)"
^XMB(3.9,92,2,866,0)=" .;     coded type of time is NOT regular hours @ OT rate DO"
^XMB(3.9,92,2,867,0)="""RTN"",""PRS8HRSV"",120,0)"
^XMB(3.9,92,2,868,0)=" .;"
^XMB(3.9,92,2,869,0)="""RTN"",""PRS8HRSV"",121,0)"
^XMB(3.9,92,2,870,0)=" .I HOLWKD S ZZ=X,X=0 D"
^XMB(3.9,92,2,871,0)="""RTN"",""PRS8HRSV"",122,0)"
^XMB(3.9,92,2,872,0)=" ..;"
^XMB(3.9,92,2,873,0)="""RTN"",""PRS8HRSV"",123,0)"
^XMB(3.9,92,2,874,0)=" ..;     IF entitled to Holiday pay for this shift THEN set TIME"
^XMB(3.9,92,2,875,0)="""RTN"",""PRS8HRSV"",124,0)"
^XMB(3.9,92,2,876,0)=" ..;     to Holiday HRS (shift d, 2 or 3)"
^XMB(3.9,92,2,877,0)="""RTN"",""PRS8HRSV"",125,0)"
^XMB(3.9,92,2,878,0)=" ..;"
^XMB(3.9,92,2,879,0)="""RTN"",""PRS8HRSV"",126,0)"
^XMB(3.9,92,2,880,0)=" ..I $E(ENT,TOUR+21) S X=TOUR+28"
^XMB(3.9,92,2,881,0)="""RTN"",""PRS8HRSV"",127,0)"
^XMB(3.9,92,2,882,0)=" ;"
^XMB(3.9,92,2,883,0)="""RTN"",""PRS8HRSV"",128,0)"
^XMB(3.9,92,2,884,0)=" ;     IF employee is part time & either a nurse or nurse hybrid "
^XMB(3.9,92,2,885,0)="""RTN"",""PRS8HRSV"",129,0)"
^XMB(3.9,92,2,886,0)=" ;     & they worked the holiday"
^XMB(3.9,92,2,887,0)="""RTN"",""PRS8HRSV"",130,0)"
^XMB(3.9,92,2,888,0)=" ; ### SHOULD HYBRID BE ADDED TO THIS CHECK  HOW SHOULD THESE HYBRIDS"
^XMB(3.9,92,2,889,0)="""RTN"",""PRS8HRSV"",131,0)"
^XMB(3.9,92,2,890,0)=" ; ### TREATED ON A HOLIDAY"
^XMB(3.9,92,2,891,0)="""RTN"",""PRS8HRSV"",132,0)"
^XMB(3.9,92,2,892,0)=" I TYP[""P"",TYP[""N""!(TYP[""H""),HOLWKD,X=32 D"
^XMB(3.9,92,2,893,0)="""RTN"",""PRS8HRSV"",133,0)"
^XMB(3.9,92,2,894,0)=" .;"
^XMB(3.9,92,2,895,0)="""RTN"",""PRS8HRSV"",134,0)"
^XMB(3.9,92,2,896,0)=" .;     J gets start & stop times for employee's holiday tour."
^XMB(3.9,92,2,897,0)="""RTN"",""PRS8HRSV"",135,0)"
^XMB(3.9,92,2,898,0)=" .;     Start/stop times are represented w/ natural numbers"
^XMB(3.9,92,2,899,0)="""RTN"",""PRS8HRSV"",136,0)"
^XMB(3.9,92,2,900,0)=" .;     from 0-96.  Each 15 minute segment of the 24 hour period"
^XMB(3.9,92,2,901,0)="""RTN"",""PRS8HRSV"",137,0)"
^XMB(3.9,92,2,902,0)=" .;     beginning & ending at midnight can be represented w/"
^XMB(3.9,92,2,903,0)="""RTN"",""PRS8HRSV"",138,0)"
^XMB(3.9,92,2,904,0)=" .;     a positive integer.  I.e.  1 = mid-12:15am,"
^XMB(3.9,92,2,905,0)="""RTN"",""PRS8HRSV"",139,0)"
^XMB(3.9,92,2,906,0)=" .;     2 = 12:15-12:30a ... 96 = 11:45pm-mid."
^XMB(3.9,92,2,907,0)="""RTN"",""PRS8HRSV"",140,0)"
^XMB(3.9,92,2,908,0)=" .;"
^XMB(3.9,92,2,909,0)="""RTN"",""PRS8HRSV"",141,0)"
^XMB(3.9,92,2,910,0)=" .;     Loop thru each set of start & stop times.  IF the single"
^XMB(3.9,92,2,911,0)="""RTN"",""PRS8HRSV"",142,0)"
^XMB(3.9,92,2,912,0)=" .;     1/4 hr segment we're working w/ falls w/in any of the nurses "
^XMB(3.9,92,2,913,0)="""RTN"",""PRS8HRSV"",143,0)"
^XMB(3.9,92,2,914,0)=" .;     start & stop times THEN set TIME to Holiday Hours Day."
^XMB(3.9,92,2,915,0)="""RTN"",""PRS8HRSV"",144,0)"
^XMB(3.9,92,2,916,0)=" .;"
^XMB(3.9,92,2,917,0)="""RTN"",""PRS8HRSV"",145,0)"
^XMB(3.9,92,2,918,0)=" .N I,J S J=$G(^TMP($J,""PRS8"",DAY,""HWK"")),ZZ=X"
^XMB(3.9,92,2,919,0)="""RTN"",""PRS8HRSV"",146,0)"
^XMB(3.9,92,2,920,0)=" .;"
^XMB(3.9,92,2,921,0)="""RTN"",""PRS8HRSV"",147,0)"
^XMB(3.9,92,2,922,0)=" .F I=1:2 Q:$P(J,U,I)=""""  I M'<$P(J,U,I),M'>$P(J,U,I+1) S X=29"
^XMB(3.9,92,2,923,0)="""RTN"",""PRS8HRSV"",148,0)"
^XMB(3.9,92,2,924,0)=" .;"
^XMB(3.9,92,2,925,0)="""RTN"",""PRS8HRSV"",149,0)"
^XMB(3.9,92,2,926,0)=" .;     Holiday hrs-Day. reset X if 2 day tour.  Otherwise X = 0."
^XMB(3.9,92,2,927,0)="""RTN"",""PRS8HRSV"",150,0)"
^XMB(3.9,92,2,928,0)=" .;"
^XMB(3.9,92,2,929,0)="""RTN"",""PRS8HRSV"",151,0)"
^XMB(3.9,92,2,930,0)=" .I X=29 D SET S X=$S($P(^PRST(457.1,$P(DAY(DAY-1,0),U,2),0),U,5)=""Y"":ZZ,1:0)"
^XMB(3.9,92,2,931,0)="""RTN"",""PRS8HRSV"",152,0)"
^XMB(3.9,92,2,932,0)=" ;"
^XMB(3.9,92,2,933,0)="""RTN"",""PRS8HRSV"",153,0)"
^XMB(3.9,92,2,934,0)=" ;"
^XMB(3.9,92,2,935,0)="""RTN"",""PRS8HRSV"",154,0)"
^XMB(3.9,92,2,936,0)="SET ; --- Set value into WK array"
^XMB(3.9,92,2,937,0)="""RTN"",""PRS8HRSV"",155,0)"
^XMB(3.9,92,2,938,0)=" ;"
^XMB(3.9,92,2,939,0)="""RTN"",""PRS8HRSV"",156,0)"
^XMB(3.9,92,2,940,0)=" ;     Full time employee & part time hours & normal hours WK1 + WK2"
^XMB(3.9,92,2,941,0)="""RTN"",""PRS8HRSV"",157,0)"
^XMB(3.9,92,2,942,0)=" ;     = biweekly normal hours."
^XMB(3.9,92,2,943,0)="""RTN"",""PRS8HRSV"",158,0)"
^XMB(3.9,92,2,944,0)=" ;"
^XMB(3.9,92,2,945,0)="""RTN"",""PRS8HRSV"",159,0)"
^XMB(3.9,92,2,946,0)=" I $P(C0,""^"",10)=1,X=32,NH(1)+NH(2)=NH Q"
^XMB(3.9,92,2,947,0)="""RTN"",""PRS8HRSV"",160,0)"
^XMB(3.9,92,2,948,0)=" ;"
^XMB(3.9,92,2,949,0)="""RTN"",""PRS8HRSV"",161,0)"
^XMB(3.9,92,2,950,0)=" ;     For all types of TIME, increment the WK array."
^XMB(3.9,92,2,951,0)="""RTN"",""PRS8HRSV"",162,0)"
^XMB(3.9,92,2,952,0)=" ;"
^XMB(3.9,92,2,953,0)="""RTN"",""PRS8HRSV"",163,0)"
^XMB(3.9,92,2,954,0)=" I +X D  Q"
^XMB(3.9,92,2,955,0)="""RTN"",""PRS8HRSV"",164,0)"
^XMB(3.9,92,2,956,0)=" . S $P(WK(W),""^"",+X)=$P(WK(W),""^"",+X)+1"
^XMB(3.9,92,2,957,0)="""RTN"",""PRS8HRSV"",165,0)"
^XMB(3.9,92,2,958,0)=" ;"
^XMB(3.9,92,2,959,0)="""RTN"",""PRS8HRSV"",166,0)"
^XMB(3.9,92,2,960,0)=" ;     When X is zero, reset to originally coded time."
^XMB(3.9,92,2,961,0)="""RTN"",""PRS8HRSV"",167,0)"
^XMB(3.9,92,2,962,0)=" ;"
^XMB(3.9,92,2,963,0)="""RTN"",""PRS8HRSV"",168,0)"
^XMB(3.9,92,2,964,0)=" I 'X S X=ZZ Q"
^XMB(3.9,92,2,965,0)="""RTN"",""PRS8HRSV"",169,0)"
^XMB(3.9,92,2,966,0)=" Q"
^XMB(3.9,92,2,967,0)="""RTN"",""PRS8HRSV"",170,0)"
^XMB(3.9,92,2,968,0)=" ;"
^XMB(3.9,92,2,969,0)="""RTN"",""PRS8HRSV"",171,0)"
^XMB(3.9,92,2,970,0)=" ;"
^XMB(3.9,92,2,971,0)="""RTN"",""PRS8HRSV"",172,0)"
^XMB(3.9,92,2,972,0)="TH ; --- increment total hours & compensatory time hours."
^XMB(3.9,92,2,973,0)="""RTN"",""PRS8HRSV"",173,0)"
^XMB(3.9,92,2,974,0)=" ; Posted RG/OT/CT that is >8/day but < 40/week and < 80/pp will not be"
^XMB(3.9,92,2,975,0)="""RTN"",""PRS8HRSV"",174,0)"
^XMB(3.9,92,2,976,0)=" ; counted in TH or TH(W)"
^XMB(3.9,92,2,977,0)="""RTN"",""PRS8HRSV"",175,0)"
^XMB(3.9,92,2,978,0)=" ; "
^XMB(3.9,92,2,979,0)="""RTN"",""PRS8HRSV"",176,0)"
^XMB(3.9,92,2,980,0)=" ; I $S(VAL=4:1,""osEe""[VAL!(VAL=""O""&('HOLWKD)):1,1:0) S TH=TH+1,TH(W)=TH(W)+1"
^XMB(3.9,92,2,981,0)="""RTN"",""PRS8HRSV"",177,0)"
^XMB(3.9,92,2,982,0)=" ;"
^XMB(3.9,92,2,983,0)="""RTN"",""PRS8HRSV"",178,0)"
^XMB(3.9,92,2,984,0)=" I $S(VAL=4:1,""osEe""[VAL!(VAL=""O""&('HOLWKD)):1,1:0) D"
^XMB(3.9,92,2,985,0)="""RTN"",""PRS8HRSV"",179,0)"
^XMB(3.9,92,2,986,0)=" . Q:(HT>32)&(TH(W)<160)&(NH<320)&($E(ENT,19)=1)"
^XMB(3.9,92,2,987,0)="""RTN"",""PRS8HRSV"",180,0)"
^XMB(3.9,92,2,988,0)=" . S TH=TH+1,TH(W)=TH(W)+1"
^XMB(3.9,92,2,989,0)="""RTN"",""PRS8HRSV"",181,0)"
^XMB(3.9,92,2,990,0)=" Q"
^XMB(3.9,92,2,991,0)="""RTN"",""PRS8HRSV"",182,0)"
^XMB(3.9,92,2,992,0)=" ;"
^XMB(3.9,92,2,993,0)="""RTN"",""PRS8HRSV"",183,0)"
^XMB(3.9,92,2,994,0)=" ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
^XMB(3.9,92,2,995,0)="""RTN"",""PRS8HRSV"",184,0)"
^XMB(3.9,92,2,996,0)=" ;"
^XMB(3.9,92,2,997,0)="""RTN"",""PRS8HRSV"",185,0)"
^XMB(3.9,92,2,998,0)="G8 ; --- Check for greater than 8 hours in day"
^XMB(3.9,92,2,999,0)="""RTN"",""PRS8HRSV"",186,0)"
^XMB(3.9,92,2,1000,0)=" ;"
^XMB(3.9,92,2,1001,0)="""RTN"",""PRS8HRSV"",187,0)"
^XMB(3.9,92,2,1002,0)=" Q:HTP'>32!(VAL=""E"")"
^XMB(3.9,92,2,1003,0)="""RTN"",""PRS8HRSV"",188,0)"
^XMB(3.9,92,2,1004,0)=" ;"
^XMB(3.9,92,2,1005,0)="""RTN"",""PRS8HRSV"",189,0)"
^XMB(3.9,92,2,1006,0)=" ; Checks for Hours Excess 8/day (DA/DE)"
^XMB(3.9,92,2,1007,0)="""RTN"",""PRS8HRSV"",190,0)"
^XMB(3.9,92,2,1008,0)=" S X=TOUR+15 D CHK^PRS8HRSV"
^XMB(3.9,92,2,1009,0)="""RTN"",""PRS8HRSV"",191,0)"
^XMB(3.9,92,2,1010,0)=" I X,NH<320,CYA2806>0 S CYA2806=CYA2806-1"
^XMB(3.9,92,2,1011,0)="""RTN"",""PRS8HRSV"",192,0)"
^XMB(3.9,92,2,1012,0)=" Q:X"
^XMB(3.9,92,2,1013,0)="""RTN"",""PRS8HRSV"",193,0)"
^XMB(3.9,92,2,1014,0)=" ;"
^XMB(3.9,92,2,1015,0)="""RTN"",""PRS8HRSV"",194,0)"
^XMB(3.9,92,2,1016,0)=" ; Checks for OT Total Hours (OA/OE)"
^XMB(3.9,92,2,1017,0)="""RTN"",""PRS8HRSV"",195,0)"
^XMB(3.9,92,2,1018,0)=" I TYP[""I""!(TYP[""P""),TYP'[""B"",TH(W)>160 S X=TOUR+19 D CHK^PRS8HRSV"
^XMB(3.9,92,2,1019,0)="""RTN"",""PRS8HRSV"",196,0)"
^XMB(3.9,92,2,1020,0)=" Q"
^XMB(3.9,92,2,1021,0)="""RTN"",""PRS8HRSV"",197,0)"
^XMB(3.9,92,2,1022,0)=" ;"
^XMB(3.9,92,2,1023,0)="""RTN"",""PRS8HRSV"",198,0)"
^XMB(3.9,92,2,1024,0)=" ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
^XMB(3.9,92,2,1025,0)="""RTN"",""PRSATP5"")"
^XMB(3.9,92,2,1026,0)="0^1^B26276696^B28158534"
^XMB(3.9,92,2,1027,0)="""RTN"",""PRSATP5"",1,0)"
^XMB(3.9,92,2,1028,0)="PRSATP5 ;HISC/MGD-Timekeeper Post Absence ;04/18/06"
^XMB(3.9,92,2,1029,0)="""RTN"",""PRSATP5"",2,0)"
^XMB(3.9,92,2,1030,0)=" ;;4.0;PAID;**102,108**;Sep 21, 1995"
^XMB(3.9,92,2,1031,0)="""RTN"",""PRSATP5"",3,0)"
^XMB(3.9,92,2,1032,0)=" ;"
^XMB(3.9,92,2,1033,0)="""RTN"",""PRSATP5"",4,0)"
^XMB(3.9,92,2,1034,0)="CNV96(TDATA,NSEG,ARRAY,ZERO,DADRFM) ;"
^XMB(3.9,92,2,1035,0)="""RTN"",""PRSATP5"",5,0)"
^XMB(3.9,92,2,1036,0)=" ; Convert the external representation of the start/stop time to"
^XMB(3.9,92,2,1037,0)="""RTN"",""PRSATP5"",6,0)"
^XMB(3.9,92,2,1038,0)=" ; its 1 - 192 piece equivalent"
^XMB(3.9,92,2,1039,0)="""RTN"",""PRSATP5"",7,0)"
^XMB(3.9,92,2,1040,0)=" ; "
^XMB(3.9,92,2,1041,0)="""RTN"",""PRSATP5"",8,0)"
^XMB(3.9,92,2,1042,0)=" ; Input:"
^XMB(3.9,92,2,1043,0)="""RTN"",""PRSATP5"",9,0)"
^XMB(3.9,92,2,1044,0)=" ;       TDATA - Time segments to operate on passed by reference"
^XMB(3.9,92,2,1045,0)="""RTN"",""PRSATP5"",10,0)"
^XMB(3.9,92,2,1046,0)=" ;        NSEG - Number of Segments per start/stop time entry"
^XMB(3.9,92,2,1047,0)="""RTN"",""PRSATP5"",11,0)"
^XMB(3.9,92,2,1048,0)=" ;                       3 for tours, 4 for exceptions"
^XMB(3.9,92,2,1049,0)="""RTN"",""PRSATP5"",12,0)"
^XMB(3.9,92,2,1050,0)=" ;       ARRAY - Name of ordered array to create"
^XMB(3.9,92,2,1051,0)="""RTN"",""PRSATP5"",13,0)"
^XMB(3.9,92,2,1052,0)=" ;       1st char - P = Prior (to holiday)"
^XMB(3.9,92,2,1053,0)="""RTN"",""PRSATP5"",14,0)"
^XMB(3.9,92,2,1054,0)=" ;                  H = Holiday"
^XMB(3.9,92,2,1055,0)="""RTN"",""PRSATP5"",15,0)"
^XMB(3.9,92,2,1056,0)=" ;                  N = Next day after holiday"
^XMB(3.9,92,2,1057,0)="""RTN"",""PRSATP5"",16,0)"
^XMB(3.9,92,2,1058,0)=" ;       2nd char - T = Tour segments"
^XMB(3.9,92,2,1059,0)="""RTN"",""PRSATP5"",17,0)"
^XMB(3.9,92,2,1060,0)=" ;                  E = Exception segments, does not include segments"
^XMB(3.9,92,2,1061,0)="""RTN"",""PRSATP5"",18,0)"
^XMB(3.9,92,2,1062,0)=" ;                      that define periods of On-Call"
^XMB(3.9,92,2,1063,0)="""RTN"",""PRSATP5"",19,0)"
^XMB(3.9,92,2,1064,0)=" ;                  O = Segments that define periods of On-Call"
^XMB(3.9,92,2,1065,0)="""RTN"",""PRSATP5"",20,0)"
^XMB(3.9,92,2,1066,0)=" ;                      Could have come from Tour(s) or Exceptions"
^XMB(3.9,92,2,1067,0)="""RTN"",""PRSATP5"",21,0)"
^XMB(3.9,92,2,1068,0)=" ;                  C = Segments of work performed during periods"
^XMB(3.9,92,2,1069,0)="""RTN"",""PRSATP5"",22,0)"
^XMB(3.9,92,2,1070,0)=" ;                      of On-Call"
^XMB(3.9,92,2,1071,0)="""RTN"",""PRSATP5"",23,0)"
^XMB(3.9,92,2,1072,0)=" ;       Format for all arrays"
^XMB(3.9,92,2,1073,0)="""RTN"",""PRSATP5"",24,0)"
^XMB(3.9,92,2,1074,0)=" ;         ARRAY(START)=START^STOP^TOT"
^XMB(3.9,92,2,1075,0)="""RTN"",""PRSATP5"",25,0)"
^XMB(3.9,92,2,1076,0)=" ;         Note: Exceptions arrays (PE, HE, NE) will contain the"
^XMB(3.9,92,2,1077,0)="""RTN"",""PRSATP5"",26,0)"
^XMB(3.9,92,2,1078,0)=" ;               Remarks Code as the 4th piece of DATA"
^XMB(3.9,92,2,1079,0)="""RTN"",""PRSATP5"",27,0)"
^XMB(3.9,92,2,1080,0)=" ;               Exceptions(START)=START^STOP^TOT^RC"
^XMB(3.9,92,2,1081,0)="""RTN"",""PRSATP5"",28,0)"
^XMB(3.9,92,2,1082,0)=" ;               "
^XMB(3.9,92,2,1083,0)="""RTN"",""PRSATP5"",29,0)"
^XMB(3.9,92,2,1084,0)=" ;        ZERO - 0 node of day being processed "
^XMB(3.9,92,2,1085,0)="""RTN"",""PRSATP5"",30,0)"
^XMB(3.9,92,2,1086,0)=" ;        "
^XMB(3.9,92,2,1087,0)="""RTN"",""PRSATP5"",31,0)"
^XMB(3.9,92,2,1088,0)=" ;        DADRFM - variable needed for tracking of tours that"
^XMB(3.9,92,2,1089,0)="""RTN"",""PRSATP5"",32,0)"
^XMB(3.9,92,2,1090,0)=" ;                 cross midnight.  Passed by reference and may"
^XMB(3.9,92,2,1091,0)="""RTN"",""PRSATP5"",33,0)"
^XMB(3.9,92,2,1092,0)=" ;                 be changed."
^XMB(3.9,92,2,1093,0)="""RTN"",""PRSATP5"",34,0)"
^XMB(3.9,92,2,1094,0)=" ;"
^XMB(3.9,92,2,1095,0)="""RTN"",""PRSATP5"",35,0)"
^XMB(3.9,92,2,1096,0)=" Q:TDATA="""""
^XMB(3.9,92,2,1097,0)="""RTN"",""PRSATP5"",36,0)"
^XMB(3.9,92,2,1098,0)=" N D,FLAG,K,LAST,K1,N,N1,N14,NDAY,QT,V,X,Y,Y1,Z"
^XMB(3.9,92,2,1099,0)="""RTN"",""PRSATP5"",37,0)"
^XMB(3.9,92,2,1100,0)=" S N=$S(NSEG=4:2,1:1)"
^XMB(3.9,92,2,1101,0)="""RTN"",""PRSATP5"",38,0)"
^XMB(3.9,92,2,1102,0)=" D CNV,COA"
^XMB(3.9,92,2,1103,0)="""RTN"",""PRSATP5"",39,0)"
^XMB(3.9,92,2,1104,0)=" Q"
^XMB(3.9,92,2,1105,0)="""RTN"",""PRSATP5"",40,0)"
^XMB(3.9,92,2,1106,0)=" ;"
^XMB(3.9,92,2,1107,0)="""RTN"",""PRSATP5"",41,0)"
^XMB(3.9,92,2,1108,0)=" ; The CNV code was copied from PRS8SU and modified to fit"
^XMB(3.9,92,2,1109,0)="""RTN"",""PRSATP5"",42,0)"
^XMB(3.9,92,2,1110,0)=" ; out needs"
^XMB(3.9,92,2,1111,0)="""RTN"",""PRSATP5"",43,0)"
^XMB(3.9,92,2,1112,0)=" ; "
^XMB(3.9,92,2,1113,0)="""RTN"",""PRSATP5"",44,0)"
^XMB(3.9,92,2,1114,0)=" ; loop thru data nodes for day"
^XMB(3.9,92,2,1115,0)="""RTN"",""PRSATP5"",45,0)"
^XMB(3.9,92,2,1116,0)="CNV S D(0)=ZERO,Z=TDATA,N1=NSEG,(N14,NDAY,LAST,QT)=0"
^XMB(3.9,92,2,1117,0)="""RTN"",""PRSATP5"",46,0)"
^XMB(3.9,92,2,1118,0)=" ;"
^XMB(3.9,92,2,1119,0)="""RTN"",""PRSATP5"",47,0)"
^XMB(3.9,92,2,1120,0)=" ; process tour and work nodes by looping thru postings in the node"
^XMB(3.9,92,2,1121,0)="""RTN"",""PRSATP5"",48,0)"
^XMB(3.9,92,2,1122,0)=" F K=1:N1 S V=$P(Z,""^"",K,K+1) Q:QT  D"
^XMB(3.9,92,2,1123,0)="""RTN"",""PRSATP5"",49,0)"
^XMB(3.9,92,2,1124,0)=" .S X=$P(Z,U,K,999)"
^XMB(3.9,92,2,1125,0)="""RTN"",""PRSATP5"",50,0)"
^XMB(3.9,92,2,1126,0)=" .S:X?1""^"".""^""!(X="""")!(N14=1) QT=1"
^XMB(3.9,92,2,1127,0)="""RTN"",""PRSATP5"",51,0)"
^XMB(3.9,92,2,1128,0)=" .I QT!($P(Z,U,K)="""") Q"
^XMB(3.9,92,2,1129,0)="""RTN"",""PRSATP5"",52,0)"
^XMB(3.9,92,2,1130,0)=" .;"
^XMB(3.9,92,2,1131,0)="""RTN"",""PRSATP5"",53,0)"
^XMB(3.9,92,2,1132,0)=" .S:K=1 (NDAY,LAST)=0"
^XMB(3.9,92,2,1133,0)="""RTN"",""PRSATP5"",54,0)"
^XMB(3.9,92,2,1134,0)=" .;"
^XMB(3.9,92,2,1135,0)="""RTN"",""PRSATP5"",55,0)"
^XMB(3.9,92,2,1136,0)=" .; process start time and stop time for posting in node"
^XMB(3.9,92,2,1137,0)="""RTN"",""PRSATP5"",56,0)"
^XMB(3.9,92,2,1138,0)=" .F K1=1,2 S X=$P(V,""^"",K1),(Y,Y1)=K1-1 I X'="""" D"
^XMB(3.9,92,2,1139,0)="""RTN"",""PRSATP5"",57,0)"
^XMB(3.9,92,2,1140,0)=" ..;"
^XMB(3.9,92,2,1141,0)="""RTN"",""PRSATP5"",58,0)"
^XMB(3.9,92,2,1142,0)=" ..; when a tour exception (N=2) start time (K1=1) is being processed"
^XMB(3.9,92,2,1143,0)="""RTN"",""PRSATP5"",59,0)"
^XMB(3.9,92,2,1144,0)=" ..; determine if LAST should be reset (FLAG). If LAST is reset then"
^XMB(3.9,92,2,1145,0)="""RTN"",""PRSATP5"",60,0)"
^XMB(3.9,92,2,1146,0)=" ..; the start time of the tour exception will initially be placed"
^XMB(3.9,92,2,1147,0)="""RTN"",""PRSATP5"",61,0)"
^XMB(3.9,92,2,1148,0)=" ..; in the current day (X'>96) instead of the following day (X>96)"
^XMB(3.9,92,2,1149,0)="""RTN"",""PRSATP5"",62,0)"
^XMB(3.9,92,2,1150,0)=" ..S FLAG=1"
^XMB(3.9,92,2,1151,0)="""RTN"",""PRSATP5"",63,0)"
^XMB(3.9,92,2,1152,0)=" ..I N=2&(K1=1)&(""^HW^""[(""^""_$P(Z,""^"",K+2)_""^"")) D"
^XMB(3.9,92,2,1153,0)="""RTN"",""PRSATP5"",64,0)"
^XMB(3.9,92,2,1154,0)=" ...S FLAG=$S(NDAY=1!(LAST>96)&(""^HW^""[(""^""_$P(Z,""^"",K+2)_""^""))&((X[""A"")!(X[""MID"")):0,1:1),NDAY=0"
^XMB(3.9,92,2,1155,0)="""RTN"",""PRSATP5"",65,0)"
^XMB(3.9,92,2,1156,0)=" ..S:$P(D(0),""^"",14)'=""""&(X=""MID"")&(LAST=96)&(N=2)&(K1=1) FLAG=0"
^XMB(3.9,92,2,1157,0)="""RTN"",""PRSATP5"",66,0)"
^XMB(3.9,92,2,1158,0)=" ..S:N=2&(K1=1)&(FLAG=1) (NDAY,LAST)=0"
^XMB(3.9,92,2,1159,0)="""RTN"",""PRSATP5"",67,0)"
^XMB(3.9,92,2,1160,0)=" ..;"
^XMB(3.9,92,2,1161,0)="""RTN"",""PRSATP5"",68,0)"
^XMB(3.9,92,2,1162,0)=" ..S Y=K1-1 D 15^PRS8SU ; determine number (1-192) corresponding to time"
^XMB(3.9,92,2,1163,0)="""RTN"",""PRSATP5"",69,0)"
^XMB(3.9,92,2,1164,0)=" ..;"
^XMB(3.9,92,2,1165,0)="""RTN"",""PRSATP5"",70,0)"
^XMB(3.9,92,2,1166,0)=" ..; if some tour exceptions (such as leave) are not within a sched."
^XMB(3.9,92,2,1167,0)="""RTN"",""PRSATP5"",71,0)"
^XMB(3.9,92,2,1168,0)=" ..; tour then they must be for the following day (i.e. 2-day tour)"
^XMB(3.9,92,2,1169,0)="""RTN"",""PRSATP5"",72,0)"
^XMB(3.9,92,2,1170,0)=" ..I N=2,""^RG^OT^CT^ON^SB^HW^""'[(""^""_$P(Z,""^"",K+2)_""^"") D"
^XMB(3.9,92,2,1171,0)="""RTN"",""PRSATP5"",73,0)"
^XMB(3.9,92,2,1172,0)=" ...S Y=+$O(DADRFM(""S"",(-X-.01))),Y1=+$O(DADRFM(""F"",(X-.01)))"
^XMB(3.9,92,2,1173,0)="""RTN"",""PRSATP5"",74,0)"
^XMB(3.9,92,2,1174,0)=" ...I $G(DADRFM(""S"",Y))'=$G(DADRFM(""F"",Y1)) S X=X+96"
^XMB(3.9,92,2,1175,0)="""RTN"",""PRSATP5"",75,0)"
^XMB(3.9,92,2,1176,0)=" ...;"
^XMB(3.9,92,2,1177,0)="""RTN"",""PRSATP5"",76,0)"
^XMB(3.9,92,2,1178,0)=" ..S $P(Z,""^"",K+(K1-1))=X ; replace time by number"
^XMB(3.9,92,2,1179,0)="""RTN"",""PRSATP5"",77,0)"
^XMB(3.9,92,2,1180,0)=" ..;"
^XMB(3.9,92,2,1181,0)="""RTN"",""PRSATP5"",78,0)"
^XMB(3.9,92,2,1182,0)=" ..; save scheduled tour start and stop times for later use when"
^XMB(3.9,92,2,1183,0)="""RTN"",""PRSATP5"",79,0)"
^XMB(3.9,92,2,1184,0)=" ..; placing some tour exceptions on correct day for 2-day tours"
^XMB(3.9,92,2,1185,0)="""RTN"",""PRSATP5"",80,0)"
^XMB(3.9,92,2,1186,0)=" ..I K1=1,N=1!(N=4) S DADRFM(""S"",-X)=DADRFM"
^XMB(3.9,92,2,1187,0)="""RTN"",""PRSATP5"",81,0)"
^XMB(3.9,92,2,1188,0)=" ..I K1=2,N=1!(N=4) S DADRFM(""F"",X)=DADRFM,DADRFM=DADRFM+1"
^XMB(3.9,92,2,1189,0)="""RTN"",""PRSATP5"",82,0)"
^XMB(3.9,92,2,1190,0)=" ..;"
^XMB(3.9,92,2,1191,0)="""RTN"",""PRSATP5"",83,0)"
^XMB(3.9,92,2,1192,0)=" ..; End of code copied from PRS8SU"
^XMB(3.9,92,2,1193,0)="""RTN"",""PRSATP5"",84,0)"
^XMB(3.9,92,2,1194,0)=" ..S $P(TDATA,U,K+(K1-1))=X"
^XMB(3.9,92,2,1195,0)="""RTN"",""PRSATP5"",85,0)"
^XMB(3.9,92,2,1196,0)=" Q"
^XMB(3.9,92,2,1197,0)="""RTN"",""PRSATP5"",86,0)"
^XMB(3.9,92,2,1198,0)=" ;"
^XMB(3.9,92,2,1199,0)="""RTN"",""PRSATP5"",87,0)"
^XMB(3.9,92,2,1200,0)=" ; Create ordered arrays"
^XMB(3.9,92,2,1201,0)="""RTN"",""PRSATP5"",88,0)"
^XMB(3.9,92,2,1202,0)="COA N ARY,RC,SEG,STI,STOP,STRT,TOT"
^XMB(3.9,92,2,1203,0)="""RTN"",""PRSATP5"",89,0)"
^XMB(3.9,92,2,1204,0)=" S RC="""""
^XMB(3.9,92,2,1205,0)="""RTN"",""PRSATP5"",90,0)"
^XMB(3.9,92,2,1206,0)=" F SEG=0:1:6 D"
^XMB(3.9,92,2,1207,0)="""RTN"",""PRSATP5"",91,0)"
^XMB(3.9,92,2,1208,0)=" .S STRT=$P(TDATA,U,(SEG*NSEG)+1)"
^XMB(3.9,92,2,1209,0)="""RTN"",""PRSATP5"",92,0)"
^XMB(3.9,92,2,1210,0)=" .Q:STRT="""""
^XMB(3.9,92,2,1211,0)="""RTN"",""PRSATP5"",93,0)"
^XMB(3.9,92,2,1212,0)=" .S STOP=$P(TDATA,U,(SEG*NSEG)+2),TOT=$P(TDATA,U,(SEG*NSEG)+3)"
^XMB(3.9,92,2,1213,0)="""RTN"",""PRSATP5"",94,0)"
^XMB(3.9,92,2,1214,0)=" .; For Node1 & Node4 TOT will be numeric so we will need to get"
^XMB(3.9,92,2,1215,0)="""RTN"",""PRSATP5"",95,0)"
^XMB(3.9,92,2,1216,0)=" .; its external representation (2 character string)"
^XMB(3.9,92,2,1217,0)="""RTN"",""PRSATP5"",96,0)"
^XMB(3.9,92,2,1218,0)=" .; For Node2 TOT will be a 2 character string"
^XMB(3.9,92,2,1219,0)="""RTN"",""PRSATP5"",97,0)"
^XMB(3.9,92,2,1220,0)=" .I NSEG=4 S RC=$P(TDATA,U,(SEG*NSEG)+4)"
^XMB(3.9,92,2,1221,0)="""RTN"",""PRSATP5"",98,0)"
^XMB(3.9,92,2,1222,0)=" .S STI="""" ; Special Tour Indicator"
^XMB(3.9,92,2,1223,0)="""RTN"",""PRSATP5"",99,0)"
^XMB(3.9,92,2,1224,0)=" .I NSEG=3,TOT S STI=$P($G(^PRST(457.2,TOT,0)),U,2)"
^XMB(3.9,92,2,1225,0)="""RTN"",""PRSATP5"",100,0)"
^XMB(3.9,92,2,1226,0)=" .;"
^XMB(3.9,92,2,1227,0)="""RTN"",""PRSATP5"",101,0)"
^XMB(3.9,92,2,1228,0)=" .; Don't set exceptions defining periods of On-Call into Exception array"
^XMB(3.9,92,2,1229,0)="""RTN"",""PRSATP5"",102,0)"
^XMB(3.9,92,2,1230,0)=" .I $E(ARRAY,2)=""E"",TOT'=""ON"" D"
^XMB(3.9,92,2,1231,0)="""RTN"",""PRSATP5"",103,0)"
^XMB(3.9,92,2,1232,0)=" ..S @ARRAY@(STRT)=STRT_U_STOP_U_TOT_U_RC"
^XMB(3.9,92,2,1233,0)="""RTN"",""PRSATP5"",104,0)"
^XMB(3.9,92,2,1234,0)=" .;"
^XMB(3.9,92,2,1235,0)="""RTN"",""PRSATP5"",105,0)"
^XMB(3.9,92,2,1236,0)=" .; Set only Reg segments of tour where the Special Tour Indicator"
^XMB(3.9,92,2,1237,0)="""RTN"",""PRSATP5"",106,0)"
^XMB(3.9,92,2,1238,0)=" .; is """" or RG into the Tour array"
^XMB(3.9,92,2,1239,0)="""RTN"",""PRSATP5"",107,0)"
^XMB(3.9,92,2,1240,0)=" .I $E(ARRAY,2)=""T"" D"
^XMB(3.9,92,2,1241,0)="""RTN"",""PRSATP5"",108,0)"
^XMB(3.9,92,2,1242,0)=" ..I TOT="""" S @ARRAY@(STRT)=STRT_U_STOP_U_TOT"
^XMB(3.9,92,2,1243,0)="""RTN"",""PRSATP5"",109,0)"
^XMB(3.9,92,2,1244,0)=" ..I STI=""RG"" S @ARRAY@(STRT)=STRT_U_STOP_U_TOT"
^XMB(3.9,92,2,1245,0)="""RTN"",""PRSATP5"",110,0)"
^XMB(3.9,92,2,1246,0)=" .;"
^XMB(3.9,92,2,1247,0)="""RTN"",""PRSATP5"",111,0)"
^XMB(3.9,92,2,1248,0)=" .; Only set segments that define On-Call into On-Call array"
^XMB(3.9,92,2,1249,0)="""RTN"",""PRSATP5"",112,0)"
^XMB(3.9,92,2,1250,0)=" .I TOT=""ON""!(STI=""ON"") D"
^XMB(3.9,92,2,1251,0)="""RTN"",""PRSATP5"",113,0)"
^XMB(3.9,92,2,1252,0)=" ..S TOT=$S(TOT'="""":TOT,1:STI)"
^XMB(3.9,92,2,1253,0)="""RTN"",""PRSATP5"",114,0)"
^XMB(3.9,92,2,1254,0)=" ..S ARY=$E(ARRAY,1)_""O"" S @ARY@(STRT)=STRT_U_STOP_U_TOT"
^XMB(3.9,92,2,1255,0)="""RTN"",""PRSATP5"",115,0)"
^XMB(3.9,92,2,1256,0)=" .;"
^XMB(3.9,92,2,1257,0)="""RTN"",""PRSATP5"",116,0)"
^XMB(3.9,92,2,1258,0)=" .; Only segments of work get in the Call-Back"
^XMB(3.9,92,2,1259,0)="""RTN"",""PRSATP5"",117,0)"
^XMB(3.9,92,2,1260,0)=" .I ""^RG^OT^CT^""[(""^""_TOT_""^"") D"
^XMB(3.9,92,2,1261,0)="""RTN"",""PRSATP5"",118,0)"
^XMB(3.9,92,2,1262,0)=" .. S ARY=$E(ARRAY,1)_""C"" S @ARY@(STRT)=STRT_U_STOP_U_TOT"
^XMB(3.9,92,2,1263,0)="""RTN"",""PRSATP5"",119,0)"
^XMB(3.9,92,2,1264,0)=" Q"
^XMB(3.9,92,2,1265,0)="""RTN"",""PRSATP5"",120,0)"
^XMB(3.9,92,2,1266,0)=" ;"
^XMB(3.9,92,2,1267,0)="""RTN"",""PRSATP5"",121,0)"
^XMB(3.9,92,2,1268,0)="GETPPP(PPIP,DFN,WDAY,BACK,QUIT) ;"
^XMB(3.9,92,2,1269,0)="""RTN"",""PRSATP5"",122,0)"
^XMB(3.9,92,2,1270,0)=" ; Set appropriate variables for prior pay period"
^XMB(3.9,92,2,1271,0)="""RTN"",""PRSATP5"",123,0)"
^XMB(3.9,92,2,1272,0)=" ;   Input:"
^XMB(3.9,92,2,1273,0)="""RTN"",""PRSATP5"",124,0)"
^XMB(3.9,92,2,1274,0)=" ;     PPIP - Internal format of current pay period"
^XMB(3.9,92,2,1275,0)="""RTN"",""PRSATP5"",125,0)"
^XMB(3.9,92,2,1276,0)=" ;      DFN - IEN of employee"
^XMB(3.9,92,2,1277,0)="""RTN"",""PRSATP5"",126,0)"
^XMB(3.9,92,2,1278,0)=" ;     WDAY - Day currently being examined"
^XMB(3.9,92,2,1279,0)="""RTN"",""PRSATP5"",127,0)"
^XMB(3.9,92,2,1280,0)=" ;     QUIT - Null"
^XMB(3.9,92,2,1281,0)="""RTN"",""PRSATP5"",128,0)"
^XMB(3.9,92,2,1282,0)=" ;     "
^XMB(3.9,92,2,1283,0)="""RTN"",""PRSATP5"",129,0)"
^XMB(3.9,92,2,1284,0)=" ;  Output:"
^XMB(3.9,92,2,1285,0)="""RTN"",""PRSATP5"",130,0)"
^XMB(3.9,92,2,1286,0)=" ;     PPIP - IEN of Prior Pay Period"
^XMB(3.9,92,2,1287,0)="""RTN"",""PRSATP5"",131,0)"
^XMB(3.9,92,2,1288,0)=" ;     WDAY - Set to last day of prior pay period"
^XMB(3.9,92,2,1289,0)="""RTN"",""PRSATP5"",132,0)"
^XMB(3.9,92,2,1290,0)=" ;     BACK - Counter for number of pay period looked back"
^XMB(3.9,92,2,1291,0)="""RTN"",""PRSATP5"",133,0)"
^XMB(3.9,92,2,1292,0)=" ;     QUIT - Will be set to 1 if there is no timecard for"
^XMB(3.9,92,2,1293,0)="""RTN"",""PRSATP5"",134,0)"
^XMB(3.9,92,2,1294,0)=" ;            the employee in the prior pay period"
^XMB(3.9,92,2,1295,0)="""RTN"",""PRSATP5"",135,0)"
^XMB(3.9,92,2,1296,0)=" ;"
^XMB(3.9,92,2,1297,0)="""RTN"",""PRSATP5"",136,0)"
^XMB(3.9,92,2,1298,0)=" S PPIP=$O(^PRST(458,PPIP),-1) ; Get Prior PP"
^XMB(3.9,92,2,1299,0)="""RTN"",""PRSATP5"",137,0)"
^XMB(3.9,92,2,1300,0)=" I 'PPIP S QUIT=1 Q  ; No prior pay period on file"
^XMB(3.9,92,2,1301,0)="""RTN"",""PRSATP5"",138,0)"
^XMB(3.9,92,2,1302,0)=" ; Check for employee timecard in this PP"
^XMB(3.9,92,2,1303,0)="""RTN"",""PRSATP5"",139,0)"
^XMB(3.9,92,2,1304,0)=" I '$D(^PRST(458,PPIP,""E"",DFN,0)) S QUIT=1 Q"
^XMB(3.9,92,2,1305,0)="""RTN"",""PRSATP5"",140,0)"
^XMB(3.9,92,2,1306,0)=" S WDAY=14,BACK=BACK+1"
^XMB(3.9,92,2,1307,0)="""RTN"",""PRSATP5"",141,0)"
^XMB(3.9,92,2,1308,0)=" Q"
^XMB(3.9,92,2,1309,0)="""RTN"",""PRSATP5"",142,0)"
^XMB(3.9,92,2,1310,0)=" ;"
^XMB(3.9,92,2,1311,0)="""RTN"",""PRSATP5"",143,0)"
^XMB(3.9,92,2,1312,0)="GETNPP(PPIN,DFN,WDAY,NEXT,QUIT) ;"
^XMB(3.9,92,2,1313,0)="""RTN"",""PRSATP5"",144,0)"
^XMB(3.9,92,2,1314,0)=" ; Set appropriate variables for next pay period"
^XMB(3.9,92,2,1315,0)="""RTN"",""PRSATP5"",145,0)"
^XMB(3.9,92,2,1316,0)=" ;   Input:"
^XMB(3.9,92,2,1317,0)="""RTN"",""PRSATP5"",146,0)"
^XMB(3.9,92,2,1318,0)=" ;     PPIN - Internal format of current pay period"
^XMB(3.9,92,2,1319,0)="""RTN"",""PRSATP5"",147,0)"
^XMB(3.9,92,2,1320,0)=" ;      DFN - IEN of employee"
^XMB(3.9,92,2,1321,0)="""RTN"",""PRSATP5"",148,0)"
^XMB(3.9,92,2,1322,0)=" ;     WDAY - Day currently being examined"
^XMB(3.9,92,2,1323,0)="""RTN"",""PRSATP5"",149,0)"
^XMB(3.9,92,2,1324,0)=" ;     QUIT - Null"
^XMB(3.9,92,2,1325,0)="""RTN"",""PRSATP5"",150,0)"
^XMB(3.9,92,2,1326,0)=" ;"
^XMB(3.9,92,2,1327,0)="""RTN"",""PRSATP5"",151,0)"
^XMB(3.9,92,2,1328,0)=" ;  Output:"
^XMB(3.9,92,2,1329,0)="""RTN"",""PRSATP5"",152,0)"
^XMB(3.9,92,2,1330,0)=" ;     PPIN - IEN of Next Pay Period"
^XMB(3.9,92,2,1331,0)="""RTN"",""PRSATP5"",153,0)"
^XMB(3.9,92,2,1332,0)=" ;     WDAY - Set to first day of next pay period"
^XMB(3.9,92,2,1333,0)="""RTN"",""PRSATP5"",154,0)"
^XMB(3.9,92,2,1334,0)=" ;     BACK - Counter for number of pay period looked forward"
^XMB(3.9,92,2,1335,0)="""RTN"",""PRSATP5"",155,0)"
^XMB(3.9,92,2,1336,0)=" ;     QUIT - Will be set to 1 if there is no timecard for"
^XMB(3.9,92,2,1337,0)="""RTN"",""PRSATP5"",156,0)"
^XMB(3.9,92,2,1338,0)=" ;            the employee in the next pay period"
^XMB(3.9,92,2,1339,0)="""RTN"",""PRSATP5"",157,0)"
^XMB(3.9,92,2,1340,0)=" ;"
^XMB(3.9,92,2,1341,0)="""RTN"",""PRSATP5"",158,0)"
^XMB(3.9,92,2,1342,0)=" S PPIN=$O(^PRST(458,PPIN)) ; Get next PP"
^XMB(3.9,92,2,1343,0)="""RTN"",""PRSATP5"",159,0)"
^XMB(3.9,92,2,1344,0)=" I 'PPIN S QUIT=1 Q  ; Next pay period not on file"
^XMB(3.9,92,2,1345,0)="""RTN"",""PRSATP5"",160,0)"
^XMB(3.9,92,2,1346,0)=" ; Check for employee timecard in this PP"
^XMB(3.9,92,2,1347,0)="""RTN"",""PRSATP5"",161,0)"
^XMB(3.9,92,2,1348,0)=" I '$D(^PRST(458,PPIN,""E"",DFN,0)) S QUIT=1 Q"
^XMB(3.9,92,2,1349,0)="""RTN"",""PRSATP5"",162,0)"
^XMB(3.9,92,2,1350,0)=" S WDAY=1,NEXT=NEXT+1"
^XMB(3.9,92,2,1351,0)="""RTN"",""PRSATP5"",163,0)"
^XMB(3.9,92,2,1352,0)=" Q"
^XMB(3.9,92,2,1353,0)="""RTN"",""PRSATP6"")"
^XMB(3.9,92,2,1354,0)="0^2^B5087366^B5009394"
^XMB(3.9,92,2,1355,0)="""RTN"",""PRSATP6"",1,0)"
^XMB(3.9,92,2,1356,0)="PRSATP6 ;HISC/MGD-Timekeeper Post Absence ;04/18/06"
^XMB(3.9,92,2,1357,0)="""RTN"",""PRSATP6"",2,0)"
^XMB(3.9,92,2,1358,0)=" ;;4.0;PAID;**102,108**;Sep 21, 1995"
^XMB(3.9,92,2,1359,0)="""RTN"",""PRSATP6"",3,0)"
^XMB(3.9,92,2,1360,0)=" ;       "
^XMB(3.9,92,2,1361,0)="""RTN"",""PRSATP6"",4,0)"
^XMB(3.9,92,2,1362,0)="DBH(PPIP,DFN,WDAY,DBH,QUIT) ;"
^XMB(3.9,92,2,1363,0)="""RTN"",""PRSATP6"",5,0)"
^XMB(3.9,92,2,1364,0)=" ; Find Day Before Holiday"
^XMB(3.9,92,2,1365,0)="""RTN"",""PRSATP6"",6,0)"
^XMB(3.9,92,2,1366,0)=" ; Input:"
^XMB(3.9,92,2,1367,0)="""RTN"",""PRSATP6"",7,0)"
^XMB(3.9,92,2,1368,0)=" ;   PPIP - IEN of pay period to check"
^XMB(3.9,92,2,1369,0)="""RTN"",""PRSATP6"",8,0)"
^XMB(3.9,92,2,1370,0)=" ;    DFN - IEN of employee to check"
^XMB(3.9,92,2,1371,0)="""RTN"",""PRSATP6"",9,0)"
^XMB(3.9,92,2,1372,0)=" ;   WDAY - Day to start looping from"
^XMB(3.9,92,2,1373,0)="""RTN"",""PRSATP6"",10,0)"
^XMB(3.9,92,2,1374,0)=" ;    DAH - Null"
^XMB(3.9,92,2,1375,0)="""RTN"",""PRSATP6"",11,0)"
^XMB(3.9,92,2,1376,0)=" ;   QUIT - Null"
^XMB(3.9,92,2,1377,0)="""RTN"",""PRSATP6"",12,0)"
^XMB(3.9,92,2,1378,0)=" ;   "
^XMB(3.9,92,2,1379,0)="""RTN"",""PRSATP6"",13,0)"
^XMB(3.9,92,2,1380,0)=" ;  Output: "
^XMB(3.9,92,2,1381,0)="""RTN"",""PRSATP6"",14,0)"
^XMB(3.9,92,2,1382,0)=" ;    DAH - PPIP^WDAY^Type of non-pay"
^XMB(3.9,92,2,1383,0)="""RTN"",""PRSATP6"",15,0)"
^XMB(3.9,92,2,1384,0)=" ;   QUIT - Will be set to 1 if the holiday encapsulation"
^XMB(3.9,92,2,1385,0)="""RTN"",""PRSATP6"",16,0)"
^XMB(3.9,92,2,1386,0)=" ;          rules are broken"
^XMB(3.9,92,2,1387,0)="""RTN"",""PRSATP6"",17,0)"
^XMB(3.9,92,2,1388,0)=" ;"
^XMB(3.9,92,2,1389,0)="""RTN"",""PRSATP6"",18,0)"
^XMB(3.9,92,2,1390,0)=" N DADRFM,EDATA,EEND,EIN,EINDX,ETOT,NODE0,NODE1,NODE2,NODE4"
^XMB(3.9,92,2,1391,0)="""RTN"",""PRSATP6"",19,0)"
^XMB(3.9,92,2,1392,0)=" N TEND,TINDX,TOUR1,TOUR2,REGHRS1,REGHRS2"
^XMB(3.9,92,2,1393,0)="""RTN"",""PRSATP6"",20,0)"
^XMB(3.9,92,2,1394,0)=" N PT,PE,PO,PC ; New ordered arrays"
^XMB(3.9,92,2,1395,0)="""RTN"",""PRSATP6"",21,0)"
^XMB(3.9,92,2,1396,0)=" S NODE0=$G(^PRST(458,PPIP,""E"",DFN,""D"",WDAY,0))"
^XMB(3.9,92,2,1397,0)="""RTN"",""PRSATP6"",22,0)"
^XMB(3.9,92,2,1398,0)=" I NODE0="""" S QUIT=1 Q  ; Corrupted data "
^XMB(3.9,92,2,1399,0)="""RTN"",""PRSATP6"",23,0)"
^XMB(3.9,92,2,1400,0)=" S NODE2=$G(^PRST(458,PPIP,""E"",DFN,""D"",WDAY,2))"
^XMB(3.9,92,2,1401,0)="""RTN"",""PRSATP6"",24,0)"
^XMB(3.9,92,2,1402,0)=" ;"
^XMB(3.9,92,2,1403,0)="""RTN"",""PRSATP6"",25,0)"
^XMB(3.9,92,2,1404,0)=" ; Skip Days off"
^XMB(3.9,92,2,1405,0)="""RTN"",""PRSATP6"",26,0)"
^XMB(3.9,92,2,1406,0)=" Q:$P(NODE0,U,2)=1"
^XMB(3.9,92,2,1407,0)="""RTN"",""PRSATP6"",27,0)"
^XMB(3.9,92,2,1408,0)=" ;"
^XMB(3.9,92,2,1409,0)="""RTN"",""PRSATP6"",28,0)"
^XMB(3.9,92,2,1410,0)=" ; Check for tours with no regular hours"
^XMB(3.9,92,2,1411,0)="""RTN"",""PRSATP6"",29,0)"
^XMB(3.9,92,2,1412,0)=" S TOUR1=+$P(NODE0,U,2),TOUR2=+$P(NODE0,U,13)"
^XMB(3.9,92,2,1413,0)="""RTN"",""PRSATP6"",30,0)"
^XMB(3.9,92,2,1414,0)=" S REGHRS1=$P($G(^PRST(457.1,TOUR1,0)),U,6)"
^XMB(3.9,92,2,1415,0)="""RTN"",""PRSATP6"",31,0)"
^XMB(3.9,92,2,1416,0)=" S REGHRS2=$S(TOUR2:$P($G(^PRST(457.1,TOUR2,0)),U,6),1:"""")"
^XMB(3.9,92,2,1417,0)="""RTN"",""PRSATP6"",32,0)"
^XMB(3.9,92,2,1418,0)=" Q:$P(NODE0,U,2)'=2&($P(NODE0,U,2)'=3)&(REGHRS1+REGHRS2=0)"
^XMB(3.9,92,2,1419,0)="""RTN"",""PRSATP6"",33,0)"
^XMB(3.9,92,2,1420,0)=" ;"
^XMB(3.9,92,2,1421,0)="""RTN"",""PRSATP6"",34,0)"
^XMB(3.9,92,2,1422,0)=" ; If the day has a tour that defines work and there are no exceptions"
^XMB(3.9,92,2,1423,0)="""RTN"",""PRSATP6"",35,0)"
^XMB(3.9,92,2,1424,0)=" ; encapsulation is broken"
^XMB(3.9,92,2,1425,0)="""RTN"",""PRSATP6"",36,0)"
^XMB(3.9,92,2,1426,0)=" I $P(NODE0,U,2)>1,NODE2'[""NP"",NODE2'[""WP"" S QUIT=1 Q"
^XMB(3.9,92,2,1427,0)="""RTN"",""PRSATP6"",37,0)"
^XMB(3.9,92,2,1428,0)=" ;"
^XMB(3.9,92,2,1429,0)="""RTN"",""PRSATP6"",38,0)"
^XMB(3.9,92,2,1430,0)=" ; Checks for employees with DAILY tours"
^XMB(3.9,92,2,1431,0)="""RTN"",""PRSATP6"",39,0)"
^XMB(3.9,92,2,1432,0)=" I $P(NODE0,U,2)=2!($P(NODE0,U,2)=3) S DBH=PPIP_U_DFN_U_$P(NODE2,U,3) Q"
^XMB(3.9,92,2,1433,0)="""RTN"",""PRSATP6"",40,0)"
^XMB(3.9,92,2,1434,0)=" ;"
^XMB(3.9,92,2,1435,0)="""RTN"",""PRSATP6"",41,0)"
^XMB(3.9,92,2,1436,0)=" ; Load tours and convert to numeric equivalents"
^XMB(3.9,92,2,1437,0)="""RTN"",""PRSATP6"",42,0)"
^XMB(3.9,92,2,1438,0)=" ; This creates the ordered arrays"
^XMB(3.9,92,2,1439,0)="""RTN"",""PRSATP6"",43,0)"
^XMB(3.9,92,2,1440,0)=" S DADRFM=1"
^XMB(3.9,92,2,1441,0)="""RTN"",""PRSATP6"",44,0)"
^XMB(3.9,92,2,1442,0)=" S NODE1=$G(^PRST(458,PPIP,""E"",DFN,""D"",WDAY,1))"
^XMB(3.9,92,2,1443,0)="""RTN"",""PRSATP6"",45,0)"
^XMB(3.9,92,2,1444,0)=" D CNV96^PRSATP5(.NODE1,3,""PT"",NODE0,.DADRFM)"
^XMB(3.9,92,2,1445,0)="""RTN"",""PRSATP6"",46,0)"
^XMB(3.9,92,2,1446,0)=" S NODE4=$G(^PRST(458,PPIP,""E"",DFN,""D"",WDAY,4))"
^XMB(3.9,92,2,1447,0)="""RTN"",""PRSATP6"",47,0)"
^XMB(3.9,92,2,1448,0)=" I NODE4'="""" D CNV96^PRSATP5(.NODE4,3,""PT"",NODE0,.DADRFM)"
^XMB(3.9,92,2,1449,0)="""RTN"",""PRSATP6"",48,0)"
^XMB(3.9,92,2,1450,0)=" D CNV96^PRSATP5(.NODE2,4,""PE"",NODE0,.DADRFM)"
^XMB(3.9,92,2,1451,0)="""RTN"",""PRSATP6"",49,0)"
^XMB(3.9,92,2,1452,0)=" ;"
^XMB(3.9,92,2,1453,0)="""RTN"",""PRSATP6"",50,0)"
^XMB(3.9,92,2,1454,0)=" ; Identify end of tour"
^XMB(3.9,92,2,1455,0)="""RTN"",""PRSATP6"",51,0)"
^XMB(3.9,92,2,1456,0)=" S TINDX="""",TINDX=$O(PT(TINDX),-1)"
^XMB(3.9,92,2,1457,0)="""RTN"",""PRSATP6"",52,0)"
^XMB(3.9,92,2,1458,0)=" S TEND=$P(PT(TINDX),U,2)"
^XMB(3.9,92,2,1459,0)="""RTN"",""PRSATP6"",53,0)"
^XMB(3.9,92,2,1460,0)=" ;"
^XMB(3.9,92,2,1461,0)="""RTN"",""PRSATP6"",54,0)"
^XMB(3.9,92,2,1462,0)=" ; Loop backwards through ordered exceptions to see if last 15"
^XMB(3.9,92,2,1463,0)="""RTN"",""PRSATP6"",55,0)"
^XMB(3.9,92,2,1464,0)=" ; minutes of tour was non-pay"
^XMB(3.9,92,2,1465,0)="""RTN"",""PRSATP6"",56,0)"
^XMB(3.9,92,2,1466,0)=" S (EINDX,EDATA)="""""
^XMB(3.9,92,2,1467,0)="""RTN"",""PRSATP6"",57,0)"
^XMB(3.9,92,2,1468,0)=" F EIN=1:1:7 D  Q:QUIT!(EINDX="""")!(DBH'="""")"
^XMB(3.9,92,2,1469,0)="""RTN"",""PRSATP6"",58,0)"
^XMB(3.9,92,2,1470,0)=" . S EINDX=$O(PE(EINDX),-1)"
^XMB(3.9,92,2,1471,0)="""RTN"",""PRSATP6"",59,0)"
^XMB(3.9,92,2,1472,0)=" . Q:EINDX="""""
^XMB(3.9,92,2,1473,0)="""RTN"",""PRSATP6"",60,0)"
^XMB(3.9,92,2,1474,0)=" . S EDATA=PE(EINDX),EEND=$P(EDATA,U,2),ETOT=$P(EDATA,U,3)"
^XMB(3.9,92,2,1475,0)="""RTN"",""PRSATP6"",61,0)"
^XMB(3.9,92,2,1476,0)=" . Q:EEND'=TEND  ; not last 15 minutes"
^XMB(3.9,92,2,1477,0)="""RTN"",""PRSATP6"",62,0)"
^XMB(3.9,92,2,1478,0)=" . I ETOT'=""NP""&(ETOT'=""WP"") S QUIT=1 Q  ; last 15 wasn't non-pay"
^XMB(3.9,92,2,1479,0)="""RTN"",""PRSATP6"",63,0)"
^XMB(3.9,92,2,1480,0)=" . S DBH=PPIP_U_WDAY_U_ETOT"
^XMB(3.9,92,2,1481,0)="""RTN"",""PRSATP6"",64,0)"
^XMB(3.9,92,2,1482,0)=" I DBH="""" S QUIT=1"
^XMB(3.9,92,2,1483,0)="""RTN"",""PRSATP6"",65,0)"
^XMB(3.9,92,2,1484,0)=" Q"
^XMB(3.9,92,2,1485,0)="""RTN"",""PRSATP7"")"
^XMB(3.9,92,2,1486,0)="0^3^B4957081^B4880229"
^XMB(3.9,92,2,1487,0)="""RTN"",""PRSATP7"",1,0)"
^XMB(3.9,92,2,1488,0)="PRSATP7 ;HISC/MGD-Timekeeper Post Absence ;04/18/06"
^XMB(3.9,92,2,1489,0)="""RTN"",""PRSATP7"",2,0)"
^XMB(3.9,92,2,1490,0)=" ;;4.0;PAID;**102,108**;Sep 21, 1995"
^XMB(3.9,92,2,1491,0)="""RTN"",""PRSATP7"",3,0)"
^XMB(3.9,92,2,1492,0)=" ;       "
^XMB(3.9,92,2,1493,0)="""RTN"",""PRSATP7"",4,0)"
^XMB(3.9,92,2,1494,0)="DAH(PPIP,DFN,WDAY,DAH,QUIT) ;"
^XMB(3.9,92,2,1495,0)="""RTN"",""PRSATP7"",5,0)"
^XMB(3.9,92,2,1496,0)=" ; Find Day After Holiday - Called from PRSASR"
^XMB(3.9,92,2,1497,0)="""RTN"",""PRSATP7"",6,0)"
^XMB(3.9,92,2,1498,0)=" ; Input:"
^XMB(3.9,92,2,1499,0)="""RTN"",""PRSATP7"",7,0)"
^XMB(3.9,92,2,1500,0)=" ;   PPIP - IEN of pay period to check"
^XMB(3.9,92,2,1501,0)="""RTN"",""PRSATP7"",8,0)"
^XMB(3.9,92,2,1502,0)=" ;    DFN - IEN of employee to check"
^XMB(3.9,92,2,1503,0)="""RTN"",""PRSATP7"",9,0)"
^XMB(3.9,92,2,1504,0)=" ;   WDAY - Day to start looping from"
^XMB(3.9,92,2,1505,0)="""RTN"",""PRSATP7"",10,0)"
^XMB(3.9,92,2,1506,0)=" ;    DAH - Null"
^XMB(3.9,92,2,1507,0)="""RTN"",""PRSATP7"",11,0)"
^XMB(3.9,92,2,1508,0)=" ;   QUIT - Null"
^XMB(3.9,92,2,1509,0)="""RTN"",""PRSATP7"",12,0)"
^XMB(3.9,92,2,1510,0)=" ;   "
^XMB(3.9,92,2,1511,0)="""RTN"",""PRSATP7"",13,0)"
^XMB(3.9,92,2,1512,0)=" ;  Output: "
^XMB(3.9,92,2,1513,0)="""RTN"",""PRSATP7"",14,0)"
^XMB(3.9,92,2,1514,0)=" ;    DAH - PPIP^WDAY^Type of non-pay"
^XMB(3.9,92,2,1515,0)="""RTN"",""PRSATP7"",15,0)"
^XMB(3.9,92,2,1516,0)=" ;   QUIT - Will be set to 1 if the holiday encapsulation"
^XMB(3.9,92,2,1517,0)="""RTN"",""PRSATP7"",16,0)"
^XMB(3.9,92,2,1518,0)=" ;          rules are broken"
^XMB(3.9,92,2,1519,0)="""RTN"",""PRSATP7"",17,0)"
^XMB(3.9,92,2,1520,0)=" ;"
^XMB(3.9,92,2,1521,0)="""RTN"",""PRSATP7"",18,0)"
^XMB(3.9,92,2,1522,0)=" N DADRFM,EDATA,EEND,EIN,EINDX,ETOT,NODE0,NODE1,NODE2,NODE4"
^XMB(3.9,92,2,1523,0)="""RTN"",""PRSATP7"",19,0)"
^XMB(3.9,92,2,1524,0)=" N TINDX,TOUR1,TOUR2,REGHRS1,REGHRS2"
^XMB(3.9,92,2,1525,0)="""RTN"",""PRSATP7"",20,0)"
^XMB(3.9,92,2,1526,0)=" N NT,NE,NO,NC ; New ordered arrays"
^XMB(3.9,92,2,1527,0)="""RTN"",""PRSATP7"",21,0)"
^XMB(3.9,92,2,1528,0)=" S NODE0=$G(^PRST(458,PPIP,""E"",DFN,""D"",WDAY,0))"
^XMB(3.9,92,2,1529,0)="""RTN"",""PRSATP7"",22,0)"
^XMB(3.9,92,2,1530,0)=" I NODE0="""" S QUIT=1 Q  ; Corrupted data "
^XMB(3.9,92,2,1531,0)="""RTN"",""PRSATP7"",23,0)"
^XMB(3.9,92,2,1532,0)=" S NODE2=$G(^PRST(458,PPIP,""E"",DFN,""D"",WDAY,2))"
^XMB(3.9,92,2,1533,0)="""RTN"",""PRSATP7"",24,0)"
^XMB(3.9,92,2,1534,0)=" ;"
^XMB(3.9,92,2,1535,0)="""RTN"",""PRSATP7"",25,0)"
^XMB(3.9,92,2,1536,0)=" ; Skip Days off"
^XMB(3.9,92,2,1537,0)="""RTN"",""PRSATP7"",26,0)"
^XMB(3.9,92,2,1538,0)=" Q:$P(NODE0,U,2)=1"
^XMB(3.9,92,2,1539,0)="""RTN"",""PRSATP7"",27,0)"
^XMB(3.9,92,2,1540,0)=" ;"
^XMB(3.9,92,2,1541,0)="""RTN"",""PRSATP7"",28,0)"
^XMB(3.9,92,2,1542,0)=" ; Check for tours with no regular hours"
^XMB(3.9,92,2,1543,0)="""RTN"",""PRSATP7"",29,0)"
^XMB(3.9,92,2,1544,0)=" S TOUR1=+$P(NODE0,U,2),TOUR2=+$P(NODE0,U,13)"
^XMB(3.9,92,2,1545,0)="""RTN"",""PRSATP7"",30,0)"
^XMB(3.9,92,2,1546,0)=" S REGHRS1=$P($G(^PRST(457.1,TOUR1,0)),U,6)"
^XMB(3.9,92,2,1547,0)="""RTN"",""PRSATP7"",31,0)"
^XMB(3.9,92,2,1548,0)=" S REGHRS2=$S(TOUR2:$P($G(^PRST(457.1,TOUR2,0)),U,6),1:"""")"
^XMB(3.9,92,2,1549,0)="""RTN"",""PRSATP7"",32,0)"
^XMB(3.9,92,2,1550,0)=" Q:$P(NODE0,U,2)'=2&($P(NODE0,U,2)'=3)&(REGHRS1+REGHRS2=0)"
^XMB(3.9,92,2,1551,0)="""RTN"",""PRSATP7"",33,0)"
^XMB(3.9,92,2,1552,0)=" ;"
^XMB(3.9,92,2,1553,0)="""RTN"",""PRSATP7"",34,0)"
^XMB(3.9,92,2,1554,0)=" ; If scheduled work day w/o any non-pay, set QUIT"
^XMB(3.9,92,2,1555,0)="""RTN"",""PRSATP7"",35,0)"
^XMB(3.9,92,2,1556,0)=" I $P(NODE0,U,2)>1,NODE2'[""NP"",NODE2'[""WP"" S QUIT=1 Q"
^XMB(3.9,92,2,1557,0)="""RTN"",""PRSATP7"",36,0)"
^XMB(3.9,92,2,1558,0)=" ;"
^XMB(3.9,92,2,1559,0)="""RTN"",""PRSATP7"",37,0)"
^XMB(3.9,92,2,1560,0)=" ; Checks for employees with DAILY tours"
^XMB(3.9,92,2,1561,0)="""RTN"",""PRSATP7"",38,0)"
^XMB(3.9,92,2,1562,0)=" I $P(NODE0,U,2)=2!($P(NODE0,U,2)=3) S DAH=PPIP_U_DFN_U_$P(NODE2,U,3) Q"
^XMB(3.9,92,2,1563,0)="""RTN"",""PRSATP7"",39,0)"
^XMB(3.9,92,2,1564,0)=" ;"
^XMB(3.9,92,2,1565,0)="""RTN"",""PRSATP7"",40,0)"
^XMB(3.9,92,2,1566,0)=" ; Load tours and convert to numeric equivalents"
^XMB(3.9,92,2,1567,0)="""RTN"",""PRSATP7"",41,0)"
^XMB(3.9,92,2,1568,0)=" ; This creates the ordered arrays"
^XMB(3.9,92,2,1569,0)="""RTN"",""PRSATP7"",42,0)"
^XMB(3.9,92,2,1570,0)=" ;"
^XMB(3.9,92,2,1571,0)="""RTN"",""PRSATP7"",43,0)"
^XMB(3.9,92,2,1572,0)=" S DADRFM=1"
^XMB(3.9,92,2,1573,0)="""RTN"",""PRSATP7"",44,0)"
^XMB(3.9,92,2,1574,0)=" S NODE1=$G(^PRST(458,PPIP,""E"",DFN,""D"",WDAY,1))"
^XMB(3.9,92,2,1575,0)="""RTN"",""PRSATP7"",45,0)"
^XMB(3.9,92,2,1576,0)=" D CNV96^PRSATP5(.NODE1,3,""NT"",NODE0,.DADRFM)"
^XMB(3.9,92,2,1577,0)="""RTN"",""PRSATP7"",46,0)"
^XMB(3.9,92,2,1578,0)=" S NODE4=$G(^PRST(458,PPIP,""E"",DFN,""D"",WDAY,4))"
^XMB(3.9,92,2,1579,0)="""RTN"",""PRSATP7"",47,0)"
^XMB(3.9,92,2,1580,0)=" I NODE4'="""" D CNV96^PRSATP5(.NODE4,3,""NT"",NODE0,.DADRFM)"
^XMB(3.9,92,2,1581,0)="""RTN"",""PRSATP7"",48,0)"
^XMB(3.9,92,2,1582,0)=" D CNV96^PRSATP5(.NODE2,4,""NE"",NODE0,.DADRFM)"
^XMB(3.9,92,2,1583,0)="""RTN"",""PRSATP7"",49,0)"
^XMB(3.9,92,2,1584,0)=" ;"
^XMB(3.9,92,2,1585,0)="""RTN"",""PRSATP7"",50,0)"
^XMB(3.9,92,2,1586,0)=" ; Identify beginning of tour"
^XMB(3.9,92,2,1587,0)="""RTN"",""PRSATP7"",51,0)"
^XMB(3.9,92,2,1588,0)=" S TINDX="""",TINDX=$O(NT(TINDX))"
^XMB(3.9,92,2,1589,0)="""RTN"",""PRSATP7"",52,0)"
^XMB(3.9,92,2,1590,0)=" ;"
^XMB(3.9,92,2,1591,0)="""RTN"",""PRSATP7"",53,0)"
^XMB(3.9,92,2,1592,0)=" ; Loop through ordered exceptions to see if the first 15 minutes"
^XMB(3.9,92,2,1593,0)="""RTN"",""PRSATP7"",54,0)"
^XMB(3.9,92,2,1594,0)=" ; of the tour was non-pay"
^XMB(3.9,92,2,1595,0)="""RTN"",""PRSATP7"",55,0)"
^XMB(3.9,92,2,1596,0)=" S (EINDX,EDATA)="""""
^XMB(3.9,92,2,1597,0)="""RTN"",""PRSATP7"",56,0)"
^XMB(3.9,92,2,1598,0)=" F EIN=1:1:7 D  Q:QUIT!(EINDX="""")!(DAH'="""")"
^XMB(3.9,92,2,1599,0)="""RTN"",""PRSATP7"",57,0)"
^XMB(3.9,92,2,1600,0)=" . S EINDX=$O(NE(EINDX))"
^XMB(3.9,92,2,1601,0)="""RTN"",""PRSATP7"",58,0)"
^XMB(3.9,92,2,1602,0)=" . Q:EINDX="""""
^XMB(3.9,92,2,1603,0)="""RTN"",""PRSATP7"",59,0)"
^XMB(3.9,92,2,1604,0)=" . S EDATA=NE(EINDX),EEND=$P(EDATA,U,2),ETOT=$P(EDATA,U,3)"
^XMB(3.9,92,2,1605,0)="""RTN"",""PRSATP7"",60,0)"
^XMB(3.9,92,2,1606,0)=" . Q:EINDX'=TINDX  ; not first 15 minutes"
^XMB(3.9,92,2,1607,0)="""RTN"",""PRSATP7"",61,0)"
^XMB(3.9,92,2,1608,0)=" . I ETOT'=""NP""&(ETOT'=""WP"") S QUIT=1 Q  ; first 15 wasn't non-pay"
^XMB(3.9,92,2,1609,0)="""RTN"",""PRSATP7"",62,0)"
^XMB(3.9,92,2,1610,0)=" . S DAH=PPIP_U_WDAY_U_ETOT"
^XMB(3.9,92,2,1611,0)="""RTN"",""PRSATP7"",63,0)"
^XMB(3.9,92,2,1612,0)=" I DAH="""" S QUIT=1"
^XMB(3.9,92,2,1613,0)="""RTN"",""PRSATP7"",64,0)"
^XMB(3.9,92,2,1614,0)=" Q"
^XMB(3.9,92,2,1615,0)="""VER"")"
^XMB(3.9,92,2,1616,0)="8.0^22.0"
^XMB(3.9,92,2,1617,0)="""BLD"",6677,6)"
^XMB(3.9,92,2,1618,0)="^95"
^XMB(3.9,92,2,1619,0)="$END KID PRS*4.0*108"
^XMB(3.9,92,6,0)="^3.911A^2^2"
^XMB(3.9,92,6,1,0)="POSTMASTER"
^XMB(3.9,92,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,92,6,"B","POSTMASTER",1)=""
^XMB(3.9,92,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,93,0)="PSA-3_SEQ-40_PAT-56.KID^.5^3061008.01574^^^^K"
^XMB(3.9,93,.6)="3061008"
^XMB(3.9,93,1,0)="^3.91A^2^2"
^XMB(3.9,93,1,1,0)=".5^0^3061008.01574^^^^^^^3061008.01574"
^XMB(3.9,93,1,2,0)="1^0^3061008.024212^^^^^^^3061008.024212"
^XMB(3.9,93,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,93,1,"C",.5,1)=""
^XMB(3.9,93,1,"C",1,2)=""
^XMB(3.9,93,2,0)="^^785^785^3061008"
^XMB(3.9,93,2,1,0)="$TXT Released PSA*3*56 SEQ #40"
^XMB(3.9,93,2,2,0)="Extracted from mail message"
^XMB(3.9,93,2,3,0)="$END TXT"
^XMB(3.9,93,2,4,0)="$KID PSA*3.0*56"
^XMB(3.9,93,2,5,0)="**INSTALL NAME**"
^XMB(3.9,93,2,6,0)="PSA*3.0*56"
^XMB(3.9,93,2,7,0)="""BLD"",6458,0)"
^XMB(3.9,93,2,8,0)="PSA*3.0*56^DRUG ACCOUNTABILITY^0^3060424^y"
^XMB(3.9,93,2,9,0)="""BLD"",6458,1,0)"
^XMB(3.9,93,2,10,0)="^^51^51^3060317^"
^XMB(3.9,93,2,11,0)="""BLD"",6458,1,1,0)"
^XMB(3.9,93,2,12,0)="This patch addresses the following problem:"
^XMB(3.9,93,2,13,0)="""BLD"",6458,1,2,0)"
^XMB(3.9,93,2,14,0)=" "
^XMB(3.9,93,2,15,0)="""BLD"",6458,1,3,0)"
^XMB(3.9,93,2,16,0)="1. HD68257: Drug SYNONYM field (#9) duplicates are being created in the "
^XMB(3.9,93,2,17,0)="""BLD"",6458,1,4,0)"
^XMB(3.9,93,2,18,0)="DRUG file (#50). The process of verifying an invoice that is adding a new "
^XMB(3.9,93,2,19,0)="""BLD"",6458,1,5,0)"
^XMB(3.9,93,2,20,0)="drug synonym to the DRUG file (#50) was found to be adding duplicates in "
^XMB(3.9,93,2,21,0)="""BLD"",6458,1,6,0)"
^XMB(3.9,93,2,22,0)="the same invoice and between invoices that were processed at the same "
^XMB(3.9,93,2,23,0)="""BLD"",6458,1,7,0)"
^XMB(3.9,93,2,24,0)="time. The verification process now insures duplicates are not being "
^XMB(3.9,93,2,25,0)="""BLD"",6458,1,8,0)"
^XMB(3.9,93,2,26,0)="created."
^XMB(3.9,93,2,27,0)="""BLD"",6458,1,9,0)"
^XMB(3.9,93,2,28,0)=" "
^XMB(3.9,93,2,29,0)="""BLD"",6458,1,10,0)"
^XMB(3.9,93,2,30,0)="2. HD128777: Pharmacy locations, in the DRUG ACCOUNTABILITY STATS file "
^XMB(3.9,93,2,31,0)="""BLD"",6458,1,11,0)"
^XMB(3.9,93,2,32,0)="#58.8, may have their associated entries in the drug file updated by zero "
^XMB(3.9,93,2,33,0)="""BLD"",6458,1,12,0)"
^XMB(3.9,93,2,34,0)="quantity invoice items if the location is not marked for tracking "
^XMB(3.9,93,2,35,0)="""BLD"",6458,1,13,0)"
^XMB(3.9,93,2,36,0)="inventory or re-order levels."
^XMB(3.9,93,2,37,0)="""BLD"",6458,1,14,0)"
^XMB(3.9,93,2,38,0)=" "
^XMB(3.9,93,2,39,0)="""BLD"",6458,1,15,0)"
^XMB(3.9,93,2,40,0)="NOTE: A post init will review the Drug file (#50) and remove all but the "
^XMB(3.9,93,2,41,0)="""BLD"",6458,1,16,0)"
^XMB(3.9,93,2,42,0)="first of identical synonym duplicates from under a drug. A ""PSA*3*56 "
^XMB(3.9,93,2,43,0)="""BLD"",6458,1,17,0)"
^XMB(3.9,93,2,44,0)="Delete Duplicate Drug Synonyms report"" mailman message will be sent to "
^XMB(3.9,93,2,45,0)="""BLD"",6458,1,18,0)"
^XMB(3.9,93,2,46,0)="the person who performs the installation identifying what drug-synonyms "
^XMB(3.9,93,2,47,0)="""BLD"",6458,1,19,0)"
^XMB(3.9,93,2,48,0)="had identical synonyms deleted. It will also indicate if there were none "
^XMB(3.9,93,2,49,0)="""BLD"",6458,1,20,0)"
^XMB(3.9,93,2,50,0)="found to be removed."
^XMB(3.9,93,2,51,0)="""BLD"",6458,1,21,0)"
^XMB(3.9,93,2,52,0)=" "
^XMB(3.9,93,2,53,0)="""BLD"",6458,1,22,0)"
^XMB(3.9,93,2,54,0)="EXAMPLE 1)      Duplicate synonyms found and were deleted."
^XMB(3.9,93,2,55,0)="""BLD"",6458,1,23,0)"
^XMB(3.9,93,2,56,0)="Subj: PSA*3*56 Delete Duplicate Drug Synonyms report  [#2019687] "
^XMB(3.9,93,2,57,0)="""BLD"",6458,1,24,0)"
^XMB(3.9,93,2,58,0)="03/17/06@17:11"
^XMB(3.9,93,2,59,0)="""BLD"",6458,1,25,0)"
^XMB(3.9,93,2,60,0)="11 lines"
^XMB(3.9,93,2,61,0)="""BLD"",6458,1,26,0)"
^XMB(3.9,93,2,62,0)="From: PSA*3*56 POST INIT  In 'IN' basket.   Page 1"
^XMB(3.9,93,2,63,0)="""BLD"",6458,1,27,0)"
^XMB(3.9,93,2,64,0)="--------------------------------------------------------------------------"
^XMB(3.9,93,2,65,0)="""BLD"",6458,1,28,0)"
^XMB(3.9,93,2,66,0)="PSA*3*56 DELETE DUPLICATE SYNONYMS REPORT"
^XMB(3.9,93,2,67,0)="""BLD"",6458,1,29,0)"
^XMB(3.9,93,2,68,0)="The following Drug-Synonyms have had identical synonyms removed from the "
^XMB(3.9,93,2,69,0)="""BLD"",6458,1,30,0)"
^XMB(3.9,93,2,70,0)="drug."
^XMB(3.9,93,2,71,0)="""BLD"",6458,1,31,0)"
^XMB(3.9,93,2,72,0)="Drug Name                       DRG#,SYN#   NDC            VSN"
^XMB(3.9,93,2,73,0)="""BLD"",6458,1,32,0)"
^XMB(3.9,93,2,74,0)="ACETAMINOPHEN, CODEINE 60MG TAB 3994,7      00406-0484-10  2792513"
^XMB(3.9,93,2,75,0)="""BLD"",6458,1,33,0)"
^XMB(3.9,93,2,76,0)="OU: CS        PPOU: $9.60                   DUOU: 1000     PPDU: $.01"
^XMB(3.9,93,2,77,0)="""BLD"",6458,1,34,0)"
^XMB(3.9,93,2,78,0)="ACETAMINOPHEN, CODEINE 60MG TAB 3994,11     00406-0484-10  2792513"
^XMB(3.9,93,2,79,0)="""BLD"",6458,1,35,0)"
^XMB(3.9,93,2,80,0)="OU: BT        PPOU: $9.60                   DUOU: 1000     PPDU: $.01"
^XMB(3.9,93,2,81,0)="""BLD"",6458,1,36,0)"
^XMB(3.9,93,2,82,0)="ACETAMINOPHEN, CODEINE 60MG TAB 3998,7      00406-0484-10  2792513"
^XMB(3.9,93,2,83,0)="""BLD"",6458,1,37,0)"
^XMB(3.9,93,2,84,0)="OU: CS        PPOU: $9.60                   DUOU: 1000     PPDU: $.01"
^XMB(3.9,93,2,85,0)="""BLD"",6458,1,38,0)"
^XMB(3.9,93,2,86,0)="ACETAMINOPHEN, CODEINE 60MG TAB 3998,11     00406-0484-10  2792513"
^XMB(3.9,93,2,87,0)="""BLD"",6458,1,39,0)"
^XMB(3.9,93,2,88,0)="OU: BT        PPOU: $9.60                   DUOU: 1000     PPDU: $.01"
^XMB(3.9,93,2,89,0)="""BLD"",6458,1,40,0)"
^XMB(3.9,93,2,90,0)=" "
^XMB(3.9,93,2,91,0)="""BLD"",6458,1,41,0)"
^XMB(3.9,93,2,92,0)="EXAMPLE 2) No duplicate synonyms found and none were deleted."
^XMB(3.9,93,2,93,0)="""BLD"",6458,1,42,0)"
^XMB(3.9,93,2,94,0)="Subj: PSA*3*56 Delete Duplicate Drug Synonyms report  [#2019688] "
^XMB(3.9,93,2,95,0)="""BLD"",6458,1,43,0)"
^XMB(3.9,93,2,96,0)="03/17/06@17:15"
^XMB(3.9,93,2,97,0)="""BLD"",6458,1,44,0)"
^XMB(3.9,93,2,98,0)="3 lines"
^XMB(3.9,93,2,99,0)="""BLD"",6458,1,45,0)"
^XMB(3.9,93,2,100,0)="From: PSA*3*56 POST INIT  In 'IN' basket.   Page 1"
^XMB(3.9,93,2,101,0)="""BLD"",6458,1,46,0)"
^XMB(3.9,93,2,102,0)="--------------------------------------------------------------------------"
^XMB(3.9,93,2,103,0)="""BLD"",6458,1,47,0)"
^XMB(3.9,93,2,104,0)="PSA*3*56 DELETE DUPLICATE SYNONYMS REPORT"
^XMB(3.9,93,2,105,0)="""BLD"",6458,1,48,0)"
^XMB(3.9,93,2,106,0)=" "
^XMB(3.9,93,2,107,0)="""BLD"",6458,1,49,0)"
^XMB(3.9,93,2,108,0)="There were no duplicate drug-synonyms found. No synonyms were removed."
^XMB(3.9,93,2,109,0)="""BLD"",6458,1,50,0)"
^XMB(3.9,93,2,110,0)=" "
^XMB(3.9,93,2,111,0)="""BLD"",6458,1,51,0)"
^XMB(3.9,93,2,112,0)="Enter message action (in IN basket): Ignore//"
^XMB(3.9,93,2,113,0)="""BLD"",6458,4,0)"
^XMB(3.9,93,2,114,0)="^9.64PA^^"
^XMB(3.9,93,2,115,0)="""BLD"",6458,""INID"")"
^XMB(3.9,93,2,116,0)="^n"
^XMB(3.9,93,2,117,0)="""BLD"",6458,""INIT"")"
^XMB(3.9,93,2,118,0)="EN^PSAP56"
^XMB(3.9,93,2,119,0)="""BLD"",6458,""KRN"",0)"
^XMB(3.9,93,2,120,0)="^9.67PA^8989.52^19"
^XMB(3.9,93,2,121,0)="""BLD"",6458,""KRN"",.4,0)"
^XMB(3.9,93,2,122,0)=".4"
^XMB(3.9,93,2,123,0)="""BLD"",6458,""KRN"",.401,0)"
^XMB(3.9,93,2,124,0)=".401"
^XMB(3.9,93,2,125,0)="""BLD"",6458,""KRN"",.402,0)"
^XMB(3.9,93,2,126,0)=".402"
^XMB(3.9,93,2,127,0)="""BLD"",6458,""KRN"",.403,0)"
^XMB(3.9,93,2,128,0)=".403"
^XMB(3.9,93,2,129,0)="""BLD"",6458,""KRN"",.5,0)"
^XMB(3.9,93,2,130,0)=".5"
^XMB(3.9,93,2,131,0)="""BLD"",6458,""KRN"",.84,0)"
^XMB(3.9,93,2,132,0)=".84"
^XMB(3.9,93,2,133,0)="""BLD"",6458,""KRN"",3.6,0)"
^XMB(3.9,93,2,134,0)="3.6"
^XMB(3.9,93,2,135,0)="""BLD"",6458,""KRN"",3.8,0)"
^XMB(3.9,93,2,136,0)="3.8"
^XMB(3.9,93,2,137,0)="""BLD"",6458,""KRN"",9.2,0)"
^XMB(3.9,93,2,138,0)="9.2"
^XMB(3.9,93,2,139,0)="""BLD"",6458,""KRN"",9.8,0)"
^XMB(3.9,93,2,140,0)="9.8"
^XMB(3.9,93,2,141,0)="""BLD"",6458,""KRN"",9.8,""NM"",0)"
^XMB(3.9,93,2,142,0)="^9.68A^2^2"
^XMB(3.9,93,2,143,0)="""BLD"",6458,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,93,2,144,0)="PSAVER7^^0^B21998515"
^XMB(3.9,93,2,145,0)="""BLD"",6458,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,93,2,146,0)="PSAP56^^0^B16614525"
^XMB(3.9,93,2,147,0)="""BLD"",6458,""KRN"",9.8,""NM"",""B"",""PSAP56"",2)"
^XMB(3.9,93,2,148,0)=""
^XMB(3.9,93,2,149,0)="""BLD"",6458,""KRN"",9.8,""NM"",""B"",""PSAVER7"",1)"
^XMB(3.9,93,2,150,0)=""
^XMB(3.9,93,2,151,0)="""BLD"",6458,""KRN"",19,0)"
^XMB(3.9,93,2,152,0)="19"
^XMB(3.9,93,2,153,0)="""BLD"",6458,""KRN"",19.1,0)"
^XMB(3.9,93,2,154,0)="19.1"
^XMB(3.9,93,2,155,0)="""BLD"",6458,""KRN"",101,0)"
^XMB(3.9,93,2,156,0)="101"
^XMB(3.9,93,2,157,0)="""BLD"",6458,""KRN"",409.61,0)"
^XMB(3.9,93,2,158,0)="409.61"
^XMB(3.9,93,2,159,0)="""BLD"",6458,""KRN"",771,0)"
^XMB(3.9,93,2,160,0)="771"
^XMB(3.9,93,2,161,0)="""BLD"",6458,""KRN"",870,0)"
^XMB(3.9,93,2,162,0)="870"
^XMB(3.9,93,2,163,0)="""BLD"",6458,""KRN"",8989.51,0)"
^XMB(3.9,93,2,164,0)="8989.51"
^XMB(3.9,93,2,165,0)="""BLD"",6458,""KRN"",8989.52,0)"
^XMB(3.9,93,2,166,0)="8989.52"
^XMB(3.9,93,2,167,0)="""BLD"",6458,""KRN"",8994,0)"
^XMB(3.9,93,2,168,0)="8994"
^XMB(3.9,93,2,169,0)="""BLD"",6458,""KRN"",""B"",.4,.4)"
^XMB(3.9,93,2,170,0)=""
^XMB(3.9,93,2,171,0)="""BLD"",6458,""KRN"",""B"",.401,.401)"
^XMB(3.9,93,2,172,0)=""
^XMB(3.9,93,2,173,0)="""BLD"",6458,""KRN"",""B"",.402,.402)"
^XMB(3.9,93,2,174,0)=""
^XMB(3.9,93,2,175,0)="""BLD"",6458,""KRN"",""B"",.403,.403)"
^XMB(3.9,93,2,176,0)=""
^XMB(3.9,93,2,177,0)="""BLD"",6458,""KRN"",""B"",.5,.5)"
^XMB(3.9,93,2,178,0)=""
^XMB(3.9,93,2,179,0)="""BLD"",6458,""KRN"",""B"",.84,.84)"
^XMB(3.9,93,2,180,0)=""
^XMB(3.9,93,2,181,0)="""BLD"",6458,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,93,2,182,0)=""
^XMB(3.9,93,2,183,0)="""BLD"",6458,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,93,2,184,0)=""
^XMB(3.9,93,2,185,0)="""BLD"",6458,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,93,2,186,0)=""
^XMB(3.9,93,2,187,0)="""BLD"",6458,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,93,2,188,0)=""
^XMB(3.9,93,2,189,0)="""BLD"",6458,""KRN"",""B"",19,19)"
^XMB(3.9,93,2,190,0)=""
^XMB(3.9,93,2,191,0)="""BLD"",6458,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,93,2,192,0)=""
^XMB(3.9,93,2,193,0)="""BLD"",6458,""KRN"",""B"",101,101)"
^XMB(3.9,93,2,194,0)=""
^XMB(3.9,93,2,195,0)="""BLD"",6458,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,93,2,196,0)=""
^XMB(3.9,93,2,197,0)="""BLD"",6458,""KRN"",""B"",771,771)"
^XMB(3.9,93,2,198,0)=""
^XMB(3.9,93,2,199,0)="""BLD"",6458,""KRN"",""B"",870,870)"
^XMB(3.9,93,2,200,0)=""
^XMB(3.9,93,2,201,0)="""BLD"",6458,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,93,2,202,0)=""
^XMB(3.9,93,2,203,0)="""BLD"",6458,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,93,2,204,0)=""
^XMB(3.9,93,2,205,0)="""BLD"",6458,""KRN"",""B"",8994,8994)"
^XMB(3.9,93,2,206,0)=""
^XMB(3.9,93,2,207,0)="""BLD"",6458,""QUES"",0)"
^XMB(3.9,93,2,208,0)="^9.62^^"
^XMB(3.9,93,2,209,0)="""BLD"",6458,""REQB"",0)"
^XMB(3.9,93,2,210,0)="^9.611^1^1"
^XMB(3.9,93,2,211,0)="""BLD"",6458,""REQB"",1,0)"
^XMB(3.9,93,2,212,0)="PSA*3.0*42^1"
^XMB(3.9,93,2,213,0)="""BLD"",6458,""REQB"",""B"",""PSA*3.0*42"",1)"
^XMB(3.9,93,2,214,0)=""
^XMB(3.9,93,2,215,0)="""INIT"")"
^XMB(3.9,93,2,216,0)="EN^PSAP56"
^XMB(3.9,93,2,217,0)="""MBREQ"")"
^XMB(3.9,93,2,218,0)="0"
^XMB(3.9,93,2,219,0)="""PKG"",487,-1)"
^XMB(3.9,93,2,220,0)="1^1"
^XMB(3.9,93,2,221,0)="""PKG"",487,0)"
^XMB(3.9,93,2,222,0)="DRUG ACCOUNTABILITY^PSA^Drug Accountability Inventory and Tracking module."
^XMB(3.9,93,2,223,0)="""PKG"",487,20,0)"
^XMB(3.9,93,2,224,0)="^9.402P^^"
^XMB(3.9,93,2,225,0)="""PKG"",487,22,0)"
^XMB(3.9,93,2,226,0)="^9.49I^1^1"
^XMB(3.9,93,2,227,0)="""PKG"",487,22,1,0)"
^XMB(3.9,93,2,228,0)="3.0^2971024^2981028^66481"
^XMB(3.9,93,2,229,0)="""PKG"",487,22,1,""PAH"",1,0)"
^XMB(3.9,93,2,230,0)="56^3060424^100104"
^XMB(3.9,93,2,231,0)="""PKG"",487,22,1,""PAH"",1,1,0)"
^XMB(3.9,93,2,232,0)="^^51^51^3060424"
^XMB(3.9,93,2,233,0)="""PKG"",487,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,93,2,234,0)="This patch addresses the following problem:"
^XMB(3.9,93,2,235,0)="""PKG"",487,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,93,2,236,0)=" "
^XMB(3.9,93,2,237,0)="""PKG"",487,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,93,2,238,0)="1. HD68257: Drug SYNONYM field (#9) duplicates are being created in the "
^XMB(3.9,93,2,239,0)="""PKG"",487,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,93,2,240,0)="DRUG file (#50). The process of verifying an invoice that is adding a new "
^XMB(3.9,93,2,241,0)="""PKG"",487,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,93,2,242,0)="drug synonym to the DRUG file (#50) was found to be adding duplicates in "
^XMB(3.9,93,2,243,0)="""PKG"",487,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,93,2,244,0)="the same invoice and between invoices that were processed at the same "
^XMB(3.9,93,2,245,0)="""PKG"",487,22,1,""PAH"",1,1,7,0)"
^XMB(3.9,93,2,246,0)="time. The verification process now insures duplicates are not being "
^XMB(3.9,93,2,247,0)="""PKG"",487,22,1,""PAH"",1,1,8,0)"
^XMB(3.9,93,2,248,0)="created."
^XMB(3.9,93,2,249,0)="""PKG"",487,22,1,""PAH"",1,1,9,0)"
^XMB(3.9,93,2,250,0)=" "
^XMB(3.9,93,2,251,0)="""PKG"",487,22,1,""PAH"",1,1,10,0)"
^XMB(3.9,93,2,252,0)="2. HD128777: Pharmacy locations, in the DRUG ACCOUNTABILITY STATS file "
^XMB(3.9,93,2,253,0)="""PKG"",487,22,1,""PAH"",1,1,11,0)"
^XMB(3.9,93,2,254,0)="#58.8, may have their associated entries in the drug file updated by zero "
^XMB(3.9,93,2,255,0)="""PKG"",487,22,1,""PAH"",1,1,12,0)"
^XMB(3.9,93,2,256,0)="quantity invoice items if the location is not marked for tracking "
^XMB(3.9,93,2,257,0)="""PKG"",487,22,1,""PAH"",1,1,13,0)"
^XMB(3.9,93,2,258,0)="inventory or re-order levels."
^XMB(3.9,93,2,259,0)="""PKG"",487,22,1,""PAH"",1,1,14,0)"
^XMB(3.9,93,2,260,0)=" "
^XMB(3.9,93,2,261,0)="""PKG"",487,22,1,""PAH"",1,1,15,0)"
^XMB(3.9,93,2,262,0)="NOTE: A post init will review the Drug file (#50) and remove all but the "
^XMB(3.9,93,2,263,0)="""PKG"",487,22,1,""PAH"",1,1,16,0)"
^XMB(3.9,93,2,264,0)="first of identical synonym duplicates from under a drug. A ""PSA*3*56 "
^XMB(3.9,93,2,265,0)="""PKG"",487,22,1,""PAH"",1,1,17,0)"
^XMB(3.9,93,2,266,0)="Delete Duplicate Drug Synonyms report"" mailman message will be sent to "
^XMB(3.9,93,2,267,0)="""PKG"",487,22,1,""PAH"",1,1,18,0)"
^XMB(3.9,93,2,268,0)="the person who performs the installation identifying what drug-synonyms "
^XMB(3.9,93,2,269,0)="""PKG"",487,22,1,""PAH"",1,1,19,0)"
^XMB(3.9,93,2,270,0)="had identical synonyms deleted. It will also indicate if there were none "
^XMB(3.9,93,2,271,0)="""PKG"",487,22,1,""PAH"",1,1,20,0)"
^XMB(3.9,93,2,272,0)="found to be removed."
^XMB(3.9,93,2,273,0)="""PKG"",487,22,1,""PAH"",1,1,21,0)"
^XMB(3.9,93,2,274,0)=" "
^XMB(3.9,93,2,275,0)="""PKG"",487,22,1,""PAH"",1,1,22,0)"
^XMB(3.9,93,2,276,0)="EXAMPLE 1)      Duplicate synonyms found and were deleted."
^XMB(3.9,93,2,277,0)="""PKG"",487,22,1,""PAH"",1,1,23,0)"
^XMB(3.9,93,2,278,0)="Subj: PSA*3*56 Delete Duplicate Drug Synonyms report  [#2019687] "
^XMB(3.9,93,2,279,0)="""PKG"",487,22,1,""PAH"",1,1,24,0)"
^XMB(3.9,93,2,280,0)="03/17/06@17:11"
^XMB(3.9,93,2,281,0)="""PKG"",487,22,1,""PAH"",1,1,25,0)"
^XMB(3.9,93,2,282,0)="11 lines"
^XMB(3.9,93,2,283,0)="""PKG"",487,22,1,""PAH"",1,1,26,0)"
^XMB(3.9,93,2,284,0)="From: PSA*3*56 POST INIT  In 'IN' basket.   Page 1"
^XMB(3.9,93,2,285,0)="""PKG"",487,22,1,""PAH"",1,1,27,0)"
^XMB(3.9,93,2,286,0)="--------------------------------------------------------------------------"
^XMB(3.9,93,2,287,0)="""PKG"",487,22,1,""PAH"",1,1,28,0)"
^XMB(3.9,93,2,288,0)="PSA*3*56 DELETE DUPLICATE SYNONYMS REPORT"
^XMB(3.9,93,2,289,0)="""PKG"",487,22,1,""PAH"",1,1,29,0)"
^XMB(3.9,93,2,290,0)="The following Drug-Synonyms have had identical synonyms removed from the "
^XMB(3.9,93,2,291,0)="""PKG"",487,22,1,""PAH"",1,1,30,0)"
^XMB(3.9,93,2,292,0)="drug."
^XMB(3.9,93,2,293,0)="""PKG"",487,22,1,""PAH"",1,1,31,0)"
^XMB(3.9,93,2,294,0)="Drug Name                       DRG#,SYN#   NDC            VSN"
^XMB(3.9,93,2,295,0)="""PKG"",487,22,1,""PAH"",1,1,32,0)"
^XMB(3.9,93,2,296,0)="ACETAMINOPHEN, CODEINE 60MG TAB 3994,7      00406-0484-10  2792513"
^XMB(3.9,93,2,297,0)="""PKG"",487,22,1,""PAH"",1,1,33,0)"
^XMB(3.9,93,2,298,0)="OU: CS        PPOU: $9.60                   DUOU: 1000     PPDU: $.01"
^XMB(3.9,93,2,299,0)="""PKG"",487,22,1,""PAH"",1,1,34,0)"
^XMB(3.9,93,2,300,0)="ACETAMINOPHEN, CODEINE 60MG TAB 3994,11     00406-0484-10  2792513"
^XMB(3.9,93,2,301,0)="""PKG"",487,22,1,""PAH"",1,1,35,0)"
^XMB(3.9,93,2,302,0)="OU: BT        PPOU: $9.60                   DUOU: 1000     PPDU: $.01"
^XMB(3.9,93,2,303,0)="""PKG"",487,22,1,""PAH"",1,1,36,0)"
^XMB(3.9,93,2,304,0)="ACETAMINOPHEN, CODEINE 60MG TAB 3998,7      00406-0484-10  2792513"
^XMB(3.9,93,2,305,0)="""PKG"",487,22,1,""PAH"",1,1,37,0)"
^XMB(3.9,93,2,306,0)="OU: CS        PPOU: $9.60                   DUOU: 1000     PPDU: $.01"
^XMB(3.9,93,2,307,0)="""PKG"",487,22,1,""PAH"",1,1,38,0)"
^XMB(3.9,93,2,308,0)="ACETAMINOPHEN, CODEINE 60MG TAB 3998,11     00406-0484-10  2792513"
^XMB(3.9,93,2,309,0)="""PKG"",487,22,1,""PAH"",1,1,39,0)"
^XMB(3.9,93,2,310,0)="OU: BT        PPOU: $9.60                   DUOU: 1000     PPDU: $.01"
^XMB(3.9,93,2,311,0)="""PKG"",487,22,1,""PAH"",1,1,40,0)"
^XMB(3.9,93,2,312,0)=" "
^XMB(3.9,93,2,313,0)="""PKG"",487,22,1,""PAH"",1,1,41,0)"
^XMB(3.9,93,2,314,0)="EXAMPLE 2) No duplicate synonyms found and none were deleted."
^XMB(3.9,93,2,315,0)="""PKG"",487,22,1,""PAH"",1,1,42,0)"
^XMB(3.9,93,2,316,0)="Subj: PSA*3*56 Delete Duplicate Drug Synonyms report  [#2019688] "
^XMB(3.9,93,2,317,0)="""PKG"",487,22,1,""PAH"",1,1,43,0)"
^XMB(3.9,93,2,318,0)="03/17/06@17:15"
^XMB(3.9,93,2,319,0)="""PKG"",487,22,1,""PAH"",1,1,44,0)"
^XMB(3.9,93,2,320,0)="3 lines"
^XMB(3.9,93,2,321,0)="""PKG"",487,22,1,""PAH"",1,1,45,0)"
^XMB(3.9,93,2,322,0)="From: PSA*3*56 POST INIT  In 'IN' basket.   Page 1"
^XMB(3.9,93,2,323,0)="""PKG"",487,22,1,""PAH"",1,1,46,0)"
^XMB(3.9,93,2,324,0)="--------------------------------------------------------------------------"
^XMB(3.9,93,2,325,0)="""PKG"",487,22,1,""PAH"",1,1,47,0)"
^XMB(3.9,93,2,326,0)="PSA*3*56 DELETE DUPLICATE SYNONYMS REPORT"
^XMB(3.9,93,2,327,0)="""PKG"",487,22,1,""PAH"",1,1,48,0)"
^XMB(3.9,93,2,328,0)=" "
^XMB(3.9,93,2,329,0)="""PKG"",487,22,1,""PAH"",1,1,49,0)"
^XMB(3.9,93,2,330,0)="There were no duplicate drug-synonyms found. No synonyms were removed."
^XMB(3.9,93,2,331,0)="""PKG"",487,22,1,""PAH"",1,1,50,0)"
^XMB(3.9,93,2,332,0)=" "
^XMB(3.9,93,2,333,0)="""PKG"",487,22,1,""PAH"",1,1,51,0)"
^XMB(3.9,93,2,334,0)="Enter message action (in IN basket): Ignore//"
^XMB(3.9,93,2,335,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,93,2,336,0)="Y"
^XMB(3.9,93,2,337,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,93,2,338,0)="^D REP^XPDH"
^XMB(3.9,93,2,339,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,93,2,340,0)="Shall I write over your |FLAG| File"
^XMB(3.9,93,2,341,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,93,2,342,0)="YES"
^XMB(3.9,93,2,343,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,93,2,344,0)="D XPF1^XPDIQ"
^XMB(3.9,93,2,345,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,93,2,346,0)="Y"
^XMB(3.9,93,2,347,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,93,2,348,0)="^D DTA^XPDH"
^XMB(3.9,93,2,349,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,93,2,350,0)="Want my data |FLAG| yours"
^XMB(3.9,93,2,351,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,93,2,352,0)="YES"
^XMB(3.9,93,2,353,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,93,2,354,0)="D XPF2^XPDIQ"
^XMB(3.9,93,2,355,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,93,2,356,0)="YO"
^XMB(3.9,93,2,357,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,93,2,358,0)="^D INHIBIT^XPDH"
^XMB(3.9,93,2,359,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,93,2,360,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,93,2,361,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,93,2,362,0)="YES"
^XMB(3.9,93,2,363,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,93,2,364,0)="D XPI1^XPDIQ"
^XMB(3.9,93,2,365,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,93,2,366,0)="PO^VA(200,:EM"
^XMB(3.9,93,2,367,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,93,2,368,0)="^D MG^XPDH"
^XMB(3.9,93,2,369,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,93,2,370,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,93,2,371,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,93,2,372,0)=""
^XMB(3.9,93,2,373,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,93,2,374,0)="D XPM1^XPDIQ"
^XMB(3.9,93,2,375,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,93,2,376,0)="Y"
^XMB(3.9,93,2,377,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,93,2,378,0)="^D MENU^XPDH"
^XMB(3.9,93,2,379,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,93,2,380,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,93,2,381,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,93,2,382,0)="YES"
^XMB(3.9,93,2,383,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,93,2,384,0)="D XPO1^XPDIQ"
^XMB(3.9,93,2,385,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,93,2,386,0)="Y"
^XMB(3.9,93,2,387,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,93,2,388,0)="^D OPT^XPDH"
^XMB(3.9,93,2,389,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,93,2,390,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,93,2,391,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,93,2,392,0)="YES"
^XMB(3.9,93,2,393,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,93,2,394,0)="D XPZ1^XPDIQ"
^XMB(3.9,93,2,395,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,93,2,396,0)="Y"
^XMB(3.9,93,2,397,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,93,2,398,0)="^D RTN^XPDH"
^XMB(3.9,93,2,399,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,93,2,400,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,93,2,401,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,93,2,402,0)="NO"
^XMB(3.9,93,2,403,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,93,2,404,0)="D XPZ2^XPDIQ"
^XMB(3.9,93,2,405,0)="""RTN"")"
^XMB(3.9,93,2,406,0)="2"
^XMB(3.9,93,2,407,0)="""RTN"",""PSAP56"")"
^XMB(3.9,93,2,408,0)="0^2^B16614525"
^XMB(3.9,93,2,409,0)="""RTN"",""PSAP56"",1,0)"
^XMB(3.9,93,2,410,0)="PSAP56 ;VMP/PDW-DUPLICATE REMOVAL ;93/17/2006"
^XMB(3.9,93,2,411,0)="""RTN"",""PSAP56"",2,0)"
^XMB(3.9,93,2,412,0)=" ;;3.0;DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**56**; 10/24/97"
^XMB(3.9,93,2,413,0)="""RTN"",""PSAP56"",3,0)"
^XMB(3.9,93,2,414,0)=" ;;References to ^PSDRUG( are covered by DBIA #2095"
^XMB(3.9,93,2,415,0)="""RTN"",""PSAP56"",4,0)"
^XMB(3.9,93,2,416,0)="EN ;"
^XMB(3.9,93,2,417,0)="""RTN"",""PSAP56"",5,0)"
^XMB(3.9,93,2,418,0)=" D EXIT"
^XMB(3.9,93,2,419,0)="""RTN"",""PSAP56"",6,0)"
^XMB(3.9,93,2,420,0)=" S VSN=0 F  S VSN=$O(^PSDRUG(""AVSN"",VSN)) Q:VSN'>0  D VSN"
^XMB(3.9,93,2,421,0)="""RTN"",""PSAP56"",7,0)"
^XMB(3.9,93,2,422,0)=" D MAILMSG,EXIT"
^XMB(3.9,93,2,423,0)="""RTN"",""PSAP56"",8,0)"
^XMB(3.9,93,2,424,0)=" Q"
^XMB(3.9,93,2,425,0)="""RTN"",""PSAP56"",9,0)"
^XMB(3.9,93,2,426,0)="VSN ;"
^XMB(3.9,93,2,427,0)="""RTN"",""PSAP56"",10,0)"
^XMB(3.9,93,2,428,0)=" S DRDA=0,RXCNT=0 F  S DRDA=$O(^PSDRUG(""AVSN"",VSN,DRDA)) Q:DRDA'>0  D DRDA"
^XMB(3.9,93,2,429,0)="""RTN"",""PSAP56"",11,0)"
^XMB(3.9,93,2,430,0)=" Q"
^XMB(3.9,93,2,431,0)="""RTN"",""PSAP56"",12,0)"
^XMB(3.9,93,2,432,0)="DRDA ;process drug:VSN"
^XMB(3.9,93,2,433,0)="""RTN"",""PSAP56"",13,0)"
^XMB(3.9,93,2,434,0)=" ;SYN0(counter)=node, SYNIEN(counter)=SYDA"
^XMB(3.9,93,2,435,0)="""RTN"",""PSAP56"",14,0)"
^XMB(3.9,93,2,436,0)=" K SYN0,SYNIEN,SYNDUP,SYNDC,SYCNT"
^XMB(3.9,93,2,437,0)="""RTN"",""PSAP56"",15,0)"
^XMB(3.9,93,2,438,0)=" S SYDA=0 F  S SYDA=$O(^PSDRUG(""AVSN"",VSN,DRDA,SYDA)) Q:SYDA'>0  D"
^XMB(3.9,93,2,439,0)="""RTN"",""PSAP56"",16,0)"
^XMB(3.9,93,2,440,0)=" . ; if more DRUG VSN decendents process the DRUG"
^XMB(3.9,93,2,441,0)="""RTN"",""PSAP56"",17,0)"
^XMB(3.9,93,2,442,0)=" .I +$O(^PSDRUG(""AVSN"",VSN,DRDA,SYDA)) D MORE"
^XMB(3.9,93,2,443,0)="""RTN"",""PSAP56"",18,0)"
^XMB(3.9,93,2,444,0)=" Q"
^XMB(3.9,93,2,445,0)="""RTN"",""PSAP56"",19,0)"
^XMB(3.9,93,2,446,0)="MORE ;"
^XMB(3.9,93,2,447,0)="""RTN"",""PSAP56"",20,0)"
^XMB(3.9,93,2,448,0)=" K SYN0,SYNIEN,SYNDUP,SYNDC,SYCNT"
^XMB(3.9,93,2,449,0)="""RTN"",""PSAP56"",21,0)"
^XMB(3.9,93,2,450,0)=" S SYNIEN=0 F  S SYNIEN=$O(^PSDRUG(""AVSN"",VSN,DRDA,SYNIEN)) Q:SYNIEN'>0  D"
^XMB(3.9,93,2,451,0)="""RTN"",""PSAP56"",22,0)"
^XMB(3.9,93,2,452,0)=" .S SYCNT=$G(SYCNT)+1,SYN0(SYCNT)=^PSDRUG(DRDA,1,SYNIEN,0),SYNIEN(SYCNT)=SYNIEN"
^XMB(3.9,93,2,453,0)="""RTN"",""PSAP56"",23,0)"
^XMB(3.9,93,2,454,0)=" .S SYDA=SYNIEN ; reset upper loop to end of VSNs"
^XMB(3.9,93,2,455,0)="""RTN"",""PSAP56"",24,0)"
^XMB(3.9,93,2,456,0)=" ;"
^XMB(3.9,93,2,457,0)="""RTN"",""PSAP56"",25,0)"
^XMB(3.9,93,2,458,0)="DUPS ;compare synonyms of the identical VSN/drug found"
^XMB(3.9,93,2,459,0)="""RTN"",""PSAP56"",26,0)"
^XMB(3.9,93,2,460,0)=" K SYNDUP"
^XMB(3.9,93,2,461,0)="""RTN"",""PSAP56"",27,0)"
^XMB(3.9,93,2,462,0)=" ;pairs of divisions may have set the same drug with different DUOU, dups then on sereval DUOU"
^XMB(3.9,93,2,463,0)="""RTN"",""PSAP56"",28,0)"
^XMB(3.9,93,2,464,0)=" ;FIND EXACT MATCHES, store pairs in SYNDUP(N1,N2)="""", and DELETE ALL BUT FIRST"
^XMB(3.9,93,2,465,0)="""RTN"",""PSAP56"",29,0)"
^XMB(3.9,93,2,466,0)=" F N1=1:1:SYCNT-1 F N2=N1+1:1:SYCNT I SYN0(N1)=SYN0(N2) S SYNDUP(N1,N2)="""""
^XMB(3.9,93,2,467,0)="""RTN"",""PSAP56"",30,0)"
^XMB(3.9,93,2,468,0)=" I '$D(SYNDUP) Q"
^XMB(3.9,93,2,469,0)="""RTN"",""PSAP56"",31,0)"
^XMB(3.9,93,2,470,0)=" D DELETE"
^XMB(3.9,93,2,471,0)="""RTN"",""PSAP56"",32,0)"
^XMB(3.9,93,2,472,0)=" D LOGDUP"
^XMB(3.9,93,2,473,0)="""RTN"",""PSAP56"",33,0)"
^XMB(3.9,93,2,474,0)=" Q"
^XMB(3.9,93,2,475,0)="""RTN"",""PSAP56"",34,0)"
^XMB(3.9,93,2,476,0)="DELETE ;"
^XMB(3.9,93,2,477,0)="""RTN"",""PSAP56"",35,0)"
^XMB(3.9,93,2,478,0)=" Q:'$D(SYNDUP)"
^XMB(3.9,93,2,479,0)="""RTN"",""PSAP56"",36,0)"
^XMB(3.9,93,2,480,0)=" S N1=0 F  S N1=$O(SYNDUP(N1)) Q:N1'>0  D"
^XMB(3.9,93,2,481,0)="""RTN"",""PSAP56"",37,0)"
^XMB(3.9,93,2,482,0)=" . S N2=0 F  S N2=$O(SYNDUP(N1,N2)) Q:N2'>0  D"
^XMB(3.9,93,2,483,0)="""RTN"",""PSAP56"",38,0)"
^XMB(3.9,93,2,484,0)=" . . K DIK S DA(1)=DRDA,DA=SYNIEN(N2),DIK=""^PSDRUG(""_DA(1)_"",1,"" D ^DIK"
^XMB(3.9,93,2,485,0)="""RTN"",""PSAP56"",39,0)"
^XMB(3.9,93,2,486,0)=" . . K SYNDC(N2) ;if dup N2 is removed its NDC match to others needs to be removed"
^XMB(3.9,93,2,487,0)="""RTN"",""PSAP56"",40,0)"
^XMB(3.9,93,2,488,0)=" . . K SYNDUP(N2) ; if N2 has dups they will also have been picked up under N1 already"
^XMB(3.9,93,2,489,0)="""RTN"",""PSAP56"",41,0)"
^XMB(3.9,93,2,490,0)=" Q"
^XMB(3.9,93,2,491,0)="""RTN"",""PSAP56"",42,0)"
^XMB(3.9,93,2,492,0)="LOGDUP ;"
^XMB(3.9,93,2,493,0)="""RTN"",""PSAP56"",43,0)"
^XMB(3.9,93,2,494,0)=" S DRGNM=$P(^PSDRUG(DRDA,0),U,1)"
^XMB(3.9,93,2,495,0)="""RTN"",""PSAP56"",44,0)"
^XMB(3.9,93,2,496,0)=" S SYDAL=0 F  S SYDAL=$O(SYNDUP(SYDAL)) Q:SYDAL'>0  S ^TMP($J,""PSADUP"",DRGNM,DRDA,SYNIEN(SYDAL))=0"
^XMB(3.9,93,2,497,0)="""RTN"",""PSAP56"",45,0)"
^XMB(3.9,93,2,498,0)=" Q"
^XMB(3.9,93,2,499,0)="""RTN"",""PSAP56"",46,0)"
^XMB(3.9,93,2,500,0)=" ;SYN0(SYCNT)=^PSDRUG(DRDA,1,SYDA,0)"
^XMB(3.9,93,2,501,0)="""RTN"",""PSAP56"",47,0)"
^XMB(3.9,93,2,502,0)=" ;SYNIEN(SYCNT)=SYDA"
^XMB(3.9,93,2,503,0)="""RTN"",""PSAP56"",48,0)"
^XMB(3.9,93,2,504,0)=" ;S SYNDUP(N1,N2)="""""
^XMB(3.9,93,2,505,0)="""RTN"",""PSAP56"",49,0)"
^XMB(3.9,93,2,506,0)=" ;S SYNDC(N1,N2)="""""
^XMB(3.9,93,2,507,0)="""RTN"",""PSAP56"",50,0)"
^XMB(3.9,93,2,508,0)="MAILMSG ; generate mail message of duplicates deleted."
^XMB(3.9,93,2,509,0)="""RTN"",""PSAP56"",51,0)"
^XMB(3.9,93,2,510,0)=" K ^TMP($J,""PSAMM"")"
^XMB(3.9,93,2,511,0)="""RTN"",""PSAP56"",52,0)"
^XMB(3.9,93,2,512,0)=" N DIFROM"
^XMB(3.9,93,2,513,0)="""RTN"",""PSAP56"",53,0)"
^XMB(3.9,93,2,514,0)=" I $D(^TMP($J,""PSADUP"")) I 1"
^XMB(3.9,93,2,515,0)="""RTN"",""PSAP56"",54,0)"
^XMB(3.9,93,2,516,0)=" E  G NOMSG"
^XMB(3.9,93,2,517,0)="""RTN"",""PSAP56"",55,0)"
^XMB(3.9,93,2,518,0)=" S X=""PSA*3*56 DELETE DUPLICATE SYNONYMS REPORT"" D MMLN"
^XMB(3.9,93,2,519,0)="""RTN"",""PSAP56"",56,0)"
^XMB(3.9,93,2,520,0)=" S X=""The following Drug-Synonyms have had identical synonyms removed from the drug."" D MMLN"
^XMB(3.9,93,2,521,0)="""RTN"",""PSAP56"",57,0)"
^XMB(3.9,93,2,522,0)=" S X="""" D TXT(""Drug Name"",1),TXT(""DRG#,SYN#"",43),TXT(""NDC"",53),TXT(""VSN"",68),MMLN"
^XMB(3.9,93,2,523,0)="""RTN"",""PSAP56"",58,0)"
^XMB(3.9,93,2,524,0)=" S DRGNM="""" F  S DRGNM=$O(^TMP($J,""PSADUP"",DRGNM)) Q:DRGNM=""""  D DRIEN"
^XMB(3.9,93,2,525,0)="""RTN"",""PSAP56"",59,0)"
^XMB(3.9,93,2,526,0)=" S XMSUB=""PSA*3*56 Delete Duplicate Drug Synonyms report"""
^XMB(3.9,93,2,527,0)="""RTN"",""PSAP56"",60,0)"
^XMB(3.9,93,2,528,0)=" S XMTEXT=""^TMP($J,""""PSAMM"""","",XMDUZ=""PSA*3*56 Post Init"""
^XMB(3.9,93,2,529,0)="""RTN"",""PSAP56"",61,0)"
^XMB(3.9,93,2,530,0)=" S XMY(DUZ)="""""
^XMB(3.9,93,2,531,0)="""RTN"",""PSAP56"",62,0)"
^XMB(3.9,93,2,532,0)=" D ^XMD"
^XMB(3.9,93,2,533,0)="""RTN"",""PSAP56"",63,0)"
^XMB(3.9,93,2,534,0)=" Q"
^XMB(3.9,93,2,535,0)="""RTN"",""PSAP56"",64,0)"
^XMB(3.9,93,2,536,0)="DRIEN ;work the specific drug"
^XMB(3.9,93,2,537,0)="""RTN"",""PSAP56"",65,0)"
^XMB(3.9,93,2,538,0)=" S DRDA=0 F  S DRDA=$O(^TMP($J,""PSADUP"",DRGNM,DRDA)) Q:DRDA'>0  D SYNDR"
^XMB(3.9,93,2,539,0)="""RTN"",""PSAP56"",66,0)"
^XMB(3.9,93,2,540,0)=" Q"
^XMB(3.9,93,2,541,0)="""RTN"",""PSAP56"",67,0)"
^XMB(3.9,93,2,542,0)="SYNDR ; work synonyms under a drug"
^XMB(3.9,93,2,543,0)="""RTN"",""PSAP56"",68,0)"
^XMB(3.9,93,2,544,0)=" S SYNDA=0 F  S SYNDA=$O(^TMP($J,""PSADUP"",DRGNM,DRDA,SYNDA)) Q:SYNDA'>0  D SYN"
^XMB(3.9,93,2,545,0)="""RTN"",""PSAP56"",69,0)"
^XMB(3.9,93,2,546,0)=" Q"
^XMB(3.9,93,2,547,0)="""RTN"",""PSAP56"",70,0)"
^XMB(3.9,93,2,548,0)="SYN ;report the individual synonym that had duplicates deleted"
^XMB(3.9,93,2,549,0)="""RTN"",""PSAP56"",71,0)"
^XMB(3.9,93,2,550,0)=" K SYNFLD"
^XMB(3.9,93,2,551,0)="""RTN"",""PSAP56"",72,0)"
^XMB(3.9,93,2,552,0)=" ;2-NDC'2 400-VSN'4 401-OU'5 402-PPOU'6 403-DUOU'7 404-PPDU'8"
^XMB(3.9,93,2,553,0)="""RTN"",""PSAP56"",73,0)"
^XMB(3.9,93,2,554,0)=" S SYN0=^PSDRUG(DRDA,1,SYNDA,0),X=SYN0,DA=SYNDA,DA(1)=DRDA,IENS=DA_"",""_DA(1)_"","""
^XMB(3.9,93,2,555,0)="""RTN"",""PSAP56"",74,0)"
^XMB(3.9,93,2,556,0)=" S NDC=$P(X,U,2),VSN=$P(X,U,4),PPOU=""PPOU: $""_$P(X,U,6),DUOU=""DUOU: ""_$P(X,U,7),PPDU=""PPDU: $""_$P(X,U,8)"
^XMB(3.9,93,2,557,0)="""RTN"",""PSAP56"",75,0)"
^XMB(3.9,93,2,558,0)=" S OU=""OU: ""_$$GET1^DIQ(50.1,IENS,401),DA(1)=DRDA"
^XMB(3.9,93,2,559,0)="""RTN"",""PSAP56"",76,0)"
^XMB(3.9,93,2,560,0)=" S X="""" D TXT(DRGNM,1),TXT(DRDA_"",""_SYNDA,43),TXT(NDC,53),TXT(VSN,68) D MMLN"
^XMB(3.9,93,2,561,0)="""RTN"",""PSAP56"",77,0)"
^XMB(3.9,93,2,562,0)=" S X="""" D TXT(OU,1),TXT(PPOU,15),TXT(DUOU,45),TXT(PPDU,60) D MMLN"
^XMB(3.9,93,2,563,0)="""RTN"",""PSAP56"",78,0)"
^XMB(3.9,93,2,564,0)=" Q"
^XMB(3.9,93,2,565,0)="""RTN"",""PSAP56"",79,0)"
^XMB(3.9,93,2,566,0)="MMLN S MMLC=+$G(MMLC)+1 S ^TMP($J,""PSAMM"",MMLC)=X Q"
^XMB(3.9,93,2,567,0)="""RTN"",""PSAP56"",80,0)"
^XMB(3.9,93,2,568,0)="TXT(VAL,COL) S:'$D(X) X="""" S X=$$SETSTR^VALM1(VAL,X,COL,$L(VAL)) Q"
^XMB(3.9,93,2,569,0)="""RTN"",""PSAP56"",81,0)"
^XMB(3.9,93,2,570,0)="NOMSG ; report no duplicates found to remove."
^XMB(3.9,93,2,571,0)="""RTN"",""PSAP56"",82,0)"
^XMB(3.9,93,2,572,0)=" S X=""PSA*3*56 DELETE DUPLICATE SYNONYMS REPORT"" D MMLN"
^XMB(3.9,93,2,573,0)="""RTN"",""PSAP56"",83,0)"
^XMB(3.9,93,2,574,0)=" S X="" "" D MMLN"
^XMB(3.9,93,2,575,0)="""RTN"",""PSAP56"",84,0)"
^XMB(3.9,93,2,576,0)=" S X=""There were no duplicate drug-synonyms found. No synonyms removed."" D MMLN"
^XMB(3.9,93,2,577,0)="""RTN"",""PSAP56"",85,0)"
^XMB(3.9,93,2,578,0)=" S XMSUB=""PSA*3*56 Delete Duplicate Drug Synonyms report"""
^XMB(3.9,93,2,579,0)="""RTN"",""PSAP56"",86,0)"
^XMB(3.9,93,2,580,0)=" S XMTEXT=""^TMP($J,""""PSAMM"""","",XMDUZ=""PSA*3*56 Post Init"""
^XMB(3.9,93,2,581,0)="""RTN"",""PSAP56"",87,0)"
^XMB(3.9,93,2,582,0)=" S XMY(DUZ)="""""
^XMB(3.9,93,2,583,0)="""RTN"",""PSAP56"",88,0)"
^XMB(3.9,93,2,584,0)=" D ^XMD"
^XMB(3.9,93,2,585,0)="""RTN"",""PSAP56"",89,0)"
^XMB(3.9,93,2,586,0)="EXIT ;"
^XMB(3.9,93,2,587,0)="""RTN"",""PSAP56"",90,0)"
^XMB(3.9,93,2,588,0)=" K COL,DIK,DRDA,DRGNM,DUOU,IENS,MMLC,N1,N2,NDC,OU,PPDU,DDOU,RXCNT,SYCNT,SYDA,SYN0"
^XMB(3.9,93,2,589,0)="""RTN"",""PSAP56"",91,0)"
^XMB(3.9,93,2,590,0)=" K SYNDA,SYNDC,SYNDUP,SYNFLD,SYNIEN,SYN0,^TMP($J),VAL,VSN,PPOU,SYDAL"
^XMB(3.9,93,2,591,0)="""RTN"",""PSAP56"",92,0)"
^XMB(3.9,93,2,592,0)=" Q"
^XMB(3.9,93,2,593,0)="""RTN"",""PSAVER7"")"
^XMB(3.9,93,2,594,0)="0^1^B21998515^B16426253"
^XMB(3.9,93,2,595,0)="""RTN"",""PSAVER7"",1,0)"
^XMB(3.9,93,2,596,0)="PSAVER7 ;BIR/JMB-Verify Invoices - CONT'D ;7/23/97"
^XMB(3.9,93,2,597,0)="""RTN"",""PSAVER7"",2,0)"
^XMB(3.9,93,2,598,0)=" ;;3.0; DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**12,21,42,56**; 10/24/97"
^XMB(3.9,93,2,599,0)="""RTN"",""PSAVER7"",3,0)"
^XMB(3.9,93,2,600,0)=" ;Background Job"
^XMB(3.9,93,2,601,0)="""RTN"",""PSAVER7"",4,0)"
^XMB(3.9,93,2,602,0)=" ;This routine increments pharmacy location and master vault balances"
^XMB(3.9,93,2,603,0)="""RTN"",""PSAVER7"",5,0)"
^XMB(3.9,93,2,604,0)=" ;in 58.8 after invoices have been verified. This routine is called"
^XMB(3.9,93,2,605,0)="""RTN"",""PSAVER7"",6,0)"
^XMB(3.9,93,2,606,0)=" ;by PSAVER6."
^XMB(3.9,93,2,607,0)="""RTN"",""PSAVER7"",7,0)"
^XMB(3.9,93,2,608,0)=" ;"
^XMB(3.9,93,2,609,0)="""RTN"",""PSAVER7"",8,0)"
^XMB(3.9,93,2,610,0)=" ;References to ^PSDRUG( are covered by IA #2095"
^XMB(3.9,93,2,611,0)="""RTN"",""PSAVER7"",9,0)"
^XMB(3.9,93,2,612,0)="TR ;File transaction data in 58.81"
^XMB(3.9,93,2,613,0)="""RTN"",""PSAVER7"",10,0)"
^XMB(3.9,93,2,614,0)=" I $D(PSADUREC),'PSADUREC Q  ;*56 block '0' quantity edits"
^XMB(3.9,93,2,615,0)="""RTN"",""PSAVER7"",11,0)"
^XMB(3.9,93,2,616,0)=" I $D(PSAQTY),'PSAQTY Q  ;*56 block '0' quantity edits"
^XMB(3.9,93,2,617,0)="""RTN"",""PSAVER7"",12,0)"
^XMB(3.9,93,2,618,0)=" F  L +^PSD(58.81,0):0 I  Q"
^XMB(3.9,93,2,619,0)="""RTN"",""PSAVER7"",13,0)"
^XMB(3.9,93,2,620,0)="FIND S PSAT=$P(^PSD(58.81,0),""^"",3)+1 I $D(^PSD(58.81,PSAT)) S $P(^PSD(58.81,0),""^"",3)=$P(^PSD(58.81,0),""^"",3)+1 G FIND"
^XMB(3.9,93,2,621,0)="""RTN"",""PSAVER7"",14,0)"
^XMB(3.9,93,2,622,0)=" S DIC=""^PSD(58.81,"",DIC(0)=""L"",DLAYGO=58.81,(DINUM,X)=PSAT D ^DIC K DIC,DINUM,DLAYGO L -^PSD(58.81,0)"
^XMB(3.9,93,2,623,0)="""RTN"",""PSAVER7"",15,0)"
^XMB(3.9,93,2,624,0)=" S DIE=""^PSD(58.81,"",DA=PSAT,DR=""1////1;2////^S X=PSALOC;3////^S X=PSADT;4////^S X=PSADRG;5////^S X=PSADUREC;6////^S X=PSAVDUZ;9////^S X=PSABAL;71////^S X=PSAINV;106////^S X=PSAORD"""
^XMB(3.9,93,2,625,0)="""RTN"",""PSAVER7"",16,0)"
^XMB(3.9,93,2,626,0)=" I $G(PSACS) S DR=DR_"";100////^S X=PSACS"""
^XMB(3.9,93,2,627,0)="""RTN"",""PSAVER7"",17,0)"
^XMB(3.9,93,2,628,0)=" F  L +^PSD(58.81,DA,0):0 I  Q"
^XMB(3.9,93,2,629,0)="""RTN"",""PSAVER7"",18,0)"
^XMB(3.9,93,2,630,0)=" D ^DIE L -^PSD(58.81,DA,0) K DIE"
^XMB(3.9,93,2,631,0)="""RTN"",""PSAVER7"",19,0)"
^XMB(3.9,93,2,632,0)=" S:'$D(^PSD(58.8,PSALOC,1,PSADRG,4,0)) DIC(""P"")=$P(^DD(58.8001,19,0),""^"",2)"
^XMB(3.9,93,2,633,0)="""RTN"",""PSAVER7"",20,0)"
^XMB(3.9,93,2,634,0)=" S DA(2)=PSALOC,DA(1)=PSADRG,(X,DINUM)=PSAT,DIC=""^PSD(58.8,""_DA(2)_"",1,""_DA(1)_"",4,"",DIC(0)=""L"",DLAYGO=58.8"
^XMB(3.9,93,2,635,0)="""RTN"",""PSAVER7"",21,0)"
^XMB(3.9,93,2,636,0)=" F  L +^PSD(58.8,PSALOC,1,PSADRG,0):0 I  Q"
^XMB(3.9,93,2,637,0)="""RTN"",""PSAVER7"",22,0)"
^XMB(3.9,93,2,638,0)=" D ^DIC L -^PSD(58.8,PSALOC,1,PSADRG,0) K DIC,DINUM,DLAYGO"
^XMB(3.9,93,2,639,0)="""RTN"",""PSAVER7"",23,0)"
^XMB(3.9,93,2,640,0)=" ;"
^XMB(3.9,93,2,641,0)="""RTN"",""PSAVER7"",24,0)"
^XMB(3.9,93,2,642,0)="50 S PSAODASH=$P($G(^PSDRUG(PSADRG,2)),""^"",4)"
^XMB(3.9,93,2,643,0)="""RTN"",""PSAVER7"",25,0)"
^XMB(3.9,93,2,644,0)=" S PSAONDC=$P(PSAODASH,""-"")_$P(PSAODASH,""-"",2)_$P(PSAODASH,""-"",3)"
^XMB(3.9,93,2,645,0)="""RTN"",""PSAVER7"",26,0)"
^XMB(3.9,93,2,646,0)=" ;(PSA*3*21) NDC & PRICING UPDATES (DAVE BLOCKER 10NOV99)"
^XMB(3.9,93,2,647,0)="""RTN"",""PSAVER7"",27,0)"
^XMB(3.9,93,2,648,0)=" S PSADUOU=$S($G(PSADUOU)'>0:1,1:PSADUOU)"
^XMB(3.9,93,2,649,0)="""RTN"",""PSAVER7"",28,0)"
^XMB(3.9,93,2,650,0)=" S PSADUREC=(PSAQTY*PSADUOU)"
^XMB(3.9,93,2,651,0)="""RTN"",""PSAVER7"",29,0)"
^XMB(3.9,93,2,652,0)=" S DIE=""^PSDRUG("",DA=PSADRG,DR=""50////^S X=""_(PSADUREC+$G(^PSDRUG(PSADRG,660.1)))"
^XMB(3.9,93,2,653,0)="""RTN"",""PSAVER7"",30,0)"
^XMB(3.9,93,2,654,0)=" F  L +^PSDRUG(DA,0):0 I  Q"
^XMB(3.9,93,2,655,0)="""RTN"",""PSAVER7"",31,0)"
^XMB(3.9,93,2,656,0)=" D ^DIE L -^PSDRUG(DA,0) K DIE,DA,DR"
^XMB(3.9,93,2,657,0)="""RTN"",""PSAVER7"",32,0)"
^XMB(3.9,93,2,658,0)=" ;This section replaces most of the routine"
^XMB(3.9,93,2,659,0)="""RTN"",""PSAVER7"",33,0)"
^XMB(3.9,93,2,660,0)=" ;PSAOU = order unit from invoice"
^XMB(3.9,93,2,661,0)="""RTN"",""PSAVER7"",34,0)"
^XMB(3.9,93,2,662,0)=" ;PSAPOU & PSANPOU = Price of Order Unit from invoice"
^XMB(3.9,93,2,663,0)="""RTN"",""PSAVER7"",35,0)"
^XMB(3.9,93,2,664,0)=" ;PSADUOU=Dispense Units per OU form invoice data"
^XMB(3.9,93,2,665,0)="""RTN"",""PSAVER7"",36,0)"
^XMB(3.9,93,2,666,0)=" ;PSANPDU= Price of Dispense Units per Order Unit"
^XMB(3.9,93,2,667,0)="""RTN"",""PSAVER7"",37,0)"
^XMB(3.9,93,2,668,0)=" ;"
^XMB(3.9,93,2,669,0)="""RTN"",""PSAVER7"",38,0)"
^XMB(3.9,93,2,670,0)=" ;Drug file Information"
^XMB(3.9,93,2,671,0)="""RTN"",""PSAVER7"",39,0)"
^XMB(3.9,93,2,672,0)=" K DRUG"
^XMB(3.9,93,2,673,0)="""RTN"",""PSAVER7"",40,0)"
^XMB(3.9,93,2,674,0)=" S PSANODE=$G(^PSDRUG(PSADRG,660))"
^XMB(3.9,93,2,675,0)="""RTN"",""PSAVER7"",41,0)"
^XMB(3.9,93,2,676,0)=" F X=2,3,5,6 S DRUG(X)=$P($G(PSANODE),""^"",X)"
^XMB(3.9,93,2,677,0)="""RTN"",""PSAVER7"",42,0)"
^XMB(3.9,93,2,678,0)=" ;"
^XMB(3.9,93,2,679,0)="""RTN"",""PSAVER7"",43,0)"
^XMB(3.9,93,2,680,0)=" S PSANPDU=$J(($G(PSAPOU)/$G(PSADUOU)),0,3) ;Price of Order Unit divide by Disp. Units per Order Unit"
^XMB(3.9,93,2,681,0)="""RTN"",""PSAVER7"",44,0)"
^XMB(3.9,93,2,682,0)=" ;PSA*3*42 |>  (let changes happen and file, put changes into mail message)"
^XMB(3.9,93,2,683,0)="""RTN"",""PSAVER7"",45,0)"
^XMB(3.9,93,2,684,0)=" S DIE=""^PSDRUG("",DA=PSADRG,DR=""12////^S X=PSAOU;15////^S X=PSADUOU;Q;13////^S X=PSAPOU"" ;*42;*56"
^XMB(3.9,93,2,685,0)="""RTN"",""PSAVER7"",46,0)"
^XMB(3.9,93,2,686,0)=" F  L +^PSDRUG(DA,0):0 I  Q"
^XMB(3.9,93,2,687,0)="""RTN"",""PSAVER7"",47,0)"
^XMB(3.9,93,2,688,0)=" D ^DIE K DIE,DA,DR"
^XMB(3.9,93,2,689,0)="""RTN"",""PSAVER7"",48,0)"
^XMB(3.9,93,2,690,0)=" ; <| PSA*42"
^XMB(3.9,93,2,691,0)="""RTN"",""PSAVER7"",49,0)"
^XMB(3.9,93,2,692,0)="PTCH21 ;PSA*3*21 (Vendor's VSN changing to 8 digits, check also)"
^XMB(3.9,93,2,693,0)="""RTN"",""PSAVER7"",50,0)"
^XMB(3.9,93,2,694,0)=" ;If NDC or VSN changes should it create to synonym entry ?"
^XMB(3.9,93,2,695,0)="""RTN"",""PSAVER7"",51,0)"
^XMB(3.9,93,2,696,0)=" I $G(^PSDRUG(PSADRG,1,PSASUB,0))="""" G NDC"
^XMB(3.9,93,2,697,0)="""RTN"",""PSAVER7"",52,0)"
^XMB(3.9,93,2,698,0)=" I $G(^PSDRUG(PSADRG,1,PSASUB,0)) S PSAEDTT=0,DATA=^PSDRUG(PSADRG,1,PSASUB,0) D"
^XMB(3.9,93,2,699,0)="""RTN"",""PSAVER7"",53,0)"
^XMB(3.9,93,2,700,0)=" .I PSAVSN'=$P(DATA,""^"",4) S PSAEDTT=1 ;VSN"
^XMB(3.9,93,2,701,0)="""RTN"",""PSAVER7"",54,0)"
^XMB(3.9,93,2,702,0)=" .I PSAPOU'=$P(DATA,""^"",6) S PSAEDTT=1 ;Price per order unit"
^XMB(3.9,93,2,703,0)="""RTN"",""PSAVER7"",55,0)"
^XMB(3.9,93,2,704,0)=" .I PSADUOU'=$P(DATA,""^"",7) S PSAEDTT=1 ;Dispense Units per Order Unit"
^XMB(3.9,93,2,705,0)="""RTN"",""PSAVER7"",56,0)"
^XMB(3.9,93,2,706,0)=" .I PSANPDU'=$P(DATA,""^"",8) S PSAEDTT=1 ;New Price per dispense unit"
^XMB(3.9,93,2,707,0)="""RTN"",""PSAVER7"",57,0)"
^XMB(3.9,93,2,708,0)=" .I $G(PSAEDTT)>0 D"
^XMB(3.9,93,2,709,0)="""RTN"",""PSAVER7"",58,0)"
^XMB(3.9,93,2,710,0)=" ..S DA=PSASUB,DA(1)=PSADRG,DIE=""^PSDRUG(""_DA(1)_"",1,"""
^XMB(3.9,93,2,711,0)="""RTN"",""PSAVER7"",59,0)"
^XMB(3.9,93,2,712,0)=" ..S DR=""2////^S X=PSADASH""_$S(PSACS:"";1////C"",1:"";1////D"")_"";400////^S X=PSAVSN;401////^S X=PSAOU""_$S(+PSAPOU:"";402////^S X=PSAPOU"",1:"""")_"";403////^S X=PSADUOU""_"";404///^S X=PSANPDU""_"";405///^S X=PSAVEND"""
^XMB(3.9,93,2,713,0)="""RTN"",""PSAVER7"",60,0)"
^XMB(3.9,93,2,714,0)=" ..D ^DIE K DIE,DR,DA"
^XMB(3.9,93,2,715,0)="""RTN"",""PSAVER7"",61,0)"
^XMB(3.9,93,2,716,0)="NDC ;NDC UPDATE"
^XMB(3.9,93,2,717,0)="""RTN"",""PSAVER7"",62,0)"
^XMB(3.9,93,2,718,0)=" I PSANDC'="""",PSANDC'=PSAONDC D  ;*42"
^XMB(3.9,93,2,719,0)="""RTN"",""PSAVER7"",63,0)"
^XMB(3.9,93,2,720,0)=" .S DIE=""^PSDRUG("",DA=PSADRG,DR=""31////^S X=PSADASH"""
^XMB(3.9,93,2,721,0)="""RTN"",""PSAVER7"",64,0)"
^XMB(3.9,93,2,722,0)=" .F  L +^PSDRUG(DA,0):0 I  Q"
^XMB(3.9,93,2,723,0)="""RTN"",""PSAVER7"",65,0)"
^XMB(3.9,93,2,724,0)=" .D ^DIE L -^PSDRUG(DA,0) K DIE,DA,DR"
^XMB(3.9,93,2,725,0)="""RTN"",""PSAVER7"",66,0)"
^XMB(3.9,93,2,726,0)="SYNONYM ;Adds/edits the SYNONYM multiple in DRUG file"
^XMB(3.9,93,2,727,0)="""RTN"",""PSAVER7"",67,0)"
^XMB(3.9,93,2,728,0)=" Q:PSANDC=""""  K DA,DR S DA(1)=PSADRG"
^XMB(3.9,93,2,729,0)="""RTN"",""PSAVER7"",68,0)"
^XMB(3.9,93,2,730,0)=" ;"
^XMB(3.9,93,2,731,0)="""RTN"",""PSAVER7"",69,0)"
^XMB(3.9,93,2,732,0)=" S PSANPDU=$J(($G(PSAPOU)/$G(PSADUOU)),0,3) ;Price of Order Unit divide by Disp. Units per Order Unit"
^XMB(3.9,93,2,733,0)="""RTN"",""PSAVER7"",70,0)"
^XMB(3.9,93,2,734,0)=" S:'$D(^PSDRUG(PSADRG,1,0)) DIC(""P"")=""50.1A"""
^XMB(3.9,93,2,735,0)="""RTN"",""PSAVER7"",71,0)"
^XMB(3.9,93,2,736,0)=" ; *56 Search for earliest best match of synonyms, start at bottom go up"
^XMB(3.9,93,2,737,0)="""RTN"",""PSAVER7"",72,0)"
^XMB(3.9,93,2,738,0)=" ; if VSN use it, if several VSNs use the first, IF VSN match NDCs must match also."
^XMB(3.9,93,2,739,0)="""RTN"",""PSAVER7"",73,0)"
^XMB(3.9,93,2,740,0)=" ; if no VSN, make a new synonym"
^XMB(3.9,93,2,741,0)="""RTN"",""PSAVER7"",74,0)"
^XMB(3.9,93,2,742,0)=" ; no ""B"" synonym index exists"
^XMB(3.9,93,2,743,0)="""RTN"",""PSAVER7"",75,0)"
^XMB(3.9,93,2,744,0)="T0 N PSYNDA,PSYN0,PSTNDC,PSTVSN,PSMNDC,PSMBTH S (PSMNDC,PSMBTH)=0"
^XMB(3.9,93,2,745,0)="""RTN"",""PSAVER7"",76,0)"
^XMB(3.9,93,2,746,0)=" S PSYNDA="""" F  S PSYNDA=$O(^PSDRUG(PSADRG,1,PSYNDA),-1) Q:PSYNDA'>0  D"
^XMB(3.9,93,2,747,0)="""RTN"",""PSAVER7"",77,0)"
^XMB(3.9,93,2,748,0)=" . S PSYN0=^PSDRUG(PSADRG,1,PSYNDA,0),PSTNDC=$P(PSYN0,U),PSTVSN=$P(PSYN0,U,4) ;zero node, test values of NDC VSN"
^XMB(3.9,93,2,749,0)="""RTN"",""PSAVER7"",78,0)"
^XMB(3.9,93,2,750,0)=" . I PSTNDC'=PSANDC Q"
^XMB(3.9,93,2,751,0)="""RTN"",""PSAVER7"",79,0)"
^XMB(3.9,93,2,752,0)=" . I PSTVSN=PSAVSN S PSMBTH=PSYNDA Q  ;both VSN & NDC matches"
^XMB(3.9,93,2,753,0)="""RTN"",""PSAVER7"",80,0)"
^XMB(3.9,93,2,754,0)="T1 S PSASUB=$S(PSMBTH:PSMBTH,1:0) ;PSAMBTH Match both vsn,ndc"
^XMB(3.9,93,2,755,0)="""RTN"",""PSAVER7"",81,0)"
^XMB(3.9,93,2,756,0)=" ;end *56"
^XMB(3.9,93,2,757,0)="""RTN"",""PSAVER7"",82,0)"
^XMB(3.9,93,2,758,0)=" I 'PSASUB!(PSASUB&('$D(^PSDRUG(PSADRG,1,PSASUB,0)))) D"
^XMB(3.9,93,2,759,0)="""RTN"",""PSAVER7"",83,0)"
^XMB(3.9,93,2,760,0)=" .S DIC=""^PSDRUG(""_DA(1)_"",1,"",DIC(0)=""Z"",X=PSANDC,DLAYGO=50"
^XMB(3.9,93,2,761,0)="""RTN"",""PSAVER7"",84,0)"
^XMB(3.9,93,2,762,0)=" .F  L +^PSDRUG(PSADRG,0):0 I  Q"
^XMB(3.9,93,2,763,0)="""RTN"",""PSAVER7"",85,0)"
^XMB(3.9,93,2,764,0)=" .D FILE^DICN L -^PSDRUG(PSADRG,0) K DIC,DLAYGO S PSASUB=+Y"
^XMB(3.9,93,2,765,0)="""RTN"",""PSAVER7"",86,0)"
^XMB(3.9,93,2,766,0)=" .K DIC,DA,DR,DIE"
^XMB(3.9,93,2,767,0)="""RTN"",""PSAVER7"",87,0)"
^XMB(3.9,93,2,768,0)=" I PSASUB,$D(^PSDRUG(PSADRG,1,PSASUB,0)) S DA=PSASUB"
^XMB(3.9,93,2,769,0)="""RTN"",""PSAVER7"",88,0)"
^XMB(3.9,93,2,770,0)=" S DA(1)=PSADRG,DIE=""^PSDRUG(""_DA(1)_"",1,"""
^XMB(3.9,93,2,771,0)="""RTN"",""PSAVER7"",89,0)"
^XMB(3.9,93,2,772,0)=" S DR=""2////^S X=PSADASH""_$S($G(PSACS)>0:"";1////C"",1:"";1////D"")_"";400////^S X=PSAVSN;401////^S X=PSAOU""_$S(+PSAPOU:"";402////^S X=PSAPOU"",1:"""")_"";403////^S X=PSADUOU""_"";404///^S X=PSANPDU;405///^S X=PSAVEND"""
^XMB(3.9,93,2,773,0)="""RTN"",""PSAVER7"",90,0)"
^XMB(3.9,93,2,774,0)=" F  L +^PSDRUG(PSADRG,0):0 I  Q"
^XMB(3.9,93,2,775,0)="""RTN"",""PSAVER7"",91,0)"
^XMB(3.9,93,2,776,0)=" D ^DIE L -^PSDRUG(PSADRG,0)"
^XMB(3.9,93,2,777,0)="""RTN"",""PSAVER7"",92,0)"
^XMB(3.9,93,2,778,0)=" K DIE,DR,X1,X2,DATA"
^XMB(3.9,93,2,779,0)="""RTN"",""PSAVER7"",93,0)"
^XMB(3.9,93,2,780,0)=" Q"
^XMB(3.9,93,2,781,0)="""VER"")"
^XMB(3.9,93,2,782,0)="8.0^22.0"
^XMB(3.9,93,2,783,0)="""BLD"",6458,6)"
^XMB(3.9,93,2,784,0)="^40"
^XMB(3.9,93,2,785,0)="$END KID PSA*3.0*56"
^XMB(3.9,93,6,0)="^3.911A^2^2"
^XMB(3.9,93,6,1,0)="POSTMASTER"
^XMB(3.9,93,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,93,6,"B","POSTMASTER",1)=""
^XMB(3.9,93,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,94,0)="PSA-3_SEQ-41_PAT-51.KID^.5^3061008.01574^^^^K"
^XMB(3.9,94,.6)="3061008"
^XMB(3.9,94,1,0)="^3.91A^2^2"
^XMB(3.9,94,1,1,0)=".5^0^3061008.01574^^^^^^^3061008.01574"
^XMB(3.9,94,1,2,0)="1^0^3061008.024217^^^^^^^3061008.024217"
^XMB(3.9,94,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,94,1,"C",.5,1)=""
^XMB(3.9,94,1,"C",1,2)=""
^XMB(3.9,94,2,0)="^^663^663^3061008"
^XMB(3.9,94,2,1,0)="$TXT Released PSA*3*51 SEQ #41"
^XMB(3.9,94,2,2,0)="Extracted from mail message"
^XMB(3.9,94,2,3,0)="$END TXT"
^XMB(3.9,94,2,4,0)="$KID PSA*3.0*51"
^XMB(3.9,94,2,5,0)="**INSTALL NAME**"
^XMB(3.9,94,2,6,0)="PSA*3.0*51"
^XMB(3.9,94,2,7,0)="""BLD"",6002,0)"
^XMB(3.9,94,2,8,0)="PSA*3.0*51^DRUG ACCOUNTABILITY^0^3060522^y"
^XMB(3.9,94,2,9,0)="""BLD"",6002,1,0)"
^XMB(3.9,94,2,10,0)="^9.61A^5^5^3060519^^^^"
^XMB(3.9,94,2,11,0)="""BLD"",6002,1,1,0)"
^XMB(3.9,94,2,12,0)="This option gives the user the ability to select and store drugs that are"
^XMB(3.9,94,2,13,0)="""BLD"",6002,1,2,0)"
^XMB(3.9,94,2,14,0)="to be returned to the manufacturer."
^XMB(3.9,94,2,15,0)="""BLD"",6002,1,3,0)"
^XMB(3.9,94,2,16,0)=" "
^XMB(3.9,94,2,17,0)="""BLD"",6002,1,4,0)"
^XMB(3.9,94,2,18,0)="The OUTDATED MEDICATIONS option is located within the PHARMACY LOCATION"
^XMB(3.9,94,2,19,0)="""BLD"",6002,1,5,0)"
^XMB(3.9,94,2,20,0)="MAINTENANCE menu and locked with the PSAMGR key."
^XMB(3.9,94,2,21,0)="""BLD"",6002,6)"
^XMB(3.9,94,2,22,0)="5^"
^XMB(3.9,94,2,23,0)="""BLD"",6002,6.3)"
^XMB(3.9,94,2,24,0)="2"
^XMB(3.9,94,2,25,0)="""BLD"",6002,""KRN"",0)"
^XMB(3.9,94,2,26,0)="^9.67PA^^"
^XMB(3.9,94,2,27,0)="""BLD"",6002,""KRN"",.4,0)"
^XMB(3.9,94,2,28,0)=".4"
^XMB(3.9,94,2,29,0)="""BLD"",6002,""KRN"",.4,""NM"",0)"
^XMB(3.9,94,2,30,0)="^9.68A^^0"
^XMB(3.9,94,2,31,0)="""BLD"",6002,""KRN"",.401,0)"
^XMB(3.9,94,2,32,0)=".401"
^XMB(3.9,94,2,33,0)="""BLD"",6002,""KRN"",.401,""NM"",0)"
^XMB(3.9,94,2,34,0)="^9.68A^^0"
^XMB(3.9,94,2,35,0)="""BLD"",6002,""KRN"",.402,0)"
^XMB(3.9,94,2,36,0)=".402"
^XMB(3.9,94,2,37,0)="""BLD"",6002,""KRN"",.402,""NM"",0)"
^XMB(3.9,94,2,38,0)="^9.68A^^0"
^XMB(3.9,94,2,39,0)="""BLD"",6002,""KRN"",.403,0)"
^XMB(3.9,94,2,40,0)=".403"
^XMB(3.9,94,2,41,0)="""BLD"",6002,""KRN"",.5,0)"
^XMB(3.9,94,2,42,0)=".5"
^XMB(3.9,94,2,43,0)="""BLD"",6002,""KRN"",.84,0)"
^XMB(3.9,94,2,44,0)=".84"
^XMB(3.9,94,2,45,0)="""BLD"",6002,""KRN"",3.6,0)"
^XMB(3.9,94,2,46,0)="3.6"
^XMB(3.9,94,2,47,0)="""BLD"",6002,""KRN"",3.8,0)"
^XMB(3.9,94,2,48,0)="3.8"
^XMB(3.9,94,2,49,0)="""BLD"",6002,""KRN"",9.2,0)"
^XMB(3.9,94,2,50,0)="9.2"
^XMB(3.9,94,2,51,0)="""BLD"",6002,""KRN"",9.8,0)"
^XMB(3.9,94,2,52,0)="9.8"
^XMB(3.9,94,2,53,0)="""BLD"",6002,""KRN"",9.8,""NM"",0)"
^XMB(3.9,94,2,54,0)="^9.68A^1^1"
^XMB(3.9,94,2,55,0)="""BLD"",6002,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,94,2,56,0)="PSAOUT^^0^B52711368"
^XMB(3.9,94,2,57,0)="""BLD"",6002,""KRN"",9.8,""NM"",""B"",""PSAOUT"",1)"
^XMB(3.9,94,2,58,0)=""
^XMB(3.9,94,2,59,0)="""BLD"",6002,""KRN"",19,0)"
^XMB(3.9,94,2,60,0)="19"
^XMB(3.9,94,2,61,0)="""BLD"",6002,""KRN"",19,""NM"",0)"
^XMB(3.9,94,2,62,0)="^9.68A^9^9"
^XMB(3.9,94,2,63,0)="""BLD"",6002,""KRN"",19,""NM"",1,0)"
^XMB(3.9,94,2,64,0)="PSA PV LOCATION MENU^^2"
^XMB(3.9,94,2,65,0)="""BLD"",6002,""KRN"",19,""NM"",2,0)"
^XMB(3.9,94,2,66,0)="PSA OUTDATED MEDICATIONS^^0"
^XMB(3.9,94,2,67,0)="""BLD"",6002,""KRN"",19,""NM"",3,0)"
^XMB(3.9,94,2,68,0)="PSA LOCATION EDIT^^0"
^XMB(3.9,94,2,69,0)="""BLD"",6002,""KRN"",19,""NM"",4,0)"
^XMB(3.9,94,2,70,0)="PSA BALANCE ADJUSTMENTS^^0"
^XMB(3.9,94,2,71,0)="""BLD"",6002,""KRN"",19,""NM"",5,0)"
^XMB(3.9,94,2,72,0)="PSA BALANCE INITIALIZE^^0"
^XMB(3.9,94,2,73,0)="""BLD"",6002,""KRN"",19,""NM"",6,0)"
^XMB(3.9,94,2,74,0)="PSA PV DRUG ENTER/EDIT^^0"
^XMB(3.9,94,2,75,0)="""BLD"",6002,""KRN"",19,""NM"",7,0)"
^XMB(3.9,94,2,76,0)="PSA STOCK AND REORDER LEVELS^^0"
^XMB(3.9,94,2,77,0)="""BLD"",6002,""KRN"",19,""NM"",8,0)"
^XMB(3.9,94,2,78,0)="PSA TRANSFER DRUGS^^0"
^XMB(3.9,94,2,79,0)="""BLD"",6002,""KRN"",19,""NM"",9,0)"
^XMB(3.9,94,2,80,0)="PSA MSG RECIPIENTS^^0"
^XMB(3.9,94,2,81,0)="""BLD"",6002,""KRN"",19,""NM"",""B"",""PSA BALANCE ADJUSTMENTS"",4)"
^XMB(3.9,94,2,82,0)=""
^XMB(3.9,94,2,83,0)="""BLD"",6002,""KRN"",19,""NM"",""B"",""PSA BALANCE INITIALIZE"",5)"
^XMB(3.9,94,2,84,0)=""
^XMB(3.9,94,2,85,0)="""BLD"",6002,""KRN"",19,""NM"",""B"",""PSA LOCATION EDIT"",3)"
^XMB(3.9,94,2,86,0)=""
^XMB(3.9,94,2,87,0)="""BLD"",6002,""KRN"",19,""NM"",""B"",""PSA MSG RECIPIENTS"",9)"
^XMB(3.9,94,2,88,0)=""
^XMB(3.9,94,2,89,0)="""BLD"",6002,""KRN"",19,""NM"",""B"",""PSA OUTDATED MEDICATIONS"",2)"
^XMB(3.9,94,2,90,0)=""
^XMB(3.9,94,2,91,0)="""BLD"",6002,""KRN"",19,""NM"",""B"",""PSA PV DRUG ENTER/EDIT"",6)"
^XMB(3.9,94,2,92,0)=""
^XMB(3.9,94,2,93,0)="""BLD"",6002,""KRN"",19,""NM"",""B"",""PSA PV LOCATION MENU"",1)"
^XMB(3.9,94,2,94,0)=""
^XMB(3.9,94,2,95,0)="""BLD"",6002,""KRN"",19,""NM"",""B"",""PSA STOCK AND REORDER LEVELS"",7)"
^XMB(3.9,94,2,96,0)=""
^XMB(3.9,94,2,97,0)="""BLD"",6002,""KRN"",19,""NM"",""B"",""PSA TRANSFER DRUGS"",8)"
^XMB(3.9,94,2,98,0)=""
^XMB(3.9,94,2,99,0)="""BLD"",6002,""KRN"",19.1,0)"
^XMB(3.9,94,2,100,0)="19.1"
^XMB(3.9,94,2,101,0)="""BLD"",6002,""KRN"",101,0)"
^XMB(3.9,94,2,102,0)="101"
^XMB(3.9,94,2,103,0)="""BLD"",6002,""KRN"",409.61,0)"
^XMB(3.9,94,2,104,0)="409.61"
^XMB(3.9,94,2,105,0)="""BLD"",6002,""KRN"",771,0)"
^XMB(3.9,94,2,106,0)="771"
^XMB(3.9,94,2,107,0)="""BLD"",6002,""KRN"",869.2,0)"
^XMB(3.9,94,2,108,0)="869.2"
^XMB(3.9,94,2,109,0)="""BLD"",6002,""KRN"",870,0)"
^XMB(3.9,94,2,110,0)="870"
^XMB(3.9,94,2,111,0)="""BLD"",6002,""KRN"",8994,0)"
^XMB(3.9,94,2,112,0)="8994"
^XMB(3.9,94,2,113,0)="""BLD"",6002,""KRN"",""B"",.4,.4)"
^XMB(3.9,94,2,114,0)=""
^XMB(3.9,94,2,115,0)="""BLD"",6002,""KRN"",""B"",.401,.401)"
^XMB(3.9,94,2,116,0)=""
^XMB(3.9,94,2,117,0)="""BLD"",6002,""KRN"",""B"",.402,.402)"
^XMB(3.9,94,2,118,0)=""
^XMB(3.9,94,2,119,0)="""BLD"",6002,""KRN"",""B"",.403,.403)"
^XMB(3.9,94,2,120,0)=""
^XMB(3.9,94,2,121,0)="""BLD"",6002,""KRN"",""B"",.5,.5)"
^XMB(3.9,94,2,122,0)=""
^XMB(3.9,94,2,123,0)="""BLD"",6002,""KRN"",""B"",.84,.84)"
^XMB(3.9,94,2,124,0)=""
^XMB(3.9,94,2,125,0)="""BLD"",6002,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,94,2,126,0)=""
^XMB(3.9,94,2,127,0)="""BLD"",6002,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,94,2,128,0)=""
^XMB(3.9,94,2,129,0)="""BLD"",6002,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,94,2,130,0)=""
^XMB(3.9,94,2,131,0)="""BLD"",6002,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,94,2,132,0)=""
^XMB(3.9,94,2,133,0)="""BLD"",6002,""KRN"",""B"",19,19)"
^XMB(3.9,94,2,134,0)=""
^XMB(3.9,94,2,135,0)="""BLD"",6002,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,94,2,136,0)=""
^XMB(3.9,94,2,137,0)="""BLD"",6002,""KRN"",""B"",101,101)"
^XMB(3.9,94,2,138,0)=""
^XMB(3.9,94,2,139,0)="""BLD"",6002,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,94,2,140,0)=""
^XMB(3.9,94,2,141,0)="""BLD"",6002,""KRN"",""B"",771,771)"
^XMB(3.9,94,2,142,0)=""
^XMB(3.9,94,2,143,0)="""BLD"",6002,""KRN"",""B"",869.2,869.2)"
^XMB(3.9,94,2,144,0)=""
^XMB(3.9,94,2,145,0)="""BLD"",6002,""KRN"",""B"",870,870)"
^XMB(3.9,94,2,146,0)=""
^XMB(3.9,94,2,147,0)="""BLD"",6002,""KRN"",""B"",8994,8994)"
^XMB(3.9,94,2,148,0)=""
^XMB(3.9,94,2,149,0)="""BLD"",6002,""QUES"",0)"
^XMB(3.9,94,2,150,0)="^9.62^^"
^XMB(3.9,94,2,151,0)="""BLD"",6002,""REQG"",0)"
^XMB(3.9,94,2,152,0)="^9.611^^"
^XMB(3.9,94,2,153,0)="""KRN"",19,6795,-1)"
^XMB(3.9,94,2,154,0)="0^3"
^XMB(3.9,94,2,155,0)="""KRN"",19,6795,0)"
^XMB(3.9,94,2,156,0)="PSA LOCATION EDIT^Set Up/Edit a Pharmacy Location^^R^^^^^^^^DRUG ACCOUNTABILITY"
^XMB(3.9,94,2,157,0)="""KRN"",19,6795,1,0)"
^XMB(3.9,94,2,158,0)="^19.06^4^4^3010314^^"
^XMB(3.9,94,2,159,0)="""KRN"",19,6795,1,1,0)"
^XMB(3.9,94,2,160,0)="The Set Up/Edit a Pharmacy Location option creates and edits a pharmacy"
^XMB(3.9,94,2,161,0)="""KRN"",19,6795,1,2,0)"
^XMB(3.9,94,2,162,0)="location. The pharmacy location's name, location type, and drugs can be"
^XMB(3.9,94,2,163,0)="""KRN"",19,6795,1,3,0)"
^XMB(3.9,94,2,164,0)="entered and edited. If it is an Inpatient pharmacy location, wards can be"
^XMB(3.9,94,2,165,0)="""KRN"",19,6795,1,4,0)"
^XMB(3.9,94,2,166,0)="entered and edited."
^XMB(3.9,94,2,167,0)="""KRN"",19,6795,15)"
^XMB(3.9,94,2,168,0)=""
^XMB(3.9,94,2,169,0)="""KRN"",19,6795,20)"
^XMB(3.9,94,2,170,0)=""
^XMB(3.9,94,2,171,0)="""KRN"",19,6795,25)"
^XMB(3.9,94,2,172,0)="PSAENT"
^XMB(3.9,94,2,173,0)="""KRN"",19,6795,""U"")"
^XMB(3.9,94,2,174,0)="SET UP/EDIT A PHARMACY LOCATIO"
^XMB(3.9,94,2,175,0)="""KRN"",19,7971,-1)"
^XMB(3.9,94,2,176,0)="0^4"
^XMB(3.9,94,2,177,0)="""KRN"",19,7971,0)"
^XMB(3.9,94,2,178,0)="PSA BALANCE ADJUSTMENTS^Balance Adjustments^^R^^PSAMGR^^^^^^DRUG ACCOUNTABILITY"
^XMB(3.9,94,2,179,0)="""KRN"",19,7971,1,0)"
^XMB(3.9,94,2,180,0)="^19.06^2^2^3000607^^^^"
^XMB(3.9,94,2,181,0)="""KRN"",19,7971,1,1,0)"
^XMB(3.9,94,2,182,0)="The Balance Adjustments option reviews or enters adjustments to correct"
^XMB(3.9,94,2,183,0)="""KRN"",19,7971,1,2,0)"
^XMB(3.9,94,2,184,0)="the balance of a drug."
^XMB(3.9,94,2,185,0)="""KRN"",19,7971,25)"
^XMB(3.9,94,2,186,0)="PSADJ"
^XMB(3.9,94,2,187,0)="""KRN"",19,7971,99)"
^XMB(3.9,94,2,188,0)="55768,51136"
^XMB(3.9,94,2,189,0)="""KRN"",19,7971,""U"")"
^XMB(3.9,94,2,190,0)="BALANCE ADJUSTMENTS"
^XMB(3.9,94,2,191,0)="""KRN"",19,7975,-1)"
^XMB(3.9,94,2,192,0)="0^5"
^XMB(3.9,94,2,193,0)="""KRN"",19,7975,0)"
^XMB(3.9,94,2,194,0)="PSA BALANCE INITIALIZE^Balance Initialization^^R^^^^^^^^DRUG ACCOUNTABILITY"
^XMB(3.9,94,2,195,0)="""KRN"",19,7975,1,0)"
^XMB(3.9,94,2,196,0)="^^2^2^2970507^^"
^XMB(3.9,94,2,197,0)="""KRN"",19,7975,1,1,0)"
^XMB(3.9,94,2,198,0)="The Balance Initialization option establishes the balance for any drugs"
^XMB(3.9,94,2,199,0)="""KRN"",19,7975,1,2,0)"
^XMB(3.9,94,2,200,0)="that do not yet have a balance."
^XMB(3.9,94,2,201,0)="""KRN"",19,7975,25)"
^XMB(3.9,94,2,202,0)="PSADJI"
^XMB(3.9,94,2,203,0)="""KRN"",19,7975,""U"")"
^XMB(3.9,94,2,204,0)="BALANCE INITIALIZATION"
^XMB(3.9,94,2,205,0)="""KRN"",19,10592,-1)"
^XMB(3.9,94,2,206,0)="0^7"
^XMB(3.9,94,2,207,0)="""KRN"",19,10592,0)"
^XMB(3.9,94,2,208,0)="PSA STOCK AND REORDER LEVELS^Enter/Edit Stock and Reorder Levels^^R^^^^^^^^DRUG ACCOUNTABILITY"
^XMB(3.9,94,2,209,0)="""KRN"",19,10592,1,0)"
^XMB(3.9,94,2,210,0)="^19.06^5^5^3010108^^"
^XMB(3.9,94,2,211,0)="""KRN"",19,10592,1,1,0)"
^XMB(3.9,94,2,212,0)="The Enter/Edit Stock and Reorder Levels option flags a pharmacy location"
^XMB(3.9,94,2,213,0)="""KRN"",19,10592,1,2,0)"
^XMB(3.9,94,2,214,0)="or master vault to maintain the stock and reorder levels or removes the"
^XMB(3.9,94,2,215,0)="""KRN"",19,10592,1,3,0)"
^XMB(3.9,94,2,216,0)="flag. It also allows the user to enter the stock and reorder levels. These"
^XMB(3.9,94,2,217,0)="""KRN"",19,10592,1,4,0)"
^XMB(3.9,94,2,218,0)="levels are used to determine the number of dispense units that need to be"
^XMB(3.9,94,2,219,0)="""KRN"",19,10592,1,5,0)"
^XMB(3.9,94,2,220,0)="ordered."
^XMB(3.9,94,2,221,0)="""KRN"",19,10592,25)"
^XMB(3.9,94,2,222,0)="PSALEVEL"
^XMB(3.9,94,2,223,0)="""KRN"",19,10592,""U"")"
^XMB(3.9,94,2,224,0)="ENTER/EDIT STOCK AND REORDER L"
^XMB(3.9,94,2,225,0)="""KRN"",19,10598,-1)"
^XMB(3.9,94,2,226,0)="2^1"
^XMB(3.9,94,2,227,0)="""KRN"",19,10598,0)"
^XMB(3.9,94,2,228,0)="PSA PV LOCATION MENU^Pharmacy Location Maintenance Menu^^M^10000000006^^^^^^^287^^1^1"
^XMB(3.9,94,2,229,0)="""KRN"",19,10598,10,0)"
^XMB(3.9,94,2,230,0)="^19.01IP^8^8"
^XMB(3.9,94,2,231,0)="""KRN"",19,10598,10,1,0)"
^XMB(3.9,94,2,232,0)="6795^1^10"
^XMB(3.9,94,2,233,0)="""KRN"",19,10598,10,1,""^"")"
^XMB(3.9,94,2,234,0)="PSA LOCATION EDIT"
^XMB(3.9,94,2,235,0)="""KRN"",19,10598,10,2,0)"
^XMB(3.9,94,2,236,0)="7975^3^30"
^XMB(3.9,94,2,237,0)="""KRN"",19,10598,10,2,""^"")"
^XMB(3.9,94,2,238,0)="PSA BALANCE INITIALIZE"
^XMB(3.9,94,2,239,0)="""KRN"",19,10598,10,3,0)"
^XMB(3.9,94,2,240,0)="7971^2^20"
^XMB(3.9,94,2,241,0)="""KRN"",19,10598,10,3,""^"")"
^XMB(3.9,94,2,242,0)="PSA BALANCE ADJUSTMENTS"
^XMB(3.9,94,2,243,0)="""KRN"",19,10598,10,4,0)"
^XMB(3.9,94,2,244,0)="10602^4^40"
^XMB(3.9,94,2,245,0)="""KRN"",19,10598,10,4,""^"")"
^XMB(3.9,94,2,246,0)="PSA PV DRUG ENTER/EDIT"
^XMB(3.9,94,2,247,0)="""KRN"",19,10598,10,5,0)"
^XMB(3.9,94,2,248,0)="10592^5^50"
^XMB(3.9,94,2,249,0)="""KRN"",19,10598,10,5,""^"")"
^XMB(3.9,94,2,250,0)="PSA STOCK AND REORDER LEVELS"
^XMB(3.9,94,2,251,0)="""KRN"",19,10598,10,6,0)"
^XMB(3.9,94,2,252,0)="10603^6^60"
^XMB(3.9,94,2,253,0)="""KRN"",19,10598,10,6,""^"")"
^XMB(3.9,94,2,254,0)="PSA TRANSFER DRUGS"
^XMB(3.9,94,2,255,0)="""KRN"",19,10598,10,7,0)"
^XMB(3.9,94,2,256,0)="12072^7^70"
^XMB(3.9,94,2,257,0)="""KRN"",19,10598,10,7,""^"")"
^XMB(3.9,94,2,258,0)="PSA MSG RECIPIENTS"
^XMB(3.9,94,2,259,0)="""KRN"",19,10598,10,8,0)"
^XMB(3.9,94,2,260,0)="13131^8^80"
^XMB(3.9,94,2,261,0)="""KRN"",19,10598,10,8,""^"")"
^XMB(3.9,94,2,262,0)="PSA OUTDATED MEDICATIONS"
^XMB(3.9,94,2,263,0)="""KRN"",19,10598,""U"")"
^XMB(3.9,94,2,264,0)="PHARMACY LOCATION MAINTENANCE "
^XMB(3.9,94,2,265,0)="""KRN"",19,10602,-1)"
^XMB(3.9,94,2,266,0)="0^6"
^XMB(3.9,94,2,267,0)="""KRN"",19,10602,0)"
^XMB(3.9,94,2,268,0)="PSA PV DRUG ENTER/EDIT^Enter/Edit a Drug^^R^^^^^^^^DRUG ACCOUNTABILITY"
^XMB(3.9,94,2,269,0)="""KRN"",19,10602,1,0)"
^XMB(3.9,94,2,270,0)="^19.06^4^4^3001004^^^"
^XMB(3.9,94,2,271,0)="""KRN"",19,10602,1,1,0)"
^XMB(3.9,94,2,272,0)="The Enter/Edit a Drug option adds a new drug to the pharmacy location. If"
^XMB(3.9,94,2,273,0)="""KRN"",19,10602,1,2,0)"
^XMB(3.9,94,2,274,0)="the drug is being added to the location and the location maintains stock"
^XMB(3.9,94,2,275,0)="""KRN"",19,10602,1,3,0)"
^XMB(3.9,94,2,276,0)="and reorder levels, it prompts for the stock and reorder levels. It also"
^XMB(3.9,94,2,277,0)="""KRN"",19,10602,1,4,0)"
^XMB(3.9,94,2,278,0)="displays the balance of an existing drug."
^XMB(3.9,94,2,279,0)="""KRN"",19,10602,25)"
^XMB(3.9,94,2,280,0)="PSADRUGP"
^XMB(3.9,94,2,281,0)="""KRN"",19,10602,""U"")"
^XMB(3.9,94,2,282,0)="ENTER/EDIT A DRUG"
^XMB(3.9,94,2,283,0)="""KRN"",19,10603,-1)"
^XMB(3.9,94,2,284,0)="0^8"
^XMB(3.9,94,2,285,0)="""KRN"",19,10603,0)"
^XMB(3.9,94,2,286,0)="PSA TRANSFER DRUGS^Transfer Drugs Between Pharmacies^^R^^PSAMGR^^^^^^DRUG ACCOUNTABILITY"
^XMB(3.9,94,2,287,0)="""KRN"",19,10603,1,0)"
^XMB(3.9,94,2,288,0)="^^5^5^2970812^"
^XMB(3.9,94,2,289,0)="""KRN"",19,10603,1,1,0)"
^XMB(3.9,94,2,290,0)="The Transfer Drugs Between Pharmacies option allows a pharmacist to move"
^XMB(3.9,94,2,291,0)="""KRN"",19,10603,1,2,0)"
^XMB(3.9,94,2,292,0)="drugs between pharmacy locations. The number of dispense units to be moved"
^XMB(3.9,94,2,293,0)="""KRN"",19,10603,1,3,0)"
^XMB(3.9,94,2,294,0)="is subtracted from the dispensing pharmacy location and added to the"
^XMB(3.9,94,2,295,0)="""KRN"",19,10603,1,4,0)"
^XMB(3.9,94,2,296,0)="receiving pharmacy location. A Transfer Signature Sheet may be printed"
^XMB(3.9,94,2,297,0)="""KRN"",19,10603,1,5,0)"
^XMB(3.9,94,2,298,0)="after all transfers are completed."
^XMB(3.9,94,2,299,0)="""KRN"",19,10603,25)"
^XMB(3.9,94,2,300,0)="PSATRAN"
^XMB(3.9,94,2,301,0)="""KRN"",19,10603,""U"")"
^XMB(3.9,94,2,302,0)="TRANSFER DRUGS BETWEEN PHARMAC"
^XMB(3.9,94,2,303,0)="""KRN"",19,12072,-1)"
^XMB(3.9,94,2,304,0)="0^9"
^XMB(3.9,94,2,305,0)="""KRN"",19,12072,0)"
^XMB(3.9,94,2,306,0)="PSA MSG RECIPIENTS^Setup Mail Message Recipients^^R^^PSAMGR^^^^^^"
^XMB(3.9,94,2,307,0)="""KRN"",19,12072,1,0)"
^XMB(3.9,94,2,308,0)="^^3^3^3010215^"
^XMB(3.9,94,2,309,0)="""KRN"",19,12072,1,1,0)"
^XMB(3.9,94,2,310,0)=" This option is used to enter/delete personnel from the two mail groups"
^XMB(3.9,94,2,311,0)="""KRN"",19,12072,1,2,0)"
^XMB(3.9,94,2,312,0)=" used for notifying personnel of a change in NDC and/or Drug Price, and"
^XMB(3.9,94,2,313,0)="""KRN"",19,12072,1,3,0)"
^XMB(3.9,94,2,314,0)=" when drugs are below reorder levels."
^XMB(3.9,94,2,315,0)="""KRN"",19,12072,25)"
^XMB(3.9,94,2,316,0)="PSA10^PSALOCO"
^XMB(3.9,94,2,317,0)="""KRN"",19,12072,""U"")"
^XMB(3.9,94,2,318,0)="SETUP MAIL MESSAGE RECIPIENTS"
^XMB(3.9,94,2,319,0)="""KRN"",19,13131,-1)"
^XMB(3.9,94,2,320,0)="0^2"
^XMB(3.9,94,2,321,0)="""KRN"",19,13131,0)"
^XMB(3.9,94,2,322,0)="PSA OUTDATED MEDICATIONS^Outdated Medications^^R^^PSAMGR^^^^^^DRUG ACCOUNTABILITY"
^XMB(3.9,94,2,323,0)="""KRN"",19,13131,1,0)"
^XMB(3.9,94,2,324,0)="^19.06^2^2^3060519^^^"
^XMB(3.9,94,2,325,0)="""KRN"",19,13131,1,1,0)"
^XMB(3.9,94,2,326,0)="This option gives the user the ability to select and store drugs that are"
^XMB(3.9,94,2,327,0)="""KRN"",19,13131,1,2,0)"
^XMB(3.9,94,2,328,0)="to be returned to the manufacturer."
^XMB(3.9,94,2,329,0)="""KRN"",19,13131,25)"
^XMB(3.9,94,2,330,0)="PSAOUT"
^XMB(3.9,94,2,331,0)="""KRN"",19,13131,""U"")"
^XMB(3.9,94,2,332,0)="OUTDATED MEDICATIONS"
^XMB(3.9,94,2,333,0)="""MBREQ"")"
^XMB(3.9,94,2,334,0)="0"
^XMB(3.9,94,2,335,0)="""ORD"",18,19)"
^XMB(3.9,94,2,336,0)="19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA"
^XMB(3.9,94,2,337,0)="""ORD"",18,19,0)"
^XMB(3.9,94,2,338,0)="OPTION"
^XMB(3.9,94,2,339,0)="""PKG"",287,-1)"
^XMB(3.9,94,2,340,0)="1^1"
^XMB(3.9,94,2,341,0)="""PKG"",287,0)"
^XMB(3.9,94,2,342,0)="DRUG ACCOUNTABILITY^PSA^Drug Accountability Inventory and Tracking module."
^XMB(3.9,94,2,343,0)="""PKG"",287,22,0)"
^XMB(3.9,94,2,344,0)="^9.49I^1^1"
^XMB(3.9,94,2,345,0)="""PKG"",287,22,1,0)"
^XMB(3.9,94,2,346,0)="3.0^2971024^2971030^11595"
^XMB(3.9,94,2,347,0)="""PKG"",287,22,1,""PAH"",1,0)"
^XMB(3.9,94,2,348,0)="51^3060522^11850"
^XMB(3.9,94,2,349,0)="""PKG"",287,22,1,""PAH"",1,1,0)"
^XMB(3.9,94,2,350,0)="^^5^5^3060522"
^XMB(3.9,94,2,351,0)="""PKG"",287,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,94,2,352,0)="This option gives the user the ability to select and store drugs that are"
^XMB(3.9,94,2,353,0)="""PKG"",287,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,94,2,354,0)="to be returned to the manufacturer."
^XMB(3.9,94,2,355,0)="""PKG"",287,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,94,2,356,0)=" "
^XMB(3.9,94,2,357,0)="""PKG"",287,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,94,2,358,0)="The OUTDATED MEDICATIONS option is located within the PHARMACY LOCATION"
^XMB(3.9,94,2,359,0)="""PKG"",287,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,94,2,360,0)="MAINTENANCE menu and locked with the PSAMGR key."
^XMB(3.9,94,2,361,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,94,2,362,0)="Y"
^XMB(3.9,94,2,363,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,94,2,364,0)="^D REP^XPDH"
^XMB(3.9,94,2,365,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,94,2,366,0)="Shall I write over your |FLAG| File"
^XMB(3.9,94,2,367,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,94,2,368,0)="YES"
^XMB(3.9,94,2,369,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,94,2,370,0)="D XPF1^XPDIQ"
^XMB(3.9,94,2,371,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,94,2,372,0)="Y"
^XMB(3.9,94,2,373,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,94,2,374,0)="^D DTA^XPDH"
^XMB(3.9,94,2,375,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,94,2,376,0)="Want my data |FLAG| yours"
^XMB(3.9,94,2,377,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,94,2,378,0)="YES"
^XMB(3.9,94,2,379,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,94,2,380,0)="D XPF2^XPDIQ"
^XMB(3.9,94,2,381,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,94,2,382,0)="YO"
^XMB(3.9,94,2,383,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,94,2,384,0)="^D INHIBIT^XPDH"
^XMB(3.9,94,2,385,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,94,2,386,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,94,2,387,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,94,2,388,0)="YES"
^XMB(3.9,94,2,389,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,94,2,390,0)="D XPI1^XPDIQ"
^XMB(3.9,94,2,391,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,94,2,392,0)="PO^VA(200,:EM"
^XMB(3.9,94,2,393,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,94,2,394,0)="^D MG^XPDH"
^XMB(3.9,94,2,395,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,94,2,396,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,94,2,397,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,94,2,398,0)=""
^XMB(3.9,94,2,399,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,94,2,400,0)="D XPM1^XPDIQ"
^XMB(3.9,94,2,401,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,94,2,402,0)="Y"
^XMB(3.9,94,2,403,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,94,2,404,0)="^D MENU^XPDH"
^XMB(3.9,94,2,405,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,94,2,406,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,94,2,407,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,94,2,408,0)="YES"
^XMB(3.9,94,2,409,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,94,2,410,0)="D XPO1^XPDIQ"
^XMB(3.9,94,2,411,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,94,2,412,0)="Y"
^XMB(3.9,94,2,413,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,94,2,414,0)="^D OPT^XPDH"
^XMB(3.9,94,2,415,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,94,2,416,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,94,2,417,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,94,2,418,0)="YES"
^XMB(3.9,94,2,419,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,94,2,420,0)="D XPZ1^XPDIQ"
^XMB(3.9,94,2,421,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,94,2,422,0)="Y"
^XMB(3.9,94,2,423,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,94,2,424,0)="^D RTN^XPDH"
^XMB(3.9,94,2,425,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,94,2,426,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,94,2,427,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,94,2,428,0)="NO"
^XMB(3.9,94,2,429,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,94,2,430,0)="D XPZ2^XPDIQ"
^XMB(3.9,94,2,431,0)="""RTN"")"
^XMB(3.9,94,2,432,0)="1"
^XMB(3.9,94,2,433,0)="""RTN"",""PSAOUT"")"
^XMB(3.9,94,2,434,0)="0^1^B52711368"
^XMB(3.9,94,2,435,0)="""RTN"",""PSAOUT"",1,0)"
^XMB(3.9,94,2,436,0)="PSAOUT ;BHM/DB - Return Drugs to Manufacturer ;23 FEB 04"
^XMB(3.9,94,2,437,0)="""RTN"",""PSAOUT"",2,0)"
^XMB(3.9,94,2,438,0)=" ;;3.0; DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**51**; 10/24/97;Build 2"
^XMB(3.9,94,2,439,0)="""RTN"",""PSAOUT"",3,0)"
^XMB(3.9,94,2,440,0)=" ;References to ^PSDRUG( are covered by IA #2095"
^XMB(3.9,94,2,441,0)="""RTN"",""PSAOUT"",4,0)"
^XMB(3.9,94,2,442,0)=" ;References to ^DIC(51.5 are covered by DBIA # 1931"
^XMB(3.9,94,2,443,0)="""RTN"",""PSAOUT"",5,0)"
^XMB(3.9,94,2,444,0)=" ;References to ^PSRX( are covered by DBIA # 254"
^XMB(3.9,94,2,445,0)="""RTN"",""PSAOUT"",6,0)"
^XMB(3.9,94,2,446,0)=" ;References to ^PSD(58.86 are covered by DBIA # 4472"
^XMB(3.9,94,2,447,0)="""RTN"",""PSAOUT"",7,0)"
^XMB(3.9,94,2,448,0)=" S PSACNT=0"
^XMB(3.9,94,2,449,0)="""RTN"",""PSAOUT"",8,0)"
^XMB(3.9,94,2,450,0)=" D Q"
^XMB(3.9,94,2,451,0)="""RTN"",""PSAOUT"",9,0)"
^XMB(3.9,94,2,452,0)=" K DIR S DIR(0)=""S^1:Print Report;2:Enter drugs Return to Manufacturer"" D ^DIR K DIR G Q:$D(DIRUT) I +Y=1 G RPT"
^XMB(3.9,94,2,453,0)="""RTN"",""PSAOUT"",10,0)"
^XMB(3.9,94,2,454,0)=" S (PSALOC,PSANUM)=0 F  S PSALOC=+$O(^PSD(58.8,""ADISP"",""P"",PSALOC)) Q:PSALOC'>0  S PSALOCN=PSALOC"
^XMB(3.9,94,2,455,0)="""RTN"",""PSAOUT"",11,0)"
^XMB(3.9,94,2,456,0)="1 ;Select Drug"
^XMB(3.9,94,2,457,0)="""RTN"",""PSAOUT"",12,0)"
^XMB(3.9,94,2,458,0)=" R !!,""Scan Drug barcode or enter a drug name : "",AN:DTIME S PSACNT=$G(PSACNT)+1 G DONE:AN[""^"" G DONE:AN="""" I AN="" "" W ""??"" G 1"
^XMB(3.9,94,2,459,0)="""RTN"",""PSAOUT"",13,0)"
^XMB(3.9,94,2,460,0)=" I $D(^PSDRUG(""NDC"",AN)) S PSADRG=$O(^PSDRUG(""NDC"",AN,0)) G FOUND"
^XMB(3.9,94,2,461,0)="""RTN"",""PSAOUT"",14,0)"
^XMB(3.9,94,2,462,0)=" I $D(^PSDRUG(""C"",AN)) S PSADRG=$O(^PSDRUG(""C"",AN,0)) G FOUND"
^XMB(3.9,94,2,463,0)="""RTN"",""PSAOUT"",15,0)"
^XMB(3.9,94,2,464,0)=" I AN?.AN,$D(^PSDRUG(AN,0)) S PSADRG=AN G FOUND"
^XMB(3.9,94,2,465,0)="""RTN"",""PSAOUT"",16,0)"
^XMB(3.9,94,2,466,0)=" I AN[""-"",$P(AN,""-"",3)'="""" S PSANDC=$P(AN,""-"")_$P(AN,""-"",2)_$P(AN,""-"",3) I $D(^PSDRUG(""NDC"",PSANDC)) S PSADRG=$O(^PSDRUG(""NDC"",PSANDC,0)) G FOUND"
^XMB(3.9,94,2,467,0)="""RTN"",""PSAOUT"",17,0)"
^XMB(3.9,94,2,468,0)=" I AN[""-"",$P(AN,""-"",3)="""" S PSARX=$P(AN,""-"",2),PSADRG=$P($G(^PSRX(PSARX,0)),""^"",6) I $G(PSADRG)>0 G FOUND"
^XMB(3.9,94,2,469,0)="""RTN"",""PSAOUT"",18,0)"
^XMB(3.9,94,2,470,0)=" I AN?.AE S X=AN,DIC(0)=""QEZ"",DIC(""S"")=""I $S('$D(^(""""I"""")):1,+^(""""I"""")>DT:1,1:0),$P($G(^(2)),""""^"""",3)'[""""N"""""",DIC=""^PSDRUG("" D ^DIC K DIC G:+Y'>0 NONDRUG S PSADRG=+Y G FOUND"
^XMB(3.9,94,2,471,0)="""RTN"",""PSAOUT"",19,0)"
^XMB(3.9,94,2,472,0)=" W !!,""Sorry, I could not find a match. Please enter the drug name."",!! G FM"
^XMB(3.9,94,2,473,0)="""RTN"",""PSAOUT"",20,0)"
^XMB(3.9,94,2,474,0)="FOUND ;Might have match"
^XMB(3.9,94,2,475,0)="""RTN"",""PSAOUT"",21,0)"
^XMB(3.9,94,2,476,0)=" S PSADRUGN=$P($G(^PSDRUG(PSADRG,0)),""^"") W "" "",$G(PSADRUGN) S DIC(""B"")=PSADRUGN"
^XMB(3.9,94,2,477,0)="""RTN"",""PSAOUT"",22,0)"
^XMB(3.9,94,2,478,0)=" I $P($G(^PSDRUG(PSADRG,2)),""^"",3)[""N"" W !!,""Sorry, Controlled Substances cannot be selected through this option."" K PSADRG,PSADRUGN,X,AN G 1"
^XMB(3.9,94,2,479,0)="""RTN"",""PSAOUT"",23,0)"
^XMB(3.9,94,2,480,0)="OK K DIR S DIR(""A"")=""Is this correct"",DIR(0)=""Y"",DIR(""B"")=""YES"" D ^DIR G DONE:$D(DIRUT)"
^XMB(3.9,94,2,481,0)="""RTN"",""PSAOUT"",24,0)"
^XMB(3.9,94,2,482,0)=" I +Y>0 G PROCEED"
^XMB(3.9,94,2,483,0)="""RTN"",""PSAOUT"",25,0)"
^XMB(3.9,94,2,484,0)="FM ;Fileman search"
^XMB(3.9,94,2,485,0)="""RTN"",""PSAOUT"",26,0)"
^XMB(3.9,94,2,486,0)=" S DIC(0)=""AEQMZ"",DIC(""A"")=""Select Drug : "",DIC(""S"")=""I $S('$D(^(""""I"""")):1,+^(""""I"""")>DT:1,1:0),$P($G(^(2)),""""^"""",3)'[""""N"""""",DIC=""^PSDRUG("" D ^DIC G DONE:+Y'>0 S PSADRG=+Y K DIC G FOUND"
^XMB(3.9,94,2,487,0)="""RTN"",""PSAOUT"",27,0)"
^XMB(3.9,94,2,488,0)="PROCEED ;On to the next series of questions"
^XMB(3.9,94,2,489,0)="""RTN"",""PSAOUT"",28,0)"
^XMB(3.9,94,2,490,0)="CON K DIR S DIR(0)=""N"",DIR(""A"")=""Number of containers "" D ^DIR K DIR S PSACON=+Y I $D(DIRUT) G DONE"
^XMB(3.9,94,2,491,0)="""RTN"",""PSAOUT"",29,0)"
^XMB(3.9,94,2,492,0)=" K PSAOU"
^XMB(3.9,94,2,493,0)="""RTN"",""PSAOUT"",30,0)"
^XMB(3.9,94,2,494,0)=" S PSAOU=$P($G(^PSDRUG(PSADRG,""660"")),""^"",2) I $G(PSAOU)>0 S PSAOU(1)=$P(^DIC(51.5,PSAOU,0),""^"")"
^XMB(3.9,94,2,495,0)="""RTN"",""PSAOUT"",31,0)"
^XMB(3.9,94,2,496,0)=" S PSAPDUOU=$P($G(^PSDRUG(PSADRG,660)),""^"",6)"
^XMB(3.9,94,2,497,0)="""RTN"",""PSAOUT"",32,0)"
^XMB(3.9,94,2,498,0)="QTY K DIR S DIR(0)=""N"",DIR(""A"")=""Number of Dispense units being returned: "" D ^DIR G DONE:$D(DIRUT)>0 S PSAQTY=Y"
^XMB(3.9,94,2,499,0)="""RTN"",""PSAOUT"",33,0)"
^XMB(3.9,94,2,500,0)="OU K DIC,Y,X S DIC(0)=""QAEMZ"",DIC=""^DIC(51.5,"",DIC(""A"")=""Package type: "",DR=.01 S:$G(PSAOU(1))'="""" DIC(""B"")=PSAOU(1) D ^DIC K DIC I +Y<0 G DONE"
^XMB(3.9,94,2,501,0)="""RTN"",""PSAOUT"",34,0)"
^XMB(3.9,94,2,502,0)=" S PSAOU(1)=Y(0)"
^XMB(3.9,94,2,503,0)="""RTN"",""PSAOUT"",35,0)"
^XMB(3.9,94,2,504,0)=" K DIR S DIR(""A"")=""Is it ok to file the data entered"",DIR(0)=""Y"",DIR(""B"")=""YES"" D ^DIR K DIR G Q:$D(DIRUT) I Y'>0 W !,""ok, try again,"",! G CON"
^XMB(3.9,94,2,505,0)="""RTN"",""PSAOUT"",36,0)"
^XMB(3.9,94,2,506,0)=" W !,""Updating Destruction holding file."""
^XMB(3.9,94,2,507,0)="""RTN"",""PSAOUT"",37,0)"
^XMB(3.9,94,2,508,0)=" F  L +^PSD(58.86,0):0 I  Q"
^XMB(3.9,94,2,509,0)="""RTN"",""PSAOUT"",38,0)"
^XMB(3.9,94,2,510,0)="FIND S PSAHLD=$P(^PSD(58.86,0),""^"",3)+1 I $D(^PSD(58.86,PSAHLD)) S $P(^PSD(58.86,0),""^"",3)=PSAHLD G FIND"
^XMB(3.9,94,2,511,0)="""RTN"",""PSAOUT"",39,0)"
^XMB(3.9,94,2,512,0)=" D NOW^%DTC S PSADT=%"
^XMB(3.9,94,2,513,0)="""RTN"",""PSAOUT"",40,0)"
^XMB(3.9,94,2,514,0)=" K DA,DIC,DLAYGO S (DIC,DLAYGO)=58.86,DIC(0)=""L"",(X,DINUM)=PSAHLD D ^DIC K DIC,DINUM,DLAYGO"
^XMB(3.9,94,2,515,0)="""RTN"",""PSAOUT"",41,0)"
^XMB(3.9,94,2,516,0)=" L -^PSD(58.86,0)"
^XMB(3.9,94,2,517,0)="""RTN"",""PSAOUT"",42,0)"
^XMB(3.9,94,2,518,0)=" W !,""Updating Drug Accountability Transaction file."""
^XMB(3.9,94,2,519,0)="""RTN"",""PSAOUT"",43,0)"
^XMB(3.9,94,2,520,0)="PSTRAN S PSAIEN=$P(^PSD(58.81,0),""^"",3)+1 I $D(^PSD(58.81,PSAIEN)) S $P(^PSD(58.81,0),""^"",3)=PSAIEN G PSTRAN"
^XMB(3.9,94,2,521,0)="""RTN"",""PSAOUT"",44,0)"
^XMB(3.9,94,2,522,0)=" S DIC=""^PSD(58.81,"",DIC(0)=""L"",DLAYG0=58.81,(DINUM,X)=PSAIEN D ^DIC K DIC,DLAYGO"
^XMB(3.9,94,2,523,0)="""RTN"",""PSAOUT"",45,0)"
^XMB(3.9,94,2,524,0)=" S DIE=""^PSD(58.81,"",DA=PSAIEN,DR=""1////^S X=10;3////^S X=PSADT;4////^S X=PSADRG;6////^S X=DUZ;47////^S X=PSAHLD"" D ^DIE"
^XMB(3.9,94,2,525,0)="""RTN"",""PSAOUT"",46,0)"
^XMB(3.9,94,2,526,0)="UPDT K DA,DIE,DR S DIE=58.86,DA=PSAHLD,DR=""1////""_+PSADRG_"";2////""_PSAQTY_"";11////""_PSACON_"";12////""_$P(PSAOU(1),U,1)_"";9///^S X=DUZ;10////^S X=PSADT;6////^S X=PSALOCN;19////^S X=$G(PSAPDUOU)"""
^XMB(3.9,94,2,527,0)="""RTN"",""PSAOUT"",47,0)"
^XMB(3.9,94,2,528,0)=" I +PSADRG=99999999 S ^PSD(58.86,DA,1)=PSADRUGN"
^XMB(3.9,94,2,529,0)="""RTN"",""PSAOUT"",48,0)"
^XMB(3.9,94,2,530,0)=" D ^DIE K DIE,DA,DR S ^PSD(58.86,PSAHLD,2)=""Returned to Manufacturer"""
^XMB(3.9,94,2,531,0)="""RTN"",""PSAOUT"",49,0)"
^XMB(3.9,94,2,532,0)=" S ^XTMP(""PSA"",$J,PSACNT)=PSADRG_""^""_PSAQTY_""^""_PSAOU_""^""_PSACON"
^XMB(3.9,94,2,533,0)="""RTN"",""PSAOUT"",50,0)"
^XMB(3.9,94,2,534,0)=" W !!!!!!! K DA,DIR S DIR(0)=""E"" D ^DIR K DIR I 'Y G DONE"
^XMB(3.9,94,2,535,0)="""RTN"",""PSAOUT"",51,0)"
^XMB(3.9,94,2,536,0)=" G 1"
^XMB(3.9,94,2,537,0)="""RTN"",""PSAOUT"",52,0)"
^XMB(3.9,94,2,538,0)="DONE I $G(PSACNT)'>0 G Q"
^XMB(3.9,94,2,539,0)="""RTN"",""PSAOUT"",53,0)"
^XMB(3.9,94,2,540,0)=" K DIR S DIR(""A"")=""Would you like to print the returns report "",DIR(0)=""Y"",DIR(""B"")=""YES"" D ^DIR G Q:$D(DIRUT)>0 I Y'>0 G Q"
^XMB(3.9,94,2,541,0)="""RTN"",""PSAOUT"",54,0)"
^XMB(3.9,94,2,542,0)="RPT ;print report"
^XMB(3.9,94,2,543,0)="""RTN"",""PSAOUT"",55,0)"
^XMB(3.9,94,2,544,0)=" W !,""If you are returning the items to the manufacturer at this time, the program"",!,""will add today's date to the item to show when it was actually returned."",!"
^XMB(3.9,94,2,545,0)="""RTN"",""PSAOUT"",56,0)"
^XMB(3.9,94,2,546,0)=" K DIR S DIR(""A"")=""Are you returning items to the manufacturer at this time"",DIR(0)=""Y"",DIR(""B"")=""YES"" D ^DIR G Q:$D(DIRUT)>0 I Y>0 S PSARET=1"
^XMB(3.9,94,2,547,0)="""RTN"",""PSAOUT"",57,0)"
^XMB(3.9,94,2,548,0)=" D NOW^%DTC S X1=X,X2=-90 D C^%DTC S Y=X D DD^%DT S %DT(""B"")=Y"
^XMB(3.9,94,2,549,0)="""RTN"",""PSAOUT"",58,0)"
^XMB(3.9,94,2,550,0)="BGNDT S %DT=""AEP"",%DT(""A"")=""Beginning Date: "" D ^%DT I +Y<1!($D(DTOUT))!(X[""^"")!(X']"""") G Q"
^XMB(3.9,94,2,551,0)="""RTN"",""PSAOUT"",59,0)"
^XMB(3.9,94,2,552,0)=" S PSABEG=+Y"
^XMB(3.9,94,2,553,0)="""RTN"",""PSAOUT"",60,0)"
^XMB(3.9,94,2,554,0)="ENDDT D NOW^%DTC S Y=+% D DD^%DT S %DT(""B"")=$P(Y,""@""),%DT=""AE"",%DT(""A"")=""Ending Date   : "" D ^%DT I +Y<1!($D(DTOUT))!(X[""^"")!(X']"""") S PSAOUT=1 G Q"
^XMB(3.9,94,2,555,0)="""RTN"",""PSAOUT"",61,0)"
^XMB(3.9,94,2,556,0)=" I Y<PSABEG W !!,""Ending Date cannot be before the Start Date."" G ENDDT"
^XMB(3.9,94,2,557,0)="""RTN"",""PSAOUT"",62,0)"
^XMB(3.9,94,2,558,0)=" S PSAEND=+Y"
^XMB(3.9,94,2,559,0)="""RTN"",""PSAOUT"",63,0)"
^XMB(3.9,94,2,560,0)=" K IO(""Q"") S %ZIS=""Q"" W ! D ^%ZIS I POP W !,""NO DEVICE SELECTED."",! G Q"
^XMB(3.9,94,2,561,0)="""RTN"",""PSAOUT"",64,0)"
^XMB(3.9,94,2,562,0)=" I $D(IO(""Q"")) K ZTDESC,ZTIO,ZTRTN,ZTSAVE,ZTDTH,ZTSK S ZTRTN=""START^PSAOUT"",ZTDTH=$H,ZTDESC=""PSA OUTDATED REPORT"" F X=""PSARET"",""PSABEG"",""PSAEND"" S ZTSAVE(X)="""""
^XMB(3.9,94,2,563,0)="""RTN"",""PSAOUT"",65,0)"
^XMB(3.9,94,2,564,0)=" I  D ^%ZTLOAD,HOME^%ZIS G Q"
^XMB(3.9,94,2,565,0)="""RTN"",""PSAOUT"",66,0)"
^XMB(3.9,94,2,566,0)=" U IO"
^XMB(3.9,94,2,567,0)="""RTN"",""PSAOUT"",67,0)"
^XMB(3.9,94,2,568,0)="START ;"
^XMB(3.9,94,2,569,0)="""RTN"",""PSAOUT"",68,0)"
^XMB(3.9,94,2,570,0)=" K ^XTMP(""PSA"",$J) S PG=0"
^XMB(3.9,94,2,571,0)="""RTN"",""PSAOUT"",69,0)"
^XMB(3.9,94,2,572,0)=" S Y=PSABEG,PSADT=PSABEG-.1 D DD^%DT S PSABEG(1)=Y"
^XMB(3.9,94,2,573,0)="""RTN"",""PSAOUT"",70,0)"
^XMB(3.9,94,2,574,0)=" S Y=PSAEND D DD^%DT S PSAEND(1)=Y,PSAEND=PSAEND+.999999"
^XMB(3.9,94,2,575,0)="""RTN"",""PSAOUT"",71,0)"
^XMB(3.9,94,2,576,0)=" D NOW^%DTC S PSARETD=$P(%,"".""),^XTMP(""PSA"",$J,0)=PSARETD_""^""_PSARETD,Y=PSARETD"
^XMB(3.9,94,2,577,0)="""RTN"",""PSAOUT"",72,0)"
^XMB(3.9,94,2,578,0)=" D DD^%DT S PSARETD=Y K Y"
^XMB(3.9,94,2,579,0)="""RTN"",""PSAOUT"",73,0)"
^XMB(3.9,94,2,580,0)="LOOP ;Loop through ""AC"" xref"
^XMB(3.9,94,2,581,0)="""RTN"",""PSAOUT"",74,0)"
^XMB(3.9,94,2,582,0)=" ;^PSD(58.86,""AC"",DATE/TIME DESTROYED,DISPENSING SITE,DRUG,DA)="""""
^XMB(3.9,94,2,583,0)="""RTN"",""PSAOUT"",75,0)"
^XMB(3.9,94,2,584,0)=" S PSADT=$O(^PSD(58.86,""AC"",PSADT)) G BEGIN:PSADT'>0 G BEGIN:PSADT>PSAEND"
^XMB(3.9,94,2,585,0)="""RTN"",""PSAOUT"",76,0)"
^XMB(3.9,94,2,586,0)=" S PSALOC1=0"
^XMB(3.9,94,2,587,0)="""RTN"",""PSAOUT"",77,0)"
^XMB(3.9,94,2,588,0)="LOC S PSALOC1=$O(^PSD(58.86,""AC"",PSADT,PSALOC1)) G LOOP:PSALOC1'>0 G LOOP:PSALOC1'>0 S PSADRG=0"
^XMB(3.9,94,2,589,0)="""RTN"",""PSAOUT"",78,0)"
^XMB(3.9,94,2,590,0)="DRG S PSADRG=$O(^PSD(58.86,""AC"",PSADT,PSALOC1,PSADRG)) G LOC:PSADRG'>0 S PSAIEN=0"
^XMB(3.9,94,2,591,0)="""RTN"",""PSAOUT"",79,0)"
^XMB(3.9,94,2,592,0)="IEN S PSAIEN=$O(^PSD(58.86,""AC"",PSADT,PSALOC1,PSADRG,PSAIEN)) G DRG:PSAIEN'>0"
^XMB(3.9,94,2,593,0)="""RTN"",""PSAOUT"",80,0)"
^XMB(3.9,94,2,594,0)=" S PSADATA=$G(^PSD(58.86,PSAIEN,0)),PSADATA2=$G(^PSD(58.86,PSAIEN,2))"
^XMB(3.9,94,2,595,0)="""RTN"",""PSAOUT"",81,0)"
^XMB(3.9,94,2,596,0)=" I $E(PSADATA2,1,3)'=""Ret"" G IEN"
^XMB(3.9,94,2,597,0)="""RTN"",""PSAOUT"",82,0)"
^XMB(3.9,94,2,598,0)=" F X=1:1:14 S PSA(X)=$P(PSADATA,""^"",X)"
^XMB(3.9,94,2,599,0)="""RTN"",""PSAOUT"",83,0)"
^XMB(3.9,94,2,600,0)=" I $G(PSA(2))=99999999 S PSA(2)=$G(^PSD(58.86,PSAIEN,1))"
^XMB(3.9,94,2,601,0)="""RTN"",""PSAOUT"",84,0)"
^XMB(3.9,94,2,602,0)=" S ^XTMP(""PSA"",$J,PSA(1))=PSA(8)_""^""_PSA(2)_""^""_PSA(3)_""^""_PSA(10)_""^""_PSA(9)_""^""_PSADT_""^""_$G(^PSD(58.86,PSAIEN,2))_""^""_PSA(12)_""^""_PSA(14)"
^XMB(3.9,94,2,603,0)="""RTN"",""PSAOUT"",85,0)"
^XMB(3.9,94,2,604,0)=" I $G(PSARET)=1,$G(^PSD(58.86,PSAIEN,2))'[""on"" S ^PSD(58.86,PSAIEN,2)=^PSD(58.86,PSAIEN,2)_"" on ""_PSARETD"
^XMB(3.9,94,2,605,0)="""RTN"",""PSAOUT"",86,0)"
^XMB(3.9,94,2,606,0)=" G IEN"
^XMB(3.9,94,2,607,0)="""RTN"",""PSAOUT"",87,0)"
^XMB(3.9,94,2,608,0)="PRINT ;Print data"
^XMB(3.9,94,2,609,0)="""RTN"",""PSAOUT"",88,0)"
^XMB(3.9,94,2,610,0)=" S PG=$G(PG)+1 W @IOF,!!!,?25,""Items to be Returned Report"",?70,""Page : "",$G(PG),!,?24,PSABEG(1),"" thru "",PSAEND(1),!,""Printed on: "",PSADT(1),?50,""Printed by: "",$P($G(^VA(200,DUZ,0)),""^""),! F X=1:1:((IOM/2)-2) W ""- """
^XMB(3.9,94,2,611,0)="""RTN"",""PSAOUT"",89,0)"
^XMB(3.9,94,2,612,0)=" W !,?50,""Total Dispense"""
^XMB(3.9,94,2,613,0)="""RTN"",""PSAOUT"",90,0)"
^XMB(3.9,94,2,614,0)=" W !,""Drug Name"",?30,""Containers"",?50,""Units / Cost"",?66,""Entered by"",! F X=1:1:(IOM-1) W ""-"""
^XMB(3.9,94,2,615,0)="""RTN"",""PSAOUT"",91,0)"
^XMB(3.9,94,2,616,0)=" Q"
^XMB(3.9,94,2,617,0)="""RTN"",""PSAOUT"",92,0)"
^XMB(3.9,94,2,618,0)="BEGIN S PSAIEN=0 D NOW^%DTC S Y=+% D DD^%DT S PSADT(1)=Y D PRINT"
^XMB(3.9,94,2,619,0)="""RTN"",""PSAOUT"",93,0)"
^XMB(3.9,94,2,620,0)="PNT1 S PSAIEN=$O(^XTMP(""PSA"",$J,PSAIEN)) G EORPT:PSAIEN'>0 S PSADATA=^XTMP(""PSA"",$J,PSAIEN),PSADRUGN=$P(PSADATA,""^"",2)"
^XMB(3.9,94,2,621,0)="""RTN"",""PSAOUT"",94,0)"
^XMB(3.9,94,2,622,0)=" W !,$S('$D(^PSDRUG(PSADRUGN,0)):PSADRUGN,1:$P(^PSDRUG(PSADRUGN,0),""^"")) I $L(PSADRUGN)>37 W !"
^XMB(3.9,94,2,623,0)="""RTN"",""PSAOUT"",95,0)"
^XMB(3.9,94,2,624,0)=" W ?38,$J($P(PSADATA,""^"",1),2),"" ("",$P(PSADATA,""^"",8),"")"",?50,$J($P(PSADATA,""^"",3),3)"
^XMB(3.9,94,2,625,0)="""RTN"",""PSAOUT"",96,0)"
^XMB(3.9,94,2,626,0)=" I $P(PSADATA,""^"",9)]"""",$P(PSADATA,""^"",1)]"""" W ?55,$J(($P(PSADATA,""^"",1)*$P(PSADATA,""^"",9)),5,2)"
^XMB(3.9,94,2,627,0)="""RTN"",""PSAOUT"",97,0)"
^XMB(3.9,94,2,628,0)=" S PSANAME=$S($P(PSADATA,""^"",4)']"""":"""",1:$P($G(^VA(200,$P(PSADATA,""^"",4),0)),""^"")) I PSANAME'="""" S PSANM1=$P(PSANAME,"","",1),PSANM2=$P(PSANAME,"","",2),PSANAME=$E(PSANM2,1)_$E(PSANM1,1)"
^XMB(3.9,94,2,629,0)="""RTN"",""PSAOUT"",98,0)"
^XMB(3.9,94,2,630,0)=" W ?64,PSANAME S DATA=$P(PSADATA,""^"",6),X2=$E(DATA,1,3)+1700 W "" ("",$E(DATA,4,5),""/"",$E(DATA,6,7),""/"",$E(X2,3,4),"")"""
^XMB(3.9,94,2,631,0)="""RTN"",""PSAOUT"",99,0)"
^XMB(3.9,94,2,632,0)=" I $Y>(IOSL-5) D HDR G Q:$G(PSAOUT)=1"
^XMB(3.9,94,2,633,0)="""RTN"",""PSAOUT"",100,0)"
^XMB(3.9,94,2,634,0)=" G PNT1"
^XMB(3.9,94,2,635,0)="""RTN"",""PSAOUT"",101,0)"
^XMB(3.9,94,2,636,0)="EORPT W !!,""End of report"" D ^%ZISC"
^XMB(3.9,94,2,637,0)="""RTN"",""PSAOUT"",102,0)"
^XMB(3.9,94,2,638,0)="Q K AN,DA,DATA,DIC,DIR,DIE,DIRUT,DLAYG0,DR,PG,PSA,PSABEG,PSACNT,PSACON,PSADATA,PSADATA2,PSADRG"
^XMB(3.9,94,2,639,0)="""RTN"",""PSAOUT"",103,0)"
^XMB(3.9,94,2,640,0)=" K PSADRUGN,PSADT,PSAEND,PSAHLD,PSAIEN,PSALOC,PSALOC1,PSALOCN,PSANAME,PSANDC,PSANM1,PSANM2,PSANUM,PSAOU"
^XMB(3.9,94,2,641,0)="""RTN"",""PSAOUT"",104,0)"
^XMB(3.9,94,2,642,0)=" K PSAPDUOU,PSAOUT,PSAQTY,PSARET,PSARETD,PSARX,X,X1,X2,Y,^XTMP(""PSA"",$J) Q"
^XMB(3.9,94,2,643,0)="""RTN"",""PSAOUT"",105,0)"
^XMB(3.9,94,2,644,0)="NONDRUG W !,""The item could not be found in the drug file."",!"
^XMB(3.9,94,2,645,0)="""RTN"",""PSAOUT"",106,0)"
^XMB(3.9,94,2,646,0)=" K DIR S DIR(""A"")=""Is this a non-va drug"",DIR(0)=""Y"",DIR(""B"")=""NO"" D ^DIR K DIR G Q:$D(DIRUT)=1"
^XMB(3.9,94,2,647,0)="""RTN"",""PSAOUT"",107,0)"
^XMB(3.9,94,2,648,0)=" I +Y'>0 G FM"
^XMB(3.9,94,2,649,0)="""RTN"",""PSAOUT"",108,0)"
^XMB(3.9,94,2,650,0)=" S PSADRG=99999999,PSADRUGN=AN"
^XMB(3.9,94,2,651,0)="""RTN"",""PSAOUT"",109,0)"
^XMB(3.9,94,2,652,0)="ASKD W !,PSADRUGN,"" //"" R AN:DTIME I AN="""" G CON"
^XMB(3.9,94,2,653,0)="""RTN"",""PSAOUT"",110,0)"
^XMB(3.9,94,2,654,0)=" G Q:AN[""^"" S PSADRUGN=AN W "" ok, press ENTER to confirm."",! G ASKD"
^XMB(3.9,94,2,655,0)="""RTN"",""PSAOUT"",111,0)"
^XMB(3.9,94,2,656,0)="HDR I $E(IOST,1,2)=""C-"",PG W ! K DA,DIR S DIR(0)=""E"" D ^DIR K DIR I 'Y S PSAOUT=1 Q"
^XMB(3.9,94,2,657,0)="""RTN"",""PSAOUT"",112,0)"
^XMB(3.9,94,2,658,0)=" D PRINT Q"
^XMB(3.9,94,2,659,0)="""VER"")"
^XMB(3.9,94,2,660,0)="8.0^22.0"
^XMB(3.9,94,2,661,0)="""BLD"",6002,6)"
^XMB(3.9,94,2,662,0)="^41"
^XMB(3.9,94,2,663,0)="$END KID PSA*3.0*51"
^XMB(3.9,94,6,0)="^3.911A^2^2"
^XMB(3.9,94,6,1,0)="POSTMASTER"
^XMB(3.9,94,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,94,6,"B","POSTMASTER",1)=""
^XMB(3.9,94,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,95,0)="PSA-3_SEQ-42_PAT-50.KID^.5^3061008.01574^^^^K"
^XMB(3.9,95,.6)="3061008"
^XMB(3.9,95,1,0)="^3.91A^2^2"
^XMB(3.9,95,1,1,0)=".5^0^3061008.01574^^^^^^^3061008.01574"
^XMB(3.9,95,1,2,0)="1^0^3061008.024224^^^^^^^3061008.024224"
^XMB(3.9,95,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,95,1,"C",.5,1)=""
^XMB(3.9,95,1,"C",1,2)=""
^XMB(3.9,95,2,0)="^^1043^1043^3061008"
^XMB(3.9,95,2,1,0)="$TXT Released PSA*3*50 SEQ #42"
^XMB(3.9,95,2,2,0)="Extracted from mail message"
^XMB(3.9,95,2,3,0)="$END TXT"
^XMB(3.9,95,2,4,0)="$KID PSA*3.0*50"
^XMB(3.9,95,2,5,0)="**INSTALL NAME**"
^XMB(3.9,95,2,6,0)="PSA*3.0*50"
^XMB(3.9,95,2,7,0)="""BLD"",6552,0)"
^XMB(3.9,95,2,8,0)="PSA*3.0*50^DRUG ACCOUNTABILITY^0^3060602^y"
^XMB(3.9,95,2,9,0)="""BLD"",6552,1,0)"
^XMB(3.9,95,2,10,0)="^^21^21^3060216^"
^XMB(3.9,95,2,11,0)="""BLD"",6552,1,1,0)"
^XMB(3.9,95,2,12,0)="This patch addresses the following problems:"
^XMB(3.9,95,2,13,0)="""BLD"",6552,1,2,0)"
^XMB(3.9,95,2,14,0)="   "
^XMB(3.9,95,2,15,0)="""BLD"",6552,1,3,0)"
^XMB(3.9,95,2,16,0)="1. HD 68113 Invoice select prompt (1-0)"
^XMB(3.9,95,2,17,0)="""BLD"",6552,1,4,0)"
^XMB(3.9,95,2,18,0)="The software is not properly detecting when all invoices being worked "
^XMB(3.9,95,2,19,0)="""BLD"",6552,1,5,0)"
^XMB(3.9,95,2,20,0)="with have been processed. It is asking the user to make a selection when "
^XMB(3.9,95,2,21,0)="""BLD"",6552,1,6,0)"
^XMB(3.9,95,2,22,0)="there are no invoices left to select from. The software errors out with "
^XMB(3.9,95,2,23,0)="""BLD"",6552,1,7,0)"
^XMB(3.9,95,2,24,0)="an undefined if the user continues."
^XMB(3.9,95,2,25,0)="""BLD"",6552,1,8,0)"
^XMB(3.9,95,2,26,0)=" "
^XMB(3.9,95,2,27,0)="""BLD"",6552,1,9,0)"
^XMB(3.9,95,2,28,0)="2. HD 93607 A faulty message 'The invoice has not been placed in a "
^XMB(3.9,95,2,29,0)="""BLD"",6552,1,10,0)"
^XMB(3.9,95,2,30,0)="Processed status!' is presented."
^XMB(3.9,95,2,31,0)="""BLD"",6552,1,11,0)"
^XMB(3.9,95,2,32,0)="Processing invoices through a particular path and question sequence will "
^XMB(3.9,95,2,33,0)="""BLD"",6552,1,12,0)"
^XMB(3.9,95,2,34,0)="generate the above message which is wrong as the invoice has just "
^XMB(3.9,95,2,35,0)="""BLD"",6552,1,13,0)"
^XMB(3.9,95,2,36,0)="completed processing necessary to be able to proceed to the verification "
^XMB(3.9,95,2,37,0)="""BLD"",6552,1,14,0)"
^XMB(3.9,95,2,38,0)="stage."
^XMB(3.9,95,2,39,0)="""BLD"",6552,1,15,0)"
^XMB(3.9,95,2,40,0)=" "
^XMB(3.9,95,2,41,0)="""BLD"",6552,1,16,0)"
^XMB(3.9,95,2,42,0)="3. HD 91604 An undefined error occurs when the selection list of invoices "
^XMB(3.9,95,2,43,0)="""BLD"",6552,1,17,0)"
^XMB(3.9,95,2,44,0)="to send on to verification has a missed node in the display numbering "
^XMB(3.9,95,2,45,0)="""BLD"",6552,1,18,0)"
^XMB(3.9,95,2,46,0)="sequence of the invoices. The user is able to put in a range from the "
^XMB(3.9,95,2,47,0)="""BLD"",6552,1,19,0)"
^XMB(3.9,95,2,48,0)="beginning of the list to the last number in the list and the processing "
^XMB(3.9,95,2,49,0)="""BLD"",6552,1,20,0)"
^XMB(3.9,95,2,50,0)="tries to work on all numbers in between. It hits the number of the "
^XMB(3.9,95,2,51,0)="""BLD"",6552,1,21,0)"
^XMB(3.9,95,2,52,0)="missing node and it breaks."
^XMB(3.9,95,2,53,0)="""BLD"",6552,4,0)"
^XMB(3.9,95,2,54,0)="^9.64PA^^"
^XMB(3.9,95,2,55,0)="""BLD"",6552,""KRN"",0)"
^XMB(3.9,95,2,56,0)="^9.67PA^8989.52^19"
^XMB(3.9,95,2,57,0)="""BLD"",6552,""KRN"",.4,0)"
^XMB(3.9,95,2,58,0)=".4"
^XMB(3.9,95,2,59,0)="""BLD"",6552,""KRN"",.401,0)"
^XMB(3.9,95,2,60,0)=".401"
^XMB(3.9,95,2,61,0)="""BLD"",6552,""KRN"",.402,0)"
^XMB(3.9,95,2,62,0)=".402"
^XMB(3.9,95,2,63,0)="""BLD"",6552,""KRN"",.403,0)"
^XMB(3.9,95,2,64,0)=".403"
^XMB(3.9,95,2,65,0)="""BLD"",6552,""KRN"",.5,0)"
^XMB(3.9,95,2,66,0)=".5"
^XMB(3.9,95,2,67,0)="""BLD"",6552,""KRN"",.84,0)"
^XMB(3.9,95,2,68,0)=".84"
^XMB(3.9,95,2,69,0)="""BLD"",6552,""KRN"",3.6,0)"
^XMB(3.9,95,2,70,0)="3.6"
^XMB(3.9,95,2,71,0)="""BLD"",6552,""KRN"",3.8,0)"
^XMB(3.9,95,2,72,0)="3.8"
^XMB(3.9,95,2,73,0)="""BLD"",6552,""KRN"",9.2,0)"
^XMB(3.9,95,2,74,0)="9.2"
^XMB(3.9,95,2,75,0)="""BLD"",6552,""KRN"",9.8,0)"
^XMB(3.9,95,2,76,0)="9.8"
^XMB(3.9,95,2,77,0)="""BLD"",6552,""KRN"",9.8,""NM"",0)"
^XMB(3.9,95,2,78,0)="^9.68A^7^3"
^XMB(3.9,95,2,79,0)="""BLD"",6552,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,95,2,80,0)="PSAPROC1^^0^B40499741"
^XMB(3.9,95,2,81,0)="""BLD"",6552,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,95,2,82,0)="PSAPROC2^^0^B70245487"
^XMB(3.9,95,2,83,0)="""BLD"",6552,""KRN"",9.8,""NM"",7,0)"
^XMB(3.9,95,2,84,0)="PSAPROC6^^0^B76371787"
^XMB(3.9,95,2,85,0)="""BLD"",6552,""KRN"",9.8,""NM"",""B"",""PSAPROC1"",3)"
^XMB(3.9,95,2,86,0)=""
^XMB(3.9,95,2,87,0)="""BLD"",6552,""KRN"",9.8,""NM"",""B"",""PSAPROC2"",5)"
^XMB(3.9,95,2,88,0)=""
^XMB(3.9,95,2,89,0)="""BLD"",6552,""KRN"",9.8,""NM"",""B"",""PSAPROC6"",7)"
^XMB(3.9,95,2,90,0)=""
^XMB(3.9,95,2,91,0)="""BLD"",6552,""KRN"",19,0)"
^XMB(3.9,95,2,92,0)="19"
^XMB(3.9,95,2,93,0)="""BLD"",6552,""KRN"",19.1,0)"
^XMB(3.9,95,2,94,0)="19.1"
^XMB(3.9,95,2,95,0)="""BLD"",6552,""KRN"",101,0)"
^XMB(3.9,95,2,96,0)="101"
^XMB(3.9,95,2,97,0)="""BLD"",6552,""KRN"",409.61,0)"
^XMB(3.9,95,2,98,0)="409.61"
^XMB(3.9,95,2,99,0)="""BLD"",6552,""KRN"",771,0)"
^XMB(3.9,95,2,100,0)="771"
^XMB(3.9,95,2,101,0)="""BLD"",6552,""KRN"",870,0)"
^XMB(3.9,95,2,102,0)="870"
^XMB(3.9,95,2,103,0)="""BLD"",6552,""KRN"",8989.51,0)"
^XMB(3.9,95,2,104,0)="8989.51"
^XMB(3.9,95,2,105,0)="""BLD"",6552,""KRN"",8989.52,0)"
^XMB(3.9,95,2,106,0)="8989.52"
^XMB(3.9,95,2,107,0)="""BLD"",6552,""KRN"",8994,0)"
^XMB(3.9,95,2,108,0)="8994"
^XMB(3.9,95,2,109,0)="""BLD"",6552,""KRN"",""B"",.4,.4)"
^XMB(3.9,95,2,110,0)=""
^XMB(3.9,95,2,111,0)="""BLD"",6552,""KRN"",""B"",.401,.401)"
^XMB(3.9,95,2,112,0)=""
^XMB(3.9,95,2,113,0)="""BLD"",6552,""KRN"",""B"",.402,.402)"
^XMB(3.9,95,2,114,0)=""
^XMB(3.9,95,2,115,0)="""BLD"",6552,""KRN"",""B"",.403,.403)"
^XMB(3.9,95,2,116,0)=""
^XMB(3.9,95,2,117,0)="""BLD"",6552,""KRN"",""B"",.5,.5)"
^XMB(3.9,95,2,118,0)=""
^XMB(3.9,95,2,119,0)="""BLD"",6552,""KRN"",""B"",.84,.84)"
^XMB(3.9,95,2,120,0)=""
^XMB(3.9,95,2,121,0)="""BLD"",6552,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,95,2,122,0)=""
^XMB(3.9,95,2,123,0)="""BLD"",6552,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,95,2,124,0)=""
^XMB(3.9,95,2,125,0)="""BLD"",6552,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,95,2,126,0)=""
^XMB(3.9,95,2,127,0)="""BLD"",6552,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,95,2,128,0)=""
^XMB(3.9,95,2,129,0)="""BLD"",6552,""KRN"",""B"",19,19)"
^XMB(3.9,95,2,130,0)=""
^XMB(3.9,95,2,131,0)="""BLD"",6552,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,95,2,132,0)=""
^XMB(3.9,95,2,133,0)="""BLD"",6552,""KRN"",""B"",101,101)"
^XMB(3.9,95,2,134,0)=""
^XMB(3.9,95,2,135,0)="""BLD"",6552,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,95,2,136,0)=""
^XMB(3.9,95,2,137,0)="""BLD"",6552,""KRN"",""B"",771,771)"
^XMB(3.9,95,2,138,0)=""
^XMB(3.9,95,2,139,0)="""BLD"",6552,""KRN"",""B"",870,870)"
^XMB(3.9,95,2,140,0)=""
^XMB(3.9,95,2,141,0)="""BLD"",6552,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,95,2,142,0)=""
^XMB(3.9,95,2,143,0)="""BLD"",6552,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,95,2,144,0)=""
^XMB(3.9,95,2,145,0)="""BLD"",6552,""KRN"",""B"",8994,8994)"
^XMB(3.9,95,2,146,0)=""
^XMB(3.9,95,2,147,0)="""BLD"",6552,""QUES"",0)"
^XMB(3.9,95,2,148,0)="^9.62^^"
^XMB(3.9,95,2,149,0)="""BLD"",6552,""REQB"",0)"
^XMB(3.9,95,2,150,0)="^9.611^1^1"
^XMB(3.9,95,2,151,0)="""BLD"",6552,""REQB"",1,0)"
^XMB(3.9,95,2,152,0)="PSA*3.0*34^1"
^XMB(3.9,95,2,153,0)="""BLD"",6552,""REQB"",""B"",""PSA*3.0*34"",1)"
^XMB(3.9,95,2,154,0)=""
^XMB(3.9,95,2,155,0)="""MBREQ"")"
^XMB(3.9,95,2,156,0)="0"
^XMB(3.9,95,2,157,0)="""PKG"",487,-1)"
^XMB(3.9,95,2,158,0)="1^1"
^XMB(3.9,95,2,159,0)="""PKG"",487,0)"
^XMB(3.9,95,2,160,0)="DRUG ACCOUNTABILITY^PSA^Drug Accountability Inventory and Tracking module."
^XMB(3.9,95,2,161,0)="""PKG"",487,20,0)"
^XMB(3.9,95,2,162,0)="^9.402P^^"
^XMB(3.9,95,2,163,0)="""PKG"",487,22,0)"
^XMB(3.9,95,2,164,0)="^9.49I^1^1"
^XMB(3.9,95,2,165,0)="""PKG"",487,22,1,0)"
^XMB(3.9,95,2,166,0)="3.0^2971024^2981028^66481"
^XMB(3.9,95,2,167,0)="""PKG"",487,22,1,""PAH"",1,0)"
^XMB(3.9,95,2,168,0)="50^3060602^123456966"
^XMB(3.9,95,2,169,0)="""PKG"",487,22,1,""PAH"",1,1,0)"
^XMB(3.9,95,2,170,0)="^^21^21^3060602"
^XMB(3.9,95,2,171,0)="""PKG"",487,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,95,2,172,0)="This patch addresses the following problems:"
^XMB(3.9,95,2,173,0)="""PKG"",487,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,95,2,174,0)="   "
^XMB(3.9,95,2,175,0)="""PKG"",487,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,95,2,176,0)="1. HD 68113 Invoice select prompt (1-0)"
^XMB(3.9,95,2,177,0)="""PKG"",487,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,95,2,178,0)="The software is not properly detecting when all invoices being worked "
^XMB(3.9,95,2,179,0)="""PKG"",487,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,95,2,180,0)="with have been processed. It is asking the user to make a selection when "
^XMB(3.9,95,2,181,0)="""PKG"",487,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,95,2,182,0)="there are no invoices left to select from. The software errors out with "
^XMB(3.9,95,2,183,0)="""PKG"",487,22,1,""PAH"",1,1,7,0)"
^XMB(3.9,95,2,184,0)="an undefined if the user continues."
^XMB(3.9,95,2,185,0)="""PKG"",487,22,1,""PAH"",1,1,8,0)"
^XMB(3.9,95,2,186,0)=" "
^XMB(3.9,95,2,187,0)="""PKG"",487,22,1,""PAH"",1,1,9,0)"
^XMB(3.9,95,2,188,0)="2. HD 93607 A faulty message 'The invoice has not been placed in a "
^XMB(3.9,95,2,189,0)="""PKG"",487,22,1,""PAH"",1,1,10,0)"
^XMB(3.9,95,2,190,0)="Processed status!' is presented."
^XMB(3.9,95,2,191,0)="""PKG"",487,22,1,""PAH"",1,1,11,0)"
^XMB(3.9,95,2,192,0)="Processing invoices through a particular path and question sequence will "
^XMB(3.9,95,2,193,0)="""PKG"",487,22,1,""PAH"",1,1,12,0)"
^XMB(3.9,95,2,194,0)="generate the above message which is wrong as the invoice has just "
^XMB(3.9,95,2,195,0)="""PKG"",487,22,1,""PAH"",1,1,13,0)"
^XMB(3.9,95,2,196,0)="completed processing necessary to be able to proceed to the verification "
^XMB(3.9,95,2,197,0)="""PKG"",487,22,1,""PAH"",1,1,14,0)"
^XMB(3.9,95,2,198,0)="stage."
^XMB(3.9,95,2,199,0)="""PKG"",487,22,1,""PAH"",1,1,15,0)"
^XMB(3.9,95,2,200,0)=" "
^XMB(3.9,95,2,201,0)="""PKG"",487,22,1,""PAH"",1,1,16,0)"
^XMB(3.9,95,2,202,0)="3. HD 91604 An undefined error occurs when the selection list of invoices "
^XMB(3.9,95,2,203,0)="""PKG"",487,22,1,""PAH"",1,1,17,0)"
^XMB(3.9,95,2,204,0)="to send on to verification has a missed node in the display numbering "
^XMB(3.9,95,2,205,0)="""PKG"",487,22,1,""PAH"",1,1,18,0)"
^XMB(3.9,95,2,206,0)="sequence of the invoices. The user is able to put in a range from the "
^XMB(3.9,95,2,207,0)="""PKG"",487,22,1,""PAH"",1,1,19,0)"
^XMB(3.9,95,2,208,0)="beginning of the list to the last number in the list and the processing "
^XMB(3.9,95,2,209,0)="""PKG"",487,22,1,""PAH"",1,1,20,0)"
^XMB(3.9,95,2,210,0)="tries to work on all numbers in between. It hits the number of the "
^XMB(3.9,95,2,211,0)="""PKG"",487,22,1,""PAH"",1,1,21,0)"
^XMB(3.9,95,2,212,0)="missing node and it breaks."
^XMB(3.9,95,2,213,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,95,2,214,0)="Y"
^XMB(3.9,95,2,215,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,95,2,216,0)="^D REP^XPDH"
^XMB(3.9,95,2,217,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,95,2,218,0)="Shall I write over your |FLAG| File"
^XMB(3.9,95,2,219,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,95,2,220,0)="YES"
^XMB(3.9,95,2,221,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,95,2,222,0)="D XPF1^XPDIQ"
^XMB(3.9,95,2,223,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,95,2,224,0)="Y"
^XMB(3.9,95,2,225,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,95,2,226,0)="^D DTA^XPDH"
^XMB(3.9,95,2,227,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,95,2,228,0)="Want my data |FLAG| yours"
^XMB(3.9,95,2,229,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,95,2,230,0)="YES"
^XMB(3.9,95,2,231,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,95,2,232,0)="D XPF2^XPDIQ"
^XMB(3.9,95,2,233,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,95,2,234,0)="YO"
^XMB(3.9,95,2,235,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,95,2,236,0)="^D INHIBIT^XPDH"
^XMB(3.9,95,2,237,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,95,2,238,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,95,2,239,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,95,2,240,0)="YES"
^XMB(3.9,95,2,241,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,95,2,242,0)="D XPI1^XPDIQ"
^XMB(3.9,95,2,243,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,95,2,244,0)="PO^VA(200,:EM"
^XMB(3.9,95,2,245,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,95,2,246,0)="^D MG^XPDH"
^XMB(3.9,95,2,247,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,95,2,248,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,95,2,249,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,95,2,250,0)=""
^XMB(3.9,95,2,251,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,95,2,252,0)="D XPM1^XPDIQ"
^XMB(3.9,95,2,253,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,95,2,254,0)="Y"
^XMB(3.9,95,2,255,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,95,2,256,0)="^D MENU^XPDH"
^XMB(3.9,95,2,257,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,95,2,258,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,95,2,259,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,95,2,260,0)="YES"
^XMB(3.9,95,2,261,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,95,2,262,0)="D XPO1^XPDIQ"
^XMB(3.9,95,2,263,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,95,2,264,0)="Y"
^XMB(3.9,95,2,265,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,95,2,266,0)="^D OPT^XPDH"
^XMB(3.9,95,2,267,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,95,2,268,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,95,2,269,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,95,2,270,0)="YES"
^XMB(3.9,95,2,271,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,95,2,272,0)="D XPZ1^XPDIQ"
^XMB(3.9,95,2,273,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,95,2,274,0)="Y"
^XMB(3.9,95,2,275,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,95,2,276,0)="^D RTN^XPDH"
^XMB(3.9,95,2,277,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,95,2,278,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,95,2,279,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,95,2,280,0)="NO"
^XMB(3.9,95,2,281,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,95,2,282,0)="D XPZ2^XPDIQ"
^XMB(3.9,95,2,283,0)="""RTN"")"
^XMB(3.9,95,2,284,0)="3"
^XMB(3.9,95,2,285,0)="""RTN"",""PSAPROC1"")"
^XMB(3.9,95,2,286,0)="0^3^B40499741^B38965265"
^XMB(3.9,95,2,287,0)="""RTN"",""PSAPROC1"",1,0)"
^XMB(3.9,95,2,288,0)="PSAPROC1 ;BIR/JMB-Process Uploaded Prime Vendor Invoice Data - CONT'D ;7/23/97"
^XMB(3.9,95,2,289,0)="""RTN"",""PSAPROC1"",2,0)"
^XMB(3.9,95,2,290,0)=" ;;3.0; DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**12,21,50**; 10/24/97"
^XMB(3.9,95,2,291,0)="""RTN"",""PSAPROC1"",3,0)"
^XMB(3.9,95,2,292,0)=" ;"
^XMB(3.9,95,2,293,0)="""RTN"",""PSAPROC1"",4,0)"
^XMB(3.9,95,2,294,0)=" ;This routine processes uploaded invoices."
^XMB(3.9,95,2,295,0)="""RTN"",""PSAPROC1"",5,0)"
^XMB(3.9,95,2,296,0)=" ;"
^XMB(3.9,95,2,297,0)="""RTN"",""PSAPROC1"",6,0)"
^XMB(3.9,95,2,298,0)=" ;;References to ^PSDRUG( are covered by IA #2095"
^XMB(3.9,95,2,299,0)="""RTN"",""PSAPROC1"",7,0)"
^XMB(3.9,95,2,300,0)=" ;"
^XMB(3.9,95,2,301,0)="""RTN"",""PSAPROC1"",8,0)"
^XMB(3.9,95,2,302,0)="CHK ;Check for invoices with a status of ""OK"" (uploaded & error free)"
^XMB(3.9,95,2,303,0)="""RTN"",""PSAPROC1"",9,0)"
^XMB(3.9,95,2,304,0)=" ;& status of """" (uploaded & errors). "
^XMB(3.9,95,2,305,0)="""RTN"",""PSAPROC1"",10,0)"
^XMB(3.9,95,2,306,0)=" K PSA,PSAOK S (PSACNTOK,PSACNTER,PSACTRL)=0"
^XMB(3.9,95,2,307,0)="""RTN"",""PSAPROC1"",11,0)"
^XMB(3.9,95,2,308,0)=" F  S PSACTRL=$O(^XTMP(""PSAPV"",PSACTRL)) Q:PSACTRL=""""  D"
^XMB(3.9,95,2,309,0)="""RTN"",""PSAPROC1"",12,0)"
^XMB(3.9,95,2,310,0)=" .;DAVE B (PSA*3*12 13MAY99) Restrict to appropriate division"
^XMB(3.9,95,2,311,0)="""RTN"",""PSAPROC1"",13,0)"
^XMB(3.9,95,2,312,0)=" .I $G(PSASORT)'=0,$G(PSASORT)'="""",$D(^XTMP(""PSAPV"",PSACTRL,""ST"")),$P(^XTMP(""PSAPV"",PSACTRL,""ST""),""^"",1)'=PSASORT Q"
^XMB(3.9,95,2,313,0)="""RTN"",""PSAPROC1"",14,0)"
^XMB(3.9,95,2,314,0)=" .Q:'$D(^XTMP(""PSAPV"",PSACTRL,""IN""))  S PSAIN=^XTMP(""PSAPV"",PSACTRL,""IN"")"
^XMB(3.9,95,2,315,0)="""RTN"",""PSAPROC1"",15,0)"
^XMB(3.9,95,2,316,0)=" .I $P(PSAIN,""^"",8)=""OK""!($P(PSAIN,""^"",13)=""SUP"") D  Q"
^XMB(3.9,95,2,317,0)="""RTN"",""PSAPROC1"",16,0)"
^XMB(3.9,95,2,318,0)=" ..I $P(PSAIN,""^"",10)=""ALL CS"",$P(PSAIN,""^"",12)'="""" D OK Q"
^XMB(3.9,95,2,319,0)="""RTN"",""PSAPROC1"",17,0)"
^XMB(3.9,95,2,320,0)=" ..I $P(PSAIN,""^"",10)'=""ALL CS"",$P(PSAIN,""^"",9)=""CS"",$P(PSAIN,""^"",12)'="""",$P(PSAIN,""^"",7)'="""" D OK Q"
^XMB(3.9,95,2,321,0)="""RTN"",""PSAPROC1"",18,0)"
^XMB(3.9,95,2,322,0)=" ..I $P(PSAIN,""^"",10)'=""ALL CS"",$P(PSAIN,""^"",9)'=""CS"",$P(PSAIN,""^"",7)'="""" D OK Q"
^XMB(3.9,95,2,323,0)="""RTN"",""PSAPROC1"",19,0)"
^XMB(3.9,95,2,324,0)=" ..S PSACNTER=PSACNTER+1,PSAERR(PSACNTER)=$P(PSAIN,""^"",4)_""^""_$P(PSAIN,""^"",2)_""^""_PSACTRL_""^""_$P(PSAIN,""^"",7)"
^XMB(3.9,95,2,325,0)="""RTN"",""PSAPROC1"",20,0)"
^XMB(3.9,95,2,326,0)=" .I $P(PSAIN,""^"",8)="""" S PSACNTER=PSACNTER+1,PSAERR(PSACNTER)=$P(PSAIN,""^"",4)_""^""_$P(PSAIN,""^"",2)_""^""_PSACTRL_""^""_$P(PSAIN,""^"",7)"
^XMB(3.9,95,2,327,0)="""RTN"",""PSAPROC1"",21,0)"
^XMB(3.9,95,2,328,0)=" S PSA=+$O(PSAOK(0))"
^XMB(3.9,95,2,329,0)="""RTN"",""PSAPROC1"",22,0)"
^XMB(3.9,95,2,330,0)=" G:'PSA ^PSAPROC2"
^XMB(3.9,95,2,331,0)="""RTN"",""PSAPROC1"",23,0)"
^XMB(3.9,95,2,332,0)=" ;"
^XMB(3.9,95,2,333,0)="""RTN"",""PSAPROC1"",24,0)"
^XMB(3.9,95,2,334,0)="NOERROR ;Display list of invoices that can be processed by selecting"
^XMB(3.9,95,2,335,0)="""RTN"",""PSAPROC1"",25,0)"
^XMB(3.9,95,2,336,0)=" ;invoice number."
^XMB(3.9,95,2,337,0)="""RTN"",""PSAPROC1"",26,0)"
^XMB(3.9,95,2,338,0)=" W @IOF,!?21,""<<< PROCESS ENTIRE INVOICE SCREEN >>>"""
^XMB(3.9,95,2,339,0)="""RTN"",""PSAPROC1"",27,0)"
^XMB(3.9,95,2,340,0)=" W !!?2,""No errors have been detected on the following invoices. If there are no"",!?2,""corrections, you can change the invoices' status to """"Processed"""" by"""
^XMB(3.9,95,2,341,0)="""RTN"",""PSAPROC1"",28,0)"
^XMB(3.9,95,2,342,0)=" W !?2,""selecting them from the list. If you do have corrections, press the return"",!?2,""key then a second list will be displayed. You will be able to choose the"",!?2,""invoices from that list and enter corrections."""
^XMB(3.9,95,2,343,0)="""RTN"",""PSAPROC1"",29,0)"
^XMB(3.9,95,2,344,0)=" W !!?2,""Choose the invoices from the list you want to process."",!,PSADLN"
^XMB(3.9,95,2,345,0)="""RTN"",""PSAPROC1"",30,0)"
^XMB(3.9,95,2,346,0)=" S (PSACNT,PSASTOP)=0,PSAMENU="""""
^XMB(3.9,95,2,347,0)="""RTN"",""PSAPROC1"",31,0)"
^XMB(3.9,95,2,348,0)=" F  S PSAMENU=$O(PSAOK(PSAMENU)) Q:PSAMENU=""""!(PSAOUT)  D  Q:PSASTOP"
^XMB(3.9,95,2,349,0)="""RTN"",""PSAPROC1"",32,0)"
^XMB(3.9,95,2,350,0)=" .I $Y+4>IOSL D HEADER Q:PSASTOP"
^XMB(3.9,95,2,351,0)="""RTN"",""PSAPROC1"",33,0)"
^XMB(3.9,95,2,352,0)=" .S PSAORD=$P(PSAOK(PSAMENU),""^""),PSAINV=$P(PSAOK(PSAMENU),""^"",2),PSACTRL=$P(PSAOK(PSAMENU),""^"",3),PSACNT=PSACNT+1"
^XMB(3.9,95,2,353,0)="""RTN"",""PSAPROC1"",34,0)"
^XMB(3.9,95,2,354,0)=" .W !?2,PSAMENU_"". "",?4,""Order#: ""_PSAORD_""  Invoice#: ""_PSAINV_""  Invoice Date: ""_$$FMTE^XLFDT(+^XTMP(""PSAPV"",PSACTRL,""IN""))"
^XMB(3.9,95,2,355,0)="""RTN"",""PSAPROC1"",35,0)"
^XMB(3.9,95,2,356,0)=" K PSASTOP W !,PSADLN"
^XMB(3.9,95,2,357,0)="""RTN"",""PSAPROC1"",36,0)"
^XMB(3.9,95,2,358,0)=" S DIR(0)=""LO^1:""_PSACNT,DIR(""A"")=""Select invoices to process"",DIR(""?"",1)=""Enter the number to the left of the invoice"",DIR(""?"")=""data to be processed or a range of numbers."" W !"
^XMB(3.9,95,2,359,0)="""RTN"",""PSAPROC1"",37,0)"
^XMB(3.9,95,2,360,0)=" S DIR(""??"")=""^D SEL^PSAPROC1"" D ^DIR K DIR G:Y="""" EDIT I $G(DIRUT) S PSAOUT=1 Q"
^XMB(3.9,95,2,361,0)="""RTN"",""PSAPROC1"",38,0)"
^XMB(3.9,95,2,362,0)=" S PSASEL=Y"
^XMB(3.9,95,2,363,0)="""RTN"",""PSAPROC1"",39,0)"
^XMB(3.9,95,2,364,0)="INVSEL F PSAPC=1:1 S PSA=+$P(PSASEL,"","",PSAPC) Q:'PSA  D  Q:PSAOUT"
^XMB(3.9,95,2,365,0)="""RTN"",""PSAPROC1"",40,0)"
^XMB(3.9,95,2,366,0)=" .I '$D(PSAOK(PSA)) Q  ;*50"
^XMB(3.9,95,2,367,0)="""RTN"",""PSAPROC1"",41,0)"
^XMB(3.9,95,2,368,0)=" .S PSACTRL=$P(PSAOK(PSA),""^"",3) Q:'$D(^XTMP(""PSAPV"",PSACTRL,""IN""))"
^XMB(3.9,95,2,369,0)="""RTN"",""PSAPROC1"",42,0)"
^XMB(3.9,95,2,370,0)=" .S PSAIN=^XTMP(""PSAPV"",PSACTRL,""IN""),PSARECD=+$P(PSAIN,""^"",6),PSALINES=0"
^XMB(3.9,95,2,371,0)="""RTN"",""PSAPROC1"",43,0)"
^XMB(3.9,95,2,372,0)=" .D PROCESS"
^XMB(3.9,95,2,373,0)="""RTN"",""PSAPROC1"",44,0)"
^XMB(3.9,95,2,374,0)=" Q:PSAOUT  G:'+$O(PSAOK(0)) PROC2"
^XMB(3.9,95,2,375,0)="""RTN"",""PSAPROC1"",45,0)"
^XMB(3.9,95,2,376,0)="EDIT ;Edit error free invoices"
^XMB(3.9,95,2,377,0)="""RTN"",""PSAPROC1"",46,0)"
^XMB(3.9,95,2,378,0)=" S PSA=0 F  S PSA=$O(PSAOK(PSA)) Q:'PSA  D"
^XMB(3.9,95,2,379,0)="""RTN"",""PSAPROC1"",47,0)"
^XMB(3.9,95,2,380,0)=" .I $P($G(^XTMP(""PSAPV"",$P(PSAOK(PSA),""^"",3),""IN"")),""^"",8)=""OK""!($P($G(^(""IN"")),""^"",13)=""SUP"") D"
^XMB(3.9,95,2,381,0)="""RTN"",""PSAPROC1"",48,0)"
^XMB(3.9,95,2,382,0)=" ..S PSACNTER=PSACNTER+1,PSAERR(PSACNTER)=$P(^XTMP(""PSAPV"",$P(PSAOK(PSA),""^"",3),""IN""),""^"",4)_""^""_$P(^(""IN""),""^"",2)_""^""_$P(PSAOK(PSA),""^"",3)_""^""_$P(^(""IN""),""^"",7)"
^XMB(3.9,95,2,383,0)="""RTN"",""PSAPROC1"",49,0)"
^XMB(3.9,95,2,384,0)=" ;"
^XMB(3.9,95,2,385,0)="""RTN"",""PSAPROC1"",50,0)"
^XMB(3.9,95,2,386,0)="PROC2 I +$O(PSAERR(0)) D ^PSAPROC2"
^XMB(3.9,95,2,387,0)="""RTN"",""PSAPROC1"",51,0)"
^XMB(3.9,95,2,388,0)=" Q"
^XMB(3.9,95,2,389,0)="""RTN"",""PSAPROC1"",52,0)"
^XMB(3.9,95,2,390,0)=" ;"
^XMB(3.9,95,2,391,0)="""RTN"",""PSAPROC1"",53,0)"
^XMB(3.9,95,2,392,0)="HEADER S PSASS=21-$Y F PSAKK=1:1:PSASS W !"
^XMB(3.9,95,2,393,0)="""RTN"",""PSAPROC1"",54,0)"
^XMB(3.9,95,2,394,0)=" S DIR(0)=""E"" D ^DIR K DIR I $G(DIRUT) S PSASTOP=1 Q"
^XMB(3.9,95,2,395,0)="""RTN"",""PSAPROC1"",55,0)"
^XMB(3.9,95,2,396,0)=" W @IOF,!?21,""<<< PROCESS ENTIRE INVOICE SCREEN >>>"",!!,PSADLN"
^XMB(3.9,95,2,397,0)="""RTN"",""PSAPROC1"",56,0)"
^XMB(3.9,95,2,398,0)=" Q"
^XMB(3.9,95,2,399,0)="""RTN"",""PSAPROC1"",57,0)"
^XMB(3.9,95,2,400,0)=" ;"
^XMB(3.9,95,2,401,0)="""RTN"",""PSAPROC1"",58,0)"
^XMB(3.9,95,2,402,0)="PROCESS ;Get date recd & line item data"
^XMB(3.9,95,2,403,0)="""RTN"",""PSAPROC1"",59,0)"
^XMB(3.9,95,2,404,0)=" I $P(PSAIN,""^"",13)=""SUP"" D HDR,SUPPLY^PSAPROC6 Q"
^XMB(3.9,95,2,405,0)="""RTN"",""PSAPROC1"",60,0)"
^XMB(3.9,95,2,406,0)=" D HDR,RECD^PSAPROC3 Q:PSAOUT  S (PSACS,PSALNCNT)=0,PSALINE="""""
^XMB(3.9,95,2,407,0)="""RTN"",""PSAPROC1"",61,0)"
^XMB(3.9,95,2,408,0)=" F  S PSALINE=$O(^XTMP(""PSAPV"",PSACTRL,""IT"",PSALINE)) Q:PSALINE=""""  D  Q:PSAOUT"
^XMB(3.9,95,2,409,0)="""RTN"",""PSAPROC1"",62,0)"
^XMB(3.9,95,2,410,0)=" .K PSAPHARM,PSAMV"
^XMB(3.9,95,2,411,0)="""RTN"",""PSAPROC1"",63,0)"
^XMB(3.9,95,2,412,0)=" .S PSALNCNT=PSALNCNT+1,(PSADISP,PSADU,PSAHDR)=0"
^XMB(3.9,95,2,413,0)="""RTN"",""PSAPROC1"",64,0)"
^XMB(3.9,95,2,414,0)=" .S PSADATA=^XTMP(""PSAPV"",PSACTRL,""IT"",PSALINE),PSAIEN=$S(+$P(PSADATA,""^"",15):+$P(PSADATA,""^"",15),+$P(PSADATA,""^"",6):+$P(PSADATA,""^"",6),1:0),PSASUB=+$P(PSADATA,""^"",7)"
^XMB(3.9,95,2,415,0)="""RTN"",""PSAPROC1"",65,0)"
^XMB(3.9,95,2,416,0)=" .S:$P(PSADATA,""^"",19)=""CS"" PSAMV=+$P(PSAIN,""^"",12) S:$P(PSADATA,""^"",19)'=""CS"" PSAPHARM=+$P(PSAIN,""^"",7)"
^XMB(3.9,95,2,417,0)="""RTN"",""PSAPROC1"",66,0)"
^XMB(3.9,95,2,418,0)=" .S PSALOC=+$S($P(PSADATA,""^"",19)=""CS"":PSAMV,1:PSAPHARM)"
^XMB(3.9,95,2,419,0)="""RTN"",""PSAPROC1"",67,0)"
^XMB(3.9,95,2,420,0)=" .I $P($G(^PSDRUG(PSAIEN,660)),""^"",8)="""" D:'PSAHDR HDR D:'PSADISP DISPLAY^PSAUTL1 D DU^PSAPROC8 Q:PSAOUT"
^XMB(3.9,95,2,421,0)="""RTN"",""PSAPROC1"",68,0)"
^XMB(3.9,95,2,422,0)=" .I '+$P($G(^PSDRUG(PSAIEN,1,PSASUB,0)),""^"",7),$P($G(^PSDRUG(PSAIEN,660)),""^"",8)'="""" D:'PSAHDR HDR D:'PSADISP DISPLAY^PSAUTL1 D:PSASUB DUOU^PSAPROC8 D:'PSASUB DUOU^PSAPROC3 Q:PSAOUT"
^XMB(3.9,95,2,423,0)="""RTN"",""PSAPROC1"",69,0)"
^XMB(3.9,95,2,424,0)=" .I +$P($G(^PSDRUG(PSAIEN,1,PSASUB,0)),""^"",6)'=+$P(PSADATA,""^"",3) D:'PSAHDR HDR D:'PSADISP DISPLAY^PSAUTL1 D PRICE^PSAPROC8 Q:PSAOUT"
^XMB(3.9,95,2,425,0)="""RTN"",""PSAPROC1"",70,0)"
^XMB(3.9,95,2,426,0)=" .I +$P($G(^PSD(58.8,PSALOC,0)),""^"",14) D  Q:PSAOUT"
^XMB(3.9,95,2,427,0)="""RTN"",""PSAPROC1"",71,0)"
^XMB(3.9,95,2,428,0)=" ..I '+$P($G(^PSD(58.8,PSALOC,1,PSAIEN,0)),""^"",3),'+$P(PSADATA,""^"",27) D:'PSAHDR HDR D:'PSADISP DISPLAY^PSAUTL1 D STOCK^PSAPROC8 Q:PSAOUT"
^XMB(3.9,95,2,429,0)="""RTN"",""PSAPROC1"",72,0)"
^XMB(3.9,95,2,430,0)=" ..I '+$P($G(^PSD(58.8,PSALOC,1,PSAIEN,0)),""^"",5),'+$P(PSADATA,""^"",21) D:'PSAHDR HDR D:'PSADISP DISPLAY^PSAUTL1 D REORDER^PSAPROC8"
^XMB(3.9,95,2,431,0)="""RTN"",""PSAPROC1"",73,0)"
^XMB(3.9,95,2,432,0)=" .D SETLINE^PSAPROC3 S:$P(^XTMP(""PSAPV"",PSACTRL,""IT"",PSALINE),""^"",19)=""CS"" PSACS=PSACS+1"
^XMB(3.9,95,2,433,0)="""RTN"",""PSAPROC1"",74,0)"
^XMB(3.9,95,2,434,0)=" S PSAOK=0"
^XMB(3.9,95,2,435,0)="""RTN"",""PSAPROC1"",75,0)"
^XMB(3.9,95,2,436,0)="CS I PSACS D  Q:PSAOUT"
^XMB(3.9,95,2,437,0)="""RTN"",""PSAPROC1"",76,0)"
^XMB(3.9,95,2,438,0)=" .S $P(^XTMP(""PSAPV"",PSACTRL,""IN""),""^"",9)=""CS"""
^XMB(3.9,95,2,439,0)="""RTN"",""PSAPROC1"",77,0)"
^XMB(3.9,95,2,440,0)=" .I $P(^XTMP(""PSAPV"",PSACTRL,""IN""),""^"",12)="""" K PSACS S PSACS(PSACTRL)="""" D MASTER^PSAPROC9 Q:PSAOUT  S:$P(^XTMP(""PSAPV"",PSACTRL,""IN""),""^"",12)'="""" PSAOK=1"
^XMB(3.9,95,2,441,0)="""RTN"",""PSAPROC1"",78,0)"
^XMB(3.9,95,2,442,0)=" .I PSACS=PSALNCNT S $P(^XTMP(""PSAPV"",PSACTRL,""IN""),""^"",10)=""ALL CS"" Q"
^XMB(3.9,95,2,443,0)="""RTN"",""PSAPROC1"",79,0)"
^XMB(3.9,95,2,444,0)=" .I PSACS'=PSALNCNT S $P(^XTMP(""PSAPV"",PSACTRL,""IN""),""^"",10)="""""
^XMB(3.9,95,2,445,0)="""RTN"",""PSAPROC1"",80,0)"
^XMB(3.9,95,2,446,0)="NCS I 'PSACS S $P(^XTMP(""PSAPV"",PSACTRL,""IN""),""^"",9)="""",$P(^(""IN""),""^"",10)="""",$P(^(""IN""),""^"",12)="""" D:$P(^(""IN""),""^"",7)="""" GETLOC^PSAPROC9 Q:PSAOUT  S:$P(^XTMP(""PSAPV"",PSACTRL,""IN""),""^"",7)'="""" PSAOK=1"
^XMB(3.9,95,2,447,0)="""RTN"",""PSAPROC1"",81,0)"
^XMB(3.9,95,2,448,0)=" ;"
^XMB(3.9,95,2,449,0)="""RTN"",""PSAPROC1"",82,0)"
^XMB(3.9,95,2,450,0)=" I PSALNCNT=PSALINES S $P(^XTMP(""PSAPV"",PSACTRL,""IN""),""^"",8)=""P"" K PSAOK(PSA) W !!,""The invoice status has been changed to Processed!"" D ^PSAPROC7 I 1 ;PSA*3*21 (1/3/01- file immediately);*50 "
^XMB(3.9,95,2,451,0)="""RTN"",""PSAPROC1"",83,0)"
^XMB(3.9,95,2,452,0)=" E  W !!,""** The invoice has not been placed in a Processed status!"""
^XMB(3.9,95,2,453,0)="""RTN"",""PSAPROC1"",84,0)"
^XMB(3.9,95,2,454,0)=" D END^PSAPROC"
^XMB(3.9,95,2,455,0)="""RTN"",""PSAPROC1"",85,0)"
^XMB(3.9,95,2,456,0)=" Q"
^XMB(3.9,95,2,457,0)="""RTN"",""PSAPROC1"",86,0)"
^XMB(3.9,95,2,458,0)=" ;"
^XMB(3.9,95,2,459,0)="""RTN"",""PSAPROC1"",87,0)"
^XMB(3.9,95,2,460,0)="HDR ;Header for editing line items with missing data"
^XMB(3.9,95,2,461,0)="""RTN"",""PSAPROC1"",88,0)"
^XMB(3.9,95,2,462,0)=" S PSAHDR=1"
^XMB(3.9,95,2,463,0)="""RTN"",""PSAPROC1"",89,0)"
^XMB(3.9,95,2,464,0)=" W @IOF,!?21,""<<< PROCESS ENTIRE INVOICE SCREEN >>>"",!,""Order#: ""_$P(PSAIN,""^"",4)_""  Invoice#: ""_$P(PSAIN,""^"",2)_""  Invoice Date: ""_$$FMTE^XLFDT(+PSAIN),!,PSADLN"
^XMB(3.9,95,2,465,0)="""RTN"",""PSAPROC1"",90,0)"
^XMB(3.9,95,2,466,0)=" Q"
^XMB(3.9,95,2,467,0)="""RTN"",""PSAPROC1"",91,0)"
^XMB(3.9,95,2,468,0)="OK ;Sets okay array"
^XMB(3.9,95,2,469,0)="""RTN"",""PSAPROC1"",92,0)"
^XMB(3.9,95,2,470,0)=" S PSACNTOK=PSACNTOK+1,PSAOK(PSACNTOK)=$P(^XTMP(""PSAPV"",PSACTRL,""IN""),""^"",4)_""^""_$P(^(""IN""),""^"",2)_""^""_PSACTRL_""^""_$P(^(""IN""),""^"",7)"
^XMB(3.9,95,2,471,0)="""RTN"",""PSAPROC1"",93,0)"
^XMB(3.9,95,2,472,0)=" Q"
^XMB(3.9,95,2,473,0)="""RTN"",""PSAPROC1"",94,0)"
^XMB(3.9,95,2,474,0)=" ;"
^XMB(3.9,95,2,475,0)="""RTN"",""PSAPROC1"",95,0)"
^XMB(3.9,95,2,476,0)="SEL ;Extended help to 'Select invoices'"
^XMB(3.9,95,2,477,0)="""RTN"",""PSAPROC1"",96,0)"
^XMB(3.9,95,2,478,0)=" W !?5,""Enter the number to the left of the invoice data that you want to process."""
^XMB(3.9,95,2,479,0)="""RTN"",""PSAPROC1"",97,0)"
^XMB(3.9,95,2,480,0)=" Q"
^XMB(3.9,95,2,481,0)="""RTN"",""PSAPROC2"")"
^XMB(3.9,95,2,482,0)="0^5^B70245487^B69077641"
^XMB(3.9,95,2,483,0)="""RTN"",""PSAPROC2"",1,0)"
^XMB(3.9,95,2,484,0)="PSAPROC2 ;BIR/JMB-Process Uploaded Prime Vendor Invoice Data - CONT'D ;7/23/97"
^XMB(3.9,95,2,485,0)="""RTN"",""PSAPROC2"",2,0)"
^XMB(3.9,95,2,486,0)=" ;;3.0; DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**34,50**; 10/24/97"
^XMB(3.9,95,2,487,0)="""RTN"",""PSAPROC2"",3,0)"
^XMB(3.9,95,2,488,0)=" ;This routine allows the user to edit invoices with errors or missing"
^XMB(3.9,95,2,489,0)="""RTN"",""PSAPROC2"",4,0)"
^XMB(3.9,95,2,490,0)=" ;data."
^XMB(3.9,95,2,491,0)="""RTN"",""PSAPROC2"",5,0)"
^XMB(3.9,95,2,492,0)=" ;"
^XMB(3.9,95,2,493,0)="""RTN"",""PSAPROC2"",6,0)"
^XMB(3.9,95,2,494,0)="CHK S PSA=+$O(PSAERR(0))"
^XMB(3.9,95,2,495,0)="""RTN"",""PSAPROC2"",7,0)"
^XMB(3.9,95,2,496,0)=" I 'PSA W @IOF,!!,""There are no invoices that need to be processed."" D END^PSAPROC Q"
^XMB(3.9,95,2,497,0)="""RTN"",""PSAPROC2"",8,0)"
^XMB(3.9,95,2,498,0)=" ;"
^XMB(3.9,95,2,499,0)="""RTN"",""PSAPROC2"",9,0)"
^XMB(3.9,95,2,500,0)="INV D HDR W !,""  More data is needed on the following invoices. Choose the invoices from"",!,""  the list you want to edit."",!,PSASLN"
^XMB(3.9,95,2,501,0)="""RTN"",""PSAPROC2"",10,0)"
^XMB(3.9,95,2,502,0)=" S (PSACNT,PSAMENU,PSASTOP)=0"
^XMB(3.9,95,2,503,0)="""RTN"",""PSAPROC2"",11,0)"
^XMB(3.9,95,2,504,0)=" F  S PSAMENU=+$O(PSAERR(PSAMENU)) Q:'PSAMENU!(PSAOUT)  D  Q:PSASTOP"
^XMB(3.9,95,2,505,0)="""RTN"",""PSAPROC2"",12,0)"
^XMB(3.9,95,2,506,0)=" .I $Y+4>IOSL D HEADER Q:PSASTOP"
^XMB(3.9,95,2,507,0)="""RTN"",""PSAPROC2"",13,0)"
^XMB(3.9,95,2,508,0)=" .S PSAORD=$P(PSAERR(PSAMENU),""^""),PSAINV=$P(PSAERR(PSAMENU),""^"",2),PSACTRL=$P(PSAERR(PSAMENU),""^"",3),PSACNT=PSACNT+1"
^XMB(3.9,95,2,509,0)="""RTN"",""PSAPROC2"",14,0)"
^XMB(3.9,95,2,510,0)=" .W !?2,PSAMENU_"". "",?6,""Order#: ""_PSAORD_""  Invoice#: ""_PSAINV_""  Invoice Date: ""_$$FMTE^XLFDT(+^XTMP(""PSAPV"",PSACTRL,""IN""))"
^XMB(3.9,95,2,511,0)="""RTN"",""PSAPROC2"",15,0)"
^XMB(3.9,95,2,512,0)=" W !,PSASLN K DIR,PSASTOP"
^XMB(3.9,95,2,513,0)="""RTN"",""PSAPROC2"",16,0)"
^XMB(3.9,95,2,514,0)=" S DIR(0)=""LO^1:""_PSACNT,DIR(""A"")=""Select invoices to edit"",DIR(""?"",1)=""Enter the number to the left of the invoice"",DIR(""?"")=""data to be processed or a range of numbers."" W !"
^XMB(3.9,95,2,515,0)="""RTN"",""PSAPROC2"",17,0)"
^XMB(3.9,95,2,516,0)=" S DIR(""??"")=""^D SELHELP^PSAPROC2"" D ^DIR K DIR I $G(DIRUT) S PSAOUT=1 Q"
^XMB(3.9,95,2,517,0)="""RTN"",""PSAPROC2"",18,0)"
^XMB(3.9,95,2,518,0)=" S PSASEL=Y"
^XMB(3.9,95,2,519,0)="""RTN"",""PSAPROC2"",19,0)"
^XMB(3.9,95,2,520,0)=" ;"
^XMB(3.9,95,2,521,0)="""RTN"",""PSAPROC2"",20,0)"
^XMB(3.9,95,2,522,0)="PROC W ! S DIR(""A"",1)=""Do you want to select the line items to be edited (S) or"",DIR(""A"")=""have them automatically (A) displayed for you?"",DIR(""B"")=""A"",DIR(0)=""SB^S:Select;A:Automatically displayed"""
^XMB(3.9,95,2,523,0)="""RTN"",""PSAPROC2"",21,0)"
^XMB(3.9,95,2,524,0)=" S DIR(""?"",1)=""Enter """"S"""" to allow you to select the line items to be edited."",DIR(""?"",2)=""Enter """"A"""" to automatically receive prompts for the line items"",DIR(""?"")=""that need editing."""
^XMB(3.9,95,2,525,0)="""RTN"",""PSAPROC2"",22,0)"
^XMB(3.9,95,2,526,0)=" D ^DIR K DIR I $G(DIRUT) S PSAOUT=1 Q"
^XMB(3.9,95,2,527,0)="""RTN"",""PSAPROC2"",23,0)"
^XMB(3.9,95,2,528,0)=" G:Y=""S"" SEL^PSAPROC6"
^XMB(3.9,95,2,529,0)="""RTN"",""PSAPROC2"",24,0)"
^XMB(3.9,95,2,530,0)=" ;"
^XMB(3.9,95,2,531,0)="""RTN"",""PSAPROC2"",25,0)"
^XMB(3.9,95,2,532,0)="AUTO ;Process line items"
^XMB(3.9,95,2,533,0)="""RTN"",""PSAPROC2"",26,0)"
^XMB(3.9,95,2,534,0)=" F PSAPC=1:1 S PSAMENU=$P(PSASEL,"","",PSAPC) Q:'PSAMENU!(PSAOUT)  D  Q:PSAOUT"
^XMB(3.9,95,2,535,0)="""RTN"",""PSAPROC2"",27,0)"
^XMB(3.9,95,2,536,0)=" .Q:'$D(PSAERR(PSAMENU))"
^XMB(3.9,95,2,537,0)="""RTN"",""PSAPROC2"",28,0)"
^XMB(3.9,95,2,538,0)=" .S PSACTRL=$P(PSAERR(PSAMENU),""^"",3),(PSALNCNT,PSALINES,PSACS,PSALLSUP)=0"
^XMB(3.9,95,2,539,0)="""RTN"",""PSAPROC2"",29,0)"
^XMB(3.9,95,2,540,0)=" .Q:'$D(^XTMP(""PSAPV"",PSACTRL,""IN""))!('$D(^XTMP(""PSAPV"",PSACTRL,""IT"")))"
^XMB(3.9,95,2,541,0)="""RTN"",""PSAPROC2"",30,0)"
^XMB(3.9,95,2,542,0)=" .S PSAIN=^XTMP(""PSAPV"",PSACTRL,""IN""),PSALOC=+$P(PSAIN,""^"",7),PSAMV=+$P(PSAIN,""^"",12)"
^XMB(3.9,95,2,543,0)="""RTN"",""PSAPROC2"",31,0)"
^XMB(3.9,95,2,544,0)=" .D HDR W !,""Order#: ""_$P(PSAIN,""^"",4)_""  Invoice#: ""_$P(PSAIN,""^"",2)_""  Invoice Date: ""_$$FMTE^XLFDT(+PSAIN),!,PSASLN"
^XMB(3.9,95,2,545,0)="""RTN"",""PSAPROC2"",32,0)"
^XMB(3.9,95,2,546,0)=" .W:$P(PSAIN,""^"",9)=""CS"" !!,""MASTER VAULT: ""_$S(PSAMV:$P($G(^PSD(58.8,PSAMV,0)),""^""),1:""Blank"")"
^XMB(3.9,95,2,547,0)="""RTN"",""PSAPROC2"",33,0)"
^XMB(3.9,95,2,548,0)=" .I $P(PSAIN,""^"",10)="""" D"
^XMB(3.9,95,2,549,0)="""RTN"",""PSAPROC2"",34,0)"
^XMB(3.9,95,2,550,0)=" ..D SITES^PSAUTL1 S PSALOCN=$S($D(^PSD(58.8,PSALOC,0)):$P($G(^PSD(58.8,PSALOC,0)),""^""),1:""UNKNOWN"")_PSACOMB"
^XMB(3.9,95,2,551,0)="""RTN"",""PSAPROC2"",35,0)"
^XMB(3.9,95,2,552,0)=" ..W !!,""PHARMACY LOCATION: "" I 'PSALOC W ""Blank"" Q"
^XMB(3.9,95,2,553,0)="""RTN"",""PSAPROC2"",36,0)"
^XMB(3.9,95,2,554,0)=" ..W:$L(PSALOCN)>76 !,$P(PSALOCN,""(IP)"",1)_""(IP)"",!?17,$P(PSALOCN,""(IP)"",2) W:$L(PSALOCN)<77 !,PSALOCN"
^XMB(3.9,95,2,555,0)="""RTN"",""PSAPROC2"",37,0)"
^XMB(3.9,95,2,556,0)=" .W ! S PSARECD=$S(+$P(PSAIN,""^"",11):+$P(PSAIN,""^"",11),+$P(PSAIN,""^"",6):+$P(PSAIN,""^"",6),1:"""") D RECD^PSAPROC3 Q:PSAOUT"
^XMB(3.9,95,2,557,0)="""RTN"",""PSAPROC2"",38,0)"
^XMB(3.9,95,2,558,0)=" .;"
^XMB(3.9,95,2,559,0)="""RTN"",""PSAPROC2"",39,0)"
^XMB(3.9,95,2,560,0)=" .;Gets & processes the line items"
^XMB(3.9,95,2,561,0)="""RTN"",""PSAPROC2"",40,0)"
^XMB(3.9,95,2,562,0)=" .S PSALINE="""" F  S PSALINE=$O(^XTMP(""PSAPV"",PSACTRL,""IT"",PSALINE)) Q:PSALINE=""""!(PSAOUT)  D  Q:PSAOUT"
^XMB(3.9,95,2,563,0)="""RTN"",""PSAPROC2"",41,0)"
^XMB(3.9,95,2,564,0)=" ..S PSALNCNT=PSALNCNT+1,(PSAPASS,PSASUPP)=0,PSADATA=^XTMP(""PSAPV"",PSACTRL,""IT"",PSALINE)"
^XMB(3.9,95,2,565,0)="""RTN"",""PSAPROC2"",42,0)"
^XMB(3.9,95,2,566,0)=" ..I $P(PSADATA,""^"",18)=""OK""!($P(PSADATA,""^"",18)=""P"") S:$P(PSADATA,""^"",18)=""OK"" $P(^XTMP(""PSAPV"",PSACTRL,""IT"",PSALINE),""^"",18)=""P"" S PSALINES=PSALINES+1 S:$P(PSADATA,""^"",19)=""CS"" PSACS=PSACS+1 Q"
^XMB(3.9,95,2,567,0)="""RTN"",""PSAPROC2"",43,0)"
^XMB(3.9,95,2,568,0)=" ..S PSADATA=^XTMP(""PSAPV"",PSACTRL,""IT"",PSALINE)"
^XMB(3.9,95,2,569,0)="""RTN"",""PSAPROC2"",44,0)"
^XMB(3.9,95,2,570,0)=" ..S PSAIEN=$S(+$P(PSADATA,""^"",15):+$P(PSADATA,""^"",15),1:+$P(PSADATA,""^"",6)),PSASUB=+$P(PSADATA,""^"",7),PSANDC=$P($P(PSADATA,""^"",4),""~""),PSAVSN=$P($P(PSADATA,""^"",5),""~"")"
^XMB(3.9,95,2,571,0)="""RTN"",""PSAPROC2"",45,0)"
^XMB(3.9,95,2,572,0)=" ..D EDITDISP^PSAUTL1 D ^PSAPROC9"
^XMB(3.9,95,2,573,0)="""RTN"",""PSAPROC2"",46,0)"
^XMB(3.9,95,2,574,0)=" .D:'PSAOUT SETINV"
^XMB(3.9,95,2,575,0)="""RTN"",""PSAPROC2"",47,0)"
^XMB(3.9,95,2,576,0)=" Q:PSAOUT"
^XMB(3.9,95,2,577,0)="""RTN"",""PSAPROC2"",48,0)"
^XMB(3.9,95,2,578,0)=" I '$O(PSAERR(0)) Q  ;*50 rid select (1-0)"
^XMB(3.9,95,2,579,0)="""RTN"",""PSAPROC2"",49,0)"
^XMB(3.9,95,2,580,0)=" W @IOF,!,""If you are changing the status of an invoice to Processed, this is the"",!,""last time you will be allowed to edit it before it goes to the verifier."""
^XMB(3.9,95,2,581,0)="""RTN"",""PSAPROC2"",50,0)"
^XMB(3.9,95,2,582,0)=" W !,""If you are not changing the status of an invoice to Processed, you can"",!,""edit it now."",!!,""You can edit the invoice's delivery date, pharmacy location, master vault,"""
^XMB(3.9,95,2,583,0)="""RTN"",""PSAPROC2"",51,0)"
^XMB(3.9,95,2,584,0)=" W !,""and the line item's drug, quantity received, order unit, and dispense units"",!,""per order unit. The reorder level can be edited if the pharmacy location or"""
^XMB(3.9,95,2,585,0)="""RTN"",""PSAPROC2"",52,0)"
^XMB(3.9,95,2,586,0)=" W !,""master vault is set up to track the reorder levels."",!"
^XMB(3.9,95,2,587,0)="""RTN"",""PSAPROC2"",53,0)"
^XMB(3.9,95,2,588,0)=" S DIR(0)=""Y"",DIR(""A"")=""Edit invoices"",DIR(""B"")=""N"",DIR(""?"",1)=""Enter Yes to edit the invoices you just processed."",DIR(""?"",1)=""Enter No to accept the invoices as they are now."""
^XMB(3.9,95,2,589,0)="""RTN"",""PSAPROC2"",54,0)"
^XMB(3.9,95,2,590,0)=" S DIR(""??"")=""^D EDIT^PSAPROC2"" D ^DIR K DIR I $G(DIRUT)!('Y) S PSAOUT=1 Q"
^XMB(3.9,95,2,591,0)="""RTN"",""PSAPROC2"",55,0)"
^XMB(3.9,95,2,592,0)=" ;"
^XMB(3.9,95,2,593,0)="""RTN"",""PSAPROC2"",56,0)"
^XMB(3.9,95,2,594,0)="EDITINV ;Edits the invoice before placing in Processed status."
^XMB(3.9,95,2,595,0)="""RTN"",""PSAPROC2"",57,0)"
^XMB(3.9,95,2,596,0)=" K PSAERR S (PSACTRL,PSAERR,PSAOUT)=0"
^XMB(3.9,95,2,597,0)="""RTN"",""PSAPROC2"",58,0)"
^XMB(3.9,95,2,598,0)=" F  S PSACTRL=$O(^XTMP(""PSAPV"",PSACTRL)) Q:PSACTRL=""""  D"
^XMB(3.9,95,2,599,0)="""RTN"",""PSAPROC2"",59,0)"
^XMB(3.9,95,2,600,0)=" .S:$D(^XTMP(""PSAPV"",PSACTRL,""IN"")) PSAERR=PSAERR+1,PSAERR(PSAERR)=$P(^XTMP(""PSAPV"",PSACTRL,""IN""),""^"",4)_""^""_$P(^(""IN""),""^"",2)_""^""_PSACTRL_""^""_$P(^(""IN""),""^"",7)_""^""_$P(^(""IN""),""^"",12)"
^XMB(3.9,95,2,601,0)="""RTN"",""PSAPROC2"",60,0)"
^XMB(3.9,95,2,602,0)=" ;"
^XMB(3.9,95,2,603,0)="""RTN"",""PSAPROC2"",61,0)"
^XMB(3.9,95,2,604,0)=" W @IOF,!?26,""<<< EDIT INVOICE SCREEN >>>"""
^XMB(3.9,95,2,605,0)="""RTN"",""PSAPROC2"",62,0)"
^XMB(3.9,95,2,606,0)=" W !!,""Choose the invoices to be edited. You can edit the invoice's date received and"",!,""the line item's drug, quantity received, and order unit. The reorder and"""
^XMB(3.9,95,2,607,0)="""RTN"",""PSAPROC2"",63,0)"
^XMB(3.9,95,2,608,0)=" W !,""stock levels can be edited if the pharmacy location or master vault is set"",!,""up to maintain the reorder levels."",!,PSASLN,!"
^XMB(3.9,95,2,609,0)="""RTN"",""PSAPROC2"",64,0)"
^XMB(3.9,95,2,610,0)=" S (PSACNT,PSAMENU,PSASTOP)=0"
^XMB(3.9,95,2,611,0)="""RTN"",""PSAPROC2"",65,0)"
^XMB(3.9,95,2,612,0)=" F  S PSAMENU=+$O(PSAERR(PSAMENU)) Q:'PSAMENU!(PSAOUT)  D  Q:PSASTOP"
^XMB(3.9,95,2,613,0)="""RTN"",""PSAPROC2"",66,0)"
^XMB(3.9,95,2,614,0)=" .I $Y+4>IOSL D HDR1 Q:PSASTOP"
^XMB(3.9,95,2,615,0)="""RTN"",""PSAPROC2"",67,0)"
^XMB(3.9,95,2,616,0)=" .S PSAORD=$P(PSAERR(PSAMENU),""^""),PSAINV=$P(PSAERR(PSAMENU),""^"",2),PSACTRL=$P(PSAERR(PSAMENU),""^"",3),PSACNT=PSACNT+1"
^XMB(3.9,95,2,617,0)="""RTN"",""PSAPROC2"",68,0)"
^XMB(3.9,95,2,618,0)=" .W !?1,PSACNT_""."",?4,""Order#: ""_PSAORD_""  Invoice#: ""_PSAINV_""  Invoice Date: ""_$$FMTE^XLFDT(+^XTMP(""PSAPV"",PSACTRL,""IN""))"
^XMB(3.9,95,2,619,0)="""RTN"",""PSAPROC2"",69,0)"
^XMB(3.9,95,2,620,0)=" K PSASTOP"
^XMB(3.9,95,2,621,0)="""RTN"",""PSAPROC2"",70,0)"
^XMB(3.9,95,2,622,0)=" S DIR(0)=""LO^1:""_PSACNT,DIR(""A"")=""Select invoices"",DIR(""?"",1)=""Enter the number to the left of the invoice"",DIR(""?"")=""data to be edited or a range of numbers."" W !"
^XMB(3.9,95,2,623,0)="""RTN"",""PSAPROC2"",71,0)"
^XMB(3.9,95,2,624,0)=" S DIR(""??"")=""^D SEL^PSAPROC2"" D ^DIR K DIR S:Y="""" DUOUT=1 I $G(DTOUT)!($G(DUOUT)) S PSAOUT=1 Q  ;*50"
^XMB(3.9,95,2,625,0)="""RTN"",""PSAPROC2"",72,0)"
^XMB(3.9,95,2,626,0)=" S PSASEL=Y D ^PSAPROC6"
^XMB(3.9,95,2,627,0)="""RTN"",""PSAPROC2"",73,0)"
^XMB(3.9,95,2,628,0)=" Q"
^XMB(3.9,95,2,629,0)="""RTN"",""PSAPROC2"",74,0)"
^XMB(3.9,95,2,630,0)="HDR ;Screen header"
^XMB(3.9,95,2,631,0)="""RTN"",""PSAPROC2"",75,0)"
^XMB(3.9,95,2,632,0)=" W @IOF,!?19,""<<< EDIT INVOICES TO BE PROCESSED SCREEN >>>"",!"
^XMB(3.9,95,2,633,0)="""RTN"",""PSAPROC2"",76,0)"
^XMB(3.9,95,2,634,0)=" Q"
^XMB(3.9,95,2,635,0)="""RTN"",""PSAPROC2"",77,0)"
^XMB(3.9,95,2,636,0)=" ;"
^XMB(3.9,95,2,637,0)="""RTN"",""PSAPROC2"",78,0)"
^XMB(3.9,95,2,638,0)="HDR1 ;Screen header with hold"
^XMB(3.9,95,2,639,0)="""RTN"",""PSAPROC2"",79,0)"
^XMB(3.9,95,2,640,0)=" S PSASS=21-$Y F PSAKK=1:1:PSASS W !"
^XMB(3.9,95,2,641,0)="""RTN"",""PSAPROC2"",80,0)"
^XMB(3.9,95,2,642,0)=" S DIR(0)=""E"" D ^DIR K DIR I $G(DIRUT) S PSASTOP=1 Q"
^XMB(3.9,95,2,643,0)="""RTN"",""PSAPROC2"",81,0)"
^XMB(3.9,95,2,644,0)=" W @IOF,!?26,""<<< EDIT INVOICE SCREEN >>>"",!!,PSASLN"
^XMB(3.9,95,2,645,0)="""RTN"",""PSAPROC2"",82,0)"
^XMB(3.9,95,2,646,0)=" Q"
^XMB(3.9,95,2,647,0)="""RTN"",""PSAPROC2"",83,0)"
^XMB(3.9,95,2,648,0)=" ;"
^XMB(3.9,95,2,649,0)="""RTN"",""PSAPROC2"",84,0)"
^XMB(3.9,95,2,650,0)="HEADER ;Screen hold with header"
^XMB(3.9,95,2,651,0)="""RTN"",""PSAPROC2"",85,0)"
^XMB(3.9,95,2,652,0)=" S PSASS=21-$Y F PSAKK=1:1:PSASS W !"
^XMB(3.9,95,2,653,0)="""RTN"",""PSAPROC2"",86,0)"
^XMB(3.9,95,2,654,0)=" S DIR(0)=""E"" D ^DIR K DIR I $G(DIRUT) S PSASTOP=1 Q"
^XMB(3.9,95,2,655,0)="""RTN"",""PSAPROC2"",87,0)"
^XMB(3.9,95,2,656,0)=" W @IOF,!?19,""<<< EDIT INVOICES TO BE PROCESSED SCREEN >>>"",!!,PSASLN"
^XMB(3.9,95,2,657,0)="""RTN"",""PSAPROC2"",88,0)"
^XMB(3.9,95,2,658,0)=" Q"
^XMB(3.9,95,2,659,0)="""RTN"",""PSAPROC2"",89,0)"
^XMB(3.9,95,2,660,0)=" ;"
^XMB(3.9,95,2,661,0)="""RTN"",""PSAPROC2"",90,0)"
^XMB(3.9,95,2,662,0)="SETINV ;Sets invoice to processed if okay."
^XMB(3.9,95,2,663,0)="""RTN"",""PSAPROC2"",91,0)"
^XMB(3.9,95,2,664,0)=" S PSAOK=1"
^XMB(3.9,95,2,665,0)="""RTN"",""PSAPROC2"",92,0)"
^XMB(3.9,95,2,666,0)=" I PSALLSUP=PSALNCNT S $P(^XTMP(""PSAPV"",PSACTRL,""IN""),""^"",7)="""",$P(^(""IN""),""^"",9)="""",$P(^(""IN""),""^"",10)="""",$P(^(""IN""),""^"",12)="""",$P(^(""IN""),""^"",13)=""SUP"",PSAOK=1 G STATUS"
^XMB(3.9,95,2,667,0)="""RTN"",""PSAPROC2"",93,0)"
^XMB(3.9,95,2,668,0)=" E  S $P(^XTMP(""PSAPV"",PSACTRL,""IN""),""^"",13)="""""
^XMB(3.9,95,2,669,0)="""RTN"",""PSAPROC2"",94,0)"
^XMB(3.9,95,2,670,0)=" I PSACS D  Q:PSAOUT"
^XMB(3.9,95,2,671,0)="""RTN"",""PSAPROC2"",95,0)"
^XMB(3.9,95,2,672,0)=" .S $P(^XTMP(""PSAPV"",PSACTRL,""IN""),""^"",9)=""CS"""
^XMB(3.9,95,2,673,0)="""RTN"",""PSAPROC2"",96,0)"
^XMB(3.9,95,2,674,0)=" .I $P(^XTMP(""PSAPV"",PSACTRL,""IN""),""^"",12)="""" S PSACS(PSACTRL)="""" D MASTER^PSAPROC9 Q:PSAOUT  S:$P(^XTMP(""PSAPV"",PSACTRL,""IN""),""^"",12)="""" PSAOK=0"
^XMB(3.9,95,2,675,0)="""RTN"",""PSAPROC2"",97,0)"
^XMB(3.9,95,2,676,0)=" .I PSACS=PSALNCNT S $P(^XTMP(""PSAPV"",PSACTRL,""IN""),""^"",10)=""ALL CS"" Q"
^XMB(3.9,95,2,677,0)="""RTN"",""PSAPROC2"",98,0)"
^XMB(3.9,95,2,678,0)=" .I PSACS'=PSALNCNT S $P(^XTMP(""PSAPV"",PSACTRL,""IN""),""^"",10)="""""
^XMB(3.9,95,2,679,0)="""RTN"",""PSAPROC2"",99,0)"
^XMB(3.9,95,2,680,0)=" I 'PSACS S $P(^XTMP(""PSAPV"",PSACTRL,""IN""),""^"",9)="""",$P(^(""IN""),""^"",10)="""",$P(^(""IN""),""^"",12)="""" D:$P(^(""IN""),""^"",7)="""" GETLOC^PSAPROC9 Q:PSAOUT  S:$P(^XTMP(""PSAPV"",PSACTRL,""IN""),""^"",7)="""" PSAOK=0"
^XMB(3.9,95,2,681,0)="""RTN"",""PSAPROC2"",100,0)"
^XMB(3.9,95,2,682,0)=" ;"
^XMB(3.9,95,2,683,0)="""RTN"",""PSAPROC2"",101,0)"
^XMB(3.9,95,2,684,0)="STATUS I PSALNCNT=PSALINES!(PSALNCNT=PSALLSUP),PSAOK D CHG^PSAPROC6,END^PSAPROC Q"
^XMB(3.9,95,2,685,0)="""RTN"",""PSAPROC2"",102,0)"
^XMB(3.9,95,2,686,0)=" E  W !!,""** The invoice has not been placed in a Processed status!"""
^XMB(3.9,95,2,687,0)="""RTN"",""PSAPROC2"",103,0)"
^XMB(3.9,95,2,688,0)=" D END^PSAPROC"
^XMB(3.9,95,2,689,0)="""RTN"",""PSAPROC2"",104,0)"
^XMB(3.9,95,2,690,0)=" Q"
^XMB(3.9,95,2,691,0)="""RTN"",""PSAPROC2"",105,0)"
^XMB(3.9,95,2,692,0)="EDIT ;Extended help for 'edit any invoices'"
^XMB(3.9,95,2,693,0)="""RTN"",""PSAPROC2"",106,0)"
^XMB(3.9,95,2,694,0)=" W !?5,""If you answer Yes, a list of the invoices you were able to process will"",!?5,""be displayed. You will be able to select the invoices to be edited then"""
^XMB(3.9,95,2,695,0)="""RTN"",""PSAPROC2"",107,0)"
^XMB(3.9,95,2,696,0)=" W !?5,""the line item numbers. You will be able to edit the date the invoice was"",!?5,""received, drug, quantity, order unit, and dispense units per order unit."""
^XMB(3.9,95,2,697,0)="""RTN"",""PSAPROC2"",108,0)"
^XMB(3.9,95,2,698,0)=" W !?5,""If the drugs are assigned to a pharmacy location or master vault that"",!?5,""maintains reorder levels, you will also be able to edit the reorder and"",!?5,""stock levels."",!!?5,""Enter No if the invoice are correct."""
^XMB(3.9,95,2,699,0)="""RTN"",""PSAPROC2"",109,0)"
^XMB(3.9,95,2,700,0)=" Q"
^XMB(3.9,95,2,701,0)="""RTN"",""PSAPROC2"",110,0)"
^XMB(3.9,95,2,702,0)="SEL ;Extended help to 'Select invoices to process'"
^XMB(3.9,95,2,703,0)="""RTN"",""PSAPROC2"",111,0)"
^XMB(3.9,95,2,704,0)=" W !?5,""Enter the number to the left of the invoice data that you want to process."""
^XMB(3.9,95,2,705,0)="""RTN"",""PSAPROC2"",112,0)"
^XMB(3.9,95,2,706,0)=" Q"
^XMB(3.9,95,2,707,0)="""RTN"",""PSAPROC2"",113,0)"
^XMB(3.9,95,2,708,0)="SELHELP ;Extended help to 'Select invoices to edit'"
^XMB(3.9,95,2,709,0)="""RTN"",""PSAPROC2"",114,0)"
^XMB(3.9,95,2,710,0)=" W !?5,""Enter the number to the left of the invoice data that you want to"",!?5,""edit. The line items will be displayed for you to select the ones"""
^XMB(3.9,95,2,711,0)="""RTN"",""PSAPROC2"",115,0)"
^XMB(3.9,95,2,712,0)=" W !?5,""you want to edit. You are given this opportunity to edit the invoice"",!?5,""because the automatic display may not catch all the needed corrections."""
^XMB(3.9,95,2,713,0)="""RTN"",""PSAPROC2"",116,0)"
^XMB(3.9,95,2,714,0)=" W !!?5,""For example, the quantity on the invoice may be 6, but one bottle may"",!?5,""be broken. Six is a valid quantity that the automatic display will not"""
^XMB(3.9,95,2,715,0)="""RTN"",""PSAPROC2"",117,0)"
^XMB(3.9,95,2,716,0)=" W !?5,""realize as being incorrect. By answering Yes, you will be allowed to change"",!?5,""the quantity to 5."""
^XMB(3.9,95,2,717,0)="""RTN"",""PSAPROC2"",118,0)"
^XMB(3.9,95,2,718,0)=" Q"
^XMB(3.9,95,2,719,0)="""RTN"",""PSAPROC6"")"
^XMB(3.9,95,2,720,0)="0^7^B76371787^B71811767"
^XMB(3.9,95,2,721,0)="""RTN"",""PSAPROC6"",1,0)"
^XMB(3.9,95,2,722,0)="PSAPROC6 ;BIR/JMB-Process Uploaded Prime Vendor Invoice Data - CONT'D ;10/7/97"
^XMB(3.9,95,2,723,0)="""RTN"",""PSAPROC6"",2,0)"
^XMB(3.9,95,2,724,0)=" ;;3.0; DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**3,21,34,50**; 10/24/97"
^XMB(3.9,95,2,725,0)="""RTN"",""PSAPROC6"",3,0)"
^XMB(3.9,95,2,726,0)=" ;"
^XMB(3.9,95,2,727,0)="""RTN"",""PSAPROC6"",4,0)"
^XMB(3.9,95,2,728,0)=" ;This routine allows the user to edit invoices by selecting the"
^XMB(3.9,95,2,729,0)="""RTN"",""PSAPROC6"",5,0)"
^XMB(3.9,95,2,730,0)=" ;invoice's line item number."
^XMB(3.9,95,2,731,0)="""RTN"",""PSAPROC6"",6,0)"
^XMB(3.9,95,2,732,0)=" ;"
^XMB(3.9,95,2,733,0)="""RTN"",""PSAPROC6"",7,0)"
^XMB(3.9,95,2,734,0)=" ;References to ^PSDRUG( are covered by IA #2095"
^XMB(3.9,95,2,735,0)="""RTN"",""PSAPROC6"",8,0)"
^XMB(3.9,95,2,736,0)=" ;"
^XMB(3.9,95,2,737,0)="""RTN"",""PSAPROC6"",9,0)"
^XMB(3.9,95,2,738,0)="SEL ;Loops thru selected invoices"
^XMB(3.9,95,2,739,0)="""RTN"",""PSAPROC6"",10,0)"
^XMB(3.9,95,2,740,0)=" F PSAPC=1:1 S PSAMENU=$P(PSASEL,"","",PSAPC) Q:'PSAMENU!(PSAOUT)  D CORR Q:PSAOUT  D CHECK"
^XMB(3.9,95,2,741,0)="""RTN"",""PSAPROC6"",11,0)"
^XMB(3.9,95,2,742,0)=" Q  ;; <= *50  TO QUIT PROPERLY"
^XMB(3.9,95,2,743,0)="""RTN"",""PSAPROC6"",12,0)"
^XMB(3.9,95,2,744,0)=" ;"
^XMB(3.9,95,2,745,0)="""RTN"",""PSAPROC6"",13,0)"
^XMB(3.9,95,2,746,0)="CHECK ;Looks to see if all line items are processed"
^XMB(3.9,95,2,747,0)="""RTN"",""PSAPROC6"",14,0)"
^XMB(3.9,95,2,748,0)=" S (PSACS,PSAERR,PSALINE,PSALINES,PSALNCNT,PSALNSU,PSAOUT,PSASUP)=0"
^XMB(3.9,95,2,749,0)="""RTN"",""PSAPROC6"",15,0)"
^XMB(3.9,95,2,750,0)=" F  S PSALINE=$O(^XTMP(""PSAPV"",PSACTRL,""IT"",PSALINE)) Q:'PSALINE  D"
^XMB(3.9,95,2,751,0)="""RTN"",""PSAPROC6"",16,0)"
^XMB(3.9,95,2,752,0)=" .S PSADATA=^XTMP(""PSAPV"",PSACTRL,""IT"",PSALINE),PSALNCNT=PSALNCNT+1"
^XMB(3.9,95,2,753,0)="""RTN"",""PSAPROC6"",17,0)"
^XMB(3.9,95,2,754,0)=" .S:$P(PSADATA,""^"",18)=""P""!($P(PSADATA,""^"",18)=""OK"") PSALINES=PSALINES+1"
^XMB(3.9,95,2,755,0)="""RTN"",""PSAPROC6"",18,0)"
^XMB(3.9,95,2,756,0)=" .S:$P(PSADATA,""^"",19)=""CS"" PSACS=PSACS+1"
^XMB(3.9,95,2,757,0)="""RTN"",""PSAPROC6"",19,0)"
^XMB(3.9,95,2,758,0)=" I PSACS,PSALNCNT=PSACS D"
^XMB(3.9,95,2,759,0)="""RTN"",""PSAPROC6"",20,0)"
^XMB(3.9,95,2,760,0)=" .S $P(^XTMP(""PSAPV"",PSACTRL,""IN""),""^"",10)=""ALL CS"",$P(^(""IN""),""^"",9)=""CS"" W !,""All drugs on the invoice are marked as a controlled substance."""
^XMB(3.9,95,2,761,0)="""RTN"",""PSAPROC6"",21,0)"
^XMB(3.9,95,2,762,0)=" .D:$P($G(^PSD(58.8,+$P(^XTMP(""PSAPV"",PSACTRL,""IN""),""^"",12),0)),""^"",2)'=""M"" MASTER^PSAPROC9"
^XMB(3.9,95,2,763,0)="""RTN"",""PSAPROC6"",22,0)"
^XMB(3.9,95,2,764,0)=" E  S $P(^XTMP(""PSAPV"",PSACTRL,""IN""),""^"",10)="""""
^XMB(3.9,95,2,765,0)="""RTN"",""PSAPROC6"",23,0)"
^XMB(3.9,95,2,766,0)=" I PSACS S $P(^XTMP(""PSAPV"",PSACTRL,""IN""),""^"",9)=""CS"""
^XMB(3.9,95,2,767,0)="""RTN"",""PSAPROC6"",24,0)"
^XMB(3.9,95,2,768,0)=" I +PSALNCNT,PSALNCNT=PSALINES D CHG D END^PSAPROC Q"
^XMB(3.9,95,2,769,0)="""RTN"",""PSAPROC6"",25,0)"
^XMB(3.9,95,2,770,0)=" E  W !!,""** The invoice has not been placed in a Processed status!"""
^XMB(3.9,95,2,771,0)="""RTN"",""PSAPROC6"",26,0)"
^XMB(3.9,95,2,772,0)=" D END^PSAPROC"
^XMB(3.9,95,2,773,0)="""RTN"",""PSAPROC6"",27,0)"
^XMB(3.9,95,2,774,0)=" Q"
^XMB(3.9,95,2,775,0)="""RTN"",""PSAPROC6"",28,0)"
^XMB(3.9,95,2,776,0)=" ;"
^XMB(3.9,95,2,777,0)="""RTN"",""PSAPROC6"",29,0)"
^XMB(3.9,95,2,778,0)="CHG ;Asks if invoice's status should be changed to verified. If so, status"
^XMB(3.9,95,2,779,0)="""RTN"",""PSAPROC6"",30,0)"
^XMB(3.9,95,2,780,0)=" ;is changed & new drugs to location is listed."
^XMB(3.9,95,2,781,0)="""RTN"",""PSAPROC6"",31,0)"
^XMB(3.9,95,2,782,0)=" W ! S DIR(0)=""Y"",DIR(""A"")=""Do you want to change the invoice's status to Processed"",DIR(""?"",1)=""Enter YES to change the invoice's status to Processed."",DIR(""?"")=""Enter NO to keep the invoice's status as Uploaded."""
^XMB(3.9,95,2,783,0)="""RTN"",""PSAPROC6"",32,0)"
^XMB(3.9,95,2,784,0)=" S DIR(""??"")=""^D CHGYN^PSAPROC6"" D ^DIR K DIR"
^XMB(3.9,95,2,785,0)="""RTN"",""PSAPROC6"",33,0)"
^XMB(3.9,95,2,786,0)=" I 'Y!($G(DIRUT)) S PSACHG=0,$P(^XTMP(""PSAPV"",PSACTRL,""IN""),""^"",8)="""" W !!,""** The invoice's status has not been changed to Processed."" Q"
^XMB(3.9,95,2,787,0)="""RTN"",""PSAPROC6"",34,0)"
^XMB(3.9,95,2,788,0)=" S PSACHG=+Y,$P(^XTMP(""PSAPV"",PSACTRL,""IN""),""^"",8)=""P"""
^XMB(3.9,95,2,789,0)="""RTN"",""PSAPROC6"",35,0)"
^XMB(3.9,95,2,790,0)=" K PSAERR(PSAMENU) ;*50 rid select (1-0)"
^XMB(3.9,95,2,791,0)="""RTN"",""PSAPROC6"",36,0)"
^XMB(3.9,95,2,792,0)=" W !!,""The invoice status has been changed to Processed!"""
^XMB(3.9,95,2,793,0)="""RTN"",""PSAPROC6"",37,0)"
^XMB(3.9,95,2,794,0)=" ;"
^XMB(3.9,95,2,795,0)="""RTN"",""PSAPROC6"",38,0)"
^XMB(3.9,95,2,796,0)=" ;PSA*3*21 (1/3/01 - file data in 58.811)"
^XMB(3.9,95,2,797,0)="""RTN"",""PSAPROC6"",39,0)"
^XMB(3.9,95,2,798,0)=" D ^PSAPROC7"
^XMB(3.9,95,2,799,0)="""RTN"",""PSAPROC6"",40,0)"
^XMB(3.9,95,2,800,0)=" ;"
^XMB(3.9,95,2,801,0)="""RTN"",""PSAPROC6"",41,0)"
^XMB(3.9,95,2,802,0)=" Q"
^XMB(3.9,95,2,803,0)="""RTN"",""PSAPROC6"",42,0)"
^XMB(3.9,95,2,804,0)=" ;"
^XMB(3.9,95,2,805,0)="""RTN"",""PSAPROC6"",43,0)"
^XMB(3.9,95,2,806,0)="CORR S PSACTRL=$P(PSAERR(PSAMENU),""^"",3),(PSALNCNT,PSALINES,PSACS)=0"
^XMB(3.9,95,2,807,0)="""RTN"",""PSAPROC6"",44,0)"
^XMB(3.9,95,2,808,0)=" S PSAIN=^XTMP(""PSAPV"",PSACTRL,""IN""),PSARECD=$S(+$P(PSAIN,""^"",11):+$P(PSAIN,""^"",11),+$P(PSAIN,""^"",6):+$P(PSAIN,""^"",6),1:""""),PSALOC=+$P(PSAIN,""^"",7),PSAMV=+$P(PSAIN,""^"",12)"
^XMB(3.9,95,2,809,0)="""RTN"",""PSAPROC6"",45,0)"
^XMB(3.9,95,2,810,0)=" D HDR,RECD^PSAPROC3 Q:PSAOUT"
^XMB(3.9,95,2,811,0)="""RTN"",""PSAPROC6"",46,0)"
^XMB(3.9,95,2,812,0)="LOC I $P(PSAIN,""^"",9)=""CS"" W !!,""MASTER VAULT: ""_$P($G(^PSD(58.8,PSAMV,0)),""^"") D MV Q:PSAOUT"
^XMB(3.9,95,2,813,0)="""RTN"",""PSAPROC6"",47,0)"
^XMB(3.9,95,2,814,0)=" I $P(PSAIN,""^"",10)="""" D  Q:PSAOUT"
^XMB(3.9,95,2,815,0)="""RTN"",""PSAPROC6"",48,0)"
^XMB(3.9,95,2,816,0)=" .;OIFO BAY PINES;TEH;PATCH PSA*3.0*34"
^XMB(3.9,95,2,817,0)="""RTN"",""PSAPROC6"",49,0)"
^XMB(3.9,95,2,818,0)=" .D SITES^PSAUTL1 S PSALOCN=$S($D(^PSD(58.8,PSALOC,0)):$P($G(^PSD(58.8,PSALOC,0)),""^""),1:""UNKNOWN"")_PSACOMB"
^XMB(3.9,95,2,819,0)="""RTN"",""PSAPROC6"",50,0)"
^XMB(3.9,95,2,820,0)=" .W !!,""PHARMACY LOCATION: """
^XMB(3.9,95,2,821,0)="""RTN"",""PSAPROC6"",51,0)"
^XMB(3.9,95,2,822,0)=" .W:$L(PSALOCN)>76 !,$P(PSALOCN,""(IP)"",1)_""(IP)"",!?17,$P(PSALOCN,""(IP)"",2) W:$L(PSALOCN)<77 !,PSALOCN D PHARM"
^XMB(3.9,95,2,823,0)="""RTN"",""PSAPROC6"",52,0)"
^XMB(3.9,95,2,824,0)="LINES S PSADONE=0 F  W !!,""Line Item Numbers: "" D  Q:PSAOUT!(PSADONE)"
^XMB(3.9,95,2,825,0)="""RTN"",""PSAPROC6"",53,0)"
^XMB(3.9,95,2,826,0)=" .S PSALINE=0 S PSALINE=$O(^XTMP(""PSAPV"",PSACTRL,""IT"",PSALINE)) Q:'PSALINE  W ?19,PSALINE"
^XMB(3.9,95,2,827,0)="""RTN"",""PSAPROC6"",54,0)"
^XMB(3.9,95,2,828,0)=" .F  S PSALINE=$O(^XTMP(""PSAPV"",PSACTRL,""IT"",PSALINE)) Q:'PSALINE  D"
^XMB(3.9,95,2,829,0)="""RTN"",""PSAPROC6"",55,0)"
^XMB(3.9,95,2,830,0)=" ..I $X+$L(PSALINE)+2>79 W !,?19,PSALINE Q"
^XMB(3.9,95,2,831,0)="""RTN"",""PSAPROC6"",56,0)"
^XMB(3.9,95,2,832,0)=" ..W "",""_PSALINE"
^XMB(3.9,95,2,833,0)="""RTN"",""PSAPROC6"",57,0)"
^XMB(3.9,95,2,834,0)=" .W ! S DIR(0)=""LO"",DIR(""A"")=""Select Line Item Number"",DIR(""?"")=""Enter the line numbers to be edited"",DIR(""??"")=""^D LNHELP^PSAPROC6"""
^XMB(3.9,95,2,835,0)="""RTN"",""PSAPROC6"",58,0)"
^XMB(3.9,95,2,836,0)=" .D ^DIR K DIR I $G(DTOUT)!($G(DUOUT)) S PSAOUT=1 Q"
^XMB(3.9,95,2,837,0)="""RTN"",""PSAPROC6"",59,0)"
^XMB(3.9,95,2,838,0)=" .I X="""" S PSADONE=1 Q"
^XMB(3.9,95,2,839,0)="""RTN"",""PSAPROC6"",60,0)"
^XMB(3.9,95,2,840,0)=" .S PSALINE=X"
^XMB(3.9,95,2,841,0)="""RTN"",""PSAPROC6"",61,0)"
^XMB(3.9,95,2,842,0)=" .I '$D(^XTMP(""PSAPV"",PSACTRL,""IT"",PSALINE)) W !,""Invalid line number."" Q"
^XMB(3.9,95,2,843,0)="""RTN"",""PSAPROC6"",62,0)"
^XMB(3.9,95,2,844,0)=" .S PSADATA=^XTMP(""PSAPV"",PSACTRL,""IT"",PSALINE)"
^XMB(3.9,95,2,845,0)="""RTN"",""PSAPROC6"",63,0)"
^XMB(3.9,95,2,846,0)=" .S PSAIEN=$S(+$P(PSADATA,""^"",15):+$P(PSADATA,""^"",15),1:+$P(PSADATA,""^"",6))"
^XMB(3.9,95,2,847,0)="""RTN"",""PSAPROC6"",64,0)"
^XMB(3.9,95,2,848,0)=" .S PSANDC=$P($P(PSADATA,""^"",4),""~""),PSAVSN=$P($P(PSADATA,""^"",5),""~""),PSASUB=+$P(PSADATA,""^"",7),PSASUP=0"
^XMB(3.9,95,2,849,0)="""RTN"",""PSAPROC6"",65,0)"
^XMB(3.9,95,2,850,0)=" .S PSALOC=$S($P(PSADATA,""^"",19)=""CS"":+$P(PSAIN,""^"",12),1:+$P(PSAIN,""^"",7))"
^XMB(3.9,95,2,851,0)="""RTN"",""PSAPROC6"",66,0)"
^XMB(3.9,95,2,852,0)=" .D EDITDISP^PSAUTL1 W !,PSASLN,!"
^XMB(3.9,95,2,853,0)="""RTN"",""PSAPROC6"",67,0)"
^XMB(3.9,95,2,854,0)=" .D EDITITEM ;*50 ready for patch *54 make an entry point"
^XMB(3.9,95,2,855,0)="""RTN"",""PSAPROC6"",68,0)"
^XMB(3.9,95,2,856,0)=" Q"
^XMB(3.9,95,2,857,0)="""RTN"",""PSAPROC6"",69,0)"
^XMB(3.9,95,2,858,0)="EDITITEM        ;perform edit and checks on an item *50 to be ready for *54"
^XMB(3.9,95,2,859,0)="""RTN"",""PSAPROC6"",70,0)"
^XMB(3.9,95,2,860,0)=" D"
^XMB(3.9,95,2,861,0)="""RTN"",""PSAPROC6"",71,0)"
^XMB(3.9,95,2,862,0)=" .W ""1. Drug"",!,""2. Quantity Received"",!,""3. Order Unit"",!,""4. Dispense Units per Order Unit"" S PSACHO=4"
^XMB(3.9,95,2,863,0)="""RTN"",""PSAPROC6"",72,0)"
^XMB(3.9,95,2,864,0)=" .I +$P($G(^PSD(58.8,PSALOC,0)),""^"",14) W !,""5. Stock Level"",!,""6. Reorder Level"" S PSACHO=6"
^XMB(3.9,95,2,865,0)="""RTN"",""PSAPROC6"",73,0)"
^XMB(3.9,95,2,866,0)=" .W ! S DIR(0)=""LO^1:""_PSACHO,DIR(""A"")=""Edit fields"",DIR(""?"")=""Enter the number(s) of the data to be edited"",DIR(""??"")=""^D DQOR^PSAPROC6"""
^XMB(3.9,95,2,867,0)="""RTN"",""PSAPROC6"",74,0)"
^XMB(3.9,95,2,868,0)=" .D ^DIR K DIR I $G(DTOUT)!($G(DUOUT)) S PSAOUT=1 Q"
^XMB(3.9,95,2,869,0)="""RTN"",""PSAPROC6"",75,0)"
^XMB(3.9,95,2,870,0)=" .Q:Y=""""  S PSAFLDS=Y,PSADU=0 D EDITDISP^PSAUTL1 W !,PSASLN"
^XMB(3.9,95,2,871,0)="""RTN"",""PSAPROC6"",76,0)"
^XMB(3.9,95,2,872,0)="FIELDS .F PSAPCF=1:1 S PSAFLD=$P(PSAFLDS,"","",PSAPCF) Q:'PSAFLD!(PSAOUT)  D"
^XMB(3.9,95,2,873,0)="""RTN"",""PSAPROC6"",77,0)"
^XMB(3.9,95,2,874,0)=" ..I PSAFLD=1 D ASKDRUG^PSANDF Q"
^XMB(3.9,95,2,875,0)="""RTN"",""PSAPROC6"",78,0)"
^XMB(3.9,95,2,876,0)=" ..I PSAFLD=2 D QTY^PSAPROC3 Q"
^XMB(3.9,95,2,877,0)="""RTN"",""PSAPROC6"",79,0)"
^XMB(3.9,95,2,878,0)=" ..I PSAFLD=3 D GETOU^PSAPROC3 Q"
^XMB(3.9,95,2,879,0)="""RTN"",""PSAPROC6"",80,0)"
^XMB(3.9,95,2,880,0)=" ..I PSAFLD=4,PSAIEN D:$P($G(^PSDRUG(PSAIEN,660)),""^"",8)="""" DU^PSAPROC8 D DUOU^PSAPROC3 Q"
^XMB(3.9,95,2,881,0)="""RTN"",""PSAPROC6"",81,0)"
^XMB(3.9,95,2,882,0)=" ..I PSAFLD=5 D STOCK^PSAPROC8 Q"
^XMB(3.9,95,2,883,0)="""RTN"",""PSAPROC6"",82,0)"
^XMB(3.9,95,2,884,0)=" ..I PSAFLD=6 D REORDER^PSAPROC8"
^XMB(3.9,95,2,885,0)="""RTN"",""PSAPROC6"",83,0)"
^XMB(3.9,95,2,886,0)=" .D:'PSAOUT PROCESS"
^XMB(3.9,95,2,887,0)="""RTN"",""PSAPROC6"",84,0)"
^XMB(3.9,95,2,888,0)=" Q"
^XMB(3.9,95,2,889,0)="""RTN"",""PSAPROC6"",85,0)"
^XMB(3.9,95,2,890,0)=" ;"
^XMB(3.9,95,2,891,0)="""RTN"",""PSAPROC6"",86,0)"
^XMB(3.9,95,2,892,0)="PROCESS ;Checks for & prompts for missing data."
^XMB(3.9,95,2,893,0)="""RTN"",""PSAPROC6"",87,0)"
^XMB(3.9,95,2,894,0)=" Q:$D(^XTMP(""PSAPV"",PSACTRL,""IT"",PSALINE,""SUP""))"
^XMB(3.9,95,2,895,0)="""RTN"",""PSAPROC6"",88,0)"
^XMB(3.9,95,2,896,0)=" S PSADATA=^XTMP(""PSAPV"",PSACTRL,""IT"",PSALINE)"
^XMB(3.9,95,2,897,0)="""RTN"",""PSAPROC6"",89,0)"
^XMB(3.9,95,2,898,0)=" S PSAIEN=$S(+$P(PSADATA,""^"",15):+$P(PSADATA,""^"",15),+$P(PSADATA,""^"",6):+$P(PSADATA,""^"",6),1:0),PSASUB=+$P(PSADATA,""^"",7)"
^XMB(3.9,95,2,899,0)="""RTN"",""PSAPROC6"",90,0)"
^XMB(3.9,95,2,900,0)=" ;If no order unit, store it."
^XMB(3.9,95,2,901,0)="""RTN"",""PSAPROC6"",91,0)"
^XMB(3.9,95,2,902,0)=" I '+$P($P(PSADATA,""^"",2),""~"",2),'$P(PSADATA,""^"",12) D  Q:PSAOUT"
^XMB(3.9,95,2,903,0)="""RTN"",""PSAPROC6"",92,0)"
^XMB(3.9,95,2,904,0)=" .I PSAIEN,PSASUB,'$P($G(^PSDRUG(PSAIEN,1,PSASUB,0)),""^"",5) D GETOU^PSAPROC3 Q"
^XMB(3.9,95,2,905,0)="""RTN"",""PSAPROC6"",93,0)"
^XMB(3.9,95,2,906,0)=" .I PSAIEN,'PSASUB D GETOU^PSAPROC3"
^XMB(3.9,95,2,907,0)="""RTN"",""PSAPROC6"",94,0)"
^XMB(3.9,95,2,908,0)=" ;If synonym & doesn't have disp units/order unit, store it 50."
^XMB(3.9,95,2,909,0)="""RTN"",""PSAPROC6"",95,0)"
^XMB(3.9,95,2,910,0)=" I PSAIEN,PSASUB,'+$P($G(^PSDRUG(PSAIEN,1,PSASUB,0)),""^"",7),'+$P(PSADATA,""^"",20) S PSADU=0 D DUOU^PSAPROC8 Q:PSAOUT"
^XMB(3.9,95,2,911,0)="""RTN"",""PSAPROC6"",96,0)"
^XMB(3.9,95,2,912,0)=" ;If no synonym & disp units/order unit, store it XTMP."
^XMB(3.9,95,2,913,0)="""RTN"",""PSAPROC6"",97,0)"
^XMB(3.9,95,2,914,0)=" I PSAIEN,'PSASUB,'$P(PSADATA,""^"",20) D DUOU^PSAPROC3 Q:PSAOUT"
^XMB(3.9,95,2,915,0)="""RTN"",""PSAPROC6"",98,0)"
^XMB(3.9,95,2,916,0)=" I '+$P(PSADATA,""^"",3) D PRICE^PSAPROC3 Q:PSAOUT"
^XMB(3.9,95,2,917,0)="""RTN"",""PSAPROC6"",99,0)"
^XMB(3.9,95,2,918,0)=" ;If not CS & maintains stock, prompt for stock & reorder levels"
^XMB(3.9,95,2,919,0)="""RTN"",""PSAPROC6"",100,0)"
^XMB(3.9,95,2,920,0)=" I $P(PSADATA,""^"",19)'=""CS"",+$P(PSAIN,""^"",7),+$P($G(^PSD(58.8,+$P(PSAIN,""^"",7),0)),""^"",14) D"
^XMB(3.9,95,2,921,0)="""RTN"",""PSAPROC6"",101,0)"
^XMB(3.9,95,2,922,0)=" .I '+$P($G(^PSD(58.8,+$P(PSAIN,""^"",7),1,PSAIEN,0)),""^"",3),'+$P(PSADATA,""^"",27) S PSALOC=$P(PSAIN,""^"",7) D STOCK^PSAPROC8 Q:PSAOUT"
^XMB(3.9,95,2,923,0)="""RTN"",""PSAPROC6"",102,0)"
^XMB(3.9,95,2,924,0)=" .I '+$P($G(^PSD(58.8,+$P(PSAIN,""^"",7),1,PSAIEN,0)),""^"",5),'+$P(PSADATA,""^"",21) S PSALOC=$P(PSAIN,""^"",7) D REORDER^PSAPROC8 Q:PSAOUT"
^XMB(3.9,95,2,925,0)="""RTN"",""PSAPROC6"",103,0)"
^XMB(3.9,95,2,926,0)=" ;If CS & maintains stock, prompt for stock & reorder level"
^XMB(3.9,95,2,927,0)="""RTN"",""PSAPROC6"",104,0)"
^XMB(3.9,95,2,928,0)=" I $P(PSADATA,""^"",19)=""CS"",+$P(PSAIN,""^"",12),+$P($G(^PSD(58.8,+$P(PSAIN,""^"",12),0)),""^"",14) D"
^XMB(3.9,95,2,929,0)="""RTN"",""PSAPROC6"",105,0)"
^XMB(3.9,95,2,930,0)=" .I '+$P($G(^PSD(58.8,+$P(PSAIN,""^"",12),1,PSAIEN,0)),""^"",3),'+$P(PSADATA,""^"",27) S PSALOC=$P(PSAIN,""^"",12) D STOCK^PSAPROC8 Q:PSAOUT"
^XMB(3.9,95,2,931,0)="""RTN"",""PSAPROC6"",106,0)"
^XMB(3.9,95,2,932,0)=" .I '+$P($G(^PSD(58.8,+$P(PSAIN,""^"",12),1,PSAIEN,0)),""^"",5),'+$P(PSADATA,""^"",21) S PSALOC=$P(PSAIN,""^"",12) D REORDER^PSAPROC8 Q:PSAOUT"
^XMB(3.9,95,2,933,0)="""RTN"",""PSAPROC6"",107,0)"
^XMB(3.9,95,2,934,0)=" Q:PSAOUT  D CHECK^PSANDF Q:PSAOUT  D SETLINE^PSAPROC3"
^XMB(3.9,95,2,935,0)="""RTN"",""PSAPROC6"",108,0)"
^XMB(3.9,95,2,936,0)=" Q"
^XMB(3.9,95,2,937,0)="""RTN"",""PSAPROC6"",109,0)"
^XMB(3.9,95,2,938,0)=" ;"
^XMB(3.9,95,2,939,0)="""RTN"",""PSAPROC6"",110,0)"
^XMB(3.9,95,2,940,0)="MV ;Assigns master vault"
^XMB(3.9,95,2,941,0)="""RTN"",""PSAPROC6"",111,0)"
^XMB(3.9,95,2,942,0)=" S DIC(""A"")=""Select Master Vault: "",DIC=""^PSD(58.8,"",DIC(0)=""QAEMZ"" S:+PSAMV DIC(""B"")=$P($G(^PSD(58.8,+PSAMV,0)),""^"")"
^XMB(3.9,95,2,943,0)="""RTN"",""PSAPROC6"",112,0)"
^XMB(3.9,95,2,944,0)=" S DIC(""S"")=""I $D(^PSD(58.8,""""ADISP"""",""""M"""",+Y)),'+$G(^PSD(58.8,+Y,""""I""""))!(+$G(^PSD(58.8,+Y,""""I""""))&(+$G(^PSD(58.8,+Y,""""I""""))'<DT))"""
^XMB(3.9,95,2,945,0)="""RTN"",""PSAPROC6"",113,0)"
^XMB(3.9,95,2,946,0)=" D ^DIC K DIC I $G(DTOUT)!($G(DUOUT))!(Y<0) S PSAOUT=1 Q"
^XMB(3.9,95,2,947,0)="""RTN"",""PSAPROC6"",114,0)"
^XMB(3.9,95,2,948,0)=" S PSAMV=+Y,$P(^XTMP(""PSAPV"",PSACTRL,""IN""),""^"",12)=+Y,PSAIN=^XTMP(""PSAPV"",PSACTRL,""IN"")"
^XMB(3.9,95,2,949,0)="""RTN"",""PSAPROC6"",115,0)"
^XMB(3.9,95,2,950,0)=" Q"
^XMB(3.9,95,2,951,0)="""RTN"",""PSAPROC6"",116,0)"
^XMB(3.9,95,2,952,0)=" ;"
^XMB(3.9,95,2,953,0)="""RTN"",""PSAPROC6"",117,0)"
^XMB(3.9,95,2,954,0)="PHARM ;Assigns pharmacy location"
^XMB(3.9,95,2,955,0)="""RTN"",""PSAPROC6"",118,0)"
^XMB(3.9,95,2,956,0)=" ;S DIC(""A"")=""Select Pharmacy Location: "",DIC=""^PSD(58.8,"",DIC(0)=""QAEMZ"" S:+PSALOC DIC(""B"")=$P($G(^PSD(58.8,+PSALOC,0)),""^"")"
^XMB(3.9,95,2,957,0)="""RTN"",""PSAPROC6"",119,0)"
^XMB(3.9,95,2,958,0)=" ;S DIC(""S"")=""I $D(^PSD(58.8,""""ADISP"""",""""P"""",+Y)),'$G(^PSD(58.8,+Y,""""I""""))!(+$G(^PSD(58.8,+Y,""""I""""))&(+$G(^PSD(58.8,+Y,""""I""""))'<DT))"""
^XMB(3.9,95,2,959,0)="""RTN"",""PSAPROC6"",120,0)"
^XMB(3.9,95,2,960,0)=" ;D ^DIC K DIC I $G(DTOUT)!($G(DUOUT))!(Y<0) S PSAOUT=1 Q"
^XMB(3.9,95,2,961,0)="""RTN"",""PSAPROC6"",121,0)"
^XMB(3.9,95,2,962,0)=" ;S PSALOC=+Y,$P(^XTMP(""PSAPV"",PSACTRL,""IN""),""^"",7)=+Y,PSAIN=^XTMP(""PSAPV"",PSACTRL,""IN"")"
^XMB(3.9,95,2,963,0)="""RTN"",""PSAPROC6"",122,0)"
^XMB(3.9,95,2,964,0)=" ;Dave Blocker  (PSA*3*21)"
^XMB(3.9,95,2,965,0)="""RTN"",""PSAPROC6"",123,0)"
^XMB(3.9,95,2,966,0)=" D ^PSAUTL5 Q:$G(PSALOC)'>0  S $P(^XTMP(""PSAPV"",PSACTRL,""IN""),""^"",7)=+PSALOC,PSAIN=^XTMP(""PSAPV"",PSACTRL,""IN"")"
^XMB(3.9,95,2,967,0)="""RTN"",""PSAPROC6"",124,0)"
^XMB(3.9,95,2,968,0)=" ;Eop"
^XMB(3.9,95,2,969,0)="""RTN"",""PSAPROC6"",125,0)"
^XMB(3.9,95,2,970,0)=" Q"
^XMB(3.9,95,2,971,0)="""RTN"",""PSAPROC6"",126,0)"
^XMB(3.9,95,2,972,0)=" ;"
^XMB(3.9,95,2,973,0)="""RTN"",""PSAPROC6"",127,0)"
^XMB(3.9,95,2,974,0)="SUPPLY ;Asks if all items are supply items. If so, invoice is deleted from"
^XMB(3.9,95,2,975,0)="""RTN"",""PSAPROC6"",128,0)"
^XMB(3.9,95,2,976,0)=" ;^XTMP global. If not, invoice is added to list of invoices to be edited."
^XMB(3.9,95,2,977,0)="""RTN"",""PSAPROC6"",129,0)"
^XMB(3.9,95,2,978,0)=" W ! S DIR(0)=""Y"",DIR(""A"")=""Are all the items on the invoice supply items"",DIR(""B"")=""N"""
^XMB(3.9,95,2,979,0)="""RTN"",""PSAPROC6"",130,0)"
^XMB(3.9,95,2,980,0)=" S DIR(""?"",1)=""Enter YES if all line items are not drugs in the DRUG file."",DIR(""?"")=""Enter NO if there is at least one line item that is in the DRUG file."""
^XMB(3.9,95,2,981,0)="""RTN"",""PSAPROC6"",131,0)"
^XMB(3.9,95,2,982,0)=" S DIR(""??"")=""^D ALLSUP^PSAPROC6"" D ^DIR K DIR I $G(DIRUT) S PSAOUT=1 Q"
^XMB(3.9,95,2,983,0)="""RTN"",""PSAPROC6"",132,0)"
^XMB(3.9,95,2,984,0)=" G:'Y NO"
^XMB(3.9,95,2,985,0)="""RTN"",""PSAPROC6"",133,0)"
^XMB(3.9,95,2,986,0)=" W ! S DIR(0)=""Y"",DIR(""A"")=""Are you sure"",DIR(""B"")=""Y"",DIR(""?"",1)=""Enter YES if all the line items on the invoice are supply items."",DIR(""?"")=""Enter NO if there is at least one item on the invoice that is not a supply."""
^XMB(3.9,95,2,987,0)="""RTN"",""PSAPROC6"",134,0)"
^XMB(3.9,95,2,988,0)=" S DIR(""??"")=""^D ALLSUP^PSAPROC6"" D ^DIR K DIR I $G(DIRUT) S PSAOUT=1 Q"
^XMB(3.9,95,2,989,0)="""RTN"",""PSAPROC6"",135,0)"
^XMB(3.9,95,2,990,0)="NO I 'Y S PSACNTER=PSACNTER+1,PSAERR(PSACNTER)=PSAOK(PSA) K PSAOK(PSA) Q"
^XMB(3.9,95,2,991,0)="""RTN"",""PSAPROC6"",136,0)"
^XMB(3.9,95,2,992,0)=" K PSAOK(PSA) S $P(^XTMP(""PSAPV"",PSACTRL,""IN""),""^"",8)=""P"",PSASUP=1,PSALINE=0"
^XMB(3.9,95,2,993,0)="""RTN"",""PSAPROC6"",137,0)"
^XMB(3.9,95,2,994,0)=" F  S PSALINE=$O(^XTMP(""PSAPV"",PSACTRL,""IT"",PSALINE)) Q:'PSALINE  D"
^XMB(3.9,95,2,995,0)="""RTN"",""PSAPROC6"",138,0)"
^XMB(3.9,95,2,996,0)=" .S ^XTMP(""PSAPV"",PSACTRL,""IT"",PSALINE,""SUP"")=DUZ_""^""_DT_""^""_""SUPPLY ITEM"",$P(^XTMP(""PSAPV"",PSACTRL,""IT"",PSALINE),""^"",18)=""P"""
^XMB(3.9,95,2,997,0)="""RTN"",""PSAPROC6"",139,0)"
^XMB(3.9,95,2,998,0)=" Q"
^XMB(3.9,95,2,999,0)="""RTN"",""PSAPROC6"",140,0)"
^XMB(3.9,95,2,1000,0)=" ;"
^XMB(3.9,95,2,1001,0)="""RTN"",""PSAPROC6"",141,0)"
^XMB(3.9,95,2,1002,0)="HDR ;Screen header"
^XMB(3.9,95,2,1003,0)="""RTN"",""PSAPROC6"",142,0)"
^XMB(3.9,95,2,1004,0)=" W @IOF,!?26,""<<< EDIT INVOICE SCREEN >>>"",!,""Order#: ""_$P(PSAIN,""^"",4)_""  Invoice#: ""_$P(PSAIN,""^"",2)_""  Invoice Date: ""_$$FMTE^XLFDT(+PSAIN),!,PSASLN"
^XMB(3.9,95,2,1005,0)="""RTN"",""PSAPROC6"",143,0)"
^XMB(3.9,95,2,1006,0)=" Q"
^XMB(3.9,95,2,1007,0)="""RTN"",""PSAPROC6"",144,0)"
^XMB(3.9,95,2,1008,0)=" ;"
^XMB(3.9,95,2,1009,0)="""RTN"",""PSAPROC6"",145,0)"
^XMB(3.9,95,2,1010,0)="CHGYN ;Extended help - 'Do you want to change the invoice's status to Processed'"
^XMB(3.9,95,2,1011,0)="""RTN"",""PSAPROC6"",146,0)"
^XMB(3.9,95,2,1012,0)=" W !?5,""Enter YES if the invoice is completely correct. You will not be able"",!?5,""to edit it again."""
^XMB(3.9,95,2,1013,0)="""RTN"",""PSAPROC6"",147,0)"
^XMB(3.9,95,2,1014,0)=" W !!?5,""Enter NO if you need to edit the invoice again. You can edit it again"",!?5,""by selecting the Process Orders option."""
^XMB(3.9,95,2,1015,0)="""RTN"",""PSAPROC6"",148,0)"
^XMB(3.9,95,2,1016,0)=" Q"
^XMB(3.9,95,2,1017,0)="""RTN"",""PSAPROC6"",149,0)"
^XMB(3.9,95,2,1018,0)="DQOR ;Extended help - 'Edit field'"
^XMB(3.9,95,2,1019,0)="""RTN"",""PSAPROC6"",150,0)"
^XMB(3.9,95,2,1020,0)=" W !?5,""Enter the number or range of numbers of the field you want to edit."""
^XMB(3.9,95,2,1021,0)="""RTN"",""PSAPROC6"",151,0)"
^XMB(3.9,95,2,1022,0)=" Q"
^XMB(3.9,95,2,1023,0)="""RTN"",""PSAPROC6"",152,0)"
^XMB(3.9,95,2,1024,0)="LNHELP ;Extended help - 'Line Number"""
^XMB(3.9,95,2,1025,0)="""RTN"",""PSAPROC6"",153,0)"
^XMB(3.9,95,2,1026,0)=" W !?5,""Enter the number of the item on the invoice you want to edit. You can"",!?5,""enter a line item number then edit that line item. The """"Line Number"""""",!?5,""prompt will be displayed again. You can keep entering and editing line"""
^XMB(3.9,95,2,1027,0)="""RTN"",""PSAPROC6"",154,0)"
^XMB(3.9,95,2,1028,0)=" W !?5,""items until you press the Return key at the """"Line Number"""" prompt."""
^XMB(3.9,95,2,1029,0)="""RTN"",""PSAPROC6"",155,0)"
^XMB(3.9,95,2,1030,0)=" Q"
^XMB(3.9,95,2,1031,0)="""RTN"",""PSAPROC6"",156,0)"
^XMB(3.9,95,2,1032,0)="ALLSUP ;Extended help - ""Are all the items on the invoice supply items"" &"
^XMB(3.9,95,2,1033,0)="""RTN"",""PSAPROC6"",157,0)"
^XMB(3.9,95,2,1034,0)=" ;""Are you sure?"""
^XMB(3.9,95,2,1035,0)="""RTN"",""PSAPROC6"",158,0)"
^XMB(3.9,95,2,1036,0)=" W !!?5,""Enter YES if none of the line items on the invoice are"",!?5,""in the DRUG file and will never be in the DRUG file."",!!?5,""Enter NO if there is at least one line item on the"",!?5,""invoice that is in the DRUG file."""
^XMB(3.9,95,2,1037,0)="""RTN"",""PSAPROC6"",159,0)"
^XMB(3.9,95,2,1038,0)=" Q"
^XMB(3.9,95,2,1039,0)="""VER"")"
^XMB(3.9,95,2,1040,0)="8.0^22.0"
^XMB(3.9,95,2,1041,0)="""BLD"",6552,6)"
^XMB(3.9,95,2,1042,0)="^42"
^XMB(3.9,95,2,1043,0)="$END KID PSA*3.0*50"
^XMB(3.9,95,6,0)="^3.911A^2^2"
^XMB(3.9,95,6,1,0)="POSTMASTER"
^XMB(3.9,95,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,95,6,"B","POSTMASTER",1)=""
^XMB(3.9,95,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,96,0)="PSA-3_SEQ-43_PAT-57.KID^.5^3061008.01574^^^^K"
^XMB(3.9,96,.6)="3061008"
^XMB(3.9,96,1,0)="^3.91A^2^2"
^XMB(3.9,96,1,1,0)=".5^0^3061008.01574^^^^^^^3061008.01574"
^XMB(3.9,96,1,2,0)="1^0^3061008.024232^^^^^^^3061008.024232"
^XMB(3.9,96,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,96,1,"C",.5,1)=""
^XMB(3.9,96,1,"C",1,2)=""
^XMB(3.9,96,2,0)="^^519^519^3061008"
^XMB(3.9,96,2,1,0)="$TXT Released PSA*3*57 SEQ #43"
^XMB(3.9,96,2,2,0)="Extracted from mail message"
^XMB(3.9,96,2,3,0)="$END TXT"
^XMB(3.9,96,2,4,0)="$KID PSA*3.0*57"
^XMB(3.9,96,2,5,0)="**INSTALL NAME**"
^XMB(3.9,96,2,6,0)="PSA*3.0*57"
^XMB(3.9,96,2,7,0)="""BLD"",6608,0)"
^XMB(3.9,96,2,8,0)="PSA*3.0*57^DRUG ACCOUNTABILITY^0^3060207^y"
^XMB(3.9,96,2,9,0)="""BLD"",6608,1,0)"
^XMB(3.9,96,2,10,0)="^^2^2^3060207^"
^XMB(3.9,96,2,11,0)="""BLD"",6608,1,1,0)"
^XMB(3.9,96,2,12,0)="This patch will correct the problem of the Post Verify e-mail"
^XMB(3.9,96,2,13,0)="""BLD"",6608,1,2,0)"
^XMB(3.9,96,2,14,0)="not sent when changes are made to the invoice."
^XMB(3.9,96,2,15,0)="""BLD"",6608,4,0)"
^XMB(3.9,96,2,16,0)="^9.64PA^^"
^XMB(3.9,96,2,17,0)="""BLD"",6608,""ABPKG"")"
^XMB(3.9,96,2,18,0)="n"
^XMB(3.9,96,2,19,0)="""BLD"",6608,""KRN"",0)"
^XMB(3.9,96,2,20,0)="^9.67PA^8989.52^19"
^XMB(3.9,96,2,21,0)="""BLD"",6608,""KRN"",.4,0)"
^XMB(3.9,96,2,22,0)=".4"
^XMB(3.9,96,2,23,0)="""BLD"",6608,""KRN"",.401,0)"
^XMB(3.9,96,2,24,0)=".401"
^XMB(3.9,96,2,25,0)="""BLD"",6608,""KRN"",.402,0)"
^XMB(3.9,96,2,26,0)=".402"
^XMB(3.9,96,2,27,0)="""BLD"",6608,""KRN"",.403,0)"
^XMB(3.9,96,2,28,0)=".403"
^XMB(3.9,96,2,29,0)="""BLD"",6608,""KRN"",.5,0)"
^XMB(3.9,96,2,30,0)=".5"
^XMB(3.9,96,2,31,0)="""BLD"",6608,""KRN"",.84,0)"
^XMB(3.9,96,2,32,0)=".84"
^XMB(3.9,96,2,33,0)="""BLD"",6608,""KRN"",3.6,0)"
^XMB(3.9,96,2,34,0)="3.6"
^XMB(3.9,96,2,35,0)="""BLD"",6608,""KRN"",3.8,0)"
^XMB(3.9,96,2,36,0)="3.8"
^XMB(3.9,96,2,37,0)="""BLD"",6608,""KRN"",9.2,0)"
^XMB(3.9,96,2,38,0)="9.2"
^XMB(3.9,96,2,39,0)="""BLD"",6608,""KRN"",9.8,0)"
^XMB(3.9,96,2,40,0)="9.8"
^XMB(3.9,96,2,41,0)="""BLD"",6608,""KRN"",9.8,""NM"",0)"
^XMB(3.9,96,2,42,0)="^9.68A^1^1"
^XMB(3.9,96,2,43,0)="""BLD"",6608,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,96,2,44,0)="PSAVER6^^0^B56721641"
^XMB(3.9,96,2,45,0)="""BLD"",6608,""KRN"",9.8,""NM"",""B"",""PSAVER6"",1)"
^XMB(3.9,96,2,46,0)=" "
^XMB(3.9,96,2,47,0)="""BLD"",6608,""KRN"",19,0)"
^XMB(3.9,96,2,48,0)="19"
^XMB(3.9,96,2,49,0)="""BLD"",6608,""KRN"",19.1,0)"
^XMB(3.9,96,2,50,0)="19.1"
^XMB(3.9,96,2,51,0)="""BLD"",6608,""KRN"",101,0)"
^XMB(3.9,96,2,52,0)="101"
^XMB(3.9,96,2,53,0)="""BLD"",6608,""KRN"",409.61,0)"
^XMB(3.9,96,2,54,0)="409.61"
^XMB(3.9,96,2,55,0)="""BLD"",6608,""KRN"",771,0)"
^XMB(3.9,96,2,56,0)="771"
^XMB(3.9,96,2,57,0)="""BLD"",6608,""KRN"",870,0)"
^XMB(3.9,96,2,58,0)="870"
^XMB(3.9,96,2,59,0)="""BLD"",6608,""KRN"",8989.51,0)"
^XMB(3.9,96,2,60,0)="8989.51"
^XMB(3.9,96,2,61,0)="""BLD"",6608,""KRN"",8989.52,0)"
^XMB(3.9,96,2,62,0)="8989.52"
^XMB(3.9,96,2,63,0)="""BLD"",6608,""KRN"",8994,0)"
^XMB(3.9,96,2,64,0)="8994"
^XMB(3.9,96,2,65,0)="""BLD"",6608,""KRN"",""B"",.4,.4)"
^XMB(3.9,96,2,66,0)=" "
^XMB(3.9,96,2,67,0)="""BLD"",6608,""KRN"",""B"",.401,.401)"
^XMB(3.9,96,2,68,0)=" "
^XMB(3.9,96,2,69,0)="""BLD"",6608,""KRN"",""B"",.402,.402)"
^XMB(3.9,96,2,70,0)=" "
^XMB(3.9,96,2,71,0)="""BLD"",6608,""KRN"",""B"",.403,.403)"
^XMB(3.9,96,2,72,0)=" "
^XMB(3.9,96,2,73,0)="""BLD"",6608,""KRN"",""B"",.5,.5)"
^XMB(3.9,96,2,74,0)=" "
^XMB(3.9,96,2,75,0)="""BLD"",6608,""KRN"",""B"",.84,.84)"
^XMB(3.9,96,2,76,0)=" "
^XMB(3.9,96,2,77,0)="""BLD"",6608,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,96,2,78,0)=" "
^XMB(3.9,96,2,79,0)="""BLD"",6608,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,96,2,80,0)=" "
^XMB(3.9,96,2,81,0)="""BLD"",6608,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,96,2,82,0)=" "
^XMB(3.9,96,2,83,0)="""BLD"",6608,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,96,2,84,0)=" "
^XMB(3.9,96,2,85,0)="""BLD"",6608,""KRN"",""B"",19,19)"
^XMB(3.9,96,2,86,0)=" "
^XMB(3.9,96,2,87,0)="""BLD"",6608,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,96,2,88,0)=" "
^XMB(3.9,96,2,89,0)="""BLD"",6608,""KRN"",""B"",101,101)"
^XMB(3.9,96,2,90,0)=" "
^XMB(3.9,96,2,91,0)="""BLD"",6608,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,96,2,92,0)=" "
^XMB(3.9,96,2,93,0)="""BLD"",6608,""KRN"",""B"",771,771)"
^XMB(3.9,96,2,94,0)=" "
^XMB(3.9,96,2,95,0)="""BLD"",6608,""KRN"",""B"",870,870)"
^XMB(3.9,96,2,96,0)=" "
^XMB(3.9,96,2,97,0)="""BLD"",6608,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,96,2,98,0)=" "
^XMB(3.9,96,2,99,0)="""BLD"",6608,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,96,2,100,0)=" "
^XMB(3.9,96,2,101,0)="""BLD"",6608,""KRN"",""B"",8994,8994)"
^XMB(3.9,96,2,102,0)=" "
^XMB(3.9,96,2,103,0)="""BLD"",6608,""QUES"",0)"
^XMB(3.9,96,2,104,0)="^9.62^^"
^XMB(3.9,96,2,105,0)="""BLD"",6608,""REQB"",0)"
^XMB(3.9,96,2,106,0)="^9.611^1^1"
^XMB(3.9,96,2,107,0)="""BLD"",6608,""REQB"",1,0)"
^XMB(3.9,96,2,108,0)="PSA*3.0*53^1"
^XMB(3.9,96,2,109,0)="""BLD"",6608,""REQB"",""B"",""PSA*3.0*53"",1)"
^XMB(3.9,96,2,110,0)=" "
^XMB(3.9,96,2,111,0)="""MBREQ"")"
^XMB(3.9,96,2,112,0)="0"
^XMB(3.9,96,2,113,0)="""PKG"",487,-1)"
^XMB(3.9,96,2,114,0)="1^1"
^XMB(3.9,96,2,115,0)="""PKG"",487,0)"
^XMB(3.9,96,2,116,0)="DRUG ACCOUNTABILITY^PSA^Drug Accountability Inventory and Tracking module."
^XMB(3.9,96,2,117,0)="""PKG"",487,20,0)"
^XMB(3.9,96,2,118,0)="^9.402P^^"
^XMB(3.9,96,2,119,0)="""PKG"",487,22,0)"
^XMB(3.9,96,2,120,0)="^9.49I^1^1"
^XMB(3.9,96,2,121,0)="""PKG"",487,22,1,0)"
^XMB(3.9,96,2,122,0)="3.0^2971024^2981028^66481"
^XMB(3.9,96,2,123,0)="""PKG"",487,22,1,""PAH"",1,0)"
^XMB(3.9,96,2,124,0)="57^3060207"
^XMB(3.9,96,2,125,0)="""PKG"",487,22,1,""PAH"",1,1,0)"
^XMB(3.9,96,2,126,0)="^^2^2^3060207"
^XMB(3.9,96,2,127,0)="""PKG"",487,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,96,2,128,0)="This patch will correct the problem of the Post Verify e-mail"
^XMB(3.9,96,2,129,0)="""PKG"",487,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,96,2,130,0)="not sent when changes are made to the invoice."
^XMB(3.9,96,2,131,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,96,2,132,0)="Y"
^XMB(3.9,96,2,133,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,96,2,134,0)="^D REP^XPDH"
^XMB(3.9,96,2,135,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,96,2,136,0)="Shall I write over your |FLAG| File"
^XMB(3.9,96,2,137,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,96,2,138,0)="YES"
^XMB(3.9,96,2,139,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,96,2,140,0)="D XPF1^XPDIQ"
^XMB(3.9,96,2,141,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,96,2,142,0)="Y"
^XMB(3.9,96,2,143,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,96,2,144,0)="^D DTA^XPDH"
^XMB(3.9,96,2,145,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,96,2,146,0)="Want my data |FLAG| yours"
^XMB(3.9,96,2,147,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,96,2,148,0)="YES"
^XMB(3.9,96,2,149,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,96,2,150,0)="D XPF2^XPDIQ"
^XMB(3.9,96,2,151,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,96,2,152,0)="YO"
^XMB(3.9,96,2,153,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,96,2,154,0)="^D INHIBIT^XPDH"
^XMB(3.9,96,2,155,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,96,2,156,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,96,2,157,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,96,2,158,0)="YES"
^XMB(3.9,96,2,159,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,96,2,160,0)="D XPI1^XPDIQ"
^XMB(3.9,96,2,161,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,96,2,162,0)="PO^VA(200,:EM"
^XMB(3.9,96,2,163,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,96,2,164,0)="^D MG^XPDH"
^XMB(3.9,96,2,165,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,96,2,166,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,96,2,167,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,96,2,168,0)=" "
^XMB(3.9,96,2,169,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,96,2,170,0)="D XPM1^XPDIQ"
^XMB(3.9,96,2,171,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,96,2,172,0)="Y"
^XMB(3.9,96,2,173,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,96,2,174,0)="^D MENU^XPDH"
^XMB(3.9,96,2,175,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,96,2,176,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,96,2,177,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,96,2,178,0)="YES"
^XMB(3.9,96,2,179,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,96,2,180,0)="D XPO1^XPDIQ"
^XMB(3.9,96,2,181,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,96,2,182,0)="Y"
^XMB(3.9,96,2,183,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,96,2,184,0)="^D OPT^XPDH"
^XMB(3.9,96,2,185,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,96,2,186,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,96,2,187,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,96,2,188,0)="YES"
^XMB(3.9,96,2,189,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,96,2,190,0)="D XPZ1^XPDIQ"
^XMB(3.9,96,2,191,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,96,2,192,0)="Y"
^XMB(3.9,96,2,193,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,96,2,194,0)="^D RTN^XPDH"
^XMB(3.9,96,2,195,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,96,2,196,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,96,2,197,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,96,2,198,0)="NO"
^XMB(3.9,96,2,199,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,96,2,200,0)="D XPZ2^XPDIQ"
^XMB(3.9,96,2,201,0)="""RTN"")"
^XMB(3.9,96,2,202,0)="1"
^XMB(3.9,96,2,203,0)="""RTN"",""PSAVER6"")"
^XMB(3.9,96,2,204,0)="0^1^B56721641^B55845889"
^XMB(3.9,96,2,205,0)="""RTN"",""PSAVER6"",1,0)"
^XMB(3.9,96,2,206,0)="PSAVER6 ;BIR/JMB-Verify Invoices - CONT'D ;10/3/97"
^XMB(3.9,96,2,207,0)="""RTN"",""PSAVER6"",2,0)"
^XMB(3.9,96,2,208,0)=" ;;3.0; DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**1,3,21,42,53,57**; 10/24/97"
^XMB(3.9,96,2,209,0)="""RTN"",""PSAVER6"",3,0)"
^XMB(3.9,96,2,210,0)=" ;Background Job:"
^XMB(3.9,96,2,211,0)="""RTN"",""PSAVER6"",4,0)"
^XMB(3.9,96,2,212,0)=" ;References to ^PSDRUG( are covered by IA #2095"
^XMB(3.9,96,2,213,0)="""RTN"",""PSAVER6"",5,0)"
^XMB(3.9,96,2,214,0)=" ;This routine increments pharmacy location and master vault balances"
^XMB(3.9,96,2,215,0)="""RTN"",""PSAVER6"",6,0)"
^XMB(3.9,96,2,216,0)=" ;in 58.8 after invoices have been verified."
^XMB(3.9,96,2,217,0)="""RTN"",""PSAVER6"",7,0)"
^XMB(3.9,96,2,218,0)=" ;"
^XMB(3.9,96,2,219,0)="""RTN"",""PSAVER6"",8,0)"
^XMB(3.9,96,2,220,0)="START ;|=> *42 add Post Verify variance report"
^XMB(3.9,96,2,221,0)="""RTN"",""PSAVER6"",9,0)"
^XMB(3.9,96,2,222,0)=" K ^TMP($J,""PSADD"")"
^XMB(3.9,96,2,223,0)="""RTN"",""PSAVER6"",10,0)"
^XMB(3.9,96,2,224,0)=" K DIC,DA,DR,DIE  ;|=> *52 MOVE POST VERIFY E-MAIL LOGIC FROM START+17"
^XMB(3.9,96,2,225,0)="""RTN"",""PSAVER6"",11,0)"
^XMB(3.9,96,2,226,0)=" S PSAIEN=0  F  S PSAIEN=+$O(PSAVBKG(PSAIEN)) Q:'PSAIEN  D"
^XMB(3.9,96,2,227,0)="""RTN"",""PSAVER6"",12,0)"
^XMB(3.9,96,2,228,0)=" .Q:'$D(^PSD(58.811,PSAIEN,0))"
^XMB(3.9,96,2,229,0)="""RTN"",""PSAVER6"",13,0)"
^XMB(3.9,96,2,230,0)=" .S PSAORD=$P(^PSD(58.811,PSAIEN,0),""^""),PSAVEND=$P(^(0),""^"",2),PSAIEN1=0"
^XMB(3.9,96,2,231,0)="""RTN"",""PSAVER6"",14,0)"
^XMB(3.9,96,2,232,0)=" .F  S PSAIEN1=+$O(PSAVBKG(PSAIEN,PSAIEN1)) Q:'PSAIEN1  D"
^XMB(3.9,96,2,233,0)="""RTN"",""PSAVER6"",15,0)"
^XMB(3.9,96,2,234,0)=" ..Q:'$D(^PSD(58.811,PSAIEN,1,PSAIEN1,0))"
^XMB(3.9,96,2,235,0)="""RTN"",""PSAVER6"",16,0)"
^XMB(3.9,96,2,236,0)=" ..D SCANDIF  ; *57 <=|"
^XMB(3.9,96,2,237,0)="""RTN"",""PSAVER6"",17,0)"
^XMB(3.9,96,2,238,0)=" S PSAIEN=0  F  S PSAIEN=+$O(PSAVBKG(PSAIEN)) Q:'PSAIEN  D"
^XMB(3.9,96,2,239,0)="""RTN"",""PSAVER6"",18,0)"
^XMB(3.9,96,2,240,0)=" .Q:'$D(^PSD(58.811,PSAIEN,0))"
^XMB(3.9,96,2,241,0)="""RTN"",""PSAVER6"",19,0)"
^XMB(3.9,96,2,242,0)=" .S PSAORD=$P(^PSD(58.811,PSAIEN,0),""^""),PSAVEND=$P(^(0),""^"",2),PSAIEN1=0"
^XMB(3.9,96,2,243,0)="""RTN"",""PSAVER6"",20,0)"
^XMB(3.9,96,2,244,0)=" .F  S PSAIEN1=+$O(PSAVBKG(PSAIEN,PSAIEN1)) Q:'PSAIEN1  D"
^XMB(3.9,96,2,245,0)="""RTN"",""PSAVER6"",21,0)"
^XMB(3.9,96,2,246,0)=" ..Q:'$D(^PSD(58.811,PSAIEN,1,PSAIEN1,0))"
^XMB(3.9,96,2,247,0)="""RTN"",""PSAVER6"",22,0)"
^XMB(3.9,96,2,248,0)=" ..S PSAIN=^PSD(58.811,PSAIEN,1,PSAIEN1,0)"
^XMB(3.9,96,2,249,0)="""RTN"",""PSAVER6"",23,0)"
^XMB(3.9,96,2,250,0)=" ..K DIC,DA,DR,DIE"
^XMB(3.9,96,2,251,0)="""RTN"",""PSAVER6"",24,0)"
^XMB(3.9,96,2,252,0)=" ..I +$P(PSAIN,""^"",13) K DA S DIE=""^PSD(58.811,""_PSAIEN_"",1,"",DA(1)=PSAIEN,DA=PSAIEN1,DR=""2////C"" D ^DIE K DIE,DA,DR Q"
^XMB(3.9,96,2,253,0)="""RTN"",""PSAVER6"",25,0)"
^XMB(3.9,96,2,254,0)=" ..S PSAINV=$P(PSAIN,""^""),PSAINVDT=$P(PSAIN,""^"",2),PSALINE=0"
^XMB(3.9,96,2,255,0)="""RTN"",""PSAVER6"",26,0)"
^XMB(3.9,96,2,256,0)=" ..F  S PSALINE=+$O(^PSD(58.811,PSAIEN,1,PSAIEN1,1,PSALINE)) Q:'PSALINE  D"
^XMB(3.9,96,2,257,0)="""RTN"",""PSAVER6"",27,0)"
^XMB(3.9,96,2,258,0)=" ...Q:'$D(^PSD(58.811,PSAIEN,1,PSAIEN1,1,PSALINE,0))"
^XMB(3.9,96,2,259,0)="""RTN"",""PSAVER6"",28,0)"
^XMB(3.9,96,2,260,0)=" ...S PSADATA=^PSD(58.811,PSAIEN,1,PSAIEN1,1,PSALINE,0) D GETDATA I 'PSASUP,'$D(PSA0QTY) D FILE ;PSA*3*42"
^XMB(3.9,96,2,261,0)="""RTN"",""PSAVER6"",29,0)"
^XMB(3.9,96,2,262,0)=" ..K DIC,DA,DR,DIE"
^XMB(3.9,96,2,263,0)="""RTN"",""PSAVER6"",30,0)"
^XMB(3.9,96,2,264,0)=" ..K DA S DIE=""^PSD(58.811,""_PSAIEN_"",1,"",DA(1)=PSAIEN,DA=PSAIEN1,DR=""2////C"" D ^DIE K DIE,DA,DR"
^XMB(3.9,96,2,265,0)="""RTN"",""PSAVER6"",31,0)"
^XMB(3.9,96,2,266,0)=" ;;*57 => START+17 THRU START+22 MOVED TO START+3 <=|"
^XMB(3.9,96,2,267,0)="""RTN"",""PSAVER6"",32,0)"
^XMB(3.9,96,2,268,0)=" ; *42 <=|"
^XMB(3.9,96,2,269,0)="""RTN"",""PSAVER6"",33,0)"
^XMB(3.9,96,2,270,0)="EXIT ;Kills variables"
^XMB(3.9,96,2,271,0)="""RTN"",""PSAVER6"",34,0)"
^XMB(3.9,96,2,272,0)=" K %,DA,DD,DIC,DIE,DINUM,DLAYGO,DO,PSA,PSAA,PSABAL,PSACBAL,PSACNT,PSACNT,PSACOD,PSACOST,PSACS,PSADASH,PSADATA,PSADJ,PSADJD,PSADJO,PSADJP,PSADJQ"
^XMB(3.9,96,2,273,0)="""RTN"",""PSAVER6"",35,0)"
^XMB(3.9,96,2,274,0)=" K PSADRG,PSADT,PSADUOU,PSADUQTY,PSADUREC,PSAIEN,PSAIEN1,PSAIN,PSAINV,PSAINVDT,PSALEN,PSALINE,PSALOC,PSAMSG,PSANDC,PSANODE,PSANPDU,PSANPOU"
^XMB(3.9,96,2,275,0)="""RTN"",""PSAVER6"",36,0)"
^XMB(3.9,96,2,276,0)=" K PSAODASH,PSAONDC,PSAORD,PSAOU,PSAPDU,PSAPOU,PSAQTY,PSAREORD,PSASET,PSASTOCK,PSASUP,PSAT,PSATDRG,PSATEMP,PSAVBKG,PSAVDUZ,PSAVEND,PSAVSN,X,XMDUZ,XMSUB,XMTEXT,XMY,XMZ,Y"
^XMB(3.9,96,2,277,0)="""RTN"",""PSAVER6"",37,0)"
^XMB(3.9,96,2,278,0)=" K PSA0QTY"
^XMB(3.9,96,2,279,0)="""RTN"",""PSAVER6"",38,0)"
^XMB(3.9,96,2,280,0)=" Q"
^XMB(3.9,96,2,281,0)="""RTN"",""PSAVER6"",39,0)"
^XMB(3.9,96,2,282,0)=" ;"
^XMB(3.9,96,2,283,0)="""RTN"",""PSAVER6"",40,0)"
^XMB(3.9,96,2,284,0)="GETDATA ;Gets invoice data to help file the data"
^XMB(3.9,96,2,285,0)="""RTN"",""PSAVER6"",41,0)"
^XMB(3.9,96,2,286,0)=" S PSAVDUZ=$P(PSADATA,""^"",9),PSASUP=0"
^XMB(3.9,96,2,287,0)="""RTN"",""PSAVER6"",42,0)"
^XMB(3.9,96,2,288,0)=" S PSADJ=+$O(^PSD(58.811,PSAIEN,1,PSAIEN1,1,PSALINE,1,""B"",""D"",0))"
^XMB(3.9,96,2,289,0)="""RTN"",""PSAVER6"",43,0)"
^XMB(3.9,96,2,290,0)=" I '$G(PSADJ) S PSADRG=$S(+$P(PSADATA,""^"",2):+$P(PSADATA,""^"",2),1:0) G CS"
^XMB(3.9,96,2,291,0)="""RTN"",""PSAVER6"",44,0)"
^XMB(3.9,96,2,292,0)=" I $G(PSADJ) D"
^XMB(3.9,96,2,293,0)="""RTN"",""PSAVER6"",45,0)"
^XMB(3.9,96,2,294,0)=" .S PSANODE=$G(^PSD(58.811,PSAIEN,1,PSAIEN1,1,PSALINE,1,PSADJ,0))"
^XMB(3.9,96,2,295,0)="""RTN"",""PSAVER6"",46,0)"
^XMB(3.9,96,2,296,0)=" .S PSADJD=$S($P(PSANODE,""^"",6)'="""":$P(PSANODE,""^"",6),1:$P(PSANODE,""^"",2))"
^XMB(3.9,96,2,297,0)="""RTN"",""PSAVER6"",47,0)"
^XMB(3.9,96,2,298,0)=" .I PSADJD'?1.N S PSASUP=1"
^XMB(3.9,96,2,299,0)="""RTN"",""PSAVER6"",48,0)"
^XMB(3.9,96,2,300,0)=" .S PSADRG=$S(PSADJ&('PSASUP):+PSADJD,PSADJ&(PSASUP):0,1:+$P(PSADATA,""^"",2))"
^XMB(3.9,96,2,301,0)="""RTN"",""PSAVER6"",49,0)"
^XMB(3.9,96,2,302,0)=" .I +PSADJD,$L(PSADJD)=+$L(PSADJD),$P($G(^PSDRUG(+PSADJD,0)),""^"")'="""" S PSADRG=+PSADJD Q"
^XMB(3.9,96,2,303,0)="""RTN"",""PSAVER6"",50,0)"
^XMB(3.9,96,2,304,0)=" .I +PSADJD,$L(PSADJD)=+$L(PSADJD),$P($G(^PSDRUG(+PSADJD,0)),""^"")="""" S (PSADJ,PSADRG)=0 Q"
^XMB(3.9,96,2,305,0)="""RTN"",""PSAVER6"",51,0)"
^XMB(3.9,96,2,306,0)="CS Q:PSASUP!('PSADRG)"
^XMB(3.9,96,2,307,0)="""RTN"",""PSAVER6"",52,0)"
^XMB(3.9,96,2,308,0)=" S PSACS=$S(+$P(PSADATA,""^"",10):1,1:0)"
^XMB(3.9,96,2,309,0)="""RTN"",""PSAVER6"",53,0)"
^XMB(3.9,96,2,310,0)=" S PSADJQ=0,PSADJ=+$O(^PSD(58.811,PSAIEN,1,PSAIEN1,1,PSALINE,1,""B"",""Q"",0))"
^XMB(3.9,96,2,311,0)="""RTN"",""PSAVER6"",54,0)"
^XMB(3.9,96,2,312,0)=" I $G(PSADJ) S PSANODE=$G(^PSD(58.811,PSAIEN,1,PSAIEN1,1,PSALINE,1,PSADJ,0)),PSADJQ=$S($P(PSANODE,""^"",6)'="""":+$P(PSANODE,""^"",6),1:$P(PSANODE,""^"",2))"
^XMB(3.9,96,2,313,0)="""RTN"",""PSAVER6"",55,0)"
^XMB(3.9,96,2,314,0)=" ;"
^XMB(3.9,96,2,315,0)="""RTN"",""PSAVER6"",56,0)"
^XMB(3.9,96,2,316,0)=" ;PSA*3*1  (DAVE B)"
^XMB(3.9,96,2,317,0)="""RTN"",""PSAVER6"",57,0)"
^XMB(3.9,96,2,318,0)=" S PSAQTY=$S(($G(PSADJQ)'=""""&(+PSADJ)):PSADJQ,1:+$P(PSADATA,""^"",3))"
^XMB(3.9,96,2,319,0)="""RTN"",""PSAVER6"",58,0)"
^XMB(3.9,96,2,320,0)=" S PSAOU=$S(+$P(PSADATA,""^"",4):+$P(PSADATA,""^"",4),1:"""")"
^XMB(3.9,96,2,321,0)="""RTN"",""PSAVER6"",59,0)"
^XMB(3.9,96,2,322,0)=" ;"
^XMB(3.9,96,2,323,0)="""RTN"",""PSAVER6"",60,0)"
^XMB(3.9,96,2,324,0)=" ;DAVE B (PSA*3*3)"
^XMB(3.9,96,2,325,0)="""RTN"",""PSAVER6"",61,0)"
^XMB(3.9,96,2,326,0)=" ;I +$P($P($G(^PSD(58.811,PSAIEN,1,PSAIEN1,1,PSALINE,2)),""^"",5),""~"",2) S PSAOU=$P($P($G(^(2)),""^"",5),""~"",2)"
^XMB(3.9,96,2,327,0)="""RTN"",""PSAVER6"",62,0)"
^XMB(3.9,96,2,328,0)=" ;"
^XMB(3.9,96,2,329,0)="""RTN"",""PSAVER6"",63,0)"
^XMB(3.9,96,2,330,0)=" S PSADJO=0,PSADJ=+$O(^PSD(58.811,PSAIEN,1,PSAIEN1,1,PSALINE,1,""B"",""O"",0))"
^XMB(3.9,96,2,331,0)="""RTN"",""PSAVER6"",64,0)"
^XMB(3.9,96,2,332,0)=" I $G(PSADJ) S PSANODE=$G(^PSD(58.811,PSAIEN,1,PSAIEN1,1,PSALINE,1,PSADJ,0)),PSADJO=$S($P(PSANODE,""^"",6)'="""":$P(PSANODE,""^"",6),1:$P(PSANODE,""^"",2))"
^XMB(3.9,96,2,333,0)="""RTN"",""PSAVER6"",65,0)"
^XMB(3.9,96,2,334,0)=" S:$G(PSADJO) PSAOU=$G(PSADJO)"
^XMB(3.9,96,2,335,0)="""RTN"",""PSAVER6"",66,0)"
^XMB(3.9,96,2,336,0)=" S PSANDC=$P(PSADATA,""^"",11) D PSANDC1^PSAHELP S PSADASH=PSANDCX K PSANDCX"
^XMB(3.9,96,2,337,0)="""RTN"",""PSAVER6"",67,0)"
^XMB(3.9,96,2,338,0)=" S PSADJP=0,PSADJ=+$O(^PSD(58.811,PSAIEN,1,PSAIEN1,1,PSALINE,1,""B"",""P"",0))"
^XMB(3.9,96,2,339,0)="""RTN"",""PSAVER6"",68,0)"
^XMB(3.9,96,2,340,0)=" I $G(PSADJ) S PSANODE=$G(^PSD(58.811,PSAIEN,1,PSAIEN1,1,PSALINE,1,PSADJ,0)),PSADJP=$S(+$P(PSANODE,""^"",6):+$P(PSANODE,""^"",6),1:+$P(PSANODE,""^"",2))"
^XMB(3.9,96,2,341,0)="""RTN"",""PSAVER6"",69,0)"
^XMB(3.9,96,2,342,0)=" S (PSAPOU,PSANPOU)=$S($G(PSADJP):PSADJP,1:+$P(PSADATA,""^"",5)),PSALEN=$L($P(PSANPOU,""."")),(PSAPOU,PSANPOU)=$J(PSANPOU,PSALEN,2)"
^XMB(3.9,96,2,343,0)="""RTN"",""PSAVER6"",70,0)"
^XMB(3.9,96,2,344,0)=" S PSAVSN=$P(PSADATA,""^"",12)"
^XMB(3.9,96,2,345,0)="""RTN"",""PSAVER6"",71,0)"
^XMB(3.9,96,2,346,0)=" S PSALOC=$S(+PSACS:+$P(PSAIN,""^"",12),1:+$P(PSAIN,""^"",5))"
^XMB(3.9,96,2,347,0)="""RTN"",""PSAVER6"",72,0)"
^XMB(3.9,96,2,348,0)="TEMP S PSATEMP=$G(^PSD(58.811,PSAIEN,1,PSAIEN1,1,PSALINE,2))"
^XMB(3.9,96,2,349,0)="""RTN"",""PSAVER6"",73,0)"
^XMB(3.9,96,2,350,0)=" S PSADUOU=+$P(PSATEMP,""^""),PSAREORD=+$P(PSATEMP,""^"",2),PSASUB=+$P(PSATEMP,""^"",3),PSASTOCK=+$P(PSATEMP,""^"",4)"
^XMB(3.9,96,2,351,0)="""RTN"",""PSAVER6"",74,0)"
^XMB(3.9,96,2,352,0)=" S PSADUOU=$S(+PSADUOU:+PSADUOU,+PSASUB&(+$P($G(^PSDRUG(PSADRG,1,PSASUB,0)),""^"",7)):+$P($G(^PSDRUG(PSADRG,1,PSASUB,0)),""^"",7),1:1)"
^XMB(3.9,96,2,353,0)="""RTN"",""PSAVER6"",75,0)"
^XMB(3.9,96,2,354,0)=" S PSADUREC=$S(PSADUOU:PSAQTY*PSADUOU,1:0)"
^XMB(3.9,96,2,355,0)="""RTN"",""PSAVER6"",76,0)"
^XMB(3.9,96,2,356,0)=" ;"
^XMB(3.9,96,2,357,0)="""RTN"",""PSAVER6"",77,0)"
^XMB(3.9,96,2,358,0)=" ;DAVE B (18NOV98)"
^XMB(3.9,96,2,359,0)="""RTN"",""PSAVER6"",78,0)"
^XMB(3.9,96,2,360,0)=" I PSADUREC=0,$D(PSAQTY),$P($G(^PSDRUG(PSADRG,660)),""^"",5)'="""" S PSADUREC=(PSAQTY*($P(^PSDRUG(PSADRG,660),""^"",5)))"
^XMB(3.9,96,2,361,0)="""RTN"",""PSAVER6"",79,0)"
^XMB(3.9,96,2,362,0)=" Q:'+$P($G(^PSD(58.8,PSALOC,0)),""^"",14)"
^XMB(3.9,96,2,363,0)="""RTN"",""PSAVER6"",80,0)"
^XMB(3.9,96,2,364,0)=" S PSAREORD=$S(+PSAREORD:+PSAREORD,+$P($G(^PSD(58.8,PSALOC,1,PSADRG,0)),""^"",5):+$P($G(^PSD(58.8,PSALOC,1,PSADRG,0)),""^"",5),1:0)"
^XMB(3.9,96,2,365,0)="""RTN"",""PSAVER6"",81,0)"
^XMB(3.9,96,2,366,0)=" S PSASTOCK=$S(+PSASTOCK:+PSASTOCK,+$P($G(^PSD(58.8,PSALOC,1,PSADRG,0)),""^"",3):+$P($G(^PSD(58.8,PSALOC,1,PSADRG,0)),""^"",3),1:0)"
^XMB(3.9,96,2,367,0)="""RTN"",""PSAVER6"",82,0)"
^XMB(3.9,96,2,368,0)=" K PSA0QTY I '$G(PSAQTY),'$G(PSADJQ) S PSA0QTY=1 Q  ;PSA*3*42 (0 QTY)"
^XMB(3.9,96,2,369,0)="""RTN"",""PSAVER6"",83,0)"
^XMB(3.9,96,2,370,0)=" Q"
^XMB(3.9,96,2,371,0)="""RTN"",""PSAVER6"",84,0)"
^XMB(3.9,96,2,372,0)=" ;"
^XMB(3.9,96,2,373,0)="""RTN"",""PSAVER6"",85,0)"
^XMB(3.9,96,2,374,0)="FILE ;File data in 58.8"
^XMB(3.9,96,2,375,0)="""RTN"",""PSAVER6"",86,0)"
^XMB(3.9,96,2,376,0)=" I $D(PSADUREC),PSADUREC'>0 S PSADUREC=$S($D(PSADJQ):PSADJQ,$D(PSAQTY):PSAQTY,1:0)"
^XMB(3.9,96,2,377,0)="""RTN"",""PSAVER6"",87,0)"
^XMB(3.9,96,2,378,0)=" D NOW^%DTC S PSADT=+$E(%,1,14)"
^XMB(3.9,96,2,379,0)="""RTN"",""PSAVER6"",88,0)"
^XMB(3.9,96,2,380,0)=" I '$D(^PSD(58.8,PSALOC,1,PSADRG,0)) D"
^XMB(3.9,96,2,381,0)="""RTN"",""PSAVER6"",89,0)"
^XMB(3.9,96,2,382,0)=" .K DIC,DA,DR,DIE"
^XMB(3.9,96,2,383,0)="""RTN"",""PSAVER6"",90,0)"
^XMB(3.9,96,2,384,0)=" .S:'$D(^PSD(58.8,PSALOC,1,0)) DIC(""P"")=$P(^DD(58.8,10,0),""^"",2)"
^XMB(3.9,96,2,385,0)="""RTN"",""PSAVER6"",91,0)"
^XMB(3.9,96,2,386,0)=" .S DA(1)=PSALOC,DIC=""^PSD(58.8,""_DA(1)_"",1,"",(DA,DINUM,X)=PSADRG,DIC(0)=""L"",DLAYGO=58.8"
^XMB(3.9,96,2,387,0)="""RTN"",""PSAVER6"",92,0)"
^XMB(3.9,96,2,388,0)=" .F  L +^PSD(58.8,PSALOC,0):0 I  Q"
^XMB(3.9,96,2,389,0)="""RTN"",""PSAVER6"",93,0)"
^XMB(3.9,96,2,390,0)=" .D FILE^DICN L -^PSD(58.8,PSALOC,0) K DIC,DA,DLAYGO"
^XMB(3.9,96,2,391,0)="""RTN"",""PSAVER6"",94,0)"
^XMB(3.9,96,2,392,0)=" .D MM ;*42 send mailmessage"
^XMB(3.9,96,2,393,0)="""RTN"",""PSAVER6"",95,0)"
^XMB(3.9,96,2,394,0)=" F  L +^PSD(58.8,PSALOC,1,PSADRG,0):0 I  Q"
^XMB(3.9,96,2,395,0)="""RTN"",""PSAVER6"",96,0)"
^XMB(3.9,96,2,396,0)=" S PSABAL=+$P($G(^PSD(58.8,PSALOC,1,PSADRG,0)),""^"",4)"
^XMB(3.9,96,2,397,0)="""RTN"",""PSAVER6"",97,0)"
^XMB(3.9,96,2,398,0)=" ;"
^XMB(3.9,96,2,399,0)="""RTN"",""PSAVER6"",98,0)"
^XMB(3.9,96,2,400,0)=" ;DAVE B (PSA*3*3)"
^XMB(3.9,96,2,401,0)="""RTN"",""PSAVER6"",99,0)"
^XMB(3.9,96,2,402,0)=" I $P($G(^PSD(58.8,PSALOC,1,PSADRG,0)),""^"",1)'=PSADRG S $P(^PSD(58.8,PSALOC,1,PSADRG,0),""^"",1)=PSADRG"
^XMB(3.9,96,2,403,0)="""RTN"",""PSAVER6"",100,0)"
^XMB(3.9,96,2,404,0)=" S $P(^PSD(58.8,PSALOC,1,PSADRG,0),""^"",4)=PSADUREC+PSABAL"
^XMB(3.9,96,2,405,0)="""RTN"",""PSAVER6"",101,0)"
^XMB(3.9,96,2,406,0)=" I +$P($G(^PSD(58.8,PSALOC,0)),""^"",14) D"
^XMB(3.9,96,2,407,0)="""RTN"",""PSAVER6"",102,0)"
^XMB(3.9,96,2,408,0)=" .I PSASTOCK'=$P(^PSD(58.8,PSALOC,1,PSADRG,0),""^"",3) S $P(^PSD(58.8,PSALOC,1,PSADRG,0),""^"",3)=PSASTOCK"
^XMB(3.9,96,2,409,0)="""RTN"",""PSAVER6"",103,0)"
^XMB(3.9,96,2,410,0)=" .I PSAREORD'=$P(^PSD(58.8,PSALOC,1,PSADRG,0),""^"",5) S $P(^PSD(58.8,PSALOC,1,PSADRG,0),""^"",5)=PSAREORD"
^XMB(3.9,96,2,411,0)="""RTN"",""PSAVER6"",104,0)"
^XMB(3.9,96,2,412,0)=" S:'$D(^PSD(58.8,PSALOC,1,PSADRG,5,0)) DIC(""P"")=$P(^DD(58.8001,20,0),""^"",2)"
^XMB(3.9,96,2,413,0)="""RTN"",""PSAVER6"",105,0)"
^XMB(3.9,96,2,414,0)=" I '$D(^PSD(58.8,PSALOC,1,PSADRG,5,$E(DT,1,5)*100,0)) D"
^XMB(3.9,96,2,415,0)="""RTN"",""PSAVER6"",106,0)"
^XMB(3.9,96,2,416,0)=" .K DIC,DA,DR,DIE"
^XMB(3.9,96,2,417,0)="""RTN"",""PSAVER6"",107,0)"
^XMB(3.9,96,2,418,0)=" .S DIC=""^PSD(58.8,""_PSALOC_"",1,""_PSADRG_"",5,"",DIC(0)=""L"",DIC(""DR"")=""1////^S X=$G(PSABAL)"""
^XMB(3.9,96,2,419,0)="""RTN"",""PSAVER6"",108,0)"
^XMB(3.9,96,2,420,0)=" .S (X,DINUM)=$E(DT,1,5)*100,DA(2)=PSALOC,DA(1)=PSADRG,DLAYGO=58.8 D ^DIC K DIC(""DR"")"
^XMB(3.9,96,2,421,0)="""RTN"",""PSAVER6"",109,0)"
^XMB(3.9,96,2,422,0)=" .S X=""T-1M"" D ^%DT S (X,DINUM)=$E(Y,1,5)*100,DA=PSADRG D ^DIC K DIC,DLAYGO"
^XMB(3.9,96,2,423,0)="""RTN"",""PSAVER6"",110,0)"
^XMB(3.9,96,2,424,0)=" .K DIC,DA,DR,DIE"
^XMB(3.9,96,2,425,0)="""RTN"",""PSAVER6"",111,0)"
^XMB(3.9,96,2,426,0)=" .S DA=+Y,DA(2)=PSALOC,DA(1)=PSADRG,DIE=""^PSD(58.8,""_DA(2)_"",1,""_DA(1)_"",5,"",DR=""3////^S X=$G(PSABAL)"" D ^DIE K DIE"
^XMB(3.9,96,2,427,0)="""RTN"",""PSAVER6"",112,0)"
^XMB(3.9,96,2,428,0)=" K DIC,DA,DR,DIE"
^XMB(3.9,96,2,429,0)="""RTN"",""PSAVER6"",113,0)"
^XMB(3.9,96,2,430,0)=" S DA=$E(DT,1,5)*100"
^XMB(3.9,96,2,431,0)="""RTN"",""PSAVER6"",114,0)"
^XMB(3.9,96,2,432,0)=" S DA(2)=PSALOC,DA(1)=PSADRG,DIE=""^PSD(58.8,""_DA(2)_"",1,""_DA(1)_"",5,"",DA=$E(DT,1,5)*100,DR=""3////^S X=($G(PSABAL)+$G(PSADUREC));5////^S X=""_($P($G(^(0)),""^"",3)+PSADUREC) D ^DIE K DIE"
^XMB(3.9,96,2,433,0)="""RTN"",""PSAVER6"",115,0)"
^XMB(3.9,96,2,434,0)=" L -^PSD(58.8,PSALOC,1,PSADRG,0)"
^XMB(3.9,96,2,435,0)="""RTN"",""PSAVER6"",116,0)"
^XMB(3.9,96,2,436,0)=" G TR^PSAVER7"
^XMB(3.9,96,2,437,0)="""RTN"",""PSAVER6"",117,0)"
^XMB(3.9,96,2,438,0)="MM ;"
^XMB(3.9,96,2,439,0)="""RTN"",""PSAVER6"",118,0)"
^XMB(3.9,96,2,440,0)=" ;*42 Mail Message to holders of PSDMGR, PSAMGR key"
^XMB(3.9,96,2,441,0)="""RTN"",""PSAVER6"",119,0)"
^XMB(3.9,96,2,442,0)=" ;*53 Consolidate messages"
^XMB(3.9,96,2,443,0)="""RTN"",""PSAVER6"",120,0)"
^XMB(3.9,96,2,444,0)=" N PSACS S PSACS=$S($$GET1^DIQ(50,PSADRG,63)[""N"":"" Controlled Substance "",1:"""")"
^XMB(3.9,96,2,445,0)="""RTN"",""PSAVER6"",121,0)"
^XMB(3.9,96,2,446,0)=" S ^TMP($J,""PSADD"",$$GET1^DIQ(58.8,PSALOC,.01),$$GET1^DIQ(50,PSADRG,.01))="""""
^XMB(3.9,96,2,447,0)="""RTN"",""PSAVER6"",122,0)"
^XMB(3.9,96,2,448,0)=" Q"
^XMB(3.9,96,2,449,0)="""RTN"",""PSAVER6"",123,0)"
^XMB(3.9,96,2,450,0)="SCANDIF ;*42 inspect invoice for noted differences in OU,DUOU,PPDU,NDC"
^XMB(3.9,96,2,451,0)="""RTN"",""PSAVER6"",124,0)"
^XMB(3.9,96,2,452,0)=" ;NEEDS PSAIEN, PSAIEN1"
^XMB(3.9,96,2,453,0)="""RTN"",""PSAVER6"",125,0)"
^XMB(3.9,96,2,454,0)=" K ^TMP($J,""PSADIF""),PSADIFLC"
^XMB(3.9,96,2,455,0)="""RTN"",""PSAVER6"",126,0)"
^XMB(3.9,96,2,456,0)=" S PSALINE=0 F  S PSALINE=$O(^PSD(58.811,PSAIEN,1,PSAIEN1,1,PSALINE)) Q:PSALINE'>0  D CHECK^PSAPROC7 ;checks and stores differences in ^TMP($J,"
^XMB(3.9,96,2,457,0)="""RTN"",""PSAVER6"",127,0)"
^XMB(3.9,96,2,458,0)=" I $D(^TMP($J,""PSADD"")) D ADDMM"
^XMB(3.9,96,2,459,0)="""RTN"",""PSAVER6"",128,0)"
^XMB(3.9,96,2,460,0)=" I $D(^TMP($J,""PSADIF"")) D MESSAGE"
^XMB(3.9,96,2,461,0)="""RTN"",""PSAVER6"",129,0)"
^XMB(3.9,96,2,462,0)=" Q"
^XMB(3.9,96,2,463,0)="""RTN"",""PSAVER6"",130,0)"
^XMB(3.9,96,2,464,0)="MESSAGE ;differences found, notify user and send message to g.PSA NDC UPDATES."
^XMB(3.9,96,2,465,0)="""RTN"",""PSAVER6"",131,0)"
^XMB(3.9,96,2,466,0)=" K DIR N IENS"
^XMB(3.9,96,2,467,0)="""RTN"",""PSAVER6"",132,0)"
^XMB(3.9,96,2,468,0)=" S PSAORD=$$GET1^DIQ(58.811,PSAIEN,.01),IENS=PSAIEN1_"",""_PSAIEN"
^XMB(3.9,96,2,469,0)="""RTN"",""PSAVER6"",133,0)"
^XMB(3.9,96,2,470,0)=" S PSAINV=$$GET1^DIQ(58.8112,IENS,.01)"
^XMB(3.9,96,2,471,0)="""RTN"",""PSAVER6"",134,0)"
^XMB(3.9,96,2,472,0)=" S XMSUB=""POST Verify  Variance Report Ord: ""_PSAORD_"" Inv: ""_PSAINV ;*52"
^XMB(3.9,96,2,473,0)="""RTN"",""PSAVER6"",135,0)"
^XMB(3.9,96,2,474,0)=" S ^TMP($J,""PSADIF"",1,0)=XMSUB,^TMP($J,""PSADIF"",2,0)="" """
^XMB(3.9,96,2,475,0)="""RTN"",""PSAVER6"",136,0)"
^XMB(3.9,96,2,476,0)=" S XMTEXT=""^TMP($J,""""PSADIF"""","",XMY(""G.PSA NDC UPDATES"")="""""
^XMB(3.9,96,2,477,0)="""RTN"",""PSAVER6"",137,0)"
^XMB(3.9,96,2,478,0)=" S XMDUZ=""Price & NDC Updater"""
^XMB(3.9,96,2,479,0)="""RTN"",""PSAVER6"",138,0)"
^XMB(3.9,96,2,480,0)=" D ^XMD"
^XMB(3.9,96,2,481,0)="""RTN"",""PSAVER6"",139,0)"
^XMB(3.9,96,2,482,0)=" K PSADIFLC,^TMP($J,""PSADIF"")"
^XMB(3.9,96,2,483,0)="""RTN"",""PSAVER6"",140,0)"
^XMB(3.9,96,2,484,0)=" Q"
^XMB(3.9,96,2,485,0)="""RTN"",""PSAVER6"",141,0)"
^XMB(3.9,96,2,486,0)="ADDMM ; SEND MESSAGE REGARDING DRUGS ADDED TO PHARMACY LOCATIONS"
^XMB(3.9,96,2,487,0)="""RTN"",""PSAVER6"",142,0)"
^XMB(3.9,96,2,488,0)=" K ^TMP($J,""PSADDMM"")"
^XMB(3.9,96,2,489,0)="""RTN"",""PSAVER6"",143,0)"
^XMB(3.9,96,2,490,0)=" S XMSUB=""New Drugs Added by Order: ""_$G(PSAORD)_"" Invoice: ""_$G(PSAINV)"
^XMB(3.9,96,2,491,0)="""RTN"",""PSAVER6"",144,0)"
^XMB(3.9,96,2,492,0)=" S XMDUZ=""Verified by: ""_$$GET1^DIQ(200,DUZ,.01)"
^XMB(3.9,96,2,493,0)="""RTN"",""PSAVER6"",145,0)"
^XMB(3.9,96,2,494,0)=" S LC=0,X=XMSUB D MMLINE S X=XMDUZ D MMLINE"
^XMB(3.9,96,2,495,0)="""RTN"",""PSAVER6"",146,0)"
^XMB(3.9,96,2,496,0)=" S X=""Please use DA and CS menus to populate the balances, stock and re-order levels."" D MMLINE"
^XMB(3.9,96,2,497,0)="""RTN"",""PSAVER6"",147,0)"
^XMB(3.9,96,2,498,0)=" S PSALOC="""" F  S PSALOC=$O(^TMP($J,""PSADD"",PSALOC)) Q:PSALOC=""""  D"
^XMB(3.9,96,2,499,0)="""RTN"",""PSAVER6"",148,0)"
^XMB(3.9,96,2,500,0)=" . S X=PSALOC D MMLINE"
^XMB(3.9,96,2,501,0)="""RTN"",""PSAVER6"",149,0)"
^XMB(3.9,96,2,502,0)=" . S PSADRG="""" F  S PSADRG=$O(^TMP($J,""PSADD"",PSALOC,PSADRG)) Q:PSADRG=""""  S X=""     ""_PSADRG D MMLINE"
^XMB(3.9,96,2,503,0)="""RTN"",""PSAVER6"",150,0)"
^XMB(3.9,96,2,504,0)=" S XMTEXT=""^TMP($J,""""PSADDMM"""","""
^XMB(3.9,96,2,505,0)="""RTN"",""PSAVER6"",151,0)"
^XMB(3.9,96,2,506,0)=" S XMY(""G.PSA NDC UPDATES"")="""""
^XMB(3.9,96,2,507,0)="""RTN"",""PSAVER6"",152,0)"
^XMB(3.9,96,2,508,0)=" D ^XMD"
^XMB(3.9,96,2,509,0)="""RTN"",""PSAVER6"",153,0)"
^XMB(3.9,96,2,510,0)=" K ^TMP($J,""PSADD""),^TMP($J,""PSADDMM""),LC"
^XMB(3.9,96,2,511,0)="""RTN"",""PSAVER6"",154,0)"
^XMB(3.9,96,2,512,0)=" Q"
^XMB(3.9,96,2,513,0)="""RTN"",""PSAVER6"",155,0)"
^XMB(3.9,96,2,514,0)="MMLINE S LC=LC+1,^TMP($J,""PSADDMM"",LC,0)=X W !,X Q"
^XMB(3.9,96,2,515,0)="""VER"")"
^XMB(3.9,96,2,516,0)="8.0^22.0"
^XMB(3.9,96,2,517,0)="""BLD"",6608,6)"
^XMB(3.9,96,2,518,0)="^43"
^XMB(3.9,96,2,519,0)="$END KID PSA*3.0*57"
^XMB(3.9,96,6,0)="^3.911A^2^2"
^XMB(3.9,96,6,1,0)="POSTMASTER"
^XMB(3.9,96,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,96,6,"B","POSTMASTER",1)=""
^XMB(3.9,96,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,97,0)="PSB-3_SEQ-19_PAT-27.KID^.5^3061008.01574^^^^K"
^XMB(3.9,97,.6)="3061008"
^XMB(3.9,97,1,0)="^3.91A^2^2"
^XMB(3.9,97,1,1,0)=".5^0^3061008.01574^^^^^^^3061008.01574"
^XMB(3.9,97,1,2,0)="1^0^3061008.024237^^^^^^^3061008.024237"
^XMB(3.9,97,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,97,1,"C",.5,1)=""
^XMB(3.9,97,1,"C",1,2)=""
^XMB(3.9,97,2,0)="^^527^527^3061008"
^XMB(3.9,97,2,1,0)="$TXT Released PSB*3*27 SEQ #19"
^XMB(3.9,97,2,2,0)="Extracted from mail message"
^XMB(3.9,97,2,3,0)="$END TXT"
^XMB(3.9,97,2,4,0)="$KID PSB*3.0*27"
^XMB(3.9,97,2,5,0)="**INSTALL NAME**"
^XMB(3.9,97,2,6,0)="PSB*3.0*27"
^XMB(3.9,97,2,7,0)="""BLD"",6638,0)"
^XMB(3.9,97,2,8,0)="PSB*3.0*27^BAR CODE MED ADMIN^0^3060426^y"
^XMB(3.9,97,2,9,0)="""BLD"",6638,1,0)"
^XMB(3.9,97,2,10,0)="^^18^18^3060223^"
^XMB(3.9,97,2,11,0)="""BLD"",6638,1,1,0)"
^XMB(3.9,97,2,12,0)="This patch addresses Remedy Ticket HD127231, which arose after the "
^XMB(3.9,97,2,13,0)="""BLD"",6638,1,2,0)"
^XMB(3.9,97,2,14,0)="install of patch PSB*3*20.  Patch PSB*3*20 added the patient header "
^XMB(3.9,97,2,15,0)="""BLD"",6638,1,3,0)"
^XMB(3.9,97,2,16,0)="information to the MAH report if the report for a medication ran longer"
^XMB(3.9,97,2,17,0)="""BLD"",6638,1,4,0)"
^XMB(3.9,97,2,18,0)="than one page.  Additionally, PSB*3*20 was designed to reprint the first "
^XMB(3.9,97,2,19,0)="""BLD"",6638,1,5,0)"
^XMB(3.9,97,2,20,0)="six lines of the orderable item information on subsequent pages to help "
^XMB(3.9,97,2,21,0)="""BLD"",6638,1,6,0)"
^XMB(3.9,97,2,22,0)="the nurses keep track of what medication they were viewing"
^XMB(3.9,97,2,23,0)="""BLD"",6638,1,7,0)"
^XMB(3.9,97,2,24,0)="on the MAH report.  However, when the next medication on the report was "
^XMB(3.9,97,2,25,0)="""BLD"",6638,1,8,0)"
^XMB(3.9,97,2,26,0)="due to be printed, and a page break occurred before the orderable item "
^XMB(3.9,97,2,27,0)="""BLD"",6638,1,9,0)"
^XMB(3.9,97,2,28,0)="information was printed, the second page of the report printed"
^XMB(3.9,97,2,29,0)="""BLD"",6638,1,10,0)"
^XMB(3.9,97,2,30,0)="the first six lines of the orderable item in duplicate."
^XMB(3.9,97,2,31,0)="""BLD"",6638,1,11,0)"
^XMB(3.9,97,2,32,0)=" "
^XMB(3.9,97,2,33,0)="""BLD"",6638,1,12,0)"
^XMB(3.9,97,2,34,0)="The fix included in this patch will still print the patient header "
^XMB(3.9,97,2,35,0)="""BLD"",6638,1,13,0)"
^XMB(3.9,97,2,36,0)="information on subsequent MAH pages, but it will not reprint the first "
^XMB(3.9,97,2,37,0)="""BLD"",6638,1,14,0)"
^XMB(3.9,97,2,38,0)="six lines of the orderable item information."
^XMB(3.9,97,2,39,0)="""BLD"",6638,1,15,0)"
^XMB(3.9,97,2,40,0)=" "
^XMB(3.9,97,2,41,0)="""BLD"",6638,1,16,0)"
^XMB(3.9,97,2,42,0)="**NOTE** This fix only affects the report when printed to a printer."
^XMB(3.9,97,2,43,0)="""BLD"",6638,1,17,0)"
^XMB(3.9,97,2,44,0)="This does not affect the GUI display or printing the report to the"
^XMB(3.9,97,2,45,0)="""BLD"",6638,1,18,0)"
^XMB(3.9,97,2,46,0)="terminal screen."
^XMB(3.9,97,2,47,0)="""BLD"",6638,4,0)"
^XMB(3.9,97,2,48,0)="^9.64PA^^"
^XMB(3.9,97,2,49,0)="""BLD"",6638,6)"
^XMB(3.9,97,2,50,0)="3^"
^XMB(3.9,97,2,51,0)="""BLD"",6638,""ABPKG"")"
^XMB(3.9,97,2,52,0)="n"
^XMB(3.9,97,2,53,0)="""BLD"",6638,""KRN"",0)"
^XMB(3.9,97,2,54,0)="^9.67PA^8989.52^19"
^XMB(3.9,97,2,55,0)="""BLD"",6638,""KRN"",.4,0)"
^XMB(3.9,97,2,56,0)=".4"
^XMB(3.9,97,2,57,0)="""BLD"",6638,""KRN"",.401,0)"
^XMB(3.9,97,2,58,0)=".401"
^XMB(3.9,97,2,59,0)="""BLD"",6638,""KRN"",.402,0)"
^XMB(3.9,97,2,60,0)=".402"
^XMB(3.9,97,2,61,0)="""BLD"",6638,""KRN"",.403,0)"
^XMB(3.9,97,2,62,0)=".403"
^XMB(3.9,97,2,63,0)="""BLD"",6638,""KRN"",.5,0)"
^XMB(3.9,97,2,64,0)=".5"
^XMB(3.9,97,2,65,0)="""BLD"",6638,""KRN"",.84,0)"
^XMB(3.9,97,2,66,0)=".84"
^XMB(3.9,97,2,67,0)="""BLD"",6638,""KRN"",3.6,0)"
^XMB(3.9,97,2,68,0)="3.6"
^XMB(3.9,97,2,69,0)="""BLD"",6638,""KRN"",3.8,0)"
^XMB(3.9,97,2,70,0)="3.8"
^XMB(3.9,97,2,71,0)="""BLD"",6638,""KRN"",9.2,0)"
^XMB(3.9,97,2,72,0)="9.2"
^XMB(3.9,97,2,73,0)="""BLD"",6638,""KRN"",9.8,0)"
^XMB(3.9,97,2,74,0)="9.8"
^XMB(3.9,97,2,75,0)="""BLD"",6638,""KRN"",9.8,""NM"",0)"
^XMB(3.9,97,2,76,0)="^9.68A^1^1"
^XMB(3.9,97,2,77,0)="""BLD"",6638,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,97,2,78,0)="PSBOMH2^^0^29518009"
^XMB(3.9,97,2,79,0)="""BLD"",6638,""KRN"",9.8,""NM"",""B"",""PSBOMH2"",1)"
^XMB(3.9,97,2,80,0)=""
^XMB(3.9,97,2,81,0)="""BLD"",6638,""KRN"",19,0)"
^XMB(3.9,97,2,82,0)="19"
^XMB(3.9,97,2,83,0)="""BLD"",6638,""KRN"",19.1,0)"
^XMB(3.9,97,2,84,0)="19.1"
^XMB(3.9,97,2,85,0)="""BLD"",6638,""KRN"",101,0)"
^XMB(3.9,97,2,86,0)="101"
^XMB(3.9,97,2,87,0)="""BLD"",6638,""KRN"",409.61,0)"
^XMB(3.9,97,2,88,0)="409.61"
^XMB(3.9,97,2,89,0)="""BLD"",6638,""KRN"",771,0)"
^XMB(3.9,97,2,90,0)="771"
^XMB(3.9,97,2,91,0)="""BLD"",6638,""KRN"",870,0)"
^XMB(3.9,97,2,92,0)="870"
^XMB(3.9,97,2,93,0)="""BLD"",6638,""KRN"",8989.51,0)"
^XMB(3.9,97,2,94,0)="8989.51"
^XMB(3.9,97,2,95,0)="""BLD"",6638,""KRN"",8989.52,0)"
^XMB(3.9,97,2,96,0)="8989.52"
^XMB(3.9,97,2,97,0)="""BLD"",6638,""KRN"",8994,0)"
^XMB(3.9,97,2,98,0)="8994"
^XMB(3.9,97,2,99,0)="""BLD"",6638,""KRN"",""B"",.4,.4)"
^XMB(3.9,97,2,100,0)=""
^XMB(3.9,97,2,101,0)="""BLD"",6638,""KRN"",""B"",.401,.401)"
^XMB(3.9,97,2,102,0)=""
^XMB(3.9,97,2,103,0)="""BLD"",6638,""KRN"",""B"",.402,.402)"
^XMB(3.9,97,2,104,0)=""
^XMB(3.9,97,2,105,0)="""BLD"",6638,""KRN"",""B"",.403,.403)"
^XMB(3.9,97,2,106,0)=""
^XMB(3.9,97,2,107,0)="""BLD"",6638,""KRN"",""B"",.5,.5)"
^XMB(3.9,97,2,108,0)=""
^XMB(3.9,97,2,109,0)="""BLD"",6638,""KRN"",""B"",.84,.84)"
^XMB(3.9,97,2,110,0)=""
^XMB(3.9,97,2,111,0)="""BLD"",6638,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,97,2,112,0)=""
^XMB(3.9,97,2,113,0)="""BLD"",6638,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,97,2,114,0)=""
^XMB(3.9,97,2,115,0)="""BLD"",6638,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,97,2,116,0)=""
^XMB(3.9,97,2,117,0)="""BLD"",6638,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,97,2,118,0)=""
^XMB(3.9,97,2,119,0)="""BLD"",6638,""KRN"",""B"",19,19)"
^XMB(3.9,97,2,120,0)=""
^XMB(3.9,97,2,121,0)="""BLD"",6638,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,97,2,122,0)=""
^XMB(3.9,97,2,123,0)="""BLD"",6638,""KRN"",""B"",101,101)"
^XMB(3.9,97,2,124,0)=""
^XMB(3.9,97,2,125,0)="""BLD"",6638,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,97,2,126,0)=""
^XMB(3.9,97,2,127,0)="""BLD"",6638,""KRN"",""B"",771,771)"
^XMB(3.9,97,2,128,0)=""
^XMB(3.9,97,2,129,0)="""BLD"",6638,""KRN"",""B"",870,870)"
^XMB(3.9,97,2,130,0)=""
^XMB(3.9,97,2,131,0)="""BLD"",6638,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,97,2,132,0)=""
^XMB(3.9,97,2,133,0)="""BLD"",6638,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,97,2,134,0)=""
^XMB(3.9,97,2,135,0)="""BLD"",6638,""KRN"",""B"",8994,8994)"
^XMB(3.9,97,2,136,0)=""
^XMB(3.9,97,2,137,0)="""BLD"",6638,""QUES"",0)"
^XMB(3.9,97,2,138,0)="^9.62^^"
^XMB(3.9,97,2,139,0)="""BLD"",6638,""REQB"",0)"
^XMB(3.9,97,2,140,0)="^9.611^1^1"
^XMB(3.9,97,2,141,0)="""BLD"",6638,""REQB"",1,0)"
^XMB(3.9,97,2,142,0)="PSB*3.0*20^1"
^XMB(3.9,97,2,143,0)="""BLD"",6638,""REQB"",""B"",""PSB*3.0*20"",1)"
^XMB(3.9,97,2,144,0)=""
^XMB(3.9,97,2,145,0)="""MBREQ"")"
^XMB(3.9,97,2,146,0)="0"
^XMB(3.9,97,2,147,0)="""PKG"",537,-1)"
^XMB(3.9,97,2,148,0)="1^1"
^XMB(3.9,97,2,149,0)="""PKG"",537,0)"
^XMB(3.9,97,2,150,0)="BAR CODE MED ADMIN^PSB^BAR CODE MEDICATION ADMINISTRATION"
^XMB(3.9,97,2,151,0)="""PKG"",537,20,0)"
^XMB(3.9,97,2,152,0)="^9.402P^^"
^XMB(3.9,97,2,153,0)="""PKG"",537,22,0)"
^XMB(3.9,97,2,154,0)="^9.49I^1^1"
^XMB(3.9,97,2,155,0)="""PKG"",537,22,1,0)"
^XMB(3.9,97,2,156,0)="3.0^3040224^3040504^22979"
^XMB(3.9,97,2,157,0)="""PKG"",537,22,1,""PAH"",1,0)"
^XMB(3.9,97,2,158,0)="27^3060426^33270"
^XMB(3.9,97,2,159,0)="""PKG"",537,22,1,""PAH"",1,1,0)"
^XMB(3.9,97,2,160,0)="^^18^18^3060426"
^XMB(3.9,97,2,161,0)="""PKG"",537,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,97,2,162,0)="This patch addresses Remedy Ticket HD127231, which arose after the "
^XMB(3.9,97,2,163,0)="""PKG"",537,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,97,2,164,0)="install of patch PSB*3*20.  Patch PSB*3*20 added the patient header "
^XMB(3.9,97,2,165,0)="""PKG"",537,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,97,2,166,0)="information to the MAH report if the report for a medication ran longer"
^XMB(3.9,97,2,167,0)="""PKG"",537,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,97,2,168,0)="than one page.  Additionally, PSB*3*20 was designed to reprint the first "
^XMB(3.9,97,2,169,0)="""PKG"",537,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,97,2,170,0)="six lines of the orderable item information on subsequent pages to help "
^XMB(3.9,97,2,171,0)="""PKG"",537,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,97,2,172,0)="the nurses keep track of what medication they were viewing"
^XMB(3.9,97,2,173,0)="""PKG"",537,22,1,""PAH"",1,1,7,0)"
^XMB(3.9,97,2,174,0)="on the MAH report.  However, when the next medication on the report was "
^XMB(3.9,97,2,175,0)="""PKG"",537,22,1,""PAH"",1,1,8,0)"
^XMB(3.9,97,2,176,0)="due to be printed, and a page break occurred before the orderable item "
^XMB(3.9,97,2,177,0)="""PKG"",537,22,1,""PAH"",1,1,9,0)"
^XMB(3.9,97,2,178,0)="information was printed, the second page of the report printed"
^XMB(3.9,97,2,179,0)="""PKG"",537,22,1,""PAH"",1,1,10,0)"
^XMB(3.9,97,2,180,0)="the first six lines of the orderable item in duplicate."
^XMB(3.9,97,2,181,0)="""PKG"",537,22,1,""PAH"",1,1,11,0)"
^XMB(3.9,97,2,182,0)=" "
^XMB(3.9,97,2,183,0)="""PKG"",537,22,1,""PAH"",1,1,12,0)"
^XMB(3.9,97,2,184,0)="The fix included in this patch will still print the patient header "
^XMB(3.9,97,2,185,0)="""PKG"",537,22,1,""PAH"",1,1,13,0)"
^XMB(3.9,97,2,186,0)="information on subsequent MAH pages, but it will not reprint the first "
^XMB(3.9,97,2,187,0)="""PKG"",537,22,1,""PAH"",1,1,14,0)"
^XMB(3.9,97,2,188,0)="six lines of the orderable item information."
^XMB(3.9,97,2,189,0)="""PKG"",537,22,1,""PAH"",1,1,15,0)"
^XMB(3.9,97,2,190,0)=" "
^XMB(3.9,97,2,191,0)="""PKG"",537,22,1,""PAH"",1,1,16,0)"
^XMB(3.9,97,2,192,0)="**NOTE** This fix only affects the report when printed to a printer."
^XMB(3.9,97,2,193,0)="""PKG"",537,22,1,""PAH"",1,1,17,0)"
^XMB(3.9,97,2,194,0)="This does not affect the GUI display or printing the report to the"
^XMB(3.9,97,2,195,0)="""PKG"",537,22,1,""PAH"",1,1,18,0)"
^XMB(3.9,97,2,196,0)="terminal screen."
^XMB(3.9,97,2,197,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,97,2,198,0)="Y"
^XMB(3.9,97,2,199,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,97,2,200,0)="^D REP^XPDH"
^XMB(3.9,97,2,201,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,97,2,202,0)="Shall I write over your |FLAG| File"
^XMB(3.9,97,2,203,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,97,2,204,0)="YES"
^XMB(3.9,97,2,205,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,97,2,206,0)="D XPF1^XPDIQ"
^XMB(3.9,97,2,207,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,97,2,208,0)="Y"
^XMB(3.9,97,2,209,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,97,2,210,0)="^D DTA^XPDH"
^XMB(3.9,97,2,211,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,97,2,212,0)="Want my data |FLAG| yours"
^XMB(3.9,97,2,213,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,97,2,214,0)="YES"
^XMB(3.9,97,2,215,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,97,2,216,0)="D XPF2^XPDIQ"
^XMB(3.9,97,2,217,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,97,2,218,0)="YO"
^XMB(3.9,97,2,219,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,97,2,220,0)="^D INHIBIT^XPDH"
^XMB(3.9,97,2,221,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,97,2,222,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,97,2,223,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,97,2,224,0)="YES"
^XMB(3.9,97,2,225,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,97,2,226,0)="D XPI1^XPDIQ"
^XMB(3.9,97,2,227,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,97,2,228,0)="PO^VA(200,:EM"
^XMB(3.9,97,2,229,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,97,2,230,0)="^D MG^XPDH"
^XMB(3.9,97,2,231,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,97,2,232,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,97,2,233,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,97,2,234,0)=""
^XMB(3.9,97,2,235,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,97,2,236,0)="D XPM1^XPDIQ"
^XMB(3.9,97,2,237,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,97,2,238,0)="Y"
^XMB(3.9,97,2,239,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,97,2,240,0)="^D MENU^XPDH"
^XMB(3.9,97,2,241,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,97,2,242,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,97,2,243,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,97,2,244,0)="YES"
^XMB(3.9,97,2,245,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,97,2,246,0)="D XPO1^XPDIQ"
^XMB(3.9,97,2,247,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,97,2,248,0)="Y"
^XMB(3.9,97,2,249,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,97,2,250,0)="^D OPT^XPDH"
^XMB(3.9,97,2,251,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,97,2,252,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,97,2,253,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,97,2,254,0)="YES"
^XMB(3.9,97,2,255,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,97,2,256,0)="D XPZ1^XPDIQ"
^XMB(3.9,97,2,257,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,97,2,258,0)="Y"
^XMB(3.9,97,2,259,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,97,2,260,0)="^D RTN^XPDH"
^XMB(3.9,97,2,261,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,97,2,262,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,97,2,263,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,97,2,264,0)="NO"
^XMB(3.9,97,2,265,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,97,2,266,0)="D XPZ2^XPDIQ"
^XMB(3.9,97,2,267,0)="""RTN"")"
^XMB(3.9,97,2,268,0)="1"
^XMB(3.9,97,2,269,0)="""RTN"",""PSBOMH2"")"
^XMB(3.9,97,2,270,0)="0^1^B29518009^B28071612"
^XMB(3.9,97,2,271,0)="""RTN"",""PSBOMH2"",1,0)"
^XMB(3.9,97,2,272,0)="PSBOMH2 ;BIRMINGHAM/EFC-MAH ;Mar 2004"
^XMB(3.9,97,2,273,0)="""RTN"",""PSBOMH2"",2,0)"
^XMB(3.9,97,2,274,0)=" ;;3.0;BAR CODE MED ADMIN;**6,20,27**;Mar 2004"
^XMB(3.9,97,2,275,0)="""RTN"",""PSBOMH2"",3,0)"
^XMB(3.9,97,2,276,0)=" ;"
^XMB(3.9,97,2,277,0)="""RTN"",""PSBOMH2"",4,0)"
^XMB(3.9,97,2,278,0)=" ; Reference/IA"
^XMB(3.9,97,2,279,0)="""RTN"",""PSBOMH2"",5,0)"
^XMB(3.9,97,2,280,0)=" ; EN^PSJBCMA/2828"
^XMB(3.9,97,2,281,0)="""RTN"",""PSBOMH2"",6,0)"
^XMB(3.9,97,2,282,0)=" ;"
^XMB(3.9,97,2,283,0)="""RTN"",""PSBOMH2"",7,0)"
^XMB(3.9,97,2,284,0)="EN ;"
^XMB(3.9,97,2,285,0)="""RTN"",""PSBOMH2"",8,0)"
^XMB(3.9,97,2,286,0)=" ; Okay, let's print this puppy"
^XMB(3.9,97,2,287,0)="""RTN"",""PSBOMH2"",9,0)"
^XMB(3.9,97,2,288,0)=" S PSBWEEK=0"
^XMB(3.9,97,2,289,0)="""RTN"",""PSBOMH2"",10,0)"
^XMB(3.9,97,2,290,0)=" F  S PSBWEEK=$O(^TMP(""PSB"",$J,PSBWEEK)) Q:'PSBWEEK  D"
^XMB(3.9,97,2,291,0)="""RTN"",""PSBOMH2"",11,0)"
^XMB(3.9,97,2,292,0)=" .D:$D(^TMP(""PSB"",$J,PSBWEEK,""SORT"",""C""))"
^XMB(3.9,97,2,293,0)="""RTN"",""PSBOMH2"",12,0)"
^XMB(3.9,97,2,294,0)=" ..D CONT"
^XMB(3.9,97,2,295,0)="""RTN"",""PSBOMH2"",13,0)"
^XMB(3.9,97,2,296,0)=" ;"
^XMB(3.9,97,2,297,0)="""RTN"",""PSBOMH2"",14,0)"
^XMB(3.9,97,2,298,0)=" ; Now the PRN/One Time/On-Call Sheets"
^XMB(3.9,97,2,299,0)="""RTN"",""PSBOMH2"",15,0)"
^XMB(3.9,97,2,300,0)=" S PSBWEEK=0"
^XMB(3.9,97,2,301,0)="""RTN"",""PSBOMH2"",16,0)"
^XMB(3.9,97,2,302,0)=" F  S PSBWEEK=$O(^TMP(""PSB"",$J,PSBWEEK)) Q:'PSBWEEK  D"
^XMB(3.9,97,2,303,0)="""RTN"",""PSBOMH2"",17,0)"
^XMB(3.9,97,2,304,0)=" .D:$D(^TMP(""PSB"",$J,PSBWEEK,""SORT"",""P""))"
^XMB(3.9,97,2,305,0)="""RTN"",""PSBOMH2"",18,0)"
^XMB(3.9,97,2,306,0)=" ..D PRN"
^XMB(3.9,97,2,307,0)="""RTN"",""PSBOMH2"",19,0)"
^XMB(3.9,97,2,308,0)=" ;"
^XMB(3.9,97,2,309,0)="""RTN"",""PSBOMH2"",20,0)"
^XMB(3.9,97,2,310,0)=" D LEGEND"
^XMB(3.9,97,2,311,0)="""RTN"",""PSBOMH2"",21,0)"
^XMB(3.9,97,2,312,0)=" Q"
^XMB(3.9,97,2,313,0)="""RTN"",""PSBOMH2"",22,0)"
^XMB(3.9,97,2,314,0)="CONT ;"
^XMB(3.9,97,2,315,0)="""RTN"",""PSBOMH2"",23,0)"
^XMB(3.9,97,2,316,0)=" S PSBHDR(1)=""Continuing/PRN/Stat/One Time Medication/Treatment Record (VAF 10-2970 B, C, D)"""
^XMB(3.9,97,2,317,0)="""RTN"",""PSBOMH2"",24,0)"
^XMB(3.9,97,2,318,0)=" W $$HDR()"
^XMB(3.9,97,2,319,0)="""RTN"",""PSBOMH2"",25,0)"
^XMB(3.9,97,2,320,0)=" S PSBDRUG="""""
^XMB(3.9,97,2,321,0)="""RTN"",""PSBOMH2"",26,0)"
^XMB(3.9,97,2,322,0)=" F  S PSBDRUG=$O(^TMP(""PSB"",$J,PSBWEEK,""SORT"",""C"",PSBDRUG)) Q:PSBDRUG=""""  D"
^XMB(3.9,97,2,323,0)="""RTN"",""PSBOMH2"",27,0)"
^XMB(3.9,97,2,324,0)=" .S PSBORD="""""
^XMB(3.9,97,2,325,0)="""RTN"",""PSBOMH2"",28,0)"
^XMB(3.9,97,2,326,0)=" .F  S PSBORD=$O(^TMP(""PSB"",$J,PSBWEEK,""SORT"",""C"",PSBDRUG,PSBORD)) Q:'PSBORD  D"
^XMB(3.9,97,2,327,0)="""RTN"",""PSBOMH2"",29,0)"
^XMB(3.9,97,2,328,0)=" ..;S X="""",PSBNAF=0 F  S X=$O(^TMP(""PSB"",$J,PSBWEEK,PSBORD,X)) Q:X=""""  I ^TMP(""PSB"",$J,PSBWEEK,PSBORD,X,0)'=0 S PSBNAF=1  ; check for data"
^XMB(3.9,97,2,329,0)="""RTN"",""PSBOMH2"",30,0)"
^XMB(3.9,97,2,330,0)=" ..;D CLEAN^PSBVT,PSJ1^PSBVT(DFN,PSBORD)"
^XMB(3.9,97,2,331,0)="""RTN"",""PSBOMH2"",31,0)"
^XMB(3.9,97,2,332,0)=" ..;S X=PSBOST D H^%DTC S PSBOSTH=%H"
^XMB(3.9,97,2,333,0)="""RTN"",""PSBOMH2"",32,0)"
^XMB(3.9,97,2,334,0)=" ..;S X=PSBOSP D H^%DTC S PSBOSPH=%H"
^XMB(3.9,97,2,335,0)="""RTN"",""PSBOMH2"",33,0)"
^XMB(3.9,97,2,336,0)=" ..;I PSBNAF=0 Q"
^XMB(3.9,97,2,337,0)="""RTN"",""PSBOMH2"",34,0)"
^XMB(3.9,97,2,338,0)=" ..;I PSBNAF=0,$G(PSBAR(PSBOSTH))'=PSBWEEK,$G(PSBAR(PSBOSPH))'=PSBWEEK Q  ; no data for this week and neither start or stop date is this week"
^XMB(3.9,97,2,339,0)="""RTN"",""PSBOMH2"",35,0)"
^XMB(3.9,97,2,340,0)=" ..S PSBCNT=8"
^XMB(3.9,97,2,341,0)="""RTN"",""PSBOMH2"",36,0)"
^XMB(3.9,97,2,342,0)=" ..S:$O(^TMP(""PSB"",$J,""ORDERS"",PSBORD,""INST"",""""),-1)>PSBCNT PSBCNT=$O(^(""""),-1)"
^XMB(3.9,97,2,343,0)="""RTN"",""PSBOMH2"",37,0)"
^XMB(3.9,97,2,344,0)=" ..S:$O(^TMP(""PSB"",$J,""ORDERS"",PSBORD,""AT"",""""),-1)>PSBCNT PSBCNT=$O(^(""""),-1)"
^XMB(3.9,97,2,345,0)="""RTN"",""PSBOMH2"",38,0)"
^XMB(3.9,97,2,346,0)=" ..W:$Y>(IOSL-PSBCNT-4) $$HDR()"
^XMB(3.9,97,2,347,0)="""RTN"",""PSBOMH2"",39,0)"
^XMB(3.9,97,2,348,0)=" ..F PSBLINE=1:1:PSBCNT D"
^XMB(3.9,97,2,349,0)="""RTN"",""PSBOMH2"",40,0)"
^XMB(3.9,97,2,350,0)=" ...I IOSL>24,$Y>$S(PSBCNT<13:(IOSL-PSBCNT-4),(PSBCNT-PSBLINE=12):(IOSL-12),1:(IOSL-12)) D"
^XMB(3.9,97,2,351,0)="""RTN"",""PSBOMH2"",41,0)"
^XMB(3.9,97,2,352,0)=" ....W !?(IOM-35\2),""*** CONTINUED ON NEXT PAGE ***"""
^XMB(3.9,97,2,353,0)="""RTN"",""PSBOMH2"",42,0)"
^XMB(3.9,97,2,354,0)=" ....W $$HDR()"
^XMB(3.9,97,2,355,0)="""RTN"",""PSBOMH2"",43,0)"
^XMB(3.9,97,2,356,0)=" ....W !?(IOM-35\2),""*** CONTINUED FROM PREVIOUS PAGE ***"""
^XMB(3.9,97,2,357,0)="""RTN"",""PSBOMH2"",44,0)"
^XMB(3.9,97,2,358,0)=" ...W !,$G(^TMP(""PSB"",$J,""ORDERS"",PSBORD,""INST"",PSBLINE))"
^XMB(3.9,97,2,359,0)="""RTN"",""PSBOMH2"",45,0)"
^XMB(3.9,97,2,360,0)=" ...W ?32,""| "",$G(^TMP(""PSB"",$J,""ORDERS"",PSBORD,""AT"",PSBLINE))"
^XMB(3.9,97,2,361,0)="""RTN"",""PSBOMH2"",46,0)"
^XMB(3.9,97,2,362,0)=" ...S PSBDAY=0,PSBCOL=0"
^XMB(3.9,97,2,363,0)="""RTN"",""PSBOMH2"",47,0)"
^XMB(3.9,97,2,364,0)=" ...F  S PSBDAY=$O(^TMP(""PSB"",$J,PSBWEEK,""HDR"",PSBDAY)) Q:'PSBDAY  D"
^XMB(3.9,97,2,365,0)="""RTN"",""PSBOMH2"",48,0)"
^XMB(3.9,97,2,366,0)=" ....W ?(40+(PSBCOL*13)),""| """
^XMB(3.9,97,2,367,0)="""RTN"",""PSBOMH2"",49,0)"
^XMB(3.9,97,2,368,0)=" ....S Y=$G(^TMP(""PSB"",$J,PSBWEEK,PSBORD,PSBDAY,PSBLINE))"
^XMB(3.9,97,2,369,0)="""RTN"",""PSBOMH2"",50,0)"
^XMB(3.9,97,2,370,0)=" ....W $P(Y,U,3)"
^XMB(3.9,97,2,371,0)="""RTN"",""PSBOMH2"",51,0)"
^XMB(3.9,97,2,372,0)=" ....W $E($P($P(Y,U,1)_""0000"",""."",2),1,4),"" """
^XMB(3.9,97,2,373,0)="""RTN"",""PSBOMH2"",52,0)"
^XMB(3.9,97,2,374,0)=" ....W $P(Y,U,2)"
^XMB(3.9,97,2,375,0)="""RTN"",""PSBOMH2"",53,0)"
^XMB(3.9,97,2,376,0)=" ....I $D(^TMP(""PSB"",$J,""ORDERS"",PSBORD,""HOLD"",PSBDAY)),(PSBLINE=PSBCNT) W ""HOLD""  ;output hold status"
^XMB(3.9,97,2,377,0)="""RTN"",""PSBOMH2"",54,0)"
^XMB(3.9,97,2,378,0)=" ....I '$D(^TMP(""PSB"",$J,""ORDERS"",PSBORD,""DISC"",PSBDAY))&'$D(^TMP(""PSB"",$J,""ORDERS"",PSBORD,""HOLD"",PSBDAY)) D"
^XMB(3.9,97,2,379,0)="""RTN"",""PSBOMH2"",55,0)"
^XMB(3.9,97,2,380,0)=" .....I $D(^TMP(""PSB"",$J,""ORDERS"",PSBORD,""NTDUE"",PSBDAY)),(PSBLINE=PSBCNT) W ""***""  ;write *** when day no due"
^XMB(3.9,97,2,381,0)="""RTN"",""PSBOMH2"",56,0)"
^XMB(3.9,97,2,382,0)=" ....I $D(^TMP(""PSB"",$J,""ORDERS"",PSBORD,""DISC"",PSBDAY)),(PSBLINE=PSBCNT) W ""***""   ;output discontinued status"
^XMB(3.9,97,2,383,0)="""RTN"",""PSBOMH2"",57,0)"
^XMB(3.9,97,2,384,0)=" ....S PSBCOL=PSBCOL+1"
^XMB(3.9,97,2,385,0)="""RTN"",""PSBOMH2"",58,0)"
^XMB(3.9,97,2,386,0)=" ..W !,$TR($J("""",IOM),"" "",""-"")"
^XMB(3.9,97,2,387,0)="""RTN"",""PSBOMH2"",59,0)"
^XMB(3.9,97,2,388,0)=" Q"
^XMB(3.9,97,2,389,0)="""RTN"",""PSBOMH2"",60,0)"
^XMB(3.9,97,2,390,0)=" ;"
^XMB(3.9,97,2,391,0)="""RTN"",""PSBOMH2"",61,0)"
^XMB(3.9,97,2,392,0)="PRN ;"
^XMB(3.9,97,2,393,0)="""RTN"",""PSBOMH2"",62,0)"
^XMB(3.9,97,2,394,0)=" S PSBHDR(1)=""Continuing/PRN/Stat/One Time Medication/Treatment Record (VAF 10-2970 B, C, D)"""
^XMB(3.9,97,2,395,0)="""RTN"",""PSBOMH2"",63,0)"
^XMB(3.9,97,2,396,0)=" W $$HDR(1)"
^XMB(3.9,97,2,397,0)="""RTN"",""PSBOMH2"",64,0)"
^XMB(3.9,97,2,398,0)=" S PSBDRUG="""""
^XMB(3.9,97,2,399,0)="""RTN"",""PSBOMH2"",65,0)"
^XMB(3.9,97,2,400,0)=" F  S PSBDRUG=$O(^TMP(""PSB"",$J,PSBWEEK,""SORT"",""P"",PSBDRUG)) Q:PSBDRUG=""""  D"
^XMB(3.9,97,2,401,0)="""RTN"",""PSBOMH2"",66,0)"
^XMB(3.9,97,2,402,0)=" .S PSBORD="""""
^XMB(3.9,97,2,403,0)="""RTN"",""PSBOMH2"",67,0)"
^XMB(3.9,97,2,404,0)=" .F  S PSBORD=$O(^TMP(""PSB"",$J,PSBWEEK,""SORT"",""P"",PSBDRUG,PSBORD)) Q:'PSBORD  D"
^XMB(3.9,97,2,405,0)="""RTN"",""PSBOMH2"",68,0)"
^XMB(3.9,97,2,406,0)=" ..S PSBCNT=$O(^TMP(""PSB"",$J,PSBWEEK,PSBORD,""AT"",""""),-1)"
^XMB(3.9,97,2,407,0)="""RTN"",""PSBOMH2"",69,0)"
^XMB(3.9,97,2,408,0)=" ..D:PSBCNT<$O(^TMP(""PSB"",$J,""ORDERS"",PSBORD,""INST"",""""),-1)"
^XMB(3.9,97,2,409,0)="""RTN"",""PSBOMH2"",70,0)"
^XMB(3.9,97,2,410,0)=" ...S PSBCNT=$O(^TMP(""PSB"",$J,""ORDERS"",PSBORD,""INST"",""""),-1)"
^XMB(3.9,97,2,411,0)="""RTN"",""PSBOMH2"",71,0)"
^XMB(3.9,97,2,412,0)=" ..S:PSBCNT<8 PSBCNT=8  ; Minimum space for order"
^XMB(3.9,97,2,413,0)="""RTN"",""PSBOMH2"",72,0)"
^XMB(3.9,97,2,414,0)=" ..W:$Y>(IOSL-PSBCNT-4) $$HDR(1)"
^XMB(3.9,97,2,415,0)="""RTN"",""PSBOMH2"",73,0)"
^XMB(3.9,97,2,416,0)=" ..F PSBLINE=1:1:PSBCNT D"
^XMB(3.9,97,2,417,0)="""RTN"",""PSBOMH2"",74,0)"
^XMB(3.9,97,2,418,0)=" ...I IOSL>24,$Y>$S(PSBCNT<13:(IOSL-PSBCNT-4),(PSBCNT-PSBLINE=12):(IOSL-12),1:(IOSL-12)) D"
^XMB(3.9,97,2,419,0)="""RTN"",""PSBOMH2"",75,0)"
^XMB(3.9,97,2,420,0)=" ....W !?(IOM-35\2),""*** CONTINUED ON NEXT PAGE ***"""
^XMB(3.9,97,2,421,0)="""RTN"",""PSBOMH2"",76,0)"
^XMB(3.9,97,2,422,0)=" ....W $$HDR(1)"
^XMB(3.9,97,2,423,0)="""RTN"",""PSBOMH2"",77,0)"
^XMB(3.9,97,2,424,0)=" ....W !?(IOM-35\2),""*** CONTINUED FROM PREVIOUS PAGE ***"""
^XMB(3.9,97,2,425,0)="""RTN"",""PSBOMH2"",78,0)"
^XMB(3.9,97,2,426,0)=" ...W !,$G(^TMP(""PSB"",$J,""ORDERS"",PSBORD,""INST"",PSBLINE))"
^XMB(3.9,97,2,427,0)="""RTN"",""PSBOMH2"",79,0)"
^XMB(3.9,97,2,428,0)=" ...W ?32,""| "",$G(^TMP(""PSB"",$J,PSBWEEK,PSBORD,""AT"",PSBLINE))"
^XMB(3.9,97,2,429,0)="""RTN"",""PSBOMH2"",80,0)"
^XMB(3.9,97,2,430,0)=" ..W !,$TR($J("""",IOM),"" "",""-"")"
^XMB(3.9,97,2,431,0)="""RTN"",""PSBOMH2"",81,0)"
^XMB(3.9,97,2,432,0)=" Q"
^XMB(3.9,97,2,433,0)="""RTN"",""PSBOMH2"",82,0)"
^XMB(3.9,97,2,434,0)=" ;"
^XMB(3.9,97,2,435,0)="""RTN"",""PSBOMH2"",83,0)"
^XMB(3.9,97,2,436,0)="LEGEND  ;"
^XMB(3.9,97,2,437,0)="""RTN"",""PSBOMH2"",84,0)"
^XMB(3.9,97,2,438,0)=" ;print the initials - name legend as an extra page  ;"
^XMB(3.9,97,2,439,0)="""RTN"",""PSBOMH2"",85,0)"
^XMB(3.9,97,2,440,0)=" ;I '$D(^TMP(""PSB"",$J,""LEGEND"")) K ^TMP(""PSJ"",$J),^TMP(""PSB"",$J) Q  ;"
^XMB(3.9,97,2,441,0)="""RTN"",""PSBOMH2"",86,0)"
^XMB(3.9,97,2,442,0)=" D PT^PSBOHDR(DFN,.PSBHDR)  ;"
^XMB(3.9,97,2,443,0)="""RTN"",""PSBOMH2"",87,0)"
^XMB(3.9,97,2,444,0)=" W !!,""Initial - Name Legend"",!  ;"
^XMB(3.9,97,2,445,0)="""RTN"",""PSBOMH2"",88,0)"
^XMB(3.9,97,2,446,0)=" I $D(^TMP(""PSB"",$J,""LEGEND""))  D"
^XMB(3.9,97,2,447,0)="""RTN"",""PSBOMH2"",89,0)"
^XMB(3.9,97,2,448,0)=" .S X=$Q(^TMP(""PSB"",$J,""LEGEND"",""""))"
^XMB(3.9,97,2,449,0)="""RTN"",""PSBOMH2"",90,0)"
^XMB(3.9,97,2,450,0)=" .F  W $S($QS(X,4)[99:"""",1:$QS(X,4)),?10,$QS(X,5),! S X=$Q(@X) Q:$QS(X,3)'=""LEGEND""  ;"
^XMB(3.9,97,2,451,0)="""RTN"",""PSBOMH2"",91,0)"
^XMB(3.9,97,2,452,0)=" W !!,""Status Codes"",!,""C - Completed"",!,""G - Given"",!,""H - Held"",!,""I - Infusing"",!,""M - Missing Dose Requested"",!,""R - Refused"",!,""RM - Removed"",!,""S - Stopped"",!,""*** - Medication Not Due"",!  ;"
^XMB(3.9,97,2,453,0)="""RTN"",""PSBOMH2"",92,0)"
^XMB(3.9,97,2,454,0)=" K ^TMP(""PSJ"",$J),^TMP(""PSB"",$J)"
^XMB(3.9,97,2,455,0)="""RTN"",""PSBOMH2"",93,0)"
^XMB(3.9,97,2,456,0)=" Q"
^XMB(3.9,97,2,457,0)="""RTN"",""PSBOMH2"",94,0)"
^XMB(3.9,97,2,458,0)=" ;"
^XMB(3.9,97,2,459,0)="""RTN"",""PSBOMH2"",95,0)"
^XMB(3.9,97,2,460,0)="HDR(PRN)   ;"
^XMB(3.9,97,2,461,0)="""RTN"",""PSBOMH2"",96,0)"
^XMB(3.9,97,2,462,0)=" ; PRN = TRUE IF DISPLAYING PRN MED (OPTIONAL)"
^XMB(3.9,97,2,463,0)="""RTN"",""PSBOMH2"",97,0)"
^XMB(3.9,97,2,464,0)=" D PT^PSBOHDR(DFN,.PSBHDR)"
^XMB(3.9,97,2,465,0)="""RTN"",""PSBOMH2"",98,0)"
^XMB(3.9,97,2,466,0)=" W !,""Start Date"",?20,""Stop Date"",?32,""| "",$S('$G(PRN):""Admin"",1:""Action Status"")"
^XMB(3.9,97,2,467,0)="""RTN"",""PSBOMH2"",99,0)"
^XMB(3.9,97,2,468,0)=" I '$G(PRN) F X=0:1:6 W ?(40+(X*13)),""|"""
^XMB(3.9,97,2,469,0)="""RTN"",""PSBOMH2"",100,0)"
^XMB(3.9,97,2,470,0)=" W !,""and Time"",?20,""and Time"",?32,""| "",$S('$G(PRN):""Times"",1:""Action Date/Times"")"
^XMB(3.9,97,2,471,0)="""RTN"",""PSBOMH2"",101,0)"
^XMB(3.9,97,2,472,0)=" D:'$G(PRN)"
^XMB(3.9,97,2,473,0)="""RTN"",""PSBOMH2"",102,0)"
^XMB(3.9,97,2,474,0)=" .S PSBCOL=0,X=0 F  S X=$O(^TMP(""PSB"",$J,PSBWEEK,""HDR"",X)) Q:'X  D"
^XMB(3.9,97,2,475,0)="""RTN"",""PSBOMH2"",103,0)"
^XMB(3.9,97,2,476,0)=" ..W ?(40+(PSBCOL*13)),""| "",$E(X,4,5),""/"",$E(X,6,7),""/"",(1700+$E(X,1,3))"
^XMB(3.9,97,2,477,0)="""RTN"",""PSBOMH2"",104,0)"
^XMB(3.9,97,2,478,0)=" ..S PSBCOL=PSBCOL+1"
^XMB(3.9,97,2,479,0)="""RTN"",""PSBOMH2"",105,0)"
^XMB(3.9,97,2,480,0)=" D:$G(PRN)"
^XMB(3.9,97,2,481,0)="""RTN"",""PSBOMH2"",106,0)"
^XMB(3.9,97,2,482,0)=" .W ?76,""PRN Reason"""
^XMB(3.9,97,2,483,0)="""RTN"",""PSBOMH2"",107,0)"
^XMB(3.9,97,2,484,0)=" W !,$TR($J("""",IOM),"" "",""-"")"
^XMB(3.9,97,2,485,0)="""RTN"",""PSBOMH2"",108,0)"
^XMB(3.9,97,2,486,0)=" Q """""
^XMB(3.9,97,2,487,0)="""RTN"",""PSBOMH2"",109,0)"
^XMB(3.9,97,2,488,0)=" ;"
^XMB(3.9,97,2,489,0)="""RTN"",""PSBOMH2"",110,0)"
^XMB(3.9,97,2,490,0)="PSBCK1(PSBCHK) ;                   "
^XMB(3.9,97,2,491,0)="""RTN"",""PSBOMH2"",111,0)"
^XMB(3.9,97,2,492,0)=" I PSBCHK=""A"" D"
^XMB(3.9,97,2,493,0)="""RTN"",""PSBOMH2"",112,0)"
^XMB(3.9,97,2,494,0)=" .S TEST=$P(^PSB(53.79,PSBIEN,0),U,6)"
^XMB(3.9,97,2,495,0)="""RTN"",""PSBOMH2"",113,0)"
^XMB(3.9,97,2,496,0)=" .D PSBOUT^PSBOMH1(TEST,PSBINIT)"
^XMB(3.9,97,2,497,0)="""RTN"",""PSBOMH2"",114,0)"
^XMB(3.9,97,2,498,0)=" .S X=$P(^PSB(53.79,PSBIEN,0),U,6)_U_PSBINIT_U_""G""_U_PSBIEN"
^XMB(3.9,97,2,499,0)="""RTN"",""PSBOMH2"",115,0)"
^XMB(3.9,97,2,500,0)=" I PSBCHK=""B"" D"
^XMB(3.9,97,2,501,0)="""RTN"",""PSBOMH2"",116,0)"
^XMB(3.9,97,2,502,0)=" .S TESTB=$P(^PSB(53.79,PSBIEN,0),U,6)"
^XMB(3.9,97,2,503,0)="""RTN"",""PSBOMH2"",117,0)"
^XMB(3.9,97,2,504,0)=" .D PSBOUT^PSBOMH1(TESTB,PSBINIT)"
^XMB(3.9,97,2,505,0)="""RTN"",""PSBOMH2"",118,0)"
^XMB(3.9,97,2,506,0)=" .S X=$P(^PSB(53.79,PSBIEN,0),U,6)_U_PSBINIT_U_$P(^(0),U,9)_U_PSBIEN"
^XMB(3.9,97,2,507,0)="""RTN"",""PSBOMH2"",119,0)"
^XMB(3.9,97,2,508,0)=" S PSBCHK="""""
^XMB(3.9,97,2,509,0)="""RTN"",""PSBOMH2"",120,0)"
^XMB(3.9,97,2,510,0)=" Q"
^XMB(3.9,97,2,511,0)="""RTN"",""PSBOMH2"",121,0)"
^XMB(3.9,97,2,512,0)=" ;"
^XMB(3.9,97,2,513,0)="""RTN"",""PSBOMH2"",122,0)"
^XMB(3.9,97,2,514,0)="PSBENT(PSBTIS) ;"
^XMB(3.9,97,2,515,0)="""RTN"",""PSBOMH2"",123,0)"
^XMB(3.9,97,2,516,0)=" S PSBNAME="""",PSBNAME=$$GET1^DIQ(53.79,PSBIEN_"","",""ACTION BY:NAME"")"
^XMB(3.9,97,2,517,0)="""RTN"",""PSBOMH2"",124,0)"
^XMB(3.9,97,2,518,0)=" S ^TMP(""PSB"",$J,""LEGEND"",PSBTIS,PSBNAME)="""""
^XMB(3.9,97,2,519,0)="""RTN"",""PSBOMH2"",125,0)"
^XMB(3.9,97,2,520,0)=" Q"
^XMB(3.9,97,2,521,0)="""RTN"",""PSBOMH2"",126,0)"
^XMB(3.9,97,2,522,0)=" ;"
^XMB(3.9,97,2,523,0)="""VER"")"
^XMB(3.9,97,2,524,0)="8.0^22.0"
^XMB(3.9,97,2,525,0)="""BLD"",6638,6)"
^XMB(3.9,97,2,526,0)="^19"
^XMB(3.9,97,2,527,0)="$END KID PSB*3.0*27"
^XMB(3.9,97,6,0)="^3.911A^2^2"
^XMB(3.9,97,6,1,0)="POSTMASTER"
^XMB(3.9,97,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,97,6,"B","POSTMASTER",1)=""
^XMB(3.9,97,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,98,0)="PSB-3_SEQ-21_PAT-13.KID^.5^3061008.01574^^^^K"
^XMB(3.9,98,.6)="3061008"
^XMB(3.9,98,1,0)="^3.91A^2^2"
^XMB(3.9,98,1,1,0)=".5^0^3061008.01574^^^^^^^3061008.01574"
^XMB(3.9,98,1,2,0)="1^0^3061008.024241^^^^^^^3061008.024241"
^XMB(3.9,98,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,98,1,"C",.5,1)=""
^XMB(3.9,98,1,"C",1,2)=""
^XMB(3.9,98,2,0)="^^9381^9381^3061008"
^XMB(3.9,98,2,1,0)="$TXT Released PSB*3*13 SEQ #21"
^XMB(3.9,98,2,2,0)="Extracted from mail message"
^XMB(3.9,98,2,3,0)="$END TXT"
^XMB(3.9,98,2,4,0)="$KID PSB*3.0*13"
^XMB(3.9,98,2,5,0)="**INSTALL NAME**"
^XMB(3.9,98,2,6,0)="PSB*3.0*13"
^XMB(3.9,98,2,7,0)="""BLD"",5479,0)"
^XMB(3.9,98,2,8,0)="PSB*3.0*13^BAR CODE MED ADMIN^0^3060322^y"
^XMB(3.9,98,2,9,0)="""BLD"",5479,1,0)"
^XMB(3.9,98,2,10,0)="^^117^117^3060228^"
^XMB(3.9,98,2,11,0)="""BLD"",5479,1,1,0)"
^XMB(3.9,98,2,12,0)=" "
^XMB(3.9,98,2,13,0)="""BLD"",5479,1,2,0)"
^XMB(3.9,98,2,14,0)="***"
^XMB(3.9,98,2,15,0)="""BLD"",5479,1,3,0)"
^XMB(3.9,98,2,16,0)=" "
^XMB(3.9,98,2,17,0)="""BLD"",5479,1,4,0)"
^XMB(3.9,98,2,18,0)="This patch is a component of the Bar Code Medication Administration "
^XMB(3.9,98,2,19,0)="""BLD"",5479,1,5,0)"
^XMB(3.9,98,2,20,0)="(BCMA) Version 3.0.  The main function of PSB*3.0*13 and the "
^XMB(3.9,98,2,21,0)="""BLD"",5479,1,6,0)"
^XMB(3.9,98,2,22,0)="corresponding BCMA Graphical User Interface (GUI) software (BCMA Version 3"
^XMB(3.9,98,2,23,0)="""BLD"",5479,1,7,0)"
^XMB(3.9,98,2,24,0)="Patch 13 [3.0.13]) is to support BCMA v3.0 Clinical Context Object "
^XMB(3.9,98,2,25,0)="""BLD"",5479,1,8,0)"
^XMB(3.9,98,2,26,0)="Workgroup (CCOW) compliance. The PSB*3.0*13 GUI and this Character User "
^XMB(3.9,98,2,27,0)="""BLD"",5479,1,9,0)"
^XMB(3.9,98,2,28,0)="Interface (CHUI) software (PSB*3.0*13) also support Patient Safety "
^XMB(3.9,98,2,29,0)="""BLD"",5479,1,10,0)"
^XMB(3.9,98,2,30,0)="Issues (PSI) and Remedy Ticket resolution and BCMA Coversheet refinement."
^XMB(3.9,98,2,31,0)="""BLD"",5479,1,11,0)"
^XMB(3.9,98,2,32,0)="***"
^XMB(3.9,98,2,33,0)="""BLD"",5479,1,12,0)"
^XMB(3.9,98,2,34,0)=" "
^XMB(3.9,98,2,35,0)="""BLD"",5479,1,13,0)"
^XMB(3.9,98,2,36,0)="1.   Problem: PSI-05-064"
^XMB(3.9,98,2,37,0)="""BLD"",5479,1,14,0)"
^XMB(3.9,98,2,38,0)="     BCMA functionality enables a BCMA user to edit the free text "
^XMB(3.9,98,2,39,0)="""BLD"",5479,1,15,0)"
^XMB(3.9,98,2,40,0)="     BCMA MEDICATION LOG FILE-DISPENSE DRUG SUBFILE (# 53.795) ""Units"
^XMB(3.9,98,2,41,0)="""BLD"",5479,1,16,0)"
^XMB(3.9,98,2,42,0)="     of Administration"" (field #.04) for an administered medication, when "
^XMB(3.9,98,2,43,0)="""BLD"",5479,1,17,0)"
^XMB(3.9,98,2,44,0)="     using the Edit Medication Log.  Consequently, the GUI Edit "
^XMB(3.9,98,2,45,0)="""BLD"",5479,1,18,0)"
^XMB(3.9,98,2,46,0)="     Medication Log (Edit Med Log) allows a BCMA user to modify text in "
^XMB(3.9,98,2,47,0)="""BLD"",5479,1,19,0)"
^XMB(3.9,98,2,48,0)="     the field labeled ""Units"" of the ""BCMA - Edit Med Log"" dialog box.  "
^XMB(3.9,98,2,49,0)="""BLD"",5479,1,20,0)"
^XMB(3.9,98,2,50,0)="     The user is able to change the ""Units"" from ""PATCH"" to any other text"
^XMB(3.9,98,2,51,0)="""BLD"",5479,1,21,0)"
^XMB(3.9,98,2,52,0)="     value.  Changing a ""PATCH"" medication to some other ""Units"", causes "
^XMB(3.9,98,2,53,0)="""BLD"",5479,1,22,0)"
^XMB(3.9,98,2,54,0)="     BCMA to not process the administration properly; and causes the BCMA "
^XMB(3.9,98,2,55,0)="""BLD"",5479,1,23,0)"
^XMB(3.9,98,2,56,0)="     Virtual Due List (VDL) to not present the administration properly."
^XMB(3.9,98,2,57,0)="""BLD"",5479,1,24,0)"
^XMB(3.9,98,2,58,0)=" "
^XMB(3.9,98,2,59,0)="""BLD"",5479,1,25,0)"
^XMB(3.9,98,2,60,0)="     Corrective Action:"
^XMB(3.9,98,2,61,0)="""BLD"",5479,1,26,0)"
^XMB(3.9,98,2,62,0)="     The BCMA GUI Edit Med Log will not allow any BCMA user to edit the "
^XMB(3.9,98,2,63,0)="""BLD"",5479,1,27,0)"
^XMB(3.9,98,2,64,0)="     BCMA MEDICATION LOG FILE/DISPENSE DRUG SUBFILE (# 53.795) ""Units "
^XMB(3.9,98,2,65,0)="""BLD"",5479,1,28,0)"
^XMB(3.9,98,2,66,0)="     of Administration"" (field # .04) of an administered ""PATCH"" "
^XMB(3.9,98,2,67,0)="""BLD"",5479,1,29,0)"
^XMB(3.9,98,2,68,0)="     medication."
^XMB(3.9,98,2,69,0)="""BLD"",5479,1,30,0)"
^XMB(3.9,98,2,70,0)=" "
^XMB(3.9,98,2,71,0)="""BLD"",5479,1,31,0)"
^XMB(3.9,98,2,72,0)="2.   Problem: PSI-05-032"
^XMB(3.9,98,2,73,0)="""BLD"",5479,1,32,0)"
^XMB(3.9,98,2,74,0)="     The VDL displays a GIVEN medication patch until it has been marked as"
^XMB(3.9,98,2,75,0)="""BLD"",5479,1,33,0)"
^XMB(3.9,98,2,76,0)="     ""REMOVED"".  This is causing some confusion to users."
^XMB(3.9,98,2,77,0)="""BLD"",5479,1,34,0)"
^XMB(3.9,98,2,78,0)=" "
^XMB(3.9,98,2,79,0)="""BLD"",5479,1,35,0)"
^XMB(3.9,98,2,80,0)="     Corrective Action:"
^XMB(3.9,98,2,81,0)="""BLD"",5479,1,36,0)"
^XMB(3.9,98,2,82,0)="     BCMA will provide a site parameter that will specify the number of "
^XMB(3.9,98,2,83,0)="""BLD"",5479,1,37,0)"
^XMB(3.9,98,2,84,0)="     days (7-14) a GIVEN patch will display on the VDL.  The count of "
^XMB(3.9,98,2,85,0)="""BLD"",5479,1,38,0)"
^XMB(3.9,98,2,86,0)="     days the GIVEN patch displays on the VDL begins when the "
^XMB(3.9,98,2,87,0)="""BLD"",5479,1,39,0)"
^XMB(3.9,98,2,88,0)="     medication order expires.  This parameter may be set to """""
^XMB(3.9,98,2,89,0)="""BLD"",5479,1,40,0)"
^XMB(3.9,98,2,90,0)="     (null) to allow GIVEN patches to display on the VDL until it is "
^XMB(3.9,98,2,91,0)="""BLD"",5479,1,41,0)"
^XMB(3.9,98,2,92,0)="     marked as REMOVED."
^XMB(3.9,98,2,93,0)="""BLD"",5479,1,42,0)"
^XMB(3.9,98,2,94,0)=" "
^XMB(3.9,98,2,95,0)="""BLD"",5479,1,43,0)"
^XMB(3.9,98,2,96,0)=" "
^XMB(3.9,98,2,97,0)="""BLD"",5479,1,44,0)"
^XMB(3.9,98,2,98,0)="3.   Problem: PSI-05-115"
^XMB(3.9,98,2,99,0)="""BLD"",5479,1,45,0)"
^XMB(3.9,98,2,100,0)="     The Special Instructions on the VDL will display the entire Special "
^XMB(3.9,98,2,101,0)="""BLD"",5479,1,46,0)"
^XMB(3.9,98,2,102,0)="     Instructions by wrapping the text as needed using the spaces in the "
^XMB(3.9,98,2,103,0)="""BLD"",5479,1,47,0)"
^XMB(3.9,98,2,104,0)="     Special Instructions. However, ff a word or phrase (without spaces) "
^XMB(3.9,98,2,105,0)="""BLD"",5479,1,48,0)"
^XMB(3.9,98,2,106,0)="     in the Special Instructions can not be wrapped due to the word or "
^XMB(3.9,98,2,107,0)="""BLD"",5479,1,49,0)"
^XMB(3.9,98,2,108,0)="     phrase being longer then the width of the column, the text would be "
^XMB(3.9,98,2,109,0)="""BLD"",5479,1,50,0)"
^XMB(3.9,98,2,110,0)="     truncated when the text ran into the right side of the column. In "
^XMB(3.9,98,2,111,0)="""BLD"",5479,1,51,0)"
^XMB(3.9,98,2,112,0)="     addition, when the above happens, some of the ending words in the "
^XMB(3.9,98,2,113,0)="""BLD"",5479,1,52,0)"
^XMB(3.9,98,2,114,0)="     special instructions may be omitted as well."
^XMB(3.9,98,2,115,0)="""BLD"",5479,1,53,0)"
^XMB(3.9,98,2,116,0)=" "
^XMB(3.9,98,2,117,0)="""BLD"",5479,1,54,0)"
^XMB(3.9,98,2,118,0)="     Correction Action:"
^XMB(3.9,98,2,119,0)="""BLD"",5479,1,55,0)"
^XMB(3.9,98,2,120,0)="     When a word or phrase (without spaces) can not be wrapped and does "
^XMB(3.9,98,2,121,0)="""BLD"",5479,1,56,0)"
^XMB(3.9,98,2,122,0)="     not fit in the column width, the text will be truncated with an "
^XMB(3.9,98,2,123,0)="""BLD"",5479,1,57,0)"
^XMB(3.9,98,2,124,0)="     ellipsis to indicate that a portion of the word or phrase was "
^XMB(3.9,98,2,125,0)="""BLD"",5479,1,58,0)"
^XMB(3.9,98,2,126,0)="     truncated. The occasional omission of ending words in the special "
^XMB(3.9,98,2,127,0)="""BLD"",5479,1,59,0)"
^XMB(3.9,98,2,128,0)="     instructions will be corrected. "
^XMB(3.9,98,2,129,0)="""BLD"",5479,1,60,0)"
^XMB(3.9,98,2,130,0)=" "
^XMB(3.9,98,2,131,0)="""BLD"",5479,1,61,0)"
^XMB(3.9,98,2,132,0)=" "
^XMB(3.9,98,2,133,0)="""BLD"",5479,1,62,0)"
^XMB(3.9,98,2,134,0)="4.   Problem:  HD0000000121694"
^XMB(3.9,98,2,135,0)="""BLD"",5479,1,63,0)"
^XMB(3.9,98,2,136,0)="     While a medication patch is being ""administered"" using Manual "
^XMB(3.9,98,2,137,0)="""BLD"",5479,1,64,0)"
^XMB(3.9,98,2,138,0)="     Medication Entry[PSB MED LOG NEW ENTRY], that particular scheduled "
^XMB(3.9,98,2,139,0)="""BLD"",5479,1,65,0)"
^XMB(3.9,98,2,140,0)="     administration does not display on the BCMA Virtual Due List (VDL)."
^XMB(3.9,98,2,141,0)="""BLD"",5479,1,66,0)"
^XMB(3.9,98,2,142,0)=" "
^XMB(3.9,98,2,143,0)="""BLD"",5479,1,67,0)"
^XMB(3.9,98,2,144,0)="     Corrective Action:"
^XMB(3.9,98,2,145,0)="""BLD"",5479,1,68,0)"
^XMB(3.9,98,2,146,0)="     Display the saved ""action status"" of an administration, while it is "
^XMB(3.9,98,2,147,0)="""BLD"",5479,1,69,0)"
^XMB(3.9,98,2,148,0)="     being administered using Manual Medication Entry [PSB MED LOG NEW "
^XMB(3.9,98,2,149,0)="""BLD"",5479,1,70,0)"
^XMB(3.9,98,2,150,0)="     ENTRY]"
^XMB(3.9,98,2,151,0)="""BLD"",5479,1,71,0)"
^XMB(3.9,98,2,152,0)=" "
^XMB(3.9,98,2,153,0)="""BLD"",5479,1,72,0)"
^XMB(3.9,98,2,154,0)=" "
^XMB(3.9,98,2,155,0)="""BLD"",5479,1,73,0)"
^XMB(3.9,98,2,156,0)="5.   Problem:  HD0000000127625"
^XMB(3.9,98,2,157,0)="""BLD"",5479,1,74,0)"
^XMB(3.9,98,2,158,0)="     An error occurs when the BCMA coversheet is to display data for one "
^XMB(3.9,98,2,159,0)="""BLD"",5479,1,75,0)"
^XMB(3.9,98,2,160,0)="     order only; and that order is an expired, large volume IV."
^XMB(3.9,98,2,161,0)="""BLD"",5479,1,76,0)"
^XMB(3.9,98,2,162,0)=" "
^XMB(3.9,98,2,163,0)="""BLD"",5479,1,77,0)"
^XMB(3.9,98,2,164,0)="     Corrective Action:"
^XMB(3.9,98,2,165,0)="""BLD"",5479,1,78,0)"
^XMB(3.9,98,2,166,0)="     The BCMA Coversheet will display without error when the only order "
^XMB(3.9,98,2,167,0)="""BLD"",5479,1,79,0)"
^XMB(3.9,98,2,168,0)="     information to display on the BCMA coversheet pertains to an expired,"
^XMB(3.9,98,2,169,0)="""BLD"",5479,1,80,0)"
^XMB(3.9,98,2,170,0)="     large volume IV."
^XMB(3.9,98,2,171,0)="""BLD"",5479,1,81,0)"
^XMB(3.9,98,2,172,0)=" "
^XMB(3.9,98,2,173,0)="""BLD"",5479,1,82,0)"
^XMB(3.9,98,2,174,0)=" "
^XMB(3.9,98,2,175,0)="""BLD"",5479,1,83,0)"
^XMB(3.9,98,2,176,0)="6.   Problem:  HD0000000132184"
^XMB(3.9,98,2,177,0)="""BLD"",5479,1,84,0)"
^XMB(3.9,98,2,178,0)="     An error occurs when the BCMA GUI Computerized Patient Record System "
^XMB(3.9,98,2,179,0)="""BLD"",5479,1,85,0)"
^XMB(3.9,98,2,180,0)="     (CPRS)/BCMA Medication Order Button (MOB) is used and ORDER "
^XMB(3.9,98,2,181,0)="""BLD"",5479,1,86,0)"
^XMB(3.9,98,2,182,0)="     File (#100) PATIENT LOCATION (field #6) data does not link to a "
^XMB(3.9,98,2,183,0)="""BLD"",5479,1,87,0)"
^XMB(3.9,98,2,184,0)="     WARD LOCATION File (#42) entry."
^XMB(3.9,98,2,185,0)="""BLD"",5479,1,88,0)"
^XMB(3.9,98,2,186,0)=" "
^XMB(3.9,98,2,187,0)="""BLD"",5479,1,89,0)"
^XMB(3.9,98,2,188,0)="     Corrective Action:"
^XMB(3.9,98,2,189,0)="""BLD"",5479,1,90,0)"
^XMB(3.9,98,2,190,0)="     BCMA will provide HOSPITAL LOCATION File (#44) data per ORDER File "
^XMB(3.9,98,2,191,0)="""BLD"",5479,1,91,0)"
^XMB(3.9,98,2,192,0)="     (#100) PATIENT LOCATION (field #6) data when the CPRS/BCMA MOB is "
^XMB(3.9,98,2,193,0)="""BLD"",5479,1,92,0)"
^XMB(3.9,98,2,194,0)="     used.  CPRS will ORDER File (#100) PATIENT LOCATION (field #6) data "
^XMB(3.9,98,2,195,0)="""BLD"",5479,1,93,0)"
^XMB(3.9,98,2,196,0)="     to a HOSPITAL LOCATION File (#44) entry "
^XMB(3.9,98,2,197,0)="""BLD"",5479,1,94,0)"
^XMB(3.9,98,2,198,0)=" "
^XMB(3.9,98,2,199,0)="""BLD"",5479,1,95,0)"
^XMB(3.9,98,2,200,0)=" "
^XMB(3.9,98,2,201,0)="""BLD"",5479,1,96,0)"
^XMB(3.9,98,2,202,0)="7.   Enhancement:  CCOW compliancy"
^XMB(3.9,98,2,203,0)="""BLD"",5479,1,97,0)"
^XMB(3.9,98,2,204,0)="     This patch (PSB*3.0*13) will enable BCMA CCOW compliancy."
^XMB(3.9,98,2,205,0)="""BLD"",5479,1,98,0)"
^XMB(3.9,98,2,206,0)=" "
^XMB(3.9,98,2,207,0)="""BLD"",5479,1,99,0)"
^XMB(3.9,98,2,208,0)=" "
^XMB(3.9,98,2,209,0)="""BLD"",5479,1,100,0)"
^XMB(3.9,98,2,210,0)="8.   Enhancement:  Enhanced ""*UNKNOWN* Action Status"" support."
^XMB(3.9,98,2,211,0)="""BLD"",5479,1,101,0)"
^XMB(3.9,98,2,212,0)="     BCMA Medication Log File (File #53.79) entries having unknown "
^XMB(3.9,98,2,213,0)="""BLD"",5479,1,102,0)"
^XMB(3.9,98,2,214,0)="     Action Status (field #.09) data can be maintained via the GUI BCMA "
^XMB(3.9,98,2,215,0)="""BLD"",5479,1,103,0)"
^XMB(3.9,98,2,216,0)="     Edit Med Log only. These entries may be maintained by persons holding"
^XMB(3.9,98,2,217,0)="""BLD"",5479,1,104,0)"
^XMB(3.9,98,2,218,0)="     the BCMA manager's key [PSB MANAGER] or that user unable to complete "
^XMB(3.9,98,2,219,0)="""BLD"",5479,1,105,0)"
^XMB(3.9,98,2,220,0)="     the original administration.  PSB*3.0*13 supports the VISTA ""Unknown "
^XMB(3.9,98,2,221,0)="""BLD"",5479,1,106,0)"
^XMB(3.9,98,2,222,0)="     Action Status Report"" option [PSBO XA].  The [PSBO XA] option "
^XMB(3.9,98,2,223,0)="""BLD"",5479,1,107,0)"
^XMB(3.9,98,2,224,0)="     provides persons holding the BCMA manager's key [PSB MANAGER] "
^XMB(3.9,98,2,225,0)="""BLD"",5479,1,108,0)"
^XMB(3.9,98,2,226,0)="     resource to generate a report to display BCMA Medication Log File "
^XMB(3.9,98,2,227,0)="""BLD"",5479,1,109,0)"
^XMB(3.9,98,2,228,0)="     (#53.79) entries having ""unknown"" Action Status (field #.09) data.  "
^XMB(3.9,98,2,229,0)="""BLD"",5479,1,110,0)"
^XMB(3.9,98,2,230,0)="     Users holding the BCMA manager's key [PSB MANAGER] can access the "
^XMB(3.9,98,2,231,0)="""BLD"",5479,1,111,0)"
^XMB(3.9,98,2,232,0)="     PSBO XA report via the BCMA GUI as well.  BCMA has been enhanced to "
^XMB(3.9,98,2,233,0)="""BLD"",5479,1,112,0)"
^XMB(3.9,98,2,234,0)="     display a ""pop-up box"" when a user begins an action on an order "
^XMB(3.9,98,2,235,0)="""BLD"",5479,1,113,0)"
^XMB(3.9,98,2,236,0)=" "
^XMB(3.9,98,2,237,0)="""BLD"",5479,1,114,0)"
^XMB(3.9,98,2,238,0)=" "
^XMB(3.9,98,2,239,0)="""BLD"",5479,1,115,0)"
^XMB(3.9,98,2,240,0)="9.   Enhancement:  Saved Coversheet Personal Parameters"
^XMB(3.9,98,2,241,0)="""BLD"",5479,1,116,0)"
^XMB(3.9,98,2,242,0)="     PSB*3.0*13 will maintain personal parameters per BCMA Coversheet "
^XMB(3.9,98,2,243,0)="""BLD"",5479,1,117,0)"
^XMB(3.9,98,2,244,0)="     views to be saved and retrieved when using BCMA. "
^XMB(3.9,98,2,245,0)="""BLD"",5479,4,0)"
^XMB(3.9,98,2,246,0)="^9.64PA^53.69^1"
^XMB(3.9,98,2,247,0)="""BLD"",5479,4,53.69,0)"
^XMB(3.9,98,2,248,0)="53.69"
^XMB(3.9,98,2,249,0)="""BLD"",5479,4,53.69,2,0)"
^XMB(3.9,98,2,250,0)="^9.641^53.69^1"
^XMB(3.9,98,2,251,0)="""BLD"",5479,4,53.69,2,53.69,0)"
^XMB(3.9,98,2,252,0)="BCMA REPORT REQUEST  (File-top level)"
^XMB(3.9,98,2,253,0)="""BLD"",5479,4,53.69,2,53.69,1,0)"
^XMB(3.9,98,2,254,0)="^9.6411^.05^1"
^XMB(3.9,98,2,255,0)="""BLD"",5479,4,53.69,2,53.69,1,.05,0)"
^XMB(3.9,98,2,256,0)="TYPE OF REQUEST"
^XMB(3.9,98,2,257,0)="""BLD"",5479,4,53.69,222)"
^XMB(3.9,98,2,258,0)="y^y^p^^^^n^^n"
^XMB(3.9,98,2,259,0)="""BLD"",5479,4,53.69,224)"
^XMB(3.9,98,2,260,0)=" "
^XMB(3.9,98,2,261,0)="""BLD"",5479,4,""APDD"",53.69,53.69)"
^XMB(3.9,98,2,262,0)=" "
^XMB(3.9,98,2,263,0)="""BLD"",5479,4,""APDD"",53.69,53.69,.05)"
^XMB(3.9,98,2,264,0)=" "
^XMB(3.9,98,2,265,0)="""BLD"",5479,4,""B"",53.69,53.69)"
^XMB(3.9,98,2,266,0)=" "
^XMB(3.9,98,2,267,0)="""BLD"",5479,6)"
^XMB(3.9,98,2,268,0)="1^"
^XMB(3.9,98,2,269,0)="""BLD"",5479,""ABPKG"")"
^XMB(3.9,98,2,270,0)="n"
^XMB(3.9,98,2,271,0)="""BLD"",5479,""INID"")"
^XMB(3.9,98,2,272,0)=" "
^XMB(3.9,98,2,273,0)="""BLD"",5479,""KRN"",0)"
^XMB(3.9,98,2,274,0)="^9.67PA^8989.52^19"
^XMB(3.9,98,2,275,0)="""BLD"",5479,""KRN"",.4,0)"
^XMB(3.9,98,2,276,0)=".4"
^XMB(3.9,98,2,277,0)="""BLD"",5479,""KRN"",.401,0)"
^XMB(3.9,98,2,278,0)=".401"
^XMB(3.9,98,2,279,0)="""BLD"",5479,""KRN"",.402,0)"
^XMB(3.9,98,2,280,0)=".402"
^XMB(3.9,98,2,281,0)="""BLD"",5479,""KRN"",.403,0)"
^XMB(3.9,98,2,282,0)=".403"
^XMB(3.9,98,2,283,0)="""BLD"",5479,""KRN"",.403,""NM"",0)"
^XMB(3.9,98,2,284,0)="^9.68A^2^2"
^XMB(3.9,98,2,285,0)="""BLD"",5479,""KRN"",.403,""NM"",1,0)"
^XMB(3.9,98,2,286,0)="PSBO XA    FILE #53.69^53.69^0"
^XMB(3.9,98,2,287,0)="""BLD"",5479,""KRN"",.403,""NM"",2,0)"
^XMB(3.9,98,2,288,0)="PSB NEW IV ENTRY    FILE #53.79^53.79^0"
^XMB(3.9,98,2,289,0)="""BLD"",5479,""KRN"",.403,""NM"",""B"",""PSB NEW IV ENTRY    FILE #53.79"",2)"
^XMB(3.9,98,2,290,0)=" "
^XMB(3.9,98,2,291,0)="""BLD"",5479,""KRN"",.403,""NM"",""B"",""PSBO XA    FILE #53.69"",1)"
^XMB(3.9,98,2,292,0)=" "
^XMB(3.9,98,2,293,0)="""BLD"",5479,""KRN"",.5,0)"
^XMB(3.9,98,2,294,0)=".5"
^XMB(3.9,98,2,295,0)="""BLD"",5479,""KRN"",.84,0)"
^XMB(3.9,98,2,296,0)=".84"
^XMB(3.9,98,2,297,0)="""BLD"",5479,""KRN"",3.6,0)"
^XMB(3.9,98,2,298,0)="3.6"
^XMB(3.9,98,2,299,0)="""BLD"",5479,""KRN"",3.8,0)"
^XMB(3.9,98,2,300,0)="3.8"
^XMB(3.9,98,2,301,0)="""BLD"",5479,""KRN"",9.2,0)"
^XMB(3.9,98,2,302,0)="9.2"
^XMB(3.9,98,2,303,0)="""BLD"",5479,""KRN"",9.8,0)"
^XMB(3.9,98,2,304,0)="9.8"
^XMB(3.9,98,2,305,0)="""BLD"",5479,""KRN"",9.8,""NM"",0)"
^XMB(3.9,98,2,306,0)="^9.68A^28^24"
^XMB(3.9,98,2,307,0)="""BLD"",5479,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,98,2,308,0)="PSBRPC^^0^B92329356"
^XMB(3.9,98,2,309,0)="""BLD"",5479,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,98,2,310,0)="PSBRPC3^^0^B296999"
^XMB(3.9,98,2,311,0)="""BLD"",5479,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,98,2,312,0)="PSBVDLPA^^0^B13252041"
^XMB(3.9,98,2,313,0)="""BLD"",5479,""KRN"",9.8,""NM"",6,0)"
^XMB(3.9,98,2,314,0)="PSBVDLPB^^0^B84312284"
^XMB(3.9,98,2,315,0)="""BLD"",5479,""KRN"",9.8,""NM"",9,0)"
^XMB(3.9,98,2,316,0)="PSBPAR^^0^B21353739"
^XMB(3.9,98,2,317,0)="""BLD"",5479,""KRN"",9.8,""NM"",10,0)"
^XMB(3.9,98,2,318,0)="PSBUTL^^0^B82345052"
^XMB(3.9,98,2,319,0)="""BLD"",5479,""KRN"",9.8,""NM"",11,0)"
^XMB(3.9,98,2,320,0)="PSBVDLU1^^0^B56415430"
^XMB(3.9,98,2,321,0)="""BLD"",5479,""KRN"",9.8,""NM"",12,0)"
^XMB(3.9,98,2,322,0)="PSBVDLUD^^0^B75826811"
^XMB(3.9,98,2,323,0)="""BLD"",5479,""KRN"",9.8,""NM"",13,0)"
^XMB(3.9,98,2,324,0)="PSBVDLVL^^0^B60130860"
^XMB(3.9,98,2,325,0)="""BLD"",5479,""KRN"",9.8,""NM"",14,0)"
^XMB(3.9,98,2,326,0)="PSBML^^0^B78116244"
^XMB(3.9,98,2,327,0)="""BLD"",5479,""KRN"",9.8,""NM"",15,0)"
^XMB(3.9,98,2,328,0)="PSBMLU^^0^B6301609"
^XMB(3.9,98,2,329,0)="""BLD"",5479,""KRN"",9.8,""NM"",16,0)"
^XMB(3.9,98,2,330,0)="PSBMLLKU^^0^B65545220"
^XMB(3.9,98,2,331,0)="""BLD"",5479,""KRN"",9.8,""NM"",17,0)"
^XMB(3.9,98,2,332,0)="PSBO^^0^B62943627"
^XMB(3.9,98,2,333,0)="""BLD"",5479,""KRN"",9.8,""NM"",18,0)"
^XMB(3.9,98,2,334,0)="PSBO1^^0^B5347535"
^XMB(3.9,98,2,335,0)="""BLD"",5479,""KRN"",9.8,""NM"",19,0)"
^XMB(3.9,98,2,336,0)="PSBOXA^^0^B24284983"
^XMB(3.9,98,2,337,0)="""BLD"",5479,""KRN"",9.8,""NM"",20,0)"
^XMB(3.9,98,2,338,0)="PSBML2^^0^B67471852"
^XMB(3.9,98,2,339,0)="""BLD"",5479,""KRN"",9.8,""NM"",21,0)"
^XMB(3.9,98,2,340,0)="PSBVDLU3^^0^B39075787"
^XMB(3.9,98,2,341,0)="""BLD"",5479,""KRN"",9.8,""NM"",22,0)"
^XMB(3.9,98,2,342,0)="PSBCSUTL^^0^B82253654"
^XMB(3.9,98,2,343,0)="""BLD"",5479,""KRN"",9.8,""NM"",23,0)"
^XMB(3.9,98,2,344,0)="PSBCSUTX^^0^B78201826"
^XMB(3.9,98,2,345,0)="""BLD"",5479,""KRN"",9.8,""NM"",24,0)"
^XMB(3.9,98,2,346,0)="PSBMLEN1^^0^B45353757"
^XMB(3.9,98,2,347,0)="""BLD"",5479,""KRN"",9.8,""NM"",25,0)"
^XMB(3.9,98,2,348,0)="PSBML3^^0^B40505286"
^XMB(3.9,98,2,349,0)="""BLD"",5479,""KRN"",9.8,""NM"",26,0)"
^XMB(3.9,98,2,350,0)="PSBPRN^^0^B23314092"
^XMB(3.9,98,2,351,0)="""BLD"",5479,""KRN"",9.8,""NM"",27,0)"
^XMB(3.9,98,2,352,0)="PSBOPM^^0^B77561765"
^XMB(3.9,98,2,353,0)="""BLD"",5479,""KRN"",9.8,""NM"",28,0)"
^XMB(3.9,98,2,354,0)="PSBOHDR^^0^B21187983"
^XMB(3.9,98,2,355,0)="""BLD"",5479,""KRN"",9.8,""NM"",""B"",""PSBCSUTL"",22)"
^XMB(3.9,98,2,356,0)=" "
^XMB(3.9,98,2,357,0)="""BLD"",5479,""KRN"",9.8,""NM"",""B"",""PSBCSUTX"",23)"
^XMB(3.9,98,2,358,0)=" "
^XMB(3.9,98,2,359,0)="""BLD"",5479,""KRN"",9.8,""NM"",""B"",""PSBML"",14)"
^XMB(3.9,98,2,360,0)=" "
^XMB(3.9,98,2,361,0)="""BLD"",5479,""KRN"",9.8,""NM"",""B"",""PSBML2"",20)"
^XMB(3.9,98,2,362,0)=" "
^XMB(3.9,98,2,363,0)="""BLD"",5479,""KRN"",9.8,""NM"",""B"",""PSBML3"",25)"
^XMB(3.9,98,2,364,0)=" "
^XMB(3.9,98,2,365,0)="""BLD"",5479,""KRN"",9.8,""NM"",""B"",""PSBMLEN1"",24)"
^XMB(3.9,98,2,366,0)=" "
^XMB(3.9,98,2,367,0)="""BLD"",5479,""KRN"",9.8,""NM"",""B"",""PSBMLLKU"",16)"
^XMB(3.9,98,2,368,0)=" "
^XMB(3.9,98,2,369,0)="""BLD"",5479,""KRN"",9.8,""NM"",""B"",""PSBMLU"",15)"
^XMB(3.9,98,2,370,0)=" "
^XMB(3.9,98,2,371,0)="""BLD"",5479,""KRN"",9.8,""NM"",""B"",""PSBO"",17)"
^XMB(3.9,98,2,372,0)=" "
^XMB(3.9,98,2,373,0)="""BLD"",5479,""KRN"",9.8,""NM"",""B"",""PSBO1"",18)"
^XMB(3.9,98,2,374,0)=" "
^XMB(3.9,98,2,375,0)="""BLD"",5479,""KRN"",9.8,""NM"",""B"",""PSBOHDR"",28)"
^XMB(3.9,98,2,376,0)=" "
^XMB(3.9,98,2,377,0)="""BLD"",5479,""KRN"",9.8,""NM"",""B"",""PSBOPM"",27)"
^XMB(3.9,98,2,378,0)=" "
^XMB(3.9,98,2,379,0)="""BLD"",5479,""KRN"",9.8,""NM"",""B"",""PSBOXA"",19)"
^XMB(3.9,98,2,380,0)=" "
^XMB(3.9,98,2,381,0)="""BLD"",5479,""KRN"",9.8,""NM"",""B"",""PSBPAR"",9)"
^XMB(3.9,98,2,382,0)=" "
^XMB(3.9,98,2,383,0)="""BLD"",5479,""KRN"",9.8,""NM"",""B"",""PSBPRN"",26)"
^XMB(3.9,98,2,384,0)=" "
^XMB(3.9,98,2,385,0)="""BLD"",5479,""KRN"",9.8,""NM"",""B"",""PSBRPC"",1)"
^XMB(3.9,98,2,386,0)=" "
^XMB(3.9,98,2,387,0)="""BLD"",5479,""KRN"",9.8,""NM"",""B"",""PSBRPC3"",2)"
^XMB(3.9,98,2,388,0)=" "
^XMB(3.9,98,2,389,0)="""BLD"",5479,""KRN"",9.8,""NM"",""B"",""PSBUTL"",10)"
^XMB(3.9,98,2,390,0)=" "
^XMB(3.9,98,2,391,0)="""BLD"",5479,""KRN"",9.8,""NM"",""B"",""PSBVDLPA"",3)"
^XMB(3.9,98,2,392,0)=" "
^XMB(3.9,98,2,393,0)="""BLD"",5479,""KRN"",9.8,""NM"",""B"",""PSBVDLPB"",6)"
^XMB(3.9,98,2,394,0)=" "
^XMB(3.9,98,2,395,0)="""BLD"",5479,""KRN"",9.8,""NM"",""B"",""PSBVDLU1"",11)"
^XMB(3.9,98,2,396,0)=" "
^XMB(3.9,98,2,397,0)="""BLD"",5479,""KRN"",9.8,""NM"",""B"",""PSBVDLU3"",21)"
^XMB(3.9,98,2,398,0)=" "
^XMB(3.9,98,2,399,0)="""BLD"",5479,""KRN"",9.8,""NM"",""B"",""PSBVDLUD"",12)"
^XMB(3.9,98,2,400,0)=" "
^XMB(3.9,98,2,401,0)="""BLD"",5479,""KRN"",9.8,""NM"",""B"",""PSBVDLVL"",13)"
^XMB(3.9,98,2,402,0)=" "
^XMB(3.9,98,2,403,0)="""BLD"",5479,""KRN"",19,0)"
^XMB(3.9,98,2,404,0)="19"
^XMB(3.9,98,2,405,0)="""BLD"",5479,""KRN"",19,""NM"",0)"
^XMB(3.9,98,2,406,0)="^9.68A^5^4"
^XMB(3.9,98,2,407,0)="""BLD"",5479,""KRN"",19,""NM"",2,0)"
^XMB(3.9,98,2,408,0)="PSB GUI CONTEXT - USER^^0"
^XMB(3.9,98,2,409,0)="""BLD"",5479,""KRN"",19,""NM"",3,0)"
^XMB(3.9,98,2,410,0)="PSBO^^3"
^XMB(3.9,98,2,411,0)="""BLD"",5479,""KRN"",19,""NM"",4,0)"
^XMB(3.9,98,2,412,0)="PSB MGR^^3"
^XMB(3.9,98,2,413,0)="""BLD"",5479,""KRN"",19,""NM"",5,0)"
^XMB(3.9,98,2,414,0)="PSBO XA^^0^"
^XMB(3.9,98,2,415,0)="""BLD"",5479,""KRN"",19,""NM"",""B"",""PSB GUI CONTEXT - USER"",2)"
^XMB(3.9,98,2,416,0)=" "
^XMB(3.9,98,2,417,0)="""BLD"",5479,""KRN"",19,""NM"",""B"",""PSB MGR"",4)"
^XMB(3.9,98,2,418,0)=" "
^XMB(3.9,98,2,419,0)="""BLD"",5479,""KRN"",19,""NM"",""B"",""PSBO"",3)"
^XMB(3.9,98,2,420,0)=" "
^XMB(3.9,98,2,421,0)="""BLD"",5479,""KRN"",19,""NM"",""B"",""PSBO XA"",5)"
^XMB(3.9,98,2,422,0)=" "
^XMB(3.9,98,2,423,0)="""BLD"",5479,""KRN"",19.1,0)"
^XMB(3.9,98,2,424,0)="19.1"
^XMB(3.9,98,2,425,0)="""BLD"",5479,""KRN"",19.1,""NM"",0)"
^XMB(3.9,98,2,426,0)="^9.68A^^"
^XMB(3.9,98,2,427,0)="""BLD"",5479,""KRN"",101,0)"
^XMB(3.9,98,2,428,0)="101"
^XMB(3.9,98,2,429,0)="""BLD"",5479,""KRN"",101,""NM"",0)"
^XMB(3.9,98,2,430,0)="^9.68A^^"
^XMB(3.9,98,2,431,0)="""BLD"",5479,""KRN"",409.61,0)"
^XMB(3.9,98,2,432,0)="409.61"
^XMB(3.9,98,2,433,0)="""BLD"",5479,""KRN"",409.61,""NM"",0)"
^XMB(3.9,98,2,434,0)="^9.68A^^"
^XMB(3.9,98,2,435,0)="""BLD"",5479,""KRN"",771,0)"
^XMB(3.9,98,2,436,0)="771"
^XMB(3.9,98,2,437,0)="""BLD"",5479,""KRN"",870,0)"
^XMB(3.9,98,2,438,0)="870"
^XMB(3.9,98,2,439,0)="""BLD"",5479,""KRN"",8989.51,0)"
^XMB(3.9,98,2,440,0)="8989.51"
^XMB(3.9,98,2,441,0)="""BLD"",5479,""KRN"",8989.51,""NM"",0)"
^XMB(3.9,98,2,442,0)="^9.68A^7^7"
^XMB(3.9,98,2,443,0)="""BLD"",5479,""KRN"",8989.51,""NM"",1,0)"
^XMB(3.9,98,2,444,0)="PSB VDL PATCH DAYS^^0"
^XMB(3.9,98,2,445,0)="""BLD"",5479,""KRN"",8989.51,""NM"",2,0)"
^XMB(3.9,98,2,446,0)="PSB COVERSHEET VIEWS COL SORT^^0"
^XMB(3.9,98,2,447,0)="""BLD"",5479,""KRN"",8989.51,""NM"",3,0)"
^XMB(3.9,98,2,448,0)="PSB COVERSHEET V1 COL WIDTHS^^0"
^XMB(3.9,98,2,449,0)="""BLD"",5479,""KRN"",8989.51,""NM"",4,0)"
^XMB(3.9,98,2,450,0)="PSB COVERSHEET V2 COL WIDTHS^^0"
^XMB(3.9,98,2,451,0)="""BLD"",5479,""KRN"",8989.51,""NM"",5,0)"
^XMB(3.9,98,2,452,0)="PSB COVERSHEET V3 COL WIDTHS^^0"
^XMB(3.9,98,2,453,0)="""BLD"",5479,""KRN"",8989.51,""NM"",6,0)"
^XMB(3.9,98,2,454,0)="PSB COVERSHEET V4 COL WIDTHS^^0"
^XMB(3.9,98,2,455,0)="""BLD"",5479,""KRN"",8989.51,""NM"",7,0)"
^XMB(3.9,98,2,456,0)="PSB MG ADMIN ERROR^^0"
^XMB(3.9,98,2,457,0)="""BLD"",5479,""KRN"",8989.51,""NM"",""B"",""PSB COVERSHEET V1 COL WIDTHS"",3)"
^XMB(3.9,98,2,458,0)=" "
^XMB(3.9,98,2,459,0)="""BLD"",5479,""KRN"",8989.51,""NM"",""B"",""PSB COVERSHEET V2 COL WIDTHS"",4)"
^XMB(3.9,98,2,460,0)=" "
^XMB(3.9,98,2,461,0)="""BLD"",5479,""KRN"",8989.51,""NM"",""B"",""PSB COVERSHEET V3 COL WIDTHS"",5)"
^XMB(3.9,98,2,462,0)=" "
^XMB(3.9,98,2,463,0)="""BLD"",5479,""KRN"",8989.51,""NM"",""B"",""PSB COVERSHEET V4 COL WIDTHS"",6)"
^XMB(3.9,98,2,464,0)=" "
^XMB(3.9,98,2,465,0)="""BLD"",5479,""KRN"",8989.51,""NM"",""B"",""PSB COVERSHEET VIEWS COL SORT"",2)"
^XMB(3.9,98,2,466,0)=" "
^XMB(3.9,98,2,467,0)="""BLD"",5479,""KRN"",8989.51,""NM"",""B"",""PSB MG ADMIN ERROR"",7)"
^XMB(3.9,98,2,468,0)=" "
^XMB(3.9,98,2,469,0)="""BLD"",5479,""KRN"",8989.51,""NM"",""B"",""PSB VDL PATCH DAYS"",1)"
^XMB(3.9,98,2,470,0)=" "
^XMB(3.9,98,2,471,0)="""BLD"",5479,""KRN"",8989.52,0)"
^XMB(3.9,98,2,472,0)="8989.52"
^XMB(3.9,98,2,473,0)="""BLD"",5479,""KRN"",8989.52,""NM"",0)"
^XMB(3.9,98,2,474,0)="^9.68A^^"
^XMB(3.9,98,2,475,0)="""BLD"",5479,""KRN"",8994,0)"
^XMB(3.9,98,2,476,0)="8994"
^XMB(3.9,98,2,477,0)="""BLD"",5479,""KRN"",8994,""NM"",0)"
^XMB(3.9,98,2,478,0)="^9.68A^4^4"
^XMB(3.9,98,2,479,0)="""BLD"",5479,""KRN"",8994,""NM"",1,0)"
^XMB(3.9,98,2,480,0)="PSB USERLOAD^^0"
^XMB(3.9,98,2,481,0)="""BLD"",5479,""KRN"",8994,""NM"",2,0)"
^XMB(3.9,98,2,482,0)="PSB USERSAVE^^0"
^XMB(3.9,98,2,483,0)="""BLD"",5479,""KRN"",8994,""NM"",3,0)"
^XMB(3.9,98,2,484,0)="PSB UTL XSTATUS SRCH^^0"
^XMB(3.9,98,2,485,0)="""BLD"",5479,""KRN"",8994,""NM"",4,0)"
^XMB(3.9,98,2,486,0)="PSB SCANPT^^0"
^XMB(3.9,98,2,487,0)="""BLD"",5479,""KRN"",8994,""NM"",""B"",""PSB SCANPT"",4)"
^XMB(3.9,98,2,488,0)=" "
^XMB(3.9,98,2,489,0)="""BLD"",5479,""KRN"",8994,""NM"",""B"",""PSB USERLOAD"",1)"
^XMB(3.9,98,2,490,0)=" "
^XMB(3.9,98,2,491,0)="""BLD"",5479,""KRN"",8994,""NM"",""B"",""PSB USERSAVE"",2)"
^XMB(3.9,98,2,492,0)=" "
^XMB(3.9,98,2,493,0)="""BLD"",5479,""KRN"",8994,""NM"",""B"",""PSB UTL XSTATUS SRCH"",3)"
^XMB(3.9,98,2,494,0)=" "
^XMB(3.9,98,2,495,0)="""BLD"",5479,""KRN"",""B"",.4,.4)"
^XMB(3.9,98,2,496,0)=" "
^XMB(3.9,98,2,497,0)="""BLD"",5479,""KRN"",""B"",.401,.401)"
^XMB(3.9,98,2,498,0)=" "
^XMB(3.9,98,2,499,0)="""BLD"",5479,""KRN"",""B"",.402,.402)"
^XMB(3.9,98,2,500,0)=" "
^XMB(3.9,98,2,501,0)="""BLD"",5479,""KRN"",""B"",.403,.403)"
^XMB(3.9,98,2,502,0)=" "
^XMB(3.9,98,2,503,0)="""BLD"",5479,""KRN"",""B"",.5,.5)"
^XMB(3.9,98,2,504,0)=" "
^XMB(3.9,98,2,505,0)="""BLD"",5479,""KRN"",""B"",.84,.84)"
^XMB(3.9,98,2,506,0)=" "
^XMB(3.9,98,2,507,0)="""BLD"",5479,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,98,2,508,0)=" "
^XMB(3.9,98,2,509,0)="""BLD"",5479,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,98,2,510,0)=" "
^XMB(3.9,98,2,511,0)="""BLD"",5479,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,98,2,512,0)=" "
^XMB(3.9,98,2,513,0)="""BLD"",5479,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,98,2,514,0)=" "
^XMB(3.9,98,2,515,0)="""BLD"",5479,""KRN"",""B"",19,19)"
^XMB(3.9,98,2,516,0)=" "
^XMB(3.9,98,2,517,0)="""BLD"",5479,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,98,2,518,0)=" "
^XMB(3.9,98,2,519,0)="""BLD"",5479,""KRN"",""B"",101,101)"
^XMB(3.9,98,2,520,0)=" "
^XMB(3.9,98,2,521,0)="""BLD"",5479,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,98,2,522,0)=" "
^XMB(3.9,98,2,523,0)="""BLD"",5479,""KRN"",""B"",771,771)"
^XMB(3.9,98,2,524,0)=" "
^XMB(3.9,98,2,525,0)="""BLD"",5479,""KRN"",""B"",870,870)"
^XMB(3.9,98,2,526,0)=" "
^XMB(3.9,98,2,527,0)="""BLD"",5479,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,98,2,528,0)=" "
^XMB(3.9,98,2,529,0)="""BLD"",5479,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,98,2,530,0)=" "
^XMB(3.9,98,2,531,0)="""BLD"",5479,""KRN"",""B"",8994,8994)"
^XMB(3.9,98,2,532,0)=" "
^XMB(3.9,98,2,533,0)="""BLD"",5479,""PRE"")"
^XMB(3.9,98,2,534,0)=" "
^XMB(3.9,98,2,535,0)="""BLD"",5479,""QUES"",0)"
^XMB(3.9,98,2,536,0)="^9.62^^"
^XMB(3.9,98,2,537,0)="""BLD"",5479,""REQB"",0)"
^XMB(3.9,98,2,538,0)="^9.611^8^8"
^XMB(3.9,98,2,539,0)="""BLD"",5479,""REQB"",1,0)"
^XMB(3.9,98,2,540,0)="PSB*3.0*16^2"
^XMB(3.9,98,2,541,0)="""BLD"",5479,""REQB"",2,0)"
^XMB(3.9,98,2,542,0)="PSB*3.0*20^2"
^XMB(3.9,98,2,543,0)="""BLD"",5479,""REQB"",3,0)"
^XMB(3.9,98,2,544,0)="PSB*3.0*4^2"
^XMB(3.9,98,2,545,0)="""BLD"",5479,""REQB"",4,0)"
^XMB(3.9,98,2,546,0)="PSB*3.0*9^2"
^XMB(3.9,98,2,547,0)="""BLD"",5479,""REQB"",5,0)"
^XMB(3.9,98,2,548,0)="PSB*3.0*11^2"
^XMB(3.9,98,2,549,0)="""BLD"",5479,""REQB"",6,0)"
^XMB(3.9,98,2,550,0)="PSB*3.0*3^2"
^XMB(3.9,98,2,551,0)="""BLD"",5479,""REQB"",7,0)"
^XMB(3.9,98,2,552,0)="OR*3.0*215^2"
^XMB(3.9,98,2,553,0)="""BLD"",5479,""REQB"",8,0)"
^XMB(3.9,98,2,554,0)="PSB*3.0*5^2"
^XMB(3.9,98,2,555,0)="""BLD"",5479,""REQB"",""B"",""OR*3.0*215"",7)"
^XMB(3.9,98,2,556,0)=" "
^XMB(3.9,98,2,557,0)="""BLD"",5479,""REQB"",""B"",""PSB*3.0*11"",5)"
^XMB(3.9,98,2,558,0)=" "
^XMB(3.9,98,2,559,0)="""BLD"",5479,""REQB"",""B"",""PSB*3.0*16"",1)"
^XMB(3.9,98,2,560,0)=" "
^XMB(3.9,98,2,561,0)="""BLD"",5479,""REQB"",""B"",""PSB*3.0*20"",2)"
^XMB(3.9,98,2,562,0)=" "
^XMB(3.9,98,2,563,0)="""BLD"",5479,""REQB"",""B"",""PSB*3.0*3"",6)"
^XMB(3.9,98,2,564,0)=" "
^XMB(3.9,98,2,565,0)="""BLD"",5479,""REQB"",""B"",""PSB*3.0*4"",3)"
^XMB(3.9,98,2,566,0)=" "
^XMB(3.9,98,2,567,0)="""BLD"",5479,""REQB"",""B"",""PSB*3.0*5"",8)"
^XMB(3.9,98,2,568,0)=" "
^XMB(3.9,98,2,569,0)="""BLD"",5479,""REQB"",""B"",""PSB*3.0*9"",4)"
^XMB(3.9,98,2,570,0)=" "
^XMB(3.9,98,2,571,0)="""FIA"",53.69)"
^XMB(3.9,98,2,572,0)="BCMA REPORT REQUEST"
^XMB(3.9,98,2,573,0)="""FIA"",53.69,0)"
^XMB(3.9,98,2,574,0)="^PSB(53.69,"
^XMB(3.9,98,2,575,0)="""FIA"",53.69,0,0)"
^XMB(3.9,98,2,576,0)="53.69"
^XMB(3.9,98,2,577,0)="""FIA"",53.69,0,1)"
^XMB(3.9,98,2,578,0)="y^y^p^^^^n^^n"
^XMB(3.9,98,2,579,0)="""FIA"",53.69,0,10)"
^XMB(3.9,98,2,580,0)=" "
^XMB(3.9,98,2,581,0)="""FIA"",53.69,0,11)"
^XMB(3.9,98,2,582,0)=" "
^XMB(3.9,98,2,583,0)="""FIA"",53.69,0,""RLRO"")"
^XMB(3.9,98,2,584,0)=" "
^XMB(3.9,98,2,585,0)="""FIA"",53.69,0,""VR"")"
^XMB(3.9,98,2,586,0)="3.0^PSB"
^XMB(3.9,98,2,587,0)="""FIA"",53.69,53.69)"
^XMB(3.9,98,2,588,0)="1"
^XMB(3.9,98,2,589,0)="""FIA"",53.69,53.69,.05)"
^XMB(3.9,98,2,590,0)=" "
^XMB(3.9,98,2,591,0)="""KRN"",.403,93,-1)"
^XMB(3.9,98,2,592,0)="0^2"
^XMB(3.9,98,2,593,0)="""KRN"",.403,93,0)"
^XMB(3.9,98,2,594,0)="PSB NEW IV ENTRY^^^^2990323.1252^^^53.79^0^0^1"
^XMB(3.9,98,2,595,0)="""KRN"",.403,93,11)"
^XMB(3.9,98,2,596,0)="S PSBSAVE=0"
^XMB(3.9,98,2,597,0)="""KRN"",.403,93,14)"
^XMB(3.9,98,2,598,0)="S PSBSAVE=1"
^XMB(3.9,98,2,599,0)="""KRN"",.403,93,20)"
^XMB(3.9,98,2,600,0)="S PSBSAVE=0"
^XMB(3.9,98,2,601,0)="""KRN"",.403,93,40,0)"
^XMB(3.9,98,2,602,0)="^.4031I^2^2"
^XMB(3.9,98,2,603,0)="""KRN"",.403,93,40,1,0)"
^XMB(3.9,98,2,604,0)="1^^1,1"
^XMB(3.9,98,2,605,0)="""KRN"",.403,93,40,1,1)"
^XMB(3.9,98,2,606,0)="Page 1"
^XMB(3.9,98,2,607,0)="""KRN"",.403,93,40,1,40,0)"
^XMB(3.9,98,2,608,0)="^.4032IP^323^1"
^XMB(3.9,98,2,609,0)="""KRN"",.403,93,40,1,40,323,0)"
^XMB(3.9,98,2,610,0)="PSB NEW IV ENTRY^1^1,1^e"
^XMB(3.9,98,2,611,0)="""KRN"",.403,93,40,2,0)"
^XMB(3.9,98,2,612,0)="2^^5,5^^^1^15,75"
^XMB(3.9,98,2,613,0)="""KRN"",.403,93,40,2,1)"
^XMB(3.9,98,2,614,0)="Page 2"
^XMB(3.9,98,2,615,0)="""KRN"",.403,93,40,2,40,0)"
^XMB(3.9,98,2,616,0)="^.4032IP^325^2"
^XMB(3.9,98,2,617,0)="""KRN"",.403,93,40,2,40,324,0)"
^XMB(3.9,98,2,618,0)="PSB NEW IV ENTRY ADD HDR^1^1,1^d"
^XMB(3.9,98,2,619,0)="""KRN"",.403,93,40,2,40,325,0)"
^XMB(3.9,98,2,620,0)="PSB NEW IV ENTRY ADD^2^4,3^e"
^XMB(3.9,98,2,621,0)="""KRN"",.403,93,40,2,40,325,2)"
^XMB(3.9,98,2,622,0)="3^B^f^1"
^XMB(3.9,98,2,623,0)="""KRN"",.403,113,-1)"
^XMB(3.9,98,2,624,0)="0^1"
^XMB(3.9,98,2,625,0)="""KRN"",.403,113,0)"
^XMB(3.9,98,2,626,0)="PSBO XA^^^^2990313.1144^^Unknown Action Status Report^53.69^0^0^1"
^XMB(3.9,98,2,627,0)="""KRN"",.403,113,11)"
^XMB(3.9,98,2,628,0)="S PSBSAVE=0"
^XMB(3.9,98,2,629,0)="""KRN"",.403,113,14)"
^XMB(3.9,98,2,630,0)="S PSBSAVE=1"
^XMB(3.9,98,2,631,0)="""KRN"",.403,113,20)"
^XMB(3.9,98,2,632,0)="D VAL^PSBO("".16;.18;.06;.07"")"
^XMB(3.9,98,2,633,0)="""KRN"",.403,113,40,0)"
^XMB(3.9,98,2,634,0)="^.4031I^1^1"
^XMB(3.9,98,2,635,0)="""KRN"",.403,113,40,1,0)"
^XMB(3.9,98,2,636,0)="1^^1,1"
^XMB(3.9,98,2,637,0)="""KRN"",.403,113,40,1,1)"
^XMB(3.9,98,2,638,0)="Page 1"
^XMB(3.9,98,2,639,0)="""KRN"",.403,113,40,1,40,0)"
^XMB(3.9,98,2,640,0)="^.4032IP^426^3"
^XMB(3.9,98,2,641,0)="""KRN"",.403,113,40,1,40,422,0)"
^XMB(3.9,98,2,642,0)="PSBO XHDR^1^1,1^d"
^XMB(3.9,98,2,643,0)="""KRN"",.403,113,40,1,40,424,0)"
^XMB(3.9,98,2,644,0)="PSBO XFTR^3^10,1^e"
^XMB(3.9,98,2,645,0)="""KRN"",.403,113,40,1,40,426,0)"
^XMB(3.9,98,2,646,0)="PSBO XDATE XA^2^3,1^e"
^XMB(3.9,98,2,647,0)="""KRN"",.404,323,0)"
^XMB(3.9,98,2,648,0)="PSB NEW IV ENTRY^53.79"
^XMB(3.9,98,2,649,0)="""KRN"",.404,323,40,0)"
^XMB(3.9,98,2,650,0)="^.4044I^13^13"
^XMB(3.9,98,2,651,0)="""KRN"",.404,323,40,1,0)"
^XMB(3.9,98,2,652,0)="4^^3"
^XMB(3.9,98,2,653,0)="""KRN"",.404,323,40,1,1)"
^XMB(3.9,98,2,654,0)=".01"
^XMB(3.9,98,2,655,0)="""KRN"",.404,323,40,1,2)"
^XMB(3.9,98,2,656,0)="4,16^30"
^XMB(3.9,98,2,657,0)="""KRN"",.404,323,40,1,4)"
^XMB(3.9,98,2,658,0)="0^^^1"
^XMB(3.9,98,2,659,0)="""KRN"",.404,323,40,2,0)"
^XMB(3.9,98,2,660,0)="1^Medication Log Manual Entry - IV Order^1"
^XMB(3.9,98,2,661,0)="""KRN"",.404,323,40,2,2)"
^XMB(3.9,98,2,662,0)="^^1,1"
^XMB(3.9,98,2,663,0)="""KRN"",.404,323,40,3,0)"
^XMB(3.9,98,2,664,0)="2^!M^1"
^XMB(3.9,98,2,665,0)="""KRN"",.404,323,40,3,.1)"
^XMB(3.9,98,2,666,0)="S Y=$TR($J("""",IOM),"" "",""-"")"
^XMB(3.9,98,2,667,0)="""KRN"",.404,323,40,3,2)"
^XMB(3.9,98,2,668,0)="^^2,1"
^XMB(3.9,98,2,669,0)="""KRN"",.404,323,40,4,0)"
^XMB(3.9,98,2,670,0)="5^!M^1"
^XMB(3.9,98,2,671,0)="""KRN"",.404,323,40,4,.1)"
^XMB(3.9,98,2,672,0)="S Y=""SSN: ""_$$GET1^DIQ(2,$P(^PSB(53.79,DA,0),U)_"","",.09)"
^XMB(3.9,98,2,673,0)="""KRN"",.404,323,40,4,2)"
^XMB(3.9,98,2,674,0)="^^4,47"
^XMB(3.9,98,2,675,0)="""KRN"",.404,323,40,5,0)"
^XMB(3.9,98,2,676,0)="7^Admin Status^3"
^XMB(3.9,98,2,677,0)="""KRN"",.404,323,40,5,1)"
^XMB(3.9,98,2,678,0)=".09"
^XMB(3.9,98,2,679,0)="""KRN"",.404,323,40,5,2)"
^XMB(3.9,98,2,680,0)="7,18^7^7,2"
^XMB(3.9,98,2,681,0)="""KRN"",.404,323,40,5,3)"
^XMB(3.9,98,2,682,0)=" "
^XMB(3.9,98,2,683,0)="""KRN"",.404,323,40,5,3.1)"
^XMB(3.9,98,2,684,0)=" "
^XMB(3.9,98,2,685,0)="""KRN"",.404,323,40,5,4)"
^XMB(3.9,98,2,686,0)="^^^0"
^XMB(3.9,98,2,687,0)="""KRN"",.404,323,40,5,14)"
^XMB(3.9,98,2,688,0)="D:$G(PSBMMEN) VALID^PSBMLEN"
^XMB(3.9,98,2,689,0)="""KRN"",.404,323,40,6,0)"
^XMB(3.9,98,2,690,0)="8^Admin Date/Time^3"
^XMB(3.9,98,2,691,0)="""KRN"",.404,323,40,6,1)"
^XMB(3.9,98,2,692,0)=".06"
^XMB(3.9,98,2,693,0)="""KRN"",.404,323,40,6,2)"
^XMB(3.9,98,2,694,0)="7,44^20^7,27"
^XMB(3.9,98,2,695,0)="""KRN"",.404,323,40,6,4)"
^XMB(3.9,98,2,696,0)="1"
^XMB(3.9,98,2,697,0)="""KRN"",.404,323,40,6,14)"
^XMB(3.9,98,2,698,0)="D FDATE^PSBMLEN1"
^XMB(3.9,98,2,699,0)="""KRN"",.404,323,40,7,0)"
^XMB(3.9,98,2,700,0)="10^PRN Reason^3"
^XMB(3.9,98,2,701,0)="""KRN"",.404,323,40,7,1)"
^XMB(3.9,98,2,702,0)=".21"
^XMB(3.9,98,2,703,0)="""KRN"",.404,323,40,7,2)"
^XMB(3.9,98,2,704,0)="10,22^58^10,2"
^XMB(3.9,98,2,705,0)="""KRN"",.404,323,40,8,0)"
^XMB(3.9,98,2,706,0)="11^PRN Effectiveness^3"
^XMB(3.9,98,2,707,0)="""KRN"",.404,323,40,8,1)"
^XMB(3.9,98,2,708,0)=".22"
^XMB(3.9,98,2,709,0)="""KRN"",.404,323,40,8,2)"
^XMB(3.9,98,2,710,0)="11,22^58^11,2"
^XMB(3.9,98,2,711,0)="""KRN"",.404,323,40,9,0)"
^XMB(3.9,98,2,712,0)="13^Comment (Required)^2"
^XMB(3.9,98,2,713,0)="""KRN"",.404,323,40,9,2)"
^XMB(3.9,98,2,714,0)="16,2^78^15,2"
^XMB(3.9,98,2,715,0)="""KRN"",.404,323,40,9,4)"
^XMB(3.9,98,2,716,0)="1"
^XMB(3.9,98,2,717,0)="""KRN"",.404,323,40,9,20)"
^XMB(3.9,98,2,718,0)="F^^1:150"
^XMB(3.9,98,2,719,0)="""KRN"",.404,323,40,9,23)"
^XMB(3.9,98,2,720,0)="D COMMENT^PSBML(DA,X)"
^XMB(3.9,98,2,721,0)="""KRN"",.404,323,40,10,0)"
^XMB(3.9,98,2,722,0)="6^Medication^3"
^XMB(3.9,98,2,723,0)="""KRN"",.404,323,40,10,1)"
^XMB(3.9,98,2,724,0)=".08"
^XMB(3.9,98,2,725,0)="""KRN"",.404,323,40,10,2)"
^XMB(3.9,98,2,726,0)="5,16^40^5,2"
^XMB(3.9,98,2,727,0)="""KRN"",.404,323,40,10,4)"
^XMB(3.9,98,2,728,0)="^^^1"
^XMB(3.9,98,2,729,0)="""KRN"",.404,323,40,11,0)"
^XMB(3.9,98,2,730,0)="3^Patient:^1"
^XMB(3.9,98,2,731,0)="""KRN"",.404,323,40,11,2)"
^XMB(3.9,98,2,732,0)="^^4,2"
^XMB(3.9,98,2,733,0)="""KRN"",.404,323,40,12,0)"
^XMB(3.9,98,2,734,0)="9^Injection Site^3"
^XMB(3.9,98,2,735,0)="""KRN"",.404,323,40,12,1)"
^XMB(3.9,98,2,736,0)=".16"
^XMB(3.9,98,2,737,0)="""KRN"",.404,323,40,12,2)"
^XMB(3.9,98,2,738,0)="8,18^30^8,2"
^XMB(3.9,98,2,739,0)="""KRN"",.404,323,40,13,0)"
^XMB(3.9,98,2,740,0)="12^Additives...^2"
^XMB(3.9,98,2,741,0)="""KRN"",.404,323,40,13,2)"
^XMB(3.9,98,2,742,0)="13,17^1^13,2^1"
^XMB(3.9,98,2,743,0)="""KRN"",.404,323,40,13,7)"
^XMB(3.9,98,2,744,0)="^2"
^XMB(3.9,98,2,745,0)="""KRN"",.404,323,40,13,20)"
^XMB(3.9,98,2,746,0)="F^^1:1"
^XMB(3.9,98,2,747,0)="""KRN"",.404,324,0)"
^XMB(3.9,98,2,748,0)="PSB NEW IV ENTRY ADD HDR^53.79^"
^XMB(3.9,98,2,749,0)="""KRN"",.404,324,40,0)"
^XMB(3.9,98,2,750,0)="^.4044I^3^3"
^XMB(3.9,98,2,751,0)="""KRN"",.404,324,40,1,0)"
^XMB(3.9,98,2,752,0)="1^ Additives ^1"
^XMB(3.9,98,2,753,0)="""KRN"",.404,324,40,1,2)"
^XMB(3.9,98,2,754,0)="^^1,2"
^XMB(3.9,98,2,755,0)="""KRN"",.404,324,40,2,0)"
^XMB(3.9,98,2,756,0)="2^Additives                        Order   Given  Units^1"
^XMB(3.9,98,2,757,0)="""KRN"",.404,324,40,2,2)"
^XMB(3.9,98,2,758,0)="^^3,3"
^XMB(3.9,98,2,759,0)="""KRN"",.404,324,40,3,0)"
^XMB(3.9,98,2,760,0)="3^Units   Units^1"
^XMB(3.9,98,2,761,0)="""KRN"",.404,324,40,3,2)"
^XMB(3.9,98,2,762,0)="^^2,36"
^XMB(3.9,98,2,763,0)="""KRN"",.404,325,0)"
^XMB(3.9,98,2,764,0)="PSB NEW IV ENTRY ADD^53.796"
^XMB(3.9,98,2,765,0)="""KRN"",.404,325,40,0)"
^XMB(3.9,98,2,766,0)="^.4044I^4^4"
^XMB(3.9,98,2,767,0)="""KRN"",.404,325,40,1,0)"
^XMB(3.9,98,2,768,0)="1^^3"
^XMB(3.9,98,2,769,0)="""KRN"",.404,325,40,1,1)"
^XMB(3.9,98,2,770,0)=".01"
^XMB(3.9,98,2,771,0)="""KRN"",.404,325,40,1,2)"
^XMB(3.9,98,2,772,0)="1,1^30"
^XMB(3.9,98,2,773,0)="""KRN"",.404,325,40,1,4)"
^XMB(3.9,98,2,774,0)="^^^1"
^XMB(3.9,98,2,775,0)="""KRN"",.404,325,40,2,0)"
^XMB(3.9,98,2,776,0)="2^^3"
^XMB(3.9,98,2,777,0)="""KRN"",.404,325,40,2,1)"
^XMB(3.9,98,2,778,0)=".02"
^XMB(3.9,98,2,779,0)="""KRN"",.404,325,40,2,2)"
^XMB(3.9,98,2,780,0)="1,33^6"
^XMB(3.9,98,2,781,0)="""KRN"",.404,325,40,2,4)"
^XMB(3.9,98,2,782,0)="^^1^1"
^XMB(3.9,98,2,783,0)="""KRN"",.404,325,40,3,0)"
^XMB(3.9,98,2,784,0)="3^^3"
^XMB(3.9,98,2,785,0)="""KRN"",.404,325,40,3,1)"
^XMB(3.9,98,2,786,0)=".03"
^XMB(3.9,98,2,787,0)="""KRN"",.404,325,40,3,2)"
^XMB(3.9,98,2,788,0)="1,41^6"
^XMB(3.9,98,2,789,0)="""KRN"",.404,325,40,3,4)"
^XMB(3.9,98,2,790,0)="1^^1"
^XMB(3.9,98,2,791,0)="""KRN"",.404,325,40,4,0)"
^XMB(3.9,98,2,792,0)="4^^3"
^XMB(3.9,98,2,793,0)="""KRN"",.404,325,40,4,1)"
^XMB(3.9,98,2,794,0)=".04"
^XMB(3.9,98,2,795,0)="""KRN"",.404,325,40,4,2)"
^XMB(3.9,98,2,796,0)="1,49^10"
^XMB(3.9,98,2,797,0)="""KRN"",.404,325,40,4,4)"
^XMB(3.9,98,2,798,0)="1"
^XMB(3.9,98,2,799,0)="""KRN"",.404,422,0)"
^XMB(3.9,98,2,800,0)="PSBO XHDR^53.69^"
^XMB(3.9,98,2,801,0)="""KRN"",.404,422,40,0)"
^XMB(3.9,98,2,802,0)="^.4044I^4^3"
^XMB(3.9,98,2,803,0)="""KRN"",.404,422,40,1,0)"
^XMB(3.9,98,2,804,0)="1^!M^1"
^XMB(3.9,98,2,805,0)="""KRN"",.404,422,40,1,.1)"
^XMB(3.9,98,2,806,0)="S Y=""Request #: ""_$P(^PSB(53.69,DA,0),U)"
^XMB(3.9,98,2,807,0)="""KRN"",.404,422,40,1,2)"
^XMB(3.9,98,2,808,0)="^^1,1"
^XMB(3.9,98,2,809,0)="""KRN"",.404,422,40,3,0)"
^XMB(3.9,98,2,810,0)="3^!M^1"
^XMB(3.9,98,2,811,0)="""KRN"",.404,422,40,3,.1)"
^XMB(3.9,98,2,812,0)="S Y=$TR($J("""",80),"" "",""-"")"
^XMB(3.9,98,2,813,0)="""KRN"",.404,422,40,3,2)"
^XMB(3.9,98,2,814,0)="^^2,1"
^XMB(3.9,98,2,815,0)="""KRN"",.404,422,40,4,0)"
^XMB(3.9,98,2,816,0)="2^!M^1"
^XMB(3.9,98,2,817,0)="""KRN"",.404,422,40,4,.1)"
^XMB(3.9,98,2,818,0)="S Y=$J($$GET1^DIQ(53.69,DA_"","",.05),40)"
^XMB(3.9,98,2,819,0)="""KRN"",.404,422,40,4,2)"
^XMB(3.9,98,2,820,0)="^^1,41"
^XMB(3.9,98,2,821,0)="""KRN"",.404,424,0)"
^XMB(3.9,98,2,822,0)="PSBO XFTR^53.69"
^XMB(3.9,98,2,823,0)="""KRN"",.404,424,40,0)"
^XMB(3.9,98,2,824,0)="^.4044I^3^3"
^XMB(3.9,98,2,825,0)="""KRN"",.404,424,40,1,0)"
^XMB(3.9,98,2,826,0)="1^Print to DEVICE^3"
^XMB(3.9,98,2,827,0)="""KRN"",.404,424,40,1,1)"
^XMB(3.9,98,2,828,0)=".06"
^XMB(3.9,98,2,829,0)="""KRN"",.404,424,40,1,2)"
^XMB(3.9,98,2,830,0)="2,58^22^2,41"
^XMB(3.9,98,2,831,0)="""KRN"",.404,424,40,1,3)"
^XMB(3.9,98,2,832,0)="!M"
^XMB(3.9,98,2,833,0)="""KRN"",.404,424,40,1,3.1)"
^XMB(3.9,98,2,834,0)="S Y=$$GET^XPAR(""USR"",""PSB PRINTER USER DEFAULT"",1,""E"")"
^XMB(3.9,98,2,835,0)="""KRN"",.404,424,40,1,13)"
^XMB(3.9,98,2,836,0)="D EN^XPAR(""USR"",""PSB PRINTER USER DEFAULT"",1,""`""_X)"
^XMB(3.9,98,2,837,0)="""KRN"",.404,424,40,2,0)"
^XMB(3.9,98,2,838,0)="2^Queue To Run At^3"
^XMB(3.9,98,2,839,0)="""KRN"",.404,424,40,2,1)"
^XMB(3.9,98,2,840,0)=".07"
^XMB(3.9,98,2,841,0)="""KRN"",.404,424,40,2,2)"
^XMB(3.9,98,2,842,0)="3,58^17^3,41"
^XMB(3.9,98,2,843,0)="""KRN"",.404,424,40,2,3)"
^XMB(3.9,98,2,844,0)="NOW"
^XMB(3.9,98,2,845,0)="""KRN"",.404,424,40,3,0)"
^XMB(3.9,98,2,846,0)="3^Instructions: PF1-E Submit   PF1-Q Cancel   PF1-R Refresh   <Ret> Re-Edit^2"
^XMB(3.9,98,2,847,0)="""KRN"",.404,424,40,3,2)"
^XMB(3.9,98,2,848,0)="8,76^1^8,1"
^XMB(3.9,98,2,849,0)="""KRN"",.404,424,40,3,10)"
^XMB(3.9,98,2,850,0)="S DDSBR=""1^2^1"" ; Return to field 1 block 2"
^XMB(3.9,98,2,851,0)="""KRN"",.404,424,40,3,20)"
^XMB(3.9,98,2,852,0)="F^^1:1"
^XMB(3.9,98,2,853,0)="""KRN"",.404,426,0)"
^XMB(3.9,98,2,854,0)="PSBO XDATE XA^53.69"
^XMB(3.9,98,2,855,0)="""KRN"",.404,426,40,0)"
^XMB(3.9,98,2,856,0)="^.4044I^3^3"
^XMB(3.9,98,2,857,0)="""KRN"",.404,426,40,1,0)"
^XMB(3.9,98,2,858,0)="1^Start Date^3"
^XMB(3.9,98,2,859,0)="""KRN"",.404,426,40,1,1)"
^XMB(3.9,98,2,860,0)=".16"
^XMB(3.9,98,2,861,0)="""KRN"",.404,426,40,1,2)"
^XMB(3.9,98,2,862,0)="4,14^11^4,2"
^XMB(3.9,98,2,863,0)="""KRN"",.404,426,40,1,3)"
^XMB(3.9,98,2,864,0)="Today-7"
^XMB(3.9,98,2,865,0)="""KRN"",.404,426,40,2,0)"
^XMB(3.9,98,2,866,0)="2^Stop Date^3"
^XMB(3.9,98,2,867,0)="""KRN"",.404,426,40,2,1)"
^XMB(3.9,98,2,868,0)=".18"
^XMB(3.9,98,2,869,0)="""KRN"",.404,426,40,2,2)"
^XMB(3.9,98,2,870,0)="4,40^11^4,29"
^XMB(3.9,98,2,871,0)="""KRN"",.404,426,40,2,3)"
^XMB(3.9,98,2,872,0)="Today"
^XMB(3.9,98,2,873,0)="""KRN"",.404,426,40,3,0)"
^XMB(3.9,98,2,874,0)="3^Select Division^3"
^XMB(3.9,98,2,875,0)="""KRN"",.404,426,40,3,1)"
^XMB(3.9,98,2,876,0)=".04"
^XMB(3.9,98,2,877,0)="""KRN"",.404,426,40,3,2)"
^XMB(3.9,98,2,878,0)="6,19^30^6,2"
^XMB(3.9,98,2,879,0)="""KRN"",.404,426,40,3,3)"
^XMB(3.9,98,2,880,0)="DUZ(2)"
^XMB(3.9,98,2,881,0)="""KRN"",.404,426,40,3,3.1)"
^XMB(3.9,98,2,882,0)=" "
^XMB(3.9,98,2,883,0)="""KRN"",.404,426,40,3,4)"
^XMB(3.9,98,2,884,0)="1"
^XMB(3.9,98,2,885,0)="""KRN"",19,11586,-1)"
^XMB(3.9,98,2,886,0)="0^2"
^XMB(3.9,98,2,887,0)="""KRN"",19,11586,0)"
^XMB(3.9,98,2,888,0)="PSB GUI CONTEXT - USER^BCMA Client Context^^B^^^^^^^^"
^XMB(3.9,98,2,889,0)="""KRN"",19,11586,99)"
^XMB(3.9,98,2,890,0)="59973,28281"
^XMB(3.9,98,2,891,0)="""KRN"",19,11586,99.1)"
^XMB(3.9,98,2,892,0)="59676,26361"
^XMB(3.9,98,2,893,0)="""KRN"",19,11586,""RPC"",0)"
^XMB(3.9,98,2,894,0)="^19.05P^51^51"
^XMB(3.9,98,2,895,0)="""KRN"",19,11586,""RPC"",2,0)"
^XMB(3.9,98,2,896,0)="PSB FMDATE"
^XMB(3.9,98,2,897,0)="""KRN"",19,11586,""RPC"",4,0)"
^XMB(3.9,98,2,898,0)="PSB GETPRNS"
^XMB(3.9,98,2,899,0)="""KRN"",19,11586,""RPC"",5,0)"
^XMB(3.9,98,2,900,0)="PSB INSTRUCTOR"
^XMB(3.9,98,2,901,0)="""KRN"",19,11586,""RPC"",7,0)"
^XMB(3.9,98,2,902,0)="PSB MEDICATION HISTORY"
^XMB(3.9,98,2,903,0)="""KRN"",19,11586,""RPC"",8,0)"
^XMB(3.9,98,2,904,0)="PSB PARAMETER"
^XMB(3.9,98,2,905,0)="""KRN"",19,11586,""RPC"",12,0)"
^XMB(3.9,98,2,906,0)="PSB SCANMED"
^XMB(3.9,98,2,907,0)="""KRN"",19,11586,""RPC"",13,0)"
^XMB(3.9,98,2,908,0)="PSB SCANPT"
^XMB(3.9,98,2,909,0)="""KRN"",19,11586,""RPC"",14,0)"
^XMB(3.9,98,2,910,0)="PSB SERVER CLOCK VARIANCE"
^XMB(3.9,98,2,911,0)="""KRN"",19,11586,""RPC"",15,0)"
^XMB(3.9,98,2,912,0)="PSB SUBMIT MISSING DOSE"
^XMB(3.9,98,2,913,0)="""KRN"",19,11586,""RPC"",16,0)"
^XMB(3.9,98,2,914,0)="PSB TRANSACTION"
^XMB(3.9,98,2,915,0)="""KRN"",19,11586,""RPC"",17,0)"
^XMB(3.9,98,2,916,0)="PSB USERLOAD"
^XMB(3.9,98,2,917,0)="""KRN"",19,11586,""RPC"",18,0)"
^XMB(3.9,98,2,918,0)="PSB USERSAVE"
^XMB(3.9,98,2,919,0)="""KRN"",19,11586,""RPC"",19,0)"
^XMB(3.9,98,2,920,0)="PSB VALIDATE ESIG"
^XMB(3.9,98,2,921,0)="""KRN"",19,11586,""RPC"",20,0)"
^XMB(3.9,98,2,922,0)="PSB VALIDATE ORDER"
^XMB(3.9,98,2,923,0)="""KRN"",19,11586,""RPC"",21,0)"
^XMB(3.9,98,2,924,0)="PSB CHECK SERVER"
^XMB(3.9,98,2,925,0)="""KRN"",19,11586,""RPC"",23,0)"
^XMB(3.9,98,2,926,0)="DG SENSITIVE RECORD BULLETIN"
^XMB(3.9,98,2,927,0)="""KRN"",19,11586,""RPC"",24,0)"
^XMB(3.9,98,2,928,0)="DG SENSITIVE RECORD ACCESS"
^XMB(3.9,98,2,929,0)="""KRN"",19,11586,""RPC"",26,0)"
^XMB(3.9,98,2,930,0)="PSB GETORDERTAB"
^XMB(3.9,98,2,931,0)="""KRN"",19,11586,""RPC"",27,0)"
^XMB(3.9,98,2,932,0)="PSB GETIVPAR"
^XMB(3.9,98,2,933,0)="""KRN"",19,11586,""RPC"",28,0)"
^XMB(3.9,98,2,934,0)="PSB PUTIVPAR"
^XMB(3.9,98,2,935,0)="""KRN"",19,11586,""RPC"",29,0)"
^XMB(3.9,98,2,936,0)="PSB DEVICE"
^XMB(3.9,98,2,937,0)="""KRN"",19,11586,""RPC"",30,0)"
^XMB(3.9,98,2,938,0)="PSB IV ORDER HISTORY"
^XMB(3.9,98,2,939,0)="""KRN"",19,11586,""RPC"",31,0)"
^XMB(3.9,98,2,940,0)="PSB BAG DETAIL"
^XMB(3.9,98,2,941,0)="""KRN"",19,11586,""RPC"",32,0)"
^XMB(3.9,98,2,942,0)="PSB WARDLIST"
^XMB(3.9,98,2,943,0)="""KRN"",19,11586,""RPC"",33,0)"
^XMB(3.9,98,2,944,0)="PSB MAIL"
^XMB(3.9,98,2,945,0)="""KRN"",19,11586,""RPC"",34,0)"
^XMB(3.9,98,2,946,0)="PSB ALLERGY"
^XMB(3.9,98,2,947,0)="""KRN"",19,11586,""RPC"",35,0)"
^XMB(3.9,98,2,948,0)="PSB GETPROVIDER"
^XMB(3.9,98,2,949,0)="""KRN"",19,11586,""RPC"",36,0)"
^XMB(3.9,98,2,950,0)="PSB REPORT"
^XMB(3.9,98,2,951,0)="""KRN"",19,11586,""RPC"",37,0)"
^XMB(3.9,98,2,952,0)="PSB MOB DRUG LIST"
^XMB(3.9,98,2,953,0)="""KRN"",19,11586,""RPC"",38,0)"
^XMB(3.9,98,2,954,0)="PSB MAXDAYS"
^XMB(3.9,98,2,955,0)="""KRN"",19,11586,""RPC"",39,0)"
^XMB(3.9,98,2,956,0)="PSB NURS WARDLIST"
^XMB(3.9,98,2,957,0)="""KRN"",19,11586,""RPC"",40,0)"
^XMB(3.9,98,2,958,0)="PSB CPRS ORDER"
^XMB(3.9,98,2,959,0)="""KRN"",19,11586,""RPC"",41,0)"
^XMB(3.9,98,2,960,0)="ORWUBCMA USERINFO"
^XMB(3.9,98,2,961,0)="""KRN"",19,11586,""RPC"",43,0)"
^XMB(3.9,98,2,962,0)="ORBCMA5 GETUDID"
^XMB(3.9,98,2,963,0)="""KRN"",19,11586,""RPC"",44,0)"
^XMB(3.9,98,2,964,0)="ORBCMA5 GETIVID"
^XMB(3.9,98,2,965,0)="""KRN"",19,11586,""RPC"",45,0)"
^XMB(3.9,98,2,966,0)="PSB VERSION CHECK"
^XMB(3.9,98,2,967,0)="""KRN"",19,11586,""RPC"",46,0)"
^XMB(3.9,98,2,968,0)="PSB CHECK IV"
^XMB(3.9,98,2,969,0)="""KRN"",19,11586,""RPC"",47,0)"
^XMB(3.9,98,2,970,0)="PSB VITALS"
^XMB(3.9,98,2,971,0)="""KRN"",19,11586,""RPC"",48,0)"
^XMB(3.9,98,2,972,0)="PSB VITAL MEAS FILE"
^XMB(3.9,98,2,973,0)="""KRN"",19,11586,""RPC"",49,0)"
^XMB(3.9,98,2,974,0)="PSB MED LOG LOOKUP"
^XMB(3.9,98,2,975,0)="""KRN"",19,11586,""RPC"",50,0)"
^XMB(3.9,98,2,976,0)="PSB COVERSHEET1"
^XMB(3.9,98,2,977,0)="""KRN"",19,11586,""RPC"",51,0)"
^XMB(3.9,98,2,978,0)="PSB UTL XSTATUS SRCH"
^XMB(3.9,98,2,979,0)="""KRN"",19,11586,""U"")"
^XMB(3.9,98,2,980,0)="BCMA CLIENT CONTEXT"
^XMB(3.9,98,2,981,0)="""KRN"",19,11587,-1)"
^XMB(3.9,98,2,982,0)="3^3"
^XMB(3.9,98,2,983,0)="""KRN"",19,11587,0)"
^XMB(3.9,98,2,984,0)="PSBO^Reports^^M^^^^^^^^BAR CODE MED ADMIN"
^XMB(3.9,98,2,985,0)="""KRN"",19,11587,10,0)"
^XMB(3.9,98,2,986,0)="^19.01IP^15^8"
^XMB(3.9,98,2,987,0)="""KRN"",19,11587,10,8,0)"
^XMB(3.9,98,2,988,0)="12951^XA^"
^XMB(3.9,98,2,989,0)="""KRN"",19,11587,10,8,""^"")"
^XMB(3.9,98,2,990,0)="PSBO XA"
^XMB(3.9,98,2,991,0)="""KRN"",19,11587,99)"
^XMB(3.9,98,2,992,0)="60305,41992"
^XMB(3.9,98,2,993,0)="""KRN"",19,11587,""U"")"
^XMB(3.9,98,2,994,0)="REPORTS"
^XMB(3.9,98,2,995,0)="""KRN"",19,11598,-1)"
^XMB(3.9,98,2,996,0)="3^4"
^XMB(3.9,98,2,997,0)="""KRN"",19,11598,0)"
^XMB(3.9,98,2,998,0)="PSB MGR^Bar Code Medication Administration Manager^^M^^PSB MANAGER^^^^^^BAR CODE MED ADMIN"
^XMB(3.9,98,2,999,0)="""KRN"",19,11598,10,0)"
^XMB(3.9,98,2,1000,0)="^19.01IP^16^8"
^XMB(3.9,98,2,1001,0)="""KRN"",19,11598,10,9,0)"
^XMB(3.9,98,2,1002,0)="12951"
^XMB(3.9,98,2,1003,0)="""KRN"",19,11598,10,9,""^"")"
^XMB(3.9,98,2,1004,0)="PSBO XA"
^XMB(3.9,98,2,1005,0)="""KRN"",19,11598,99)"
^XMB(3.9,98,2,1006,0)="60305,42679"
^XMB(3.9,98,2,1007,0)="""KRN"",19,11598,99.1)"
^XMB(3.9,98,2,1008,0)="59570,52713"
^XMB(3.9,98,2,1009,0)="""KRN"",19,11598,""U"")"
^XMB(3.9,98,2,1010,0)="BAR CODE MEDICATION ADMINISTRA"
^XMB(3.9,98,2,1011,0)="""KRN"",19,12951,-1)"
^XMB(3.9,98,2,1012,0)="0^5"
^XMB(3.9,98,2,1013,0)="""KRN"",19,12951,0)"
^XMB(3.9,98,2,1014,0)="PSBO XA^Unknown Action Status Report^^R^^PSB MANAGER^^^^^^BAR CODE MED ADMIN"
^XMB(3.9,98,2,1015,0)="""KRN"",19,12951,25)"
^XMB(3.9,98,2,1016,0)="XQ^PSBO(""XA"")"
^XMB(3.9,98,2,1017,0)="""KRN"",19,12951,""U"")"
^XMB(3.9,98,2,1018,0)="UNKNOWN ACTION STATUS REPORT"
^XMB(3.9,98,2,1019,0)="""KRN"",8989.51,407,-1)"
^XMB(3.9,98,2,1020,0)="0^1"
^XMB(3.9,98,2,1021,0)="""KRN"",8989.51,407,0)"
^XMB(3.9,98,2,1022,0)="PSB VDL PATCH DAYS^Days GIVEN patch on VDL^0^^Value 7-14 (days)^0"
^XMB(3.9,98,2,1023,0)="""KRN"",8989.51,407,1)"
^XMB(3.9,98,2,1024,0)="F^^Enter a number (days) a GIVEN medication patch displays on the VDL."
^XMB(3.9,98,2,1025,0)="""KRN"",8989.51,407,2)"
^XMB(3.9,98,2,1026,0)="I X]"""" K:(+X<7)!(+X>14) X"
^XMB(3.9,98,2,1027,0)="""KRN"",8989.51,407,3)"
^XMB(3.9,98,2,1028,0)=" "
^XMB(3.9,98,2,1029,0)="""KRN"",8989.51,407,4,0)"
^XMB(3.9,98,2,1030,0)="^8989.514^6^6"
^XMB(3.9,98,2,1031,0)="""KRN"",8989.51,407,4,1,0)"
^XMB(3.9,98,2,1032,0)="patch"
^XMB(3.9,98,2,1033,0)="""KRN"",8989.51,407,4,2,0)"
^XMB(3.9,98,2,1034,0)="Patch"
^XMB(3.9,98,2,1035,0)="""KRN"",8989.51,407,4,3,0)"
^XMB(3.9,98,2,1036,0)="PATCH"
^XMB(3.9,98,2,1037,0)="""KRN"",8989.51,407,4,4,0)"
^XMB(3.9,98,2,1038,0)="PSB"
^XMB(3.9,98,2,1039,0)="""KRN"",8989.51,407,4,5,0)"
^XMB(3.9,98,2,1040,0)="BCMA"
^XMB(3.9,98,2,1041,0)="""KRN"",8989.51,407,4,6,0)"
^XMB(3.9,98,2,1042,0)="GIVEN PATCH"
^XMB(3.9,98,2,1043,0)="""KRN"",8989.51,407,4,""B"",""BCMA"",5)"
^XMB(3.9,98,2,1044,0)=" "
^XMB(3.9,98,2,1045,0)="""KRN"",8989.51,407,4,""B"",""GIVEN PATCH"",6)"
^XMB(3.9,98,2,1046,0)=" "
^XMB(3.9,98,2,1047,0)="""KRN"",8989.51,407,4,""B"",""PATCH"",3)"
^XMB(3.9,98,2,1048,0)=" "
^XMB(3.9,98,2,1049,0)="""KRN"",8989.51,407,4,""B"",""PSB"",4)"
^XMB(3.9,98,2,1050,0)=" "
^XMB(3.9,98,2,1051,0)="""KRN"",8989.51,407,4,""B"",""Patch"",2)"
^XMB(3.9,98,2,1052,0)=" "
^XMB(3.9,98,2,1053,0)="""KRN"",8989.51,407,4,""B"",""patch"",1)"
^XMB(3.9,98,2,1054,0)=" "
^XMB(3.9,98,2,1055,0)="""KRN"",8989.51,407,6)"
^XMB(3.9,98,2,1056,0)="^^Enter a value between 7 and 14."
^XMB(3.9,98,2,1057,0)="""KRN"",8989.51,407,20,0)"
^XMB(3.9,98,2,1058,0)="^8989.512^10^10^3060123^^^^"
^XMB(3.9,98,2,1059,0)="""KRN"",8989.51,407,20,1,0)"
^XMB(3.9,98,2,1060,0)="PSB VDL PATCH DAYS -"
^XMB(3.9,98,2,1061,0)="""KRN"",8989.51,407,20,2,0)"
^XMB(3.9,98,2,1062,0)=" "
^XMB(3.9,98,2,1063,0)="""KRN"",8989.51,407,20,3,0)"
^XMB(3.9,98,2,1064,0)="The value of this parameter should be between 7 and 14."
^XMB(3.9,98,2,1065,0)="""KRN"",8989.51,407,20,4,0)"
^XMB(3.9,98,2,1066,0)=" "
^XMB(3.9,98,2,1067,0)="""KRN"",8989.51,407,20,5,0)"
^XMB(3.9,98,2,1068,0)="PSB VDL PATCH DAYS is the parameter which determines the number of days a "
^XMB(3.9,98,2,1069,0)="""KRN"",8989.51,407,20,6,0)"
^XMB(3.9,98,2,1070,0)="patient's GIVEN medication patch will display on the respective Bar"
^XMB(3.9,98,2,1071,0)="""KRN"",8989.51,407,20,7,0)"
^XMB(3.9,98,2,1072,0)="Code Medication Administration (BCMA) Virtual Due List (VDL) and BCMA "
^XMB(3.9,98,2,1073,0)="""KRN"",8989.51,407,20,8,0)"
^XMB(3.9,98,2,1074,0)="Coversheet.  If this parameter is equal to the  ""null"" value, a GIVEN "
^XMB(3.9,98,2,1075,0)="""KRN"",8989.51,407,20,9,0)"
^XMB(3.9,98,2,1076,0)="medication patch will always display on the respective BCMA VDL and BCMA "
^XMB(3.9,98,2,1077,0)="""KRN"",8989.51,407,20,10,0)"
^XMB(3.9,98,2,1078,0)="Coversheet."
^XMB(3.9,98,2,1079,0)="""KRN"",8989.51,407,30,0)"
^XMB(3.9,98,2,1080,0)="^8989.513I^2^1"
^XMB(3.9,98,2,1081,0)="""KRN"",8989.51,407,30,2,0)"
^XMB(3.9,98,2,1082,0)="1^4"
^XMB(3.9,98,2,1083,0)="""KRN"",8989.51,412,-1)"
^XMB(3.9,98,2,1084,0)="0^2"
^XMB(3.9,98,2,1085,0)="""KRN"",8989.51,412,0)"
^XMB(3.9,98,2,1086,0)="PSB COVERSHEET VIEWS COL SORT^Coversheet views sort (#/#/#/#).^0^Coversheet sort colmuns #/#/#/#  ^#/#/#/#^0"
^XMB(3.9,98,2,1087,0)="""KRN"",8989.51,412,1)"
^XMB(3.9,98,2,1088,0)="F^^Enter column number per coversheet view sorting, delimited by ""/"""
^XMB(3.9,98,2,1089,0)="""KRN"",8989.51,412,4,0)"
^XMB(3.9,98,2,1090,0)="^8989.514^6^6"
^XMB(3.9,98,2,1091,0)="""KRN"",8989.51,412,4,1,0)"
^XMB(3.9,98,2,1092,0)="Coversheet"
^XMB(3.9,98,2,1093,0)="""KRN"",8989.51,412,4,2,0)"
^XMB(3.9,98,2,1094,0)="View"
^XMB(3.9,98,2,1095,0)="""KRN"",8989.51,412,4,3,0)"
^XMB(3.9,98,2,1096,0)="Sort"
^XMB(3.9,98,2,1097,0)="""KRN"",8989.51,412,4,4,0)"
^XMB(3.9,98,2,1098,0)="Column"
^XMB(3.9,98,2,1099,0)="""KRN"",8989.51,412,4,5,0)"
^XMB(3.9,98,2,1100,0)="User"
^XMB(3.9,98,2,1101,0)="""KRN"",8989.51,412,4,6,0)"
^XMB(3.9,98,2,1102,0)="Setting"
^XMB(3.9,98,2,1103,0)="""KRN"",8989.51,412,4,""B"",""Column"",4)"
^XMB(3.9,98,2,1104,0)=" "
^XMB(3.9,98,2,1105,0)="""KRN"",8989.51,412,4,""B"",""Coversheet"",1)"
^XMB(3.9,98,2,1106,0)=" "
^XMB(3.9,98,2,1107,0)="""KRN"",8989.51,412,4,""B"",""Setting"",6)"
^XMB(3.9,98,2,1108,0)=" "
^XMB(3.9,98,2,1109,0)="""KRN"",8989.51,412,4,""B"",""Sort"",3)"
^XMB(3.9,98,2,1110,0)=" "
^XMB(3.9,98,2,1111,0)="""KRN"",8989.51,412,4,""B"",""User"",5)"
^XMB(3.9,98,2,1112,0)=" "
^XMB(3.9,98,2,1113,0)="""KRN"",8989.51,412,4,""B"",""View"",2)"
^XMB(3.9,98,2,1114,0)=" "
^XMB(3.9,98,2,1115,0)="""KRN"",8989.51,412,6)"
^XMB(3.9,98,2,1116,0)="F^^Enter column number per coversheet view sorting, delimited by ""/"""
^XMB(3.9,98,2,1117,0)="""KRN"",8989.51,412,20,0)"
^XMB(3.9,98,2,1118,0)="^^11^11^3051221^"
^XMB(3.9,98,2,1119,0)="""KRN"",8989.51,412,20,1,0)"
^XMB(3.9,98,2,1120,0)="This is a USER SPECIFIC PARAMETER."
^XMB(3.9,98,2,1121,0)="""KRN"",8989.51,412,20,2,0)"
^XMB(3.9,98,2,1122,0)=" "
^XMB(3.9,98,2,1123,0)="""KRN"",8989.51,412,20,3,0)"
^XMB(3.9,98,2,1124,0)="This parameter contains 4 column number used to sort each of the 4 "
^XMB(3.9,98,2,1125,0)="""KRN"",8989.51,412,20,4,0)"
^XMB(3.9,98,2,1126,0)="different Coversheet Views respectively, delimited by the slash "
^XMB(3.9,98,2,1127,0)="""KRN"",8989.51,412,20,5,0)"
^XMB(3.9,98,2,1128,0)="(/)                                                                "
^XMB(3.9,98,2,1129,0)="""KRN"",8989.51,412,20,6,0)"
^XMB(3.9,98,2,1130,0)="character.  First (Medication Overview),  Second (PRN Overview), Third (IV"
^XMB(3.9,98,2,1131,0)="""KRN"",8989.51,412,20,7,0)"
^XMB(3.9,98,2,1132,0)="Overview), and Forth (Expired/Expiring Orders), are the coversheet views "
^XMB(3.9,98,2,1133,0)="""KRN"",8989.51,412,20,8,0)"
^XMB(3.9,98,2,1134,0)="in sequence.  Each view's columns are numbered from left to right.  An "
^XMB(3.9,98,2,1135,0)="""KRN"",8989.51,412,20,9,0)"
^XMB(3.9,98,2,1136,0)="example parameter setting is:"
^XMB(3.9,98,2,1137,0)="""KRN"",8989.51,412,20,10,0)"
^XMB(3.9,98,2,1138,0)=" "
^XMB(3.9,98,2,1139,0)="""KRN"",8989.51,412,20,11,0)"
^XMB(3.9,98,2,1140,0)="            7/3/1/3"
^XMB(3.9,98,2,1141,0)="""KRN"",8989.51,412,30,0)"
^XMB(3.9,98,2,1142,0)="^8989.513I^1^1"
^XMB(3.9,98,2,1143,0)="""KRN"",8989.51,412,30,1,0)"
^XMB(3.9,98,2,1144,0)="1^200"
^XMB(3.9,98,2,1145,0)="""KRN"",8989.51,413,-1)"
^XMB(3.9,98,2,1146,0)="0^3"
^XMB(3.9,98,2,1147,0)="""KRN"",8989.51,413,0)"
^XMB(3.9,98,2,1148,0)="PSB COVERSHEET V1 COL WIDTHS^Widths of each View 1 col^0^^#/#/#/#/#/#/#/#/# ^0"
^XMB(3.9,98,2,1149,0)="""KRN"",8989.51,413,1)"
^XMB(3.9,98,2,1150,0)="F^^Enter the widths for each Coversheet View 1 col delimited with ""/"" "
^XMB(3.9,98,2,1151,0)="""KRN"",8989.51,413,4,0)"
^XMB(3.9,98,2,1152,0)="^8989.514^7^7"
^XMB(3.9,98,2,1153,0)="""KRN"",8989.51,413,4,1,0)"
^XMB(3.9,98,2,1154,0)="coversheet"
^XMB(3.9,98,2,1155,0)="""KRN"",8989.51,413,4,2,0)"
^XMB(3.9,98,2,1156,0)="overview"
^XMB(3.9,98,2,1157,0)="""KRN"",8989.51,413,4,3,0)"
^XMB(3.9,98,2,1158,0)="column"
^XMB(3.9,98,2,1159,0)="""KRN"",8989.51,413,4,4,0)"
^XMB(3.9,98,2,1160,0)="width"
^XMB(3.9,98,2,1161,0)="""KRN"",8989.51,413,4,5,0)"
^XMB(3.9,98,2,1162,0)="settings"
^XMB(3.9,98,2,1163,0)="""KRN"",8989.51,413,4,6,0)"
^XMB(3.9,98,2,1164,0)="user setting"
^XMB(3.9,98,2,1165,0)="""KRN"",8989.51,413,4,7,0)"
^XMB(3.9,98,2,1166,0)="BCMA"
^XMB(3.9,98,2,1167,0)="""KRN"",8989.51,413,4,""B"",""BCMA"",7)"
^XMB(3.9,98,2,1168,0)=" "
^XMB(3.9,98,2,1169,0)="""KRN"",8989.51,413,4,""B"",""column"",3)"
^XMB(3.9,98,2,1170,0)=" "
^XMB(3.9,98,2,1171,0)="""KRN"",8989.51,413,4,""B"",""coversheet"",1)"
^XMB(3.9,98,2,1172,0)=" "
^XMB(3.9,98,2,1173,0)="""KRN"",8989.51,413,4,""B"",""overview"",2)"
^XMB(3.9,98,2,1174,0)=" "
^XMB(3.9,98,2,1175,0)="""KRN"",8989.51,413,4,""B"",""settings"",5)"
^XMB(3.9,98,2,1176,0)=" "
^XMB(3.9,98,2,1177,0)="""KRN"",8989.51,413,4,""B"",""user setting"",6)"
^XMB(3.9,98,2,1178,0)=" "
^XMB(3.9,98,2,1179,0)="""KRN"",8989.51,413,4,""B"",""width"",4)"
^XMB(3.9,98,2,1180,0)=" "
^XMB(3.9,98,2,1181,0)="""KRN"",8989.51,413,6)"
^XMB(3.9,98,2,1182,0)="F^^Enter the widths for each Coversheet View 1 col delimited with ""/"" "
^XMB(3.9,98,2,1183,0)="""KRN"",8989.51,413,20,0)"
^XMB(3.9,98,2,1184,0)="^^14^14^3051222^"
^XMB(3.9,98,2,1185,0)="""KRN"",8989.51,413,20,1,0)"
^XMB(3.9,98,2,1186,0)="USER specific setting for the BCMA Coversheet's ""first view"" ."
^XMB(3.9,98,2,1187,0)="""KRN"",8989.51,413,20,2,0)"
^XMB(3.9,98,2,1188,0)=" "
^XMB(3.9,98,2,1189,0)="""KRN"",8989.51,413,20,3,0)"
^XMB(3.9,98,2,1190,0)="This parameter contains the width of each column viewed via the Bar Code "
^XMB(3.9,98,2,1191,0)="""KRN"",8989.51,413,20,4,0)"
^XMB(3.9,98,2,1192,0)="Medication Administration Coversheet's ""first view"" delimited by the "
^XMB(3.9,98,2,1193,0)="""KRN"",8989.51,413,20,5,0)"
^XMB(3.9,98,2,1194,0)="slash (/).  Each ""/""-piece of data is per respective column on the "
^XMB(3.9,98,2,1195,0)="""KRN"",8989.51,413,20,6,0)"
^XMB(3.9,98,2,1196,0)="Coversheet's ""first view"", numbered from left to right.  An "
^XMB(3.9,98,2,1197,0)="""KRN"",8989.51,413,20,7,0)"
^XMB(3.9,98,2,1198,0)="example parameter setting is:"
^XMB(3.9,98,2,1199,0)="""KRN"",8989.51,413,20,8,0)"
^XMB(3.9,98,2,1200,0)=" "
^XMB(3.9,98,2,1201,0)="""KRN"",8989.51,413,20,9,0)"
^XMB(3.9,98,2,1202,0)="      170/20/100/30/11/22/31/44/50"
^XMB(3.9,98,2,1203,0)="""KRN"",8989.51,413,20,10,0)"
^XMB(3.9,98,2,1204,0)=" "
^XMB(3.9,98,2,1205,0)="""KRN"",8989.51,413,20,11,0)"
^XMB(3.9,98,2,1206,0)="Setting numbers are in units of centimeters. "
^XMB(3.9,98,2,1207,0)="""KRN"",8989.51,413,20,12,0)"
^XMB(3.9,98,2,1208,0)=" "
^XMB(3.9,98,2,1209,0)="""KRN"",8989.51,413,20,13,0)"
^XMB(3.9,98,2,1210,0)=" "
^XMB(3.9,98,2,1211,0)="""KRN"",8989.51,413,20,14,0)"
^XMB(3.9,98,2,1212,0)=" THESE NUMBERS MUST BE WHOLE NUMBERS."
^XMB(3.9,98,2,1213,0)="""KRN"",8989.51,413,30,0)"
^XMB(3.9,98,2,1214,0)="^8989.513I^1^1"
^XMB(3.9,98,2,1215,0)="""KRN"",8989.51,413,30,1,0)"
^XMB(3.9,98,2,1216,0)="1^200"
^XMB(3.9,98,2,1217,0)="""KRN"",8989.51,414,-1)"
^XMB(3.9,98,2,1218,0)="0^4"
^XMB(3.9,98,2,1219,0)="""KRN"",8989.51,414,0)"
^XMB(3.9,98,2,1220,0)="PSB COVERSHEET V2 COL WIDTHS^Widths of each View 2 col^0^^#/#/#/#/#/#/#/#/# ^0"
^XMB(3.9,98,2,1221,0)="""KRN"",8989.51,414,1)"
^XMB(3.9,98,2,1222,0)="F^^Enter the widths for each Coversheet View 2 col delimited with ""/"" "
^XMB(3.9,98,2,1223,0)="""KRN"",8989.51,414,4,0)"
^XMB(3.9,98,2,1224,0)="^8989.514^8^7"
^XMB(3.9,98,2,1225,0)="""KRN"",8989.51,414,4,1,0)"
^XMB(3.9,98,2,1226,0)="coversheet"
^XMB(3.9,98,2,1227,0)="""KRN"",8989.51,414,4,2,0)"
^XMB(3.9,98,2,1228,0)="overview"
^XMB(3.9,98,2,1229,0)="""KRN"",8989.51,414,4,3,0)"
^XMB(3.9,98,2,1230,0)="column"
^XMB(3.9,98,2,1231,0)="""KRN"",8989.51,414,4,4,0)"
^XMB(3.9,98,2,1232,0)="width"
^XMB(3.9,98,2,1233,0)="""KRN"",8989.51,414,4,5,0)"
^XMB(3.9,98,2,1234,0)="settings"
^XMB(3.9,98,2,1235,0)="""KRN"",8989.51,414,4,6,0)"
^XMB(3.9,98,2,1236,0)="user setting"
^XMB(3.9,98,2,1237,0)="""KRN"",8989.51,414,4,8,0)"
^XMB(3.9,98,2,1238,0)="BCMA"
^XMB(3.9,98,2,1239,0)="""KRN"",8989.51,414,4,""B"",""BCMA"",8)"
^XMB(3.9,98,2,1240,0)=" "
^XMB(3.9,98,2,1241,0)="""KRN"",8989.51,414,4,""B"",""column"",3)"
^XMB(3.9,98,2,1242,0)=" "
^XMB(3.9,98,2,1243,0)="""KRN"",8989.51,414,4,""B"",""coversheet"",1)"
^XMB(3.9,98,2,1244,0)=" "
^XMB(3.9,98,2,1245,0)="""KRN"",8989.51,414,4,""B"",""overview"",2)"
^XMB(3.9,98,2,1246,0)=" "
^XMB(3.9,98,2,1247,0)="""KRN"",8989.51,414,4,""B"",""settings"",5)"
^XMB(3.9,98,2,1248,0)=" "
^XMB(3.9,98,2,1249,0)="""KRN"",8989.51,414,4,""B"",""user setting"",6)"
^XMB(3.9,98,2,1250,0)=" "
^XMB(3.9,98,2,1251,0)="""KRN"",8989.51,414,4,""B"",""width"",4)"
^XMB(3.9,98,2,1252,0)=" "
^XMB(3.9,98,2,1253,0)="""KRN"",8989.51,414,6)"
^XMB(3.9,98,2,1254,0)="F^^Enter the widths for each Coversheet View 2 col delimited with ""/"" "
^XMB(3.9,98,2,1255,0)="""KRN"",8989.51,414,20,0)"
^XMB(3.9,98,2,1256,0)="^^14^14^3051222^"
^XMB(3.9,98,2,1257,0)="""KRN"",8989.51,414,20,1,0)"
^XMB(3.9,98,2,1258,0)="USER specific setting for the BCMA Coversheet's ""second view""."
^XMB(3.9,98,2,1259,0)="""KRN"",8989.51,414,20,2,0)"
^XMB(3.9,98,2,1260,0)=" "
^XMB(3.9,98,2,1261,0)="""KRN"",8989.51,414,20,3,0)"
^XMB(3.9,98,2,1262,0)="This parameter contains the width of each column viewed via the Bar Code "
^XMB(3.9,98,2,1263,0)="""KRN"",8989.51,414,20,4,0)"
^XMB(3.9,98,2,1264,0)="Medication Administration Coversheet's ""second view"" delimited by the"
^XMB(3.9,98,2,1265,0)="""KRN"",8989.51,414,20,5,0)"
^XMB(3.9,98,2,1266,0)="slash (/).  Each ""/""-piece of data is per respective column on the "
^XMB(3.9,98,2,1267,0)="""KRN"",8989.51,414,20,6,0)"
^XMB(3.9,98,2,1268,0)="Coversheet's ""second view"", numbered from left to right.  An example "
^XMB(3.9,98,2,1269,0)="""KRN"",8989.51,414,20,7,0)"
^XMB(3.9,98,2,1270,0)="parameter setting is:"
^XMB(3.9,98,2,1271,0)="""KRN"",8989.51,414,20,8,0)"
^XMB(3.9,98,2,1272,0)=" "
^XMB(3.9,98,2,1273,0)="""KRN"",8989.51,414,20,9,0)"
^XMB(3.9,98,2,1274,0)="      170/20/100/30/11/22/31/44/50"
^XMB(3.9,98,2,1275,0)="""KRN"",8989.51,414,20,10,0)"
^XMB(3.9,98,2,1276,0)=" "
^XMB(3.9,98,2,1277,0)="""KRN"",8989.51,414,20,11,0)"
^XMB(3.9,98,2,1278,0)="Setting numbers are in units of centimeters. "
^XMB(3.9,98,2,1279,0)="""KRN"",8989.51,414,20,12,0)"
^XMB(3.9,98,2,1280,0)=" "
^XMB(3.9,98,2,1281,0)="""KRN"",8989.51,414,20,13,0)"
^XMB(3.9,98,2,1282,0)=" "
^XMB(3.9,98,2,1283,0)="""KRN"",8989.51,414,20,14,0)"
^XMB(3.9,98,2,1284,0)=" THESE NUMBERS MUST BE WHOLE NUMBERS."
^XMB(3.9,98,2,1285,0)="""KRN"",8989.51,414,30,0)"
^XMB(3.9,98,2,1286,0)="^8989.513I^1^1"
^XMB(3.9,98,2,1287,0)="""KRN"",8989.51,414,30,1,0)"
^XMB(3.9,98,2,1288,0)="1^200"
^XMB(3.9,98,2,1289,0)="""KRN"",8989.51,415,-1)"
^XMB(3.9,98,2,1290,0)="0^5"
^XMB(3.9,98,2,1291,0)="""KRN"",8989.51,415,0)"
^XMB(3.9,98,2,1292,0)="PSB COVERSHEET V3 COL WIDTHS^Widths of each View 3 col.^0^^#/#/#/#/#/#/#/#/# ^0"
^XMB(3.9,98,2,1293,0)="""KRN"",8989.51,415,1)"
^XMB(3.9,98,2,1294,0)="F^^Enter the widths for each Coversheet View 3 col delimited with ""/"" "
^XMB(3.9,98,2,1295,0)="""KRN"",8989.51,415,4,0)"
^XMB(3.9,98,2,1296,0)="^8989.514^7^7"
^XMB(3.9,98,2,1297,0)="""KRN"",8989.51,415,4,1,0)"
^XMB(3.9,98,2,1298,0)="coversheet"
^XMB(3.9,98,2,1299,0)="""KRN"",8989.51,415,4,2,0)"
^XMB(3.9,98,2,1300,0)="overview"
^XMB(3.9,98,2,1301,0)="""KRN"",8989.51,415,4,3,0)"
^XMB(3.9,98,2,1302,0)="column"
^XMB(3.9,98,2,1303,0)="""KRN"",8989.51,415,4,4,0)"
^XMB(3.9,98,2,1304,0)="width"
^XMB(3.9,98,2,1305,0)="""KRN"",8989.51,415,4,5,0)"
^XMB(3.9,98,2,1306,0)="settings"
^XMB(3.9,98,2,1307,0)="""KRN"",8989.51,415,4,6,0)"
^XMB(3.9,98,2,1308,0)="user settings"
^XMB(3.9,98,2,1309,0)="""KRN"",8989.51,415,4,7,0)"
^XMB(3.9,98,2,1310,0)="BCMA"
^XMB(3.9,98,2,1311,0)="""KRN"",8989.51,415,4,""B"",""BCMA"",7)"
^XMB(3.9,98,2,1312,0)=" "
^XMB(3.9,98,2,1313,0)="""KRN"",8989.51,415,4,""B"",""column"",3)"
^XMB(3.9,98,2,1314,0)=" "
^XMB(3.9,98,2,1315,0)="""KRN"",8989.51,415,4,""B"",""coversheet"",1)"
^XMB(3.9,98,2,1316,0)=" "
^XMB(3.9,98,2,1317,0)="""KRN"",8989.51,415,4,""B"",""overview"",2)"
^XMB(3.9,98,2,1318,0)=" "
^XMB(3.9,98,2,1319,0)="""KRN"",8989.51,415,4,""B"",""settings"",5)"
^XMB(3.9,98,2,1320,0)=" "
^XMB(3.9,98,2,1321,0)="""KRN"",8989.51,415,4,""B"",""user settings"",6)"
^XMB(3.9,98,2,1322,0)=" "
^XMB(3.9,98,2,1323,0)="""KRN"",8989.51,415,4,""B"",""width"",4)"
^XMB(3.9,98,2,1324,0)=" "
^XMB(3.9,98,2,1325,0)="""KRN"",8989.51,415,6)"
^XMB(3.9,98,2,1326,0)="F^^Enter the widths for each Coversheet View 3 col delimited with ""/"" "
^XMB(3.9,98,2,1327,0)="""KRN"",8989.51,415,20,0)"
^XMB(3.9,98,2,1328,0)="^^15^15^3051222^"
^XMB(3.9,98,2,1329,0)="""KRN"",8989.51,415,20,1,0)"
^XMB(3.9,98,2,1330,0)="USER specific setting for the BCMA Coversheet's ""third view""."
^XMB(3.9,98,2,1331,0)="""KRN"",8989.51,415,20,2,0)"
^XMB(3.9,98,2,1332,0)="       "
^XMB(3.9,98,2,1333,0)="""KRN"",8989.51,415,20,3,0)"
^XMB(3.9,98,2,1334,0)=" "
^XMB(3.9,98,2,1335,0)="""KRN"",8989.51,415,20,4,0)"
^XMB(3.9,98,2,1336,0)="This parameter contains the width of each column viewed via the Bar Code "
^XMB(3.9,98,2,1337,0)="""KRN"",8989.51,415,20,5,0)"
^XMB(3.9,98,2,1338,0)="Medication Administration Coversheet's ""third view"" delimited by the"
^XMB(3.9,98,2,1339,0)="""KRN"",8989.51,415,20,6,0)"
^XMB(3.9,98,2,1340,0)="slash (/).  Each ""/""-piece of data is per respective column on the "
^XMB(3.9,98,2,1341,0)="""KRN"",8989.51,415,20,7,0)"
^XMB(3.9,98,2,1342,0)="Coversheet's ""third view"", numbered from left to right.  An example "
^XMB(3.9,98,2,1343,0)="""KRN"",8989.51,415,20,8,0)"
^XMB(3.9,98,2,1344,0)="parameter setting is:"
^XMB(3.9,98,2,1345,0)="""KRN"",8989.51,415,20,9,0)"
^XMB(3.9,98,2,1346,0)=" "
^XMB(3.9,98,2,1347,0)="""KRN"",8989.51,415,20,10,0)"
^XMB(3.9,98,2,1348,0)="      170/20/100/30/11/22/31/44/50"
^XMB(3.9,98,2,1349,0)="""KRN"",8989.51,415,20,11,0)"
^XMB(3.9,98,2,1350,0)=" "
^XMB(3.9,98,2,1351,0)="""KRN"",8989.51,415,20,12,0)"
^XMB(3.9,98,2,1352,0)="Setting numbers are in units of centimeters. "
^XMB(3.9,98,2,1353,0)="""KRN"",8989.51,415,20,13,0)"
^XMB(3.9,98,2,1354,0)=" "
^XMB(3.9,98,2,1355,0)="""KRN"",8989.51,415,20,14,0)"
^XMB(3.9,98,2,1356,0)=" "
^XMB(3.9,98,2,1357,0)="""KRN"",8989.51,415,20,15,0)"
^XMB(3.9,98,2,1358,0)=" THESE NUMBERS MUST BE WHOLE NUMBERS."
^XMB(3.9,98,2,1359,0)="""KRN"",8989.51,415,30,0)"
^XMB(3.9,98,2,1360,0)="^8989.513I^1^1"
^XMB(3.9,98,2,1361,0)="""KRN"",8989.51,415,30,1,0)"
^XMB(3.9,98,2,1362,0)="1^200"
^XMB(3.9,98,2,1363,0)="""KRN"",8989.51,416,-1)"
^XMB(3.9,98,2,1364,0)="0^6"
^XMB(3.9,98,2,1365,0)="""KRN"",8989.51,416,0)"
^XMB(3.9,98,2,1366,0)="PSB COVERSHEET V4 COL WIDTHS^Widths of each View 4 col. ^0^^#/#/#/#/#/#/#/#/# ^0"
^XMB(3.9,98,2,1367,0)="""KRN"",8989.51,416,1)"
^XMB(3.9,98,2,1368,0)="F^^Enter the widths for each Coversheet View 4 col delimited with ""/"" "
^XMB(3.9,98,2,1369,0)="""KRN"",8989.51,416,4,0)"
^XMB(3.9,98,2,1370,0)="^8989.514^7^7"
^XMB(3.9,98,2,1371,0)="""KRN"",8989.51,416,4,1,0)"
^XMB(3.9,98,2,1372,0)="Coversheet"
^XMB(3.9,98,2,1373,0)="""KRN"",8989.51,416,4,2,0)"
^XMB(3.9,98,2,1374,0)="overview"
^XMB(3.9,98,2,1375,0)="""KRN"",8989.51,416,4,3,0)"
^XMB(3.9,98,2,1376,0)="column"
^XMB(3.9,98,2,1377,0)="""KRN"",8989.51,416,4,4,0)"
^XMB(3.9,98,2,1378,0)="width"
^XMB(3.9,98,2,1379,0)="""KRN"",8989.51,416,4,5,0)"
^XMB(3.9,98,2,1380,0)="settings"
^XMB(3.9,98,2,1381,0)="""KRN"",8989.51,416,4,6,0)"
^XMB(3.9,98,2,1382,0)="user setting"
^XMB(3.9,98,2,1383,0)="""KRN"",8989.51,416,4,7,0)"
^XMB(3.9,98,2,1384,0)="BCMA"
^XMB(3.9,98,2,1385,0)="""KRN"",8989.51,416,4,""B"",""BCMA"",7)"
^XMB(3.9,98,2,1386,0)=" "
^XMB(3.9,98,2,1387,0)="""KRN"",8989.51,416,4,""B"",""Coversheet"",1)"
^XMB(3.9,98,2,1388,0)=" "
^XMB(3.9,98,2,1389,0)="""KRN"",8989.51,416,4,""B"",""column"",3)"
^XMB(3.9,98,2,1390,0)=" "
^XMB(3.9,98,2,1391,0)="""KRN"",8989.51,416,4,""B"",""overview"",2)"
^XMB(3.9,98,2,1392,0)=" "
^XMB(3.9,98,2,1393,0)="""KRN"",8989.51,416,4,""B"",""settings"",5)"
^XMB(3.9,98,2,1394,0)=" "
^XMB(3.9,98,2,1395,0)="""KRN"",8989.51,416,4,""B"",""user setting"",6)"
^XMB(3.9,98,2,1396,0)=" "
^XMB(3.9,98,2,1397,0)="""KRN"",8989.51,416,4,""B"",""width"",4)"
^XMB(3.9,98,2,1398,0)=" "
^XMB(3.9,98,2,1399,0)="""KRN"",8989.51,416,6)"
^XMB(3.9,98,2,1400,0)="F^^: Enter the widths for each Coversheet View 4 delimited with ""/"" "
^XMB(3.9,98,2,1401,0)="""KRN"",8989.51,416,20,0)"
^XMB(3.9,98,2,1402,0)="^^16^16^3051222^"
^XMB(3.9,98,2,1403,0)="""KRN"",8989.51,416,20,1,0)"
^XMB(3.9,98,2,1404,0)="USER specific setting for the BCMA Coversheet's ""forth view""."
^XMB(3.9,98,2,1405,0)="""KRN"",8989.51,416,20,2,0)"
^XMB(3.9,98,2,1406,0)="                                                                 "
^XMB(3.9,98,2,1407,0)="""KRN"",8989.51,416,20,3,0)"
^XMB(3.9,98,2,1408,0)="       "
^XMB(3.9,98,2,1409,0)="""KRN"",8989.51,416,20,4,0)"
^XMB(3.9,98,2,1410,0)=" "
^XMB(3.9,98,2,1411,0)="""KRN"",8989.51,416,20,5,0)"
^XMB(3.9,98,2,1412,0)="This parameter contains the width of each column viewed via the Bar Code "
^XMB(3.9,98,2,1413,0)="""KRN"",8989.51,416,20,6,0)"
^XMB(3.9,98,2,1414,0)="Medication Administration Coversheet's ""forth view"" delimited by "
^XMB(3.9,98,2,1415,0)="""KRN"",8989.51,416,20,7,0)"
^XMB(3.9,98,2,1416,0)="the slash (/).  Each ""/""-piece of data is per respective column on the "
^XMB(3.9,98,2,1417,0)="""KRN"",8989.51,416,20,8,0)"
^XMB(3.9,98,2,1418,0)="Coversheet's ""forth view"", numbered from left to right.  An example "
^XMB(3.9,98,2,1419,0)="""KRN"",8989.51,416,20,9,0)"
^XMB(3.9,98,2,1420,0)="parameter setting is:"
^XMB(3.9,98,2,1421,0)="""KRN"",8989.51,416,20,10,0)"
^XMB(3.9,98,2,1422,0)=" "
^XMB(3.9,98,2,1423,0)="""KRN"",8989.51,416,20,11,0)"
^XMB(3.9,98,2,1424,0)="      170/20/100/30/11/22/31/44/50"
^XMB(3.9,98,2,1425,0)="""KRN"",8989.51,416,20,12,0)"
^XMB(3.9,98,2,1426,0)=" "
^XMB(3.9,98,2,1427,0)="""KRN"",8989.51,416,20,13,0)"
^XMB(3.9,98,2,1428,0)="Setting numbers are in units of centimeters. "
^XMB(3.9,98,2,1429,0)="""KRN"",8989.51,416,20,14,0)"
^XMB(3.9,98,2,1430,0)=" "
^XMB(3.9,98,2,1431,0)="""KRN"",8989.51,416,20,15,0)"
^XMB(3.9,98,2,1432,0)=" "
^XMB(3.9,98,2,1433,0)="""KRN"",8989.51,416,20,16,0)"
^XMB(3.9,98,2,1434,0)=" THESE NUMBERS MUST BE WHOLE NUMBERS."
^XMB(3.9,98,2,1435,0)="""KRN"",8989.51,416,30,0)"
^XMB(3.9,98,2,1436,0)="^8989.513I^1^1"
^XMB(3.9,98,2,1437,0)="""KRN"",8989.51,416,30,1,0)"
^XMB(3.9,98,2,1438,0)="1^200"
^XMB(3.9,98,2,1439,0)="""KRN"",8989.51,417,-1)"
^XMB(3.9,98,2,1440,0)="0^7"
^XMB(3.9,98,2,1441,0)="""KRN"",8989.51,417,0)"
^XMB(3.9,98,2,1442,0)="PSB MG ADMIN ERROR^Status Error Notification Mail Group^0^^ADMIN ERRORS MAIL GROUP^0"
^XMB(3.9,98,2,1443,0)="""KRN"",8989.51,417,1)"
^XMB(3.9,98,2,1444,0)="P^3.8^Enter Mail Group to get error messages. "
^XMB(3.9,98,2,1445,0)="""KRN"",8989.51,417,4,0)"
^XMB(3.9,98,2,1446,0)="^8989.514^5^5"
^XMB(3.9,98,2,1447,0)="""KRN"",8989.51,417,4,1,0)"
^XMB(3.9,98,2,1448,0)="BCMA"
^XMB(3.9,98,2,1449,0)="""KRN"",8989.51,417,4,2,0)"
^XMB(3.9,98,2,1450,0)="PSB"
^XMB(3.9,98,2,1451,0)="""KRN"",8989.51,417,4,3,0)"
^XMB(3.9,98,2,1452,0)="Mail Group"
^XMB(3.9,98,2,1453,0)="""KRN"",8989.51,417,4,4,0)"
^XMB(3.9,98,2,1454,0)="BCMA administration"
^XMB(3.9,98,2,1455,0)="""KRN"",8989.51,417,4,5,0)"
^XMB(3.9,98,2,1456,0)="errors"
^XMB(3.9,98,2,1457,0)="""KRN"",8989.51,417,4,""B"",""BCMA"",1)"
^XMB(3.9,98,2,1458,0)=" "
^XMB(3.9,98,2,1459,0)="""KRN"",8989.51,417,4,""B"",""BCMA administration"",4)"
^XMB(3.9,98,2,1460,0)=" "
^XMB(3.9,98,2,1461,0)="""KRN"",8989.51,417,4,""B"",""Mail Group"",3)"
^XMB(3.9,98,2,1462,0)=" "
^XMB(3.9,98,2,1463,0)="""KRN"",8989.51,417,4,""B"",""PSB"",2)"
^XMB(3.9,98,2,1464,0)=" "
^XMB(3.9,98,2,1465,0)="""KRN"",8989.51,417,4,""B"",""errors"",5)"
^XMB(3.9,98,2,1466,0)=" "
^XMB(3.9,98,2,1467,0)="""KRN"",8989.51,417,20,0)"
^XMB(3.9,98,2,1468,0)="^8989.512^3^3^3060123^^^^"
^XMB(3.9,98,2,1469,0)="""KRN"",8989.51,417,20,1,0)"
^XMB(3.9,98,2,1470,0)="This parameter is the name of the mail group containing persons to get "
^XMB(3.9,98,2,1471,0)="""KRN"",8989.51,417,20,2,0)"
^XMB(3.9,98,2,1472,0)="electronic mail messages, when a BCMA administration is filed with a "
^XMB(3.9,98,2,1473,0)="""KRN"",8989.51,417,20,3,0)"
^XMB(3.9,98,2,1474,0)="""null"" value in the Action Status field (#.09)."
^XMB(3.9,98,2,1475,0)="""KRN"",8989.51,417,30,0)"
^XMB(3.9,98,2,1476,0)="^8989.513I^3^1"
^XMB(3.9,98,2,1477,0)="""KRN"",8989.51,417,30,3,0)"
^XMB(3.9,98,2,1478,0)="1^4"
^XMB(3.9,98,2,1479,0)="""KRN"",8994,677,-1)"
^XMB(3.9,98,2,1480,0)="0^4"
^XMB(3.9,98,2,1481,0)="""KRN"",8994,677,0)"
^XMB(3.9,98,2,1482,0)="PSB SCANPT^SCANPT^PSBRPC^2^P^^^^3"
^XMB(3.9,98,2,1483,0)="""KRN"",8994,677,1,0)"
^XMB(3.9,98,2,1484,0)="^8994.01^8^8^3041013^^^^"
^XMB(3.9,98,2,1485,0)="""KRN"",8994,677,1,1,0)"
^XMB(3.9,98,2,1486,0)="This RPC is used to validate the data scanned in at the scan patient "
^XMB(3.9,98,2,1487,0)="""KRN"",8994,677,1,2,0)"
^XMB(3.9,98,2,1488,0)="wristband prompt of the mnOpenPatient component.  The value passed in "
^XMB(3.9,98,2,1489,0)="""KRN"",8994,677,1,3,0)"
^XMB(3.9,98,2,1490,0)="is either the full SSN scanned in from the patient wristband -or- the "
^XMB(3.9,98,2,1491,0)="""KRN"",8994,677,1,4,0)"
^XMB(3.9,98,2,1492,0)="1U4N syntax of the patient lookup.  In either case the call must "
^XMB(3.9,98,2,1493,0)="""KRN"",8994,677,1,5,0)"
^XMB(3.9,98,2,1494,0)="return only one patient from the lookup.  If the 1U4N syntax is used "
^XMB(3.9,98,2,1495,0)="""KRN"",8994,677,1,6,0)"
^XMB(3.9,98,2,1496,0)="and multiple patients are found the call returns an error.  If only "
^XMB(3.9,98,2,1497,0)="""KRN"",8994,677,1,7,0)"
^XMB(3.9,98,2,1498,0)="one patient is found the RESULTS( ) array is loaded with the patient "
^XMB(3.9,98,2,1499,0)="""KRN"",8994,677,1,8,0)"
^XMB(3.9,98,2,1500,0)="data and passed back to the client for verification."
^XMB(3.9,98,2,1501,0)="""KRN"",8994,677,2,0)"
^XMB(3.9,98,2,1502,0)="^8994.02A^1^1"
^XMB(3.9,98,2,1503,0)="""KRN"",8994,677,2,1,0)"
^XMB(3.9,98,2,1504,0)="PSBDATA^1^^1^1"
^XMB(3.9,98,2,1505,0)="""KRN"",8994,677,2,1,1,0)"
^XMB(3.9,98,2,1506,0)="^8994.021^1^1^3041013^^^^"
^XMB(3.9,98,2,1507,0)="""KRN"",8994,677,2,1,1,1,0)"
^XMB(3.9,98,2,1508,0)="This is the scanned valued passed by the client."
^XMB(3.9,98,2,1509,0)="""KRN"",8994,677,2,1,1,2,0)"
^XMB(3.9,98,2,1510,0)="wristband prompt of the mnOpenPatient component.  The value passed in"
^XMB(3.9,98,2,1511,0)="""KRN"",8994,677,2,1,1,3,0)"
^XMB(3.9,98,2,1512,0)="is either the full SSN scanned in from the patient wristband -or- the"
^XMB(3.9,98,2,1513,0)="""KRN"",8994,677,2,1,1,4,0)"
^XMB(3.9,98,2,1514,0)="1U4N syntax of the patient lookup.  In either case the call must"
^XMB(3.9,98,2,1515,0)="""KRN"",8994,677,2,1,1,5,0)"
^XMB(3.9,98,2,1516,0)="return only one patient from the lookup.  If the 1U4N syntax is used"
^XMB(3.9,98,2,1517,0)="""KRN"",8994,677,2,1,1,6,0)"
^XMB(3.9,98,2,1518,0)="and multiple patients are found the call returns an error.  If only"
^XMB(3.9,98,2,1519,0)="""KRN"",8994,677,2,1,1,7,0)"
^XMB(3.9,98,2,1520,0)="one patient is found the RESULTS( ) array is loaded with the patient"
^XMB(3.9,98,2,1521,0)="""KRN"",8994,677,2,1,1,8,0)"
^XMB(3.9,98,2,1522,0)="data and passed back to the client for verification."
^XMB(3.9,98,2,1523,0)="""KRN"",8994,677,2,""B"",""PSBDATA"",1)"
^XMB(3.9,98,2,1524,0)=" "
^XMB(3.9,98,2,1525,0)="""KRN"",8994,677,2,""B"",""PSBSSN"",1)"
^XMB(3.9,98,2,1526,0)=" "
^XMB(3.9,98,2,1527,0)="""KRN"",8994,677,2,""PARAMSEQ"",1,1)"
^XMB(3.9,98,2,1528,0)=" "
^XMB(3.9,98,2,1529,0)="""KRN"",8994,677,3,0)"
^XMB(3.9,98,2,1530,0)="^8994.03^48^48^3060303^^"
^XMB(3.9,98,2,1531,0)="""KRN"",8994,677,3,1,0)"
^XMB(3.9,98,2,1532,0)="If no patient or multiple patients are found with the scan value an "
^XMB(3.9,98,2,1533,0)="""KRN"",8994,677,3,2,0)"
^XMB(3.9,98,2,1534,0)="error is returned in the following format:"
^XMB(3.9,98,2,1535,0)="""KRN"",8994,677,3,3,0)"
^XMB(3.9,98,2,1536,0)=" "
^XMB(3.9,98,2,1537,0)="""KRN"",8994,677,3,4,0)"
^XMB(3.9,98,2,1538,0)="   Results[0] = 1"
^XMB(3.9,98,2,1539,0)="""KRN"",8994,677,3,5,0)"
^XMB(3.9,98,2,1540,0)="   Results[1] = '-1^Unable to Determine Patient ID'"
^XMB(3.9,98,2,1541,0)="""KRN"",8994,677,3,6,0)"
^XMB(3.9,98,2,1542,0)=" "
^XMB(3.9,98,2,1543,0)="""KRN"",8994,677,3,7,0)"
^XMB(3.9,98,2,1544,0)="If a unique patient is found the following data is returned to the "
^XMB(3.9,98,2,1545,0)="""KRN"",8994,677,3,8,0)"
^XMB(3.9,98,2,1546,0)="user:"
^XMB(3.9,98,2,1547,0)="""KRN"",8994,677,3,9,0)"
^XMB(3.9,98,2,1548,0)=" "
^XMB(3.9,98,2,1549,0)="""KRN"",8994,677,3,10,0)"
^XMB(3.9,98,2,1550,0)="   Results[0]  = Count of returned records"
^XMB(3.9,98,2,1551,0)="""KRN"",8994,677,3,11,0)"
^XMB(3.9,98,2,1552,0)=" "
^XMB(3.9,98,2,1553,0)="""KRN"",8994,677,3,12,0)"
^XMB(3.9,98,2,1554,0)="In the case of an error:"
^XMB(3.9,98,2,1555,0)="""KRN"",8994,677,3,13,0)"
^XMB(3.9,98,2,1556,0)="    Results[1]  = '-1^  ""the appropriate error message""  '"
^XMB(3.9,98,2,1557,0)="""KRN"",8994,677,3,14,0)"
^XMB(3.9,98,2,1558,0)=" "
^XMB(3.9,98,2,1559,0)="""KRN"",8994,677,3,15,0)"
^XMB(3.9,98,2,1560,0)="    Results[1]  = DFN"
^XMB(3.9,98,2,1561,0)="""KRN"",8994,677,3,16,0)"
^XMB(3.9,98,2,1562,0)="    Results[2]  = Name"
^XMB(3.9,98,2,1563,0)="""KRN"",8994,677,3,17,0)"
^XMB(3.9,98,2,1564,0)="    Results[3]  = SSN^Dashed SSN"
^XMB(3.9,98,2,1565,0)="""KRN"",8994,677,3,18,0)"
^XMB(3.9,98,2,1566,0)="    Results[4]  = Internal DOB^External DOB"
^XMB(3.9,98,2,1567,0)="""KRN"",8994,677,3,19,0)"
^XMB(3.9,98,2,1568,0)="    Results[5]  = Age"
^XMB(3.9,98,2,1569,0)="""KRN"",8994,677,3,20,0)"
^XMB(3.9,98,2,1570,0)="    Results[6]  = Internal Sex^External Sex"
^XMB(3.9,98,2,1571,0)="""KRN"",8994,677,3,21,0)"
^XMB(3.9,98,2,1572,0)="    Results[7]  = Internal Last Mvmt^External Last Mvmt"
^XMB(3.9,98,2,1573,0)="""KRN"",8994,677,3,22,0)"
^XMB(3.9,98,2,1574,0)="    Results[8]  = Internal Type Mvmt^External Type Mvmt"
^XMB(3.9,98,2,1575,0)="""KRN"",8994,677,3,23,0)"
^XMB(3.9,98,2,1576,0)="    Results[9]  = Internal Ward Location^External Ward Location^"
^XMB(3.9,98,2,1577,0)="""KRN"",8994,677,3,24,0)"
^XMB(3.9,98,2,1578,0)="                    Internal Hospital Location^External Hospital Location"
^XMB(3.9,98,2,1579,0)="""KRN"",8994,677,3,25,0)"
^XMB(3.9,98,2,1580,0)="    Results[10] = Internal Bed Location^External Bed Location"
^XMB(3.9,98,2,1581,0)="""KRN"",8994,677,3,26,0)"
^XMB(3.9,98,2,1582,0)="    Results[11] = Internal P-Care Physician^External P-Care Physician"
^XMB(3.9,98,2,1583,0)="""KRN"",8994,677,3,27,0)"
^XMB(3.9,98,2,1584,0)="    Results[12] = Internal Treating Speciality^External Treating Speciality"
^XMB(3.9,98,2,1585,0)="""KRN"",8994,677,3,28,0)"
^XMB(3.9,98,2,1586,0)="    Results[13] = Movement Diagnosis"
^XMB(3.9,98,2,1587,0)="""KRN"",8994,677,3,29,0)"
^XMB(3.9,98,2,1588,0)="    Results[14] = 1 if in Bed Status 0 if not in Bed Status (i.e. Pass)"
^XMB(3.9,98,2,1589,0)="""KRN"",8994,677,3,30,0)"
^XMB(3.9,98,2,1590,0)="    Results[15] = Expected return date from Pass"
^XMB(3.9,98,2,1591,0)="""KRN"",8994,677,3,31,0)"
^XMB(3.9,98,2,1592,0)="    Results[16] = Reactions"
^XMB(3.9,98,2,1593,0)="""KRN"",8994,677,3,32,0)"
^XMB(3.9,98,2,1594,0)="    Results[17] = Height"
^XMB(3.9,98,2,1595,0)="""KRN"",8994,677,3,33,0)"
^XMB(3.9,98,2,1596,0)="    Results[18] = Weight"
^XMB(3.9,98,2,1597,0)="""KRN"",8994,677,3,34,0)"
^XMB(3.9,98,2,1598,0)="    Results[19] = Means Tests"
^XMB(3.9,98,2,1599,0)="""KRN"",8994,677,3,35,0)"
^XMB(3.9,98,2,1600,0)="    Results[20] = ICN umber"
^XMB(3.9,98,2,1601,0)="""KRN"",8994,677,3,36,0)"
^XMB(3.9,98,2,1602,0)="    Results[21] = "" Admission Status message """
^XMB(3.9,98,2,1603,0)="""KRN"",8994,677,3,37,0)"
^XMB(3.9,98,2,1604,0)="    Results[22] = This NODE begins 'other' patient information."
^XMB(3.9,98,2,1605,0)="""KRN"",8994,677,3,38,0)"
^XMB(3.9,98,2,1606,0)="                  This NODE may be null.  Records on this NODE will"
^XMB(3.9,98,2,1607,0)="""KRN"",8994,677,3,39,0)"
^XMB(3.9,98,2,1608,0)="                  have a header.  A header will consist of one of the "
^XMB(3.9,98,2,1609,0)="""KRN"",8994,677,3,40,0)"
^XMB(3.9,98,2,1610,0)="                  following:"
^XMB(3.9,98,2,1611,0)="""KRN"",8994,677,3,41,0)"
^XMB(3.9,98,2,1612,0)="                 "
^XMB(3.9,98,2,1613,0)="""KRN"",8994,677,3,42,0)"
^XMB(3.9,98,2,1614,0)=" "
^XMB(3.9,98,2,1615,0)="""KRN"",8994,677,3,43,0)"
^XMB(3.9,98,2,1616,0)="                       ""PATFLG"""
^XMB(3.9,98,2,1617,0)="""KRN"",8994,677,3,44,0)"
^XMB(3.9,98,2,1618,0)=" "
^XMB(3.9,98,2,1619,0)="""KRN"",8994,677,3,45,0)"
^XMB(3.9,98,2,1620,0)="                              The PATFLG header will initiate a patient "
^XMB(3.9,98,2,1621,0)="""KRN"",8994,677,3,46,0)"
^XMB(3.9,98,2,1622,0)="                              flag record.  The patient flag record will "
^XMB(3.9,98,2,1623,0)="""KRN"",8994,677,3,47,0)"
^XMB(3.9,98,2,1624,0)="                              be constructed as follows: "
^XMB(3.9,98,2,1625,0)="""KRN"",8994,677,3,48,0)"
^XMB(3.9,98,2,1626,0)="                                        ""PATFLG"" ^ FLAG NAME ^ index#"
^XMB(3.9,98,2,1627,0)="""KRN"",8994,680,-1)"
^XMB(3.9,98,2,1628,0)="0^1"
^XMB(3.9,98,2,1629,0)="""KRN"",8994,680,0)"
^XMB(3.9,98,2,1630,0)="PSB USERLOAD^USRLOAD^PSBRPC^2^P^^^^3"
^XMB(3.9,98,2,1631,0)="""KRN"",8994,680,1,0)"
^XMB(3.9,98,2,1632,0)="^8994.01^3^3^3060202^^"
^XMB(3.9,98,2,1633,0)="""KRN"",8994,680,1,1,0)"
^XMB(3.9,98,2,1634,0)="This RPC is called at application startup to populate the BCMA_User "
^XMB(3.9,98,2,1635,0)="""KRN"",8994,680,1,2,0)"
^XMB(3.9,98,2,1636,0)="object with the users defaults.  No paramters are passed, the current "
^XMB(3.9,98,2,1637,0)="""KRN"",8994,680,1,3,0)"
^XMB(3.9,98,2,1638,0)="DUZ is assumed."
^XMB(3.9,98,2,1639,0)="""KRN"",8994,680,3,0)"
^XMB(3.9,98,2,1640,0)="^^36^36^3060202^"
^XMB(3.9,98,2,1641,0)="""KRN"",8994,680,3,1,0)"
^XMB(3.9,98,2,1642,0)="(0) = -1^Error Description"
^XMB(3.9,98,2,1643,0)="""KRN"",8994,680,3,2,0)"
^XMB(3.9,98,2,1644,0)=" "
^XMB(3.9,98,2,1645,0)="""KRN"",8994,680,3,3,0)"
^XMB(3.9,98,2,1646,0)="or"
^XMB(3.9,98,2,1647,0)="""KRN"",8994,680,3,4,0)"
^XMB(3.9,98,2,1648,0)=" "
^XMB(3.9,98,2,1649,0)="""KRN"",8994,680,3,5,0)"
^XMB(3.9,98,2,1650,0)="(0) = DUZ"
^XMB(3.9,98,2,1651,0)="""KRN"",8994,680,3,6,0)"
^XMB(3.9,98,2,1652,0)="(1) = User name"
^XMB(3.9,98,2,1653,0)="""KRN"",8994,680,3,7,0)"
^XMB(3.9,98,2,1654,0)="(2) = Student Key Flag"
^XMB(3.9,98,2,1655,0)="""KRN"",8994,680,3,8,0)"
^XMB(3.9,98,2,1656,0)="(3) = Manager Key flag"
^XMB(3.9,98,2,1657,0)="""KRN"",8994,680,3,9,0)"
^XMB(3.9,98,2,1658,0)="(4) = CPRS Med Order Button Key Flag     "
^XMB(3.9,98,2,1659,0)="""KRN"",8994,680,3,10,0)"
^XMB(3.9,98,2,1660,0)="(5) = Window settings"
^XMB(3.9,98,2,1661,0)="""KRN"",8994,680,3,11,0)"
^XMB(3.9,98,2,1662,0)="      Window Left"
^XMB(3.9,98,2,1663,0)="""KRN"",8994,680,3,12,0)"
^XMB(3.9,98,2,1664,0)="      Window Height"
^XMB(3.9,98,2,1665,0)="""KRN"",8994,680,3,13,0)"
^XMB(3.9,98,2,1666,0)="      Window Top"
^XMB(3.9,98,2,1667,0)="""KRN"",8994,680,3,14,0)"
^XMB(3.9,98,2,1668,0)="      Window Width"
^XMB(3.9,98,2,1669,0)="""KRN"",8994,680,3,15,0)"
^XMB(3.9,98,2,1670,0)="(6) = Virtual Due List Setup"
^XMB(3.9,98,2,1671,0)="""KRN"",8994,680,3,16,0)"
^XMB(3.9,98,2,1672,0)="(7) = Division number ^ Site ID ^ (if production system ""1"", if test system ""0"")"
^XMB(3.9,98,2,1673,0)="""KRN"",8994,680,3,17,0)"
^XMB(3.9,98,2,1674,0)="(8) = Division name"
^XMB(3.9,98,2,1675,0)="""KRN"",8994,680,3,18,0)"
^XMB(3.9,98,2,1676,0)="(9) = ESIG flag "
^XMB(3.9,98,2,1677,0)="""KRN"",8994,680,3,19,0)"
^XMB(3.9,98,2,1678,0)="(10) = BCMA Online flag"
^XMB(3.9,98,2,1679,0)="""KRN"",8994,680,3,20,0)"
^XMB(3.9,98,2,1680,0)="(11) = Time      "
^XMB(3.9,98,2,1681,0)="""KRN"",8994,680,3,21,0)"
^XMB(3.9,98,2,1682,0)="(12) = Unit Dose column widths"
^XMB(3.9,98,2,1683,0)="""KRN"",8994,680,3,22,0)"
^XMB(3.9,98,2,1684,0)="(13) = Check digit"
^XMB(3.9,98,2,1685,0)="""KRN"",8994,680,3,23,0)"
^XMB(3.9,98,2,1686,0)="(14) = IVPB column widths"
^XMB(3.9,98,2,1687,0)="""KRN"",8994,680,3,24,0)"
^XMB(3.9,98,2,1688,0)="(15) = IV column widths"
^XMB(3.9,98,2,1689,0)="""KRN"",8994,680,3,25,0)"
^XMB(3.9,98,2,1690,0)="(16) = Printer user default IEN"
^XMB(3.9,98,2,1691,0)="""KRN"",8994,680,3,26,0)"
^XMB(3.9,98,2,1692,0)="(17) = Printer user default IEN^Name"
^XMB(3.9,98,2,1693,0)="""KRN"",8994,680,3,27,0)"
^XMB(3.9,98,2,1694,0)="(18) = Read Only Security Key flag"
^XMB(3.9,98,2,1695,0)="""KRN"",8994,680,3,28,0)"
^XMB(3.9,98,2,1696,0)="(19) = User's preference per Coversheet Views' column sort"
^XMB(3.9,98,2,1697,0)="""KRN"",8994,680,3,29,0)"
^XMB(3.9,98,2,1698,0)="      Medication Overview sort col #"
^XMB(3.9,98,2,1699,0)="""KRN"",8994,680,3,30,0)"
^XMB(3.9,98,2,1700,0)="      PRN Overview sort col #"
^XMB(3.9,98,2,1701,0)="""KRN"",8994,680,3,31,0)"
^XMB(3.9,98,2,1702,0)="      IV Overview sort col #"
^XMB(3.9,98,2,1703,0)="""KRN"",8994,680,3,32,0)"
^XMB(3.9,98,2,1704,0)="      Expired/Expiring sort col #"
^XMB(3.9,98,2,1705,0)="""KRN"",8994,680,3,33,0)"
^XMB(3.9,98,2,1706,0)="(20) = User's preference per Coversheet View1 columns' widths"
^XMB(3.9,98,2,1707,0)="""KRN"",8994,680,3,34,0)"
^XMB(3.9,98,2,1708,0)="(21) = User's preference per Coversheet View2 columns' widths"
^XMB(3.9,98,2,1709,0)="""KRN"",8994,680,3,35,0)"
^XMB(3.9,98,2,1710,0)="(22) = User's preference per Coversheet View3 columns' widths"
^XMB(3.9,98,2,1711,0)="""KRN"",8994,680,3,36,0)"
^XMB(3.9,98,2,1712,0)="(23) = User's preference per Coversheet View4 columns' widths"
^XMB(3.9,98,2,1713,0)="""KRN"",8994,681,-1)"
^XMB(3.9,98,2,1714,0)="0^2"
^XMB(3.9,98,2,1715,0)="""KRN"",8994,681,0)"
^XMB(3.9,98,2,1716,0)="PSB USERSAVE^USRSAVE^PSBRPC^2^^^^^2"
^XMB(3.9,98,2,1717,0)="""KRN"",8994,681,1,0)"
^XMB(3.9,98,2,1718,0)="^8994.01^1^1^3010910^^^"
^XMB(3.9,98,2,1719,0)="""KRN"",8994,681,1,1,0)"
^XMB(3.9,98,2,1720,0)="Save the users current window settings for the next session."
^XMB(3.9,98,2,1721,0)="""KRN"",8994,681,2,0)"
^XMB(3.9,98,2,1722,0)="^8994.02A^6^6"
^XMB(3.9,98,2,1723,0)="""KRN"",8994,681,2,1,0)"
^XMB(3.9,98,2,1724,0)="PSBWIN^1^30^1^1"
^XMB(3.9,98,2,1725,0)="""KRN"",8994,681,2,1,1,0)"
^XMB(3.9,98,2,1726,0)="^8994.021^6^6^3010910^^^^"
^XMB(3.9,98,2,1727,0)="""KRN"",8994,681,2,1,1,1,0)"
^XMB(3.9,98,2,1728,0)="Contains the current window settings so that the next time the user "
^XMB(3.9,98,2,1729,0)="""KRN"",8994,681,2,1,1,2,0)"
^XMB(3.9,98,2,1730,0)="activates the application the window will reappear in the same format."
^XMB(3.9,98,2,1731,0)="""KRN"",8994,681,2,1,1,3,0)"
^XMB(3.9,98,2,1732,0)=" "
^XMB(3.9,98,2,1733,0)="""KRN"",8994,681,2,1,1,4,0)"
^XMB(3.9,98,2,1734,0)="Data is in the following format:"
^XMB(3.9,98,2,1735,0)="""KRN"",8994,681,2,1,1,5,0)"
^XMB(3.9,98,2,1736,0)=" "
^XMB(3.9,98,2,1737,0)="""KRN"",8994,681,2,1,1,6,0)"
^XMB(3.9,98,2,1738,0)="   Window Top;Window Left;Window Height;Window Width;Window State"
^XMB(3.9,98,2,1739,0)="""KRN"",8994,681,2,2,0)"
^XMB(3.9,98,2,1740,0)="PSBVDL^1^^1^2"
^XMB(3.9,98,2,1741,0)="""KRN"",8994,681,2,2,1,0)"
^XMB(3.9,98,2,1742,0)="^^1^1^3010910^"
^XMB(3.9,98,2,1743,0)="""KRN"",8994,681,2,2,1,1,0)"
^XMB(3.9,98,2,1744,0)="VDL settings"
^XMB(3.9,98,2,1745,0)="""KRN"",8994,681,2,3,0)"
^XMB(3.9,98,2,1746,0)="PSBUDCW ^1^^1^3"
^XMB(3.9,98,2,1747,0)="""KRN"",8994,681,2,3,1,0)"
^XMB(3.9,98,2,1748,0)="^^1^1^3010910^"
^XMB(3.9,98,2,1749,0)="""KRN"",8994,681,2,3,1,1,0)"
^XMB(3.9,98,2,1750,0)="UD tab column settings"
^XMB(3.9,98,2,1751,0)="""KRN"",8994,681,2,4,0)"
^XMB(3.9,98,2,1752,0)="PSBPBCW^1^^1^4"
^XMB(3.9,98,2,1753,0)="""KRN"",8994,681,2,4,1,0)"
^XMB(3.9,98,2,1754,0)="^^1^1^3010910^"
^XMB(3.9,98,2,1755,0)="""KRN"",8994,681,2,4,1,1,0)"
^XMB(3.9,98,2,1756,0)="PB tab column settings "
^XMB(3.9,98,2,1757,0)="""KRN"",8994,681,2,5,0)"
^XMB(3.9,98,2,1758,0)="PSBIVCW^1^^1^5"
^XMB(3.9,98,2,1759,0)="""KRN"",8994,681,2,5,1,0)"
^XMB(3.9,98,2,1760,0)="^^1^1^3010910^"
^XMB(3.9,98,2,1761,0)="""KRN"",8994,681,2,5,1,1,0)"
^XMB(3.9,98,2,1762,0)="IV tab column settings   "
^XMB(3.9,98,2,1763,0)="""KRN"",8994,681,2,6,0)"
^XMB(3.9,98,2,1764,0)="PSBDEV^1^^1^6"
^XMB(3.9,98,2,1765,0)="""KRN"",8994,681,2,6,1,0)"
^XMB(3.9,98,2,1766,0)="^^1^1^3010910^"
^XMB(3.9,98,2,1767,0)="""KRN"",8994,681,2,6,1,1,0)"
^XMB(3.9,98,2,1768,0)="Last print device used."
^XMB(3.9,98,2,1769,0)="""KRN"",8994,681,2,""B"",""PSBDEV"",6)"
^XMB(3.9,98,2,1770,0)=" "
^XMB(3.9,98,2,1771,0)="""KRN"",8994,681,2,""B"",""PSBIVCW"",5)"
^XMB(3.9,98,2,1772,0)=" "
^XMB(3.9,98,2,1773,0)="""KRN"",8994,681,2,""B"",""PSBPBCW"",4)"
^XMB(3.9,98,2,1774,0)=" "
^XMB(3.9,98,2,1775,0)="""KRN"",8994,681,2,""B"",""PSBUDCW "",3)"
^XMB(3.9,98,2,1776,0)=" "
^XMB(3.9,98,2,1777,0)="""KRN"",8994,681,2,""B"",""PSBVDL"",2)"
^XMB(3.9,98,2,1778,0)=" "
^XMB(3.9,98,2,1779,0)="""KRN"",8994,681,2,""B"",""PSBWIN"",1)"
^XMB(3.9,98,2,1780,0)=" "
^XMB(3.9,98,2,1781,0)="""KRN"",8994,681,2,""PARAMSEQ"",1,1)"
^XMB(3.9,98,2,1782,0)=" "
^XMB(3.9,98,2,1783,0)="""KRN"",8994,681,2,""PARAMSEQ"",2,2)"
^XMB(3.9,98,2,1784,0)=" "
^XMB(3.9,98,2,1785,0)="""KRN"",8994,681,2,""PARAMSEQ"",3,3)"
^XMB(3.9,98,2,1786,0)=" "
^XMB(3.9,98,2,1787,0)="""KRN"",8994,681,2,""PARAMSEQ"",4,4)"
^XMB(3.9,98,2,1788,0)=" "
^XMB(3.9,98,2,1789,0)="""KRN"",8994,681,2,""PARAMSEQ"",5,5)"
^XMB(3.9,98,2,1790,0)=" "
^XMB(3.9,98,2,1791,0)="""KRN"",8994,681,2,""PARAMSEQ"",6,6)"
^XMB(3.9,98,2,1792,0)=" "
^XMB(3.9,98,2,1793,0)="""KRN"",8994,681,3,0)"
^XMB(3.9,98,2,1794,0)="^8994.03^4^4^3010910^^^"
^XMB(3.9,98,2,1795,0)="""KRN"",8994,681,3,1,0)"
^XMB(3.9,98,2,1796,0)="Returns"
^XMB(3.9,98,2,1797,0)="""KRN"",8994,681,3,2,0)"
^XMB(3.9,98,2,1798,0)=" "
^XMB(3.9,98,2,1799,0)="""KRN"",8994,681,3,3,0)"
^XMB(3.9,98,2,1800,0)="  Results[0]='1^Saved'"
^XMB(3.9,98,2,1801,0)="""KRN"",8994,681,3,4,0)"
^XMB(3.9,98,2,1802,0)="  Results[0]='-1^Unable to save settings' if an error occurs in filing."
^XMB(3.9,98,2,1803,0)="""KRN"",8994,1966,-1)"
^XMB(3.9,98,2,1804,0)="0^3"
^XMB(3.9,98,2,1805,0)="""KRN"",8994,1966,0)"
^XMB(3.9,98,2,1806,0)="PSB UTL XSTATUS SRCH^FNDACTV^PSBVDLU3^2^R^0^^^3"
^XMB(3.9,98,2,1807,0)="""KRN"",8994,1966,1,0)"
^XMB(3.9,98,2,1808,0)="^^5^5^3060113^"
^XMB(3.9,98,2,1809,0)="""KRN"",8994,1966,1,1,0)"
^XMB(3.9,98,2,1810,0)="RESULTS(0)=returned line count"
^XMB(3.9,98,2,1811,0)="""KRN"",8994,1966,1,2,0)"
^XMB(3.9,98,2,1812,0)="RESULTS(1)=patients location during activity"
^XMB(3.9,98,2,1813,0)="""KRN"",8994,1966,1,3,0)"
^XMB(3.9,98,2,1814,0)="RESULTS(2)=medication^ordernumber"
^XMB(3.9,98,2,1815,0)="""KRN"",8994,1966,1,4,0)"
^XMB(3.9,98,2,1816,0)="RESULTS(3)= action fileman date&time"
^XMB(3.9,98,2,1817,0)="""KRN"",8994,1966,1,5,0)"
^XMB(3.9,98,2,1818,0)="RESULTS(4)= scheduled administration fileman date&time"
^XMB(3.9,98,2,1819,0)="""KRN"",8994,1966,2,0)"
^XMB(3.9,98,2,1820,0)="^8994.02A^2^2"
^XMB(3.9,98,2,1821,0)="""KRN"",8994,1966,2,1,0)"
^XMB(3.9,98,2,1822,0)="RESULTS^4^^1^1"
^XMB(3.9,98,2,1823,0)="""KRN"",8994,1966,2,1,1,0)"
^XMB(3.9,98,2,1824,0)="^^1^1^3060113^"
^XMB(3.9,98,2,1825,0)="""KRN"",8994,1966,2,1,1,1,0)"
^XMB(3.9,98,2,1826,0)="RESULTS array (ref)"
^XMB(3.9,98,2,1827,0)="""KRN"",8994,1966,2,2,0)"
^XMB(3.9,98,2,1828,0)="PARAMS^1^^1^2"
^XMB(3.9,98,2,1829,0)="""KRN"",8994,1966,2,2,1,0)"
^XMB(3.9,98,2,1830,0)="^^19^19^3060113^"
^XMB(3.9,98,2,1831,0)="""KRN"",8994,1966,2,2,1,1,0)"
^XMB(3.9,98,2,1832,0)="^ piece"
^XMB(3.9,98,2,1833,0)="""KRN"",8994,1966,2,2,1,2,0)"
^XMB(3.9,98,2,1834,0)="#1 - DFN (required)"
^XMB(3.9,98,2,1835,0)="""KRN"",8994,1966,2,2,1,3,0)"
^XMB(3.9,98,2,1836,0)="#2 - OrderNumber"
^XMB(3.9,98,2,1837,0)="""KRN"",8994,1966,2,2,1,4,0)"
^XMB(3.9,98,2,1838,0)="#3 - Action (status) to search for"
^XMB(3.9,98,2,1839,0)="""KRN"",8994,1966,2,2,1,5,0)"
^XMB(3.9,98,2,1840,0)="#4 - TimeFrame"
^XMB(3.9,98,2,1841,0)="""KRN"",8994,1966,2,2,1,6,0)"
^XMB(3.9,98,2,1842,0)="                          NOTE:  =""FREQ""  This  Function will use order's "
^XMB(3.9,98,2,1843,0)="""KRN"",8994,1966,2,2,1,7,0)"
^XMB(3.9,98,2,1844,0)="                                   frequency."
^XMB(3.9,98,2,1845,0)="""KRN"",8994,1966,2,2,1,8,0)"
^XMB(3.9,98,2,1846,0)="        ;                    1. If the order is a PRN, On Call or One-Time"
^XMB(3.9,98,2,1847,0)="""KRN"",8994,1966,2,2,1,9,0)"
^XMB(3.9,98,2,1848,0)="        ;                       the look back a default of 72 hours."
^XMB(3.9,98,2,1849,0)="""KRN"",8994,1966,2,2,1,10,0)"
^XMB(3.9,98,2,1850,0)="        ;                    2. if the order is a Continuous order key "
^XMB(3.9,98,2,1851,0)="""KRN"",8994,1966,2,2,1,11,0)"
^XMB(3.9,98,2,1852,0)="                                off of the frequency as follows."
^XMB(3.9,98,2,1853,0)="""KRN"",8994,1966,2,2,1,12,0)"
^XMB(3.9,98,2,1854,0)="        ;                          a.) if the frequency is <24 hours "
^XMB(3.9,98,2,1855,0)="""KRN"",8994,1966,2,2,1,13,0)"
^XMB(3.9,98,2,1856,0)="                                      use the default of 72 hours."
^XMB(3.9,98,2,1857,0)="""KRN"",8994,1966,2,2,1,14,0)"
^XMB(3.9,98,2,1858,0)="        ;                          b.) if the frequency is >= 24 hour, "
^XMB(3.9,98,2,1859,0)="""KRN"",8994,1966,2,2,1,15,0)"
^XMB(3.9,98,2,1860,0)="                                      look back 3.5 times the frequency"
^XMB(3.9,98,2,1861,0)="""KRN"",8994,1966,2,2,1,16,0)"
^XMB(3.9,98,2,1862,0)="        ;                 NOTE:  [""X#""   This Function will search back # "
^XMB(3.9,98,2,1863,0)="""KRN"",8994,1966,2,2,1,17,0)"
^XMB(3.9,98,2,1864,0)="                                    of admins."
^XMB(3.9,98,2,1865,0)="""KRN"",8994,1966,2,2,1,18,0)"
^XMB(3.9,98,2,1866,0)=" "
^XMB(3.9,98,2,1867,0)="""KRN"",8994,1966,2,2,1,19,0)"
^XMB(3.9,98,2,1868,0)="        ;  Example call: D FNDACTV^PSBVDLU3(.results,""1234^1U^H^12"")"
^XMB(3.9,98,2,1869,0)="""KRN"",8994,1966,2,""B"",""PARAMS"",2)"
^XMB(3.9,98,2,1870,0)=" "
^XMB(3.9,98,2,1871,0)="""KRN"",8994,1966,2,""B"",""RESULTS"",1)"
^XMB(3.9,98,2,1872,0)=" "
^XMB(3.9,98,2,1873,0)="""KRN"",8994,1966,2,""PARAMSEQ"",1,1)"
^XMB(3.9,98,2,1874,0)=" "
^XMB(3.9,98,2,1875,0)="""KRN"",8994,1966,2,""PARAMSEQ"",2,2)"
^XMB(3.9,98,2,1876,0)=" "
^XMB(3.9,98,2,1877,0)="""MBREQ"")"
^XMB(3.9,98,2,1878,0)="0"
^XMB(3.9,98,2,1879,0)="""ORD"",8,.403)"
^XMB(3.9,98,2,1880,0)=".403;8;;;EDEOUT^DIFROMSO(.403,DA,"""",XPDA);FPRE^DIFROMSI(.403,"""",XPDA);EPRE^DIFROMSI(.403,DA,$E(""N"",$G(XPDNEW)),XPDA,"""",OLDA);;EPOST^DIFROMSI(.403,DA,"""",XPDA);DEL^DIFROMSK(.403,"""",%)"
^XMB(3.9,98,2,1881,0)="""ORD"",8,.403,0)"
^XMB(3.9,98,2,1882,0)="FORM"
^XMB(3.9,98,2,1883,0)="""ORD"",16,8994)"
^XMB(3.9,98,2,1884,0)="8994;16;1;;;;;;;RPCDEL^XPDIA1"
^XMB(3.9,98,2,1885,0)="""ORD"",16,8994,0)"
^XMB(3.9,98,2,1886,0)="REMOTE PROCEDURE"
^XMB(3.9,98,2,1887,0)="""ORD"",18,19)"
^XMB(3.9,98,2,1888,0)="19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA"
^XMB(3.9,98,2,1889,0)="""ORD"",18,19,0)"
^XMB(3.9,98,2,1890,0)="OPTION"
^XMB(3.9,98,2,1891,0)="""ORD"",20,8989.51)"
^XMB(3.9,98,2,1892,0)="8989.51;20;;;PAR1E1^XPDTA2;PAR1F1^XPDIA3;PAR1E1^XPDIA3;PAR1F2^XPDIA3;;PAR1DEL^XPDIA3(%)"
^XMB(3.9,98,2,1893,0)="""ORD"",20,8989.51,0)"
^XMB(3.9,98,2,1894,0)="PARAMETER DEFINITION"
^XMB(3.9,98,2,1895,0)="""PKG"",536,-1)"
^XMB(3.9,98,2,1896,0)="1^1"
^XMB(3.9,98,2,1897,0)="""PKG"",536,0)"
^XMB(3.9,98,2,1898,0)="BAR CODE MED ADMIN^PSB^BAR CODE MEDICATION ADMINISTRATION"
^XMB(3.9,98,2,1899,0)="""PKG"",536,20,0)"
^XMB(3.9,98,2,1900,0)="^9.402P^^0"
^XMB(3.9,98,2,1901,0)="""PKG"",536,22,0)"
^XMB(3.9,98,2,1902,0)="^9.49I^1^1"
^XMB(3.9,98,2,1903,0)="""PKG"",536,22,1,0)"
^XMB(3.9,98,2,1904,0)="3.0^3040224^3040318^11874"
^XMB(3.9,98,2,1905,0)="""PKG"",536,22,1,""PAH"",1,0)"
^XMB(3.9,98,2,1906,0)="13^3060322^10000000035"
^XMB(3.9,98,2,1907,0)="""PKG"",536,22,1,""PAH"",1,1,0)"
^XMB(3.9,98,2,1908,0)="^^117^117^3060322"
^XMB(3.9,98,2,1909,0)="""PKG"",536,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,98,2,1910,0)=" "
^XMB(3.9,98,2,1911,0)="""PKG"",536,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,98,2,1912,0)="***"
^XMB(3.9,98,2,1913,0)="""PKG"",536,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,98,2,1914,0)=" "
^XMB(3.9,98,2,1915,0)="""PKG"",536,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,98,2,1916,0)="This patch is a component of the Bar Code Medication Administration "
^XMB(3.9,98,2,1917,0)="""PKG"",536,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,98,2,1918,0)="(BCMA) Version 3.0.  The main function of PSB*3.0*13 and the "
^XMB(3.9,98,2,1919,0)="""PKG"",536,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,98,2,1920,0)="corresponding BCMA Graphical User Interface (GUI) software (BCMA Version 3"
^XMB(3.9,98,2,1921,0)="""PKG"",536,22,1,""PAH"",1,1,7,0)"
^XMB(3.9,98,2,1922,0)="Patch 13 [3.0.13]) is to support BCMA v3.0 Clinical Context Object "
^XMB(3.9,98,2,1923,0)="""PKG"",536,22,1,""PAH"",1,1,8,0)"
^XMB(3.9,98,2,1924,0)="Workgroup (CCOW) compliance. The PSB*3.0*13 GUI and this Character User "
^XMB(3.9,98,2,1925,0)="""PKG"",536,22,1,""PAH"",1,1,9,0)"
^XMB(3.9,98,2,1926,0)="Interface (CHUI) software (PSB*3.0*13) also support Patient Safety "
^XMB(3.9,98,2,1927,0)="""PKG"",536,22,1,""PAH"",1,1,10,0)"
^XMB(3.9,98,2,1928,0)="Issues (PSI) and Remedy Ticket resolution and BCMA Coversheet refinement."
^XMB(3.9,98,2,1929,0)="""PKG"",536,22,1,""PAH"",1,1,11,0)"
^XMB(3.9,98,2,1930,0)="***"
^XMB(3.9,98,2,1931,0)="""PKG"",536,22,1,""PAH"",1,1,12,0)"
^XMB(3.9,98,2,1932,0)=" "
^XMB(3.9,98,2,1933,0)="""PKG"",536,22,1,""PAH"",1,1,13,0)"
^XMB(3.9,98,2,1934,0)="1.   Problem: PSI-05-064"
^XMB(3.9,98,2,1935,0)="""PKG"",536,22,1,""PAH"",1,1,14,0)"
^XMB(3.9,98,2,1936,0)="     BCMA functionality enables a BCMA user to edit the free text "
^XMB(3.9,98,2,1937,0)="""PKG"",536,22,1,""PAH"",1,1,15,0)"
^XMB(3.9,98,2,1938,0)="     BCMA MEDICATION LOG FILE-DISPENSE DRUG SUBFILE (# 53.795) ""Units"
^XMB(3.9,98,2,1939,0)="""PKG"",536,22,1,""PAH"",1,1,16,0)"
^XMB(3.9,98,2,1940,0)="     of Administration"" (field #.04) for an administered medication, when "
^XMB(3.9,98,2,1941,0)="""PKG"",536,22,1,""PAH"",1,1,17,0)"
^XMB(3.9,98,2,1942,0)="     using the Edit Medication Log.  Consequently, the GUI Edit "
^XMB(3.9,98,2,1943,0)="""PKG"",536,22,1,""PAH"",1,1,18,0)"
^XMB(3.9,98,2,1944,0)="     Medication Log (Edit Med Log) allows a BCMA user to modify text in "
^XMB(3.9,98,2,1945,0)="""PKG"",536,22,1,""PAH"",1,1,19,0)"
^XMB(3.9,98,2,1946,0)="     the field labeled ""Units"" of the ""BCMA - Edit Med Log"" dialog box.  "
^XMB(3.9,98,2,1947,0)="""PKG"",536,22,1,""PAH"",1,1,20,0)"
^XMB(3.9,98,2,1948,0)="     The user is able to change the ""Units"" from ""PATCH"" to any other text"
^XMB(3.9,98,2,1949,0)="""PKG"",536,22,1,""PAH"",1,1,21,0)"
^XMB(3.9,98,2,1950,0)="     value.  Changing a ""PATCH"" medication to some other ""Units"", causes "
^XMB(3.9,98,2,1951,0)="""PKG"",536,22,1,""PAH"",1,1,22,0)"
^XMB(3.9,98,2,1952,0)="     BCMA to not process the administration properly; and causes the BCMA "
^XMB(3.9,98,2,1953,0)="""PKG"",536,22,1,""PAH"",1,1,23,0)"
^XMB(3.9,98,2,1954,0)="     Virtual Due List (VDL) to not present the administration properly."
^XMB(3.9,98,2,1955,0)="""PKG"",536,22,1,""PAH"",1,1,24,0)"
^XMB(3.9,98,2,1956,0)=" "
^XMB(3.9,98,2,1957,0)="""PKG"",536,22,1,""PAH"",1,1,25,0)"
^XMB(3.9,98,2,1958,0)="     Corrective Action:"
^XMB(3.9,98,2,1959,0)="""PKG"",536,22,1,""PAH"",1,1,26,0)"
^XMB(3.9,98,2,1960,0)="     The BCMA GUI Edit Med Log will not allow any BCMA user to edit the "
^XMB(3.9,98,2,1961,0)="""PKG"",536,22,1,""PAH"",1,1,27,0)"
^XMB(3.9,98,2,1962,0)="     BCMA MEDICATION LOG FILE/DISPENSE DRUG SUBFILE (# 53.795) ""Units "
^XMB(3.9,98,2,1963,0)="""PKG"",536,22,1,""PAH"",1,1,28,0)"
^XMB(3.9,98,2,1964,0)="     of Administration"" (field # .04) of an administered ""PATCH"" "
^XMB(3.9,98,2,1965,0)="""PKG"",536,22,1,""PAH"",1,1,29,0)"
^XMB(3.9,98,2,1966,0)="     medication."
^XMB(3.9,98,2,1967,0)="""PKG"",536,22,1,""PAH"",1,1,30,0)"
^XMB(3.9,98,2,1968,0)=" "
^XMB(3.9,98,2,1969,0)="""PKG"",536,22,1,""PAH"",1,1,31,0)"
^XMB(3.9,98,2,1970,0)="2.   Problem: PSI-05-032"
^XMB(3.9,98,2,1971,0)="""PKG"",536,22,1,""PAH"",1,1,32,0)"
^XMB(3.9,98,2,1972,0)="     The VDL displays a GIVEN medication patch until it has been marked as"
^XMB(3.9,98,2,1973,0)="""PKG"",536,22,1,""PAH"",1,1,33,0)"
^XMB(3.9,98,2,1974,0)="     ""REMOVED"".  This is causing some confusion to users."
^XMB(3.9,98,2,1975,0)="""PKG"",536,22,1,""PAH"",1,1,34,0)"
^XMB(3.9,98,2,1976,0)=" "
^XMB(3.9,98,2,1977,0)="""PKG"",536,22,1,""PAH"",1,1,35,0)"
^XMB(3.9,98,2,1978,0)="     Corrective Action:"
^XMB(3.9,98,2,1979,0)="""PKG"",536,22,1,""PAH"",1,1,36,0)"
^XMB(3.9,98,2,1980,0)="     BCMA will provide a site parameter that will specify the number of "
^XMB(3.9,98,2,1981,0)="""PKG"",536,22,1,""PAH"",1,1,37,0)"
^XMB(3.9,98,2,1982,0)="     days (7-14) a GIVEN patch will display on the VDL.  The count of "
^XMB(3.9,98,2,1983,0)="""PKG"",536,22,1,""PAH"",1,1,38,0)"
^XMB(3.9,98,2,1984,0)="     days the GIVEN patch displays on the VDL begins when the "
^XMB(3.9,98,2,1985,0)="""PKG"",536,22,1,""PAH"",1,1,39,0)"
^XMB(3.9,98,2,1986,0)="     medication order expires.  This parameter may be set to """""
^XMB(3.9,98,2,1987,0)="""PKG"",536,22,1,""PAH"",1,1,40,0)"
^XMB(3.9,98,2,1988,0)="     (null) to allow GIVEN patches to display on the VDL until it is "
^XMB(3.9,98,2,1989,0)="""PKG"",536,22,1,""PAH"",1,1,41,0)"
^XMB(3.9,98,2,1990,0)="     marked as REMOVED."
^XMB(3.9,98,2,1991,0)="""PKG"",536,22,1,""PAH"",1,1,42,0)"
^XMB(3.9,98,2,1992,0)=" "
^XMB(3.9,98,2,1993,0)="""PKG"",536,22,1,""PAH"",1,1,43,0)"
^XMB(3.9,98,2,1994,0)=" "
^XMB(3.9,98,2,1995,0)="""PKG"",536,22,1,""PAH"",1,1,44,0)"
^XMB(3.9,98,2,1996,0)="3.   Problem: PSI-05-115"
^XMB(3.9,98,2,1997,0)="""PKG"",536,22,1,""PAH"",1,1,45,0)"
^XMB(3.9,98,2,1998,0)="     The Special Instructions on the VDL will display the entire Special "
^XMB(3.9,98,2,1999,0)="""PKG"",536,22,1,""PAH"",1,1,46,0)"
^XMB(3.9,98,2,2000,0)="     Instructions by wrapping the text as needed using the spaces in the "
^XMB(3.9,98,2,2001,0)="""PKG"",536,22,1,""PAH"",1,1,47,0)"
^XMB(3.9,98,2,2002,0)="     Special Instructions. However, ff a word or phrase (without spaces) "
^XMB(3.9,98,2,2003,0)="""PKG"",536,22,1,""PAH"",1,1,48,0)"
^XMB(3.9,98,2,2004,0)="     in the Special Instructions can not be wrapped due to the word or "
^XMB(3.9,98,2,2005,0)="""PKG"",536,22,1,""PAH"",1,1,49,0)"
^XMB(3.9,98,2,2006,0)="     phrase being longer then the width of the column, the text would be "
^XMB(3.9,98,2,2007,0)="""PKG"",536,22,1,""PAH"",1,1,50,0)"
^XMB(3.9,98,2,2008,0)="     truncated when the text ran into the right side of the column. In "
^XMB(3.9,98,2,2009,0)="""PKG"",536,22,1,""PAH"",1,1,51,0)"
^XMB(3.9,98,2,2010,0)="     addition, when the above happens, some of the ending words in the "
^XMB(3.9,98,2,2011,0)="""PKG"",536,22,1,""PAH"",1,1,52,0)"
^XMB(3.9,98,2,2012,0)="     special instructions may be omitted as well."
^XMB(3.9,98,2,2013,0)="""PKG"",536,22,1,""PAH"",1,1,53,0)"
^XMB(3.9,98,2,2014,0)=" "
^XMB(3.9,98,2,2015,0)="""PKG"",536,22,1,""PAH"",1,1,54,0)"
^XMB(3.9,98,2,2016,0)="     Correction Action:"
^XMB(3.9,98,2,2017,0)="""PKG"",536,22,1,""PAH"",1,1,55,0)"
^XMB(3.9,98,2,2018,0)="     When a word or phrase (without spaces) can not be wrapped and does "
^XMB(3.9,98,2,2019,0)="""PKG"",536,22,1,""PAH"",1,1,56,0)"
^XMB(3.9,98,2,2020,0)="     not fit in the column width, the text will be truncated with an "
^XMB(3.9,98,2,2021,0)="""PKG"",536,22,1,""PAH"",1,1,57,0)"
^XMB(3.9,98,2,2022,0)="     ellipsis to indicate that a portion of the word or phrase was "
^XMB(3.9,98,2,2023,0)="""PKG"",536,22,1,""PAH"",1,1,58,0)"
^XMB(3.9,98,2,2024,0)="     truncated. The occasional omission of ending words in the special "
^XMB(3.9,98,2,2025,0)="""PKG"",536,22,1,""PAH"",1,1,59,0)"
^XMB(3.9,98,2,2026,0)="     instructions will be corrected. "
^XMB(3.9,98,2,2027,0)="""PKG"",536,22,1,""PAH"",1,1,60,0)"
^XMB(3.9,98,2,2028,0)=" "
^XMB(3.9,98,2,2029,0)="""PKG"",536,22,1,""PAH"",1,1,61,0)"
^XMB(3.9,98,2,2030,0)=" "
^XMB(3.9,98,2,2031,0)="""PKG"",536,22,1,""PAH"",1,1,62,0)"
^XMB(3.9,98,2,2032,0)="4.   Problem:  HD0000000121694"
^XMB(3.9,98,2,2033,0)="""PKG"",536,22,1,""PAH"",1,1,63,0)"
^XMB(3.9,98,2,2034,0)="     While a medication patch is being ""administered"" using Manual "
^XMB(3.9,98,2,2035,0)="""PKG"",536,22,1,""PAH"",1,1,64,0)"
^XMB(3.9,98,2,2036,0)="     Medication Entry[PSB MED LOG NEW ENTRY], that particular scheduled "
^XMB(3.9,98,2,2037,0)="""PKG"",536,22,1,""PAH"",1,1,65,0)"
^XMB(3.9,98,2,2038,0)="     administration does not display on the BCMA Virtual Due List (VDL)."
^XMB(3.9,98,2,2039,0)="""PKG"",536,22,1,""PAH"",1,1,66,0)"
^XMB(3.9,98,2,2040,0)=" "
^XMB(3.9,98,2,2041,0)="""PKG"",536,22,1,""PAH"",1,1,67,0)"
^XMB(3.9,98,2,2042,0)="     Corrective Action:"
^XMB(3.9,98,2,2043,0)="""PKG"",536,22,1,""PAH"",1,1,68,0)"
^XMB(3.9,98,2,2044,0)="     Display the saved ""action status"" of an administration, while it is "
^XMB(3.9,98,2,2045,0)="""PKG"",536,22,1,""PAH"",1,1,69,0)"
^XMB(3.9,98,2,2046,0)="     being administered using Manual Medication Entry [PSB MED LOG NEW "
^XMB(3.9,98,2,2047,0)="""PKG"",536,22,1,""PAH"",1,1,70,0)"
^XMB(3.9,98,2,2048,0)="     ENTRY]"
^XMB(3.9,98,2,2049,0)="""PKG"",536,22,1,""PAH"",1,1,71,0)"
^XMB(3.9,98,2,2050,0)=" "
^XMB(3.9,98,2,2051,0)="""PKG"",536,22,1,""PAH"",1,1,72,0)"
^XMB(3.9,98,2,2052,0)=" "
^XMB(3.9,98,2,2053,0)="""PKG"",536,22,1,""PAH"",1,1,73,0)"
^XMB(3.9,98,2,2054,0)="5.   Problem:  HD0000000127625"
^XMB(3.9,98,2,2055,0)="""PKG"",536,22,1,""PAH"",1,1,74,0)"
^XMB(3.9,98,2,2056,0)="     An error occurs when the BCMA coversheet is to display data for one "
^XMB(3.9,98,2,2057,0)="""PKG"",536,22,1,""PAH"",1,1,75,0)"
^XMB(3.9,98,2,2058,0)="     order only; and that order is an expired, large volume IV."
^XMB(3.9,98,2,2059,0)="""PKG"",536,22,1,""PAH"",1,1,76,0)"
^XMB(3.9,98,2,2060,0)=" "
^XMB(3.9,98,2,2061,0)="""PKG"",536,22,1,""PAH"",1,1,77,0)"
^XMB(3.9,98,2,2062,0)="     Corrective Action:"
^XMB(3.9,98,2,2063,0)="""PKG"",536,22,1,""PAH"",1,1,78,0)"
^XMB(3.9,98,2,2064,0)="     The BCMA Coversheet will display without error when the only order "
^XMB(3.9,98,2,2065,0)="""PKG"",536,22,1,""PAH"",1,1,79,0)"
^XMB(3.9,98,2,2066,0)="     information to display on the BCMA coversheet pertains to an expired,"
^XMB(3.9,98,2,2067,0)="""PKG"",536,22,1,""PAH"",1,1,80,0)"
^XMB(3.9,98,2,2068,0)="     large volume IV."
^XMB(3.9,98,2,2069,0)="""PKG"",536,22,1,""PAH"",1,1,81,0)"
^XMB(3.9,98,2,2070,0)=" "
^XMB(3.9,98,2,2071,0)="""PKG"",536,22,1,""PAH"",1,1,82,0)"
^XMB(3.9,98,2,2072,0)=" "
^XMB(3.9,98,2,2073,0)="""PKG"",536,22,1,""PAH"",1,1,83,0)"
^XMB(3.9,98,2,2074,0)="6.   Problem:  HD0000000132184"
^XMB(3.9,98,2,2075,0)="""PKG"",536,22,1,""PAH"",1,1,84,0)"
^XMB(3.9,98,2,2076,0)="     An error occurs when the BCMA GUI Computerized Patient Record System "
^XMB(3.9,98,2,2077,0)="""PKG"",536,22,1,""PAH"",1,1,85,0)"
^XMB(3.9,98,2,2078,0)="     (CPRS)/BCMA Medication Order Button (MOB) is used and ORDER "
^XMB(3.9,98,2,2079,0)="""PKG"",536,22,1,""PAH"",1,1,86,0)"
^XMB(3.9,98,2,2080,0)="     File (#100) PATIENT LOCATION (field #6) data does not link to a "
^XMB(3.9,98,2,2081,0)="""PKG"",536,22,1,""PAH"",1,1,87,0)"
^XMB(3.9,98,2,2082,0)="     WARD LOCATION File (#42) entry."
^XMB(3.9,98,2,2083,0)="""PKG"",536,22,1,""PAH"",1,1,88,0)"
^XMB(3.9,98,2,2084,0)=" "
^XMB(3.9,98,2,2085,0)="""PKG"",536,22,1,""PAH"",1,1,89,0)"
^XMB(3.9,98,2,2086,0)="     Corrective Action:"
^XMB(3.9,98,2,2087,0)="""PKG"",536,22,1,""PAH"",1,1,90,0)"
^XMB(3.9,98,2,2088,0)="     BCMA will provide HOSPITAL LOCATION File (#44) data per ORDER File "
^XMB(3.9,98,2,2089,0)="""PKG"",536,22,1,""PAH"",1,1,91,0)"
^XMB(3.9,98,2,2090,0)="     (#100) PATIENT LOCATION (field #6) data when the CPRS/BCMA MOB is "
^XMB(3.9,98,2,2091,0)="""PKG"",536,22,1,""PAH"",1,1,92,0)"
^XMB(3.9,98,2,2092,0)="     used.  CPRS will ORDER File (#100) PATIENT LOCATION (field #6) data "
^XMB(3.9,98,2,2093,0)="""PKG"",536,22,1,""PAH"",1,1,93,0)"
^XMB(3.9,98,2,2094,0)="     to a HOSPITAL LOCATION File (#44) entry "
^XMB(3.9,98,2,2095,0)="""PKG"",536,22,1,""PAH"",1,1,94,0)"
^XMB(3.9,98,2,2096,0)=" "
^XMB(3.9,98,2,2097,0)="""PKG"",536,22,1,""PAH"",1,1,95,0)"
^XMB(3.9,98,2,2098,0)=" "
^XMB(3.9,98,2,2099,0)="""PKG"",536,22,1,""PAH"",1,1,96,0)"
^XMB(3.9,98,2,2100,0)="7.   Enhancement:  CCOW compliancy"
^XMB(3.9,98,2,2101,0)="""PKG"",536,22,1,""PAH"",1,1,97,0)"
^XMB(3.9,98,2,2102,0)="     This patch (PSB*3.0*13) will enable BCMA CCOW compliancy."
^XMB(3.9,98,2,2103,0)="""PKG"",536,22,1,""PAH"",1,1,98,0)"
^XMB(3.9,98,2,2104,0)=" "
^XMB(3.9,98,2,2105,0)="""PKG"",536,22,1,""PAH"",1,1,99,0)"
^XMB(3.9,98,2,2106,0)=" "
^XMB(3.9,98,2,2107,0)="""PKG"",536,22,1,""PAH"",1,1,100,0)"
^XMB(3.9,98,2,2108,0)="8.   Enhancement:  Enhanced ""*UNKNOWN* Action Status"" support."
^XMB(3.9,98,2,2109,0)="""PKG"",536,22,1,""PAH"",1,1,101,0)"
^XMB(3.9,98,2,2110,0)="     BCMA Medication Log File (File #53.79) entries having unknown "
^XMB(3.9,98,2,2111,0)="""PKG"",536,22,1,""PAH"",1,1,102,0)"
^XMB(3.9,98,2,2112,0)="     Action Status (field #.09) data can be maintained via the GUI BCMA "
^XMB(3.9,98,2,2113,0)="""PKG"",536,22,1,""PAH"",1,1,103,0)"
^XMB(3.9,98,2,2114,0)="     Edit Med Log only. These entries may be maintained by persons holding"
^XMB(3.9,98,2,2115,0)="""PKG"",536,22,1,""PAH"",1,1,104,0)"
^XMB(3.9,98,2,2116,0)="     the BCMA manager's key [PSB MANAGER] or that user unable to complete "
^XMB(3.9,98,2,2117,0)="""PKG"",536,22,1,""PAH"",1,1,105,0)"
^XMB(3.9,98,2,2118,0)="     the original administration.  PSB*3.0*13 supports the VISTA ""Unknown "
^XMB(3.9,98,2,2119,0)="""PKG"",536,22,1,""PAH"",1,1,106,0)"
^XMB(3.9,98,2,2120,0)="     Action Status Report"" option [PSBO XA].  The [PSBO XA] option "
^XMB(3.9,98,2,2121,0)="""PKG"",536,22,1,""PAH"",1,1,107,0)"
^XMB(3.9,98,2,2122,0)="     provides persons holding the BCMA manager's key [PSB MANAGER] "
^XMB(3.9,98,2,2123,0)="""PKG"",536,22,1,""PAH"",1,1,108,0)"
^XMB(3.9,98,2,2124,0)="     resource to generate a report to display BCMA Medication Log File "
^XMB(3.9,98,2,2125,0)="""PKG"",536,22,1,""PAH"",1,1,109,0)"
^XMB(3.9,98,2,2126,0)="     (#53.79) entries having ""unknown"" Action Status (field #.09) data.  "
^XMB(3.9,98,2,2127,0)="""PKG"",536,22,1,""PAH"",1,1,110,0)"
^XMB(3.9,98,2,2128,0)="     Users holding the BCMA manager's key [PSB MANAGER] can access the "
^XMB(3.9,98,2,2129,0)="""PKG"",536,22,1,""PAH"",1,1,111,0)"
^XMB(3.9,98,2,2130,0)="     PSBO XA report via the BCMA GUI as well.  BCMA has been enhanced to "
^XMB(3.9,98,2,2131,0)="""PKG"",536,22,1,""PAH"",1,1,112,0)"
^XMB(3.9,98,2,2132,0)="     display a ""pop-up box"" when a user begins an action on an order "
^XMB(3.9,98,2,2133,0)="""PKG"",536,22,1,""PAH"",1,1,113,0)"
^XMB(3.9,98,2,2134,0)=" "
^XMB(3.9,98,2,2135,0)="""PKG"",536,22,1,""PAH"",1,1,114,0)"
^XMB(3.9,98,2,2136,0)=" "
^XMB(3.9,98,2,2137,0)="""PKG"",536,22,1,""PAH"",1,1,115,0)"
^XMB(3.9,98,2,2138,0)="9.   Enhancement:  Saved Coversheet Personal Parameters"
^XMB(3.9,98,2,2139,0)="""PKG"",536,22,1,""PAH"",1,1,116,0)"
^XMB(3.9,98,2,2140,0)="     PSB*3.0*13 will maintain personal parameters per BCMA Coversheet "
^XMB(3.9,98,2,2141,0)="""PKG"",536,22,1,""PAH"",1,1,117,0)"
^XMB(3.9,98,2,2142,0)="     views to be saved and retrieved when using BCMA. "
^XMB(3.9,98,2,2143,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,98,2,2144,0)="Y"
^XMB(3.9,98,2,2145,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,98,2,2146,0)="^D REP^XPDH"
^XMB(3.9,98,2,2147,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,98,2,2148,0)="Shall I write over your |FLAG| File"
^XMB(3.9,98,2,2149,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,98,2,2150,0)="YES"
^XMB(3.9,98,2,2151,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,98,2,2152,0)="D XPF1^XPDIQ"
^XMB(3.9,98,2,2153,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,98,2,2154,0)="Y"
^XMB(3.9,98,2,2155,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,98,2,2156,0)="^D DTA^XPDH"
^XMB(3.9,98,2,2157,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,98,2,2158,0)="Want my data |FLAG| yours"
^XMB(3.9,98,2,2159,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,98,2,2160,0)="YES"
^XMB(3.9,98,2,2161,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,98,2,2162,0)="D XPF2^XPDIQ"
^XMB(3.9,98,2,2163,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,98,2,2164,0)="YO"
^XMB(3.9,98,2,2165,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,98,2,2166,0)="^D INHIBIT^XPDH"
^XMB(3.9,98,2,2167,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,98,2,2168,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,98,2,2169,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,98,2,2170,0)="YES"
^XMB(3.9,98,2,2171,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,98,2,2172,0)="D XPI1^XPDIQ"
^XMB(3.9,98,2,2173,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,98,2,2174,0)="PO^VA(200,:EM"
^XMB(3.9,98,2,2175,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,98,2,2176,0)="^D MG^XPDH"
^XMB(3.9,98,2,2177,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,98,2,2178,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,98,2,2179,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,98,2,2180,0)=" "
^XMB(3.9,98,2,2181,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,98,2,2182,0)="D XPM1^XPDIQ"
^XMB(3.9,98,2,2183,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,98,2,2184,0)="Y"
^XMB(3.9,98,2,2185,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,98,2,2186,0)="^D MENU^XPDH"
^XMB(3.9,98,2,2187,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,98,2,2188,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,98,2,2189,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,98,2,2190,0)="YES"
^XMB(3.9,98,2,2191,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,98,2,2192,0)="D XPO1^XPDIQ"
^XMB(3.9,98,2,2193,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,98,2,2194,0)="Y"
^XMB(3.9,98,2,2195,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,98,2,2196,0)="^D OPT^XPDH"
^XMB(3.9,98,2,2197,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,98,2,2198,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,98,2,2199,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,98,2,2200,0)="YES"
^XMB(3.9,98,2,2201,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,98,2,2202,0)="D XPZ1^XPDIQ"
^XMB(3.9,98,2,2203,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,98,2,2204,0)="Y"
^XMB(3.9,98,2,2205,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,98,2,2206,0)="^D RTN^XPDH"
^XMB(3.9,98,2,2207,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,98,2,2208,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,98,2,2209,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,98,2,2210,0)="NO"
^XMB(3.9,98,2,2211,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,98,2,2212,0)="D XPZ2^XPDIQ"
^XMB(3.9,98,2,2213,0)="""RTN"")"
^XMB(3.9,98,2,2214,0)="24"
^XMB(3.9,98,2,2215,0)="""RTN"",""PSBCSUTL"")"
^XMB(3.9,98,2,2216,0)="0^22^B82253654^B74276312"
^XMB(3.9,98,2,2217,0)="""RTN"",""PSBCSUTL"",1,0)"
^XMB(3.9,98,2,2218,0)="PSBCSUTL ;BIRMINGHAM/TEJ- BCMA-HSC COVER SHEET UTILITIES ;Mar 2004"
^XMB(3.9,98,2,2219,0)="""RTN"",""PSBCSUTL"",2,0)"
^XMB(3.9,98,2,2220,0)=" ;;3.0;BAR CODE MED ADMIN;**16,13**;Mar 2004"
^XMB(3.9,98,2,2221,0)="""RTN"",""PSBCSUTL"",3,0)"
^XMB(3.9,98,2,2222,0)=" ;"
^XMB(3.9,98,2,2223,0)="""RTN"",""PSBCSUTL"",4,0)"
^XMB(3.9,98,2,2224,0)=" ; Reference/IA"
^XMB(3.9,98,2,2225,0)="""RTN"",""PSBCSUTL"",5,0)"
^XMB(3.9,98,2,2226,0)=" ;"
^XMB(3.9,98,2,2227,0)="""RTN"",""PSBCSUTL"",6,0)"
^XMB(3.9,98,2,2228,0)=" ; EN^PSJBCMA/2828"
^XMB(3.9,98,2,2229,0)="""RTN"",""PSBCSUTL"",7,0)"
^XMB(3.9,98,2,2230,0)=" ; IN5^VADPT/10061"
^XMB(3.9,98,2,2231,0)="""RTN"",""PSBCSUTL"",8,0)"
^XMB(3.9,98,2,2232,0)=" ; $$GET^XPAR/2263"
^XMB(3.9,98,2,2233,0)="""RTN"",""PSBCSUTL"",9,0)"
^XMB(3.9,98,2,2234,0)=" ; ^%DTC/10000"
^XMB(3.9,98,2,2235,0)="""RTN"",""PSBCSUTL"",10,0)"
^XMB(3.9,98,2,2236,0)=" ; $$FMADD^XLFDT/10103"
^XMB(3.9,98,2,2237,0)="""RTN"",""PSBCSUTL"",11,0)"
^XMB(3.9,98,2,2238,0)=" ; $$GET1^DIQ/2056"
^XMB(3.9,98,2,2239,0)="""RTN"",""PSBCSUTL"",12,0)"
^XMB(3.9,98,2,2240,0)=" ;"
^XMB(3.9,98,2,2241,0)="""RTN"",""PSBCSUTL"",13,0)"
^XMB(3.9,98,2,2242,0)="RPC(RESULTS,DFN) ;"
^XMB(3.9,98,2,2243,0)="""RTN"",""PSBCSUTL"",14,0)"
^XMB(3.9,98,2,2244,0)=" K RESULTS,^TMP(""PSB"",$J),^TMP(""PSJ"",$J)"
^XMB(3.9,98,2,2245,0)="""RTN"",""PSBCSUTL"",15,0)"
^XMB(3.9,98,2,2246,0)=" S PSBTAB=""CVRSHT"""
^XMB(3.9,98,2,2247,0)="""RTN"",""PSBCSUTL"",16,0)"
^XMB(3.9,98,2,2248,0)=" N PSBCNT S PSBTRFL=0,PSBDFNX=DFN"
^XMB(3.9,98,2,2249,0)="""RTN"",""PSBCSUTL"",17,0)"
^XMB(3.9,98,2,2250,0)=" S RESULTS=$NAME(^TMP(""PSB"",$J,PSBTAB))"
^XMB(3.9,98,2,2251,0)="""RTN"",""PSBCSUTL"",18,0)"
^XMB(3.9,98,2,2252,0)=" K ^TMP(""PSB"",$J,PSBTAB) S ^TMP(""PSB"",$J,PSBTAB,0)=1 D LIGHTS(PSBDFNX)"
^XMB(3.9,98,2,2253,0)="""RTN"",""PSBCSUTL"",19,0)"
^XMB(3.9,98,2,2254,0)=" S ^TMP(""PSB"",$J,PSBTAB,0)=1,^TMP(""PSB"",$J,PSBTAB,1)=^TMP(""PSB"",$J,PSBTAB,1)"
^XMB(3.9,98,2,2255,0)="""RTN"",""PSBCSUTL"",20,0)"
^XMB(3.9,98,2,2256,0)=" Q:$P(^TMP(""PSB"",$J,PSBTAB,1),U,4)=-1"
^XMB(3.9,98,2,2257,0)="""RTN"",""PSBCSUTL"",21,0)"
^XMB(3.9,98,2,2258,0)=" D NOW^%DTC S PSBNOW=+$E(%,1,10),PSBDT=$P(%,""."",1)"
^XMB(3.9,98,2,2259,0)="""RTN"",""PSBCSUTL"",22,0)"
^XMB(3.9,98,2,2260,0)=" ;set range"
^XMB(3.9,98,2,2261,0)="""RTN"",""PSBCSUTL"",23,0)"
^XMB(3.9,98,2,2262,0)=" S PSBWBEG=$$FMADD^XLFDT(PSBNOW,"""",-24),PSBWEND=$$FMADD^XLFDT(PSBNOW,"""",24)"
^XMB(3.9,98,2,2263,0)="""RTN"",""PSBCSUTL"",24,0)"
^XMB(3.9,98,2,2264,0)=" S PSBTBEG=$$FMADD^XLFDT(PSBNOW,"""",-12),PSBTEND=$$FMADD^XLFDT(PSBNOW,"""",12)"
^XMB(3.9,98,2,2265,0)="""RTN"",""PSBCSUTL"",25,0)"
^XMB(3.9,98,2,2266,0)=" S PSBWADM=$$GET^XPAR(""DIV"",""PSB ADMIN BEFORE""),PSBMHBCK=$$GET^XPAR(""ALL"",""PSB MED HIST DAYS BACK"",,""B"") I +PSBMHBCK=0 S PSBMHBCK=30"
^XMB(3.9,98,2,2267,0)="""RTN"",""PSBCSUTL"",26,0)"
^XMB(3.9,98,2,2268,0)=" D NOW^%DTC S PSBWADM=$$FMADD^XLFDT(%,"""","""",+PSBWADM),PSBMHBCK=$$FMADD^XLFDT(%,-1*(PSBMHBCK))"
^XMB(3.9,98,2,2269,0)="""RTN"",""PSBCSUTL"",27,0)"
^XMB(3.9,98,2,2270,0)=" ;use lst movemnt for API"
^XMB(3.9,98,2,2271,0)="""RTN"",""PSBCSUTL"",28,0)"
^XMB(3.9,98,2,2272,0)=" S VAIP(""D"")=""LAST"" D IN5^VADPT S PSBTRDT=+VAIP(3),PSBTRTYP=$P(VAIP(2),U,2),PSBMVTYP=$P(VAIP(4),U,2) K VAIP"
^XMB(3.9,98,2,2273,0)="""RTN"",""PSBCSUTL"",29,0)"
^XMB(3.9,98,2,2274,0)=" S PSBPTTR=$$GET^XPAR(""DIV"",""PSB PATIENT TRANSFER"") I PSBPTTR="""" S PSBPTTR=72"
^XMB(3.9,98,2,2275,0)="""RTN"",""PSBCSUTL"",30,0)"
^XMB(3.9,98,2,2276,0)=" D NOW^%DTC S PSBNTDT=$$FMADD^XLFDT(%,"""",-PSBPTTR) I PSBNTDT'>PSBTRDT S PSBTRFL=1"
^XMB(3.9,98,2,2277,0)="""RTN"",""PSBCSUTL"",31,0)"
^XMB(3.9,98,2,2278,0)=" S X1=$P(PSBNOW,"".""),X2=-3 D C^%DTC"
^XMB(3.9,98,2,2279,0)="""RTN"",""PSBCSUTL"",32,0)"
^XMB(3.9,98,2,2280,0)=" D EN^PSJBCMA(PSBDFNX,X,PSBMHBCK)"
^XMB(3.9,98,2,2281,0)="""RTN"",""PSBCSUTL"",33,0)"
^XMB(3.9,98,2,2282,0)=" ;Devlop Outp"
^XMB(3.9,98,2,2283,0)="""RTN"",""PSBCSUTL"",34,0)"
^XMB(3.9,98,2,2284,0)=" S PSBTBOUT=0"
^XMB(3.9,98,2,2285,0)="""RTN"",""PSBCSUTL"",35,0)"
^XMB(3.9,98,2,2286,0)=" I ^TMP(""PSJ"",$J,1,0)>0 F PSBX=0:0 S PSBX=$O(^TMP(""PSJ"",$J,PSBX)) Q:('PSBX)!(PSBTBOUT)  D"
^XMB(3.9,98,2,2287,0)="""RTN"",""PSBCSUTL"",36,0)"
^XMB(3.9,98,2,2288,0)=" .S:(PSBTAB'=""CVRSHT"")&($G(^TMP(""PSB"",$J,""CVRSHT"",2))>0) PSBTBOUT=1"
^XMB(3.9,98,2,2289,0)="""RTN"",""PSBCSUTL"",37,0)"
^XMB(3.9,98,2,2290,0)=" .D CLEAN^PSBVT,PSJ^PSBVT(PSBX),NOW^%DTC"
^XMB(3.9,98,2,2291,0)="""RTN"",""PSBCSUTL"",38,0)"
^XMB(3.9,98,2,2292,0)=" .Q:PSBONX[""P""  Q:(PSBOSP<PSBWBEG)&'(PSBONX[""V"")  ;in rnge?"
^XMB(3.9,98,2,2293,0)="""RTN"",""PSBCSUTL"",39,0)"
^XMB(3.9,98,2,2294,0)=" .S (PSBREC,PSBONTAB)="""""
^XMB(3.9,98,2,2295,0)="""RTN"",""PSBCSUTL"",40,0)"
^XMB(3.9,98,2,2296,0)=" .S $P(PSBREC,U,1)=PSBDFN ;Dfn"
^XMB(3.9,98,2,2297,0)="""RTN"",""PSBCSUTL"",41,0)"
^XMB(3.9,98,2,2298,0)=" .S $P(PSBREC,U,2)=PSBONX ;Ordr "
^XMB(3.9,98,2,2299,0)="""RTN"",""PSBCSUTL"",42,0)"
^XMB(3.9,98,2,2300,0)=" .S $P(PSBREC,U,3)=PSBON ;OrdrIen"
^XMB(3.9,98,2,2301,0)="""RTN"",""PSBCSUTL"",43,0)"
^XMB(3.9,98,2,2302,0)=" .S $P(PSBREC,U,4)=PSBOTYP ;iv/ud/pend"
^XMB(3.9,98,2,2303,0)="""RTN"",""PSBCSUTL"",44,0)"
^XMB(3.9,98,2,2304,0)=" .S $P(PSBREC,U,5)=PSBSCHT ;Schdtype"
^XMB(3.9,98,2,2305,0)="""RTN"",""PSBCSUTL"",45,0)"
^XMB(3.9,98,2,2306,0)=" .S $P(PSBREC,U,6)=PSBSCH ;Schd"
^XMB(3.9,98,2,2307,0)="""RTN"",""PSBCSUTL"",46,0)"
^XMB(3.9,98,2,2308,0)=" .S $P(PSBREC,U,7)=$S(PSBHSM:""HSM"",PSBSM:""SM"",1:"""") ; selfmed"
^XMB(3.9,98,2,2309,0)="""RTN"",""PSBCSUTL"",47,0)"
^XMB(3.9,98,2,2310,0)=" .S $P(PSBREC,U,8)=PSBOITX ;Drgname"
^XMB(3.9,98,2,2311,0)="""RTN"",""PSBCSUTL"",48,0)"
^XMB(3.9,98,2,2312,0)=" .S $P(PSBREC,U,9)=PSBDOSE_"" ""_PSBIFR ;Dose"
^XMB(3.9,98,2,2313,0)="""RTN"",""PSBCSUTL"",49,0)"
^XMB(3.9,98,2,2314,0)=" .S $P(PSBREC,U,10)=PSBMR ;Rout"
^XMB(3.9,98,2,2315,0)="""RTN"",""PSBCSUTL"",50,0)"
^XMB(3.9,98,2,2316,0)=" .;Lst Gvn - AOIP xRef"
^XMB(3.9,98,2,2317,0)="""RTN"",""PSBCSUTL"",51,0)"
^XMB(3.9,98,2,2318,0)=" .S (PSBCNT,PSBFLAG)=0,(Y,PSBSTUS)="""" K PSBHSTA,PSBHSTAX"
^XMB(3.9,98,2,2319,0)="""RTN"",""PSBCSUTL"",52,0)"
^XMB(3.9,98,2,2320,0)=" .F XZ=1:1:20 S Y=$O(^PSB(53.79,""AOIP"",PSBDFN,PSBOIT,Y),-1),(PSBCNT,PSBFLAG)=0 Q:Y=""""  D"
^XMB(3.9,98,2,2321,0)="""RTN"",""PSBCSUTL"",53,0)"
^XMB(3.9,98,2,2322,0)=" ..S:Y>0 $P(PSBREC,U,11)=Y"
^XMB(3.9,98,2,2323,0)="""RTN"",""PSBCSUTL"",54,0)"
^XMB(3.9,98,2,2324,0)=" ..S X="""" F  S X=$O(^PSB(53.79,""AOIP"",PSBDFN,PSBOIT,Y,X),-1) Q:X=""""  D"
^XMB(3.9,98,2,2325,0)="""RTN"",""PSBCSUTL"",55,0)"
^XMB(3.9,98,2,2326,0)=" ...S PSBSTUS=$P(^PSB(53.79,X,0),U,9) S:$G(PSBSTUS)="""" PSBSTUS=""X"" I (PSBSTUS'=""N"") S PSBFLAG=1,PSBHSTA(Y,$G(PSBSTUS))=""ORIG""_U_X"
^XMB(3.9,98,2,2327,0)="""RTN"",""PSBCSUTL"",56,0)"
^XMB(3.9,98,2,2328,0)=" ...D:PSBSTUS=""N"""
^XMB(3.9,98,2,2329,0)="""RTN"",""PSBCSUTL"",57,0)"
^XMB(3.9,98,2,2330,0)=" ....S ($P(PSBREC,U,11),Z)="""""
^XMB(3.9,98,2,2331,0)="""RTN"",""PSBCSUTL"",58,0)"
^XMB(3.9,98,2,2332,0)=" ....F  S Z=$O(^PSB(53.79,X,.9,Z),-1) Q:'Z  Q:PSBFLAG=1  S PSBDATA=$G(^(Z,0)) D"
^XMB(3.9,98,2,2333,0)="""RTN"",""PSBCSUTL"",59,0)"
^XMB(3.9,98,2,2334,0)=" .....I (PSBDATA[""Set to 'NOT GIVEN'"")!(PSBDATA[""Set to 'GIVEN'"")!(PSBDATA[""Set to 'REFUSED'"")!(PSBDATA[""Set to 'HELD'"")!(PSBDATA[""Set to 'MISSING DOSE'"")!(PSBDATA[""Set to 'REMOVED'"") S PSBCNT=PSBCNT+1"
^XMB(3.9,98,2,2335,0)="""RTN"",""PSBCSUTL"",60,0)"
^XMB(3.9,98,2,2336,0)=" .....I (PSBDATA[""STATUS 'HELD'"")!(PSBDATA[""STATUS 'GIVEN'"")!(PSBDATA[""STATUS 'REFUSED'"")!(PSBDATA[""STATUS 'MISSING DOSE'"")!(PSBDATA[""STATUS 'REMOVED'"") S PSBCNT=PSBCNT+1"
^XMB(3.9,98,2,2337,0)="""RTN"",""PSBCSUTL"",61,0)"
^XMB(3.9,98,2,2338,0)=" .....I PSBCNT#2=0,PSBDATA[""'REFUSED'"" S PSBSTUS=""R"" D LAST^PSBVDLU1"
^XMB(3.9,98,2,2339,0)="""RTN"",""PSBCSUTL"",62,0)"
^XMB(3.9,98,2,2340,0)=" .....I PSBCNT#2=0,PSBDATA[""'HELD'"" S PSBSTUS=""H"" D LAST^PSBVDLU1"
^XMB(3.9,98,2,2341,0)="""RTN"",""PSBCSUTL"",63,0)"
^XMB(3.9,98,2,2342,0)=" .....I PSBCNT#2=0,PSBDATA[""'MISSING DOSE'"" S PSBSTUS=""M"" D LAST^PSBVDLU1"
^XMB(3.9,98,2,2343,0)="""RTN"",""PSBCSUTL"",64,0)"
^XMB(3.9,98,2,2344,0)=" .....I PSBCNT#2=0,PSBDATA[""'REMOVED'"" S PSBSTUS=""RM"" D LAST^PSBVDLU1"
^XMB(3.9,98,2,2345,0)="""RTN"",""PSBCSUTL"",65,0)"
^XMB(3.9,98,2,2346,0)=" .....I PSBFLAG=1,'$D(PSBHSTA($P(PSBREC,U,11),$G(PSBSTUS))) S PSBHSTA($P(PSBREC,U,11),$G(PSBSTUS))=Z_U_X"
^XMB(3.9,98,2,2347,0)="""RTN"",""PSBCSUTL"",66,0)"
^XMB(3.9,98,2,2348,0)=" .I $D(PSBHSTA) S $P(PSBREC,U,11)=$O(PSBHSTA(""""),-1),PSBSTUS=$O(PSBHSTA($P(PSBREC,U,11),""""),-1) M PSBHSTAX(PSBOIT)=PSBHSTA K PSBHSTA  ;last action date/time"
^XMB(3.9,98,2,2349,0)="""RTN"",""PSBCSUTL"",67,0)"
^XMB(3.9,98,2,2350,0)=" .S $P(PSBREC,U,12)="""" ;ien - below"
^XMB(3.9,98,2,2351,0)="""RTN"",""PSBCSUTL"",68,0)"
^XMB(3.9,98,2,2352,0)=" .S $P(PSBREC,U,13)="""" ;sttus - below"
^XMB(3.9,98,2,2353,0)="""RTN"",""PSBCSUTL"",69,0)"
^XMB(3.9,98,2,2354,0)=" .S $P(PSBREC,U,14)="""" ;admn dte - below"
^XMB(3.9,98,2,2355,0)="""RTN"",""PSBCSUTL"",70,0)"
^XMB(3.9,98,2,2356,0)=" .S $P(PSBREC,U,15)=PSBOIT ;OI Pointer"
^XMB(3.9,98,2,2357,0)="""RTN"",""PSBCSUTL"",71,0)"
^XMB(3.9,98,2,2358,0)=" .S $P(PSBREC,U,16)=0  ;Deflt no-inject"
^XMB(3.9,98,2,2359,0)="""RTN"",""PSBCSUTL"",72,0)"
^XMB(3.9,98,2,2360,0)=" .F X=""ID"",""IV"",""IM"",""SC"",""SQ"" D  Q:$P(PSBREC,U,16)"
^XMB(3.9,98,2,2361,0)="""RTN"",""PSBCSUTL"",73,0)"
^XMB(3.9,98,2,2362,0)=" ..I PSBMR?@("".E1""""""_X_"""""".E""),PSBMR'[""MISC"" S $P(PSBREC,U,16)=1"
^XMB(3.9,98,2,2363,0)="""RTN"",""PSBCSUTL"",74,0)"
^XMB(3.9,98,2,2364,0)=" .;Vari dosg"
^XMB(3.9,98,2,2365,0)="""RTN"",""PSBCSUTL"",75,0)"
^XMB(3.9,98,2,2366,0)=" .I $P(PSBREC,U,9)?1.4N1""-""1.4N.E S $P(PSBREC,U,17)=1"
^XMB(3.9,98,2,2367,0)="""RTN"",""PSBCSUTL"",76,0)"
^XMB(3.9,98,2,2368,0)=" .E  S $P(PSBREC,U,17)=0"
^XMB(3.9,98,2,2369,0)="""RTN"",""PSBCSUTL"",77,0)"
^XMB(3.9,98,2,2370,0)=" .S:PSBDOSEF?1""CAP"".E!(PSBDOSEF?1""TAB"".E)!(PSBDOSEF=""PATCH"") $P(PSBREC,U,18)=PSBDOSEF ;DosgFrm"
^XMB(3.9,98,2,2371,0)="""RTN"",""PSBCSUTL"",78,0)"
^XMB(3.9,98,2,2372,0)=" .D PSJ1^PSBVT(PSBDFN,PSBONX)"
^XMB(3.9,98,2,2373,0)="""RTN"",""PSBCSUTL"",79,0)"
^XMB(3.9,98,2,2374,0)=" .S PSBPB=$$IVPTAB^PSBVDLU3(PSBOTYP,PSBIVT,PSBISYR,PSBCHEMT,$G(PSBMR)),PSBLVIV=0"
^XMB(3.9,98,2,2375,0)="""RTN"",""PSBCSUTL"",80,0)"
^XMB(3.9,98,2,2376,0)=" .Q:PSBPB&(PSBOSP<PSBWBEG)"
^XMB(3.9,98,2,2377,0)="""RTN"",""PSBCSUTL"",81,0)"
^XMB(3.9,98,2,2378,0)=" .S:(PSBONX[""V""&'PSBPB) PSBLVIV=1"
^XMB(3.9,98,2,2379,0)="""RTN"",""PSBCSUTL"",82,0)"
^XMB(3.9,98,2,2380,0)=" .S $P(PSBREC,U,19)=$S(PSBVNI]"""":PSBVNI,PSBVNI']"""":""***"") ;VerfNrsIntls"
^XMB(3.9,98,2,2381,0)="""RTN"",""PSBCSUTL"",83,0)"
^XMB(3.9,98,2,2382,0)=" .S $P(PSBREC,U,20)=PSBSTUS S:$P(PSBREC,U,11)="""" $P(PSBREC,U,20)=""""  ;LstActnSts"
^XMB(3.9,98,2,2383,0)="""RTN"",""PSBCSUTL"",84,0)"
^XMB(3.9,98,2,2384,0)=" .S $P(PSBREC,U,21)=PSBOST"
^XMB(3.9,98,2,2385,0)="""RTN"",""PSBCSUTL"",85,0)"
^XMB(3.9,98,2,2386,0)=" .S $P(PSBREC,U,22)=PSBOSTS"
^XMB(3.9,98,2,2387,0)="""RTN"",""PSBCSUTL"",86,0)"
^XMB(3.9,98,2,2388,0)=" .S $P(PSBREC,U,25)=0 I $G(PSBTRFL),$P(PSBREC,U,11)]"""",$P(PSBREC,U,11)'<$G(PSBNTDT),$P(PSBREC,U,11)'>$G(PSBTRDT) S $P(PSBREC,U,25)=1"
^XMB(3.9,98,2,2389,0)="""RTN"",""PSBCSUTL"",87,0)"
^XMB(3.9,98,2,2390,0)=" .S $P(PSBREC,U,26)=PSBOSP  ;OrdrStpDt/Tm"
^XMB(3.9,98,2,2391,0)="""RTN"",""PSBCSUTL"",88,0)"
^XMB(3.9,98,2,2392,0)=" .S $P(PSBREC,U,27)=$$LASTG($P(PSBREC,U,1),$P(PSBREC,U,15))"
^XMB(3.9,98,2,2393,0)="""RTN"",""PSBCSUTL"",89,0)"
^XMB(3.9,98,2,2394,0)=" .S $P(PSBREC,U,28)=$S((PSBONX[""U"")&('PSBPB):1,PSBPB:2,(PSBONX[""V"")&'PSBPB:3,1:"""")"
^XMB(3.9,98,2,2395,0)="""RTN"",""PSBCSUTL"",90,0)"
^XMB(3.9,98,2,2396,0)=" .;get all Admn(s) pr ordr"
^XMB(3.9,98,2,2397,0)="""RTN"",""PSBCSUTL"",91,0)"
^XMB(3.9,98,2,2398,0)=" .;DD info."
^XMB(3.9,98,2,2399,0)="""RTN"",""PSBCSUTL"",92,0)"
^XMB(3.9,98,2,2400,0)=" .S (PSBDDS,PSBSOLS,PSBADDS,PSBFLAG)=""0"""
^XMB(3.9,98,2,2401,0)="""RTN"",""PSBCSUTL"",93,0)"
^XMB(3.9,98,2,2402,0)=" .I PSBLVIV D XFERBAGS^PSBCSUTY,LVIV^PSBCSUTY I $G(PSBEXPRD) S X1=$O(^TMP(""PSB"",$J,PSBTAB,""""),-1) S:^TMP(""PSB"",$J,PSBTAB,X1)'=""END"" ^TMP(""PSB"",$J,PSBTAB,X1+1)=""END"" Q"
^XMB(3.9,98,2,2403,0)="""RTN"",""PSBCSUTL"",94,0)"
^XMB(3.9,98,2,2404,0)=" .D GETADMX^PSBCSUTY"
^XMB(3.9,98,2,2405,0)="""RTN"",""PSBCSUTL"",95,0)"
^XMB(3.9,98,2,2406,0)=" .F Y=0:0 S Y=$O(PSBDDA(Y)) Q:'Y  D"
^XMB(3.9,98,2,2407,0)="""RTN"",""PSBCSUTL"",96,0)"
^XMB(3.9,98,2,2408,0)=" ..I $P(PSBDDA(Y),U,5)=$P(%,""."") S PSBFLAG=1  ;drug nactvted"
^XMB(3.9,98,2,2409,0)="""RTN"",""PSBCSUTL"",97,0)"
^XMB(3.9,98,2,2410,0)=" ..Q:$P(PSBDDA(Y),U,5)&($P(PSBDDA(Y),U,5)<%)  ;nactv"
^XMB(3.9,98,2,2411,0)="""RTN"",""PSBCSUTL"",98,0)"
^XMB(3.9,98,2,2412,0)=" ..S:$P(PSBDDA(Y),U,4)="""" $P(PSBDDA(Y),U,4)=1"
^XMB(3.9,98,2,2413,0)="""RTN"",""PSBCSUTL"",99,0)"
^XMB(3.9,98,2,2414,0)=" ..S PSBDDS=PSBDDS_U_$P(PSBDDA(Y),U,1,4),$P(PSBDDS,U,1)=PSBDDS+1"
^XMB(3.9,98,2,2415,0)="""RTN"",""PSBCSUTL"",100,0)"
^XMB(3.9,98,2,2416,0)=" .;OnCallOneTmPRN"
^XMB(3.9,98,2,2417,0)="""RTN"",""PSBCSUTL"",101,0)"
^XMB(3.9,98,2,2418,0)=" .I (""^O^OC^P^""[(U_PSBSCHT_U))!(PSBLVIV) D  S ($P(PSBREC,U,12),$P(PSBREC,U,14))=""""  Q"
^XMB(3.9,98,2,2419,0)="""RTN"",""PSBCSUTL"",102,0)"
^XMB(3.9,98,2,2420,0)=" ..S (PSBIENX,PSBGOT1)="""",PSBADMTM="""" F  S PSBADMTM=$O(^PSB(53.79,""AORDX"",PSBDFNX,PSBONX,PSBADMTM)) Q:(PSBADMTM="""")  D"
^XMB(3.9,98,2,2421,0)="""RTN"",""PSBCSUTL"",103,0)"
^XMB(3.9,98,2,2422,0)=" ...Q:(PSBADMTM<PSBMHBCK)&'PSBLVIV"
^XMB(3.9,98,2,2423,0)="""RTN"",""PSBCSUTL"",104,0)"
^XMB(3.9,98,2,2424,0)=" ...F  S PSBIENX=$O(^PSB(53.79,""AORDX"",PSBDFNX,PSBONX,PSBADMTM,PSBIENX)) Q:PSBIENX=""""  D"
^XMB(3.9,98,2,2425,0)="""RTN"",""PSBCSUTL"",105,0)"
^XMB(3.9,98,2,2426,0)=" ....S $P(PSBREC,U,12)=PSBIENX,$P(PSBREC,U,14)=PSBADMTM,$P(PSBREC,U,23)=$$GET1^DIQ(53.79,PSBIENX_"","",""IV UNIQUE ID"")"
^XMB(3.9,98,2,2427,0)="""RTN"",""PSBCSUTL"",106,0)"
^XMB(3.9,98,2,2428,0)=" ....S PSBQRR=1 D ADD^PSBVDLU1(PSBREC,PSBOTXT,PSBADMTM,PSBDDS,PSBSOLS,PSBADDS,""CVRSHT"") S PSBGOT1=1"
^XMB(3.9,98,2,2429,0)="""RTN"",""PSBCSUTL"",107,0)"
^XMB(3.9,98,2,2430,0)=" ..I ('+PSBGOT1)&(PSBOSP'<PSBWBEG) D ADD^PSBVDLU1(PSBREC,PSBOTXT,PSBNOW\1_""."",PSBDDS,PSBSOLS,PSBADDS,""CVRSHT"") S PSBGOT1=1"
^XMB(3.9,98,2,2431,0)="""RTN"",""PSBCSUTL"",108,0)"
^XMB(3.9,98,2,2432,0)=" ..I ('+PSBGOT1)&($D(PSBADMX(PSBONX))) D ADD^PSBVDLU1(PSBREC,PSBOTXT,PSBNOW\1_""."",PSBDDS,PSBSOLS,PSBADDS,""CVRSHT"")"
^XMB(3.9,98,2,2433,0)="""RTN"",""PSBCSUTL"",109,0)"
^XMB(3.9,98,2,2434,0)=" ..S PSBGLBX=$O(^TMP(""PSB"",$J,PSBTAB,""""),-1) S:^TMP(""PSB"",$J,PSBTAB,PSBGLBX)'=""END"" ^TMP(""PSB"",$J,PSBTAB,PSBGLBX+1)=""END"""
^XMB(3.9,98,2,2435,0)="""RTN"",""PSBCSUTL"",110,0)"
^XMB(3.9,98,2,2436,0)=" .;continu - proces AdmnTm"
^XMB(3.9,98,2,2437,0)="""RTN"",""PSBCSUTL"",111,0)"
^XMB(3.9,98,2,2438,0)=" .S (PSBYES,PSBODD,PSBYTF)=0 S:$$PSBDCHK1^PSBVT1(PSBSCH) PSBYES=1"
^XMB(3.9,98,2,2439,0)="""RTN"",""PSBCSUTL"",112,0)"
^XMB(3.9,98,2,2440,0)=" .I PSBYES,PSBADST="""" Q"
^XMB(3.9,98,2,2441,0)="""RTN"",""PSBCSUTL"",113,0)"
^XMB(3.9,98,2,2442,0)=" .F I=1:1 Q:$P(PSBSCH,""-"",I)=""""  I $P(PSBSCH,""-"",I)?2N!($P(PSBSCH,""-"",I)?4N) S PSBYES=1,PSBYTF=1"
^XMB(3.9,98,2,2443,0)="""RTN"",""PSBCSUTL"",114,0)"
^XMB(3.9,98,2,2444,0)=" .I PSBSCHT=""C"",PSBYTF=""1"",PSBADST="""" Q"
^XMB(3.9,98,2,2445,0)="""RTN"",""PSBCSUTL"",115,0)"
^XMB(3.9,98,2,2446,0)=" .S PSBFREQ=$$GETFREQ^PSBVDLU1(DFN,PSBONX)"
^XMB(3.9,98,2,2447,0)="""RTN"",""PSBCSUTL"",116,0)"
^XMB(3.9,98,2,2448,0)=" .I PSBFREQ=""O"" S PSBFREQ=1440"
^XMB(3.9,98,2,2449,0)="""RTN"",""PSBCSUTL"",117,0)"
^XMB(3.9,98,2,2450,0)=" .I PSBFREQ=""D"" S PSBFREQ="""""
^XMB(3.9,98,2,2451,0)="""RTN"",""PSBCSUTL"",118,0)"
^XMB(3.9,98,2,2452,0)=" .S:PSBLVIV PSBYES=1"
^XMB(3.9,98,2,2453,0)="""RTN"",""PSBCSUTL"",119,0)"
^XMB(3.9,98,2,2454,0)=" .I 'PSBYES,PSBFREQ<1 Q"
^XMB(3.9,98,2,2455,0)="""RTN"",""PSBCSUTL"",120,0)"
^XMB(3.9,98,2,2456,0)=" .I (PSBADST="""")&(+PSBFREQ>0) D ODDSCH^PSBVDLU1(PSBTAB) Q"
^XMB(3.9,98,2,2457,0)="""RTN"",""PSBCSUTL"",121,0)"
^XMB(3.9,98,2,2458,0)=" .I +PSBFREQ>0 I (PSBFREQ#1440'=0),(1440#PSBFREQ'=0) S PSBODD=1"
^XMB(3.9,98,2,2459,0)="""RTN"",""PSBCSUTL"",122,0)"
^XMB(3.9,98,2,2460,0)=" .I PSBODD,PSBADST'="""" Q"
^XMB(3.9,98,2,2461,0)="""RTN"",""PSBCSUTL"",123,0)"
^XMB(3.9,98,2,2462,0)=" .S PSBDTX=PSBWBEG\1,PSBGOT1=0"
^XMB(3.9,98,2,2463,0)="""RTN"",""PSBCSUTL"",124,0)"
^XMB(3.9,98,2,2464,0)=" .F PSBXX=1:1:2 D  S PSBDTX=$$FMADD^XLFDT(PSBDTX,"""",24)  ;incrmnt 1 day!"
^XMB(3.9,98,2,2465,0)="""RTN"",""PSBCSUTL"",125,0)"
^XMB(3.9,98,2,2466,0)=" ..F PSBY=1:1:$L(PSBADST,""-"") Q:$P(PSBADST,""-"",PSBY)=""""  D"
^XMB(3.9,98,2,2467,0)="""RTN"",""PSBCSUTL"",126,0)"
^XMB(3.9,98,2,2468,0)=" ...S PSB=+(PSBDTX_"".""_$P(PSBADST,""-"",PSBY))"
^XMB(3.9,98,2,2469,0)="""RTN"",""PSBCSUTL"",127,0)"
^XMB(3.9,98,2,2470,0)=" ...I (PSB'<PSBWBEG)&(PSB'>PSBWEND) D  ;wndow?"
^XMB(3.9,98,2,2471,0)="""RTN"",""PSBCSUTL"",128,0)"
^XMB(3.9,98,2,2472,0)=" ....D:(PSB'<PSBOST)&(PSB<PSBOSP)      ;actv?"
^XMB(3.9,98,2,2473,0)="""RTN"",""PSBCSUTL"",129,0)"
^XMB(3.9,98,2,2474,0)=" .....D:$$OKAY^PSBVDLU1(PSBOST,PSB,PSBSCH,PSBONX,PSBOITX,PSBFREQ,PSBOSTS)  ;dt?"
^XMB(3.9,98,2,2475,0)="""RTN"",""PSBCSUTL"",130,0)"
^XMB(3.9,98,2,2476,0)=" ......D ADD^PSBVDLU1(PSBREC,PSBOTXT,PSB,PSBDDS,PSBSOLS,PSBADDS,""CVRSHT"") S PSBGOT1=1"
^XMB(3.9,98,2,2477,0)="""RTN"",""PSBCSUTL"",131,0)"
^XMB(3.9,98,2,2478,0)=" ...S PSB=+(PSBWEND\1_"".""_$P(PSBADST,""-"",PSBY))"
^XMB(3.9,98,2,2479,0)="""RTN"",""PSBCSUTL"",132,0)"
^XMB(3.9,98,2,2480,0)=" ...I (PSB'<PSBWBEG)&(PSB'>PSBWEND) D  ;wndow?"
^XMB(3.9,98,2,2481,0)="""RTN"",""PSBCSUTL"",133,0)"
^XMB(3.9,98,2,2482,0)=" ....D:(PSB'<PSBOST)&(PSB<PSBOSP)      ;actv?"
^XMB(3.9,98,2,2483,0)="""RTN"",""PSBCSUTL"",134,0)"
^XMB(3.9,98,2,2484,0)=" .....D:$$OKAY^PSBVDLU1(PSBOST,PSB,PSBSCH,PSBONX,PSBOITX,PSBFREQ,PSBOSTS)  ;dt?"
^XMB(3.9,98,2,2485,0)="""RTN"",""PSBCSUTL"",135,0)"
^XMB(3.9,98,2,2486,0)=" ......D ADD^PSBVDLU1(PSBREC,PSBOTXT,PSB,PSBDDS,PSBSOLS,PSBADDS,""CVRSHT"") S PSBGOT1=1"
^XMB(3.9,98,2,2487,0)="""RTN"",""PSBCSUTL"",136,0)"
^XMB(3.9,98,2,2488,0)=" .I ('PSBGOT1)&(PSBOSP'<PSBWBEG) D ADD^PSBVDLU1(PSBREC,PSBOTXT,+(PSBWEND\1_"".""_$P(PSBADST,""-"")),PSBDDS,PSBSOLS,PSBADDS,""CVRSHT"")"
^XMB(3.9,98,2,2489,0)="""RTN"",""PSBCSUTL"",137,0)"
^XMB(3.9,98,2,2490,0)=" .K PSBSTUS"
^XMB(3.9,98,2,2491,0)="""RTN"",""PSBCSUTL"",138,0)"
^XMB(3.9,98,2,2492,0)=" D EN^PSBVDLPA"
^XMB(3.9,98,2,2493,0)="""RTN"",""PSBCSUTL"",139,0)"
^XMB(3.9,98,2,2494,0)=" I $G(^TMP(""PSB"",$J,PSBTAB,2))]"""" S PSBI1=$O(^TMP(""PSB"",$J,PSBTAB,""""),-1) I ^TMP(""PSB"",$J,PSBTAB,PSBI1)'=""END"" S ^TMP(""PSB"",$J,PSBTAB,PSBI1+1)=""END"""
^XMB(3.9,98,2,2495,0)="""RTN"",""PSBCSUTL"",140,0)"
^XMB(3.9,98,2,2496,0)=" S ^TMP(""PSB"",$J,PSBTAB,0)=$O(^TMP(""PSB"",$J,PSBTAB,""""),-1)"
^XMB(3.9,98,2,2497,0)="""RTN"",""PSBCSUTL"",141,0)"
^XMB(3.9,98,2,2498,0)=" I $G(^TMP(""PSB"",$J,PSBTAB,2))']"""" S $P(^TMP(""PSB"",$J,PSBTAB,1),U,4)=""-1^No orders To display on Coversheet"""
^XMB(3.9,98,2,2499,0)="""RTN"",""PSBCSUTL"",142,0)"
^XMB(3.9,98,2,2500,0)=" I $G(^TMP(""PSB"",$J,PSBTAB,2))]"""" S $P(^TMP(""PSB"",$J,PSBTAB,1),U,4)=""1^COVERSHEET DATA FOLLOWS"" D ADD^PSBCSUTX"
^XMB(3.9,98,2,2501,0)="""RTN"",""PSBCSUTL"",143,0)"
^XMB(3.9,98,2,2502,0)=" D CLEAN"
^XMB(3.9,98,2,2503,0)="""RTN"",""PSBCSUTL"",144,0)"
^XMB(3.9,98,2,2504,0)=" Q"
^XMB(3.9,98,2,2505,0)="""RTN"",""PSBCSUTL"",145,0)"
^XMB(3.9,98,2,2506,0)="LASTG(PSBPATPT,PSBOIPT) ;LstGvn-(inpt: DFN,OrdrblItm IEN)"
^XMB(3.9,98,2,2507,0)="""RTN"",""PSBCSUTL"",146,0)"
^XMB(3.9,98,2,2508,0)=" K PSBHSTG S Y="""",LASTG="""" F XZ=1:1:20 S Y=$O(^PSB(53.79,""AOIP"",PSBPATPT,PSBOIPT,Y),-1),(PSBCNT,PSBFLAG)=0 Q:Y=""""  D"
^XMB(3.9,98,2,2509,0)="""RTN"",""PSBCSUTL"",147,0)"
^XMB(3.9,98,2,2510,0)=" .S:Y>0 LASTG="""",X="""" F  S X=$O(^PSB(53.79,""AOIP"",PSBPATPT,PSBOIPT,Y,X),-1) Q:X=""""  D"
^XMB(3.9,98,2,2511,0)="""RTN"",""PSBCSUTL"",148,0)"
^XMB(3.9,98,2,2512,0)=" ..S PSBSTX=$P(^PSB(53.79,X,0),U,9) S:PSBSTX']"""" PSBHSTG(Y)=-1 I PSBSTX=""G""  S PSBHSTG(Y)="""""
^XMB(3.9,98,2,2513,0)="""RTN"",""PSBCSUTL"",149,0)"
^XMB(3.9,98,2,2514,0)=" ..Q:PSBSTX=""N"""
^XMB(3.9,98,2,2515,0)="""RTN"",""PSBCSUTL"",150,0)"
^XMB(3.9,98,2,2516,0)=" ..D:(PSBSTX'=""G"")"
^XMB(3.9,98,2,2517,0)="""RTN"",""PSBCSUTL"",151,0)"
^XMB(3.9,98,2,2518,0)=" ...S Z="""" F  S Z=$O(^PSB(53.79,X,.9,Z),-1) Q:'Z  Q:PSBFLAG=1  S PSBDATA=$G(^(Z,0)) D"
^XMB(3.9,98,2,2519,0)="""RTN"",""PSBCSUTL"",152,0)"
^XMB(3.9,98,2,2520,0)=" ....I (PSBDATA[""Set to 'GIVEN'"") S PSBCNT=PSBCNT+1"
^XMB(3.9,98,2,2521,0)="""RTN"",""PSBCSUTL"",153,0)"
^XMB(3.9,98,2,2522,0)=" ....I (PSBDATA[""STATUS 'GIVEN'"") S PSBCNT=PSBCNT+1"
^XMB(3.9,98,2,2523,0)="""RTN"",""PSBCSUTL"",154,0)"
^XMB(3.9,98,2,2524,0)=" ....I PSBCNT#2=0,PSBDATA'[""'GIVEN'"" Q"
^XMB(3.9,98,2,2525,0)="""RTN"",""PSBCSUTL"",155,0)"
^XMB(3.9,98,2,2526,0)=" ....I '$D(PSBHSTG($P(PSBDATA,U))) S PSBFLAG=1,PSBHSTG($P(PSBDATA,U))="""""
^XMB(3.9,98,2,2527,0)="""RTN"",""PSBCSUTL"",156,0)"
^XMB(3.9,98,2,2528,0)=" S:$D(PSBHSTG) LASTG="""",LASTG=$O(PSBHSTG(LASTG),-1) I LASTG]"""" I PSBHSTG(LASTG)=-1 S LASTG="""""
^XMB(3.9,98,2,2529,0)="""RTN"",""PSBCSUTL"",157,0)"
^XMB(3.9,98,2,2530,0)=" Q LASTG"
^XMB(3.9,98,2,2531,0)="""RTN"",""PSBCSUTL"",158,0)"
^XMB(3.9,98,2,2532,0)="LIGHTS(PSBDFN) ;"
^XMB(3.9,98,2,2533,0)="""RTN"",""PSBCSUTL"",159,0)"
^XMB(3.9,98,2,2534,0)=" D RPC^PSBVDLTB(,PSBDFN,""NO TAB"",) S PSBTAB=""CVRSHT"""
^XMB(3.9,98,2,2535,0)="""RTN"",""PSBCSUTL"",160,0)"
^XMB(3.9,98,2,2536,0)=" M ^TMP(""PSB"",$J,PSBTAB,1)=^TMP(""PSB"",$J,""NO TAB"",1) K ^TMP(""PSB"",$J,""NO TAB"")"
^XMB(3.9,98,2,2537,0)="""RTN"",""PSBCSUTL"",161,0)"
^XMB(3.9,98,2,2538,0)=" Q"
^XMB(3.9,98,2,2539,0)="""RTN"",""PSBCSUTL"",162,0)"
^XMB(3.9,98,2,2540,0)="CLEAN ;"
^XMB(3.9,98,2,2541,0)="""RTN"",""PSBCSUTL"",163,0)"
^XMB(3.9,98,2,2542,0)=" D CLEAN^PSBVT"
^XMB(3.9,98,2,2543,0)="""RTN"",""PSBCSUTL"",164,0)"
^XMB(3.9,98,2,2544,0)=" K PSBACT,PSBACTBY,PSBACTDT,PSBACTPT,PSBADDS,PSBBAGID,PSBCHDT,PSBCHKV,PSBCNT1,PSBCNT2,PSBDDS,PSBDFNX,PSBWEND"
^XMB(3.9,98,2,2545,0)="""RTN"",""PSBCSUTL"",165,0)"
^XMB(3.9,98,2,2546,0)=" K PSBDT,PSBFLAG,PSBHSTAX,PSBI1,PSBIEN,PSBIENX,PSBLSTS,PSBMAUD,PSBMVTYP,PSBMWC,PSBNOW,PSBNTDT,PSBONMBR,PSBY,PSBXX"
^XMB(3.9,98,2,2547,0)="""RTN"",""PSBCSUTL"",166,0)"
^XMB(3.9,98,2,2548,0)=" K PSBONXS,PSBORREC,PSBPDT,PSBPRNRE,PSBPTTR,PSBQR,PSBRDOW,PSBREC,PSBRECHD,PSBSCHBR,PSBSCHTM,PSBSOLS,PSBTAB,PSBADMTM,PSBDTX"
^XMB(3.9,98,2,2549,0)="""RTN"",""PSBCSUTL"",167,0)"
^XMB(3.9,98,2,2550,0)=" K PSBTBOUT,PSBTRDT,PSBTRFL,PSBTRTYP,PSBUID,PSBUIDS,PSBX,PSBXIEN,PSBX2,PSBYEA,PSBYEA1,PSBYTF,PSBYES,VAIP,PSBWADM,PSBWBEG"
^XMB(3.9,98,2,2551,0)="""RTN"",""PSBCSUTL"",168,0)"
^XMB(3.9,98,2,2552,0)=" K PSBXREC,PSBGOT1,PSBCDT,PSBQUIT,PSBUSED,PSBLST4X,PSBADMX,PSBI2,PSBXXX,PSBI,PSBPB,PSBSHWTB,PSBONTAB,PSBDONE,^TMP(""PSJ"",$J)"
^XMB(3.9,98,2,2553,0)="""RTN"",""PSBCSUTL"",169,0)"
^XMB(3.9,98,2,2554,0)=" K PSBNXTDU,LASTG,LSTTIME,PSBMHBCK,PSBHSTG,PSBNXTDT,NEXTADM,PSBLVIV"
^XMB(3.9,98,2,2555,0)="""RTN"",""PSBCSUTL"",170,0)"
^XMB(3.9,98,2,2556,0)=" Q"
^XMB(3.9,98,2,2557,0)="""RTN"",""PSBCSUTX"")"
^XMB(3.9,98,2,2558,0)="0^23^B78201826^B78601969"
^XMB(3.9,98,2,2559,0)="""RTN"",""PSBCSUTX"",1,0)"
^XMB(3.9,98,2,2560,0)="PSBCSUTX ;BIRMINGHAM/TEJ- BCMA-HSC COVER SHEET UTILITIES 2 ;Mar 2004"
^XMB(3.9,98,2,2561,0)="""RTN"",""PSBCSUTX"",2,0)"
^XMB(3.9,98,2,2562,0)=" ;;3.0;BAR CODE MED ADMIN;**16,13**;Mar 2004"
^XMB(3.9,98,2,2563,0)="""RTN"",""PSBCSUTX"",3,0)"
^XMB(3.9,98,2,2564,0)=" ;"
^XMB(3.9,98,2,2565,0)="""RTN"",""PSBCSUTX"",4,0)"
^XMB(3.9,98,2,2566,0)=" ; Reference/IA"
^XMB(3.9,98,2,2567,0)="""RTN"",""PSBCSUTX"",5,0)"
^XMB(3.9,98,2,2568,0)=" ; File 200/10060"
^XMB(3.9,98,2,2569,0)="""RTN"",""PSBCSUTX"",6,0)"
^XMB(3.9,98,2,2570,0)=" ; $$GET1^DIQ/2056"
^XMB(3.9,98,2,2571,0)="""RTN"",""PSBCSUTX"",7,0)"
^XMB(3.9,98,2,2572,0)=" ; $$SCH^XLFDT/10103"
^XMB(3.9,98,2,2573,0)="""RTN"",""PSBCSUTX"",8,0)"
^XMB(3.9,98,2,2574,0)=" ; $$FMADD^XLFDT/10103"
^XMB(3.9,98,2,2575,0)="""RTN"",""PSBCSUTX"",9,0)"
^XMB(3.9,98,2,2576,0)=" ;"
^XMB(3.9,98,2,2577,0)="""RTN"",""PSBCSUTX"",10,0)"
^XMB(3.9,98,2,2578,0)="ADD ; output:  ORD-ORC-DD-ADD-SOL-ID-ADM-CMT-END segmnts"
^XMB(3.9,98,2,2579,0)="""RTN"",""PSBCSUTX"",11,0)"
^XMB(3.9,98,2,2580,0)=" K PSBDONE S PSBRECHD=""ORD"",PSBDONE=0,PSBCNT1=^TMP(""PSB"",$J,PSBTAB,0),PSBCNT2=1,$P(^TMP(""PSB"",$J,""CVRSHT2"",0),U)=0"
^XMB(3.9,98,2,2581,0)="""RTN"",""PSBCSUTX"",12,0)"
^XMB(3.9,98,2,2582,0)=" F PSBI1=1:1:PSBCNT1 D  Q:PSBDONE"
^XMB(3.9,98,2,2583,0)="""RTN"",""PSBCSUTX"",13,0)"
^XMB(3.9,98,2,2584,0)=" .I PSBCNT1'>1 S PSBDONE=1 Q"
^XMB(3.9,98,2,2585,0)="""RTN"",""PSBCSUTX"",14,0)"
^XMB(3.9,98,2,2586,0)=" .I PSBI1=1 S ^TMP(""PSB"",$J,""CVRSHT2"",PSBCNT2)=^TMP(""PSB"",$J,""CVRSHT"",1) Q"
^XMB(3.9,98,2,2587,0)="""RTN"",""PSBCSUTX"",15,0)"
^XMB(3.9,98,2,2588,0)=" .I ^TMP(""PSB"",$J,PSBTAB,PSBI1)=""END"" S PSBRECHD=""ORD"",PSBCNT2=PSBCNT2+1,^TMP(""PSB"",$J,""CVRSHT2"",PSBCNT2)=""END""  Q"
^XMB(3.9,98,2,2589,0)="""RTN"",""PSBCSUTX"",16,0)"
^XMB(3.9,98,2,2590,0)=" .I PSBRECHD=""ORD"" D ORD Q"
^XMB(3.9,98,2,2591,0)="""RTN"",""PSBCSUTX"",17,0)"
^XMB(3.9,98,2,2592,0)=" .I PSBRECHD=""ORC"" D ORC Q"
^XMB(3.9,98,2,2593,0)="""RTN"",""PSBCSUTX"",18,0)"
^XMB(3.9,98,2,2594,0)=" .I PSBRECHD=""MED"" D MED Q"
^XMB(3.9,98,2,2595,0)="""RTN"",""PSBCSUTX"",19,0)"
^XMB(3.9,98,2,2596,0)=" S $P(^TMP(""PSB"",$J,""CVRSHT2"",0),U)=PSBCNT2"
^XMB(3.9,98,2,2597,0)="""RTN"",""PSBCSUTX"",20,0)"
^XMB(3.9,98,2,2598,0)=" M ^TMP(""PSB"",$J,PSBTAB)=^TMP(""PSB"",$J,""CVRSHT2"") K PSBNXTDU D ADM"
^XMB(3.9,98,2,2599,0)="""RTN"",""PSBCSUTX"",21,0)"
^XMB(3.9,98,2,2600,0)=" K ^TMP(""PSB"",$J,PSBTAB) M ^TMP(""PSB"",$J,PSBTAB)=^TMP(""PSB"",$J,""CVRSHT2"") K ^TMP(""PSB"",$J,""CVRSHT2"") D FINALPAS"
^XMB(3.9,98,2,2601,0)="""RTN"",""PSBCSUTX"",22,0)"
^XMB(3.9,98,2,2602,0)=" K ^TMP(""PSB"",$J,PSBTAB) M ^TMP(""PSB"",$J,PSBTAB)=^TMP(""PSB"",$J,""CVRSHT2"") K ^TMP(""PSB"",$J,""CVRSHT2"")"
^XMB(3.9,98,2,2603,0)="""RTN"",""PSBCSUTX"",23,0)"
^XMB(3.9,98,2,2604,0)=" Q"
^XMB(3.9,98,2,2605,0)="""RTN"",""PSBCSUTX"",24,0)"
^XMB(3.9,98,2,2606,0)="ORD ; Ordr"
^XMB(3.9,98,2,2607,0)="""RTN"",""PSBCSUTX"",25,0)"
^XMB(3.9,98,2,2608,0)=" S PSBCNT2=PSBCNT2+1,(PSBORREC,PSBXREC)=^TMP(""PSB"",$J,PSBTAB,PSBI1)"
^XMB(3.9,98,2,2609,0)="""RTN"",""PSBCSUTX"",26,0)"
^XMB(3.9,98,2,2610,0)=" S ($P(PSBXREC,U,12),$P(PSBXREC,U,23),$P(PSBXREC,U,24),PSBSCHTM,PSBONMBR,PSBIENX,PSBBAGID,PSBACT,PSBACTBY,PSBACTDT,PSBACTPT,PSBPRNRE,PSBXX,PSBXXX)="""""
^XMB(3.9,98,2,2611,0)="""RTN"",""PSBCSUTX"",27,0)"
^XMB(3.9,98,2,2612,0)=" S ^TMP(""PSB"",$J,""CVRSHT2"",PSBCNT2)=""ORD"",$P(^TMP(""PSB"",$J,""CVRSHT2"",PSBCNT2),U,2)=PSBXREC"
^XMB(3.9,98,2,2613,0)="""RTN"",""PSBCSUTX"",28,0)"
^XMB(3.9,98,2,2614,0)=" S PSBSCHTM=$P(PSBORREC,U,14),PSBONMBR=$P(PSBORREC,U,2),PSBIENX=$P(PSBORREC,U,12),PSBLRGIV=0"
^XMB(3.9,98,2,2615,0)="""RTN"",""PSBCSUTX"",29,0)"
^XMB(3.9,98,2,2616,0)=" D CLEAN^PSBVT,PSJ1^PSBVT(DFN,PSBONMBR) S:(PSBONMBR[""V"")&'$$IVPTAB^PSBVDLU3(PSBOTYP,PSBIVT,PSBISYR,PSBCHEMT,$G(PSBMR)) PSBLRGIV=1"
^XMB(3.9,98,2,2617,0)="""RTN"",""PSBCSUTX"",30,0)"
^XMB(3.9,98,2,2618,0)=" I '$D(PSBLST4X(PSBONMBR)) S PSBXX="""" F PSBI=1:1 S PSBXX=$O(PSBADMX(PSBONMBR,PSBXX),-1) Q:PSBXX=""""  S PSBXXX="""" D  Q:$G(PSBLST4X(PSBONMBR))=4"
^XMB(3.9,98,2,2619,0)="""RTN"",""PSBCSUTX"",31,0)"
^XMB(3.9,98,2,2620,0)=" .F  S PSBXXX=$O(PSBADMX(PSBONMBR,PSBXX,PSBXXX)) Q:PSBXXX=""""  D  Q:$G(PSBLST4X(PSBONMBR))=4"
^XMB(3.9,98,2,2621,0)="""RTN"",""PSBCSUTX"",32,0)"
^XMB(3.9,98,2,2622,0)=" ..I $$GET1^DIQ(53.79,PSBXXX_"","",""ACTION STATUS"",""I"")'=""N""  S PSBLST4X(PSBONMBR,PSBXXX)="""",PSBLST4X(PSBONMBR)=$G(PSBLST4X(PSBONMBR))+1"
^XMB(3.9,98,2,2623,0)="""RTN"",""PSBCSUTX"",33,0)"
^XMB(3.9,98,2,2624,0)=" I PSBIENX]"""",$D(PSBLST4X(PSBONMBR,PSBIENX)) D"
^XMB(3.9,98,2,2625,0)="""RTN"",""PSBCSUTX"",34,0)"
^XMB(3.9,98,2,2626,0)=" .S PSBBAGID=$$GET1^DIQ(53.79,PSBIENX_"","",""IV UNIQUE ID"")"
^XMB(3.9,98,2,2627,0)="""RTN"",""PSBCSUTX"",35,0)"
^XMB(3.9,98,2,2628,0)=" .S PSBACTDT=$$GET1^DIQ(53.79,PSBIENX_"","",""ACTION DATE/TIME"",""I"")"
^XMB(3.9,98,2,2629,0)="""RTN"",""PSBCSUTX"",36,0)"
^XMB(3.9,98,2,2630,0)=" .S PSBACT=$$GET1^DIQ(53.79,PSBIENX_"","",""ACTION STATUS"",""I"")"
^XMB(3.9,98,2,2631,0)="""RTN"",""PSBCSUTX"",37,0)"
^XMB(3.9,98,2,2632,0)=" .S PSBPRNRE=$$GET1^DIQ(53.79,PSBIENX_"","",""PRN REASON"")"
^XMB(3.9,98,2,2633,0)="""RTN"",""PSBCSUTX"",38,0)"
^XMB(3.9,98,2,2634,0)=" .S PSBACTBY=$$GET1^DIQ(53.79,PSBIENX_"","",""ACTION BY:INITIAL"") S:PSBACTBY']"""" PSBACTBY=""***"""
^XMB(3.9,98,2,2635,0)="""RTN"",""PSBCSUTX"",39,0)"
^XMB(3.9,98,2,2636,0)=" .S PSBACTPT=$$GET1^DIQ(53.79,PSBIENX_"","",""ACTION BY"",""I"")"
^XMB(3.9,98,2,2637,0)="""RTN"",""PSBCSUTX"",40,0)"
^XMB(3.9,98,2,2638,0)=" .I '$D(PSBDONE(PSBIENX)) D"
^XMB(3.9,98,2,2639,0)="""RTN"",""PSBCSUTX"",41,0)"
^XMB(3.9,98,2,2640,0)=" ..I PSBLRGIV,(PSBFON]"""") Q"
^XMB(3.9,98,2,2641,0)="""RTN"",""PSBCSUTX"",42,0)"
^XMB(3.9,98,2,2642,0)=" ..S PSBADMS(PSBONMBR,PSBSCHTM_PSBIENX)=PSBSCHTM_""^""_PSBBAGID_""^""_PSBIENX_""^""_PSBACT_""^""_PSBACTDT_""^""_PSBACTBY_""^""_PSBACTPT_""^""_PSBPRNRE"
^XMB(3.9,98,2,2643,0)="""RTN"",""PSBCSUTX"",43,0)"
^XMB(3.9,98,2,2644,0)=" ..I PSBLRGIV D"
^XMB(3.9,98,2,2645,0)="""RTN"",""PSBCSUTX"",44,0)"
^XMB(3.9,98,2,2646,0)=" ...I PSBOSP<PSBNOW S PSBADMS(PSBONMBR,""EXP"")="""""
^XMB(3.9,98,2,2647,0)="""RTN"",""PSBCSUTX"",45,0)"
^XMB(3.9,98,2,2648,0)=" ...S PSBADMS(PSBONMBR,PSBSCHTM_PSBIENX,1)=1"
^XMB(3.9,98,2,2649,0)="""RTN"",""PSBCSUTX"",46,0)"
^XMB(3.9,98,2,2650,0)=" ..S PSBDONE(PSBIENX)="""" K PSBADMX(PSBONMBR,PSBSCHTM,PSBIENX) D"
^XMB(3.9,98,2,2651,0)="""RTN"",""PSBCSUTX"",47,0)"
^XMB(3.9,98,2,2652,0)=" ...S PSBXX="""" F  S PSBXX=$O(PSBADMX(PSBONMBR,PSBXX)) Q:PSBXX=""""  I $D(PSBADMX(PSBONMBR,PSBXX,PSBIENX)) K PSBADMX(PSBONMBR,PSBXX,PSBIENX)"
^XMB(3.9,98,2,2653,0)="""RTN"",""PSBCSUTX"",48,0)"
^XMB(3.9,98,2,2654,0)=" I PSBIENX']"""" D"
^XMB(3.9,98,2,2655,0)="""RTN"",""PSBCSUTX"",49,0)"
^XMB(3.9,98,2,2656,0)=" .S PSBADMS(PSBONMBR,PSBSCHTM_PSBIENX)=PSBSCHTM_""^^^^^^^"""
^XMB(3.9,98,2,2657,0)="""RTN"",""PSBCSUTX"",50,0)"
^XMB(3.9,98,2,2658,0)=" .I PSBLRGIV S PSBADMS(PSBONMBR,PSBSCHTM,1)=1"
^XMB(3.9,98,2,2659,0)="""RTN"",""PSBCSUTX"",51,0)"
^XMB(3.9,98,2,2660,0)=" I ""^O^OC^P^""[(U_PSBSCHT_U)&('$D(PSBADMS(PSBONMBR))) S PSBADMS(PSBONMBR,PSBSCHTM_PSBIENX)=PSBSCHTM_""^^^^^^^"""
^XMB(3.9,98,2,2661,0)="""RTN"",""PSBCSUTX"",52,0)"
^XMB(3.9,98,2,2662,0)=" S PSBRECHD=""ORC"" K PSBSCHTM S PSBXREC="""""
^XMB(3.9,98,2,2663,0)="""RTN"",""PSBCSUTX"",53,0)"
^XMB(3.9,98,2,2664,0)=" Q"
^XMB(3.9,98,2,2665,0)="""RTN"",""PSBCSUTX"",54,0)"
^XMB(3.9,98,2,2666,0)="ORC ; Ordr commnts"
^XMB(3.9,98,2,2667,0)="""RTN"",""PSBCSUTX"",55,0)"
^XMB(3.9,98,2,2668,0)=" S PSBCNT2=PSBCNT2+1,^TMP(""PSB"",$J,""CVRSHT2"",PSBCNT2)=""ORC"",$P(^TMP(""PSB"",$J,""CVRSHT2"",PSBCNT2),U,2)=^TMP(""PSB"",$J,PSBTAB,PSBI1),PSBRECHD=""MED"""
^XMB(3.9,98,2,2669,0)="""RTN"",""PSBCSUTX"",56,0)"
^XMB(3.9,98,2,2670,0)=" Q"
^XMB(3.9,98,2,2671,0)="""RTN"",""PSBCSUTX"",57,0)"
^XMB(3.9,98,2,2672,0)="MED ; Cnstr DD,ADD,SOL,ID segms"
^XMB(3.9,98,2,2673,0)="""RTN"",""PSBCSUTX"",58,0)"
^XMB(3.9,98,2,2674,0)=" S PSBXREC=^TMP(""PSB"",$J,PSBTAB,PSBI1)"
^XMB(3.9,98,2,2675,0)="""RTN"",""PSBCSUTX"",59,0)"
^XMB(3.9,98,2,2676,0)=" Q:$$QUT^PSBCSUTY()"
^XMB(3.9,98,2,2677,0)="""RTN"",""PSBCSUTX"",60,0)"
^XMB(3.9,98,2,2678,0)=" I $P(PSBXREC,U)=""ID"" S PSBUSED=$$USED^PSBCSUTY()  Q:PSBUSED"
^XMB(3.9,98,2,2679,0)="""RTN"",""PSBCSUTX"",61,0)"
^XMB(3.9,98,2,2680,0)=" S PSBCNT2=PSBCNT2+1,^TMP(""PSB"",$J,""CVRSHT2"",PSBCNT2)=^TMP(""PSB"",$J,PSBTAB,PSBI1)"
^XMB(3.9,98,2,2681,0)="""RTN"",""PSBCSUTX"",62,0)"
^XMB(3.9,98,2,2682,0)=" Q"
^XMB(3.9,98,2,2683,0)="""RTN"",""PSBCSUTX"",63,0)"
^XMB(3.9,98,2,2684,0)="ADM ; AdmnInfo"
^XMB(3.9,98,2,2685,0)="""RTN"",""PSBCSUTX"",64,0)"
^XMB(3.9,98,2,2686,0)=" K PSBDONE S (PSBONMBR,PSBSCHTM)="""" F PSBI1=2:1:$P(^TMP(""PSB"",$J,PSBTAB,0),U) D"
^XMB(3.9,98,2,2687,0)="""RTN"",""PSBCSUTX"",65,0)"
^XMB(3.9,98,2,2688,0)=" .I $P(^TMP(""PSB"",$J,PSBTAB,PSBI1),U)=""ORD"" S PSBONMBR=$P(^TMP(""PSB"",$J,PSBTAB,PSBI1),U,3),$P(^TMP(""PSB"",$J,""CVRSHT2"",PSBI1),U,15)="""""
^XMB(3.9,98,2,2689,0)="""RTN"",""PSBCSUTX"",66,0)"
^XMB(3.9,98,2,2690,0)=" .S (PSBXX,PSBXXX)="""" F  S PSBXX=$O(PSBADMX(PSBONMBR,PSBXX)) Q:PSBXX=""""  F  S PSBXXX=$O(PSBADMX(PSBONMBR,PSBXX,PSBXXX)) Q:PSBXXX=""""  D"
^XMB(3.9,98,2,2691,0)="""RTN"",""PSBCSUTX"",67,0)"
^XMB(3.9,98,2,2692,0)=" ..S PSBSCHTM=PSBXX,PSBIENX=PSBXXX"
^XMB(3.9,98,2,2693,0)="""RTN"",""PSBCSUTX"",68,0)"
^XMB(3.9,98,2,2694,0)=" ..Q:'$D(PSBLST4X(PSBONMBR,PSBIENX))"
^XMB(3.9,98,2,2695,0)="""RTN"",""PSBCSUTX"",69,0)"
^XMB(3.9,98,2,2696,0)=" ..S PSBACT=$$GET1^DIQ(53.79,PSBIENX_"","",""ACTION STATUS"",""I"")"
^XMB(3.9,98,2,2697,0)="""RTN"",""PSBCSUTX"",70,0)"
^XMB(3.9,98,2,2698,0)=" ..I PSBACT']"""" S PSBACT=""U"""
^XMB(3.9,98,2,2699,0)="""RTN"",""PSBCSUTX"",71,0)"
^XMB(3.9,98,2,2700,0)=" ..S PSBACTDT=$$GET1^DIQ(53.79,PSBIENX_"","",""ACTION DATE/TIME"",""I"")"
^XMB(3.9,98,2,2701,0)="""RTN"",""PSBCSUTX"",72,0)"
^XMB(3.9,98,2,2702,0)=" ..S PSBBAGID=$$GET1^DIQ(53.79,PSBIENX_"","",""IV UNIQUE ID"")"
^XMB(3.9,98,2,2703,0)="""RTN"",""PSBCSUTX"",73,0)"
^XMB(3.9,98,2,2704,0)=" ..S PSBPRNRE=$$GET1^DIQ(53.79,PSBIENX_"","",""PRN REASON"")"
^XMB(3.9,98,2,2705,0)="""RTN"",""PSBCSUTX"",74,0)"
^XMB(3.9,98,2,2706,0)=" ..S PSBACTBY=$$GET1^DIQ(53.79,PSBIENX_"","",""ACTION BY:INITIAL"") S:PSBACTBY']"""" PSBACTBY=""***"""
^XMB(3.9,98,2,2707,0)="""RTN"",""PSBCSUTX"",75,0)"
^XMB(3.9,98,2,2708,0)=" ..S PSBACTPT=$$GET1^DIQ(53.79,PSBIENX_"","",""ACTION BY"",""I"")"
^XMB(3.9,98,2,2709,0)="""RTN"",""PSBCSUTX"",76,0)"
^XMB(3.9,98,2,2710,0)=" ..S PSBADMS(PSBONMBR,PSBSCHTM_PSBIENX)=PSBSCHTM_""^""_PSBBAGID_""^""_PSBIENX_""^""_PSBACT_""^""_PSBACTDT_""^""_PSBACTBY_""^""_PSBACTPT_""^""_PSBPRNRE"
^XMB(3.9,98,2,2711,0)="""RTN"",""PSBCSUTX"",77,0)"
^XMB(3.9,98,2,2712,0)=" ..I PSBIENX]"""" K PSBADMX(PSBONMBR,PSBSCHTM,PSBIENX)"
^XMB(3.9,98,2,2713,0)="""RTN"",""PSBCSUTX"",78,0)"
^XMB(3.9,98,2,2714,0)=" .I '$D(PSBADMS(PSBONMBR)) K ^TMP(""PSB"",$J,""CVRSHT2"",PSBI1) Q"
^XMB(3.9,98,2,2715,0)="""RTN"",""PSBCSUTX"",79,0)"
^XMB(3.9,98,2,2716,0)=" .I $P(^TMP(""PSB"",$J,PSBTAB,PSBI1),U)=""END"" K PSBADMS(PSBONMBR) Q"
^XMB(3.9,98,2,2717,0)="""RTN"",""PSBCSUTX"",80,0)"
^XMB(3.9,98,2,2718,0)=" .I $P(^TMP(""PSB"",$J,PSBTAB,PSBI1+1),U)=""END"" D  Q"
^XMB(3.9,98,2,2719,0)="""RTN"",""PSBCSUTX"",81,0)"
^XMB(3.9,98,2,2720,0)=" ..S PSBCNT2=1,PSBSCHTM="""""
^XMB(3.9,98,2,2721,0)="""RTN"",""PSBCSUTX"",82,0)"
^XMB(3.9,98,2,2722,0)=" ..F  S PSBSCHTM=$O(PSBADMS(PSBONMBR,PSBSCHTM)) Q:+$G(PSBSCHTM)=0  D"
^XMB(3.9,98,2,2723,0)="""RTN"",""PSBCSUTX"",83,0)"
^XMB(3.9,98,2,2724,0)=" ...S PSBIENX=$P(PSBADMS(PSBONMBR,PSBSCHTM),U,3)"
^XMB(3.9,98,2,2725,0)="""RTN"",""PSBCSUTX"",84,0)"
^XMB(3.9,98,2,2726,0)=" ...I PSBIENX]"""",'$D(PSBDONE(PSBIENX))  D"
^XMB(3.9,98,2,2727,0)="""RTN"",""PSBCSUTX"",85,0)"
^XMB(3.9,98,2,2728,0)=" ....S PSBACT=$$GET1^DIQ(53.79,PSBIENX_"","",""ACTION STATUS"",""I"")"
^XMB(3.9,98,2,2729,0)="""RTN"",""PSBCSUTX"",86,0)"
^XMB(3.9,98,2,2730,0)=" ....I PSBACT']"""" S PSBACT=""U"""
^XMB(3.9,98,2,2731,0)="""RTN"",""PSBCSUTX"",87,0)"
^XMB(3.9,98,2,2732,0)=" ....S PSBACTDT=$$GET1^DIQ(53.79,PSBIENX_"","",""ACTION DATE/TIME"",""I"")"
^XMB(3.9,98,2,2733,0)="""RTN"",""PSBCSUTX"",88,0)"
^XMB(3.9,98,2,2734,0)=" ....Q:PSBACT=""N"""
^XMB(3.9,98,2,2735,0)="""RTN"",""PSBCSUTX"",89,0)"
^XMB(3.9,98,2,2736,0)=" ....Q:$D(PSBADMS(PSBONMBR,""EXP""))&(""SI""'[PSBACT)"
^XMB(3.9,98,2,2737,0)="""RTN"",""PSBCSUTX"",90,0)"
^XMB(3.9,98,2,2738,0)=" ....S $P(PSBADMS(PSBONMBR,PSBSCHTM),U,4)=PSBACT"
^XMB(3.9,98,2,2739,0)="""RTN"",""PSBCSUTX"",91,0)"
^XMB(3.9,98,2,2740,0)=" ....S ^TMP(""PSB"",$J,""CVRSHT2"",PSBI1,PSBCNT2)=""ADM^""_PSBADMS(PSBONMBR,PSBSCHTM)_""^""_$$NEXTADM(PSBDFNX,PSBONMBR),PSBCNT2=PSBCNT2+1"
^XMB(3.9,98,2,2741,0)="""RTN"",""PSBCSUTX"",92,0)"
^XMB(3.9,98,2,2742,0)=" ....S PSBDONE(PSBIENX)="""""
^XMB(3.9,98,2,2743,0)="""RTN"",""PSBCSUTX"",93,0)"
^XMB(3.9,98,2,2744,0)=" ....D CMT^PSBCSUTY"
^XMB(3.9,98,2,2745,0)="""RTN"",""PSBCSUTX"",94,0)"
^XMB(3.9,98,2,2746,0)=" ...I (PSBIENX']"""")&($G(PSBADMS(PSBONMBR,PSBSCHTM,1))'=1) S ^TMP(""PSB"",$J,""CVRSHT2"",PSBI1,PSBCNT2)=""ADM^""_PSBADMS(PSBONMBR,PSBSCHTM)_""^""_$$NEXTADM(PSBDFNX,PSBONMBR),PSBCNT2=PSBCNT2+1"
^XMB(3.9,98,2,2747,0)="""RTN"",""PSBCSUTX"",95,0)"
^XMB(3.9,98,2,2748,0)=" K PSBSCHTM"
^XMB(3.9,98,2,2749,0)="""RTN"",""PSBCSUTX"",96,0)"
^XMB(3.9,98,2,2750,0)=" Q"
^XMB(3.9,98,2,2751,0)="""RTN"",""PSBCSUTX"",97,0)"
^XMB(3.9,98,2,2752,0)="FINALPAS ;"
^XMB(3.9,98,2,2753,0)="""RTN"",""PSBCSUTX"",98,0)"
^XMB(3.9,98,2,2754,0)=" S PSBI1=""^TMP(""""PSB"""",$J,""""CVRSHT"""")"",PSBCNT1=0"
^XMB(3.9,98,2,2755,0)="""RTN"",""PSBCSUTX"",99,0)"
^XMB(3.9,98,2,2756,0)=" F  S PSBI1=$Q(@PSBI1) Q:PSBI1[""CVRSHT2""  D"
^XMB(3.9,98,2,2757,0)="""RTN"",""PSBCSUTX"",100,0)"
^XMB(3.9,98,2,2758,0)=" .I $QS(PSBI1,4)'>1 S ^TMP(""PSB"",$J,""CVRSHT2"",PSBCNT1)=@PSBI1,PSBCNT1=PSBCNT1+1 Q"
^XMB(3.9,98,2,2759,0)="""RTN"",""PSBCSUTX"",101,0)"
^XMB(3.9,98,2,2760,0)=" .K PSBX2 M PSBX2=^TMP(""PSB"",$J,""CVRSHT"",$QS(PSBI1,4))"
^XMB(3.9,98,2,2761,0)="""RTN"",""PSBCSUTX"",102,0)"
^XMB(3.9,98,2,2762,0)=" .I $QS(PSBI1,5)="""" S ^TMP(""PSB"",$J,""CVRSHT2"",PSBCNT1)=@PSBI1,PSBCNT1=PSBCNT1+1 Q"
^XMB(3.9,98,2,2763,0)="""RTN"",""PSBCSUTX"",103,0)"
^XMB(3.9,98,2,2764,0)=" .K PSBDONE"
^XMB(3.9,98,2,2765,0)="""RTN"",""PSBCSUTX"",104,0)"
^XMB(3.9,98,2,2766,0)=" .I '$D(PSBX2(1)) S ^TMP(""PSB"",$J,""CVRSHT2"",PSBCNT1)=@PSBI1,PSBCNT1=PSBCNT1+1 Q"
^XMB(3.9,98,2,2767,0)="""RTN"",""PSBCSUTX"",105,0)"
^XMB(3.9,98,2,2768,0)=" .F PSBI2=1:1 Q:'$D(PSBX2(PSBI2))  D  ; Sort actn/commnt revrs chrono"
^XMB(3.9,98,2,2769,0)="""RTN"",""PSBCSUTX"",106,0)"
^XMB(3.9,98,2,2770,0)=" ..Q:$D(PSBDONE(PSBI2))"
^XMB(3.9,98,2,2771,0)="""RTN"",""PSBCSUTX"",107,0)"
^XMB(3.9,98,2,2772,0)=" ..S PSBXDTTM=(-1*($P(PSBX2(PSBI2),U,6)))_+($E($P(PSBX2(PSBI2),U,4),$L($P(PSBX2(PSBI2),U,4))-6,999)),PSBMCODE=$P(PSBX2(PSBI2),U)"
^XMB(3.9,98,2,2773,0)="""RTN"",""PSBCSUTX"",108,0)"
^XMB(3.9,98,2,2774,0)=" ..D:(+PSBXDTTM<0)&(PSBMCODE[""ADM"")"
^XMB(3.9,98,2,2775,0)="""RTN"",""PSBCSUTX"",109,0)"
^XMB(3.9,98,2,2776,0)=" ...S PSBX3(+PSBXDTTM,-999)=PSBX2(PSBI2),PSBDONE(PSBI2)="""" K ^TMP(""PSB"",$J,""CVRSHT"",$QS(PSBI1,4),PSBI2)"
^XMB(3.9,98,2,2777,0)="""RTN"",""PSBCSUTX"",110,0)"
^XMB(3.9,98,2,2778,0)=" ...F PSBI3=1:1 Q:'$D(PSBX2(PSBI2+PSBI3))  Q:$P(PSBX2(PSBI2+PSBI3),U)'[""CMT""  D"
^XMB(3.9,98,2,2779,0)="""RTN"",""PSBCSUTX"",111,0)"
^XMB(3.9,98,2,2780,0)=" ....S PSBX3(+PSBXDTTM,-1*PSBI3)=PSBX2(PSBI2+PSBI3),PSBDONE(PSBI2+PSBI3)="""" K ^TMP(""PSB"",$J,""CVRSHT"",$QS(PSBI1,4),PSBI2+PSBI3)"
^XMB(3.9,98,2,2781,0)="""RTN"",""PSBCSUTX"",112,0)"
^XMB(3.9,98,2,2782,0)=" ..D:(+PSBXDTTM=0)&(PSBMCODE[""ADM"")"
^XMB(3.9,98,2,2783,0)="""RTN"",""PSBCSUTX"",113,0)"
^XMB(3.9,98,2,2784,0)=" ...S PSBX3(PSBI2,0)=PSBX2(PSBI2),PSBDONE(PSBI2)="""" K ^TMP(""PSB"",$J,""CVRSHT"",$QS(PSBI1,4),PSBI2)"
^XMB(3.9,98,2,2785,0)="""RTN"",""PSBCSUTX"",114,0)"
^XMB(3.9,98,2,2786,0)=" .I $D(PSBX3) D  K PSBX3"
^XMB(3.9,98,2,2787,0)="""RTN"",""PSBCSUTX"",115,0)"
^XMB(3.9,98,2,2788,0)=" ..S PSBI2="""" F  S PSBI2=$O(PSBX3(PSBI2)) Q:PSBI2=""""  S PSBI3="""" F  S PSBI3=$O(PSBX3(PSBI2,PSBI3)) Q:PSBI3=""""  D"
^XMB(3.9,98,2,2789,0)="""RTN"",""PSBCSUTX"",116,0)"
^XMB(3.9,98,2,2790,0)=" ...S ^TMP(""PSB"",$J,""CVRSHT2"",PSBCNT1)=PSBX3(PSBI2,PSBI3),PSBCNT1=PSBCNT1+1"
^XMB(3.9,98,2,2791,0)="""RTN"",""PSBCSUTX"",117,0)"
^XMB(3.9,98,2,2792,0)=" S $P(^TMP(""PSB"",$J,""CVRSHT2"",0),U)=PSBCNT1-1"
^XMB(3.9,98,2,2793,0)="""RTN"",""PSBCSUTX"",118,0)"
^XMB(3.9,98,2,2794,0)=" Q"
^XMB(3.9,98,2,2795,0)="""RTN"",""PSBCSUTX"",119,0)"
^XMB(3.9,98,2,2796,0)="NEXTADM(XX,YY) ;"
^XMB(3.9,98,2,2797,0)="""RTN"",""PSBCSUTX"",120,0)"
^XMB(3.9,98,2,2798,0)=" S NEXTADM="""""
^XMB(3.9,98,2,2799,0)="""RTN"",""PSBCSUTX"",121,0)"
^XMB(3.9,98,2,2800,0)=" I $D(PSBNXTDU(YY)) S NEXTADM=PSBNXTDU(YY) Q NEXTADM"
^XMB(3.9,98,2,2801,0)="""RTN"",""PSBCSUTX"",122,0)"
^XMB(3.9,98,2,2802,0)=" D:YY'[""P"""
^XMB(3.9,98,2,2803,0)="""RTN"",""PSBCSUTX"",123,0)"
^XMB(3.9,98,2,2804,0)=" .S PSBPATX=XX,PSBORXX=YY D CLEAN^PSBVT,PSJ1^PSBVT(XX,YY)"
^XMB(3.9,98,2,2805,0)="""RTN"",""PSBCSUTX"",124,0)"
^XMB(3.9,98,2,2806,0)=" .Q:(PSBORXX[""V"")&'$$IVPTAB^PSBVDLU3(PSBOTYP,PSBIVT,PSBISYR,PSBCHEMT,$G(PSBMR))"
^XMB(3.9,98,2,2807,0)="""RTN"",""PSBCSUTX"",125,0)"
^XMB(3.9,98,2,2808,0)=" .S PSBGSCH=PSBADST,XX=PSBPATX,YY=PSBORXX,(NEXTADM,X,Y)="""",X=$O(^PSB(53.79,""AORD"",XX,YY,X),-1)"
^XMB(3.9,98,2,2809,0)="""RTN"",""PSBCSUTX"",126,0)"
^XMB(3.9,98,2,2810,0)=" .I X]"""" S Y=$O(^PSB(53.79,""AORD"",XX,YY,X,Y),-1) I ($F(""NM"",$P(^PSB(53.79,Y,0),U,9))>1)!($P(^PSB(53.79,Y,0),U,9)="""") S NEXTADM=X"
^XMB(3.9,98,2,2811,0)="""RTN"",""PSBCSUTX"",127,0)"
^XMB(3.9,98,2,2812,0)=" .D:X']"""""
^XMB(3.9,98,2,2813,0)="""RTN"",""PSBCSUTX"",128,0)"
^XMB(3.9,98,2,2814,0)=" ..S Y="""",X=$O(^PSB(53.79,""AORDX"",XX,YY,X),-1)"
^XMB(3.9,98,2,2815,0)="""RTN"",""PSBCSUTX"",129,0)"
^XMB(3.9,98,2,2816,0)=" ..I X]"""" S Y=$O(^PSB(53.79,""AORDX"",XX,YY,X,Y),-1) I $F(""NM"",$P(^PSB(53.79,Y,0),U,9))>1!($P(^PSB(53.79,Y,0),U,9)="""") S NEXTADM=$P(^PSB(53.79,Y,0),U,6)"
^XMB(3.9,98,2,2817,0)="""RTN"",""PSBCSUTX"",130,0)"
^XMB(3.9,98,2,2818,0)=" .D:NEXTADM="""""
^XMB(3.9,98,2,2819,0)="""RTN"",""PSBCSUTX"",131,0)"
^XMB(3.9,98,2,2820,0)=" ..S PSBGOTY=Y,PSBFREQ=$$GETFREQ^PSBVDLU1(XX,YY)"
^XMB(3.9,98,2,2821,0)="""RTN"",""PSBCSUTX"",132,0)"
^XMB(3.9,98,2,2822,0)=" ..S PSBFREQ=$S(PSBFREQ=""O"":1440,PSBFREQ=""D"":"""",1:PSBFREQ)"
^XMB(3.9,98,2,2823,0)="""RTN"",""PSBCSUTX"",133,0)"
^XMB(3.9,98,2,2824,0)=" ..S (PSBXSCH,LSTTIME,LSTIEN)="""""
^XMB(3.9,98,2,2825,0)="""RTN"",""PSBCSUTX"",134,0)"
^XMB(3.9,98,2,2826,0)=" ..S:PSBGOTY]"""" LSTTIME=$O(^PSB(53.79,""AORD"",PSBPATX,PSBORXX,LSTTIME),-1) I LSTTIME]"""" S LSTIEN=$O(^PSB(53.79,""AORD"",PSBPATX,PSBORXX,LSTTIME,""""),-1)"
^XMB(3.9,98,2,2827,0)="""RTN"",""PSBCSUTX"",135,0)"
^XMB(3.9,98,2,2828,0)=" ..I LSTIEN]"""" S:$P(^PSB(53.79,LSTIEN,0),U,9)']"""" LSTTIME="""""
^XMB(3.9,98,2,2829,0)="""RTN"",""PSBCSUTX"",136,0)"
^XMB(3.9,98,2,2830,0)=" ..S:LSTTIME="""" LSTTIME=$$FMADD^XLFDT(PSBOST,,,,-0.1)"
^XMB(3.9,98,2,2831,0)="""RTN"",""PSBCSUTX"",137,0)"
^XMB(3.9,98,2,2832,0)=" ..I +PSBFREQ>0 S PSBXSCH=(+PSBFREQ/60)_""H"""
^XMB(3.9,98,2,2833,0)="""RTN"",""PSBCSUTX"",138,0)"
^XMB(3.9,98,2,2834,0)=" ..S X=LSTTIME"
^XMB(3.9,98,2,2835,0)="""RTN"",""PSBCSUTX"",139,0)"
^XMB(3.9,98,2,2836,0)=" ..F PSBIX1=1:1:($L(PSBGSCH,""-"")+1) D  Q:NEXTADM>LSTTIME"
^XMB(3.9,98,2,2837,0)="""RTN"",""PSBCSUTX"",140,0)"
^XMB(3.9,98,2,2838,0)=" ...I ($P(PSBGSCH,""-"",PSBIX1))']"""" D  Q"
^XMB(3.9,98,2,2839,0)="""RTN"",""PSBCSUTX"",141,0)"
^XMB(3.9,98,2,2840,0)=" ....I PSBIX1=1 D  Q"
^XMB(3.9,98,2,2841,0)="""RTN"",""PSBCSUTX"",142,0)"
^XMB(3.9,98,2,2842,0)=" .....I X<PSBOST S NEXTADM=PSBOST Q"
^XMB(3.9,98,2,2843,0)="""RTN"",""PSBCSUTX"",143,0)"
^XMB(3.9,98,2,2844,0)=" .....S X=PSBOST F  S X=$$SCH^XLFDT(PSBXSCH,X) S Y="""" S Y=$O(^PSB(53.79,""AORD"",PSBPATX,PSBORXX,Y),-1)  I X>Y S NEXTADM=X Q"
^XMB(3.9,98,2,2845,0)="""RTN"",""PSBCSUTX"",144,0)"
^XMB(3.9,98,2,2846,0)=" ....I PSBGSCH]"""" D  Q"
^XMB(3.9,98,2,2847,0)="""RTN"",""PSBCSUTX"",145,0)"
^XMB(3.9,98,2,2848,0)=" .....I (+PSBFREQ'>1440) F I=0:1 S PSBDTXX=$$FMADD^XLFDT(PSBOST,I) S $P(PSBDTXX,""."",2)=($P(PSBGSCH,""-"")) I PSBDTXX>LSTTIME S NEXTADM=PSBDTXX Q"
^XMB(3.9,98,2,2849,0)="""RTN"",""PSBCSUTX"",146,0)"
^XMB(3.9,98,2,2850,0)=" .....I (+PSBFREQ'<1440),(1440#PSBFREQ=1440) F I=0:1 S PSBDTXX=$$FMADD^XLFDT(PSBOST,(I*(PSBFREQ\1440))) S $P(PSBDTXX,""."",2)=($P(PSBGSCH,""-"")) I PSBDTXX>LSTTIME S NEXTADM=PSBDTXX Q"
^XMB(3.9,98,2,2851,0)="""RTN"",""PSBCSUTX"",147,0)"
^XMB(3.9,98,2,2852,0)=" ....S $P(X,""."",2)=$P(PSBGSCH,""-""),NEXTADM=$$SCH^XLFDT(PSBXSCH,X) Q"
^XMB(3.9,98,2,2853,0)="""RTN"",""PSBCSUTX"",148,0)"
^XMB(3.9,98,2,2854,0)=" ...S $P(X,""."",2)=$P(PSBGSCH,""-"",PSBIX1),NEXTADM=X"
^XMB(3.9,98,2,2855,0)="""RTN"",""PSBCSUTX"",149,0)"
^XMB(3.9,98,2,2856,0)=" .I $$PSBDCHK1^PSBVT1(PSBSCH) D"
^XMB(3.9,98,2,2857,0)="""RTN"",""PSBCSUTX"",150,0)"
^XMB(3.9,98,2,2858,0)=" ..S YY=PSBORXX,XX=PSBPATX"
^XMB(3.9,98,2,2859,0)="""RTN"",""PSBCSUTX"",151,0)"
^XMB(3.9,98,2,2860,0)=" ..I $G(LSTTIME)]"""" S NEXTADM=$S(LSTTIME'<PSBOST:LSTTIME,NEXTADM>LSTTIME:NEXTADM,1:PSBOST)"
^XMB(3.9,98,2,2861,0)="""RTN"",""PSBCSUTX"",152,0)"
^XMB(3.9,98,2,2862,0)=" ..I PSBFREQ="""" S PSBDTX=$P(NEXTADM,""."") F PSBIX3=0:1 S X=$$FMADD^XLFDT(PSBDTX,PSBIX3) Q:X>PSBOSP  D  Q:$G(PSBYS)"
^XMB(3.9,98,2,2863,0)="""RTN"",""PSBCSUTX"",153,0)"
^XMB(3.9,98,2,2864,0)=" ...S PSBNXTDT=X D DW^%DTC S PSBYS=0 F PSBIX2=1:1 S PSBDY=$P($P(PSBSCH,""@""),""-"",PSBIX2) Q:PSBDY=""""  I $F(X,PSBDY)>1 S PSBYS=1"
^XMB(3.9,98,2,2865,0)="""RTN"",""PSBCSUTX"",154,0)"
^XMB(3.9,98,2,2866,0)=" ...I PSBYS S PSBSCTM=$$GETADMIN^PSBVDLU1(XX,YY,PSBNXTDT,"""","""") K ^TMP(""PSB"",$J,""GETADMIN"") D"
^XMB(3.9,98,2,2867,0)="""RTN"",""PSBCSUTX"",155,0)"
^XMB(3.9,98,2,2868,0)=" ....F PSBIX4=1:1 S PSBTX=$P(PSBSCTM,""-"",PSBIX4) Q:PSBTX=""""  D  Q:PSBYS"
^XMB(3.9,98,2,2869,0)="""RTN"",""PSBCSUTX"",156,0)"
^XMB(3.9,98,2,2870,0)=" .....I NEXTADM>(PSBNXTDT_"".""_PSBTX) S PSBYS=0 Q"
^XMB(3.9,98,2,2871,0)="""RTN"",""PSBCSUTX"",157,0)"
^XMB(3.9,98,2,2872,0)=" .....S NEXTADM=PSBNXTDT,$P(NEXTADM,""."",2)=PSBTX"
^XMB(3.9,98,2,2873,0)="""RTN"",""PSBCSUTX"",158,0)"
^XMB(3.9,98,2,2874,0)=" .....I NEXTADM]"""" I (NEXTADM<PSBOST)!$D(^PSB(53.79,""AORD"",PSBPATX,PSBORXX,+NEXTADM))!(NEXTADM>PSBOSP) S PSBYS=0,NEXTADM="""" Q"
^XMB(3.9,98,2,2875,0)="""RTN"",""PSBCSUTX"",159,0)"
^XMB(3.9,98,2,2876,0)=" .....S PSBYS=1"
^XMB(3.9,98,2,2877,0)="""RTN"",""PSBCSUTX"",160,0)"
^XMB(3.9,98,2,2878,0)=" .S PSBNXTDU(PSBORXX)=NEXTADM"
^XMB(3.9,98,2,2879,0)="""RTN"",""PSBCSUTX"",161,0)"
^XMB(3.9,98,2,2880,0)=" .D CLEAN^PSBVT"
^XMB(3.9,98,2,2881,0)="""RTN"",""PSBCSUTX"",162,0)"
^XMB(3.9,98,2,2882,0)=" Q NEXTADM"
^XMB(3.9,98,2,2883,0)="""RTN"",""PSBML"")"
^XMB(3.9,98,2,2884,0)="0^14^B78116244^B81900339"
^XMB(3.9,98,2,2885,0)="""RTN"",""PSBML"",1,0)"
^XMB(3.9,98,2,2886,0)="PSBML ;BIRMINGHAM/EFC-BCMA MED LOG FUNCTIONS ;Mar 2004"
^XMB(3.9,98,2,2887,0)="""RTN"",""PSBML"",2,0)"
^XMB(3.9,98,2,2888,0)=" ;;3.0;BAR CODE MED ADMIN;**6,3,4,9,11,13**;Mar 2004"
^XMB(3.9,98,2,2889,0)="""RTN"",""PSBML"",3,0)"
^XMB(3.9,98,2,2890,0)=" ;"
^XMB(3.9,98,2,2891,0)="""RTN"",""PSBML"",4,0)"
^XMB(3.9,98,2,2892,0)=" ; Reference/IA"
^XMB(3.9,98,2,2893,0)="""RTN"",""PSBML"",5,0)"
^XMB(3.9,98,2,2894,0)=" ; ^DPT/10035"
^XMB(3.9,98,2,2895,0)="""RTN"",""PSBML"",6,0)"
^XMB(3.9,98,2,2896,0)=" ; DIC(42/10039"
^XMB(3.9,98,2,2897,0)="""RTN"",""PSBML"",7,0)"
^XMB(3.9,98,2,2898,0)=" ; DIC(42/2440"
^XMB(3.9,98,2,2899,0)="""RTN"",""PSBML"",8,0)"
^XMB(3.9,98,2,2900,0)=" ; File 200/10060"
^XMB(3.9,98,2,2901,0)="""RTN"",""PSBML"",9,0)"
^XMB(3.9,98,2,2902,0)=" ; EN^PSJBCMA3/3320"
^XMB(3.9,98,2,2903,0)="""RTN"",""PSBML"",10,0)"
^XMB(3.9,98,2,2904,0)=" ; $$SITE^VASITE/10112"
^XMB(3.9,98,2,2905,0)="""RTN"",""PSBML"",11,0)"
^XMB(3.9,98,2,2906,0)=" ; ^XUSEC(/10076"
^XMB(3.9,98,2,2907,0)="""RTN"",""PSBML"",12,0)"
^XMB(3.9,98,2,2908,0)=" ;"
^XMB(3.9,98,2,2909,0)="""RTN"",""PSBML"",13,0)"
^XMB(3.9,98,2,2910,0)="RPC(RESULTS,PSBHDR,PSBREC) ;BCMA MedLog Filing"
^XMB(3.9,98,2,2911,0)="""RTN"",""PSBML"",14,0)"
^XMB(3.9,98,2,2912,0)=" S PSBEDTFL=0"
^XMB(3.9,98,2,2913,0)="""RTN"",""PSBML"",15,0)"
^XMB(3.9,98,2,2914,0)=" N PSBORD,PSBTRAN,PSBFDA"
^XMB(3.9,98,2,2915,0)="""RTN"",""PSBML"",16,0)"
^XMB(3.9,98,2,2916,0)=" K PSBIEN,PSBHL7"
^XMB(3.9,98,2,2917,0)="""RTN"",""PSBML"",17,0)"
^XMB(3.9,98,2,2918,0)=" S PSBIEN=$P(PSBHDR,U,1)"
^XMB(3.9,98,2,2919,0)="""RTN"",""PSBML"",18,0)"
^XMB(3.9,98,2,2920,0)=" S PSBTRAN=$P(PSBHDR,U,2),PSBHL7=PSBTRAN"
^XMB(3.9,98,2,2921,0)="""RTN"",""PSBML"",19,0)"
^XMB(3.9,98,2,2922,0)=" S PSBINST=$P($G(PSBHDR),U,3)"
^XMB(3.9,98,2,2923,0)="""RTN"",""PSBML"",20,0)"
^XMB(3.9,98,2,2924,0)=" S PSBAUDIT=$S(PSBIEN=""+1"":0,1:1)"
^XMB(3.9,98,2,2925,0)="""RTN"",""PSBML"",21,0)"
^XMB(3.9,98,2,2926,0)=" D NOW^%DTC S PSBNOW=%"
^XMB(3.9,98,2,2927,0)="""RTN"",""PSBML"",22,0)"
^XMB(3.9,98,2,2928,0)=" I $D(^XUSEC(""PSB STUDENT"",DUZ)),PSBINST="""" S RESULTS(0)=1,RESULTS(1)=""-1^Instructor not present"" Q"
^XMB(3.9,98,2,2929,0)="""RTN"",""PSBML"",23,0)"
^XMB(3.9,98,2,2930,0)=" I $D(^XUSEC(""PSB STUDENT"",DUZ)),'$D(^XUSEC(""PSB INSTRUCTOR"",PSBINST)) S RESULTS(0)=1,RESULTS(1)=""-1^Instructor doesn't have authority"" Q"
^XMB(3.9,98,2,2931,0)="""RTN"",""PSBML"",24,0)"
^XMB(3.9,98,2,2932,0)=" S PSBINST(0)=$$GET1^DIQ(200,PSBINST_"","",.01)"
^XMB(3.9,98,2,2933,0)="""RTN"",""PSBML"",25,0)"
^XMB(3.9,98,2,2934,0)=" I PSBTRAN=""ADD COMMENT"" D COMMENT^PSBML1 Q"
^XMB(3.9,98,2,2935,0)="""RTN"",""PSBML"",26,0)"
^XMB(3.9,98,2,2936,0)=" I PSBTRAN=""PRN EFFECTIVENESS"" D PRN^PSBML1 Q"
^XMB(3.9,98,2,2937,0)="""RTN"",""PSBML"",27,0)"
^XMB(3.9,98,2,2938,0)=" I PSBTRAN=""UPDATE STATUS"" D  Q"
^XMB(3.9,98,2,2939,0)="""RTN"",""PSBML"",28,0)"
^XMB(3.9,98,2,2940,0)=" .I '$D(^PSB(53.79,PSBIEN)) S RESULTS(0)=1,RESULTS(1)=""-1^Administration is at an UNKNOWN STATUS"" Q"
^XMB(3.9,98,2,2941,0)="""RTN"",""PSBML"",29,0)"
^XMB(3.9,98,2,2942,0)=" .D UPDATED^PSBML2"
^XMB(3.9,98,2,2943,0)="""RTN"",""PSBML"",30,0)"
^XMB(3.9,98,2,2944,0)=" I PSBTRAN=""EDIT"" D EDIT^PSBML2 Q"
^XMB(3.9,98,2,2945,0)="""RTN"",""PSBML"",31,0)"
^XMB(3.9,98,2,2946,0)=" ;SAGG"
^XMB(3.9,98,2,2947,0)="""RTN"",""PSBML"",32,0)"
^XMB(3.9,98,2,2948,0)=" N PSBWARD S PSBWARD=$G(^DPT(+$G(PSBREC(0)),.1),""UNKNOWN""),^PSB(""SAGG"",PSBWARD,DT)=$G(^PSB(""SAGG"",PSBWARD,DT))+1"
^XMB(3.9,98,2,2949,0)="""RTN"",""PSBML"",33,0)"
^XMB(3.9,98,2,2950,0)=" I PSBREC(1)?1U1"";""1.6N S PSBREC(1)=$P(PSBREC(1),"";"",1)_$E(PSBREC(1))"
^XMB(3.9,98,2,2951,0)="""RTN"",""PSBML"",34,0)"
^XMB(3.9,98,2,2952,0)=" D PSJ1^PSBVT(PSBREC(0),$P(PSBREC(1),"";"",2)_$P(PSBREC(1),"";"",1))"
^XMB(3.9,98,2,2953,0)="""RTN"",""PSBML"",35,0)"
^XMB(3.9,98,2,2954,0)=" S PSBTAB=$P(PSBREC(9),U,1),PSBUID=$P(PSBREC(9),U,2)"
^XMB(3.9,98,2,2955,0)="""RTN"",""PSBML"",36,0)"
^XMB(3.9,98,2,2956,0)=" D:PSBTRAN=""MEDPASS"""
^XMB(3.9,98,2,2957,0)="""RTN"",""PSBML"",37,0)"
^XMB(3.9,98,2,2958,0)=" .I (PSBDOSEF[""PATCH""),(PSBREC(3)=""G"") D  Q:+$G(RESULTS(1))<0"
^XMB(3.9,98,2,2959,0)="""RTN"",""PSBML"",38,0)"
^XMB(3.9,98,2,2960,0)=" ..S PSBXDT="""" F  S PSBXDT=$O(^PSB(53.79,""AORDX"",PSBDFN,PSBONX,PSBXDT)) Q:PSBXDT=""""  D  Q:+$G(RESULTS(1))<0"
^XMB(3.9,98,2,2961,0)="""RTN"",""PSBML"",39,0)"
^XMB(3.9,98,2,2962,0)=" ...S PSBYZ="""" F  S PSBYZ=$O(^PSB(53.79,""AORDX"",PSBDFN,PSBONX,PSBXDT,PSBYZ)) Q:'PSBYZ  I (""G""[$$GET1^DIQ(53.79,PSBYZ,.09,""I"")) D  Q"
^XMB(3.9,98,2,2963,0)="""RTN"",""PSBML"",40,0)"
^XMB(3.9,98,2,2964,0)=" ....S:($$GET1^DIQ(53.79,PSBYZ,.09,""I"")=""G"") RESULTS(0)=1,RESULTS(1)=""-1^Previous Patch has not been removed. Administration canceled."""
^XMB(3.9,98,2,2965,0)="""RTN"",""PSBML"",41,0)"
^XMB(3.9,98,2,2966,0)=" ....S:($$GET1^DIQ(53.79,PSBYZ,.09,""I"")="""")&(($$GET1^DIQ(53.79,PSBYZ,.07,""I"")'=DUZ)&('$D(^XUSEC(""PSB MANAGER"",DUZ)))) RESULTS(0)=1,RESULTS(1)=""-1^Patch status """"*UNKNOWN*"""". Administration canceled."""
^XMB(3.9,98,2,2967,0)="""RTN"",""PSBML"",42,0)"
^XMB(3.9,98,2,2968,0)=" .I PSBREC(7)=""BCMA/CPRS Interface Entry."" S PSBNOW=PSBREC(5)  ;MOB"
^XMB(3.9,98,2,2969,0)="""RTN"",""PSBML"",43,0)"
^XMB(3.9,98,2,2970,0)=" .F X=0:1:9 S PSBREC(X)=$G(PSBREC(X))"
^XMB(3.9,98,2,2971,0)="""RTN"",""PSBML"",44,0)"
^XMB(3.9,98,2,2972,0)=" .I PSBREC(1)?1U1"";"".N S PSBREC(1)=$P(PSBREC(1),"";"",2)_$P(PSBREC(1),"";"",1)"
^XMB(3.9,98,2,2973,0)="""RTN"",""PSBML"",45,0)"
^XMB(3.9,98,2,2974,0)=" .I PSBREC(1)[""V"",+PSBREC(5)>0,+$P(PSBREC(5),""."",2)=0,PSBIVT'[""P"" D NOW^%DTC S PSBREC(5)=$P(PSBREC(5),""."",1)_"".""_$P(%,""."",2)"
^XMB(3.9,98,2,2975,0)="""RTN"",""PSBML"",46,0)"
^XMB(3.9,98,2,2976,0)=" .I $P(PSBREC(9),U,1)=""IVTAB"",$P(PSBREC(9),U,2)="""" S PSBUID=$$GETWSID^PSBVDLU2(PSBREC(0),PSBREC(1))"
^XMB(3.9,98,2,2977,0)="""RTN"",""PSBML"",47,0)"
^XMB(3.9,98,2,2978,0)=" .I $P(PSBREC(9),U,1)=""PBTAB"",$P(PSBREC(9),U,2)="""",PSBREC(1)'[""U"",PSBREC(3)'=""M"",PSBREC(3)'=""R"",PSBREC(3)'=""H"" S PSBUID=$$GETWSID^PSBVDLU2(PSBREC(0),PSBREC(1))"
^XMB(3.9,98,2,2979,0)="""RTN"",""PSBML"",48,0)"
^XMB(3.9,98,2,2980,0)=" .;OnCal"
^XMB(3.9,98,2,2981,0)="""RTN"",""PSBML"",49,0)"
^XMB(3.9,98,2,2982,0)=" .D:PSBREC(2)=""OC"""
^XMB(3.9,98,2,2983,0)="""RTN"",""PSBML"",50,0)"
^XMB(3.9,98,2,2984,0)=" ..S X=$O(^PSB(53.79,""AORD"",PSBREC(0),PSBREC(1),"""")) Q:X="""""
^XMB(3.9,98,2,2985,0)="""RTN"",""PSBML"",51,0)"
^XMB(3.9,98,2,2986,0)=" ..S Y=$O(^PSB(53.79,""AORD"",PSBREC(0),PSBREC(1),X,0))"
^XMB(3.9,98,2,2987,0)="""RTN"",""PSBML"",52,0)"
^XMB(3.9,98,2,2988,0)=" ..I $P(^PSB(53.79,Y,0),U,9)=""G""&('$$GET^XPAR(""DIV"",""PSB ADMIN MULTIPLE ONCALL"")) D ERR(1,""On-Call already given"")"
^XMB(3.9,98,2,2989,0)="""RTN"",""PSBML"",53,0)"
^XMB(3.9,98,2,2990,0)=" .;1x"
^XMB(3.9,98,2,2991,0)="""RTN"",""PSBML"",54,0)"
^XMB(3.9,98,2,2992,0)=" .D:PSBREC(2)=""O"""
^XMB(3.9,98,2,2993,0)="""RTN"",""PSBML"",55,0)"
^XMB(3.9,98,2,2994,0)=" ..S X=$O(^PSB(53.79,""AORD"",PSBREC(0),PSBREC(1),"""")) Q:X="""""
^XMB(3.9,98,2,2995,0)="""RTN"",""PSBML"",56,0)"
^XMB(3.9,98,2,2996,0)=" ..S Y=$O(^PSB(53.79,""AORD"",PSBREC(0),PSBREC(1),X,0))"
^XMB(3.9,98,2,2997,0)="""RTN"",""PSBML"",57,0)"
^XMB(3.9,98,2,2998,0)=" ..I $P(^PSB(53.79,Y,0),U,9)=""G"" D ERR(1,""One Time already Given"")"
^XMB(3.9,98,2,2999,0)="""RTN"",""PSBML"",58,0)"
^XMB(3.9,98,2,3000,0)=" .;PRN"
^XMB(3.9,98,2,3001,0)="""RTN"",""PSBML"",59,0)"
^XMB(3.9,98,2,3002,0)=" .I PSBREC(2)=""P"",PSBREC(3)'=""M"",$P(PSBREC(9),U,1)'=""IVTAB"" D"
^XMB(3.9,98,2,3003,0)="""RTN"",""PSBML"",60,0)"
^XMB(3.9,98,2,3004,0)=" ..I PSBREC(6)="""" D ERR(1,""PRN Medications MUST Have a PRN Reason"")"
^XMB(3.9,98,2,3005,0)="""RTN"",""PSBML"",61,0)"
^XMB(3.9,98,2,3006,0)=" ..I PSBREC(5)]"""" D ERR(1,""PRN Orders don't have scheduled times"")"
^XMB(3.9,98,2,3007,0)="""RTN"",""PSBML"",62,0)"
^XMB(3.9,98,2,3008,0)=" ..I PSBREC(3)'=""G"" D ERR(1,""PRN Orders cannot be marked NOT Given"")"
^XMB(3.9,98,2,3009,0)="""RTN"",""PSBML"",63,0)"
^XMB(3.9,98,2,3010,0)=" .;Cnt"
^XMB(3.9,98,2,3011,0)="""RTN"",""PSBML"",64,0)"
^XMB(3.9,98,2,3012,0)=" .I PSBREC(2)=""C"",PSBTAB'=""IVTAB"" D"
^XMB(3.9,98,2,3013,0)="""RTN"",""PSBML"",65,0)"
^XMB(3.9,98,2,3014,0)=" ..D:PSBREC(5)="""" ERR(1,""Continuous Order needs admin time"")"
^XMB(3.9,98,2,3015,0)="""RTN"",""PSBML"",66,0)"
^XMB(3.9,98,2,3016,0)=" ..D:PSBREC(6)]"""" ERR(1,""No PRN Reason allowed on Continuous Orders"")"
^XMB(3.9,98,2,3017,0)="""RTN"",""PSBML"",67,0)"
^XMB(3.9,98,2,3018,0)=" .I PSBREC(2)=""C"",$D(^PSB(53.79,""AORD"",PSBREC(0),PSBREC(1),+PSBREC(5))),PSBIEN=""+1"" D  K PSBADMBY,PSBADMAT Q:PSBSIEN=""""  Q:$P(^PSB(53.79,PSBSIEN,0),U,9)'=""N"""
^XMB(3.9,98,2,3019,0)="""RTN"",""PSBML"",68,0)"
^XMB(3.9,98,2,3020,0)=" ..S PSBSIEN=$O(^PSB(53.79,""AORD"",PSBREC(0),PSBREC(1),PSBREC(5),""""))"
^XMB(3.9,98,2,3021,0)="""RTN"",""PSBML"",69,0)"
^XMB(3.9,98,2,3022,0)=" ..I PSBSIEN]"""" I '(($P(^PSB(53.79,PSBSIEN,0),U,7)=DUZ)!($D(^XUSEC(""PSB MANAGER"",DUZ)))) S PSBSIEN="""""
^XMB(3.9,98,2,3023,0)="""RTN"",""PSBML"",70,0)"
^XMB(3.9,98,2,3024,0)=" ..I PSBSIEN']"""" S RESULTS(0)=2,RESULTS(1)=""-2^Error Filing Transaction MEDPASS"",RESULTS(2)=""This scheduled admin is being modified by another."" Q"
^XMB(3.9,98,2,3025,0)="""RTN"",""PSBML"",71,0)"
^XMB(3.9,98,2,3026,0)=" ..D:$P(^PSB(53.79,PSBSIEN,0),U,9)'=""N"""
^XMB(3.9,98,2,3027,0)="""RTN"",""PSBML"",72,0)"
^XMB(3.9,98,2,3028,0)=" ...K PSBINCX I $P(^PSB(53.79,PSBSIEN,0),U,9)="""" S PSBINCX=PSBSIEN L +^PSB(53.79,PSBINCX):1 Q:'$T  L -^PSB(53.79,PSBINCX)"
^XMB(3.9,98,2,3029,0)="""RTN"",""PSBML"",73,0)"
^XMB(3.9,98,2,3030,0)=" ...S Y=$P(^PSB(53.79,PSBSIEN,0),U,6) D DD^%DT S PSBADMAT=Y"
^XMB(3.9,98,2,3031,0)="""RTN"",""PSBML"",74,0)"
^XMB(3.9,98,2,3032,0)=" ...S PSBADMBY=$$GET1^DIQ(200,$P(^PSB(53.79,PSBSIEN,0),U,7),.01,)"
^XMB(3.9,98,2,3033,0)="""RTN"",""PSBML"",75,0)"
^XMB(3.9,98,2,3034,0)=" ...S RESULTS(0)=3,RESULTS(1)=""-2^Error Filing Transaction MEDPASS"""
^XMB(3.9,98,2,3035,0)="""RTN"",""PSBML"",76,0)"
^XMB(3.9,98,2,3036,0)=" ...S RESULTS(2)=""Continuous Administration Date/Time already on file."""
^XMB(3.9,98,2,3037,0)="""RTN"",""PSBML"",77,0)"
^XMB(3.9,98,2,3038,0)=" ...S RESULTS(3)=""Administered by ""_PSBADMBY_"" at ""_PSBADMAT_""."""
^XMB(3.9,98,2,3039,0)="""RTN"",""PSBML"",78,0)"
^XMB(3.9,98,2,3040,0)=" ...I $D(XWB) S RESULTS(0)=RESULTS(0)+2,RESULTS(4)=""                                         "",RESULTS(5)=""            VDL will now be updated."""
^XMB(3.9,98,2,3041,0)="""RTN"",""PSBML"",79,0)"
^XMB(3.9,98,2,3042,0)=" .;NonGvn"
^XMB(3.9,98,2,3043,0)="""RTN"",""PSBML"",80,0)"
^XMB(3.9,98,2,3044,0)=" .I PSBREC(3)'=""G"",PSBREC(3)'=""M"",PSBUID'[""V"",PSBUID'[""W"" D"
^XMB(3.9,98,2,3045,0)="""RTN"",""PSBML"",81,0)"
^XMB(3.9,98,2,3046,0)=" ..I PSBREC(7)="""",PSBTAB'=""IVTAB"" D ERR(1,""Comment needed if Not Marked Given"")"
^XMB(3.9,98,2,3047,0)="""RTN"",""PSBML"",82,0)"
^XMB(3.9,98,2,3048,0)=" ..I PSBREC(7)="""",PSBTAB=""IVTAB"" D ERR(1,""Comment needed if Not Marked Completed"")"
^XMB(3.9,98,2,3049,0)="""RTN"",""PSBML"",83,0)"
^XMB(3.9,98,2,3050,0)=" .S:PSBREC(3)=""H"" PSBREC(7)=""Held: ""_PSBREC(7)    ;.3"
^XMB(3.9,98,2,3051,0)="""RTN"",""PSBML"",84,0)"
^XMB(3.9,98,2,3052,0)=" .S:PSBREC(3)=""R"" PSBREC(7)=""Refused: ""_PSBREC(7) ;.3"
^XMB(3.9,98,2,3053,0)="""RTN"",""PSBML"",85,0)"
^XMB(3.9,98,2,3054,0)=" .S:PSBREC(3)=""S"" PSBREC(7)=""Stopped: ""_PSBREC(7) ;.3"
^XMB(3.9,98,2,3055,0)="""RTN"",""PSBML"",86,0)"
^XMB(3.9,98,2,3056,0)=" .;Vald?"
^XMB(3.9,98,2,3057,0)="""RTN"",""PSBML"",87,0)"
^XMB(3.9,98,2,3058,0)=" .I $G(PSBSIEN)'="""" I $D(^PSB(53.79,PSBSIEN,0)) I $P(^PSB(53.79,PSBSIEN,0),U,9)=""N"" S PSBIEN=+PSBSIEN_"","",$P(PSBHDR,U)=PSBIEN,PSBTRAN=""UPDATE STATUS"",PSBAUDIT=1   ;do UPDATE"
^XMB(3.9,98,2,3059,0)="""RTN"",""PSBML"",88,0)"
^XMB(3.9,98,2,3060,0)=" .D:PSBIEN=""+1""  ;New?"
^XMB(3.9,98,2,3061,0)="""RTN"",""PSBML"",89,0)"
^XMB(3.9,98,2,3062,0)=" ..D VAL(53.79,PSBIEN,.01,""`""_PSBREC(0)) ;Pt"
^XMB(3.9,98,2,3063,0)="""RTN"",""PSBML"",90,0)"
^XMB(3.9,98,2,3064,0)=" ..S X=$G(^DPT(PSBREC(0),.1))_"" ""_$G(^(.101)) ;WrdRmBd"
^XMB(3.9,98,2,3065,0)="""RTN"",""PSBML"",91,0)"
^XMB(3.9,98,2,3066,0)=" ..D VAL(53.79,PSBIEN,.02,X) ;PtLoc"
^XMB(3.9,98,2,3067,0)="""RTN"",""PSBML"",92,0)"
^XMB(3.9,98,2,3068,0)=" ..D:$G(^DPT(PSBREC(0),.1))'="""""
^XMB(3.9,98,2,3069,0)="""RTN"",""PSBML"",93,0)"
^XMB(3.9,98,2,3070,0)=" ...S Y=$O(^DIC(42,""B"",$G(^DPT(PSBREC(0),.1)),"""")),Y=$$GET1^DIQ(42,Y,.015,""I""),PSBDIV=$$SITE^VASITE(DT,Y)"
^XMB(3.9,98,2,3071,0)="""RTN"",""PSBML"",94,0)"
^XMB(3.9,98,2,3072,0)=" ...D VAL(53.79,PSBIEN,.03,""`""_$P(PSBDIV,U,1)) ;Div"
^XMB(3.9,98,2,3073,0)="""RTN"",""PSBML"",95,0)"
^XMB(3.9,98,2,3074,0)=" ..D VAL(53.79,PSBIEN,.04,PSBNOW)  ;EntDT"
^XMB(3.9,98,2,3075,0)="""RTN"",""PSBML"",96,0)"
^XMB(3.9,98,2,3076,0)=" ..D VAL(53.79,PSBIEN,.05,""`""_DUZ) ;Who"
^XMB(3.9,98,2,3077,0)="""RTN"",""PSBML"",97,0)"
^XMB(3.9,98,2,3078,0)=" ..D VAL(53.79,PSBIEN,.06,PSBNOW)  ;AdmDT"
^XMB(3.9,98,2,3079,0)="""RTN"",""PSBML"",98,0)"
^XMB(3.9,98,2,3080,0)=" ..D VAL(53.79,PSBIEN,.07,""`""_DUZ) ;AdmBy"
^XMB(3.9,98,2,3081,0)="""RTN"",""PSBML"",99,0)"
^XMB(3.9,98,2,3082,0)=" ..D VAL(53.79,PSBIEN,.08,""`""_PSBREC(4)) ;OrdblItm"
^XMB(3.9,98,2,3083,0)="""RTN"",""PSBML"",100,0)"
^XMB(3.9,98,2,3084,0)=" ..D VAL(53.79,PSBIEN,.11,PSBREC(1)) ;OrdTpeIEN"
^XMB(3.9,98,2,3085,0)="""RTN"",""PSBML"",101,0)"
^XMB(3.9,98,2,3086,0)=" ..D VAL(53.79,PSBIEN,.12,PSBREC(2)) ;OrdSchdTpe"
^XMB(3.9,98,2,3087,0)="""RTN"",""PSBML"",102,0)"
^XMB(3.9,98,2,3088,0)=" ..D VAL(53.79,PSBIEN,.13,PSBREC(5)) ;SchdAdmDT"
^XMB(3.9,98,2,3089,0)="""RTN"",""PSBML"",103,0)"
^XMB(3.9,98,2,3090,0)=" ..D:PSBTAB'=""UDTAB"" VAL(53.79,PSBIEN,.26,PSBUID) ;Bag"
^XMB(3.9,98,2,3091,0)="""RTN"",""PSBML"",104,0)"
^XMB(3.9,98,2,3092,0)=" ..D:PSBTAB=""IVTAB"" VAL(53.79,PSBIEN,.13,"""") ;no SchdAdm - lvIV"
^XMB(3.9,98,2,3093,0)="""RTN"",""PSBML"",105,0)"
^XMB(3.9,98,2,3094,0)=" ..D:PSBREC(1)?.N1""U"" VAL(53.79,PSBIEN,.15,PSBDOSE) ;UDDsage"
^XMB(3.9,98,2,3095,0)="""RTN"",""PSBML"",106,0)"
^XMB(3.9,98,2,3096,0)=" ..D:PSBREC(1)?.N1""V"" VAL(53.79,PSBIEN,.35,PSBIFR)  ;IVInfRt"
^XMB(3.9,98,2,3097,0)="""RTN"",""PSBML"",107,0)"
^XMB(3.9,98,2,3098,0)=" .;Ovrwrt if exsts"
^XMB(3.9,98,2,3099,0)="""RTN"",""PSBML"",108,0)"
^XMB(3.9,98,2,3100,0)=" .I PSBREC(3)=""G""!(PSBREC(3))=""C"" D  ;Gvn/Cmpltd?"
^XMB(3.9,98,2,3101,0)="""RTN"",""PSBML"",109,0)"
^XMB(3.9,98,2,3102,0)=" ..D VAL(53.79,PSBIEN,.06,PSBNOW)   ;AdmDT"
^XMB(3.9,98,2,3103,0)="""RTN"",""PSBML"",110,0)"
^XMB(3.9,98,2,3104,0)=" ..D VAL(53.79,PSBIEN,.07,""`""_DUZ)  ;AdmBy"
^XMB(3.9,98,2,3105,0)="""RTN"",""PSBML"",111,0)"
^XMB(3.9,98,2,3106,0)=" .D:PSBREC(8)]"""" VAL(53.79,PSBIEN,.16,PSBREC(8)) ;InjctSte"
^XMB(3.9,98,2,3107,0)="""RTN"",""PSBML"",112,0)"
^XMB(3.9,98,2,3108,0)=" .D:'$G(PSBMMEN) VAL(53.79,PSBIEN,.09,PSBREC(3)) ;AStats"
^XMB(3.9,98,2,3109,0)="""RTN"",""PSBML"",113,0)"
^XMB(3.9,98,2,3110,0)=" .D:PSBREC(6)]"""" VAL(53.79,PSBIEN,.21,$P(PSBREC(6),U)),VAL(53.79,PSBIEN,.27,$P(PSBREC(6),U,2)) ;PRNRsn"
^XMB(3.9,98,2,3111,0)="""RTN"",""PSBML"",114,0)"
^XMB(3.9,98,2,3112,0)=" .D:PSBREC(7)]"""""
^XMB(3.9,98,2,3113,0)="""RTN"",""PSBML"",115,0)"
^XMB(3.9,98,2,3114,0)=" ..D VAL(53.793,""+2,""_PSBIEN,.01,PSBREC(7)) ;Cmnt"
^XMB(3.9,98,2,3115,0)="""RTN"",""PSBML"",116,0)"
^XMB(3.9,98,2,3116,0)=" ..D VAL(53.793,""+2,""_PSBIEN,.02,""`""_DUZ)   ;Who"
^XMB(3.9,98,2,3117,0)="""RTN"",""PSBML"",117,0)"
^XMB(3.9,98,2,3118,0)=" ..D VAL(53.793,""+2,""_PSBIEN,.03,PSBNOW)"
^XMB(3.9,98,2,3119,0)="""RTN"",""PSBML"",118,0)"
^XMB(3.9,98,2,3120,0)=" .;DD/SOL/ADD"
^XMB(3.9,98,2,3121,0)="""RTN"",""PSBML"",119,0)"
^XMB(3.9,98,2,3122,0)=" .I PSBREC(3)=""G""!(PSBREC(3)=""I"")!(PSBREC(3)=""H"")!(PSBREC(3)=""R"")!(PSBREC(3)=""M"") D  ;gvn/infs?"
^XMB(3.9,98,2,3123,0)="""RTN"",""PSBML"",120,0)"
^XMB(3.9,98,2,3124,0)=" ..I PSBTRAN=""UPDATE STATUS"" K ^PSB(53.79,+PSBIEN,.5),^PSB(53.79,+PSBIEN,.6),^PSB(53.79,+PSBIEN,.7)"
^XMB(3.9,98,2,3125,0)="""RTN"",""PSBML"",121,0)"
^XMB(3.9,98,2,3126,0)=" ..F PSBCNT=10:1 Q:'$D(PSBREC(PSBCNT))  D"
^XMB(3.9,98,2,3127,0)="""RTN"",""PSBML"",122,0)"
^XMB(3.9,98,2,3128,0)=" ...S Y=$P(PSBREC(PSBCNT),U)"
^XMB(3.9,98,2,3129,0)="""RTN"",""PSBML"",123,0)"
^XMB(3.9,98,2,3130,0)=" ...S PSBDD=$S(Y=""DD"":53.795,Y=""ADD"":53.796,Y=""SOL"":53.797,1:0)"
^XMB(3.9,98,2,3131,0)="""RTN"",""PSBML"",124,0)"
^XMB(3.9,98,2,3132,0)=" ...Q:'PSBDD"
^XMB(3.9,98,2,3133,0)="""RTN"",""PSBML"",125,0)"
^XMB(3.9,98,2,3134,0)=" ...S PSBIENS=""+""_PSBCNT_"",""_PSBIEN"
^XMB(3.9,98,2,3135,0)="""RTN"",""PSBML"",126,0)"
^XMB(3.9,98,2,3136,0)=" ...D VAL(PSBDD,PSBIENS,.01,""`""_$P(PSBREC(PSBCNT),U,2))"
^XMB(3.9,98,2,3137,0)="""RTN"",""PSBML"",127,0)"
^XMB(3.9,98,2,3138,0)=" ...D VAL(PSBDD,PSBIENS,.02,$P(PSBREC(PSBCNT),U,3))"
^XMB(3.9,98,2,3139,0)="""RTN"",""PSBML"",128,0)"
^XMB(3.9,98,2,3140,0)=" ...D VAL(PSBDD,PSBIENS,.03,$P(PSBREC(PSBCNT),U,4))"
^XMB(3.9,98,2,3141,0)="""RTN"",""PSBML"",129,0)"
^XMB(3.9,98,2,3142,0)=" ...D:(PSBTAB=""UDTAB"")!(PSBTAB=""PBTAB"") VAL(PSBDD,PSBIENS,.04,$E($P(PSBREC(PSBCNT),U,5),1,20))"
^XMB(3.9,98,2,3143,0)="""RTN"",""PSBML"",130,0)"
^XMB(3.9,98,2,3144,0)=" .I $O(RESULTS("""")) S RESULTS(0)=1,RESULTS(1)=""-1^Error(s) Filing Transaction MEDPASS""  Q"
^XMB(3.9,98,2,3145,0)="""RTN"",""PSBML"",131,0)"
^XMB(3.9,98,2,3146,0)=" .D FILEIT"
^XMB(3.9,98,2,3147,0)="""RTN"",""PSBML"",132,0)"
^XMB(3.9,98,2,3148,0)=" .D:(PSBREC(2)=""O"")&(PSBREC(3)=""G"") EXPIRE^PSBML1  ;1x exp?"
^XMB(3.9,98,2,3149,0)="""RTN"",""PSBML"",133,0)"
^XMB(3.9,98,2,3150,0)=" .I $P(RESULTS(0),U,1)=1,PSBTAB'=""UDTAB"",PSBUID]"""",PSBUID'[""WS"" S PSBON=+PSBREC(1) D EN^PSJBCMA3(PSBREC(0),PSBON,PSBUID,PSBREC(3),PSBNOW)"
^XMB(3.9,98,2,3151,0)="""RTN"",""PSBML"",134,0)"
^XMB(3.9,98,2,3152,0)=" Q"
^XMB(3.9,98,2,3153,0)="""RTN"",""PSBML"",135,0)"
^XMB(3.9,98,2,3154,0)="BCBU ;HL7,NatContng"
^XMB(3.9,98,2,3155,0)="""RTN"",""PSBML"",136,0)"
^XMB(3.9,98,2,3156,0)=" Q:+$G(RESULTS(0))'>0"
^XMB(3.9,98,2,3157,0)="""RTN"",""PSBML"",137,0)"
^XMB(3.9,98,2,3158,0)=" N PSBIEN1 S PSBIEN1=$S($P(PSBIEN,"","",2)'="""":+$P(PSBIEN,"","",2),$G(PSBIEN)=""+1"":PSBIEN(1),1:+$G(PSBIEN))"
^XMB(3.9,98,2,3159,0)="""RTN"",""PSBML"",138,0)"
^XMB(3.9,98,2,3160,0)=" I $G(PSBIEN1)="""" S RESULTS(0)=1,RESULTS(1)=""-1^Contingency NOT processed"" Q"
^XMB(3.9,98,2,3161,0)="""RTN"",""PSBML"",139,0)"
^XMB(3.9,98,2,3162,0)=" I $G(PSBIEN)=""+1"" S PSBHL7=""MEDPASS"""
^XMB(3.9,98,2,3163,0)="""RTN"",""PSBML"",140,0)"
^XMB(3.9,98,2,3164,0)=" E  S:$G(PSBHL7)="""" PSBHL7=""UPDATE STATUS"""
^XMB(3.9,98,2,3165,0)="""RTN"",""PSBML"",141,0)"
^XMB(3.9,98,2,3166,0)=" D:('$D(Y(0))!($G(Y(0))=""SAVE"")!($G(Y(0))=""YES"")) EN^PSBSVHL7(+PSBIEN1,PSBHL7),MEDL^ALPBCBU(+PSBIEN1) K PSBHL7"
^XMB(3.9,98,2,3167,0)="""RTN"",""PSBML"",142,0)"
^XMB(3.9,98,2,3168,0)=" ;<<HDR-VDEF(frm *3)"
^XMB(3.9,98,2,3169,0)="""RTN"",""PSBML"",143,0)"
^XMB(3.9,98,2,3170,0)=" Q"
^XMB(3.9,98,2,3171,0)="""RTN"",""PSBML"",144,0)"
^XMB(3.9,98,2,3172,0)="VAL(PSBDD,PSBIEN,PSBFLD,PSBVAL) ;"
^XMB(3.9,98,2,3173,0)="""RTN"",""PSBML"",145,0)"
^XMB(3.9,98,2,3174,0)=" K ^TMP(""DIERR"",$J),PSBRET"
^XMB(3.9,98,2,3175,0)="""RTN"",""PSBML"",146,0)"
^XMB(3.9,98,2,3176,0)=" D VAL^DIE(PSBDD,PSBIEN,PSBFLD,""F"",PSBVAL,.PSBRET,""PSBFDA"")"
^XMB(3.9,98,2,3177,0)="""RTN"",""PSBML"",147,0)"
^XMB(3.9,98,2,3178,0)=" I PSBRET=""^"" F X=0:0 S X=$O(^TMP(""DIERR"",$J,X)) Q:'X  D ERR(2,^TMP(""DIERR"",$J,X)_"": ""_$G(^(X,""TEXT"",1),""**""))"
^XMB(3.9,98,2,3179,0)="""RTN"",""PSBML"",148,0)"
^XMB(3.9,98,2,3180,0)=" K ^TMP(""DIERR"",$J),PSBRET"
^XMB(3.9,98,2,3181,0)="""RTN"",""PSBML"",149,0)"
^XMB(3.9,98,2,3182,0)=" Q"
^XMB(3.9,98,2,3183,0)="""RTN"",""PSBML"",150,0)"
^XMB(3.9,98,2,3184,0)="FILEIT ;Updt"
^XMB(3.9,98,2,3185,0)="""RTN"",""PSBML"",151,0)"
^XMB(3.9,98,2,3186,0)=" N PSBMSG,PSBAUD"
^XMB(3.9,98,2,3187,0)="""RTN"",""PSBML"",152,0)"
^XMB(3.9,98,2,3188,0)=" S (PSB1,PSB2)="""""
^XMB(3.9,98,2,3189,0)="""RTN"",""PSBML"",153,0)"
^XMB(3.9,98,2,3190,0)=" D APATCH^PSBML3"
^XMB(3.9,98,2,3191,0)="""RTN"",""PSBML"",154,0)"
^XMB(3.9,98,2,3192,0)=" D CLEAN^DILF"
^XMB(3.9,98,2,3193,0)="""RTN"",""PSBML"",155,0)"
^XMB(3.9,98,2,3194,0)=" D RESETADM^PSBUTL"
^XMB(3.9,98,2,3195,0)="""RTN"",""PSBML"",156,0)"
^XMB(3.9,98,2,3196,0)=" D UPDATE^DIE("""",""PSBFDA"",""PSBIEN"",""PSBMSG"")"
^XMB(3.9,98,2,3197,0)="""RTN"",""PSBML"",157,0)"
^XMB(3.9,98,2,3198,0)=" I '$G(PSBMMEN) S X=+PSBIEN I $F(""HR"",$P(^PSB(53.79,X,0),U,9))>1 F Y=.5,.6,.7 S Z=0 F  S Z=$O(^PSB(53.79,+X,Y,Z)) Q:+Z=0  S $P(^PSB(53.79,+X,Y,Z,0),U,3)=0"
^XMB(3.9,98,2,3199,0)="""RTN"",""PSBML"",158,0)"
^XMB(3.9,98,2,3200,0)=" I $D(PSBMSG(""DIERR"")) S RESULTS(0)=1,RESULTS(1)=""-1^""_PSBMSG(""DIERR"",1)_"": ""_PSBMSG(""DIERR"",1,""TEXT"",1)  Q"
^XMB(3.9,98,2,3201,0)="""RTN"",""PSBML"",159,0)"
^XMB(3.9,98,2,3202,0)=" I $G(PSB1)]"""" X PSB1 I $G(PSB2)]"""" X PSB2"
^XMB(3.9,98,2,3203,0)="""RTN"",""PSBML"",160,0)"
^XMB(3.9,98,2,3204,0)=" I $D(PSBHDR) D:""NHMR""[$P(^PSB(53.79,$S($P(PSBHDR,""^"",1)=""+1"":PSBIEN(1),1:+PSBIEN),0),U,9)"
^XMB(3.9,98,2,3205,0)="""RTN"",""PSBML"",161,0)"
^XMB(3.9,98,2,3206,0)=" .N PSBINDX S PSBINDX=$S($P(PSBHDR,""^"",1)=""+1"":PSBIEN(1),1:+PSBIEN)"
^XMB(3.9,98,2,3207,0)="""RTN"",""PSBML"",162,0)"
^XMB(3.9,98,2,3208,0)=" .K ^PSB(53.79,""APATCH"",$P(^PSB(53.79,PSBINDX,0),U),$P(^PSB(53.79,PSBINDX,0),U,6),PSBINDX)"
^XMB(3.9,98,2,3209,0)="""RTN"",""PSBML"",163,0)"
^XMB(3.9,98,2,3210,0)=" S RESULTS(0)=1,RESULTS(1)=""1^Data Successfully Filed^""_$S($G(PSBIEN(1))'="""":$G(PSBIEN(1)),1:+$G(PSBIEN))"
^XMB(3.9,98,2,3211,0)="""RTN"",""PSBML"",164,0)"
^XMB(3.9,98,2,3212,0)=" D BCBU  ;NatContng"
^XMB(3.9,98,2,3213,0)="""RTN"",""PSBML"",165,0)"
^XMB(3.9,98,2,3214,0)=" I $G(PSBINST,0) S PSBAUD=$S($P(PSBHDR,""^"",1)=""+1"":PSBIEN(1),1:$P(PSBHDR,""^"",1)) D AUDIT^PSBMLU(PSBAUD,""Instructor ""_PSBINST(0)_"" present."",PSBTRAN)"
^XMB(3.9,98,2,3215,0)="""RTN"",""PSBML"",166,0)"
^XMB(3.9,98,2,3216,0)=" Q"
^XMB(3.9,98,2,3217,0)="""RTN"",""PSBML"",167,0)"
^XMB(3.9,98,2,3218,0)="ERR(X,Y) ;"
^XMB(3.9,98,2,3219,0)="""RTN"",""PSBML"",168,0)"
^XMB(3.9,98,2,3220,0)=" S X=$P(""Business Logic Error^Data Validation Error"",U,X)"
^XMB(3.9,98,2,3221,0)="""RTN"",""PSBML"",169,0)"
^XMB(3.9,98,2,3222,0)=" S RESULTS($O(RESULTS(""""),-1)+1)=X_"": ""_Y"
^XMB(3.9,98,2,3223,0)="""RTN"",""PSBML"",170,0)"
^XMB(3.9,98,2,3224,0)=" Q"
^XMB(3.9,98,2,3225,0)="""RTN"",""PSBML"",171,0)"
^XMB(3.9,98,2,3226,0)="COMMENT(DA,PSBCMT) ;"
^XMB(3.9,98,2,3227,0)="""RTN"",""PSBML"",172,0)"
^XMB(3.9,98,2,3228,0)=" N PSBFDA,PSBIEN,PSBNOW"
^XMB(3.9,98,2,3229,0)="""RTN"",""PSBML"",173,0)"
^XMB(3.9,98,2,3230,0)=" S PSBIEN=""+1,""_DA_"","""
^XMB(3.9,98,2,3231,0)="""RTN"",""PSBML"",174,0)"
^XMB(3.9,98,2,3232,0)=" D NOW^%DTC S PSBNOW=%"
^XMB(3.9,98,2,3233,0)="""RTN"",""PSBML"",175,0)"
^XMB(3.9,98,2,3234,0)=" D VAL(53.793,PSBIEN,.01,PSBCMT)"
^XMB(3.9,98,2,3235,0)="""RTN"",""PSBML"",176,0)"
^XMB(3.9,98,2,3236,0)=" S PSBFDA(53.793,PSBIEN,.02)=DUZ"
^XMB(3.9,98,2,3237,0)="""RTN"",""PSBML"",177,0)"
^XMB(3.9,98,2,3238,0)=" S PSBFDA(53.793,PSBIEN,.03)=PSBNOW"
^XMB(3.9,98,2,3239,0)="""RTN"",""PSBML"",178,0)"
^XMB(3.9,98,2,3240,0)=" D FILEIT"
^XMB(3.9,98,2,3241,0)="""RTN"",""PSBML"",179,0)"
^XMB(3.9,98,2,3242,0)=" Q"
^XMB(3.9,98,2,3243,0)="""RTN"",""PSBML2"")"
^XMB(3.9,98,2,3244,0)="0^20^B67471852^B77106883"
^XMB(3.9,98,2,3245,0)="""RTN"",""PSBML2"",1,0)"
^XMB(3.9,98,2,3246,0)="PSBML2 ;BIRMINGHAM/TEJ-BCMA UTILITY TO EDIT THE PSB MED LOG  ;18 Apr 2005  10:13 AM"
^XMB(3.9,98,2,3247,0)="""RTN"",""PSBML2"",2,0)"
^XMB(3.9,98,2,3248,0)=" ;;3.0;BAR CODE MED ADMIN;**3,18,22,23,13**;Mar 2004"
^XMB(3.9,98,2,3249,0)="""RTN"",""PSBML2"",3,0)"
^XMB(3.9,98,2,3250,0)=" ;"
^XMB(3.9,98,2,3251,0)="""RTN"",""PSBML2"",4,0)"
^XMB(3.9,98,2,3252,0)=" ; Reference/IA"
^XMB(3.9,98,2,3253,0)="""RTN"",""PSBML2"",5,0)"
^XMB(3.9,98,2,3254,0)=" ; EN^PSJBCMA3/3320"
^XMB(3.9,98,2,3255,0)="""RTN"",""PSBML2"",6,0)"
^XMB(3.9,98,2,3256,0)=" ; ENE^PSJBCMA4/3416"
^XMB(3.9,98,2,3257,0)="""RTN"",""PSBML2"",7,0)"
^XMB(3.9,98,2,3258,0)=" ; ENR^PSJBCMA4/3416"
^XMB(3.9,98,2,3259,0)="""RTN"",""PSBML2"",8,0)"
^XMB(3.9,98,2,3260,0)=" ;"
^XMB(3.9,98,2,3261,0)="""RTN"",""PSBML2"",9,0)"
^XMB(3.9,98,2,3262,0)=" ;"
^XMB(3.9,98,2,3263,0)="""RTN"",""PSBML2"",10,0)"
^XMB(3.9,98,2,3264,0)="EDIT ;"
^XMB(3.9,98,2,3265,0)="""RTN"",""PSBML2"",11,0)"
^XMB(3.9,98,2,3266,0)=" K RESULTS S PSBEDIEN=PSBIEN_"","",RESULTS(0)=0"
^XMB(3.9,98,2,3267,0)="""RTN"",""PSBML2"",12,0)"
^XMB(3.9,98,2,3268,0)=" I $G(PSBREC(7))']"""" S RESULTS(0)=1,RESULTS(1)=""-1^Data NOT filed - Comment is required"" Q"
^XMB(3.9,98,2,3269,0)="""RTN"",""PSBML2"",13,0)"
^XMB(3.9,98,2,3270,0)=" D"
^XMB(3.9,98,2,3271,0)="""RTN"",""PSBML2"",14,0)"
^XMB(3.9,98,2,3272,0)=" .S PSBEDTFL=1,PSBMODS=0,PSBREC(1)="""""
^XMB(3.9,98,2,3273,0)="""RTN"",""PSBML2"",15,0)"
^XMB(3.9,98,2,3274,0)=" .D:PSBREC(4)]"""" VAL^PSBML(53.79,PSBEDIEN,.06,PSBREC(4))"
^XMB(3.9,98,2,3275,0)="""RTN"",""PSBML2"",16,0)"
^XMB(3.9,98,2,3276,0)=" .I (PSBREC(0)=""N"") D"
^XMB(3.9,98,2,3277,0)="""RTN"",""PSBML2"",17,0)"
^XMB(3.9,98,2,3278,0)=" ..I ($$GET1^DIQ(53.79,PSBEDIEN,.11)[""V"") F PSBX=1:1:6 S PSBREC(PSBX)="""""
^XMB(3.9,98,2,3279,0)="""RTN"",""PSBML2"",18,0)"
^XMB(3.9,98,2,3280,0)=" .I (""NHR""[PSBREC(0)),$D(^PSB(53.79,+PSBEDIEN,.2)) D"
^XMB(3.9,98,2,3281,0)="""RTN"",""PSBML2"",19,0)"
^XMB(3.9,98,2,3282,0)=" ..; Audit PRN"
^XMB(3.9,98,2,3283,0)="""RTN"",""PSBML2"",20,0)"
^XMB(3.9,98,2,3284,0)=" ..D:$P(^PSB(53.79,+PSBEDIEN,.2),U,2)]"""" AUDIT^PSBUTL(+PSBEDIEN,53.79,.22,$P(^PSB(53.79,+PSBEDIEN,.2),U,2),""K"")"
^XMB(3.9,98,2,3285,0)="""RTN"",""PSBML2"",21,0)"
^XMB(3.9,98,2,3286,0)=" ..I ($P(^PSB(53.79,+PSBEDIEN,0),U,9)=""G"")!($P(^PSB(53.79,+PSBEDIEN,0),U,9)=""I"") D"
^XMB(3.9,98,2,3287,0)="""RTN"",""PSBML2"",22,0)"
^XMB(3.9,98,2,3288,0)=" ...I $D(^PSB(53.79,""APRN"",$P(^PSB(53.79,+PSBEDIEN,0),U,1),$P(^PSB(53.79,+PSBEDIEN,0),U,6),+PSBEDIEN)) D"
^XMB(3.9,98,2,3289,0)="""RTN"",""PSBML2"",23,0)"
^XMB(3.9,98,2,3290,0)=" ....K ^PSB(53.79,""APRN"",$P(^PSB(53.79,+PSBEDIEN,0),U,1),$P(^PSB(53.79,+PSBEDIEN,0),U,6),+PSBEDIEN) K ^PSB(53.79,+PSBEDIEN,.2)"
^XMB(3.9,98,2,3291,0)="""RTN"",""PSBML2"",24,0)"
^XMB(3.9,98,2,3292,0)=" .I (""NHR""'[PSBREC(0)) D:$G(PSBREC(5))]"""" VAL^PSBML(53.79,PSBEDIEN,.21,$G(PSBREC(5))) D:$G(PSBREC(6))]"""" VAL^PSBML(53.79,PSBEDIEN,.22,$G(PSBREC(6)))"
^XMB(3.9,98,2,3293,0)="""RTN"",""PSBML2"",25,0)"
^XMB(3.9,98,2,3294,0)=" .I +$G(RESULTS(0))<0 S RESULTS(1)=""-1^Data NOT filed - ""_$P(RESULTS(0),U,2),RESULTS(0)=1 Q"
^XMB(3.9,98,2,3295,0)="""RTN"",""PSBML2"",26,0)"
^XMB(3.9,98,2,3296,0)=" .D:$D(^PSB(53.79,+PSBEDIEN,.2)) VAL^PSBML(53.79,PSBEDIEN,.21,$G(PSBREC(5))),VAL^PSBML(53.79,PSBEDIEN,.22,$G(PSBREC(6)))"
^XMB(3.9,98,2,3297,0)="""RTN"",""PSBML2"",27,0)"
^XMB(3.9,98,2,3298,0)=" .D VAL^PSBML(53.793,""+2,""_PSBIEN,.01,PSBREC(7))"
^XMB(3.9,98,2,3299,0)="""RTN"",""PSBML2"",28,0)"
^XMB(3.9,98,2,3300,0)=" .D VAL^PSBML(53.793,""+2,""_PSBIEN,.02,""`""_DUZ)"
^XMB(3.9,98,2,3301,0)="""RTN"",""PSBML2"",29,0)"
^XMB(3.9,98,2,3302,0)=" .D VAL^PSBML(53.793,""+2,""_PSBIEN,.03,PSBNOW)"
^XMB(3.9,98,2,3303,0)="""RTN"",""PSBML2"",30,0)"
^XMB(3.9,98,2,3304,0)=" Q:+$G(RESULTS(1))<0"
^XMB(3.9,98,2,3305,0)="""RTN"",""PSBML2"",31,0)"
^XMB(3.9,98,2,3306,0)=" S PSBMODS=$$CHANGE^PSBML3(.PSBREC,PSBEDIEN)"
^XMB(3.9,98,2,3307,0)="""RTN"",""PSBML2"",32,0)"
^XMB(3.9,98,2,3308,0)=" D:PSBMODS UPDATED"
^XMB(3.9,98,2,3309,0)="""RTN"",""PSBML2"",33,0)"
^XMB(3.9,98,2,3310,0)=" D:('$G(PSBERR))&('$G(PSBMODS)) FILEIT^PSBML"
^XMB(3.9,98,2,3311,0)="""RTN"",""PSBML2"",34,0)"
^XMB(3.9,98,2,3312,0)=" ; Audit DD"
^XMB(3.9,98,2,3313,0)="""RTN"",""PSBML2"",35,0)"
^XMB(3.9,98,2,3314,0)=" I $D(PSBORDMD) S (PSBXY,PSBXZ)="""" D"
^XMB(3.9,98,2,3315,0)="""RTN"",""PSBML2"",36,0)"
^XMB(3.9,98,2,3316,0)=" .F  S PSBXY=$O(PSBORDMD(PSBXY)) Q:PSBXY=""""  S PSBFDAX=$S(PSBXY=.6:53.796,PSBXY=.7:53.797,1:53.795) F  S PSBXZ=$O(PSBORDMD(PSBXY,PSBXZ)) Q:PSBXZ=""""  D"
^XMB(3.9,98,2,3317,0)="""RTN"",""PSBML2"",37,0)"
^XMB(3.9,98,2,3318,0)=" ..S PSBXACT="""",PSBXACT=$G(PSBORDMD(PSBXY,PSBXZ,0))"
^XMB(3.9,98,2,3319,0)="""RTN"",""PSBML2"",38,0)"
^XMB(3.9,98,2,3320,0)=" ..D:PSBXACT[""ADD"" AUDIT^PSBUTL(+PSBEDIEN,PSBFDAX,.01,PSBXZ,""S"") D:PSBXACT[""DELETE"" AUDIT^PSBUTL(+PSBEDIEN,PSBFDAX,.01,PSBXZ,""K"")"
^XMB(3.9,98,2,3321,0)="""RTN"",""PSBML2"",39,0)"
^XMB(3.9,98,2,3322,0)=" ;"
^XMB(3.9,98,2,3323,0)="""RTN"",""PSBML2"",40,0)"
^XMB(3.9,98,2,3324,0)=" K PSBORDMD,PSBCHNG,PSBDDX,PSBEDTFL,PSBEDIEN,PSBFILED"
^XMB(3.9,98,2,3325,0)="""RTN"",""PSBML2"",41,0)"
^XMB(3.9,98,2,3326,0)=" Q"
^XMB(3.9,98,2,3327,0)="""RTN"",""PSBML2"",42,0)"
^XMB(3.9,98,2,3328,0)=" ;"
^XMB(3.9,98,2,3329,0)="""RTN"",""PSBML2"",43,0)"
^XMB(3.9,98,2,3330,0)="UPDATED ;"
^XMB(3.9,98,2,3331,0)="""RTN"",""PSBML2"",44,0)"
^XMB(3.9,98,2,3332,0)=" N PSBADD"
^XMB(3.9,98,2,3333,0)="""RTN"",""PSBML2"",45,0)"
^XMB(3.9,98,2,3334,0)=" S PSBIEN=PSBIEN_"","",PSBXPTCH=0"
^XMB(3.9,98,2,3335,0)="""RTN"",""PSBML2"",46,0)"
^XMB(3.9,98,2,3336,0)=" S PSBRECNO=$S(PSBEDTFL:8,1:4)"
^XMB(3.9,98,2,3337,0)="""RTN"",""PSBML2"",47,0)"
^XMB(3.9,98,2,3338,0)=" I ""^G^N^H^R^RM^S^C^I^M^""[(U_PSBREC(0)_U) D"
^XMB(3.9,98,2,3339,0)="""RTN"",""PSBML2"",48,0)"
^XMB(3.9,98,2,3340,0)=" .D:('PSBEDTFL) VAL^PSBML(53.79,PSBIEN,.06,PSBNOW)"
^XMB(3.9,98,2,3341,0)="""RTN"",""PSBML2"",49,0)"
^XMB(3.9,98,2,3342,0)=" .D:$D(PSBREC(4,0)) VAL^PSBML(53.79,PSBIEN,.06,PSBREC(4))"
^XMB(3.9,98,2,3343,0)="""RTN"",""PSBML2"",50,0)"
^XMB(3.9,98,2,3344,0)=" .D VAL^PSBML(53.79,PSBIEN,.07,""`""_DUZ)"
^XMB(3.9,98,2,3345,0)="""RTN"",""PSBML2"",51,0)"
^XMB(3.9,98,2,3346,0)=" .D:('PSBEDTFL)!($G(PSBREC(0,0))) VAL^PSBML(53.79,PSBIEN,.09,PSBREC(0))"
^XMB(3.9,98,2,3347,0)="""RTN"",""PSBML2"",52,0)"
^XMB(3.9,98,2,3348,0)=" .I $G(PSBREC(3))]"""" D VAL^PSBML(53.79,PSBIEN,.26,PSBREC(3))"
^XMB(3.9,98,2,3349,0)="""RTN"",""PSBML2"",53,0)"
^XMB(3.9,98,2,3350,0)=" I $D(PSBREC(PSBRECNO)) D:($G(PSBREC(0))=""G"")&($P(PSBREC(PSBRECNO),U,5)[""PATCH"")  Q:+$G(RESULTS(1))<0"
^XMB(3.9,98,2,3351,0)="""RTN"",""PSBML2"",54,0)"
^XMB(3.9,98,2,3352,0)=" .Q:$$GET1^DIQ(53.79,PSBIEN,.09,""I"")="""""
^XMB(3.9,98,2,3353,0)="""RTN"",""PSBML2"",55,0)"
^XMB(3.9,98,2,3354,0)=" .S PSBXDFN=$$GET1^DIQ(53.79,PSBIEN,.01,""I"")"
^XMB(3.9,98,2,3355,0)="""RTN"",""PSBML2"",56,0)"
^XMB(3.9,98,2,3356,0)=" .S PSBXORN=$$GET1^DIQ(53.79,+PSBIEN,.11,""I"")"
^XMB(3.9,98,2,3357,0)="""RTN"",""PSBML2"",57,0)"
^XMB(3.9,98,2,3358,0)=" .S PSBXDT="""" F  S PSBXDT=$O(^PSB(53.79,""AORDX"",PSBXDFN,PSBXORN,PSBXDT)) Q:PSBXDT=""""  D  Q:+$G(RESULTS(1))<0"
^XMB(3.9,98,2,3359,0)="""RTN"",""PSBML2"",58,0)"
^XMB(3.9,98,2,3360,0)=" ..S PSBYZ="""" F  S PSBYZ=$O(^PSB(53.79,""AORDX"",PSBXDFN,PSBXORN,PSBXDT,PSBYZ)) Q:'PSBYZ  I ($$GET1^DIQ(53.79,PSBYZ,.09,""I"")=""G""),(PSBYZ'=+PSBIEN) S RESULTS(0)=1,RESULTS(1)=""-1^Previous Patch has not been removed. Administration canceled."" Q"
^XMB(3.9,98,2,3361,0)="""RTN"",""PSBML2"",59,0)"
^XMB(3.9,98,2,3362,0)=" D:$G(PSBREC(0))=""N"""
^XMB(3.9,98,2,3363,0)="""RTN"",""PSBML2"",60,0)"
^XMB(3.9,98,2,3364,0)=" .I (PSBREC(0)=""N""),($$GET1^DIQ(53.79,+PSBIEN,.09,""I"")=""G"") S PSBREC(1)=""Undo Given: ""_$G(PSBREC(1))"
^XMB(3.9,98,2,3365,0)="""RTN"",""PSBML2"",61,0)"
^XMB(3.9,98,2,3366,0)=" .I ((PSBREC(0)=""N"")!(PSBREC(0)=""G"")),($$GET1^DIQ(53.79,+PSBIEN,.09,""I"")=""RM"") S PSBREC(1)=""Undo Remove: ""_$G(PSBREC(1))"
^XMB(3.9,98,2,3367,0)="""RTN"",""PSBML2"",62,0)"
^XMB(3.9,98,2,3368,0)=" .; Undo PRN"
^XMB(3.9,98,2,3369,0)="""RTN"",""PSBML2"",63,0)"
^XMB(3.9,98,2,3370,0)=" .I $D(^PSB(53.79,+PSBIEN,.2)) D"
^XMB(3.9,98,2,3371,0)="""RTN"",""PSBML2"",64,0)"
^XMB(3.9,98,2,3372,0)=" ..D:$P(^PSB(53.79,+PSBIEN,.2),U,2)]"""" AUDIT^PSBUTL(+PSBIEN,53.79,.22,$P(^PSB(53.79,+PSBIEN,.2),U,2),""K"")"
^XMB(3.9,98,2,3373,0)="""RTN"",""PSBML2"",65,0)"
^XMB(3.9,98,2,3374,0)=" ..I ($P(^PSB(53.79,+PSBIEN,0),U,9)=""G"")!($P(^PSB(53.79,+PSBIEN,0),U,9)=""I"") K ^PSB(53.79,""APRN"",$P(^PSB(53.79,+PSBIEN,0),U,1),$P(^PSB(53.79,+PSBIEN,0),U,6),+PSBIEN),^PSB(53.79,+PSBIEN,.2)"
^XMB(3.9,98,2,3375,0)="""RTN"",""PSBML2"",66,0)"
^XMB(3.9,98,2,3376,0)=" D:$G(PSBREC(1))]"""""
^XMB(3.9,98,2,3377,0)="""RTN"",""PSBML2"",67,0)"
^XMB(3.9,98,2,3378,0)=" .S:PSBREC(0)=""H"" PSBREC(1)=""Held: ""_PSBREC(1)"
^XMB(3.9,98,2,3379,0)="""RTN"",""PSBML2"",68,0)"
^XMB(3.9,98,2,3380,0)=" .S:PSBREC(0)=""R"" PSBREC(1)=""Refused: ""_PSBREC(1)"
^XMB(3.9,98,2,3381,0)="""RTN"",""PSBML2"",69,0)"
^XMB(3.9,98,2,3382,0)=" .S:PSBREC(0)=""RM"" PSBREC(1)=""Removed: ""_PSBREC(1)"
^XMB(3.9,98,2,3383,0)="""RTN"",""PSBML2"",70,0)"
^XMB(3.9,98,2,3384,0)=" .I $D(PSBFDA(53.793,""+2,""_PSBIEN,.01)) S PSBREC(1)=PSBREC(1)_(PSBFDA(53.793,""+2,""_PSBIEN,.01))"
^XMB(3.9,98,2,3385,0)="""RTN"",""PSBML2"",71,0)"
^XMB(3.9,98,2,3386,0)=" .D VAL^PSBML(53.793,""+2,""_PSBIEN,.01,PSBREC(1)),VAL^PSBML(53.793,""+2,""_PSBIEN,.02,""`""_DUZ),VAL^PSBML(53.793,""+2,""_PSBIEN,.03,PSBNOW)"
^XMB(3.9,98,2,3387,0)="""RTN"",""PSBML2"",72,0)"
^XMB(3.9,98,2,3388,0)=" S PSBXDFN=$$GET1^DIQ(53.79,PSBIEN,.01,""I"")"
^XMB(3.9,98,2,3389,0)="""RTN"",""PSBML2"",73,0)"
^XMB(3.9,98,2,3390,0)=" I ($$GET1^DIQ(53.79,+PSBIEN,.09,""I"")=""RM""),((PSBREC(0)=""N"")!(PSBREC(0)=""G"")) D"
^XMB(3.9,98,2,3391,0)="""RTN"",""PSBML2"",74,0)"
^XMB(3.9,98,2,3392,0)=" .I '(($D(^XUSEC(""PSB MANAGER"",DUZ)))!($$GET1^DIQ(53.79,+PSBIEN,.07,""I"")=DUZ)) S RESULTS(0)=1,RESULTS(1)=""-1^Verify PSB MANAGER allocation"" Q"
^XMB(3.9,98,2,3393,0)="""RTN"",""PSBML2"",75,0)"
^XMB(3.9,98,2,3394,0)=" .S PSBXPTCH=1,PSBYY="""",PSBGIVEN=0 F  S PSBYY=$O(^PSB(53.79,+PSBIEN,.9,PSBYY),-1) Q:'PSBYY  Q:(+$G(RESULTS(0))<0)  Q:PSBGIVEN  S PSBXDAT=$G(^(PSBYY,0))  D"
^XMB(3.9,98,2,3395,0)="""RTN"",""PSBML2"",76,0)"
^XMB(3.9,98,2,3396,0)=" ..I PSBXDAT[""ACTION STATUS 'GIVEN'"" D"
^XMB(3.9,98,2,3397,0)="""RTN"",""PSBML2"",77,0)"
^XMB(3.9,98,2,3398,0)=" ...S PSBXDATE=$P(^PSB(53.79,+PSBIEN,.9,PSBYY,0),U)"
^XMB(3.9,98,2,3399,0)="""RTN"",""PSBML2"",78,0)"
^XMB(3.9,98,2,3400,0)=" ...S PSBXORN=$$GET1^DIQ(53.79,+PSBIEN,.11,""I"")"
^XMB(3.9,98,2,3401,0)="""RTN"",""PSBML2"",79,0)"
^XMB(3.9,98,2,3402,0)=" ...S PSBYX=(PSBYY-2) I (PSBYX)>0 I ^PSB(53.79,+PSBIEN,.9,PSBYX,0)[""ACTION DATE/TIME '"" S PSBXDATE=$P(^PSB(53.79,+PSBIEN,.9,PSBYX,0),""'"",2),X=$P(PSBXDATE,""@""),%DT="""" D ^%DT S PSBXDATE=Y_"".""_$TR($P(PSBXDATE,""@"",2),"":"")"
^XMB(3.9,98,2,3403,0)="""RTN"",""PSBML2"",80,0)"
^XMB(3.9,98,2,3404,0)=" ...S PSBXDT="""" F  S PSBXDT=$O(^PSB(53.79,""AORDX"",PSBXDFN,PSBXORN,PSBXDT)) Q:PSBXDT=""""  D  Q:+$G(RESULTS(1))<0"
^XMB(3.9,98,2,3405,0)="""RTN"",""PSBML2"",81,0)"
^XMB(3.9,98,2,3406,0)=" ....S PSBYZ="""" F  S PSBYZ=$O(^PSB(53.79,""AORDX"",PSBXDFN,PSBXORN,PSBXDT,PSBYZ)) Q:'PSBYZ  I ($$GET1^DIQ(53.79,PSBYZ,.09,""I"")=""G""),(PSBYZ'=+PSBIEN) S RESULTS(0)=1,RESULTS(1)=""-1^Cannot UNDO! Order has GIVEN patch"" Q"
^XMB(3.9,98,2,3407,0)="""RTN"",""PSBML2"",82,0)"
^XMB(3.9,98,2,3408,0)=" ...I '(+$G(RESULTS(1))<0) D  S PSBGIVEN=1"
^XMB(3.9,98,2,3409,0)="""RTN"",""PSBML2"",83,0)"
^XMB(3.9,98,2,3410,0)=" ....D VAL^PSBML(53.79,PSBIEN,.06,PSBXDATE),VAL^PSBML(53.79,PSBIEN,.07,""`""_$P(PSBXDAT,U,2)),VAL^PSBML(53.79,PSBIEN,.09,""G"")"
^XMB(3.9,98,2,3411,0)="""RTN"",""PSBML2"",84,0)"
^XMB(3.9,98,2,3412,0)=" ..D:('(+$G(RESULTS(1))<0))&('PSBGIVEN)&($G(PSBXPTCH))&(PSBYY'>1)"
^XMB(3.9,98,2,3413,0)="""RTN"",""PSBML2"",85,0)"
^XMB(3.9,98,2,3414,0)=" ...S PSBXDATE=$P(^PSB(53.79,+PSBIEN,.9,PSBYY,0),""'"",2),X=$P(PSBXDATE,""@""),%DT="""" D ^%DT S PSBXDATE=Y_"".""_$TR($P(PSBXDATE,""@"",2),"":"")"
^XMB(3.9,98,2,3415,0)="""RTN"",""PSBML2"",86,0)"
^XMB(3.9,98,2,3416,0)=" ...D VAL^PSBML(53.79,PSBIEN,.06,PSBXDATE),VAL^PSBML(53.79,PSBIEN,.07,""`""_$$GET1^DIQ(53.79,+PSBIEN,.07,""I"")),VAL^PSBML(53.79,PSBIEN,.09,""G"") S PSBGIVEN=1"
^XMB(3.9,98,2,3417,0)="""RTN"",""PSBML2"",87,0)"
^XMB(3.9,98,2,3418,0)=" Q:(+$G(RESULTS(1))<0)"
^XMB(3.9,98,2,3419,0)="""RTN"",""PSBML2"",88,0)"
^XMB(3.9,98,2,3420,0)=" I PSBEDTFL,$G(PSBGIVEN),PSBXPTCH S PSBREC(0)=""G"",PSBUNTSG=$P(PSBREC(8),U,4) D VAL^PSBML(53.795,(1_"",""_PSBIEN),.03,$S(PSBUNTSG'=0:PSBUNTSG,1:1)) K PSBXPTCH"
^XMB(3.9,98,2,3421,0)="""RTN"",""PSBML2"",89,0)"
^XMB(3.9,98,2,3422,0)=" I $G(PSBREC(2))]"""" D VAL^PSBML(53.79,PSBIEN,.16,PSBREC(2))"
^XMB(3.9,98,2,3423,0)="""RTN"",""PSBML2"",90,0)"
^XMB(3.9,98,2,3424,0)=" S PSBOLDUZ=$P(^PSB(53.79,+PSBIEN,0),U,7),PSBOLSTS=$P(^PSB(53.79,+PSBIEN,0),U,9)"
^XMB(3.9,98,2,3425,0)="""RTN"",""PSBML2"",91,0)"
^XMB(3.9,98,2,3426,0)=" I $G(PSBREC(PSBRECNO))]"""" D  ; DD/SOL/ADD"
^XMB(3.9,98,2,3427,0)="""RTN"",""PSBML2"",92,0)"
^XMB(3.9,98,2,3428,0)=" .I PSBREC(0)=""G""!(PSBREC(0)=""I"")!(PSBREC(0)=""H"")!(PSBREC(0)=""R"")!(PSBREC(0)=""M"") D  ; Only if gvn or infus"
^XMB(3.9,98,2,3429,0)="""RTN"",""PSBML2"",93,0)"
^XMB(3.9,98,2,3430,0)=" ..Q:(PSBEDTFL)&('$G(PSBCHNG))"
^XMB(3.9,98,2,3431,0)="""RTN"",""PSBML2"",94,0)"
^XMB(3.9,98,2,3432,0)=" ..F PSBCNT=PSBRECNO:1 Q:'$D(PSBREC(PSBCNT))  D"
^XMB(3.9,98,2,3433,0)="""RTN"",""PSBML2"",95,0)"
^XMB(3.9,98,2,3434,0)=" ...S Y=$P(PSBREC(PSBCNT),U)"
^XMB(3.9,98,2,3435,0)="""RTN"",""PSBML2"",96,0)"
^XMB(3.9,98,2,3436,0)=" ...S PSBDD=$S(Y=""DD"":53.795,Y=""ADD"":53.796,Y=""SOL"":53.797,1:0)"
^XMB(3.9,98,2,3437,0)="""RTN"",""PSBML2"",97,0)"
^XMB(3.9,98,2,3438,0)=" ...Q:'PSBDD"
^XMB(3.9,98,2,3439,0)="""RTN"",""PSBML2"",98,0)"
^XMB(3.9,98,2,3440,0)=" ...I $G(PSBCHNG) D"
^XMB(3.9,98,2,3441,0)="""RTN"",""PSBML2"",99,0)"
^XMB(3.9,98,2,3442,0)=" ....I $D(PSBFIND(PSBCNT)) S PSBIENS=$QS($Q(PSBFIND(PSBCNT)),2)_"",""_PSBIEN"
^XMB(3.9,98,2,3443,0)="""RTN"",""PSBML2"",100,0)"
^XMB(3.9,98,2,3444,0)=" ....I '$D(PSBFIND(PSBCNT)) S PSBIENS=""+1,""_PSBIEN"
^XMB(3.9,98,2,3445,0)="""RTN"",""PSBML2"",101,0)"
^XMB(3.9,98,2,3446,0)=" ....D VAL^PSBML(PSBDD,PSBIENS,.01,""`""_$P(PSBREC(PSBCNT),U,2))"
^XMB(3.9,98,2,3447,0)="""RTN"",""PSBML2"",102,0)"
^XMB(3.9,98,2,3448,0)=" ....D VAL^PSBML(PSBDD,PSBIENS,.02,$P(PSBREC(PSBCNT),U,3))"
^XMB(3.9,98,2,3449,0)="""RTN"",""PSBML2"",103,0)"
^XMB(3.9,98,2,3450,0)=" ....D VAL^PSBML(PSBDD,PSBIENS,.03,$P(PSBREC(PSBCNT),U,4))"
^XMB(3.9,98,2,3451,0)="""RTN"",""PSBML2"",104,0)"
^XMB(3.9,98,2,3452,0)=" ....D:Y=""DD"" VAL^PSBML(PSBDD,PSBIENS,.04,$P(PSBREC(PSBCNT),U,5))"
^XMB(3.9,98,2,3453,0)="""RTN"",""PSBML2"",105,0)"
^XMB(3.9,98,2,3454,0)=" .I ('PSBEDTFL)!((PSBREC(0)'=""G"")&($$GET1^DIQ(53.79,PSBIEN,.09,""I"")=""G"")) D"
^XMB(3.9,98,2,3455,0)="""RTN"",""PSBML2"",106,0)"
^XMB(3.9,98,2,3456,0)=" ..S (PSBDCNT,PSBACNT,PSBSCNT)=0,PSBADD=3 F PSBCNT=PSBRECNO:1 Q:'$D(PSBREC(PSBCNT))  D"
^XMB(3.9,98,2,3457,0)="""RTN"",""PSBML2"",107,0)"
^XMB(3.9,98,2,3458,0)=" ...S Y=$P(PSBREC(PSBCNT),U)"
^XMB(3.9,98,2,3459,0)="""RTN"",""PSBML2"",108,0)"
^XMB(3.9,98,2,3460,0)=" ...S PSBDD=$S(Y=""DD"":53.795,Y=""ADD"":53.796,Y=""SOL"":53.797,1:0)"
^XMB(3.9,98,2,3461,0)="""RTN"",""PSBML2"",109,0)"
^XMB(3.9,98,2,3462,0)=" ...Q:'PSBDD"
^XMB(3.9,98,2,3463,0)="""RTN"",""PSBML2"",110,0)"
^XMB(3.9,98,2,3464,0)=" ...S @(""PSB""_$E(Y)_""CNT"")=@(""PSB""_$E(Y)_""CNT"")+1"
^XMB(3.9,98,2,3465,0)="""RTN"",""PSBML2"",111,0)"
^XMB(3.9,98,2,3466,0)=" ...S PSBIENS=(@(""PSB""_$E(Y)_""CNT""))_"",""_PSBIEN"
^XMB(3.9,98,2,3467,0)="""RTN"",""PSBML2"",112,0)"
^XMB(3.9,98,2,3468,0)=" ...I '$$GET1^DIQ(PSBDD,PSBIENS,.01,""I"") S PSBIENS=""+""_PSBADD_"",""_PSBIEN,PSBADD=PSBADD+1"
^XMB(3.9,98,2,3469,0)="""RTN"",""PSBML2"",113,0)"
^XMB(3.9,98,2,3470,0)=" ...D VAL^PSBML(PSBDD,PSBIENS,.01,""`""_$P(PSBREC(PSBCNT),U,2))"
^XMB(3.9,98,2,3471,0)="""RTN"",""PSBML2"",114,0)"
^XMB(3.9,98,2,3472,0)=" ...D VAL^PSBML(PSBDD,PSBIENS,.02,$P(PSBREC(PSBCNT),U,3))"
^XMB(3.9,98,2,3473,0)="""RTN"",""PSBML2"",115,0)"
^XMB(3.9,98,2,3474,0)=" ...D:Y=""DD"" VAL^PSBML(PSBDD,PSBIENS,.03,$S(PSBREC(0)=""G""!(PSBREC(0)=""RM""):$P(PSBREC(PSBCNT),U,4),1:0)),VAL^PSBML(PSBDD,PSBIENS,.04,$P(PSBREC(PSBCNT),U,5))"
^XMB(3.9,98,2,3475,0)="""RTN"",""PSBML2"",116,0)"
^XMB(3.9,98,2,3476,0)=" I ($G(PSBREC(PSBRECNO))']""""),(PSBREC(0)=""N""),($$GET1^DIQ(53.79,PSBIEN,.09,""I"")=""G"") D"
^XMB(3.9,98,2,3477,0)="""RTN"",""PSBML2"",117,0)"
^XMB(3.9,98,2,3478,0)=" .S PSBX=0 F  S PSBX=$O(^PSB(53.79,+PSBIEN,.5,PSBX)) Q:'+PSBX  D VAL^PSBML(53.795,(PSBX_"",""_PSBIEN),.03,0)"
^XMB(3.9,98,2,3479,0)="""RTN"",""PSBML2"",118,0)"
^XMB(3.9,98,2,3480,0)=" D FILEIT^PSBML"
^XMB(3.9,98,2,3481,0)="""RTN"",""PSBML2"",119,0)"
^XMB(3.9,98,2,3482,0)=" I $P($G(RESULTS(1)),U,1)=1 D"
^XMB(3.9,98,2,3483,0)="""RTN"",""PSBML2"",120,0)"
^XMB(3.9,98,2,3484,0)=" .S PSBUID=$P(^PSB(53.79,+PSBIEN,0),U,10) I PSBUID]"""",PSBUID'[""WS"" D"
^XMB(3.9,98,2,3485,0)="""RTN"",""PSBML2"",121,0)"
^XMB(3.9,98,2,3486,0)=" ..S PSBTS=PSBREC(0)"
^XMB(3.9,98,2,3487,0)="""RTN"",""PSBML2"",122,0)"
^XMB(3.9,98,2,3488,0)=" ..S PSBON=$P(^PSB(53.79,+PSBIEN,.1),U,1)"
^XMB(3.9,98,2,3489,0)="""RTN"",""PSBML2"",123,0)"
^XMB(3.9,98,2,3490,0)=" ..S PSBDFN=$P(^PSB(53.79,+PSBIEN,0),U,1)"
^XMB(3.9,98,2,3491,0)="""RTN"",""PSBML2"",124,0)"
^XMB(3.9,98,2,3492,0)=" ..I PSBREC(0)=""N"" S PSBTS="""" D"
^XMB(3.9,98,2,3493,0)="""RTN"",""PSBML2"",125,0)"
^XMB(3.9,98,2,3494,0)=" ...M PSBAR=^PSB(53.79,+PSBIEN,.9)"
^XMB(3.9,98,2,3495,0)="""RTN"",""PSBML2"",126,0)"
^XMB(3.9,98,2,3496,0)=" ...S (PSBDN,X)="""" F  S X=$O(PSBAR(X),-1) Q:X=0!(PSBDN=1)  D"
^XMB(3.9,98,2,3497,0)="""RTN"",""PSBML2"",127,0)"
^XMB(3.9,98,2,3498,0)=" ....I PSBAR(X,0)[""ACTION STATUS"",PSBAR(X,0)[""deleted"",PSBAR(X,0)'[""GIVEN"" D"
^XMB(3.9,98,2,3499,0)="""RTN"",""PSBML2"",128,0)"
^XMB(3.9,98,2,3500,0)=" .....S PSBTS=$P($P(PSBAR(X,0),""'"",2),""'"",1)"
^XMB(3.9,98,2,3501,0)="""RTN"",""PSBML2"",129,0)"
^XMB(3.9,98,2,3502,0)=" .....S PSBTS=$S(PSBTS=""HELD"":""H"",PSBTS=""REFUSED"":""R"",PSBTS=""REMOVED"":""RM"",PSBTS=""MISSING"":""M"",1:""""),PSBDN=1"
^XMB(3.9,98,2,3503,0)="""RTN"",""PSBML2"",130,0)"
^XMB(3.9,98,2,3504,0)=" ...D VAL^PSBML(53.79,PSBIEN,.26,"""") D CLEAN^DILF,UPDATE^DIE("""",""PSBFDA"",""PSBIEN"",""PSBMSG"")"
^XMB(3.9,98,2,3505,0)="""RTN"",""PSBML2"",131,0)"
^XMB(3.9,98,2,3506,0)=" ..D EN^PSJBCMA3(PSBDFN,+PSBON,PSBUID,PSBTS,PSBNOW)"
^XMB(3.9,98,2,3507,0)="""RTN"",""PSBML2"",132,0)"
^XMB(3.9,98,2,3508,0)=" I ($$GET1^DIQ(53.79,+PSBIEN,.12,""I"")=""O"")&($$GET1^DIQ(53.79,+PSBIEN,.09,""I"")=""N"") S PSBDFN=$$GET1^DIQ(53.79,+PSBIEN,.01,""I"") D ENR^PSJBCMA4(PSBDFN,$$GET1^DIQ(53.79,+PSBIEN,.11))"
^XMB(3.9,98,2,3509,0)="""RTN"",""PSBML2"",133,0)"
^XMB(3.9,98,2,3510,0)=" I ($$GET1^DIQ(53.79,+PSBIEN,.12,""I"")=""O"")&($$GET1^DIQ(53.79,+PSBIEN,.09,""I"")=""G"") S PSBDFN=$$GET1^DIQ(53.79,+PSBIEN,.01,""I"") D ENE^PSJBCMA4(PSBDFN,$$GET1^DIQ(53.79,+PSBIEN,.11))"
^XMB(3.9,98,2,3511,0)="""RTN"",""PSBML2"",134,0)"
^XMB(3.9,98,2,3512,0)=" I (PSBREC(0)=""N"")&($$GET1^DIQ(53.79,+PSBIEN,.09,""I"")=""N"") D NGRESET^PSBML3(.PSBREC,PSBIEN)"
^XMB(3.9,98,2,3513,0)="""RTN"",""PSBML2"",135,0)"
^XMB(3.9,98,2,3514,0)=" Q"
^XMB(3.9,98,2,3515,0)="""RTN"",""PSBML2"",136,0)"
^XMB(3.9,98,2,3516,0)=" ;"
^XMB(3.9,98,2,3517,0)="""RTN"",""PSBML3"")"
^XMB(3.9,98,2,3518,0)="0^25^B40505286^B28789738"
^XMB(3.9,98,2,3519,0)="""RTN"",""PSBML3"",1,0)"
^XMB(3.9,98,2,3520,0)="PSBML3 ;BIRMINGHAM/TEJ-BCMA UTILITY TO EDIT THE PSB MED LOG  ;Mar 2004"
^XMB(3.9,98,2,3521,0)="""RTN"",""PSBML3"",2,0)"
^XMB(3.9,98,2,3522,0)=" ;;3.0;BAR CODE MED ADMIN;**3,13**;Mar 2004"
^XMB(3.9,98,2,3523,0)="""RTN"",""PSBML3"",3,0)"
^XMB(3.9,98,2,3524,0)=" ;"
^XMB(3.9,98,2,3525,0)="""RTN"",""PSBML3"",4,0)"
^XMB(3.9,98,2,3526,0)=" ; Reference/IA"
^XMB(3.9,98,2,3527,0)="""RTN"",""PSBML3"",5,0)"
^XMB(3.9,98,2,3528,0)=" ; $$GET1^DIQ/2056"
^XMB(3.9,98,2,3529,0)="""RTN"",""PSBML3"",6,0)"
^XMB(3.9,98,2,3530,0)=" ;"
^XMB(3.9,98,2,3531,0)="""RTN"",""PSBML3"",7,0)"
^XMB(3.9,98,2,3532,0)="APATCH ; Maintain ""APATCH"" index..."
^XMB(3.9,98,2,3533,0)="""RTN"",""PSBML3"",8,0)"
^XMB(3.9,98,2,3534,0)=" I $G(PSBTRAN)[""MEDPASS"" D:$P(PSBREC(9),U)=""UDTAB""  Q"
^XMB(3.9,98,2,3535,0)="""RTN"",""PSBML3"",9,0)"
^XMB(3.9,98,2,3536,0)=" .S PSBX1=9,PSBQUT=0 F  S PSBX1=$O(PSBREC(PSBX1))  Q:PSBQUT  Q:'(+PSBX1)  D:$P(PSBREC(PSBX1),U)=""DD""&($P(PSBREC(PSBX1),U,5)=""PATCH"")  Q:PSBQUT"
^XMB(3.9,98,2,3537,0)="""RTN"",""PSBML3"",10,0)"
^XMB(3.9,98,2,3538,0)=" ..I $G(PSBOLSTS)="""",PSBREC(3)=""G"" S PSB1=""I $D(PSBIEN(1)) S ^PSB(53.79,""""APATCH"""",""_$G(PSBREC(0))_"",""_$G(PSBNOW)_"",+PSBIEN(1))="""""""""""
^XMB(3.9,98,2,3539,0)="""RTN"",""PSBML3"",11,0)"
^XMB(3.9,98,2,3540,0)=" ..S PSBQUT=1"
^XMB(3.9,98,2,3541,0)="""RTN"",""PSBML3"",12,0)"
^XMB(3.9,98,2,3542,0)=" S PSBX1=0 F  S PSBX1=$O(^PSB(53.79,+PSBIEN,.5,PSBX1)) Q:'(+PSBX1)  Q"
^XMB(3.9,98,2,3543,0)="""RTN"",""PSBML3"",13,0)"
^XMB(3.9,98,2,3544,0)=" I $G(PSBTRAN)[""UPDATE"",(+PSBX1)'=0 D"
^XMB(3.9,98,2,3545,0)="""RTN"",""PSBML3"",14,0)"
^XMB(3.9,98,2,3546,0)=" .S PSBX3=0 F  S PSBX3=$O(^PSB(53.79,+PSBIEN,.5,PSBX3)) Q:+PSBX3=0  I $P(^PSB(53.79,+PSBIEN,.5,PSBX3,0),U,4)=""PATCH"" D"
^XMB(3.9,98,2,3547,0)="""RTN"",""PSBML3"",15,0)"
^XMB(3.9,98,2,3548,0)=" ..I PSBOLSTS=""G"",PSBREC(0)=""N"" S PSB1=""K ^PSB(53.79,""""APATCH"""",""_$P(^PSB(53.79,+PSBIEN,0),U)_"",""_$P(^PSB(53.79,+PSBIEN,0),U,6)_"",""_+PSBIEN_"")"""
^XMB(3.9,98,2,3549,0)="""RTN"",""PSBML3"",16,0)"
^XMB(3.9,98,2,3550,0)=" ..I PSBFDA(53.79,+PSBIEN_"","",.09)=""G"" S PSB1=""S ^PSB(53.79,""""APATCH"""",""_$P(^PSB(53.79,+PSBIEN,0),U)_"",""_$G(PSBFDA(53.79,+PSBIEN_"","",.06))_"",""_+PSBIEN_"")""_""="""""""""""
^XMB(3.9,98,2,3551,0)="""RTN"",""PSBML3"",17,0)"
^XMB(3.9,98,2,3552,0)=" I $G(PSBTRAN)[""EDIT"",(+PSBX1)'=0 D"
^XMB(3.9,98,2,3553,0)="""RTN"",""PSBML3"",18,0)"
^XMB(3.9,98,2,3554,0)=" .S PSBX3=0 F  S PSBX3=$O(^PSB(53.79,+PSBIEN,.5,PSBX3)) Q:+PSBX3=0  I $P(^PSB(53.79,+PSBIEN,.5,PSBX3,0),U,4)=""PATCH"",((PSBREC(0)=""G"")!(PSBREC(0)=""RM"")) D"
^XMB(3.9,98,2,3555,0)="""RTN"",""PSBML3"",19,0)"
^XMB(3.9,98,2,3556,0)=" ..S PSB1=""S ^PSB(53.79,""""APATCH"""",""_$P(^PSB(53.79,+PSBIEN,0),U)_"",""_$G(PSBFDA(53.79,+PSBIEN_"","",.06))_"",""_+PSBIEN_"")""_""="""""""""""
^XMB(3.9,98,2,3557,0)="""RTN"",""PSBML3"",20,0)"
^XMB(3.9,98,2,3558,0)=" ..I $D(PSBREC(4,0)) S PSB2=""K ^PSB(53.79,""""APATCH"""",""_$P(^PSB(53.79,+PSBIEN,0),U)_"",""_$G(PSBREC(4,0))_"",""_+PSBIEN_"")"""
^XMB(3.9,98,2,3559,0)="""RTN"",""PSBML3"",21,0)"
^XMB(3.9,98,2,3560,0)=" Q"
^XMB(3.9,98,2,3561,0)="""RTN"",""PSBML3"",22,0)"
^XMB(3.9,98,2,3562,0)=" ;"
^XMB(3.9,98,2,3563,0)="""RTN"",""PSBML3"",23,0)"
^XMB(3.9,98,2,3564,0)="CHANGE(PSBREC,PSBEDIEN) ;Determine an order edit"
^XMB(3.9,98,2,3565,0)="""RTN"",""PSBML3"",24,0)"
^XMB(3.9,98,2,3566,0)=" S PSBCHNG=0"
^XMB(3.9,98,2,3567,0)="""RTN"",""PSBML3"",25,0)"
^XMB(3.9,98,2,3568,0)=" K PSBORDMD,PSBDDX"
^XMB(3.9,98,2,3569,0)="""RTN"",""PSBML3"",26,0)"
^XMB(3.9,98,2,3570,0)=" I PSBREC(0)'=$$GET1^DIQ(53.79,PSBEDIEN,.09,""I"") S PSBREC(0,0)=1,PSBCHNG=1"
^XMB(3.9,98,2,3571,0)="""RTN"",""PSBML3"",27,0)"
^XMB(3.9,98,2,3572,0)=" I PSBREC(2)'=$$GET1^DIQ(53.79,PSBEDIEN,.16,""I"") S PSBREC(2,0)=1,PSBCHNG=1"
^XMB(3.9,98,2,3573,0)="""RTN"",""PSBML3"",28,0)"
^XMB(3.9,98,2,3574,0)=" I PSBREC(4)'=$$GET1^DIQ(53.79,PSBEDIEN,.06,""I"") S PSBREC(4,0)=$$GET1^DIQ(53.79,PSBEDIEN,.06,""I""),PSBCHNG=1"
^XMB(3.9,98,2,3575,0)="""RTN"",""PSBML3"",29,0)"
^XMB(3.9,98,2,3576,0)=" I PSBREC(5)'=$$GET1^DIQ(53.79,PSBEDIEN,.21) S PSBREC(5,0)=1,PSBCHNG=1"
^XMB(3.9,98,2,3577,0)="""RTN"",""PSBML3"",30,0)"
^XMB(3.9,98,2,3578,0)=" I PSBREC(6)'=$$GET1^DIQ(53.79,PSBEDIEN,.22) S PSBREC(6,0)=1,PSBCHNG=1"
^XMB(3.9,98,2,3579,0)="""RTN"",""PSBML3"",31,0)"
^XMB(3.9,98,2,3580,0)=" K PSBFIND,PSBFOUN,PSBREC2"
^XMB(3.9,98,2,3581,0)="""RTN"",""PSBML3"",32,0)"
^XMB(3.9,98,2,3582,0)=" F PSBRECNX=8:1 Q:'$D(PSBREC(PSBRECNX))  S PSBDPTR=$P(PSBREC(PSBRECNX),U,2),PSBORDMD(PSBRECNX,PSBDPTR,0)=""ADDED"""
^XMB(3.9,98,2,3583,0)="""RTN"",""PSBML3"",33,0)"
^XMB(3.9,98,2,3584,0)=" F PSBDDX=.5,.6,.7 D:$D(^PSB(53.79,+PSBEDIEN,PSBDDX,""B""))"
^XMB(3.9,98,2,3585,0)="""RTN"",""PSBML3"",34,0)"
^XMB(3.9,98,2,3586,0)=" .S PSBDPTR="""" F  S PSBDPTR=$O(^PSB(53.79,+PSBEDIEN,PSBDDX,""B"",PSBDPTR)) Q:+PSBDPTR'>0  D"
^XMB(3.9,98,2,3587,0)="""RTN"",""PSBML3"",35,0)"
^XMB(3.9,98,2,3588,0)=" ..S PSBXX=0 F  S PSBXX=$O(^PSB(53.79,+PSBEDIEN,PSBDDX,""B"",PSBDPTR,PSBXX)) Q:+PSBXX'>0  D  Q:'$$FINDDD^PSBML3(PSBDDX,PSBDPTR)"
^XMB(3.9,98,2,3589,0)="""RTN"",""PSBML3"",36,0)"
^XMB(3.9,98,2,3590,0)=" ...I '$D(PSBFOUN(PSBDDX,PSBXX)) F PSBRECNX=8:1 Q:'$D(PSBREC(PSBRECNX))  D:$D(PSBORDMD(PSBRECNX))  Q:$D(PSBFOUN(PSBDDX,PSBXX))"
^XMB(3.9,98,2,3591,0)="""RTN"",""PSBML3"",37,0)"
^XMB(3.9,98,2,3592,0)=" ....S PSBDFDA=$P(PSBREC(PSBRECNX),U) Q:$S(PSBDFDA=""DD"":.5,PSBDFDA=""ADD"":.6,PSBDFDA=""SOL"":.7)'=PSBDDX"
^XMB(3.9,98,2,3593,0)="""RTN"",""PSBML3"",38,0)"
^XMB(3.9,98,2,3594,0)=" ....S PSBDATAX=PSBDFDA_""^""_$G(^PSB(53.79,+PSBEDIEN,PSBDDX,PSBXX,0))_$S(PSBDDX'=.5:""^"",1:"""")"
^XMB(3.9,98,2,3595,0)="""RTN"",""PSBML3"",39,0)"
^XMB(3.9,98,2,3596,0)=" ....I PSBDATAX[PSBREC(PSBRECNX) K PSBORDMD(PSBRECNX),PSBREC2(PSBRECNX) S (PSBFIND(PSBRECNX,PSBXX),PSBFOUN(PSBDDX,PSBXX))=1 Q"
^XMB(3.9,98,2,3597,0)="""RTN"",""PSBML3"",40,0)"
^XMB(3.9,98,2,3598,0)=" ....S PSBUNTOR=$P(PSBDATAX,U,3),PSBUNTGN=$P(PSBDATAX,U,4),PSBUNTAD=$P(PSBDATAX,U,5)"
^XMB(3.9,98,2,3599,0)="""RTN"",""PSBML3"",41,0)"
^XMB(3.9,98,2,3600,0)=" ....I PSBREC(PSBRECNX)[(PSBDFDA_""^""_PSBDPTR_""^""_PSBUNTOR_""^"") S PSBREC2(PSBRECNX)=PSBREC(PSBRECNX)"
^XMB(3.9,98,2,3601,0)="""RTN"",""PSBML3"",42,0)"
^XMB(3.9,98,2,3602,0)=" D:$D(PSBREC2)"
^XMB(3.9,98,2,3603,0)="""RTN"",""PSBML3"",43,0)"
^XMB(3.9,98,2,3604,0)=" .F PSBDDX=.5,.6,.7 D:$D(^PSB(53.79,+PSBEDIEN,PSBDDX,""B""))"
^XMB(3.9,98,2,3605,0)="""RTN"",""PSBML3"",44,0)"
^XMB(3.9,98,2,3606,0)=" ..S PSBDPTR="""" F  S PSBDPTR=$O(^PSB(53.79,+PSBEDIEN,PSBDDX,""B"",PSBDPTR)) Q:+PSBDPTR'>0  D"
^XMB(3.9,98,2,3607,0)="""RTN"",""PSBML3"",45,0)"
^XMB(3.9,98,2,3608,0)=" ...S PSBXX=0 F  S PSBXX=$O(^PSB(53.79,+PSBEDIEN,PSBDDX,""B"",PSBDPTR,PSBXX)) Q:+PSBXX'>0  D"
^XMB(3.9,98,2,3609,0)="""RTN"",""PSBML3"",46,0)"
^XMB(3.9,98,2,3610,0)=" ....S PSBREC2X=0 F  S PSBREC2X=$O(PSBREC2(PSBREC2X)) Q:PSBREC2X=""""  D  Q:$G(PSBFOUN(PSBDDX,PSBXX))"
^XMB(3.9,98,2,3611,0)="""RTN"",""PSBML3"",47,0)"
^XMB(3.9,98,2,3612,0)=" .....S PSBDFDA=$P(PSBREC(PSBREC2X),U) Q:$S(PSBDFDA=""DD"":.5,PSBDFDA=""ADD"":.6,PSBDFDA=""SOL"":.7)'=PSBDDX"
^XMB(3.9,98,2,3613,0)="""RTN"",""PSBML3"",48,0)"
^XMB(3.9,98,2,3614,0)=" .....S PSBDATAX=PSBDFDA_""^""_$G(^PSB(53.79,+PSBEDIEN,PSBDDX,PSBXX,0))"
^XMB(3.9,98,2,3615,0)="""RTN"",""PSBML3"",49,0)"
^XMB(3.9,98,2,3616,0)=" .....I PSBDATAX[PSBREC(PSBREC2X) K PSBREC2(PSBREC2X),PSBORDMD(PSBREC2X) S (PSBFIND(PSBREC2X,PSBXX),PSBFOUN(PSBDDX,PSBXX))=1 Q"
^XMB(3.9,98,2,3617,0)="""RTN"",""PSBML3"",50,0)"
^XMB(3.9,98,2,3618,0)=" .....S PSBUNTOR=$P(PSBDATAX,U,3),PSBUNTGN=$P(PSBDATAX,U,4),PSBUNTAD=$P(PSBDATAX,U,5)"
^XMB(3.9,98,2,3619,0)="""RTN"",""PSBML3"",51,0)"
^XMB(3.9,98,2,3620,0)=" .....I PSBREC2(PSBREC2X)[(PSBDFDA_""^""_PSBDPTR_""^""_PSBUNTOR_""^"") I '$D(PSBFOUN(PSBDDX,PSBXX)) S (PSBCHNG,PSBFIND(PSBREC2X,PSBXX),PSBFOUN(PSBDDX,PSBXX))=1 D  Q"
^XMB(3.9,98,2,3621,0)="""RTN"",""PSBML3"",52,0)"
^XMB(3.9,98,2,3622,0)=" ......N PSBY,Y F Y=4,5 S PSBY=$P(PSBREC2(PSBREC2X),U,Y) S:PSBY'=$S(Y=4:PSBUNTGN,Y=5:PSBUNTAD) PSBORDMD(PSBREC2X,PSBDPTR,0)="""""
^XMB(3.9,98,2,3623,0)="""RTN"",""PSBML3"",53,0)"
^XMB(3.9,98,2,3624,0)=" ; Modify FDA per Deleted DDs"
^XMB(3.9,98,2,3625,0)="""RTN"",""PSBML3"",54,0)"
^XMB(3.9,98,2,3626,0)=" ;"
^XMB(3.9,98,2,3627,0)="""RTN"",""PSBML3"",55,0)"
^XMB(3.9,98,2,3628,0)=" F PSBX=.5,.6,.7 S PSBXX="""" F  Q:'$D(PSBORDMD(PSBX))  S PSBXX=$O(PSBORDMD(PSBX,PSBXX)) Q:$G(PSBXX)=""""  D:PSBORDMD(PSBX,PSBXX,0)[""DELETE"""
^XMB(3.9,98,2,3629,0)="""RTN"",""PSBML3"",56,0)"
^XMB(3.9,98,2,3630,0)=" .S PSBDDX=$S(PSBX=.5:53.795,PSBX=.6:53.796,1:53.797)"
^XMB(3.9,98,2,3631,0)="""RTN"",""PSBML3"",57,0)"
^XMB(3.9,98,2,3632,0)=" .S PSBIENX=""^PSB(53.79,""_($G(PSBEDIEN))_($G(PSBX))_"",""""B"""",""_PSBXX_"")"""
^XMB(3.9,98,2,3633,0)="""RTN"",""PSBML3"",58,0)"
^XMB(3.9,98,2,3634,0)=" .S PSBIENX=$Q(@PSBIENX),PSBIENX=$QS(PSBIENX,6)_"",""_(+PSBEDIEN)"
^XMB(3.9,98,2,3635,0)="""RTN"",""PSBML3"",59,0)"
^XMB(3.9,98,2,3636,0)=" .D:'$D(PSBFOUN(PSBDDX,+PSBIENX)) VAL^PSBML(PSBDDX,PSBIENX,.01,""""),VAL^PSBML(PSBDDX,PSBIENX,.02,""""),VAL^PSBML(PSBDDX,PSBIENX,.03,""""),VAL^PSBML(PSBDDX,PSBIENX,.04,"""")"
^XMB(3.9,98,2,3637,0)="""RTN"",""PSBML3"",60,0)"
^XMB(3.9,98,2,3638,0)=" ;"
^XMB(3.9,98,2,3639,0)="""RTN"",""PSBML3"",61,0)"
^XMB(3.9,98,2,3640,0)=" S:$D(PSBORDMD) PSBCHNG=1 K PSBREC2"
^XMB(3.9,98,2,3641,0)="""RTN"",""PSBML3"",62,0)"
^XMB(3.9,98,2,3642,0)=" Q PSBCHNG"
^XMB(3.9,98,2,3643,0)="""RTN"",""PSBML3"",63,0)"
^XMB(3.9,98,2,3644,0)=" ;"
^XMB(3.9,98,2,3645,0)="""RTN"",""PSBML3"",64,0)"
^XMB(3.9,98,2,3646,0)="NGRESET(PSBREC,PSBREIEN) ;"
^XMB(3.9,98,2,3647,0)="""RTN"",""PSBML3"",65,0)"
^XMB(3.9,98,2,3648,0)=" ;"
^XMB(3.9,98,2,3649,0)="""RTN"",""PSBML3"",66,0)"
^XMB(3.9,98,2,3650,0)=" ; Acknowledged ""UNDO"" - reinstate previous status and state..."
^XMB(3.9,98,2,3651,0)="""RTN"",""PSBML3"",67,0)"
^XMB(3.9,98,2,3652,0)=" ;"
^XMB(3.9,98,2,3653,0)="""RTN"",""PSBML3"",68,0)"
^XMB(3.9,98,2,3654,0)=" I (PSBREC(0)=""N"")&($$GET1^DIQ(53.79,PSBREIEN,.09,""I"")=""N"") D  I '$D(PSBQUITX)  S PSBREINT=$$GET1^DIQ(53.79,PSBREIEN,.05,""I"")"
^XMB(3.9,98,2,3655,0)="""RTN"",""PSBML3"",69,0)"
^XMB(3.9,98,2,3656,0)=" .S PSBRESET=""NOT GIVEN"",PSBX=""B"" K PSBQUITX,PSBREXDT,PSBREINT F  S PSBX=$O(^PSB(53.79,+PSBREIEN,.9,PSBX),-1) Q:PSBX'>0  D  Q:($G(PSBQUITX))!(PSBX'>0)"
^XMB(3.9,98,2,3657,0)="""RTN"",""PSBML3"",70,0)"
^XMB(3.9,98,2,3658,0)=" ..I (^PSB(53.79,+PSBREIEN,.9,PSBX,0)'[""ACTION STATUS Set to"") Q"
^XMB(3.9,98,2,3659,0)="""RTN"",""PSBML3"",71,0)"
^XMB(3.9,98,2,3660,0)=" ..I $P(^PSB(53.79,+PSBREIEN,.9,PSBX,0),U,4)=PSBRESET D  Q:$G(PSBQUITX)  Q:PSBX'>0"
^XMB(3.9,98,2,3661,0)="""RTN"",""PSBML3"",72,0)"
^XMB(3.9,98,2,3662,0)=" ...S PSBREXDT=$P(^PSB(53.79,+PSBREIEN,.9,PSBX,0),U)"
^XMB(3.9,98,2,3663,0)="""RTN"",""PSBML3"",73,0)"
^XMB(3.9,98,2,3664,0)=" ...F  S PSBX=$O(^PSB(53.79,+PSBREIEN,.9,PSBX),-1) Q:PSBX'>0  D  Q:$G(PSBQUITX)"
^XMB(3.9,98,2,3665,0)="""RTN"",""PSBML3"",74,0)"
^XMB(3.9,98,2,3666,0)=" ....I (^PSB(53.79,+PSBREIEN,.9,PSBX,0)'[""ACTION STATUS"")!(^PSB(53.79,+PSBREIEN,.9,PSBX,0)'[""deleted"") Q"
^XMB(3.9,98,2,3667,0)="""RTN"",""PSBML3"",75,0)"
^XMB(3.9,98,2,3668,0)=" ....I $P(^PSB(53.79,+PSBREIEN,.9,PSBX,0),""'"",2)'=""GIVEN"" Q "
^XMB(3.9,98,2,3669,0)="""RTN"",""PSBML3"",76,0)"
^XMB(3.9,98,2,3670,0)=" ....F  S PSBX=$O(^PSB(53.79,+PSBREIEN,.9,PSBX),-1) Q:(PSBX'>0)!($G(PSBQUITX))  D  Q:$G(PSBQUIT)"
^XMB(3.9,98,2,3671,0)="""RTN"",""PSBML3"",77,0)"
^XMB(3.9,98,2,3672,0)=" .....I (^PSB(53.79,+PSBREIEN,.9,PSBX,0)'[""ACTION STATUS "")!(^PSB(53.79,+PSBREIEN,.9,PSBX,0)'[""deleted"") Q"
^XMB(3.9,98,2,3673,0)="""RTN"",""PSBML3"",78,0)"
^XMB(3.9,98,2,3674,0)=" .....S PSBRESET=$P(^PSB(53.79,+PSBREIEN,.9,PSBX,0),""'"",2) I (PSBRESET=""GIVEN"")!(PSBRESET=""REMOVED"") Q"
^XMB(3.9,98,2,3675,0)="""RTN"",""PSBML3"",79,0)"
^XMB(3.9,98,2,3676,0)=" .....S PSBREXDT=$$GET1^DIQ(53.79,PSBREIEN,.04,""I""),PSBX=PSBX-2 I '$D(^PSB(53.79,+PSBREIEN,.9,PSBX,0)) S PSBQUIT=1 Q"
^XMB(3.9,98,2,3677,0)="""RTN"",""PSBML3"",80,0)"
^XMB(3.9,98,2,3678,0)=" .....I (^PSB(53.79,+PSBREIEN,.9,PSBX,0)'[""ACTION DATE/TIME"")!(^PSB(53.79,+PSBREIEN,.9,PSBX,0)'[""deleted"") S PSBQUIT=1 Q"
^XMB(3.9,98,2,3679,0)="""RTN"",""PSBML3"",81,0)"
^XMB(3.9,98,2,3680,0)=" .....S PSBREXDT=$P(^PSB(53.79,+PSBREIEN,.9,PSBX,0),""'"",2),X=$P(PSBREXDT,""@""),%DT="""" D ^%DT S PSBREXDT=Y_"".""_$TR($P(PSBREXDT,""@"",2),"":""),PSBQUIT=1"
^XMB(3.9,98,2,3681,0)="""RTN"",""PSBML3"",82,0)"
^XMB(3.9,98,2,3682,0)=" I $D(PSBREINT),$D(PSBREXDT),($D(PSBRESET)&($G(PSBRESET)'=""GIVEN"")) D"
^XMB(3.9,98,2,3683,0)="""RTN"",""PSBML3"",83,0)"
^XMB(3.9,98,2,3684,0)=" .D VAL^PSBML(53.79,PSBREIEN,.06,PSBREXDT)"
^XMB(3.9,98,2,3685,0)="""RTN"",""PSBML3"",84,0)"
^XMB(3.9,98,2,3686,0)=" .D VAL^PSBML(53.79,PSBREIEN,.09,PSBRESET)"
^XMB(3.9,98,2,3687,0)="""RTN"",""PSBML3"",85,0)"
^XMB(3.9,98,2,3688,0)=" .D:$D(PSBREINT) VAL^PSBML(53.79,PSBREIEN,.07,""`""_PSBREINT)"
^XMB(3.9,98,2,3689,0)="""RTN"",""PSBML3"",86,0)"
^XMB(3.9,98,2,3690,0)=" .D:'$G(PSBERR) FILEIT^PSBML"
^XMB(3.9,98,2,3691,0)="""RTN"",""PSBML3"",87,0)"
^XMB(3.9,98,2,3692,0)=" K PSBXXX,PSBRESET,PSBREXDT,PSBREINT,PSBQUITX"
^XMB(3.9,98,2,3693,0)="""RTN"",""PSBML3"",88,0)"
^XMB(3.9,98,2,3694,0)=" Q"
^XMB(3.9,98,2,3695,0)="""RTN"",""PSBML3"",89,0)"
^XMB(3.9,98,2,3696,0)=" ;"
^XMB(3.9,98,2,3697,0)="""RTN"",""PSBML3"",90,0)"
^XMB(3.9,98,2,3698,0)="FINDDD(PSBDDXX,PSBDDPTR) ;"
^XMB(3.9,98,2,3699,0)="""RTN"",""PSBML3"",91,0)"
^XMB(3.9,98,2,3700,0)=" ;"
^XMB(3.9,98,2,3701,0)="""RTN"",""PSBML3"",92,0)"
^XMB(3.9,98,2,3702,0)=" ;  Determine if edit - 'change' is deleted DDrug "
^XMB(3.9,98,2,3703,0)="""RTN"",""PSBML3"",93,0)"
^XMB(3.9,98,2,3704,0)=" ;"
^XMB(3.9,98,2,3705,0)="""RTN"",""PSBML3"",94,0)"
^XMB(3.9,98,2,3706,0)=" S FINDDD=0"
^XMB(3.9,98,2,3707,0)="""RTN"",""PSBML3"",95,0)"
^XMB(3.9,98,2,3708,0)=" I $D(PSBREC(8)) D"
^XMB(3.9,98,2,3709,0)="""RTN"",""PSBML3"",96,0)"
^XMB(3.9,98,2,3710,0)=" .F PSBINDX=8:1 Q:'$D(PSBREC(PSBINDX))  S PSBCOMPX=$G(PSBREC(PSBINDX)) D  Q:FINDDD"
^XMB(3.9,98,2,3711,0)="""RTN"",""PSBML3"",97,0)"
^XMB(3.9,98,2,3712,0)=" ..I ($S(PSBDDXX=.5:""DD"",PSBDDXX=.6:""ADD"",PSBDDXX=.7:""SOL"",1:"""")=$P(PSBCOMPX,U)),(PSBDDPTR=$P(PSBCOMPX,U,2)) S FINDDD=1"
^XMB(3.9,98,2,3713,0)="""RTN"",""PSBML3"",98,0)"
^XMB(3.9,98,2,3714,0)=" I 'FINDDD S PSBORDMD(PSBDDXX,PSBDDPTR,0)=""DELETED"""
^XMB(3.9,98,2,3715,0)="""RTN"",""PSBML3"",99,0)"
^XMB(3.9,98,2,3716,0)=" Q FINDDD"
^XMB(3.9,98,2,3717,0)="""RTN"",""PSBML3"",100,0)"
^XMB(3.9,98,2,3718,0)=" ;"
^XMB(3.9,98,2,3719,0)="""RTN"",""PSBMLEN1"")"
^XMB(3.9,98,2,3720,0)="0^24^B45353757^B44879194"
^XMB(3.9,98,2,3721,0)="""RTN"",""PSBMLEN1"",1,0)"
^XMB(3.9,98,2,3722,0)="PSBMLEN1 ;BIRMINGHAM/EFC-BCMA MEDICATION LOG FUNCTIONS ;Mar 2004"
^XMB(3.9,98,2,3723,0)="""RTN"",""PSBMLEN1"",2,0)"
^XMB(3.9,98,2,3724,0)=" ;;3.0;BAR CODE MED ADMIN;**3,4,9,11,13**;Mar 2004"
^XMB(3.9,98,2,3725,0)="""RTN"",""PSBMLEN1"",3,0)"
^XMB(3.9,98,2,3726,0)=" ;"
^XMB(3.9,98,2,3727,0)="""RTN"",""PSBMLEN1"",4,0)"
^XMB(3.9,98,2,3728,0)=" ; Reference/IA"
^XMB(3.9,98,2,3729,0)="""RTN"",""PSBMLEN1"",5,0)"
^XMB(3.9,98,2,3730,0)=" ; ENE^PSJBCMA4/3416"
^XMB(3.9,98,2,3731,0)="""RTN"",""PSBMLEN1"",6,0)"
^XMB(3.9,98,2,3732,0)=" ; ^XUSEC/10076"
^XMB(3.9,98,2,3733,0)="""RTN"",""PSBMLEN1"",7,0)"
^XMB(3.9,98,2,3734,0)=" ; HLP^DDSUTL/10150"
^XMB(3.9,98,2,3735,0)="""RTN"",""PSBMLEN1"",8,0)"
^XMB(3.9,98,2,3736,0)=" ;"
^XMB(3.9,98,2,3737,0)="""RTN"",""PSBMLEN1"",9,0)"
^XMB(3.9,98,2,3738,0)="NEW(Y) ; Create the new entry"
^XMB(3.9,98,2,3739,0)="""RTN"",""PSBMLEN1"",10,0)"
^XMB(3.9,98,2,3740,0)=" N PSBREC,PSB,PSBADST,PSBFREQ"
^XMB(3.9,98,2,3741,0)="""RTN"",""PSBMLEN1"",11,0)"
^XMB(3.9,98,2,3742,0)=" S PSBMMEN=1"
^XMB(3.9,98,2,3743,0)="""RTN"",""PSBMLEN1"",12,0)"
^XMB(3.9,98,2,3744,0)=" W @IOF D CLEAN^PSBVT,PSJ1^PSBVT(DFN,Y)"
^XMB(3.9,98,2,3745,0)="""RTN"",""PSBMLEN1"",13,0)"
^XMB(3.9,98,2,3746,0)=" D NOW^%DTC"
^XMB(3.9,98,2,3747,0)="""RTN"",""PSBMLEN1"",14,0)"
^XMB(3.9,98,2,3748,0)=" I PSBOSP<% D  Q:%'=1"
^XMB(3.9,98,2,3749,0)="""RTN"",""PSBMLEN1"",15,0)"
^XMB(3.9,98,2,3750,0)=" .W @IOF,$C(7)"
^XMB(3.9,98,2,3751,0)="""RTN"",""PSBMLEN1"",16,0)"
^XMB(3.9,98,2,3752,0)=" .W !,""NOTICE: This order is NOT currently active."""
^XMB(3.9,98,2,3753,0)="""RTN"",""PSBMLEN1"",17,0)"
^XMB(3.9,98,2,3754,0)=" .W !,""        Are You Sure You Want To Continue"""
^XMB(3.9,98,2,3755,0)="""RTN"",""PSBMLEN1"",18,0)"
^XMB(3.9,98,2,3756,0)=" .S %=2 D YN^DICN"
^XMB(3.9,98,2,3757,0)="""RTN"",""PSBMLEN1"",19,0)"
^XMB(3.9,98,2,3758,0)=" I PSBADST="""" S PSBFREQ=$$GETFREQ^PSBVDLU1(DFN,PSBONX),PSBADST=$$GETADMIN^PSBVDLU1(DFN,PSBONX,PSBOST,PSBFREQ,PSBDT)"
^XMB(3.9,98,2,3759,0)="""RTN"",""PSBMLEN1"",20,0)"
^XMB(3.9,98,2,3760,0)=" E  K ^TMP(""PSB"",$J,""GETADMIN"") S ^TMP(""PSB"",$J,""GETADMIN"",0)=PSBADST"
^XMB(3.9,98,2,3761,0)="""RTN"",""PSBMLEN1"",21,0)"
^XMB(3.9,98,2,3762,0)=" S PSBODSCH=0 I (PSBFREQ#1440'=0),(1440#PSBFREQ'=0) S PSBODSCH=1"
^XMB(3.9,98,2,3763,0)="""RTN"",""PSBMLEN1"",22,0)"
^XMB(3.9,98,2,3764,0)=" W !,""Order:       "",PSBONX"
^XMB(3.9,98,2,3765,0)="""RTN"",""PSBMLEN1"",23,0)"
^XMB(3.9,98,2,3766,0)=" W !,""Medication:  "",PSBOITX"
^XMB(3.9,98,2,3767,0)="""RTN"",""PSBMLEN1"",24,0)"
^XMB(3.9,98,2,3768,0)=" W !,""Dosage:      "",PSBDOSE"
^XMB(3.9,98,2,3769,0)="""RTN"",""PSBMLEN1"",25,0)"
^XMB(3.9,98,2,3770,0)=" W !,""Schedule:    "",PSBSCH"
^XMB(3.9,98,2,3771,0)="""RTN"",""PSBMLEN1"",26,0)"
^XMB(3.9,98,2,3772,0)=" W !,""Admin Times: "",$S(PSBODSCH:""(Odd Sched.)"",1:PSBADST)"
^XMB(3.9,98,2,3773,0)="""RTN"",""PSBMLEN1"",27,0)"
^XMB(3.9,98,2,3774,0)=" I $D(^XUSEC(""PSB READ ONLY"",DUZ)) D  Q"
^XMB(3.9,98,2,3775,0)="""RTN"",""PSBMLEN1"",28,0)"
^XMB(3.9,98,2,3776,0)=" .W !!,""Medications CANNOT be administered while in PSB READ ONLY mode."",!! R ""Press ENTER KEY to continue. "",PSBCNTNU:5"
^XMB(3.9,98,2,3777,0)="""RTN"",""PSBMLEN1"",29,0)"
^XMB(3.9,98,2,3778,0)=" W !!,""Is this the correct Order"" S %=1 D YN^DICN Q:%'=1"
^XMB(3.9,98,2,3779,0)="""RTN"",""PSBMLEN1"",30,0)"
^XMB(3.9,98,2,3780,0)=" ;"
^XMB(3.9,98,2,3781,0)="""RTN"",""PSBMLEN1"",31,0)"
^XMB(3.9,98,2,3782,0)=" ; PRN, One-Time, On Call orders"
^XMB(3.9,98,2,3783,0)="""RTN"",""PSBMLEN1"",32,0)"
^XMB(3.9,98,2,3784,0)=" ;"
^XMB(3.9,98,2,3785,0)="""RTN"",""PSBMLEN1"",33,0)"
^XMB(3.9,98,2,3786,0)=" I PSBSCHT'=""C"" D"
^XMB(3.9,98,2,3787,0)="""RTN"",""PSBMLEN1"",34,0)"
^XMB(3.9,98,2,3788,0)=" .D VAL^PSBMLVAL(.PSB,DFN,+PSBONX,$E(PSBONX,$L(PSBONX)))"
^XMB(3.9,98,2,3789,0)="""RTN"",""PSBMLEN1"",35,0)"
^XMB(3.9,98,2,3790,0)=" .I PSBSCHT=""P"",($D(PSB(1))) W !!,""Brief Administration History:  "",! S X=$O(PSB("" ""),-1),X=$S(X>4:4,1:X) F I=1:1:X W !,?5,PSB(I)"
^XMB(3.9,98,2,3791,0)="""RTN"",""PSBMLEN1"",36,0)"
^XMB(3.9,98,2,3792,0)=" .I $D(^XUSEC(""PSB READ ONLY"",DUZ)) W !,""This operation is NOT AVAILABLE in PSB READ ONLY mode."",! Q"
^XMB(3.9,98,2,3793,0)="""RTN"",""PSBMLEN1"",37,0)"
^XMB(3.9,98,2,3794,0)=" .I ($D(^XUSEC(""PSB STUDENT"",DUZ))),('$D(^XUSEC(""PSB INSTRUCTOR""))) W !,""This operation is NOT AVAILABLE in PSB READ ONLY mode."",! Q"
^XMB(3.9,98,2,3795,0)="""RTN"",""PSBMLEN1"",38,0)"
^XMB(3.9,98,2,3796,0)=" .W !!,""Create an administration for this order"" S %=1 D YN^DICN Q:%'=1"
^XMB(3.9,98,2,3797,0)="""RTN"",""PSBMLEN1"",39,0)"
^XMB(3.9,98,2,3798,0)=" .I PSBSCHT=""P"" D  Q:Y=""""!(Y[""^"")"
^XMB(3.9,98,2,3799,0)="""RTN"",""PSBMLEN1"",40,0)"
^XMB(3.9,98,2,3800,0)=" ..K DIR S DIR(0)=""FB^1:30"",DIR(""A"")=""PRN Reason (1-30 characters)"""
^XMB(3.9,98,2,3801,0)="""RTN"",""PSBMLEN1"",41,0)"
^XMB(3.9,98,2,3802,0)=" ..W !!,""NOTICE: PRN Reason is Required for ALL PRN Entries"",!"
^XMB(3.9,98,2,3803,0)="""RTN"",""PSBMLEN1"",42,0)"
^XMB(3.9,98,2,3804,0)=" ..D ^DIR"
^XMB(3.9,98,2,3805,0)="""RTN"",""PSBMLEN1"",43,0)"
^XMB(3.9,98,2,3806,0)=" ..I Y=""""!(Y[""^"") W !!,""Sorry, Reason is required, No Entry Made!"" Q"
^XMB(3.9,98,2,3807,0)="""RTN"",""PSBMLEN1"",44,0)"
^XMB(3.9,98,2,3808,0)=" ..S PSBREC(6)=$P(Y,""|"")"
^XMB(3.9,98,2,3809,0)="""RTN"",""PSBMLEN1"",45,0)"
^XMB(3.9,98,2,3810,0)=" .; Build the form of dosage to CAP or TAB or null"
^XMB(3.9,98,2,3811,0)="""RTN"",""PSBMLEN1"",46,0)"
^XMB(3.9,98,2,3812,0)=" .S:(PSBDOSEF'?1""CAP"".E)&(PSBDOSEF'?1""TAB"".E)&(PSBDOSEF'?1""PATCH"".E) PSBDOSEF="""""
^XMB(3.9,98,2,3813,0)="""RTN"",""PSBMLEN1"",47,0)"
^XMB(3.9,98,2,3814,0)=" .; Build the variable dose check #####-#####MG"
^XMB(3.9,98,2,3815,0)="""RTN"",""PSBMLEN1"",48,0)"
^XMB(3.9,98,2,3816,0)=" .S PSBVARD=$S(PSBDOSE?1.5N1""-""1.5N.E:1,1:0)"
^XMB(3.9,98,2,3817,0)="""RTN"",""PSBMLEN1"",49,0)"
^XMB(3.9,98,2,3818,0)=" .S PSBREC(0)=DFN"
^XMB(3.9,98,2,3819,0)="""RTN"",""PSBMLEN1"",50,0)"
^XMB(3.9,98,2,3820,0)=" .S PSBREC(1)=PSBONX"
^XMB(3.9,98,2,3821,0)="""RTN"",""PSBMLEN1"",51,0)"
^XMB(3.9,98,2,3822,0)=" .S PSBREC(2)=PSBSCHT"
^XMB(3.9,98,2,3823,0)="""RTN"",""PSBMLEN1"",52,0)"
^XMB(3.9,98,2,3824,0)=" .S PSBREC(3)=""G"""
^XMB(3.9,98,2,3825,0)="""RTN"",""PSBMLEN1"",53,0)"
^XMB(3.9,98,2,3826,0)=" .S PSBREC(4)=PSBOIT"
^XMB(3.9,98,2,3827,0)="""RTN"",""PSBMLEN1"",54,0)"
^XMB(3.9,98,2,3828,0)=" .S PSBREC(5)="""""
^XMB(3.9,98,2,3829,0)="""RTN"",""PSBMLEN1"",55,0)"
^XMB(3.9,98,2,3830,0)=" .S PSBREC(7)=""Entry created with 'Manual Medication Entry' option."""
^XMB(3.9,98,2,3831,0)="""RTN"",""PSBMLEN1"",56,0)"
^XMB(3.9,98,2,3832,0)=" .S PSBREC(8)="""""
^XMB(3.9,98,2,3833,0)="""RTN"",""PSBMLEN1"",57,0)"
^XMB(3.9,98,2,3834,0)=" .S PSBREC(9)=$S(PSBONX[""U"":""UDTAB"",1:""PBTAB"")"
^XMB(3.9,98,2,3835,0)="""RTN"",""PSBMLEN1"",58,0)"
^XMB(3.9,98,2,3836,0)=" .S PSBINDX=10"
^XMB(3.9,98,2,3837,0)="""RTN"",""PSBMLEN1"",59,0)"
^XMB(3.9,98,2,3838,0)=" .S X="""" F  S X=$O(PSBDDA(X)) Q:X=""""  S PSBREC(PSBINDX)=$P(PSBDDA(X),U,1,2)_U_$P(PSBDDA(X),U,4)_U_$P(PSBDDA(X),U,4)_U_PSBDOSEF,PSBINDX=PSBINDX+1"
^XMB(3.9,98,2,3839,0)="""RTN"",""PSBMLEN1"",60,0)"
^XMB(3.9,98,2,3840,0)=" .S X="""" F  S X=$O(PSBADA(X)) Q:X=""""  S PSBREC(PSBINDX)=PSBADA(X),PSBINDX=PSBINDX+1"
^XMB(3.9,98,2,3841,0)="""RTN"",""PSBMLEN1"",61,0)"
^XMB(3.9,98,2,3842,0)=" .S X="""" F  S X=$O(PSBSOLA(X)) Q:X=""""  S PSBREC(PSBINDX)=PSBSOLA(X),PSBINDX=PSBINDX+1"
^XMB(3.9,98,2,3843,0)="""RTN"",""PSBMLEN1"",62,0)"
^XMB(3.9,98,2,3844,0)=" .D FILE"
^XMB(3.9,98,2,3845,0)="""RTN"",""PSBMLEN1"",63,0)"
^XMB(3.9,98,2,3846,0)=" .I $G(DA),PSBREC(2)=""O"",$D(^PSB(53.79,DA)) I $P(^PSB(53.79,DA,0),U,9)=""G"" D ENE^PSJBCMA4(PSBREC(0),PSBREC(1))"
^XMB(3.9,98,2,3847,0)="""RTN"",""PSBMLEN1"",64,0)"
^XMB(3.9,98,2,3848,0)=" ;"
^XMB(3.9,98,2,3849,0)="""RTN"",""PSBMLEN1"",65,0)"
^XMB(3.9,98,2,3850,0)=" ; Continuous Meds"
^XMB(3.9,98,2,3851,0)="""RTN"",""PSBMLEN1"",66,0)"
^XMB(3.9,98,2,3852,0)=" ;"
^XMB(3.9,98,2,3853,0)="""RTN"",""PSBMLEN1"",67,0)"
^XMB(3.9,98,2,3854,0)=" I PSBSCHT=""C"" D"
^XMB(3.9,98,2,3855,0)="""RTN"",""PSBMLEN1"",68,0)"
^XMB(3.9,98,2,3856,0)=" .W ! S %DT=""AEQ"",%DT(""A"")=""Enter the DATE the medication was administered: """
^XMB(3.9,98,2,3857,0)="""RTN"",""PSBMLEN1"",69,0)"
^XMB(3.9,98,2,3858,0)=" .D NOW^%DTC S %DT(0)=(-1)*X,%DT(""B"")="""" D ^%DT K %DT(0) Q:Y<1  S PSBDTX=Y D D^DIQ"
^XMB(3.9,98,2,3859,0)="""RTN"",""PSBMLEN1"",70,0)"
^XMB(3.9,98,2,3860,0)=" .S:PSBODSCH PSBSCTMX=$$GETADMIN^PSBVDLU1(DFN,PSBONX,PSBOST,PSBFREQ,PSBDTX)"
^XMB(3.9,98,2,3861,0)="""RTN"",""PSBMLEN1"",71,0)"
^XMB(3.9,98,2,3862,0)=" .F PSBXX=0:1 Q:$G(^TMP(""PSB"",$J,""GETADMIN"",PSBXX))=""""  D"
^XMB(3.9,98,2,3863,0)="""RTN"",""PSBMLEN1"",72,0)"
^XMB(3.9,98,2,3864,0)=" ..S X="""",Y=$G(^TMP(""PSB"",$J,""GETADMIN"",PSBXX))"
^XMB(3.9,98,2,3865,0)="""RTN"",""PSBMLEN1"",73,0)"
^XMB(3.9,98,2,3866,0)=" ..F Z=1:1:$L(Y,""-"") S X=X_$S(X]"""":"";"",1:"""")_Z_"":""_$P(Y,""-"",Z)"
^XMB(3.9,98,2,3867,0)="""RTN"",""PSBMLEN1"",74,0)"
^XMB(3.9,98,2,3868,0)=" .I PSBODSCH,PSBSCTMX="""" D  Q"
^XMB(3.9,98,2,3869,0)="""RTN"",""PSBMLEN1"",75,0)"
^XMB(3.9,98,2,3870,0)=" ..W !!,""Order ""_PSBONX_"" is NOT SCHEDULED for administration on that entered date."""
^XMB(3.9,98,2,3871,0)="""RTN"",""PSBMLEN1"",76,0)"
^XMB(3.9,98,2,3872,0)=" ..K DIR S DIR(0)=""E^"" D ^DIR"
^XMB(3.9,98,2,3873,0)="""RTN"",""PSBMLEN1"",77,0)"
^XMB(3.9,98,2,3874,0)=" .K DIR S DIR(0)=""S^""_X,DIR(""A"")=""Select Administration Time"""
^XMB(3.9,98,2,3875,0)="""RTN"",""PSBMLEN1"",78,0)"
^XMB(3.9,98,2,3876,0)=" .D ^DIR Q:Y<1"
^XMB(3.9,98,2,3877,0)="""RTN"",""PSBMLEN1"",79,0)"
^XMB(3.9,98,2,3878,0)=" .S PSBDTX=+(PSBDTX_"".""_Y(0))"
^XMB(3.9,98,2,3879,0)="""RTN"",""PSBMLEN1"",80,0)"
^XMB(3.9,98,2,3880,0)=" .S Y=PSBDTX D D^DIQ"
^XMB(3.9,98,2,3881,0)="""RTN"",""PSBMLEN1"",81,0)"
^XMB(3.9,98,2,3882,0)=" .W !!,""Create an administration for "",Y S %=1 D YN^DICN  Q:%'=1"
^XMB(3.9,98,2,3883,0)="""RTN"",""PSBMLEN1"",82,0)"
^XMB(3.9,98,2,3884,0)="FORUM .; Build the form of dosage to CAP or TAB or null"
^XMB(3.9,98,2,3885,0)="""RTN"",""PSBMLEN1"",83,0)"
^XMB(3.9,98,2,3886,0)=" .S PSBDOSEF=PSBDOSEF"
^XMB(3.9,98,2,3887,0)="""RTN"",""PSBMLEN1"",84,0)"
^XMB(3.9,98,2,3888,0)=" .S:(PSBDOSEF'?1""CAP"".E)&(PSBDOSEF'?1""TAB"".E)&(PSBDOSEF'?1""PATCH"".E) PSBDOSEF="""""
^XMB(3.9,98,2,3889,0)="""RTN"",""PSBMLEN1"",85,0)"
^XMB(3.9,98,2,3890,0)=" .; Build the variable dose check #####-#####MG"
^XMB(3.9,98,2,3891,0)="""RTN"",""PSBMLEN1"",86,0)"
^XMB(3.9,98,2,3892,0)=" .S PSBVARD=$S(PSBDOSE?1.5N1""-""1.5N.E:1,1:0)"
^XMB(3.9,98,2,3893,0)="""RTN"",""PSBMLEN1"",87,0)"
^XMB(3.9,98,2,3894,0)=" .S PSBREC(0)=DFN"
^XMB(3.9,98,2,3895,0)="""RTN"",""PSBMLEN1"",88,0)"
^XMB(3.9,98,2,3896,0)=" .S PSBREC(1)=PSBONX"
^XMB(3.9,98,2,3897,0)="""RTN"",""PSBMLEN1"",89,0)"
^XMB(3.9,98,2,3898,0)=" .S PSBREC(2)=PSBSCHT"
^XMB(3.9,98,2,3899,0)="""RTN"",""PSBMLEN1"",90,0)"
^XMB(3.9,98,2,3900,0)=" .S PSBREC(3)=""G"""
^XMB(3.9,98,2,3901,0)="""RTN"",""PSBMLEN1"",91,0)"
^XMB(3.9,98,2,3902,0)=" .S PSBREC(4)=PSBOIT"
^XMB(3.9,98,2,3903,0)="""RTN"",""PSBMLEN1"",92,0)"
^XMB(3.9,98,2,3904,0)=" .S PSBREC(5)=PSBDTX"
^XMB(3.9,98,2,3905,0)="""RTN"",""PSBMLEN1"",93,0)"
^XMB(3.9,98,2,3906,0)=" .S PSBREC(6)="""""
^XMB(3.9,98,2,3907,0)="""RTN"",""PSBMLEN1"",94,0)"
^XMB(3.9,98,2,3908,0)=" .S PSBREC(7)=""Entry created with 'Manual Medication Entry' option."""
^XMB(3.9,98,2,3909,0)="""RTN"",""PSBMLEN1"",95,0)"
^XMB(3.9,98,2,3910,0)=" .S PSBREC(8)="""""
^XMB(3.9,98,2,3911,0)="""RTN"",""PSBMLEN1"",96,0)"
^XMB(3.9,98,2,3912,0)=" .S PSBREC(9)=$S(PSBONX[""U"":""UDTAB"",1:""PBTAB"")"
^XMB(3.9,98,2,3913,0)="""RTN"",""PSBMLEN1"",97,0)"
^XMB(3.9,98,2,3914,0)=" .S PSBINDX=10"
^XMB(3.9,98,2,3915,0)="""RTN"",""PSBMLEN1"",98,0)"
^XMB(3.9,98,2,3916,0)=" .S X="""" F  S X=$O(PSBDDA(X)) Q:X=""""  S PSBREC(PSBINDX)=$P(PSBDDA(X),U,1,2)_U_$P(PSBDDA(X),U,4)_U_$P(PSBDDA(X),U,4)_U_PSBDOSEF,PSBINDX=PSBINDX+1"
^XMB(3.9,98,2,3917,0)="""RTN"",""PSBMLEN1"",99,0)"
^XMB(3.9,98,2,3918,0)=" .S X="""" F  S X=$O(PSBADA(X)) Q:X=""""  S PSBREC(PSBINDX)=PSBADA(X),PSBINDX=PSBINDX+1"
^XMB(3.9,98,2,3919,0)="""RTN"",""PSBMLEN1"",100,0)"
^XMB(3.9,98,2,3920,0)=" .S X="""" F  S X=$O(PSBSOLA(X)) Q:X=""""  S PSBREC(PSBINDX)=PSBSOLA(X),PSBINDX=PSBINDX+1"
^XMB(3.9,98,2,3921,0)="""RTN"",""PSBMLEN1"",101,0)"
^XMB(3.9,98,2,3922,0)=" .D FILE"
^XMB(3.9,98,2,3923,0)="""RTN"",""PSBMLEN1"",102,0)"
^XMB(3.9,98,2,3924,0)=" Q"
^XMB(3.9,98,2,3925,0)="""RTN"",""PSBMLEN1"",103,0)"
^XMB(3.9,98,2,3926,0)=" ;"
^XMB(3.9,98,2,3927,0)="""RTN"",""PSBMLEN1"",104,0)"
^XMB(3.9,98,2,3928,0)="FILE ; Call the med log RPC to file it and DDS to edit it"
^XMB(3.9,98,2,3929,0)="""RTN"",""PSBMLEN1"",105,0)"
^XMB(3.9,98,2,3930,0)=" N PSB,PSBSAVE,PSBAUDIT"
^XMB(3.9,98,2,3931,0)="""RTN"",""PSBMLEN1"",106,0)"
^XMB(3.9,98,2,3932,0)=" D RPC^PSBML(.PSB,""+1^MEDPASS"",.PSBREC)"
^XMB(3.9,98,2,3933,0)="""RTN"",""PSBMLEN1"",107,0)"
^XMB(3.9,98,2,3934,0)=" I '$D(PSB) S PSB(0)=1,PSB(1)=""-1^INCOMPLETE ENTRY^""_PSBINCX"
^XMB(3.9,98,2,3935,0)="""RTN"",""PSBMLEN1"",108,0)"
^XMB(3.9,98,2,3936,0)=" I +PSB(1)<1 D  Q"
^XMB(3.9,98,2,3937,0)="""RTN"",""PSBMLEN1"",109,0)"
^XMB(3.9,98,2,3938,0)=" .W @IOF,!,""Error(s) Creating Med Log Entry"",!"
^XMB(3.9,98,2,3939,0)="""RTN"",""PSBMLEN1"",110,0)"
^XMB(3.9,98,2,3940,0)=" .S X=$S(PSB(0)=1:0,1:1) F  S X=$O(PSB(X)) Q:X=""""  W !,$J($S(X=1:X,1:X-1),2),"". "",$S(X=1:$P(PSB(X),""^"",2),1:PSB(X))"
^XMB(3.9,98,2,3941,0)="""RTN"",""PSBMLEN1"",111,0)"
^XMB(3.9,98,2,3942,0)=" .W !!,""No Med Log Entry Created."",!!"
^XMB(3.9,98,2,3943,0)="""RTN"",""PSBMLEN1"",112,0)"
^XMB(3.9,98,2,3944,0)=" .K DIR S DIR(0)=""E"" D ^DIR"
^XMB(3.9,98,2,3945,0)="""RTN"",""PSBMLEN1"",113,0)"
^XMB(3.9,98,2,3946,0)=" S PSBSAVE=0 S:'$G(PSBMMEN) PSBAUDIT=1"
^XMB(3.9,98,2,3947,0)="""RTN"",""PSBMLEN1"",114,0)"
^XMB(3.9,98,2,3948,0)=" S DA=$P(PSB(1),U,3),DDSFILE=53.79,DDSPARM=""C"""
^XMB(3.9,98,2,3949,0)="""RTN"",""PSBMLEN1"",115,0)"
^XMB(3.9,98,2,3950,0)=" I $P(^PSB(53.79,DA,.1),U,1)?.N1""U"" S DR=""[PSB NEW UD ENTRY]"""
^XMB(3.9,98,2,3951,0)="""RTN"",""PSBMLEN1"",116,0)"
^XMB(3.9,98,2,3952,0)=" I $P(^PSB(53.79,DA,.1),U,1)?.N1""V"" S DR=""[PSB NEW IV ENTRY]"""
^XMB(3.9,98,2,3953,0)="""RTN"",""PSBMLEN1"",117,0)"
^XMB(3.9,98,2,3954,0)=" D ^DDS"
^XMB(3.9,98,2,3955,0)="""RTN"",""PSBMLEN1"",118,0)"
^XMB(3.9,98,2,3956,0)=" L +^PSB(53.79,DA):1 I  L -^PSB(53.79,DA) I PSBSAVE'=1 D"
^XMB(3.9,98,2,3957,0)="""RTN"",""PSBMLEN1"",119,0)"
^XMB(3.9,98,2,3958,0)=" .W !,""Incomplete Med Log Entry, Deleting...#"",DA S A=^PSB(53.79,DA,0),DFN=$P(A,U,1),AADT=$P(A,U,6)"
^XMB(3.9,98,2,3959,0)="""RTN"",""PSBMLEN1"",120,0)"
^XMB(3.9,98,2,3960,0)=" .K ^PSB(53.79,""AADT"",DFN,AADT,DA) S DIK=""^PSB(53.79,"" D ^DIK"
^XMB(3.9,98,2,3961,0)="""RTN"",""PSBMLEN1"",121,0)"
^XMB(3.9,98,2,3962,0)=" I PSBSAVE=1 D"
^XMB(3.9,98,2,3963,0)="""RTN"",""PSBMLEN1"",122,0)"
^XMB(3.9,98,2,3964,0)=" .I $D(DA) D:($P(^PSB(53.79,DA,0),U,9)=""G"")"
^XMB(3.9,98,2,3965,0)="""RTN"",""PSBMLEN1"",123,0)"
^XMB(3.9,98,2,3966,0)=" ..I $D(^PSB(53.79,DA,.5)) S PSBY=0 F  S PSBY=$O(^PSB(53.79,DA,.5,PSBY)) Q:+PSBY<1  D"
^XMB(3.9,98,2,3967,0)="""RTN"",""PSBMLEN1"",124,0)"
^XMB(3.9,98,2,3968,0)=" ...I $P(^PSB(53.79,DA,.5,PSBY,0),U,4)=""PATCH"" D"
^XMB(3.9,98,2,3969,0)="""RTN"",""PSBMLEN1"",125,0)"
^XMB(3.9,98,2,3970,0)=" ....S (PSBYX,PSBXUIT)="""" F  S PSBYX=$O(^PSB(53.79,""AORDX"",PSBDFN,PSBONX,PSBYX),-1)   Q:PSBYX=""""  D  Q:PSBXUIT"
^XMB(3.9,98,2,3971,0)="""RTN"",""PSBMLEN1"",126,0)"
^XMB(3.9,98,2,3972,0)=" .....S PSBYZ="""" S PSBYZ=$O(^PSB(53.79,""AORDX"",PSBDFN,PSBONX,PSBYX,PSBYZ)) I (PSBYZ'=DA),$P(^PSB(53.79,PSBYZ,0),U,9)=""G"" D"
^XMB(3.9,98,2,3973,0)="""RTN"",""PSBMLEN1"",127,0)"
^XMB(3.9,98,2,3974,0)=" ......W !!,""PATCH has been GIVEN before this admin completed; Deleting Med Log Entry...#"",DA,!! S A=^PSB(53.79,DA,0),DFN=$P(A,U,1),AADT=$P(A,U,6)"
^XMB(3.9,98,2,3975,0)="""RTN"",""PSBMLEN1"",128,0)"
^XMB(3.9,98,2,3976,0)=" ......K ^PSB(53.79,""AADT"",DFN,AADT,DA) S DIK=""^PSB(53.79,"" D ^DIK"
^XMB(3.9,98,2,3977,0)="""RTN"",""PSBMLEN1"",129,0)"
^XMB(3.9,98,2,3978,0)=" ......S PSBXUIT=1"
^XMB(3.9,98,2,3979,0)="""RTN"",""PSBMLEN1"",130,0)"
^XMB(3.9,98,2,3980,0)=" ....Q:PSBXUIT"
^XMB(3.9,98,2,3981,0)="""RTN"",""PSBMLEN1"",131,0)"
^XMB(3.9,98,2,3982,0)=" ....S ^PSB(53.79,""APATCH"",$P(^PSB(53.79,DA,0),U),$P(^PSB(53.79,DA,0),U,6),DA)="""""
^XMB(3.9,98,2,3983,0)="""RTN"",""PSBMLEN1"",132,0)"
^XMB(3.9,98,2,3984,0)=" .Q:(PSBIEN=""+1"")&('$D(PSBIEN(1)))"
^XMB(3.9,98,2,3985,0)="""RTN"",""PSBMLEN1"",133,0)"
^XMB(3.9,98,2,3986,0)=" .Q:$G(PSBXUIT)"
^XMB(3.9,98,2,3987,0)="""RTN"",""PSBMLEN1"",134,0)"
^XMB(3.9,98,2,3988,0)=" .S X=$S($P(PSBIEN,"","",2)]"""":$P(PSBIEN,"","",2),PSBIEN=""+1"":PSBIEN(1),1:"""")"
^XMB(3.9,98,2,3989,0)="""RTN"",""PSBMLEN1"",135,0)"
^XMB(3.9,98,2,3990,0)=" .I X]"""" I ($F(""HR"",$P(^PSB(53.79,X,0),U,9))>1) F Y=.5,.6,.7 S Z=0 F  S Z=$O(^PSB(53.79,X,Y,Z)) Q:+Z=0  S $P(^PSB(53.79,X,Y,Z,0),U,3)=0"
^XMB(3.9,98,2,3991,0)="""RTN"",""PSBMLEN1"",136,0)"
^XMB(3.9,98,2,3992,0)=" Q"
^XMB(3.9,98,2,3993,0)="""RTN"",""PSBMLEN1"",137,0)"
^XMB(3.9,98,2,3994,0)=" ;"
^XMB(3.9,98,2,3995,0)="""RTN"",""PSBMLEN1"",138,0)"
^XMB(3.9,98,2,3996,0)="FDATE ;Check Admin Time for future date/time."
^XMB(3.9,98,2,3997,0)="""RTN"",""PSBMLEN1"",139,0)"
^XMB(3.9,98,2,3998,0)=" N PSBTIMX"
^XMB(3.9,98,2,3999,0)="""RTN"",""PSBMLEN1"",140,0)"
^XMB(3.9,98,2,4000,0)=" S PSBTIMX=X D NOW^%DTC"
^XMB(3.9,98,2,4001,0)="""RTN"",""PSBMLEN1"",141,0)"
^XMB(3.9,98,2,4002,0)=" I PSBTIMX>% W $C(7) S (DDSERROR,DDSBR)=1 D HLP^DDSUTL(""Future date/time is not allowed"")"
^XMB(3.9,98,2,4003,0)="""RTN"",""PSBMLEN1"",142,0)"
^XMB(3.9,98,2,4004,0)=" Q"
^XMB(3.9,98,2,4005,0)="""RTN"",""PSBMLEN1"",143,0)"
^XMB(3.9,98,2,4006,0)=" ;"
^XMB(3.9,98,2,4007,0)="""RTN"",""PSBMLLKU"")"
^XMB(3.9,98,2,4008,0)="0^16^B65545220^B62544624"
^XMB(3.9,98,2,4009,0)="""RTN"",""PSBMLLKU"",1,0)"
^XMB(3.9,98,2,4010,0)="PSBMLLKU ;BIRMINGHAM/TEJ-BCMA RPC LOOKUP UTLILITIES ;Mar 2004"
^XMB(3.9,98,2,4011,0)="""RTN"",""PSBMLLKU"",2,0)"
^XMB(3.9,98,2,4012,0)=" ;;3.0;BAR CODE MED ADMIN;**3,9,11,20,13**;Mar 2004"
^XMB(3.9,98,2,4013,0)="""RTN"",""PSBMLLKU"",3,0)"
^XMB(3.9,98,2,4014,0)=" ;"
^XMB(3.9,98,2,4015,0)="""RTN"",""PSBMLLKU"",4,0)"
^XMB(3.9,98,2,4016,0)=" ; Reference/IA"
^XMB(3.9,98,2,4017,0)="""RTN"",""PSBMLLKU"",5,0)"
^XMB(3.9,98,2,4018,0)=" ; EN^PSJBCMA1/2829"
^XMB(3.9,98,2,4019,0)="""RTN"",""PSBMLLKU"",6,0)"
^XMB(3.9,98,2,4020,0)=" ; $$DOB^DPTLK1/3266"
^XMB(3.9,98,2,4021,0)="""RTN"",""PSBMLLKU"",7,0)"
^XMB(3.9,98,2,4022,0)=" ; $$SSN^DPTLK1/3267"
^XMB(3.9,98,2,4023,0)="""RTN"",""PSBMLLKU"",8,0)"
^XMB(3.9,98,2,4024,0)=" ; ^DPT/10035"
^XMB(3.9,98,2,4025,0)="""RTN"",""PSBMLLKU"",9,0)"
^XMB(3.9,98,2,4026,0)=" ; ^XUSEC/10076"
^XMB(3.9,98,2,4027,0)="""RTN"",""PSBMLLKU"",10,0)"
^XMB(3.9,98,2,4028,0)=" ; File 52.6/436"
^XMB(3.9,98,2,4029,0)="""RTN"",""PSBMLLKU"",11,0)"
^XMB(3.9,98,2,4030,0)=" ; File 52.7/437"
^XMB(3.9,98,2,4031,0)="""RTN"",""PSBMLLKU"",12,0)"
^XMB(3.9,98,2,4032,0)=" ; File 50/221"
^XMB(3.9,98,2,4033,0)="""RTN"",""PSBMLLKU"",13,0)"
^XMB(3.9,98,2,4034,0)=" ;"
^XMB(3.9,98,2,4035,0)="""RTN"",""PSBMLLKU"",14,0)"
^XMB(3.9,98,2,4036,0)=" ;"
^XMB(3.9,98,2,4037,0)="""RTN"",""PSBMLLKU"",15,0)"
^XMB(3.9,98,2,4038,0)="RPC(RESULTS,PSBREC) ; Remote Procedure Call Entry Point."
^XMB(3.9,98,2,4039,0)="""RTN"",""PSBMLLKU"",16,0)"
^XMB(3.9,98,2,4040,0)=" ;"
^XMB(3.9,98,2,4041,0)="""RTN"",""PSBMLLKU"",17,0)"
^XMB(3.9,98,2,4042,0)=" S RESULTS="""" D @(PSBREC(0)_""(.RESULTS,.PSBREC)"") Q"
^XMB(3.9,98,2,4043,0)="""RTN"",""PSBMLLKU"",18,0)"
^XMB(3.9,98,2,4044,0)=" Q"
^XMB(3.9,98,2,4045,0)="""RTN"",""PSBMLLKU"",19,0)"
^XMB(3.9,98,2,4046,0)=" ;"
^XMB(3.9,98,2,4047,0)="""RTN"",""PSBMLLKU"",20,0)"
^XMB(3.9,98,2,4048,0)="ADMLKUP(RESULTS,PSBREC) ;"
^XMB(3.9,98,2,4049,0)="""RTN"",""PSBMLLKU"",21,0)"
^XMB(3.9,98,2,4050,0)=" ;  Lookup ADMinistrations per DFN and search DATE"
^XMB(3.9,98,2,4051,0)="""RTN"",""PSBMLLKU"",22,0)"
^XMB(3.9,98,2,4052,0)=" ;   input - PSBREC(1)  DFN"
^XMB(3.9,98,2,4053,0)="""RTN"",""PSBMLLKU"",23,0)"
^XMB(3.9,98,2,4054,0)=" ;           PSBREC(2)  Search DATE"
^XMB(3.9,98,2,4055,0)="""RTN"",""PSBMLLKU"",24,0)"
^XMB(3.9,98,2,4056,0)=" ;"
^XMB(3.9,98,2,4057,0)="""RTN"",""PSBMLLKU"",25,0)"
^XMB(3.9,98,2,4058,0)=" ;   outpt - RESULTS (array)"
^XMB(3.9,98,2,4059,0)="""RTN"",""PSBMLLKU"",26,0)"
^XMB(3.9,98,2,4060,0)=" ;          (Administrations returned will be dated  = to Search Date"
^XMB(3.9,98,2,4061,0)="""RTN"",""PSBMLLKU"",27,0)"
^XMB(3.9,98,2,4062,0)=" ;"
^XMB(3.9,98,2,4063,0)="""RTN"",""PSBMLLKU"",28,0)"
^XMB(3.9,98,2,4064,0)=" ;"
^XMB(3.9,98,2,4065,0)="""RTN"",""PSBMLLKU"",29,0)"
^XMB(3.9,98,2,4066,0)=" K RESULTS"
^XMB(3.9,98,2,4067,0)="""RTN"",""PSBMLLKU"",30,0)"
^XMB(3.9,98,2,4068,0)=" S DFN=PSBREC(1),PSBSRCH=$G(PSBREC(2)) I $G(PSBSRCH)']"""" D NOW^%DTC S PSBSRCH=$P(%,""."")"
^XMB(3.9,98,2,4069,0)="""RTN"",""PSBMLLKU"",31,0)"
^XMB(3.9,98,2,4070,0)=" S PSBDT=PSBSRCH,PSBCNT=0 S:PSBSRCH'[""."" PSBSRCH=PSBSRCH+.9"
^XMB(3.9,98,2,4071,0)="""RTN"",""PSBMLLKU"",32,0)"
^XMB(3.9,98,2,4072,0)=" S RESULTS(0)=1,RESULTS(1)=""-1^No Meds Found!"""
^XMB(3.9,98,2,4073,0)="""RTN"",""PSBMLLKU"",33,0)"
^XMB(3.9,98,2,4074,0)=" F  S PSBSRCH=$O(^PSB(53.79,""AADT"",DFN,PSBSRCH),-1) Q:'PSBSRCH!(PSBSRCH<PSBDT)  D"
^XMB(3.9,98,2,4075,0)="""RTN"",""PSBMLLKU"",34,0)"
^XMB(3.9,98,2,4076,0)=" .S PSBIEN="""""
^XMB(3.9,98,2,4077,0)="""RTN"",""PSBMLLKU"",35,0)"
^XMB(3.9,98,2,4078,0)=" .F  S PSBIEN=$O(^PSB(53.79,""AADT"",DFN,PSBSRCH,PSBIEN),-1) Q:'PSBIEN  D:'$D(^PSB(53.79,PSBIEN)) KILLAADT  Q:'$D(^PSB(53.79,PSBIEN))  D:$$CHKKEY(PSBIEN)"
^XMB(3.9,98,2,4079,0)="""RTN"",""PSBMLLKU"",36,0)"
^XMB(3.9,98,2,4080,0)=" ..L +^PSB(53.79,PSBIEN):1"
^XMB(3.9,98,2,4081,0)="""RTN"",""PSBMLLKU"",37,0)"
^XMB(3.9,98,2,4082,0)=" ..I  L -^PSB(53.79,PSBIEN)"
^XMB(3.9,98,2,4083,0)="""RTN"",""PSBMLLKU"",38,0)"
^XMB(3.9,98,2,4084,0)=" ..E  Q"
^XMB(3.9,98,2,4085,0)="""RTN"",""PSBMLLKU"",39,0)"
^XMB(3.9,98,2,4086,0)=" ..S PSBXORDN=$$GET1^DIQ(53.79,PSBIEN_"","",.11) Q:'$D(^PSB(53.79,""AORDX"",DFN,PSBXORDN,PSBSRCH))"
^XMB(3.9,98,2,4087,0)="""RTN"",""PSBMLLKU"",40,0)"
^XMB(3.9,98,2,4088,0)=" ..Q:($$GET1^DIQ(53.79,PSBIEN_"","",.06,""I"")>PSBSRCH)"
^XMB(3.9,98,2,4089,0)="""RTN"",""PSBMLLKU"",41,0)"
^XMB(3.9,98,2,4090,0)=" ..Q:($$GET1^DIQ(53.79,PSBIEN_"","",.09,""I"")=""N"")"
^XMB(3.9,98,2,4091,0)="""RTN"",""PSBMLLKU"",42,0)"
^XMB(3.9,98,2,4092,0)=" ..S PSBCNT=PSBCNT+1,RESULTS(PSBCNT)=PSBIEN"
^XMB(3.9,98,2,4093,0)="""RTN"",""PSBMLLKU"",43,0)"
^XMB(3.9,98,2,4094,0)=" ..S $P(RESULTS(PSBCNT),U,2)=PSBSRCH"
^XMB(3.9,98,2,4095,0)="""RTN"",""PSBMLLKU"",44,0)"
^XMB(3.9,98,2,4096,0)=" ..S $P(RESULTS(PSBCNT),U,3)=$$GET1^DIQ(53.79,PSBIEN_"","",.08)"
^XMB(3.9,98,2,4097,0)="""RTN"",""PSBMLLKU"",45,0)"
^XMB(3.9,98,2,4098,0)=" ..S:$$GET1^DIQ(53.79,PSBIEN_"","",.26) $P(RESULTS(PSBCNT),U,4)=$$GET1^DIQ(53.79,PSBIEN_"","",.26)"
^XMB(3.9,98,2,4099,0)="""RTN"",""PSBMLLKU"",46,0)"
^XMB(3.9,98,2,4100,0)=" ..S $P(RESULTS(PSBCNT),U,5)=$S($$GET1^DIQ(53.79,PSBIEN_"","",.09,""I"")']"""":""U"",1:$$GET1^DIQ(53.79,PSBIEN_"","",.09,""I""))"
^XMB(3.9,98,2,4101,0)="""RTN"",""PSBMLLKU"",47,0)"
^XMB(3.9,98,2,4102,0)=" ..D  ; Get order information"
^XMB(3.9,98,2,4103,0)="""RTN"",""PSBMLLKU"",48,0)"
^XMB(3.9,98,2,4104,0)=" ...K ^TMP(""PSJ1"",$J) D EN^PSJBCMA1(DFN,PSBXORDN,1)"
^XMB(3.9,98,2,4105,0)="""RTN"",""PSBMLLKU"",49,0)"
^XMB(3.9,98,2,4106,0)=" ...S $P(RESULTS(PSBCNT),U,3)=$P(^TMP(""PSJ1"",$J,2),U,2)  ;OItem_"" ""_Dosage Form"
^XMB(3.9,98,2,4107,0)="""RTN"",""PSBMLLKU"",50,0)"
^XMB(3.9,98,2,4108,0)=" ...S $P(RESULTS(PSBCNT),U,6)=$P(^TMP(""PSJ1"",$J,4),U)    ;Sched Type"
^XMB(3.9,98,2,4109,0)="""RTN"",""PSBMLLKU"",51,0)"
^XMB(3.9,98,2,4110,0)=" ...K ^TMP(""PSJ1"",$J)"
^XMB(3.9,98,2,4111,0)="""RTN"",""PSBMLLKU"",52,0)"
^XMB(3.9,98,2,4112,0)=" ..S $P(RESULTS(PSBCNT),U,7)=$$GET1^DIQ(53.79,PSBIEN_"","",.06,""I"")"
^XMB(3.9,98,2,4113,0)="""RTN"",""PSBMLLKU"",53,0)"
^XMB(3.9,98,2,4114,0)=" ..S $P(RESULTS(PSBCNT),U,8)=$$GET1^DIQ(53.79,PSBIEN_"","",""ACTION BY:INITIAL"")"
^XMB(3.9,98,2,4115,0)="""RTN"",""PSBMLLKU"",54,0)"
^XMB(3.9,98,2,4116,0)=" ..S:$D(^PSB(53.79,PSBIEN,.2)) $P(RESULTS(PSBCNT),U,9)=$P(^PSB(53.79,PSBIEN,.2),U),$P(RESULTS(PSBCNT),U,10)=$P(^PSB(53.79,PSBIEN,.2),U,2)"
^XMB(3.9,98,2,4117,0)="""RTN"",""PSBMLLKU"",55,0)"
^XMB(3.9,98,2,4118,0)=" S:+$G(RESULTS(1))>0 $P(RESULTS(0),U)=PSBCNT"
^XMB(3.9,98,2,4119,0)="""RTN"",""PSBMLLKU"",56,0)"
^XMB(3.9,98,2,4120,0)=" Q"
^XMB(3.9,98,2,4121,0)="""RTN"",""PSBMLLKU"",57,0)"
^XMB(3.9,98,2,4122,0)=" ;"
^XMB(3.9,98,2,4123,0)="""RTN"",""PSBMLLKU"",58,0)"
^XMB(3.9,98,2,4124,0)="CHKKEY(PSBIENX) ;"
^XMB(3.9,98,2,4125,0)="""RTN"",""PSBMLLKU"",59,0)"
^XMB(3.9,98,2,4126,0)=" I '(($D(^XUSEC(""PSB MANAGER"",DUZ)))!($$GET1^DIQ(53.79,+PSBIENX,.07,""I"")=DUZ)) Q 0"
^XMB(3.9,98,2,4127,0)="""RTN"",""PSBMLLKU"",60,0)"
^XMB(3.9,98,2,4128,0)=" Q 1"
^XMB(3.9,98,2,4129,0)="""RTN"",""PSBMLLKU"",61,0)"
^XMB(3.9,98,2,4130,0)=" ;"
^XMB(3.9,98,2,4131,0)="""RTN"",""PSBMLLKU"",62,0)"
^XMB(3.9,98,2,4132,0)="PTLKUP(RESULTS,PSBREC) ; Patient lookup handled separately for security"
^XMB(3.9,98,2,4133,0)="""RTN"",""PSBMLLKU"",63,0)"
^XMB(3.9,98,2,4134,0)=" ;   input - PSBREC (array)  User entered patient lookup data"
^XMB(3.9,98,2,4135,0)="""RTN"",""PSBMLLKU"",64,0)"
^XMB(3.9,98,2,4136,0)=" ;"
^XMB(3.9,98,2,4137,0)="""RTN"",""PSBMLLKU"",65,0)"
^XMB(3.9,98,2,4138,0)=" ;   outpt - RESULTS (array)"
^XMB(3.9,98,2,4139,0)="""RTN"",""PSBMLLKU"",66,0)"
^XMB(3.9,98,2,4140,0)=" ;          (Person(s) in PATIENT File (#2) meeting search criteria)"
^XMB(3.9,98,2,4141,0)="""RTN"",""PSBMLLKU"",67,0)"
^XMB(3.9,98,2,4142,0)=" ;"
^XMB(3.9,98,2,4143,0)="""RTN"",""PSBMLLKU"",68,0)"
^XMB(3.9,98,2,4144,0)=" ;"
^XMB(3.9,98,2,4145,0)="""RTN"",""PSBMLLKU"",69,0)"
^XMB(3.9,98,2,4146,0)=" K RESULTS"
^XMB(3.9,98,2,4147,0)="""RTN"",""PSBMLLKU"",70,0)"
^XMB(3.9,98,2,4148,0)=" S PSBDATA=$E(PSBREC(1),1,30)"
^XMB(3.9,98,2,4149,0)="""RTN"",""PSBMLLKU"",71,0)"
^XMB(3.9,98,2,4150,0)=" N PSBINDX"
^XMB(3.9,98,2,4151,0)="""RTN"",""PSBMLLKU"",72,0)"
^XMB(3.9,98,2,4152,0)=" S PSBINDX=$S(PSBDATA?9N.1P:""SSN"",PSBDATA?4N.1P:""BS5^BS"",1:"""")"
^XMB(3.9,98,2,4153,0)="""RTN"",""PSBMLLKU"",73,0)"
^XMB(3.9,98,2,4154,0)=" D FIND^DIC(2,"""",""@;.01;.02;.03;.09"",""MP"",PSBDATA,200,PSBINDX)"
^XMB(3.9,98,2,4155,0)="""RTN"",""PSBMLLKU"",74,0)"
^XMB(3.9,98,2,4156,0)=" I $P($G(^TMP(""DILIST"",$J,0)),U,3) D  Q"
^XMB(3.9,98,2,4157,0)="""RTN"",""PSBMLLKU"",75,0)"
^XMB(3.9,98,2,4158,0)=" .S RESULTS(0)=1,RESULTS(1)=""-1^Too many patients found matching '""_PSBDATA_""'. Please be more specific."""
^XMB(3.9,98,2,4159,0)="""RTN"",""PSBMLLKU"",76,0)"
^XMB(3.9,98,2,4160,0)=" I $D(^TMP(""DILIST"",$J,0)) D"
^XMB(3.9,98,2,4161,0)="""RTN"",""PSBMLLKU"",77,0)"
^XMB(3.9,98,2,4162,0)=" .F PSBXX=0:0 S PSBXX=$O(^TMP(""DILIST"",$J,PSBXX)) Q:'PSBXX  D"
^XMB(3.9,98,2,4163,0)="""RTN"",""PSBMLLKU"",78,0)"
^XMB(3.9,98,2,4164,0)=" ..S RESULTS(PSBXX)=$$PTREC(+^TMP(""DILIST"",$J,PSBXX,0))"
^XMB(3.9,98,2,4165,0)="""RTN"",""PSBMLLKU"",79,0)"
^XMB(3.9,98,2,4166,0)=" I '$D(RESULTS) S RESULTS(0)=1,RESULTS(1)=""-1^No patients matching '""_PSBDATA_""'"""
^XMB(3.9,98,2,4167,0)="""RTN"",""PSBMLLKU"",80,0)"
^XMB(3.9,98,2,4168,0)=" E  S RESULTS(0)=+$O(RESULTS(""""),-1)"
^XMB(3.9,98,2,4169,0)="""RTN"",""PSBMLLKU"",81,0)"
^XMB(3.9,98,2,4170,0)=" Q"
^XMB(3.9,98,2,4171,0)="""RTN"",""PSBMLLKU"",82,0)"
^XMB(3.9,98,2,4172,0)=" ;"
^XMB(3.9,98,2,4173,0)="""RTN"",""PSBMLLKU"",83,0)"
^XMB(3.9,98,2,4174,0)="PTREC(DFN) ;"
^XMB(3.9,98,2,4175,0)="""RTN"",""PSBMLLKU"",84,0)"
^XMB(3.9,98,2,4176,0)=" ; Extrinsic to return a Pt Rec  in standard list format"
^XMB(3.9,98,2,4177,0)="""RTN"",""PSBMLLKU"",85,0)"
^XMB(3.9,98,2,4178,0)=" N PSBXX"
^XMB(3.9,98,2,4179,0)="""RTN"",""PSBMLLKU"",86,0)"
^XMB(3.9,98,2,4180,0)=" S PSBXX=$G(^DPT(DFN,0))"
^XMB(3.9,98,2,4181,0)="""RTN"",""PSBMLLKU"",87,0)"
^XMB(3.9,98,2,4182,0)=" S PSBXX=DFN_U_$P(PSBXX,U,1)_U_$P(PSBXX,U,2)_U_$P(PSBXX,U,3)_U_$P(PSBXX,U,9)"
^XMB(3.9,98,2,4183,0)="""RTN"",""PSBMLLKU"",88,0)"
^XMB(3.9,98,2,4184,0)=" S $P(PSBXX,U,6)=$$GET1^DIQ(2,DFN_"","",.1)"
^XMB(3.9,98,2,4185,0)="""RTN"",""PSBMLLKU"",89,0)"
^XMB(3.9,98,2,4186,0)=" S $P(PSBXX,U,7)=$$GET1^DIQ(2,DFN_"","",.101)"
^XMB(3.9,98,2,4187,0)="""RTN"",""PSBMLLKU"",90,0)"
^XMB(3.9,98,2,4188,0)=" S $P(PSBXX,U,10)=$$DOB^DPTLK1(DFN)"
^XMB(3.9,98,2,4189,0)="""RTN"",""PSBMLLKU"",91,0)"
^XMB(3.9,98,2,4190,0)=" S $P(PSBXX,U,11)=$$SSN^DPTLK1(DFN)"
^XMB(3.9,98,2,4191,0)="""RTN"",""PSBMLLKU"",92,0)"
^XMB(3.9,98,2,4192,0)=" Q PSBXX"
^XMB(3.9,98,2,4193,0)="""RTN"",""PSBMLLKU"",93,0)"
^XMB(3.9,98,2,4194,0)=" ;"
^XMB(3.9,98,2,4195,0)="""RTN"",""PSBMLLKU"",94,0)"
^XMB(3.9,98,2,4196,0)="SELECTAD(RESULTS,PSBREC) ; Select Administration"
^XMB(3.9,98,2,4197,0)="""RTN"",""PSBMLLKU"",95,0)"
^XMB(3.9,98,2,4198,0)=" ;"
^XMB(3.9,98,2,4199,0)="""RTN"",""PSBMLLKU"",96,0)"
^XMB(3.9,98,2,4200,0)=" ;  Process the SELECTed ADministration"
^XMB(3.9,98,2,4201,0)="""RTN"",""PSBMLLKU"",97,0)"
^XMB(3.9,98,2,4202,0)=" ;   input - PSBREC(1) = PSB Med Log File (#53.79) IEN"
^XMB(3.9,98,2,4203,0)="""RTN"",""PSBMLLKU"",98,0)"
^XMB(3.9,98,2,4204,0)=" ;"
^XMB(3.9,98,2,4205,0)="""RTN"",""PSBMLLKU"",99,0)"
^XMB(3.9,98,2,4206,0)=" ;"
^XMB(3.9,98,2,4207,0)="""RTN"",""PSBMLLKU"",100,0)"
^XMB(3.9,98,2,4208,0)=" ;   outpt - RESULTS (array)"
^XMB(3.9,98,2,4209,0)="""RTN"",""PSBMLLKU"",101,0)"
^XMB(3.9,98,2,4210,0)=" ;          (Administration data that can be subsequently updated via GUI MED LOG EDIT)"
^XMB(3.9,98,2,4211,0)="""RTN"",""PSBMLLKU"",102,0)"
^XMB(3.9,98,2,4212,0)=" ;"
^XMB(3.9,98,2,4213,0)="""RTN"",""PSBMLLKU"",103,0)"
^XMB(3.9,98,2,4214,0)=" ;"
^XMB(3.9,98,2,4215,0)="""RTN"",""PSBMLLKU"",104,0)"
^XMB(3.9,98,2,4216,0)=" K RESULTS,PSBXIV,PSBPTCHX"
^XMB(3.9,98,2,4217,0)="""RTN"",""PSBMLLKU"",105,0)"
^XMB(3.9,98,2,4218,0)=" N PSBIEN,PSBCNT,PSBX S PSBIEN=PSBREC(1),PSBCNT=2"
^XMB(3.9,98,2,4219,0)="""RTN"",""PSBMLLKU"",106,0)"
^XMB(3.9,98,2,4220,0)=" ; Construct form data    Patient^SSN^Med^BagID^AdminStat^AdminD/T^InjctSt^PRNReas^PRNEff^DisDrg^UntsGiven^Unt^"
^XMB(3.9,98,2,4221,0)="""RTN"",""PSBMLLKU"",107,0)"
^XMB(3.9,98,2,4222,0)=" S RESULTS(0)=0"
^XMB(3.9,98,2,4223,0)="""RTN"",""PSBMLLKU"",108,0)"
^XMB(3.9,98,2,4224,0)=" D:$$CHKKEY(PSBIEN)"
^XMB(3.9,98,2,4225,0)="""RTN"",""PSBMLLKU"",109,0)"
^XMB(3.9,98,2,4226,0)=" .L +^PSB(53.79,PSBIEN):1"
^XMB(3.9,98,2,4227,0)="""RTN"",""PSBMLLKU"",110,0)"
^XMB(3.9,98,2,4228,0)=" .E  I $P(^PSB(53.79,PSBIEN,0),U,9)]"""" S PSBCNT=1,RESULTS(1)=""-1^ This administration is being modified by another process at this moment."" L -^PSB(53.79,PSBIEN) Q"
^XMB(3.9,98,2,4229,0)="""RTN"",""PSBMLLKU"",111,0)"
^XMB(3.9,98,2,4230,0)=" .S $P(RESULTS(1),U)=PSBIEN"
^XMB(3.9,98,2,4231,0)="""RTN"",""PSBMLLKU"",112,0)"
^XMB(3.9,98,2,4232,0)=" .S $P(RESULTS(1),U,2)=$$GET1^DIQ(53.79,PSBIEN_"","",.01,""I"")"
^XMB(3.9,98,2,4233,0)="""RTN"",""PSBMLLKU"",113,0)"
^XMB(3.9,98,2,4234,0)=" .S $P(RESULTS(1),U,3)=$$GET1^DIQ(53.79,PSBIEN_"","",.01)"
^XMB(3.9,98,2,4235,0)="""RTN"",""PSBMLLKU"",114,0)"
^XMB(3.9,98,2,4236,0)=" .S $P(RESULTS(1),U,4)=$$GET1^DIQ(2,$P(RESULTS(1),U,2)_"","",.09)"
^XMB(3.9,98,2,4237,0)="""RTN"",""PSBMLLKU"",115,0)"
^XMB(3.9,98,2,4238,0)=" .S $P(RESULTS(1),U,5)=$$GET1^DIQ(53.79,PSBIEN_"","",.08,""I"")_""~""_$$GET1^DIQ(53.79,PSBIEN_"","",.08)"
^XMB(3.9,98,2,4239,0)="""RTN"",""PSBMLLKU"",116,0)"
^XMB(3.9,98,2,4240,0)=" .S $P(RESULTS(1),U,6)=$$GET1^DIQ(53.79,PSBIEN_"","",.26)"
^XMB(3.9,98,2,4241,0)="""RTN"",""PSBMLLKU"",117,0)"
^XMB(3.9,98,2,4242,0)=" .S $P(RESULTS(1),U,7)=$S($$GET1^DIQ(53.79,PSBIEN_"","",.09,""I"")']"""":""U"",1:$$GET1^DIQ(53.79,PSBIEN_"","",.09,""I""))"
^XMB(3.9,98,2,4243,0)="""RTN"",""PSBMLLKU"",118,0)"
^XMB(3.9,98,2,4244,0)=" .;"
^XMB(3.9,98,2,4245,0)="""RTN"",""PSBMLLKU"",119,0)"
^XMB(3.9,98,2,4246,0)=" .D:($P(RESULTS(1),U,7)'=""N"")&($P(RESULTS(1),U,7)]"""") SELSTTUS(.RESULTS)  ; Amend RESULTS(1) data..."
^XMB(3.9,98,2,4247,0)="""RTN"",""PSBMLLKU"",120,0)"
^XMB(3.9,98,2,4248,0)=" .S Y=$E($$GET1^DIQ(53.79,PSBIEN_"","",.06,""I""),1,12) D DD^%DT"
^XMB(3.9,98,2,4249,0)="""RTN"",""PSBMLLKU"",121,0)"
^XMB(3.9,98,2,4250,0)=" .S $P(RESULTS(1),U,8)=Y"
^XMB(3.9,98,2,4251,0)="""RTN"",""PSBMLLKU"",122,0)"
^XMB(3.9,98,2,4252,0)=" .S $P(RESULTS(1),U,9)=$$GET1^DIQ(53.79,PSBIEN_"","",.06,""I"")"
^XMB(3.9,98,2,4253,0)="""RTN"",""PSBMLLKU"",123,0)"
^XMB(3.9,98,2,4254,0)=" .S $P(RESULTS(1),U,10)=$$GET1^DIQ(53.79,PSBIEN_"","",.16)"
^XMB(3.9,98,2,4255,0)="""RTN"",""PSBMLLKU"",124,0)"
^XMB(3.9,98,2,4256,0)=" .S $P(RESULTS(1),U,16)=0"
^XMB(3.9,98,2,4257,0)="""RTN"",""PSBMLLKU"",125,0)"
^XMB(3.9,98,2,4258,0)=" .S $P(RESULTS(2),U)=$$GET1^DIQ(53.79,PSBIEN_"","",.21),$P(RESULTS(2),U,2)=$$GET1^DIQ(53.79,PSBIEN_"","",.22)"
^XMB(3.9,98,2,4259,0)="""RTN"",""PSBMLLKU"",126,0)"
^XMB(3.9,98,2,4260,0)=" .; Determine if there are any active IVs/Patchs per order"
^XMB(3.9,98,2,4261,0)="""RTN"",""PSBMLLKU"",127,0)"
^XMB(3.9,98,2,4262,0)=" .D:$G(PSBPTCHX)"
^XMB(3.9,98,2,4263,0)="""RTN"",""PSBMLLKU"",128,0)"
^XMB(3.9,98,2,4264,0)=" ..S PSBX="""",PSBX=""^PSB(53.79,""""APATCH"""",""_$P(RESULTS(1),U,2)_"")"""
^XMB(3.9,98,2,4265,0)="""RTN"",""PSBMLLKU"",129,0)"
^XMB(3.9,98,2,4266,0)=" ..F  S PSBX=$Q(@PSBX) Q:PSBX=""""  Q:$QS(PSBX,3)'=$P(RESULTS(1),U,2)  D  Q:$P(RESULTS(1),U,16)"
^XMB(3.9,98,2,4267,0)="""RTN"",""PSBMLLKU"",130,0)"
^XMB(3.9,98,2,4268,0)=" ...S PSBXX=$QS(PSBX,5),PSBXXX=$S(($P(^PSB(53.79,PSBXX,0),U,9)=""G"")&(PSBXX'=PSBIEN):1,1:0)"
^XMB(3.9,98,2,4269,0)="""RTN"",""PSBMLLKU"",131,0)"
^XMB(3.9,98,2,4270,0)=" ...I PSBXXX&($P(^PSB(53.79,PSBXX,.1),U)=$P(RESULTS(1),U,15)) S $P(RESULTS(1),U,16)=1"
^XMB(3.9,98,2,4271,0)="""RTN"",""PSBMLLKU"",132,0)"
^XMB(3.9,98,2,4272,0)=" .D:$G(PSBXIV)"
^XMB(3.9,98,2,4273,0)="""RTN"",""PSBMLLKU"",133,0)"
^XMB(3.9,98,2,4274,0)=" ..S PSBX="""",PSBX=""^PSB(53.79,""""AUID"""",""_$P(RESULTS(1),U,2)_"")"""
^XMB(3.9,98,2,4275,0)="""RTN"",""PSBMLLKU"",134,0)"
^XMB(3.9,98,2,4276,0)=" ..F  S PSBX=$Q(@PSBX) Q:PSBX=""""  Q:$QS(PSBX,3)'=$P(RESULTS(1),U,2)  Q:$QS(PSBX,4)>$P(RESULTS(1),U,15)  D  Q:$P(RESULTS(1),U,16)"
^XMB(3.9,98,2,4277,0)="""RTN"",""PSBMLLKU"",135,0)"
^XMB(3.9,98,2,4278,0)=" ...Q:$QS(PSBX,4)'=$P(RESULTS(1),U,15)"
^XMB(3.9,98,2,4279,0)="""RTN"",""PSBMLLKU"",136,0)"
^XMB(3.9,98,2,4280,0)=" ...S PSBXX=$QS(PSBX,6) S:(PSBXX'=PSBIEN) $P(RESULTS(1),U,16)=$S($P(^PSB(53.79,PSBXX,0),U,9)=""I"":1,$P(^PSB(53.79,PSBXX,0),U,9)=""S"":1,1:0)"
^XMB(3.9,98,2,4281,0)="""RTN"",""PSBMLLKU"",137,0)"
^XMB(3.9,98,2,4282,0)=" .;"
^XMB(3.9,98,2,4283,0)="""RTN"",""PSBMLLKU"",138,0)"
^XMB(3.9,98,2,4284,0)=" .; LOOP - Place DD in RESULTS"
^XMB(3.9,98,2,4285,0)="""RTN"",""PSBMLLKU"",139,0)"
^XMB(3.9,98,2,4286,0)=" .S PSBX=0 F  S PSBX=$O(^PSB(53.79,PSBIEN,.5,PSBX)) Q:'(+PSBX)  D"
^XMB(3.9,98,2,4287,0)="""RTN"",""PSBMLLKU"",140,0)"
^XMB(3.9,98,2,4288,0)=" ..S PSBCNT=PSBCNT+1"
^XMB(3.9,98,2,4289,0)="""RTN"",""PSBMLLKU"",141,0)"
^XMB(3.9,98,2,4290,0)=" ..S RESULTS(PSBCNT)=""DD^""_$P(^PSB(53.79,PSBIEN,.5,PSBX,0),U)_""^""_$$GET1^DIQ(50,$P(^PSB(53.79,PSBIEN,.5,PSBX,0),U)_"","",.01)"
^XMB(3.9,98,2,4291,0)="""RTN"",""PSBMLLKU"",142,0)"
^XMB(3.9,98,2,4292,0)=" ..S $P(RESULTS(PSBCNT),U,4)=$P(^PSB(53.79,PSBIEN,.5,PSBX,0),U,2)_""^""_$P(^PSB(53.79,PSBIEN,.5,PSBX,0),U,3)_""^""_$P(^PSB(53.79,PSBIEN,.5,PSBX,0),U,4)"
^XMB(3.9,98,2,4293,0)="""RTN"",""PSBMLLKU"",143,0)"
^XMB(3.9,98,2,4294,0)=" ..S:$P(RESULTS(PSBCNT),U,4)?1"".""1.N $P(RESULTS(PSBCNT),U,4)=0_+$P(RESULTS(PSBCNT),U,4)"
^XMB(3.9,98,2,4295,0)="""RTN"",""PSBMLLKU"",144,0)"
^XMB(3.9,98,2,4296,0)=" ..S:$P(RESULTS(PSBCNT),U,5)?1"".""1.N $P(RESULTS(PSBCNT),U,5)=0_+$P(RESULTS(PSBCNT),U,5)"
^XMB(3.9,98,2,4297,0)="""RTN"",""PSBMLLKU"",145,0)"
^XMB(3.9,98,2,4298,0)=" .; LOOP - Place ADD in RESULTS"
^XMB(3.9,98,2,4299,0)="""RTN"",""PSBMLLKU"",146,0)"
^XMB(3.9,98,2,4300,0)=" .S PSBX=0 F  S PSBX=$O(^PSB(53.79,PSBIEN,.6,PSBX)) Q:'(+PSBX)  D"
^XMB(3.9,98,2,4301,0)="""RTN"",""PSBMLLKU"",147,0)"
^XMB(3.9,98,2,4302,0)=" ..S PSBCNT=PSBCNT+1"
^XMB(3.9,98,2,4303,0)="""RTN"",""PSBMLLKU"",148,0)"
^XMB(3.9,98,2,4304,0)=" ..S RESULTS(PSBCNT)=""ADD^""_$P(^PSB(53.79,PSBIEN,.6,PSBX,0),U)_""^""_$$GET1^DIQ(52.6,$P(^PSB(53.79,PSBIEN,.6,PSBX,0),U)_"","",.01)"
^XMB(3.9,98,2,4305,0)="""RTN"",""PSBMLLKU"",149,0)"
^XMB(3.9,98,2,4306,0)=" ..S $P(RESULTS(PSBCNT),U,4)=$P(^PSB(53.79,PSBIEN,.6,PSBX,0),U,2)_""^""_$P(^PSB(53.79,PSBIEN,.6,PSBX,0),U,3)_""^""_$P(^PSB(53.79,PSBIEN,.6,PSBX,0),U,4)"
^XMB(3.9,98,2,4307,0)="""RTN"",""PSBMLLKU"",150,0)"
^XMB(3.9,98,2,4308,0)=" .; LOOP - Place SOL in RESULTS"
^XMB(3.9,98,2,4309,0)="""RTN"",""PSBMLLKU"",151,0)"
^XMB(3.9,98,2,4310,0)=" .S PSBX=0 F  S PSBX=$O(^PSB(53.79,PSBIEN,.7,PSBX)) Q:'(+PSBX)  D"
^XMB(3.9,98,2,4311,0)="""RTN"",""PSBMLLKU"",152,0)"
^XMB(3.9,98,2,4312,0)=" ..S PSBCNT=PSBCNT+1"
^XMB(3.9,98,2,4313,0)="""RTN"",""PSBMLLKU"",153,0)"
^XMB(3.9,98,2,4314,0)=" ..S RESULTS(PSBCNT)=""SOL^""_$P(^PSB(53.79,PSBIEN,.7,PSBX,0),U)_""^""_$$GET1^DIQ(52.7,$P(^PSB(53.79,PSBIEN,.7,PSBX,0),U)_"","",.01)"
^XMB(3.9,98,2,4315,0)="""RTN"",""PSBMLLKU"",154,0)"
^XMB(3.9,98,2,4316,0)=" ..S $P(RESULTS(PSBCNT),U,4)=$P(^PSB(53.79,PSBIEN,.7,PSBX,0),U,2)_""^""_$P(^PSB(53.79,PSBIEN,.7,PSBX,0),U,3)_""^""_$P(^PSB(53.79,PSBIEN,.7,PSBX,0),U,4)"
^XMB(3.9,98,2,4317,0)="""RTN"",""PSBMLLKU"",155,0)"
^XMB(3.9,98,2,4318,0)=" .L -^PSB(53.79,PSBIEN)"
^XMB(3.9,98,2,4319,0)="""RTN"",""PSBMLLKU"",156,0)"
^XMB(3.9,98,2,4320,0)=" S:PSBCNT>0 RESULTS(0)=PSBCNT"
^XMB(3.9,98,2,4321,0)="""RTN"",""PSBMLLKU"",157,0)"
^XMB(3.9,98,2,4322,0)=" Q"
^XMB(3.9,98,2,4323,0)="""RTN"",""PSBMLLKU"",158,0)"
^XMB(3.9,98,2,4324,0)=" ;"
^XMB(3.9,98,2,4325,0)="""RTN"",""PSBMLLKU"",159,0)"
^XMB(3.9,98,2,4326,0)="SELSTTUS(RESULTS) ;"
^XMB(3.9,98,2,4327,0)="""RTN"",""PSBMLLKU"",160,0)"
^XMB(3.9,98,2,4328,0)=" ; Provide the SELectable STaTUS"
^XMB(3.9,98,2,4329,0)="""RTN"",""PSBMLLKU"",161,0)"
^XMB(3.9,98,2,4330,0)=" ;"
^XMB(3.9,98,2,4331,0)="""RTN"",""PSBMLLKU"",162,0)"
^XMB(3.9,98,2,4332,0)=" ; Get TAB, ScheduleType, Current Status, provide Selectable Staus(s) in ^8"
^XMB(3.9,98,2,4333,0)="""RTN"",""PSBMLLKU"",163,0)"
^XMB(3.9,98,2,4334,0)=" N PSBORTYP,PSBIVTYP,PSBINTSY,PSBCHMTY,PSBMROUT,PSBXTAB"
^XMB(3.9,98,2,4335,0)="""RTN"",""PSBMLLKU"",164,0)"
^XMB(3.9,98,2,4336,0)=" K ^TMP(""PSJ1"",$J) D EN^PSJBCMA1($$GET1^DIQ(53.79,PSBIEN_"","",.01,""I""),$$GET1^DIQ(53.79,PSBIEN_"","",.11),1)"
^XMB(3.9,98,2,4337,0)="""RTN"",""PSBMLLKU"",165,0)"
^XMB(3.9,98,2,4338,0)=" I ^TMP(""PSJ1"",$J,0)>0 D"
^XMB(3.9,98,2,4339,0)="""RTN"",""PSBMLLKU"",166,0)"
^XMB(3.9,98,2,4340,0)=" .S PSBORTYP=$TR($P(^TMP(""PSJ1"",$J,0),U,3),""1234567890""),PSBIVTYP=$P(^TMP(""PSJ1"",$J,0),U,6)"
^XMB(3.9,98,2,4341,0)="""RTN"",""PSBMLLKU"",167,0)"
^XMB(3.9,98,2,4342,0)=" .S PSBINTSY=$P(^TMP(""PSJ1"",$J,0),U,7),PSBCHMTY=$P(^TMP(""PSJ1"",$J,0),U,8),PSBMROUT=$P(^TMP(""PSJ1"",$J,1),U,4)"
^XMB(3.9,98,2,4343,0)="""RTN"",""PSBMLLKU"",168,0)"
^XMB(3.9,98,2,4344,0)=" .S:$$IVPTAB^PSBVDLU3(PSBORTYP,PSBIVTYP,PSBINTSY,PSBCHMTY,PSBMROUT) PSBXTAB=""PB"""
^XMB(3.9,98,2,4345,0)="""RTN"",""PSBMLLKU"",169,0)"
^XMB(3.9,98,2,4346,0)=" .D:'$D(PSBXTAB)"
^XMB(3.9,98,2,4347,0)="""RTN"",""PSBMLLKU"",170,0)"
^XMB(3.9,98,2,4348,0)=" ..I PSBORTYP=""U"" S PSBXTAB=""UD"""
^XMB(3.9,98,2,4349,0)="""RTN"",""PSBMLLKU"",171,0)"
^XMB(3.9,98,2,4350,0)=" ..I PSBORTYP=""V"" S PSBXTAB=""IV"""
^XMB(3.9,98,2,4351,0)="""RTN"",""PSBMLLKU"",172,0)"
^XMB(3.9,98,2,4352,0)=" ; Set Results(1) and other flags..."
^XMB(3.9,98,2,4353,0)="""RTN"",""PSBMLLKU"",173,0)"
^XMB(3.9,98,2,4354,0)=" I ^TMP(""PSJ1"",$J,0)>0 D"
^XMB(3.9,98,2,4355,0)="""RTN"",""PSBMLLKU"",174,0)"
^XMB(3.9,98,2,4356,0)=" .S $P(RESULTS(1),U,13)=$P(^TMP(""PSJ1"",$J,4),U)"
^XMB(3.9,98,2,4357,0)="""RTN"",""PSBMLLKU"",175,0)"
^XMB(3.9,98,2,4358,0)=" .S $P(RESULTS(1),U,14)=$P(^TMP(""PSJ1"",$J,1),U,10)"
^XMB(3.9,98,2,4359,0)="""RTN"",""PSBMLLKU"",176,0)"
^XMB(3.9,98,2,4360,0)=" .S $P(RESULTS(1),U,15)=$P(^TMP(""PSJ1"",$J,0),U,3)"
^XMB(3.9,98,2,4361,0)="""RTN"",""PSBMLLKU"",177,0)"
^XMB(3.9,98,2,4362,0)=" .I (PSBXTAB=""UD""),($P(^TMP(""PSJ1"",$J,2),U,6)=""PATCH"") S PSBPTCHX=1"
^XMB(3.9,98,2,4363,0)="""RTN"",""PSBMLLKU"",178,0)"
^XMB(3.9,98,2,4364,0)=" .I PSBXTAB=""IV"" S PSBXIV=1"
^XMB(3.9,98,2,4365,0)="""RTN"",""PSBMLLKU"",179,0)"
^XMB(3.9,98,2,4366,0)=" .S:$G(PSBXTAB)]"""" $P(RESULTS(1),U,11)=$G(PSBXTAB)"
^XMB(3.9,98,2,4367,0)="""RTN"",""PSBMLLKU"",180,0)"
^XMB(3.9,98,2,4368,0)=" K ^TMP(""PSJ1"",$J)"
^XMB(3.9,98,2,4369,0)="""RTN"",""PSBMLLKU"",181,0)"
^XMB(3.9,98,2,4370,0)=" Q"
^XMB(3.9,98,2,4371,0)="""RTN"",""PSBMLLKU"",182,0)"
^XMB(3.9,98,2,4372,0)=" ;"
^XMB(3.9,98,2,4373,0)="""RTN"",""PSBMLLKU"",183,0)"
^XMB(3.9,98,2,4374,0)="KILLAADT ;"
^XMB(3.9,98,2,4375,0)="""RTN"",""PSBMLLKU"",184,0)"
^XMB(3.9,98,2,4376,0)=" ;   Here because there is an errorant index entry via version 1.0/2.0"
^XMB(3.9,98,2,4377,0)="""RTN"",""PSBMLLKU"",185,0)"
^XMB(3.9,98,2,4378,0)=" ;   Cleansing!"
^XMB(3.9,98,2,4379,0)="""RTN"",""PSBMLLKU"",186,0)"
^XMB(3.9,98,2,4380,0)=" ;"
^XMB(3.9,98,2,4381,0)="""RTN"",""PSBMLLKU"",187,0)"
^XMB(3.9,98,2,4382,0)=" K ^PSB(53.79,""AADT"",DFN,PSBSRCH,PSBIEN)"
^XMB(3.9,98,2,4383,0)="""RTN"",""PSBMLLKU"",188,0)"
^XMB(3.9,98,2,4384,0)=" Q"
^XMB(3.9,98,2,4385,0)="""RTN"",""PSBMLLKU"",189,0)"
^XMB(3.9,98,2,4386,0)=" ;"
^XMB(3.9,98,2,4387,0)="""RTN"",""PSBMLU"")"
^XMB(3.9,98,2,4388,0)="0^15^B6301609^B5930177"
^XMB(3.9,98,2,4389,0)="""RTN"",""PSBMLU"",1,0)"
^XMB(3.9,98,2,4390,0)="PSBMLU ;BIRMINGHAM/EFC-BCMA MEDICATION LOG FUNCTIONS ;Mar 2004"
^XMB(3.9,98,2,4391,0)="""RTN"",""PSBMLU"",2,0)"
^XMB(3.9,98,2,4392,0)=" ;;3.0;BAR CODE MED ADMIN;**6,11,13**;Mar 2004"
^XMB(3.9,98,2,4393,0)="""RTN"",""PSBMLU"",3,0)"
^XMB(3.9,98,2,4394,0)=" ;;"
^XMB(3.9,98,2,4395,0)="""RTN"",""PSBMLU"",4,0)"
^XMB(3.9,98,2,4396,0)=" ; Reference/IA"
^XMB(3.9,98,2,4397,0)="""RTN"",""PSBMLU"",5,0)"
^XMB(3.9,98,2,4398,0)=" ; ^XMD/10070"
^XMB(3.9,98,2,4399,0)="""RTN"",""PSBMLU"",6,0)"
^XMB(3.9,98,2,4400,0)=" ;"
^XMB(3.9,98,2,4401,0)="""RTN"",""PSBMLU"",7,0)"
^XMB(3.9,98,2,4402,0)="EN ;"
^XMB(3.9,98,2,4403,0)="""RTN"",""PSBMLU"",8,0)"
^XMB(3.9,98,2,4404,0)=" Q"
^XMB(3.9,98,2,4405,0)="""RTN"",""PSBMLU"",9,0)"
^XMB(3.9,98,2,4406,0)=" ;"
^XMB(3.9,98,2,4407,0)="""RTN"",""PSBMLU"",10,0)"
^XMB(3.9,98,2,4408,0)="AUDIT(IEN,TXT,PSBTRN) ; Append and Audit"
^XMB(3.9,98,2,4409,0)="""RTN"",""PSBMLU"",11,0)"
^XMB(3.9,98,2,4410,0)=" D NOW^%DTC"
^XMB(3.9,98,2,4411,0)="""RTN"",""PSBMLU"",12,0)"
^XMB(3.9,98,2,4412,0)=" S RDAT=%"
^XMB(3.9,98,2,4413,0)="""RTN"",""PSBMLU"",13,0)"
^XMB(3.9,98,2,4414,0)=" D:PSBTRN=""ADD COMMENT"""
^XMB(3.9,98,2,4415,0)="""RTN"",""PSBMLU"",14,0)"
^XMB(3.9,98,2,4416,0)=" . N XA"
^XMB(3.9,98,2,4417,0)="""RTN"",""PSBMLU"",15,0)"
^XMB(3.9,98,2,4418,0)=" . S XA=$O(^PSB(53.79,IEN,.3,""A""),-1)"
^XMB(3.9,98,2,4419,0)="""RTN"",""PSBMLU"",16,0)"
^XMB(3.9,98,2,4420,0)=" . S RDAT=$P(^PSB(53.79,IEN,.3,XA,0),U,3)"
^XMB(3.9,98,2,4421,0)="""RTN"",""PSBMLU"",17,0)"
^XMB(3.9,98,2,4422,0)=" D:PSBTRN=""PRN EFFECTIVENESS"" "
^XMB(3.9,98,2,4423,0)="""RTN"",""PSBMLU"",18,0)"
^XMB(3.9,98,2,4424,0)=" . S RDAT=$P(^PSB(53.79,IEN,.2),U,4)"
^XMB(3.9,98,2,4425,0)="""RTN"",""PSBMLU"",19,0)"
^XMB(3.9,98,2,4426,0)=" D:PSBTRN=""UPDATE STATUS"""
^XMB(3.9,98,2,4427,0)="""RTN"",""PSBMLU"",20,0)"
^XMB(3.9,98,2,4428,0)=" . S RDAT=$P(^PSB(53.79,IEN,0),U,6)"
^XMB(3.9,98,2,4429,0)="""RTN"",""PSBMLU"",21,0)"
^XMB(3.9,98,2,4430,0)=" D:PSBTRN=""MEDPASS"""
^XMB(3.9,98,2,4431,0)="""RTN"",""PSBMLU"",22,0)"
^XMB(3.9,98,2,4432,0)=" . S RDAT=$P(^PSB(53.79,IEN,0),U,6)"
^XMB(3.9,98,2,4433,0)="""RTN"",""PSBMLU"",23,0)"
^XMB(3.9,98,2,4434,0)=" S:'$D(^PSB(53.79,IEN,.9,0)) ^(0)=""^53.799D^^"""
^XMB(3.9,98,2,4435,0)="""RTN"",""PSBMLU"",24,0)"
^XMB(3.9,98,2,4436,0)=" S PSBAD1="""""
^XMB(3.9,98,2,4437,0)="""RTN"",""PSBMLU"",25,0)"
^XMB(3.9,98,2,4438,0)=" S PSBAD1=$O(^PSB(53.79,IEN,.9,""A""),-1)+1"
^XMB(3.9,98,2,4439,0)="""RTN"",""PSBMLU"",26,0)"
^XMB(3.9,98,2,4440,0)=" S ^PSB(53.79,IEN,.9,PSBAD1,0)=RDAT_U_DUZ_U_TXT"
^XMB(3.9,98,2,4441,0)="""RTN"",""PSBMLU"",27,0)"
^XMB(3.9,98,2,4442,0)=" Q"
^XMB(3.9,98,2,4443,0)="""RTN"",""PSBMLU"",28,0)"
^XMB(3.9,98,2,4444,0)=" ;"
^XMB(3.9,98,2,4445,0)="""RTN"",""PSBMLU"",29,0)"
^XMB(3.9,98,2,4446,0)="ERROR(PSB1,PSB2,DFN,PSB3,PSB4,PSB5,PSB6,PSB7) ;"
^XMB(3.9,98,2,4447,0)="""RTN"",""PSBMLU"",30,0)"
^XMB(3.9,98,2,4448,0)=" ; PSB1 = order #"
^XMB(3.9,98,2,4449,0)="""RTN"",""PSBMLU"",31,0)"
^XMB(3.9,98,2,4450,0)=" ; PSB2 = orderable item"
^XMB(3.9,98,2,4451,0)="""RTN"",""PSBMLU"",32,0)"
^XMB(3.9,98,2,4452,0)=" ; PSB3 = message to be sent"
^XMB(3.9,98,2,4453,0)="""RTN"",""PSBMLU"",33,0)"
^XMB(3.9,98,2,4454,0)=" ; PSB4 = schedule"
^XMB(3.9,98,2,4455,0)="""RTN"",""PSBMLU"",34,0)"
^XMB(3.9,98,2,4456,0)=" ; PSB5 = action date/time"
^XMB(3.9,98,2,4457,0)="""RTN"",""PSBMLU"",35,0)"
^XMB(3.9,98,2,4458,0)=" ; PSB6 = med log ien #"
^XMB(3.9,98,2,4459,0)="""RTN"",""PSBMLU"",36,0)"
^XMB(3.9,98,2,4460,0)=" ; PSB7 = user identification"
^XMB(3.9,98,2,4461,0)="""RTN"",""PSBMLU"",37,0)"
^XMB(3.9,98,2,4462,0)=" ; Send Error Msg about problems"
^XMB(3.9,98,2,4463,0)="""RTN"",""PSBMLU"",38,0)"
^XMB(3.9,98,2,4464,0)=" S PSBMG=$$GET^XPAR(""DIV"",$S($G(PSBADMER):""PSB MG ADMIN ERROR"",1:""PSB MG DUE LIST ERROR""),,""E"")"
^XMB(3.9,98,2,4465,0)="""RTN"",""PSBMLU"",39,0)"
^XMB(3.9,98,2,4466,0)=" Q:PSBMG="""""
^XMB(3.9,98,2,4467,0)="""RTN"",""PSBMLU"",40,0)"
^XMB(3.9,98,2,4468,0)=" S PSBMSG(1)=""  The following ""_$S($G(PSBADMER):""administration"",1:""order"")_"" was NOT displayed"""
^XMB(3.9,98,2,4469,0)="""RTN"",""PSBMLU"",41,0)"
^XMB(3.9,98,2,4470,0)=" S PSBMSG(2)=""  on the Virtual Due List"""
^XMB(3.9,98,2,4471,0)="""RTN"",""PSBMLU"",42,0)"
^XMB(3.9,98,2,4472,0)=" S PSBMSG(3)="" """
^XMB(3.9,98,2,4473,0)="""RTN"",""PSBMLU"",43,0)"
^XMB(3.9,98,2,4474,0)=" S PSBMSG(4)=""  Order Number....: ""_PSB1"
^XMB(3.9,98,2,4475,0)="""RTN"",""PSBMLU"",44,0)"
^XMB(3.9,98,2,4476,0)=" S PSBMSG(5)=""  Orderable Item..: ""_PSB2"
^XMB(3.9,98,2,4477,0)="""RTN"",""PSBMLU"",45,0)"
^XMB(3.9,98,2,4478,0)=" S PSBMSG(6)=""  Patient.........: ""_$$GET1^DIQ(2,DFN_"","",.01)_"" (""_$$GET1^DIQ(2,DFN_"","",.09)_"")"""
^XMB(3.9,98,2,4479,0)="""RTN"",""PSBMLU"",46,0)"
^XMB(3.9,98,2,4480,0)=" S PSBMSG(7)=""  Ward/Bed........: ""_$$GET1^DIQ(2,DFN_"","",.1)_""/""_$$GET1^DIQ(2,DFN_"","",.101)"
^XMB(3.9,98,2,4481,0)="""RTN"",""PSBMLU"",47,0)"
^XMB(3.9,98,2,4482,0)=" S PSBMSG(8)=""  Reason..........: ""_PSB3"
^XMB(3.9,98,2,4483,0)="""RTN"",""PSBMLU"",48,0)"
^XMB(3.9,98,2,4484,0)=" S PSBMSG(9)=""  Schedule........: ""_PSB4"
^XMB(3.9,98,2,4485,0)="""RTN"",""PSBMLU"",49,0)"
^XMB(3.9,98,2,4486,0)=" I $D(PSB5) S PSBMSG(10)=""  Action Dt/Tm....: ""_PSB5"
^XMB(3.9,98,2,4487,0)="""RTN"",""PSBMLU"",50,0)"
^XMB(3.9,98,2,4488,0)=" I $D(PSB6) S PSBMSG(11)=""  BCMA Med Log IEN: ""_PSB6"
^XMB(3.9,98,2,4489,0)="""RTN"",""PSBMLU"",51,0)"
^XMB(3.9,98,2,4490,0)=" I $D(PSB7) S PSBMSG(12)=""  User............: ""_PSB7"
^XMB(3.9,98,2,4491,0)="""RTN"",""PSBMLU"",52,0)"
^XMB(3.9,98,2,4492,0)=" S XMY(""G.""_PSBMG)="""",XMTEXT=""PSBMSG("",XMSUB=""BCMA - ""_$S($G(PSBADMER):""Admin ""_$G(PSB6),1:""Order"")_"" Problem"""
^XMB(3.9,98,2,4493,0)="""RTN"",""PSBMLU"",53,0)"
^XMB(3.9,98,2,4494,0)=" K PSBADMER"
^XMB(3.9,98,2,4495,0)="""RTN"",""PSBMLU"",54,0)"
^XMB(3.9,98,2,4496,0)=" D ^XMD"
^XMB(3.9,98,2,4497,0)="""RTN"",""PSBMLU"",55,0)"
^XMB(3.9,98,2,4498,0)=" K PSB1,PSB2,PSB3,PSB4,PSBMSG,PSBMG,XMY,XMSUB,XMTEXT"
^XMB(3.9,98,2,4499,0)="""RTN"",""PSBMLU"",56,0)"
^XMB(3.9,98,2,4500,0)=" Q"
^XMB(3.9,98,2,4501,0)="""RTN"",""PSBMLU"",57,0)"
^XMB(3.9,98,2,4502,0)=" ;"
^XMB(3.9,98,2,4503,0)="""RTN"",""PSBO"")"
^XMB(3.9,98,2,4504,0)="0^17^B62943627^B63302774"
^XMB(3.9,98,2,4505,0)="""RTN"",""PSBO"",1,0)"
^XMB(3.9,98,2,4506,0)="PSBO ;BIRMINGHAM/EFC-BCMA OUTPUTS ;Mar 2004"
^XMB(3.9,98,2,4507,0)="""RTN"",""PSBO"",2,0)"
^XMB(3.9,98,2,4508,0)=" ;;3.0;BAR CODE MED ADMIN;**13**;Mar 2004"
^XMB(3.9,98,2,4509,0)="""RTN"",""PSBO"",3,0)"
^XMB(3.9,98,2,4510,0)=" ;"
^XMB(3.9,98,2,4511,0)="""RTN"",""PSBO"",4,0)"
^XMB(3.9,98,2,4512,0)=" ; Reference/IA"
^XMB(3.9,98,2,4513,0)="""RTN"",""PSBO"",5,0)"
^XMB(3.9,98,2,4514,0)=" ; ^DPT(/10035"
^XMB(3.9,98,2,4515,0)="""RTN"",""PSBO"",6,0)"
^XMB(3.9,98,2,4516,0)=" ; WARD^NURSUT5/3052"
^XMB(3.9,98,2,4517,0)="""RTN"",""PSBO"",7,0)"
^XMB(3.9,98,2,4518,0)=" ; EN^PSJBCMA/2828"
^XMB(3.9,98,2,4519,0)="""RTN"",""PSBO"",8,0)"
^XMB(3.9,98,2,4520,0)=" ; ^ORD(101.24/3429"
^XMB(3.9,98,2,4521,0)="""RTN"",""PSBO"",9,0)"
^XMB(3.9,98,2,4522,0)=" ; ^PSDRUG(/221"
^XMB(3.9,98,2,4523,0)="""RTN"",""PSBO"",10,0)"
^XMB(3.9,98,2,4524,0)=" ;"
^XMB(3.9,98,2,4525,0)="""RTN"",""PSBO"",11,0)"
^XMB(3.9,98,2,4526,0)=" ;"
^XMB(3.9,98,2,4527,0)="""RTN"",""PSBO"",12,0)"
^XMB(3.9,98,2,4528,0)="RPC(RESULTS,PSBTYPE,PSBDFN,PSBSTRT,PSBSTOP,PSBINCL,PSBDEV,PSBSORT,PSBOI,PSBWLOC,PSBWSORT,PSBFUTR,PSBORDNM) ;"
^XMB(3.9,98,2,4529,0)="""RTN"",""PSBO"",13,0)"
^XMB(3.9,98,2,4530,0)=" ;"
^XMB(3.9,98,2,4531,0)="""RTN"",""PSBO"",14,0)"
^XMB(3.9,98,2,4532,0)=" ; RPC: PSB REPORT"
^XMB(3.9,98,2,4533,0)="""RTN"",""PSBO"",15,0)"
^XMB(3.9,98,2,4534,0)=" ;"
^XMB(3.9,98,2,4535,0)="""RTN"",""PSBO"",16,0)"
^XMB(3.9,98,2,4536,0)=" ; Description:"
^XMB(3.9,98,2,4537,0)="""RTN"",""PSBO"",17,0)"
^XMB(3.9,98,2,4538,0)=" ; Used by the client to create individual patient extracts of"
^XMB(3.9,98,2,4539,0)="""RTN"",""PSBO"",18,0)"
^XMB(3.9,98,2,4540,0)=" ; CHUI report options to display on the client."
^XMB(3.9,98,2,4541,0)="""RTN"",""PSBO"",19,0)"
^XMB(3.9,98,2,4542,0)=" ;"
^XMB(3.9,98,2,4543,0)="""RTN"",""PSBO"",20,0)"
^XMB(3.9,98,2,4544,0)=" S RESULTS=$NAME(^TMP(""PSBO"",$J))"
^XMB(3.9,98,2,4545,0)="""RTN"",""PSBO"",21,0)"
^XMB(3.9,98,2,4546,0)=" N PSBIENS,PSBRPT,PSBFDA,DIC,PSBANS"
^XMB(3.9,98,2,4547,0)="""RTN"",""PSBO"",22,0)"
^XMB(3.9,98,2,4548,0)=" K ^TMP(""PSBO"",$J) S ^TMP(""PSBO"",$J,1)=""-1^"""
^XMB(3.9,98,2,4549,0)="""RTN"",""PSBO"",23,0)"
^XMB(3.9,98,2,4550,0)=" S DFN=PSBDFN"
^XMB(3.9,98,2,4551,0)="""RTN"",""PSBO"",24,0)"
^XMB(3.9,98,2,4552,0)=" D NEW^PSBO1(.PSBRPT,PSBTYPE)"
^XMB(3.9,98,2,4553,0)="""RTN"",""PSBO"",25,0)"
^XMB(3.9,98,2,4554,0)=" I +PSBRPT(0)<1 S ^TMP(""PSBO"",$J,1)=""-1^Error: ""_$P(PSBRPT(0),U,2) Q"
^XMB(3.9,98,2,4555,0)="""RTN"",""PSBO"",26,0)"
^XMB(3.9,98,2,4556,0)=" S PSBIENS=+PSBRPT(0)_"","""
^XMB(3.9,98,2,4557,0)="""RTN"",""PSBO"",27,0)"
^XMB(3.9,98,2,4558,0)=" S PSBSTRT(0)=$E($P(PSBSTRT,""."",2)_""0000"",1,4),PSBSTRT=PSBSTRT\1"
^XMB(3.9,98,2,4559,0)="""RTN"",""PSBO"",28,0)"
^XMB(3.9,98,2,4560,0)=" S PSBSTOP(0)=$E($P(PSBSTOP,""."",2)_""0000"",1,4),PSBSTOP=PSBSTOP\1"
^XMB(3.9,98,2,4561,0)="""RTN"",""PSBO"",29,0)"
^XMB(3.9,98,2,4562,0)=" D:$G(PSBDEV)]"""""
^XMB(3.9,98,2,4563,0)="""RTN"",""PSBO"",30,0)"
^XMB(3.9,98,2,4564,0)=" .D NOW^%DTC"
^XMB(3.9,98,2,4565,0)="""RTN"",""PSBO"",31,0)"
^XMB(3.9,98,2,4566,0)=" .I $P(PSBDEV,U,2)="""" D VAL^DIE(53.69,PSBIENS,.06,""F"",PSBDEV,""PSBRET"",""PSBFDA"")"
^XMB(3.9,98,2,4567,0)="""RTN"",""PSBO"",32,0)"
^XMB(3.9,98,2,4568,0)=" .I $P(PSBDEV,U,2)'="""" D VAL^DIE(53.69,PSBIENS,.06,""F"",""`""_$P(PSBDEV,U,2),""PSBRET"",""PSBFDA"")"
^XMB(3.9,98,2,4569,0)="""RTN"",""PSBO"",33,0)"
^XMB(3.9,98,2,4570,0)=" .D VAL^DIE(53.69,PSBIENS,.07,""F"",%,""PSBRET"",""PSBFDA"")"
^XMB(3.9,98,2,4571,0)="""RTN"",""PSBO"",34,0)"
^XMB(3.9,98,2,4572,0)=" D:$G(PSBOI)]"""" VAL^DIE(53.69,PSBIENS,.09,""F"",PSBOI,""PSBRET"",""PSBFDA"")"
^XMB(3.9,98,2,4573,0)="""RTN"",""PSBO"",35,0)"
^XMB(3.9,98,2,4574,0)=" S:($G(PSBSORT)']"""")&(PSBTYPE'=""XA"") PSBSORT=""P"" D VAL^DIE(53.69,PSBIENS,.11,""F"",PSBSORT,""PSBRET"",""PSBFDA"")"
^XMB(3.9,98,2,4575,0)="""RTN"",""PSBO"",36,0)"
^XMB(3.9,98,2,4576,0)=" D VAL^DIE(53.69,PSBIENS,.12,""F"",""`""_PSBDFN,""PSBRET"",""PSBFDA"")"
^XMB(3.9,98,2,4577,0)="""RTN"",""PSBO"",37,0)"
^XMB(3.9,98,2,4578,0)=" I $G(PSBWLOC)]"""" S PSBFDA(53.69,PSBIENS,.13)=PSBWLOC"
^XMB(3.9,98,2,4579,0)="""RTN"",""PSBO"",38,0)"
^XMB(3.9,98,2,4580,0)=" D:$G(PSBWSORT)]"""" VAL^DIE(53.69,PSBIENS,.15,""F"",PSBWSORT,""PSBRET"",""PSBFDA"")"
^XMB(3.9,98,2,4581,0)="""RTN"",""PSBO"",39,0)"
^XMB(3.9,98,2,4582,0)=" D VAL^DIE(53.69,PSBIENS,.16,""F"",PSBSTRT,""PSBRET"",""PSBFDA"")"
^XMB(3.9,98,2,4583,0)="""RTN"",""PSBO"",40,0)"
^XMB(3.9,98,2,4584,0)=" D VAL^DIE(53.69,PSBIENS,.17,""F"",PSBSTRT(0),""PSBRET"",""PSBFDA"")"
^XMB(3.9,98,2,4585,0)="""RTN"",""PSBO"",41,0)"
^XMB(3.9,98,2,4586,0)=" D VAL^DIE(53.69,PSBIENS,.18,""F"",PSBSTOP,""PSBRET"",""PSBFDA"")"
^XMB(3.9,98,2,4587,0)="""RTN"",""PSBO"",42,0)"
^XMB(3.9,98,2,4588,0)=" D VAL^DIE(53.69,PSBIENS,.19,""F"",PSBSTOP(0),""PSBRET"",""PSBFDA"")"
^XMB(3.9,98,2,4589,0)="""RTN"",""PSBO"",43,0)"
^XMB(3.9,98,2,4590,0)=" D:$G(PSBINCL)]"""""
^XMB(3.9,98,2,4591,0)="""RTN"",""PSBO"",44,0)"
^XMB(3.9,98,2,4592,0)=" .D VAL^DIE(53.69,PSBIENS,.21,""F"",+$P(PSBINCL,""^"",1),""PSBRET"",""PSBFDA"")"
^XMB(3.9,98,2,4593,0)="""RTN"",""PSBO"",45,0)"
^XMB(3.9,98,2,4594,0)=" .D VAL^DIE(53.69,PSBIENS,.22,""F"",+$P(PSBINCL,""^"",2),""PSBRET"",""PSBFDA"")"
^XMB(3.9,98,2,4595,0)="""RTN"",""PSBO"",46,0)"
^XMB(3.9,98,2,4596,0)=" .D VAL^DIE(53.69,PSBIENS,.23,""F"",+$P(PSBINCL,""^"",3),""PSBRET"",""PSBFDA"")"
^XMB(3.9,98,2,4597,0)="""RTN"",""PSBO"",47,0)"
^XMB(3.9,98,2,4598,0)=" .D VAL^DIE(53.69,PSBIENS,.24,""F"",+$P(PSBINCL,""^"",4),""PSBRET"",""PSBFDA"")"
^XMB(3.9,98,2,4599,0)="""RTN"",""PSBO"",48,0)"
^XMB(3.9,98,2,4600,0)=" .D VAL^DIE(53.69,PSBIENS,.28,""F"",+$P(PSBINCL,""^"",5),""PSBRET"",""PSBFDA"")"
^XMB(3.9,98,2,4601,0)="""RTN"",""PSBO"",49,0)"
^XMB(3.9,98,2,4602,0)=" .D VAL^DIE(53.69,PSBIENS,.29,""F"",+$P(PSBINCL,""^"",6),""PSBRET"",""PSBFDA"")"
^XMB(3.9,98,2,4603,0)="""RTN"",""PSBO"",50,0)"
^XMB(3.9,98,2,4604,0)=" D:$G(PSBFUTR)]"""""
^XMB(3.9,98,2,4605,0)="""RTN"",""PSBO"",51,0)"
^XMB(3.9,98,2,4606,0)=" .D VAL^DIE(53.69,PSBIENS,.25,""F"",+$P(PSBFUTR,""^"",1),""PSBRET"",""PSBFDA"")"
^XMB(3.9,98,2,4607,0)="""RTN"",""PSBO"",52,0)"
^XMB(3.9,98,2,4608,0)=" .D VAL^DIE(53.69,PSBIENS,.26,""F"",+$P(PSBFUTR,""^"",2),""PSBRET"",""PSBFDA"")"
^XMB(3.9,98,2,4609,0)="""RTN"",""PSBO"",53,0)"
^XMB(3.9,98,2,4610,0)=" .D VAL^DIE(53.69,PSBIENS,.27,""F"",+$P(PSBFUTR,""^"",3),""PSBRET"",""PSBFDA"")"
^XMB(3.9,98,2,4611,0)="""RTN"",""PSBO"",54,0)"
^XMB(3.9,98,2,4612,0)=" .D VAL^DIE(53.69,PSBIENS,.41,""F"",+$P(PSBFUTR,""^"",4),""PSBRET"",""PSBFDA"")"
^XMB(3.9,98,2,4613,0)="""RTN"",""PSBO"",55,0)"
^XMB(3.9,98,2,4614,0)=" D FILE^DIE("""",""PSBFDA"")"
^XMB(3.9,98,2,4615,0)="""RTN"",""PSBO"",56,0)"
^XMB(3.9,98,2,4616,0)=" I $G(PSBDEV)]"""" D PRINT^PSBO1 S RESULTS=$NAME(^TMP(""PSBO"",$J)) Q"
^XMB(3.9,98,2,4617,0)="""RTN"",""PSBO"",57,0)"
^XMB(3.9,98,2,4618,0)=" D HFSOPEN^PSBUTL(""RPC"") I POP S ^TMP(""PSBO"",$J,1)=""ERROR: UNABLE TO ACCESS HFS DIRECTORY ""_$$GET^XPAR(""DIV"",""PSB HFS SCRATCH""),^TMP(""PSBO"",$J,2)=""PLEASE CHECK DIRECTORY WRITE PRIVILEDGES."" Q"
^XMB(3.9,98,2,4619,0)="""RTN"",""PSBO"",58,0)"
^XMB(3.9,98,2,4620,0)=" U IO D DQ(+PSBIENS)"
^XMB(3.9,98,2,4621,0)="""RTN"",""PSBO"",59,0)"
^XMB(3.9,98,2,4622,0)=" D HFSCLOSE^PSBUTL(""RPC"")"
^XMB(3.9,98,2,4623,0)="""RTN"",""PSBO"",60,0)"
^XMB(3.9,98,2,4624,0)=" S RESULTS=$NAME(^TMP(""PSBO"",$J))"
^XMB(3.9,98,2,4625,0)="""RTN"",""PSBO"",61,0)"
^XMB(3.9,98,2,4626,0)=" D:$G(PSBDEV)]"""" PRINT^PSBO1"
^XMB(3.9,98,2,4627,0)="""RTN"",""PSBO"",62,0)"
^XMB(3.9,98,2,4628,0)=" Q"
^XMB(3.9,98,2,4629,0)="""RTN"",""PSBO"",63,0)"
^XMB(3.9,98,2,4630,0)=" ;"
^XMB(3.9,98,2,4631,0)="""RTN"",""PSBO"",64,0)"
^XMB(3.9,98,2,4632,0)="XQ(PSBTYPE) ; Called via Kernel Menus"
^XMB(3.9,98,2,4633,0)="""RTN"",""PSBO"",65,0)"
^XMB(3.9,98,2,4634,0)=" N PSBANS,PSBANS1,PSBRPT,PSBSAVE,DA,DIK,DR,DDSFILE"
^XMB(3.9,98,2,4635,0)="""RTN"",""PSBO"",66,0)"
^XMB(3.9,98,2,4636,0)=" D NEW^PSBO1(.PSBRPT,PSBTYPE)"
^XMB(3.9,98,2,4637,0)="""RTN"",""PSBO"",67,0)"
^XMB(3.9,98,2,4638,0)=" I +PSBRPT(0)<1 W !,""Error: "",$P(PSBRPT(0),U,2) S DIR(0)=""E"" D ^DIR Q"
^XMB(3.9,98,2,4639,0)="""RTN"",""PSBO"",68,0)"
^XMB(3.9,98,2,4640,0)=" S DA=+PSBRPT(0),DR=""[PSBO ""_PSBTYPE_""]"",DDSFILE=53.69 D ^DDS"
^XMB(3.9,98,2,4641,0)="""RTN"",""PSBO"",69,0)"
^XMB(3.9,98,2,4642,0)=" W @IOF"
^XMB(3.9,98,2,4643,0)="""RTN"",""PSBO"",70,0)"
^XMB(3.9,98,2,4644,0)=" I 'PSBSAVE W !,""Cancelling Request..."" S DIK=""^PSB(53.69,"" D ^DIK W ""Cancelled!"""
^XMB(3.9,98,2,4645,0)="""RTN"",""PSBO"",71,0)"
^XMB(3.9,98,2,4646,0)=" D:PSBSAVE"
^XMB(3.9,98,2,4647,0)="""RTN"",""PSBO"",72,0)"
^XMB(3.9,98,2,4648,0)=" .;Check Drug to Patient Relationship."
^XMB(3.9,98,2,4649,0)="""RTN"",""PSBO"",73,0)"
^XMB(3.9,98,2,4650,0)=" .I PSBTYPE=""BL"" S PSBANS="""" D CHECK  I PSBANS=0!($D(DIRUT)) W !,""Cancelling Request..."" S DIK=""^PSB(53.69,"" D ^DIK W ""Cancelled!"" Q"
^XMB(3.9,98,2,4651,0)="""RTN"",""PSBO"",74,0)"
^XMB(3.9,98,2,4652,0)=" .;"
^XMB(3.9,98,2,4653,0)="""RTN"",""PSBO"",75,0)"
^XMB(3.9,98,2,4654,0)=" .;Allow ""'BROWSER"" Device"
^XMB(3.9,98,2,4655,0)="""RTN"",""PSBO"",76,0)"
^XMB(3.9,98,2,4656,0)=" .S IOP=$$GET1^DIQ(53.69,DA_"","",.06,""I""),PSBSIO=0 I IOP]"""" D"
^XMB(3.9,98,2,4657,0)="""RTN"",""PSBO"",77,0)"
^XMB(3.9,98,2,4658,0)=" ..S IOP=""`""_IOP,%ZIS=""N"""
^XMB(3.9,98,2,4659,0)="""RTN"",""PSBO"",78,0)"
^XMB(3.9,98,2,4660,0)=" ..D ^%ZIS"
^XMB(3.9,98,2,4661,0)="""RTN"",""PSBO"",79,0)"
^XMB(3.9,98,2,4662,0)=" ..I IO=IO(0) S PSBSIO=1"
^XMB(3.9,98,2,4663,0)="""RTN"",""PSBO"",80,0)"
^XMB(3.9,98,2,4664,0)=" ..D HOME^%ZIS K IOP"
^XMB(3.9,98,2,4665,0)="""RTN"",""PSBO"",81,0)"
^XMB(3.9,98,2,4666,0)=" .I $$GET1^DIQ(53.69,DA_"","",.06)[""BROWSER""!(PSBSIO=1) S IOP=$$GET1^DIQ(53.69,DA_"","",.06)_"";132"" D ^%ZIS U IO D DQ(DA) D ^%ZISC K IOP Q"
^XMB(3.9,98,2,4667,0)="""RTN"",""PSBO"",82,0)"
^XMB(3.9,98,2,4668,0)=" .W @IOF,""Submitting Your Report Request to Taskman..."""
^XMB(3.9,98,2,4669,0)="""RTN"",""PSBO"",83,0)"
^XMB(3.9,98,2,4670,0)=" .S ZTIO=$$GET1^DIQ(53.69,DA_"","",.06)"
^XMB(3.9,98,2,4671,0)="""RTN"",""PSBO"",84,0)"
^XMB(3.9,98,2,4672,0)=" .S ZTDTH=$P(^PSB(53.69,DA,0),U,7)"
^XMB(3.9,98,2,4673,0)="""RTN"",""PSBO"",85,0)"
^XMB(3.9,98,2,4674,0)=" .S ZTDESC=""BCMA - ""_$$GET1^DIQ(53.69,DA_"","",.05)"
^XMB(3.9,98,2,4675,0)="""RTN"",""PSBO"",86,0)"
^XMB(3.9,98,2,4676,0)=" .S ZTRTN=""DQ^PSBO(""_DA_"")"""
^XMB(3.9,98,2,4677,0)="""RTN"",""PSBO"",87,0)"
^XMB(3.9,98,2,4678,0)=" .D ^%ZTLOAD"
^XMB(3.9,98,2,4679,0)="""RTN"",""PSBO"",88,0)"
^XMB(3.9,98,2,4680,0)=" .W ""Submitted!"",!,""Your Task Number Is: "",$G(ZTSK),!"
^XMB(3.9,98,2,4681,0)="""RTN"",""PSBO"",89,0)"
^XMB(3.9,98,2,4682,0)=" K ^TMP(""PSBO"",$J)"
^XMB(3.9,98,2,4683,0)="""RTN"",""PSBO"",90,0)"
^XMB(3.9,98,2,4684,0)=" Q"
^XMB(3.9,98,2,4685,0)="""RTN"",""PSBO"",91,0)"
^XMB(3.9,98,2,4686,0)=" ;"
^XMB(3.9,98,2,4687,0)="""RTN"",""PSBO"",92,0)"
^XMB(3.9,98,2,4688,0)="DQ(PSBRPT) ; Dequeue report from Taskman"
^XMB(3.9,98,2,4689,0)="""RTN"",""PSBO"",93,0)"
^XMB(3.9,98,2,4690,0)=" N PSBWRD,PSBDFN"
^XMB(3.9,98,2,4691,0)="""RTN"",""PSBO"",94,0)"
^XMB(3.9,98,2,4692,0)=" Q:'$D(^PSB(53.69,PSBRPT,0))  ; No Such Report"
^XMB(3.9,98,2,4693,0)="""RTN"",""PSBO"",95,0)"
^XMB(3.9,98,2,4694,0)=" S $P(^PSB(53.69,PSBRPT,0),U,8)=$G(ZTSK,""RPC"")"
^XMB(3.9,98,2,4695,0)="""RTN"",""PSBO"",96,0)"
^XMB(3.9,98,2,4696,0)=" D:$$SETUP @(""EN^PSBO""_$P(PSBRPT(0),U,5))"
^XMB(3.9,98,2,4697,0)="""RTN"",""PSBO"",97,0)"
^XMB(3.9,98,2,4698,0)=" K ^TMP(""PSBO"",$J)"
^XMB(3.9,98,2,4699,0)="""RTN"",""PSBO"",98,0)"
^XMB(3.9,98,2,4700,0)=" S ZTREQ=""@"""
^XMB(3.9,98,2,4701,0)="""RTN"",""PSBO"",99,0)"
^XMB(3.9,98,2,4702,0)=" Q"
^XMB(3.9,98,2,4703,0)="""RTN"",""PSBO"",100,0)"
^XMB(3.9,98,2,4704,0)=" ;"
^XMB(3.9,98,2,4705,0)="""RTN"",""PSBO"",101,0)"
^XMB(3.9,98,2,4706,0)="IOM() ; Returns good margin or not"
^XMB(3.9,98,2,4707,0)="""RTN"",""PSBO"",102,0)"
^XMB(3.9,98,2,4708,0)=" Q:IOM'<132 1"
^XMB(3.9,98,2,4709,0)="""RTN"",""PSBO"",103,0)"
^XMB(3.9,98,2,4710,0)=" W !,""**************************************************************"""
^XMB(3.9,98,2,4711,0)="""RTN"",""PSBO"",104,0)"
^XMB(3.9,98,2,4712,0)=" W !,""* SORRY, Your selected DEVICE does not print 132 columns.    *"""
^XMB(3.9,98,2,4713,0)="""RTN"",""PSBO"",105,0)"
^XMB(3.9,98,2,4714,0)=" W !,""**************************************************************"""
^XMB(3.9,98,2,4715,0)="""RTN"",""PSBO"",106,0)"
^XMB(3.9,98,2,4716,0)=" W !"
^XMB(3.9,98,2,4717,0)="""RTN"",""PSBO"",107,0)"
^XMB(3.9,98,2,4718,0)=" Q 0"
^XMB(3.9,98,2,4719,0)="""RTN"",""PSBO"",108,0)"
^XMB(3.9,98,2,4720,0)=" ;"
^XMB(3.9,98,2,4721,0)="""RTN"",""PSBO"",109,0)"
^XMB(3.9,98,2,4722,0)="VAL(PSBFLDS) ; Validate that fields in PSBFLDS are filled in"
^XMB(3.9,98,2,4723,0)="""RTN"",""PSBO"",110,0)"
^XMB(3.9,98,2,4724,0)=" N PSB,PSBFLD,PSBMSG,PSBSTOP,PSBST,PSBDAYS S PSBSTRT="""""
^XMB(3.9,98,2,4725,0)="""RTN"",""PSBO"",111,0)"
^XMB(3.9,98,2,4726,0)=" F PSB=1:1 Q:$P(PSBFLDS,"";"",PSB)=""""  S PSBFLD=$P(PSBFLDS,"";"",PSB),PSBFLD(PSBFLD)=$$GET^DDSVAL(53.69,DA,PSBFLD)"
^XMB(3.9,98,2,4727,0)="""RTN"",""PSBO"",112,0)"
^XMB(3.9,98,2,4728,0)=" I $D(PSBFLD(.11)) K:$E(PSBFLD(.11))=""P"" PSBFLD(.13),PSBFLD(.15) K:$E(PSBFLD(.11))=""W"" PSBFLD(.12)"
^XMB(3.9,98,2,4729,0)="""RTN"",""PSBO"",113,0)"
^XMB(3.9,98,2,4730,0)=" S PSB=""""  F  S PSB=$O(PSBFLD(PSB)) Q:PSB=""""  D:PSBFLD(PSB)="""""
^XMB(3.9,98,2,4731,0)="""RTN"",""PSBO"",114,0)"
^XMB(3.9,98,2,4732,0)=" .I '$D(PSBMSG) S PSBMSG(0)=""UNABLE TO FILE REQUEST"",PSBMSG(1)="" "",PSBMSG(2)=""ERROR: MISSING DATA - ALL FIELDS ARE REQUIRED"",PSBMSG(3)="" """
^XMB(3.9,98,2,4733,0)="""RTN"",""PSBO"",115,0)"
^XMB(3.9,98,2,4734,0)=" .D FIELD^DID(53.69,PSB,"""",""TITLE;LABEL"",""PSB"")"
^XMB(3.9,98,2,4735,0)="""RTN"",""PSBO"",116,0)"
^XMB(3.9,98,2,4736,0)=" .S Z=""  Missing Field: ""_$S(PSB(""TITLE"")]"""":PSB(""TITLE""),1:PSB(""LABEL""))"
^XMB(3.9,98,2,4737,0)="""RTN"",""PSBO"",117,0)"
^XMB(3.9,98,2,4738,0)=" .S PSBMSG($O(PSBMSG(""""),-1)+1)=Z"
^XMB(3.9,98,2,4739,0)="""RTN"",""PSBO"",118,0)"
^XMB(3.9,98,2,4740,0)=" ; Check Times"
^XMB(3.9,98,2,4741,0)="""RTN"",""PSBO"",119,0)"
^XMB(3.9,98,2,4742,0)=" D:$G(PSBFLD(.16))"
^XMB(3.9,98,2,4743,0)="""RTN"",""PSBO"",120,0)"
^XMB(3.9,98,2,4744,0)=" .S PSBSTRT=PSBFLD(.16)+$G(PSBFLD(.17))"
^XMB(3.9,98,2,4745,0)="""RTN"",""PSBO"",121,0)"
^XMB(3.9,98,2,4746,0)=" .D:$P($$GET1^DIQ(53.69,DA_"","",.01),U)[""MH"""
^XMB(3.9,98,2,4747,0)="""RTN"",""PSBO"",122,0)"
^XMB(3.9,98,2,4748,0)=" ..S PSBDAYS=$$GET1^DIQ(101.24,$$FIND1^DIC(101.24,"""",""X"",""ORRP BCMA MAH"",""B"")_"","",.42)  ;check maxdays"
^XMB(3.9,98,2,4749,0)="""RTN"",""PSBO"",123,0)"
^XMB(3.9,98,2,4750,0)=" ..S:PSBDAYS="""" PSBDAYS=7"
^XMB(3.9,98,2,4751,0)="""RTN"",""PSBO"",124,0)"
^XMB(3.9,98,2,4752,0)=" ..S X=PSBSTRT\1 D H^%DTC S PSBST=%H+PSBDAYS    ;Determine stop date"
^XMB(3.9,98,2,4753,0)="""RTN"",""PSBO"",125,0)"
^XMB(3.9,98,2,4754,0)=" .S PSBSTOP=$S($G(PSBFLD(.18)):PSBFLD(.18),1:PSBFLD(.16))+$G(PSBFLD(.19))"
^XMB(3.9,98,2,4755,0)="""RTN"",""PSBO"",126,0)"
^XMB(3.9,98,2,4756,0)=" .I PSBSTOP<PSBSTRT S Y=$O(PSBMSG(""""),-1)+1,PSBMSG(Y)=""  Date: Stop Date/Time is before Start Date/Time"""
^XMB(3.9,98,2,4757,0)="""RTN"",""PSBO"",127,0)"
^XMB(3.9,98,2,4758,0)=" .I $P($$GET1^DIQ(53.69,DA_"","",.01),U)[""MH"" S X=PSBSTOP\1 D H^%DTC I %H>PSBST S Y=$O(PSBMSG(""""),-1)+1,PSBMSG(Y)=""  The date range cannot exceed ""_PSBDAYS_"" day(s) as defined in the CPRS 'MAXIMUM DAYS BACK' parameter"""
^XMB(3.9,98,2,4759,0)="""RTN"",""PSBO"",128,0)"
^XMB(3.9,98,2,4760,0)=" Q:'$D(PSBMSG)  ; All is well"
^XMB(3.9,98,2,4761,0)="""RTN"",""PSBO"",129,0)"
^XMB(3.9,98,2,4762,0)=" D MSG^DDSUTL(.PSBMSG)"
^XMB(3.9,98,2,4763,0)="""RTN"",""PSBO"",130,0)"
^XMB(3.9,98,2,4764,0)=" S DDSERROR=1"
^XMB(3.9,98,2,4765,0)="""RTN"",""PSBO"",131,0)"
^XMB(3.9,98,2,4766,0)=" Q"
^XMB(3.9,98,2,4767,0)="""RTN"",""PSBO"",132,0)"
^XMB(3.9,98,2,4768,0)=" ;"
^XMB(3.9,98,2,4769,0)="""RTN"",""PSBO"",133,0)"
^XMB(3.9,98,2,4770,0)="SETUP() ; Setup parameters for the report in PSBRPT"
^XMB(3.9,98,2,4771,0)="""RTN"",""PSBO"",134,0)"
^XMB(3.9,98,2,4772,0)=" N PSBWRDL,PSBINDX,PSBWRDA"
^XMB(3.9,98,2,4773,0)="""RTN"",""PSBO"",135,0)"
^XMB(3.9,98,2,4774,0)=" K ^TMP(""PSBO"",$J)"
^XMB(3.9,98,2,4775,0)="""RTN"",""PSBO"",136,0)"
^XMB(3.9,98,2,4776,0)=" F X=0,.1,.2,.3,.4 S PSBRPT(X)=$G(^PSB(53.69,PSBRPT,X))"
^XMB(3.9,98,2,4777,0)="""RTN"",""PSBO"",137,0)"
^XMB(3.9,98,2,4778,0)=" I $P(PSBRPT(.1),U,1)=""P"" S PSBDFN=+$P(PSBRPT(.1),U,2) Q:'PSBDFN  S ^TMP(""PSBO"",$J,PSBDFN,0)=$P(^DPT(PSBDFN,0),U)_U_$P(^DPT(PSBDFN,0),U,9),^TMP(""PSBO"",$J,""B"",$P(^DPT(PSBDFN,0),U),PSBDFN)="""""
^XMB(3.9,98,2,4779,0)="""RTN"",""PSBO"",138,0)"
^XMB(3.9,98,2,4780,0)=" D:$P(PSBRPT(.1),U,1)=""W"""
^XMB(3.9,98,2,4781,0)="""RTN"",""PSBO"",139,0)"
^XMB(3.9,98,2,4782,0)=" .S PSBWRD=$P(PSBRPT(.1),U,3) Q:'PSBWRD  D WARD^NURSUT5(""L^""_PSBWRD,.PSBWRDA)"
^XMB(3.9,98,2,4783,0)="""RTN"",""PSBO"",140,0)"
^XMB(3.9,98,2,4784,0)=" .S X="""" F  S X=$O(PSBWRDA(PSBWRD,2,X)) Q:X=""""   S PSBWRDL=$P(PSBWRDA(PSBWRD,2,X,.01),U,2) D"
^XMB(3.9,98,2,4785,0)="""RTN"",""PSBO"",141,0)"
^XMB(3.9,98,2,4786,0)=" ..F PSBDFN=0:0 S PSBDFN=$O(^DPT(""CN"",PSBWRDL,PSBDFN)) Q:'PSBDFN  D"
^XMB(3.9,98,2,4787,0)="""RTN"",""PSBO"",142,0)"
^XMB(3.9,98,2,4788,0)=" ...S ^TMP(""PSBO"",$J,PSBDFN,0)=$P(^DPT(PSBDFN,0),U)_U_$P(^DPT(PSBDFN,0),U,9)"
^XMB(3.9,98,2,4789,0)="""RTN"",""PSBO"",143,0)"
^XMB(3.9,98,2,4790,0)=" ...; Determine Sort or default to Pt Name..."
^XMB(3.9,98,2,4791,0)="""RTN"",""PSBO"",144,0)"
^XMB(3.9,98,2,4792,0)=" ...S:$P(PSBRPT(.1),U,5)=""P"" PSBINDX=$P(^DPT(PSBDFN,0),U)"
^XMB(3.9,98,2,4793,0)="""RTN"",""PSBO"",145,0)"
^XMB(3.9,98,2,4794,0)=" ...I $P(PSBRPT(.1),U,5)=""B"" S PSBINDX=$P($G(^DPT(PSBDFN,.101)),U) S:PSBINDX="""" PSBINDX=""** NO ROOM BED **"""
^XMB(3.9,98,2,4795,0)="""RTN"",""PSBO"",146,0)"
^XMB(3.9,98,2,4796,0)=" ...S:$P(PSBRPT(.1),U,5)="""" PSBINDX=$P(^DPT(PSBDFN,0),U)"
^XMB(3.9,98,2,4797,0)="""RTN"",""PSBO"",147,0)"
^XMB(3.9,98,2,4798,0)=" ...S:$G(PSBINDX)="""" PSBINDX=$P(^DPT(PSBDFN,0),U)"
^XMB(3.9,98,2,4799,0)="""RTN"",""PSBO"",148,0)"
^XMB(3.9,98,2,4800,0)=" ...S ^TMP(""PSBO"",$J,""B"",PSBINDX,PSBDFN)="""""
^XMB(3.9,98,2,4801,0)="""RTN"",""PSBO"",149,0)"
^XMB(3.9,98,2,4802,0)=" Q 1"
^XMB(3.9,98,2,4803,0)="""RTN"",""PSBO"",150,0)"
^XMB(3.9,98,2,4804,0)=" ;"
^XMB(3.9,98,2,4805,0)="""RTN"",""PSBO"",151,0)"
^XMB(3.9,98,2,4806,0)="WRAP(X,Y,Z)    ; Quick text wrap"
^XMB(3.9,98,2,4807,0)="""RTN"",""PSBO"",152,0)"
^XMB(3.9,98,2,4808,0)=" ;"
^XMB(3.9,98,2,4809,0)="""RTN"",""PSBO"",153,0)"
^XMB(3.9,98,2,4810,0)=" ; Input Parameters Description:"
^XMB(3.9,98,2,4811,0)="""RTN"",""PSBO"",154,0)"
^XMB(3.9,98,2,4812,0)=" ;  X: Left Column of display [Optional]"
^XMB(3.9,98,2,4813,0)="""RTN"",""PSBO"",155,0)"
^XMB(3.9,98,2,4814,0)=" ;  Y: Cols to wrap in [Optional]"
^XMB(3.9,98,2,4815,0)="""RTN"",""PSBO"",156,0)"
^XMB(3.9,98,2,4816,0)=" ;  Z: Text to wrap [Optional]"
^XMB(3.9,98,2,4817,0)="""RTN"",""PSBO"",157,0)"
^XMB(3.9,98,2,4818,0)=" ;"
^XMB(3.9,98,2,4819,0)="""RTN"",""PSBO"",158,0)"
^XMB(3.9,98,2,4820,0)=" N PSB"
^XMB(3.9,98,2,4821,0)="""RTN"",""PSBO"",159,0)"
^XMB(3.9,98,2,4822,0)=" F  Q:'$L(Z)  D"
^XMB(3.9,98,2,4823,0)="""RTN"",""PSBO"",160,0)"
^XMB(3.9,98,2,4824,0)=" .W:$X>X !"
^XMB(3.9,98,2,4825,0)="""RTN"",""PSBO"",161,0)"
^XMB(3.9,98,2,4826,0)=" .W:$X<X ?X"
^XMB(3.9,98,2,4827,0)="""RTN"",""PSBO"",162,0)"
^XMB(3.9,98,2,4828,0)=" .I $L(Z)<Y W Z S Z="""" Q"
^XMB(3.9,98,2,4829,0)="""RTN"",""PSBO"",163,0)"
^XMB(3.9,98,2,4830,0)=" .F PSB=Y:-1:0 Q:$E(Z,PSB)="" """
^XMB(3.9,98,2,4831,0)="""RTN"",""PSBO"",164,0)"
^XMB(3.9,98,2,4832,0)=" .S:PSB<1 PSB=Y"
^XMB(3.9,98,2,4833,0)="""RTN"",""PSBO"",165,0)"
^XMB(3.9,98,2,4834,0)=" .W $E(Z,1,PSB)"
^XMB(3.9,98,2,4835,0)="""RTN"",""PSBO"",166,0)"
^XMB(3.9,98,2,4836,0)=" .S Z=$E(Z,PSB+1,250)"
^XMB(3.9,98,2,4837,0)="""RTN"",""PSBO"",167,0)"
^XMB(3.9,98,2,4838,0)=" Q """""
^XMB(3.9,98,2,4839,0)="""RTN"",""PSBO"",168,0)"
^XMB(3.9,98,2,4840,0)=" ;"
^XMB(3.9,98,2,4841,0)="""RTN"",""PSBO"",169,0)"
^XMB(3.9,98,2,4842,0)="CHECK ;Beginning of PSB*1*10"
^XMB(3.9,98,2,4843,0)="""RTN"",""PSBO"",170,0)"
^XMB(3.9,98,2,4844,0)=" K ^TMP(""PSJ"",$J)"
^XMB(3.9,98,2,4845,0)="""RTN"",""PSBO"",171,0)"
^XMB(3.9,98,2,4846,0)=" N PSBDFN,PSBBAR,PSBDRUG,PSBFLAG,PSBPNM,PSBNDX,PSBX"
^XMB(3.9,98,2,4847,0)="""RTN"",""PSBO"",172,0)"
^XMB(3.9,98,2,4848,0)=" S PSBFLAG="""",PSBBAR=$P($P($G(^PSB(53.69,DA,.3)),U,1),""~"",2)"
^XMB(3.9,98,2,4849,0)="""RTN"",""PSBO"",173,0)"
^XMB(3.9,98,2,4850,0)=" S PSBDRUG=$$GET1^DIQ(53.69,DA_"","",.31)"
^XMB(3.9,98,2,4851,0)="""RTN"",""PSBO"",174,0)"
^XMB(3.9,98,2,4852,0)=" S PSBDFN=$$GET1^DIQ(53.69,DA_"","",.12,""I"") S:$G(PSBDFN) PSBFLAG=1"
^XMB(3.9,98,2,4853,0)="""RTN"",""PSBO"",175,0)"
^XMB(3.9,98,2,4854,0)=" D EN^PSJBCMA(PSBDFN)"
^XMB(3.9,98,2,4855,0)="""RTN"",""PSBO"",176,0)"
^XMB(3.9,98,2,4856,0)=" F PSBX=0:0 S PSBX=$O(^TMP(""PSJ"",$J,PSBX)) Q:'PSBX  D"
^XMB(3.9,98,2,4857,0)="""RTN"",""PSBO"",177,0)"
^XMB(3.9,98,2,4858,0)=" .K Y,PSBORD,PSBPNM,PSBNDX"
^XMB(3.9,98,2,4859,0)="""RTN"",""PSBO"",178,0)"
^XMB(3.9,98,2,4860,0)=" .M PSBORD=^TMP(""PSJ"",$J,PSBX)"
^XMB(3.9,98,2,4861,0)="""RTN"",""PSBO"",179,0)"
^XMB(3.9,98,2,4862,0)=" .F PSBNDX=700,850,950  D"
^XMB(3.9,98,2,4863,0)="""RTN"",""PSBO"",180,0)"
^XMB(3.9,98,2,4864,0)=" ..F Y=0:0 S Y=$O(PSBORD(PSBNDX,Y)) Q:'Y  D"
^XMB(3.9,98,2,4865,0)="""RTN"",""PSBO"",181,0)"
^XMB(3.9,98,2,4866,0)=" ...I $P($G(PSBORD(1)),U,7)'=""A"" Q"
^XMB(3.9,98,2,4867,0)="""RTN"",""PSBO"",182,0)"
^XMB(3.9,98,2,4868,0)=" ...S PSBPNM=$P(PSBORD(PSBNDX,Y,0),U,1)"
^XMB(3.9,98,2,4869,0)="""RTN"",""PSBO"",183,0)"
^XMB(3.9,98,2,4870,0)=" ...I PSBNDX=700,PSBPNM=PSBBAR S PSBFLAG=0 Q"
^XMB(3.9,98,2,4871,0)="""RTN"",""PSBO"",184,0)"
^XMB(3.9,98,2,4872,0)=" ...I PSBNDX=850,$D(^PSDRUG(""A526"",PSBBAR,PSBPNM)) S PSBFLAG=0 Q"
^XMB(3.9,98,2,4873,0)="""RTN"",""PSBO"",185,0)"
^XMB(3.9,98,2,4874,0)=" ...I PSBNDX=950,$D(^PSDRUG(""A527"",PSBBAR,PSBPNM)) S PSBFLAG=0"
^XMB(3.9,98,2,4875,0)="""RTN"",""PSBO"",186,0)"
^XMB(3.9,98,2,4876,0)=" I PSBFLAG=1 D"
^XMB(3.9,98,2,4877,0)="""RTN"",""PSBO"",187,0)"
^XMB(3.9,98,2,4878,0)=" .W !,""Patient is not currently on medication: "",PSBDRUG"
^XMB(3.9,98,2,4879,0)="""RTN"",""PSBO"",188,0)"
^XMB(3.9,98,2,4880,0)=" .K DIRUT,DIR"
^XMB(3.9,98,2,4881,0)="""RTN"",""PSBO"",189,0)"
^XMB(3.9,98,2,4882,0)=" .S DIR(""A"")=""Do you want to continue"""
^XMB(3.9,98,2,4883,0)="""RTN"",""PSBO"",190,0)"
^XMB(3.9,98,2,4884,0)=" .S DIR(0)=""Y"""
^XMB(3.9,98,2,4885,0)="""RTN"",""PSBO"",191,0)"
^XMB(3.9,98,2,4886,0)=" .D ^DIR"
^XMB(3.9,98,2,4887,0)="""RTN"",""PSBO"",192,0)"
^XMB(3.9,98,2,4888,0)=" .S PSBANS=+Y W !"
^XMB(3.9,98,2,4889,0)="""RTN"",""PSBO1"")"
^XMB(3.9,98,2,4890,0)="0^18^B5347535^B5320169"
^XMB(3.9,98,2,4891,0)="""RTN"",""PSBO1"",1,0)"
^XMB(3.9,98,2,4892,0)="PSBO1 ;BIRMINGHAM/EFC-BCMA OUTPUTS ;Mar 2004"
^XMB(3.9,98,2,4893,0)="""RTN"",""PSBO1"",2,0)"
^XMB(3.9,98,2,4894,0)=" ;;3.0;BAR CODE MED ADMIN;**4,13**;Mar 2004"
^XMB(3.9,98,2,4895,0)="""RTN"",""PSBO1"",3,0)"
^XMB(3.9,98,2,4896,0)=" ;"
^XMB(3.9,98,2,4897,0)="""RTN"",""PSBO1"",4,0)"
^XMB(3.9,98,2,4898,0)=" ; Reference/IA"
^XMB(3.9,98,2,4899,0)="""RTN"",""PSBO1"",5,0)"
^XMB(3.9,98,2,4900,0)=" ; FILE^DICN/10009"
^XMB(3.9,98,2,4901,0)="""RTN"",""PSBO1"",6,0)"
^XMB(3.9,98,2,4902,0)=" ;"
^XMB(3.9,98,2,4903,0)="""RTN"",""PSBO1"",7,0)"
^XMB(3.9,98,2,4904,0)="NEW(RESULTS,PSBRTYP) ; Create a new report request"
^XMB(3.9,98,2,4905,0)="""RTN"",""PSBO1"",8,0)"
^XMB(3.9,98,2,4906,0)=" ; Called interactively and via RPCBroker"
^XMB(3.9,98,2,4907,0)="""RTN"",""PSBO1"",9,0)"
^XMB(3.9,98,2,4908,0)=" K RESULTS"
^XMB(3.9,98,2,4909,0)="""RTN"",""PSBO1"",10,0)"
^XMB(3.9,98,2,4910,0)=" ; Check Type"
^XMB(3.9,98,2,4911,0)="""RTN"",""PSBO1"",11,0)"
^XMB(3.9,98,2,4912,0)=" I '$F(""DL^MD^MH^ML^MM^MV^PE^PM^WA^BL^PI^AL^DO^VT^PF^XA"",PSBRTYP) S RESULTS(0)=""-1^Invalid Report Type"" Q"
^XMB(3.9,98,2,4913,0)="""RTN"",""PSBO1"",12,0)"
^XMB(3.9,98,2,4914,0)=" I '+$G(DUZ) S RESULTS(0)=""-1^Undefined User"" Q"
^XMB(3.9,98,2,4915,0)="""RTN"",""PSBO1"",13,0)"
^XMB(3.9,98,2,4916,0)=" I '$G(DUZ(2)) S RESULTS(0)=""-1^Undefined Division"" Q"
^XMB(3.9,98,2,4917,0)="""RTN"",""PSBO1"",14,0)"
^XMB(3.9,98,2,4918,0)=" ; Lock Log"
^XMB(3.9,98,2,4919,0)="""RTN"",""PSBO1"",15,0)"
^XMB(3.9,98,2,4920,0)=" L +(^PSB(53.69,0)):30"
^XMB(3.9,98,2,4921,0)="""RTN"",""PSBO1"",16,0)"
^XMB(3.9,98,2,4922,0)=" E  S RESULTS(0)=""-1^Request Log Locked"" Q"
^XMB(3.9,98,2,4923,0)="""RTN"",""PSBO1"",17,0)"
^XMB(3.9,98,2,4924,0)=" ; Generate Unique Entry and Create"
^XMB(3.9,98,2,4925,0)="""RTN"",""PSBO1"",18,0)"
^XMB(3.9,98,2,4926,0)=" F  D NOW^%DTC S X=$E(%_""000000"",1,14) S X=(1700+$E(X,1,3))_$E(X,4,14),X=PSBRTYP_""-""_$TR(X,""."",""-"") Q:'$D(^PSB(53.69,""B"",X))"
^XMB(3.9,98,2,4927,0)="""RTN"",""PSBO1"",19,0)"
^XMB(3.9,98,2,4928,0)=" S DIC=""^PSB(53.69,"",DIC(0)=""L"""
^XMB(3.9,98,2,4929,0)="""RTN"",""PSBO1"",20,0)"
^XMB(3.9,98,2,4930,0)=" S DIC(""DR"")="".02///N;.03////^S X=DUZ;.04////^S X=DUZ(2);.05///^S X=PSBRTYP"""
^XMB(3.9,98,2,4931,0)="""RTN"",""PSBO1"",21,0)"
^XMB(3.9,98,2,4932,0)=" K DD,DO D FILE^DICN"
^XMB(3.9,98,2,4933,0)="""RTN"",""PSBO1"",22,0)"
^XMB(3.9,98,2,4934,0)=" L -(^PSB(53.69,0))"
^XMB(3.9,98,2,4935,0)="""RTN"",""PSBO1"",23,0)"
^XMB(3.9,98,2,4936,0)=" ; Okay, setup return and Boogie"
^XMB(3.9,98,2,4937,0)="""RTN"",""PSBO1"",24,0)"
^XMB(3.9,98,2,4938,0)=" I +Y<1 S RESULTS(0)=""-1^Error Creating Request"""
^XMB(3.9,98,2,4939,0)="""RTN"",""PSBO1"",25,0)"
^XMB(3.9,98,2,4940,0)=" E  S RESULTS(0)=Y"
^XMB(3.9,98,2,4941,0)="""RTN"",""PSBO1"",26,0)"
^XMB(3.9,98,2,4942,0)=" Q"
^XMB(3.9,98,2,4943,0)="""RTN"",""PSBO1"",27,0)"
^XMB(3.9,98,2,4944,0)=" ;"
^XMB(3.9,98,2,4945,0)="""RTN"",""PSBO1"",28,0)"
^XMB(3.9,98,2,4946,0)="PRINT ;"
^XMB(3.9,98,2,4947,0)="""RTN"",""PSBO1"",29,0)"
^XMB(3.9,98,2,4948,0)=" N ZTDTH,ZTRTN,ZTSK,ZTDESC,ZTSAVE,DA"
^XMB(3.9,98,2,4949,0)="""RTN"",""PSBO1"",30,0)"
^XMB(3.9,98,2,4950,0)=" S DA=+PSBRPT(0)"
^XMB(3.9,98,2,4951,0)="""RTN"",""PSBO1"",31,0)"
^XMB(3.9,98,2,4952,0)=" S IOP=$$GET1^DIQ(53.69,DA_"","",.06,""I""),PSBSIO=0 I IOP]"""" D"
^XMB(3.9,98,2,4953,0)="""RTN"",""PSBO1"",32,0)"
^XMB(3.9,98,2,4954,0)=" .S IOP=""`""_IOP,%ZIS=""N"""
^XMB(3.9,98,2,4955,0)="""RTN"",""PSBO1"",33,0)"
^XMB(3.9,98,2,4956,0)=" .D ^%ZIS"
^XMB(3.9,98,2,4957,0)="""RTN"",""PSBO1"",34,0)"
^XMB(3.9,98,2,4958,0)=" .I IO=IO(0) S PSBSIO=1"
^XMB(3.9,98,2,4959,0)="""RTN"",""PSBO1"",35,0)"
^XMB(3.9,98,2,4960,0)=" .D HOME^%ZIS K IOP"
^XMB(3.9,98,2,4961,0)="""RTN"",""PSBO1"",36,0)"
^XMB(3.9,98,2,4962,0)=" I $$GET1^DIQ(53.69,DA_"","",.06)[""BROWSER""!(PSBSIO=1) S IOP=$$GET1^DIQ(53.69,DA_"","",.06)_"";132"" D ^%ZIS U IO D DQ^PSBO(DA) D ^%ZISC K IOP Q"
^XMB(3.9,98,2,4963,0)="""RTN"",""PSBO1"",37,0)"
^XMB(3.9,98,2,4964,0)=" W @IOF,""Submitting Your Report Request to Taskman..."""
^XMB(3.9,98,2,4965,0)="""RTN"",""PSBO1"",38,0)"
^XMB(3.9,98,2,4966,0)=" S ZTIO=$$GET1^DIQ(53.69,DA_"","",.06)_"";132"""
^XMB(3.9,98,2,4967,0)="""RTN"",""PSBO1"",39,0)"
^XMB(3.9,98,2,4968,0)=" S ZTDTH=$H"
^XMB(3.9,98,2,4969,0)="""RTN"",""PSBO1"",40,0)"
^XMB(3.9,98,2,4970,0)=" S ZTDESC=""BCMA - ""_$$GET1^DIQ(53.69,DA_"","",.05)"
^XMB(3.9,98,2,4971,0)="""RTN"",""PSBO1"",41,0)"
^XMB(3.9,98,2,4972,0)=" S ZTRTN=""DQ^PSBO(""_DA_"")"""
^XMB(3.9,98,2,4973,0)="""RTN"",""PSBO1"",42,0)"
^XMB(3.9,98,2,4974,0)=" F I=""PSBDFN"",""PSBTYPE"" S ZTSAVE(I)="""""
^XMB(3.9,98,2,4975,0)="""RTN"",""PSBO1"",43,0)"
^XMB(3.9,98,2,4976,0)=" I $G(PSBORDNM)]"""" S ZTSAVE(""PSBORDNM"")="""""
^XMB(3.9,98,2,4977,0)="""RTN"",""PSBO1"",44,0)"
^XMB(3.9,98,2,4978,0)=" D ^%ZTLOAD"
^XMB(3.9,98,2,4979,0)="""RTN"",""PSBO1"",45,0)"
^XMB(3.9,98,2,4980,0)=" I $D(ZTSK) S ^TMP(""PSBO"",$J,1)=""0^Report queued. (Task #""_ZTSK_"")"""
^XMB(3.9,98,2,4981,0)="""RTN"",""PSBO1"",46,0)"
^XMB(3.9,98,2,4982,0)=" E  S ^TMP(""PSBO"",$J,1)=""-1^Task Rejected."""
^XMB(3.9,98,2,4983,0)="""RTN"",""PSBO1"",47,0)"
^XMB(3.9,98,2,4984,0)=" Q"
^XMB(3.9,98,2,4985,0)="""RTN"",""PSBO1"",48,0)"
^XMB(3.9,98,2,4986,0)=" ;"
^XMB(3.9,98,2,4987,0)="""RTN"",""PSBOHDR"")"
^XMB(3.9,98,2,4988,0)="0^28^B21187983^B19933032"
^XMB(3.9,98,2,4989,0)="""RTN"",""PSBOHDR"",1,0)"
^XMB(3.9,98,2,4990,0)="PSBOHDR ;BIRMINGHAM/EFC-REPORT HEADERS ;Mar 2004"
^XMB(3.9,98,2,4991,0)="""RTN"",""PSBOHDR"",2,0)"
^XMB(3.9,98,2,4992,0)=" ;;3.0;BAR CODE MED ADMIN;**5,13**;Mar 2004"
^XMB(3.9,98,2,4993,0)="""RTN"",""PSBOHDR"",3,0)"
^XMB(3.9,98,2,4994,0)=" ;"
^XMB(3.9,98,2,4995,0)="""RTN"",""PSBOHDR"",4,0)"
^XMB(3.9,98,2,4996,0)=" ; Reference/IA"
^XMB(3.9,98,2,4997,0)="""RTN"",""PSBOHDR"",5,0)"
^XMB(3.9,98,2,4998,0)=" ; EN6^GMRVUTL/1120"
^XMB(3.9,98,2,4999,0)="""RTN"",""PSBOHDR"",6,0)"
^XMB(3.9,98,2,5000,0)=" ; WARD^NURSUT5/3052"
^XMB(3.9,98,2,5001,0)="""RTN"",""PSBOHDR"",7,0)"
^XMB(3.9,98,2,5002,0)=" ; IN5^VADPT/10061"
^XMB(3.9,98,2,5003,0)="""RTN"",""PSBOHDR"",8,0)"
^XMB(3.9,98,2,5004,0)=" ; DEM^VADPT/10061"
^XMB(3.9,98,2,5005,0)="""RTN"",""PSBOHDR"",9,0)"
^XMB(3.9,98,2,5006,0)=" ;"
^XMB(3.9,98,2,5007,0)="""RTN"",""PSBOHDR"",10,0)"
^XMB(3.9,98,2,5008,0)="PT(DFN,PSBHDR,PSBCONT,PSBDT) ; "
^XMB(3.9,98,2,5009,0)="""RTN"",""PSBOHDR"",11,0)"
^XMB(3.9,98,2,5010,0)=" ; DFN:     Patient File IEN"
^XMB(3.9,98,2,5011,0)="""RTN"",""PSBOHDR"",12,0)"
^XMB(3.9,98,2,5012,0)=" ; PSBCONT: True if this is a continuation page"
^XMB(3.9,98,2,5013,0)="""RTN"",""PSBOHDR"",13,0)"
^XMB(3.9,98,2,5014,0)=" ; PSBDT:   Date of Pt Information (Default to DT)"
^XMB(3.9,98,2,5015,0)="""RTN"",""PSBOHDR"",14,0)"
^XMB(3.9,98,2,5016,0)=" W:$Y>1 @IOF"
^XMB(3.9,98,2,5017,0)="""RTN"",""PSBOHDR"",15,0)"
^XMB(3.9,98,2,5018,0)=" W:$X>1 !"
^XMB(3.9,98,2,5019,0)="""RTN"",""PSBOHDR"",16,0)"
^XMB(3.9,98,2,5020,0)=" S:'$G(PSBDT) PSBDT=DT"
^XMB(3.9,98,2,5021,0)="""RTN"",""PSBOHDR"",17,0)"
^XMB(3.9,98,2,5022,0)=" ; BUILD PSBHDR WITH ALL HEADER STUFF"
^XMB(3.9,98,2,5023,0)="""RTN"",""PSBOHDR"",18,0)"
^XMB(3.9,98,2,5024,0)=" D:'$D(PSBHDR(""NAME""))"
^XMB(3.9,98,2,5025,0)="""RTN"",""PSBOHDR"",19,0)"
^XMB(3.9,98,2,5026,0)=" .S VAIP(""D"")=""LAST"""
^XMB(3.9,98,2,5027,0)="""RTN"",""PSBOHDR"",20,0)"
^XMB(3.9,98,2,5028,0)=" .D DEM^VADPT,IN5^VADPT"
^XMB(3.9,98,2,5029,0)="""RTN"",""PSBOHDR"",21,0)"
^XMB(3.9,98,2,5030,0)=" .S PSBHDR(""NAME"")=VADM(1)"
^XMB(3.9,98,2,5031,0)="""RTN"",""PSBOHDR"",22,0)"
^XMB(3.9,98,2,5032,0)=" .S PSBHDR(""SSN"")=$P(VADM(2),U,2)"
^XMB(3.9,98,2,5033,0)="""RTN"",""PSBOHDR"",23,0)"
^XMB(3.9,98,2,5034,0)=" .S PSBHDR(""DOB"")=$P(VADM(3),U,2)"
^XMB(3.9,98,2,5035,0)="""RTN"",""PSBOHDR"",24,0)"
^XMB(3.9,98,2,5036,0)=" .S PSBHDR(""AGE"")=VADM(4)"
^XMB(3.9,98,2,5037,0)="""RTN"",""PSBOHDR"",25,0)"
^XMB(3.9,98,2,5038,0)=" .S PSBHDR(""SEX"")=$P(VADM(5),U,2)"
^XMB(3.9,98,2,5039,0)="""RTN"",""PSBOHDR"",26,0)"
^XMB(3.9,98,2,5040,0)=" .S PSBHDR(""MVMTTYPE"")=$P(VAIP(2),U,2)"
^XMB(3.9,98,2,5041,0)="""RTN"",""PSBOHDR"",27,0)"
^XMB(3.9,98,2,5042,0)=" .S PSBHDR(""MVMTLAST"")=$P(VAIP(3),U,2)"
^XMB(3.9,98,2,5043,0)="""RTN"",""PSBOHDR"",28,0)"
^XMB(3.9,98,2,5044,0)=" .S PSBHDR(""WARD"")=$P(VAIP(5),U,2)"
^XMB(3.9,98,2,5045,0)="""RTN"",""PSBOHDR"",29,0)"
^XMB(3.9,98,2,5046,0)=" .S PSBHDR(""ROOM"")=$P(VAIP(6),U,2)"
^XMB(3.9,98,2,5047,0)="""RTN"",""PSBOHDR"",30,0)"
^XMB(3.9,98,2,5048,0)=" .S PSBHDR(""DX"")=VAIP(9)"
^XMB(3.9,98,2,5049,0)="""RTN"",""PSBOHDR"",31,0)"
^XMB(3.9,98,2,5050,0)=" .K VAIP,VADM"
^XMB(3.9,98,2,5051,0)="""RTN"",""PSBOHDR"",32,0)"
^XMB(3.9,98,2,5052,0)=" .S GMRVSTR=""HT"" D EN6^GMRVUTL"
^XMB(3.9,98,2,5053,0)="""RTN"",""PSBOHDR"",33,0)"
^XMB(3.9,98,2,5054,0)=" .S X=+$P(X,U,8) S:X X=X*2.54\1 S PSBHDR(""HEIGHT"")=$S(X:X_""cm"",1:""*"")"
^XMB(3.9,98,2,5055,0)="""RTN"",""PSBOHDR"",34,0)"
^XMB(3.9,98,2,5056,0)=" .S GMRVSTR=""WT"" D EN6^GMRVUTL"
^XMB(3.9,98,2,5057,0)="""RTN"",""PSBOHDR"",35,0)"
^XMB(3.9,98,2,5058,0)=" .S X=+$P(X,U,8) S:X X=X*.45\1 S PSBHDR(""WEIGHT"")=$S(X:X_""kg"",1:""*"")"
^XMB(3.9,98,2,5059,0)="""RTN"",""PSBOHDR"",36,0)"
^XMB(3.9,98,2,5060,0)=" .N PSBADRX D ALLR^PSBALL(.PSBADRX,DFN) S X=0,Y="""""
^XMB(3.9,98,2,5061,0)="""RTN"",""PSBOHDR"",37,0)"
^XMB(3.9,98,2,5062,0)=" .F  S X=$O(PSBADRX(X)) Q:'X  D"
^XMB(3.9,98,2,5063,0)="""RTN"",""PSBOHDR"",38,0)"
^XMB(3.9,98,2,5064,0)=" ..Q:$P(PSBADRX(X),U,1)'=""ADR""  S Z=$P(PSBADRX(X),U,2) Q:Z="""""
^XMB(3.9,98,2,5065,0)="""RTN"",""PSBOHDR"",39,0)"
^XMB(3.9,98,2,5066,0)=" ..I $L(Y_Z)>(IOM-22) S PSBHDR(""REAC"",$O(PSBHDR(""REAC"",""""),-1)+1)=Y,Y="""""
^XMB(3.9,98,2,5067,0)="""RTN"",""PSBOHDR"",40,0)"
^XMB(3.9,98,2,5068,0)=" ..S Y=Y_$S(Y]"""":"", "",1:"""")_$P(PSBADRX(X),U,2)"
^XMB(3.9,98,2,5069,0)="""RTN"",""PSBOHDR"",41,0)"
^XMB(3.9,98,2,5070,0)=" .S:Y]"""" PSBHDR(""REAC"",$O(PSBHDR(""REAC"",""""),-1)+1)=Y"
^XMB(3.9,98,2,5071,0)="""RTN"",""PSBOHDR"",42,0)"
^XMB(3.9,98,2,5072,0)=" .I '$D(PSBHDR(""REAC"")) S PSBHDR(""REAC"",1)=""No ADRs on file."""
^XMB(3.9,98,2,5073,0)="""RTN"",""PSBOHDR"",43,0)"
^XMB(3.9,98,2,5074,0)=" .D PSBALG"
^XMB(3.9,98,2,5075,0)="""RTN"",""PSBOHDR"",44,0)"
^XMB(3.9,98,2,5076,0)=" .K GMRAL,GMRVSTR,GMRA,PSBARX"
^XMB(3.9,98,2,5077,0)="""RTN"",""PSBOHDR"",45,0)"
^XMB(3.9,98,2,5078,0)=" .D NOW^%DTC S Y=+$E(%,1,12) D D^DIQ S PSBHDR(""DATE"")=""Run Date: ""_Y"
^XMB(3.9,98,2,5079,0)="""RTN"",""PSBOHDR"",46,0)"
^XMB(3.9,98,2,5080,0)=" .S PSBHDR(""PAGE"")=0"
^XMB(3.9,98,2,5081,0)="""RTN"",""PSBOHDR"",47,0)"
^XMB(3.9,98,2,5082,0)=" W $C(13),$TR($J("""",IOM),"" "",""="")"
^XMB(3.9,98,2,5083,0)="""RTN"",""PSBOHDR"",48,0)"
^XMB(3.9,98,2,5084,0)=" W !,$G(PSBHDR(0))"
^XMB(3.9,98,2,5085,0)="""RTN"",""PSBOHDR"",49,0)"
^XMB(3.9,98,2,5086,0)=" W !,$G(PSBHDR(1)),?(IOM-$L(PSBHDR(""DATE""))),PSBHDR(""DATE"")"
^XMB(3.9,98,2,5087,0)="""RTN"",""PSBOHDR"",50,0)"
^XMB(3.9,98,2,5088,0)=" S PSBHDR(""PAGE"")=PSBHDR(""PAGE"")+1"
^XMB(3.9,98,2,5089,0)="""RTN"",""PSBOHDR"",51,0)"
^XMB(3.9,98,2,5090,0)=" W !,$G(PSBHDR(2)),?(IOM-10),$J(""Page: ""_PSBHDR(""PAGE""),10)"
^XMB(3.9,98,2,5091,0)="""RTN"",""PSBOHDR"",52,0)"
^XMB(3.9,98,2,5092,0)=" F X=3:1 Q:'$D(PSBHDR(X))  W !,PSBHDR(X)  ; More Lines If Needed"
^XMB(3.9,98,2,5093,0)="""RTN"",""PSBOHDR"",53,0)"
^XMB(3.9,98,2,5094,0)=" I $G(PSBCONT) W !?(IOM-35\2),""*** CONTINUED FROM PREVIOUS PAGE ***"""
^XMB(3.9,98,2,5095,0)="""RTN"",""PSBOHDR"",54,0)"
^XMB(3.9,98,2,5096,0)=" W !!,""Patient:"",?10,PSBHDR(""NAME"")"
^XMB(3.9,98,2,5097,0)="""RTN"",""PSBOHDR"",55,0)"
^XMB(3.9,98,2,5098,0)=" W ?40,""SSN:       "",PSBHDR(""SSN"")"
^XMB(3.9,98,2,5099,0)="""RTN"",""PSBOHDR"",56,0)"
^XMB(3.9,98,2,5100,0)=" W ?75,""DOB:"",?82,PSBHDR(""DOB""),"" ("",PSBHDR(""AGE""),"")"""
^XMB(3.9,98,2,5101,0)="""RTN"",""PSBOHDR"",57,0)"
^XMB(3.9,98,2,5102,0)=" D:'$G(PSBCONT)"
^XMB(3.9,98,2,5103,0)="""RTN"",""PSBOHDR"",58,0)"
^XMB(3.9,98,2,5104,0)=" .W !,""Sex: "",?10,PSBHDR(""SEX""),?40,""Ht/Wt:     "",PSBHDR(""HEIGHT""),""/"",PSBHDR(""WEIGHT""),?75,""Ward: "",?82,PSBHDR(""WARD""),"" Rm "",PSBHDR(""ROOM"")"
^XMB(3.9,98,2,5105,0)="""RTN"",""PSBOHDR"",59,0)"
^XMB(3.9,98,2,5106,0)=" .W !,""Dx:"",?10,PSBHDR(""DX""),?40,""Last Mvmt: "",PSBHDR(""MVMTLAST""),?75,""Type:  "",PSBHDR(""MVMTTYPE"")"
^XMB(3.9,98,2,5107,0)="""RTN"",""PSBOHDR"",60,0)"
^XMB(3.9,98,2,5108,0)=" .; Reactions/Allergies"
^XMB(3.9,98,2,5109,0)="""RTN"",""PSBOHDR"",61,0)"
^XMB(3.9,98,2,5110,0)=" .W !!,""ADRs:"""
^XMB(3.9,98,2,5111,0)="""RTN"",""PSBOHDR"",62,0)"
^XMB(3.9,98,2,5112,0)=" .F X=0:0 S X=$O(PSBHDR(""REAC"",X)) Q:'X  W:$X>12 ! W ?12,PSBHDR(""REAC"",X)"
^XMB(3.9,98,2,5113,0)="""RTN"",""PSBOHDR"",63,0)"
^XMB(3.9,98,2,5114,0)=" .W !!,""Allergies:"""
^XMB(3.9,98,2,5115,0)="""RTN"",""PSBOHDR"",64,0)"
^XMB(3.9,98,2,5116,0)=" .F X=0:0 S X=$O(PSBHDR(""ALERGY"",X)) Q:'X  W:$X>12 ! W ?12,PSBHDR(""ALERGY"",X)"
^XMB(3.9,98,2,5117,0)="""RTN"",""PSBOHDR"",65,0)"
^XMB(3.9,98,2,5118,0)=" .; Local Mods Allowed Here and showup only on First Page"
^XMB(3.9,98,2,5119,0)="""RTN"",""PSBOHDR"",66,0)"
^XMB(3.9,98,2,5120,0)=" .; Immunizations"
^XMB(3.9,98,2,5121,0)="""RTN"",""PSBOHDR"",67,0)"
^XMB(3.9,98,2,5122,0)=" .;D SHOT80^ASFSHOTF"
^XMB(3.9,98,2,5123,0)="""RTN"",""PSBOHDR"",68,0)"
^XMB(3.9,98,2,5124,0)=" W !,$TR($J("""",IOM),"" "",""="")"
^XMB(3.9,98,2,5125,0)="""RTN"",""PSBOHDR"",69,0)"
^XMB(3.9,98,2,5126,0)=" Q"
^XMB(3.9,98,2,5127,0)="""RTN"",""PSBOHDR"",70,0)"
^XMB(3.9,98,2,5128,0)=" ;"
^XMB(3.9,98,2,5129,0)="""RTN"",""PSBOHDR"",71,0)"
^XMB(3.9,98,2,5130,0)="WARD(PSBWP,PSBHDR,PSBCONT,PSBDT) ; "
^XMB(3.9,98,2,5131,0)="""RTN"",""PSBOHDR"",72,0)"
^XMB(3.9,98,2,5132,0)=" ; WARD:    Nurse Location File IEN"
^XMB(3.9,98,2,5133,0)="""RTN"",""PSBOHDR"",73,0)"
^XMB(3.9,98,2,5134,0)=" ; PSBCONT: True if this is a continuation page"
^XMB(3.9,98,2,5135,0)="""RTN"",""PSBOHDR"",74,0)"
^XMB(3.9,98,2,5136,0)=" ; PSBDT:   Date of Pt Information (Default to DT)"
^XMB(3.9,98,2,5137,0)="""RTN"",""PSBOHDR"",75,0)"
^XMB(3.9,98,2,5138,0)=" N PSBWRDA"
^XMB(3.9,98,2,5139,0)="""RTN"",""PSBOHDR"",76,0)"
^XMB(3.9,98,2,5140,0)=" S:'$G(PSBDT) PSBDT=DT"
^XMB(3.9,98,2,5141,0)="""RTN"",""PSBOHDR"",77,0)"
^XMB(3.9,98,2,5142,0)=" I '$D(PSBHDR(""DATE"")) D NOW^%DTC S Y=+$E(%,1,12) D D^DIQ S PSBHDR(""DATE"")=""Run Date: ""_Y"
^XMB(3.9,98,2,5143,0)="""RTN"",""PSBOHDR"",78,0)"
^XMB(3.9,98,2,5144,0)=" S:'$D(PSBHDR(""PAGE"")) PSBHDR(""PAGE"")=0"
^XMB(3.9,98,2,5145,0)="""RTN"",""PSBOHDR"",79,0)"
^XMB(3.9,98,2,5146,0)=" W:$Y>1 @IOF"
^XMB(3.9,98,2,5147,0)="""RTN"",""PSBOHDR"",80,0)"
^XMB(3.9,98,2,5148,0)=" W:$X>0 !"
^XMB(3.9,98,2,5149,0)="""RTN"",""PSBOHDR"",81,0)"
^XMB(3.9,98,2,5150,0)=" W $TR($J("""",IOM),"" "",""=""),!,$G(PSBHDR(0)),!,$G(PSBHDR(1)),?(IOM-$L(PSBHDR(""DATE""))),PSBHDR(""DATE"")"
^XMB(3.9,98,2,5151,0)="""RTN"",""PSBOHDR"",82,0)"
^XMB(3.9,98,2,5152,0)=" S PSBHDR(""PAGE"")=PSBHDR(""PAGE"")+1"
^XMB(3.9,98,2,5153,0)="""RTN"",""PSBOHDR"",83,0)"
^XMB(3.9,98,2,5154,0)=" W !,$G(PSBHDR(2)),?(IOM-10),$J(""Page: ""_PSBHDR(""PAGE""),10)"
^XMB(3.9,98,2,5155,0)="""RTN"",""PSBOHDR"",84,0)"
^XMB(3.9,98,2,5156,0)=" F X=3:1 Q:'$D(PSBHDR(X))  W !,PSBHDR(X)  ; More Lines If Needed"
^XMB(3.9,98,2,5157,0)="""RTN"",""PSBOHDR"",85,0)"
^XMB(3.9,98,2,5158,0)=" I $G(PSBCONT) W !?(IOM-35\2),""*** CONTINUED FROM PREVIOUS PAGE ***"""
^XMB(3.9,98,2,5159,0)="""RTN"",""PSBOHDR"",86,0)"
^XMB(3.9,98,2,5160,0)=" D WARD^NURSUT5(""L^""_PSBWP,.PSBWRDA)"
^XMB(3.9,98,2,5161,0)="""RTN"",""PSBOHDR"",87,0)"
^XMB(3.9,98,2,5162,0)=" W !!,""Ward Location: ""_$P(PSBWRDA(PSBWP,.01),U,2)"
^XMB(3.9,98,2,5163,0)="""RTN"",""PSBOHDR"",88,0)"
^XMB(3.9,98,2,5164,0)=" S X=""Division: ""_$P(PSBWRDA(PSBWP,.02),U,2)"
^XMB(3.9,98,2,5165,0)="""RTN"",""PSBOHDR"",89,0)"
^XMB(3.9,98,2,5166,0)=" W ?(IOM-$L(X)),X,!,$TR($J("""",IOM),"" "",""="")"
^XMB(3.9,98,2,5167,0)="""RTN"",""PSBOHDR"",90,0)"
^XMB(3.9,98,2,5168,0)=" Q"
^XMB(3.9,98,2,5169,0)="""RTN"",""PSBOHDR"",91,0)"
^XMB(3.9,98,2,5170,0)=" ;"
^XMB(3.9,98,2,5171,0)="""RTN"",""PSBOHDR"",92,0)"
^XMB(3.9,98,2,5172,0)="PSBALG   ;"
^XMB(3.9,98,2,5173,0)="""RTN"",""PSBOHDR"",93,0)"
^XMB(3.9,98,2,5174,0)=" S YA="""""
^XMB(3.9,98,2,5175,0)="""RTN"",""PSBOHDR"",94,0)"
^XMB(3.9,98,2,5176,0)=" K PSBAL,GMRALA"
^XMB(3.9,98,2,5177,0)="""RTN"",""PSBOHDR"",95,0)"
^XMB(3.9,98,2,5178,0)=" S PSBLIST="""""
^XMB(3.9,98,2,5179,0)="""RTN"",""PSBOHDR"",96,0)"
^XMB(3.9,98,2,5180,0)=" D ALLR^PSBALL(.GMRALA,DFN)"
^XMB(3.9,98,2,5181,0)="""RTN"",""PSBOHDR"",97,0)"
^XMB(3.9,98,2,5182,0)=" S X="""" F  S X=$O(GMRALA(X)) Q:X=""""  D"
^XMB(3.9,98,2,5183,0)="""RTN"",""PSBOHDR"",98,0)"
^XMB(3.9,98,2,5184,0)=" .I $P(GMRALA(X),U,1)[""ALL"" D"
^XMB(3.9,98,2,5185,0)="""RTN"",""PSBOHDR"",99,0)"
^XMB(3.9,98,2,5186,0)=" ..S PSBAL($P(GMRALA(X),U,2))="""""
^XMB(3.9,98,2,5187,0)="""RTN"",""PSBOHDR"",100,0)"
^XMB(3.9,98,2,5188,0)=" S XAB="""" F  S XAB=$O(PSBAL(XAB)) Q:XAB=""""  D"
^XMB(3.9,98,2,5189,0)="""RTN"",""PSBOHDR"",101,0)"
^XMB(3.9,98,2,5190,0)=" .S Z=XAB"
^XMB(3.9,98,2,5191,0)="""RTN"",""PSBOHDR"",102,0)"
^XMB(3.9,98,2,5192,0)=" .I $L(YA_Z)>(IOM-22) S PSBHDR(""ALERGY"",$O(PSBHDR(""ALERGY"",""""),-1)+1)=YA,YA="""""
^XMB(3.9,98,2,5193,0)="""RTN"",""PSBOHDR"",103,0)"
^XMB(3.9,98,2,5194,0)=" .S YA=YA_$S(YA]"""":"", "",1:"""")_XAB"
^XMB(3.9,98,2,5195,0)="""RTN"",""PSBOHDR"",104,0)"
^XMB(3.9,98,2,5196,0)=" S:YA]"""" PSBHDR(""ALERGY"",$O(PSBHDR(""ALERGY"",""""),-1)+1)=YA"
^XMB(3.9,98,2,5197,0)="""RTN"",""PSBOHDR"",105,0)"
^XMB(3.9,98,2,5198,0)=" I '$D(PSBHDR(""ALERGY"")) S PSBHDR(""ALERGY"",1)=""No Allergies on file."""
^XMB(3.9,98,2,5199,0)="""RTN"",""PSBOHDR"",106,0)"
^XMB(3.9,98,2,5200,0)=" Q"
^XMB(3.9,98,2,5201,0)="""RTN"",""PSBOHDR"",107,0)"
^XMB(3.9,98,2,5202,0)=" ;"
^XMB(3.9,98,2,5203,0)="""RTN"",""PSBOHDR"",108,0)"
^XMB(3.9,98,2,5204,0)="PTFTR() ; [Extrinsic] Patient Page footer"
^XMB(3.9,98,2,5205,0)="""RTN"",""PSBOHDR"",109,0)"
^XMB(3.9,98,2,5206,0)=" ;"
^XMB(3.9,98,2,5207,0)="""RTN"",""PSBOHDR"",110,0)"
^XMB(3.9,98,2,5208,0)=" I (IOSL<100) F  Q:$Y>(IOSL-6)  W !"
^XMB(3.9,98,2,5209,0)="""RTN"",""PSBOHDR"",111,0)"
^XMB(3.9,98,2,5210,0)=" W !,$TR($J("""",IOM),"" "",""="")"
^XMB(3.9,98,2,5211,0)="""RTN"",""PSBOHDR"",112,0)"
^XMB(3.9,98,2,5212,0)=" S X=""Ward: ""_PSBHDR(""WARD"")_""  Room-Bed: ""_PSBHDR(""ROOM"")"
^XMB(3.9,98,2,5213,0)="""RTN"",""PSBOHDR"",113,0)"
^XMB(3.9,98,2,5214,0)=" W !,PSBHDR(""NAME""),?(IOM-11\2),PSBHDR(""SSN""),?(IOM-$L(X)),X"
^XMB(3.9,98,2,5215,0)="""RTN"",""PSBOHDR"",114,0)"
^XMB(3.9,98,2,5216,0)=" I $G(PSBUNK) S X=""Note:  ??  Indicates an administration with an *UNKNOWN* Action Status"" W !!,X"
^XMB(3.9,98,2,5217,0)="""RTN"",""PSBOHDR"",115,0)"
^XMB(3.9,98,2,5218,0)=" Q """""
^XMB(3.9,98,2,5219,0)="""RTN"",""PSBOHDR"",116,0)"
^XMB(3.9,98,2,5220,0)=" ;"
^XMB(3.9,98,2,5221,0)="""RTN"",""PSBOPM"")"
^XMB(3.9,98,2,5222,0)="0^27^B77561765^B76255661"
^XMB(3.9,98,2,5223,0)="""RTN"",""PSBOPM"",1,0)"
^XMB(3.9,98,2,5224,0)="PSBOPM ;BIRMINGHAM/BSR-BCMA OIT HISTORY ;Mar 2004"
^XMB(3.9,98,2,5225,0)="""RTN"",""PSBOPM"",2,0)"
^XMB(3.9,98,2,5226,0)=" ;;3.0;BAR CODE MED ADMIN;**3,9,13**;Mar 2004"
^XMB(3.9,98,2,5227,0)="""RTN"",""PSBOPM"",3,0)"
^XMB(3.9,98,2,5228,0)=" ;"
^XMB(3.9,98,2,5229,0)="""RTN"",""PSBOPM"",4,0)"
^XMB(3.9,98,2,5230,0)=" ; Reference/IA"
^XMB(3.9,98,2,5231,0)="""RTN"",""PSBOPM"",5,0)"
^XMB(3.9,98,2,5232,0)=" ; File 50.7/2880"
^XMB(3.9,98,2,5233,0)="""RTN"",""PSBOPM"",6,0)"
^XMB(3.9,98,2,5234,0)=" ; File 52.6/436"
^XMB(3.9,98,2,5235,0)="""RTN"",""PSBOPM"",7,0)"
^XMB(3.9,98,2,5236,0)=" ; File 52.7/437"
^XMB(3.9,98,2,5237,0)="""RTN"",""PSBOPM"",8,0)"
^XMB(3.9,98,2,5238,0)=" ; File 200/10060"
^XMB(3.9,98,2,5239,0)="""RTN"",""PSBOPM"",9,0)"
^XMB(3.9,98,2,5240,0)=" ; EN^PSJBCMA1/2829"
^XMB(3.9,98,2,5241,0)="""RTN"",""PSBOPM"",10,0)"
^XMB(3.9,98,2,5242,0)=" ;"
^XMB(3.9,98,2,5243,0)="""RTN"",""PSBOPM"",11,0)"
^XMB(3.9,98,2,5244,0)=" ;"
^XMB(3.9,98,2,5245,0)="""RTN"",""PSBOPM"",12,0)"
^XMB(3.9,98,2,5246,0)=" ;"
^XMB(3.9,98,2,5247,0)="""RTN"",""PSBOPM"",13,0)"
^XMB(3.9,98,2,5248,0)="EN ;"
^XMB(3.9,98,2,5249,0)="""RTN"",""PSBOPM"",14,0)"
^XMB(3.9,98,2,5250,0)=" N PSBHDR,DFN"
^XMB(3.9,98,2,5251,0)="""RTN"",""PSBOPM"",15,0)"
^XMB(3.9,98,2,5252,0)=" S PSBGBL=""^TMP(""""PSBO"""",$J,""""B"""")"""
^XMB(3.9,98,2,5253,0)="""RTN"",""PSBOPM"",16,0)"
^XMB(3.9,98,2,5254,0)=" F  S PSBGBL=$Q(@PSBGBL) Q:PSBGBL=""""  Q:$QS(PSBGBL,2)'=$J  Q:$QS(PSBGBL,1)'[""PSBO""  D"
^XMB(3.9,98,2,5255,0)="""RTN"",""PSBOPM"",17,0)"
^XMB(3.9,98,2,5256,0)=" .S DFN=$QS(PSBGBL,5)"
^XMB(3.9,98,2,5257,0)="""RTN"",""PSBOPM"",18,0)"
^XMB(3.9,98,2,5258,0)=" I '$G(DFN) W !,(""Error: No Patient IEN"")  Q"
^XMB(3.9,98,2,5259,0)="""RTN"",""PSBOPM"",19,0)"
^XMB(3.9,98,2,5260,0)=" S PSBSTRT=$P(PSBRPT(.1),U,6)+$P(PSBRPT(.1),U,7)"
^XMB(3.9,98,2,5261,0)="""RTN"",""PSBOPM"",20,0)"
^XMB(3.9,98,2,5262,0)=" S PSBSTOP=$P(PSBRPT(.1),U,8)+$P(PSBRPT(.1),U,9)"
^XMB(3.9,98,2,5263,0)="""RTN"",""PSBOPM"",21,0)"
^XMB(3.9,98,2,5264,0)=" S PSBCOM=$P(PSBRPT(.2),""^"",8)   ;COMMENT FLAG 1 MEANS YES"
^XMB(3.9,98,2,5265,0)="""RTN"",""PSBOPM"",22,0)"
^XMB(3.9,98,2,5266,0)=" I PSBSTRT=""0"" D"
^XMB(3.9,98,2,5267,0)="""RTN"",""PSBOPM"",23,0)"
^XMB(3.9,98,2,5268,0)=" .D NOW^%DTC S PSBSTOP=%"
^XMB(3.9,98,2,5269,0)="""RTN"",""PSBOPM"",24,0)"
^XMB(3.9,98,2,5270,0)=" .S X1=((PSBSTOP)\1) S X2=-$$GET^XPAR(""ALL"",""PSB MED HIST DAYS BACK"")"
^XMB(3.9,98,2,5271,0)="""RTN"",""PSBOPM"",25,0)"
^XMB(3.9,98,2,5272,0)=" .S:X2'<0 X2=-30 D C^%DTC  S PSBSTRT=X"
^XMB(3.9,98,2,5273,0)="""RTN"",""PSBOPM"",26,0)"
^XMB(3.9,98,2,5274,0)=" .S PSBCOM=$$GET^XPAR(""ALL"",""PSB RPT INCL COMMENTS"")"
^XMB(3.9,98,2,5275,0)="""RTN"",""PSBOPM"",27,0)"
^XMB(3.9,98,2,5276,0)=" D OUT(DFN,PSBSTRT,PSBSTOP,PSBORDNM)"
^XMB(3.9,98,2,5277,0)="""RTN"",""PSBOPM"",28,0)"
^XMB(3.9,98,2,5278,0)=" Q"
^XMB(3.9,98,2,5279,0)="""RTN"",""PSBOPM"",29,0)"
^XMB(3.9,98,2,5280,0)=" ;"
^XMB(3.9,98,2,5281,0)="""RTN"",""PSBOPM"",30,0)"
^XMB(3.9,98,2,5282,0)="OUT(DFN,PSBSTRT,PSBSTOP,PSBORDNM)        ;"
^XMB(3.9,98,2,5283,0)="""RTN"",""PSBOPM"",31,0)"
^XMB(3.9,98,2,5284,0)=" D CLEANALL ;CLEAN UP VARIABLES AND TMP ARRAY"
^XMB(3.9,98,2,5285,0)="""RTN"",""PSBOPM"",32,0)"
^XMB(3.9,98,2,5286,0)=" ;"
^XMB(3.9,98,2,5287,0)="""RTN"",""PSBOPM"",33,0)"
^XMB(3.9,98,2,5288,0)=" ;IF PSBORDNM DOES NOT CONTAIN A ""U"" OR A ""V"" ASSUME THAT THE CALL"
^XMB(3.9,98,2,5289,0)="""RTN"",""PSBOPM"",34,0)"
^XMB(3.9,98,2,5290,0)=" ;IS PASSING AND ORDERABLE ITEM AND SKIP THE ORDER LOOKUP PORTION"
^XMB(3.9,98,2,5291,0)="""RTN"",""PSBOPM"",35,0)"
^XMB(3.9,98,2,5292,0)=" ;THIS MAINTAINS BACKWARD COMPATABILITY WITH HISTORY^PSBMLHS"
^XMB(3.9,98,2,5293,0)="""RTN"",""PSBOPM"",36,0)"
^XMB(3.9,98,2,5294,0)=" I PSBORDNM'[""U"",PSBORDNM'[""V"" D"
^XMB(3.9,98,2,5295,0)="""RTN"",""PSBOPM"",37,0)"
^XMB(3.9,98,2,5296,0)=" .I PSBORDNM]"""" S TMP(""PSBOIS"",$J,PSBORDNM)="""""
^XMB(3.9,98,2,5297,0)="""RTN"",""PSBOPM"",38,0)"
^XMB(3.9,98,2,5298,0)=" E  D "
^XMB(3.9,98,2,5299,0)="""RTN"",""PSBOPM"",39,0)"
^XMB(3.9,98,2,5300,0)=" .D GETORDN"
^XMB(3.9,98,2,5301,0)="""RTN"",""PSBOPM"",40,0)"
^XMB(3.9,98,2,5302,0)=" .D GETOIS"
^XMB(3.9,98,2,5303,0)="""RTN"",""PSBOPM"",41,0)"
^XMB(3.9,98,2,5304,0)=" D GETADSO ;  GET ALL ADDITIVES AND SOLUTIONS"
^XMB(3.9,98,2,5305,0)="""RTN"",""PSBOPM"",42,0)"
^XMB(3.9,98,2,5306,0)=" D FINDIENS ; FIND ALL THE MED LOG ENTRIES THAT SHOULD BE ON THE REPORT"
^XMB(3.9,98,2,5307,0)="""RTN"",""PSBOPM"",43,0)"
^XMB(3.9,98,2,5308,0)=" D PREOUT ;   WRITE DATA TO GLOBAL"
^XMB(3.9,98,2,5309,0)="""RTN"",""PSBOPM"",44,0)"
^XMB(3.9,98,2,5310,0)=" D WRITEOT ;"
^XMB(3.9,98,2,5311,0)="""RTN"",""PSBOPM"",45,0)"
^XMB(3.9,98,2,5312,0)=" D CLEANSUM ; CLEAN UP AND LEAVE LIST OF IENS FOR THE REPORT."
^XMB(3.9,98,2,5313,0)="""RTN"",""PSBOPM"",46,0)"
^XMB(3.9,98,2,5314,0)=" Q"
^XMB(3.9,98,2,5315,0)="""RTN"",""PSBOPM"",47,0)"
^XMB(3.9,98,2,5316,0)=" ;"
^XMB(3.9,98,2,5317,0)="""RTN"",""PSBOPM"",48,0)"
^XMB(3.9,98,2,5318,0)="GETORDN ;"
^XMB(3.9,98,2,5319,0)="""RTN"",""PSBOPM"",49,0)"
^XMB(3.9,98,2,5320,0)=" K ^TMP(""PSJ1"",$J)"
^XMB(3.9,98,2,5321,0)="""RTN"",""PSBOPM"",50,0)"
^XMB(3.9,98,2,5322,0)=" D EN^PSJBCMA1(DFN,PSBORDNM,1)"
^XMB(3.9,98,2,5323,0)="""RTN"",""PSBOPM"",51,0)"
^XMB(3.9,98,2,5324,0)=" Q"
^XMB(3.9,98,2,5325,0)="""RTN"",""PSBOPM"",52,0)"
^XMB(3.9,98,2,5326,0)=" ;"
^XMB(3.9,98,2,5327,0)="""RTN"",""PSBOPM"",53,0)"
^XMB(3.9,98,2,5328,0)="GETOIS  ; BUILD LIST OF ALL ORDERABLE ITEMS "
^XMB(3.9,98,2,5329,0)="""RTN"",""PSBOPM"",54,0)"
^XMB(3.9,98,2,5330,0)=" ;  ASSOCIATED WITH THIS ORDER INTO PSBOIS(#) "
^XMB(3.9,98,2,5331,0)="""RTN"",""PSBOPM"",55,0)"
^XMB(3.9,98,2,5332,0)=" ;"
^XMB(3.9,98,2,5333,0)="""RTN"",""PSBOPM"",56,0)"
^XMB(3.9,98,2,5334,0)=" ;UNIT DOSE ORDER ONLY HAVE ONE OI"
^XMB(3.9,98,2,5335,0)="""RTN"",""PSBOPM"",57,0)"
^XMB(3.9,98,2,5336,0)=" I PSBORDNM[""U"" D"
^XMB(3.9,98,2,5337,0)="""RTN"",""PSBOPM"",58,0)"
^XMB(3.9,98,2,5338,0)=" .S PSBOI=$P(^TMP(""PSJ1"",$J,2),""^"")"
^XMB(3.9,98,2,5339,0)="""RTN"",""PSBOPM"",59,0)"
^XMB(3.9,98,2,5340,0)=" .S PSBOI=$S(PSBOI[""U"":$TR(PSBOI,""U"",""""),PSBOI[""V"":$TR(PSBOI,""V"",""""),1:PSBOI)"
^XMB(3.9,98,2,5341,0)="""RTN"",""PSBOPM"",60,0)"
^XMB(3.9,98,2,5342,0)=" .S TMP(""PSBOIS"",$J,PSBOI)="""""
^XMB(3.9,98,2,5343,0)="""RTN"",""PSBOPM"",61,0)"
^XMB(3.9,98,2,5344,0)=" ;"
^XMB(3.9,98,2,5345,0)="""RTN"",""PSBOPM"",62,0)"
^XMB(3.9,98,2,5346,0)=" ;IV ORDERS NEED TO USE THE ADDITIVE AND SOLUTION NUMBER TO BACK"
^XMB(3.9,98,2,5347,0)="""RTN"",""PSBOPM"",63,0)"
^XMB(3.9,98,2,5348,0)=" ;TRACK TO THE OI ASSOCIATED WITH IT"
^XMB(3.9,98,2,5349,0)="""RTN"",""PSBOPM"",64,0)"
^XMB(3.9,98,2,5350,0)=" I PSBORDNM[""V"" D"
^XMB(3.9,98,2,5351,0)="""RTN"",""PSBOPM"",65,0)"
^XMB(3.9,98,2,5352,0)=" .;GET ADDITIVES OFF THE ORDER"
^XMB(3.9,98,2,5353,0)="""RTN"",""PSBOPM"",66,0)"
^XMB(3.9,98,2,5354,0)=" .I $G(^TMP(""PSJ1"",$J,850,0))  D"
^XMB(3.9,98,2,5355,0)="""RTN"",""PSBOPM"",67,0)"
^XMB(3.9,98,2,5356,0)=" ..S XXX="""" F  S XXX=$O(^TMP(""PSJ1"",$J,850,XXX)) Q:XXX=""""  D"
^XMB(3.9,98,2,5357,0)="""RTN"",""PSBOPM"",68,0)"
^XMB(3.9,98,2,5358,0)=" ...S XXY="""" F  S XXY=$O(^TMP(""PSJ1"",$J,850,XXX,XXY)) Q:XXY=""""  D"
^XMB(3.9,98,2,5359,0)="""RTN"",""PSBOPM"",69,0)"
^XMB(3.9,98,2,5360,0)=" ....S PSBADD=$P(^TMP(""PSJ1"",$J,850,XXX,XXY),""^"")"
^XMB(3.9,98,2,5361,0)="""RTN"",""PSBOPM"",70,0)"
^XMB(3.9,98,2,5362,0)=" ....;"
^XMB(3.9,98,2,5363,0)="""RTN"",""PSBOPM"",71,0)"
^XMB(3.9,98,2,5364,0)=" ....;CONVERT ADDITIVE TO ORDERABLE ITEM AND ADD TO LIST"
^XMB(3.9,98,2,5365,0)="""RTN"",""PSBOPM"",72,0)"
^XMB(3.9,98,2,5366,0)=" ....S TMP(""PSBOIS"",$J,$$OFROMA(PSBADD))="""""
^XMB(3.9,98,2,5367,0)="""RTN"",""PSBOPM"",73,0)"
^XMB(3.9,98,2,5368,0)=" .;   GET SOLUTIONS OFF THE ORDER"
^XMB(3.9,98,2,5369,0)="""RTN"",""PSBOPM"",74,0)"
^XMB(3.9,98,2,5370,0)=" .I $G(^TMP(""PSJ1"",$J,950,0))  D"
^XMB(3.9,98,2,5371,0)="""RTN"",""PSBOPM"",75,0)"
^XMB(3.9,98,2,5372,0)=" ..S XXX="""" F  S XXX=$O(^TMP(""PSJ1"",$J,950,XXX)) Q:XXX=""""  D"
^XMB(3.9,98,2,5373,0)="""RTN"",""PSBOPM"",76,0)"
^XMB(3.9,98,2,5374,0)=" ...S XXY="""" F  S XXY=$O(^TMP(""PSJ1"",$J,950,XXX,XXY)) Q:XXY=""""  D"
^XMB(3.9,98,2,5375,0)="""RTN"",""PSBOPM"",77,0)"
^XMB(3.9,98,2,5376,0)=" ....S PSBSOL=$P(^TMP(""PSJ1"",$J,950,XXX,XXY),""^"")"
^XMB(3.9,98,2,5377,0)="""RTN"",""PSBOPM"",78,0)"
^XMB(3.9,98,2,5378,0)=" ....;"
^XMB(3.9,98,2,5379,0)="""RTN"",""PSBOPM"",79,0)"
^XMB(3.9,98,2,5380,0)=" ....;CONVERT SOLUTIOIN TO ORDERABLE ITEM AND ADD TO LIST"
^XMB(3.9,98,2,5381,0)="""RTN"",""PSBOPM"",80,0)"
^XMB(3.9,98,2,5382,0)=" ....S TMP(""PSBOIS"",$J,$$OFROMS(PSBSOL))="""""
^XMB(3.9,98,2,5383,0)="""RTN"",""PSBOPM"",81,0)"
^XMB(3.9,98,2,5384,0)=" Q"
^XMB(3.9,98,2,5385,0)="""RTN"",""PSBOPM"",82,0)"
^XMB(3.9,98,2,5386,0)=" ;"
^XMB(3.9,98,2,5387,0)="""RTN"",""PSBOPM"",83,0)"
^XMB(3.9,98,2,5388,0)="OFROMA(PSBADD) ;GET ORDERABLE ITEM FROM AN ADDITIVE"
^XMB(3.9,98,2,5389,0)="""RTN"",""PSBOPM"",84,0)"
^XMB(3.9,98,2,5390,0)=" Q $$GET1^DIQ(52.6,PSBADD_"","",15,""I"")"
^XMB(3.9,98,2,5391,0)="""RTN"",""PSBOPM"",85,0)"
^XMB(3.9,98,2,5392,0)=" ; "
^XMB(3.9,98,2,5393,0)="""RTN"",""PSBOPM"",86,0)"
^XMB(3.9,98,2,5394,0)="OFROMS(PSBSOL) ; GET ORDERABLE ITEM FROM A SOLUTION"
^XMB(3.9,98,2,5395,0)="""RTN"",""PSBOPM"",87,0)"
^XMB(3.9,98,2,5396,0)=" Q $$GET1^DIQ(52.7,PSBSOL_"","",9,""I"")"
^XMB(3.9,98,2,5397,0)="""RTN"",""PSBOPM"",88,0)"
^XMB(3.9,98,2,5398,0)=" ;"
^XMB(3.9,98,2,5399,0)="""RTN"",""PSBOPM"",89,0)"
^XMB(3.9,98,2,5400,0)="GETADSO ; GET ALL ADDITIVES FOR ALL ORDERABLE ITEMS"
^XMB(3.9,98,2,5401,0)="""RTN"",""PSBOPM"",90,0)"
^XMB(3.9,98,2,5402,0)=" K PSBAOUT,PSBSOUT"
^XMB(3.9,98,2,5403,0)="""RTN"",""PSBOPM"",91,0)"
^XMB(3.9,98,2,5404,0)=" S XA="""" F  S XA=$O(TMP(""PSBOIS"",$J,XA)) Q:XA=""""  D"
^XMB(3.9,98,2,5405,0)="""RTN"",""PSBOPM"",92,0)"
^XMB(3.9,98,2,5406,0)=" .D LIST^DIC(52.6,"""",""@;15I"",""QPI"","""","""","""",""AOI"","""","""",""PSBAOUT"")"
^XMB(3.9,98,2,5407,0)="""RTN"",""PSBOPM"",93,0)"
^XMB(3.9,98,2,5408,0)=" .S XB=0 F  S XB=$O(PSBAOUT(""DILIST"",XB)) Q:XB=""""  D"
^XMB(3.9,98,2,5409,0)="""RTN"",""PSBOPM"",94,0)"
^XMB(3.9,98,2,5410,0)=" ..I $P(PSBAOUT(""DILIST"",XB,0),""^"",2)=XA D"
^XMB(3.9,98,2,5411,0)="""RTN"",""PSBOPM"",95,0)"
^XMB(3.9,98,2,5412,0)=" ...S TMP(""PSBADDS"",$J,$P(PSBAOUT(""DILIST"",XB,0),""^"",1))="""""
^XMB(3.9,98,2,5413,0)="""RTN"",""PSBOPM"",96,0)"
^XMB(3.9,98,2,5414,0)=" K PSBAOUT"
^XMB(3.9,98,2,5415,0)="""RTN"",""PSBOPM"",97,0)"
^XMB(3.9,98,2,5416,0)=" ;"
^XMB(3.9,98,2,5417,0)="""RTN"",""PSBOPM"",98,0)"
^XMB(3.9,98,2,5418,0)=" ; GET ALL SOLUTIONS FOR ALL ORDERABLE ITEMS"
^XMB(3.9,98,2,5419,0)="""RTN"",""PSBOPM"",99,0)"
^XMB(3.9,98,2,5420,0)=" S XA="""" F  S XA=$O(TMP(""PSBOIS"",$J,XA)) Q:XA=""""  D"
^XMB(3.9,98,2,5421,0)="""RTN"",""PSBOPM"",100,0)"
^XMB(3.9,98,2,5422,0)=" .D LIST^DIC(52.7,"""",""@;9I"",""QPI"","""","""","""",""AOI"","""","""",""PSBSOUT"")"
^XMB(3.9,98,2,5423,0)="""RTN"",""PSBOPM"",101,0)"
^XMB(3.9,98,2,5424,0)=" .S XB=0 F  S XB=$O(PSBSOUT(""DILIST"",XB)) Q:XB=""""  D"
^XMB(3.9,98,2,5425,0)="""RTN"",""PSBOPM"",102,0)"
^XMB(3.9,98,2,5426,0)=" ..I $P(PSBSOUT(""DILIST"",XB,0),""^"",1)=XA D"
^XMB(3.9,98,2,5427,0)="""RTN"",""PSBOPM"",103,0)"
^XMB(3.9,98,2,5428,0)=" ...S TMP(""PSBSOLS"",$J,$P(PSBSOUT(""DILIST"",XB,0),""^"",1))="""""
^XMB(3.9,98,2,5429,0)="""RTN"",""PSBOPM"",104,0)"
^XMB(3.9,98,2,5430,0)=" K PSBSOUT"
^XMB(3.9,98,2,5431,0)="""RTN"",""PSBOPM"",105,0)"
^XMB(3.9,98,2,5432,0)=" Q"
^XMB(3.9,98,2,5433,0)="""RTN"",""PSBOPM"",106,0)"
^XMB(3.9,98,2,5434,0)=" ;"
^XMB(3.9,98,2,5435,0)="""RTN"",""PSBOPM"",107,0)"
^XMB(3.9,98,2,5436,0)="FINDIENS ; USE PSBOIS,PSBADDS AND PSBSOLS TO FIND ALL IENS FOR THE RPT"
^XMB(3.9,98,2,5437,0)="""RTN"",""PSBOPM"",108,0)"
^XMB(3.9,98,2,5438,0)=" ;SEARCH FOR UNIT DOSE IENS"
^XMB(3.9,98,2,5439,0)="""RTN"",""PSBOPM"",109,0)"
^XMB(3.9,98,2,5440,0)=" I $D(TMP(""PSBOIS"",$J)) S XA="""" F  S XA=$O(TMP(""PSBOIS"",$J,XA)) Q:XA=""""  D"
^XMB(3.9,98,2,5441,0)="""RTN"",""PSBOPM"",110,0)"
^XMB(3.9,98,2,5442,0)=" .S PSBDT=PSBSTRT F  S PSBDT=$O(^PSB(53.79,""AOIP"",DFN,XA,PSBDT)) Q:PSBDT=""""!(PSBDT>PSBSTOP)  D"
^XMB(3.9,98,2,5443,0)="""RTN"",""PSBOPM"",111,0)"
^XMB(3.9,98,2,5444,0)=" ..S PSBIEN="""" F  S PSBIEN=$O(^PSB(53.79,""AOIP"",DFN,XA,PSBDT,PSBIEN)) Q:PSBIEN=""""  D"
^XMB(3.9,98,2,5445,0)="""RTN"",""PSBOPM"",112,0)"
^XMB(3.9,98,2,5446,0)=" ...Q:$P(^PSB(53.79,PSBIEN,0),U,9)=""N"""
^XMB(3.9,98,2,5447,0)="""RTN"",""PSBOPM"",113,0)"
^XMB(3.9,98,2,5448,0)=" ...S TMP(""PSBIENS"",$J,$$GET1^DIQ(53.79,PSBIEN_"","",.06,""I""),PSBIEN)="""""
^XMB(3.9,98,2,5449,0)="""RTN"",""PSBOPM"",114,0)"
^XMB(3.9,98,2,5450,0)=" ;"
^XMB(3.9,98,2,5451,0)="""RTN"",""PSBOPM"",115,0)"
^XMB(3.9,98,2,5452,0)=" ;SEARCH FOR ADDITIVES"
^XMB(3.9,98,2,5453,0)="""RTN"",""PSBOPM"",116,0)"
^XMB(3.9,98,2,5454,0)=" I $D(TMP(""PSBADDS"",$J)) S XA="""" F  S XA=$O(TMP(""PSBADDS"",$J,XA)) Q:XA=""""  D"
^XMB(3.9,98,2,5455,0)="""RTN"",""PSBOPM"",117,0)"
^XMB(3.9,98,2,5456,0)=" .S PSBIEN="""" F  S PSBIEN=$O(^PSB(53.79,""AOIP3"",DFN,PSBIEN)) Q:PSBIEN=""""  D"
^XMB(3.9,98,2,5457,0)="""RTN"",""PSBOPM"",118,0)"
^XMB(3.9,98,2,5458,0)=" ..S XB="""" F  S XB=$O(^PSB(53.79,""AOIP3"",DFN,PSBIEN,XB)) Q:XB=""""  D"
^XMB(3.9,98,2,5459,0)="""RTN"",""PSBOPM"",119,0)"
^XMB(3.9,98,2,5460,0)=" ...Q:XB'=XA"
^XMB(3.9,98,2,5461,0)="""RTN"",""PSBOPM"",120,0)"
^XMB(3.9,98,2,5462,0)=" ...Q:$P(^PSB(53.79,PSBIEN,0),U,9)=""N"""
^XMB(3.9,98,2,5463,0)="""RTN"",""PSBOPM"",121,0)"
^XMB(3.9,98,2,5464,0)=" ...I $P(^PSB(53.79,PSBIEN,0),""^"",6)>PSBSTRT,($P(^PSB(53.79,PSBIEN,0),""^"",6)<PSBSTOP)  D"
^XMB(3.9,98,2,5465,0)="""RTN"",""PSBOPM"",122,0)"
^XMB(3.9,98,2,5466,0)=" ....S TMP(""PSBIENS"",$J,$$GET1^DIQ(53.79,PSBIEN_"","",.06,""I""),PSBIEN)="""""
^XMB(3.9,98,2,5467,0)="""RTN"",""PSBOPM"",123,0)"
^XMB(3.9,98,2,5468,0)=" ;"
^XMB(3.9,98,2,5469,0)="""RTN"",""PSBOPM"",124,0)"
^XMB(3.9,98,2,5470,0)=" ;SEARCH FOR SOLUTIONS"
^XMB(3.9,98,2,5471,0)="""RTN"",""PSBOPM"",125,0)"
^XMB(3.9,98,2,5472,0)=" I $D(TMP(""PSBSOLS"",$J)) S XA="""" F  S XA=$O(TMP(""PSBSOLS"",$J,XA)) Q:XA=""""  D"
^XMB(3.9,98,2,5473,0)="""RTN"",""PSBOPM"",126,0)"
^XMB(3.9,98,2,5474,0)=" .S PSBIEN="""" F  S PSBIEN=$O(^PSB(53.79,""AOIP4"",DFN,PSBIEN)) Q:PSBIEN=""""  D"
^XMB(3.9,98,2,5475,0)="""RTN"",""PSBOPM"",127,0)"
^XMB(3.9,98,2,5476,0)=" ..S XB="""" F  S XB=$O(^PSB(53.79,""AOIP4"",DFN,PSBIEN,XB)) Q:XB=""""  D"
^XMB(3.9,98,2,5477,0)="""RTN"",""PSBOPM"",128,0)"
^XMB(3.9,98,2,5478,0)=" ...Q:XB'=XA"
^XMB(3.9,98,2,5479,0)="""RTN"",""PSBOPM"",129,0)"
^XMB(3.9,98,2,5480,0)=" ...Q:$P(^PSB(53.79,PSBIEN,0),U,9)=""N"""
^XMB(3.9,98,2,5481,0)="""RTN"",""PSBOPM"",130,0)"
^XMB(3.9,98,2,5482,0)=" ...I $P(^PSB(53.79,PSBIEN,0),""^"",6)>PSBSTRT,($P(^PSB(53.79,PSBIEN,0),""^"",6)<PSBSTOP)  D"
^XMB(3.9,98,2,5483,0)="""RTN"",""PSBOPM"",131,0)"
^XMB(3.9,98,2,5484,0)=" ....S TMP(""PSBIENS"",$J,$$GET1^DIQ(53.79,PSBIEN_"","",.06,""I""),PSBIEN)="""""
^XMB(3.9,98,2,5485,0)="""RTN"",""PSBOPM"",132,0)"
^XMB(3.9,98,2,5486,0)=" Q"
^XMB(3.9,98,2,5487,0)="""RTN"",""PSBOPM"",133,0)"
^XMB(3.9,98,2,5488,0)=" ;"
^XMB(3.9,98,2,5489,0)="""RTN"",""PSBOPM"",134,0)"
^XMB(3.9,98,2,5490,0)="PREOUT ;"
^XMB(3.9,98,2,5491,0)="""RTN"",""PSBOPM"",135,0)"
^XMB(3.9,98,2,5492,0)=" K PSBUNK S XDT="""" F  S XDT=$O(TMP(""PSBIENS"",$J,XDT),-1) Q:XDT=""""  S I="""",I=$O(TMP(""PSBIENS"",$J,XDT,I)) D"
^XMB(3.9,98,2,5493,0)="""RTN"",""PSBOPM"",136,0)"
^XMB(3.9,98,2,5494,0)=" .S PSBIEN=I"
^XMB(3.9,98,2,5495,0)="""RTN"",""PSBOPM"",137,0)"
^XMB(3.9,98,2,5496,0)=" .S PSBIENS=PSBIEN_"","""
^XMB(3.9,98,2,5497,0)="""RTN"",""PSBOPM"",138,0)"
^XMB(3.9,98,2,5498,0)=" .D OUTPUT"
^XMB(3.9,98,2,5499,0)="""RTN"",""PSBOPM"",139,0)"
^XMB(3.9,98,2,5500,0)=" Q"
^XMB(3.9,98,2,5501,0)="""RTN"",""PSBOPM"",140,0)"
^XMB(3.9,98,2,5502,0)=" ;"
^XMB(3.9,98,2,5503,0)="""RTN"",""PSBOPM"",141,0)"
^XMB(3.9,98,2,5504,0)="OUTPUT  ;"
^XMB(3.9,98,2,5505,0)="""RTN"",""PSBOPM"",142,0)"
^XMB(3.9,98,2,5506,0)=" S PSBSPC=$J("""",80)"
^XMB(3.9,98,2,5507,0)="""RTN"",""PSBOPM"",143,0)"
^XMB(3.9,98,2,5508,0)=" S W=$E($$GET1^DIQ(53.79,PSBIENS,.02)_PSBSPC,1,20)_"" """
^XMB(3.9,98,2,5509,0)="""RTN"",""PSBOPM"",144,0)"
^XMB(3.9,98,2,5510,0)=" S W=W_$S($P(^PSB(53.79,PSBIEN,0),U,9)="""":""?? "",1:$E($P(^PSB(53.79,PSBIEN,0),U,9)_""  "",1,2)_"" "")"
^XMB(3.9,98,2,5511,0)="""RTN"",""PSBOPM"",145,0)"
^XMB(3.9,98,2,5512,0)=" S:$P(^PSB(53.79,PSBIEN,0),U,9)="""" PSBUNK=1"
^XMB(3.9,98,2,5513,0)="""RTN"",""PSBOPM"",146,0)"
^XMB(3.9,98,2,5514,0)=" S W=W_$E($P($G(^PSB(53.79,PSBIEN,.1)),U,2)_PSBSPC,1,2)_""  """
^XMB(3.9,98,2,5515,0)="""RTN"",""PSBOPM"",147,0)"
^XMB(3.9,98,2,5516,0)=" S W=W_$E($E($$GET1^DIQ(53.79,PSBIENS,.06),1,18)_PSBSPC,1,21)_"" """
^XMB(3.9,98,2,5517,0)="""RTN"",""PSBOPM"",148,0)"
^XMB(3.9,98,2,5518,0)=" S W=W_$E($$GET1^DIQ(53.79,PSBIENS,""ACTION BY:INITIAL"")_PSBSPC,1,10)_"" """
^XMB(3.9,98,2,5519,0)="""RTN"",""PSBOPM"",149,0)"
^XMB(3.9,98,2,5520,0)=" S W=W_$$GET1^DIQ(53.79,PSBIENS,.16)"
^XMB(3.9,98,2,5521,0)="""RTN"",""PSBOPM"",150,0)"
^XMB(3.9,98,2,5522,0)=" D ADD(W)"
^XMB(3.9,98,2,5523,0)="""RTN"",""PSBOPM"",151,0)"
^XMB(3.9,98,2,5524,0)=" F PSBNODE=.5,.6,.7 D"
^XMB(3.9,98,2,5525,0)="""RTN"",""PSBOPM"",152,0)"
^XMB(3.9,98,2,5526,0)=" .S PSBDD=$S(PSBNODE=.5:53.795,PSBNODE=.6:53.796,1:53.797)"
^XMB(3.9,98,2,5527,0)="""RTN"",""PSBOPM"",153,0)"
^XMB(3.9,98,2,5528,0)=" .F PSBY=0:0 S PSBY=$O(^PSB(53.79,PSBIEN,PSBNODE,PSBY)) Q:'PSBY  D"
^XMB(3.9,98,2,5529,0)="""RTN"",""PSBOPM"",154,0)"
^XMB(3.9,98,2,5530,0)=" ..D WRAPMEDS($$GET1^DIQ(PSBDD,PSBY_"",""_PSBIENS,.01),$$GET1^DIQ(PSBDD,PSBY_"",""_PSBIENS,.03),$$GET1^DIQ(PSBDD,PSBY_"",""_PSBIENS,.04))"
^XMB(3.9,98,2,5531,0)="""RTN"",""PSBOPM"",155,0)"
^XMB(3.9,98,2,5532,0)=" I PSBCOM=1  D COMNTS   ;GETS COMMENTS"
^XMB(3.9,98,2,5533,0)="""RTN"",""PSBOPM"",156,0)"
^XMB(3.9,98,2,5534,0)=" D ADD("""")"
^XMB(3.9,98,2,5535,0)="""RTN"",""PSBOPM"",157,0)"
^XMB(3.9,98,2,5536,0)=" Q"
^XMB(3.9,98,2,5537,0)="""RTN"",""PSBOPM"",158,0)"
^XMB(3.9,98,2,5538,0)=" ;"
^XMB(3.9,98,2,5539,0)="""RTN"",""PSBOPM"",159,0)"
^XMB(3.9,98,2,5540,0)="COMNTS  ;"
^XMB(3.9,98,2,5541,0)="""RTN"",""PSBOPM"",160,0)"
^XMB(3.9,98,2,5542,0)=" N Z,CNT"
^XMB(3.9,98,2,5543,0)="""RTN"",""PSBOPM"",161,0)"
^XMB(3.9,98,2,5544,0)=" S Z="""",CNT=0"
^XMB(3.9,98,2,5545,0)="""RTN"",""PSBOPM"",162,0)"
^XMB(3.9,98,2,5546,0)=" I $D(^PSB(53.79,PSBIEN,.3,0)) D"
^XMB(3.9,98,2,5547,0)="""RTN"",""PSBOPM"",163,0)"
^XMB(3.9,98,2,5548,0)=" .D ADD("""")"
^XMB(3.9,98,2,5549,0)="""RTN"",""PSBOPM"",164,0)"
^XMB(3.9,98,2,5550,0)=" .D ADD($J("""",44)_""Comments: ""_$$MAKELINE(""-"",78))"
^XMB(3.9,98,2,5551,0)="""RTN"",""PSBOPM"",165,0)"
^XMB(3.9,98,2,5552,0)=" .S XT="""" F  S XT=$O(^PSB(53.79,PSBIEN,.3,XT)) Q:XT=""""  I XT'=0  D"
^XMB(3.9,98,2,5553,0)="""RTN"",""PSBOPM"",166,0)"
^XMB(3.9,98,2,5554,0)=" ..D:CNT=1 ADD("""")"
^XMB(3.9,98,2,5555,0)="""RTN"",""PSBOPM"",167,0)"
^XMB(3.9,98,2,5556,0)=" ..S Y=$P(^PSB(53.79,PSBIEN,.3,XT,0),""^"",3) D DD^%DT S XBR=Y"
^XMB(3.9,98,2,5557,0)="""RTN"",""PSBOPM"",168,0)"
^XMB(3.9,98,2,5558,0)=" ..S Z=XBR_""   ""_$P(^VA(200,$P(^PSB(53.79,PSBIEN,.3,XT,0),""^"",2),0),""^"",2)"
^XMB(3.9,98,2,5559,0)="""RTN"",""PSBOPM"",169,0)"
^XMB(3.9,98,2,5560,0)=" ..D WRAP($P(^PSB(53.79,PSBIEN,.3,XT,0),""^"",1),Z,PSBIEN)"
^XMB(3.9,98,2,5561,0)="""RTN"",""PSBOPM"",170,0)"
^XMB(3.9,98,2,5562,0)=" ..S CNT=1"
^XMB(3.9,98,2,5563,0)="""RTN"",""PSBOPM"",171,0)"
^XMB(3.9,98,2,5564,0)=" .D ADD($J("""",54)_$$MAKELINE(""-"",78))"
^XMB(3.9,98,2,5565,0)="""RTN"",""PSBOPM"",172,0)"
^XMB(3.9,98,2,5566,0)=" Q"
^XMB(3.9,98,2,5567,0)="""RTN"",""PSBOPM"",173,0)"
^XMB(3.9,98,2,5568,0)="        ;"
^XMB(3.9,98,2,5569,0)="""RTN"",""PSBOPM"",174,0)"
^XMB(3.9,98,2,5570,0)="WRAP(SIZE,ZP,BRIEN)         ;"
^XMB(3.9,98,2,5571,0)="""RTN"",""PSBOPM"",175,0)"
^XMB(3.9,98,2,5572,0)=" D ADD($J("""",55)_ZP)"
^XMB(3.9,98,2,5573,0)="""RTN"",""PSBOPM"",176,0)"
^XMB(3.9,98,2,5574,0)=" D ADD($J("""",55)_$E(SIZE,1,75))"
^XMB(3.9,98,2,5575,0)="""RTN"",""PSBOPM"",177,0)"
^XMB(3.9,98,2,5576,0)=" I $L(SIZE)>75 D ADD($J("""",55)_$E(SIZE,76,150))"
^XMB(3.9,98,2,5577,0)="""RTN"",""PSBOPM"",178,0)"
^XMB(3.9,98,2,5578,0)=" Q"
^XMB(3.9,98,2,5579,0)="""RTN"",""PSBOPM"",179,0)"
^XMB(3.9,98,2,5580,0)=" ;"
^XMB(3.9,98,2,5581,0)="""RTN"",""PSBOPM"",180,0)"
^XMB(3.9,98,2,5582,0)="HEADA ;"
^XMB(3.9,98,2,5583,0)="""RTN"",""PSBOPM"",181,0)"
^XMB(3.9,98,2,5584,0)=" W !"
^XMB(3.9,98,2,5585,0)="""RTN"",""PSBOPM"",182,0)"
^XMB(3.9,98,2,5586,0)=" W ""Location"",?21,""St Sch Administration Date"",?50,""By"",?61,""Injection Site"",?96,""Units"",?112,""Units of"""
^XMB(3.9,98,2,5587,0)="""RTN"",""PSBOPM"",183,0)"
^XMB(3.9,98,2,5588,0)=" W !,?55,""Medication & Dosage"",?96,""GIVEN"",?112,""Administration"""
^XMB(3.9,98,2,5589,0)="""RTN"",""PSBOPM"",184,0)"
^XMB(3.9,98,2,5590,0)=" W !"
^XMB(3.9,98,2,5591,0)="""RTN"",""PSBOPM"",185,0)"
^XMB(3.9,98,2,5592,0)=" W $$MAKELINE(""-"",132)"
^XMB(3.9,98,2,5593,0)="""RTN"",""PSBOPM"",186,0)"
^XMB(3.9,98,2,5594,0)=" Q"
^XMB(3.9,98,2,5595,0)="""RTN"",""PSBOPM"",187,0)"
^XMB(3.9,98,2,5596,0)=" ;"
^XMB(3.9,98,2,5597,0)="""RTN"",""PSBOPM"",188,0)"
^XMB(3.9,98,2,5598,0)="ADD(XE)  ;"
^XMB(3.9,98,2,5599,0)="""RTN"",""PSBOPM"",189,0)"
^XMB(3.9,98,2,5600,0)=" S ^TMP(""PSB"",$J,$O(^TMP(""PSB"",$J,""""),-1)+1)=XE"
^XMB(3.9,98,2,5601,0)="""RTN"",""PSBOPM"",190,0)"
^XMB(3.9,98,2,5602,0)=" Q"
^XMB(3.9,98,2,5603,0)="""RTN"",""PSBOPM"",191,0)"
^XMB(3.9,98,2,5604,0)=" ;"
^XMB(3.9,98,2,5605,0)="""RTN"",""PSBOPM"",192,0)"
^XMB(3.9,98,2,5606,0)="WRAPMEDS(MED,UG,UOA)  ;"
^XMB(3.9,98,2,5607,0)="""RTN"",""PSBOPM"",193,0)"
^XMB(3.9,98,2,5608,0)=" ;MED IS NOT WRAPPED: MAX LENGTH IN PSDRUG/52.6/52.7 IS 40"
^XMB(3.9,98,2,5609,0)="""RTN"",""PSBOPM"",194,0)"
^XMB(3.9,98,2,5610,0)=" ;UG/UOA MAX AT 30/40 AND WILL BE WRAPPED AT 15 EACH"
^XMB(3.9,98,2,5611,0)="""RTN"",""PSBOPM"",195,0)"
^XMB(3.9,98,2,5612,0)=" ;THIS WILL CREATE UPTO 3 LINES"
^XMB(3.9,98,2,5613,0)="""RTN"",""PSBOPM"",196,0)"
^XMB(3.9,98,2,5614,0)=" S MED=$E(MED_$J("""",40),1,40)"
^XMB(3.9,98,2,5615,0)="""RTN"",""PSBOPM"",197,0)"
^XMB(3.9,98,2,5616,0)=" N UGWRAP"
^XMB(3.9,98,2,5617,0)="""RTN"",""PSBOPM"",198,0)"
^XMB(3.9,98,2,5618,0)=" S (CNTX,UOA1,UOA16,UOA31)="""""
^XMB(3.9,98,2,5619,0)="""RTN"",""PSBOPM"",199,0)"
^XMB(3.9,98,2,5620,0)=" I +$G(UG)?1"".""1.N S UG=0_+UG"
^XMB(3.9,98,2,5621,0)="""RTN"",""PSBOPM"",200,0)"
^XMB(3.9,98,2,5622,0)=" F CNT=1:15:45  D"
^XMB(3.9,98,2,5623,0)="""RTN"",""PSBOPM"",201,0)"
^XMB(3.9,98,2,5624,0)=" .D PARSE(UOA,CNT)"
^XMB(3.9,98,2,5625,0)="""RTN"",""PSBOPM"",202,0)"
^XMB(3.9,98,2,5626,0)=" .S UGWRAP=$E(UG,CNT,(CNT+14))"
^XMB(3.9,98,2,5627,0)="""RTN"",""PSBOPM"",203,0)"
^XMB(3.9,98,2,5628,0)=" .I CNT=1 D ADD($J("""",55)_MED_"" ""_$$PAD(UGWRAP,15)_"" ""_$$PAD(UOA1,15))"
^XMB(3.9,98,2,5629,0)="""RTN"",""PSBOPM"",204,0)"
^XMB(3.9,98,2,5630,0)=" .I (CNT>1),($L(UGWRAP)>0!$L(@(""UOA""_CNT))>0) D ADD($J("""",96)_$$PAD(UGWRAP,15)_"" ""_$$PAD(@(""UOA""_CNT),15))"
^XMB(3.9,98,2,5631,0)="""RTN"",""PSBOPM"",205,0)"
^XMB(3.9,98,2,5632,0)=" Q"
^XMB(3.9,98,2,5633,0)="""RTN"",""PSBOPM"",206,0)"
^XMB(3.9,98,2,5634,0)=" ;"
^XMB(3.9,98,2,5635,0)="""RTN"",""PSBOPM"",207,0)"
^XMB(3.9,98,2,5636,0)="PAD(X,CNT) ;"
^XMB(3.9,98,2,5637,0)="""RTN"",""PSBOPM"",208,0)"
^XMB(3.9,98,2,5638,0)=" Q $E(X_$J("""",CNT),1,CNT)"
^XMB(3.9,98,2,5639,0)="""RTN"",""PSBOPM"",209,0)"
^XMB(3.9,98,2,5640,0)="WRITEOT ;"
^XMB(3.9,98,2,5641,0)="""RTN"",""PSBOPM"",210,0)"
^XMB(3.9,98,2,5642,0)=" S Y=$P(PSBSTRT,""."",1)  D D^DIQ  S PSTRTA=Y"
^XMB(3.9,98,2,5643,0)="""RTN"",""PSBOPM"",211,0)"
^XMB(3.9,98,2,5644,0)=" S Y=$P(PSBSTOP,""."",1)  D D^DIQ  S PSTP=Y"
^XMB(3.9,98,2,5645,0)="""RTN"",""PSBOPM"",212,0)"
^XMB(3.9,98,2,5646,0)=" S PSBHDR(1)=""MEDICATION HISTORY for ""_PSTRTA_""  to  ""_PSTP"
^XMB(3.9,98,2,5647,0)="""RTN"",""PSBOPM"",213,0)"
^XMB(3.9,98,2,5648,0)=" D MEDS"
^XMB(3.9,98,2,5649,0)="""RTN"",""PSBOPM"",214,0)"
^XMB(3.9,98,2,5650,0)=" D PT^PSBOHDR(DFN,.PSBHDR),HEADA"
^XMB(3.9,98,2,5651,0)="""RTN"",""PSBOPM"",215,0)"
^XMB(3.9,98,2,5652,0)=" I '$D(TMP(""PSBIENS"",$J)) D ADD(""<<<< NO HISTORY FOUND FOR THIS TIME FRAME >>>>"")"
^XMB(3.9,98,2,5653,0)="""RTN"",""PSBOPM"",216,0)"
^XMB(3.9,98,2,5654,0)=" S EX="""" F  S EX=$O(^TMP(""PSB"",$J,EX)) Q:EX=""""  D"
^XMB(3.9,98,2,5655,0)="""RTN"",""PSBOPM"",217,0)"
^XMB(3.9,98,2,5656,0)=" .I $Y>(IOSL-5) D"
^XMB(3.9,98,2,5657,0)="""RTN"",""PSBOPM"",218,0)"
^XMB(3.9,98,2,5658,0)=" ..W $$PTFTR^PSBOHDR()"
^XMB(3.9,98,2,5659,0)="""RTN"",""PSBOPM"",219,0)"
^XMB(3.9,98,2,5660,0)=" ..D PT^PSBOHDR(DFN,.PSBHDR),HEADA"
^XMB(3.9,98,2,5661,0)="""RTN"",""PSBOPM"",220,0)"
^XMB(3.9,98,2,5662,0)=" .W !,$G(^TMP(""PSB"",$J,EX))"
^XMB(3.9,98,2,5663,0)="""RTN"",""PSBOPM"",221,0)"
^XMB(3.9,98,2,5664,0)=" W $$PTFTR^PSBOHDR()"
^XMB(3.9,98,2,5665,0)="""RTN"",""PSBOPM"",222,0)"
^XMB(3.9,98,2,5666,0)=" Q"
^XMB(3.9,98,2,5667,0)="""RTN"",""PSBOPM"",223,0)"
^XMB(3.9,98,2,5668,0)=" ;"
^XMB(3.9,98,2,5669,0)="""RTN"",""PSBOPM"",224,0)"
^XMB(3.9,98,2,5670,0)="FTR() ;"
^XMB(3.9,98,2,5671,0)="""RTN"",""PSBOPM"",225,0)"
^XMB(3.9,98,2,5672,0)=" I (IOSL<100) F  Q:$Y>(IOSL-10)  W !"
^XMB(3.9,98,2,5673,0)="""RTN"",""PSBOPM"",226,0)"
^XMB(3.9,98,2,5674,0)=" W !,$TR($J("""",IOM),"" "",""="")"
^XMB(3.9,98,2,5675,0)="""RTN"",""PSBOPM"",227,0)"
^XMB(3.9,98,2,5676,0)=" S X=""Ward: ""_PSBHDR(""WARD"")_""  Room-Bed: ""_PSBHDR(""ROOM"")"
^XMB(3.9,98,2,5677,0)="""RTN"",""PSBOPM"",228,0)"
^XMB(3.9,98,2,5678,0)=" W !,PSBHDR(""NAME""),?(IOM-11\2),PSBHDR(""SSN""),?(IOM-$L(X)),X"
^XMB(3.9,98,2,5679,0)="""RTN"",""PSBOPM"",229,0)"
^XMB(3.9,98,2,5680,0)=" Q """""
^XMB(3.9,98,2,5681,0)="""RTN"",""PSBOPM"",230,0)"
^XMB(3.9,98,2,5682,0)=" ;"
^XMB(3.9,98,2,5683,0)="""RTN"",""PSBOPM"",231,0)"
^XMB(3.9,98,2,5684,0)="MEDS ;"
^XMB(3.9,98,2,5685,0)="""RTN"",""PSBOPM"",232,0)"
^XMB(3.9,98,2,5686,0)=" N MED,XA,XB"
^XMB(3.9,98,2,5687,0)="""RTN"",""PSBOPM"",233,0)"
^XMB(3.9,98,2,5688,0)=" S MED="""",XB=3"
^XMB(3.9,98,2,5689,0)="""RTN"",""PSBOPM"",234,0)"
^XMB(3.9,98,2,5690,0)=" S PSBHDR(3)=""MEDICATIONS SEARCH LIST:"""
^XMB(3.9,98,2,5691,0)="""RTN"",""PSBOPM"",235,0)"
^XMB(3.9,98,2,5692,0)=" S XA="""" F  S XA=$O(TMP(""PSBOIS"",$J,XA)) Q:XA=""""  D"
^XMB(3.9,98,2,5693,0)="""RTN"",""PSBOPM"",236,0)"
^XMB(3.9,98,2,5694,0)=" .S MED=$$GET1^DIQ(50.7,XA,.01)"
^XMB(3.9,98,2,5695,0)="""RTN"",""PSBOPM"",237,0)"
^XMB(3.9,98,2,5696,0)=" .I $L(PSBHDR(XB)_"" ""_MED)>IOM D"
^XMB(3.9,98,2,5697,0)="""RTN"",""PSBOPM"",238,0)"
^XMB(3.9,98,2,5698,0)=" ..S XB=XB+1,PSBHDR(XB)=""                         ""_MED"
^XMB(3.9,98,2,5699,0)="""RTN"",""PSBOPM"",239,0)"
^XMB(3.9,98,2,5700,0)=" .E  S PSBHDR(XB)=PSBHDR(XB)_"" ""_MED"
^XMB(3.9,98,2,5701,0)="""RTN"",""PSBOPM"",240,0)"
^XMB(3.9,98,2,5702,0)=" Q"
^XMB(3.9,98,2,5703,0)="""RTN"",""PSBOPM"",241,0)"
^XMB(3.9,98,2,5704,0)=" ;"
^XMB(3.9,98,2,5705,0)="""RTN"",""PSBOPM"",242,0)"
^XMB(3.9,98,2,5706,0)="CLEANALL        ; KILL ALL TMP LEVELS USED VARIABLES"
^XMB(3.9,98,2,5707,0)="""RTN"",""PSBOPM"",243,0)"
^XMB(3.9,98,2,5708,0)=" K ^TMP(""PSB"",$J),^TMP(""PSJ1"",$J),TMP(""PSBOIS"",$J),TMP(""PSBADDS"",$J),TMP(""PSBSOLS"",$J)"
^XMB(3.9,98,2,5709,0)="""RTN"",""PSBOPM"",244,0)"
^XMB(3.9,98,2,5710,0)=" K TMP(""PSBIENS"",$J)"
^XMB(3.9,98,2,5711,0)="""RTN"",""PSBOPM"",245,0)"
^XMB(3.9,98,2,5712,0)=" Q"
^XMB(3.9,98,2,5713,0)="""RTN"",""PSBOPM"",246,0)"
^XMB(3.9,98,2,5714,0)=" ;"
^XMB(3.9,98,2,5715,0)="""RTN"",""PSBOPM"",247,0)"
^XMB(3.9,98,2,5716,0)="CLEANSUM        ; KILLL ALL BUN THE ""PSBIENS"" LEVEL"
^XMB(3.9,98,2,5717,0)="""RTN"",""PSBOPM"",248,0)"
^XMB(3.9,98,2,5718,0)=" K ^TMP(""PSB"",$J),^TMP(""PSJ1"",$J),TMP(""PSBIENS"",$J),TMP(""PSBOIS"",$J),TMP(""PSBADDS"",$J),TMP(""PSBSOLS"",$J)"
^XMB(3.9,98,2,5719,0)="""RTN"",""PSBOPM"",249,0)"
^XMB(3.9,98,2,5720,0)=" Q"
^XMB(3.9,98,2,5721,0)="""RTN"",""PSBOPM"",250,0)"
^XMB(3.9,98,2,5722,0)="MAKELINE(X,CNT) ;LINE OF WHAT'S PASSED IN CNT TIMES"
^XMB(3.9,98,2,5723,0)="""RTN"",""PSBOPM"",251,0)"
^XMB(3.9,98,2,5724,0)=" N Y,Z"
^XMB(3.9,98,2,5725,0)="""RTN"",""PSBOPM"",252,0)"
^XMB(3.9,98,2,5726,0)=" S Y="""""
^XMB(3.9,98,2,5727,0)="""RTN"",""PSBOPM"",253,0)"
^XMB(3.9,98,2,5728,0)=" F Z=1:1:CNT S Y=Y_X"
^XMB(3.9,98,2,5729,0)="""RTN"",""PSBOPM"",254,0)"
^XMB(3.9,98,2,5730,0)=" Q Y"
^XMB(3.9,98,2,5731,0)="""RTN"",""PSBOPM"",255,0)"
^XMB(3.9,98,2,5732,0)=" ;"
^XMB(3.9,98,2,5733,0)="""RTN"",""PSBOPM"",256,0)"
^XMB(3.9,98,2,5734,0)="PARSE(X,CNT) ;Split text for wrapping."
^XMB(3.9,98,2,5735,0)="""RTN"",""PSBOPM"",257,0)"
^XMB(3.9,98,2,5736,0)=" S CNTX=""UOA""_CNT,@CNTX=@CNTX_$E(X,CNT,(CNT+14)),UOAX="""""
^XMB(3.9,98,2,5737,0)="""RTN"",""PSBOPM"",258,0)"
^XMB(3.9,98,2,5738,0)=" F  S:$F(@CNTX,"", "",+UOAX)>0 UOAX=$F(@CNTX,"", "",+UOAX)  Q:'$F(@CNTX,"", "",+UOAX)"
^XMB(3.9,98,2,5739,0)="""RTN"",""PSBOPM"",259,0)"
^XMB(3.9,98,2,5740,0)=" I UOAX<1 F  S:$F(@CNTX,"" "",+UOAX)>0 UOAX=$F(@CNTX,"" "",+UOAX)  Q:'$F(@CNTX,"" "",+UOAX)"
^XMB(3.9,98,2,5741,0)="""RTN"",""PSBOPM"",260,0)"
^XMB(3.9,98,2,5742,0)=" I UOAX>1,(($L(UOA)-(CNT+14))>0) S CNTXX=$E(@CNTX,1,UOAX-1),@(""UOA""_(CNT+15))=$E(@CNTX,UOAX,UOAX+14),@CNTX=CNTXX"
^XMB(3.9,98,2,5743,0)="""RTN"",""PSBOPM"",261,0)"
^XMB(3.9,98,2,5744,0)=" Q"
^XMB(3.9,98,2,5745,0)="""RTN"",""PSBOPM"",262,0)"
^XMB(3.9,98,2,5746,0)=" ;"
^XMB(3.9,98,2,5747,0)="""RTN"",""PSBOXA"")"
^XMB(3.9,98,2,5748,0)="0^19^B24284983^n/a"
^XMB(3.9,98,2,5749,0)="""RTN"",""PSBOXA"",1,0)"
^XMB(3.9,98,2,5750,0)="PSBOXA ;BIRMINGHAM/EFC-MEDICATION LOG ;Mar 2004"
^XMB(3.9,98,2,5751,0)="""RTN"",""PSBOXA"",2,0)"
^XMB(3.9,98,2,5752,0)=" ;;3.0;BAR CODE MED ADMIN;**13**;Mar 2004"
^XMB(3.9,98,2,5753,0)="""RTN"",""PSBOXA"",3,0)"
^XMB(3.9,98,2,5754,0)=" ;"
^XMB(3.9,98,2,5755,0)="""RTN"",""PSBOXA"",4,0)"
^XMB(3.9,98,2,5756,0)=" ; Reference/IA"
^XMB(3.9,98,2,5757,0)="""RTN"",""PSBOXA"",5,0)"
^XMB(3.9,98,2,5758,0)=" ;"
^XMB(3.9,98,2,5759,0)="""RTN"",""PSBOXA"",6,0)"
^XMB(3.9,98,2,5760,0)=" ; File 4/10090"
^XMB(3.9,98,2,5761,0)="""RTN"",""PSBOXA"",7,0)"
^XMB(3.9,98,2,5762,0)=" ;"
^XMB(3.9,98,2,5763,0)="""RTN"",""PSBOXA"",8,0)"
^XMB(3.9,98,2,5764,0)=" ;"
^XMB(3.9,98,2,5765,0)="""RTN"",""PSBOXA"",9,0)"
^XMB(3.9,98,2,5766,0)=" ; Entry Point -   Report OPTION used by PSB MANAGER key holders to locate"
^XMB(3.9,98,2,5767,0)="""RTN"",""PSBOXA"",10,0)"
^XMB(3.9,98,2,5768,0)=" ;                ""UNKNOWN"" Action Status entries in the BCMA Medication Log File."
^XMB(3.9,98,2,5769,0)="""RTN"",""PSBOXA"",11,0)"
^XMB(3.9,98,2,5770,0)=" ;"
^XMB(3.9,98,2,5771,0)="""RTN"",""PSBOXA"",12,0)"
^XMB(3.9,98,2,5772,0)="EN ;  UNKNOWN Action Status Report - creation!"
^XMB(3.9,98,2,5773,0)="""RTN"",""PSBOXA"",13,0)"
^XMB(3.9,98,2,5774,0)=" ;"
^XMB(3.9,98,2,5775,0)="""RTN"",""PSBOXA"",14,0)"
^XMB(3.9,98,2,5776,0)=" S PSBDTST=+$P(PSBRPT(.1),U,6)"
^XMB(3.9,98,2,5777,0)="""RTN"",""PSBOXA"",15,0)"
^XMB(3.9,98,2,5778,0)=" S PSBDTSP=+$P(PSBRPT(.1),U,8)"
^XMB(3.9,98,2,5779,0)="""RTN"",""PSBOXA"",16,0)"
^XMB(3.9,98,2,5780,0)=" D NOW^%DTC S Y=% D DD^%DT S PSBDTTM=Y"
^XMB(3.9,98,2,5781,0)="""RTN"",""PSBOXA"",17,0)"
^XMB(3.9,98,2,5782,0)=" S PSBLIST="""""
^XMB(3.9,98,2,5783,0)="""RTN"",""PSBOXA"",18,0)"
^XMB(3.9,98,2,5784,0)=" S (PSBPGNUM,PSBLNTOT,PSBTOT,PSBX1)="""""
^XMB(3.9,98,2,5785,0)="""RTN"",""PSBOXA"",19,0)"
^XMB(3.9,98,2,5786,0)=" F  S PSBX1=$O(^PSB(53.79,""AADT"",PSBX1)) Q:PSBX1=""""  D"
^XMB(3.9,98,2,5787,0)="""RTN"",""PSBOXA"",20,0)"
^XMB(3.9,98,2,5788,0)=" .S PSBX2=$$FMADD^XLFDT(PSBDTST,,,,-.1) F  S PSBX2=$O(^PSB(53.79,""AADT"",PSBX1,PSBX2)) Q:(PSBX2>$$FMADD^XLFDT(PSBDTSP,,23.9999))!(+PSBX2=0)  D"
^XMB(3.9,98,2,5789,0)="""RTN"",""PSBOXA"",21,0)"
^XMB(3.9,98,2,5790,0)=" ..S PSBX3="""" F  S PSBX3=$O(^PSB(53.79,""AADT"",PSBX1,PSBX2,PSBX3)) Q:+PSBX3=0  D"
^XMB(3.9,98,2,5791,0)="""RTN"",""PSBOXA"",22,0)"
^XMB(3.9,98,2,5792,0)=" ...Q:('$D(^PSB(53.79,PSBX3,0)))!$D(PSBLIST(PSBX3))"
^XMB(3.9,98,2,5793,0)="""RTN"",""PSBOXA"",23,0)"
^XMB(3.9,98,2,5794,0)=" ...I $P(^PSB(53.79,PSBX3,0),U,9)="""" I $$GET1^DIQ(4,$P(PSBRPT(0),U,4)_"","",.01)=$$GET1^DIQ(4,$P(^PSB(53.79,PSBX3,0),U,3)_"","",.01) D"
^XMB(3.9,98,2,5795,0)="""RTN"",""PSBOXA"",24,0)"
^XMB(3.9,98,2,5796,0)=" ....L +^PSB(53.79,PSBX3):1 I  L -^PSB(53.79,PSBX3) S PSBTOT=PSBTOT+1,PSBLIST(PSBX3)="""""
^XMB(3.9,98,2,5797,0)="""RTN"",""PSBOXA"",25,0)"
^XMB(3.9,98,2,5798,0)=" I +PSBTOT=0 K PSBLIST"
^XMB(3.9,98,2,5799,0)="""RTN"",""PSBOXA"",26,0)"
^XMB(3.9,98,2,5800,0)=" S Y=PSBDTST D DD^%DT S Y1=Y S Y=PSBDTSP D DD^%DT S Y2=Y"
^XMB(3.9,98,2,5801,0)="""RTN"",""PSBOXA"",27,0)"
^XMB(3.9,98,2,5802,0)=" D BLDRPT"
^XMB(3.9,98,2,5803,0)="""RTN"",""PSBOXA"",28,0)"
^XMB(3.9,98,2,5804,0)=" D WRTRPT"
^XMB(3.9,98,2,5805,0)="""RTN"",""PSBOXA"",29,0)"
^XMB(3.9,98,2,5806,0)=" Q"
^XMB(3.9,98,2,5807,0)="""RTN"",""PSBOXA"",30,0)"
^XMB(3.9,98,2,5808,0)=" ;"
^XMB(3.9,98,2,5809,0)="""RTN"",""PSBOXA"",31,0)"
^XMB(3.9,98,2,5810,0)="BLDRPT ;"
^XMB(3.9,98,2,5811,0)="""RTN"",""PSBOXA"",32,0)"
^XMB(3.9,98,2,5812,0)=" ;"
^XMB(3.9,98,2,5813,0)="""RTN"",""PSBOXA"",33,0)"
^XMB(3.9,98,2,5814,0)=" K PSBOUTP"
^XMB(3.9,98,2,5815,0)="""RTN"",""PSBOXA"",34,0)"
^XMB(3.9,98,2,5816,0)=" S (PSBPGNUM,PSBX1)="""""
^XMB(3.9,98,2,5817,0)="""RTN"",""PSBOXA"",35,0)"
^XMB(3.9,98,2,5818,0)=" I '$D(PSBLIST) D  Q"
^XMB(3.9,98,2,5819,0)="""RTN"",""PSBOXA"",36,0)"
^XMB(3.9,98,2,5820,0)=" .S PSBPGNUM=1"
^XMB(3.9,98,2,5821,0)="""RTN"",""PSBOXA"",37,0)"
^XMB(3.9,98,2,5822,0)=" .S PSBOUTP(0,14)=""W !!,""""<<<< NO """"""""UNKNOWN ACTION STATUS"""""""" ENTRIES FOUND FOR THIS DATE RANGE >>>>"""",!!"""
^XMB(3.9,98,2,5823,0)="""RTN"",""PSBOXA"",38,0)"
^XMB(3.9,98,2,5824,0)=" S PSBPGNUM=1,PSBTOT1=0"
^XMB(3.9,98,2,5825,0)="""RTN"",""PSBOXA"",39,0)"
^XMB(3.9,98,2,5826,0)=" F  S PSBX1=$O(PSBLIST(PSBX1))  Q:+PSBX1=0  D"
^XMB(3.9,98,2,5827,0)="""RTN"",""PSBOXA"",40,0)"
^XMB(3.9,98,2,5828,0)=" .S PSBTOT1=PSBTOT1+1"
^XMB(3.9,98,2,5829,0)="""RTN"",""PSBOXA"",41,0)"
^XMB(3.9,98,2,5830,0)=" .D CLEAN^PSBVT,PSJ1^PSBVT($$GET1^DIQ(53.79,PSBX1_"","",.01,""I""),$$GET1^DIQ(53.79,PSBX1_"","",.11))"
^XMB(3.9,98,2,5831,0)="""RTN"",""PSBOXA"",42,0)"
^XMB(3.9,98,2,5832,0)=" .S PSBOUTP($$PGTOT,PSBLNTOT)=""W """"""_PSBTOT1_"".)"""",!,?5,""""Action Status...: ""_$S($$GET1^DIQ(53.79,PSBX1_"","",.09)']"""":""*UNKNOWN*"",1:$$GET1^DIQ(53.79,PSBX1_"","",.09))_"""""""""
^XMB(3.9,98,2,5833,0)="""RTN"",""PSBOXA"",43,0)"
^XMB(3.9,98,2,5834,0)=" .S PSBOUTP($$PGTOT,PSBLNTOT)=""W !,?5,""""Patient.........: (""_$$GET1^DIQ(2,PSBDFN_"","",.09)_"") ""_$$GET1^DIQ(2,PSBDFN_"","",.01)_"""""""""
^XMB(3.9,98,2,5835,0)="""RTN"",""PSBOXA"",44,0)"
^XMB(3.9,98,2,5836,0)=" .S PSBOUTP($$PGTOT,PSBLNTOT)=""W !,?5,""""Ward/Bed........: ""_$$GET1^DIQ(2,PSBDFN_"","",.1)_$S($$GET1^DIQ(2,PSBDFN_"","",.101)']"""":"""",1:""/""_$$GET1^DIQ(2,PSBDFN_"","",.101))_"""""""""
^XMB(3.9,98,2,5837,0)="""RTN"",""PSBOXA"",45,0)"
^XMB(3.9,98,2,5838,0)=" .S PSBOUTP($$PGTOT,PSBLNTOT)=""W !,?5,""""Order Number....: ""_PSBONX_"""""""""
^XMB(3.9,98,2,5839,0)="""RTN"",""PSBOXA"",46,0)"
^XMB(3.9,98,2,5840,0)=" .S PSBOUTP($$PGTOT,PSBLNTOT)=""W !,?5,""""Orderable Item..: ""_PSBOITX_"""""""""
^XMB(3.9,98,2,5841,0)="""RTN"",""PSBOXA"",47,0)"
^XMB(3.9,98,2,5842,0)=" .S PSBOUTP($$PGTOT,PSBLNTOT)=""W !,?5,""""Schedule........: ""_PSBSCH_"""""""""
^XMB(3.9,98,2,5843,0)="""RTN"",""PSBOXA"",48,0)"
^XMB(3.9,98,2,5844,0)=" .S PSBOUTP($$PGTOT,PSBLNTOT)=""W !,?5,""""Scheduled Adm Tm: ""_$S($$GET1^DIQ(53.79,PSBX1_"","",.13)']"""":""AS NEEDED"",1:$$GET1^DIQ(53.79,PSBX1_"","",.13))_"""""""""
^XMB(3.9,98,2,5845,0)="""RTN"",""PSBOXA"",49,0)"
^XMB(3.9,98,2,5846,0)=" .S PSBOUTP($$PGTOT,PSBLNTOT)=""W !,?5,""""Created Dt/Tm...: ""_$$GET1^DIQ(53.79,PSBX1_"","",.06)_"""""""""
^XMB(3.9,98,2,5847,0)="""RTN"",""PSBOXA"",50,0)"
^XMB(3.9,98,2,5848,0)=" .S PSBOUTP($$PGTOT,PSBLNTOT)=""W !,?5,""""Created By......: (""_$$GET1^DIQ(53.79,PSBX1_"","",.07,""I"")_"") ""_$$GET1^DIQ(53.79,PSBX1_"","",.07)_"""""""""
^XMB(3.9,98,2,5849,0)="""RTN"",""PSBOXA"",51,0)"
^XMB(3.9,98,2,5850,0)=" .S PSBOUTP($$PGTOT(3),PSBLNTOT)=""W !,$TR($J("""""""",IOM),"""" """",""""-""""),!!"""
^XMB(3.9,98,2,5851,0)="""RTN"",""PSBOXA"",52,0)"
^XMB(3.9,98,2,5852,0)=" Q"
^XMB(3.9,98,2,5853,0)="""RTN"",""PSBOXA"",53,0)"
^XMB(3.9,98,2,5854,0)=" ;"
^XMB(3.9,98,2,5855,0)="""RTN"",""PSBOXA"",54,0)"
^XMB(3.9,98,2,5856,0)="WRTRPT ;  Actually ""WRITE"" the report to output device"
^XMB(3.9,98,2,5857,0)="""RTN"",""PSBOXA"",55,0)"
^XMB(3.9,98,2,5858,0)=" ;"
^XMB(3.9,98,2,5859,0)="""RTN"",""PSBOXA"",56,0)"
^XMB(3.9,98,2,5860,0)=" I $O(PSBOUTP(""""),-1)<1 D  Q"
^XMB(3.9,98,2,5861,0)="""RTN"",""PSBOXA"",57,0)"
^XMB(3.9,98,2,5862,0)=" .D HDR"
^XMB(3.9,98,2,5863,0)="""RTN"",""PSBOXA"",58,0)"
^XMB(3.9,98,2,5864,0)=" .X PSBOUTP($O(PSBOUTP(""""),-1),14)"
^XMB(3.9,98,2,5865,0)="""RTN"",""PSBOXA"",59,0)"
^XMB(3.9,98,2,5866,0)=" .D FTR"
^XMB(3.9,98,2,5867,0)="""RTN"",""PSBOXA"",60,0)"
^XMB(3.9,98,2,5868,0)=" S PSBPGNUM=1"
^XMB(3.9,98,2,5869,0)="""RTN"",""PSBOXA"",61,0)"
^XMB(3.9,98,2,5870,0)=" D HDR"
^XMB(3.9,98,2,5871,0)="""RTN"",""PSBOXA"",62,0)"
^XMB(3.9,98,2,5872,0)=" S PSBX1="""" F  S PSBX1=$O(PSBOUTP(PSBX1)) Q:PSBX1=""""  D"
^XMB(3.9,98,2,5873,0)="""RTN"",""PSBOXA"",63,0)"
^XMB(3.9,98,2,5874,0)=" .I PSBPGNUM'=PSBX1 D FTR S PSBPGNUM=PSBX1 D HDR"
^XMB(3.9,98,2,5875,0)="""RTN"",""PSBOXA"",64,0)"
^XMB(3.9,98,2,5876,0)=" .S PSBX2="""" F  S PSBX2=$O(PSBOUTP(PSBX1,PSBX2)) Q:PSBX2=""""  D"
^XMB(3.9,98,2,5877,0)="""RTN"",""PSBOXA"",65,0)"
^XMB(3.9,98,2,5878,0)=" ..X PSBOUTP(PSBX1,PSBX2)"
^XMB(3.9,98,2,5879,0)="""RTN"",""PSBOXA"",66,0)"
^XMB(3.9,98,2,5880,0)=" D FTR"
^XMB(3.9,98,2,5881,0)="""RTN"",""PSBOXA"",67,0)"
^XMB(3.9,98,2,5882,0)=" Q"
^XMB(3.9,98,2,5883,0)="""RTN"",""PSBOXA"",68,0)"
^XMB(3.9,98,2,5884,0)=" ;"
^XMB(3.9,98,2,5885,0)="""RTN"",""PSBOXA"",69,0)"
^XMB(3.9,98,2,5886,0)="HDR ;  Create Report Header"
^XMB(3.9,98,2,5887,0)="""RTN"",""PSBOXA"",70,0)"
^XMB(3.9,98,2,5888,0)=" ;"
^XMB(3.9,98,2,5889,0)="""RTN"",""PSBOXA"",71,0)"
^XMB(3.9,98,2,5890,0)=" ;"
^XMB(3.9,98,2,5891,0)="""RTN"",""PSBOXA"",72,0)"
^XMB(3.9,98,2,5892,0)=" ;   BAR CODE MEDICATION ADMINISTRATION (BCMA) UNKNOWN ACTION STATUS REPORT"
^XMB(3.9,98,2,5893,0)="""RTN"",""PSBOXA"",73,0)"
^XMB(3.9,98,2,5894,0)=" ;   Date/Time: NOW"
^XMB(3.9,98,2,5895,0)="""RTN"",""PSBOXA"",74,0)"
^XMB(3.9,98,2,5896,0)=" ;   Date Range:   Y1  to  Y2   (inculsive)"
^XMB(3.9,98,2,5897,0)="""RTN"",""PSBOXA"",75,0)"
^XMB(3.9,98,2,5898,0)=" ;   "
^XMB(3.9,98,2,5899,0)="""RTN"",""PSBOXA"",76,0)"
^XMB(3.9,98,2,5900,0)=" ;   "
^XMB(3.9,98,2,5901,0)="""RTN"",""PSBOXA"",77,0)"
^XMB(3.9,98,2,5902,0)=" ;   This is a report of entries, created within the given date range, in the"
^XMB(3.9,98,2,5903,0)="""RTN"",""PSBOXA"",78,0)"
^XMB(3.9,98,2,5904,0)=" ;   BCMA Medication Log File with UNKNOWN Action Status data."
^XMB(3.9,98,2,5905,0)="""RTN"",""PSBOXA"",79,0)"
^XMB(3.9,98,2,5906,0)=" ;   These entries may be corrected via the BCMA GUI ""Edit Med Log"".   "
^XMB(3.9,98,2,5907,0)="""RTN"",""PSBOXA"",80,0)"
^XMB(3.9,98,2,5908,0)=" ;   "
^XMB(3.9,98,2,5909,0)="""RTN"",""PSBOXA"",81,0)"
^XMB(3.9,98,2,5910,0)=" ;----------------------------------------------------------------"
^XMB(3.9,98,2,5911,0)="""RTN"",""PSBOXA"",82,0)"
^XMB(3.9,98,2,5912,0)=" ;"
^XMB(3.9,98,2,5913,0)="""RTN"",""PSBOXA"",83,0)"
^XMB(3.9,98,2,5914,0)=" W:$Y>1 @IOF"
^XMB(3.9,98,2,5915,0)="""RTN"",""PSBOXA"",84,0)"
^XMB(3.9,98,2,5916,0)=" W:$X>1 !"
^XMB(3.9,98,2,5917,0)="""RTN"",""PSBOXA"",85,0)"
^XMB(3.9,98,2,5918,0)=" S PSBPG=""Page: ""_PSBPGNUM_"" of ""_$S($O(PSBOUTP(""""),-1)=0:1,1:$O(PSBOUTP(""""),-1))"
^XMB(3.9,98,2,5919,0)="""RTN"",""PSBOXA"",86,0)"
^XMB(3.9,98,2,5920,0)=" S PSBPGRM=IOM-($L(PSBPG)+5)"
^XMB(3.9,98,2,5921,0)="""RTN"",""PSBOXA"",87,0)"
^XMB(3.9,98,2,5922,0)=" I $P(PSBRPT(0),U,4)="""" S $P(PSBRPT(0),U,4)=DUZ(2)"
^XMB(3.9,98,2,5923,0)="""RTN"",""PSBOXA"",88,0)"
^XMB(3.9,98,2,5924,0)=" S PSBDIVN=""Division: ""_$$GET1^DIQ(4,$P(PSBRPT(0),U,4)_"","",.01)"
^XMB(3.9,98,2,5925,0)="""RTN"",""PSBOXA"",89,0)"
^XMB(3.9,98,2,5926,0)=" W !!,""BCMA UNKNOWN ACTION STATUS REPORT"" W ?PSBPGRM,PSBPG"
^XMB(3.9,98,2,5927,0)="""RTN"",""PSBOXA"",90,0)"
^XMB(3.9,98,2,5928,0)=" W !,""Date/Time: ""_PSBDTTM,!,""Report Date Range:  Start Date: ""_Y1_""   Stop Date: ""_Y2"
^XMB(3.9,98,2,5929,0)="""RTN"",""PSBOXA"",91,0)"
^XMB(3.9,98,2,5930,0)=" W !,PSBDIVN,?(IOM-($L(""Total *UNKNOWN* entries found: ""_+PSBTOT)+5)),""Total *UNKNOWN* entries found: ""_+PSBTOT"
^XMB(3.9,98,2,5931,0)="""RTN"",""PSBOXA"",92,0)"
^XMB(3.9,98,2,5932,0)=" W !!,?5,""This is a report of entries, created within the given date range,"""
^XMB(3.9,98,2,5933,0)="""RTN"",""PSBOXA"",93,0)"
^XMB(3.9,98,2,5934,0)=" W !,?5,""in the BCMA Medication Log File with UNKNOWN Action Status data."""
^XMB(3.9,98,2,5935,0)="""RTN"",""PSBOXA"",94,0)"
^XMB(3.9,98,2,5936,0)=" W !,?5,""These entries can be corrected using the BCMA GUI """"Edit Med Log""""."""
^XMB(3.9,98,2,5937,0)="""RTN"",""PSBOXA"",95,0)"
^XMB(3.9,98,2,5938,0)=" W !!,$TR($J("""",IOM),"" "",""=""),!!"
^XMB(3.9,98,2,5939,0)="""RTN"",""PSBOXA"",96,0)"
^XMB(3.9,98,2,5940,0)=" ;"
^XMB(3.9,98,2,5941,0)="""RTN"",""PSBOXA"",97,0)"
^XMB(3.9,98,2,5942,0)=" Q"
^XMB(3.9,98,2,5943,0)="""RTN"",""PSBOXA"",98,0)"
^XMB(3.9,98,2,5944,0)=" ;"
^XMB(3.9,98,2,5945,0)="""RTN"",""PSBOXA"",99,0)"
^XMB(3.9,98,2,5946,0)="FTR ;  Create Report Footer"
^XMB(3.9,98,2,5947,0)="""RTN"",""PSBOXA"",100,0)"
^XMB(3.9,98,2,5948,0)=" ;"
^XMB(3.9,98,2,5949,0)="""RTN"",""PSBOXA"",101,0)"
^XMB(3.9,98,2,5950,0)=" I (IOSL<100) F  Q:$Y>(IOSL-7)  W !"
^XMB(3.9,98,2,5951,0)="""RTN"",""PSBOXA"",102,0)"
^XMB(3.9,98,2,5952,0)=" W !,$TR($J("""",IOM),"" "",""=""),!"
^XMB(3.9,98,2,5953,0)="""RTN"",""PSBOXA"",103,0)"
^XMB(3.9,98,2,5954,0)=" W !,PSBDTTM,!,""BCMA UNKNOWN ACTION STATUS REPORT - footer -"""
^XMB(3.9,98,2,5955,0)="""RTN"",""PSBOXA"",104,0)"
^XMB(3.9,98,2,5956,0)=" W ?PSBPGRM,PSBPG,!"
^XMB(3.9,98,2,5957,0)="""RTN"",""PSBOXA"",105,0)"
^XMB(3.9,98,2,5958,0)=" Q"
^XMB(3.9,98,2,5959,0)="""RTN"",""PSBOXA"",106,0)"
^XMB(3.9,98,2,5960,0)=" ;"
^XMB(3.9,98,2,5961,0)="""RTN"",""PSBOXA"",107,0)"
^XMB(3.9,98,2,5962,0)="PGTOT(X) ;Keep track of lines and PAGE Number..."
^XMB(3.9,98,2,5963,0)="""RTN"",""PSBOXA"",108,0)"
^XMB(3.9,98,2,5964,0)=" ;"
^XMB(3.9,98,2,5965,0)="""RTN"",""PSBOXA"",109,0)"
^XMB(3.9,98,2,5966,0)=" S:'$D(X) PSBLNTOT=PSBLNTOT+1"
^XMB(3.9,98,2,5967,0)="""RTN"",""PSBOXA"",110,0)"
^XMB(3.9,98,2,5968,0)=" S:$D(X) PSBLNTOT=PSBLNTOT+X"
^XMB(3.9,98,2,5969,0)="""RTN"",""PSBOXA"",111,0)"
^XMB(3.9,98,2,5970,0)=" I PSBPGNUM=1,(PSBLNTOT=1) S PSBLNTOT=14 S PSBMORE=PSBLNTOT+12 Q PSBPGNUM"
^XMB(3.9,98,2,5971,0)="""RTN"",""PSBOXA"",112,0)"
^XMB(3.9,98,2,5972,0)=" I PSBLNTOT=PSBMORE D"
^XMB(3.9,98,2,5973,0)="""RTN"",""PSBOXA"",113,0)"
^XMB(3.9,98,2,5974,0)=" .S PSBMORE=PSBLNTOT+12"
^XMB(3.9,98,2,5975,0)="""RTN"",""PSBOXA"",114,0)"
^XMB(3.9,98,2,5976,0)=" .I PSBMORE>(IOSL-7) S PSBPGNUM=PSBPGNUM+1,PSBLNTOT=14 S PSBMORE=PSBLNTOT+12"
^XMB(3.9,98,2,5977,0)="""RTN"",""PSBOXA"",115,0)"
^XMB(3.9,98,2,5978,0)=" Q PSBPGNUM"
^XMB(3.9,98,2,5979,0)="""RTN"",""PSBPAR"")"
^XMB(3.9,98,2,5980,0)="0^9^B21353739^B19006745"
^XMB(3.9,98,2,5981,0)="""RTN"",""PSBPAR"",1,0)"
^XMB(3.9,98,2,5982,0)="PSBPAR ;BIRMINGHAM/EFC-BCMA PARAMETER MANAGEMENT ;Mar 2004"
^XMB(3.9,98,2,5983,0)="""RTN"",""PSBPAR"",2,0)"
^XMB(3.9,98,2,5984,0)=" ;;3.0;BAR CODE MED ADMIN;**13**;Mar 2004"
^XMB(3.9,98,2,5985,0)="""RTN"",""PSBPAR"",3,0)"
^XMB(3.9,98,2,5986,0)=" ;"
^XMB(3.9,98,2,5987,0)="""RTN"",""PSBPAR"",4,0)"
^XMB(3.9,98,2,5988,0)="EN ; Standard editting of parameters"
^XMB(3.9,98,2,5989,0)="""RTN"",""PSBPAR"",5,0)"
^XMB(3.9,98,2,5990,0)=" K PSBDIV,PSBLIST,DIC"
^XMB(3.9,98,2,5991,0)="""RTN"",""PSBPAR"",6,0)"
^XMB(3.9,98,2,5992,0)=" W !!,""BCMA Parameters Management"",!!"
^XMB(3.9,98,2,5993,0)="""RTN"",""PSBPAR"",7,0)"
^XMB(3.9,98,2,5994,0)=" W ""You are currently logged onto Division: ""_DUZ(2)"
^XMB(3.9,98,2,5995,0)="""RTN"",""PSBPAR"",8,0)"
^XMB(3.9,98,2,5996,0)=" S DIC=""^DIC(4,"",DIC(0)=""AEQM"",DIC(""A"")=""Select Division: "" D ^DIC Q:+Y<1"
^XMB(3.9,98,2,5997,0)="""RTN"",""PSBPAR"",9,0)"
^XMB(3.9,98,2,5998,0)=" S PSBDIV=+Y_"";DIC(4,"""
^XMB(3.9,98,2,5999,0)="""RTN"",""PSBPAR"",10,0)"
^XMB(3.9,98,2,6000,0)=" K DIR S DIR(0)=""Y"",DIR(""A"")=""Edit Divisional Parameters"",DIR(""B"")=""Yes"""
^XMB(3.9,98,2,6001,0)="""RTN"",""PSBPAR"",11,0)"
^XMB(3.9,98,2,6002,0)=" D ^DIR K DIR I Y D TED^XPAREDIT(""PSB DIVISION"",""AB"",PSBDIV)"
^XMB(3.9,98,2,6003,0)="""RTN"",""PSBPAR"",12,0)"
^XMB(3.9,98,2,6004,0)=" K DIR S DIR(0)=""Y"",DIR(""A"")=""Edit Default Lists"",DIR(""B"")=""Yes"""
^XMB(3.9,98,2,6005,0)="""RTN"",""PSBPAR"",13,0)"
^XMB(3.9,98,2,6006,0)=" D ^DIR K DIR D:Y"
^XMB(3.9,98,2,6007,0)="""RTN"",""PSBPAR"",14,0)"
^XMB(3.9,98,2,6008,0)=" .S DIR(0)=""SO^1:Reasons Given PRN;2:Reasons Held;3:Reasons Refused;4:Injection Sites"""
^XMB(3.9,98,2,6009,0)="""RTN"",""PSBPAR"",15,0)"
^XMB(3.9,98,2,6010,0)=" .S DIR(""A"")=""Select Default List"""
^XMB(3.9,98,2,6011,0)="""RTN"",""PSBPAR"",16,0)"
^XMB(3.9,98,2,6012,0)=" .F  W @IOF,!,""BCMA Default Lists"",! D ^DIR Q:'Y  D"
^XMB(3.9,98,2,6013,0)="""RTN"",""PSBPAR"",17,0)"
^XMB(3.9,98,2,6014,0)=" ..N DIR"
^XMB(3.9,98,2,6015,0)="""RTN"",""PSBPAR"",18,0)"
^XMB(3.9,98,2,6016,0)=" ..I Y=1 D TED^XPAREDIT(""PSB LIST REASONS GIVEN PRN"",""AB"",PSBDIV) Q"
^XMB(3.9,98,2,6017,0)="""RTN"",""PSBPAR"",19,0)"
^XMB(3.9,98,2,6018,0)=" ..I Y=2 D TED^XPAREDIT(""PSB LIST REASONS HELD"",""AB"",PSBDIV) Q"
^XMB(3.9,98,2,6019,0)="""RTN"",""PSBPAR"",20,0)"
^XMB(3.9,98,2,6020,0)=" ..I Y=3 D TED^XPAREDIT(""PSB LIST REASONS REFUSED"",""AB"",PSBDIV) Q"
^XMB(3.9,98,2,6021,0)="""RTN"",""PSBPAR"",21,0)"
^XMB(3.9,98,2,6022,0)=" ..I Y=4 D TED^XPAREDIT(""PSB LIST INJECTION SITES"",""AB"",PSBDIV) Q"
^XMB(3.9,98,2,6023,0)="""RTN"",""PSBPAR"",22,0)"
^XMB(3.9,98,2,6024,0)=" Q"
^XMB(3.9,98,2,6025,0)="""RTN"",""PSBPAR"",23,0)"
^XMB(3.9,98,2,6026,0)=" ;"
^XMB(3.9,98,2,6027,0)="""RTN"",""PSBPAR"",24,0)"
^XMB(3.9,98,2,6028,0)="RPC(RESULTS,PSBCMD,PSBENT,PSBPAR,PSBINS,PSBVAL) ; Main RPC Hit Point"
^XMB(3.9,98,2,6029,0)="""RTN"",""PSBPAR"",25,0)"
^XMB(3.9,98,2,6030,0)=" ;"
^XMB(3.9,98,2,6031,0)="""RTN"",""PSBPAR"",26,0)"
^XMB(3.9,98,2,6032,0)=" ; RPC: PSB PARAMETER"
^XMB(3.9,98,2,6033,0)="""RTN"",""PSBPAR"",27,0)"
^XMB(3.9,98,2,6034,0)=" ;"
^XMB(3.9,98,2,6035,0)="""RTN"",""PSBPAR"",28,0)"
^XMB(3.9,98,2,6036,0)=" ; Description:"
^XMB(3.9,98,2,6037,0)="""RTN"",""PSBPAR"",29,0)"
^XMB(3.9,98,2,6038,0)=" ; Called by client to return or set parameters"
^XMB(3.9,98,2,6039,0)="""RTN"",""PSBPAR"",30,0)"
^XMB(3.9,98,2,6040,0)=" ;"
^XMB(3.9,98,2,6041,0)="""RTN"",""PSBPAR"",31,0)"
^XMB(3.9,98,2,6042,0)=" N PSBERR,PSBTMP"
^XMB(3.9,98,2,6043,0)="""RTN"",""PSBPAR"",32,0)"
^XMB(3.9,98,2,6044,0)=" D:PSBCMD=""GETPAR"" GETPAR(PSBENT,PSBPAR)"
^XMB(3.9,98,2,6045,0)="""RTN"",""PSBPAR"",33,0)"
^XMB(3.9,98,2,6046,0)=" D:PSBCMD=""GETLST"" GETLST(PSBENT,PSBPAR)"
^XMB(3.9,98,2,6047,0)="""RTN"",""PSBPAR"",34,0)"
^XMB(3.9,98,2,6048,0)=" D:PSBCMD=""SETPAR"" SETPAR(PSBENT,PSBPAR,PSBINS,PSBVAL)"
^XMB(3.9,98,2,6049,0)="""RTN"",""PSBPAR"",35,0)"
^XMB(3.9,98,2,6050,0)=" D:PSBCMD=""DELLST"" DELLST(PSBENT,PSBPAR)"
^XMB(3.9,98,2,6051,0)="""RTN"",""PSBPAR"",36,0)"
^XMB(3.9,98,2,6052,0)=" D:PSBCMD=""GETDIV"" GETDIV(PSBENT)"
^XMB(3.9,98,2,6053,0)="""RTN"",""PSBPAR"",37,0)"
^XMB(3.9,98,2,6054,0)=" S:'$D(RESULTS) RESULTS(0)=""-1^Unknown Internal Error ""_PSBCMD"
^XMB(3.9,98,2,6055,0)="""RTN"",""PSBPAR"",38,0)"
^XMB(3.9,98,2,6056,0)=" Q"
^XMB(3.9,98,2,6057,0)="""RTN"",""PSBPAR"",39,0)"
^XMB(3.9,98,2,6058,0)=" ;"
^XMB(3.9,98,2,6059,0)="""RTN"",""PSBPAR"",40,0)"
^XMB(3.9,98,2,6060,0)="GETDIV(PSBENT) ; Return a valid Entity pointer from user input"
^XMB(3.9,98,2,6061,0)="""RTN"",""PSBPAR"",41,0)"
^XMB(3.9,98,2,6062,0)=" S X=$$FIND1^DIC(4,"""",""MX"",PSBENT)"
^XMB(3.9,98,2,6063,0)="""RTN"",""PSBPAR"",42,0)"
^XMB(3.9,98,2,6064,0)=" I +X<1 S RESULTS(0)=""-1^Error, Station # ""_PSBENT_"" not found."" Q"
^XMB(3.9,98,2,6065,0)="""RTN"",""PSBPAR"",43,0)"
^XMB(3.9,98,2,6066,0)=" S RESULTS(0)=""1^""_(+X)_"";DIC(4,"""
^XMB(3.9,98,2,6067,0)="""RTN"",""PSBPAR"",44,0)"
^XMB(3.9,98,2,6068,0)=" S RESULTS(1)=$$GET1^DIQ(4,+X_"","",.01)_"" (""_$$GET1^DIQ(4,+X_"","",99)_"")"""
^XMB(3.9,98,2,6069,0)="""RTN"",""PSBPAR"",45,0)"
^XMB(3.9,98,2,6070,0)=" S RESULTS(2)=$$GET1^DIQ(4,+X_"","",1.01)"
^XMB(3.9,98,2,6071,0)="""RTN"",""PSBPAR"",46,0)"
^XMB(3.9,98,2,6072,0)=" S RESULTS(3)=$$GET1^DIQ(4,+X_"","",1.02)"
^XMB(3.9,98,2,6073,0)="""RTN"",""PSBPAR"",47,0)"
^XMB(3.9,98,2,6074,0)=" S RESULTS(4)=$$GET1^DIQ(4,+X_"","",1.03)"
^XMB(3.9,98,2,6075,0)="""RTN"",""PSBPAR"",48,0)"
^XMB(3.9,98,2,6076,0)=" S RESULTS(5)=$$GET1^DIQ(4,+X_"","",.02)"
^XMB(3.9,98,2,6077,0)="""RTN"",""PSBPAR"",49,0)"
^XMB(3.9,98,2,6078,0)=" S RESULTS(6)=$$GET1^DIQ(4,+X_"","",1.04)"
^XMB(3.9,98,2,6079,0)="""RTN"",""PSBPAR"",50,0)"
^XMB(3.9,98,2,6080,0)=" S PSBEDIV=+X  ;do NOT kill this variable - needed until gui context ends"
^XMB(3.9,98,2,6081,0)="""RTN"",""PSBPAR"",51,0)"
^XMB(3.9,98,2,6082,0)=" Q"
^XMB(3.9,98,2,6083,0)="""RTN"",""PSBPAR"",52,0)"
^XMB(3.9,98,2,6084,0)=" ;"
^XMB(3.9,98,2,6085,0)="""RTN"",""PSBPAR"",53,0)"
^XMB(3.9,98,2,6086,0)="GETPAR(PSBENT,PSBPAR) ; Return a parameter"
^XMB(3.9,98,2,6087,0)="""RTN"",""PSBPAR"",54,0)"
^XMB(3.9,98,2,6088,0)=" S RESULTS(0)=$$GET^XPAR(PSBENT,PSBPAR,,""B"")"
^XMB(3.9,98,2,6089,0)="""RTN"",""PSBPAR"",55,0)"
^XMB(3.9,98,2,6090,0)=" Q"
^XMB(3.9,98,2,6091,0)="""RTN"",""PSBPAR"",56,0)"
^XMB(3.9,98,2,6092,0)=" ;"
^XMB(3.9,98,2,6093,0)="""RTN"",""PSBPAR"",57,0)"
^XMB(3.9,98,2,6094,0)="GETLST(PSBENT,PSBPAR) ; Return a parameter list"
^XMB(3.9,98,2,6095,0)="""RTN"",""PSBPAR"",58,0)"
^XMB(3.9,98,2,6096,0)=" D GETLST^XPAR(.PSBTMP,PSBENT,PSBPAR,,.PSBERR)"
^XMB(3.9,98,2,6097,0)="""RTN"",""PSBPAR"",59,0)"
^XMB(3.9,98,2,6098,0)=" I PSBERR S RESULTS(0)=""-1^Error: ""_(+PSBERR)_"" ""_$P(PSBERR,""^"",2) Q"
^XMB(3.9,98,2,6099,0)="""RTN"",""PSBPAR"",60,0)"
^XMB(3.9,98,2,6100,0)=" S RESULTS(0)=PSBTMP"
^XMB(3.9,98,2,6101,0)="""RTN"",""PSBPAR"",61,0)"
^XMB(3.9,98,2,6102,0)=" F Y=0:0 S Y=$O(PSBTMP(Y)) Q:'Y  S RESULTS(Y)=$P(PSBTMP(Y),""^"",2)"
^XMB(3.9,98,2,6103,0)="""RTN"",""PSBPAR"",62,0)"
^XMB(3.9,98,2,6104,0)=" Q"
^XMB(3.9,98,2,6105,0)="""RTN"",""PSBPAR"",63,0)"
^XMB(3.9,98,2,6106,0)=" ;"
^XMB(3.9,98,2,6107,0)="""RTN"",""PSBPAR"",64,0)"
^XMB(3.9,98,2,6108,0)="SETPAR(PSBENT,PSBPAR,PSBINS,PSBVAL) ; Set a new parameter"
^XMB(3.9,98,2,6109,0)="""RTN"",""PSBPAR"",65,0)"
^XMB(3.9,98,2,6110,0)=" D EN^XPAR(PSBENT,PSBPAR,PSBINS,PSBVAL,.PSBERR)"
^XMB(3.9,98,2,6111,0)="""RTN"",""PSBPAR"",66,0)"
^XMB(3.9,98,2,6112,0)=" I 'PSBERR S RESULTS(0)=""1^Success"""
^XMB(3.9,98,2,6113,0)="""RTN"",""PSBPAR"",67,0)"
^XMB(3.9,98,2,6114,0)=" E  S RESULTS(0)=""-1^Error: ""_(+PSBERR)_"" ""_$P(PSBERR,""^"",2)"
^XMB(3.9,98,2,6115,0)="""RTN"",""PSBPAR"",68,0)"
^XMB(3.9,98,2,6116,0)=" Q"
^XMB(3.9,98,2,6117,0)="""RTN"",""PSBPAR"",69,0)"
^XMB(3.9,98,2,6118,0)=" ;"
^XMB(3.9,98,2,6119,0)="""RTN"",""PSBPAR"",70,0)"
^XMB(3.9,98,2,6120,0)="DELLST(PSBENT,PSBPAR) ; Clear a list"
^XMB(3.9,98,2,6121,0)="""RTN"",""PSBPAR"",71,0)"
^XMB(3.9,98,2,6122,0)=" D NDEL^XPAR(PSBENT,PSBPAR,.PSBERR)"
^XMB(3.9,98,2,6123,0)="""RTN"",""PSBPAR"",72,0)"
^XMB(3.9,98,2,6124,0)=" I 'PSBERR S RESULTS(0)=""1^Success"""
^XMB(3.9,98,2,6125,0)="""RTN"",""PSBPAR"",73,0)"
^XMB(3.9,98,2,6126,0)=" E  S RESULTS(0)=""-1^Error: ""_(+PSBERR)_"" ""_$P(PSBERR,""^"",2)"
^XMB(3.9,98,2,6127,0)="""RTN"",""PSBPAR"",74,0)"
^XMB(3.9,98,2,6128,0)=" Q"
^XMB(3.9,98,2,6129,0)="""RTN"",""PSBPAR"",75,0)"
^XMB(3.9,98,2,6130,0)=" ;"
^XMB(3.9,98,2,6131,0)="""RTN"",""PSBPAR"",76,0)"
^XMB(3.9,98,2,6132,0)="USRDEF(PSBPAR) ; Return a parameter for the user"
^XMB(3.9,98,2,6133,0)="""RTN"",""PSBPAR"",77,0)"
^XMB(3.9,98,2,6134,0)=" Q $$GET^XPAR(""ALL"",PSBPAR)"
^XMB(3.9,98,2,6135,0)="""RTN"",""PSBPAR"",78,0)"
^XMB(3.9,98,2,6136,0)=" ;"
^XMB(3.9,98,2,6137,0)="""RTN"",""PSBPAR"",79,0)"
^XMB(3.9,98,2,6138,0)="RSTUSR ; Reset all a users parameters"
^XMB(3.9,98,2,6139,0)="""RTN"",""PSBPAR"",80,0)"
^XMB(3.9,98,2,6140,0)=" N PSBUSR,PSBENT,RESULTS"
^XMB(3.9,98,2,6141,0)="""RTN"",""PSBPAR"",81,0)"
^XMB(3.9,98,2,6142,0)=" S DIC=""^VA(200,"",DIC(0)=""AEQM"",DIC(""A"")=""Select User to Reset: """
^XMB(3.9,98,2,6143,0)="""RTN"",""PSBPAR"",82,0)"
^XMB(3.9,98,2,6144,0)=" D ^DIC K DIC Q:+Y<1  S PSBUSR=+Y"
^XMB(3.9,98,2,6145,0)="""RTN"",""PSBPAR"",83,0)"
^XMB(3.9,98,2,6146,0)=" W !!,""Are you sure you want to reset all parameters for this user"""
^XMB(3.9,98,2,6147,0)="""RTN"",""PSBPAR"",84,0)"
^XMB(3.9,98,2,6148,0)=" S %=2 D YN^DICN Q:%'=1"
^XMB(3.9,98,2,6149,0)="""RTN"",""PSBPAR"",85,0)"
^XMB(3.9,98,2,6150,0)=" W !,""Resetting..."""
^XMB(3.9,98,2,6151,0)="""RTN"",""PSBPAR"",86,0)"
^XMB(3.9,98,2,6152,0)=" S PSBENT=PSBUSR_"";VA(200,"""
^XMB(3.9,98,2,6153,0)="""RTN"",""PSBPAR"",87,0)"
^XMB(3.9,98,2,6154,0)=" D DEL^XPAR(PSBENT,""PSB PRINTER USER DEFAULT"",1)"
^XMB(3.9,98,2,6155,0)="""RTN"",""PSBPAR"",88,0)"
^XMB(3.9,98,2,6156,0)=" D DEL^XPAR(PSBENT,""PSB VDL INCL BLANKS"",1)"
^XMB(3.9,98,2,6157,0)="""RTN"",""PSBPAR"",89,0)"
^XMB(3.9,98,2,6158,0)=" D DEL^XPAR(PSBENT,""PSB VDL INCL CONT"",1)"
^XMB(3.9,98,2,6159,0)="""RTN"",""PSBPAR"",90,0)"
^XMB(3.9,98,2,6160,0)=" D DEL^XPAR(PSBENT,""PSB VDL INCL IV MEDS"",1)"
^XMB(3.9,98,2,6161,0)="""RTN"",""PSBPAR"",91,0)"
^XMB(3.9,98,2,6162,0)=" D DEL^XPAR(PSBENT,""PSB VDL INCL ON-CALL"",1)"
^XMB(3.9,98,2,6163,0)="""RTN"",""PSBPAR"",92,0)"
^XMB(3.9,98,2,6164,0)=" D DEL^XPAR(PSBENT,""PSB VDL INCL ONE-TIME"",1)"
^XMB(3.9,98,2,6165,0)="""RTN"",""PSBPAR"",93,0)"
^XMB(3.9,98,2,6166,0)=" D DEL^XPAR(PSBENT,""PSB VDL INCL PRN"",1)"
^XMB(3.9,98,2,6167,0)="""RTN"",""PSBPAR"",94,0)"
^XMB(3.9,98,2,6168,0)=" D DEL^XPAR(PSBENT,""PSB VDL INCL UD MEDS"",1)"
^XMB(3.9,98,2,6169,0)="""RTN"",""PSBPAR"",95,0)"
^XMB(3.9,98,2,6170,0)=" D DEL^XPAR(PSBENT,""PSB VDL START TIME"",1)"
^XMB(3.9,98,2,6171,0)="""RTN"",""PSBPAR"",96,0)"
^XMB(3.9,98,2,6172,0)=" D DEL^XPAR(PSBENT,""PSB VDL STOP TIME"",1)"
^XMB(3.9,98,2,6173,0)="""RTN"",""PSBPAR"",97,0)"
^XMB(3.9,98,2,6174,0)=" D DEL^XPAR(PSBENT,""PSB WINDOW"",1)"
^XMB(3.9,98,2,6175,0)="""RTN"",""PSBPAR"",98,0)"
^XMB(3.9,98,2,6176,0)=" D DEL^XPAR(PSBENT,""PSB UNIT DOSE COLUMN WIDTHS"",1)"
^XMB(3.9,98,2,6177,0)="""RTN"",""PSBPAR"",99,0)"
^XMB(3.9,98,2,6178,0)=" D DEL^XPAR(PSBENT,""PSB VDL SORT COLUMN"",1)"
^XMB(3.9,98,2,6179,0)="""RTN"",""PSBPAR"",100,0)"
^XMB(3.9,98,2,6180,0)=" D DEL^XPAR(PSBENT,""PSB VDL PB SORT COLUMN"",1)"
^XMB(3.9,98,2,6181,0)="""RTN"",""PSBPAR"",101,0)"
^XMB(3.9,98,2,6182,0)=" D DEL^XPAR(PSBENT,""PSB VDL IV SORT COLUMN"",1)"
^XMB(3.9,98,2,6183,0)="""RTN"",""PSBPAR"",102,0)"
^XMB(3.9,98,2,6184,0)=" D DEL^XPAR(PSBENT,""PSB IV COLUMN WIDTHS"",1)"
^XMB(3.9,98,2,6185,0)="""RTN"",""PSBPAR"",103,0)"
^XMB(3.9,98,2,6186,0)=" D DEL^XPAR(PSBENT,""PSB IVPB COLUMN WIDTHS"",1)"
^XMB(3.9,98,2,6187,0)="""RTN"",""PSBPAR"",104,0)"
^XMB(3.9,98,2,6188,0)=" D DEL^XPAR(PSBENT,""PSB HKEY"",1)"
^XMB(3.9,98,2,6189,0)="""RTN"",""PSBPAR"",105,0)"
^XMB(3.9,98,2,6190,0)=" D DEL^XPAR(PSBENT,""PSB IDLE TIMEOUT"",1)"
^XMB(3.9,98,2,6191,0)="""RTN"",""PSBPAR"",106,0)"
^XMB(3.9,98,2,6192,0)=" D DEL^XPAR(PSBENT,""PSB GUI DEFAULT PRINTER"",1)"
^XMB(3.9,98,2,6193,0)="""RTN"",""PSBPAR"",107,0)"
^XMB(3.9,98,2,6194,0)=" D DEL^XPAR(PSBENT,""PSB COVERSHEET VIEWS COL SORT"",1)"
^XMB(3.9,98,2,6195,0)="""RTN"",""PSBPAR"",108,0)"
^XMB(3.9,98,2,6196,0)=" D DEL^XPAR(PSBENT,""PSB COVERSHEET V1 COL WIDTHS"",1)"
^XMB(3.9,98,2,6197,0)="""RTN"",""PSBPAR"",109,0)"
^XMB(3.9,98,2,6198,0)=" D DEL^XPAR(PSBENT,""PSB COVERSHEET V2 COL WIDTHS"",1)"
^XMB(3.9,98,2,6199,0)="""RTN"",""PSBPAR"",110,0)"
^XMB(3.9,98,2,6200,0)=" D DEL^XPAR(PSBENT,""PSB COVERSHEET V3 COL WIDTHS"",1)"
^XMB(3.9,98,2,6201,0)="""RTN"",""PSBPAR"",111,0)"
^XMB(3.9,98,2,6202,0)=" D DEL^XPAR(PSBENT,""PSB COVERSHEET V4 COL WIDTHS"",1)"
^XMB(3.9,98,2,6203,0)="""RTN"",""PSBPAR"",112,0)"
^XMB(3.9,98,2,6204,0)=" W ""Done."",!"
^XMB(3.9,98,2,6205,0)="""RTN"",""PSBPAR"",113,0)"
^XMB(3.9,98,2,6206,0)=" Q"
^XMB(3.9,98,2,6207,0)="""RTN"",""PSBPAR"",114,0)"
^XMB(3.9,98,2,6208,0)=" ;"
^XMB(3.9,98,2,6209,0)="""RTN"",""PSBPRN"")"
^XMB(3.9,98,2,6210,0)="0^26^B23314092^B25412944"
^XMB(3.9,98,2,6211,0)="""RTN"",""PSBPRN"",1,0)"
^XMB(3.9,98,2,6212,0)="PSBPRN ;BIRMINGHAM/EFC-BCMA PRN FUNCTIONS ;Mar 2004"
^XMB(3.9,98,2,6213,0)="""RTN"",""PSBPRN"",2,0)"
^XMB(3.9,98,2,6214,0)=" ;;3.0;BAR CODE MED ADMIN;**5,3,13**;Mar 2004"
^XMB(3.9,98,2,6215,0)="""RTN"",""PSBPRN"",3,0)"
^XMB(3.9,98,2,6216,0)=" ;"
^XMB(3.9,98,2,6217,0)="""RTN"",""PSBPRN"",4,0)"
^XMB(3.9,98,2,6218,0)=" ;Reference/IA"
^XMB(3.9,98,2,6219,0)="""RTN"",""PSBPRN"",5,0)"
^XMB(3.9,98,2,6220,0)=" ;DEM^VADPT/10061"
^XMB(3.9,98,2,6221,0)="""RTN"",""PSBPRN"",6,0)"
^XMB(3.9,98,2,6222,0)=" ;INP^VADPT/10061"
^XMB(3.9,98,2,6223,0)="""RTN"",""PSBPRN"",7,0)"
^XMB(3.9,98,2,6224,0)=" ;$$GET1^DIQ/2056"
^XMB(3.9,98,2,6225,0)="""RTN"",""PSBPRN"",8,0)"
^XMB(3.9,98,2,6226,0)="EN ;"
^XMB(3.9,98,2,6227,0)="""RTN"",""PSBPRN"",9,0)"
^XMB(3.9,98,2,6228,0)=" Q"
^XMB(3.9,98,2,6229,0)="""RTN"",""PSBPRN"",10,0)"
^XMB(3.9,98,2,6230,0)=" ;"
^XMB(3.9,98,2,6231,0)="""RTN"",""PSBPRN"",11,0)"
^XMB(3.9,98,2,6232,0)="EDIT ; Edit Medication Log PRN Effectiveness"
^XMB(3.9,98,2,6233,0)="""RTN"",""PSBPRN"",12,0)"
^XMB(3.9,98,2,6234,0)=" NEW DFN ;* Undef DFN at EDIT+7^PSBPRN (NOIS: HUN-0699-21494)"
^XMB(3.9,98,2,6235,0)="""RTN"",""PSBPRN"",13,0)"
^XMB(3.9,98,2,6236,0)=" W !! S DA="""""
^XMB(3.9,98,2,6237,0)="""RTN"",""PSBPRN"",14,0)"
^XMB(3.9,98,2,6238,0)=" S DIC=""^DPT("",DIC(0)=""AEQM"",DIC(""A"")=""Select Patient Name: """
^XMB(3.9,98,2,6239,0)="""RTN"",""PSBPRN"",15,0)"
^XMB(3.9,98,2,6240,0)=" D ^DIC K DIC Q:+Y<1"
^XMB(3.9,98,2,6241,0)="""RTN"",""PSBPRN"",16,0)"
^XMB(3.9,98,2,6242,0)=" S DFN=+Y"
^XMB(3.9,98,2,6243,0)="""RTN"",""PSBPRN"",17,0)"
^XMB(3.9,98,2,6244,0)=" D EDIT1"
^XMB(3.9,98,2,6245,0)="""RTN"",""PSBPRN"",18,0)"
^XMB(3.9,98,2,6246,0)=" K DFN,DA"
^XMB(3.9,98,2,6247,0)="""RTN"",""PSBPRN"",19,0)"
^XMB(3.9,98,2,6248,0)=" G EDIT"
^XMB(3.9,98,2,6249,0)="""RTN"",""PSBPRN"",20,0)"
^XMB(3.9,98,2,6250,0)=" ;"
^XMB(3.9,98,2,6251,0)="""RTN"",""PSBPRN"",21,0)"
^XMB(3.9,98,2,6252,0)="EDIT1 ;"
^XMB(3.9,98,2,6253,0)="""RTN"",""PSBPRN"",22,0)"
^XMB(3.9,98,2,6254,0)=" S %DT=""AEQ"",%DT(""A"")=""Select Date to Begin Searching Back From: """
^XMB(3.9,98,2,6255,0)="""RTN"",""PSBPRN"",23,0)"
^XMB(3.9,98,2,6256,0)=" S %DT(""B"")=""Today"""
^XMB(3.9,98,2,6257,0)="""RTN"",""PSBPRN"",24,0)"
^XMB(3.9,98,2,6258,0)=" W !! D ^%DT Q:+Y<1  S PSBDT=Y"
^XMB(3.9,98,2,6259,0)="""RTN"",""PSBPRN"",25,0)"
^XMB(3.9,98,2,6260,0)=" F  D  Q:'PSBDT"
^XMB(3.9,98,2,6261,0)="""RTN"",""PSBPRN"",26,0)"
^XMB(3.9,98,2,6262,0)=" .W @IOF,!,""Searching Date "" S Y=PSBDT D D^DIQ W Y"
^XMB(3.9,98,2,6263,0)="""RTN"",""PSBPRN"",27,0)"
^XMB(3.9,98,2,6264,0)=" .W !,"" #  Medication"",?45,""St"",?50,""D/T Given"",?75,""Int"""
^XMB(3.9,98,2,6265,0)="""RTN"",""PSBPRN"",28,0)"
^XMB(3.9,98,2,6266,0)=" .W !,$TR($J("""",IOM),"" "",""-"")"
^XMB(3.9,98,2,6267,0)="""RTN"",""PSBPRN"",29,0)"
^XMB(3.9,98,2,6268,0)=" .S PSBSRCH=PSBDT+.9,PSBCNT=0"
^XMB(3.9,98,2,6269,0)="""RTN"",""PSBPRN"",30,0)"
^XMB(3.9,98,2,6270,0)=" .K PSBTMP"
^XMB(3.9,98,2,6271,0)="""RTN"",""PSBPRN"",31,0)"
^XMB(3.9,98,2,6272,0)=" .F  S PSBSRCH=$O(^PSB(53.79,""APRN"",DFN,PSBSRCH),-1) Q:'PSBSRCH!(PSBSRCH<PSBDT)  D"
^XMB(3.9,98,2,6273,0)="""RTN"",""PSBPRN"",32,0)"
^XMB(3.9,98,2,6274,0)=" ..S PSBIEN="""""
^XMB(3.9,98,2,6275,0)="""RTN"",""PSBPRN"",33,0)"
^XMB(3.9,98,2,6276,0)=" ..F  S PSBIEN=$O(^PSB(53.79,""APRN"",DFN,PSBSRCH,PSBIEN),-1) Q:'PSBIEN  D"
^XMB(3.9,98,2,6277,0)="""RTN"",""PSBPRN"",34,0)"
^XMB(3.9,98,2,6278,0)=" ...Q:$P($G(^PSB(53.79,PSBIEN,.2)),U,2)]"""""
^XMB(3.9,98,2,6279,0)="""RTN"",""PSBPRN"",35,0)"
^XMB(3.9,98,2,6280,0)=" ...Q:$P($G(^PSB(53.79,PSBIEN,0)),U,9)'=""G"""
^XMB(3.9,98,2,6281,0)="""RTN"",""PSBPRN"",36,0)"
^XMB(3.9,98,2,6282,0)=" ...S PSBCNT=PSBCNT+1,PSBTMP(PSBCNT)=PSBIEN"
^XMB(3.9,98,2,6283,0)="""RTN"",""PSBPRN"",37,0)"
^XMB(3.9,98,2,6284,0)=" ...I $Y>19 W ! S DIR(0)=""E"" D ^DIR W @IOF,!,""Searching Date "" S Y=PSBDT D D^DIQ W Y,!,"" #  Medication"",?45,""St"",?50,""D/T Given"",?75,""Int"",!,$TR($J("""",IOM),"" "",""-"")"
^XMB(3.9,98,2,6285,0)="""RTN"",""PSBPRN"",38,0)"
^XMB(3.9,98,2,6286,0)=" ...W !,$J(PSBCNT,2),"". """
^XMB(3.9,98,2,6287,0)="""RTN"",""PSBPRN"",39,0)"
^XMB(3.9,98,2,6288,0)=" ...W ?5,$$GET1^DIQ(53.79,PSBIEN_"","",.08)"
^XMB(3.9,98,2,6289,0)="""RTN"",""PSBPRN"",40,0)"
^XMB(3.9,98,2,6290,0)=" ...W ?45,$P(^PSB(53.79,PSBIEN,0),U,9)"
^XMB(3.9,98,2,6291,0)="""RTN"",""PSBPRN"",41,0)"
^XMB(3.9,98,2,6292,0)=" ...W ?50,$$GET1^DIQ(53.79,PSBIEN_"","",.06)"
^XMB(3.9,98,2,6293,0)="""RTN"",""PSBPRN"",42,0)"
^XMB(3.9,98,2,6294,0)=" ...W ?75,$$GET1^DIQ(53.79,PSBIEN_"","",""ACTION BY:INITIAL"")"
^XMB(3.9,98,2,6295,0)="""RTN"",""PSBPRN"",43,0)"
^XMB(3.9,98,2,6296,0)=" .I PSBCNT W ! S DIR(0)=""NO^1:""_PSBCNT_"":0"" D ^DIR S:Y DA=PSBTMP(Y),PSBDT="""" Q:Y"
^XMB(3.9,98,2,6297,0)="""RTN"",""PSBPRN"",44,0)"
^XMB(3.9,98,2,6298,0)=" .I 'PSBCNT W !!?5,""No Meds Found!"""
^XMB(3.9,98,2,6299,0)="""RTN"",""PSBPRN"",45,0)"
^XMB(3.9,98,2,6300,0)=" .S X1=PSBDT,X2=-1 D C^%DTC S (PSBDT,Y)=X D D^DIQ"
^XMB(3.9,98,2,6301,0)="""RTN"",""PSBPRN"",46,0)"
^XMB(3.9,98,2,6302,0)=" .W !!,""Continue With "",Y"
^XMB(3.9,98,2,6303,0)="""RTN"",""PSBPRN"",47,0)"
^XMB(3.9,98,2,6304,0)=" .S %=1 D YN^DICN I %'=1 S PSBDT=0"
^XMB(3.9,98,2,6305,0)="""RTN"",""PSBPRN"",48,0)"
^XMB(3.9,98,2,6306,0)=" I DA S DDSFILE=53.79,DR=""[PSB PRN EFFECTIVENESS]"" D ^DDS S %=2 W !,""Edit another entry"" D YN^DICN G:%=1 EDIT1"
^XMB(3.9,98,2,6307,0)="""RTN"",""PSBPRN"",49,0)"
^XMB(3.9,98,2,6308,0)=" K PSBCNT,PSBDT,PSBIEN,PSBSRCH,PSBTMP,DA,DR,DDSFILE"
^XMB(3.9,98,2,6309,0)="""RTN"",""PSBPRN"",50,0)"
^XMB(3.9,98,2,6310,0)=" Q"
^XMB(3.9,98,2,6311,0)="""RTN"",""PSBPRN"",51,0)"
^XMB(3.9,98,2,6312,0)=" ;"
^XMB(3.9,98,2,6313,0)="""RTN"",""PSBPRN"",52,0)"
^XMB(3.9,98,2,6314,0)="GETPRNS(RESULTS,DFN,PSBORD) ; Get the PRN's for a pt needing effectness"
^XMB(3.9,98,2,6315,0)="""RTN"",""PSBPRN"",53,0)"
^XMB(3.9,98,2,6316,0)=" ;"
^XMB(3.9,98,2,6317,0)="""RTN"",""PSBPRN"",54,0)"
^XMB(3.9,98,2,6318,0)=" ; RPC PSB GETPRNS"
^XMB(3.9,98,2,6319,0)="""RTN"",""PSBPRN"",55,0)"
^XMB(3.9,98,2,6320,0)=" ;"
^XMB(3.9,98,2,6321,0)="""RTN"",""PSBPRN"",56,0)"
^XMB(3.9,98,2,6322,0)=" ; Description:"
^XMB(3.9,98,2,6323,0)="""RTN"",""PSBPRN"",57,0)"
^XMB(3.9,98,2,6324,0)=" ; Returns all administrations of a PRN order that have NOT had"
^XMB(3.9,98,2,6325,0)="""RTN"",""PSBPRN"",58,0)"
^XMB(3.9,98,2,6326,0)=" ; the PRN Effectiveness documented BASED ON THE TRANSFER DATE AND SITE PARAM"
^XMB(3.9,98,2,6327,0)="""RTN"",""PSBPRN"",59,0)"
^XMB(3.9,98,2,6328,0)=" ;"
^XMB(3.9,98,2,6329,0)="""RTN"",""PSBPRN"",60,0)"
^XMB(3.9,98,2,6330,0)=" N PSBIEN,PSBSTOP"
^XMB(3.9,98,2,6331,0)="""RTN"",""PSBPRN"",61,0)"
^XMB(3.9,98,2,6332,0)=" K ^TMP(""PSB"",$J),RESULTS"
^XMB(3.9,98,2,6333,0)="""RTN"",""PSBPRN"",62,0)"
^XMB(3.9,98,2,6334,0)=" ;"
^XMB(3.9,98,2,6335,0)="""RTN"",""PSBPRN"",63,0)"
^XMB(3.9,98,2,6336,0)=" Q:$$DISCHRGD(DFN)"
^XMB(3.9,98,2,6337,0)="""RTN"",""PSBPRN"",64,0)"
^XMB(3.9,98,2,6338,0)=" ;"
^XMB(3.9,98,2,6339,0)="""RTN"",""PSBPRN"",65,0)"
^XMB(3.9,98,2,6340,0)=" D INP^VADPT S PSBTRDT=+VAIN(7)"
^XMB(3.9,98,2,6341,0)="""RTN"",""PSBPRN"",66,0)"
^XMB(3.9,98,2,6342,0)=" S PSBHOUR=$$GET^XPAR(""DIV"",""PSB PRN DOCUMENTATION"") I PSBHOUR="""" S PSBHOUR=72"
^XMB(3.9,98,2,6343,0)="""RTN"",""PSBPRN"",67,0)"
^XMB(3.9,98,2,6344,0)=" D NOW^%DTC S PSBSTRT=%,PSBPRNDT=$$FMADD^XLFDT(PSBSTRT,"""",-PSBHOUR)"
^XMB(3.9,98,2,6345,0)="""RTN"",""PSBPRN"",68,0)"
^XMB(3.9,98,2,6346,0)=" ;"
^XMB(3.9,98,2,6347,0)="""RTN"",""PSBPRN"",69,0)"
^XMB(3.9,98,2,6348,0)=" ;Use the (OLDER) value of PSBPRNDT(site param) or PSBTRDT(admission)"
^XMB(3.9,98,2,6349,0)="""RTN"",""PSBPRN"",70,0)"
^XMB(3.9,98,2,6350,0)=" I PSBPRNDT>PSBTRDT S PSBPRNDT=PSBTRDT"
^XMB(3.9,98,2,6351,0)="""RTN"",""PSBPRN"",71,0)"
^XMB(3.9,98,2,6352,0)=" S PSBSTRT="""" F  S PSBSTRT=$O(^PSB(53.79,""APRN"",DFN,PSBSTRT),-1) Q:(PSBSTRT<PSBPRNDT)  D"
^XMB(3.9,98,2,6353,0)="""RTN"",""PSBPRN"",72,0)"
^XMB(3.9,98,2,6354,0)=" .S PSBIEN="""""
^XMB(3.9,98,2,6355,0)="""RTN"",""PSBPRN"",73,0)"
^XMB(3.9,98,2,6356,0)=" .F  S PSBIEN=$O(^PSB(53.79,""APRN"",DFN,PSBSTRT,PSBIEN),-1) Q:'PSBIEN  D"
^XMB(3.9,98,2,6357,0)="""RTN"",""PSBPRN"",74,0)"
^XMB(3.9,98,2,6358,0)=" ..Q:(PSBORD'="""")&($P(^PSB(53.79,PSBIEN,.1),U)'=PSBORD)  ;  Not the right order"
^XMB(3.9,98,2,6359,0)="""RTN"",""PSBPRN"",75,0)"
^XMB(3.9,98,2,6360,0)=" ..I ($P(^PSB(53.79,PSBIEN,0),U,9)'=""G"")&($P(^PSB(53.79,PSBIEN,0),U,9)'=""RM"") Q    ; Med was never given"
^XMB(3.9,98,2,6361,0)="""RTN"",""PSBPRN"",76,0)"
^XMB(3.9,98,2,6362,0)=" ..Q:$P($G(^PSB(53.79,PSBIEN,.2)),U,2)]""""  ; Already entered"
^XMB(3.9,98,2,6363,0)="""RTN"",""PSBPRN"",77,0)"
^XMB(3.9,98,2,6364,0)=" ..S PSBX=PSBIEN_U_DFN,PSBIENS=PSBIEN_"","""
^XMB(3.9,98,2,6365,0)="""RTN"",""PSBPRN"",78,0)"
^XMB(3.9,98,2,6366,0)=" ..S PSBX=PSBX_U_$$GET1^DIQ(53.79,PSBIENS,.02)"
^XMB(3.9,98,2,6367,0)="""RTN"",""PSBPRN"",79,0)"
^XMB(3.9,98,2,6368,0)=" ..S PSBX=PSBX_U_$$GET1^DIQ(53.79,PSBIENS,.06,""I"")"
^XMB(3.9,98,2,6369,0)="""RTN"",""PSBPRN"",80,0)"
^XMB(3.9,98,2,6370,0)=" ..S PSBX=PSBX_U_$$GET1^DIQ(53.79,PSBIENS,.07)"
^XMB(3.9,98,2,6371,0)="""RTN"",""PSBPRN"",81,0)"
^XMB(3.9,98,2,6372,0)=" ..S PSBX=PSBX_U_$$GET1^DIQ(53.79,PSBIENS,.08)"
^XMB(3.9,98,2,6373,0)="""RTN"",""PSBPRN"",82,0)"
^XMB(3.9,98,2,6374,0)=" ..S PSBX=PSBX_U_$$GET1^DIQ(53.79,PSBIENS,.21)"
^XMB(3.9,98,2,6375,0)="""RTN"",""PSBPRN"",83,0)"
^XMB(3.9,98,2,6376,0)=" ..D PSJ1^PSBVT(DFN,$$GET1^DIQ(53.79,PSBIENS,.11))"
^XMB(3.9,98,2,6377,0)="""RTN"",""PSBPRN"",84,0)"
^XMB(3.9,98,2,6378,0)=" ..S PSBX=PSBX_U_PSBOIT_U_PSBONX"
^XMB(3.9,98,2,6379,0)="""RTN"",""PSBPRN"",85,0)"
^XMB(3.9,98,2,6380,0)=" ..S PSBX=PSBX_U_$$GET1^DIQ(53.79,PSBIENS,.27)"
^XMB(3.9,98,2,6381,0)="""RTN"",""PSBPRN"",86,0)"
^XMB(3.9,98,2,6382,0)=" ..S Y=$O(^TMP(""PSB"",$J,""""),-1)+1"
^XMB(3.9,98,2,6383,0)="""RTN"",""PSBPRN"",87,0)"
^XMB(3.9,98,2,6384,0)=" ..S ^TMP(""PSB"",$J,Y)=PSBX"
^XMB(3.9,98,2,6385,0)="""RTN"",""PSBPRN"",88,0)"
^XMB(3.9,98,2,6386,0)=" ..;Special instructions"
^XMB(3.9,98,2,6387,0)="""RTN"",""PSBPRN"",89,0)"
^XMB(3.9,98,2,6388,0)=" ..S Y=Y+1,^TMP(""PSB"",$J,Y)=PSBOTXT"
^XMB(3.9,98,2,6389,0)="""RTN"",""PSBPRN"",90,0)"
^XMB(3.9,98,2,6390,0)=" ..F PSBZ=.5,.6,.7 F PSBY=0:0 S PSBY=$O(^PSB(53.79,PSBIEN,PSBZ,PSBY)) Q:'PSBY  D"
^XMB(3.9,98,2,6391,0)="""RTN"",""PSBPRN"",91,0)"
^XMB(3.9,98,2,6392,0)=" ...S PSBDD=$S(PSBZ=.5:53.795,PSBZ=.6:53.796,1:53.797)"
^XMB(3.9,98,2,6393,0)="""RTN"",""PSBPRN"",92,0)"
^XMB(3.9,98,2,6394,0)=" ...S PSBSOL=$S(PSBZ=.5:""DD"",PSBZ=.6:""ADD"",1:""SOL"")"
^XMB(3.9,98,2,6395,0)="""RTN"",""PSBPRN"",93,0)"
^XMB(3.9,98,2,6396,0)=" ...Q:'$D(^PSB(53.79,PSBIEN,PSBZ,PSBY))"
^XMB(3.9,98,2,6397,0)="""RTN"",""PSBPRN"",94,0)"
^XMB(3.9,98,2,6398,0)=" ...S PSBUNIT=$$GET1^DIQ(PSBDD,PSBY_"",""_PSBIEN_"","",.03)"
^XMB(3.9,98,2,6399,0)="""RTN"",""PSBPRN"",95,0)"
^XMB(3.9,98,2,6400,0)=" ...S PSBUNFR=$$GET1^DIQ(PSBDD,PSBY_"",""_PSBIEN_"","",.04)"
^XMB(3.9,98,2,6401,0)="""RTN"",""PSBPRN"",96,0)"
^XMB(3.9,98,2,6402,0)=" ...S Y=Y+1"
^XMB(3.9,98,2,6403,0)="""RTN"",""PSBPRN"",97,0)"
^XMB(3.9,98,2,6404,0)=" ...S ^TMP(""PSB"",$J,Y)=PSBSOL_U_$$GET1^DIQ(PSBDD,PSBY_"",""_PSBIEN_"","",.01)_U_PSBUNIT_U_PSBUNFR"
^XMB(3.9,98,2,6405,0)="""RTN"",""PSBPRN"",98,0)"
^XMB(3.9,98,2,6406,0)=" ..S Y=Y+1,^TMP(""PSB"",$J,Y)=""END"""
^XMB(3.9,98,2,6407,0)="""RTN"",""PSBPRN"",99,0)"
^XMB(3.9,98,2,6408,0)=" S ^TMP(""PSB"",$J,0)=+$O(^TMP(""PSB"",$J,""""),-1)"
^XMB(3.9,98,2,6409,0)="""RTN"",""PSBPRN"",100,0)"
^XMB(3.9,98,2,6410,0)=" S RESULTS=$NAME(^TMP(""PSB"",$J))"
^XMB(3.9,98,2,6411,0)="""RTN"",""PSBPRN"",101,0)"
^XMB(3.9,98,2,6412,0)=" K PSBTRDT,PSBHOUR,PSBPRNDT"
^XMB(3.9,98,2,6413,0)="""RTN"",""PSBPRN"",102,0)"
^XMB(3.9,98,2,6414,0)=" D CLEAN^PSBVT"
^XMB(3.9,98,2,6415,0)="""RTN"",""PSBPRN"",103,0)"
^XMB(3.9,98,2,6416,0)=" Q"
^XMB(3.9,98,2,6417,0)="""RTN"",""PSBPRN"",104,0)"
^XMB(3.9,98,2,6418,0)=" ;"
^XMB(3.9,98,2,6419,0)="""RTN"",""PSBPRN"",105,0)"
^XMB(3.9,98,2,6420,0)="DISCHRGD(DFN) ; Patient Discharged OR Deceased?"
^XMB(3.9,98,2,6421,0)="""RTN"",""PSBPRN"",106,0)"
^XMB(3.9,98,2,6422,0)=" ;"
^XMB(3.9,98,2,6423,0)="""RTN"",""PSBPRN"",107,0)"
^XMB(3.9,98,2,6424,0)=" S DISCHRGD=0"
^XMB(3.9,98,2,6425,0)="""RTN"",""PSBPRN"",108,0)"
^XMB(3.9,98,2,6426,0)=" ;"
^XMB(3.9,98,2,6427,0)="""RTN"",""PSBPRN"",109,0)"
^XMB(3.9,98,2,6428,0)=" D DEM^VADPT ;check for date of death entry"
^XMB(3.9,98,2,6429,0)="""RTN"",""PSBPRN"",110,0)"
^XMB(3.9,98,2,6430,0)=" I VADM(6)]"""" S DISCHRGD=1,^TMP(""PSB"",$J,0)=0 K VADM"
^XMB(3.9,98,2,6431,0)="""RTN"",""PSBPRN"",111,0)"
^XMB(3.9,98,2,6432,0)=" ;"
^XMB(3.9,98,2,6433,0)="""RTN"",""PSBPRN"",112,0)"
^XMB(3.9,98,2,6434,0)=" I DISCHRGD=0 D  ;check for discharge if they're not dead"
^XMB(3.9,98,2,6435,0)="""RTN"",""PSBPRN"",113,0)"
^XMB(3.9,98,2,6436,0)=" .D INP^VADPT"
^XMB(3.9,98,2,6437,0)="""RTN"",""PSBPRN"",114,0)"
^XMB(3.9,98,2,6438,0)=" .I VAIN(1)']"""" S DISCHRGD=1,^TMP(""PSB"",$J,0)=0 K VAIN"
^XMB(3.9,98,2,6439,0)="""RTN"",""PSBPRN"",115,0)"
^XMB(3.9,98,2,6440,0)=" ;"
^XMB(3.9,98,2,6441,0)="""RTN"",""PSBPRN"",116,0)"
^XMB(3.9,98,2,6442,0)=" I DISCHRGD D  ;setup results and clean up"
^XMB(3.9,98,2,6443,0)="""RTN"",""PSBPRN"",117,0)"
^XMB(3.9,98,2,6444,0)=" .S RESULTS=$NAME(^TMP(""PSB"",$J))"
^XMB(3.9,98,2,6445,0)="""RTN"",""PSBPRN"",118,0)"
^XMB(3.9,98,2,6446,0)=" .K PSBTRDT,PSBHOUR,PSBPRNDT"
^XMB(3.9,98,2,6447,0)="""RTN"",""PSBPRN"",119,0)"
^XMB(3.9,98,2,6448,0)=" .D CLEAN^PSBVT"
^XMB(3.9,98,2,6449,0)="""RTN"",""PSBPRN"",120,0)"
^XMB(3.9,98,2,6450,0)=" ;"
^XMB(3.9,98,2,6451,0)="""RTN"",""PSBPRN"",121,0)"
^XMB(3.9,98,2,6452,0)=" Q DISCHRGD"
^XMB(3.9,98,2,6453,0)="""RTN"",""PSBPRN"",122,0)"
^XMB(3.9,98,2,6454,0)=" ;"
^XMB(3.9,98,2,6455,0)="""RTN"",""PSBRPC"")"
^XMB(3.9,98,2,6456,0)="0^1^B92329356^B85069025"
^XMB(3.9,98,2,6457,0)="""RTN"",""PSBRPC"",1,0)"
^XMB(3.9,98,2,6458,0)="PSBRPC ;BIRMINGHAM/EFC-BCMA RPC BROKER CALLS ;Mar 2004"
^XMB(3.9,98,2,6459,0)="""RTN"",""PSBRPC"",2,0)"
^XMB(3.9,98,2,6460,0)=" ;;3.0;BAR CODE MED ADMIN;**6,3,4,13**;Mar 2004"
^XMB(3.9,98,2,6461,0)="""RTN"",""PSBRPC"",3,0)"
^XMB(3.9,98,2,6462,0)=" ;"
^XMB(3.9,98,2,6463,0)="""RTN"",""PSBRPC"",4,0)"
^XMB(3.9,98,2,6464,0)=" ; Reference/IA"
^XMB(3.9,98,2,6465,0)="""RTN"",""PSBRPC"",5,0)"
^XMB(3.9,98,2,6466,0)=" ; EN1^GMRADPT/10099"
^XMB(3.9,98,2,6467,0)="""RTN"",""PSBRPC"",6,0)"
^XMB(3.9,98,2,6468,0)=" ; EN6^GMRVUTL/1120"
^XMB(3.9,98,2,6469,0)="""RTN"",""PSBRPC"",7,0)"
^XMB(3.9,98,2,6470,0)=" ; DEM^VADPT/10061"
^XMB(3.9,98,2,6471,0)="""RTN"",""PSBRPC"",8,0)"
^XMB(3.9,98,2,6472,0)=" ; IN5^VADPT/10061"
^XMB(3.9,98,2,6473,0)="""RTN"",""PSBRPC"",9,0)"
^XMB(3.9,98,2,6474,0)=" ; File 200/10060"
^XMB(3.9,98,2,6475,0)="""RTN"",""PSBRPC"",10,0)"
^XMB(3.9,98,2,6476,0)=" ; File 211.4/1409"
^XMB(3.9,98,2,6477,0)="""RTN"",""PSBRPC"",11,0)"
^XMB(3.9,98,2,6478,0)=" ; CHECKAV^XUSRB/2882"
^XMB(3.9,98,2,6479,0)="""RTN"",""PSBRPC"",12,0)"
^XMB(3.9,98,2,6480,0)=" ; GUIMTD^DPTLK6/3023"
^XMB(3.9,98,2,6481,0)="""RTN"",""PSBRPC"",13,0)"
^XMB(3.9,98,2,6482,0)=" ; ^ORD(101.24/3429"
^XMB(3.9,98,2,6483,0)="""RTN"",""PSBRPC"",14,0)"
^XMB(3.9,98,2,6484,0)=" ; File 2/10035"
^XMB(3.9,98,2,6485,0)="""RTN"",""PSBRPC"",15,0)"
^XMB(3.9,98,2,6486,0)=" ; File 4/10090"
^XMB(3.9,98,2,6487,0)="""RTN"",""PSBRPC"",16,0)"
^XMB(3.9,98,2,6488,0)=" ; EN1^GMRVUT0/1446"
^XMB(3.9,98,2,6489,0)="""RTN"",""PSBRPC"",17,0)"
^XMB(3.9,98,2,6490,0)=" ; HASH^XUSHSHP/10045"
^XMB(3.9,98,2,6491,0)="""RTN"",""PSBRPC"",18,0)"
^XMB(3.9,98,2,6492,0)=" ; $$DECRYP^XUSRB1/2241"
^XMB(3.9,98,2,6493,0)="""RTN"",""PSBRPC"",19,0)"
^XMB(3.9,98,2,6494,0)=" ; ^DIC(42/1377"
^XMB(3.9,98,2,6495,0)="""RTN"",""PSBRPC"",20,0)"
^XMB(3.9,98,2,6496,0)=" ; ^DIC(42/2440"
^XMB(3.9,98,2,6497,0)="""RTN"",""PSBRPC"",21,0)"
^XMB(3.9,98,2,6498,0)=" ; $$GETACT^DGPFAPI/3860"
^XMB(3.9,98,2,6499,0)="""RTN"",""PSBRPC"",22,0)"
^XMB(3.9,98,2,6500,0)=" ; $$GETICN^MPIF001/2701"
^XMB(3.9,98,2,6501,0)="""RTN"",""PSBRPC"",23,0)"
^XMB(3.9,98,2,6502,0)=" ; $$GETDFN^MPIF001/2701"
^XMB(3.9,98,2,6503,0)="""RTN"",""PSBRPC"",24,0)"
^XMB(3.9,98,2,6504,0)=" ; $$PROD^XUPROD/4440"
^XMB(3.9,98,2,6505,0)="""RTN"",""PSBRPC"",25,0)"
^XMB(3.9,98,2,6506,0)=" ; $$GET^XPAR/2263"
^XMB(3.9,98,2,6507,0)="""RTN"",""PSBRPC"",26,0)"
^XMB(3.9,98,2,6508,0)=" ; EN^XPAR/2263"
^XMB(3.9,98,2,6509,0)="""RTN"",""PSBRPC"",27,0)"
^XMB(3.9,98,2,6510,0)=" ; $$BASE^XLFUTL/2622"
^XMB(3.9,98,2,6511,0)="""RTN"",""PSBRPC"",28,0)"
^XMB(3.9,98,2,6512,0)=" ;"
^XMB(3.9,98,2,6513,0)="""RTN"",""PSBRPC"",29,0)"
^XMB(3.9,98,2,6514,0)="FMDATE(RESULTS,X) ;"
^XMB(3.9,98,2,6515,0)="""RTN"",""PSBRPC"",30,0)"
^XMB(3.9,98,2,6516,0)=" ;"
^XMB(3.9,98,2,6517,0)="""RTN"",""PSBRPC"",31,0)"
^XMB(3.9,98,2,6518,0)=" ; RPC: PSB FMDATE"
^XMB(3.9,98,2,6519,0)="""RTN"",""PSBRPC"",32,0)"
^XMB(3.9,98,2,6520,0)=" ;"
^XMB(3.9,98,2,6521,0)="""RTN"",""PSBRPC"",33,0)"
^XMB(3.9,98,2,6522,0)=" ; Descr: Returns FM Date/Time from Clnt DateToStr()"
^XMB(3.9,98,2,6523,0)="""RTN"",""PSBRPC"",34,0)"
^XMB(3.9,98,2,6524,0)=" ;"
^XMB(3.9,98,2,6525,0)="""RTN"",""PSBRPC"",35,0)"
^XMB(3.9,98,2,6526,0)=" I $P(X,""@"",2)=""0000"" S $P(X,""@"",2)=""0001"""
^XMB(3.9,98,2,6527,0)="""RTN"",""PSBRPC"",36,0)"
^XMB(3.9,98,2,6528,0)=" ;if no time for dates like T-1, append the current time"
^XMB(3.9,98,2,6529,0)="""RTN"",""PSBRPC"",37,0)"
^XMB(3.9,98,2,6530,0)=" I $P(X,""@"",2)="""",X'?1""N"" D  S $P(X,""@"",2)=$P(Y,""@"",2)"
^XMB(3.9,98,2,6531,0)="""RTN"",""PSBRPC"",38,0)"
^XMB(3.9,98,2,6532,0)=" . N X"
^XMB(3.9,98,2,6533,0)="""RTN"",""PSBRPC"",39,0)"
^XMB(3.9,98,2,6534,0)=" . S X=""N"",%DT=""T"" D ^%DT,DD^%DT"
^XMB(3.9,98,2,6535,0)="""RTN"",""PSBRPC"",40,0)"
^XMB(3.9,98,2,6536,0)=" S %DT=""T"" D ^%DT"
^XMB(3.9,98,2,6537,0)="""RTN"",""PSBRPC"",41,0)"
^XMB(3.9,98,2,6538,0)=" I +Y<1 S RESULTS(0)=""-1^Invalid Date/Time"" Q"
^XMB(3.9,98,2,6539,0)="""RTN"",""PSBRPC"",42,0)"
^XMB(3.9,98,2,6540,0)=" S RESULTS(0)=Y D D^DIQ"
^XMB(3.9,98,2,6541,0)="""RTN"",""PSBRPC"",43,0)"
^XMB(3.9,98,2,6542,0)=" S RESULTS(0)=RESULTS(0)_U_Y"
^XMB(3.9,98,2,6543,0)="""RTN"",""PSBRPC"",44,0)"
^XMB(3.9,98,2,6544,0)=" Q"
^XMB(3.9,98,2,6545,0)="""RTN"",""PSBRPC"",45,0)"
^XMB(3.9,98,2,6546,0)=" ;"
^XMB(3.9,98,2,6547,0)="""RTN"",""PSBRPC"",46,0)"
^XMB(3.9,98,2,6548,0)="USRLOAD(RESULTS,DUMMY) ;"
^XMB(3.9,98,2,6549,0)="""RTN"",""PSBRPC"",47,0)"
^XMB(3.9,98,2,6550,0)=" ;"
^XMB(3.9,98,2,6551,0)="""RTN"",""PSBRPC"",48,0)"
^XMB(3.9,98,2,6552,0)=" ; RPC: PSB USERLOAD"
^XMB(3.9,98,2,6553,0)="""RTN"",""PSBRPC"",49,0)"
^XMB(3.9,98,2,6554,0)=" ; Descr: Load wkst user"
^XMB(3.9,98,2,6555,0)="""RTN"",""PSBRPC"",50,0)"
^XMB(3.9,98,2,6556,0)=" S RESULTS(0)=DUZ ;UsrIEN"
^XMB(3.9,98,2,6557,0)="""RTN"",""PSBRPC"",51,0)"
^XMB(3.9,98,2,6558,0)=" S RESULTS(1)=$$GET1^DIQ(200,DUZ_"","",.01) ; Usr Nm"
^XMB(3.9,98,2,6559,0)="""RTN"",""PSBRPC"",52,0)"
^XMB(3.9,98,2,6560,0)=" S RESULTS(2)=$S($D(^XUSEC(""PSB STUDENT"",DUZ)):1,1:0) ; Studnt?"
^XMB(3.9,98,2,6561,0)="""RTN"",""PSBRPC"",53,0)"
^XMB(3.9,98,2,6562,0)=" S RESULTS(3)=$S($D(^XUSEC(""PSB MANAGER"",DUZ)):1,1:0) ; Mgr?"
^XMB(3.9,98,2,6563,0)="""RTN"",""PSBRPC"",54,0)"
^XMB(3.9,98,2,6564,0)=" S RESULTS(4)=$S($D(^XUSEC(""PSB CPRS MED BUTTON"",DUZ)):1,1:0)"
^XMB(3.9,98,2,6565,0)="""RTN"",""PSBRPC"",55,0)"
^XMB(3.9,98,2,6566,0)=" S RESULTS(5)=$$GET^XPAR(""USR"",""PSB WINDOW"")"
^XMB(3.9,98,2,6567,0)="""RTN"",""PSBRPC"",56,0)"
^XMB(3.9,98,2,6568,0)=" ;VDL Strng"
^XMB(3.9,98,2,6569,0)="""RTN"",""PSBRPC"",57,0)"
^XMB(3.9,98,2,6570,0)=" S X=$S(+$$GET^XPAR(""ALL"",""PSB VDL INCL CONT""):""T"",1:""F"")"
^XMB(3.9,98,2,6571,0)="""RTN"",""PSBRPC"",58,0)"
^XMB(3.9,98,2,6572,0)=" S X=X_""/""_$S(+$$GET^XPAR(""ALL"",""PSB VDL INCL PRN""):""T"",1:""F"")"
^XMB(3.9,98,2,6573,0)="""RTN"",""PSBRPC"",59,0)"
^XMB(3.9,98,2,6574,0)=" S X=X_""/""_$S(+$$GET^XPAR(""ALL"",""PSB VDL INCL ONE-TIME""):""T"",1:""F"")"
^XMB(3.9,98,2,6575,0)="""RTN"",""PSBRPC"",60,0)"
^XMB(3.9,98,2,6576,0)=" S X=X_""/""_$S(+$$GET^XPAR(""ALL"",""PSB VDL INCL ON-CALL""):""T"",1:""F"")"
^XMB(3.9,98,2,6577,0)="""RTN"",""PSBRPC"",61,0)"
^XMB(3.9,98,2,6578,0)=" S X=X_""/""_+$$GET^XPAR(""ALL"",""PSB VDL SORT COLUMN"")"
^XMB(3.9,98,2,6579,0)="""RTN"",""PSBRPC"",62,0)"
^XMB(3.9,98,2,6580,0)=" S X=X_""/""_+$$GET^XPAR(""ALL"",""PSB VDL PB SORT COLUMN"")"
^XMB(3.9,98,2,6581,0)="""RTN"",""PSBRPC"",63,0)"
^XMB(3.9,98,2,6582,0)=" S X=X_""/""_+$$GET^XPAR(""ALL"",""PSB VDL IV SORT COLUMN"")"
^XMB(3.9,98,2,6583,0)="""RTN"",""PSBRPC"",64,0)"
^XMB(3.9,98,2,6584,0)=" ;"
^XMB(3.9,98,2,6585,0)="""RTN"",""PSBRPC"",65,0)"
^XMB(3.9,98,2,6586,0)=" S RESULTS(6)=X ;VDL Setp"
^XMB(3.9,98,2,6587,0)="""RTN"",""PSBRPC"",66,0)"
^XMB(3.9,98,2,6588,0)=" S RESULTS(7)=+$G(DUZ(2))"
^XMB(3.9,98,2,6589,0)="""RTN"",""PSBRPC"",67,0)"
^XMB(3.9,98,2,6590,0)=" I RESULTS(7) S RESULTS(8)=$$GET1^DIQ(4,RESULTS(7)_"","",.01)"
^XMB(3.9,98,2,6591,0)="""RTN"",""PSBRPC"",68,0)"
^XMB(3.9,98,2,6592,0)=" E  S RESULTS(8)=""Undefined Division"""
^XMB(3.9,98,2,6593,0)="""RTN"",""PSBRPC"",69,0)"
^XMB(3.9,98,2,6594,0)=" S RESULTS(7)=RESULTS(7)_U_$P($$SITE^VASITE,U,3)"
^XMB(3.9,98,2,6595,0)="""RTN"",""PSBRPC"",70,0)"
^XMB(3.9,98,2,6596,0)=" I $T(PROD^XUPROD)]"""" S RESULTS(7)=RESULTS(7)_U_$$PROD^XUPROD(1)"
^XMB(3.9,98,2,6597,0)="""RTN"",""PSBRPC"",71,0)"
^XMB(3.9,98,2,6598,0)=" S RESULTS(9)=+$$GET^XPAR(""DIV"",""PSB ADMIN ESIG"")"
^XMB(3.9,98,2,6599,0)="""RTN"",""PSBRPC"",72,0)"
^XMB(3.9,98,2,6600,0)=" S RESULTS(10)=+$$GET^XPAR(""DIV"",""PSB ONLINE"")"
^XMB(3.9,98,2,6601,0)="""RTN"",""PSBRPC"",73,0)"
^XMB(3.9,98,2,6602,0)=" S RESULTS(11)=$G(DTIME,300)"
^XMB(3.9,98,2,6603,0)="""RTN"",""PSBRPC"",74,0)"
^XMB(3.9,98,2,6604,0)=" S RESULTS(12)=$$GET^XPAR(""USR"",""PSB UNIT DOSE COLUMN WIDTHS"")"
^XMB(3.9,98,2,6605,0)="""RTN"",""PSBRPC"",75,0)"
^XMB(3.9,98,2,6606,0)=" S RESULTS(13)=$J_""^""_$$BASE^XLFUTL($J,10,16)"
^XMB(3.9,98,2,6607,0)="""RTN"",""PSBRPC"",76,0)"
^XMB(3.9,98,2,6608,0)=" S RESULTS(14)=$$GET^XPAR(""USR"",""PSB IVPB COLUMN WIDTHS"")"
^XMB(3.9,98,2,6609,0)="""RTN"",""PSBRPC"",77,0)"
^XMB(3.9,98,2,6610,0)=" S RESULTS(15)=$$GET^XPAR(""USR"",""PSB IV COLUMN WIDTHS"")"
^XMB(3.9,98,2,6611,0)="""RTN"",""PSBRPC"",78,0)"
^XMB(3.9,98,2,6612,0)=" S RESULTS(16)=$$GET^XPAR(""USR"",""PSB PRINTER USER DEFAULT"")"
^XMB(3.9,98,2,6613,0)="""RTN"",""PSBRPC"",79,0)"
^XMB(3.9,98,2,6614,0)=" S RESULTS(17)=$$GET^XPAR(""USR"",""PSB GUI DEFAULT PRINTER"")"
^XMB(3.9,98,2,6615,0)="""RTN"",""PSBRPC"",80,0)"
^XMB(3.9,98,2,6616,0)=" S RESULTS(18)=$S($D(^XUSEC(""PSB READ ONLY"",DUZ)):1,1:0)"
^XMB(3.9,98,2,6617,0)="""RTN"",""PSBRPC"",81,0)"
^XMB(3.9,98,2,6618,0)=" S RESULTS(19)=$$GET^XPAR(""USR"",""PSB COVERSHEET VIEWS COL SORT"")"
^XMB(3.9,98,2,6619,0)="""RTN"",""PSBRPC"",82,0)"
^XMB(3.9,98,2,6620,0)=" S RESULTS(20)=$$GET^XPAR(""USR"",""PSB COVERSHEET V1 COL WIDTHS"")"
^XMB(3.9,98,2,6621,0)="""RTN"",""PSBRPC"",83,0)"
^XMB(3.9,98,2,6622,0)=" S RESULTS(21)=$$GET^XPAR(""USR"",""PSB COVERSHEET V2 COL WIDTHS"")"
^XMB(3.9,98,2,6623,0)="""RTN"",""PSBRPC"",84,0)"
^XMB(3.9,98,2,6624,0)=" S RESULTS(22)=$$GET^XPAR(""USR"",""PSB COVERSHEET V3 COL WIDTHS"")"
^XMB(3.9,98,2,6625,0)="""RTN"",""PSBRPC"",85,0)"
^XMB(3.9,98,2,6626,0)=" S RESULTS(23)=$$GET^XPAR(""USR"",""PSB COVERSHEET V4 COL WIDTHS"")"
^XMB(3.9,98,2,6627,0)="""RTN"",""PSBRPC"",86,0)"
^XMB(3.9,98,2,6628,0)=" Q"
^XMB(3.9,98,2,6629,0)="""RTN"",""PSBRPC"",87,0)"
^XMB(3.9,98,2,6630,0)=" ;"
^XMB(3.9,98,2,6631,0)="""RTN"",""PSBRPC"",88,0)"
^XMB(3.9,98,2,6632,0)="USRSAVE(RESULTS,PSBWIN,PSBVDL,PSBUDCW,PSBPBCW,PSBIVCW,PSBDEV,PSBCSRT,PSBCV1,PSBCV2,PSBCV3,PSBCV4) ;"
^XMB(3.9,98,2,6633,0)="""RTN"",""PSBRPC"",89,0)"
^XMB(3.9,98,2,6634,0)=" ;"
^XMB(3.9,98,2,6635,0)="""RTN"",""PSBRPC"",90,0)"
^XMB(3.9,98,2,6636,0)=" ; RPC: PSB USERSAVE"
^XMB(3.9,98,2,6637,0)="""RTN"",""PSBRPC"",91,0)"
^XMB(3.9,98,2,6638,0)=" ;"
^XMB(3.9,98,2,6639,0)="""RTN"",""PSBRPC"",92,0)"
^XMB(3.9,98,2,6640,0)=" ; Descr: Saves user settings."
^XMB(3.9,98,2,6641,0)="""RTN"",""PSBRPC"",93,0)"
^XMB(3.9,98,2,6642,0)=" ;"
^XMB(3.9,98,2,6643,0)="""RTN"",""PSBRPC"",94,0)"
^XMB(3.9,98,2,6644,0)=" S RESULTS(0)=""-1^FAILED - Parameters Save"""
^XMB(3.9,98,2,6645,0)="""RTN"",""PSBRPC"",95,0)"
^XMB(3.9,98,2,6646,0)=" S PSBWIN=$G(PSBWIN),PSBVDL=$G(PSBVDL),PSBUDCW=$G(PSBUDCW)"
^XMB(3.9,98,2,6647,0)="""RTN"",""PSBRPC"",96,0)"
^XMB(3.9,98,2,6648,0)=" S PSBPBCW=$G(PSBPBCW),PSBIVCW=$G(PSBIVCW),PSBDEV=$G(PSBDEV)"
^XMB(3.9,98,2,6649,0)="""RTN"",""PSBRPC"",97,0)"
^XMB(3.9,98,2,6650,0)=" S PSBCSRT=$G(PSBCSRT),PSBCV1=$G(PSBCV1),PSBCV2=$G(PSBCV2),PSBCV3=$G(PSBCV3),PSBCV4=$G(PSBCV4)"
^XMB(3.9,98,2,6651,0)="""RTN"",""PSBRPC"",98,0)"
^XMB(3.9,98,2,6652,0)=" ;"
^XMB(3.9,98,2,6653,0)="""RTN"",""PSBRPC"",99,0)"
^XMB(3.9,98,2,6654,0)=" D EN^XPAR(""USR"",""PSB WINDOW"",1,PSBWIN)"
^XMB(3.9,98,2,6655,0)="""RTN"",""PSBRPC"",100,0)"
^XMB(3.9,98,2,6656,0)=" D EN^XPAR(""USR"",""PSB VDL INCL CONT"",1,$P(PSBVDL,""/"",1)[""T"")"
^XMB(3.9,98,2,6657,0)="""RTN"",""PSBRPC"",101,0)"
^XMB(3.9,98,2,6658,0)=" D EN^XPAR(""USR"",""PSB VDL INCL PRN"",1,$P(PSBVDL,""/"",2)[""T"")"
^XMB(3.9,98,2,6659,0)="""RTN"",""PSBRPC"",102,0)"
^XMB(3.9,98,2,6660,0)=" D EN^XPAR(""USR"",""PSB VDL INCL ONE-TIME"",1,$P(PSBVDL,""/"",3)[""T"")"
^XMB(3.9,98,2,6661,0)="""RTN"",""PSBRPC"",103,0)"
^XMB(3.9,98,2,6662,0)=" D EN^XPAR(""USR"",""PSB VDL INCL ON-CALL"",1,$P(PSBVDL,""/"",4)[""T"")"
^XMB(3.9,98,2,6663,0)="""RTN"",""PSBRPC"",104,0)"
^XMB(3.9,98,2,6664,0)=" D EN^XPAR(""USR"",""PSB VDL SORT COLUMN"",1,+$P(PSBVDL,""/"",5))"
^XMB(3.9,98,2,6665,0)="""RTN"",""PSBRPC"",105,0)"
^XMB(3.9,98,2,6666,0)=" D EN^XPAR(""USR"",""PSB VDL PB SORT COLUMN"",1,+$P(PSBVDL,""/"",6))"
^XMB(3.9,98,2,6667,0)="""RTN"",""PSBRPC"",106,0)"
^XMB(3.9,98,2,6668,0)=" D EN^XPAR(""USR"",""PSB VDL IV SORT COLUMN"",1,+$P(PSBVDL,""/"",7))"
^XMB(3.9,98,2,6669,0)="""RTN"",""PSBRPC"",107,0)"
^XMB(3.9,98,2,6670,0)=" D EN^XPAR(""USR"",""PSB UNIT DOSE COLUMN WIDTHS"",1,PSBUDCW)"
^XMB(3.9,98,2,6671,0)="""RTN"",""PSBRPC"",108,0)"
^XMB(3.9,98,2,6672,0)=" D EN^XPAR(""USR"",""PSB IVPB COLUMN WIDTHS"",1,PSBPBCW)"
^XMB(3.9,98,2,6673,0)="""RTN"",""PSBRPC"",109,0)"
^XMB(3.9,98,2,6674,0)=" D EN^XPAR(""USR"",""PSB IV COLUMN WIDTHS"",1,PSBIVCW)"
^XMB(3.9,98,2,6675,0)="""RTN"",""PSBRPC"",110,0)"
^XMB(3.9,98,2,6676,0)=" D EN^XPAR(""USR"",""PSB GUI DEFAULT PRINTER"",1,PSBDEV)"
^XMB(3.9,98,2,6677,0)="""RTN"",""PSBRPC"",111,0)"
^XMB(3.9,98,2,6678,0)=" D EN^XPAR(""USR"",""PSB COVERSHEET VIEWS COL SORT"",1,PSBCSRT)"
^XMB(3.9,98,2,6679,0)="""RTN"",""PSBRPC"",112,0)"
^XMB(3.9,98,2,6680,0)=" D EN^XPAR(""USR"",""PSB COVERSHEET V1 COL WIDTHS"",1,PSBCV1)"
^XMB(3.9,98,2,6681,0)="""RTN"",""PSBRPC"",113,0)"
^XMB(3.9,98,2,6682,0)=" D EN^XPAR(""USR"",""PSB COVERSHEET V2 COL WIDTHS"",1,PSBCV2)"
^XMB(3.9,98,2,6683,0)="""RTN"",""PSBRPC"",114,0)"
^XMB(3.9,98,2,6684,0)=" D EN^XPAR(""USR"",""PSB COVERSHEET V3 COL WIDTHS"",1,PSBCV3)"
^XMB(3.9,98,2,6685,0)="""RTN"",""PSBRPC"",115,0)"
^XMB(3.9,98,2,6686,0)=" D EN^XPAR(""USR"",""PSB COVERSHEET V4 COL WIDTHS"",1,PSBCV4)"
^XMB(3.9,98,2,6687,0)="""RTN"",""PSBRPC"",116,0)"
^XMB(3.9,98,2,6688,0)=" S RESULTS(0)=""1^Parameters Saved"""
^XMB(3.9,98,2,6689,0)="""RTN"",""PSBRPC"",117,0)"
^XMB(3.9,98,2,6690,0)=" Q"
^XMB(3.9,98,2,6691,0)="""RTN"",""PSBRPC"",118,0)"
^XMB(3.9,98,2,6692,0)=" ;"
^XMB(3.9,98,2,6693,0)="""RTN"",""PSBRPC"",119,0)"
^XMB(3.9,98,2,6694,0)="INST(RESULTS,PSBACC,PSBVER) ;"
^XMB(3.9,98,2,6695,0)="""RTN"",""PSBRPC"",120,0)"
^XMB(3.9,98,2,6696,0)=" ;"
^XMB(3.9,98,2,6697,0)="""RTN"",""PSBRPC"",121,0)"
^XMB(3.9,98,2,6698,0)=" ; RPC: PSB INSTRUCTOR"
^XMB(3.9,98,2,6699,0)="""RTN"",""PSBRPC"",122,0)"
^XMB(3.9,98,2,6700,0)=" ; Descr:"
^XMB(3.9,98,2,6701,0)="""RTN"",""PSBRPC"",123,0)"
^XMB(3.9,98,2,6702,0)=" ; Used by frmInstructor to validate an instructor(s) at"
^XMB(3.9,98,2,6703,0)="""RTN"",""PSBRPC"",124,0)"
^XMB(3.9,98,2,6704,0)=" ; the client via encrypted A/V Code."
^XMB(3.9,98,2,6705,0)="""RTN"",""PSBRPC"",125,0)"
^XMB(3.9,98,2,6706,0)=" ;"
^XMB(3.9,98,2,6707,0)="""RTN"",""PSBRPC"",126,0)"
^XMB(3.9,98,2,6708,0)=" S PSBACC=$$DECRYP^XUSRB1(PSBACC)"
^XMB(3.9,98,2,6709,0)="""RTN"",""PSBRPC"",127,0)"
^XMB(3.9,98,2,6710,0)=" S PSBVER=$$DECRYP^XUSRB1(PSBVER)"
^XMB(3.9,98,2,6711,0)="""RTN"",""PSBRPC"",128,0)"
^XMB(3.9,98,2,6712,0)=" S PSBINST=$$CHECKAV^XUSRB(PSBACC_"";""_PSBVER)"
^XMB(3.9,98,2,6713,0)="""RTN"",""PSBRPC"",129,0)"
^XMB(3.9,98,2,6714,0)=" I PSBINST<1 S RESULTS(0)=""-1^Invalid Instructor Sign-On"" K PSBINST Q"
^XMB(3.9,98,2,6715,0)="""RTN"",""PSBRPC"",130,0)"
^XMB(3.9,98,2,6716,0)=" I '$D(^XUSEC(""PSB INSTRUCTOR"",PSBINST)) S RESULTS(0)=""-1^Instructor doesn't have authority"" K PSBINST Q"
^XMB(3.9,98,2,6717,0)="""RTN"",""PSBRPC"",131,0)"
^XMB(3.9,98,2,6718,0)=" S PSBINST(0)=$$GET1^DIQ(200,PSBINST_"","",.01)"
^XMB(3.9,98,2,6719,0)="""RTN"",""PSBRPC"",132,0)"
^XMB(3.9,98,2,6720,0)=" S RESULTS(0)=PSBINST_U_PSBINST(0)"
^XMB(3.9,98,2,6721,0)="""RTN"",""PSBRPC"",133,0)"
^XMB(3.9,98,2,6722,0)=" Q"
^XMB(3.9,98,2,6723,0)="""RTN"",""PSBRPC"",134,0)"
^XMB(3.9,98,2,6724,0)=" ;"
^XMB(3.9,98,2,6725,0)="""RTN"",""PSBRPC"",135,0)"
^XMB(3.9,98,2,6726,0)="ESIG(RESULTS,PSBESIG) ;"
^XMB(3.9,98,2,6727,0)="""RTN"",""PSBRPC"",136,0)"
^XMB(3.9,98,2,6728,0)=" ;"
^XMB(3.9,98,2,6729,0)="""RTN"",""PSBRPC"",137,0)"
^XMB(3.9,98,2,6730,0)=" ; RPC: PSB VALIDATE ESIG"
^XMB(3.9,98,2,6731,0)="""RTN"",""PSBRPC"",138,0)"
^XMB(3.9,98,2,6732,0)=" ; Descr:"
^XMB(3.9,98,2,6733,0)="""RTN"",""PSBRPC"",139,0)"
^XMB(3.9,98,2,6734,0)=" ; Validate the data in PSBESIG against user (DUZ)"
^XMB(3.9,98,2,6735,0)="""RTN"",""PSBRPC"",140,0)"
^XMB(3.9,98,2,6736,0)=" ;"
^XMB(3.9,98,2,6737,0)="""RTN"",""PSBRPC"",141,0)"
^XMB(3.9,98,2,6738,0)=" S PSBDSIG=$P($G(PSBESIG),U,2) I PSBDSIG'="""" S PSBDSIG=$$DECRYP^XUSRB1(PSBDSIG),PSBESIG=PSBDSIG"
^XMB(3.9,98,2,6739,0)="""RTN"",""PSBRPC"",142,0)"
^XMB(3.9,98,2,6740,0)=" I $G(PSBESIG)="""" S RESULTS(0)=""-1^Must Supply ESig"" Q"
^XMB(3.9,98,2,6741,0)="""RTN"",""PSBRPC"",143,0)"
^XMB(3.9,98,2,6742,0)=" S X=PSBESIG D HASH^XUSHSHP"
^XMB(3.9,98,2,6743,0)="""RTN"",""PSBRPC"",144,0)"
^XMB(3.9,98,2,6744,0)=" I X'=$$GET1^DIQ(200,DUZ_"","",20.4,""I"") S RESULTS(0)=""-1^Invalid ESig"""
^XMB(3.9,98,2,6745,0)="""RTN"",""PSBRPC"",145,0)"
^XMB(3.9,98,2,6746,0)=" E  S RESULTS(0)=""1^ESig Verified"""
^XMB(3.9,98,2,6747,0)="""RTN"",""PSBRPC"",146,0)"
^XMB(3.9,98,2,6748,0)=" Q"
^XMB(3.9,98,2,6749,0)="""RTN"",""PSBRPC"",147,0)"
^XMB(3.9,98,2,6750,0)=" ;"
^XMB(3.9,98,2,6751,0)="""RTN"",""PSBRPC"",148,0)"
^XMB(3.9,98,2,6752,0)=" ;"
^XMB(3.9,98,2,6753,0)="""RTN"",""PSBRPC"",149,0)"
^XMB(3.9,98,2,6754,0)="SCANPT(RESULTS,PSBDATA) ; Lookup Pt by Full SSN"
^XMB(3.9,98,2,6755,0)="""RTN"",""PSBRPC"",150,0)"
^XMB(3.9,98,2,6756,0)=" ;"
^XMB(3.9,98,2,6757,0)="""RTN"",""PSBRPC"",151,0)"
^XMB(3.9,98,2,6758,0)=" ; RPC: PSB SCANPT"
^XMB(3.9,98,2,6759,0)="""RTN"",""PSBRPC"",152,0)"
^XMB(3.9,98,2,6760,0)=" ; Descr:"
^XMB(3.9,98,2,6761,0)="""RTN"",""PSBRPC"",153,0)"
^XMB(3.9,98,2,6762,0)=" ; file 2 lookup either by full SSN"
^XMB(3.9,98,2,6763,0)="""RTN"",""PSBRPC"",154,0)"
^XMB(3.9,98,2,6764,0)=" ; returns -1 on error or patient data"
^XMB(3.9,98,2,6765,0)="""RTN"",""PSBRPC"",155,0)"
^XMB(3.9,98,2,6766,0)=" ;"
^XMB(3.9,98,2,6767,0)="""RTN"",""PSBRPC"",156,0)"
^XMB(3.9,98,2,6768,0)=" ; Check for Interleave 2 of 5 Check Digit on SSN and remove"
^XMB(3.9,98,2,6769,0)="""RTN"",""PSBRPC"",157,0)"
^XMB(3.9,98,2,6770,0)=" N DFN"
^XMB(3.9,98,2,6771,0)="""RTN"",""PSBRPC"",158,0)"
^XMB(3.9,98,2,6772,0)=" I ""SS""[$P($G(PSBDATA),""^"",3)  D  Q:RESULTS(1)<0"
^XMB(3.9,98,2,6773,0)="""RTN"",""PSBRPC"",159,0)"
^XMB(3.9,98,2,6774,0)=" .S:$P(PSBDATA,""^"")?1""0""9N.U PSBDATA=$E(PSBDATA,2,99) N PSBCNT"
^XMB(3.9,98,2,6775,0)="""RTN"",""PSBRPC"",160,0)"
^XMB(3.9,98,2,6776,0)=" .I $P(PSBDATA,U)'?9N.1U S RESULTS(0)=1,RESULTS(1)=""-1^Invalid Patient Lookup"" Q"
^XMB(3.9,98,2,6777,0)="""RTN"",""PSBRPC"",161,0)"
^XMB(3.9,98,2,6778,0)=" .S X=$$FIND1^DIC(2,"""","""",$P(PSBDATA,U),""SSN"")"
^XMB(3.9,98,2,6779,0)="""RTN"",""PSBRPC"",162,0)"
^XMB(3.9,98,2,6780,0)=" .I X<1 S RESULTS(0)=1,RESULTS(1)=""-1^Invalid Patient Lookup"" Q"
^XMB(3.9,98,2,6781,0)="""RTN"",""PSBRPC"",163,0)"
^XMB(3.9,98,2,6782,0)=" .S (DFN,RESULTS(1),PSBDFN)=X"
^XMB(3.9,98,2,6783,0)="""RTN"",""PSBRPC"",164,0)"
^XMB(3.9,98,2,6784,0)=" .S PSBICN=$$GETICN^MPIF001(PSBDFN) I +PSBICN=-1 S PSBICN="""""
^XMB(3.9,98,2,6785,0)="""RTN"",""PSBRPC"",165,0)"
^XMB(3.9,98,2,6786,0)=" I $G(DFN)']"""" D  Q:+PSBDFN'>0"
^XMB(3.9,98,2,6787,0)="""RTN"",""PSBRPC"",166,0)"
^XMB(3.9,98,2,6788,0)=" .; CCOW !"
^XMB(3.9,98,2,6789,0)="""RTN"",""PSBRPC"",167,0)"
^XMB(3.9,98,2,6790,0)=" .I ""DF""[$P($G(PSBDATA),""^"",3) S PSBDFN=$P($G(PSBDATA),""^""),PSBICN=$$GETICN^MPIF001(PSBDFN) I +PSBICN=-1 S PSBICN="""",RESULTS(0)=1,RESULTS(1)=""-1^Cannot find ICN via DFN"""
^XMB(3.9,98,2,6791,0)="""RTN"",""PSBRPC"",168,0)"
^XMB(3.9,98,2,6792,0)=" .I ""IC""[$P($G(PSBDATA),""^"",3) S PSBICN=$P($G(PSBDATA),""^""),PSBDFN=$$GETDFN^MPIF001(PSBICN) I +PSBDFN=-1 S PSBDFN="""",RESULTS(0)=1,RESULTS(1)=""-1^Cannot find DFN via ICN"" Q"
^XMB(3.9,98,2,6793,0)="""RTN"",""PSBRPC"",169,0)"
^XMB(3.9,98,2,6794,0)=" .S (DFN,RESULTS(1))=PSBDFN"
^XMB(3.9,98,2,6795,0)="""RTN"",""PSBRPC"",170,0)"
^XMB(3.9,98,2,6796,0)=" .;"
^XMB(3.9,98,2,6797,0)="""RTN"",""PSBRPC"",171,0)"
^XMB(3.9,98,2,6798,0)=" K VADM,VAIN"
^XMB(3.9,98,2,6799,0)="""RTN"",""PSBRPC"",172,0)"
^XMB(3.9,98,2,6800,0)=" D DEM^VADPT,IN5^VADPT"
^XMB(3.9,98,2,6801,0)="""RTN"",""PSBRPC"",173,0)"
^XMB(3.9,98,2,6802,0)=" I ('$P(PSBDATA,U,2))&('VAIP(13)&'VADM(6)) S RESULTS(0)=1,RESULTS(1)=""-1^Patient has been DISCHARGED"" I ($P($G(PSBDATA),U,3)'[""IC"")&($P($G(PSBDATA),U,3)'[""DF"") K VAIP,VADM Q"
^XMB(3.9,98,2,6803,0)="""RTN"",""PSBRPC"",174,0)"
^XMB(3.9,98,2,6804,0)=" I ('$P(PSBDATA,U,2))&(VADM(6)'="""") S RESULTS(0)=1,RESULTS(1)=""-1^""_""This patient died ""_$TR($P(VADM(6),U,2),""@"","" "") I ($P($G(PSBDATA),U,3)'[""IC"")&($P($G(PSBDATA),U,3)'[""DF"") K VAIP,VADM Q"
^XMB(3.9,98,2,6805,0)="""RTN"",""PSBRPC"",175,0)"
^XMB(3.9,98,2,6806,0)=" S RESULTS(1)=PSBDFN"
^XMB(3.9,98,2,6807,0)="""RTN"",""PSBRPC"",176,0)"
^XMB(3.9,98,2,6808,0)=" F X=1,2,3,4,5 S RESULTS(X+1)=$G(VADM(X))"
^XMB(3.9,98,2,6809,0)="""RTN"",""PSBRPC"",177,0)"
^XMB(3.9,98,2,6810,0)=" F X=3,4,5,6,7,8,9,10,11 S RESULTS(X+4)=$G(VAIP(X))"
^XMB(3.9,98,2,6811,0)="""RTN"",""PSBRPC"",178,0)"
^XMB(3.9,98,2,6812,0)=" S $P(RESULTS(9),U,3)=$$GET1^DIQ(42,$P(RESULTS(9),U)_"","",44,""I"")_""^""_$$GET1^DIQ(42,$P(RESULTS(9),U)_"","",44)"
^XMB(3.9,98,2,6813,0)="""RTN"",""PSBRPC"",179,0)"
^XMB(3.9,98,2,6814,0)=" S GMRVSTR=""HT"" D EN6^GMRVUTL"
^XMB(3.9,98,2,6815,0)="""RTN"",""PSBRPC"",180,0)"
^XMB(3.9,98,2,6816,0)=" S X=+$P(X,U,8) S:X X=X*2.54\1 S PSBHDR(""HEIGHT"")=$S(X:X_""cm"",1:""*"")"
^XMB(3.9,98,2,6817,0)="""RTN"",""PSBRPC"",181,0)"
^XMB(3.9,98,2,6818,0)=" S RESULTS(16)=PSBHDR(""HEIGHT"")"
^XMB(3.9,98,2,6819,0)="""RTN"",""PSBRPC"",182,0)"
^XMB(3.9,98,2,6820,0)=" S GMRVSTR=""WT"" D EN6^GMRVUTL"
^XMB(3.9,98,2,6821,0)="""RTN"",""PSBRPC"",183,0)"
^XMB(3.9,98,2,6822,0)=" S X=+$P(X,U,8) S X=$J(X/2.2,0,2) S PSBHDR(""WEIGHT"")=$S(X:X_""kg"",1:""*"")"
^XMB(3.9,98,2,6823,0)="""RTN"",""PSBRPC"",184,0)"
^XMB(3.9,98,2,6824,0)=" S RESULTS(17)=PSBHDR(""WEIGHT"")"
^XMB(3.9,98,2,6825,0)="""RTN"",""PSBRPC"",185,0)"
^XMB(3.9,98,2,6826,0)=" S GMRA=""0^0^111"" D EN1^GMRADPT"
^XMB(3.9,98,2,6827,0)="""RTN"",""PSBRPC"",186,0)"
^XMB(3.9,98,2,6828,0)=" I $O(GMRAL(0)) S RESULTS(18)=1"
^XMB(3.9,98,2,6829,0)="""RTN"",""PSBRPC"",187,0)"
^XMB(3.9,98,2,6830,0)=" E  S RESULTS(18)=0"
^XMB(3.9,98,2,6831,0)="""RTN"",""PSBRPC"",188,0)"
^XMB(3.9,98,2,6832,0)=" ; Means Tst"
^XMB(3.9,98,2,6833,0)="""RTN"",""PSBRPC"",189,0)"
^XMB(3.9,98,2,6834,0)=" D GUIMTD^DPTLK6(.PSBDATA,PSBDFN)"
^XMB(3.9,98,2,6835,0)="""RTN"",""PSBRPC"",190,0)"
^XMB(3.9,98,2,6836,0)=" S RESULTS(19)=+$G(PSBDATA(1))_U_$G(PSBDATA(2))_U_$G(PSBDATA(3))"
^XMB(3.9,98,2,6837,0)="""RTN"",""PSBRPC"",191,0)"
^XMB(3.9,98,2,6838,0)=" S PSBICN=$$GETICN^MPIF001(PSBDFN) I +PSBICN=-1 S PSBICN="""""
^XMB(3.9,98,2,6839,0)="""RTN"",""PSBRPC"",192,0)"
^XMB(3.9,98,2,6840,0)=" S RESULTS(20)=PSBICN"
^XMB(3.9,98,2,6841,0)="""RTN"",""PSBRPC"",193,0)"
^XMB(3.9,98,2,6842,0)=" S RESULTS(21)="""",RESULTS(0)=21"
^XMB(3.9,98,2,6843,0)="""RTN"",""PSBRPC"",194,0)"
^XMB(3.9,98,2,6844,0)=" S:VADM(6)'="""" RESULTS(21)=""This patient died ""_$TR($P(VADM(6),U,2),""@"","" "")"
^XMB(3.9,98,2,6845,0)="""RTN"",""PSBRPC"",195,0)"
^XMB(3.9,98,2,6846,0)=" S:('VAIP(13))&('VADM(6)) RESULTS(21)=""Patient has been DISCHARGED"""
^XMB(3.9,98,2,6847,0)="""RTN"",""PSBRPC"",196,0)"
^XMB(3.9,98,2,6848,0)=" S (RESULTS(0),PSBCNT)=22"
^XMB(3.9,98,2,6849,0)="""RTN"",""PSBRPC"",197,0)"
^XMB(3.9,98,2,6850,0)=" S RESULTS(PSBCNT)="""""
^XMB(3.9,98,2,6851,0)="""RTN"",""PSBRPC"",198,0)"
^XMB(3.9,98,2,6852,0)=" F PSBINDX=1:1:($$GETACT^DGPFAPI(PSBDFN,.PSBPTFLG)) D"
^XMB(3.9,98,2,6853,0)="""RTN"",""PSBRPC"",199,0)"
^XMB(3.9,98,2,6854,0)=" .Q:'$D(PSBPTFLG)  Q:'$D(@(PSBPTFLG_""(PSBINDX,""""FLAG"""")""))  S PSBPFLAG=""PATFLG"",$P(PSBPFLAG,U,2)=$P(@(PSBPTFLG_""(PSBINDX,""""FLAG"""")""),""^"",2)"
^XMB(3.9,98,2,6855,0)="""RTN"",""PSBRPC"",200,0)"
^XMB(3.9,98,2,6856,0)=" .S $P(PSBPFLAG,U,3)=PSBINDX,PSBCNT=21+PSBINDX,RESULTS(PSBCNT)=PSBPFLAG"
^XMB(3.9,98,2,6857,0)="""RTN"",""PSBRPC"",201,0)"
^XMB(3.9,98,2,6858,0)=" S RESULTS(0)=PSBCNT"
^XMB(3.9,98,2,6859,0)="""RTN"",""PSBRPC"",202,0)"
^XMB(3.9,98,2,6860,0)=" I $D(PSBPTFLG) K @PSBPTFLG"
^XMB(3.9,98,2,6861,0)="""RTN"",""PSBRPC"",203,0)"
^XMB(3.9,98,2,6862,0)=" K VAIP,VADM"
^XMB(3.9,98,2,6863,0)="""RTN"",""PSBRPC"",204,0)"
^XMB(3.9,98,2,6864,0)=" Q"
^XMB(3.9,98,2,6865,0)="""RTN"",""PSBRPC"",205,0)"
^XMB(3.9,98,2,6866,0)=" ;"
^XMB(3.9,98,2,6867,0)="""RTN"",""PSBRPC"",206,0)"
^XMB(3.9,98,2,6868,0)="MAX(RESULTS,PSBDAYS) ;"
^XMB(3.9,98,2,6869,0)="""RTN"",""PSBRPC"",207,0)"
^XMB(3.9,98,2,6870,0)=" ;"
^XMB(3.9,98,2,6871,0)="""RTN"",""PSBRPC"",208,0)"
^XMB(3.9,98,2,6872,0)=" ; RPC: PSB MAXDAYS  ; Max days user view/print MAH"
^XMB(3.9,98,2,6873,0)="""RTN"",""PSBRPC"",209,0)"
^XMB(3.9,98,2,6874,0)=" ;"
^XMB(3.9,98,2,6875,0)="""RTN"",""PSBRPC"",210,0)"
^XMB(3.9,98,2,6876,0)=" S X=$O(^ORD(101.24,""B"",""ORRP BCMA MAH"",""""))"
^XMB(3.9,98,2,6877,0)="""RTN"",""PSBRPC"",211,0)"
^XMB(3.9,98,2,6878,0)=" S RESULTS(0)=$$GET1^DIQ(101.24,X_"","",.42)"
^XMB(3.9,98,2,6879,0)="""RTN"",""PSBRPC"",212,0)"
^XMB(3.9,98,2,6880,0)=" Q"
^XMB(3.9,98,2,6881,0)="""RTN"",""PSBRPC"",213,0)"
^XMB(3.9,98,2,6882,0)=" ;"
^XMB(3.9,98,2,6883,0)="""RTN"",""PSBRPC"",214,0)"
^XMB(3.9,98,2,6884,0)="NWLIST(RESULTS,DUMMY) ; ward list - NURS LOCATION, file 211.4"
^XMB(3.9,98,2,6885,0)="""RTN"",""PSBRPC"",215,0)"
^XMB(3.9,98,2,6886,0)=" ;"
^XMB(3.9,98,2,6887,0)="""RTN"",""PSBRPC"",216,0)"
^XMB(3.9,98,2,6888,0)=" K ^TMP(""PSB"",$J)"
^XMB(3.9,98,2,6889,0)="""RTN"",""PSBRPC"",217,0)"
^XMB(3.9,98,2,6890,0)=" S PSBIEN=0 F  S PSBIEN=$O(^NURSF(211.4,PSBIEN)) Q:PSBIEN'?.N  D"
^XMB(3.9,98,2,6891,0)="""RTN"",""PSBRPC"",218,0)"
^XMB(3.9,98,2,6892,0)=" .S ^TMP(""PSB"",$J,$$GET1^DIQ(211.4,PSBIEN_"","",.01))=PSBIEN"
^XMB(3.9,98,2,6893,0)="""RTN"",""PSBRPC"",219,0)"
^XMB(3.9,98,2,6894,0)=" .S PSBX=0 F  S PSBX=$O(^NURSF(211.4,PSBIEN,3,PSBX)) Q:PSBX=""""  D"
^XMB(3.9,98,2,6895,0)="""RTN"",""PSBRPC"",220,0)"
^XMB(3.9,98,2,6896,0)=" ..S PSBWIEN=$P(^NURSF(211.4,PSBIEN,3,PSBX,0),""^"")"
^XMB(3.9,98,2,6897,0)="""RTN"",""PSBRPC"",221,0)"
^XMB(3.9,98,2,6898,0)=" ..I $$GET1^DIQ(42,PSBWIEN_"","",.01)]"""" S ^TMP(""PSB"",$J,$$GET1^DIQ(42,PSBWIEN_"","",.01))=PSBIEN"
^XMB(3.9,98,2,6899,0)="""RTN"",""PSBRPC"",222,0)"
^XMB(3.9,98,2,6900,0)=" S RESULTS(0)=0"
^XMB(3.9,98,2,6901,0)="""RTN"",""PSBRPC"",223,0)"
^XMB(3.9,98,2,6902,0)=" S X="""" F  S X=$O(^TMP(""PSB"",$J,X)) Q:X=""""  S RESULTS(0)=RESULTS(0)+1,RESULTS(RESULTS(0))=^TMP(""PSB"",$J,X)_U_X"
^XMB(3.9,98,2,6903,0)="""RTN"",""PSBRPC"",224,0)"
^XMB(3.9,98,2,6904,0)=" K ^TMP(""PSB"",$J)"
^XMB(3.9,98,2,6905,0)="""RTN"",""PSBRPC"",225,0)"
^XMB(3.9,98,2,6906,0)=" Q"
^XMB(3.9,98,2,6907,0)="""RTN"",""PSBRPC"",226,0)"
^XMB(3.9,98,2,6908,0)=" ;"
^XMB(3.9,98,2,6909,0)="""RTN"",""PSBRPC"",227,0)"
^XMB(3.9,98,2,6910,0)="VITALS(RESULTS,DFN) ;Vital signs from Vitals API"
^XMB(3.9,98,2,6911,0)="""RTN"",""PSBRPC"",228,0)"
^XMB(3.9,98,2,6912,0)=" ;"
^XMB(3.9,98,2,6913,0)="""RTN"",""PSBRPC"",229,0)"
^XMB(3.9,98,2,6914,0)=" ; RPC PSB VITALS"
^XMB(3.9,98,2,6915,0)="""RTN"",""PSBRPC"",230,0)"
^XMB(3.9,98,2,6916,0)=" ;"
^XMB(3.9,98,2,6917,0)="""RTN"",""PSBRPC"",231,0)"
^XMB(3.9,98,2,6918,0)=" K RESULTS"
^XMB(3.9,98,2,6919,0)="""RTN"",""PSBRPC"",232,0)"
^XMB(3.9,98,2,6920,0)=" N PSBSTRT,PSBSTOP,PSBNOW"
^XMB(3.9,98,2,6921,0)="""RTN"",""PSBRPC"",233,0)"
^XMB(3.9,98,2,6922,0)=" S PSBDFN=DFN,GMRVSTR=""T;P;R;BP;PN"""
^XMB(3.9,98,2,6923,0)="""RTN"",""PSBRPC"",234,0)"
^XMB(3.9,98,2,6924,0)=" D NOW^%DTC S PSBNOW=%,PSBSTRT=$$FMADD^XLFDT(PSBNOW,"""",-168),PSBSTOP=PSBNOW,GMRVSTR(0)=PSBSTRT_U_PSBSTOP_U_4_U"
^XMB(3.9,98,2,6925,0)="""RTN"",""PSBRPC"",235,0)"
^XMB(3.9,98,2,6926,0)=" K ^UTILITY($J,""GMRVD"")"
^XMB(3.9,98,2,6927,0)="""RTN"",""PSBRPC"",236,0)"
^XMB(3.9,98,2,6928,0)=" D EN1^GMRVUT0"
^XMB(3.9,98,2,6929,0)="""RTN"",""PSBRPC"",237,0)"
^XMB(3.9,98,2,6930,0)=" S PSBCNT=1"
^XMB(3.9,98,2,6931,0)="""RTN"",""PSBRPC"",238,0)"
^XMB(3.9,98,2,6932,0)=" I '$D(^UTILITY($J,""GMRVD"")) S RESULTS(0)=PSBCNT,RESULTS(PSBCNT)=""No Vitals to report"" Q"
^XMB(3.9,98,2,6933,0)="""RTN"",""PSBRPC"",239,0)"
^XMB(3.9,98,2,6934,0)=" S PSBTYP="""""
^XMB(3.9,98,2,6935,0)="""RTN"",""PSBRPC"",240,0)"
^XMB(3.9,98,2,6936,0)=" F  S PSBTYP=$O(^UTILITY($J,""GMRVD"",PSBTYP)) Q:PSBTYP=""""  D"
^XMB(3.9,98,2,6937,0)="""RTN"",""PSBRPC"",241,0)"
^XMB(3.9,98,2,6938,0)=" .S PSBRDT="""""
^XMB(3.9,98,2,6939,0)="""RTN"",""PSBRPC"",242,0)"
^XMB(3.9,98,2,6940,0)=" .F  S PSBRDT=$O(^UTILITY($J,""GMRVD"",PSBTYP,PSBRDT)) Q:PSBRDT=""""  D"
^XMB(3.9,98,2,6941,0)="""RTN"",""PSBRPC"",243,0)"
^XMB(3.9,98,2,6942,0)=" ..S PSBIEN="""""
^XMB(3.9,98,2,6943,0)="""RTN"",""PSBRPC"",244,0)"
^XMB(3.9,98,2,6944,0)=" ..F  S PSBIEN=$O(^UTILITY($J,""GMRVD"",PSBTYP,PSBRDT,PSBIEN)) Q:PSBIEN=""""  D"
^XMB(3.9,98,2,6945,0)="""RTN"",""PSBRPC"",245,0)"
^XMB(3.9,98,2,6946,0)=" ...S PSBDATA=($G(^UTILITY($J,""GMRVD"",PSBTYP,PSBRDT,PSBIEN)))"
^XMB(3.9,98,2,6947,0)="""RTN"",""PSBRPC"",246,0)"
^XMB(3.9,98,2,6948,0)=" ...S RESULTS(PSBCNT)=PSBTYP_U_$P(PSBDATA,U,1,2)_U_$P(PSBDATA,U,8)"
^XMB(3.9,98,2,6949,0)="""RTN"",""PSBRPC"",247,0)"
^XMB(3.9,98,2,6950,0)=" ...S PSBCNT=PSBCNT+1"
^XMB(3.9,98,2,6951,0)="""RTN"",""PSBRPC"",248,0)"
^XMB(3.9,98,2,6952,0)=" S RESULTS(0)=PSBCNT-1"
^XMB(3.9,98,2,6953,0)="""RTN"",""PSBRPC"",249,0)"
^XMB(3.9,98,2,6954,0)=" K ^UTILITY($J,""GMRVD""),GMRBSTR,PSBDFN,PSBTYPE,PSBDATA,PSBCNT"
^XMB(3.9,98,2,6955,0)="""RTN"",""PSBRPC"",250,0)"
^XMB(3.9,98,2,6956,0)=" Q"
^XMB(3.9,98,2,6957,0)="""RTN"",""PSBRPC"",251,0)"
^XMB(3.9,98,2,6958,0)=" ;"
^XMB(3.9,98,2,6959,0)="""RTN"",""PSBRPC3"")"
^XMB(3.9,98,2,6960,0)="0^2^B296999^B297083"
^XMB(3.9,98,2,6961,0)="""RTN"",""PSBRPC3"",1,0)"
^XMB(3.9,98,2,6962,0)="PSBRPC3 ;BIRMINGHAM/VRN-BCMA RPC BROKER CALLS ;Mar 2004"
^XMB(3.9,98,2,6963,0)="""RTN"",""PSBRPC3"",2,0)"
^XMB(3.9,98,2,6964,0)=" ;;3.0;BAR CODE MED ADMIN;**6,3,4,16,13**;Mar 2004"
^XMB(3.9,98,2,6965,0)="""RTN"",""PSBRPC3"",3,0)"
^XMB(3.9,98,2,6966,0)=" ;"
^XMB(3.9,98,2,6967,0)="""RTN"",""PSBRPC3"",4,0)"
^XMB(3.9,98,2,6968,0)="GUICHK(RESULTS,DUMMY) ;"
^XMB(3.9,98,2,6969,0)="""RTN"",""PSBRPC3"",5,0)"
^XMB(3.9,98,2,6970,0)=" ;"
^XMB(3.9,98,2,6971,0)="""RTN"",""PSBRPC3"",6,0)"
^XMB(3.9,98,2,6972,0)=" ; RPC : PSB VERSION CHECK"
^XMB(3.9,98,2,6973,0)="""RTN"",""PSBRPC3"",7,0)"
^XMB(3.9,98,2,6974,0)=" ;"
^XMB(3.9,98,2,6975,0)="""RTN"",""PSBRPC3"",8,0)"
^XMB(3.9,98,2,6976,0)=" K RESULTS"
^XMB(3.9,98,2,6977,0)="""RTN"",""PSBRPC3"",9,0)"
^XMB(3.9,98,2,6978,0)=" N PSBCURR,PSBPREV,PSBCNT"
^XMB(3.9,98,2,6979,0)="""RTN"",""PSBRPC3"",10,0)"
^XMB(3.9,98,2,6980,0)=" S PSBCURR=""3.0.13.*"",PSBPREV="""",PSBCNT=0"
^XMB(3.9,98,2,6981,0)="""RTN"",""PSBRPC3"",11,0)"
^XMB(3.9,98,2,6982,0)=" S PSBCNT=PSBCNT+1"
^XMB(3.9,98,2,6983,0)="""RTN"",""PSBRPC3"",12,0)"
^XMB(3.9,98,2,6984,0)=" S RESULTS(PSBCNT)=PSBCURR_U_PSBPREV"
^XMB(3.9,98,2,6985,0)="""RTN"",""PSBRPC3"",13,0)"
^XMB(3.9,98,2,6986,0)=" S RESULTS(0)=PSBCNT"
^XMB(3.9,98,2,6987,0)="""RTN"",""PSBRPC3"",14,0)"
^XMB(3.9,98,2,6988,0)=" Q"
^XMB(3.9,98,2,6989,0)="""RTN"",""PSBRPC3"",15,0)"
^XMB(3.9,98,2,6990,0)=" ;"
^XMB(3.9,98,2,6991,0)="""RTN"",""PSBUTL"")"
^XMB(3.9,98,2,6992,0)="0^10^B82345052^B72517837"
^XMB(3.9,98,2,6993,0)="""RTN"",""PSBUTL"",1,0)"
^XMB(3.9,98,2,6994,0)="PSBUTL ;BIRMINGHAM/EFC-BCMA UTILITIES ;Mar 2004"
^XMB(3.9,98,2,6995,0)="""RTN"",""PSBUTL"",2,0)"
^XMB(3.9,98,2,6996,0)=" ;;3.0;BAR CODE MED ADMIN;**3,9,13**;Mar 2004"
^XMB(3.9,98,2,6997,0)="""RTN"",""PSBUTL"",3,0)"
^XMB(3.9,98,2,6998,0)=" ; "
^XMB(3.9,98,2,6999,0)="""RTN"",""PSBUTL"",4,0)"
^XMB(3.9,98,2,7000,0)=" ; Reference/IA"
^XMB(3.9,98,2,7001,0)="""RTN"",""PSBUTL"",5,0)"
^XMB(3.9,98,2,7002,0)=" ; $$PATCH & $$VERSION^XPDUTL/10141"
^XMB(3.9,98,2,7003,0)="""RTN"",""PSBUTL"",6,0)"
^XMB(3.9,98,2,7004,0)=" ; File 50/221"
^XMB(3.9,98,2,7005,0)="""RTN"",""PSBUTL"",7,0)"
^XMB(3.9,98,2,7006,0)=" ; File 200/10060"
^XMB(3.9,98,2,7007,0)="""RTN"",""PSBUTL"",8,0)"
^XMB(3.9,98,2,7008,0)=" ;"
^XMB(3.9,98,2,7009,0)="""RTN"",""PSBUTL"",9,0)"
^XMB(3.9,98,2,7010,0)=" ;"
^XMB(3.9,98,2,7011,0)="""RTN"",""PSBUTL"",10,0)"
^XMB(3.9,98,2,7012,0)="DIWP(X,Y,PSB,PSBARGN) ; "
^XMB(3.9,98,2,7013,0)="""RTN"",""PSBUTL"",11,0)"
^XMB(3.9,98,2,7014,0)=" K ^UTILITY($J,""W"")"
^XMB(3.9,98,2,7015,0)="""RTN"",""PSBUTL"",12,0)"
^XMB(3.9,98,2,7016,0)=" S DIWL=0,DIWR=Y,DIWF=""C""_Y D ^DIWP"
^XMB(3.9,98,2,7017,0)="""RTN"",""PSBUTL"",13,0)"
^XMB(3.9,98,2,7018,0)=" F X=0:0 S X=$O(^UTILITY($J,""W"",0,X)) Q:'X  D"
^XMB(3.9,98,2,7019,0)="""RTN"",""PSBUTL"",14,0)"
^XMB(3.9,98,2,7020,0)=" .S Y=$O(@PSB@(""""),-1)+1"
^XMB(3.9,98,2,7021,0)="""RTN"",""PSBUTL"",15,0)"
^XMB(3.9,98,2,7022,0)=" .; Naked Reference below is from two lines above ^UTILITY($J,""W"",0,X)"
^XMB(3.9,98,2,7023,0)="""RTN"",""PSBUTL"",16,0)"
^XMB(3.9,98,2,7024,0)=" .S @PSB@(Y)=$J("""",+$G(PSBARGN))_^(X,0)"
^XMB(3.9,98,2,7025,0)="""RTN"",""PSBUTL"",17,0)"
^XMB(3.9,98,2,7026,0)=" S @PSB@(0)=+$O(@PSB@(""""),-1)"
^XMB(3.9,98,2,7027,0)="""RTN"",""PSBUTL"",18,0)"
^XMB(3.9,98,2,7028,0)=" K ^UTILITY($J,""W""),DIWL,DIWR,DIWF"
^XMB(3.9,98,2,7029,0)="""RTN"",""PSBUTL"",19,0)"
^XMB(3.9,98,2,7030,0)=" Q"
^XMB(3.9,98,2,7031,0)="""RTN"",""PSBUTL"",20,0)"
^XMB(3.9,98,2,7032,0)=" ;"
^XMB(3.9,98,2,7033,0)="""RTN"",""PSBUTL"",21,0)"
^XMB(3.9,98,2,7034,0)="SATURDAY(X,PSBDISP) ; "
^XMB(3.9,98,2,7035,0)="""RTN"",""PSBUTL"",22,0)"
^XMB(3.9,98,2,7036,0)=" S X=X\1 D H^%DTC ; Convert to $H style"
^XMB(3.9,98,2,7037,0)="""RTN"",""PSBUTL"",23,0)"
^XMB(3.9,98,2,7038,0)=" S %H=%H+(6-%Y) ;   Set it forward to Saturday"
^XMB(3.9,98,2,7039,0)="""RTN"",""PSBUTL"",24,0)"
^XMB(3.9,98,2,7040,0)=" D YMD^%DTC ;       Back to FM Format"
^XMB(3.9,98,2,7041,0)="""RTN"",""PSBUTL"",25,0)"
^XMB(3.9,98,2,7042,0)=" I $G(PSBDISP) S PSBDISP=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3)) D EN^DDIOL(""Actual date is Saturday ""_PSBDISP)"
^XMB(3.9,98,2,7043,0)="""RTN"",""PSBUTL"",26,0)"
^XMB(3.9,98,2,7044,0)=" Q X"
^XMB(3.9,98,2,7045,0)="""RTN"",""PSBUTL"",27,0)"
^XMB(3.9,98,2,7046,0)=" ;"
^XMB(3.9,98,2,7047,0)="""RTN"",""PSBUTL"",28,0)"
^XMB(3.9,98,2,7048,0)="SUNDAY(X,PSBDISP) ; "
^XMB(3.9,98,2,7049,0)="""RTN"",""PSBUTL"",29,0)"
^XMB(3.9,98,2,7050,0)=" S X=X\1 D H^%DTC ; Convert to $H style"
^XMB(3.9,98,2,7051,0)="""RTN"",""PSBUTL"",30,0)"
^XMB(3.9,98,2,7052,0)=" S %H=%H-%Y ;       Set it back to Sunday"
^XMB(3.9,98,2,7053,0)="""RTN"",""PSBUTL"",31,0)"
^XMB(3.9,98,2,7054,0)=" D YMD^%DTC ;       Back to FM Format"
^XMB(3.9,98,2,7055,0)="""RTN"",""PSBUTL"",32,0)"
^XMB(3.9,98,2,7056,0)=" I $G(PSBDISP) S PSBDISP=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3)) D EN^DDIOL(""Actual date is Sunday ""_PSBDISP)"
^XMB(3.9,98,2,7057,0)="""RTN"",""PSBUTL"",33,0)"
^XMB(3.9,98,2,7058,0)=" Q X"
^XMB(3.9,98,2,7059,0)="""RTN"",""PSBUTL"",34,0)"
^XMB(3.9,98,2,7060,0)=" ;"
^XMB(3.9,98,2,7061,0)="""RTN"",""PSBUTL"",35,0)"
^XMB(3.9,98,2,7062,0)="CLOCK(RESULTS,X) ; Verify Client/Server Date/Times are close enough"
^XMB(3.9,98,2,7063,0)="""RTN"",""PSBUTL"",36,0)"
^XMB(3.9,98,2,7064,0)=" ;"
^XMB(3.9,98,2,7065,0)="""RTN"",""PSBUTL"",37,0)"
^XMB(3.9,98,2,7066,0)=" ; RPC: PSB SERVER CLOCK VARIANCE"
^XMB(3.9,98,2,7067,0)="""RTN"",""PSBUTL"",38,0)"
^XMB(3.9,98,2,7068,0)=" ;"
^XMB(3.9,98,2,7069,0)="""RTN"",""PSBUTL"",39,0)"
^XMB(3.9,98,2,7070,0)=" ; Description:"
^XMB(3.9,98,2,7071,0)="""RTN"",""PSBUTL"",40,0)"
^XMB(3.9,98,2,7072,0)=" ; Returns the variance from the server to the client in minutes"
^XMB(3.9,98,2,7073,0)="""RTN"",""PSBUTL"",41,0)"
^XMB(3.9,98,2,7074,0)=" ;"
^XMB(3.9,98,2,7075,0)="""RTN"",""PSBUTL"",42,0)"
^XMB(3.9,98,2,7076,0)=" N PSBCLNT,PSBSRVR,PSBDIFF"
^XMB(3.9,98,2,7077,0)="""RTN"",""PSBUTL"",43,0)"
^XMB(3.9,98,2,7078,0)=" S %DT=""RS"" D ^%DT S PSBCLNT=Y"
^XMB(3.9,98,2,7079,0)="""RTN"",""PSBUTL"",44,0)"
^XMB(3.9,98,2,7080,0)=" D NOW^%DTC S PSBSRVR=%"
^XMB(3.9,98,2,7081,0)="""RTN"",""PSBUTL"",45,0)"
^XMB(3.9,98,2,7082,0)=" S PSBDIFF=$$DIFF(PSBSRVR,PSBCLNT)"
^XMB(3.9,98,2,7083,0)="""RTN"",""PSBUTL"",46,0)"
^XMB(3.9,98,2,7084,0)=" S X=$$GET^XPAR(""DIV"",""PSB SERVER CLOCK VARIANCE"")"
^XMB(3.9,98,2,7085,0)="""RTN"",""PSBUTL"",47,0)"
^XMB(3.9,98,2,7086,0)=" I PSBDIFF>X!(PSBDIFF<(X*-1)) S RESULTS(0)=""-1^""_PSBDIFF"
^XMB(3.9,98,2,7087,0)="""RTN"",""PSBUTL"",48,0)"
^XMB(3.9,98,2,7088,0)=" E  S RESULTS(0)=""1^""_PSBDIFF"
^XMB(3.9,98,2,7089,0)="""RTN"",""PSBUTL"",49,0)"
^XMB(3.9,98,2,7090,0)=" Q"
^XMB(3.9,98,2,7091,0)="""RTN"",""PSBUTL"",50,0)"
^XMB(3.9,98,2,7092,0)=" ;"
^XMB(3.9,98,2,7093,0)="""RTN"",""PSBUTL"",51,0)"
^XMB(3.9,98,2,7094,0)="DIFF(X,X1) ; Difference in minutes between 2 FM dates"
^XMB(3.9,98,2,7095,0)="""RTN"",""PSBUTL"",52,0)"
^XMB(3.9,98,2,7096,0)=" ; Code copied from Fileman Function MINUTES"
^XMB(3.9,98,2,7097,0)="""RTN"",""PSBUTL"",53,0)"
^XMB(3.9,98,2,7098,0)=" S Y=$E(X1_""000"",9,10)-$E(X_""000"",9,10)*60+$E(X1_""00000"",11,12)-$E(X_""00000"",11,12),X2=X,X=$P(X,""."",1)'=$P(X1,""."",1) D ^%DTC:X S X=X*1440+Y"
^XMB(3.9,98,2,7099,0)="""RTN"",""PSBUTL"",54,0)"
^XMB(3.9,98,2,7100,0)=" Q X"
^XMB(3.9,98,2,7101,0)="""RTN"",""PSBUTL"",55,0)"
^XMB(3.9,98,2,7102,0)=" ;"
^XMB(3.9,98,2,7103,0)="""RTN"",""PSBUTL"",56,0)"
^XMB(3.9,98,2,7104,0)="DRUGINQ ; Drug File Inquiry"
^XMB(3.9,98,2,7105,0)="""RTN"",""PSBUTL"",57,0)"
^XMB(3.9,98,2,7106,0)=" N PSBRET,PSBIEN,DIC,DIR,IOINORM,IOINHI"
^XMB(3.9,98,2,7107,0)="""RTN"",""PSBUTL"",58,0)"
^XMB(3.9,98,2,7108,0)=" S X=""IOINHI;IOINORM"" D ENDR^%ZISS"
^XMB(3.9,98,2,7109,0)="""RTN"",""PSBUTL"",59,0)"
^XMB(3.9,98,2,7110,0)=" S X=$TR(X,""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ"")"
^XMB(3.9,98,2,7111,0)="""RTN"",""PSBUTL"",60,0)"
^XMB(3.9,98,2,7112,0)=" S DIC=""^PSDRUG("",DIC(0)=""AEQMVTN"",DIC(""T"")="""",D=""B^C^VAPN^VAC^NDC^XATC"",DIC(""A"")=""Select DRUG: """
^XMB(3.9,98,2,7113,0)="""RTN"",""PSBUTL"",61,0)"
^XMB(3.9,98,2,7114,0)=" ; Display active drugs and those for appl packages IV and Unit Dose"
^XMB(3.9,98,2,7115,0)="""RTN"",""PSBUTL"",62,0)"
^XMB(3.9,98,2,7116,0)=" S DIC(""S"")=""I '$G(^PSDRUG(+Y,""""I""""))!($G(^(""""I""""))>DT),$P($G(^PSDRUG(+Y,2)),U,3)[""""I""""!($P($G(^PSDRUG(+Y,2)),U,3)[""""U"""")"""
^XMB(3.9,98,2,7117,0)="""RTN"",""PSBUTL"",63,0)"
^XMB(3.9,98,2,7118,0)=" F  W @IOF,!,""DRUG FILE INQUIRY"",! D ^DIC  Q:+Y<1  D"
^XMB(3.9,98,2,7119,0)="""RTN"",""PSBUTL"",64,0)"
^XMB(3.9,98,2,7120,0)=" .K PSBRET"
^XMB(3.9,98,2,7121,0)="""RTN"",""PSBUTL"",65,0)"
^XMB(3.9,98,2,7122,0)=" .S PSBIEN=+Y_"","""
^XMB(3.9,98,2,7123,0)="""RTN"",""PSBUTL"",66,0)"
^XMB(3.9,98,2,7124,0)=" .D GETS^DIQ(50,PSBIEN,"".01;16;25;51;215;213;101;9*"","""",""PSBRET"")"
^XMB(3.9,98,2,7125,0)="""RTN"",""PSBUTL"",67,0)"
^XMB(3.9,98,2,7126,0)=" .W @IOF,!,""DRUG NAME: "",IOINHI,PSBRET(50,PSBIEN,.01)"
^XMB(3.9,98,2,7127,0)="""RTN"",""PSBUTL"",68,0)"
^XMB(3.9,98,2,7128,0)=" .W ""  (IEN: "",+PSBIEN,"")"",IOINORM,!,$TR($J("""",IOM),"" "",""-""),!"
^XMB(3.9,98,2,7129,0)="""RTN"",""PSBUTL"",69,0)"
^XMB(3.9,98,2,7130,0)=" .F X=16,25,51,215,213,101 D"
^XMB(3.9,98,2,7131,0)="""RTN"",""PSBUTL"",70,0)"
^XMB(3.9,98,2,7132,0)=" ..D FIELD^DID(50,X,"""",""LABEL"",""PSBRET"")"
^XMB(3.9,98,2,7133,0)="""RTN"",""PSBUTL"",71,0)"
^XMB(3.9,98,2,7134,0)=" ..W !,PSBRET(""LABEL""),"":"",?30,IOINHI"
^XMB(3.9,98,2,7135,0)="""RTN"",""PSBUTL"",72,0)"
^XMB(3.9,98,2,7136,0)=" ..D:$L(PSBRET(50,PSBIEN,X))>49"
^XMB(3.9,98,2,7137,0)="""RTN"",""PSBUTL"",73,0)"
^XMB(3.9,98,2,7138,0)=" ...F Y=1:1 Q:$L($P(PSBRET(50,PSBIEN,X),"" "",1,Y))>49"
^XMB(3.9,98,2,7139,0)="""RTN"",""PSBUTL"",74,0)"
^XMB(3.9,98,2,7140,0)=" ...W $P(PSBRET(50,PSBIEN,X),"" "",1,Y-1),!?30"
^XMB(3.9,98,2,7141,0)="""RTN"",""PSBUTL"",75,0)"
^XMB(3.9,98,2,7142,0)=" ...S PSBRET(50,PSBIEN,X)=$P(PSBRET(50,PSBIEN,X),"" "",Y,250)"
^XMB(3.9,98,2,7143,0)="""RTN"",""PSBUTL"",76,0)"
^XMB(3.9,98,2,7144,0)=" ..W ?30,PSBRET(50,PSBIEN,X),IOINORM"
^XMB(3.9,98,2,7145,0)="""RTN"",""PSBUTL"",77,0)"
^XMB(3.9,98,2,7146,0)=" .W !!,""SYNONYMS:"",IOINHI,!?15"
^XMB(3.9,98,2,7147,0)="""RTN"",""PSBUTL"",78,0)"
^XMB(3.9,98,2,7148,0)=" .S X="""" F  S X=$O(PSBRET(50.1,X)) Q:X=""""  W:$X>40 !?15 W:$X>15 ?40 W PSBRET(50.1,X,.01)"
^XMB(3.9,98,2,7149,0)="""RTN"",""PSBUTL"",79,0)"
^XMB(3.9,98,2,7150,0)=" .W IOINORM"
^XMB(3.9,98,2,7151,0)="""RTN"",""PSBUTL"",80,0)"
^XMB(3.9,98,2,7152,0)=" .F  Q:$Y>(IOSL-3)  W !"
^XMB(3.9,98,2,7153,0)="""RTN"",""PSBUTL"",81,0)"
^XMB(3.9,98,2,7154,0)=" .S DIR(0)=""E"" D ^DIR"
^XMB(3.9,98,2,7155,0)="""RTN"",""PSBUTL"",82,0)"
^XMB(3.9,98,2,7156,0)=" Q"
^XMB(3.9,98,2,7157,0)="""RTN"",""PSBUTL"",83,0)"
^XMB(3.9,98,2,7158,0)=" ;"
^XMB(3.9,98,2,7159,0)="""RTN"",""PSBUTL"",84,0)"
^XMB(3.9,98,2,7160,0)="DPTSET ; Set Logic for pt-merge x-ref on patient field in file 53.79"
^XMB(3.9,98,2,7161,0)="""RTN"",""PSBUTL"",85,0)"
^XMB(3.9,98,2,7162,0)=" ;"
^XMB(3.9,98,2,7163,0)="""RTN"",""PSBUTL"",86,0)"
^XMB(3.9,98,2,7164,0)=" ; Entered Date/Time"
^XMB(3.9,98,2,7165,0)="""RTN"",""PSBUTL"",87,0)"
^XMB(3.9,98,2,7166,0)=" I $P(^PSB(53.79,DA,0),U,4) S ^PSB(53.79,""AEDT"",X,$P(^PSB(53.79,DA,0),U,4),DA)="""""
^XMB(3.9,98,2,7167,0)="""RTN"",""PSBUTL"",88,0)"
^XMB(3.9,98,2,7168,0)=" ;"
^XMB(3.9,98,2,7169,0)="""RTN"",""PSBUTL"",89,0)"
^XMB(3.9,98,2,7170,0)=" ; Administration Date/Time"
^XMB(3.9,98,2,7171,0)="""RTN"",""PSBUTL"",90,0)"
^XMB(3.9,98,2,7172,0)=" D:$P(^PSB(53.79,DA,0),U,6)"
^XMB(3.9,98,2,7173,0)="""RTN"",""PSBUTL"",91,0)"
^XMB(3.9,98,2,7174,0)=" .S ^PSB(53.79,""AADT"",X,$P(^PSB(53.79,DA,0),U,6),DA)="""""
^XMB(3.9,98,2,7175,0)="""RTN"",""PSBUTL"",92,0)"
^XMB(3.9,98,2,7176,0)=" .;"
^XMB(3.9,98,2,7177,0)="""RTN"",""PSBUTL"",93,0)"
^XMB(3.9,98,2,7178,0)=" .; Orderable Item + Administration Date/Time"
^XMB(3.9,98,2,7179,0)="""RTN"",""PSBUTL"",94,0)"
^XMB(3.9,98,2,7180,0)=" .I $P(^PSB(53.79,DA,0),U,8) S ^PSB(53.79,""AOIP"",X,$P(^PSB(53.79,DA,0),U,8),$P(^PSB(53.79,DA,0),U,6),DA)="""""
^XMB(3.9,98,2,7181,0)="""RTN"",""PSBUTL"",95,0)"
^XMB(3.9,98,2,7182,0)=" ;"
^XMB(3.9,98,2,7183,0)="""RTN"",""PSBUTL"",96,0)"
^XMB(3.9,98,2,7184,0)=" ; PRN's by entered date/time"
^XMB(3.9,98,2,7185,0)="""RTN"",""PSBUTL"",97,0)"
^XMB(3.9,98,2,7186,0)=" I $P($G(^PSB(53.79,DA,.1)),U,2)=""P""&($P(^(0),U,4)) S ^PSB(53.79,""APRN"",X,$P(^PSB(53.79,DA,0),U,4),DA)="""""
^XMB(3.9,98,2,7187,0)="""RTN"",""PSBUTL"",98,0)"
^XMB(3.9,98,2,7188,0)=" ;"
^XMB(3.9,98,2,7189,0)="""RTN"",""PSBUTL"",99,0)"
^XMB(3.9,98,2,7190,0)=" ; Order+Administration Date and Time"
^XMB(3.9,98,2,7191,0)="""RTN"",""PSBUTL"",100,0)"
^XMB(3.9,98,2,7192,0)=" I $P($G(^PSB(53.79,DA,.1)),U)]""""&($P($G(^PSB(53.79,DA,.1)),U,3)) S ^PSB(53.79,""AORD"",X,$P(^PSB(53.79,DA,.1),U),$P(^PSB(53.79,DA,.1),U,3),DA)="""""
^XMB(3.9,98,2,7193,0)="""RTN"",""PSBUTL"",101,0)"
^XMB(3.9,98,2,7194,0)=" Q"
^XMB(3.9,98,2,7195,0)="""RTN"",""PSBUTL"",102,0)"
^XMB(3.9,98,2,7196,0)=" ;"
^XMB(3.9,98,2,7197,0)="""RTN"",""PSBUTL"",103,0)"
^XMB(3.9,98,2,7198,0)="DPTKILL ; Kill Logic for pt-merge x-ref on patient field in file 53.79"
^XMB(3.9,98,2,7199,0)="""RTN"",""PSBUTL"",104,0)"
^XMB(3.9,98,2,7200,0)=" ;"
^XMB(3.9,98,2,7201,0)="""RTN"",""PSBUTL"",105,0)"
^XMB(3.9,98,2,7202,0)=" ; Entered Date/Time"
^XMB(3.9,98,2,7203,0)="""RTN"",""PSBUTL"",106,0)"
^XMB(3.9,98,2,7204,0)=" I $P(^PSB(53.79,DA,0),U,4) K ^PSB(53.79,""AEDT"",X,$P(^PSB(53.79,DA,0),U,4),DA)"
^XMB(3.9,98,2,7205,0)="""RTN"",""PSBUTL"",107,0)"
^XMB(3.9,98,2,7206,0)=" ;"
^XMB(3.9,98,2,7207,0)="""RTN"",""PSBUTL"",108,0)"
^XMB(3.9,98,2,7208,0)=" ; Administration Date/Time"
^XMB(3.9,98,2,7209,0)="""RTN"",""PSBUTL"",109,0)"
^XMB(3.9,98,2,7210,0)=" D:$P(^PSB(53.79,DA,0),U,6)"
^XMB(3.9,98,2,7211,0)="""RTN"",""PSBUTL"",110,0)"
^XMB(3.9,98,2,7212,0)=" .K ^PSB(53.79,""AADT"",X,$P(^PSB(53.79,DA,0),U,6),DA)"
^XMB(3.9,98,2,7213,0)="""RTN"",""PSBUTL"",111,0)"
^XMB(3.9,98,2,7214,0)=" .;"
^XMB(3.9,98,2,7215,0)="""RTN"",""PSBUTL"",112,0)"
^XMB(3.9,98,2,7216,0)=" .; Orderable Item + Administration Date/Time"
^XMB(3.9,98,2,7217,0)="""RTN"",""PSBUTL"",113,0)"
^XMB(3.9,98,2,7218,0)=" .I $P(^PSB(53.79,DA,0),U,8) K ^PSB(53.79,""AOIP"",X,$P(^PSB(53.79,DA,0),U,8),$P(^PSB(53.79,DA,0),U,6),DA)"
^XMB(3.9,98,2,7219,0)="""RTN"",""PSBUTL"",114,0)"
^XMB(3.9,98,2,7220,0)=" ;"
^XMB(3.9,98,2,7221,0)="""RTN"",""PSBUTL"",115,0)"
^XMB(3.9,98,2,7222,0)=" ; PRN's by entered date/time"
^XMB(3.9,98,2,7223,0)="""RTN"",""PSBUTL"",116,0)"
^XMB(3.9,98,2,7224,0)=" I $P($G(^PSB(53.79,DA,.1)),U,2)=""P""&($P(^(0),U,4)) K ^PSB(53.79,""APRN"",X,$P(^PSB(53.79,DA,0),U,4),DA)"
^XMB(3.9,98,2,7225,0)="""RTN"",""PSBUTL"",117,0)"
^XMB(3.9,98,2,7226,0)=" ;"
^XMB(3.9,98,2,7227,0)="""RTN"",""PSBUTL"",118,0)"
^XMB(3.9,98,2,7228,0)=" ; Order+Administration Date and Time"
^XMB(3.9,98,2,7229,0)="""RTN"",""PSBUTL"",119,0)"
^XMB(3.9,98,2,7230,0)=" I $P($G(^PSB(53.79,DA,.1)),U)]""""&($P($G(^PSB(53.79,DA,.1)),U,3)) K ^PSB(53.79,""AORD"",X,$P(^PSB(53.79,DA,.1),U),$P(^PSB(53.79,DA,.1),U,3),DA)"
^XMB(3.9,98,2,7231,0)="""RTN"",""PSBUTL"",120,0)"
^XMB(3.9,98,2,7232,0)=" Q"
^XMB(3.9,98,2,7233,0)="""RTN"",""PSBUTL"",121,0)"
^XMB(3.9,98,2,7234,0)=" ;"
^XMB(3.9,98,2,7235,0)="""RTN"",""PSBUTL"",122,0)"
^XMB(3.9,98,2,7236,0)="TIMEIN ;"
^XMB(3.9,98,2,7237,0)="""RTN"",""PSBUTL"",123,0)"
^XMB(3.9,98,2,7238,0)=" X ^%ZOSF(""UPPERCASE"") S X=Y"
^XMB(3.9,98,2,7239,0)="""RTN"",""PSBUTL"",124,0)"
^XMB(3.9,98,2,7240,0)=" I X=""NOON"" S X=.12 Q"
^XMB(3.9,98,2,7241,0)="""RTN"",""PSBUTL"",125,0)"
^XMB(3.9,98,2,7242,0)=" I X=""MID"" S X=.24 Q"
^XMB(3.9,98,2,7243,0)="""RTN"",""PSBUTL"",126,0)"
^XMB(3.9,98,2,7244,0)=" I (X=""NOW"")!(X=""N"") D NOW^%DTC S X=$E($P(%,""."",2)_""0000"",1,4)"
^XMB(3.9,98,2,7245,0)="""RTN"",""PSBUTL"",127,0)"
^XMB(3.9,98,2,7246,0)=" S X=""T@""_X,%DT=""R"" D ^%DT"
^XMB(3.9,98,2,7247,0)="""RTN"",""PSBUTL"",128,0)"
^XMB(3.9,98,2,7248,0)=" I Y<1 K X Q"
^XMB(3.9,98,2,7249,0)="""RTN"",""PSBUTL"",129,0)"
^XMB(3.9,98,2,7250,0)=" S X=Y-DT"
^XMB(3.9,98,2,7251,0)="""RTN"",""PSBUTL"",130,0)"
^XMB(3.9,98,2,7252,0)=" Q"
^XMB(3.9,98,2,7253,0)="""RTN"",""PSBUTL"",131,0)"
^XMB(3.9,98,2,7254,0)=" ;"
^XMB(3.9,98,2,7255,0)="""RTN"",""PSBUTL"",132,0)"
^XMB(3.9,98,2,7256,0)="TIMEOUT(X) ; "
^XMB(3.9,98,2,7257,0)="""RTN"",""PSBUTL"",133,0)"
^XMB(3.9,98,2,7258,0)=" N HOUR,MIN,AMPM"
^XMB(3.9,98,2,7259,0)="""RTN"",""PSBUTL"",134,0)"
^XMB(3.9,98,2,7260,0)=" S X=$E($P(X,""."",2)_""0000"",1,4)"
^XMB(3.9,98,2,7261,0)="""RTN"",""PSBUTL"",135,0)"
^XMB(3.9,98,2,7262,0)=" I X=""2400"" Q ""12:00m"""
^XMB(3.9,98,2,7263,0)="""RTN"",""PSBUTL"",136,0)"
^XMB(3.9,98,2,7264,0)=" I X=""1200"" Q ""12:00n"""
^XMB(3.9,98,2,7265,0)="""RTN"",""PSBUTL"",137,0)"
^XMB(3.9,98,2,7266,0)=" S HOUR=+$E(X,1,2),MIN=$E(X,3,4)"
^XMB(3.9,98,2,7267,0)="""RTN"",""PSBUTL"",138,0)"
^XMB(3.9,98,2,7268,0)=" S AMPM=""a"""
^XMB(3.9,98,2,7269,0)="""RTN"",""PSBUTL"",139,0)"
^XMB(3.9,98,2,7270,0)=" S AMPM=$S(HOUR<12:""a"",HOUR>11:""p"",1:""**"")"
^XMB(3.9,98,2,7271,0)="""RTN"",""PSBUTL"",140,0)"
^XMB(3.9,98,2,7272,0)=" S:HOUR>12 HOUR=HOUR-12"
^XMB(3.9,98,2,7273,0)="""RTN"",""PSBUTL"",141,0)"
^XMB(3.9,98,2,7274,0)=" Q HOUR_"":""_MIN_AMPM"
^XMB(3.9,98,2,7275,0)="""RTN"",""PSBUTL"",142,0)"
^XMB(3.9,98,2,7276,0)=" ;"
^XMB(3.9,98,2,7277,0)="""RTN"",""PSBUTL"",143,0)"
^XMB(3.9,98,2,7278,0)="HFSOPEN(HANDLE) ; "
^XMB(3.9,98,2,7279,0)="""RTN"",""PSBUTL"",144,0)"
^XMB(3.9,98,2,7280,0)=" N PSBDIR,PSBFILE"
^XMB(3.9,98,2,7281,0)="""RTN"",""PSBUTL"",145,0)"
^XMB(3.9,98,2,7282,0)=" S PSBDIR=$$GET^XPAR(""DIV"",""PSB HFS SCRATCH"")"
^XMB(3.9,98,2,7283,0)="""RTN"",""PSBUTL"",146,0)"
^XMB(3.9,98,2,7284,0)=" S PSBFILE=""PSB""_DUZ_"".DAT"""
^XMB(3.9,98,2,7285,0)="""RTN"",""PSBUTL"",147,0)"
^XMB(3.9,98,2,7286,0)=" D OPEN^%ZISH(HANDLE,PSBDIR,PSBFILE,""W"") Q:POP"
^XMB(3.9,98,2,7287,0)="""RTN"",""PSBUTL"",148,0)"
^XMB(3.9,98,2,7288,0)=" S IOM=132,IOSL=99999,IOST=""P-DUMMY"",IOF="""""""""""""
^XMB(3.9,98,2,7289,0)="""RTN"",""PSBUTL"",149,0)"
^XMB(3.9,98,2,7290,0)=" Q"
^XMB(3.9,98,2,7291,0)="""RTN"",""PSBUTL"",150,0)"
^XMB(3.9,98,2,7292,0)=" ;"
^XMB(3.9,98,2,7293,0)="""RTN"",""PSBUTL"",151,0)"
^XMB(3.9,98,2,7294,0)="HFSCLOSE(HANDLE) ; "
^XMB(3.9,98,2,7295,0)="""RTN"",""PSBUTL"",152,0)"
^XMB(3.9,98,2,7296,0)=" N PSBDIR,PSBFILE,PSBDEL"
^XMB(3.9,98,2,7297,0)="""RTN"",""PSBUTL"",153,0)"
^XMB(3.9,98,2,7298,0)=" D CLOSE^%ZISH(HANDLE)"
^XMB(3.9,98,2,7299,0)="""RTN"",""PSBUTL"",154,0)"
^XMB(3.9,98,2,7300,0)=" K ^TMP(""PSBO"",$J)"
^XMB(3.9,98,2,7301,0)="""RTN"",""PSBUTL"",155,0)"
^XMB(3.9,98,2,7302,0)=" S PSBDIR=$$GET^XPAR(""DIV"",""PSB HFS SCRATCH"")"
^XMB(3.9,98,2,7303,0)="""RTN"",""PSBUTL"",156,0)"
^XMB(3.9,98,2,7304,0)=" S PSBFILE=""PSB""_DUZ_"".DAT"",PSBDEL(PSBFILE)="""""
^XMB(3.9,98,2,7305,0)="""RTN"",""PSBUTL"",157,0)"
^XMB(3.9,98,2,7306,0)=" S X=$$FTG^%ZISH(PSBDIR,PSBFILE,$NAME(^TMP(""PSBO"",$J,2)),3)"
^XMB(3.9,98,2,7307,0)="""RTN"",""PSBUTL"",158,0)"
^XMB(3.9,98,2,7308,0)=" S X=$$DEL^%ZISH(PSBDIR,$NA(PSBDEL))"
^XMB(3.9,98,2,7309,0)="""RTN"",""PSBUTL"",159,0)"
^XMB(3.9,98,2,7310,0)=" Q"
^XMB(3.9,98,2,7311,0)="""RTN"",""PSBUTL"",160,0)"
^XMB(3.9,98,2,7312,0)=" ;"
^XMB(3.9,98,2,7313,0)="""RTN"",""PSBUTL"",161,0)"
^XMB(3.9,98,2,7314,0)="AUDIT(PSBREC,PSBDD,PSBFLD,PSBDATA,PSBSK) ; Med Log Audit"
^XMB(3.9,98,2,7315,0)="""RTN"",""PSBUTL"",162,0)"
^XMB(3.9,98,2,7316,0)=" ; used by cross references to 53.79 to track changes to fields in Med Log file"
^XMB(3.9,98,2,7317,0)="""RTN"",""PSBUTL"",163,0)"
^XMB(3.9,98,2,7318,0)=" ; xref AU05, AU06, AU09, AU16, AU21, AU22 pass the value 53.79 as PSBDD"
^XMB(3.9,98,2,7319,0)="""RTN"",""PSBUTL"",164,0)"
^XMB(3.9,98,2,7320,0)=" ; xref AU303, AU304 pass the value 53.795 as PSBDD"
^XMB(3.9,98,2,7321,0)="""RTN"",""PSBUTL"",165,0)"
^XMB(3.9,98,2,7322,0)=" ; xref AU603, AU604 pass the value 53.796 as PSBDD"
^XMB(3.9,98,2,7323,0)="""RTN"",""PSBUTL"",166,0)"
^XMB(3.9,98,2,7324,0)=" ; xref AU703, AU704 pass the value 53.797 as PSBDD"
^XMB(3.9,98,2,7325,0)="""RTN"",""PSBUTL"",167,0)"
^XMB(3.9,98,2,7326,0)=" ;"
^XMB(3.9,98,2,7327,0)="""RTN"",""PSBUTL"",168,0)"
^XMB(3.9,98,2,7328,0)=" N PSBDT,PSBTMP"
^XMB(3.9,98,2,7329,0)="""RTN"",""PSBUTL"",169,0)"
^XMB(3.9,98,2,7330,0)=" I '$D(PSBOLSTS) S PSBOLSTS=$P(^PSB(53.79,PSBREC,0),U,9)"
^XMB(3.9,98,2,7331,0)="""RTN"",""PSBUTL"",170,0)"
^XMB(3.9,98,2,7332,0)=" I '$D(PSBOLDUZ) S PSBOLDUZ=$P(^PSB(53.79,PSBREC,0),U,5)"
^XMB(3.9,98,2,7333,0)="""RTN"",""PSBUTL"",171,0)"
^XMB(3.9,98,2,7334,0)=" Q:$G(PSBDATA)=""""!('$G(PSBAUDIT))"
^XMB(3.9,98,2,7335,0)="""RTN"",""PSBUTL"",172,0)"
^XMB(3.9,98,2,7336,0)=" D NOW^%DTC S PSBDT=%"
^XMB(3.9,98,2,7337,0)="""RTN"",""PSBUTL"",173,0)"
^XMB(3.9,98,2,7338,0)=" S PSBDATA=$$EXTERNAL^DILFD(PSBDD,PSBFLD,"""",PSBDATA)  ; PSBDD=53.79, 53.795, 53.796, or 53.797 see comment at tag AUDIT"
^XMB(3.9,98,2,7339,0)="""RTN"",""PSBUTL"",174,0)"
^XMB(3.9,98,2,7340,0)=" D FIELD^DID(PSBDD,PSBFLD,"""",""LABEL"",""PSBTMP"")  ; PSBDD=53.79, 53.795, 53.796, or 53.797 see comment at tag AUDIT"
^XMB(3.9,98,2,7341,0)="""RTN"",""PSBUTL"",175,0)"
^XMB(3.9,98,2,7342,0)=" S:'$D(^PSB(53.79,PSBREC,.9,0)) ^(0)=""^53.799^^"""
^XMB(3.9,98,2,7343,0)="""RTN"",""PSBUTL"",176,0)"
^XMB(3.9,98,2,7344,0)=" S Y=$O(^PSB(53.79,PSBREC,.9,""""),-1)+1,X="""""
^XMB(3.9,98,2,7345,0)="""RTN"",""PSBUTL"",177,0)"
^XMB(3.9,98,2,7346,0)=" I PSBTMP(""LABEL"")[""ACTION STATUS"" D  Q"
^XMB(3.9,98,2,7347,0)="""RTN"",""PSBUTL"",178,0)"
^XMB(3.9,98,2,7348,0)=" .I PSBSK[""K"" S XY=Y F  S XY=$O(^PSB(53.79,PSBREC,.9,XY),-1) Q:($D(PSBGOON))!(+XY'>0)  D"
^XMB(3.9,98,2,7349,0)="""RTN"",""PSBUTL"",179,0)"
^XMB(3.9,98,2,7350,0)=" ..I ^PSB(53.79,PSBREC,.9,XY,0)[""ACTION STATUS Set to '"" D  Q"
^XMB(3.9,98,2,7351,0)="""RTN"",""PSBUTL"",180,0)"
^XMB(3.9,98,2,7352,0)=" ...S PSBGOON=1,PSBOLDUZ=$P(^PSB(53.79,PSBREC,.9,XY,0),U,2),X=$P(^PSB(53.79,PSBREC,.9,XY,0),""'"",2)"
^XMB(3.9,98,2,7353,0)="""RTN"",""PSBUTL"",181,0)"
^XMB(3.9,98,2,7354,0)=" .S:$L(X)'>2 X=PSBOLSTS,X=$S(X=""G"":""GIVEN"",X=""H"":""HELD"",X=""R"":""REFUSED"",X=""I"":""INFUSING"",X=""C"":""COMPLETED"",X=""S"":""STOPPED"",X=""N"":""NOT GIVEN"",X=""RM"":""REMOVED"",X=""M"":""MISSING DOSE"",X="""":PSBOLSTS)"
^XMB(3.9,98,2,7355,0)="""RTN"",""PSBUTL"",182,0)"
^XMB(3.9,98,2,7356,0)=" .I PSBSK[""K"" S ^PSB(53.79,PSBREC,.9,Y,0)=PSBDT_U_DUZ_U_""Field: ""_PSBTMP(""LABEL"")_"" '""_PSBDATA_""' by '""_$$GET1^DIQ(200,PSBOLDUZ,""INITIAL"")_""' deleted."""
^XMB(3.9,98,2,7357,0)="""RTN"",""PSBUTL"",183,0)"
^XMB(3.9,98,2,7358,0)=" .E  S ^PSB(53.79,PSBREC,.9,Y,0)=PSBDT_U_DUZ_U_""Field: ""_PSBTMP(""LABEL"")_"" Set to '""_PSBDATA_""' by '""_$$GET1^DIQ(200,DUZ,""INITIAL"")_""'.""_U_PSBDATA"
^XMB(3.9,98,2,7359,0)="""RTN"",""PSBUTL"",184,0)"
^XMB(3.9,98,2,7360,0)=" I PSBSK[""K"" S ^PSB(53.79,PSBREC,.9,Y,0)=PSBDT_U_DUZ_U_""Field: ""_PSBTMP(""LABEL"")_"" '""_PSBDATA_""' deleted."""
^XMB(3.9,98,2,7361,0)="""RTN"",""PSBUTL"",185,0)"
^XMB(3.9,98,2,7362,0)=" E  S ^PSB(53.79,PSBREC,.9,Y,0)=PSBDT_U_DUZ_U_""Field: ""_PSBTMP(""LABEL"")_$S(PSBTMP(""LABEL"")[""DISPENSE DRUG"":"" Added '"",1:"" Set to '"")_PSBDATA_""'."""
^XMB(3.9,98,2,7363,0)="""RTN"",""PSBUTL"",186,0)"
^XMB(3.9,98,2,7364,0)=" K XY,PSBGOON"
^XMB(3.9,98,2,7365,0)="""RTN"",""PSBUTL"",187,0)"
^XMB(3.9,98,2,7366,0)=" Q"
^XMB(3.9,98,2,7367,0)="""RTN"",""PSBUTL"",188,0)"
^XMB(3.9,98,2,7368,0)=" ;"
^XMB(3.9,98,2,7369,0)="""RTN"",""PSBUTL"",189,0)"
^XMB(3.9,98,2,7370,0)="CHECK(RESULTS,PSBWHAT,PSBDATA) ; Checks for KIDS Patch or Build"
^XMB(3.9,98,2,7371,0)="""RTN"",""PSBUTL"",190,0)"
^XMB(3.9,98,2,7372,0)=" ; Module added in Patch PSB*1.0*3 DP/TOPEKA 22-DEC-1999 11:51:22 "
^XMB(3.9,98,2,7373,0)="""RTN"",""PSBUTL"",191,0)"
^XMB(3.9,98,2,7374,0)=" ; PSBWHAT: B = Returns Build Version for packages by Namespace"
^XMB(3.9,98,2,7375,0)="""RTN"",""PSBUTL"",192,0)"
^XMB(3.9,98,2,7376,0)=" ;          P = Returns if Patch is installed"
^XMB(3.9,98,2,7377,0)="""RTN"",""PSBUTL"",193,0)"
^XMB(3.9,98,2,7378,0)=" ; PSBDATA: Build/Package namespace (i.e. PSB) or Patch Number"
^XMB(3.9,98,2,7379,0)="""RTN"",""PSBUTL"",194,0)"
^XMB(3.9,98,2,7380,0)=" ;         (i.e. PSB*1.0*1)"
^XMB(3.9,98,2,7381,0)="""RTN"",""PSBUTL"",195,0)"
^XMB(3.9,98,2,7382,0)=" ;"
^XMB(3.9,98,2,7383,0)="""RTN"",""PSBUTL"",196,0)"
^XMB(3.9,98,2,7384,0)=" S RESULTS(0)=""-1^Unknown Parameter ""_$G(PSBWHAT,""<PSBWHAT Undefined>"")"
^XMB(3.9,98,2,7385,0)="""RTN"",""PSBUTL"",197,0)"
^XMB(3.9,98,2,7386,0)=" S PSBWHAT=$G(PSBWHAT),PSBDATA=$G(PSBDATA)"
^XMB(3.9,98,2,7387,0)="""RTN"",""PSBUTL"",198,0)"
^XMB(3.9,98,2,7388,0)=" D:PSBWHAT=""B"""
^XMB(3.9,98,2,7389,0)="""RTN"",""PSBUTL"",199,0)"
^XMB(3.9,98,2,7390,0)=" .S X=$$VERSION^XPDUTL(PSBDATA)"
^XMB(3.9,98,2,7391,0)="""RTN"",""PSBUTL"",200,0)"
^XMB(3.9,98,2,7392,0)=" .S RESULTS(0)=$S(X="""":""-1^Unknown Package/Build"",1:""1^""_X)"
^XMB(3.9,98,2,7393,0)="""RTN"",""PSBUTL"",201,0)"
^XMB(3.9,98,2,7394,0)=" D:PSBWHAT=""P"""
^XMB(3.9,98,2,7395,0)="""RTN"",""PSBUTL"",202,0)"
^XMB(3.9,98,2,7396,0)=" .S X=$$PATCH^XPDUTL(PSBDATA)"
^XMB(3.9,98,2,7397,0)="""RTN"",""PSBUTL"",203,0)"
^XMB(3.9,98,2,7398,0)=" .S RESULTS(0)=$S(X:""1^Patch Is Installed"",1:""-1^Patch Is Not Installed"")"
^XMB(3.9,98,2,7399,0)="""RTN"",""PSBUTL"",204,0)"
^XMB(3.9,98,2,7400,0)=" Q"
^XMB(3.9,98,2,7401,0)="""RTN"",""PSBUTL"",205,0)"
^XMB(3.9,98,2,7402,0)=" ;"
^XMB(3.9,98,2,7403,0)="""RTN"",""PSBUTL"",206,0)"
^XMB(3.9,98,2,7404,0)="VERSION() ; [Extrinsic] "
^XMB(3.9,98,2,7405,0)="""RTN"",""PSBUTL"",207,0)"
^XMB(3.9,98,2,7406,0)=" ; Returns V#.# for display purposes"
^XMB(3.9,98,2,7407,0)="""RTN"",""PSBUTL"",208,0)"
^XMB(3.9,98,2,7408,0)=" Q ""V""_$J(2,0,1)"
^XMB(3.9,98,2,7409,0)="""RTN"",""PSBUTL"",209,0)"
^XMB(3.9,98,2,7410,0)=" ;"
^XMB(3.9,98,2,7411,0)="""RTN"",""PSBUTL"",210,0)"
^XMB(3.9,98,2,7412,0)="RESETADM ;"
^XMB(3.9,98,2,7413,0)="""RTN"",""PSBUTL"",211,0)"
^XMB(3.9,98,2,7414,0)=" ;"
^XMB(3.9,98,2,7415,0)="""RTN"",""PSBUTL"",212,0)"
^XMB(3.9,98,2,7416,0)=" ;  This Subroutine will reset a medication order's resources"
^XMB(3.9,98,2,7417,0)="""RTN"",""PSBUTL"",213,0)"
^XMB(3.9,98,2,7418,0)=" ;  based on Med Log New Entry  or  Edit Med Log activity."
^XMB(3.9,98,2,7419,0)="""RTN"",""PSBUTL"",214,0)"
^XMB(3.9,98,2,7420,0)=" ;"
^XMB(3.9,98,2,7421,0)="""RTN"",""PSBUTL"",215,0)"
^XMB(3.9,98,2,7422,0)=" ;  No input is necessary.  Environment should be setup at call."
^XMB(3.9,98,2,7423,0)="""RTN"",""PSBUTL"",216,0)"
^XMB(3.9,98,2,7424,0)=" ;"
^XMB(3.9,98,2,7425,0)="""RTN"",""PSBUTL"",217,0)"
^XMB(3.9,98,2,7426,0)=" I '$G(PSBMMEN) S X=$S($P(PSBIEN,"","",2)]"""":$P(PSBIEN,"","",2),1:+PSBIEN) D CLEAN^PSBVT,PSJ1^PSBVT($P(^PSB(53.79,X,0),U),$P(^PSB(53.79,X,.1),U)) D:($$IVPTAB^PSBVDLU3(PSBOTYP,PSBIVT,PSBISYR,PSBCHEMT,$G(PSBMR)))  D CLEAN^PSBVT"
^XMB(3.9,98,2,7427,0)="""RTN"",""PSBUTL"",218,0)"
^XMB(3.9,98,2,7428,0)=" .S X=PSBIEN,X2=X_$S(X=""+1"":"","",1:"""") Q:'$D(PSBFDA(53.79,X2,.09))  I $F(""HR"",PSBFDA(53.79,X2,.09))>1 S PSBFDA(53.79,X2,.26)="""""
^XMB(3.9,98,2,7429,0)="""RTN"",""PSBUTL"",219,0)"
^XMB(3.9,98,2,7430,0)=" I $G(PSBMMEN),PSBIEN=""+1"",$G(PSBONX)[""V"" S PSBWSID=PSBFDA(53.79,""+1,"",.26) K PSBFDA(53.79,""+1,"",.26),PSBFDA(53.79,""+1,"",.09)"
^XMB(3.9,98,2,7431,0)="""RTN"",""PSBUTL"",220,0)"
^XMB(3.9,98,2,7432,0)=" I $G(PSBMMEN) I ($D(PSBWSID))&($G(Y(0))=""SAVE"") D"
^XMB(3.9,98,2,7433,0)="""RTN"",""PSBUTL"",221,0)"
^XMB(3.9,98,2,7434,0)=" .S:(PSBREC(3)=""G"") PSBFDAX(53.79,X,.26)=PSBWSID"
^XMB(3.9,98,2,7435,0)="""RTN"",""PSBUTL"",222,0)"
^XMB(3.9,98,2,7436,0)=" .S:$F(""HR"",PSBREC(3))>1 PSBFDAX(53.79,X,.26)="""""
^XMB(3.9,98,2,7437,0)="""RTN"",""PSBUTL"",223,0)"
^XMB(3.9,98,2,7438,0)=" .S X=$P(PSBIEN,""+1,"",2)"
^XMB(3.9,98,2,7439,0)="""RTN"",""PSBUTL"",224,0)"
^XMB(3.9,98,2,7440,0)=" .D UPDATE^DIE("""",""PSBFDAX"",""X"",""PSBMSG"")"
^XMB(3.9,98,2,7441,0)="""RTN"",""PSBUTL"",225,0)"
^XMB(3.9,98,2,7442,0)=" Q"
^XMB(3.9,98,2,7443,0)="""RTN"",""PSBUTL"",226,0)"
^XMB(3.9,98,2,7444,0)=" ;"
^XMB(3.9,98,2,7445,0)="""RTN"",""PSBUTL"",227,0)"
^XMB(3.9,98,2,7446,0)="SCRNPTCH ;"
^XMB(3.9,98,2,7447,0)="""RTN"",""PSBUTL"",228,0)"
^XMB(3.9,98,2,7448,0)=" ;"
^XMB(3.9,98,2,7449,0)="""RTN"",""PSBUTL"",229,0)"
^XMB(3.9,98,2,7450,0)=" ; Maiintain the ""APATCH"" index from SCREENMAN and Manual Med Entry."
^XMB(3.9,98,2,7451,0)="""RTN"",""PSBUTL"",230,0)"
^XMB(3.9,98,2,7452,0)=" ;"
^XMB(3.9,98,2,7453,0)="""RTN"",""PSBUTL"",231,0)"
^XMB(3.9,98,2,7454,0)=" I Y(0)'=""GIVEN"" S PSBGPTCH=0 Q"
^XMB(3.9,98,2,7455,0)="""RTN"",""PSBUTL"",232,0)"
^XMB(3.9,98,2,7456,0)=" S PSBX=0 F  S PSBX=$O(^PSB(53.79,DA,.5,PSBX))  Q:+PSBX=0  Q:$P(^PSB(53.79,DA,.5,+PSBX,0),U,4)=""PATCH"""
^XMB(3.9,98,2,7457,0)="""RTN"",""PSBUTL"",233,0)"
^XMB(3.9,98,2,7458,0)=" Q:+PSBX=0"
^XMB(3.9,98,2,7459,0)="""RTN"",""PSBUTL"",234,0)"
^XMB(3.9,98,2,7460,0)=" S PSBGPTCH=1"
^XMB(3.9,98,2,7461,0)="""RTN"",""PSBUTL"",235,0)"
^XMB(3.9,98,2,7462,0)=" Q"
^XMB(3.9,98,2,7463,0)="""RTN"",""PSBUTL"",236,0)"
^XMB(3.9,98,2,7464,0)=" ;"
^XMB(3.9,98,2,7465,0)="""RTN"",""PSBUTL"",237,0)"
^XMB(3.9,98,2,7466,0)="GIVEPTCH ;"
^XMB(3.9,98,2,7467,0)="""RTN"",""PSBUTL"",238,0)"
^XMB(3.9,98,2,7468,0)=" I $D(^PSB(53.79,""AORD"",DFN,PSBONX)) N PSBX S PSBX="""" F  S PSBX=$O(^PSB(53.79,""AORD"",DFN,PSBONX,PSBX)) Q:+PSBX=0  D:$D(^PSB(53.79,""AORD"",DFN,PSBONX,PSBX,DA))  Q:'$D(PSBX)"
^XMB(3.9,98,2,7469,0)="""RTN"",""PSBUTL"",239,0)"
^XMB(3.9,98,2,7470,0)=" .I $D(^PSB(53.79,""AORD"",DFN,PSBONX,PSBX,DA)) D"
^XMB(3.9,98,2,7471,0)="""RTN"",""PSBUTL"",240,0)"
^XMB(3.9,98,2,7472,0)=" ..S PSBX=$P(^PSB(53.79,DA,0),U,6)"
^XMB(3.9,98,2,7473,0)="""RTN"",""PSBUTL"",241,0)"
^XMB(3.9,98,2,7474,0)=" ..I PSBGPTCH S ^PSB(53.79,""APATCH"",DFN,PSBX,DA)="""" K PSBX,PSBGPTCH Q"
^XMB(3.9,98,2,7475,0)="""RTN"",""PSBUTL"",242,0)"
^XMB(3.9,98,2,7476,0)=" ..I 'PSBGPTCH K ^PSB(53.79,""APATCH"",DFN,PSBX,DA),PSBX,PSBGPTCH"
^XMB(3.9,98,2,7477,0)="""RTN"",""PSBUTL"",243,0)"
^XMB(3.9,98,2,7478,0)=" Q"
^XMB(3.9,98,2,7479,0)="""RTN"",""PSBVDLPA"")"
^XMB(3.9,98,2,7480,0)="0^3^B13252041^B11710856"
^XMB(3.9,98,2,7481,0)="""RTN"",""PSBVDLPA"",1,0)"
^XMB(3.9,98,2,7482,0)="PSBVDLPA ;BIRMINGHAM/EFC-BCMA UNIT DOSE VIRTUAL DUE LIST FUNCTIONS ;Mar 2004"
^XMB(3.9,98,2,7483,0)="""RTN"",""PSBVDLPA"",2,0)"
^XMB(3.9,98,2,7484,0)=" ;;3.0;BAR CODE MED ADMIN;**5,16,13**;Mar 2004"
^XMB(3.9,98,2,7485,0)="""RTN"",""PSBVDLPA"",3,0)"
^XMB(3.9,98,2,7486,0)=" ;"
^XMB(3.9,98,2,7487,0)="""RTN"",""PSBVDLPA"",4,0)"
^XMB(3.9,98,2,7488,0)=" ; called by PSBVDLUD to find patches not removed"
^XMB(3.9,98,2,7489,0)="""RTN"",""PSBVDLPA"",5,0)"
^XMB(3.9,98,2,7490,0)=" ;"
^XMB(3.9,98,2,7491,0)="""RTN"",""PSBVDLPA"",6,0)"
^XMB(3.9,98,2,7492,0)=" ; Reference/IA"
^XMB(3.9,98,2,7493,0)="""RTN"",""PSBVDLPA"",7,0)"
^XMB(3.9,98,2,7494,0)=" ; $$GET^XPAR/2263"
^XMB(3.9,98,2,7495,0)="""RTN"",""PSBVDLPA"",8,0)"
^XMB(3.9,98,2,7496,0)=" ; $$FMADD^XLFDT/10103"
^XMB(3.9,98,2,7497,0)="""RTN"",""PSBVDLPA"",9,0)"
^XMB(3.9,98,2,7498,0)=" ;"
^XMB(3.9,98,2,7499,0)="""RTN"",""PSBVDLPA"",10,0)"
^XMB(3.9,98,2,7500,0)="EN ;"
^XMB(3.9,98,2,7501,0)="""RTN"",""PSBVDLPA"",11,0)"
^XMB(3.9,98,2,7502,0)=" S PSBGNODE=""^PSB(53.79,""_""""""APATCH""""""_"",""_DFN_"")"""
^XMB(3.9,98,2,7503,0)="""RTN"",""PSBVDLPA"",12,0)"
^XMB(3.9,98,2,7504,0)=" F  S PSBGNODE=$Q(@PSBGNODE) Q:($QS(PSBGNODE,2)'=""APATCH"")!($QS(PSBGNODE,3)'=DFN)  D"
^XMB(3.9,98,2,7505,0)="""RTN"",""PSBVDLPA"",13,0)"
^XMB(3.9,98,2,7506,0)=" .S PSBIEN=$QS(PSBGNODE,5)"
^XMB(3.9,98,2,7507,0)="""RTN"",""PSBVDLPA"",14,0)"
^XMB(3.9,98,2,7508,0)=" .I '$D(^PSB(53.79,PSBIEN,.5,1)) Q"
^XMB(3.9,98,2,7509,0)="""RTN"",""PSBVDLPA"",15,0)"
^XMB(3.9,98,2,7510,0)=" .I $P(^PSB(53.79,PSBIEN,.5,1,0),U,4)'=""PATCH"" Q"
^XMB(3.9,98,2,7511,0)="""RTN"",""PSBVDLPA"",16,0)"
^XMB(3.9,98,2,7512,0)=" .I ""G""'[$P(^PSB(53.79,PSBIEN,0),U,9)!($D(PSBONVDL(PSBIEN))) Q"
^XMB(3.9,98,2,7513,0)="""RTN"",""PSBVDLPA"",17,0)"
^XMB(3.9,98,2,7514,0)=" .S PSBPBK=+($$GET^XPAR(""DIV"",""PSB VDL PATCH DAYS""))"
^XMB(3.9,98,2,7515,0)="""RTN"",""PSBVDLPA"",18,0)"
^XMB(3.9,98,2,7516,0)=" .S PSBZON=$P(^PSB(53.79,PSBIEN,.1),""^"")"
^XMB(3.9,98,2,7517,0)="""RTN"",""PSBVDLPA"",19,0)"
^XMB(3.9,98,2,7518,0)=" .D CLEAN^PSBVT"
^XMB(3.9,98,2,7519,0)="""RTN"",""PSBVDLPA"",20,0)"
^XMB(3.9,98,2,7520,0)=" .D PSJ1^PSBVT(DFN,PSBZON)"
^XMB(3.9,98,2,7521,0)="""RTN"",""PSBVDLPA"",21,0)"
^XMB(3.9,98,2,7522,0)=" .I PSBPBK'=0 D NOW^%DTC I ($$FMADD^XLFDT($P(PSBOSP,"".""),(PSBPBK))<X) Q"
^XMB(3.9,98,2,7523,0)="""RTN"",""PSBVDLPA"",22,0)"
^XMB(3.9,98,2,7524,0)=" .S $P(PSBREC,U,1)=DFN  ; dfn"
^XMB(3.9,98,2,7525,0)="""RTN"",""PSBVDLPA"",23,0)"
^XMB(3.9,98,2,7526,0)=" .S $P(PSBREC,U,2)=PSBONX  ; order numer"
^XMB(3.9,98,2,7527,0)="""RTN"",""PSBVDLPA"",24,0)"
^XMB(3.9,98,2,7528,0)=" .S $P(PSBREC,U,3)=PSBON  ; order ien"
^XMB(3.9,98,2,7529,0)="""RTN"",""PSBVDLPA"",25,0)"
^XMB(3.9,98,2,7530,0)=" .S $P(PSBREC,U,4)=""U""  ; order type U unit dose"
^XMB(3.9,98,2,7531,0)="""RTN"",""PSBVDLPA"",26,0)"
^XMB(3.9,98,2,7532,0)=" .S $P(PSBREC,U,5)=PSBSCHT"
^XMB(3.9,98,2,7533,0)="""RTN"",""PSBVDLPA"",27,0)"
^XMB(3.9,98,2,7534,0)=" .S $P(PSBREC,U,6)=PSBSCH"
^XMB(3.9,98,2,7535,0)="""RTN"",""PSBVDLPA"",28,0)"
^XMB(3.9,98,2,7536,0)=" .S $P(PSBREC,U,7)=$S(PSBHSM:""HSM"",PSBSM:""SM"",1:"""")"
^XMB(3.9,98,2,7537,0)="""RTN"",""PSBVDLPA"",29,0)"
^XMB(3.9,98,2,7538,0)=" .S $P(PSBREC,U,8)=PSBOITX"
^XMB(3.9,98,2,7539,0)="""RTN"",""PSBVDLPA"",30,0)"
^XMB(3.9,98,2,7540,0)=" .S $P(PSBREC,U,9)=PSBDOSE"
^XMB(3.9,98,2,7541,0)="""RTN"",""PSBVDLPA"",31,0)"
^XMB(3.9,98,2,7542,0)=" .S $P(PSBREC,U,10)=PSBMR"
^XMB(3.9,98,2,7543,0)="""RTN"",""PSBVDLPA"",32,0)"
^XMB(3.9,98,2,7544,0)=" .S:$D(PSBHSTAX(PSBOIT)) $P(PSBREC,U,11)=$O(PSBHSTAX(PSBOIT,""""),-1),$P(PSBREC,U,20)=$O(PSBHSTAX(PSBOIT,$P(PSBREC,U,11),""""),-1)"
^XMB(3.9,98,2,7545,0)="""RTN"",""PSBVDLPA"",33,0)"
^XMB(3.9,98,2,7546,0)=" .D:'$D(PSBHSTAX(PSBOIT))"
^XMB(3.9,98,2,7547,0)="""RTN"",""PSBVDLPA"",34,0)"
^XMB(3.9,98,2,7548,0)=" ..N PSBX,PSBY,PSBDONE S PSBDONE=0,PSBX="""" F  S PSBX=$O(^PSB(53.79,""AOIP"",DFN,PSBOIT,PSBX),-1) Q:PSBX=""""  D:'PSBDONE"
^XMB(3.9,98,2,7549,0)="""RTN"",""PSBVDLPA"",35,0)"
^XMB(3.9,98,2,7550,0)=" ...S PSBY="""" F  S PSBY=$O(^PSB(53.79,""AOIP"",DFN,PSBOIT,PSBX,PSBY),-1) Q:PSBY=""""  D:'PSBDONE"
^XMB(3.9,98,2,7551,0)="""RTN"",""PSBVDLPA"",36,0)"
^XMB(3.9,98,2,7552,0)=" ....S:$P(^PSB(53.79,PSBY,0),U,9)'=""N"" $P(PSBREC,U,20)=$P(^PSB(53.79,PSBY,0),U,9) S:($P(PSBREC,U,20)'=""N"")&($P(PSBREC,U,20)]"""") $P(PSBREC,U,11)=PSBX,PSBDONE=1"
^XMB(3.9,98,2,7553,0)="""RTN"",""PSBVDLPA"",37,0)"
^XMB(3.9,98,2,7554,0)=" .S $P(PSBREC,U,12)=PSBIEN"
^XMB(3.9,98,2,7555,0)="""RTN"",""PSBVDLPA"",38,0)"
^XMB(3.9,98,2,7556,0)=" .S $P(PSBREC,U,13)=""G"""
^XMB(3.9,98,2,7557,0)="""RTN"",""PSBVDLPA"",39,0)"
^XMB(3.9,98,2,7558,0)=" .S $P(PSBREC,U,14)=$P(^PSB(53.79,PSBIEN,.1),U,3)"
^XMB(3.9,98,2,7559,0)="""RTN"",""PSBVDLPA"",40,0)"
^XMB(3.9,98,2,7560,0)=" .I $P(PSBREC,U,14)="""" S $P(PSBREC,U,14)=PSBNOW\1"
^XMB(3.9,98,2,7561,0)="""RTN"",""PSBVDLPA"",41,0)"
^XMB(3.9,98,2,7562,0)=" .S $P(PSBREC,U,15)=PSBOIT"
^XMB(3.9,98,2,7563,0)="""RTN"",""PSBVDLPA"",42,0)"
^XMB(3.9,98,2,7564,0)=" .D:$G(PSBTAB)=""CVRSHT"""
^XMB(3.9,98,2,7565,0)="""RTN"",""PSBVDLPA"",43,0)"
^XMB(3.9,98,2,7566,0)=" ..S $P(PSBREC,U,16)=0"
^XMB(3.9,98,2,7567,0)="""RTN"",""PSBVDLPA"",44,0)"
^XMB(3.9,98,2,7568,0)=" ..F X=""ID"",""IV"",""IM"",""SC"",""SQ"" D  Q:$P(PSBREC,U,16)"
^XMB(3.9,98,2,7569,0)="""RTN"",""PSBVDLPA"",45,0)"
^XMB(3.9,98,2,7570,0)=" ...I PSBMR?@("".E1""""""_X_"""""".E""),PSBMR'[""MISC"" S $P(PSBREC,U,16)=1"
^XMB(3.9,98,2,7571,0)="""RTN"",""PSBVDLPA"",46,0)"
^XMB(3.9,98,2,7572,0)=" ..I $P(PSBREC,U,9)?1.4N1""-""1.4N.E S $P(PSBREC,U,17)=1"
^XMB(3.9,98,2,7573,0)="""RTN"",""PSBVDLPA"",47,0)"
^XMB(3.9,98,2,7574,0)=" ..E  S $P(PSBREC,U,17)=0"
^XMB(3.9,98,2,7575,0)="""RTN"",""PSBVDLPA"",48,0)"
^XMB(3.9,98,2,7576,0)=" ..S $P(PSBREC,U,19)=$S(PSBVNI]"""":PSBVNI,PSBVNI']"""":""***"")"
^XMB(3.9,98,2,7577,0)="""RTN"",""PSBVDLPA"",49,0)"
^XMB(3.9,98,2,7578,0)=" ..S $P(PSBREC,U,23)="""""
^XMB(3.9,98,2,7579,0)="""RTN"",""PSBVDLPA"",50,0)"
^XMB(3.9,98,2,7580,0)=" ..S $P(PSBREC,U,26)=PSBOSP"
^XMB(3.9,98,2,7581,0)="""RTN"",""PSBVDLPA"",51,0)"
^XMB(3.9,98,2,7582,0)=" ..S $P(PSBREC,U,27)=$$LASTG^PSBCSUTL($P(PSBREC,U),$P(PSBREC,U,15))"
^XMB(3.9,98,2,7583,0)="""RTN"",""PSBVDLPA"",52,0)"
^XMB(3.9,98,2,7584,0)=" ..S $P(PSBREC,U,28)=1"
^XMB(3.9,98,2,7585,0)="""RTN"",""PSBVDLPA"",53,0)"
^XMB(3.9,98,2,7586,0)=" ..; Place into Coversheet activity ARRAY"
^XMB(3.9,98,2,7587,0)="""RTN"",""PSBVDLPA"",54,0)"
^XMB(3.9,98,2,7588,0)=" ..S PSBDIDX="""" I $D(^PSB(53.79,""AORD"",DFN,PSBONX)) D"
^XMB(3.9,98,2,7589,0)="""RTN"",""PSBVDLPA"",55,0)"
^XMB(3.9,98,2,7590,0)=" ...S PSBXDTI="""",PSBXDTI=$O(^PSB(53.79,""AORD"",DFN,PSBONX,PSBXDTI),-1)"
^XMB(3.9,98,2,7591,0)="""RTN"",""PSBVDLPA"",56,0)"
^XMB(3.9,98,2,7592,0)=" ...Q:'$D(^PSB(53.79,""AORD"",DFN,PSBONX,PSBXDTI,PSBIEN))"
^XMB(3.9,98,2,7593,0)="""RTN"",""PSBVDLPA"",57,0)"
^XMB(3.9,98,2,7594,0)=" ...S PSBADMX(PSBONX,PSBXDTI,PSBIEN)="""",PSBDIDX=1"
^XMB(3.9,98,2,7595,0)="""RTN"",""PSBVDLPA"",58,0)"
^XMB(3.9,98,2,7596,0)=" ..I ('PSBDIDX)&$D(^PSB(53.79,""AORDX"",DFN,PSBONX)) D"
^XMB(3.9,98,2,7597,0)="""RTN"",""PSBVDLPA"",59,0)"
^XMB(3.9,98,2,7598,0)=" ...S PSBXXDTI="""",PSBXXDTI=$O(^PSB(53.79,""AORDX"",DFN,PSBONX,PSBXXDTI),-1)"
^XMB(3.9,98,2,7599,0)="""RTN"",""PSBVDLPA"",60,0)"
^XMB(3.9,98,2,7600,0)=" ...Q:'$D(^PSB(53.79,""AORDX"",DFN,PSBONX,PSBXXDTI,PSBIEN))"
^XMB(3.9,98,2,7601,0)="""RTN"",""PSBVDLPA"",61,0)"
^XMB(3.9,98,2,7602,0)=" ...S PSBADMX(PSBONX,PSBXXDTI,PSBIEN)="""""
^XMB(3.9,98,2,7603,0)="""RTN"",""PSBVDLPA"",62,0)"
^XMB(3.9,98,2,7604,0)=" .S $P(PSBREC,U,18)=""PATCH"""
^XMB(3.9,98,2,7605,0)="""RTN"",""PSBVDLPA"",63,0)"
^XMB(3.9,98,2,7606,0)=" .S $P(PSBREC,U,21)=PSBOST"
^XMB(3.9,98,2,7607,0)="""RTN"",""PSBVDLPA"",64,0)"
^XMB(3.9,98,2,7608,0)=" .S $P(PSBREC,U,22)=PSBOSTS"
^XMB(3.9,98,2,7609,0)="""RTN"",""PSBVDLPA"",65,0)"
^XMB(3.9,98,2,7610,0)=" .S PSBDDS="""" F Y=0:0 S Y=$O(PSBDDA(Y)) Q:'Y  S:$P(PSBDDA(Y),U,4)="""" $P(PSBDDA(Y),U,4)=1 S PSBDDS=PSBDDS_U_$P(PSBDDA(Y),U,1,4),$P(PSBDDS,U,1)=PSBDDS+1"
^XMB(3.9,98,2,7611,0)="""RTN"",""PSBVDLPA"",66,0)"
^XMB(3.9,98,2,7612,0)=" .S PSBQRR=1"
^XMB(3.9,98,2,7613,0)="""RTN"",""PSBVDLPA"",67,0)"
^XMB(3.9,98,2,7614,0)=" .D ADD^PSBVDLU1(PSBREC,PSBOTXT,$P(PSBREC,U,14),PSBDDS,"""","""",$S($G(PSBTAB)=""CVRSHT"":""CVRSHT"",1:""UDTAB""))"
^XMB(3.9,98,2,7615,0)="""RTN"",""PSBVDLPA"",68,0)"
^XMB(3.9,98,2,7616,0)=" K PSBPBK,PSBONVDL"
^XMB(3.9,98,2,7617,0)="""RTN"",""PSBVDLPA"",69,0)"
^XMB(3.9,98,2,7618,0)=" Q"
^XMB(3.9,98,2,7619,0)="""RTN"",""PSBVDLPB"")"
^XMB(3.9,98,2,7620,0)="0^6^B84312284^B82592790"
^XMB(3.9,98,2,7621,0)="""RTN"",""PSBVDLPB"",1,0)"
^XMB(3.9,98,2,7622,0)="PSBVDLPB ;BIRMINGHAM/EFC-BCMA IV VIRTUAL DUE LIST ;Mar 2004"
^XMB(3.9,98,2,7623,0)="""RTN"",""PSBVDLPB"",2,0)"
^XMB(3.9,98,2,7624,0)=" ;;3.0;BAR CODE MED ADMIN;**11,13**;Mar 2004"
^XMB(3.9,98,2,7625,0)="""RTN"",""PSBVDLPB"",3,0)"
^XMB(3.9,98,2,7626,0)=" ;"
^XMB(3.9,98,2,7627,0)="""RTN"",""PSBVDLPB"",4,0)"
^XMB(3.9,98,2,7628,0)=" ; Reference/IA"
^XMB(3.9,98,2,7629,0)="""RTN"",""PSBVDLPB"",5,0)"
^XMB(3.9,98,2,7630,0)=" ; EN^PSJBCMA/2828"
^XMB(3.9,98,2,7631,0)="""RTN"",""PSBVDLPB"",6,0)"
^XMB(3.9,98,2,7632,0)=" ; $$GET^XPAR/2263"
^XMB(3.9,98,2,7633,0)="""RTN"",""PSBVDLPB"",7,0)"
^XMB(3.9,98,2,7634,0)=" ; File 200/10060"
^XMB(3.9,98,2,7635,0)="""RTN"",""PSBVDLPB"",8,0)"
^XMB(3.9,98,2,7636,0)=" ;"
^XMB(3.9,98,2,7637,0)="""RTN"",""PSBVDLPB"",9,0)"
^XMB(3.9,98,2,7638,0)="EN(DFN,PSBDT) ; Default Order List Return for Today"
^XMB(3.9,98,2,7639,0)="""RTN"",""PSBVDLPB"",10,0)"
^XMB(3.9,98,2,7640,0)=" ;"
^XMB(3.9,98,2,7641,0)="""RTN"",""PSBVDLPB"",11,0)"
^XMB(3.9,98,2,7642,0)=" ; RPC: PSB GETORDERLIST"
^XMB(3.9,98,2,7643,0)="""RTN"",""PSBVDLPB"",12,0)"
^XMB(3.9,98,2,7644,0)=" ;"
^XMB(3.9,98,2,7645,0)="""RTN"",""PSBVDLPB"",13,0)"
^XMB(3.9,98,2,7646,0)=" ; Description:"
^XMB(3.9,98,2,7647,0)="""RTN"",""PSBVDLPB"",14,0)"
^XMB(3.9,98,2,7648,0)=" ; Returns the current IV order set for today to display on the"
^XMB(3.9,98,2,7649,0)="""RTN"",""PSBVDLPB"",15,0)"
^XMB(3.9,98,2,7650,0)=" ; client VDL"
^XMB(3.9,98,2,7651,0)="""RTN"",""PSBVDLPB"",16,0)"
^XMB(3.9,98,2,7652,0)=" ;"
^XMB(3.9,98,2,7653,0)="""RTN"",""PSBVDLPB"",17,0)"
^XMB(3.9,98,2,7654,0)=" ;"
^XMB(3.9,98,2,7655,0)="""RTN"",""PSBVDLPB"",18,0)"
^XMB(3.9,98,2,7656,0)=" N PSBDATA,PSBTBOUT"
^XMB(3.9,98,2,7657,0)="""RTN"",""PSBVDLPB"",19,0)"
^XMB(3.9,98,2,7658,0)=" S PSBTBOUT=0,PSBDOADD=0"
^XMB(3.9,98,2,7659,0)="""RTN"",""PSBVDLPB"",20,0)"
^XMB(3.9,98,2,7660,0)=" S:PSBTAB=""PBTAB"" PSBDOADD=1"
^XMB(3.9,98,2,7661,0)="""RTN"",""PSBVDLPB"",21,0)"
^XMB(3.9,98,2,7662,0)=" ;"
^XMB(3.9,98,2,7663,0)="""RTN"",""PSBVDLPB"",22,0)"
^XMB(3.9,98,2,7664,0)=" ;This routine now re-uses the ^TMP(""PSJ"",$J global built in PSBVDLTB"
^XMB(3.9,98,2,7665,0)="""RTN"",""PSBVDLPB"",23,0)"
^XMB(3.9,98,2,7666,0)=" ;"
^XMB(3.9,98,2,7667,0)="""RTN"",""PSBVDLPB"",24,0)"
^XMB(3.9,98,2,7668,0)=" I $G(^TMP(""PSJ"",$J,1,0))=-1 Q  ; No orders"
^XMB(3.9,98,2,7669,0)="""RTN"",""PSBVDLPB"",25,0)"
^XMB(3.9,98,2,7670,0)=" ;"
^XMB(3.9,98,2,7671,0)="""RTN"",""PSBVDLPB"",26,0)"
^XMB(3.9,98,2,7672,0)=" F PSBX=0:0 S PSBX=$O(^TMP(""PSJ"",$J,PSBX)) Q:('PSBX)!(PSBTBOUT)  D"
^XMB(3.9,98,2,7673,0)="""RTN"",""PSBVDLPB"",27,0)"
^XMB(3.9,98,2,7674,0)=" .D CLEAN^PSBVT,PSJ^PSBVT(PSBX)"
^XMB(3.9,98,2,7675,0)="""RTN"",""PSBVDLPB"",28,0)"
^XMB(3.9,98,2,7676,0)=" .;"
^XMB(3.9,98,2,7677,0)="""RTN"",""PSBVDLPB"",29,0)"
^XMB(3.9,98,2,7678,0)=" .; << Standard checks for ALL orders >>"
^XMB(3.9,98,2,7679,0)="""RTN"",""PSBVDLPB"",30,0)"
^XMB(3.9,98,2,7680,0)=" .;"
^XMB(3.9,98,2,7681,0)="""RTN"",""PSBVDLPB"",31,0)"
^XMB(3.9,98,2,7682,0)=" .Q:PSBONX[""P""  ;     No Pending Orders"
^XMB(3.9,98,2,7683,0)="""RTN"",""PSBVDLPB"",32,0)"
^XMB(3.9,98,2,7684,0)=" .Q:'$$IVPTAB^PSBVDLU3(PSBOTYP,PSBIVT,PSBISYR,PSBCHEMT,PSBMR)"
^XMB(3.9,98,2,7685,0)="""RTN"",""PSBVDLPB"",33,0)"
^XMB(3.9,98,2,7686,0)=" .Q:PSBOST>PSBWADM  ; Order Start Date/Time > admin window"
^XMB(3.9,98,2,7687,0)="""RTN"",""PSBVDLPB"",34,0)"
^XMB(3.9,98,2,7688,0)=" .Q:PSBOSP<PSBWBEG  ; For all Order Stop Date/Time < vdl window"
^XMB(3.9,98,2,7689,0)="""RTN"",""PSBVDLPB"",35,0)"
^XMB(3.9,98,2,7690,0)=" .Q:PSBOSTS[""D""  ;     Is it DC'd"
^XMB(3.9,98,2,7691,0)="""RTN"",""PSBVDLPB"",36,0)"
^XMB(3.9,98,2,7692,0)=" .Q:PSBNGF  ;  Is it marked DO NOT GIVE!"
^XMB(3.9,98,2,7693,0)="""RTN"",""PSBVDLPB"",37,0)"
^XMB(3.9,98,2,7694,0)=" .; Non One-Times with stop date/time < now"
^XMB(3.9,98,2,7695,0)="""RTN"",""PSBVDLPB"",38,0)"
^XMB(3.9,98,2,7696,0)=" .;"
^XMB(3.9,98,2,7697,0)="""RTN"",""PSBVDLPB"",39,0)"
^XMB(3.9,98,2,7698,0)=" .D NOW^%DTC"
^XMB(3.9,98,2,7699,0)="""RTN"",""PSBVDLPB"",40,0)"
^XMB(3.9,98,2,7700,0)=" .Q:PSBOSP<%"
^XMB(3.9,98,2,7701,0)="""RTN"",""PSBVDLPB"",41,0)"
^XMB(3.9,98,2,7702,0)=" .;"
^XMB(3.9,98,2,7703,0)="""RTN"",""PSBVDLPB"",42,0)"
^XMB(3.9,98,2,7704,0)=" .; include Active, Renewed, ReInstated and On Call"
^XMB(3.9,98,2,7705,0)="""RTN"",""PSBVDLPB"",43,0)"
^XMB(3.9,98,2,7706,0)=" .; (Is it not one time)&(Is it not active or renewed or On Call)"
^XMB(3.9,98,2,7707,0)="""RTN"",""PSBVDLPB"",44,0)"
^XMB(3.9,98,2,7708,0)=" .Q:PSBSCHT'=""O""&((PSBOSTS'=""A"")&(PSBOSTS'=""R"")&(PSBOSTS'=""RE"")&(PSBOSTS'=""O"")&(PSBOSTS'=""H""))"
^XMB(3.9,98,2,7709,0)="""RTN"",""PSBVDLPB"",45,0)"
^XMB(3.9,98,2,7710,0)=" .;"
^XMB(3.9,98,2,7711,0)="""RTN"",""PSBVDLPB"",46,0)"
^XMB(3.9,98,2,7712,0)=" .; Is One Time Given"
^XMB(3.9,98,2,7713,0)="""RTN"",""PSBVDLPB"",47,0)"
^XMB(3.9,98,2,7714,0)=" .;"
^XMB(3.9,98,2,7715,0)="""RTN"",""PSBVDLPB"",48,0)"
^XMB(3.9,98,2,7716,0)=" .I PSBSCHT=""O"" D  Q:PSBGVN"
^XMB(3.9,98,2,7717,0)="""RTN"",""PSBVDLPB"",49,0)"
^XMB(3.9,98,2,7718,0)=" ..S (PSBGVN,X,Y)="""""
^XMB(3.9,98,2,7719,0)="""RTN"",""PSBVDLPB"",50,0)"
^XMB(3.9,98,2,7720,0)=" ..F  S X=$O(^PSB(53.79,""AOIP"",DFN,PSBOIT,X),-1) Q:'X  D"
^XMB(3.9,98,2,7721,0)="""RTN"",""PSBVDLPB"",51,0)"
^XMB(3.9,98,2,7722,0)=" ...F  S Y=$O(^PSB(53.79,""AOIP"",DFN,PSBOIT,X,Y),-1) Q:'Y  S:($P(^PSB(53.79,Y,.1),U)=PSBONX)&($P(^PSB(53.79,Y,0),U,9)=""G"") PSBGVN=1,(X,Y)=0"
^XMB(3.9,98,2,7723,0)="""RTN"",""PSBVDLPB"",52,0)"
^XMB(3.9,98,2,7724,0)=" .;"
^XMB(3.9,98,2,7725,0)="""RTN"",""PSBVDLPB"",53,0)"
^XMB(3.9,98,2,7726,0)=" .; How long does One Time remain on VDL ?"
^XMB(3.9,98,2,7727,0)="""RTN"",""PSBVDLPB"",54,0)"
^XMB(3.9,98,2,7728,0)=" .S PSBRMN=1"
^XMB(3.9,98,2,7729,0)="""RTN"",""PSBVDLPB"",55,0)"
^XMB(3.9,98,2,7730,0)=" .I PSBSCHT=""O"",PSBOSP'=PSBOST,%>PSBOSP S PSBRMN=0"
^XMB(3.9,98,2,7731,0)="""RTN"",""PSBVDLPB"",56,0)"
^XMB(3.9,98,2,7732,0)=" .Q:'PSBRMN"
^XMB(3.9,98,2,7733,0)="""RTN"",""PSBVDLPB"",57,0)"
^XMB(3.9,98,2,7734,0)=" .;"
^XMB(3.9,98,2,7735,0)="""RTN"",""PSBVDLPB"",58,0)"
^XMB(3.9,98,2,7736,0)=" .; Is On-Call Given, Can it be given more than once"
^XMB(3.9,98,2,7737,0)="""RTN"",""PSBVDLPB"",59,0)"
^XMB(3.9,98,2,7738,0)=" .;"
^XMB(3.9,98,2,7739,0)="""RTN"",""PSBVDLPB"",60,0)"
^XMB(3.9,98,2,7740,0)=" .I PSBSCHT=""OC"" D  Q:PSBGVN&('$$GET^XPAR(""DIV"",""PSB ADMIN MULTIPLE ONCALL""))"
^XMB(3.9,98,2,7741,0)="""RTN"",""PSBVDLPB"",61,0)"
^XMB(3.9,98,2,7742,0)=" ..S (PSBGVN,X,Y)="""""
^XMB(3.9,98,2,7743,0)="""RTN"",""PSBVDLPB"",62,0)"
^XMB(3.9,98,2,7744,0)=" ..F  S X=$O(^PSB(53.79,""AOIP"",DFN,PSBOIT,X),-1) Q:'X  D"
^XMB(3.9,98,2,7745,0)="""RTN"",""PSBVDLPB"",63,0)"
^XMB(3.9,98,2,7746,0)=" ...F  S Y=$O(^PSB(53.79,""AOIP"",DFN,PSBOIT,X,Y),-1) Q:'Y  S:($P(^PSB(53.79,Y,.1),U)=PSBON)&($P(^PSB(53.79,Y,0),U,9)=""G"") PSBGVN=1,(X,Y)=0"
^XMB(3.9,98,2,7747,0)="""RTN"",""PSBVDLPB"",64,0)"
^XMB(3.9,98,2,7748,0)=" .;"
^XMB(3.9,98,2,7749,0)="""RTN"",""PSBVDLPB"",65,0)"
^XMB(3.9,98,2,7750,0)=" .S PSBSTRT=PSBOST ; Order Start Date/Time"
^XMB(3.9,98,2,7751,0)="""RTN"",""PSBVDLPB"",66,0)"
^XMB(3.9,98,2,7752,0)=" .S PSBSTOP=PSBOSP ; Order Stop Date/Time"
^XMB(3.9,98,2,7753,0)="""RTN"",""PSBVDLPB"",67,0)"
^XMB(3.9,98,2,7754,0)=" .;"
^XMB(3.9,98,2,7755,0)="""RTN"",""PSBVDLPB"",68,0)"
^XMB(3.9,98,2,7756,0)=" .S PSBREC="""""
^XMB(3.9,98,2,7757,0)="""RTN"",""PSBVDLPB"",69,0)"
^XMB(3.9,98,2,7758,0)=" .S $P(PSBREC,U,1)=DFN ; dfn"
^XMB(3.9,98,2,7759,0)="""RTN"",""PSBVDLPB"",70,0)"
^XMB(3.9,98,2,7760,0)=" .S $P(PSBREC,U,2)=PSBONX ; Order"
^XMB(3.9,98,2,7761,0)="""RTN"",""PSBVDLPB"",71,0)"
^XMB(3.9,98,2,7762,0)=" .S $P(PSBREC,U,3)=+PSBON ; order ien"
^XMB(3.9,98,2,7763,0)="""RTN"",""PSBVDLPB"",72,0)"
^XMB(3.9,98,2,7764,0)=" .S $P(PSBREC,U,4)=PSBOTYP ; iv/ud/pending"
^XMB(3.9,98,2,7765,0)="""RTN"",""PSBVDLPB"",73,0)"
^XMB(3.9,98,2,7766,0)=" .S $P(PSBREC,U,5)=PSBSCHT ; schedule type"
^XMB(3.9,98,2,7767,0)="""RTN"",""PSBVDLPB"",74,0)"
^XMB(3.9,98,2,7768,0)=" .S $P(PSBREC,U,6)=PSBSCH ; schedule"
^XMB(3.9,98,2,7769,0)="""RTN"",""PSBVDLPB"",75,0)"
^XMB(3.9,98,2,7770,0)=" .S Y="""""
^XMB(3.9,98,2,7771,0)="""RTN"",""PSBVDLPB"",76,0)"
^XMB(3.9,98,2,7772,0)=" .S:PSBSM Y=""SM"""
^XMB(3.9,98,2,7773,0)="""RTN"",""PSBVDLPB"",77,0)"
^XMB(3.9,98,2,7774,0)=" .S:PSBHSM Y=""HSM"""
^XMB(3.9,98,2,7775,0)="""RTN"",""PSBVDLPB"",78,0)"
^XMB(3.9,98,2,7776,0)=" .S $P(PSBREC,U,7)=Y ; self med"
^XMB(3.9,98,2,7777,0)="""RTN"",""PSBVDLPB"",79,0)"
^XMB(3.9,98,2,7778,0)=" .S $P(PSBREC,U,8)=PSBOITX ; drugname"
^XMB(3.9,98,2,7779,0)="""RTN"",""PSBVDLPB"",80,0)"
^XMB(3.9,98,2,7780,0)=" .S $P(PSBREC,U,9)=PSBDOSE_"" ""_PSBIFR ; dosage"
^XMB(3.9,98,2,7781,0)="""RTN"",""PSBVDLPB"",81,0)"
^XMB(3.9,98,2,7782,0)=" .S $P(PSBREC,U,10)=PSBMR ; route"
^XMB(3.9,98,2,7783,0)="""RTN"",""PSBVDLPB"",82,0)"
^XMB(3.9,98,2,7784,0)=" .; Last Given from the AOIP X-Ref - not given status not excepted"
^XMB(3.9,98,2,7785,0)="""RTN"",""PSBVDLPB"",83,0)"
^XMB(3.9,98,2,7786,0)=" .S (YZ,PSBSTUS,PSBADMER)="""" K PSBHSTA,PSBHSTAX"
^XMB(3.9,98,2,7787,0)="""RTN"",""PSBVDLPB"",84,0)"
^XMB(3.9,98,2,7788,0)=" .F XZ=1:1:20 S YZ=$O(^PSB(53.79,""AOIP"",DFN,PSBOIT,YZ),-1),(PSBCNT,PSBFLAG)=0 Q:YZ=""""  D"
^XMB(3.9,98,2,7789,0)="""RTN"",""PSBVDLPB"",85,0)"
^XMB(3.9,98,2,7790,0)=" ..S:YZ>0 $P(PSBREC,U,11)=YZ"
^XMB(3.9,98,2,7791,0)="""RTN"",""PSBVDLPB"",86,0)"
^XMB(3.9,98,2,7792,0)=" ..S X="""" F  S X=$O(^PSB(53.79,""AOIP"",DFN,PSBOIT,YZ,X),-1) Q:X=""""  D"
^XMB(3.9,98,2,7793,0)="""RTN"",""PSBVDLPB"",87,0)"
^XMB(3.9,98,2,7794,0)=" ...K PSBLCK L +^PSB(53.79,X):1  I  L -^PSB(53.79,X) S PSBLCK=1"
^XMB(3.9,98,2,7795,0)="""RTN"",""PSBVDLPB"",88,0)"
^XMB(3.9,98,2,7796,0)=" ...S PSBSTUS=$P(^PSB(53.79,X,0),U,9)"
^XMB(3.9,98,2,7797,0)="""RTN"",""PSBVDLPB"",89,0)"
^XMB(3.9,98,2,7798,0)=" ...I $G(PSBSTUS)="""" S:'$G(PSBLCK) PSBSTUS=""X"" I $G(PSBLCK) S PSBADMER=1 D"
^XMB(3.9,98,2,7799,0)="""RTN"",""PSBVDLPB"",90,0)"
^XMB(3.9,98,2,7800,0)=" ....K PSBPARM3,PSBPARM5,PSBPARM6,PSBPARM7"
^XMB(3.9,98,2,7801,0)="""RTN"",""PSBVDLPB"",91,0)"
^XMB(3.9,98,2,7802,0)=" ....S PSBPARM6=X,Y=$P(^PSB(53.79,X,.1),U,3) D DD^%DT S PSBPARM3=Y,Y=$P(^PSB(53.79,X,0),U,6) D DD^%DT S PSBPARM5=Y"
^XMB(3.9,98,2,7803,0)="""RTN"",""PSBVDLPB"",92,0)"
^XMB(3.9,98,2,7804,0)=" ....S PSBPARM7=$P(^PSB(53.79,X,0),U,7) S PSBPARM7=""( # ""_PSBPARM7_"" ) ""_$$GET1^DIQ(200,PSBPARM7_"","",.01)"
^XMB(3.9,98,2,7805,0)="""RTN"",""PSBVDLPB"",93,0)"
^XMB(3.9,98,2,7806,0)=" ....K PSBXTMP S PSBXTMP=PSBONX"
^XMB(3.9,98,2,7807,0)="""RTN"",""PSBVDLPB"",94,0)"
^XMB(3.9,98,2,7808,0)=" ....D CLEAN^PSBVT,PSJ1^PSBVT(DFN,$$GET1^DIQ(53.79,PSBPARM6_"","",.11))"
^XMB(3.9,98,2,7809,0)="""RTN"",""PSBVDLPB"",95,0)"
^XMB(3.9,98,2,7810,0)=" ....D ERROR^PSBMLU(PSBONX,PSBOITX,DFN,PSBPARM3_"" admin's ACTION STATUS is """"UNKNOWN""""."",PSBSCH,PSBPARM5,PSBPARM6,PSBPARM7) ;  SEND AN E-MAIL"
^XMB(3.9,98,2,7811,0)="""RTN"",""PSBVDLPB"",96,0)"
^XMB(3.9,98,2,7812,0)=" ....D CLEAN^PSBVT,PSJ1^PSBVT(DFN,PSBXTMP)  ;Reset Variables"
^XMB(3.9,98,2,7813,0)="""RTN"",""PSBVDLPB"",97,0)"
^XMB(3.9,98,2,7814,0)=" ....S X=PSBPARM6 K PSBPARM3,PSBPARM5,PSBPARM6,PSBPARM7"
^XMB(3.9,98,2,7815,0)="""RTN"",""PSBVDLPB"",98,0)"
^XMB(3.9,98,2,7816,0)=" ...K PSBLCK S:(PSBSTUS']"""") PSBSTUS=""U""  I PSBSTUS'=""N"",($G(PSBSTUS)'=""X"") S PSBFLAG=1,PSBHSTA(YZ,$G(PSBSTUS))=""ORIG""_U_X"
^XMB(3.9,98,2,7817,0)="""RTN"",""PSBVDLPB"",99,0)"
^XMB(3.9,98,2,7818,0)=" ...D:PSBSTUS=""N"""
^XMB(3.9,98,2,7819,0)="""RTN"",""PSBVDLPB"",100,0)"
^XMB(3.9,98,2,7820,0)=" ....S $P(PSBREC,U,11)="""""
^XMB(3.9,98,2,7821,0)="""RTN"",""PSBVDLPB"",101,0)"
^XMB(3.9,98,2,7822,0)=" ....S Z="""" F  S Z=$O(^PSB(53.79,X,.9,Z),-1) Q:'Z  Q:PSBFLAG=1  S PSBDATA=$G(^(Z,0)) D"
^XMB(3.9,98,2,7823,0)="""RTN"",""PSBVDLPB"",102,0)"
^XMB(3.9,98,2,7824,0)=" .....I (PSBDATA[""Set to 'NOT GIVEN'"")!(PSBDATA[""Set to 'GIVEN'"")!(PSBDATA[""Set to 'REFUSED'"")!(PSBDATA[""Set to 'HELD'"")!(PSBDATA[""Set to 'MISSING DOSE'"")!(PSBDATA[""Set to 'REMOVED'"") S PSBCNT=PSBCNT+1"
^XMB(3.9,98,2,7825,0)="""RTN"",""PSBVDLPB"",103,0)"
^XMB(3.9,98,2,7826,0)=" .....I (PSBDATA[""STATUS 'HELD'"")!(PSBDATA[""STATUS 'GIVEN'"")!(PSBDATA[""STATUS 'REFUSED'"")!(PSBDATA[""STATUS 'MISSING DOSE'"")!(PSBDATA[""STATUS 'REMOVED'"") S PSBCNT=PSBCNT+1"
^XMB(3.9,98,2,7827,0)="""RTN"",""PSBVDLPB"",104,0)"
^XMB(3.9,98,2,7828,0)=" .....I PSBCNT#2=0,PSBDATA[""'REFUSED'"" S PSBSTUS=""R"" D LAST^PSBVDLU1"
^XMB(3.9,98,2,7829,0)="""RTN"",""PSBVDLPB"",105,0)"
^XMB(3.9,98,2,7830,0)=" .....I PSBCNT#2=0,PSBDATA[""'HELD'"" S PSBSTUS=""H"" D LAST^PSBVDLU1"
^XMB(3.9,98,2,7831,0)="""RTN"",""PSBVDLPB"",106,0)"
^XMB(3.9,98,2,7832,0)=" .....I PSBCNT#2=0,PSBDATA[""'MISSING DOSE'"" S PSBSTUS=""M"" D LAST^PSBVDLU1"
^XMB(3.9,98,2,7833,0)="""RTN"",""PSBVDLPB"",107,0)"
^XMB(3.9,98,2,7834,0)=" .....I PSBCNT#2=0,PSBDATA[""'REMOVED'"" S PSBSTUS=""RM"" D LAST^PSBVDLU1"
^XMB(3.9,98,2,7835,0)="""RTN"",""PSBVDLPB"",108,0)"
^XMB(3.9,98,2,7836,0)=" .....I PSBFLAG=1,'$D(PSBHSTA($P(PSBREC,U,11),$G(PSBSTUS))) S PSBHSTA($P(PSBREC,U,11),$G(PSBSTUS))=Z_U_X"
^XMB(3.9,98,2,7837,0)="""RTN"",""PSBVDLPB"",109,0)"
^XMB(3.9,98,2,7838,0)=" .I $D(PSBHSTA) S $P(PSBREC,U,11)=$O(PSBHSTA(""""),-1),PSBSTUS=$O(PSBHSTA($P(PSBREC,U,11),""""),-1) M PSBHSTAX(PSBOIT)=PSBHSTA K PSBHSTA  ;last action date/time"
^XMB(3.9,98,2,7839,0)="""RTN"",""PSBVDLPB"",110,0)"
^XMB(3.9,98,2,7840,0)=" .S $P(PSBREC,U,12)=""""  ;med log ien inserted below for actual date"
^XMB(3.9,98,2,7841,0)="""RTN"",""PSBVDLPB"",111,0)"
^XMB(3.9,98,2,7842,0)=" .S $P(PSBREC,U,13)=""""  ;med log status inserted below for actual date"
^XMB(3.9,98,2,7843,0)="""RTN"",""PSBVDLPB"",112,0)"
^XMB(3.9,98,2,7844,0)=" .S $P(PSBREC,U,14)="""" ;admin date inserted below"
^XMB(3.9,98,2,7845,0)="""RTN"",""PSBVDLPB"",113,0)"
^XMB(3.9,98,2,7846,0)=" .S $P(PSBREC,U,15)=PSBOIT ; OI Pointer"
^XMB(3.9,98,2,7847,0)="""RTN"",""PSBVDLPB"",114,0)"
^XMB(3.9,98,2,7848,0)=" .S $P(PSBREC,U,16)=0  ; Default to not injectable"
^XMB(3.9,98,2,7849,0)="""RTN"",""PSBVDLPB"",115,0)"
^XMB(3.9,98,2,7850,0)=" .;Scan for injectable routes"
^XMB(3.9,98,2,7851,0)="""RTN"",""PSBVDLPB"",116,0)"
^XMB(3.9,98,2,7852,0)=" .F X=""ID"",""IV"",""IM"",""SC"",""SQ"" D  Q:$P(PSBREC,U,16)"
^XMB(3.9,98,2,7853,0)="""RTN"",""PSBVDLPB"",117,0)"
^XMB(3.9,98,2,7854,0)=" ..I PSBMR?@("".E1""""""_X_"""""".E"") S $P(PSBREC,U,16)=1"
^XMB(3.9,98,2,7855,0)="""RTN"",""PSBVDLPB"",118,0)"
^XMB(3.9,98,2,7856,0)=" .; Variable dosage entered as ####-####?"
^XMB(3.9,98,2,7857,0)="""RTN"",""PSBVDLPB"",119,0)"
^XMB(3.9,98,2,7858,0)=" .I $P(PSBREC,U,9)?1.4N1""-""1.4N.E S $P(PSBREC,U,17)=1"
^XMB(3.9,98,2,7859,0)="""RTN"",""PSBVDLPB"",120,0)"
^XMB(3.9,98,2,7860,0)=" .E  S $P(PSBREC,U,17)=0"
^XMB(3.9,98,2,7861,0)="""RTN"",""PSBVDLPB"",121,0)"
^XMB(3.9,98,2,7862,0)=" .S $P(PSBREC,U,18)=PSBIVT  ;IV TYPE - dosage form"
^XMB(3.9,98,2,7863,0)="""RTN"",""PSBVDLPB"",122,0)"
^XMB(3.9,98,2,7864,0)=" .S $P(PSBREC,U,20)=$S((PSBSTUS=""X"")!(PSBSTUS=""N""):"""",1:PSBSTUS) ;last action status"
^XMB(3.9,98,2,7865,0)="""RTN"",""PSBVDLPB"",123,0)"
^XMB(3.9,98,2,7866,0)=" .S $P(PSBREC,U,21)=PSBOST"
^XMB(3.9,98,2,7867,0)="""RTN"",""PSBVDLPB"",124,0)"
^XMB(3.9,98,2,7868,0)=" .S $P(PSBREC,U,22)=PSBOSTS"
^XMB(3.9,98,2,7869,0)="""RTN"",""PSBVDLPB"",125,0)"
^XMB(3.9,98,2,7870,0)=" .;"
^XMB(3.9,98,2,7871,0)="""RTN"",""PSBVDLPB"",126,0)"
^XMB(3.9,98,2,7872,0)=" .; Gather Dispense Drugs"
^XMB(3.9,98,2,7873,0)="""RTN"",""PSBVDLPB"",127,0)"
^XMB(3.9,98,2,7874,0)=" .D NOW^%DTC"
^XMB(3.9,98,2,7875,0)="""RTN"",""PSBVDLPB"",128,0)"
^XMB(3.9,98,2,7876,0)=" .S (PSBDDS,PSBSOLS,PSBADDS)=""0"""
^XMB(3.9,98,2,7877,0)="""RTN"",""PSBVDLPB"",129,0)"
^XMB(3.9,98,2,7878,0)=" .F Y=0:0 S Y=$O(PSBDDA(Y)) Q:'Y  D"
^XMB(3.9,98,2,7879,0)="""RTN"",""PSBVDLPB"",130,0)"
^XMB(3.9,98,2,7880,0)=" ..Q:$P(PSBDDA(Y),U,4)&($P(PSBDDA(Y),U,4)<%)  ; Inactive"
^XMB(3.9,98,2,7881,0)="""RTN"",""PSBVDLPB"",131,0)"
^XMB(3.9,98,2,7882,0)=" ..S:$P(PSBDDA(Y),U,3)="""" $P(PSBDDA(Y),U,3)=1"
^XMB(3.9,98,2,7883,0)="""RTN"",""PSBVDLPB"",132,0)"
^XMB(3.9,98,2,7884,0)=" ..S PSBDDS=PSBDDS_U_$P(PSBDDA(Y),U,1,3)"
^XMB(3.9,98,2,7885,0)="""RTN"",""PSBVDLPB"",133,0)"
^XMB(3.9,98,2,7886,0)=" ..S $P(PSBDDS,U,1)=PSBDDS+1"
^XMB(3.9,98,2,7887,0)="""RTN"",""PSBVDLPB"",134,0)"
^XMB(3.9,98,2,7888,0)=" .; On-Call One Time PRN orders"
^XMB(3.9,98,2,7889,0)="""RTN"",""PSBVDLPB"",135,0)"
^XMB(3.9,98,2,7890,0)=" .S PSBQRR=0"
^XMB(3.9,98,2,7891,0)="""RTN"",""PSBVDLPB"",136,0)"
^XMB(3.9,98,2,7892,0)=" .I ""^O^OC^P^""[(U_PSBSCHT_U) D  Q"
^XMB(3.9,98,2,7893,0)="""RTN"",""PSBVDLPB"",137,0)"
^XMB(3.9,98,2,7894,0)=" ..I 'PSBDOADD S PSBTBOUT=1,^TMP(""PSB"",$J,""PBTAB"",0)=2,^TMP(""PSB"",$J,""PBTAB"",1)=1,^TMP(""PSB"",$J,""PBTAB"",2)=1 Q"
^XMB(3.9,98,2,7895,0)="""RTN"",""PSBVDLPB"",138,0)"
^XMB(3.9,98,2,7896,0)=" ..D ADD^PSBVDLU1(PSBREC,PSBOTXT,PSBNOW\1,PSBDDS,PSBSOLS,PSBADDS,""PBTAB"")"
^XMB(3.9,98,2,7897,0)="""RTN"",""PSBVDLPB"",139,0)"
^XMB(3.9,98,2,7898,0)=" .;"
^XMB(3.9,98,2,7899,0)="""RTN"",""PSBVDLPB"",140,0)"
^XMB(3.9,98,2,7900,0)=" .; IV's - don't worry about admin times if blank"
^XMB(3.9,98,2,7901,0)="""RTN"",""PSBVDLPB"",141,0)"
^XMB(3.9,98,2,7902,0)=" .I PSBONX[""V"",""PSC""'[PSBIVT,PSBADST="""" D  Q"
^XMB(3.9,98,2,7903,0)="""RTN"",""PSBVDLPB"",142,0)"
^XMB(3.9,98,2,7904,0)=" ..I 'PSBDOADD S PSBTBOUT=1,^TMP(""PSB"",$J,""PBTAB"",0)=2,^TMP(""PSB"",$J,""PBTAB"",1)=1,^TMP(""PSB"",$J,""PBTAB"",2)=1 Q"
^XMB(3.9,98,2,7905,0)="""RTN"",""PSBVDLPB"",143,0)"
^XMB(3.9,98,2,7906,0)=" ..D ADD^PSBVDLU1(PSBREC,PSBOTXT,PSBNOW\1_""."",PSBDDS,PSBSOLS,PSBADDS,""PBTAB"")"
^XMB(3.9,98,2,7907,0)="""RTN"",""PSBVDLPB"",144,0)"
^XMB(3.9,98,2,7908,0)=" .;"
^XMB(3.9,98,2,7909,0)="""RTN"",""PSBVDLPB"",145,0)"
^XMB(3.9,98,2,7910,0)=" .; Now we deal with only continuous"
^XMB(3.9,98,2,7911,0)="""RTN"",""PSBVDLPB"",146,0)"
^XMB(3.9,98,2,7912,0)=" .; process admintimes"
^XMB(3.9,98,2,7913,0)="""RTN"",""PSBVDLPB"",147,0)"
^XMB(3.9,98,2,7914,0)=" .S (PSBYES,PSBODD,PSBYTF)=0"
^XMB(3.9,98,2,7915,0)="""RTN"",""PSBVDLPB"",148,0)"
^XMB(3.9,98,2,7916,0)=" .S:$$PSBDCHK1^PSBVT1(PSBSCH) PSBYES=1"
^XMB(3.9,98,2,7917,0)="""RTN"",""PSBVDLPB"",149,0)"
^XMB(3.9,98,2,7918,0)=" .I PSBYES,PSBADST="""" D ERROR^PSBMLU(PSBONX,PSBOITX,DFN,""Admin times required"",PSBSCH) Q"
^XMB(3.9,98,2,7919,0)="""RTN"",""PSBVDLPB"",150,0)"
^XMB(3.9,98,2,7920,0)=" .F I=1:1 Q:$P(PSBSCH,""-"",I)=""""  I $P(PSBSCH,""-"",I)?2N!($P(PSBSCH,""-"",I)?4N) S PSBYES=1,PSBYTF=1"
^XMB(3.9,98,2,7921,0)="""RTN"",""PSBVDLPB"",151,0)"
^XMB(3.9,98,2,7922,0)=" .I PSBSCHT=""C"",PSBYTF=""1"",PSBADST="""" D ERROR^PSBMLU(PSBONX,PSBOITX,DFN,""Admin times required"",PSBSCH) Q"
^XMB(3.9,98,2,7923,0)="""RTN"",""PSBVDLPB"",152,0)"
^XMB(3.9,98,2,7924,0)=" .S PSBFREQ=$$GETFREQ^PSBVDLU1(DFN,PSBONX)"
^XMB(3.9,98,2,7925,0)="""RTN"",""PSBVDLPB"",153,0)"
^XMB(3.9,98,2,7926,0)=" .I PSBFREQ=""O"" S PSBFREQ=1440"
^XMB(3.9,98,2,7927,0)="""RTN"",""PSBVDLPB"",154,0)"
^XMB(3.9,98,2,7928,0)=" .I PSBFREQ=""D"" S PSBFREQ="""""
^XMB(3.9,98,2,7929,0)="""RTN"",""PSBVDLPB"",155,0)"
^XMB(3.9,98,2,7930,0)=" .I 'PSBYES,PSBFREQ<1 D ERROR^PSBMLU(PSBONX,PSBOITX,DFN,""Invalid frequency received from order"",PSBSCH) Q"
^XMB(3.9,98,2,7931,0)="""RTN"",""PSBVDLPB"",156,0)"
^XMB(3.9,98,2,7932,0)=" .S PSBADMIN=PSBADST"
^XMB(3.9,98,2,7933,0)="""RTN"",""PSBVDLPB"",157,0)"
^XMB(3.9,98,2,7934,0)=" .I (PSBADMIN="""")&(+PSBFREQ>0) D ODDSCH^PSBVDLU1(""PBTAB"") Q  ;calculate admin times based on frequency"
^XMB(3.9,98,2,7935,0)="""RTN"",""PSBVDLPB"",158,0)"
^XMB(3.9,98,2,7936,0)=" .; No admin times, MAYDAY MAYDAY!!"
^XMB(3.9,98,2,7937,0)="""RTN"",""PSBVDLPB"",159,0)"
^XMB(3.9,98,2,7938,0)=" .I +PSBFREQ>0 I (PSBFREQ#1440'=0),(1440#PSBFREQ'=0) S PSBODD=1"
^XMB(3.9,98,2,7939,0)="""RTN"",""PSBVDLPB"",160,0)"
^XMB(3.9,98,2,7940,0)=" .I PSBODD,PSBADST'="""" D ERROR^PSBMLU(PSBONX,PSBOITX,DFN,""Administration Times on ODD SCHEDULE"",PSBSCH) Q"
^XMB(3.9,98,2,7941,0)="""RTN"",""PSBVDLPB"",161,0)"
^XMB(3.9,98,2,7942,0)=" .; process admin times against beginning and ending date"
^XMB(3.9,98,2,7943,0)="""RTN"",""PSBVDLPB"",162,0)"
^XMB(3.9,98,2,7944,0)=" .; build all orders for both days."
^XMB(3.9,98,2,7945,0)="""RTN"",""PSBVDLPB"",163,0)"
^XMB(3.9,98,2,7946,0)=" .F PSBY=1:1 Q:$P(PSBADMIN,""-"",PSBY)=""""  D"
^XMB(3.9,98,2,7947,0)="""RTN"",""PSBVDLPB"",164,0)"
^XMB(3.9,98,2,7948,0)=" ..;For invalid admin times"
^XMB(3.9,98,2,7949,0)="""RTN"",""PSBVDLPB"",165,0)"
^XMB(3.9,98,2,7950,0)=" ..I ($P(PSBADST,""-"",PSBY)'?2N)&($P(PSBADST,""-"",PSBY)'?4N) D ERROR^PSBMLU(PSBONX,PSBOITX,DFN,""Invalid Admin times"",PSBSCH)"
^XMB(3.9,98,2,7951,0)="""RTN"",""PSBVDLPB"",166,0)"
^XMB(3.9,98,2,7952,0)=" ..; apply this time to the beginning window date"
^XMB(3.9,98,2,7953,0)="""RTN"",""PSBVDLPB"",167,0)"
^XMB(3.9,98,2,7954,0)=" ..S PSB=+(PSBWBEG\1_"".""_$P(PSBADMIN,""-"",PSBY))"
^XMB(3.9,98,2,7955,0)="""RTN"",""PSBVDLPB"",168,0)"
^XMB(3.9,98,2,7956,0)=" ..D:(PSB'<PSBWBEG)&(PSB'>PSBWEND)  ; Make sure it is in the window"
^XMB(3.9,98,2,7957,0)="""RTN"",""PSBVDLPB"",169,0)"
^XMB(3.9,98,2,7958,0)=" ...D:(PSB'<PSBSTRT)&(PSB<PSBSTOP)  ; Make sure this time is active"
^XMB(3.9,98,2,7959,0)="""RTN"",""PSBVDLPB"",170,0)"
^XMB(3.9,98,2,7960,0)=" ....D:$$OKAY^PSBVDLU1(PSBSTRT,PSB,PSBSCH,PSBON,PSBOITX,PSBFREQ,PSBOSTS)  ; Okay on this date?"
^XMB(3.9,98,2,7961,0)="""RTN"",""PSBVDLPB"",171,0)"
^XMB(3.9,98,2,7962,0)=" .....I 'PSBDOADD S PSBTBOUT=1,^TMP(""PSB"",$J,""PBTAB"",0)=2,^TMP(""PSB"",$J,""PBTAB"",1)=1,^TMP(""PSB"",$J,""PBTAB"",2)=1 Q"
^XMB(3.9,98,2,7963,0)="""RTN"",""PSBVDLPB"",172,0)"
^XMB(3.9,98,2,7964,0)=" .....D ADD^PSBVDLU1(PSBREC,PSBOTXT,PSB,PSBDDS,PSBSOLS,PSBADDS,""PBTAB"")"
^XMB(3.9,98,2,7965,0)="""RTN"",""PSBVDLPB"",173,0)"
^XMB(3.9,98,2,7966,0)=" ..;"
^XMB(3.9,98,2,7967,0)="""RTN"",""PSBVDLPB"",174,0)"
^XMB(3.9,98,2,7968,0)=" ..Q:(PSBWBEG\1)=(PSBWEND\1)  ; Window only has one day rare but possible"
^XMB(3.9,98,2,7969,0)="""RTN"",""PSBVDLPB"",175,0)"
^XMB(3.9,98,2,7970,0)=" ..;"
^XMB(3.9,98,2,7971,0)="""RTN"",""PSBVDLPB"",176,0)"
^XMB(3.9,98,2,7972,0)=" ..; apply this time to the ending window date"
^XMB(3.9,98,2,7973,0)="""RTN"",""PSBVDLPB"",177,0)"
^XMB(3.9,98,2,7974,0)=" ..S PSB=+(PSBWEND\1_"".""_$P(PSBADMIN,""-"",PSBY))"
^XMB(3.9,98,2,7975,0)="""RTN"",""PSBVDLPB"",178,0)"
^XMB(3.9,98,2,7976,0)=" ..D:(PSB'<PSBWBEG)&(PSB'>PSBWEND)  ; Make sure it is in the window"
^XMB(3.9,98,2,7977,0)="""RTN"",""PSBVDLPB"",179,0)"
^XMB(3.9,98,2,7978,0)=" ...D:(PSB'<PSBSTRT)&(PSB<PSBSTOP)  ; Make sure this time is active"
^XMB(3.9,98,2,7979,0)="""RTN"",""PSBVDLPB"",180,0)"
^XMB(3.9,98,2,7980,0)=" ....D:$$OKAY^PSBVDLU1(PSBSTRT,PSB,PSBSCH,PSBON,PSBOITX,PSBFREQ,PSBOSTS)  ; Okay on this date?"
^XMB(3.9,98,2,7981,0)="""RTN"",""PSBVDLPB"",181,0)"
^XMB(3.9,98,2,7982,0)=" .....I 'PSBDOADD S PSBTBOUT=1,^TMP(""PSB"",$J,""PBTAB"",0)=2,^TMP(""PSB"",$J,""PBTAB"",1)=1,^TMP(""PSB"",$J,""PBTAB"",2)=1 Q"
^XMB(3.9,98,2,7983,0)="""RTN"",""PSBVDLPB"",182,0)"
^XMB(3.9,98,2,7984,0)=" .....D ADD^PSBVDLU1(PSBREC,PSBOTXT,PSB,PSBDDS,PSBSOLS,PSBADDS,""PBTAB"")"
^XMB(3.9,98,2,7985,0)="""RTN"",""PSBVDLPB"",183,0)"
^XMB(3.9,98,2,7986,0)=" ;"
^XMB(3.9,98,2,7987,0)="""RTN"",""PSBVDLPB"",184,0)"
^XMB(3.9,98,2,7988,0)=" ;add initials of verifying pharmacist/verifying nurse"
^XMB(3.9,98,2,7989,0)="""RTN"",""PSBVDLPB"",185,0)"
^XMB(3.9,98,2,7990,0)=" D:PSBDOADD VNURSE^PSBVDLU1(""PBTAB"")"
^XMB(3.9,98,2,7991,0)="""RTN"",""PSBVDLPB"",186,0)"
^XMB(3.9,98,2,7992,0)=" Q"
^XMB(3.9,98,2,7993,0)="""RTN"",""PSBVDLPB"",187,0)"
^XMB(3.9,98,2,7994,0)=" ;"
^XMB(3.9,98,2,7995,0)="""RTN"",""PSBVDLU1"")"
^XMB(3.9,98,2,7996,0)="0^11^B56415430^B53853310"
^XMB(3.9,98,2,7997,0)="""RTN"",""PSBVDLU1"",1,0)"
^XMB(3.9,98,2,7998,0)="PSBVDLU1 ;BIRMINGHAM/EFC-VIRTUAL DUE LIST (VDL) UTILITIES ;Mar 2004"
^XMB(3.9,98,2,7999,0)="""RTN"",""PSBVDLU1"",2,0)"
^XMB(3.9,98,2,8000,0)=" ;;3.0;BAR CODE MED ADMIN;**13**;Mar 2004"
^XMB(3.9,98,2,8001,0)="""RTN"",""PSBVDLU1"",3,0)"
^XMB(3.9,98,2,8002,0)=" ;"
^XMB(3.9,98,2,8003,0)="""RTN"",""PSBVDLU1"",4,0)"
^XMB(3.9,98,2,8004,0)=" ; Reference/IA"
^XMB(3.9,98,2,8005,0)="""RTN"",""PSBVDLU1"",5,0)"
^XMB(3.9,98,2,8006,0)=" ; EN^PSJBCMA1/2829"
^XMB(3.9,98,2,8007,0)="""RTN"",""PSBVDLU1"",6,0)"
^XMB(3.9,98,2,8008,0)=" ;"
^XMB(3.9,98,2,8009,0)="""RTN"",""PSBVDLU1"",7,0)"
^XMB(3.9,98,2,8010,0)="ODDSCH(PSBTABX) ;"
^XMB(3.9,98,2,8011,0)="""RTN"",""PSBVDLU1"",8,0)"
^XMB(3.9,98,2,8012,0)=" I (PSBOST'<PSBWBEG)&(PSBOST'>PSBWEND) D ADD(PSBREC,PSBOTXT,PSBOST,PSBDDS,PSBSOLS,PSBADDS,PSBTABX)  ;Include start date/time as admin"
^XMB(3.9,98,2,8013,0)="""RTN"",""PSBVDLU1"",9,0)"
^XMB(3.9,98,2,8014,0)=" S PSBQUIT=0,PSBCDT=PSBOST F  S PSBCDT=$$FMADD^XLFDT(PSBCDT,"""","""",PSBFREQ) Q:PSBQUIT=1  D"
^XMB(3.9,98,2,8015,0)="""RTN"",""PSBVDLU1"",10,0)"
^XMB(3.9,98,2,8016,0)=" .I $P(PSBCDT,""."",2)="""" S PSBCDT=PSBCDT-1_"".24"""
^XMB(3.9,98,2,8017,0)="""RTN"",""PSBVDLU1"",11,0)"
^XMB(3.9,98,2,8018,0)=" .I PSBCDT>PSBWEND S PSBQUIT=1 Q"
^XMB(3.9,98,2,8019,0)="""RTN"",""PSBVDLU1"",12,0)"
^XMB(3.9,98,2,8020,0)=" .I PSBCDT'<PSBWBEG,PSBCDT<PSBOSP D ADD(PSBREC,PSBOTXT,PSBCDT,PSBDDS,PSBSOLS,PSBADDS,PSBTABX) Q"
^XMB(3.9,98,2,8021,0)="""RTN"",""PSBVDLU1"",13,0)"
^XMB(3.9,98,2,8022,0)=" Q"
^XMB(3.9,98,2,8023,0)="""RTN"",""PSBVDLU1"",14,0)"
^XMB(3.9,98,2,8024,0)="GETFREQ(PSBDFN,PSBORDN) ;"
^XMB(3.9,98,2,8025,0)="""RTN"",""PSBVDLU1"",15,0)"
^XMB(3.9,98,2,8026,0)=" K ^TMP(""PSJ1"",$J)"
^XMB(3.9,98,2,8027,0)="""RTN"",""PSBVDLU1"",16,0)"
^XMB(3.9,98,2,8028,0)=" D EN^PSJBCMA1(PSBDFN,PSBORDN,1)"
^XMB(3.9,98,2,8029,0)="""RTN"",""PSBVDLU1"",17,0)"
^XMB(3.9,98,2,8030,0)=" S PSBFREQ=$P(^TMP(""PSJ1"",$J,4),U,11)"
^XMB(3.9,98,2,8031,0)="""RTN"",""PSBVDLU1"",18,0)"
^XMB(3.9,98,2,8032,0)=" S PSBSCHBR=$P(^TMP(""PSJ1"",$J,2),""^"",5)"
^XMB(3.9,98,2,8033,0)="""RTN"",""PSBVDLU1"",19,0)"
^XMB(3.9,98,2,8034,0)=" I $$PSBDCHK1^PSBVT1(PSBSCHBR) S PSBFREQ="""""
^XMB(3.9,98,2,8035,0)="""RTN"",""PSBVDLU1"",20,0)"
^XMB(3.9,98,2,8036,0)=" K ^TMP(""PSJ1"",$J)"
^XMB(3.9,98,2,8037,0)="""RTN"",""PSBVDLU1"",21,0)"
^XMB(3.9,98,2,8038,0)=" Q PSBFREQ"
^XMB(3.9,98,2,8039,0)="""RTN"",""PSBVDLU1"",22,0)"
^XMB(3.9,98,2,8040,0)=" ;"
^XMB(3.9,98,2,8041,0)="""RTN"",""PSBVDLU1"",23,0)"
^XMB(3.9,98,2,8042,0)="GETADMIN(PSBDFN,PSBORDN,PSBSTRT,PSBFREQ,PSBEVDT) ;"
^XMB(3.9,98,2,8043,0)="""RTN"",""PSBVDLU1"",24,0)"
^XMB(3.9,98,2,8044,0)=" ;Determine administration times of an odd schedule for today"
^XMB(3.9,98,2,8045,0)="""RTN"",""PSBVDLU1"",25,0)"
^XMB(3.9,98,2,8046,0)=" N PSBADMIN"
^XMB(3.9,98,2,8047,0)="""RTN"",""PSBVDLU1"",26,0)"
^XMB(3.9,98,2,8048,0)=" K ^TMP(""PSB"",$J,""GETADMIN"")"
^XMB(3.9,98,2,8049,0)="""RTN"",""PSBVDLU1"",27,0)"
^XMB(3.9,98,2,8050,0)=" D EN^PSJBCMA1(PSBDFN,PSBORDN,1)"
^XMB(3.9,98,2,8051,0)="""RTN"",""PSBVDLU1"",28,0)"
^XMB(3.9,98,2,8052,0)=" S PSBADMIN=$P(^TMP(""PSJ1"",$J,4),U,9),PSBFREQ=$P(^TMP(""PSJ1"",$J,4),U,11),^TMP(""PSB"",$J,""GETADMIN"",0)=PSBADMIN"
^XMB(3.9,98,2,8053,0)="""RTN"",""PSBVDLU1"",29,0)"
^XMB(3.9,98,2,8054,0)=" I $E(PSBFREQ)'?1N K ^TMP(""PSJ1"",$J) Q $G(^TMP(""PSB"",$J,""GETADMIN"",0))"
^XMB(3.9,98,2,8055,0)="""RTN"",""PSBVDLU1"",30,0)"
^XMB(3.9,98,2,8056,0)=" I PSBFREQ=0 K ^TMP(""PSJ1"",$J) Q $G(^TMP(""PSB"",$J,""GETADMIN"",0))"
^XMB(3.9,98,2,8057,0)="""RTN"",""PSBVDLU1"",31,0)"
^XMB(3.9,98,2,8058,0)=" I PSBSTRT'<PSBEVDT S PSBADMIN=$E($P(PSBSTRT,""."",2)_""0000"",1,4),^TMP(""PSB"",$J,""GETADMIN"",0)=PSBADMIN"
^XMB(3.9,98,2,8059,0)="""RTN"",""PSBVDLU1"",32,0)"
^XMB(3.9,98,2,8060,0)=" S PSBCDT=PSBSTRT,(PSBADTMX,PSBQUIT)=0 F  S PSBCDT=$$FMADD^XLFDT(PSBCDT,"""","""",PSBFREQ) D  Q:PSBQUIT=1"
^XMB(3.9,98,2,8061,0)="""RTN"",""PSBVDLU1"",33,0)"
^XMB(3.9,98,2,8062,0)=" .I $P(PSBCDT,""."",2)="""" S PSBCDT=PSBCDT-1_"".24"""
^XMB(3.9,98,2,8063,0)="""RTN"",""PSBVDLU1"",34,0)"
^XMB(3.9,98,2,8064,0)=" .I (PSBCDT\1)>(PSBEVDT\1) S PSBQUIT=1 Q"
^XMB(3.9,98,2,8065,0)="""RTN"",""PSBVDLU1"",35,0)"
^XMB(3.9,98,2,8066,0)=" .I (PSBCDT\1)=(PSBEVDT\1) S PSBADMIN=PSBADMIN_$S(PSBADMIN="""":"""",1:""-"")_$E($P(PSBCDT,""."",2)_""0000"",1,4)"
^XMB(3.9,98,2,8067,0)="""RTN"",""PSBVDLU1"",36,0)"
^XMB(3.9,98,2,8068,0)=" .S ^TMP(""PSB"",$J,""GETADMIN"",PSBADTMX)=PSBADMIN"
^XMB(3.9,98,2,8069,0)="""RTN"",""PSBVDLU1"",37,0)"
^XMB(3.9,98,2,8070,0)=" .S:($L(PSBADMIN)+5)>255 PSBADTMX=PSBADTMX+1,PSBADMIN="""""
^XMB(3.9,98,2,8071,0)="""RTN"",""PSBVDLU1"",38,0)"
^XMB(3.9,98,2,8072,0)=" K ^TMP(""PSJ1"",$J),PSBADTMX"
^XMB(3.9,98,2,8073,0)="""RTN"",""PSBVDLU1"",39,0)"
^XMB(3.9,98,2,8074,0)=" Q $G(^TMP(""PSB"",$J,""GETADMIN"",0))"
^XMB(3.9,98,2,8075,0)="""RTN"",""PSBVDLU1"",40,0)"
^XMB(3.9,98,2,8076,0)=" ;"
^XMB(3.9,98,2,8077,0)="""RTN"",""PSBVDLU1"",41,0)"
^XMB(3.9,98,2,8078,0)="ADD(PSBREC,PSBSI,PSBDT,PSBDD,PSBSOL,PSBADD,PSBTAB) ;"
^XMB(3.9,98,2,8079,0)="""RTN"",""PSBVDLU1"",42,0)"
^XMB(3.9,98,2,8080,0)=" ;"
^XMB(3.9,98,2,8081,0)="""RTN"",""PSBVDLU1"",43,0)"
^XMB(3.9,98,2,8082,0)=" ; Description: Add order to ^TMP(""PSB"",$J,PSBTAB,...) for RPC Return RESULTS"
^XMB(3.9,98,2,8083,0)="""RTN"",""PSBVDLU1"",44,0)"
^XMB(3.9,98,2,8084,0)=" ;"
^XMB(3.9,98,2,8085,0)="""RTN"",""PSBVDLU1"",45,0)"
^XMB(3.9,98,2,8086,0)=" ; PSBREC=order hdr from above"
^XMB(3.9,98,2,8087,0)="""RTN"",""PSBVDLU1"",46,0)"
^XMB(3.9,98,2,8088,0)=" ; PSBSI=special instructions"
^XMB(3.9,98,2,8089,0)="""RTN"",""PSBVDLU1"",47,0)"
^XMB(3.9,98,2,8090,0)=" ; PSBDT=admin date/time"
^XMB(3.9,98,2,8091,0)="""RTN"",""PSBVDLU1"",48,0)"
^XMB(3.9,98,2,8092,0)=" ; PSBDD=Dispense Drugs"
^XMB(3.9,98,2,8093,0)="""RTN"",""PSBVDLU1"",49,0)"
^XMB(3.9,98,2,8094,0)=" ; PSBSOL=Solutions"
^XMB(3.9,98,2,8095,0)="""RTN"",""PSBVDLU1"",50,0)"
^XMB(3.9,98,2,8096,0)=" ; PSBADD=Additives"
^XMB(3.9,98,2,8097,0)="""RTN"",""PSBVDLU1"",51,0)"
^XMB(3.9,98,2,8098,0)=" ;"
^XMB(3.9,98,2,8099,0)="""RTN"",""PSBVDLU1"",52,0)"
^XMB(3.9,98,2,8100,0)=" N PSB"
^XMB(3.9,98,2,8101,0)="""RTN"",""PSBVDLU1"",53,0)"
^XMB(3.9,98,2,8102,0)=" S PSBDT=$E(PSBDT,1,12),PSBQR=0"
^XMB(3.9,98,2,8103,0)="""RTN"",""PSBVDLU1"",54,0)"
^XMB(3.9,98,2,8104,0)=" S PSB=$O(^TMP(""PSB"",$J,PSBTAB,""""),-1) ; Get next node"
^XMB(3.9,98,2,8105,0)="""RTN"",""PSBVDLU1"",55,0)"
^XMB(3.9,98,2,8106,0)=" S $P(PSBREC,U,14)=PSBDT ; Admin Time sits in ^14"
^XMB(3.9,98,2,8107,0)="""RTN"",""PSBVDLU1"",56,0)"
^XMB(3.9,98,2,8108,0)=" I $P(PSBREC,U,5)'=""O"" S X=$O(^PSB(53.79,""AORD"",DFN,PSBONX,PSBDT,0)) D:X"
^XMB(3.9,98,2,8109,0)="""RTN"",""PSBVDLU1"",57,0)"
^XMB(3.9,98,2,8110,0)=" .S $P(PSBREC,U,12)=X"
^XMB(3.9,98,2,8111,0)="""RTN"",""PSBVDLU1"",58,0)"
^XMB(3.9,98,2,8112,0)=" .K PSBLCK L +^PSB(53.79,X):1  I  L -^PSB(53.79,X) S PSBLCK=1"
^XMB(3.9,98,2,8113,0)="""RTN"",""PSBVDLU1"",59,0)"
^XMB(3.9,98,2,8114,0)=" .S PSBSTUS=$P(^PSB(53.79,X,0),U,9),$P(PSBREC,U,13)=$S(PSBSTUS=""N"":"""",(PSBSTUS="""")&$G(PSBLCK):""U"",1:PSBSTUS),$P(PSBREC,U,23)=$P(^PSB(53.79,X,0),U,10),$P(PSBREC,U,24)=$P(^PSB(53.79,X,0),U,7)"
^XMB(3.9,98,2,8115,0)="""RTN"",""PSBVDLU1"",60,0)"
^XMB(3.9,98,2,8116,0)=" .I $D(^PSB(53.79,X)) I PSBDOSEF=""PATCH"",PSBSTUS=""G"",PSBDT=$P(^PSB(53.79,X,.1),U,3),PSBQRR=0 S PSBQR=1"
^XMB(3.9,98,2,8117,0)="""RTN"",""PSBVDLU1"",61,0)"
^XMB(3.9,98,2,8118,0)=" .I PSBSTUS=""G"",$G(PSBFLAG) D CHECK ;Get the correct dispense drug"
^XMB(3.9,98,2,8119,0)="""RTN"",""PSBVDLU1"",62,0)"
^XMB(3.9,98,2,8120,0)=" I ($P(PSBREC,U,5)=""O"") D"
^XMB(3.9,98,2,8121,0)="""RTN"",""PSBVDLU1"",63,0)"
^XMB(3.9,98,2,8122,0)=" .S X=$O(^PSB(53.79,""AORDX"",DFN,PSBONX,"""")) Q:X="""""
^XMB(3.9,98,2,8123,0)="""RTN"",""PSBVDLU1"",64,0)"
^XMB(3.9,98,2,8124,0)=" .S Y=$O(^PSB(53.79,""AORDX"",DFN,PSBONX,X,"""")) Q:Y=""""  S $P(PSBREC,U,12)=Y"
^XMB(3.9,98,2,8125,0)="""RTN"",""PSBVDLU1"",65,0)"
^XMB(3.9,98,2,8126,0)=" .K PSBLCK L +^PSB(53.79,Y):1  I  L -^PSB(53.79,Y) S PSBLCK=1"
^XMB(3.9,98,2,8127,0)="""RTN"",""PSBVDLU1"",66,0)"
^XMB(3.9,98,2,8128,0)=" .S PSBSTUS=$P(^PSB(53.79,Y,0),U,9),$P(PSBREC,U,13)=$S(PSBSTUS=""N"":"""",(PSBSTUS="""")&$G(PSBLCK):""U"",1:PSBSTUS),$P(PSBREC,U,24)=$P(^PSB(53.79,Y,0),U,7)"
^XMB(3.9,98,2,8129,0)="""RTN"",""PSBVDLU1"",67,0)"
^XMB(3.9,98,2,8130,0)=" .I $D(^PSB(53.79,Y)) I PSBDOSEF=""PATCH"",PSBSTUS=""G"",PSBDT=$P(^PSB(53.79,Y,.1),U,3),PSBQRR=0 S PSBQR=1"
^XMB(3.9,98,2,8131,0)="""RTN"",""PSBVDLU1"",68,0)"
^XMB(3.9,98,2,8132,0)=" .I PSBSTUS=""G"",$G(PSBFLAG) D CHECK"
^XMB(3.9,98,2,8133,0)="""RTN"",""PSBVDLU1"",69,0)"
^XMB(3.9,98,2,8134,0)=" Q:PSBQR=1"
^XMB(3.9,98,2,8135,0)="""RTN"",""PSBVDLU1"",70,0)"
^XMB(3.9,98,2,8136,0)=" S $P(PSBREC,U,25)=0 I $G(PSBTRFL),$P(PSBREC,U,11)]"""",$P(PSBREC,U,11)'<$G(PSBNTDT),$P(PSBREC,U,11)'>$G(PSBTRDT) S $P(PSBREC,U,25)=1"
^XMB(3.9,98,2,8137,0)="""RTN"",""PSBVDLU1"",71,0)"
^XMB(3.9,98,2,8138,0)=" S PSB=PSB+1,^TMP(""PSB"",$J,PSBTAB,PSB)=PSBREC ; Order Hdr"
^XMB(3.9,98,2,8139,0)="""RTN"",""PSBVDLU1"",72,0)"
^XMB(3.9,98,2,8140,0)=" I $P(PSBREC,U,12)]"""" S PSBONVDL($P(PSBREC,U,12))="""""
^XMB(3.9,98,2,8141,0)="""RTN"",""PSBVDLU1"",73,0)"
^XMB(3.9,98,2,8142,0)=" S PSB=PSB+1,^TMP(""PSB"",$J,PSBTAB,PSB)=PSBSI ; Special Instructions"
^XMB(3.9,98,2,8143,0)="""RTN"",""PSBVDLU1"",74,0)"
^XMB(3.9,98,2,8144,0)=" ; add dispense drugs"
^XMB(3.9,98,2,8145,0)="""RTN"",""PSBVDLU1"",75,0)"
^XMB(3.9,98,2,8146,0)=" I $D(PSBDDA) S X="""" F  S X=$O(PSBDDA(X)) Q:X=""""  S PSB=PSB+1,^TMP(""PSB"",$J,PSBTAB,PSB)=PSBDDA(X)"
^XMB(3.9,98,2,8147,0)="""RTN"",""PSBVDLU1"",76,0)"
^XMB(3.9,98,2,8148,0)=" S PSBCHDT=0"
^XMB(3.9,98,2,8149,0)="""RTN"",""PSBVDLU1"",77,0)"
^XMB(3.9,98,2,8150,0)=" I PSBONX[""V"",PSBOSTS=""D"",$G(PSBFOR)="""" D  Q  ;get infusing bag from DCed but not DEed orders"
^XMB(3.9,98,2,8151,0)="""RTN"",""PSBVDLU1"",78,0)"
^XMB(3.9,98,2,8152,0)=" .D PSJ^PSBVT(PSBX)"
^XMB(3.9,98,2,8153,0)="""RTN"",""PSBVDLU1"",79,0)"
^XMB(3.9,98,2,8154,0)=" .D INFUSING^PSBVDLU2 I PSBCOMP=0 Q"
^XMB(3.9,98,2,8155,0)="""RTN"",""PSBVDLU1"",80,0)"
^XMB(3.9,98,2,8156,0)=" .I $D(PSBSOLA) S X="""" F  S X=$O(PSBSOLA(X)) Q:X=""""  S PSB=PSB+1,^TMP(""PSB"",$J,PSBTAB,PSB)=PSBSOLA(X)"
^XMB(3.9,98,2,8157,0)="""RTN"",""PSBVDLU1"",81,0)"
^XMB(3.9,98,2,8158,0)=" .I $D(PSBADA) S X="""" F  S X=$O(PSBADA(X)) Q:X=""""  S PSB=PSB+1,^TMP(""PSB"",$J,PSBTAB,PSB)=PSBADA(X)"
^XMB(3.9,98,2,8159,0)="""RTN"",""PSBVDLU1"",82,0)"
^XMB(3.9,98,2,8160,0)=" .S X="""" F  S X=$O(PSBPORA(PSBONX,X)) S PSBUID=$P(PSBPORA(PSBONX,X),U,1) Q:PSBUID]""""  Q:X="""""
^XMB(3.9,98,2,8161,0)="""RTN"",""PSBVDLU1"",83,0)"
^XMB(3.9,98,2,8162,0)=" .I PSBUID[""P"" Q"
^XMB(3.9,98,2,8163,0)="""RTN"",""PSBVDLU1"",84,0)"
^XMB(3.9,98,2,8164,0)=" .I PSBUID[""WS"" D"
^XMB(3.9,98,2,8165,0)="""RTN"",""PSBVDLU1"",85,0)"
^XMB(3.9,98,2,8166,0)=" ..S PSBNODE=$O(^PSB(53.79,""AUID"",DFN,X,PSBUID,""""))"
^XMB(3.9,98,2,8167,0)="""RTN"",""PSBVDLU1"",86,0)"
^XMB(3.9,98,2,8168,0)=" ..S PSBUIDA(PSBUID)=""ID""_U_PSBUID"
^XMB(3.9,98,2,8169,0)="""RTN"",""PSBVDLU1"",87,0)"
^XMB(3.9,98,2,8170,0)=" ..S X=0 F  S X=$O(^PSB(53.79,PSBNODE,.6,X)) Q:'X  S PSBUIDA(PSBUID)=PSBUIDA(PSBUID)_U_""ADD;""_$P(^PSB(53.79,PSBNODE,.6,X,0),U,1)"
^XMB(3.9,98,2,8171,0)="""RTN"",""PSBVDLU1"",88,0)"
^XMB(3.9,98,2,8172,0)=" ..S X=0 F  S X=$O(^PSB(53.79,PSBNODE,.7,X)) Q:'X  S PSBUIDA(PSBUID)=PSBUIDA(PSBUID)_U_""SOL;""_$P(^PSB(53.79,PSBNODE,.7,X,0),U,1)"
^XMB(3.9,98,2,8173,0)="""RTN"",""PSBVDLU1"",89,0)"
^XMB(3.9,98,2,8174,0)=" .S PSBSONX=PSBONX"
^XMB(3.9,98,2,8175,0)="""RTN"",""PSBVDLU1"",90,0)"
^XMB(3.9,98,2,8176,0)=" .I '$D(PSBUIDA(PSBUID)) S PSBCKOR="""" F  S PSBCKOR=$O(PSBPORA(PSBSONX,PSBCKOR)) Q:PSBCKOR=""""  D CLEAN^PSBVT,PSJ1^PSBVT(DFN,PSBCKOR) Q:$D(PSBUIDA(PSBUID))"
^XMB(3.9,98,2,8177,0)="""RTN"",""PSBVDLU1"",91,0)"
^XMB(3.9,98,2,8178,0)=" .S PSBONX=PSBSONX"
^XMB(3.9,98,2,8179,0)="""RTN"",""PSBVDLU1"",92,0)"
^XMB(3.9,98,2,8180,0)=" .S:$D(PSBUIDA(PSBUID)) PSB=PSB+2,^TMP(""PSB"",$J,PSBTAB,PSB-1)=PSBUIDA(PSBUID),^TMP(""PSB"",$J,PSBTAB,PSB)=""END"""
^XMB(3.9,98,2,8181,0)="""RTN"",""PSBVDLU1"",93,0)"
^XMB(3.9,98,2,8182,0)=" .D CLEAN^PSBVT,PSJ1^PSBVT(DFN,$O(PSBPORA("""")))"
^XMB(3.9,98,2,8183,0)="""RTN"",""PSBVDLU1"",94,0)"
^XMB(3.9,98,2,8184,0)=" ; add additives"
^XMB(3.9,98,2,8185,0)="""RTN"",""PSBVDLU1"",95,0)"
^XMB(3.9,98,2,8186,0)=" I $D(PSBADA) S X="""" F  S X=$O(PSBADA(X)) Q:X=""""  S PSB=PSB+1,^TMP(""PSB"",$J,PSBTAB,PSB)=PSBADA(X)"
^XMB(3.9,98,2,8187,0)="""RTN"",""PSBVDLU1"",96,0)"
^XMB(3.9,98,2,8188,0)=" ; add solutions"
^XMB(3.9,98,2,8189,0)="""RTN"",""PSBVDLU1"",97,0)"
^XMB(3.9,98,2,8190,0)=" I $D(PSBSOLA) S X="""" F  S X=$O(PSBSOLA(X)) Q:X=""""  S $P(PSBSOLA(X),U,5)="""",PSB=PSB+1,^TMP(""PSB"",$J,PSBTAB,PSB)=PSBSOLA(X)"
^XMB(3.9,98,2,8191,0)="""RTN"",""PSBVDLU1"",98,0)"
^XMB(3.9,98,2,8192,0)=" I PSBONX[""V"" D EN^PSBPOIV(DFN,PSBONX)  ; get bags"
^XMB(3.9,98,2,8193,0)="""RTN"",""PSBVDLU1"",99,0)"
^XMB(3.9,98,2,8194,0)=" I $D(^TMP(""PSBAR"",$J)) S PSBUID=DFN_""V""_99999 F  S PSBUID=$O(^TMP(""PSBAR"",$J,PSBUID),-1) Q:PSBUID=""""  D"
^XMB(3.9,98,2,8195,0)="""RTN"",""PSBVDLU1"",100,0)"
^XMB(3.9,98,2,8196,0)=" .S PSBUIDS=^TMP(""PSBAR"",$J,PSBUID)"
^XMB(3.9,98,2,8197,0)="""RTN"",""PSBVDLU1"",101,0)"
^XMB(3.9,98,2,8198,0)=" .I $P(PSBUIDS,U,1)=""I"",$P(PSBUIDS,U,2)'=""I"",$P(PSBUIDS,U,2)'=""S"" Q  ; bag has invalid IV parameter, is not infusing or stopped"
^XMB(3.9,98,2,8199,0)="""RTN"",""PSBVDLU1"",102,0)"
^XMB(3.9,98,2,8200,0)=" .I $P(PSBUIDS,U,2)'=""I"",$P(PSBUIDS,U,2)'=""S"",$P(PSBUIDS,U,8)'="""" Q  ; label is no longer valid, bag is not infusing or stopped"
^XMB(3.9,98,2,8201,0)="""RTN"",""PSBVDLU1"",103,0)"
^XMB(3.9,98,2,8202,0)=" .I $P(PSBUIDS,U,2)=""C"" Q  ; bag is completed"
^XMB(3.9,98,2,8203,0)="""RTN"",""PSBVDLU1"",104,0)"
^XMB(3.9,98,2,8204,0)=" .I $P(PSBUIDS,U,2)=""G"" Q  ; bag is given (PBTAB)"
^XMB(3.9,98,2,8205,0)="""RTN"",""PSBVDLU1"",105,0)"
^XMB(3.9,98,2,8206,0)=" .S PSB=PSB+1,^TMP(""PSB"",$J,PSBTAB,PSB)=$P(PSBUIDS,U,10,999)"
^XMB(3.9,98,2,8207,0)="""RTN"",""PSBVDLU1"",106,0)"
^XMB(3.9,98,2,8208,0)=" K ^TMP(""PSBAR"",$J)"
^XMB(3.9,98,2,8209,0)="""RTN"",""PSBVDLU1"",107,0)"
^XMB(3.9,98,2,8210,0)=" S PSB=PSB+1,^TMP(""PSB"",$J,PSBTAB,PSB)=""END"""
^XMB(3.9,98,2,8211,0)="""RTN"",""PSBVDLU1"",108,0)"
^XMB(3.9,98,2,8212,0)=" S ^TMP(""PSB"",$J,PSBTAB,0)=PSB"
^XMB(3.9,98,2,8213,0)="""RTN"",""PSBVDLU1"",109,0)"
^XMB(3.9,98,2,8214,0)=" Q"
^XMB(3.9,98,2,8215,0)="""RTN"",""PSBVDLU1"",110,0)"
^XMB(3.9,98,2,8216,0)=" ;"
^XMB(3.9,98,2,8217,0)="""RTN"",""PSBVDLU1"",111,0)"
^XMB(3.9,98,2,8218,0)="CHECK S FILE=53.795,PSBNODE=.5,PSBIENS=X_"","""
^XMB(3.9,98,2,8219,0)="""RTN"",""PSBVDLU1"",112,0)"
^XMB(3.9,98,2,8220,0)=" F I=0:0 S I=$O(^PSB(53.79,X,PSBNODE,I)) Q:'I  S $P(PSBDDS,U,3,4)=$$GET1^DIQ(FILE,I_"",""_PSBIENS,.01,""I"")_U_$$GET1^DIQ(FILE,I_"",""_PSBIENS,.01)"
^XMB(3.9,98,2,8221,0)="""RTN"",""PSBVDLU1"",113,0)"
^XMB(3.9,98,2,8222,0)=" Q"
^XMB(3.9,98,2,8223,0)="""RTN"",""PSBVDLU1"",114,0)"
^XMB(3.9,98,2,8224,0)=" ;"
^XMB(3.9,98,2,8225,0)="""RTN"",""PSBVDLU1"",115,0)"
^XMB(3.9,98,2,8226,0)="VNURSE(PSBTAB) ;add initials of verifying pharmacist/verifying nurse"
^XMB(3.9,98,2,8227,0)="""RTN"",""PSBVDLU1"",116,0)"
^XMB(3.9,98,2,8228,0)=" F PSBLP=1:1:$P(^TMP(""PSB"",$J,PSBTAB,0),U,1) S X=^TMP(""PSB"",$J,PSBTAB,PSBLP) I $P(X,U)=DFN D"
^XMB(3.9,98,2,8229,0)="""RTN"",""PSBVDLU1"",117,0)"
^XMB(3.9,98,2,8230,0)=" .K ^TMP(""PSJ1"",$J)"
^XMB(3.9,98,2,8231,0)="""RTN"",""PSBVDLU1"",118,0)"
^XMB(3.9,98,2,8232,0)=" .D PSJ1^PSBVT(DFN,$P(X,U,2))"
^XMB(3.9,98,2,8233,0)="""RTN"",""PSBVDLU1"",119,0)"
^XMB(3.9,98,2,8234,0)=" .S $P(^TMP(""PSB"",$J,PSBTAB,PSBLP),U,19)=$S(PSBVNI]"""":PSBVNI,1:""***"")"
^XMB(3.9,98,2,8235,0)="""RTN"",""PSBVDLU1"",120,0)"
^XMB(3.9,98,2,8236,0)=" K PSBLP,PSBTAB"
^XMB(3.9,98,2,8237,0)="""RTN"",""PSBVDLU1"",121,0)"
^XMB(3.9,98,2,8238,0)=" Q"
^XMB(3.9,98,2,8239,0)="""RTN"",""PSBVDLU1"",122,0)"
^XMB(3.9,98,2,8240,0)=" ;"
^XMB(3.9,98,2,8241,0)="""RTN"",""PSBVDLU1"",123,0)"
^XMB(3.9,98,2,8242,0)="OKAY(PSBSTRT,PSBADMIN,PSBSCH,PSBORDER,PSBDRUG,PSBFREQ,PSBOSTS) ;"
^XMB(3.9,98,2,8243,0)="""RTN"",""PSBVDLU1"",124,0)"
^XMB(3.9,98,2,8244,0)=" ;"
^XMB(3.9,98,2,8245,0)="""RTN"",""PSBVDLU1"",125,0)"
^XMB(3.9,98,2,8246,0)=" ; Description: Determines if an order schedule is valid for"
^XMB(3.9,98,2,8247,0)="""RTN"",""PSBVDLU1"",126,0)"
^XMB(3.9,98,2,8248,0)=" ;  the date in PSBADMIN (i.e. Q4D, is it valid today)"
^XMB(3.9,98,2,8249,0)="""RTN"",""PSBVDLU1"",127,0)"
^XMB(3.9,98,2,8250,0)=" ;"
^XMB(3.9,98,2,8251,0)="""RTN"",""PSBVDLU1"",128,0)"
^XMB(3.9,98,2,8252,0)=" ; PSBSTRT:  Start Date of order (Time ignored)"
^XMB(3.9,98,2,8253,0)="""RTN"",""PSBVDLU1"",129,0)"
^XMB(3.9,98,2,8254,0)=" ; PSBADMIN: Date of administration to check (Time ignored)"
^XMB(3.9,98,2,8255,0)="""RTN"",""PSBVDLU1"",130,0)"
^XMB(3.9,98,2,8256,0)=" ; PSBSCH:  Schedule (i.e. MO-WE-FR@0900 or Q48H...)"
^XMB(3.9,98,2,8257,0)="""RTN"",""PSBVDLU1"",131,0)"
^XMB(3.9,98,2,8258,0)=" ; PSBORDER: Order reference"
^XMB(3.9,98,2,8259,0)="""RTN"",""PSBVDLU1"",132,0)"
^XMB(3.9,98,2,8260,0)=" ; PSBDRUG:  Drug ordered (Orderable Item)"
^XMB(3.9,98,2,8261,0)="""RTN"",""PSBVDLU1"",133,0)"
^XMB(3.9,98,2,8262,0)=" ; PSBOSTS: The status of the order"
^XMB(3.9,98,2,8263,0)="""RTN"",""PSBVDLU1"",134,0)"
^XMB(3.9,98,2,8264,0)=" ;"
^XMB(3.9,98,2,8265,0)="""RTN"",""PSBVDLU1"",135,0)"
^XMB(3.9,98,2,8266,0)=" N PSBOKAY,PSBDAYS,PSBDOW"
^XMB(3.9,98,2,8267,0)="""RTN"",""PSBVDLU1"",136,0)"
^XMB(3.9,98,2,8268,0)=" S PSBOSTS=$G(PSBOSTS)"
^XMB(3.9,98,2,8269,0)="""RTN"",""PSBVDLU1"",137,0)"
^XMB(3.9,98,2,8270,0)=" ;"
^XMB(3.9,98,2,8271,0)="""RTN"",""PSBVDLU1"",138,0)"
^XMB(3.9,98,2,8272,0)=" S PSBOKAY=0  ; Default Flag"
^XMB(3.9,98,2,8273,0)="""RTN"",""PSBVDLU1"",139,0)"
^XMB(3.9,98,2,8274,0)=" I PSBFREQ'="""",PSBFREQ'=""D"",PSBFREQ'>1440 Q 1"
^XMB(3.9,98,2,8275,0)="""RTN"",""PSBVDLU1"",140,0)"
^XMB(3.9,98,2,8276,0)=" ;PRN and ONE TIMES show everyday"
^XMB(3.9,98,2,8277,0)="""RTN"",""PSBVDLU1"",141,0)"
^XMB(3.9,98,2,8278,0)=" I (PSBSCHT=""P"")!(PSBSCHT=""O"") Q 1"
^XMB(3.9,98,2,8279,0)="""RTN"",""PSBVDLU1"",142,0)"
^XMB(3.9,98,2,8280,0)=" S PSBDAYS=$$DAYS(PSBSCH)"
^XMB(3.9,98,2,8281,0)="""RTN"",""PSBVDLU1"",143,0)"
^XMB(3.9,98,2,8282,0)=" ;"
^XMB(3.9,98,2,8283,0)="""RTN"",""PSBVDLU1"",144,0)"
^XMB(3.9,98,2,8284,0)=" I PSBDAYS=1 S PSBOKAY=1 Q PSBOKAY  ; Order is everyday"
^XMB(3.9,98,2,8285,0)="""RTN"",""PSBVDLU1"",145,0)"
^XMB(3.9,98,2,8286,0)=" ;"
^XMB(3.9,98,2,8287,0)="""RTN"",""PSBVDLU1"",146,0)"
^XMB(3.9,98,2,8288,0)=" ; find out if today is a good day for multi days"
^XMB(3.9,98,2,8289,0)="""RTN"",""PSBVDLU1"",147,0)"
^XMB(3.9,98,2,8290,0)=" S PSBOKAY=0,PSBRDTE=PSBSTRT"
^XMB(3.9,98,2,8291,0)="""RTN"",""PSBVDLU1"",148,0)"
^XMB(3.9,98,2,8292,0)=" S PSBADBR=PSBADMIN\1"
^XMB(3.9,98,2,8293,0)="""RTN"",""PSBVDLU1"",149,0)"
^XMB(3.9,98,2,8294,0)=" S PSBENR=(PSBADMIN\1)+1"
^XMB(3.9,98,2,8295,0)="""RTN"",""PSBVDLU1"",150,0)"
^XMB(3.9,98,2,8296,0)=" I PSBDAYS>1 D  Q PSBOKAY"
^XMB(3.9,98,2,8297,0)="""RTN"",""PSBVDLU1"",151,0)"
^XMB(3.9,98,2,8298,0)=" .I PSBADBR=(PSBSTRT\1) S PSBOKAY=1"
^XMB(3.9,98,2,8299,0)="""RTN"",""PSBVDLU1"",152,0)"
^XMB(3.9,98,2,8300,0)=" .F  S PSBRDTE=$$FMADD^XLFDT(PSBRDTE,"""","""",PSBFREQ) Q:PSBRDTE>PSBENR  D"
^XMB(3.9,98,2,8301,0)="""RTN"",""PSBVDLU1"",153,0)"
^XMB(3.9,98,2,8302,0)=" ..I $P(PSBRDTE,""."",2)="""" S PSBRDTE=PSBRDTE-1_"".24"""
^XMB(3.9,98,2,8303,0)="""RTN"",""PSBVDLU1"",154,0)"
^XMB(3.9,98,2,8304,0)=" ..I PSBRDTE\1=PSBADBR S PSBOKAY=1"
^XMB(3.9,98,2,8305,0)="""RTN"",""PSBVDLU1"",155,0)"
^XMB(3.9,98,2,8306,0)=" ..I PSBOKAY=""1"" Q"
^XMB(3.9,98,2,8307,0)="""RTN"",""PSBVDLU1"",156,0)"
^XMB(3.9,98,2,8308,0)=" ;"
^XMB(3.9,98,2,8309,0)="""RTN"",""PSBVDLU1"",157,0)"
^XMB(3.9,98,2,8310,0)=" ; Try the MO-WE-FR@0800 thing as last resort"
^XMB(3.9,98,2,8311,0)="""RTN"",""PSBVDLU1"",158,0)"
^XMB(3.9,98,2,8312,0)=" S X=PSBADMIN D H^%DTC I %Y=-1 D  Q PSBOKAY  ; Error"
^XMB(3.9,98,2,8313,0)="""RTN"",""PSBVDLU1"",159,0)"
^XMB(3.9,98,2,8314,0)=" .S PSBOKAY=0"
^XMB(3.9,98,2,8315,0)="""RTN"",""PSBVDLU1"",160,0)"
^XMB(3.9,98,2,8316,0)=" .Q:PSBOSTS=""E"""
^XMB(3.9,98,2,8317,0)="""RTN"",""PSBVDLU1"",161,0)"
^XMB(3.9,98,2,8318,0)=" .Q:$G(PSBMHND)=""PSBOMH"""
^XMB(3.9,98,2,8319,0)="""RTN"",""PSBVDLU1"",162,0)"
^XMB(3.9,98,2,8320,0)=" .D ERROR^PSBMLU($G(PSBORDER,""UNKNOWN""),$G(PSBDRUG,""""),DFN,""Unable to determine schedule ""_PSBSCH,PSBSCH)"
^XMB(3.9,98,2,8321,0)="""RTN"",""PSBVDLU1"",163,0)"
^XMB(3.9,98,2,8322,0)=" S PSBDOW=$P(""SU^MO^TU^WE^TH^FR^SA"",U,%Y+1)"
^XMB(3.9,98,2,8323,0)="""RTN"",""PSBVDLU1"",164,0)"
^XMB(3.9,98,2,8324,0)=" I $F(PSBSCH,PSBDOW)>0 S PSBOKAY=1 Q PSBOKAY"
^XMB(3.9,98,2,8325,0)="""RTN"",""PSBVDLU1"",165,0)"
^XMB(3.9,98,2,8326,0)=" S PSBOKAY=0"
^XMB(3.9,98,2,8327,0)="""RTN"",""PSBVDLU1"",166,0)"
^XMB(3.9,98,2,8328,0)=" Q PSBOKAY"
^XMB(3.9,98,2,8329,0)="""RTN"",""PSBVDLU1"",167,0)"
^XMB(3.9,98,2,8330,0)=" ;"
^XMB(3.9,98,2,8331,0)="""RTN"",""PSBVDLU1"",168,0)"
^XMB(3.9,98,2,8332,0)="DAYS(PSB) ; Return days between doses (-1: error, 1:everyday 2: QOD...)"
^XMB(3.9,98,2,8333,0)="""RTN"",""PSBVDLU1"",169,0)"
^XMB(3.9,98,2,8334,0)=" ;"
^XMB(3.9,98,2,8335,0)="""RTN"",""PSBVDLU1"",170,0)"
^XMB(3.9,98,2,8336,0)=" ; Is it a PRN"
^XMB(3.9,98,2,8337,0)="""RTN"",""PSBVDLU1"",171,0)"
^XMB(3.9,98,2,8338,0)=" I PSB?.E1""PRN"".E Q 1  ; Straight PRN - As Needed"
^XMB(3.9,98,2,8339,0)="""RTN"",""PSBVDLU1"",172,0)"
^XMB(3.9,98,2,8340,0)=" ;"
^XMB(3.9,98,2,8341,0)="""RTN"",""PSBVDLU1"",173,0)"
^XMB(3.9,98,2,8342,0)=" S PSB=$TR(PSB,"" "","""")"
^XMB(3.9,98,2,8343,0)="""RTN"",""PSBVDLU1"",174,0)"
^XMB(3.9,98,2,8344,0)=" I PSB?2.4N.E Q 1"
^XMB(3.9,98,2,8345,0)="""RTN"",""PSBVDLU1"",175,0)"
^XMB(3.9,98,2,8346,0)=" S X=PSBFREQ/1440 Q X"
^XMB(3.9,98,2,8347,0)="""RTN"",""PSBVDLU1"",176,0)"
^XMB(3.9,98,2,8348,0)=" ;"
^XMB(3.9,98,2,8349,0)="""RTN"",""PSBVDLU1"",177,0)"
^XMB(3.9,98,2,8350,0)=" Q"
^XMB(3.9,98,2,8351,0)="""RTN"",""PSBVDLU1"",178,0)"
^XMB(3.9,98,2,8352,0)=" ;"
^XMB(3.9,98,2,8353,0)="""RTN"",""PSBVDLU1"",179,0)"
^XMB(3.9,98,2,8354,0)="LAST ;"
^XMB(3.9,98,2,8355,0)="""RTN"",""PSBVDLU1"",180,0)"
^XMB(3.9,98,2,8356,0)=" S PSBCC=0"
^XMB(3.9,98,2,8357,0)="""RTN"",""PSBVDLU1"",181,0)"
^XMB(3.9,98,2,8358,0)=" S ZZ="""" F  S ZZ=$O(^PSB(53.79,X,.3,ZZ),-1) Q:'ZZ  Q:PSBFLAG=1  S PSBDATA2=$G(^(ZZ,0)) D"
^XMB(3.9,98,2,8359,0)="""RTN"",""PSBVDLU1"",182,0)"
^XMB(3.9,98,2,8360,0)=" .S PSBCC=PSBCC+1"
^XMB(3.9,98,2,8361,0)="""RTN"",""PSBVDLU1"",183,0)"
^XMB(3.9,98,2,8362,0)=" .I (PSBCC=2)!($P($P(PSBDATA2,U),"" "")=""Refused:"")!($P($P(PSBDATA2,U),"" "")=""Held:"") S $P(PSBREC,U,11)=$P(PSBDATA2,U,3),PSBFLAG=1"
^XMB(3.9,98,2,8363,0)="""RTN"",""PSBVDLU1"",184,0)"
^XMB(3.9,98,2,8364,0)=" Q"
^XMB(3.9,98,2,8365,0)="""RTN"",""PSBVDLU1"",185,0)"
^XMB(3.9,98,2,8366,0)=" ;"
^XMB(3.9,98,2,8367,0)="""RTN"",""PSBVDLU3"")"
^XMB(3.9,98,2,8368,0)="0^21^B39075787^B7773577"
^XMB(3.9,98,2,8369,0)="""RTN"",""PSBVDLU3"",1,0)"
^XMB(3.9,98,2,8370,0)="PSBVDLU3 ;BIRMINGHAM/TEJ-BCMA VDL UTILITIES 3 ;Mar 2004"
^XMB(3.9,98,2,8371,0)="""RTN"",""PSBVDLU3"",2,0)"
^XMB(3.9,98,2,8372,0)=" ;;3.0;BAR CODE MED ADMIN;**13**;Mar 2004"
^XMB(3.9,98,2,8373,0)="""RTN"",""PSBVDLU3"",3,0)"
^XMB(3.9,98,2,8374,0)=" ;"
^XMB(3.9,98,2,8375,0)="""RTN"",""PSBVDLU3"",4,0)"
^XMB(3.9,98,2,8376,0)=" ;This routine file has been created to serve as a container"
^XMB(3.9,98,2,8377,0)="""RTN"",""PSBVDLU3"",5,0)"
^XMB(3.9,98,2,8378,0)=" ;for Extrinsic Variables/Functions"
^XMB(3.9,98,2,8379,0)="""RTN"",""PSBVDLU3"",6,0)"
^XMB(3.9,98,2,8380,0)=" ;"
^XMB(3.9,98,2,8381,0)="""RTN"",""PSBVDLU3"",7,0)"
^XMB(3.9,98,2,8382,0)=" ; Reference/IA"
^XMB(3.9,98,2,8383,0)="""RTN"",""PSBVDLU3"",8,0)"
^XMB(3.9,98,2,8384,0)=" ; EN^PSJBCMA/2828"
^XMB(3.9,98,2,8385,0)="""RTN"",""PSBVDLU3"",9,0)"
^XMB(3.9,98,2,8386,0)=" ;"
^XMB(3.9,98,2,8387,0)="""RTN"",""PSBVDLU3"",10,0)"
^XMB(3.9,98,2,8388,0)="IVPTAB(PSBORTYP,PSBIVTYP,PSBINTSY,PSBCHMTY,PSBMROUT)  ;"
^XMB(3.9,98,2,8389,0)="""RTN"",""PSBVDLU3"",11,0)"
^XMB(3.9,98,2,8390,0)=" ;"
^XMB(3.9,98,2,8391,0)="""RTN"",""PSBVDLU3"",12,0)"
^XMB(3.9,98,2,8392,0)=" ; This function will return"
^XMB(3.9,98,2,8393,0)="""RTN"",""PSBVDLU3"",13,0)"
^XMB(3.9,98,2,8394,0)=" ; the value 1 (one) if the"
^XMB(3.9,98,2,8395,0)="""RTN"",""PSBVDLU3"",14,0)"
^XMB(3.9,98,2,8396,0)=" ; specified order input will cause"
^XMB(3.9,98,2,8397,0)="""RTN"",""PSBVDLU3"",15,0)"
^XMB(3.9,98,2,8398,0)=" ; the order to display on the ""IVP/IVPB"""
^XMB(3.9,98,2,8399,0)="""RTN"",""PSBVDLU3"",16,0)"
^XMB(3.9,98,2,8400,0)=" ; tab of the VDL BCMA Virtual Due List (VDL)"
^XMB(3.9,98,2,8401,0)="""RTN"",""PSBVDLU3"",17,0)"
^XMB(3.9,98,2,8402,0)=" ; else return the value 0 (zero)."
^XMB(3.9,98,2,8403,0)="""RTN"",""PSBVDLU3"",18,0)"
^XMB(3.9,98,2,8404,0)=" ;"
^XMB(3.9,98,2,8405,0)="""RTN"",""PSBVDLU3"",19,0)"
^XMB(3.9,98,2,8406,0)=" ; Input Parameters:"
^XMB(3.9,98,2,8407,0)="""RTN"",""PSBVDLU3"",20,0)"
^XMB(3.9,98,2,8408,0)=" ;"
^XMB(3.9,98,2,8409,0)="""RTN"",""PSBVDLU3"",21,0)"
^XMB(3.9,98,2,8410,0)=" ;     PSBORTYP - Order type (e.g. ""U"",""V"")"
^XMB(3.9,98,2,8411,0)="""RTN"",""PSBVDLU3"",22,0)"
^XMB(3.9,98,2,8412,0)=" ;     PSBIVTYP - IV Type (e.g. ""P"",""S"",""C"")"
^XMB(3.9,98,2,8413,0)="""RTN"",""PSBVDLU3"",23,0)"
^XMB(3.9,98,2,8414,0)=" ;     PSBINTSY - Intermittent Syringe value"
^XMB(3.9,98,2,8415,0)="""RTN"",""PSBVDLU3"",24,0)"
^XMB(3.9,98,2,8416,0)=" ;     PSBCHMTY - Chemo type (e.g. ""P"",""S"")"
^XMB(3.9,98,2,8417,0)="""RTN"",""PSBVDLU3"",25,0)"
^XMB(3.9,98,2,8418,0)=" ;     PSBMROUT - Med Route value (e.g. ""IVP"",""IV PUSH"",""IVPB"")"
^XMB(3.9,98,2,8419,0)="""RTN"",""PSBVDLU3"",26,0)"
^XMB(3.9,98,2,8420,0)=" ;"
^XMB(3.9,98,2,8421,0)="""RTN"",""PSBVDLU3"",27,0)"
^XMB(3.9,98,2,8422,0)=" ; Output:"
^XMB(3.9,98,2,8423,0)="""RTN"",""PSBVDLU3"",28,0)"
^XMB(3.9,98,2,8424,0)=" ;     1 - order will display on the ""IVP/IVPB"" Tab of BCMA VDL"
^XMB(3.9,98,2,8425,0)="""RTN"",""PSBVDLU3"",29,0)"
^XMB(3.9,98,2,8426,0)=" ;     0 - order will NOT display on the ""IVP/IVPB"" Tab of BCMA VDL"
^XMB(3.9,98,2,8427,0)="""RTN"",""PSBVDLU3"",30,0)"
^XMB(3.9,98,2,8428,0)=" ;    -1 - error processed"
^XMB(3.9,98,2,8429,0)="""RTN"",""PSBVDLU3"",31,0)"
^XMB(3.9,98,2,8430,0)=" ;"
^XMB(3.9,98,2,8431,0)="""RTN"",""PSBVDLU3"",32,0)"
^XMB(3.9,98,2,8432,0)=" Q:'$D(PSBORTYP) ""-1^Missing Parameter"""
^XMB(3.9,98,2,8433,0)="""RTN"",""PSBVDLU3"",33,0)"
^XMB(3.9,98,2,8434,0)=" I PSBORTYP=""U""&(($G(PSBMROUT)=""IV PUSH"")!($G(PSBMROUT)=""IVP"")) Q 1"
^XMB(3.9,98,2,8435,0)="""RTN"",""PSBVDLU3"",34,0)"
^XMB(3.9,98,2,8436,0)=" I '(PSBORTYP=""V"") Q 0"
^XMB(3.9,98,2,8437,0)="""RTN"",""PSBVDLU3"",35,0)"
^XMB(3.9,98,2,8438,0)=" I $G(PSBIVTYP)=""P"" Q 1"
^XMB(3.9,98,2,8439,0)="""RTN"",""PSBVDLU3"",36,0)"
^XMB(3.9,98,2,8440,0)=" I $G(PSBIVTYP)=""S"",$G(PSBINTSY)=1 Q 1"
^XMB(3.9,98,2,8441,0)="""RTN"",""PSBVDLU3"",37,0)"
^XMB(3.9,98,2,8442,0)=" I $G(PSBIVTYP)=""C"",$G(PSBCHMTY)=""P"" Q 1"
^XMB(3.9,98,2,8443,0)="""RTN"",""PSBVDLU3"",38,0)"
^XMB(3.9,98,2,8444,0)=" I $G(PSBIVTYP)=""C"",$G(PSBCHMTY)=""S"",$G(PSBINTSY)=1 Q 1"
^XMB(3.9,98,2,8445,0)="""RTN"",""PSBVDLU3"",39,0)"
^XMB(3.9,98,2,8446,0)=" Q 0"
^XMB(3.9,98,2,8447,0)="""RTN"",""PSBVDLU3"",40,0)"
^XMB(3.9,98,2,8448,0)=" ;"
^XMB(3.9,98,2,8449,0)="""RTN"",""PSBVDLU3"",41,0)"
^XMB(3.9,98,2,8450,0)="SHOVDL(DFN,BDATE,OTDATE,PSBTAB) ;"
^XMB(3.9,98,2,8451,0)="""RTN"",""PSBVDLU3"",42,0)"
^XMB(3.9,98,2,8452,0)=" ;"
^XMB(3.9,98,2,8453,0)="""RTN"",""PSBVDLU3"",43,0)"
^XMB(3.9,98,2,8454,0)=" ; This function will find orders such as discontinued or expired infusing IV bags "
^XMB(3.9,98,2,8455,0)="""RTN"",""PSBVDLU3"",44,0)"
^XMB(3.9,98,2,8456,0)=" ; or discontinued or expired ""given"" patches.  Recognizing these types of orders"
^XMB(3.9,98,2,8457,0)="""RTN"",""PSBVDLU3"",45,0)"
^XMB(3.9,98,2,8458,0)=" ; will allow these orders to be displayed on the VDL and permits the user to take "
^XMB(3.9,98,2,8459,0)="""RTN"",""PSBVDLU3"",46,0)"
^XMB(3.9,98,2,8460,0)=" ; action on them.  This routine determines if such orders exist for patient,"
^XMB(3.9,98,2,8461,0)="""RTN"",""PSBVDLU3"",47,0)"
^XMB(3.9,98,2,8462,0)=" ; time, and ""BCMA VDL tab.""  This routine is an ""extention"" to the API EN^PSJBCMA."
^XMB(3.9,98,2,8463,0)="""RTN"",""PSBVDLU3"",48,0)"
^XMB(3.9,98,2,8464,0)=" ;"
^XMB(3.9,98,2,8465,0)="""RTN"",""PSBVDLU3"",49,0)"
^XMB(3.9,98,2,8466,0)=" ; INPUT Parameters:"
^XMB(3.9,98,2,8467,0)="""RTN"",""PSBVDLU3"",50,0)"
^XMB(3.9,98,2,8468,0)=" ;    DFN           (req)   Patient Internal File Number."
^XMB(3.9,98,2,8469,0)="""RTN"",""PSBVDLU3"",51,0)"
^XMB(3.9,98,2,8470,0)=" ;    BDATE         (opt)   Start searching for ""order stop"" after this date. "
^XMB(3.9,98,2,8471,0)="""RTN"",""PSBVDLU3"",52,0)"
^XMB(3.9,98,2,8472,0)=" ;    OTDATE        (opt)   Include One-Time orders from this date."
^XMB(3.9,98,2,8473,0)="""RTN"",""PSBVDLU3"",53,0)"
^XMB(3.9,98,2,8474,0)=" ;    PSBTAB        (opt)   ""UDTAB"" or ""IVTAB"" - expedites process if specific tab"
^XMB(3.9,98,2,8475,0)="""RTN"",""PSBVDLU3"",54,0)"
^XMB(3.9,98,2,8476,0)=" ;                            is given."
^XMB(3.9,98,2,8477,0)="""RTN"",""PSBVDLU3"",55,0)"
^XMB(3.9,98,2,8478,0)=" ;"
^XMB(3.9,98,2,8479,0)="""RTN"",""PSBVDLU3"",56,0)"
^XMB(3.9,98,2,8480,0)=" ; OUTPUT Values"
^XMB(3.9,98,2,8481,0)="""RTN"",""PSBVDLU3"",57,0)"
^XMB(3.9,98,2,8482,0)=" ;    0               absolutely no orders to display on VDL"
^XMB(3.9,98,2,8483,0)="""RTN"",""PSBVDLU3"",58,0)"
^XMB(3.9,98,2,8484,0)=" ;    1               displayable orders have been located."
^XMB(3.9,98,2,8485,0)="""RTN"",""PSBVDLU3"",59,0)"
^XMB(3.9,98,2,8486,0)=" ;"
^XMB(3.9,98,2,8487,0)="""RTN"",""PSBVDLU3"",60,0)"
^XMB(3.9,98,2,8488,0)=" ;"
^XMB(3.9,98,2,8489,0)="""RTN"",""PSBVDLU3"",61,0)"
^XMB(3.9,98,2,8490,0)=" D EN^PSJBCMA(DFN,$G(BDATE),$G(OTDATE))"
^XMB(3.9,98,2,8491,0)="""RTN"",""PSBVDLU3"",62,0)"
^XMB(3.9,98,2,8492,0)=" ; any active Patch orders to show on VDL?"
^XMB(3.9,98,2,8493,0)="""RTN"",""PSBVDLU3"",63,0)"
^XMB(3.9,98,2,8494,0)=" S PSBFLG=0"
^XMB(3.9,98,2,8495,0)="""RTN"",""PSBVDLU3"",64,0)"
^XMB(3.9,98,2,8496,0)=" I $G(^TMP(""PSJ"",$J,1,0))=-1 D"
^XMB(3.9,98,2,8497,0)="""RTN"",""PSBVDLU3"",65,0)"
^XMB(3.9,98,2,8498,0)=" .;  "
^XMB(3.9,98,2,8499,0)="""RTN"",""PSBVDLU3"",66,0)"
^XMB(3.9,98,2,8500,0)=" .; Check the indexice for given patches or infusing IVs"
^XMB(3.9,98,2,8501,0)="""RTN"",""PSBVDLU3"",67,0)"
^XMB(3.9,98,2,8502,0)=" .;"
^XMB(3.9,98,2,8503,0)="""RTN"",""PSBVDLU3"",68,0)"
^XMB(3.9,98,2,8504,0)=" .; Check APATCH"
^XMB(3.9,98,2,8505,0)="""RTN"",""PSBVDLU3"",69,0)"
^XMB(3.9,98,2,8506,0)=" .D:($G(PSBTAB)=""UDTAB"")!($G(PSBTAB)="""")  Q:PSBFLG"
^XMB(3.9,98,2,8507,0)="""RTN"",""PSBVDLU3"",70,0)"
^XMB(3.9,98,2,8508,0)=" ..S PSBGNODE=""^PSB(53.79,""_""""""APATCH""""""_"",""_DFN_"")"" Q:'$D(PSBGNODE)"
^XMB(3.9,98,2,8509,0)="""RTN"",""PSBVDLU3"",71,0)"
^XMB(3.9,98,2,8510,0)=" ..F  S PSBGNODE=$Q(@PSBGNODE) Q:PSBGNODE=""""  Q:$QS(PSBGNODE,3)'=DFN  Q:PSBFLG  S PSBIEN=$QS(PSBGNODE,5),PSBFLG=$S($P(^PSB(53.79,PSBIEN,0),U,9)=""G"":1,1:0)"
^XMB(3.9,98,2,8511,0)="""RTN"",""PSBVDLU3"",72,0)"
^XMB(3.9,98,2,8512,0)=" .;"
^XMB(3.9,98,2,8513,0)="""RTN"",""PSBVDLU3"",73,0)"
^XMB(3.9,98,2,8514,0)=" .; Check AUID"
^XMB(3.9,98,2,8515,0)="""RTN"",""PSBVDLU3"",74,0)"
^XMB(3.9,98,2,8516,0)=" .;"
^XMB(3.9,98,2,8517,0)="""RTN"",""PSBVDLU3"",75,0)"
^XMB(3.9,98,2,8518,0)=" .D:(($G(PSBTAB)=""IVTAB"")!($G(PSBTAB)=""""))&('PSBFLG)  Q:PSBFLG"
^XMB(3.9,98,2,8519,0)="""RTN"",""PSBVDLU3"",76,0)"
^XMB(3.9,98,2,8520,0)=" ..S PSBGNODE=""^PSB(53.79,""_""""""AUID""""""_"",""_DFN_"")"" Q:'$D(PSBGNODE)"
^XMB(3.9,98,2,8521,0)="""RTN"",""PSBVDLU3"",77,0)"
^XMB(3.9,98,2,8522,0)=" ..F  S PSBGNODE=$Q(@PSBGNODE) Q:PSBGNODE=""""  Q:$QS(PSBGNODE,3)'=DFN  Q:PSBFLG  S PSBIEN=$QS(PSBGNODE,6),PSBFLG=$S($P(^PSB(53.79,PSBIEN,0),U,9)=""I"":1,1:0)"
^XMB(3.9,98,2,8523,0)="""RTN"",""PSBVDLU3"",78,0)"
^XMB(3.9,98,2,8524,0)=" .;"
^XMB(3.9,98,2,8525,0)="""RTN"",""PSBVDLU3"",79,0)"
^XMB(3.9,98,2,8526,0)=" .;  NOTE: Infusing bags will not display if DCed more than 3 days ago!"
^XMB(3.9,98,2,8527,0)="""RTN"",""PSBVDLU3"",80,0)"
^XMB(3.9,98,2,8528,0)=" .;"
^XMB(3.9,98,2,8529,0)="""RTN"",""PSBVDLU3"",81,0)"
^XMB(3.9,98,2,8530,0)=" S:$G(^TMP(""PSJ"",$J,1,0))'=-1 PSBFLG=1"
^XMB(3.9,98,2,8531,0)="""RTN"",""PSBVDLU3"",82,0)"
^XMB(3.9,98,2,8532,0)=" ;"
^XMB(3.9,98,2,8533,0)="""RTN"",""PSBVDLU3"",83,0)"
^XMB(3.9,98,2,8534,0)=" Q PSBFLG"
^XMB(3.9,98,2,8535,0)="""RTN"",""PSBVDLU3"",84,0)"
^XMB(3.9,98,2,8536,0)=" ;"
^XMB(3.9,98,2,8537,0)="""RTN"",""PSBVDLU3"",85,0)"
^XMB(3.9,98,2,8538,0)="FNDACTV(RESULTS,PARAMS) ;   Utility to check and order for the latest "" ? (parameter #3) "" order activities per patient (parameter #1)"
^XMB(3.9,98,2,8539,0)="""RTN"",""PSBVDLU3"",86,0)"
^XMB(3.9,98,2,8540,0)=" ; #parameter= # ""^""piece"
^XMB(3.9,98,2,8541,0)="""RTN"",""PSBVDLU3"",87,0)"
^XMB(3.9,98,2,8542,0)=" ;       #1 DFN - Patient's IEN          e.g. 1234               (required)"
^XMB(3.9,98,2,8543,0)="""RTN"",""PSBVDLU3"",88,0)"
^XMB(3.9,98,2,8544,0)=" ;       #2 Order Number_Order Type      e.g. ""1V""               """" = all orders"
^XMB(3.9,98,2,8545,0)="""RTN"",""PSBVDLU3"",89,0)"
^XMB(3.9,98,2,8546,0)=" ;       #3 Search for Activity          e.g. ""H""                """" = *unknown* activity"
^XMB(3.9,98,2,8547,0)="""RTN"",""PSBVDLU3"",90,0)"
^XMB(3.9,98,2,8548,0)=" ;       #4 Search ""back""time(hours)     e.g. 12                 """" = search back 3 admins   "
^XMB(3.9,98,2,8549,0)="""RTN"",""PSBVDLU3"",91,0)"
^XMB(3.9,98,2,8550,0)=" ;                                                 NOTE:  =""FREQ""  This Function will use order's frequency."
^XMB(3.9,98,2,8551,0)="""RTN"",""PSBVDLU3"",92,0)"
^XMB(3.9,98,2,8552,0)=" ;                                                 1. If the order is a PRN, On Call or One-Time "
^XMB(3.9,98,2,8553,0)="""RTN"",""PSBVDLU3"",93,0)"
^XMB(3.9,98,2,8554,0)=" ;                                                 the look back a default of 72 hours."
^XMB(3.9,98,2,8555,0)="""RTN"",""PSBVDLU3"",94,0)"
^XMB(3.9,98,2,8556,0)=" ;                                                 2. if the order is a Continuous order key off"
^XMB(3.9,98,2,8557,0)="""RTN"",""PSBVDLU3"",95,0)"
^XMB(3.9,98,2,8558,0)=" ;                                                 of the frequency as follows."
^XMB(3.9,98,2,8559,0)="""RTN"",""PSBVDLU3"",96,0)"
^XMB(3.9,98,2,8560,0)=" ;                                                      a.) if the frequency is <24 hours use the"
^XMB(3.9,98,2,8561,0)="""RTN"",""PSBVDLU3"",97,0)"
^XMB(3.9,98,2,8562,0)=" ;                                                        default of 72 hours."
^XMB(3.9,98,2,8563,0)="""RTN"",""PSBVDLU3"",98,0)"
^XMB(3.9,98,2,8564,0)=" ;                                                      b.) if the frequency is >= 24 hour, look back"
^XMB(3.9,98,2,8565,0)="""RTN"",""PSBVDLU3"",99,0)"
^XMB(3.9,98,2,8566,0)=" ;                                                        3.5 times the frequency"
^XMB(3.9,98,2,8567,0)="""RTN"",""PSBVDLU3"",100,0)"
^XMB(3.9,98,2,8568,0)=" ;                                                 NOTE:  [""X#""    This Function will search back # of admins."
^XMB(3.9,98,2,8569,0)="""RTN"",""PSBVDLU3"",101,0)"
^XMB(3.9,98,2,8570,0)=" ;  "
^XMB(3.9,98,2,8571,0)="""RTN"",""PSBVDLU3"",102,0)"
^XMB(3.9,98,2,8572,0)=" ;  Example call: D FNDACTV^PSBVDLU3(.results,""1234^1U^H^12"")"
^XMB(3.9,98,2,8573,0)="""RTN"",""PSBVDLU3"",103,0)"
^XMB(3.9,98,2,8574,0)=" ;"
^XMB(3.9,98,2,8575,0)="""RTN"",""PSBVDLU3"",104,0)"
^XMB(3.9,98,2,8576,0)=" ;"
^XMB(3.9,98,2,8577,0)="""RTN"",""PSBVDLU3"",105,0)"
^XMB(3.9,98,2,8578,0)=" N PSBNOW,PSBDFN,PSBON,PSBCNT,PSBACT,PSBTMFRM,PSBX,PSBSET,PSBFRQ"
^XMB(3.9,98,2,8579,0)="""RTN"",""PSBVDLU3"",106,0)"
^XMB(3.9,98,2,8580,0)=" K RESULTS"
^XMB(3.9,98,2,8581,0)="""RTN"",""PSBVDLU3"",107,0)"
^XMB(3.9,98,2,8582,0)=" S PSBDFN=$P(PARAMS,U),PSBON=$P(PARAMS,U,2),PSBACT=$P(PARAMS,U,3),PSBTMFRM=$P(PARAMS,U,4)"
^XMB(3.9,98,2,8583,0)="""RTN"",""PSBVDLU3"",108,0)"
^XMB(3.9,98,2,8584,0)=" S RESULTS(0)=1"
^XMB(3.9,98,2,8585,0)="""RTN"",""PSBVDLU3"",109,0)"
^XMB(3.9,98,2,8586,0)=" I $G(PSBDFN)']"""" S RESULTS(0)=1,RESULTS(1)=""-1^ERROR - MISSING PARAMETER (DFN REQ.)"" Q"
^XMB(3.9,98,2,8587,0)="""RTN"",""PSBVDLU3"",110,0)"
^XMB(3.9,98,2,8588,0)=" I $G(PSBTMFRM)="""" S PSBX=3"
^XMB(3.9,98,2,8589,0)="""RTN"",""PSBVDLU3"",111,0)"
^XMB(3.9,98,2,8590,0)=" I $G(PSBTMFRM)[""X"" S PSBX=+($P(PSBTMFRM,""X"",2)),PSBTMFRM="""""
^XMB(3.9,98,2,8591,0)="""RTN"",""PSBVDLU3"",112,0)"
^XMB(3.9,98,2,8592,0)=" I $G(PSBTMFRM)]"""",$G(PSBTMFRM)'[""FREQ"" D NOW^%DTC S PSBNOW=% S PSBTMFRM=$$FMADD^XLFDT(PSBNOW,"""",-1*PSBTMFRM),PSBSET=1 S RESULTS(1)=""0^ None found after ""_PSBTMFRM"
^XMB(3.9,98,2,8593,0)="""RTN"",""PSBVDLU3"",113,0)"
^XMB(3.9,98,2,8594,0)=" I $G(PSBX)="""" S PSBX=9999999"
^XMB(3.9,98,2,8595,0)="""RTN"",""PSBVDLU3"",114,0)"
^XMB(3.9,98,2,8596,0)=" D:$G(PSBON)'="""""
^XMB(3.9,98,2,8597,0)="""RTN"",""PSBVDLU3"",115,0)"
^XMB(3.9,98,2,8598,0)=" .K ^TMP(""PSJ"",$J) D EN^PSJBCMA1(PSBDFN,PSBON)"
^XMB(3.9,98,2,8599,0)="""RTN"",""PSBVDLU3"",116,0)"
^XMB(3.9,98,2,8600,0)=" .;Maintain Time Frame and other order information"
^XMB(3.9,98,2,8601,0)="""RTN"",""PSBVDLU3"",117,0)"
^XMB(3.9,98,2,8602,0)=" .I $G(PSBTMFRM)[""FREQ"" D"
^XMB(3.9,98,2,8603,0)="""RTN"",""PSBVDLU3"",118,0)"
^XMB(3.9,98,2,8604,0)=" ..S PSBFRQ=+$P(^TMP(""PSJ"",$J,4),""^"",11) I PSBFRQ=0 S PSBFRQ=1440"
^XMB(3.9,98,2,8605,0)="""RTN"",""PSBVDLU3"",119,0)"
^XMB(3.9,98,2,8606,0)=" ..I ""P^OC^O^""[($P(^TMP(""PSJ"",$J,4),""^"")_""^"") S PSBTMFRM=72 Q"
^XMB(3.9,98,2,8607,0)="""RTN"",""PSBVDLU3"",120,0)"
^XMB(3.9,98,2,8608,0)=" ..I (PSBFRQ/60)<24 S PSBTMFRM=72 Q"
^XMB(3.9,98,2,8609,0)="""RTN"",""PSBVDLU3"",121,0)"
^XMB(3.9,98,2,8610,0)=" ..I (PSBFRQ/60)'<24 S PSBTMFRM=(PSBFRQ/60)*3.5"
^XMB(3.9,98,2,8611,0)="""RTN"",""PSBVDLU3"",122,0)"
^XMB(3.9,98,2,8612,0)=" .I '$G(PSBSET) D NOW^%DTC S PSBNOW=% S PSBTMFRM=$$FMADD^XLFDT(PSBNOW,"""",-1*PSBTMFRM) S RESULTS(1)=""0^ None found after ""_PSBTMFRM"
^XMB(3.9,98,2,8613,0)="""RTN"",""PSBVDLU3"",123,0)"
^XMB(3.9,98,2,8614,0)=" .S I="""",X=0 F  S I=$O(^PSB(53.79,""AORDX"",PSBDFN,PSBON,I),-1)  Q:(I="""")!(I<$S(PSBTMFRM]"""":PSBTMFRM,1:-1))  D  Q:X"
^XMB(3.9,98,2,8615,0)="""RTN"",""PSBVDLU3"",124,0)"
^XMB(3.9,98,2,8616,0)=" ..S Z=0,J="""",PSBCNT=0 F  S J=$O(^PSB(53.79,""AORDX"",PSBDFN,PSBON,I,J),-1)  Q:(J="""")  S Z=Z+1 Q:Z>PSBX  D  Q:X"
^XMB(3.9,98,2,8617,0)="""RTN"",""PSBVDLU3"",125,0)"
^XMB(3.9,98,2,8618,0)=" ...L +^PSB(53.79,J):1"
^XMB(3.9,98,2,8619,0)="""RTN"",""PSBVDLU3"",126,0)"
^XMB(3.9,98,2,8620,0)=" ...I  L -^PSB(53.79,J)"
^XMB(3.9,98,2,8621,0)="""RTN"",""PSBVDLU3"",127,0)"
^XMB(3.9,98,2,8622,0)=" ...E  Q"
^XMB(3.9,98,2,8623,0)="""RTN"",""PSBVDLU3"",128,0)"
^XMB(3.9,98,2,8624,0)=" ...I ($P(^PSB(53.79,J,0),U,9)=PSBACT) S X=1 D"
^XMB(3.9,98,2,8625,0)="""RTN"",""PSBVDLU3"",129,0)"
^XMB(3.9,98,2,8626,0)=" ....S PSBCNT=PSBCNT+1,RESULTS(PSBCNT)=$$GET1^DIQ(53.79,J_"","",.02)"
^XMB(3.9,98,2,8627,0)="""RTN"",""PSBVDLU3"",130,0)"
^XMB(3.9,98,2,8628,0)=" ....S PSBCNT=PSBCNT+1,RESULTS(PSBCNT)=$P(^TMP(""PSJ"",$J,2),U,2)_""^""_($$GET1^DIQ(53.79,J_"","",.11))"
^XMB(3.9,98,2,8629,0)="""RTN"",""PSBVDLU3"",131,0)"
^XMB(3.9,98,2,8630,0)=" ....S PSBCNT=PSBCNT+1,RESULTS(PSBCNT)=$$GET1^DIQ(53.79,J_"","",.06,""I"")"
^XMB(3.9,98,2,8631,0)="""RTN"",""PSBVDLU3"",132,0)"
^XMB(3.9,98,2,8632,0)=" ....S PSBCNT=PSBCNT+1,RESULTS(PSBCNT)=$$GET1^DIQ(53.79,J_"","",.13,""I"")"
^XMB(3.9,98,2,8633,0)="""RTN"",""PSBVDLU3"",133,0)"
^XMB(3.9,98,2,8634,0)=" D:$G(PSBON)="""""
^XMB(3.9,98,2,8635,0)="""RTN"",""PSBVDLU3"",134,0)"
^XMB(3.9,98,2,8636,0)=" .S Z="""",X=0 F  S Z=$O(^PSB(53.79,""AORDX"",PSBDFN,Z),-1)  Q:(Z="""")  S PSBON=Z D  Q:X"
^XMB(3.9,98,2,8637,0)="""RTN"",""PSBVDLU3"",135,0)"
^XMB(3.9,98,2,8638,0)=" ..;Maintain Time Frame and other order information"
^XMB(3.9,98,2,8639,0)="""RTN"",""PSBVDLU3"",136,0)"
^XMB(3.9,98,2,8640,0)=" ..K ^TMP(""PSJ"",$J) D EN^PSJBCMA1(PSBDFN,PSBON)"
^XMB(3.9,98,2,8641,0)="""RTN"",""PSBVDLU3"",137,0)"
^XMB(3.9,98,2,8642,0)=" ..I $G(PSBTMFRM)[""FREQ"" D"
^XMB(3.9,98,2,8643,0)="""RTN"",""PSBVDLU3"",138,0)"
^XMB(3.9,98,2,8644,0)=" ...S PSBFRQ=+$P(^TMP(""PSJ"",$J,4),""^"",11) I PSBFRQ=0 S PSBFRQ=1440"
^XMB(3.9,98,2,8645,0)="""RTN"",""PSBVDLU3"",139,0)"
^XMB(3.9,98,2,8646,0)=" ...I ""P^OC^O^""[($P(^TMP(""PSJ"",$J,4),""^"")_""^"") S PSBTMFRM=72 Q"
^XMB(3.9,98,2,8647,0)="""RTN"",""PSBVDLU3"",140,0)"
^XMB(3.9,98,2,8648,0)=" ...I (PSBFRQ/60)<24 S PSBTMFRM=72 Q"
^XMB(3.9,98,2,8649,0)="""RTN"",""PSBVDLU3"",141,0)"
^XMB(3.9,98,2,8650,0)=" ...I (PSBFRQ/60)'<24 S PSBTMFRM=(PSBFRQ/60)*3.5"
^XMB(3.9,98,2,8651,0)="""RTN"",""PSBVDLU3"",142,0)"
^XMB(3.9,98,2,8652,0)=" ..I '$G(PSBSET) D NOW^%DTC S PSBNOW=% S PSBTMFRM=$$FMADD^XLFDT(PSBNOW,"""",-1*PSBTMFRM) S RESULTS(1)=""0^ None found after ""_PSBTMFRM"
^XMB(3.9,98,2,8653,0)="""RTN"",""PSBVDLU3"",143,0)"
^XMB(3.9,98,2,8654,0)=" ..S I="""" F  S I=$O(^PSB(53.79,""AORDX"",PSBDFN,PSBON,I),-1)  Q:(I="""")!(I<$S(PSBTMFRM]"""":PSBTMFRM,1:-1))  D  Q:X"
^XMB(3.9,98,2,8655,0)="""RTN"",""PSBVDLU3"",144,0)"
^XMB(3.9,98,2,8656,0)=" ...S ZZ=0,J="""",PSBCNT=0 F  S J=$O(^PSB(53.79,""AORDX"",PSBDFN,PSBON,I,J),-1)  Q:(J="""")  S ZZ=ZZ+1 Q:ZZ>PSBX  D  Q:X"
^XMB(3.9,98,2,8657,0)="""RTN"",""PSBVDLU3"",145,0)"
^XMB(3.9,98,2,8658,0)=" ....L +^PSB(53.79,J):1"
^XMB(3.9,98,2,8659,0)="""RTN"",""PSBVDLU3"",146,0)"
^XMB(3.9,98,2,8660,0)=" ....I  L -^PSB(53.79,J)"
^XMB(3.9,98,2,8661,0)="""RTN"",""PSBVDLU3"",147,0)"
^XMB(3.9,98,2,8662,0)=" ....E  Q"
^XMB(3.9,98,2,8663,0)="""RTN"",""PSBVDLU3"",148,0)"
^XMB(3.9,98,2,8664,0)=" ....I ($P(^PSB(53.79,J,0),U,9)=PSBACT) S X=1 D"
^XMB(3.9,98,2,8665,0)="""RTN"",""PSBVDLU3"",149,0)"
^XMB(3.9,98,2,8666,0)=" .....S PSBCNT=PSBCNT+1,RESULTS(PSBCNT)=$$GET1^DIQ(53.79,J_"","",.02)"
^XMB(3.9,98,2,8667,0)="""RTN"",""PSBVDLU3"",150,0)"
^XMB(3.9,98,2,8668,0)=" .....S PSBCNT=PSBCNT+1,RESULTS(PSBCNT)=$P(^TMP(""PSJ"",$J,2),U,2)_""^""_($$GET1^DIQ(53.79,J_"","",.11))"
^XMB(3.9,98,2,8669,0)="""RTN"",""PSBVDLU3"",151,0)"
^XMB(3.9,98,2,8670,0)=" .....S PSBCNT=PSBCNT+1,RESULTS(PSBCNT)=$$GET1^DIQ(53.79,J_"","",.06,""I"")"
^XMB(3.9,98,2,8671,0)="""RTN"",""PSBVDLU3"",152,0)"
^XMB(3.9,98,2,8672,0)=" .....S PSBCNT=PSBCNT+1,RESULTS(PSBCNT)=$$GET1^DIQ(53.79,J_"","",.13,""I"")"
^XMB(3.9,98,2,8673,0)="""RTN"",""PSBVDLU3"",153,0)"
^XMB(3.9,98,2,8674,0)=" I $G(PSBCNT)>0 S RESULTS(0)=PSBCNT"
^XMB(3.9,98,2,8675,0)="""RTN"",""PSBVDLU3"",154,0)"
^XMB(3.9,98,2,8676,0)=" K ^TMP(""PSJ"",$J)"
^XMB(3.9,98,2,8677,0)="""RTN"",""PSBVDLU3"",155,0)"
^XMB(3.9,98,2,8678,0)=" Q"
^XMB(3.9,98,2,8679,0)="""RTN"",""PSBVDLU3"",156,0)"
^XMB(3.9,98,2,8680,0)=" ;"
^XMB(3.9,98,2,8681,0)="""RTN"",""PSBVDLUD"")"
^XMB(3.9,98,2,8682,0)="0^12^B75826811^B74549540"
^XMB(3.9,98,2,8683,0)="""RTN"",""PSBVDLUD"",1,0)"
^XMB(3.9,98,2,8684,0)="PSBVDLUD ;BIRMINGHAM/EFC-BCMA UNIT DOSE VIRTUAL DUE LIST FUNCTIONS ;Mar 2004"
^XMB(3.9,98,2,8685,0)="""RTN"",""PSBVDLUD"",2,0)"
^XMB(3.9,98,2,8686,0)=" ;;3.0;BAR CODE MED ADMIN;**11,13**;Mar 2004"
^XMB(3.9,98,2,8687,0)="""RTN"",""PSBVDLUD"",3,0)"
^XMB(3.9,98,2,8688,0)=" ;"
^XMB(3.9,98,2,8689,0)="""RTN"",""PSBVDLUD"",4,0)"
^XMB(3.9,98,2,8690,0)=" ; Reference/IA"
^XMB(3.9,98,2,8691,0)="""RTN"",""PSBVDLUD"",5,0)"
^XMB(3.9,98,2,8692,0)=" ; EN^PSJBCMA/2828"
^XMB(3.9,98,2,8693,0)="""RTN"",""PSBVDLUD"",6,0)"
^XMB(3.9,98,2,8694,0)=" ; $$GET^XPAR/2263"
^XMB(3.9,98,2,8695,0)="""RTN"",""PSBVDLUD"",7,0)"
^XMB(3.9,98,2,8696,0)=" ;"
^XMB(3.9,98,2,8697,0)="""RTN"",""PSBVDLUD"",8,0)"
^XMB(3.9,98,2,8698,0)="EN(DFN,PSBDT) ;"
^XMB(3.9,98,2,8699,0)="""RTN"",""PSBVDLUD"",9,0)"
^XMB(3.9,98,2,8700,0)=" ;"
^XMB(3.9,98,2,8701,0)="""RTN"",""PSBVDLUD"",10,0)"
^XMB(3.9,98,2,8702,0)=" ;"
^XMB(3.9,98,2,8703,0)="""RTN"",""PSBVDLUD"",11,0)"
^XMB(3.9,98,2,8704,0)=" ; Description:"
^XMB(3.9,98,2,8705,0)="""RTN"",""PSBVDLUD"",12,0)"
^XMB(3.9,98,2,8706,0)=" ; Returns the current unit dose order set for today to display"
^XMB(3.9,98,2,8707,0)="""RTN"",""PSBVDLUD"",13,0)"
^XMB(3.9,98,2,8708,0)=" ; on the client VDL"
^XMB(3.9,98,2,8709,0)="""RTN"",""PSBVDLUD"",14,0)"
^XMB(3.9,98,2,8710,0)=" ;"
^XMB(3.9,98,2,8711,0)="""RTN"",""PSBVDLUD"",15,0)"
^XMB(3.9,98,2,8712,0)=" N PSBDATA,PSBTBOUT"
^XMB(3.9,98,2,8713,0)="""RTN"",""PSBVDLUD"",16,0)"
^XMB(3.9,98,2,8714,0)=" S PSBTBOUT=0"
^XMB(3.9,98,2,8715,0)="""RTN"",""PSBVDLUD"",17,0)"
^XMB(3.9,98,2,8716,0)=" ;"
^XMB(3.9,98,2,8717,0)="""RTN"",""PSBVDLUD"",18,0)"
^XMB(3.9,98,2,8718,0)=" ;This routine now re-uses the ^TMP(""PSJ"",$J global built in PSBVDLTB"
^XMB(3.9,98,2,8719,0)="""RTN"",""PSBVDLUD"",19,0)"
^XMB(3.9,98,2,8720,0)=" ;"
^XMB(3.9,98,2,8721,0)="""RTN"",""PSBVDLUD"",20,0)"
^XMB(3.9,98,2,8722,0)=" G:$G(^TMP(""PSJ"",$J,1,0))=-1 1"
^XMB(3.9,98,2,8723,0)="""RTN"",""PSBVDLUD"",21,0)"
^XMB(3.9,98,2,8724,0)=" F PSBX=0:0 S PSBX=$O(^TMP(""PSJ"",$J,PSBX)) Q:('PSBX)!(PSBTBOUT)  D"
^XMB(3.9,98,2,8725,0)="""RTN"",""PSBVDLUD"",22,0)"
^XMB(3.9,98,2,8726,0)=" .S:(PSBTAB'=""UDTAB"")&($G(^TMP(""PSB"",$J,""UDTAB"",2))>0) PSBTBOUT=1"
^XMB(3.9,98,2,8727,0)="""RTN"",""PSBVDLUD"",23,0)"
^XMB(3.9,98,2,8728,0)=" .D CLEAN^PSBVT,PSJ^PSBVT(PSBX)"
^XMB(3.9,98,2,8729,0)="""RTN"",""PSBVDLUD"",24,0)"
^XMB(3.9,98,2,8730,0)=" .;"
^XMB(3.9,98,2,8731,0)="""RTN"",""PSBVDLUD"",25,0)"
^XMB(3.9,98,2,8732,0)=" .; << Standard checks for ALL orders >>"
^XMB(3.9,98,2,8733,0)="""RTN"",""PSBVDLUD"",26,0)"
^XMB(3.9,98,2,8734,0)=" .;"
^XMB(3.9,98,2,8735,0)="""RTN"",""PSBVDLUD"",27,0)"
^XMB(3.9,98,2,8736,0)=" .Q:PSBONX[""V""  ;No IVs on UD tab"
^XMB(3.9,98,2,8737,0)="""RTN"",""PSBVDLUD"",28,0)"
^XMB(3.9,98,2,8738,0)=" .Q:PSBONX[""P""  ;     No Pending Orders"
^XMB(3.9,98,2,8739,0)="""RTN"",""PSBVDLUD"",29,0)"
^XMB(3.9,98,2,8740,0)=" .Q:PSBOST>PSBWADM  ; Order Start Date/Time > admin window"
^XMB(3.9,98,2,8741,0)="""RTN"",""PSBVDLUD"",30,0)"
^XMB(3.9,98,2,8742,0)=" .Q:PSBOSP<PSBWBEG  ; For Non one-times Order Stop Date/Time < vdl window"
^XMB(3.9,98,2,8743,0)="""RTN"",""PSBVDLUD"",31,0)"
^XMB(3.9,98,2,8744,0)=" .Q:PSBOSTS[""D""  ;     Is it DC'd"
^XMB(3.9,98,2,8745,0)="""RTN"",""PSBVDLUD"",32,0)"
^XMB(3.9,98,2,8746,0)=" .Q:PSBNGF  ;         Is it marked DO NOT GIVE!"
^XMB(3.9,98,2,8747,0)="""RTN"",""PSBVDLUD"",33,0)"
^XMB(3.9,98,2,8748,0)=" .Q:PSBMR=""IVP""!(PSBMR=""IV PUSH"")"
^XMB(3.9,98,2,8749,0)="""RTN"",""PSBVDLUD"",34,0)"
^XMB(3.9,98,2,8750,0)=" .;"
^XMB(3.9,98,2,8751,0)="""RTN"",""PSBVDLUD"",35,0)"
^XMB(3.9,98,2,8752,0)=" .; Non One-Times with stop date/time < now"
^XMB(3.9,98,2,8753,0)="""RTN"",""PSBVDLUD"",36,0)"
^XMB(3.9,98,2,8754,0)=" .;"
^XMB(3.9,98,2,8755,0)="""RTN"",""PSBVDLUD"",37,0)"
^XMB(3.9,98,2,8756,0)=" .D NOW^%DTC"
^XMB(3.9,98,2,8757,0)="""RTN"",""PSBVDLUD"",38,0)"
^XMB(3.9,98,2,8758,0)=" .Q:PSBOSP<%"
^XMB(3.9,98,2,8759,0)="""RTN"",""PSBVDLUD"",39,0)"
^XMB(3.9,98,2,8760,0)=" .;"
^XMB(3.9,98,2,8761,0)="""RTN"",""PSBVDLUD"",40,0)"
^XMB(3.9,98,2,8762,0)=" .; include Active, Renewed, ReInstated and On Call"
^XMB(3.9,98,2,8763,0)="""RTN"",""PSBVDLUD"",41,0)"
^XMB(3.9,98,2,8764,0)=" .; (Is it not one time)&(Is it not active or renewed or On Call)"
^XMB(3.9,98,2,8765,0)="""RTN"",""PSBVDLUD"",42,0)"
^XMB(3.9,98,2,8766,0)=" .I PSBSCHT'=""O"",PSBOSTS'=""A"",PSBOSTS'=""H"",PSBOSTS'=""R"",PSBOSTS'=""RE"",PSBOSTS'=""O"" Q"
^XMB(3.9,98,2,8767,0)="""RTN"",""PSBVDLUD"",43,0)"
^XMB(3.9,98,2,8768,0)=" .;"
^XMB(3.9,98,2,8769,0)="""RTN"",""PSBVDLUD"",44,0)"
^XMB(3.9,98,2,8770,0)=" .; Is One Time Given"
^XMB(3.9,98,2,8771,0)="""RTN"",""PSBVDLUD"",45,0)"
^XMB(3.9,98,2,8772,0)=" .;"
^XMB(3.9,98,2,8773,0)="""RTN"",""PSBVDLUD"",46,0)"
^XMB(3.9,98,2,8774,0)=" .I PSBSCHT=""O"" D  Q:PSBGVN"
^XMB(3.9,98,2,8775,0)="""RTN"",""PSBVDLUD"",47,0)"
^XMB(3.9,98,2,8776,0)=" ..S (PSBGVN,X,Y)="""""
^XMB(3.9,98,2,8777,0)="""RTN"",""PSBVDLUD"",48,0)"
^XMB(3.9,98,2,8778,0)=" ..F  S X=$O(^PSB(53.79,""AOIP"",DFN,PSBOIT,X),-1) Q:'X  D"
^XMB(3.9,98,2,8779,0)="""RTN"",""PSBVDLUD"",49,0)"
^XMB(3.9,98,2,8780,0)=" ...F  S Y=$O(^PSB(53.79,""AOIP"",DFN,PSBOIT,X,Y),-1) Q:'Y  D"
^XMB(3.9,98,2,8781,0)="""RTN"",""PSBVDLUD"",50,0)"
^XMB(3.9,98,2,8782,0)=" ....I $P(^PSB(53.79,Y,.1),U)=PSBONX,$P(^PSB(53.79,Y,0),U,9)=""G"" S PSBGVN=1,(X,Y)=0"
^XMB(3.9,98,2,8783,0)="""RTN"",""PSBVDLUD"",51,0)"
^XMB(3.9,98,2,8784,0)=" .;"
^XMB(3.9,98,2,8785,0)="""RTN"",""PSBVDLUD"",52,0)"
^XMB(3.9,98,2,8786,0)=" .; How long does One Time remain on VDL ??"
^XMB(3.9,98,2,8787,0)="""RTN"",""PSBVDLUD"",53,0)"
^XMB(3.9,98,2,8788,0)=" .S PSBRMN=1"
^XMB(3.9,98,2,8789,0)="""RTN"",""PSBVDLUD"",54,0)"
^XMB(3.9,98,2,8790,0)=" .I PSBSCHT=""O"",PSBOSP'=PSBOST&(%>PSBOSP) S PSBRMN=0"
^XMB(3.9,98,2,8791,0)="""RTN"",""PSBVDLUD"",55,0)"
^XMB(3.9,98,2,8792,0)=" .Q:'PSBRMN"
^XMB(3.9,98,2,8793,0)="""RTN"",""PSBVDLUD"",56,0)"
^XMB(3.9,98,2,8794,0)=" .; Is On-Call Given, Can it be given more than once"
^XMB(3.9,98,2,8795,0)="""RTN"",""PSBVDLUD"",57,0)"
^XMB(3.9,98,2,8796,0)=" .;"
^XMB(3.9,98,2,8797,0)="""RTN"",""PSBVDLUD"",58,0)"
^XMB(3.9,98,2,8798,0)=" .I PSBSCHT=""OC"" D  Q:PSBGVN&('$$GET^XPAR(""DIV"",""PSB ADMIN MULTIPLE ONCALL""))"
^XMB(3.9,98,2,8799,0)="""RTN"",""PSBVDLUD"",59,0)"
^XMB(3.9,98,2,8800,0)=" ..S (PSBGVN,X,Y)="""""
^XMB(3.9,98,2,8801,0)="""RTN"",""PSBVDLUD"",60,0)"
^XMB(3.9,98,2,8802,0)=" ..F  S X=$O(^PSB(53.79,""AOIP"",DFN,PSBOIT,X),-1) Q:'X  D"
^XMB(3.9,98,2,8803,0)="""RTN"",""PSBVDLUD"",61,0)"
^XMB(3.9,98,2,8804,0)=" ...F  S Y=$O(^PSB(53.79,""AOIP"",DFN,PSBOIT,X,Y),-1) Q:'Y  D"
^XMB(3.9,98,2,8805,0)="""RTN"",""PSBVDLUD"",62,0)"
^XMB(3.9,98,2,8806,0)=" ....I $P(^PSB(53.79,Y,.1),U)=PSBONX,$P(^PSB(53.79,Y,0),U,9)=""G"" S PSBGVN=1,(X,Y)=0"
^XMB(3.9,98,2,8807,0)="""RTN"",""PSBVDLUD"",63,0)"
^XMB(3.9,98,2,8808,0)=" .;"
^XMB(3.9,98,2,8809,0)="""RTN"",""PSBVDLUD"",64,0)"
^XMB(3.9,98,2,8810,0)=" .S PSBREC="""""
^XMB(3.9,98,2,8811,0)="""RTN"",""PSBVDLUD"",65,0)"
^XMB(3.9,98,2,8812,0)=" .S $P(PSBREC,U,1)=DFN ; dfn"
^XMB(3.9,98,2,8813,0)="""RTN"",""PSBVDLUD"",66,0)"
^XMB(3.9,98,2,8814,0)=" .S $P(PSBREC,U,2)=PSBONX ; order"
^XMB(3.9,98,2,8815,0)="""RTN"",""PSBVDLUD"",67,0)"
^XMB(3.9,98,2,8816,0)=" .S $P(PSBREC,U,3)=PSBON ; order ien"
^XMB(3.9,98,2,8817,0)="""RTN"",""PSBVDLUD"",68,0)"
^XMB(3.9,98,2,8818,0)=" .S $P(PSBREC,U,4)=PSBOTYP ; iv/ud/pending"
^XMB(3.9,98,2,8819,0)="""RTN"",""PSBVDLUD"",69,0)"
^XMB(3.9,98,2,8820,0)=" .S $P(PSBREC,U,5)=PSBSCHT ; schedule type"
^XMB(3.9,98,2,8821,0)="""RTN"",""PSBVDLUD"",70,0)"
^XMB(3.9,98,2,8822,0)=" .S $P(PSBREC,U,6)=PSBSCH ; schedule"
^XMB(3.9,98,2,8823,0)="""RTN"",""PSBVDLUD"",71,0)"
^XMB(3.9,98,2,8824,0)=" .S $P(PSBREC,U,7)=$S(PSBHSM:""HSM"",PSBSM:""SM"",1:"""") ; self med"
^XMB(3.9,98,2,8825,0)="""RTN"",""PSBVDLUD"",72,0)"
^XMB(3.9,98,2,8826,0)=" .S $P(PSBREC,U,8)=PSBOITX ; drugname"
^XMB(3.9,98,2,8827,0)="""RTN"",""PSBVDLUD"",73,0)"
^XMB(3.9,98,2,8828,0)=" .S $P(PSBREC,U,9)=PSBDOSE_"" ""_PSBIFR ; dosage"
^XMB(3.9,98,2,8829,0)="""RTN"",""PSBVDLUD"",74,0)"
^XMB(3.9,98,2,8830,0)=" .S $P(PSBREC,U,10)=PSBMR ; route"
^XMB(3.9,98,2,8831,0)="""RTN"",""PSBVDLUD"",75,0)"
^XMB(3.9,98,2,8832,0)=" .; Last Given from the AOIP X-Ref - not given status not excepted"
^XMB(3.9,98,2,8833,0)="""RTN"",""PSBVDLUD"",76,0)"
^XMB(3.9,98,2,8834,0)=" .S (PSBCNT,PSBFLAG)=0,(YZ,PSBSTUS,PSBADMER)="""" K PSBHSTA,PSBHSTAX"
^XMB(3.9,98,2,8835,0)="""RTN"",""PSBVDLUD"",77,0)"
^XMB(3.9,98,2,8836,0)=" .F XZ=1:1:20 S YZ=$O(^PSB(53.79,""AOIP"",DFN,PSBOIT,YZ),-1),(PSBCNT,PSBFLAG)=0 Q:YZ=""""  D"
^XMB(3.9,98,2,8837,0)="""RTN"",""PSBVDLUD"",78,0)"
^XMB(3.9,98,2,8838,0)=" ..S:YZ>0 $P(PSBREC,U,11)=YZ"
^XMB(3.9,98,2,8839,0)="""RTN"",""PSBVDLUD"",79,0)"
^XMB(3.9,98,2,8840,0)=" ..S X="""" F  S X=$O(^PSB(53.79,""AOIP"",DFN,PSBOIT,YZ,X),-1) Q:X=""""  D"
^XMB(3.9,98,2,8841,0)="""RTN"",""PSBVDLUD"",80,0)"
^XMB(3.9,98,2,8842,0)=" ...K PSBLCK L +^PSB(53.79,X):1  I  L -^PSB(53.79,X) S PSBLCK=1"
^XMB(3.9,98,2,8843,0)="""RTN"",""PSBVDLUD"",81,0)"
^XMB(3.9,98,2,8844,0)=" ...S PSBSTUS=$P(^PSB(53.79,X,0),U,9)"
^XMB(3.9,98,2,8845,0)="""RTN"",""PSBVDLUD"",82,0)"
^XMB(3.9,98,2,8846,0)=" ...I $G(PSBSTUS)="""" S:'$G(PSBLCK) PSBSTUS=""X"" I $G(PSBLCK) S PSBADMER=1 D"
^XMB(3.9,98,2,8847,0)="""RTN"",""PSBVDLUD"",83,0)"
^XMB(3.9,98,2,8848,0)=" ....K PSBPARM3,PSBPARM5,PSBPARM6,PSBPARM7"
^XMB(3.9,98,2,8849,0)="""RTN"",""PSBVDLUD"",84,0)"
^XMB(3.9,98,2,8850,0)=" ....S PSBPARM6=X,Y=$P(^PSB(53.79,X,.1),U,3) D DD^%DT S PSBPARM3=Y,Y=$P(^PSB(53.79,X,0),U,6) D DD^%DT S PSBPARM5=Y"
^XMB(3.9,98,2,8851,0)="""RTN"",""PSBVDLUD"",85,0)"
^XMB(3.9,98,2,8852,0)=" ....S PSBPARM7=$P(^PSB(53.79,X,0),U,7) S PSBPARM7=""( # ""_PSBPARM7_"" ) ""_$$GET1^DIQ(200,PSBPARM7_"","",.01)"
^XMB(3.9,98,2,8853,0)="""RTN"",""PSBVDLUD"",86,0)"
^XMB(3.9,98,2,8854,0)=" ....K PSBXTMP S PSBXTMP=PSBONX"
^XMB(3.9,98,2,8855,0)="""RTN"",""PSBVDLUD"",87,0)"
^XMB(3.9,98,2,8856,0)=" ....D CLEAN^PSBVT,PSJ1^PSBVT(DFN,$$GET1^DIQ(53.79,PSBPARM6_"","",.11))"
^XMB(3.9,98,2,8857,0)="""RTN"",""PSBVDLUD"",88,0)"
^XMB(3.9,98,2,8858,0)=" ....D ERROR^PSBMLU(PSBONX,PSBOITX,DFN,PSBPARM3_"" admin's ACTION STATUS is """"UNKNOWN""""."",PSBSCH,PSBPARM5,PSBPARM6,PSBPARM7) ;  SEND AN E-MAIL"
^XMB(3.9,98,2,8859,0)="""RTN"",""PSBVDLUD"",89,0)"
^XMB(3.9,98,2,8860,0)=" ....D CLEAN^PSBVT,PSJ1^PSBVT(DFN,PSBXTMP)  ;Reset Variables"
^XMB(3.9,98,2,8861,0)="""RTN"",""PSBVDLUD"",90,0)"
^XMB(3.9,98,2,8862,0)=" ....S X=PSBPARM6 K PSBPARM3,PSBPARM5,PSBPARM6,PSBPARM7"
^XMB(3.9,98,2,8863,0)="""RTN"",""PSBVDLUD"",91,0)"
^XMB(3.9,98,2,8864,0)=" ...K PSBLCK S:(PSBSTUS']"""") PSBSTUS=""U""  I PSBSTUS'=""N"",($G(PSBSTUS)'=""X"") S PSBFLAG=1,PSBHSTA(YZ,$G(PSBSTUS))=""ORIG""_U_X"
^XMB(3.9,98,2,8865,0)="""RTN"",""PSBVDLUD"",92,0)"
^XMB(3.9,98,2,8866,0)=" ...D:PSBSTUS=""N"""
^XMB(3.9,98,2,8867,0)="""RTN"",""PSBVDLUD"",93,0)"
^XMB(3.9,98,2,8868,0)=" ....S $P(PSBREC,U,11)="""""
^XMB(3.9,98,2,8869,0)="""RTN"",""PSBVDLUD"",94,0)"
^XMB(3.9,98,2,8870,0)=" ....S Z="""" F  S Z=$O(^PSB(53.79,X,.9,Z),-1) Q:'Z  Q:PSBFLAG=1  S PSBDATA=$G(^(Z,0)) D"
^XMB(3.9,98,2,8871,0)="""RTN"",""PSBVDLUD"",95,0)"
^XMB(3.9,98,2,8872,0)=" .....I (PSBDATA[""Set to 'NOT GIVEN'"")!(PSBDATA[""Set to 'GIVEN'"")!(PSBDATA[""Set to 'REFUSED'"")!(PSBDATA[""Set to 'HELD'"")!(PSBDATA[""Set to 'MISSING DOSE'"")!(PSBDATA[""Set to 'REMOVED'"") S PSBCNT=PSBCNT+1"
^XMB(3.9,98,2,8873,0)="""RTN"",""PSBVDLUD"",96,0)"
^XMB(3.9,98,2,8874,0)=" .....I (PSBDATA[""STATUS 'HELD'"")!(PSBDATA[""STATUS 'GIVEN'"")!(PSBDATA[""STATUS 'REFUSED'"")!(PSBDATA[""STATUS 'MISSING DOSE'"")!(PSBDATA[""STATUS 'REMOVED'"") S PSBCNT=PSBCNT+1"
^XMB(3.9,98,2,8875,0)="""RTN"",""PSBVDLUD"",97,0)"
^XMB(3.9,98,2,8876,0)=" .....I PSBCNT#2=0,PSBDATA[""'REFUSED'"" S PSBSTUS=""R"" D LAST^PSBVDLU1"
^XMB(3.9,98,2,8877,0)="""RTN"",""PSBVDLUD"",98,0)"
^XMB(3.9,98,2,8878,0)=" .....I PSBCNT#2=0,PSBDATA[""'HELD'"" S PSBSTUS=""H"" D LAST^PSBVDLU1"
^XMB(3.9,98,2,8879,0)="""RTN"",""PSBVDLUD"",99,0)"
^XMB(3.9,98,2,8880,0)=" .....I PSBCNT#2=0,PSBDATA[""'MISSING DOSE'"" S PSBSTUS=""M"" D LAST^PSBVDLU1"
^XMB(3.9,98,2,8881,0)="""RTN"",""PSBVDLUD"",100,0)"
^XMB(3.9,98,2,8882,0)=" .....I PSBCNT#2=0,PSBDATA[""'REMOVED'"" S PSBSTUS=""RM"" D LAST^PSBVDLU1"
^XMB(3.9,98,2,8883,0)="""RTN"",""PSBVDLUD"",101,0)"
^XMB(3.9,98,2,8884,0)=" .....I PSBFLAG=1,'$D(PSBHSTA($P(PSBREC,U,11),$G(PSBSTUS))) S PSBHSTA($P(PSBREC,U,11),$G(PSBSTUS))=Z_U_X"
^XMB(3.9,98,2,8885,0)="""RTN"",""PSBVDLUD"",102,0)"
^XMB(3.9,98,2,8886,0)=" .I $D(PSBHSTA) S $P(PSBREC,U,11)=$O(PSBHSTA(""""),-1),PSBSTUS=$O(PSBHSTA($P(PSBREC,U,11),""""),-1) M PSBHSTAX(PSBOIT)=PSBHSTA K PSBHSTA  ;last action date/time"
^XMB(3.9,98,2,8887,0)="""RTN"",""PSBVDLUD"",103,0)"
^XMB(3.9,98,2,8888,0)=" .S $P(PSBREC,U,12)=""""  ;med log ien inserted below for actual date"
^XMB(3.9,98,2,8889,0)="""RTN"",""PSBVDLUD"",104,0)"
^XMB(3.9,98,2,8890,0)=" .S $P(PSBREC,U,13)=""""  ;med log status inserted below for actual date"
^XMB(3.9,98,2,8891,0)="""RTN"",""PSBVDLUD"",105,0)"
^XMB(3.9,98,2,8892,0)=" .S $P(PSBREC,U,14)="""" ; admin date inserted below"
^XMB(3.9,98,2,8893,0)="""RTN"",""PSBVDLUD"",106,0)"
^XMB(3.9,98,2,8894,0)=" .S $P(PSBREC,U,15)=PSBOIT ; OI Pointer"
^XMB(3.9,98,2,8895,0)="""RTN"",""PSBVDLUD"",107,0)"
^XMB(3.9,98,2,8896,0)=" .S $P(PSBREC,U,16)=0  ; Default to not injectable"
^XMB(3.9,98,2,8897,0)="""RTN"",""PSBVDLUD"",108,0)"
^XMB(3.9,98,2,8898,0)=" .F X=""ID"",""IV"",""IM"",""SC"",""SQ"" D  Q:$P(PSBREC,U,16)"
^XMB(3.9,98,2,8899,0)="""RTN"",""PSBVDLUD"",109,0)"
^XMB(3.9,98,2,8900,0)=" ..I PSBMR?@("".E1""""""_X_"""""".E""),PSBMR'[""MISC"" S $P(PSBREC,U,16)=1"
^XMB(3.9,98,2,8901,0)="""RTN"",""PSBVDLUD"",110,0)"
^XMB(3.9,98,2,8902,0)=" .; Variable dosage entered as ####-####?"
^XMB(3.9,98,2,8903,0)="""RTN"",""PSBVDLUD"",111,0)"
^XMB(3.9,98,2,8904,0)=" .I $P(PSBREC,U,9)?1.4N1""-""1.4N.E S $P(PSBREC,U,17)=1"
^XMB(3.9,98,2,8905,0)="""RTN"",""PSBVDLUD"",112,0)"
^XMB(3.9,98,2,8906,0)=" .E  S $P(PSBREC,U,17)=0"
^XMB(3.9,98,2,8907,0)="""RTN"",""PSBVDLUD"",113,0)"
^XMB(3.9,98,2,8908,0)=" .S:PSBDOSEF?1""CAP"".E!(PSBDOSEF?1""TAB"".E)!(PSBDOSEF=""PATCH"") $P(PSBREC,U,18)=PSBDOSEF ; dosage form"
^XMB(3.9,98,2,8909,0)="""RTN"",""PSBVDLUD"",114,0)"
^XMB(3.9,98,2,8910,0)=" .S $P(PSBREC,U,20)=$S((PSBSTUS=""X"")!(PSBSTUS=""N""):"""",1:PSBSTUS) ; last action status"
^XMB(3.9,98,2,8911,0)="""RTN"",""PSBVDLUD"",115,0)"
^XMB(3.9,98,2,8912,0)=" .S $P(PSBREC,U,21)=PSBOST"
^XMB(3.9,98,2,8913,0)="""RTN"",""PSBVDLUD"",116,0)"
^XMB(3.9,98,2,8914,0)=" .S $P(PSBREC,U,22)=PSBOSTS"
^XMB(3.9,98,2,8915,0)="""RTN"",""PSBVDLUD"",117,0)"
^XMB(3.9,98,2,8916,0)=" .;"
^XMB(3.9,98,2,8917,0)="""RTN"",""PSBVDLUD"",118,0)"
^XMB(3.9,98,2,8918,0)=" .; Gather Dispense Drugs"
^XMB(3.9,98,2,8919,0)="""RTN"",""PSBVDLUD"",119,0)"
^XMB(3.9,98,2,8920,0)=" .D NOW^%DTC"
^XMB(3.9,98,2,8921,0)="""RTN"",""PSBVDLUD"",120,0)"
^XMB(3.9,98,2,8922,0)=" .S (PSBDDS,PSBSOLS,PSBADDS,PSBFLAG)=""0"""
^XMB(3.9,98,2,8923,0)="""RTN"",""PSBVDLUD"",121,0)"
^XMB(3.9,98,2,8924,0)=" .F Y=0:0 S Y=$O(PSBDDA(Y)) Q:'Y  D"
^XMB(3.9,98,2,8925,0)="""RTN"",""PSBVDLUD"",122,0)"
^XMB(3.9,98,2,8926,0)=" ..I $P(PSBDDA(Y),U,5)=$P(%,""."") S PSBFLAG=1 ;If drug was inactivated"
^XMB(3.9,98,2,8927,0)="""RTN"",""PSBVDLUD"",123,0)"
^XMB(3.9,98,2,8928,0)=" ..Q:$P(PSBDDA(Y),U,5)&($P(PSBDDA(Y),U,5)<%)  ; Inactive"
^XMB(3.9,98,2,8929,0)="""RTN"",""PSBVDLUD"",124,0)"
^XMB(3.9,98,2,8930,0)=" ..S:$P(PSBDDA(Y),U,4)="""" $P(PSBDDA(Y),U,4)=1"
^XMB(3.9,98,2,8931,0)="""RTN"",""PSBVDLUD"",125,0)"
^XMB(3.9,98,2,8932,0)=" ..S PSBDDS=PSBDDS_U_$P(PSBDDA(Y),U,1,4)"
^XMB(3.9,98,2,8933,0)="""RTN"",""PSBVDLUD"",126,0)"
^XMB(3.9,98,2,8934,0)=" ..S $P(PSBDDS,U,1)=PSBDDS+1"
^XMB(3.9,98,2,8935,0)="""RTN"",""PSBVDLUD"",127,0)"
^XMB(3.9,98,2,8936,0)=" .;"
^XMB(3.9,98,2,8937,0)="""RTN"",""PSBVDLUD"",128,0)"
^XMB(3.9,98,2,8938,0)=" .; On-Call One Time PRN orders"
^XMB(3.9,98,2,8939,0)="""RTN"",""PSBVDLUD"",129,0)"
^XMB(3.9,98,2,8940,0)=" .S PSBQRR=0"
^XMB(3.9,98,2,8941,0)="""RTN"",""PSBVDLUD"",130,0)"
^XMB(3.9,98,2,8942,0)=" .I ""^O^OC^P^""[(U_PSBSCHT_U) D ADD^PSBVDLU1(PSBREC,PSBOTXT,PSBNOW\1,PSBDDS,PSBSOLS,PSBADDS,""UDTAB"") Q"
^XMB(3.9,98,2,8943,0)="""RTN"",""PSBVDLUD"",131,0)"
^XMB(3.9,98,2,8944,0)=" .;"
^XMB(3.9,98,2,8945,0)="""RTN"",""PSBVDLUD"",132,0)"
^XMB(3.9,98,2,8946,0)=" .; Now we deal with only continuous"
^XMB(3.9,98,2,8947,0)="""RTN"",""PSBVDLUD"",133,0)"
^XMB(3.9,98,2,8948,0)=" .; process admintimes"
^XMB(3.9,98,2,8949,0)="""RTN"",""PSBVDLUD"",134,0)"
^XMB(3.9,98,2,8950,0)=" .; Display an order on the VDL based on the frequency received from IPM **PSB*2.0*3"
^XMB(3.9,98,2,8951,0)="""RTN"",""PSBVDLUD"",135,0)"
^XMB(3.9,98,2,8952,0)=" .S (PSBYES,PSBODD,PSBYTF)=0"
^XMB(3.9,98,2,8953,0)="""RTN"",""PSBVDLUD"",136,0)"
^XMB(3.9,98,2,8954,0)=" .I PSBSCH="""" D ERROR^PSBMLU(PSBONX,PSBOITX,DFN,""No Schedule on this order"")"
^XMB(3.9,98,2,8955,0)="""RTN"",""PSBVDLUD"",137,0)"
^XMB(3.9,98,2,8956,0)=" .S:$$PSBDCHK1^PSBVT1(PSBSCH) PSBYES=1"
^XMB(3.9,98,2,8957,0)="""RTN"",""PSBVDLUD"",138,0)"
^XMB(3.9,98,2,8958,0)=" .I PSBYES,PSBADST="""" D ERROR^PSBMLU(PSBONX,PSBOITX,DFN,""Admin times required"",PSBSCH) Q"
^XMB(3.9,98,2,8959,0)="""RTN"",""PSBVDLUD"",139,0)"
^XMB(3.9,98,2,8960,0)=" .F I=1:1 Q:$P(PSBSCH,""-"",I)=""""  I $P(PSBSCH,""-"",I)?2N!($P(PSBSCH,""-"",I)?4N) S PSBYES=1,PSBYTF=1"
^XMB(3.9,98,2,8961,0)="""RTN"",""PSBVDLUD"",140,0)"
^XMB(3.9,98,2,8962,0)=" .I PSBSCHT=""C"",PSBYTF=""1"",PSBADST="""" D ERROR^PSBMLU(PSBONX,PSBOITX,DFN,""Admin times required"",PSBSCH) Q"
^XMB(3.9,98,2,8963,0)="""RTN"",""PSBVDLUD"",141,0)"
^XMB(3.9,98,2,8964,0)=" .S PSBFREQ=$$GETFREQ^PSBVDLU1(DFN,PSBONX)"
^XMB(3.9,98,2,8965,0)="""RTN"",""PSBVDLUD"",142,0)"
^XMB(3.9,98,2,8966,0)=" .I PSBFREQ=""O"" S PSBFREQ=1440"
^XMB(3.9,98,2,8967,0)="""RTN"",""PSBVDLUD"",143,0)"
^XMB(3.9,98,2,8968,0)=" .I PSBFREQ=""D"" S PSBFREQ="""""
^XMB(3.9,98,2,8969,0)="""RTN"",""PSBVDLUD"",144,0)"
^XMB(3.9,98,2,8970,0)=" .I 'PSBYES,PSBFREQ<1 D ERROR^PSBMLU(PSBONX,PSBOITX,DFN,""Invalid frequency received from order"",PSBSCH) Q"
^XMB(3.9,98,2,8971,0)="""RTN"",""PSBVDLUD"",145,0)"
^XMB(3.9,98,2,8972,0)=" .I (PSBADST="""")&(+PSBFREQ>0) D ODDSCH^PSBVDLU1(""UDTAB"") Q  ;calculate admin times based on frequency"
^XMB(3.9,98,2,8973,0)="""RTN"",""PSBVDLUD"",146,0)"
^XMB(3.9,98,2,8974,0)=" .; No admin times, MAYDAY MAYDAY!!"
^XMB(3.9,98,2,8975,0)="""RTN"",""PSBVDLUD"",147,0)"
^XMB(3.9,98,2,8976,0)=" .I +PSBFREQ>0 I (PSBFREQ#1440'=0),(1440#PSBFREQ'=0) S PSBODD=1"
^XMB(3.9,98,2,8977,0)="""RTN"",""PSBVDLUD"",148,0)"
^XMB(3.9,98,2,8978,0)=" .I PSBODD,PSBADST'="""" D ERROR^PSBMLU(PSBONX,PSBOITX,DFN,""Administration Times on ODD SCHEDULE"",PSBSCH) Q"
^XMB(3.9,98,2,8979,0)="""RTN"",""PSBVDLUD"",149,0)"
^XMB(3.9,98,2,8980,0)=" .; process admin times against beginning and ending date"
^XMB(3.9,98,2,8981,0)="""RTN"",""PSBVDLUD"",150,0)"
^XMB(3.9,98,2,8982,0)=" .; build all orders for both days."
^XMB(3.9,98,2,8983,0)="""RTN"",""PSBVDLUD"",151,0)"
^XMB(3.9,98,2,8984,0)=" .F PSBY=1:1 Q:$P(PSBADST,""-"",PSBY)=""""  D"
^XMB(3.9,98,2,8985,0)="""RTN"",""PSBVDLUD"",152,0)"
^XMB(3.9,98,2,8986,0)=" ..;For invalid admin times"
^XMB(3.9,98,2,8987,0)="""RTN"",""PSBVDLUD"",153,0)"
^XMB(3.9,98,2,8988,0)=" ..I ($P(PSBADST,""-"",PSBY)'?2N)&($P(PSBADST,""-"",PSBY)'?4N) D ERROR^PSBMLU(PSBONX,PSBOITX,DFN,""Invalid Admin times"",PSBSCH)"
^XMB(3.9,98,2,8989,0)="""RTN"",""PSBVDLUD"",154,0)"
^XMB(3.9,98,2,8990,0)=" ..; apply this time to the beginning window date"
^XMB(3.9,98,2,8991,0)="""RTN"",""PSBVDLUD"",155,0)"
^XMB(3.9,98,2,8992,0)=" ..S PSB=+(PSBWBEG\1_"".""_$P(PSBADST,""-"",PSBY))"
^XMB(3.9,98,2,8993,0)="""RTN"",""PSBVDLUD"",156,0)"
^XMB(3.9,98,2,8994,0)=" ..D:(PSB'<PSBWBEG)&(PSB'>PSBWEND)  ; Make sure it is in the window"
^XMB(3.9,98,2,8995,0)="""RTN"",""PSBVDLUD"",157,0)"
^XMB(3.9,98,2,8996,0)=" ...D:(PSB'<PSBOST)&(PSB<PSBOSP)  ; Make sure this time is active"
^XMB(3.9,98,2,8997,0)="""RTN"",""PSBVDLUD"",158,0)"
^XMB(3.9,98,2,8998,0)=" ....D:$$OKAY^PSBVDLU1(PSBOST,PSB,PSBSCH,PSBONX,PSBOITX,PSBFREQ,PSBOSTS)  ; Okay on this date?"
^XMB(3.9,98,2,8999,0)="""RTN"",""PSBVDLUD"",159,0)"
^XMB(3.9,98,2,9000,0)=" .....D ADD^PSBVDLU1(PSBREC,PSBOTXT,PSB,PSBDDS,PSBSOLS,PSBADDS,""UDTAB"")"
^XMB(3.9,98,2,9001,0)="""RTN"",""PSBVDLUD"",160,0)"
^XMB(3.9,98,2,9002,0)=" ..;"
^XMB(3.9,98,2,9003,0)="""RTN"",""PSBVDLUD"",161,0)"
^XMB(3.9,98,2,9004,0)=" ..Q:(PSBWBEG\1)=(PSBWEND\1)  ; Window only has one day rare but possible"
^XMB(3.9,98,2,9005,0)="""RTN"",""PSBVDLUD"",162,0)"
^XMB(3.9,98,2,9006,0)=" ..;"
^XMB(3.9,98,2,9007,0)="""RTN"",""PSBVDLUD"",163,0)"
^XMB(3.9,98,2,9008,0)=" ..; apply this time to the ending window date"
^XMB(3.9,98,2,9009,0)="""RTN"",""PSBVDLUD"",164,0)"
^XMB(3.9,98,2,9010,0)=" ..S PSB=+(PSBWEND\1_"".""_$P(PSBADST,""-"",PSBY))"
^XMB(3.9,98,2,9011,0)="""RTN"",""PSBVDLUD"",165,0)"
^XMB(3.9,98,2,9012,0)=" ..D:(PSB'<PSBWBEG)&(PSB'>PSBWEND)  ; Make sure it is in the window"
^XMB(3.9,98,2,9013,0)="""RTN"",""PSBVDLUD"",166,0)"
^XMB(3.9,98,2,9014,0)=" ...D:(PSB'<PSBOST)&(PSB<PSBOSP)  ; Make sure this time is active"
^XMB(3.9,98,2,9015,0)="""RTN"",""PSBVDLUD"",167,0)"
^XMB(3.9,98,2,9016,0)=" ....D:$$OKAY^PSBVDLU1(PSBOST,PSB,PSBSCH,PSBONX,PSBOITX,PSBFREQ,PSBOSTS)  ; Okay on this date?"
^XMB(3.9,98,2,9017,0)="""RTN"",""PSBVDLUD"",168,0)"
^XMB(3.9,98,2,9018,0)=" .....D ADD^PSBVDLU1(PSBREC,PSBOTXT,PSB,PSBDDS,PSBSOLS,PSBADDS,""UDTAB"")"
^XMB(3.9,98,2,9019,0)="""RTN"",""PSBVDLUD"",169,0)"
^XMB(3.9,98,2,9020,0)=" .K PSBSTUS"
^XMB(3.9,98,2,9021,0)="""RTN"",""PSBVDLUD"",170,0)"
^XMB(3.9,98,2,9022,0)="1 K PSBREC D EN^PSBVDLPA"
^XMB(3.9,98,2,9023,0)="""RTN"",""PSBVDLUD"",171,0)"
^XMB(3.9,98,2,9024,0)=" ;add initials of verifying pharmacist/verifying nurse"
^XMB(3.9,98,2,9025,0)="""RTN"",""PSBVDLUD"",172,0)"
^XMB(3.9,98,2,9026,0)=" D:PSBTAB=""UDTAB"" VNURSE^PSBVDLU1(""UDTAB"")"
^XMB(3.9,98,2,9027,0)="""RTN"",""PSBVDLUD"",173,0)"
^XMB(3.9,98,2,9028,0)=" D CLEAN^PSBVT"
^XMB(3.9,98,2,9029,0)="""RTN"",""PSBVDLUD"",174,0)"
^XMB(3.9,98,2,9030,0)=" Q"
^XMB(3.9,98,2,9031,0)="""RTN"",""PSBVDLUD"",175,0)"
^XMB(3.9,98,2,9032,0)=" ;"
^XMB(3.9,98,2,9033,0)="""RTN"",""PSBVDLVL"")"
^XMB(3.9,98,2,9034,0)="0^13^B60130860^B58456162"
^XMB(3.9,98,2,9035,0)="""RTN"",""PSBVDLVL"",1,0)"
^XMB(3.9,98,2,9036,0)="PSBVDLVL ;BIRMINGHAM/EFC-BCMA VIRTUAL DUE LIST FUNCTIONS ;Mar 2004"
^XMB(3.9,98,2,9037,0)="""RTN"",""PSBVDLVL"",2,0)"
^XMB(3.9,98,2,9038,0)=" ;;3.0;BAR CODE MED ADMIN;**6,3,12,11,13**;Mar 2004"
^XMB(3.9,98,2,9039,0)="""RTN"",""PSBVDLVL"",3,0)"
^XMB(3.9,98,2,9040,0)=" ;"
^XMB(3.9,98,2,9041,0)="""RTN"",""PSBVDLVL"",4,0)"
^XMB(3.9,98,2,9042,0)="EN(RESULTS,DFN,PSBXOR,PSBTYPE,PSBADMIN,PSBTAB,PSBUID,PSBASTS,PSBORSTS,PSBRMV) ;"
^XMB(3.9,98,2,9043,0)="""RTN"",""PSBVDLVL"",5,0)"
^XMB(3.9,98,2,9044,0)=" ;"
^XMB(3.9,98,2,9045,0)="""RTN"",""PSBVDLVL"",6,0)"
^XMB(3.9,98,2,9046,0)=" ; RPC: PSB VALIDATE ORDER"
^XMB(3.9,98,2,9047,0)="""RTN"",""PSBVDLVL"",7,0)"
^XMB(3.9,98,2,9048,0)=" ;"
^XMB(3.9,98,2,9049,0)="""RTN"",""PSBVDLVL"",8,0)"
^XMB(3.9,98,2,9050,0)=" ; Description: Final check of order against an actual administration"
^XMB(3.9,98,2,9051,0)="""RTN"",""PSBVDLVL"",9,0)"
^XMB(3.9,98,2,9052,0)=" ;              date/time used immediately after scanned med has been"
^XMB(3.9,98,2,9053,0)="""RTN"",""PSBVDLVL"",10,0)"
^XMB(3.9,98,2,9054,0)=" ;              validated to be a good un-administered order."
^XMB(3.9,98,2,9055,0)="""RTN"",""PSBVDLVL"",11,0)"
^XMB(3.9,98,2,9056,0)=" ;"
^XMB(3.9,98,2,9057,0)="""RTN"",""PSBVDLVL"",12,0)"
^XMB(3.9,98,2,9058,0)=" K PSBTST"
^XMB(3.9,98,2,9059,0)="""RTN"",""PSBVDLVL"",13,0)"
^XMB(3.9,98,2,9060,0)=" N PSBFLAG"
^XMB(3.9,98,2,9061,0)="""RTN"",""PSBVDLVL"",14,0)"
^XMB(3.9,98,2,9062,0)=" I PSBRMV=""I"" D GETOHIST^PSBRPC2(.PSBTST,DFN,PSBXOR_PSBTYPE) S I=0 F  S I=$O(PSBTST(I)) Q:I=""""  I $P(PSBTST(I),U,5)=""I"" S RESULTS(0)=1,RESULTS(1)=""-2^"" K PSBTST Q"
^XMB(3.9,98,2,9063,0)="""RTN"",""PSBVDLVL"",15,0)"
^XMB(3.9,98,2,9064,0)=" K PSBOKAY D CLEAN^PSBVT,PSJ1^PSBVT(DFN,PSBXOR_PSBTYPE) S PSB=0"
^XMB(3.9,98,2,9065,0)="""RTN"",""PSBVDLVL"",16,0)"
^XMB(3.9,98,2,9066,0)=" S RESULTS(0)=1,RESULTS(1)=""-1^***Unable to determine administration"" ; Default Flag will be overwritten by anything"
^XMB(3.9,98,2,9067,0)="""RTN"",""PSBVDLVL"",17,0)"
^XMB(3.9,98,2,9068,0)=" D NOW^%DTC"
^XMB(3.9,98,2,9069,0)="""RTN"",""PSBVDLVL"",18,0)"
^XMB(3.9,98,2,9070,0)=" I ((PSBOSTS=""A"")!(PSBOSTS=""R""))&(PSBOSP<%) S PSBOSTS=""E"""
^XMB(3.9,98,2,9071,0)="""RTN"",""PSBVDLVL"",19,0)"
^XMB(3.9,98,2,9072,0)=" I PSBORSTS'=PSBOSTS,((PSBSCHT'=""O"")&(PSBOSTS'=""E"")) S PSB=PSB+1,RESULTS(0)=PSB,RESULTS(PSB)=""-2^ORDER STATUS MISMATCH"" Q"
^XMB(3.9,98,2,9073,0)="""RTN"",""PSBVDLVL"",20,0)"
^XMB(3.9,98,2,9074,0)=" I ((PSBTAB=""UDTAB"")!(PSBTAB=""PBTAB"")),((PSBRMV=""RM"")!(PSBRMV=""N"")) D  Q"
^XMB(3.9,98,2,9075,0)="""RTN"",""PSBVDLVL"",21,0)"
^XMB(3.9,98,2,9076,0)=" .S PSB=PSB+1,RESULTS(0)=PSB,RESULTS(PSB)=""0^OKAY TO REMOVE""  ; patch removal does not follow rest of validte rules"
^XMB(3.9,98,2,9077,0)="""RTN"",""PSBVDLVL"",22,0)"
^XMB(3.9,98,2,9078,0)=" .I PSBASTS="""" Q  ;status is not given - don't check for missmatch"
^XMB(3.9,98,2,9079,0)="""RTN"",""PSBVDLVL"",23,0)"
^XMB(3.9,98,2,9080,0)=" .I $D(^PSB(53.79,""AORD"",DFN,PSBXOR_PSBTYPE,+PSBADMIN)) S X=$O(^PSB(53.79,""AORD"",DFN,PSBXOR_PSBTYPE,+PSBADMIN,"""")) I $P($G(^PSB(53.79,+X,0)),U,9)'=PSBASTS  S PSB=PSB+1,RESULTS(0)=PSB,RESULTS(PSB)=""-2^Admin status mismatch"""
^XMB(3.9,98,2,9081,0)="""RTN"",""PSBVDLVL"",24,0)"
^XMB(3.9,98,2,9082,0)=" I PSBTYPE=""V"",PSBSCHT'=""P"",((PSBUID="""")!(PSBUID[""WS"")) S RESULTS(0)=1,RESULTS(1)=""0^Okay to administer"" Q:PSBTAB=""IVTAB"""
^XMB(3.9,98,2,9083,0)="""RTN"",""PSBVDLVL"",25,0)"
^XMB(3.9,98,2,9084,0)=" I PSBTYPE=""V"",PSBUID'="""" D  Q:PSBTAB=""IVTAB""  ; validate IV bags Piggybacks have additional tests"
^XMB(3.9,98,2,9085,0)="""RTN"",""PSBVDLVL"",26,0)"
^XMB(3.9,98,2,9086,0)=" .S PSB=0,PSBSUID=PSBUID D EN^PSBPOIV(DFN,PSBXOR_PSBTYPE)"
^XMB(3.9,98,2,9087,0)="""RTN"",""PSBVDLVL"",27,0)"
^XMB(3.9,98,2,9088,0)=" .S X="""" F  S X=$O(^TMP(""PSBAR"",$J,X)) Q:X=""""  D"
^XMB(3.9,98,2,9089,0)="""RTN"",""PSBVDLVL"",28,0)"
^XMB(3.9,98,2,9090,0)=" ..I PSBSUID'=X Q"
^XMB(3.9,98,2,9091,0)="""RTN"",""PSBVDLVL"",29,0)"
^XMB(3.9,98,2,9092,0)=" ..S PSBUIDS=^TMP(""PSBAR"",$J,X)"
^XMB(3.9,98,2,9093,0)="""RTN"",""PSBVDLVL"",30,0)"
^XMB(3.9,98,2,9094,0)=" ..I $P(PSBUIDS,U,2)=""I""!($P(PSBUIDS,U,2)=""S"") S PSB=PSB+1,RESULTS(0)=PSB,RESULTS(PSB)=""0^Okay to administer"" Q  ; is infusing or stopped"
^XMB(3.9,98,2,9095,0)="""RTN"",""PSBVDLVL"",31,0)"
^XMB(3.9,98,2,9096,0)=" ..I $P(PSBUIDS,U,1)=""I"" S Y=$P(^TMP(""PSBAR"",$J,""I""),U,2) D DD^%DT S PSB=PSB+1,RESULTS(0)=PSB,RESULTS(PSB)=$P(^TMP(""PSBAR"",$J,""I""),U,3,99)_""  ""_Y Q"
^XMB(3.9,98,2,9097,0)="""RTN"",""PSBVDLVL"",32,0)"
^XMB(3.9,98,2,9098,0)=" ..I $P(PSBUIDS,U,1)[""W"" S PSBWS=$P(PSBUIDS,U,1) F PSBWM=2:1 Q:$P(PSBWS,"";"",PSBWM)=""""  D"
^XMB(3.9,98,2,9099,0)="""RTN"",""PSBVDLVL"",33,0)"
^XMB(3.9,98,2,9100,0)=" ...S Y=$P(^TMP(""PSBAR"",$J,""W"",$P(PSBWS,"";"",PSBWM)),U,2) D DD^%DT S PSB=PSB+1,RESULTS(0)=PSB,RESULTS(PSB)=$P(^TMP(""PSBAR"",$J,""W"",$P(PSBWS,"";"",PSBWM)),U,3,99)_"" ""_Y"
^XMB(3.9,98,2,9101,0)="""RTN"",""PSBVDLVL"",34,0)"
^XMB(3.9,98,2,9102,0)=" ..S PSB=PSB+1,RESULTS(0)=PSB,RESULTS(PSB)=""0^Okay to administer"""
^XMB(3.9,98,2,9103,0)="""RTN"",""PSBVDLVL"",35,0)"
^XMB(3.9,98,2,9104,0)=" .K ^TMP(""PSBAR"",$J)"
^XMB(3.9,98,2,9105,0)="""RTN"",""PSBVDLVL"",36,0)"
^XMB(3.9,98,2,9106,0)=" ;"
^XMB(3.9,98,2,9107,0)="""RTN"",""PSBVDLVL"",37,0)"
^XMB(3.9,98,2,9108,0)=" ; no IV orders"
^XMB(3.9,98,2,9109,0)="""RTN"",""PSBVDLVL"",38,0)"
^XMB(3.9,98,2,9110,0)=" ;"
^XMB(3.9,98,2,9111,0)="""RTN"",""PSBVDLVL"",39,0)"
^XMB(3.9,98,2,9112,0)=" D NOW^%DTC"
^XMB(3.9,98,2,9113,0)="""RTN"",""PSBVDLVL"",40,0)"
^XMB(3.9,98,2,9114,0)=" I PSBOSTS=""H"" S PSB=PSB+1,RESULTS(0)=PSB,RESULTS(PSB)=""0^Order is on Provider Hold"" Q"
^XMB(3.9,98,2,9115,0)="""RTN"",""PSBVDLVL"",41,0)"
^XMB(3.9,98,2,9116,0)=" I PSBSCHT'=""O""&(%<($$FMADD^XLFDT(PSBOST,"""","""",$$GET^XPAR(""ALL"",""PSB ADMIN BEFORE"")*-1))) S PSB=PSB+1,RESULTS(0)=PSB,RESULTS(PSB)=""-1^Order Not Active"" Q"
^XMB(3.9,98,2,9117,0)="""RTN"",""PSBVDLVL"",42,0)"
^XMB(3.9,98,2,9118,0)=" I PSBSCHT'=""O""&(%>PSBOSP) S PSB=PSB+1,RESULTS(0)=PSB,RESULTS(PSB)=""-1^Order Not Active"" Q"
^XMB(3.9,98,2,9119,0)="""RTN"",""PSBVDLVL"",43,0)"
^XMB(3.9,98,2,9120,0)=" I (PSBSCHT=""C"")!((PSBSCHT=""P"")&(PSBDOSEF=""PATCH"")) D"
^XMB(3.9,98,2,9121,0)="""RTN"",""PSBVDLVL"",44,0)"
^XMB(3.9,98,2,9122,0)=" .S PSBOKAY=""0^Okay to administer"""
^XMB(3.9,98,2,9123,0)="""RTN"",""PSBVDLVL"",45,0)"
^XMB(3.9,98,2,9124,0)=" .I PSBASTS[""*UNKNOWN*"" S PSBOKAY=""-1^This administration has *UNKNOWN* status"" Q"
^XMB(3.9,98,2,9125,0)="""RTN"",""PSBVDLVL"",46,0)"
^XMB(3.9,98,2,9126,0)=" .I PSBOSTS'=""A"",PSBOSTS'=""R"",PSBOSTS'=""O"" S PSBOKAY=""-1^Order Not Active"" Q"
^XMB(3.9,98,2,9127,0)="""RTN"",""PSBVDLVL"",47,0)"
^XMB(3.9,98,2,9128,0)=" .I PSBNGF S PSBOKAY=""-1^marked DO NOT GIVE"" Q"
^XMB(3.9,98,2,9129,0)="""RTN"",""PSBVDLVL"",48,0)"
^XMB(3.9,98,2,9130,0)=" .S PSBFLAG=0 I PSBRMV=""M""!(PSBRMV=""H"")!(PSBRMV=""R"") S PSBFLAG=1"
^XMB(3.9,98,2,9131,0)="""RTN"",""PSBVDLVL"",49,0)"
^XMB(3.9,98,2,9132,0)=" .I $D(^PSB(53.79,""AORDX"",DFN,PSBXOR_PSBTYPE)) D  Q:X"
^XMB(3.9,98,2,9133,0)="""RTN"",""PSBVDLVL"",50,0)"
^XMB(3.9,98,2,9134,0)=" ..S X=0,PSBLADT=$O(^PSB(53.79,""AORDX"",DFN,PSBXOR_PSBTYPE,""""),-1),PSBLAIEN=$O(^PSB(53.79,""AORDX"",DFN,PSBXOR_PSBTYPE,PSBLADT,""""),-1)"
^XMB(3.9,98,2,9135,0)="""RTN"",""PSBVDLVL"",51,0)"
^XMB(3.9,98,2,9136,0)=" ..I $P($G(^PSB(53.79,PSBLAIEN,0)),U,9)=""G"",$P($G(^PSB(53.79,PSBLAIEN,.5,1,0)),U,4)=""PATCH"",PSBFLAG=0 S X=1,PSBOKAY=""-1^Previous patch has not been removed"" Q"
^XMB(3.9,98,2,9137,0)="""RTN"",""PSBVDLVL"",52,0)"
^XMB(3.9,98,2,9138,0)=" .I $D(^PSB(53.79,""AORD"",DFN,PSBXOR_PSBTYPE,+PSBADMIN)) D  Q:+PSBOKAY<0"
^XMB(3.9,98,2,9139,0)="""RTN"",""PSBVDLVL"",53,0)"
^XMB(3.9,98,2,9140,0)=" ..S X=$O(^PSB(53.79,""AORD"",DFN,PSBXOR_PSBTYPE,+PSBADMIN,""""))"
^XMB(3.9,98,2,9141,0)="""RTN"",""PSBVDLVL"",54,0)"
^XMB(3.9,98,2,9142,0)=" ..L +^PSB(53.79,+X):1"
^XMB(3.9,98,2,9143,0)="""RTN"",""PSBVDLVL"",55,0)"
^XMB(3.9,98,2,9144,0)=" ..I  L -^PSB(53.79,+X)"
^XMB(3.9,98,2,9145,0)="""RTN"",""PSBVDLVL"",56,0)"
^XMB(3.9,98,2,9146,0)=" ..E  S PSBOKAY=""-1^The ""_$$GET1^DIQ(53.79,+X_"","",.13)_"" administration is being edited by another"" Q"
^XMB(3.9,98,2,9147,0)="""RTN"",""PSBVDLVL"",57,0)"
^XMB(3.9,98,2,9148,0)=" ..I $G(PSBASTS)]"""" D  Q:+PSBOKAY<0"
^XMB(3.9,98,2,9149,0)="""RTN"",""PSBVDLVL"",58,0)"
^XMB(3.9,98,2,9150,0)=" ...I $P($G(^PSB(53.79,+X,0)),U,9)="""" Q"
^XMB(3.9,98,2,9151,0)="""RTN"",""PSBVDLVL"",59,0)"
^XMB(3.9,98,2,9152,0)=" ...I $P($G(^PSB(53.79,+X,0)),U,9)'=PSBASTS S PSBOKAY=""-2^Admin status mismatch"" Q"
^XMB(3.9,98,2,9153,0)="""RTN"",""PSBVDLVL"",60,0)"
^XMB(3.9,98,2,9154,0)=" .; Minutes before"
^XMB(3.9,98,2,9155,0)="""RTN"",""PSBVDLVL"",61,0)"
^XMB(3.9,98,2,9156,0)=" .S PSBWIN1=$$GET^XPAR(""DIV"",""PSB ADMIN BEFORE"")*-1"
^XMB(3.9,98,2,9157,0)="""RTN"",""PSBVDLVL"",62,0)"
^XMB(3.9,98,2,9158,0)=" .; Minutes After"
^XMB(3.9,98,2,9159,0)="""RTN"",""PSBVDLVL"",63,0)"
^XMB(3.9,98,2,9160,0)=" .S PSBWIN2=$$GET^XPAR(""DIV"",""PSB ADMIN AFTER"")"
^XMB(3.9,98,2,9161,0)="""RTN"",""PSBVDLVL"",64,0)"
^XMB(3.9,98,2,9162,0)=" .D NOW^%DTC S PSBMIN=$$DIFF^PSBUTL(PSBADMIN,%)"
^XMB(3.9,98,2,9163,0)="""RTN"",""PSBVDLVL"",65,0)"
^XMB(3.9,98,2,9164,0)=" .; PENDING A PC SOLUTION!"
^XMB(3.9,98,2,9165,0)="""RTN"",""PSBVDLVL"",66,0)"
^XMB(3.9,98,2,9166,0)=" .I PSBMIN<PSBWIN1 S PSBOKAY=""1^Admin is ""_(PSBMIN*-1)_"" minutes before the scheduled administration time"" Q"
^XMB(3.9,98,2,9167,0)="""RTN"",""PSBVDLVL"",67,0)"
^XMB(3.9,98,2,9168,0)=" .I PSBMIN>PSBWIN2 S PSBOKAY=""1^Admin is ""_(PSBMIN)_"" minutes after the scheduled administration time"" Q"
^XMB(3.9,98,2,9169,0)="""RTN"",""PSBVDLVL"",68,0)"
^XMB(3.9,98,2,9170,0)=" .S PSBOKAY=""0^Okay to administer"""
^XMB(3.9,98,2,9171,0)="""RTN"",""PSBVDLVL"",69,0)"
^XMB(3.9,98,2,9172,0)=" ; Validate a PRN Order"
^XMB(3.9,98,2,9173,0)="""RTN"",""PSBVDLVL"",70,0)"
^XMB(3.9,98,2,9174,0)=" D:(PSBSCHT=""P"")"
^XMB(3.9,98,2,9175,0)="""RTN"",""PSBVDLVL"",71,0)"
^XMB(3.9,98,2,9176,0)=" .I PSBOSTS'=""A"",PSBOSTS'=""R"",PSBOSTS'=""O"" S PSBOKAY=""-1^Order Not Active"" Q"
^XMB(3.9,98,2,9177,0)="""RTN"",""PSBVDLVL"",72,0)"
^XMB(3.9,98,2,9178,0)=" .I PSBNGF S PSBOKAY=""-1^marked DO NOT GIVE"" Q"
^XMB(3.9,98,2,9179,0)="""RTN"",""PSBVDLVL"",73,0)"
^XMB(3.9,98,2,9180,0)=" .I (+($G(PSBOKAY))<0)&(PSBDOSEF=""PATCH"") Q  ;A Patch may have to be removed."
^XMB(3.9,98,2,9181,0)="""RTN"",""PSBVDLVL"",74,0)"
^XMB(3.9,98,2,9182,0)=" .S PSBOKAY=""1^"""
^XMB(3.9,98,2,9183,0)="""RTN"",""PSBVDLVL"",75,0)"
^XMB(3.9,98,2,9184,0)=" .; Get Last Four Givens"
^XMB(3.9,98,2,9185,0)="""RTN"",""PSBVDLVL"",76,0)"
^XMB(3.9,98,2,9186,0)=" .S PSBDT="""""
^XMB(3.9,98,2,9187,0)="""RTN"",""PSBVDLVL"",77,0)"
^XMB(3.9,98,2,9188,0)=" .F  S PSBDT=$O(^PSB(53.79,""AOIP"",DFN,+PSBOIT,PSBDT),-1) Q:PSBDT=""""  D"
^XMB(3.9,98,2,9189,0)="""RTN"",""PSBVDLVL"",78,0)"
^XMB(3.9,98,2,9190,0)=" ..S PSBDA="""""
^XMB(3.9,98,2,9191,0)="""RTN"",""PSBVDLVL"",79,0)"
^XMB(3.9,98,2,9192,0)=" ..F  S PSBDA=$O(^PSB(53.79,""AOIP"",DFN,+PSBOIT,PSBDT,PSBDA),-1) Q:'PSBDA  D"
^XMB(3.9,98,2,9193,0)="""RTN"",""PSBVDLVL"",80,0)"
^XMB(3.9,98,2,9194,0)=" ...S (PSBCNT1,PSBCNT2,PSBCNT3)=0"
^XMB(3.9,98,2,9195,0)="""RTN"",""PSBVDLVL"",81,0)"
^XMB(3.9,98,2,9196,0)=" ...S PSBLADT=$$GET1^DIQ(53.79,PSBDA_"","",.06,""I"")"
^XMB(3.9,98,2,9197,0)="""RTN"",""PSBVDLVL"",82,0)"
^XMB(3.9,98,2,9198,0)=" ...S PSBSTUS=$$GET1^DIQ(53.79,PSBDA_"","",.09)"
^XMB(3.9,98,2,9199,0)="""RTN"",""PSBVDLVL"",83,0)"
^XMB(3.9,98,2,9200,0)=" ...S:PSBSTUS="""" PSBSTUS=""U"""
^XMB(3.9,98,2,9201,0)="""RTN"",""PSBVDLVL"",84,0)"
^XMB(3.9,98,2,9202,0)=" ...S PSBSCH=$$GET1^DIQ(53.79,PSBDA_"","",.12)"
^XMB(3.9,98,2,9203,0)="""RTN"",""PSBVDLVL"",85,0)"
^XMB(3.9,98,2,9204,0)=" ...S PSBRSN=$$GET1^DIQ(53.79,PSBDA_"","",.21)"
^XMB(3.9,98,2,9205,0)="""RTN"",""PSBVDLVL"",86,0)"
^XMB(3.9,98,2,9206,0)=" ...S PSBINJ=$$GET1^DIQ(53.79,PSBDA_"","",.16)"
^XMB(3.9,98,2,9207,0)="""RTN"",""PSBVDLVL"",87,0)"
^XMB(3.9,98,2,9208,0)=" ...Q:$P(^PSB(53.79,PSBDA,0),U,9)=""N"""
^XMB(3.9,98,2,9209,0)="""RTN"",""PSBVDLVL"",88,0)"
^XMB(3.9,98,2,9210,0)=" ...F PSBZ=.5,.6,.7 F PSBY=0:0 S PSBY=$O(^PSB(53.79,PSBDA,PSBZ,PSBY)) Q:'PSBY  D"
^XMB(3.9,98,2,9211,0)="""RTN"",""PSBVDLVL"",89,0)"
^XMB(3.9,98,2,9212,0)=" ....Q:'$D(^PSB(53.79,PSBDA,PSBZ,PSBY))"
^XMB(3.9,98,2,9213,0)="""RTN"",""PSBVDLVL"",90,0)"
^XMB(3.9,98,2,9214,0)=" ....S PSBDD=$S(PSBZ=.5:53.795,PSBZ=.6:53.796,1:53.797)"
^XMB(3.9,98,2,9215,0)="""RTN"",""PSBVDLVL"",91,0)"
^XMB(3.9,98,2,9216,0)=" ....S PSBUNIT=$$GET1^DIQ(PSBDD,PSBY_"",""_PSBDA_"","",.03)"
^XMB(3.9,98,2,9217,0)="""RTN"",""PSBVDLVL"",92,0)"
^XMB(3.9,98,2,9218,0)=" ....S PSBUNFR=$$GET1^DIQ(PSBDD,PSBY_"",""_PSBDA_"","",.04)"
^XMB(3.9,98,2,9219,0)="""RTN"",""PSBVDLVL"",93,0)"
^XMB(3.9,98,2,9220,0)=" ....I PSBZ=.5 S PSBCNT1=PSBCNT1+1"
^XMB(3.9,98,2,9221,0)="""RTN"",""PSBVDLVL"",94,0)"
^XMB(3.9,98,2,9222,0)=" ....I PSBZ=.6 S PSBCNT2=PSBCNT2+1"
^XMB(3.9,98,2,9223,0)="""RTN"",""PSBVDLVL"",95,0)"
^XMB(3.9,98,2,9224,0)=" ....I PSBZ=.7 S PSBCNT3=PSBCNT3+1"
^XMB(3.9,98,2,9225,0)="""RTN"",""PSBVDLVL"",96,0)"
^XMB(3.9,98,2,9226,0)=" ...;Units given or free text not to display for multiple dispense drugs or additives and solution"
^XMB(3.9,98,2,9227,0)="""RTN"",""PSBVDLVL"",97,0)"
^XMB(3.9,98,2,9228,0)=" ...I (PSBCNT1>1)!(PSBCNT2>0)!(PSBCNT3>0) S (PSBUNIT,PSBUNFR)="""""
^XMB(3.9,98,2,9229,0)="""RTN"",""PSBVDLVL"",98,0)"
^XMB(3.9,98,2,9230,0)=" ...S X=PSBLADT_U"
^XMB(3.9,98,2,9231,0)="""RTN"",""PSBVDLVL"",99,0)"
^XMB(3.9,98,2,9232,0)=" ...S X=X_PSBSTUS_U_PSBSCH_U_$G(PSBRSN)_U_$G(PSBINJ)_U_$G(PSBUNIT)_U_$G(PSBUNFR)"
^XMB(3.9,98,2,9233,0)="""RTN"",""PSBVDLVL"",100,0)"
^XMB(3.9,98,2,9234,0)=" ...S PSBOKAY($O(PSBOKAY(""""),-1)+1)=3_U_X"
^XMB(3.9,98,2,9235,0)="""RTN"",""PSBVDLVL"",101,0)"
^XMB(3.9,98,2,9236,0)=" ...S:$D(PSBOKAY(4)) PSBDT=0"
^XMB(3.9,98,2,9237,0)="""RTN"",""PSBVDLVL"",102,0)"
^XMB(3.9,98,2,9238,0)=" ; Validate a One-Time Order"
^XMB(3.9,98,2,9239,0)="""RTN"",""PSBVDLVL"",103,0)"
^XMB(3.9,98,2,9240,0)=" D:PSBSCHT=""O"""
^XMB(3.9,98,2,9241,0)="""RTN"",""PSBVDLVL"",104,0)"
^XMB(3.9,98,2,9242,0)=" .S (PSBGVN,X,Y)="""""
^XMB(3.9,98,2,9243,0)="""RTN"",""PSBVDLVL"",105,0)"
^XMB(3.9,98,2,9244,0)=" .F  S X=$O(^PSB(53.79,""AOIP"",DFN,PSBOIT,X),-1)  Q:'X  F  S Y=$O(^PSB(53.79,""AOIP"",DFN,PSBOIT,X,Y),-1) Q:'Y  I $P(^PSB(53.79,Y,.1),U)=PSBONX,""G""[$P(^PSB(53.79,Y,0),U,9) S PSBGVN=1,(X,Y)=0"
^XMB(3.9,98,2,9245,0)="""RTN"",""PSBVDLVL"",106,0)"
^XMB(3.9,98,2,9246,0)=" .I PSBGVN S PSBOKAY=""-1^Dose Already on medication Log"" Q"
^XMB(3.9,98,2,9247,0)="""RTN"",""PSBVDLVL"",107,0)"
^XMB(3.9,98,2,9248,0)=" .; One Time are automatically expired so we don't check STATUS here"
^XMB(3.9,98,2,9249,0)="""RTN"",""PSBVDLVL"",108,0)"
^XMB(3.9,98,2,9250,0)=" .I PSBNGF S PSBOKAY=""-1^marked DO NOT GIVE"" Q"
^XMB(3.9,98,2,9251,0)="""RTN"",""PSBVDLVL"",109,0)"
^XMB(3.9,98,2,9252,0)=" .S PSBOKAY=""0^Okay to administer"""
^XMB(3.9,98,2,9253,0)="""RTN"",""PSBVDLVL"",110,0)"
^XMB(3.9,98,2,9254,0)=" ; Validate an On Call Order"
^XMB(3.9,98,2,9255,0)="""RTN"",""PSBVDLVL"",111,0)"
^XMB(3.9,98,2,9256,0)=" D:PSBSCHT=""OC"""
^XMB(3.9,98,2,9257,0)="""RTN"",""PSBVDLVL"",112,0)"
^XMB(3.9,98,2,9258,0)=" .S PSBOKAY=""0^Okay to administer"""
^XMB(3.9,98,2,9259,0)="""RTN"",""PSBVDLVL"",113,0)"
^XMB(3.9,98,2,9260,0)=" .S (PSBGVN,X,Y)="""""
^XMB(3.9,98,2,9261,0)="""RTN"",""PSBVDLVL"",114,0)"
^XMB(3.9,98,2,9262,0)=" .F  S X=$O(^PSB(53.79,""AOIP"",DFN,PSBOIT,X),-1)  Q:'X  F  S Y=$O(^PSB(53.79,""AOIP"",DFN,PSBOIT,X,Y),-1) Q:'Y  I $P(^PSB(53.79,Y,.1),U)=PSBONX,""G""[$P(^PSB(53.79,Y,0),U,9) S PSBGVN=1,(X,Y)=0"
^XMB(3.9,98,2,9263,0)="""RTN"",""PSBVDLVL"",115,0)"
^XMB(3.9,98,2,9264,0)=" .I PSBGVN&('$$GET^XPAR(""DIV"",""PSB ADMIN MULTIPLE ONCALL"")) S PSBOKAY=""-1^Dose Already on medication Log"" Q"
^XMB(3.9,98,2,9265,0)="""RTN"",""PSBVDLVL"",116,0)"
^XMB(3.9,98,2,9266,0)=" .I PSBOSTS'=""A"",PSBOSTS'=""R"",PSBOSTS'=""O"" S PSBOKAY=""-1^Order Not Active"" Q"
^XMB(3.9,98,2,9267,0)="""RTN"",""PSBVDLVL"",117,0)"
^XMB(3.9,98,2,9268,0)=" .I PSBNGF S PSBOKAY=""-1^marked DO NOT GIVE"" Q"
^XMB(3.9,98,2,9269,0)="""RTN"",""PSBVDLVL"",118,0)"
^XMB(3.9,98,2,9270,0)=" .I PSBGVN&($$GET^XPAR(""DIV"",""PSB ADMIN MULTIPLE ONCALL""))&(PSBDOSEF=""PATCH"") S PSBOKAY=""-1^Previous patch has not been removed"" Q"
^XMB(3.9,98,2,9271,0)="""RTN"",""PSBVDLVL"",119,0)"
^XMB(3.9,98,2,9272,0)=" .S PSBOKAY=""0^Okay to administer"""
^XMB(3.9,98,2,9273,0)="""RTN"",""PSBVDLVL"",120,0)"
^XMB(3.9,98,2,9274,0)=" ;"
^XMB(3.9,98,2,9275,0)="""RTN"",""PSBVDLVL"",121,0)"
^XMB(3.9,98,2,9276,0)=" D:+PSBOKAY'<0"
^XMB(3.9,98,2,9277,0)="""RTN"",""PSBVDLVL"",122,0)"
^XMB(3.9,98,2,9278,0)=" .N PSBDIFF,Y"
^XMB(3.9,98,2,9279,0)="""RTN"",""PSBVDLVL"",123,0)"
^XMB(3.9,98,2,9280,0)=" .D:(PSBSCHT=""C"")!(PSBSCHT=""OC""&('$G(PSBGVN)))"
^XMB(3.9,98,2,9281,0)="""RTN"",""PSBVDLVL"",124,0)"
^XMB(3.9,98,2,9282,0)=" ..; On-call or cont and not on the log."
^XMB(3.9,98,2,9283,0)="""RTN"",""PSBVDLVL"",125,0)"
^XMB(3.9,98,2,9284,0)=" ..S Y=$O(^PSB(53.79,""AOIP"",DFN,PSBOIT,""""),-1)"
^XMB(3.9,98,2,9285,0)="""RTN"",""PSBVDLVL"",126,0)"
^XMB(3.9,98,2,9286,0)=" ..;Check for the status of the medication and insert status in the text"
^XMB(3.9,98,2,9287,0)="""RTN"",""PSBVDLVL"",127,0)"
^XMB(3.9,98,2,9288,0)=" ..I Y]"""" S X=$O(^PSB(53.79,""AOIP"",DFN,+PSBOIT,Y,""""),-1),PSBSTUS=$P(^PSB(53.79,X,0),U,9)"
^XMB(3.9,98,2,9289,0)="""RTN"",""PSBVDLVL"",128,0)"
^XMB(3.9,98,2,9290,0)=" ..S:Y']"""" PSBSTUS="""""
^XMB(3.9,98,2,9291,0)="""RTN"",""PSBVDLVL"",129,0)"
^XMB(3.9,98,2,9292,0)=" ..I PSBSTUS=""N"" D  Q:$G(PSBQUIT)"
^XMB(3.9,98,2,9293,0)="""RTN"",""PSBVDLVL"",130,0)"
^XMB(3.9,98,2,9294,0)=" ...S X=$O(^PSB(53.79,""AOIP"",DFN,PSBOIT,Y,X),-1)"
^XMB(3.9,98,2,9295,0)="""RTN"",""PSBVDLVL"",131,0)"
^XMB(3.9,98,2,9296,0)=" ...D:X']"""""
^XMB(3.9,98,2,9297,0)="""RTN"",""PSBVDLVL"",132,0)"
^XMB(3.9,98,2,9298,0)=" ....S Y=$O(^PSB(53.79,""AOIP"",DFN,PSBOIT,Y),-1) I Y']"""" S PSBQUIT=1 Q"
^XMB(3.9,98,2,9299,0)="""RTN"",""PSBVDLVL"",133,0)"
^XMB(3.9,98,2,9300,0)=" ....S X=$O(^PSB(53.79,""AOIP"",DFN,+PSBOIT,Y,""""),-1),PSBSTUS=$P(^PSB(53.79,X,0),U,9)"
^XMB(3.9,98,2,9301,0)="""RTN"",""PSBVDLVL"",134,0)"
^XMB(3.9,98,2,9302,0)=" ..S PSBDIFF=$$FMDIFF^XLFDT($$NOW^XLFDT(),Y,2)"
^XMB(3.9,98,2,9303,0)="""RTN"",""PSBVDLVL"",135,0)"
^XMB(3.9,98,2,9304,0)=" ..Q:PSBDIFF>7200  ; Greater than 2 hours"
^XMB(3.9,98,2,9305,0)="""RTN"",""PSBVDLVL"",136,0)"
^XMB(3.9,98,2,9306,0)=" ..I (PSBSTUS=""G"")!(PSBSTUS=""H"")!(PSBSTUS=""R"")!(PSBSTUS=""RM"") D"
^XMB(3.9,98,2,9307,0)="""RTN"",""PSBVDLVL"",137,0)"
^XMB(3.9,98,2,9308,0)=" ...S PSBSTUS=$$GET1^DIQ(53.79,X_"","",.09)"
^XMB(3.9,98,2,9309,0)="""RTN"",""PSBVDLVL"",138,0)"
^XMB(3.9,98,2,9310,0)=" ...I PSBSTUS'="""" D"
^XMB(3.9,98,2,9311,0)="""RTN"",""PSBVDLVL"",139,0)"
^XMB(3.9,98,2,9312,0)=" ....S Y=""1^*** NOTICE, ""_PSBOITX_"" was ""_PSBSTUS_"" ""_(PSBDIFF\60)_"" minutes ago."""
^XMB(3.9,98,2,9313,0)="""RTN"",""PSBVDLVL"",140,0)"
^XMB(3.9,98,2,9314,0)=" ....I +PSBOKAY=1 S PSBOKAY(1)=Y"
^XMB(3.9,98,2,9315,0)="""RTN"",""PSBVDLVL"",141,0)"
^XMB(3.9,98,2,9316,0)=" ....E  S PSBOKAY=Y"
^XMB(3.9,98,2,9317,0)="""RTN"",""PSBVDLVL"",142,0)"
^XMB(3.9,98,2,9318,0)=" ;"
^XMB(3.9,98,2,9319,0)="""RTN"",""PSBVDLVL"",143,0)"
^XMB(3.9,98,2,9320,0)=" S PSB=PSB+1,RESULTS(0)=PSB,RESULTS(PSB)=PSBOKAY"
^XMB(3.9,98,2,9321,0)="""RTN"",""PSBVDLVL"",144,0)"
^XMB(3.9,98,2,9322,0)=" F X=1:1 Q:'$D(PSBOKAY(X))  S PSB=PSB+1,RESULTS(0)=PSB,RESULTS(PSB)=PSBOKAY(X)"
^XMB(3.9,98,2,9323,0)="""RTN"",""PSBVDLVL"",145,0)"
^XMB(3.9,98,2,9324,0)=" Q"
^XMB(3.9,98,2,9325,0)="""RTN"",""PSBVDLVL"",146,0)"
^XMB(3.9,98,2,9326,0)=" ;"
^XMB(3.9,98,2,9327,0)="""VER"")"
^XMB(3.9,98,2,9328,0)="8.0^22.0"
^XMB(3.9,98,2,9329,0)="""^DD"",53.69,53.69,.05,0)"
^XMB(3.9,98,2,9330,0)="TYPE OF REQUEST^F^^0;5^K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X"
^XMB(3.9,98,2,9331,0)="""^DD"",53.69,53.69,.05,.1)"
^XMB(3.9,98,2,9332,0)="Type of Request"
^XMB(3.9,98,2,9333,0)="""^DD"",53.69,53.69,.05,3)"
^XMB(3.9,98,2,9334,0)="Answer must be 2 characters in length"
^XMB(3.9,98,2,9335,0)="""^DD"",53.69,53.69,.05,21,0)"
^XMB(3.9,98,2,9336,0)="^^20^20^3051223^"
^XMB(3.9,98,2,9337,0)="""^DD"",53.69,53.69,.05,21,1,0)"
^XMB(3.9,98,2,9338,0)="Automatically stuffed at record creation with the type of report that is"
^XMB(3.9,98,2,9339,0)="""^DD"",53.69,53.69,.05,21,2,0)"
^XMB(3.9,98,2,9340,0)="being requested.  Used to drive the report later on by appending the"
^XMB(3.9,98,2,9341,0)="""^DD"",53.69,53.69,.05,21,3,0)"
^XMB(3.9,98,2,9342,0)="internal code to ""DQ^PSBO""_type for the routine reference to run.  (i.e."
^XMB(3.9,98,2,9343,0)="""^DD"",53.69,53.69,.05,21,4,0)"
^XMB(3.9,98,2,9344,0)="ML for med log would call DQ^PSBOML to generate the report.) "
^XMB(3.9,98,2,9345,0)="""^DD"",53.69,53.69,.05,21,5,0)"
^XMB(3.9,98,2,9346,0)="Report types DL = Due List"
^XMB(3.9,98,2,9347,0)="""^DD"",53.69,53.69,.05,21,6,0)"
^XMB(3.9,98,2,9348,0)="             MH = Medication Admin History (MAH)"
^XMB(3.9,98,2,9349,0)="""^DD"",53.69,53.69,.05,21,7,0)"
^XMB(3.9,98,2,9350,0)="             ML = Med Log"
^XMB(3.9,98,2,9351,0)="""^DD"",53.69,53.69,.05,21,8,0)"
^XMB(3.9,98,2,9352,0)="             MM = Missed Medications"
^XMB(3.9,98,2,9353,0)="""^DD"",53.69,53.69,.05,21,9,0)"
^XMB(3.9,98,2,9354,0)="             PE = PRN Effectiveness List"
^XMB(3.9,98,2,9355,0)="""^DD"",53.69,53.69,.05,21,10,0)"
^XMB(3.9,98,2,9356,0)="             PM = Patient Medication History"
^XMB(3.9,98,2,9357,0)="""^DD"",53.69,53.69,.05,21,11,0)"
^XMB(3.9,98,2,9358,0)="             WA = Ward Administration Times"
^XMB(3.9,98,2,9359,0)="""^DD"",53.69,53.69,.05,21,12,0)"
^XMB(3.9,98,2,9360,0)="             MV = Medication Variance Log"
^XMB(3.9,98,2,9361,0)="""^DD"",53.69,53.69,.05,21,13,0)"
^XMB(3.9,98,2,9362,0)="             BL = Bar Code Label"
^XMB(3.9,98,2,9363,0)="""^DD"",53.69,53.69,.05,21,14,0)"
^XMB(3.9,98,2,9364,0)="             MD = Missing Dose Follow-up"
^XMB(3.9,98,2,9365,0)="""^DD"",53.69,53.69,.05,21,15,0)"
^XMB(3.9,98,2,9366,0)="             AL = Allergy Report"
^XMB(3.9,98,2,9367,0)="""^DD"",53.69,53.69,.05,21,16,0)"
^XMB(3.9,98,2,9368,0)="             PI = Patient Inquiry"
^XMB(3.9,98,2,9369,0)="""^DD"",53.69,53.69,.05,21,17,0)"
^XMB(3.9,98,2,9370,0)="             DO = Display Order"
^XMB(3.9,98,2,9371,0)="""^DD"",53.69,53.69,.05,21,18,0)"
^XMB(3.9,98,2,9372,0)="             VT = Vitals Cumulative"
^XMB(3.9,98,2,9373,0)="""^DD"",53.69,53.69,.05,21,19,0)"
^XMB(3.9,98,2,9374,0)="             PF = Patient Record Flag"
^XMB(3.9,98,2,9375,0)="""^DD"",53.69,53.69,.05,21,20,0)"
^XMB(3.9,98,2,9376,0)="             XA = Unknown Action Status Report"
^XMB(3.9,98,2,9377,0)="""^DD"",53.69,53.69,.05,""DT"")"
^XMB(3.9,98,2,9378,0)="3051223"
^XMB(3.9,98,2,9379,0)="""BLD"",5479,6)"
^XMB(3.9,98,2,9380,0)="^21"
^XMB(3.9,98,2,9381,0)="$END KID PSB*3.0*13"
^XMB(3.9,98,6,0)="^3.911A^2^2"
^XMB(3.9,98,6,1,0)="POSTMASTER"
^XMB(3.9,98,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,98,6,"B","POSTMASTER",1)=""
^XMB(3.9,98,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,99,0)="PSB-3_SEQ-22_PAT-26.KID^.5^3061008.01574^^^^K"
^XMB(3.9,99,.6)="3061008"
^XMB(3.9,99,1,0)="^3.91A^2^2"
^XMB(3.9,99,1,1,0)=".5^0^3061008.01574^^^^^^^3061008.01574"
^XMB(3.9,99,1,2,0)="1^0^3061008.024246^^^^^^^3061008.024246"
^XMB(3.9,99,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,99,1,"C",.5,1)=""
^XMB(3.9,99,1,"C",1,2)=""
^XMB(3.9,99,2,0)="^^1279^1279^3061008"
^XMB(3.9,99,2,1,0)="$TXT Released PSB*3*26 SEQ #22"
^XMB(3.9,99,2,2,0)="Extracted from mail message"
^XMB(3.9,99,2,3,0)="$END TXT"
^XMB(3.9,99,2,4,0)="$KID PSB*3.0*26"
^XMB(3.9,99,2,5,0)="**INSTALL NAME**"
^XMB(3.9,99,2,6,0)="PSB*3.0*26"
^XMB(3.9,99,2,7,0)="""BLD"",6636,0)"
^XMB(3.9,99,2,8,0)="PSB*3.0*26^BAR CODE MED ADMIN^0^3060718^y"
^XMB(3.9,99,2,9,0)="""BLD"",6636,1,0)"
^XMB(3.9,99,2,10,0)="^^1^1^3060525^"
^XMB(3.9,99,2,11,0)="""BLD"",6636,1,1,0)"
^XMB(3.9,99,2,12,0)="This patch corrects display problems with the Missed Med Rpt"
^XMB(3.9,99,2,13,0)="""BLD"",6636,4,0)"
^XMB(3.9,99,2,14,0)="^9.64PA^^"
^XMB(3.9,99,2,15,0)="""BLD"",6636,6)"
^XMB(3.9,99,2,16,0)="3^"
^XMB(3.9,99,2,17,0)="""BLD"",6636,""KRN"",0)"
^XMB(3.9,99,2,18,0)="^9.67PA^8989.52^19"
^XMB(3.9,99,2,19,0)="""BLD"",6636,""KRN"",.4,0)"
^XMB(3.9,99,2,20,0)=".4"
^XMB(3.9,99,2,21,0)="""BLD"",6636,""KRN"",.401,0)"
^XMB(3.9,99,2,22,0)=".401"
^XMB(3.9,99,2,23,0)="""BLD"",6636,""KRN"",.402,0)"
^XMB(3.9,99,2,24,0)=".402"
^XMB(3.9,99,2,25,0)="""BLD"",6636,""KRN"",.403,0)"
^XMB(3.9,99,2,26,0)=".403"
^XMB(3.9,99,2,27,0)="""BLD"",6636,""KRN"",.5,0)"
^XMB(3.9,99,2,28,0)=".5"
^XMB(3.9,99,2,29,0)="""BLD"",6636,""KRN"",.84,0)"
^XMB(3.9,99,2,30,0)=".84"
^XMB(3.9,99,2,31,0)="""BLD"",6636,""KRN"",3.6,0)"
^XMB(3.9,99,2,32,0)="3.6"
^XMB(3.9,99,2,33,0)="""BLD"",6636,""KRN"",3.8,0)"
^XMB(3.9,99,2,34,0)="3.8"
^XMB(3.9,99,2,35,0)="""BLD"",6636,""KRN"",9.2,0)"
^XMB(3.9,99,2,36,0)="9.2"
^XMB(3.9,99,2,37,0)="""BLD"",6636,""KRN"",9.8,0)"
^XMB(3.9,99,2,38,0)="9.8"
^XMB(3.9,99,2,39,0)="""BLD"",6636,""KRN"",9.8,""NM"",0)"
^XMB(3.9,99,2,40,0)="^9.68A^10^4"
^XMB(3.9,99,2,41,0)="""BLD"",6636,""KRN"",9.8,""NM"",7,0)"
^XMB(3.9,99,2,42,0)="PSBOMM^^0^50839011"
^XMB(3.9,99,2,43,0)="""BLD"",6636,""KRN"",9.8,""NM"",8,0)"
^XMB(3.9,99,2,44,0)="PSBOMM2^^0^14344461"
^XMB(3.9,99,2,45,0)="""BLD"",6636,""KRN"",9.8,""NM"",9,0)"
^XMB(3.9,99,2,46,0)="PSBOMH1^^0^71055237"
^XMB(3.9,99,2,47,0)="""BLD"",6636,""KRN"",9.8,""NM"",10,0)"
^XMB(3.9,99,2,48,0)="PSBOMH2^^0^36786547"
^XMB(3.9,99,2,49,0)="""BLD"",6636,""KRN"",9.8,""NM"",""B"",""PSBOMH1"",9)"
^XMB(3.9,99,2,50,0)=""
^XMB(3.9,99,2,51,0)="""BLD"",6636,""KRN"",9.8,""NM"",""B"",""PSBOMH2"",10)"
^XMB(3.9,99,2,52,0)=""
^XMB(3.9,99,2,53,0)="""BLD"",6636,""KRN"",9.8,""NM"",""B"",""PSBOMM"",7)"
^XMB(3.9,99,2,54,0)=""
^XMB(3.9,99,2,55,0)="""BLD"",6636,""KRN"",9.8,""NM"",""B"",""PSBOMM2"",8)"
^XMB(3.9,99,2,56,0)=""
^XMB(3.9,99,2,57,0)="""BLD"",6636,""KRN"",19,0)"
^XMB(3.9,99,2,58,0)="19"
^XMB(3.9,99,2,59,0)="""BLD"",6636,""KRN"",19,""NM"",0)"
^XMB(3.9,99,2,60,0)="^9.68A^^"
^XMB(3.9,99,2,61,0)="""BLD"",6636,""KRN"",19.1,0)"
^XMB(3.9,99,2,62,0)="19.1"
^XMB(3.9,99,2,63,0)="""BLD"",6636,""KRN"",101,0)"
^XMB(3.9,99,2,64,0)="101"
^XMB(3.9,99,2,65,0)="""BLD"",6636,""KRN"",409.61,0)"
^XMB(3.9,99,2,66,0)="409.61"
^XMB(3.9,99,2,67,0)="""BLD"",6636,""KRN"",771,0)"
^XMB(3.9,99,2,68,0)="771"
^XMB(3.9,99,2,69,0)="""BLD"",6636,""KRN"",870,0)"
^XMB(3.9,99,2,70,0)="870"
^XMB(3.9,99,2,71,0)="""BLD"",6636,""KRN"",8989.51,0)"
^XMB(3.9,99,2,72,0)="8989.51"
^XMB(3.9,99,2,73,0)="""BLD"",6636,""KRN"",8989.52,0)"
^XMB(3.9,99,2,74,0)="8989.52"
^XMB(3.9,99,2,75,0)="""BLD"",6636,""KRN"",8994,0)"
^XMB(3.9,99,2,76,0)="8994"
^XMB(3.9,99,2,77,0)="""BLD"",6636,""KRN"",""B"",.4,.4)"
^XMB(3.9,99,2,78,0)=""
^XMB(3.9,99,2,79,0)="""BLD"",6636,""KRN"",""B"",.401,.401)"
^XMB(3.9,99,2,80,0)=""
^XMB(3.9,99,2,81,0)="""BLD"",6636,""KRN"",""B"",.402,.402)"
^XMB(3.9,99,2,82,0)=""
^XMB(3.9,99,2,83,0)="""BLD"",6636,""KRN"",""B"",.403,.403)"
^XMB(3.9,99,2,84,0)=""
^XMB(3.9,99,2,85,0)="""BLD"",6636,""KRN"",""B"",.5,.5)"
^XMB(3.9,99,2,86,0)=""
^XMB(3.9,99,2,87,0)="""BLD"",6636,""KRN"",""B"",.84,.84)"
^XMB(3.9,99,2,88,0)=""
^XMB(3.9,99,2,89,0)="""BLD"",6636,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,99,2,90,0)=""
^XMB(3.9,99,2,91,0)="""BLD"",6636,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,99,2,92,0)=""
^XMB(3.9,99,2,93,0)="""BLD"",6636,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,99,2,94,0)=""
^XMB(3.9,99,2,95,0)="""BLD"",6636,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,99,2,96,0)=""
^XMB(3.9,99,2,97,0)="""BLD"",6636,""KRN"",""B"",19,19)"
^XMB(3.9,99,2,98,0)=""
^XMB(3.9,99,2,99,0)="""BLD"",6636,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,99,2,100,0)=""
^XMB(3.9,99,2,101,0)="""BLD"",6636,""KRN"",""B"",101,101)"
^XMB(3.9,99,2,102,0)=""
^XMB(3.9,99,2,103,0)="""BLD"",6636,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,99,2,104,0)=""
^XMB(3.9,99,2,105,0)="""BLD"",6636,""KRN"",""B"",771,771)"
^XMB(3.9,99,2,106,0)=""
^XMB(3.9,99,2,107,0)="""BLD"",6636,""KRN"",""B"",870,870)"
^XMB(3.9,99,2,108,0)=""
^XMB(3.9,99,2,109,0)="""BLD"",6636,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,99,2,110,0)=""
^XMB(3.9,99,2,111,0)="""BLD"",6636,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,99,2,112,0)=""
^XMB(3.9,99,2,113,0)="""BLD"",6636,""KRN"",""B"",8994,8994)"
^XMB(3.9,99,2,114,0)=""
^XMB(3.9,99,2,115,0)="""BLD"",6636,""QUES"",0)"
^XMB(3.9,99,2,116,0)="^9.62^^"
^XMB(3.9,99,2,117,0)="""BLD"",6636,""REQB"",0)"
^XMB(3.9,99,2,118,0)="^9.611^1^1"
^XMB(3.9,99,2,119,0)="""BLD"",6636,""REQB"",1,0)"
^XMB(3.9,99,2,120,0)="PSB*3.0*27^2"
^XMB(3.9,99,2,121,0)="""BLD"",6636,""REQB"",""B"",""PSB*3.0*27"",1)"
^XMB(3.9,99,2,122,0)=""
^XMB(3.9,99,2,123,0)="""MBREQ"")"
^XMB(3.9,99,2,124,0)="0"
^XMB(3.9,99,2,125,0)="""PKG"",537,-1)"
^XMB(3.9,99,2,126,0)="1^1"
^XMB(3.9,99,2,127,0)="""PKG"",537,0)"
^XMB(3.9,99,2,128,0)="BAR CODE MED ADMIN^PSB^BAR CODE MEDICATION ADMINISTRATION"
^XMB(3.9,99,2,129,0)="""PKG"",537,20,0)"
^XMB(3.9,99,2,130,0)="^9.402P^^"
^XMB(3.9,99,2,131,0)="""PKG"",537,22,0)"
^XMB(3.9,99,2,132,0)="^9.49I^1^1"
^XMB(3.9,99,2,133,0)="""PKG"",537,22,1,0)"
^XMB(3.9,99,2,134,0)="3.0^3040224^3040504^22979"
^XMB(3.9,99,2,135,0)="""PKG"",537,22,1,""PAH"",1,0)"
^XMB(3.9,99,2,136,0)="26^3060718^33270"
^XMB(3.9,99,2,137,0)="""PKG"",537,22,1,""PAH"",1,1,0)"
^XMB(3.9,99,2,138,0)="^^1^1^3060718"
^XMB(3.9,99,2,139,0)="""PKG"",537,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,99,2,140,0)="This patch corrects display problems with the Missed Med Rpt"
^XMB(3.9,99,2,141,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,99,2,142,0)="Y"
^XMB(3.9,99,2,143,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,99,2,144,0)="^D REP^XPDH"
^XMB(3.9,99,2,145,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,99,2,146,0)="Shall I write over your |FLAG| File"
^XMB(3.9,99,2,147,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,99,2,148,0)="YES"
^XMB(3.9,99,2,149,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,99,2,150,0)="D XPF1^XPDIQ"
^XMB(3.9,99,2,151,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,99,2,152,0)="Y"
^XMB(3.9,99,2,153,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,99,2,154,0)="^D DTA^XPDH"
^XMB(3.9,99,2,155,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,99,2,156,0)="Want my data |FLAG| yours"
^XMB(3.9,99,2,157,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,99,2,158,0)="YES"
^XMB(3.9,99,2,159,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,99,2,160,0)="D XPF2^XPDIQ"
^XMB(3.9,99,2,161,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,99,2,162,0)="YO"
^XMB(3.9,99,2,163,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,99,2,164,0)="^D INHIBIT^XPDH"
^XMB(3.9,99,2,165,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,99,2,166,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,99,2,167,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,99,2,168,0)="YES"
^XMB(3.9,99,2,169,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,99,2,170,0)="D XPI1^XPDIQ"
^XMB(3.9,99,2,171,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,99,2,172,0)="PO^VA(200,:EM"
^XMB(3.9,99,2,173,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,99,2,174,0)="^D MG^XPDH"
^XMB(3.9,99,2,175,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,99,2,176,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,99,2,177,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,99,2,178,0)=""
^XMB(3.9,99,2,179,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,99,2,180,0)="D XPM1^XPDIQ"
^XMB(3.9,99,2,181,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,99,2,182,0)="Y"
^XMB(3.9,99,2,183,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,99,2,184,0)="^D MENU^XPDH"
^XMB(3.9,99,2,185,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,99,2,186,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,99,2,187,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,99,2,188,0)="YES"
^XMB(3.9,99,2,189,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,99,2,190,0)="D XPO1^XPDIQ"
^XMB(3.9,99,2,191,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,99,2,192,0)="Y"
^XMB(3.9,99,2,193,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,99,2,194,0)="^D OPT^XPDH"
^XMB(3.9,99,2,195,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,99,2,196,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,99,2,197,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,99,2,198,0)="YES"
^XMB(3.9,99,2,199,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,99,2,200,0)="D XPZ1^XPDIQ"
^XMB(3.9,99,2,201,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,99,2,202,0)="Y"
^XMB(3.9,99,2,203,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,99,2,204,0)="^D RTN^XPDH"
^XMB(3.9,99,2,205,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,99,2,206,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,99,2,207,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,99,2,208,0)="NO"
^XMB(3.9,99,2,209,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,99,2,210,0)="D XPZ2^XPDIQ"
^XMB(3.9,99,2,211,0)="""RTN"")"
^XMB(3.9,99,2,212,0)="4"
^XMB(3.9,99,2,213,0)="""RTN"",""PSBOMH1"")"
^XMB(3.9,99,2,214,0)="0^9^B71055237^B78413665"
^XMB(3.9,99,2,215,0)="""RTN"",""PSBOMH1"",1,0)"
^XMB(3.9,99,2,216,0)="PSBOMH1 ;BIRMINGHAM/EFC-MAH ;Mar 2004"
^XMB(3.9,99,2,217,0)="""RTN"",""PSBOMH1"",2,0)"
^XMB(3.9,99,2,218,0)=" ;;3.0;BAR CODE MED ADMIN;**6,3,9,11,26**;Mar 2004"
^XMB(3.9,99,2,219,0)="""RTN"",""PSBOMH1"",3,0)"
^XMB(3.9,99,2,220,0)=" ;"
^XMB(3.9,99,2,221,0)="""RTN"",""PSBOMH1"",4,0)"
^XMB(3.9,99,2,222,0)=" ; Reference/IA"
^XMB(3.9,99,2,223,0)="""RTN"",""PSBOMH1"",5,0)"
^XMB(3.9,99,2,224,0)=" ; ^DILF/2054"
^XMB(3.9,99,2,225,0)="""RTN"",""PSBOMH1"",6,0)"
^XMB(3.9,99,2,226,0)=" ; File 200/10060"
^XMB(3.9,99,2,227,0)="""RTN"",""PSBOMH1"",7,0)"
^XMB(3.9,99,2,228,0)=" ;"
^XMB(3.9,99,2,229,0)="""RTN"",""PSBOMH1"",8,0)"
^XMB(3.9,99,2,230,0)="EN ;"
^XMB(3.9,99,2,231,0)="""RTN"",""PSBOMH1"",9,0)"
^XMB(3.9,99,2,232,0)=" ; Load administrations"
^XMB(3.9,99,2,233,0)="""RTN"",""PSBOMH1"",10,0)"
^XMB(3.9,99,2,234,0)=" S (PSBORD,PSBIEN,PSBR1,PSBADIEN,PSBABR)="""",PSBDT=PSBSTRT"
^XMB(3.9,99,2,235,0)="""RTN"",""PSBOMH1"",11,0)"
^XMB(3.9,99,2,236,0)=" K PSBTSA"
^XMB(3.9,99,2,237,0)="""RTN"",""PSBOMH1"",12,0)"
^XMB(3.9,99,2,238,0)=" F  S PSBDT=$O(^PSB(53.79,""AADT"",DFN,PSBDT)) Q:'PSBDT!(PSBDT>PSBSTOP)  D"
^XMB(3.9,99,2,239,0)="""RTN"",""PSBOMH1"",13,0)"
^XMB(3.9,99,2,240,0)=" .F  S PSBIEN=$O(^PSB(53.79,""AADT"",DFN,PSBDT,PSBIEN)) Q:'PSBIEN  Q:'$D(^PSB(53.79,PSBIEN))  L +^PSB(53.79,PSBIEN):3 I $P(^PSB(53.79,PSBIEN,0),U,9)]"""" D  L -^PSB(53.79,PSBIEN)"
^XMB(3.9,99,2,241,0)="""RTN"",""PSBOMH1"",14,0)"
^XMB(3.9,99,2,242,0)=" ..Q:'$P($G(^PSB(53.79,PSBIEN,0)),U,6)  ; Bad IEN -no evnt dt"
^XMB(3.9,99,2,243,0)="""RTN"",""PSBOMH1"",15,0)"
^XMB(3.9,99,2,244,0)=" ..Q:$P(^PSB(53.79,PSBIEN,0),U,9)=""N""  ;NGiven"
^XMB(3.9,99,2,245,0)="""RTN"",""PSBOMH1"",16,0)"
^XMB(3.9,99,2,246,0)=" ..S PSBORD=$P($G(^PSB(53.79,PSBIEN,.1)),U,1)"
^XMB(3.9,99,2,247,0)="""RTN"",""PSBOMH1"",17,0)"
^XMB(3.9,99,2,248,0)=" ..; Continuous"
^XMB(3.9,99,2,249,0)="""RTN"",""PSBOMH1"",18,0)"
^XMB(3.9,99,2,250,0)=" ..D:$P($G(^PSB(53.79,PSBIEN,.1)),U,2)=""C"""
^XMB(3.9,99,2,251,0)="""RTN"",""PSBOMH1"",19,0)"
^XMB(3.9,99,2,252,0)=" ...S X=PSBDT D H^%DTC S PSBWEEK=PSBAR(%H) D CLEAN^PSBVT,PSJ1^PSBVT($P(^PSB(53.79,PSBIEN,0),U,1),$P(^PSB(53.79,PSBIEN,.1),U,1))"
^XMB(3.9,99,2,253,0)="""RTN"",""PSBOMH1"",20,0)"
^XMB(3.9,99,2,254,0)=" ...I $P(^PSB(53.79,PSBIEN,0),U,6)'=PSBDT,'$$IVPTAB^PSBVDLU3(PSBOTYP,PSBIVT,PSBISYR,PSBCHEMT,PSBMR) D  D CLEAN^PSBVT Q  ;chck IV audit"
^XMB(3.9,99,2,255,0)="""RTN"",""PSBOMH1"",21,0)"
^XMB(3.9,99,2,256,0)=" ....S PSBSIEN=PSBIEN"
^XMB(3.9,99,2,257,0)="""RTN"",""PSBOMH1"",22,0)"
^XMB(3.9,99,2,258,0)=" ....I $P(^PSB(53.79,PSBIEN,0),""^"",10)]"""" D BAGDTL^PSBRPC2(.PSBAUD,$P(^PSB(53.79,PSBIEN,0),U,10),$P(^PSB(53.79,PSBIEN,.1),U,1))"
^XMB(3.9,99,2,259,0)="""RTN"",""PSBOMH1"",23,0)"
^XMB(3.9,99,2,260,0)=" ....S PSBIEN=PSBSIEN K PSBSIEN"
^XMB(3.9,99,2,261,0)="""RTN"",""PSBOMH1"",24,0)"
^XMB(3.9,99,2,262,0)=" ....S X=0 F  S X=$O(PSBAUD(X)) Q:X=""""  I $P(PSBAUD(X),U,3)="""" K PSBAUD(X)"
^XMB(3.9,99,2,263,0)="""RTN"",""PSBOMH1"",25,0)"
^XMB(3.9,99,2,264,0)=" ....S X=0 F  S X=$O(PSBAUD(X)) Q:X=""""  Q:$P(PSBAUD(X),U,1)=PSBDT"
^XMB(3.9,99,2,265,0)="""RTN"",""PSBOMH1"",26,0)"
^XMB(3.9,99,2,266,0)=" ....I X="""" K PSBAUD Q"
^XMB(3.9,99,2,267,0)="""RTN"",""PSBOMH1"",27,0)"
^XMB(3.9,99,2,268,0)=" ....I '$D(PSBAUD(X)) K PSBAUD Q"
^XMB(3.9,99,2,269,0)="""RTN"",""PSBOMH1"",28,0)"
^XMB(3.9,99,2,270,0)=" ....S PSBS=$P(PSBAUD(X),U,3)"
^XMB(3.9,99,2,271,0)="""RTN"",""PSBOMH1"",29,0)"
^XMB(3.9,99,2,272,0)=" ....I PSBS=""GIVEN"",$P($G(PSBAUD(X-1)),U,3)=""NOT GIVEN"" Q"
^XMB(3.9,99,2,273,0)="""RTN"",""PSBOMH1"",30,0)"
^XMB(3.9,99,2,274,0)=" ....I PSBS=""NOT GIVEN"" Q"
^XMB(3.9,99,2,275,0)="""RTN"",""PSBOMH1"",31,0)"
^XMB(3.9,99,2,276,0)=" ....S PSBS=$S(PSBS=""INFUSING"":""I"",PSBS=""GIVEN"":""G"",PSBS=""COMPLETED"":""C"",PSBS=""HELD"":""H"",PSBS=""REFUSED"":""R"",PSBS=""REMOVED"":""RM"",PSBS=""STOPPED"":""S"",PSBS[""MISSING"":""M"",1:""NOACTION"")"
^XMB(3.9,99,2,277,0)="""RTN"",""PSBOMH1"",32,0)"
^XMB(3.9,99,2,278,0)=" ....D PSBSTIV^PSBOMH2"
^XMB(3.9,99,2,279,0)="""RTN"",""PSBOMH1"",33,0)"
^XMB(3.9,99,2,280,0)=" ....S X=PSBDT_U_$P(PSBAUD(X),U,2)_U_PSBS_U_PSBIEN"
^XMB(3.9,99,2,281,0)="""RTN"",""PSBOMH1"",34,0)"
^XMB(3.9,99,2,282,0)=" ....S Y=$O(^TMP(""PSB"",$J,PSBWEEK,PSBORD,PSBDT\1,""""),-1)+1"
^XMB(3.9,99,2,283,0)="""RTN"",""PSBOMH1"",35,0)"
^XMB(3.9,99,2,284,0)=" ....S ^TMP(""PSB"",$J,PSBWEEK,PSBORD,PSBDT\1,Y)=X"
^XMB(3.9,99,2,285,0)="""RTN"",""PSBOMH1"",36,0)"
^XMB(3.9,99,2,286,0)=" ....S ^TMP(""PSB"",$J,PSBWEEK,PSBORD,PSBDT\1,0)=Y"
^XMB(3.9,99,2,287,0)="""RTN"",""PSBOMH1"",37,0)"
^XMB(3.9,99,2,288,0)=" ....D PSBOUT($P((X),""^"",1),$P((X),""^"",2))"
^XMB(3.9,99,2,289,0)="""RTN"",""PSBOMH1"",38,0)"
^XMB(3.9,99,2,290,0)=" ....K PSBAUD"
^XMB(3.9,99,2,291,0)="""RTN"",""PSBOMH1"",39,0)"
^XMB(3.9,99,2,292,0)=" ...S PSBINIT=$$GET1^DIQ(53.79,PSBIEN_"","",""ACTION BY:INITIAL"")"
^XMB(3.9,99,2,293,0)="""RTN"",""PSBOMH1"",40,0)"
^XMB(3.9,99,2,294,0)=" ...S PSBNAME=$$GET1^DIQ(53.79,PSBIEN_"","",""ACTION BY:NAME"")"
^XMB(3.9,99,2,295,0)="""RTN"",""PSBOMH1"",41,0)"
^XMB(3.9,99,2,296,0)=" ...I PSBINIT="""" S PSBINIT=99"
^XMB(3.9,99,2,297,0)="""RTN"",""PSBOMH1"",42,0)"
^XMB(3.9,99,2,298,0)=" ...;get instrc info - audt log"
^XMB(3.9,99,2,299,0)="""RTN"",""PSBOMH1"",43,0)"
^XMB(3.9,99,2,300,0)=" ...I $D(^PSB(53.79,PSBIEN,.9,$P(PSBDT,"".""))) D"
^XMB(3.9,99,2,301,0)="""RTN"",""PSBOMH1"",44,0)"
^XMB(3.9,99,2,302,0)=" ....D INSTR^PSBOMH"
^XMB(3.9,99,2,303,0)="""RTN"",""PSBOMH1"",45,0)"
^XMB(3.9,99,2,304,0)=" ....S ^TMP(""PSB"",$J,""LEGEND"",PSBINIT,PSBNAME)="""""
^XMB(3.9,99,2,305,0)="""RTN"",""PSBOMH1"",46,0)"
^XMB(3.9,99,2,306,0)=" ...I PSBINIT[99 S PSBINIT="""""
^XMB(3.9,99,2,307,0)="""RTN"",""PSBOMH1"",47,0)"
^XMB(3.9,99,2,308,0)=" ...I $P(^PSB(53.79,PSBIEN,0),U,9)=""G"",PSBDT=$P(^PSB(53.79,PSBIEN,0),U,6)  D PSBCK1^PSBOMH2(""A"")"
^XMB(3.9,99,2,309,0)="""RTN"",""PSBOMH1"",48,0)"
^XMB(3.9,99,2,310,0)=" ...I $P(^PSB(53.79,PSBIEN,0),U,9)'=""G"",PSBDT=$P(^PSB(53.79,PSBIEN,0),U,6)  D PSBCK1^PSBOMH2(""B"")"
^XMB(3.9,99,2,311,0)="""RTN"",""PSBOMH1"",49,0)"
^XMB(3.9,99,2,312,0)=" ...I PSBDT'=$P(^PSB(53.79,PSBIEN,0),U,6),$P(^PSB(53.79,PSBIEN,0),U,9)=""RM"" D"
^XMB(3.9,99,2,313,0)="""RTN"",""PSBOMH1"",50,0)"
^XMB(3.9,99,2,314,0)=" ....D DDAUD"
^XMB(3.9,99,2,315,0)="""RTN"",""PSBOMH1"",51,0)"
^XMB(3.9,99,2,316,0)=" ....S I="""" F  S I=$O(PSBTAR(I),-1) Q:I=""""  I $P(PSBTAR(I),U,1)=PSBDT D"
^XMB(3.9,99,2,317,0)="""RTN"",""PSBOMH1"",52,0)"
^XMB(3.9,99,2,318,0)=" .....S PSBS=$P(PSBTAR(I),U,3)"
^XMB(3.9,99,2,319,0)="""RTN"",""PSBOMH1"",53,0)"
^XMB(3.9,99,2,320,0)=" .....I PSBS=""GIVEN"",$P($G(PSBTAR(I-1)),U,3)=""NOT GIVEN"" Q  ; canceled - not given"
^XMB(3.9,99,2,321,0)="""RTN"",""PSBOMH1"",54,0)"
^XMB(3.9,99,2,322,0)=" .....I PSBS=""NOT GIVEN"" Q"
^XMB(3.9,99,2,323,0)="""RTN"",""PSBOMH1"",55,0)"
^XMB(3.9,99,2,324,0)=" .....S PSBS=$S(PSBS=""INFUSING"":""I"",PSBS=""GIVEN"":""G"",PSBS=""COMPLETED"":""C"",PSBS=""HELD"":""H"",PSBS=""REFUSED"":""R"",PSBS=""REMOVED"":""RM"",PSBS=""STOPPED"":""S"",PSBS[""MISSING"":""M"",1:""NO ACTION"")"
^XMB(3.9,99,2,325,0)="""RTN"",""PSBOMH1"",56,0)"
^XMB(3.9,99,2,326,0)=" .....D PSBCTAR^PSBOMH2"
^XMB(3.9,99,2,327,0)="""RTN"",""PSBOMH1"",57,0)"
^XMB(3.9,99,2,328,0)=" .....S X=$P(PSBTAR(I),U,1,2)_U_PSBS_U_PSBIEN"
^XMB(3.9,99,2,329,0)="""RTN"",""PSBOMH1"",58,0)"
^XMB(3.9,99,2,330,0)=" ...S Y=$O(^TMP(""PSB"",$J,PSBWEEK,PSBORD,PSBDT\1,""""),-1)+1"
^XMB(3.9,99,2,331,0)="""RTN"",""PSBOMH1"",59,0)"
^XMB(3.9,99,2,332,0)=" ...S ^TMP(""PSB"",$J,PSBWEEK,PSBORD,PSBDT\1,Y)=X"
^XMB(3.9,99,2,333,0)="""RTN"",""PSBOMH1"",60,0)"
^XMB(3.9,99,2,334,0)=" ...S ^TMP(""PSB"",$J,PSBWEEK,PSBORD,PSBDT\1,0)=Y"
^XMB(3.9,99,2,335,0)="""RTN"",""PSBOMH1"",61,0)"
^XMB(3.9,99,2,336,0)=" ...D PSBOUT($P((X),""^"",1),$P((X),""^"",2))"
^XMB(3.9,99,2,337,0)="""RTN"",""PSBOMH1"",62,0)"
^XMB(3.9,99,2,338,0)=" ...Q"
^XMB(3.9,99,2,339,0)="""RTN"",""PSBOMH1"",63,0)"
^XMB(3.9,99,2,340,0)=" ..; 1-Time On Call or PRN"
^XMB(3.9,99,2,341,0)="""RTN"",""PSBOMH1"",64,0)"
^XMB(3.9,99,2,342,0)=" ..D:$P($G(^PSB(53.79,PSBIEN,.1)),U,2)'=""C"""
^XMB(3.9,99,2,343,0)="""RTN"",""PSBOMH1"",65,0)"
^XMB(3.9,99,2,344,0)=" ...I PSBDT'=$$GET1^DIQ(53.79,PSBIEN_"","",.06,""I"") Q"
^XMB(3.9,99,2,345,0)="""RTN"",""PSBOMH1"",66,0)"
^XMB(3.9,99,2,346,0)=" ...S PSBINIT=$$GET1^DIQ(53.79,PSBIEN_"","",""ACTION BY:INITIAL"")"
^XMB(3.9,99,2,347,0)="""RTN"",""PSBOMH1"",67,0)"
^XMB(3.9,99,2,348,0)=" ...S PSBNAME=$$GET1^DIQ(53.79,PSBIEN_"","",""ACTION BY:NAME"")"
^XMB(3.9,99,2,349,0)="""RTN"",""PSBOMH1"",68,0)"
^XMB(3.9,99,2,350,0)=" ...I PSBINIT="""" S PSBINIT=99"
^XMB(3.9,99,2,351,0)="""RTN"",""PSBOMH1"",69,0)"
^XMB(3.9,99,2,352,0)=" ...S (PSBXA,PSBM)=1,(PSBZ,PSBT,PSBFLG)="""""
^XMB(3.9,99,2,353,0)="""RTN"",""PSBOMH1"",70,0)"
^XMB(3.9,99,2,354,0)=" ...I $$GET1^DIQ(53.79,PSBIEN_"","",.09)=""REMOVED""  D"
^XMB(3.9,99,2,355,0)="""RTN"",""PSBOMH1"",71,0)"
^XMB(3.9,99,2,356,0)=" ....F I=1:1 S PSBXA=$O(^PSB(53.79,PSBIEN,.9,PSBXA)) Q:PSBXA=""""  I PSBXA?1.3N  S PSBZ=PSBZ+1,PSBT(PSBZ)=^PSB(53.79,PSBIEN,.9,PSBXA,0)"
^XMB(3.9,99,2,357,0)="""RTN"",""PSBOMH1"",72,0)"
^XMB(3.9,99,2,358,0)=" ....F S=1:1 Q:PSBM<1  S PSBM=PSBZ-S  I (PSBM>0) I (PSBT(PSBM)[""GIVEN"")  S PSBFLG=""1"" S PRELINE1=$P(PSBT(PSBM),""'"",2)_"" ""_$$GET1^DIQ(53.79,PSBIEN_"","",.04)_"" ""_$E($P(PSBT(PSBM),""'"",4),1,3) Q"
^XMB(3.9,99,2,359,0)="""RTN"",""PSBOMH1"",73,0)"
^XMB(3.9,99,2,360,0)=" ...I $D(^PSB(53.79,PSBIEN,.9,$P(PSBDT,"".""))) D"
^XMB(3.9,99,2,361,0)="""RTN"",""PSBOMH1"",74,0)"
^XMB(3.9,99,2,362,0)=" ....D INSTR^PSBOMH"
^XMB(3.9,99,2,363,0)="""RTN"",""PSBOMH1"",75,0)"
^XMB(3.9,99,2,364,0)=" ....S ^TMP(""PSB"",$J,""LEGEND"",PSBINIT,PSBNAME)="""""
^XMB(3.9,99,2,365,0)="""RTN"",""PSBOMH1"",76,0)"
^XMB(3.9,99,2,366,0)=" ...I '$D(^PSB(53.79,PSBIEN,.9,$P(PSBDT,""."")))  D PSBOUT(PSBDT,PSBINIT)"
^XMB(3.9,99,2,367,0)="""RTN"",""PSBOMH1"",77,0)"
^XMB(3.9,99,2,368,0)=" ...S PSBLINE1=$$GET1^DIQ(53.79,PSBIEN_"","",.09)_"" ""_$$GET1^DIQ(53.79,PSBIEN_"","",.06)_"" ""_PSBINIT_""            ""_$$GET1^DIQ(53.79,PSBIEN_"","",.21),PSBLINE2="""""
^XMB(3.9,99,2,369,0)="""RTN"",""PSBOMH1"",78,0)"
^XMB(3.9,99,2,370,0)=" ...I PSBINIT[99 S PSBINIT="""""
^XMB(3.9,99,2,371,0)="""RTN"",""PSBOMH1"",79,0)"
^XMB(3.9,99,2,372,0)=" ...D:$P($G(^PSB(53.79,PSBIEN,.1)),U,2)=""P"""
^XMB(3.9,99,2,373,0)="""RTN"",""PSBOMH1"",80,0)"
^XMB(3.9,99,2,374,0)=" ....I $P($G(^PSB(53.79,PSBIEN,.2)),U,2)="""" S PSBLINE2=""  Results: <No PRN Results On File>"""
^XMB(3.9,99,2,375,0)="""RTN"",""PSBOMH1"",81,0)"
^XMB(3.9,99,2,376,0)=" ....E  D"
^XMB(3.9,99,2,377,0)="""RTN"",""PSBOMH1"",82,0)"
^XMB(3.9,99,2,378,0)=" .....S PSBINIT=$$GET1^DIQ(53.79,PSBIEN_"","",""PRN EFFECTIVENESS ENTERED BY:INITIAL"")"
^XMB(3.9,99,2,379,0)="""RTN"",""PSBOMH1"",83,0)"
^XMB(3.9,99,2,380,0)=" .....S PSBNAME=$$GET1^DIQ(53.79,PSBIEN_"","",""PRN EFFECTIVENESS ENTERED BY:NAME"")"
^XMB(3.9,99,2,381,0)="""RTN"",""PSBOMH1"",84,0)"
^XMB(3.9,99,2,382,0)=" .....I PSBINIT="""" S PSBINIT=99"
^XMB(3.9,99,2,383,0)="""RTN"",""PSBOMH1"",85,0)"
^XMB(3.9,99,2,384,0)=" .....I $D(^PSB(53.79,PSBIEN,.9,$P(PSBDT,"".""))) D"
^XMB(3.9,99,2,385,0)="""RTN"",""PSBOMH1"",86,0)"
^XMB(3.9,99,2,386,0)=" ......S PSBINIT=PSBINIT_""*"",PSBNAME=PSBNAME_""/""_$P(^PSB(53.79,PSBIEN,.9,$P(PSBDT,"".""),0),U,3)_""  ""_$$GET1^DIQ(53.79,PSBIEN_"","",.24)"
^XMB(3.9,99,2,387,0)="""RTN"",""PSBOMH1"",87,0)"
^XMB(3.9,99,2,388,0)=" ......S ^TMP(""PSB"",$J,""LEGEND"",PSBINIT,PSBNAME)="""""
^XMB(3.9,99,2,389,0)="""RTN"",""PSBOMH1"",88,0)"
^XMB(3.9,99,2,390,0)=" .....I '$D(^PSB(53.79,PSBIEN,.9,$P(PSBDT,""."")))  D"
^XMB(3.9,99,2,391,0)="""RTN"",""PSBOMH1"",89,0)"
^XMB(3.9,99,2,392,0)=" ......D:$D(^PSB(53.79,PSBIEN,.9,0))"
^XMB(3.9,99,2,393,0)="""RTN"",""PSBOMH1"",90,0)"
^XMB(3.9,99,2,394,0)=" .......S (PSBXA2,PSBFG)=0,PSBEFFDT=$P(^PSB(53.79,PSBIEN,.2),U,4) F  S PSBXA2=$O(^PSB(53.79,PSBIEN,.9,PSBXA2)) Q:+PSBXA2'>0  D  Q:PSBFG=1"
^XMB(3.9,99,2,395,0)="""RTN"",""PSBOMH1"",91,0)"
^XMB(3.9,99,2,396,0)=" ........D:($P(^PSB(53.79,PSBIEN,.9,PSBXA2,0),U)=PSBEFFDT)&($P(^PSB(53.79,PSBIEN,.9,PSBXA2,0),U,3)[""Instruct"")&($P(^PSB(53.79,PSBIEN,.2),U,3)=$P(^PSB(53.79,PSBIEN,.9,PSBXA2,0),U,2))"
^XMB(3.9,99,2,397,0)="""RTN"",""PSBOMH1"",92,0)"
^XMB(3.9,99,2,398,0)=" .........S PSBINIT=PSBINIT_""*"",PSBNAME=PSBNAME_""/""_$P(^PSB(53.79,PSBIEN,.9,PSBXA2,0),U,3)_""  ""_$$GET1^DIQ(53.79,PSBIEN_"","",.24)"
^XMB(3.9,99,2,399,0)="""RTN"",""PSBOMH1"",93,0)"
^XMB(3.9,99,2,400,0)=" .........S ^TMP(""PSB"",$J,""LEGEND"",PSBINIT,PSBNAME)="""",PSBFG=1"
^XMB(3.9,99,2,401,0)="""RTN"",""PSBOMH1"",94,0)"
^XMB(3.9,99,2,402,0)=" .....S PSBLINE2=""  Results: ""_$$GET1^DIQ(53.79,PSBIEN_"","",.22)"
^XMB(3.9,99,2,403,0)="""RTN"",""PSBOMH1"",95,0)"
^XMB(3.9,99,2,404,0)=" .....S PSBRTXTW=""     Entered By ""_PSBINIT_"" on ""_$$GET1^DIQ(53.79,PSBIEN_"","",.24)"
^XMB(3.9,99,2,405,0)="""RTN"",""PSBOMH1"",96,0)"
^XMB(3.9,99,2,406,0)=" .....I PSBINIT[99 S PSBINIT="""""
^XMB(3.9,99,2,407,0)="""RTN"",""PSBOMH1"",97,0)"
^XMB(3.9,99,2,408,0)=" ...S X=PSBDT D H^%DTC F PSBWEEK=PSBAR(%H):-7 Q:$D(^TMP(""PSB"",$J,PSBWEEK,PSBORD,""AT"",0))!('$D(PSBAR(PSBWEEK)))"
^XMB(3.9,99,2,409,0)="""RTN"",""PSBOMH1"",98,0)"
^XMB(3.9,99,2,410,0)=" ...S X=$O(^TMP(""PSB"",$J,PSBWEEK,PSBORD,""AT"",""""),-1)+1"
^XMB(3.9,99,2,411,0)="""RTN"",""PSBOMH1"",99,0)"
^XMB(3.9,99,2,412,0)=" ...I PSBFLG=""1"" S ^TMP(""PSB"",$J,PSBWEEK,PSBORD,""AT"",X)=PRELINE1"
^XMB(3.9,99,2,413,0)="""RTN"",""PSBOMH1"",100,0)"
^XMB(3.9,99,2,414,0)=" ...S ^TMP(""PSB"",$J,PSBWEEK,PSBORD,""AT"",X+1)=PSBLINE1"
^XMB(3.9,99,2,415,0)="""RTN"",""PSBOMH1"",101,0)"
^XMB(3.9,99,2,416,0)=" ...I $G(PSBLINE2)]"""" D"
^XMB(3.9,99,2,417,0)="""RTN"",""PSBOMH1"",102,0)"
^XMB(3.9,99,2,418,0)=" ....I $L(PSBLINE2)<90 S ^TMP(""PSB"",$J,PSBWEEK,PSBORD,""AT"",X+2)=PSBLINE2 S:$$GET1^DIQ(53.79,PSBIEN_"","",.24)'="""" ^TMP(""PSB"",$J,PSBWEEK,PSBORD,""AT"",X+3)=""      ""_PSBRTXTW"
^XMB(3.9,99,2,419,0)="""RTN"",""PSBOMH1"",103,0)"
^XMB(3.9,99,2,420,0)=" ....I $L(PSBLINE2)>90 D"
^XMB(3.9,99,2,421,0)="""RTN"",""PSBOMH1"",104,0)"
^XMB(3.9,99,2,422,0)=" .....S ^TMP(""PSB"",$J,PSBWEEK,PSBORD,""AT"",X+2)=$E(PSBLINE2,1,90)"
^XMB(3.9,99,2,423,0)="""RTN"",""PSBOMH1"",105,0)"
^XMB(3.9,99,2,424,0)=" .....S ^TMP(""PSB"",$J,PSBWEEK,PSBORD,""AT"",X+3)=""           ""_$E(PSBLINE2,91,161)"
^XMB(3.9,99,2,425,0)="""RTN"",""PSBOMH1"",106,0)"
^XMB(3.9,99,2,426,0)=" .....I $L(PSBLINE2)'>161 S ^TMP(""PSB"",$J,PSBWEEK,PSBORD,""AT"",X+4)=""      ""_PSBRTXTW"
^XMB(3.9,99,2,427,0)="""RTN"",""PSBOMH1"",107,0)"
^XMB(3.9,99,2,428,0)=" .....I $L(PSBLINE2)>161 S ^TMP(""PSB"",$J,PSBWEEK,PSBORD,""AT"",X+4)=""     ""_$E(PSBLINE2,162,200),^TMP(""PSB"",$J,PSBWEEK,PSBORD,""AT"",X+5)=""     ""_PSBRTXTW"
^XMB(3.9,99,2,429,0)="""RTN"",""PSBOMH1"",108,0)"
^XMB(3.9,99,2,430,0)=" Q"
^XMB(3.9,99,2,431,0)="""RTN"",""PSBOMH1"",109,0)"
^XMB(3.9,99,2,432,0)=" ;"
^XMB(3.9,99,2,433,0)="""RTN"",""PSBOMH1"",110,0)"
^XMB(3.9,99,2,434,0)="DDAUD ;  audits for dispen drugs"
^XMB(3.9,99,2,435,0)="""RTN"",""PSBOMH1"",111,0)"
^XMB(3.9,99,2,436,0)=" ;"
^XMB(3.9,99,2,437,0)="""RTN"",""PSBOMH1"",112,0)"
^XMB(3.9,99,2,438,0)=" M PSBMLA=^PSB(53.79,PSBIEN)"
^XMB(3.9,99,2,439,0)="""RTN"",""PSBOMH1"",113,0)"
^XMB(3.9,99,2,440,0)=" S PSBGA="""" I $D(PSBMLA(.9,0)) D"
^XMB(3.9,99,2,441,0)="""RTN"",""PSBOMH1"",114,0)"
^XMB(3.9,99,2,442,0)=" .F PSBX=1:1 Q:'$D(PSBMLA(.9,PSBX))  I ((PSBMLA(.9,PSBX,0)[""ACTION STATUS"")!(PSBMLA(.9,PSBX,0)[""ADMINISTRATION STATUS"")) D  Q"
^XMB(3.9,99,2,443,0)="""RTN"",""PSBOMH1"",115,0)"
^XMB(3.9,99,2,444,0)=" ..I $D(PSBMLA(.9,PSBX-2,0)) D DT^DILF(""ENPST"",$P(PSBMLA(.9,PSBX-2,0),""'"",2),.PSBDATE)"
^XMB(3.9,99,2,445,0)="""RTN"",""PSBOMH1"",116,0)"
^XMB(3.9,99,2,446,0)=" ..I '$D(PSBMLA(.9,PSBX-2,0)) S PSBDATE=$P(^PSB(53.79,PSBIEN,0),U,6)"
^XMB(3.9,99,2,447,0)="""RTN"",""PSBOMH1"",117,0)"
^XMB(3.9,99,2,448,0)=" ..S PSBTMP(10000000-PSBDATE,""B"")=PSBDATE_U_$$INITIAL^PSBRPC2($P(PSBMLA(0),U,5))_U_$P(PSBMLA(.9,PSBX,0),""'"",2)"
^XMB(3.9,99,2,449,0)="""RTN"",""PSBOMH1"",118,0)"
^XMB(3.9,99,2,450,0)=" ..S PSBGA=1"
^XMB(3.9,99,2,451,0)="""RTN"",""PSBOMH1"",119,0)"
^XMB(3.9,99,2,452,0)=" .F PSBX=1:1 Q:'$D(PSBMLA(.9,PSBX))  I ((PSBMLA(.9,PSBX,0)[""ACTION STATUS"")!(PSBMLA(.9,PSBX,0)[""ADMINISTRATION STATUS"")) D"
^XMB(3.9,99,2,453,0)="""RTN"",""PSBOMH1"",120,0)"
^XMB(3.9,99,2,454,0)=" ..S PSBTMP(10000000-$P(PSBMLA(.9,PSBX,0),U,1),""B"")=$P(PSBMLA(.9,PSBX,0),U,1)_U_$$INITIAL^PSBRPC2($P(PSBMLA(.9,PSBX,0),U,2))_U_$P($P(PSBMLA(.9,PSBX,0),U,3),""'"",2)"
^XMB(3.9,99,2,455,0)="""RTN"",""PSBOMH1"",121,0)"
^XMB(3.9,99,2,456,0)=" ..S PSBGA=1"
^XMB(3.9,99,2,457,0)="""RTN"",""PSBOMH1"",122,0)"
^XMB(3.9,99,2,458,0)=" I PSBGA'=1 S PSBTMP(10000000-$P(PSBMLA(0),U,6),""A"")=$P(PSBMLA(0),U,6)_U_$$INITIAL^PSBRPC2($P(PSBMLA(0),U,7))"
^XMB(3.9,99,2,459,0)="""RTN"",""PSBOMH1"",123,0)"
^XMB(3.9,99,2,460,0)=" S PSBQRY=""PSBTMP"",PSBCNT=1 F  S PSBQRY=$Q(@PSBQRY) Q:PSBQRY=""""  D  ; does comment go with action"
^XMB(3.9,99,2,461,0)="""RTN"",""PSBOMH1"",124,0)"
^XMB(3.9,99,2,462,0)=" .S PSBPQRY=$Q(@PSBQRY,-1)"
^XMB(3.9,99,2,463,0)="""RTN"",""PSBOMH1"",125,0)"
^XMB(3.9,99,2,464,0)=" .I PSBPQRY="""" S PSBTAR(PSBCNT)=@PSBQRY,PSBCNT=PSBCNT+1 Q  ; no prev action"
^XMB(3.9,99,2,465,0)="""RTN"",""PSBOMH1"",126,0)"
^XMB(3.9,99,2,466,0)=" .I $QS(PSBPQRY,2)=""C""  S PSBTAR(PSBCNT)=@PSBQRY,PSBCNT=PSBCNT+1 Q  ; prev line = comment"
^XMB(3.9,99,2,467,0)="""RTN"",""PSBOMH1"",127,0)"
^XMB(3.9,99,2,468,0)=" .I $QS(PSBQRY,2)=""C"",$E($P(@$Q(@PSBQRY,-1),U,1),1,12)=$E($P(@PSBQRY,U,1),1,12),$P(@$Q(@PSBQRY,-1),U,2)=$P(@PSBQRY,U,2) D  Q"
^XMB(3.9,99,2,469,0)="""RTN"",""PSBOMH1"",128,0)"
^XMB(3.9,99,2,470,0)=" ..S X=$P(@PSBQRY,U,4) S:X["":"" X=$P(X,"":"",2) S $P(PSBTAR(PSBCNT-1),U,4)=X Q"
^XMB(3.9,99,2,471,0)="""RTN"",""PSBOMH1"",129,0)"
^XMB(3.9,99,2,472,0)=" .S PSBTAR(PSBCNT)=@PSBQRY,PSBCNT=PSBCNT+1"
^XMB(3.9,99,2,473,0)="""RTN"",""PSBOMH1"",130,0)"
^XMB(3.9,99,2,474,0)=" Q"
^XMB(3.9,99,2,475,0)="""RTN"",""PSBOMH1"",131,0)"
^XMB(3.9,99,2,476,0)=" ;"
^XMB(3.9,99,2,477,0)="""RTN"",""PSBOMH1"",132,0)"
^XMB(3.9,99,2,478,0)="PSBOUT(PSBTET,PSBOT1) ;"
^XMB(3.9,99,2,479,0)="""RTN"",""PSBOMH1"",133,0)"
^XMB(3.9,99,2,480,0)=" I '$D(^PSB(53.79,PSBIEN,.9,0))  D PSBENT^PSBOMH2(PSBOT1)"
^XMB(3.9,99,2,481,0)="""RTN"",""PSBOMH1"",134,0)"
^XMB(3.9,99,2,482,0)=" S PSBIDA="""" I $P(^PSB(53.79,PSBIEN,0),U,6)=PSBTET S PSBIDA=$P(^PSB(53.79,PSBIEN,0),U,7),PSBOT1=$P(^VA(200,PSBIDA,0),""^"",2),PSBNAME=$P(^VA(200,PSBIDA,0),""^"",1)"
^XMB(3.9,99,2,483,0)="""RTN"",""PSBOMH1"",135,0)"
^XMB(3.9,99,2,484,0)=" S PSBXA1=0"
^XMB(3.9,99,2,485,0)="""RTN"",""PSBOMH1"",136,0)"
^XMB(3.9,99,2,486,0)=" F  S PSBXA1=$O(^PSB(53.79,PSBIEN,.9,PSBXA1)) Q:+PSBXA1'>0  I PSBXA1'=0  D  Q:$G(PSBOT1)[""*"""
^XMB(3.9,99,2,487,0)="""RTN"",""PSBOMH1"",137,0)"
^XMB(3.9,99,2,488,0)=" .I $L(PSBXA1)<4  D"
^XMB(3.9,99,2,489,0)="""RTN"",""PSBOMH1"",138,0)"
^XMB(3.9,99,2,490,0)=" ..I $P(^PSB(53.79,PSBIEN,.9,PSBXA1,0),""^"",1)=PSBTET  D"
^XMB(3.9,99,2,491,0)="""RTN"",""PSBOMH1"",139,0)"
^XMB(3.9,99,2,492,0)=" ...S:$G(PSBIDA)="""" PSBIDA=$P(^PSB(53.79,PSBIEN,.9,PSBXA1,0),""^"",2),PSBOT1=$P(^VA(200,PSBIDA,0),""^"",2),PSBNAME=$P(^VA(200,PSBIDA,0),""^"",1)"
^XMB(3.9,99,2,493,0)="""RTN"",""PSBOMH1"",140,0)"
^XMB(3.9,99,2,494,0)=" ...I (PSBIDA=$P(^PSB(53.79,PSBIEN,.9,PSBXA1,0),""^"",2)),$P(^PSB(53.79,PSBIEN,.9,PSBXA1,0),""^"",3)[""Instruct""  D"
^XMB(3.9,99,2,495,0)="""RTN"",""PSBOMH1"",141,0)"
^XMB(3.9,99,2,496,0)=" ....S INSDD=$P(^PSB(53.79,PSBIEN,.9,PSBXA1,0),""^"",1),Y=INSDD D DD^%DT S INSDD=Y"
^XMB(3.9,99,2,497,0)="""RTN"",""PSBOMH1"",142,0)"
^XMB(3.9,99,2,498,0)=" ....S PSBOT1=PSBOT1_""*"",PSBNAME=PSBNAME_""/""_$P(^PSB(53.79,PSBIEN,.9,PSBXA1,0),U,3)_"" ""_INSDD"
^XMB(3.9,99,2,499,0)="""RTN"",""PSBOMH1"",143,0)"
^XMB(3.9,99,2,500,0)=" I $G(PSBIDA)="""",$P(^PSB(53.79,PSBIEN,0),U,4)=PSBTET D"
^XMB(3.9,99,2,501,0)="""RTN"",""PSBOMH1"",144,0)"
^XMB(3.9,99,2,502,0)=" .S PSBIDA=$P(^PSB(53.79,PSBIEN,0),U,5),PSBOT1=$P(^VA(200,PSBIDA,0),""^"",2),PSBNAME=$P(^VA(200,PSBIDA,0),""^"",1)"
^XMB(3.9,99,2,503,0)="""RTN"",""PSBOMH1"",145,0)"
^XMB(3.9,99,2,504,0)=" I $G(PSBNAME)="""" D"
^XMB(3.9,99,2,505,0)="""RTN"",""PSBOMH1"",146,0)"
^XMB(3.9,99,2,506,0)=" . S PSBIDA=$P(^PSB(53.79,PSBIEN,0),U,5),PSBOT1=$P(^VA(200,PSBIDA,0),""^"",2),PSBNAME=$P(^VA(200,PSBIDA,0),""^"",1)"
^XMB(3.9,99,2,507,0)="""RTN"",""PSBOMH1"",147,0)"
^XMB(3.9,99,2,508,0)=" S ^TMP(""PSB"",$J,""LEGEND"",$S($G(PSBOT1)="""":99,1:PSBOT1),PSBNAME)="""""
^XMB(3.9,99,2,509,0)="""RTN"",""PSBOMH1"",148,0)"
^XMB(3.9,99,2,510,0)=" Q"
^XMB(3.9,99,2,511,0)="""RTN"",""PSBOMH1"",149,0)"
^XMB(3.9,99,2,512,0)=" ;"
^XMB(3.9,99,2,513,0)="""RTN"",""PSBOMH2"")"
^XMB(3.9,99,2,514,0)="0^10^B36786547^B29518009"
^XMB(3.9,99,2,515,0)="""RTN"",""PSBOMH2"",1,0)"
^XMB(3.9,99,2,516,0)="PSBOMH2 ;BIRMINGHAM/EFC-MAH ;Mar 2004"
^XMB(3.9,99,2,517,0)="""RTN"",""PSBOMH2"",2,0)"
^XMB(3.9,99,2,518,0)=" ;;3.0;BAR CODE MED ADMIN;**6,20,27,26**;Mar 2004"
^XMB(3.9,99,2,519,0)="""RTN"",""PSBOMH2"",3,0)"
^XMB(3.9,99,2,520,0)=" ;"
^XMB(3.9,99,2,521,0)="""RTN"",""PSBOMH2"",4,0)"
^XMB(3.9,99,2,522,0)=" ; Reference/IA"
^XMB(3.9,99,2,523,0)="""RTN"",""PSBOMH2"",5,0)"
^XMB(3.9,99,2,524,0)=" ; EN^PSJBCMA/2828"
^XMB(3.9,99,2,525,0)="""RTN"",""PSBOMH2"",6,0)"
^XMB(3.9,99,2,526,0)=" ;"
^XMB(3.9,99,2,527,0)="""RTN"",""PSBOMH2"",7,0)"
^XMB(3.9,99,2,528,0)="EN ;"
^XMB(3.9,99,2,529,0)="""RTN"",""PSBOMH2"",8,0)"
^XMB(3.9,99,2,530,0)=" ; Okay, let's print this puppy"
^XMB(3.9,99,2,531,0)="""RTN"",""PSBOMH2"",9,0)"
^XMB(3.9,99,2,532,0)=" S PSBWEEK=0"
^XMB(3.9,99,2,533,0)="""RTN"",""PSBOMH2"",10,0)"
^XMB(3.9,99,2,534,0)=" F  S PSBWEEK=$O(^TMP(""PSB"",$J,PSBWEEK)) Q:'PSBWEEK  D"
^XMB(3.9,99,2,535,0)="""RTN"",""PSBOMH2"",11,0)"
^XMB(3.9,99,2,536,0)=" .D:$D(^TMP(""PSB"",$J,PSBWEEK,""SORT"",""C""))"
^XMB(3.9,99,2,537,0)="""RTN"",""PSBOMH2"",12,0)"
^XMB(3.9,99,2,538,0)=" ..D CONT"
^XMB(3.9,99,2,539,0)="""RTN"",""PSBOMH2"",13,0)"
^XMB(3.9,99,2,540,0)=" ;"
^XMB(3.9,99,2,541,0)="""RTN"",""PSBOMH2"",14,0)"
^XMB(3.9,99,2,542,0)=" ; Now the PRN/One Time/On-Call Sheets"
^XMB(3.9,99,2,543,0)="""RTN"",""PSBOMH2"",15,0)"
^XMB(3.9,99,2,544,0)=" S PSBWEEK=0"
^XMB(3.9,99,2,545,0)="""RTN"",""PSBOMH2"",16,0)"
^XMB(3.9,99,2,546,0)=" F  S PSBWEEK=$O(^TMP(""PSB"",$J,PSBWEEK)) Q:'PSBWEEK  D"
^XMB(3.9,99,2,547,0)="""RTN"",""PSBOMH2"",17,0)"
^XMB(3.9,99,2,548,0)=" .D:$D(^TMP(""PSB"",$J,PSBWEEK,""SORT"",""P""))"
^XMB(3.9,99,2,549,0)="""RTN"",""PSBOMH2"",18,0)"
^XMB(3.9,99,2,550,0)=" ..D PRN"
^XMB(3.9,99,2,551,0)="""RTN"",""PSBOMH2"",19,0)"
^XMB(3.9,99,2,552,0)=" ;"
^XMB(3.9,99,2,553,0)="""RTN"",""PSBOMH2"",20,0)"
^XMB(3.9,99,2,554,0)=" D LEGEND"
^XMB(3.9,99,2,555,0)="""RTN"",""PSBOMH2"",21,0)"
^XMB(3.9,99,2,556,0)=" Q"
^XMB(3.9,99,2,557,0)="""RTN"",""PSBOMH2"",22,0)"
^XMB(3.9,99,2,558,0)="CONT ;"
^XMB(3.9,99,2,559,0)="""RTN"",""PSBOMH2"",23,0)"
^XMB(3.9,99,2,560,0)=" S PSBHDR(1)=""Continuing/PRN/Stat/One Time Medication/Treatment Record (VAF 10-2970 B, C, D)"""
^XMB(3.9,99,2,561,0)="""RTN"",""PSBOMH2"",24,0)"
^XMB(3.9,99,2,562,0)=" W $$HDR()"
^XMB(3.9,99,2,563,0)="""RTN"",""PSBOMH2"",25,0)"
^XMB(3.9,99,2,564,0)=" S PSBDRUG="""""
^XMB(3.9,99,2,565,0)="""RTN"",""PSBOMH2"",26,0)"
^XMB(3.9,99,2,566,0)=" F  S PSBDRUG=$O(^TMP(""PSB"",$J,PSBWEEK,""SORT"",""C"",PSBDRUG)) Q:PSBDRUG=""""  D"
^XMB(3.9,99,2,567,0)="""RTN"",""PSBOMH2"",27,0)"
^XMB(3.9,99,2,568,0)=" .S PSBORD="""""
^XMB(3.9,99,2,569,0)="""RTN"",""PSBOMH2"",28,0)"
^XMB(3.9,99,2,570,0)=" .F  S PSBORD=$O(^TMP(""PSB"",$J,PSBWEEK,""SORT"",""C"",PSBDRUG,PSBORD)) Q:'PSBORD  D"
^XMB(3.9,99,2,571,0)="""RTN"",""PSBOMH2"",29,0)"
^XMB(3.9,99,2,572,0)=" ..;S X="""",PSBNAF=0 F  S X=$O(^TMP(""PSB"",$J,PSBWEEK,PSBORD,X)) Q:X=""""  I ^TMP(""PSB"",$J,PSBWEEK,PSBORD,X,0)'=0 S PSBNAF=1  ; check for data"
^XMB(3.9,99,2,573,0)="""RTN"",""PSBOMH2"",30,0)"
^XMB(3.9,99,2,574,0)=" ..;D CLEAN^PSBVT,PSJ1^PSBVT(DFN,PSBORD)"
^XMB(3.9,99,2,575,0)="""RTN"",""PSBOMH2"",31,0)"
^XMB(3.9,99,2,576,0)=" ..;S X=PSBOST D H^%DTC S PSBOSTH=%H"
^XMB(3.9,99,2,577,0)="""RTN"",""PSBOMH2"",32,0)"
^XMB(3.9,99,2,578,0)=" ..;S X=PSBOSP D H^%DTC S PSBOSPH=%H"
^XMB(3.9,99,2,579,0)="""RTN"",""PSBOMH2"",33,0)"
^XMB(3.9,99,2,580,0)=" ..;I PSBNAF=0 Q"
^XMB(3.9,99,2,581,0)="""RTN"",""PSBOMH2"",34,0)"
^XMB(3.9,99,2,582,0)=" ..;I PSBNAF=0,$G(PSBAR(PSBOSTH))'=PSBWEEK,$G(PSBAR(PSBOSPH))'=PSBWEEK Q  ; no data for this week and neither start or stop date is this week"
^XMB(3.9,99,2,583,0)="""RTN"",""PSBOMH2"",35,0)"
^XMB(3.9,99,2,584,0)=" ..S PSBCNT=8"
^XMB(3.9,99,2,585,0)="""RTN"",""PSBOMH2"",36,0)"
^XMB(3.9,99,2,586,0)=" ..S:$O(^TMP(""PSB"",$J,""ORDERS"",PSBORD,""INST"",""""),-1)>PSBCNT PSBCNT=$O(^(""""),-1)"
^XMB(3.9,99,2,587,0)="""RTN"",""PSBOMH2"",37,0)"
^XMB(3.9,99,2,588,0)=" ..S:$O(^TMP(""PSB"",$J,""ORDERS"",PSBORD,""AT"",""""),-1)>PSBCNT PSBCNT=$O(^(""""),-1)"
^XMB(3.9,99,2,589,0)="""RTN"",""PSBOMH2"",38,0)"
^XMB(3.9,99,2,590,0)=" ..W:$Y>(IOSL-PSBCNT-4) $$HDR()"
^XMB(3.9,99,2,591,0)="""RTN"",""PSBOMH2"",39,0)"
^XMB(3.9,99,2,592,0)=" ..F PSBLINE=1:1:PSBCNT D"
^XMB(3.9,99,2,593,0)="""RTN"",""PSBOMH2"",40,0)"
^XMB(3.9,99,2,594,0)=" ...I IOSL>24,$Y>$S(PSBCNT<13:(IOSL-PSBCNT-4),(PSBCNT-PSBLINE=12):(IOSL-12),1:(IOSL-12)) D"
^XMB(3.9,99,2,595,0)="""RTN"",""PSBOMH2"",41,0)"
^XMB(3.9,99,2,596,0)=" ....W !?(IOM-35\2),""*** CONTINUED ON NEXT PAGE ***"""
^XMB(3.9,99,2,597,0)="""RTN"",""PSBOMH2"",42,0)"
^XMB(3.9,99,2,598,0)=" ....W $$HDR()"
^XMB(3.9,99,2,599,0)="""RTN"",""PSBOMH2"",43,0)"
^XMB(3.9,99,2,600,0)=" ....W !?(IOM-35\2),""*** CONTINUED FROM PREVIOUS PAGE ***"""
^XMB(3.9,99,2,601,0)="""RTN"",""PSBOMH2"",44,0)"
^XMB(3.9,99,2,602,0)=" ...W !,$G(^TMP(""PSB"",$J,""ORDERS"",PSBORD,""INST"",PSBLINE))"
^XMB(3.9,99,2,603,0)="""RTN"",""PSBOMH2"",45,0)"
^XMB(3.9,99,2,604,0)=" ...W ?32,""| "",$G(^TMP(""PSB"",$J,""ORDERS"",PSBORD,""AT"",PSBLINE))"
^XMB(3.9,99,2,605,0)="""RTN"",""PSBOMH2"",46,0)"
^XMB(3.9,99,2,606,0)=" ...S PSBDAY=0,PSBCOL=0"
^XMB(3.9,99,2,607,0)="""RTN"",""PSBOMH2"",47,0)"
^XMB(3.9,99,2,608,0)=" ...F  S PSBDAY=$O(^TMP(""PSB"",$J,PSBWEEK,""HDR"",PSBDAY)) Q:'PSBDAY  D"
^XMB(3.9,99,2,609,0)="""RTN"",""PSBOMH2"",48,0)"
^XMB(3.9,99,2,610,0)=" ....W ?(40+(PSBCOL*13)),""| """
^XMB(3.9,99,2,611,0)="""RTN"",""PSBOMH2"",49,0)"
^XMB(3.9,99,2,612,0)=" ....S Y=$G(^TMP(""PSB"",$J,PSBWEEK,PSBORD,PSBDAY,PSBLINE))"
^XMB(3.9,99,2,613,0)="""RTN"",""PSBOMH2"",50,0)"
^XMB(3.9,99,2,614,0)=" ....W $P(Y,U,3)"
^XMB(3.9,99,2,615,0)="""RTN"",""PSBOMH2"",51,0)"
^XMB(3.9,99,2,616,0)=" ....W $E($P($P(Y,U,1)_""0000"",""."",2),1,4),"" """
^XMB(3.9,99,2,617,0)="""RTN"",""PSBOMH2"",52,0)"
^XMB(3.9,99,2,618,0)=" ....W $P(Y,U,2)"
^XMB(3.9,99,2,619,0)="""RTN"",""PSBOMH2"",53,0)"
^XMB(3.9,99,2,620,0)=" ....I $D(^TMP(""PSB"",$J,""ORDERS"",PSBORD,""HOLD"",PSBDAY)),(PSBLINE=PSBCNT) W ""HOLD""  ;output hold status"
^XMB(3.9,99,2,621,0)="""RTN"",""PSBOMH2"",54,0)"
^XMB(3.9,99,2,622,0)=" ....I '$D(^TMP(""PSB"",$J,""ORDERS"",PSBORD,""DISC"",PSBDAY))&'$D(^TMP(""PSB"",$J,""ORDERS"",PSBORD,""HOLD"",PSBDAY)) D"
^XMB(3.9,99,2,623,0)="""RTN"",""PSBOMH2"",55,0)"
^XMB(3.9,99,2,624,0)=" .....I $D(^TMP(""PSB"",$J,""ORDERS"",PSBORD,""NTDUE"",PSBDAY)),(PSBLINE=PSBCNT) W ""***""  ;write *** when day no due"
^XMB(3.9,99,2,625,0)="""RTN"",""PSBOMH2"",56,0)"
^XMB(3.9,99,2,626,0)=" ....I $D(^TMP(""PSB"",$J,""ORDERS"",PSBORD,""DISC"",PSBDAY)),(PSBLINE=PSBCNT) W ""***""   ;output discontinued status"
^XMB(3.9,99,2,627,0)="""RTN"",""PSBOMH2"",57,0)"
^XMB(3.9,99,2,628,0)=" ....S PSBCOL=PSBCOL+1"
^XMB(3.9,99,2,629,0)="""RTN"",""PSBOMH2"",58,0)"
^XMB(3.9,99,2,630,0)=" ..W !,$TR($J("""",IOM),"" "",""-"")"
^XMB(3.9,99,2,631,0)="""RTN"",""PSBOMH2"",59,0)"
^XMB(3.9,99,2,632,0)=" Q"
^XMB(3.9,99,2,633,0)="""RTN"",""PSBOMH2"",60,0)"
^XMB(3.9,99,2,634,0)=" ;"
^XMB(3.9,99,2,635,0)="""RTN"",""PSBOMH2"",61,0)"
^XMB(3.9,99,2,636,0)="PRN ;"
^XMB(3.9,99,2,637,0)="""RTN"",""PSBOMH2"",62,0)"
^XMB(3.9,99,2,638,0)=" S PSBHDR(1)=""Continuing/PRN/Stat/One Time Medication/Treatment Record (VAF 10-2970 B, C, D)"""
^XMB(3.9,99,2,639,0)="""RTN"",""PSBOMH2"",63,0)"
^XMB(3.9,99,2,640,0)=" W $$HDR(1)"
^XMB(3.9,99,2,641,0)="""RTN"",""PSBOMH2"",64,0)"
^XMB(3.9,99,2,642,0)=" S PSBDRUG="""""
^XMB(3.9,99,2,643,0)="""RTN"",""PSBOMH2"",65,0)"
^XMB(3.9,99,2,644,0)=" F  S PSBDRUG=$O(^TMP(""PSB"",$J,PSBWEEK,""SORT"",""P"",PSBDRUG)) Q:PSBDRUG=""""  D"
^XMB(3.9,99,2,645,0)="""RTN"",""PSBOMH2"",66,0)"
^XMB(3.9,99,2,646,0)=" .S PSBORD="""""
^XMB(3.9,99,2,647,0)="""RTN"",""PSBOMH2"",67,0)"
^XMB(3.9,99,2,648,0)=" .F  S PSBORD=$O(^TMP(""PSB"",$J,PSBWEEK,""SORT"",""P"",PSBDRUG,PSBORD)) Q:'PSBORD  D"
^XMB(3.9,99,2,649,0)="""RTN"",""PSBOMH2"",68,0)"
^XMB(3.9,99,2,650,0)=" ..S PSBCNT=$O(^TMP(""PSB"",$J,PSBWEEK,PSBORD,""AT"",""""),-1)"
^XMB(3.9,99,2,651,0)="""RTN"",""PSBOMH2"",69,0)"
^XMB(3.9,99,2,652,0)=" ..D:PSBCNT<$O(^TMP(""PSB"",$J,""ORDERS"",PSBORD,""INST"",""""),-1)"
^XMB(3.9,99,2,653,0)="""RTN"",""PSBOMH2"",70,0)"
^XMB(3.9,99,2,654,0)=" ...S PSBCNT=$O(^TMP(""PSB"",$J,""ORDERS"",PSBORD,""INST"",""""),-1)"
^XMB(3.9,99,2,655,0)="""RTN"",""PSBOMH2"",71,0)"
^XMB(3.9,99,2,656,0)=" ..S:PSBCNT<8 PSBCNT=8  ; Minimum space for order"
^XMB(3.9,99,2,657,0)="""RTN"",""PSBOMH2"",72,0)"
^XMB(3.9,99,2,658,0)=" ..W:$Y>(IOSL-PSBCNT-4) $$HDR(1)"
^XMB(3.9,99,2,659,0)="""RTN"",""PSBOMH2"",73,0)"
^XMB(3.9,99,2,660,0)=" ..F PSBLINE=1:1:PSBCNT D"
^XMB(3.9,99,2,661,0)="""RTN"",""PSBOMH2"",74,0)"
^XMB(3.9,99,2,662,0)=" ...I IOSL>24,$Y>$S(PSBCNT<13:(IOSL-PSBCNT-4),(PSBCNT-PSBLINE=12):(IOSL-12),1:(IOSL-12)) D"
^XMB(3.9,99,2,663,0)="""RTN"",""PSBOMH2"",75,0)"
^XMB(3.9,99,2,664,0)=" ....W !?(IOM-35\2),""*** CONTINUED ON NEXT PAGE ***"""
^XMB(3.9,99,2,665,0)="""RTN"",""PSBOMH2"",76,0)"
^XMB(3.9,99,2,666,0)=" ....W $$HDR(1)"
^XMB(3.9,99,2,667,0)="""RTN"",""PSBOMH2"",77,0)"
^XMB(3.9,99,2,668,0)=" ....W !?(IOM-35\2),""*** CONTINUED FROM PREVIOUS PAGE ***"""
^XMB(3.9,99,2,669,0)="""RTN"",""PSBOMH2"",78,0)"
^XMB(3.9,99,2,670,0)=" ...W !,$G(^TMP(""PSB"",$J,""ORDERS"",PSBORD,""INST"",PSBLINE))"
^XMB(3.9,99,2,671,0)="""RTN"",""PSBOMH2"",79,0)"
^XMB(3.9,99,2,672,0)=" ...W ?32,""| "",$G(^TMP(""PSB"",$J,PSBWEEK,PSBORD,""AT"",PSBLINE))"
^XMB(3.9,99,2,673,0)="""RTN"",""PSBOMH2"",80,0)"
^XMB(3.9,99,2,674,0)=" ..W !,$TR($J("""",IOM),"" "",""-"")"
^XMB(3.9,99,2,675,0)="""RTN"",""PSBOMH2"",81,0)"
^XMB(3.9,99,2,676,0)=" Q"
^XMB(3.9,99,2,677,0)="""RTN"",""PSBOMH2"",82,0)"
^XMB(3.9,99,2,678,0)=" ;"
^XMB(3.9,99,2,679,0)="""RTN"",""PSBOMH2"",83,0)"
^XMB(3.9,99,2,680,0)="LEGEND  ;"
^XMB(3.9,99,2,681,0)="""RTN"",""PSBOMH2"",84,0)"
^XMB(3.9,99,2,682,0)=" ;print the initials - name legend as an extra page  ;"
^XMB(3.9,99,2,683,0)="""RTN"",""PSBOMH2"",85,0)"
^XMB(3.9,99,2,684,0)=" ;I '$D(^TMP(""PSB"",$J,""LEGEND"")) K ^TMP(""PSJ"",$J),^TMP(""PSB"",$J) Q  ;"
^XMB(3.9,99,2,685,0)="""RTN"",""PSBOMH2"",86,0)"
^XMB(3.9,99,2,686,0)=" D PT^PSBOHDR(DFN,.PSBHDR)  ;"
^XMB(3.9,99,2,687,0)="""RTN"",""PSBOMH2"",87,0)"
^XMB(3.9,99,2,688,0)=" W !!,""Initial - Name Legend"",!  ;"
^XMB(3.9,99,2,689,0)="""RTN"",""PSBOMH2"",88,0)"
^XMB(3.9,99,2,690,0)=" I $D(^TMP(""PSB"",$J,""LEGEND""))  D"
^XMB(3.9,99,2,691,0)="""RTN"",""PSBOMH2"",89,0)"
^XMB(3.9,99,2,692,0)=" .S X=$Q(^TMP(""PSB"",$J,""LEGEND"",""""))"
^XMB(3.9,99,2,693,0)="""RTN"",""PSBOMH2"",90,0)"
^XMB(3.9,99,2,694,0)=" .F  W $S($QS(X,4)[99:"""",1:$QS(X,4)),?10,$QS(X,5),! S X=$Q(@X) Q:$QS(X,3)'=""LEGEND""  ;"
^XMB(3.9,99,2,695,0)="""RTN"",""PSBOMH2"",91,0)"
^XMB(3.9,99,2,696,0)=" W !!,""Status Codes"",!,""C - Completed"",!,""G - Given"",!,""H - Held"",!,""I - Infusing"",!,""M - Missing Dose Requested"",!,""R - Refused"",!,""RM - Removed"",!,""S - Stopped"",!,""*** - Medication Not Due"",!  ;"
^XMB(3.9,99,2,697,0)="""RTN"",""PSBOMH2"",92,0)"
^XMB(3.9,99,2,698,0)=" K ^TMP(""PSJ"",$J),^TMP(""PSB"",$J)"
^XMB(3.9,99,2,699,0)="""RTN"",""PSBOMH2"",93,0)"
^XMB(3.9,99,2,700,0)=" Q"
^XMB(3.9,99,2,701,0)="""RTN"",""PSBOMH2"",94,0)"
^XMB(3.9,99,2,702,0)=" ;"
^XMB(3.9,99,2,703,0)="""RTN"",""PSBOMH2"",95,0)"
^XMB(3.9,99,2,704,0)="HDR(PRN)   ;"
^XMB(3.9,99,2,705,0)="""RTN"",""PSBOMH2"",96,0)"
^XMB(3.9,99,2,706,0)=" ; PRN = TRUE IF DISPLAYING PRN MED (OPTIONAL)"
^XMB(3.9,99,2,707,0)="""RTN"",""PSBOMH2"",97,0)"
^XMB(3.9,99,2,708,0)=" D PT^PSBOHDR(DFN,.PSBHDR)"
^XMB(3.9,99,2,709,0)="""RTN"",""PSBOMH2"",98,0)"
^XMB(3.9,99,2,710,0)=" W !,""Start Date"",?20,""Stop Date"",?32,""| "",$S('$G(PRN):""Admin"",1:""Action Status"")"
^XMB(3.9,99,2,711,0)="""RTN"",""PSBOMH2"",99,0)"
^XMB(3.9,99,2,712,0)=" I '$G(PRN) F X=0:1:6 W ?(40+(X*13)),""|"""
^XMB(3.9,99,2,713,0)="""RTN"",""PSBOMH2"",100,0)"
^XMB(3.9,99,2,714,0)=" W !,""and Time"",?20,""and Time"",?32,""| "",$S('$G(PRN):""Times"",1:""Action Date/Times"")"
^XMB(3.9,99,2,715,0)="""RTN"",""PSBOMH2"",101,0)"
^XMB(3.9,99,2,716,0)=" D:'$G(PRN)"
^XMB(3.9,99,2,717,0)="""RTN"",""PSBOMH2"",102,0)"
^XMB(3.9,99,2,718,0)=" .S PSBCOL=0,X=0 F  S X=$O(^TMP(""PSB"",$J,PSBWEEK,""HDR"",X)) Q:'X  D"
^XMB(3.9,99,2,719,0)="""RTN"",""PSBOMH2"",103,0)"
^XMB(3.9,99,2,720,0)=" ..W ?(40+(PSBCOL*13)),""| "",$E(X,4,5),""/"",$E(X,6,7),""/"",(1700+$E(X,1,3))"
^XMB(3.9,99,2,721,0)="""RTN"",""PSBOMH2"",104,0)"
^XMB(3.9,99,2,722,0)=" ..S PSBCOL=PSBCOL+1"
^XMB(3.9,99,2,723,0)="""RTN"",""PSBOMH2"",105,0)"
^XMB(3.9,99,2,724,0)=" D:$G(PRN)"
^XMB(3.9,99,2,725,0)="""RTN"",""PSBOMH2"",106,0)"
^XMB(3.9,99,2,726,0)=" .W ?76,""PRN Reason"""
^XMB(3.9,99,2,727,0)="""RTN"",""PSBOMH2"",107,0)"
^XMB(3.9,99,2,728,0)=" W !,$TR($J("""",IOM),"" "",""-"")"
^XMB(3.9,99,2,729,0)="""RTN"",""PSBOMH2"",108,0)"
^XMB(3.9,99,2,730,0)=" Q """""
^XMB(3.9,99,2,731,0)="""RTN"",""PSBOMH2"",109,0)"
^XMB(3.9,99,2,732,0)=" ;"
^XMB(3.9,99,2,733,0)="""RTN"",""PSBOMH2"",110,0)"
^XMB(3.9,99,2,734,0)="PSBCK1(PSBCHK) ;                   "
^XMB(3.9,99,2,735,0)="""RTN"",""PSBOMH2"",111,0)"
^XMB(3.9,99,2,736,0)=" I PSBCHK=""A"" D"
^XMB(3.9,99,2,737,0)="""RTN"",""PSBOMH2"",112,0)"
^XMB(3.9,99,2,738,0)=" .S TEST=$P(^PSB(53.79,PSBIEN,0),U,6)"
^XMB(3.9,99,2,739,0)="""RTN"",""PSBOMH2"",113,0)"
^XMB(3.9,99,2,740,0)=" .D PSBOUT^PSBOMH1(TEST,PSBINIT)"
^XMB(3.9,99,2,741,0)="""RTN"",""PSBOMH2"",114,0)"
^XMB(3.9,99,2,742,0)=" .S X=$P(^PSB(53.79,PSBIEN,0),U,6)_U_PSBINIT_U_""G""_U_PSBIEN"
^XMB(3.9,99,2,743,0)="""RTN"",""PSBOMH2"",115,0)"
^XMB(3.9,99,2,744,0)=" I PSBCHK=""B"" D"
^XMB(3.9,99,2,745,0)="""RTN"",""PSBOMH2"",116,0)"
^XMB(3.9,99,2,746,0)=" .S TESTB=$P(^PSB(53.79,PSBIEN,0),U,6)"
^XMB(3.9,99,2,747,0)="""RTN"",""PSBOMH2"",117,0)"
^XMB(3.9,99,2,748,0)=" .D PSBOUT^PSBOMH1(TESTB,PSBINIT)"
^XMB(3.9,99,2,749,0)="""RTN"",""PSBOMH2"",118,0)"
^XMB(3.9,99,2,750,0)=" .S X=$P(^PSB(53.79,PSBIEN,0),U,6)_U_PSBINIT_U_$P(^(0),U,9)_U_PSBIEN"
^XMB(3.9,99,2,751,0)="""RTN"",""PSBOMH2"",119,0)"
^XMB(3.9,99,2,752,0)=" S PSBCHK="""""
^XMB(3.9,99,2,753,0)="""RTN"",""PSBOMH2"",120,0)"
^XMB(3.9,99,2,754,0)=" Q"
^XMB(3.9,99,2,755,0)="""RTN"",""PSBOMH2"",121,0)"
^XMB(3.9,99,2,756,0)=" ;"
^XMB(3.9,99,2,757,0)="""RTN"",""PSBOMH2"",122,0)"
^XMB(3.9,99,2,758,0)="PSBENT(PSBTIS) ;"
^XMB(3.9,99,2,759,0)="""RTN"",""PSBOMH2"",123,0)"
^XMB(3.9,99,2,760,0)=" S PSBNAME="""",PSBNAME=$$GET1^DIQ(53.79,PSBIEN_"","",""ACTION BY:NAME"")"
^XMB(3.9,99,2,761,0)="""RTN"",""PSBOMH2"",124,0)"
^XMB(3.9,99,2,762,0)=" S ^TMP(""PSB"",$J,""LEGEND"",$S($G(PSBTIS)="""":99,1:PSBTIS),PSBNAME)="""""
^XMB(3.9,99,2,763,0)="""RTN"",""PSBOMH2"",125,0)"
^XMB(3.9,99,2,764,0)=" Q"
^XMB(3.9,99,2,765,0)="""RTN"",""PSBOMH2"",126,0)"
^XMB(3.9,99,2,766,0)=" ;"
^XMB(3.9,99,2,767,0)="""RTN"",""PSBOMH2"",127,0)"
^XMB(3.9,99,2,768,0)="PSBSTIV ;"
^XMB(3.9,99,2,769,0)="""RTN"",""PSBOMH2"",128,0)"
^XMB(3.9,99,2,770,0)=" S YB="""" F  S YB=$O(PSBAUD(YB)) Q:YB=""""  D"
^XMB(3.9,99,2,771,0)="""RTN"",""PSBOMH2"",129,0)"
^XMB(3.9,99,2,772,0)=" .S Z="""" F  S Z=$O(^PSB(53.79,PSBIEN,.9,Z)) Q:Z=""""  I Z'=0  D"
^XMB(3.9,99,2,773,0)="""RTN"",""PSBOMH2"",130,0)"
^XMB(3.9,99,2,774,0)=" ..I $P(PSBAUD(YB),U,1)=$P(^PSB(53.79,PSBIEN,.9,Z,0),""^"",1)  D"
^XMB(3.9,99,2,775,0)="""RTN"",""PSBOMH2"",131,0)"
^XMB(3.9,99,2,776,0)=" ...I $P(^PSB(53.79,PSBIEN,.9,Z,0),""^"",3)[""Instruct""  D"
^XMB(3.9,99,2,777,0)="""RTN"",""PSBOMH2"",132,0)"
^XMB(3.9,99,2,778,0)=" ....I $P(PSBAUD(YB),U,2)'[""*""  S $P(PSBAUD(YB),U,2)=$P(PSBAUD(YB),U,2)_""*"""
^XMB(3.9,99,2,779,0)="""RTN"",""PSBOMH2"",133,0)"
^XMB(3.9,99,2,780,0)=" ....D PSBOUT^PSBOMH1($P(PSBAUD(YB),U,1),$P(PSBAUD(YB),U,2))"
^XMB(3.9,99,2,781,0)="""RTN"",""PSBOMH2"",134,0)"
^XMB(3.9,99,2,782,0)=" Q"
^XMB(3.9,99,2,783,0)="""RTN"",""PSBOMH2"",135,0)"
^XMB(3.9,99,2,784,0)=" ;"
^XMB(3.9,99,2,785,0)="""RTN"",""PSBOMH2"",136,0)"
^XMB(3.9,99,2,786,0)="PSBCTAR   ;"
^XMB(3.9,99,2,787,0)="""RTN"",""PSBOMH2"",137,0)"
^XMB(3.9,99,2,788,0)=" S YC="""" F  S YC=$O(PSBTAR(YC)) Q:YC=""""  D"
^XMB(3.9,99,2,789,0)="""RTN"",""PSBOMH2"",138,0)"
^XMB(3.9,99,2,790,0)=" .S Z="""" F  S Z=$O(^PSB(53.79,PSBIEN,.9,Z)) Q:Z=""""  I Z'=0  D"
^XMB(3.9,99,2,791,0)="""RTN"",""PSBOMH2"",139,0)"
^XMB(3.9,99,2,792,0)=" ..I $P(PSBTAR(YC),U,1)=$P(^PSB(53.79,PSBIEN,.9,Z,0),""^"",1)  D"
^XMB(3.9,99,2,793,0)="""RTN"",""PSBOMH2"",140,0)"
^XMB(3.9,99,2,794,0)=" ...I $P(^PSB(53.79,PSBIEN,.9,Z,0),""^"",3)[""Instruct""  D"
^XMB(3.9,99,2,795,0)="""RTN"",""PSBOMH2"",141,0)"
^XMB(3.9,99,2,796,0)=" ....S $P(PSBTAR(YC),U,2)=$P(PSBTAR(YC),U,2)_""*"""
^XMB(3.9,99,2,797,0)="""RTN"",""PSBOMH2"",142,0)"
^XMB(3.9,99,2,798,0)=" ....D PSBOUT^PSBOMH1($P(^PSB(53.79,PSBIEN,.9,Z,0),""^"",1),$P(PSBTAR(YC),U,2))"
^XMB(3.9,99,2,799,0)="""RTN"",""PSBOMH2"",143,0)"
^XMB(3.9,99,2,800,0)=" Q"
^XMB(3.9,99,2,801,0)="""RTN"",""PSBOMH2"",144,0)"
^XMB(3.9,99,2,802,0)=" ;"
^XMB(3.9,99,2,803,0)="""RTN"",""PSBOMM"")"
^XMB(3.9,99,2,804,0)="0^7^B50839011^B85447995"
^XMB(3.9,99,2,805,0)="""RTN"",""PSBOMM"",1,0)"
^XMB(3.9,99,2,806,0)="PSBOMM ;BIRMINGHAM/EFC-MISSED MEDS ;Mar 2004"
^XMB(3.9,99,2,807,0)="""RTN"",""PSBOMM"",2,0)"
^XMB(3.9,99,2,808,0)=" ;;3.0;BAR CODE MED ADMIN;**26**;Mar 2004"
^XMB(3.9,99,2,809,0)="""RTN"",""PSBOMM"",3,0)"
^XMB(3.9,99,2,810,0)=" ;"
^XMB(3.9,99,2,811,0)="""RTN"",""PSBOMM"",4,0)"
^XMB(3.9,99,2,812,0)=" ; Reference/IA"
^XMB(3.9,99,2,813,0)="""RTN"",""PSBOMM"",5,0)"
^XMB(3.9,99,2,814,0)=" ; ^DPT/10035"
^XMB(3.9,99,2,815,0)="""RTN"",""PSBOMM"",6,0)"
^XMB(3.9,99,2,816,0)=" ; EN^PSJBCMA/2828"
^XMB(3.9,99,2,817,0)="""RTN"",""PSBOMM"",7,0)"
^XMB(3.9,99,2,818,0)=" ; EN^PSJBCMA2/2830"
^XMB(3.9,99,2,819,0)="""RTN"",""PSBOMM"",8,0)"
^XMB(3.9,99,2,820,0)=" ;"
^XMB(3.9,99,2,821,0)="""RTN"",""PSBOMM"",9,0)"
^XMB(3.9,99,2,822,0)="EN ; Called from DQ^PSBO"
^XMB(3.9,99,2,823,0)="""RTN"",""PSBOMM"",10,0)"
^XMB(3.9,99,2,824,0)=" N PSBSTRT,PSBSTOP,DFN,PSBODATE,PSBFLAG,PSBCNT,PSBEDIT"
^XMB(3.9,99,2,825,0)="""RTN"",""PSBOMM"",11,0)"
^XMB(3.9,99,2,826,0)=" K ^TMP(""PSJ"",$J),^TMP(""PSB"",$J),^TMP(""PSB1"",$J)"
^XMB(3.9,99,2,827,0)="""RTN"",""PSBOMM"",12,0)"
^XMB(3.9,99,2,828,0)=" S PSBSTRT=$P(PSBRPT(.1),U,6)+$P(PSBRPT(.1),U,7)-.0000001"
^XMB(3.9,99,2,829,0)="""RTN"",""PSBOMM"",13,0)"
^XMB(3.9,99,2,830,0)=" S PSBSTOP=$P(PSBRPT(.1),U,6)+$P(PSBRPT(.1),U,9)"
^XMB(3.9,99,2,831,0)="""RTN"",""PSBOMM"",14,0)"
^XMB(3.9,99,2,832,0)=" S PSBODATE=$P(PSBRPT(.1),U,6)"
^XMB(3.9,99,2,833,0)="""RTN"",""PSBOMM"",15,0)"
^XMB(3.9,99,2,834,0)=" F DFN=0:0 S DFN=$O(^TMP(""PSBO"",$J,DFN)) Q:'DFN  D EN1"
^XMB(3.9,99,2,835,0)="""RTN"",""PSBOMM"",16,0)"
^XMB(3.9,99,2,836,0)=" D PRINT"
^XMB(3.9,99,2,837,0)="""RTN"",""PSBOMM"",17,0)"
^XMB(3.9,99,2,838,0)=" K ^TMP(""PSJ"",$J),^TMP(""PSB"",$J),^TMP(""PSBO"",$J)"
^XMB(3.9,99,2,839,0)="""RTN"",""PSBOMM"",18,0)"
^XMB(3.9,99,2,840,0)=" Q"
^XMB(3.9,99,2,841,0)="""RTN"",""PSBOMM"",19,0)"
^XMB(3.9,99,2,842,0)=" ;"
^XMB(3.9,99,2,843,0)="""RTN"",""PSBOMM"",20,0)"
^XMB(3.9,99,2,844,0)="EN1 ; Expects DFN,PSBSTRT,PSBSTOP from EN"
^XMB(3.9,99,2,845,0)="""RTN"",""PSBOMM"",21,0)"
^XMB(3.9,99,2,846,0)=" N PSBGBL,PSBHDR,PSBX,PSBDFN,PSBDT,PSBEVDT,PSBHOUR"
^XMB(3.9,99,2,847,0)="""RTN"",""PSBOMM"",22,0)"
^XMB(3.9,99,2,848,0)=" K ^TMP(""PSJ"",$J) S PSBEVDT=PSBSTRT"
^XMB(3.9,99,2,849,0)="""RTN"",""PSBOMM"",23,0)"
^XMB(3.9,99,2,850,0)=" D EN^PSJBCMA(DFN,PSBSTRT)"
^XMB(3.9,99,2,851,0)="""RTN"",""PSBOMM"",24,0)"
^XMB(3.9,99,2,852,0)=" Q:^TMP(""PSJ"",$J,1,0)=-1"
^XMB(3.9,99,2,853,0)="""RTN"",""PSBOMM"",25,0)"
^XMB(3.9,99,2,854,0)=" S PSBX="""""
^XMB(3.9,99,2,855,0)="""RTN"",""PSBOMM"",26,0)"
^XMB(3.9,99,2,856,0)=" F  S PSBX=$O(^TMP(""PSJ"",$J,PSBX)) Q:PSBX=""""  D"
^XMB(3.9,99,2,857,0)="""RTN"",""PSBOMM"",27,0)"
^XMB(3.9,99,2,858,0)=" .Q:^TMP(""PSJ"",$J,PSBX,0)=-1  ; No Orders"
^XMB(3.9,99,2,859,0)="""RTN"",""PSBOMM"",28,0)"
^XMB(3.9,99,2,860,0)=" .D CLEAN^PSBVT"
^XMB(3.9,99,2,861,0)="""RTN"",""PSBOMM"",29,0)"
^XMB(3.9,99,2,862,0)=" .D PSJ^PSBVT(PSBX)"
^XMB(3.9,99,2,863,0)="""RTN"",""PSBOMM"",30,0)"
^XMB(3.9,99,2,864,0)=" .Q:PSBIVT=""A""  ; No Admix or Hyp."
^XMB(3.9,99,2,865,0)="""RTN"",""PSBOMM"",31,0)"
^XMB(3.9,99,2,866,0)=" .Q:PSBIVT=""H"""
^XMB(3.9,99,2,867,0)="""RTN"",""PSBOMM"",32,0)"
^XMB(3.9,99,2,868,0)=" .I PSBIVT[""S"",PSBISYR'=1 Q  ;    allow intermittent syringe only"
^XMB(3.9,99,2,869,0)="""RTN"",""PSBOMM"",33,0)"
^XMB(3.9,99,2,870,0)=" .I PSBIVT[""C"",PSBCHEMT'=""P"",PSBISYR'=1 Q"
^XMB(3.9,99,2,871,0)="""RTN"",""PSBOMM"",34,0)"
^XMB(3.9,99,2,872,0)=" .I PSBIVT[""C"",PSBCHEMT=""A"" Q  ;     allow Chemo with intermittent syringe or Piggyback type only"
^XMB(3.9,99,2,873,0)="""RTN"",""PSBOMM"",35,0)"
^XMB(3.9,99,2,874,0)=" .Q:PSBONX[""P""  ;no pending orders"
^XMB(3.9,99,2,875,0)="""RTN"",""PSBOMM"",36,0)"
^XMB(3.9,99,2,876,0)=" .I PSBSCHT=""C"" D  Q  ; Only Continuous"
^XMB(3.9,99,2,877,0)="""RTN"",""PSBOMM"",37,0)"
^XMB(3.9,99,2,878,0)=" ..S (PSBYES,PSBODD)=0"
^XMB(3.9,99,2,879,0)="""RTN"",""PSBOMM"",38,0)"
^XMB(3.9,99,2,880,0)=" ..S PSBDOW=""SU^MO^TU^WE^TH^FR^SA"" F I=1:1:7 I $P(PSBDOW,""^"",I)=$E(PSBSCH,1,2) S PSBYES=1"
^XMB(3.9,99,2,881,0)="""RTN"",""PSBOMM"",39,0)"
^XMB(3.9,99,2,882,0)=" ..I PSBYES,PSBADST="""" Q"
^XMB(3.9,99,2,883,0)="""RTN"",""PSBOMM"",40,0)"
^XMB(3.9,99,2,884,0)=" ..F I=1:1 Q:$P(PSBSCH,""-"",I)=""""  I $P(PSBSCH,""-"",I)?2N!($P(PSBSCH,""-"",I)?4N) S PSBYES=1"
^XMB(3.9,99,2,885,0)="""RTN"",""PSBOMM"",41,0)"
^XMB(3.9,99,2,886,0)=" ..S PSBFREQ=$$GETFREQ^PSBVDLU1(DFN,PSBONX)"
^XMB(3.9,99,2,887,0)="""RTN"",""PSBOMM"",42,0)"
^XMB(3.9,99,2,888,0)=" ..I PSBFREQ=""O"" S PSBYES=1"
^XMB(3.9,99,2,889,0)="""RTN"",""PSBOMM"",43,0)"
^XMB(3.9,99,2,890,0)=" ..I 'PSBYES,PSBADST="""",PSBFREQ<1 Q"
^XMB(3.9,99,2,891,0)="""RTN"",""PSBOMM"",44,0)"
^XMB(3.9,99,2,892,0)=" ..I (PSBFREQ#1440'=0),(1440#PSBFREQ'=0) S PSBODD=1"
^XMB(3.9,99,2,893,0)="""RTN"",""PSBOMM"",45,0)"
^XMB(3.9,99,2,894,0)=" ..I PSBODD,PSBADST'="""" Q"
^XMB(3.9,99,2,895,0)="""RTN"",""PSBOMM"",46,0)"
^XMB(3.9,99,2,896,0)=" ..Q:PSBOSTS[""D""  ;Discontinued"
^XMB(3.9,99,2,897,0)="""RTN"",""PSBOMM"",47,0)"
^XMB(3.9,99,2,898,0)=" ..Q:PSBNGF  ; Marked DO NOT GIVE"
^XMB(3.9,99,2,899,0)="""RTN"",""PSBOMM"",48,0)"
^XMB(3.9,99,2,900,0)=" ..Q:PSBOSTS=""N"""
^XMB(3.9,99,2,901,0)="""RTN"",""PSBOMM"",49,0)"
^XMB(3.9,99,2,902,0)=" ..Q:PSBSM  ;Self med"
^XMB(3.9,99,2,903,0)="""RTN"",""PSBOMM"",50,0)"
^XMB(3.9,99,2,904,0)=" ..S PSBCADM=0"
^XMB(3.9,99,2,905,0)="""RTN"",""PSBOMM"",51,0)"
^XMB(3.9,99,2,906,0)=" ..I PSBADST="""" S PSBADST=$$GETADMIN^PSBVDLU1(DFN,PSBONX,PSBOST,PSBFREQ,PSBEVDT) Q:PSBADST=""""  S PSBCADM=1"
^XMB(3.9,99,2,907,0)="""RTN"",""PSBOMM"",52,0)"
^XMB(3.9,99,2,908,0)=" ..E  K ^TMP(""PSB"",$J,""GETADMIN"") S ^TMP(""PSB"",$J,""GETADMIN"",0)=PSBADST"
^XMB(3.9,99,2,909,0)="""RTN"",""PSBOMM"",53,0)"
^XMB(3.9,99,2,910,0)=" ..;Invalid admin times"
^XMB(3.9,99,2,911,0)="""RTN"",""PSBOMM"",54,0)"
^XMB(3.9,99,2,912,0)=" ..F Y=1:1:$L(PSBADST,""-"") D"
^XMB(3.9,99,2,913,0)="""RTN"",""PSBOMM"",55,0)"
^XMB(3.9,99,2,914,0)=" ...Q:($P(PSBADST,""-"",Y)'?2N)&($P(PSBADST,""-"",Y)'?4N)"
^XMB(3.9,99,2,915,0)="""RTN"",""PSBOMM"",56,0)"
^XMB(3.9,99,2,916,0)=" ..; Below is (Order Start Date, Report Date, Schedule)"
^XMB(3.9,99,2,917,0)="""RTN"",""PSBOMM"",57,0)"
^XMB(3.9,99,2,918,0)=" ..Q:'$$OKAY^PSBVDLU1(PSBOST,PSBODATE,PSBSCH,PSBONX,$P(^TMP(""PSJ"",$J,PSBX,3),U,2),PSBFREQ,PSBOSTS)  ; Screens QOD type stuff"
^XMB(3.9,99,2,919,0)="""RTN"",""PSBOMM"",58,0)"
^XMB(3.9,99,2,920,0)=" ..K PSBOACTL,TMP(""PSB1"",$J) D EN^PSJBCMA2(DFN,PSBONX,1) I ^TMP(""PSJ2"",$J,0)'=1 M PSBOACTL=^TMP(""PSJ2"",$J) K ^TMP(""PSJ2"",$J)"
^XMB(3.9,99,2,921,0)="""RTN"",""PSBOMM"",59,0)"
^XMB(3.9,99,2,922,0)=" ..F PSBXX=0:1 Q:'$D(^TMP(""PSB"",$J,""GETADMIN"",PSBXX))  S PSBADST=$G(^TMP(""PSB"",$J,""GETADMIN"",PSBXX)) D"
^XMB(3.9,99,2,923,0)="""RTN"",""PSBOMM"",60,0)"
^XMB(3.9,99,2,924,0)=" ...D MISSED^PSBOMM2(PSBADST,.PSBEDIT)"
^XMB(3.9,99,2,925,0)="""RTN"",""PSBOMM"",61,0)"
^XMB(3.9,99,2,926,0)=" .K PSBHDDT,PSBUNHD,^TMP(""PSB1"",$J)"
^XMB(3.9,99,2,927,0)="""RTN"",""PSBOMM"",62,0)"
^XMB(3.9,99,2,928,0)=" .I PSBSCHT=""O"" D  Q"
^XMB(3.9,99,2,929,0)="""RTN"",""PSBOMM"",63,0)"
^XMB(3.9,99,2,930,0)=" ..Q:PSBOSTS[""D""!(PSBOSTS=""N"")  ; Discontinued"
^XMB(3.9,99,2,931,0)="""RTN"",""PSBOMM"",64,0)"
^XMB(3.9,99,2,932,0)=" ..Q:PSBNGF  ; Marked DO NOT GIVE"
^XMB(3.9,99,2,933,0)="""RTN"",""PSBOMM"",65,0)"
^XMB(3.9,99,2,934,0)=" ..Q:PSBSM  ;Self med"
^XMB(3.9,99,2,935,0)="""RTN"",""PSBOMM"",66,0)"
^XMB(3.9,99,2,936,0)=" ..; Is the One Time Given?"
^XMB(3.9,99,2,937,0)="""RTN"",""PSBOMM"",67,0)"
^XMB(3.9,99,2,938,0)=" ..Q:PSBOSP=PSBOST   ;Expired one-time"
^XMB(3.9,99,2,939,0)="""RTN"",""PSBOMM"",68,0)"
^XMB(3.9,99,2,940,0)=" ..Q:PSBOST'<PSBSTOP"
^XMB(3.9,99,2,941,0)="""RTN"",""PSBOMM"",69,0)"
^XMB(3.9,99,2,942,0)=" ..Q:PSBOSP<PSBSTRT"
^XMB(3.9,99,2,943,0)="""RTN"",""PSBOMM"",70,0)"
^XMB(3.9,99,2,944,0)=" ..S (PSBGVN,X,Y)="""""
^XMB(3.9,99,2,945,0)="""RTN"",""PSBOMM"",71,0)"
^XMB(3.9,99,2,946,0)=" ..F  S X=$O(^PSB(53.79,""AOIP"",DFN,PSBOIT,X),-1) Q:'X  D"
^XMB(3.9,99,2,947,0)="""RTN"",""PSBOMM"",72,0)"
^XMB(3.9,99,2,948,0)=" ...F  S Y=$O(^PSB(53.79,""AOIP"",DFN,PSBOIT,X,Y),-1) Q:'Y  D"
^XMB(3.9,99,2,949,0)="""RTN"",""PSBOMM"",73,0)"
^XMB(3.9,99,2,950,0)=" ....I $P(^PSB(53.79,Y,.1),U)=PSBONX,$P(^PSB(53.79,Y,0),U,9)'=""N"",$P(^PSB(53.79,Y,0),U,9)'=""M"" S PSBGVN=1,(X,Y)=0"
^XMB(3.9,99,2,951,0)="""RTN"",""PSBOMM"",74,0)"
^XMB(3.9,99,2,952,0)=" ..; How long does One Time remain on the this report ??"
^XMB(3.9,99,2,953,0)="""RTN"",""PSBOMM"",75,0)"
^XMB(3.9,99,2,954,0)=" ..D NOW^%DTC"
^XMB(3.9,99,2,955,0)="""RTN"",""PSBOMM"",76,0)"
^XMB(3.9,99,2,956,0)=" ..S PSBRMN=1"
^XMB(3.9,99,2,957,0)="""RTN"",""PSBOMM"",77,0)"
^XMB(3.9,99,2,958,0)=" ..I PSBSCHT=""O"",PSBOSP'=PSBOST&(%>PSBOSP) S PSBRMN=0"
^XMB(3.9,99,2,959,0)="""RTN"",""PSBOMM"",78,0)"
^XMB(3.9,99,2,960,0)=" ..D:('PSBGVN)&(PSBRMN)"
^XMB(3.9,99,2,961,0)="""RTN"",""PSBOMM"",79,0)"
^XMB(3.9,99,2,962,0)=" ...S VAR="""""
^XMB(3.9,99,2,963,0)="""RTN"",""PSBOMM"",80,0)"
^XMB(3.9,99,2,964,0)=" ...K ^TMP(""PSJ2"",$J),^TMP(""PSB1"",$J),PSBOACTL D EN^PSJBCMA2(DFN,PSBONX,1) I ^TMP(""PSJ2"",$J,0)'=1 D"
^XMB(3.9,99,2,965,0)="""RTN"",""PSBOMM"",81,0)"
^XMB(3.9,99,2,966,0)=" ....M PSBOACTL=^TMP(""PSJ2"",$J)"
^XMB(3.9,99,2,967,0)="""RTN"",""PSBOMM"",82,0)"
^XMB(3.9,99,2,968,0)=" ....D UDONE^PSBOMM2"
^XMB(3.9,99,2,969,0)="""RTN"",""PSBOMM"",83,0)"
^XMB(3.9,99,2,970,0)=" ....I PSBFLAG=1 S VAR=""(On Hold) ""_$$FMTE^XLFDT(PSBHDDT)"
^XMB(3.9,99,2,971,0)="""RTN"",""PSBOMM"",84,0)"
^XMB(3.9,99,2,972,0)=" ....I PSBFLAG=2 S VAR=""(On Hold) ""_$$FMTE^XLFDT(PSBHDDT)_""  (Off Hold) ""_$$FMTE^XLFDT(PSBUNHD)"
^XMB(3.9,99,2,973,0)="""RTN"",""PSBOMM"",85,0)"
^XMB(3.9,99,2,974,0)=" ...S VAR=VAR_U_$TR($$FMTE^XLFDT(PSBOST,2),""@"","" "")"
^XMB(3.9,99,2,975,0)="""RTN"",""PSBOMM"",86,0)"
^XMB(3.9,99,2,976,0)=" ...S VAR=VAR_U_$TR($$FMTE^XLFDT(PSBOSP,2),""@"","" "")"
^XMB(3.9,99,2,977,0)="""RTN"",""PSBOMM"",87,0)"
^XMB(3.9,99,2,978,0)=" ...S $P(^TMP(""PSB"",$J,DFN,""*** ONE-TIME ***"",PSBOITX,PSBONX),U,1,4)=VAR"
^XMB(3.9,99,2,979,0)="""RTN"",""PSBOMM"",88,0)"
^XMB(3.9,99,2,980,0)=" ...K PSBHDDT,PSBUNHD,^TMP(""PSB1"",$J),PSBCNT"
^XMB(3.9,99,2,981,0)="""RTN"",""PSBOMM"",89,0)"
^XMB(3.9,99,2,982,0)=" K PSBOACTL"
^XMB(3.9,99,2,983,0)="""RTN"",""PSBOMM"",90,0)"
^XMB(3.9,99,2,984,0)=" Q"
^XMB(3.9,99,2,985,0)="""RTN"",""PSBOMM"",91,0)"
^XMB(3.9,99,2,986,0)=" ;"
^XMB(3.9,99,2,987,0)="""RTN"",""PSBOMM"",92,0)"
^XMB(3.9,99,2,988,0)="PRINT ; Print meds stored in ^TMP(""PSB"",$J,DFN,...."
^XMB(3.9,99,2,989,0)="""RTN"",""PSBOMM"",93,0)"
^XMB(3.9,99,2,990,0)=" N PSBHDR,PSBDT,PSBOITX,PSBONX,DFN"
^XMB(3.9,99,2,991,0)="""RTN"",""PSBOMM"",94,0)"
^XMB(3.9,99,2,992,0)=" ;"
^XMB(3.9,99,2,993,0)="""RTN"",""PSBOMM"",95,0)"
^XMB(3.9,99,2,994,0)=" ; Print by Patient"
^XMB(3.9,99,2,995,0)="""RTN"",""PSBOMM"",96,0)"
^XMB(3.9,99,2,996,0)=" ;"
^XMB(3.9,99,2,997,0)="""RTN"",""PSBOMM"",97,0)"
^XMB(3.9,99,2,998,0)=" D:$P(PSBRPT(.1),U,1)=""P"""
^XMB(3.9,99,2,999,0)="""RTN"",""PSBOMM"",98,0)"
^XMB(3.9,99,2,1000,0)=" .S PSBHDR(1)=""MISSED MEDICATIONS  from ""_$$FMTE^XLFDT($P(PSBRPT(.1),U,6)+$P(PSBRPT(.1),U,7))_"" thru ""_$$FMTE^XLFDT($P(PSBRPT(.1),U,6)+$P(PSBRPT(.1),U,9))"
^XMB(3.9,99,2,1001,0)="""RTN"",""PSBOMM"",99,0)"
^XMB(3.9,99,2,1002,0)=" .S DFN=$P(PSBRPT(.1),U,2)"
^XMB(3.9,99,2,1003,0)="""RTN"",""PSBOMM"",100,0)"
^XMB(3.9,99,2,1004,0)=" .W $$PTHDR()"
^XMB(3.9,99,2,1005,0)="""RTN"",""PSBOMM"",101,0)"
^XMB(3.9,99,2,1006,0)=" .I $G(PSBEDIT) W !?5,""*Administration Times have been edited*"""
^XMB(3.9,99,2,1007,0)="""RTN"",""PSBOMM"",102,0)"
^XMB(3.9,99,2,1008,0)=" .I $O(^TMP(""PSB"",$J,DFN,""""))="""" W !,""No Missed Medications Found"",$$PTFTR^PSBOHDR() Q"
^XMB(3.9,99,2,1009,0)="""RTN"",""PSBOMM"",103,0)"
^XMB(3.9,99,2,1010,0)=" .S PSBDT="""""
^XMB(3.9,99,2,1011,0)="""RTN"",""PSBOMM"",104,0)"
^XMB(3.9,99,2,1012,0)=" .F  S PSBDT=$O(^TMP(""PSB"",$J,DFN,PSBDT)) Q:PSBDT=""""  D"
^XMB(3.9,99,2,1013,0)="""RTN"",""PSBOMM"",105,0)"
^XMB(3.9,99,2,1014,0)=" ..W !  ; Line Break Between Admin Times"
^XMB(3.9,99,2,1015,0)="""RTN"",""PSBOMM"",106,0)"
^XMB(3.9,99,2,1016,0)=" ..S PSBOITX="""""
^XMB(3.9,99,2,1017,0)="""RTN"",""PSBOMM"",107,0)"
^XMB(3.9,99,2,1018,0)=" ..F  S PSBOITX=$O(^TMP(""PSB"",$J,DFN,PSBDT,PSBOITX)) Q:PSBOITX=""""  D"
^XMB(3.9,99,2,1019,0)="""RTN"",""PSBOMM"",108,0)"
^XMB(3.9,99,2,1020,0)=" ...S PSBONX="""""
^XMB(3.9,99,2,1021,0)="""RTN"",""PSBOMM"",109,0)"
^XMB(3.9,99,2,1022,0)=" ...F  S PSBONX=$O(^TMP(""PSB"",$J,DFN,PSBDT,PSBOITX,PSBONX)) Q:PSBONX=""""  D"
^XMB(3.9,99,2,1023,0)="""RTN"",""PSBOMM"",110,0)"
^XMB(3.9,99,2,1024,0)=" ....I $Y>(IOSL-5) W $$PTFTR^PSBOHDR(),$$PTHDR()"
^XMB(3.9,99,2,1025,0)="""RTN"",""PSBOMM"",111,0)"
^XMB(3.9,99,2,1026,0)=" ....W !,+PSBONX,$S(PSBONX[""U"":""UD"",PSBONX[""V"":""IV"",1:"""")"
^XMB(3.9,99,2,1027,0)="""RTN"",""PSBOMM"",112,0)"
^XMB(3.9,99,2,1028,0)=" ....I PSBDT[""ONE-TIME"" D  Q"
^XMB(3.9,99,2,1029,0)="""RTN"",""PSBOMM"",113,0)"
^XMB(3.9,99,2,1030,0)=" .....W ?12,PSBDT,?38,PSBOITX"
^XMB(3.9,99,2,1031,0)="""RTN"",""PSBOMM"",114,0)"
^XMB(3.9,99,2,1032,0)=" .....W !,?38,$P(^TMP(""PSB"",$J,DFN,PSBDT,PSBOITX,PSBONX),U,1)"
^XMB(3.9,99,2,1033,0)="""RTN"",""PSBOMM"",115,0)"
^XMB(3.9,99,2,1034,0)=" .....W !,""Start Date/Time: "",?16,$P(^TMP(""PSB"",$J,DFN,PSBDT,PSBOITX,PSBONX),U,2)"
^XMB(3.9,99,2,1035,0)="""RTN"",""PSBOMM"",116,0)"
^XMB(3.9,99,2,1036,0)=" .....W !,""Stop Date/Time:  "",?16,$P(^TMP(""PSB"",$J,DFN,PSBDT,PSBOITX,PSBONX),U,3)"
^XMB(3.9,99,2,1037,0)="""RTN"",""PSBOMM"",117,0)"
^XMB(3.9,99,2,1038,0)=" .....W !"
^XMB(3.9,99,2,1039,0)="""RTN"",""PSBOMM"",118,0)"
^XMB(3.9,99,2,1040,0)=" ....W ?12,$S(PSBDT:$$FMTE^XLFDT(PSBDT),1:PSBDT),?38,PSBOITX"
^XMB(3.9,99,2,1041,0)="""RTN"",""PSBOMM"",119,0)"
^XMB(3.9,99,2,1042,0)=" ....W !,?38,^TMP(""PSB"",$J,DFN,PSBDT,PSBOITX,PSBONX)"
^XMB(3.9,99,2,1043,0)="""RTN"",""PSBOMM"",120,0)"
^XMB(3.9,99,2,1044,0)=" .W $$PTFTR^PSBOHDR()"
^XMB(3.9,99,2,1045,0)="""RTN"",""PSBOMM"",121,0)"
^XMB(3.9,99,2,1046,0)=" .Q"
^XMB(3.9,99,2,1047,0)="""RTN"",""PSBOMM"",122,0)"
^XMB(3.9,99,2,1048,0)=" ;"
^XMB(3.9,99,2,1049,0)="""RTN"",""PSBOMM"",123,0)"
^XMB(3.9,99,2,1050,0)=" ; Print by Ward"
^XMB(3.9,99,2,1051,0)="""RTN"",""PSBOMM"",124,0)"
^XMB(3.9,99,2,1052,0)=" ;"
^XMB(3.9,99,2,1053,0)="""RTN"",""PSBOMM"",125,0)"
^XMB(3.9,99,2,1054,0)=" D:$P(PSBRPT(.1),U,1)=""W"""
^XMB(3.9,99,2,1055,0)="""RTN"",""PSBOMM"",126,0)"
^XMB(3.9,99,2,1056,0)=" .S PSBHDR(1)=""MISSED MEDICATIONS  from ""_$$FMTE^XLFDT($P(PSBRPT(.1),U,6)+$P(PSBRPT(.1),U,7))_"" thru ""_$$FMTE^XLFDT($P(PSBRPT(.1),U,6)+$P(PSBRPT(.1),U,9))"
^XMB(3.9,99,2,1057,0)="""RTN"",""PSBOMM"",127,0)"
^XMB(3.9,99,2,1058,0)=" .S PSBWARD=$P(PSBRPT(.1),U,3)"
^XMB(3.9,99,2,1059,0)="""RTN"",""PSBOMM"",128,0)"
^XMB(3.9,99,2,1060,0)=" .W $$WRDHDR()"
^XMB(3.9,99,2,1061,0)="""RTN"",""PSBOMM"",129,0)"
^XMB(3.9,99,2,1062,0)=" .I '$O(^TMP(""PSB"",$J,0)) W !,""No Missed Medications Found"" Q"
^XMB(3.9,99,2,1063,0)="""RTN"",""PSBOMM"",130,0)"
^XMB(3.9,99,2,1064,0)=" .S PSBSORT=$P(PSBRPT(.1),U,5)"
^XMB(3.9,99,2,1065,0)="""RTN"",""PSBOMM"",131,0)"
^XMB(3.9,99,2,1066,0)=" .F DFN=0:0 S DFN=$O(^TMP(""PSB"",$J,DFN)) Q:'DFN  D"
^XMB(3.9,99,2,1067,0)="""RTN"",""PSBOMM"",132,0)"
^XMB(3.9,99,2,1068,0)=" ..S PSBINDX=$S(PSBSORT=""P"":$P(^DPT(DFN,0),U),1:$G(^DPT(DFN,.1))_"" ""_$G(^(.101)))"
^XMB(3.9,99,2,1069,0)="""RTN"",""PSBOMM"",133,0)"
^XMB(3.9,99,2,1070,0)=" ..S:PSBINDX="""" PSBINDX=$P(^DPT(DFN,0),U)"
^XMB(3.9,99,2,1071,0)="""RTN"",""PSBOMM"",134,0)"
^XMB(3.9,99,2,1072,0)=" ..S ^TMP(""PSB"",$J,""B"",PSBINDX,DFN)="""""
^XMB(3.9,99,2,1073,0)="""RTN"",""PSBOMM"",135,0)"
^XMB(3.9,99,2,1074,0)=" .S PSBINDX="""""
^XMB(3.9,99,2,1075,0)="""RTN"",""PSBOMM"",136,0)"
^XMB(3.9,99,2,1076,0)=" .F  S PSBINDX=$O(^TMP(""PSB"",$J,""B"",PSBINDX)) Q:PSBINDX=""""  D"
^XMB(3.9,99,2,1077,0)="""RTN"",""PSBOMM"",137,0)"
^XMB(3.9,99,2,1078,0)=" ..F DFN=0:0 S DFN=$O(^TMP(""PSB"",$J,""B"",PSBINDX,DFN)) Q:'DFN  D"
^XMB(3.9,99,2,1079,0)="""RTN"",""PSBOMM"",138,0)"
^XMB(3.9,99,2,1080,0)=" ...W ! ; Line Break Between Pt's"
^XMB(3.9,99,2,1081,0)="""RTN"",""PSBOMM"",139,0)"
^XMB(3.9,99,2,1082,0)=" ...S PSBDT="""""
^XMB(3.9,99,2,1083,0)="""RTN"",""PSBOMM"",140,0)"
^XMB(3.9,99,2,1084,0)=" ...F  S PSBDT=$O(^TMP(""PSB"",$J,DFN,PSBDT)) Q:PSBDT=""""  D"
^XMB(3.9,99,2,1085,0)="""RTN"",""PSBOMM"",141,0)"
^XMB(3.9,99,2,1086,0)=" ....W !  ; Line Break Between Admin Times"
^XMB(3.9,99,2,1087,0)="""RTN"",""PSBOMM"",142,0)"
^XMB(3.9,99,2,1088,0)=" ....S PSBOITX="""""
^XMB(3.9,99,2,1089,0)="""RTN"",""PSBOMM"",143,0)"
^XMB(3.9,99,2,1090,0)=" ....F  S PSBOITX=$O(^TMP(""PSB"",$J,DFN,PSBDT,PSBOITX)) Q:PSBOITX=""""  D"
^XMB(3.9,99,2,1091,0)="""RTN"",""PSBOMM"",144,0)"
^XMB(3.9,99,2,1092,0)=" .....S PSBONX="""""
^XMB(3.9,99,2,1093,0)="""RTN"",""PSBOMM"",145,0)"
^XMB(3.9,99,2,1094,0)=" .....F  S PSBONX=$O(^TMP(""PSB"",$J,DFN,PSBDT,PSBOITX,PSBONX)) Q:PSBONX=""""  D"
^XMB(3.9,99,2,1095,0)="""RTN"",""PSBOMM"",146,0)"
^XMB(3.9,99,2,1096,0)=" ......I $Y>(IOSL-5) W $$WRDHDR()"
^XMB(3.9,99,2,1097,0)="""RTN"",""PSBOMM"",147,0)"
^XMB(3.9,99,2,1098,0)=" ......W !,+PSBONX,$S(PSBONX[""U"":""UD"",PSBONX[""V"":""IV"",1:"""")"
^XMB(3.9,99,2,1099,0)="""RTN"",""PSBOMM"",148,0)"
^XMB(3.9,99,2,1100,0)=" ......W ?10,$G(^DPT(DFN,.101),""**"")"
^XMB(3.9,99,2,1101,0)="""RTN"",""PSBOMM"",149,0)"
^XMB(3.9,99,2,1102,0)=" ......W ?30,$P(^DPT(DFN,0),U),"" ("",$E($P(^(0),U,9),6,9),"")"""
^XMB(3.9,99,2,1103,0)="""RTN"",""PSBOMM"",150,0)"
^XMB(3.9,99,2,1104,0)=" ......I PSBDT[""ONE-TIME"" D  Q"
^XMB(3.9,99,2,1105,0)="""RTN"",""PSBOMM"",151,0)"
^XMB(3.9,99,2,1106,0)=" .......W !,PSBDT,?30,PSBOITX,"" "",$P(^TMP(""PSB"",$J,DFN,PSBDT,PSBOITX,PSBONX),U,1)"
^XMB(3.9,99,2,1107,0)="""RTN"",""PSBOMM"",152,0)"
^XMB(3.9,99,2,1108,0)=" .......W !,""Start Date/Time:  "",?30,$P(^TMP(""PSB"",$J,DFN,PSBDT,PSBOITX,PSBONX),U,2)"
^XMB(3.9,99,2,1109,0)="""RTN"",""PSBOMM"",153,0)"
^XMB(3.9,99,2,1110,0)=" .......W !,""Stop Date/Time:  "",?30,$P(^TMP(""PSB"",$J,DFN,PSBDT,PSBOITX,PSBONX),U,3)"
^XMB(3.9,99,2,1111,0)="""RTN"",""PSBOMM"",154,0)"
^XMB(3.9,99,2,1112,0)=" .......W !"
^XMB(3.9,99,2,1113,0)="""RTN"",""PSBOMM"",155,0)"
^XMB(3.9,99,2,1114,0)=" ......W ?64,$S(PSBDT:$$FMTE^XLFDT(PSBDT,2),1:PSBDT),?80,PSBOITX"
^XMB(3.9,99,2,1115,0)="""RTN"",""PSBOMM"",156,0)"
^XMB(3.9,99,2,1116,0)=" ......W "" "",^TMP(""PSB"",$J,DFN,PSBDT,PSBOITX,PSBONX)"
^XMB(3.9,99,2,1117,0)="""RTN"",""PSBOMM"",157,0)"
^XMB(3.9,99,2,1118,0)=" Q"
^XMB(3.9,99,2,1119,0)="""RTN"",""PSBOMM"",158,0)"
^XMB(3.9,99,2,1120,0)=" ;"
^XMB(3.9,99,2,1121,0)="""RTN"",""PSBOMM"",159,0)"
^XMB(3.9,99,2,1122,0)="WRDHDR() ; Ward Header"
^XMB(3.9,99,2,1123,0)="""RTN"",""PSBOMM"",160,0)"
^XMB(3.9,99,2,1124,0)=" D WARD^PSBOHDR(PSBWRD,.PSBHDR)"
^XMB(3.9,99,2,1125,0)="""RTN"",""PSBOMM"",161,0)"
^XMB(3.9,99,2,1126,0)=" W !,""Ord Num"",?10,""Room-Bed"",?30,""Patient"",?64,""Admin Date/Time"",?80,""Medication"""
^XMB(3.9,99,2,1127,0)="""RTN"",""PSBOMM"",162,0)"
^XMB(3.9,99,2,1128,0)=" W !,$TR($J("""",IOM),"" "",""-"")"
^XMB(3.9,99,2,1129,0)="""RTN"",""PSBOMM"",163,0)"
^XMB(3.9,99,2,1130,0)=" Q """""
^XMB(3.9,99,2,1131,0)="""RTN"",""PSBOMM"",164,0)"
^XMB(3.9,99,2,1132,0)=" ;"
^XMB(3.9,99,2,1133,0)="""RTN"",""PSBOMM"",165,0)"
^XMB(3.9,99,2,1134,0)="PTHDR() ; Patient Header"
^XMB(3.9,99,2,1135,0)="""RTN"",""PSBOMM"",166,0)"
^XMB(3.9,99,2,1136,0)=" D PT^PSBOHDR(DFN,.PSBHDR)"
^XMB(3.9,99,2,1137,0)="""RTN"",""PSBOMM"",167,0)"
^XMB(3.9,99,2,1138,0)=" W !,""Order Num"",?12,""Administration Date/Time"",?38,""Medication"""
^XMB(3.9,99,2,1139,0)="""RTN"",""PSBOMM"",168,0)"
^XMB(3.9,99,2,1140,0)=" W !,$TR($J("""",IOM),"" "",""-"")"
^XMB(3.9,99,2,1141,0)="""RTN"",""PSBOMM"",169,0)"
^XMB(3.9,99,2,1142,0)=" Q """""
^XMB(3.9,99,2,1143,0)="""RTN"",""PSBOMM"",170,0)"
^XMB(3.9,99,2,1144,0)=" ;"
^XMB(3.9,99,2,1145,0)="""RTN"",""PSBOMM2"")"
^XMB(3.9,99,2,1146,0)="0^8^B14344461^n/a"
^XMB(3.9,99,2,1147,0)="""RTN"",""PSBOMM2"",1,0)"
^XMB(3.9,99,2,1148,0)="PSBOMM2 ;BIRMINGHAM/EFC-MISSED MEDS ;Mar 2004"
^XMB(3.9,99,2,1149,0)="""RTN"",""PSBOMM2"",2,0)"
^XMB(3.9,99,2,1150,0)=" ;;3.0;BAR CODE MED ADMIN;**26**;Mar 2004"
^XMB(3.9,99,2,1151,0)="""RTN"",""PSBOMM2"",3,0)"
^XMB(3.9,99,2,1152,0)=" ;"
^XMB(3.9,99,2,1153,0)="""RTN"",""PSBOMM2"",4,0)"
^XMB(3.9,99,2,1154,0)=" ;"
^XMB(3.9,99,2,1155,0)="""RTN"",""PSBOMM2"",5,0)"
^XMB(3.9,99,2,1156,0)="MISSED(PSBADMN,PSBEDIT) ;"
^XMB(3.9,99,2,1157,0)="""RTN"",""PSBOMM2"",6,0)"
^XMB(3.9,99,2,1158,0)=" ;"
^XMB(3.9,99,2,1159,0)="""RTN"",""PSBOMM2"",7,0)"
^XMB(3.9,99,2,1160,0)=" N PSBMISD,PSBAUDT"
^XMB(3.9,99,2,1161,0)="""RTN"",""PSBOMM2"",8,0)"
^XMB(3.9,99,2,1162,0)=" F Y=1:1:$L(PSBADMN,""-"") S PSBDT=+("".""_$P(PSBADMN,""-"",Y))+(PSBSTRT\1) D"
^XMB(3.9,99,2,1163,0)="""RTN"",""PSBOMM2"",9,0)"
^XMB(3.9,99,2,1164,0)=" .S PSBMISD=$$CHECK(PSBDT)"
^XMB(3.9,99,2,1165,0)="""RTN"",""PSBOMM2"",10,0)"
^XMB(3.9,99,2,1166,0)=" .;CHECK AUDITED ADMIN TIMES FOR MISSED MED"
^XMB(3.9,99,2,1167,0)="""RTN"",""PSBOMM2"",11,0)"
^XMB(3.9,99,2,1168,0)=" .I PSBMISD F I=1:1:$P(PSBOACTL(0),U,4) I $P($G(PSBOACTL(I,1)),U,3)[""ADMIN TIMES"" D  Q:'PSBMISD"
^XMB(3.9,99,2,1169,0)="""RTN"",""PSBOMM2"",12,0)"
^XMB(3.9,99,2,1170,0)=" ..Q:$P(PSBOACTL(I,1),U)<PSBSTRT"
^XMB(3.9,99,2,1171,0)="""RTN"",""PSBOMM2"",13,0)"
^XMB(3.9,99,2,1172,0)=" ..Q:$P(PSBOACTL(I,1),U)>PSBSTOP"
^XMB(3.9,99,2,1173,0)="""RTN"",""PSBOMM2"",14,0)"
^XMB(3.9,99,2,1174,0)=" ..S PSBAUDT=+("".""_$P(PSBOACTL(I,2),""-"",Y))+(PSBSTRT\1)"
^XMB(3.9,99,2,1175,0)="""RTN"",""PSBOMM2"",15,0)"
^XMB(3.9,99,2,1176,0)=" ..S PSBMISD=$$CHECK(PSBAUDT),PSBEDIT=1"
^XMB(3.9,99,2,1177,0)="""RTN"",""PSBOMM2"",16,0)"
^XMB(3.9,99,2,1178,0)=" .I PSBMISD D"
^XMB(3.9,99,2,1179,0)="""RTN"",""PSBOMM2"",17,0)"
^XMB(3.9,99,2,1180,0)=" ..S ^TMP(""PSB"",$J,DFN,PSBDT,PSBOITX,PSBONX)="""""
^XMB(3.9,99,2,1181,0)="""RTN"",""PSBOMM2"",18,0)"
^XMB(3.9,99,2,1182,0)=" ..D UDCONT"
^XMB(3.9,99,2,1183,0)="""RTN"",""PSBOMM2"",19,0)"
^XMB(3.9,99,2,1184,0)=" Q"
^XMB(3.9,99,2,1185,0)="""RTN"",""PSBOMM2"",20,0)"
^XMB(3.9,99,2,1186,0)=" ;"
^XMB(3.9,99,2,1187,0)="""RTN"",""PSBOMM2"",21,0)"
^XMB(3.9,99,2,1188,0)="CHECK(PSBDT) ;"
^XMB(3.9,99,2,1189,0)="""RTN"",""PSBOMM2"",22,0)"
^XMB(3.9,99,2,1190,0)=" I PSBDT<PSBOST Q 0 ; Order Start Date"
^XMB(3.9,99,2,1191,0)="""RTN"",""PSBOMM2"",23,0)"
^XMB(3.9,99,2,1192,0)=" I PSBDT'<PSBOSP Q 0 ; Order Stop Date"
^XMB(3.9,99,2,1193,0)="""RTN"",""PSBOMM2"",24,0)"
^XMB(3.9,99,2,1194,0)=" I PSBDT<PSBSTRT Q 0 ; Report Window"
^XMB(3.9,99,2,1195,0)="""RTN"",""PSBOMM2"",25,0)"
^XMB(3.9,99,2,1196,0)=" I PSBDT>PSBSTOP Q 0  ; Report Window"
^XMB(3.9,99,2,1197,0)="""RTN"",""PSBOMM2"",26,0)"
^XMB(3.9,99,2,1198,0)=" I $D(^PSB(53.79,""AORD"",DFN,PSBONX,PSBDT)) D  Q:PSBSTUS'=""N""&(PSBSTUS'=""M"") 0"
^XMB(3.9,99,2,1199,0)="""RTN"",""PSBOMM2"",27,0)"
^XMB(3.9,99,2,1200,0)=" .S PSBINDX=$O(^PSB(53.79,""AORD"",DFN,PSBONX,PSBDT,"""")),PSBSTUS=$P(^PSB(53.79,PSBINDX,0),U,9)"
^XMB(3.9,99,2,1201,0)="""RTN"",""PSBOMM2"",28,0)"
^XMB(3.9,99,2,1202,0)=" Q 1"
^XMB(3.9,99,2,1203,0)="""RTN"",""PSBOMM2"",29,0)"
^XMB(3.9,99,2,1204,0)="UDCONT ;"
^XMB(3.9,99,2,1205,0)="""RTN"",""PSBOMM2"",30,0)"
^XMB(3.9,99,2,1206,0)=" S PSBFLAG=0,J=1"
^XMB(3.9,99,2,1207,0)="""RTN"",""PSBOMM2"",31,0)"
^XMB(3.9,99,2,1208,0)=" K ^TMP(""PSB1"",$J)"
^XMB(3.9,99,2,1209,0)="""RTN"",""PSBOMM2"",32,0)"
^XMB(3.9,99,2,1210,0)=" F I=1:1:$P(PSBOACTL(0),U,4) D"
^XMB(3.9,99,2,1211,0)="""RTN"",""PSBOMM2"",33,0)"
^XMB(3.9,99,2,1212,0)=" . I $P($G(PSBOACTL(I,1)),U,4)[""ON HOLD""!($P($G(PSBOACTL(I,1)),U,4)=""HOLD"") S ^TMP(""PSB1"",$J,DFN,J)=""HOLD""_U_$E($P($G(PSBOACTL(I,1)),U,1),1,12)"
^XMB(3.9,99,2,1213,0)="""RTN"",""PSBOMM2"",34,0)"
^XMB(3.9,99,2,1214,0)=" . I $P($G(PSBOACTL(I,1)),U,4)[""TAKEN OFF HOLD""!($P($G(PSBOACTL(I,1)),U,4)[""UNHOLD"") S $P(^TMP(""PSB1"",$J,DFN,J),U,3)=""OFF HOLD""_U_$E($P($G(PSBOACTL(I,1)),U,1),1,12),J=J+1"
^XMB(3.9,99,2,1215,0)="""RTN"",""PSBOMM2"",35,0)"
^XMB(3.9,99,2,1216,0)=" D:$D(^TMP(""PSB1"",$J,DFN))&($P(PSBOACTL(0),U,4)'=1)"
^XMB(3.9,99,2,1217,0)="""RTN"",""PSBOMM2"",36,0)"
^XMB(3.9,99,2,1218,0)=" .S J=0 F  S J=$O(^TMP(""PSB1"",$J,DFN,J)) Q:'J  Q:PSBFLAG  D"
^XMB(3.9,99,2,1219,0)="""RTN"",""PSBOMM2"",37,0)"
^XMB(3.9,99,2,1220,0)=" ..S PSBHDDT=$P(^TMP(""PSB1"",$J,DFN,J),U,2)"
^XMB(3.9,99,2,1221,0)="""RTN"",""PSBOMM2"",38,0)"
^XMB(3.9,99,2,1222,0)=" ..S PSBHDST=$P(^TMP(""PSB1"",$J,DFN,J),U)"
^XMB(3.9,99,2,1223,0)="""RTN"",""PSBOMM2"",39,0)"
^XMB(3.9,99,2,1224,0)=" ..S PSBOFDT=$P(^TMP(""PSB1"",$J,DFN,J),U,4)"
^XMB(3.9,99,2,1225,0)="""RTN"",""PSBOMM2"",40,0)"
^XMB(3.9,99,2,1226,0)=" ..S PSBOFST=$P(^TMP(""PSB1"",$J,DFN,J),U,3)"
^XMB(3.9,99,2,1227,0)="""RTN"",""PSBOMM2"",41,0)"
^XMB(3.9,99,2,1228,0)=" ..I PSBDT>PSBHDDT,PSBHDST=""HOLD"",PSBOFST'="""" I PSBDT<PSBOFDT,PSBOFST=""OFF HOLD"" S PSBFLAG=2,PSBUNHD=PSBOFDT"
^XMB(3.9,99,2,1229,0)="""RTN"",""PSBOMM2"",42,0)"
^XMB(3.9,99,2,1230,0)=" ..I PSBDT>PSBHDDT,PSBHDST=""HOLD"",PSBOFST="""" S PSBFLAG=1"
^XMB(3.9,99,2,1231,0)="""RTN"",""PSBOMM2"",43,0)"
^XMB(3.9,99,2,1232,0)=" K PSBCNT,TMP(""PSB1"",$J)"
^XMB(3.9,99,2,1233,0)="""RTN"",""PSBOMM2"",44,0)"
^XMB(3.9,99,2,1234,0)=" I PSBFLAG=1 S ^TMP(""PSB"",$J,DFN,PSBDT,PSBOITX,PSBONX)=""(On Hold) ""_$$FMTE^XLFDT(PSBHDDT)"
^XMB(3.9,99,2,1235,0)="""RTN"",""PSBOMM2"",45,0)"
^XMB(3.9,99,2,1236,0)=" I PSBFLAG=2 S ^TMP(""PSB"",$J,DFN,PSBDT,PSBOITX,PSBONX)=""(On Hold) ""_$$FMTE^XLFDT(PSBHDDT)_""  ""_""(Off Hold) ""_$$FMTE^XLFDT(PSBUNHD) Q"
^XMB(3.9,99,2,1237,0)="""RTN"",""PSBOMM2"",46,0)"
^XMB(3.9,99,2,1238,0)=" Q"
^XMB(3.9,99,2,1239,0)="""RTN"",""PSBOMM2"",47,0)"
^XMB(3.9,99,2,1240,0)=" ;"
^XMB(3.9,99,2,1241,0)="""RTN"",""PSBOMM2"",48,0)"
^XMB(3.9,99,2,1242,0)="UDONE ;"
^XMB(3.9,99,2,1243,0)="""RTN"",""PSBOMM2"",49,0)"
^XMB(3.9,99,2,1244,0)=" S PSBFLAG=0,J=1"
^XMB(3.9,99,2,1245,0)="""RTN"",""PSBOMM2"",50,0)"
^XMB(3.9,99,2,1246,0)=" F I=1:1:$P(PSBOACTL(0),U,4) D"
^XMB(3.9,99,2,1247,0)="""RTN"",""PSBOMM2"",51,0)"
^XMB(3.9,99,2,1248,0)=" .I $P($G(PSBOACTL(I,1)),U,4)[""ON HOLD""!($P($G(PSBOACTL(I,1)),U,4)=""HOLD"") S ^TMP(""PSB1"",$J,DFN,J)=""HOLD""_U_$E($P($G(PSBOACTL(I,1)),U,1),1,12)"
^XMB(3.9,99,2,1249,0)="""RTN"",""PSBOMM2"",52,0)"
^XMB(3.9,99,2,1250,0)=" .I $P($G(PSBOACTL(I,1)),U,4)[""TAKEN OFF HOLD""!($P($G(PSBOACTL(I,1)),U,4)[""UNHOLD"") S $P(^TMP(""PSB1"",$J,DFN,J),U,3)=""OFF HOLD""_U_$E($P($G(PSBOACTL(I,1)),U,1),1,12),J=J+1"
^XMB(3.9,99,2,1251,0)="""RTN"",""PSBOMM2"",53,0)"
^XMB(3.9,99,2,1252,0)=" D:$D(^TMP(""PSB1"",$J,DFN))&($P(PSBOACTL(0),U,4)'=1)"
^XMB(3.9,99,2,1253,0)="""RTN"",""PSBOMM2"",54,0)"
^XMB(3.9,99,2,1254,0)=" .S J="""" F  S J=$O(^TMP(""PSB1"",$J,DFN,J)) Q:'J  Q:PSBFLAG  D"
^XMB(3.9,99,2,1255,0)="""RTN"",""PSBOMM2"",55,0)"
^XMB(3.9,99,2,1256,0)=" ..S PSBHDDT=$P(^TMP(""PSB1"",$J,DFN,J),U,2)"
^XMB(3.9,99,2,1257,0)="""RTN"",""PSBOMM2"",56,0)"
^XMB(3.9,99,2,1258,0)=" ..S PSBHDST=$P(^TMP(""PSB1"",$J,DFN,J),U)"
^XMB(3.9,99,2,1259,0)="""RTN"",""PSBOMM2"",57,0)"
^XMB(3.9,99,2,1260,0)=" ..S PSBOFDT=$P(^TMP(""PSB1"",$J,DFN,J),U,4)"
^XMB(3.9,99,2,1261,0)="""RTN"",""PSBOMM2"",58,0)"
^XMB(3.9,99,2,1262,0)=" ..S PSBOFST=$P(^TMP(""PSB1"",$J,DFN,J),U,3)"
^XMB(3.9,99,2,1263,0)="""RTN"",""PSBOMM2"",59,0)"
^XMB(3.9,99,2,1264,0)=" ..I PSBOSTS=""A"",PSBHDST=""HOLD"",PSBOFST'="""",'$D(^TMP(""PSB1"",$J,DFN,J+1)) I PSBSTOP>PSBOFDT,PSBOFST=""OFF HOLD"" S PSBFLAG=2,PSBUNHD=PSBOFDT"
^XMB(3.9,99,2,1265,0)="""RTN"",""PSBOMM2"",60,0)"
^XMB(3.9,99,2,1266,0)=" ..I PSBOSTS=""A"",PSBHDST=""HOLD"",PSBOFST'="""",PSBOFDT'<PSBSTOP S PSBFLAG=1"
^XMB(3.9,99,2,1267,0)="""RTN"",""PSBOMM2"",61,0)"
^XMB(3.9,99,2,1268,0)=" ..I PSBOSTS=""H"",PSBHDST=""HOLD"",'$D(^TMP(""PSB1"",$J,DFN,J+1)) S PSBFLAG=1"
^XMB(3.9,99,2,1269,0)="""RTN"",""PSBOMM2"",62,0)"
^XMB(3.9,99,2,1270,0)=" K PSBCNT,^TMP(""PSB1"",$J)"
^XMB(3.9,99,2,1271,0)="""RTN"",""PSBOMM2"",63,0)"
^XMB(3.9,99,2,1272,0)=" Q"
^XMB(3.9,99,2,1273,0)="""RTN"",""PSBOMM2"",64,0)"
^XMB(3.9,99,2,1274,0)=" ;"
^XMB(3.9,99,2,1275,0)="""VER"")"
^XMB(3.9,99,2,1276,0)="8.0^22.0"
^XMB(3.9,99,2,1277,0)="""BLD"",6636,6)"
^XMB(3.9,99,2,1278,0)="^22"
^XMB(3.9,99,2,1279,0)="$END KID PSB*3.0*26"
^XMB(3.9,99,6,0)="^3.911A^2^2"
^XMB(3.9,99,6,1,0)="POSTMASTER"
^XMB(3.9,99,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,99,6,"B","POSTMASTER",1)=""
^XMB(3.9,99,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,100,0)="PSD-3_SEQ-50_PAT-60.KID^.5^3061008.01574^^^^K"
^XMB(3.9,100,.6)="3061008"
^XMB(3.9,100,1,0)="^3.91A^2^2"
^XMB(3.9,100,1,1,0)=".5^0^3061008.01574^^^^^^^3061008.01574"
^XMB(3.9,100,1,2,0)="1^0^3061008.02223^^^^^^^3061008.02223"
^XMB(3.9,100,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,100,1,"C",.5,1)=""
^XMB(3.9,100,1,"C",1,2)=""
^XMB(3.9,100,2,0)="^^1091^1091^3061008"
^XMB(3.9,100,2,1,0)="$TXT Released PSD*3*60 SEQ #50"
^XMB(3.9,100,2,2,0)="Extracted from mail message"
^XMB(3.9,100,2,3,0)="$END TXT"
^XMB(3.9,100,2,4,0)="$KID PSD*3.0*60"
^XMB(3.9,100,2,5,0)="**INSTALL NAME**"
^XMB(3.9,100,2,6,0)="PSD*3.0*60"
^XMB(3.9,100,2,7,0)="""BLD"",6540,0)"
^XMB(3.9,100,2,8,0)="PSD*3.0*60^CONTROLLED SUBSTANCES^0^3060705^y"
^XMB(3.9,100,2,9,0)="""BLD"",6540,1,0)"
^XMB(3.9,100,2,10,0)="^^3^3^3051215^"
^XMB(3.9,100,2,11,0)="""BLD"",6540,1,1,0)"
^XMB(3.9,100,2,12,0)="This patch will correct the problem of an old greensheet being"
^XMB(3.9,100,2,13,0)="""BLD"",6540,1,2,0)"
^XMB(3.9,100,2,14,0)="selected when a drug IEN is entered and it matches an old "
^XMB(3.9,100,2,15,0)="""BLD"",6540,1,3,0)"
^XMB(3.9,100,2,16,0)="pharmacy dispencing number."
^XMB(3.9,100,2,17,0)="""BLD"",6540,4,0)"
^XMB(3.9,100,2,18,0)="^9.64PA^^"
^XMB(3.9,100,2,19,0)="""BLD"",6540,""ABPKG"")"
^XMB(3.9,100,2,20,0)="n"
^XMB(3.9,100,2,21,0)="""BLD"",6540,""KRN"",0)"
^XMB(3.9,100,2,22,0)="^9.67PA^8989.52^19"
^XMB(3.9,100,2,23,0)="""BLD"",6540,""KRN"",.4,0)"
^XMB(3.9,100,2,24,0)=".4"
^XMB(3.9,100,2,25,0)="""BLD"",6540,""KRN"",.401,0)"
^XMB(3.9,100,2,26,0)=".401"
^XMB(3.9,100,2,27,0)="""BLD"",6540,""KRN"",.402,0)"
^XMB(3.9,100,2,28,0)=".402"
^XMB(3.9,100,2,29,0)="""BLD"",6540,""KRN"",.403,0)"
^XMB(3.9,100,2,30,0)=".403"
^XMB(3.9,100,2,31,0)="""BLD"",6540,""KRN"",.5,0)"
^XMB(3.9,100,2,32,0)=".5"
^XMB(3.9,100,2,33,0)="""BLD"",6540,""KRN"",.84,0)"
^XMB(3.9,100,2,34,0)=".84"
^XMB(3.9,100,2,35,0)="""BLD"",6540,""KRN"",3.6,0)"
^XMB(3.9,100,2,36,0)="3.6"
^XMB(3.9,100,2,37,0)="""BLD"",6540,""KRN"",3.8,0)"
^XMB(3.9,100,2,38,0)="3.8"
^XMB(3.9,100,2,39,0)="""BLD"",6540,""KRN"",9.2,0)"
^XMB(3.9,100,2,40,0)="9.2"
^XMB(3.9,100,2,41,0)="""BLD"",6540,""KRN"",9.8,0)"
^XMB(3.9,100,2,42,0)="9.8"
^XMB(3.9,100,2,43,0)="""BLD"",6540,""KRN"",9.8,""NM"",0)"
^XMB(3.9,100,2,44,0)="^9.68A^5^5"
^XMB(3.9,100,2,45,0)="""BLD"",6540,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,100,2,46,0)="PSDRF^^0^B25117230"
^XMB(3.9,100,2,47,0)="""BLD"",6540,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,100,2,48,0)="PSDRF4^^0^B21421420"
^XMB(3.9,100,2,49,0)="""BLD"",6540,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,100,2,50,0)="PSDRFR^^0^B28496304"
^XMB(3.9,100,2,51,0)="""BLD"",6540,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,100,2,52,0)="PSDRFS^^0^B27168731"
^XMB(3.9,100,2,53,0)="""BLD"",6540,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,100,2,54,0)="PSDRFW^^0^B28360776"
^XMB(3.9,100,2,55,0)="""BLD"",6540,""KRN"",9.8,""NM"",""B"",""PSDRF"",1)"
^XMB(3.9,100,2,56,0)=""
^XMB(3.9,100,2,57,0)="""BLD"",6540,""KRN"",9.8,""NM"",""B"",""PSDRF4"",2)"
^XMB(3.9,100,2,58,0)=""
^XMB(3.9,100,2,59,0)="""BLD"",6540,""KRN"",9.8,""NM"",""B"",""PSDRFR"",3)"
^XMB(3.9,100,2,60,0)=""
^XMB(3.9,100,2,61,0)="""BLD"",6540,""KRN"",9.8,""NM"",""B"",""PSDRFS"",4)"
^XMB(3.9,100,2,62,0)=""
^XMB(3.9,100,2,63,0)="""BLD"",6540,""KRN"",9.8,""NM"",""B"",""PSDRFW"",5)"
^XMB(3.9,100,2,64,0)=""
^XMB(3.9,100,2,65,0)="""BLD"",6540,""KRN"",19,0)"
^XMB(3.9,100,2,66,0)="19"
^XMB(3.9,100,2,67,0)="""BLD"",6540,""KRN"",19.1,0)"
^XMB(3.9,100,2,68,0)="19.1"
^XMB(3.9,100,2,69,0)="""BLD"",6540,""KRN"",101,0)"
^XMB(3.9,100,2,70,0)="101"
^XMB(3.9,100,2,71,0)="""BLD"",6540,""KRN"",409.61,0)"
^XMB(3.9,100,2,72,0)="409.61"
^XMB(3.9,100,2,73,0)="""BLD"",6540,""KRN"",771,0)"
^XMB(3.9,100,2,74,0)="771"
^XMB(3.9,100,2,75,0)="""BLD"",6540,""KRN"",870,0)"
^XMB(3.9,100,2,76,0)="870"
^XMB(3.9,100,2,77,0)="""BLD"",6540,""KRN"",8989.51,0)"
^XMB(3.9,100,2,78,0)="8989.51"
^XMB(3.9,100,2,79,0)="""BLD"",6540,""KRN"",8989.52,0)"
^XMB(3.9,100,2,80,0)="8989.52"
^XMB(3.9,100,2,81,0)="""BLD"",6540,""KRN"",8994,0)"
^XMB(3.9,100,2,82,0)="8994"
^XMB(3.9,100,2,83,0)="""BLD"",6540,""KRN"",""B"",.4,.4)"
^XMB(3.9,100,2,84,0)=""
^XMB(3.9,100,2,85,0)="""BLD"",6540,""KRN"",""B"",.401,.401)"
^XMB(3.9,100,2,86,0)=""
^XMB(3.9,100,2,87,0)="""BLD"",6540,""KRN"",""B"",.402,.402)"
^XMB(3.9,100,2,88,0)=""
^XMB(3.9,100,2,89,0)="""BLD"",6540,""KRN"",""B"",.403,.403)"
^XMB(3.9,100,2,90,0)=""
^XMB(3.9,100,2,91,0)="""BLD"",6540,""KRN"",""B"",.5,.5)"
^XMB(3.9,100,2,92,0)=""
^XMB(3.9,100,2,93,0)="""BLD"",6540,""KRN"",""B"",.84,.84)"
^XMB(3.9,100,2,94,0)=""
^XMB(3.9,100,2,95,0)="""BLD"",6540,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,100,2,96,0)=""
^XMB(3.9,100,2,97,0)="""BLD"",6540,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,100,2,98,0)=""
^XMB(3.9,100,2,99,0)="""BLD"",6540,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,100,2,100,0)=""
^XMB(3.9,100,2,101,0)="""BLD"",6540,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,100,2,102,0)=""
^XMB(3.9,100,2,103,0)="""BLD"",6540,""KRN"",""B"",19,19)"
^XMB(3.9,100,2,104,0)=""
^XMB(3.9,100,2,105,0)="""BLD"",6540,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,100,2,106,0)=""
^XMB(3.9,100,2,107,0)="""BLD"",6540,""KRN"",""B"",101,101)"
^XMB(3.9,100,2,108,0)=""
^XMB(3.9,100,2,109,0)="""BLD"",6540,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,100,2,110,0)=""
^XMB(3.9,100,2,111,0)="""BLD"",6540,""KRN"",""B"",771,771)"
^XMB(3.9,100,2,112,0)=""
^XMB(3.9,100,2,113,0)="""BLD"",6540,""KRN"",""B"",870,870)"
^XMB(3.9,100,2,114,0)=""
^XMB(3.9,100,2,115,0)="""BLD"",6540,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,100,2,116,0)=""
^XMB(3.9,100,2,117,0)="""BLD"",6540,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,100,2,118,0)=""
^XMB(3.9,100,2,119,0)="""BLD"",6540,""KRN"",""B"",8994,8994)"
^XMB(3.9,100,2,120,0)=""
^XMB(3.9,100,2,121,0)="""BLD"",6540,""QUES"",0)"
^XMB(3.9,100,2,122,0)="^9.62^^"
^XMB(3.9,100,2,123,0)="""BLD"",6540,""REQB"",0)"
^XMB(3.9,100,2,124,0)="^9.611^4^4"
^XMB(3.9,100,2,125,0)="""BLD"",6540,""REQB"",1,0)"
^XMB(3.9,100,2,126,0)="PSD*3.0*25^1"
^XMB(3.9,100,2,127,0)="""BLD"",6540,""REQB"",2,0)"
^XMB(3.9,100,2,128,0)="PSD*3.0*50^1"
^XMB(3.9,100,2,129,0)="""BLD"",6540,""REQB"",3,0)"
^XMB(3.9,100,2,130,0)="PSD*3.0*51^1"
^XMB(3.9,100,2,131,0)="""BLD"",6540,""REQB"",4,0)"
^XMB(3.9,100,2,132,0)="PSD*3.0*53^1"
^XMB(3.9,100,2,133,0)="""BLD"",6540,""REQB"",""B"",""PSD*3.0*25"",1)"
^XMB(3.9,100,2,134,0)=""
^XMB(3.9,100,2,135,0)="""BLD"",6540,""REQB"",""B"",""PSD*3.0*50"",2)"
^XMB(3.9,100,2,136,0)=""
^XMB(3.9,100,2,137,0)="""BLD"",6540,""REQB"",""B"",""PSD*3.0*51"",3)"
^XMB(3.9,100,2,138,0)=""
^XMB(3.9,100,2,139,0)="""BLD"",6540,""REQB"",""B"",""PSD*3.0*53"",4)"
^XMB(3.9,100,2,140,0)=""
^XMB(3.9,100,2,141,0)="""MBREQ"")"
^XMB(3.9,100,2,142,0)="0"
^XMB(3.9,100,2,143,0)="""PKG"",499,-1)"
^XMB(3.9,100,2,144,0)="1^1"
^XMB(3.9,100,2,145,0)="""PKG"",499,0)"
^XMB(3.9,100,2,146,0)="CONTROLLED SUBSTANCES^PSD^Controlled Substances Inventory and Tracking module."
^XMB(3.9,100,2,147,0)="""PKG"",499,20,0)"
^XMB(3.9,100,2,148,0)="^9.402P^^"
^XMB(3.9,100,2,149,0)="""PKG"",499,22,0)"
^XMB(3.9,100,2,150,0)="^9.49I^1^1"
^XMB(3.9,100,2,151,0)="""PKG"",499,22,1,0)"
^XMB(3.9,100,2,152,0)="3.0^2970213^2981028^66481"
^XMB(3.9,100,2,153,0)="""PKG"",499,22,1,""PAH"",1,0)"
^XMB(3.9,100,2,154,0)="60^3060705"
^XMB(3.9,100,2,155,0)="""PKG"",499,22,1,""PAH"",1,1,0)"
^XMB(3.9,100,2,156,0)="^^3^3^3060705"
^XMB(3.9,100,2,157,0)="""PKG"",499,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,100,2,158,0)="This patch will correct the problem of an old greensheet being"
^XMB(3.9,100,2,159,0)="""PKG"",499,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,100,2,160,0)="selected when a drug IEN is entered and it matches an old "
^XMB(3.9,100,2,161,0)="""PKG"",499,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,100,2,162,0)="pharmacy dispencing number."
^XMB(3.9,100,2,163,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,100,2,164,0)="Y"
^XMB(3.9,100,2,165,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,100,2,166,0)="^D REP^XPDH"
^XMB(3.9,100,2,167,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,100,2,168,0)="Shall I write over your |FLAG| File"
^XMB(3.9,100,2,169,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,100,2,170,0)="YES"
^XMB(3.9,100,2,171,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,100,2,172,0)="D XPF1^XPDIQ"
^XMB(3.9,100,2,173,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,100,2,174,0)="Y"
^XMB(3.9,100,2,175,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,100,2,176,0)="^D DTA^XPDH"
^XMB(3.9,100,2,177,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,100,2,178,0)="Want my data |FLAG| yours"
^XMB(3.9,100,2,179,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,100,2,180,0)="YES"
^XMB(3.9,100,2,181,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,100,2,182,0)="D XPF2^XPDIQ"
^XMB(3.9,100,2,183,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,100,2,184,0)="YO"
^XMB(3.9,100,2,185,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,100,2,186,0)="^D INHIBIT^XPDH"
^XMB(3.9,100,2,187,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,100,2,188,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,100,2,189,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,100,2,190,0)="YES"
^XMB(3.9,100,2,191,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,100,2,192,0)="D XPI1^XPDIQ"
^XMB(3.9,100,2,193,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,100,2,194,0)="PO^VA(200,:EM"
^XMB(3.9,100,2,195,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,100,2,196,0)="^D MG^XPDH"
^XMB(3.9,100,2,197,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,100,2,198,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,100,2,199,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,100,2,200,0)=""
^XMB(3.9,100,2,201,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,100,2,202,0)="D XPM1^XPDIQ"
^XMB(3.9,100,2,203,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,100,2,204,0)="Y"
^XMB(3.9,100,2,205,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,100,2,206,0)="^D MENU^XPDH"
^XMB(3.9,100,2,207,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,100,2,208,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,100,2,209,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,100,2,210,0)="YES"
^XMB(3.9,100,2,211,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,100,2,212,0)="D XPO1^XPDIQ"
^XMB(3.9,100,2,213,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,100,2,214,0)="Y"
^XMB(3.9,100,2,215,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,100,2,216,0)="^D OPT^XPDH"
^XMB(3.9,100,2,217,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,100,2,218,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,100,2,219,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,100,2,220,0)="YES"
^XMB(3.9,100,2,221,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,100,2,222,0)="D XPZ1^XPDIQ"
^XMB(3.9,100,2,223,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,100,2,224,0)="Y"
^XMB(3.9,100,2,225,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,100,2,226,0)="^D RTN^XPDH"
^XMB(3.9,100,2,227,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,100,2,228,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,100,2,229,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,100,2,230,0)="NO"
^XMB(3.9,100,2,231,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,100,2,232,0)="D XPZ2^XPDIQ"
^XMB(3.9,100,2,233,0)="""RTN"")"
^XMB(3.9,100,2,234,0)="5"
^XMB(3.9,100,2,235,0)="""RTN"",""PSDRF"")"
^XMB(3.9,100,2,236,0)="0^1^B25117230^B21036728"
^XMB(3.9,100,2,237,0)="""RTN"",""PSDRF"",1,0)"
^XMB(3.9,100,2,238,0)="PSDRF ;BIR/JPW,LTL - Nurse RF Dispensing ; 8 Aug 94"
^XMB(3.9,100,2,239,0)="""RTN"",""PSDRF"",2,0)"
^XMB(3.9,100,2,240,0)=" ;;3.0; CONTROLLED SUBSTANCES ;**25,51,60**;13 Feb 97"
^XMB(3.9,100,2,241,0)="""RTN"",""PSDRF"",3,0)"
^XMB(3.9,100,2,242,0)=" ;Reference to ^PSD(58.8 are covered by DBIA #2711"
^XMB(3.9,100,2,243,0)="""RTN"",""PSDRF"",4,0)"
^XMB(3.9,100,2,244,0)=" ;Reference to ^PSD(58.81 are covered by DBIA #2808"
^XMB(3.9,100,2,245,0)="""RTN"",""PSDRF"",5,0)"
^XMB(3.9,100,2,246,0)=" ;Reference to ^PSDRUG( are covered by DBIA #221"
^XMB(3.9,100,2,247,0)="""RTN"",""PSDRF"",6,0)"
^XMB(3.9,100,2,248,0)=" ;Reference to $$WITNESS^XUVERIFY are covered by DBIA #1513"
^XMB(3.9,100,2,249,0)="""RTN"",""PSDRF"",7,0)"
^XMB(3.9,100,2,250,0)=" I '$D(PSDSITE) D ^PSDSET Q:'$D(PSDSITE)"
^XMB(3.9,100,2,251,0)="""RTN"",""PSDRF"",8,0)"
^XMB(3.9,100,2,252,0)=" ;S OK=$S($D(^XUSEC(""PSJ RNURSE"",DUZ)):1,1:0) I 'OK W $C(7),!!,?9,""** Please contact your Pharmacy Coordinator for access to order"",!,?12,""narcotic supplies."",! K OK Q"
^XMB(3.9,100,2,253,0)="""RTN"",""PSDRF"",9,0)"
^XMB(3.9,100,2,254,0)=" I $P($G(^VA(200,DUZ,20)),U,4)']"""" N XQH S XQH=""PSD ESIG"" D EN^XQH G END"
^XMB(3.9,100,2,255,0)="""RTN"",""PSDRF"",10,0)"
^XMB(3.9,100,2,256,0)=" S PSDUZ=DUZ,(MSG,MSG1)=0,Y=DT X ^DD(""DD"") S REQD=Y"
^XMB(3.9,100,2,257,0)="""RTN"",""PSDRF"",11,0)"
^XMB(3.9,100,2,258,0)="NURSE N X,X1 D SIG^XUSESIG I X1="""" G END"
^XMB(3.9,100,2,259,0)="""RTN"",""PSDRF"",12,0)"
^XMB(3.9,100,2,260,0)="NAOU ;select NAOU to dispense from"
^XMB(3.9,100,2,261,0)="""RTN"",""PSDRF"",13,0)"
^XMB(3.9,100,2,262,0)=" I $G(NAOU) S PSDS=+$P(^PSD(58.8,NAOU,0),U,4) G PATIENT"
^XMB(3.9,100,2,263,0)="""RTN"",""PSDRF"",14,0)"
^XMB(3.9,100,2,264,0)=" W !!,""Please enter the ward from which the drug(s) will be signed out."""
^XMB(3.9,100,2,265,0)="""RTN"",""PSDRF"",15,0)"
^XMB(3.9,100,2,266,0)=" K DA,DIC S DIC=58.8,DIC(0)=""QEA"",DIC(""A"")=""Select Ward: """
^XMB(3.9,100,2,267,0)="""RTN"",""PSDRF"",16,0)"
^XMB(3.9,100,2,268,0)=" S DIC(""S"")=""I $P(^(0),""""^"""",3)=+PSDSITE,$S('$D(^(""""I"""")):1,'^(""""I""""):1,+^(""""I"""")>DT:1,1:0),$P(^(0),""""^"""",2)=""""N"""",'$P(^(0),""""^"""",7)"""
^XMB(3.9,100,2,269,0)="""RTN"",""PSDRF"",17,0)"
^XMB(3.9,100,2,270,0)=" W ! D ^DIC K DIC G:Y<0 END S NAOU=+Y,NAOUN=$P(Y,""^"",2)"
^XMB(3.9,100,2,271,0)="""RTN"",""PSDRF"",18,0)"
^XMB(3.9,100,2,272,0)=" I '$D(^PSD(58.8,NAOU,0)) S MSG=1 D MSG G END"
^XMB(3.9,100,2,273,0)="""RTN"",""PSDRF"",19,0)"
^XMB(3.9,100,2,274,0)=" I '$O(^PSD(58.8,NAOU,1,0)) S MSG=1,MSG1=2 D MSG G END"
^XMB(3.9,100,2,275,0)="""RTN"",""PSDRF"",20,0)"
^XMB(3.9,100,2,276,0)=" I '$P(^PSD(58.8,NAOU,0),U,4) S MSG=2 D MSG G END"
^XMB(3.9,100,2,277,0)="""RTN"",""PSDRF"",21,0)"
^XMB(3.9,100,2,278,0)=" S PSDS=+$P(^PSD(58.8,NAOU,0),""^"",4),PSDS=PSDS_""^""_+$P(^PSD(58.8,+PSDS,0),""^"",5) I '+PSDS S (MSG,MSG1)=1 D MSG G END"
^XMB(3.9,100,2,279,0)="""RTN"",""PSDRF"",22,0)"
^XMB(3.9,100,2,280,0)=" I '$D(^PSD(58.8,+PSDS,0)) S MSG=2 D MSG G END"
^XMB(3.9,100,2,281,0)="""RTN"",""PSDRF"",23,0)"
^XMB(3.9,100,2,282,0)=" I '$O(^PSD(58.8,+PSDS,1,0)) S MSG=2,MSG1=2 D MSG G END"
^XMB(3.9,100,2,283,0)="""RTN"",""PSDRF"",24,0)"
^XMB(3.9,100,2,284,0)=" ;S TYPE=$P(^PSD(58.8,+PSDS,0),""^"",2),OKTYP=$S(TYPE=""M"":1,TYPE=""S"":1,1:0) I 'OKTYP W !!,""Contact your Pharmacy Coordinator."",!,""The Pharmacy Dispensing Site is invalid for this NAOU."" G END"
^XMB(3.9,100,2,285,0)="""RTN"",""PSDRF"",25,0)"
^XMB(3.9,100,2,286,0)="PATIENT N DIC,DTOUT,DUOUT,X,Y,PSDOUT S DIC=""^DPT("",DIC(0)=""AEMQ"""
^XMB(3.9,100,2,287,0)="""RTN"",""PSDRF"",26,0)"
^XMB(3.9,100,2,288,0)=" S DIC(""A"")=""Scan/Enter Patient: """
^XMB(3.9,100,2,289,0)="""RTN"",""PSDRF"",27,0)"
^XMB(3.9,100,2,290,0)=" W ! D ^DIC K DIC G:Y<1 END S PAT=+Y"
^XMB(3.9,100,2,291,0)="""RTN"",""PSDRF"",28,0)"
^XMB(3.9,100,2,292,0)="DRUG ;select drug"
^XMB(3.9,100,2,293,0)="""RTN"",""PSDRF"",29,0)"
^XMB(3.9,100,2,294,0)=" N DIR,PSD,PSDR,PSDQ,WQTY,PSDDT"
^XMB(3.9,100,2,295,0)="""RTN"",""PSDRF"",30,0)"
^XMB(3.9,100,2,296,0)=" S DIR(0)=""FAO^1:40"""
^XMB(3.9,100,2,297,0)="""RTN"",""PSDRF"",31,0)"
^XMB(3.9,100,2,298,0)=" S DIR(""A"")=""Scan Drug Label or Enter Label # or Drug: """
^XMB(3.9,100,2,299,0)="""RTN"",""PSDRF"",32,0)"
^XMB(3.9,100,2,300,0)=" W ! D ^DIR K DIR G:Y="""" PATIENT G:$D(DIRUT) END"
^XMB(3.9,100,2,301,0)="""RTN"",""PSDRF"",33,0)"
^XMB(3.9,100,2,302,0)=" I $L(Y)=1,Y'="" "" W $C(7),!!,""Please enter more than one character."",! G DRUG"
^XMB(3.9,100,2,303,0)="""RTN"",""PSDRF"",34,0)"
^XMB(3.9,100,2,304,0)=" I $O(^PSD(58.81,""D"",Y,0)) D"
^XMB(3.9,100,2,305,0)="""RTN"",""PSDRF"",35,0)"
^XMB(3.9,100,2,306,0)=" .S PSD=0"
^XMB(3.9,100,2,307,0)="""RTN"",""PSDRF"",36,0)"
^XMB(3.9,100,2,308,0)=" .F  S PSD=$O(^PSD(58.81,""D"",Y,PSD)) Q:'PSD  S PSD(1)=$G(^PSD(58.81,PSD,0)) I $P(PSD(1),U,11)>3,$P(PSD(1),U,18)=NAOU S PSDR=$P(PSD(1),U,5),PSDPN=$P(PSD(1),U,17),PSDTYP=17"
^XMB(3.9,100,2,309,0)="""RTN"",""PSDRF"",37,0)"
^XMB(3.9,100,2,310,0)=" I $D(PSDR),PSDR'=Y D"
^XMB(3.9,100,2,311,0)="""RTN"",""PSDRF"",38,0)"
^XMB(3.9,100,2,312,0)=" .I $D(^PSDRUG(Y)),$D(^PSD(58.8,NAOU,1,Y)) D"
^XMB(3.9,100,2,313,0)="""RTN"",""PSDRF"",39,0)"
^XMB(3.9,100,2,314,0)=" ..S PSDDT=$$FMDIFF^DILIBF(DT,$P(PSD(1),U,4),"""")"
^XMB(3.9,100,2,315,0)="""RTN"",""PSDRF"",40,0)"
^XMB(3.9,100,2,316,0)=" ..I PSDDT>365 S PSDR=Y"
^XMB(3.9,100,2,317,0)="""RTN"",""PSDRF"",41,0)"
^XMB(3.9,100,2,318,0)=" .I '$D(^PSDRUG(Y)),$D(PSD(1)) D"
^XMB(3.9,100,2,319,0)="""RTN"",""PSDRF"",42,0)"
^XMB(3.9,100,2,320,0)=" ..S PSDDT=$$FMDIFF^DILIBF(DT,$P(PSD(1),U,4),"""")"
^XMB(3.9,100,2,321,0)="""RTN"",""PSDRF"",43,0)"
^XMB(3.9,100,2,322,0)=" ..I PSDDT>365 K PSDR"
^XMB(3.9,100,2,323,0)="""RTN"",""PSDRF"",44,0)"
^XMB(3.9,100,2,324,0)=" .I '$D(^PSDRUG(Y)),'$D(^PSD(58.8,NAOU,1,Y)),'$D(PSDR) W $C(7),!!,""This is not a valid Pharmacy Dispensing number for this ward."",!! G END"
^XMB(3.9,100,2,325,0)="""RTN"",""PSDRF"",45,0)"
^XMB(3.9,100,2,326,0)=" D:'$G(PSDR)  G:$D(DTOUT)!($D(DUOUT)) END G:Y<1 PATIENT"
^XMB(3.9,100,2,327,0)="""RTN"",""PSDRF"",46,0)"
^XMB(3.9,100,2,328,0)=" .S DIC=""^PSD(58.8,NAOU,1,"",DIC(0)=""EMQSZ"",DA(1)=NAOU"
^XMB(3.9,100,2,329,0)="""RTN"",""PSDRF"",47,0)"
^XMB(3.9,100,2,330,0)=" .W ! D ^DIC K DIC I $D(DTOUT)!($D(DUOUT))!(Y<1) W $C(7),!!,""This is not a valid Pharmacy Dispensing number for this ward."",!! Q"
^XMB(3.9,100,2,331,0)="""RTN"",""PSDRF"",48,0)"
^XMB(3.9,100,2,332,0)=" .S PSDR=+Y,PSDTYP=17"
^XMB(3.9,100,2,333,0)="""RTN"",""PSDRF"",49,0)"
^XMB(3.9,100,2,334,0)=" I '$G(PSDR) W $C(7),!!,""This is not a valid Pharmacy Dispensing number for this ward."",!! G END"
^XMB(3.9,100,2,335,0)="""RTN"",""PSDRF"",50,0)"
^XMB(3.9,100,2,336,0)=" W:$G(PSDR) !!,$P($G(^PSDRUG(PSDR,0)),U)"
^XMB(3.9,100,2,337,0)="""RTN"",""PSDRF"",51,0)"
^XMB(3.9,100,2,338,0)="BAL S PSDR(1)=$G(^PSD(58.8,NAOU,1,PSDR,0)),OQTY=$P(PSDR(1),U,4)"
^XMB(3.9,100,2,339,0)="""RTN"",""PSDRF"",52,0)"
^XMB(3.9,100,2,340,0)=" W:'OQTY&$D(Y(0,0)) !,?12,Y(0,0)"
^XMB(3.9,100,2,341,0)="""RTN"",""PSDRF"",53,0)"
^XMB(3.9,100,2,342,0)=" I 'OQTY,'$P($G(^PSD(58.81,+$G(PSD),9)),U) W !!,""Sorry, this drug has a zero balance."" G DRUG"
^XMB(3.9,100,2,343,0)="""RTN"",""PSDRF"",54,0)"
^XMB(3.9,100,2,344,0)=" ;PSD*3*25 (DAVE B)"
^XMB(3.9,100,2,345,0)="""RTN"",""PSDRF"",55,0)"
^XMB(3.9,100,2,346,0)=" K PSDDAVE D ^PSDRFV I $G(PSDDAVE)=1 K PSDDAVE S PSDOUT=1 G END"
^XMB(3.9,100,2,347,0)="""RTN"",""PSDRF"",56,0)"
^XMB(3.9,100,2,348,0)=" S DIR(0)=""Y"",DIR(""A"")=""Starting Balance:  ""_OQTY_"" ""_$P(PSDR(1),U,8)_""     Correct count"""
^XMB(3.9,100,2,349,0)="""RTN"",""PSDRF"",57,0)"
^XMB(3.9,100,2,350,0)=" S DIR(""B"")=""Yes"",NUR1=DUZ"
^XMB(3.9,100,2,351,0)="""RTN"",""PSDRF"",58,0)"
^XMB(3.9,100,2,352,0)=" S DIR(""?"")=""Answer Yes if the amount on hand equals the starting balance."""
^XMB(3.9,100,2,353,0)="""RTN"",""PSDRF"",59,0)"
^XMB(3.9,100,2,354,0)=" W ! D ^DIR K DIR G:$D(DIRUT) END"
^XMB(3.9,100,2,355,0)="""RTN"",""PSDRF"",60,0)"
^XMB(3.9,100,2,356,0)=" I Y=0 D ^PSDRF2 G:$G(PSDOUT) END S $P(PSDR(1),U,4)=PSDQ(1),OQTY=PSDQ(1),PSDTYP=17"
^XMB(3.9,100,2,357,0)="""RTN"",""PSDRF"",61,0)"
^XMB(3.9,100,2,358,0)=" G:'$G(PSDS) END"
^XMB(3.9,100,2,359,0)="""RTN"",""PSDRF"",62,0)"
^XMB(3.9,100,2,360,0)="LIQ G:$P($G(^PSD(58.8,+PSDS,1,PSDR,7)),U) ^PSDRFL"
^XMB(3.9,100,2,361,0)="""RTN"",""PSDRF"",63,0)"
^XMB(3.9,100,2,362,0)="QTY S DIR(0)=""NA^.01:""_OQTY_"":2"",DIR(""A"")=""Amount given: """
^XMB(3.9,100,2,363,0)="""RTN"",""PSDRF"",64,0)"
^XMB(3.9,100,2,364,0)=" S DIR(""B"")=1 W ! D ^DIR K DIR G:Y'>0 END S (PSDQ,OQTY)=Y"
^XMB(3.9,100,2,365,0)="""RTN"",""PSDRF"",65,0)"
^XMB(3.9,100,2,366,0)="WASTE I PSDQ#1 D  G:$G(PSDOUT) END"
^XMB(3.9,100,2,367,0)="""RTN"",""PSDRF"",66,0)"
^XMB(3.9,100,2,368,0)=" .W ?30,""Amount wasted: "",1-PSDQ#1,! S WQTY=1-PSDQ#1"
^XMB(3.9,100,2,369,0)="""RTN"",""PSDRF"",67,0)"
^XMB(3.9,100,2,370,0)=" .W !,""You have sixty seconds to find a witness."",!"
^XMB(3.9,100,2,371,0)="""RTN"",""PSDRF"",68,0)"
^XMB(3.9,100,2,372,0)="WIT .W:$G(NUR2(1)) !,""OK, sixty more seconds, but that's it."",!"
^XMB(3.9,100,2,373,0)="""RTN"",""PSDRF"",69,0)"
^XMB(3.9,100,2,374,0)=" .S NUR2=$$WITNESS^XUVERIFY(""WITNESS""),NUR2(1)=$G(NUR2(1))+1"
^XMB(3.9,100,2,375,0)="""RTN"",""PSDRF"",70,0)"
^XMB(3.9,100,2,376,0)=" .I NUR2=DUZ W !!,""Wait a minute, you can't witness yourself!"",$C(7) G WIT"
^XMB(3.9,100,2,377,0)="""RTN"",""PSDRF"",71,0)"
^XMB(3.9,100,2,378,0)=" .G:NUR2'>0&(NUR2(1)<2) WIT I NUR2'>0 S PSDOUT=1 Q"
^XMB(3.9,100,2,379,0)="""RTN"",""PSDRF"",72,0)"
^XMB(3.9,100,2,380,0)=" .W !!,""Thank you, "",$S($P($G(^VA(200,NUR2,.1)),U,4)]"""":$P($G(^(.1)),U,4),1:$P($G(^VA(200,NUR2,0)),U)) S PSDQ=PSDQ+(1-PSDQ#1)"
^XMB(3.9,100,2,381,0)="""RTN"",""PSDRF"",73,0)"
^XMB(3.9,100,2,382,0)=" W !!,""Remaining Balance: "",$P(PSDR(1),U,4)-PSDQ,"" "",$P(PSDR(1),U,8)"
^XMB(3.9,100,2,383,0)="""RTN"",""PSDRF"",74,0)"
^XMB(3.9,100,2,384,0)=" D UPDAT^PSDRF1 G DRUG"
^XMB(3.9,100,2,385,0)="""RTN"",""PSDRF"",75,0)"
^XMB(3.9,100,2,386,0)="END W:$G(PSDOUT) !!,""No dose signed out."",$C(7),!! K %,%DT,%H,%I,CNT,CNT1,DA,DIC,DIE,DINUM,DIR,DIROUT,DIRUT,DIWF,DIWL,DIWR,DR,DTOUT,DUOUT,LN,MSG,MSG1"
^XMB(3.9,100,2,387,0)="""RTN"",""PSDRF"",76,0)"
^XMB(3.9,100,2,388,0)=" K NAOU,NAOUN,NBKU,NPKG,NUR2,OK,OKTYP,ORD,PAT,PSDA,PSDEM,PSDOUT,PSDQTY,PSDRD,PSDR,PSDRN,PSDS,PSDT,PSDUZ,PSDUZN,REQD,TEXT,TYPE,WORD,X,Y"
^XMB(3.9,100,2,389,0)="""RTN"",""PSDRF"",77,0)"
^XMB(3.9,100,2,390,0)=" Q"
^XMB(3.9,100,2,391,0)="""RTN"",""PSDRF"",78,0)"
^XMB(3.9,100,2,392,0)="MSG ;display error message"
^XMB(3.9,100,2,393,0)="""RTN"",""PSDRF"",79,0)"
^XMB(3.9,100,2,394,0)=" W $C(7),!!,?10,""Contact your Pharmacy Coordinator."",!,?10,""This ""_$S(MSG=2:""Dispensing Site"",MSG=1:""NAOU"",1:""Drug"")_"" is missing """
^XMB(3.9,100,2,395,0)="""RTN"",""PSDRF"",80,0)"
^XMB(3.9,100,2,396,0)=" W $S(MSG1=1:""Primary Disp. Site"",MSG1=2:""stocked drugs"",MSG1=3:""narcotic breakdown unit"",MSG1=4:""narcotic package size"",1:""data"")_""."",!"
^XMB(3.9,100,2,397,0)="""RTN"",""PSDRF"",81,0)"
^XMB(3.9,100,2,398,0)=" Q"
^XMB(3.9,100,2,399,0)="""RTN"",""PSDRF4"")"
^XMB(3.9,100,2,400,0)="0^2^B21421420^B17429430"
^XMB(3.9,100,2,401,0)="""RTN"",""PSDRF4"",1,0)"
^XMB(3.9,100,2,402,0)="PSDRF4 ;BIR/JPW,LTL-Nurse RF damaged dose ; 8 Aug 94"
^XMB(3.9,100,2,403,0)="""RTN"",""PSDRF4"",2,0)"
^XMB(3.9,100,2,404,0)=" ;;3.0; CONTROLLED SUBSTANCES ;**25,60**;13 Feb 97"
^XMB(3.9,100,2,405,0)="""RTN"",""PSDRF4"",3,0)"
^XMB(3.9,100,2,406,0)=" ;Reference to ^PSD(58.8 are covered by DBIA #2711"
^XMB(3.9,100,2,407,0)="""RTN"",""PSDRF4"",4,0)"
^XMB(3.9,100,2,408,0)=" ;Reference to ^PSD(58.81 are covered by DBIA #2808"
^XMB(3.9,100,2,409,0)="""RTN"",""PSDRF4"",5,0)"
^XMB(3.9,100,2,410,0)=" ;Reference to ^PSDRUG( are covered by DBIA #221"
^XMB(3.9,100,2,411,0)="""RTN"",""PSDRF4"",6,0)"
^XMB(3.9,100,2,412,0)=" ;Reference to $$WITNESS^XUVERIFY are covered by DBIA #1513"
^XMB(3.9,100,2,413,0)="""RTN"",""PSDRF4"",7,0)"
^XMB(3.9,100,2,414,0)=" I '$D(PSDSITE) D ^PSDSET Q:'$D(PSDSITE)"
^XMB(3.9,100,2,415,0)="""RTN"",""PSDRF4"",8,0)"
^XMB(3.9,100,2,416,0)=" I $P($G(^VA(200,DUZ,20)),U,4)']"""" N XQH S XQH=""PSD ESIG"" D EN^XQH G END"
^XMB(3.9,100,2,417,0)="""RTN"",""PSDRF4"",9,0)"
^XMB(3.9,100,2,418,0)=" S PSDUZ=DUZ,(MSG,MSG1)=0,Y=DT X ^DD(""DD"") S REQD=Y"
^XMB(3.9,100,2,419,0)="""RTN"",""PSDRF4"",10,0)"
^XMB(3.9,100,2,420,0)="NURSE N X,X1 D SIG^XUSESIG I X1="""" G END"
^XMB(3.9,100,2,421,0)="""RTN"",""PSDRF4"",11,0)"
^XMB(3.9,100,2,422,0)="NAOU ;select NAOU to dispense from"
^XMB(3.9,100,2,423,0)="""RTN"",""PSDRF4"",12,0)"
^XMB(3.9,100,2,424,0)=" I $G(NAOU) S PSDS=+$P(^PSD(58.8,NAOU,0),U,4) G DRUG"
^XMB(3.9,100,2,425,0)="""RTN"",""PSDRF4"",13,0)"
^XMB(3.9,100,2,426,0)=" W !!,""Please enter the ward from which the defective drug(s) will be destroyed."""
^XMB(3.9,100,2,427,0)="""RTN"",""PSDRF4"",14,0)"
^XMB(3.9,100,2,428,0)=" K DA,DIC S DIC=58.8,DIC(0)=""QEA"",DIC(""A"")=""Select Ward: """
^XMB(3.9,100,2,429,0)="""RTN"",""PSDRF4"",15,0)"
^XMB(3.9,100,2,430,0)=" S DIC(""S"")=""I $P(^(0),""""^"""",3)=+PSDSITE,$S('$D(^(""""I"""")):1,'^(""""I""""):1,+^(""""I"""")>DT:1,1:0),$P(^(0),""""^"""",2)=""""N"""",'$P(^(0),""""^"""",7)"""
^XMB(3.9,100,2,431,0)="""RTN"",""PSDRF4"",16,0)"
^XMB(3.9,100,2,432,0)=" W ! D ^DIC K DIC G:Y<0 END S NAOU=+Y,NAOUN=$P(Y,""^"",2)"
^XMB(3.9,100,2,433,0)="""RTN"",""PSDRF4"",17,0)"
^XMB(3.9,100,2,434,0)=" I '$D(^PSD(58.8,NAOU,0)) S MSG=1 D MSG G END"
^XMB(3.9,100,2,435,0)="""RTN"",""PSDRF4"",18,0)"
^XMB(3.9,100,2,436,0)=" I '$O(^PSD(58.8,NAOU,1,0)) S MSG=1,MSG1=2 D MSG G END"
^XMB(3.9,100,2,437,0)="""RTN"",""PSDRF4"",19,0)"
^XMB(3.9,100,2,438,0)=" I '$P(^PSD(58.8,NAOU,0),U,4) S MSG=2 D MSG G END"
^XMB(3.9,100,2,439,0)="""RTN"",""PSDRF4"",20,0)"
^XMB(3.9,100,2,440,0)=" S PSDS=+$P(^PSD(58.8,NAOU,0),""^"",4),PSDS=PSDS_""^""_+$P(^PSD(58.8,+PSDS,0),""^"",5) I '+PSDS S (MSG,MSG1)=1 D MSG G END"
^XMB(3.9,100,2,441,0)="""RTN"",""PSDRF4"",21,0)"
^XMB(3.9,100,2,442,0)=" I '$D(^PSD(58.8,+PSDS,0)) S MSG=2 D MSG G END"
^XMB(3.9,100,2,443,0)="""RTN"",""PSDRF4"",22,0)"
^XMB(3.9,100,2,444,0)=" I '$O(^PSD(58.8,+PSDS,1,0)) S MSG=2,MSG1=2 D MSG G END"
^XMB(3.9,100,2,445,0)="""RTN"",""PSDRF4"",23,0)"
^XMB(3.9,100,2,446,0)="DRUG ;select drug"
^XMB(3.9,100,2,447,0)="""RTN"",""PSDRF4"",24,0)"
^XMB(3.9,100,2,448,0)=" N DIR,PSD,PSDR,PSDQ,PSDDT"
^XMB(3.9,100,2,449,0)="""RTN"",""PSDRF4"",25,0)"
^XMB(3.9,100,2,450,0)=" S DIR(0)=""FAO^1:40"""
^XMB(3.9,100,2,451,0)="""RTN"",""PSDRF4"",26,0)"
^XMB(3.9,100,2,452,0)=" S DIR(""A"")=""Scan Drug Label or Enter Label # or Drug: """
^XMB(3.9,100,2,453,0)="""RTN"",""PSDRF4"",27,0)"
^XMB(3.9,100,2,454,0)=" W ! D ^DIR K DIR G:$D(DIRUT) END"
^XMB(3.9,100,2,455,0)="""RTN"",""PSDRF4"",28,0)"
^XMB(3.9,100,2,456,0)=" I $L(Y)=1,Y'="" "" W $C(7),!!,""Please enter more than one character."",! G DRUG"
^XMB(3.9,100,2,457,0)="""RTN"",""PSDRF4"",29,0)"
^XMB(3.9,100,2,458,0)=" I $O(^PSD(58.81,""D"",Y,0)) D"
^XMB(3.9,100,2,459,0)="""RTN"",""PSDRF4"",30,0)"
^XMB(3.9,100,2,460,0)=" .S PSD=0"
^XMB(3.9,100,2,461,0)="""RTN"",""PSDRF4"",31,0)"
^XMB(3.9,100,2,462,0)=" .F  S PSD=$O(^PSD(58.81,""D"",Y,PSD)) Q:'PSD  S PSD(1)=$G(^PSD(58.81,PSD,0)) I $P(PSD(1),U,11)>3,$P(PSD(1),U,18)=NAOU S PSDR=$P(PSD(1),U,5),PSDPN=$P(PSD(1),U,17),PSDTYP=17"
^XMB(3.9,100,2,463,0)="""RTN"",""PSDRF4"",32,0)"
^XMB(3.9,100,2,464,0)=" I $D(PSDR),PSDR'=Y  D"
^XMB(3.9,100,2,465,0)="""RTN"",""PSDRF4"",33,0)"
^XMB(3.9,100,2,466,0)=" .I $D(^PSDRUG(Y)),$D(^PSD(58.8,NAOU,1,Y)) D"
^XMB(3.9,100,2,467,0)="""RTN"",""PSDRF4"",34,0)"
^XMB(3.9,100,2,468,0)=" ..S PSDDT=$$FMDIFF^DILIBF(DT,$P(PSD(1),U,4),"""")"
^XMB(3.9,100,2,469,0)="""RTN"",""PSDRF4"",35,0)"
^XMB(3.9,100,2,470,0)=" ..I PSDDT>365 S PSDR=Y"
^XMB(3.9,100,2,471,0)="""RTN"",""PSDRF4"",36,0)"
^XMB(3.9,100,2,472,0)=" .I '$D(^PSDRUG(Y)),$D(PSD(1))  D"
^XMB(3.9,100,2,473,0)="""RTN"",""PSDRF4"",37,0)"
^XMB(3.9,100,2,474,0)=" ..S PSDDT=$$FMDIFF^DILIBF(DT,$P(PSD(1),U,4),"""")"
^XMB(3.9,100,2,475,0)="""RTN"",""PSDRF4"",38,0)"
^XMB(3.9,100,2,476,0)=" ..I PSDDT>365 K PSDR"
^XMB(3.9,100,2,477,0)="""RTN"",""PSDRF4"",39,0)"
^XMB(3.9,100,2,478,0)=" .I '$D(^PSDRUG(Y)),'$D(^PSD(58.8,NAOU,1,Y)),'$D(PSDR) W $C(7),!!,""This is not a valid Pharmacy Dispensing number for this ward."",!! G END"
^XMB(3.9,100,2,479,0)="""RTN"",""PSDRF4"",40,0)"
^XMB(3.9,100,2,480,0)=" D:'$G(PSDR)  G:$D(DTOUT)!($D(DUOUT)) END G:Y<1 DRUG"
^XMB(3.9,100,2,481,0)="""RTN"",""PSDRF4"",41,0)"
^XMB(3.9,100,2,482,0)=" .S DIC=""^PSD(58.8,NAOU,1,"",DIC(0)=""EMQSZ"",DA(1)=NAOU"
^XMB(3.9,100,2,483,0)="""RTN"",""PSDRF4"",42,0)"
^XMB(3.9,100,2,484,0)=" .W ! D ^DIC K DIC I $D(DTOUT)!($D(DUOUT))!(Y<1) W $C(7),!!,""This is not a valid Pharmacy Dispensing number for this ward."",!! Q"
^XMB(3.9,100,2,485,0)="""RTN"",""PSDRF4"",43,0)"
^XMB(3.9,100,2,486,0)=" .S PSDR=+Y,PSDTYP=9,PSDRE=""DEFECTIVE DOSE"""
^XMB(3.9,100,2,487,0)="""RTN"",""PSDRF4"",44,0)"
^XMB(3.9,100,2,488,0)=" I '$G(PSDR) W $C(7),!!,""This is not a valid Pharmacy Dispensing number for this ward."",!! G END"
^XMB(3.9,100,2,489,0)="""RTN"",""PSDRF4"",45,0)"
^XMB(3.9,100,2,490,0)=" W:$G(PSDR) !!,$P($G(^PSDRUG(PSDR,0)),U)"
^XMB(3.9,100,2,491,0)="""RTN"",""PSDRF4"",46,0)"
^XMB(3.9,100,2,492,0)="BAL S PSDR(1)=$G(^PSD(58.8,NAOU,1,PSDR,0)),OQTY=$P(PSDR(1),U,4)"
^XMB(3.9,100,2,493,0)="""RTN"",""PSDRF4"",47,0)"
^XMB(3.9,100,2,494,0)=" I 'OQTY W !!,""Sorry, this drug has a zero balance."" G DRUG"
^XMB(3.9,100,2,495,0)="""RTN"",""PSDRF4"",48,0)"
^XMB(3.9,100,2,496,0)=" ;PSD*3*25 (DAVE B)"
^XMB(3.9,100,2,497,0)="""RTN"",""PSDRF4"",49,0)"
^XMB(3.9,100,2,498,0)=" K PSDDAVE D ^PSDRFV I $G(PSDDAVE)=1 K PSDDAVE S PSDOUT=1 G END"
^XMB(3.9,100,2,499,0)="""RTN"",""PSDRF4"",50,0)"
^XMB(3.9,100,2,500,0)=" S DIR(0)=""Y"",DIR(""A"")=""Starting Balance:  ""_OQTY_"" ""_$P(PSDR(1),U,8)_""     Correct count"""
^XMB(3.9,100,2,501,0)="""RTN"",""PSDRF4"",51,0)"
^XMB(3.9,100,2,502,0)=" S DIR(""B"")=""Yes"",NUR1=DUZ"
^XMB(3.9,100,2,503,0)="""RTN"",""PSDRF4"",52,0)"
^XMB(3.9,100,2,504,0)=" S DIR(""?"")=""Answer Yes if the amount on hand equals the starting balance."""
^XMB(3.9,100,2,505,0)="""RTN"",""PSDRF4"",53,0)"
^XMB(3.9,100,2,506,0)=" W ! D ^DIR K DIR G:$D(DIRUT) END"
^XMB(3.9,100,2,507,0)="""RTN"",""PSDRF4"",54,0)"
^XMB(3.9,100,2,508,0)=" I Y=0 D ^PSDRF2 G:$G(PSDOUT) END S $P(PSDR(1),U,4)=PSDQ(1),OQTY=PSDQ(1),PSDTYP=17"
^XMB(3.9,100,2,509,0)="""RTN"",""PSDRF4"",55,0)"
^XMB(3.9,100,2,510,0)="LIQ G:$P($G(^PSD(58.8,+PSDS,1,PSDR,7)),U) ^PSDRF5"
^XMB(3.9,100,2,511,0)="""RTN"",""PSDRF4"",56,0)"
^XMB(3.9,100,2,512,0)="DEF W ! S DIR(0)=""NA^.01:""_OQTY_"":2"",DIR(""A"")=""Amount defective: """
^XMB(3.9,100,2,513,0)="""RTN"",""PSDRF4"",57,0)"
^XMB(3.9,100,2,514,0)=" S DIR(""B"")=1 D ^DIR K DIR G:$D(DIRUT) END S (PSDQ,WQTY)=Y"
^XMB(3.9,100,2,515,0)="""RTN"",""PSDRF4"",58,0)"
^XMB(3.9,100,2,516,0)="WIT S NUR2=$$WITNESS^XUVERIFY(""WITNESS"")"
^XMB(3.9,100,2,517,0)="""RTN"",""PSDRF4"",59,0)"
^XMB(3.9,100,2,518,0)=" I NUR2=DUZ W !!,""Wait a minute, you can't witness yourself!"",$C(7) G WIT"
^XMB(3.9,100,2,519,0)="""RTN"",""PSDRF4"",60,0)"
^XMB(3.9,100,2,520,0)=" I NUR2'>0 S PSDOUT=1 Q"
^XMB(3.9,100,2,521,0)="""RTN"",""PSDRF4"",61,0)"
^XMB(3.9,100,2,522,0)=" W !!,""Thank you, "",$S($P($G(^VA(200,NUR2,.1)),U,4)]"""":$P($G(^(.1)),U,4),1:$P($G(^VA(200,NUR2,0)),U))"
^XMB(3.9,100,2,523,0)="""RTN"",""PSDRF4"",62,0)"
^XMB(3.9,100,2,524,0)=" W !!,""Remaining Balance: "",$P(PSDR(1),U,4)-PSDQ,"" "",$P(PSDR(1),U,8)"
^XMB(3.9,100,2,525,0)="""RTN"",""PSDRF4"",63,0)"
^XMB(3.9,100,2,526,0)=" D UPDAT^PSDRF1"
^XMB(3.9,100,2,527,0)="""RTN"",""PSDRF4"",64,0)"
^XMB(3.9,100,2,528,0)="END W:$G(PSDOUT) !!,""No dose signed out."",$C(7),!! K %,%DT,%H,%I,CNT,CNT1,DA,DIC,DIE,DINUM,DIR,DIROUT,DIRUT,DIWF,DIWL,DIWR,DR,DTOUT,DUOUT,LN,MSG,MSG1,NUR2,WQTY"
^XMB(3.9,100,2,529,0)="""RTN"",""PSDRF4"",65,0)"
^XMB(3.9,100,2,530,0)=" K NAOU,NAOUN,NBKU,NPKG,OK,OKTYP,ORD,PSDA,PSDEM,PSDOUT,PSDQTY,PSDRD,PSDR,PSDRN,PSDS,PSDT,PSDUZ,PSDUZN,PSDPN,PSDTYP,PSDRE,OQTY,REQD,TEXT,TYPE,WORD,NUR1,X,Y"
^XMB(3.9,100,2,531,0)="""RTN"",""PSDRF4"",66,0)"
^XMB(3.9,100,2,532,0)=" Q"
^XMB(3.9,100,2,533,0)="""RTN"",""PSDRF4"",67,0)"
^XMB(3.9,100,2,534,0)="MSG ;display error message"
^XMB(3.9,100,2,535,0)="""RTN"",""PSDRF4"",68,0)"
^XMB(3.9,100,2,536,0)=" W $C(7),!!,?10,""Contact your Pharmacy Coordinator."",!,?10,""This ""_$S(MSG=2:""Dispensing Site"",MSG=1:""NAOU"",1:""Drug"")_"" is missing """
^XMB(3.9,100,2,537,0)="""RTN"",""PSDRF4"",69,0)"
^XMB(3.9,100,2,538,0)=" W $S(MSG1=1:""Primary Disp. Site"",MSG1=2:""stocked drugs"",MSG1=3:""narcotic breakdown unit"",MSG1=4:""narcotic package size"",1:""data"")_""."",!"
^XMB(3.9,100,2,539,0)="""RTN"",""PSDRF4"",70,0)"
^XMB(3.9,100,2,540,0)=" Q"
^XMB(3.9,100,2,541,0)="""RTN"",""PSDRFR"")"
^XMB(3.9,100,2,542,0)="0^3^B28496304^B23996028"
^XMB(3.9,100,2,543,0)="""RTN"",""PSDRFR"",1,0)"
^XMB(3.9,100,2,544,0)="PSDRFR ;BIR/JPW,LTL,BJW-Nurse RF Return to stock ; 11 May 98"
^XMB(3.9,100,2,545,0)="""RTN"",""PSDRFR"",2,0)"
^XMB(3.9,100,2,546,0)=" ;;3.0; CONTROLLED SUBSTANCES ;**5,7,25,53,60**;13 Feb 97"
^XMB(3.9,100,2,547,0)="""RTN"",""PSDRFR"",3,0)"
^XMB(3.9,100,2,548,0)=" ;modified to set variables psdret,psdar for return date"
^XMB(3.9,100,2,549,0)="""RTN"",""PSDRFR"",4,0)"
^XMB(3.9,100,2,550,0)=" ;Reference to ^PSD(58.8 are covered by DBIA #2711"
^XMB(3.9,100,2,551,0)="""RTN"",""PSDRFR"",5,0)"
^XMB(3.9,100,2,552,0)=" ;Reference to ^PSD(58.81 are covered by DBIA #2808"
^XMB(3.9,100,2,553,0)="""RTN"",""PSDRFR"",6,0)"
^XMB(3.9,100,2,554,0)=" ;Reference to ^PSDRUG( are covered by DBIA #221"
^XMB(3.9,100,2,555,0)="""RTN"",""PSDRFR"",7,0)"
^XMB(3.9,100,2,556,0)=" I '$D(PSDSITE) D ^PSDSET Q:'$D(PSDSITE)"
^XMB(3.9,100,2,557,0)="""RTN"",""PSDRFR"",8,0)"
^XMB(3.9,100,2,558,0)=" ;S OK=$S($D(^XUSEC(""PSJ RNURSE"",DUZ)):1,1:0) I 'OK W $C(7),!!,?9,""** Please contact your Pharmacy Coordinator for access to order"",!,?12,""narcotic supplies."",! K OK Q"
^XMB(3.9,100,2,559,0)="""RTN"",""PSDRFR"",9,0)"
^XMB(3.9,100,2,560,0)=" I $P($G(^VA(200,DUZ,20)),U,4)']"""" N XQH S XQH=""PSD ESIG"" D EN^XQH G END"
^XMB(3.9,100,2,561,0)="""RTN"",""PSDRFR"",10,0)"
^XMB(3.9,100,2,562,0)=" S PSDUZ=DUZ,(MSG,MSG1)=0,Y=DT X ^DD(""DD"") S REQD=Y"
^XMB(3.9,100,2,563,0)="""RTN"",""PSDRFR"",11,0)"
^XMB(3.9,100,2,564,0)="NURSE N X,X1 D SIG^XUSESIG I X1="""" G END"
^XMB(3.9,100,2,565,0)="""RTN"",""PSDRFR"",12,0)"
^XMB(3.9,100,2,566,0)="NAOU ;select NAOU to dispense from"
^XMB(3.9,100,2,567,0)="""RTN"",""PSDRFR"",13,0)"
^XMB(3.9,100,2,568,0)=" I $G(NAOU) S PSDS=+$P(^PSD(58.8,NAOU,0),U,4) G PATIENT"
^XMB(3.9,100,2,569,0)="""RTN"",""PSDRFR"",14,0)"
^XMB(3.9,100,2,570,0)=" W !!,""Please enter the ward from which the drug(s) was signed out."""
^XMB(3.9,100,2,571,0)="""RTN"",""PSDRFR"",15,0)"
^XMB(3.9,100,2,572,0)=" K DA,DIC S DIC=58.8,DIC(0)=""QEA"",DIC(""A"")=""Select Ward: """
^XMB(3.9,100,2,573,0)="""RTN"",""PSDRFR"",16,0)"
^XMB(3.9,100,2,574,0)=" S DIC(""S"")=""I $P(^(0),""""^"""",3)=+PSDSITE,$S('$D(^(""""I"""")):1,'^(""""I""""):1,+^(""""I"""")>DT:1,1:0),$P(^(0),""""^"""",2)=""""N"""",'$P(^(0),""""^"""",7)"""
^XMB(3.9,100,2,575,0)="""RTN"",""PSDRFR"",17,0)"
^XMB(3.9,100,2,576,0)=" W ! D ^DIC K DIC G:Y<0 END S NAOU=+Y,NAOUN=$P(Y,""^"",2)"
^XMB(3.9,100,2,577,0)="""RTN"",""PSDRFR"",18,0)"
^XMB(3.9,100,2,578,0)=" I '$D(^PSD(58.8,NAOU,0)) S MSG=1 D MSG G END"
^XMB(3.9,100,2,579,0)="""RTN"",""PSDRFR"",19,0)"
^XMB(3.9,100,2,580,0)=" I '$O(^PSD(58.8,NAOU,1,0)) S MSG=1,MSG1=2 D MSG G END"
^XMB(3.9,100,2,581,0)="""RTN"",""PSDRFR"",20,0)"
^XMB(3.9,100,2,582,0)=" I '$P(^PSD(58.8,NAOU,0),U,4) S MSG=2 D MSG G END"
^XMB(3.9,100,2,583,0)="""RTN"",""PSDRFR"",21,0)"
^XMB(3.9,100,2,584,0)=" S PSDS=+$P(^PSD(58.8,NAOU,0),""^"",4),PSDS=PSDS_""^""_+$P(^PSD(58.8,+PSDS,0),""^"",5) I '+PSDS S (MSG,MSG1)=1 D MSG G END"
^XMB(3.9,100,2,585,0)="""RTN"",""PSDRFR"",22,0)"
^XMB(3.9,100,2,586,0)=" I '$D(^PSD(58.8,+PSDS,0)) S MSG=2 D MSG G END"
^XMB(3.9,100,2,587,0)="""RTN"",""PSDRFR"",23,0)"
^XMB(3.9,100,2,588,0)=" I '$O(^PSD(58.8,+PSDS,1,0)) S MSG=2,MSG1=2 D MSG G END"
^XMB(3.9,100,2,589,0)="""RTN"",""PSDRFR"",24,0)"
^XMB(3.9,100,2,590,0)=" ;S TYPE=$P(^PSD(58.8,+PSDS,0),""^"",2),OKTYP=$S(TYPE=""M"":1,TYPE=""S"":1,1:0) I 'OKTYP W !!,""Contact your Pharmacy Coordinator."",!,""The Pharmacy Dispensing Site is invalid for this NAOU."" G END"
^XMB(3.9,100,2,591,0)="""RTN"",""PSDRFR"",25,0)"
^XMB(3.9,100,2,592,0)="PATIENT W !!,""Returns can only be recorded within """
^XMB(3.9,100,2,593,0)="""RTN"",""PSDRFR"",26,0)"
^XMB(3.9,100,2,594,0)=" S NAOU(1)=$S($P($G(^PSD(58.8,NAOU,6)),U,2):$P(^(6),U,2),1:12)"
^XMB(3.9,100,2,595,0)="""RTN"",""PSDRFR"",27,0)"
^XMB(3.9,100,2,596,0)=" W NAOU(1),"" hours after signing out a dose."""
^XMB(3.9,100,2,597,0)="""RTN"",""PSDRFR"",28,0)"
^XMB(3.9,100,2,598,0)=" N DIC,DTOUT,DUOUT,X,Y,PSDOUT S DIC=""^DPT("",DIC(0)=""AEMQ"""
^XMB(3.9,100,2,599,0)="""RTN"",""PSDRFR"",29,0)"
^XMB(3.9,100,2,600,0)=" S DIC(""A"")=""Scan/Enter Patient: """
^XMB(3.9,100,2,601,0)="""RTN"",""PSDRFR"",30,0)"
^XMB(3.9,100,2,602,0)=" W ! D ^DIC K DIC G:Y<1 END S PAT=+Y"
^XMB(3.9,100,2,603,0)="""RTN"",""PSDRFR"",31,0)"
^XMB(3.9,100,2,604,0)="DRUG ;select drug"
^XMB(3.9,100,2,605,0)="""RTN"",""PSDRFR"",32,0)"
^XMB(3.9,100,2,606,0)=" N DIR,PSD,PSDR,PSDQ,PSDDT"
^XMB(3.9,100,2,607,0)="""RTN"",""PSDRFR"",33,0)"
^XMB(3.9,100,2,608,0)=" S DIR(0)=""FAO^1:40"",DIR(""A"")=""Scan Drug Label or Enter Label # or Drug: """
^XMB(3.9,100,2,609,0)="""RTN"",""PSDRFR"",34,0)"
^XMB(3.9,100,2,610,0)=" W ! D ^DIR K DIR G:$D(DIRUT) END"
^XMB(3.9,100,2,611,0)="""RTN"",""PSDRFR"",35,0)"
^XMB(3.9,100,2,612,0)="MM ;"
^XMB(3.9,100,2,613,0)="""RTN"",""PSDRFR"",36,0)"
^XMB(3.9,100,2,614,0)=" I $L(Y)=1,Y'="" "" W $C(7),!!,""Please enter more than one character."",! G DRUG"
^XMB(3.9,100,2,615,0)="""RTN"",""PSDRFR"",37,0)"
^XMB(3.9,100,2,616,0)=" I $O(^PSD(58.81,""D"",Y,0)) D"
^XMB(3.9,100,2,617,0)="""RTN"",""PSDRFR"",38,0)"
^XMB(3.9,100,2,618,0)=" .S PSD=0"
^XMB(3.9,100,2,619,0)="""RTN"",""PSDRFR"",39,0)"
^XMB(3.9,100,2,620,0)=" .F  S PSD=$O(^PSD(58.81,""D"",Y,PSD)) Q:'PSD  S PSD(1)=$G(^PSD(58.81,PSD,0)) I $P(PSD(1),U,11)>3,$P(PSD(1),U,18)=NAOU S PSDR=$P(PSD(1),U,5),PSDPN=$P(PSD(1),U,17),PSDTYP=17"
^XMB(3.9,100,2,621,0)="""RTN"",""PSDRFR"",40,0)"
^XMB(3.9,100,2,622,0)=" I $D(PSDR),PSDR'=Y D"
^XMB(3.9,100,2,623,0)="""RTN"",""PSDRFR"",41,0)"
^XMB(3.9,100,2,624,0)=" .I $D(^PSDRUG(Y)),$D(^PSD(58.8,NAOU,1,Y)) D"
^XMB(3.9,100,2,625,0)="""RTN"",""PSDRFR"",42,0)"
^XMB(3.9,100,2,626,0)=" ..S PSDDT=$$FMDIFF^DILIBF(DT,$P(PSD(1),U,4),"""")"
^XMB(3.9,100,2,627,0)="""RTN"",""PSDRFR"",43,0)"
^XMB(3.9,100,2,628,0)=" ..I PSDDT>365 S PSDR=Y"
^XMB(3.9,100,2,629,0)="""RTN"",""PSDRFR"",44,0)"
^XMB(3.9,100,2,630,0)=" .I '$D(^PSDRUG(Y)),$D(PSD(1)) D"
^XMB(3.9,100,2,631,0)="""RTN"",""PSDRFR"",45,0)"
^XMB(3.9,100,2,632,0)=" ..S PSDDT=$$FMDIFF^DILIBF(DT,$P(PSD(1),U,4),"""")"
^XMB(3.9,100,2,633,0)="""RTN"",""PSDRFR"",46,0)"
^XMB(3.9,100,2,634,0)=" ..I PSDDT>365 K PSDR"
^XMB(3.9,100,2,635,0)="""RTN"",""PSDRFR"",47,0)"
^XMB(3.9,100,2,636,0)=" .I '$D(^PSDRUG(Y)),'$D(^PSD(58.8,NAOU,1,Y)),'$D(PSDR) W $C(7),!!,""This is not a valid Pharmacy Dispensing number for this ward."",!! G END"
^XMB(3.9,100,2,637,0)="""RTN"",""PSDRFR"",48,0)"
^XMB(3.9,100,2,638,0)=" D:'$G(PSDR)  G:$D(DTOUT)!($D(DUOUT)) END G:Y<1 PATIENT"
^XMB(3.9,100,2,639,0)="""RTN"",""PSDRFR"",49,0)"
^XMB(3.9,100,2,640,0)=" .S DIC=""^PSD(58.8,NAOU,1,"",DIC(0)=""EMQSZ"",DA(1)=NAOU"
^XMB(3.9,100,2,641,0)="""RTN"",""PSDRFR"",50,0)"
^XMB(3.9,100,2,642,0)=" .W ! D ^DIC K DIC I $D(DTOUT)!($D(DUOUT))!(Y<1) W $C(7),!!,""This is not a valid Pharmacy Dispensing number for this ward."",!! Q"
^XMB(3.9,100,2,643,0)="""RTN"",""PSDRFR"",51,0)"
^XMB(3.9,100,2,644,0)=" .S PSDR=+Y,PSDTYP=17"
^XMB(3.9,100,2,645,0)="""RTN"",""PSDRFR"",52,0)"
^XMB(3.9,100,2,646,0)=" I '$G(PSDR) W $C(7),!!,""This is not a valid Pharmacy Dispensing number for this ward."",!! G END"
^XMB(3.9,100,2,647,0)="""RTN"",""PSDRFR"",53,0)"
^XMB(3.9,100,2,648,0)=" W:$G(PSDR) !!,$P($G(^PSDRUG(PSDR,0)),U)"
^XMB(3.9,100,2,649,0)="""RTN"",""PSDRFR"",54,0)"
^XMB(3.9,100,2,650,0)="BAL S PSDR(1)=$G(^PSD(58.8,NAOU,1,PSDR,0)),OQTY=$P(PSDR(1),U,4)"
^XMB(3.9,100,2,651,0)="""RTN"",""PSDRFR"",55,0)"
^XMB(3.9,100,2,652,0)=" ;PSD*3*25 (DAVE B)"
^XMB(3.9,100,2,653,0)="""RTN"",""PSDRFR"",56,0)"
^XMB(3.9,100,2,654,0)=" K PSDDAVE D ^PSDRFV I $G(PSDDAVE)=1 K PSDDAVE S PSDOUT=1 G END"
^XMB(3.9,100,2,655,0)="""RTN"",""PSDRFR"",57,0)"
^XMB(3.9,100,2,656,0)=" I '$G(PSDA(1)) W !!,""No doses signed out"",!! G END"
^XMB(3.9,100,2,657,0)="""RTN"",""PSDRFR"",58,0)"
^XMB(3.9,100,2,658,0)=" S OQTY=$P($G(^PSD(58.81,PSDA(1),0)),U,6)"
^XMB(3.9,100,2,659,0)="""RTN"",""PSDRFR"",59,0)"
^XMB(3.9,100,2,660,0)=" I $$FMADD^XLFDT(PSDA(3),"""",NAOU(1))<$$NOW^XLFDT W !!,""The last dose was signed out at "",PSDA(2),"", over "",NAOU(1),"" hours ago."",!!,""It is too late to return to stock."",!! G END"
^XMB(3.9,100,2,661,0)="""RTN"",""PSDRFR"",60,0)"
^XMB(3.9,100,2,662,0)=" I PSDA(4)'=DUZ W !!,""Sorry, only the person who signed out the dose can return to stock."",!! G END"
^XMB(3.9,100,2,663,0)="""RTN"",""PSDRFR"",61,0)"
^XMB(3.9,100,2,664,0)=" W !!,""Starting Balance:  ""_$P(PSDR(1),U,4)_"" ""_$P(PSDR(1),U,8)"
^XMB(3.9,100,2,665,0)="""RTN"",""PSDRFR"",62,0)"
^XMB(3.9,100,2,666,0)="QTY S DIR(0)=""NA^0:""_OQTY_"":2"""
^XMB(3.9,100,2,667,0)="""RTN"",""PSDRFR"",63,0)"
^XMB(3.9,100,2,668,0)=" S DIR(""A"")=""Amount actually given at ""_PSDA(2)_"": """
^XMB(3.9,100,2,669,0)="""RTN"",""PSDRFR"",64,0)"
^XMB(3.9,100,2,670,0)=" W ! D ^DIR K DIR I $D(DIRUT)!(Y=OQTY) S PSDOUT=1 G END"
^XMB(3.9,100,2,671,0)="""RTN"",""PSDRFR"",65,0)"
^XMB(3.9,100,2,672,0)=" S PSDQ=Y"
^XMB(3.9,100,2,673,0)="""RTN"",""PSDRFR"",66,0)"
^XMB(3.9,100,2,674,0)=" S PSDRET=$$FMADD^XLFDT($$NOW^XLFDT,0)"
^XMB(3.9,100,2,675,0)="""RTN"",""PSDRFR"",67,0)"
^XMB(3.9,100,2,676,0)=" S PSDAR(1)=$$FMTE^XLFDT(PSDRET,""2P"")"
^XMB(3.9,100,2,677,0)="""RTN"",""PSDRFR"",68,0)"
^XMB(3.9,100,2,678,0)="WASTE I PSDQ'=OQTY D  G:$G(PSDOUT) END"
^XMB(3.9,100,2,679,0)="""RTN"",""PSDRFR"",69,0)"
^XMB(3.9,100,2,680,0)=" .S:'$D(PSDAR(1)) PSDAR(1)="""""
^XMB(3.9,100,2,681,0)="""RTN"",""PSDRFR"",70,0)"
^XMB(3.9,100,2,682,0)=" .I (OQTY-PSDQ)>1 D  Q:$G(PSDOUT)  G REA"
^XMB(3.9,100,2,683,0)="""RTN"",""PSDRFR"",71,0)"
^XMB(3.9,100,2,684,0)=" ..S DIR(0)=""N^1:""_(OQTY-PSDQ)_"":2"",DIR(""A"")=""Amount returned at ""_PSDAR(1)"
^XMB(3.9,100,2,685,0)="""RTN"",""PSDRFR"",72,0)"
^XMB(3.9,100,2,686,0)=" ..S DIR(""B"")=OQTY-PSDQ D ^DIR K DIR I $D(DIRUT) S PSDOUT=1 Q"
^XMB(3.9,100,2,687,0)="""RTN"",""PSDRFR"",73,0)"
^XMB(3.9,100,2,688,0)=" ..S WQTY=Y S:OQTY-WQTY PSDQ(1)=OQTY-WQTY"
^XMB(3.9,100,2,689,0)="""RTN"",""PSDRFR"",74,0)"
^XMB(3.9,100,2,690,0)=" .S WQTY=$S('$G(PSDQ(2)):OQTY-PSDQ,1:OQTY-WQTY)"
^XMB(3.9,100,2,691,0)="""RTN"",""PSDRFR"",75,0)"
^XMB(3.9,100,2,692,0)=" .W ?55,""Amount returned: "",WQTY,!"
^XMB(3.9,100,2,693,0)="""RTN"",""PSDRFR"",76,0)"
^XMB(3.9,100,2,694,0)="REA .S DIR(0)=""58.81,15"",DIR(""B"")=""Not given, returned to stock"""
^XMB(3.9,100,2,695,0)="""RTN"",""PSDRFR"",77,0)"
^XMB(3.9,100,2,696,0)=" .D ^DIR K DIR I $D(DIRUT) S PSDOUT=1 Q"
^XMB(3.9,100,2,697,0)="""RTN"",""PSDRFR"",78,0)"
^XMB(3.9,100,2,698,0)=" .S PSDRE(1)=Y"
^XMB(3.9,100,2,699,0)="""RTN"",""PSDRFR"",79,0)"
^XMB(3.9,100,2,700,0)=" ;VMP OIFO BAY PINES;PSD*3.0*53;DISPLAY CORRECT BALANCE"
^XMB(3.9,100,2,701,0)="""RTN"",""PSDRFR"",80,0)"
^XMB(3.9,100,2,702,0)=" N PSDRETQ"
^XMB(3.9,100,2,703,0)="""RTN"",""PSDRFR"",81,0)"
^XMB(3.9,100,2,704,0)=" S PSDRETQ=WQTY,PSDQ=+$G(PSDQ(1))"
^XMB(3.9,100,2,705,0)="""RTN"",""PSDRFR"",82,0)"
^XMB(3.9,100,2,706,0)=" D UPDATE^PSDRFX W !!,""Balance:  "",$P(PSDR(1),U,4)+PSDRETQ,"" "",$P(PSDR(1),U,8),!!"
^XMB(3.9,100,2,707,0)="""RTN"",""PSDRFR"",83,0)"
^XMB(3.9,100,2,708,0)=" ;VMP OIFO BAY PINES;PSD*3.0*53;REMOVED CALL TO WASTE^PSDRFW"
^XMB(3.9,100,2,709,0)="""RTN"",""PSDRFR"",84,0)"
^XMB(3.9,100,2,710,0)="END I $G(PSDQ(2)),$G(PSDOUT) S $P(^PSD(58.81,PSDA(1),0),U,6)=PSDQ"
^XMB(3.9,100,2,711,0)="""RTN"",""PSDRFR"",85,0)"
^XMB(3.9,100,2,712,0)=" W:$G(PSDOUT) !!,""No return recorded."",$C(7),!! K %,%DT,%H,%I,CNT,CNT1,DA,DIC,DIE,DINUM,DIR,DIROUT,DIRUT,DIWF,DIWL,DIWR,DR,DTOUT,DUOUT,LN,MSG,MSG1,PSDTYP"
^XMB(3.9,100,2,713,0)="""RTN"",""PSDRFR"",86,0)"
^XMB(3.9,100,2,714,0)=" K NAOU,NAOUN,NBKU,NPKG,OK,OKTYP,ORD,PAT,PSDA,PSDAR,PSDEM,PSDOUT,PSDQTY,PSDRD,PSDR,PSDRE,PSDRET,PSDRN,PSDS,PSDT,PSDUZ,PSDUZN,PSDPN,REQD,TEXT,TYPE,WQTY,OQTY,PSDQ,WORD,X,Y,PSDRETQ"
^XMB(3.9,100,2,715,0)="""RTN"",""PSDRFR"",87,0)"
^XMB(3.9,100,2,716,0)=" Q"
^XMB(3.9,100,2,717,0)="""RTN"",""PSDRFR"",88,0)"
^XMB(3.9,100,2,718,0)="MSG ;display error message"
^XMB(3.9,100,2,719,0)="""RTN"",""PSDRFR"",89,0)"
^XMB(3.9,100,2,720,0)=" W $C(7),!!,?10,""Contact your Pharmacy Coordinator."",!,?10,""This ""_$S(MSG=2:""Dispensing Site"",MSG=1:""NAOU"",1:""Drug"")_"" is missing """
^XMB(3.9,100,2,721,0)="""RTN"",""PSDRFR"",90,0)"
^XMB(3.9,100,2,722,0)=" W $S(MSG1=1:""Primary Disp. Site"",MSG1=2:""stocked drugs"",MSG1=3:""narcotic breakdown unit"",MSG1=4:""narcotic package size"",1:""data"")_""."",!"
^XMB(3.9,100,2,723,0)="""RTN"",""PSDRFR"",91,0)"
^XMB(3.9,100,2,724,0)=" Q"
^XMB(3.9,100,2,725,0)="""RTN"",""PSDRFS"")"
^XMB(3.9,100,2,726,0)="0^4^B27168731^B22721083"
^XMB(3.9,100,2,727,0)="""RTN"",""PSDRFS"",1,0)"
^XMB(3.9,100,2,728,0)="PSDRFS ;BIR/JPW,LTL-Nurse RF Delayed Dispensing ;8 Aug 94"
^XMB(3.9,100,2,729,0)="""RTN"",""PSDRFS"",2,0)"
^XMB(3.9,100,2,730,0)=" ;;3.0; CONTROLLED SUBSTANCES ;**25,50,60**;13 Feb 97"
^XMB(3.9,100,2,731,0)="""RTN"",""PSDRFS"",3,0)"
^XMB(3.9,100,2,732,0)=" ;Reference to ^PSD(58.8 are covered by DBIA #2711"
^XMB(3.9,100,2,733,0)="""RTN"",""PSDRFS"",4,0)"
^XMB(3.9,100,2,734,0)=" ;Reference to ^PSD(58.81 are covered by DBIA #2808"
^XMB(3.9,100,2,735,0)="""RTN"",""PSDRFS"",5,0)"
^XMB(3.9,100,2,736,0)=" ;Reference to ^PSDRUG( are covered by DBIA #221"
^XMB(3.9,100,2,737,0)="""RTN"",""PSDRFS"",6,0)"
^XMB(3.9,100,2,738,0)=" ;Reference to $$WITNESS^XUVERIFY are covered by DBIA #1513"
^XMB(3.9,100,2,739,0)="""RTN"",""PSDRFS"",7,0)"
^XMB(3.9,100,2,740,0)=" I '$D(PSDSITE) D ^PSDSET Q:'$D(PSDSITE)"
^XMB(3.9,100,2,741,0)="""RTN"",""PSDRFS"",8,0)"
^XMB(3.9,100,2,742,0)=" ;S OK=$S($D(^XUSEC(""PSJ RNURSE"",DUZ)):1,1:0) I 'OK W $C(7),!!,?9,""** Please contact your Pharmacy Coordinator for access to order"",!,?12,""narcotic supplies."",! K OK Q"
^XMB(3.9,100,2,743,0)="""RTN"",""PSDRFS"",9,0)"
^XMB(3.9,100,2,744,0)=" I $P($G(^VA(200,DUZ,20)),U,4)']"""" N XQH S XQH=""PSD ESIG"" D EN^XQH G END"
^XMB(3.9,100,2,745,0)="""RTN"",""PSDRFS"",10,0)"
^XMB(3.9,100,2,746,0)=" S PSDUZ=DUZ,(MSG,MSG1)=0,Y=DT X ^DD(""DD"") S REQD=Y"
^XMB(3.9,100,2,747,0)="""RTN"",""PSDRFS"",11,0)"
^XMB(3.9,100,2,748,0)="NURSE N X,X1 D SIG^XUSESIG I X1="""" G END"
^XMB(3.9,100,2,749,0)="""RTN"",""PSDRFS"",12,0)"
^XMB(3.9,100,2,750,0)="NAOU ;select NAOU to dispense from"
^XMB(3.9,100,2,751,0)="""RTN"",""PSDRFS"",13,0)"
^XMB(3.9,100,2,752,0)=" I $G(NAOU) S PSDS=+$P(^PSD(58.8,NAOU,0),U,4) G PATIENT"
^XMB(3.9,100,2,753,0)="""RTN"",""PSDRFS"",14,0)"
^XMB(3.9,100,2,754,0)=" W !!,""Please enter the ward from which the drug(s) will be signed out."""
^XMB(3.9,100,2,755,0)="""RTN"",""PSDRFS"",15,0)"
^XMB(3.9,100,2,756,0)=" K DA,DIC S DIC=58.8,DIC(0)=""QEA"",DIC(""A"")=""Select Ward: """
^XMB(3.9,100,2,757,0)="""RTN"",""PSDRFS"",16,0)"
^XMB(3.9,100,2,758,0)=" S DIC(""S"")=""I $P(^(0),""""^"""",3)=+PSDSITE,$S('$D(^(""""I"""")):1,'^(""""I""""):1,+^(""""I"""")>DT:1,1:0),$P(^(0),""""^"""",2)=""""N"""",'$P(^(0),""""^"""",7)"""
^XMB(3.9,100,2,759,0)="""RTN"",""PSDRFS"",17,0)"
^XMB(3.9,100,2,760,0)=" W ! D ^DIC K DIC G:Y<0 END S NAOU=+Y,NAOUN=$P(Y,""^"",2)"
^XMB(3.9,100,2,761,0)="""RTN"",""PSDRFS"",18,0)"
^XMB(3.9,100,2,762,0)=" I '$D(^PSD(58.8,NAOU,0)) S MSG=1 D MSG G END"
^XMB(3.9,100,2,763,0)="""RTN"",""PSDRFS"",19,0)"
^XMB(3.9,100,2,764,0)=" I '$O(^PSD(58.8,NAOU,1,0)) S MSG=1,MSG1=2 D MSG G END"
^XMB(3.9,100,2,765,0)="""RTN"",""PSDRFS"",20,0)"
^XMB(3.9,100,2,766,0)=" I '$P(^PSD(58.8,NAOU,0),U,4) S MSG=2 D MSG G END"
^XMB(3.9,100,2,767,0)="""RTN"",""PSDRFS"",21,0)"
^XMB(3.9,100,2,768,0)=" S PSDS=+$P(^PSD(58.8,NAOU,0),""^"",4),PSDS=PSDS_""^""_+$P(^PSD(58.8,+PSDS,0),""^"",5) I '+PSDS S (MSG,MSG1)=1 D MSG G END"
^XMB(3.9,100,2,769,0)="""RTN"",""PSDRFS"",22,0)"
^XMB(3.9,100,2,770,0)=" I '$D(^PSD(58.8,+PSDS,0)) S MSG=2 D MSG G END"
^XMB(3.9,100,2,771,0)="""RTN"",""PSDRFS"",23,0)"
^XMB(3.9,100,2,772,0)=" I '$O(^PSD(58.8,+PSDS,1,0)) S MSG=2,MSG1=2 D MSG G END"
^XMB(3.9,100,2,773,0)="""RTN"",""PSDRFS"",24,0)"
^XMB(3.9,100,2,774,0)=" ;S TYPE=$P(^PSD(58.8,+PSDS,0),""^"",2),OKTYP=$S(TYPE=""M"":1,TYPE=""S"":1,1:0) I 'OKTYP W !!,""Contact your Pharmacy Coordinator."",!,""The Pharmacy Dispensing Site is invalid for this NAOU."" G END"
^XMB(3.9,100,2,775,0)="""RTN"",""PSDRFS"",25,0)"
^XMB(3.9,100,2,776,0)="PATIENT N DIC,DTOUT,DUOUT,X,Y,PSDOUT S DIC=""^DPT("",DIC(0)=""AEMQ"""
^XMB(3.9,100,2,777,0)="""RTN"",""PSDRFS"",26,0)"
^XMB(3.9,100,2,778,0)=" S DIC(""A"")=""Scan/Enter Patient: """
^XMB(3.9,100,2,779,0)="""RTN"",""PSDRFS"",27,0)"
^XMB(3.9,100,2,780,0)=" W ! D ^DIC K DIC G:Y<1 END S PAT=+Y"
^XMB(3.9,100,2,781,0)="""RTN"",""PSDRFS"",28,0)"
^XMB(3.9,100,2,782,0)="DRUG ;select drug"
^XMB(3.9,100,2,783,0)="""RTN"",""PSDRFS"",29,0)"
^XMB(3.9,100,2,784,0)=" N DIR,PSD,PSDR,PSDQ,WQTY,PSDDT"
^XMB(3.9,100,2,785,0)="""RTN"",""PSDRFS"",30,0)"
^XMB(3.9,100,2,786,0)=" S DIR(0)=""FAO^1:40"""
^XMB(3.9,100,2,787,0)="""RTN"",""PSDRFS"",31,0)"
^XMB(3.9,100,2,788,0)=" S DIR(""A"")=""Scan Drug Label or Enter Label # or Drug: """
^XMB(3.9,100,2,789,0)="""RTN"",""PSDRFS"",32,0)"
^XMB(3.9,100,2,790,0)=" W ! D ^DIR K DIR G:Y="""" PATIENT G:$D(DIRUT) END"
^XMB(3.9,100,2,791,0)="""RTN"",""PSDRFS"",33,0)"
^XMB(3.9,100,2,792,0)=" I $L(Y)=1,Y'="" "" W $C(7),!!,""Please enter more than one character."",! G DRUG"
^XMB(3.9,100,2,793,0)="""RTN"",""PSDRFS"",34,0)"
^XMB(3.9,100,2,794,0)=" I $O(^PSD(58.81,""D"",Y,0)) D"
^XMB(3.9,100,2,795,0)="""RTN"",""PSDRFS"",35,0)"
^XMB(3.9,100,2,796,0)=" .S PSD=0"
^XMB(3.9,100,2,797,0)="""RTN"",""PSDRFS"",36,0)"
^XMB(3.9,100,2,798,0)=" .F  S PSD=$O(^PSD(58.81,""D"",Y,PSD)) Q:'PSD  S PSD(1)=$G(^PSD(58.81,PSD,0)) I $P(PSD(1),U,11)>3,$P(PSD(1),U,18)=NAOU S PSDR=$P(PSD(1),U,5),PSDPN=$P(PSD(1),U,17),PSDTYP=17"
^XMB(3.9,100,2,799,0)="""RTN"",""PSDRFS"",37,0)"
^XMB(3.9,100,2,800,0)=" I $D(PSDR),PSDR'=Y D"
^XMB(3.9,100,2,801,0)="""RTN"",""PSDRFS"",38,0)"
^XMB(3.9,100,2,802,0)=" .I $D(^PSDRUG(Y)),$D(^PSD(58.8,NAOU,1,Y)) D"
^XMB(3.9,100,2,803,0)="""RTN"",""PSDRFS"",39,0)"
^XMB(3.9,100,2,804,0)=" ..S PSDDT=$$FMDIFF^DILIBF(DT,$P(PSD(1),U,4),"""")"
^XMB(3.9,100,2,805,0)="""RTN"",""PSDRFS"",40,0)"
^XMB(3.9,100,2,806,0)=" ..I PSDDT>365 S PSDR=Y"
^XMB(3.9,100,2,807,0)="""RTN"",""PSDRFS"",41,0)"
^XMB(3.9,100,2,808,0)=" .I '$D(^PSDRUG(Y)),$D(PSD(1)) D"
^XMB(3.9,100,2,809,0)="""RTN"",""PSDRFS"",42,0)"
^XMB(3.9,100,2,810,0)=" ..S PSDDT=$$FMDIFF^DILIBF(DT,$P(PSD(1),U,4),"""")"
^XMB(3.9,100,2,811,0)="""RTN"",""PSDRFS"",43,0)"
^XMB(3.9,100,2,812,0)=" ..I PSDDT>365 K PSDR"
^XMB(3.9,100,2,813,0)="""RTN"",""PSDRFS"",44,0)"
^XMB(3.9,100,2,814,0)=" .I '$D(^PSDRUG(Y)),'$D(^PSD(58.8,NAOU,1,Y)),'$D(PSDR) W $C(7),!!,""This is not a valid Pharmacy Dispensing number for this ward."",!! G END"
^XMB(3.9,100,2,815,0)="""RTN"",""PSDRFS"",45,0)"
^XMB(3.9,100,2,816,0)=" D:'$G(PSDR)  G:$D(DTOUT)!($D(DUOUT)) END G:Y<1 PATIENT"
^XMB(3.9,100,2,817,0)="""RTN"",""PSDRFS"",46,0)"
^XMB(3.9,100,2,818,0)=" .S DIC=""^PSD(58.8,NAOU,1,"",DIC(0)=""EMQSZ"",DA(1)=NAOU"
^XMB(3.9,100,2,819,0)="""RTN"",""PSDRFS"",47,0)"
^XMB(3.9,100,2,820,0)=" .W ! D ^DIC K DIC I $D(DTOUT)!($D(DUOUT))!(Y<1) W $C(7),!!,""This is not a valid Pharmacy Dispensing number for this ward."",!! Q"
^XMB(3.9,100,2,821,0)="""RTN"",""PSDRFS"",48,0)"
^XMB(3.9,100,2,822,0)=" .S PSDR=+Y,PSDTYP=17"
^XMB(3.9,100,2,823,0)="""RTN"",""PSDRFS"",49,0)"
^XMB(3.9,100,2,824,0)=" I '$G(PSDR) W $C(7),!!,""This is not a valid Pharmacy Dispensing number for this ward."",!! G END"
^XMB(3.9,100,2,825,0)="""RTN"",""PSDRFS"",50,0)"
^XMB(3.9,100,2,826,0)=" W:$G(PSDR) !!,$P($G(^PSDRUG(PSDR,0)),U)"
^XMB(3.9,100,2,827,0)="""RTN"",""PSDRFS"",51,0)"
^XMB(3.9,100,2,828,0)=" ;S DIC=""^PSD(58.81,"",DIC(0)=""EMQSZ"""
^XMB(3.9,100,2,829,0)="""RTN"",""PSDRFS"",52,0)"
^XMB(3.9,100,2,830,0)=" ;S DIC(""S"")=""I $P(^(0),U,11)>3,$P(^(0),U,18)=NAOU"""
^XMB(3.9,100,2,831,0)="""RTN"",""PSDRFS"",53,0)"
^XMB(3.9,100,2,832,0)=" ;W ! D ^DIC K DIC G:$D(DTOUT)!($D(DUOUT)) END G:Y<1 PATIENT"
^XMB(3.9,100,2,833,0)="""RTN"",""PSDRFS"",54,0)"
^XMB(3.9,100,2,834,0)=" ;S PSDR=$P(Y(0),U,5),PSDPN=$P(Y(0),U,17),PSDTYP=17"
^XMB(3.9,100,2,835,0)="""RTN"",""PSDRFS"",55,0)"
^XMB(3.9,100,2,836,0)="BAL S PSDR(1)=$G(^PSD(58.8,NAOU,1,PSDR,0)),OQTY=$P(PSDR(1),U,4)"
^XMB(3.9,100,2,837,0)="""RTN"",""PSDRFS"",56,0)"
^XMB(3.9,100,2,838,0)=" I 'OQTY,'$P($G(^PSD(58.81,+$G(PSD),9)),U) W !!,""Sorry, this drug has a zero balance."" G DRUG"
^XMB(3.9,100,2,839,0)="""RTN"",""PSDRFS"",57,0)"
^XMB(3.9,100,2,840,0)=" ;PSD*3*25 (DAVE B)"
^XMB(3.9,100,2,841,0)="""RTN"",""PSDRFS"",58,0)"
^XMB(3.9,100,2,842,0)=" K PSDDAVE D ^PSDRFV I $G(PSDDAVE)=1 K PSDDAVE S PSDOUT=1 G END"
^XMB(3.9,100,2,843,0)="""RTN"",""PSDRFS"",59,0)"
^XMB(3.9,100,2,844,0)=" S DIR(0)=""Y"",DIR(""A"")=""Starting Balance:  ""_OQTY_"" ""_$P(PSDR(1),U,8)_""     Correct count"""
^XMB(3.9,100,2,845,0)="""RTN"",""PSDRFS"",60,0)"
^XMB(3.9,100,2,846,0)=" S DIR(""B"")=""Yes"",NUR1=DUZ"
^XMB(3.9,100,2,847,0)="""RTN"",""PSDRFS"",61,0)"
^XMB(3.9,100,2,848,0)=" S DIR(""?"")=""Answer Yes if the amount on hand equals the starting balance."""
^XMB(3.9,100,2,849,0)="""RTN"",""PSDRFS"",62,0)"
^XMB(3.9,100,2,850,0)=" W ! D ^DIR K DIR G:$D(DIRUT) END"
^XMB(3.9,100,2,851,0)="""RTN"",""PSDRFS"",63,0)"
^XMB(3.9,100,2,852,0)=" I Y=0 D ^PSDRF2 G:$G(PSDOUT) END S $P(PSDR(1),U,4)=PSDQ(1),OQTY=PSDQ(1),PSDTYP=17"
^XMB(3.9,100,2,853,0)="""RTN"",""PSDRFS"",64,0)"
^XMB(3.9,100,2,854,0)="LIQ G:$P($G(^PSD(58.8,+PSDS,1,PSDR,7)),U) ^PSDRFU"
^XMB(3.9,100,2,855,0)="""RTN"",""PSDRFS"",65,0)"
^XMB(3.9,100,2,856,0)="QTY S DIR(0)=""NA^.01:""_OQTY_"":2"",DIR(""A"")=""Amount given: """
^XMB(3.9,100,2,857,0)="""RTN"",""PSDRFS"",66,0)"
^XMB(3.9,100,2,858,0)=" S DIR(""B"")=1 W ! D ^DIR K DIR G:Y'>0 END S (PSDQ,OQTY)=Y"
^XMB(3.9,100,2,859,0)="""RTN"",""PSDRFS"",67,0)"
^XMB(3.9,100,2,860,0)="WASTE I PSDQ#1 D  G:$G(PSDOUT) END"
^XMB(3.9,100,2,861,0)="""RTN"",""PSDRFS"",68,0)"
^XMB(3.9,100,2,862,0)=" .W ?30,""Amount wasted: "",1-PSDQ#1,! S WQTY=1-PSDQ#1"
^XMB(3.9,100,2,863,0)="""RTN"",""PSDRFS"",69,0)"
^XMB(3.9,100,2,864,0)="WIT .S NUR2=$$WITNESS^XUVERIFY(""WITNESS"")"
^XMB(3.9,100,2,865,0)="""RTN"",""PSDRFS"",70,0)"
^XMB(3.9,100,2,866,0)=" .I NUR2=DUZ W !!,""Wait a minute, you can't witness yourself!"",$C(7) G WIT"
^XMB(3.9,100,2,867,0)="""RTN"",""PSDRFS"",71,0)"
^XMB(3.9,100,2,868,0)=" .I NUR2'>0 S PSDOUT=1 Q"
^XMB(3.9,100,2,869,0)="""RTN"",""PSDRFS"",72,0)"
^XMB(3.9,100,2,870,0)=" .W !!,""Thank you, "",$S($P($G(^VA(200,NUR2,.1)),U,4)]"""":$P($G(^(.1)),U,4),1:$P($G(^VA(200,NUR2,0)),U)) S PSDQ=PSDQ+(1-PSDQ#1)"
^XMB(3.9,100,2,871,0)="""RTN"",""PSDRFS"",73,0)"
^XMB(3.9,100,2,872,0)=" S %DT=""AEPRX"",%DT(0)=""-NOW"",%DT(""A"")=""Date/time given: """
^XMB(3.9,100,2,873,0)="""RTN"",""PSDRFS"",74,0)"
^XMB(3.9,100,2,874,0)=" W ! D ^%DT K %DT G:Y<1 END S PSDT=Y D ^PSDRFZ"
^XMB(3.9,100,2,875,0)="""RTN"",""PSDRFS"",75,0)"
^XMB(3.9,100,2,876,0)=" ; PSD*3*50 RJS - MODIFY TO CHECK SIGN OUT NURSE AGAINST WITNESS"
^XMB(3.9,100,2,877,0)="""RTN"",""PSDRFS"",76,0)"
^XMB(3.9,100,2,878,0)="ADMN S DIC=""^VA(200,"",DIC(0)=""AEMQ"",DIC(""A"")=""Nurse that signed out dose: """
^XMB(3.9,100,2,879,0)="""RTN"",""PSDRFS"",77,0)"
^XMB(3.9,100,2,880,0)=" W ! D ^DIC K DIC G:Y<1 END S NUR1=+Y,NUR1(1)=DUZ"
^XMB(3.9,100,2,881,0)="""RTN"",""PSDRFS"",78,0)"
^XMB(3.9,100,2,882,0)=" I $D(NUR2),NUR1=NUR2 W !,""Witness and Sign Out Nurse can not be the same person"" G:NUR1=NUR2 ADMN"
^XMB(3.9,100,2,883,0)="""RTN"",""PSDRFS"",79,0)"
^XMB(3.9,100,2,884,0)=" W !!,""Remaining Balance: "",$P(PSDR(1),U,4)-PSDQ,"" "",$P(PSDR(1),U,8)"
^XMB(3.9,100,2,885,0)="""RTN"",""PSDRFS"",80,0)"
^XMB(3.9,100,2,886,0)=" D UPDAT^PSDRFT G DRUG"
^XMB(3.9,100,2,887,0)="""RTN"",""PSDRFS"",81,0)"
^XMB(3.9,100,2,888,0)="END W:$G(PSDOUT) !!,""No dose signed out."",$C(7),!! K %,%DT,%H,%I,CNT,CNT1,DA,DIC,DIE,DINUM,DIR,DIROUT,DIRUT,DIWF,DIWL,DIWR,DR,DTOUT,DUOUT,LN,MSG,MSG1,NUR2,WQTY"
^XMB(3.9,100,2,889,0)="""RTN"",""PSDRFS"",82,0)"
^XMB(3.9,100,2,890,0)=" K NAOU,NAOUN,NBKU,NPKG,OK,OKTYP,ORD,PSDA,PSDEM,PSDOUT,PSDQTY,PSDRD,PSDR,PSDRN,PSDS,PSDT,PSDUZ,PSDUZN,PSDPN,PSDTYP,OQTY,REQD,TEXT,TYPE,WORD,NUR1,X,Y"
^XMB(3.9,100,2,891,0)="""RTN"",""PSDRFS"",83,0)"
^XMB(3.9,100,2,892,0)=" Q"
^XMB(3.9,100,2,893,0)="""RTN"",""PSDRFS"",84,0)"
^XMB(3.9,100,2,894,0)="MSG ;display error message"
^XMB(3.9,100,2,895,0)="""RTN"",""PSDRFS"",85,0)"
^XMB(3.9,100,2,896,0)=" W $C(7),!!,?10,""Contact your Pharmacy Coordinator."",!,?10,""This ""_$S(MSG=2:""Dispensing Site"",MSG=1:""NAOU"",1:""Drug"")_"" is missing """
^XMB(3.9,100,2,897,0)="""RTN"",""PSDRFS"",86,0)"
^XMB(3.9,100,2,898,0)=" W $S(MSG1=1:""Primary Disp. Site"",MSG1=2:""stocked drugs"",MSG1=3:""narcotic breakdown unit"",MSG1=4:""narcotic package size"",1:""data"")_""."",!"
^XMB(3.9,100,2,899,0)="""RTN"",""PSDRFS"",87,0)"
^XMB(3.9,100,2,900,0)=" Q"
^XMB(3.9,100,2,901,0)="""RTN"",""PSDRFW"")"
^XMB(3.9,100,2,902,0)="0^5^B28360776^B23766867"
^XMB(3.9,100,2,903,0)="""RTN"",""PSDRFW"",1,0)"
^XMB(3.9,100,2,904,0)="PSDRFW ;BIR/JPW,LTL-Nurse RF Dispensing ; 8 Aug 94"
^XMB(3.9,100,2,905,0)="""RTN"",""PSDRFW"",2,0)"
^XMB(3.9,100,2,906,0)=" ;;3.0; CONTROLLED SUBSTANCES ;**25,53,60**;13 Feb 97"
^XMB(3.9,100,2,907,0)="""RTN"",""PSDRFW"",3,0)"
^XMB(3.9,100,2,908,0)=" ;Reference to $$WITNESS^XUVERIFY are covered by DBIA #1513"
^XMB(3.9,100,2,909,0)="""RTN"",""PSDRFW"",4,0)"
^XMB(3.9,100,2,910,0)=" ;Reference to ^PSD(58.8 are covered by DBIA #2711"
^XMB(3.9,100,2,911,0)="""RTN"",""PSDRFW"",5,0)"
^XMB(3.9,100,2,912,0)=" ;Reference to ^PSD(58.81 are covered by DBIA #2808"
^XMB(3.9,100,2,913,0)="""RTN"",""PSDRFW"",6,0)"
^XMB(3.9,100,2,914,0)=" ;Reference to ^PSDRUG( are covered by DBIA #221"
^XMB(3.9,100,2,915,0)="""RTN"",""PSDRFW"",7,0)"
^XMB(3.9,100,2,916,0)=" I '$D(PSDSITE) D ^PSDSET Q:'$D(PSDSITE)"
^XMB(3.9,100,2,917,0)="""RTN"",""PSDRFW"",8,0)"
^XMB(3.9,100,2,918,0)=" ;S OK=$S($D(^XUSEC(""PSJ RNURSE"",DUZ)):1,1:0) I 'OK W $C(7),!!,?9,""** Please contact your Pharmacy Coordinator for access to order"",!,?12,""narcotic supplies."",! K OK Q"
^XMB(3.9,100,2,919,0)="""RTN"",""PSDRFW"",9,0)"
^XMB(3.9,100,2,920,0)=" I $P($G(^VA(200,DUZ,20)),U,4)']"""" N XQH S XQH=""PSD ESIG"" D EN^XQH G END"
^XMB(3.9,100,2,921,0)="""RTN"",""PSDRFW"",10,0)"
^XMB(3.9,100,2,922,0)=" S PSDUZ=DUZ,(MSG,MSG1)=0,Y=DT X ^DD(""DD"") S REQD=Y"
^XMB(3.9,100,2,923,0)="""RTN"",""PSDRFW"",11,0)"
^XMB(3.9,100,2,924,0)="NURSE N X,X1 D SIG^XUSESIG I X1="""" G END"
^XMB(3.9,100,2,925,0)="""RTN"",""PSDRFW"",12,0)"
^XMB(3.9,100,2,926,0)="NAOU ;select NAOU to dispense from"
^XMB(3.9,100,2,927,0)="""RTN"",""PSDRFW"",13,0)"
^XMB(3.9,100,2,928,0)=" I $G(NAOU) S PSDS=+$P(^PSD(58.8,NAOU,0),U,4) G PATIENT"
^XMB(3.9,100,2,929,0)="""RTN"",""PSDRFW"",14,0)"
^XMB(3.9,100,2,930,0)=" W !!,""Please enter the ward from which the drug(s) will be signed out."""
^XMB(3.9,100,2,931,0)="""RTN"",""PSDRFW"",15,0)"
^XMB(3.9,100,2,932,0)=" K DA,DIC S DIC=58.8,DIC(0)=""QEA"",DIC(""A"")=""Select Ward: """
^XMB(3.9,100,2,933,0)="""RTN"",""PSDRFW"",16,0)"
^XMB(3.9,100,2,934,0)=" S DIC(""S"")=""I $P(^(0),""""^"""",3)=+PSDSITE,$S('$D(^(""""I"""")):1,'^(""""I""""):1,+^(""""I"""")>DT:1,1:0),$P(^(0),""""^"""",2)=""""N"""",'$P(^(0),""""^"""",7)"""
^XMB(3.9,100,2,935,0)="""RTN"",""PSDRFW"",17,0)"
^XMB(3.9,100,2,936,0)=" W ! D ^DIC K DIC G:Y<0 END S NAOU=+Y,NAOUN=$P(Y,""^"",2)"
^XMB(3.9,100,2,937,0)="""RTN"",""PSDRFW"",18,0)"
^XMB(3.9,100,2,938,0)=" I '$D(^PSD(58.8,NAOU,0)) S MSG=1 D MSG G END"
^XMB(3.9,100,2,939,0)="""RTN"",""PSDRFW"",19,0)"
^XMB(3.9,100,2,940,0)=" I '$O(^PSD(58.8,NAOU,1,0)) S MSG=1,MSG1=2 D MSG G END"
^XMB(3.9,100,2,941,0)="""RTN"",""PSDRFW"",20,0)"
^XMB(3.9,100,2,942,0)=" I '$P(^PSD(58.8,NAOU,0),U,4) S MSG=2 D MSG G END"
^XMB(3.9,100,2,943,0)="""RTN"",""PSDRFW"",21,0)"
^XMB(3.9,100,2,944,0)=" S PSDS=+$P(^PSD(58.8,NAOU,0),""^"",4),PSDS=PSDS_""^""_+$P(^PSD(58.8,+PSDS,0),""^"",5) I '+PSDS S (MSG,MSG1)=1 D MSG G END"
^XMB(3.9,100,2,945,0)="""RTN"",""PSDRFW"",22,0)"
^XMB(3.9,100,2,946,0)=" I '$D(^PSD(58.8,+PSDS,0)) S MSG=2 D MSG G END"
^XMB(3.9,100,2,947,0)="""RTN"",""PSDRFW"",23,0)"
^XMB(3.9,100,2,948,0)=" I '$O(^PSD(58.8,+PSDS,1,0)) S MSG=2,MSG1=2 D MSG G END"
^XMB(3.9,100,2,949,0)="""RTN"",""PSDRFW"",24,0)"
^XMB(3.9,100,2,950,0)=" ;S TYPE=$P(^PSD(58.8,+PSDS,0),""^"",2),OKTYP=$S(TYPE=""M"":1,TYPE=""S"":1,1:0) I 'OKTYP W !!,""Contact your Pharmacy Coordinator."",!,""The Pharmacy Dispensing Site is invalid for this NAOU."" G END"
^XMB(3.9,100,2,951,0)="""RTN"",""PSDRFW"",25,0)"
^XMB(3.9,100,2,952,0)="PATIENT W !!,""Wastage can only be recorded within """
^XMB(3.9,100,2,953,0)="""RTN"",""PSDRFW"",26,0)"
^XMB(3.9,100,2,954,0)=" S NAOU(1)=$S($P($G(^PSD(58.8,NAOU,6)),U,2):$P(^(6),U,2),1:12)"
^XMB(3.9,100,2,955,0)="""RTN"",""PSDRFW"",27,0)"
^XMB(3.9,100,2,956,0)=" W NAOU(1),"" hours after signing out a dose."",!!"
^XMB(3.9,100,2,957,0)="""RTN"",""PSDRFW"",28,0)"
^XMB(3.9,100,2,958,0)=" W ""(except for PCA syringes and Infusions)"""
^XMB(3.9,100,2,959,0)="""RTN"",""PSDRFW"",29,0)"
^XMB(3.9,100,2,960,0)=" N DIC,DTOUT,DUOUT,X,Y,PSDOUT S DIC=""^DPT("",DIC(0)=""AEMQ"""
^XMB(3.9,100,2,961,0)="""RTN"",""PSDRFW"",30,0)"
^XMB(3.9,100,2,962,0)=" S DIC(""A"")=""Scan/Enter Patient: """
^XMB(3.9,100,2,963,0)="""RTN"",""PSDRFW"",31,0)"
^XMB(3.9,100,2,964,0)=" W ! D ^DIC K DIC G:Y<1 END S PAT=+Y"
^XMB(3.9,100,2,965,0)="""RTN"",""PSDRFW"",32,0)"
^XMB(3.9,100,2,966,0)="DRUG ;select drug"
^XMB(3.9,100,2,967,0)="""RTN"",""PSDRFW"",33,0)"
^XMB(3.9,100,2,968,0)=" N DIR,PSD,PSDA,PSDR,PSDQ,PSDDT"
^XMB(3.9,100,2,969,0)="""RTN"",""PSDRFW"",34,0)"
^XMB(3.9,100,2,970,0)=" S DIR(0)=""FAO^1:40"",DIR(""A"")=""Scan Drug Label or Enter Label # or Drug: """
^XMB(3.9,100,2,971,0)="""RTN"",""PSDRFW"",35,0)"
^XMB(3.9,100,2,972,0)=" W ! D ^DIR K DIR G:$D(DIRUT) END"
^XMB(3.9,100,2,973,0)="""RTN"",""PSDRFW"",36,0)"
^XMB(3.9,100,2,974,0)=" I $L(Y)=1,Y'="" "" W $C(7),!!,""Please enter more than one character."",! G DRUG"
^XMB(3.9,100,2,975,0)="""RTN"",""PSDRFW"",37,0)"
^XMB(3.9,100,2,976,0)=" I $O(^PSD(58.81,""D"",Y,0)) D"
^XMB(3.9,100,2,977,0)="""RTN"",""PSDRFW"",38,0)"
^XMB(3.9,100,2,978,0)=" .S PSD=0"
^XMB(3.9,100,2,979,0)="""RTN"",""PSDRFW"",39,0)"
^XMB(3.9,100,2,980,0)=" .F  S PSD=$O(^PSD(58.81,""D"",Y,PSD)) Q:'PSD  S PSD(1)=$G(^PSD(58.81,PSD,0)) I $P(PSD(1),U,11)>3,$P(PSD(1),U,18)=NAOU S PSDR=$P(PSD(1),U,5),PSDPN=$P(PSD(1),U,17),PSDTYP=17"
^XMB(3.9,100,2,981,0)="""RTN"",""PSDRFW"",40,0)"
^XMB(3.9,100,2,982,0)=" I $D(PSDR),PSDR'=Y D"
^XMB(3.9,100,2,983,0)="""RTN"",""PSDRFW"",41,0)"
^XMB(3.9,100,2,984,0)=" .I $D(^PSDRUG(Y)),$D(^PSD(58.8,NAOU,1,Y)) D"
^XMB(3.9,100,2,985,0)="""RTN"",""PSDRFW"",42,0)"
^XMB(3.9,100,2,986,0)=" ..S PSDDT=$$FMDIFF^DILIBF(DT,$P(PSD(1),U,4),"""")"
^XMB(3.9,100,2,987,0)="""RTN"",""PSDRFW"",43,0)"
^XMB(3.9,100,2,988,0)=" ..I PSDDT>365 S PSDR=Y"
^XMB(3.9,100,2,989,0)="""RTN"",""PSDRFW"",44,0)"
^XMB(3.9,100,2,990,0)=" .I '$D(^PSDRUG(Y)),$D(PSD(1)) D"
^XMB(3.9,100,2,991,0)="""RTN"",""PSDRFW"",45,0)"
^XMB(3.9,100,2,992,0)=" ..S PSDDT=$$FMDIFF^DILIBF(DT,$P(PSD(1),U,4),"""")"
^XMB(3.9,100,2,993,0)="""RTN"",""PSDRFW"",46,0)"
^XMB(3.9,100,2,994,0)=" ..I PSDDT>365 K PSDR"
^XMB(3.9,100,2,995,0)="""RTN"",""PSDRFW"",47,0)"
^XMB(3.9,100,2,996,0)=" .I '$D(^PSDRUG(Y)),'$D(^PSD(58.8,NAOU,1,Y)),'$D(PSDR) W $C(7),!!,""This is not a valid Pharmacy Dispensing number for this ward."",!! G END"
^XMB(3.9,100,2,997,0)="""RTN"",""PSDRFW"",48,0)"
^XMB(3.9,100,2,998,0)=" D:'$G(PSDR)  G:$D(DTOUT)!($D(DUOUT)) END G:Y<1 PATIENT"
^XMB(3.9,100,2,999,0)="""RTN"",""PSDRFW"",49,0)"
^XMB(3.9,100,2,1000,0)=" .S DIC=""^PSD(58.8,NAOU,1,"",DIC(0)=""EMQSZ"",DA(1)=NAOU"
^XMB(3.9,100,2,1001,0)="""RTN"",""PSDRFW"",50,0)"
^XMB(3.9,100,2,1002,0)=" .W ! D ^DIC K DIC I $D(DTOUT)!($D(DUOUT))!(Y<1) W $C(7),!!,""This is not a valid Pharmacy Dispensing number for this ward."",!! Q"
^XMB(3.9,100,2,1003,0)="""RTN"",""PSDRFW"",51,0)"
^XMB(3.9,100,2,1004,0)=" .S PSDR=+Y,PSDTYP=17"
^XMB(3.9,100,2,1005,0)="""RTN"",""PSDRFW"",52,0)"
^XMB(3.9,100,2,1006,0)=" I '$G(PSDR) W $C(7),!!,""This is not a valid Pharmacy Dispensing number for this ward."",!! G END"
^XMB(3.9,100,2,1007,0)="""RTN"",""PSDRFW"",53,0)"
^XMB(3.9,100,2,1008,0)=" W:$G(PSDR) !!,$P($G(^PSDRUG(PSDR,0)),U)"
^XMB(3.9,100,2,1009,0)="""RTN"",""PSDRFW"",54,0)"
^XMB(3.9,100,2,1010,0)="BAL S PSDR(1)=$G(^PSD(58.8,NAOU,1,PSDR,0)),OQTY=$P(PSDR(1),U,4)"
^XMB(3.9,100,2,1011,0)="""RTN"",""PSDRFW"",55,0)"
^XMB(3.9,100,2,1012,0)=" ;PSD*3*25 (DAVE B)"
^XMB(3.9,100,2,1013,0)="""RTN"",""PSDRFW"",56,0)"
^XMB(3.9,100,2,1014,0)=" K PSDDAVE D ^PSDRFV I $G(PSDDAVE)=1 K PSDDAVE S PSDOUT=1 G END"
^XMB(3.9,100,2,1015,0)="""RTN"",""PSDRFW"",57,0)"
^XMB(3.9,100,2,1016,0)=" I '$G(PSDA(1)) W !!,""No doses signed out"",!! G END"
^XMB(3.9,100,2,1017,0)="""RTN"",""PSDRFW"",58,0)"
^XMB(3.9,100,2,1018,0)=" S OQTY=$P($G(^PSD(58.81,PSDA(1),0)),U,6)"
^XMB(3.9,100,2,1019,0)="""RTN"",""PSDRFW"",59,0)"
^XMB(3.9,100,2,1020,0)=" I $$FMADD^XLFDT(PSDA(3),"""",NAOU(1))<$$NOW^XLFDT W !!,""The last dose was signed out at "",PSDA(2),"", over "",NAOU(1),"" hours ago."",!!,""It is too late to record wastage."",!! G END"
^XMB(3.9,100,2,1021,0)="""RTN"",""PSDRFW"",60,0)"
^XMB(3.9,100,2,1022,0)=" I PSDA(4)'=DUZ W !!,""Sorry, only the person that signed out the dose can record delayed wastage."",!! G END"
^XMB(3.9,100,2,1023,0)="""RTN"",""PSDRFW"",61,0)"
^XMB(3.9,100,2,1024,0)=" ;S DIR(0)=""Y"",DIR(""A"")=""Starting Balance:  ""_OQTY_"" ""_$P(PSDR(1),U,8)_""     Correct count"""
^XMB(3.9,100,2,1025,0)="""RTN"",""PSDRFW"",62,0)"
^XMB(3.9,100,2,1026,0)=" ;S DIR(""B"")=""Yes"",NUR1=DUZ"
^XMB(3.9,100,2,1027,0)="""RTN"",""PSDRFW"",63,0)"
^XMB(3.9,100,2,1028,0)=" ;S DIR(""?"")=""Answer Yes if the amount on hand equals the starting balance."""
^XMB(3.9,100,2,1029,0)="""RTN"",""PSDRFW"",64,0)"
^XMB(3.9,100,2,1030,0)=" ;W ! D ^DIR K DIR G:$D(DIRUT) END"
^XMB(3.9,100,2,1031,0)="""RTN"",""PSDRFW"",65,0)"
^XMB(3.9,100,2,1032,0)=" ;I Y=0 D ^PSDRF2 G:$G(PSDOUT) END S $P(PSDR(1),U,4)=PSDQ(1),OQTY=PSDQ(1)"
^XMB(3.9,100,2,1033,0)="""RTN"",""PSDRFW"",66,0)"
^XMB(3.9,100,2,1034,0)="QTY S DIR(0)=""NA^0:""_OQTY_"":2"""
^XMB(3.9,100,2,1035,0)="""RTN"",""PSDRFW"",67,0)"
^XMB(3.9,100,2,1036,0)=" S DIR(""A"")=""Amount actually given at ""_PSDA(2)_"": """
^XMB(3.9,100,2,1037,0)="""RTN"",""PSDRFW"",68,0)"
^XMB(3.9,100,2,1038,0)=" W ! D ^DIR K DIR I $D(DIRUT)!(Y=OQTY) S PSDOUT=1 G END"
^XMB(3.9,100,2,1039,0)="""RTN"",""PSDRFW"",69,0)"
^XMB(3.9,100,2,1040,0)=" S PSDQ=Y"
^XMB(3.9,100,2,1041,0)="""RTN"",""PSDRFW"",70,0)"
^XMB(3.9,100,2,1042,0)="WASTE I PSDQ'=OQTY D  G:$G(PSDOUT) END"
^XMB(3.9,100,2,1043,0)="""RTN"",""PSDRFW"",71,0)"
^XMB(3.9,100,2,1044,0)=" .I (OQTY-PSDQ)>1 D  Q:$G(PSDOUT)  G REA"
^XMB(3.9,100,2,1045,0)="""RTN"",""PSDRFW"",72,0)"
^XMB(3.9,100,2,1046,0)=" ..S DIR(0)=""N^1:""_(OQTY-PSDQ)_"":2"",DIR(""A"")=""Amount wasted"""
^XMB(3.9,100,2,1047,0)="""RTN"",""PSDRFW"",73,0)"
^XMB(3.9,100,2,1048,0)=" ..S DIR(""B"")=OQTY-PSDQ D ^DIR K DIR I $D(DIRUT) S PSDOUT=1 Q"
^XMB(3.9,100,2,1049,0)="""RTN"",""PSDRFW"",74,0)"
^XMB(3.9,100,2,1050,0)=" ..S WQTY=Y S:OQTY-WQTY PSDQ(2)=OQTY-WQTY"
^XMB(3.9,100,2,1051,0)="""RTN"",""PSDRFW"",75,0)"
^XMB(3.9,100,2,1052,0)=" .S WQTY=$S('$G(PSDQ(1)):OQTY-PSDQ,1:PSDQ)"
^XMB(3.9,100,2,1053,0)="""RTN"",""PSDRFW"",76,0)"
^XMB(3.9,100,2,1054,0)=" .W ?55,""Amount wasted: "",WQTY,!"
^XMB(3.9,100,2,1055,0)="""RTN"",""PSDRFW"",77,0)"
^XMB(3.9,100,2,1056,0)="REA .S DIR(0)=""58.81,15"" D ^DIR K DIR I $D(DIRUT) S PSDOUT=1 Q"
^XMB(3.9,100,2,1057,0)="""RTN"",""PSDRFW"",78,0)"
^XMB(3.9,100,2,1058,0)=" .S PSDRE=Y"
^XMB(3.9,100,2,1059,0)="""RTN"",""PSDRFW"",79,0)"
^XMB(3.9,100,2,1060,0)="WIT .W ! S NUR2=$$WITNESS^XUVERIFY(""WITNESS"")"
^XMB(3.9,100,2,1061,0)="""RTN"",""PSDRFW"",80,0)"
^XMB(3.9,100,2,1062,0)=" .I NUR2=DUZ W !!,""Wait a minute, you can't witness yourself!"",$C(7) G WIT"
^XMB(3.9,100,2,1063,0)="""RTN"",""PSDRFW"",81,0)"
^XMB(3.9,100,2,1064,0)=" .I NUR2'>0 S PSDOUT=1 Q"
^XMB(3.9,100,2,1065,0)="""RTN"",""PSDRFW"",82,0)"
^XMB(3.9,100,2,1066,0)=" .W !!,""Thank you, "",$S($P($G(^VA(200,NUR2,.1)),U,4)]"""":$P($G(^(.1)),U,4),1:$P($G(^VA(200,NUR2,0)),U))"
^XMB(3.9,100,2,1067,0)="""RTN"",""PSDRFW"",83,0)"
^XMB(3.9,100,2,1068,0)=" ;VMP OIFO BAY PINES;VGF;PSD*3.0*53;REMOVED CALL TO WASTE^PSDRFR"
^XMB(3.9,100,2,1069,0)="""RTN"",""PSDRFW"",84,0)"
^XMB(3.9,100,2,1070,0)=" D EDIT^PSDRFX"
^XMB(3.9,100,2,1071,0)="""RTN"",""PSDRFW"",85,0)"
^XMB(3.9,100,2,1072,0)="END I $G(PSDQ(1)),$G(PSDOUT) S $P(^PSD(58.81,PSDA(1),0),U,6)=PSDQ"
^XMB(3.9,100,2,1073,0)="""RTN"",""PSDRFW"",86,0)"
^XMB(3.9,100,2,1074,0)=" W:$G(PSDOUT) !!,""No wastage recorded."",$C(7),!! K %,%DT,%H,%I,CNT,CNT1,DA,DIC,DIE,DINUM,DIR,DIROUT,DIRUT,DIWF,DIWL,DIWR,DR,DTOUT,DUOUT,LN,MSG,MSG1,PSDTYP,NUR2"
^XMB(3.9,100,2,1075,0)="""RTN"",""PSDRFW"",87,0)"
^XMB(3.9,100,2,1076,0)=" K NAOU,NAOUN,NBKU,NPKG,OK,OKTYP,ORD,PAT,PSDA,PSDEM,PSDOUT,PSDQTY,PSDRD,PSDR,PSDRE,PSDRN,PSDS,PSDT,PSDUZ,PSDUZN,PSDPN,REQD,TEXT,TYPE,WQTY,OQTY,PSDQ,WORD,NUR1,X,Y"
^XMB(3.9,100,2,1077,0)="""RTN"",""PSDRFW"",88,0)"
^XMB(3.9,100,2,1078,0)=" Q"
^XMB(3.9,100,2,1079,0)="""RTN"",""PSDRFW"",89,0)"
^XMB(3.9,100,2,1080,0)="MSG ;display error message"
^XMB(3.9,100,2,1081,0)="""RTN"",""PSDRFW"",90,0)"
^XMB(3.9,100,2,1082,0)=" W $C(7),!!,?10,""Contact your Pharmacy Coordinator."",!,?10,""This ""_$S(MSG=2:""Dispensing Site"",MSG=1:""NAOU"",1:""Drug"")_"" is missing """
^XMB(3.9,100,2,1083,0)="""RTN"",""PSDRFW"",91,0)"
^XMB(3.9,100,2,1084,0)=" W $S(MSG1=1:""Primary Disp. Site"",MSG1=2:""stocked drugs"",MSG1=3:""narcotic breakdown unit"",MSG1=4:""narcotic package size"",1:""data"")_""."",!"
^XMB(3.9,100,2,1085,0)="""RTN"",""PSDRFW"",92,0)"
^XMB(3.9,100,2,1086,0)=" Q"
^XMB(3.9,100,2,1087,0)="""VER"")"
^XMB(3.9,100,2,1088,0)="8.0^22.0"
^XMB(3.9,100,2,1089,0)="""BLD"",6540,6)"
^XMB(3.9,100,2,1090,0)="^50"
^XMB(3.9,100,2,1091,0)="$END KID PSD*3.0*60"
^XMB(3.9,100,6,0)="^3.911A^2^2"
^XMB(3.9,100,6,1,0)="POSTMASTER"
^XMB(3.9,100,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,100,6,"B","POSTMASTER",1)=""
^XMB(3.9,100,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,101,0)="PSJ-5_SEQ-152_PAT-154.KID^.5^3061008.01574^^^^K"
^XMB(3.9,101,.6)="3061008"
^XMB(3.9,101,1,0)="^3.91A^2^2"
^XMB(3.9,101,1,1,0)=".5^0^3061008.01574^^^^^^^3061008.01574"
^XMB(3.9,101,1,2,0)="1^0^3061008.022238^^^^^^^3061008.022238"
^XMB(3.9,101,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,101,1,"C",.5,1)=""
^XMB(3.9,101,1,"C",1,2)=""
^XMB(3.9,101,2,0)="^^1359^1359^3061008"
^XMB(3.9,101,2,1,0)="$TXT Released PSJ*5*154 SEQ #152"
^XMB(3.9,101,2,2,0)="Extracted from mail message"
^XMB(3.9,101,2,3,0)="$END TXT"
^XMB(3.9,101,2,4,0)="$KID PSJ*5.0*154"
^XMB(3.9,101,2,5,0)="**INSTALL NAME**"
^XMB(3.9,101,2,6,0)="PSJ*5.0*154"
^XMB(3.9,101,2,7,0)="""BLD"",5988,0)"
^XMB(3.9,101,2,8,0)="PSJ*5.0*154^INPATIENT MEDICATIONS^0^3051213^y"
^XMB(3.9,101,2,9,0)="""BLD"",5988,1,0)"
^XMB(3.9,101,2,10,0)="^^15^15^3050810^"
^XMB(3.9,101,2,11,0)="""BLD"",5988,1,1,0)"
^XMB(3.9,101,2,12,0)=" 1. PSI-05-051:  A priority status of ASAP is not easily seen by the "
^XMB(3.9,101,2,13,0)="""BLD"",5988,1,2,0)"
^XMB(3.9,101,2,14,0)="    finishing pharmacist.  A STAT order is displayed as blinking and "
^XMB(3.9,101,2,15,0)="""BLD"",5988,1,3,0)"
^XMB(3.9,101,2,16,0)="    highlighted, but a ASAP order does not have any special visual"
^XMB(3.9,101,2,17,0)="""BLD"",5988,1,4,0)"
^XMB(3.9,101,2,18,0)="    effects.  "
^XMB(3.9,101,2,19,0)="""BLD"",5988,1,5,0)"
^XMB(3.9,101,2,20,0)=" "
^XMB(3.9,101,2,21,0)="""BLD"",5988,1,6,0)"
^XMB(3.9,101,2,22,0)="    In order to avoid adding more special visual effects to the screen "
^XMB(3.9,101,2,23,0)="""BLD"",5988,1,7,0)"
^XMB(3.9,101,2,24,0)="    this patch is designed to offer a Site Ward Parameter that will allow"
^XMB(3.9,101,2,25,0)="""BLD"",5988,1,8,0)"
^XMB(3.9,101,2,26,0)="    the site a choice of what orders are sent to the STAT NOW MAIL GROUP."
^XMB(3.9,101,2,27,0)="""BLD"",5988,1,9,0)"
^XMB(3.9,101,2,28,0)="    The site can select STAT, ASAP, or NOW orders, or any combination of "
^XMB(3.9,101,2,29,0)="""BLD"",5988,1,10,0)"
^XMB(3.9,101,2,30,0)="    the three for notification via the STAT NOW MAIL GROUP functionality."
^XMB(3.9,101,2,31,0)="""BLD"",5988,1,11,0)"
^XMB(3.9,101,2,32,0)=" "
^XMB(3.9,101,2,33,0)="""BLD"",5988,1,12,0)"
^XMB(3.9,101,2,34,0)=" 2. Remedy Ticket #106018:  Stat IV orders are not highlighted and "
^XMB(3.9,101,2,35,0)="""BLD"",5988,1,13,0)"
^XMB(3.9,101,2,36,0)="    flashing like Stat Unit Dose orders.  This patch adds the code"
^XMB(3.9,101,2,37,0)="""BLD"",5988,1,14,0)"
^XMB(3.9,101,2,38,0)="    required to make Stat IV orders highlighted and flash like Stat Unit"
^XMB(3.9,101,2,39,0)="""BLD"",5988,1,15,0)"
^XMB(3.9,101,2,40,0)="    Dose orders."
^XMB(3.9,101,2,41,0)="""BLD"",5988,4,0)"
^XMB(3.9,101,2,42,0)="^9.64PA^59.6^1"
^XMB(3.9,101,2,43,0)="""BLD"",5988,4,59.6,0)"
^XMB(3.9,101,2,44,0)="59.6"
^XMB(3.9,101,2,45,0)="""BLD"",5988,4,59.6,2,0)"
^XMB(3.9,101,2,46,0)="^9.641^59.6^1"
^XMB(3.9,101,2,47,0)="""BLD"",5988,4,59.6,2,59.6,0)"
^XMB(3.9,101,2,48,0)="INPATIENT WARD PARAMETERS  (File-top level)"
^XMB(3.9,101,2,49,0)="""BLD"",5988,4,59.6,2,59.6,1,0)"
^XMB(3.9,101,2,50,0)="^9.6411^6^1"
^XMB(3.9,101,2,51,0)="""BLD"",5988,4,59.6,2,59.6,1,6,0)"
^XMB(3.9,101,2,52,0)="PRIORITIES FOR NOTIFICATION"
^XMB(3.9,101,2,53,0)="""BLD"",5988,4,59.6,222)"
^XMB(3.9,101,2,54,0)="y^y^p^^^^n^^n"
^XMB(3.9,101,2,55,0)="""BLD"",5988,4,59.6,224)"
^XMB(3.9,101,2,56,0)=""
^XMB(3.9,101,2,57,0)="""BLD"",5988,4,""APDD"",59.6,59.6)"
^XMB(3.9,101,2,58,0)=""
^XMB(3.9,101,2,59,0)="""BLD"",5988,4,""APDD"",59.6,59.6,6)"
^XMB(3.9,101,2,60,0)=""
^XMB(3.9,101,2,61,0)="""BLD"",5988,4,""B"",59.6,59.6)"
^XMB(3.9,101,2,62,0)=""
^XMB(3.9,101,2,63,0)="""BLD"",5988,6)"
^XMB(3.9,101,2,64,0)="4^"
^XMB(3.9,101,2,65,0)="""BLD"",5988,""KRN"",0)"
^XMB(3.9,101,2,66,0)="^9.67PA^8989.52^19"
^XMB(3.9,101,2,67,0)="""BLD"",5988,""KRN"",.4,0)"
^XMB(3.9,101,2,68,0)=".4"
^XMB(3.9,101,2,69,0)="""BLD"",5988,""KRN"",.401,0)"
^XMB(3.9,101,2,70,0)=".401"
^XMB(3.9,101,2,71,0)="""BLD"",5988,""KRN"",.402,0)"
^XMB(3.9,101,2,72,0)=".402"
^XMB(3.9,101,2,73,0)="""BLD"",5988,""KRN"",.402,""NM"",0)"
^XMB(3.9,101,2,74,0)="^9.68A^1^1"
^XMB(3.9,101,2,75,0)="""BLD"",5988,""KRN"",.402,""NM"",1,0)"
^XMB(3.9,101,2,76,0)="PSJ IWP EDIT    FILE #59.6^59.6^0"
^XMB(3.9,101,2,77,0)="""BLD"",5988,""KRN"",.402,""NM"",""B"",""PSJ IWP EDIT    FILE #59.6"",1)"
^XMB(3.9,101,2,78,0)=""
^XMB(3.9,101,2,79,0)="""BLD"",5988,""KRN"",.403,0)"
^XMB(3.9,101,2,80,0)=".403"
^XMB(3.9,101,2,81,0)="""BLD"",5988,""KRN"",.403,""NM"",0)"
^XMB(3.9,101,2,82,0)="^9.68A^^"
^XMB(3.9,101,2,83,0)="""BLD"",5988,""KRN"",.5,0)"
^XMB(3.9,101,2,84,0)=".5"
^XMB(3.9,101,2,85,0)="""BLD"",5988,""KRN"",.84,0)"
^XMB(3.9,101,2,86,0)=".84"
^XMB(3.9,101,2,87,0)="""BLD"",5988,""KRN"",3.6,0)"
^XMB(3.9,101,2,88,0)="3.6"
^XMB(3.9,101,2,89,0)="""BLD"",5988,""KRN"",3.8,0)"
^XMB(3.9,101,2,90,0)="3.8"
^XMB(3.9,101,2,91,0)="""BLD"",5988,""KRN"",9.2,0)"
^XMB(3.9,101,2,92,0)="9.2"
^XMB(3.9,101,2,93,0)="""BLD"",5988,""KRN"",9.8,0)"
^XMB(3.9,101,2,94,0)="9.8"
^XMB(3.9,101,2,95,0)="""BLD"",5988,""KRN"",9.8,""NM"",0)"
^XMB(3.9,101,2,96,0)="^9.68A^4^4"
^XMB(3.9,101,2,97,0)="""BLD"",5988,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,101,2,98,0)="PSJHL4^^0^B75218206"
^XMB(3.9,101,2,99,0)="""BLD"",5988,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,101,2,100,0)="PSJLMPRI^^0^B18941536"
^XMB(3.9,101,2,101,0)="""BLD"",5988,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,101,2,102,0)="PSGFILED^^0^B24370324"
^XMB(3.9,101,2,103,0)="""BLD"",5988,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,101,2,104,0)="PSJHL4A^^0^B36548779"
^XMB(3.9,101,2,105,0)="""BLD"",5988,""KRN"",9.8,""NM"",""B"",""PSGFILED"",3)"
^XMB(3.9,101,2,106,0)=""
^XMB(3.9,101,2,107,0)="""BLD"",5988,""KRN"",9.8,""NM"",""B"",""PSJHL4"",1)"
^XMB(3.9,101,2,108,0)=""
^XMB(3.9,101,2,109,0)="""BLD"",5988,""KRN"",9.8,""NM"",""B"",""PSJHL4A"",4)"
^XMB(3.9,101,2,110,0)=""
^XMB(3.9,101,2,111,0)="""BLD"",5988,""KRN"",9.8,""NM"",""B"",""PSJLMPRI"",2)"
^XMB(3.9,101,2,112,0)=""
^XMB(3.9,101,2,113,0)="""BLD"",5988,""KRN"",19,0)"
^XMB(3.9,101,2,114,0)="19"
^XMB(3.9,101,2,115,0)="""BLD"",5988,""KRN"",19.1,0)"
^XMB(3.9,101,2,116,0)="19.1"
^XMB(3.9,101,2,117,0)="""BLD"",5988,""KRN"",101,0)"
^XMB(3.9,101,2,118,0)="101"
^XMB(3.9,101,2,119,0)="""BLD"",5988,""KRN"",409.61,0)"
^XMB(3.9,101,2,120,0)="409.61"
^XMB(3.9,101,2,121,0)="""BLD"",5988,""KRN"",771,0)"
^XMB(3.9,101,2,122,0)="771"
^XMB(3.9,101,2,123,0)="""BLD"",5988,""KRN"",870,0)"
^XMB(3.9,101,2,124,0)="870"
^XMB(3.9,101,2,125,0)="""BLD"",5988,""KRN"",8989.51,0)"
^XMB(3.9,101,2,126,0)="8989.51"
^XMB(3.9,101,2,127,0)="""BLD"",5988,""KRN"",8989.52,0)"
^XMB(3.9,101,2,128,0)="8989.52"
^XMB(3.9,101,2,129,0)="""BLD"",5988,""KRN"",8994,0)"
^XMB(3.9,101,2,130,0)="8994"
^XMB(3.9,101,2,131,0)="""BLD"",5988,""KRN"",""B"",.4,.4)"
^XMB(3.9,101,2,132,0)=""
^XMB(3.9,101,2,133,0)="""BLD"",5988,""KRN"",""B"",.401,.401)"
^XMB(3.9,101,2,134,0)=""
^XMB(3.9,101,2,135,0)="""BLD"",5988,""KRN"",""B"",.402,.402)"
^XMB(3.9,101,2,136,0)=""
^XMB(3.9,101,2,137,0)="""BLD"",5988,""KRN"",""B"",.403,.403)"
^XMB(3.9,101,2,138,0)=""
^XMB(3.9,101,2,139,0)="""BLD"",5988,""KRN"",""B"",.5,.5)"
^XMB(3.9,101,2,140,0)=""
^XMB(3.9,101,2,141,0)="""BLD"",5988,""KRN"",""B"",.84,.84)"
^XMB(3.9,101,2,142,0)=""
^XMB(3.9,101,2,143,0)="""BLD"",5988,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,101,2,144,0)=""
^XMB(3.9,101,2,145,0)="""BLD"",5988,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,101,2,146,0)=""
^XMB(3.9,101,2,147,0)="""BLD"",5988,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,101,2,148,0)=""
^XMB(3.9,101,2,149,0)="""BLD"",5988,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,101,2,150,0)=""
^XMB(3.9,101,2,151,0)="""BLD"",5988,""KRN"",""B"",19,19)"
^XMB(3.9,101,2,152,0)=""
^XMB(3.9,101,2,153,0)="""BLD"",5988,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,101,2,154,0)=""
^XMB(3.9,101,2,155,0)="""BLD"",5988,""KRN"",""B"",101,101)"
^XMB(3.9,101,2,156,0)=""
^XMB(3.9,101,2,157,0)="""BLD"",5988,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,101,2,158,0)=""
^XMB(3.9,101,2,159,0)="""BLD"",5988,""KRN"",""B"",771,771)"
^XMB(3.9,101,2,160,0)=""
^XMB(3.9,101,2,161,0)="""BLD"",5988,""KRN"",""B"",870,870)"
^XMB(3.9,101,2,162,0)=""
^XMB(3.9,101,2,163,0)="""BLD"",5988,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,101,2,164,0)=""
^XMB(3.9,101,2,165,0)="""BLD"",5988,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,101,2,166,0)=""
^XMB(3.9,101,2,167,0)="""BLD"",5988,""KRN"",""B"",8994,8994)"
^XMB(3.9,101,2,168,0)=""
^XMB(3.9,101,2,169,0)="""BLD"",5988,""QUES"",0)"
^XMB(3.9,101,2,170,0)="^9.62^^"
^XMB(3.9,101,2,171,0)="""BLD"",5988,""REQB"",0)"
^XMB(3.9,101,2,172,0)="^9.611^3^3"
^XMB(3.9,101,2,173,0)="""BLD"",5988,""REQB"",1,0)"
^XMB(3.9,101,2,174,0)="PSJ*5.0*112^2"
^XMB(3.9,101,2,175,0)="""BLD"",5988,""REQB"",2,0)"
^XMB(3.9,101,2,176,0)="PSJ*5.0*133^2"
^XMB(3.9,101,2,177,0)="""BLD"",5988,""REQB"",3,0)"
^XMB(3.9,101,2,178,0)="PSS*1.0*103^2"
^XMB(3.9,101,2,179,0)="""BLD"",5988,""REQB"",""B"",""PSJ*5.0*112"",1)"
^XMB(3.9,101,2,180,0)=""
^XMB(3.9,101,2,181,0)="""BLD"",5988,""REQB"",""B"",""PSJ*5.0*133"",2)"
^XMB(3.9,101,2,182,0)=""
^XMB(3.9,101,2,183,0)="""BLD"",5988,""REQB"",""B"",""PSS*1.0*103"",3)"
^XMB(3.9,101,2,184,0)=""
^XMB(3.9,101,2,185,0)="""FIA"",59.6)"
^XMB(3.9,101,2,186,0)="INPATIENT WARD PARAMETERS"
^XMB(3.9,101,2,187,0)="""FIA"",59.6,0)"
^XMB(3.9,101,2,188,0)="^PS(59.6,"
^XMB(3.9,101,2,189,0)="""FIA"",59.6,0,0)"
^XMB(3.9,101,2,190,0)="59.6P"
^XMB(3.9,101,2,191,0)="""FIA"",59.6,0,1)"
^XMB(3.9,101,2,192,0)="y^y^p^^^^n^^n"
^XMB(3.9,101,2,193,0)="""FIA"",59.6,0,10)"
^XMB(3.9,101,2,194,0)=""
^XMB(3.9,101,2,195,0)="""FIA"",59.6,0,11)"
^XMB(3.9,101,2,196,0)=""
^XMB(3.9,101,2,197,0)="""FIA"",59.6,0,""RLRO"")"
^XMB(3.9,101,2,198,0)=""
^XMB(3.9,101,2,199,0)="""FIA"",59.6,0,""VR"")"
^XMB(3.9,101,2,200,0)="5.0^PSJ"
^XMB(3.9,101,2,201,0)="""FIA"",59.6,59.6)"
^XMB(3.9,101,2,202,0)="1"
^XMB(3.9,101,2,203,0)="""FIA"",59.6,59.6,6)"
^XMB(3.9,101,2,204,0)=""
^XMB(3.9,101,2,205,0)="""KRN"",.402,1792,-1)"
^XMB(3.9,101,2,206,0)="0^1"
^XMB(3.9,101,2,207,0)="""KRN"",.402,1792,0)"
^XMB(3.9,101,2,208,0)="PSJ IWP EDIT^3050727.1635^ ^59.6^^^3051213"
^XMB(3.9,101,2,209,0)="""KRN"",.402,1792,""%D"",0)"
^XMB(3.9,101,2,210,0)="^.4021^3^3^3040617^^^^"
^XMB(3.9,101,2,211,0)="""KRN"",.402,1792,""%D"",1,0)"
^XMB(3.9,101,2,212,0)="  Used by the Inpatient Medications package t allow the Inpatient"
^XMB(3.9,101,2,213,0)="""KRN"",.402,1792,""%D"",2,0)"
^XMB(3.9,101,2,214,0)="Supervisor to tailor various aspects of the package on a ward-by-ward"
^XMB(3.9,101,2,215,0)="""KRN"",.402,1792,""%D"",3,0)"
^XMB(3.9,101,2,216,0)="basis."
^XMB(3.9,101,2,217,0)="""KRN"",.402,1792,""DR"",1,59.6)"
^XMB(3.9,101,2,218,0)=".03;S X="""";3;.04;.07;.05;.08;.12;.19;.16;.2;.15;.18;.11;1;2;.24;4;5;6;"
^XMB(3.9,101,2,219,0)="""MBREQ"")"
^XMB(3.9,101,2,220,0)="0"
^XMB(3.9,101,2,221,0)="""ORD"",7,.402)"
^XMB(3.9,101,2,222,0)=".402;7;;;EDEOUT^DIFROMSO(.402,DA,"""",XPDA);FPRE^DIFROMSI(.402,"""",XPDA);EPRE^DIFROMSI(.402,DA,$E(""N"",$G(XPDNEW)),XPDA,"""",OLDA);;EPOST^DIFROMSI(.402,DA,"""",XPDA);DEL^DIFROMSK(.402,"""",%)"
^XMB(3.9,101,2,223,0)="""ORD"",7,.402,0)"
^XMB(3.9,101,2,224,0)="INPUT TEMPLATE"
^XMB(3.9,101,2,225,0)="""PKG"",221,-1)"
^XMB(3.9,101,2,226,0)="1^1"
^XMB(3.9,101,2,227,0)="""PKG"",221,0)"
^XMB(3.9,101,2,228,0)="INPATIENT MEDICATIONS^PSJ^UNIT DOSE AND IVS"
^XMB(3.9,101,2,229,0)="""PKG"",221,20,0)"
^XMB(3.9,101,2,230,0)="^9.402P^^"
^XMB(3.9,101,2,231,0)="""PKG"",221,22,0)"
^XMB(3.9,101,2,232,0)="^9.49I^1^1"
^XMB(3.9,101,2,233,0)="""PKG"",221,22,1,0)"
^XMB(3.9,101,2,234,0)="5.0^2971215^2981113^1"
^XMB(3.9,101,2,235,0)="""PKG"",221,22,1,""PAH"",1,0)"
^XMB(3.9,101,2,236,0)="154^3051213^520645566"
^XMB(3.9,101,2,237,0)="""PKG"",221,22,1,""PAH"",1,1,0)"
^XMB(3.9,101,2,238,0)="^^15^15^3051213"
^XMB(3.9,101,2,239,0)="""PKG"",221,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,101,2,240,0)=" 1. PSI-05-051:  A priority status of ASAP is not easily seen by the "
^XMB(3.9,101,2,241,0)="""PKG"",221,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,101,2,242,0)="    finishing pharmacist.  A STAT order is displayed as blinking and "
^XMB(3.9,101,2,243,0)="""PKG"",221,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,101,2,244,0)="    highlighted, but a ASAP order does not have any special visual"
^XMB(3.9,101,2,245,0)="""PKG"",221,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,101,2,246,0)="    effects.  "
^XMB(3.9,101,2,247,0)="""PKG"",221,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,101,2,248,0)=" "
^XMB(3.9,101,2,249,0)="""PKG"",221,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,101,2,250,0)="    In order to avoid adding more special visual effects to the screen "
^XMB(3.9,101,2,251,0)="""PKG"",221,22,1,""PAH"",1,1,7,0)"
^XMB(3.9,101,2,252,0)="    this patch is designed to offer a Site Ward Parameter that will allow"
^XMB(3.9,101,2,253,0)="""PKG"",221,22,1,""PAH"",1,1,8,0)"
^XMB(3.9,101,2,254,0)="    the site a choice of what orders are sent to the STAT NOW MAIL GROUP."
^XMB(3.9,101,2,255,0)="""PKG"",221,22,1,""PAH"",1,1,9,0)"
^XMB(3.9,101,2,256,0)="    The site can select STAT, ASAP, or NOW orders, or any combination of "
^XMB(3.9,101,2,257,0)="""PKG"",221,22,1,""PAH"",1,1,10,0)"
^XMB(3.9,101,2,258,0)="    the three for notification via the STAT NOW MAIL GROUP functionality."
^XMB(3.9,101,2,259,0)="""PKG"",221,22,1,""PAH"",1,1,11,0)"
^XMB(3.9,101,2,260,0)=" "
^XMB(3.9,101,2,261,0)="""PKG"",221,22,1,""PAH"",1,1,12,0)"
^XMB(3.9,101,2,262,0)=" 2. Remedy Ticket #106018:  Stat IV orders are not highlighted and "
^XMB(3.9,101,2,263,0)="""PKG"",221,22,1,""PAH"",1,1,13,0)"
^XMB(3.9,101,2,264,0)="    flashing like Stat Unit Dose orders.  This patch adds the code"
^XMB(3.9,101,2,265,0)="""PKG"",221,22,1,""PAH"",1,1,14,0)"
^XMB(3.9,101,2,266,0)="    required to make Stat IV orders highlighted and flash like Stat Unit"
^XMB(3.9,101,2,267,0)="""PKG"",221,22,1,""PAH"",1,1,15,0)"
^XMB(3.9,101,2,268,0)="    Dose orders."
^XMB(3.9,101,2,269,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,101,2,270,0)="Y"
^XMB(3.9,101,2,271,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,101,2,272,0)="^D REP^XPDH"
^XMB(3.9,101,2,273,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,101,2,274,0)="Shall I write over your |FLAG| File"
^XMB(3.9,101,2,275,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,101,2,276,0)="YES"
^XMB(3.9,101,2,277,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,101,2,278,0)="D XPF1^XPDIQ"
^XMB(3.9,101,2,279,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,101,2,280,0)="Y"
^XMB(3.9,101,2,281,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,101,2,282,0)="^D DTA^XPDH"
^XMB(3.9,101,2,283,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,101,2,284,0)="Want my data |FLAG| yours"
^XMB(3.9,101,2,285,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,101,2,286,0)="YES"
^XMB(3.9,101,2,287,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,101,2,288,0)="D XPF2^XPDIQ"
^XMB(3.9,101,2,289,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,101,2,290,0)="YO"
^XMB(3.9,101,2,291,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,101,2,292,0)="^D INHIBIT^XPDH"
^XMB(3.9,101,2,293,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,101,2,294,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,101,2,295,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,101,2,296,0)="YES"
^XMB(3.9,101,2,297,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,101,2,298,0)="D XPI1^XPDIQ"
^XMB(3.9,101,2,299,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,101,2,300,0)="PO^VA(200,:EM"
^XMB(3.9,101,2,301,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,101,2,302,0)="^D MG^XPDH"
^XMB(3.9,101,2,303,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,101,2,304,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,101,2,305,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,101,2,306,0)=""
^XMB(3.9,101,2,307,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,101,2,308,0)="D XPM1^XPDIQ"
^XMB(3.9,101,2,309,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,101,2,310,0)="Y"
^XMB(3.9,101,2,311,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,101,2,312,0)="^D MENU^XPDH"
^XMB(3.9,101,2,313,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,101,2,314,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,101,2,315,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,101,2,316,0)="YES"
^XMB(3.9,101,2,317,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,101,2,318,0)="D XPO1^XPDIQ"
^XMB(3.9,101,2,319,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,101,2,320,0)="Y"
^XMB(3.9,101,2,321,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,101,2,322,0)="^D OPT^XPDH"
^XMB(3.9,101,2,323,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,101,2,324,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,101,2,325,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,101,2,326,0)="YES"
^XMB(3.9,101,2,327,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,101,2,328,0)="D XPZ1^XPDIQ"
^XMB(3.9,101,2,329,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,101,2,330,0)="Y"
^XMB(3.9,101,2,331,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,101,2,332,0)="^D RTN^XPDH"
^XMB(3.9,101,2,333,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,101,2,334,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,101,2,335,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,101,2,336,0)="NO"
^XMB(3.9,101,2,337,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,101,2,338,0)="D XPZ2^XPDIQ"
^XMB(3.9,101,2,339,0)="""RTN"")"
^XMB(3.9,101,2,340,0)="4"
^XMB(3.9,101,2,341,0)="""RTN"",""PSGFILED"")"
^XMB(3.9,101,2,342,0)="0^3^B24370324^B24308978"
^XMB(3.9,101,2,343,0)="""RTN"",""PSGFILED"",1,0)"
^XMB(3.9,101,2,344,0)="PSGFILED ;BIR/CML3-VARIOUS FILES' UPKEEP ;16 Mar 99 / 10:22 AM"
^XMB(3.9,101,2,345,0)="""RTN"",""PSGFILED"",2,0)"
^XMB(3.9,101,2,346,0)=" ;;5.0; INPATIENT MEDICATIONS ;**20,50,63,119,110,111,112,154**;16 DEC 97"
^XMB(3.9,101,2,347,0)="""RTN"",""PSGFILED"",3,0)"
^XMB(3.9,101,2,348,0)=" ;"
^XMB(3.9,101,2,349,0)="""RTN"",""PSGFILED"",4,0)"
^XMB(3.9,101,2,350,0)=" ; Reference to ^PS(50.606 supported by DBIA# 2174."
^XMB(3.9,101,2,351,0)="""RTN"",""PSGFILED"",5,0)"
^XMB(3.9,101,2,352,0)=" ; Reference to ^PSDRUG supported by DBIA# 2192."
^XMB(3.9,101,2,353,0)="""RTN"",""PSGFILED"",6,0)"
^XMB(3.9,101,2,354,0)=" ; Reference to ^PS(59.7 is supported by DBIA# 2181."
^XMB(3.9,101,2,355,0)="""RTN"",""PSGFILED"",7,0)"
^XMB(3.9,101,2,356,0)=" ; Reference to ^PS(51 is supported by DBIA# 2176."
^XMB(3.9,101,2,357,0)="""RTN"",""PSGFILED"",8,0)"
^XMB(3.9,101,2,358,0)=" ; Reference to ^PS(51.2 is supported by DBIA# 2178."
^XMB(3.9,101,2,359,0)="""RTN"",""PSGFILED"",9,0)"
^XMB(3.9,101,2,360,0)=" ; Reference to ^PS(55 is supported by DBIA# 2191."
^XMB(3.9,101,2,361,0)="""RTN"",""PSGFILED"",10,0)"
^XMB(3.9,101,2,362,0)=" ;"
^XMB(3.9,101,2,363,0)="""RTN"",""PSGFILED"",11,0)"
^XMB(3.9,101,2,364,0)="DONE D ENKV^PSGSETU K D0,D1,D2,PSGRBS Q"
^XMB(3.9,101,2,365,0)="""RTN"",""PSGFILED"",12,0)"
^XMB(3.9,101,2,366,0)=" ;"
^XMB(3.9,101,2,367,0)="""RTN"",""PSGFILED"",13,0)"
^XMB(3.9,101,2,368,0)="GED ; generic edit"
^XMB(3.9,101,2,369,0)="""RTN"",""PSGFILED"",14,0)"
^XMB(3.9,101,2,370,0)=" S DA=+Y,DR="".01;1"" W ! D ^DIE Q"
^XMB(3.9,101,2,371,0)="""RTN"",""PSGFILED"",15,0)"
^XMB(3.9,101,2,372,0)=" ;"
^XMB(3.9,101,2,373,0)="""RTN"",""PSGFILED"",16,0)"
^XMB(3.9,101,2,374,0)="ENAT ; team file"
^XMB(3.9,101,2,375,0)="""RTN"",""PSGFILED"",17,0)"
^XMB(3.9,101,2,376,0)=" F  S DIC=""^PS(57.7,"",DIC(0)=""QEAMIL"",DLAYGO=57.7,DIC(""A"")=""Select WARD: "" W ! D ^DIC K DIC,DLAYGO Q:Y'>0  S DA=+Y,DIE=""^PS(57.7,"",DR=""[PSJUMATE]"" D ^DIE"
^XMB(3.9,101,2,377,0)="""RTN"",""PSGFILED"",18,0)"
^XMB(3.9,101,2,378,0)=" G DONE"
^XMB(3.9,101,2,379,0)="""RTN"",""PSGFILED"",19,0)"
^XMB(3.9,101,2,380,0)=" ;"
^XMB(3.9,101,2,381,0)="""RTN"",""PSGFILED"",20,0)"
^XMB(3.9,101,2,382,0)="ENAS ; schedules file - no longer used"
^XMB(3.9,101,2,383,0)="""RTN"",""PSGFILED"",21,0)"
^XMB(3.9,101,2,384,0)=" ;"
^XMB(3.9,101,2,385,0)="""RTN"",""PSGFILED"",22,0)"
^XMB(3.9,101,2,386,0)="ENMR ; med route file"
^XMB(3.9,101,2,387,0)="""RTN"",""PSGFILED"",23,0)"
^XMB(3.9,101,2,388,0)=" NEW MRNO,MR K DIE,DIC,DR,Y"
^XMB(3.9,101,2,389,0)="""RTN"",""PSGFILED"",24,0)"
^XMB(3.9,101,2,390,0)=" F  S DIC=""^PS(51.2,"",DIC(0)=""QEAMIL"",DLAYGO=51.2 W ! D ^DIC K DIC,DLAYGO Q:+Y'>0  S MRNO=+Y,MR=$P(Y,U,2),DA=+Y,DIE=""^PS(51.2,"",DR="".01;1;3;4"" D ^DIE D DF"
^XMB(3.9,101,2,391,0)="""RTN"",""PSGFILED"",25,0)"
^XMB(3.9,101,2,392,0)=" G DONE"
^XMB(3.9,101,2,393,0)="""RTN"",""PSGFILED"",26,0)"
^XMB(3.9,101,2,394,0)=" ;"
^XMB(3.9,101,2,395,0)="""RTN"",""PSGFILED"",27,0)"
^XMB(3.9,101,2,396,0)="ENWG ; ward group file"
^XMB(3.9,101,2,397,0)="""RTN"",""PSGFILED"",28,0)"
^XMB(3.9,101,2,398,0)=" F  S DIC=""^PS(57.5,"",DIC(0)=""QEAMIL"",DLAYGO=57.5 W ! D ^DIC K DA,DIC,DR Q:+Y'>0  S DA=+Y,DIE=""^PS(57.5,"",DR=""[PSJU WG]"" D ^DIE"
^XMB(3.9,101,2,399,0)="""RTN"",""PSGFILED"",29,0)"
^XMB(3.9,101,2,400,0)=" G DONE"
^XMB(3.9,101,2,401,0)="""RTN"",""PSGFILED"",30,0)"
^XMB(3.9,101,2,402,0)=" ;"
^XMB(3.9,101,2,403,0)="""RTN"",""PSGFILED"",31,0)"
^XMB(3.9,101,2,404,0)="ENMI ; medication instruction file"
^XMB(3.9,101,2,405,0)="""RTN"",""PSGFILED"",32,0)"
^XMB(3.9,101,2,406,0)=" F  S DIC=""^PS(51,"",DIC(0)=""QEAMIL"",DLAYGO=51 W ! D ^DIC K DIC Q:+Y'>0  S DIE=""^PS(51,"",DA=+Y,DR="".01;1;30"" D ^DIE"
^XMB(3.9,101,2,407,0)="""RTN"",""PSGFILED"",33,0)"
^XMB(3.9,101,2,408,0)=" G DONE"
^XMB(3.9,101,2,409,0)="""RTN"",""PSGFILED"",34,0)"
^XMB(3.9,101,2,410,0)=" ;"
^XMB(3.9,101,2,411,0)="""RTN"",""PSGFILED"",35,0)"
^XMB(3.9,101,2,412,0)="ENDRG ; standard drug fields"
^XMB(3.9,101,2,413,0)="""RTN"",""PSGFILED"",36,0)"
^XMB(3.9,101,2,414,0)=" D NOW^%DTC S PSGDT=% F  S DIC=""^PSDRUG("",DIC(0)=""AEIMOQ"",DIC(""A"")=""Select DISPENSE DRUG: "" W ! D ^DIC K DIC Q:+Y'>0  D DE"
^XMB(3.9,101,2,415,0)="""RTN"",""PSGFILED"",37,0)"
^XMB(3.9,101,2,416,0)=" K PSIUA,PSIUDA,PSIUX G DONE"
^XMB(3.9,101,2,417,0)="""RTN"",""PSGFILED"",38,0)"
^XMB(3.9,101,2,418,0)=" ;"
^XMB(3.9,101,2,419,0)="""RTN"",""PSGFILED"",39,0)"
^XMB(3.9,101,2,420,0)="DE ;"
^XMB(3.9,101,2,421,0)="""RTN"",""PSGFILED"",40,0)"
^XMB(3.9,101,2,422,0)=" I $D(^PSDRUG(+Y,""I"")),^(""I""),^(""I"")<PSGDT W $C(7),$C(7),!!?3,""*** WARNING, THIS DRUG IS INACTIVE. ***"",!"
^XMB(3.9,101,2,423,0)="""RTN"",""PSGFILED"",41,0)"
^XMB(3.9,101,2,424,0)=" W ! S DIE=""^PSDRUG("",(DA,PSIUDA)=+Y,DR=""[PSJ FILED]"""
^XMB(3.9,101,2,425,0)="""RTN"",""PSGFILED"",42,0)"
^XMB(3.9,101,2,426,0)=" S PSIUX=""U^UNIT DOSE PHARMACY^1"" D ^PSGIU,^DIE:PSIUA'[""^"" K DA,DIE,DR Q"
^XMB(3.9,101,2,427,0)="""RTN"",""PSGFILED"",43,0)"
^XMB(3.9,101,2,428,0)=" ;"
^XMB(3.9,101,2,429,0)="""RTN"",""PSGFILED"",44,0)"
^XMB(3.9,101,2,430,0)="ENOSE ; order set enter/edit"
^XMB(3.9,101,2,431,0)="""RTN"",""PSGFILED"",45,0)"
^XMB(3.9,101,2,432,0)=" K DIC F  S DLAYGO=53.2,DIC=""^PS(53.2,"",DIC(0)=""QEAML"",DIC(""A"")=""Select ORDER SET: "" W ! D ^DIC K DIC Q:Y'>0  S DA=+Y S DIE=""^PS(53.2,"",DR=""[PSJUOSE]"" D ^DIE K D0,D1,DA,DIE,DR,PSGNEDFD,PSGS0XT,PSGS0Y"
^XMB(3.9,101,2,433,0)="""RTN"",""PSGFILED"",46,0)"
^XMB(3.9,101,2,434,0)=" G DONE"
^XMB(3.9,101,2,435,0)="""RTN"",""PSGFILED"",47,0)"
^XMB(3.9,101,2,436,0)=" ;"
^XMB(3.9,101,2,437,0)="""RTN"",""PSGFILED"",48,0)"
^XMB(3.9,101,2,438,0)="RBCHK ; used to validate room-bed"
^XMB(3.9,101,2,439,0)="""RTN"",""PSGFILED"",49,0)"
^XMB(3.9,101,2,440,0)=" ;No longer used."
^XMB(3.9,101,2,441,0)="""RTN"",""PSGFILED"",50,0)"
^XMB(3.9,101,2,442,0)=" ;F Z0=0:0 S Z0=$O(^PS(57.7,DA(2),1,Z0)) Q:'Z0  I Z0'=DA(1),$D(^(Z0,1,""B"",X)) W !?19,X,"" is already under "",$S('$D(^PS(57.7,DA(2),1,Z0,0)):""another team (""_Z0_"")!"",$P(^(0),""^"")]"""":$P(^(0),""^"")_""!"",1:""another team (""_Z0_"")!"") Q"
^XMB(3.9,101,2,443,0)="""RTN"",""PSGFILED"",51,0)"
^XMB(3.9,101,2,444,0)=" ;I 'Z0,$D(^DIC(42,DA(2),2,+$O(^DIC(42,DA(2),2,""B"",$P(X,""-""),0)),1,""B"",$P(X,""-"",2))) K Z0 Q"
^XMB(3.9,101,2,445,0)="""RTN"",""PSGFILED"",52,0)"
^XMB(3.9,101,2,446,0)=" ;K X,Z0 Q"
^XMB(3.9,101,2,447,0)="""RTN"",""PSGFILED"",53,0)"
^XMB(3.9,101,2,448,0)=" ;"
^XMB(3.9,101,2,449,0)="""RTN"",""PSGFILED"",54,0)"
^XMB(3.9,101,2,450,0)="RBQ ; show room-beds for a ward"
^XMB(3.9,101,2,451,0)="""RTN"",""PSGFILED"",55,0)"
^XMB(3.9,101,2,452,0)=" ;No longer used."
^XMB(3.9,101,2,453,0)="""RTN"",""PSGFILED"",56,0)"
^XMB(3.9,101,2,454,0)=" Q"
^XMB(3.9,101,2,455,0)="""RTN"",""PSGFILED"",57,0)"
^XMB(3.9,101,2,456,0)=" ;"
^XMB(3.9,101,2,457,0)="""RTN"",""PSGFILED"",58,0)"
^XMB(3.9,101,2,458,0)="RBNP W """"""^"""" TO STOP: "" R Z3:DTIME W:'$T $C(7) S:'$T Z3=""^"" W $C(13),""            "",$C(13) Q"
^XMB(3.9,101,2,459,0)="""RTN"",""PSGFILED"",59,0)"
^XMB(3.9,101,2,460,0)=" ;"
^XMB(3.9,101,2,461,0)="""RTN"",""PSGFILED"",60,0)"
^XMB(3.9,101,2,462,0)="ENPPD ; edit pharmacy patient data"
^XMB(3.9,101,2,463,0)="""RTN"",""PSGFILED"",61,0)"
^XMB(3.9,101,2,464,0)=" ; W !!?3,""...This option is still under development..."",! Q"
^XMB(3.9,101,2,465,0)="""RTN"",""PSGFILED"",62,0)"
^XMB(3.9,101,2,466,0)=" ;"
^XMB(3.9,101,2,467,0)="""RTN"",""PSGFILED"",63,0)"
^XMB(3.9,101,2,468,0)="ENCPDD ; edit patient's default stop date (wall)"
^XMB(3.9,101,2,469,0)="""RTN"",""PSGFILED"",64,0)"
^XMB(3.9,101,2,470,0)=" D ENCV^PSGSETU I $D(XQUIT) Q"
^XMB(3.9,101,2,471,0)="""RTN"",""PSGFILED"",65,0)"
^XMB(3.9,101,2,472,0)=" F  D ENAO^PSGGAO Q:PSGP'>0  D"
^XMB(3.9,101,2,473,0)="""RTN"",""PSGFILED"",66,0)"
^XMB(3.9,101,2,474,0)=" .S WDN=$P($G(^DPT(PSGP,.1)),""^"") W:WDN="""" !!?2,""The patient is not currently on a ward."""
^XMB(3.9,101,2,475,0)="""RTN"",""PSGFILED"",67,0)"
^XMB(3.9,101,2,476,0)=" .I WDN]"""" S WD=$O(^DIC(42,""B"",WDN,0)),WD=$O(^PS(59.6,""B"",+WD,0)) I $S('WD:1,1:'$P($G(^PS(59.6,WD,0)),""^"",4)) S X=""PLEASE NOTE: The 'SAME STOP DATE' parameter for the ward (""_WDN_"") is not turned on.  Any date entered here will be ignored """
^XMB(3.9,101,2,477,0)="""RTN"",""PSGFILED"",68,0)"
^XMB(3.9,101,2,478,0)=" .I  S X=X_""until the parameter is turned on for this ward."" W $C(7),!!?2 F Y=1:1:$L(X,"" "") S X(1)=$P(X,"" "",Y) W:$L(X(1))+$X>78 ! W X(1),"" """
^XMB(3.9,101,2,479,0)="""RTN"",""PSGFILED"",69,0)"
^XMB(3.9,101,2,480,0)=" .S DA=PSGP,DR=""62.01T"",DIE=""^PS(55,"" W !! D ^DIE"
^XMB(3.9,101,2,481,0)="""RTN"",""PSGFILED"",70,0)"
^XMB(3.9,101,2,482,0)=" K WD,WDN G DONE"
^XMB(3.9,101,2,483,0)="""RTN"",""PSGFILED"",71,0)"
^XMB(3.9,101,2,484,0)=" ;"
^XMB(3.9,101,2,485,0)="""RTN"",""PSGFILED"",72,0)"
^XMB(3.9,101,2,486,0)="ENSYS ; edit system file"
^XMB(3.9,101,2,487,0)="""RTN"",""PSGFILED"",73,0)"
^XMB(3.9,101,2,488,0)=" ;/S DIE=""^PS(59.7,"",DA=1,DR=""21;26;26.3;26.4;26.2;20.412ALLOW THE CHANGE OF ORDER TYPES ON ORDERS FROM OERR;32"""
^XMB(3.9,101,2,489,0)="""RTN"",""PSGFILED"",74,0)"
^XMB(3.9,101,2,490,0)=" S DIE=""^PS(59.7,"",DA=1,DR=""21;26;26.3;26.4;26.2;26.5;26.6;26.7;34;27;27.1"""
^XMB(3.9,101,2,491,0)="""RTN"",""PSGFILED"",75,0)"
^XMB(3.9,101,2,492,0)=" W ! D ^DIE K DIE,DA,DR Q"
^XMB(3.9,101,2,493,0)="""RTN"",""PSGFILED"",76,0)"
^XMB(3.9,101,2,494,0)=" ;"
^XMB(3.9,101,2,495,0)="""RTN"",""PSGFILED"",77,0)"
^XMB(3.9,101,2,496,0)="ENPLSP ; edit pick list site parameters"
^XMB(3.9,101,2,497,0)="""RTN"",""PSGFILED"",78,0)"
^XMB(3.9,101,2,498,0)=" ;"
^XMB(3.9,101,2,499,0)="""RTN"",""PSGFILED"",79,0)"
^XMB(3.9,101,2,500,0)="ENCS ; change current site & parameters"
^XMB(3.9,101,2,501,0)="""RTN"",""PSGFILED"",80,0)"
^XMB(3.9,101,2,502,0)=" I $D(PSJSYSW0)#2 W !!,""Current site: "",$P(PSJSYSW0,""^"")"
^XMB(3.9,101,2,503,0)="""RTN"",""PSGFILED"",81,0)"
^XMB(3.9,101,2,504,0)=" S PSGCSF=1 D ^PSGSET,ENKV^PSGSETU W:$D(XQUIT) !!?5,""(The Inpatient site you are currently working under has not changed.)"" K PSGCSF,PSGORSET,XQUIT Q"
^XMB(3.9,101,2,505,0)="""RTN"",""PSGFILED"",82,0)"
^XMB(3.9,101,2,506,0)=" ;"
^XMB(3.9,101,2,507,0)="""RTN"",""PSGFILED"",83,0)"
^XMB(3.9,101,2,508,0)="DF ; Add/edit Med route, instruction... to the Dosage form file."
^XMB(3.9,101,2,509,0)="""RTN"",""PSGFILED"",84,0)"
^XMB(3.9,101,2,510,0)=" S DIR(""A"")=""Would you like to update the Dosage Form file"""
^XMB(3.9,101,2,511,0)="""RTN"",""PSGFILED"",85,0)"
^XMB(3.9,101,2,512,0)=" S DIR(""?"")=""If your answer is Yes, you will be able to Add/edit the Med routes, Instructions, Verb, Noun and Preposition that associate with this Dosage form."""
^XMB(3.9,101,2,513,0)="""RTN"",""PSGFILED"",86,0)"
^XMB(3.9,101,2,514,0)=" S DIR(0)=""Y"",DIR(""B"")=""Y"" D ^DIR Q:Y'=1"
^XMB(3.9,101,2,515,0)="""RTN"",""PSGFILED"",87,0)"
^XMB(3.9,101,2,516,0)=" NEW Y,DFNO K DIE,DIC,DA,DR"
^XMB(3.9,101,2,517,0)="""RTN"",""PSGFILED"",88,0)"
^XMB(3.9,101,2,518,0)=" F  S DIC=""^PS(50.606,"",DIC(0)=""QEAMI"" D ^DIC Q:+Y'>0  S DFNO=+Y D"
^XMB(3.9,101,2,519,0)="""RTN"",""PSGFILED"",89,0)"
^XMB(3.9,101,2,520,0)=" . I $G(MR)]"""",'$D(^PS(50.606,DFNO,""MR"",""B"",MRNO)) S DIE=""^PS(50.606,"",DR=""1///""_MR,DA=DFNO D ^DIE"
^XMB(3.9,101,2,521,0)="""RTN"",""PSGFILED"",90,0)"
^XMB(3.9,101,2,522,0)=" . K DIE,DIC,DR,MR S DIE=""^PS(50.606,"",DR=""1;3;4;5"",DA=DFNO D ^DIE"
^XMB(3.9,101,2,523,0)="""RTN"",""PSGFILED"",91,0)"
^XMB(3.9,101,2,524,0)=" ;. K DIE,DIC,DR,MR S DIE=""^PS(50.606,"",DR=""1;2;3;4;5"",DA=DFNO D ^DIE"
^XMB(3.9,101,2,525,0)="""RTN"",""PSGFILED"",92,0)"
^XMB(3.9,101,2,526,0)=" Q"
^XMB(3.9,101,2,527,0)="""RTN"",""PSGFILED"",93,0)"
^XMB(3.9,101,2,528,0)="ENCD ;edit Clinic Definitions file"
^XMB(3.9,101,2,529,0)="""RTN"",""PSGFILED"",94,0)"
^XMB(3.9,101,2,530,0)=" F  K DIC S DIC=""^PS(53.46,"",DIC(0)=""AELMQ"",DIC(""A"")=""Select CLINIC: "",DLAYGO=53.46 D ^DIC K DIC Q:Y<0  D"
^XMB(3.9,101,2,531,0)="""RTN"",""PSGFILED"",95,0)"
^XMB(3.9,101,2,532,0)=" . S DIE=""^PS(53.46,"",DA=+Y,DR=""1;2;3"" D ^DIE K DIE,DA,DR Q"
^XMB(3.9,101,2,533,0)="""RTN"",""PSGFILED"",96,0)"
^XMB(3.9,101,2,534,0)="ENCG ; ward group file0"
^XMB(3.9,101,2,535,0)="""RTN"",""PSGFILED"",97,0)"
^XMB(3.9,101,2,536,0)=" F  S DIC=""^PS(57.8,"",DIC(0)=""QEAMIL"",DLAYGO=57.8 W ! D ^DIC K DA,DIC,DR Q:+Y'>0  S DA=+Y,DIE=""^PS(57.8,"",DR="".01;1"" D ^DIE"
^XMB(3.9,101,2,537,0)="""RTN"",""PSGFILED"",98,0)"
^XMB(3.9,101,2,538,0)=" G DONE"
^XMB(3.9,101,2,539,0)="""RTN"",""PSGFILED"",99,0)"
^XMB(3.9,101,2,540,0)=" ;"
^XMB(3.9,101,2,541,0)="""RTN"",""PSJHL4"")"
^XMB(3.9,101,2,542,0)="0^1^B75218206^B64911264"
^XMB(3.9,101,2,543,0)="""RTN"",""PSJHL4"",1,0)"
^XMB(3.9,101,2,544,0)="PSJHL4 ;BIR/RLW-DECODE HL7 /MESSSAGE FROM OE/RR ;16 Mar 99 / 4:55 PM"
^XMB(3.9,101,2,545,0)="""RTN"",""PSJHL4"",2,0)"
^XMB(3.9,101,2,546,0)=" ;;5.0; INPATIENT MEDICATIONS ;**1,12,27,34,40,42,55,47,50,56,58,98,85,105,107,110,111,154**;16 DEC 97"
^XMB(3.9,101,2,547,0)="""RTN"",""PSJHL4"",3,0)"
^XMB(3.9,101,2,548,0)=" ;"
^XMB(3.9,101,2,549,0)="""RTN"",""PSJHL4"",4,0)"
^XMB(3.9,101,2,550,0)=" ; Reference to $$EN^PSOHLNEW is supported by DBIA# 2188."
^XMB(3.9,101,2,551,0)="""RTN"",""PSJHL4"",5,0)"
^XMB(3.9,101,2,552,0)=" ; Reference to ^PS(50.7 is supported by DBIA# 2180."
^XMB(3.9,101,2,553,0)="""RTN"",""PSJHL4"",6,0)"
^XMB(3.9,101,2,554,0)=" ; Reference to ^PS(51.2 is supported by DBIA# 2178."
^XMB(3.9,101,2,555,0)="""RTN"",""PSJHL4"",7,0)"
^XMB(3.9,101,2,556,0)=" ; Reference to ^PS(55 is supported by DBIA# 2191."
^XMB(3.9,101,2,557,0)="""RTN"",""PSJHL4"",8,0)"
^XMB(3.9,101,2,558,0)=" ; Reference to ^PS(59.7 supported by DBIA #2181."
^XMB(3.9,101,2,559,0)="""RTN"",""PSJHL4"",9,0)"
^XMB(3.9,101,2,560,0)=" ;"
^XMB(3.9,101,2,561,0)="""RTN"",""PSJHL4"",10,0)"
^XMB(3.9,101,2,562,0)="EN(PSJMSG) ; start here"
^XMB(3.9,101,2,563,0)="""RTN"",""PSJHL4"",11,0)"
^XMB(3.9,101,2,564,0)=" K ^TMP(""PSJNVO"",$J)"
^XMB(3.9,101,2,565,0)="""RTN"",""PSJHL4"",12,0)"
^XMB(3.9,101,2,566,0)=" N ADCNT,SOLCNT,OCCNT"
^XMB(3.9,101,2,567,0)="""RTN"",""PSJHL4"",13,0)"
^XMB(3.9,101,2,568,0)=" N ACKDATE,ADDITIVE,ADMINSTR,APPL,COMMENT,PSJHLDFN,DISPENSE,DOSE,DURATION,II,INSTR,J,JJ,JJJ,K,LOGIN,NEWORDER,NURSEACK,OBXFL,OCNARR,OCPROV,OCRSN,ORDER,PRIORITY,PSITEM,ORDCON,PROCOM,PSJORDER,PSREASON"
^XMB(3.9,101,2,569,0)="""RTN"",""PSJHL4"",14,0)"
^XMB(3.9,101,2,570,0)=" N LOC,PROVIDER,PSPR,PSOC,PTR,QQ,REQST,ROUTE,RXON,RXORDER,SCHEDULE,SEGMENT,SOLUTION,STPDT,STRENGTH,TEXT,CLERK,INFRT,IVTYP,SCHTYP,PREON,NOO,ROC,FREQ,CLASS,PSJHLMTN,UNIT,UNITS,QFLG,VOLUME,TVOLUME,PSGP"
^XMB(3.9,101,2,571,0)="""RTN"",""PSJHL4"",15,0)"
^XMB(3.9,101,2,572,0)=" N PSJASTP,FLDATE,FLCMNT,PSJFLAG,PSJYN,PRNTON,APPT,IVLIMIT"
^XMB(3.9,101,2,573,0)="""RTN"",""PSJHL4"",16,0)"
^XMB(3.9,101,2,574,0)=" S (ADCNT,SOLCNT,OCCNT,II,TVOLUME)="""",(OBXFL,QFLG)=0,PSJHLMTN=""ORR"" F  S II=$O(PSJMSG(II)) Q:'II  D DECODE Q:QFLG  D @FIELD(0) Q:$G(CLASS)=""O""  Q:QFLG"
^XMB(3.9,101,2,575,0)="""RTN"",""PSJHL4"",17,0)"
^XMB(3.9,101,2,576,0)=" I ($G(CLASS)'=""I"")!(QFLG) G END"
^XMB(3.9,101,2,577,0)="""RTN"",""PSJHL4"",18,0)"
^XMB(3.9,101,2,578,0)=" I ($G(PSOC)=""NW"")!($G(PSOC)=""XO"") N DIK,DA S DIK=""^PS(53.1,"",DA=NEWORDER D EN1^DIK L -^PS(53.1,NEWORDER)"
^XMB(3.9,101,2,579,0)="""RTN"",""PSJHL4"",19,0)"
^XMB(3.9,101,2,580,0)=" I ($G(PSOC)=""NW"")!($G(PSOC)=""XO"") D EN1^PSJHL2(PSJHLDFN,$S(PSOC=""NW"":""OK"",1:""XR""),NEWORDER_""P"")"
^XMB(3.9,101,2,581,0)="""RTN"",""PSJHL4"",20,0)"
^XMB(3.9,101,2,582,0)="END ;"
^XMB(3.9,101,2,583,0)="""RTN"",""PSJHL4"",21,0)"
^XMB(3.9,101,2,584,0)=" K ^TMP(""PSJNVO"",$J)"
^XMB(3.9,101,2,585,0)="""RTN"",""PSJHL4"",22,0)"
^XMB(3.9,101,2,586,0)=" I ("",S,A,"")[("",""_$G(PRIORITY)_"","")!($G(SCHEDULE)=""NOW"")!($G(SCHEDULE)[""STAT"") D"
^XMB(3.9,101,2,587,0)="""RTN"",""PSJHL4"",23,0)"
^XMB(3.9,101,2,588,0)=" . I $G(PRIORITY)=""ZD"",$G(PSGORD) D NOTIFY(PSGORD_$S(PSGORD[""V"":""V"",PSGORD[""U"":""U"",1:""""),PSJHLDFN,$G(PRIORITY),$G(SCHEDULE))"
^XMB(3.9,101,2,589,0)="""RTN"",""PSJHL4"",24,0)"
^XMB(3.9,101,2,590,0)=" . I $G(NEWORDER) D NOTIFY(NEWORDER_""P"",PSJHLDFN,$G(PRIORITY),$G(SCHEDULE))"
^XMB(3.9,101,2,591,0)="""RTN"",""PSJHL4"",25,0)"
^XMB(3.9,101,2,592,0)=" Q"
^XMB(3.9,101,2,593,0)="""RTN"",""PSJHL4"",26,0)"
^XMB(3.9,101,2,594,0)=" ;"
^XMB(3.9,101,2,595,0)="""RTN"",""PSJHL4"",27,0)"
^XMB(3.9,101,2,596,0)="DECODE ;break segment down into fields "
^XMB(3.9,101,2,597,0)="""RTN"",""PSJHL4"",28,0)"
^XMB(3.9,101,2,598,0)=" K FIELD"
^XMB(3.9,101,2,599,0)="""RTN"",""PSJHL4"",29,0)"
^XMB(3.9,101,2,600,0)=" S SEGMENT=$G(PSJMSG(II))"
^XMB(3.9,101,2,601,0)="""RTN"",""PSJHL4"",30,0)"
^XMB(3.9,101,2,602,0)=" S J=0"
^XMB(3.9,101,2,603,0)="""RTN"",""PSJHL4"",31,0)"
^XMB(3.9,101,2,604,0)=" F  Q:$G(SEGMENT)=""""  D"
^XMB(3.9,101,2,605,0)="""RTN"",""PSJHL4"",32,0)"
^XMB(3.9,101,2,606,0)=" .;get fields from segment"
^XMB(3.9,101,2,607,0)="""RTN"",""PSJHL4"",33,0)"
^XMB(3.9,101,2,608,0)=" .I SEGMENT[""|"" S FIELD(J)=$P(SEGMENT,""|""),SEGMENT=$E(SEGMENT,$L(FIELD(J))+2,$L(SEGMENT)),J=J+1 Q"
^XMB(3.9,101,2,609,0)="""RTN"",""PSJHL4"",34,0)"
^XMB(3.9,101,2,610,0)=" .I SEGMENT'[""|"" S FIELD(J)=SEGMENT,SEGMENT="""" Q"
^XMB(3.9,101,2,611,0)="""RTN"",""PSJHL4"",35,0)"
^XMB(3.9,101,2,612,0)=" Q"
^XMB(3.9,101,2,613,0)="""RTN"",""PSJHL4"",36,0)"
^XMB(3.9,101,2,614,0)=" ;"
^XMB(3.9,101,2,615,0)="""RTN"",""PSJHL4"",37,0)"
^XMB(3.9,101,2,616,0)="NOTIFY(ORDER,PSJHLDFN,PRIO,PSJSCHED) ;"
^XMB(3.9,101,2,617,0)="""RTN"",""PSJHL4"",38,0)"
^XMB(3.9,101,2,618,0)=" N NTFYREAS,WARD,MGROUP,NTFSTAT,DRUG,DRIEN,PNAME,ORDATE,DO,PSG,XMY,VADPT,LASTFOUR,PSJSOK"
^XMB(3.9,101,2,619,0)="""RTN"",""PSJHL4"",39,0)"
^XMB(3.9,101,2,620,0)=" Q:($G(PRIO)=""""&($G(PSJSCHED)=""""))"
^XMB(3.9,101,2,621,0)="""RTN"",""PSJHL4"",40,0)"
^XMB(3.9,101,2,622,0)=" S DFN=PSJHLDFN D DEM^VADPT S LASTFOUR=$P($P(VADM(2),""^"",2),""-"",3)"
^XMB(3.9,101,2,623,0)="""RTN"",""PSJHL4"",41,0)"
^XMB(3.9,101,2,624,0)=" S NTFYREAS=$S(("",S,A,"")[("",""_PRIO_"",""):1,($G(PSJSCHED)=""NOW""):2,($G(PSJSCHED)=""STAT""):3,1:0) Q:'NTFYREAS"
^XMB(3.9,101,2,625,0)="""RTN"",""PSJHL4"",42,0)"
^XMB(3.9,101,2,626,0)=" S PSJSOK=1"
^XMB(3.9,101,2,627,0)="""RTN"",""PSJHL4"",43,0)"
^XMB(3.9,101,2,628,0)=" I ORDER[""P"" D PND"
^XMB(3.9,101,2,629,0)="""RTN"",""PSJHL4"",44,0)"
^XMB(3.9,101,2,630,0)=" I ORDER[""U"" D UD"
^XMB(3.9,101,2,631,0)="""RTN"",""PSJHL4"",45,0)"
^XMB(3.9,101,2,632,0)=" I ORDER[""V"" D IV"
^XMB(3.9,101,2,633,0)="""RTN"",""PSJHL4"",46,0)"
^XMB(3.9,101,2,634,0)=" Q:PSJSOK=1"
^XMB(3.9,101,2,635,0)="""RTN"",""PSJHL4"",47,0)"
^XMB(3.9,101,2,636,0)=" S PNAME=$P($G(^DPT(+PSJHLDFN,0)),""^"") S:$G(RTE) RTE=$P(^PS(51.2,+RTE,0),""^"",3)"
^XMB(3.9,101,2,637,0)="""RTN"",""PSJHL4"",48,0)"
^XMB(3.9,101,2,638,0)=" S DRUG=$S(DRIEN:$P($G(^PS(50.7,+DRIEN,0)),""^""),1:""""),WARD=$G(^DPT(PSJHLDFN,.1))"
^XMB(3.9,101,2,639,0)="""RTN"",""PSJHL4"",49,0)"
^XMB(3.9,101,2,640,0)=" S XMDUZ=""MEDICATIONS,INPATIENT"",XMSUB=$G(WARD)"
^XMB(3.9,101,2,641,0)="""RTN"",""PSJHL4"",50,0)"
^XMB(3.9,101,2,642,0)=" S XMSUB=XMSUB_""-""_NTFSTAT_"" ""_$S($G(PRIO)=""A"":""ASAP"",$G(PRIO)=""S"":""STAT"",$G(NTFYREAS)=2:""NOW"",$G(NTFYREAS)=3:""STAT"",1:"""")_""-"""
^XMB(3.9,101,2,643,0)="""RTN"",""PSJHL4"",51,0)"
^XMB(3.9,101,2,644,0)=" S XMSUB=XMSUB_$E(PNAME,1,65-$L(XMSUB))"
^XMB(3.9,101,2,645,0)="""RTN"",""PSJHL4"",52,0)"
^XMB(3.9,101,2,646,0)=" S XMTEXT=""PSG("""
^XMB(3.9,101,2,647,0)="""RTN"",""PSJHL4"",53,0)"
^XMB(3.9,101,2,648,0)=" S PSG(1,0)=""Inpatient Medications has received the following ""_$S($G(PRIO)=""A"":""ASAP"",$G(PRIO)=""S"":""STAT"",$G(NTFYREAS)=2:""NOW"",1:"""")_"" order (""_NTFSTAT_"")"""
^XMB(3.9,101,2,649,0)="""RTN"",""PSJHL4"",54,0)"
^XMB(3.9,101,2,650,0)=" S PSG(2,0)="""""
^XMB(3.9,101,2,651,0)="""RTN"",""PSJHL4"",55,0)"
^XMB(3.9,101,2,652,0)=" S PSG(3,0)=""          Patient:     ""_PNAME I $G(LASTFOUR) S PSG(3,0)=PSG(3,0)_""  (""_LASTFOUR_"")"""
^XMB(3.9,101,2,653,0)="""RTN"",""PSJHL4"",56,0)"
^XMB(3.9,101,2,654,0)=" S PSG(4,0)=""Order Information:     ""_DRUG_"" ""_DO_"" ""_RTE_"" ""_$G(PSJSCHED)"
^XMB(3.9,101,2,655,0)="""RTN"",""PSJHL4"",57,0)"
^XMB(3.9,101,2,656,0)=" S PSG(5,0)=""       Order Date:     ""_$$ENDTC^PSGMI(ORDATE)"
^XMB(3.9,101,2,657,0)="""RTN"",""PSJHL4"",58,0)"
^XMB(3.9,101,2,658,0)=" D ^XMD"
^XMB(3.9,101,2,659,0)="""RTN"",""PSJHL4"",59,0)"
^XMB(3.9,101,2,660,0)=" Q"
^XMB(3.9,101,2,661,0)="""RTN"",""PSJHL4"",60,0)"
^XMB(3.9,101,2,662,0)=" ;"
^XMB(3.9,101,2,663,0)="""RTN"",""PSJHL4"",61,0)"
^XMB(3.9,101,2,664,0)="PND ;"
^XMB(3.9,101,2,665,0)="""RTN"",""PSJHL4"",62,0)"
^XMB(3.9,101,2,666,0)=" N WARD,WDPARM,MGRP"
^XMB(3.9,101,2,667,0)="""RTN"",""PSJHL4"",63,0)"
^XMB(3.9,101,2,668,0)=" Q:'$D(^PS(53.1,+ORDER,0))"
^XMB(3.9,101,2,669,0)="""RTN"",""PSJHL4"",64,0)"
^XMB(3.9,101,2,670,0)=" S WARD=$G(^DPT(PSJHLDFN,.1)) I WARD]"""" D"
^XMB(3.9,101,2,671,0)="""RTN"",""PSJHL4"",65,0)"
^XMB(3.9,101,2,672,0)=" .N DIC,X,Y S DIC=""^DIC(42,"",DIC(0)=""BOXZ"",X=WARD D ^DIC S WARD=+Y Q:WARD=0"
^XMB(3.9,101,2,673,0)="""RTN"",""PSJHL4"",66,0)"
^XMB(3.9,101,2,674,0)=" .S WARD=$O(^PS(59.6,""B"",WARD,0)) Q:+WARD=0"
^XMB(3.9,101,2,675,0)="""RTN"",""PSJHL4"",67,0)"
^XMB(3.9,101,2,676,0)=" .Q:$$SNDTSTW^PSJHL4A(PRIO,PSJSCHED,WARD)"
^XMB(3.9,101,2,677,0)="""RTN"",""PSJHL4"",68,0)"
^XMB(3.9,101,2,678,0)=" .S WDPARM=$G(^PS(59.6,+WARD,0)),MGRP=$P(WDPARM,""^"",30) Q:+MGRP=0"
^XMB(3.9,101,2,679,0)="""RTN"",""PSJHL4"",69,0)"
^XMB(3.9,101,2,680,0)=" .S MGRP=$$GET1^DIQ(3.8,MGRP,.01) I MGRP]"""" S XMY(""G.""_MGRP_""@""_$G(^XMB(""NETNAME"")))="""",PSJSOK=0"
^XMB(3.9,101,2,681,0)="""RTN"",""PSJHL4"",70,0)"
^XMB(3.9,101,2,682,0)=" S:'$$SNDTSTP^PSJHL4A(PRIO,PSJSCHED) MGROUP=""G.PSJ STAT NOW PENDING ORDER@""_$G(^XMB(""NETNAME"")),XMY(MGROUP)="""",PSJSOK=0"
^XMB(3.9,101,2,683,0)="""RTN"",""PSJHL4"",71,0)"
^XMB(3.9,101,2,684,0)=" S NTFSTAT=""PENDING"""
^XMB(3.9,101,2,685,0)="""RTN"",""PSJHL4"",72,0)"
^XMB(3.9,101,2,686,0)=" N NDP2,ND0 S NDP2=$G(^PS(53.1,+ORDER,.2)),ND0=$G(^PS(53.1,+ORDER,0))"
^XMB(3.9,101,2,687,0)="""RTN"",""PSJHL4"",73,0)"
^XMB(3.9,101,2,688,0)=" S DRIEN=+$P(NDP2,""^""),DO=$P(NDP2,""^"",2),RTE=$P(ND0,""^"",3),ORDATE=$P(ND0,""^"",14)"
^XMB(3.9,101,2,689,0)="""RTN"",""PSJHL4"",74,0)"
^XMB(3.9,101,2,690,0)=" S SCHED=$P($G(^PS(53.1,+ORDER,2)),""^"")"
^XMB(3.9,101,2,691,0)="""RTN"",""PSJHL4"",75,0)"
^XMB(3.9,101,2,692,0)=" Q"
^XMB(3.9,101,2,693,0)="""RTN"",""PSJHL4"",76,0)"
^XMB(3.9,101,2,694,0)=" ;"
^XMB(3.9,101,2,695,0)="""RTN"",""PSJHL4"",77,0)"
^XMB(3.9,101,2,696,0)="UD ;"
^XMB(3.9,101,2,697,0)="""RTN"",""PSJHL4"",78,0)"
^XMB(3.9,101,2,698,0)=" N WARD,WDPARM,MGRP"
^XMB(3.9,101,2,699,0)="""RTN"",""PSJHL4"",79,0)"
^XMB(3.9,101,2,700,0)=" Q:'$D(^PS(55,PSJHLDFN,5,+ORDER,0))"
^XMB(3.9,101,2,701,0)="""RTN"",""PSJHL4"",80,0)"
^XMB(3.9,101,2,702,0)=" S WARD=$P($G(^PS(55,PSJHLDFN,5,+ORDER,0)),""^"",23) I +WARD D"
^XMB(3.9,101,2,703,0)="""RTN"",""PSJHL4"",81,0)"
^XMB(3.9,101,2,704,0)=" .S WARD=$O(^PS(59.6,""B"",WARD,0)) Q:+WARD=0"
^XMB(3.9,101,2,705,0)="""RTN"",""PSJHL4"",82,0)"
^XMB(3.9,101,2,706,0)=" .Q:$$SNDTSTW^PSJHL4A(PRIO,PSJSCHED,WARD)"
^XMB(3.9,101,2,707,0)="""RTN"",""PSJHL4"",83,0)"
^XMB(3.9,101,2,708,0)=" .S WDPARM=$G(^PS(59.6,+WARD,0)),MGRP=$P(WDPARM,""^"",30) Q:+MGRP=0"
^XMB(3.9,101,2,709,0)="""RTN"",""PSJHL4"",84,0)"
^XMB(3.9,101,2,710,0)=" .S MGRP=$$GET1^DIQ(3.8,MGRP,.01) I MGRP]"""" S XMY(""G.""_MGRP_""@""_$G(^XMB(""NETNAME"")))="""",PSJSOK=0"
^XMB(3.9,101,2,711,0)="""RTN"",""PSJHL4"",85,0)"
^XMB(3.9,101,2,712,0)=" S:'$$SNDTSTA^PSJHL4A(PRIO,PSJSCHED) MGROUP=""G.PSJ STAT NOW ACTIVE ORDER@""_$G(^XMB(""NETNAME"")),XMY(MGROUP)="""",PSJSOK=0"
^XMB(3.9,101,2,713,0)="""RTN"",""PSJHL4"",86,0)"
^XMB(3.9,101,2,714,0)=" S NTFSTAT=""ACTIVE"""
^XMB(3.9,101,2,715,0)="""RTN"",""PSJHL4"",87,0)"
^XMB(3.9,101,2,716,0)=" N ND2,ND0 S ND0=$G(^PS(55,PSJHLDFN,5,+ORDER,0)),ND2=$G(^PS(55,PSJHLDFN,5,+ORDER,2)),NDP2=$G(^PS(55,PSJHLDFN,5,+ORDER,.2))"
^XMB(3.9,101,2,717,0)="""RTN"",""PSJHL4"",88,0)"
^XMB(3.9,101,2,718,0)=" S DRIEN=+$P(NDP2,""^""),DO=$P(NDP2,""^"",2),RTE=$P(ND0,""^"",3),ORDATE=$P(ND0,""^"",14)"
^XMB(3.9,101,2,719,0)="""RTN"",""PSJHL4"",89,0)"
^XMB(3.9,101,2,720,0)=" S SCHED=$P(ND2,""^"")"
^XMB(3.9,101,2,721,0)="""RTN"",""PSJHL4"",90,0)"
^XMB(3.9,101,2,722,0)=" Q"
^XMB(3.9,101,2,723,0)="""RTN"",""PSJHL4"",91,0)"
^XMB(3.9,101,2,724,0)=" ;"
^XMB(3.9,101,2,725,0)="""RTN"",""PSJHL4"",92,0)"
^XMB(3.9,101,2,726,0)="IV ;"
^XMB(3.9,101,2,727,0)="""RTN"",""PSJHL4"",93,0)"
^XMB(3.9,101,2,728,0)=" N WARD,WDPARM,MGRP"
^XMB(3.9,101,2,729,0)="""RTN"",""PSJHL4"",94,0)"
^XMB(3.9,101,2,730,0)=" Q:'$D(^PS(55,PSJHLDFN,""IV"",+ORDER,0))"
^XMB(3.9,101,2,731,0)="""RTN"",""PSJHL4"",95,0)"
^XMB(3.9,101,2,732,0)=" S WARD=$P($G(^PS(55,PSJHLDFN,""IV"",+ORDER,0)),""^"",22) I +WARD D"
^XMB(3.9,101,2,733,0)="""RTN"",""PSJHL4"",96,0)"
^XMB(3.9,101,2,734,0)=" .S WARD=$O(^PS(59.6,""B"",WARD,0)) Q:+WARD=0"
^XMB(3.9,101,2,735,0)="""RTN"",""PSJHL4"",97,0)"
^XMB(3.9,101,2,736,0)=" .Q:$$SNDTSTW^PSJHL4A(PRIO,PSJSCHED,WARD)"
^XMB(3.9,101,2,737,0)="""RTN"",""PSJHL4"",98,0)"
^XMB(3.9,101,2,738,0)=" .S WDPARM=$G(^PS(59.6,+WARD,0)),MGRP=$P(WDPARM,""^"",30) Q:+MGRP=0"
^XMB(3.9,101,2,739,0)="""RTN"",""PSJHL4"",99,0)"
^XMB(3.9,101,2,740,0)=" .S MGRP=$$GET1^DIQ(3.8,MGRP,.01) I MGRP]"""" S XMY(""G.""_MGRP_""@""_$G(^XMB(""NETNAME"")))="""",PSJSOK=0"
^XMB(3.9,101,2,741,0)="""RTN"",""PSJHL4"",100,0)"
^XMB(3.9,101,2,742,0)=" S:'$$SNDTSTA^PSJHL4A(PRIO,PSJSCHED) MGROUP=""G.PSJ STAT NOW ACTIVE ORDER@""_$G(^XMB(""NETNAME"")),XMY(MGROUP)="""",PSJSOK=0"
^XMB(3.9,101,2,743,0)="""RTN"",""PSJHL4"",101,0)"
^XMB(3.9,101,2,744,0)=" S NTFSTAT=""ACTIVE"""
^XMB(3.9,101,2,745,0)="""RTN"",""PSJHL4"",102,0)"
^XMB(3.9,101,2,746,0)=" N ND2,NDP2,ND0 S ND0=$G(^PS(55,PSJHLDFN,""IV"",+ORDER,0)),ND2=$G(^PS(55,PSJHLDFN,""IV"",+ORDER,2))"
^XMB(3.9,101,2,747,0)="""RTN"",""PSJHL4"",103,0)"
^XMB(3.9,101,2,748,0)=" S NDP2=$G(^PS(55,PSJHLDFN,""IV"",+ORDER,.2))"
^XMB(3.9,101,2,749,0)="""RTN"",""PSJHL4"",104,0)"
^XMB(3.9,101,2,750,0)=" S DRIEN=$P(NDP2,""^""),DO=$P(NDP2,""^"",2),RTE=$P(NDP2,""^"",3)"
^XMB(3.9,101,2,751,0)="""RTN"",""PSJHL4"",105,0)"
^XMB(3.9,101,2,752,0)=" S ORDATE=$P(ND2,""^""),SCHED=$P(ND0,""^"",9)"
^XMB(3.9,101,2,753,0)="""RTN"",""PSJHL4"",106,0)"
^XMB(3.9,101,2,754,0)=" Q"
^XMB(3.9,101,2,755,0)="""RTN"",""PSJHL4"",107,0)"
^XMB(3.9,101,2,756,0)=" ;"
^XMB(3.9,101,2,757,0)="""RTN"",""PSJHL4"",108,0)"
^XMB(3.9,101,2,758,0)="MSH ;"
^XMB(3.9,101,2,759,0)="""RTN"",""PSJHL4"",109,0)"
^XMB(3.9,101,2,760,0)=" S PSOC=FIELD(8)"
^XMB(3.9,101,2,761,0)="""RTN"",""PSJHL4"",110,0)"
^XMB(3.9,101,2,762,0)=" Q"
^XMB(3.9,101,2,763,0)="""RTN"",""PSJHL4"",111,0)"
^XMB(3.9,101,2,764,0)=" ;"
^XMB(3.9,101,2,765,0)="""RTN"",""PSJHL4"",112,0)"
^XMB(3.9,101,2,766,0)="PID ;"
^XMB(3.9,101,2,767,0)="""RTN"",""PSJHL4"",113,0)"
^XMB(3.9,101,2,768,0)=" S PSJHLDFN=FIELD(3)"
^XMB(3.9,101,2,769,0)="""RTN"",""PSJHL4"",114,0)"
^XMB(3.9,101,2,770,0)=" Q"
^XMB(3.9,101,2,771,0)="""RTN"",""PSJHL4"",115,0)"
^XMB(3.9,101,2,772,0)=" ;"
^XMB(3.9,101,2,773,0)="""RTN"",""PSJHL4"",116,0)"
^XMB(3.9,101,2,774,0)="PV1 ;"
^XMB(3.9,101,2,775,0)="""RTN"",""PSJHL4"",117,0)"
^XMB(3.9,101,2,776,0)=" N A"
^XMB(3.9,101,2,777,0)="""RTN"",""PSJHL4"",118,0)"
^XMB(3.9,101,2,778,0)=" S CLASS=FIELD(2),LOC=$P(FIELD(3),""^""),APPT="""" I $G(FIELD(44))]"""" S APPT=+$$HL7TFM^XLFDT(FIELD(44))"
^XMB(3.9,101,2,779,0)="""RTN"",""PSJHL4"",119,0)"
^XMB(3.9,101,2,780,0)=" I ""IO""'[CLASS S PSREASON=""Invalid patient class"" Q"
^XMB(3.9,101,2,781,0)="""RTN"",""PSJHL4"",120,0)"
^XMB(3.9,101,2,782,0)=" ;N II K PSJNVA S II="""" F  S II=$O(PSJMSG(II)) Q:'II  D  Q:CLASS=""O"""
^XMB(3.9,101,2,783,0)="""RTN"",""PSJHL4"",121,0)"
^XMB(3.9,101,2,784,0)=" N QQ K PSJNVA S QQ=II F  S QQ=$O(PSJMSG(QQ)) Q:'QQ  D  Q:$G(PSJNVA)"
^XMB(3.9,101,2,785,0)="""RTN"",""PSJHL4"",122,0)"
^XMB(3.9,101,2,786,0)=" .S X=$G(PSJMSG(QQ))"
^XMB(3.9,101,2,787,0)="""RTN"",""PSJHL4"",123,0)"
^XMB(3.9,101,2,788,0)=" .I $P(X,""|"")=""ZRN"" S PSJNVA=1,CLASS=""O"" D EN^PSOHLNEW(.PSJMSG)"
^XMB(3.9,101,2,789,0)="""RTN"",""PSJHL4"",124,0)"
^XMB(3.9,101,2,790,0)=" .;I $P(X,""|"")=""ZRN"" S PSJNVA=1 D EN^PSOHLNEW(.PSJMSG)"
^XMB(3.9,101,2,791,0)="""RTN"",""PSJHL4"",125,0)"
^XMB(3.9,101,2,792,0)=" ; OBR check - enable outpatient flagging from backdoor"
^XMB(3.9,101,2,793,0)="""RTN"",""PSJHL4"",126,0)"
^XMB(3.9,101,2,794,0)=" I $G(PSJNVA) K PSJNVA Q"
^XMB(3.9,101,2,795,0)="""RTN"",""PSJHL4"",127,0)"
^XMB(3.9,101,2,796,0)=" I CLASS=""O"" N QQ S QQ=II F  S QQ=$O(PSJMSG(QQ)) Q:'QQ  I $P(PSJMSG(QQ),""|"")=""OBR"" D  Q:$P(PSJMSG(QQ),""|"")=""OBR"""
^XMB(3.9,101,2,797,0)="""RTN"",""PSJHL4"",128,0)"
^XMB(3.9,101,2,798,0)=" .S RXON=$P(PSJMSG(QQ),""|"",4) I RXON]"""" S RXON=$P(RXON,""^"") I ""ABNPUV""[$E(RXON,$L(RXON)) S CLASS=""I"""
^XMB(3.9,101,2,799,0)="""RTN"",""PSJHL4"",129,0)"
^XMB(3.9,101,2,800,0)=" I CLASS=""O"" N QQ S QQ=II F  S QQ=$O(PSJMSG(QQ)) Q:'QQ  I $P(PSJMSG(QQ),""|"")=""ORC"" D  Q:$P(PSJMSG(QQ),""|"")=""ORC"""
^XMB(3.9,101,2,801,0)="""RTN"",""PSJHL4"",130,0)"
^XMB(3.9,101,2,802,0)=" .S RXON=$P(PSJMSG(QQ),""|"",4) I RXON]"""" S RXON=$P(RXON,""^"") I ""ABNPUV""[$E(RXON,$L(RXON)) S CLASS=""I"""
^XMB(3.9,101,2,803,0)="""RTN"",""PSJHL4"",131,0)"
^XMB(3.9,101,2,804,0)=" I CLASS=""O"" N CHK,QQ S QQ=II F  S QQ=$O(PSJMSG(QQ)) Q:'QQ  I $P(PSJMSG(QQ),""|"")=""RXO"" D  Q:$P(PSJMSG(QQ),""|"")=""RXO"""
^XMB(3.9,101,2,805,0)="""RTN"",""PSJHL4"",132,0)"
^XMB(3.9,101,2,806,0)=" .S CHK=$P(PSJMSG(QQ),""|"",2),CHK=$S($P(CHK,""^"",5)=""IV"":""IV"",1:$P(CHK,""^"",4))"
^XMB(3.9,101,2,807,0)="""RTN"",""PSJHL4"",133,0)"
^XMB(3.9,101,2,808,0)=" .I CHK=""IV"" S CLASS=""I"" Q"
^XMB(3.9,101,2,809,0)="""RTN"",""PSJHL4"",134,0)"
^XMB(3.9,101,2,810,0)=" .I 'CHK S PSREASON=""Missing or Invalid Orderable Item"",CLASS=""I"" Q"
^XMB(3.9,101,2,811,0)="""RTN"",""PSJHL4"",135,0)"
^XMB(3.9,101,2,812,0)=" .I $P($G(^PS(50.7,CHK,0)),""^"",3)=1 S CLASS=""I"" Q"
^XMB(3.9,101,2,813,0)="""RTN"",""PSJHL4"",136,0)"
^XMB(3.9,101,2,814,0)=" D:CLASS=""O"" EN^PSOHLNEW(.PSJMSG)"
^XMB(3.9,101,2,815,0)="""RTN"",""PSJHL4"",137,0)"
^XMB(3.9,101,2,816,0)=" Q"
^XMB(3.9,101,2,817,0)="""RTN"",""PSJHL4"",138,0)"
^XMB(3.9,101,2,818,0)=" ;"
^XMB(3.9,101,2,819,0)="""RTN"",""PSJHL4"",139,0)"
^XMB(3.9,101,2,820,0)="ORC ;"
^XMB(3.9,101,2,821,0)="""RTN"",""PSJHL4"",140,0)"
^XMB(3.9,101,2,822,0)=" S PSOC=FIELD(1)"
^XMB(3.9,101,2,823,0)="""RTN"",""PSJHL4"",141,0)"
^XMB(3.9,101,2,824,0)=" S ORDER=FIELD(2)"
^XMB(3.9,101,2,825,0)="""RTN"",""PSJHL4"",142,0)"
^XMB(3.9,101,2,826,0)=" I $G(PSREASON)]"""" D ERROR^PSJHL9 Q"
^XMB(3.9,101,2,827,0)="""RTN"",""PSJHL4"",143,0)"
^XMB(3.9,101,2,828,0)=" S PSJORDER=$P(FIELD(2),""^""),RXON=$P(FIELD(3),""^""),RXORDER=$S((RXON[""N"")!(RXON[""P""):""^PS(53.1,""_+RXON_"","",RXON[""V"":""^PS(55,""_PSJHLDFN_"",""""IV"""",""_+RXON_"","",1:""^PS(55,""_PSJHLDFN_"",5,""_+RXON_"","")"
^XMB(3.9,101,2,829,0)="""RTN"",""PSJHL4"",144,0)"
^XMB(3.9,101,2,830,0)=" I PSOC=""NA"" D ASSIGN^PSJHL5 Q"
^XMB(3.9,101,2,831,0)="""RTN"",""PSJHL4"",145,0)"
^XMB(3.9,101,2,832,0)=" S CLERK=+$G(FIELD(10))"
^XMB(3.9,101,2,833,0)="""RTN"",""PSJHL4"",146,0)"
^XMB(3.9,101,2,834,0)=" S PROVIDER=+$G(FIELD(12)) D:PSOC=""NW"""
^XMB(3.9,101,2,835,0)="""RTN"",""PSJHL4"",147,0)"
^XMB(3.9,101,2,836,0)=" .I PROVIDER=0 S PSREASON=""Invalid Provider"" D ERROR^PSJHL9 Q "
^XMB(3.9,101,2,837,0)="""RTN"",""PSJHL4"",148,0)"
^XMB(3.9,101,2,838,0)=" .I PROVIDER>0 S PSPR=$G(^VA(200,+PROVIDER,""PS"")) I '$D(PSPR)!'(PSPR)!$S($P(PSPR,""^"",4)="""":0,1:$P(PSPR,""^"",4)'>DT) S PSREASON=""Invalid Provider"" D ERROR^PSJHL9 Q"
^XMB(3.9,101,2,839,0)="""RTN"",""PSJHL4"",149,0)"
^XMB(3.9,101,2,840,0)=" S UNITS=$P(FIELD(7),""^""),INSTR=$P(FIELD(7),""^"",8)"
^XMB(3.9,101,2,841,0)="""RTN"",""PSJHL4"",150,0)"
^XMB(3.9,101,2,842,0)=" S:UNITS[""&"" DOSE=$P(UNITS,""&""),UNIT=$P(UNITS,""&"",2),UNITS=$P(UNITS,""&"",3)"
^XMB(3.9,101,2,843,0)="""RTN"",""PSJHL4"",151,0)"
^XMB(3.9,101,2,844,0)=" S SCHEDULE=$P(FIELD(7),""^"",2),PRIORITY=$P(FIELD(7),""^"",6) S:SCHEDULE[""PRN"" SCHTYP=""P"""
^XMB(3.9,101,2,845,0)="""RTN"",""PSJHL4"",152,0)"
^XMB(3.9,101,2,846,0)=" S DURATION=$P(FIELD(7),""^"",3),REQST=$P(FIELD(7),""^"",4) S:REQST'="""" REQST=+$E(+$$HL7TFM^XLFDT(REQST),1,12) S REQST=$$DATE2^PSJUTL2(REQST)"
^XMB(3.9,101,2,847,0)="""RTN"",""PSJHL4"",153,0)"
^XMB(3.9,101,2,848,0)=" S PRIORITY=$S($G(PRIORITY)]"""":PRIORITY,1:""R"")"
^XMB(3.9,101,2,849,0)="""RTN"",""PSJHL4"",154,0)"
^XMB(3.9,101,2,850,0)=" I $E(SCHEDULE,1)="" "" S:$TR(SCHEDULE,"" "")=""PRN"" SCHEDULE=""PRN"" I '(SCHEDULE=""PRN"")  S PSREASON=""Invalid Schedule"" D ERROR^PSJHL9 Q"
^XMB(3.9,101,2,851,0)="""RTN"",""PSJHL4"",155,0)"
^XMB(3.9,101,2,852,0)=" S PRNTON=$P(FIELD(8),""^"")"
^XMB(3.9,101,2,853,0)="""RTN"",""PSJHL4"",156,0)"
^XMB(3.9,101,2,854,0)=" S NURSEACK=$G(FIELD(11))"
^XMB(3.9,101,2,855,0)="""RTN"",""PSJHL4"",157,0)"
^XMB(3.9,101,2,856,0)=" S LOGIN=$G(FIELD(15)) S:LOGIN'="""" LOGIN=+$E(+$$HL7TFM^XLFDT(FIELD(15)),1,12) S LOGIN=$$DATE2^PSJUTL2(LOGIN)"
^XMB(3.9,101,2,857,0)="""RTN"",""PSJHL4"",158,0)"
^XMB(3.9,101,2,858,0)=" S:$G(NURSEACK)]"""" ACKDATE=LOGIN"
^XMB(3.9,101,2,859,0)="""RTN"",""PSJHL4"",159,0)"
^XMB(3.9,101,2,860,0)=" S ORDCON=$P($G(FIELD(16)),U) I ORDCON=""A"" S PSJASTP=$G(FIELD(9)) S:$G(PSJASTP)'="""" PSJASTP=+$E(+$$HL7TFM^XLFDT(PSJASTP),1,12) S PSJASTP=$$DATE2^PSJUTL2(PSJASTP)"
^XMB(3.9,101,2,861,0)="""RTN"",""PSJHL4"",160,0)"
^XMB(3.9,101,2,862,0)=" I (PSOC=""CA"")!(PSOC=""DC"") D CANCEL^PSJHL6 Q"
^XMB(3.9,101,2,863,0)="""RTN"",""PSJHL4"",161,0)"
^XMB(3.9,101,2,864,0)=" I PSOC=""HD"" D HOLD^PSJHL6 Q"
^XMB(3.9,101,2,865,0)="""RTN"",""PSJHL4"",162,0)"
^XMB(3.9,101,2,866,0)=" I PSOC=""RL"" D UNHOLD^PSJHL6 Q"
^XMB(3.9,101,2,867,0)="""RTN"",""PSJHL4"",163,0)"
^XMB(3.9,101,2,868,0)=" I PSOC=""ZV"" D NURSEACK^PSJHL5 Q"
^XMB(3.9,101,2,869,0)="""RTN"",""PSJHL4"",164,0)"
^XMB(3.9,101,2,870,0)=" I PSOC=""SS"" D STATUS^PSJHL5 Q"
^XMB(3.9,101,2,871,0)="""RTN"",""PSJHL4"",165,0)"
^XMB(3.9,101,2,872,0)=" I PSOC=""Z@"" N X S X=""PSJHL8"" X ^%ZOSF(""TEST"") I  D PURGE^PSJHL8 Q"
^XMB(3.9,101,2,873,0)="""RTN"",""PSJHL4"",166,0)"
^XMB(3.9,101,2,874,0)=" I PSOC=""DE"" S QFLG=1 Q"
^XMB(3.9,101,2,875,0)="""RTN"",""PSJHL4"",167,0)"
^XMB(3.9,101,2,876,0)=" Q"
^XMB(3.9,101,2,877,0)="""RTN"",""PSJHL4"",168,0)"
^XMB(3.9,101,2,878,0)="OBR ; This segment is used to pass flagging information from CPRS."
^XMB(3.9,101,2,879,0)="""RTN"",""PSJHL4"",169,0)"
^XMB(3.9,101,2,880,0)=" S ORDER=FIELD(2)"
^XMB(3.9,101,2,881,0)="""RTN"",""PSJHL4"",170,0)"
^XMB(3.9,101,2,882,0)=" S PSJORDER=$P(FIELD(2),""^""),RXON=$P(FIELD(3),""^""),RXORDER=$S((RXON[""N"")!(RXON[""P""):""^PS(53.1,""_+RXON_"","",RXON[""V"":""^PS(55,""_PSJHLDFN_"",""""IV"""",""_+RXON_"","",1:""^PS(55,""_PSJHLDFN_"",5,""_+RXON_"","")"
^XMB(3.9,101,2,883,0)="""RTN"",""PSJHL4"",171,0)"
^XMB(3.9,101,2,884,0)=" S PSJFLAG=FIELD(4)"
^XMB(3.9,101,2,885,0)="""RTN"",""PSJHL4"",172,0)"
^XMB(3.9,101,2,886,0)=" S FLDATE=$G(FIELD(7)) S:FLDATE'="""" FLDATE=+$E(+$$HL7TFM^XLFDT(FIELD(7)),1,12) S FLDATE=$$DATE2^PSJUTL2(FLDATE)"
^XMB(3.9,101,2,887,0)="""RTN"",""PSJHL4"",173,0)"
^XMB(3.9,101,2,888,0)=" S CLERK=+$G(FIELD(16))"
^XMB(3.9,101,2,889,0)="""RTN"",""PSJHL4"",174,0)"
^XMB(3.9,101,2,890,0)=" S PSJYN=$G(FIELD(24))"
^XMB(3.9,101,2,891,0)="""RTN"",""PSJHL4"",175,0)"
^XMB(3.9,101,2,892,0)=" S FLCMNT=$G(FIELD(13))"
^XMB(3.9,101,2,893,0)="""RTN"",""PSJHL4"",176,0)"
^XMB(3.9,101,2,894,0)=" I PSOC=""ORU"" D FLAG^PSJHL5"
^XMB(3.9,101,2,895,0)="""RTN"",""PSJHL4"",177,0)"
^XMB(3.9,101,2,896,0)=" Q"
^XMB(3.9,101,2,897,0)="""RTN"",""PSJHL4"",178,0)"
^XMB(3.9,101,2,898,0)="RXC ; IV order"
^XMB(3.9,101,2,899,0)="""RTN"",""PSJHL4"",179,0)"
^XMB(3.9,101,2,900,0)=" D RXC^PSJHL4A"
^XMB(3.9,101,2,901,0)="""RTN"",""PSJHL4"",180,0)"
^XMB(3.9,101,2,902,0)=" Q"
^XMB(3.9,101,2,903,0)="""RTN"",""PSJHL4"",181,0)"
^XMB(3.9,101,2,904,0)=" ;"
^XMB(3.9,101,2,905,0)="""RTN"",""PSJHL4"",182,0)"
^XMB(3.9,101,2,906,0)="RXO ;"
^XMB(3.9,101,2,907,0)="""RTN"",""PSJHL4"",183,0)"
^XMB(3.9,101,2,908,0)=" D RXO^PSJHL4A"
^XMB(3.9,101,2,909,0)="""RTN"",""PSJHL4"",184,0)"
^XMB(3.9,101,2,910,0)=" Q"
^XMB(3.9,101,2,911,0)="""RTN"",""PSJHL4"",185,0)"
^XMB(3.9,101,2,912,0)=" ;"
^XMB(3.9,101,2,913,0)="""RTN"",""PSJHL4"",186,0)"
^XMB(3.9,101,2,914,0)="RXR ;"
^XMB(3.9,101,2,915,0)="""RTN"",""PSJHL4"",187,0)"
^XMB(3.9,101,2,916,0)=" S ROUTE=$P(FIELD(1),""^"",4)"
^XMB(3.9,101,2,917,0)="""RTN"",""PSJHL4"",188,0)"
^XMB(3.9,101,2,918,0)=" Q"
^XMB(3.9,101,2,919,0)="""RTN"",""PSJHL4"",189,0)"
^XMB(3.9,101,2,920,0)=" ;"
^XMB(3.9,101,2,921,0)="""RTN"",""PSJHL4"",190,0)"
^XMB(3.9,101,2,922,0)="OBX ;"
^XMB(3.9,101,2,923,0)="""RTN"",""PSJHL4"",191,0)"
^XMB(3.9,101,2,924,0)=" D OBX^PSJHL4A"
^XMB(3.9,101,2,925,0)="""RTN"",""PSJHL4"",192,0)"
^XMB(3.9,101,2,926,0)=" Q"
^XMB(3.9,101,2,927,0)="""RTN"",""PSJHL4"",193,0)"
^XMB(3.9,101,2,928,0)=" ;"
^XMB(3.9,101,2,929,0)="""RTN"",""PSJHL4"",194,0)"
^XMB(3.9,101,2,930,0)="NTE ;"
^XMB(3.9,101,2,931,0)="""RTN"",""PSJHL4"",195,0)"
^XMB(3.9,101,2,932,0)=" D NTE^PSJHL4A"
^XMB(3.9,101,2,933,0)="""RTN"",""PSJHL4"",196,0)"
^XMB(3.9,101,2,934,0)=" Q"
^XMB(3.9,101,2,935,0)="""RTN"",""PSJHL4"",197,0)"
^XMB(3.9,101,2,936,0)=" ;"
^XMB(3.9,101,2,937,0)="""RTN"",""PSJHL4"",198,0)"
^XMB(3.9,101,2,938,0)="ZRX ;"
^XMB(3.9,101,2,939,0)="""RTN"",""PSJHL4"",199,0)"
^XMB(3.9,101,2,940,0)=" D ZRX^PSJHL4A"
^XMB(3.9,101,2,941,0)="""RTN"",""PSJHL4"",200,0)"
^XMB(3.9,101,2,942,0)=" Q"
^XMB(3.9,101,2,943,0)="""RTN"",""PSJHL4"",201,0)"
^XMB(3.9,101,2,944,0)=" ;"
^XMB(3.9,101,2,945,0)="""RTN"",""PSJHL4"",202,0)"
^XMB(3.9,101,2,946,0)="ZSC ;Service Connected - Not Used by Inpatient"
^XMB(3.9,101,2,947,0)="""RTN"",""PSJHL4"",203,0)"
^XMB(3.9,101,2,948,0)=" Q"
^XMB(3.9,101,2,949,0)="""RTN"",""PSJHL4"",204,0)"
^XMB(3.9,101,2,950,0)=" ;"
^XMB(3.9,101,2,951,0)="""RTN"",""PSJHL4"",205,0)"
^XMB(3.9,101,2,952,0)="ZRN ;Non-VA Med (Herbal/OTC)"
^XMB(3.9,101,2,953,0)="""RTN"",""PSJHL4"",206,0)"
^XMB(3.9,101,2,954,0)=" S CLASS=""O"" D EN^PSOHLNEW(.PSJMSG)"
^XMB(3.9,101,2,955,0)="""RTN"",""PSJHL4"",207,0)"
^XMB(3.9,101,2,956,0)=" Q"
^XMB(3.9,101,2,957,0)="""RTN"",""PSJHL4"",208,0)"
^XMB(3.9,101,2,958,0)="DG1 ;Billing Awareness - Not used by Inpatient"
^XMB(3.9,101,2,959,0)="""RTN"",""PSJHL4"",209,0)"
^XMB(3.9,101,2,960,0)=" Q"
^XMB(3.9,101,2,961,0)="""RTN"",""PSJHL4A"")"
^XMB(3.9,101,2,962,0)="0^4^B36548779^B30067390"
^XMB(3.9,101,2,963,0)="""RTN"",""PSJHL4A"",1,0)"
^XMB(3.9,101,2,964,0)="PSJHL4A ;BIR/RLW-CONTINUE DECODE HL7 /MESSSAGE FROM OE/RR ;16 Mar 99 / 4:55 PM"
^XMB(3.9,101,2,965,0)="""RTN"",""PSJHL4A"",2,0)"
^XMB(3.9,101,2,966,0)=" ;;5.0; INPATIENT MEDICATIONS ;**105,111,154**;16 DEC 97"
^XMB(3.9,101,2,967,0)="""RTN"",""PSJHL4A"",3,0)"
^XMB(3.9,101,2,968,0)=" ;"
^XMB(3.9,101,2,969,0)="""RTN"",""PSJHL4A"",4,0)"
^XMB(3.9,101,2,970,0)=" ; Reference to ^PS(52.6 is supported by DBIA# 1231."
^XMB(3.9,101,2,971,0)="""RTN"",""PSJHL4A"",5,0)"
^XMB(3.9,101,2,972,0)=" ; Reference to ^PS(52.7 is supported by DBIA# 2173."
^XMB(3.9,101,2,973,0)="""RTN"",""PSJHL4A"",6,0)"
^XMB(3.9,101,2,974,0)=" ; Reference to ^PS(55 is supported by DBIA# 2191."
^XMB(3.9,101,2,975,0)="""RTN"",""PSJHL4A"",7,0)"
^XMB(3.9,101,2,976,0)=" ; Reference to ^PS(59.7 supported by DBIA #2181."
^XMB(3.9,101,2,977,0)="""RTN"",""PSJHL4A"",8,0)"
^XMB(3.9,101,2,978,0)=" ;"
^XMB(3.9,101,2,979,0)="""RTN"",""PSJHL4A"",9,0)"
^XMB(3.9,101,2,980,0)="RXC ; IV order"
^XMB(3.9,101,2,981,0)="""RTN"",""PSJHL4A"",10,0)"
^XMB(3.9,101,2,982,0)=" S APPL=FIELD(1)"
^XMB(3.9,101,2,983,0)="""RTN"",""PSJHL4A"",11,0)"
^XMB(3.9,101,2,984,0)=" I APPL[""B"" S SOLCNT=SOLCNT+1,PTR=$P(FIELD(2),""^"",4) Q:'PTR  S VOLUME=+FIELD(3)_"" ML"" D  I '$D(^TMP(""PSJNVO"",$J,""SOL"",SOLCNT,0)) D SOLSRCH"
^XMB(3.9,101,2,985,0)="""RTN"",""PSJHL4A"",12,0)"
^XMB(3.9,101,2,986,0)=" .S SOLUTION="""" F  S SOLUTION=$O(^PS(52.7,""AOI"",PTR,SOLUTION)) Q:'SOLUTION  S INACT=$G(^PS(52.7,SOLUTION,""I"")) I 'INACT!(INACT>DT) I VOLUME=$P(^PS(52.7,SOLUTION,0),U,3) D"
^XMB(3.9,101,2,987,0)="""RTN"",""PSJHL4A"",13,0)"
^XMB(3.9,101,2,988,0)=" ..S ^TMP(""PSJNVO"",$J,""SOL"",0)=SOLCNT"
^XMB(3.9,101,2,989,0)="""RTN"",""PSJHL4A"",14,0)"
^XMB(3.9,101,2,990,0)=" ..S ^TMP(""PSJNVO"",$J,""SOL"",SOLCNT,0)=SOLUTION_""^""_VOLUME,TVOLUME=TVOLUME+(+VOLUME)"
^XMB(3.9,101,2,991,0)="""RTN"",""PSJHL4A"",15,0)"
^XMB(3.9,101,2,992,0)=" I $G(INFRT)]"""" S X=INFRT D ENI^PSJHLU S INFRT=$G(X)"
^XMB(3.9,101,2,993,0)="""RTN"",""PSJHL4A"",16,0)"
^XMB(3.9,101,2,994,0)=" I APPL=""A"" S ADCNT=ADCNT+1,PTR=$P(FIELD(2),""^"",4) Q:'PTR  S STRENGTH=$G(FIELD(3))_"" ""_$P($G(FIELD(4)),""^"",5) D  I '$D(^TMP(""PSJNVO"",$J,""AD"",ADCNT,0)) S PSREASON=""Can't find matching additive"" D ERROR^PSJHL9 Q"
^XMB(3.9,101,2,995,0)="""RTN"",""PSJHL4A"",17,0)"
^XMB(3.9,101,2,996,0)=" .S ADDITIVE="""" F  S ADDITIVE=$O(^PS(52.6,""AOI"",PTR,ADDITIVE)) Q:'ADDITIVE  S INACT=$G(^PS(52.6,ADDITIVE,""I"")) I 'INACT!(INACT>DT)  Q:$G(^PS(52.6,ADDITIVE,0))']""""  D  Q:ADDITIVE"
^XMB(3.9,101,2,997,0)="""RTN"",""PSJHL4A"",18,0)"
^XMB(3.9,101,2,998,0)=" ..I $G(PSITEM)="""" S PSITEM=PTR"
^XMB(3.9,101,2,999,0)="""RTN"",""PSJHL4A"",19,0)"
^XMB(3.9,101,2,1000,0)=" ..S ^TMP(""PSJNVO"",$J,""AD"",0)=ADCNT"
^XMB(3.9,101,2,1001,0)="""RTN"",""PSJHL4A"",20,0)"
^XMB(3.9,101,2,1002,0)=" ..S ^TMP(""PSJNVO"",$J,""AD"",ADCNT,0)=ADDITIVE_""^""_STRENGTH"
^XMB(3.9,101,2,1003,0)="""RTN"",""PSJHL4A"",21,0)"
^XMB(3.9,101,2,1004,0)=" Q"
^XMB(3.9,101,2,1005,0)="""RTN"",""PSJHL4A"",22,0)"
^XMB(3.9,101,2,1006,0)=" ;"
^XMB(3.9,101,2,1007,0)="""RTN"",""PSJHL4A"",23,0)"
^XMB(3.9,101,2,1008,0)="RXO ;"
^XMB(3.9,101,2,1009,0)="""RTN"",""PSJHL4A"",24,0)"
^XMB(3.9,101,2,1010,0)=" I $O(PSJMSG(II,0)) D"
^XMB(3.9,101,2,1011,0)="""RTN"",""PSJHL4A"",25,0)"
^XMB(3.9,101,2,1012,0)=" .K SEGMENT"
^XMB(3.9,101,2,1013,0)="""RTN"",""PSJHL4A"",26,0)"
^XMB(3.9,101,2,1014,0)=" .N KK,JJ,XX"
^XMB(3.9,101,2,1015,0)="""RTN"",""PSJHL4A"",27,0)"
^XMB(3.9,101,2,1016,0)=" .S SEGMENT(1)=$G(PSJMSG(II))"
^XMB(3.9,101,2,1017,0)="""RTN"",""PSJHL4A"",28,0)"
^XMB(3.9,101,2,1018,0)=" .S KK=1,JJ="""" F  S JJ=$O(PSJMSG(II,JJ)) Q:'JJ  S KK=KK+1,SEGMENT(KK)=$G(PSJMSG(II,JJ))"
^XMB(3.9,101,2,1019,0)="""RTN"",""PSJHL4A"",29,0)"
^XMB(3.9,101,2,1020,0)=" .S KK=1,JJ=0"
^XMB(3.9,101,2,1021,0)="""RTN"",""PSJHL4A"",30,0)"
^XMB(3.9,101,2,1022,0)=" .F  Q:'$D(SEGMENT(KK))  D"
^XMB(3.9,101,2,1023,0)="""RTN"",""PSJHL4A"",31,0)"
^XMB(3.9,101,2,1024,0)=" ..I SEGMENT(KK)[""|"" S FIELD(JJ)=$P(SEGMENT(KK),""|""),SEGMENT(KK)=$E(SEGMENT(KK),$L(FIELD(JJ))+2,$L(SEGMENT(KK))),JJ=JJ+1 Q"
^XMB(3.9,101,2,1025,0)="""RTN"",""PSJHL4A"",32,0)"
^XMB(3.9,101,2,1026,0)=" ..I SEGMENT(KK)'[""|"" S FIELD(JJ)=SEGMENT(KK),KK=KK+1 Q:'$D(SEGMENT(KK))  D"
^XMB(3.9,101,2,1027,0)="""RTN"",""PSJHL4A"",33,0)"
^XMB(3.9,101,2,1028,0)=" ...S XX=$P(SEGMENT(KK),""|""),SEGMENT(KK)=$E(SEGMENT(KK),$L(X)+2,$L(SEGMENT(KK))),FIELD(JJ)=FIELD(JJ)_XX,JJ=JJ+1"
^XMB(3.9,101,2,1029,0)="""RTN"",""PSJHL4A"",34,0)"
^XMB(3.9,101,2,1030,0)=" S APPL="""",PSITEM=$S($P(FIELD(1),""^"",5)=""IV"":"""",1:$P(FIELD(1),""^"",4))"
^XMB(3.9,101,2,1031,0)="""RTN"",""PSJHL4A"",35,0)"
^XMB(3.9,101,2,1032,0)=" S:$P(FIELD(1),""^"",6)=""ORD"" PSITEM="""""
^XMB(3.9,101,2,1033,0)="""RTN"",""PSJHL4A"",36,0)"
^XMB(3.9,101,2,1034,0)=" S:$P(FIELD(1),""^"",5)=""IV"" IVTYP=""A"",SCHTYP=""C"",INFRT=$G(FIELD(2))"
^XMB(3.9,101,2,1035,0)="""RTN"",""PSJHL4A"",37,0)"
^XMB(3.9,101,2,1036,0)=" S DISPENSE=$P($G(FIELD(10)),""^"",4)"
^XMB(3.9,101,2,1037,0)="""RTN"",""PSJHL4A"",38,0)"
^XMB(3.9,101,2,1038,0)=" S IVLIMIT=$P($G(PSJMSG(II)),""^"",3)"
^XMB(3.9,101,2,1039,0)="""RTN"",""PSJHL4A"",39,0)"
^XMB(3.9,101,2,1040,0)=" Q"
^XMB(3.9,101,2,1041,0)="""RTN"",""PSJHL4A"",40,0)"
^XMB(3.9,101,2,1042,0)=" ;"
^XMB(3.9,101,2,1043,0)="""RTN"",""PSJHL4A"",41,0)"
^XMB(3.9,101,2,1044,0)="OBX ;"
^XMB(3.9,101,2,1045,0)="""RTN"",""PSJHL4A"",42,0)"
^XMB(3.9,101,2,1046,0)=" S OBXFL=1,OCNARR=FIELD(5),OCPROV=CLERK,OCCNT=OCCNT+1"
^XMB(3.9,101,2,1047,0)="""RTN"",""PSJHL4A"",43,0)"
^XMB(3.9,101,2,1048,0)=" S ^TMP(""PSJNVO"",$J,10,0)=OCCNT"
^XMB(3.9,101,2,1049,0)="""RTN"",""PSJHL4A"",44,0)"
^XMB(3.9,101,2,1050,0)=" S ^TMP(""PSJNVO"",$J,10,OCCNT,0)=OCNARR"
^XMB(3.9,101,2,1051,0)="""RTN"",""PSJHL4A"",45,0)"
^XMB(3.9,101,2,1052,0)=" S ^TMP(""PSJNVO"",$J,10,OCCNT,1)=$P($G(^VA(200,+OCPROV,0)),""^"")"
^XMB(3.9,101,2,1053,0)="""RTN"",""PSJHL4A"",46,0)"
^XMB(3.9,101,2,1054,0)=" Q"
^XMB(3.9,101,2,1055,0)="""RTN"",""PSJHL4A"",47,0)"
^XMB(3.9,101,2,1056,0)=" ;"
^XMB(3.9,101,2,1057,0)="""RTN"",""PSJHL4A"",48,0)"
^XMB(3.9,101,2,1058,0)="NTE ;"
^XMB(3.9,101,2,1059,0)="""RTN"",""PSJHL4A"",49,0)"
^XMB(3.9,101,2,1060,0)=" S TEXT=$S((FIELD(1)=6)&('OBXFL):""PROCOM"",(FIELD(1)=7)&('OBXFL):""ADMINSTR"",1:""OCRSN"")"
^XMB(3.9,101,2,1061,0)="""RTN"",""PSJHL4A"",50,0)"
^XMB(3.9,101,2,1062,0)=" S @TEXT@(1)=$G(FIELD(3))"
^XMB(3.9,101,2,1063,0)="""RTN"",""PSJHL4A"",51,0)"
^XMB(3.9,101,2,1064,0)=" S K=1,J="""" F  S J=$O(PSJMSG(II,J)) Q:'J  S K=K+1,@TEXT@(K)=$G(PSJMSG(II,J))"
^XMB(3.9,101,2,1065,0)="""RTN"",""PSJHL4A"",52,0)"
^XMB(3.9,101,2,1066,0)=" D:$D(OCRSN)"
^XMB(3.9,101,2,1067,0)="""RTN"",""PSJHL4A"",53,0)"
^XMB(3.9,101,2,1068,0)=" .S QQ=0 F  S QQ=$O(OCRSN(QQ)) Q:'QQ  S ^TMP(""PSJNVO"",$J,10,OCCNT,2,QQ,0)=OCRSN(QQ)"
^XMB(3.9,101,2,1069,0)="""RTN"",""PSJHL4A"",54,0)"
^XMB(3.9,101,2,1070,0)=" S OBXFL=0"
^XMB(3.9,101,2,1071,0)="""RTN"",""PSJHL4A"",55,0)"
^XMB(3.9,101,2,1072,0)=" Q"
^XMB(3.9,101,2,1073,0)="""RTN"",""PSJHL4A"",56,0)"
^XMB(3.9,101,2,1074,0)=" ;"
^XMB(3.9,101,2,1075,0)="""RTN"",""PSJHL4A"",57,0)"
^XMB(3.9,101,2,1076,0)="ZRX ;"
^XMB(3.9,101,2,1077,0)="""RTN"",""PSJHL4A"",58,0)"
^XMB(3.9,101,2,1078,0)=" N ND,ND2,CHK,FOLOR,STDT"
^XMB(3.9,101,2,1079,0)="""RTN"",""PSJHL4A"",59,0)"
^XMB(3.9,101,2,1080,0)=" S PREON=$G(FIELD(1)),ROC=$G(FIELD(3))"
^XMB(3.9,101,2,1081,0)="""RTN"",""PSJHL4A"",60,0)"
^XMB(3.9,101,2,1082,0)=" S ND=$S((PREON[""N"")!(PREON[""P""):$G(^PS(53.1,+PREON,0)),PREON[""V"":$G(^PS(55,PSJHLDFN,""IV"",+PREON,0)),1:$G(^PS(55,PSJHLDFN,5,+PREON,0)))"
^XMB(3.9,101,2,1083,0)="""RTN"",""PSJHL4A"",61,0)"
^XMB(3.9,101,2,1084,0)=" S ND2=$S((PREON[""N"")!(PREON[""P""):$G(^PS(53.1,+PREON,2)),PREON[""V"":$G(^PS(55,PSJHLDFN,""IV"",+PREON,2)),1:$G(^PS(55,PSJHLDFN,5,+PREON,2)))"
^XMB(3.9,101,2,1085,0)="""RTN"",""PSJHL4A"",62,0)"
^XMB(3.9,101,2,1086,0)=" I 'ND I ROC'=""N"" S PSREASON=""Invalid Pharmacy order number"" D ERROR^PSJHL9 Q"
^XMB(3.9,101,2,1087,0)="""RTN"",""PSJHL4A"",63,0)"
^XMB(3.9,101,2,1088,0)=" I ND I ROC=""R"" S FOLOR=$S(PREON[""V"":$P(ND2,U,6),1:$P(ND,U,26)) I FOLOR S PSREASON=""Duplicate Renewal Request"" D ERROR^PSJHL9 Q"
^XMB(3.9,101,2,1089,0)="""RTN"",""PSJHL4A"",64,0)"
^XMB(3.9,101,2,1090,0)=" I ND I ROC=""R"" S CHK=$S(PREON[""V"":$P(ND,U,17),1:$P(ND,U,9)) I ""AE""'[CHK S PSREASON=""Pharmacy orders with a status of ""_CHK_"" may not be renewed"" D ERROR^PSJHL9 Q"
^XMB(3.9,101,2,1091,0)="""RTN"",""PSJHL4A"",65,0)"
^XMB(3.9,101,2,1092,0)=" I $G(CHK)=""E"" I PREON'[""V"" D NOW^%DTC S X1=+$E(%,1,12),X2=-4 D C^%DTC S STDT=$S(PREON[""V"":$P(ND,U,3),1:$P(ND2,U,4)) I STDT'>X S PSREASON=""Pharmacy orders expired longer than 4 days may not be renewed"" D ERROR^PSJHL9 Q"
^XMB(3.9,101,2,1093,0)="""RTN"",""PSJHL4A"",66,0)"
^XMB(3.9,101,2,1094,0)=" I ND I ROC=""E"" S FOLOR=$S(PREON[""V"":$P(ND2,U,6),1:$P(ND,U,26)) I FOLOR S PSREASON=""Pharmacy orders may only be edited ONCE"" D ERROR^PSJHL9 Q"
^XMB(3.9,101,2,1095,0)="""RTN"",""PSJHL4A"",67,0)"
^XMB(3.9,101,2,1096,0)=" I ND I ROC=""E"" S CHK=$S(PREON[""V"":$P(ND,U,17),1:$P(ND,U,9)) I ""DEHO""[CHK N CHKRTN S CHKRTN=CHK_""^PSJHL6"" D @CHKRTN S PSREASON=PSREASON_"" orders may not be edited"" D ERROR^PSJHL9 Q"
^XMB(3.9,101,2,1097,0)="""RTN"",""PSJHL4A"",68,0)"
^XMB(3.9,101,2,1098,0)=" D:ROC'=""R"" VALID^PSJHL9 Q:QFLG"
^XMB(3.9,101,2,1099,0)="""RTN"",""PSJHL4A"",69,0)"
^XMB(3.9,101,2,1100,0)=" I $G(PSITEM)="""",$D(^TMP(""PSJNVO"",$J,""SOL"",1,0)) S PSITEM=$P($G(^PS(52.7,+^TMP(""PSJNVO"",$J,""SOL"",1,0),0)),""^"",11)"
^XMB(3.9,101,2,1101,0)="""RTN"",""PSJHL4A"",70,0)"
^XMB(3.9,101,2,1102,0)=" I PRIORITY=""ZD"" D VALID^PSJHL10 S QFLG=1 Q"
^XMB(3.9,101,2,1103,0)="""RTN"",""PSJHL4A"",71,0)"
^XMB(3.9,101,2,1104,0)=" I (PREON]"""")&(ROC=""E"") D EDITCK^PSJHL5 Q:QFLG"
^XMB(3.9,101,2,1105,0)="""RTN"",""PSJHL4A"",72,0)"
^XMB(3.9,101,2,1106,0)=" D NVO^PSJHL9"
^XMB(3.9,101,2,1107,0)="""RTN"",""PSJHL4A"",73,0)"
^XMB(3.9,101,2,1108,0)=" I (PREON]"""")&(ROC=""R"") D RENEW^PSJHL7 Q"
^XMB(3.9,101,2,1109,0)="""RTN"",""PSJHL4A"",74,0)"
^XMB(3.9,101,2,1110,0)=" I (PREON]"""")&(ROC=""E"") D EDIT^PSJHL5"
^XMB(3.9,101,2,1111,0)="""RTN"",""PSJHL4A"",75,0)"
^XMB(3.9,101,2,1112,0)=" Q"
^XMB(3.9,101,2,1113,0)="""RTN"",""PSJHL4A"",76,0)"
^XMB(3.9,101,2,1114,0)=" ;"
^XMB(3.9,101,2,1115,0)="""RTN"",""PSJHL4A"",77,0)"
^XMB(3.9,101,2,1116,0)="SOLSRCH ;Find solution"
^XMB(3.9,101,2,1117,0)="""RTN"",""PSJHL4A"",78,0)"
^XMB(3.9,101,2,1118,0)=" N SSSS,SEG,ON,ROC,SOL,SOL2"
^XMB(3.9,101,2,1119,0)="""RTN"",""PSJHL4A"",79,0)"
^XMB(3.9,101,2,1120,0)=" F SSSS=II:0 S SSSS=$O(PSJMSG(SSSS)) Q:'SSSS  I $P(PSJMSG(SSSS),""|"")=""ZRX"" D  Q"
^XMB(3.9,101,2,1121,0)="""RTN"",""PSJHL4A"",80,0)"
^XMB(3.9,101,2,1122,0)=" .S SEG=$G(PSJMSG(SSSS)),ON=$P(SEG,""|"",2),ROC=$P(SEG,""|"",4)"
^XMB(3.9,101,2,1123,0)="""RTN"",""PSJHL4A"",81,0)"
^XMB(3.9,101,2,1124,0)=" I $G(ROC)'=""N"" F SOL=0:0 S SOL=$O(^PS(55,PSJHLDFN,""IV"",+ON,""SOL"",SOL)) Q:'SOL  S SOL2=$G(^PS(55,PSJHLDFN,""IV"",+ON,""SOL"",SOL,0)) I $D(^PS(52.7,""AOI"",PTR,+SOL2))&($P(SOL2,U,2)=VOLUME) S SOLUTION=+SOL2 D SET Q"
^XMB(3.9,101,2,1125,0)="""RTN"",""PSJHL4A"",82,0)"
^XMB(3.9,101,2,1126,0)=" I 'SOLUTION S SOLUTION=$O(^PS(52.7,""AOI"",PTR,SOLUTION)) D SET"
^XMB(3.9,101,2,1127,0)="""RTN"",""PSJHL4A"",83,0)"
^XMB(3.9,101,2,1128,0)=" Q"
^XMB(3.9,101,2,1129,0)="""RTN"",""PSJHL4A"",84,0)"
^XMB(3.9,101,2,1130,0)="SET ;Set solution tmp nodes"
^XMB(3.9,101,2,1131,0)="""RTN"",""PSJHL4A"",85,0)"
^XMB(3.9,101,2,1132,0)=" Q:'+SOLUTION"
^XMB(3.9,101,2,1133,0)="""RTN"",""PSJHL4A"",86,0)"
^XMB(3.9,101,2,1134,0)=" S ^TMP(""PSJNVO"",$J,""SOL"",0)=SOLCNT"
^XMB(3.9,101,2,1135,0)="""RTN"",""PSJHL4A"",87,0)"
^XMB(3.9,101,2,1136,0)=" S ^TMP(""PSJNVO"",$J,""SOL"",SOLCNT,0)=SOLUTION_""^""_VOLUME,TVOLUME=TVOLUME+(+VOLUME)"
^XMB(3.9,101,2,1137,0)="""RTN"",""PSJHL4A"",88,0)"
^XMB(3.9,101,2,1138,0)=" Q"
^XMB(3.9,101,2,1139,0)="""RTN"",""PSJHL4A"",89,0)"
^XMB(3.9,101,2,1140,0)=" ;"
^XMB(3.9,101,2,1141,0)="""RTN"",""PSJHL4A"",90,0)"
^XMB(3.9,101,2,1142,0)="SNDTSTW(PRIO,PSJSCHED,WARD) ; Test to determine if mail message should be sent."
^XMB(3.9,101,2,1143,0)="""RTN"",""PSJHL4A"",91,0)"
^XMB(3.9,101,2,1144,0)=" N SNPRIO,SNSCHD,SNOPT"
^XMB(3.9,101,2,1145,0)="""RTN"",""PSJHL4A"",92,0)"
^XMB(3.9,101,2,1146,0)=" S SNPRIO=$S(PRIO=""S"":""S"",PRIO=""A"":""A"",1:""R"")"
^XMB(3.9,101,2,1147,0)="""RTN"",""PSJHL4A"",93,0)"
^XMB(3.9,101,2,1148,0)=" S SNSCHD=$S(PSJSCHED=""STAT"":""S"",PSJSCHED=""NOW"":""N"",1:""R"")"
^XMB(3.9,101,2,1149,0)="""RTN"",""PSJHL4A"",94,0)"
^XMB(3.9,101,2,1150,0)=" S SNOPT=$P($G(^PS(59.6,WARD,0)),""^"",32)"
^XMB(3.9,101,2,1151,0)="""RTN"",""PSJHL4A"",95,0)"
^XMB(3.9,101,2,1152,0)=" S:SNOPT="""" SNOPT=$P($G(^PS(59.7,1,27)),""^"",1)"
^XMB(3.9,101,2,1153,0)="""RTN"",""PSJHL4A"",96,0)"
^XMB(3.9,101,2,1154,0)=" Q:SNOPT="""" 0"
^XMB(3.9,101,2,1155,0)="""RTN"",""PSJHL4A"",97,0)"
^XMB(3.9,101,2,1156,0)=" Q:SNOPT[SNPRIO 0"
^XMB(3.9,101,2,1157,0)="""RTN"",""PSJHL4A"",98,0)"
^XMB(3.9,101,2,1158,0)=" Q:SNOPT[SNSCHD 0"
^XMB(3.9,101,2,1159,0)="""RTN"",""PSJHL4A"",99,0)"
^XMB(3.9,101,2,1160,0)=" Q 1"
^XMB(3.9,101,2,1161,0)="""RTN"",""PSJHL4A"",100,0)"
^XMB(3.9,101,2,1162,0)=" ;"
^XMB(3.9,101,2,1163,0)="""RTN"",""PSJHL4A"",101,0)"
^XMB(3.9,101,2,1164,0)="SNDTSTP(PRIO,PSJSCHED) ; Test to determine if mail message should be sent."
^XMB(3.9,101,2,1165,0)="""RTN"",""PSJHL4A"",102,0)"
^XMB(3.9,101,2,1166,0)=" N SNPRIO,SNSCHD,SNOPT"
^XMB(3.9,101,2,1167,0)="""RTN"",""PSJHL4A"",103,0)"
^XMB(3.9,101,2,1168,0)=" S SNPRIO=$S(PRIO=""S"":""S"",PRIO=""A"":""A"",1:""R"")"
^XMB(3.9,101,2,1169,0)="""RTN"",""PSJHL4A"",104,0)"
^XMB(3.9,101,2,1170,0)=" S SNSCHD=$S(PSJSCHED=""STAT"":""S"",PSJSCHED=""NOW"":""N"",1:""R"")"
^XMB(3.9,101,2,1171,0)="""RTN"",""PSJHL4A"",105,0)"
^XMB(3.9,101,2,1172,0)=" S SNOPT=$P($G(^PS(59.7,1,27)),""^"",1)"
^XMB(3.9,101,2,1173,0)="""RTN"",""PSJHL4A"",106,0)"
^XMB(3.9,101,2,1174,0)=" Q:SNOPT="""" 0"
^XMB(3.9,101,2,1175,0)="""RTN"",""PSJHL4A"",107,0)"
^XMB(3.9,101,2,1176,0)=" Q:SNOPT[SNPRIO 0"
^XMB(3.9,101,2,1177,0)="""RTN"",""PSJHL4A"",108,0)"
^XMB(3.9,101,2,1178,0)=" Q:SNOPT[SNSCHD 0"
^XMB(3.9,101,2,1179,0)="""RTN"",""PSJHL4A"",109,0)"
^XMB(3.9,101,2,1180,0)=" Q 1"
^XMB(3.9,101,2,1181,0)="""RTN"",""PSJHL4A"",110,0)"
^XMB(3.9,101,2,1182,0)=" ;"
^XMB(3.9,101,2,1183,0)="""RTN"",""PSJHL4A"",111,0)"
^XMB(3.9,101,2,1184,0)="SNDTSTA(PRIO,PSJSCHED) ; Test to determine if mail message should be sent."
^XMB(3.9,101,2,1185,0)="""RTN"",""PSJHL4A"",112,0)"
^XMB(3.9,101,2,1186,0)=" N SNPRIO,SNSCHD,SNOPT"
^XMB(3.9,101,2,1187,0)="""RTN"",""PSJHL4A"",113,0)"
^XMB(3.9,101,2,1188,0)=" S SNPRIO=$S(PRIO=""S"":""S"",PRIO=""A"":""A"",1:""R"")"
^XMB(3.9,101,2,1189,0)="""RTN"",""PSJHL4A"",114,0)"
^XMB(3.9,101,2,1190,0)=" S SNSCHD=$S(PSJSCHED=""STAT"":""S"",PSJSCHED=""NOW"":""N"",1:""R"")"
^XMB(3.9,101,2,1191,0)="""RTN"",""PSJHL4A"",115,0)"
^XMB(3.9,101,2,1192,0)=" S SNOPT=$P($G(^PS(59.7,1,27)),""^"",2)"
^XMB(3.9,101,2,1193,0)="""RTN"",""PSJHL4A"",116,0)"
^XMB(3.9,101,2,1194,0)=" S:SNOPT="""" SNOPT=$P($G(^PS(59.7,1,27)),""^"",1)"
^XMB(3.9,101,2,1195,0)="""RTN"",""PSJHL4A"",117,0)"
^XMB(3.9,101,2,1196,0)=" Q:SNOPT="""" 0"
^XMB(3.9,101,2,1197,0)="""RTN"",""PSJHL4A"",118,0)"
^XMB(3.9,101,2,1198,0)=" Q:SNOPT[SNPRIO 0"
^XMB(3.9,101,2,1199,0)="""RTN"",""PSJHL4A"",119,0)"
^XMB(3.9,101,2,1200,0)=" Q:SNOPT[SNSCHD 0"
^XMB(3.9,101,2,1201,0)="""RTN"",""PSJHL4A"",120,0)"
^XMB(3.9,101,2,1202,0)=" Q 1"
^XMB(3.9,101,2,1203,0)="""RTN"",""PSJLMPRI"")"
^XMB(3.9,101,2,1204,0)="0^2^B18941536^B17650009"
^XMB(3.9,101,2,1205,0)="""RTN"",""PSJLMPRI"",1,0)"
^XMB(3.9,101,2,1206,0)="PSJLMPRI ;BIR/MLM-INPATIENT LISTMAN IV PROFILE UTILITIES ;01 JUL 96 / 2:24 PM"
^XMB(3.9,101,2,1207,0)="""RTN"",""PSJLMPRI"",2,0)"
^XMB(3.9,101,2,1208,0)=" ;;5.0; INPATIENT MEDICATIONS ;**58,85,118,110,133,154**;16 DEC 97"
^XMB(3.9,101,2,1209,0)="""RTN"",""PSJLMPRI"",3,0)"
^XMB(3.9,101,2,1210,0)=" ;"
^XMB(3.9,101,2,1211,0)="""RTN"",""PSJLMPRI"",4,0)"
^XMB(3.9,101,2,1212,0)=" ; Reference to ^PS(55 is supported by DBIA 2191."
^XMB(3.9,101,2,1213,0)="""RTN"",""PSJLMPRI"",5,0)"
^XMB(3.9,101,2,1214,0)=" ;"
^XMB(3.9,101,2,1215,0)="""RTN"",""PSJLMPRI"",6,0)"
^XMB(3.9,101,2,1216,0)="PIV(DFN,ON,PSJF,DN)       ;Setup LM display for IV order. "
^XMB(3.9,101,2,1217,0)="""RTN"",""PSJLMPRI"",7,0)"
^XMB(3.9,101,2,1218,0)=" N ND14,DRG,ON55,P,PSJORIFN,TYP,V,X,Y,PSJFLAG S TYP=""?"" I ON[""V"" D"
^XMB(3.9,101,2,1219,0)="""RTN"",""PSJLMPRI"",8,0)"
^XMB(3.9,101,2,1220,0)=" .S Y=$G(^PS(55,DFN,""IV"",+ON,0)) F X=2,3,4,5,8,9,17,23 S P(X)=$P(Y,U,X)"
^XMB(3.9,101,2,1221,0)="""RTN"",""PSJLMPRI"",9,0)"
^XMB(3.9,101,2,1222,0)=" .S TYP=$$ONE^PSJBCMA(DFN,ON,P(9),P(2),P(3)) I TYP'=""O"" S TYP=""C"""
^XMB(3.9,101,2,1223,0)="""RTN"",""PSJLMPRI"",10,0)"
^XMB(3.9,101,2,1224,0)=" .S ON55=ON,P(""OT"")=$S(P(4)=""A"":""F"",P(4)=""H"":""H"",1:""I"") D GTDRG^PSIVORFB,GTOT^PSIVUTL(P(4))"
^XMB(3.9,101,2,1225,0)="""RTN"",""PSJLMPRI"",11,0)"
^XMB(3.9,101,2,1226,0)=" .S P(""PRY"")=$P($G(^PS(55,DFN,""IV"",+ON,.2)),U,4),PSJFLAG=$P($G(^(.2)),U,7)"
^XMB(3.9,101,2,1227,0)="""RTN"",""PSJLMPRI"",12,0)"
^XMB(3.9,101,2,1228,0)=" .S ND4=$G(^PS(55,DFN,""IV"",+ON,4)),V=$S(P(""PRY"")=""D"":""d"",1:"" "")_$S((+PSJSYSU=1&'+$P(ND4,U)):""->"",(+PSJSYSU=3&'+$P(ND4,U,4)):""->"",1:"""") I PSJFLAG D CNTRL^VALM10(PSJLN,1,4,IORVON,IORVOFF,0)"
^XMB(3.9,101,2,1229,0)="""RTN"",""PSJLMPRI"",13,0)"
^XMB(3.9,101,2,1230,0)=" .S PSJL=$$SETSTR^VALM1(V,PSJL,6,3)"
^XMB(3.9,101,2,1231,0)="""RTN"",""PSJLMPRI"",14,0)"
^XMB(3.9,101,2,1232,0)=" .S ND14=$G(^PS(55,DFN,""IV"",+ON,14,0)),ND14=$P(ND14,U,3) S:ND14 ND14=+$G(^(ND14,0))"
^XMB(3.9,101,2,1233,0)="""RTN"",""PSJLMPRI"",15,0)"
^XMB(3.9,101,2,1234,0)=" I ON=+ON N PSJEN2,O S PSJEN2=PSJEN,O="""" F  S O=$O(^PS(53.1,""ACX"",ON,O)) Q:O=""""  D"
^XMB(3.9,101,2,1235,0)="""RTN"",""PSJLMPRI"",16,0)"
^XMB(3.9,101,2,1236,0)=" .I PSJEN2'=PSJEN S PSJL=$J(PSJEN2,4)"
^XMB(3.9,101,2,1237,0)="""RTN"",""PSJLMPRI"",17,0)"
^XMB(3.9,101,2,1238,0)=" .S (P(2),P(3))="""",P(17)=$P($G(^PS(53.1,+O,O)),U,9),Y=+$G(^(8)),P(4)=$P(Y,U),P(8)=$P(Y,U,5),P(9)=$P($G(^(2)),U),PSJFLAG=$P($G(^(.2)),U,7)"
^XMB(3.9,101,2,1239,0)="""RTN"",""PSJLMPRI"",18,0)"
^XMB(3.9,101,2,1240,0)=" .D GTDRG^PSIVORFA,GTOT^PSIVUTL(P(4)) D @$S($E(P(""OT""))'=""F"":""PUD^PSJLMPRU(DFN,O_""""P"""",PSJF,DN)"",1:""PIV^PSJLMPRI(DFN,O_""""P"""",PSJF,DN)"") S PSJEN2="""""
^XMB(3.9,101,2,1241,0)="""RTN"",""PSJLMPRI"",19,0)"
^XMB(3.9,101,2,1242,0)=" I ON[""P"" S (P(2),P(3))="""",P(17)=$P($G(^PS(53.1,+ON,0)),U,9),Y=$G(^(8)),P(4)=$P(Y,U),P(8)=$P(Y,U,5),P(9)=$P($G(^(2)),U),PSJFLAG=$P($G(^(.2)),U,7) D  I $E(P(""OT""))'=""F"" D PUD^PSJLMPRU(DFN,ON,PSJF,DN) Q"
^XMB(3.9,101,2,1243,0)="""RTN"",""PSJLMPRI"",20,0)"
^XMB(3.9,101,2,1244,0)=" . D GTDRG^PSIVORFA,GTOT^PSIVUTL(P(4))"
^XMB(3.9,101,2,1245,0)="""RTN"",""PSJLMPRI"",21,0)"
^XMB(3.9,101,2,1246,0)=" . S ND14=$G(^PS(53.1,+ON,14,0)),ND14=$P(ND14,U,3) S:ND14 ND14=+$G(^(ND14,0))"
^XMB(3.9,101,2,1247,0)="""RTN"",""PSJLMPRI"",22,0)"
^XMB(3.9,101,2,1248,0)=" I $G(PSJFLAG) D CNTRL^VALM10(PSJLN,1,4,IORVON,IORVOFF,0)"
^XMB(3.9,101,2,1249,0)="""RTN"",""PSJLMPRI"",23,0)"
^XMB(3.9,101,2,1250,0)=" NEW PSJIVFLG S PSJIVFLG=1"
^XMB(3.9,101,2,1251,0)="""RTN"",""PSJLMPRI"",24,0)"
^XMB(3.9,101,2,1252,0)=" S DRG=+$O(DRG(""AD"",0)) D:DRG PIVAD F  S DRG=$O(DRG(""AD"",DRG)) Q:'DRG  S PSJL="""" D PIVAD"
^XMB(3.9,101,2,1253,0)="""RTN"",""PSJLMPRI"",25,0)"
^XMB(3.9,101,2,1254,0)="SOL ;"
^XMB(3.9,101,2,1255,0)="""RTN"",""PSJLMPRI"",26,0)"
^XMB(3.9,101,2,1256,0)=" S PSJL=$S($G(PSJIVFLG):PSJL_$S(ON[""V"":""in"",1:""    in""),1:""        in"")"
^XMB(3.9,101,2,1257,0)="""RTN"",""PSJLMPRI"",27,0)"
^XMB(3.9,101,2,1258,0)=" NEW DRGX,NAME"
^XMB(3.9,101,2,1259,0)="""RTN"",""PSJLMPRI"",28,0)"
^XMB(3.9,101,2,1260,0)=" S DRG=0 F  S DRG=+$O(DRG(""SOL"",DRG)) Q:'DRG  D NAME^PSIVUTL(DRG(""SOL"",DRG),39,.NAME,0) S DRGX=0 F  S DRGX=$O(NAME(DRGX)) Q:'DRGX  S PSJL=$$SETSTR^VALM1(NAME(DRGX),PSJL,12,60) D:$G(PSJIVFLG) PIV1 D SETTMP,SETSTAT S PSJL=""      """
^XMB(3.9,101,2,1261,0)="""RTN"",""PSJLMPRI"",29,0)"
^XMB(3.9,101,2,1262,0)=" ;S DRG=0 F  S DRG=+$O(DRG(""SOL"",DRG)) Q:'DRG  D NAME^PSIVUTL(DRG(""SOL"",DRG),39,.NAME,0) S DRGX=0 F  S DRGX=$O(NAME(DRGX)) Q:'DRGX  S PSJL=$$SETSTR^VALM1(NAME(DRGX),PSJL,12,60) D:'$G(PSJIVFLG) SETTMP D:$G(PSJIVFLG) PIV1 S PSJL=""      """
^XMB(3.9,101,2,1263,0)="""RTN"",""PSJLMPRI"",30,0)"
^XMB(3.9,101,2,1264,0)=" Q"
^XMB(3.9,101,2,1265,0)="""RTN"",""PSJLMPRI"",31,0)"
^XMB(3.9,101,2,1266,0)="PIVAD ; Print IV Additives."
^XMB(3.9,101,2,1267,0)="""RTN"",""PSJLMPRI"",32,0)"
^XMB(3.9,101,2,1268,0)=" NEW NAME"
^XMB(3.9,101,2,1269,0)="""RTN"",""PSJLMPRI"",33,0)"
^XMB(3.9,101,2,1270,0)=" D NAME^PSIVUTL(DRG(""AD"",DRG),39,.NAME,1)"
^XMB(3.9,101,2,1271,0)="""RTN"",""PSJLMPRI"",34,0)"
^XMB(3.9,101,2,1272,0)=" I $D(NAME(2)) S PSJL=$$SETSTR^VALM1(NAME(1),PSJL,9,60) D:$G(PSJIVFLG) PIV1 D SETTMP,SETSTAT S PSJL="""",PSJL=$$SETSTR^VALM1(NAME(2),PSJL,9,60) D SETTMP,SETSTAT"
^XMB(3.9,101,2,1273,0)="""RTN"",""PSJLMPRI"",35,0)"
^XMB(3.9,101,2,1274,0)=" I '$D(NAME(2)) S PSJL=$$SETSTR^VALM1(NAME(1),PSJL,9,60) D:$G(PSJIVFLG) PIV1 D SETTMP,SETSTAT"
^XMB(3.9,101,2,1275,0)="""RTN"",""PSJLMPRI"",36,0)"
^XMB(3.9,101,2,1276,0)=" Q"
^XMB(3.9,101,2,1277,0)="""RTN"",""PSJLMPRI"",37,0)"
^XMB(3.9,101,2,1278,0)=" ;"
^XMB(3.9,101,2,1279,0)="""RTN"",""PSJLMPRI"",38,0)"
^XMB(3.9,101,2,1280,0)="PIV1 ; Print Sched type, start/stop dates, and status."
^XMB(3.9,101,2,1281,0)="""RTN"",""PSJLMPRI"",39,0)"
^XMB(3.9,101,2,1282,0)=" K PSJIVFLG"
^XMB(3.9,101,2,1283,0)="""RTN"",""PSJLMPRI"",40,0)"
^XMB(3.9,101,2,1284,0)=" F X=2,3 S P(X)=$E($$ENDTC^PSGMI(P(X)),1,$S($D(PSJEXTP):8,1:5))"
^XMB(3.9,101,2,1285,0)="""RTN"",""PSJLMPRI"",41,0)"
^XMB(3.9,101,2,1286,0)=" I '$D(PSJEXTP) S PSJL=$$SETSTR^VALM1(TYP,PSJL,50,1),PSJL=$$SETSTR^VALM1(P(2),PSJL,53,7),PSJL=$$SETSTR^VALM1(P(3),PSJL,60,7),PSJL=$$SETSTR^VALM1(P(17),PSJL,67,1)"
^XMB(3.9,101,2,1287,0)="""RTN"",""PSJLMPRI"",42,0)"
^XMB(3.9,101,2,1288,0)=" E  S PSJL=$$SETSTR^VALM1(TYP,PSJL,50,1),PSJL=$$SETSTR^VALM1(P(2),53,7),PSJL=$$SETSTR^VALM1(P(3),PSJL,63,7),PSJL=$$SETSTR^VALM1(P(17),PSJL,73,1)"
^XMB(3.9,101,2,1289,0)="""RTN"",""PSJLMPRI"",43,0)"
^XMB(3.9,101,2,1290,0)=" I $G(ND14) S ND14=$$ENDTC^PSGMI((ND14)) S PSJL=$$SETSTR^VALM1(ND14,PSJL,$S($D(PSJEXTP):75,1:72),5) K ND14"
^XMB(3.9,101,2,1291,0)="""RTN"",""PSJLMPRI"",44,0)"
^XMB(3.9,101,2,1292,0)=" ;* D SETTMP"
^XMB(3.9,101,2,1293,0)="""RTN"",""PSJLMPRI"",45,0)"
^XMB(3.9,101,2,1294,0)=" Q"
^XMB(3.9,101,2,1295,0)="""RTN"",""PSJLMPRI"",46,0)"
^XMB(3.9,101,2,1296,0)="SETTMP ;"
^XMB(3.9,101,2,1297,0)="""RTN"",""PSJLMPRI"",47,0)"
^XMB(3.9,101,2,1298,0)=" S ^TMP($S($G(PSIVLBNM)]"""":PSIVLBNM,1:""PSJPRO""),$J,PSJLN,0)=PSJL,PSJLN=PSJLN+1"
^XMB(3.9,101,2,1299,0)="""RTN"",""PSJLMPRI"",48,0)"
^XMB(3.9,101,2,1300,0)=" Q"
^XMB(3.9,101,2,1301,0)="""RTN"",""PSJLMPRI"",49,0)"
^XMB(3.9,101,2,1302,0)=" ;"
^XMB(3.9,101,2,1303,0)="""RTN"",""PSJLMPRI"",50,0)"
^XMB(3.9,101,2,1304,0)="SETSTAT ;"
^XMB(3.9,101,2,1305,0)="""RTN"",""PSJLMPRI"",51,0)"
^XMB(3.9,101,2,1306,0)=" I ON[""P"",$P($G(^PS(53.1,+ON,.2)),""^"",4)=""S"" D CNTRL^VALM10((PSJLN-1),9,9+$L(PSJL),IOINHI_IOBON,IOINORM,0)"
^XMB(3.9,101,2,1307,0)="""RTN"",""PSJLMPRI"",52,0)"
^XMB(3.9,101,2,1308,0)=" Q"
^XMB(3.9,101,2,1309,0)="""RTN"",""PSJLMPRI"",53,0)"
^XMB(3.9,101,2,1310,0)=" ; "
^XMB(3.9,101,2,1311,0)="""RTN"",""PSJLMPRI"",54,0)"
^XMB(3.9,101,2,1312,0)="LASTREN(DFN,ON) ;"
^XMB(3.9,101,2,1313,0)="""RTN"",""PSJLMPRI"",55,0)"
^XMB(3.9,101,2,1314,0)=" N FIL,RNDT,ND0,ND14 S ND14="""" I '$G(ON)!'$G(DFN) Q 0"
^XMB(3.9,101,2,1315,0)="""RTN"",""PSJLMPRI"",56,0)"
^XMB(3.9,101,2,1316,0)=" S FIL=$S(ON[""P"":""^PS(53.1,""_+ON_"",14,0)"",ON[""V"":""^PS(55,""_DFN_"",""""IV"""",""_+ON_"",14,0)"",ON[""U"":""^PS(55,""_DFN_"",5,""_+ON_"",14,0)"",1:"""")"
^XMB(3.9,101,2,1317,0)="""RTN"",""PSJLMPRI"",57,0)"
^XMB(3.9,101,2,1318,0)=" ; Naked reference below refers to either ^PS(53.1,+ON,14,0), ^PS(55,+ON,5,14,0), or ^PS(55,+ON,5,14,0) created using indirection in variable FIL."
^XMB(3.9,101,2,1319,0)="""RTN"",""PSJLMPRI"",58,0)"
^XMB(3.9,101,2,1320,0)=" Q:FIL="""" 0"
^XMB(3.9,101,2,1321,0)="""RTN"",""PSJLMPRI"",59,0)"
^XMB(3.9,101,2,1322,0)=" S ND14=$G(@(FIL)) I $P(ND14,""^"",3) S ND14=$G(^($P(ND14,""^"",3),0))"
^XMB(3.9,101,2,1323,0)="""RTN"",""PSJLMPRI"",60,0)"
^XMB(3.9,101,2,1324,0)=" Q ND14"
^XMB(3.9,101,2,1325,0)="""RTN"",""PSJLMPRI"",61,0)"
^XMB(3.9,101,2,1326,0)=" ;"
^XMB(3.9,101,2,1327,0)="""RTN"",""PSJLMPRI"",62,0)"
^XMB(3.9,101,2,1328,0)="LASTRNBY(DFN,ON) ;"
^XMB(3.9,101,2,1329,0)="""RTN"",""PSJLMPRI"",63,0)"
^XMB(3.9,101,2,1330,0)=" N FIL,RNBY,ND0,ND14 S RNBY="""""
^XMB(3.9,101,2,1331,0)="""RTN"",""PSJLMPRI"",64,0)"
^XMB(3.9,101,2,1332,0)=" S FIL=$S(ON[""P"":""^PS(53.1,""_+ON_"",14,0)"",ON[""V"":""^PS(55,""_DFN_"",""""IV"""",""_+ON_"",14,0)"",ON[""U"":""^PS(55,""_DFN_"",5,""_+ON_"",14,0)"",1:"""")"
^XMB(3.9,101,2,1333,0)="""RTN"",""PSJLMPRI"",65,0)"
^XMB(3.9,101,2,1334,0)=" ; Naked reference below refers to either ^PS(53.1,+ON,14,0), ^PS(55,+ON,5,14,0), or ^PS(55,+ON,5,14,0) created using indirection in variable FIL."
^XMB(3.9,101,2,1335,0)="""RTN"",""PSJLMPRI"",66,0)"
^XMB(3.9,101,2,1336,0)=" Q:FIL="""" 0"
^XMB(3.9,101,2,1337,0)="""RTN"",""PSJLMPRI"",67,0)"
^XMB(3.9,101,2,1338,0)=" S ND14=$G(@(FIL)) I $P(ND14,""^"",3) S ND14=$G(^($P(ND14,""^"",3),0)),RNBY=$P(ND14,""^"",2)"
^XMB(3.9,101,2,1339,0)="""RTN"",""PSJLMPRI"",68,0)"
^XMB(3.9,101,2,1340,0)=" Q RNBY"
^XMB(3.9,101,2,1341,0)="""VER"")"
^XMB(3.9,101,2,1342,0)="8.0^22.0"
^XMB(3.9,101,2,1343,0)="""^DD"",59.6,59.6,6,0)"
^XMB(3.9,101,2,1344,0)="PRIORITIES FOR NOTIFICATION^S^S:STAT;SA:STAT/ASAP;SAN:STAT/ASAP/NOW;A:ASAP;AN:ASAP/NOW;N:NOW;SN:STAT/NOW;^0;32^Q"
^XMB(3.9,101,2,1345,0)="""^DD"",59.6,59.6,6,21,0)"
^XMB(3.9,101,2,1346,0)="^.001^4^4^3050727^^^"
^XMB(3.9,101,2,1347,0)="""^DD"",59.6,59.6,6,21,1,0)"
^XMB(3.9,101,2,1348,0)="Enter the priorities of STAT, ASAP, or the schedule of NOW, or any "
^XMB(3.9,101,2,1349,0)="""^DD"",59.6,59.6,6,21,2,0)"
^XMB(3.9,101,2,1350,0)="combination the three to be used to send a notification of orders with "
^XMB(3.9,101,2,1351,0)="""^DD"",59.6,59.6,6,21,3,0)"
^XMB(3.9,101,2,1352,0)="these priorities to the mail group defined in the STAT NOW MAIL GROUP "
^XMB(3.9,101,2,1353,0)="""^DD"",59.6,59.6,6,21,4,0)"
^XMB(3.9,101,2,1354,0)="parameter."
^XMB(3.9,101,2,1355,0)="""^DD"",59.6,59.6,6,""DT"")"
^XMB(3.9,101,2,1356,0)="3050727"
^XMB(3.9,101,2,1357,0)="""BLD"",5988,6)"
^XMB(3.9,101,2,1358,0)="^152"
^XMB(3.9,101,2,1359,0)="$END KID PSJ*5.0*154"
^XMB(3.9,101,6,0)="^3.911A^2^2"
^XMB(3.9,101,6,1,0)="POSTMASTER"
^XMB(3.9,101,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,101,6,"B","POSTMASTER",1)=""
^XMB(3.9,101,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,102,0)="PSJ-5_SEQ-153_PAT-156.KID^.5^3061008.01574^^^^K"
^XMB(3.9,102,.6)="3061008"
^XMB(3.9,102,1,0)="^3.91A^2^2"
^XMB(3.9,102,1,1,0)=".5^0^3061008.01574^^^^^^^3061008.01574"
^XMB(3.9,102,1,2,0)="1^0^3061008.022245^^^^^^^3061008.022245"
^XMB(3.9,102,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,102,1,"C",.5,1)=""
^XMB(3.9,102,1,"C",1,2)=""
^XMB(3.9,102,2,0)="^^425^425^3061008"
^XMB(3.9,102,2,1,0)="$TXT EMERGENCY Released PSJ*5*156 SEQ #153"
^XMB(3.9,102,2,2,0)="Extracted from mail message"
^XMB(3.9,102,2,3,0)="$END TXT"
^XMB(3.9,102,2,4,0)="$KID PSJ*5.0*156"
^XMB(3.9,102,2,5,0)="**INSTALL NAME**"
^XMB(3.9,102,2,6,0)="PSJ*5.0*156"
^XMB(3.9,102,2,7,0)="""BLD"",6417,0)"
^XMB(3.9,102,2,8,0)="PSJ*5.0*156^INPATIENT MEDICATIONS^0^3060418^y"
^XMB(3.9,102,2,9,0)="""BLD"",6417,1,0)"
^XMB(3.9,102,2,10,0)="^^11^11^3060405^"
^XMB(3.9,102,2,11,0)="""BLD"",6417,1,1,0)"
^XMB(3.9,102,2,12,0)="A provider entered a medication through CPRS with the intent of the order "
^XMB(3.9,102,2,13,0)="""BLD"",6417,1,2,0)"
^XMB(3.9,102,2,14,0)="being administered on a QD0600 continuous schedule.  The medication "
^XMB(3.9,102,2,15,0)="""BLD"",6417,1,3,0)"
^XMB(3.9,102,2,16,0)="ordered, however, had a default schedule type of PRN.  Therefore, when "
^XMB(3.9,102,2,17,0)="""BLD"",6417,1,4,0)"
^XMB(3.9,102,2,18,0)="the pharmacist finished the order backdoor, the default schedule type of "
^XMB(3.9,102,2,19,0)="""BLD"",6417,1,5,0)"
^XMB(3.9,102,2,20,0)="PRN overrode the Provider's intent of a continuous schedule.  Because the "
^XMB(3.9,102,2,21,0)="""BLD"",6417,1,6,0)"
^XMB(3.9,102,2,22,0)="medication was finished as PRN, the patient missed a dose of the "
^XMB(3.9,102,2,23,0)="""BLD"",6417,1,7,0)"
^XMB(3.9,102,2,24,0)="medication."
^XMB(3.9,102,2,25,0)="""BLD"",6417,1,8,0)"
^XMB(3.9,102,2,26,0)=" "
^XMB(3.9,102,2,27,0)="""BLD"",6417,1,9,0)"
^XMB(3.9,102,2,28,0)="This patch addresses this issue by only allowing the backdoor default"
^XMB(3.9,102,2,29,0)="""BLD"",6417,1,10,0)"
^XMB(3.9,102,2,30,0)="schedule type to override the incoming CPRS schedule type if the backdoor"
^XMB(3.9,102,2,31,0)="""BLD"",6417,1,11,0)"
^XMB(3.9,102,2,32,0)="default is ""Fill on Request""."
^XMB(3.9,102,2,33,0)="""BLD"",6417,4,0)"
^XMB(3.9,102,2,34,0)="^9.64PA^^"
^XMB(3.9,102,2,35,0)="""BLD"",6417,""KRN"",0)"
^XMB(3.9,102,2,36,0)="^9.67PA^8989.52^19"
^XMB(3.9,102,2,37,0)="""BLD"",6417,""KRN"",.4,0)"
^XMB(3.9,102,2,38,0)=".4"
^XMB(3.9,102,2,39,0)="""BLD"",6417,""KRN"",.4,""NM"",0)"
^XMB(3.9,102,2,40,0)="^9.68A^^0"
^XMB(3.9,102,2,41,0)="""BLD"",6417,""KRN"",.401,0)"
^XMB(3.9,102,2,42,0)=".401"
^XMB(3.9,102,2,43,0)="""BLD"",6417,""KRN"",.402,0)"
^XMB(3.9,102,2,44,0)=".402"
^XMB(3.9,102,2,45,0)="""BLD"",6417,""KRN"",.402,""NM"",0)"
^XMB(3.9,102,2,46,0)="^9.68A^^0"
^XMB(3.9,102,2,47,0)="""BLD"",6417,""KRN"",.403,0)"
^XMB(3.9,102,2,48,0)=".403"
^XMB(3.9,102,2,49,0)="""BLD"",6417,""KRN"",.5,0)"
^XMB(3.9,102,2,50,0)=".5"
^XMB(3.9,102,2,51,0)="""BLD"",6417,""KRN"",.84,0)"
^XMB(3.9,102,2,52,0)=".84"
^XMB(3.9,102,2,53,0)="""BLD"",6417,""KRN"",3.6,0)"
^XMB(3.9,102,2,54,0)="3.6"
^XMB(3.9,102,2,55,0)="""BLD"",6417,""KRN"",3.6,""NM"",0)"
^XMB(3.9,102,2,56,0)="^9.68A^^0"
^XMB(3.9,102,2,57,0)="""BLD"",6417,""KRN"",3.8,0)"
^XMB(3.9,102,2,58,0)="3.8"
^XMB(3.9,102,2,59,0)="""BLD"",6417,""KRN"",3.8,""NM"",0)"
^XMB(3.9,102,2,60,0)="^9.68A^^0"
^XMB(3.9,102,2,61,0)="""BLD"",6417,""KRN"",9.2,0)"
^XMB(3.9,102,2,62,0)="9.2"
^XMB(3.9,102,2,63,0)="""BLD"",6417,""KRN"",9.8,0)"
^XMB(3.9,102,2,64,0)="9.8"
^XMB(3.9,102,2,65,0)="""BLD"",6417,""KRN"",9.8,""NM"",0)"
^XMB(3.9,102,2,66,0)="^9.68A^1^1"
^XMB(3.9,102,2,67,0)="""BLD"",6417,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,102,2,68,0)="PSGOE6^^0^23062511"
^XMB(3.9,102,2,69,0)="""BLD"",6417,""KRN"",9.8,""NM"",""B"",""PSGOE6"",1)"
^XMB(3.9,102,2,70,0)=""
^XMB(3.9,102,2,71,0)="""BLD"",6417,""KRN"",19,0)"
^XMB(3.9,102,2,72,0)="19"
^XMB(3.9,102,2,73,0)="""BLD"",6417,""KRN"",19,""NM"",0)"
^XMB(3.9,102,2,74,0)="^9.68A^^0"
^XMB(3.9,102,2,75,0)="""BLD"",6417,""KRN"",19.1,0)"
^XMB(3.9,102,2,76,0)="19.1"
^XMB(3.9,102,2,77,0)="""BLD"",6417,""KRN"",19.1,""NM"",0)"
^XMB(3.9,102,2,78,0)="^9.68A^^0"
^XMB(3.9,102,2,79,0)="""BLD"",6417,""KRN"",101,0)"
^XMB(3.9,102,2,80,0)="101"
^XMB(3.9,102,2,81,0)="""BLD"",6417,""KRN"",101,""NM"",0)"
^XMB(3.9,102,2,82,0)="^9.68A^^0"
^XMB(3.9,102,2,83,0)="""BLD"",6417,""KRN"",409.61,0)"
^XMB(3.9,102,2,84,0)="409.61"
^XMB(3.9,102,2,85,0)="""BLD"",6417,""KRN"",409.61,""NM"",0)"
^XMB(3.9,102,2,86,0)="^9.68A^^0"
^XMB(3.9,102,2,87,0)="""BLD"",6417,""KRN"",771,0)"
^XMB(3.9,102,2,88,0)="771"
^XMB(3.9,102,2,89,0)="""BLD"",6417,""KRN"",870,0)"
^XMB(3.9,102,2,90,0)="870"
^XMB(3.9,102,2,91,0)="""BLD"",6417,""KRN"",8989.51,0)"
^XMB(3.9,102,2,92,0)="8989.51"
^XMB(3.9,102,2,93,0)="""BLD"",6417,""KRN"",8989.52,0)"
^XMB(3.9,102,2,94,0)="8989.52"
^XMB(3.9,102,2,95,0)="""BLD"",6417,""KRN"",8994,0)"
^XMB(3.9,102,2,96,0)="8994"
^XMB(3.9,102,2,97,0)="""BLD"",6417,""KRN"",""B"",.4,.4)"
^XMB(3.9,102,2,98,0)=""
^XMB(3.9,102,2,99,0)="""BLD"",6417,""KRN"",""B"",.401,.401)"
^XMB(3.9,102,2,100,0)=""
^XMB(3.9,102,2,101,0)="""BLD"",6417,""KRN"",""B"",.402,.402)"
^XMB(3.9,102,2,102,0)=""
^XMB(3.9,102,2,103,0)="""BLD"",6417,""KRN"",""B"",.403,.403)"
^XMB(3.9,102,2,104,0)=""
^XMB(3.9,102,2,105,0)="""BLD"",6417,""KRN"",""B"",.5,.5)"
^XMB(3.9,102,2,106,0)=""
^XMB(3.9,102,2,107,0)="""BLD"",6417,""KRN"",""B"",.84,.84)"
^XMB(3.9,102,2,108,0)=""
^XMB(3.9,102,2,109,0)="""BLD"",6417,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,102,2,110,0)=""
^XMB(3.9,102,2,111,0)="""BLD"",6417,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,102,2,112,0)=""
^XMB(3.9,102,2,113,0)="""BLD"",6417,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,102,2,114,0)=""
^XMB(3.9,102,2,115,0)="""BLD"",6417,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,102,2,116,0)=""
^XMB(3.9,102,2,117,0)="""BLD"",6417,""KRN"",""B"",19,19)"
^XMB(3.9,102,2,118,0)=""
^XMB(3.9,102,2,119,0)="""BLD"",6417,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,102,2,120,0)=""
^XMB(3.9,102,2,121,0)="""BLD"",6417,""KRN"",""B"",101,101)"
^XMB(3.9,102,2,122,0)=""
^XMB(3.9,102,2,123,0)="""BLD"",6417,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,102,2,124,0)=""
^XMB(3.9,102,2,125,0)="""BLD"",6417,""KRN"",""B"",771,771)"
^XMB(3.9,102,2,126,0)=""
^XMB(3.9,102,2,127,0)="""BLD"",6417,""KRN"",""B"",870,870)"
^XMB(3.9,102,2,128,0)=""
^XMB(3.9,102,2,129,0)="""BLD"",6417,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,102,2,130,0)=""
^XMB(3.9,102,2,131,0)="""BLD"",6417,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,102,2,132,0)=""
^XMB(3.9,102,2,133,0)="""BLD"",6417,""KRN"",""B"",8994,8994)"
^XMB(3.9,102,2,134,0)=""
^XMB(3.9,102,2,135,0)="""BLD"",6417,""QUES"",0)"
^XMB(3.9,102,2,136,0)="^9.62^^"
^XMB(3.9,102,2,137,0)="""BLD"",6417,""REQB"",0)"
^XMB(3.9,102,2,138,0)="^9.611^1^1"
^XMB(3.9,102,2,139,0)="""BLD"",6417,""REQB"",1,0)"
^XMB(3.9,102,2,140,0)="PSJ*5.0*81^1"
^XMB(3.9,102,2,141,0)="""BLD"",6417,""REQB"",""B"",""PSJ*5.0*81"",1)"
^XMB(3.9,102,2,142,0)=""
^XMB(3.9,102,2,143,0)="""MBREQ"")"
^XMB(3.9,102,2,144,0)="0"
^XMB(3.9,102,2,145,0)="""PKG"",203,-1)"
^XMB(3.9,102,2,146,0)="1^1"
^XMB(3.9,102,2,147,0)="""PKG"",203,0)"
^XMB(3.9,102,2,148,0)="INPATIENT MEDICATIONS^PSJ^UNIT DOSE AND IVS"
^XMB(3.9,102,2,149,0)="""PKG"",203,20,0)"
^XMB(3.9,102,2,150,0)="^9.402P^^"
^XMB(3.9,102,2,151,0)="""PKG"",203,22,0)"
^XMB(3.9,102,2,152,0)="^9.49I^1^1"
^XMB(3.9,102,2,153,0)="""PKG"",203,22,1,0)"
^XMB(3.9,102,2,154,0)="5.0^2971215^2980417^1271"
^XMB(3.9,102,2,155,0)="""PKG"",203,22,1,""PAH"",1,0)"
^XMB(3.9,102,2,156,0)="156^3060418^33234"
^XMB(3.9,102,2,157,0)="""PKG"",203,22,1,""PAH"",1,1,0)"
^XMB(3.9,102,2,158,0)="^^11^11^3060418"
^XMB(3.9,102,2,159,0)="""PKG"",203,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,102,2,160,0)="A provider entered a medication through CPRS with the intent of the order "
^XMB(3.9,102,2,161,0)="""PKG"",203,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,102,2,162,0)="being administered on a QD0600 continuous schedule.  The medication "
^XMB(3.9,102,2,163,0)="""PKG"",203,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,102,2,164,0)="ordered, however, had a default schedule type of PRN.  Therefore, when "
^XMB(3.9,102,2,165,0)="""PKG"",203,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,102,2,166,0)="the pharmacist finished the order backdoor, the default schedule type of "
^XMB(3.9,102,2,167,0)="""PKG"",203,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,102,2,168,0)="PRN overrode the Provider's intent of a continuous schedule.  Because the "
^XMB(3.9,102,2,169,0)="""PKG"",203,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,102,2,170,0)="medication was finished as PRN, the patient missed a dose of the "
^XMB(3.9,102,2,171,0)="""PKG"",203,22,1,""PAH"",1,1,7,0)"
^XMB(3.9,102,2,172,0)="medication."
^XMB(3.9,102,2,173,0)="""PKG"",203,22,1,""PAH"",1,1,8,0)"
^XMB(3.9,102,2,174,0)=" "
^XMB(3.9,102,2,175,0)="""PKG"",203,22,1,""PAH"",1,1,9,0)"
^XMB(3.9,102,2,176,0)="This patch addresses this issue by only allowing the backdoor default"
^XMB(3.9,102,2,177,0)="""PKG"",203,22,1,""PAH"",1,1,10,0)"
^XMB(3.9,102,2,178,0)="schedule type to override the incoming CPRS schedule type if the backdoor"
^XMB(3.9,102,2,179,0)="""PKG"",203,22,1,""PAH"",1,1,11,0)"
^XMB(3.9,102,2,180,0)="default is ""Fill on Request""."
^XMB(3.9,102,2,181,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,102,2,182,0)="Y"
^XMB(3.9,102,2,183,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,102,2,184,0)="^D REP^XPDH"
^XMB(3.9,102,2,185,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,102,2,186,0)="Shall I write over your |FLAG| File"
^XMB(3.9,102,2,187,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,102,2,188,0)="YES"
^XMB(3.9,102,2,189,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,102,2,190,0)="D XPF1^XPDIQ"
^XMB(3.9,102,2,191,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,102,2,192,0)="Y"
^XMB(3.9,102,2,193,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,102,2,194,0)="^D DTA^XPDH"
^XMB(3.9,102,2,195,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,102,2,196,0)="Want my data |FLAG| yours"
^XMB(3.9,102,2,197,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,102,2,198,0)="YES"
^XMB(3.9,102,2,199,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,102,2,200,0)="D XPF2^XPDIQ"
^XMB(3.9,102,2,201,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,102,2,202,0)="YO"
^XMB(3.9,102,2,203,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,102,2,204,0)="^D INHIBIT^XPDH"
^XMB(3.9,102,2,205,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,102,2,206,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,102,2,207,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,102,2,208,0)="YES"
^XMB(3.9,102,2,209,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,102,2,210,0)="D XPI1^XPDIQ"
^XMB(3.9,102,2,211,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,102,2,212,0)="PO^VA(200,:EM"
^XMB(3.9,102,2,213,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,102,2,214,0)="^D MG^XPDH"
^XMB(3.9,102,2,215,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,102,2,216,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,102,2,217,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,102,2,218,0)=""
^XMB(3.9,102,2,219,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,102,2,220,0)="D XPM1^XPDIQ"
^XMB(3.9,102,2,221,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,102,2,222,0)="Y"
^XMB(3.9,102,2,223,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,102,2,224,0)="^D MENU^XPDH"
^XMB(3.9,102,2,225,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,102,2,226,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,102,2,227,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,102,2,228,0)="YES"
^XMB(3.9,102,2,229,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,102,2,230,0)="D XPO1^XPDIQ"
^XMB(3.9,102,2,231,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,102,2,232,0)="Y"
^XMB(3.9,102,2,233,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,102,2,234,0)="^D OPT^XPDH"
^XMB(3.9,102,2,235,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,102,2,236,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,102,2,237,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,102,2,238,0)="YES"
^XMB(3.9,102,2,239,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,102,2,240,0)="D XPZ1^XPDIQ"
^XMB(3.9,102,2,241,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,102,2,242,0)="Y"
^XMB(3.9,102,2,243,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,102,2,244,0)="^D RTN^XPDH"
^XMB(3.9,102,2,245,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,102,2,246,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,102,2,247,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,102,2,248,0)="NO"
^XMB(3.9,102,2,249,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,102,2,250,0)="D XPZ2^XPDIQ"
^XMB(3.9,102,2,251,0)="""RTN"")"
^XMB(3.9,102,2,252,0)="1"
^XMB(3.9,102,2,253,0)="""RTN"",""PSGOE6"")"
^XMB(3.9,102,2,254,0)="0^1^B23062511^B19268349"
^XMB(3.9,102,2,255,0)="""RTN"",""PSGOE6"",1,0)"
^XMB(3.9,102,2,256,0)="PSGOE6 ;BIR/CML3-ORDER ENTRY THROUGH OE/RR ;10 Mar 98 / 2:35 PM"
^XMB(3.9,102,2,257,0)="""RTN"",""PSGOE6"",2,0)"
^XMB(3.9,102,2,258,0)=" ;;5.0; INPATIENT MEDICATIONS ;**3,7,39,45,65,58,81,156**;16 DEC 97"
^XMB(3.9,102,2,259,0)="""RTN"",""PSGOE6"",3,0)"
^XMB(3.9,102,2,260,0)=" ;"
^XMB(3.9,102,2,261,0)="""RTN"",""PSGOE6"",4,0)"
^XMB(3.9,102,2,262,0)=" ; Reference to ^PS(50.7 supported by DBIA #2180."
^XMB(3.9,102,2,263,0)="""RTN"",""PSGOE6"",5,0)"
^XMB(3.9,102,2,264,0)=" ; Reference to ^PS(51.1 is supported by DBIA #2177."
^XMB(3.9,102,2,265,0)="""RTN"",""PSGOE6"",6,0)"
^XMB(3.9,102,2,266,0)=" ; Reference to ^PS(51.2 is supported by DBIA #2178."
^XMB(3.9,102,2,267,0)="""RTN"",""PSGOE6"",7,0)"
^XMB(3.9,102,2,268,0)=" ; Reference to ^PS(55 is supported by DBIA #2191."
^XMB(3.9,102,2,269,0)="""RTN"",""PSGOE6"",8,0)"
^XMB(3.9,102,2,270,0)=" ; Reference to ^DD(53.1 is supported by DBIA #2256."
^XMB(3.9,102,2,271,0)="""RTN"",""PSGOE6"",9,0)"
^XMB(3.9,102,2,272,0)=" ; Reference to ^VA(200 is supported by DBIA #10060."
^XMB(3.9,102,2,273,0)="""RTN"",""PSGOE6"",10,0)"
^XMB(3.9,102,2,274,0)=" ; Reference to ^DICN is supported by DBIA #10009."
^XMB(3.9,102,2,275,0)="""RTN"",""PSGOE6"",11,0)"
^XMB(3.9,102,2,276,0)=" ;"
^XMB(3.9,102,2,277,0)="""RTN"",""PSGOE6"",12,0)"
^XMB(3.9,102,2,278,0)=" K PSGFOK S F1=53.1,PSGPR=$S($D(PSGOERR):PSJORPV,1:PSGOEPR),PSGMR=$S($P(PSGNEDFD,""^"",2):$P(PSGNEDFD,""^"",2),1:PSGOEDMR),PSGSCH=$P(PSGNEDFD,""^"",4),(PSGOROE1,PSGSI,SDT,PSGMRN,PSGSM,PSGHSM,PSGUD,PSGSD,PSGFD,PSGSI,PSGNEFD,PSGNESD)="""""
^XMB(3.9,102,2,279,0)="""RTN"",""PSGOE6"",13,0)"
^XMB(3.9,102,2,280,0)=" S:PSGMR PSGMRN=$S('$P(PSGNEDFD,""^"",2):""ORAL"",'$D(^PS(51.2,PSGMR,0)):PSGMR,$P(^(0),""^"")]"""":$P(^(0),""^""),1:PSGMR) I PSGPR S PSGPRN=$P($G(^VA(200,PSGPR,0)),""^"") S:PSGPRN="""" PSGPRN=PSGPR"
^XMB(3.9,102,2,281,0)="""RTN"",""PSGOE6"",14,0)"
^XMB(3.9,102,2,282,0)=" S PSGST=$S($P(PSGNEDFD,""^"",3)]"""":$P(PSGNEDFD,""^"",3),1:""C"")"
^XMB(3.9,102,2,283,0)="""RTN"",""PSGOE6"",15,0)"
^XMB(3.9,102,2,284,0)=" K ^PS(53.45,PSJSYSP,1),^(2) I PSGDRG S ^(2,0)=""^53.4502P^""_PSGDRG_""^1"",^(1,0)=PSGDRG,^PS(53.45,PSJSYSP,2,""B"",PSGDRG,1)="""""
^XMB(3.9,102,2,285,0)="""RTN"",""PSGOE6"",16,0)"
^XMB(3.9,102,2,286,0)=" ;"
^XMB(3.9,102,2,287,0)="""RTN"",""PSGOE6"",17,0)"
^XMB(3.9,102,2,288,0)="109 ; dosage ordered"
^XMB(3.9,102,2,289,0)="""RTN"",""PSGOE6"",18,0)"
^XMB(3.9,102,2,290,0)=" W !,""DOSAGE ORDERED: "",$S(PSGDO]"""":PSGDO_""// "",1:"""") R X:DTIME I X=""^""!'$T W:'$T $C(7) S PSGOROE1=1 G DONE"
^XMB(3.9,102,2,291,0)="""RTN"",""PSGOE6"",19,0)"
^XMB(3.9,102,2,292,0)=" I X="""" S X=PSGDO I X="""" W $C(7),""  (Required)"" G 109"
^XMB(3.9,102,2,293,0)="""RTN"",""PSGOE6"",20,0)"
^XMB(3.9,102,2,294,0)=" S PSGF2=109 I X=""@"" W $C(7),""  (Required)"" G 109"
^XMB(3.9,102,2,295,0)="""RTN"",""PSGOE6"",21,0)"
^XMB(3.9,102,2,296,0)=" I X?1.""?"" S F1=53.1 D ENHLP^PSGOEM(53.1,109) G 109"
^XMB(3.9,102,2,297,0)="""RTN"",""PSGOE6"",22,0)"
^XMB(3.9,102,2,298,0)=" I $E(X)=""^"" D FF G:Y>0 @Y G 109"
^XMB(3.9,102,2,299,0)="""RTN"",""PSGOE6"",23,0)"
^XMB(3.9,102,2,300,0)=" I $E(X,$L(X))="" "" F  S X=$E(X,1,$L(X)-1) Q:$E(X,$L(X))'="" """
^XMB(3.9,102,2,301,0)="""RTN"",""PSGOE6"",24,0)"
^XMB(3.9,102,2,302,0)=" I $S(X?.E1C.E:1,$L(X)>20:1,X="""":1,X[""^"":1,X?1.P:1,1:X=+X) W $C(7),""  "",$S(X?1.P!(X=""""):""(Required)"",1:""??"") S X=""?"" D ENHLP^PSGOEM(53.1,109) G 109"
^XMB(3.9,102,2,303,0)="""RTN"",""PSGOE6"",25,0)"
^XMB(3.9,102,2,304,0)=" S PSGDO=X,PSGFOK(109)="""""
^XMB(3.9,102,2,305,0)="""RTN"",""PSGOE6"",26,0)"
^XMB(3.9,102,2,306,0)=" ;"
^XMB(3.9,102,2,307,0)="""RTN"",""PSGOE6"",27,0)"
^XMB(3.9,102,2,308,0)="3 ; med route"
^XMB(3.9,102,2,309,0)="""RTN"",""PSGOE6"",28,0)"
^XMB(3.9,102,2,310,0)=" W !,""MED ROUTE: "",$S(PSGMR:PSGMRN_""// "",1:"""") R X:DTIME I X=""^""!'$T W:'$T $C(7) S PSGOROE1=1 G DONE"
^XMB(3.9,102,2,311,0)="""RTN"",""PSGOE6"",29,0)"
^XMB(3.9,102,2,312,0)=" I X="""",PSGMR S X=PSGMRN I PSGMR'=PSGMRN,$D(^PS(51.2,PSGMR,0)) W ""  ""_$P(^(0),""^"",3) S PSGFOK(3)="""" G 26"
^XMB(3.9,102,2,313,0)="""RTN"",""PSGOE6"",30,0)"
^XMB(3.9,102,2,314,0)=" S PSGF2=3 I $S(X=""@"":1,X]"""":0,1:'PSGMR) W $C(7),""  (Required)"" S X=""?"" D ENHLP^PSGOEM(53.1,3) G 3"
^XMB(3.9,102,2,315,0)="""RTN"",""PSGOE6"",31,0)"
^XMB(3.9,102,2,316,0)=" I X?1.""?"" D ENHLP^PSGOEM(53.1,3)"
^XMB(3.9,102,2,317,0)="""RTN"",""PSGOE6"",32,0)"
^XMB(3.9,102,2,318,0)=" I $E(X)=""^"" D FF G:Y>0 @Y G 3"
^XMB(3.9,102,2,319,0)="""RTN"",""PSGOE6"",33,0)"
^XMB(3.9,102,2,320,0)=" K DIC S DIC=""^PS(51.2,"",DIC(0)=""EMQZ"",DIC(""S"")=""I $P(^(0),""""^"""",4)"" D ^DIC K DIC I Y'>0 G 3"
^XMB(3.9,102,2,321,0)="""RTN"",""PSGOE6"",34,0)"
^XMB(3.9,102,2,322,0)=" S PSGMR=+Y,PSGMRN=Y(0,0),PSGFOK(3)="""""
^XMB(3.9,102,2,323,0)="""RTN"",""PSGOE6"",35,0)"
^XMB(3.9,102,2,324,0)=" ;"
^XMB(3.9,102,2,325,0)="""RTN"",""PSGOE6"",36,0)"
^XMB(3.9,102,2,326,0)="26 ; schedule"
^XMB(3.9,102,2,327,0)="""RTN"",""PSGOE6"",37,0)"
^XMB(3.9,102,2,328,0)=" W !,""SCHEDULE: "",$S(PSGSCH]"""":PSGSCH_""// "",1:"""") R X:DTIME I X=""^""!'$T W:'$T $C(7) S PSGOROE1=1 G DONE"
^XMB(3.9,102,2,329,0)="""RTN"",""PSGOE6"",38,0)"
^XMB(3.9,102,2,330,0)=" S:X="""" X=PSGSCH S PSGF2=26 ; I ""@""[X W $C(7),""  (Required)"" S X=""?"" D ENHLP^PSGOEM(53.1,26) G 26"
^XMB(3.9,102,2,331,0)="""RTN"",""PSGOE6"",39,0)"
^XMB(3.9,102,2,332,0)=" I X?1.""?"" D ENHLP^PSGOEM(53.1,26) G 26"
^XMB(3.9,102,2,333,0)="""RTN"",""PSGOE6"",40,0)"
^XMB(3.9,102,2,334,0)=" I $E(X)=""^"" D FF G:Y>0 @Y G 26"
^XMB(3.9,102,2,335,0)="""RTN"",""PSGOE6"",41,0)"
^XMB(3.9,102,2,336,0)=" I X="""" S (PSGS0XT,PSGS0Y,PSGST)="""""
^XMB(3.9,102,2,337,0)="""RTN"",""PSGOE6"",42,0)"
^XMB(3.9,102,2,338,0)=" E  D EN^PSGS0 I '$D(X) W $C(7),""  ??"" S X=""?"" D ENHLP^PSGOEM(53.1,26) G 26"
^XMB(3.9,102,2,339,0)="""RTN"",""PSGOE6"",43,0)"
^XMB(3.9,102,2,340,0)=" S PSGSCH=X,(PSGFOK(26),PSGST)="""",PSGOES=1 S:PSGS0XT=""O"" $P(PSGNEDFD,""^"",3)=""O"",PSGST=""O"" D ^PSGNE3 K PSGOES"
^XMB(3.9,102,2,341,0)="""RTN"",""PSGOE6"",44,0)"
^XMB(3.9,102,2,342,0)=" ;"
^XMB(3.9,102,2,343,0)="""RTN"",""PSGOE6"",45,0)"
^XMB(3.9,102,2,344,0)="66 ; provider's comments"
^XMB(3.9,102,2,345,0)="""RTN"",""PSGOE6"",46,0)"
^XMB(3.9,102,2,346,0)=" ;S DA=PSJSYSP,DIE=""^PS(53.45,"",DR=4 D ^DIE K DA,DIE,DR"
^XMB(3.9,102,2,347,0)="""RTN"",""PSGOE6"",47,0)"
^XMB(3.9,102,2,348,0)=" ;S PSGFOK(66)="""",Y=1"
^XMB(3.9,102,2,349,0)="""RTN"",""PSGOE6"",48,0)"
^XMB(3.9,102,2,350,0)=" ;"
^XMB(3.9,102,2,351,0)="""RTN"",""PSGOE6"",49,0)"
^XMB(3.9,102,2,352,0)=" ;"
^XMB(3.9,102,2,353,0)="""RTN"",""PSGOE6"",50,0)"
^XMB(3.9,102,2,354,0)="DONE ;"
^XMB(3.9,102,2,355,0)="""RTN"",""PSGOE6"",51,0)"
^XMB(3.9,102,2,356,0)=" I PSGOROE1 K Y W $C(7),""  ...order not entered..."""
^XMB(3.9,102,2,357,0)="""RTN"",""PSGOE6"",52,0)"
^XMB(3.9,102,2,358,0)=" K F,F0,F1,PSGF2,F3,PSGFOK,SDT Q"
^XMB(3.9,102,2,359,0)="""RTN"",""PSGOE6"",53,0)"
^XMB(3.9,102,2,360,0)=" ;"
^XMB(3.9,102,2,361,0)="""RTN"",""PSGOE6"",54,0)"
^XMB(3.9,102,2,362,0)="FF ; up-arrow to another field"
^XMB(3.9,102,2,363,0)="""RTN"",""PSGOE6"",55,0)"
^XMB(3.9,102,2,364,0)=" S Y=-1 I '$D(PSGFOK) W $C(7),""  ??"" Q"
^XMB(3.9,102,2,365,0)="""RTN"",""PSGOE6"",56,0)"
^XMB(3.9,102,2,366,0)=" S X=$E(X,2,99) I X=+X S Y=$S($D(PSGFOK(X)):X,1:-1) W ""  "" W:Y>0 $$CODES2^PSIVUTL(53.1,X) W:Y'>0 $C(7),""??"" Q"
^XMB(3.9,102,2,367,0)="""RTN"",""PSGOE6"",57,0)"
^XMB(3.9,102,2,368,0)=" K DIC S DIC=""^DD(53.1,"",DIC(0)=""QEM"",DIC(""S"")=""I $D(PSGFOK(+Y))"" D ^DIC K DIC S Y=+Y"
^XMB(3.9,102,2,369,0)="""RTN"",""PSGOE6"",58,0)"
^XMB(3.9,102,2,370,0)=" Q"
^XMB(3.9,102,2,371,0)="""RTN"",""PSGOE6"",59,0)"
^XMB(3.9,102,2,372,0)=" ;"
^XMB(3.9,102,2,373,0)="""RTN"",""PSGOE6"",60,0)"
^XMB(3.9,102,2,374,0)="DEL ;"
^XMB(3.9,102,2,375,0)="""RTN"",""PSGOE6"",61,0)"
^XMB(3.9,102,2,376,0)=" W !?3,""SURE YOU WANT TO DELETE"" S %=0 D YN^DICN I %'=1 W ""  <NOTHING DELETED>"""
^XMB(3.9,102,2,377,0)="""RTN"",""PSGOE6"",62,0)"
^XMB(3.9,102,2,378,0)=" Q"
^XMB(3.9,102,2,379,0)="""RTN"",""PSGOE6"",63,0)"
^XMB(3.9,102,2,380,0)=" ;"
^XMB(3.9,102,2,381,0)="""RTN"",""PSGOE6"",64,0)"
^XMB(3.9,102,2,382,0)="GTST(ON) ; Find schedule type for pending order."
^XMB(3.9,102,2,383,0)="""RTN"",""PSGOE6"",65,0)"
^XMB(3.9,102,2,384,0)=" N PD,PDAP,ST,X S ST="""" I $P($G(^PS(53.1,+ON,0)),U,24)=""R"" D"
^XMB(3.9,102,2,385,0)="""RTN"",""PSGOE6"",66,0)"
^XMB(3.9,102,2,386,0)=" .; naked ref below is from line above, ^PS(53.1,ON,0)"
^XMB(3.9,102,2,387,0)="""RTN"",""PSGOE6"",67,0)"
^XMB(3.9,102,2,388,0)=" .S X=$P(^(0),U,25) S ST=$S(X[""N""!(X[""P""):$P($G(^PS(53.1,+X,0)),U,7),X[""V"":""C"",1:$P($G(^PS(55,PSGP,5,+X,0)),U,7))"
^XMB(3.9,102,2,389,0)="""RTN"",""PSGOE6"",68,0)"
^XMB(3.9,102,2,390,0)=" .I ST]"""" S (PSGOST,PSGST)=ST,PSGSTN=$$ENSTN^PSGMI(ST) Q"
^XMB(3.9,102,2,391,0)="""RTN"",""PSGOE6"",69,0)"
^XMB(3.9,102,2,392,0)=" I ST="""" D"
^XMB(3.9,102,2,393,0)="""RTN"",""PSGOE6"",70,0)"
^XMB(3.9,102,2,394,0)=" . ;PSJ*5*156 - Don't allow backdoor to override intended schedule type from CPRS unless the default"
^XMB(3.9,102,2,395,0)="""RTN"",""PSGOE6"",71,0)"
^XMB(3.9,102,2,396,0)=" . ;            schedule type (if any) is ""Fill on Request""."
^XMB(3.9,102,2,397,0)="""RTN"",""PSGOE6"",72,0)"
^XMB(3.9,102,2,398,0)=" . S PD=+$G(^PS(53.1,+ON,.2)) S X=$G(^PS(50.7,PD,0)),ST=$P(X,U,7)  ;see if there is a default schedule type."
^XMB(3.9,102,2,399,0)="""RTN"",""PSGOE6"",73,0)"
^XMB(3.9,102,2,400,0)=" . I ST=""R"" Q  ;Fill on Request default schedule type will override incoming schedule type from CPRS"
^XMB(3.9,102,2,401,0)="""RTN"",""PSGOE6"",74,0)"
^XMB(3.9,102,2,402,0)=" . S ST=""""  ;Reset to null in case default schedule type other than Fill on Request is defined."
^XMB(3.9,102,2,403,0)="""RTN"",""PSGOE6"",75,0)"
^XMB(3.9,102,2,404,0)=" . D OTS I ST=""O"" Q"
^XMB(3.9,102,2,405,0)="""RTN"",""PSGOE6"",76,0)"
^XMB(3.9,102,2,406,0)=" . I PSGSCH=""ON CALL""!(PSGSCH=""ONCALL"")!(PSGSCH=""ON-CALL"") S ST=""OC"" Q"
^XMB(3.9,102,2,407,0)="""RTN"",""PSGOE6"",77,0)"
^XMB(3.9,102,2,408,0)=" . I PSGSCH[""PRN"" S ST=""P"" Q"
^XMB(3.9,102,2,409,0)="""RTN"",""PSGOE6"",78,0)"
^XMB(3.9,102,2,410,0)=" . S ST=""C"""
^XMB(3.9,102,2,411,0)="""RTN"",""PSGOE6"",79,0)"
^XMB(3.9,102,2,412,0)=" S (PSGOST,PSGST)=ST,PSGSTN=$$ENSTN^PSGMI(ST)"
^XMB(3.9,102,2,413,0)="""RTN"",""PSGOE6"",80,0)"
^XMB(3.9,102,2,414,0)=" Q"
^XMB(3.9,102,2,415,0)="""RTN"",""PSGOE6"",81,0)"
^XMB(3.9,102,2,416,0)="OTS I PSGSCH]"""" S X=+$O(^PS(51.1,""B"",PSGSCH,0)) I $P($G(^PS(51.1,X,0)),""^"",5)=""O"" S ST=""O"" Q"
^XMB(3.9,102,2,417,0)="""RTN"",""PSGOE6"",82,0)"
^XMB(3.9,102,2,418,0)=" I PSGSCH=""TODAY""!(PSGSCH=""NOW"")!(PSGSCH=""STAT"")!(PSGSCH=""ONCE"")!(PSGSCH=""ONE TIME"")!(PSGSCH=""ONE-TIME"")!(PSGSCH=""ONETIME"")!(PSGSCH=""1TIME"")!(PSGSCH=""1 TIME"")!(PSGSCH=""1-TIME"") S ST=""O"""
^XMB(3.9,102,2,419,0)="""RTN"",""PSGOE6"",83,0)"
^XMB(3.9,102,2,420,0)=" Q"
^XMB(3.9,102,2,421,0)="""VER"")"
^XMB(3.9,102,2,422,0)="8.0^22.0"
^XMB(3.9,102,2,423,0)="""BLD"",6417,6)"
^XMB(3.9,102,2,424,0)="^153"
^XMB(3.9,102,2,425,0)="$END KID PSJ*5.0*156"
^XMB(3.9,102,6,0)="^3.911A^2^2"
^XMB(3.9,102,6,1,0)="POSTMASTER"
^XMB(3.9,102,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,102,6,"B","POSTMASTER",1)=""
^XMB(3.9,102,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,103,0)="PSJ-5_SEQ-154_PAT-170.KID^.5^3061008.015741^^^^K"
^XMB(3.9,103,.6)="3061008"
^XMB(3.9,103,1,0)="^3.91A^2^2"
^XMB(3.9,103,1,1,0)=".5^0^3061008.015741^^^^^^^3061008.015741"
^XMB(3.9,103,1,2,0)="1^0^3061008.022251^^^^^^^3061008.022251"
^XMB(3.9,103,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,103,1,"C",.5,1)=""
^XMB(3.9,103,1,"C",1,2)=""
^XMB(3.9,103,2,0)="^^937^937^3061008"
^XMB(3.9,103,2,1,0)="$TXT Released PSJ*5*170 SEQ #154"
^XMB(3.9,103,2,2,0)="Extracted from mail message"
^XMB(3.9,103,2,3,0)="$END TXT"
^XMB(3.9,103,2,4,0)="$KID PSJ*5.0*170"
^XMB(3.9,103,2,5,0)="**INSTALL NAME**"
^XMB(3.9,103,2,6,0)="PSJ*5.0*170"
^XMB(3.9,103,2,7,0)="""BLD"",6212,0)"
^XMB(3.9,103,2,8,0)="PSJ*5.0*170^INPATIENT MEDICATIONS^0^3060117^y"
^XMB(3.9,103,2,9,0)="""BLD"",6212,1,0)"
^XMB(3.9,103,2,10,0)="^^26^26^3060117^"
^XMB(3.9,103,2,11,0)="""BLD"",6212,1,1,0)"
^XMB(3.9,103,2,12,0)="1.  CPRS IV Orders currently select the first of multiple IV Additives by"
^XMB(3.9,103,2,13,0)="""BLD"",6212,1,2,0)"
^XMB(3.9,103,2,14,0)="    IEN associated with the Pharmacy Orderable Item selected in CPRS by"
^XMB(3.9,103,2,15,0)="""BLD"",6212,1,3,0)"
^XMB(3.9,103,2,16,0)="    the Provider.  The software checks to determine if the IV Additive "
^XMB(3.9,103,2,17,0)="""BLD"",6212,1,4,0)"
^XMB(3.9,103,2,18,0)="    is Inactive, but does not check the ""USED IN IV FLUID ORDER ENTRY"" "
^XMB(3.9,103,2,19,0)="""BLD"",6212,1,5,0)"
^XMB(3.9,103,2,20,0)="    field to determine if the additive should be used."
^XMB(3.9,103,2,21,0)="""BLD"",6212,1,6,0)"
^XMB(3.9,103,2,22,0)=" "
^XMB(3.9,103,2,23,0)="""BLD"",6212,1,7,0)"
^XMB(3.9,103,2,24,0)="    This patch will change the software to add a check of the ""USED "
^XMB(3.9,103,2,25,0)="""BLD"",6212,1,8,0)"
^XMB(3.9,103,2,26,0)="    IN IV FLUID ORDER ENTRY"" field and exclude the additive from selection"
^XMB(3.9,103,2,27,0)="""BLD"",6212,1,9,0)"
^XMB(3.9,103,2,28,0)="    based on that field."
^XMB(3.9,103,2,29,0)="""BLD"",6212,1,10,0)"
^XMB(3.9,103,2,30,0)=" "
^XMB(3.9,103,2,31,0)="""BLD"",6212,1,11,0)"
^XMB(3.9,103,2,32,0)="*** The software included in this patch is designed to exclude an IV"
^XMB(3.9,103,2,33,0)="""BLD"",6212,1,12,0)"
^XMB(3.9,103,2,34,0)="    Additive from the selection process only if the ""USED IN IV FLUID "
^XMB(3.9,103,2,35,0)="""BLD"",6212,1,13,0)"
^XMB(3.9,103,2,36,0)="    ORDER ENTRY"" field is set to ""NO""."
^XMB(3.9,103,2,37,0)="""BLD"",6212,1,14,0)"
^XMB(3.9,103,2,38,0)="  "
^XMB(3.9,103,2,39,0)="""BLD"",6212,1,15,0)"
^XMB(3.9,103,2,40,0)="*** If the ""USED IN IV FLUID ORDER ENTRY"" field is set to ""YES"" or "
^XMB(3.9,103,2,41,0)="""BLD"",6212,1,16,0)"
^XMB(3.9,103,2,42,0)="    blank, then the IV Additive will be selected in IEN order."
^XMB(3.9,103,2,43,0)="""BLD"",6212,1,17,0)"
^XMB(3.9,103,2,44,0)=" "
^XMB(3.9,103,2,45,0)="""BLD"",6212,1,18,0)"
^XMB(3.9,103,2,46,0)="2.  This patch is also designed to correct a programming error in routine"
^XMB(3.9,103,2,47,0)="""BLD"",6212,1,19,0)"
^XMB(3.9,103,2,48,0)="    PSJPXRM1 that is to be used by CPRS to return Inpatient Medications"
^XMB(3.9,103,2,49,0)="""BLD"",6212,1,20,0)"
^XMB(3.9,103,2,50,0)="    order information.  This is a routine that is not currently in use,"
^XMB(3.9,103,2,51,0)="""BLD"",6212,1,21,0)"
^XMB(3.9,103,2,52,0)="    and will be tested at the programmer prompt."
^XMB(3.9,103,2,53,0)="""BLD"",6212,1,22,0)"
^XMB(3.9,103,2,54,0)=" "
^XMB(3.9,103,2,55,0)="""BLD"",6212,1,23,0)"
^XMB(3.9,103,2,56,0)="3.  If the user enters a start date/time in the future and then enters "
^XMB(3.9,103,2,57,0)="""BLD"",6212,1,24,0)"
^XMB(3.9,103,2,58,0)="    the number of doses at the stop date/time prompt, the software"
^XMB(3.9,103,2,59,0)="""BLD"",6212,1,25,0)"
^XMB(3.9,103,2,60,0)="    calculates the stop date/time from the current date/time instead of"
^XMB(3.9,103,2,61,0)="""BLD"",6212,1,26,0)"
^XMB(3.9,103,2,62,0)="    the entered start date/time."
^XMB(3.9,103,2,63,0)="""BLD"",6212,4,0)"
^XMB(3.9,103,2,64,0)="^9.64PA^^"
^XMB(3.9,103,2,65,0)="""BLD"",6212,6)"
^XMB(3.9,103,2,66,0)="4^"
^XMB(3.9,103,2,67,0)="""BLD"",6212,""KRN"",0)"
^XMB(3.9,103,2,68,0)="^9.67PA^8989.52^19"
^XMB(3.9,103,2,69,0)="""BLD"",6212,""KRN"",.4,0)"
^XMB(3.9,103,2,70,0)=".4"
^XMB(3.9,103,2,71,0)="""BLD"",6212,""KRN"",.401,0)"
^XMB(3.9,103,2,72,0)=".401"
^XMB(3.9,103,2,73,0)="""BLD"",6212,""KRN"",.402,0)"
^XMB(3.9,103,2,74,0)=".402"
^XMB(3.9,103,2,75,0)="""BLD"",6212,""KRN"",.403,0)"
^XMB(3.9,103,2,76,0)=".403"
^XMB(3.9,103,2,77,0)="""BLD"",6212,""KRN"",.5,0)"
^XMB(3.9,103,2,78,0)=".5"
^XMB(3.9,103,2,79,0)="""BLD"",6212,""KRN"",.84,0)"
^XMB(3.9,103,2,80,0)=".84"
^XMB(3.9,103,2,81,0)="""BLD"",6212,""KRN"",3.6,0)"
^XMB(3.9,103,2,82,0)="3.6"
^XMB(3.9,103,2,83,0)="""BLD"",6212,""KRN"",3.8,0)"
^XMB(3.9,103,2,84,0)="3.8"
^XMB(3.9,103,2,85,0)="""BLD"",6212,""KRN"",9.2,0)"
^XMB(3.9,103,2,86,0)="9.2"
^XMB(3.9,103,2,87,0)="""BLD"",6212,""KRN"",9.8,0)"
^XMB(3.9,103,2,88,0)="9.8"
^XMB(3.9,103,2,89,0)="""BLD"",6212,""KRN"",9.8,""NM"",0)"
^XMB(3.9,103,2,90,0)="^9.68A^3^3"
^XMB(3.9,103,2,91,0)="""BLD"",6212,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,103,2,92,0)="PSJHL4A^^0^B37280433"
^XMB(3.9,103,2,93,0)="""BLD"",6212,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,103,2,94,0)="PSJPXRM1^^0^B33327052"
^XMB(3.9,103,2,95,0)="""BLD"",6212,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,103,2,96,0)="PSGDL^^0^B13848268"
^XMB(3.9,103,2,97,0)="""BLD"",6212,""KRN"",9.8,""NM"",""B"",""PSGDL"",3)"
^XMB(3.9,103,2,98,0)=""
^XMB(3.9,103,2,99,0)="""BLD"",6212,""KRN"",9.8,""NM"",""B"",""PSJHL4A"",1)"
^XMB(3.9,103,2,100,0)=""
^XMB(3.9,103,2,101,0)="""BLD"",6212,""KRN"",9.8,""NM"",""B"",""PSJPXRM1"",2)"
^XMB(3.9,103,2,102,0)=""
^XMB(3.9,103,2,103,0)="""BLD"",6212,""KRN"",19,0)"
^XMB(3.9,103,2,104,0)="19"
^XMB(3.9,103,2,105,0)="""BLD"",6212,""KRN"",19.1,0)"
^XMB(3.9,103,2,106,0)="19.1"
^XMB(3.9,103,2,107,0)="""BLD"",6212,""KRN"",101,0)"
^XMB(3.9,103,2,108,0)="101"
^XMB(3.9,103,2,109,0)="""BLD"",6212,""KRN"",409.61,0)"
^XMB(3.9,103,2,110,0)="409.61"
^XMB(3.9,103,2,111,0)="""BLD"",6212,""KRN"",771,0)"
^XMB(3.9,103,2,112,0)="771"
^XMB(3.9,103,2,113,0)="""BLD"",6212,""KRN"",870,0)"
^XMB(3.9,103,2,114,0)="870"
^XMB(3.9,103,2,115,0)="""BLD"",6212,""KRN"",8989.51,0)"
^XMB(3.9,103,2,116,0)="8989.51"
^XMB(3.9,103,2,117,0)="""BLD"",6212,""KRN"",8989.52,0)"
^XMB(3.9,103,2,118,0)="8989.52"
^XMB(3.9,103,2,119,0)="""BLD"",6212,""KRN"",8994,0)"
^XMB(3.9,103,2,120,0)="8994"
^XMB(3.9,103,2,121,0)="""BLD"",6212,""KRN"",""B"",.4,.4)"
^XMB(3.9,103,2,122,0)=""
^XMB(3.9,103,2,123,0)="""BLD"",6212,""KRN"",""B"",.401,.401)"
^XMB(3.9,103,2,124,0)=""
^XMB(3.9,103,2,125,0)="""BLD"",6212,""KRN"",""B"",.402,.402)"
^XMB(3.9,103,2,126,0)=""
^XMB(3.9,103,2,127,0)="""BLD"",6212,""KRN"",""B"",.403,.403)"
^XMB(3.9,103,2,128,0)=""
^XMB(3.9,103,2,129,0)="""BLD"",6212,""KRN"",""B"",.5,.5)"
^XMB(3.9,103,2,130,0)=""
^XMB(3.9,103,2,131,0)="""BLD"",6212,""KRN"",""B"",.84,.84)"
^XMB(3.9,103,2,132,0)=""
^XMB(3.9,103,2,133,0)="""BLD"",6212,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,103,2,134,0)=""
^XMB(3.9,103,2,135,0)="""BLD"",6212,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,103,2,136,0)=""
^XMB(3.9,103,2,137,0)="""BLD"",6212,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,103,2,138,0)=""
^XMB(3.9,103,2,139,0)="""BLD"",6212,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,103,2,140,0)=""
^XMB(3.9,103,2,141,0)="""BLD"",6212,""KRN"",""B"",19,19)"
^XMB(3.9,103,2,142,0)=""
^XMB(3.9,103,2,143,0)="""BLD"",6212,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,103,2,144,0)=""
^XMB(3.9,103,2,145,0)="""BLD"",6212,""KRN"",""B"",101,101)"
^XMB(3.9,103,2,146,0)=""
^XMB(3.9,103,2,147,0)="""BLD"",6212,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,103,2,148,0)=""
^XMB(3.9,103,2,149,0)="""BLD"",6212,""KRN"",""B"",771,771)"
^XMB(3.9,103,2,150,0)=""
^XMB(3.9,103,2,151,0)="""BLD"",6212,""KRN"",""B"",870,870)"
^XMB(3.9,103,2,152,0)=""
^XMB(3.9,103,2,153,0)="""BLD"",6212,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,103,2,154,0)=""
^XMB(3.9,103,2,155,0)="""BLD"",6212,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,103,2,156,0)=""
^XMB(3.9,103,2,157,0)="""BLD"",6212,""KRN"",""B"",8994,8994)"
^XMB(3.9,103,2,158,0)=""
^XMB(3.9,103,2,159,0)="""BLD"",6212,""QUES"",0)"
^XMB(3.9,103,2,160,0)="^9.62^^"
^XMB(3.9,103,2,161,0)="""BLD"",6212,""REQB"",0)"
^XMB(3.9,103,2,162,0)="^9.611^2^2"
^XMB(3.9,103,2,163,0)="""BLD"",6212,""REQB"",1,0)"
^XMB(3.9,103,2,164,0)="PSJ*5.0*154^2"
^XMB(3.9,103,2,165,0)="""BLD"",6212,""REQB"",2,0)"
^XMB(3.9,103,2,166,0)="PSJ*5.0*90^2"
^XMB(3.9,103,2,167,0)="""BLD"",6212,""REQB"",""B"",""PSJ*5.0*154"",1)"
^XMB(3.9,103,2,168,0)=""
^XMB(3.9,103,2,169,0)="""BLD"",6212,""REQB"",""B"",""PSJ*5.0*90"",2)"
^XMB(3.9,103,2,170,0)=""
^XMB(3.9,103,2,171,0)="""MBREQ"")"
^XMB(3.9,103,2,172,0)="0"
^XMB(3.9,103,2,173,0)="""PKG"",221,-1)"
^XMB(3.9,103,2,174,0)="1^1"
^XMB(3.9,103,2,175,0)="""PKG"",221,0)"
^XMB(3.9,103,2,176,0)="INPATIENT MEDICATIONS^PSJ^UNIT DOSE AND IVS"
^XMB(3.9,103,2,177,0)="""PKG"",221,20,0)"
^XMB(3.9,103,2,178,0)="^9.402P^^"
^XMB(3.9,103,2,179,0)="""PKG"",221,22,0)"
^XMB(3.9,103,2,180,0)="^9.49I^1^1"
^XMB(3.9,103,2,181,0)="""PKG"",221,22,1,0)"
^XMB(3.9,103,2,182,0)="5.0^2971215^2981113^1"
^XMB(3.9,103,2,183,0)="""PKG"",221,22,1,""PAH"",1,0)"
^XMB(3.9,103,2,184,0)="170^3060117^520645566"
^XMB(3.9,103,2,185,0)="""PKG"",221,22,1,""PAH"",1,1,0)"
^XMB(3.9,103,2,186,0)="^^26^26^3060117"
^XMB(3.9,103,2,187,0)="""PKG"",221,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,103,2,188,0)="1.  CPRS IV Orders currently select the first of multiple IV Additives by"
^XMB(3.9,103,2,189,0)="""PKG"",221,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,103,2,190,0)="    IEN associated with the Pharmacy Orderable Item selected in CPRS by"
^XMB(3.9,103,2,191,0)="""PKG"",221,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,103,2,192,0)="    the Provider.  The software checks to determine if the IV Additive "
^XMB(3.9,103,2,193,0)="""PKG"",221,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,103,2,194,0)="    is Inactive, but does not check the ""USED IN IV FLUID ORDER ENTRY"" "
^XMB(3.9,103,2,195,0)="""PKG"",221,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,103,2,196,0)="    field to determine if the additive should be used."
^XMB(3.9,103,2,197,0)="""PKG"",221,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,103,2,198,0)=" "
^XMB(3.9,103,2,199,0)="""PKG"",221,22,1,""PAH"",1,1,7,0)"
^XMB(3.9,103,2,200,0)="    This patch will change the software to add a check of the ""USED "
^XMB(3.9,103,2,201,0)="""PKG"",221,22,1,""PAH"",1,1,8,0)"
^XMB(3.9,103,2,202,0)="    IN IV FLUID ORDER ENTRY"" field and exclude the additive from selection"
^XMB(3.9,103,2,203,0)="""PKG"",221,22,1,""PAH"",1,1,9,0)"
^XMB(3.9,103,2,204,0)="    based on that field."
^XMB(3.9,103,2,205,0)="""PKG"",221,22,1,""PAH"",1,1,10,0)"
^XMB(3.9,103,2,206,0)=" "
^XMB(3.9,103,2,207,0)="""PKG"",221,22,1,""PAH"",1,1,11,0)"
^XMB(3.9,103,2,208,0)="*** The software included in this patch is designed to exclude an IV"
^XMB(3.9,103,2,209,0)="""PKG"",221,22,1,""PAH"",1,1,12,0)"
^XMB(3.9,103,2,210,0)="    Additive from the selection process only if the ""USED IN IV FLUID "
^XMB(3.9,103,2,211,0)="""PKG"",221,22,1,""PAH"",1,1,13,0)"
^XMB(3.9,103,2,212,0)="    ORDER ENTRY"" field is set to ""NO""."
^XMB(3.9,103,2,213,0)="""PKG"",221,22,1,""PAH"",1,1,14,0)"
^XMB(3.9,103,2,214,0)="  "
^XMB(3.9,103,2,215,0)="""PKG"",221,22,1,""PAH"",1,1,15,0)"
^XMB(3.9,103,2,216,0)="*** If the ""USED IN IV FLUID ORDER ENTRY"" field is set to ""YES"" or "
^XMB(3.9,103,2,217,0)="""PKG"",221,22,1,""PAH"",1,1,16,0)"
^XMB(3.9,103,2,218,0)="    blank, then the IV Additive will be selected in IEN order."
^XMB(3.9,103,2,219,0)="""PKG"",221,22,1,""PAH"",1,1,17,0)"
^XMB(3.9,103,2,220,0)=" "
^XMB(3.9,103,2,221,0)="""PKG"",221,22,1,""PAH"",1,1,18,0)"
^XMB(3.9,103,2,222,0)="2.  This patch is also designed to correct a programming error in routine"
^XMB(3.9,103,2,223,0)="""PKG"",221,22,1,""PAH"",1,1,19,0)"
^XMB(3.9,103,2,224,0)="    PSJPXRM1 that is to be used by CPRS to return Inpatient Medications"
^XMB(3.9,103,2,225,0)="""PKG"",221,22,1,""PAH"",1,1,20,0)"
^XMB(3.9,103,2,226,0)="    order information.  This is a routine that is not currently in use,"
^XMB(3.9,103,2,227,0)="""PKG"",221,22,1,""PAH"",1,1,21,0)"
^XMB(3.9,103,2,228,0)="    and will be tested at the programmer prompt."
^XMB(3.9,103,2,229,0)="""PKG"",221,22,1,""PAH"",1,1,22,0)"
^XMB(3.9,103,2,230,0)=" "
^XMB(3.9,103,2,231,0)="""PKG"",221,22,1,""PAH"",1,1,23,0)"
^XMB(3.9,103,2,232,0)="3.  If the user enters a start date/time in the future and then enters "
^XMB(3.9,103,2,233,0)="""PKG"",221,22,1,""PAH"",1,1,24,0)"
^XMB(3.9,103,2,234,0)="    the number of doses at the stop date/time prompt, the software"
^XMB(3.9,103,2,235,0)="""PKG"",221,22,1,""PAH"",1,1,25,0)"
^XMB(3.9,103,2,236,0)="    calculates the stop date/time from the current date/time instead of"
^XMB(3.9,103,2,237,0)="""PKG"",221,22,1,""PAH"",1,1,26,0)"
^XMB(3.9,103,2,238,0)="    the entered start date/time."
^XMB(3.9,103,2,239,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,103,2,240,0)="Y"
^XMB(3.9,103,2,241,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,103,2,242,0)="^D REP^XPDH"
^XMB(3.9,103,2,243,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,103,2,244,0)="Shall I write over your |FLAG| File"
^XMB(3.9,103,2,245,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,103,2,246,0)="YES"
^XMB(3.9,103,2,247,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,103,2,248,0)="D XPF1^XPDIQ"
^XMB(3.9,103,2,249,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,103,2,250,0)="Y"
^XMB(3.9,103,2,251,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,103,2,252,0)="^D DTA^XPDH"
^XMB(3.9,103,2,253,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,103,2,254,0)="Want my data |FLAG| yours"
^XMB(3.9,103,2,255,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,103,2,256,0)="YES"
^XMB(3.9,103,2,257,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,103,2,258,0)="D XPF2^XPDIQ"
^XMB(3.9,103,2,259,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,103,2,260,0)="YO"
^XMB(3.9,103,2,261,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,103,2,262,0)="^D INHIBIT^XPDH"
^XMB(3.9,103,2,263,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,103,2,264,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,103,2,265,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,103,2,266,0)="YES"
^XMB(3.9,103,2,267,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,103,2,268,0)="D XPI1^XPDIQ"
^XMB(3.9,103,2,269,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,103,2,270,0)="PO^VA(200,:EM"
^XMB(3.9,103,2,271,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,103,2,272,0)="^D MG^XPDH"
^XMB(3.9,103,2,273,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,103,2,274,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,103,2,275,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,103,2,276,0)=""
^XMB(3.9,103,2,277,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,103,2,278,0)="D XPM1^XPDIQ"
^XMB(3.9,103,2,279,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,103,2,280,0)="Y"
^XMB(3.9,103,2,281,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,103,2,282,0)="^D MENU^XPDH"
^XMB(3.9,103,2,283,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,103,2,284,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,103,2,285,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,103,2,286,0)="YES"
^XMB(3.9,103,2,287,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,103,2,288,0)="D XPO1^XPDIQ"
^XMB(3.9,103,2,289,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,103,2,290,0)="Y"
^XMB(3.9,103,2,291,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,103,2,292,0)="^D OPT^XPDH"
^XMB(3.9,103,2,293,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,103,2,294,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,103,2,295,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,103,2,296,0)="YES"
^XMB(3.9,103,2,297,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,103,2,298,0)="D XPZ1^XPDIQ"
^XMB(3.9,103,2,299,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,103,2,300,0)="Y"
^XMB(3.9,103,2,301,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,103,2,302,0)="^D RTN^XPDH"
^XMB(3.9,103,2,303,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,103,2,304,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,103,2,305,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,103,2,306,0)="NO"
^XMB(3.9,103,2,307,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,103,2,308,0)="D XPZ2^XPDIQ"
^XMB(3.9,103,2,309,0)="""RTN"")"
^XMB(3.9,103,2,310,0)="3"
^XMB(3.9,103,2,311,0)="""RTN"",""PSGDL"")"
^XMB(3.9,103,2,312,0)="0^3^B13848268^B13209027"
^XMB(3.9,103,2,313,0)="""RTN"",""PSGDL"",1,0)"
^XMB(3.9,103,2,314,0)="PSGDL ;BIR/CML3-CALCULATE STOP DATE/TIME WITH DOSE LIMIT ;27 Aug 98 / 8:47 AM"
^XMB(3.9,103,2,315,0)="""RTN"",""PSGDL"",2,0)"
^XMB(3.9,103,2,316,0)=" ;;5.0; INPATIENT MEDICATIONS ;**16,50,64,58,111,170**;16 DEC 97"
^XMB(3.9,103,2,317,0)="""RTN"",""PSGDL"",3,0)"
^XMB(3.9,103,2,318,0)=" ;"
^XMB(3.9,103,2,319,0)="""RTN"",""PSGDL"",4,0)"
^XMB(3.9,103,2,320,0)=" ; Reference to ^PS(55 is supported by DBIA #2191."
^XMB(3.9,103,2,321,0)="""RTN"",""PSGDL"",5,0)"
^XMB(3.9,103,2,322,0)=" ;"
^XMB(3.9,103,2,323,0)="""RTN"",""PSGDL"",6,0)"
^XMB(3.9,103,2,324,0)="EN ;"
^XMB(3.9,103,2,325,0)="""RTN"",""PSGDL"",7,0)"
^XMB(3.9,103,2,326,0)=" K PSGDLS S ND2=^PS(53.1,DA,2) I $P(ND2,""^"",5)!$P(ND2,""^"",6) W "" ...Dose Limit... "" G ENGO"
^XMB(3.9,103,2,327,0)="""RTN"",""PSGDL"",8,0)"
^XMB(3.9,103,2,328,0)=" G DONE"
^XMB(3.9,103,2,329,0)="""RTN"",""PSGDL"",9,0)"
^XMB(3.9,103,2,330,0)=" ;"
^XMB(3.9,103,2,331,0)="""RTN"",""PSGDL"",10,0)"
^XMB(3.9,103,2,332,0)="ENE ;"
^XMB(3.9,103,2,333,0)="""RTN"",""PSGDL"",11,0)"
^XMB(3.9,103,2,334,0)=" S ND2=PSGSCH_""^""_PSGSD_""^^^""_PSGAT_""^""_PSGS0XT G ENGO"
^XMB(3.9,103,2,335,0)="""RTN"",""PSGDL"",12,0)"
^XMB(3.9,103,2,336,0)=" ;"
^XMB(3.9,103,2,337,0)="""RTN"",""PSGDL"",13,0)"
^XMB(3.9,103,2,338,0)="EN1 ;"
^XMB(3.9,103,2,339,0)="""RTN"",""PSGDL"",14,0)"
^XMB(3.9,103,2,340,0)=" S ND2=$P(PSGNEDFD,""^"",4)_""^""_PSGNESD_""^^^""_PSGS0Y_""^""_PSGS0XT G ENGO"
^XMB(3.9,103,2,341,0)="""RTN"",""PSGDL"",15,0)"
^XMB(3.9,103,2,342,0)=" ;"
^XMB(3.9,103,2,343,0)="""RTN"",""PSGDL"",16,0)"
^XMB(3.9,103,2,344,0)="EN2 ;"
^XMB(3.9,103,2,345,0)="""RTN"",""PSGDL"",17,0)"
^XMB(3.9,103,2,346,0)=" K PSGDLS S ND2=^PS(55,DA(1),5,DA,2) I '$P(ND2,""^"",5),'$P(ND2,""^"",6) G DONE"
^XMB(3.9,103,2,347,0)="""RTN"",""PSGDL"",18,0)"
^XMB(3.9,103,2,348,0)=" W "" ...Dose Limit... """
^XMB(3.9,103,2,349,0)="""RTN"",""PSGDL"",19,0)"
^XMB(3.9,103,2,350,0)=" ;"
^XMB(3.9,103,2,351,0)="""RTN"",""PSGDL"",20,0)"
^XMB(3.9,103,2,352,0)="ENGO ;"
^XMB(3.9,103,2,353,0)="""RTN"",""PSGDL"",21,0)"
^XMB(3.9,103,2,354,0)=" S SCH=$P(ND2,""^"")"
^XMB(3.9,103,2,355,0)="""RTN"",""PSGDL"",22,0)"
^XMB(3.9,103,2,356,0)=" S ST=$S($D(PSGDLS):PSGDLS,1:$P(ND2,""^"",2))"
^XMB(3.9,103,2,357,0)="""RTN"",""PSGDL"",23,0)"
^XMB(3.9,103,2,358,0)=" S TS=$P(ND2,""^"",5),MN=$P(ND2,""^"",6)"
^XMB(3.9,103,2,359,0)="""RTN"",""PSGDL"",24,0)"
^XMB(3.9,103,2,360,0)=" I $P(PSJSYSW0,U,5)=2 D"
^XMB(3.9,103,2,361,0)="""RTN"",""PSGDL"",25,0)"
^XMB(3.9,103,2,362,0)=" . Q:'TS  S:TS'[$P(ST,""."",2) $P(PSJSYSW0,U,5)=1 D"
^XMB(3.9,103,2,363,0)="""RTN"",""PSGDL"",26,0)"
^XMB(3.9,103,2,364,0)=" .. S X=$G(PSGSD),%DT=""T"" D ^%DT I Y'=-1 N PSGSD S PSGSD=Y"
^XMB(3.9,103,2,365,0)="""RTN"",""PSGDL"",27,0)"
^XMB(3.9,103,2,366,0)=" .. S X=$G(PSGFD),%DT=""T"" D ^%DT I Y'=-1 N PSGFD S PSGFD=Y"
^XMB(3.9,103,2,367,0)="""RTN"",""PSGDL"",28,0)"
^XMB(3.9,103,2,368,0)=" .. I '$G(PSGSD) N PSGSD S PSGSD=$$DATE^PSJUTL2"
^XMB(3.9,103,2,369,0)="""RTN"",""PSGDL"",29,0)"
^XMB(3.9,103,2,370,0)=" .. I '$G(PSGFD) N PSGFD S PSGFD=$$FMADD^XLFDT(PSGSD,30)"
^XMB(3.9,103,2,371,0)="""RTN"",""PSGDL"",30,0)"
^XMB(3.9,103,2,372,0)=" .. N STRING,ND2,SCH,TS,MN S STRING=$G(PSGSD)_""^""_$G(PSGFD)_""^""_$G(PSGSCH)_""^""_$G(PSGST)_""^""_$G(PSGPDRG)_""^""_$G(PSGAT)"
^XMB(3.9,103,2,373,0)="""RTN"",""PSGDL"",31,0)"
^XMB(3.9,103,2,374,0)=" .. I $G(PSGP) S ST=$$ENQ^PSJORP2(PSGP,STRING) S:'ST ST=$S($D(PSGDLS):PSGDLS,1:$P(ND2,""^"",2))"
^XMB(3.9,103,2,375,0)="""RTN"",""PSGDL"",32,0)"
^XMB(3.9,103,2,376,0)=" . S $P(PSJSYSW0,U,5)=2"
^XMB(3.9,103,2,377,0)="""RTN"",""PSGDL"",33,0)"
^XMB(3.9,103,2,378,0)=" G MWF:SCH[""@"",DONE:'TS&'MN"
^XMB(3.9,103,2,379,0)="""RTN"",""PSGDL"",34,0)"
^XMB(3.9,103,2,380,0)=" I 'TS S AM=MN*PSGDL,X=$$EN^PSGCT(ST,AM) G DONE"
^XMB(3.9,103,2,381,0)="""RTN"",""PSGDL"",35,0)"
^XMB(3.9,103,2,382,0)=" S TM=$E(ST_""00000"",9,8+$L($P(TS,""-"")))"
^XMB(3.9,103,2,383,0)="""RTN"",""PSGDL"",36,0)"
^XMB(3.9,103,2,384,0)=" F Q=1:1 Q:$P(TS,""-"",Q)=""""!(TM<$P(TS,""-"",Q))"
^XMB(3.9,103,2,385,0)="""RTN"",""PSGDL"",37,0)"
^XMB(3.9,103,2,386,0)=" S X=ST\1,C=0 F Q=Q:1 D:$P(TS,""-"",Q)="""" ADD S C=C+1 I C=PSGDL S X=X_"".""_$P(TS,""-"",Q) G DONE"
^XMB(3.9,103,2,387,0)="""RTN"",""PSGDL"",38,0)"
^XMB(3.9,103,2,388,0)=" ;"
^XMB(3.9,103,2,389,0)="""RTN"",""PSGDL"",39,0)"
^XMB(3.9,103,2,390,0)="MWF ; if schedule is similar to monday-wednesday-friday"
^XMB(3.9,103,2,391,0)="""RTN"",""PSGDL"",40,0)"
^XMB(3.9,103,2,392,0)=" S TS=$P(SCH,""@"",2),SCH=$P(SCH,""@""),X=$P(ST,"".""),C=0 D SCHK G:C=PSGDL DONE F Q=1:1 S X1=$P(ST,"".""),X2=Q D C^%DTC S X1=X D DW^%DTC D CHK G:C=PSGDL DONE"
^XMB(3.9,103,2,393,0)="""RTN"",""PSGDL"",41,0)"
^XMB(3.9,103,2,394,0)="SCHK S X1=X D DW^%DTC F Q=1:1:$L(SCH,""-"") S WKD=$P(SCH,""-"",Q) I WKD=$E(X,1,$L(WKD)) Q"
^XMB(3.9,103,2,395,0)="""RTN"",""PSGDL"",42,0)"
^XMB(3.9,103,2,396,0)=" E  Q"
^XMB(3.9,103,2,397,0)="""RTN"",""PSGDL"",43,0)"
^XMB(3.9,103,2,398,0)=" S TM=$E(ST_""00000"",9,8+$L($P(TS,""-""))) F Q=1:1:$L(TS,""-"") I TM<$P(TS,""-"",Q) S C=C+1 I C=PSGDL S X=X1_"".""_$P(TS,""-"",Q) Q"
^XMB(3.9,103,2,399,0)="""RTN"",""PSGDL"",44,0)"
^XMB(3.9,103,2,400,0)=" Q"
^XMB(3.9,103,2,401,0)="""RTN"",""PSGDL"",45,0)"
^XMB(3.9,103,2,402,0)="CHK F QQ=1:1:$L(SCH,""-"") S WKD=$P(SCH,""-"",QQ) I WKD=$E(X,1,$L(WKD)) D TS Q"
^XMB(3.9,103,2,403,0)="""RTN"",""PSGDL"",46,0)"
^XMB(3.9,103,2,404,0)=" Q"
^XMB(3.9,103,2,405,0)="""RTN"",""PSGDL"",47,0)"
^XMB(3.9,103,2,406,0)="TS F Q1=1:1:$L(TS,""-"") S C=C+1 I C=PSGDL S X=X1_"".""_$P(TS,""-"",Q1) Q"
^XMB(3.9,103,2,407,0)="""RTN"",""PSGDL"",48,0)"
^XMB(3.9,103,2,408,0)=" Q"
^XMB(3.9,103,2,409,0)="""RTN"",""PSGDL"",49,0)"
^XMB(3.9,103,2,410,0)=" ;"
^XMB(3.9,103,2,411,0)="""RTN"",""PSGDL"",50,0)"
^XMB(3.9,103,2,412,0)="DONE ;"
^XMB(3.9,103,2,413,0)="""RTN"",""PSGDL"",51,0)"
^XMB(3.9,103,2,414,0)=" K %H,%T,%Y,MN,ND2,ND4,PSGDLS,PSGDL,Q1,QQ,SCH,TM,WKD,TS,X1,X2 Q"
^XMB(3.9,103,2,415,0)="""RTN"",""PSGDL"",52,0)"
^XMB(3.9,103,2,416,0)=" ;"
^XMB(3.9,103,2,417,0)="""RTN"",""PSGDL"",53,0)"
^XMB(3.9,103,2,418,0)="ADD ;"
^XMB(3.9,103,2,419,0)="""RTN"",""PSGDL"",54,0)"
^XMB(3.9,103,2,420,0)=" S X1=$P(X,"".""),X2=$S(MN&'(MN#1440):MN\1440,1:1) D C^%DTC S Q=1 Q"
^XMB(3.9,103,2,421,0)="""RTN"",""PSGDL"",55,0)"
^XMB(3.9,103,2,422,0)=" ;"
^XMB(3.9,103,2,423,0)="""RTN"",""PSGDL"",56,0)"
^XMB(3.9,103,2,424,0)="ENPREV ; when ""P"" is enter at start date"
^XMB(3.9,103,2,425,0)="""RTN"",""PSGDL"",57,0)"
^XMB(3.9,103,2,426,0)=" W ""REVIOUS"" S (X,Y)=0 I '$D(PSGP)!'$D(PSGPDRG) G:$D(DA)[0 POUT S PSGP=$P($G(^PS(53.1,DA,0)),""^"",15),PSGPDRG=+$G(^(.2)),Y=1 I 'PSGP!'PSGPDRG W:'PSGPDRG !?17,""Must have drug from formulary list."" G POUT"
^XMB(3.9,103,2,427,0)="""RTN"",""PSGDL"",58,0)"
^XMB(3.9,103,2,428,0)=" F Q=0:0 S Q=$O(^PS(53.1,""AC"",PSGP,Q)) Q:'Q  I +$G(^PS(53.1,Q,.2))=PSGPDRG,$D(^PS(53.1,Q,2)),$P(^(2),""^"",4)>X S X=$P(^(2),""^"",4)"
^XMB(3.9,103,2,429,0)="""RTN"",""PSGDL"",59,0)"
^XMB(3.9,103,2,430,0)=" F Q=0:0 S Q=$O(^PS(55,PSGP,5,""C"",PSGPDRG,Q)) Q:'Q  I $D(^PS(55,PSGP,5,Q,2)),$P(^(2),""^"",4)>X S X=$P(^(2),""^"",4)"
^XMB(3.9,103,2,431,0)="""RTN"",""PSGDL"",60,0)"
^XMB(3.9,103,2,432,0)=" W:'X !?17,""No other order found with this drug."""
^XMB(3.9,103,2,433,0)="""RTN"",""PSGDL"",61,0)"
^XMB(3.9,103,2,434,0)=" ;"
^XMB(3.9,103,2,435,0)="""RTN"",""PSGDL"",62,0)"
^XMB(3.9,103,2,436,0)="POUT ;"
^XMB(3.9,103,2,437,0)="""RTN"",""PSGDL"",63,0)"
^XMB(3.9,103,2,438,0)=" K:'X X K:Y PSGPDRG,PSGP,Q Q"
^XMB(3.9,103,2,439,0)="""RTN"",""PSGDL"",64,0)"
^XMB(3.9,103,2,440,0)="ENDL(SCH,DL) ;validate that dose limit should be allowed with this schedule"
^XMB(3.9,103,2,441,0)="""RTN"",""PSGDL"",65,0)"
^XMB(3.9,103,2,442,0)=" ;and that the dose limit is a whole number"
^XMB(3.9,103,2,443,0)="""RTN"",""PSGDL"",66,0)"
^XMB(3.9,103,2,444,0)=" I $G(SCH)="""" Q 1"
^XMB(3.9,103,2,445,0)="""RTN"",""PSGDL"",67,0)"
^XMB(3.9,103,2,446,0)=" I "",ON CALL,ON-CALL,ONCALL,""[("",""_SCH_"","")!($$ONE^PSJBCMA(DFN,"""",SCH)=""O"") W "" Dose limit invalid with this schedule"" Q 0"
^XMB(3.9,103,2,447,0)="""RTN"",""PSGDL"",68,0)"
^XMB(3.9,103,2,448,0)=" I DL'?1N.N W "" Dose limit must be a whole number"" Q 0"
^XMB(3.9,103,2,449,0)="""RTN"",""PSGDL"",69,0)"
^XMB(3.9,103,2,450,0)=" Q 1"
^XMB(3.9,103,2,451,0)="""RTN"",""PSJHL4A"")"
^XMB(3.9,103,2,452,0)="0^1^B37280433^B36548779"
^XMB(3.9,103,2,453,0)="""RTN"",""PSJHL4A"",1,0)"
^XMB(3.9,103,2,454,0)="PSJHL4A ;BIR/RLW-CONTINUE DECODE HL7 /MESSSAGE FROM OE/RR ;16 Mar 99 / 4:55 PM"
^XMB(3.9,103,2,455,0)="""RTN"",""PSJHL4A"",2,0)"
^XMB(3.9,103,2,456,0)=" ;;5.0; INPATIENT MEDICATIONS ;**105,111,154,170**;16 DEC 97"
^XMB(3.9,103,2,457,0)="""RTN"",""PSJHL4A"",3,0)"
^XMB(3.9,103,2,458,0)=" ;"
^XMB(3.9,103,2,459,0)="""RTN"",""PSJHL4A"",4,0)"
^XMB(3.9,103,2,460,0)=" ; Reference to ^PS(52.6 is supported by DBIA# 1231."
^XMB(3.9,103,2,461,0)="""RTN"",""PSJHL4A"",5,0)"
^XMB(3.9,103,2,462,0)=" ; Reference to ^PS(52.7 is supported by DBIA# 2173."
^XMB(3.9,103,2,463,0)="""RTN"",""PSJHL4A"",6,0)"
^XMB(3.9,103,2,464,0)=" ; Reference to ^PS(55 is supported by DBIA# 2191."
^XMB(3.9,103,2,465,0)="""RTN"",""PSJHL4A"",7,0)"
^XMB(3.9,103,2,466,0)=" ; Reference to ^PS(59.7 supported by DBIA #2181."
^XMB(3.9,103,2,467,0)="""RTN"",""PSJHL4A"",8,0)"
^XMB(3.9,103,2,468,0)=" ;"
^XMB(3.9,103,2,469,0)="""RTN"",""PSJHL4A"",9,0)"
^XMB(3.9,103,2,470,0)="RXC ; IV order"
^XMB(3.9,103,2,471,0)="""RTN"",""PSJHL4A"",10,0)"
^XMB(3.9,103,2,472,0)=" N IVFL"
^XMB(3.9,103,2,473,0)="""RTN"",""PSJHL4A"",11,0)"
^XMB(3.9,103,2,474,0)=" S APPL=FIELD(1)"
^XMB(3.9,103,2,475,0)="""RTN"",""PSJHL4A"",12,0)"
^XMB(3.9,103,2,476,0)=" I APPL[""B"" S SOLCNT=SOLCNT+1,PTR=$P(FIELD(2),""^"",4) Q:'PTR  S VOLUME=+FIELD(3)_"" ML"" D  I '$D(^TMP(""PSJNVO"",$J,""SOL"",SOLCNT,0)) D SOLSRCH"
^XMB(3.9,103,2,477,0)="""RTN"",""PSJHL4A"",13,0)"
^XMB(3.9,103,2,478,0)=" .S SOLUTION="""" F  S SOLUTION=$O(^PS(52.7,""AOI"",PTR,SOLUTION)) Q:'SOLUTION  S INACT=$G(^PS(52.7,SOLUTION,""I"")) I 'INACT!(INACT>DT) I VOLUME=$P(^PS(52.7,SOLUTION,0),U,3) D"
^XMB(3.9,103,2,479,0)="""RTN"",""PSJHL4A"",14,0)"
^XMB(3.9,103,2,480,0)=" ..S ^TMP(""PSJNVO"",$J,""SOL"",0)=SOLCNT"
^XMB(3.9,103,2,481,0)="""RTN"",""PSJHL4A"",15,0)"
^XMB(3.9,103,2,482,0)=" ..S ^TMP(""PSJNVO"",$J,""SOL"",SOLCNT,0)=SOLUTION_""^""_VOLUME,TVOLUME=TVOLUME+(+VOLUME)"
^XMB(3.9,103,2,483,0)="""RTN"",""PSJHL4A"",16,0)"
^XMB(3.9,103,2,484,0)=" I $G(INFRT)]"""" S X=INFRT D ENI^PSJHLU S INFRT=$G(X)"
^XMB(3.9,103,2,485,0)="""RTN"",""PSJHL4A"",17,0)"
^XMB(3.9,103,2,486,0)=" I APPL=""A"" S ADCNT=ADCNT+1,PTR=$P(FIELD(2),""^"",4) Q:'PTR  S STRENGTH=$G(FIELD(3))_"" ""_$P($G(FIELD(4)),""^"",5) D  I '$D(^TMP(""PSJNVO"",$J,""AD"",ADCNT,0)) S PSREASON=""Can't find matching additive"" D ERROR^PSJHL9 Q"
^XMB(3.9,103,2,487,0)="""RTN"",""PSJHL4A"",18,0)"
^XMB(3.9,103,2,488,0)=" .S ADDITIVE="""" F  S ADDITIVE=$O(^PS(52.6,""AOI"",PTR,ADDITIVE)) Q:'ADDITIVE  S INACT=$G(^PS(52.6,ADDITIVE,""I"")),IVFL=$P($G(^(0)),""^"",13) I 'INACT!(INACT>DT),IVFL'=0 Q:$G(^PS(52.6,ADDITIVE,0))']""""  D  Q:ADDITIVE"
^XMB(3.9,103,2,489,0)="""RTN"",""PSJHL4A"",19,0)"
^XMB(3.9,103,2,490,0)=" ..I $G(PSITEM)="""" S PSITEM=PTR"
^XMB(3.9,103,2,491,0)="""RTN"",""PSJHL4A"",20,0)"
^XMB(3.9,103,2,492,0)=" ..S ^TMP(""PSJNVO"",$J,""AD"",0)=ADCNT"
^XMB(3.9,103,2,493,0)="""RTN"",""PSJHL4A"",21,0)"
^XMB(3.9,103,2,494,0)=" ..S ^TMP(""PSJNVO"",$J,""AD"",ADCNT,0)=ADDITIVE_""^""_STRENGTH"
^XMB(3.9,103,2,495,0)="""RTN"",""PSJHL4A"",22,0)"
^XMB(3.9,103,2,496,0)=" Q"
^XMB(3.9,103,2,497,0)="""RTN"",""PSJHL4A"",23,0)"
^XMB(3.9,103,2,498,0)=" ;"
^XMB(3.9,103,2,499,0)="""RTN"",""PSJHL4A"",24,0)"
^XMB(3.9,103,2,500,0)="RXO ;"
^XMB(3.9,103,2,501,0)="""RTN"",""PSJHL4A"",25,0)"
^XMB(3.9,103,2,502,0)=" I $O(PSJMSG(II,0)) D"
^XMB(3.9,103,2,503,0)="""RTN"",""PSJHL4A"",26,0)"
^XMB(3.9,103,2,504,0)=" .K SEGMENT"
^XMB(3.9,103,2,505,0)="""RTN"",""PSJHL4A"",27,0)"
^XMB(3.9,103,2,506,0)=" .N KK,JJ,XX"
^XMB(3.9,103,2,507,0)="""RTN"",""PSJHL4A"",28,0)"
^XMB(3.9,103,2,508,0)=" .S SEGMENT(1)=$G(PSJMSG(II))"
^XMB(3.9,103,2,509,0)="""RTN"",""PSJHL4A"",29,0)"
^XMB(3.9,103,2,510,0)=" .S KK=1,JJ="""" F  S JJ=$O(PSJMSG(II,JJ)) Q:'JJ  S KK=KK+1,SEGMENT(KK)=$G(PSJMSG(II,JJ))"
^XMB(3.9,103,2,511,0)="""RTN"",""PSJHL4A"",30,0)"
^XMB(3.9,103,2,512,0)=" .S KK=1,JJ=0"
^XMB(3.9,103,2,513,0)="""RTN"",""PSJHL4A"",31,0)"
^XMB(3.9,103,2,514,0)=" .F  Q:'$D(SEGMENT(KK))  D"
^XMB(3.9,103,2,515,0)="""RTN"",""PSJHL4A"",32,0)"
^XMB(3.9,103,2,516,0)=" ..I SEGMENT(KK)[""|"" S FIELD(JJ)=$P(SEGMENT(KK),""|""),SEGMENT(KK)=$E(SEGMENT(KK),$L(FIELD(JJ))+2,$L(SEGMENT(KK))),JJ=JJ+1 Q"
^XMB(3.9,103,2,517,0)="""RTN"",""PSJHL4A"",33,0)"
^XMB(3.9,103,2,518,0)=" ..I SEGMENT(KK)'[""|"" S FIELD(JJ)=SEGMENT(KK),KK=KK+1 Q:'$D(SEGMENT(KK))  D"
^XMB(3.9,103,2,519,0)="""RTN"",""PSJHL4A"",34,0)"
^XMB(3.9,103,2,520,0)=" ...S XX=$P(SEGMENT(KK),""|""),SEGMENT(KK)=$E(SEGMENT(KK),$L(X)+2,$L(SEGMENT(KK))),FIELD(JJ)=FIELD(JJ)_XX,JJ=JJ+1"
^XMB(3.9,103,2,521,0)="""RTN"",""PSJHL4A"",35,0)"
^XMB(3.9,103,2,522,0)=" S APPL="""",PSITEM=$S($P(FIELD(1),""^"",5)=""IV"":"""",1:$P(FIELD(1),""^"",4))"
^XMB(3.9,103,2,523,0)="""RTN"",""PSJHL4A"",36,0)"
^XMB(3.9,103,2,524,0)=" S:$P(FIELD(1),""^"",6)=""ORD"" PSITEM="""""
^XMB(3.9,103,2,525,0)="""RTN"",""PSJHL4A"",37,0)"
^XMB(3.9,103,2,526,0)=" S:$P(FIELD(1),""^"",5)=""IV"" IVTYP=""A"",SCHTYP=""C"",INFRT=$G(FIELD(2))"
^XMB(3.9,103,2,527,0)="""RTN"",""PSJHL4A"",38,0)"
^XMB(3.9,103,2,528,0)=" S DISPENSE=$P($G(FIELD(10)),""^"",4)"
^XMB(3.9,103,2,529,0)="""RTN"",""PSJHL4A"",39,0)"
^XMB(3.9,103,2,530,0)=" S IVLIMIT=$P($G(PSJMSG(II)),""^"",3)"
^XMB(3.9,103,2,531,0)="""RTN"",""PSJHL4A"",40,0)"
^XMB(3.9,103,2,532,0)=" Q"
^XMB(3.9,103,2,533,0)="""RTN"",""PSJHL4A"",41,0)"
^XMB(3.9,103,2,534,0)=" ;"
^XMB(3.9,103,2,535,0)="""RTN"",""PSJHL4A"",42,0)"
^XMB(3.9,103,2,536,0)="OBX ;"
^XMB(3.9,103,2,537,0)="""RTN"",""PSJHL4A"",43,0)"
^XMB(3.9,103,2,538,0)=" S OBXFL=1,OCNARR=FIELD(5),OCPROV=CLERK,OCCNT=OCCNT+1"
^XMB(3.9,103,2,539,0)="""RTN"",""PSJHL4A"",44,0)"
^XMB(3.9,103,2,540,0)=" S ^TMP(""PSJNVO"",$J,10,0)=OCCNT"
^XMB(3.9,103,2,541,0)="""RTN"",""PSJHL4A"",45,0)"
^XMB(3.9,103,2,542,0)=" S ^TMP(""PSJNVO"",$J,10,OCCNT,0)=OCNARR"
^XMB(3.9,103,2,543,0)="""RTN"",""PSJHL4A"",46,0)"
^XMB(3.9,103,2,544,0)=" S ^TMP(""PSJNVO"",$J,10,OCCNT,1)=$P($G(^VA(200,+OCPROV,0)),""^"")"
^XMB(3.9,103,2,545,0)="""RTN"",""PSJHL4A"",47,0)"
^XMB(3.9,103,2,546,0)=" Q"
^XMB(3.9,103,2,547,0)="""RTN"",""PSJHL4A"",48,0)"
^XMB(3.9,103,2,548,0)=" ;"
^XMB(3.9,103,2,549,0)="""RTN"",""PSJHL4A"",49,0)"
^XMB(3.9,103,2,550,0)="NTE ;"
^XMB(3.9,103,2,551,0)="""RTN"",""PSJHL4A"",50,0)"
^XMB(3.9,103,2,552,0)=" S TEXT=$S((FIELD(1)=6)&('OBXFL):""PROCOM"",(FIELD(1)=7)&('OBXFL):""ADMINSTR"",1:""OCRSN"")"
^XMB(3.9,103,2,553,0)="""RTN"",""PSJHL4A"",51,0)"
^XMB(3.9,103,2,554,0)=" S @TEXT@(1)=$G(FIELD(3))"
^XMB(3.9,103,2,555,0)="""RTN"",""PSJHL4A"",52,0)"
^XMB(3.9,103,2,556,0)=" S K=1,J="""" F  S J=$O(PSJMSG(II,J)) Q:'J  S K=K+1,@TEXT@(K)=$G(PSJMSG(II,J))"
^XMB(3.9,103,2,557,0)="""RTN"",""PSJHL4A"",53,0)"
^XMB(3.9,103,2,558,0)=" D:$D(OCRSN)"
^XMB(3.9,103,2,559,0)="""RTN"",""PSJHL4A"",54,0)"
^XMB(3.9,103,2,560,0)=" .S QQ=0 F  S QQ=$O(OCRSN(QQ)) Q:'QQ  S ^TMP(""PSJNVO"",$J,10,OCCNT,2,QQ,0)=OCRSN(QQ)"
^XMB(3.9,103,2,561,0)="""RTN"",""PSJHL4A"",55,0)"
^XMB(3.9,103,2,562,0)=" S OBXFL=0"
^XMB(3.9,103,2,563,0)="""RTN"",""PSJHL4A"",56,0)"
^XMB(3.9,103,2,564,0)=" Q"
^XMB(3.9,103,2,565,0)="""RTN"",""PSJHL4A"",57,0)"
^XMB(3.9,103,2,566,0)=" ;"
^XMB(3.9,103,2,567,0)="""RTN"",""PSJHL4A"",58,0)"
^XMB(3.9,103,2,568,0)="ZRX ;"
^XMB(3.9,103,2,569,0)="""RTN"",""PSJHL4A"",59,0)"
^XMB(3.9,103,2,570,0)=" N ND,ND2,CHK,FOLOR,STDT"
^XMB(3.9,103,2,571,0)="""RTN"",""PSJHL4A"",60,0)"
^XMB(3.9,103,2,572,0)=" S PREON=$G(FIELD(1)),ROC=$G(FIELD(3))"
^XMB(3.9,103,2,573,0)="""RTN"",""PSJHL4A"",61,0)"
^XMB(3.9,103,2,574,0)=" S ND=$S((PREON[""N"")!(PREON[""P""):$G(^PS(53.1,+PREON,0)),PREON[""V"":$G(^PS(55,PSJHLDFN,""IV"",+PREON,0)),1:$G(^PS(55,PSJHLDFN,5,+PREON,0)))"
^XMB(3.9,103,2,575,0)="""RTN"",""PSJHL4A"",62,0)"
^XMB(3.9,103,2,576,0)=" S ND2=$S((PREON[""N"")!(PREON[""P""):$G(^PS(53.1,+PREON,2)),PREON[""V"":$G(^PS(55,PSJHLDFN,""IV"",+PREON,2)),1:$G(^PS(55,PSJHLDFN,5,+PREON,2)))"
^XMB(3.9,103,2,577,0)="""RTN"",""PSJHL4A"",63,0)"
^XMB(3.9,103,2,578,0)=" I 'ND I ROC'=""N"" S PSREASON=""Invalid Pharmacy order number"" D ERROR^PSJHL9 Q"
^XMB(3.9,103,2,579,0)="""RTN"",""PSJHL4A"",64,0)"
^XMB(3.9,103,2,580,0)=" I ND I ROC=""R"" S FOLOR=$S(PREON[""V"":$P(ND2,U,6),1:$P(ND,U,26)) I FOLOR S PSREASON=""Duplicate Renewal Request"" D ERROR^PSJHL9 Q"
^XMB(3.9,103,2,581,0)="""RTN"",""PSJHL4A"",65,0)"
^XMB(3.9,103,2,582,0)=" I ND I ROC=""R"" S CHK=$S(PREON[""V"":$P(ND,U,17),1:$P(ND,U,9)) I ""AE""'[CHK S PSREASON=""Pharmacy orders with a status of ""_CHK_"" may not be renewed"" D ERROR^PSJHL9 Q"
^XMB(3.9,103,2,583,0)="""RTN"",""PSJHL4A"",66,0)"
^XMB(3.9,103,2,584,0)=" I $G(CHK)=""E"" I PREON'[""V"" D NOW^%DTC S X1=+$E(%,1,12),X2=-4 D C^%DTC S STDT=$S(PREON[""V"":$P(ND,U,3),1:$P(ND2,U,4)) I STDT'>X S PSREASON=""Pharmacy orders expired longer than 4 days may not be renewed"" D ERROR^PSJHL9 Q"
^XMB(3.9,103,2,585,0)="""RTN"",""PSJHL4A"",67,0)"
^XMB(3.9,103,2,586,0)=" I ND I ROC=""E"" S FOLOR=$S(PREON[""V"":$P(ND2,U,6),1:$P(ND,U,26)) I FOLOR S PSREASON=""Pharmacy orders may only be edited ONCE"" D ERROR^PSJHL9 Q"
^XMB(3.9,103,2,587,0)="""RTN"",""PSJHL4A"",68,0)"
^XMB(3.9,103,2,588,0)=" I ND I ROC=""E"" S CHK=$S(PREON[""V"":$P(ND,U,17),1:$P(ND,U,9)) I ""DEHO""[CHK N CHKRTN S CHKRTN=CHK_""^PSJHL6"" D @CHKRTN S PSREASON=PSREASON_"" orders may not be edited"" D ERROR^PSJHL9 Q"
^XMB(3.9,103,2,589,0)="""RTN"",""PSJHL4A"",69,0)"
^XMB(3.9,103,2,590,0)=" D:ROC'=""R"" VALID^PSJHL9 Q:QFLG"
^XMB(3.9,103,2,591,0)="""RTN"",""PSJHL4A"",70,0)"
^XMB(3.9,103,2,592,0)=" I $G(PSITEM)="""",$D(^TMP(""PSJNVO"",$J,""SOL"",1,0)) S PSITEM=$P($G(^PS(52.7,+^TMP(""PSJNVO"",$J,""SOL"",1,0),0)),""^"",11)"
^XMB(3.9,103,2,593,0)="""RTN"",""PSJHL4A"",71,0)"
^XMB(3.9,103,2,594,0)=" I PRIORITY=""ZD"" D VALID^PSJHL10 S QFLG=1 Q"
^XMB(3.9,103,2,595,0)="""RTN"",""PSJHL4A"",72,0)"
^XMB(3.9,103,2,596,0)=" I (PREON]"""")&(ROC=""E"") D EDITCK^PSJHL5 Q:QFLG"
^XMB(3.9,103,2,597,0)="""RTN"",""PSJHL4A"",73,0)"
^XMB(3.9,103,2,598,0)=" D NVO^PSJHL9"
^XMB(3.9,103,2,599,0)="""RTN"",""PSJHL4A"",74,0)"
^XMB(3.9,103,2,600,0)=" I (PREON]"""")&(ROC=""R"") D RENEW^PSJHL7 Q"
^XMB(3.9,103,2,601,0)="""RTN"",""PSJHL4A"",75,0)"
^XMB(3.9,103,2,602,0)=" I (PREON]"""")&(ROC=""E"") D EDIT^PSJHL5"
^XMB(3.9,103,2,603,0)="""RTN"",""PSJHL4A"",76,0)"
^XMB(3.9,103,2,604,0)=" Q"
^XMB(3.9,103,2,605,0)="""RTN"",""PSJHL4A"",77,0)"
^XMB(3.9,103,2,606,0)=" ;"
^XMB(3.9,103,2,607,0)="""RTN"",""PSJHL4A"",78,0)"
^XMB(3.9,103,2,608,0)="SOLSRCH ;Find solution"
^XMB(3.9,103,2,609,0)="""RTN"",""PSJHL4A"",79,0)"
^XMB(3.9,103,2,610,0)=" N SSSS,SEG,ON,ROC,SOL,SOL2"
^XMB(3.9,103,2,611,0)="""RTN"",""PSJHL4A"",80,0)"
^XMB(3.9,103,2,612,0)=" F SSSS=II:0 S SSSS=$O(PSJMSG(SSSS)) Q:'SSSS  I $P(PSJMSG(SSSS),""|"")=""ZRX"" D  Q"
^XMB(3.9,103,2,613,0)="""RTN"",""PSJHL4A"",81,0)"
^XMB(3.9,103,2,614,0)=" .S SEG=$G(PSJMSG(SSSS)),ON=$P(SEG,""|"",2),ROC=$P(SEG,""|"",4)"
^XMB(3.9,103,2,615,0)="""RTN"",""PSJHL4A"",82,0)"
^XMB(3.9,103,2,616,0)=" I $G(ROC)'=""N"" F SOL=0:0 S SOL=$O(^PS(55,PSJHLDFN,""IV"",+ON,""SOL"",SOL)) Q:'SOL  S SOL2=$G(^PS(55,PSJHLDFN,""IV"",+ON,""SOL"",SOL,0)) I $D(^PS(52.7,""AOI"",PTR,+SOL2))&($P(SOL2,U,2)=VOLUME) S SOLUTION=+SOL2 D SET Q"
^XMB(3.9,103,2,617,0)="""RTN"",""PSJHL4A"",83,0)"
^XMB(3.9,103,2,618,0)=" I 'SOLUTION S SOLUTION=$O(^PS(52.7,""AOI"",PTR,SOLUTION)) D SET"
^XMB(3.9,103,2,619,0)="""RTN"",""PSJHL4A"",84,0)"
^XMB(3.9,103,2,620,0)=" Q"
^XMB(3.9,103,2,621,0)="""RTN"",""PSJHL4A"",85,0)"
^XMB(3.9,103,2,622,0)="SET ;Set solution tmp nodes"
^XMB(3.9,103,2,623,0)="""RTN"",""PSJHL4A"",86,0)"
^XMB(3.9,103,2,624,0)=" Q:'+SOLUTION"
^XMB(3.9,103,2,625,0)="""RTN"",""PSJHL4A"",87,0)"
^XMB(3.9,103,2,626,0)=" S ^TMP(""PSJNVO"",$J,""SOL"",0)=SOLCNT"
^XMB(3.9,103,2,627,0)="""RTN"",""PSJHL4A"",88,0)"
^XMB(3.9,103,2,628,0)=" S ^TMP(""PSJNVO"",$J,""SOL"",SOLCNT,0)=SOLUTION_""^""_VOLUME,TVOLUME=TVOLUME+(+VOLUME)"
^XMB(3.9,103,2,629,0)="""RTN"",""PSJHL4A"",89,0)"
^XMB(3.9,103,2,630,0)=" Q"
^XMB(3.9,103,2,631,0)="""RTN"",""PSJHL4A"",90,0)"
^XMB(3.9,103,2,632,0)=" ;"
^XMB(3.9,103,2,633,0)="""RTN"",""PSJHL4A"",91,0)"
^XMB(3.9,103,2,634,0)="SNDTSTW(PRIO,PSJSCHED,WARD) ; Test to determine if mail message should be sent."
^XMB(3.9,103,2,635,0)="""RTN"",""PSJHL4A"",92,0)"
^XMB(3.9,103,2,636,0)=" N SNPRIO,SNSCHD,SNOPT"
^XMB(3.9,103,2,637,0)="""RTN"",""PSJHL4A"",93,0)"
^XMB(3.9,103,2,638,0)=" S SNPRIO=$S(PRIO=""S"":""S"",PRIO=""A"":""A"",1:""R"")"
^XMB(3.9,103,2,639,0)="""RTN"",""PSJHL4A"",94,0)"
^XMB(3.9,103,2,640,0)=" S SNSCHD=$S(PSJSCHED=""STAT"":""S"",PSJSCHED=""NOW"":""N"",1:""R"")"
^XMB(3.9,103,2,641,0)="""RTN"",""PSJHL4A"",95,0)"
^XMB(3.9,103,2,642,0)=" S SNOPT=$P($G(^PS(59.6,WARD,0)),""^"",32)"
^XMB(3.9,103,2,643,0)="""RTN"",""PSJHL4A"",96,0)"
^XMB(3.9,103,2,644,0)=" S:SNOPT="""" SNOPT=$P($G(^PS(59.7,1,27)),""^"",1)"
^XMB(3.9,103,2,645,0)="""RTN"",""PSJHL4A"",97,0)"
^XMB(3.9,103,2,646,0)=" Q:SNOPT="""" 0"
^XMB(3.9,103,2,647,0)="""RTN"",""PSJHL4A"",98,0)"
^XMB(3.9,103,2,648,0)=" Q:SNOPT[SNPRIO 0"
^XMB(3.9,103,2,649,0)="""RTN"",""PSJHL4A"",99,0)"
^XMB(3.9,103,2,650,0)=" Q:SNOPT[SNSCHD 0"
^XMB(3.9,103,2,651,0)="""RTN"",""PSJHL4A"",100,0)"
^XMB(3.9,103,2,652,0)=" Q 1"
^XMB(3.9,103,2,653,0)="""RTN"",""PSJHL4A"",101,0)"
^XMB(3.9,103,2,654,0)=" ;"
^XMB(3.9,103,2,655,0)="""RTN"",""PSJHL4A"",102,0)"
^XMB(3.9,103,2,656,0)="SNDTSTP(PRIO,PSJSCHED) ; Test to determine if mail message should be sent."
^XMB(3.9,103,2,657,0)="""RTN"",""PSJHL4A"",103,0)"
^XMB(3.9,103,2,658,0)=" N SNPRIO,SNSCHD,SNOPT"
^XMB(3.9,103,2,659,0)="""RTN"",""PSJHL4A"",104,0)"
^XMB(3.9,103,2,660,0)=" S SNPRIO=$S(PRIO=""S"":""S"",PRIO=""A"":""A"",1:""R"")"
^XMB(3.9,103,2,661,0)="""RTN"",""PSJHL4A"",105,0)"
^XMB(3.9,103,2,662,0)=" S SNSCHD=$S(PSJSCHED=""STAT"":""S"",PSJSCHED=""NOW"":""N"",1:""R"")"
^XMB(3.9,103,2,663,0)="""RTN"",""PSJHL4A"",106,0)"
^XMB(3.9,103,2,664,0)=" S SNOPT=$P($G(^PS(59.7,1,27)),""^"",1)"
^XMB(3.9,103,2,665,0)="""RTN"",""PSJHL4A"",107,0)"
^XMB(3.9,103,2,666,0)=" Q:SNOPT="""" 0"
^XMB(3.9,103,2,667,0)="""RTN"",""PSJHL4A"",108,0)"
^XMB(3.9,103,2,668,0)=" Q:SNOPT[SNPRIO 0"
^XMB(3.9,103,2,669,0)="""RTN"",""PSJHL4A"",109,0)"
^XMB(3.9,103,2,670,0)=" Q:SNOPT[SNSCHD 0"
^XMB(3.9,103,2,671,0)="""RTN"",""PSJHL4A"",110,0)"
^XMB(3.9,103,2,672,0)=" Q 1"
^XMB(3.9,103,2,673,0)="""RTN"",""PSJHL4A"",111,0)"
^XMB(3.9,103,2,674,0)=" ;"
^XMB(3.9,103,2,675,0)="""RTN"",""PSJHL4A"",112,0)"
^XMB(3.9,103,2,676,0)="SNDTSTA(PRIO,PSJSCHED) ; Test to determine if mail message should be sent."
^XMB(3.9,103,2,677,0)="""RTN"",""PSJHL4A"",113,0)"
^XMB(3.9,103,2,678,0)=" N SNPRIO,SNSCHD,SNOPT"
^XMB(3.9,103,2,679,0)="""RTN"",""PSJHL4A"",114,0)"
^XMB(3.9,103,2,680,0)=" S SNPRIO=$S(PRIO=""S"":""S"",PRIO=""A"":""A"",1:""R"")"
^XMB(3.9,103,2,681,0)="""RTN"",""PSJHL4A"",115,0)"
^XMB(3.9,103,2,682,0)=" S SNSCHD=$S(PSJSCHED=""STAT"":""S"",PSJSCHED=""NOW"":""N"",1:""R"")"
^XMB(3.9,103,2,683,0)="""RTN"",""PSJHL4A"",116,0)"
^XMB(3.9,103,2,684,0)=" S SNOPT=$P($G(^PS(59.7,1,27)),""^"",2)"
^XMB(3.9,103,2,685,0)="""RTN"",""PSJHL4A"",117,0)"
^XMB(3.9,103,2,686,0)=" S:SNOPT="""" SNOPT=$P($G(^PS(59.7,1,27)),""^"",1)"
^XMB(3.9,103,2,687,0)="""RTN"",""PSJHL4A"",118,0)"
^XMB(3.9,103,2,688,0)=" Q:SNOPT="""" 0"
^XMB(3.9,103,2,689,0)="""RTN"",""PSJHL4A"",119,0)"
^XMB(3.9,103,2,690,0)=" Q:SNOPT[SNPRIO 0"
^XMB(3.9,103,2,691,0)="""RTN"",""PSJHL4A"",120,0)"
^XMB(3.9,103,2,692,0)=" Q:SNOPT[SNSCHD 0"
^XMB(3.9,103,2,693,0)="""RTN"",""PSJHL4A"",121,0)"
^XMB(3.9,103,2,694,0)=" Q 1"
^XMB(3.9,103,2,695,0)="""RTN"",""PSJPXRM1"")"
^XMB(3.9,103,2,696,0)="0^2^B33327052^B31660556"
^XMB(3.9,103,2,697,0)="""RTN"",""PSJPXRM1"",1,0)"
^XMB(3.9,103,2,698,0)="PSJPXRM1 ;BIR/MV-RETURN INPATIENT ACTIVE MEDS (EXPANDED) ;29 Jan 99 / 8:49 AM"
^XMB(3.9,103,2,699,0)="""RTN"",""PSJPXRM1"",2,0)"
^XMB(3.9,103,2,700,0)=" ;;5.0; INPATIENT MEDICATIONS ;**90,170**;16 DEC 97"
^XMB(3.9,103,2,701,0)="""RTN"",""PSJPXRM1"",3,0)"
^XMB(3.9,103,2,702,0)=" ;"
^XMB(3.9,103,2,703,0)="""RTN"",""PSJPXRM1"",4,0)"
^XMB(3.9,103,2,704,0)=" ; Reference to ^PS(51.2 is supported by DBIA 2178."
^XMB(3.9,103,2,705,0)="""RTN"",""PSJPXRM1"",5,0)"
^XMB(3.9,103,2,706,0)=" ; Reference to ^PS(52.6 is supported by DBIA 1231."
^XMB(3.9,103,2,707,0)="""RTN"",""PSJPXRM1"",6,0)"
^XMB(3.9,103,2,708,0)=" ; Reference to ^PS(52.7 is supported by DBIA 2173."
^XMB(3.9,103,2,709,0)="""RTN"",""PSJPXRM1"",7,0)"
^XMB(3.9,103,2,710,0)=" ; Reference to ^PS(55 is supported by DBIA 2191."
^XMB(3.9,103,2,711,0)="""RTN"",""PSJPXRM1"",8,0)"
^XMB(3.9,103,2,712,0)=" ; Reference to ^PSDRUG is supported by DBIA 2192."
^XMB(3.9,103,2,713,0)="""RTN"",""PSJPXRM1"",9,0)"
^XMB(3.9,103,2,714,0)=" ; Reference to ^VA(200 is supported by DBIA 10060."
^XMB(3.9,103,2,715,0)="""RTN"",""PSJPXRM1"",10,0)"
^XMB(3.9,103,2,716,0)=" ; Reference to ^DIC is supported by DBIA 10006."
^XMB(3.9,103,2,717,0)="""RTN"",""PSJPXRM1"",11,0)"
^XMB(3.9,103,2,718,0)=" ;"
^XMB(3.9,103,2,719,0)="""RTN"",""PSJPXRM1"",12,0)"
^XMB(3.9,103,2,720,0)="OEL(DAS,NAME)         ; return list of expanded inpat meds"
^XMB(3.9,103,2,721,0)="""RTN"",""PSJPXRM1"",13,0)"
^XMB(3.9,103,2,722,0)=" N ADM,CNT,DFN,DN,DO,F,INFUS,INST,MR,ND,ND0,ND2,ND6,NDOI,ON,SCH,SIO,START,STAT,STOP,TYP,UNITS,X,Y"
^XMB(3.9,103,2,723,0)="""RTN"",""PSJPXRM1"",14,0)"
^XMB(3.9,103,2,724,0)=" S DFN=$P(DAS,"";"")"
^XMB(3.9,103,2,725,0)="""RTN"",""PSJPXRM1"",15,0)"
^XMB(3.9,103,2,726,0)=" S F=$S($P(DAS,"";"",2)[""P"":""^PS(53.1,"",$P(DAS,"";"",2)=5:""^PS(55,DFN,5,"",1:""^PS(55,""_DFN_"",""""IV"""","")"
^XMB(3.9,103,2,727,0)="""RTN"",""PSJPXRM1"",16,0)"
^XMB(3.9,103,2,728,0)=" S ON=$P(DAS,"";"",3)_$S($P(DAS,"";"",2)=""IV"":""V"",$P(DAS,"";"",2)=5:""U"",1:""P"")"
^XMB(3.9,103,2,729,0)="""RTN"",""PSJPXRM1"",17,0)"
^XMB(3.9,103,2,730,0)=" I ON'[""P"",'$D(@(F_+ON_"")"")) Q"
^XMB(3.9,103,2,731,0)="""RTN"",""PSJPXRM1"",18,0)"
^XMB(3.9,103,2,732,0)=" I ON[""P"" S X=$G(^PS(53.1,+ON,0)) Q:$P(X,U,15)'=DFN  S TYP=$P(X,U,4) D @$S(TYP=""U"":""UDTMP"",1:""IVTMP"")"
^XMB(3.9,103,2,733,0)="""RTN"",""PSJPXRM1"",19,0)"
^XMB(3.9,103,2,734,0)=" D:ON'[""P"" @$S(ON[""U"":""UDTMP"",1:""IVTMP"")"
^XMB(3.9,103,2,735,0)="""RTN"",""PSJPXRM1"",20,0)"
^XMB(3.9,103,2,736,0)=" S Y=$S(ON[""V"":5,1:12),CNT=0"
^XMB(3.9,103,2,737,0)="""RTN"",""PSJPXRM1"",21,0)"
^XMB(3.9,103,2,738,0)=" I $O(@(F_+ON_"",""_Y_"",0)"")) D"
^XMB(3.9,103,2,739,0)="""RTN"",""PSJPXRM1"",22,0)"
^XMB(3.9,103,2,740,0)=" . F X=0:0 S X=$O(@(F_+ON_"",""_Y_"",""_X_"")"")) Q:'X  D"
^XMB(3.9,103,2,741,0)="""RTN"",""PSJPXRM1"",23,0)"
^XMB(3.9,103,2,742,0)=" ..S CNT=CNT+1,ND=$G(@(F_+ON_"",""_Y_"",""_X_"",0)"")),NAME(""PC"",CNT,0)=ND"
^XMB(3.9,103,2,743,0)="""RTN"",""PSJPXRM1"",24,0)"
^XMB(3.9,103,2,744,0)=" S NAME(""PC"",0)=CNT"
^XMB(3.9,103,2,745,0)="""RTN"",""PSJPXRM1"",25,0)"
^XMB(3.9,103,2,746,0)=" Q"
^XMB(3.9,103,2,747,0)="""RTN"",""PSJPXRM1"",26,0)"
^XMB(3.9,103,2,748,0)=" ;"
^XMB(3.9,103,2,749,0)="""RTN"",""PSJPXRM1"",27,0)"
^XMB(3.9,103,2,750,0)="UDTMP ;*** Set array for Unit dose orders."
^XMB(3.9,103,2,751,0)="""RTN"",""PSJPXRM1"",28,0)"
^XMB(3.9,103,2,752,0)=" N DO,DN,INST,X,Y,PROVIDER,NOTGIVEN"
^XMB(3.9,103,2,753,0)="""RTN"",""PSJPXRM1"",29,0)"
^XMB(3.9,103,2,754,0)=" S (MR,SCH,INST)="""""
^XMB(3.9,103,2,755,0)="""RTN"",""PSJPXRM1"",30,0)"
^XMB(3.9,103,2,756,0)=" S ND2=$G(@(F_+ON_"",2)"")),ND0=$G(@(F_+ON_"",0)""))"
^XMB(3.9,103,2,757,0)="""RTN"",""PSJPXRM1"",31,0)"
^XMB(3.9,103,2,758,0)=" S ND6=$P($G(@(F_+ON_"",6)"")),""^"")"
^XMB(3.9,103,2,759,0)="""RTN"",""PSJPXRM1"",32,0)"
^XMB(3.9,103,2,760,0)=" S NAME(""STAT"")=$$CODES^PSIVUTL($P(ND0,U,9),$S(ON[""P"":53.1,1:55.06),28)"
^XMB(3.9,103,2,761,0)="""RTN"",""PSJPXRM1"",33,0)"
^XMB(3.9,103,2,762,0)=" D DRGDISP^PSJLMUT1(DFN,ON,40,0,.DN,1)"
^XMB(3.9,103,2,763,0)="""RTN"",""PSJPXRM1"",34,0)"
^XMB(3.9,103,2,764,0)=" S NDOI=$G(@(F_+ON_"",.2)"")),NAME(""OI"")=+NDOI,NAME(""DO"")=$P(NDOI,U,2)"
^XMB(3.9,103,2,765,0)="""RTN"",""PSJPXRM1"",35,0)"
^XMB(3.9,103,2,766,0)=" S NAME(""START"")=$P(ND2,""^"",2),NAME(""STOP"")=$P(ND2,""^"",4)"
^XMB(3.9,103,2,767,0)="""RTN"",""PSJPXRM1"",36,0)"
^XMB(3.9,103,2,768,0)=" S NAME(""UNITS"")="""" I '$O(@(F_+ON_"",1,1)"")) S NAME(""UNITS"")=$P($G(@(F_+ON_"",1,1,0)"")),U,2) S:(ON[""U"")&(NAME(""UNITS"")="""") NAME(""UNITS"")=1"
^XMB(3.9,103,2,769,0)="""RTN"",""PSJPXRM1"",37,0)"
^XMB(3.9,103,2,770,0)=" S NAME(""MR"")=$$MR(+$P(ND0,U,3)),NAME(""INST"")=$G(@(F_+ON_"",.3)""))"
^XMB(3.9,103,2,771,0)="""RTN"",""PSJPXRM1"",38,0)"
^XMB(3.9,103,2,772,0)=" S NAME(""NOTGIVEN"")=$S(ON[""U"":$P($G(^PS(55,DFN,5,+ON,0)),""^"",22),1:"""")"
^XMB(3.9,103,2,773,0)="""RTN"",""PSJPXRM1"",39,0)"
^XMB(3.9,103,2,774,0)=" S NAME(""OERR"")=$P(ND0,U,21)"
^XMB(3.9,103,2,775,0)="""RTN"",""PSJPXRM1"",40,0)"
^XMB(3.9,103,2,776,0)=" S NAME(""PENDRENEWAL"")=($P(ND0,U,9)=""P""&($P(ND0,U,24)=""R""))"
^XMB(3.9,103,2,777,0)="""RTN"",""PSJPXRM1"",41,0)"
^XMB(3.9,103,2,778,0)=" S NAME(""PROVIDER"")=$P($G(@(F_+ON_"",0)"")),""^"",2)"
^XMB(3.9,103,2,779,0)="""RTN"",""PSJPXRM1"",42,0)"
^XMB(3.9,103,2,780,0)=" I NAME(""PROVIDER"") S NAME(""PROVIDER"")=NAME(""PROVIDER"")_""^""_$P($G(^VA(200,NAME(""PROVIDER""),0)),""^"")"
^XMB(3.9,103,2,781,0)="""RTN"",""PSJPXRM1"",43,0)"
^XMB(3.9,103,2,782,0)=" S NAME(""MDR"",0)=NAME(""MR"")]"""" S:NAME(""MR"")]"""" NAME(""MDR"",1,0)=NAME(""MR"")"
^XMB(3.9,103,2,783,0)="""RTN"",""PSJPXRM1"",44,0)"
^XMB(3.9,103,2,784,0)=" S NAME(""SCH"",0)=$P(ND2,U)]"""" S:$P(ND2,U)]"""" NAME(""SCH"",1,0)=$P(ND2,U)"
^XMB(3.9,103,2,785,0)="""RTN"",""PSJPXRM1"",45,0)"
^XMB(3.9,103,2,786,0)=" S:$P(ND0,U,7)]"""" NAME(""SCH"",0)=1,$P(NAME(""SCH"",1,0),U,2)=$$GTSCHT($P(ND0,U,7))_""^""_$P(ND0,U,7)"
^XMB(3.9,103,2,787,0)="""RTN"",""PSJPXRM1"",46,0)"
^XMB(3.9,103,2,788,0)=" S NAME(""SIG"",0)=INST]"""" S:INST]"""" NAME(""SIG"",1,0)=INST"
^XMB(3.9,103,2,789,0)="""RTN"",""PSJPXRM1"",47,0)"
^XMB(3.9,103,2,790,0)=" S NAME(""ADM"",0)=$P(ND2,U,5)]"""" S:$P(ND2,U,5)]"""" NAME(""ADM"",1,0)=$P(ND2,U,5)"
^XMB(3.9,103,2,791,0)="""RTN"",""PSJPXRM1"",48,0)"
^XMB(3.9,103,2,792,0)=" S NAME(""SIO"",0)=ND6]"""" S:ND6]"""" NAME(""SIO"",1,0)=ND6"
^XMB(3.9,103,2,793,0)="""RTN"",""PSJPXRM1"",49,0)"
^XMB(3.9,103,2,794,0)=" S:ON[""U"" NAME(""VERPHARM"")=$P($G(@(F_+ON_"",4)"")),U,3)"
^XMB(3.9,103,2,795,0)="""RTN"",""PSJPXRM1"",50,0)"
^XMB(3.9,103,2,796,0)=" NEW PSJDD,INACTDT,NDDD,OUTOI,PSJOUT S CNT=0"
^XMB(3.9,103,2,797,0)="""RTN"",""PSJPXRM1"",51,0)"
^XMB(3.9,103,2,798,0)=" F PSJDD=0:0 S PSJDD=$O(@(F_+ON_"",1,PSJDD)"")) Q:'PSJDD  D"
^XMB(3.9,103,2,799,0)="""RTN"",""PSJPXRM1"",52,0)"
^XMB(3.9,103,2,800,0)=" . S NDDD=@(F_+ON_"",1,PSJDD,0)"")"
^XMB(3.9,103,2,801,0)="""RTN"",""PSJPXRM1"",53,0)"
^XMB(3.9,103,2,802,0)=" . I $P(NDDD,U,3)]"""",($P(NDDD,U,3)'>DT) Q"
^XMB(3.9,103,2,803,0)="""RTN"",""PSJPXRM1"",54,0)"
^XMB(3.9,103,2,804,0)=" . S PSJOUT=$P($G(^PSDRUG(+NDDD,8)),U,5)"
^XMB(3.9,103,2,805,0)="""RTN"",""PSJPXRM1"",55,0)"
^XMB(3.9,103,2,806,0)=" . I +PSJOUT D"
^XMB(3.9,103,2,807,0)="""RTN"",""PSJPXRM1"",56,0)"
^XMB(3.9,103,2,808,0)=" .. S INACTDT=$G(^PSDRUG(+PSJOUT,""I"")),OUTOI=+$G(^PSDRUG(+PSJOUT,2))"
^XMB(3.9,103,2,809,0)="""RTN"",""PSJPXRM1"",57,0)"
^XMB(3.9,103,2,810,0)=" .. I INACTDT]"""",(INACTDT'>DT) S (PSJOUT,OUTOI)="""""
^XMB(3.9,103,2,811,0)="""RTN"",""PSJPXRM1"",58,0)"
^XMB(3.9,103,2,812,0)=" . I '+PSJOUT,($P($G(^PSDRUG(+NDDD,2)),U,3)[""O"") D"
^XMB(3.9,103,2,813,0)="""RTN"",""PSJPXRM1"",59,0)"
^XMB(3.9,103,2,814,0)=" .. S PSJOUT=+NDDD,OUTOI=+NDOI"
^XMB(3.9,103,2,815,0)="""RTN"",""PSJPXRM1"",60,0)"
^XMB(3.9,103,2,816,0)=" .. S INACTDT=$G(^PSDRUG(+NDDD,""I""))"
^XMB(3.9,103,2,817,0)="""RTN"",""PSJPXRM1"",61,0)"
^XMB(3.9,103,2,818,0)=" .. I INACTDT]"""",(INACTDT'>DT) S (PSJOUT,OUTOI)="""""
^XMB(3.9,103,2,819,0)="""RTN"",""PSJPXRM1"",62,0)"
^XMB(3.9,103,2,820,0)=" . ;* S UNITS=$S('+$P(NDDD,U,2):1,1:$P(NDDD,U,2))"
^XMB(3.9,103,2,821,0)="""RTN"",""PSJPXRM1"",63,0)"
^XMB(3.9,103,2,822,0)=" . S UNITS=$P(NDDD,U,2) S:(ON[""U"")&(UNITS="""") UNITS=1"
^XMB(3.9,103,2,823,0)="""RTN"",""PSJPXRM1"",64,0)"
^XMB(3.9,103,2,824,0)=" . S CNT=CNT+1,NAME(""DD"",CNT,0)=+NDDD_U_UNITS_U_PSJOUT_U_$G(OUTOI)"
^XMB(3.9,103,2,825,0)="""RTN"",""PSJPXRM1"",65,0)"
^XMB(3.9,103,2,826,0)=" S NAME(""DD"",0)=CNT"
^XMB(3.9,103,2,827,0)="""RTN"",""PSJPXRM1"",66,0)"
^XMB(3.9,103,2,828,0)=" Q"
^XMB(3.9,103,2,829,0)="""RTN"",""PSJPXRM1"",67,0)"
^XMB(3.9,103,2,830,0)=" ;"
^XMB(3.9,103,2,831,0)="""RTN"",""PSJPXRM1"",68,0)"
^XMB(3.9,103,2,832,0)="IVTMP ;*** Set array for IV orders."
^XMB(3.9,103,2,833,0)="""RTN"",""PSJPXRM1"",69,0)"
^XMB(3.9,103,2,834,0)=" N PROVIDER S ND0=$G(@(F_+ON_"",0)"")),CNT=0"
^XMB(3.9,103,2,835,0)="""RTN"",""PSJPXRM1"",70,0)"
^XMB(3.9,103,2,836,0)=" F X=0:0 S X=$O(@(F_+ON_"",""""AD"""",""_X_"")"")) Q:'X  S ND=$G(@(F_+ON_"",""""AD"""",""_X_"",0)"")),DN=$P($G(^PS(52.6,+ND,0)),U),Y=DN_U_$P(ND,U,2) S:$P(ND,U,3) Y=Y_U_$P(ND,U,3) S CNT=CNT+1,NAME(""AD"",CNT,0)=Y"
^XMB(3.9,103,2,837,0)="""RTN"",""PSJPXRM1"",71,0)"
^XMB(3.9,103,2,838,0)=" S NAME(""AD"",0)=CNT,CNT=0"
^XMB(3.9,103,2,839,0)="""RTN"",""PSJPXRM1"",72,0)"
^XMB(3.9,103,2,840,0)=" F X=0:0 S X=$O(@(F_+ON_"",""""SOL"""",""_X_"")"")) Q:'X  S ND=$G(@(F_+ON_"",""""SOL"""",""_X_"",0)"")),DN=$G(^PS(52.7,+ND,0)),CNT=CNT+1,NAME(""SOL"",CNT,0)=$P(DN,U)_U_$P(ND,U,2)_U_$P(DN,U,4)"
^XMB(3.9,103,2,841,0)="""RTN"",""PSJPXRM1"",73,0)"
^XMB(3.9,103,2,842,0)=" S NAME(""SOL"",0)=CNT"
^XMB(3.9,103,2,843,0)="""RTN"",""PSJPXRM1"",74,0)"
^XMB(3.9,103,2,844,0)=" S NAME(""INST"")=$G(@(F_+ON_"",.3)""))"
^XMB(3.9,103,2,845,0)="""RTN"",""PSJPXRM1"",75,0)"
^XMB(3.9,103,2,846,0)=" I ON[""P"" D"
^XMB(3.9,103,2,847,0)="""RTN"",""PSJPXRM1"",76,0)"
^XMB(3.9,103,2,848,0)=" . S NAME(""SCH"")=$P($G(^PS(53.1,+ON,2)),U)"
^XMB(3.9,103,2,849,0)="""RTN"",""PSJPXRM1"",77,0)"
^XMB(3.9,103,2,850,0)=" . S NAME(""PROVIDER"")=$P(ND0,U,2)"
^XMB(3.9,103,2,851,0)="""RTN"",""PSJPXRM1"",78,0)"
^XMB(3.9,103,2,852,0)=" . S NAME(""MR"")=$$MR(+$P(ND0,U,3)),NAME(""STAT"")=$$CODES^PSIVUTL($P(ND0,U,9),53.1,28)"
^XMB(3.9,103,2,853,0)="""RTN"",""PSJPXRM1"",79,0)"
^XMB(3.9,103,2,854,0)=" . S NAME(""INFUS"")=$P($G(^PS(53.1,+ON,8)),U,5)"
^XMB(3.9,103,2,855,0)="""RTN"",""PSJPXRM1"",80,0)"
^XMB(3.9,103,2,856,0)=" . S ND2=$G(@(F_+ON_"",2)"")),NAME(""START"")=$P(ND2,U,2),NAME(""STOP"")=$P(ND2,U,4)"
^XMB(3.9,103,2,857,0)="""RTN"",""PSJPXRM1"",81,0)"
^XMB(3.9,103,2,858,0)=" . S NAME(""ADM"")=$P(ND2,U,5),NAME(""SIO"")=$P($G(@(F_+ON_"",6)"")),""^"")"
^XMB(3.9,103,2,859,0)="""RTN"",""PSJPXRM1"",82,0)"
^XMB(3.9,103,2,860,0)=" . S NAME(""DN"")=$G(@(F_+ON_"",.2)"")),NAME(""DO"")=$P(NAME(""DN""),U,2)"
^XMB(3.9,103,2,861,0)="""RTN"",""PSJPXRM1"",83,0)"
^XMB(3.9,103,2,862,0)=" . S:NAME(""DO"")="""" NAME(""DO"")=$P($G(NAME(""AD"",1,0)),U,2)"
^XMB(3.9,103,2,863,0)="""RTN"",""PSJPXRM1"",84,0)"
^XMB(3.9,103,2,864,0)=" . S NAME(""DN"")=$S(+$P(NAME(""DN""),U):$$OIDF^PSJLMUT1($P(NAME(""DN""),U)),1:"""")"
^XMB(3.9,103,2,865,0)="""RTN"",""PSJPXRM1"",85,0)"
^XMB(3.9,103,2,866,0)=" I ON'[""P""  D"
^XMB(3.9,103,2,867,0)="""RTN"",""PSJPXRM1"",86,0)"
^XMB(3.9,103,2,868,0)=" . S NAME(""PROVIDER"")=$P(ND0,U,6)"
^XMB(3.9,103,2,869,0)="""RTN"",""PSJPXRM1"",87,0)"
^XMB(3.9,103,2,870,0)=" . S NAME(""SCH"")=$P(ND0,U,9),NAME(""INFUS"")=$P(ND0,U,8),NAME(""STAT"")=$$CODES^PSIVUTL($P(ND0,U,17),55.01,100)"
^XMB(3.9,103,2,871,0)="""RTN"",""PSJPXRM1"",88,0)"
^XMB(3.9,103,2,872,0)=" . S NAME(""MR"")=$$MR(+$P($G(^PS(55,DFN,""IV"",+ON,.2)),U,3))"
^XMB(3.9,103,2,873,0)="""RTN"",""PSJPXRM1"",89,0)"
^XMB(3.9,103,2,874,0)=" . S NAME(""START"")=$P(ND0,U,2),NAME(""STOP"")=$P(ND0,U,3)"
^XMB(3.9,103,2,875,0)="""RTN"",""PSJPXRM1"",90,0)"
^XMB(3.9,103,2,876,0)=" . S NAME(""ADM"")=$P(ND0,U,11),NAME(""SIO"")=$P($G(@(F_+ON_"",3)"")),""^"")"
^XMB(3.9,103,2,877,0)="""RTN"",""PSJPXRM1"",91,0)"
^XMB(3.9,103,2,878,0)=" . S NAME(""VERPHARM"")=$P($G(^PS(55,DFN,""IV"",+ON,4)),U,4)"
^XMB(3.9,103,2,879,0)="""RTN"",""PSJPXRM1"",92,0)"
^XMB(3.9,103,2,880,0)=" . S NAME(""DN"")=$G(@(F_+ON_"",.2)"")),NAME(""DO"")=$P(NAME(""DN""),U,2)"
^XMB(3.9,103,2,881,0)="""RTN"",""PSJPXRM1"",93,0)"
^XMB(3.9,103,2,882,0)=" . S NAME(""DN"")=$S(+$P(NAME(""DN""),U):$$OIDF^PSJLMUT1($P(NAME(""DN""),U)),1:"""")"
^XMB(3.9,103,2,883,0)="""RTN"",""PSJPXRM1"",94,0)"
^XMB(3.9,103,2,884,0)=" S NAME(""OERR"")=$P(ND0,U,21)"
^XMB(3.9,103,2,885,0)="""RTN"",""PSJPXRM1"",95,0)"
^XMB(3.9,103,2,886,0)=" S NAME(""PENDRENEWAL"")=($P(ND0,U,9)=""P""&($P(ND0,U,24)=""R""))"
^XMB(3.9,103,2,887,0)="""RTN"",""PSJPXRM1"",96,0)"
^XMB(3.9,103,2,888,0)=" I NAME(""PROVIDER"") S NAME(""PROVIDER"")=NAME(""PROVIDER"")_""^""_$P($G(^VA(200,NAME(""PROVIDER""),0)),""^"")"
^XMB(3.9,103,2,889,0)="""RTN"",""PSJPXRM1"",97,0)"
^XMB(3.9,103,2,890,0)=" S NAME(""MDR"",0)=NAME(""MR"")]"""" S:NAME(""MR"")]"""" NAME(""MDR"",1,0)=NAME(""MR"")"
^XMB(3.9,103,2,891,0)="""RTN"",""PSJPXRM1"",98,0)"
^XMB(3.9,103,2,892,0)=" S NAME(""SCH"",0)=NAME(""SCH"")]"""" S:NAME(""SCH"")]"""" NAME(""SCH"",1,0)=NAME(""SCH"")"
^XMB(3.9,103,2,893,0)="""RTN"",""PSJPXRM1"",99,0)"
^XMB(3.9,103,2,894,0)=" I ON[""P"" S:$P(ND0,U,7)]"""" NAME(""SCH"",0)=1,$P(NAME(""SCH"",1,0),U,2)=$$GTSCHT($P(ND0,U,7))_""^""_$P(ND0,U,7)"
^XMB(3.9,103,2,895,0)="""RTN"",""PSJPXRM1"",100,0)"
^XMB(3.9,103,2,896,0)=" S NAME(""SIG"",0)=NAME(""INST"")]"""" S:NAME(""INST"")]"""" NAME(""SIG"",1,0)=NAME(""INST"")"
^XMB(3.9,103,2,897,0)="""RTN"",""PSJPXRM1"",101,0)"
^XMB(3.9,103,2,898,0)=" S NAME(""ADM"",0)=NAME(""ADM"")]"""" S:NAME(""ADM"")]"""" NAME(""ADM"",1,0)=NAME(""ADM"")"
^XMB(3.9,103,2,899,0)="""RTN"",""PSJPXRM1"",102,0)"
^XMB(3.9,103,2,900,0)=" S NAME(""SIO"",0)=NAME(""SIO"")]"""" S:NAME(""SIO"")]"""" NAME(""SIO"",1,0)=NAME(""SIO"")"
^XMB(3.9,103,2,901,0)="""RTN"",""PSJPXRM1"",103,0)"
^XMB(3.9,103,2,902,0)=" Q"
^XMB(3.9,103,2,903,0)="""RTN"",""PSJPXRM1"",104,0)"
^XMB(3.9,103,2,904,0)=" ;"
^XMB(3.9,103,2,905,0)="""RTN"",""PSJPXRM1"",105,0)"
^XMB(3.9,103,2,906,0)="MR(X) ;RETURN MED ROUTE ABBR. IF THE ABBR="""" RETURN MED ROUTE'S NAME."
^XMB(3.9,103,2,907,0)="""RTN"",""PSJPXRM1"",106,0)"
^XMB(3.9,103,2,908,0)=" S X=$G(^PS(51.2,X,0))"
^XMB(3.9,103,2,909,0)="""RTN"",""PSJPXRM1"",107,0)"
^XMB(3.9,103,2,910,0)=" Q $S($P(X,U,3)]"""":$P(X,U,3),1:$P(X,U))"
^XMB(3.9,103,2,911,0)="""RTN"",""PSJPXRM1"",108,0)"
^XMB(3.9,103,2,912,0)=" ;"
^XMB(3.9,103,2,913,0)="""RTN"",""PSJPXRM1"",109,0)"
^XMB(3.9,103,2,914,0)="GTSTAT(X) ;"
^XMB(3.9,103,2,915,0)="""RTN"",""PSJPXRM1"",110,0)"
^XMB(3.9,103,2,916,0)=" Q $S(X=""A"":""ACTIVE"",X=""D"":""DISCONTINUED"",X=""I"":""INCOMPLETE"",X=""N"":""NON-VERFIED"",X=""U"":""UNRELEASED"",X=""P"":""PENDING"",X=""DE"":""DISCONTINUED (EDIT)"",X=""O"":""ON CALL"",1:""NOT FOUND"")"
^XMB(3.9,103,2,917,0)="""RTN"",""PSJPXRM1"",111,0)"
^XMB(3.9,103,2,918,0)=" ;"
^XMB(3.9,103,2,919,0)="""RTN"",""PSJPXRM1"",112,0)"
^XMB(3.9,103,2,920,0)="VA200(X) ;Return the IEN for the user."
^XMB(3.9,103,2,921,0)="""RTN"",""PSJPXRM1"",113,0)"
^XMB(3.9,103,2,922,0)=" ; X = User name"
^XMB(3.9,103,2,923,0)="""RTN"",""PSJPXRM1"",114,0)"
^XMB(3.9,103,2,924,0)=" NEW DIC,Y S DIC=""^VA(200,"",DIC(0)=""NZ"" D ^DIC"
^XMB(3.9,103,2,925,0)="""RTN"",""PSJPXRM1"",115,0)"
^XMB(3.9,103,2,926,0)=" I +Y=-1 Q """""
^XMB(3.9,103,2,927,0)="""RTN"",""PSJPXRM1"",116,0)"
^XMB(3.9,103,2,928,0)=" Q $P(Y,U)"
^XMB(3.9,103,2,929,0)="""RTN"",""PSJPXRM1"",117,0)"
^XMB(3.9,103,2,930,0)="GTSCHT(X)       ;"
^XMB(3.9,103,2,931,0)="""RTN"",""PSJPXRM1"",118,0)"
^XMB(3.9,103,2,932,0)=" Q $S(X=""C"":""CONTINUOUS"",X=""O"":""ONE TIME"",X=""P"":""PRN"",X=""R"":""FILL ON REQUEST"",X=""OC"":""ON CALL"",1:""NOT FOUND"")"
^XMB(3.9,103,2,933,0)="""VER"")"
^XMB(3.9,103,2,934,0)="8.0^22.0"
^XMB(3.9,103,2,935,0)="""BLD"",6212,6)"
^XMB(3.9,103,2,936,0)="^154"
^XMB(3.9,103,2,937,0)="$END KID PSJ*5.0*170"
^XMB(3.9,103,6,0)="^3.911A^2^2"
^XMB(3.9,103,6,1,0)="POSTMASTER"
^XMB(3.9,103,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,103,6,"B","POSTMASTER",1)=""
^XMB(3.9,103,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,104,0)="PSJ-5_SEQ-155_PAT-172.KID^.5^3061008.015741^^^^K"
^XMB(3.9,104,.6)="3061008"
^XMB(3.9,104,1,0)="^3.91A^2^2"
^XMB(3.9,104,1,1,0)=".5^0^3061008.015741^^^^^^^3061008.015741"
^XMB(3.9,104,1,2,0)="1^0^3061008.022258^^^^^^^3061008.022258"
^XMB(3.9,104,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,104,1,"C",.5,1)=""
^XMB(3.9,104,1,"C",1,2)=""
^XMB(3.9,104,2,0)="^^523^523^3061008"
^XMB(3.9,104,2,1,0)="$TXT Released PSJ*5*172 SEQ #155"
^XMB(3.9,104,2,2,0)="Extracted from mail message"
^XMB(3.9,104,2,3,0)="$END TXT"
^XMB(3.9,104,2,4,0)="$KID PSJ*5.0*172"
^XMB(3.9,104,2,5,0)="**INSTALL NAME**"
^XMB(3.9,104,2,6,0)="PSJ*5.0*172"
^XMB(3.9,104,2,7,0)="""BLD"",6060,0)"
^XMB(3.9,104,2,8,0)="PSJ*5.0*172^INPATIENT MEDICATIONS^0^3060803^y"
^XMB(3.9,104,2,9,0)="""BLD"",6060,1,0)"
^XMB(3.9,104,2,10,0)="^^27^27^3060803^"
^XMB(3.9,104,2,11,0)="""BLD"",6060,1,1,0)"
^XMB(3.9,104,2,12,0)="This patch contains Application Program Interfaces (APIs) that will be "
^XMB(3.9,104,2,13,0)="""BLD"",6060,1,2,0)"
^XMB(3.9,104,2,14,0)="used by calling applications that currently do direct global reads or "
^XMB(3.9,104,2,15,0)="""BLD"",6060,1,3,0)"
^XMB(3.9,104,2,16,0)="writes to the Inpatient Medications files. Since the IV ROOM file "
^XMB(3.9,104,2,17,0)="""BLD"",6060,1,4,0)"
^XMB(3.9,104,2,18,0)="(#59.5) and the NON-VERIFIED ORDERS file (#53.1) are being replaced as part"
^XMB(3.9,104,2,19,0)="""BLD"",6060,1,5,0)"
^XMB(3.9,104,2,20,0)="of the Pharmacy Re-engineering project, any direct M-based global reads"
^XMB(3.9,104,2,21,0)="""BLD"",6060,1,6,0)"
^XMB(3.9,104,2,22,0)="or writes to this file must be replaced by calling the APIs provided in "
^XMB(3.9,104,2,23,0)="""BLD"",6060,1,7,0)"
^XMB(3.9,104,2,24,0)="this patch. When the new data source is in place, the calling applications "
^XMB(3.9,104,2,25,0)="""BLD"",6060,1,8,0)"
^XMB(3.9,104,2,26,0)="will not be required to make any changes, because these APIs will be "
^XMB(3.9,104,2,27,0)="""BLD"",6060,1,9,0)"
^XMB(3.9,104,2,28,0)="flexible enough to retrieve the requested data from the new data source, "
^XMB(3.9,104,2,29,0)="""BLD"",6060,1,10,0)"
^XMB(3.9,104,2,30,0)="when the time comes."
^XMB(3.9,104,2,31,0)="""BLD"",6060,1,11,0)"
^XMB(3.9,104,2,32,0)=" "
^XMB(3.9,104,2,33,0)="""BLD"",6060,1,12,0)"
^XMB(3.9,104,2,34,0)="This API replaces the following integration agreements:"
^XMB(3.9,104,2,35,0)="""BLD"",6060,1,13,0)"
^XMB(3.9,104,2,36,0)=" "
^XMB(3.9,104,2,37,0)="""BLD"",6060,1,14,0)"
^XMB(3.9,104,2,38,0)="DBIA #  Affected Package(s)"
^XMB(3.9,104,2,39,0)="""BLD"",6060,1,15,0)"
^XMB(3.9,104,2,40,0)="------  -------------------"
^XMB(3.9,104,2,41,0)="""BLD"",6060,1,16,0)"
^XMB(3.9,104,2,42,0)="1884    DSS EXTRACTS,DRUG ACCOUNTABILITY"
^XMB(3.9,104,2,43,0)="""BLD"",6060,1,17,0)"
^XMB(3.9,104,2,44,0)="2907    TEXT INTEGRATION UTILITIES"
^XMB(3.9,104,2,45,0)="""BLD"",6060,1,18,0)"
^XMB(3.9,104,2,46,0)="534     HEALTH SUMMARY"
^XMB(3.9,104,2,47,0)="""BLD"",6060,1,19,0)"
^XMB(3.9,104,2,48,0)=" "
^XMB(3.9,104,2,49,0)="""BLD"",6060,1,20,0)"
^XMB(3.9,104,2,50,0)="This patch enhances an original INPATIENT MEDICATIONS API call "
^XMB(3.9,104,2,51,0)="""BLD"",6060,1,21,0)"
^XMB(3.9,104,2,52,0)="ALL^PSJ59P5. This enhancement allows a double question mark (""??"") to be"
^XMB(3.9,104,2,53,0)="""BLD"",6060,1,22,0)"
^XMB(3.9,104,2,54,0)="passed in to the second parameter PSJFT. PSJFT represents the free-text"
^XMB(3.9,104,2,55,0)="""BLD"",6060,1,23,0)"
^XMB(3.9,104,2,56,0)="name a user wishes to retrieve from this file. Passing ""??"" to the PSJFT"
^XMB(3.9,104,2,57,0)="""BLD"",6060,1,24,0)"
^XMB(3.9,104,2,58,0)="parameter will cause the API to return all entries from the IV ROOM FILE "
^XMB(3.9,104,2,59,0)="""BLD"",6060,1,25,0)"
^XMB(3.9,104,2,60,0)="(#59.5). Specifications for this API can be found in the Pharmacy"
^XMB(3.9,104,2,61,0)="""BLD"",6060,1,26,0)"
^XMB(3.9,104,2,62,0)="Re-Engineering (PRE) API Manual. Reference to MEDICAL CENTER "
^XMB(3.9,104,2,63,0)="""BLD"",6060,1,27,0)"
^XMB(3.9,104,2,64,0)="DIVISION FILE (#40.8) is supported by DBIA 2269."
^XMB(3.9,104,2,65,0)="""BLD"",6060,4,0)"
^XMB(3.9,104,2,66,0)="^9.64PA^^"
^XMB(3.9,104,2,67,0)="""BLD"",6060,6.3)"
^XMB(3.9,104,2,68,0)="13"
^XMB(3.9,104,2,69,0)="""BLD"",6060,""KRN"",0)"
^XMB(3.9,104,2,70,0)="^9.67PA^^"
^XMB(3.9,104,2,71,0)="""BLD"",6060,""KRN"",.4,0)"
^XMB(3.9,104,2,72,0)=".4"
^XMB(3.9,104,2,73,0)="""BLD"",6060,""KRN"",.4,""NM"",0)"
^XMB(3.9,104,2,74,0)="^9.68A^^0"
^XMB(3.9,104,2,75,0)="""BLD"",6060,""KRN"",.401,0)"
^XMB(3.9,104,2,76,0)=".401"
^XMB(3.9,104,2,77,0)="""BLD"",6060,""KRN"",.401,""NM"",0)"
^XMB(3.9,104,2,78,0)="^9.68A^^0"
^XMB(3.9,104,2,79,0)="""BLD"",6060,""KRN"",.402,0)"
^XMB(3.9,104,2,80,0)=".402"
^XMB(3.9,104,2,81,0)="""BLD"",6060,""KRN"",.402,""NM"",0)"
^XMB(3.9,104,2,82,0)="^9.68A^^0"
^XMB(3.9,104,2,83,0)="""BLD"",6060,""KRN"",.403,0)"
^XMB(3.9,104,2,84,0)=".403"
^XMB(3.9,104,2,85,0)="""BLD"",6060,""KRN"",.5,0)"
^XMB(3.9,104,2,86,0)=".5"
^XMB(3.9,104,2,87,0)="""BLD"",6060,""KRN"",.84,0)"
^XMB(3.9,104,2,88,0)=".84"
^XMB(3.9,104,2,89,0)="""BLD"",6060,""KRN"",3.6,0)"
^XMB(3.9,104,2,90,0)="3.6"
^XMB(3.9,104,2,91,0)="""BLD"",6060,""KRN"",3.8,0)"
^XMB(3.9,104,2,92,0)="3.8"
^XMB(3.9,104,2,93,0)="""BLD"",6060,""KRN"",9.2,0)"
^XMB(3.9,104,2,94,0)="9.2"
^XMB(3.9,104,2,95,0)="""BLD"",6060,""KRN"",9.8,0)"
^XMB(3.9,104,2,96,0)="9.8"
^XMB(3.9,104,2,97,0)="""BLD"",6060,""KRN"",9.8,""NM"",0)"
^XMB(3.9,104,2,98,0)="^9.68A^2^2"
^XMB(3.9,104,2,99,0)="""BLD"",6060,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,104,2,100,0)="PSJ59P5^^0^B11701444"
^XMB(3.9,104,2,101,0)="""BLD"",6060,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,104,2,102,0)="PSJ53P1^^0^B5710218"
^XMB(3.9,104,2,103,0)="""BLD"",6060,""KRN"",9.8,""NM"",""B"",""PSJ53P1"",2)"
^XMB(3.9,104,2,104,0)=""
^XMB(3.9,104,2,105,0)="""BLD"",6060,""KRN"",9.8,""NM"",""B"",""PSJ59P5"",1)"
^XMB(3.9,104,2,106,0)=""
^XMB(3.9,104,2,107,0)="""BLD"",6060,""KRN"",19,0)"
^XMB(3.9,104,2,108,0)="19"
^XMB(3.9,104,2,109,0)="""BLD"",6060,""KRN"",19.1,0)"
^XMB(3.9,104,2,110,0)="19.1"
^XMB(3.9,104,2,111,0)="""BLD"",6060,""KRN"",101,0)"
^XMB(3.9,104,2,112,0)="101"
^XMB(3.9,104,2,113,0)="""BLD"",6060,""KRN"",409.61,0)"
^XMB(3.9,104,2,114,0)="409.61"
^XMB(3.9,104,2,115,0)="""BLD"",6060,""KRN"",771,0)"
^XMB(3.9,104,2,116,0)="771"
^XMB(3.9,104,2,117,0)="""BLD"",6060,""KRN"",869.2,0)"
^XMB(3.9,104,2,118,0)="869.2"
^XMB(3.9,104,2,119,0)="""BLD"",6060,""KRN"",870,0)"
^XMB(3.9,104,2,120,0)="870"
^XMB(3.9,104,2,121,0)="""BLD"",6060,""KRN"",8994,0)"
^XMB(3.9,104,2,122,0)="8994"
^XMB(3.9,104,2,123,0)="""BLD"",6060,""KRN"",""B"",.4,.4)"
^XMB(3.9,104,2,124,0)=""
^XMB(3.9,104,2,125,0)="""BLD"",6060,""KRN"",""B"",.401,.401)"
^XMB(3.9,104,2,126,0)=""
^XMB(3.9,104,2,127,0)="""BLD"",6060,""KRN"",""B"",.402,.402)"
^XMB(3.9,104,2,128,0)=""
^XMB(3.9,104,2,129,0)="""BLD"",6060,""KRN"",""B"",.403,.403)"
^XMB(3.9,104,2,130,0)=""
^XMB(3.9,104,2,131,0)="""BLD"",6060,""KRN"",""B"",.5,.5)"
^XMB(3.9,104,2,132,0)=""
^XMB(3.9,104,2,133,0)="""BLD"",6060,""KRN"",""B"",.84,.84)"
^XMB(3.9,104,2,134,0)=""
^XMB(3.9,104,2,135,0)="""BLD"",6060,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,104,2,136,0)=""
^XMB(3.9,104,2,137,0)="""BLD"",6060,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,104,2,138,0)=""
^XMB(3.9,104,2,139,0)="""BLD"",6060,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,104,2,140,0)=""
^XMB(3.9,104,2,141,0)="""BLD"",6060,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,104,2,142,0)=""
^XMB(3.9,104,2,143,0)="""BLD"",6060,""KRN"",""B"",19,19)"
^XMB(3.9,104,2,144,0)=""
^XMB(3.9,104,2,145,0)="""BLD"",6060,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,104,2,146,0)=""
^XMB(3.9,104,2,147,0)="""BLD"",6060,""KRN"",""B"",101,101)"
^XMB(3.9,104,2,148,0)=""
^XMB(3.9,104,2,149,0)="""BLD"",6060,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,104,2,150,0)=""
^XMB(3.9,104,2,151,0)="""BLD"",6060,""KRN"",""B"",771,771)"
^XMB(3.9,104,2,152,0)=""
^XMB(3.9,104,2,153,0)="""BLD"",6060,""KRN"",""B"",869.2,869.2)"
^XMB(3.9,104,2,154,0)=""
^XMB(3.9,104,2,155,0)="""BLD"",6060,""KRN"",""B"",870,870)"
^XMB(3.9,104,2,156,0)=""
^XMB(3.9,104,2,157,0)="""BLD"",6060,""KRN"",""B"",8994,8994)"
^XMB(3.9,104,2,158,0)=""
^XMB(3.9,104,2,159,0)="""BLD"",6060,""QUES"",0)"
^XMB(3.9,104,2,160,0)="^9.62^^"
^XMB(3.9,104,2,161,0)="""BLD"",6060,""REQB"",0)"
^XMB(3.9,104,2,162,0)="^9.611^1^1"
^XMB(3.9,104,2,163,0)="""BLD"",6060,""REQB"",1,0)"
^XMB(3.9,104,2,164,0)="PSJ*5.0*163^1"
^XMB(3.9,104,2,165,0)="""BLD"",6060,""REQB"",""B"",""PSJ*5.0*163"",1)"
^XMB(3.9,104,2,166,0)=""
^XMB(3.9,104,2,167,0)="""BLD"",6060,""REQG"",0)"
^XMB(3.9,104,2,168,0)="^9.611^^"
^XMB(3.9,104,2,169,0)="""MBREQ"")"
^XMB(3.9,104,2,170,0)="0"
^XMB(3.9,104,2,171,0)="""PKG"",197,-1)"
^XMB(3.9,104,2,172,0)="1^1"
^XMB(3.9,104,2,173,0)="""PKG"",197,0)"
^XMB(3.9,104,2,174,0)="INPATIENT MEDICATIONS^PSJ^UNIT DOSE AND IVS"
^XMB(3.9,104,2,175,0)="""PKG"",197,20,0)"
^XMB(3.9,104,2,176,0)="^9.402P^^"
^XMB(3.9,104,2,177,0)="""PKG"",197,22,0)"
^XMB(3.9,104,2,178,0)="^9.49I^1^1"
^XMB(3.9,104,2,179,0)="""PKG"",197,22,1,0)"
^XMB(3.9,104,2,180,0)="5.0^2971215^2980917^11712"
^XMB(3.9,104,2,181,0)="""PKG"",197,22,1,""PAH"",1,0)"
^XMB(3.9,104,2,182,0)="172^3060803"
^XMB(3.9,104,2,183,0)="""PKG"",197,22,1,""PAH"",1,1,0)"
^XMB(3.9,104,2,184,0)="^^27^27^3060803"
^XMB(3.9,104,2,185,0)="""PKG"",197,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,104,2,186,0)="This patch contains Application Program Interfaces (APIs) that will be "
^XMB(3.9,104,2,187,0)="""PKG"",197,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,104,2,188,0)="used by calling applications that currently do direct global reads or "
^XMB(3.9,104,2,189,0)="""PKG"",197,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,104,2,190,0)="writes to the Inpatient Medications files. Since the IV ROOM file "
^XMB(3.9,104,2,191,0)="""PKG"",197,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,104,2,192,0)="(#59.5) and the NON-VERIFIED ORDERS file (#53.1) are being replaced as part"
^XMB(3.9,104,2,193,0)="""PKG"",197,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,104,2,194,0)="of the Pharmacy Re-engineering project, any direct M-based global reads"
^XMB(3.9,104,2,195,0)="""PKG"",197,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,104,2,196,0)="or writes to this file must be replaced by calling the APIs provided in "
^XMB(3.9,104,2,197,0)="""PKG"",197,22,1,""PAH"",1,1,7,0)"
^XMB(3.9,104,2,198,0)="this patch. When the new data source is in place, the calling applications "
^XMB(3.9,104,2,199,0)="""PKG"",197,22,1,""PAH"",1,1,8,0)"
^XMB(3.9,104,2,200,0)="will not be required to make any changes, because these APIs will be "
^XMB(3.9,104,2,201,0)="""PKG"",197,22,1,""PAH"",1,1,9,0)"
^XMB(3.9,104,2,202,0)="flexible enough to retrieve the requested data from the new data source, "
^XMB(3.9,104,2,203,0)="""PKG"",197,22,1,""PAH"",1,1,10,0)"
^XMB(3.9,104,2,204,0)="when the time comes."
^XMB(3.9,104,2,205,0)="""PKG"",197,22,1,""PAH"",1,1,11,0)"
^XMB(3.9,104,2,206,0)=" "
^XMB(3.9,104,2,207,0)="""PKG"",197,22,1,""PAH"",1,1,12,0)"
^XMB(3.9,104,2,208,0)="This API replaces the following integration agreements:"
^XMB(3.9,104,2,209,0)="""PKG"",197,22,1,""PAH"",1,1,13,0)"
^XMB(3.9,104,2,210,0)=" "
^XMB(3.9,104,2,211,0)="""PKG"",197,22,1,""PAH"",1,1,14,0)"
^XMB(3.9,104,2,212,0)="DBIA #  Affected Package(s)"
^XMB(3.9,104,2,213,0)="""PKG"",197,22,1,""PAH"",1,1,15,0)"
^XMB(3.9,104,2,214,0)="------  -------------------"
^XMB(3.9,104,2,215,0)="""PKG"",197,22,1,""PAH"",1,1,16,0)"
^XMB(3.9,104,2,216,0)="1884    DSS EXTRACTS,DRUG ACCOUNTABILITY"
^XMB(3.9,104,2,217,0)="""PKG"",197,22,1,""PAH"",1,1,17,0)"
^XMB(3.9,104,2,218,0)="2907    TEXT INTEGRATION UTILITIES"
^XMB(3.9,104,2,219,0)="""PKG"",197,22,1,""PAH"",1,1,18,0)"
^XMB(3.9,104,2,220,0)="534     HEALTH SUMMARY"
^XMB(3.9,104,2,221,0)="""PKG"",197,22,1,""PAH"",1,1,19,0)"
^XMB(3.9,104,2,222,0)=" "
^XMB(3.9,104,2,223,0)="""PKG"",197,22,1,""PAH"",1,1,20,0)"
^XMB(3.9,104,2,224,0)="This patch enhances an original INPATIENT MEDICATIONS API call "
^XMB(3.9,104,2,225,0)="""PKG"",197,22,1,""PAH"",1,1,21,0)"
^XMB(3.9,104,2,226,0)="ALL^PSJ59P5. This enhancement allows a double question mark (""??"") to be"
^XMB(3.9,104,2,227,0)="""PKG"",197,22,1,""PAH"",1,1,22,0)"
^XMB(3.9,104,2,228,0)="passed in to the second parameter PSJFT. PSJFT represents the free-text"
^XMB(3.9,104,2,229,0)="""PKG"",197,22,1,""PAH"",1,1,23,0)"
^XMB(3.9,104,2,230,0)="name a user wishes to retrieve from this file. Passing ""??"" to the PSJFT"
^XMB(3.9,104,2,231,0)="""PKG"",197,22,1,""PAH"",1,1,24,0)"
^XMB(3.9,104,2,232,0)="parameter will cause the API to return all entries from the IV ROOM FILE "
^XMB(3.9,104,2,233,0)="""PKG"",197,22,1,""PAH"",1,1,25,0)"
^XMB(3.9,104,2,234,0)="(#59.5). Specifications for this API can be found in the Pharmacy"
^XMB(3.9,104,2,235,0)="""PKG"",197,22,1,""PAH"",1,1,26,0)"
^XMB(3.9,104,2,236,0)="Re-Engineering (PRE) API Manual. Reference to MEDICAL CENTER "
^XMB(3.9,104,2,237,0)="""PKG"",197,22,1,""PAH"",1,1,27,0)"
^XMB(3.9,104,2,238,0)="DIVISION FILE (#40.8) is supported by DBIA 2269."
^XMB(3.9,104,2,239,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,104,2,240,0)="Y"
^XMB(3.9,104,2,241,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,104,2,242,0)="^D REP^XPDH"
^XMB(3.9,104,2,243,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,104,2,244,0)="Shall I write over your |FLAG| File"
^XMB(3.9,104,2,245,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,104,2,246,0)="YES"
^XMB(3.9,104,2,247,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,104,2,248,0)="D XPF1^XPDIQ"
^XMB(3.9,104,2,249,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,104,2,250,0)="Y"
^XMB(3.9,104,2,251,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,104,2,252,0)="^D DTA^XPDH"
^XMB(3.9,104,2,253,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,104,2,254,0)="Want my data |FLAG| yours"
^XMB(3.9,104,2,255,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,104,2,256,0)="YES"
^XMB(3.9,104,2,257,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,104,2,258,0)="D XPF2^XPDIQ"
^XMB(3.9,104,2,259,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,104,2,260,0)="YO"
^XMB(3.9,104,2,261,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,104,2,262,0)="^D INHIBIT^XPDH"
^XMB(3.9,104,2,263,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,104,2,264,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,104,2,265,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,104,2,266,0)="YES"
^XMB(3.9,104,2,267,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,104,2,268,0)="D XPI1^XPDIQ"
^XMB(3.9,104,2,269,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,104,2,270,0)="PO^VA(200,:EM"
^XMB(3.9,104,2,271,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,104,2,272,0)="^D MG^XPDH"
^XMB(3.9,104,2,273,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,104,2,274,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,104,2,275,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,104,2,276,0)=""
^XMB(3.9,104,2,277,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,104,2,278,0)="D XPM1^XPDIQ"
^XMB(3.9,104,2,279,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,104,2,280,0)="Y"
^XMB(3.9,104,2,281,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,104,2,282,0)="^D MENU^XPDH"
^XMB(3.9,104,2,283,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,104,2,284,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,104,2,285,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,104,2,286,0)="YES"
^XMB(3.9,104,2,287,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,104,2,288,0)="D XPO1^XPDIQ"
^XMB(3.9,104,2,289,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,104,2,290,0)="Y"
^XMB(3.9,104,2,291,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,104,2,292,0)="^D OPT^XPDH"
^XMB(3.9,104,2,293,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,104,2,294,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,104,2,295,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,104,2,296,0)="YES"
^XMB(3.9,104,2,297,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,104,2,298,0)="D XPZ1^XPDIQ"
^XMB(3.9,104,2,299,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,104,2,300,0)="Y"
^XMB(3.9,104,2,301,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,104,2,302,0)="^D RTN^XPDH"
^XMB(3.9,104,2,303,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,104,2,304,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,104,2,305,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,104,2,306,0)="NO"
^XMB(3.9,104,2,307,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,104,2,308,0)="D XPZ2^XPDIQ"
^XMB(3.9,104,2,309,0)="""RTN"")"
^XMB(3.9,104,2,310,0)="2"
^XMB(3.9,104,2,311,0)="""RTN"",""PSJ53P1"")"
^XMB(3.9,104,2,312,0)="0^2^B5710218^n/a"
^XMB(3.9,104,2,313,0)="""RTN"",""PSJ53P1"",1,0)"
^XMB(3.9,104,2,314,0)="PSJ53P1 ;BIR/DB - API FOR INFORMATION FROM FILE 53.1; 5 Sep 03"
^XMB(3.9,104,2,315,0)="""RTN"",""PSJ53P1"",2,0)"
^XMB(3.9,104,2,316,0)=" ;;5.0; INPATIENT MEDICATIONS ;**172**;16 DEC 97;Build 13"
^XMB(3.9,104,2,317,0)="""RTN"",""PSJ53P1"",3,0)"
^XMB(3.9,104,2,318,0)="PSJ(PSJIEN,LIST) ;"
^XMB(3.9,104,2,319,0)="""RTN"",""PSJ53P1"",4,0)"
^XMB(3.9,104,2,320,0)=" ;PSJIEN - INTERNAL ENTRY NUMBER [REQUIRED]"
^XMB(3.9,104,2,321,0)="""RTN"",""PSJ53P1"",5,0)"
^XMB(3.9,104,2,322,0)=" ;LIST: Subscript name used in ^TMP global [REQUIRED]"
^XMB(3.9,104,2,323,0)="""RTN"",""PSJ53P1"",6,0)"
^XMB(3.9,104,2,324,0)=" I $G(PSJIEN)="""" Q"
^XMB(3.9,104,2,325,0)="""RTN"",""PSJ53P1"",7,0)"
^XMB(3.9,104,2,326,0)=" I $G(LIST)="""" Q"
^XMB(3.9,104,2,327,0)="""RTN"",""PSJ53P1"",8,0)"
^XMB(3.9,104,2,328,0)=" K ^TMP($J,LIST),DA,^UTILITY(""DIQ1"",$J),DIQ"
^XMB(3.9,104,2,329,0)="""RTN"",""PSJ53P1"",9,0)"
^XMB(3.9,104,2,330,0)=" I $G(PSJIEN)]"""" S DA=PSJIEN I '$D(^PS(53.1,DA,0)) G RET0"
^XMB(3.9,104,2,331,0)="""RTN"",""PSJ53P1"",10,0)"
^XMB(3.9,104,2,332,0)=" K ^UTILITY(""DIQ1"",$J),DIC S DIC=53.1,DR="".01;1;3;7;10;25;26;28;108;109"",DIQ(0)=""IE"" D EN^DIQ1"
^XMB(3.9,104,2,333,0)="""RTN"",""PSJ53P1"",11,0)"
^XMB(3.9,104,2,334,0)=" I '$D(^UTILITY(""DIQ1"",$J)) G RET0"
^XMB(3.9,104,2,335,0)="""RTN"",""PSJ53P1"",12,0)"
^XMB(3.9,104,2,336,0)=" S ^TMP($J,LIST,0)=1,PSJDA=DA"
^XMB(3.9,104,2,337,0)="""RTN"",""PSJ53P1"",13,0)"
^XMB(3.9,104,2,338,0)=" S PSJTXT=^UTILITY(""DIQ1"",$J,53.1,DA,.01,""E"")"
^XMB(3.9,104,2,339,0)="""RTN"",""PSJ53P1"",14,0)"
^XMB(3.9,104,2,340,0)=" F X=.01,1,3,7,10,26,28,25,108,109 S ^TMP($J,LIST,DA,X)=$G(^UTILITY(""DIQ1"",$J,53.1,DA,X,""I""))"
^XMB(3.9,104,2,341,0)="""RTN"",""PSJ53P1"",15,0)"
^XMB(3.9,104,2,342,0)=" F X=1,3,7,10,28,25,108 S ^TMP($J,LIST,DA,X)=$S($G(^UTILITY(""DIQ1"",$J,53.1,DA,X,""E""))'="""":^TMP($J,LIST,DA,X)_""^""_$G(^UTILITY(""DIQ1"",$J,53.1,DA,X,""E"")),1:"""")"
^XMB(3.9,104,2,343,0)="""RTN"",""PSJ53P1"",16,0)"
^XMB(3.9,104,2,344,0)=" S ^TMP($J,LIST,""B"",PSJTXT,DA)="""""
^XMB(3.9,104,2,345,0)="""RTN"",""PSJ53P1"",17,0)"
^XMB(3.9,104,2,346,0)=" S PSJDRG=0 F  S PSJDRG=$O(^PS(53.1,PSJDA,1,PSJDRG)) Q:PSJDRG'>0  D"
^XMB(3.9,104,2,347,0)="""RTN"",""PSJ53P1"",18,0)"
^XMB(3.9,104,2,348,0)=" .S DA=PSJDA,DIC=53.1,DR=2,DR(53.11)="".01;.02"",DIQ(0)=""IE"",DA(53.11)=PSJDRG D EN^DIQ1 Q:'$D(^UTILITY(""DIQ1"",$J))"
^XMB(3.9,104,2,349,0)="""RTN"",""PSJ53P1"",19,0)"
^XMB(3.9,104,2,350,0)=" .S ^TMP($J,LIST,PSJDA,""DDRUG"",PSJDRG,.01)=$G(^UTILITY(""DIQ1"",$J,53.11,PSJDRG,.01,""I""))"
^XMB(3.9,104,2,351,0)="""RTN"",""PSJ53P1"",20,0)"
^XMB(3.9,104,2,352,0)=" .S ^TMP($J,LIST,PSJDA,""DDRUG"",PSJDRG,.02)=$G(^UTILITY(""DIQ1"",$J,53.11,PSJDRG,.02,""I""))"
^XMB(3.9,104,2,353,0)="""RTN"",""PSJ53P1"",21,0)"
^XMB(3.9,104,2,354,0)=" .S ^TMP($J,LIST,PSJDA,""DDRUG"",PSJDRG,.01)=$S($G(^UTILITY(""DIQ1"",$J,53.11,PSJDRG,.01,""E""))'="""":^TMP($J,LIST,PSJDA,""DDRUG"",PSJDRG,.01)_""^""_$G(^UTILITY(""DIQ1"",$J,53.11,PSJDRG,.01,""E"")),1:"""")"
^XMB(3.9,104,2,355,0)="""RTN"",""PSJ53P1"",22,0)"
^XMB(3.9,104,2,356,0)=" .S ^TMP($J,LIST,PSJDA,""DDRUG"",0)=$G(^TMP($J,LIST,PSJDA,""DDRUG"",0))+1"
^XMB(3.9,104,2,357,0)="""RTN"",""PSJ53P1"",23,0)"
^XMB(3.9,104,2,358,0)=" I '$D(^TMP($J,LIST,PSJDA,""DDRUG"",0)) S ^TMP($J,LIST,PSJDA,""DDRUG"",0)=""-1^NO DATA FOUND"""
^XMB(3.9,104,2,359,0)="""RTN"",""PSJ53P1"",24,0)"
^XMB(3.9,104,2,360,0)=" K PSJIEN,DA,X,PSJTXT,DR,DIC,^UTILITY(""DIQ1"",$J),DIQ,PSJDA,PSJDRG"
^XMB(3.9,104,2,361,0)="""RTN"",""PSJ53P1"",25,0)"
^XMB(3.9,104,2,362,0)=" Q"
^XMB(3.9,104,2,363,0)="""RTN"",""PSJ53P1"",26,0)"
^XMB(3.9,104,2,364,0)="RET0 ;return no data"
^XMB(3.9,104,2,365,0)="""RTN"",""PSJ53P1"",27,0)"
^XMB(3.9,104,2,366,0)=" K PSJIEN,PSJTXT S ^TMP($J,LIST,0)=""-1^NO DATA FOUND"" Q"
^XMB(3.9,104,2,367,0)="""RTN"",""PSJ59P5"")"
^XMB(3.9,104,2,368,0)="0^1^B11701444^B5365908"
^XMB(3.9,104,2,369,0)="""RTN"",""PSJ59P5"",1,0)"
^XMB(3.9,104,2,370,0)="PSJ59P5 ;BIR/LDT,TSS - API FOR INFORMATION FROM FILE 59.5; 5 Sep 03"
^XMB(3.9,104,2,371,0)="""RTN"",""PSJ59P5"",2,0)"
^XMB(3.9,104,2,372,0)=" ;;5.0; INPATIENT MEDICATIONS ;**163,172**;16 DEC 97;Build 13"
^XMB(3.9,104,2,373,0)="""RTN"",""PSJ59P5"",3,0)"
^XMB(3.9,104,2,374,0)=" ;"
^XMB(3.9,104,2,375,0)="""RTN"",""PSJ59P5"",4,0)"
^XMB(3.9,104,2,376,0)=" ;Reference to ^DG(40.8 - DBIA 2269"
^XMB(3.9,104,2,377,0)="""RTN"",""PSJ59P5"",5,0)"
^XMB(3.9,104,2,378,0)=" ;"
^XMB(3.9,104,2,379,0)="""RTN"",""PSJ59P5"",6,0)"
^XMB(3.9,104,2,380,0)="ALL(PSJIEN,PSJFT,LIST) ;"
^XMB(3.9,104,2,381,0)="""RTN"",""PSJ59P5"",7,0)"
^XMB(3.9,104,2,382,0)=" ;PSJIEN - IEN of entry in 59.5."
^XMB(3.9,104,2,383,0)="""RTN"",""PSJ59P5"",8,0)"
^XMB(3.9,104,2,384,0)=" ;PSJFT - Free Text name in 59.5 or ""??"" for all names"
^XMB(3.9,104,2,385,0)="""RTN"",""PSJ59P5"",9,0)"
^XMB(3.9,104,2,386,0)=" ;LIST - Subscript of ^TMP array in the form ^TMP($J,LIST,Field Number where Field Number is the"
^XMB(3.9,104,2,387,0)="""RTN"",""PSJ59P5"",10,0)"
^XMB(3.9,104,2,388,0)=" ;       Field Number of the data piece being returned."
^XMB(3.9,104,2,389,0)="""RTN"",""PSJ59P5"",11,0)"
^XMB(3.9,104,2,390,0)=" ;Returns NAME field (#.01), DIVISION field (#.02), and INACTIVATION DATE field (#19) of IV ROOM file (#59.5)."
^XMB(3.9,104,2,391,0)="""RTN"",""PSJ59P5"",12,0)"
^XMB(3.9,104,2,392,0)=" N DIERR,ZZERR,PSJ59P5,SCR,PSJ,PSJIEN2"
^XMB(3.9,104,2,393,0)="""RTN"",""PSJ59P5"",13,0)"
^XMB(3.9,104,2,394,0)=" I $G(LIST)']"""" Q"
^XMB(3.9,104,2,395,0)="""RTN"",""PSJ59P5"",14,0)"
^XMB(3.9,104,2,396,0)=" K ^TMP($J,LIST)"
^XMB(3.9,104,2,397,0)="""RTN"",""PSJ59P5"",15,0)"
^XMB(3.9,104,2,398,0)=" I +$G(PSJIEN)'>0,($G(PSJFT)']"""") S ^TMP($J,LIST,0)=-1_""^""_""NO DATA FOUND"" Q"
^XMB(3.9,104,2,399,0)="""RTN"",""PSJ59P5"",16,0)"
^XMB(3.9,104,2,400,0)=" I $G(PSJIEN)]"""",+$G(PSJIEN)'>0 S ^TMP($J,LIST,0)=-1_""^""_""NO DATA FOUND"" Q"
^XMB(3.9,104,2,401,0)="""RTN"",""PSJ59P5"",17,0)"
^XMB(3.9,104,2,402,0)=" I +$G(PSJIEN)>0 S PSJIEN2=$$FIND1^DIC(59.5,"""",""A"",""`""_PSJIEN,,,"""") D"
^XMB(3.9,104,2,403,0)="""RTN"",""PSJ59P5"",18,0)"
^XMB(3.9,104,2,404,0)=" .I +PSJIEN2'>0 S ^TMP($J,LIST,0)=-1_""^""_""NO DATA FOUND"" Q"
^XMB(3.9,104,2,405,0)="""RTN"",""PSJ59P5"",19,0)"
^XMB(3.9,104,2,406,0)=" .S ^TMP($J,LIST,0)=1"
^XMB(3.9,104,2,407,0)="""RTN"",""PSJ59P5"",20,0)"
^XMB(3.9,104,2,408,0)=" .D GETS^DIQ(59.5,+PSJIEN2,"".01;.02;19"",""IE"",""PSJ59P5"") S PSJ(1)=0"
^XMB(3.9,104,2,409,0)="""RTN"",""PSJ59P5"",21,0)"
^XMB(3.9,104,2,410,0)=" .F  S PSJ(1)=$O(PSJ59P5(59.5,PSJ(1))) Q:'PSJ(1)  D SETALL"
^XMB(3.9,104,2,411,0)="""RTN"",""PSJ59P5"",22,0)"
^XMB(3.9,104,2,412,0)=" I +$G(PSJIEN)'>0,$G(PSJFT)=""??"" D  Q"
^XMB(3.9,104,2,413,0)="""RTN"",""PSJ59P5"",23,0)"
^XMB(3.9,104,2,414,0)=" .D LOOPDIR"
^XMB(3.9,104,2,415,0)="""RTN"",""PSJ59P5"",24,0)"
^XMB(3.9,104,2,416,0)=" I +$G(PSJIEN)'>0,$G(PSJFT)]"""" D"
^XMB(3.9,104,2,417,0)="""RTN"",""PSJ59P5"",25,0)"
^XMB(3.9,104,2,418,0)=" .D FIND^DIC(59.5,,""@;.01;"",""QP"",PSJFT,,""B"",,,"""")"
^XMB(3.9,104,2,419,0)="""RTN"",""PSJ59P5"",26,0)"
^XMB(3.9,104,2,420,0)=" .I +$G(^TMP(""DILIST"",$J,0))=0 S ^TMP($J,LIST,0)=-1_""^""_""NO DATA FOUND"" Q"
^XMB(3.9,104,2,421,0)="""RTN"",""PSJ59P5"",27,0)"
^XMB(3.9,104,2,422,0)=" .I +^TMP(""DILIST"",$J,0)>0 S ^TMP($J,LIST,0)=+^TMP(""DILIST"",$J,0) N PSJXLP S PSJXLP=0 F  S PSJXLP=$O(^TMP(""DILIST"",$J,PSJXLP)) Q:'PSJXLP  D"
^XMB(3.9,104,2,423,0)="""RTN"",""PSJ59P5"",28,0)"
^XMB(3.9,104,2,424,0)=" ..S PSJIEN=+^TMP(""DILIST"",$J,PSJXLP,0) K PSJ59P5 D GETS^DIQ(59.5,+PSJIEN,"".01;.02;19"",""IE"",""PSJ59P5"") S PSJ(1)=0"
^XMB(3.9,104,2,425,0)="""RTN"",""PSJ59P5"",29,0)"
^XMB(3.9,104,2,426,0)=" ..F  S PSJ(1)=$O(PSJ59P5(59.5,PSJ(1))) Q:'PSJ(1)  D SETALL"
^XMB(3.9,104,2,427,0)="""RTN"",""PSJ59P5"",30,0)"
^XMB(3.9,104,2,428,0)=" K ^TMP(""DILIST"",$J)"
^XMB(3.9,104,2,429,0)="""RTN"",""PSJ59P5"",31,0)"
^XMB(3.9,104,2,430,0)=" Q"
^XMB(3.9,104,2,431,0)="""RTN"",""PSJ59P5"",32,0)"
^XMB(3.9,104,2,432,0)=" ;"
^XMB(3.9,104,2,433,0)="""RTN"",""PSJ59P5"",33,0)"
^XMB(3.9,104,2,434,0)="LOOPDIR ;LOOP FOR A DIRECT READ."
^XMB(3.9,104,2,435,0)="""RTN"",""PSJ59P5"",34,0)"
^XMB(3.9,104,2,436,0)=" N PSJCNT S PSJCNT=0"
^XMB(3.9,104,2,437,0)="""RTN"",""PSJ59P5"",35,0)"
^XMB(3.9,104,2,438,0)=" S PSJIEN2=0"
^XMB(3.9,104,2,439,0)="""RTN"",""PSJ59P5"",36,0)"
^XMB(3.9,104,2,440,0)=" F  S PSJIEN2=$O(^PS(59.5,PSJIEN2)) Q:'PSJIEN2  D"
^XMB(3.9,104,2,441,0)="""RTN"",""PSJ59P5"",37,0)"
^XMB(3.9,104,2,442,0)=" .D SETDIR"
^XMB(3.9,104,2,443,0)="""RTN"",""PSJ59P5"",38,0)"
^XMB(3.9,104,2,444,0)=" D COUNT"
^XMB(3.9,104,2,445,0)="""RTN"",""PSJ59P5"",39,0)"
^XMB(3.9,104,2,446,0)=" Q"
^XMB(3.9,104,2,447,0)="""RTN"",""PSJ59P5"",40,0)"
^XMB(3.9,104,2,448,0)=" ;"
^XMB(3.9,104,2,449,0)="""RTN"",""PSJ59P5"",41,0)"
^XMB(3.9,104,2,450,0)="SETALL ;"
^XMB(3.9,104,2,451,0)="""RTN"",""PSJ59P5"",42,0)"
^XMB(3.9,104,2,452,0)=" S ^TMP($J,LIST,+PSJ(1),.01)=$G(PSJ59P5(59.5,PSJ(1),.01,""I""))"
^XMB(3.9,104,2,453,0)="""RTN"",""PSJ59P5"",43,0)"
^XMB(3.9,104,2,454,0)=" S ^TMP($J,LIST,""B"",$G(PSJ59P5(59.5,PSJ(1),.01,""I"")),+PSJ(1))="""""
^XMB(3.9,104,2,455,0)="""RTN"",""PSJ59P5"",44,0)"
^XMB(3.9,104,2,456,0)=" S ^TMP($J,LIST,+PSJ(1),.02)=$S($G(PSJ59P5(59.5,PSJ(1),.02,""I""))="""":"""",1:PSJ59P5(59.5,PSJ(1),.02,""I"")_""^""_PSJ59P5(59.5,PSJ(1),.02,""E""))"
^XMB(3.9,104,2,457,0)="""RTN"",""PSJ59P5"",45,0)"
^XMB(3.9,104,2,458,0)=" S ^TMP($J,LIST,+PSJ(1),19)=$S($G(PSJ59P5(59.5,PSJ(1),19,""I""))="""":"""",1:PSJ59P5(59.5,PSJ(1),19,""I"")_""^""_PSJ59P5(59.5,PSJ(1),19,""E""))"
^XMB(3.9,104,2,459,0)="""RTN"",""PSJ59P5"",46,0)"
^XMB(3.9,104,2,460,0)=" Q"
^XMB(3.9,104,2,461,0)="""RTN"",""PSJ59P5"",47,0)"
^XMB(3.9,104,2,462,0)=" ;"
^XMB(3.9,104,2,463,0)="""RTN"",""PSJ59P5"",48,0)"
^XMB(3.9,104,2,464,0)="SETDIR ;"
^XMB(3.9,104,2,465,0)="""RTN"",""PSJ59P5"",49,0)"
^XMB(3.9,104,2,466,0)=" S ^TMP($J,LIST,+PSJIEN2,.01)=$P($G(^PS(59.5,PSJIEN2,0)),U,1)"
^XMB(3.9,104,2,467,0)="""RTN"",""PSJ59P5"",50,0)"
^XMB(3.9,104,2,468,0)=" S ^TMP($J,LIST,""B"",$P($G(^PS(59.5,PSJIEN2,0)),U,1),+PSJIEN2)="""""
^XMB(3.9,104,2,469,0)="""RTN"",""PSJ59P5"",51,0)"
^XMB(3.9,104,2,470,0)=" S ^TMP($J,LIST,+PSJIEN2,.02)=$S($P($G(^PS(59.5,PSJIEN2,0)),U,4)="""":"""",1:$P($G(^PS(59.5,PSJIEN2,0)),U,4)_""^""_$P($G(^DG(40.8,$P($G(^PS(59.5,PSJIEN2,0)),U,4),0)),U,1))"
^XMB(3.9,104,2,471,0)="""RTN"",""PSJ59P5"",52,0)"
^XMB(3.9,104,2,472,0)=" S ^TMP($J,LIST,+PSJIEN2,19)=$S($P($G(^PS(59.5,PSJIEN2,""I"")),U,1)="""":"""",1:$P($G(^PS(59.5,PSJIEN2,""I"")),U,1)_""^""_$$GETDATE($P($G(^PS(59.5,PSJIEN2,""I"")),U,1)))"
^XMB(3.9,104,2,473,0)="""RTN"",""PSJ59P5"",53,0)"
^XMB(3.9,104,2,474,0)=" S PSJCNT=PSJCNT+1"
^XMB(3.9,104,2,475,0)="""RTN"",""PSJ59P5"",54,0)"
^XMB(3.9,104,2,476,0)=" Q"
^XMB(3.9,104,2,477,0)="""RTN"",""PSJ59P5"",55,0)"
^XMB(3.9,104,2,478,0)=" ;"
^XMB(3.9,104,2,479,0)="""RTN"",""PSJ59P5"",56,0)"
^XMB(3.9,104,2,480,0)="GETDATE(PSJDATE) ;RETURNS FORMATTED DATE"
^XMB(3.9,104,2,481,0)="""RTN"",""PSJ59P5"",57,0)"
^XMB(3.9,104,2,482,0)=" N Y S Y=PSJDATE X ^DD(""DD"")"
^XMB(3.9,104,2,483,0)="""RTN"",""PSJ59P5"",58,0)"
^XMB(3.9,104,2,484,0)=" Q $G(Y)"
^XMB(3.9,104,2,485,0)="""RTN"",""PSJ59P5"",59,0)"
^XMB(3.9,104,2,486,0)=" ;"
^XMB(3.9,104,2,487,0)="""RTN"",""PSJ59P5"",60,0)"
^XMB(3.9,104,2,488,0)="WRT(PSJDFN,PSJVAL,LIST) ;Sets Division field"
^XMB(3.9,104,2,489,0)="""RTN"",""PSJ59P5"",61,0)"
^XMB(3.9,104,2,490,0)=" ;PSJDFN = IV ROOM (REQUIRED)"
^XMB(3.9,104,2,491,0)="""RTN"",""PSJ59P5"",62,0)"
^XMB(3.9,104,2,492,0)=" ;PSJVAL = Division (REQUIRED)"
^XMB(3.9,104,2,493,0)="""RTN"",""PSJ59P5"",63,0)"
^XMB(3.9,104,2,494,0)=" ;LIST: Subscript name used in ^TMP global [REQUIRED]"
^XMB(3.9,104,2,495,0)="""RTN"",""PSJ59P5"",64,0)"
^XMB(3.9,104,2,496,0)=" I $G(PSJDFN)'>0 Q"
^XMB(3.9,104,2,497,0)="""RTN"",""PSJ59P5"",65,0)"
^XMB(3.9,104,2,498,0)=" I $G(PSJVAL)="""" Q"
^XMB(3.9,104,2,499,0)="""RTN"",""PSJ59P5"",66,0)"
^XMB(3.9,104,2,500,0)=" I $G(LIST)="""" Q"
^XMB(3.9,104,2,501,0)="""RTN"",""PSJ59P5"",67,0)"
^XMB(3.9,104,2,502,0)=" I '$D(^PS(59.5,PSJDFN)) S ^TMP($J,LIST,0)=0 Q"
^XMB(3.9,104,2,503,0)="""RTN"",""PSJ59P5"",68,0)"
^XMB(3.9,104,2,504,0)=" I $G(PSJVAL)'>0 S ^TMP($J,LIST,0)=0 Q"
^XMB(3.9,104,2,505,0)="""RTN"",""PSJ59P5"",69,0)"
^XMB(3.9,104,2,506,0)=" I '$D(^DG(40.8,PSJVAL,0)) S ^TMP($J,LIST,0)=0 Q"
^XMB(3.9,104,2,507,0)="""RTN"",""PSJ59P5"",70,0)"
^XMB(3.9,104,2,508,0)=" S $P(^PS(59.5,PSJDFN,0),""^"",4)=PSJVAL,^TMP($J,LIST,0)=1 K PSJVAL,PSJDFN Q"
^XMB(3.9,104,2,509,0)="""RTN"",""PSJ59P5"",71,0)"
^XMB(3.9,104,2,510,0)="COUNT ;"
^XMB(3.9,104,2,511,0)="""RTN"",""PSJ59P5"",72,0)"
^XMB(3.9,104,2,512,0)=" I PSJCNT>0 S ^TMP($J,LIST,0)=PSJCNT"
^XMB(3.9,104,2,513,0)="""RTN"",""PSJ59P5"",73,0)"
^XMB(3.9,104,2,514,0)=" ELSE  S ^TMP($J,LIST,0)=-1_""^""_""NO DATA FOUND"""
^XMB(3.9,104,2,515,0)="""RTN"",""PSJ59P5"",74,0)"
^XMB(3.9,104,2,516,0)=" Q"
^XMB(3.9,104,2,517,0)="""RTN"",""PSJ59P5"",75,0)"
^XMB(3.9,104,2,518,0)=" ;"
^XMB(3.9,104,2,519,0)="""VER"")"
^XMB(3.9,104,2,520,0)="8.0^22.0"
^XMB(3.9,104,2,521,0)="""BLD"",6060,6)"
^XMB(3.9,104,2,522,0)="^155"
^XMB(3.9,104,2,523,0)="$END KID PSJ*5.0*172"
^XMB(3.9,104,6,0)="^3.911A^2^2"
^XMB(3.9,104,6,1,0)="POSTMASTER"
^XMB(3.9,104,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,104,6,"B","POSTMASTER",1)=""
^XMB(3.9,104,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,105,0)="PSN-4_SEQ-106_PAT-116.KID^.5^3061008.015741^^^^K"
^XMB(3.9,105,.6)="3061008"
^XMB(3.9,105,1,0)="^3.91A^2^2"
^XMB(3.9,105,1,1,0)=".5^0^3061008.015741^^^^^^^3061008.015741"
^XMB(3.9,105,1,2,0)="1^0^3061008.022303^^^^^^^3061008.022303"
^XMB(3.9,105,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,105,1,"C",.5,1)=""
^XMB(3.9,105,1,"C",1,2)=""
^XMB(3.9,105,2,0)="^^229^229^3061008"
^XMB(3.9,105,2,1,0)="$TXT Released PSN*4*116 SEQ #106"
^XMB(3.9,105,2,2,0)="Extracted from mail message"
^XMB(3.9,105,2,3,0)="$END TXT"
^XMB(3.9,105,2,4,0)="$KID PSN*4.0*116"
^XMB(3.9,105,2,5,0)="**INSTALL NAME**"
^XMB(3.9,105,2,6,0)="PSN*4.0*116"
^XMB(3.9,105,2,7,0)="""BLD"",6665,0)"
^XMB(3.9,105,2,8,0)="PSN*4.0*116^NATIONAL DRUG FILE^0^3060317^y"
^XMB(3.9,105,2,9,0)="""BLD"",6665,1,0)"
^XMB(3.9,105,2,10,0)="^^1^1^3060316^"
^XMB(3.9,105,2,11,0)="""BLD"",6665,1,1,0)"
^XMB(3.9,105,2,12,0)="DRUG INTERACTION REPORT NOT SHOWING INACTIVATION DATE"
^XMB(3.9,105,2,13,0)="""BLD"",6665,4,0)"
^XMB(3.9,105,2,14,0)="^9.64PA^^"
^XMB(3.9,105,2,15,0)="""BLD"",6665,""KRN"",0)"
^XMB(3.9,105,2,16,0)="^9.67PA^8989.52^19"
^XMB(3.9,105,2,17,0)="""BLD"",6665,""KRN"",.4,0)"
^XMB(3.9,105,2,18,0)=".4"
^XMB(3.9,105,2,19,0)="""BLD"",6665,""KRN"",.4,""NM"",0)"
^XMB(3.9,105,2,20,0)="^9.68A^1^1"
^XMB(3.9,105,2,21,0)="""BLD"",6665,""KRN"",.4,""NM"",1,0)"
^XMB(3.9,105,2,22,0)="PSNACTION    FILE #56^56^0"
^XMB(3.9,105,2,23,0)="""BLD"",6665,""KRN"",.4,""NM"",""B"",""PSNACTION    FILE #56"",1)"
^XMB(3.9,105,2,24,0)=""
^XMB(3.9,105,2,25,0)="""BLD"",6665,""KRN"",.401,0)"
^XMB(3.9,105,2,26,0)=".401"
^XMB(3.9,105,2,27,0)="""BLD"",6665,""KRN"",.402,0)"
^XMB(3.9,105,2,28,0)=".402"
^XMB(3.9,105,2,29,0)="""BLD"",6665,""KRN"",.403,0)"
^XMB(3.9,105,2,30,0)=".403"
^XMB(3.9,105,2,31,0)="""BLD"",6665,""KRN"",.5,0)"
^XMB(3.9,105,2,32,0)=".5"
^XMB(3.9,105,2,33,0)="""BLD"",6665,""KRN"",.84,0)"
^XMB(3.9,105,2,34,0)=".84"
^XMB(3.9,105,2,35,0)="""BLD"",6665,""KRN"",3.6,0)"
^XMB(3.9,105,2,36,0)="3.6"
^XMB(3.9,105,2,37,0)="""BLD"",6665,""KRN"",3.8,0)"
^XMB(3.9,105,2,38,0)="3.8"
^XMB(3.9,105,2,39,0)="""BLD"",6665,""KRN"",9.2,0)"
^XMB(3.9,105,2,40,0)="9.2"
^XMB(3.9,105,2,41,0)="""BLD"",6665,""KRN"",9.8,0)"
^XMB(3.9,105,2,42,0)="9.8"
^XMB(3.9,105,2,43,0)="""BLD"",6665,""KRN"",9.8,""NM"",0)"
^XMB(3.9,105,2,44,0)="^9.68A^1^1"
^XMB(3.9,105,2,45,0)="""BLD"",6665,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,105,2,46,0)="PSNTER^^0^B2417817"
^XMB(3.9,105,2,47,0)="""BLD"",6665,""KRN"",9.8,""NM"",""B"",""PSNTER"",1)"
^XMB(3.9,105,2,48,0)=""
^XMB(3.9,105,2,49,0)="""BLD"",6665,""KRN"",19,0)"
^XMB(3.9,105,2,50,0)="19"
^XMB(3.9,105,2,51,0)="""BLD"",6665,""KRN"",19.1,0)"
^XMB(3.9,105,2,52,0)="19.1"
^XMB(3.9,105,2,53,0)="""BLD"",6665,""KRN"",101,0)"
^XMB(3.9,105,2,54,0)="101"
^XMB(3.9,105,2,55,0)="""BLD"",6665,""KRN"",409.61,0)"
^XMB(3.9,105,2,56,0)="409.61"
^XMB(3.9,105,2,57,0)="""BLD"",6665,""KRN"",771,0)"
^XMB(3.9,105,2,58,0)="771"
^XMB(3.9,105,2,59,0)="""BLD"",6665,""KRN"",870,0)"
^XMB(3.9,105,2,60,0)="870"
^XMB(3.9,105,2,61,0)="""BLD"",6665,""KRN"",8989.51,0)"
^XMB(3.9,105,2,62,0)="8989.51"
^XMB(3.9,105,2,63,0)="""BLD"",6665,""KRN"",8989.52,0)"
^XMB(3.9,105,2,64,0)="8989.52"
^XMB(3.9,105,2,65,0)="""BLD"",6665,""KRN"",8994,0)"
^XMB(3.9,105,2,66,0)="8994"
^XMB(3.9,105,2,67,0)="""BLD"",6665,""KRN"",""B"",.4,.4)"
^XMB(3.9,105,2,68,0)=""
^XMB(3.9,105,2,69,0)="""BLD"",6665,""KRN"",""B"",.401,.401)"
^XMB(3.9,105,2,70,0)=""
^XMB(3.9,105,2,71,0)="""BLD"",6665,""KRN"",""B"",.402,.402)"
^XMB(3.9,105,2,72,0)=""
^XMB(3.9,105,2,73,0)="""BLD"",6665,""KRN"",""B"",.403,.403)"
^XMB(3.9,105,2,74,0)=""
^XMB(3.9,105,2,75,0)="""BLD"",6665,""KRN"",""B"",.5,.5)"
^XMB(3.9,105,2,76,0)=""
^XMB(3.9,105,2,77,0)="""BLD"",6665,""KRN"",""B"",.84,.84)"
^XMB(3.9,105,2,78,0)=""
^XMB(3.9,105,2,79,0)="""BLD"",6665,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,105,2,80,0)=""
^XMB(3.9,105,2,81,0)="""BLD"",6665,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,105,2,82,0)=""
^XMB(3.9,105,2,83,0)="""BLD"",6665,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,105,2,84,0)=""
^XMB(3.9,105,2,85,0)="""BLD"",6665,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,105,2,86,0)=""
^XMB(3.9,105,2,87,0)="""BLD"",6665,""KRN"",""B"",19,19)"
^XMB(3.9,105,2,88,0)=""
^XMB(3.9,105,2,89,0)="""BLD"",6665,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,105,2,90,0)=""
^XMB(3.9,105,2,91,0)="""BLD"",6665,""KRN"",""B"",101,101)"
^XMB(3.9,105,2,92,0)=""
^XMB(3.9,105,2,93,0)="""BLD"",6665,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,105,2,94,0)=""
^XMB(3.9,105,2,95,0)="""BLD"",6665,""KRN"",""B"",771,771)"
^XMB(3.9,105,2,96,0)=""
^XMB(3.9,105,2,97,0)="""BLD"",6665,""KRN"",""B"",870,870)"
^XMB(3.9,105,2,98,0)=""
^XMB(3.9,105,2,99,0)="""BLD"",6665,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,105,2,100,0)=""
^XMB(3.9,105,2,101,0)="""BLD"",6665,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,105,2,102,0)=""
^XMB(3.9,105,2,103,0)="""BLD"",6665,""KRN"",""B"",8994,8994)"
^XMB(3.9,105,2,104,0)=""
^XMB(3.9,105,2,105,0)="""BLD"",6665,""QUES"",0)"
^XMB(3.9,105,2,106,0)="^9.62^^"
^XMB(3.9,105,2,107,0)="""BLD"",6665,""REQB"",0)"
^XMB(3.9,105,2,108,0)="^9.611^^"
^XMB(3.9,105,2,109,0)="""KRN"",.4,2097,-1)"
^XMB(3.9,105,2,110,0)="0^1"
^XMB(3.9,105,2,111,0)="""KRN"",.4,2097,0)"
^XMB(3.9,105,2,112,0)="PSNACTION^3060315.0935^@^56^^@^3060317"
^XMB(3.9,105,2,113,0)="""KRN"",.4,2097,""F"",1)"
^XMB(3.9,105,2,114,0)=".01~3;C52~4;C67~7;79~"
^XMB(3.9,105,2,115,0)="""KRN"",.4,2097,""H"")"
^XMB(3.9,105,2,116,0)="DRUG INTERACTION LIST"
^XMB(3.9,105,2,117,0)="""MBREQ"")"
^XMB(3.9,105,2,118,0)="0"
^XMB(3.9,105,2,119,0)="""ORD"",5,.4)"
^XMB(3.9,105,2,120,0)=".4;5;;;EDEOUT^DIFROMSO(.4,DA,"""",XPDA);FPRE^DIFROMSI(.4,"""",XPDA);EPRE^DIFROMSI(.4,DA,$E(""N"",$G(XPDNEW)),XPDA,"""",OLDA);;EPOST^DIFROMSI(.4,DA,"""",XPDA);DEL^DIFROMSK(.4,"""",%)"
^XMB(3.9,105,2,121,0)="""ORD"",5,.4,0)"
^XMB(3.9,105,2,122,0)="PRINT TEMPLATE"
^XMB(3.9,105,2,123,0)="""PKG"",479,-1)"
^XMB(3.9,105,2,124,0)="1^1"
^XMB(3.9,105,2,125,0)="""PKG"",479,0)"
^XMB(3.9,105,2,126,0)="NATIONAL DRUG FILE^PSN^This is the National Drug File Package V 3.16"
^XMB(3.9,105,2,127,0)="""PKG"",479,20,0)"
^XMB(3.9,105,2,128,0)="^9.402P^^"
^XMB(3.9,105,2,129,0)="""PKG"",479,22,0)"
^XMB(3.9,105,2,130,0)="^9.49I^1^1"
^XMB(3.9,105,2,131,0)="""PKG"",479,22,1,0)"
^XMB(3.9,105,2,132,0)="4.0"
^XMB(3.9,105,2,133,0)="""PKG"",479,22,1,""PAH"",1,0)"
^XMB(3.9,105,2,134,0)="116^3060317"
^XMB(3.9,105,2,135,0)="""PKG"",479,22,1,""PAH"",1,1,0)"
^XMB(3.9,105,2,136,0)="^^1^1^3060317"
^XMB(3.9,105,2,137,0)="""PKG"",479,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,105,2,138,0)="DRUG INTERACTION REPORT NOT SHOWING INACTIVATION DATE"
^XMB(3.9,105,2,139,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,105,2,140,0)="Y"
^XMB(3.9,105,2,141,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,105,2,142,0)="^D REP^XPDH"
^XMB(3.9,105,2,143,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,105,2,144,0)="Shall I write over your |FLAG| File"
^XMB(3.9,105,2,145,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,105,2,146,0)="YES"
^XMB(3.9,105,2,147,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,105,2,148,0)="D XPF1^XPDIQ"
^XMB(3.9,105,2,149,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,105,2,150,0)="Y"
^XMB(3.9,105,2,151,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,105,2,152,0)="^D DTA^XPDH"
^XMB(3.9,105,2,153,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,105,2,154,0)="Want my data |FLAG| yours"
^XMB(3.9,105,2,155,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,105,2,156,0)="YES"
^XMB(3.9,105,2,157,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,105,2,158,0)="D XPF2^XPDIQ"
^XMB(3.9,105,2,159,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,105,2,160,0)="YO"
^XMB(3.9,105,2,161,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,105,2,162,0)="^D INHIBIT^XPDH"
^XMB(3.9,105,2,163,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,105,2,164,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,105,2,165,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,105,2,166,0)="YES"
^XMB(3.9,105,2,167,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,105,2,168,0)="D XPI1^XPDIQ"
^XMB(3.9,105,2,169,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,105,2,170,0)="PO^VA(200,:EM"
^XMB(3.9,105,2,171,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,105,2,172,0)="^D MG^XPDH"
^XMB(3.9,105,2,173,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,105,2,174,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,105,2,175,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,105,2,176,0)=""
^XMB(3.9,105,2,177,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,105,2,178,0)="D XPM1^XPDIQ"
^XMB(3.9,105,2,179,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,105,2,180,0)="Y"
^XMB(3.9,105,2,181,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,105,2,182,0)="^D MENU^XPDH"
^XMB(3.9,105,2,183,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,105,2,184,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,105,2,185,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,105,2,186,0)="YES"
^XMB(3.9,105,2,187,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,105,2,188,0)="D XPO1^XPDIQ"
^XMB(3.9,105,2,189,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,105,2,190,0)="Y"
^XMB(3.9,105,2,191,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,105,2,192,0)="^D OPT^XPDH"
^XMB(3.9,105,2,193,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,105,2,194,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,105,2,195,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,105,2,196,0)="YES"
^XMB(3.9,105,2,197,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,105,2,198,0)="D XPZ1^XPDIQ"
^XMB(3.9,105,2,199,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,105,2,200,0)="Y"
^XMB(3.9,105,2,201,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,105,2,202,0)="^D RTN^XPDH"
^XMB(3.9,105,2,203,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,105,2,204,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,105,2,205,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,105,2,206,0)="NO"
^XMB(3.9,105,2,207,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,105,2,208,0)="D XPZ2^XPDIQ"
^XMB(3.9,105,2,209,0)="""RTN"")"
^XMB(3.9,105,2,210,0)="1"
^XMB(3.9,105,2,211,0)="""RTN"",""PSNTER"")"
^XMB(3.9,105,2,212,0)="0^1^B2417817^B1772187"
^XMB(3.9,105,2,213,0)="""RTN"",""PSNTER"",1,0)"
^XMB(3.9,105,2,214,0)="PSNTER ;BIR/WRT-REPORT TO DISPLAY INFO IN DRUG INTERACTION FILE ;09/11/98 13:21"
^XMB(3.9,105,2,215,0)="""RTN"",""PSNTER"",2,0)"
^XMB(3.9,105,2,216,0)=" ;;4.0; NATIONAL DRUG FILE;**116**;30 Oct 98"
^XMB(3.9,105,2,217,0)="""RTN"",""PSNTER"",3,0)"
^XMB(3.9,105,2,218,0)=" ;PSN*4*116;Added Inactivation Date to the PSNACTION Print template and comment that the report will now print as 132 columns"
^XMB(3.9,105,2,219,0)="""RTN"",""PSNTER"",4,0)"
^XMB(3.9,105,2,220,0)=" W !!,""This report gives you a printed copy of the Drug Interaction name, Severity,"",!,""and whether it was entered Nationally.  This report requires 132 columns."",!,""You may queue the report to print, if you wish."",!"
^XMB(3.9,105,2,221,0)="""RTN"",""PSNTER"",5,0)"
^XMB(3.9,105,2,222,0)=" S DIC=""^PS(56,"",L=0,FLDS=""[PSNACTION]"",BY=""NAME"",DHD=""DRUG INTERACTION LIST"" D EN1^DIP"
^XMB(3.9,105,2,223,0)="""RTN"",""PSNTER"",6,0)"
^XMB(3.9,105,2,224,0)=" Q"
^XMB(3.9,105,2,225,0)="""VER"")"
^XMB(3.9,105,2,226,0)="8.0^22.0"
^XMB(3.9,105,2,227,0)="""BLD"",6665,6)"
^XMB(3.9,105,2,228,0)="^106"
^XMB(3.9,105,2,229,0)="$END KID PSN*4.0*116"
^XMB(3.9,105,6,0)="^3.911A^2^2"
^XMB(3.9,105,6,1,0)="POSTMASTER"
^XMB(3.9,105,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,105,6,"B","POSTMASTER",1)=""
^XMB(3.9,105,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,106,0)="PSN-4_SEQ-107_PAT-103.KID^.5^3061008.015741^^^^K"
^XMB(3.9,106,.6)="3061008"
^XMB(3.9,106,1,0)="^3.91A^2^2"
^XMB(3.9,106,1,1,0)=".5^0^3061008.015741^^^^^^^3061008.015741"
^XMB(3.9,106,1,2,0)="1^0^3061008.022306^^^^^^^3061008.022306"
^XMB(3.9,106,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,106,1,"C",.5,1)=""
^XMB(3.9,106,1,"C",1,2)=""
^XMB(3.9,106,2,0)="^^545^545^3061008"
^XMB(3.9,106,2,1,0)="$TXT Released PSN*4*103 SEQ #107"
^XMB(3.9,106,2,2,0)="Extracted from mail message"
^XMB(3.9,106,2,3,0)="$END TXT"
^XMB(3.9,106,2,4,0)="$KID PSN*4.0*103"
^XMB(3.9,106,2,5,0)="**INSTALL NAME**"
^XMB(3.9,106,2,6,0)="PSN*4.0*103"
^XMB(3.9,106,2,7,0)="""BLD"",5341,0)"
^XMB(3.9,106,2,8,0)="PSN*4.0*103^NATIONAL DRUG FILE^0^3060418^y"
^XMB(3.9,106,2,9,0)="""BLD"",5341,1,0)"
^XMB(3.9,106,2,10,0)="^^60^60^3060309^"
^XMB(3.9,106,2,11,0)="""BLD"",5341,1,1,0)"
^XMB(3.9,106,2,12,0)="This NATIONAL DRUG FILE (NDF) patch is part of the Patient Financial"
^XMB(3.9,106,2,13,0)="""BLD"",5341,1,2,0)"
^XMB(3.9,106,2,14,0)="Services System (PFSS) project. PFSS patches are being released on various"
^XMB(3.9,106,2,15,0)="""BLD"",5341,1,3,0)"
^XMB(3.9,106,2,16,0)="schedules. Some patch functionality will not be active until a new PFSS"
^XMB(3.9,106,2,17,0)="""BLD"",5341,1,4,0)"
^XMB(3.9,106,2,18,0)="switch is activated during final implementation. PFSS will initially be"
^XMB(3.9,106,2,19,0)="""BLD"",5341,1,5,0)"
^XMB(3.9,106,2,20,0)="implemented at select pilot sites ONLY."
^XMB(3.9,106,2,21,0)="""BLD"",5341,1,6,0)"
^XMB(3.9,106,2,22,0)=" "
^XMB(3.9,106,2,23,0)="""BLD"",5341,1,7,0)"
^XMB(3.9,106,2,24,0)="The purpose of the PFSS project is to prepare the Veterans Health"
^XMB(3.9,106,2,25,0)="""BLD"",5341,1,8,0)"
^XMB(3.9,106,2,26,0)="Information Systems and Technology Architecture (VistA) environment for"
^XMB(3.9,106,2,27,0)="""BLD"",5341,1,9,0)"
^XMB(3.9,106,2,28,0)="the implementation of a commercial off-the-shelf (COTS) billing"
^XMB(3.9,106,2,29,0)="""BLD"",5341,1,10,0)"
^XMB(3.9,106,2,30,0)="replacement system. The project consists of the implementation of the"
^XMB(3.9,106,2,31,0)="""BLD"",5341,1,11,0)"
^XMB(3.9,106,2,32,0)="billing replacement system, business process improvements, and"
^XMB(3.9,106,2,33,0)="""BLD"",5341,1,12,0)"
^XMB(3.9,106,2,34,0)="enhancements to VistA to support integration with the COTS billing"
^XMB(3.9,106,2,35,0)="""BLD"",5341,1,13,0)"
^XMB(3.9,106,2,36,0)="replacement system. Significant changes to VistA legacy systems and"
^XMB(3.9,106,2,37,0)="""BLD"",5341,1,14,0)"
^XMB(3.9,106,2,38,0)="ancillary packages are necessary."
^XMB(3.9,106,2,39,0)="""BLD"",5341,1,15,0)"
^XMB(3.9,106,2,40,0)=" "
^XMB(3.9,106,2,41,0)="""BLD"",5341,1,16,0)"
^XMB(3.9,106,2,42,0)="Some of the PFSS software components are not operational until the PFSS"
^XMB(3.9,106,2,43,0)="""BLD"",5341,1,17,0)"
^XMB(3.9,106,2,44,0)="On/Off Switch, distributed with patch IB*2*260, is set to ""ON"". The"
^XMB(3.9,106,2,45,0)="""BLD"",5341,1,18,0)"
^XMB(3.9,106,2,46,0)="ability for the local site to set the switch to ""ON"" will be provided at"
^XMB(3.9,106,2,47,0)="""BLD"",5341,1,19,0)"
^XMB(3.9,106,2,48,0)="the appropriate time with the release of a subsequent Integrated Billing"
^XMB(3.9,106,2,49,0)="""BLD"",5341,1,20,0)"
^XMB(3.9,106,2,50,0)="patch."
^XMB(3.9,106,2,51,0)="""BLD"",5341,1,21,0)"
^XMB(3.9,106,2,52,0)=" "
^XMB(3.9,106,2,53,0)="""BLD"",5341,1,22,0)"
^XMB(3.9,106,2,54,0)="For more information about the PFSS project, review the documentation"
^XMB(3.9,106,2,55,0)="""BLD"",5341,1,23,0)"
^XMB(3.9,106,2,56,0)="accompanying this patch and refer to the following website:"
^XMB(3.9,106,2,57,0)="""BLD"",5341,1,24,0)"
^XMB(3.9,106,2,58,0)="http://vista.med.va.gov/billreplace/."
^XMB(3.9,106,2,59,0)="""BLD"",5341,1,25,0)"
^XMB(3.9,106,2,60,0)=" "
^XMB(3.9,106,2,61,0)="""BLD"",5341,1,26,0)"
^XMB(3.9,106,2,62,0)=" "
^XMB(3.9,106,2,63,0)="""BLD"",5341,1,27,0)"
^XMB(3.9,106,2,64,0)="Functional Description:"
^XMB(3.9,106,2,65,0)="""BLD"",5341,1,28,0)"
^XMB(3.9,106,2,66,0)="======================="
^XMB(3.9,106,2,67,0)="""BLD"",5341,1,29,0)"
^XMB(3.9,106,2,68,0)="The Charge Description Master (CDM) is an industry standard financial tool"
^XMB(3.9,106,2,69,0)="""BLD"",5341,1,30,0)"
^XMB(3.9,106,2,70,0)="common to all commercial billing systems and used in virtually every"
^XMB(3.9,106,2,71,0)="""BLD"",5341,1,31,0)"
^XMB(3.9,106,2,72,0)="private hospital. The CDM is a comprehensive listing of all services"
^XMB(3.9,106,2,73,0)="""BLD"",5341,1,32,0)"
^XMB(3.9,106,2,74,0)="performed, drugs supplied, or supplies provided in a particular hospital"
^XMB(3.9,106,2,75,0)="""BLD"",5341,1,33,0)"
^XMB(3.9,106,2,76,0)="along with the value of those services/drugs/items, or charge amounts."
^XMB(3.9,106,2,77,0)="""BLD"",5341,1,34,0)"
^XMB(3.9,106,2,78,0)="Each of these entries are represented by a Charge Code, and the Charge"
^XMB(3.9,106,2,79,0)="""BLD"",5341,1,35,0)"
^XMB(3.9,106,2,80,0)="Code is made up of a Department Code and Service Code. The Charge Code for"
^XMB(3.9,106,2,81,0)="""BLD"",5341,1,36,0)"
^XMB(3.9,106,2,82,0)="Pharmacy will be the Department Code 160 concatenated with the assigned"
^XMB(3.9,106,2,83,0)="""BLD"",5341,1,37,0)"
^XMB(3.9,106,2,84,0)="Service Code for the drug. The Department Code 160 will not be stored in"
^XMB(3.9,106,2,85,0)="""BLD"",5341,1,38,0)"
^XMB(3.9,106,2,86,0)="any files and the Service Code will be established/approved by a central"
^XMB(3.9,106,2,87,0)="""BLD"",5341,1,39,0)"
^XMB(3.9,106,2,88,0)="CDM Change Control Board (CCB). The implementation of the COTS billing"
^XMB(3.9,106,2,89,0)="""BLD"",5341,1,40,0)"
^XMB(3.9,106,2,90,0)="system requires the VA PRODUCT file (#50.68) to link the service master"
^XMB(3.9,106,2,91,0)="""BLD"",5341,1,41,0)"
^XMB(3.9,106,2,92,0)="Service Code to every Pharmacy prescription fill or refill. Pharmacy will"
^XMB(3.9,106,2,93,0)="""BLD"",5341,1,42,0)"
^XMB(3.9,106,2,94,0)="create and populate a Service Code (in the 600,001 - 699,999 range) for"
^XMB(3.9,106,2,95,0)="""BLD"",5341,1,43,0)"
^XMB(3.9,106,2,96,0)="each entry in the VA PRODUCT file (#50.68). Initially, the Service Code"
^XMB(3.9,106,2,97,0)="""BLD"",5341,1,44,0)"
^XMB(3.9,106,2,98,0)="will be populated by this patch and subsequently the CDM CCB assigned"
^XMB(3.9,106,2,99,0)="""BLD"",5341,1,45,0)"
^XMB(3.9,106,2,100,0)="Service Codes will be distributed as data update patches within the NDF"
^XMB(3.9,106,2,101,0)="""BLD"",5341,1,46,0)"
^XMB(3.9,106,2,102,0)="releases."
^XMB(3.9,106,2,103,0)="""BLD"",5341,1,47,0)"
^XMB(3.9,106,2,104,0)=" "
^XMB(3.9,106,2,105,0)="""BLD"",5341,1,48,0)"
^XMB(3.9,106,2,106,0)=" "
^XMB(3.9,106,2,107,0)="""BLD"",5341,1,49,0)"
^XMB(3.9,106,2,108,0)="Technical Description:"
^XMB(3.9,106,2,109,0)="""BLD"",5341,1,50,0)"
^XMB(3.9,106,2,110,0)="======================"
^XMB(3.9,106,2,111,0)="""BLD"",5341,1,51,0)"
^XMB(3.9,106,2,112,0)="This NDF patch PSN*4*103 provides the following functionality needed to"
^XMB(3.9,106,2,113,0)="""BLD"",5341,1,52,0)"
^XMB(3.9,106,2,114,0)="support the PFSS project:"
^XMB(3.9,106,2,115,0)="""BLD"",5341,1,53,0)"
^XMB(3.9,106,2,116,0)=" "
^XMB(3.9,106,2,117,0)="""BLD"",5341,1,54,0)"
^XMB(3.9,106,2,118,0)="1. A new SERVICE CODE field (#2000) was added to the VA PRODUCT file"
^XMB(3.9,106,2,119,0)="""BLD"",5341,1,55,0)"
^XMB(3.9,106,2,120,0)="   (#50.68)."
^XMB(3.9,106,2,121,0)="""BLD"",5341,1,56,0)"
^XMB(3.9,106,2,122,0)="2. A Post-install routine that initially populates the new SERVICE"
^XMB(3.9,106,2,123,0)="""BLD"",5341,1,57,0)"
^XMB(3.9,106,2,124,0)="   CODE field (#2000) for every entry in the VA PRODUCT file (#50.68) with"
^XMB(3.9,106,2,125,0)="""BLD"",5341,1,58,0)"
^XMB(3.9,106,2,126,0)="   a six digit number to be within the range 600001-699999. The logic"
^XMB(3.9,106,2,127,0)="""BLD"",5341,1,59,0)"
^XMB(3.9,106,2,128,0)="   comprises of the Internal Entry number (IEN) padding it with zeroes as"
^XMB(3.9,106,2,129,0)="""BLD"",5341,1,60,0)"
^XMB(3.9,106,2,130,0)="   needed and adding a ""6"" on the front to make up a six digit number."
^XMB(3.9,106,2,131,0)="""BLD"",5341,4,0)"
^XMB(3.9,106,2,132,0)="^9.64PA^50.68^1"
^XMB(3.9,106,2,133,0)="""BLD"",5341,4,50.68,0)"
^XMB(3.9,106,2,134,0)="50.68"
^XMB(3.9,106,2,135,0)="""BLD"",5341,4,50.68,2,0)"
^XMB(3.9,106,2,136,0)="^9.641^50.68^1"
^XMB(3.9,106,2,137,0)="""BLD"",5341,4,50.68,2,50.68,0)"
^XMB(3.9,106,2,138,0)="VA PRODUCT  (File-top level)"
^XMB(3.9,106,2,139,0)="""BLD"",5341,4,50.68,2,50.68,1,0)"
^XMB(3.9,106,2,140,0)="^9.6411^2000^1"
^XMB(3.9,106,2,141,0)="""BLD"",5341,4,50.68,2,50.68,1,2000,0)"
^XMB(3.9,106,2,142,0)="SERVICE CODE"
^XMB(3.9,106,2,143,0)="""BLD"",5341,4,50.68,222)"
^XMB(3.9,106,2,144,0)="y^n^p^^^^n^^n"
^XMB(3.9,106,2,145,0)="""BLD"",5341,4,50.68,224)"
^XMB(3.9,106,2,146,0)=""
^XMB(3.9,106,2,147,0)="""BLD"",5341,4,""APDD"",50.68,50.68)"
^XMB(3.9,106,2,148,0)=""
^XMB(3.9,106,2,149,0)="""BLD"",5341,4,""APDD"",50.68,50.68,2000)"
^XMB(3.9,106,2,150,0)=""
^XMB(3.9,106,2,151,0)="""BLD"",5341,4,""B"",50.68,50.68)"
^XMB(3.9,106,2,152,0)=""
^XMB(3.9,106,2,153,0)="""BLD"",5341,6)"
^XMB(3.9,106,2,154,0)="2^"
^XMB(3.9,106,2,155,0)="""BLD"",5341,""ABPKG"")"
^XMB(3.9,106,2,156,0)="n"
^XMB(3.9,106,2,157,0)="""BLD"",5341,""INID"")"
^XMB(3.9,106,2,158,0)="^y"
^XMB(3.9,106,2,159,0)="""BLD"",5341,""INIT"")"
^XMB(3.9,106,2,160,0)="PSN4P103"
^XMB(3.9,106,2,161,0)="""BLD"",5341,""KRN"",0)"
^XMB(3.9,106,2,162,0)="^9.67PA^8989.52^20"
^XMB(3.9,106,2,163,0)="""BLD"",5341,""KRN"",.4,0)"
^XMB(3.9,106,2,164,0)=".4"
^XMB(3.9,106,2,165,0)="""BLD"",5341,""KRN"",.4,""NM"",0)"
^XMB(3.9,106,2,166,0)="^9.68A^^"
^XMB(3.9,106,2,167,0)="""BLD"",5341,""KRN"",.401,0)"
^XMB(3.9,106,2,168,0)=".401"
^XMB(3.9,106,2,169,0)="""BLD"",5341,""KRN"",.402,0)"
^XMB(3.9,106,2,170,0)=".402"
^XMB(3.9,106,2,171,0)="""BLD"",5341,""KRN"",.403,0)"
^XMB(3.9,106,2,172,0)=".403"
^XMB(3.9,106,2,173,0)="""BLD"",5341,""KRN"",.5,0)"
^XMB(3.9,106,2,174,0)=".5"
^XMB(3.9,106,2,175,0)="""BLD"",5341,""KRN"",.84,0)"
^XMB(3.9,106,2,176,0)=".84"
^XMB(3.9,106,2,177,0)="""BLD"",5341,""KRN"",3.6,0)"
^XMB(3.9,106,2,178,0)="3.6"
^XMB(3.9,106,2,179,0)="""BLD"",5341,""KRN"",3.8,0)"
^XMB(3.9,106,2,180,0)="3.8"
^XMB(3.9,106,2,181,0)="""BLD"",5341,""KRN"",9.2,0)"
^XMB(3.9,106,2,182,0)="9.2"
^XMB(3.9,106,2,183,0)="""BLD"",5341,""KRN"",9.8,0)"
^XMB(3.9,106,2,184,0)="9.8"
^XMB(3.9,106,2,185,0)="""BLD"",5341,""KRN"",9.8,""NM"",0)"
^XMB(3.9,106,2,186,0)="^9.68A^1^1"
^XMB(3.9,106,2,187,0)="""BLD"",5341,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,106,2,188,0)="PSN4P103^^0^B264153"
^XMB(3.9,106,2,189,0)="""BLD"",5341,""KRN"",9.8,""NM"",""B"",""PSN4P103"",1)"
^XMB(3.9,106,2,190,0)=""
^XMB(3.9,106,2,191,0)="""BLD"",5341,""KRN"",19,0)"
^XMB(3.9,106,2,192,0)="19"
^XMB(3.9,106,2,193,0)="""BLD"",5341,""KRN"",19.1,0)"
^XMB(3.9,106,2,194,0)="19.1"
^XMB(3.9,106,2,195,0)="""BLD"",5341,""KRN"",101,0)"
^XMB(3.9,106,2,196,0)="101"
^XMB(3.9,106,2,197,0)="""BLD"",5341,""KRN"",409.61,0)"
^XMB(3.9,106,2,198,0)="409.61"
^XMB(3.9,106,2,199,0)="""BLD"",5341,""KRN"",771,0)"
^XMB(3.9,106,2,200,0)="771"
^XMB(3.9,106,2,201,0)="""BLD"",5341,""KRN"",869.2,0)"
^XMB(3.9,106,2,202,0)="869.2"
^XMB(3.9,106,2,203,0)="""BLD"",5341,""KRN"",870,0)"
^XMB(3.9,106,2,204,0)="870"
^XMB(3.9,106,2,205,0)="""BLD"",5341,""KRN"",8989.51,0)"
^XMB(3.9,106,2,206,0)="8989.51"
^XMB(3.9,106,2,207,0)="""BLD"",5341,""KRN"",8989.52,0)"
^XMB(3.9,106,2,208,0)="8989.52"
^XMB(3.9,106,2,209,0)="""BLD"",5341,""KRN"",8994,0)"
^XMB(3.9,106,2,210,0)="8994"
^XMB(3.9,106,2,211,0)="""BLD"",5341,""KRN"",""B"",.4,.4)"
^XMB(3.9,106,2,212,0)=""
^XMB(3.9,106,2,213,0)="""BLD"",5341,""KRN"",""B"",.401,.401)"
^XMB(3.9,106,2,214,0)=""
^XMB(3.9,106,2,215,0)="""BLD"",5341,""KRN"",""B"",.402,.402)"
^XMB(3.9,106,2,216,0)=""
^XMB(3.9,106,2,217,0)="""BLD"",5341,""KRN"",""B"",.403,.403)"
^XMB(3.9,106,2,218,0)=""
^XMB(3.9,106,2,219,0)="""BLD"",5341,""KRN"",""B"",.5,.5)"
^XMB(3.9,106,2,220,0)=""
^XMB(3.9,106,2,221,0)="""BLD"",5341,""KRN"",""B"",.84,.84)"
^XMB(3.9,106,2,222,0)=""
^XMB(3.9,106,2,223,0)="""BLD"",5341,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,106,2,224,0)=""
^XMB(3.9,106,2,225,0)="""BLD"",5341,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,106,2,226,0)=""
^XMB(3.9,106,2,227,0)="""BLD"",5341,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,106,2,228,0)=""
^XMB(3.9,106,2,229,0)="""BLD"",5341,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,106,2,230,0)=""
^XMB(3.9,106,2,231,0)="""BLD"",5341,""KRN"",""B"",19,19)"
^XMB(3.9,106,2,232,0)=""
^XMB(3.9,106,2,233,0)="""BLD"",5341,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,106,2,234,0)=""
^XMB(3.9,106,2,235,0)="""BLD"",5341,""KRN"",""B"",101,101)"
^XMB(3.9,106,2,236,0)=""
^XMB(3.9,106,2,237,0)="""BLD"",5341,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,106,2,238,0)=""
^XMB(3.9,106,2,239,0)="""BLD"",5341,""KRN"",""B"",771,771)"
^XMB(3.9,106,2,240,0)=""
^XMB(3.9,106,2,241,0)="""BLD"",5341,""KRN"",""B"",869.2,869.2)"
^XMB(3.9,106,2,242,0)=""
^XMB(3.9,106,2,243,0)="""BLD"",5341,""KRN"",""B"",870,870)"
^XMB(3.9,106,2,244,0)=""
^XMB(3.9,106,2,245,0)="""BLD"",5341,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,106,2,246,0)=""
^XMB(3.9,106,2,247,0)="""BLD"",5341,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,106,2,248,0)=""
^XMB(3.9,106,2,249,0)="""BLD"",5341,""KRN"",""B"",8994,8994)"
^XMB(3.9,106,2,250,0)=""
^XMB(3.9,106,2,251,0)="""BLD"",5341,""PRE"")"
^XMB(3.9,106,2,252,0)=""
^XMB(3.9,106,2,253,0)="""BLD"",5341,""PRET"")"
^XMB(3.9,106,2,254,0)=""
^XMB(3.9,106,2,255,0)="""BLD"",5341,""QUES"",0)"
^XMB(3.9,106,2,256,0)="^9.62^^"
^XMB(3.9,106,2,257,0)="""BLD"",5341,""REQB"",0)"
^XMB(3.9,106,2,258,0)="^9.611^1^1"
^XMB(3.9,106,2,259,0)="""BLD"",5341,""REQB"",1,0)"
^XMB(3.9,106,2,260,0)="PSN*4.0*114^2"
^XMB(3.9,106,2,261,0)="""BLD"",5341,""REQB"",""B"",""PSN*4.0*114"",1)"
^XMB(3.9,106,2,262,0)=""
^XMB(3.9,106,2,263,0)="""FIA"",50.68)"
^XMB(3.9,106,2,264,0)="VA PRODUCT"
^XMB(3.9,106,2,265,0)="""FIA"",50.68,0)"
^XMB(3.9,106,2,266,0)="^PSNDF(50.68,"
^XMB(3.9,106,2,267,0)="""FIA"",50.68,0,0)"
^XMB(3.9,106,2,268,0)="50.68"
^XMB(3.9,106,2,269,0)="""FIA"",50.68,0,1)"
^XMB(3.9,106,2,270,0)="y^n^p^^^^n^^n"
^XMB(3.9,106,2,271,0)="""FIA"",50.68,0,10)"
^XMB(3.9,106,2,272,0)=""
^XMB(3.9,106,2,273,0)="""FIA"",50.68,0,11)"
^XMB(3.9,106,2,274,0)=""
^XMB(3.9,106,2,275,0)="""FIA"",50.68,0,""RLRO"")"
^XMB(3.9,106,2,276,0)=""
^XMB(3.9,106,2,277,0)="""FIA"",50.68,0,""VR"")"
^XMB(3.9,106,2,278,0)="4.0^PSN"
^XMB(3.9,106,2,279,0)="""FIA"",50.68,50.68)"
^XMB(3.9,106,2,280,0)="1"
^XMB(3.9,106,2,281,0)="""FIA"",50.68,50.68,2000)"
^XMB(3.9,106,2,282,0)=""
^XMB(3.9,106,2,283,0)="""INIT"")"
^XMB(3.9,106,2,284,0)="PSN4P103"
^XMB(3.9,106,2,285,0)="""MBREQ"")"
^XMB(3.9,106,2,286,0)="0"
^XMB(3.9,106,2,287,0)="""PKG"",136,-1)"
^XMB(3.9,106,2,288,0)="1^1"
^XMB(3.9,106,2,289,0)="""PKG"",136,0)"
^XMB(3.9,106,2,290,0)="NATIONAL DRUG FILE^PSN^This is the National Drug File Package V 3.14"
^XMB(3.9,106,2,291,0)="""PKG"",136,20,0)"
^XMB(3.9,106,2,292,0)="^9.402P^^"
^XMB(3.9,106,2,293,0)="""PKG"",136,22,0)"
^XMB(3.9,106,2,294,0)="^9.49I^1^1"
^XMB(3.9,106,2,295,0)="""PKG"",136,22,1,0)"
^XMB(3.9,106,2,296,0)="4.0^2981030^2981223^11595"
^XMB(3.9,106,2,297,0)="""PKG"",136,22,1,""PAH"",1,0)"
^XMB(3.9,106,2,298,0)="103^3060418^10000000022"
^XMB(3.9,106,2,299,0)="""PKG"",136,22,1,""PAH"",1,1,0)"
^XMB(3.9,106,2,300,0)="^^60^60^3060418"
^XMB(3.9,106,2,301,0)="""PKG"",136,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,106,2,302,0)="This NATIONAL DRUG FILE (NDF) patch is part of the Patient Financial"
^XMB(3.9,106,2,303,0)="""PKG"",136,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,106,2,304,0)="Services System (PFSS) project. PFSS patches are being released on various"
^XMB(3.9,106,2,305,0)="""PKG"",136,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,106,2,306,0)="schedules. Some patch functionality will not be active until a new PFSS"
^XMB(3.9,106,2,307,0)="""PKG"",136,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,106,2,308,0)="switch is activated during final implementation. PFSS will initially be"
^XMB(3.9,106,2,309,0)="""PKG"",136,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,106,2,310,0)="implemented at select pilot sites ONLY."
^XMB(3.9,106,2,311,0)="""PKG"",136,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,106,2,312,0)=" "
^XMB(3.9,106,2,313,0)="""PKG"",136,22,1,""PAH"",1,1,7,0)"
^XMB(3.9,106,2,314,0)="The purpose of the PFSS project is to prepare the Veterans Health"
^XMB(3.9,106,2,315,0)="""PKG"",136,22,1,""PAH"",1,1,8,0)"
^XMB(3.9,106,2,316,0)="Information Systems and Technology Architecture (VistA) environment for"
^XMB(3.9,106,2,317,0)="""PKG"",136,22,1,""PAH"",1,1,9,0)"
^XMB(3.9,106,2,318,0)="the implementation of a commercial off-the-shelf (COTS) billing"
^XMB(3.9,106,2,319,0)="""PKG"",136,22,1,""PAH"",1,1,10,0)"
^XMB(3.9,106,2,320,0)="replacement system. The project consists of the implementation of the"
^XMB(3.9,106,2,321,0)="""PKG"",136,22,1,""PAH"",1,1,11,0)"
^XMB(3.9,106,2,322,0)="billing replacement system, business process improvements, and"
^XMB(3.9,106,2,323,0)="""PKG"",136,22,1,""PAH"",1,1,12,0)"
^XMB(3.9,106,2,324,0)="enhancements to VistA to support integration with the COTS billing"
^XMB(3.9,106,2,325,0)="""PKG"",136,22,1,""PAH"",1,1,13,0)"
^XMB(3.9,106,2,326,0)="replacement system. Significant changes to VistA legacy systems and"
^XMB(3.9,106,2,327,0)="""PKG"",136,22,1,""PAH"",1,1,14,0)"
^XMB(3.9,106,2,328,0)="ancillary packages are necessary."
^XMB(3.9,106,2,329,0)="""PKG"",136,22,1,""PAH"",1,1,15,0)"
^XMB(3.9,106,2,330,0)=" "
^XMB(3.9,106,2,331,0)="""PKG"",136,22,1,""PAH"",1,1,16,0)"
^XMB(3.9,106,2,332,0)="Some of the PFSS software components are not operational until the PFSS"
^XMB(3.9,106,2,333,0)="""PKG"",136,22,1,""PAH"",1,1,17,0)"
^XMB(3.9,106,2,334,0)="On/Off Switch, distributed with patch IB*2*260, is set to ""ON"". The"
^XMB(3.9,106,2,335,0)="""PKG"",136,22,1,""PAH"",1,1,18,0)"
^XMB(3.9,106,2,336,0)="ability for the local site to set the switch to ""ON"" will be provided at"
^XMB(3.9,106,2,337,0)="""PKG"",136,22,1,""PAH"",1,1,19,0)"
^XMB(3.9,106,2,338,0)="the appropriate time with the release of a subsequent Integrated Billing"
^XMB(3.9,106,2,339,0)="""PKG"",136,22,1,""PAH"",1,1,20,0)"
^XMB(3.9,106,2,340,0)="patch."
^XMB(3.9,106,2,341,0)="""PKG"",136,22,1,""PAH"",1,1,21,0)"
^XMB(3.9,106,2,342,0)=" "
^XMB(3.9,106,2,343,0)="""PKG"",136,22,1,""PAH"",1,1,22,0)"
^XMB(3.9,106,2,344,0)="For more information about the PFSS project, review the documentation"
^XMB(3.9,106,2,345,0)="""PKG"",136,22,1,""PAH"",1,1,23,0)"
^XMB(3.9,106,2,346,0)="accompanying this patch and refer to the following website:"
^XMB(3.9,106,2,347,0)="""PKG"",136,22,1,""PAH"",1,1,24,0)"
^XMB(3.9,106,2,348,0)="http://vista.med.va.gov/billreplace/."
^XMB(3.9,106,2,349,0)="""PKG"",136,22,1,""PAH"",1,1,25,0)"
^XMB(3.9,106,2,350,0)=" "
^XMB(3.9,106,2,351,0)="""PKG"",136,22,1,""PAH"",1,1,26,0)"
^XMB(3.9,106,2,352,0)=" "
^XMB(3.9,106,2,353,0)="""PKG"",136,22,1,""PAH"",1,1,27,0)"
^XMB(3.9,106,2,354,0)="Functional Description:"
^XMB(3.9,106,2,355,0)="""PKG"",136,22,1,""PAH"",1,1,28,0)"
^XMB(3.9,106,2,356,0)="======================="
^XMB(3.9,106,2,357,0)="""PKG"",136,22,1,""PAH"",1,1,29,0)"
^XMB(3.9,106,2,358,0)="The Charge Description Master (CDM) is an industry standard financial tool"
^XMB(3.9,106,2,359,0)="""PKG"",136,22,1,""PAH"",1,1,30,0)"
^XMB(3.9,106,2,360,0)="common to all commercial billing systems and used in virtually every"
^XMB(3.9,106,2,361,0)="""PKG"",136,22,1,""PAH"",1,1,31,0)"
^XMB(3.9,106,2,362,0)="private hospital. The CDM is a comprehensive listing of all services"
^XMB(3.9,106,2,363,0)="""PKG"",136,22,1,""PAH"",1,1,32,0)"
^XMB(3.9,106,2,364,0)="performed, drugs supplied, or supplies provided in a particular hospital"
^XMB(3.9,106,2,365,0)="""PKG"",136,22,1,""PAH"",1,1,33,0)"
^XMB(3.9,106,2,366,0)="along with the value of those services/drugs/items, or charge amounts."
^XMB(3.9,106,2,367,0)="""PKG"",136,22,1,""PAH"",1,1,34,0)"
^XMB(3.9,106,2,368,0)="Each of these entries are represented by a Charge Code, and the Charge"
^XMB(3.9,106,2,369,0)="""PKG"",136,22,1,""PAH"",1,1,35,0)"
^XMB(3.9,106,2,370,0)="Code is made up of a Department Code and Service Code. The Charge Code for"
^XMB(3.9,106,2,371,0)="""PKG"",136,22,1,""PAH"",1,1,36,0)"
^XMB(3.9,106,2,372,0)="Pharmacy will be the Department Code 160 concatenated with the assigned"
^XMB(3.9,106,2,373,0)="""PKG"",136,22,1,""PAH"",1,1,37,0)"
^XMB(3.9,106,2,374,0)="Service Code for the drug. The Department Code 160 will not be stored in"
^XMB(3.9,106,2,375,0)="""PKG"",136,22,1,""PAH"",1,1,38,0)"
^XMB(3.9,106,2,376,0)="any files and the Service Code will be established/approved by a central"
^XMB(3.9,106,2,377,0)="""PKG"",136,22,1,""PAH"",1,1,39,0)"
^XMB(3.9,106,2,378,0)="CDM Change Control Board (CCB). The implementation of the COTS billing"
^XMB(3.9,106,2,379,0)="""PKG"",136,22,1,""PAH"",1,1,40,0)"
^XMB(3.9,106,2,380,0)="system requires the VA PRODUCT file (#50.68) to link the service master"
^XMB(3.9,106,2,381,0)="""PKG"",136,22,1,""PAH"",1,1,41,0)"
^XMB(3.9,106,2,382,0)="Service Code to every Pharmacy prescription fill or refill. Pharmacy will"
^XMB(3.9,106,2,383,0)="""PKG"",136,22,1,""PAH"",1,1,42,0)"
^XMB(3.9,106,2,384,0)="create and populate a Service Code (in the 600,001 - 699,999 range) for"
^XMB(3.9,106,2,385,0)="""PKG"",136,22,1,""PAH"",1,1,43,0)"
^XMB(3.9,106,2,386,0)="each entry in the VA PRODUCT file (#50.68). Initially, the Service Code"
^XMB(3.9,106,2,387,0)="""PKG"",136,22,1,""PAH"",1,1,44,0)"
^XMB(3.9,106,2,388,0)="will be populated by this patch and subsequently the CDM CCB assigned"
^XMB(3.9,106,2,389,0)="""PKG"",136,22,1,""PAH"",1,1,45,0)"
^XMB(3.9,106,2,390,0)="Service Codes will be distributed as data update patches within the NDF"
^XMB(3.9,106,2,391,0)="""PKG"",136,22,1,""PAH"",1,1,46,0)"
^XMB(3.9,106,2,392,0)="releases."
^XMB(3.9,106,2,393,0)="""PKG"",136,22,1,""PAH"",1,1,47,0)"
^XMB(3.9,106,2,394,0)=" "
^XMB(3.9,106,2,395,0)="""PKG"",136,22,1,""PAH"",1,1,48,0)"
^XMB(3.9,106,2,396,0)=" "
^XMB(3.9,106,2,397,0)="""PKG"",136,22,1,""PAH"",1,1,49,0)"
^XMB(3.9,106,2,398,0)="Technical Description:"
^XMB(3.9,106,2,399,0)="""PKG"",136,22,1,""PAH"",1,1,50,0)"
^XMB(3.9,106,2,400,0)="======================"
^XMB(3.9,106,2,401,0)="""PKG"",136,22,1,""PAH"",1,1,51,0)"
^XMB(3.9,106,2,402,0)="This NDF patch PSN*4*103 provides the following functionality needed to"
^XMB(3.9,106,2,403,0)="""PKG"",136,22,1,""PAH"",1,1,52,0)"
^XMB(3.9,106,2,404,0)="support the PFSS project:"
^XMB(3.9,106,2,405,0)="""PKG"",136,22,1,""PAH"",1,1,53,0)"
^XMB(3.9,106,2,406,0)=" "
^XMB(3.9,106,2,407,0)="""PKG"",136,22,1,""PAH"",1,1,54,0)"
^XMB(3.9,106,2,408,0)="1. A new SERVICE CODE field (#2000) was added to the VA PRODUCT file"
^XMB(3.9,106,2,409,0)="""PKG"",136,22,1,""PAH"",1,1,55,0)"
^XMB(3.9,106,2,410,0)="   (#50.68)."
^XMB(3.9,106,2,411,0)="""PKG"",136,22,1,""PAH"",1,1,56,0)"
^XMB(3.9,106,2,412,0)="2. A Post-install routine that initially populates the new SERVICE"
^XMB(3.9,106,2,413,0)="""PKG"",136,22,1,""PAH"",1,1,57,0)"
^XMB(3.9,106,2,414,0)="   CODE field (#2000) for every entry in the VA PRODUCT file (#50.68) with"
^XMB(3.9,106,2,415,0)="""PKG"",136,22,1,""PAH"",1,1,58,0)"
^XMB(3.9,106,2,416,0)="   a six digit number to be within the range 600001-699999. The logic"
^XMB(3.9,106,2,417,0)="""PKG"",136,22,1,""PAH"",1,1,59,0)"
^XMB(3.9,106,2,418,0)="   comprises of the Internal Entry number (IEN) padding it with zeroes as"
^XMB(3.9,106,2,419,0)="""PKG"",136,22,1,""PAH"",1,1,60,0)"
^XMB(3.9,106,2,420,0)="   needed and adding a ""6"" on the front to make up a six digit number."
^XMB(3.9,106,2,421,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,106,2,422,0)="Y"
^XMB(3.9,106,2,423,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,106,2,424,0)="^D REP^XPDH"
^XMB(3.9,106,2,425,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,106,2,426,0)="Shall I write over your |FLAG| File"
^XMB(3.9,106,2,427,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,106,2,428,0)="YES"
^XMB(3.9,106,2,429,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,106,2,430,0)="D XPF1^XPDIQ"
^XMB(3.9,106,2,431,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,106,2,432,0)="Y"
^XMB(3.9,106,2,433,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,106,2,434,0)="^D DTA^XPDH"
^XMB(3.9,106,2,435,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,106,2,436,0)="Want my data |FLAG| yours"
^XMB(3.9,106,2,437,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,106,2,438,0)="YES"
^XMB(3.9,106,2,439,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,106,2,440,0)="D XPF2^XPDIQ"
^XMB(3.9,106,2,441,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,106,2,442,0)="YO"
^XMB(3.9,106,2,443,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,106,2,444,0)="^D INHIBIT^XPDH"
^XMB(3.9,106,2,445,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,106,2,446,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,106,2,447,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,106,2,448,0)="YES"
^XMB(3.9,106,2,449,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,106,2,450,0)="D XPI1^XPDIQ"
^XMB(3.9,106,2,451,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,106,2,452,0)="PO^VA(200,:EM"
^XMB(3.9,106,2,453,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,106,2,454,0)="^D MG^XPDH"
^XMB(3.9,106,2,455,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,106,2,456,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,106,2,457,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,106,2,458,0)=""
^XMB(3.9,106,2,459,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,106,2,460,0)="D XPM1^XPDIQ"
^XMB(3.9,106,2,461,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,106,2,462,0)="Y"
^XMB(3.9,106,2,463,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,106,2,464,0)="^D MENU^XPDH"
^XMB(3.9,106,2,465,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,106,2,466,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,106,2,467,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,106,2,468,0)="YES"
^XMB(3.9,106,2,469,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,106,2,470,0)="D XPO1^XPDIQ"
^XMB(3.9,106,2,471,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,106,2,472,0)="Y"
^XMB(3.9,106,2,473,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,106,2,474,0)="^D OPT^XPDH"
^XMB(3.9,106,2,475,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,106,2,476,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,106,2,477,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,106,2,478,0)="YES"
^XMB(3.9,106,2,479,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,106,2,480,0)="D XPZ1^XPDIQ"
^XMB(3.9,106,2,481,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,106,2,482,0)="Y"
^XMB(3.9,106,2,483,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,106,2,484,0)="^D RTN^XPDH"
^XMB(3.9,106,2,485,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,106,2,486,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,106,2,487,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,106,2,488,0)="NO"
^XMB(3.9,106,2,489,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,106,2,490,0)="D XPZ2^XPDIQ"
^XMB(3.9,106,2,491,0)="""RTN"")"
^XMB(3.9,106,2,492,0)="1"
^XMB(3.9,106,2,493,0)="""RTN"",""PSN4P103"")"
^XMB(3.9,106,2,494,0)="0^1^B264153"
^XMB(3.9,106,2,495,0)="""RTN"",""PSN4P103"",1,0)"
^XMB(3.9,106,2,496,0)="PSN4P103 ;BIR/MHA-populating the service code field ;17 Feb 00 / 8:12 AM"
^XMB(3.9,106,2,497,0)="""RTN"",""PSN4P103"",2,0)"
^XMB(3.9,106,2,498,0)=" ;;4.0;NATIONAL DRUG FILE;**103**;13 May 05"
^XMB(3.9,106,2,499,0)="""RTN"",""PSN4P103"",3,0)"
^XMB(3.9,106,2,500,0)=" ;"
^XMB(3.9,106,2,501,0)="""RTN"",""PSN4P103"",4,0)"
^XMB(3.9,106,2,502,0)=" S DA=0 F  S DA=$O(^PSNDF(50.68,DA)) Q:'DA  D"
^XMB(3.9,106,2,503,0)="""RTN"",""PSN4P103"",5,0)"
^XMB(3.9,106,2,504,0)=" .S NA=""0000""_DA,NA=""6""_$E(NA,($L(NA)-4),$L(NA))"
^XMB(3.9,106,2,505,0)="""RTN"",""PSN4P103"",6,0)"
^XMB(3.9,106,2,506,0)=" .W ""."" S DIE=""^PSNDF(50.68,"",DR=""2000////""_NA D ^DIE"
^XMB(3.9,106,2,507,0)="""RTN"",""PSN4P103"",7,0)"
^XMB(3.9,106,2,508,0)=" K DA,NA,DIE,DR Q"
^XMB(3.9,106,2,509,0)="""VER"")"
^XMB(3.9,106,2,510,0)="8.0^22.0"
^XMB(3.9,106,2,511,0)="""^DD"",50.68,50.68,2000,0)"
^XMB(3.9,106,2,512,0)="SERVICE CODE^NJ6,0a^^PFS;1^K:+X'=X!(X>699999)!(X<600001)!(X?.E1"".""1N.N) X"
^XMB(3.9,106,2,513,0)="""^DD"",50.68,50.68,2000,3)"
^XMB(3.9,106,2,514,0)="Type a Number between 600001 and 699999, 0 Decimal Digits"
^XMB(3.9,106,2,515,0)="""^DD"",50.68,50.68,2000,21,0)"
^XMB(3.9,106,2,516,0)="^.001^2^2^3050614^^^^"
^XMB(3.9,106,2,517,0)="""^DD"",50.68,50.68,2000,21,1,0)"
^XMB(3.9,106,2,518,0)="This field contains a Charge Description Master (CDM) Change Control board"
^XMB(3.9,106,2,519,0)="""^DD"",50.68,50.68,2000,21,2,0)"
^XMB(3.9,106,2,520,0)="assigned Service Code. The value should be a number between 600001-699999."
^XMB(3.9,106,2,521,0)="""^DD"",50.68,50.68,2000,23,0)"
^XMB(3.9,106,2,522,0)="^.001^8^8^3050614^^"
^XMB(3.9,106,2,523,0)="""^DD"",50.68,50.68,2000,23,1,0)"
^XMB(3.9,106,2,524,0)="This field was introduced as part of the Patient Financial Services System"
^XMB(3.9,106,2,525,0)="""^DD"",50.68,50.68,2000,23,2,0)"
^XMB(3.9,106,2,526,0)="(PFSS) project, to implement a new COTS billing system. It requires that"
^XMB(3.9,106,2,527,0)="""^DD"",50.68,50.68,2000,23,3,0)"
^XMB(3.9,106,2,528,0)="every pharmacy item passed to the external billing system to have a"
^XMB(3.9,106,2,529,0)="""^DD"",50.68,50.68,2000,23,4,0)"
^XMB(3.9,106,2,530,0)="Service Code assigned within the range 600001-699999. Pharmacy application"
^XMB(3.9,106,2,531,0)="""^DD"",50.68,50.68,2000,23,5,0)"
^XMB(3.9,106,2,532,0)="will maintain a CDM/Service Code for every dispensed item. As an initial"
^XMB(3.9,106,2,533,0)="""^DD"",50.68,50.68,2000,23,6,0)"
^XMB(3.9,106,2,534,0)="step this field was populated by taking the IEN from the VA PRODUCT file"
^XMB(3.9,106,2,535,0)="""^DD"",50.68,50.68,2000,23,7,0)"
^XMB(3.9,106,2,536,0)="(#50.68), padding it with zeroes as needed and placing a ""6"" on the front"
^XMB(3.9,106,2,537,0)="""^DD"",50.68,50.68,2000,23,8,0)"
^XMB(3.9,106,2,538,0)="to make up a six digit number."
^XMB(3.9,106,2,539,0)="""^DD"",50.68,50.68,2000,""AUDIT"")"
^XMB(3.9,106,2,540,0)="y"
^XMB(3.9,106,2,541,0)="""^DD"",50.68,50.68,2000,""DT"")"
^XMB(3.9,106,2,542,0)="3050614"
^XMB(3.9,106,2,543,0)="""BLD"",5341,6)"
^XMB(3.9,106,2,544,0)="^107"
^XMB(3.9,106,2,545,0)="$END KID PSN*4.0*103"
^XMB(3.9,106,6,0)="^3.911A^2^2"
^XMB(3.9,106,6,1,0)="POSTMASTER"
^XMB(3.9,106,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,106,6,"B","POSTMASTER",1)=""
^XMB(3.9,106,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,107,0)="PSO-7_SEQ-212_PAT-149.KID^.5^3061008.015741^^^^K"
^XMB(3.9,107,.6)="3061008"
^XMB(3.9,107,1,0)="^3.91A^2^2"
^XMB(3.9,107,1,1,0)=".5^0^3061008.015741^^^^^^^3061008.015741"
^XMB(3.9,107,1,2,0)="1^0^3061008.022312^^^^^^^3061008.022312"
^XMB(3.9,107,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,107,1,"C",.5,1)=""
^XMB(3.9,107,1,"C",1,2)=""
^XMB(3.9,107,2,0)="^^765^765^3061008"
^XMB(3.9,107,2,1,0)="$TXT Released PSO*7*149 SEQ #212"
^XMB(3.9,107,2,2,0)="Extracted from mail message"
^XMB(3.9,107,2,3,0)="$END TXT"
^XMB(3.9,107,2,4,0)="$KID PSO*7.0*149"
^XMB(3.9,107,2,5,0)="**INSTALL NAME**"
^XMB(3.9,107,2,6,0)="PSO*7.0*149"
^XMB(3.9,107,2,7,0)="""BLD"",4582,0)"
^XMB(3.9,107,2,8,0)="PSO*7.0*149^OUTPATIENT PHARMACY^0^3060213^y"
^XMB(3.9,107,2,9,0)="""BLD"",4582,1,0)"
^XMB(3.9,107,2,10,0)="^^114^114^3051220^"
^XMB(3.9,107,2,11,0)="""BLD"",4582,1,1,0)"
^XMB(3.9,107,2,12,0)="The Registration application has released enhancements designed to"
^XMB(3.9,107,2,13,0)="""BLD"",4582,1,2,0)"
^XMB(3.9,107,2,14,0)="provide a more accurate and cleaner update of the patient address. One"
^XMB(3.9,107,2,15,0)="""BLD"",4582,1,3,0)"
^XMB(3.9,107,2,16,0)="of the things included in the enhancements is the automatic population"
^XMB(3.9,107,2,17,0)="""BLD"",4582,1,4,0)"
^XMB(3.9,107,2,18,0)="of city, state, and county based on entry of a zip code. For more"
^XMB(3.9,107,2,19,0)="""BLD"",4582,1,5,0)"
^XMB(3.9,107,2,20,0)="detailed information about this and the other enhancements recently "
^XMB(3.9,107,2,21,0)="""BLD"",4582,1,6,0)"
^XMB(3.9,107,2,22,0)="released by the Registration application, please refer to the patch "
^XMB(3.9,107,2,23,0)="""BLD"",4582,1,7,0)"
^XMB(3.9,107,2,24,0)="description of DG*5.3*522."
^XMB(3.9,107,2,25,0)="""BLD"",4582,1,8,0)"
^XMB(3.9,107,2,26,0)="  "
^XMB(3.9,107,2,27,0)="""BLD"",4582,1,9,0)"
^XMB(3.9,107,2,28,0)="This patch is responsible for updating Outpatient Pharmacy with the new"
^XMB(3.9,107,2,29,0)="""BLD"",4582,1,10,0)"
^XMB(3.9,107,2,30,0)="functionality made available by the Registration application. More"
^XMB(3.9,107,2,31,0)="""BLD"",4582,1,11,0)"
^XMB(3.9,107,2,32,0)="specifically, the update of the patient permanent address through the"
^XMB(3.9,107,2,33,0)="""BLD"",4582,1,12,0)"
^XMB(3.9,107,2,34,0)="Outpatient Pharmacy application will be enhanced with the new "
^XMB(3.9,107,2,35,0)="""BLD"",4582,1,13,0)"
^XMB(3.9,107,2,36,0)="functionality that was recently released by the Registration application"
^XMB(3.9,107,2,37,0)="""BLD"",4582,1,14,0)"
^XMB(3.9,107,2,38,0)="with the patch DG*5.3*522."
^XMB(3.9,107,2,39,0)="""BLD"",4582,1,15,0)"
^XMB(3.9,107,2,40,0)=" "
^XMB(3.9,107,2,41,0)="""BLD"",4582,1,16,0)"
^XMB(3.9,107,2,42,0)="For sites that have patch IVM*2*108 installed, the address history will"
^XMB(3.9,107,2,43,0)="""BLD"",4582,1,17,0)"
^XMB(3.9,107,2,44,0)="captured in the IVM ADDRESS UPDATE LOG File (#301.7)."
^XMB(3.9,107,2,45,0)="""BLD"",4582,1,18,0)"
^XMB(3.9,107,2,46,0)=" "
^XMB(3.9,107,2,47,0)="""BLD"",4582,1,19,0)"
^XMB(3.9,107,2,48,0)="Two places in the Outpatient Pharmacy application will be affected by"
^XMB(3.9,107,2,49,0)="""BLD"",4582,1,20,0)"
^XMB(3.9,107,2,50,0)="this change:"
^XMB(3.9,107,2,51,0)="""BLD"",4582,1,21,0)"
^XMB(3.9,107,2,52,0)=" "
^XMB(3.9,107,2,53,0)="""BLD"",4582,1,22,0)"
^XMB(3.9,107,2,54,0)=" 1) Menu option: Update Patient Record    [PSO PAT]"
^XMB(3.9,107,2,55,0)="""BLD"",4582,1,23,0)"
^XMB(3.9,107,2,56,0)=" 2) Patient Information screen, option PU - Patient Record Update"
^XMB(3.9,107,2,57,0)="""BLD"",4582,1,24,0)"
^XMB(3.9,107,2,58,0)=" "
^XMB(3.9,107,2,59,0)="""BLD"",4582,1,25,0)"
^XMB(3.9,107,2,60,0)=" Note: The Patient Information screen can be reached through the menu "
^XMB(3.9,107,2,61,0)="""BLD"",4582,1,26,0)"
^XMB(3.9,107,2,62,0)="       options Patient Prescription Processing [PSO LM BACKDOOR ORDERS]"
^XMB(3.9,107,2,63,0)="""BLD"",4582,1,27,0)"
^XMB(3.9,107,2,64,0)="       and Complete Orders from OERR [PSO LMOE FINISH]."
^XMB(3.9,107,2,65,0)="""BLD"",4582,1,28,0)"
^XMB(3.9,107,2,66,0)=" "
^XMB(3.9,107,2,67,0)="""BLD"",4582,1,29,0)"
^XMB(3.9,107,2,68,0)="The examples below show how the patient permanent address edit was before"
^XMB(3.9,107,2,69,0)="""BLD"",4582,1,30,0)"
^XMB(3.9,107,2,70,0)="and how it is going to be changed after this patch is installed:"
^XMB(3.9,107,2,71,0)="""BLD"",4582,1,31,0)"
^XMB(3.9,107,2,72,0)="  "
^XMB(3.9,107,2,73,0)="""BLD"",4582,1,32,0)"
^XMB(3.9,107,2,74,0)="    BEFORE THIS PATCH:"
^XMB(3.9,107,2,75,0)="""BLD"",4582,1,33,0)"
^XMB(3.9,107,2,76,0)="    ================="
^XMB(3.9,107,2,77,0)="""BLD"",4582,1,34,0)"
^XMB(3.9,107,2,78,0)="     :           :            :            :"
^XMB(3.9,107,2,79,0)="""BLD"",4582,1,35,0)"
^XMB(3.9,107,2,80,0)="     :           :            :            :"
^XMB(3.9,107,2,81,0)="""BLD"",4582,1,36,0)"
^XMB(3.9,107,2,82,0)="    STREET ADDRESS [LINE 1]: 123 FAKE ST <RET>"
^XMB(3.9,107,2,83,0)="""BLD"",4582,1,37,0)"
^XMB(3.9,107,2,84,0)="    STREET ADDRESS [LINE 2]: <RET>"
^XMB(3.9,107,2,85,0)="""BLD"",4582,1,38,0)"
^XMB(3.9,107,2,86,0)="    STREET ADDRESS [LINE 3]: <RET>"
^XMB(3.9,107,2,87,0)="""BLD"",4582,1,39,0)"
^XMB(3.9,107,2,88,0)="    CITY: PLANO <RET>"
^XMB(3.9,107,2,89,0)="""BLD"",4582,1,40,0)"
^XMB(3.9,107,2,90,0)="    STATE: TEXAS <RET>"
^XMB(3.9,107,2,91,0)="""BLD"",4582,1,41,0)"
^XMB(3.9,107,2,92,0)="    ZIP+4: 75024 <RET>"
^XMB(3.9,107,2,93,0)="""BLD"",4582,1,42,0)"
^XMB(3.9,107,2,94,0)="    COUNTY: COLLIN <RET>"
^XMB(3.9,107,2,95,0)="""BLD"",4582,1,43,0)"
^XMB(3.9,107,2,96,0)="         1   COLLIN       085"
^XMB(3.9,107,2,97,0)="""BLD"",4582,1,44,0)"
^XMB(3.9,107,2,98,0)="         2   COLLINGSWORTH       087"
^XMB(3.9,107,2,99,0)="""BLD"",4582,1,45,0)"
^XMB(3.9,107,2,100,0)="    CHOOSE 1-2: 1 <RET>  COLLIN     085"
^XMB(3.9,107,2,101,0)="""BLD"",4582,1,46,0)"
^XMB(3.9,107,2,102,0)="    PHONE NUMBER [RESIDENCE]: 972-555-1234 <RET>"
^XMB(3.9,107,2,103,0)="""BLD"",4582,1,47,0)"
^XMB(3.9,107,2,104,0)="    CNH CURRENT:"
^XMB(3.9,107,2,105,0)="""BLD"",4582,1,48,0)"
^XMB(3.9,107,2,106,0)="     :           :            :            :"
^XMB(3.9,107,2,107,0)="""BLD"",4582,1,49,0)"
^XMB(3.9,107,2,108,0)="     :           :            :            :"
^XMB(3.9,107,2,109,0)="""BLD"",4582,1,50,0)"
^XMB(3.9,107,2,110,0)=" "
^XMB(3.9,107,2,111,0)="""BLD"",4582,1,51,0)"
^XMB(3.9,107,2,112,0)="    AFTER THIS PATCH:"
^XMB(3.9,107,2,113,0)="""BLD"",4582,1,52,0)"
^XMB(3.9,107,2,114,0)="    ================"
^XMB(3.9,107,2,115,0)="""BLD"",4582,1,53,0)"
^XMB(3.9,107,2,116,0)="     :           :            :            :"
^XMB(3.9,107,2,117,0)="""BLD"",4582,1,54,0)"
^XMB(3.9,107,2,118,0)="     :           :            :            :"
^XMB(3.9,107,2,119,0)="""BLD"",4582,1,55,0)"
^XMB(3.9,107,2,120,0)="    Do you want to update the Permanent address/phone? NO// YES"
^XMB(3.9,107,2,121,0)="""BLD"",4582,1,56,0)"
^XMB(3.9,107,2,122,0)="    STREET ADDRESS [LINE 1]: 123 FAKE ST <RET>"
^XMB(3.9,107,2,123,0)="""BLD"",4582,1,57,0)"
^XMB(3.9,107,2,124,0)="    STREET ADDRESS [LINE 2]: <RET>"
^XMB(3.9,107,2,125,0)="""BLD"",4582,1,58,0)"
^XMB(3.9,107,2,126,0)="    ZIP+4: 75024 <RET>"
^XMB(3.9,107,2,127,0)="""BLD"",4582,1,59,0)"
^XMB(3.9,107,2,128,0)=" "
^XMB(3.9,107,2,129,0)="""BLD"",4582,1,60,0)"
^XMB(3.9,107,2,130,0)="         Select one of the following:"
^XMB(3.9,107,2,131,0)="""BLD"",4582,1,61,0)"
^XMB(3.9,107,2,132,0)=" "
^XMB(3.9,107,2,133,0)="""BLD"",4582,1,62,0)"
^XMB(3.9,107,2,134,0)="              1         PLANO*"
^XMB(3.9,107,2,135,0)="""BLD"",4582,1,63,0)"
^XMB(3.9,107,2,136,0)="              99        FREE TEXT"
^XMB(3.9,107,2,137,0)="""BLD"",4582,1,64,0)"
^XMB(3.9,107,2,138,0)=" "
^XMB(3.9,107,2,139,0)="""BLD"",4582,1,65,0)"
^XMB(3.9,107,2,140,0)="    CITY: // 1  <RET> PLANO*"
^XMB(3.9,107,2,141,0)="""BLD"",4582,1,66,0)"
^XMB(3.9,107,2,142,0)="    STATE: TEXAS <DISPLAY>"
^XMB(3.9,107,2,143,0)="""BLD"",4582,1,67,0)"
^XMB(3.9,107,2,144,0)="    COUNTY: COLLIN <DISPLAY>"
^XMB(3.9,107,2,145,0)="""BLD"",4582,1,68,0)"
^XMB(3.9,107,2,146,0)="    PHONE NUMBER [RESIDENCE]: 972-555-1234 <RET>"
^XMB(3.9,107,2,147,0)="""BLD"",4582,1,69,0)"
^XMB(3.9,107,2,148,0)="    PHONE NUMBER [WORK]: 972-555-4321 <RET>"
^XMB(3.9,107,2,149,0)="""BLD"",4582,1,70,0)"
^XMB(3.9,107,2,150,0)="    BAD ADDRESS INDICATOR: ? <RET>"
^XMB(3.9,107,2,151,0)="""BLD"",4582,1,71,0)"
^XMB(3.9,107,2,152,0)=" "
^XMB(3.9,107,2,153,0)="""BLD"",4582,1,72,0)"
^XMB(3.9,107,2,154,0)="    Please enter 1 if the address is 'UNDELIVERABLE', 2 if the patient"
^XMB(3.9,107,2,155,0)="""BLD"",4582,1,73,0)"
^XMB(3.9,107,2,156,0)="    is 'HOMELESS', or 3 for 'OTHER' bad address reasons."
^XMB(3.9,107,2,157,0)="""BLD"",4582,1,74,0)"
^XMB(3.9,107,2,158,0)="    Choose from: "
^XMB(3.9,107,2,159,0)="""BLD"",4582,1,75,0)"
^XMB(3.9,107,2,160,0)="    1        UNDELIVERABLE"
^XMB(3.9,107,2,161,0)="""BLD"",4582,1,76,0)"
^XMB(3.9,107,2,162,0)="    2        HOMELESS"
^XMB(3.9,107,2,163,0)="""BLD"",4582,1,77,0)"
^XMB(3.9,107,2,164,0)="    3        OTHER"
^XMB(3.9,107,2,165,0)="""BLD"",4582,1,78,0)"
^XMB(3.9,107,2,166,0)=" "
^XMB(3.9,107,2,167,0)="""BLD"",4582,1,79,0)"
^XMB(3.9,107,2,168,0)=" "
^XMB(3.9,107,2,169,0)="""BLD"",4582,1,80,0)"
^XMB(3.9,107,2,170,0)="    BAD ADDRESS INDICATOR:  <RET>"
^XMB(3.9,107,2,171,0)="""BLD"",4582,1,81,0)"
^XMB(3.9,107,2,172,0)="    Are you sure that you want to save the above changes? NO// YES <RET>"
^XMB(3.9,107,2,173,0)="""BLD"",4582,1,82,0)"
^XMB(3.9,107,2,174,0)="    Change saved."
^XMB(3.9,107,2,175,0)="""BLD"",4582,1,83,0)"
^XMB(3.9,107,2,176,0)=" "
^XMB(3.9,107,2,177,0)="""BLD"",4582,1,84,0)"
^XMB(3.9,107,2,178,0)="    CNH CURRENT:"
^XMB(3.9,107,2,179,0)="""BLD"",4582,1,85,0)"
^XMB(3.9,107,2,180,0)="     :           :            :            :"
^XMB(3.9,107,2,181,0)="""BLD"",4582,1,86,0)"
^XMB(3.9,107,2,182,0)="     :           :            :            :"
^XMB(3.9,107,2,183,0)="""BLD"",4582,1,87,0)"
^XMB(3.9,107,2,184,0)=" "
^XMB(3.9,107,2,185,0)="""BLD"",4582,1,88,0)"
^XMB(3.9,107,2,186,0)=" "
^XMB(3.9,107,2,187,0)="""BLD"",4582,1,89,0)"
^XMB(3.9,107,2,188,0)="    NOTES:"
^XMB(3.9,107,2,189,0)="""BLD"",4582,1,90,0)"
^XMB(3.9,107,2,190,0)="    ====="
^XMB(3.9,107,2,191,0)="""BLD"",4582,1,91,0)"
^XMB(3.9,107,2,192,0)="    1) Multiple "":""'s above indicate that other fields have been "
^XMB(3.9,107,2,193,0)="""BLD"",4582,1,92,0)"
^XMB(3.9,107,2,194,0)="       suppressed to abbreviate the example."
^XMB(3.9,107,2,195,0)="""BLD"",4582,1,93,0)"
^XMB(3.9,107,2,196,0)="    2) <RET> indicates the <RETURN> key."
^XMB(3.9,107,2,197,0)="""BLD"",4582,1,94,0)"
^XMB(3.9,107,2,198,0)="    3) <DISPLAY> indicates that the field was displayed and was not "
^XMB(3.9,107,2,199,0)="""BLD"",4582,1,95,0)"
^XMB(3.9,107,2,200,0)="       editable."
^XMB(3.9,107,2,201,0)="""BLD"",4582,1,96,0)"
^XMB(3.9,107,2,202,0)="    4) BAD ADDRESS INDICATOR is a new field introduced by the "
^XMB(3.9,107,2,203,0)="""BLD"",4582,1,97,0)"
^XMB(3.9,107,2,204,0)="       Registration application. For more information on this field,"
^XMB(3.9,107,2,205,0)="""BLD"",4582,1,98,0)"
^XMB(3.9,107,2,206,0)="       please refer to the documentation for that application."
^XMB(3.9,107,2,207,0)="""BLD"",4582,1,99,0)"
^XMB(3.9,107,2,208,0)=" "
^XMB(3.9,107,2,209,0)="""BLD"",4582,1,100,0)"
^XMB(3.9,107,2,210,0)="    IMPORTANT FUNCTIONALITY CHANGE:"
^XMB(3.9,107,2,211,0)="""BLD"",4582,1,101,0)"
^XMB(3.9,107,2,212,0)="    =============================="
^XMB(3.9,107,2,213,0)="""BLD"",4582,1,102,0)"
^XMB(3.9,107,2,214,0)="    - A new prompt ""Do you want to update the Permanent address/phone?"
^XMB(3.9,107,2,215,0)="""BLD"",4582,1,103,0)"
^XMB(3.9,107,2,216,0)="      //N"" will be displayed before editing the permanent address/phone"
^XMB(3.9,107,2,217,0)="""BLD"",4582,1,104,0)"
^XMB(3.9,107,2,218,0)="      information to give the user a chance to skip it. If the user"
^XMB(3.9,107,2,219,0)="""BLD"",4582,1,105,0)"
^XMB(3.9,107,2,220,0)="      responds with ""N"", the control will go to the CNH CURRENT field"
^XMB(3.9,107,2,221,0)="""BLD"",4582,1,106,0)"
^XMB(3.9,107,2,222,0)="      prompt. Otherwise, the user will go through editing the"
^XMB(3.9,107,2,223,0)="""BLD"",4582,1,107,0)"
^XMB(3.9,107,2,224,0)="      address/phone information fields."
^XMB(3.9,107,2,225,0)="""BLD"",4582,1,108,0)"
^XMB(3.9,107,2,226,0)=" "
^XMB(3.9,107,2,227,0)="""BLD"",4582,1,109,0)"
^XMB(3.9,107,2,228,0)="    - When entering a new or updating an existing patient permanent"
^XMB(3.9,107,2,229,0)="""BLD"",4582,1,110,0)"
^XMB(3.9,107,2,230,0)="      address, the information is not saved to the database until the"
^XMB(3.9,107,2,231,0)="""BLD"",4582,1,111,0)"
^XMB(3.9,107,2,232,0)="      prompt above ""Are you sure that you want to save the above changes?"""
^XMB(3.9,107,2,233,0)="""BLD"",4582,1,112,0)"
^XMB(3.9,107,2,234,0)="      is answered YES. If the application times out or an '^' (up-arrow)"
^XMB(3.9,107,2,235,0)="""BLD"",4582,1,113,0)"
^XMB(3.9,107,2,236,0)="      is entered in any of the permanent address fields above, the changes"
^XMB(3.9,107,2,237,0)="""BLD"",4582,1,114,0)"
^XMB(3.9,107,2,238,0)="      are NOT saved."
^XMB(3.9,107,2,239,0)="""BLD"",4582,4,0)"
^XMB(3.9,107,2,240,0)="^9.64PA^^"
^XMB(3.9,107,2,241,0)="""BLD"",4582,""KRN"",0)"
^XMB(3.9,107,2,242,0)="^9.67PA^8989.52^19"
^XMB(3.9,107,2,243,0)="""BLD"",4582,""KRN"",.4,0)"
^XMB(3.9,107,2,244,0)=".4"
^XMB(3.9,107,2,245,0)="""BLD"",4582,""KRN"",.401,0)"
^XMB(3.9,107,2,246,0)=".401"
^XMB(3.9,107,2,247,0)="""BLD"",4582,""KRN"",.402,0)"
^XMB(3.9,107,2,248,0)=".402"
^XMB(3.9,107,2,249,0)="""BLD"",4582,""KRN"",.402,""NM"",0)"
^XMB(3.9,107,2,250,0)="^9.68A^1^1"
^XMB(3.9,107,2,251,0)="""BLD"",4582,""KRN"",.402,""NM"",1,0)"
^XMB(3.9,107,2,252,0)="PSO OUTPT    FILE #2^2^0"
^XMB(3.9,107,2,253,0)="""BLD"",4582,""KRN"",.402,""NM"",""B"",""PSO OUTPT    FILE #2"",1)"
^XMB(3.9,107,2,254,0)=""
^XMB(3.9,107,2,255,0)="""BLD"",4582,""KRN"",.403,0)"
^XMB(3.9,107,2,256,0)=".403"
^XMB(3.9,107,2,257,0)="""BLD"",4582,""KRN"",.5,0)"
^XMB(3.9,107,2,258,0)=".5"
^XMB(3.9,107,2,259,0)="""BLD"",4582,""KRN"",.84,0)"
^XMB(3.9,107,2,260,0)=".84"
^XMB(3.9,107,2,261,0)="""BLD"",4582,""KRN"",3.6,0)"
^XMB(3.9,107,2,262,0)="3.6"
^XMB(3.9,107,2,263,0)="""BLD"",4582,""KRN"",3.8,0)"
^XMB(3.9,107,2,264,0)="3.8"
^XMB(3.9,107,2,265,0)="""BLD"",4582,""KRN"",9.2,0)"
^XMB(3.9,107,2,266,0)="9.2"
^XMB(3.9,107,2,267,0)="""BLD"",4582,""KRN"",9.8,0)"
^XMB(3.9,107,2,268,0)="9.8"
^XMB(3.9,107,2,269,0)="""BLD"",4582,""KRN"",9.8,""NM"",0)"
^XMB(3.9,107,2,270,0)="^9.68A^2^2"
^XMB(3.9,107,2,271,0)="""BLD"",4582,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,107,2,272,0)="PSOLMPAT^^0^B3678258"
^XMB(3.9,107,2,273,0)="""BLD"",4582,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,107,2,274,0)="PSOPAT^^0^B5159102"
^XMB(3.9,107,2,275,0)="""BLD"",4582,""KRN"",9.8,""NM"",""B"",""PSOLMPAT"",1)"
^XMB(3.9,107,2,276,0)=""
^XMB(3.9,107,2,277,0)="""BLD"",4582,""KRN"",9.8,""NM"",""B"",""PSOPAT"",2)"
^XMB(3.9,107,2,278,0)=""
^XMB(3.9,107,2,279,0)="""BLD"",4582,""KRN"",19,0)"
^XMB(3.9,107,2,280,0)="19"
^XMB(3.9,107,2,281,0)="""BLD"",4582,""KRN"",19.1,0)"
^XMB(3.9,107,2,282,0)="19.1"
^XMB(3.9,107,2,283,0)="""BLD"",4582,""KRN"",101,0)"
^XMB(3.9,107,2,284,0)="101"
^XMB(3.9,107,2,285,0)="""BLD"",4582,""KRN"",409.61,0)"
^XMB(3.9,107,2,286,0)="409.61"
^XMB(3.9,107,2,287,0)="""BLD"",4582,""KRN"",771,0)"
^XMB(3.9,107,2,288,0)="771"
^XMB(3.9,107,2,289,0)="""BLD"",4582,""KRN"",870,0)"
^XMB(3.9,107,2,290,0)="870"
^XMB(3.9,107,2,291,0)="""BLD"",4582,""KRN"",8989.51,0)"
^XMB(3.9,107,2,292,0)="8989.51"
^XMB(3.9,107,2,293,0)="""BLD"",4582,""KRN"",8989.52,0)"
^XMB(3.9,107,2,294,0)="8989.52"
^XMB(3.9,107,2,295,0)="""BLD"",4582,""KRN"",8994,0)"
^XMB(3.9,107,2,296,0)="8994"
^XMB(3.9,107,2,297,0)="""BLD"",4582,""KRN"",""B"",.4,.4)"
^XMB(3.9,107,2,298,0)=""
^XMB(3.9,107,2,299,0)="""BLD"",4582,""KRN"",""B"",.401,.401)"
^XMB(3.9,107,2,300,0)=""
^XMB(3.9,107,2,301,0)="""BLD"",4582,""KRN"",""B"",.402,.402)"
^XMB(3.9,107,2,302,0)=""
^XMB(3.9,107,2,303,0)="""BLD"",4582,""KRN"",""B"",.403,.403)"
^XMB(3.9,107,2,304,0)=""
^XMB(3.9,107,2,305,0)="""BLD"",4582,""KRN"",""B"",.5,.5)"
^XMB(3.9,107,2,306,0)=""
^XMB(3.9,107,2,307,0)="""BLD"",4582,""KRN"",""B"",.84,.84)"
^XMB(3.9,107,2,308,0)=""
^XMB(3.9,107,2,309,0)="""BLD"",4582,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,107,2,310,0)=""
^XMB(3.9,107,2,311,0)="""BLD"",4582,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,107,2,312,0)=""
^XMB(3.9,107,2,313,0)="""BLD"",4582,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,107,2,314,0)=""
^XMB(3.9,107,2,315,0)="""BLD"",4582,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,107,2,316,0)=""
^XMB(3.9,107,2,317,0)="""BLD"",4582,""KRN"",""B"",19,19)"
^XMB(3.9,107,2,318,0)=""
^XMB(3.9,107,2,319,0)="""BLD"",4582,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,107,2,320,0)=""
^XMB(3.9,107,2,321,0)="""BLD"",4582,""KRN"",""B"",101,101)"
^XMB(3.9,107,2,322,0)=""
^XMB(3.9,107,2,323,0)="""BLD"",4582,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,107,2,324,0)=""
^XMB(3.9,107,2,325,0)="""BLD"",4582,""KRN"",""B"",771,771)"
^XMB(3.9,107,2,326,0)=""
^XMB(3.9,107,2,327,0)="""BLD"",4582,""KRN"",""B"",870,870)"
^XMB(3.9,107,2,328,0)=""
^XMB(3.9,107,2,329,0)="""BLD"",4582,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,107,2,330,0)=""
^XMB(3.9,107,2,331,0)="""BLD"",4582,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,107,2,332,0)=""
^XMB(3.9,107,2,333,0)="""BLD"",4582,""KRN"",""B"",8994,8994)"
^XMB(3.9,107,2,334,0)=""
^XMB(3.9,107,2,335,0)="""BLD"",4582,""QUES"",0)"
^XMB(3.9,107,2,336,0)="^9.62^^"
^XMB(3.9,107,2,337,0)="""BLD"",4582,""REQB"",0)"
^XMB(3.9,107,2,338,0)="^9.611^2^2"
^XMB(3.9,107,2,339,0)="""BLD"",4582,""REQB"",1,0)"
^XMB(3.9,107,2,340,0)="PSO*7.0*117^2"
^XMB(3.9,107,2,341,0)="""BLD"",4582,""REQB"",2,0)"
^XMB(3.9,107,2,342,0)="DG*5.3*522^2"
^XMB(3.9,107,2,343,0)="""BLD"",4582,""REQB"",""B"",""DG*5.3*522"",2)"
^XMB(3.9,107,2,344,0)=""
^XMB(3.9,107,2,345,0)="""BLD"",4582,""REQB"",""B"",""PSO*7.0*117"",1)"
^XMB(3.9,107,2,346,0)=""
^XMB(3.9,107,2,347,0)="""KRN"",.402,504,-1)"
^XMB(3.9,107,2,348,0)="0^1"
^XMB(3.9,107,2,349,0)="""KRN"",.402,504,0)"
^XMB(3.9,107,2,350,0)="PSO OUTPT^3030821.123^^2^^^3060210"
^XMB(3.9,107,2,351,0)="""KRN"",.402,504,""DR"",1,2)"
^XMB(3.9,107,2,352,0)="148;.172;.12105;S:X'=""Y"" Y=""@53"";.1211;S:X="""" Y=""@53"";.1212;.1213;.1219;.1214;.1215;.12112;.12111;.1217;.1218;@53;.091;"
^XMB(3.9,107,2,353,0)="""MBREQ"")"
^XMB(3.9,107,2,354,0)="0"
^XMB(3.9,107,2,355,0)="""ORD"",7,.402)"
^XMB(3.9,107,2,356,0)=".402;7;;;EDEOUT^DIFROMSO(.402,DA,"""",XPDA);FPRE^DIFROMSI(.402,"""",XPDA);EPRE^DIFROMSI(.402,DA,$E(""N"",$G(XPDNEW)),XPDA,"""",OLDA);;EPOST^DIFROMSI(.402,DA,"""",XPDA);DEL^DIFROMSK(.402,"""",%)"
^XMB(3.9,107,2,357,0)="""ORD"",7,.402,0)"
^XMB(3.9,107,2,358,0)="INPUT TEMPLATE"
^XMB(3.9,107,2,359,0)="""PKG"",141,-1)"
^XMB(3.9,107,2,360,0)="1^1"
^XMB(3.9,107,2,361,0)="""PKG"",141,0)"
^XMB(3.9,107,2,362,0)="OUTPATIENT PHARMACY^PSO^OUTPATIENT LABELS, PROFILE, INVENTORY, PRESCRIPTIONS"
^XMB(3.9,107,2,363,0)="""PKG"",141,20,0)"
^XMB(3.9,107,2,364,0)="^9.402P^^"
^XMB(3.9,107,2,365,0)="""PKG"",141,22,0)"
^XMB(3.9,107,2,366,0)="^9.49I^1^1"
^XMB(3.9,107,2,367,0)="""PKG"",141,22,1,0)"
^XMB(3.9,107,2,368,0)="7.0^2971216^2980917^11712"
^XMB(3.9,107,2,369,0)="""PKG"",141,22,1,""PAH"",1,0)"
^XMB(3.9,107,2,370,0)="149^3060213^10000000058"
^XMB(3.9,107,2,371,0)="""PKG"",141,22,1,""PAH"",1,1,0)"
^XMB(3.9,107,2,372,0)="^^114^114^3060213"
^XMB(3.9,107,2,373,0)="""PKG"",141,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,107,2,374,0)="The Registration application has released enhancements designed to"
^XMB(3.9,107,2,375,0)="""PKG"",141,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,107,2,376,0)="provide a more accurate and cleaner update of the patient address. One"
^XMB(3.9,107,2,377,0)="""PKG"",141,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,107,2,378,0)="of the things included in the enhancements is the automatic population"
^XMB(3.9,107,2,379,0)="""PKG"",141,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,107,2,380,0)="of city, state, and county based on entry of a zip code. For more"
^XMB(3.9,107,2,381,0)="""PKG"",141,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,107,2,382,0)="detailed information about this and the other enhancements recently "
^XMB(3.9,107,2,383,0)="""PKG"",141,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,107,2,384,0)="released by the Registration application, please refer to the patch "
^XMB(3.9,107,2,385,0)="""PKG"",141,22,1,""PAH"",1,1,7,0)"
^XMB(3.9,107,2,386,0)="description of DG*5.3*522."
^XMB(3.9,107,2,387,0)="""PKG"",141,22,1,""PAH"",1,1,8,0)"
^XMB(3.9,107,2,388,0)="  "
^XMB(3.9,107,2,389,0)="""PKG"",141,22,1,""PAH"",1,1,9,0)"
^XMB(3.9,107,2,390,0)="This patch is responsible for updating Outpatient Pharmacy with the new"
^XMB(3.9,107,2,391,0)="""PKG"",141,22,1,""PAH"",1,1,10,0)"
^XMB(3.9,107,2,392,0)="functionality made available by the Registration application. More"
^XMB(3.9,107,2,393,0)="""PKG"",141,22,1,""PAH"",1,1,11,0)"
^XMB(3.9,107,2,394,0)="specifically, the update of the patient permanent address through the"
^XMB(3.9,107,2,395,0)="""PKG"",141,22,1,""PAH"",1,1,12,0)"
^XMB(3.9,107,2,396,0)="Outpatient Pharmacy application will be enhanced with the new "
^XMB(3.9,107,2,397,0)="""PKG"",141,22,1,""PAH"",1,1,13,0)"
^XMB(3.9,107,2,398,0)="functionality that was recently released by the Registration application"
^XMB(3.9,107,2,399,0)="""PKG"",141,22,1,""PAH"",1,1,14,0)"
^XMB(3.9,107,2,400,0)="with the patch DG*5.3*522."
^XMB(3.9,107,2,401,0)="""PKG"",141,22,1,""PAH"",1,1,15,0)"
^XMB(3.9,107,2,402,0)=" "
^XMB(3.9,107,2,403,0)="""PKG"",141,22,1,""PAH"",1,1,16,0)"
^XMB(3.9,107,2,404,0)="For sites that have patch IVM*2*108 installed, the address history will"
^XMB(3.9,107,2,405,0)="""PKG"",141,22,1,""PAH"",1,1,17,0)"
^XMB(3.9,107,2,406,0)="captured in the IVM ADDRESS UPDATE LOG File (#301.7)."
^XMB(3.9,107,2,407,0)="""PKG"",141,22,1,""PAH"",1,1,18,0)"
^XMB(3.9,107,2,408,0)=" "
^XMB(3.9,107,2,409,0)="""PKG"",141,22,1,""PAH"",1,1,19,0)"
^XMB(3.9,107,2,410,0)="Two places in the Outpatient Pharmacy application will be affected by"
^XMB(3.9,107,2,411,0)="""PKG"",141,22,1,""PAH"",1,1,20,0)"
^XMB(3.9,107,2,412,0)="this change:"
^XMB(3.9,107,2,413,0)="""PKG"",141,22,1,""PAH"",1,1,21,0)"
^XMB(3.9,107,2,414,0)=" "
^XMB(3.9,107,2,415,0)="""PKG"",141,22,1,""PAH"",1,1,22,0)"
^XMB(3.9,107,2,416,0)=" 1) Menu option: Update Patient Record    [PSO PAT]"
^XMB(3.9,107,2,417,0)="""PKG"",141,22,1,""PAH"",1,1,23,0)"
^XMB(3.9,107,2,418,0)=" 2) Patient Information screen, option PU - Patient Record Update"
^XMB(3.9,107,2,419,0)="""PKG"",141,22,1,""PAH"",1,1,24,0)"
^XMB(3.9,107,2,420,0)=" "
^XMB(3.9,107,2,421,0)="""PKG"",141,22,1,""PAH"",1,1,25,0)"
^XMB(3.9,107,2,422,0)=" Note: The Patient Information screen can be reached through the menu "
^XMB(3.9,107,2,423,0)="""PKG"",141,22,1,""PAH"",1,1,26,0)"
^XMB(3.9,107,2,424,0)="       options Patient Prescription Processing [PSO LM BACKDOOR ORDERS]"
^XMB(3.9,107,2,425,0)="""PKG"",141,22,1,""PAH"",1,1,27,0)"
^XMB(3.9,107,2,426,0)="       and Complete Orders from OERR [PSO LMOE FINISH]."
^XMB(3.9,107,2,427,0)="""PKG"",141,22,1,""PAH"",1,1,28,0)"
^XMB(3.9,107,2,428,0)=" "
^XMB(3.9,107,2,429,0)="""PKG"",141,22,1,""PAH"",1,1,29,0)"
^XMB(3.9,107,2,430,0)="The examples below show how the patient permanent address edit was before"
^XMB(3.9,107,2,431,0)="""PKG"",141,22,1,""PAH"",1,1,30,0)"
^XMB(3.9,107,2,432,0)="and how it is going to be changed after this patch is installed:"
^XMB(3.9,107,2,433,0)="""PKG"",141,22,1,""PAH"",1,1,31,0)"
^XMB(3.9,107,2,434,0)="  "
^XMB(3.9,107,2,435,0)="""PKG"",141,22,1,""PAH"",1,1,32,0)"
^XMB(3.9,107,2,436,0)="    BEFORE THIS PATCH:"
^XMB(3.9,107,2,437,0)="""PKG"",141,22,1,""PAH"",1,1,33,0)"
^XMB(3.9,107,2,438,0)="    ================="
^XMB(3.9,107,2,439,0)="""PKG"",141,22,1,""PAH"",1,1,34,0)"
^XMB(3.9,107,2,440,0)="     :           :            :            :"
^XMB(3.9,107,2,441,0)="""PKG"",141,22,1,""PAH"",1,1,35,0)"
^XMB(3.9,107,2,442,0)="     :           :            :            :"
^XMB(3.9,107,2,443,0)="""PKG"",141,22,1,""PAH"",1,1,36,0)"
^XMB(3.9,107,2,444,0)="    STREET ADDRESS [LINE 1]: 123 FAKE ST <RET>"
^XMB(3.9,107,2,445,0)="""PKG"",141,22,1,""PAH"",1,1,37,0)"
^XMB(3.9,107,2,446,0)="    STREET ADDRESS [LINE 2]: <RET>"
^XMB(3.9,107,2,447,0)="""PKG"",141,22,1,""PAH"",1,1,38,0)"
^XMB(3.9,107,2,448,0)="    STREET ADDRESS [LINE 3]: <RET>"
^XMB(3.9,107,2,449,0)="""PKG"",141,22,1,""PAH"",1,1,39,0)"
^XMB(3.9,107,2,450,0)="    CITY: PLANO <RET>"
^XMB(3.9,107,2,451,0)="""PKG"",141,22,1,""PAH"",1,1,40,0)"
^XMB(3.9,107,2,452,0)="    STATE: TEXAS <RET>"
^XMB(3.9,107,2,453,0)="""PKG"",141,22,1,""PAH"",1,1,41,0)"
^XMB(3.9,107,2,454,0)="    ZIP+4: 75024 <RET>"
^XMB(3.9,107,2,455,0)="""PKG"",141,22,1,""PAH"",1,1,42,0)"
^XMB(3.9,107,2,456,0)="    COUNTY: COLLIN <RET>"
^XMB(3.9,107,2,457,0)="""PKG"",141,22,1,""PAH"",1,1,43,0)"
^XMB(3.9,107,2,458,0)="         1   COLLIN       085"
^XMB(3.9,107,2,459,0)="""PKG"",141,22,1,""PAH"",1,1,44,0)"
^XMB(3.9,107,2,460,0)="         2   COLLINGSWORTH       087"
^XMB(3.9,107,2,461,0)="""PKG"",141,22,1,""PAH"",1,1,45,0)"
^XMB(3.9,107,2,462,0)="    CHOOSE 1-2: 1 <RET>  COLLIN     085"
^XMB(3.9,107,2,463,0)="""PKG"",141,22,1,""PAH"",1,1,46,0)"
^XMB(3.9,107,2,464,0)="    PHONE NUMBER [RESIDENCE]: 972-555-1234 <RET>"
^XMB(3.9,107,2,465,0)="""PKG"",141,22,1,""PAH"",1,1,47,0)"
^XMB(3.9,107,2,466,0)="    CNH CURRENT:"
^XMB(3.9,107,2,467,0)="""PKG"",141,22,1,""PAH"",1,1,48,0)"
^XMB(3.9,107,2,468,0)="     :           :            :            :"
^XMB(3.9,107,2,469,0)="""PKG"",141,22,1,""PAH"",1,1,49,0)"
^XMB(3.9,107,2,470,0)="     :           :            :            :"
^XMB(3.9,107,2,471,0)="""PKG"",141,22,1,""PAH"",1,1,50,0)"
^XMB(3.9,107,2,472,0)=" "
^XMB(3.9,107,2,473,0)="""PKG"",141,22,1,""PAH"",1,1,51,0)"
^XMB(3.9,107,2,474,0)="    AFTER THIS PATCH:"
^XMB(3.9,107,2,475,0)="""PKG"",141,22,1,""PAH"",1,1,52,0)"
^XMB(3.9,107,2,476,0)="    ================"
^XMB(3.9,107,2,477,0)="""PKG"",141,22,1,""PAH"",1,1,53,0)"
^XMB(3.9,107,2,478,0)="     :           :            :            :"
^XMB(3.9,107,2,479,0)="""PKG"",141,22,1,""PAH"",1,1,54,0)"
^XMB(3.9,107,2,480,0)="     :           :            :            :"
^XMB(3.9,107,2,481,0)="""PKG"",141,22,1,""PAH"",1,1,55,0)"
^XMB(3.9,107,2,482,0)="    Do you want to update the Permanent address/phone? NO// YES"
^XMB(3.9,107,2,483,0)="""PKG"",141,22,1,""PAH"",1,1,56,0)"
^XMB(3.9,107,2,484,0)="    STREET ADDRESS [LINE 1]: 123 FAKE ST <RET>"
^XMB(3.9,107,2,485,0)="""PKG"",141,22,1,""PAH"",1,1,57,0)"
^XMB(3.9,107,2,486,0)="    STREET ADDRESS [LINE 2]: <RET>"
^XMB(3.9,107,2,487,0)="""PKG"",141,22,1,""PAH"",1,1,58,0)"
^XMB(3.9,107,2,488,0)="    ZIP+4: 75024 <RET>"
^XMB(3.9,107,2,489,0)="""PKG"",141,22,1,""PAH"",1,1,59,0)"
^XMB(3.9,107,2,490,0)=" "
^XMB(3.9,107,2,491,0)="""PKG"",141,22,1,""PAH"",1,1,60,0)"
^XMB(3.9,107,2,492,0)="         Select one of the following:"
^XMB(3.9,107,2,493,0)="""PKG"",141,22,1,""PAH"",1,1,61,0)"
^XMB(3.9,107,2,494,0)=" "
^XMB(3.9,107,2,495,0)="""PKG"",141,22,1,""PAH"",1,1,62,0)"
^XMB(3.9,107,2,496,0)="              1         PLANO*"
^XMB(3.9,107,2,497,0)="""PKG"",141,22,1,""PAH"",1,1,63,0)"
^XMB(3.9,107,2,498,0)="              99        FREE TEXT"
^XMB(3.9,107,2,499,0)="""PKG"",141,22,1,""PAH"",1,1,64,0)"
^XMB(3.9,107,2,500,0)=" "
^XMB(3.9,107,2,501,0)="""PKG"",141,22,1,""PAH"",1,1,65,0)"
^XMB(3.9,107,2,502,0)="    CITY: // 1  <RET> PLANO*"
^XMB(3.9,107,2,503,0)="""PKG"",141,22,1,""PAH"",1,1,66,0)"
^XMB(3.9,107,2,504,0)="    STATE: TEXAS <DISPLAY>"
^XMB(3.9,107,2,505,0)="""PKG"",141,22,1,""PAH"",1,1,67,0)"
^XMB(3.9,107,2,506,0)="    COUNTY: COLLIN <DISPLAY>"
^XMB(3.9,107,2,507,0)="""PKG"",141,22,1,""PAH"",1,1,68,0)"
^XMB(3.9,107,2,508,0)="    PHONE NUMBER [RESIDENCE]: 972-555-1234 <RET>"
^XMB(3.9,107,2,509,0)="""PKG"",141,22,1,""PAH"",1,1,69,0)"
^XMB(3.9,107,2,510,0)="    PHONE NUMBER [WORK]: 972-555-4321 <RET>"
^XMB(3.9,107,2,511,0)="""PKG"",141,22,1,""PAH"",1,1,70,0)"
^XMB(3.9,107,2,512,0)="    BAD ADDRESS INDICATOR: ? <RET>"
^XMB(3.9,107,2,513,0)="""PKG"",141,22,1,""PAH"",1,1,71,0)"
^XMB(3.9,107,2,514,0)=" "
^XMB(3.9,107,2,515,0)="""PKG"",141,22,1,""PAH"",1,1,72,0)"
^XMB(3.9,107,2,516,0)="    Please enter 1 if the address is 'UNDELIVERABLE', 2 if the patient"
^XMB(3.9,107,2,517,0)="""PKG"",141,22,1,""PAH"",1,1,73,0)"
^XMB(3.9,107,2,518,0)="    is 'HOMELESS', or 3 for 'OTHER' bad address reasons."
^XMB(3.9,107,2,519,0)="""PKG"",141,22,1,""PAH"",1,1,74,0)"
^XMB(3.9,107,2,520,0)="    Choose from: "
^XMB(3.9,107,2,521,0)="""PKG"",141,22,1,""PAH"",1,1,75,0)"
^XMB(3.9,107,2,522,0)="    1        UNDELIVERABLE"
^XMB(3.9,107,2,523,0)="""PKG"",141,22,1,""PAH"",1,1,76,0)"
^XMB(3.9,107,2,524,0)="    2        HOMELESS"
^XMB(3.9,107,2,525,0)="""PKG"",141,22,1,""PAH"",1,1,77,0)"
^XMB(3.9,107,2,526,0)="    3        OTHER"
^XMB(3.9,107,2,527,0)="""PKG"",141,22,1,""PAH"",1,1,78,0)"
^XMB(3.9,107,2,528,0)=" "
^XMB(3.9,107,2,529,0)="""PKG"",141,22,1,""PAH"",1,1,79,0)"
^XMB(3.9,107,2,530,0)=" "
^XMB(3.9,107,2,531,0)="""PKG"",141,22,1,""PAH"",1,1,80,0)"
^XMB(3.9,107,2,532,0)="    BAD ADDRESS INDICATOR:  <RET>"
^XMB(3.9,107,2,533,0)="""PKG"",141,22,1,""PAH"",1,1,81,0)"
^XMB(3.9,107,2,534,0)="    Are you sure that you want to save the above changes? NO// YES <RET>"
^XMB(3.9,107,2,535,0)="""PKG"",141,22,1,""PAH"",1,1,82,0)"
^XMB(3.9,107,2,536,0)="    Change saved."
^XMB(3.9,107,2,537,0)="""PKG"",141,22,1,""PAH"",1,1,83,0)"
^XMB(3.9,107,2,538,0)=" "
^XMB(3.9,107,2,539,0)="""PKG"",141,22,1,""PAH"",1,1,84,0)"
^XMB(3.9,107,2,540,0)="    CNH CURRENT:"
^XMB(3.9,107,2,541,0)="""PKG"",141,22,1,""PAH"",1,1,85,0)"
^XMB(3.9,107,2,542,0)="     :           :            :            :"
^XMB(3.9,107,2,543,0)="""PKG"",141,22,1,""PAH"",1,1,86,0)"
^XMB(3.9,107,2,544,0)="     :           :            :            :"
^XMB(3.9,107,2,545,0)="""PKG"",141,22,1,""PAH"",1,1,87,0)"
^XMB(3.9,107,2,546,0)=" "
^XMB(3.9,107,2,547,0)="""PKG"",141,22,1,""PAH"",1,1,88,0)"
^XMB(3.9,107,2,548,0)=" "
^XMB(3.9,107,2,549,0)="""PKG"",141,22,1,""PAH"",1,1,89,0)"
^XMB(3.9,107,2,550,0)="    NOTES:"
^XMB(3.9,107,2,551,0)="""PKG"",141,22,1,""PAH"",1,1,90,0)"
^XMB(3.9,107,2,552,0)="    ====="
^XMB(3.9,107,2,553,0)="""PKG"",141,22,1,""PAH"",1,1,91,0)"
^XMB(3.9,107,2,554,0)="    1) Multiple "":""'s above indicate that other fields have been "
^XMB(3.9,107,2,555,0)="""PKG"",141,22,1,""PAH"",1,1,92,0)"
^XMB(3.9,107,2,556,0)="       suppressed to abbreviate the example."
^XMB(3.9,107,2,557,0)="""PKG"",141,22,1,""PAH"",1,1,93,0)"
^XMB(3.9,107,2,558,0)="    2) <RET> indicates the <RETURN> key."
^XMB(3.9,107,2,559,0)="""PKG"",141,22,1,""PAH"",1,1,94,0)"
^XMB(3.9,107,2,560,0)="    3) <DISPLAY> indicates that the field was displayed and was not "
^XMB(3.9,107,2,561,0)="""PKG"",141,22,1,""PAH"",1,1,95,0)"
^XMB(3.9,107,2,562,0)="       editable."
^XMB(3.9,107,2,563,0)="""PKG"",141,22,1,""PAH"",1,1,96,0)"
^XMB(3.9,107,2,564,0)="    4) BAD ADDRESS INDICATOR is a new field introduced by the "
^XMB(3.9,107,2,565,0)="""PKG"",141,22,1,""PAH"",1,1,97,0)"
^XMB(3.9,107,2,566,0)="       Registration application. For more information on this field,"
^XMB(3.9,107,2,567,0)="""PKG"",141,22,1,""PAH"",1,1,98,0)"
^XMB(3.9,107,2,568,0)="       please refer to the documentation for that application."
^XMB(3.9,107,2,569,0)="""PKG"",141,22,1,""PAH"",1,1,99,0)"
^XMB(3.9,107,2,570,0)=" "
^XMB(3.9,107,2,571,0)="""PKG"",141,22,1,""PAH"",1,1,100,0)"
^XMB(3.9,107,2,572,0)="    IMPORTANT FUNCTIONALITY CHANGE:"
^XMB(3.9,107,2,573,0)="""PKG"",141,22,1,""PAH"",1,1,101,0)"
^XMB(3.9,107,2,574,0)="    =============================="
^XMB(3.9,107,2,575,0)="""PKG"",141,22,1,""PAH"",1,1,102,0)"
^XMB(3.9,107,2,576,0)="    - A new prompt ""Do you want to update the Permanent address/phone?"
^XMB(3.9,107,2,577,0)="""PKG"",141,22,1,""PAH"",1,1,103,0)"
^XMB(3.9,107,2,578,0)="      //N"" will be displayed before editing the permanent address/phone"
^XMB(3.9,107,2,579,0)="""PKG"",141,22,1,""PAH"",1,1,104,0)"
^XMB(3.9,107,2,580,0)="      information to give the user a chance to skip it. If the user"
^XMB(3.9,107,2,581,0)="""PKG"",141,22,1,""PAH"",1,1,105,0)"
^XMB(3.9,107,2,582,0)="      responds with ""N"", the control will go to the CNH CURRENT field"
^XMB(3.9,107,2,583,0)="""PKG"",141,22,1,""PAH"",1,1,106,0)"
^XMB(3.9,107,2,584,0)="      prompt. Otherwise, the user will go through editing the"
^XMB(3.9,107,2,585,0)="""PKG"",141,22,1,""PAH"",1,1,107,0)"
^XMB(3.9,107,2,586,0)="      address/phone information fields."
^XMB(3.9,107,2,587,0)="""PKG"",141,22,1,""PAH"",1,1,108,0)"
^XMB(3.9,107,2,588,0)=" "
^XMB(3.9,107,2,589,0)="""PKG"",141,22,1,""PAH"",1,1,109,0)"
^XMB(3.9,107,2,590,0)="    - When entering a new or updating an existing patient permanent"
^XMB(3.9,107,2,591,0)="""PKG"",141,22,1,""PAH"",1,1,110,0)"
^XMB(3.9,107,2,592,0)="      address, the information is not saved to the database until the"
^XMB(3.9,107,2,593,0)="""PKG"",141,22,1,""PAH"",1,1,111,0)"
^XMB(3.9,107,2,594,0)="      prompt above ""Are you sure that you want to save the above changes?"""
^XMB(3.9,107,2,595,0)="""PKG"",141,22,1,""PAH"",1,1,112,0)"
^XMB(3.9,107,2,596,0)="      is answered YES. If the application times out or an '^' (up-arrow)"
^XMB(3.9,107,2,597,0)="""PKG"",141,22,1,""PAH"",1,1,113,0)"
^XMB(3.9,107,2,598,0)="      is entered in any of the permanent address fields above, the changes"
^XMB(3.9,107,2,599,0)="""PKG"",141,22,1,""PAH"",1,1,114,0)"
^XMB(3.9,107,2,600,0)="      are NOT saved."
^XMB(3.9,107,2,601,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,107,2,602,0)="Y"
^XMB(3.9,107,2,603,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,107,2,604,0)="^D REP^XPDH"
^XMB(3.9,107,2,605,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,107,2,606,0)="Shall I write over your |FLAG| File"
^XMB(3.9,107,2,607,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,107,2,608,0)="YES"
^XMB(3.9,107,2,609,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,107,2,610,0)="D XPF1^XPDIQ"
^XMB(3.9,107,2,611,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,107,2,612,0)="Y"
^XMB(3.9,107,2,613,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,107,2,614,0)="^D DTA^XPDH"
^XMB(3.9,107,2,615,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,107,2,616,0)="Want my data |FLAG| yours"
^XMB(3.9,107,2,617,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,107,2,618,0)="YES"
^XMB(3.9,107,2,619,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,107,2,620,0)="D XPF2^XPDIQ"
^XMB(3.9,107,2,621,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,107,2,622,0)="YO"
^XMB(3.9,107,2,623,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,107,2,624,0)="^D INHIBIT^XPDH"
^XMB(3.9,107,2,625,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,107,2,626,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,107,2,627,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,107,2,628,0)="YES"
^XMB(3.9,107,2,629,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,107,2,630,0)="D XPI1^XPDIQ"
^XMB(3.9,107,2,631,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,107,2,632,0)="PO^VA(200,:EM"
^XMB(3.9,107,2,633,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,107,2,634,0)="^D MG^XPDH"
^XMB(3.9,107,2,635,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,107,2,636,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,107,2,637,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,107,2,638,0)=""
^XMB(3.9,107,2,639,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,107,2,640,0)="D XPM1^XPDIQ"
^XMB(3.9,107,2,641,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,107,2,642,0)="Y"
^XMB(3.9,107,2,643,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,107,2,644,0)="^D MENU^XPDH"
^XMB(3.9,107,2,645,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,107,2,646,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,107,2,647,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,107,2,648,0)="YES"
^XMB(3.9,107,2,649,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,107,2,650,0)="D XPO1^XPDIQ"
^XMB(3.9,107,2,651,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,107,2,652,0)="Y"
^XMB(3.9,107,2,653,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,107,2,654,0)="^D OPT^XPDH"
^XMB(3.9,107,2,655,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,107,2,656,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,107,2,657,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,107,2,658,0)="YES"
^XMB(3.9,107,2,659,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,107,2,660,0)="D XPZ1^XPDIQ"
^XMB(3.9,107,2,661,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,107,2,662,0)="Y"
^XMB(3.9,107,2,663,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,107,2,664,0)="^D RTN^XPDH"
^XMB(3.9,107,2,665,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,107,2,666,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,107,2,667,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,107,2,668,0)="NO"
^XMB(3.9,107,2,669,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,107,2,670,0)="D XPZ2^XPDIQ"
^XMB(3.9,107,2,671,0)="""RTN"")"
^XMB(3.9,107,2,672,0)="2"
^XMB(3.9,107,2,673,0)="""RTN"",""PSOLMPAT"")"
^XMB(3.9,107,2,674,0)="0^1^B3678258^B2550692"
^XMB(3.9,107,2,675,0)="""RTN"",""PSOLMPAT"",1,0)"
^XMB(3.9,107,2,676,0)="PSOLMPAT ;BHAM ISC/SAB - update pharmacy patient data using listman ; 03/08/93 8:35"
^XMB(3.9,107,2,677,0)="""RTN"",""PSOLMPAT"",2,0)"
^XMB(3.9,107,2,678,0)=" ;;7.0;OUTPATIENT PHARMACY;**15,117,149**;DEC 1997"
^XMB(3.9,107,2,679,0)="""RTN"",""PSOLMPAT"",3,0)"
^XMB(3.9,107,2,680,0)=" ;External reference ^PS(55 supported by DBIA 2228"
^XMB(3.9,107,2,681,0)="""RTN"",""PSOLMPAT"",4,0)"
^XMB(3.9,107,2,682,0)=" ;External reference EN^DGREGAED supported by DBIA #4198"
^XMB(3.9,107,2,683,0)="""RTN"",""PSOLMPAT"",5,0)"
^XMB(3.9,107,2,684,0)=" ;"
^XMB(3.9,107,2,685,0)="""RTN"",""PSOLMPAT"",6,0)"
^XMB(3.9,107,2,686,0)="EN I '$D(PSOPAR) D ^PSOLSET I '$D(PSOPAR) S VALMSG=""Site Parameters must be Defined!"" G EX"
^XMB(3.9,107,2,687,0)="""RTN"",""PSOLMPAT"",7,0)"
^XMB(3.9,107,2,688,0)=" D HLDHDR^PSOLMUTL S DA=DFN,PI="""" G:'$P($G(PSOPAR),""^"",22) P55"
^XMB(3.9,107,2,689,0)="""RTN"",""PSOLMPAT"",8,0)"
^XMB(3.9,107,2,690,0)=" L +^DPT(DA):0 I '$T D MSG G EX"
^XMB(3.9,107,2,691,0)="""RTN"",""PSOLMPAT"",9,0)"
^XMB(3.9,107,2,692,0)=" L +^PS(55,DA):0 I '$T D MSG G EX"
^XMB(3.9,107,2,693,0)="""RTN"",""PSOLMPAT"",10,0)"
^XMB(3.9,107,2,694,0)=" K DIR S DIR(0)=""Y"",DIR(""B"")=""NO"",DIR(""A"")=""Do you want to update the Permanent address/phone"""
^XMB(3.9,107,2,695,0)="""RTN"",""PSOLMPAT"",11,0)"
^XMB(3.9,107,2,696,0)=" S DIR(""?"")=""Please answer Y for YES or N for NO."" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) G EX"
^XMB(3.9,107,2,697,0)="""RTN"",""PSOLMPAT"",12,0)"
^XMB(3.9,107,2,698,0)=" I Y N PSOFLG S PSOFLG(1)=1 D EN^DGREGAED(DFN,.PSOFLG) W !"
^XMB(3.9,107,2,699,0)="""RTN"",""PSOLMPAT"",13,0)"
^XMB(3.9,107,2,700,0)=" S DIE=""^DPT("",DR=""[PSO OUTPT]"""
^XMB(3.9,107,2,701,0)="""RTN"",""PSOLMPAT"",14,0)"
^XMB(3.9,107,2,702,0)=" D FULL^VALM1,^DIE L -^DPT(DA)"
^XMB(3.9,107,2,703,0)="""RTN"",""PSOLMPAT"",15,0)"
^XMB(3.9,107,2,704,0)="P55 I '$D(^PS(55,DFN)) K DIC S DIC=""^PS(55,"",DIC(0)=""LZ"",(X,DINUM)=DFN K DD,DO D FILE^DICN K DIC"
^XMB(3.9,107,2,705,0)="""RTN"",""PSOLMPAT"",16,0)"
^XMB(3.9,107,2,706,0)=" I $G(DFN),$P($G(^PS(55,DFN,0)),""^"")="""" S $P(^PS(55,DFN,0),""^"")=DFN K DIK S DA=DFN,DIK=""^PS(55,"",DIK(1)=.01 D EN^DIK K DIK S DA=DFN"
^XMB(3.9,107,2,707,0)="""RTN"",""PSOLMPAT"",17,0)"
^XMB(3.9,107,2,708,0)=" S DIE=""^PS(55,"",DR="".02;.03;.05;.04;1;3;40:41.1;106;106.1"" W !!?5,"">>PHARMACY PATIENT DATA<<"",! D ^DIE"
^XMB(3.9,107,2,709,0)="""RTN"",""PSOLMPAT"",18,0)"
^XMB(3.9,107,2,710,0)="EX L -^PS(55,DA),-^DPT(DA) D ^PSOORUT2 S VALMBCK=""R"""
^XMB(3.9,107,2,711,0)="""RTN"",""PSOLMPAT"",19,0)"
^XMB(3.9,107,2,712,0)=" K DIC,X,Y,DIE,D0,DA,DFN,PI,DR,%,%Y,%X,C,DI,DIPGM,DQ,PSOFROM"
^XMB(3.9,107,2,713,0)="""RTN"",""PSOLMPAT"",20,0)"
^XMB(3.9,107,2,714,0)=" Q"
^XMB(3.9,107,2,715,0)="""RTN"",""PSOLMPAT"",21,0)"
^XMB(3.9,107,2,716,0)="MSG S VALMSG=""Patient Data is Being Edited by Another User!"" Q"
^XMB(3.9,107,2,717,0)="""RTN"",""PSOPAT"")"
^XMB(3.9,107,2,718,0)="0^2^B5159102^B4127186"
^XMB(3.9,107,2,719,0)="""RTN"",""PSOPAT"",1,0)"
^XMB(3.9,107,2,720,0)="PSOPAT ;BHAM ISC/SAB - update pharmacy patient data ; 03/08/93 8:35"
^XMB(3.9,107,2,721,0)="""RTN"",""PSOPAT"",2,0)"
^XMB(3.9,107,2,722,0)=" ;;7.0;OUTPATIENT PHARMACY;**74,117,149**;DEC 1997"
^XMB(3.9,107,2,723,0)="""RTN"",""PSOPAT"",3,0)"
^XMB(3.9,107,2,724,0)=" ;Reference to ^PS(55, is supported by IA 2228"
^XMB(3.9,107,2,725,0)="""RTN"",""PSOPAT"",4,0)"
^XMB(3.9,107,2,726,0)=" I '$D(PSOPAR) D ^PSOLSET I '$D(PSOPAR) W $C(7),!,""Site Parameters must be Defined!"",! G EX"
^XMB(3.9,107,2,727,0)="""RTN"",""PSOPAT"",5,0)"
^XMB(3.9,107,2,728,0)="2 W ! S PSOFROM=1,DIC(""A"")=""Select Patient: "",DIC=2,DIC(0)=""AEQMZ"" D ^DIC G:""^""[X EX G:Y<0 2 S DFN=+Y S PSOLOUD=1 D:$P($G(^PS(55,DFN,0)),""^"",6)'=2 EN^PSOHLUP(DFN) K PSOLOUD"
^XMB(3.9,107,2,729,0)="""RTN"",""PSOPAT"",6,0)"
^XMB(3.9,107,2,730,0)=" S DA=DFN,PI="""" D ^PSODEM G 2:PI=""^"" G:'$P($G(PSOPAR),""^"",22) P55"
^XMB(3.9,107,2,731,0)="""RTN"",""PSOPAT"",7,0)"
^XMB(3.9,107,2,732,0)=" L +^DPT(DA):0 I '$T D MSG D EX G 2"
^XMB(3.9,107,2,733,0)="""RTN"",""PSOPAT"",8,0)"
^XMB(3.9,107,2,734,0)=" L +^PS(55,DA):0 I '$T D MSG D EX G 2"
^XMB(3.9,107,2,735,0)="""RTN"",""PSOPAT"",9,0)"
^XMB(3.9,107,2,736,0)=" K DIR S DIR(0)=""Y"",DIR(""B"")=""NO"",DIR(""A"")=""Do you want to update the Permanent address/phone"""
^XMB(3.9,107,2,737,0)="""RTN"",""PSOPAT"",10,0)"
^XMB(3.9,107,2,738,0)=" S DIR(""?"")=""Please answer Y for YES or N for NO."" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) D EX G 2"
^XMB(3.9,107,2,739,0)="""RTN"",""PSOPAT"",11,0)"
^XMB(3.9,107,2,740,0)=" I Y N PSOFLG S PSOFLG(1)=1 D EN^DGREGAED(DFN,.PSOFLG) W !"
^XMB(3.9,107,2,741,0)="""RTN"",""PSOPAT"",12,0)"
^XMB(3.9,107,2,742,0)=" S DIE=""^DPT("",DR=""[PSO OUTPT]"" D ^DIE L -^DPT(DA)"
^XMB(3.9,107,2,743,0)="""RTN"",""PSOPAT"",13,0)"
^XMB(3.9,107,2,744,0)="P55 I '$D(^PS(55,DFN)) K DIC S DIC=""^PS(55,"",DIC(0)=""LZ"",(X,DINUM)=DFN K DD,DO D FILE^DICN D:$G(DFN)&($P($G(^PS(55,DFN,0)),""^"",6)'=2) EN^PSOHLUP(DFN) K DIC"
^XMB(3.9,107,2,745,0)="""RTN"",""PSOPAT"",14,0)"
^XMB(3.9,107,2,746,0)=" I $G(DFN),$P($G(^PS(55,DFN,0)),""^"")="""" S $P(^PS(55,DFN,0),""^"")=DFN K DIK S DA=DFN,DIK=""^PS(55,"",DIK(1)="".01^B"" D EN^DIK K DIK S DA=DFN"
^XMB(3.9,107,2,747,0)="""RTN"",""PSOPAT"",15,0)"
^XMB(3.9,107,2,748,0)=" S DIE=""^PS(55,"",DR="".02;.03;.05;.04;1;D ELIG^PSORX1;3;40:41.1;106;106.1"" W !!?5,"">>PHARMACY PATIENT DATA<<"",!"
^XMB(3.9,107,2,749,0)="""RTN"",""PSOPAT"",16,0)"
^XMB(3.9,107,2,750,0)=" D ^DIE,EX W !! G 2"
^XMB(3.9,107,2,751,0)="""RTN"",""PSOPAT"",17,0)"
^XMB(3.9,107,2,752,0)=" Q"
^XMB(3.9,107,2,753,0)="""RTN"",""PSOPAT"",18,0)"
^XMB(3.9,107,2,754,0)="EX L -^PS(55,+$G(DA)),-^DPT(+$G(DA))"
^XMB(3.9,107,2,755,0)="""RTN"",""PSOPAT"",19,0)"
^XMB(3.9,107,2,756,0)=" K DIC,X,Y,DIE,D0,DA,DFN,PI,DR,%,%Y,%X,C,DI,DIPGM,DQ,PSOFROM"
^XMB(3.9,107,2,757,0)="""RTN"",""PSOPAT"",20,0)"
^XMB(3.9,107,2,758,0)=" Q"
^XMB(3.9,107,2,759,0)="""RTN"",""PSOPAT"",21,0)"
^XMB(3.9,107,2,760,0)="MSG W $C(7),!,""Patient Data is Being Edited by Another User!"",! Q"
^XMB(3.9,107,2,761,0)="""VER"")"
^XMB(3.9,107,2,762,0)="8.0^22.0"
^XMB(3.9,107,2,763,0)="""BLD"",4582,6)"
^XMB(3.9,107,2,764,0)="^212"
^XMB(3.9,107,2,765,0)="$END KID PSO*7.0*149"
^XMB(3.9,107,6,0)="^3.911A^2^2"
^XMB(3.9,107,6,1,0)="POSTMASTER"
^XMB(3.9,107,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,107,6,"B","POSTMASTER",1)=""
^XMB(3.9,107,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,108,0)="PSO-7_SEQ-213_PAT-232.KID^.5^3061008.015741^^^^K"
^XMB(3.9,108,.6)="3061008"
^XMB(3.9,108,1,0)="^3.91A^2^2"
^XMB(3.9,108,1,1,0)=".5^0^3061008.015741^^^^^^^3061008.015741"
^XMB(3.9,108,1,2,0)="1^0^3061008.022317^^^^^^^3061008.022317"
^XMB(3.9,108,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,108,1,"C",.5,1)=""
^XMB(3.9,108,1,"C",1,2)=""
^XMB(3.9,108,2,0)="^^1449^1449^3061008"
^XMB(3.9,108,2,1,0)="$TXT Released PSO*7*232 SEQ #213"
^XMB(3.9,108,2,2,0)="Extracted from mail message"
^XMB(3.9,108,2,3,0)="$END TXT"
^XMB(3.9,108,2,4,0)="$KID PSO*7.0*232"
^XMB(3.9,108,2,5,0)="**INSTALL NAME**"
^XMB(3.9,108,2,6,0)="PSO*7.0*232"
^XMB(3.9,108,2,7,0)="""BLD"",6650,0)"
^XMB(3.9,108,2,8,0)="PSO*7.0*232^OUTPATIENT PHARMACY^0^3060522^y"
^XMB(3.9,108,2,9,0)="""BLD"",6650,1,0)"
^XMB(3.9,108,2,10,0)="^^5^5^3060209^"
^XMB(3.9,108,2,11,0)="""BLD"",6650,1,1,0)"
^XMB(3.9,108,2,12,0)="CORRECT SEVERAL PROBLEMS INCLUDING AMIS COMPILER TO FIND AND INCLUDE RX'S "
^XMB(3.9,108,2,13,0)="""BLD"",6650,1,2,0)"
^XMB(3.9,108,2,14,0)="THAT HAVE A DATE WITH NO TIME FOR RELEASE/DATE FIELD IN PRESCRIPTION FILE,"
^XMB(3.9,108,2,15,0)="""BLD"",6650,1,3,0)"
^XMB(3.9,108,2,16,0)="A NULL SUBSCRIPT ERROR DURING BINGO BOARD STARTUP, DO NOT MAIL ISSUE WHEN"
^XMB(3.9,108,2,17,0)="""BLD"",6650,1,4,0)"
^XMB(3.9,108,2,18,0)="OPAI SENDS HL7 MESSAGE, AND INCREASE DNS PORT NUMBER FIELD IN OUTPATIENT"
^XMB(3.9,108,2,19,0)="""BLD"",6650,1,5,0)"
^XMB(3.9,108,2,20,0)="SITE FILE."
^XMB(3.9,108,2,21,0)="""BLD"",6650,4,0)"
^XMB(3.9,108,2,22,0)="^9.64PA^52.11^2"
^XMB(3.9,108,2,23,0)="""BLD"",6650,4,52.11,0)"
^XMB(3.9,108,2,24,0)="52.11"
^XMB(3.9,108,2,25,0)="""BLD"",6650,4,52.11,2,0)"
^XMB(3.9,108,2,26,0)="^9.641^52.11^1"
^XMB(3.9,108,2,27,0)="""BLD"",6650,4,52.11,2,52.11,0)"
^XMB(3.9,108,2,28,0)="PATIENT NOTIFICATION (Rx READY)  (File-top level)"
^XMB(3.9,108,2,29,0)="""BLD"",6650,4,52.11,2,52.11,1,0)"
^XMB(3.9,108,2,30,0)="^9.6411^6^1"
^XMB(3.9,108,2,31,0)="""BLD"",6650,4,52.11,2,52.11,1,6,0)"
^XMB(3.9,108,2,32,0)="TIME READY (HHMM)"
^XMB(3.9,108,2,33,0)="""BLD"",6650,4,52.11,222)"
^XMB(3.9,108,2,34,0)="y^y^p^^^^n^^n"
^XMB(3.9,108,2,35,0)="""BLD"",6650,4,52.11,224)"
^XMB(3.9,108,2,36,0)=""
^XMB(3.9,108,2,37,0)="""BLD"",6650,4,59,0)"
^XMB(3.9,108,2,38,0)="59"
^XMB(3.9,108,2,39,0)="""BLD"",6650,4,59,2,0)"
^XMB(3.9,108,2,40,0)="^9.641^59^1"
^XMB(3.9,108,2,41,0)="""BLD"",6650,4,59,2,59,0)"
^XMB(3.9,108,2,42,0)="OUTPATIENT SITE  (File-top level)"
^XMB(3.9,108,2,43,0)="""BLD"",6650,4,59,2,59,1,0)"
^XMB(3.9,108,2,44,0)="^9.6411^2007^1"
^XMB(3.9,108,2,45,0)="""BLD"",6650,4,59,2,59,1,2007,0)"
^XMB(3.9,108,2,46,0)="DISPENSE DNS PORT"
^XMB(3.9,108,2,47,0)="""BLD"",6650,4,59,222)"
^XMB(3.9,108,2,48,0)="y^y^p^^^^n^^n"
^XMB(3.9,108,2,49,0)="""BLD"",6650,4,59,224)"
^XMB(3.9,108,2,50,0)=""
^XMB(3.9,108,2,51,0)="""BLD"",6650,4,""APDD"",52.11,52.11)"
^XMB(3.9,108,2,52,0)=""
^XMB(3.9,108,2,53,0)="""BLD"",6650,4,""APDD"",52.11,52.11,6)"
^XMB(3.9,108,2,54,0)=""
^XMB(3.9,108,2,55,0)="""BLD"",6650,4,""APDD"",59,59)"
^XMB(3.9,108,2,56,0)=""
^XMB(3.9,108,2,57,0)="""BLD"",6650,4,""APDD"",59,59,2007)"
^XMB(3.9,108,2,58,0)=""
^XMB(3.9,108,2,59,0)="""BLD"",6650,4,""B"",52.11,52.11)"
^XMB(3.9,108,2,60,0)=""
^XMB(3.9,108,2,61,0)="""BLD"",6650,4,""B"",59,59)"
^XMB(3.9,108,2,62,0)=""
^XMB(3.9,108,2,63,0)="""BLD"",6650,""KRN"",0)"
^XMB(3.9,108,2,64,0)="^9.67PA^8989.52^19"
^XMB(3.9,108,2,65,0)="""BLD"",6650,""KRN"",.4,0)"
^XMB(3.9,108,2,66,0)=".4"
^XMB(3.9,108,2,67,0)="""BLD"",6650,""KRN"",.401,0)"
^XMB(3.9,108,2,68,0)=".401"
^XMB(3.9,108,2,69,0)="""BLD"",6650,""KRN"",.402,0)"
^XMB(3.9,108,2,70,0)=".402"
^XMB(3.9,108,2,71,0)="""BLD"",6650,""KRN"",.403,0)"
^XMB(3.9,108,2,72,0)=".403"
^XMB(3.9,108,2,73,0)="""BLD"",6650,""KRN"",.5,0)"
^XMB(3.9,108,2,74,0)=".5"
^XMB(3.9,108,2,75,0)="""BLD"",6650,""KRN"",.84,0)"
^XMB(3.9,108,2,76,0)=".84"
^XMB(3.9,108,2,77,0)="""BLD"",6650,""KRN"",3.6,0)"
^XMB(3.9,108,2,78,0)="3.6"
^XMB(3.9,108,2,79,0)="""BLD"",6650,""KRN"",3.8,0)"
^XMB(3.9,108,2,80,0)="3.8"
^XMB(3.9,108,2,81,0)="""BLD"",6650,""KRN"",9.2,0)"
^XMB(3.9,108,2,82,0)="9.2"
^XMB(3.9,108,2,83,0)="""BLD"",6650,""KRN"",9.8,0)"
^XMB(3.9,108,2,84,0)="9.8"
^XMB(3.9,108,2,85,0)="""BLD"",6650,""KRN"",9.8,""NM"",0)"
^XMB(3.9,108,2,86,0)="^9.68A^4^4"
^XMB(3.9,108,2,87,0)="""BLD"",6650,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,108,2,88,0)="PSOHLDS1^^0^47619875"
^XMB(3.9,108,2,89,0)="""BLD"",6650,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,108,2,90,0)="PSOAMIS0^^0^57481603"
^XMB(3.9,108,2,91,0)="""BLD"",6650,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,108,2,92,0)="PSOBINGO^^0^61437280"
^XMB(3.9,108,2,93,0)="""BLD"",6650,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,108,2,94,0)="PSOBGMGR^^0^61535737"
^XMB(3.9,108,2,95,0)="""BLD"",6650,""KRN"",9.8,""NM"",""B"",""PSOAMIS0"",2)"
^XMB(3.9,108,2,96,0)=""
^XMB(3.9,108,2,97,0)="""BLD"",6650,""KRN"",9.8,""NM"",""B"",""PSOBGMGR"",4)"
^XMB(3.9,108,2,98,0)=""
^XMB(3.9,108,2,99,0)="""BLD"",6650,""KRN"",9.8,""NM"",""B"",""PSOBINGO"",3)"
^XMB(3.9,108,2,100,0)=""
^XMB(3.9,108,2,101,0)="""BLD"",6650,""KRN"",9.8,""NM"",""B"",""PSOHLDS1"",1)"
^XMB(3.9,108,2,102,0)=""
^XMB(3.9,108,2,103,0)="""BLD"",6650,""KRN"",19,0)"
^XMB(3.9,108,2,104,0)="19"
^XMB(3.9,108,2,105,0)="""BLD"",6650,""KRN"",19.1,0)"
^XMB(3.9,108,2,106,0)="19.1"
^XMB(3.9,108,2,107,0)="""BLD"",6650,""KRN"",101,0)"
^XMB(3.9,108,2,108,0)="101"
^XMB(3.9,108,2,109,0)="""BLD"",6650,""KRN"",409.61,0)"
^XMB(3.9,108,2,110,0)="409.61"
^XMB(3.9,108,2,111,0)="""BLD"",6650,""KRN"",771,0)"
^XMB(3.9,108,2,112,0)="771"
^XMB(3.9,108,2,113,0)="""BLD"",6650,""KRN"",870,0)"
^XMB(3.9,108,2,114,0)="870"
^XMB(3.9,108,2,115,0)="""BLD"",6650,""KRN"",8989.51,0)"
^XMB(3.9,108,2,116,0)="8989.51"
^XMB(3.9,108,2,117,0)="""BLD"",6650,""KRN"",8989.52,0)"
^XMB(3.9,108,2,118,0)="8989.52"
^XMB(3.9,108,2,119,0)="""BLD"",6650,""KRN"",8994,0)"
^XMB(3.9,108,2,120,0)="8994"
^XMB(3.9,108,2,121,0)="""BLD"",6650,""KRN"",""B"",.4,.4)"
^XMB(3.9,108,2,122,0)=""
^XMB(3.9,108,2,123,0)="""BLD"",6650,""KRN"",""B"",.401,.401)"
^XMB(3.9,108,2,124,0)=""
^XMB(3.9,108,2,125,0)="""BLD"",6650,""KRN"",""B"",.402,.402)"
^XMB(3.9,108,2,126,0)=""
^XMB(3.9,108,2,127,0)="""BLD"",6650,""KRN"",""B"",.403,.403)"
^XMB(3.9,108,2,128,0)=""
^XMB(3.9,108,2,129,0)="""BLD"",6650,""KRN"",""B"",.5,.5)"
^XMB(3.9,108,2,130,0)=""
^XMB(3.9,108,2,131,0)="""BLD"",6650,""KRN"",""B"",.84,.84)"
^XMB(3.9,108,2,132,0)=""
^XMB(3.9,108,2,133,0)="""BLD"",6650,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,108,2,134,0)=""
^XMB(3.9,108,2,135,0)="""BLD"",6650,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,108,2,136,0)=""
^XMB(3.9,108,2,137,0)="""BLD"",6650,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,108,2,138,0)=""
^XMB(3.9,108,2,139,0)="""BLD"",6650,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,108,2,140,0)=""
^XMB(3.9,108,2,141,0)="""BLD"",6650,""KRN"",""B"",19,19)"
^XMB(3.9,108,2,142,0)=""
^XMB(3.9,108,2,143,0)="""BLD"",6650,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,108,2,144,0)=""
^XMB(3.9,108,2,145,0)="""BLD"",6650,""KRN"",""B"",101,101)"
^XMB(3.9,108,2,146,0)=""
^XMB(3.9,108,2,147,0)="""BLD"",6650,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,108,2,148,0)=""
^XMB(3.9,108,2,149,0)="""BLD"",6650,""KRN"",""B"",771,771)"
^XMB(3.9,108,2,150,0)=""
^XMB(3.9,108,2,151,0)="""BLD"",6650,""KRN"",""B"",870,870)"
^XMB(3.9,108,2,152,0)=""
^XMB(3.9,108,2,153,0)="""BLD"",6650,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,108,2,154,0)=""
^XMB(3.9,108,2,155,0)="""BLD"",6650,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,108,2,156,0)=""
^XMB(3.9,108,2,157,0)="""BLD"",6650,""KRN"",""B"",8994,8994)"
^XMB(3.9,108,2,158,0)=""
^XMB(3.9,108,2,159,0)="""BLD"",6650,""QUES"",0)"
^XMB(3.9,108,2,160,0)="^9.62^^"
^XMB(3.9,108,2,161,0)="""BLD"",6650,""REQB"",0)"
^XMB(3.9,108,2,162,0)="^9.611^3^3"
^XMB(3.9,108,2,163,0)="""BLD"",6650,""REQB"",1,0)"
^XMB(3.9,108,2,164,0)="PSO*7.0*158^2"
^XMB(3.9,108,2,165,0)="""BLD"",6650,""REQB"",2,0)"
^XMB(3.9,108,2,166,0)="PSO*7.0*156^2"
^XMB(3.9,108,2,167,0)="""BLD"",6650,""REQB"",3,0)"
^XMB(3.9,108,2,168,0)="PSO*7.0*152^2"
^XMB(3.9,108,2,169,0)="""BLD"",6650,""REQB"",""B"",""PSO*7.0*152"",3)"
^XMB(3.9,108,2,170,0)=""
^XMB(3.9,108,2,171,0)="""BLD"",6650,""REQB"",""B"",""PSO*7.0*156"",2)"
^XMB(3.9,108,2,172,0)=""
^XMB(3.9,108,2,173,0)="""BLD"",6650,""REQB"",""B"",""PSO*7.0*158"",1)"
^XMB(3.9,108,2,174,0)=""
^XMB(3.9,108,2,175,0)="""FIA"",52.11)"
^XMB(3.9,108,2,176,0)="PATIENT NOTIFICATION (Rx READY)"
^XMB(3.9,108,2,177,0)="""FIA"",52.11,0)"
^XMB(3.9,108,2,178,0)="^PS(52.11,"
^XMB(3.9,108,2,179,0)="""FIA"",52.11,0,0)"
^XMB(3.9,108,2,180,0)="52.11IP"
^XMB(3.9,108,2,181,0)="""FIA"",52.11,0,1)"
^XMB(3.9,108,2,182,0)="y^y^p^^^^n^^n"
^XMB(3.9,108,2,183,0)="""FIA"",52.11,0,10)"
^XMB(3.9,108,2,184,0)=""
^XMB(3.9,108,2,185,0)="""FIA"",52.11,0,11)"
^XMB(3.9,108,2,186,0)=""
^XMB(3.9,108,2,187,0)="""FIA"",52.11,0,""RLRO"")"
^XMB(3.9,108,2,188,0)=""
^XMB(3.9,108,2,189,0)="""FIA"",52.11,0,""VR"")"
^XMB(3.9,108,2,190,0)="7.0^PSO"
^XMB(3.9,108,2,191,0)="""FIA"",52.11,52.11)"
^XMB(3.9,108,2,192,0)="1"
^XMB(3.9,108,2,193,0)="""FIA"",52.11,52.11,6)"
^XMB(3.9,108,2,194,0)=""
^XMB(3.9,108,2,195,0)="""FIA"",59)"
^XMB(3.9,108,2,196,0)="OUTPATIENT SITE"
^XMB(3.9,108,2,197,0)="""FIA"",59,0)"
^XMB(3.9,108,2,198,0)="^PS(59,"
^XMB(3.9,108,2,199,0)="""FIA"",59,0,0)"
^XMB(3.9,108,2,200,0)="59I"
^XMB(3.9,108,2,201,0)="""FIA"",59,0,1)"
^XMB(3.9,108,2,202,0)="y^y^p^^^^n^^n"
^XMB(3.9,108,2,203,0)="""FIA"",59,0,10)"
^XMB(3.9,108,2,204,0)=""
^XMB(3.9,108,2,205,0)="""FIA"",59,0,11)"
^XMB(3.9,108,2,206,0)=""
^XMB(3.9,108,2,207,0)="""FIA"",59,0,""RLRO"")"
^XMB(3.9,108,2,208,0)=""
^XMB(3.9,108,2,209,0)="""FIA"",59,0,""VR"")"
^XMB(3.9,108,2,210,0)="7.0^PSO"
^XMB(3.9,108,2,211,0)="""FIA"",59,59)"
^XMB(3.9,108,2,212,0)="1"
^XMB(3.9,108,2,213,0)="""FIA"",59,59,2007)"
^XMB(3.9,108,2,214,0)=""
^XMB(3.9,108,2,215,0)="""MBREQ"")"
^XMB(3.9,108,2,216,0)="0"
^XMB(3.9,108,2,217,0)="""PKG"",134,-1)"
^XMB(3.9,108,2,218,0)="1^1"
^XMB(3.9,108,2,219,0)="""PKG"",134,0)"
^XMB(3.9,108,2,220,0)="OUTPATIENT PHARMACY^PSO^OUTPATIENT LABELS, PROFILE, INVENTORY, PRESCRIPTIONS"
^XMB(3.9,108,2,221,0)="""PKG"",134,20,0)"
^XMB(3.9,108,2,222,0)="^9.402P^^"
^XMB(3.9,108,2,223,0)="""PKG"",134,22,0)"
^XMB(3.9,108,2,224,0)="^9.49I^1^1"
^XMB(3.9,108,2,225,0)="""PKG"",134,22,1,0)"
^XMB(3.9,108,2,226,0)="7.0^2971216^2980417^1271"
^XMB(3.9,108,2,227,0)="""PKG"",134,22,1,""PAH"",1,0)"
^XMB(3.9,108,2,228,0)="232^3060522"
^XMB(3.9,108,2,229,0)="""PKG"",134,22,1,""PAH"",1,1,0)"
^XMB(3.9,108,2,230,0)="^^5^5^3060522"
^XMB(3.9,108,2,231,0)="""PKG"",134,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,108,2,232,0)="CORRECT SEVERAL PROBLEMS INCLUDING AMIS COMPILER TO FIND AND INCLUDE RX'S "
^XMB(3.9,108,2,233,0)="""PKG"",134,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,108,2,234,0)="THAT HAVE A DATE WITH NO TIME FOR RELEASE/DATE FIELD IN PRESCRIPTION FILE,"
^XMB(3.9,108,2,235,0)="""PKG"",134,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,108,2,236,0)="A NULL SUBSCRIPT ERROR DURING BINGO BOARD STARTUP, DO NOT MAIL ISSUE WHEN"
^XMB(3.9,108,2,237,0)="""PKG"",134,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,108,2,238,0)="OPAI SENDS HL7 MESSAGE, AND INCREASE DNS PORT NUMBER FIELD IN OUTPATIENT"
^XMB(3.9,108,2,239,0)="""PKG"",134,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,108,2,240,0)="SITE FILE."
^XMB(3.9,108,2,241,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,108,2,242,0)="Y"
^XMB(3.9,108,2,243,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,108,2,244,0)="^D REP^XPDH"
^XMB(3.9,108,2,245,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,108,2,246,0)="Shall I write over your |FLAG| File"
^XMB(3.9,108,2,247,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,108,2,248,0)="YES"
^XMB(3.9,108,2,249,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,108,2,250,0)="D XPF1^XPDIQ"
^XMB(3.9,108,2,251,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,108,2,252,0)="Y"
^XMB(3.9,108,2,253,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,108,2,254,0)="^D DTA^XPDH"
^XMB(3.9,108,2,255,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,108,2,256,0)="Want my data |FLAG| yours"
^XMB(3.9,108,2,257,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,108,2,258,0)="YES"
^XMB(3.9,108,2,259,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,108,2,260,0)="D XPF2^XPDIQ"
^XMB(3.9,108,2,261,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,108,2,262,0)="YO"
^XMB(3.9,108,2,263,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,108,2,264,0)="^D INHIBIT^XPDH"
^XMB(3.9,108,2,265,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,108,2,266,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,108,2,267,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,108,2,268,0)="YES"
^XMB(3.9,108,2,269,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,108,2,270,0)="D XPI1^XPDIQ"
^XMB(3.9,108,2,271,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,108,2,272,0)="PO^VA(200,:EM"
^XMB(3.9,108,2,273,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,108,2,274,0)="^D MG^XPDH"
^XMB(3.9,108,2,275,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,108,2,276,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,108,2,277,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,108,2,278,0)=""
^XMB(3.9,108,2,279,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,108,2,280,0)="D XPM1^XPDIQ"
^XMB(3.9,108,2,281,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,108,2,282,0)="Y"
^XMB(3.9,108,2,283,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,108,2,284,0)="^D MENU^XPDH"
^XMB(3.9,108,2,285,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,108,2,286,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,108,2,287,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,108,2,288,0)="YES"
^XMB(3.9,108,2,289,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,108,2,290,0)="D XPO1^XPDIQ"
^XMB(3.9,108,2,291,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,108,2,292,0)="Y"
^XMB(3.9,108,2,293,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,108,2,294,0)="^D OPT^XPDH"
^XMB(3.9,108,2,295,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,108,2,296,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,108,2,297,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,108,2,298,0)="YES"
^XMB(3.9,108,2,299,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,108,2,300,0)="D XPZ1^XPDIQ"
^XMB(3.9,108,2,301,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,108,2,302,0)="Y"
^XMB(3.9,108,2,303,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,108,2,304,0)="^D RTN^XPDH"
^XMB(3.9,108,2,305,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,108,2,306,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,108,2,307,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,108,2,308,0)="NO"
^XMB(3.9,108,2,309,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,108,2,310,0)="D XPZ2^XPDIQ"
^XMB(3.9,108,2,311,0)="""RTN"")"
^XMB(3.9,108,2,312,0)="4"
^XMB(3.9,108,2,313,0)="""RTN"",""PSOAMIS0"")"
^XMB(3.9,108,2,314,0)="0^2^B57481603^B54680818"
^XMB(3.9,108,2,315,0)="""RTN"",""PSOAMIS0"",1,0)"
^XMB(3.9,108,2,316,0)="PSOAMIS0 ;BHAM ISC/SAB,BHW - pharmacy amis compile/recompile routine ;2/9/06 4:13pm"
^XMB(3.9,108,2,317,0)="""RTN"",""PSOAMIS0"",2,0)"
^XMB(3.9,108,2,318,0)=" ;;7.0;OUTPATIENT PHARMACY;**17,25,158,232**;DEC 1997"
^XMB(3.9,108,2,319,0)="""RTN"",""PSOAMIS0"",3,0)"
^XMB(3.9,108,2,320,0)=" ;"
^XMB(3.9,108,2,321,0)="""RTN"",""PSOAMIS0"",4,0)"
^XMB(3.9,108,2,322,0)=" ; reference to ^VA(200 supported by IA# 224"
^XMB(3.9,108,2,323,0)="""RTN"",""PSOAMIS0"",5,0)"
^XMB(3.9,108,2,324,0)=" ; reference to ^PSDRUG supported by IA# 221"
^XMB(3.9,108,2,325,0)="""RTN"",""PSOAMIS0"",6,0)"
^XMB(3.9,108,2,326,0)=" ;"
^XMB(3.9,108,2,327,0)="""RTN"",""PSOAMIS0"",7,0)"
^XMB(3.9,108,2,328,0)=" ;PSO*232 alter For loops to include release/dates without time stamp"
^XMB(3.9,108,2,329,0)="""RTN"",""PSOAMIS0"",8,0)"
^XMB(3.9,108,2,330,0)=" ;"
^XMB(3.9,108,2,331,0)="""RTN"",""PSOAMIS0"",9,0)"
^XMB(3.9,108,2,332,0)=" K ^TMP(""PSOAMIS"",$J) S X=""T-1"",%DT="""" D ^%DT S (PSDATE,HDATE)=Y,ENDATE=Y_"".9999999"" S DA=PSDATE,DIK=""^PS(59.1,"" D ^DIK D CLE,ADD"
^XMB(3.9,108,2,333,0)="""RTN"",""PSOAMIS0"",10,0)"
^XMB(3.9,108,2,334,0)=" S PSDATE=PSDATE-1+.999999                                    ;PSO*232"
^XMB(3.9,108,2,335,0)="""RTN"",""PSOAMIS0"",11,0)"
^XMB(3.9,108,2,336,0)=" F RR=0:0 S PSDATE=$O(^PSRX(""AL"",PSDATE)) Q:'PSDATE!(PSDATE>ENDATE)  D COM"
^XMB(3.9,108,2,337,0)="""RTN"",""PSOAMIS0"",12,0)"
^XMB(3.9,108,2,338,0)=" S PSDATE=HDATE-1+.999999                                     ;PSO*232"
^XMB(3.9,108,2,339,0)="""RTN"",""PSOAMIS0"",13,0)"
^XMB(3.9,108,2,340,0)=" F RR=0:0 S PSDATE=$O(^PSRX(""AM"",PSDATE)) Q:'PSDATE!(PSDATE>ENDATE)  D COM1"
^XMB(3.9,108,2,341,0)="""RTN"",""PSOAMIS0"",14,0)"
^XMB(3.9,108,2,342,0)=" S PSDATE=HDATE D BUILD"
^XMB(3.9,108,2,343,0)="""RTN"",""PSOAMIS0"",15,0)"
^XMB(3.9,108,2,344,0)="END K ^TMP(""PSOAMIS"",$J),DIC,I,ENT,Y,X,DINUM,%DT,PSDATE,METHAD,DA,PSODFN,DRUG,NRC,PAT,PHYS,DIV,RX,ST,STY,STY1,SDT,EDT,R,RXF,TY,ENDATE,HDATE S:$D(ZTQUEUED) ZTREQ=""@"""
^XMB(3.9,108,2,345,0)="""RTN"",""PSOAMIS0"",16,0)"
^XMB(3.9,108,2,346,0)=" K RX0,RX2,DIK,C,BLD,LSTDFN,LSTDT"
^XMB(3.9,108,2,347,0)="""RTN"",""PSOAMIS0"",17,0)"
^XMB(3.9,108,2,348,0)=" Q"
^XMB(3.9,108,2,349,0)="""RTN"",""PSOAMIS0"",18,0)"
^XMB(3.9,108,2,350,0)="COM F PSODFN=0:0 S PSODFN=$O(^PSRX(""AL"",PSDATE,PSODFN)) Q:'PSODFN  S DA="""" F TY=0:0 S DA=$O(^PSRX(""AL"",PSDATE,PSODFN,DA)) Q:DA=""""  I $D(^PSRX(PSODFN,0)) D"
^XMB(3.9,108,2,351,0)="""RTN"",""PSOAMIS0"",19,0)"
^XMB(3.9,108,2,352,0)=" .S RX0=^PSRX(PSODFN,0),RX2=^(2),PAT=$P(RX0,""^"",2),ST=$P(RX0,""^"",3),DRUG=$P(RX0,""^"",6)"
^XMB(3.9,108,2,353,0)="""RTN"",""PSOAMIS0"",20,0)"
^XMB(3.9,108,2,354,0)=" .D:'DA ORI D:DA REF"
^XMB(3.9,108,2,355,0)="""RTN"",""PSOAMIS0"",21,0)"
^XMB(3.9,108,2,356,0)=" Q"
^XMB(3.9,108,2,357,0)="""RTN"",""PSOAMIS0"",22,0)"
^XMB(3.9,108,2,358,0)="COM1 F PSODFN=0:0 S PSODFN=$O(^PSRX(""AM"",PSDATE,PSODFN)) Q:'PSODFN  S DA=0 F  S DA=$O(^PSRX(""AM"",PSDATE,PSODFN,DA)) Q:'DA  I $D(^PSRX(PSODFN,0)) D:$P($G(^PSRX(PSODFN,""P"",DA,0)),""^"",19)"
^XMB(3.9,108,2,359,0)="""RTN"",""PSOAMIS0"",23,0)"
^XMB(3.9,108,2,360,0)=" .S RX0=^PSRX(PSODFN,0),RX2=^PSRX(PSODFN,2),PAT=$P(RX0,""^"",2),ST=$P(RX0,""^"",3),DRUG=$P(RX0,""^"",6)"
^XMB(3.9,108,2,361,0)="""RTN"",""PSOAMIS0"",24,0)"
^XMB(3.9,108,2,362,0)=" .S RXF=^PSRX(PSODFN,""P"",DA,0),DIV=$S($P(RXF,""^"",9):$P(RXF,""^"",9),1:$P(RX2,""^"",9)),$P(^TMP(""PSOAMIS"",$J,""AMIS"",DIV),""^"",14)=+$P(^TMP(""PSOAMIS"",$J,""AMIS"",DIV),""^"",14)+1"
^XMB(3.9,108,2,363,0)="""RTN"",""PSOAMIS0"",25,0)"
^XMB(3.9,108,2,364,0)=" .S $P(^TMP(""PSOAMIS"",$J,""AMIS"",DIV),""^"",$S($P(RXF,""^"",2)=""W"":15,1:16))=+$P(^TMP(""PSOAMIS"",$J,""AMIS"",DIV),""^"",$S($P(RXF,""^"",2)=""W"":15,1:16))+1"
^XMB(3.9,108,2,365,0)="""RTN"",""PSOAMIS0"",26,0)"
^XMB(3.9,108,2,366,0)=" .S PHYS=$S($P(RXF,""^"",17):+$P(RXF,""^"",17),1:$P(RX0,""^"",4))"
^XMB(3.9,108,2,367,0)="""RTN"",""PSOAMIS0"",27,0)"
^XMB(3.9,108,2,368,0)=" .I $P($G(^VA(200,PHYS,""PS"")),""^"",6)=4 S $P(^TMP(""PSOAMIS"",$J,""AMIS"",DIV),""^"",10)=+$P(^TMP(""PSOAMIS"",$J,""AMIS"",DIV),""^"",10)+1"
^XMB(3.9,108,2,369,0)="""RTN"",""PSOAMIS0"",28,0)"
^XMB(3.9,108,2,370,0)=" .E  S $P(^TMP(""PSOAMIS"",$J,""AMIS"",DIV),""^"",11)=+$P(^TMP(""PSOAMIS"",$J,""AMIS"",DIV),""^"",11)+1"
^XMB(3.9,108,2,371,0)="""RTN"",""PSOAMIS0"",29,0)"
^XMB(3.9,108,2,372,0)=" .D STA"
^XMB(3.9,108,2,373,0)="""RTN"",""PSOAMIS0"",30,0)"
^XMB(3.9,108,2,374,0)=" Q"
^XMB(3.9,108,2,375,0)="""RTN"",""PSOAMIS0"",31,0)"
^XMB(3.9,108,2,376,0)="ORI Q:'$P(RX2,""^"",13)!('$D(^PS(59,+$P(RX2,""^"",9),0)))"
^XMB(3.9,108,2,377,0)="""RTN"",""PSOAMIS0"",32,0)"
^XMB(3.9,108,2,378,0)=" S RX=^PSRX(PSODFN,0),PHYS=+$P(RX,""^"",4),DIV=$S($P(RX2,""^"",9):$P(RX2,""^"",9),1:$O(^PS(59,0))),$P(^TMP(""PSOAMIS"",$J,""AMIS"",DIV),""^"",13)=+$P(^TMP(""PSOAMIS"",$J,""AMIS"",DIV),""^"",13)+1"
^XMB(3.9,108,2,379,0)="""RTN"",""PSOAMIS0"",33,0)"
^XMB(3.9,108,2,380,0)=" S $P(^TMP(""PSOAMIS"",$J,""AMIS"",DIV),""^"",$S($P(RX,""^"",11)=""W"":15,1:16))=+$P(^TMP(""PSOAMIS"",$J,""AMIS"",DIV),""^"",$S($P(RX,""^"",11)=""W"":15,1:16))+1"
^XMB(3.9,108,2,381,0)="""RTN"",""PSOAMIS0"",34,0)"
^XMB(3.9,108,2,382,0)=" I $P($G(^VA(200,PHYS,""PS"")),""^"",6)=4 S $P(^TMP(""PSOAMIS"",$J,""AMIS"",DIV),""^"",10)=+$P(^TMP(""PSOAMIS"",$J,""AMIS"",DIV),""^"",10)+1"
^XMB(3.9,108,2,383,0)="""RTN"",""PSOAMIS0"",35,0)"
^XMB(3.9,108,2,384,0)=" E  S $P(^TMP(""PSOAMIS"",$J,""AMIS"",DIV),""^"",11)=+$P(^TMP(""PSOAMIS"",$J,""AMIS"",DIV),""^"",11)+1"
^XMB(3.9,108,2,385,0)="""RTN"",""PSOAMIS0"",36,0)"
^XMB(3.9,108,2,386,0)=" D STA"
^XMB(3.9,108,2,387,0)="""RTN"",""PSOAMIS0"",37,0)"
^XMB(3.9,108,2,388,0)=" Q"
^XMB(3.9,108,2,389,0)="""RTN"",""PSOAMIS0"",38,0)"
^XMB(3.9,108,2,390,0)="REF Q:'$P($G(^PSRX(PSODFN,1,DA,0)),""^"",18)!('$D(^PS(59,$P($G(^PSRX(PSODFN,1,DA,0)),""^"",9),0)))"
^XMB(3.9,108,2,391,0)="""RTN"",""PSOAMIS0"",39,0)"
^XMB(3.9,108,2,392,0)=" S RXF=^PSRX(PSODFN,1,DA,0),DIV=$S($P(RXF,""^"",9):$P(RXF,""^"",9),1:DIV),$P(^TMP(""PSOAMIS"",$J,""AMIS"",DIV),""^"",14)=+$P(^TMP(""PSOAMIS"",$J,""AMIS"",DIV),""^"",14)+1"
^XMB(3.9,108,2,393,0)="""RTN"",""PSOAMIS0"",40,0)"
^XMB(3.9,108,2,394,0)=" S $P(^TMP(""PSOAMIS"",$J,""AMIS"",DIV),""^"",$S($P(RXF,""^"",2)=""W"":15,1:16))=+$P(^TMP(""PSOAMIS"",$J,""AMIS"",DIV),""^"",$S($P(RXF,""^"",2)=""W"":15,1:16))+1"
^XMB(3.9,108,2,395,0)="""RTN"",""PSOAMIS0"",41,0)"
^XMB(3.9,108,2,396,0)=" S PHYS=$S($P(RXF,""^"",17):+$P(RXF,""^"",17),1:$P(RX0,""^"",4))"
^XMB(3.9,108,2,397,0)="""RTN"",""PSOAMIS0"",42,0)"
^XMB(3.9,108,2,398,0)=" I $P($G(^VA(200,PHYS,""PS"")),""^"",6)=4 S $P(^TMP(""PSOAMIS"",$J,""AMIS"",DIV),""^"",10)=+$P(^TMP(""PSOAMIS"",$J,""AMIS"",DIV),""^"",10)+1"
^XMB(3.9,108,2,399,0)="""RTN"",""PSOAMIS0"",43,0)"
^XMB(3.9,108,2,400,0)=" E  S $P(^TMP(""PSOAMIS"",$J,""AMIS"",DIV),""^"",11)=+$P(^TMP(""PSOAMIS"",$J,""AMIS"",DIV),""^"",11)+1"
^XMB(3.9,108,2,401,0)="""RTN"",""PSOAMIS0"",44,0)"
^XMB(3.9,108,2,402,0)=" D STA"
^XMB(3.9,108,2,403,0)="""RTN"",""PSOAMIS0"",45,0)"
^XMB(3.9,108,2,404,0)=" Q"
^XMB(3.9,108,2,405,0)="""RTN"",""PSOAMIS0"",46,0)"
^XMB(3.9,108,2,406,0)="CLE F I=0:0 S I=$O(^PS(59,I)) Q:'I  S METHAD(I)=+$P($G(^PS(59,I,5)),""^"",2),^TMP(""PSOAMIS"",$J,""AMIS"",I)=0"
^XMB(3.9,108,2,407,0)="""RTN"",""PSOAMIS0"",47,0)"
^XMB(3.9,108,2,408,0)=" Q"
^XMB(3.9,108,2,409,0)="""RTN"",""PSOAMIS0"",48,0)"
^XMB(3.9,108,2,410,0)="STA S STY=$P($G(^PS(53,ST,0)),""^"",6)"
^XMB(3.9,108,2,411,0)="""RTN"",""PSOAMIS0"",49,0)"
^XMB(3.9,108,2,412,0)=" S $P(^TMP(""PSOAMIS"",$J,""AMIS"",DIV),""^"",$S(STY=1:2,STY=2:4,STY=3:6,STY=4:1,STY=5:17,1:12))=+$P(^TMP(""PSOAMIS"",$J,""AMIS"",DIV),""^"",$S(STY=1:2,STY=2:4,STY=3:6,STY=4:1,STY=5:17,1:12))+1"
^XMB(3.9,108,2,413,0)="""RTN"",""PSOAMIS0"",50,0)"
^XMB(3.9,108,2,414,0)=" S NRC=$P($G(^PSDRUG(DRUG,0)),""^"",3) I NRC[""A""!(NRC[""C"") S $P(^TMP(""PSOAMIS"",$J,""AMIS"",DIV),""^"",7)=$P(^TMP(""PSOAMIS"",$J,""AMIS"",DIV),""^"",7)+1"
^XMB(3.9,108,2,415,0)="""RTN"",""PSOAMIS0"",51,0)"
^XMB(3.9,108,2,416,0)=" S:DRUG=$G(METHAD(DIV)) $P(^TMP(""PSOAMIS"",$J,""AMIS"",DIV),""^"",8)=$P(^TMP(""PSOAMIS"",$J,""AMIS"",DIV),""^"",8)+1"
^XMB(3.9,108,2,417,0)="""RTN"",""PSOAMIS0"",52,0)"
^XMB(3.9,108,2,418,0)=" I '$D(^TMP(""PSOAMIS"",$J,DIV,PAT)) S ^TMP(""PSOAMIS"",$J,DIV,PAT)="""",$P(^TMP(""PSOAMIS"",$J,""AMIS"",DIV),""^"",9)=$P(^TMP(""PSOAMIS"",$J,""AMIS"",DIV),""^"",9)+1"
^XMB(3.9,108,2,419,0)="""RTN"",""PSOAMIS0"",53,0)"
^XMB(3.9,108,2,420,0)=" Q"
^XMB(3.9,108,2,421,0)="""RTN"",""PSOAMIS0"",54,0)"
^XMB(3.9,108,2,422,0)="BUILD ;set global node"
^XMB(3.9,108,2,423,0)="""RTN"",""PSOAMIS0"",55,0)"
^XMB(3.9,108,2,424,0)=" F I=0:0 S I=$O(^PS(59,I)) Q:'I  S ^PS(59.1,$P(PSDATE,"".""),1,I,0)=$P(^PS(59.1,$P(PSDATE,"".""),1,I,0),""^"")_""^""_^TMP(""PSOAMIS"",$J,""AMIS"",I) D"
^XMB(3.9,108,2,425,0)="""RTN"",""PSOAMIS0"",56,0)"
^XMB(3.9,108,2,426,0)=" .F IFN=2:1:18 S $P(^PS(59.1,$P(PSDATE,"".""),1,I,0),""^"",IFN)=+$P(^PS(59.1,$P(PSDATE,"".""),1,I,0),""^"",IFN)"
^XMB(3.9,108,2,427,0)="""RTN"",""PSOAMIS0"",57,0)"
^XMB(3.9,108,2,428,0)=" K PAT,IFN,^TMP(""PSOAMIS"",$J)"
^XMB(3.9,108,2,429,0)="""RTN"",""PSOAMIS0"",58,0)"
^XMB(3.9,108,2,430,0)=" Q"
^XMB(3.9,108,2,431,0)="""RTN"",""PSOAMIS0"",59,0)"
^XMB(3.9,108,2,432,0)="ADD Q:$G(^PS(59.1,$P(PSDATE,"".""),0))"
^XMB(3.9,108,2,433,0)="""RTN"",""PSOAMIS0"",60,0)"
^XMB(3.9,108,2,434,0)=" S (X,DINUM)=$P(PSDATE,"".""),DIC=""^PS(59.1,"",DIC(0)=""L"" K DD,DO D FILE^DICN K DD,DO"
^XMB(3.9,108,2,435,0)="""RTN"",""PSOAMIS0"",61,0)"
^XMB(3.9,108,2,436,0)=" S I=0 F  S I=$O(^PS(59,I)) Q:'I  S ^PS(59.1,$P(PSDATE,"".""),1,0)=""^59.11PA^""_I,^PS(59.1,$P(PSDATE,"".""),1,I,0)=I,^PS(59.1,$P(PSDATE,"".""),1,""B"",I,I)="""" S $P(^PS(59.1,$P(PSDATE,"".""),1,0),""^"",4)=($P(^PS(59.1,$P(PSDATE,"".""),1,0),""^"",4)+1)"
^XMB(3.9,108,2,437,0)="""RTN"",""PSOAMIS0"",62,0)"
^XMB(3.9,108,2,438,0)=" Q"
^XMB(3.9,108,2,439,0)="""RTN"",""PSOAMIS0"",63,0)"
^XMB(3.9,108,2,440,0)="RECOM ;recompiles AMIS data"
^XMB(3.9,108,2,441,0)="""RTN"",""PSOAMIS0"",64,0)"
^XMB(3.9,108,2,442,0)=" K ^TMP(""PSOAMIS"",$J)"
^XMB(3.9,108,2,443,0)="""RTN"",""PSOAMIS0"",65,0)"
^XMB(3.9,108,2,444,0)=" W ! S %DT(0)=-DT,%DT(""A"")=""Recompile AMIS Starting: "" S %DT=""EPXA"" D ^%DT G:""^""[X END G RECOM:'Y S (HDATE,SDT)=Y K %DT(0)"
^XMB(3.9,108,2,445,0)="""RTN"",""PSOAMIS0"",66,0)"
^XMB(3.9,108,2,446,0)="REDT W ! S %DT(0)=SDT,%DT(""A"")=""Ending Stats Date: "" D ^%DT G:""^""[X END S EDT=Y I Y<0 G REDT"
^XMB(3.9,108,2,447,0)="""RTN"",""PSOAMIS0"",67,0)"
^XMB(3.9,108,2,448,0)=" S EDT=EDT_"".9999999"""
^XMB(3.9,108,2,449,0)="""RTN"",""PSOAMIS0"",68,0)"
^XMB(3.9,108,2,450,0)=" S ZTRTN=""BEG^PSOAMIS0"",ZTDESC=""Recompile Outpatient AMIS Data"",ZTIO="""" F G=""SDT"",""EDT"",""HDATE"" S:$D(@G) ZTSAVE(G)="""""
^XMB(3.9,108,2,451,0)="""RTN"",""PSOAMIS0"",69,0)"
^XMB(3.9,108,2,452,0)=" D ^%ZTLOAD W:$D(ZTSK) !!,""Task Queued !"",! K SDT,EDT,G,ZTSK,ZTIO"
^XMB(3.9,108,2,453,0)="""RTN"",""PSOAMIS0"",70,0)"
^XMB(3.9,108,2,454,0)=" Q"
^XMB(3.9,108,2,455,0)="""RTN"",""PSOAMIS0"",71,0)"
^XMB(3.9,108,2,456,0)="BEG K LSTDFN,LSTDT,^TMP(""PSOAMIS"",$J) S LSTDT="""",PSDATE=SDT,BLD=0"
^XMB(3.9,108,2,457,0)="""RTN"",""PSOAMIS0"",72,0)"
^XMB(3.9,108,2,458,0)=" S PSDT=SDT-1 F  S PSDT=$O(^PS(59.1,PSDT)) Q:'PSDT!(PSDT>EDT)  K ^PS(59.1,PSDT),^PS(59.1,""B"",PSDT,PSDT)"
^XMB(3.9,108,2,459,0)="""RTN"",""PSOAMIS0"",73,0)"
^XMB(3.9,108,2,460,0)=" F I=0:0 S I=$O(^PS(59,I)) Q:'I  S METHAD(I)=+$P($G(^PS(59,I,5)),""^"",2)"
^XMB(3.9,108,2,461,0)="""RTN"",""PSOAMIS0"",74,0)"
^XMB(3.9,108,2,462,0)=" S PSDATE=PSDATE-1+.999999                                    ;PSO*232"
^XMB(3.9,108,2,463,0)="""RTN"",""PSOAMIS0"",75,0)"
^XMB(3.9,108,2,464,0)=" F R=0:0 S PSDATE=$O(^PSRX(""AL"",PSDATE)) Q:'PSDATE!(PSDATE>EDT)  F RXN=0:0 S RXN=$O(^PSRX(""AL"",PSDATE,RXN)) Q:'RXN  S DA="""" F TY=0:0 S DA=$O(^PSRX(""AL"",PSDATE,RXN,DA)) Q:DA=""""  I $D(^PSRX(RXN,0)) D"
^XMB(3.9,108,2,465,0)="""RTN"",""PSOAMIS0"",76,0)"
^XMB(3.9,108,2,466,0)=" .S RX0=^PSRX(RXN,0),RX2=^(2),PAT=$P(RX0,""^"",2),ST=$P(RX0,""^"",3),DRUG=$P(RX0,""^"",6)"
^XMB(3.9,108,2,467,0)="""RTN"",""PSOAMIS0"",77,0)"
^XMB(3.9,108,2,468,0)=" .D:'DA ORI1 D:DA REF1"
^XMB(3.9,108,2,469,0)="""RTN"",""PSOAMIS0"",78,0)"
^XMB(3.9,108,2,470,0)=" S PSDATE=HDATE-1+.999999                                     ;PSO*232"
^XMB(3.9,108,2,471,0)="""RTN"",""PSOAMIS0"",79,0)"
^XMB(3.9,108,2,472,0)=" F R=0:0 S PSDATE=$O(^PSRX(""AM"",PSDATE)) Q:'PSDATE!(PSDATE>EDT)  F RXN=0:0 S RXN=$O(^PSRX(""AM"",PSDATE,RXN)) Q:'RXN  S DA=0 F  S DA=$O(^PSRX(""AM"",PSDATE,RXN,DA)) Q:'DA  I $D(^PSRX(RXN,0)) D:$P($G(^PSRX(RXN,""P"",DA,0)),""^"",19)"
^XMB(3.9,108,2,473,0)="""RTN"",""PSOAMIS0"",80,0)"
^XMB(3.9,108,2,474,0)=" .S RX0=^PSRX(RXN,0),RX2=^(2),PAT=$P(RX0,""^"",2),ST=$P(RX0,""^"",3),DRUG=$P(RX0,""^"",6)"
^XMB(3.9,108,2,475,0)="""RTN"",""PSOAMIS0"",81,0)"
^XMB(3.9,108,2,476,0)=" .S RXF=^PSRX(RXN,""P"",DA,0),DIV=$S($P(RXF,""^"",9):$P(RXF,""^"",9),1:$P(RX2,""^"",9))"
^XMB(3.9,108,2,477,0)="""RTN"",""PSOAMIS0"",82,0)"
^XMB(3.9,108,2,478,0)=" .D PAR"
^XMB(3.9,108,2,479,0)="""RTN"",""PSOAMIS0"",83,0)"
^XMB(3.9,108,2,480,0)=" ;"
^XMB(3.9,108,2,481,0)="""RTN"",""PSOAMIS0"",84,0)"
^XMB(3.9,108,2,482,0)=" Q"
^XMB(3.9,108,2,483,0)="""RTN"",""PSOAMIS0"",85,0)"
^XMB(3.9,108,2,484,0)="ORI1 Q:'$P(RX2,""^"",13)"
^XMB(3.9,108,2,485,0)="""RTN"",""PSOAMIS0"",86,0)"
^XMB(3.9,108,2,486,0)=" S RX=^PSRX(RXN,0),PHYS=+$P(RX,""^"",4),DIV=$S($P(RX2,""^"",9):$P(RX2,""^"",9),1:$O(^PS(59,0)))"
^XMB(3.9,108,2,487,0)="""RTN"",""PSOAMIS0"",87,0)"
^XMB(3.9,108,2,488,0)=" D SETNODE"
^XMB(3.9,108,2,489,0)="""RTN"",""PSOAMIS0"",88,0)"
^XMB(3.9,108,2,490,0)=" S $P(^PS(59.1,$P(PSDATE,"".""),1,DIV,0),""^"",14)=$P($G(^PS(59.1,$P(PSDATE,"".""),1,DIV,0)),""^"",14)+1"
^XMB(3.9,108,2,491,0)="""RTN"",""PSOAMIS0"",89,0)"
^XMB(3.9,108,2,492,0)=" S $P(^PS(59.1,$P(PSDATE,"".""),1,DIV,0),""^"",$S($P(RX,""^"",11)=""W"":16,1:17))=$P(^PS(59.1,$P(PSDATE,"".""),1,DIV,0),""^"",$S($P(RX,""^"",11)=""W"":16,1:17))+1"
^XMB(3.9,108,2,493,0)="""RTN"",""PSOAMIS0"",90,0)"
^XMB(3.9,108,2,494,0)=" D SETUP"
^XMB(3.9,108,2,495,0)="""RTN"",""PSOAMIS0"",91,0)"
^XMB(3.9,108,2,496,0)=" Q"
^XMB(3.9,108,2,497,0)="""RTN"",""PSOAMIS0"",92,0)"
^XMB(3.9,108,2,498,0)="REF1 Q:'$P($G(^PSRX(RXN,1,DA,0)),""^"",18)"
^XMB(3.9,108,2,499,0)="""RTN"",""PSOAMIS0"",93,0)"
^XMB(3.9,108,2,500,0)=" S RXF=^PSRX(RXN,1,DA,0),DIV=$S($P(RXF,""^"",9):$P(RXF,""^"",9),1:DIV)"
^XMB(3.9,108,2,501,0)="""RTN"",""PSOAMIS0"",94,0)"
^XMB(3.9,108,2,502,0)="PAR D SETNODE"
^XMB(3.9,108,2,503,0)="""RTN"",""PSOAMIS0"",95,0)"
^XMB(3.9,108,2,504,0)=" S PHYS=$S($P(RXF,""^"",17):+$P(RXF,""^"",17),1:$P(RX0,""^"",4))"
^XMB(3.9,108,2,505,0)="""RTN"",""PSOAMIS0"",96,0)"
^XMB(3.9,108,2,506,0)=" S $P(^PS(59.1,$P(PSDATE,"".""),1,DIV,0),""^"",15)=$P(^PS(59.1,$P(PSDATE,"".""),1,DIV,0),""^"",15)+1"
^XMB(3.9,108,2,507,0)="""RTN"",""PSOAMIS0"",97,0)"
^XMB(3.9,108,2,508,0)=" S $P(^PS(59.1,$P(PSDATE,"".""),1,DIV,0),""^"",$S($P(RXF,""^"",2)=""W"":16,1:17))=$P(^PS(59.1,$P(PSDATE,"".""),1,DIV,0),""^"",$S($P(RXF,""^"",2)=""W"":16,1:17))+1"
^XMB(3.9,108,2,509,0)="""RTN"",""PSOAMIS0"",98,0)"
^XMB(3.9,108,2,510,0)=" D SETUP"
^XMB(3.9,108,2,511,0)="""RTN"",""PSOAMIS0"",99,0)"
^XMB(3.9,108,2,512,0)=" Q"
^XMB(3.9,108,2,513,0)="""RTN"",""PSOAMIS0"",100,0)"
^XMB(3.9,108,2,514,0)="SETUP ;"
^XMB(3.9,108,2,515,0)="""RTN"",""PSOAMIS0"",101,0)"
^XMB(3.9,108,2,516,0)=" I $P($G(^VA(200,PHYS,""PS"")),""^"",6)=4 S $P(^PS(59.1,$P(PSDATE,"".""),1,DIV,0),""^"",11)=$P(^PS(59.1,$P(PSDATE,"".""),1,DIV,0),""^"",11)+1"
^XMB(3.9,108,2,517,0)="""RTN"",""PSOAMIS0"",102,0)"
^XMB(3.9,108,2,518,0)=" E  S $P(^PS(59.1,$P(PSDATE,"".""),1,DIV,0),""^"",12)=$P(^PS(59.1,$P(PSDATE,"".""),1,DIV,0),""^"",12)+1"
^XMB(3.9,108,2,519,0)="""RTN"",""PSOAMIS0"",103,0)"
^XMB(3.9,108,2,520,0)=" S STY=$P($G(^PS(53,ST,0)),""^"",6)"
^XMB(3.9,108,2,521,0)="""RTN"",""PSOAMIS0"",104,0)"
^XMB(3.9,108,2,522,0)=" S $P(^PS(59.1,$P(PSDATE,"".""),1,DIV,0),""^"",$S(STY=1:3,STY=2:5,STY=3:7,STY=4:2,STY=5:18,1:13))=+$P(^PS(59.1,$P(PSDATE,"".""),1,DIV,0),""^"",$S(STY=1:3,STY=2:5,STY=3:7,STY=4:2,STY=5:18,1:13))+1"
^XMB(3.9,108,2,523,0)="""RTN"",""PSOAMIS0"",105,0)"
^XMB(3.9,108,2,524,0)=" S NRC=$P($G(^PSDRUG(DRUG,0)),""^"",3) I NRC[""A""!(NRC[""C"") S $P(^PS(59.1,$P(PSDATE,"".""),1,DIV,0),""^"",8)=$P(^PS(59.1,$P(PSDATE,"".""),1,DIV,0),""^"",8)+1"
^XMB(3.9,108,2,525,0)="""RTN"",""PSOAMIS0"",106,0)"
^XMB(3.9,108,2,526,0)=" S:DRUG=$G(METHAD(DIV)) $P(^PS(59.1,$P(PSDATE,"".""),1,DIV,0),""^"",9)=$P(^PS(59.1,$P(PSDATE,"".""),1,DIV,0),""^"",9)+1"
^XMB(3.9,108,2,527,0)="""RTN"",""PSOAMIS0"",107,0)"
^XMB(3.9,108,2,528,0)=" I '$D(^TMP(""PSOAMIS"",$J,DIV,$P(PSDATE,"".""),PAT)) S ^TMP(""PSOAMIS"",$J,DIV,$P(PSDATE,"".""),PAT)="""",$P(^PS(59.1,$P(PSDATE,"".""),1,DIV,0),""^"",10)=$P(^PS(59.1,$P(PSDATE,"".""),1,DIV,0),""^"",10)+1"
^XMB(3.9,108,2,529,0)="""RTN"",""PSOAMIS0"",108,0)"
^XMB(3.9,108,2,530,0)=" Q"
^XMB(3.9,108,2,531,0)="""RTN"",""PSOAMIS0"",109,0)"
^XMB(3.9,108,2,532,0)="SETNODE ;"
^XMB(3.9,108,2,533,0)="""RTN"",""PSOAMIS0"",110,0)"
^XMB(3.9,108,2,534,0)=" I '$G(^PS(59.1,$P(PSDATE,"".""),0)) D"
^XMB(3.9,108,2,535,0)="""RTN"",""PSOAMIS0"",111,0)"
^XMB(3.9,108,2,536,0)=" .S (X,DINUM)=$P(PSDATE,"".""),DIC=""^PS(59.1,"",DIC(0)=""L"" K DD,DO D FILE^DICN K DD,DO"
^XMB(3.9,108,2,537,0)="""RTN"",""PSOAMIS0"",112,0)"
^XMB(3.9,108,2,538,0)=" .S ^PS(59.1,$P(PSDATE,"".""),1,0)=""^59.11PA^"""
^XMB(3.9,108,2,539,0)="""RTN"",""PSOAMIS0"",113,0)"
^XMB(3.9,108,2,540,0)=" .F I=0:0 S I=$O(^PS(59,I)) Q:'I  S ^PS(59.1,$P(PSDATE,"".""),1,I,0)=I_""^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0"",^PS(59.1,$P(PSDATE,"".""),1,""B"",I,I)="""" D"
^XMB(3.9,108,2,541,0)="""RTN"",""PSOAMIS0"",114,0)"
^XMB(3.9,108,2,542,0)=" ..S $P(^PS(59.1,$P(PSDATE,"".""),1,0),""^"",3)=I,$P(^PS(59.1,$P(PSDATE,"".""),1,0),""^"",4)=($P(^PS(59.1,$P(PSDATE,"".""),1,0),""^"",4)+1)"
^XMB(3.9,108,2,543,0)="""RTN"",""PSOAMIS0"",115,0)"
^XMB(3.9,108,2,544,0)=" Q"
^XMB(3.9,108,2,545,0)="""RTN"",""PSOBGMGR"")"
^XMB(3.9,108,2,546,0)="0^4^B61535737^B52938533"
^XMB(3.9,108,2,547,0)="""RTN"",""PSOBGMGR"",1,0)"
^XMB(3.9,108,2,548,0)="PSOBGMGR ;BHAM ISC/LC - BINGO BOARD MANAGER ;2/15/06 1:03pm"
^XMB(3.9,108,2,549,0)="""RTN"",""PSOBGMGR"",2,0)"
^XMB(3.9,108,2,550,0)=" ;;7.0;OUTPATIENT PHARMACY;**12,232**;DEC 1997"
^XMB(3.9,108,2,551,0)="""RTN"",""PSOBGMGR"",3,0)"
^XMB(3.9,108,2,552,0)=" ;"
^XMB(3.9,108,2,553,0)="""RTN"",""PSOBGMGR"",4,0)"
^XMB(3.9,108,2,554,0)=" ;PSO*232 add check for bad ATIC xref and cleanup"
^XMB(3.9,108,2,555,0)="""RTN"",""PSOBGMGR"",5,0)"
^XMB(3.9,108,2,556,0)=" ;"
^XMB(3.9,108,2,557,0)="""RTN"",""PSOBGMGR"",6,0)"
^XMB(3.9,108,2,558,0)="CODE D:'$D(PSOPAR) ^PSOLSET G:'$D(PSOPAR) END"
^XMB(3.9,108,2,559,0)="""RTN"",""PSOBGMGR"",7,0)"
^XMB(3.9,108,2,560,0)=" S:$P($G(^PS(59,PSOSITE,1)),""^"",20)'="""" DGP=$P($G(^PS(59,PSOSITE,1)),""^"",20)"
^XMB(3.9,108,2,561,0)="""RTN"",""PSOBGMGR"",8,0)"
^XMB(3.9,108,2,562,0)=" G ERASE:$G(FLAG)=3,STOPIT:$G(FLAG)=2,DISP:$G(FLAG)=1"
^XMB(3.9,108,2,563,0)="""RTN"",""PSOBGMGR"",9,0)"
^XMB(3.9,108,2,564,0)="TEST S DIK=""^PS(52.11,"" F TEST=0:0 S TEST=$O(^PS(52.11,TEST)) Q:'TEST  D"
^XMB(3.9,108,2,565,0)="""RTN"",""PSOBGMGR"",10,0)"
^XMB(3.9,108,2,566,0)=" .S TEST1=$P($P($G(^(TEST,0)),""^"",5),""."") I $G(TEST1)<DT S DA=TEST D ^DIK"
^XMB(3.9,108,2,567,0)="""RTN"",""PSOBGMGR"",11,0)"
^XMB(3.9,108,2,568,0)=" K DIK,TEST,TEST1"
^XMB(3.9,108,2,569,0)="""RTN"",""PSOBGMGR"",12,0)"
^XMB(3.9,108,2,570,0)="BEGI S ROLL=1,(ZV,ZH,PSOUT,FLG)=0 I $G(IOST(0))']"""" W !,""Please check Device Type and try again"" Q"
^XMB(3.9,108,2,571,0)="""RTN"",""PSOBGMGR"",13,0)"
^XMB(3.9,108,2,572,0)=" S X=""IODHLT;IODHLB;IORVOFF;IORVON"" D ENDR^%ZISS S TOP=IODHLT,BOT=IODHLB,VOFF=IORVOFF,VON=IORVON K IODHLT,IODHLB,IORVOFF,IORVON,DIC"
^XMB(3.9,108,2,573,0)="""RTN"",""PSOBGMGR"",14,0)"
^XMB(3.9,108,2,574,0)=" S:$G(DGP) DIC(""B"")=DGP S (DIC,DIE)=59.3,DIC(0)=""AEQMZ"" D ^DIC K DIC Q:+Y'>0  S (ADA,DA)=+Y"
^XMB(3.9,108,2,575,0)="""RTN"",""PSOBGMGR"",15,0)"
^XMB(3.9,108,2,576,0)=" I $P($G(^PS(59.3,ADA,3)),""^"")=1,'$G(^PS(59.3,ADA,""STOP"")) W !,""Board has already been started!"",$C(7) G END"
^XMB(3.9,108,2,577,0)="""RTN"",""PSOBGMGR"",16,0)"
^XMB(3.9,108,2,578,0)=" S COLM=$P($G(^PS(59.3,ADA,3)),""^"",5),DWT=$P($G(^(3)),""^"",6),NWT=$P($G(^(3)),""^"",7)"
^XMB(3.9,108,2,579,0)="""RTN"",""PSOBGMGR"",17,0)"
^XMB(3.9,108,2,580,0)=" S FTX=""PRESCRIPTIONS ARE READY FOR:"""
^XMB(3.9,108,2,581,0)="""RTN"",""PSOBGMGR"",18,0)"
^XMB(3.9,108,2,582,0)=" S ^PS(59.3,ADA,""STOP"")=0,STOP=0 S TCK=$P(^PS(59.3,ADA,0),""^"",2) I $G(TCK)=""T"" D TICKDV G END"
^XMB(3.9,108,2,583,0)="""RTN"",""PSOBGMGR"",19,0)"
^XMB(3.9,108,2,584,0)=" D DEV^PSOBGMG1 W:$G(NODV) !,""No device selected."" G END"
^XMB(3.9,108,2,585,0)="""RTN"",""PSOBGMGR"",20,0)"
^XMB(3.9,108,2,586,0)="ANAME G:$G(^PS(59.3,ADA,""STOP"")) END H:ZV 20"
^XMB(3.9,108,2,587,0)="""RTN"",""PSOBGMGR"",21,0)"
^XMB(3.9,108,2,588,0)=" I $P($G(^PS(59.3,ADA,3)),""^"")=1&($P($G(^PS(59.3,ADA,3)),""^"",4)'="""") D"
^XMB(3.9,108,2,589,0)="""RTN"",""PSOBGMGR"",22,0)"
^XMB(3.9,108,2,590,0)=" .D NOW^%DTC S:$E($P($G(%),""."",2),1,4)'<$E($P($P($G(^PS(59.3,ADA,3)),""^"",4),""."",2),1,4) ^PS(59.3,ADA,""STOP"")=1,STOP=1 D:STOP ASTOP^PSOBGMG2"
^XMB(3.9,108,2,591,0)="""RTN"",""PSOBGMGR"",23,0)"
^XMB(3.9,108,2,592,0)=" D:$G(DWT) WAIT^PSOBGMG1"
^XMB(3.9,108,2,593,0)="""RTN"",""PSOBGMGR"",24,0)"
^XMB(3.9,108,2,594,0)=" W @IOF F NOTE=0:0 S NOTE=$O(^PS(59.3,ADA,2,NOTE)) Q:'NOTE!($G(^PS(59.3,ADA,""STOP"")))  S NOTES=^PS(59.3,ADA,2,NOTE,0) W !?2,TOP,NOTES,!?2,BOT,NOTES H 3"
^XMB(3.9,108,2,595,0)="""RTN"",""PSOBGMGR"",25,0)"
^XMB(3.9,108,2,596,0)=" G:$G(^PS(59.3,ADA,""STOP"")) END W @IOF"
^XMB(3.9,108,2,597,0)="""RTN"",""PSOBGMGR"",26,0)"
^XMB(3.9,108,2,598,0)=" I $G(DWT) S DX=1,DY=1 X IOXY W TOP,TTX,!?1,BOT,TTX,!"
^XMB(3.9,108,2,599,0)="""RTN"",""PSOBGMGR"",27,0)"
^XMB(3.9,108,2,600,0)=" S DX=1,DY=1 S:$G(DWT) DY=3 X IOXY W TOP,FTX S DY=DY+1 X IOXY W BOT,FTX,!"
^XMB(3.9,108,2,601,0)="""RTN"",""PSOBGMGR"",28,0)"
^XMB(3.9,108,2,602,0)=" S ZH=$S($G(COLM):1,1:10),ZV=4 S:$G(DWT) ZV=6"
^XMB(3.9,108,2,603,0)="""RTN"",""PSOBGMGR"",29,0)"
^XMB(3.9,108,2,604,0)=" S NAME="""" F  S NAME=$O(^PS(52.11,""ANAM"",ADA,NAME)) Q:""""[NAME!($G(^PS(59.3,ADA,""STOP"")))  D"
^XMB(3.9,108,2,605,0)="""RTN"",""PSOBGMGR"",30,0)"
^XMB(3.9,108,2,606,0)=" .I '$G(COLM) D INDX^PSOBGMG1 I ZV>18 D"
^XMB(3.9,108,2,607,0)="""RTN"",""PSOBGMGR"",31,0)"
^XMB(3.9,108,2,608,0)=" ..H 20 W @IOF I $G(DWT) S DX=1,DY=1 X IOXY W TOP,TTX,!?1,BOT,TTX,!"
^XMB(3.9,108,2,609,0)="""RTN"",""PSOBGMGR"",32,0)"
^XMB(3.9,108,2,610,0)=" ..S DX=1,DY=1 S:$G(DWT) DY=3 X IOXY W TOP,FTX S DY=DY+1 X IOXY W BOT,FTX,! S ZV=4,ZH=10 S:$G(DWT) ZV=6"
^XMB(3.9,108,2,611,0)="""RTN"",""PSOBGMGR"",33,0)"
^XMB(3.9,108,2,612,0)=" .I $G(COLM) D INDX^PSOBGMG1 I ZV>18,ZH>39 D"
^XMB(3.9,108,2,613,0)="""RTN"",""PSOBGMGR"",34,0)"
^XMB(3.9,108,2,614,0)=" ..H 20 W @IOF I $G(DWT) S DX=1,DY=1 X IOXY W TOP,TTX,!?1,BOT,TTX,!"
^XMB(3.9,108,2,615,0)="""RTN"",""PSOBGMGR"",35,0)"
^XMB(3.9,108,2,616,0)=" ..S DX=1,DY=1 S:$G(DWT) DY=3 X IOXY W TOP,FTX S DY=DY+1 X IOXY W BOT,FTX,! S ZV=4,ZH=1 S:$G(DWT) ZV=6"
^XMB(3.9,108,2,617,0)="""RTN"",""PSOBGMGR"",36,0)"
^XMB(3.9,108,2,618,0)=" .I $G(COLM),ZH>39 S ZV=ZV+2,ZH=1"
^XMB(3.9,108,2,619,0)="""RTN"",""PSOBGMGR"",37,0)"
^XMB(3.9,108,2,620,0)=" .S DX=ZH,DY=ZV X IOXY W TOP,$E(NAME,1,18) S DY=DY+1 X IOXY W BOT,$E(NAME,1,18),! S:'$G(COLM) ZV=ZV+2 S:$G(COLM) ZH=ZH+20 Q:$G(^PS(59.3,ADA,""STOP""))"
^XMB(3.9,108,2,621,0)="""RTN"",""PSOBGMGR"",38,0)"
^XMB(3.9,108,2,622,0)=" G:$G(^PS(59.3,ADA,""STOP"")) END Q:STOP  G ANAME"
^XMB(3.9,108,2,623,0)="""RTN"",""PSOBGMGR"",39,0)"
^XMB(3.9,108,2,624,0)="TICKDV D DEV^PSOBGMG1 W:$G(NODV) !,""No device selected."" G END"
^XMB(3.9,108,2,625,0)="""RTN"",""PSOBGMGR"",40,0)"
^XMB(3.9,108,2,626,0)="TICKET G:$G(^PS(59.3,ADA,""STOP"")) END H:ZV 20"
^XMB(3.9,108,2,627,0)="""RTN"",""PSOBGMGR"",41,0)"
^XMB(3.9,108,2,628,0)=" I $P($G(^PS(59.3,ADA,3)),""^"")=1&($P($G(^PS(59.3,ADA,3)),""^"",4)'="""") D"
^XMB(3.9,108,2,629,0)="""RTN"",""PSOBGMGR"",42,0)"
^XMB(3.9,108,2,630,0)=" .D NOW^%DTC S:$E($P($G(%),""."",2),1,4)'<$E($P($P($G(^PS(59.3,ADA,3)),""^"",4),""."",2),1,4) ^PS(59.3,ADA,""STOP"")=1,STOP=1 D:STOP ASTOP^PSOBGMG2"
^XMB(3.9,108,2,631,0)="""RTN"",""PSOBGMGR"",43,0)"
^XMB(3.9,108,2,632,0)=" D:$G(DWT) WAIT^PSOBGMG1"
^XMB(3.9,108,2,633,0)="""RTN"",""PSOBGMGR"",44,0)"
^XMB(3.9,108,2,634,0)=" W @IOF F NOTE=0:0 S NOTE=$O(^PS(59.3,ADA,2,NOTE)) Q:'NOTE!($G(^PS(59.3,ADA,""STOP"")))  S NOTES=^PS(59.3,ADA,2,NOTE,0) W !?2,TOP,NOTES,!?2,BOT,NOTES H 3"
^XMB(3.9,108,2,635,0)="""RTN"",""PSOBGMGR"",45,0)"
^XMB(3.9,108,2,636,0)=" G:$G(^PS(59.3,ADA,""STOP"")) END W @IOF"
^XMB(3.9,108,2,637,0)="""RTN"",""PSOBGMGR"",46,0)"
^XMB(3.9,108,2,638,0)=" I $G(DWT) S DX=1,DY=1 X IOXY W TOP,TTX,!?1,BOT,TTX,!"
^XMB(3.9,108,2,639,0)="""RTN"",""PSOBGMGR"",47,0)"
^XMB(3.9,108,2,640,0)=" S DX=1,DY=1 S:$G(DWT) DY=3 X IOXY W TOP,FTX S DY=DY+1 X IOXY W BOT,FTX,!"
^XMB(3.9,108,2,641,0)="""RTN"",""PSOBGMGR"",48,0)"
^XMB(3.9,108,2,642,0)=" S ZH=$S($G(COLM):1,1:15),ZV=4 S:$G(DWT) ZV=6"
^XMB(3.9,108,2,643,0)="""RTN"",""PSOBGMGR"",49,0)"
^XMB(3.9,108,2,644,0)=" S TICK="""" F  S TICK=$O(^PS(52.11,""ATIC"",ADA,TICK)) Q:'TICK!($G(^PS(59.3,ADA,""STOP"")))  D"
^XMB(3.9,108,2,645,0)="""RTN"",""PSOBGMGR"",50,0)"
^XMB(3.9,108,2,646,0)=" .;check for Bad records and kill orphaned xrefs             PSO*232"
^XMB(3.9,108,2,647,0)="""RTN"",""PSOBGMGR"",51,0)"
^XMB(3.9,108,2,648,0)=" .I $$ATICCHK(ADA,TICK) Q"
^XMB(3.9,108,2,649,0)="""RTN"",""PSOBGMGR"",52,0)"
^XMB(3.9,108,2,650,0)=" .I ZV>20 D"
^XMB(3.9,108,2,651,0)="""RTN"",""PSOBGMGR"",53,0)"
^XMB(3.9,108,2,652,0)=" ..H 20 W @IOF I $G(DWT) S DX=1,DY=1 X IOXY W TOP,TTX,!?1,BOT,TTX,!"
^XMB(3.9,108,2,653,0)="""RTN"",""PSOBGMGR"",54,0)"
^XMB(3.9,108,2,654,0)=" ..S DX=1,DY=1 S:$G(DWT) DY=3 X IOXY W TOP,FTX S DY=DY+1 X IOXY W BOT,FTX,! S ZV=4,ZH=$S($G(COLM):1,1:15) S:$G(DWT) ZV=6"
^XMB(3.9,108,2,655,0)="""RTN"",""PSOBGMGR"",55,0)"
^XMB(3.9,108,2,656,0)=" .I $G(COLM),ZH>16 S ZV=ZV+2,ZH=1"
^XMB(3.9,108,2,657,0)="""RTN"",""PSOBGMGR"",56,0)"
^XMB(3.9,108,2,658,0)=" .S DX=ZH,DY=ZV X IOXY W TOP,TICK S DY=DY+1 X IOXY W BOT,TICK,! S:'$G(COLM) ZV=ZV+2 S:$G(COLM) ZH=ZH+8"
^XMB(3.9,108,2,659,0)="""RTN"",""PSOBGMGR"",57,0)"
^XMB(3.9,108,2,660,0)=" G:$G(^PS(59.3,ADA,""STOP"")) END I '$G(COLM),ZV<6 H 20"
^XMB(3.9,108,2,661,0)="""RTN"",""PSOBGMGR"",58,0)"
^XMB(3.9,108,2,662,0)=" I ($G(COLM))&(ZV<6)&(ZH<39) H 20"
^XMB(3.9,108,2,663,0)="""RTN"",""PSOBGMGR"",59,0)"
^XMB(3.9,108,2,664,0)=" G TICKET"
^XMB(3.9,108,2,665,0)="""RTN"",""PSOBGMGR"",60,0)"
^XMB(3.9,108,2,666,0)="STOPIT K DIC S:$G(DGP) DIC(""B"")=DGP S (DIC,DIE)=59.3,DIC(0)=""AEQMZ"" D ^DIC K DIC Q:+Y'>0  S (ADA,DA)=+Y"
^XMB(3.9,108,2,667,0)="""RTN"",""PSOBGMGR"",61,0)"
^XMB(3.9,108,2,668,0)=" I $G(^PS(59.3,ADA,""STOP"")) W !!,$C(7),""Board has already been stopped."""
^XMB(3.9,108,2,669,0)="""RTN"",""PSOBGMGR"",62,0)"
^XMB(3.9,108,2,670,0)=" I  S DIR(""A"")=""Do you want to purge the remaining entries for this display group"",DIR(0)=""YO"",DIR(""B"")=""N"" D ^DIR K DIR G:$G(DIRUT) STOPEX G:Y PRG I 'Y W !!,""No data purged."" G STOPEX"
^XMB(3.9,108,2,671,0)="""RTN"",""PSOBGMGR"",63,0)"
^XMB(3.9,108,2,672,0)=" S ^PS(59.3,ADA,""STOP"")=1,STOP=1 W !!,""Board Stopped!!"",!!"
^XMB(3.9,108,2,673,0)="""RTN"",""PSOBGMGR"",64,0)"
^XMB(3.9,108,2,674,0)="CNT S CNT1=0 F CNT=0:0 S CNT=$O(^PS(52.11,CNT)) Q:'CNT  S:$P($G(^PS(52.11,CNT,0)),""^"",3)=ADA CNT1=CNT1+1"
^XMB(3.9,108,2,675,0)="""RTN"",""PSOBGMGR"",65,0)"
^XMB(3.9,108,2,676,0)=" I 'CNT1 W !!,""There are no entries to purge from the display group."",! G STOPEX"
^XMB(3.9,108,2,677,0)="""RTN"",""PSOBGMGR"",66,0)"
^XMB(3.9,108,2,678,0)=" W !!,$C(7),CNT1,"" entries still remain in the display group."",!"
^XMB(3.9,108,2,679,0)="""RTN"",""PSOBGMGR"",67,0)"
^XMB(3.9,108,2,680,0)="PRG K DIR S DIR(0)=""YO"",DIR(""A"")=""Purge this display's data now"",DIR(""B"")=""N"" D ^DIR K DIR G:$D(DIRUT) STOPEX I 'Y W !!,""No data purged."" G STOPEX"
^XMB(3.9,108,2,681,0)="""RTN"",""PSOBGMGR"",68,0)"
^XMB(3.9,108,2,682,0)=" W !!,""Purging data. Please wait."""
^XMB(3.9,108,2,683,0)="""RTN"",""PSOBGMGR"",69,0)"
^XMB(3.9,108,2,684,0)=" S DIK=""^PS(52.11,"",DA=0 F  S DA=$O(^PS(52.11,DA)) Q:'DA  D:$P($G(^PS(52.11,DA,0)),""^"",3)=ADA ^DIK"
^XMB(3.9,108,2,685,0)="""RTN"",""PSOBGMGR"",70,0)"
^XMB(3.9,108,2,686,0)=" W ""   Purge complete!"",!"
^XMB(3.9,108,2,687,0)="""RTN"",""PSOBGMGR"",71,0)"
^XMB(3.9,108,2,688,0)="STOPEX K ADA,AS,CNT,CNT1,DA,DIK,DIRUT,FLAG,STOP,Y Q"
^XMB(3.9,108,2,689,0)="""RTN"",""PSOBGMGR"",72,0)"
^XMB(3.9,108,2,690,0)="DISP W !! K DIC,DA,DR"
^XMB(3.9,108,2,691,0)="""RTN"",""PSOBGMGR"",73,0)"
^XMB(3.9,108,2,692,0)=" S (DIC,DIE,DLAYGO)=59.3,DIC(0)=""AELQMZ"" D ^DIC K DIC G:+Y'>0 DISPEX S (ADA,DA)=+Y I $G(^PS(59.3,ADA,""STOP""))=0 W !!,$C(7),""This display group has been started."",!,""It must be stopped before you can edit it."" G DISPEX"
^XMB(3.9,108,2,693,0)="""RTN"",""PSOBGMGR"",74,0)"
^XMB(3.9,108,2,694,0)=" W !! S DR=""[PSO DISPLAY EDIT]"",DIE(""NO^"")=""BACKOUTOK"" L +^PS(59.3,DA):0 G:'$T DISPEX1"
^XMB(3.9,108,2,695,0)="""RTN"",""PSOBGMGR"",75,0)"
^XMB(3.9,108,2,696,0)=" D ^DIE G:'$D(DA) DISP L -^PS(59.3,DA) G:'$D(^PS(59.3,DA,2,0)) DISP G:$G(DIRUT) DISPEX1"
^XMB(3.9,108,2,697,0)="""RTN"",""PSOBGMGR"",76,0)"
^XMB(3.9,108,2,698,0)=" ;"
^XMB(3.9,108,2,699,0)="""RTN"",""PSOBGMGR"",77,0)"
^XMB(3.9,108,2,700,0)=" I '$D(Y),$P($G(^PS(59.3,DA,0)),""^"",4),$P($G(^PS(59.3,DA,3)),""^"") K DIR S DIR(0)=""Y"",DIR(""A"")=""Do you want to initialize auto-start now"",DIR(""B"")=""NO"" D ^DIR K DIR G:$D(DIRUT) DISPEX1 S EDT=Y"
^XMB(3.9,108,2,701,0)="""RTN"",""PSOBGMGR"",78,0)"
^XMB(3.9,108,2,702,0)=" I $G(EDT) D STRTM^PSOBGMG2 G:'$G(EDT) DISPEX1 D INIJ^PSOBGMG2"
^XMB(3.9,108,2,703,0)="""RTN"",""PSOBGMGR"",79,0)"
^XMB(3.9,108,2,704,0)="DISPEX1 K EDT,DIE,DIR,DR Q"
^XMB(3.9,108,2,705,0)="""RTN"",""PSOBGMGR"",80,0)"
^XMB(3.9,108,2,706,0)=" ;"
^XMB(3.9,108,2,707,0)="""RTN"",""PSOBGMGR"",81,0)"
^XMB(3.9,108,2,708,0)="ATICCHK(DV,TK) ;check ATIC xref if points to non-existent recs, then cleanup"
^XMB(3.9,108,2,709,0)="""RTN"",""PSOBGMGR"",82,0)"
^XMB(3.9,108,2,710,0)=" ; Return 0 - if no cleanup"
^XMB(3.9,108,2,711,0)="""RTN"",""PSOBGMGR"",83,0)"
^XMB(3.9,108,2,712,0)=" ;        1 - if had to cleanup"
^XMB(3.9,108,2,713,0)="""RTN"",""PSOBGMGR"",84,0)"
^XMB(3.9,108,2,714,0)=" ;       "
^XMB(3.9,108,2,715,0)="""RTN"",""PSOBGMGR"",85,0)"
^XMB(3.9,108,2,716,0)=" Q:($G(DV)="""")!($G(TK)="""") 0"
^XMB(3.9,108,2,717,0)="""RTN"",""PSOBGMGR"",86,0)"
^XMB(3.9,108,2,718,0)=" N QT,P52 S P52=$O(^PS(52.11,""ATIC"",DV,TK,"""")),QT=0"
^XMB(3.9,108,2,719,0)="""RTN"",""PSOBGMGR"",87,0)"
^XMB(3.9,108,2,720,0)=" ;if record pointed to is no longer on file (probably deleted),"
^XMB(3.9,108,2,721,0)="""RTN"",""PSOBGMGR"",88,0)"
^XMB(3.9,108,2,722,0)=" ;then insure no orphanned xrefs"
^XMB(3.9,108,2,723,0)="""RTN"",""PSOBGMGR"",89,0)"
^XMB(3.9,108,2,724,0)=" I '$D(^PS(52.11,P52)) D  S QT=1"
^XMB(3.9,108,2,725,0)="""RTN"",""PSOBGMGR"",90,0)"
^XMB(3.9,108,2,726,0)=" . K ^PS(52.11,""ATIC"",DV,TK,P52)"
^XMB(3.9,108,2,727,0)="""RTN"",""PSOBGMGR"",91,0)"
^XMB(3.9,108,2,728,0)=" . K ^PS(52.11,""ANAMK"",P52)"
^XMB(3.9,108,2,729,0)="""RTN"",""PSOBGMGR"",92,0)"
^XMB(3.9,108,2,730,0)=" . K ^PS(52.11,""ANAM"",DV,TK,P52)"
^XMB(3.9,108,2,731,0)="""RTN"",""PSOBGMGR"",93,0)"
^XMB(3.9,108,2,732,0)=" . K ^PS(52.11,""C"",TK,P52)"
^XMB(3.9,108,2,733,0)="""RTN"",""PSOBGMGR"",94,0)"
^XMB(3.9,108,2,734,0)=" . K ^PS(52.11,""AD"",DV,P52)"
^XMB(3.9,108,2,735,0)="""RTN"",""PSOBGMGR"",95,0)"
^XMB(3.9,108,2,736,0)=" . N PA,PAI"
^XMB(3.9,108,2,737,0)="""RTN"",""PSOBGMGR"",96,0)"
^XMB(3.9,108,2,738,0)=" . S PA="""" F  S PA=$O(^PS(52.11,""ANAM"",DV,PA)) Q:PA=""""  D"
^XMB(3.9,108,2,739,0)="""RTN"",""PSOBGMGR"",97,0)"
^XMB(3.9,108,2,740,0)=" . . S PAI="""" F  S PAI=$O(^PS(52.11,""ANAM"",DV,PA,PAI)) Q:PAI=""""  D"
^XMB(3.9,108,2,741,0)="""RTN"",""PSOBGMGR"",98,0)"
^XMB(3.9,108,2,742,0)=" . . . I PAI=P52 K ^PS(52.11,""ANAM"",DV,PA,PAI)"
^XMB(3.9,108,2,743,0)="""RTN"",""PSOBGMGR"",99,0)"
^XMB(3.9,108,2,744,0)=" Q QT"
^XMB(3.9,108,2,745,0)="""RTN"",""PSOBGMGR"",100,0)"
^XMB(3.9,108,2,746,0)=" ;"
^XMB(3.9,108,2,747,0)="""RTN"",""PSOBGMGR"",101,0)"
^XMB(3.9,108,2,748,0)="TEXT ;display text about setting up dedicated device"
^XMB(3.9,108,2,749,0)="""RTN"",""PSOBGMGR"",102,0)"
^XMB(3.9,108,2,750,0)=" W !!,""In order to automatically start and stop the bingo board monitor,"""
^XMB(3.9,108,2,751,0)="""RTN"",""PSOBGMGR"",103,0)"
^XMB(3.9,108,2,752,0)=" W !,""a dedicated device must be setup by your IRM Service."",!!"
^XMB(3.9,108,2,753,0)="""RTN"",""PSOBGMGR"",104,0)"
^XMB(3.9,108,2,754,0)=" W ""Once a dedicated device is setup, the bingo board can be scheduled"""
^XMB(3.9,108,2,755,0)="""RTN"",""PSOBGMGR"",105,0)"
^XMB(3.9,108,2,756,0)=" W !,""to automatically start and/or stop at user-defined times."""
^XMB(3.9,108,2,757,0)="""RTN"",""PSOBGMGR"",106,0)"
^XMB(3.9,108,2,758,0)=" W !!,""Enter 'NO' at the DISPLAY SETUP HELP TEXT prompt to not display this help text."",!"
^XMB(3.9,108,2,759,0)="""RTN"",""PSOBGMGR"",107,0)"
^XMB(3.9,108,2,760,0)=" Q"
^XMB(3.9,108,2,761,0)="""RTN"",""PSOBGMGR"",108,0)"
^XMB(3.9,108,2,762,0)=" ;"
^XMB(3.9,108,2,763,0)="""RTN"",""PSOBGMGR"",109,0)"
^XMB(3.9,108,2,764,0)=" K ^UTILITY($J,""W"") S DIWL=1,DIWR=40,DIWF=""C40"" F NODE=0:0 S NODE=$O(^PS(59.3,DA,2,NODE)) Q:'NODE  S X=^(NODE,0) D ^DIWP"
^XMB(3.9,108,2,765,0)="""RTN"",""PSOBGMGR"",110,0)"
^XMB(3.9,108,2,766,0)=" F NODE=0:0 S NODE=$O(^UTILITY($J,""W"",1,NODE)) Q:'NODE  S NODE1=^(NODE,0) S ^PS(59.3,DA,2,NODE,0)=NODE1,$P(^PS(59.3,DA,2,0),""^"",3)=NODE,$P(^(0),""^"",4)=NODE S LNODE=NODE"
^XMB(3.9,108,2,767,0)="""RTN"",""PSOBGMGR"",111,0)"
^XMB(3.9,108,2,768,0)=" N LAST F NODE=0:0 S NODE=$O(^PS(59.3,DA,2,NODE)) Q:'NODE  S LAST=NODE"
^XMB(3.9,108,2,769,0)="""RTN"",""PSOBGMGR"",112,0)"
^XMB(3.9,108,2,770,0)=" I LAST>LNODE S DA(1)=DA,DIK=""^PS(59.3,""_DA(1)_"",2,"",DA=LNODE F  S DA=$O(^PS(59.3,DA(1),2,DA)) Q:'DA  D ^DIK"
^XMB(3.9,108,2,771,0)="""RTN"",""PSOBGMGR"",113,0)"
^XMB(3.9,108,2,772,0)=" G DISP"
^XMB(3.9,108,2,773,0)="""RTN"",""PSOBGMGR"",114,0)"
^XMB(3.9,108,2,774,0)="DISPEX K ADA,DA,FLAG,LAST,LNODE,NODE,NODE1,^UTILITY($J,""W""),X,Y Q"
^XMB(3.9,108,2,775,0)="""RTN"",""PSOBGMGR"",115,0)"
^XMB(3.9,108,2,776,0)="ERASE S REC=$O(^PS(52.11,0)) I 'REC W !!,""All data has been purged!"" K REC Q"
^XMB(3.9,108,2,777,0)="""RTN"",""PSOBGMGR"",116,0)"
^XMB(3.9,108,2,778,0)=" W !! K DIR S DIR(""A"")=""Purge patient data for all or a specific display group"",DIR(0)=""SBO^A:All display groups;S:Specific display group"""
^XMB(3.9,108,2,779,0)="""RTN"",""PSOBGMGR"",117,0)"
^XMB(3.9,108,2,780,0)=" S DIR(""?"")=""Enter 'A' to delete all patient data from all display groups."",DIR(""?"",1)=""Enter 'S' to delete all patient data from a specific display group."" D ^DIR K DIR G:$G(DIRUT) END1 S AS=Y K Y"
^XMB(3.9,108,2,781,0)="""RTN"",""PSOBGMGR"",118,0)"
^XMB(3.9,108,2,782,0)=" S:$G(DGP) DIC(""B"")=DGP"
^XMB(3.9,108,2,783,0)="""RTN"",""PSOBGMGR"",119,0)"
^XMB(3.9,108,2,784,0)=" G:AS=""A"" ALL S DIC=59.3,DIC(0)=""AEQMZ"" D ^DIC K DIC G:+Y'>0 ERASE S ADA=+Y K Y D CNT G ERASE"
^XMB(3.9,108,2,785,0)="""RTN"",""PSOBGMGR"",120,0)"
^XMB(3.9,108,2,786,0)="ALL W !!,$C(7),""*** THIS WILL PURGE ALL BINGO BOARD PATIENT DATA FOR ALL DISPLAY GROUPS. ***"",!!"
^XMB(3.9,108,2,787,0)="""RTN"",""PSOBGMGR"",121,0)"
^XMB(3.9,108,2,788,0)=" S DIR(0)=""YO"",DIR(""A"")=""Purge now"",DIR(""B"")=""N"" D ^DIR K DIR G:$G(DIRUT) ERASE W:Y !!,""Purging data.  Please wait..."" I 'Y W !!,""No data purged!"" G ERASE"
^XMB(3.9,108,2,789,0)="""RTN"",""PSOBGMGR"",122,0)"
^XMB(3.9,108,2,790,0)="PUR S DIK=""^PS(52.11,"",DA=0 F  S DA=$O(^PS(52.11,DA)) Q:'DA  D ^DIK"
^XMB(3.9,108,2,791,0)="""RTN"",""PSOBGMGR"",123,0)"
^XMB(3.9,108,2,792,0)=" K DIR,DIK,DA W ""   Purge complete."",! G ERASE"
^XMB(3.9,108,2,793,0)="""RTN"",""PSOBGMGR"",124,0)"
^XMB(3.9,108,2,794,0)="END S ZTREQ=""@"" I $G(ADA)'="""" S:$G(^PS(59.3,ADA,""STOP"")) STOP=1"
^XMB(3.9,108,2,795,0)="""RTN"",""PSOBGMGR"",125,0)"
^XMB(3.9,108,2,796,0)="END1 K ADA,AGROUP,BIG,BIGO,BOT,CNT,CNT1,DA,DGP,DR,FLAG,GROUP,NOTE,NAME,NOTES,PSOUT,ROLL,TICK,TOP,X,X1,Y,ZV,ZH,TCK,FTX,COLM,DIWF,DIWL,DIWR,FLG,VOFF,VON"
^XMB(3.9,108,2,797,0)="""RTN"",""PSOBGMGR"",126,0)"
^XMB(3.9,108,2,798,0)=" K %,%ZIS,AWT,AWT1,AWT2,BBH,BBM,DEV,DLAYGO,DTOUT,DV,DWT,DX,DY,EN,IOXY,NTXT,NUM,NWT,POP,TASK,TTX,WTT"
^XMB(3.9,108,2,799,0)="""RTN"",""PSOBGMGR"",127,0)"
^XMB(3.9,108,2,800,0)=" I $G(STOP) K STOP W @IOF D ^%ZISC G H^XUS"
^XMB(3.9,108,2,801,0)="""RTN"",""PSOBGMGR"",128,0)"
^XMB(3.9,108,2,802,0)=" K STOP Q"
^XMB(3.9,108,2,803,0)="""RTN"",""PSOBINGO"")"
^XMB(3.9,108,2,804,0)="0^3^B61437280^B56797156"
^XMB(3.9,108,2,805,0)="""RTN"",""PSOBINGO"",1,0)"
^XMB(3.9,108,2,806,0)="PSOBINGO ;BHAM ISC/LC - BINGO BOARD OPTION DRIVER ;1/18/06 9:09am"
^XMB(3.9,108,2,807,0)="""RTN"",""PSOBINGO"",2,0)"
^XMB(3.9,108,2,808,0)=" ;;7.0;OUTPATIENT PHARMACY;**12,28,56,125,152,232**;DEC 1997"
^XMB(3.9,108,2,809,0)="""RTN"",""PSOBINGO"",3,0)"
^XMB(3.9,108,2,810,0)=" ;External Ref. to ^PS(55 is supp. by DBIA# 2228"
^XMB(3.9,108,2,811,0)="""RTN"",""PSOBINGO"",4,0)"
^XMB(3.9,108,2,812,0)=" ;External Ref. to ^PSDRUG(, is supp. by DBIA# 221"
^XMB(3.9,108,2,813,0)="""RTN"",""PSOBINGO"",5,0)"
^XMB(3.9,108,2,814,0)=" ;"
^XMB(3.9,108,2,815,0)="""RTN"",""PSOBINGO"",6,0)"
^XMB(3.9,108,2,816,0)=" ;PSO*7*232 add ATIC xref set/kill code here"
^XMB(3.9,108,2,817,0)="""RTN"",""PSOBINGO"",7,0)"
^XMB(3.9,108,2,818,0)=" ;"
^XMB(3.9,108,2,819,0)="""RTN"",""PSOBINGO"",8,0)"
^XMB(3.9,108,2,820,0)=" S (FLAG,FLAG1)=0,(TRIPS,JOES,ADV,DGP)="""" G:'$G(PSOAP) END D:'$D(PSOPAR) ^PSOLSET G:'$D(PSOPAR) END"
^XMB(3.9,108,2,821,0)="""RTN"",""PSOBINGO"",9,0)"
^XMB(3.9,108,2,822,0)="BEG ;PSOAP=1 NEW ENTRY; 2=DISPLAY; 3=REMOVE"
^XMB(3.9,108,2,823,0)="""RTN"",""PSOBINGO"",10,0)"
^XMB(3.9,108,2,824,0)=" D NOW^%DTC S TM=$E(%,1,12),TM1=$P(TM,""."",2) G:PSOAP=1 NEW I PSOAP=3 D BCRMV^PSOBING1 G:'$D(X) END"
^XMB(3.9,108,2,825,0)="""RTN"",""PSOBINGO"",11,0)"
^XMB(3.9,108,2,826,0)=" I PSOAP=3 S DIC=52.11,DIC(0)=""EMQZ"",DIC(""S"")=""I '$P($G(^PS(52.11,Y,0)),U,8)"" D ^DIC K DIC G:+Y'>0 BEG G:($G(DTOUT))!($G(DUOUT)) END S DA=+Y,NAM=Y(0,0)"
^XMB(3.9,108,2,827,0)="""RTN"",""PSOBINGO"",12,0)"
^XMB(3.9,108,2,828,0)=" I PSOAP=2 W !! K DIC,DIE,DLAYGO S (DIC,DIE)=52.11,DIC(0)=""AEMQZ"",DIC(""A"")=""Enter Patient Name to Display: "",DIC(""S"")=""I $P($G(^PS(52.11,Y,0)),U,4)=PSOSITE&'$P($G(^PS(52.11,Y,0)),U,7)"""
^XMB(3.9,108,2,829,0)="""RTN"",""PSOBINGO"",13,0)"
^XMB(3.9,108,2,830,0)=" I PSOAP=2 D ^DIC K DIC G:+Y'>0!($G(DTOUT))!($G(DUOUT)) END S (DA,ODA)=+Y,NAM=Y(0,0)"
^XMB(3.9,108,2,831,0)="""RTN"",""PSOBINGO"",14,0)"
^XMB(3.9,108,2,832,0)=" I PSOAP=3 D STUF,REMOVE1 G BEG"
^XMB(3.9,108,2,833,0)="""RTN"",""PSOBINGO"",15,0)"
^XMB(3.9,108,2,834,0)=" I PSOAP=2,($P($G(^PS(52.11,DA,0)),""^"",7)]"""") W !!,NAM,""  is already in the display queue."",$C(7) G BEG"
^XMB(3.9,108,2,835,0)="""RTN"",""PSOBINGO"",16,0)"
^XMB(3.9,108,2,836,0)=" I PSOAP=2,$P($P($G(^PS(52.11,DA,0)),""^"",5),""."")'=DT S Y=$P($P($G(^PS(52.11,DA,0)),""^"",5),""."") D DD^%DT W !!,$C(7),NAM,"" was entered on ""_Y_""."",!,""It can't be displayed and is now deleted."" S DIK=""^PS(52.11,"" D ^DIK K DIK G BEG"
^XMB(3.9,108,2,837,0)="""RTN"",""PSOBINGO"",17,0)"
^XMB(3.9,108,2,838,0)=" I PSOAP=2&($P(^PS(52.11,ODA,0),""^"",4)'=+PSOSITE) W !!,$C(7),NAM,"" was entered under the ""_$P(^PS(59,$P(^(0),""^"",4),0),""^"")_"" division."" G BEG"
^XMB(3.9,108,2,839,0)="""RTN"",""PSOBINGO"",18,0)"
^XMB(3.9,108,2,840,0)=" I PSOAP=2 S PSODRF=0 D CREF^PSOBING1 G:PSODRF BEG D  G BEG"
^XMB(3.9,108,2,841,0)="""RTN"",""PSOBINGO"",19,0)"
^XMB(3.9,108,2,842,0)=" .S NM=$P(^DPT($P(^PS(52.11,ODA,0),""^""),0),""^""),DR=""6////""_$E(TM1_""0000"",1,4)_"";8////""_NM_"""""
^XMB(3.9,108,2,843,0)="""RTN"",""PSOBINGO"",20,0)"
^XMB(3.9,108,2,844,0)=" .D PASS,SETUP S DA=ODA D STATS1^PSOBRPRT,WTIME^PSOBING1"
^XMB(3.9,108,2,845,0)="""RTN"",""PSOBINGO"",21,0)"
^XMB(3.9,108,2,846,0)="NEW ;Init lookup"
^XMB(3.9,108,2,847,0)="""RTN"",""PSOBINGO"",22,0)"
^XMB(3.9,108,2,848,0)=" W !! K DIC S DIC=2,DIC(0)=""AEMQZ"",DIC(""A"")=""Enter Patient Name : "" D ^DIC K DIC G:Y<0!($G(DUOUT))!($G(DTOUT)) END S (DA,ADA,DFN)=+Y D DEM^VADPT Q:VAERR  S NAM=VADM(1),SSN=$P(VADM(2),""^"")"
^XMB(3.9,108,2,849,0)="""RTN"",""PSOBINGO"",23,0)"
^XMB(3.9,108,2,850,0)=" K DD,DO S:$D(DISGROUP) DGP=$P($G(^PS(59.3,DISGROUP,0)),""^"") S (DIC,DIE)=""^PS(52.11,"",X=ADA,DIC(""DR"")=$S($G(GROUPCNT)=1&($G(DISGROUP)):""2////""_DISGROUP_"""",1:""2//^S X=DGP"")"
^XMB(3.9,108,2,851,0)="""RTN"",""PSOBINGO"",24,0)"
^XMB(3.9,108,2,852,0)=" S DIC(0)=""LMNQZ"",DLAYGO=59.3 D FILE^DICN K DD,DO,DIC G:Y'>0 NEW"
^XMB(3.9,108,2,853,0)="""RTN"",""PSOBINGO"",25,0)"
^XMB(3.9,108,2,854,0)=" S JOES=$P(Y(0),""^"",3),ADV=$P($G(^PS(59.3,JOES,0)),""^"",2),DA=+Y"
^XMB(3.9,108,2,855,0)="""RTN"",""PSOBINGO"",26,0)"
^XMB(3.9,108,2,856,0)=" I $G(DTOUT)!($G(DUOUT))!(X="""") D WARN G NEW"
^XMB(3.9,108,2,857,0)="""RTN"",""PSOBINGO"",27,0)"
^XMB(3.9,108,2,858,0)="TIC K TFLAG I ADV=""T"" S DIR(0)=""NA^1:999999:0"",DIR(""A"")=""TICKET #:"",DIR(""?"")=""Ticket # must be numeric and unique"" D ^DIR I $D(DUOUT)!($D(DTOUT))!($D(DIRUT)) D WARN G BEG"
^XMB(3.9,108,2,859,0)="""RTN"",""PSOBINGO"",28,0)"
^XMB(3.9,108,2,860,0)=" S TFLAG=1 I PSOAP=1,$G(ADV)=""T"" W !! S TIC=+Y D"
^XMB(3.9,108,2,861,0)="""RTN"",""PSOBINGO"",29,0)"
^XMB(3.9,108,2,862,0)=" .F TIEN=0:0 S TIEN=$O(^PS(52.11,""C"",TIC,TIEN)) Q:'TIEN  I DA'=TIEN,($G(PSOSITE)=+$P(^PS(52.11,TIEN,0),""^"",4)) D"
^XMB(3.9,108,2,863,0)="""RTN"",""PSOBINGO"",30,0)"
^XMB(3.9,108,2,864,0)=" ..S TDFN=$P(^PS(52.11,TIEN,0),""^""),TSSN=$P(^PS(52.11,TIEN,1),""^"",2),TFLAG=0 W !,$C(7),$P(^DPT(TDFN,0),""^"")_"" (""_TSSN_"") was issued ticket # ""_TIC,"". Try again!"",!"
^XMB(3.9,108,2,865,0)="""RTN"",""PSOBINGO"",31,0)"
^XMB(3.9,108,2,866,0)=" .K TDFN,TIEN,TSSN Q:'TFLAG"
^XMB(3.9,108,2,867,0)="""RTN"",""PSOBINGO"",32,0)"
^XMB(3.9,108,2,868,0)=" G:'TFLAG TIC I ADV=""T"" S DR=""1////""_TIC_"";3////""_PSOSITE_"";4////""_TM_"";5////""_$E(TM1_""0000"",1,4)_"";8////""_NAM_"";9////""_SSN_"";13////0"",FLAG1=1 G PASS"
^XMB(3.9,108,2,869,0)="""RTN"",""PSOBINGO"",33,0)"
^XMB(3.9,108,2,870,0)=" S DR=""3////""_PSOSITE_"";4////""_TM_"";5////""_$E(TM1_""0000"",1,4)_"";8////""_NAM_"";9////""_SSN_"";13////0"""
^XMB(3.9,108,2,871,0)="""RTN"",""PSOBINGO"",34,0)"
^XMB(3.9,108,2,872,0)="PASS S NFLAG=1 L +^PS(52.11,DA):2 E  W !!,$C(7),Y(0,0),"" is being edited!"",! Q"
^XMB(3.9,108,2,873,0)="""RTN"",""PSOBINGO"",35,0)"
^XMB(3.9,108,2,874,0)=" D ^DIE L -^PS(52.11,DA) I $G(DUOUT)!($G(DTOUT))!(X="""") D WARN G BEG"
^XMB(3.9,108,2,875,0)="""RTN"",""PSOBINGO"",36,0)"
^XMB(3.9,108,2,876,0)=" S:$G(PSOAP)=1 FLGG=0 G:$G(PSOAP)'=1 STRX1"
^XMB(3.9,108,2,877,0)="""RTN"",""PSOBINGO"",37,0)"
^XMB(3.9,108,2,878,0)="STRX ;sto Rx #'s IN 52.11"
^XMB(3.9,108,2,879,0)="""RTN"",""PSOBINGO"",38,0)"
^XMB(3.9,108,2,880,0)=" N BRXNUM,BBFTYP,BBFNUM,BBMW,MWDIR,II,FL,FLN,PR,PRN,PRNDT,FLNDT,Y"
^XMB(3.9,108,2,881,0)="""RTN"",""PSOBINGO"",39,0)"
^XMB(3.9,108,2,882,0)="STRX0 S DIR(0)=""FO^1:11"",DIR(""A"")=""Enter Rx #"",DIR(""?"")=""^D HELP^PSOBINGO"",DIR(""??"")=""^D HELP2^PSOBINGO"" D ^DIR G:X=""""&($G(FLGG)) STRX1 I $D(DIRUT) D WARN G BEG"
^XMB(3.9,108,2,883,0)="""RTN"",""PSOBINGO"",40,0)"
^XMB(3.9,108,2,884,0)=" S DIC=52,DIC(0)=""EQM"",DIC(""S"")=""I $P($G(^PSRX(Y,0)),U,2)=ADA"" D ^DIC K DIC I $D(DUOUT)!($D(DTOUT)) D WARN G BEG"
^XMB(3.9,108,2,885,0)="""RTN"",""PSOBINGO"",41,0)"
^XMB(3.9,108,2,886,0)=" G:Y=-1 STRX0"
^XMB(3.9,108,2,887,0)="""RTN"",""PSOBINGO"",42,0)"
^XMB(3.9,108,2,888,0)=" I $G(Y)<0&('$G(FLGG)) D WARN G BEG"
^XMB(3.9,108,2,889,0)="""RTN"",""PSOBINGO"",43,0)"
^XMB(3.9,108,2,890,0)=" I $G(Y)<0&($G(FLGG)) G STRX1"
^XMB(3.9,108,2,891,0)="""RTN"",""PSOBINGO"",44,0)"
^XMB(3.9,108,2,892,0)=" S BRXNUM=$P(Y,""^"")"
^XMB(3.9,108,2,893,0)="""RTN"",""PSOBINGO"",45,0)"
^XMB(3.9,108,2,894,0)=" I $D(^PSRX(BRXNUM,1,0)) F II=0:0 S II=$O(^PSRX(BRXNUM,1,II)) Q:'II  S FLN=II"
^XMB(3.9,108,2,895,0)="""RTN"",""PSOBINGO"",46,0)"
^XMB(3.9,108,2,896,0)=" I $D(FLN) S FLNDT=$P(^PSRX(BRXNUM,1,FLN,0),""^""),FL=""F"""
^XMB(3.9,108,2,897,0)="""RTN"",""PSOBINGO"",47,0)"
^XMB(3.9,108,2,898,0)=" I $D(^PSRX(BRXNUM,""P"",0)) F II=0:0 S II=$O(^PSRX(BRXNUM,""P"",II)) Q:'II  S PRN=II"
^XMB(3.9,108,2,899,0)="""RTN"",""PSOBINGO"",48,0)"
^XMB(3.9,108,2,900,0)=" I $D(PRN) S PRNDT=$P(^PSRX(BRXNUM,""P"",PRN,0),""^""),PR=""P"""
^XMB(3.9,108,2,901,0)="""RTN"",""PSOBINGO"",49,0)"
^XMB(3.9,108,2,902,0)=" S:$D(FLN)!($D(PRN)) BBFTYP=$S($G(PRNDT)>$G(FLNDT):PR,1:""F"")"
^XMB(3.9,108,2,903,0)="""RTN"",""PSOBINGO"",50,0)"
^XMB(3.9,108,2,904,0)=" I $G(BBFTYP)=""P"" S BBFNUM=PRN,BBMW=$P(^PSRX(BRXNUM,""P"",PRN,0),""^"",2)"
^XMB(3.9,108,2,905,0)="""RTN"",""PSOBINGO"",51,0)"
^XMB(3.9,108,2,906,0)=" I $G(BBFTYP)=""F"" S BBFNUM=FLN,BBMW=$P(^PSRX(BRXNUM,1,FLN,0),""^"",2)"
^XMB(3.9,108,2,907,0)="""RTN"",""PSOBINGO"",52,0)"
^XMB(3.9,108,2,908,0)=" I '$D(BBFTYP) S BBFTYP=""F"",BBFNUM=0,BBMW=$P(^PSRX(BRXNUM,0),""^"",11)"
^XMB(3.9,108,2,909,0)="""RTN"",""PSOBINGO"",53,0)"
^XMB(3.9,108,2,910,0)="MW ;"
^XMB(3.9,108,2,911,0)="""RTN"",""PSOBINGO"",54,0)"
^XMB(3.9,108,2,912,0)=" I $G(BBMW)=""M"" W !?5,$C(7),""Routing is set for Mail"" D DIR"
^XMB(3.9,108,2,913,0)="""RTN"",""PSOBINGO"",55,0)"
^XMB(3.9,108,2,914,0)=" I $D(MWDIR) K BRXNUM,BBFTYP,BBFNUM,BBMW,MWDIR,II,FL,FLN,PR,PRN,PRNDT,FLNDT,Y G STRX"
^XMB(3.9,108,2,915,0)="""RTN"",""PSOBINGO"",56,0)"
^XMB(3.9,108,2,916,0)=" ;"
^XMB(3.9,108,2,917,0)="""RTN"",""PSOBINGO"",57,0)"
^XMB(3.9,108,2,918,0)=" S X=BRXNUM,DIC(""DR"")=""1////""_BBFTYP_"";2////""_BBFNUM_"""",DLAYGO=52.11"
^XMB(3.9,108,2,919,0)="""RTN"",""PSOBINGO"",58,0)"
^XMB(3.9,108,2,920,0)=" S DA(1)=DA,DIC=""^PS(52.11,""_DA(1)_"",2,"",DIC(0)=""L"",DIC(""P"")=$P(^DD(52.11,12,0),""^"",2) K DD,DO D FILE^DICN K Y,DD,DO,X,BRXNUM,BBFTYP,BBFNUM,II,FL,PR,PRNDT,FLNDT S FLGG=1 G STRX"
^XMB(3.9,108,2,921,0)="""RTN"",""PSOBINGO"",59,0)"
^XMB(3.9,108,2,922,0)=" ;"
^XMB(3.9,108,2,923,0)="""RTN"",""PSOBINGO"",60,0)"
^XMB(3.9,108,2,924,0)="STRX1 D:PSOAP=1&($G(ADV)=""N"") CHKUP,NOTE G:'NFLAG BEG D STUF G:FLAG BEG Q:PSOAP=2"
^XMB(3.9,108,2,925,0)="""RTN"",""PSOBINGO"",61,0)"
^XMB(3.9,108,2,926,0)="SETUP S ZZZ=0 I '$D(^PS(59.2,DT,0)) K DD,DIC,DO,DA S X=DT,DIC=""^PS(59.2,"",DIC(0)="""",DINUM=X,DLAYGO=59.2 D FILE^DICN K DD,DO S ZZZ=1 Q:Y'>0"
^XMB(3.9,108,2,927,0)="""RTN"",""PSOBINGO"",62,0)"
^XMB(3.9,108,2,928,0)=" I ZZZ=1 K DD,DO S DLAYGO=59.2,DA(1)=+Y,DIC=DIC_DA(1)_"",1,"",(DINUM,X)=PSOSITE,DIC(0)="""",DIC(""P"")=$P(^DD(59.2,1,0),""^"",2) D FILE^DICN K DD,DO,DIC,DA Q:Y'>0"
^XMB(3.9,108,2,929,0)="""RTN"",""PSOBINGO"",63,0)"
^XMB(3.9,108,2,930,0)=" Q:PSOAP=2&($P($G(^PS(59.2,DT,1,PSOSITE,0)),""^""))  I ZZZ=0 K DD,DIC,DO,DA S DA(1)=DT,(DINUM,X)=PSOSITE,DIC=""^PS(59.2,""_DT_"",1,"",DIC(0)=""LZ"",DLAYGO=59.2 D FILE^DICN K DD,DIC,DA,DO Q:PSOAP=2  G NEW"
^XMB(3.9,108,2,931,0)="""RTN"",""PSOBINGO"",64,0)"
^XMB(3.9,108,2,932,0)=" G BEG"
^XMB(3.9,108,2,933,0)="""RTN"",""PSOBINGO"",65,0)"
^XMB(3.9,108,2,934,0)="STUF S RX0=^PS(52.11,DA,0),JOES=$P(RX0,""^"",4),TICK=$P($G(RX0),""^"",2) Q:PSOAP=3  G:ADV=""T""&($G(FLAG1)=1)&('$G(TICK)) WARN G:'$G(JOES)!($G(NAM)']"""") WARN"
^XMB(3.9,108,2,935,0)="""RTN"",""PSOBINGO"",66,0)"
^XMB(3.9,108,2,936,0)=" W:PSOAP=2 !!,""Patient added in display queue."" W:PSOAP=1 !!,""Record is added."" Q"
^XMB(3.9,108,2,937,0)="""RTN"",""PSOBINGO"",67,0)"
^XMB(3.9,108,2,938,0)="WARN W !!!,$C(7),""Patient record incomplete!"" S FLAG=1,DIK=""^PS(52.11,"" D ^DIK G SHOW Q"
^XMB(3.9,108,2,939,0)="""RTN"",""PSOBINGO"",68,0)"
^XMB(3.9,108,2,940,0)="REMOVE S DIK=""^PS(52.11,"" D ^DIK"
^XMB(3.9,108,2,941,0)="""RTN"",""PSOBINGO"",69,0)"
^XMB(3.9,108,2,942,0)="SHOW K DIK,DA,ADA W !!,""Record is removed."""
^XMB(3.9,108,2,943,0)="""RTN"",""PSOBINGO"",70,0)"
^XMB(3.9,108,2,944,0)=" Q"
^XMB(3.9,108,2,945,0)="""RTN"",""PSOBINGO"",71,0)"
^XMB(3.9,108,2,946,0)="REMOVE1 ;"
^XMB(3.9,108,2,947,0)="""RTN"",""PSOBINGO"",72,0)"
^XMB(3.9,108,2,948,0)=" Q:'$D(^PS(52.11,""ANAM"",$P(^PS(52.11,DA,0),""^"",3),$P(^(1),""^"",3)_$P(^(1),""^"",4)_"" ""_$P(^DPT(+$P(^PS(52.11,DA,0),""^""),0),""^""),DA))"
^XMB(3.9,108,2,949,0)="""RTN"",""PSOBINGO"",73,0)"
^XMB(3.9,108,2,950,0)=" N DIE,DR I $D(^PS(52.11,""ANAM"",$P(^PS(52.11,DA,0),""^"",3),$P(^(1),""^"",3)_$P(^(1),""^"",4)_"" ""_$P(^DPT(+$P(^PS(52.11,DA,0),""^""),0),""^""),DA)) S DIE=""^PS(52.11,"",DR=""7////1"" D"
^XMB(3.9,108,2,951,0)="""RTN"",""PSOBINGO"",74,0)"
^XMB(3.9,108,2,952,0)=" .D ^DIE"
^XMB(3.9,108,2,953,0)="""RTN"",""PSOBINGO"",75,0)"
^XMB(3.9,108,2,954,0)=" .K ^PS(52.11,""ANAM"",$P(^PS(52.11,DA,0),""^"",3),$P(^(1),""^"",3)_$P(^(1),""^"",4)_"" ""_$P(^DPT(+$P(^PS(52.11,DA,0),""^""),0),""^""),DA)"
^XMB(3.9,108,2,955,0)="""RTN"",""PSOBINGO"",76,0)"
^XMB(3.9,108,2,956,0)=" I $D(^PS(52.11,""ATIC"",+$P(^PS(52.11,DA,0),""^"",3),+$P(^(0),""^"",2),DA)) S DIE=""^PS(52.11,"",DR=""7////1"" D"
^XMB(3.9,108,2,957,0)="""RTN"",""PSOBINGO"",77,0)"
^XMB(3.9,108,2,958,0)=" .D ^DIE"
^XMB(3.9,108,2,959,0)="""RTN"",""PSOBINGO"",78,0)"
^XMB(3.9,108,2,960,0)=" .K ^PS(52.11,""ATIC"",+$P(^PS(52.11,DA,0),""^"",3),+$P(^(0),""^"",2),DA)"
^XMB(3.9,108,2,961,0)="""RTN"",""PSOBINGO"",79,0)"
^XMB(3.9,108,2,962,0)=" Q"
^XMB(3.9,108,2,963,0)="""RTN"",""PSOBINGO"",80,0)"
^XMB(3.9,108,2,964,0)="CHKUP ;Multi & dupe names"
^XMB(3.9,108,2,965,0)="""RTN"",""PSOBINGO"",81,0)"
^XMB(3.9,108,2,966,0)=" S SDA=DA S:'$D(DFN) DFN=PSODFN G:$O(^PS(52.11,""B"",DFN,0))=DA BROW F P=0:0 S P=$O(^PS(52.11,""B"",DFN,P)) Q:'P!(P=DA)  S LAST=P"
^XMB(3.9,108,2,967,0)="""RTN"",""PSOBINGO"",82,0)"
^XMB(3.9,108,2,968,0)=" Q:'$G(LAST)  S TRIPS=$P($G(^PS(52.11,LAST,1)),""^"",4) I TRIPS]"""" S TRIPS=$A(TRIPS),TRIPS=TRIPS+1,TRIPS=$C(TRIPS) S DR=""11////""_TRIPS_"""" D ^DIE S F1=1 G BROW"
^XMB(3.9,108,2,969,0)="""RTN"",""PSOBINGO"",83,0)"
^XMB(3.9,108,2,970,0)=" K TRIPS"
^XMB(3.9,108,2,971,0)="""RTN"",""PSOBINGO"",84,0)"
^XMB(3.9,108,2,972,0)="FIRST ;Set 1st dup"
^XMB(3.9,108,2,973,0)="""RTN"",""PSOBINGO"",85,0)"
^XMB(3.9,108,2,974,0)=" S DR=""11////A"" D ^DIE K DR,CNT"
^XMB(3.9,108,2,975,0)="""RTN"",""PSOBINGO"",86,0)"
^XMB(3.9,108,2,976,0)="BROW S DA=SDA,NOPE=0,CNT=0 F NIEN=0:0 S NIEN=$O(^PS(52.11,""BA"",NAM,NIEN)) Q:'NIEN!(NIEN=$G(DA))  D:$D(^PS(52.11,""BI"")) BICK Q:CNT>0  D SETNEW Q:NOPE"
^XMB(3.9,108,2,977,0)="""RTN"",""PSOBINGO"",87,0)"
^XMB(3.9,108,2,978,0)=" Q"
^XMB(3.9,108,2,979,0)="""RTN"",""PSOBINGO"",88,0)"
^XMB(3.9,108,2,980,0)="SETNEW S SSN1=$O(^PS(52.11,""BA"",NAM,NIEN,0)),ADFN=$P(^PS(52.11,NIEN,0),""^""),CNT=1 I SSN1=SSN S NOPE=1 Q"
^XMB(3.9,108,2,981,0)="""RTN"",""PSOBINGO"",89,0)"
^XMB(3.9,108,2,982,0)=" S DR=""10////1"" D ^DIE S F1=1 Q"
^XMB(3.9,108,2,983,0)="""RTN"",""PSOBINGO"",90,0)"
^XMB(3.9,108,2,984,0)="BICK ;Chks ""BI"" Xref & assigns seq#"
^XMB(3.9,108,2,985,0)="""RTN"",""PSOBINGO"",91,0)"
^XMB(3.9,108,2,986,0)=" S SSN1=$O(^PS(52.11,""BA"",NAM,NIEN,0)) I SSN1=SSN&('$P($G(^PS(52.11,SDA,1)),""^"",3)) S NOPE=1 Q"
^XMB(3.9,108,2,987,0)="""RTN"",""PSOBINGO"",92,0)"
^XMB(3.9,108,2,988,0)=" S CNT=0 I $D(^PS(52.11,""BI"",DFN)) S CNT=$O(^(DFN,0)),DA=SDA,DR=""10////""_CNT_"""" D ^DIE S F1=1 Q"
^XMB(3.9,108,2,989,0)="""RTN"",""PSOBINGO"",93,0)"
^XMB(3.9,108,2,990,0)=" F NDFN=0:0 S NDFN=$O(^PS(52.11,""BI"",NDFN)) Q:'NDFN  S CNT=$O(^(NDFN,0))+1"
^XMB(3.9,108,2,991,0)="""RTN"",""PSOBINGO"",94,0)"
^XMB(3.9,108,2,992,0)=" S DR=""10////""_CNT_"""" D ^DIE S F1=1 Q"
^XMB(3.9,108,2,993,0)="""RTN"",""PSOBINGO"",95,0)"
^XMB(3.9,108,2,994,0)="NOTE S DFN=$P($G(^PS(52.11,DA,0)),""^""),NFLAG=1 W !!,?5,""NAME"",?30,""SSN"",?45,""ID"",?50,""ORDER"""
^XMB(3.9,108,2,995,0)="""RTN"",""PSOBINGO"",96,0)"
^XMB(3.9,108,2,996,0)=" F Z=0:0 S Z=$O(^PS(52.11,""B"",DFN,Z)) Q:'Z  S ZDA=Z S NODE=$G(^PS(52.11,ZDA,1)),Z1=$P(NODE,""^""),Z2=$P(NODE,""^"",3),Z3=$P(NODE,""^"",4),Z4=$P(NODE,""^"",2) W:NODE'="""" !,?5,Z1,?30,Z4,?46,Z2,?52,Z3"
^XMB(3.9,108,2,997,0)="""RTN"",""PSOBINGO"",97,0)"
^XMB(3.9,108,2,998,0)=" W !! S DIR(0)=""F,O"",DIR(""A"")=""Press return to add the last prescription or '^' to remove it."""
^XMB(3.9,108,2,999,0)="""RTN"",""PSOBINGO"",98,0)"
^XMB(3.9,108,2,1000,0)=" S DIR(""A"",1)=""Please advise the patient that the above ID # or ORDER Letter"",DIR(""A"",2)=""or both will be displayed with his/her name on the Bingo Display"",DIR(""A"",3)="" """
^XMB(3.9,108,2,1001,0)="""RTN"",""PSOBINGO"",99,0)"
^XMB(3.9,108,2,1002,0)=" D ^DIR K DIR K NODE,Z1,Z2,Z3 I $G(DTOUT)!(Y=""^"") S NFLAG=0 D REMOVE"
^XMB(3.9,108,2,1003,0)="""RTN"",""PSOBINGO"",100,0)"
^XMB(3.9,108,2,1004,0)=" Q"
^XMB(3.9,108,2,1005,0)="""RTN"",""PSOBINGO"",101,0)"
^XMB(3.9,108,2,1006,0)="DIR K DIR,X,Y S DIR(0)=""Y"",DIR(""A"")=""Continue "",DIR(""B"")=""N"",DIR(""?"")=""Answer YES to continue, NO to bypass"""
^XMB(3.9,108,2,1007,0)="""RTN"",""PSOBINGO"",102,0)"
^XMB(3.9,108,2,1008,0)=" D ^DIR K DIR S:$D(DIRUT)!('Y) MWDIR=1 K DIRUT,DTOUT,DUOUT,X,Y"
^XMB(3.9,108,2,1009,0)="""RTN"",""PSOBINGO"",103,0)"
^XMB(3.9,108,2,1010,0)=" Q"
^XMB(3.9,108,2,1011,0)="""RTN"",""PSOBINGO"",104,0)"
^XMB(3.9,108,2,1012,0)="HELP2 S (PA,PD)="""",PL=0 F  S PA=$O(^PS(55,ADA,""P"",""A"",PA)) Q:'PA  D:DT-1<PA"
^XMB(3.9,108,2,1013,0)="""RTN"",""PSOBINGO"",105,0)"
^XMB(3.9,108,2,1014,0)=" .F  S PD=$O(^PS(55,ADA,""P"",""A"",PA,PD)) Q:'PD  S PL=PL+1 W !,$P(^PSRX(PD,0),""^""),""      "",$P(^PSDRUG($P(^PSRX(PD,0),""^"",6),0),""^"")"
^XMB(3.9,108,2,1015,0)="""RTN"",""PSOBINGO"",106,0)"
^XMB(3.9,108,2,1016,0)=" .I $G(PL)>15 N DIR S DIR(0)=""E"",DIR(""A"")=""Press return to continue"" D ^DIR K DIR S PL=0"
^XMB(3.9,108,2,1017,0)="""RTN"",""PSOBINGO"",107,0)"
^XMB(3.9,108,2,1018,0)=" Q"
^XMB(3.9,108,2,1019,0)="""RTN"",""PSOBINGO"",108,0)"
^XMB(3.9,108,2,1020,0)="HELP W !,""Enter the patient's Rx number."",!"
^XMB(3.9,108,2,1021,0)="""RTN"",""PSOBINGO"",109,0)"
^XMB(3.9,108,2,1022,0)=" Q"
^XMB(3.9,108,2,1023,0)="""RTN"",""PSOBINGO"",110,0)"
^XMB(3.9,108,2,1024,0)="ATICSET ;Set ATIC xref                                                PSO*232"
^XMB(3.9,108,2,1025,0)="""RTN"",""PSOBINGO"",111,0)"
^XMB(3.9,108,2,1026,0)=" Q:'+$P(^PS(52.11,DA,0),""^"",3)"
^XMB(3.9,108,2,1027,0)="""RTN"",""PSOBINGO"",112,0)"
^XMB(3.9,108,2,1028,0)=" Q:'+$P(^PS(52.11,DA,0),""^"",2)"
^XMB(3.9,108,2,1029,0)="""RTN"",""PSOBINGO"",113,0)"
^XMB(3.9,108,2,1030,0)=" I $P(^PS(59.3,$P(^PS(52.11,DA,0),""^"",3),0),""^"",2)[""T"" D"
^XMB(3.9,108,2,1031,0)="""RTN"",""PSOBINGO"",114,0)"
^XMB(3.9,108,2,1032,0)=" .S ^PS(52.11,""ATIC"",+$P(^PS(52.11,DA,0),""^"",3),+$P(^(0),""^"",2),DA)="""""
^XMB(3.9,108,2,1033,0)="""RTN"",""PSOBINGO"",115,0)"
^XMB(3.9,108,2,1034,0)=" Q"
^XMB(3.9,108,2,1035,0)="""RTN"",""PSOBINGO"",116,0)"
^XMB(3.9,108,2,1036,0)="ATICKIL ;Kill ATIC xref                                               PSO*232"
^XMB(3.9,108,2,1037,0)="""RTN"",""PSOBINGO"",117,0)"
^XMB(3.9,108,2,1038,0)=" Q:'+$P(^PS(52.11,DA,0),""^"",3)"
^XMB(3.9,108,2,1039,0)="""RTN"",""PSOBINGO"",118,0)"
^XMB(3.9,108,2,1040,0)=" Q:'+$P(^PS(52.11,DA,0),""^"",2)"
^XMB(3.9,108,2,1041,0)="""RTN"",""PSOBINGO"",119,0)"
^XMB(3.9,108,2,1042,0)=" I $P(^PS(59.3,$P(^PS(52.11,DA,0),""^"",3),0),""^"",2)[""T"" D"
^XMB(3.9,108,2,1043,0)="""RTN"",""PSOBINGO"",120,0)"
^XMB(3.9,108,2,1044,0)=" .K ^PS(52.11,""ATIC"",+$P(^PS(52.11,DA,0),""^"",3),+$P(^(0),""^"",2),DA)"
^XMB(3.9,108,2,1045,0)="""RTN"",""PSOBINGO"",121,0)"
^XMB(3.9,108,2,1046,0)=" Q"
^XMB(3.9,108,2,1047,0)="""RTN"",""PSOBINGO"",122,0)"
^XMB(3.9,108,2,1048,0)=" ;"
^XMB(3.9,108,2,1049,0)="""RTN"",""PSOBINGO"",123,0)"
^XMB(3.9,108,2,1050,0)="END K %,ADA,ADFN,ADV,CNT,DA,DATE,DFN,DINUM,DLAYGO,DR,DTOUT,DUOUT,F1,FLAG,FLAG1,FLGG,JOES,LAST,NAM,NDFN,NIEN,NFLAG,NODE,NOPE,NM"
^XMB(3.9,108,2,1051,0)="""RTN"",""PSOBINGO"",124,0)"
^XMB(3.9,108,2,1052,0)=" K PSODRF,ODA,P,PSOAP,RX0,TM,TM1,SDA,SSN,SSN1,RX0,TIC,TICK,TFLAG,VADM,X,Y,Z,Z1,Z2,Z3,Z4,ZDA,ZZZ,PL,PD,PA"
^XMB(3.9,108,2,1053,0)="""RTN"",""PSOBINGO"",125,0)"
^XMB(3.9,108,2,1054,0)=" Q"
^XMB(3.9,108,2,1055,0)="""RTN"",""PSOHLDS1"")"
^XMB(3.9,108,2,1056,0)="0^1^B47619875^B45320539"
^XMB(3.9,108,2,1057,0)="""RTN"",""PSOHLDS1"",1,0)"
^XMB(3.9,108,2,1058,0)="PSOHLDS1 ;BIR/LC,PWC-Build HL7 Segments for Automated Interface ; 5/19/06 12:52pm"
^XMB(3.9,108,2,1059,0)="""RTN"",""PSOHLDS1"",2,0)"
^XMB(3.9,108,2,1060,0)=" ;;7.0;OUTPATIENT PHARMACY;**156,232**;DEC 1997"
^XMB(3.9,108,2,1061,0)="""RTN"",""PSOHLDS1"",3,0)"
^XMB(3.9,108,2,1062,0)=" ;HLFNC       supp. by DBIA 10106"
^XMB(3.9,108,2,1063,0)="""RTN"",""PSOHLDS1"",4,0)"
^XMB(3.9,108,2,1064,0)=" ;PSNAPIS     supp. by DBIA 2531"
^XMB(3.9,108,2,1065,0)="""RTN"",""PSOHLDS1"",5,0)"
^XMB(3.9,108,2,1066,0)=" ;VASITE      supp. by DBIA 10112"
^XMB(3.9,108,2,1067,0)="""RTN"",""PSOHLDS1"",6,0)"
^XMB(3.9,108,2,1068,0)=" ;VADPT       supp. by DBIA 10061"
^XMB(3.9,108,2,1069,0)="""RTN"",""PSOHLDS1"",7,0)"
^XMB(3.9,108,2,1070,0)=" ;EN^DIQ1     supp. by DBIA 100"
^XMB(3.9,108,2,1071,0)="""RTN"",""PSOHLDS1"",8,0)"
^XMB(3.9,108,2,1072,0)=" ;EN^VAFHLPID supp. by DBIA 263"
^XMB(3.9,108,2,1073,0)="""RTN"",""PSOHLDS1"",9,0)"
^XMB(3.9,108,2,1074,0)=" ;EN^VAFHLZTA supp. by DBIA 758"
^XMB(3.9,108,2,1075,0)="""RTN"",""PSOHLDS1"",10,0)"
^XMB(3.9,108,2,1076,0)=" ;PSDRUG      supp. by DBIA 221"
^XMB(3.9,108,2,1077,0)="""RTN"",""PSOHLDS1"",11,0)"
^XMB(3.9,108,2,1078,0)=" ;PS(50.7     supp. by DBIA 2223"
^XMB(3.9,108,2,1079,0)="""RTN"",""PSOHLDS1"",12,0)"
^XMB(3.9,108,2,1080,0)=" ;PS(50.606   supp. by DBIA 2174"
^XMB(3.9,108,2,1081,0)="""RTN"",""PSOHLDS1"",13,0)"
^XMB(3.9,108,2,1082,0)=" ;PS(50.607   supp. by DBIA 2221"
^XMB(3.9,108,2,1083,0)="""RTN"",""PSOHLDS1"",14,0)"
^XMB(3.9,108,2,1084,0)=" ;PS(51.2     supp. by DBIA 2226"
^XMB(3.9,108,2,1085,0)="""RTN"",""PSOHLDS1"",15,0)"
^XMB(3.9,108,2,1086,0)=" ;PS(55       supp. by DBIA 2228"
^XMB(3.9,108,2,1087,0)="""RTN"",""PSOHLDS1"",16,0)"
^XMB(3.9,108,2,1088,0)=" ;PSNDF(50.6  supp. by DBIA 2195"
^XMB(3.9,108,2,1089,0)="""RTN"",""PSOHLDS1"",17,0)"
^XMB(3.9,108,2,1090,0)=" ;DIC(5       supp. by DBIA 10056"
^XMB(3.9,108,2,1091,0)="""RTN"",""PSOHLDS1"",18,0)"
^XMB(3.9,108,2,1092,0)=" ;DPT         supp. by DBIA 3097"
^XMB(3.9,108,2,1093,0)="""RTN"",""PSOHLDS1"",19,0)"
^XMB(3.9,108,2,1094,0)=" ;SC          supp. by DBIA 10040"
^XMB(3.9,108,2,1095,0)="""RTN"",""PSOHLDS1"",20,0)"
^XMB(3.9,108,2,1096,0)=" ;VA(200      supp. by DBIA 10060"
^XMB(3.9,108,2,1097,0)="""RTN"",""PSOHLDS1"",21,0)"
^XMB(3.9,108,2,1098,0)=" ;SCMSVUT5    supp. by DBIA 4347"
^XMB(3.9,108,2,1099,0)="""RTN"",""PSOHLDS1"",22,0)"
^XMB(3.9,108,2,1100,0)=" ;BLDPID^VAFCQRY supp. by DBIA 3630"
^XMB(3.9,108,2,1101,0)="""RTN"",""PSOHLDS1"",23,0)"
^XMB(3.9,108,2,1102,0)=" ;MAKEIT^VAFHLU  supp. by DBIA 4346"
^XMB(3.9,108,2,1103,0)="""RTN"",""PSOHLDS1"",24,0)"
^XMB(3.9,108,2,1104,0)=" ;"
^XMB(3.9,108,2,1105,0)="""RTN"",""PSOHLDS1"",25,0)"
^XMB(3.9,108,2,1106,0)=" ;PSO*232 allow for Do Not Mail"
^XMB(3.9,108,2,1107,0)="""RTN"",""PSOHLDS1"",26,0)"
^XMB(3.9,108,2,1108,0)=" ;"
^XMB(3.9,108,2,1109,0)="""RTN"",""PSOHLDS1"",27,0)"
^XMB(3.9,108,2,1110,0)="START ;"
^XMB(3.9,108,2,1111,0)="""RTN"",""PSOHLDS1"",28,0)"
^XMB(3.9,108,2,1112,0)=" D GETDATA"
^XMB(3.9,108,2,1113,0)="""RTN"",""PSOHLDS1"",29,0)"
^XMB(3.9,108,2,1114,0)=" D PID(.PSI),PV1(.PSI),PV2(.PSI),IAM^PSOHLDS4(.PSI),ORC^PSOHLDS4(.PSI)"
^XMB(3.9,108,2,1115,0)="""RTN"",""PSOHLDS1"",30,0)"
^XMB(3.9,108,2,1116,0)=" D NTE^PSOHLDS2,RXE^PSOHLDS2(.PSI),RXD^PSOHLDS2(.PSI)"
^XMB(3.9,108,2,1117,0)="""RTN"",""PSOHLDS1"",31,0)"
^XMB(3.9,108,2,1118,0)=" D NTEPMI^PSOHLDS2(.PSI),RXR^PSOHLDS2(.PSI)"
^XMB(3.9,108,2,1119,0)="""RTN"",""PSOHLDS1"",32,0)"
^XMB(3.9,108,2,1120,0)=" ; clean up data set by GETDATA"
^XMB(3.9,108,2,1121,0)="""RTN"",""PSOHLDS1"",33,0)"
^XMB(3.9,108,2,1122,0)=" K EBY,EBY1,EFDT,EXDT,FDT,PVDR,PVDR1,CSINER,CSINER1,SITE,SITADD,SITPHN"
^XMB(3.9,108,2,1123,0)="""RTN"",""PSOHLDS1"",34,0)"
^XMB(3.9,108,2,1124,0)=" K VPHARMID,VPHARM,DEAID,MW,QTY,DASPLY,OLAN,OTHLAN,PRIORDT,RFRM,NFLD,WARN"
^XMB(3.9,108,2,1125,0)="""RTN"",""PSOHLDS1"",35,0)"
^XMB(3.9,108,2,1126,0)=" K PSOXN,PSOXN2,PSND1,PSND2,PRODUCT,PSOPROD,UNIT,VANAME,DISPDT,PSONDC"
^XMB(3.9,108,2,1127,0)="""RTN"",""PSOHLDS1"",36,0)"
^XMB(3.9,108,2,1128,0)=" Q"
^XMB(3.9,108,2,1129,0)="""RTN"",""PSOHLDS1"",37,0)"
^XMB(3.9,108,2,1130,0)="GETDATA ; this is the place to set all data needed for several segments"
^XMB(3.9,108,2,1131,0)="""RTN"",""PSOHLDS1"",38,0)"
^XMB(3.9,108,2,1132,0)=" I $G(FP)=""F""&('$G(FPN)) D    ;original"
^XMB(3.9,108,2,1133,0)="""RTN"",""PSOHLDS1"",39,0)"
^XMB(3.9,108,2,1134,0)=" . S FDT=$P(^PSRX(IRXN,2),""^"",2),VPHARMID=$P(^(2),""^"",10),DISPDT=$P(^(2),""^"",5),EXDT=$P(^(2),""^"",6),PSONDC=$P(^(2),""^"",7)"
^XMB(3.9,108,2,1135,0)="""RTN"",""PSOHLDS1"",40,0)"
^XMB(3.9,108,2,1136,0)=" . S PVDR=$P(^PSRX(IRXN,0),""^"",4),QTY=$P(^(0),""^"",7),DASPLY=$P(^(0),""^"",8),MW=$P(^(0),""^"",11),EBY=$P(^(0),""^"",16)"
^XMB(3.9,108,2,1137,0)="""RTN"",""PSOHLDS1"",41,0)"
^XMB(3.9,108,2,1138,0)=" I $G(FP)=""F""&($G(FPN)) D    ;refill"
^XMB(3.9,108,2,1139,0)="""RTN"",""PSOHLDS1"",42,0)"
^XMB(3.9,108,2,1140,0)=" . S FDT=$P(^PSRX(IRXN,1,FPN,0),""^""),MW=$P(^(0),""^"",2),QTY=$P(^(0),""^"",4),DASPLY=$P(^(0),""^"",10),DISPDT=$P(^(0),""^"",19),EXDT=$S($P(^(0),""^"",15):$P(^(0),""^"",15),1:$P(^PSRX(IRXN,2),""^"",6))"
^XMB(3.9,108,2,1141,0)="""RTN"",""PSOHLDS1"",43,0)"
^XMB(3.9,108,2,1142,0)=" . S VPHARMID=$S($P(^PSRX(IRXN,1,FPN,0),""^"",5)'="""":$P(^(0),""^"",5),1:$P(^PSRX(IRXN,2),""^"",10))"
^XMB(3.9,108,2,1143,0)="""RTN"",""PSOHLDS1"",44,0)"
^XMB(3.9,108,2,1144,0)=" . S EBY=$S($P(^PSRX(IRXN,1,FPN,0),""^"",5):$P(^(0),""^"",5),1:$P(^(0),""^"",7)),PVDR=$P(^(0),""^"",17),PSONDC=$S($P($G(^PSRX(IRXN,1,FPN,1)),""^"",3):$P(^(1),""^"",3),1:$P(^PSRX(IRXN,2),""^"",7))"
^XMB(3.9,108,2,1145,0)="""RTN"",""PSOHLDS1"",45,0)"
^XMB(3.9,108,2,1146,0)=" I $G(FP)=""P""&($G(FPN)) D  ;partial"
^XMB(3.9,108,2,1147,0)="""RTN"",""PSOHLDS1"",46,0)"
^XMB(3.9,108,2,1148,0)=" . S FDT=$P(^PSRX(IRXN,""P"",FPN,0),""^""),MW=$P(^(0),""^"",2),QTY=$P(^(0),""^"",4),DASPLY=$P(^(0),""^"",10),DISPDT=$P(^(0),""^"",13),PVDR=$P(^(0),""^"",17),EXDT=$P(^PSRX(IRXN,2),""^"",6)"
^XMB(3.9,108,2,1149,0)="""RTN"",""PSOHLDS1"",47,0)"
^XMB(3.9,108,2,1150,0)=" . S EBY=$S($P(^PSRX(IRXN,""P"",FPN,0),""^"",5):$P(^(0),""^"",5),1:$P(^(0),""^"",7)),VPHARMID=$S($P(^(0),""^"",5)'="""":$P(^(0),""^"",5),1:$P(^PSRX(IRXN,2),""^"",10)),PVDR=$P(^PSRX(IRXN,""P"",FPN,0),""^"",17)"
^XMB(3.9,108,2,1151,0)="""RTN"",""PSOHLDS1"",48,0)"
^XMB(3.9,108,2,1152,0)=" . S PSONDC=$S($P(^PSRX(IRXN,""P"",FPN,0),""^"",12):$P(^(0),""^"",12),1:$P(^PSRX(IRXN,2),""^"",7))"
^XMB(3.9,108,2,1153,0)="""RTN"",""PSOHLDS1"",49,0)"
^XMB(3.9,108,2,1154,0)=" S EFDT=$P(^PSRX(IRXN,2),""^"",2) S:$G(EFDT) EFDT=$$HLDATE^HLFNC(EFDT,""DT"")"
^XMB(3.9,108,2,1155,0)="""RTN"",""PSOHLDS1"",50,0)"
^XMB(3.9,108,2,1156,0)=" S ISDT=$P(^PSRX(IRXN,0),""^"",13) S:$G(ISDT) ISDT=$$HLDATE^HLFNC(ISDT,""DT"")"
^XMB(3.9,108,2,1157,0)="""RTN"",""PSOHLDS1"",51,0)"
^XMB(3.9,108,2,1158,0)=" S DEAID=$$GET1^DIQ(200,PVDR_"","",53.2)"
^XMB(3.9,108,2,1159,0)="""RTN"",""PSOHLDS1"",52,0)"
^XMB(3.9,108,2,1160,0)=" K DIC,X,Y S DIC=""^VA(200,"",DIC(0)=""N,Z"",X=VPHARMID D ^DIC"
^XMB(3.9,108,2,1161,0)="""RTN"",""PSOHLDS1"",53,0)"
^XMB(3.9,108,2,1162,0)=" S VPHARM=$S(+Y:$$HLNAME^HLFNC($P(Y,""^"",2)),1:"""""""""""") K DIC,X,Y"
^XMB(3.9,108,2,1163,0)="""RTN"",""PSOHLDS1"",54,0)"
^XMB(3.9,108,2,1164,0)=" K DIC,X,Y S DIC=""^VA(200,"",DIC(0)=""N,Z"",X=EBY D ^DIC"
^XMB(3.9,108,2,1165,0)="""RTN"",""PSOHLDS1"",55,0)"
^XMB(3.9,108,2,1166,0)=" S EBY1=$S(+Y:$$HLNAME^HLFNC($P(Y,""^"",2)),1:"""""""""""") K DIC,X,Y"
^XMB(3.9,108,2,1167,0)="""RTN"",""PSOHLDS1"",56,0)"
^XMB(3.9,108,2,1168,0)=" K DIC,X,Y S DIC=""^VA(200,"",DIC(0)=""N,Z"",X=PVDR D ^DIC"
^XMB(3.9,108,2,1169,0)="""RTN"",""PSOHLDS1"",57,0)"
^XMB(3.9,108,2,1170,0)=" S PVDR1=$S(+Y:$$HLNAME^HLFNC($P(Y,""^"",2)),1:"""""""""""") K DIC,X,Y"
^XMB(3.9,108,2,1171,0)="""RTN"",""PSOHLDS1"",58,0)"
^XMB(3.9,108,2,1172,0)=" S PRIORDT=$P(^PSRX(IRXN,3),""^"",4),PRIORDT=$$HLDATE^HLFNC(PRIORDT,""DT"")"
^XMB(3.9,108,2,1173,0)="""RTN"",""PSOHLDS1"",59,0)"
^XMB(3.9,108,2,1174,0)=" S FDT=$$HLDATE^HLFNC(FDT,""DT"")"
^XMB(3.9,108,2,1175,0)="""RTN"",""PSOHLDS1"",60,0)"
^XMB(3.9,108,2,1176,0)=" S:$G(DISPDT) DISPDT=$$HLDATE^HLFNC(DISPDT,""DT"")"
^XMB(3.9,108,2,1177,0)="""RTN"",""PSOHLDS1"",61,0)"
^XMB(3.9,108,2,1178,0)=" S:$G(EXDT) EXDT=$$HLDATE^HLFNC(EXDT,""DT"")"
^XMB(3.9,108,2,1179,0)="""RTN"",""PSOHLDS1"",62,0)"
^XMB(3.9,108,2,1180,0)=" S FIN=$P(^PSRX(IRXN,""OR1""),""^"",5)"
^XMB(3.9,108,2,1181,0)="""RTN"",""PSOHLDS1"",63,0)"
^XMB(3.9,108,2,1182,0)=" K DIC,X,Y S DIC=""^VA(200,"",DIC(0)=""N,Z"",X=FIN D ^DIC"
^XMB(3.9,108,2,1183,0)="""RTN"",""PSOHLDS1"",64,0)"
^XMB(3.9,108,2,1184,0)=" S FIN1=$S(+Y:$$HLNAME^HLFNC($P(Y,""^"",2)),1:"""""""""""") K DIC,X,Y"
^XMB(3.9,108,2,1185,0)="""RTN"",""PSOHLDS1"",65,0)"
^XMB(3.9,108,2,1186,0)=" S SITE=$S($D(^PS(59,PSOSITE,0)):^(0),1:"""")"
^XMB(3.9,108,2,1187,0)="""RTN"",""PSOHLDS1"",66,0)"
^XMB(3.9,108,2,1188,0)=" S PSZIP=$P(SITE,""^"",5) S PSOHZIP=$S(PSZIP[""-"":PSZIP,1:$E(PSZIP,1,5)_$S($E(PSZIP,6,9)]"""":""-""_$E(PSZIP,6,9),1:""""))"
^XMB(3.9,108,2,1189,0)="""RTN"",""PSOHLDS1"",67,0)"
^XMB(3.9,108,2,1190,0)=" S CLN=+$P(^PSRX(IRXN,0),""^"",5),CLN1=$S($D(^SC(CLN,0)):$P(^(0),""^"",1),1:""UNKNOWN"")"
^XMB(3.9,108,2,1191,0)="""RTN"",""PSOHLDS1"",68,0)"
^XMB(3.9,108,2,1192,0)=" S CSINER=$P(^PSRX(IRXN,3),""^"",3)"
^XMB(3.9,108,2,1193,0)="""RTN"",""PSOHLDS1"",69,0)"
^XMB(3.9,108,2,1194,0)=" K DIC,X,Y S DIC=""^VA(200,"",DIC(0)=""N,Z"",X=CSINER D ^DIC"
^XMB(3.9,108,2,1195,0)="""RTN"",""PSOHLDS1"",70,0)"
^XMB(3.9,108,2,1196,0)=" S CSINER1=$S(+Y:$$HLNAME^HLFNC($P(Y,""^"",2)),1:"""""""""""") K DIC,X,Y"
^XMB(3.9,108,2,1197,0)="""RTN"",""PSOHLDS1"",71,0)"
^XMB(3.9,108,2,1198,0)=" D 6^VADPT"
^XMB(3.9,108,2,1199,0)="""RTN"",""PSOHLDS1"",72,0)"
^XMB(3.9,108,2,1200,0)=" S X=$S($D(^PS(55,DFN,0)):^(0),1:""""),CAP=$P(X,""^"",2)"
^XMB(3.9,108,2,1201,0)="""RTN"",""PSOHLDS1"",73,0)"
^XMB(3.9,108,2,1202,0)=" D MW(X,.MW,.MP)                                              ;PSO*232"
^XMB(3.9,108,2,1203,0)="""RTN"",""PSOHLDS1"",74,0)"
^XMB(3.9,108,2,1204,0)=" I (($P(^PSRX(IRXN,""STA""),""^"")>0)&($P(^(""STA""),""^"")'=2)&('$G(PSODBQ)))!'$G(^PSRX(IRXN,""IB"")) S COPAY=""NO COPAY"""
^XMB(3.9,108,2,1205,0)="""RTN"",""PSOHLDS1"",75,0)"
^XMB(3.9,108,2,1206,0)=" E  S COPAY=""COPAY"""
^XMB(3.9,108,2,1207,0)="""RTN"",""PSOHLDS1"",76,0)"
^XMB(3.9,108,2,1208,0)=" S NURSE=$S($P($G(^DPT(DFN,""NHC"")),""^"")=""Y"":1,$P($G(^PS(55,DFN,40)),""^""):1,1:0)"
^XMB(3.9,108,2,1209,0)="""RTN"",""PSOHLDS1"",77,0)"
^XMB(3.9,108,2,1210,0)=" S DATE=$$HLDATE^HLFNC(FDT) D NOW^%DTC S NOW=$$HLDATE^HLFNC(%,""TS"")"
^XMB(3.9,108,2,1211,0)="""RTN"",""PSOHLDS1"",78,0)"
^XMB(3.9,108,2,1212,0)=" S OLAN=$P($G(^PS(55,DFN,""LAN"")),""^"",2),OTLAN=""N"" I OLAN=2 S OTLAN=""Y"""
^XMB(3.9,108,2,1213,0)="""RTN"",""PSOHLDS1"",79,0)"
^XMB(3.9,108,2,1214,0)=" S CSUB1=$$GET1^DIQ(50,IDGN_"","",3),CSUB=""N"" I $E(CSUB1,1)>1&($E(CSUB1,1)<6) S CSUB=""Y"""
^XMB(3.9,108,2,1215,0)="""RTN"",""PSOHLDS1"",80,0)"
^XMB(3.9,108,2,1216,0)=" S SCTALK=+$G(^PS(55,""ASTALK"",$P(^PSRX(IRXN,0),""^"",2)))"
^XMB(3.9,108,2,1217,0)="""RTN"",""PSOHLDS1"",81,0)"
^XMB(3.9,108,2,1218,0)=" K DIC,DR,DIQ S DA=$P($$SITE^VASITE(),""^"") I DA D"
^XMB(3.9,108,2,1219,0)="""RTN"",""PSOHLDS1"",82,0)"
^XMB(3.9,108,2,1220,0)=" .K PSOINST S DIC=4,DIQ(0)=""I"",DR=99,DIQ=""PSOINST"" D EN^DIQ1"
^XMB(3.9,108,2,1221,0)="""RTN"",""PSOHLDS1"",83,0)"
^XMB(3.9,108,2,1222,0)=" .S PSOINST=PSOINST(4,DA,99,""I"") K DIC,DA,DR,DIQ,PSOINST(4)"
^XMB(3.9,108,2,1223,0)="""RTN"",""PSOHLDS1"",84,0)"
^XMB(3.9,108,2,1224,0)=" S DRUG=$$ZZ^PSOSUTL(IRXN),DEA=$P(^PSDRUG(IDGN,0),""^"",3),WARN=$P($G(^(0)),""^"",8)"
^XMB(3.9,108,2,1225,0)="""RTN"",""PSOHLDS1"",85,0)"
^XMB(3.9,108,2,1226,0)=" S PSND1=$P($G(^PSDRUG(IDGN,""ND"")),""^""),PSND2=$P($G(^(""ND"")),""^"",2),PSND3=$P($G(^(""ND"")),""^"",3)"
^XMB(3.9,108,2,1227,0)="""RTN"",""PSOHLDS1"",86,0)"
^XMB(3.9,108,2,1228,0)=" K PSOXN,PSOXN2,PSOPROD"
^XMB(3.9,108,2,1229,0)="""RTN"",""PSOHLDS1"",87,0)"
^XMB(3.9,108,2,1230,0)=" I PSND1,PSND3 D"
^XMB(3.9,108,2,1231,0)="""RTN"",""PSOHLDS1"",88,0)"
^XMB(3.9,108,2,1232,0)=" .S PSOPROD=$$PROD2^PSNAPIS(PSND1,PSND3),VANAME=$P($G(PSOPROD),""^"",1)"
^XMB(3.9,108,2,1233,0)="""RTN"",""PSOHLDS1"",89,0)"
^XMB(3.9,108,2,1234,0)=" .I $T(^PSNAPIS)]"""" S PSOXN=$$DFSU^PSNAPIS(PSND1,PSND3),UNIT=$P($G(PSOXN),""^"",6) S PSOXN=$P($G(PSOXN),""^"",5) S PSOXN2=$$PROD2^PSNAPIS(PSND1,PSND3) Q"
^XMB(3.9,108,2,1235,0)="""RTN"",""PSOHLDS1"",90,0)"
^XMB(3.9,108,2,1236,0)=" .S PSOXN2=$G(^PSNDF(PSND1,5,PSND3,2))"
^XMB(3.9,108,2,1237,0)="""RTN"",""PSOHLDS1"",91,0)"
^XMB(3.9,108,2,1238,0)=" .S PRODUCT=$G(^PSNDF(PSND1,5,PSND3,0))"
^XMB(3.9,108,2,1239,0)="""RTN"",""PSOHLDS1"",92,0)"
^XMB(3.9,108,2,1240,0)=" .I $G(PRODUCT)'="""" S PSOXN=+$P($G(^PSNDF(PSND1,2,+$P(PRODUCT,""^"",2),3,+$P(PRODUCT,""^"",3),4,+$P(PRODUCT,""^"",4),0)),""^""),UNIT=$P($G(^PS(50.607,PSOXN,0)),""^"")"
^XMB(3.9,108,2,1241,0)="""RTN"",""PSOHLDS1"",93,0)"
^XMB(3.9,108,2,1242,0)=" S NFLD=0,UU="""" F  S UU=$O(^PSRX(IRXN,1,UU)) Q:UU=""""  S:$D(^PSRX(IRXN,1,UU,0)) NFLD=NFLD+1"
^XMB(3.9,108,2,1243,0)="""RTN"",""PSOHLDS1"",94,0)"
^XMB(3.9,108,2,1244,0)=" S NRFL=$P(^PSRX(IRXN,0),""^"",9),RFRM=(NRFL-NFLD)"
^XMB(3.9,108,2,1245,0)="""RTN"",""PSOHLDS1"",95,0)"
^XMB(3.9,108,2,1246,0)=" Q"
^XMB(3.9,108,2,1247,0)="""RTN"",""PSOHLDS1"",96,0)"
^XMB(3.9,108,2,1248,0)="PID(PSI) ;patient ID segment"
^XMB(3.9,108,2,1249,0)="""RTN"",""PSOHLDS1"",97,0)"
^XMB(3.9,108,2,1250,0)=" Q:'$D(DFN)!$D(PAS)"
^XMB(3.9,108,2,1251,0)="""RTN"",""PSOHLDS1"",98,0)"
^XMB(3.9,108,2,1252,0)=" S HLFS=HL1(""FS""),HLECH=HL1(""ECH""),HLQ=HL1(""Q""),HLVER=HL1(""VER"")"
^XMB(3.9,108,2,1253,0)="""RTN"",""PSOHLDS1"",99,0)"
^XMB(3.9,108,2,1254,0)=" K PSPID,PSPID1"
^XMB(3.9,108,2,1255,0)="""RTN"",""PSOHLDS1"",100,0)"
^XMB(3.9,108,2,1256,0)=" D BLDPID^VAFCQRY(DFN,"""",""3,5,7,8,11,13"",.PSPID,.HL1,.ERR)"
^XMB(3.9,108,2,1257,0)="""RTN"",""PSOHLDS1"",101,0)"
^XMB(3.9,108,2,1258,0)=" ; put PID in format needed for segment parser"
^XMB(3.9,108,2,1259,0)="""RTN"",""PSOHLDS1"",102,0)"
^XMB(3.9,108,2,1260,0)=" S PSPID=PSPID(1) K PSPID(1)"
^XMB(3.9,108,2,1261,0)="""RTN"",""PSOHLDS1"",103,0)"
^XMB(3.9,108,2,1262,0)=" S (X,Y)=1 F  S X=+$O(PSPID(X)) Q:'X  S PSPID(Y)=PSPID(X),Y=Y+1 K PSPID(X)"
^XMB(3.9,108,2,1263,0)="""RTN"",""PSOHLDS1"",104,0)"
^XMB(3.9,108,2,1264,0)=" ;parse PID into individual fields"
^XMB(3.9,108,2,1265,0)="""RTN"",""PSOHLDS1"",105,0)"
^XMB(3.9,108,2,1266,0)=" K PRSEPID D SEGPRSE^SCMSVUT5(""PSPID"",""PRSEPID"",HL1(""FS""))"
^XMB(3.9,108,2,1267,0)="""RTN"",""PSOHLDS1"",106,0)"
^XMB(3.9,108,2,1268,0)=" ; parse address into individual components"
^XMB(3.9,108,2,1269,0)="""RTN"",""PSOHLDS1"",107,0)"
^XMB(3.9,108,2,1270,0)=" K ADDSEQ D SEQPRSE^SCMSVUT5($NA(PRSEPID(11)),""ADDSEQ"",HL1(""ECH""))"
^XMB(3.9,108,2,1271,0)="""RTN"",""PSOHLDS1"",108,0)"
^XMB(3.9,108,2,1272,0)=" ; build ZTA (Temporary Address)"
^XMB(3.9,108,2,1273,0)="""RTN"",""PSOHLDS1"",109,0)"
^XMB(3.9,108,2,1274,0)=" K X2 S X2=$$EN^VAFHLZTA(DFN,""1,2,3,4,5,6,7,"",1)"
^XMB(3.9,108,2,1275,0)="""RTN"",""PSOHLDS1"",110,0)"
^XMB(3.9,108,2,1276,0)=" ; parse X2 (ZTA) into individual fields if temp add. exists"
^XMB(3.9,108,2,1277,0)="""RTN"",""PSOHLDS1"",111,0)"
^XMB(3.9,108,2,1278,0)=" I $P(X2,HLFS,3) D"
^XMB(3.9,108,2,1279,0)="""RTN"",""PSOHLDS1"",112,0)"
^XMB(3.9,108,2,1280,0)=" . K PRSEZTA D SEGPRSE^SCMSVUT5(""X2"",""PRSEZTA"",HL1(""FS""))"
^XMB(3.9,108,2,1281,0)="""RTN"",""PSOHLDS1"",113,0)"
^XMB(3.9,108,2,1282,0)=" . ; parse temporary address into individual components"
^XMB(3.9,108,2,1283,0)="""RTN"",""PSOHLDS1"",114,0)"
^XMB(3.9,108,2,1284,0)=" . K TMPADD D SEQPRSE^SCMSVUT5($NA(PRSEZTA(5)),""TMPADD"",HL1(""ECH""))"
^XMB(3.9,108,2,1285,0)="""RTN"",""PSOHLDS1"",115,0)"
^XMB(3.9,108,2,1286,0)=" . ; add temporary address as next repitition in PID segment"
^XMB(3.9,108,2,1287,0)="""RTN"",""PSOHLDS1"",116,0)"
^XMB(3.9,108,2,1288,0)=" . S SPOT=1+$O(ADDSEQ(""""),-1)"
^XMB(3.9,108,2,1289,0)="""RTN"",""PSOHLDS1"",117,0)"
^XMB(3.9,108,2,1290,0)=" . M ADDSEQ(SPOT)=TMPADD(1)"
^XMB(3.9,108,2,1291,0)="""RTN"",""PSOHLDS1"",118,0)"
^XMB(3.9,108,2,1292,0)=" . S ADDSEQ(SPOT,7)=""C"""
^XMB(3.9,108,2,1293,0)="""RTN"",""PSOHLDS1"",119,0)"
^XMB(3.9,108,2,1294,0)=" . S ADDSEQ(SPOT,9)=PRSEZTA(6)"
^XMB(3.9,108,2,1295,0)="""RTN"",""PSOHLDS1"",120,0)"
^XMB(3.9,108,2,1296,0)=" . S ADDSEQ(SPOT,12,1)=PRSEZTA(3)"
^XMB(3.9,108,2,1297,0)="""RTN"",""PSOHLDS1"",121,0)"
^XMB(3.9,108,2,1298,0)=" . S ADDSEQ(SPOT,12,2)=PRSEZTA(4)"
^XMB(3.9,108,2,1299,0)="""RTN"",""PSOHLDS1"",122,0)"
^XMB(3.9,108,2,1300,0)=" . ;move address sequence back into parse PID segment"
^XMB(3.9,108,2,1301,0)="""RTN"",""PSOHLDS1"",123,0)"
^XMB(3.9,108,2,1302,0)=" . K PRSEPID(11) M PRSEPID(11)=ADDSEQ"
^XMB(3.9,108,2,1303,0)="""RTN"",""PSOHLDS1"",124,0)"
^XMB(3.9,108,2,1304,0)=" ; rebuild PID segment"
^XMB(3.9,108,2,1305,0)="""RTN"",""PSOHLDS1"",125,0)"
^XMB(3.9,108,2,1306,0)=" K PSPID1 D MAKEIT^VAFHLU(""PID"",.PRSEPID,.PSPID1,.PSPID1)"
^XMB(3.9,108,2,1307,0)="""RTN"",""PSOHLDS1"",126,0)"
^XMB(3.9,108,2,1308,0)=" ;put rebuilt PID into format used by $$EN^VAFCQRY"
^XMB(3.9,108,2,1309,0)="""RTN"",""PSOHLDS1"",127,0)"
^XMB(3.9,108,2,1310,0)=" K PSPID S PSPID(1)=PSPID1"
^XMB(3.9,108,2,1311,0)="""RTN"",""PSOHLDS1"",128,0)"
^XMB(3.9,108,2,1312,0)=" S X=0,Y=2 F  S X=+$O(PSPID1(X)) Q:'X  S PSPID(Y)=PSPID1(X) S Y=Y+1"
^XMB(3.9,108,2,1313,0)="""RTN"",""PSOHLDS1"",129,0)"
^XMB(3.9,108,2,1314,0)=" S CNT=0 F I=1:1 Q:'$D(PSPID(I))  D"
^XMB(3.9,108,2,1315,0)="""RTN"",""PSOHLDS1"",130,0)"
^XMB(3.9,108,2,1316,0)=" . I I=1 S ^TMP(""PSO"",$J,PSI)=PSPID(I) Q"
^XMB(3.9,108,2,1317,0)="""RTN"",""PSOHLDS1"",131,0)"
^XMB(3.9,108,2,1318,0)=" . S CNT=CNT+1 S ^TMP(""PSO"",$J,PSI,CNT)=PSPID(I)"
^XMB(3.9,108,2,1319,0)="""RTN"",""PSOHLDS1"",132,0)"
^XMB(3.9,108,2,1320,0)=" S PSI=PSI+1"
^XMB(3.9,108,2,1321,0)="""RTN"",""PSOHLDS1"",133,0)"
^XMB(3.9,108,2,1322,0)=" S PAS=1"
^XMB(3.9,108,2,1323,0)="""RTN"",""PSOHLDS1"",134,0)"
^XMB(3.9,108,2,1324,0)=" K PSPID,PSPID1,PRSEPID,PRSEZTA,SPOT,TMPADD,ADDSEQ"
^XMB(3.9,108,2,1325,0)="""RTN"",""PSOHLDS1"",135,0)"
^XMB(3.9,108,2,1326,0)=" Q"
^XMB(3.9,108,2,1327,0)="""RTN"",""PSOHLDS1"",136,0)"
^XMB(3.9,108,2,1328,0)="PV1(PSI) ;patient visit segment"
^XMB(3.9,108,2,1329,0)="""RTN"",""PSOHLDS1"",137,0)"
^XMB(3.9,108,2,1330,0)=" Q:'$D(DFN)!$D(PAS1)"
^XMB(3.9,108,2,1331,0)="""RTN"",""PSOHLDS1"",138,0)"
^XMB(3.9,108,2,1332,0)=" N PV1  ;hardcoded to letter O for Outpatient (Patient class)"
^XMB(3.9,108,2,1333,0)="""RTN"",""PSOHLDS1"",139,0)"
^XMB(3.9,108,2,1334,0)=" S PV1=""PV1""_FS_FS_""O""_FS"
^XMB(3.9,108,2,1335,0)="""RTN"",""PSOHLDS1"",140,0)"
^XMB(3.9,108,2,1336,0)=" S ^TMP(""PSO"",$J,PSI)=PV1"
^XMB(3.9,108,2,1337,0)="""RTN"",""PSOHLDS1"",141,0)"
^XMB(3.9,108,2,1338,0)=" S PSI=PSI+1,PAS1=1"
^XMB(3.9,108,2,1339,0)="""RTN"",""PSOHLDS1"",142,0)"
^XMB(3.9,108,2,1340,0)=" Q"
^XMB(3.9,108,2,1341,0)="""RTN"",""PSOHLDS1"",143,0)"
^XMB(3.9,108,2,1342,0)="PV2(PSI) ;patient visit segment (additional information)"
^XMB(3.9,108,2,1343,0)="""RTN"",""PSOHLDS1"",144,0)"
^XMB(3.9,108,2,1344,0)=" ;PATIENT STATUS AND COPAY"
^XMB(3.9,108,2,1345,0)="""RTN"",""PSOHLDS1"",145,0)"
^XMB(3.9,108,2,1346,0)=" Q:'$D(DFN)!$D(PAS2)"
^XMB(3.9,108,2,1347,0)="""RTN"",""PSOHLDS1"",146,0)"
^XMB(3.9,108,2,1348,0)=" N PV2 S PV2="""""
^XMB(3.9,108,2,1349,0)="""RTN"",""PSOHLDS1"",147,0)"
^XMB(3.9,108,2,1350,0)=" S $P(PV2,""|"",24)=$P($G(^PS(53,+$P($G(^PSRX(IRXN,0)),""^"",3),0)),""^"",2)_""~""_COPAY_FS"
^XMB(3.9,108,2,1351,0)="""RTN"",""PSOHLDS1"",148,0)"
^XMB(3.9,108,2,1352,0)=" S ^TMP(""PSO"",$J,PSI)=""PV2|""_PV2"
^XMB(3.9,108,2,1353,0)="""RTN"",""PSOHLDS1"",149,0)"
^XMB(3.9,108,2,1354,0)=" S PSI=PSI+1,PAS2=1"
^XMB(3.9,108,2,1355,0)="""RTN"",""PSOHLDS1"",150,0)"
^XMB(3.9,108,2,1356,0)=" Q"
^XMB(3.9,108,2,1357,0)="""RTN"",""PSOHLDS1"",151,0)"
^XMB(3.9,108,2,1358,0)=" ;"
^XMB(3.9,108,2,1359,0)="""RTN"",""PSOHLDS1"",152,0)"
^XMB(3.9,108,2,1360,0)="MW(PS55,MW,MP) ;Return Mail/Window and MP expanded text               ;PSO*232"
^XMB(3.9,108,2,1361,0)="""RTN"",""PSOHLDS1"",153,0)"
^XMB(3.9,108,2,1362,0)=" I MW=""W""!(MW="""") D"
^XMB(3.9,108,2,1363,0)="""RTN"",""PSOHLDS1"",154,0)"
^XMB(3.9,108,2,1364,0)=" . S MP=$S($P($G(^PSRX(IRXN,""MP"")),""^""):$P(^(""MP""),""^""),1:"""""""""""")"
^XMB(3.9,108,2,1365,0)="""RTN"",""PSOHLDS1"",155,0)"
^XMB(3.9,108,2,1366,0)=" . S MW=""WINDOW"""
^XMB(3.9,108,2,1367,0)="""RTN"",""PSOHLDS1"",156,0)"
^XMB(3.9,108,2,1368,0)=" I MW=""M"" D"
^XMB(3.9,108,2,1369,0)="""RTN"",""PSOHLDS1"",157,0)"
^XMB(3.9,108,2,1370,0)=" . S MP="""""""""""""
^XMB(3.9,108,2,1371,0)="""RTN"",""PSOHLDS1"",158,0)"
^XMB(3.9,108,2,1372,0)=" . S PS55=$P(PS55,""^"",3)"
^XMB(3.9,108,2,1373,0)="""RTN"",""PSOHLDS1"",159,0)"
^XMB(3.9,108,2,1374,0)=" . S MW=$S(PS55=1:""CERTIFIED MAIL"",PS55=2:""DO NOT MAIL"",1:""REGULAR MAIL"")"
^XMB(3.9,108,2,1375,0)="""RTN"",""PSOHLDS1"",160,0)"
^XMB(3.9,108,2,1376,0)=" Q"
^XMB(3.9,108,2,1377,0)="""VER"")"
^XMB(3.9,108,2,1378,0)="8.0^22.0"
^XMB(3.9,108,2,1379,0)="""^DD"",52.11,52.11,6,0)"
^XMB(3.9,108,2,1380,0)="TIME READY (HHMM)^NJ5,0^^0;7^K:+X'=X!(X>86400)!(X<1)!(X?.E1"".""1N.N) X"
^XMB(3.9,108,2,1381,0)="""^DD"",52.11,52.11,6,.1)"
^XMB(3.9,108,2,1382,0)="Time Ready (HHMM)"
^XMB(3.9,108,2,1383,0)="""^DD"",52.11,52.11,6,1,0)"
^XMB(3.9,108,2,1384,0)="^.1"
^XMB(3.9,108,2,1385,0)="""^DD"",52.11,52.11,6,1,1,0)"
^XMB(3.9,108,2,1386,0)="52.11^ANAM^MUMPS"
^XMB(3.9,108,2,1387,0)="""^DD"",52.11,52.11,6,1,1,1)"
^XMB(3.9,108,2,1388,0)="S ^PS(52.11,""ANAM"",+$P(^PS(52.11,DA,0),""^"",3),$P(^(1),""^"",3)_$P(^(1),""^"",4)_"" ""_$P(^DPT(+$P(^PS(52.11,DA,0),""^""),0),""^""),DA)="""""
^XMB(3.9,108,2,1389,0)="""^DD"",52.11,52.11,6,1,1,2)"
^XMB(3.9,108,2,1390,0)="K ^PS(52.11,""ANAM"",+$P(^PS(52.11,DA,0),""^"",3),$P(^(1),""^"",3)_$P(^(1),""^"",4)_"" ""_$P(^DPT(+$P(^PS(52.11,DA,0),""^""),0),""^""),DA)"
^XMB(3.9,108,2,1391,0)="""^DD"",52.11,52.11,6,1,1,""%D"",0)"
^XMB(3.9,108,2,1392,0)="^.101^3^3^3001219^^^^"
^XMB(3.9,108,2,1393,0)="""^DD"",52.11,52.11,6,1,1,""%D"",1,0)"
^XMB(3.9,108,2,1394,0)="This xref lists the display group, patient name, then internal entry number."
^XMB(3.9,108,2,1395,0)="""^DD"",52.11,52.11,6,1,1,""%D"",2,0)"
^XMB(3.9,108,2,1396,0)="It sets the global ^PS(52.11,""ANAM"",Display Group,Hierarcy_MulitRx_"" ""_"
^XMB(3.9,108,2,1397,0)="""^DD"",52.11,52.11,6,1,1,""%D"",3,0)"
^XMB(3.9,108,2,1398,0)="Patient Name,DA)=""""."
^XMB(3.9,108,2,1399,0)="""^DD"",52.11,52.11,6,1,1,""DT"")"
^XMB(3.9,108,2,1400,0)="2930318"
^XMB(3.9,108,2,1401,0)="""^DD"",52.11,52.11,6,1,2,0)"
^XMB(3.9,108,2,1402,0)="52.11^ATIC^MUMPS"
^XMB(3.9,108,2,1403,0)="""^DD"",52.11,52.11,6,1,2,1)"
^XMB(3.9,108,2,1404,0)="D ATICSET^PSOBINGO"
^XMB(3.9,108,2,1405,0)="""^DD"",52.11,52.11,6,1,2,2)"
^XMB(3.9,108,2,1406,0)="D ATICKIL^PSOBINGO"
^XMB(3.9,108,2,1407,0)="""^DD"",52.11,52.11,6,1,2,""%D"",0)"
^XMB(3.9,108,2,1408,0)="^.101^2^2^3060213^^^^"
^XMB(3.9,108,2,1409,0)="""^DD"",52.11,52.11,6,1,2,""%D"",1,0)"
^XMB(3.9,108,2,1410,0)="This Xref lists the display group, ticket #, then internal entry number."
^XMB(3.9,108,2,1411,0)="""^DD"",52.11,52.11,6,1,2,""%D"",2,0)"
^XMB(3.9,108,2,1412,0)="It sets the global ^PS(52.11,""ATIC"",Display Group,Ticket,DA)=""""."
^XMB(3.9,108,2,1413,0)="""^DD"",52.11,52.11,6,1,2,""DT"")"
^XMB(3.9,108,2,1414,0)="3060118"
^XMB(3.9,108,2,1415,0)="""^DD"",52.11,52.11,6,3)"
^XMB(3.9,108,2,1416,0)="Type a Number between 1 and 86400, 0 Decimal Digits"
^XMB(3.9,108,2,1417,0)="""^DD"",52.11,52.11,6,21,0)"
^XMB(3.9,108,2,1418,0)="^^1^1^2930201^"
^XMB(3.9,108,2,1419,0)="""^DD"",52.11,52.11,6,21,1,0)"
^XMB(3.9,108,2,1420,0)="Second piece of $H at the time the Rx is ready."
^XMB(3.9,108,2,1421,0)="""^DD"",52.11,52.11,6,23,0)"
^XMB(3.9,108,2,1422,0)="^^1^1^2930201^"
^XMB(3.9,108,2,1423,0)="""^DD"",52.11,52.11,6,23,1,0)"
^XMB(3.9,108,2,1424,0)="This field is ""stuffed"" by routine PSOBINGO when Rx is ready."
^XMB(3.9,108,2,1425,0)="""^DD"",52.11,52.11,6,""DT"")"
^XMB(3.9,108,2,1426,0)="3060118"
^XMB(3.9,108,2,1427,0)="""^DD"",59,59,2007,0)"
^XMB(3.9,108,2,1428,0)="DISPENSE DNS PORT^NJ5,0^^8;6^K:+X'=X!(X>65535)!(X<1)!(X?.E1"".""1.N) X"
^XMB(3.9,108,2,1429,0)="""^DD"",59,59,2007,3)"
^XMB(3.9,108,2,1430,0)="Type a number between 1 and 65535, 0 Decimal Digits"
^XMB(3.9,108,2,1431,0)="""^DD"",59,59,2007,21,0)"
^XMB(3.9,108,2,1432,0)="^^2^2^3040405^"
^XMB(3.9,108,2,1433,0)="""^DD"",59,59,2007,21,1,0)"
^XMB(3.9,108,2,1434,0)="ENTER THE DNS PORT NUMBER ASSOCIATED WITH THE AUTOMATED DISPENSE MACHINE "
^XMB(3.9,108,2,1435,0)="""^DD"",59,59,2007,21,2,0)"
^XMB(3.9,108,2,1436,0)="FOR THIS OUTPATIENT PHARMACY SITE DIVISION."
^XMB(3.9,108,2,1437,0)="""^DD"",59,59,2007,23,0)"
^XMB(3.9,108,2,1438,0)="^^3^3^3040405^"
^XMB(3.9,108,2,1439,0)="""^DD"",59,59,2007,23,1,0)"
^XMB(3.9,108,2,1440,0)="YOUR IRM DEPARTMENT SHOULD HAVE THE INFORMATION OF THE PORT NUMBER FOR "
^XMB(3.9,108,2,1441,0)="""^DD"",59,59,2007,23,2,0)"
^XMB(3.9,108,2,1442,0)="THE AUTOMATED DISPENSE MACHINE ATTACHED TO THIS OUTPATIENT PHARMACY SITE "
^XMB(3.9,108,2,1443,0)="""^DD"",59,59,2007,23,3,0)"
^XMB(3.9,108,2,1444,0)="DIVISION."
^XMB(3.9,108,2,1445,0)="""^DD"",59,59,2007,""DT"")"
^XMB(3.9,108,2,1446,0)="3060213"
^XMB(3.9,108,2,1447,0)="""BLD"",6650,6)"
^XMB(3.9,108,2,1448,0)="^213"
^XMB(3.9,108,2,1449,0)="$END KID PSO*7.0*232"
^XMB(3.9,108,6,0)="^3.911A^2^2"
^XMB(3.9,108,6,1,0)="POSTMASTER"
^XMB(3.9,108,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,108,6,"B","POSTMASTER",1)=""
^XMB(3.9,108,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,109,0)="PSO-7_SEQ-214_PAT-237.KID^.5^3061008.015741^^^^K"
^XMB(3.9,109,.6)="3061008"
^XMB(3.9,109,1,0)="^3.91A^2^2"
^XMB(3.9,109,1,1,0)=".5^0^3061008.015741^^^^^^^3061008.015741"
^XMB(3.9,109,1,2,0)="1^0^3061008.022324^^^^^^^3061008.022324"
^XMB(3.9,109,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,109,1,"C",.5,1)=""
^XMB(3.9,109,1,"C",1,2)=""
^XMB(3.9,109,2,0)="^^1159^1159^3061008"
^XMB(3.9,109,2,1,0)="$TXT Released PSO*7*237 SEQ #214"
^XMB(3.9,109,2,2,0)="Extracted from mail message"
^XMB(3.9,109,2,3,0)="$END TXT"
^XMB(3.9,109,2,4,0)="$KID PSO*7.0*237"
^XMB(3.9,109,2,5,0)="**INSTALL NAME**"
^XMB(3.9,109,2,6,0)="PSO*7.0*237"
^XMB(3.9,109,2,7,0)="""BLD"",6646,0)"
^XMB(3.9,109,2,8,0)="PSO*7.0*237^OUTPATIENT PHARMACY^0^3060718^y"
^XMB(3.9,109,2,9,0)="""BLD"",6646,1,0)"
^XMB(3.9,109,2,10,0)="^^2^2^3060208^"
^XMB(3.9,109,2,11,0)="""BLD"",6646,1,1,0)"
^XMB(3.9,109,2,12,0)="CORRECT CLOZAPINE OVERRRIDE LIST ERROR AND CORRECT FINISHING OF PENDING "
^XMB(3.9,109,2,13,0)="""BLD"",6646,1,2,0)"
^XMB(3.9,109,2,14,0)="ORDERS THAT ARE OLDER THAN A YEAR AND ARE BASICALLY EXPIRED."
^XMB(3.9,109,2,15,0)="""BLD"",6646,4,0)"
^XMB(3.9,109,2,16,0)="^9.64PA^^"
^XMB(3.9,109,2,17,0)="""BLD"",6646,""ABPKG"")"
^XMB(3.9,109,2,18,0)="n"
^XMB(3.9,109,2,19,0)="""BLD"",6646,""KRN"",0)"
^XMB(3.9,109,2,20,0)="^9.67PA^8989.52^19"
^XMB(3.9,109,2,21,0)="""BLD"",6646,""KRN"",.4,0)"
^XMB(3.9,109,2,22,0)=".4"
^XMB(3.9,109,2,23,0)="""BLD"",6646,""KRN"",.401,0)"
^XMB(3.9,109,2,24,0)=".401"
^XMB(3.9,109,2,25,0)="""BLD"",6646,""KRN"",.402,0)"
^XMB(3.9,109,2,26,0)=".402"
^XMB(3.9,109,2,27,0)="""BLD"",6646,""KRN"",.403,0)"
^XMB(3.9,109,2,28,0)=".403"
^XMB(3.9,109,2,29,0)="""BLD"",6646,""KRN"",.5,0)"
^XMB(3.9,109,2,30,0)=".5"
^XMB(3.9,109,2,31,0)="""BLD"",6646,""KRN"",.84,0)"
^XMB(3.9,109,2,32,0)=".84"
^XMB(3.9,109,2,33,0)="""BLD"",6646,""KRN"",3.6,0)"
^XMB(3.9,109,2,34,0)="3.6"
^XMB(3.9,109,2,35,0)="""BLD"",6646,""KRN"",3.8,0)"
^XMB(3.9,109,2,36,0)="3.8"
^XMB(3.9,109,2,37,0)="""BLD"",6646,""KRN"",9.2,0)"
^XMB(3.9,109,2,38,0)="9.2"
^XMB(3.9,109,2,39,0)="""BLD"",6646,""KRN"",9.8,0)"
^XMB(3.9,109,2,40,0)="9.8"
^XMB(3.9,109,2,41,0)="""BLD"",6646,""KRN"",9.8,""NM"",0)"
^XMB(3.9,109,2,42,0)="^9.68A^3^3"
^XMB(3.9,109,2,43,0)="""BLD"",6646,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,109,2,44,0)="PSOORNEW^^0^69954269"
^XMB(3.9,109,2,45,0)="""BLD"",6646,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,109,2,46,0)="PSONEW2^^0^31175329"
^XMB(3.9,109,2,47,0)="""BLD"",6646,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,109,2,48,0)="PSORENW0^^0^79440242"
^XMB(3.9,109,2,49,0)="""BLD"",6646,""KRN"",9.8,""NM"",""B"",""PSONEW2"",2)"
^XMB(3.9,109,2,50,0)=""
^XMB(3.9,109,2,51,0)="""BLD"",6646,""KRN"",9.8,""NM"",""B"",""PSOORNEW"",1)"
^XMB(3.9,109,2,52,0)=""
^XMB(3.9,109,2,53,0)="""BLD"",6646,""KRN"",9.8,""NM"",""B"",""PSORENW0"",3)"
^XMB(3.9,109,2,54,0)=""
^XMB(3.9,109,2,55,0)="""BLD"",6646,""KRN"",19,0)"
^XMB(3.9,109,2,56,0)="19"
^XMB(3.9,109,2,57,0)="""BLD"",6646,""KRN"",19.1,0)"
^XMB(3.9,109,2,58,0)="19.1"
^XMB(3.9,109,2,59,0)="""BLD"",6646,""KRN"",101,0)"
^XMB(3.9,109,2,60,0)="101"
^XMB(3.9,109,2,61,0)="""BLD"",6646,""KRN"",409.61,0)"
^XMB(3.9,109,2,62,0)="409.61"
^XMB(3.9,109,2,63,0)="""BLD"",6646,""KRN"",771,0)"
^XMB(3.9,109,2,64,0)="771"
^XMB(3.9,109,2,65,0)="""BLD"",6646,""KRN"",870,0)"
^XMB(3.9,109,2,66,0)="870"
^XMB(3.9,109,2,67,0)="""BLD"",6646,""KRN"",8989.51,0)"
^XMB(3.9,109,2,68,0)="8989.51"
^XMB(3.9,109,2,69,0)="""BLD"",6646,""KRN"",8989.52,0)"
^XMB(3.9,109,2,70,0)="8989.52"
^XMB(3.9,109,2,71,0)="""BLD"",6646,""KRN"",8994,0)"
^XMB(3.9,109,2,72,0)="8994"
^XMB(3.9,109,2,73,0)="""BLD"",6646,""KRN"",""B"",.4,.4)"
^XMB(3.9,109,2,74,0)=""
^XMB(3.9,109,2,75,0)="""BLD"",6646,""KRN"",""B"",.401,.401)"
^XMB(3.9,109,2,76,0)=""
^XMB(3.9,109,2,77,0)="""BLD"",6646,""KRN"",""B"",.402,.402)"
^XMB(3.9,109,2,78,0)=""
^XMB(3.9,109,2,79,0)="""BLD"",6646,""KRN"",""B"",.403,.403)"
^XMB(3.9,109,2,80,0)=""
^XMB(3.9,109,2,81,0)="""BLD"",6646,""KRN"",""B"",.5,.5)"
^XMB(3.9,109,2,82,0)=""
^XMB(3.9,109,2,83,0)="""BLD"",6646,""KRN"",""B"",.84,.84)"
^XMB(3.9,109,2,84,0)=""
^XMB(3.9,109,2,85,0)="""BLD"",6646,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,109,2,86,0)=""
^XMB(3.9,109,2,87,0)="""BLD"",6646,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,109,2,88,0)=""
^XMB(3.9,109,2,89,0)="""BLD"",6646,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,109,2,90,0)=""
^XMB(3.9,109,2,91,0)="""BLD"",6646,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,109,2,92,0)=""
^XMB(3.9,109,2,93,0)="""BLD"",6646,""KRN"",""B"",19,19)"
^XMB(3.9,109,2,94,0)=""
^XMB(3.9,109,2,95,0)="""BLD"",6646,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,109,2,96,0)=""
^XMB(3.9,109,2,97,0)="""BLD"",6646,""KRN"",""B"",101,101)"
^XMB(3.9,109,2,98,0)=""
^XMB(3.9,109,2,99,0)="""BLD"",6646,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,109,2,100,0)=""
^XMB(3.9,109,2,101,0)="""BLD"",6646,""KRN"",""B"",771,771)"
^XMB(3.9,109,2,102,0)=""
^XMB(3.9,109,2,103,0)="""BLD"",6646,""KRN"",""B"",870,870)"
^XMB(3.9,109,2,104,0)=""
^XMB(3.9,109,2,105,0)="""BLD"",6646,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,109,2,106,0)=""
^XMB(3.9,109,2,107,0)="""BLD"",6646,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,109,2,108,0)=""
^XMB(3.9,109,2,109,0)="""BLD"",6646,""KRN"",""B"",8994,8994)"
^XMB(3.9,109,2,110,0)=""
^XMB(3.9,109,2,111,0)="""BLD"",6646,""QUES"",0)"
^XMB(3.9,109,2,112,0)="^9.62^^"
^XMB(3.9,109,2,113,0)="""BLD"",6646,""REQB"",0)"
^XMB(3.9,109,2,114,0)="^9.611^2^2"
^XMB(3.9,109,2,115,0)="""BLD"",6646,""REQB"",1,0)"
^XMB(3.9,109,2,116,0)="PSO*7.0*130^2"
^XMB(3.9,109,2,117,0)="""BLD"",6646,""REQB"",2,0)"
^XMB(3.9,109,2,118,0)="PSO*7.0*226^2"
^XMB(3.9,109,2,119,0)="""BLD"",6646,""REQB"",""B"",""PSO*7.0*130"",1)"
^XMB(3.9,109,2,120,0)=""
^XMB(3.9,109,2,121,0)="""BLD"",6646,""REQB"",""B"",""PSO*7.0*226"",2)"
^XMB(3.9,109,2,122,0)=""
^XMB(3.9,109,2,123,0)="""MBREQ"")"
^XMB(3.9,109,2,124,0)="0"
^XMB(3.9,109,2,125,0)="""PKG"",134,-1)"
^XMB(3.9,109,2,126,0)="1^1"
^XMB(3.9,109,2,127,0)="""PKG"",134,0)"
^XMB(3.9,109,2,128,0)="OUTPATIENT PHARMACY^PSO^OUTPATIENT LABELS, PROFILE, INVENTORY, PRESCRIPTIONS"
^XMB(3.9,109,2,129,0)="""PKG"",134,20,0)"
^XMB(3.9,109,2,130,0)="^9.402P^^"
^XMB(3.9,109,2,131,0)="""PKG"",134,22,0)"
^XMB(3.9,109,2,132,0)="^9.49I^1^1"
^XMB(3.9,109,2,133,0)="""PKG"",134,22,1,0)"
^XMB(3.9,109,2,134,0)="7.0^2971216^2980417^1271"
^XMB(3.9,109,2,135,0)="""PKG"",134,22,1,""PAH"",1,0)"
^XMB(3.9,109,2,136,0)="237^3060718"
^XMB(3.9,109,2,137,0)="""PKG"",134,22,1,""PAH"",1,1,0)"
^XMB(3.9,109,2,138,0)="^^2^2^3060718"
^XMB(3.9,109,2,139,0)="""PKG"",134,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,109,2,140,0)="CORRECT CLOZAPINE OVERRRIDE LIST ERROR AND CORRECT FINISHING OF PENDING "
^XMB(3.9,109,2,141,0)="""PKG"",134,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,109,2,142,0)="ORDERS THAT ARE OLDER THAN A YEAR AND ARE BASICALLY EXPIRED."
^XMB(3.9,109,2,143,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,109,2,144,0)="Y"
^XMB(3.9,109,2,145,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,109,2,146,0)="^D REP^XPDH"
^XMB(3.9,109,2,147,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,109,2,148,0)="Shall I write over your |FLAG| File"
^XMB(3.9,109,2,149,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,109,2,150,0)="YES"
^XMB(3.9,109,2,151,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,109,2,152,0)="D XPF1^XPDIQ"
^XMB(3.9,109,2,153,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,109,2,154,0)="Y"
^XMB(3.9,109,2,155,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,109,2,156,0)="^D DTA^XPDH"
^XMB(3.9,109,2,157,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,109,2,158,0)="Want my data |FLAG| yours"
^XMB(3.9,109,2,159,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,109,2,160,0)="YES"
^XMB(3.9,109,2,161,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,109,2,162,0)="D XPF2^XPDIQ"
^XMB(3.9,109,2,163,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,109,2,164,0)="YO"
^XMB(3.9,109,2,165,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,109,2,166,0)="^D INHIBIT^XPDH"
^XMB(3.9,109,2,167,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,109,2,168,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,109,2,169,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,109,2,170,0)="YES"
^XMB(3.9,109,2,171,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,109,2,172,0)="D XPI1^XPDIQ"
^XMB(3.9,109,2,173,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,109,2,174,0)="PO^VA(200,:EM"
^XMB(3.9,109,2,175,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,109,2,176,0)="^D MG^XPDH"
^XMB(3.9,109,2,177,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,109,2,178,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,109,2,179,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,109,2,180,0)=""
^XMB(3.9,109,2,181,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,109,2,182,0)="D XPM1^XPDIQ"
^XMB(3.9,109,2,183,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,109,2,184,0)="Y"
^XMB(3.9,109,2,185,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,109,2,186,0)="^D MENU^XPDH"
^XMB(3.9,109,2,187,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,109,2,188,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,109,2,189,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,109,2,190,0)="YES"
^XMB(3.9,109,2,191,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,109,2,192,0)="D XPO1^XPDIQ"
^XMB(3.9,109,2,193,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,109,2,194,0)="Y"
^XMB(3.9,109,2,195,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,109,2,196,0)="^D OPT^XPDH"
^XMB(3.9,109,2,197,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,109,2,198,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,109,2,199,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,109,2,200,0)="YES"
^XMB(3.9,109,2,201,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,109,2,202,0)="D XPZ1^XPDIQ"
^XMB(3.9,109,2,203,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,109,2,204,0)="Y"
^XMB(3.9,109,2,205,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,109,2,206,0)="^D RTN^XPDH"
^XMB(3.9,109,2,207,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,109,2,208,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,109,2,209,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,109,2,210,0)="NO"
^XMB(3.9,109,2,211,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,109,2,212,0)="D XPZ2^XPDIQ"
^XMB(3.9,109,2,213,0)="""RTN"")"
^XMB(3.9,109,2,214,0)="3"
^XMB(3.9,109,2,215,0)="""RTN"",""PSONEW2"")"
^XMB(3.9,109,2,216,0)="0^2^B31175329^B29428491"
^XMB(3.9,109,2,217,0)="""RTN"",""PSONEW2"",1,0)"
^XMB(3.9,109,2,218,0)="PSONEW2 ;BIR/DSD - displays new rx information for edit ;7/17/06 6:59pm"
^XMB(3.9,109,2,219,0)="""RTN"",""PSONEW2"",2,0)"
^XMB(3.9,109,2,220,0)=" ;;7.0;OUTPATIENT PHARMACY;**32,37,46,71,94,124,139,157,143,226,237**;DEC 1997"
^XMB(3.9,109,2,221,0)="""RTN"",""PSONEW2"",3,0)"
^XMB(3.9,109,2,222,0)=" ;External reference to ^PSDRUG supported by DBIA 221"
^XMB(3.9,109,2,223,0)="""RTN"",""PSONEW2"",4,0)"
^XMB(3.9,109,2,224,0)=" ;External reference to ^DPT supported by DBIA 10035"
^XMB(3.9,109,2,225,0)="""RTN"",""PSONEW2"",5,0)"
^XMB(3.9,109,2,226,0)=" ;External reference to PSOUL^PSSLOCK supported by DBIA 2789"
^XMB(3.9,109,2,227,0)="""RTN"",""PSONEW2"",6,0)"
^XMB(3.9,109,2,228,0)=" ;External reference VADPT supported by DBIA 10061"
^XMB(3.9,109,2,229,0)="""RTN"",""PSONEW2"",7,0)"
^XMB(3.9,109,2,230,0)=" ; This routine displays the entered new rx information and"
^XMB(3.9,109,2,231,0)="""RTN"",""PSONEW2"",8,0)"
^XMB(3.9,109,2,232,0)=" ; asks if correct, if not allows editing of the data."
^XMB(3.9,109,2,233,0)="""RTN"",""PSONEW2"",9,0)"
^XMB(3.9,109,2,234,0)=" ;------------------------------------------------------------"
^XMB(3.9,109,2,235,0)="""RTN"",""PSONEW2"",10,0)"
^XMB(3.9,109,2,236,0)=" ;PSO*237 issue expired error message"
^XMB(3.9,109,2,237,0)="""RTN"",""PSONEW2"",11,0)"
^XMB(3.9,109,2,238,0)=" ;"
^XMB(3.9,109,2,239,0)="""RTN"",""PSONEW2"",12,0)"
^XMB(3.9,109,2,240,0)="START ;"
^XMB(3.9,109,2,241,0)="""RTN"",""PSONEW2"",13,0)"
^XMB(3.9,109,2,242,0)=" S (PSONEW(""DFLG""),PSONEW2(""QFLG""))=0"
^XMB(3.9,109,2,243,0)="""RTN"",""PSONEW2"",14,0)"
^XMB(3.9,109,2,244,0)=" D STOP"
^XMB(3.9,109,2,245,0)="""RTN"",""PSONEW2"",15,0)"
^XMB(3.9,109,2,246,0)=" D DISPLAY ; Displays information"
^XMB(3.9,109,2,247,0)="""RTN"",""PSONEW2"",16,0)"
^XMB(3.9,109,2,248,0)=" ;Copay exemption checks"
^XMB(3.9,109,2,249,0)="""RTN"",""PSONEW2"",17,0)"
^XMB(3.9,109,2,250,0)=" S PSONEWFF=1 K PSOANSQ,PSOANSQD S PSOCPZ(""DFLG"")=0,PSONEW(""NEWCOPAY"")=0 I $P($G(^PS(53,+$G(PSONEW(""PATIENT STATUS"")),0)),""^"",7)'=1,$G(DUZ(""AG""))=""V"" S PSOFLAG=1 D COPAY^PSOCPB W !"
^XMB(3.9,109,2,251,0)="""RTN"",""PSONEW2"",18,0)"
^XMB(3.9,109,2,252,0)=" D ELIG^VADPT S PSOANSQ(""SC>50"")="""",PSOSCP="""",PSOSCP=$P(VAEL(3),U,2) K VAEL"
^XMB(3.9,109,2,253,0)="""RTN"",""PSONEW2"",19,0)"
^XMB(3.9,109,2,254,0)=" I ($P($G(^PS(53,+$G(PSONEW(""PATIENT STATUS"")),0)),""^"",7)=1)!(PSOSCP>49) S PSOFLAG=1 D SC^PSOMLLD2"
^XMB(3.9,109,2,255,0)="""RTN"",""PSONEW2"",20,0)"
^XMB(3.9,109,2,256,0)=" I $G(PSOCPZ(""DFLG"")) K PSONEWFF,PSOANSQD,PSOCPZ(""DFLG""),PSONEW(""NEWCOPAY"") S DIRUT="""",PSONEW(""DFLG"")=1 D ASKX G END"
^XMB(3.9,109,2,257,0)="""RTN"",""PSONEW2"",21,0)"
^XMB(3.9,109,2,258,0)=" ;IF MILL BILL, AND COPAY (*******TEST THE COPAY CHECK)"
^XMB(3.9,109,2,259,0)="""RTN"",""PSONEW2"",22,0)"
^XMB(3.9,109,2,260,0)=" I $$DT^PSOMLLDT D  I $G(PSOCPZ(""DFLG"")) K PSONEWFF,PSOANSQD,PSOANSQ,PSOCPZ(""DFLG""),PSONEW(""NEWCOPAY"") S DIRUT="""",PSONEW(""DFLG"")=1 D ASKX G END"
^XMB(3.9,109,2,261,0)="""RTN"",""PSONEW2"",23,0)"
^XMB(3.9,109,2,262,0)=" .;New prompts Quit after first '^'"
^XMB(3.9,109,2,263,0)="""RTN"",""PSONEW2"",24,0)"
^XMB(3.9,109,2,264,0)=" .I $D(PSOIBQS(PSODFN,""CV"")) D CV^PSOMLLDT I $G(PSOCPZ(""DFLG""))!($G(PSOANSQ(""CV""))) K PSONEW(""NEWCOPAY"")"
^XMB(3.9,109,2,265,0)="""RTN"",""PSONEW2"",25,0)"
^XMB(3.9,109,2,266,0)=" .I $D(PSOIBQS(PSODFN,""VEH"")) D VEH^PSOMLLDT I $G(PSOCPZ(""DFLG""))!($G(PSOANSQ(""VEH""))) K PSONEW(""NEWCOPAY"")"
^XMB(3.9,109,2,267,0)="""RTN"",""PSONEW2"",26,0)"
^XMB(3.9,109,2,268,0)=" .I $D(PSOIBQS(PSODFN,""RAD"")) D RAD^PSOMLLDT I $G(PSOCPZ(""DFLG""))!($G(PSOANSQ(""RAD""))) K PSONEW(""NEWCOPAY"")"
^XMB(3.9,109,2,269,0)="""RTN"",""PSONEW2"",27,0)"
^XMB(3.9,109,2,270,0)=" .I $D(PSOIBQS(PSODFN,""PGW"")) D PGW^PSOMLLDT I $G(PSOCPZ(""DFLG""))!($G(PSOANSQ(""PGW""))) K PSONEW(""NEWCOPAY"")"
^XMB(3.9,109,2,271,0)="""RTN"",""PSONEW2"",28,0)"
^XMB(3.9,109,2,272,0)=" .I $D(PSOIBQS(PSODFN,""MST"")) D MST^PSOMLLDT I $G(PSOCPZ(""DFLG""))!($G(PSOANSQ(""MST""))) K PSONEW(""NEWCOPAY"")"
^XMB(3.9,109,2,273,0)="""RTN"",""PSONEW2"",29,0)"
^XMB(3.9,109,2,274,0)=" .I $D(PSOIBQS(PSODFN,""HNC"")) D HNC^PSOMLLDT I $G(PSOCPZ(""DFLG""))!($G(PSOANSQ(""HNC""))) K PSONEW(""NEWCOPAY"")"
^XMB(3.9,109,2,275,0)="""RTN"",""PSONEW2"",30,0)"
^XMB(3.9,109,2,276,0)=" K PSOCPZ(""DFLG""),PSONEWFF"
^XMB(3.9,109,2,277,0)="""RTN"",""PSONEW2"",31,0)"
^XMB(3.9,109,2,278,0)=" D ASK K:$G(PSONEW(""DFLG"")) PSOANSQ G:PSONEW2(""QFLG"")!PSONEW(""DFLG"") END"
^XMB(3.9,109,2,279,0)="""RTN"",""PSONEW2"",32,0)"
^XMB(3.9,109,2,280,0)=" S PSORX(""EDIT"")=1 D EN^PSOORNE1(.PSONEW),FULL^VALM1 G:$G(PSORX(""FN"")) END  I '$G(PSORX(""FN"")) S PSONEW(""DFLG"")=1 K PSOANSQ G END ;D EDIT"
^XMB(3.9,109,2,281,0)="""RTN"",""PSONEW2"",33,0)"
^XMB(3.9,109,2,282,0)=" G:'$G(PSONEW(""DFLG"")) START"
^XMB(3.9,109,2,283,0)="""RTN"",""PSONEW2"",34,0)"
^XMB(3.9,109,2,284,0)=" S PSONEW(""QFLG"")=1,PSONEW(""DFLG"")=0"
^XMB(3.9,109,2,285,0)="""RTN"",""PSONEW2"",35,0)"
^XMB(3.9,109,2,286,0)="END D EOJ"
^XMB(3.9,109,2,287,0)="""RTN"",""PSONEW2"",36,0)"
^XMB(3.9,109,2,288,0)=" Q"
^XMB(3.9,109,2,289,0)="""RTN"",""PSONEW2"",37,0)"
^XMB(3.9,109,2,290,0)=" ;------------------------------------------------------------"
^XMB(3.9,109,2,291,0)="""RTN"",""PSONEW2"",38,0)"
^XMB(3.9,109,2,292,0)="STOP K PSEXDT,X,%DT S PSON52(""QFLG"")=0"
^XMB(3.9,109,2,293,0)="""RTN"",""PSONEW2"",39,0)"
^XMB(3.9,109,2,294,0)=" S X1=PSOID,X2=PSONEW(""DAYS SUPPLY"")*(PSONEW(""# OF REFILLS"")+1)\1"
^XMB(3.9,109,2,295,0)="""RTN"",""PSONEW2"",40,0)"
^XMB(3.9,109,2,296,0)=" S X2=$S(PSONEW(""DAYS SUPPLY"")=X2:X2,+$G(PSONEW(""CS"")):184,1:366)"
^XMB(3.9,109,2,297,0)="""RTN"",""PSONEW2"",41,0)"
^XMB(3.9,109,2,298,0)=" I X2<30 D"
^XMB(3.9,109,2,299,0)="""RTN"",""PSONEW2"",42,0)"
^XMB(3.9,109,2,300,0)=" . N % S %=$P($G(PSORX(""PATIENT STATUS"")),""^""),X2=30"
^XMB(3.9,109,2,301,0)="""RTN"",""PSONEW2"",43,0)"
^XMB(3.9,109,2,302,0)=" . S:%?.N %=$P($G(^PS(53,+%,0)),""^"") I %[""AUTH ABS"" S X2=5"
^XMB(3.9,109,2,303,0)="""RTN"",""PSONEW2"",44,0)"
^XMB(3.9,109,2,304,0)=" D C^%DTC I PSONEW(""FILL DATE"")>$P(X,""."") S PSEXDT=1_""^""_$P(X,""."")"
^XMB(3.9,109,2,305,0)="""RTN"",""PSONEW2"",45,0)"
^XMB(3.9,109,2,306,0)=" K X1,X2,X,%DT"
^XMB(3.9,109,2,307,0)="""RTN"",""PSONEW2"",46,0)"
^XMB(3.9,109,2,308,0)=" Q"
^XMB(3.9,109,2,309,0)="""RTN"",""PSONEW2"",47,0)"
^XMB(3.9,109,2,310,0)="DISPLAY ;"
^XMB(3.9,109,2,311,0)="""RTN"",""PSONEW2"",48,0)"
^XMB(3.9,109,2,312,0)=" W !!,""Rx # "",PSONEW(""RX #"")"
^XMB(3.9,109,2,313,0)="""RTN"",""PSONEW2"",49,0)"
^XMB(3.9,109,2,314,0)=" W ?23,$E(PSONEW(""FILL DATE""),4,5),""/"",$E(PSONEW(""FILL DATE""),6,7),""/"",$E(PSONEW(""FILL DATE""),2,3),!,$G(PSORX(""NAME"")),?30,""#"",PSONEW(""QTY"")"
^XMB(3.9,109,2,315,0)="""RTN"",""PSONEW2"",50,0)"
^XMB(3.9,109,2,316,0)=" I $G(SIGOK),$O(SIG(0)) D  K D G TRN"
^XMB(3.9,109,2,317,0)="""RTN"",""PSONEW2"",51,0)"
^XMB(3.9,109,2,318,0)=" .F D=0:0 S D=$O(SIG(D)) W !,SIG(D) Q:'$O(SIG(D))"
^XMB(3.9,109,2,319,0)="""RTN"",""PSONEW2"",52,0)"
^XMB(3.9,109,2,320,0)=" E  S X=PSONEW(""SIG"") D SIGONE^PSOHELP W !,$G(INS1)"
^XMB(3.9,109,2,321,0)="""RTN"",""PSONEW2"",53,0)"
^XMB(3.9,109,2,322,0)="TRN ;I $G(PSOPRC) F I=0:0 S I=$O(PRC(I)) Q:'I  W !,PRC(I)"
^XMB(3.9,109,2,323,0)="""RTN"",""PSONEW2"",54,0)"
^XMB(3.9,109,2,324,0)=" W !!,$S($G(PSODRUG(""TRADE NAME""))]"""":PSODRUG(""TRADE NAME""),1:PSODRUG(""NAME""))"
^XMB(3.9,109,2,325,0)="""RTN"",""PSONEW2"",55,0)"
^XMB(3.9,109,2,326,0)=" W !,PSONEW(""PROVIDER NAME""),?25,PSORX(""CLERK CODE""),!,""# of Refills: "",PSONEW(""# OF REFILLS""),!"
^XMB(3.9,109,2,327,0)="""RTN"",""PSONEW2"",56,0)"
^XMB(3.9,109,2,328,0)=" Q"
^XMB(3.9,109,2,329,0)="""RTN"",""PSONEW2"",57,0)"
^XMB(3.9,109,2,330,0)=" ;"
^XMB(3.9,109,2,331,0)="""RTN"",""PSONEW2"",58,0)"
^XMB(3.9,109,2,332,0)="ASK ;"
^XMB(3.9,109,2,333,0)="""RTN"",""PSONEW2"",59,0)"
^XMB(3.9,109,2,334,0)=" K DIR,X,Y S DIR(""A"")=""Is this correct"""
^XMB(3.9,109,2,335,0)="""RTN"",""PSONEW2"",60,0)"
^XMB(3.9,109,2,336,0)=" S DIR(0)=""Y"",DIR(""B"")=""YES"" D ^DIR K DIR I $D(DIRUT) S PSONEW(""DFLG"")=1 G ASKX"
^XMB(3.9,109,2,337,0)="""RTN"",""PSONEW2"",61,0)"
^XMB(3.9,109,2,338,0)="ASK1 I Y D  S PSONEW2(""QFLG"")=1"
^XMB(3.9,109,2,339,0)="""RTN"",""PSONEW2"",62,0)"
^XMB(3.9,109,2,340,0)=" .S:$G(PSONEW(""MAIL/WINDOW""))[""W"" BINGCRT=Y,BINGRTE=""W"""
^XMB(3.9,109,2,341,0)="""RTN"",""PSONEW2"",63,0)"
^XMB(3.9,109,2,342,0)=" .D:+$G(PSEXDT)"
^XMB(3.9,109,2,343,0)="""RTN"",""PSONEW2"",64,0)"
^XMB(3.9,109,2,344,0)=" ..S Y=PSONEW(""FILL DATE"") X ^DD(""DD"") W !!,$C(7),Y_"" fill date is greater than possible expiration date of "" S Y=$P(PSEXDT,""^"",2) X ^DD(""DD"") W Y_""."""
^XMB(3.9,109,2,345,0)="""RTN"",""PSONEW2"",65,0)"
^XMB(3.9,109,2,346,0)=" .D DCORD K RORD,^TMP(""PSORXDC"",$J)"
^XMB(3.9,109,2,347,0)="""RTN"",""PSONEW2"",66,0)"
^XMB(3.9,109,2,348,0)="ASKX I $D(DIRUT) D"
^XMB(3.9,109,2,349,0)="""RTN"",""PSONEW2"",67,0)"
^XMB(3.9,109,2,350,0)=" .I +$G(PSEXDT) K DIRUT S (PSONEW2(""QFLG""),PSONEW2(""DFLG""),PSONEW(""DFLG""),Y)=1"
^XMB(3.9,109,2,351,0)="""RTN"",""PSONEW2"",68,0)"
^XMB(3.9,109,2,352,0)=" K X,Y,DIRUT,DTOUT,DUOUT"
^XMB(3.9,109,2,353,0)="""RTN"",""PSONEW2"",69,0)"
^XMB(3.9,109,2,354,0)=" D:+$G(PSEXDT) PAUSE^VALM1"
^XMB(3.9,109,2,355,0)="""RTN"",""PSONEW2"",70,0)"
^XMB(3.9,109,2,356,0)=" Q"
^XMB(3.9,109,2,357,0)="""RTN"",""PSONEW2"",71,0)"
^XMB(3.9,109,2,358,0)="DCORD ;dc rxs and pending orders after new order is entered"
^XMB(3.9,109,2,359,0)="""RTN"",""PSONEW2"",72,0)"
^XMB(3.9,109,2,360,0)=" F RORD=0:0 S RORD=$O(^TMP(""PSORXDC"",$J,RORD)) Q:'RORD  D @$S($P(^TMP(""PSORXDC"",$J,RORD,0),""^"")=""P"":""PEN"",1:""RX52"")"
^XMB(3.9,109,2,361,0)="""RTN"",""PSONEW2"",73,0)"
^XMB(3.9,109,2,362,0)=" K RORD"
^XMB(3.9,109,2,363,0)="""RTN"",""PSONEW2"",74,0)"
^XMB(3.9,109,2,364,0)=" Q"
^XMB(3.9,109,2,365,0)="""RTN"",""PSONEW2"",75,0)"
^XMB(3.9,109,2,366,0)="PEN ;pending ^tmp(""psorxdc"",$j,rord,0)=""p^""_rord_""^""_msg"
^XMB(3.9,109,2,367,0)="""RTN"",""PSONEW2"",76,0)"
^XMB(3.9,109,2,368,0)=" S $P(^PS(52.41,RORD,0),""^"",3)=""DC"",^PS(52.41,RORD,4)=$P(^TMP(""PSORXDC"",$J,RORD,0),""^"",3)"
^XMB(3.9,109,2,369,0)="""RTN"",""PSONEW2"",77,0)"
^XMB(3.9,109,2,370,0)=" K ^PS(52.41,""AOR"",PSODFN,+$P($G(^PS(52.41,RORD,""INI"")),""^""),RORD)"
^XMB(3.9,109,2,371,0)="""RTN"",""PSONEW2"",78,0)"
^XMB(3.9,109,2,372,0)=" D EN^PSOHLSN($P(^PS(52.41,RORD,0),""^""),""OC"",$P(^TMP(""PSORXDC"",$J,RORD,0),""^"",3),""D"") W $C(7),!,"" -Pending Order was discontinued..."""
^XMB(3.9,109,2,373,0)="""RTN"",""PSONEW2"",79,0)"
^XMB(3.9,109,2,374,0)=" D PSOUL^PSSLOCK(RORD_""S"") K ^TMP(""PSORXDC"",$J,RORD,0)"
^XMB(3.9,109,2,375,0)="""RTN"",""PSONEW2"",80,0)"
^XMB(3.9,109,2,376,0)=" Q"
^XMB(3.9,109,2,377,0)="""RTN"",""PSONEW2"",81,0)"
^XMB(3.9,109,2,378,0)="RX52 ;rxs in file 52 ^tmp(""psorxdc"",$j,rord,0)=52^rord^msg^rea^act^sta^dnm"
^XMB(3.9,109,2,379,0)="""RTN"",""PSONEW2"",82,0)"
^XMB(3.9,109,2,380,0)=" S PSCAN($P(^PSRX(RORD,0),""^""))=RORD_""^""_$P(^TMP(""PSORXDC"",$J,RORD,0),""^"",4)"
^XMB(3.9,109,2,381,0)="""RTN"",""PSONEW2"",83,0)"
^XMB(3.9,109,2,382,0)=" S MSG=$P(^TMP(""PSORXDC"",$J,RORD,0),""^"",3),REA=$P(^(0),""^"",4),ACT=$P(^(0),""^"",5)"
^XMB(3.9,109,2,383,0)="""RTN"",""PSONEW2"",84,0)"
^XMB(3.9,109,2,384,0)=" N PSONOOR S PSONOOR=""D"",DUP=1,DA=RORD D CAN^PSOCAN K PSONOOR"
^XMB(3.9,109,2,385,0)="""RTN"",""PSONEW2"",85,0)"
^XMB(3.9,109,2,386,0)=" W !,"" -Rx ""_$P(^PSRX(RORD,0),""^"")_"" has been discontinued..."",!"
^XMB(3.9,109,2,387,0)="""RTN"",""PSONEW2"",86,0)"
^XMB(3.9,109,2,388,0)=" K PSOSD($P(^TMP(""PSORXDC"",$J,RORD,0),""^"",6),$P(^TMP(""PSORXDC"",$J,RORD,0),""^"",7))"
^XMB(3.9,109,2,389,0)="""RTN"",""PSONEW2"",87,0)"
^XMB(3.9,109,2,390,0)=" D PSOUL^PSSLOCK(RORD) K ^TMP(""PSORXDC"",$J,RORD,0)"
^XMB(3.9,109,2,391,0)="""RTN"",""PSONEW2"",88,0)"
^XMB(3.9,109,2,392,0)=" Q"
^XMB(3.9,109,2,393,0)="""RTN"",""PSONEW2"",89,0)"
^XMB(3.9,109,2,394,0)=" ;"
^XMB(3.9,109,2,395,0)="""RTN"",""PSONEW2"",90,0)"
^XMB(3.9,109,2,396,0)="EDIT ;"
^XMB(3.9,109,2,397,0)="""RTN"",""PSONEW2"",91,0)"
^XMB(3.9,109,2,398,0)=" S PSORX(""EDIT"")=1"
^XMB(3.9,109,2,399,0)="""RTN"",""PSONEW2"",92,0)"
^XMB(3.9,109,2,400,0)=" D ^PSONEW3"
^XMB(3.9,109,2,401,0)="""RTN"",""PSONEW2"",93,0)"
^XMB(3.9,109,2,402,0)=" S PSONEW(""DFLG"")=$S($G(PSORX(""DFLG"")):1,1:0)"
^XMB(3.9,109,2,403,0)="""RTN"",""PSONEW2"",94,0)"
^XMB(3.9,109,2,404,0)=" Q"
^XMB(3.9,109,2,405,0)="""RTN"",""PSONEW2"",95,0)"
^XMB(3.9,109,2,406,0)=" ;"
^XMB(3.9,109,2,407,0)="""RTN"",""PSONEW2"",96,0)"
^XMB(3.9,109,2,408,0)="EOJ ;"
^XMB(3.9,109,2,409,0)="""RTN"",""PSONEW2"",97,0)"
^XMB(3.9,109,2,410,0)=" K PSONEW2,PSORX(""EDIT""),PSORX(""DFLG""),PSOEDIT"
^XMB(3.9,109,2,411,0)="""RTN"",""PSONEW2"",98,0)"
^XMB(3.9,109,2,412,0)=" Q"
^XMB(3.9,109,2,413,0)="""RTN"",""PSONEW2"",99,0)"
^XMB(3.9,109,2,414,0)=" ;"
^XMB(3.9,109,2,415,0)="""RTN"",""PSONEW2"",100,0)"
^XMB(3.9,109,2,416,0)="EN1(PSONEW2) ; Entry point to just display and ask if okay"
^XMB(3.9,109,2,417,0)="""RTN"",""PSONEW2"",101,0)"
^XMB(3.9,109,2,418,0)=" S PSONEW(""DFLG"")=0"
^XMB(3.9,109,2,419,0)="""RTN"",""PSONEW2"",102,0)"
^XMB(3.9,109,2,420,0)=" I $G(^PSRX(PSONEW2(""IRXN""),0))']"""" S PSONEW(""DFLG"")=1 G EN1X"
^XMB(3.9,109,2,421,0)="""RTN"",""PSONEW2"",103,0)"
^XMB(3.9,109,2,422,0)=" S PSOX=^PSRX(PSONEW2(""IRXN""),0),PSONEW(""TRADE NAME"")=$G(^(""TN"")),PSONEW(""FILL DATE"")=$P($G(^(2)),""^"",2)"
^XMB(3.9,109,2,423,0)="""RTN"",""PSONEW2"",104,0)"
^XMB(3.9,109,2,424,0)=" S PSONEW(""RX #"")=$P(PSOX,""^""),PSORX(""NAME"")=$P(^DPT($P(PSOX,""^"",2),0),""^"")"
^XMB(3.9,109,2,425,0)="""RTN"",""PSONEW2"",105,0)"
^XMB(3.9,109,2,426,0)=" S PSONEW(""QTY"")=$P(PSOX,""^"",7),PSODRUG(""NAME"")=$P(^PSDRUG($P(PSOX,""^"",6),0),""^""),PSONEW(""# OF REFILLS"")=$P(PSOX,""^"",9)"
^XMB(3.9,109,2,427,0)="""RTN"",""PSONEW2"",106,0)"
^XMB(3.9,109,2,428,0)=" S PSORX(""CLERK CODE"")=$P(^VA(200,$P(PSOX,""^"",16),0),""^"")"
^XMB(3.9,109,2,429,0)="""RTN"",""PSONEW2"",107,0)"
^XMB(3.9,109,2,430,0)=" S:$G(PSONEW(""PROVIDER NAME""))="""" PSONEW(""PROVIDER NAME"")=$P(^VA(200,$P(PSOX,""^"",4),0),""^"")"
^XMB(3.9,109,2,431,0)="""RTN"",""PSONEW2"",108,0)"
^XMB(3.9,109,2,432,0)=" S PSONEW(""SIG"")=$P($G(^PSRX(PSONEW2(""IRXN""),""SIG"")),""^"")"
^XMB(3.9,109,2,433,0)="""RTN"",""PSONEW2"",109,0)"
^XMB(3.9,109,2,434,0)=" D DISPLAY"
^XMB(3.9,109,2,435,0)="""RTN"",""PSONEW2"",110,0)"
^XMB(3.9,109,2,436,0)=" D ASK"
^XMB(3.9,109,2,437,0)="""RTN"",""PSONEW2"",111,0)"
^XMB(3.9,109,2,438,0)=" I PSONEW(""DFLG"")=1 S PSONEW2(""DFLG"")=1"
^XMB(3.9,109,2,439,0)="""RTN"",""PSONEW2"",112,0)"
^XMB(3.9,109,2,440,0)="EN1X ;"
^XMB(3.9,109,2,441,0)="""RTN"",""PSONEW2"",113,0)"
^XMB(3.9,109,2,442,0)=" Q"
^XMB(3.9,109,2,443,0)="""RTN"",""PSONEW2"",114,0)"
^XMB(3.9,109,2,444,0)=" ;"
^XMB(3.9,109,2,445,0)="""RTN"",""PSONEW2"",115,0)"
^XMB(3.9,109,2,446,0)="EXPR ;Display Expired error message                               ;PSO*237"
^XMB(3.9,109,2,447,0)="""RTN"",""PSONEW2"",116,0)"
^XMB(3.9,109,2,448,0)=" S PSONEW(""DFLG"")=1"
^XMB(3.9,109,2,449,0)="""RTN"",""PSONEW2"",117,0)"
^XMB(3.9,109,2,450,0)=" W $C(7)"
^XMB(3.9,109,2,451,0)="""RTN"",""PSONEW2"",118,0)"
^XMB(3.9,109,2,452,0)=" S VALMSG=""Order is older than 365 days and can't be finished"""
^XMB(3.9,109,2,453,0)="""RTN"",""PSONEW2"",119,0)"
^XMB(3.9,109,2,454,0)=" S XQORM(""B"")=""DC"""
^XMB(3.9,109,2,455,0)="""RTN"",""PSONEW2"",120,0)"
^XMB(3.9,109,2,456,0)=" Q"
^XMB(3.9,109,2,457,0)="""RTN"",""PSOORNEW"")"
^XMB(3.9,109,2,458,0)="0^1^B69954269^B67580073"
^XMB(3.9,109,2,459,0)="""RTN"",""PSOORNEW"",1,0)"
^XMB(3.9,109,2,460,0)="PSOORNEW ;BIR/SAB - display orders from oerr ;7/17/06 7:00pm"
^XMB(3.9,109,2,461,0)="""RTN"",""PSOORNEW"",2,0)"
^XMB(3.9,109,2,462,0)=" ;;7.0;OUTPATIENT PHARMACY;**11,23,27,32,55,46,71,90,94,106,131,133,143,237**;DEC 1997"
^XMB(3.9,109,2,463,0)="""RTN"",""PSOORNEW"",3,0)"
^XMB(3.9,109,2,464,0)=" ;^PS(50.7 -2223"
^XMB(3.9,109,2,465,0)="""RTN"",""PSOORNEW"",4,0)"
^XMB(3.9,109,2,466,0)=" ;^PSDRUG -221"
^XMB(3.9,109,2,467,0)="""RTN"",""PSOORNEW"",5,0)"
^XMB(3.9,109,2,468,0)=" ;^PS(50.606 -2174"
^XMB(3.9,109,2,469,0)="""RTN"",""PSOORNEW"",6,0)"
^XMB(3.9,109,2,470,0)=" ;^PS(55 -2228"
^XMB(3.9,109,2,471,0)="""RTN"",""PSOORNEW"",7,0)"
^XMB(3.9,109,2,472,0)=" ;"
^XMB(3.9,109,2,473,0)="""RTN"",""PSOORNEW"",8,0)"
^XMB(3.9,109,2,474,0)=" ;PSO*237 quit Finish if Today > Issue date + 365"
^XMB(3.9,109,2,475,0)="""RTN"",""PSOORNEW"",9,0)"
^XMB(3.9,109,2,476,0)=" ;"
^XMB(3.9,109,2,477,0)="""RTN"",""PSOORNEW"",10,0)"
^XMB(3.9,109,2,478,0)="DSPL I $G(PSODSPL) S VALMBCK=""Q"" K PSODSPL,PSOANSQD Q"
^XMB(3.9,109,2,479,0)="""RTN"",""PSOORNEW"",11,0)"
^XMB(3.9,109,2,480,0)=" Q:'$D(PSOLMC)  K ^TMP(""PSOPO"",$J) S PSOLMC=PSOLMC+1"
^XMB(3.9,109,2,481,0)="""RTN"",""PSOORNEW"",12,0)"
^XMB(3.9,109,2,482,0)=" I $D(CLOZPAT) S PSONEW(""DAYS SUPPLY"")=$S($G(PSONEW(""DAYS SUPPLY"")):PSONEW(""DAYS SUPPLY""),1:7) G OI"
^XMB(3.9,109,2,483,0)="""RTN"",""PSOORNEW"",13,0)"
^XMB(3.9,109,2,484,0)=" S PSONEW(""DAYS SUPPLY"")=$S($G(PSONEW(""DAYS SUPPLY"")):PSONEW(""DAYS SUPPLY""),+$G(^PS(55,PSODFN,""PS""))&($P(^PS(53,+$G(^PS(55,PSODFN,""PS"")),0),""^"",3))&('$G(PSONEW(""DAYS SUPPLY""))):$P(^PS(53,+$G(^PS(55,PSODFN,""PS"")),0),""^"",3),1:30)"
^XMB(3.9,109,2,485,0)="""RTN"",""PSOORNEW"",14,0)"
^XMB(3.9,109,2,486,0)="OI I '$G(PSODRUG(""OI"")) D"
^XMB(3.9,109,2,487,0)="""RTN"",""PSOORNEW"",15,0)"
^XMB(3.9,109,2,488,0)=" .S (OI,PSODRUG(""OI""))=$P(OR0,""^"",8),PSODRUG(""OIN"")=$P(^PS(50.7,$P(OR0,""^"",8),0),""^""),OID=$P(OR0,""^"",9)"
^XMB(3.9,109,2,489,0)="""RTN"",""PSOORNEW"",16,0)"
^XMB(3.9,109,2,490,0)=" .I $P($G(OR0),""^"",9) S POERR=1,DREN=$P(OR0,""^"",9) D DRG^PSOORDRG K POERR"
^XMB(3.9,109,2,491,0)="""RTN"",""PSOORNEW"",17,0)"
^XMB(3.9,109,2,492,0)=" I '$D(CLOZPAT) I $G(PSODRUG(""DEA""))[""A"",$G(PSODRUG(""DEA""))'[""B""!($G(PSODRUG(""DEA""))[""F"") S PSONEW(""# OF REFILLS"")=0"
^XMB(3.9,109,2,493,0)="""RTN"",""PSOORNEW"",18,0)"
^XMB(3.9,109,2,494,0)=" I $D(CLOZPAT) S PSONEW(""# OF REFILLS"")=$S($D(PSONEW(""# OF REFILLS"")):PSONEW(""# OF REFILLS""),$G(CLOZPAT)=1&($P(OR0,""^"",11)<1):0,1:1)"
^XMB(3.9,109,2,495,0)="""RTN"",""PSOORNEW"",19,0)"
^XMB(3.9,109,2,496,0)=" S IEN=0 D OBX^PSOORFI1,DIN^PSONFI(PSODRUG(""OI""),$S($G(PSODRUG(""IEN"")):PSODRUG(""IEN""),1:""""))"
^XMB(3.9,109,2,497,0)="""RTN"",""PSOORNEW"",20,0)"
^XMB(3.9,109,2,498,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""*(1) Orderable Item: ""_$P(^PS(50.7,PSODRUG(""OI""),0),""^"")_"" ""_$P(^PS(50.606,$P(^(0),""^"",2),0),""^"")_NFIO"
^XMB(3.9,109,2,499,0)="""RTN"",""PSOORNEW"",21,0)"
^XMB(3.9,109,2,500,0)=" S:NFIO[""<DIN>"" NFIO=IEN_"",""_($L(^TMP(""PSOPO"",$J,IEN,0))-4)"
^XMB(3.9,109,2,501,0)="""RTN"",""PSOORNEW"",22,0)"
^XMB(3.9,109,2,502,0)=" K LST I $G(PSODRUG(""NAME""))]"""" D  G PT"
^XMB(3.9,109,2,503,0)="""RTN"",""PSOORNEW"",23,0)"
^XMB(3.9,109,2,504,0)=" .S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)="" (2)""_$S($D(^PSDRUG(""AQ"",PSODRUG(""IEN""))):""      CMOP "",1:""           "")_""Drug: ""_PSODRUG(""NAME"")_NFID"
^XMB(3.9,109,2,505,0)="""RTN"",""PSOORNEW"",24,0)"
^XMB(3.9,109,2,506,0)=" .S:NFID[""<DIN>"" NFID=IEN_"",""_($L(^TMP(""PSOPO"",$J,IEN,0))-4)"
^XMB(3.9,109,2,507,0)="""RTN"",""PSOORNEW"",25,0)"
^XMB(3.9,109,2,508,0)=" .I $P($G(^PSDRUG(PSODRUG(""IEN""),0)),""^"",10)]"""" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""       Drug Message:"" D DRGMSG"
^XMB(3.9,109,2,509,0)="""RTN"",""PSOORNEW"",26,0)"
^XMB(3.9,109,2,510,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)="" (2)           Drug: No Dispense Drug Selected"""
^XMB(3.9,109,2,511,0)="""RTN"",""PSOORNEW"",27,0)"
^XMB(3.9,109,2,512,0)="PT D DOSE2^PSOORFI4"
^XMB(3.9,109,2,513,0)="""RTN"",""PSOORNEW"",28,0)"
^XMB(3.9,109,2,514,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)="" (4)   Pat Instruct:"" D:$O(PSONEW(""SIG"",0)) INST^PSOORFI4"
^XMB(3.9,109,2,515,0)="""RTN"",""PSOORNEW"",29,0)"
^XMB(3.9,109,2,516,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""  Provider Comments:"" S TY=3 D INST^PSOORFI1"
^XMB(3.9,109,2,517,0)="""RTN"",""PSOORNEW"",30,0)"
^XMB(3.9,109,2,518,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""       Instructions:"" S TY=2 D INST^PSOORFI1"
^XMB(3.9,109,2,519,0)="""RTN"",""PSOORNEW"",31,0)"
^XMB(3.9,109,2,520,0)=" K PSOELSE S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""                SIG:"""
^XMB(3.9,109,2,521,0)="""RTN"",""PSOORNEW"",32,0)"
^XMB(3.9,109,2,522,0)=" F I=0:0 S I=$O(SIG(I)) Q:'I  S SIG=SIG(I) D"
^XMB(3.9,109,2,523,0)="""RTN"",""PSOORNEW"",33,0)"
^XMB(3.9,109,2,524,0)=" .F SG=1:1:$L(SIG) S:$L(^TMP(""PSOPO"",$J,IEN,0)_"" ""_$P(SIG,"" "",SG))>80 IEN=IEN+1,$P(^TMP(""PSOPO"",$J,IEN,0),"" "",20)="" "" S:$P(SIG,"" "",SG)'="""" ^TMP(""PSOPO"",$J,IEN,0)=$G(^TMP(""PSOPO"",$J,IEN,0))_"" ""_$P(SIG,"" "",SG)"
^XMB(3.9,109,2,525,0)="""RTN"",""PSOORNEW"",34,0)"
^XMB(3.9,109,2,526,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)="" (5) Patient Status: ""_$P($G(^PS(53,+PSONEW(""PATIENT STATUS""),0)),""^"")"
^XMB(3.9,109,2,527,0)="""RTN"",""PSOORNEW"",35,0)"
^XMB(3.9,109,2,528,0)=" K PSOELSE I $G(PSONEW(""ISSUE DATE""))']"""" S PSOELSE=1 S IEN=IEN+1,(PSOID,Y)=$E($P(OR0,""^"",6),1,7) X ^DD(""DD"") S PSONEW(""ISSUE DATE"")=Y,^TMP(""PSOPO"",$J,IEN,0)="" (4)     Issue Date: ""_Y"
^XMB(3.9,109,2,529,0)="""RTN"",""PSOORNEW"",36,0)"
^XMB(3.9,109,2,530,0)=" I '$G(PSOELSE) S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)="" (6)     Issue Date: ""_PSONEW(""ISSUE DATE"")"
^XMB(3.9,109,2,531,0)="""RTN"",""PSOORNEW"",37,0)"
^XMB(3.9,109,2,532,0)=" K PSOELSE I $G(PSORX(""FILL DATE""))']"""" S PSOELSE=1 D"
^XMB(3.9,109,2,533,0)="""RTN"",""PSOORNEW"",38,0)"
^XMB(3.9,109,2,534,0)=" .S (Y,PSORX(""FILL DATE""))=$S($E($P(OR0,""^"",6),1,7)<DT:DT,1:$E($P(OR0,""^"",6),1,7)) X ^DD(""DD"") S PSONEW(""FILL DATE"")=Y,^TMP(""PSOPO"",$J,IEN,0)=^TMP(""PSOPO"",$J,IEN,0)_""                  (5) Fill Date: ""_Y"
^XMB(3.9,109,2,535,0)="""RTN"",""PSOORNEW"",39,0)"
^XMB(3.9,109,2,536,0)=" I '$G(PSOELSE) S Y=PSORX(""FILL DATE"") X ^DD(""DD"") S PSORX(""FILL DATE"")=Y,^TMP(""PSOPO"",$J,IEN,0)=^TMP(""PSOPO"",$J,IEN,0)_""       (7) Fill Date: ""_PSORX(""FILL DATE"")"
^XMB(3.9,109,2,537,0)="""RTN"",""PSOORNEW"",40,0)"
^XMB(3.9,109,2,538,0)=" I $P(OR0,""^"",18) S IEN=IEN+1,Y=$P(OR0,""^"",18) X ^DD(""DD"") S $P(^TMP(""PSOPO"",$J,IEN,0),"" "",39)=""Effective Date: ""_Y"
^XMB(3.9,109,2,539,0)="""RTN"",""PSOORNEW"",41,0)"
^XMB(3.9,109,2,540,0)=" I $G(CLOZPAT)=1 D ELIG^PSOORFI2"
^XMB(3.9,109,2,541,0)="""RTN"",""PSOORNEW"",42,0)"
^XMB(3.9,109,2,542,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)="" (8)    Days Supply: ""_PSONEW(""DAYS SUPPLY"")"
^XMB(3.9,109,2,543,0)="""RTN"",""PSOORNEW"",43,0)"
^XMB(3.9,109,2,544,0)=" S ^TMP(""PSOPO"",$J,IEN,0)=^TMP(""PSOPO"",$J,IEN,0)_""               (9)   QTY""_$S($P($G(^PSDRUG(+$G(PSODRUG(""IEN"")),660)),""^"",8)]"""":"" (""_$P($G(^PSDRUG(+PSODRUG(""IEN""),660)),""^"",8)_"")"",1:"" (  )"")"
^XMB(3.9,109,2,545,0)="""RTN"",""PSOORNEW"",44,0)"
^XMB(3.9,109,2,546,0)=" S ^TMP(""PSOPO"",$J,IEN,0)=^TMP(""PSOPO"",$J,IEN,0)_"": ""_$S($G(PSONEW(""QTY"")):PSONEW(""QTY""),1:$P(OR0,""^"",10))"
^XMB(3.9,109,2,547,0)="""RTN"",""PSOORNEW"",45,0)"
^XMB(3.9,109,2,548,0)=" I $P($G(^PSDRUG(+$G(PSODRUG(""IEN"")),5)),""^"")]"""" D"
^XMB(3.9,109,2,549,0)="""RTN"",""PSOORNEW"",46,0)"
^XMB(3.9,109,2,550,0)=" .S $P(RN,"" "",79)="" "",IEN=IEN+1"
^XMB(3.9,109,2,551,0)="""RTN"",""PSOORNEW"",47,0)"
^XMB(3.9,109,2,552,0)=" .S ^TMP(""PSOPO"",$J,IEN,0)=$E(RN,$L(""QTY DSP MSG: ""_$P(^PSDRUG(PSODRUG(""IEN""),5),""^""))+1,79)_""QTY DSP MSG: ""_$P(^PSDRUG(PSODRUG(""IEN""),5),""^"") K RN"
^XMB(3.9,109,2,553,0)="""RTN"",""PSOORNEW"",48,0)"
^XMB(3.9,109,2,554,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""       Provider ordered ""_+$P(OR0,""^"",11)_"" refills"""
^XMB(3.9,109,2,555,0)="""RTN"",""PSOORNEW"",49,0)"
^XMB(3.9,109,2,556,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""(10)   # of Refills: ""_$S($G(PSONEW(""# OF REFILLS""))]"""":PSONEW(""# OF REFILLS""),1:$P(OR0,""^"",11))_""               (11)   Routing: ""_$S($G(PSONEW(""MAIL/WINDOW""))=""M"":""MAIL"",1:""WINDOW"")"
^XMB(3.9,109,2,557,0)="""RTN"",""PSOORNEW"",50,0)"
^XMB(3.9,109,2,558,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""(12)         Clinic: ""_PSORX(""CLINIC"")"
^XMB(3.9,109,2,559,0)="""RTN"",""PSOORNEW"",51,0)"
^XMB(3.9,109,2,560,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""(13)       Provider: ""_PSONEW(""PROVIDER NAME"")"
^XMB(3.9,109,2,561,0)="""RTN"",""PSOORNEW"",52,0)"
^XMB(3.9,109,2,562,0)=" I $P($G(^VA(200,$S($G(PSONEW(""PROVIDER"")):PSONEW(""PROVIDER""),1:$P(OR0,""^"",5)),""PS"")),""^"",7)&($P($G(^(""PS"")),""^"",8)) D"
^XMB(3.9,109,2,563,0)="""RTN"",""PSOORNEW"",53,0)"
^XMB(3.9,109,2,564,0)=" .S IEN=IEN+1,PSONEW(""COSIGNING PROVIDER"")=$S($G(PSONEW(""COSIGNING PROVIDER"")):PSONEW(""COSIGNING PROVIDER""),1:$P(^(""PS""),""^"",8))"
^XMB(3.9,109,2,565,0)="""RTN"",""PSOORNEW"",54,0)"
^XMB(3.9,109,2,566,0)=" .S ^TMP(""PSOPO"",$J,IEN,0)=""       Cos-Provider: ""_$P(^VA(200,PSONEW(""COSIGNING PROVIDER""),0),""^"")"
^XMB(3.9,109,2,567,0)="""RTN"",""PSOORNEW"",55,0)"
^XMB(3.9,109,2,568,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""(14)         Copies: ""_$S($G(PSONEW(""COPIES"")):PSONEW(""COPIES""),1:1)"
^XMB(3.9,109,2,569,0)="""RTN"",""PSOORNEW"",56,0)"
^XMB(3.9,109,2,570,0)=" S PSONEW(""REMARKS"")=$S($G(PSONEW(""REMARKS""))]"""":PSONEW(""REMARKS""),$P(OR0,""^"",17)=""C"":""Administered in Clinic."",1:"""")"
^XMB(3.9,109,2,571,0)="""RTN"",""PSOORNEW"",57,0)"
^XMB(3.9,109,2,572,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""(15)        Remarks:"""
^XMB(3.9,109,2,573,0)="""RTN"",""PSOORNEW"",58,0)"
^XMB(3.9,109,2,574,0)=" I $G(PSONEW(""REMARKS""))]"""" D"
^XMB(3.9,109,2,575,0)="""RTN"",""PSOORNEW"",59,0)"
^XMB(3.9,109,2,576,0)=" .F SG=1:1:$L(PSONEW(""REMARKS"")) S:$L(^TMP(""PSOPO"",$J,IEN,0)_"" ""_$P(PSONEW(""REMARKS""),"" "",SG))>80 IEN=IEN+1,$P(^TMP(""PSOPO"",$J,IEN,0),"" "",20)="" "" D"
^XMB(3.9,109,2,577,0)="""RTN"",""PSOORNEW"",60,0)"
^XMB(3.9,109,2,578,0)=" ..S:$P(PSONEW(""REMARKS""),"" "",SG)'="""" ^TMP(""PSOPO"",$J,IEN,0)=$G(^TMP(""PSOPO"",$J,IEN,0))_"" ""_$P(PSONEW(""REMARKS""),"" "",SG)"
^XMB(3.9,109,2,579,0)="""RTN"",""PSOORNEW"",61,0)"
^XMB(3.9,109,2,580,0)=" I $G(PSOSIGFL)!(PSODRUG(""OI"")'=$P(OR0,""^"",8)) S PSONEW(""CLERK CODE"")=DUZ,PSORX(""CLERK CODE"")=$P(^VA(200,DUZ,0),""^""),VALMSG=""This change will create a new prescription!"""
^XMB(3.9,109,2,581,0)="""RTN"",""PSOORNEW"",62,0)"
^XMB(3.9,109,2,582,0)=" S $P(RN,"" "",35)="" "",IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""   Entry By: ""_$P(^VA(200,PSONEW(""CLERK CODE""),0),""^"")_$E(RN,$L($P(^VA(200,PSONEW(""CLERK CODE""),0),""^""))+1,35)"
^XMB(3.9,109,2,583,0)="""RTN"",""PSOORNEW"",63,0)"
^XMB(3.9,109,2,584,0)=" S Y=$P(OR0,""^"",12) X ^DD(""DD"") S ^TMP(""PSOPO"",$J,IEN,0)=^TMP(""PSOPO"",$J,IEN,0)_""Entry Date: ""_$E($P(OR0,""^"",12),4,5)_""/""_$E($P(OR0,""^"",12),6,7)_""/""_$E($P(OR0,""^"",12),2,3)_"" ""_$P(Y,""@"",2) K RN"
^XMB(3.9,109,2,585,0)="""RTN"",""PSOORNEW"",64,0)"
^XMB(3.9,109,2,586,0)=" I PSOLMC<2 D ^PSOLMPO1 S VALMBCK=""Q"",PSOLMC=0"
^XMB(3.9,109,2,587,0)="""RTN"",""PSOORNEW"",65,0)"
^XMB(3.9,109,2,588,0)=" S:PSOLMC>1 VALMBCK=""R"""
^XMB(3.9,109,2,589,0)="""RTN"",""PSOORNEW"",66,0)"
^XMB(3.9,109,2,590,0)=" Q"
^XMB(3.9,109,2,591,0)="""RTN"",""PSOORNEW"",67,0)"
^XMB(3.9,109,2,592,0)="ORCHK D PROVCOM^PSOORFI4,ORCHK^PSOORFI4"
^XMB(3.9,109,2,593,0)="""RTN"",""PSOORNEW"",68,0)"
^XMB(3.9,109,2,594,0)=" Q"
^XMB(3.9,109,2,595,0)="""RTN"",""PSOORNEW"",69,0)"
^XMB(3.9,109,2,596,0)="EDT D KV S DIR(""A"",1)=""* Indicates which fields will create an new Order"",DIR(""A"")=""Select Field to Edit by number"",DIR(0)=""LO^1:15"" D ^DIR Q:$D(DTOUT)!($D(DUOUT))"
^XMB(3.9,109,2,597,0)="""RTN"",""PSOORNEW"",70,0)"
^XMB(3.9,109,2,598,0)="EDTSEL N LST,FLD,OUT D KV S OUT=0"
^XMB(3.9,109,2,599,0)="""RTN"",""PSOORNEW"",71,0)"
^XMB(3.9,109,2,600,0)=" I +Y S LST=Y D FULL^VALM1 N PSODOSE M PSODOSE=PSONEW D  G DSPL"
^XMB(3.9,109,2,601,0)="""RTN"",""PSOORNEW"",72,0)"
^XMB(3.9,109,2,602,0)=" .F FLD=1:1:$L(LST,"","") Q:$P(LST,"","",FLD)']""""!(OUT)  D @(+$P(LST,"","",FLD)) D:$P(LST,"","",FLD)=8 REF D KV"
^XMB(3.9,109,2,603,0)="""RTN"",""PSOORNEW"",73,0)"
^XMB(3.9,109,2,604,0)=" E  S VALMBCK="""" Q"
^XMB(3.9,109,2,605,0)="""RTN"",""PSOORNEW"",74,0)"
^XMB(3.9,109,2,606,0)=" Q"
^XMB(3.9,109,2,607,0)="""RTN"",""PSOORNEW"",75,0)"
^XMB(3.9,109,2,608,0)="ACP S (PSODIR(""DFLG""),PSORX(""DFLG""),PSODIR(""QFLD""))=0,ACP=1 D ORCHK"
^XMB(3.9,109,2,609,0)="""RTN"",""PSOORNEW"",76,0)"
^XMB(3.9,109,2,610,0)=" G:$G(PSONEW(""QFLG"")) DSPL"
^XMB(3.9,109,2,611,0)="""RTN"",""PSOORNEW"",77,0)"
^XMB(3.9,109,2,612,0)=" I $G(PSODIR(""DFLG""))!$G(PSORX(""DFLG"")) Q"
^XMB(3.9,109,2,613,0)="""RTN"",""PSOORNEW"",78,0)"
^XMB(3.9,109,2,614,0)=" I $G(PSONEW(""FLD""))!($G(PSODRUG(""NAME""))']"""")!('$O(SIG(0))) G DSPL"
^XMB(3.9,109,2,615,0)="""RTN"",""PSOORNEW"",79,0)"
^XMB(3.9,109,2,616,0)=" I $G(PSODRUG(""NAME""))]"""",'$G(ORCHK)!($G(ORDRG)'=PSODRUG(""NAME"")) D  I $G(PSORX(""DFLG"")) D CLEAN^PSOVER1 G DSPL"
^XMB(3.9,109,2,617,0)="""RTN"",""PSOORNEW"",80,0)"
^XMB(3.9,109,2,618,0)=" .D POST^PSODRG S:'$G(PSORX(""DFLG"")) ORCHK=1,ORDRG=PSODRUG(""NAME"")"
^XMB(3.9,109,2,619,0)="""RTN"",""PSOORNEW"",81,0)"
^XMB(3.9,109,2,620,0)=" I '$D(PSONEW(""RX #"")) S PSOFROM=""NEW"",RTN=$S($P($G(PSOPAR),""^"",7):""AUTO^PSONRXN"",1:""MANUAL^PSONRXN"") D @RTN Q:PSONEW(""QFLG"")  I '$P($G(PSOPAR),""^"",7) S PSOX=PSONEW(""RX #"") D CHECK^PSONRXN"
^XMB(3.9,109,2,621,0)="""RTN"",""PSOORNEW"",82,0)"
^XMB(3.9,109,2,622,0)=" D RXNCHK^PSOORNE1 I $G(PSONEW(""QFLG"")) S PSONEW(""DFLG"")=1 Q"
^XMB(3.9,109,2,623,0)="""RTN"",""PSOORNEW"",83,0)"
^XMB(3.9,109,2,624,0)=" I DT>$$FMADD^XLFDT($P(OR0,""^"",6),365) D EXPR^PSONEW2 G DSPL    ;*237"
^XMB(3.9,109,2,625,0)="""RTN"",""PSOORNEW"",84,0)"
^XMB(3.9,109,2,626,0)=" D STOP^PSONEW2,DISPLAY^PSONEW2,^PSONEWF"
^XMB(3.9,109,2,627,0)="""RTN"",""PSOORNEW"",85,0)"
^XMB(3.9,109,2,628,0)=" I $G(PSOCPZ(""DFLG"")) W !!,""No action taken!"",! K DIR S DIR(0)=""E"",DIR(""A"")=""Press Return to continue"" D ^DIR,KV K PSOCPZ(""DFLG""),DRET,PSOANSQD S VALMBCK=""Q"" Q"
^XMB(3.9,109,2,629,0)="""RTN"",""PSOORNEW"",86,0)"
^XMB(3.9,109,2,630,0)=" K PSOCPZ(""DFLG"") D KV S DIR(0)=""Y"",DIR(""A"")=""Are you sure you want to Accept this Order"",DIR(""B"")=""NO"" D ^DIR I $D(DIRUT) D KV K DRET,PSOANSQ,PSOANSQD S VALMBCK=""Q"" Q"
^XMB(3.9,109,2,631,0)="""RTN"",""PSOORNEW"",87,0)"
^XMB(3.9,109,2,632,0)=" D KV I 'Y K PSOANSQ G DSPL"
^XMB(3.9,109,2,633,0)="""RTN"",""PSOORNEW"",88,0)"
^XMB(3.9,109,2,634,0)=" I $G(PSONEW(""MAIL/WINDOW""))[""W"" D:$P($G(PSOPAR),""^"",12)  S BINGCRT=""Y"",BINGRTE=""W"",PSORX(""MAIL/WINDOW"")=""WINDOW"" K RTN"
^XMB(3.9,109,2,635,0)="""RTN"",""PSOORNEW"",89,0)"
^XMB(3.9,109,2,636,0)=" .W ! K DIR,DIRUT S DIR(0)=""52,35O"""
^XMB(3.9,109,2,637,0)="""RTN"",""PSOORNEW"",90,0)"
^XMB(3.9,109,2,638,0)=" .S:$G(PSORX(""METHOD OF PICK-UP""))]"""" DIR(""B"")=PSORX(""METHOD OF PICK-UP"") D ^DIR I $D(DIRUT) K DIR,DIRUT Q"
^XMB(3.9,109,2,639,0)="""RTN"",""PSOORNEW"",91,0)"
^XMB(3.9,109,2,640,0)=" .S (PSONEW(""METHOD OF PICK-UP""),PSORX(""METHOD OF PICK-UP""))=Y K X,Y"
^XMB(3.9,109,2,641,0)="""RTN"",""PSOORNEW"",92,0)"
^XMB(3.9,109,2,642,0)=" S PSONEW(""POE"")=1 D EN^PSON52(.PSONEW) G:$G(PSONEW(""DFLG"")) ABORT D DCORD^PSONEW2"
^XMB(3.9,109,2,643,0)="""RTN"",""PSOORNEW"",93,0)"
^XMB(3.9,109,2,644,0)=" D NPSOSD^PSOUTIL(.PSONEW),FULL^VALM1 K PSORX(""MAIL/WINDOW"")"
^XMB(3.9,109,2,645,0)="""RTN"",""PSOORNEW"",94,0)"
^XMB(3.9,109,2,646,0)=" D EOJ^PSONEW"
^XMB(3.9,109,2,647,0)="""RTN"",""PSOORNEW"",95,0)"
^XMB(3.9,109,2,648,0)="ABORT S VALMBCK=""Q"",DIR(0)=""E"",DIR(""A"")=""Press Return to Continue"" D ^DIR,CLEAN^PSOVER1,KV"
^XMB(3.9,109,2,649,0)="""RTN"",""PSOORNEW"",96,0)"
^XMB(3.9,109,2,650,0)=" Q"
^XMB(3.9,109,2,651,0)="""RTN"",""PSOORNEW"",97,0)"
^XMB(3.9,109,2,652,0)="KV K DIRUT,DUOUT,DTOUT,DIR"
^XMB(3.9,109,2,653,0)="""RTN"",""PSOORNEW"",98,0)"
^XMB(3.9,109,2,654,0)=" Q"
^XMB(3.9,109,2,655,0)="""RTN"",""PSOORNEW"",99,0)"
^XMB(3.9,109,2,656,0)="REF Q:$G(PSODRUG(""DEA""))']"""""
^XMB(3.9,109,2,657,0)="""RTN"",""PSOORNEW"",100,0)"
^XMB(3.9,109,2,658,0)=" S CS=0 F DEA=1:1 Q:$E(PSODRUG(""DEA""),DEA)=""""  I $E(+PSODRUG(""DEA""),DEA)>1,$E(+PSODRUG(""DEA""),DEA)<6 S CS=1"
^XMB(3.9,109,2,659,0)="""RTN"",""PSOORNEW"",101,0)"
^XMB(3.9,109,2,660,0)=" S PTRF=PSONEW(""# OF REFILLS""),PSDAYS=PSONEW(""DAYS SUPPLY"")"
^XMB(3.9,109,2,661,0)="""RTN"",""PSOORNEW"",102,0)"
^XMB(3.9,109,2,662,0)=" I CS D"
^XMB(3.9,109,2,663,0)="""RTN"",""PSOORNEW"",103,0)"
^XMB(3.9,109,2,664,0)=" .S PSOX1=$S(PTRF>5:5,1:PTRF),PSOX=$S(PSOX1=5:5,1:PSOX1)"
^XMB(3.9,109,2,665,0)="""RTN"",""PSOORNEW"",104,0)"
^XMB(3.9,109,2,666,0)=" .S PSOX=$S('PSOX:0,PSDAYS=90:1,1:PSOX),PSDY1=$S(PSDAYS<60:5,PSDAYS'<60&(PSDAYS'>89):2,PSDAYS=90:1,1:0)"
^XMB(3.9,109,2,667,0)="""RTN"",""PSOORNEW"",105,0)"
^XMB(3.9,109,2,668,0)=" E  D"
^XMB(3.9,109,2,669,0)="""RTN"",""PSOORNEW"",106,0)"
^XMB(3.9,109,2,670,0)=" .S PSOX1=PTRF,PSOX=$S(PSOX1=11:11,1:PSOX1),PSOX=$S('PSOX:0,PSDAYS=90:3,1:PSOX)"
^XMB(3.9,109,2,671,0)="""RTN"",""PSOORNEW"",107,0)"
^XMB(3.9,109,2,672,0)=" .S PSDY1=$S(PSDAYS<60:11,PSDAYS'<60&(PSDAYS'>89):5,PSDAYS=90:3,1:0)"
^XMB(3.9,109,2,673,0)="""RTN"",""PSOORNEW"",108,0)"
^XMB(3.9,109,2,674,0)=" S PSONEW(""# OF REFILLS"")=$S(PSONEW(""# OF REFILLS"")>PSDY1:PSDY1,1:PSONEW(""# OF REFILLS""))"
^XMB(3.9,109,2,675,0)="""RTN"",""PSOORNEW"",109,0)"
^XMB(3.9,109,2,676,0)=" Q"
^XMB(3.9,109,2,677,0)="""RTN"",""PSOORNEW"",110,0)"
^XMB(3.9,109,2,678,0)="1 N PSOBDR,PSOBDRG S PSOBDRG=1 D 1^PSOORNW2 Q  ;oi"
^XMB(3.9,109,2,679,0)="""RTN"",""PSOORNEW"",111,0)"
^XMB(3.9,109,2,680,0)=" ;"
^XMB(3.9,109,2,681,0)="""RTN"",""PSOORNEW"",112,0)"
^XMB(3.9,109,2,682,0)="4 D INS^PSOORNW2 Q"
^XMB(3.9,109,2,683,0)="""RTN"",""PSOORNEW"",113,0)"
^XMB(3.9,109,2,684,0)=" ;"
^XMB(3.9,109,2,685,0)="""RTN"",""PSOORNEW"",114,0)"
^XMB(3.9,109,2,686,0)="3 D DOSE^PSOORED4(.PSONEW) Q"
^XMB(3.9,109,2,687,0)="""RTN"",""PSOORNEW"",115,0)"
^XMB(3.9,109,2,688,0)=" ;"
^XMB(3.9,109,2,689,0)="""RTN"",""PSOORNEW"",116,0)"
^XMB(3.9,109,2,690,0)="6 D 4^PSOORNW2 Q  ;idt"
^XMB(3.9,109,2,691,0)="""RTN"",""PSOORNEW"",117,0)"
^XMB(3.9,109,2,692,0)=" ;"
^XMB(3.9,109,2,693,0)="""RTN"",""PSOORNEW"",118,0)"
^XMB(3.9,109,2,694,0)="7 D 5^PSOORNW2 Q  ;fdt"
^XMB(3.9,109,2,695,0)="""RTN"",""PSOORNEW"",119,0)"
^XMB(3.9,109,2,696,0)=" ;"
^XMB(3.9,109,2,697,0)="""RTN"",""PSOORNEW"",120,0)"
^XMB(3.9,109,2,698,0)="5 D 3^PSOORNW2 Q  ;pstat"
^XMB(3.9,109,2,699,0)="""RTN"",""PSOORNEW"",121,0)"
^XMB(3.9,109,2,700,0)=" ;"
^XMB(3.9,109,2,701,0)="""RTN"",""PSOORNEW"",122,0)"
^XMB(3.9,109,2,702,0)="13 D 12^PSOORNW2 Q  ;doc"
^XMB(3.9,109,2,703,0)="""RTN"",""PSOORNEW"",123,0)"
^XMB(3.9,109,2,704,0)=" ;"
^XMB(3.9,109,2,705,0)="""RTN"",""PSOORNEW"",124,0)"
^XMB(3.9,109,2,706,0)="12 D 11^PSOORNW2 Q  ;cli"
^XMB(3.9,109,2,707,0)="""RTN"",""PSOORNEW"",125,0)"
^XMB(3.9,109,2,708,0)=" ;"
^XMB(3.9,109,2,709,0)="""RTN"",""PSOORNEW"",126,0)"
^XMB(3.9,109,2,710,0)="2 N PSOCSIG I '$G(PSOBDRG) N PSOBDR,PSOBDRG S PSOBDRG=1"
^XMB(3.9,109,2,711,0)="""RTN"",""PSOORNEW"",127,0)"
^XMB(3.9,109,2,712,0)=" D 2^PSOORNW1 Q:$G(PSOQFLG)  D EN^PSODIAG  ;drg/ICD"
^XMB(3.9,109,2,713,0)="""RTN"",""PSOORNEW"",128,0)"
^XMB(3.9,109,2,714,0)=" I $G(PSOCSIG) K PSOCSIG G 3"
^XMB(3.9,109,2,715,0)="""RTN"",""PSOORNEW"",129,0)"
^XMB(3.9,109,2,716,0)=" Q"
^XMB(3.9,109,2,717,0)="""RTN"",""PSOORNEW"",130,0)"
^XMB(3.9,109,2,718,0)=" ;"
^XMB(3.9,109,2,719,0)="""RTN"",""PSOORNEW"",131,0)"
^XMB(3.9,109,2,720,0)="9 D 8^PSOORNW2 Q  ;qty"
^XMB(3.9,109,2,721,0)="""RTN"",""PSOORNEW"",132,0)"
^XMB(3.9,109,2,722,0)=" ;"
^XMB(3.9,109,2,723,0)="""RTN"",""PSOORNEW"",133,0)"
^XMB(3.9,109,2,724,0)="8 D 7^PSOORNW2 Q  ;ds"
^XMB(3.9,109,2,725,0)="""RTN"",""PSOORNEW"",134,0)"
^XMB(3.9,109,2,726,0)=" ;"
^XMB(3.9,109,2,727,0)="""RTN"",""PSOORNEW"",135,0)"
^XMB(3.9,109,2,728,0)="10 D 9^PSOORNW2 Q  ;#rfs"
^XMB(3.9,109,2,729,0)="""RTN"",""PSOORNEW"",136,0)"
^XMB(3.9,109,2,730,0)=" ;"
^XMB(3.9,109,2,731,0)="""RTN"",""PSOORNEW"",137,0)"
^XMB(3.9,109,2,732,0)="14 D 13^PSOORNW2 Q  ;cop"
^XMB(3.9,109,2,733,0)="""RTN"",""PSOORNEW"",138,0)"
^XMB(3.9,109,2,734,0)=" ;"
^XMB(3.9,109,2,735,0)="""RTN"",""PSOORNEW"",139,0)"
^XMB(3.9,109,2,736,0)="11 D 10^PSOORNW2 Q  ;m/w"
^XMB(3.9,109,2,737,0)="""RTN"",""PSOORNEW"",140,0)"
^XMB(3.9,109,2,738,0)=" ;"
^XMB(3.9,109,2,739,0)="""RTN"",""PSOORNEW"",141,0)"
^XMB(3.9,109,2,740,0)="15 D 14^PSOORNW2 Q  ;rem"
^XMB(3.9,109,2,741,0)="""RTN"",""PSOORNEW"",142,0)"
^XMB(3.9,109,2,742,0)=" ;"
^XMB(3.9,109,2,743,0)="""RTN"",""PSOORNEW"",143,0)"
^XMB(3.9,109,2,744,0)="DRGMSG ;"
^XMB(3.9,109,2,745,0)="""RTN"",""PSOORNEW"",144,0)"
^XMB(3.9,109,2,746,0)=" F SG=1:1:$L($P(^PSDRUG(PSODRUG(""IEN""),0),""^"",10)) S:$L(^TMP(""PSOPO"",$J,IEN,0)_"" ""_$P($P(^PSDRUG(PSODRUG(""IEN""),0),""^"",10),"" "",SG))>80 IEN=IEN+1,$P(^TMP(""PSOPO"",$J,IEN,0),"" "",20)="" "" D"
^XMB(3.9,109,2,747,0)="""RTN"",""PSOORNEW"",145,0)"
^XMB(3.9,109,2,748,0)=" .S:$P($P(^PSDRUG(PSODRUG(""IEN""),0),""^"",10),"" "",SG)'="""" ^TMP(""PSOPO"",$J,IEN,0)=$G(^TMP(""PSOPO"",$J,IEN,0))_"" ""_$P($P(^PSDRUG(PSODRUG(""IEN""),0),""^"",10),"" "",SG)"
^XMB(3.9,109,2,749,0)="""RTN"",""PSOORNEW"",146,0)"
^XMB(3.9,109,2,750,0)=" K SG Q"
^XMB(3.9,109,2,751,0)="""RTN"",""PSORENW0"")"
^XMB(3.9,109,2,752,0)="0^3^B79440242^B73539639"
^XMB(3.9,109,2,753,0)="""RTN"",""PSORENW0"",1,0)"
^XMB(3.9,109,2,754,0)="PSORENW0 ;IHS/DSD/JCM-renew main driver continuation ;2/8/06 8:40am"
^XMB(3.9,109,2,755,0)="""RTN"",""PSORENW0"",2,0)"
^XMB(3.9,109,2,756,0)=" ;;7.0;OUTPATIENT PHARMACY;**11,27,32,59,64,46,71,96,100,130,237**;DEC 1997"
^XMB(3.9,109,2,757,0)="""RTN"",""PSORENW0"",3,0)"
^XMB(3.9,109,2,758,0)=" ;External reference to ^PS(50.7 supported by DBIA 2223"
^XMB(3.9,109,2,759,0)="""RTN"",""PSORENW0"",4,0)"
^XMB(3.9,109,2,760,0)=" ;External reference to ^PSDRUG supported by DBIA 221"
^XMB(3.9,109,2,761,0)="""RTN"",""PSORENW0"",5,0)"
^XMB(3.9,109,2,762,0)=" ;External references PSOL and PSOUL^PSSLOCK supported by DBIA 2789"
^XMB(3.9,109,2,763,0)="""RTN"",""PSORENW0"",6,0)"
^XMB(3.9,109,2,764,0)=" ;"
^XMB(3.9,109,2,765,0)="""RTN"",""PSORENW0"",7,0)"
^XMB(3.9,109,2,766,0)=" ;PSO*237 was not adding to Clozapine Override file, fix"
^XMB(3.9,109,2,767,0)="""RTN"",""PSORENW0"",8,0)"
^XMB(3.9,109,2,768,0)="PROCESS ;"
^XMB(3.9,109,2,769,0)="""RTN"",""PSORENW0"",9,0)"
^XMB(3.9,109,2,770,0)=" D ^PSORENW1"
^XMB(3.9,109,2,771,0)="""RTN"",""PSORENW0"",10,0)"
^XMB(3.9,109,2,772,0)=" D INST2^PSORENW"
^XMB(3.9,109,2,773,0)="""RTN"",""PSORENW0"",11,0)"
^XMB(3.9,109,2,774,0)=" I $D(PSORX(""BAR CODE"")),PSODFN'=PSORENW(""PSODFN"") D NEWPT"
^XMB(3.9,109,2,775,0)="""RTN"",""PSORENW0"",12,0)"
^XMB(3.9,109,2,776,0)=" S PSORENW(""DFLG"")=0,PSORENW(""FILL DATE"")=PSORNW(""FILL DATE"")"
^XMB(3.9,109,2,777,0)="""RTN"",""PSORENW0"",13,0)"
^XMB(3.9,109,2,778,0)=" I $G(PSORNW(""MAIL/WINDOW""))]"""" S PSORENW(""MAIL/WINDOW"")=PSORNW(""MAIL/WINDOW"")"
^XMB(3.9,109,2,779,0)="""RTN"",""PSORENW0"",14,0)"
^XMB(3.9,109,2,780,0)=" W !!,""Now Renewing Rx # ""_PSORENW(""ORX #"")_""   Drug: ""_$P($G(^PSDRUG(+$G(PSORENW(""DRUG IEN"")),0)),""^""),!"
^XMB(3.9,109,2,781,0)="""RTN"",""PSORENW0"",15,0)"
^XMB(3.9,109,2,782,0)=" D CHECK G:PSORENW(""DFLG"") PROCESSX"
^XMB(3.9,109,2,783,0)="""RTN"",""PSORENW0"",16,0)"
^XMB(3.9,109,2,784,0)=" D FILDATE"
^XMB(3.9,109,2,785,0)="""RTN"",""PSORENW0"",17,0)"
^XMB(3.9,109,2,786,0)=" D DRUG G:PSORENW(""DFLG"")!PSORX(""DFLG"") PROCESSX"
^XMB(3.9,109,2,787,0)="""RTN"",""PSORENW0"",18,0)"
^XMB(3.9,109,2,788,0)=" D RXN G:PSORENW(""DFLG"") PROCESSX"
^XMB(3.9,109,2,789,0)="""RTN"",""PSORENW0"",19,0)"
^XMB(3.9,109,2,790,0)=" D STOP^PSORENW1,OERR^PSORENW1:$G(PSOFDR)"
^XMB(3.9,109,2,791,0)="""RTN"",""PSORENW0"",20,0)"
^XMB(3.9,109,2,792,0)="DSPL K PSOEDT,PSOLM D DSPLY^PSORENW3 G:PSORENW(""DFLG"") PROCESSX"
^XMB(3.9,109,2,793,0)="""RTN"",""PSORENW0"",21,0)"
^XMB(3.9,109,2,794,0)=" S PSORENW(""QFLG"")=0 D:'$G(PSOFDR) EDIT"
^XMB(3.9,109,2,795,0)="""RTN"",""PSORENW0"",22,0)"
^XMB(3.9,109,2,796,0)=" G:PSORENW(""DFLG"")!$G(PSORX(""FN"")) PROCESSX"
^XMB(3.9,109,2,797,0)="""RTN"",""PSORENW0"",23,0)"
^XMB(3.9,109,2,798,0)=" G:'$G(PSORX(""FN""))&('$G(PSORENW(""QFLG""))) DSPL"
^XMB(3.9,109,2,799,0)="""RTN"",""PSORENW0"",24,0)"
^XMB(3.9,109,2,800,0)=" D:$D(^XUSEC(""PSORPH"",DUZ))!('$P(PSOPAR,""^"",2)) VER1^PSOORNE4(.PSORENW) I PSORENW(""DFLG"")=1 G PROCESSX"
^XMB(3.9,109,2,801,0)="""RTN"",""PSORENW0"",25,0)"
^XMB(3.9,109,2,802,0)=" I $G(NEWDOSE),PSORENW(""ENT"")>0 K NEWDOSE G DSPL"
^XMB(3.9,109,2,803,0)="""RTN"",""PSORENW0"",26,0)"
^XMB(3.9,109,2,804,0)=" D EN^PSORN52(.PSORENW)"
^XMB(3.9,109,2,805,0)="""RTN"",""PSORENW0"",27,0)"
^XMB(3.9,109,2,806,0)=" D RNPSOSD^PSOUTIL"
^XMB(3.9,109,2,807,0)="""RTN"",""PSORENW0"",28,0)"
^XMB(3.9,109,2,808,0)=" D CAN,DCORD^PSONEW2"
^XMB(3.9,109,2,809,0)="""RTN"",""PSORENW0"",29,0)"
^XMB(3.9,109,2,810,0)=" S BBRN="""",BBRN1=$O(^PSRX(""B"",PSORENW(""NRX #""),BBRN)) I $P($G(^PSRX(BBRN1,0)),""^"",11)[""W"" S BINGCRT=""Y"",BINGRTE=""W"""
^XMB(3.9,109,2,811,0)="""RTN"",""PSORENW0"",30,0)"
^XMB(3.9,109,2,812,0)=" ;PSO*237 add to Clozapine Override file"
^XMB(3.9,109,2,813,0)="""RTN"",""PSORENW0"",31,0)"
^XMB(3.9,109,2,814,0)="ANQ I $G(ANQDATA)]"""" D NOW^%DTC G:$D(^PS(52.52,""B"",%)) ANQ D"
^XMB(3.9,109,2,815,0)="""RTN"",""PSORENW0"",32,0)"
^XMB(3.9,109,2,816,0)=" . K DD,DO S DIC=""^PS(52.52,"",DIC(0)=""L"",DLAYGO=52.52,X=%"
^XMB(3.9,109,2,817,0)="""RTN"",""PSORENW0"",33,0)"
^XMB(3.9,109,2,818,0)=" . D FILE^DICN K DIC,DLAYGO,DD,DO,DA,DR"
^XMB(3.9,109,2,819,0)="""RTN"",""PSORENW0"",34,0)"
^XMB(3.9,109,2,820,0)=" . N PS52 S (PS52,DA)=+Y,DIE=""^PS(52.52,"",DR=""1////""_PSORENW(""IRXN"")"
^XMB(3.9,109,2,821,0)="""RTN"",""PSORENW0"",35,0)"
^XMB(3.9,109,2,822,0)=" . D ^DIE K DIE,DA,DR"
^XMB(3.9,109,2,823,0)="""RTN"",""PSORENW0"",36,0)"
^XMB(3.9,109,2,824,0)=" . S $P(^PS(52.52,PS52,0),""^"",3,6)=ANQDATA"
^XMB(3.9,109,2,825,0)="""RTN"",""PSORENW0"",37,0)"
^XMB(3.9,109,2,826,0)=" . K ANQDATA,X,Y,%,ANQREM"
^XMB(3.9,109,2,827,0)="""RTN"",""PSORENW0"",38,0)"
^XMB(3.9,109,2,828,0)=" ;"
^XMB(3.9,109,2,829,0)="""RTN"",""PSORENW0"",39,0)"
^XMB(3.9,109,2,830,0)="PROCESSX I PSORENW(""DFLG"")!$G(PSRX(""DFLG"")) S PSOBBCLK=1 W:'$G(POERR) !,$C(7),""RENEWED RX DELETED"",! D:$P($G(PSOLST(+$G(ORN))),""^"",2) PSOUL^PSSLOCK($P(PSOLST(ORN),""^"",2)) S POERR(""DFLG"")=1 D CLEAN^PSOVER1"
^XMB(3.9,109,2,831,0)="""RTN"",""PSORENW0"",40,0)"
^XMB(3.9,109,2,832,0)=" D:$G(PSORENW(""OLD FILL DATE""))]"""" SUSDATEK^PSOUTIL(.PSORENW)"
^XMB(3.9,109,2,833,0)="""RTN"",""PSORENW0"",41,0)"
^XMB(3.9,109,2,834,0)=" K PRC,PHI,PSOQUIT,BBRN,BBRN1,PSORENW,PSODRUG,PSORX(""PROVIDER NAME""),PSORX(""CLINIC""),PSORX(""FN"")"
^XMB(3.9,109,2,835,0)="""RTN"",""PSORENW0"",42,0)"
^XMB(3.9,109,2,836,0)=" K PSOEDT,PSOLM S:$G(PSORENW(""FROM""))="""" (PSORENW(""DFLG""),PSORENW(""QFLG""))=0"
^XMB(3.9,109,2,837,0)="""RTN"",""PSORENW0"",43,0)"
^XMB(3.9,109,2,838,0)=" D CLEAN^PSOVER1"
^XMB(3.9,109,2,839,0)="""RTN"",""PSORENW0"",44,0)"
^XMB(3.9,109,2,840,0)=" Q"
^XMB(3.9,109,2,841,0)="""RTN"",""PSORENW0"",45,0)"
^XMB(3.9,109,2,842,0)=" ;"
^XMB(3.9,109,2,843,0)="""RTN"",""PSORENW0"",46,0)"
^XMB(3.9,109,2,844,0)="CHECK ;"
^XMB(3.9,109,2,845,0)="""RTN"",""PSORENW0"",47,0)"
^XMB(3.9,109,2,846,0)=" I '$D(PSORX(""BAR CODE"")),PSORENW(""PSODFN"")'=PSODFN D  G CHECKX"
^XMB(3.9,109,2,847,0)="""RTN"",""PSORENW0"",48,0)"
^XMB(3.9,109,2,848,0)=" .W !!,?5,$C(7),""Can't renew Rx # ""_$P(PSORENW(""RX0""),""^"")_"", it is not for this patient."" S PSORENW(""DFLG"")=1"
^XMB(3.9,109,2,849,0)="""RTN"",""PSORENW0"",49,0)"
^XMB(3.9,109,2,850,0)=" .S:$G(POERR) VALMSG=""Can't renew Rx # ""_$P(PSORENW(""RX0""),""^"")_"", not for this patient."",VALMBCK=""R"""
^XMB(3.9,109,2,851,0)="""RTN"",""PSORENW0"",50,0)"
^XMB(3.9,109,2,852,0)=" ;Invalid dosage check"
^XMB(3.9,109,2,853,0)="""RTN"",""PSORENW0"",51,0)"
^XMB(3.9,109,2,854,0)=" N PSOOCPRX,PSOOLPF,PSOOLPD,PSONOSIG S PSOOCPRX=PSORENW(""OIRXN"") D CDOSE"
^XMB(3.9,109,2,855,0)="""RTN"",""PSORENW0"",52,0)"
^XMB(3.9,109,2,856,0)=" I PSOOLPF!(PSONOSIG) D  G CHECKX"
^XMB(3.9,109,2,857,0)="""RTN"",""PSORENW0"",53,0)"
^XMB(3.9,109,2,858,0)=" .S PSORENW(""DFLG"")=1"
^XMB(3.9,109,2,859,0)="""RTN"",""PSORENW0"",54,0)"
^XMB(3.9,109,2,860,0)=" .W !!,$C(7),""Cannot renew Rx # ""_$P(PSORENW(""RX0""),""^"")_$S(PSOOLPF:"", invalid dosage of ""_$G(PSOOLPD),1:"", Missing Sig"")"
^XMB(3.9,109,2,861,0)="""RTN"",""PSORENW0"",55,0)"
^XMB(3.9,109,2,862,0)=" .S:$G(POERR) VALMSG=""Cannot renew Rx # ""_$P(PSORENW(""RX0""),""^"")_$S(PSOOLPF:"", invalid Dosage of ""_$G(PSOOLPD),1:"", Missing Sig"") S VALMBCK=""R"""
^XMB(3.9,109,2,863,0)="""RTN"",""PSORENW0"",56,0)"
^XMB(3.9,109,2,864,0)=" .I '$G(PSORNSPD) W ! K DIR S DIR(0)=""E"",DIR(""A"")=""Press Return to Continue"" D ^DIR K DIR"
^XMB(3.9,109,2,865,0)="""RTN"",""PSORENW0"",57,0)"
^XMB(3.9,109,2,866,0)=" .I $G(PSORNSPD) W !"
^XMB(3.9,109,2,867,0)="""RTN"",""PSORENW0"",58,0)"
^XMB(3.9,109,2,868,0)=" ;"
^XMB(3.9,109,2,869,0)="""RTN"",""PSORENW0"",59,0)"
^XMB(3.9,109,2,870,0)=" S (PSOS,PSOX,PSOY)="""" K ACOM,DIR,DIRUT,DIRUT,DUOUT"
^XMB(3.9,109,2,871,0)="""RTN"",""PSORENW0"",60,0)"
^XMB(3.9,109,2,872,0)=" I $G(PSOSD) F  S PSOS=$O(PSOSD(PSOS)) Q:PSOS=""""  F  S PSOX=$O(PSOSD(PSOS,PSOX)) Q:PSOX']""""!(PSORENW(""DFLG""))  I PSORENW(""OIRXN"")=+PSOSD(PSOS,PSOX) S PSOY=PSOSD(PSOS,PSOX) I $P(PSOY,""^"",3)]"""" D  K ACOM,DIR,DIRUT,DIRUT,DUOUT"
^XMB(3.9,109,2,873,0)="""RTN"",""PSORENW0"",61,0)"
^XMB(3.9,109,2,874,0)=" . S PSORENW(""DFLG"")=1"
^XMB(3.9,109,2,875,0)="""RTN"",""PSORENW0"",62,0)"
^XMB(3.9,109,2,876,0)=" . W !,$C(7),""Cannot renew Rx # "",$P(PSORENW(""RX0""),""^"")"
^XMB(3.9,109,2,877,0)="""RTN"",""PSORENW0"",63,0)"
^XMB(3.9,109,2,878,0)=" . S PSOREA=$P(PSOY,""^"",3),PSOSTAT=+PSORENW(""STA"")"
^XMB(3.9,109,2,879,0)="""RTN"",""PSORENW0"",64,0)"
^XMB(3.9,109,2,880,0)=" . D STATUS^PSOUTIL(PSOREA,PSOSTAT) K PSOREA,PSOSTAT"
^XMB(3.9,109,2,881,0)="""RTN"",""PSORENW0"",65,0)"
^XMB(3.9,109,2,882,0)=" .I $G(ACOM)]"""" D"
^XMB(3.9,109,2,883,0)="""RTN"",""PSORENW0"",66,0)"
^XMB(3.9,109,2,884,0)=" ..S DRG=$P(^PSDRUG($P(^PSRX(PSORENW(""OIRXN""),0),""^"",6),0),""^"")"
^XMB(3.9,109,2,885,0)="""RTN"",""PSORENW0"",67,0)"
^XMB(3.9,109,2,886,0)=" ..W ! S DIR(0)=""Y"",DIR(""A"",1)=""Do you want to Discontinue this Pending Order"",DIR(""A"")=""for ""_DRG,DIR(""B"")=""No"""
^XMB(3.9,109,2,887,0)="""RTN"",""PSORENW0"",68,0)"
^XMB(3.9,109,2,888,0)=" ..D ^DIR I 'Y!($D(DIRUT)) Q"
^XMB(3.9,109,2,889,0)="""RTN"",""PSORENW0"",69,0)"
^XMB(3.9,109,2,890,0)=" ..D NOOR^PSOCAN4 Q:$D(DIRUT)  D DE^PSOORFI2"
^XMB(3.9,109,2,891,0)="""RTN"",""PSORENW0"",70,0)"
^XMB(3.9,109,2,892,0)=" .Q"
^XMB(3.9,109,2,893,0)="""RTN"",""PSORENW0"",71,0)"
^XMB(3.9,109,2,894,0)=" I PSOY="""",'$G(PSOORRNW) D"
^XMB(3.9,109,2,895,0)="""RTN"",""PSORENW0"",72,0)"
^XMB(3.9,109,2,896,0)=" .W !,$C(7),""Cannot renew Rx # "",$P(PSORENW(""RX0""),""^""),"" later Rx exists."" S PSORENW(""DFLG"")=1"
^XMB(3.9,109,2,897,0)="""RTN"",""PSORENW0"",73,0)"
^XMB(3.9,109,2,898,0)=" .S:$G(POERR) VALMSG=""Cannot renew Rx # ""_$P(PSORENW(""RX0""),""^"")_"" later Rx exists."",VALMBCK=""R"""
^XMB(3.9,109,2,899,0)="""RTN"",""PSORENW0"",74,0)"
^XMB(3.9,109,2,900,0)=" K PSOX,PSOY G:PSORENW(""DFLG"") CHECKX"
^XMB(3.9,109,2,901,0)="""RTN"",""PSORENW0"",75,0)"
^XMB(3.9,109,2,902,0)=" ;"
^XMB(3.9,109,2,903,0)="""RTN"",""PSORENW0"",76,0)"
^XMB(3.9,109,2,904,0)=" I $A($E(PSORENW(""ORX #""),$L(PSORENW(""ORX #""))))'<90 D  Q"
^XMB(3.9,109,2,905,0)="""RTN"",""PSORENW0"",77,0)"
^XMB(3.9,109,2,906,0)=" . W !,$C(7),""Cannot renew Rx # ""_PSORENW(""ORX #"")_"", Max number of renewals reached."""
^XMB(3.9,109,2,907,0)="""RTN"",""PSORENW0"",78,0)"
^XMB(3.9,109,2,908,0)=" .S:$G(POERR)!('$G(SPEED)) (ACOM,VALMSG)=""Cannot renew Rx # ""_PSORENW(""ORX #"")_"", Max number reached."",VALMBCK=""R"""
^XMB(3.9,109,2,909,0)="""RTN"",""PSORENW0"",79,0)"
^XMB(3.9,109,2,910,0)=" . S PSORENW(""DFLG"")=1"
^XMB(3.9,109,2,911,0)="""RTN"",""PSORENW0"",80,0)"
^XMB(3.9,109,2,912,0)=" .I $G(OR0)]"""" D"
^XMB(3.9,109,2,913,0)="""RTN"",""PSORENW0"",81,0)"
^XMB(3.9,109,2,914,0)=" ..S DRG=$P(^PSDRUG($P(^PSRX(PSORENW(""OIRXN""),0),""^"",6),0),""^"")"
^XMB(3.9,109,2,915,0)="""RTN"",""PSORENW0"",82,0)"
^XMB(3.9,109,2,916,0)=" ..W ! S DIR(0)=""Y"",DIR(""A"",1)=""Do you want to Discontinue this Pending Order"",DIR(""A"")=""for ""_DRG,DIR(""B"")=""No"""
^XMB(3.9,109,2,917,0)="""RTN"",""PSORENW0"",83,0)"
^XMB(3.9,109,2,918,0)=" ..D ^DIR I 'Y!($D(DIRUT)) Q"
^XMB(3.9,109,2,919,0)="""RTN"",""PSORENW0"",84,0)"
^XMB(3.9,109,2,920,0)=" ..D NOOR^PSOCAN4 Q:$D(DIRUT)  D DE^PSOORFI2"
^XMB(3.9,109,2,921,0)="""RTN"",""PSORENW0"",85,0)"
^XMB(3.9,109,2,922,0)=" .K ACOM Q"
^XMB(3.9,109,2,923,0)="""RTN"",""PSORENW0"",86,0)"
^XMB(3.9,109,2,924,0)=" D CHKDIV G:PSORENW(""DFLG"") CHECKX"
^XMB(3.9,109,2,925,0)="""RTN"",""PSORENW0"",87,0)"
^XMB(3.9,109,2,926,0)=" ;"
^XMB(3.9,109,2,927,0)="""RTN"",""PSORENW0"",88,0)"
^XMB(3.9,109,2,928,0)=" D CHKPRV^PSOUTIL"
^XMB(3.9,109,2,929,0)="""RTN"",""PSORENW0"",89,0)"
^XMB(3.9,109,2,930,0)="CHECKX Q"
^XMB(3.9,109,2,931,0)="""RTN"",""PSORENW0"",90,0)"
^XMB(3.9,109,2,932,0)=" ;"
^XMB(3.9,109,2,933,0)="""RTN"",""PSORENW0"",91,0)"
^XMB(3.9,109,2,934,0)="CHKDIV ;"
^XMB(3.9,109,2,935,0)="""RTN"",""PSORENW0"",92,0)"
^XMB(3.9,109,2,936,0)=" G:$P(PSORENW(""RX2""),""^"",9)=+PSOSITE CHKDIVX"
^XMB(3.9,109,2,937,0)="""RTN"",""PSORENW0"",93,0)"
^XMB(3.9,109,2,938,0)=" W !?5,$C(7),""RX # "",$P(PSORENW(""RX0""),""^""),"" is for ("",$P(^PS(59,$P(PSORENW(""RX2""),""^"",9),0),""^""),"") division."""
^XMB(3.9,109,2,939,0)="""RTN"",""PSORENW0"",94,0)"
^XMB(3.9,109,2,940,0)=" I '$P($G(PSOSYS),""^"",2) S PSORENW(""DFLG"")=1 G CHKDIVX"
^XMB(3.9,109,2,941,0)="""RTN"",""PSORENW0"",95,0)"
^XMB(3.9,109,2,942,0)=" D:$P($G(PSOSYS),""^"",3) DIR"
^XMB(3.9,109,2,943,0)="""RTN"",""PSORENW0"",96,0)"
^XMB(3.9,109,2,944,0)="CHKDIVX Q"
^XMB(3.9,109,2,945,0)="""RTN"",""PSORENW0"",97,0)"
^XMB(3.9,109,2,946,0)=" ;"
^XMB(3.9,109,2,947,0)="""RTN"",""PSORENW0"",98,0)"
^XMB(3.9,109,2,948,0)="DRUG ;"
^XMB(3.9,109,2,949,0)="""RTN"",""PSORENW0"",99,0)"
^XMB(3.9,109,2,950,0)=" K PSOY"
^XMB(3.9,109,2,951,0)="""RTN"",""PSORENW0"",100,0)"
^XMB(3.9,109,2,952,0)=" S PSOY=PSORENW(""DRUG IEN""),PSOY(0)=^PSDRUG(PSOY,0)"
^XMB(3.9,109,2,953,0)="""RTN"",""PSORENW0"",101,0)"
^XMB(3.9,109,2,954,0)=" I '$P($G(^PSDRUG(PSOY,2)),""^"") D  Q:$G(PSORX(""DFLG""))"
^XMB(3.9,109,2,955,0)="""RTN"",""PSORENW0"",102,0)"
^XMB(3.9,109,2,956,0)=" .I $P($G(^PSRX(PSORENW(""OIRXN""),""OR1"")),""^"") S PSODRUG(""OI"")=$P(^PSRX(PSORENW(""OIRXN""),""OR1""),""^""),PSODRUG(""OIN"")=$P(^PS(50.7,+^(""OR1""),0),""^"") Q"
^XMB(3.9,109,2,957,0)="""RTN"",""PSORENW0"",103,0)"
^XMB(3.9,109,2,958,0)=" .W !!,""Cannot Renew!!  No Pharmacy Orderable Item!"" S VALMSG=""Cannot Renew!!  No Pharmacy Orderable Item!"",PSORX(""DFLG"")=1"
^XMB(3.9,109,2,959,0)="""RTN"",""PSORENW0"",104,0)"
^XMB(3.9,109,2,960,0)=" D SET^PSODRG"
^XMB(3.9,109,2,961,0)="""RTN"",""PSORENW0"",105,0)"
^XMB(3.9,109,2,962,0)=" D POST^PSODRG S:PSORX(""DFLG"") PSORENW(""DFLG"")=1 ;remove order checks for v7. do allergy checks only"
^XMB(3.9,109,2,963,0)="""RTN"",""PSORENW0"",106,0)"
^XMB(3.9,109,2,964,0)=" ;D ^PSODRDUP Q:$G(PSORX(""DFLG""))  ; Set PSORX(""DFLG"")=1 if process to stop"
^XMB(3.9,109,2,965,0)="""RTN"",""PSORENW0"",107,0)"
^XMB(3.9,109,2,966,0)=" S PSONOOR=PSORENW(""NOO"")"
^XMB(3.9,109,2,967,0)="""RTN"",""PSORENW0"",108,0)"
^XMB(3.9,109,2,968,0)=" ;I $G(PSODRUG(""NDF"")) S NDF=$P(PSODRUG(""NDF""),""A""),VAP=$P(PSODRUG(""NDF""),""A"",2),PTR=NDF_"".""_VAP D CHK^PSODGAL(PSODFN,""DR"",PTR) K NDF,VAP,PTR"
^XMB(3.9,109,2,969,0)="""RTN"",""PSORENW0"",109,0)"
^XMB(3.9,109,2,970,0)=" ;I '$G(PSODRUG(""NDF"")) D CHK1^PSODGAL(PSODFN)"
^XMB(3.9,109,2,971,0)="""RTN"",""PSORENW0"",110,0)"
^XMB(3.9,109,2,972,0)=" K PSORX(""INTERVENE"")"
^XMB(3.9,109,2,973,0)="""RTN"",""PSORENW0"",111,0)"
^XMB(3.9,109,2,974,0)=" S:$D(PSONEW(""STATUS"")) PSORENW(""STATUS"")=PSONEW(""STATUS"")"
^XMB(3.9,109,2,975,0)="""RTN"",""PSORENW0"",112,0)"
^XMB(3.9,109,2,976,0)=" K PSOY,PSONEW(""STATUS"")"
^XMB(3.9,109,2,977,0)="""RTN"",""PSORENW0"",113,0)"
^XMB(3.9,109,2,978,0)=" Q"
^XMB(3.9,109,2,979,0)="""RTN"",""PSORENW0"",114,0)"
^XMB(3.9,109,2,980,0)=" ;"
^XMB(3.9,109,2,981,0)="""RTN"",""PSORENW0"",115,0)"
^XMB(3.9,109,2,982,0)="RXN ;"
^XMB(3.9,109,2,983,0)="""RTN"",""PSORENW0"",116,0)"
^XMB(3.9,109,2,984,0)=" K PSOX"
^XMB(3.9,109,2,985,0)="""RTN"",""PSORENW0"",117,0)"
^XMB(3.9,109,2,986,0)=" S PSOX=$E(PSORENW(""ORX #""),$L(PSORENW(""ORX #"")))"
^XMB(3.9,109,2,987,0)="""RTN"",""PSORENW0"",118,0)"
^XMB(3.9,109,2,988,0)=" S PSORENW(""NRX #"")=$S(PSOX?1N:PSORENW(""ORX #"")_""A"",1:$E(PSORENW(""ORX #""),1,$L(PSORENW(""ORX #""))-1)_$C($A(PSOX)+1))"
^XMB(3.9,109,2,989,0)="""RTN"",""PSORENW0"",119,0)"
^XMB(3.9,109,2,990,0)="RETRY I $O(^PSRX(""B"",PSORENW(""NRX #""),0)) D  G:'$G(PSORENW(""DFLG"")) RETRY"
^XMB(3.9,109,2,991,0)="""RTN"",""PSORENW0"",120,0)"
^XMB(3.9,109,2,992,0)=" .W:$A($E(PSORENW(""NRX #""),$L(PSORENW(""ORX #""))))'=90 !,""Rx # ""_PSORENW(""NRX #"")_"" is already on file."""
^XMB(3.9,109,2,993,0)="""RTN"",""PSORENW0"",121,0)"
^XMB(3.9,109,2,994,0)=" .S:$G(PSOFDR) VALMSG=""Rx # ""_PSORENW(""NRX #"")_"" is already on file."""
^XMB(3.9,109,2,995,0)="""RTN"",""PSORENW0"",122,0)"
^XMB(3.9,109,2,996,0)=" .I $A($E(PSORENW(""NRX #""),$L(PSORENW(""ORX #""))))=90 D"
^XMB(3.9,109,2,997,0)="""RTN"",""PSORENW0"",123,0)"
^XMB(3.9,109,2,998,0)=" ..W !,""Rx # ""_PSORENW(""NRX #"")_"" is already on file. Cannot renew Rx #""_PSORENW(""ORX #"")_""."",!,""A new Rx must be entered."",!"
^XMB(3.9,109,2,999,0)="""RTN"",""PSORENW0"",124,0)"
^XMB(3.9,109,2,1000,0)=" ..S:$G(PSOFDR) VALMSG=""Rx # ""_PSORENW(""NRX #"")_"" is already on file. Cannot renew Rx #""_PSORENW(""ORX #"")_"". A new Rx must be entered."""
^XMB(3.9,109,2,1001,0)="""RTN"",""PSORENW0"",125,0)"
^XMB(3.9,109,2,1002,0)=" ..K DIR S DIR(0)=""E"",DIR(""A"")=""Press Return to Continue"" D ^DIR K DIR"
^XMB(3.9,109,2,1003,0)="""RTN"",""PSORENW0"",126,0)"
^XMB(3.9,109,2,1004,0)=" ..S:$G(POERR)!($G(PSOFDR)) VALMSG=""Cannot renew Rx # ""_PSORENW(""ORX #"")_"", Max number reached."",VALMBCK=""R"" S PSORENW(""DFLG"")=1"
^XMB(3.9,109,2,1005,0)="""RTN"",""PSORENW0"",127,0)"
^XMB(3.9,109,2,1006,0)=" .S PSOX=$E(PSORENW(""NRX #""),$L(PSORENW(""NRX #"")))"
^XMB(3.9,109,2,1007,0)="""RTN"",""PSORENW0"",128,0)"
^XMB(3.9,109,2,1008,0)=" .S PSORENW(""NRX #"")=$S(PSOX?1N:PSORENW(""NRX #"")_""A"",1:$E(PSORENW(""NRX #""),1,$L(PSORENW(""NRX #""))-1)_$C($A(PSOX)+1))"
^XMB(3.9,109,2,1009,0)="""RTN"",""PSORENW0"",129,0)"
^XMB(3.9,109,2,1010,0)="RXNX K PSOX"
^XMB(3.9,109,2,1011,0)="""RTN"",""PSORENW0"",130,0)"
^XMB(3.9,109,2,1012,0)=" Q"
^XMB(3.9,109,2,1013,0)="""RTN"",""PSORENW0"",131,0)"
^XMB(3.9,109,2,1014,0)=" ;"
^XMB(3.9,109,2,1015,0)="""RTN"",""PSORENW0"",132,0)"
^XMB(3.9,109,2,1016,0)="FILDATE ;"
^XMB(3.9,109,2,1017,0)="""RTN"",""PSORENW0"",133,0)"
^XMB(3.9,109,2,1018,0)=" S PSORENW(""IRXN"")=PSORENW(""OIRXN"")"
^XMB(3.9,109,2,1019,0)="""RTN"",""PSORENW0"",134,0)"
^XMB(3.9,109,2,1020,0)=" D NEXT^PSOUTIL(.PSORENW)"
^XMB(3.9,109,2,1021,0)="""RTN"",""PSORENW0"",135,0)"
^XMB(3.9,109,2,1022,0)=" I PSORENW(""FILL DATE"")<$P(PSORENW(""RX3""),""^"",2) D"
^XMB(3.9,109,2,1023,0)="""RTN"",""PSORENW0"",136,0)"
^XMB(3.9,109,2,1024,0)=" .D RENFDT^PSOUTIL(.PSORENW)"
^XMB(3.9,109,2,1025,0)="""RTN"",""PSORENW0"",137,0)"
^XMB(3.9,109,2,1026,0)=" .I PSORENW(""FILL DATE"")<DT,PSORENW(""FILL DATE"")<PSORNW(""FILL DATE"") S (Y,PSORENW(""FILL DATE""))=DT X ^DD(""DD"") S PSORX(""FILL DATE"")=Y K Y"
^XMB(3.9,109,2,1027,0)="""RTN"",""PSORENW0"",138,0)"
^XMB(3.9,109,2,1028,0)=" K PSORENW(""IRXN"")"
^XMB(3.9,109,2,1029,0)="""RTN"",""PSORENW0"",139,0)"
^XMB(3.9,109,2,1030,0)=" Q"
^XMB(3.9,109,2,1031,0)="""RTN"",""PSORENW0"",140,0)"
^XMB(3.9,109,2,1032,0)=" ;"
^XMB(3.9,109,2,1033,0)="""RTN"",""PSORENW0"",141,0)"
^XMB(3.9,109,2,1034,0)="EDIT ;"
^XMB(3.9,109,2,1035,0)="""RTN"",""PSORENW0"",142,0)"
^XMB(3.9,109,2,1036,0)=" K DIR,X,Y"
^XMB(3.9,109,2,1037,0)="""RTN"",""PSORENW0"",143,0)"
^XMB(3.9,109,2,1038,0)=" S DIR(0)=""Y"",DIR(""B"")=$S($G(DUZ(""AG""))'=""I"":""Y"",$G(PSEXDT):""Y"",1:""N"")"
^XMB(3.9,109,2,1039,0)="""RTN"",""PSORENW0"",144,0)"
^XMB(3.9,109,2,1040,0)=" S DIR(""A"")=""Edit renewed Rx "",DIR(""?"")=""Answer YES to edit the renewed Rx, NO not to."""
^XMB(3.9,109,2,1041,0)="""RTN"",""PSORENW0"",145,0)"
^XMB(3.9,109,2,1042,0)=" D ^DIR K DIR S:$D(DIRUT) PSORENW(""DFLG"")=1"
^XMB(3.9,109,2,1043,0)="""RTN"",""PSORENW0"",146,0)"
^XMB(3.9,109,2,1044,0)=" G:PSORENW(""DFLG"") EDITX"
^XMB(3.9,109,2,1045,0)="""RTN"",""PSORENW0"",147,0)"
^XMB(3.9,109,2,1046,0)=" K PSOQUIT,PSORX(""FN"") I Y D INIT^PSORENW3,EN^PSOORNE4(.PSORENW) S:$G(PSOQUIT) PSORENW(""DFLG"")=1 I '$G(PSORX(""FN"")) D FULL^VALM1 Q"
^XMB(3.9,109,2,1047,0)="""RTN"",""PSORENW0"",148,0)"
^XMB(3.9,109,2,1048,0)=" Q:$G(PSORX(""FN""))"
^XMB(3.9,109,2,1049,0)="""RTN"",""PSORENW0"",149,0)"
^XMB(3.9,109,2,1050,0)="EDITX S PSOEDT=1,VALMBCK=""Q"" K X,Y,DIRUT,DTOUT,DUOUT S PSORENW(""QFLG"")=1"
^XMB(3.9,109,2,1051,0)="""RTN"",""PSORENW0"",150,0)"
^XMB(3.9,109,2,1052,0)=" Q"
^XMB(3.9,109,2,1053,0)="""RTN"",""PSORENW0"",151,0)"
^XMB(3.9,109,2,1054,0)=" ;"
^XMB(3.9,109,2,1055,0)="""RTN"",""PSORENW0"",152,0)"
^XMB(3.9,109,2,1056,0)="DELETE ;"
^XMB(3.9,109,2,1057,0)="""RTN"",""PSORENW0"",153,0)"
^XMB(3.9,109,2,1058,0)=" K DA,DIK"
^XMB(3.9,109,2,1059,0)="""RTN"",""PSORENW0"",154,0)"
^XMB(3.9,109,2,1060,0)=" S DA=$O(^PS(52.5,""B"",PSORENW(""OIRXN""),0)),DIK=""^PS(52.5,"""
^XMB(3.9,109,2,1061,0)="""RTN"",""PSORENW0"",155,0)"
^XMB(3.9,109,2,1062,0)=" D ^DIK K DIK,DIC"
^XMB(3.9,109,2,1063,0)="""RTN"",""PSORENW0"",156,0)"
^XMB(3.9,109,2,1064,0)=" Q"
^XMB(3.9,109,2,1065,0)="""RTN"",""PSORENW0"",157,0)"
^XMB(3.9,109,2,1066,0)=" ;"
^XMB(3.9,109,2,1067,0)="""RTN"",""PSORENW0"",158,0)"
^XMB(3.9,109,2,1068,0)="CAN ;"
^XMB(3.9,109,2,1069,0)="""RTN"",""PSORENW0"",159,0)"
^XMB(3.9,109,2,1070,0)=" K REA,DA,MSG"
^XMB(3.9,109,2,1071,0)="""RTN"",""PSORENW0"",160,0)"
^XMB(3.9,109,2,1072,0)=" S REA=""C"",DA=PSORENW(""OIRXN"")"
^XMB(3.9,109,2,1073,0)="""RTN"",""PSORENW0"",161,0)"
^XMB(3.9,109,2,1074,0)=" S MSG=""Renewed""_$S($G(PSOFDR):"" from CPRS"",1:"""")"
^XMB(3.9,109,2,1075,0)="""RTN"",""PSORENW0"",162,0)"
^XMB(3.9,109,2,1076,0)=" S PSCAN(PSORENW(""ORX #""))=DA_""^C"""
^XMB(3.9,109,2,1077,0)="""RTN"",""PSORENW0"",163,0)"
^XMB(3.9,109,2,1078,0)=" D CAN^PSOCAN"
^XMB(3.9,109,2,1079,0)="""RTN"",""PSORENW0"",164,0)"
^XMB(3.9,109,2,1080,0)=" K REA,DA,MSG,PSCAN"
^XMB(3.9,109,2,1081,0)="""RTN"",""PSORENW0"",165,0)"
^XMB(3.9,109,2,1082,0)=" Q"
^XMB(3.9,109,2,1083,0)="""RTN"",""PSORENW0"",166,0)"
^XMB(3.9,109,2,1084,0)=" ;"
^XMB(3.9,109,2,1085,0)="""RTN"",""PSORENW0"",167,0)"
^XMB(3.9,109,2,1086,0)="DIR ;"
^XMB(3.9,109,2,1087,0)="""RTN"",""PSORENW0"",168,0)"
^XMB(3.9,109,2,1088,0)=" S DIR(0)=""Y"",DIR(""A"")=""CONTINUE "",DIR(""B"")=""N"""
^XMB(3.9,109,2,1089,0)="""RTN"",""PSORENW0"",169,0)"
^XMB(3.9,109,2,1090,0)=" S DIR(""?"")=""Answer YES to Continue, NO to bypass"""
^XMB(3.9,109,2,1091,0)="""RTN"",""PSORENW0"",170,0)"
^XMB(3.9,109,2,1092,0)=" D ^DIR K DIR"
^XMB(3.9,109,2,1093,0)="""RTN"",""PSORENW0"",171,0)"
^XMB(3.9,109,2,1094,0)=" S:$D(DIRUT)!('Y) PSORENW(""DFLG"")=1"
^XMB(3.9,109,2,1095,0)="""RTN"",""PSORENW0"",172,0)"
^XMB(3.9,109,2,1096,0)="DIRX K DIRUT,DTOUT,DUOUT,X,Y"
^XMB(3.9,109,2,1097,0)="""RTN"",""PSORENW0"",173,0)"
^XMB(3.9,109,2,1098,0)=" Q"
^XMB(3.9,109,2,1099,0)="""RTN"",""PSORENW0"",174,0)"
^XMB(3.9,109,2,1100,0)="NEWPT ;"
^XMB(3.9,109,2,1101,0)="""RTN"",""PSORENW0"",175,0)"
^XMB(3.9,109,2,1102,0)=" S PSOQFLG=0"
^XMB(3.9,109,2,1103,0)="""RTN"",""PSORENW0"",176,0)"
^XMB(3.9,109,2,1104,0)=" S PSODFN=PSORENW(""PSODFN"")"
^XMB(3.9,109,2,1105,0)="""RTN"",""PSORENW0"",177,0)"
^XMB(3.9,109,2,1106,0)=" D ^PSOPTPST I PSOQFLG S PSORENW(""DFLG"")=1,PSOQFLG=0 G NEWPTX"
^XMB(3.9,109,2,1107,0)="""RTN"",""PSORENW0"",178,0)"
^XMB(3.9,109,2,1108,0)=" D PROFILE^PSOREF1"
^XMB(3.9,109,2,1109,0)="""RTN"",""PSORENW0"",179,0)"
^XMB(3.9,109,2,1110,0)="NEWPTX Q"
^XMB(3.9,109,2,1111,0)="""RTN"",""PSORENW0"",180,0)"
^XMB(3.9,109,2,1112,0)=" ;"
^XMB(3.9,109,2,1113,0)="""RTN"",""PSORENW0"",181,0)"
^XMB(3.9,109,2,1114,0)="EN(PSORENW)        ; Entry Point for Batch Barcode Option"
^XMB(3.9,109,2,1115,0)="""RTN"",""PSORENW0"",182,0)"
^XMB(3.9,109,2,1116,0)=" S PSORENRX=$G(PSOBBC(""OIRXN""))"
^XMB(3.9,109,2,1117,0)="""RTN"",""PSORENW0"",183,0)"
^XMB(3.9,109,2,1118,0)=" I $G(PSORENRX) D PSOL^PSSLOCK(PSORENRX) I '$G(PSOMSG) D  K DIR,PSOMSG W ! S DIR(""A"")=""Press Return to continue"",DIR(0)=""E"" D ^DIR K DIR W ! Q"
^XMB(3.9,109,2,1119,0)="""RTN"",""PSORENW0"",184,0)"
^XMB(3.9,109,2,1120,0)=" .I $P($G(PSOMSG),""^"",2)'="""" W $C(7),!!,$P(PSOMSG,""^"",2) Q"
^XMB(3.9,109,2,1121,0)="""RTN"",""PSORENW0"",185,0)"
^XMB(3.9,109,2,1122,0)=" .W $C(7),!!,""Another person is editing Rx ""_$P($G(^PSRX(PSORENRX,0)),""^"")"
^XMB(3.9,109,2,1123,0)="""RTN"",""PSORENW0"",186,0)"
^XMB(3.9,109,2,1124,0)=" K PSOMSG,PSOBBCLK S PSOBARCD=1 D PROCESS K PSOBARCD"
^XMB(3.9,109,2,1125,0)="""RTN"",""PSORENW0"",187,0)"
^XMB(3.9,109,2,1126,0)=" D KLIB^PSORENW1"
^XMB(3.9,109,2,1127,0)="""RTN"",""PSORENW0"",188,0)"
^XMB(3.9,109,2,1128,0)=" I $G(PSORENRX),$G(PSOBBCLK) D PSOUL^PSSLOCK(PSORENRX)"
^XMB(3.9,109,2,1129,0)="""RTN"",""PSORENW0"",189,0)"
^XMB(3.9,109,2,1130,0)=" K PSORENRX,PSOBBCLK"
^XMB(3.9,109,2,1131,0)="""RTN"",""PSORENW0"",190,0)"
^XMB(3.9,109,2,1132,0)=" Q"
^XMB(3.9,109,2,1133,0)="""RTN"",""PSORENW0"",191,0)"
^XMB(3.9,109,2,1134,0)="CDOSE ;Validate Dosage field on Renewel, Copy, Edit"
^XMB(3.9,109,2,1135,0)="""RTN"",""PSORENW0"",192,0)"
^XMB(3.9,109,2,1136,0)=" ;PSOOCPRX must be set to internal Rx number"
^XMB(3.9,109,2,1137,0)="""RTN"",""PSORENW0"",193,0)"
^XMB(3.9,109,2,1138,0)=" Q:'$G(PSOOCPRX)"
^XMB(3.9,109,2,1139,0)="""RTN"",""PSORENW0"",194,0)"
^XMB(3.9,109,2,1140,0)=" N PSOOLP,PSOOKZ"
^XMB(3.9,109,2,1141,0)="""RTN"",""PSORENW0"",195,0)"
^XMB(3.9,109,2,1142,0)=" S PSOOLP="""",(PSOOLPF,PSONOSIG)=0 F  S PSOOLP=$O(^PSRX(PSOOCPRX,6,PSOOLP)) Q:PSOOLP=""""!(PSOOLPF)  I $P($G(^PSRX(PSOOCPRX,6,PSOOLP,0)),""^"")[""0.."" S PSOOLPD=$P($G(^(0)),""^""),PSOOLPF=1"
^XMB(3.9,109,2,1143,0)="""RTN"",""PSORENW0"",196,0)"
^XMB(3.9,109,2,1144,0)=" Q:PSOOLPF"
^XMB(3.9,109,2,1145,0)="""RTN"",""PSORENW0"",197,0)"
^XMB(3.9,109,2,1146,0)=" S PSOOKZ=0"
^XMB(3.9,109,2,1147,0)="""RTN"",""PSORENW0"",198,0)"
^XMB(3.9,109,2,1148,0)=" I $P($G(^PSRX(PSOOCPRX,""SIG"")),""^"",2) S PSOOLP="""" F  S PSOOLP=$O(^PSRX(PSOOCPRX,""SIG1"",PSOOLP)) Q:PSOOLP=""""!(PSOOKZ)  I $G(^PSRX(PSOOCPRX,""SIG1"",PSOOLP,0))'="""" S PSOOKZ=1"
^XMB(3.9,109,2,1149,0)="""RTN"",""PSORENW0"",199,0)"
^XMB(3.9,109,2,1150,0)=" I '$P($G(^PSRX(PSOOCPRX,""SIG"")),""^"",2),$P($G(^(""SIG"")),""^"")'="""" S PSOOKZ=1"
^XMB(3.9,109,2,1151,0)="""RTN"",""PSORENW0"",200,0)"
^XMB(3.9,109,2,1152,0)=" I 'PSOOKZ S PSONOSIG=1"
^XMB(3.9,109,2,1153,0)="""RTN"",""PSORENW0"",201,0)"
^XMB(3.9,109,2,1154,0)=" Q"
^XMB(3.9,109,2,1155,0)="""VER"")"
^XMB(3.9,109,2,1156,0)="8.0^22.0"
^XMB(3.9,109,2,1157,0)="""BLD"",6646,6)"
^XMB(3.9,109,2,1158,0)="^214"
^XMB(3.9,109,2,1159,0)="$END KID PSO*7.0*237"
^XMB(3.9,109,6,0)="^3.911A^2^2"
^XMB(3.9,109,6,1,0)="POSTMASTER"
^XMB(3.9,109,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,109,6,"B","POSTMASTER",1)=""
^XMB(3.9,109,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,110,0)="PSO-7_SEQ-215_PAT-244.KID^.5^3061008.015741^^^^K"
^XMB(3.9,110,.6)="3061008"
^XMB(3.9,110,1,0)="^3.91A^2^2"
^XMB(3.9,110,1,1,0)=".5^0^3061008.015741^^^^^^^3061008.015741"
^XMB(3.9,110,1,2,0)="1^0^3061008.022334^^^^^^^3061008.022334"
^XMB(3.9,110,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,110,1,"C",.5,1)=""
^XMB(3.9,110,1,"C",1,2)=""
^XMB(3.9,110,2,0)="^^1793^1793^3061008"
^XMB(3.9,110,2,1,0)="$TXT EMERGENCY Released PSO*7*244 SEQ #215"
^XMB(3.9,110,2,2,0)="Extracted from mail message"
^XMB(3.9,110,2,3,0)="$END TXT"
^XMB(3.9,110,2,4,0)="$KID PSO*7.0*244"
^XMB(3.9,110,2,5,0)="**INSTALL NAME**"
^XMB(3.9,110,2,6,0)="PSO*7.0*244"
^XMB(3.9,110,2,7,0)="""BLD"",6775,0)"
^XMB(3.9,110,2,8,0)="PSO*7.0*244^OUTPATIENT PHARMACY^0^3060720^y"
^XMB(3.9,110,2,9,0)="""BLD"",6775,1,0)"
^XMB(3.9,110,2,10,0)="^^2^2^3060424^"
^XMB(3.9,110,2,11,0)="""BLD"",6775,1,1,0)"
^XMB(3.9,110,2,12,0)="Prevent newly Discontinued Rx's due to edit from being sent to the"
^XMB(3.9,110,2,13,0)="""BLD"",6775,1,2,0)"
^XMB(3.9,110,2,14,0)="External Dispense Machines."
^XMB(3.9,110,2,15,0)="""BLD"",6775,4,0)"
^XMB(3.9,110,2,16,0)="^9.64PA^^"
^XMB(3.9,110,2,17,0)="""BLD"",6775,""ABPKG"")"
^XMB(3.9,110,2,18,0)="n"
^XMB(3.9,110,2,19,0)="""BLD"",6775,""KRN"",0)"
^XMB(3.9,110,2,20,0)="^9.67PA^8989.52^19"
^XMB(3.9,110,2,21,0)="""BLD"",6775,""KRN"",.4,0)"
^XMB(3.9,110,2,22,0)=".4"
^XMB(3.9,110,2,23,0)="""BLD"",6775,""KRN"",.401,0)"
^XMB(3.9,110,2,24,0)=".401"
^XMB(3.9,110,2,25,0)="""BLD"",6775,""KRN"",.402,0)"
^XMB(3.9,110,2,26,0)=".402"
^XMB(3.9,110,2,27,0)="""BLD"",6775,""KRN"",.403,0)"
^XMB(3.9,110,2,28,0)=".403"
^XMB(3.9,110,2,29,0)="""BLD"",6775,""KRN"",.5,0)"
^XMB(3.9,110,2,30,0)=".5"
^XMB(3.9,110,2,31,0)="""BLD"",6775,""KRN"",.84,0)"
^XMB(3.9,110,2,32,0)=".84"
^XMB(3.9,110,2,33,0)="""BLD"",6775,""KRN"",3.6,0)"
^XMB(3.9,110,2,34,0)="3.6"
^XMB(3.9,110,2,35,0)="""BLD"",6775,""KRN"",3.8,0)"
^XMB(3.9,110,2,36,0)="3.8"
^XMB(3.9,110,2,37,0)="""BLD"",6775,""KRN"",9.2,0)"
^XMB(3.9,110,2,38,0)="9.2"
^XMB(3.9,110,2,39,0)="""BLD"",6775,""KRN"",9.8,0)"
^XMB(3.9,110,2,40,0)="9.8"
^XMB(3.9,110,2,41,0)="""BLD"",6775,""KRN"",9.8,""NM"",0)"
^XMB(3.9,110,2,42,0)="^9.68A^7^6"
^XMB(3.9,110,2,43,0)="""BLD"",6775,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,110,2,44,0)="PSOBING1^^0^54041634"
^XMB(3.9,110,2,45,0)="""BLD"",6775,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,110,2,46,0)="PSOLLLH^^0^24123418"
^XMB(3.9,110,2,47,0)="""BLD"",6775,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,110,2,48,0)="PSOORED1^^0^67696730"
^XMB(3.9,110,2,49,0)="""BLD"",6775,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,110,2,50,0)="PSOLBL^^0^70864785"
^XMB(3.9,110,2,51,0)="""BLD"",6775,""KRN"",9.8,""NM"",6,0)"
^XMB(3.9,110,2,52,0)="PSOLBL4^^0^52469710"
^XMB(3.9,110,2,53,0)="""BLD"",6775,""KRN"",9.8,""NM"",7,0)"
^XMB(3.9,110,2,54,0)="PSOLLLI^^0^66394524"
^XMB(3.9,110,2,55,0)="""BLD"",6775,""KRN"",9.8,""NM"",""B"",""PSOBING1"",2)"
^XMB(3.9,110,2,56,0)=""
^XMB(3.9,110,2,57,0)="""BLD"",6775,""KRN"",9.8,""NM"",""B"",""PSOLBL"",5)"
^XMB(3.9,110,2,58,0)=""
^XMB(3.9,110,2,59,0)="""BLD"",6775,""KRN"",9.8,""NM"",""B"",""PSOLBL4"",6)"
^XMB(3.9,110,2,60,0)=""
^XMB(3.9,110,2,61,0)="""BLD"",6775,""KRN"",9.8,""NM"",""B"",""PSOLLLH"",3)"
^XMB(3.9,110,2,62,0)=""
^XMB(3.9,110,2,63,0)="""BLD"",6775,""KRN"",9.8,""NM"",""B"",""PSOLLLI"",7)"
^XMB(3.9,110,2,64,0)=""
^XMB(3.9,110,2,65,0)="""BLD"",6775,""KRN"",9.8,""NM"",""B"",""PSOORED1"",4)"
^XMB(3.9,110,2,66,0)=""
^XMB(3.9,110,2,67,0)="""BLD"",6775,""KRN"",19,0)"
^XMB(3.9,110,2,68,0)="19"
^XMB(3.9,110,2,69,0)="""BLD"",6775,""KRN"",19.1,0)"
^XMB(3.9,110,2,70,0)="19.1"
^XMB(3.9,110,2,71,0)="""BLD"",6775,""KRN"",101,0)"
^XMB(3.9,110,2,72,0)="101"
^XMB(3.9,110,2,73,0)="""BLD"",6775,""KRN"",409.61,0)"
^XMB(3.9,110,2,74,0)="409.61"
^XMB(3.9,110,2,75,0)="""BLD"",6775,""KRN"",771,0)"
^XMB(3.9,110,2,76,0)="771"
^XMB(3.9,110,2,77,0)="""BLD"",6775,""KRN"",870,0)"
^XMB(3.9,110,2,78,0)="870"
^XMB(3.9,110,2,79,0)="""BLD"",6775,""KRN"",8989.51,0)"
^XMB(3.9,110,2,80,0)="8989.51"
^XMB(3.9,110,2,81,0)="""BLD"",6775,""KRN"",8989.52,0)"
^XMB(3.9,110,2,82,0)="8989.52"
^XMB(3.9,110,2,83,0)="""BLD"",6775,""KRN"",8994,0)"
^XMB(3.9,110,2,84,0)="8994"
^XMB(3.9,110,2,85,0)="""BLD"",6775,""KRN"",""B"",.4,.4)"
^XMB(3.9,110,2,86,0)=""
^XMB(3.9,110,2,87,0)="""BLD"",6775,""KRN"",""B"",.401,.401)"
^XMB(3.9,110,2,88,0)=""
^XMB(3.9,110,2,89,0)="""BLD"",6775,""KRN"",""B"",.402,.402)"
^XMB(3.9,110,2,90,0)=""
^XMB(3.9,110,2,91,0)="""BLD"",6775,""KRN"",""B"",.403,.403)"
^XMB(3.9,110,2,92,0)=""
^XMB(3.9,110,2,93,0)="""BLD"",6775,""KRN"",""B"",.5,.5)"
^XMB(3.9,110,2,94,0)=""
^XMB(3.9,110,2,95,0)="""BLD"",6775,""KRN"",""B"",.84,.84)"
^XMB(3.9,110,2,96,0)=""
^XMB(3.9,110,2,97,0)="""BLD"",6775,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,110,2,98,0)=""
^XMB(3.9,110,2,99,0)="""BLD"",6775,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,110,2,100,0)=""
^XMB(3.9,110,2,101,0)="""BLD"",6775,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,110,2,102,0)=""
^XMB(3.9,110,2,103,0)="""BLD"",6775,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,110,2,104,0)=""
^XMB(3.9,110,2,105,0)="""BLD"",6775,""KRN"",""B"",19,19)"
^XMB(3.9,110,2,106,0)=""
^XMB(3.9,110,2,107,0)="""BLD"",6775,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,110,2,108,0)=""
^XMB(3.9,110,2,109,0)="""BLD"",6775,""KRN"",""B"",101,101)"
^XMB(3.9,110,2,110,0)=""
^XMB(3.9,110,2,111,0)="""BLD"",6775,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,110,2,112,0)=""
^XMB(3.9,110,2,113,0)="""BLD"",6775,""KRN"",""B"",771,771)"
^XMB(3.9,110,2,114,0)=""
^XMB(3.9,110,2,115,0)="""BLD"",6775,""KRN"",""B"",870,870)"
^XMB(3.9,110,2,116,0)=""
^XMB(3.9,110,2,117,0)="""BLD"",6775,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,110,2,118,0)=""
^XMB(3.9,110,2,119,0)="""BLD"",6775,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,110,2,120,0)=""
^XMB(3.9,110,2,121,0)="""BLD"",6775,""KRN"",""B"",8994,8994)"
^XMB(3.9,110,2,122,0)=""
^XMB(3.9,110,2,123,0)="""BLD"",6775,""QUES"",0)"
^XMB(3.9,110,2,124,0)="^9.62^^"
^XMB(3.9,110,2,125,0)="""BLD"",6775,""REQB"",0)"
^XMB(3.9,110,2,126,0)="^9.611^4^4"
^XMB(3.9,110,2,127,0)="""BLD"",6775,""REQB"",1,0)"
^XMB(3.9,110,2,128,0)="PSO*7.0*135^2"
^XMB(3.9,110,2,129,0)="""BLD"",6775,""REQB"",2,0)"
^XMB(3.9,110,2,130,0)="PSO*7.0*156^2"
^XMB(3.9,110,2,131,0)="""BLD"",6775,""REQB"",3,0)"
^XMB(3.9,110,2,132,0)="PSO*7.0*148^2"
^XMB(3.9,110,2,133,0)="""BLD"",6775,""REQB"",4,0)"
^XMB(3.9,110,2,134,0)="PSO*7.0*157^2"
^XMB(3.9,110,2,135,0)="""BLD"",6775,""REQB"",""B"",""PSO*7.0*135"",1)"
^XMB(3.9,110,2,136,0)=""
^XMB(3.9,110,2,137,0)="""BLD"",6775,""REQB"",""B"",""PSO*7.0*148"",3)"
^XMB(3.9,110,2,138,0)=""
^XMB(3.9,110,2,139,0)="""BLD"",6775,""REQB"",""B"",""PSO*7.0*156"",2)"
^XMB(3.9,110,2,140,0)=""
^XMB(3.9,110,2,141,0)="""BLD"",6775,""REQB"",""B"",""PSO*7.0*157"",4)"
^XMB(3.9,110,2,142,0)=""
^XMB(3.9,110,2,143,0)="""MBREQ"")"
^XMB(3.9,110,2,144,0)="0"
^XMB(3.9,110,2,145,0)="""PKG"",134,-1)"
^XMB(3.9,110,2,146,0)="1^1"
^XMB(3.9,110,2,147,0)="""PKG"",134,0)"
^XMB(3.9,110,2,148,0)="OUTPATIENT PHARMACY^PSO^OUTPATIENT LABELS, PROFILE, INVENTORY, PRESCRIPTIONS"
^XMB(3.9,110,2,149,0)="""PKG"",134,20,0)"
^XMB(3.9,110,2,150,0)="^9.402P^^"
^XMB(3.9,110,2,151,0)="""PKG"",134,22,0)"
^XMB(3.9,110,2,152,0)="^9.49I^1^1"
^XMB(3.9,110,2,153,0)="""PKG"",134,22,1,0)"
^XMB(3.9,110,2,154,0)="7.0^2971216^2980417^1271"
^XMB(3.9,110,2,155,0)="""PKG"",134,22,1,""PAH"",1,0)"
^XMB(3.9,110,2,156,0)="244^3060720"
^XMB(3.9,110,2,157,0)="""PKG"",134,22,1,""PAH"",1,1,0)"
^XMB(3.9,110,2,158,0)="^^2^2^3060720"
^XMB(3.9,110,2,159,0)="""PKG"",134,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,110,2,160,0)="Prevent newly Discontinued Rx's due to edit from being sent to the"
^XMB(3.9,110,2,161,0)="""PKG"",134,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,110,2,162,0)="External Dispense Machines."
^XMB(3.9,110,2,163,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,110,2,164,0)="Y"
^XMB(3.9,110,2,165,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,110,2,166,0)="^D REP^XPDH"
^XMB(3.9,110,2,167,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,110,2,168,0)="Shall I write over your |FLAG| File"
^XMB(3.9,110,2,169,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,110,2,170,0)="YES"
^XMB(3.9,110,2,171,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,110,2,172,0)="D XPF1^XPDIQ"
^XMB(3.9,110,2,173,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,110,2,174,0)="Y"
^XMB(3.9,110,2,175,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,110,2,176,0)="^D DTA^XPDH"
^XMB(3.9,110,2,177,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,110,2,178,0)="Want my data |FLAG| yours"
^XMB(3.9,110,2,179,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,110,2,180,0)="YES"
^XMB(3.9,110,2,181,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,110,2,182,0)="D XPF2^XPDIQ"
^XMB(3.9,110,2,183,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,110,2,184,0)="YO"
^XMB(3.9,110,2,185,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,110,2,186,0)="^D INHIBIT^XPDH"
^XMB(3.9,110,2,187,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,110,2,188,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,110,2,189,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,110,2,190,0)="YES"
^XMB(3.9,110,2,191,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,110,2,192,0)="D XPI1^XPDIQ"
^XMB(3.9,110,2,193,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,110,2,194,0)="PO^VA(200,:EM"
^XMB(3.9,110,2,195,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,110,2,196,0)="^D MG^XPDH"
^XMB(3.9,110,2,197,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,110,2,198,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,110,2,199,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,110,2,200,0)=""
^XMB(3.9,110,2,201,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,110,2,202,0)="D XPM1^XPDIQ"
^XMB(3.9,110,2,203,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,110,2,204,0)="Y"
^XMB(3.9,110,2,205,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,110,2,206,0)="^D MENU^XPDH"
^XMB(3.9,110,2,207,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,110,2,208,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,110,2,209,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,110,2,210,0)="YES"
^XMB(3.9,110,2,211,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,110,2,212,0)="D XPO1^XPDIQ"
^XMB(3.9,110,2,213,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,110,2,214,0)="Y"
^XMB(3.9,110,2,215,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,110,2,216,0)="^D OPT^XPDH"
^XMB(3.9,110,2,217,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,110,2,218,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,110,2,219,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,110,2,220,0)="YES"
^XMB(3.9,110,2,221,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,110,2,222,0)="D XPZ1^XPDIQ"
^XMB(3.9,110,2,223,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,110,2,224,0)="Y"
^XMB(3.9,110,2,225,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,110,2,226,0)="^D RTN^XPDH"
^XMB(3.9,110,2,227,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,110,2,228,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,110,2,229,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,110,2,230,0)="NO"
^XMB(3.9,110,2,231,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,110,2,232,0)="D XPZ2^XPDIQ"
^XMB(3.9,110,2,233,0)="""RTN"")"
^XMB(3.9,110,2,234,0)="6"
^XMB(3.9,110,2,235,0)="""RTN"",""PSOBING1"")"
^XMB(3.9,110,2,236,0)="0^2^B54041634^B52182367"
^XMB(3.9,110,2,237,0)="""RTN"",""PSOBING1"",1,0)"
^XMB(3.9,110,2,238,0)="PSOBING1 ;BHAM ISC/LC - bingo board utility routine ;6/29/06 11:46am"
^XMB(3.9,110,2,239,0)="""RTN"",""PSOBING1"",2,0)"
^XMB(3.9,110,2,240,0)=" ;;7.0;OUTPATIENT PHARMACY;**5,28,56,135,244**;DEC 1997"
^XMB(3.9,110,2,241,0)="""RTN"",""PSOBING1"",3,0)"
^XMB(3.9,110,2,242,0)=" ;External reference to ^PS(55 supported by DBIA 2228"
^XMB(3.9,110,2,243,0)="""RTN"",""PSOBING1"",4,0)"
^XMB(3.9,110,2,244,0)=" ;External reference to DD(52.11 and DD(59.2 supported by DBIA 999"
^XMB(3.9,110,2,245,0)="""RTN"",""PSOBING1"",5,0)"
^XMB(3.9,110,2,246,0)=" ;"
^XMB(3.9,110,2,247,0)="""RTN"",""PSOBING1"",6,0)"
^XMB(3.9,110,2,248,0)=" ;*244 don't store to file 52.11 if Rx Status > 11"
^XMB(3.9,110,2,249,0)="""RTN"",""PSOBING1"",7,0)"
^XMB(3.9,110,2,250,0)=" ;"
^XMB(3.9,110,2,251,0)="""RTN"",""PSOBING1"",8,0)"
^XMB(3.9,110,2,252,0)="BEG D:'$D(PSOPAR) ^PSOLSET G:'$D(PSOPAR) END"
^XMB(3.9,110,2,253,0)="""RTN"",""PSOBING1"",9,0)"
^XMB(3.9,110,2,254,0)="NEW K DD,DO S (DIC,DIE)=""^PS(52.11,"",(NDA,X,DA)=PSODFN,DIC(0)=""LMNQZ"" D FILE^DICN K DIC G:Y'>0 NEW S (ODA,DA)=+Y,BNGSUS=0 S:$D(SUSROUTE) BNGSUS=1"
^XMB(3.9,110,2,255,0)="""RTN"",""PSOBING1"",10,0)"
^XMB(3.9,110,2,256,0)="NEW1 S GRTP=$P($G(^PS(59.3,DISGROUP,0)),""^"",2),NAM=$P($G(^DPT(PSODFN,0)),""^""),SSN=$P($G(^DPT(PSODFN,0)),""^"",9) I GRTP=""T"" D  G:'$D(DA) END"
^XMB(3.9,110,2,257,0)="""RTN"",""PSOBING1"",11,0)"
^XMB(3.9,110,2,258,0)=" .K TFLAG S DR=""1;2////""_DISGROUP_"";3////""_PSOSITE_"";4////""_TM_"";5////""_$E(TM1_""0000"",1,4)_"";8////""_NAM_"";9////""_SSN_"";13////""_BNGSUS_"""" D STO  Q:'$D(DA)"
^XMB(3.9,110,2,259,0)="""RTN"",""PSOBING1"",12,0)"
^XMB(3.9,110,2,260,0)=" .W !! S TIC=$P(^PS(52.11,DA,0),""^"",2) D"
^XMB(3.9,110,2,261,0)="""RTN"",""PSOBING1"",13,0)"
^XMB(3.9,110,2,262,0)=" ..F TIEN=0:0 S TIEN=$O(^PS(52.11,""C"",TIC,TIEN)) Q:'TIEN  I DA'=TIEN,($P(^PS(52.11,DA,0),""^"",4)=+$P(^PS(52.11,TIEN,0),""^"",4)) D"
^XMB(3.9,110,2,263,0)="""RTN"",""PSOBING1"",14,0)"
^XMB(3.9,110,2,264,0)=" ...S TDFN=$P(^PS(52.11,TIEN,0),""^""),TSSN=$P(^PS(52.11,TIEN,1),""^"",2),TFLAG=0 W !,$C(7),$P(^DPT(TDFN,0),""^"")_"" (""_TSSN_"") was issued ticket # ""_TIC,"". Try again!"",!"
^XMB(3.9,110,2,265,0)="""RTN"",""PSOBING1"",15,0)"
^XMB(3.9,110,2,266,0)=" ..K TDFN,TIEN,TSSN Q:'TFLAG"
^XMB(3.9,110,2,267,0)="""RTN"",""PSOBING1"",16,0)"
^XMB(3.9,110,2,268,0)=" I $G(GRTP)=""T"" G:'TFLAG NEW1 G:TFLAG END"
^XMB(3.9,110,2,269,0)="""RTN"",""PSOBING1"",17,0)"
^XMB(3.9,110,2,270,0)=" S DR=""2////""_DISGROUP_"";3////""_PSOSITE_"";4////""_TM_"";5////""_$E(TM1_""0000"",1,4)_"";8////""_NAM_"";9////""_SSN_"";13////""_BNGSUS_"""""
^XMB(3.9,110,2,271,0)="""RTN"",""PSOBING1"",18,0)"
^XMB(3.9,110,2,272,0)="STO S NFLAG=1 L +^PS(52.11,DA):2 E  W !!,$C(7),Y(0,0),"" is being edited!"",! S DA=NDA D WARN Q:$G(GRTP)=""T""  G END"
^XMB(3.9,110,2,273,0)="""RTN"",""PSOBING1"",19,0)"
^XMB(3.9,110,2,274,0)=" S XDA=DA D ^DIE I $G(DUOUT)!($G(DTOUT))!(X="""") S DA=ODA D WARN G END"
^XMB(3.9,110,2,275,0)="""RTN"",""PSOBING1"",20,0)"
^XMB(3.9,110,2,276,0)=" S DA=XDA D STORX S DA=XDA L -^PS(52.11,DA)"
^XMB(3.9,110,2,277,0)="""RTN"",""PSOBING1"",21,0)"
^XMB(3.9,110,2,278,0)=" S TFLAG=1 D:$G(GRTP)=""N"" CHKUP^PSOBINGO,NOTE G:$G(GRTP)=""N"" END"
^XMB(3.9,110,2,279,0)="""RTN"",""PSOBING1"",22,0)"
^XMB(3.9,110,2,280,0)=" Q"
^XMB(3.9,110,2,281,0)="""RTN"",""PSOBING1"",23,0)"
^XMB(3.9,110,2,282,0)="NOTE S DFN=$P($G(^PS(52.11,DA,0)),""^""),NFLAG=1 W !!,?5,""NAME"",?30,""SSN"",?45,""ID"",?50,""ORDER"""
^XMB(3.9,110,2,283,0)="""RTN"",""PSOBING1"",24,0)"
^XMB(3.9,110,2,284,0)=" F Z=0:0 S Z=$O(^PS(52.11,""B"",DFN,Z)) Q:'Z  S ZDA=Z S NODE=^PS(52.11,ZDA,1),Z1=$P($G(NODE),""^""),Z2=$P($G(NODE),""^"",3),Z3=$P($G(NODE),""^"",4),Z4=$P($G(NODE),""^"",2) W !,?5,Z1,?30,Z4,?46,Z2,?52,Z3"
^XMB(3.9,110,2,285,0)="""RTN"",""PSOBING1"",25,0)"
^XMB(3.9,110,2,286,0)=" W !!,""Please advise the patient that the above ID # and/or ORDER Letter"""
^XMB(3.9,110,2,287,0)="""RTN"",""PSOBING1"",26,0)"
^XMB(3.9,110,2,288,0)=" W !,""will be displayed with his/her name on the Bingo Display"",!!"
^XMB(3.9,110,2,289,0)="""RTN"",""PSOBING1"",27,0)"
^XMB(3.9,110,2,290,0)=" I $G(^PS(55,""ASTALK"",DFN)) W !,$C(7),""** "",Z1,"" is enrolled for ScripTalk."",!,""  Please use label(s) from ScripTalk printer."" D  W !"
^XMB(3.9,110,2,291,0)="""RTN"",""PSOBING1"",28,0)"
^XMB(3.9,110,2,292,0)=" .I $P($G(^PS(59,+PSOSITE,""STALK"")),""^"")="""" W !,""  ** NO SCRIPTALK PRINTER DEFINED FOR THIS DIVISION!"",! Q"
^XMB(3.9,110,2,293,0)="""RTN"",""PSOBING1"",29,0)"
^XMB(3.9,110,2,294,0)=" .I $P($G(^PS(59,+PSOSITE,""STALK"")),""^"",2)'=""A"" W !,""  ** SCRIPTALK PRINTER IS NOT DEFINED FOR AUTO-PRINT"",!,""You must manually queue the ScripTalk label(s) to print."",!"
^XMB(3.9,110,2,295,0)="""RTN"",""PSOBING1"",30,0)"
^XMB(3.9,110,2,296,0)=" K NODE,Z1,Z2,Z3"
^XMB(3.9,110,2,297,0)="""RTN"",""PSOBING1"",31,0)"
^XMB(3.9,110,2,298,0)=" Q"
^XMB(3.9,110,2,299,0)="""RTN"",""PSOBING1"",32,0)"
^XMB(3.9,110,2,300,0)="HELP W !!,""Wand the barcode of the Rx or manually key in"",!,""the number below the barcode, the Rx number, or the"",!,""patient name in the format - 'LASTNAME,FIRSTNAME'"""
^XMB(3.9,110,2,301,0)="""RTN"",""PSOBING1"",33,0)"
^XMB(3.9,110,2,302,0)=" W !!,""The barcode # should be of the format - 'NNN-NNNNNNN'"""
^XMB(3.9,110,2,303,0)="""RTN"",""PSOBING1"",34,0)"
^XMB(3.9,110,2,304,0)=" Q"
^XMB(3.9,110,2,305,0)="""RTN"",""PSOBING1"",35,0)"
^XMB(3.9,110,2,306,0)="BCRMV W !! K DIR S DIR(""A"")=""Enter/Wand Rx # or Enter PATIENT NAME"",DIR(""?"")=""^D HELP^PSOBING1"",DIR(0)=""FO^1:45"" D ^DIR"
^XMB(3.9,110,2,307,0)="""RTN"",""PSOBING1"",36,0)"
^XMB(3.9,110,2,308,0)=" G:$D(DIRUT) END"
^XMB(3.9,110,2,309,0)="""RTN"",""PSOBING1"",37,0)"
^XMB(3.9,110,2,310,0)=" I X'[""-"" D BCI^PSODISP Q:'$G(RXP)  G BCRMV1"
^XMB(3.9,110,2,311,0)="""RTN"",""PSOBING1"",38,0)"
^XMB(3.9,110,2,312,0)=" I X[""-"",$P(X,""-"")'=$P($$SITE^VASITE(),""^"",3) W !?7,$C(7),"" INVALID STATION # !"",! G BCRMV"
^XMB(3.9,110,2,313,0)="""RTN"",""PSOBING1"",39,0)"
^XMB(3.9,110,2,314,0)=" I X[""-"" S RXP=$P(X,""-"",2) I '$D(^PSRX(+$G(RXP),0))!($G(RXP)']"""") W !?7,$C(7),"" NON-EXISTENT RX #"" G BCRMV"
^XMB(3.9,110,2,315,0)="""RTN"",""PSOBING1"",40,0)"
^XMB(3.9,110,2,316,0)=" G:$D(^PSRX(RXP,0)) BCRMV1"
^XMB(3.9,110,2,317,0)="""RTN"",""PSOBING1"",41,0)"
^XMB(3.9,110,2,318,0)=" W !?7,$C(7),"" IMPROPER BARCODE FORMAT"" G BCRMV"
^XMB(3.9,110,2,319,0)="""RTN"",""PSOBING1"",42,0)"
^XMB(3.9,110,2,320,0)="BCRMV1 S NME=$P($G(^PSRX(RXP,0)),""^"",2),BNAME=$P($G(^DPT(NME,0)),""^""),BDA="""",CNT1=0"
^XMB(3.9,110,2,321,0)="""RTN"",""PSOBING1"",43,0)"
^XMB(3.9,110,2,322,0)=" F XX=0:0 S XX=$O(^PS(52.11,""B"",NME,XX)) Q:'XX  D"
^XMB(3.9,110,2,323,0)="""RTN"",""PSOBING1"",44,0)"
^XMB(3.9,110,2,324,0)=" .F BRX=0:0 S BRX=$O(^PS(52.11,XX,2,""B"",BRX)) Q:'BRX  D"
^XMB(3.9,110,2,325,0)="""RTN"",""PSOBING1"",45,0)"
^XMB(3.9,110,2,326,0)=" ..I BRX=RXP S DA=XX"
^XMB(3.9,110,2,327,0)="""RTN"",""PSOBING1"",46,0)"
^XMB(3.9,110,2,328,0)=" I '$D(DA) W !!,BNAME,"" isn't in the Bingo Board file."",$C(7) G BCRMV"
^XMB(3.9,110,2,329,0)="""RTN"",""PSOBING1"",47,0)"
^XMB(3.9,110,2,330,0)=" I $D(^PS(52.11,""ANAMK"",DA)) W !!,BNAME,"" has already been removed from the display."",$C(7) G BCRMV"
^XMB(3.9,110,2,331,0)="""RTN"",""PSOBING1"",48,0)"
^XMB(3.9,110,2,332,0)=" D REMOVE1^PSOBINGO"
^XMB(3.9,110,2,333,0)="""RTN"",""PSOBING1"",49,0)"
^XMB(3.9,110,2,334,0)=" K BRX,DIK,DA,XX W !!,BNAME,"" is removed from the display."""
^XMB(3.9,110,2,335,0)="""RTN"",""PSOBING1"",50,0)"
^XMB(3.9,110,2,336,0)=" G BCRMV"
^XMB(3.9,110,2,337,0)="""RTN"",""PSOBING1"",51,0)"
^XMB(3.9,110,2,338,0)="WARN W !!,$C(7),""Bingo record is incomplete!"" S DIK=""^PS(52.11,"" D ^DIK K DIK,DA W !!,""Bingo record removed."",!"
^XMB(3.9,110,2,339,0)="""RTN"",""PSOBING1"",52,0)"
^XMB(3.9,110,2,340,0)=" Q"
^XMB(3.9,110,2,341,0)="""RTN"",""PSOBING1"",53,0)"
^XMB(3.9,110,2,342,0)="STORX ;Sto Rx # for each entry in 52.11"
^XMB(3.9,110,2,343,0)="""RTN"",""PSOBING1"",54,0)"
^XMB(3.9,110,2,344,0)=" Q:'$D(BBRX(1))  N DIC,DIE,NUM,BB,BBN,DR,FL,FLN,I"
^XMB(3.9,110,2,345,0)="""RTN"",""PSOBING1"",55,0)"
^XMB(3.9,110,2,346,0)=" S DA(1)=DA,(DIC,DIE)=""^PS(52.11,""_DA(1)_"",2,"",DIC(0)=""L"",DIC(""P"")=$P(^DD(52.11,12,0),""^"",2),DLAYGO=52.11"
^XMB(3.9,110,2,347,0)="""RTN"",""PSOBING1"",56,0)"
^XMB(3.9,110,2,348,0)=" F BBN=0:0 S BBN=$O(BBRX(BBN)) Q:'BBN  F NUM=1:1 S BB=$P(BBRX(BBN),"","",NUM) Q:'BB  D"
^XMB(3.9,110,2,349,0)="""RTN"",""PSOBING1"",57,0)"
^XMB(3.9,110,2,350,0)=" .Q:$G(^PSRX(BB,""STA""))>11                            ;*244"
^XMB(3.9,110,2,351,0)="""RTN"",""PSOBING1"",58,0)"
^XMB(3.9,110,2,352,0)=" .I $D(RXPR(BB)) S FL=""P"",FLN=$G(RXPR(BB))"
^XMB(3.9,110,2,353,0)="""RTN"",""PSOBING1"",59,0)"
^XMB(3.9,110,2,354,0)=" .I '$D(RXPR(BB)) F I=0:0 S I=$O(^PSRX(BB,1,I)) Q:'I  S FL=""F"",FLN=I"
^XMB(3.9,110,2,355,0)="""RTN"",""PSOBING1"",60,0)"
^XMB(3.9,110,2,356,0)=" .I '$D(FL) S FL=""F"",FLN=0"
^XMB(3.9,110,2,357,0)="""RTN"",""PSOBING1"",61,0)"
^XMB(3.9,110,2,358,0)=" .S X=$P(^PSRX(BB,0),""^"") D ^DIC"
^XMB(3.9,110,2,359,0)="""RTN"",""PSOBING1"",62,0)"
^XMB(3.9,110,2,360,0)=" .S DA=$P(Y,""^""),DR=""1////""_FL_"";2////""_FLN_"""" D ^DIE K FL,FLN"
^XMB(3.9,110,2,361,0)="""RTN"",""PSOBING1"",63,0)"
^XMB(3.9,110,2,362,0)=" Q"
^XMB(3.9,110,2,363,0)="""RTN"",""PSOBING1"",64,0)"
^XMB(3.9,110,2,364,0)=" ;"
^XMB(3.9,110,2,365,0)="""RTN"",""PSOBING1"",65,0)"
^XMB(3.9,110,2,366,0)="WTIME ;sto bingo wait time in 52"
^XMB(3.9,110,2,367,0)="""RTN"",""PSOBING1"",66,0)"
^XMB(3.9,110,2,368,0)=" Q:'$D(DA)!'$D(DIF)  S BDA=DA"
^XMB(3.9,110,2,369,0)="""RTN"",""PSOBING1"",67,0)"
^XMB(3.9,110,2,370,0)=" N DIE,XX,BRX1,BRXFL,BRXFLN,DR"
^XMB(3.9,110,2,371,0)="""RTN"",""PSOBING1"",68,0)"
^XMB(3.9,110,2,372,0)=" S DA(1)=DA,DIE=""^PS(52.11,""_DA(1)_"",2,"""
^XMB(3.9,110,2,373,0)="""RTN"",""PSOBING1"",69,0)"
^XMB(3.9,110,2,374,0)=" F XX=0:0 S XX=$O(^PS(52.11,BDA,2,XX)) Q:'XX  S DA=XX,BRX=$G(^PS(52.11,BDA,2,DA,0)),BRX1=$P(^(0),""^""),BRXFL=$P(^(0),""^"",2),BRXFLN=$P(^(0),""^"",3) D"
^XMB(3.9,110,2,375,0)="""RTN"",""PSOBING1"",70,0)"
^XMB(3.9,110,2,376,0)=" .S DR=""3////""_DIF_"""" D ^DIE D"
^XMB(3.9,110,2,377,0)="""RTN"",""PSOBING1"",71,0)"
^XMB(3.9,110,2,378,0)=" ..N DA,DIE S DA=BRX1"
^XMB(3.9,110,2,379,0)="""RTN"",""PSOBING1"",72,0)"
^XMB(3.9,110,2,380,0)=" ..I $G(BRXFLN)=0 S DIE=""^PSRX("",DR=""32.3////""_DIF_"""" D ^DIE K DIE"
^XMB(3.9,110,2,381,0)="""RTN"",""PSOBING1"",73,0)"
^XMB(3.9,110,2,382,0)=" ..I $G(BRXFLN)>0,$G(BRXFL)=""F"",$G(^PSRX(DA,1,BRXFLN,0)) S DA(1)=DA,DIE=""^PSRX(""_DA(1)_"",1,"",DA=BRXFLN,DR=""18////""_DIF_"""" D ^DIE K DIE"
^XMB(3.9,110,2,383,0)="""RTN"",""PSOBING1"",74,0)"
^XMB(3.9,110,2,384,0)=" ..I $G(BRXFLN)>0,$G(BRXFL)=""P"",$G(^PSRX(DA,""P"",BRXFLN,0)) S DA(1)=DA,DIE=""^PSRX(""_DA(1)_"",""""P"""","",DA=BRXFLN,DR=""9////""_DIF_"""" D ^DIE K DIE"
^XMB(3.9,110,2,385,0)="""RTN"",""PSOBING1"",75,0)"
^XMB(3.9,110,2,386,0)=" S DA=BDA K DIE,XX,BRX,BRX1,BRXFL,BRXFLN,DR,DA(1)"
^XMB(3.9,110,2,387,0)="""RTN"",""PSOBING1"",76,0)"
^XMB(3.9,110,2,388,0)=" Q"
^XMB(3.9,110,2,389,0)="""RTN"",""PSOBING1"",77,0)"
^XMB(3.9,110,2,390,0)=" ;"
^XMB(3.9,110,2,391,0)="""RTN"",""PSOBING1"",78,0)"
^XMB(3.9,110,2,392,0)="CREF ;check for deleted refills"
^XMB(3.9,110,2,393,0)="""RTN"",""PSOBING1"",79,0)"
^XMB(3.9,110,2,394,0)=" S BDA=DA,XX=0,BRB="""" F  S XX=$O(^PS(52.11,BDA,2,XX)) Q:'XX  S DA=XX D"
^XMB(3.9,110,2,395,0)="""RTN"",""PSOBING1"",80,0)"
^XMB(3.9,110,2,396,0)=" .S BRX0=$G(^PS(52.11,BDA,2,DA,0)),BRX1=$P(BRX0,""^""),BRXFL=$P(BRX0,""^"",2),BRXFLN=$P(BRX0,""^"",3)"
^XMB(3.9,110,2,397,0)="""RTN"",""PSOBING1"",81,0)"
^XMB(3.9,110,2,398,0)=" .I BRXFLN,BRXFL=""F"",$G(^PSRX(BRX1,1,BRXFLN,0))']"""" D"
^XMB(3.9,110,2,399,0)="""RTN"",""PSOBING1"",82,0)"
^XMB(3.9,110,2,400,0)=" ..S DA(1)=BDA,DIK=""^PS(52.11,""_DA(1)_"",2,"" D ^DIK K DIK,DA(1)"
^XMB(3.9,110,2,401,0)="""RTN"",""PSOBING1"",83,0)"
^XMB(3.9,110,2,402,0)=" ..S BRB=BRB_$S(BRB="""":"""",1:""; "")_BRX1_"",""_BRXFLN"
^XMB(3.9,110,2,403,0)="""RTN"",""PSOBING1"",84,0)"
^XMB(3.9,110,2,404,0)=" S DA=BDA I BRB]"""",$P($G(^PS(52.11,BDA,2,0)),""^"",4)=0 D"
^XMB(3.9,110,2,405,0)="""RTN"",""PSOBING1"",85,0)"
^XMB(3.9,110,2,406,0)=" .W !!,$C(7),""Refill(s) ""_BRB_"" does not exist."",!,""It can't be displayed and is now deleted."""
^XMB(3.9,110,2,407,0)="""RTN"",""PSOBING1"",86,0)"
^XMB(3.9,110,2,408,0)=" .S DIK=""^PS(52.11,"" D ^DIK S PSODRF=1"
^XMB(3.9,110,2,409,0)="""RTN"",""PSOBING1"",87,0)"
^XMB(3.9,110,2,410,0)=" K BDA,BRB,BRX0,BRX1,BRXFL,BRXFLN"
^XMB(3.9,110,2,411,0)="""RTN"",""PSOBING1"",88,0)"
^XMB(3.9,110,2,412,0)=" Q"
^XMB(3.9,110,2,413,0)="""RTN"",""PSOBING1"",89,0)"
^XMB(3.9,110,2,414,0)=" ;"
^XMB(3.9,110,2,415,0)="""RTN"",""PSOBING1"",90,0)"
^XMB(3.9,110,2,416,0)="REL S BNGRXP=RXP N NAM,NAME,RXO,SSN"
^XMB(3.9,110,2,417,0)="""RTN"",""PSOBING1"",91,0)"
^XMB(3.9,110,2,418,0)=" S NAM=$P($G(^DPT(BINGNAM,0)),""^""),ADA="""",BNGRXP=RXP"
^XMB(3.9,110,2,419,0)="""RTN"",""PSOBING1"",92,0)"
^XMB(3.9,110,2,420,0)=" F XX=0:0 S XX=$O(^PS(52.11,""B"",BINGNAM,XX)) Q:'XX  D"
^XMB(3.9,110,2,421,0)="""RTN"",""PSOBING1"",93,0)"
^XMB(3.9,110,2,422,0)=" .F BRX=0:0 S BRX=$O(^PS(52.11,XX,2,""B"",BRX)) Q:'BRX  D"
^XMB(3.9,110,2,423,0)="""RTN"",""PSOBING1"",94,0)"
^XMB(3.9,110,2,424,0)=" ..I BRX=BNGRXP S (DA,ODA)=XX"
^XMB(3.9,110,2,425,0)="""RTN"",""PSOBING1"",95,0)"
^XMB(3.9,110,2,426,0)=" I '$D(DA) W !!,""The Rx for "",NAM,"" isn't in the Bingo Board"",!,""file and must be entered manually."",$C(7) G END"
^XMB(3.9,110,2,427,0)="""RTN"",""PSOBING1"",96,0)"
^XMB(3.9,110,2,428,0)=" I $P($G(^PS(52.11,DA,0)),""^"",7)]"""" W !!,NAM,""  is already in the display queue."",$C(7) G END"
^XMB(3.9,110,2,429,0)="""RTN"",""PSOBING1"",97,0)"
^XMB(3.9,110,2,430,0)=" I $P($P($G(^PS(52.11,DA,0)),""^"",5),""."")'=DT S Y=$P($P($G(^PS(52.11,DA,0)),""^"",5),""."") D DD^%DT W !!,$C(7),NAM,"" was entered on ""_Y_""."",!,""It can't be displayed and is now deleted."" S DIK=""^PS(52.11,"" D ^DIK K DIK G END"
^XMB(3.9,110,2,431,0)="""RTN"",""PSOBING1"",98,0)"
^XMB(3.9,110,2,432,0)=" G:$P($G(^PS(52.11,DA,0)),""^"",9) REL1"
^XMB(3.9,110,2,433,0)="""RTN"",""PSOBING1"",99,0)"
^XMB(3.9,110,2,434,0)=" I $P($G(^PS(52.11,DA,0)),""^"",4)'=PSOSITE W !!,NAM,"" is from another division"",!,""and must be displayed manually."",$C(7) G END"
^XMB(3.9,110,2,435,0)="""RTN"",""PSOBING1"",100,0)"
^XMB(3.9,110,2,436,0)=" I $D(BINGRO),$D(BINGDIV) S BDIV=BINGDIV G REL1"
^XMB(3.9,110,2,437,0)="""RTN"",""PSOBING1"",101,0)"
^XMB(3.9,110,2,438,0)=" I $D(BINGRPR),$D(BNGPDV) S BDIV=BNGPDV G REL1"
^XMB(3.9,110,2,439,0)="""RTN"",""PSOBING1"",102,0)"
^XMB(3.9,110,2,440,0)=" I $D(BINGRPR),$D(BNGRDV) S BDIV=BNGRDV G REL1"
^XMB(3.9,110,2,441,0)="""RTN"",""PSOBING1"",103,0)"
^XMB(3.9,110,2,442,0)="REL1 N TM,TM1 D NOW^%DTC S TM=$E(%,1,12),TM1=$P(TM,""."",2)"
^XMB(3.9,110,2,443,0)="""RTN"",""PSOBING1"",104,0)"
^XMB(3.9,110,2,444,0)=" S NM=$P(^DPT($P(^PS(52.11,DA,0),""^""),0),""^""),DR=""6////""_$E(TM1_""0000"",1,4)_"";8////""_NM_"""",DIE=""^PS(52.11,"""
^XMB(3.9,110,2,445,0)="""RTN"",""PSOBING1"",105,0)"
^XMB(3.9,110,2,446,0)=" L +^PS(52.11,DA):2 E  W !!,$C(7),NM,"" is being edited!"",! D WARN G END"
^XMB(3.9,110,2,447,0)="""RTN"",""PSOBING1"",106,0)"
^XMB(3.9,110,2,448,0)=" D ^DIE L -^PS(52.11,DA) I $G(DUOUT)!($G(DTOUT))!(X="""") D WARN G END"
^XMB(3.9,110,2,449,0)="""RTN"",""PSOBING1"",107,0)"
^XMB(3.9,110,2,450,0)=" S RX0=^PS(52.11,DA,0),JOES=$P(RX0,""^"",4),TICK=+$P($G(RX0),""^"",2),GRP=$P($G(^PS(59.3,$P($G(^PS(52.11,DA,0)),""^"",3),0)),""^"",2) D:GRP=""T""&('$G(TICK)) WARN G:'$D(DA) END"
^XMB(3.9,110,2,451,0)="""RTN"",""PSOBING1"",108,0)"
^XMB(3.9,110,2,452,0)=" W !!,NAM,"" added to the ""_$P($G(^PS(59.3,$P(RX0,""^"",3),0)),""^"")_"" display."""
^XMB(3.9,110,2,453,0)="""RTN"",""PSOBING1"",109,0)"
^XMB(3.9,110,2,454,0)=" I +$G(^PS(55,""ASTALK"",$P(^PS(52.11,DA,0),""^""))) W !,$C(7),""This patient is enrolled in ScripTalk and may benefit from"",!,""a non-visual announcement that prescriptions are ready."""
^XMB(3.9,110,2,455,0)="""RTN"",""PSOBING1"",110,0)"
^XMB(3.9,110,2,456,0)=" S PSZ=0 I '$D(^PS(59.2,DT,0)) K DD,DIC,DO,DA S X=DT,DIC=""^PS(59.2,"",DIC(0)="""",DINUM=X D FILE^DICN S PSZ=1 Q:Y'>0 "
^XMB(3.9,110,2,457,0)="""RTN"",""PSOBING1"",111,0)"
^XMB(3.9,110,2,458,0)=" I PSZ=1 S DA(1)=+Y,DIC=DIC_DA(1)_"",1,"",(DINUM,X)=JOES,DIC(0)="""",DIC(""P"")=$P(^DD(59.2,1,0),""^"",2) K DD,DO D FILE^DICN K DIC,DA Q:Y'>0"
^XMB(3.9,110,2,459,0)="""RTN"",""PSOBING1"",112,0)"
^XMB(3.9,110,2,460,0)=" I PSZ=0 K DD,DIC,DO,DA S DA(1)=DT,(DINUM,X)=JOES,DIC=""^PS(59.2,""_DT_"",1,"",DIC(0)=""LZ"" D FILE^DICN K DIC,DA,DO"
^XMB(3.9,110,2,461,0)="""RTN"",""PSOBING1"",113,0)"
^XMB(3.9,110,2,462,0)=" S DA=ODA D STATS1^PSOBRPRT,WTIME"
^XMB(3.9,110,2,463,0)="""RTN"",""PSOBING1"",114,0)"
^XMB(3.9,110,2,464,0)="END K ADA,BDA,BDIV,BNGRXP,BNGSUS,BNAME,BRX,CNT1,CT,DA,DD,DIC,DIE,DIK,DIR,DO,DR,DTOUT,DUOUT,GRP,GRTP,JOES"
^XMB(3.9,110,2,465,0)="""RTN"",""PSOBING1"",115,0)"
^XMB(3.9,110,2,466,0)=" K NAM,NDA,NFLAG,NME,ODA,PSZ,RXO,SSN,TDFN,TFLAG,TIC,TICK,TIEN,TM,TM1,TSSN,X,Y,XX"
^XMB(3.9,110,2,467,0)="""RTN"",""PSOBING1"",116,0)"
^XMB(3.9,110,2,468,0)=" Q"
^XMB(3.9,110,2,469,0)="""RTN"",""PSOLBL"")"
^XMB(3.9,110,2,470,0)="0^5^B70864785^B69139699"
^XMB(3.9,110,2,471,0)="""RTN"",""PSOLBL"",1,0)"
^XMB(3.9,110,2,472,0)="PSOLBL ;BIR/SAB/RTR-BOTTLE LABEL ;6/29/06 11:39am"
^XMB(3.9,110,2,473,0)="""RTN"",""PSOLBL"",2,0)"
^XMB(3.9,110,2,474,0)=" ;;7.0;OUTPATIENT PHARMACY;**8,19,30,36,47,71,92,120,157,244**;DEC 1997"
^XMB(3.9,110,2,475,0)="""RTN"",""PSOLBL"",3,0)"
^XMB(3.9,110,2,476,0)=" ;DBIAs PSDRUG-221, PS(55-2228, IBARX-125, PSXSRP-2201, %ZIS-3435, DPT-3097"
^XMB(3.9,110,2,477,0)="""RTN"",""PSOLBL"",4,0)"
^XMB(3.9,110,2,478,0)=" ;"
^XMB(3.9,110,2,479,0)="""RTN"",""PSOLBL"",5,0)"
^XMB(3.9,110,2,480,0)=" ;*244 remove test for partial fill when testing status > 11"
^XMB(3.9,110,2,481,0)="""RTN"",""PSOLBL"",6,0)"
^XMB(3.9,110,2,482,0)=" ;"
^XMB(3.9,110,2,483,0)="""RTN"",""PSOLBL"",7,0)"
^XMB(3.9,110,2,484,0)="DQ I $D(PSOIOS),PSOIOS]"""" D DEVBAR^PSOBMST"
^XMB(3.9,110,2,485,0)="""RTN"",""PSOLBL"",8,0)"
^XMB(3.9,110,2,486,0)=" I $G(PSOBAR0)]"""",$G(PSOBAR1)]"""",$D(^PS(59,PSOSITE,1)) S PSOBARS=1"
^XMB(3.9,110,2,487,0)="""RTN"",""PSOLBL"",9,0)"
^XMB(3.9,110,2,488,0)="DQ1 D ^PSOLBL4"
^XMB(3.9,110,2,489,0)="""RTN"",""PSOLBL"",10,0)"
^XMB(3.9,110,2,490,0)=" I $G(IOST(0)),$D(^%ZIS(2,IOST(0),55,""B"",""LL"")) G ^PSOLLLI"
^XMB(3.9,110,2,491,0)="""RTN"",""PSOLBL"",11,0)"
^XMB(3.9,110,2,492,0)=" G:'$D(PPL) HLEX G:($P($G(PSOPAR),""^"",30)=2)&('$G(PSOEXREP)) HLEX K RXFLX S PSOCKHN="",""_$G(PPL) S PSRESOLV=+PPL D CHECK F PI=1:1  D  S RX=$P(PPL,"","",PI) D C Q:$G(PSOLAPPL)  D:$G(PSDFNFLG) TRAIL^PSOLBL2 K RXP,REPRINT"
^XMB(3.9,110,2,493,0)="""RTN"",""PSOLBL"",12,0)"
^XMB(3.9,110,2,494,0)=" .S (PSDFNFLG,PSOLAPPL)=0 S NEXTRX=$P(PPL,"","",(PI+1)) I NEXTRX=""""!(NEXTRX="","") S PSOLAPPL=1 Q"
^XMB(3.9,110,2,495,0)="""RTN"",""PSOLBL"",13,0)"
^XMB(3.9,110,2,496,0)=" .I PSOPDFN'=$P(^PSRX(NEXTRX,0),""^"",2) S PSDFNFLG=1,PSOPDFN=$P(^PSRX(NEXTRX,0),""^"",2) Q"
^XMB(3.9,110,2,497,0)="""RTN"",""PSOLBL"",14,0)"
^XMB(3.9,110,2,498,0)=" I $P(^PS(59,PSOSITE,1),""^"",28) D ^PSOLBLN2"
^XMB(3.9,110,2,499,0)="""RTN"",""PSOLBL"",15,0)"
^XMB(3.9,110,2,500,0)=" D:'$P(^PS(59,PSOSITE,1),""^"",28) ^PSOLBLS"
^XMB(3.9,110,2,501,0)="""RTN"",""PSOLBL"",16,0)"
^XMB(3.9,110,2,502,0)="DQ5 I $D(^TMP($J,""PSOCP"",DFN)),'$P(^PS(59,PSOSITE,1),""^"",28) D INV^PSOCPE"
^XMB(3.9,110,2,503,0)="""RTN"",""PSOLBL"",17,0)"
^XMB(3.9,110,2,504,0)="HLEX K RXPI,PSORX,RXP,PSOIOS,PSOLAPPL,XXX,COPAYVAR,TECH,PHYS,MFG,NURSE,STATE,SIDE,COPIES,EXDT,ISD,PSOINST,RXN,RXY,VADT,DEA,WARN,FDT,QTY,PATST,PDA,PS,PS1,PS2,PSL,PSNP,INRX,RR,XTYPE,SSNP,SSNPN,PNM,ADDR,PSODBQ,PSOLASTF,PSRESOLV,PSOEXREP,PSOSXQ"
^XMB(3.9,110,2,505,0)="""RTN"",""PSOLBL"",18,0)"
^XMB(3.9,110,2,506,0)=" K ^TMP($J,""PSOCP"",+$G(PSOCPN)),PSOCPN,PSOLBLDR,PSOLBLPS,PSOLBLCP,RXPR,RXRP,RXRS,PSOCKHN,RXFLX,PSOLAPPL,PSOPDFN,PSDFNFLG,PSOZERO,NEXTRX,PSOBLALL,STA S:'$G(PSOSUREP)&('$G(PSOSUSPR)) ZTREQ=""@"" Q"
^XMB(3.9,110,2,507,0)="""RTN"",""PSOLBL"",19,0)"
^XMB(3.9,110,2,508,0)="C I $G(IOST(0)),$D(^%ZIS(2,IOST(0),55,""B"",""LL"")) G C^PSOLLLI"
^XMB(3.9,110,2,509,0)="""RTN"",""PSOLBL"",20,0)"
^XMB(3.9,110,2,510,0)=" U IO S X=$S('$P(^PS(59,PSOSITE,1),""^"",28):132,1:158) X ^%ZOSF(""RM"") Q:'$D(^PSRX(RX,0))"
^XMB(3.9,110,2,511,0)="""RTN"",""PSOLBL"",21,0)"
^XMB(3.9,110,2,512,0)=" S:$G(PSOBLALL) PSOBLRX=RX"
^XMB(3.9,110,2,513,0)="""RTN"",""PSOLBL"",22,0)"
^XMB(3.9,110,2,514,0)=" S:$D(RXRP(RX)) REPRINT=1 S:$D(RXPR(RX)) RXP=RXPR(RX)"
^XMB(3.9,110,2,515,0)="""RTN"",""PSOLBL"",23,0)"
^XMB(3.9,110,2,516,0)=" I $G(PSOSUREP)!($G(PSOEXREP)) S REPRINT=1 S:'$G(RXRP(RX)) RXRP(RX)=1"
^XMB(3.9,110,2,517,0)="""RTN"",""PSOLBL"",24,0)"
^XMB(3.9,110,2,518,0)=" S RXY=^PSRX(RX,0),RXSTA=$P(^PSRX(RX,""STA""),""^"") I RXSTA>11 D AL(""QT"") K RXY,RXP,REPRINT Q         ;*244"
^XMB(3.9,110,2,519,0)="""RTN"",""PSOLBL"",25,0)"
^XMB(3.9,110,2,520,0)=" I RXSTA=3 D AL(""QT"") K RXY,RXP,REPRINT Q"
^XMB(3.9,110,2,521,0)="""RTN"",""PSOLBL"",26,0)"
^XMB(3.9,110,2,522,0)=" I $G(RXPR(RX)),'$D(^PSRX(RX,""P"",RXP,0)) K RXY,RXP,REPRINT Q"
^XMB(3.9,110,2,523,0)="""RTN"",""PSOLBL"",27,0)"
^XMB(3.9,110,2,524,0)=" I $P($G(RXFL(RX)),""^""),'$D(^PSRX(RX,1,$P($G(RXFL(RX)),""^""),0)) K RXY,RXP,REPRINT Q"
^XMB(3.9,110,2,525,0)="""RTN"",""PSOLBL"",28,0)"
^XMB(3.9,110,2,526,0)=" I $G(PSODBQ)!($G(RXRS(RX))) S RR=$O(^PS(52.5,""B"",RX,0)) Q:'RR  I $G(^PS(52.5,RR,""P""))=1 K RXY,RXP,REPRINT Q"
^XMB(3.9,110,2,527,0)="""RTN"",""PSOLBL"",29,0)"
^XMB(3.9,110,2,528,0)=" I $G(RXRS(RX))!($G(PSOPULL)) S PSOSXQ=0 N DR,DA,DIE D  I $G(PSOSXQ) K RXY,RXP,REPRINT Q"
^XMB(3.9,110,2,529,0)="""RTN"",""PSOLBL"",30,0)"
^XMB(3.9,110,2,530,0)=" .S DA=$O(^PS(52.5,""B"",RX,0)) Q:'DA  S A=$P($G(^PS(52.5,DA,0)),""^"",7) Q:A="""""
^XMB(3.9,110,2,531,0)="""RTN"",""PSOLBL"",31,0)"
^XMB(3.9,110,2,532,0)=" .I A=""Q"" S DIE=""^PS(52.5,"",DR=""3////P"" D ^DIE Q"
^XMB(3.9,110,2,533,0)="""RTN"",""PSOLBL"",32,0)"
^XMB(3.9,110,2,534,0)=" .K RXRS(RX) S PSOSXQ=1"
^XMB(3.9,110,2,535,0)="""RTN"",""PSOLBL"",33,0)"
^XMB(3.9,110,2,536,0)=" I $G(PSRESOLV)=RX D ENLBL^PSOBSET K PSRESOLV"
^XMB(3.9,110,2,537,0)="""RTN"",""PSOLBL"",34,0)"
^XMB(3.9,110,2,538,0)=" I RXSTA'=4 D:$G(PSOSUSPR) AREC^PSOSUTL D:$G(PSOPULL)!($G(RXRS(RX))) AREC1^PSOSUTL D:$G(PSOSUREP) AREC^PSOSUSRP D:$G(PSXREP) AREC^PSXSRP"
^XMB(3.9,110,2,539,0)="""RTN"",""PSOLBL"",35,0)"
^XMB(3.9,110,2,540,0)=" K ^UTILITY(""DIQ1"",$J) S DA=$P($$SITE^VASITE(),""^"") I $G(DA) S DIC=4,DIQ(0)=""I"",DR=""99"" D EN^DIQ1 S PSOINST=$G(^UTILITY(""DIQ1"",$J,4,DA,99,""I"")) K ^UTILITY(""DIQ1"",$J),DA,DR,DIC"
^XMB(3.9,110,2,541,0)="""RTN"",""PSOLBL"",36,0)"
^XMB(3.9,110,2,542,0)=" S RXN=$P(RXY,""^""),ISD=$P(RXY,""^"",13),RXF=0,DFN=+$P(RXY,""^"",2),SIG=$P($G(^PSRX(RX,""SIG"")),""^""),ISD=$E(ISD,4,5)_""/""_$E(ISD,6,7)_""/""_($E(ISD,1,3)+1700),ZY=0,$P(LINE,""_"",28)=""_"""
^XMB(3.9,110,2,543,0)="""RTN"",""PSOLBL"",37,0)"
^XMB(3.9,110,2,544,0)=" S PSOLBLPS=+$P(RXY,""^"",3),PSOLBLDR=+$P(RXY,""^"",6)"
^XMB(3.9,110,2,545,0)="""RTN"",""PSOLBL"",38,0)"
^XMB(3.9,110,2,546,0)=" S NURSE=$S($P($G(^DPT(DFN,""NHC"")),""^"")=""Y"":1,$P($G(^PS(55,DFN,40)),""^""):1,1:0) S FDT=$P(^PSRX(RX,2),""^"",2),PS=$S($D(^PS(59,PSOSITE,0)):^(0),1:""""),PS1=$S($D(^(1)):^(1),1:""""),PSOSITE7=$P(^(""IB""),""^"")"
^XMB(3.9,110,2,547,0)="""RTN"",""PSOLBL"",39,0)"
^XMB(3.9,110,2,548,0)=" S PS2=$P(PS,""^"")_""^""_$P(PS,""^"",6)"
^XMB(3.9,110,2,549,0)="""RTN"",""PSOLBL"",40,0)"
^XMB(3.9,110,2,550,0)=" S (EXPDT,EXDT)=$P(^PSRX(RX,2),""^"",6),EXDT=$S('EXDT:"""",1:$E(EXDT,4,5)_""/""_$E(EXDT,6,7)_""/""_($E(EXDT,1,3)+1700))"
^XMB(3.9,110,2,551,0)="""RTN"",""PSOLBL"",41,0)"
^XMB(3.9,110,2,552,0)=" S COPIES=$S($P($G(RXRP(RX)),""^"",2):$P($G(RXRP(RX)),""^"",2),$P(RXY,""^"",18)]"""":$P(RXY,""^"",18),1:1)"
^XMB(3.9,110,2,553,0)="""RTN"",""PSOLBL"",42,0)"
^XMB(3.9,110,2,554,0)=" K PSOCKHNX S PSOCKHL=$L(RX),PSOCKHN=$E($G(PSOCKHN),(PSOCKHL+2),999) D  K PSOCKHNX,PSOCKHL,PSOCKHA"
^XMB(3.9,110,2,555,0)="""RTN"",""PSOLBL"",43,0)"
^XMB(3.9,110,2,556,0)=" .S PSOCKHA="",""_RX_"","""
^XMB(3.9,110,2,557,0)="""RTN"",""PSOLBL"",44,0)"
^XMB(3.9,110,2,558,0)=" .I PSOCKHN'[PSOCKHA Q"
^XMB(3.9,110,2,559,0)="""RTN"",""PSOLBL"",45,0)"
^XMB(3.9,110,2,560,0)=" .S PSOCKHA=$E(PSOCKHA,1,($L(PSOCKHA)-1))"
^XMB(3.9,110,2,561,0)="""RTN"",""PSOLBL"",46,0)"
^XMB(3.9,110,2,562,0)=" .S PSOCKHNX=$L(PSOCKHN,PSOCKHA)-1"
^XMB(3.9,110,2,563,0)="""RTN"",""PSOLBL"",47,0)"
^XMB(3.9,110,2,564,0)=" .I +$G(PSOCKHNX)>0 D DOUB"
^XMB(3.9,110,2,565,0)="""RTN"",""PSOLBL"",48,0)"
^XMB(3.9,110,2,566,0)=" I $O(^PSRX(RX,1,0)),$G(RXFL(RX))'=0 S $P(^PSRX(RX,3),""^"",6)="""" K ^PSRX(RX,""DAI""),^PSRX(RX,""DRI"")"
^XMB(3.9,110,2,567,0)="""RTN"",""PSOLBL"",49,0)"
^XMB(3.9,110,2,568,0)=" I '$G(RXP),'$O(^PSRX(RX,1,0)) S RXFL(RX)=0"
^XMB(3.9,110,2,569,0)="""RTN"",""PSOLBL"",50,0)"
^XMB(3.9,110,2,570,0)=" I '$G(RXP) D OSET I '$O(^PSRX(RX,1,0))!($G(RXFL(RX))=0) G ORIG"
^XMB(3.9,110,2,571,0)="""RTN"",""PSOLBL"",51,0)"
^XMB(3.9,110,2,572,0)=" I $O(^PSRX(RX,1,0)),'$G(RXP),'$G(RXFL(RX)) S XTYPE=1 D REF G STA"
^XMB(3.9,110,2,573,0)="""RTN"",""PSOLBL"",52,0)"
^XMB(3.9,110,2,574,0)=" I $O(^PSRX(RX,1,0)),'$G(RXP),$G(RXFL(RX)) G STA"
^XMB(3.9,110,2,575,0)="""RTN"",""PSOLBL"",53,0)"
^XMB(3.9,110,2,576,0)=" I $G(RXP) S XTYPE=""P"" D REF G STA"
^XMB(3.9,110,2,577,0)="""RTN"",""PSOLBL"",54,0)"
^XMB(3.9,110,2,578,0)="ORIG S TECH=$P($G(^VA(200,+$P(^PSRX(RX,0),""^"",16),0)),""^""),QTY=$P(^PSRX(RX,0),""^"",7),PHYS=$S($D(^VA(200,+$P(^PSRX(RX,0),""^"",4),0)):$P(^(0),""^""),1:""UKN"") D 6^VADPT,PID^VADPT S SSNPN=$E($G(VA(""PID"")),5,12)"
^XMB(3.9,110,2,579,0)="""RTN"",""PSOLBL"",55,0)"
^XMB(3.9,110,2,580,0)=" S DAYS=$P(^PSRX(RX,0),""^"",8),MFG=""________"",LOT=""________"""
^XMB(3.9,110,2,581,0)="""RTN"",""PSOLBL"",56,0)"
^XMB(3.9,110,2,582,0)="STA S STATE=$S($D(^DIC(5,+$P(PS,""^"",8),0)):$P(^(0),""^"",2),1:""UKN"")"
^XMB(3.9,110,2,583,0)="""RTN"",""PSOLBL"",57,0)"
^XMB(3.9,110,2,584,0)=" S DRUG=$$ZZ^PSOSUTL(RX),DEA=$P($G(^PSDRUG(+$P(RXY,""^"",6),0)),""^"",3),WARN=$P($G(^(0)),""^"",8)"
^XMB(3.9,110,2,585,0)="""RTN"",""PSOLBL"",58,0)"
^XMB(3.9,110,2,586,0)=" S SIDE=$S($P($G(RXRP(RX)),""^"",3):1,1:0)"
^XMB(3.9,110,2,587,0)="""RTN"",""PSOLBL"",59,0)"
^XMB(3.9,110,2,588,0)=" I $G(^PSRX(RX,""P"",+$G(RXP),0))]"""" S RXPI=RXP D"
^XMB(3.9,110,2,589,0)="""RTN"",""PSOLBL"",60,0)"
^XMB(3.9,110,2,590,0)=" .S RXP=^PSRX(RX,""P"",RXP,0)"
^XMB(3.9,110,2,591,0)="""RTN"",""PSOLBL"",61,0)"
^XMB(3.9,110,2,592,0)=" .S RXY=$P(RXP,""^"")_""^""_$P(RXY,""^"",2,6)_""^""_$P(RXP,""^"",4)_""^""_$P(RXP,""^"",10)_""^""_$P(RXY,""^"",9)_""^""_$P($G(^PSRX(RX,""SIG"")),""^"",2)_""^""_$P(RXP,""^"",2)_""^""_$P(RXY,""^"",12,14)_""^""_$P(^PSRX(RX,""STA""),""^"")_""^""_$P(RXP,""^"",7)_""^""_$P(RXY,""^"",17,99)"
^XMB(3.9,110,2,593,0)="""RTN"",""PSOLBL"",62,0)"
^XMB(3.9,110,2,594,0)=" .S FDT=$P(RXP,""^"")"
^XMB(3.9,110,2,595,0)="""RTN"",""PSOLBL"",63,0)"
^XMB(3.9,110,2,596,0)=" S MW=$P(RXY,""^"",11) I $G(RXFL(RX))'=0 D:$G(RXFL(RX))  I '$G(RXFL(RX)) F I=0:0 S I=$O(^PSRX(RX,1,I)) Q:'I  S RXF=RXF+1 S:'$G(RXP) MW=$P(^PSRX(RX,1,I,0),""^"",2) I +^PSRX(RX,1,I,0)'<FDT S FDT=+^(0)"
^XMB(3.9,110,2,597,0)="""RTN"",""PSOLBL"",64,0)"
^XMB(3.9,110,2,598,0)=" .I $G(RXFL(RX)),'$D(^PSRX(RX,1,RXFL(RX),0)) K RXFL(RX) Q"
^XMB(3.9,110,2,599,0)="""RTN"",""PSOLBL"",65,0)"
^XMB(3.9,110,2,600,0)=" .S RXF=RXFL(RX) S:'$G(RXP) MW=$P($G(^PSRX(RX,1,RXF,0)),""^"",2) I +^PSRX(RX,1,RXF,0)'<FDT S FDT=+^(0)"
^XMB(3.9,110,2,601,0)="""RTN"",""PSOLBL"",66,0)"
^XMB(3.9,110,2,602,0)=" I MW=""W"" S PSMP=$G(^PSRX(RX,""MP"")) I PSMP]"""" D"
^XMB(3.9,110,2,603,0)="""RTN"",""PSOLBL"",67,0)"
^XMB(3.9,110,2,604,0)=" .S PSJ=0 F PSI=1:1:$L(PSMP) S PSMP(PSI)="""",PSJ=PSJ+1 F PSJ=PSJ:1 S PSMP(PSI)=PSMP(PSI)_$P(PSMP,"" "",PSJ)_"" "" Q:($L(PSMP(PSI))+$L($P(PSMP,"" "",PSJ+1))>30)"
^XMB(3.9,110,2,605,0)="""RTN"",""PSOLBL"",68,0)"
^XMB(3.9,110,2,606,0)=" .K PSMP(PSI)"
^XMB(3.9,110,2,607,0)="""RTN"",""PSOLBL"",69,0)"
^XMB(3.9,110,2,608,0)=" S X=$S($D(^PS(55,DFN,0)):^(0),1:""""),PSCAP=$P(X,""^"",2),PS55=$P($G(X),""^"",3),PS55X=$P($G(X),""^"",5)"
^XMB(3.9,110,2,609,0)="""RTN"",""PSOLBL"",70,0)"
^XMB(3.9,110,2,610,0)=" I (($G(PS55X)]"""")&(PS55>1)&(PS55X<DT)) S PS55=1"
^XMB(3.9,110,2,611,0)="""RTN"",""PSOLBL"",71,0)"
^XMB(3.9,110,2,612,0)=" S:MW=""M"" MW=$S((PS55=1!(PS55=4)):""R"",1:MW)"
^XMB(3.9,110,2,613,0)="""RTN"",""PSOLBL"",72,0)"
^XMB(3.9,110,2,614,0)=" S MW=$S(MW=""M"":""REGULAR"",MW=""R"":""CERTIFIED"",1:""WINDOW"")"
^XMB(3.9,110,2,615,0)="""RTN"",""PSOLBL"",73,0)"
^XMB(3.9,110,2,616,0)=" I ($G(PSMP(1))']""""&($G(PS55)=2)) S PSMP(1)=$G(SSNPN)"
^XMB(3.9,110,2,617,0)="""RTN"",""PSOLBL"",74,0)"
^XMB(3.9,110,2,618,0)=" ;S X=$S($D(^PS(55,DFN,0)):^(0),1:""""),PSCAP=$P(X,""^"",2) S:MW=""M"" MW=$S(+$P(X,""^"",3):""R"",1:MW) S MW=$S(MW=""M"":""REGULAR"",MW=""R"":""CERTIFIED"",1:""WINDOW"")"
^XMB(3.9,110,2,619,0)="""RTN"",""PSOLBL"",75,0)"
^XMB(3.9,110,2,620,0)=" S DATE=$E(FDT,1,7),REF=$P(RXY,""^"",9)-RXF S:'$G(RXP) $P(^PSRX(RX,3),""^"")=FDT S:REF<1 REF=0 D ^PSOLBL2 S II=RX D ^PSORFL,RFLDT^PSORFL"
^XMB(3.9,110,2,621,0)="""RTN"",""PSOLBL"",76,0)"
^XMB(3.9,110,2,622,0)=" S PATST=$G(^PS(53,+$P(RXY,""^"",3),0)) S PRTFL=1 I REF=0 S:('$P(PATST,""^"",5))!(DEA[""A""&(DEA'[""B""))!(DEA[""W"") PRTFL=0"
^XMB(3.9,110,2,623,0)="""RTN"",""PSOLBL"",77,0)"
^XMB(3.9,110,2,624,0)=" S VRPH=$P(^PSRX(RX,2),""^"",10),PSCLN=+$P(RXY,""^"",5),PSCLN=$S($D(^SC(PSCLN,0)):$P(^(0),""^"",2),1:""UNKNOWN"")"
^XMB(3.9,110,2,625,0)="""RTN"",""PSOLBL"",78,0)"
^XMB(3.9,110,2,626,0)=" S PATST=$P(PATST,""^"",2),X1=DT,X2=$P(RXY,""^"",8)-10 D C^%DTC:REF I $D(^PSRX(RX,2)),$P(^(2),""^"",6),REF,X'<$P(^(2),""^"",6) S REF=0,VRPH=$P(^(2),""^"",10)"
^XMB(3.9,110,2,627,0)="""RTN"",""PSOLBL"",79,0)"
^XMB(3.9,110,2,628,0)=" I $G(PSOCHAMP),$G(PSOTRAMT) S COPAYVAR=""CHAMPUS"" G LBL"
^XMB(3.9,110,2,629,0)="""RTN"",""PSOLBL"",80,0)"
^XMB(3.9,110,2,630,0)=" I $G(RXP) S COPAYVAR="""" G LBL"
^XMB(3.9,110,2,631,0)="""RTN"",""PSOLBL"",81,0)"
^XMB(3.9,110,2,632,0)=" I $P($G(^PS(53,+$G(PSOLBLPS),0)),""^"",7) D SNO G LBL"
^XMB(3.9,110,2,633,0)="""RTN"",""PSOLBL"",82,0)"
^XMB(3.9,110,2,634,0)=" I $P($G(^PSDRUG(+$G(PSOLBLDR),0)),""^"",3)[""I""!($P($G(^(0)),""^"",3)[""S"") D SNO G LBL"
^XMB(3.9,110,2,635,0)="""RTN"",""PSOLBL"",83,0)"
^XMB(3.9,110,2,636,0)=" I $P(^PSRX(RX,""STA""),""^"")>0,$P(^(""STA""),""^"")'=2,'$G(PSODBQ) D SNO G LBL"
^XMB(3.9,110,2,637,0)="""RTN"",""PSOLBL"",84,0)"
^XMB(3.9,110,2,638,0)=" I $G(PSOLBLCP)="""" D IBCP"
^XMB(3.9,110,2,639,0)="""RTN"",""PSOLBL"",85,0)"
^XMB(3.9,110,2,640,0)=" N PSOQI S PSOQI=$G(^PSRX(RX,""IBQ"")) I $G(PSOLBLCP)=0 D SNO G LBL"
^XMB(3.9,110,2,641,0)="""RTN"",""PSOLBL"",86,0)"
^XMB(3.9,110,2,642,0)=" I $G(PSOLBLCP)=1 I $P(PSOQI,""^"",2)!($P(PSOQI,""^"",3))!($P(PSOQI,""^"",4))!($P(PSOQI,""^"",5))!($P(PSOQI,""^"",6))!($P(PSOQI,""^"",7)) D SNO G LBL"
^XMB(3.9,110,2,643,0)="""RTN"",""PSOLBL"",87,0)"
^XMB(3.9,110,2,644,0)=" I $G(PSOLBLCP)=2 I $P(PSOQI,""^"")!($P(PSOQI,""^"",2))!($P(PSOQI,""^"",3))!($P(PSOQI,""^"",4))!($P(PSOQI,""^"",5))!($P(PSOQI,""^"",6))!($P(PSOQI,""^"",7)) D SNO G LBL"
^XMB(3.9,110,2,645,0)="""RTN"",""PSOLBL"",88,0)"
^XMB(3.9,110,2,646,0)=" I $G(PSOLBLCP)=2,'$P($G(^PSRX(RX,""IB"")),""^"") D SNO G LBL"
^XMB(3.9,110,2,647,0)="""RTN"",""PSOLBL"",89,0)"
^XMB(3.9,110,2,648,0)=" S PSOCPN=$P(^PSRX(RX,0),""^"",2),INRX=$P(^(0),""^"") I $G(^TMP($J,""PSOCP"",PSOCPN))="""" S ^(PSOCPN)=PSOCPN"
^XMB(3.9,110,2,649,0)="""RTN"",""PSOLBL"",90,0)"
^XMB(3.9,110,2,650,0)=" S ^TMP($J,""PSOCP"",PSOCPN,INRX)=INRX_""^""_$$ZZ^PSOSUTL(RX)_""^""_+$G(DAYS) S COPAYVAR=""COPAY"" K ZDRUG"
^XMB(3.9,110,2,651,0)="""RTN"",""PSOLBL"",91,0)"
^XMB(3.9,110,2,652,0)="LBL G ^PSOLBLD:$P(^PSRX(RX,""STA""),""^"")=4 D ^PSOLBLD:$D(^PSRX(RX,""DRI""))&('$G(RXF))&('$G(RXP)) D:$P($G(^PSRX(RX,3)),""^"",6)&('$G(RXF))&('$G(RXP)) ^PSOLBLD1 G ^PSOLBL1:'$P(^PS(59,PSOSITE,1),""^"",28)"
^XMB(3.9,110,2,653,0)="""RTN"",""PSOLBL"",92,0)"
^XMB(3.9,110,2,654,0)=" G ^PSOLBLN"
^XMB(3.9,110,2,655,0)="""RTN"",""PSOLBL"",93,0)"
^XMB(3.9,110,2,656,0)="REF F XXX=0:0 S XXX=$O(^PSRX(RX,XTYPE,XXX)) Q:+XXX'>0  D"
^XMB(3.9,110,2,657,0)="""RTN"",""PSOLBL"",94,0)"
^XMB(3.9,110,2,658,0)=" .S TECH=$S($D(^VA(200,+$P(^PSRX(RX,XTYPE,XXX,0),""^"",7),0)):$P(^(0),""^""),1:""UNKNOWN"")"
^XMB(3.9,110,2,659,0)="""RTN"",""PSOLBL"",95,0)"
^XMB(3.9,110,2,660,0)=" .S QTY=$P(^PSRX(RX,XTYPE,XXX,0),""^"",4),PHYS=$S($D(^VA(200,+$P(^PSRX(RX,XTYPE,XXX,0),""^"",17),0)):$P(^(0),""^""),$D(^VA(200,+$P(^PSRX(RX,0),""^"",4),0)):$P(^(0),""^""),1:""UNKNOWN"") D 6^VADPT,PID^VADPT S SSNPN=$E($G(VA(""PID"")),5,12)"
^XMB(3.9,110,2,661,0)="""RTN"",""PSOLBL"",96,0)"
^XMB(3.9,110,2,662,0)=" .S DAYS=$P(^PSRX(RX,XTYPE,XXX,0),""^"",10),LOT=""________"",MFG=""________"""
^XMB(3.9,110,2,663,0)="""RTN"",""PSOLBL"",97,0)"
^XMB(3.9,110,2,664,0)=" Q"
^XMB(3.9,110,2,665,0)="""RTN"",""PSOLBL"",98,0)"
^XMB(3.9,110,2,666,0)="CHECK S PSDFNFLG=0,PSOZERO=$P(PPL,"",""),PSOPDFN=$P(^PSRX(PSOZERO,0),""^"",2)"
^XMB(3.9,110,2,667,0)="""RTN"",""PSOLBL"",99,0)"
^XMB(3.9,110,2,668,0)=" Q"
^XMB(3.9,110,2,669,0)="""RTN"",""PSOLBL"",100,0)"
^XMB(3.9,110,2,670,0)="OSET I $G(RXFL(RX))']""""!($G(RXFL(RX))=0) D  Q"
^XMB(3.9,110,2,671,0)="""RTN"",""PSOLBL"",101,0)"
^XMB(3.9,110,2,672,0)=" .S TECH=$P($G(^VA(200,+$P(^PSRX(RX,0),""^"",16),0)),""^""),QTY=$P(^PSRX(RX,0),""^"",7),PHYS=$S($D(^VA(200,+$P(^PSRX(RX,0),""^"",4),0)):$P(^(0),""^""),1:""UKN"") D 6^VADPT,PID^VADPT S SSNPN=$E($G(VA(""PID"")),5,12)"
^XMB(3.9,110,2,673,0)="""RTN"",""PSOLBL"",102,0)"
^XMB(3.9,110,2,674,0)=" .S DAYS=$P(^PSRX(RX,0),""^"",8),MFG=""________"",LOT=""________"""
^XMB(3.9,110,2,675,0)="""RTN"",""PSOLBL"",103,0)"
^XMB(3.9,110,2,676,0)=" I '$D(^PSRX(RX,1,RXFL(RX),0)) K RXFL(RX) Q"
^XMB(3.9,110,2,677,0)="""RTN"",""PSOLBL"",104,0)"
^XMB(3.9,110,2,678,0)=" S TECH=$S($D(^VA(200,+$P(^PSRX(RX,1,RXFL(RX),0),""^"",7),0)):$P(^(0),""^""),1:""UNKNOWN"")"
^XMB(3.9,110,2,679,0)="""RTN"",""PSOLBL"",105,0)"
^XMB(3.9,110,2,680,0)=" S QTY=$P(^PSRX(RX,1,RXFL(RX),0),""^"",4),PHYS=$S($D(^VA(200,+$P(^PSRX(RX,1,RXFL(RX),0),""^"",17),0)):$P(^(0),""^""),$D(^VA(200,+$P(^PSRX(RX,0),""^"",4),0)):$P(^(0),""^""),1:""UNKNOWN"") D 6^VADPT,PID^VADPT S SSNPN=$E($G(VA(""PID"")),5,12)"
^XMB(3.9,110,2,681,0)="""RTN"",""PSOLBL"",106,0)"
^XMB(3.9,110,2,682,0)=" S DAYS=$P(^PSRX(RX,1,RXFL(RX),0),""^"",10),LOT=""________"",MFG=""________"""
^XMB(3.9,110,2,683,0)="""RTN"",""PSOLBL"",107,0)"
^XMB(3.9,110,2,684,0)=" Q"
^XMB(3.9,110,2,685,0)="""RTN"",""PSOLBL"",108,0)"
^XMB(3.9,110,2,686,0)="DOUB Q:'$D(RXFL(RX))  I +$G(RXFL(RX))-PSOCKHNX<0 Q"
^XMB(3.9,110,2,687,0)="""RTN"",""PSOLBL"",109,0)"
^XMB(3.9,110,2,688,0)=" S RXFLX(RX)=$G(RXFL(RX)),RXFL(RX)=$G(RXFL(RX))-PSOCKHNX"
^XMB(3.9,110,2,689,0)="""RTN"",""PSOLBL"",110,0)"
^XMB(3.9,110,2,690,0)=" Q"
^XMB(3.9,110,2,691,0)="""RTN"",""PSOLBL"",111,0)"
^XMB(3.9,110,2,692,0)="AL(T) N I,IR,RF,USR,TY,DES S USR="""""
^XMB(3.9,110,2,693,0)="""RTN"",""PSOLBL"",112,0)"
^XMB(3.9,110,2,694,0)=" I T=""UT"" D"
^XMB(3.9,110,2,695,0)="""RTN"",""PSOLBL"",113,0)"
^XMB(3.9,110,2,696,0)=" .N J,RX S USR=$G(DUZ),TY=""B"",DES=""Label never queued to print by User"""
^XMB(3.9,110,2,697,0)="""RTN"",""PSOLBL"",114,0)"
^XMB(3.9,110,2,698,0)=" .F J=1:1  S RX=+$P(PPL,"","",J) Q:'RX  D AL1"
^XMB(3.9,110,2,699,0)="""RTN"",""PSOLBL"",115,0)"
^XMB(3.9,110,2,700,0)=" I T=""QT"" D"
^XMB(3.9,110,2,701,0)="""RTN"",""PSOLBL"",116,0)"
^XMB(3.9,110,2,702,0)=" .S I=+$P(^PSRX(RX,""STA""),""^""),TY=$S((I=3)!(I=16):""H"",I=13:""D"",1:""C"")"
^XMB(3.9,110,2,703,0)="""RTN"",""PSOLBL"",117,0)"
^XMB(3.9,110,2,704,0)=" .S DES=I_"" ""_$S((I=3)!(I=16):""HOLD""_$S(I=16:""(PROVIDER)"",1:""""),(I=12)!(I=14)!(I=15):""DISCONTINUED""_$S(I=14:""(PROVIDER)"",I=15:""(EDIT)"",1:""""),I=13:""DELETED"",1:"""")"
^XMB(3.9,110,2,705,0)="""RTN"",""PSOLBL"",118,0)"
^XMB(3.9,110,2,706,0)=" .S DES=""Queued label terminated - ""_DES D AL1"
^XMB(3.9,110,2,707,0)="""RTN"",""PSOLBL"",119,0)"
^XMB(3.9,110,2,708,0)=" K %,%H,%I Q"
^XMB(3.9,110,2,709,0)="""RTN"",""PSOLBL"",120,0)"
^XMB(3.9,110,2,710,0)="AL1 S (IR,I,RF)=0 F  S I=$O(^PSRX(RX,1,I)) Q:'I  S RF=I S:I>5 RF=I+1"
^XMB(3.9,110,2,711,0)="""RTN"",""PSOLBL"",121,0)"
^XMB(3.9,110,2,712,0)=" S I=0 F  S I=$O(^PSRX(RX,""A"",I)) Q:'I  S IR=I"
^XMB(3.9,110,2,713,0)="""RTN"",""PSOLBL"",122,0)"
^XMB(3.9,110,2,714,0)=" S IR=IR+1,^PSRX(RX,""A"",0)=""^52.3DA^""_IR_""^""_IR"
^XMB(3.9,110,2,715,0)="""RTN"",""PSOLBL"",123,0)"
^XMB(3.9,110,2,716,0)=" D NOW^%DTC S ^PSRX(RX,""A"",IR,0)=%_""^""_TY_""^""_USR_""^""_$S($G(RXPR(RX)):6,1:RF)_""^""_DES"
^XMB(3.9,110,2,717,0)="""RTN"",""PSOLBL"",124,0)"
^XMB(3.9,110,2,718,0)=" Q"
^XMB(3.9,110,2,719,0)="""RTN"",""PSOLBL"",125,0)"
^XMB(3.9,110,2,720,0)="IBCP N X,Y,PSOJJ,PSOLL"
^XMB(3.9,110,2,721,0)="""RTN"",""PSOLBL"",126,0)"
^XMB(3.9,110,2,722,0)=" S PSOLBLCP="""",X=$P($G(^PS(59,+$G(PSOSITE),""IB"")),""^"")_""^""_$G(DFN) D XTYPE^IBARX"
^XMB(3.9,110,2,723,0)="""RTN"",""PSOLBL"",127,0)"
^XMB(3.9,110,2,724,0)=" S PSOJJ="""" F  S PSOJJ=$O(Y(PSOJJ)) Q:'PSOJJ  S PSOLL="""" F  S PSOLL=$O(Y(PSOJJ,PSOLL)) Q:PSOLL=""""  S:PSOLL>0 PSOLBLCP=PSOLL"
^XMB(3.9,110,2,725,0)="""RTN"",""PSOLBL"",128,0)"
^XMB(3.9,110,2,726,0)=" I '$G(PSOLBLCP) S PSOLBLCP=0"
^XMB(3.9,110,2,727,0)="""RTN"",""PSOLBL"",129,0)"
^XMB(3.9,110,2,728,0)=" Q"
^XMB(3.9,110,2,729,0)="""RTN"",""PSOLBL"",130,0)"
^XMB(3.9,110,2,730,0)="SNO S COPAYVAR=""NO COPAY"" Q"
^XMB(3.9,110,2,731,0)="""RTN"",""PSOLBL4"")"
^XMB(3.9,110,2,732,0)="0^6^B52469710^B51765794"
^XMB(3.9,110,2,733,0)="""RTN"",""PSOLBL4"",1,0)"
^XMB(3.9,110,2,734,0)="PSOLBL4 ;BIR/RTR-Set up routine for HL7 interface ;6/29/06 1:21pm"
^XMB(3.9,110,2,735,0)="""RTN"",""PSOLBL4"",2,0)"
^XMB(3.9,110,2,736,0)=" ;;7.0;OUTPATIENT PHARMACY;**26,70,156,244**;DEC 1997"
^XMB(3.9,110,2,737,0)="""RTN"",""PSOLBL4"",3,0)"
^XMB(3.9,110,2,738,0)=" ;External reference to ^PSDRUG supported by DBIA 221"
^XMB(3.9,110,2,739,0)="""RTN"",""PSOLBL4"",4,0)"
^XMB(3.9,110,2,740,0)=" ;"
^XMB(3.9,110,2,741,0)="""RTN"",""PSOLBL4"",5,0)"
^XMB(3.9,110,2,742,0)=" ;*244 - ignore RX's with a status > 11"
^XMB(3.9,110,2,743,0)="""RTN"",""PSOLBL4"",6,0)"
^XMB(3.9,110,2,744,0)=" ;"
^XMB(3.9,110,2,745,0)="""RTN"",""PSOLBL4"",7,0)"
^XMB(3.9,110,2,746,0)=" N DIC,AP,X,Y,DPRT,QPRT"
^XMB(3.9,110,2,747,0)="""RTN"",""PSOLBL4"",8,0)"
^XMB(3.9,110,2,748,0)=" I $G(ZTIO)]"""" D"
^XMB(3.9,110,2,749,0)="""RTN"",""PSOLBL4"",9,0)"
^XMB(3.9,110,2,750,0)=" .Q:'$O(^PS(59,PSOSITE,""P"",0))"
^XMB(3.9,110,2,751,0)="""RTN"",""PSOLBL4"",10,0)"
^XMB(3.9,110,2,752,0)=" .S DIC=3.5,DIC(0)="""",X=ZTIO D ^DIC K DIC,X Q:Y=-1"
^XMB(3.9,110,2,753,0)="""RTN"",""PSOLBL4"",11,0)"
^XMB(3.9,110,2,754,0)=" .S DPRT=+Y"
^XMB(3.9,110,2,755,0)="""RTN"",""PSOLBL4"",12,0)"
^XMB(3.9,110,2,756,0)=" .F AP=0:0 S AP=$O(^PS(59,PSOSITE,""P"",AP)) Q:'AP  I +$P(^PS(59,PSOSITE,""P"",AP,0),""^"")=DPRT S QPRT=1"
^XMB(3.9,110,2,757,0)="""RTN"",""PSOLBL4"",13,0)"
^XMB(3.9,110,2,758,0)=" .I '$G(QPRT) S $P(PSOPAR,""^"",30)=0"
^XMB(3.9,110,2,759,0)="""RTN"",""PSOLBL4"",14,0)"
^XMB(3.9,110,2,760,0)=" Q:'$P($G(PSOPAR),""^"",30)"
^XMB(3.9,110,2,761,0)="""RTN"",""PSOLBL4"",15,0)"
^XMB(3.9,110,2,762,0)=" Q:$G(PSOEXREP)"
^XMB(3.9,110,2,763,0)="""RTN"",""PSOLBL4"",16,0)"
^XMB(3.9,110,2,764,0)="HL N PSODTM,HHHH,HLCOT,HLFLAG,HLFOUR,HLINGF,HLINRX,HLINRX0,HLLOOP,HLNEXT,HLRR,HLRX,HLRXY,LL,PPLHL,PSHALP,HDFN,HLDFN,HNEWDFN,HLDAI,HLOSITE,HLJUST,HLRXYZ,PSOLLN,PSOLLL,PSFLG,HDFN1"
^XMB(3.9,110,2,765,0)="""RTN"",""PSOLBL4"",17,0)"
^XMB(3.9,110,2,766,0)=" S HLOSITE=$P($G(PSOPAR),""^"",30)"
^XMB(3.9,110,2,767,0)="""RTN"",""PSOLBL4"",18,0)"
^XMB(3.9,110,2,768,0)=" K ^UTILITY($J,""PSOHL""),^UTILITY($J,""PSOHLL""),HLRXY"
^XMB(3.9,110,2,769,0)="""RTN"",""PSOLBL4"",19,0)"
^XMB(3.9,110,2,770,0)=" S PPLHL=PPL G:HLOSITE=4 SOMD"
^XMB(3.9,110,2,771,0)="""RTN"",""PSOLBL4"",20,0)"
^XMB(3.9,110,2,772,0)=" S HLFLAG=0 F HLLOOP=1:1 S HLRX=$P(PPLHL,"","",HLLOOP) D  Q:$G(HLFLAG)"
^XMB(3.9,110,2,773,0)="""RTN"",""PSOLBL4"",21,0)"
^XMB(3.9,110,2,774,0)=" .S HLNEXT=$P(PPLHL,"","",(HLLOOP+1)) I HLNEXT=""""!(HLNEXT="","") S HLFLAG=1"
^XMB(3.9,110,2,775,0)="""RTN"",""PSOLBL4"",22,0)"
^XMB(3.9,110,2,776,0)=" .Q:'$G(HLRX)"
^XMB(3.9,110,2,777,0)="""RTN"",""PSOLBL4"",23,0)"
^XMB(3.9,110,2,778,0)=" .Q:'$D(^PSRX(HLRX,0))"
^XMB(3.9,110,2,779,0)="""RTN"",""PSOLBL4"",24,0)"
^XMB(3.9,110,2,780,0)=" .Q:$P($G(^PSRX(HLRX,""STA"")),""^"")=4"
^XMB(3.9,110,2,781,0)="""RTN"",""PSOLBL4"",25,0)"
^XMB(3.9,110,2,782,0)=" .Q:$G(RXRP(HLRX,""RP""))"
^XMB(3.9,110,2,783,0)="""RTN"",""PSOLBL4"",26,0)"
^XMB(3.9,110,2,784,0)=" .I $P($G(^PSRX(HLRX,""STA"")),""^"")>11!('$P(^PSRX(HLRX,0),""^"",2)) Q     ;*244"
^XMB(3.9,110,2,785,0)="""RTN"",""PSOLBL4"",27,0)"
^XMB(3.9,110,2,786,0)=" .I $G(PSODBQ) S HLRR=$O(^PS(52.5,""B"",HLRX,0)) Q:'HLRR  I $G(^PS(52.5,+HLRR,""P""))=1 Q"
^XMB(3.9,110,2,787,0)="""RTN"",""PSOLBL4"",28,0)"
^XMB(3.9,110,2,788,0)=" .;Here, if Site Parameter is 3, check entry in Drug File for National Id"
^XMB(3.9,110,2,789,0)="""RTN"",""PSOLBL4"",29,0)"
^XMB(3.9,110,2,790,0)=" .I $G(HLOSITE)=3 S HLJUST=+$P($G(^PSRX(HLRX,0)),""^"",6) I '$P($G(^PSDRUG(HLJUST,6)),""^"") Q"
^XMB(3.9,110,2,791,0)="""RTN"",""PSOLBL4"",30,0)"
^XMB(3.9,110,2,792,0)=" .S HLRXY(HLLOOP,HLRX)="""" ; VALID RXS"
^XMB(3.9,110,2,793,0)="""RTN"",""PSOLBL4"",31,0)"
^XMB(3.9,110,2,794,0)=" .S:$G(HLOSITE)=3 HLRXYZ(HLRX)="""""
^XMB(3.9,110,2,795,0)="""RTN"",""PSOLBL4"",32,0)"
^XMB(3.9,110,2,796,0)=" I $G(HLOSITE)=3,$D(HLRXY) D"
^XMB(3.9,110,2,797,0)="""RTN"",""PSOLBL4"",33,0)"
^XMB(3.9,110,2,798,0)=" .N HLZFLAG,HLZ,HLZRX,HLZNEXT"
^XMB(3.9,110,2,799,0)="""RTN"",""PSOLBL4"",34,0)"
^XMB(3.9,110,2,800,0)=" .S HLZFLAG=0 K PPL F HLZ=1:1 S HLZRX=$P(PPLHL,"","",HLZ) D  Q:$G(HLZFLAG)"
^XMB(3.9,110,2,801,0)="""RTN"",""PSOLBL4"",35,0)"
^XMB(3.9,110,2,802,0)=" ..S HLZNEXT=$P(PPLHL,"","",(HLZ+1)) I HLZNEXT=""""!(HLZNEXT="","") S HLZFLAG=1"
^XMB(3.9,110,2,803,0)="""RTN"",""PSOLBL4"",36,0)"
^XMB(3.9,110,2,804,0)=" ..Q:'$G(HLZRX)"
^XMB(3.9,110,2,805,0)="""RTN"",""PSOLBL4"",37,0)"
^XMB(3.9,110,2,806,0)=" ..Q:$D(HLRXYZ(HLZRX))"
^XMB(3.9,110,2,807,0)="""RTN"",""PSOLBL4"",38,0)"
^XMB(3.9,110,2,808,0)=" ..I $G(RXRP(HLZRX,""RP"")) D  Q"
^XMB(3.9,110,2,809,0)="""RTN"",""PSOLBL4"",39,0)"
^XMB(3.9,110,2,810,0)=" ...I $G(PPL)="""" S PPL=HLZRX_"","" Q"
^XMB(3.9,110,2,811,0)="""RTN"",""PSOLBL4"",40,0)"
^XMB(3.9,110,2,812,0)=" ...S PPL=PPL_HLZRX_"","""
^XMB(3.9,110,2,813,0)="""RTN"",""PSOLBL4"",41,0)"
^XMB(3.9,110,2,814,0)=" ..I $G(PPL)="""" S PPL=HLZRX_"","" Q"
^XMB(3.9,110,2,815,0)="""RTN"",""PSOLBL4"",42,0)"
^XMB(3.9,110,2,816,0)=" ..S PPL=PPL_HLZRX_"","""
^XMB(3.9,110,2,817,0)="""RTN"",""PSOLBL4"",43,0)"
^XMB(3.9,110,2,818,0)="SOMDQ S HLCOT=1,PSHALP="""" F  S PSHALP=$O(HLRXY(PSHALP)) Q:PSHALP=""""  S ^UTILITY($J,""PSOHLL"",HLCOT)=$O(HLRXY(PSHALP,0)),HLCOT=HLCOT+1"
^XMB(3.9,110,2,819,0)="""RTN"",""PSOLBL4"",44,0)"
^XMB(3.9,110,2,820,0)=" I HLCOT=1 G ENDHL ; NOTHING SET, BYPASS CALL TO QUEUE"
^XMB(3.9,110,2,821,0)="""RTN"",""PSOLBL4"",45,0)"
^XMB(3.9,110,2,822,0)=" F HLCOT=0:0 S HLCOT=$O(^UTILITY($J,""PSOHLL"",HLCOT)) Q:'HLCOT  S HLINRX=^(HLCOT),HLINRX0=$G(^PSRX(HLINRX,0)) D"
^XMB(3.9,110,2,823,0)="""RTN"",""PSOLBL4"",46,0)"
^XMB(3.9,110,2,824,0)=" .S ^UTILITY($J,""PSOHLL"",HLCOT)=HLINRX_""^""_+$P(HLINRX0,""^"",6)_""^""_$S($G(RXPR(HLINRX)):""P"",1:""F"")"
^XMB(3.9,110,2,825,0)="""RTN"",""PSOLBL4"",47,0)"
^XMB(3.9,110,2,826,0)=" .I '$G(RXPR(HLINRX)) S HLFOUR=0 F HHHH=0:0 S HHHH=$O(^PSRX(HLINRX,1,HHHH)) Q:'HHHH  I +^(HHHH,0) S HLFOUR=HHHH"
^XMB(3.9,110,2,827,0)="""RTN"",""PSOLBL4"",48,0)"
^XMB(3.9,110,2,828,0)=" .I '$G(RXPR(HLINRX)),$G(RXFL(HLINRX))'="""" S HLFOUR=$S($G(RXFL(HLINRX))=0:0,$D(^PSRX(HLINRX,1,+$G(RXFL(HLINRX)),0)):+$G(RXFL(HLINRX)),1:$G(HLFOUR))"
^XMB(3.9,110,2,829,0)="""RTN"",""PSOLBL4"",49,0)"
^XMB(3.9,110,2,830,0)=" .S ^UTILITY($J,""PSOHLL"",HLCOT)=^UTILITY($J,""PSOHLL"",HLCOT)_""^""_$S($G(RXPR(HLINRX)):RXPR(HLINRX),1:HLFOUR)_""^""_$S($P($G(^PSRX(HLINRX,3)),""^"",6)&('$G(RXPR(HLINRX)))&('$G(RXFL(HLINRX))):1,1:0) D ACLOG"
^XMB(3.9,110,2,831,0)="""RTN"",""PSOLBL4"",50,0)"
^XMB(3.9,110,2,832,0)=" .S HLINGF=0 I $P(^UTILITY($J,""PSOHLL"",HLCOT),""^"",5),$O(^PSRX(HLINRX,""DAI"",0)) S HLINGF=1 D"
^XMB(3.9,110,2,833,0)="""RTN"",""PSOLBL4"",51,0)"
^XMB(3.9,110,2,834,0)=" ..F LL=0:0 S LL=$O(^PSRX(HLINRX,""DAI"",LL)) Q:'LL  S ^UTILITY($J,""PSOHLL"",HLCOT,HLINGF)=$G(^PSRX(HLINRX,""DAI"",LL,0)),HLINGF=HLINGF+1"
^XMB(3.9,110,2,835,0)="""RTN"",""PSOLBL4"",52,0)"
^XMB(3.9,110,2,836,0)=" .S $P(^UTILITY($J,""PSOHLL"",HLCOT),""^"",6)=$S($G(HLINGF):1,1:0)"
^XMB(3.9,110,2,837,0)="""RTN"",""PSOLBL4"",53,0)"
^XMB(3.9,110,2,838,0)=" .I $D(^PSRX(HLINRX,""DRI"")),'$G(RXPR(HLINRX)),'$G(RXFL(HLINRX)) S ^UTILITY($J,""PSOHLL"",HLCOT,""DRI"")=^PSRX(HLINRX,""DRI""),$P(^UTILITY($J,""PSOHLL"",HLCOT),""^"",7)=1"
^XMB(3.9,110,2,839,0)="""RTN"",""PSOLBL4"",54,0)"
^XMB(3.9,110,2,840,0)=" .E  S $P(^UTILITY($J,""PSOHLL"",HLCOT),""^"",7)=0"
^XMB(3.9,110,2,841,0)="""RTN"",""PSOLBL4"",55,0)"
^XMB(3.9,110,2,842,0)=" .S $P(^UTILITY($J,""PSOHLL"",HLCOT),""^"",8)=0 D RPT Q:'$G(^PSRX(HLINRX,""IB""))"
^XMB(3.9,110,2,843,0)="""RTN"",""PSOLBL4"",56,0)"
^XMB(3.9,110,2,844,0)=" .I $P(^PSRX(HLINRX,""STA""),""^"")>0,$P(^(""STA""),""^"")'=2,'$G(PSODBQ) Q"
^XMB(3.9,110,2,845,0)="""RTN"",""PSOLBL4"",57,0)"
^XMB(3.9,110,2,846,0)=" .S $P(^UTILITY($J,""PSOHLL"",HLCOT),""^"",8)=1"
^XMB(3.9,110,2,847,0)="""RTN"",""PSOLBL4"",58,0)"
^XMB(3.9,110,2,848,0)=" ;"
^XMB(3.9,110,2,849,0)="""RTN"",""PSOLBL4"",59,0)"
^XMB(3.9,110,2,850,0)="AAA D STRT^PSOHLSG5"
^XMB(3.9,110,2,851,0)="""RTN"",""PSOLBL4"",60,0)"
^XMB(3.9,110,2,852,0)=" S (HDFN,HDFN1)=$O(^UTILITY($J,""PSOHLL"",0)),HDFN=$P(^PSRX($P(^(HDFN),""^""),0),""^"",2),PSOLLL=$P(^UTILITY($J,""PSOHLL"",HDFN1),""^"",12)"
^XMB(3.9,110,2,853,0)="""RTN"",""PSOLBL4"",61,0)"
^XMB(3.9,110,2,854,0)=" F HLDFN=0:0 S HLDFN=$O(^UTILITY($J,""PSOHLL"",HLDFN)) Q:'HLDFN  D  S ^UTILITY($J,""PSOHL"",HLDFN)=^UTILITY($J,""PSOHLL"",HLDFN) D OTHER"
^XMB(3.9,110,2,855,0)="""RTN"",""PSOLBL4"",62,0)"
^XMB(3.9,110,2,856,0)=" .S PSFLG=0,PSOLLN=$P(^UTILITY($J,""PSOHLL"",HLDFN),""^"",12),HNEWDFN=$P(^PSRX($P(^UTILITY($J,""PSOHLL"",HLDFN),""^""),0),""^"",2) D"
^XMB(3.9,110,2,857,0)="""RTN"",""PSOLBL4"",63,0)"
^XMB(3.9,110,2,858,0)=" ..I HDFN'=HNEWDFN S HDFN=HNEWDFN,PSFLG=1"
^XMB(3.9,110,2,859,0)="""RTN"",""PSOLBL4"",64,0)"
^XMB(3.9,110,2,860,0)=" ..I PSOLLL'=PSOLLN S PSOLLL=PSOLLN,PSFLG=1"
^XMB(3.9,110,2,861,0)="""RTN"",""PSOLBL4"",65,0)"
^XMB(3.9,110,2,862,0)=" ..I PSFLG=1 D SETZ"
^XMB(3.9,110,2,863,0)="""RTN"",""PSOLBL4"",66,0)"
^XMB(3.9,110,2,864,0)=" I '$D(^UTILITY($J,""PSOHL"")) G ENDHL"
^XMB(3.9,110,2,865,0)="""RTN"",""PSOLBL4"",67,0)"
^XMB(3.9,110,2,866,0)="CALL D SETZ"
^XMB(3.9,110,2,867,0)="""RTN"",""PSOLBL4"",68,0)"
^XMB(3.9,110,2,868,0)="ENDHL K ^UTILITY($J,""PSOHL""),^UTILITY($J,""PSOHLL""),HLRXY"
^XMB(3.9,110,2,869,0)="""RTN"",""PSOLBL4"",69,0)"
^XMB(3.9,110,2,870,0)=" Q"
^XMB(3.9,110,2,871,0)="""RTN"",""PSOLBL4"",70,0)"
^XMB(3.9,110,2,872,0)="OTHER I $G(^UTILITY($J,""PSOHLL"",HLDFN,""DRI""))'="""" S ^UTILITY($J,""PSOHL"",HLDFN,""DRI"")=^UTILITY($J,""PSOHLL"",HLDFN,""DRI"")"
^XMB(3.9,110,2,873,0)="""RTN"",""PSOLBL4"",71,0)"
^XMB(3.9,110,2,874,0)=" F HLDAI=0:0 S HLDAI=$O(^UTILITY($J,""PSOHLL"",HLDFN,HLDAI)) Q:'HLDAI  S ^UTILITY($J,""PSOHL"",HLDFN,HLDAI)=^UTILITY($J,""PSOHLL"",HLDFN,HLDAI)"
^XMB(3.9,110,2,875,0)="""RTN"",""PSOLBL4"",72,0)"
^XMB(3.9,110,2,876,0)=" Q"
^XMB(3.9,110,2,877,0)="""RTN"",""PSOLBL4"",73,0)"
^XMB(3.9,110,2,878,0)="ACLOG ;Activity log (sending to Hl7 interface)"
^XMB(3.9,110,2,879,0)="""RTN"",""PSOLBL4"",74,0)"
^XMB(3.9,110,2,880,0)=" N DTTM,HCOM,HCNT,HJJ"
^XMB(3.9,110,2,881,0)="""RTN"",""PSOLBL4"",75,0)"
^XMB(3.9,110,2,882,0)=" D NOW^%DTC S DTTM=%,HCOM=""Prescription""_$S($G(RXPR(HLINRX)):"" (Partial)"",1:"""")_$S($G(PSOSUREP)!($G(RXRP(HLINRX))):"" (Reprint)"",1:"""")_"" sent to external interface."""
^XMB(3.9,110,2,883,0)="""RTN"",""PSOLBL4"",76,0)"
^XMB(3.9,110,2,884,0)=" S HCNT=0 F HJJ=0:0 S HJJ=$O(^PSRX(HLINRX,""A"",HJJ)) Q:'HJJ  S HCNT=HJJ"
^XMB(3.9,110,2,885,0)="""RTN"",""PSOLBL4"",77,0)"
^XMB(3.9,110,2,886,0)=" S HCNT=HCNT+1,^PSRX(HLINRX,""A"",0)=""^52.3DA^""_HCNT_""^""_HCNT S ^PSRX(HLINRX,""A"",HCNT,0)=DTTM_""^X^""_$G(PDUZ)_""^""_$S($G(RXPR(HLINRX)):6,$G(HLFOUR)<6:$G(HLFOUR),1:(HLFOUR+1))_""^""_HCOM"
^XMB(3.9,110,2,887,0)="""RTN"",""PSOLBL4"",78,0)"
^XMB(3.9,110,2,888,0)=" Q"
^XMB(3.9,110,2,889,0)="""RTN"",""PSOLBL4"",79,0)"
^XMB(3.9,110,2,890,0)="SUS(HSREX,HSFL,HSFILL,HSRP) ;"
^XMB(3.9,110,2,891,0)="""RTN"",""PSOLBL4"",80,0)"
^XMB(3.9,110,2,892,0)=" N DA,DIK,DTTM,HSCOM,HSCNT,HSJJ,HSLDUZ,PSHLCPRS"
^XMB(3.9,110,2,893,0)="""RTN"",""PSOLBL4"",81,0)"
^XMB(3.9,110,2,894,0)=" I $P($G(^PSRX(HSREX,""STA"")),""^"")=5 S $P(^PSRX(HSREX,""STA""),""^"")=0 S PSHLCPRS=""Removed from Suspense, External Interface."" D EN^PSOHLSN1(HSREX,""SC"",""ZU"",PSHLCPRS)"
^XMB(3.9,110,2,895,0)="""RTN"",""PSOLBL4"",82,0)"
^XMB(3.9,110,2,896,0)=" S DA=$O(^PS(52.5,""B"",HSREX,0)) I DA K DIK S DIK=""^PS(52.5,"" D ^DIK"
^XMB(3.9,110,2,897,0)="""RTN"",""PSOLBL4"",83,0)"
^XMB(3.9,110,2,898,0)=" I $G(HSFL)=""P"" S HSLDUZ=+$P($G(^PSRX(HSREX,""P"",HSFILL,0)),""^"",7)"
^XMB(3.9,110,2,899,0)="""RTN"",""PSOLBL4"",84,0)"
^XMB(3.9,110,2,900,0)=" E  S HSLDUZ=$S('HSFILL:+$P($G(^PSRX(HSREX,0)),""^"",16),1:+$P($G(^PSRX(HSREX,1,HSFILL,0)),""^"",7))"
^XMB(3.9,110,2,901,0)="""RTN"",""PSOLBL4"",85,0)"
^XMB(3.9,110,2,902,0)=" D NOW^%DTC S DTTM=%,HSCOM=""Removed from Suspense""_$S($G(HSFL)=""P"":"" (Partial)"",1:"""")_$S($G(HSRP):"" (Reprint)"",1:"""")_"" (External Interface)"""
^XMB(3.9,110,2,903,0)="""RTN"",""PSOLBL4"",86,0)"
^XMB(3.9,110,2,904,0)=" S HSCNT=0 F HSJJ=0:0 S HSJJ=$O(^PSRX(HSREX,""A"",HSJJ)) Q:'HSJJ  S HSCNT=HSJJ"
^XMB(3.9,110,2,905,0)="""RTN"",""PSOLBL4"",87,0)"
^XMB(3.9,110,2,906,0)=" S HSCNT=HSCNT+1,^PSRX(HSREX,""A"",0)=""^52.3DA^""_HSCNT_""^""_HSCNT S ^PSRX(HSREX,""A"",HSCNT,0)=DTTM_""^X^""_$G(HSLDUZ)_""^""_$S($G(HSFL)=""P"":6,$G(HSFILL)<6:$G(HSFILL),1:(HSFILL+1))_""^""_$G(HSCOM)"
^XMB(3.9,110,2,907,0)="""RTN"",""PSOLBL4"",88,0)"
^XMB(3.9,110,2,908,0)=" Q"
^XMB(3.9,110,2,909,0)="""RTN"",""PSOLBL4"",89,0)"
^XMB(3.9,110,2,910,0)="LAB(HLREX,HLFL,HLFILL,HLREPT) ;"
^XMB(3.9,110,2,911,0)="""RTN"",""PSOLBL4"",90,0)"
^XMB(3.9,110,2,912,0)=" N HLDUZ,NOW,DA,HCT,HFF"
^XMB(3.9,110,2,913,0)="""RTN"",""PSOLBL4"",91,0)"
^XMB(3.9,110,2,914,0)=" D NOW^%DTC S NOW=% S HCT=0 F HFF=0:0 S HFF=$O(^PSRX(HLREX,""L"",HFF)) Q:'HFF  S HCT=HFF"
^XMB(3.9,110,2,915,0)="""RTN"",""PSOLBL4"",92,0)"
^XMB(3.9,110,2,916,0)=" I HLFL=""F"" S HLDUZ=$S('HLFILL:+$P($G(^PSRX(HLREX,0)),""^"",16),1:+$P($G(^PSRX(HLREX,1,HLFILL,0)),""^"",7))"
^XMB(3.9,110,2,917,0)="""RTN"",""PSOLBL4"",93,0)"
^XMB(3.9,110,2,918,0)=" I HLFL=""P"" S HLDUZ=+$P($G(^PSRX(HLREX,""P"",HLFILL,0)),""^"",7)"
^XMB(3.9,110,2,919,0)="""RTN"",""PSOLBL4"",94,0)"
^XMB(3.9,110,2,920,0)=" S HCT=HCT+1,^PSRX(HLREX,""L"",0)=""^52.032DA^""_HCT_""^""_HCT"
^XMB(3.9,110,2,921,0)="""RTN"",""PSOLBL4"",95,0)"
^XMB(3.9,110,2,922,0)=" S ^PSRX(HLREX,""L"",HCT,0)=NOW_""^""_$S($G(HLFL)=""F"":HLFILL,1:(99-HLFILL))_""^""_""From Rx number ""_$P(^PSRX(HLREX,0),""^"")_$S($G(HLFL)=""P"":"" (Partial)"",1:"""")_$S($G(HLREPT):"" (Reprint)"",1:"""")_"" (External Interface)""_""^""_$G(HLDUZ)"
^XMB(3.9,110,2,923,0)="""RTN"",""PSOLBL4"",96,0)"
^XMB(3.9,110,2,924,0)=" Q"
^XMB(3.9,110,2,925,0)="""RTN"",""PSOLBL4"",97,0)"
^XMB(3.9,110,2,926,0)="RPT ;"
^XMB(3.9,110,2,927,0)="""RTN"",""PSOLBL4"",98,0)"
^XMB(3.9,110,2,928,0)=" S $P(^UTILITY($J,""PSOHLL"",HLCOT),""^"",9)=$S($G(PSOSUREP)!($G(RXRP(HLINRX))):1,1:0)"
^XMB(3.9,110,2,929,0)="""RTN"",""PSOLBL4"",99,0)"
^XMB(3.9,110,2,930,0)=" S $P(^UTILITY($J,""PSOHLL"",HLCOT),""^"",10)=+$G(PDUZ)"
^XMB(3.9,110,2,931,0)="""RTN"",""PSOLBL4"",100,0)"
^XMB(3.9,110,2,932,0)=" Q"
^XMB(3.9,110,2,933,0)="""RTN"",""PSOLBL4"",101,0)"
^XMB(3.9,110,2,934,0)="SETZ ;"
^XMB(3.9,110,2,935,0)="""RTN"",""PSOLBL4"",102,0)"
^XMB(3.9,110,2,936,0)=" D NOW^%DTC S PSODTM=%"
^XMB(3.9,110,2,937,0)="""RTN"",""PSOLBL4"",103,0)"
^XMB(3.9,110,2,938,0)=" S ZTRTN=$S($$GET1^DIQ(59,PSOSITE_"","",105,""I"")=2.4:""INIT^PSOHLDS"",1:""INIT^PSOHLSG"")"
^XMB(3.9,110,2,939,0)="""RTN"",""PSOLBL4"",104,0)"
^XMB(3.9,110,2,940,0)=" S ZTIO="""",ZTDTH=$H,ZTSAVE(""^UTILITY($J,""""PSOHL"""","")="""",ZTSAVE(""PSOPAR"")="""",ZTSAVE(""PSOSITE"")="""",ZTSAVE(""PSODTM"")="""",ZTSAVE(""PSOLAP"")="""""
^XMB(3.9,110,2,941,0)="""RTN"",""PSOLBL4"",105,0)"
^XMB(3.9,110,2,942,0)=" S ZTSAVE(""RXRP("")="""",ZTSAVE(""RXPR("")="""",ZTSAVE(""RXFL("")="""",ZTSAVE(""RXRS("")="""""
^XMB(3.9,110,2,943,0)="""RTN"",""PSOLBL4"",106,0)"
^XMB(3.9,110,2,944,0)=" S ZTDESC=$S($$GET1^DIQ(59,PSOSITE_"","",105,""I"")=2.4:""Outpatient Automation External Interface"",1:""GENERIC INTERFACE LABEL INFORMATION"")"
^XMB(3.9,110,2,945,0)="""RTN"",""PSOLBL4"",107,0)"
^XMB(3.9,110,2,946,0)=" D ^%ZTLOAD"
^XMB(3.9,110,2,947,0)="""RTN"",""PSOLBL4"",108,0)"
^XMB(3.9,110,2,948,0)=" Q"
^XMB(3.9,110,2,949,0)="""RTN"",""PSOLBL4"",109,0)"
^XMB(3.9,110,2,950,0)="SOMD ;send only mark drugs to external interface and print in vista"
^XMB(3.9,110,2,951,0)="""RTN"",""PSOLBL4"",110,0)"
^XMB(3.9,110,2,952,0)=" S HLFLG=0 F HLLP=1:1 S HLRX=$P(PPLHL,"","",HLLP) D  Q:$G(HLFLG)"
^XMB(3.9,110,2,953,0)="""RTN"",""PSOLBL4"",111,0)"
^XMB(3.9,110,2,954,0)=" .S HLNEXT=$P(PPLHL,"","",(HLLP+1)) I HLNEXT=""""!(HLNEXT="","") S HLFLG=1"
^XMB(3.9,110,2,955,0)="""RTN"",""PSOLBL4"",112,0)"
^XMB(3.9,110,2,956,0)=" .Q:'$G(HLRX)"
^XMB(3.9,110,2,957,0)="""RTN"",""PSOLBL4"",113,0)"
^XMB(3.9,110,2,958,0)=" .Q:'$D(^PSRX(HLRX,0))"
^XMB(3.9,110,2,959,0)="""RTN"",""PSOLBL4"",114,0)"
^XMB(3.9,110,2,960,0)=" .Q:$P($G(^PSRX(HLRX,""STA"")),""^"")=4"
^XMB(3.9,110,2,961,0)="""RTN"",""PSOLBL4"",115,0)"
^XMB(3.9,110,2,962,0)=" .I $P($G(^PSRX(HLRX,""STA"")),""^"")>11!('$P(^PSRX(HLRX,0),""^"",2)) Q     ;*244"
^XMB(3.9,110,2,963,0)="""RTN"",""PSOLBL4"",116,0)"
^XMB(3.9,110,2,964,0)=" .Q:$G(RXRP(HLRX,""RP""))"
^XMB(3.9,110,2,965,0)="""RTN"",""PSOLBL4"",117,0)"
^XMB(3.9,110,2,966,0)=" .S HLRR=$O(^PS(52.5,""B"",HLRX,0)) Q:'HLRR  I $G(^PS(52.5,+HLRR,""P""))=1 K HLRR Q"
^XMB(3.9,110,2,967,0)="""RTN"",""PSOLBL4"",118,0)"
^XMB(3.9,110,2,968,0)=" .S DRG=+$P($G(^PSRX(HLRX,0)),""^"",6) I '$P($G(^PSDRUG(DRG,6)),""^"") Q"
^XMB(3.9,110,2,969,0)="""RTN"",""PSOLBL4"",119,0)"
^XMB(3.9,110,2,970,0)=" .S HLRXY(HLRX)="""" ; VALID RXS"
^XMB(3.9,110,2,971,0)="""RTN"",""PSOLBL4"",120,0)"
^XMB(3.9,110,2,972,0)=" I $D(HLRXY) G SOMDQ"
^XMB(3.9,110,2,973,0)="""RTN"",""PSOLBL4"",121,0)"
^XMB(3.9,110,2,974,0)=" Q"
^XMB(3.9,110,2,975,0)="""RTN"",""PSOLLLH"")"
^XMB(3.9,110,2,976,0)="0^3^B24123418^B23086524"
^XMB(3.9,110,2,977,0)="""RTN"",""PSOLLLH"",1,0)"
^XMB(3.9,110,2,978,0)="PSOLLLH ;BIR/EJW - HIPAA/NCPDP LASER LABELS ;7/20/06 10:21am"
^XMB(3.9,110,2,979,0)="""RTN"",""PSOLLLH"",2,0)"
^XMB(3.9,110,2,980,0)=" ;;7.0;OUTPATIENT PHARMACY;**161,148,244**;DEC 1997"
^XMB(3.9,110,2,981,0)="""RTN"",""PSOLLLH"",3,0)"
^XMB(3.9,110,2,982,0)=" ;"
^XMB(3.9,110,2,983,0)="""RTN"",""PSOLLLH"",4,0)"
^XMB(3.9,110,2,984,0)=" ;Reference to DUR1^BPSNCPD3 supported by DBIA 4560"
^XMB(3.9,110,2,985,0)="""RTN"",""PSOLLLH"",5,0)"
^XMB(3.9,110,2,986,0)=" ;"
^XMB(3.9,110,2,987,0)="""RTN"",""PSOLLLH"",6,0)"
^XMB(3.9,110,2,988,0)=" ;*244 ignore Rx status > 11"
^XMB(3.9,110,2,989,0)="""RTN"",""PSOLLLH"",7,0)"
^XMB(3.9,110,2,990,0)=" ;"
^XMB(3.9,110,2,991,0)="""RTN"",""PSOLLLH"",8,0)"
^XMB(3.9,110,2,992,0)="SIGLOG N I,J,RXF,RXY,RXN,RX,FIRST,DATE,BLNKLIN,RX2,FDT,BLNKLN2,LAST"
^XMB(3.9,110,2,993,0)="""RTN"",""PSOLLLH"",9,0)"
^XMB(3.9,110,2,994,0)=" D DEM^VADPT"
^XMB(3.9,110,2,995,0)="""RTN"",""PSOLLLH"",10,0)"
^XMB(3.9,110,2,996,0)=" S FIRST=1,LAST=0"
^XMB(3.9,110,2,997,0)="""RTN"",""PSOLLLH"",11,0)"
^XMB(3.9,110,2,998,0)=" S $P(BLNKLN2,"" "",37)="" """
^XMB(3.9,110,2,999,0)="""RTN"",""PSOLLLH"",12,0)"
^XMB(3.9,110,2,1000,0)=" S $P(BLNKLIN,""_"",32)=""_"""
^XMB(3.9,110,2,1001,0)="""RTN"",""PSOLLLH"",13,0)"
^XMB(3.9,110,2,1002,0)=" F I=1:1:$L(PPL,"","") S RX=$P(PPL,"","",I) D"
^XMB(3.9,110,2,1003,0)="""RTN"",""PSOLLLH"",14,0)"
^XMB(3.9,110,2,1004,0)=" .I RX="""" Q"
^XMB(3.9,110,2,1005,0)="""RTN"",""PSOLLLH"",15,0)"
^XMB(3.9,110,2,1006,0)=" .Q:$G(^PSRX(RX,""STA""))>11                           ;*244"
^XMB(3.9,110,2,1007,0)="""RTN"",""PSOLLLH"",16,0)"
^XMB(3.9,110,2,1008,0)=" .S RXY=$G(^PSRX(RX,0)) I RXY="""" Q"
^XMB(3.9,110,2,1009,0)="""RTN"",""PSOLLLH"",17,0)"
^XMB(3.9,110,2,1010,0)=" .S RX2=$G(^PSRX(RX,2)),FDT=$P(RX2,""^"",2)"
^XMB(3.9,110,2,1011,0)="""RTN"",""PSOLLLH"",18,0)"
^XMB(3.9,110,2,1012,0)=" .I FIRST!(I#4=1) D HDR S FIRST=0"
^XMB(3.9,110,2,1013,0)="""RTN"",""PSOLLLH"",19,0)"
^XMB(3.9,110,2,1014,0)=" .S RXF=+$O(^PSRX(RX,1,""A""),-1)"
^XMB(3.9,110,2,1015,0)="""RTN"",""PSOLLLH"",20,0)"
^XMB(3.9,110,2,1016,0)=" .I RXF>0 I +^PSRX(RX,1,RXF,0)'<FDT S FDT=+^(0)"
^XMB(3.9,110,2,1017,0)="""RTN"",""PSOLLLH"",21,0)"
^XMB(3.9,110,2,1018,0)=" .S DATE=$E(FDT,1,7),Y=DATE X ^DD(""DD"") S DATE=Y"
^XMB(3.9,110,2,1019,0)="""RTN"",""PSOLLLH"",22,0)"
^XMB(3.9,110,2,1020,0)=" .S RXN=$P(RXY,""^"")"
^XMB(3.9,110,2,1021,0)="""RTN"",""PSOLLLH"",23,0)"
^XMB(3.9,110,2,1022,0)=" .S T=""Rx# ""_RXN_""  """
^XMB(3.9,110,2,1023,0)="""RTN"",""PSOLLLH"",24,0)"
^XMB(3.9,110,2,1024,0)=" .S T=T_DATE_""  ""_""Fill ""_(RXF+1)_"" of ""_(1+$P(RXY,""^"",9))_""   _____"" D PRINT(T)"
^XMB(3.9,110,2,1025,0)="""RTN"",""PSOLLLH"",25,0)"
^XMB(3.9,110,2,1026,0)=" S LAST=1 D SIGN"
^XMB(3.9,110,2,1027,0)="""RTN"",""PSOLLLH"",26,0)"
^XMB(3.9,110,2,1028,0)=" I $D(ZTQUEUED) S ZTREQ=""@"""
^XMB(3.9,110,2,1029,0)="""RTN"",""PSOLLLH"",27,0)"
^XMB(3.9,110,2,1030,0)=" Q"
^XMB(3.9,110,2,1031,0)="""RTN"",""PSOLLLH"",28,0)"
^XMB(3.9,110,2,1032,0)=" ;"
^XMB(3.9,110,2,1033,0)="""RTN"",""PSOLLLH"",29,0)"
^XMB(3.9,110,2,1034,0)="SIGN ;"
^XMB(3.9,110,2,1035,0)="""RTN"",""PSOLLLH"",30,0)"
^XMB(3.9,110,2,1036,0)=" N II"
^XMB(3.9,110,2,1037,0)="""RTN"",""PSOLLLH"",31,0)"
^XMB(3.9,110,2,1038,0)=" S II=I#4"
^XMB(3.9,110,2,1039,0)="""RTN"",""PSOLLLH"",32,0)"
^XMB(3.9,110,2,1040,0)=" I LAST,II>0 F J=1:1:(4-II) S T="" "" D PRINT(T)"
^XMB(3.9,110,2,1041,0)="""RTN"",""PSOLLLH"",33,0)"
^XMB(3.9,110,2,1042,0)=" S PSOY=PSOY+10"
^XMB(3.9,110,2,1043,0)="""RTN"",""PSOLLLH"",34,0)"
^XMB(3.9,110,2,1044,0)=" S T=""Pt. Sig.""_BLNKLIN D PRINT(T)"
^XMB(3.9,110,2,1045,0)="""RTN"",""PSOLLLH"",35,0)"
^XMB(3.9,110,2,1046,0)=" S PSOY=PSOY+5"
^XMB(3.9,110,2,1047,0)="""RTN"",""PSOLLLH"",36,0)"
^XMB(3.9,110,2,1048,0)=" D PRINT($$PLANNM())"
^XMB(3.9,110,2,1049,0)="""RTN"",""PSOLLLH"",37,0)"
^XMB(3.9,110,2,1050,0)=" S PSOY=PSOY+15"
^XMB(3.9,110,2,1051,0)="""RTN"",""PSOLLLH"",38,0)"
^XMB(3.9,110,2,1052,0)=" S T=""Relationship_________________ Counseled? _____"" D PRINT(T)"
^XMB(3.9,110,2,1053,0)="""RTN"",""PSOLLLH"",39,0)"
^XMB(3.9,110,2,1054,0)=" S PSOY=PSOY+10"
^XMB(3.9,110,2,1055,0)="""RTN"",""PSOLLLH"",40,0)"
^XMB(3.9,110,2,1056,0)=" S T=PNM_""  ""_$G(SSNP) D PRINT(T,1)"
^XMB(3.9,110,2,1057,0)="""RTN"",""PSOLLLH"",41,0)"
^XMB(3.9,110,2,1058,0)=" Q"
^XMB(3.9,110,2,1059,0)="""RTN"",""PSOLLLH"",42,0)"
^XMB(3.9,110,2,1060,0)=" ;"
^XMB(3.9,110,2,1061,0)="""RTN"",""PSOLLLH"",43,0)"
^XMB(3.9,110,2,1062,0)="HDR ;"
^XMB(3.9,110,2,1063,0)="""RTN"",""PSOLLLH"",44,0)"
^XMB(3.9,110,2,1064,0)=" I 'FIRST D SIGN W @IOF"
^XMB(3.9,110,2,1065,0)="""RTN"",""PSOLLLH"",45,0)"
^XMB(3.9,110,2,1066,0)=" I $G(PSOIO(""BLH""))]"""" X PSOIO(""BLH"")"
^XMB(3.9,110,2,1067,0)="""RTN"",""PSOLLLH"",46,0)"
^XMB(3.9,110,2,1068,0)=" S T=""VAMC ""_$P(PS,""^"",7)_"", ""_STATE_"" ""_$G(PSOHZIP) D PRINT(T)"
^XMB(3.9,110,2,1069,0)="""RTN"",""PSOLLLH"",47,0)"
^XMB(3.9,110,2,1070,0)=" S T=$P(PS2,""^"",2)_""  ""_TECH_""  Ph: ""_$P(PS,""^"",3)_""-""_$P(PS,""^"",4) D PRINT(T)"
^XMB(3.9,110,2,1071,0)="""RTN"",""PSOLLLH"",48,0)"
^XMB(3.9,110,2,1072,0)=" I $G(PSOIO(""BLB""))]"""" X PSOIO(""BLB"")"
^XMB(3.9,110,2,1073,0)="""RTN"",""PSOLLLH"",49,0)"
^XMB(3.9,110,2,1074,0)=" S XFONT=$E(PSOFONT,2,99)"
^XMB(3.9,110,2,1075,0)="""RTN"",""PSOLLLH"",50,0)"
^XMB(3.9,110,2,1076,0)=" N REPMSG"
^XMB(3.9,110,2,1077,0)="""RTN"",""PSOLLLH"",51,0)"
^XMB(3.9,110,2,1078,0)=" S REPMSG=BLNKLN2_""(REPRINT)"""
^XMB(3.9,110,2,1079,0)="""RTN"",""PSOLLLH"",52,0)"
^XMB(3.9,110,2,1080,0)=" S T=""By signing below""_$S($G(REPRINT):REPMSG,1:"""") D PRINT(T,1)"
^XMB(3.9,110,2,1081,0)="""RTN"",""PSOLLLH"",53,0)"
^XMB(3.9,110,2,1082,0)=" S T=""you acknowledge receipt of the following Rx's"" D PRINT(T,1)"
^XMB(3.9,110,2,1083,0)="""RTN"",""PSOLLLH"",54,0)"
^XMB(3.9,110,2,1084,0)=" S T="" "" D PRINT(T)"
^XMB(3.9,110,2,1085,0)="""RTN"",""PSOLLLH"",55,0)"
^XMB(3.9,110,2,1086,0)=" S PSOY=PSOY-20"
^XMB(3.9,110,2,1087,0)="""RTN"",""PSOLLLH"",56,0)"
^XMB(3.9,110,2,1088,0)=" Q"
^XMB(3.9,110,2,1089,0)="""RTN"",""PSOLLLH"",57,0)"
^XMB(3.9,110,2,1090,0)=" ;"
^XMB(3.9,110,2,1091,0)="""RTN"",""PSOLLLH"",58,0)"
^XMB(3.9,110,2,1092,0)="PRINT(T,B) ;"
^XMB(3.9,110,2,1093,0)="""RTN"",""PSOLLLH"",59,0)"
^XMB(3.9,110,2,1094,0)=" S BOLD=$G(B)"
^XMB(3.9,110,2,1095,0)="""RTN"",""PSOLLLH"",60,0)"
^XMB(3.9,110,2,1096,0)=" I 'BOLD,$G(PSOIO(PSOFONT))]"""" X PSOIO(PSOFONT)"
^XMB(3.9,110,2,1097,0)="""RTN"",""PSOLLLH"",61,0)"
^XMB(3.9,110,2,1098,0)=" I BOLD,$G(PSOIO(PSOFONT_""B""))]"""" X PSOIO(PSOFONT_""B"")"
^XMB(3.9,110,2,1099,0)="""RTN"",""PSOLLLH"",62,0)"
^XMB(3.9,110,2,1100,0)=" I $G(PSOIO(""ST""))]"""" X PSOIO(""ST"")"
^XMB(3.9,110,2,1101,0)="""RTN"",""PSOLLLH"",63,0)"
^XMB(3.9,110,2,1102,0)=" W T,!"
^XMB(3.9,110,2,1103,0)="""RTN"",""PSOLLLH"",64,0)"
^XMB(3.9,110,2,1104,0)=" I $G(PSOIO(""ET""))]"""" X PSOIO(""ET"")"
^XMB(3.9,110,2,1105,0)="""RTN"",""PSOLLLH"",65,0)"
^XMB(3.9,110,2,1106,0)=" I BOLD,$G(PSOIO(PSOFONT))]"""" X PSOIO(PSOFONT) ;TURN OFF BOLDING"
^XMB(3.9,110,2,1107,0)="""RTN"",""PSOLLLH"",66,0)"
^XMB(3.9,110,2,1108,0)=" Q"
^XMB(3.9,110,2,1109,0)="""RTN"",""PSOLLLH"",67,0)"
^XMB(3.9,110,2,1110,0)=" ;"
^XMB(3.9,110,2,1111,0)="""RTN"",""PSOLLLH"",68,0)"
^XMB(3.9,110,2,1112,0)="QUEUE ; ENTRY POINT TO PRINT STAND-ALONE MULTI-RX FORM"
^XMB(3.9,110,2,1113,0)="""RTN"",""PSOLLLH"",69,0)"
^XMB(3.9,110,2,1114,0)=" I '$D(PSOPAR) D ^PSOLSET I '$D(PSOPAR) Q"
^XMB(3.9,110,2,1115,0)="""RTN"",""PSOLLLH"",70,0)"
^XMB(3.9,110,2,1116,0)=" N REPRINT,PS,STATE,PS2,PSOHZIP,TECH"
^XMB(3.9,110,2,1117,0)="""RTN"",""PSOLLLH"",71,0)"
^XMB(3.9,110,2,1118,0)=" S PS=$S($D(^PS(59,PSOSITE,0)):^(0),1:"""")"
^XMB(3.9,110,2,1119,0)="""RTN"",""PSOLLLH"",72,0)"
^XMB(3.9,110,2,1120,0)=" S PS2=$P(PS,""^"")_""^""_$P(PS,""^"",6)"
^XMB(3.9,110,2,1121,0)="""RTN"",""PSOLLLH"",73,0)"
^XMB(3.9,110,2,1122,0)=" I $P(PSOSYS,""^"",4),$D(^PS(59,+$P($G(PSOSYS),""^"",4),0)) S PS=^PS(59,$P($G(PSOSYS),""^"",4),0)"
^XMB(3.9,110,2,1123,0)="""RTN"",""PSOLLLH"",74,0)"
^XMB(3.9,110,2,1124,0)=" S VAADDR1=$P(PS,""^""),VASTREET=$P(PS,""^"",2),STATE=$S($D(^DIC(5,+$P(PS,""^"",8),0)):$P(^(0),""^"",2),1:""UNKNOWN"")"
^XMB(3.9,110,2,1125,0)="""RTN"",""PSOLLLH"",75,0)"
^XMB(3.9,110,2,1126,0)=" S PSZIP=$P(PS,""^"",5),PSOHZIP=$S(PSZIP[""-"":PSZIP,1:$E(PSZIP,1,5)_$S($E(PSZIP,6,9)]"""":""-""_$E(PSZIP,6,9),1:""""))"
^XMB(3.9,110,2,1127,0)="""RTN"",""PSOLLLH"",76,0)"
^XMB(3.9,110,2,1128,0)=" D 6^VADPT,PID^VADPT6 S SSNP=$E($G(VA(""PID"")),5,12)"
^XMB(3.9,110,2,1129,0)="""RTN"",""PSOLLLH"",77,0)"
^XMB(3.9,110,2,1130,0)=" S REPRINT=1"
^XMB(3.9,110,2,1131,0)="""RTN"",""PSOLLLH"",78,0)"
^XMB(3.9,110,2,1132,0)="LRP W !! S DIC(""S"")=""I $P($G(^(0)),""""^"""",2),$D(^(""""STA"""")),$P($G(^(""""STA"""")),""""^"""")<10"",DIC=""^PSRX("",DIC(""A"")=""Reprint Signature Log for Prescription: "",DIC(0)=""QEAZ"" D ^DIC K P,DIC(""A"") I Y<0!(""^""[X) D KILL Q"
^XMB(3.9,110,2,1133,0)="""RTN"",""PSOLLLH"",79,0)"
^XMB(3.9,110,2,1134,0)=" W !"
^XMB(3.9,110,2,1135,0)="""RTN"",""PSOLLLH"",80,0)"
^XMB(3.9,110,2,1136,0)=" S (PPL,RX)=+Y"
^XMB(3.9,110,2,1137,0)="""RTN"",""PSOLLLH"",81,0)"
^XMB(3.9,110,2,1138,0)=" N RXY"
^XMB(3.9,110,2,1139,0)="""RTN"",""PSOLLLH"",82,0)"
^XMB(3.9,110,2,1140,0)=" S RXY=$G(^PSRX(RX,0)) I RXY="""" Q"
^XMB(3.9,110,2,1141,0)="""RTN"",""PSOLLLH"",83,0)"
^XMB(3.9,110,2,1142,0)=" S TECH=$P($G(^VA(200,+$P(RXY,""^"",16),0)),""^"")"
^XMB(3.9,110,2,1143,0)="""RTN"",""PSOLLLH"",84,0)"
^XMB(3.9,110,2,1144,0)=" S DFN=$P(RXY,""^"",2)"
^XMB(3.9,110,2,1145,0)="""RTN"",""PSOLLLH"",85,0)"
^XMB(3.9,110,2,1146,0)="GETPT2 D DEM^VADPT S PNM=VADM(1)"
^XMB(3.9,110,2,1147,0)="""RTN"",""PSOLLLH"",86,0)"
^XMB(3.9,110,2,1148,0)=" I $P(VADM(6),""^"",2)]"""" D  G LRP"
^XMB(3.9,110,2,1149,0)="""RTN"",""PSOLLLH"",87,0)"
^XMB(3.9,110,2,1150,0)=" .W $C(7),!!,PNM_"" Died ""_$P(VADM(6),""^"",2)_""."",!"
^XMB(3.9,110,2,1151,0)="""RTN"",""PSOLLLH"",88,0)"
^XMB(3.9,110,2,1152,0)="Q1 W ! K POP,ZTSK S %ZIS(""B"")="""",%ZIS=""MNQ"",%ZIS(""A"")=""Select LABEL DEVICE: "" D ^%ZIS S PSLION=ION K %ZIS(""A"")"
^XMB(3.9,110,2,1153,0)="""RTN"",""PSOLLLH"",89,0)"
^XMB(3.9,110,2,1154,0)=" I $G(POP) Q"
^XMB(3.9,110,2,1155,0)="""RTN"",""PSOLLLH"",90,0)"
^XMB(3.9,110,2,1156,0)=" I $G(IOST(0)),'$D(^%ZIS(2,IOST(0),55,""B"",""LL"")) W !,""Must specify a laser labels printer for Signature Log Reprint"" G Q1"
^XMB(3.9,110,2,1157,0)="""RTN"",""PSOLLLH"",91,0)"
^XMB(3.9,110,2,1158,0)=" I '$G(IOST(0)) W !,""Nothing queued to print."" H 1 Q"
^XMB(3.9,110,2,1159,0)="""RTN"",""PSOLLLH"",92,0)"
^XMB(3.9,110,2,1160,0)=" D NOW^%DTC S Y=$P(%,"".""),PSOFNOW=% X ^DD(""DD"") S PSONOW=Y"
^XMB(3.9,110,2,1161,0)="""RTN"",""PSOLLLH"",93,0)"
^XMB(3.9,110,2,1162,0)=" F G=""PPL"",""REPRINT"",""TECH"",""PNM"",""STATE"",""PS2"",""PSOHZIP"",""PSOPAR"",""PSOSITE"",""PS"",""PSONOW"",""PSOSYS"",""RX"",""SSNP"" S:$D(@G) ZTSAVE(G)="""""
^XMB(3.9,110,2,1163,0)="""RTN"",""PSOLLLH"",94,0)"
^XMB(3.9,110,2,1164,0)=" S ZTRTN=""DQ^PSOLLLH"",ZTIO=PSLION,ZTDESC=""Outpatient Pharmacy Signature Log Reprint"",ZTDTH=$H,PDUZ=DUZ"
^XMB(3.9,110,2,1165,0)="""RTN"",""PSOLLLH"",95,0)"
^XMB(3.9,110,2,1166,0)=" D ^%ZISC,^%ZTLOAD W:$D(ZTSK) !!,""Signature Log Reprint queued"",!! H 1 K G"
^XMB(3.9,110,2,1167,0)="""RTN"",""PSOLLLH"",96,0)"
^XMB(3.9,110,2,1168,0)=" G QUEUE"
^XMB(3.9,110,2,1169,0)="""RTN"",""PSOLLLH"",97,0)"
^XMB(3.9,110,2,1170,0)=" Q"
^XMB(3.9,110,2,1171,0)="""RTN"",""PSOLLLH"",98,0)"
^XMB(3.9,110,2,1172,0)="DQ N PSOBIO S (I,PSOIO)=0 F  S I=$O(^%ZIS(2,IOST(0),55,I)) Q:'I  S X0=$G(^(I,0)) I X0]"""" S PSOIO($P(X0,""^""))=^(1),PSOIO=1"
^XMB(3.9,110,2,1173,0)="""RTN"",""PSOLLLH"",99,0)"
^XMB(3.9,110,2,1174,0)=" I $G(PSOIO(""LLI""))]"""" X PSOIO(""LLI"")"
^XMB(3.9,110,2,1175,0)="""RTN"",""PSOLLLH"",100,0)"
^XMB(3.9,110,2,1176,0)=" G SIGLOG"
^XMB(3.9,110,2,1177,0)="""RTN"",""PSOLLLH"",101,0)"
^XMB(3.9,110,2,1178,0)=" ;"
^XMB(3.9,110,2,1179,0)="""RTN"",""PSOLLLH"",102,0)"
^XMB(3.9,110,2,1180,0)="PLANNM() ; Returns Insurance Name (3rd Party)"
^XMB(3.9,110,2,1181,0)="""RTN"",""PSOLLLH"",103,0)"
^XMB(3.9,110,2,1182,0)=" S PLANNM="""""
^XMB(3.9,110,2,1183,0)="""RTN"",""PSOLLLH"",104,0)"
^XMB(3.9,110,2,1184,0)=" N I,DUR,RX"
^XMB(3.9,110,2,1185,0)="""RTN"",""PSOLLLH"",105,0)"
^XMB(3.9,110,2,1186,0)=" F I=1:1:$L(PPL,"","") S RX=+$P(PPL,"","",I) D  I PLANNM'="""" Q"
^XMB(3.9,110,2,1187,0)="""RTN"",""PSOLLLH"",106,0)"
^XMB(3.9,110,2,1188,0)=" .I 'RX Q"
^XMB(3.9,110,2,1189,0)="""RTN"",""PSOLLLH"",107,0)"
^XMB(3.9,110,2,1190,0)=" .D DUR1^BPSNCPD3(RX,$$LSTRFL^PSOBPSU1(RX),.DUR) S PLANNM=$G(DUR(1,""INSURANCE NAME""))"
^XMB(3.9,110,2,1191,0)="""RTN"",""PSOLLLH"",108,0)"
^XMB(3.9,110,2,1192,0)=" Q PLANNM"
^XMB(3.9,110,2,1193,0)="""RTN"",""PSOLLLH"",109,0)"
^XMB(3.9,110,2,1194,0)="KILL ; CLEAN UP VARIABLES"
^XMB(3.9,110,2,1195,0)="""RTN"",""PSOLLLH"",110,0)"
^XMB(3.9,110,2,1196,0)=" K DIC,DFN,PNM,PPL,PSZIP,RX,SSNP,VA,VADDR1,VADM,VAEL,VAPA,VASTREET"
^XMB(3.9,110,2,1197,0)="""RTN"",""PSOLLLH"",111,0)"
^XMB(3.9,110,2,1198,0)=" Q"
^XMB(3.9,110,2,1199,0)="""RTN"",""PSOLLLI"")"
^XMB(3.9,110,2,1200,0)="0^7^B66394524^B65332955"
^XMB(3.9,110,2,1201,0)="""RTN"",""PSOLLLI"",1,0)"
^XMB(3.9,110,2,1202,0)="PSOLLLI ;BIR/JLC - LASER LABELS INITIALIZATION ;6/29/06 11:42am"
^XMB(3.9,110,2,1203,0)="""RTN"",""PSOLLLI"",2,0)"
^XMB(3.9,110,2,1204,0)=" ;;7.0;OUTPATIENT PHARMACY;**120,157,189,161,244**;DEC 1997"
^XMB(3.9,110,2,1205,0)="""RTN"",""PSOLLLI"",3,0)"
^XMB(3.9,110,2,1206,0)=" ;"
^XMB(3.9,110,2,1207,0)="""RTN"",""PSOLLLI"",4,0)"
^XMB(3.9,110,2,1208,0)=" ;DBIAs PSDRUG-221, PS(55-2228, SC-10040, IBARX-125, PSXSRP-2201, %ZIS-3435, DPT-3097, ^TMP($J,""PSNPPIO""-3794"
^XMB(3.9,110,2,1209,0)="""RTN"",""PSOLLLI"",5,0)"
^XMB(3.9,110,2,1210,0)=" ;External reference to DRUG^PSSWRNA supported by DBIA 4449"
^XMB(3.9,110,2,1211,0)="""RTN"",""PSOLLLI"",6,0)"
^XMB(3.9,110,2,1212,0)=" ;"
^XMB(3.9,110,2,1213,0)="""RTN"",""PSOLLLI"",7,0)"
^XMB(3.9,110,2,1214,0)=" ;*244 remove test for partial fill when testing status > 11"
^XMB(3.9,110,2,1215,0)="""RTN"",""PSOLLLI"",8,0)"
^XMB(3.9,110,2,1216,0)=" ;"
^XMB(3.9,110,2,1217,0)="""RTN"",""PSOLLLI"",9,0)"
^XMB(3.9,110,2,1218,0)="DQ N PSOBIO S (I,PSOIO)=0 F  S I=$O(^%ZIS(2,IOST(0),55,I)) Q:'I  S X0=$G(^(I,0)) I X0]"""" S PSOIO($P(X0,""^""))=^(1),PSOIO=1"
^XMB(3.9,110,2,1219,0)="""RTN"",""PSOLLLI"",10,0)"
^XMB(3.9,110,2,1220,0)="DQ1 I '$D(PPL) G HLEX"
^XMB(3.9,110,2,1221,0)="""RTN"",""PSOLLLI"",11,0)"
^XMB(3.9,110,2,1222,0)=" I $P($G(PSOPAR),""^"",30)=2,'$G(PSOEXREP) G HLEX"
^XMB(3.9,110,2,1223,0)="""RTN"",""PSOLLLI"",12,0)"
^XMB(3.9,110,2,1224,0)=" K RXFLX S PSOCKHN="",""_$G(PPL),PSRESOLV=+PPL D CHECK"
^XMB(3.9,110,2,1225,0)="""RTN"",""PSOLLLI"",13,0)"
^XMB(3.9,110,2,1226,0)=" S PSOINT=1 F PI=1:1 S RX=$P(PPL,"","",PI) Q:RX=""""  D"
^XMB(3.9,110,2,1227,0)="""RTN"",""PSOLLLI"",14,0)"
^XMB(3.9,110,2,1228,0)=" . S RXY=$G(^PSRX(RX,0)) Q:RXY=""""  I PSOPDFN'=$P(RXY,""^"",2),'PSOINT D TRAIL^PSOLLL1 S PSOPDFN=$P(RXY,""^"",2)"
^XMB(3.9,110,2,1229,0)="""RTN"",""PSOLLLI"",15,0)"
^XMB(3.9,110,2,1230,0)=" . K RXP,REPRINT D C"
^XMB(3.9,110,2,1231,0)="""RTN"",""PSOLLLI"",16,0)"
^XMB(3.9,110,2,1232,0)=" I 'PSOINT D TRAIL^PSOLLL1"
^XMB(3.9,110,2,1233,0)="""RTN"",""PSOLLLI"",17,0)"
^XMB(3.9,110,2,1234,0)="HLEX K RXPI,PSORX,RXP,PSOIOS,PSOLAPPL,XXX,COPAYVAR,TECH,PHYS,MFG,NURSE,STATE,SIDE,COPIES,EXDT,ISD,PSOINST,RXN,RXY,VADT,DEA,WARN,FDT,QTY,PATST,PDA,PS,PS1,RXP,REPRINT"
^XMB(3.9,110,2,1235,0)="""RTN"",""PSOLLLI"",18,0)"
^XMB(3.9,110,2,1236,0)=" K SGY,OSGY,PS2,PSL,PSNP,INRX,RR,XTYPE,SSNP,SSNPN,PNM,ADDR,PSODBQ,PSOLASTF,PSRESOLV,PSOEXREP,PSOSXQ"
^XMB(3.9,110,2,1237,0)="""RTN"",""PSOLLLI"",19,0)"
^XMB(3.9,110,2,1238,0)=" K DATE,DR,DRUG,LINE,MW,PRTFL,VRPH,EXPDT,X2,DIFF,DAYS,PSZIP,PSOHZIP,PS55,PS55X"
^XMB(3.9,110,2,1239,0)="""RTN"",""PSOLLLI"",20,0)"
^XMB(3.9,110,2,1240,0)=" K ^TMP($J,""PSNPMI""),^TMP($J,""PSOCP"",+$G(PSOCPN)),PSOCPN,PSOLBLDR,PSOLBLPS,PSOLBLCP,RXPR,RXRP,RXRS,PSOCKHN,RXFLX,PSOLAPPL,PSOPDFN,PSDFNFLG,PSOZERO,NEXTRX,PSOBLALL,STA"
^XMB(3.9,110,2,1241,0)="""RTN"",""PSOLLLI"",21,0)"
^XMB(3.9,110,2,1242,0)=" I '$G(PSOSUREP),'$G(PSOSUSPR) S ZTREQ=""@"""
^XMB(3.9,110,2,1243,0)="""RTN"",""PSOLLLI"",22,0)"
^XMB(3.9,110,2,1244,0)=" Q"
^XMB(3.9,110,2,1245,0)="""RTN"",""PSOLLLI"",23,0)"
^XMB(3.9,110,2,1246,0)="C N PSOBIO S (I,PSOIO)=0 F  S I=$O(^%ZIS(2,IOST(0),55,I)) Q:'I  S X0=$G(^(I,0)) I X0]"""" S PSOIO($P(X0,""^""))=^(1),PSOIO=1"
^XMB(3.9,110,2,1247,0)="""RTN"",""PSOLLLI"",24,0)"
^XMB(3.9,110,2,1248,0)=" U IO Q:'$D(^PSRX(RX,0))  S RXY=^(0),RX2=^(2),RXSTA=^(""STA"") K SGY,OSGY"
^XMB(3.9,110,2,1249,0)="""RTN"",""PSOLLLI"",25,0)"
^XMB(3.9,110,2,1250,0)=" S (SIGM,PFM,PMIM,L2,L3,L4,L5,FILLCONT,BOTTLBL)=0"
^XMB(3.9,110,2,1251,0)="""RTN"",""PSOLLLI"",26,0)"
^XMB(3.9,110,2,1252,0)=" K SIGF,PFF,PMIF S (SIGF,PFF,PMIF)=0 F I=""DR"",""T"" S (SIGF(I),PFF(I))=1"
^XMB(3.9,110,2,1253,0)="""RTN"",""PSOLLLI"",27,0)"
^XMB(3.9,110,2,1254,0)=" F I=""A"",""B"",""I"" S PMIF(I)=1"
^XMB(3.9,110,2,1255,0)="""RTN"",""PSOLLLI"",28,0)"
^XMB(3.9,110,2,1256,0)=" D NOW^%DTC S Y=$P(%,"".""),PSOFNOW=% X ^DD(""DD"") S PSONOW=Y,Y=PSOFNOW X ^DD(""DD"") S PSONOWT=Y"
^XMB(3.9,110,2,1257,0)="""RTN"",""PSOLLLI"",29,0)"
^XMB(3.9,110,2,1258,0)=" S:$G(PSOBLALL) PSOBLRX=RX S:$D(RXRP(RX)) REPRINT=1 S:$D(RXPR(RX)) RXP=RXPR(RX)"
^XMB(3.9,110,2,1259,0)="""RTN"",""PSOLLLI"",30,0)"
^XMB(3.9,110,2,1260,0)=" I $G(PSOSUREP)!($G(PSOEXREP)) S REPRINT=1 I '$G(RXRP(RX)) S RXRP(RX)=1"
^XMB(3.9,110,2,1261,0)="""RTN"",""PSOLLLI"",31,0)"
^XMB(3.9,110,2,1262,0)=" S A=$P(RXSTA,""^"") I A>11 D AL^PSOLBL(""QT"") K RXP,REPRINT Q      ;*244"
^XMB(3.9,110,2,1263,0)="""RTN"",""PSOLLLI"",32,0)"
^XMB(3.9,110,2,1264,0)=" I A=3 D AL^PSOLBL(""QT"") K RXP,REPRINT Q"
^XMB(3.9,110,2,1265,0)="""RTN"",""PSOLLLI"",33,0)"
^XMB(3.9,110,2,1266,0)=" I $G(RXPR(RX)),'$D(^PSRX(RX,""P"",RXP,0)) K RXP,REPRINT Q"
^XMB(3.9,110,2,1267,0)="""RTN"",""PSOLLLI"",34,0)"
^XMB(3.9,110,2,1268,0)=" I $P($G(RXFL(RX)),""^""),'$D(^PSRX(RX,1,$P($G(RXFL(RX)),""^""),0)) K RXP,REPRINT Q"
^XMB(3.9,110,2,1269,0)="""RTN"",""PSOLLLI"",35,0)"
^XMB(3.9,110,2,1270,0)=" I $G(PSODBQ)!($G(RXRS(RX))) S RR=$O(^PS(52.5,""B"",RX,0)) Q:'RR  I $G(^PS(52.5,RR,""P""))=1 K RXP,REPRINT Q"
^XMB(3.9,110,2,1271,0)="""RTN"",""PSOLLLI"",36,0)"
^XMB(3.9,110,2,1272,0)=" I $G(RXRS(RX))!($G(PSOPULL)) S PSOSXQ=0 N DR,DA,DIE D  I $G(PSOSXQ) K RXP,REPRINT Q"
^XMB(3.9,110,2,1273,0)="""RTN"",""PSOLLLI"",37,0)"
^XMB(3.9,110,2,1274,0)=" . S DA=$O(^PS(52.5,""B"",RX,0)) Q:'DA"
^XMB(3.9,110,2,1275,0)="""RTN"",""PSOLLLI"",38,0)"
^XMB(3.9,110,2,1276,0)=" . S A=$P($G(^PS(52.5,DA,0)),""^"",7) I A="""" Q"
^XMB(3.9,110,2,1277,0)="""RTN"",""PSOLLLI"",39,0)"
^XMB(3.9,110,2,1278,0)=" . I A=""Q"" S DIE=""^PS(52.5,"",DR=""3////P"" D ^DIE Q"
^XMB(3.9,110,2,1279,0)="""RTN"",""PSOLLLI"",40,0)"
^XMB(3.9,110,2,1280,0)=" . K RXRS(RX) S PSOSXQ=1"
^XMB(3.9,110,2,1281,0)="""RTN"",""PSOLLLI"",41,0)"
^XMB(3.9,110,2,1282,0)=" I $G(PSRESOLV)=RX D ENLBL^PSOBSET K PSRESOLV"
^XMB(3.9,110,2,1283,0)="""RTN"",""PSOLLLI"",42,0)"
^XMB(3.9,110,2,1284,0)=" I $P(RXSTA,""^"")'=4 D"
^XMB(3.9,110,2,1285,0)="""RTN"",""PSOLLLI"",43,0)"
^XMB(3.9,110,2,1286,0)=" . I $G(PSOSUSPR) D AREC^PSOSUTL"
^XMB(3.9,110,2,1287,0)="""RTN"",""PSOLLLI"",44,0)"
^XMB(3.9,110,2,1288,0)=" . I $G(PSOPULL)!($G(RXRS(RX))) D AREC1^PSOSUTL"
^XMB(3.9,110,2,1289,0)="""RTN"",""PSOLLLI"",45,0)"
^XMB(3.9,110,2,1290,0)=" . I $G(PSOSUREP) D AREC^PSOSUSRP"
^XMB(3.9,110,2,1291,0)="""RTN"",""PSOLLLI"",46,0)"
^XMB(3.9,110,2,1292,0)=" . I $G(PSXREP) D AREC^PSXSRP"
^XMB(3.9,110,2,1293,0)="""RTN"",""PSOLLLI"",47,0)"
^XMB(3.9,110,2,1294,0)=" S RXY=^PSRX(RX,0),RX2=^(2),RXSTA=^(""STA"")"
^XMB(3.9,110,2,1295,0)="""RTN"",""PSOLLLI"",48,0)"
^XMB(3.9,110,2,1296,0)=" K ^UTILITY(""DIQ1"",$J) S DA=$P($$SITE^VASITE(),""^"")"
^XMB(3.9,110,2,1297,0)="""RTN"",""PSOLLLI"",49,0)"
^XMB(3.9,110,2,1298,0)=" I $G(DA) S DIC=4,DIQ(0)=""I"",DR=""99"" D EN^DIQ1 S PSOINST=$G(^UTILITY(""DIQ1"",$J,4,DA,99,""I"")) K ^UTILITY(""DIQ1"",$J),DA,DR,DIC"
^XMB(3.9,110,2,1299,0)="""RTN"",""PSOLLLI"",50,0)"
^XMB(3.9,110,2,1300,0)=" S RXN=$P(RXY,""^""),DFN=+$P(RXY,""^"",2),PSOLBLPS=+$P(RXY,""^"",3),PSOLBLDR=+$P(RXY,""^"",6)"
^XMB(3.9,110,2,1301,0)="""RTN"",""PSOLLLI"",51,0)"
^XMB(3.9,110,2,1302,0)=" S ISD=$P(RXY,""^"",13),RXF=0,SIG=$P($G(^PSRX(RX,""SIG"")),""^""),ISD=$E(ISD,4,5)_""/""_$E(ISD,6,7)_""/""_($E(ISD,1,3)+1700),ZY=0,$P(LINE,""_"",28)=""_"""
^XMB(3.9,110,2,1303,0)="""RTN"",""PSOLLLI"",52,0)"
^XMB(3.9,110,2,1304,0)=" S NURSE=$S($P($G(^DPT(DFN,""NHC"")),""^"")=""Y"":1,$P($G(^PS(55,DFN,40)),""^""):1,1:0)"
^XMB(3.9,110,2,1305,0)="""RTN"",""PSOLLLI"",53,0)"
^XMB(3.9,110,2,1306,0)=" S FDT=$P(RX2,""^"",2),PS=$S($D(^PS(59,PSOSITE,0)):^(0),1:""""),PS1=$S($D(^(1)):^(1),1:""""),PSOSITE7=$P(^(""IB""),""^"")"
^XMB(3.9,110,2,1307,0)="""RTN"",""PSOLLLI"",54,0)"
^XMB(3.9,110,2,1308,0)=" S PS2=$P(PS,""^"")_""^""_$P(PS,""^"",6)"
^XMB(3.9,110,2,1309,0)="""RTN"",""PSOLLLI"",55,0)"
^XMB(3.9,110,2,1310,0)=" S EXPDT=$P(RX2,""^"",6),EXDT=$S('EXPDT:"""",1:$E(EXPDT,4,5)_""/""_$E(EXPDT,6,7)_""/""_($E(EXPDT,1,3)+1700))"
^XMB(3.9,110,2,1311,0)="""RTN"",""PSOLLLI"",56,0)"
^XMB(3.9,110,2,1312,0)=" S COPIES=$S($P($G(RXRP(RX)),""^"",2):$P($G(RXRP(RX)),""^"",2),$P(RXY,""^"",18)]"""":$P(RXY,""^"",18),1:1)"
^XMB(3.9,110,2,1313,0)="""RTN"",""PSOLLLI"",57,0)"
^XMB(3.9,110,2,1314,0)=" K PSOCKHNX S PSOCKHL=$L(RX),PSOCKHN=$E($G(PSOCKHN),(PSOCKHL+2),999) D  K PSOCKHNX,PSOCKHL,PSOCKHA"
^XMB(3.9,110,2,1315,0)="""RTN"",""PSOLLLI"",58,0)"
^XMB(3.9,110,2,1316,0)=" .S PSOCKHA="",""_RX_"","""
^XMB(3.9,110,2,1317,0)="""RTN"",""PSOLLLI"",59,0)"
^XMB(3.9,110,2,1318,0)=" .I PSOCKHN'[PSOCKHA Q"
^XMB(3.9,110,2,1319,0)="""RTN"",""PSOLLLI"",60,0)"
^XMB(3.9,110,2,1320,0)=" .S PSOCKHA=$E(PSOCKHA,1,($L(PSOCKHA)-1))"
^XMB(3.9,110,2,1321,0)="""RTN"",""PSOLLLI"",61,0)"
^XMB(3.9,110,2,1322,0)=" .S PSOCKHNX=$L(PSOCKHN,PSOCKHA)-1"
^XMB(3.9,110,2,1323,0)="""RTN"",""PSOLLLI"",62,0)"
^XMB(3.9,110,2,1324,0)=" .I +$G(PSOCKHNX)>0 D DOUB"
^XMB(3.9,110,2,1325,0)="""RTN"",""PSOLLLI"",63,0)"
^XMB(3.9,110,2,1326,0)=" I $O(^PSRX(RX,1,0)),$G(RXFL(RX))'=0 S $P(^PSRX(RX,3),""^"",6)="""" K ^PSRX(RX,""DAI""),^PSRX(RX,""DRI"")"
^XMB(3.9,110,2,1327,0)="""RTN"",""PSOLLLI"",64,0)"
^XMB(3.9,110,2,1328,0)=" I '$G(RXP),'$O(^PSRX(RX,1,0)) S RXFL(RX)=0"
^XMB(3.9,110,2,1329,0)="""RTN"",""PSOLLLI"",65,0)"
^XMB(3.9,110,2,1330,0)=" I '$G(RXP) D OSET I '$O(^PSRX(RX,1,0))!($G(RXFL(RX))=0) G ORIG"
^XMB(3.9,110,2,1331,0)="""RTN"",""PSOLLLI"",66,0)"
^XMB(3.9,110,2,1332,0)=" I $O(^PSRX(RX,1,0)),'$G(RXP) D  G STA"
^XMB(3.9,110,2,1333,0)="""RTN"",""PSOLLLI"",67,0)"
^XMB(3.9,110,2,1334,0)=" . I '$G(RXFL(RX)) S XTYPE=1 D REF"
^XMB(3.9,110,2,1335,0)="""RTN"",""PSOLLLI"",68,0)"
^XMB(3.9,110,2,1336,0)=" I $G(RXP) S XTYPE=""P"" D REF G STA"
^XMB(3.9,110,2,1337,0)="""RTN"",""PSOLLLI"",69,0)"
^XMB(3.9,110,2,1338,0)="ORIG S TECH=$P($G(^VA(200,+$P(RXY,""^"",16),0)),""^""),PHYS=$S($D(^VA(200,+$P(RXY,""^"",4),0)):$P(^(0),""^""),1:""UKN"")"
^XMB(3.9,110,2,1339,0)="""RTN"",""PSOLLLI"",70,0)"
^XMB(3.9,110,2,1340,0)=" S DAYS=$P(RXY,""^"",8),QTY=$P(RXY,""^"",7)"
^XMB(3.9,110,2,1341,0)="""RTN"",""PSOLLLI"",71,0)"
^XMB(3.9,110,2,1342,0)=" D 6^VADPT,PID^VADPT6 S SSNPN=$E($G(VA(""PID"")),5,12)"
^XMB(3.9,110,2,1343,0)="""RTN"",""PSOLLLI"",72,0)"
^XMB(3.9,110,2,1344,0)="STA S STATE=$S($D(^DIC(5,+$P(PS,""^"",8),0)):$P(^(0),""^"",2),1:""UKN"")"
^XMB(3.9,110,2,1345,0)="""RTN"",""PSOLLLI"",73,0)"
^XMB(3.9,110,2,1346,0)=" S DRUG=$$ZZ^PSOSUTL(RX),DEA=$P($G(^PSDRUG(+$P(RXY,""^"",6),0)),""^"",3),WARN=$P($G(^(0)),""^"",8)"
^XMB(3.9,110,2,1347,0)="""RTN"",""PSOLLLI"",74,0)"
^XMB(3.9,110,2,1348,0)=" S WARN=$$DRUG^PSSWRNA(+$P(RXY,""^"",6),+$P(RXY,""^"",2))"
^XMB(3.9,110,2,1349,0)="""RTN"",""PSOLLLI"",75,0)"
^XMB(3.9,110,2,1350,0)=" S SIDE=$S($P($G(RXRP(RX)),""^"",3):1,1:0)"
^XMB(3.9,110,2,1351,0)="""RTN"",""PSOLLLI"",76,0)"
^XMB(3.9,110,2,1352,0)=" I $G(^PSRX(RX,""P"",+$G(RXP),0))]"""" S RXPI=RXP D"
^XMB(3.9,110,2,1353,0)="""RTN"",""PSOLLLI"",77,0)"
^XMB(3.9,110,2,1354,0)=" .S RXP=^PSRX(RX,""P"",RXP,0)"
^XMB(3.9,110,2,1355,0)="""RTN"",""PSOLLLI"",78,0)"
^XMB(3.9,110,2,1356,0)=" .S RXY=$P(RXP,""^"")_""^""_$P(RXY,""^"",2,6)_""^""_$P(RXP,""^"",4)_""^""_$P(RXP,""^"",10)_""^""_$P(RXY,""^"",9)_""^""_$P($G(^PSRX(RX,""SIG"")),""^"",2)_""^""_$P(RXP,""^"",2)_""^""_$P(RXY,""^"",12,14)_""^""_$P(^PSRX(RX,""STA""),""^"")_""^""_$P(RXP,""^"",7)_""^""_$P(RXY,""^"",17,99)"
^XMB(3.9,110,2,1357,0)="""RTN"",""PSOLLLI"",79,0)"
^XMB(3.9,110,2,1358,0)=" .S FDT=$P(RXP,""^"")"
^XMB(3.9,110,2,1359,0)="""RTN"",""PSOLLLI"",80,0)"
^XMB(3.9,110,2,1360,0)=" S MW=$P(RXY,""^"",11) I $G(RXFL(RX))'=0 D:$G(RXFL(RX))  I '$G(RXFL(RX)) F I=0:0 S I=$O(^PSRX(RX,1,I)) Q:'I  S RXF=RXF+1 S:'$G(RXP) MW=$P(^PSRX(RX,1,I,0),""^"",2) I +^PSRX(RX,1,I,0)'<FDT S FDT=+^(0)"
^XMB(3.9,110,2,1361,0)="""RTN"",""PSOLLLI"",81,0)"
^XMB(3.9,110,2,1362,0)=" .I $G(RXFL(RX)),'$D(^PSRX(RX,1,RXFL(RX),0)) K RXFL(RX) Q"
^XMB(3.9,110,2,1363,0)="""RTN"",""PSOLLLI"",82,0)"
^XMB(3.9,110,2,1364,0)=" .S RXF=RXFL(RX) S:'$G(RXP) MW=$P($G(^PSRX(RX,1,RXF,0)),""^"",2) I +^PSRX(RX,1,RXF,0)'<FDT S FDT=+^(0)"
^XMB(3.9,110,2,1365,0)="""RTN"",""PSOLLLI"",83,0)"
^XMB(3.9,110,2,1366,0)=" I MW=""W"",$G(^PSRX(RX,""MP""))]"""" D"
^XMB(3.9,110,2,1367,0)="""RTN"",""PSOLLLI"",84,0)"
^XMB(3.9,110,2,1368,0)=" .S PSMP=^PSRX(RX,""MP""),PSJ=0 F PSI=1:1:$L(PSMP) S PSMP(PSI)="""",PSJ=PSJ+1 F PSJ=PSJ:1 S PSMP(PSI)=PSMP(PSI)_$P(PSMP,"" "",PSJ)_"" "" Q:($L(PSMP(PSI))+$L($P(PSMP,"" "",PSJ+1))>30)"
^XMB(3.9,110,2,1369,0)="""RTN"",""PSOLLLI"",85,0)"
^XMB(3.9,110,2,1370,0)=" .K PSMP(PSI)"
^XMB(3.9,110,2,1371,0)="""RTN"",""PSOLLLI"",86,0)"
^XMB(3.9,110,2,1372,0)=" ;New mail codes for CMOP"
^XMB(3.9,110,2,1373,0)="""RTN"",""PSOLLLI"",87,0)"
^XMB(3.9,110,2,1374,0)=" S MAILCOM="""""
^XMB(3.9,110,2,1375,0)="""RTN"",""PSOLLLI"",88,0)"
^XMB(3.9,110,2,1376,0)=" S X=$G(^PS(55,DFN,0)),PSCAP=$P(X,""^"",2),PS55=$P(X,""^"",3),PS55X=$P(X,""^"",5)"
^XMB(3.9,110,2,1377,0)="""RTN"",""PSOLLLI"",89,0)"
^XMB(3.9,110,2,1378,0)=" I PS55X]"""",PS55>1,PS55X<DT S PS55=1"
^XMB(3.9,110,2,1379,0)="""RTN"",""PSOLLLI"",90,0)"
^XMB(3.9,110,2,1380,0)=" S:MW=""M"" MW=$S((PS55=1!(PS55=4)):""R"",1:MW)"
^XMB(3.9,110,2,1381,0)="""RTN"",""PSOLLLI"",91,0)"
^XMB(3.9,110,2,1382,0)=" S MAILCOM=$P($G(^PS(59,PSOSITE,9)),""^"")"
^XMB(3.9,110,2,1383,0)="""RTN"",""PSOLLLI"",92,0)"
^XMB(3.9,110,2,1384,0)=" S MW=$S(MW=""M"":""REGULAR"",MW=""R"":""CERTIFIED"",1:""WINDOW"")"
^XMB(3.9,110,2,1385,0)="""RTN"",""PSOLLLI"",93,0)"
^XMB(3.9,110,2,1386,0)=" I $G(PSMP(1))="""",$G(PS55)=2 S PSMP(1)=$G(SSNPN)"
^XMB(3.9,110,2,1387,0)="""RTN"",""PSOLLLI"",94,0)"
^XMB(3.9,110,2,1388,0)=" S DATE=$E(FDT,1,7),REF=$P(RXY,""^"",9)-RXF S:'$G(RXP) $P(^PSRX(RX,3),""^"")=FDT S:REF<1 REF=0 D ^PSOLBL2 S II=RX D ^PSORFL,RFLDT^PSORFL"
^XMB(3.9,110,2,1389,0)="""RTN"",""PSOLLLI"",95,0)"
^XMB(3.9,110,2,1390,0)=" S (X,PSOFLAST)=$G(PSOLASTF) I X?1N.E D ^%DT X ^DD(""DD"") S PSOFLAST=Y"
^XMB(3.9,110,2,1391,0)="""RTN"",""PSOLLLI"",96,0)"
^XMB(3.9,110,2,1392,0)=" S PATST=$G(^PS(53,+$P(RXY,""^"",3),0)) S PRTFL=1 I REF=0 S:('$P(PATST,""^"",5))!(DEA[""A""&(DEA'[""B""))!(DEA[""W"") PRTFL=0"
^XMB(3.9,110,2,1393,0)="""RTN"",""PSOLLLI"",97,0)"
^XMB(3.9,110,2,1394,0)=" S VRPH=$P(RX2,""^"",10),PSCLN=+$P(RXY,""^"",5),PSCLN=$G(^SC(PSCLN,0)),PSCLN=$S($P(PSCLN,""^"",2)'="""":$P(PSCLN,""^"",2),1:$E($P(PSCLN,""^""),1,7)) I PSCLN="""" S PSCLN=""UNKNOWN"""
^XMB(3.9,110,2,1395,0)="""RTN"",""PSOLLLI"",98,0)"
^XMB(3.9,110,2,1396,0)=" S PATST=$P(PATST,""^"",2),X1=DT,X2=$P(RXY,""^"",8)-10 D C^%DTC:REF I $D(^PSRX(RX,2)),$P(^(2),""^"",6),REF,X'<$P(^(2),""^"",6) S REF=0,VRPH=$P(^(2),""^"",10)"
^XMB(3.9,110,2,1397,0)="""RTN"",""PSOLLLI"",99,0)"
^XMB(3.9,110,2,1398,0)=" I $G(PSOCHAMP),$G(PSOTRAMT) S COPAYVAR=""CHAMPUS"" G LBL"
^XMB(3.9,110,2,1399,0)="""RTN"",""PSOLLLI"",100,0)"
^XMB(3.9,110,2,1400,0)=" I $G(RXP) S COPAYVAR="""" G LBL"
^XMB(3.9,110,2,1401,0)="""RTN"",""PSOLLLI"",101,0)"
^XMB(3.9,110,2,1402,0)=" I $P($G(^PS(53,+$G(PSOLBLPS),0)),""^"",7) D SNO G LBL"
^XMB(3.9,110,2,1403,0)="""RTN"",""PSOLLLI"",102,0)"
^XMB(3.9,110,2,1404,0)=" I DEA[""I""!(DEA[""S"") D SNO G LBL"
^XMB(3.9,110,2,1405,0)="""RTN"",""PSOLLLI"",103,0)"
^XMB(3.9,110,2,1406,0)=" I $P(^PSRX(RX,""STA""),""^"")>0,$P(^(""STA""),""^"")'=2,'$G(PSODBQ) D SNO G LBL"
^XMB(3.9,110,2,1407,0)="""RTN"",""PSOLLLI"",104,0)"
^XMB(3.9,110,2,1408,0)=" I $G(PSOLBLCP)="""" D IBCP"
^XMB(3.9,110,2,1409,0)="""RTN"",""PSOLLLI"",105,0)"
^XMB(3.9,110,2,1410,0)=" N PSOQI S PSOQI=$G(^PSRX(RX,""IBQ""))"
^XMB(3.9,110,2,1411,0)="""RTN"",""PSOLLLI"",106,0)"
^XMB(3.9,110,2,1412,0)=" I $G(PSOLBLCP)=0 D SNO G LBL"
^XMB(3.9,110,2,1413,0)="""RTN"",""PSOLLLI"",107,0)"
^XMB(3.9,110,2,1414,0)=" I $G(PSOLBLCP)=1 I $P(PSOQI,""^"",2)!($P(PSOQI,""^"",3))!($P(PSOQI,""^"",4))!($P(PSOQI,""^"",5))!($P(PSOQI,""^"",6))!($P(PSOQI,""^"",7)) D SNO G LBL"
^XMB(3.9,110,2,1415,0)="""RTN"",""PSOLLLI"",108,0)"
^XMB(3.9,110,2,1416,0)=" I $G(PSOLBLCP)=2 I $P(PSOQI,""^"")!($P(PSOQI,""^"",2))!($P(PSOQI,""^"",3))!($P(PSOQI,""^"",4))!($P(PSOQI,""^"",5))!($P(PSOQI,""^"",6))!($P(PSOQI,""^"",7)) D SNO G LBL"
^XMB(3.9,110,2,1417,0)="""RTN"",""PSOLLLI"",109,0)"
^XMB(3.9,110,2,1418,0)=" I $G(PSOLBLCP)=2,'$P($G(^PSRX(RX,""IB"")),""^"") D SNO G LBL"
^XMB(3.9,110,2,1419,0)="""RTN"",""PSOLLLI"",110,0)"
^XMB(3.9,110,2,1420,0)=" S PSOCPN=$P(RXY,""^"",2),INRX=$P(RXY,""^"")"
^XMB(3.9,110,2,1421,0)="""RTN"",""PSOLLLI"",111,0)"
^XMB(3.9,110,2,1422,0)=" I $G(^TMP($J,""PSOCP"",PSOCPN))="""" S ^(PSOCPN)=PSOCPN"
^XMB(3.9,110,2,1423,0)="""RTN"",""PSOLLLI"",112,0)"
^XMB(3.9,110,2,1424,0)=" S ^TMP($J,""PSOCP"",PSOCPN,INRX)=INRX_""^""_$$ZZ^PSOSUTL(RX)_""^""_+$G(DAYS),COPAYVAR=""COPAY"" K ZDRUG"
^XMB(3.9,110,2,1425,0)="""RTN"",""PSOLLLI"",113,0)"
^XMB(3.9,110,2,1426,0)="LBL I $G(PSOIO(""LLI""))]"""" X PSOIO(""LLI"")"
^XMB(3.9,110,2,1427,0)="""RTN"",""PSOLLLI"",114,0)"
^XMB(3.9,110,2,1428,0)=" I $P(RXSTA,""^"")=4 D ^PSOLLL8 Q  ;for a critical interaction entered by a tech - don't allow a label to be printed"
^XMB(3.9,110,2,1429,0)="""RTN"",""PSOLLLI"",115,0)"
^XMB(3.9,110,2,1430,0)=" I $D(^PSRX(RX,""DRI"")),'$G(RXF),'$G(RXP) D ^PSOLLL8"
^XMB(3.9,110,2,1431,0)="""RTN"",""PSOLLLI"",116,0)"
^XMB(3.9,110,2,1432,0)=" I $P($G(^PSRX(RX,3)),""^"",6),'$G(RXF),'$G(RXP) D ^PSOLLL9"
^XMB(3.9,110,2,1433,0)="""RTN"",""PSOLLLI"",117,0)"
^XMB(3.9,110,2,1434,0)=" S PSOINT=0 G ^PSOLLL1"
^XMB(3.9,110,2,1435,0)="""RTN"",""PSOLLLI"",118,0)"
^XMB(3.9,110,2,1436,0)="REF F XXX=0:0 S XXX=$O(^PSRX(RX,XTYPE,XXX)) Q:+XXX'>0  D"
^XMB(3.9,110,2,1437,0)="""RTN"",""PSOLLLI"",119,0)"
^XMB(3.9,110,2,1438,0)=" .S TECH=$S($D(^VA(200,+$P(^PSRX(RX,XTYPE,XXX,0),""^"",7),0)):$P(^(0),""^""),1:""UNKNOWN"")"
^XMB(3.9,110,2,1439,0)="""RTN"",""PSOLLLI"",120,0)"
^XMB(3.9,110,2,1440,0)=" .S QTY=$P(^PSRX(RX,XTYPE,XXX,0),""^"",4),PHYS=$S($D(^VA(200,+$P(^PSRX(RX,XTYPE,XXX,0),""^"",17),0)):$P(^(0),""^""),$D(^VA(200,+$P(^PSRX(RX,0),""^"",4),0)):$P(^(0),""^""),1:""UNKNOWN"") D 6^VADPT,PID^VADPT6 S SSNPN=$E($G(VA(""PID"")),5,12)"
^XMB(3.9,110,2,1441,0)="""RTN"",""PSOLLLI"",121,0)"
^XMB(3.9,110,2,1442,0)=" .S DAYS=$P(^PSRX(RX,XTYPE,XXX,0),""^"",10)"
^XMB(3.9,110,2,1443,0)="""RTN"",""PSOLLLI"",122,0)"
^XMB(3.9,110,2,1444,0)=" Q"
^XMB(3.9,110,2,1445,0)="""RTN"",""PSOLLLI"",123,0)"
^XMB(3.9,110,2,1446,0)="CHECK S PSDFNFLG=0,PSOZERO=$P(PPL,"",""),PSOPDFN=$P(^PSRX(PSOZERO,0),""^"",2)"
^XMB(3.9,110,2,1447,0)="""RTN"",""PSOLLLI"",124,0)"
^XMB(3.9,110,2,1448,0)=" Q"
^XMB(3.9,110,2,1449,0)="""RTN"",""PSOLLLI"",125,0)"
^XMB(3.9,110,2,1450,0)="OSET ;"
^XMB(3.9,110,2,1451,0)="""RTN"",""PSOLLLI"",126,0)"
^XMB(3.9,110,2,1452,0)=" N A"
^XMB(3.9,110,2,1453,0)="""RTN"",""PSOLLLI"",127,0)"
^XMB(3.9,110,2,1454,0)=" I $G(RXFL(RX))']""""!($G(RXFL(RX))=0) D  Q"
^XMB(3.9,110,2,1455,0)="""RTN"",""PSOLLLI"",128,0)"
^XMB(3.9,110,2,1456,0)=" .S A=^PSRX(RX,0)"
^XMB(3.9,110,2,1457,0)="""RTN"",""PSOLLLI"",129,0)"
^XMB(3.9,110,2,1458,0)=" .S TECH=$P($G(^VA(200,+$P(A,""^"",16),0)),""^""),QTY=$P(A,""^"",7),PHYS=$S($D(^VA(200,+$P(A,""^"",4),0)):$P(^(0),""^""),1:""UKN"") D 6^VADPT,PID^VADPT6 S SSNPN=$E($G(VA(""PID"")),5,12)"
^XMB(3.9,110,2,1459,0)="""RTN"",""PSOLLLI"",130,0)"
^XMB(3.9,110,2,1460,0)=" .S DAYS=$P(A,""^"",8)"
^XMB(3.9,110,2,1461,0)="""RTN"",""PSOLLLI"",131,0)"
^XMB(3.9,110,2,1462,0)=" I '$D(^PSRX(RX,1,RXFL(RX),0)) K RXFL(RX) Q"
^XMB(3.9,110,2,1463,0)="""RTN"",""PSOLLLI"",132,0)"
^XMB(3.9,110,2,1464,0)=" S A=^PSRX(RX,1,RXFL(RX),0)"
^XMB(3.9,110,2,1465,0)="""RTN"",""PSOLLLI"",133,0)"
^XMB(3.9,110,2,1466,0)=" S TECH=$S($D(^VA(200,+$P(A,""^"",7),0)):$P(^(0),""^""),1:""UNKNOWN"")"
^XMB(3.9,110,2,1467,0)="""RTN"",""PSOLLLI"",134,0)"
^XMB(3.9,110,2,1468,0)=" S QTY=$P(A,""^"",4),PHYS=$S($D(^VA(200,+$P(A,""^"",17),0)):$P(^(0),""^""),$D(^VA(200,+$P(^PSRX(RX,0),""^"",4),0)):$P(^(0),""^""),1:""UNKNOWN"") D 6^VADPT,PID^VADPT6 S SSNPN=$E($G(VA(""PID"")),5,12)"
^XMB(3.9,110,2,1469,0)="""RTN"",""PSOLLLI"",135,0)"
^XMB(3.9,110,2,1470,0)=" S DAYS=$P(A,""^"",10)"
^XMB(3.9,110,2,1471,0)="""RTN"",""PSOLLLI"",136,0)"
^XMB(3.9,110,2,1472,0)=" Q"
^XMB(3.9,110,2,1473,0)="""RTN"",""PSOLLLI"",137,0)"
^XMB(3.9,110,2,1474,0)="DOUB ;"
^XMB(3.9,110,2,1475,0)="""RTN"",""PSOLLLI"",138,0)"
^XMB(3.9,110,2,1476,0)=" Q:'$D(RXFL(RX))"
^XMB(3.9,110,2,1477,0)="""RTN"",""PSOLLLI"",139,0)"
^XMB(3.9,110,2,1478,0)=" I +$G(RXFL(RX))-PSOCKHNX<0 Q"
^XMB(3.9,110,2,1479,0)="""RTN"",""PSOLLLI"",140,0)"
^XMB(3.9,110,2,1480,0)=" S RXFLX(RX)=$G(RXFL(RX))"
^XMB(3.9,110,2,1481,0)="""RTN"",""PSOLLLI"",141,0)"
^XMB(3.9,110,2,1482,0)=" S RXFL(RX)=$G(RXFL(RX))-PSOCKHNX"
^XMB(3.9,110,2,1483,0)="""RTN"",""PSOLLLI"",142,0)"
^XMB(3.9,110,2,1484,0)=" Q"
^XMB(3.9,110,2,1485,0)="""RTN"",""PSOLLLI"",143,0)"
^XMB(3.9,110,2,1486,0)="IBCP ;"
^XMB(3.9,110,2,1487,0)="""RTN"",""PSOLLLI"",144,0)"
^XMB(3.9,110,2,1488,0)=" N X,Y,PSOJJ,PSOLL"
^XMB(3.9,110,2,1489,0)="""RTN"",""PSOLLLI"",145,0)"
^XMB(3.9,110,2,1490,0)=" S PSOLBLCP="""""
^XMB(3.9,110,2,1491,0)="""RTN"",""PSOLLLI"",146,0)"
^XMB(3.9,110,2,1492,0)=" S X=$P($G(^PS(59,+$G(PSOSITE),""IB"")),""^"")_""^""_$G(DFN) D XTYPE^IBARX"
^XMB(3.9,110,2,1493,0)="""RTN"",""PSOLLLI"",147,0)"
^XMB(3.9,110,2,1494,0)=" S PSOJJ="""" F  S PSOJJ=$O(Y(PSOJJ)) Q:'PSOJJ  S PSOLL="""" F  S PSOLL=$O(Y(PSOJJ,PSOLL)) Q:PSOLL=""""  S:PSOLL>0 PSOLBLCP=PSOLL"
^XMB(3.9,110,2,1495,0)="""RTN"",""PSOLLLI"",148,0)"
^XMB(3.9,110,2,1496,0)=" I '$G(PSOLBLCP) S PSOLBLCP=0"
^XMB(3.9,110,2,1497,0)="""RTN"",""PSOLLLI"",149,0)"
^XMB(3.9,110,2,1498,0)=" Q"
^XMB(3.9,110,2,1499,0)="""RTN"",""PSOLLLI"",150,0)"
^XMB(3.9,110,2,1500,0)="SNO ;"
^XMB(3.9,110,2,1501,0)="""RTN"",""PSOLLLI"",151,0)"
^XMB(3.9,110,2,1502,0)=" S COPAYVAR=""NO COPAY"""
^XMB(3.9,110,2,1503,0)="""RTN"",""PSOLLLI"",152,0)"
^XMB(3.9,110,2,1504,0)=" Q"
^XMB(3.9,110,2,1505,0)="""RTN"",""PSOORED1"")"
^XMB(3.9,110,2,1506,0)="0^4^B67696730^B65457372"
^XMB(3.9,110,2,1507,0)="""RTN"",""PSOORED1"",1,0)"
^XMB(3.9,110,2,1508,0)="PSOORED1 ;ISC-BHAM/SAB - edit orders from backdoor ;6/30/06 10:21am"
^XMB(3.9,110,2,1509,0)="""RTN"",""PSOORED1"",2,0)"
^XMB(3.9,110,2,1510,0)=" ;;7.0;OUTPATIENT PHARMACY;**5,23,46,78,114,117,131,146,223,148,244**;DEC 1997"
^XMB(3.9,110,2,1511,0)="""RTN"",""PSOORED1"",3,0)"
^XMB(3.9,110,2,1512,0)=" ;External reference ^PS(55 supported by DBIA 2228"
^XMB(3.9,110,2,1513,0)="""RTN"",""PSOORED1"",4,0)"
^XMB(3.9,110,2,1514,0)=" ;External reference ^PS(50.7 supported by DBIA 2223"
^XMB(3.9,110,2,1515,0)="""RTN"",""PSOORED1"",5,0)"
^XMB(3.9,110,2,1516,0)=" ;"
^XMB(3.9,110,2,1517,0)="""RTN"",""PSOORED1"",6,0)"
^XMB(3.9,110,2,1518,0)=" ;*244 call to remove DC'd Rx's from Rx ien strings"
^XMB(3.9,110,2,1519,0)="""RTN"",""PSOORED1"",7,0)"
^XMB(3.9,110,2,1520,0)=" ;"
^XMB(3.9,110,2,1521,0)="""RTN"",""PSOORED1"",8,0)"
^XMB(3.9,110,2,1522,0)="EN(PSORENW) ;"
^XMB(3.9,110,2,1523,0)="""RTN"",""PSOORED1"",9,0)"
^XMB(3.9,110,2,1524,0)=" N LST,ORD,ORN K VALMBCK,PSORX(""FN"") S PSOAC=1,(PSORX(""QFLG""),PSORX(""DFLG""))=0 ;D DREN^PSOORNW2,INIT"
^XMB(3.9,110,2,1525,0)="""RTN"",""PSOORED1"",10,0)"
^XMB(3.9,110,2,1526,0)=" D INIT"
^XMB(3.9,110,2,1527,0)="""RTN"",""PSOORED1"",11,0)"
^XMB(3.9,110,2,1528,0)=" D @$S($P(PSOPAR,""^"",7):""AUTO^PSONRXN"",1:""MANUAL^PSONRXN"")"
^XMB(3.9,110,2,1529,0)="""RTN"",""PSOORED1"",12,0)"
^XMB(3.9,110,2,1530,0)=" I '$D(PSONEW(""RX #"")),'$P(PSOPAR,""^"",7) D PAUSE^VALM1 K VALMSG,PSONEW(""QFLG"") S VALMBCK=""Q"" Q"
^XMB(3.9,110,2,1531,0)="""RTN"",""PSOORED1"",13,0)"
^XMB(3.9,110,2,1532,0)=" I '$D(PSONEW(""RX #"")) K VALMSG D DEL^PSONEW,PAUSE^VALM1 S VALMBCK=""Q"" Q"
^XMB(3.9,110,2,1533,0)="""RTN"",""PSOORED1"",14,0)"
^XMB(3.9,110,2,1534,0)=" S PSORENW(""RX #"")=PSONEW(""RX #"") I '$P(PSOPAR,""^"",7) D  Q:$G(PSONEW(""DFLG""))!($G(PSONEW(""QFLG"")))"
^XMB(3.9,110,2,1535,0)="""RTN"",""PSOORED1"",15,0)"
^XMB(3.9,110,2,1536,0)=" .S PSOX=PSORENW(""RX #"") D CHECK^PSONRXN"
^XMB(3.9,110,2,1537,0)="""RTN"",""PSOORED1"",16,0)"
^XMB(3.9,110,2,1538,0)=" I $G(PSONEW(""DFLG""))!$G(PSONEW(""QFLG"")) D DEL^PSONEW,PAUSE^VALM1 S VALMBCK=""Q"" K PSORENW Q"
^XMB(3.9,110,2,1539,0)="""RTN"",""PSOORED1"",17,0)"
^XMB(3.9,110,2,1540,0)=" D EN^PSOORNE1(.PSORENW) I '$G(PSORX(""FN"")) D:$P($G(PSOPAR),""^"",7)=1  S VALMBCK=""Q"" Q"
^XMB(3.9,110,2,1541,0)="""RTN"",""PSOORED1"",18,0)"
^XMB(3.9,110,2,1542,0)=" .S DIE=""^PS(59,"",DA=PSOSITE,PSOY=$O(PSONEW(""OLD LAST RX#"","""")),PSOX=PSONEW(""OLD LAST RX#"",PSOY)"
^XMB(3.9,110,2,1543,0)="""RTN"",""PSOORED1"",19,0)"
^XMB(3.9,110,2,1544,0)=" .L +^PS(59,+PSOSITE,PSOY):0"
^XMB(3.9,110,2,1545,0)="""RTN"",""PSOORED1"",20,0)"
^XMB(3.9,110,2,1546,0)=" .S DR=$S(PSOY=8:""2003////""_PSOX,PSOY=3:""1002.1////""_PSOX,1:""2003////""_PSOX)"
^XMB(3.9,110,2,1547,0)="""RTN"",""PSOORED1"",21,0)"
^XMB(3.9,110,2,1548,0)=" .D:PSOX<$P(^PS(59,+PSOSITE,PSOY),""^"",3) ^DIE K DIE,X,Y L -^PS(59,+PSOSITE,PSOY)"
^XMB(3.9,110,2,1549,0)="""RTN"",""PSOORED1"",22,0)"
^XMB(3.9,110,2,1550,0)=" .I $D(PSONEW(""RX #"")) L -^PSRX(""B"",PSONEW(""RX #""))"
^XMB(3.9,110,2,1551,0)="""RTN"",""PSOORED1"",23,0)"
^XMB(3.9,110,2,1552,0)=" .K PSOX,PSOY Q"
^XMB(3.9,110,2,1553,0)="""RTN"",""PSOORED1"",24,0)"
^XMB(3.9,110,2,1554,0)=" Q:$G(COPY)"
^XMB(3.9,110,2,1555,0)="""RTN"",""PSOORED1"",25,0)"
^XMB(3.9,110,2,1556,0)="TRY S $P(^PSRX(PSORENW(""OIRXN""),""STA""),""^"")=15,DA=PSORENW(""OIRXN"")"
^XMB(3.9,110,2,1557,0)="""RTN"",""PSOORED1"",26,0)"
^XMB(3.9,110,2,1558,0)=" S $P(^PSRX(DA,3),""^"",5)=$S($P($G(^PSRX(DA,3)),""^""):$P(^(3),""^""),1:DT)"
^XMB(3.9,110,2,1559,0)="""RTN"",""PSOORED1"",27,0)"
^XMB(3.9,110,2,1560,0)=" D REVERSE^PSOBPSU1(DA,,""DC"",7),CAN^PSOTPCAN(DA)"
^XMB(3.9,110,2,1561,0)="""RTN"",""PSOORED1"",28,0)"
^XMB(3.9,110,2,1562,0)=" D RMP^PSOCAN3                ;*244"
^XMB(3.9,110,2,1563,0)="""RTN"",""PSOORED1"",29,0)"
^XMB(3.9,110,2,1564,0)=" ;cancel/discontinue action"
^XMB(3.9,110,2,1565,0)="""RTN"",""PSOORED1"",30,0)"
^XMB(3.9,110,2,1566,0)=" S PHARM="""",STAT=""RP"",COMM=""Prescription discontinued due to editing."" D EN^PSOHLSN1(DA,STAT,PHARM,COMM,PSONOOR) K STAT,PHARM,COMM"
^XMB(3.9,110,2,1567,0)="""RTN"",""PSOORED1"",31,0)"
^XMB(3.9,110,2,1568,0)=" S ACOM=""Discontinued due to editing. New Rx created ""_$P(^PSRX(PSORENW(""IRXN""),0),""^"")_""."""
^XMB(3.9,110,2,1569,0)="""RTN"",""PSOORED1"",32,0)"
^XMB(3.9,110,2,1570,0)=" I $G(^PSRX(DA,""H""))]"""" D"
^XMB(3.9,110,2,1571,0)="""RTN"",""PSOORED1"",33,0)"
^XMB(3.9,110,2,1572,0)=" .I $P(^PSRX(DA,""STA""),""^"")=3!($P(^(""STA""),""^"")=16) D"
^XMB(3.9,110,2,1573,0)="""RTN"",""PSOORED1"",34,0)"
^XMB(3.9,110,2,1574,0)=" ..S DIE=52,DR=""22///""_$P(^PSRX(DA,3),""^"") D ^DIE S ACOM=""Discontinued due to editing while on hold. "" K:$P(^PSRX(DA,""H""),""^"") ^PSRX(""AH"",$P(^PSRX(DA,""H""),""^""),DA)"
^XMB(3.9,110,2,1575,0)="""RTN"",""PSOORED1"",35,0)"
^XMB(3.9,110,2,1576,0)=" ..S ^PSRX(DA,""H"")="""""
^XMB(3.9,110,2,1577,0)="""RTN"",""PSOORED1"",36,0)"
^XMB(3.9,110,2,1578,0)=" S RXDA=DA,(DA,SUSDA)=$O(^PS(52.5,""B"",RXDA,0)) D:DA"
^XMB(3.9,110,2,1579,0)="""RTN"",""PSOORED1"",37,0)"
^XMB(3.9,110,2,1580,0)=" .S SUSD=$P($G(^PS(52.5,DA,0)),""^"",2)"
^XMB(3.9,110,2,1581,0)="""RTN"",""PSOORED1"",38,0)"
^XMB(3.9,110,2,1582,0)=" .S:+$G(^PS(52.5,DA,""P""))'=1 ACOM=""Discontinued due to editing while suspended."""
^XMB(3.9,110,2,1583,0)="""RTN"",""PSOORED1"",39,0)"
^XMB(3.9,110,2,1584,0)=" .I $O(^PSRX(RXDA,1,0)) S DA=RXDA D:'$G(^PS(52.5,+SUSDA,""P"")) REF^PSOCAN2"
^XMB(3.9,110,2,1585,0)="""RTN"",""PSOORED1"",40,0)"
^XMB(3.9,110,2,1586,0)=" .S DA=SUSDA,DIK=""^PS(52.5,"" D ^DIK K DIK"
^XMB(3.9,110,2,1587,0)="""RTN"",""PSOORED1"",41,0)"
^XMB(3.9,110,2,1588,0)=" K SUSD,SUSDA S DA=RXDA,RXREF=0,PSODFN=+$P(^PSRX(DA,0),""^"",2) D"
^XMB(3.9,110,2,1589,0)="""RTN"",""PSOORED1"",42,0)"
^XMB(3.9,110,2,1590,0)=" .S ACNT=0 F SUB=0:0 S SUB=$O(^PSRX(DA,""A"",SUB)) Q:'SUB  S ACNT=SUB"
^XMB(3.9,110,2,1591,0)="""RTN"",""PSOORED1"",43,0)"
^XMB(3.9,110,2,1592,0)=" .S RFCNT=0 F RF=0:0 S RF=$O(^PSRX(DA,1,RF)) Q:'RF  S RFCNT=RF S:RF>5 RFCNT=RF+1"
^XMB(3.9,110,2,1593,0)="""RTN"",""PSOORED1"",44,0)"
^XMB(3.9,110,2,1594,0)=" .D NOW^%DTC S ^PSRX(DA,""A"",0)=""^52.3DA^""_(ACNT+1)_""^""_(ACNT+1),^PSRX(DA,""A"",ACNT+1,0)=%_""^C^""_DUZ_""^""_RFCNT_""^""_$G(ACOM)"
^XMB(3.9,110,2,1595,0)="""RTN"",""PSOORED1"",45,0)"
^XMB(3.9,110,2,1596,0)=" .I $G(PSOOIFLG),'$G(PSOMRFLG) S $P(^PSRX(DA,""A"",ACNT+1,1),""^"")=""Pharmacy Orderable Item Edited."""
^XMB(3.9,110,2,1597,0)="""RTN"",""PSOORED1"",46,0)"
^XMB(3.9,110,2,1598,0)=" .I '$G(PSOOIFLG),$G(PSOMRFLG) S $P(^PSRX(DA,""A"",ACNT+1,1),""^"")=""Medication Route/Schedule Edited."""
^XMB(3.9,110,2,1599,0)="""RTN"",""PSOORED1"",47,0)"
^XMB(3.9,110,2,1600,0)=" .I $G(PSOOIFLG),$G(PSOMRFLG) S $P(^PSRX(DA,""A"",ACNT+1,1),""^"")=""Pharmacy Orderable Item and Medication Route/Schedule Edited."""
^XMB(3.9,110,2,1601,0)="""RTN"",""PSOORED1"",48,0)"
^XMB(3.9,110,2,1602,0)=" .S REA=""C"" D EXP^PSOHELP1"
^XMB(3.9,110,2,1603,0)="""RTN"",""PSOORED1"",49,0)"
^XMB(3.9,110,2,1604,0)=" I $G(^PS(52.4,DA,0))]"""" S PSCDA=DA,DIK=""^PS(52.4,"" D ^DIK S DA=PSCDA K DIK,PSCDA"
^XMB(3.9,110,2,1605,0)="""RTN"",""PSOORED1"",50,0)"
^XMB(3.9,110,2,1606,0)=" Q"
^XMB(3.9,110,2,1607,0)="""RTN"",""PSOORED1"",51,0)"
^XMB(3.9,110,2,1608,0)="INS K X,QUIT,Y,DIR,DIRUT,DUOUT,DTOUT,DIC,INSDEL,UPMI,^TMP($J,""INS1"")"
^XMB(3.9,110,2,1609,0)="""RTN"",""PSOORED1"",52,0)"
^XMB(3.9,110,2,1610,0)=" I '$O(^PSRX(PSORXED(""IRXN""),6,0)),'$O(PSORXED(""DOSE"",0)) D UPMI Q:$G(QUIT)  ;G INS1"
^XMB(3.9,110,2,1611,0)="""RTN"",""PSOORED1"",53,0)"
^XMB(3.9,110,2,1612,0)=" I $G(^PSRX(PSORXED(""IRXN""),""INS""))]"""" S PSORXED(""FLD"",114)=^PSRX(PSORXED(""IRXN""),""INS"") K UPMI G INS1"
^XMB(3.9,110,2,1613,0)="""RTN"",""PSOORED1"",54,0)"
^XMB(3.9,110,2,1614,0)=" K DD,GG F I=0:0 S I=$O(^PSRX(PSORXED(""IRXN""),""INS1"",I)) Q:'I  S DD=$G(DD)+1"
^XMB(3.9,110,2,1615,0)="""RTN"",""PSOORED1"",55,0)"
^XMB(3.9,110,2,1616,0)=" I $G(DD)=1 S PSORXED(""FLD"",114)=^PSRX(PSORXED(""IRXN""),""INS1"",$O(^PSRX(PSORXED(""IRXN""),""INS1"",0)),0) K UPMI,DD G INS1"
^XMB(3.9,110,2,1617,0)="""RTN"",""PSOORED1"",56,0)"
^XMB(3.9,110,2,1618,0)=" I $O(^PSRX(PSORXED(""IRXN""),""INS1"",0)) D  G INSX"
^XMB(3.9,110,2,1619,0)="""RTN"",""PSOORED1"",57,0)"
^XMB(3.9,110,2,1620,0)=" .F I=0:0 S I=$O(^PSRX(PSORXED(""IRXN""),""INS1"",I)) Q:'I  S ^TMP($J,""INS1"",I,0)=^PSRX(PSORXED(""IRXN""),""INS1"",I,0)"
^XMB(3.9,110,2,1621,0)="""RTN"",""PSOORED1"",58,0)"
^XMB(3.9,110,2,1622,0)=" .S ^TMP($J,""INS1"",0)=^PSRX(PSORXED(""IRXN""),""INS1"",0)"
^XMB(3.9,110,2,1623,0)="""RTN"",""PSOORED1"",59,0)"
^XMB(3.9,110,2,1624,0)=" .S DIC=""^TMP($J,""""INS1"""","",DWPK=2,DWLW=80 D EN^DIWE I $G(X)=""^"" K ^TMP($J,""INS1"") Q"
^XMB(3.9,110,2,1625,0)="""RTN"",""PSOORED1"",60,0)"
^XMB(3.9,110,2,1626,0)=" .I '$O(^TMP($J,""INS1"",0)) S INSDEL=1"
^XMB(3.9,110,2,1627,0)="""RTN"",""PSOORED1"",61,0)"
^XMB(3.9,110,2,1628,0)=" .S D=0 F  S D=$O(^PSRX(PSORXED(""IRXN""),""INS1"",D)) Q:'D  S PSORXED(""SIG"",D)=^PSRX(PSORXED(""IRXN""),""INS1"",D,0)"
^XMB(3.9,110,2,1629,0)="""RTN"",""PSOORED1"",62,0)"
^XMB(3.9,110,2,1630,0)="INS1 K Y,DIR,DIRUT,DUOUT,DTOUT,DIC,X"
^XMB(3.9,110,2,1631,0)="""RTN"",""PSOORED1"",63,0)"
^XMB(3.9,110,2,1632,0)=" I $G(UPMI) K UPMI I $G(^PS(50.7,PSODRUG(""OI""),""INS""))]"""" S PSORXED(""FLD"",114)=^PS(50.7,PSODRUG(""OI""),""INS"")"
^XMB(3.9,110,2,1633,0)="""RTN"",""PSOORED1"",64,0)"
^XMB(3.9,110,2,1634,0)=" S:$G(PSORXED(""FLD"",114))]"""" DIR(""B"")=PSORXED(""FLD"",114)"
^XMB(3.9,110,2,1635,0)="""RTN"",""PSOORED1"",65,0)"
^XMB(3.9,110,2,1636,0)=" S DIR(""?"")=""Enter Quick codes or Free Text"",DIR(0)=""52,114"" D ^DIR"
^XMB(3.9,110,2,1637,0)="""RTN"",""PSOORED1"",66,0)"
^XMB(3.9,110,2,1638,0)=" I $D(DTOUT)!($D(DUOUT))!($G(PSORXED(""FLD"",114))=X) K PSORXED(""FLD"",114) G INSX"
^XMB(3.9,110,2,1639,0)="""RTN"",""PSOORED1"",67,0)"
^XMB(3.9,110,2,1640,0)=" I X'="""",X'=""@"" D SIG^PSOHELP G INS1:'$D(X)"
^XMB(3.9,110,2,1641,0)="""RTN"",""PSOORED1"",68,0)"
^XMB(3.9,110,2,1642,0)=" S PSORXED(""FLD"",114)=X"
^XMB(3.9,110,2,1643,0)="""RTN"",""PSOORED1"",69,0)"
^XMB(3.9,110,2,1644,0)=" I $G(INS1)]"""" W "" (""_$E(INS1,2,9999999)_"")"""
^XMB(3.9,110,2,1645,0)="""RTN"",""PSOORED1"",70,0)"
^XMB(3.9,110,2,1646,0)=" G:(X']""""!(X=""@"")) INSX"
^XMB(3.9,110,2,1647,0)="""RTN"",""PSOORED1"",71,0)"
^XMB(3.9,110,2,1648,0)=" S (PSORXED(""INS""),PSORXED(""SIG"",1))=$E(INS1,2,9999999) D EN^PSOFSIG(.PSORXED)"
^XMB(3.9,110,2,1649,0)="""RTN"",""PSOORED1"",72,0)"
^XMB(3.9,110,2,1650,0)="INSX I $P($G(^PS(55,PSODFN,""LAN"")),""^"") K DIR D"
^XMB(3.9,110,2,1651,0)="""RTN"",""PSOORED1"",73,0)"
^XMB(3.9,110,2,1652,0)=" .I $G(^PSRX(PSORXED(""IRXN""),""INSS""))]"""" S PSORXED(""SINS"")=^PSRX(PSORXED(""IRXN""),""INSS"")"
^XMB(3.9,110,2,1653,0)="""RTN"",""PSOORED1"",74,0)"
^XMB(3.9,110,2,1654,0)=" .D SINS^PSODIR(.PSORXED) I $G(PSORXED(""SINS""))']"""" K ^PSRX(PSORXED(""IRXN""),""INSS"") Q"
^XMB(3.9,110,2,1655,0)="""RTN"",""PSOORED1"",75,0)"
^XMB(3.9,110,2,1656,0)=" .S PSORXED(""FLD"",114.1)=PSORXED(""SINS"")"
^XMB(3.9,110,2,1657,0)="""RTN"",""PSOORED1"",76,0)"
^XMB(3.9,110,2,1658,0)=" K DIRUT,DUOUT,DTOUT,DIR,X,Y,DIC,DWPK"
^XMB(3.9,110,2,1659,0)="""RTN"",""PSOORED1"",77,0)"
^XMB(3.9,110,2,1660,0)=" Q"
^XMB(3.9,110,2,1661,0)="""RTN"",""PSOORED1"",78,0)"
^XMB(3.9,110,2,1662,0)="INIT ;setup psorenw array"
^XMB(3.9,110,2,1663,0)="""RTN"",""PSOORED1"",79,0)"
^XMB(3.9,110,2,1664,0)=" S PSORENW(""RX0"")=^PSRX(PSORENW(""IRXN""),0),PSORENW(""RX2"")=^(2),PSORENW(""RX3"")=^(3),PSORENW(""STA"")=^(""STA""),PSORENW(""TN"")=$G(^(""TN""))"
^XMB(3.9,110,2,1665,0)="""RTN"",""PSOORED1"",80,0)"
^XMB(3.9,110,2,1666,0)=" I $G(PSOSIGFL),$G(PSORX(""SIG""))]"""" S PSORENW(""SIG"")=PSORX(""SIG""),SIGOK=0"
^XMB(3.9,110,2,1667,0)="""RTN"",""PSOORED1"",81,0)"
^XMB(3.9,110,2,1668,0)=" E  D"
^XMB(3.9,110,2,1669,0)="""RTN"",""PSOORED1"",82,0)"
^XMB(3.9,110,2,1670,0)=" .I '$P($G(^PSRX(PSORENW(""IRXN""),""SIG"")),""^"",2) S PSORENW(""SIG"")=$P($G(^(""SIG"")),""^"")"
^XMB(3.9,110,2,1671,0)="""RTN"",""PSOORED1"",83,0)"
^XMB(3.9,110,2,1672,0)=" .E  D"
^XMB(3.9,110,2,1673,0)="""RTN"",""PSOORED1"",84,0)"
^XMB(3.9,110,2,1674,0)=" ..S SIGOK=1 Q:$O(SIG(0))"
^XMB(3.9,110,2,1675,0)="""RTN"",""PSOORED1"",85,0)"
^XMB(3.9,110,2,1676,0)=" ..S D=0 F I=0:0 S D=D+1,I=$O(^PSRX(PSORENW(""IRXN""),""SIG1"",I)) Q:'I  S SIG(D)=^PSRX(PSORENW(""IRXN""),""SIG1"",I,0)"
^XMB(3.9,110,2,1677,0)="""RTN"",""PSOORED1"",86,0)"
^XMB(3.9,110,2,1678,0)=" ..K PSOX1,D"
^XMB(3.9,110,2,1679,0)="""RTN"",""PSOORED1"",87,0)"
^XMB(3.9,110,2,1680,0)=" S PSORENW(""OIRXN"")=PSORENW(""IRXN"")"
^XMB(3.9,110,2,1681,0)="""RTN"",""PSOORED1"",88,0)"
^XMB(3.9,110,2,1682,0)=" S PSORENW(""PROVIDER"")=$S($G(PSORENW(""PROVIDER"")):PSORENW(""PROVIDER""),1:$P(PSORENW(""RX0""),""^"",4))"
^XMB(3.9,110,2,1683,0)="""RTN"",""PSOORED1"",89,0)"
^XMB(3.9,110,2,1684,0)=" S (PSORENW(""PROVIDER NAME""),PSORX(""PROVIDER NAME""))=$P($G(^VA(200,PSORENW(""PROVIDER""),0)),""^"")"
^XMB(3.9,110,2,1685,0)="""RTN"",""PSOORED1"",90,0)"
^XMB(3.9,110,2,1686,0)=" I $P($G(^VA(200,PSORENW(""PROVIDER""),""PS"")),""^"",7),$P($G(^(""PS"")),""^"",8) S PSORENW(""COSIGNING PROVIDER"")=$P($G(^(""PS"")),""^"",8)"
^XMB(3.9,110,2,1687,0)="""RTN"",""PSOORED1"",91,0)"
^XMB(3.9,110,2,1688,0)=" S PSORENW(""CLINIC"")=$S($G(PSORENW(""CLINIC"")):PSORENW(""CLINIC""),1:$P(PSORENW(""RX0""),""^"",5))"
^XMB(3.9,110,2,1689,0)="""RTN"",""PSOORED1"",92,0)"
^XMB(3.9,110,2,1690,0)=" S PSORENW(""REMARKS"")=""New Order Created by ""_$S($G(COPY)&('$G(PSOEDIT)):""copying"",1:""editing"")_"" Rx # ""_$P(PSORENW(""RX0""),""^"")_""."""
^XMB(3.9,110,2,1691,0)="""RTN"",""PSOORED1"",93,0)"
^XMB(3.9,110,2,1692,0)=" S PSORENW(""COSIGNER"")=$S($G(PSORENW(""COSIGNER"")):PSORENW(""COSIGNER""),$P(PSORENW(""RX3""),""^"",3):$P(PSORENW(""RX3""),""^"",3),1:"""")"
^XMB(3.9,110,2,1693,0)="""RTN"",""PSOORED1"",94,0)"
^XMB(3.9,110,2,1694,0)=" K:PSORENW(""COSIGNER"")="""" PSORENW(""COSIGNER"")"
^XMB(3.9,110,2,1695,0)="""RTN"",""PSOORED1"",95,0)"
^XMB(3.9,110,2,1696,0)=" S PSORENW(""PSODFN"")=$P(PSORENW(""RX0""),""^"",2)"
^XMB(3.9,110,2,1697,0)="""RTN"",""PSOORED1"",96,0)"
^XMB(3.9,110,2,1698,0)=" S PSORENW(""ORX #"")=$P(PSORENW(""RX0""),""^"")"
^XMB(3.9,110,2,1699,0)="""RTN"",""PSOORED1"",97,0)"
^XMB(3.9,110,2,1700,0)=" S:$G(PSODRUG(""IEN"")) PSORENW(""DRUG IEN"")=PSODRUG(""IEN"")"
^XMB(3.9,110,2,1701,0)="""RTN"",""PSOORED1"",98,0)"
^XMB(3.9,110,2,1702,0)=" I $G(PSORENW(""DAYS SUPPLY"")) G QTY"
^XMB(3.9,110,2,1703,0)="""RTN"",""PSOORED1"",99,0)"
^XMB(3.9,110,2,1704,0)=" S PSORENW(""DAYS SUPPLY"")=$S($D(CLOZPAT):7,1:$P(PSORENW(""RX0""),""^"",8))"
^XMB(3.9,110,2,1705,0)="""RTN"",""PSOORED1"",100,0)"
^XMB(3.9,110,2,1706,0)="QTY S PSORENW(""QTY"")=$S($G(PSORENW(""QTY"")):PSORENW(""QTY""),1:$P(PSORENW(""RX0""),""^"",7))"
^XMB(3.9,110,2,1707,0)="""RTN"",""PSOORED1"",101,0)"
^XMB(3.9,110,2,1708,0)="RFN S PSORENW(""# OF REFILLS"")=$S($D(CLOZPAT):0,$G(PSORENW(""# OF REFILLS"")):PSORENW(""# OF REFILLS""),1:$P(PSORENW(""RX0""),""^"",9))"
^XMB(3.9,110,2,1709,0)="""RTN"",""PSOORED1"",102,0)"
^XMB(3.9,110,2,1710,0)=" S (PSOID,Y,PSORENW(""FILL DATE""),PSORENW(""ISSUE DATE""))=DT"
^XMB(3.9,110,2,1711,0)="""RTN"",""PSOORED1"",103,0)"
^XMB(3.9,110,2,1712,0)=" S:PSORENW(""CLINIC"") PSORX(""CLINIC"")=$P(^SC(+PSORENW(""CLINIC""),0),""^"")"
^XMB(3.9,110,2,1713,0)="""RTN"",""PSOORED1"",104,0)"
^XMB(3.9,110,2,1714,0)=" S PSORENW(""PATIENT STATUS"")=$S($G(PSORENW(""PATIENT STATUS"")):PSORENW(""PATIENT STATUS""),'$P(PSORENW(""RX0""),""^"",3):$G(^PS(55,PSORENW(""PSODFN""),""PS"")),1:$P(PSORENW(""RX0""),""^"",3))"
^XMB(3.9,110,2,1715,0)="""RTN"",""PSOORED1"",105,0)"
^XMB(3.9,110,2,1716,0)=" S PSORENW(""PTST NODE"")=$G(^PS(53,PSORENW(""PATIENT STATUS""),0))"
^XMB(3.9,110,2,1717,0)="""RTN"",""PSOORED1"",106,0)"
^XMB(3.9,110,2,1718,0)=" S PSDAYS=$S($G(PSORENW(""DAYS SUPPLY"")):PSORENW(""DAYS SUPPLY""),'$P(PSORENW(""RX0""),""^"",8):$P(PSORENW(""PTST NODE""),""^"",3),1:$P(PSORENW(""RX0""),""^"",8))"
^XMB(3.9,110,2,1719,0)="""RTN"",""PSOORED1"",107,0)"
^XMB(3.9,110,2,1720,0)=" I $G(PSODRUG(""IEN"")) S DREN=PSODRUG(""IEN""),POERR=1 D DRG^PSOORDRG K POERR"
^XMB(3.9,110,2,1721,0)="""RTN"",""PSOORED1"",108,0)"
^XMB(3.9,110,2,1722,0)=" D:$G(PSORENW(""# OF REFILLS""))']"""" RF"
^XMB(3.9,110,2,1723,0)="""RTN"",""PSOORED1"",109,0)"
^XMB(3.9,110,2,1724,0)=" S PSORENW(""MAIL/WINDOW"")=$S($G(PSORENW(""MAIL/WINDOW""))]"""":PSORENW(""MAIL/WINDOW""),1:$P(PSORENW(""RX0""),""^"",11))"
^XMB(3.9,110,2,1725,0)="""RTN"",""PSOORED1"",110,0)"
^XMB(3.9,110,2,1726,0)=" S PSORX(""MAIL/WINDOW"")=$S(PSORENW(""MAIL/WINDOW"")=""W"":""WINDOW"",1:""MAIL"")"
^XMB(3.9,110,2,1727,0)="""RTN"",""PSOORED1"",111,0)"
^XMB(3.9,110,2,1728,0)=" S PSORENW(""COPIES"")=$S($G(PSORENW(""COPIES"")):PSORENW(""COPIES""),$P(PSORENW(""RX0""),""^"",18):$P(PSORENW(""RX0""),""^"",18),1:1)"
^XMB(3.9,110,2,1729,0)="""RTN"",""PSOORED1"",112,0)"
^XMB(3.9,110,2,1730,0)=" S PSORENW(""CLERK CODE"")=DUZ"
^XMB(3.9,110,2,1731,0)="""RTN"",""PSOORED1"",113,0)"
^XMB(3.9,110,2,1732,0)=" S:$G(PSORX(""CLERK CODE""))']"""" PSORX(""CLERK CODE"")=$P($G(^VA(200,DUZ,0)),""^"")"
^XMB(3.9,110,2,1733,0)="""RTN"",""PSOORED1"",114,0)"
^XMB(3.9,110,2,1734,0)=" Q:$D(COPY)  S PSORENW(""ENT"")=0 ;Q:$G(PSOSIGFL)!($D(COPY))"
^XMB(3.9,110,2,1735,0)="""RTN"",""PSOORED1"",115,0)"
^XMB(3.9,110,2,1736,0)=" K PSORENW(""ENT"") F I=0:0 S I=$O(PSORENW(""DOSE"",I)) Q:'I  S PSORENW(""ENT"")=$G(PSORENW(""ENT""))+1"
^XMB(3.9,110,2,1737,0)="""RTN"",""PSOORED1"",116,0)"
^XMB(3.9,110,2,1738,0)=" I $O(^TMP($J,""INS1"",0)) D"
^XMB(3.9,110,2,1739,0)="""RTN"",""PSOORED1"",117,0)"
^XMB(3.9,110,2,1740,0)=" .K PSORXED(""SIG""),DD"
^XMB(3.9,110,2,1741,0)="""RTN"",""PSOORED1"",118,0)"
^XMB(3.9,110,2,1742,0)=" .F I=0:0 S I=$O(^TMP($J,""INS1"",I)) Q:'I  S PSORENW(""SIG"",I)=^TMP($J,""INS1"",I,0)"
^XMB(3.9,110,2,1743,0)="""RTN"",""PSOORED1"",119,0)"
^XMB(3.9,110,2,1744,0)=" .K ^TMP($J,""INS1"")"
^XMB(3.9,110,2,1745,0)="""RTN"",""PSOORED1"",120,0)"
^XMB(3.9,110,2,1746,0)=" I $G(^PSRX(PSORENW(""IRXN""),""INS""))]"""" S PSORENW(""INS"")=^PSRX(PSORENW(""IRXN""),""INS"")"
^XMB(3.9,110,2,1747,0)="""RTN"",""PSOORED1"",121,0)"
^XMB(3.9,110,2,1748,0)=" I $G(^PSRX(PSORENW(""IRXN""),""INSS""))]"""" S PSORENW(""SINS"")=^PSRX(PSORENW(""IRXN""),""INSS"")"
^XMB(3.9,110,2,1749,0)="""RTN"",""PSOORED1"",122,0)"
^XMB(3.9,110,2,1750,0)=" I '$G(PSORENW(""ENT"")),'$G(PSOSIGFL) D DOLST1^PSOORED3(.PSORENW) S PSORENW(""ENT"")=+$G(OLENT)"
^XMB(3.9,110,2,1751,0)="""RTN"",""PSOORED1"",123,0)"
^XMB(3.9,110,2,1752,0)=" Q"
^XMB(3.9,110,2,1753,0)="""RTN"",""PSOORED1"",124,0)"
^XMB(3.9,110,2,1754,0)="RF ;# of refills"
^XMB(3.9,110,2,1755,0)="""RTN"",""PSOORED1"",125,0)"
^XMB(3.9,110,2,1756,0)=" S PTRF=$S($P(PSORENW(""PTST NODE""),""^"",4)]"""":$P(PSORENW(""PTST NODE""),""^"",4),1:11)"
^XMB(3.9,110,2,1757,0)="""RTN"",""PSOORED1"",126,0)"
^XMB(3.9,110,2,1758,0)=" S CS=0 F DEA=1:1 Q:$E(PSODRUG(""DEA""),DEA)=""""  I $E(+PSODRUG(""DEA""),DEA)>1,$E(+PSODRUG(""DEA""),DEA)<6 S CS=1"
^XMB(3.9,110,2,1759,0)="""RTN"",""PSOORED1"",127,0)"
^XMB(3.9,110,2,1760,0)=" I CS D"
^XMB(3.9,110,2,1761,0)="""RTN"",""PSOORED1"",128,0)"
^XMB(3.9,110,2,1762,0)=" .S PSOX1=$S(PTRF>5:5,1:PTRF),PSOX=$S(PSOX1=5:5,1:PSOX1)"
^XMB(3.9,110,2,1763,0)="""RTN"",""PSOORED1"",129,0)"
^XMB(3.9,110,2,1764,0)=" .S PSOX=$S('PSOX:0,PSDAYS=90:1,1:PSOX),PSDY1=$S(PSDAYS<60:5,PSDAYS'<60&(PSDAYS'>89):2,PSDAYS=90:1,1:0) S PSORENW(""# OF REFILLS"")=$S(PSOX'>PSDY1:PSOX,1:PSDY1)"
^XMB(3.9,110,2,1765,0)="""RTN"",""PSOORED1"",130,0)"
^XMB(3.9,110,2,1766,0)=" E  D"
^XMB(3.9,110,2,1767,0)="""RTN"",""PSOORED1"",131,0)"
^XMB(3.9,110,2,1768,0)=" .S PSOX1=PTRF,PSOX=$S(PSOX1=11:11,1:PSOX1),PSOX=$S('PSOX:0,PSDAYS=90:3,1:PSOX)"
^XMB(3.9,110,2,1769,0)="""RTN"",""PSOORED1"",132,0)"
^XMB(3.9,110,2,1770,0)=" .S PSDY1=$S(PSDAYS<60:11,PSDAYS'<60&(PSDAYS'>89):5,PSDAYS=90:3,1:0) S PSORENW(""# OF REFILLS"")=$S(PSOX'>PSDY1:PSOX,1:PSDY1)"
^XMB(3.9,110,2,1771,0)="""RTN"",""PSOORED1"",133,0)"
^XMB(3.9,110,2,1772,0)=" I PSODRUG(""DEA"")[""A""&(PSODRUG(""DEA"")'[""B"")!(PSODRUG(""DEA"")[""F"") S PSORENW(""# OF REFILLS"")=0"
^XMB(3.9,110,2,1773,0)="""RTN"",""PSOORED1"",134,0)"
^XMB(3.9,110,2,1774,0)=" K PSDY,PSDY1,PTRF,PSOX,PSOX1,PSDAYS,CS"
^XMB(3.9,110,2,1775,0)="""RTN"",""PSOORED1"",135,0)"
^XMB(3.9,110,2,1776,0)=" Q"
^XMB(3.9,110,2,1777,0)="""RTN"",""PSOORED1"",136,0)"
^XMB(3.9,110,2,1778,0)="UPMI ;add dosing data for pre-poe rxs"
^XMB(3.9,110,2,1779,0)="""RTN"",""PSOORED1"",137,0)"
^XMB(3.9,110,2,1780,0)=" W !! K PSONEW(""DFLG""),DIR,DIRUT,DTOUT,DUOUT S DIR(0)=""Y"",DIR(""B"")=""No"",DIR(""A"")=""Dosing Instructions Are Missing!! Do You Want to Add Them"""
^XMB(3.9,110,2,1781,0)="""RTN"",""PSOORED1"",138,0)"
^XMB(3.9,110,2,1782,0)=" D ^DIR I 'Y!($D(DIRUT)) S QUIT=1 K DIR,DIRUT,DUOT,DUOUT Q"
^XMB(3.9,110,2,1783,0)="""RTN"",""PSOORED1"",139,0)"
^XMB(3.9,110,2,1784,0)=" S UPMI=1,EDTHLD=$G(PSORX(""EDIT"")) K PSORX(""EDIT"")"
^XMB(3.9,110,2,1785,0)="""RTN"",""PSOORED1"",140,0)"
^XMB(3.9,110,2,1786,0)=" D DOSE1^PSOORED5(.PSORXED) S (PSORXED,PSORX(""EDIT""))=EDTHLD K EDTHLD I $G(PSONEW(""DFLG"")) S QUIT=1"
^XMB(3.9,110,2,1787,0)="""RTN"",""PSOORED1"",141,0)"
^XMB(3.9,110,2,1788,0)=" Q"
^XMB(3.9,110,2,1789,0)="""VER"")"
^XMB(3.9,110,2,1790,0)="8.0^22.0"
^XMB(3.9,110,2,1791,0)="""BLD"",6775,6)"
^XMB(3.9,110,2,1792,0)="^215"
^XMB(3.9,110,2,1793,0)="$END KID PSO*7.0*244"
^XMB(3.9,110,6,0)="^3.911A^2^2"
^XMB(3.9,110,6,1,0)="POSTMASTER"
^XMB(3.9,110,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,110,6,"B","POSTMASTER",1)=""
^XMB(3.9,110,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,111,0)="PSO-7_SEQ-217_PAT-222.KID^.5^3061008.015741^^^^K"
^XMB(3.9,111,.6)="3061008"
^XMB(3.9,111,1,0)="^3.91A^2^2"
^XMB(3.9,111,1,1,0)=".5^0^3061008.015741^^^^^^^3061008.015741"
^XMB(3.9,111,1,2,0)="1^0^3061008.022338^^^^^^^3061008.022338"
^XMB(3.9,111,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,111,1,"C",.5,1)=""
^XMB(3.9,111,1,"C",1,2)=""
^XMB(3.9,111,2,0)="^^4797^4797^3061008"
^XMB(3.9,111,2,1,0)="$TXT Released PSO*7*222 SEQ #217"
^XMB(3.9,111,2,2,0)="Extracted from mail message"
^XMB(3.9,111,2,3,0)="$END TXT"
^XMB(3.9,111,2,4,0)="$KID PSO*7.0*222"
^XMB(3.9,111,2,5,0)="**INSTALL NAME**"
^XMB(3.9,111,2,6,0)="PSO*7.0*222"
^XMB(3.9,111,2,7,0)="""BLD"",5522,0)"
^XMB(3.9,111,2,8,0)="PSO*7.0*222^OUTPATIENT PHARMACY^0^3060731^y"
^XMB(3.9,111,2,9,0)="""BLD"",5522,1,0)"
^XMB(3.9,111,2,10,0)="^^65^65^3060719^"
^XMB(3.9,111,2,11,0)="""BLD"",5522,1,1,0)"
^XMB(3.9,111,2,12,0)="The Department of Veterans Affairs National Clozapine Coordinating Center"
^XMB(3.9,111,2,13,0)="""BLD"",5522,1,2,0)"
^XMB(3.9,111,2,14,0)="(NCCC), is requesting modifications to Veterans Health Information Systems"
^XMB(3.9,111,2,15,0)="""BLD"",5522,1,3,0)"
^XMB(3.9,111,2,16,0)="and Technology Architecture (VistA) Outpatient Pharmacy and Mental Health"
^XMB(3.9,111,2,17,0)="""BLD"",5522,1,4,0)"
^XMB(3.9,111,2,18,0)="applications to meet revisions in the Food and Drug Administration (FDA)"
^XMB(3.9,111,2,19,0)="""BLD"",5522,1,5,0)"
^XMB(3.9,111,2,20,0)="monitoring requirements for blood monitoring in patients being treated"
^XMB(3.9,111,2,21,0)="""BLD"",5522,1,6,0)"
^XMB(3.9,111,2,22,0)="with Clozapine."
^XMB(3.9,111,2,23,0)="""BLD"",5522,1,7,0)"
^XMB(3.9,111,2,24,0)=" "
^XMB(3.9,111,2,25,0)="""BLD"",5522,1,8,0)"
^XMB(3.9,111,2,26,0)="This patch PSO*7*222 is associated with the MENTAL HEALTH V. 5.01 patch"
^XMB(3.9,111,2,27,0)="""BLD"",5522,1,9,0)"
^XMB(3.9,111,2,28,0)="YS*5.01*90 and patch YS*5.01*90 is a required patch for PSO*7*222. Please"
^XMB(3.9,111,2,29,0)="""BLD"",5522,1,10,0)"
^XMB(3.9,111,2,30,0)="read the patch description of YS*5.01*90 for complete details of this new"
^XMB(3.9,111,2,31,0)="""BLD"",5522,1,11,0)"
^XMB(3.9,111,2,32,0)="enhancement."
^XMB(3.9,111,2,33,0)="""BLD"",5522,1,12,0)"
^XMB(3.9,111,2,34,0)=" "
^XMB(3.9,111,2,35,0)="""BLD"",5522,1,13,0)"
^XMB(3.9,111,2,36,0)="This Outpatient Pharmacy patch PSO*7*222 contains the following"
^XMB(3.9,111,2,37,0)="""BLD"",5522,1,14,0)"
^XMB(3.9,111,2,38,0)="must-do-work enhancements for Clozapine dispensing:"
^XMB(3.9,111,2,39,0)="""BLD"",5522,1,15,0)"
^XMB(3.9,111,2,40,0)=" "
^XMB(3.9,111,2,41,0)="""BLD"",5522,1,16,0)"
^XMB(3.9,111,2,42,0)="1. Adjust the business rules to disallow prescription processing without"
^XMB(3.9,111,2,43,0)="""BLD"",5522,1,17,0)"
^XMB(3.9,111,2,44,0)="   override if 3500/mm3>WBC>3000/mm3 and 2000/mm3>ANC>1500/mm3."
^XMB(3.9,111,2,45,0)="""BLD"",5522,1,18,0)"
^XMB(3.9,111,2,46,0)="   These levels require twice weekly blood testing until the WBC"
^XMB(3.9,111,2,47,0)="""BLD"",5522,1,19,0)"
^XMB(3.9,111,2,48,0)="   stabilizes above 3500/mm3 and ANC above 2000/mm3 with no signs of"
^XMB(3.9,111,2,49,0)="""BLD"",5522,1,20,0)"
^XMB(3.9,111,2,50,0)="   infection."
^XMB(3.9,111,2,51,0)="""BLD"",5522,1,21,0)"
^XMB(3.9,111,2,52,0)="2. Modify routine logic to recognize the new monthly status and apply the"
^XMB(3.9,111,2,53,0)="""BLD"",5522,1,22,0)"
^XMB(3.9,111,2,54,0)="   appropriate restrictions for lab draw checks."
^XMB(3.9,111,2,55,0)="""BLD"",5522,1,23,0)"
^XMB(3.9,111,2,56,0)="3. Add a new field to the PRESCRIPTION file (#52) to store ANC value and"
^XMB(3.9,111,2,57,0)="""BLD"",5522,1,24,0)"
^XMB(3.9,111,2,58,0)="   modify routine logic to require both a WBC and ANC be drawn and"
^XMB(3.9,111,2,59,0)="""BLD"",5522,1,25,0)"
^XMB(3.9,111,2,60,0)="   reported before drug dispensing is allowed."
^XMB(3.9,111,2,61,0)="""BLD"",5522,1,26,0)"
^XMB(3.9,111,2,62,0)="4. Modify routine logic to prevent local users from editing the Patient"
^XMB(3.9,111,2,63,0)="""BLD"",5522,1,27,0)"
^XMB(3.9,111,2,64,0)="   Status within Clozapine module."
^XMB(3.9,111,2,65,0)="""BLD"",5522,1,28,0)"
^XMB(3.9,111,2,66,0)=" "
^XMB(3.9,111,2,67,0)="""BLD"",5522,1,29,0)"
^XMB(3.9,111,2,68,0)="This patch transports the following fields:"
^XMB(3.9,111,2,69,0)="""BLD"",5522,1,30,0)"
^XMB(3.9,111,2,70,0)="1. The field length of the WBC RESULT field (#302) of the PRESCRIPTION"
^XMB(3.9,111,2,71,0)="""BLD"",5522,1,31,0)"
^XMB(3.9,111,2,72,0)="   file (#52) is modified from 3 to 5 digits to accommodate values up to"
^XMB(3.9,111,2,73,0)="""BLD"",5522,1,32,0)"
^XMB(3.9,111,2,74,0)="   99999 as these values will be stored in 1000s."
^XMB(3.9,111,2,75,0)="""BLD"",5522,1,33,0)"
^XMB(3.9,111,2,76,0)="2. A new field ANC RESULTS field (#304) is added to the PRESCRIPTION file"
^XMB(3.9,111,2,77,0)="""BLD"",5522,1,34,0)"
^XMB(3.9,111,2,78,0)="   (#52) to store the ANC test value."
^XMB(3.9,111,2,79,0)="""BLD"",5522,1,35,0)"
^XMB(3.9,111,2,80,0)="3. The field name of REASON FOR LOCKOUT field (#4) of the CLOZAPINE"
^XMB(3.9,111,2,81,0)="""BLD"",5522,1,36,0)"
^XMB(3.9,111,2,82,0)="   PRESCRIPTION OVERRIDES file (#52.52) is changed to REASON FOR OVERRIDE."
^XMB(3.9,111,2,83,0)="""BLD"",5522,1,37,0)"
^XMB(3.9,111,2,84,0)="   The set of codes have been modified and three new codes were added. The"
^XMB(3.9,111,2,85,0)="""BLD"",5522,1,38,0)"
^XMB(3.9,111,2,86,0)="   modified Data Dictionary (DD) is as follows:"
^XMB(3.9,111,2,87,0)="""BLD"",5522,1,39,0)"
^XMB(3.9,111,2,88,0)=" "
^XMB(3.9,111,2,89,0)="""BLD"",5522,1,40,0)"
^XMB(3.9,111,2,90,0)="   52.52,4       REASON FOR OVERRIDE    0;5 SET (Required)"
^XMB(3.9,111,2,91,0)="""BLD"",5522,1,41,0)"
^XMB(3.9,111,2,92,0)="                        '1' FOR NO WBC IN LAST 7 DAYS;"
^XMB(3.9,111,2,93,0)="""BLD"",5522,1,42,0)"
^XMB(3.9,111,2,94,0)="                        '2' FOR NO VERIFIED WBC;"
^XMB(3.9,111,2,95,0)="""BLD"",5522,1,43,0)"
^XMB(3.9,111,2,96,0)="                        '3' FOR LAST WBC RESULT < 3500;"
^XMB(3.9,111,2,97,0)="""BLD"",5522,1,44,0)"
^XMB(3.9,111,2,98,0)="                        '4' FOR 3 SEQ. WBC DECREASE;"
^XMB(3.9,111,2,99,0)="""BLD"",5522,1,45,0)"
^XMB(3.9,111,2,100,0)="                        '5' FOR LAST ANC RESULT < 2000;"
^XMB(3.9,111,2,101,0)="""BLD"",5522,1,46,0)"
^XMB(3.9,111,2,102,0)="                        '6' FOR 3 SEQ. ANC DECREASE ;"
^XMB(3.9,111,2,103,0)="""BLD"",5522,1,47,0)"
^XMB(3.9,111,2,104,0)="                        '7' FOR NCCC AUTHORIZED;"
^XMB(3.9,111,2,105,0)="""BLD"",5522,1,48,0)"
^XMB(3.9,111,2,106,0)=" "
^XMB(3.9,111,2,107,0)="""BLD"",5522,1,49,0)"
^XMB(3.9,111,2,108,0)=" "
^XMB(3.9,111,2,109,0)="""BLD"",5522,1,50,0)"
^XMB(3.9,111,2,110,0)="The Outpatient Pharmacy patch PSO*7*227, TRANSITIONAL PHARMACY BENEFIT"
^XMB(3.9,111,2,111,0)="""BLD"",5522,1,51,0)"
^XMB(3.9,111,2,112,0)="(TPB) inactivation, was placing the TPB HL7 Data Extract/Transmission [PSO"
^XMB(3.9,111,2,113,0)="""BLD"",5522,1,52,0)"
^XMB(3.9,111,2,114,0)="TPB HL7 EXTRACT] option out of order. Sites testing patch PSO*7*227"
^XMB(3.9,111,2,115,0)="""BLD"",5522,1,53,0)"
^XMB(3.9,111,2,116,0)="recommended that we remove this task totally from the OPTION SCHEDULING"
^XMB(3.9,111,2,117,0)="""BLD"",5522,1,54,0)"
^XMB(3.9,111,2,118,0)="file (#19.2). Therefore, a post-install routine (PSOP222) is included in"
^XMB(3.9,111,2,119,0)="""BLD"",5522,1,55,0)"
^XMB(3.9,111,2,120,0)="this patch PSO*7*222 to delete the TPB HL7 Data Extract/Transmission [PSO"
^XMB(3.9,111,2,121,0)="""BLD"",5522,1,56,0)"
^XMB(3.9,111,2,122,0)="TPB HL7 EXTRACT] option from the OPTION SCHEDULING file (#19.2)."
^XMB(3.9,111,2,123,0)="""BLD"",5522,1,57,0)"
^XMB(3.9,111,2,124,0)="The post-install routine will also provide the following changes:"
^XMB(3.9,111,2,125,0)="""BLD"",5522,1,58,0)"
^XMB(3.9,111,2,126,0)="1. As the patch PSO*7*227 inactivated the TPB functionality, the security"
^XMB(3.9,111,2,127,0)="""BLD"",5522,1,59,0)"
^XMB(3.9,111,2,128,0)="   access codes for the TPB ELIGIBILITY file (#52.91) still remains open."
^XMB(3.9,111,2,129,0)="""BLD"",5522,1,60,0)"
^XMB(3.9,111,2,130,0)="   These codes will be changed to ""@"" sign restricting access to"
^XMB(3.9,111,2,131,0)="""BLD"",5522,1,61,0)"
^XMB(3.9,111,2,132,0)="   programmers only."
^XMB(3.9,111,2,133,0)="""BLD"",5522,1,62,0)"
^XMB(3.9,111,2,134,0)="2. The read access code of the PRESCRIPTION REFILL REQUEST file (#52.43)"
^XMB(3.9,111,2,135,0)="""BLD"",5522,1,63,0)"
^XMB(3.9,111,2,136,0)="   is currently set to ""@"" sign (programmer access). As per the"
^XMB(3.9,111,2,137,0)="""BLD"",5522,1,64,0)"
^XMB(3.9,111,2,138,0)="   Electronic, Error and Enhancement Report (E3R) 19725 request, this will"
^XMB(3.9,111,2,139,0)="""BLD"",5522,1,65,0)"
^XMB(3.9,111,2,140,0)="   be changed to ""Pp"" (Pharmacy Package) access."
^XMB(3.9,111,2,141,0)="""BLD"",5522,4,0)"
^XMB(3.9,111,2,142,0)="^9.64PA^52.52^2"
^XMB(3.9,111,2,143,0)="""BLD"",5522,4,52,0)"
^XMB(3.9,111,2,144,0)="52"
^XMB(3.9,111,2,145,0)="""BLD"",5522,4,52,2,0)"
^XMB(3.9,111,2,146,0)="^9.641^52^1"
^XMB(3.9,111,2,147,0)="""BLD"",5522,4,52,2,52,0)"
^XMB(3.9,111,2,148,0)="PRESCRIPTION  (File-top level)"
^XMB(3.9,111,2,149,0)="""BLD"",5522,4,52,2,52,1,0)"
^XMB(3.9,111,2,150,0)="^9.6411^302^2"
^XMB(3.9,111,2,151,0)="""BLD"",5522,4,52,2,52,1,302,0)"
^XMB(3.9,111,2,152,0)="WBC RESULTS"
^XMB(3.9,111,2,153,0)="""BLD"",5522,4,52,2,52,1,304,0)"
^XMB(3.9,111,2,154,0)="ANC RESULTS"
^XMB(3.9,111,2,155,0)="""BLD"",5522,4,52,222)"
^XMB(3.9,111,2,156,0)="y^y^p^^^^n"
^XMB(3.9,111,2,157,0)="""BLD"",5522,4,52.52,0)"
^XMB(3.9,111,2,158,0)="52.52"
^XMB(3.9,111,2,159,0)="""BLD"",5522,4,52.52,2,0)"
^XMB(3.9,111,2,160,0)="^9.641^52.52^1"
^XMB(3.9,111,2,161,0)="""BLD"",5522,4,52.52,2,52.52,0)"
^XMB(3.9,111,2,162,0)="CLOZAPINE PRESCRIPTION OVERRIDES  (File-top level)"
^XMB(3.9,111,2,163,0)="""BLD"",5522,4,52.52,2,52.52,1,0)"
^XMB(3.9,111,2,164,0)="^9.6411^4^1"
^XMB(3.9,111,2,165,0)="""BLD"",5522,4,52.52,2,52.52,1,4,0)"
^XMB(3.9,111,2,166,0)="REASON FOR OVERRIDE"
^XMB(3.9,111,2,167,0)="""BLD"",5522,4,52.52,222)"
^XMB(3.9,111,2,168,0)="y^y^p^^^^n^^n"
^XMB(3.9,111,2,169,0)="""BLD"",5522,4,52.52,224)"
^XMB(3.9,111,2,170,0)=""
^XMB(3.9,111,2,171,0)="""BLD"",5522,4,""APDD"",52,52)"
^XMB(3.9,111,2,172,0)=""
^XMB(3.9,111,2,173,0)="""BLD"",5522,4,""APDD"",52,52,302)"
^XMB(3.9,111,2,174,0)=""
^XMB(3.9,111,2,175,0)="""BLD"",5522,4,""APDD"",52,52,304)"
^XMB(3.9,111,2,176,0)=""
^XMB(3.9,111,2,177,0)="""BLD"",5522,4,""APDD"",52.52,52.52)"
^XMB(3.9,111,2,178,0)=""
^XMB(3.9,111,2,179,0)="""BLD"",5522,4,""APDD"",52.52,52.52,4)"
^XMB(3.9,111,2,180,0)=""
^XMB(3.9,111,2,181,0)="""BLD"",5522,4,""B"",52,52)"
^XMB(3.9,111,2,182,0)=""
^XMB(3.9,111,2,183,0)="""BLD"",5522,4,""B"",52.52,52.52)"
^XMB(3.9,111,2,184,0)=""
^XMB(3.9,111,2,185,0)="""BLD"",5522,6.3)"
^XMB(3.9,111,2,186,0)="12"
^XMB(3.9,111,2,187,0)="""BLD"",5522,""INID"")"
^XMB(3.9,111,2,188,0)="^y"
^XMB(3.9,111,2,189,0)="""BLD"",5522,""INIT"")"
^XMB(3.9,111,2,190,0)="PSOP222"
^XMB(3.9,111,2,191,0)="""BLD"",5522,""KRN"",0)"
^XMB(3.9,111,2,192,0)="^9.67PA^8989.52^19"
^XMB(3.9,111,2,193,0)="""BLD"",5522,""KRN"",.4,0)"
^XMB(3.9,111,2,194,0)=".4"
^XMB(3.9,111,2,195,0)="""BLD"",5522,""KRN"",.401,0)"
^XMB(3.9,111,2,196,0)=".401"
^XMB(3.9,111,2,197,0)="""BLD"",5522,""KRN"",.402,0)"
^XMB(3.9,111,2,198,0)=".402"
^XMB(3.9,111,2,199,0)="""BLD"",5522,""KRN"",.403,0)"
^XMB(3.9,111,2,200,0)=".403"
^XMB(3.9,111,2,201,0)="""BLD"",5522,""KRN"",.5,0)"
^XMB(3.9,111,2,202,0)=".5"
^XMB(3.9,111,2,203,0)="""BLD"",5522,""KRN"",.84,0)"
^XMB(3.9,111,2,204,0)=".84"
^XMB(3.9,111,2,205,0)="""BLD"",5522,""KRN"",3.6,0)"
^XMB(3.9,111,2,206,0)="3.6"
^XMB(3.9,111,2,207,0)="""BLD"",5522,""KRN"",3.8,0)"
^XMB(3.9,111,2,208,0)="3.8"
^XMB(3.9,111,2,209,0)="""BLD"",5522,""KRN"",9.2,0)"
^XMB(3.9,111,2,210,0)="9.2"
^XMB(3.9,111,2,211,0)="""BLD"",5522,""KRN"",9.8,0)"
^XMB(3.9,111,2,212,0)="9.8"
^XMB(3.9,111,2,213,0)="""BLD"",5522,""KRN"",9.8,""NM"",0)"
^XMB(3.9,111,2,214,0)="^9.68A^20^20"
^XMB(3.9,111,2,215,0)="""BLD"",5522,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,111,2,216,0)="PSOCLO1^^0^B28077371"
^XMB(3.9,111,2,217,0)="""BLD"",5522,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,111,2,218,0)="PSOCLUTL^^0^B29603769"
^XMB(3.9,111,2,219,0)="""BLD"",5522,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,111,2,220,0)="PSOCPDUP^^0^B33098913"
^XMB(3.9,111,2,221,0)="""BLD"",5522,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,111,2,222,0)="PSODIR1^^0^B69320145"
^XMB(3.9,111,2,223,0)="""BLD"",5522,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,111,2,224,0)="PSODIR3^^0^B26563927"
^XMB(3.9,111,2,225,0)="""BLD"",5522,""KRN"",9.8,""NM"",6,0)"
^XMB(3.9,111,2,226,0)="PSODRDUP^^0^B44003984"
^XMB(3.9,111,2,227,0)="""BLD"",5522,""KRN"",9.8,""NM"",7,0)"
^XMB(3.9,111,2,228,0)="PSOEXDT^^0^B4855517"
^XMB(3.9,111,2,229,0)="""BLD"",5522,""KRN"",9.8,""NM"",8,0)"
^XMB(3.9,111,2,230,0)="PSOHELP^^0^B49925355"
^XMB(3.9,111,2,231,0)="""BLD"",5522,""KRN"",9.8,""NM"",9,0)"
^XMB(3.9,111,2,232,0)="PSOHELP1^^0^B52554989"
^XMB(3.9,111,2,233,0)="""BLD"",5522,""KRN"",9.8,""NM"",10,0)"
^XMB(3.9,111,2,234,0)="PSOORFI1^^0^B70934716"
^XMB(3.9,111,2,235,0)="""BLD"",5522,""KRN"",9.8,""NM"",11,0)"
^XMB(3.9,111,2,236,0)="PSOORFI2^^0^B74849096"
^XMB(3.9,111,2,237,0)="""BLD"",5522,""KRN"",9.8,""NM"",12,0)"
^XMB(3.9,111,2,238,0)="PSOORNE2^^0^B65444424"
^XMB(3.9,111,2,239,0)="""BLD"",5522,""KRN"",9.8,""NM"",13,0)"
^XMB(3.9,111,2,240,0)="PSOORNE5^^0^B59135982"
^XMB(3.9,111,2,241,0)="""BLD"",5522,""KRN"",9.8,""NM"",14,0)"
^XMB(3.9,111,2,242,0)="PSOORNEW^^0^B70191276"
^XMB(3.9,111,2,243,0)="""BLD"",5522,""KRN"",9.8,""NM"",15,0)"
^XMB(3.9,111,2,244,0)="PSOORNW1^^0^B42999566"
^XMB(3.9,111,2,245,0)="""BLD"",5522,""KRN"",9.8,""NM"",16,0)"
^XMB(3.9,111,2,246,0)="PSOORNW2^^0^B43179170"
^XMB(3.9,111,2,247,0)="""BLD"",5522,""KRN"",9.8,""NM"",17,0)"
^XMB(3.9,111,2,248,0)="PSOSIGDS^^0^B62109134"
^XMB(3.9,111,2,249,0)="""BLD"",5522,""KRN"",9.8,""NM"",18,0)"
^XMB(3.9,111,2,250,0)="PSOSIGMX^^0^B14444819"
^XMB(3.9,111,2,251,0)="""BLD"",5522,""KRN"",9.8,""NM"",19,0)"
^XMB(3.9,111,2,252,0)="PSOUTLA^^0^B41786781"
^XMB(3.9,111,2,253,0)="""BLD"",5522,""KRN"",9.8,""NM"",20,0)"
^XMB(3.9,111,2,254,0)="PSOP222^^0^B1194743"
^XMB(3.9,111,2,255,0)="""BLD"",5522,""KRN"",9.8,""NM"",""B"",""PSOCLO1"",1)"
^XMB(3.9,111,2,256,0)=""
^XMB(3.9,111,2,257,0)="""BLD"",5522,""KRN"",9.8,""NM"",""B"",""PSOCLUTL"",2)"
^XMB(3.9,111,2,258,0)=""
^XMB(3.9,111,2,259,0)="""BLD"",5522,""KRN"",9.8,""NM"",""B"",""PSOCPDUP"",3)"
^XMB(3.9,111,2,260,0)=""
^XMB(3.9,111,2,261,0)="""BLD"",5522,""KRN"",9.8,""NM"",""B"",""PSODIR1"",4)"
^XMB(3.9,111,2,262,0)=""
^XMB(3.9,111,2,263,0)="""BLD"",5522,""KRN"",9.8,""NM"",""B"",""PSODIR3"",5)"
^XMB(3.9,111,2,264,0)=""
^XMB(3.9,111,2,265,0)="""BLD"",5522,""KRN"",9.8,""NM"",""B"",""PSODRDUP"",6)"
^XMB(3.9,111,2,266,0)=""
^XMB(3.9,111,2,267,0)="""BLD"",5522,""KRN"",9.8,""NM"",""B"",""PSOEXDT"",7)"
^XMB(3.9,111,2,268,0)=""
^XMB(3.9,111,2,269,0)="""BLD"",5522,""KRN"",9.8,""NM"",""B"",""PSOHELP"",8)"
^XMB(3.9,111,2,270,0)=""
^XMB(3.9,111,2,271,0)="""BLD"",5522,""KRN"",9.8,""NM"",""B"",""PSOHELP1"",9)"
^XMB(3.9,111,2,272,0)=""
^XMB(3.9,111,2,273,0)="""BLD"",5522,""KRN"",9.8,""NM"",""B"",""PSOORFI1"",10)"
^XMB(3.9,111,2,274,0)=""
^XMB(3.9,111,2,275,0)="""BLD"",5522,""KRN"",9.8,""NM"",""B"",""PSOORFI2"",11)"
^XMB(3.9,111,2,276,0)=""
^XMB(3.9,111,2,277,0)="""BLD"",5522,""KRN"",9.8,""NM"",""B"",""PSOORNE2"",12)"
^XMB(3.9,111,2,278,0)=""
^XMB(3.9,111,2,279,0)="""BLD"",5522,""KRN"",9.8,""NM"",""B"",""PSOORNE5"",13)"
^XMB(3.9,111,2,280,0)=""
^XMB(3.9,111,2,281,0)="""BLD"",5522,""KRN"",9.8,""NM"",""B"",""PSOORNEW"",14)"
^XMB(3.9,111,2,282,0)=""
^XMB(3.9,111,2,283,0)="""BLD"",5522,""KRN"",9.8,""NM"",""B"",""PSOORNW1"",15)"
^XMB(3.9,111,2,284,0)=""
^XMB(3.9,111,2,285,0)="""BLD"",5522,""KRN"",9.8,""NM"",""B"",""PSOORNW2"",16)"
^XMB(3.9,111,2,286,0)=""
^XMB(3.9,111,2,287,0)="""BLD"",5522,""KRN"",9.8,""NM"",""B"",""PSOP222"",20)"
^XMB(3.9,111,2,288,0)=""
^XMB(3.9,111,2,289,0)="""BLD"",5522,""KRN"",9.8,""NM"",""B"",""PSOSIGDS"",17)"
^XMB(3.9,111,2,290,0)=""
^XMB(3.9,111,2,291,0)="""BLD"",5522,""KRN"",9.8,""NM"",""B"",""PSOSIGMX"",18)"
^XMB(3.9,111,2,292,0)=""
^XMB(3.9,111,2,293,0)="""BLD"",5522,""KRN"",9.8,""NM"",""B"",""PSOUTLA"",19)"
^XMB(3.9,111,2,294,0)=""
^XMB(3.9,111,2,295,0)="""BLD"",5522,""KRN"",19,0)"
^XMB(3.9,111,2,296,0)="19"
^XMB(3.9,111,2,297,0)="""BLD"",5522,""KRN"",19,""NM"",0)"
^XMB(3.9,111,2,298,0)="^9.68A^^"
^XMB(3.9,111,2,299,0)="""BLD"",5522,""KRN"",19.1,0)"
^XMB(3.9,111,2,300,0)="19.1"
^XMB(3.9,111,2,301,0)="""BLD"",5522,""KRN"",101,0)"
^XMB(3.9,111,2,302,0)="101"
^XMB(3.9,111,2,303,0)="""BLD"",5522,""KRN"",101,""NM"",0)"
^XMB(3.9,111,2,304,0)="^9.68A^^0"
^XMB(3.9,111,2,305,0)="""BLD"",5522,""KRN"",409.61,0)"
^XMB(3.9,111,2,306,0)="409.61"
^XMB(3.9,111,2,307,0)="""BLD"",5522,""KRN"",771,0)"
^XMB(3.9,111,2,308,0)="771"
^XMB(3.9,111,2,309,0)="""BLD"",5522,""KRN"",870,0)"
^XMB(3.9,111,2,310,0)="870"
^XMB(3.9,111,2,311,0)="""BLD"",5522,""KRN"",8989.51,0)"
^XMB(3.9,111,2,312,0)="8989.51"
^XMB(3.9,111,2,313,0)="""BLD"",5522,""KRN"",8989.52,0)"
^XMB(3.9,111,2,314,0)="8989.52"
^XMB(3.9,111,2,315,0)="""BLD"",5522,""KRN"",8994,0)"
^XMB(3.9,111,2,316,0)="8994"
^XMB(3.9,111,2,317,0)="""BLD"",5522,""KRN"",""B"",.4,.4)"
^XMB(3.9,111,2,318,0)=""
^XMB(3.9,111,2,319,0)="""BLD"",5522,""KRN"",""B"",.401,.401)"
^XMB(3.9,111,2,320,0)=""
^XMB(3.9,111,2,321,0)="""BLD"",5522,""KRN"",""B"",.402,.402)"
^XMB(3.9,111,2,322,0)=""
^XMB(3.9,111,2,323,0)="""BLD"",5522,""KRN"",""B"",.403,.403)"
^XMB(3.9,111,2,324,0)=""
^XMB(3.9,111,2,325,0)="""BLD"",5522,""KRN"",""B"",.5,.5)"
^XMB(3.9,111,2,326,0)=""
^XMB(3.9,111,2,327,0)="""BLD"",5522,""KRN"",""B"",.84,.84)"
^XMB(3.9,111,2,328,0)=""
^XMB(3.9,111,2,329,0)="""BLD"",5522,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,111,2,330,0)=""
^XMB(3.9,111,2,331,0)="""BLD"",5522,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,111,2,332,0)=""
^XMB(3.9,111,2,333,0)="""BLD"",5522,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,111,2,334,0)=""
^XMB(3.9,111,2,335,0)="""BLD"",5522,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,111,2,336,0)=""
^XMB(3.9,111,2,337,0)="""BLD"",5522,""KRN"",""B"",19,19)"
^XMB(3.9,111,2,338,0)=""
^XMB(3.9,111,2,339,0)="""BLD"",5522,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,111,2,340,0)=""
^XMB(3.9,111,2,341,0)="""BLD"",5522,""KRN"",""B"",101,101)"
^XMB(3.9,111,2,342,0)=""
^XMB(3.9,111,2,343,0)="""BLD"",5522,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,111,2,344,0)=""
^XMB(3.9,111,2,345,0)="""BLD"",5522,""KRN"",""B"",771,771)"
^XMB(3.9,111,2,346,0)=""
^XMB(3.9,111,2,347,0)="""BLD"",5522,""KRN"",""B"",870,870)"
^XMB(3.9,111,2,348,0)=""
^XMB(3.9,111,2,349,0)="""BLD"",5522,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,111,2,350,0)=""
^XMB(3.9,111,2,351,0)="""BLD"",5522,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,111,2,352,0)=""
^XMB(3.9,111,2,353,0)="""BLD"",5522,""KRN"",""B"",8994,8994)"
^XMB(3.9,111,2,354,0)=""
^XMB(3.9,111,2,355,0)="""BLD"",5522,""QUES"",0)"
^XMB(3.9,111,2,356,0)="^9.62^^"
^XMB(3.9,111,2,357,0)="""BLD"",5522,""REQB"",0)"
^XMB(3.9,111,2,358,0)="^9.611^10^9"
^XMB(3.9,111,2,359,0)="""BLD"",5522,""REQB"",1,0)"
^XMB(3.9,111,2,360,0)="PSO*7.0*73^2"
^XMB(3.9,111,2,361,0)="""BLD"",5522,""REQB"",2,0)"
^XMB(3.9,111,2,362,0)="PSO*7.0*122^2"
^XMB(3.9,111,2,363,0)="""BLD"",5522,""REQB"",3,0)"
^XMB(3.9,111,2,364,0)="PSO*7.0*126^2"
^XMB(3.9,111,2,365,0)="""BLD"",5522,""REQB"",5,0)"
^XMB(3.9,111,2,366,0)="PSO*7.0*177^2"
^XMB(3.9,111,2,367,0)="""BLD"",5522,""REQB"",6,0)"
^XMB(3.9,111,2,368,0)="PSO*7.0*184^2"
^XMB(3.9,111,2,369,0)="""BLD"",5522,""REQB"",7,0)"
^XMB(3.9,111,2,370,0)="PSO*7.0*227^2"
^XMB(3.9,111,2,371,0)="""BLD"",5522,""REQB"",8,0)"
^XMB(3.9,111,2,372,0)="YS*5.01*90^2"
^XMB(3.9,111,2,373,0)="""BLD"",5522,""REQB"",9,0)"
^XMB(3.9,111,2,374,0)="PSO*7.0*237^2"
^XMB(3.9,111,2,375,0)="""BLD"",5522,""REQB"",10,0)"
^XMB(3.9,111,2,376,0)="PSO*7.0*148^2"
^XMB(3.9,111,2,377,0)="""BLD"",5522,""REQB"",""B"",""PSO*7.0*122"",2)"
^XMB(3.9,111,2,378,0)=""
^XMB(3.9,111,2,379,0)="""BLD"",5522,""REQB"",""B"",""PSO*7.0*126"",3)"
^XMB(3.9,111,2,380,0)=""
^XMB(3.9,111,2,381,0)="""BLD"",5522,""REQB"",""B"",""PSO*7.0*148"",10)"
^XMB(3.9,111,2,382,0)=""
^XMB(3.9,111,2,383,0)="""BLD"",5522,""REQB"",""B"",""PSO*7.0*177"",5)"
^XMB(3.9,111,2,384,0)=""
^XMB(3.9,111,2,385,0)="""BLD"",5522,""REQB"",""B"",""PSO*7.0*184"",6)"
^XMB(3.9,111,2,386,0)=""
^XMB(3.9,111,2,387,0)="""BLD"",5522,""REQB"",""B"",""PSO*7.0*227"",7)"
^XMB(3.9,111,2,388,0)=""
^XMB(3.9,111,2,389,0)="""BLD"",5522,""REQB"",""B"",""PSO*7.0*237"",9)"
^XMB(3.9,111,2,390,0)=""
^XMB(3.9,111,2,391,0)="""BLD"",5522,""REQB"",""B"",""PSO*7.0*73"",1)"
^XMB(3.9,111,2,392,0)=""
^XMB(3.9,111,2,393,0)="""BLD"",5522,""REQB"",""B"",""YS*5.01*90"",8)"
^XMB(3.9,111,2,394,0)=""
^XMB(3.9,111,2,395,0)="""FIA"",52)"
^XMB(3.9,111,2,396,0)="PRESCRIPTION"
^XMB(3.9,111,2,397,0)="""FIA"",52,0)"
^XMB(3.9,111,2,398,0)="^PSRX("
^XMB(3.9,111,2,399,0)="""FIA"",52,0,0)"
^XMB(3.9,111,2,400,0)="52Is"
^XMB(3.9,111,2,401,0)="""FIA"",52,0,1)"
^XMB(3.9,111,2,402,0)="y^y^p^^^^n"
^XMB(3.9,111,2,403,0)="""FIA"",52,0,10)"
^XMB(3.9,111,2,404,0)=""
^XMB(3.9,111,2,405,0)="""FIA"",52,0,11)"
^XMB(3.9,111,2,406,0)=""
^XMB(3.9,111,2,407,0)="""FIA"",52,0,""RLRO"")"
^XMB(3.9,111,2,408,0)=""
^XMB(3.9,111,2,409,0)="""FIA"",52,0,""VR"")"
^XMB(3.9,111,2,410,0)="7.0^PSO"
^XMB(3.9,111,2,411,0)="""FIA"",52,52)"
^XMB(3.9,111,2,412,0)="1"
^XMB(3.9,111,2,413,0)="""FIA"",52,52,302)"
^XMB(3.9,111,2,414,0)=""
^XMB(3.9,111,2,415,0)="""FIA"",52,52,304)"
^XMB(3.9,111,2,416,0)=""
^XMB(3.9,111,2,417,0)="""FIA"",52.52)"
^XMB(3.9,111,2,418,0)="CLOZAPINE PRESCRIPTION OVERRIDES"
^XMB(3.9,111,2,419,0)="""FIA"",52.52,0)"
^XMB(3.9,111,2,420,0)="^PS(52.52,"
^XMB(3.9,111,2,421,0)="""FIA"",52.52,0,0)"
^XMB(3.9,111,2,422,0)="52.52D"
^XMB(3.9,111,2,423,0)="""FIA"",52.52,0,1)"
^XMB(3.9,111,2,424,0)="y^y^p^^^^n^^n"
^XMB(3.9,111,2,425,0)="""FIA"",52.52,0,10)"
^XMB(3.9,111,2,426,0)=""
^XMB(3.9,111,2,427,0)="""FIA"",52.52,0,11)"
^XMB(3.9,111,2,428,0)=""
^XMB(3.9,111,2,429,0)="""FIA"",52.52,0,""RLRO"")"
^XMB(3.9,111,2,430,0)=""
^XMB(3.9,111,2,431,0)="""FIA"",52.52,0,""VR"")"
^XMB(3.9,111,2,432,0)="7.0^PSO"
^XMB(3.9,111,2,433,0)="""FIA"",52.52,52.52)"
^XMB(3.9,111,2,434,0)="1"
^XMB(3.9,111,2,435,0)="""FIA"",52.52,52.52,4)"
^XMB(3.9,111,2,436,0)=""
^XMB(3.9,111,2,437,0)="""INIT"")"
^XMB(3.9,111,2,438,0)="PSOP222"
^XMB(3.9,111,2,439,0)="""MBREQ"")"
^XMB(3.9,111,2,440,0)="0"
^XMB(3.9,111,2,441,0)="""PKG"",141,-1)"
^XMB(3.9,111,2,442,0)="1^1"
^XMB(3.9,111,2,443,0)="""PKG"",141,0)"
^XMB(3.9,111,2,444,0)="OUTPATIENT PHARMACY^PSO^OUTPATIENT LABELS, PROFILE, INVENTORY, PRESCRIPTIONS"
^XMB(3.9,111,2,445,0)="""PKG"",141,20,0)"
^XMB(3.9,111,2,446,0)="^9.402P^^"
^XMB(3.9,111,2,447,0)="""PKG"",141,22,0)"
^XMB(3.9,111,2,448,0)="^9.49I^1^1"
^XMB(3.9,111,2,449,0)="""PKG"",141,22,1,0)"
^XMB(3.9,111,2,450,0)="7.0^2971216^2980917^11712"
^XMB(3.9,111,2,451,0)="""PKG"",141,22,1,""PAH"",1,0)"
^XMB(3.9,111,2,452,0)="222^3060731"
^XMB(3.9,111,2,453,0)="""PKG"",141,22,1,""PAH"",1,1,0)"
^XMB(3.9,111,2,454,0)="^^65^65^3060731"
^XMB(3.9,111,2,455,0)="""PKG"",141,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,111,2,456,0)="The Department of Veterans Affairs National Clozapine Coordinating Center"
^XMB(3.9,111,2,457,0)="""PKG"",141,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,111,2,458,0)="(NCCC), is requesting modifications to Veterans Health Information Systems"
^XMB(3.9,111,2,459,0)="""PKG"",141,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,111,2,460,0)="and Technology Architecture (VistA) Outpatient Pharmacy and Mental Health"
^XMB(3.9,111,2,461,0)="""PKG"",141,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,111,2,462,0)="applications to meet revisions in the Food and Drug Administration (FDA)"
^XMB(3.9,111,2,463,0)="""PKG"",141,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,111,2,464,0)="monitoring requirements for blood monitoring in patients being treated"
^XMB(3.9,111,2,465,0)="""PKG"",141,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,111,2,466,0)="with Clozapine."
^XMB(3.9,111,2,467,0)="""PKG"",141,22,1,""PAH"",1,1,7,0)"
^XMB(3.9,111,2,468,0)=" "
^XMB(3.9,111,2,469,0)="""PKG"",141,22,1,""PAH"",1,1,8,0)"
^XMB(3.9,111,2,470,0)="This patch PSO*7*222 is associated with the MENTAL HEALTH V. 5.01 patch"
^XMB(3.9,111,2,471,0)="""PKG"",141,22,1,""PAH"",1,1,9,0)"
^XMB(3.9,111,2,472,0)="YS*5.01*90 and patch YS*5.01*90 is a required patch for PSO*7*222. Please"
^XMB(3.9,111,2,473,0)="""PKG"",141,22,1,""PAH"",1,1,10,0)"
^XMB(3.9,111,2,474,0)="read the patch description of YS*5.01*90 for complete details of this new"
^XMB(3.9,111,2,475,0)="""PKG"",141,22,1,""PAH"",1,1,11,0)"
^XMB(3.9,111,2,476,0)="enhancement."
^XMB(3.9,111,2,477,0)="""PKG"",141,22,1,""PAH"",1,1,12,0)"
^XMB(3.9,111,2,478,0)=" "
^XMB(3.9,111,2,479,0)="""PKG"",141,22,1,""PAH"",1,1,13,0)"
^XMB(3.9,111,2,480,0)="This Outpatient Pharmacy patch PSO*7*222 contains the following"
^XMB(3.9,111,2,481,0)="""PKG"",141,22,1,""PAH"",1,1,14,0)"
^XMB(3.9,111,2,482,0)="must-do-work enhancements for Clozapine dispensing:"
^XMB(3.9,111,2,483,0)="""PKG"",141,22,1,""PAH"",1,1,15,0)"
^XMB(3.9,111,2,484,0)=" "
^XMB(3.9,111,2,485,0)="""PKG"",141,22,1,""PAH"",1,1,16,0)"
^XMB(3.9,111,2,486,0)="1. Adjust the business rules to disallow prescription processing without"
^XMB(3.9,111,2,487,0)="""PKG"",141,22,1,""PAH"",1,1,17,0)"
^XMB(3.9,111,2,488,0)="   override if 3500/mm3>WBC>3000/mm3 and 2000/mm3>ANC>1500/mm3."
^XMB(3.9,111,2,489,0)="""PKG"",141,22,1,""PAH"",1,1,18,0)"
^XMB(3.9,111,2,490,0)="   These levels require twice weekly blood testing until the WBC"
^XMB(3.9,111,2,491,0)="""PKG"",141,22,1,""PAH"",1,1,19,0)"
^XMB(3.9,111,2,492,0)="   stabilizes above 3500/mm3 and ANC above 2000/mm3 with no signs of"
^XMB(3.9,111,2,493,0)="""PKG"",141,22,1,""PAH"",1,1,20,0)"
^XMB(3.9,111,2,494,0)="   infection."
^XMB(3.9,111,2,495,0)="""PKG"",141,22,1,""PAH"",1,1,21,0)"
^XMB(3.9,111,2,496,0)="2. Modify routine logic to recognize the new monthly status and apply the"
^XMB(3.9,111,2,497,0)="""PKG"",141,22,1,""PAH"",1,1,22,0)"
^XMB(3.9,111,2,498,0)="   appropriate restrictions for lab draw checks."
^XMB(3.9,111,2,499,0)="""PKG"",141,22,1,""PAH"",1,1,23,0)"
^XMB(3.9,111,2,500,0)="3. Add a new field to the PRESCRIPTION file (#52) to store ANC value and"
^XMB(3.9,111,2,501,0)="""PKG"",141,22,1,""PAH"",1,1,24,0)"
^XMB(3.9,111,2,502,0)="   modify routine logic to require both a WBC and ANC be drawn and"
^XMB(3.9,111,2,503,0)="""PKG"",141,22,1,""PAH"",1,1,25,0)"
^XMB(3.9,111,2,504,0)="   reported before drug dispensing is allowed."
^XMB(3.9,111,2,505,0)="""PKG"",141,22,1,""PAH"",1,1,26,0)"
^XMB(3.9,111,2,506,0)="4. Modify routine logic to prevent local users from editing the Patient"
^XMB(3.9,111,2,507,0)="""PKG"",141,22,1,""PAH"",1,1,27,0)"
^XMB(3.9,111,2,508,0)="   Status within Clozapine module."
^XMB(3.9,111,2,509,0)="""PKG"",141,22,1,""PAH"",1,1,28,0)"
^XMB(3.9,111,2,510,0)=" "
^XMB(3.9,111,2,511,0)="""PKG"",141,22,1,""PAH"",1,1,29,0)"
^XMB(3.9,111,2,512,0)="This patch transports the following fields:"
^XMB(3.9,111,2,513,0)="""PKG"",141,22,1,""PAH"",1,1,30,0)"
^XMB(3.9,111,2,514,0)="1. The field length of the WBC RESULT field (#302) of the PRESCRIPTION"
^XMB(3.9,111,2,515,0)="""PKG"",141,22,1,""PAH"",1,1,31,0)"
^XMB(3.9,111,2,516,0)="   file (#52) is modified from 3 to 5 digits to accommodate values up to"
^XMB(3.9,111,2,517,0)="""PKG"",141,22,1,""PAH"",1,1,32,0)"
^XMB(3.9,111,2,518,0)="   99999 as these values will be stored in 1000s."
^XMB(3.9,111,2,519,0)="""PKG"",141,22,1,""PAH"",1,1,33,0)"
^XMB(3.9,111,2,520,0)="2. A new field ANC RESULTS field (#304) is added to the PRESCRIPTION file"
^XMB(3.9,111,2,521,0)="""PKG"",141,22,1,""PAH"",1,1,34,0)"
^XMB(3.9,111,2,522,0)="   (#52) to store the ANC test value."
^XMB(3.9,111,2,523,0)="""PKG"",141,22,1,""PAH"",1,1,35,0)"
^XMB(3.9,111,2,524,0)="3. The field name of REASON FOR LOCKOUT field (#4) of the CLOZAPINE"
^XMB(3.9,111,2,525,0)="""PKG"",141,22,1,""PAH"",1,1,36,0)"
^XMB(3.9,111,2,526,0)="   PRESCRIPTION OVERRIDES file (#52.52) is changed to REASON FOR OVERRIDE."
^XMB(3.9,111,2,527,0)="""PKG"",141,22,1,""PAH"",1,1,37,0)"
^XMB(3.9,111,2,528,0)="   The set of codes have been modified and three new codes were added. The"
^XMB(3.9,111,2,529,0)="""PKG"",141,22,1,""PAH"",1,1,38,0)"
^XMB(3.9,111,2,530,0)="   modified Data Dictionary (DD) is as follows:"
^XMB(3.9,111,2,531,0)="""PKG"",141,22,1,""PAH"",1,1,39,0)"
^XMB(3.9,111,2,532,0)=" "
^XMB(3.9,111,2,533,0)="""PKG"",141,22,1,""PAH"",1,1,40,0)"
^XMB(3.9,111,2,534,0)="   52.52,4       REASON FOR OVERRIDE    0;5 SET (Required)"
^XMB(3.9,111,2,535,0)="""PKG"",141,22,1,""PAH"",1,1,41,0)"
^XMB(3.9,111,2,536,0)="                        '1' FOR NO WBC IN LAST 7 DAYS;"
^XMB(3.9,111,2,537,0)="""PKG"",141,22,1,""PAH"",1,1,42,0)"
^XMB(3.9,111,2,538,0)="                        '2' FOR NO VERIFIED WBC;"
^XMB(3.9,111,2,539,0)="""PKG"",141,22,1,""PAH"",1,1,43,0)"
^XMB(3.9,111,2,540,0)="                        '3' FOR LAST WBC RESULT < 3500;"
^XMB(3.9,111,2,541,0)="""PKG"",141,22,1,""PAH"",1,1,44,0)"
^XMB(3.9,111,2,542,0)="                        '4' FOR 3 SEQ. WBC DECREASE;"
^XMB(3.9,111,2,543,0)="""PKG"",141,22,1,""PAH"",1,1,45,0)"
^XMB(3.9,111,2,544,0)="                        '5' FOR LAST ANC RESULT < 2000;"
^XMB(3.9,111,2,545,0)="""PKG"",141,22,1,""PAH"",1,1,46,0)"
^XMB(3.9,111,2,546,0)="                        '6' FOR 3 SEQ. ANC DECREASE ;"
^XMB(3.9,111,2,547,0)="""PKG"",141,22,1,""PAH"",1,1,47,0)"
^XMB(3.9,111,2,548,0)="                        '7' FOR NCCC AUTHORIZED;"
^XMB(3.9,111,2,549,0)="""PKG"",141,22,1,""PAH"",1,1,48,0)"
^XMB(3.9,111,2,550,0)=" "
^XMB(3.9,111,2,551,0)="""PKG"",141,22,1,""PAH"",1,1,49,0)"
^XMB(3.9,111,2,552,0)=" "
^XMB(3.9,111,2,553,0)="""PKG"",141,22,1,""PAH"",1,1,50,0)"
^XMB(3.9,111,2,554,0)="The Outpatient Pharmacy patch PSO*7*227, TRANSITIONAL PHARMACY BENEFIT"
^XMB(3.9,111,2,555,0)="""PKG"",141,22,1,""PAH"",1,1,51,0)"
^XMB(3.9,111,2,556,0)="(TPB) inactivation, was placing the TPB HL7 Data Extract/Transmission [PSO"
^XMB(3.9,111,2,557,0)="""PKG"",141,22,1,""PAH"",1,1,52,0)"
^XMB(3.9,111,2,558,0)="TPB HL7 EXTRACT] option out of order. Sites testing patch PSO*7*227"
^XMB(3.9,111,2,559,0)="""PKG"",141,22,1,""PAH"",1,1,53,0)"
^XMB(3.9,111,2,560,0)="recommended that we remove this task totally from the OPTION SCHEDULING"
^XMB(3.9,111,2,561,0)="""PKG"",141,22,1,""PAH"",1,1,54,0)"
^XMB(3.9,111,2,562,0)="file (#19.2). Therefore, a post-install routine (PSOP222) is included in"
^XMB(3.9,111,2,563,0)="""PKG"",141,22,1,""PAH"",1,1,55,0)"
^XMB(3.9,111,2,564,0)="this patch PSO*7*222 to delete the TPB HL7 Data Extract/Transmission [PSO"
^XMB(3.9,111,2,565,0)="""PKG"",141,22,1,""PAH"",1,1,56,0)"
^XMB(3.9,111,2,566,0)="TPB HL7 EXTRACT] option from the OPTION SCHEDULING file (#19.2)."
^XMB(3.9,111,2,567,0)="""PKG"",141,22,1,""PAH"",1,1,57,0)"
^XMB(3.9,111,2,568,0)="The post-install routine will also provide the following changes:"
^XMB(3.9,111,2,569,0)="""PKG"",141,22,1,""PAH"",1,1,58,0)"
^XMB(3.9,111,2,570,0)="1. As the patch PSO*7*227 inactivated the TPB functionality, the security"
^XMB(3.9,111,2,571,0)="""PKG"",141,22,1,""PAH"",1,1,59,0)"
^XMB(3.9,111,2,572,0)="   access codes for the TPB ELIGIBILITY file (#52.91) still remains open."
^XMB(3.9,111,2,573,0)="""PKG"",141,22,1,""PAH"",1,1,60,0)"
^XMB(3.9,111,2,574,0)="   These codes will be changed to ""@"" sign restricting access to"
^XMB(3.9,111,2,575,0)="""PKG"",141,22,1,""PAH"",1,1,61,0)"
^XMB(3.9,111,2,576,0)="   programmers only."
^XMB(3.9,111,2,577,0)="""PKG"",141,22,1,""PAH"",1,1,62,0)"
^XMB(3.9,111,2,578,0)="2. The read access code of the PRESCRIPTION REFILL REQUEST file (#52.43)"
^XMB(3.9,111,2,579,0)="""PKG"",141,22,1,""PAH"",1,1,63,0)"
^XMB(3.9,111,2,580,0)="   is currently set to ""@"" sign (programmer access). As per the"
^XMB(3.9,111,2,581,0)="""PKG"",141,22,1,""PAH"",1,1,64,0)"
^XMB(3.9,111,2,582,0)="   Electronic, Error and Enhancement Report (E3R) 19725 request, this will"
^XMB(3.9,111,2,583,0)="""PKG"",141,22,1,""PAH"",1,1,65,0)"
^XMB(3.9,111,2,584,0)="   be changed to ""Pp"" (Pharmacy Package) access."
^XMB(3.9,111,2,585,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,111,2,586,0)="Y"
^XMB(3.9,111,2,587,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,111,2,588,0)="^D REP^XPDH"
^XMB(3.9,111,2,589,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,111,2,590,0)="Shall I write over your |FLAG| File"
^XMB(3.9,111,2,591,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,111,2,592,0)="YES"
^XMB(3.9,111,2,593,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,111,2,594,0)="D XPF1^XPDIQ"
^XMB(3.9,111,2,595,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,111,2,596,0)="Y"
^XMB(3.9,111,2,597,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,111,2,598,0)="^D DTA^XPDH"
^XMB(3.9,111,2,599,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,111,2,600,0)="Want my data |FLAG| yours"
^XMB(3.9,111,2,601,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,111,2,602,0)="YES"
^XMB(3.9,111,2,603,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,111,2,604,0)="D XPF2^XPDIQ"
^XMB(3.9,111,2,605,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,111,2,606,0)="YO"
^XMB(3.9,111,2,607,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,111,2,608,0)="^D INHIBIT^XPDH"
^XMB(3.9,111,2,609,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,111,2,610,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,111,2,611,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,111,2,612,0)="YES"
^XMB(3.9,111,2,613,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,111,2,614,0)="D XPI1^XPDIQ"
^XMB(3.9,111,2,615,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,111,2,616,0)="PO^VA(200,:EM"
^XMB(3.9,111,2,617,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,111,2,618,0)="^D MG^XPDH"
^XMB(3.9,111,2,619,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,111,2,620,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,111,2,621,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,111,2,622,0)=""
^XMB(3.9,111,2,623,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,111,2,624,0)="D XPM1^XPDIQ"
^XMB(3.9,111,2,625,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,111,2,626,0)="Y"
^XMB(3.9,111,2,627,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,111,2,628,0)="^D MENU^XPDH"
^XMB(3.9,111,2,629,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,111,2,630,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,111,2,631,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,111,2,632,0)="YES"
^XMB(3.9,111,2,633,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,111,2,634,0)="D XPO1^XPDIQ"
^XMB(3.9,111,2,635,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,111,2,636,0)="Y"
^XMB(3.9,111,2,637,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,111,2,638,0)="^D OPT^XPDH"
^XMB(3.9,111,2,639,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,111,2,640,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,111,2,641,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,111,2,642,0)="YES"
^XMB(3.9,111,2,643,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,111,2,644,0)="D XPZ1^XPDIQ"
^XMB(3.9,111,2,645,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,111,2,646,0)="Y"
^XMB(3.9,111,2,647,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,111,2,648,0)="^D RTN^XPDH"
^XMB(3.9,111,2,649,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,111,2,650,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,111,2,651,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,111,2,652,0)="NO"
^XMB(3.9,111,2,653,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,111,2,654,0)="D XPZ2^XPDIQ"
^XMB(3.9,111,2,655,0)="""RTN"")"
^XMB(3.9,111,2,656,0)="20"
^XMB(3.9,111,2,657,0)="""RTN"",""PSOCLO1"")"
^XMB(3.9,111,2,658,0)="0^1^B28077371^B73912762"
^XMB(3.9,111,2,659,0)="""RTN"",""PSOCLO1"",1,0)"
^XMB(3.9,111,2,660,0)="PSOCLO1 ;BHAM ISC/SAB - clozaril rx lockout routine ; 20 Apr 1999  10:50 AM"
^XMB(3.9,111,2,661,0)="""RTN"",""PSOCLO1"",2,0)"
^XMB(3.9,111,2,662,0)=" ;;7.0;OUTPATIENT PHARMACY;**1,23,37,222**;DEC 1997;Build 12"
^XMB(3.9,111,2,663,0)="""RTN"",""PSOCLO1"",3,0)"
^XMB(3.9,111,2,664,0)=" ;External reference YSCLTST2 supported by DBIA 4556"
^XMB(3.9,111,2,665,0)="""RTN"",""PSOCLO1"",4,0)"
^XMB(3.9,111,2,666,0)=" ;External reference ^PS(55 supported by DBIA 2228"
^XMB(3.9,111,2,667,0)="""RTN"",""PSOCLO1"",5,0)"
^XMB(3.9,111,2,668,0)=" ;MH package will authorize dispensing of the Clozapine drugs"
^XMB(3.9,111,2,669,0)="""RTN"",""PSOCLO1"",6,0)"
^XMB(3.9,111,2,670,0)=" K ANQDATA,ANQX,ANQNO,PSONEW(""SAND""),^TMP($J,""PSO"")"
^XMB(3.9,111,2,671,0)="""RTN"",""PSOCLO1"",7,0)"
^XMB(3.9,111,2,672,0)=" N X,Y,%,%DT,J,ANQ,ANQD,ANQJ,ANQRE,DTOUT,DUOUT,DIR,DIRUT,PSOYS"
^XMB(3.9,111,2,673,0)="""RTN"",""PSOCLO1"",8,0)"
^XMB(3.9,111,2,674,0)=" I '$D(^PS(55,DFN,""SAND"")) W !!,""*** This patient has not been registered in the clozapine program ***"" G END"
^XMB(3.9,111,2,675,0)="""RTN"",""PSOCLO1"",9,0)"
^XMB(3.9,111,2,676,0)=" I $P(^PS(55,DFN,""SAND""),""^"")="""" W !!,""*** This patient has no clozapine registration number ***"" G END"
^XMB(3.9,111,2,677,0)="""RTN"",""PSOCLO1"",10,0)"
^XMB(3.9,111,2,678,0)=" I $P(^PS(55,DFN,""SAND""),""^"",2)=""D"" D  G END"
^XMB(3.9,111,2,679,0)="""RTN"",""PSOCLO1"",11,0)"
^XMB(3.9,111,2,680,0)=" .W !!,""*** This patient has been discontinued from the clozapine treatment program ***"""
^XMB(3.9,111,2,681,0)="""RTN"",""PSOCLO1"",12,0)"
^XMB(3.9,111,2,682,0)=" .W !,""*** and must have a new registration number assigned ***"""
^XMB(3.9,111,2,683,0)="""RTN"",""PSOCLO1"",13,0)"
^XMB(3.9,111,2,684,0)=" S PSOYS=$$CL^YSCLTST2(DFN)"
^XMB(3.9,111,2,685,0)="""RTN"",""PSOCLO1"",14,0)"
^XMB(3.9,111,2,686,0)=" G:+PSOYS<0 END"
^XMB(3.9,111,2,687,0)="""RTN"",""PSOCLO1"",15,0)"
^XMB(3.9,111,2,688,0)=" S CLOZPAT=$P(PSOYS,""^"",7),CLOZPAT=$S(CLOZPAT=""M"":2,CLOZPAT=""B"":1,1:0)"
^XMB(3.9,111,2,689,0)="""RTN"",""PSOCLO1"",16,0)"
^XMB(3.9,111,2,690,0)=" G:$P(PSOYS,""^"")=0 OV1"
^XMB(3.9,111,2,691,0)="""RTN"",""PSOCLO1"",17,0)"
^XMB(3.9,111,2,692,0)=" D DSP  G:+PSOYS=1 GDOSE"
^XMB(3.9,111,2,693,0)="""RTN"",""PSOCLO1"",18,0)"
^XMB(3.9,111,2,694,0)=" S X=$S(CLOZPAT=2:84,CLOZPAT=1:42,1:21)"
^XMB(3.9,111,2,695,0)="""RTN"",""PSOCLO1"",19,0)"
^XMB(3.9,111,2,696,0)=" D CL1^YSCLTST2(DFN,X)"
^XMB(3.9,111,2,697,0)="""RTN"",""PSOCLO1"",20,0)"
^XMB(3.9,111,2,698,0)=" I $D(^TMP($J,""PSO"")) G CHECK"
^XMB(3.9,111,2,699,0)="""RTN"",""PSOCLO1"",21,0)"
^XMB(3.9,111,2,700,0)="OV1 I $$OVERRIDE^YSCLTST2(DFN) S ANQRE=7 W !!,""Permission to dispense clozapine has been authorized by NCCC"",! G OVRD"
^XMB(3.9,111,2,701,0)="""RTN"",""PSOCLO1"",22,0)"
^XMB(3.9,111,2,702,0)=" D MSG4,MSG3,MH G QU"
^XMB(3.9,111,2,703,0)="""RTN"",""PSOCLO1"",23,0)"
^XMB(3.9,111,2,704,0)=" Q"
^XMB(3.9,111,2,705,0)="""RTN"",""PSOCLO1"",24,0)"
^XMB(3.9,111,2,706,0)="CHECK ;"
^XMB(3.9,111,2,707,0)="""RTN"",""PSOCLO1"",25,0)"
^XMB(3.9,111,2,708,0)=" S ANQRE=$S($P(PSOYS,""^"",2)<3500:3,1:5)"
^XMB(3.9,111,2,709,0)="""RTN"",""PSOCLO1"",26,0)"
^XMB(3.9,111,2,710,0)=" S ANQD(1)=9999999-$P(PSOYS,""^"",6),X1=$P(PSOYS,""^"",6),X2=""-6"" D C^%DTC S ANQD=(9999999-$P(X,"".""))"
^XMB(3.9,111,2,711,0)="""RTN"",""PSOCLO1"",27,0)"
^XMB(3.9,111,2,712,0)=" S ANQ(1)=$P(PSOYS,""^"",2)_""^""_$P(PSOYS,""^"",4) D"
^XMB(3.9,111,2,713,0)="""RTN"",""PSOCLO1"",28,0)"
^XMB(3.9,111,2,714,0)=" .F ANQJ=2:1:4 S ANQD=$O(^TMP($J,""PSO"",ANQD)) Q:'ANQD  S ANQ(ANQJ)=^(ANQD),ANQD(ANQJ)=ANQD"
^XMB(3.9,111,2,715,0)="""RTN"",""PSOCLO1"",29,0)"
^XMB(3.9,111,2,716,0)=" S ANQD=$O(ANQ(""""),-1)"
^XMB(3.9,111,2,717,0)="""RTN"",""PSOCLO1"",30,0)"
^XMB(3.9,111,2,718,0)=" I ANQD<2 W !,""*** No previous results to display ***"",! G OVRD"
^XMB(3.9,111,2,719,0)="""RTN"",""PSOCLO1"",31,0)"
^XMB(3.9,111,2,720,0)=" W !,""*** Last ""_$S(ANQD=4:""Four "",ANQD=3:""Three "",1:""TWO "")_$P(PSOYS,""^"",3)_"" and ANC results were:"""
^XMB(3.9,111,2,721,0)="""RTN"",""PSOCLO1"",32,0)"
^XMB(3.9,111,2,722,0)=" W !,?39,""WBC    ANC"",!"
^XMB(3.9,111,2,723,0)="""RTN"",""PSOCLO1"",33,0)"
^XMB(3.9,111,2,724,0)=" F ANQJ=ANQD:-1:1 S ANQD=9999999-ANQD(ANQJ)_""0000"" W ?5,$E(ANQD,4,5)_""/""_$E(ANQD,6,7)_""/""_($E(ANQD,1,3)+1700) W:ANQD[""."" ""@"",$E(ANQD,9,10),"":"",$E(ANQD,11,12) W ?29,""Results: ""_$P(ANQ(ANQJ),""^"")_"" - ""_$P(ANQ(ANQJ),""^"",2),!"
^XMB(3.9,111,2,725,0)="""RTN"",""PSOCLO1"",34,0)"
^XMB(3.9,111,2,726,0)="OVRD ;"
^XMB(3.9,111,2,727,0)="""RTN"",""PSOCLO1"",35,0)"
^XMB(3.9,111,2,728,0)=" I '$D(^XUSEC(""PSOLOCKCLOZ"",DUZ)) D  G EXIT"
^XMB(3.9,111,2,729,0)="""RTN"",""PSOCLO1"",36,0)"
^XMB(3.9,111,2,730,0)=" .S ANQX=1 W !,""You Are Not Authorized to Override! See Clozapine Manager with PSOLOCKCLOZ key."""
^XMB(3.9,111,2,731,0)="""RTN"",""PSOCLO1"",37,0)"
^XMB(3.9,111,2,732,0)=" I ANQRE W !,""Override reason being: ""_$P($T(@(ANQRE_""^PSOCLO1"")),"";;"",2),!"
^XMB(3.9,111,2,733,0)="""RTN"",""PSOCLO1"",38,0)"
^XMB(3.9,111,2,734,0)=" S DIR(""A"")=""Do you want to override and issue this prescription"",DIR(0)=""Y"",DIR(""B"")=""N"" D ^DIR K DIR I 'Y!($D(DIRUT)) S ANQX=1 G EXIT"
^XMB(3.9,111,2,735,0)="""RTN"",""PSOCLO1"",39,0)"
^XMB(3.9,111,2,736,0)=" S DIC=200,DIC(0)=""AEQM"",DIC(""A"")=""Approving member of the Clozapine team: "",DIC(""S"")=""I $D(^XUSEC(""""PSOLOCKCLOZ"""",+Y)),+Y'=DUZ"" D ^DIC K DIC S ANQD=+Y I Y<0 S ANQX=1 G EXIT"
^XMB(3.9,111,2,737,0)="""RTN"",""PSOCLO1"",40,0)"
^XMB(3.9,111,2,738,0)=" S DIR(0)=""52.52,5"",DIR(""A"")=""Remarks"""
^XMB(3.9,111,2,739,0)="""RTN"",""PSOCLO1"",41,0)"
^XMB(3.9,111,2,740,0)=" D ^DIR K DIR G EXIT:$D(DIRUT)"
^XMB(3.9,111,2,741,0)="""RTN"",""PSOCLO1"",42,0)"
^XMB(3.9,111,2,742,0)=" S ANQX=0,ANQDATA=DUZ_""^""_ANQD_""^""_ANQRE_""^""_X"
^XMB(3.9,111,2,743,0)="""RTN"",""PSOCLO1"",43,0)"
^XMB(3.9,111,2,744,0)=" ;"
^XMB(3.9,111,2,745,0)="""RTN"",""PSOCLO1"",44,0)"
^XMB(3.9,111,2,746,0)="GDOSE ; set variable to ask daily dose"
^XMB(3.9,111,2,747,0)="""RTN"",""PSOCLO1"",45,0)"
^XMB(3.9,111,2,748,0)=" N PSOCD"
^XMB(3.9,111,2,749,0)="""RTN"",""PSOCLO1"",46,0)"
^XMB(3.9,111,2,750,0)="DOSE ;"
^XMB(3.9,111,2,751,0)="""RTN"",""PSOCLO1"",47,0)"
^XMB(3.9,111,2,752,0)=" S DIR(0)=""N^12.5:3000:1"",DIR(""A"")=""CLOZAPINE dosage (mg/day) ? "" D ^DIR K DIR G EXIT:$D(DIRUT)"
^XMB(3.9,111,2,753,0)="""RTN"",""PSOCLO1"",48,0)"
^XMB(3.9,111,2,754,0)=" S PSOCD=X"
^XMB(3.9,111,2,755,0)="""RTN"",""PSOCLO1"",49,0)"
^XMB(3.9,111,2,756,0)=" I PSOCD#25=0,PSOCD'<12.5,PSOCD<900 G EXIT"
^XMB(3.9,111,2,757,0)="""RTN"",""PSOCLO1"",50,0)"
^XMB(3.9,111,2,758,0)=" I PSOCD#12.5 S DIR(0)=""Y"",DIR(""B"")=""NO"",DIR(""A"")=PSOCD_"" is an unusual dose.  Are you sure "" D ^DIR K DIR G EXIT:$D(DIRUT) I 'Y G DOSE"
^XMB(3.9,111,2,759,0)="""RTN"",""PSOCLO1"",51,0)"
^XMB(3.9,111,2,760,0)=" I PSOCD>900 S DIR(0)=""Y"",DIR(""A"")=""Recommended maximum daily dose is 900. Are you sure "" D ^DIR K DIR G EXIT:$D(DIRUT) I 'Y G DOSE"
^XMB(3.9,111,2,761,0)="""RTN"",""PSOCLO1"",52,0)"
^XMB(3.9,111,2,762,0)="EXIT ;"
^XMB(3.9,111,2,763,0)="""RTN"",""PSOCLO1"",53,0)"
^XMB(3.9,111,2,764,0)=" K ^TMP($J,""PSO"")"
^XMB(3.9,111,2,765,0)="""RTN"",""PSOCLO1"",54,0)"
^XMB(3.9,111,2,766,0)=" S:$D(DIRUT) ANQX=1"
^XMB(3.9,111,2,767,0)="""RTN"",""PSOCLO1"",55,0)"
^XMB(3.9,111,2,768,0)=" I $G(ANQX) W !!,""No Prescription entered!"" K ANQDATA"
^XMB(3.9,111,2,769,0)="""RTN"",""PSOCLO1"",56,0)"
^XMB(3.9,111,2,770,0)=" E  S PSONEW(""SAND"")=PSOCD_""^""_$P(PSOYS,""^"",2)_""^""_($P($P(PSOYS,""^"",6),"".""))_""^""_$P(PSOYS,""^"",4)"
^XMB(3.9,111,2,771,0)="""RTN"",""PSOCLO1"",57,0)"
^XMB(3.9,111,2,772,0)=" D DIR"
^XMB(3.9,111,2,773,0)="""RTN"",""PSOCLO1"",58,0)"
^XMB(3.9,111,2,774,0)=" Q"
^XMB(3.9,111,2,775,0)="""RTN"",""PSOCLO1"",59,0)"
^XMB(3.9,111,2,776,0)="MSG3 ;"
^XMB(3.9,111,2,777,0)="""RTN"",""PSOCLO1"",60,0)"
^XMB(3.9,111,2,778,0)=" W !!,""A CBC/Differential including WBC and ANC Must Be Ordered and Monitored on a"",!"
^XMB(3.9,111,2,779,0)="""RTN"",""PSOCLO1"",61,0)"
^XMB(3.9,111,2,780,0)=" W ""Twice weekly basis until the WBC STABILIZES above 3500/mm3 and ANC above"",!"
^XMB(3.9,111,2,781,0)="""RTN"",""PSOCLO1"",62,0)"
^XMB(3.9,111,2,782,0)=" W ""2000/mm3 with no signs of infection."",!"
^XMB(3.9,111,2,783,0)="""RTN"",""PSOCLO1"",63,0)"
^XMB(3.9,111,2,784,0)=" Q"
^XMB(3.9,111,2,785,0)="""RTN"",""PSOCLO1"",64,0)"
^XMB(3.9,111,2,786,0)="MSG4 ;"
^XMB(3.9,111,2,787,0)="""RTN"",""PSOCLO1"",65,0)"
^XMB(3.9,111,2,788,0)=" W !!,""Permission to dispense clozapine has been denied. If the results of the latest"""
^XMB(3.9,111,2,789,0)="""RTN"",""PSOCLO1"",66,0)"
^XMB(3.9,111,2,790,0)=" W !,""Lab Test drawn in the past 7 days show WBC>3000/mm3 and ANC>1500/mm3 and"""
^XMB(3.9,111,2,791,0)="""RTN"",""PSOCLO1"",67,0)"
^XMB(3.9,111,2,792,0)=" W !,""you wish to dispense outside the FDA and VA protocol WBC/ANC limits, document"""
^XMB(3.9,111,2,793,0)="""RTN"",""PSOCLO1"",68,0)"
^XMB(3.9,111,2,794,0)=" W !,""your request to Director of the VA National Clozapine Coordinating Center"""
^XMB(3.9,111,2,795,0)="""RTN"",""PSOCLO1"",69,0)"
^XMB(3.9,111,2,796,0)=" W !,""(Phone: 214-857-0068 Fax: 214-857-0339) for a one-time override permission."""
^XMB(3.9,111,2,797,0)="""RTN"",""PSOCLO1"",70,0)"
^XMB(3.9,111,2,798,0)=" Q"
^XMB(3.9,111,2,799,0)="""RTN"",""PSOCLO1"",71,0)"
^XMB(3.9,111,2,800,0)="MSG5 ;"
^XMB(3.9,111,2,801,0)="""RTN"",""PSOCLO1"",72,0)"
^XMB(3.9,111,2,802,0)=" W !!,""Permission to dispense clozapine has been denied. Please contact the"""
^XMB(3.9,111,2,803,0)="""RTN"",""PSOCLO1"",73,0)"
^XMB(3.9,111,2,804,0)=" W !,""Director of the VA National Clozapine Coordinating Center"""
^XMB(3.9,111,2,805,0)="""RTN"",""PSOCLO1"",74,0)"
^XMB(3.9,111,2,806,0)=" W !,""(Phone: 214-857-0068 Fax: 214-857-0339)."""
^XMB(3.9,111,2,807,0)="""RTN"",""PSOCLO1"",75,0)"
^XMB(3.9,111,2,808,0)=" Q"
^XMB(3.9,111,2,809,0)="""RTN"",""PSOCLO1"",76,0)"
^XMB(3.9,111,2,810,0)="MH       ;"
^XMB(3.9,111,2,811,0)="""RTN"",""PSOCLO1"",77,0)"
^XMB(3.9,111,2,812,0)=" W !,""Also make sure that the LAB tests, WBC and ANC are set up correctly in the"""
^XMB(3.9,111,2,813,0)="""RTN"",""PSOCLO1"",78,0)"
^XMB(3.9,111,2,814,0)=" W !,""Mental Health package using the CLOZAPINE MULTI TEST LINK option."""
^XMB(3.9,111,2,815,0)="""RTN"",""PSOCLO1"",79,0)"
^XMB(3.9,111,2,816,0)=" Q"
^XMB(3.9,111,2,817,0)="""RTN"",""PSOCLO1"",80,0)"
^XMB(3.9,111,2,818,0)="DSP ;"
^XMB(3.9,111,2,819,0)="""RTN"",""PSOCLO1"",81,0)"
^XMB(3.9,111,2,820,0)=" W !,""*** Most recent ""_$P(PSOYS,""^"",3)_"" and ""_$P(PSOYS,""^"",5)_"" (ANC) results ***"""
^XMB(3.9,111,2,821,0)="""RTN"",""PSOCLO1"",82,0)"
^XMB(3.9,111,2,822,0)=" W !,""     performed on """
^XMB(3.9,111,2,823,0)="""RTN"",""PSOCLO1"",83,0)"
^XMB(3.9,111,2,824,0)=" S Y=$P(PSOYS,""^"",6) X ^DD(""DD"") W $P(Y,""@"")_"" are: """
^XMB(3.9,111,2,825,0)="""RTN"",""PSOCLO1"",84,0)"
^XMB(3.9,111,2,826,0)=" W !!,?5,$P(PSOYS,""^"",3)_"": ""_$P(PSOYS,""^"",2)"
^XMB(3.9,111,2,827,0)="""RTN"",""PSOCLO1"",85,0)"
^XMB(3.9,111,2,828,0)=" W !,?5,""ANC: ""_$P(PSOYS,""^"",4),!"
^XMB(3.9,111,2,829,0)="""RTN"",""PSOCLO1"",86,0)"
^XMB(3.9,111,2,830,0)=" Q"
^XMB(3.9,111,2,831,0)="""RTN"",""PSOCLO1"",87,0)"
^XMB(3.9,111,2,832,0)="DIR ;"
^XMB(3.9,111,2,833,0)="""RTN"",""PSOCLO1"",88,0)"
^XMB(3.9,111,2,834,0)=" W !! K DIR S DIR(0)=""E"",DIR(""A"")=""Press Return to Continue"" D ^DIR K DIR,DTOUT,DUOUT,DIRUT"
^XMB(3.9,111,2,835,0)="""RTN"",""PSOCLO1"",89,0)"
^XMB(3.9,111,2,836,0)=" Q"
^XMB(3.9,111,2,837,0)="""RTN"",""PSOCLO1"",90,0)"
^XMB(3.9,111,2,838,0)="END ;"
^XMB(3.9,111,2,839,0)="""RTN"",""PSOCLO1"",91,0)"
^XMB(3.9,111,2,840,0)=" D MSG5"
^XMB(3.9,111,2,841,0)="""RTN"",""PSOCLO1"",92,0)"
^XMB(3.9,111,2,842,0)="QU S ANQX=1 D DIR"
^XMB(3.9,111,2,843,0)="""RTN"",""PSOCLO1"",93,0)"
^XMB(3.9,111,2,844,0)=" Q"
^XMB(3.9,111,2,845,0)="""RTN"",""PSOCLO1"",94,0)"
^XMB(3.9,111,2,846,0)="1 ;;NO WBC IN LAST 7 DAYS"
^XMB(3.9,111,2,847,0)="""RTN"",""PSOCLO1"",95,0)"
^XMB(3.9,111,2,848,0)="2 ;;NO VERIFIED WBC"
^XMB(3.9,111,2,849,0)="""RTN"",""PSOCLO1"",96,0)"
^XMB(3.9,111,2,850,0)="3 ;;LAST WBC RESULT < 3500"
^XMB(3.9,111,2,851,0)="""RTN"",""PSOCLO1"",97,0)"
^XMB(3.9,111,2,852,0)="4 ;;3 SEQ. WBC DECREASE"
^XMB(3.9,111,2,853,0)="""RTN"",""PSOCLO1"",98,0)"
^XMB(3.9,111,2,854,0)="5 ;;LAST ANC RESULT < 2000"
^XMB(3.9,111,2,855,0)="""RTN"",""PSOCLO1"",99,0)"
^XMB(3.9,111,2,856,0)="6 ;;3 SEQ. ANC DECREASE"
^XMB(3.9,111,2,857,0)="""RTN"",""PSOCLO1"",100,0)"
^XMB(3.9,111,2,858,0)="7 ;;NCCC AUTHORIZED"
^XMB(3.9,111,2,859,0)="""RTN"",""PSOCLUTL"")"
^XMB(3.9,111,2,860,0)="0^2^B29603769^B28625453"
^XMB(3.9,111,2,861,0)="""RTN"",""PSOCLUTL"",1,0)"
^XMB(3.9,111,2,862,0)="PSOCLUTL ;BHAM ISC/DMA - utilities for clozapine reporting system ; 12/22/92"
^XMB(3.9,111,2,863,0)="""RTN"",""PSOCLUTL"",2,0)"
^XMB(3.9,111,2,864,0)=" ;;7.0;OUTPATIENT PHARMACY;**28,56,122,222**;DEC 1997;Build 12"
^XMB(3.9,111,2,865,0)="""RTN"",""PSOCLUTL"",3,0)"
^XMB(3.9,111,2,866,0)=" ;External reference ^YSCL(603.01 supported by DBIA 2697"
^XMB(3.9,111,2,867,0)="""RTN"",""PSOCLUTL"",4,0)"
^XMB(3.9,111,2,868,0)=" ;External reference ^PS(55 supported by DBIA 2228"
^XMB(3.9,111,2,869,0)="""RTN"",""PSOCLUTL"",5,0)"
^XMB(3.9,111,2,870,0)=" ;"
^XMB(3.9,111,2,871,0)="""RTN"",""PSOCLUTL"",6,0)"
^XMB(3.9,111,2,872,0)="REG ; register patient"
^XMB(3.9,111,2,873,0)="""RTN"",""PSOCLUTL"",7,0)"
^XMB(3.9,111,2,874,0)=" S DIC=55,DLAYGO=55,DIC(0)=""AEQL"",DIC(""A"")=""Select patient to register: "" D ^DIC K DIC G END:Y<0 S PSO1=+Y,PSONAME=$P(^DPT(PSO1,0),""^"") K DLAYGO"
^XMB(3.9,111,2,875,0)="""RTN"",""PSOCLUTL"",8,0)"
^XMB(3.9,111,2,876,0)=" D:$P($G(^PS(55,PSO1,0)),""^"",6)'=2 EN^PSOHLUP(PSO1)"
^XMB(3.9,111,2,877,0)="""RTN"",""PSOCLUTL"",9,0)"
^XMB(3.9,111,2,878,0)=" I '$D(^YSCL(603.01,""C"",PSO1)) W !!,PSONAME_"" has not been authorized for Clozapine"",!,""by the NCCC in Dallas.  Contact the NCCC in Dallas for authorization."" D OVER G:'$G(%) REG S JADOVER="""""
^XMB(3.9,111,2,879,0)="""RTN"",""PSOCLUTL"",10,0)"
^XMB(3.9,111,2,880,0)=" I $P($G(^PS(55,PSO1,""SAND"")),""^"")]"""" S PSO4=^(""SAND"") W !!,PSONAME_"" is already registered with number ""_$P(PSO4,""^""),!!,""Use the edit option to change registration data, or"",!,""contact your supervisor"",! G REG"
^XMB(3.9,111,2,881,0)="""RTN"",""PSOCLUTL"",11,0)"
^XMB(3.9,111,2,882,0)="NUMBER S DIR(0)=""55,53"" D ^DIR S PSO2=Y K DIR I $D(DIRUT) W !,""Not registered"",! D END G REG"
^XMB(3.9,111,2,883,0)="""RTN"",""PSOCLUTL"",12,0)"
^XMB(3.9,111,2,884,0)=" I $D(^PS(55,""ASAND1"",PSO2)),$O(^(PSO2,0))'=PSO1 W !,PSO2,"" is already assigned to "",$P(^DPT(+$O(^(0)),0),""^"") W !,""Please contact your supervisor"" D END G REG"
^XMB(3.9,111,2,885,0)="""RTN"",""PSOCLUTL"",13,0)"
^XMB(3.9,111,2,886,0)=" I '$D(JADOVER),'$D(^YSCL(603.01,""B"",PSO2)) W !!,""The NCCC in Dallas has not authorized ""_PSO2_"" for useage"",!,""at this facility.  Contact the NCCC in Dallas for authorization."" D OVER G:'$G(%) END"
^XMB(3.9,111,2,887,0)="""RTN"",""PSOCLUTL"",14,0)"
^XMB(3.9,111,2,888,0)=" S DIR(""A"")=""Pre-treatment or Active treatment? "",DIR(0)=""S^P:PRE-TREATMENT;A:ACTIVE TREATMENT;"",DIR(""?"")=""Is this patient new to the Clozapine program, or has s/he been receiving treatment?"" D ^DIR K DIR S PSO3=Y"
^XMB(3.9,111,2,889,0)="""RTN"",""PSOCLUTL"",15,0)"
^XMB(3.9,111,2,890,0)=" I $D(DIRUT) W !!,""Not registered"" R X:10 K X G END"
^XMB(3.9,111,2,891,0)="""RTN"",""PSOCLUTL"",16,0)"
^XMB(3.9,111,2,892,0)="PHY S DIC=""^VA(200,"",DIC(0)=""AEQMZ"",DIC(""A"")=""Provider responsible: "",DIC(""S"")=""I $G(^VA(200,+Y,""""PS""""))]"""""""""" D ^DIC K DIC I Y<0 W !!,""Not registered"",!! R X:10 K X G END"
^XMB(3.9,111,2,893,0)="""RTN"",""PSOCLUTL"",17,0)"
^XMB(3.9,111,2,894,0)=" I $P($G(^VA(200,+Y,""PS"")),""^"",2)']"""" W !!,""Only providers with DEA numbers entered in the New Person"",!,""file can register patients in this program."",!! G PHY"
^XMB(3.9,111,2,895,0)="""RTN"",""PSOCLUTL"",18,0)"
^XMB(3.9,111,2,896,0)=" S PSO4=+Y K DIR,DIRUT,DUOUT,DTOUT"
^XMB(3.9,111,2,897,0)="""RTN"",""PSOCLUTL"",19,0)"
^XMB(3.9,111,2,898,0)=" S DIR(""A"",1)=""OK to register ""_PSONAME_"" with number ""_PSO2,DIR(""A"")=""as a""_$S('PSO3:"" new"",1:""n ongoing"")_"" patient in this program """
^XMB(3.9,111,2,899,0)="""RTN"",""PSOCLUTL"",20,0)"
^XMB(3.9,111,2,900,0)=" S DIR(0)=""Y"",DIR(""B"")=""NO"" D ^DIR K DIR I Y=0 G END"
^XMB(3.9,111,2,901,0)="""RTN"",""PSOCLUTL"",21,0)"
^XMB(3.9,111,2,902,0)="SAVE S DA=PSO1,DIE=55,DR=""53////""_PSO2_"";54////""_PSO3_"";57////""_PSO4_"";56////0;58////""_DT L +^PS(55,DA):0 I '$T W !!,$C(7),""Patient ""_PSONAME_"" is being edited by another user!  Try Later."" G END"
^XMB(3.9,111,2,903,0)="""RTN"",""PSOCLUTL"",22,0)"
^XMB(3.9,111,2,904,0)=" D ^DIE L -^PS(55,DA)"
^XMB(3.9,111,2,905,0)="""RTN"",""PSOCLUTL"",23,0)"
^XMB(3.9,111,2,906,0)="END K %,%Y,C,D,D0,DA,DI,DQ,DFN,DIC,DIE,DR,PSO,PSO1,PSO2,PSO3,PSO4,PSOC,PSOLN,PSONAME,PSONO,PSOT,R,VAERR,XMDUZ,XMSUB,XMTEXT,Y,^TMP($J),^TMP(""PSO"",$J) Q"
^XMB(3.9,111,2,907,0)="""RTN"",""PSOCLUTL"",24,0)"
^XMB(3.9,111,2,908,0)=" Q"
^XMB(3.9,111,2,909,0)="""RTN"",""PSOCLUTL"",25,0)"
^XMB(3.9,111,2,910,0)=" ;"
^XMB(3.9,111,2,911,0)="""RTN"",""PSOCLUTL"",26,0)"
^XMB(3.9,111,2,912,0)="FACILITY ;Enter facility DEA number to set up clozapine system"
^XMB(3.9,111,2,913,0)="""RTN"",""PSOCLUTL"",27,0)"
^XMB(3.9,111,2,914,0)=" ;this entry point is no longer used.  this functionality was taken over"
^XMB(3.9,111,2,915,0)="""RTN"",""PSOCLUTL"",28,0)"
^XMB(3.9,111,2,916,0)=" ;by the mental health package with the release of YS*5.01*18"
^XMB(3.9,111,2,917,0)="""RTN"",""PSOCLUTL"",29,0)"
^XMB(3.9,111,2,918,0)=" ;W ! S DIC=59,DIC(0)=""AEQM"",DIC(""A"")=""Select site to participate in clozapine program : "" D ^DIC G END:Y<0"
^XMB(3.9,111,2,919,0)="""RTN"",""PSOCLUTL"",30,0)"
^XMB(3.9,111,2,920,0)=" ;S DIE=DIC,DA=+Y,DR=""1R;2R;"" L +^PS(59,DA) D ^DIE L -^PS(59,DA) G FACILITY"
^XMB(3.9,111,2,921,0)="""RTN"",""PSOCLUTL"",31,0)"
^XMB(3.9,111,2,922,0)=" Q"
^XMB(3.9,111,2,923,0)="""RTN"",""PSOCLUTL"",32,0)"
^XMB(3.9,111,2,924,0)=" ;"
^XMB(3.9,111,2,925,0)="""RTN"",""PSOCLUTL"",33,0)"
^XMB(3.9,111,2,926,0)=" ;"
^XMB(3.9,111,2,927,0)="""RTN"",""PSOCLUTL"",34,0)"
^XMB(3.9,111,2,928,0)="AGAIN ; re-enter patient - new number, status and provider"
^XMB(3.9,111,2,929,0)="""RTN"",""PSOCLUTL"",35,0)"
^XMB(3.9,111,2,930,0)=" S DIC=55,DIC(0)=""AEQM"",DIC(""A"")=""Select clozapine patient : "" D ^DIC K DIC G END:Y<0 S DA=+Y,PSO1=DA,PSONAME=$P(^DPT(DA,0),""^"")"
^XMB(3.9,111,2,931,0)="""RTN"",""PSOCLUTL"",36,0)"
^XMB(3.9,111,2,932,0)=" I $P($G(^PS(55,DA,""SAND"")),""^"")="""" W !,PSONAME_"" is not registered.  Use the register option."" G AGAIN"
^XMB(3.9,111,2,933,0)="""RTN"",""PSOCLUTL"",37,0)"
^XMB(3.9,111,2,934,0)=" I '$D(^YSCL(603.01,""C"",PSO1)) W !!,PSONAME_"" has not been authorized for Clozapine"",!,""by the NCCC in Dallas.  Contact the NCCC in Dallas for authorization."" D OVER G:'$G(%) AGAIN S JADOVER="""""
^XMB(3.9,111,2,935,0)="""RTN"",""PSOCLUTL"",38,0)"
^XMB(3.9,111,2,936,0)=" S DIR(0)=""55,53"" D ^DIR G END:$D(DIRUT) S PSO2=Y I $D(^PS(55,""ASAND1"",PSO2)),$O(^(PSO2,0))'=PSO1 W !,PSO2,"" already assigned to "",$P(^DPT($O(^(0)),0),""^"") G END"
^XMB(3.9,111,2,937,0)="""RTN"",""PSOCLUTL"",39,0)"
^XMB(3.9,111,2,938,0)=" I '$D(JADOVER),'$D(^YSCL(603.01,""B"",PSO2)) W !!,""The NCCC in Dallas has not authorized ""_PSO2_"" for usage"",!,""at this facility.  Contact the NCCC in Dallas for authorization."" D OVER G:'$G(%) END"
^XMB(3.9,111,2,939,0)="""RTN"",""PSOCLUTL"",40,0)"
^XMB(3.9,111,2,940,0)=" ;S DIR(0)=""55,54"" D ^DIR G END:$D(DIRUT) S PSO3=Y"
^XMB(3.9,111,2,941,0)="""RTN"",""PSOCLUTL"",41,0)"
^XMB(3.9,111,2,942,0)=" S PSO3=$P(^PS(55,DA,""SAND""),""^"",2)"
^XMB(3.9,111,2,943,0)="""RTN"",""PSOCLUTL"",42,0)"
^XMB(3.9,111,2,944,0)=" W !,$P(^DD(55,54,0),""^"")_"": ""_$S(PSO3=""A"":""ACTIVE TREATMENT"",PSO3=""D"":""DISCONTINUED"",PSO3=""H"":""TREATMENT ON HOLD"",1:""PRE-TREATMENT"")"
^XMB(3.9,111,2,945,0)="""RTN"",""PSOCLUTL"",43,0)"
^XMB(3.9,111,2,946,0)="PHY1 ;"
^XMB(3.9,111,2,947,0)="""RTN"",""PSOCLUTL"",44,0)"
^XMB(3.9,111,2,948,0)=" S PSO4=$P(^PS(55,DA,""SAND""),""^"",5),DIR(0)=""55,57"" D ^DIR G END:$D(DIRUT) I Y S PSO4=+Y"
^XMB(3.9,111,2,949,0)="""RTN"",""PSOCLUTL"",45,0)"
^XMB(3.9,111,2,950,0)=" I $P($G(^VA(200,PSO4,""PS"")),""^"",2)="""" W !!,""Only providers with DEA numbers entered in the New Person"",!,""file can register patients in this program."",!! G PHY1"
^XMB(3.9,111,2,951,0)="""RTN"",""PSOCLUTL"",46,0)"
^XMB(3.9,111,2,952,0)=" G SAVE"
^XMB(3.9,111,2,953,0)="""RTN"",""PSOCLUTL"",47,0)"
^XMB(3.9,111,2,954,0)=" ;"
^XMB(3.9,111,2,955,0)="""RTN"",""PSOCLUTL"",48,0)"
^XMB(3.9,111,2,956,0)="OVER ;allow registration of patients and clozapine numbers not yet authorized by the NCCC."
^XMB(3.9,111,2,957,0)="""RTN"",""PSOCLUTL"",49,0)"
^XMB(3.9,111,2,958,0)=" K DIR W ! S DIR(""A"")=""Do you want to over-ride this warning"",DIR(0)=""Y"",DIR(""B"")=""No"" D ^DIR"
^XMB(3.9,111,2,959,0)="""RTN"",""PSOCLUTL"",50,0)"
^XMB(3.9,111,2,960,0)=" I Y D  S %=1"
^XMB(3.9,111,2,961,0)="""RTN"",""PSOCLUTL"",51,0)"
^XMB(3.9,111,2,962,0)=" .Q  S YSCLDATA(1)=""An over-ride was authorize at ""_$G(DUZ(2))_"" for ""_$S($D(PSONAME):PSONAME,1:$G(PSO2))_"" by ""_$P($G(^VA(200,DUZ,0)),""^"")"
^XMB(3.9,111,2,963,0)="""RTN"",""PSOCLUTL"",52,0)"
^XMB(3.9,111,2,964,0)=" .S %H=$H D YMD^%DTC S XMDUN=""NCC LOGGER"",XMDUZ=.5,XMSUB=$G(DUZ(2))_"" NCC ENROLLER (""_X_%_"")"",XMTEXT=""YSCLDATA("",XMY(""G.CLOZAPINE ROLL-UP@FORUM.VA.GOV"")="""""
^XMB(3.9,111,2,965,0)="""RTN"",""PSOCLUTL"",53,0)"
^XMB(3.9,111,2,966,0)=" .D ^XMD K XMDUN,XMDUZ,XMER,XMREC,XRG,XMSUB,XMTEXT,XMY,XMZ,YSCLDATA"
^XMB(3.9,111,2,967,0)="""RTN"",""PSOCLUTL"",54,0)"
^XMB(3.9,111,2,968,0)=" K DIR,DIRUT,DUOUT Q"
^XMB(3.9,111,2,969,0)="""RTN"",""PSOCPDUP"")"
^XMB(3.9,111,2,970,0)="0^3^B33098913^B39161837"
^XMB(3.9,111,2,971,0)="""RTN"",""PSOCPDUP"",1,0)"
^XMB(3.9,111,2,972,0)="PSOCPDUP ;BIR/SAB - Dup drug and class checker for copy orders ;1/3/05 11:34am"
^XMB(3.9,111,2,973,0)="""RTN"",""PSOCPDUP"",2,0)"
^XMB(3.9,111,2,974,0)=" ;;7.0;OUTPATIENT PHARMACY;**11,27,32,130,132,192,207,222**;DEC 1997;Build 12"
^XMB(3.9,111,2,975,0)="""RTN"",""PSOCPDUP"",3,0)"
^XMB(3.9,111,2,976,0)=" ;External references PSOL and PSOUL^PSSLOCK supported by DBIA 2789"
^XMB(3.9,111,2,977,0)="""RTN"",""PSOCPDUP"",4,0)"
^XMB(3.9,111,2,978,0)=" ;External references to ^ORRDI1 supported by DBIA 4659"
^XMB(3.9,111,2,979,0)="""RTN"",""PSOCPDUP"",5,0)"
^XMB(3.9,111,2,980,0)=" S $P(PSONULN,""-"",79)=""-"",(STA,DNM)="""""
^XMB(3.9,111,2,981,0)="""RTN"",""PSOCPDUP"",6,0)"
^XMB(3.9,111,2,982,0)=" F  S STA=$O(PSOSD(STA)) Q:STA=""""  F  S DNM=$O(PSOSD(STA,DNM)) Q:DNM=""""  D  Q:$G(PSORX(""DFLG""))"
^XMB(3.9,111,2,983,0)="""RTN"",""PSOCPDUP"",7,0)"
^XMB(3.9,111,2,984,0)=" .I STA=""PENDING"" D ^PSODRDU1 Q"
^XMB(3.9,111,2,985,0)="""RTN"",""PSOCPDUP"",8,0)"
^XMB(3.9,111,2,986,0)=" .I STA=""ZNONVA"" D NVA^PSODRDU1 Q"
^XMB(3.9,111,2,987,0)="""RTN"",""PSOCPDUP"",9,0)"
^XMB(3.9,111,2,988,0)=" .D:PSODRUG(""NAME"")=$P(DNM,""^"")&('$D(^XUSEC(""PSORPH"",DUZ)))  Q:$G(PSORX(""DFLG""))"
^XMB(3.9,111,2,989,0)="""RTN"",""PSOCPDUP"",10,0)"
^XMB(3.9,111,2,990,0)=" ..I $P($G(PSOPAR),""^"",16) D DUP Q:$G(PSORX(""DFLG""))"
^XMB(3.9,111,2,991,0)="""RTN"",""PSOCPDUP"",11,0)"
^XMB(3.9,111,2,992,0)=" ..I $P(PSOPAR,""^"",2),'$P($G(PSOPAR),""^"",16) D DUP Q:$G(PSORX(""DFLG""))"
^XMB(3.9,111,2,993,0)="""RTN"",""PSOCPDUP"",12,0)"
^XMB(3.9,111,2,994,0)=" ..I '$P(PSOPAR,""^"",2),'$P($G(PSOPAR),""^"",16) D DUP Q:$G(PSORX(""DFLG""))"
^XMB(3.9,111,2,995,0)="""RTN"",""PSOCPDUP"",13,0)"
^XMB(3.9,111,2,996,0)=" .D:PSODRUG(""NAME"")=$P(DNM,""^"")&($D(^XUSEC(""PSORPH"",DUZ))) DUP Q:$G(PSORX(""DFLG""))"
^XMB(3.9,111,2,997,0)="""RTN"",""PSOCPDUP"",14,0)"
^XMB(3.9,111,2,998,0)=" .I PSODRUG(""VA CLASS"")]"""",$E(PSODRUG(""VA CLASS""),1,4)=$E($P(PSOSD(STA,DNM),""^"",5),1,4),PSODRUG(""NAME"")'=$P(DNM,""^"") S PSOCPCLS=1 D CLS K PSOCPCLS"
^XMB(3.9,111,2,999,0)="""RTN"",""PSOCPDUP"",15,0)"
^XMB(3.9,111,2,1000,0)=" K ^TMP($J,""DD""),^TMP($J,""DC""),^TMP($J,""DI"")"
^XMB(3.9,111,2,1001,0)="""RTN"",""PSOCPDUP"",16,0)"
^XMB(3.9,111,2,1002,0)=" I +$G(PSODRUG(""NDF""))'=0 D"
^XMB(3.9,111,2,1003,0)="""RTN"",""PSOCPDUP"",17,0)"
^XMB(3.9,111,2,1004,0)=" .Q:$G(PSORX(""DFLG""))"
^XMB(3.9,111,2,1005,0)="""RTN"",""PSOCPDUP"",18,0)"
^XMB(3.9,111,2,1006,0)=" .I $T(HAVEHDR^ORRDI1)']"""" Q"
^XMB(3.9,111,2,1007,0)="""RTN"",""PSOCPDUP"",19,0)"
^XMB(3.9,111,2,1008,0)=" .I '$$HAVEHDR^ORRDI1 Q"
^XMB(3.9,111,2,1009,0)="""RTN"",""PSOCPDUP"",20,0)"
^XMB(3.9,111,2,1010,0)=" .W !,""Now doing remote order checks. Please wait..."""
^XMB(3.9,111,2,1011,0)="""RTN"",""PSOCPDUP"",21,0)"
^XMB(3.9,111,2,1012,0)=" .D REMOTE^PSOORRDI(PSODFN,PSODRUG(""IEN""))"
^XMB(3.9,111,2,1013,0)="""RTN"",""PSOCPDUP"",22,0)"
^XMB(3.9,111,2,1014,0)=" I $D(^TMP($J,""DD"")) D DUP^PSOORRD2"
^XMB(3.9,111,2,1015,0)="""RTN"",""PSOCPDUP"",23,0)"
^XMB(3.9,111,2,1016,0)=" I $D(^TMP($J,""DC"")) D CLS^PSOORRD2"
^XMB(3.9,111,2,1017,0)="""RTN"",""PSOCPDUP"",24,0)"
^XMB(3.9,111,2,1018,0)=" K ^TMP($J,""DD""),^TMP($J,""DC""),^TMP($J,""DI"")"
^XMB(3.9,111,2,1019,0)="""RTN"",""PSOCPDUP"",25,0)"
^XMB(3.9,111,2,1020,0)="EXIT D ^PSOBUILD K CAN,DA,DIR,DNM,DUPRX0,ISSD,J,LSTFL,MSG,PHYS,PSOCLC,PSONULN,REA,RFLS,RX0,RX2,RXREC,ST,Y,ZZ,ACT,PSOCLOZ,PSOLR,PSOLDT,PSOCD,SIG"
^XMB(3.9,111,2,1021,0)="""RTN"",""PSOCPDUP"",26,0)"
^XMB(3.9,111,2,1022,0)=" Q"
^XMB(3.9,111,2,1023,0)="""RTN"",""PSOCPDUP"",27,0)"
^XMB(3.9,111,2,1024,0)="DUP S:$P(PSOSD(STA,DNM),""^"",2)<10!($P(PSOSD(STA,DNM),""^"",2)=16) DUP=1 W !,PSONULN,!,$C(7),""DUPLICATE DRUG ""_$P(DNM,""^"")_"" in Prescription: "",$P(^PSRX(+PSOSD(STA,DNM),0),""^"")"
^XMB(3.9,111,2,1025,0)="""RTN"",""PSOCPDUP"",28,0)"
^XMB(3.9,111,2,1026,0)=" S RXREC=+PSOSD(STA,DNM),MSG=""Discontinued During Prescription Entry COPY - Duplicate Drug"""
^XMB(3.9,111,2,1027,0)="""RTN"",""PSOCPDUP"",29,0)"
^XMB(3.9,111,2,1028,0)="DATA S DUPRX0=^PSRX(RXREC,0),RFLS=$P(DUPRX0,""^"",9),ISSD=$P(^PSRX(RXREC,0),""^"",13),RX0=DUPRX0,RX2=^PSRX(RXREC,2),SIG=$P($G(^PSRX(RXREC,""SIG"")),""^""),$P(RX0,""^"",15)=+$G(^PSRX(RXREC,""STA""))"
^XMB(3.9,111,2,1029,0)="""RTN"",""PSOCPDUP"",30,0)"
^XMB(3.9,111,2,1030,0)=" W !!,$J(""Status: "",24) S J=RXREC D STAT^PSOFUNC W ST K RX0,RX2 W ?40,$J(""Issued: "",24),$E(ISSD,4,5)_""/""_$E(ISSD,6,7)_""/""_$E(ISSD,2,3)"
^XMB(3.9,111,2,1031,0)="""RTN"",""PSOCPDUP"",31,0)"
^XMB(3.9,111,2,1032,0)=" K FSIG,BSIG I $P($G(^PSRX(RXREC,""SIG"")),""^"",2) D FSIG^PSOUTLA(""R"",RXREC,54) F PSREV=1:1 Q:'$D(FSIG(PSREV))  S BSIG(PSREV)=FSIG(PSREV)"
^XMB(3.9,111,2,1033,0)="""RTN"",""PSOCPDUP"",32,0)"
^XMB(3.9,111,2,1034,0)=" K FSIG,PSREV I '$P($G(^PSRX(RXREC,""SIG"")),""^"",2) D EN2^PSOUTLA1(RXREC,54)"
^XMB(3.9,111,2,1035,0)="""RTN"",""PSOCPDUP"",33,0)"
^XMB(3.9,111,2,1036,0)=" W !,$J(""SIG: "",24) W $G(BSIG(1))"
^XMB(3.9,111,2,1037,0)="""RTN"",""PSOCPDUP"",34,0)"
^XMB(3.9,111,2,1038,0)=" I $O(BSIG(1)) F PSREV=1:0 S PSREV=$O(BSIG(PSREV)) Q:'PSREV  W !?24,$G(BSIG(PSREV))"
^XMB(3.9,111,2,1039,0)="""RTN"",""PSOCPDUP"",35,0)"
^XMB(3.9,111,2,1040,0)=" K BSIG,PSREV"
^XMB(3.9,111,2,1041,0)="""RTN"",""PSOCPDUP"",36,0)"
^XMB(3.9,111,2,1042,0)=" W !,$J(""QTY: "",24)_$P(DUPRX0,""^"",7),?40,$J(""# of refills: "",24)_RFLS S PHYS=$S($D(^VA(200,+$P(DUPRX0,""^"",4),0)):$P(^(0),""^""),1:""UNKNOWN"")"
^XMB(3.9,111,2,1043,0)="""RTN"",""PSOCPDUP"",37,0)"
^XMB(3.9,111,2,1044,0)=" W !,$J(""Provider: "",24)_PHYS,?40,$J(""Refills remaining: "",24),RFLS-$S($D(^PSRX(RXREC,1,0)):$P(^(0),""^"",4),1:0)"
^XMB(3.9,111,2,1045,0)="""RTN"",""PSOCPDUP"",38,0)"
^XMB(3.9,111,2,1046,0)=" S LSTFL=+^PSRX(RXREC,3) W !?40,$J(""Last filled on: "",24)_$E(LSTFL,4,5)_""/""_$E(LSTFL,6,7)_""/""_$E(LSTFL,2,3),!?40,$J(""Days Supply: "",24)_$P(DUPRX0,""^"",8)"
^XMB(3.9,111,2,1047,0)="""RTN"",""PSOCPDUP"",39,0)"
^XMB(3.9,111,2,1048,0)=" W !,PSONULN,! I $P($G(^PS(53,+$P($G(PSORX(""PATIENT STATUS"")),""^""),0)),""^"")[""AUTH ABS""!($G(PSORX(""PATIENT STATUS""))[""AUTH ABS"")&'$P(PSOPAR,""^"",5) W !,""PATIENT ON AUTHORIZED ABSENCE!"" Q"
^XMB(3.9,111,2,1049,0)="""RTN"",""PSOCPDUP"",40,0)"
^XMB(3.9,111,2,1050,0)="ASKCAN I $P(PSOSD(STA,DNM),""^"",2)>10,$P(PSOSD(STA,DNM),""^"",2)'=16 Q"
^XMB(3.9,111,2,1051,0)="""RTN"",""PSOCPDUP"",41,0)"
^XMB(3.9,111,2,1052,0)=" I '$P(PSOPAR,""^"",2),'$P(PSOPAR,""^"",16),'$D(^XUSEC(""PSORPH"",DUZ)),'$G(CLS) S PSORX(""DFLG"")=1 K DIR S DIR(0)=""E"",DIR(""A"")=""Press Return to Continue"" D ^DIR K DIR Q"
^XMB(3.9,111,2,1053,0)="""RTN"",""PSOCPDUP"",42,0)"
^XMB(3.9,111,2,1054,0)=" I $P(PSOPAR,""^"",2),'$P(PSOPAR,""^"",16),'$D(^XUSEC(""PSORPH"",DUZ)),'$G(CLS) S PSORX(""DFLG"")=1 K DIR S DIR(0)=""E"",DIR(""A"")=""Press Return to Continue"" D ^DIR K DIR Q"
^XMB(3.9,111,2,1055,0)="""RTN"",""PSOCPDUP"",43,0)"
^XMB(3.9,111,2,1056,0)=" I $P(PSOSD(STA,DNM),""^"",2)=16,$G(DUP) W !!,""Prescription ""_$S(+$G(PSOSD(STA,DNM)):$P($G(^PSRX(+$G(PSOSD(STA,DNM)),0)),""^"")_"" "",1:"""")_""is on Provider Hold, it cannot be discontinued."",! D  Q"
^XMB(3.9,111,2,1057,0)="""RTN"",""PSOCPDUP"",44,0)"
^XMB(3.9,111,2,1058,0)=" .S PSORX(""DFLG"")=1 K DIR S DIR(0)=""E"",DIR(""A"")=""Press Return to continue"" D ^DIR K DIR,DUP"
^XMB(3.9,111,2,1059,0)="""RTN"",""PSOCPDUP"",45,0)"
^XMB(3.9,111,2,1060,0)=" I $G(PSOCPCLS),$G(RXRECCOP) D PSOL^PSSLOCK(RXRECCOP) I '$G(PSOMSG) D  K PSOMSG,DIR S DIR(0)=""E"",DIR(""A"")=""Press Return to Continue"" D ^DIR K DIR S PSORX(""DFLG"")=1 Q"
^XMB(3.9,111,2,1061,0)="""RTN"",""PSOCPDUP"",46,0)"
^XMB(3.9,111,2,1062,0)=" .I $P($G(PSOMSG),""^"",2)'="""" W !!,$P(PSOMSG,""^"",2) Q"
^XMB(3.9,111,2,1063,0)="""RTN"",""PSOCPDUP"",47,0)"
^XMB(3.9,111,2,1064,0)=" .W !!,""Another person is editing Rx ""_$P($G(^PSRX(RXRECCOP,0)),""^"")"
^XMB(3.9,111,2,1065,0)="""RTN"",""PSOCPDUP"",48,0)"
^XMB(3.9,111,2,1066,0)=" K PSOMSG S DIR(""A"")=""Discontinue Rx # ""_$P(^PSRX(+PSOSD(STA,DNM),0),""^""),DIR(0)=""Y"",DIR(""?"")=""Enter Y to discontinue this Rx."""
^XMB(3.9,111,2,1067,0)="""RTN"",""PSOCPDUP"",49,0)"
^XMB(3.9,111,2,1068,0)=" D ^DIR K DIR S DA=RXREC S ACT=""Discontinued while entering new Rx"""
^XMB(3.9,111,2,1069,0)="""RTN"",""PSOCPDUP"",50,0)"
^XMB(3.9,111,2,1070,0)=" I 'Y W $C(7),"" -Prescription was not discontinued..."" S:'$D(PSOCLC) PSOCLC=DUZ S MSG=ACT,REA=""C"" S:$G(DUP) PSORX(""DFLG"")=1 K DUP,CLS D  Q"
^XMB(3.9,111,2,1071,0)="""RTN"",""PSOCPDUP"",51,0)"
^XMB(3.9,111,2,1072,0)=" .I $D(^TMP(""PSORXDC"",$J,RXREC,0)) K ^TMP(""PSORXDC"",$J,RXREC,0)"
^XMB(3.9,111,2,1073,0)="""RTN"",""PSOCPDUP"",52,0)"
^XMB(3.9,111,2,1074,0)=" .D:$G(PSOCPCLS) ULRX"
^XMB(3.9,111,2,1075,0)="""RTN"",""PSOCPDUP"",53,0)"
^XMB(3.9,111,2,1076,0)=" I $P(PSOSD(STA,DNM),""^"",2)=16,$G(CLS) W !!,""Prescription ""_$P($G(^PSRX(+$G(RXRECLOC),0)),""^"")_"" is on Provider Hold, it cannot be discontinued."",! D ULRX K CLS,DUP,RXRECLOC S PSORX(""DFLG"")=1 H 2 Q"
^XMB(3.9,111,2,1077,0)="""RTN"",""PSOCPDUP"",54,0)"
^XMB(3.9,111,2,1078,0)=" S PSOCLC=DUZ,MSG=$S($G(MSG)]"""":MSG,1:ACT_"" During New Rx Entry - DUPLICATE RX""),REA=""C"""
^XMB(3.9,111,2,1079,0)="""RTN"",""PSOCPDUP"",55,0)"
^XMB(3.9,111,2,1080,0)=" W !!,""Duplicate ""_$S($G(CLS):""Class"",1:""Drug"")_"" will be discontinued after the acceptance of the new order."",!"
^XMB(3.9,111,2,1081,0)="""RTN"",""PSOCPDUP"",56,0)"
^XMB(3.9,111,2,1082,0)=" S ^TMP(""PSORXDC"",$J,RXREC,0)=""52^""_DA_""^""_MSG_""^""_REA_""^""_ACT_""^""_STA_""^""_DNM,PSONOOR=""D"""
^XMB(3.9,111,2,1083,0)="""RTN"",""PSOCPDUP"",57,0)"
^XMB(3.9,111,2,1084,0)=" K CLS,DUP,PSOCPCLS Q"
^XMB(3.9,111,2,1085,0)="""RTN"",""PSOCPDUP"",58,0)"
^XMB(3.9,111,2,1086,0)="CLS K DUP S CLS=1,MSG=""Discontinued During New Prescription Entry - Duplicate Class"" W !,PSONULN"
^XMB(3.9,111,2,1087,0)="""RTN"",""PSOCPDUP"",59,0)"
^XMB(3.9,111,2,1088,0)=" W !?5,$C(7),""*** SAME CLASS *** OF DRUG IN RX #""_$P(^PSRX(+PSOSD(STA,DNM),0),""^"")_"" FOR ""_$P(DNM,""^""),!,""CLASS: ""_PSODRUG(""VA CLASS"")"
^XMB(3.9,111,2,1089,0)="""RTN"",""PSOCPDUP"",60,0)"
^XMB(3.9,111,2,1090,0)=" S CAN=$P(PSOSD(STA,DNM),""^"",2)'<11!($P(PSOSD(STA,DNM),""^"",2)=1) S (RXREC,RXRECCOP)=+PSOSD(STA,DNM) S PSOELSE=$P(PSOPAR,""^"",10) I PSOELSE D DATA"
^XMB(3.9,111,2,1091,0)="""RTN"",""PSOCPDUP"",61,0)"
^XMB(3.9,111,2,1092,0)=" I 'PSOELSE S DIR(0)=""E"",DIR(""A"")=""Press Return to continue"" D ^DIR K DIR,DTOUT,DUOUT,DIRUT"
^XMB(3.9,111,2,1093,0)="""RTN"",""PSOCPDUP"",62,0)"
^XMB(3.9,111,2,1094,0)=" K PSOELSE,RXRECCOP Q"
^XMB(3.9,111,2,1095,0)="""RTN"",""PSOCPDUP"",63,0)"
^XMB(3.9,111,2,1096,0)="ULRX ;"
^XMB(3.9,111,2,1097,0)="""RTN"",""PSOCPDUP"",64,0)"
^XMB(3.9,111,2,1098,0)=" I '$G(RXRECCOP) Q"
^XMB(3.9,111,2,1099,0)="""RTN"",""PSOCPDUP"",65,0)"
^XMB(3.9,111,2,1100,0)=" D PSOUL^PSSLOCK(RXRECCOP)"
^XMB(3.9,111,2,1101,0)="""RTN"",""PSOCPDUP"",66,0)"
^XMB(3.9,111,2,1102,0)=" Q"
^XMB(3.9,111,2,1103,0)="""RTN"",""PSODIR1"")"
^XMB(3.9,111,2,1104,0)="0^4^B69320145^B62027893"
^XMB(3.9,111,2,1105,0)="""RTN"",""PSODIR1"",1,0)"
^XMB(3.9,111,2,1106,0)="PSODIR1 ;IHS/DSD - ASKS DATA FOR RX ORDER ENTRY CONT. ;02/17/93 17:03"
^XMB(3.9,111,2,1107,0)="""RTN"",""PSODIR1"",2,0)"
^XMB(3.9,111,2,1108,0)=" ;;7.0;OUTPATIENT PHARMACY;**23,46,78,102,121,131,146,166,184,222**;DEC 1997;Build 12"
^XMB(3.9,111,2,1109,0)="""RTN"",""PSODIR1"",3,0)"
^XMB(3.9,111,2,1110,0)=" ;Ext ref ^PS(55-DBIA 2228, ^PSDRUG(-DBIA 221"
^XMB(3.9,111,2,1111,0)="""RTN"",""PSODIR1"",4,0)"
^XMB(3.9,111,2,1112,0)="PTSTAT(PSODIR) ;"
^XMB(3.9,111,2,1113,0)="""RTN"",""PSODIR1"",5,0)"
^XMB(3.9,111,2,1114,0)="PTSTATEN K DIC,DR,DIE S PSODIR(""FIELD"")=0"
^XMB(3.9,111,2,1115,0)="""RTN"",""PSODIR1"",6,0)"
^XMB(3.9,111,2,1116,0)=" I $G(PSOTPBFG),$G(PSOFROM)=""NEW"" K PSORX(""PATIENT STATUS""),PSODIR(""PATIENT STATUS"") N PSOFNDRX,PSOFNDFL,PSOFNDPS D"
^XMB(3.9,111,2,1117,0)="""RTN"",""PSODIR1"",7,0)"
^XMB(3.9,111,2,1118,0)=" .S PSOFNDFL=0 F PSOFNDPS=0:0 S PSOFNDPS=$O(^PS(53,PSOFNDPS)) Q:'PSOFNDPS!(PSOFNDFL)  D"
^XMB(3.9,111,2,1119,0)="""RTN"",""PSODIR1"",8,0)"
^XMB(3.9,111,2,1120,0)=" ..S PSOFNDRX=$P($G(^PS(53,PSOFNDPS,0)),""^"") S PSOFNDRX=$$UP^XLFSTR(PSOFNDRX) I PSOFNDRX=""NON-VA"" S PSOFNDFL=1 S (PSORX(""PATIENT STATUS""),DIC(""B""))=$P($G(^PS(53,PSOFNDPS,0)),""^"")"
^XMB(3.9,111,2,1121,0)="""RTN"",""PSODIR1"",9,0)"
^XMB(3.9,111,2,1122,0)=" I $G(PSOTPBFG),$G(PSOFROM)=""NEW"",$G(PSORX(""PATIENT STATUS""))="""" W !,""Could not find a 'NON-VA' Patient Status in the RX PATIENT STATUS file (#53)!"" D PSTPB D  S PSODIR(""DFLG"")=1 G PTSTATX"
^XMB(3.9,111,2,1123,0)="""RTN"",""PSODIR1"",10,0)"
^XMB(3.9,111,2,1124,0)=" .K DIR S DIR(0)=""E"",DIR(""A"")=""Press Return to continue"" D ^DIR K DIR"
^XMB(3.9,111,2,1125,0)="""RTN"",""PSODIR1"",11,0)"
^XMB(3.9,111,2,1126,0)=" I $G(PSOTPBFG),$G(PSOFROM)=""NEW"" G TPBB"
^XMB(3.9,111,2,1127,0)="""RTN"",""PSODIR1"",12,0)"
^XMB(3.9,111,2,1128,0)=" S:$G(PSORX(""PATIENT STATUS""))]"""" DIC(""B"")=PSORX(""PATIENT STATUS"")"
^XMB(3.9,111,2,1129,0)="""RTN"",""PSODIR1"",13,0)"
^XMB(3.9,111,2,1130,0)=" S:$G(PSODIR(""PATIENT STATUS""))]"""" DIC(""B"")=PSODIR(""PATIENT STATUS"")"
^XMB(3.9,111,2,1131,0)="""RTN"",""PSODIR1"",14,0)"
^XMB(3.9,111,2,1132,0)="TPBB ;"
^XMB(3.9,111,2,1133,0)="""RTN"",""PSODIR1"",15,0)"
^XMB(3.9,111,2,1134,0)=" S DIC(""A"")=""PATIENT STATUS: """
^XMB(3.9,111,2,1135,0)="""RTN"",""PSODIR1"",16,0)"
^XMB(3.9,111,2,1136,0)=" S DIC(0)=""QEAMZ"",DIC=53 D ^DIC K DIC"
^XMB(3.9,111,2,1137,0)="""RTN"",""PSODIR1"",17,0)"
^XMB(3.9,111,2,1138,0)=" I $G(PSOTPBFG),$G(PSOFROM)=""NEW"" N PSOPSDIR,PSOFNDZZ,PSOPSUPA S (PSOPSDIR,PSOPSUPA)=0 D  I PSOPSDIR S:PSOPSUPA PSODIR(""DFLG"")=1 G:PSOPSUPA PTSTATX W ! D PSTPB G PTSTATEN"
^XMB(3.9,111,2,1139,0)="""RTN"",""PSODIR1"",18,0)"
^XMB(3.9,111,2,1140,0)=" .I +Y'>0!($D(DTOUT))!($D(DUOUT)) S (PSOPSDIR,PSOPSUPA)=1 Q"
^XMB(3.9,111,2,1141,0)="""RTN"",""PSODIR1"",19,0)"
^XMB(3.9,111,2,1142,0)=" .S (PSODIR(""PATIENT STATUS""),PSORX(""PATIENT STATUS""))=+Y,PSODIR(""PTST NODE"")=Y(0)"
^XMB(3.9,111,2,1143,0)="""RTN"",""PSODIR1"",20,0)"
^XMB(3.9,111,2,1144,0)=" .S PSOFNDZZ=$P($G(^PS(53,+Y,0)),""^"") S PSOFNDZZ=$$UP^XLFSTR(PSOFNDZZ) I PSOFNDZZ'=""NON-VA"" S PSOPSDIR=1 K PSODIR(""PATIENT STATUS""),PSORX(""PATIENT STATUS""),PSODIR(""PTST NODE"")"
^XMB(3.9,111,2,1145,0)="""RTN"",""PSODIR1"",21,0)"
^XMB(3.9,111,2,1146,0)=" I $G(PSOTPBFG),$G(PSOFROM)=""NEW"" G TPBSC"
^XMB(3.9,111,2,1147,0)="""RTN"",""PSODIR1"",22,0)"
^XMB(3.9,111,2,1148,0)=" I X[U,$L(X)>1 D:'$G(PSOEDIT) JUMP G PTSTATX"
^XMB(3.9,111,2,1149,0)="""RTN"",""PSODIR1"",23,0)"
^XMB(3.9,111,2,1150,0)=" I $D(DUOUT)!$D(DTOUT) S PSODIR(""DFLG"")=1 G PTSTATX"
^XMB(3.9,111,2,1151,0)="""RTN"",""PSODIR1"",24,0)"
^XMB(3.9,111,2,1152,0)=" I Y=-1 W $C(7),"" Required"" G PTSTATEN"
^XMB(3.9,111,2,1153,0)="""RTN"",""PSODIR1"",25,0)"
^XMB(3.9,111,2,1154,0)=" N PSOFNDX,PSOFNDXY,PSOFNDXX,PSOFNDYY"
^XMB(3.9,111,2,1155,0)="""RTN"",""PSODIR1"",26,0)"
^XMB(3.9,111,2,1156,0)=" S PSOFNDXY=$G(Y),PSOFNDYY=$G(Y(0))"
^XMB(3.9,111,2,1157,0)="""RTN"",""PSODIR1"",27,0)"
^XMB(3.9,111,2,1158,0)=" I '$G(PSOTPBFG),$G(PSOFROM)=""NEW"" S PSOFNDX=$P($G(^PS(53,+Y,0)),""^"") S PSOFNDXX=$$UP^XLFSTR(PSOFNDX) I PSOFNDXX=""NON-VA"" K PSOFNDX,PSOFNDXY,PSOFNDYY,PSOFNDXX,Y W !!,""Cannot select 'NON-VA' Rx Patient Status!"",! G PTSTATEN"
^XMB(3.9,111,2,1159,0)="""RTN"",""PSODIR1"",28,0)"
^XMB(3.9,111,2,1160,0)=" S Y=$G(PSOFNDXY),Y(0)=$G(PSOFNDYY)"
^XMB(3.9,111,2,1161,0)="""RTN"",""PSODIR1"",29,0)"
^XMB(3.9,111,2,1162,0)=" K PSOFNDXY,PSOFNDYY,PSOFNDX,PSOFNDXX"
^XMB(3.9,111,2,1163,0)="""RTN"",""PSODIR1"",30,0)"
^XMB(3.9,111,2,1164,0)=" S (PSODIR(""PATIENT STATUS""),PSORX(""PATIENT STATUS""))=+Y"
^XMB(3.9,111,2,1165,0)="""RTN"",""PSODIR1"",31,0)"
^XMB(3.9,111,2,1166,0)=" S PSODIR(""PTST NODE"")=Y(0)"
^XMB(3.9,111,2,1167,0)="""RTN"",""PSODIR1"",32,0)"
^XMB(3.9,111,2,1168,0)="TPBSC ;"
^XMB(3.9,111,2,1169,0)="""RTN"",""PSODIR1"",33,0)"
^XMB(3.9,111,2,1170,0)=" I $G(PSOFDR),$P($G(OR0),""^"",17)=""C"" G PTSTATX"
^XMB(3.9,111,2,1171,0)="""RTN"",""PSODIR1"",34,0)"
^XMB(3.9,111,2,1172,0)=" L +^PS(55,PSODFN):0 I '$T G PTSTATX"
^XMB(3.9,111,2,1173,0)="""RTN"",""PSODIR1"",35,0)"
^XMB(3.9,111,2,1174,0)=" S DIE=""55"",DR=""3////""_+Y,DA=PSODFN D ^DIE K DIE,DA,D0"
^XMB(3.9,111,2,1175,0)="""RTN"",""PSODIR1"",36,0)"
^XMB(3.9,111,2,1176,0)=" L -^PS(55,PSODFN)"
^XMB(3.9,111,2,1177,0)="""RTN"",""PSODIR1"",37,0)"
^XMB(3.9,111,2,1178,0)="PTSTATX K DTOUT,DUOUT,X,Y,DA"
^XMB(3.9,111,2,1179,0)="""RTN"",""PSODIR1"",38,0)"
^XMB(3.9,111,2,1180,0)=" Q"
^XMB(3.9,111,2,1181,0)="""RTN"",""PSODIR1"",39,0)"
^XMB(3.9,111,2,1182,0)="SIG(PSODIR) ;"
^XMB(3.9,111,2,1183,0)="""RTN"",""PSODIR1"",40,0)"
^XMB(3.9,111,2,1184,0)=" I $G(PSOFDR),$G(PSODIR(""SIG""))']"""" D SIGOK G:$G(SIGOK)!($G(PSODIR(""DFLG""))) SIGX"
^XMB(3.9,111,2,1185,0)="""RTN"",""PSODIR1"",41,0)"
^XMB(3.9,111,2,1186,0)=" K DIR,DIC"
^XMB(3.9,111,2,1187,0)="""RTN"",""PSODIR1"",42,0)"
^XMB(3.9,111,2,1188,0)=" S DIR(0)=""52,10"""
^XMB(3.9,111,2,1189,0)="""RTN"",""PSODIR1"",43,0)"
^XMB(3.9,111,2,1190,0)=" S:$G(PSODRUG(""SIG""))]"""" DIR(""B"")=PSODRUG(""SIG"")"
^XMB(3.9,111,2,1191,0)="""RTN"",""PSODIR1"",44,0)"
^XMB(3.9,111,2,1192,0)=" S:$G(PSODIR(""SIG""))]"""" DIR(""B"")=PSODIR(""SIG"")"
^XMB(3.9,111,2,1193,0)="""RTN"",""PSODIR1"",45,0)"
^XMB(3.9,111,2,1194,0)=" D DIR G:PSODIR(""DFLG"")!PSODIR(""FIELD"") SIGX"
^XMB(3.9,111,2,1195,0)="""RTN"",""PSODIR1"",46,0)"
^XMB(3.9,111,2,1196,0)=" S PSODIR(""SIG"")=Y,SIGOK=0 K SIG"
^XMB(3.9,111,2,1197,0)="""RTN"",""PSODIR1"",47,0)"
^XMB(3.9,111,2,1198,0)="SIGX K X,Y"
^XMB(3.9,111,2,1199,0)="""RTN"",""PSODIR1"",48,0)"
^XMB(3.9,111,2,1200,0)=" Q"
^XMB(3.9,111,2,1201,0)="""RTN"",""PSODIR1"",49,0)"
^XMB(3.9,111,2,1202,0)="QTY(PSODIR) ;"
^XMB(3.9,111,2,1203,0)="""RTN"",""PSODIR1"",50,0)"
^XMB(3.9,111,2,1204,0)="QTYA K DIR,DIC"
^XMB(3.9,111,2,1205,0)="""RTN"",""PSODIR1"",51,0)"
^XMB(3.9,111,2,1206,0)=" I $G(CLOZPAT)=1 S DIR(""A"",1)=""Patient Eligible for 14 day supply or 7 day supply with 1 refill"""
^XMB(3.9,111,2,1207,0)="""RTN"",""PSODIR1"",52,0)"
^XMB(3.9,111,2,1208,0)=" I $G(CLOZPAT)=2 S DIR(""A"",1)=""Patient Eligible 28 day supply or 14 day supply with 1 refill or 7 day supply with 3 refill"""
^XMB(3.9,111,2,1209,0)="""RTN"",""PSODIR1"",53,0)"
^XMB(3.9,111,2,1210,0)=" S DIR(0)=""52,7"" S:$G(PSODRUG(""IEN"")) DIR(""A"")=""QTY ( ""_$G(PSODRUG(""UNIT""))_"" ) ""_$S($P($G(^PSDRUG(+PSODRUG(""IEN""),5)),""^"")]"""":$P(^PSDRUG(+PSODRUG(""IEN""),5),""^""),1:"""")"
^XMB(3.9,111,2,1211,0)="""RTN"",""PSODIR1"",54,0)"
^XMB(3.9,111,2,1212,0)=" K QTYHLD I $G(PSODIR(""QTY""))]"""" S QTYHLD=PSODIR(""QTY"") K PSODIR(""QTY"")"
^XMB(3.9,111,2,1213,0)="""RTN"",""PSODIR1"",55,0)"
^XMB(3.9,111,2,1214,0)=" D:'$G(PSOQTY) QTY^PSOSIG(.PSODIR)"
^XMB(3.9,111,2,1215,0)="""RTN"",""PSODIR1"",56,0)"
^XMB(3.9,111,2,1216,0)=" I '$G(SPEED),$G(QTYHLD),'$G(PSODIR(""QTY"")) S PSODIR(""QTY"")=QTYHLD"
^XMB(3.9,111,2,1217,0)="""RTN"",""PSODIR1"",57,0)"
^XMB(3.9,111,2,1218,0)=" K QTYHLD K:'$G(PSODIR(""QTY"")) PSODIR(""QTY"")"
^XMB(3.9,111,2,1219,0)="""RTN"",""PSODIR1"",58,0)"
^XMB(3.9,111,2,1220,0)=" I $G(SPEED),$G(PSODIR(""QTY""))']"""" S PSODIR(""QTY"")=$P(^PSRX(PSORENW(""OIRXN""),0),""^"",7)"
^XMB(3.9,111,2,1221,0)="""RTN"",""PSODIR1"",59,0)"
^XMB(3.9,111,2,1222,0)=" S:$G(PSODIR(""QTY""))]"""" DIR(""B"")=PSODIR(""QTY"")"
^XMB(3.9,111,2,1223,0)="""RTN"",""PSODIR1"",60,0)"
^XMB(3.9,111,2,1224,0)=" D DIR G:PSODIR(""DFLG"")!PSODIR(""FIELD"") QTYX"
^XMB(3.9,111,2,1225,0)="""RTN"",""PSODIR1"",61,0)"
^XMB(3.9,111,2,1226,0)=" I $G(Y),$G(PSODRUG(""MAXDOSE""))]"""",$G(PSODIR(""DAYS SUPPLY"")),(Y/+PSODIR(""DAYS SUPPLY"")>PSODRUG(""MAXDOSE"")) D  G:$G(PSODIR(""DFLG"")) QTYX  G QTYA"
^XMB(3.9,111,2,1227,0)="""RTN"",""PSODIR1"",62,0)"
^XMB(3.9,111,2,1228,0)=" .W !,$C(7),"" Greater than Maximum dose of ""_PSODRUG(""MAXDOSE"")_"" per day"" D DAYSEN"
^XMB(3.9,111,2,1229,0)="""RTN"",""PSODIR1"",63,0)"
^XMB(3.9,111,2,1230,0)=" S PSODIR(""QTY"")=Y"
^XMB(3.9,111,2,1231,0)="""RTN"",""PSODIR1"",64,0)"
^XMB(3.9,111,2,1232,0)="QTYX K X,Y"
^XMB(3.9,111,2,1233,0)="""RTN"",""PSODIR1"",65,0)"
^XMB(3.9,111,2,1234,0)=" Q"
^XMB(3.9,111,2,1235,0)="""RTN"",""PSODIR1"",66,0)"
^XMB(3.9,111,2,1236,0)="COPIES(PSODIR) ;"
^XMB(3.9,111,2,1237,0)="""RTN"",""PSODIR1"",67,0)"
^XMB(3.9,111,2,1238,0)=" K DIR,DIC"
^XMB(3.9,111,2,1239,0)="""RTN"",""PSODIR1"",68,0)"
^XMB(3.9,111,2,1240,0)=" S DIR(0)=""52,10.6"""
^XMB(3.9,111,2,1241,0)="""RTN"",""PSODIR1"",69,0)"
^XMB(3.9,111,2,1242,0)=" S DIR(""B"")=$S($G(PSODIR(""COPIES""))]"""":PSODIR(""COPIES""),1:1)"
^XMB(3.9,111,2,1243,0)="""RTN"",""PSODIR1"",70,0)"
^XMB(3.9,111,2,1244,0)=" D DIR G:PSODIR(""DFLG"")!PSODIR(""FIELD"") COPIESX"
^XMB(3.9,111,2,1245,0)="""RTN"",""PSODIR1"",71,0)"
^XMB(3.9,111,2,1246,0)=" S PSODIR(""COPIES"")=Y"
^XMB(3.9,111,2,1247,0)="""RTN"",""PSODIR1"",72,0)"
^XMB(3.9,111,2,1248,0)="COPIESX K X,Y"
^XMB(3.9,111,2,1249,0)="""RTN"",""PSODIR1"",73,0)"
^XMB(3.9,111,2,1250,0)=" Q"
^XMB(3.9,111,2,1251,0)="""RTN"",""PSODIR1"",74,0)"
^XMB(3.9,111,2,1252,0)="DAYS(PSODIR) ;"
^XMB(3.9,111,2,1253,0)="""RTN"",""PSODIR1"",75,0)"
^XMB(3.9,111,2,1254,0)="DAYSEN K DIR,DIC"
^XMB(3.9,111,2,1255,0)="""RTN"",""PSODIR1"",76,0)"
^XMB(3.9,111,2,1256,0)=" S DIR(0)=""N^1:""_$S($G(CLOZPAT)=2:28,$G(CLOZPAT)=1:14,$G(CLOZPAT)=0:7,1:90)"
^XMB(3.9,111,2,1257,0)="""RTN"",""PSODIR1"",77,0)"
^XMB(3.9,111,2,1258,0)=" S DIR(""B"")=$S($D(CLOZPAT)&('$G(PSODIR(""DAYS SUPPLY""))):7,$G(PSODIR(""DAYS SUPPLY""))]"""":PSODIR(""DAYS SUPPLY""),$P($G(PSODIR(""PTST NODE"")),""^"",3):$P(PSODIR(""PTST NODE""),""^"",3),1:30)"
^XMB(3.9,111,2,1259,0)="""RTN"",""PSODIR1"",78,0)"
^XMB(3.9,111,2,1260,0)=" S DIR(""A"")=""DAYS SUPPLY"",DIR(""?"")=""Enter a whole number between 1 and ""_$S($G(CLOZPAT)=2:28,$G(CLOZPAT)=1:14,$G(CLOZPAT)=0:7,1:90)"
^XMB(3.9,111,2,1261,0)="""RTN"",""PSODIR1"",79,0)"
^XMB(3.9,111,2,1262,0)=" D DIR G:PSODIR(""DFLG"")!PSODIR(""FIELD"") DAYSX"
^XMB(3.9,111,2,1263,0)="""RTN"",""PSODIR1"",80,0)"
^XMB(3.9,111,2,1264,0)=" I $G(Y),$G(PSODRUG(""MAXDOSE""))]"""",$G(PSODIR(""QTY""))]"""",(+PSODIR(""QTY"")/Y>PSODRUG(""MAXDOSE"")) W !,$C(7),"" Greater than Maximum dose of ""_PSODRUG(""MAXDOSE"")_"" per day"" G DAYSEN"
^XMB(3.9,111,2,1265,0)="""RTN"",""PSODIR1"",81,0)"
^XMB(3.9,111,2,1266,0)=" S PSODIR(""DAYS SUPPLY"")=Y D:$G(PSOFROM)=""NEW"""
^XMB(3.9,111,2,1267,0)="""RTN"",""PSODIR1"",82,0)"
^XMB(3.9,111,2,1268,0)=" .K QTYHLD S:$G(PSODIR(""QTY"")) QTYHLD=PSODIR(""QTY"") D QTY^PSOSIG(.PSODIR)"
^XMB(3.9,111,2,1269,0)="""RTN"",""PSODIR1"",83,0)"
^XMB(3.9,111,2,1270,0)=" .I $G(QTYHLD),'$G(PSODIR(""QTY"")) S PSODIR(""QTY"")=QTYHLD"
^XMB(3.9,111,2,1271,0)="""RTN"",""PSODIR1"",84,0)"
^XMB(3.9,111,2,1272,0)=" .K QTYHLD K:'$G(PSODIR(""QTY"")) PSODIR(""QTY"")"
^XMB(3.9,111,2,1273,0)="""RTN"",""PSODIR1"",85,0)"
^XMB(3.9,111,2,1274,0)=" S:$G(CLOZPAT)=0 (PSODIR(""N# REF""),PSODIR(""# OF REFILLS""))=0"
^XMB(3.9,111,2,1275,0)="""RTN"",""PSODIR1"",86,0)"
^XMB(3.9,111,2,1276,0)=" D:$G(CLOZPAT)=2"
^XMB(3.9,111,2,1277,0)="""RTN"",""PSODIR1"",87,0)"
^XMB(3.9,111,2,1278,0)=" .S:PSODIR(""DAYS SUPPLY"")=28 (PSODIR(""N# REF""),PSODIR(""# OF REFILLS""))=0"
^XMB(3.9,111,2,1279,0)="""RTN"",""PSODIR1"",88,0)"
^XMB(3.9,111,2,1280,0)=" .S:PSODIR(""DAYS SUPPLY"")=14 (PSODIR(""N# REF""),PSODIR(""# OF REFILLS""))=1"
^XMB(3.9,111,2,1281,0)="""RTN"",""PSODIR1"",89,0)"
^XMB(3.9,111,2,1282,0)=" .S:PSODIR(""DAYS SUPPLY"")=7 (PSODIR(""N# REF""),PSODIR(""# OF REFILLS""))=3"
^XMB(3.9,111,2,1283,0)="""RTN"",""PSODIR1"",90,0)"
^XMB(3.9,111,2,1284,0)=" D:$G(CLOZPAT)=1"
^XMB(3.9,111,2,1285,0)="""RTN"",""PSODIR1"",91,0)"
^XMB(3.9,111,2,1286,0)=" .S:PSODIR(""DAYS SUPPLY"")=14 (PSODIR(""N# REF""),PSODIR(""# OF REFILLS""))=0"
^XMB(3.9,111,2,1287,0)="""RTN"",""PSODIR1"",92,0)"
^XMB(3.9,111,2,1288,0)=" .S:PSODIR(""DAYS SUPPLY"")=7 (PSODIR(""N# REF""),PSODIR(""# OF REFILLS""))=1"
^XMB(3.9,111,2,1289,0)="""RTN"",""PSODIR1"",93,0)"
^XMB(3.9,111,2,1290,0)=" K QTYHLD S:$G(PSODIR(""QTY"")) QTYHLD=PSODIR(""QTY"") D QTY^PSOSIG(.PSODIR)"
^XMB(3.9,111,2,1291,0)="""RTN"",""PSODIR1"",94,0)"
^XMB(3.9,111,2,1292,0)=" I $G(QTYHLD),'$G(PSODIR(""QTY"")) S PSODIR(""QTY"")=QTYHLD"
^XMB(3.9,111,2,1293,0)="""RTN"",""PSODIR1"",95,0)"
^XMB(3.9,111,2,1294,0)=" K QTYHLD K:'$G(PSODIR(""QTY"")) PSODIR(""QTY"")"
^XMB(3.9,111,2,1295,0)="""RTN"",""PSODIR1"",96,0)"
^XMB(3.9,111,2,1296,0)="DAYSX K X,Y"
^XMB(3.9,111,2,1297,0)="""RTN"",""PSODIR1"",97,0)"
^XMB(3.9,111,2,1298,0)=" Q"
^XMB(3.9,111,2,1299,0)="""RTN"",""PSODIR1"",98,0)"
^XMB(3.9,111,2,1300,0)="REFILL(PSODIR) ;"
^XMB(3.9,111,2,1301,0)="""RTN"",""PSODIR1"",99,0)"
^XMB(3.9,111,2,1302,0)=" I $G(OR0) G REFOR"
^XMB(3.9,111,2,1303,0)="""RTN"",""PSODIR1"",100,0)"
^XMB(3.9,111,2,1304,0)=" S PSODIR(""CS"")=0 K DIR,DIC,PSOX"
^XMB(3.9,111,2,1305,0)="""RTN"",""PSODIR1"",101,0)"
^XMB(3.9,111,2,1306,0)=" F DEA=1:1 Q:$E(PSODRUG(""DEA""),DEA)=""""  I $E(+PSODRUG(""DEA""),DEA)>1,$E(+PSODRUG(""DEA""),DEA)<6 S $P(PSODIR(""CS""),""^"")=1 S:$E(+PSODRUG(""DEA""),DEA)=2 $P(PSODIR(""CS""),""^"",2)=1"
^XMB(3.9,111,2,1307,0)="""RTN"",""PSODIR1"",102,0)"
^XMB(3.9,111,2,1308,0)=" I PSODIR(""CS"") D"
^XMB(3.9,111,2,1309,0)="""RTN"",""PSODIR1"",103,0)"
^XMB(3.9,111,2,1310,0)=" .S PSOX=5,PSOX1=$S($P($G(PSODIR(""PTST NODE"")),""^"",4)>PSOX:PSOX,1:$P($G(PSODIR(""PTST NODE"")),""^"",4)),PSOX=$S(PSOX1=5:PSOX,1:PSOX1)"
^XMB(3.9,111,2,1311,0)="""RTN"",""PSODIR1"",104,0)"
^XMB(3.9,111,2,1312,0)=" .S PSOX=$S('PSOX:0,PSODIR(""DAYS SUPPLY"")=90:1,1:PSOX),PSDY=PSODIR(""DAYS SUPPLY""),PSDY1=$S(PSDY<60:5,PSDY'<60&(PSDY'>89):2,PSDY=90:1,1:0) S PSOX=$S(PSOX'>PSDY1:PSOX,1:PSDY1)"
^XMB(3.9,111,2,1313,0)="""RTN"",""PSODIR1"",105,0)"
^XMB(3.9,111,2,1314,0)=" E  D"
^XMB(3.9,111,2,1315,0)="""RTN"",""PSODIR1"",106,0)"
^XMB(3.9,111,2,1316,0)=" .S PSOX=11,PSOX1=$S($P($G(PSODIR(""PTST NODE"")),""^"",4)>PSOX:PSOX,1:$P($G(PSODIR(""PTST NODE"")),""^"",4)),PSOX=$S(PSOX1=11:PSOX,1:PSOX1)"
^XMB(3.9,111,2,1317,0)="""RTN"",""PSODIR1"",107,0)"
^XMB(3.9,111,2,1318,0)=" .S PSDY=PSODIR(""DAYS SUPPLY""),PSDY1=$S(PSDY<60:11,PSDY'<60&(PSDY'>89):5,PSDY=90:3,1:0) S PSOX=$S(PSOX'>PSDY1:PSOX,1:PSDY1)"
^XMB(3.9,111,2,1319,0)="""RTN"",""PSODIR1"",108,0)"
^XMB(3.9,111,2,1320,0)=" I '$D(CLOZPAT) I PSODRUG(""DEA"")[""A""&(PSODRUG(""DEA"")'[""B"")!(PSODRUG(""DEA"")[""F"") D  G REFILLX"
^XMB(3.9,111,2,1321,0)="""RTN"",""PSODIR1"",109,0)"
^XMB(3.9,111,2,1322,0)=" .I PSODRUG(""DEA"")[""A""&(PSODRUG(""DEA"")'[""B"")!'$O(^PSRX(+$G(PSODIR(""IRXN"")),1,0))!('$G(PSOLOKED)) D  Q"
^XMB(3.9,111,2,1323,0)="""RTN"",""PSODIR1"",110,0)"
^XMB(3.9,111,2,1324,0)=" ..S VALMSG=""No refills allowed on ""_$S(PSODRUG(""DEA"")[""F"":""this drug."",1:""Narcotics."") W !,VALMSG,!"
^XMB(3.9,111,2,1325,0)="""RTN"",""PSODIR1"",111,0)"
^XMB(3.9,111,2,1326,0)=" ..S:$D(PSODIR(""FIELD"")) PSODIR(""FIELD"")=0 S PSODIR(""# OF REFILLS"")=0"
^XMB(3.9,111,2,1327,0)="""RTN"",""PSODIR1"",112,0)"
^XMB(3.9,111,2,1328,0)=" ..Q"
^XMB(3.9,111,2,1329,0)="""RTN"",""PSODIR1"",113,0)"
^XMB(3.9,111,2,1330,0)=" .;reset refills to the # given"
^XMB(3.9,111,2,1331,0)="""RTN"",""PSODIR1"",114,0)"
^XMB(3.9,111,2,1332,0)=" .D RFRSET^PSODIR2"
^XMB(3.9,111,2,1333,0)="""RTN"",""PSODIR1"",115,0)"
^XMB(3.9,111,2,1334,0)=" .Q"
^XMB(3.9,111,2,1335,0)="""RTN"",""PSODIR1"",116,0)"
^XMB(3.9,111,2,1336,0)=" I $P($G(PSODIR(""CS"")),""^"",2)=1 W !,""No refills allowed on Schedule 2 drugs..."",! S:$D(PSODIR(""FIELD"")) PSODIR(""FIELD"")=0 S PSODIR(""# OF REFILLS"")=0 G REFILLX"
^XMB(3.9,111,2,1337,0)="""RTN"",""PSODIR1"",117,0)"
^XMB(3.9,111,2,1338,0)=" I $D(CLOZPAT) S PSOX=$S($G(CLOZPAT)=2&(PSODIR(""DAYS SUPPLY"")=14):1,$G(CLOZPAT)=2&(PSODIR(""DAYS SUPPLY"")=7):3,$G(CLOZPAT)=1&(PSODIR(""DAYS SUPPLY"")=7):1,1:0)"
^XMB(3.9,111,2,1339,0)="""RTN"",""PSODIR1"",118,0)"
^XMB(3.9,111,2,1340,0)=" S DIR(0)=""N^""_$S($G(RFTT):RFTT,1:0)_"":""_PSOX,DIR(""A"")=""# OF REFILLS"""
^XMB(3.9,111,2,1341,0)="""RTN"",""PSODIR1"",119,0)"
^XMB(3.9,111,2,1342,0)=" S DIR(""B"")=$S($G(COPY):PSODIR(""# OF REFILLS""),$G(PSODIR(""N# REF""))]"""":PSODIR(""N# REF""),$G(PSODIR(""# OF REFILLS""))]"""":PSODIR(""# OF REFILLS""),$G(PSOX1)]""""&(PSOX>PSOX1):PSOX1,1:PSOX)"
^XMB(3.9,111,2,1343,0)="""RTN"",""PSODIR1"",120,0)"
^XMB(3.9,111,2,1344,0)=" S DIR(""?"")=""Enter a whole number.  The maximum is set by the DAYS SUPPLY field."""
^XMB(3.9,111,2,1345,0)="""RTN"",""PSODIR1"",121,0)"
^XMB(3.9,111,2,1346,0)=" D DIR G:PSODIR(""DFLG"")!PSODIR(""FIELD"") REFILLX"
^XMB(3.9,111,2,1347,0)="""RTN"",""PSODIR1"",122,0)"
^XMB(3.9,111,2,1348,0)=" S (PSODIR(""N# REF""),PSODIR(""# OF REFILLS""))=Y"
^XMB(3.9,111,2,1349,0)="""RTN"",""PSODIR1"",123,0)"
^XMB(3.9,111,2,1350,0)="REFILLX S:$G(PSODIR(""# OF REFILLS""))']"""" PSODIR(""# OF REFILLS"")=$S($G(PSODIR(""N# REF""))]"""":PSODIR(""N# REF""),$G(PSOX1)]""""&($G(PSOX)>PSOX1):PSOX1,1:PSOX)"
^XMB(3.9,111,2,1351,0)="""RTN"",""PSODIR1"",124,0)"
^XMB(3.9,111,2,1352,0)=" K X,Y,PSOX,PSOX1,PSDY,PSDY1,DEA,PSOCS"
^XMB(3.9,111,2,1353,0)="""RTN"",""PSODIR1"",125,0)"
^XMB(3.9,111,2,1354,0)=" Q"
^XMB(3.9,111,2,1355,0)="""RTN"",""PSODIR1"",126,0)"
^XMB(3.9,111,2,1356,0)=" ;OERR CALL"
^XMB(3.9,111,2,1357,0)="""RTN"",""PSODIR1"",127,0)"
^XMB(3.9,111,2,1358,0)="REFOR ;"
^XMB(3.9,111,2,1359,0)="""RTN"",""PSODIR1"",128,0)"
^XMB(3.9,111,2,1360,0)=" D REFOR^PSODIR3"
^XMB(3.9,111,2,1361,0)="""RTN"",""PSODIR1"",129,0)"
^XMB(3.9,111,2,1362,0)=" G REFILLX"
^XMB(3.9,111,2,1363,0)="""RTN"",""PSODIR1"",130,0)"
^XMB(3.9,111,2,1364,0)=" Q"
^XMB(3.9,111,2,1365,0)="""RTN"",""PSODIR1"",131,0)"
^XMB(3.9,111,2,1366,0)="DIR ;"
^XMB(3.9,111,2,1367,0)="""RTN"",""PSODIR1"",132,0)"
^XMB(3.9,111,2,1368,0)=" S (PSODIR(""FIELD""),PSODIR(""DFLG""))=0"
^XMB(3.9,111,2,1369,0)="""RTN"",""PSODIR1"",133,0)"
^XMB(3.9,111,2,1370,0)=" G:$G(DIR(0))']"""" DIRX"
^XMB(3.9,111,2,1371,0)="""RTN"",""PSODIR1"",134,0)"
^XMB(3.9,111,2,1372,0)=" D ^DIR K DIR,DIE,DIC,DA"
^XMB(3.9,111,2,1373,0)="""RTN"",""PSODIR1"",135,0)"
^XMB(3.9,111,2,1374,0)=" I $D(DUOUT)!($D(DTOUT))!($D(DIROUT)),$L($G(X))'>1!(Y="""") S PSODIR(""DFLG"")=1 G DIRX"
^XMB(3.9,111,2,1375,0)="""RTN"",""PSODIR1"",136,0)"
^XMB(3.9,111,2,1376,0)=" I $D(DIRUT)!($D(DIROUT)),$G(SPEED) S PSODIR(""DFLG"")=1 G DIRX"
^XMB(3.9,111,2,1377,0)="""RTN"",""PSODIR1"",137,0)"
^XMB(3.9,111,2,1378,0)=" I X[U,$L(X)>1 D JUMP"
^XMB(3.9,111,2,1379,0)="""RTN"",""PSODIR1"",138,0)"
^XMB(3.9,111,2,1380,0)="DIRX K DIRUT,DTOUT,DUOUT,DIROUT"
^XMB(3.9,111,2,1381,0)="""RTN"",""PSODIR1"",139,0)"
^XMB(3.9,111,2,1382,0)=" Q"
^XMB(3.9,111,2,1383,0)="""RTN"",""PSODIR1"",140,0)"
^XMB(3.9,111,2,1384,0)="JUMP ;"
^XMB(3.9,111,2,1385,0)="""RTN"",""PSODIR1"",141,0)"
^XMB(3.9,111,2,1386,0)=" I $G(PSOEDIT)!($G(OR0)) S PSODIR(""DFLG"")=1 Q"
^XMB(3.9,111,2,1387,0)="""RTN"",""PSODIR1"",142,0)"
^XMB(3.9,111,2,1388,0)=" S X=$P(X,""^"",2),DIC=""^DD(52,"",DIC(0)=""QM"" D ^DIC K DIC"
^XMB(3.9,111,2,1389,0)="""RTN"",""PSODIR1"",143,0)"
^XMB(3.9,111,2,1390,0)=" I Y=-1 S PSODIR(""FIELD"")=PSODIR(""FLD"") G JUMPX"
^XMB(3.9,111,2,1391,0)="""RTN"",""PSODIR1"",144,0)"
^XMB(3.9,111,2,1392,0)=" I $G(PSONEW1)=0 D JUMP^PSONEW1 G JUMPX"
^XMB(3.9,111,2,1393,0)="""RTN"",""PSODIR1"",145,0)"
^XMB(3.9,111,2,1394,0)=" I $G(PSOREF1)=0 D JUMP^PSOREF1 G JUMPX"
^XMB(3.9,111,2,1395,0)="""RTN"",""PSODIR1"",146,0)"
^XMB(3.9,111,2,1396,0)=" I $G(PSONEW3)=0 D JUMP^PSONEW3 G JUMPX"
^XMB(3.9,111,2,1397,0)="""RTN"",""PSODIR1"",147,0)"
^XMB(3.9,111,2,1398,0)=" I $G(PSORENW3)=0 D JUMP^PSORENW3 G JUMPX"
^XMB(3.9,111,2,1399,0)="""RTN"",""PSODIR1"",148,0)"
^XMB(3.9,111,2,1400,0)="JUMPX S X=""^""_X"
^XMB(3.9,111,2,1401,0)="""RTN"",""PSODIR1"",149,0)"
^XMB(3.9,111,2,1402,0)=" Q"
^XMB(3.9,111,2,1403,0)="""RTN"",""PSODIR1"",150,0)"
^XMB(3.9,111,2,1404,0)="SIGOK ;review and decide on oerr sig"
^XMB(3.9,111,2,1405,0)="""RTN"",""PSODIR1"",151,0)"
^XMB(3.9,111,2,1406,0)=" I '$O(SIG(0)) S SIGOK=0 Q"
^XMB(3.9,111,2,1407,0)="""RTN"",""PSODIR1"",152,0)"
^XMB(3.9,111,2,1408,0)=" K SIGOK W !,""SIG: """
^XMB(3.9,111,2,1409,0)="""RTN"",""PSODIR1"",153,0)"
^XMB(3.9,111,2,1410,0)=" F SIG=0:0 S SIG=$O(SIG(SIG)) W SIG(SIG)_"" "",!?5 Q:'$O(SIG(SIG))"
^XMB(3.9,111,2,1411,0)="""RTN"",""PSODIR1"",154,0)"
^XMB(3.9,111,2,1412,0)=" K DIR,DIRUT,DUOUT,DTOUT S DIR(""B"")=""YES"",DIR(0)=""Y"",DIR(""A"")=""Is this SIG correct"" D ^DIR K DIR I $D(DIRUT) S PSODIR(""DFLG"")=1 K DIRUT,DUOUT,DTOUT Q"
^XMB(3.9,111,2,1413,0)="""RTN"",""PSODIR1"",155,0)"
^XMB(3.9,111,2,1414,0)=" S SIGOK=Y I Y K PSODIR(""SIG"")"
^XMB(3.9,111,2,1415,0)="""RTN"",""PSODIR1"",156,0)"
^XMB(3.9,111,2,1416,0)=" Q"
^XMB(3.9,111,2,1417,0)="""RTN"",""PSODIR1"",157,0)"
^XMB(3.9,111,2,1418,0)="PSTPB ;"
^XMB(3.9,111,2,1419,0)="""RTN"",""PSODIR1"",158,0)"
^XMB(3.9,111,2,1420,0)=" W !,""New orders entered through this option must have a Patient Status of 'NON-VA'!"",!"
^XMB(3.9,111,2,1421,0)="""RTN"",""PSODIR1"",159,0)"
^XMB(3.9,111,2,1422,0)=" Q"
^XMB(3.9,111,2,1423,0)="""RTN"",""PSODIR3"")"
^XMB(3.9,111,2,1424,0)="0^5^B26563927^B24224437"
^XMB(3.9,111,2,1425,0)="""RTN"",""PSODIR3"",1,0)"
^XMB(3.9,111,2,1426,0)="PSODIR3 ;ISC-BIRM/SAB - rx order entry contd ;09/27/96"
^XMB(3.9,111,2,1427,0)="""RTN"",""PSODIR3"",2,0)"
^XMB(3.9,111,2,1428,0)=" ;;7.0;OUTPATIENT PHARMACY;**3,46,184,222**;DEC 1997;Build 12"
^XMB(3.9,111,2,1429,0)="""RTN"",""PSODIR3"",3,0)"
^XMB(3.9,111,2,1430,0)=" ;"
^XMB(3.9,111,2,1431,0)="""RTN"",""PSODIR3"",4,0)"
^XMB(3.9,111,2,1432,0)="EXP(PSODIR) ;"
^XMB(3.9,111,2,1433,0)="""RTN"",""PSODIR3"",5,0)"
^XMB(3.9,111,2,1434,0)=" K DIC,DIR"
^XMB(3.9,111,2,1435,0)="""RTN"",""PSODIR3"",6,0)"
^XMB(3.9,111,2,1436,0)=" I $G(PSODRUG(""EXPIRATION DATE""))]"""" S Y=PSODRUG(""EXPIRATION DATE"") X ^DD(""DD"") S PSORX(""EXPIRATION DATE"")=Y"
^XMB(3.9,111,2,1437,0)="""RTN"",""PSODIR3"",7,0)"
^XMB(3.9,111,2,1438,0)=" S DIR(""A"")=""EXPIRES"",DIR(""B"")=$S($G(PSORX(""EXPIRATION DATE""))]"""":PSORX(""EXPIRATION DATE""),1:""T+6M"")"
^XMB(3.9,111,2,1439,0)="""RTN"",""PSODIR3"",8,0)"
^XMB(3.9,111,2,1440,0)=" S DIR(0)=""D^NOW::EX"",DIR(""?"")=""Both the month and date are required."" D ^DIR"
^XMB(3.9,111,2,1441,0)="""RTN"",""PSODIR3"",9,0)"
^XMB(3.9,111,2,1442,0)=" G:PSODIR(""DFLG"")!PSODIR(""FIELD"") EXPX"
^XMB(3.9,111,2,1443,0)="""RTN"",""PSODIR3"",10,0)"
^XMB(3.9,111,2,1444,0)=" S PSODIR(""EXPIRATION DATE"")=Y"
^XMB(3.9,111,2,1445,0)="""RTN"",""PSODIR3"",11,0)"
^XMB(3.9,111,2,1446,0)="EXPX K X,Y"
^XMB(3.9,111,2,1447,0)="""RTN"",""PSODIR3"",12,0)"
^XMB(3.9,111,2,1448,0)=" Q"
^XMB(3.9,111,2,1449,0)="""RTN"",""PSODIR3"",13,0)"
^XMB(3.9,111,2,1450,0)=" ;"
^XMB(3.9,111,2,1451,0)="""RTN"",""PSODIR3"",14,0)"
^XMB(3.9,111,2,1452,0)="MW(PSODIR) ;"
^XMB(3.9,111,2,1453,0)="""RTN"",""PSODIR3"",15,0)"
^XMB(3.9,111,2,1454,0)=" K DIR,DIC"
^XMB(3.9,111,2,1455,0)="""RTN"",""PSODIR3"",16,0)"
^XMB(3.9,111,2,1456,0)=" S DIR(0)=""52,11"""
^XMB(3.9,111,2,1457,0)="""RTN"",""PSODIR3"",17,0)"
^XMB(3.9,111,2,1458,0)=" S DIR(""B"")=$S($G(PSORX(""MAIL/WINDOW""))]"""":PSORX(""MAIL/WINDOW""),1:""WINDOW"")"
^XMB(3.9,111,2,1459,0)="""RTN"",""PSODIR3"",18,0)"
^XMB(3.9,111,2,1460,0)=" D DIR G:PSODIR(""DFLG"")!PSODIR(""FIELD"") MWX"
^XMB(3.9,111,2,1461,0)="""RTN"",""PSODIR3"",19,0)"
^XMB(3.9,111,2,1462,0)=" I $G(Y(0))']"""" S PSODIR(""DFLG"")=1 G MWX"
^XMB(3.9,111,2,1463,0)="""RTN"",""PSODIR3"",20,0)"
^XMB(3.9,111,2,1464,0)=" S PSODIR(""MAIL/WINDOW"")=Y,PSORX(""MAIL/WINDOW"")=Y(0)"
^XMB(3.9,111,2,1465,0)="""RTN"",""PSODIR3"",21,0)"
^XMB(3.9,111,2,1466,0)=" I $G(PSORX(""EDIT""))]"""",PSODIR(""MAIL/WINDOW"")'=""W"" K PSODIR(""METHOD OF PICK-UP"")"
^XMB(3.9,111,2,1467,0)="""RTN"",""PSODIR3"",22,0)"
^XMB(3.9,111,2,1468,0)="MW1 G:PSODIR(""MAIL/WINDOW"")'=""W""!('$P($G(PSOPAR),""^"",12)) MWX"
^XMB(3.9,111,2,1469,0)="""RTN"",""PSODIR3"",23,0)"
^XMB(3.9,111,2,1470,0)=" S DIR(0)=""52,35O"""
^XMB(3.9,111,2,1471,0)="""RTN"",""PSODIR3"",24,0)"
^XMB(3.9,111,2,1472,0)=" S:$G(PSORX(""METHOD OF PICK-UP""))]"""" DIR(""B"")=PSORX(""METHOD OF PICK-UP"")"
^XMB(3.9,111,2,1473,0)="""RTN"",""PSODIR3"",25,0)"
^XMB(3.9,111,2,1474,0)=" D DIR G:PSODIR(""DFLG"") MWX"
^XMB(3.9,111,2,1475,0)="""RTN"",""PSODIR3"",26,0)"
^XMB(3.9,111,2,1476,0)=" I X[U W !,""Cannot jump to another field .."",! G MW1"
^XMB(3.9,111,2,1477,0)="""RTN"",""PSODIR3"",27,0)"
^XMB(3.9,111,2,1478,0)=" S (PSODIR(""METHOD OF PICK-UP""),PSORX(""METHOD OF PICK-UP""))=Y"
^XMB(3.9,111,2,1479,0)="""RTN"",""PSODIR3"",28,0)"
^XMB(3.9,111,2,1480,0)="MWX K X,Y"
^XMB(3.9,111,2,1481,0)="""RTN"",""PSODIR3"",29,0)"
^XMB(3.9,111,2,1482,0)=" Q"
^XMB(3.9,111,2,1483,0)="""RTN"",""PSODIR3"",30,0)"
^XMB(3.9,111,2,1484,0)=" ;"
^XMB(3.9,111,2,1485,0)="""RTN"",""PSODIR3"",31,0)"
^XMB(3.9,111,2,1486,0)="FILLDT(PSODIR) ;"
^XMB(3.9,111,2,1487,0)="""RTN"",""PSODIR3"",32,0)"
^XMB(3.9,111,2,1488,0)=" K DIR,DIC"
^XMB(3.9,111,2,1489,0)="""RTN"",""PSODIR3"",33,0)"
^XMB(3.9,111,2,1490,0)=" S DIR(""A"")=""FILL DATE"",DIR(""B"")=$S($G(PSORX(""FILL DATE""))]"""":PSORX(""FILL DATE""),1:""TODAY"")"
^XMB(3.9,111,2,1491,0)="""RTN"",""PSODIR3"",34,0)"
^XMB(3.9,111,2,1492,0)=" S DIR(0)=""D^""_$S($G(PSODIR(""ISSUE DATE""))]"""":PSODIR(""ISSUE DATE""),1:DT)_$S($G(DUZ(""AG""))=""I"":"":""_DT_"":EX"",1:""::EX"")"
^XMB(3.9,111,2,1493,0)="""RTN"",""PSODIR3"",35,0)"
^XMB(3.9,111,2,1494,0)=" S DIR(""?"",1)=""The earliest fill date allowed is determined by the ISSUE DATE,"""
^XMB(3.9,111,2,1495,0)="""RTN"",""PSODIR3"",36,0)"
^XMB(3.9,111,2,1496,0)=" S DIR(""?"",2)=""the FILL DATE cannot be before the ISSUE DATE."""
^XMB(3.9,111,2,1497,0)="""RTN"",""PSODIR3"",37,0)"
^XMB(3.9,111,2,1498,0)=" S DIR(""?"")=""Both the month and date are required."""
^XMB(3.9,111,2,1499,0)="""RTN"",""PSODIR3"",38,0)"
^XMB(3.9,111,2,1500,0)=" D DIR G:PSODIR(""DFLG"")!PSODIR(""FIELD"") FILLDTX"
^XMB(3.9,111,2,1501,0)="""RTN"",""PSODIR3"",39,0)"
^XMB(3.9,111,2,1502,0)=" S PSODIR(""FILL DATE"")=Y"
^XMB(3.9,111,2,1503,0)="""RTN"",""PSODIR3"",40,0)"
^XMB(3.9,111,2,1504,0)=" X ^DD(""DD"") S PSORX(""FILL DATE"")=Y"
^XMB(3.9,111,2,1505,0)="""RTN"",""PSODIR3"",41,0)"
^XMB(3.9,111,2,1506,0)="FILLDTX K X,Y"
^XMB(3.9,111,2,1507,0)="""RTN"",""PSODIR3"",42,0)"
^XMB(3.9,111,2,1508,0)=" Q"
^XMB(3.9,111,2,1509,0)="""RTN"",""PSODIR3"",43,0)"
^XMB(3.9,111,2,1510,0)=" ;"
^XMB(3.9,111,2,1511,0)="""RTN"",""PSODIR3"",44,0)"
^XMB(3.9,111,2,1512,0)="CLERK(PSODIR) ;"
^XMB(3.9,111,2,1513,0)="""RTN"",""PSODIR3"",45,0)"
^XMB(3.9,111,2,1514,0)=" I $G(DUZ(""AG""))'=""I"",$G(DUZ) S PSODIR(""CLERK CODE"")=DUZ,PSORX(""CLERK CODE"")=$P($G(^VA(200,DUZ,0)),""^"") G CLERKX"
^XMB(3.9,111,2,1515,0)="""RTN"",""PSODIR3"",46,0)"
^XMB(3.9,111,2,1516,0)=" K DIR,DIC"
^XMB(3.9,111,2,1517,0)="""RTN"",""PSODIR3"",47,0)"
^XMB(3.9,111,2,1518,0)=" S DIR(""A"")=""CLERK"",DIR(""B"")=$S($G(PSORX(""CLERK CODE""))]"""":PSORX(""CLERK CODE""),1:$P($G(^VA(200,DUZ,0)),""^"",2)),DIR(0)=""52,16"""
^XMB(3.9,111,2,1519,0)="""RTN"",""PSODIR3"",48,0)"
^XMB(3.9,111,2,1520,0)=" D DIR G:PSODIR(""DFLG"")!PSODIR(""FIELD"") CLERKX"
^XMB(3.9,111,2,1521,0)="""RTN"",""PSODIR3"",49,0)"
^XMB(3.9,111,2,1522,0)=" S PSODIR(""CLERK CODE"")=+Y,PSORX(""CLERK CODE"")=$P(Y,""^"")"
^XMB(3.9,111,2,1523,0)="""RTN"",""PSODIR3"",50,0)"
^XMB(3.9,111,2,1524,0)="CLERKX Q"
^XMB(3.9,111,2,1525,0)="""RTN"",""PSODIR3"",51,0)"
^XMB(3.9,111,2,1526,0)=" ;"
^XMB(3.9,111,2,1527,0)="""RTN"",""PSODIR3"",52,0)"
^XMB(3.9,111,2,1528,0)="DIR ;"
^XMB(3.9,111,2,1529,0)="""RTN"",""PSODIR3"",53,0)"
^XMB(3.9,111,2,1530,0)=" S PSODIR(""FIELD"")=0"
^XMB(3.9,111,2,1531,0)="""RTN"",""PSODIR3"",54,0)"
^XMB(3.9,111,2,1532,0)=" G:$G(DIR(0))']"""" DIRX"
^XMB(3.9,111,2,1533,0)="""RTN"",""PSODIR3"",55,0)"
^XMB(3.9,111,2,1534,0)=" D ^DIR K DIR,DIE,DIC,DA"
^XMB(3.9,111,2,1535,0)="""RTN"",""PSODIR3"",56,0)"
^XMB(3.9,111,2,1536,0)=" I $D(DUOUT)!($D(DTOUT))!($D(DIROUT)),$L($G(X))'>1!(Y="""") S PSODIR(""DFLG"")=1 G DIRX"
^XMB(3.9,111,2,1537,0)="""RTN"",""PSODIR3"",57,0)"
^XMB(3.9,111,2,1538,0)=" I X[U,$L(X)>1 D JUMP"
^XMB(3.9,111,2,1539,0)="""RTN"",""PSODIR3"",58,0)"
^XMB(3.9,111,2,1540,0)="DIRX K DIRUT,DTOUT,DUOUT,DIROUT,PSOX"
^XMB(3.9,111,2,1541,0)="""RTN"",""PSODIR3"",59,0)"
^XMB(3.9,111,2,1542,0)=" Q"
^XMB(3.9,111,2,1543,0)="""RTN"",""PSODIR3"",60,0)"
^XMB(3.9,111,2,1544,0)=" ;"
^XMB(3.9,111,2,1545,0)="""RTN"",""PSODIR3"",61,0)"
^XMB(3.9,111,2,1546,0)="JUMP ;"
^XMB(3.9,111,2,1547,0)="""RTN"",""PSODIR3"",62,0)"
^XMB(3.9,111,2,1548,0)=" I $G(PSOEDIT)!($G(OR0)) S PSODIR(""DFLG"")=1 Q"
^XMB(3.9,111,2,1549,0)="""RTN"",""PSODIR3"",63,0)"
^XMB(3.9,111,2,1550,0)=" S X=$P(X,""^"",2),DIC=""^DD(52,"",DIC(0)=""QM"" D ^DIC K DIC"
^XMB(3.9,111,2,1551,0)="""RTN"",""PSODIR3"",64,0)"
^XMB(3.9,111,2,1552,0)=" I Y=-1 S PSODIR(""FIELD"")=PSODIR(""FLD"") G JUMPX"
^XMB(3.9,111,2,1553,0)="""RTN"",""PSODIR3"",65,0)"
^XMB(3.9,111,2,1554,0)=" I $G(PSONEW1)=0 D JUMP^PSONEW1 G JUMPX"
^XMB(3.9,111,2,1555,0)="""RTN"",""PSODIR3"",66,0)"
^XMB(3.9,111,2,1556,0)=" I $G(PSONEW3)=0 D JUMP^PSONEW3 G JUMPX"
^XMB(3.9,111,2,1557,0)="""RTN"",""PSODIR3"",67,0)"
^XMB(3.9,111,2,1558,0)=" I $G(PSORENW3)=0 D JUMP^PSORENW3 G JUMPX"
^XMB(3.9,111,2,1559,0)="""RTN"",""PSODIR3"",68,0)"
^XMB(3.9,111,2,1560,0)="JUMPX S X=""^""_X"
^XMB(3.9,111,2,1561,0)="""RTN"",""PSODIR3"",69,0)"
^XMB(3.9,111,2,1562,0)=" Q"
^XMB(3.9,111,2,1563,0)="""RTN"",""PSODIR3"",70,0)"
^XMB(3.9,111,2,1564,0)=" ;Continued from PSODIR1, Tag REFOR, Added PSOCS set and changed G REFILLX references to a QUIT"
^XMB(3.9,111,2,1565,0)="""RTN"",""PSODIR3"",71,0)"
^XMB(3.9,111,2,1566,0)="REFOR ;"
^XMB(3.9,111,2,1567,0)="""RTN"",""PSODIR3"",72,0)"
^XMB(3.9,111,2,1568,0)=" F DEA=1:1 Q:$E($G(PSODRUG(""DEA"")),DEA)=""""  I $E(+PSODRUG(""DEA""),DEA)>1,$E(+PSODRUG(""DEA""),DEA)<6 S $P(PSOCS,""^"")=1 S:$E(+PSODRUG(""DEA""),DEA)=2 $P(PSOCS,""^"",2)=1"
^XMB(3.9,111,2,1569,0)="""RTN"",""PSODIR3"",73,0)"
^XMB(3.9,111,2,1570,0)=" I $G(PSOCS) D"
^XMB(3.9,111,2,1571,0)="""RTN"",""PSODIR3"",74,0)"
^XMB(3.9,111,2,1572,0)=" .S (PSOX,PSOMAX)=$S($G(CLOZPAT)=2&(PSODIR(""DAYS SUPPLY"")=14):1,$G(CLOZPAT)=2&(PSODIR(""DAYS SUPPLY"")=7):3,$G(CLOZPAT)=1&(PSODIR(""DAYS SUPPLY"")=7):1,$D(CLOZPAT):0,1:5)"
^XMB(3.9,111,2,1573,0)="""RTN"",""PSODIR3"",75,0)"
^XMB(3.9,111,2,1574,0)=" .S PSOX=$S('PSOX:0,PSODIR(""DAYS SUPPLY"")=90:1,1:PSOX),PSDY=PSODIR(""DAYS SUPPLY""),PSDY1=$S(PSDY<60:5,PSDY'<60&(PSDY'>89):2,PSDY=90:1,1:0) S PSOX=$S(PSOX'>PSDY1:PSOX,1:PSDY1)"
^XMB(3.9,111,2,1575,0)="""RTN"",""PSODIR3"",76,0)"
^XMB(3.9,111,2,1576,0)=" E  D"
^XMB(3.9,111,2,1577,0)="""RTN"",""PSODIR3"",77,0)"
^XMB(3.9,111,2,1578,0)=" .S (PSOX,PSOMAX)=$S($G(CLOZPAT)=2&(PSODIR(""DAYS SUPPLY"")=14):1,$G(CLOZPAT)=2&(PSODIR(""DAYS SUPPLY"")=7):3,$G(CLOZPAT)=1&(PSODIR(""DAYS SUPPLY"")=7):1,$D(CLOZPAT):0,1:11)"
^XMB(3.9,111,2,1579,0)="""RTN"",""PSODIR3"",78,0)"
^XMB(3.9,111,2,1580,0)=" .S PSDY=PSODIR(""DAYS SUPPLY""),PSDY1=$S(PSDY<60:11,PSDY'<60&(PSDY'>89):5,PSDY=90:3,1:0) S PSOX=$S(PSOX'>PSDY1:PSOX,1:PSDY1)"
^XMB(3.9,111,2,1581,0)="""RTN"",""PSODIR3"",79,0)"
^XMB(3.9,111,2,1582,0)=" K PSOELSE I '$D(CLOZPAT) I $G(PSODRUG(""DEA""))[""A""&($G(PSODRUG(""DEA""))'[""B"")!($G(PSODRUG(""DEA""))[""F"") D  Q"
^XMB(3.9,111,2,1583,0)="""RTN"",""PSODIR3"",80,0)"
^XMB(3.9,111,2,1584,0)=" .S VALMSG=""No refills allowed on ""_$S($G(PSODRUG(""DEA""))[""F"":""this drug."",1:""Narcotics .."")"
^XMB(3.9,111,2,1585,0)="""RTN"",""PSODIR3"",81,0)"
^XMB(3.9,111,2,1586,0)=" .W !,VALMSG,!"
^XMB(3.9,111,2,1587,0)="""RTN"",""PSODIR3"",82,0)"
^XMB(3.9,111,2,1588,0)=" .S:$D(PSODIR(""FIELD"")) PSODIR(""FIELD"")=0 S PSODIR(""# OF REFILLS"")=0"
^XMB(3.9,111,2,1589,0)="""RTN"",""PSODIR3"",83,0)"
^XMB(3.9,111,2,1590,0)=" I $D(CLOZPAT) D"
^XMB(3.9,111,2,1591,0)="""RTN"",""PSODIR3"",84,0)"
^XMB(3.9,111,2,1592,0)=" .S PSOX=$S($G(CLOZPAT)=2&(PSODIR(""DAYS SUPPLY"")=14):1,$G(CLOZPAT)=2&(PSODIR(""DAYS SUPPLY"")=7):3,$G(CLOZPAT)=1&(PSODIR(""DAYS SUPPLY"")=7):1,1:0)"
^XMB(3.9,111,2,1593,0)="""RTN"",""PSODIR3"",85,0)"
^XMB(3.9,111,2,1594,0)=" .S (PSODIR(""# OF REFILLS""),PSODIR(""N# REF""))=PSOX"
^XMB(3.9,111,2,1595,0)="""RTN"",""PSODIR3"",86,0)"
^XMB(3.9,111,2,1596,0)=" S DIR(0)=""N^0:""_PSOX,DIR(""A"")=""# OF REFILLS"""
^XMB(3.9,111,2,1597,0)="""RTN"",""PSODIR3"",87,0)"
^XMB(3.9,111,2,1598,0)=" S DIR(""B"")=$S($G(POERR)&($G(PSODIR(""# OF REFILLS""))):PSODIR(""# OF REFILLS""),$G(PSODIR(""N# REF""))]"""":PSODIR(""N# REF""),$G(PSODIR(""# OF REFILLS""))]"""":PSODIR(""# OF REFILLS""),$G(PSOX1)]""""&(PSOX>PSOX1):PSOX1,1:PSOX)"
^XMB(3.9,111,2,1599,0)="""RTN"",""PSODIR3"",88,0)"
^XMB(3.9,111,2,1600,0)=" S DIR(""?"")=""Enter a whole number.  The maximum is set by the DAYS SUPPLY field."""
^XMB(3.9,111,2,1601,0)="""RTN"",""PSODIR3"",89,0)"
^XMB(3.9,111,2,1602,0)=" D DIR Q:PSODIR(""DFLG"")!PSODIR(""FIELD"")"
^XMB(3.9,111,2,1603,0)="""RTN"",""PSODIR3"",90,0)"
^XMB(3.9,111,2,1604,0)=" S (PSODIR(""N# REF""),PSODIR(""# OF REFILLS""))=Y"
^XMB(3.9,111,2,1605,0)="""RTN"",""PSODIR3"",91,0)"
^XMB(3.9,111,2,1606,0)=" Q"
^XMB(3.9,111,2,1607,0)="""RTN"",""PSODRDUP"")"
^XMB(3.9,111,2,1608,0)="0^6^B44003984^B49880475"
^XMB(3.9,111,2,1609,0)="""RTN"",""PSODRDUP"",1,0)"
^XMB(3.9,111,2,1610,0)="PSODRDUP ;BIR/SAB - Dup drug class checker ;11/1/04 3:38pm"
^XMB(3.9,111,2,1611,0)="""RTN"",""PSODRDUP"",2,0)"
^XMB(3.9,111,2,1612,0)=" ;;7.0;OUTPATIENT PHARMACY;**11,23,27,32,39,56,130,132,192,207,222**;DEC 1997;Build 12"
^XMB(3.9,111,2,1613,0)="""RTN"",""PSODRDUP"",3,0)"
^XMB(3.9,111,2,1614,0)=" ;"
^XMB(3.9,111,2,1615,0)="""RTN"",""PSODRDUP"",4,0)"
^XMB(3.9,111,2,1616,0)=" ;External references PSOL and PSOUL^PSSLOCK supported by DBIA 2789"
^XMB(3.9,111,2,1617,0)="""RTN"",""PSODRDUP"",5,0)"
^XMB(3.9,111,2,1618,0)=" ;External references to ^ORRDI1 supported by DBIA 4659"
^XMB(3.9,111,2,1619,0)="""RTN"",""PSODRDUP"",6,0)"
^XMB(3.9,111,2,1620,0)=" S $P(PSONULN,""-"",79)=""-"",(STA,DNM)="""" K CLS"
^XMB(3.9,111,2,1621,0)="""RTN"",""PSODRDUP"",7,0)"
^XMB(3.9,111,2,1622,0)=" F  S STA=$O(PSOSD(STA)) Q:STA=""""  F  S DNM=$O(PSOSD(STA,DNM)) Q:DNM=""""!$G(PSORX(""DFLG""))  I $P(PSOSD(STA,DNM),""^"")'=$G(PSORENW(""OIRXN"")) D  Q:$G(PSORX(""DFLG""))"
^XMB(3.9,111,2,1623,0)="""RTN"",""PSODRDUP"",8,0)"
^XMB(3.9,111,2,1624,0)=" .I STA=""PENDING"" D ^PSODRDU1 Q"
^XMB(3.9,111,2,1625,0)="""RTN"",""PSODRDUP"",9,0)"
^XMB(3.9,111,2,1626,0)=" .I STA=""ZNONVA"" D NVA^PSODRDU1 Q"
^XMB(3.9,111,2,1627,0)="""RTN"",""PSODRDUP"",10,0)"
^XMB(3.9,111,2,1628,0)=" .D:PSODRUG(""NAME"")=$P(DNM,""^"")&('$D(^XUSEC(""PSORPH"",DUZ)))  Q:$G(PSORX(""DFLG""))"
^XMB(3.9,111,2,1629,0)="""RTN"",""PSODRDUP"",11,0)"
^XMB(3.9,111,2,1630,0)=" ..I $P($G(PSOPAR),""^"",16) D DUP Q:$G(PSORX(""DFLG""))"
^XMB(3.9,111,2,1631,0)="""RTN"",""PSODRDUP"",12,0)"
^XMB(3.9,111,2,1632,0)=" ..I $P(PSOPAR,""^"",2),'$P($G(PSOPAR),""^"",16) D DUP Q:$G(PSORX(""DFLG""))"
^XMB(3.9,111,2,1633,0)="""RTN"",""PSODRDUP"",13,0)"
^XMB(3.9,111,2,1634,0)=" ..I '$P(PSOPAR,""^"",2),'$P($G(PSOPAR),""^"",16) D DUP Q:$G(PSORX(""DFLG""))"
^XMB(3.9,111,2,1635,0)="""RTN"",""PSODRDUP"",14,0)"
^XMB(3.9,111,2,1636,0)=" .D:PSODRUG(""NAME"")=$P(DNM,""^"")&($D(^XUSEC(""PSORPH"",DUZ))) DUP Q:$G(PSORX(""DFLG""))"
^XMB(3.9,111,2,1637,0)="""RTN"",""PSODRDUP"",15,0)"
^XMB(3.9,111,2,1638,0)=" .I PSODRUG(""VA CLASS"")]"""",$E(PSODRUG(""VA CLASS""),1,4)=$E($P(PSOSD(STA,DNM),""^"",5),1,4),PSODRUG(""NAME"")'=$P(DNM,""^"") D CLS"
^XMB(3.9,111,2,1639,0)="""RTN"",""PSODRDUP"",16,0)"
^XMB(3.9,111,2,1640,0)=" K ^TMP($J,""DD""),^TMP($J,""DC""),^TMP($J,""DI"")"
^XMB(3.9,111,2,1641,0)="""RTN"",""PSODRDUP"",17,0)"
^XMB(3.9,111,2,1642,0)=" I +$G(PSODRUG(""NDF""))'=0 D"
^XMB(3.9,111,2,1643,0)="""RTN"",""PSODRDUP"",18,0)"
^XMB(3.9,111,2,1644,0)=" .Q:$G(PSORX(""DFLG""))"
^XMB(3.9,111,2,1645,0)="""RTN"",""PSODRDUP"",19,0)"
^XMB(3.9,111,2,1646,0)=" .I $T(HAVEHDR^ORRDI1)']"""" Q"
^XMB(3.9,111,2,1647,0)="""RTN"",""PSODRDUP"",20,0)"
^XMB(3.9,111,2,1648,0)=" .I '$$HAVEHDR^ORRDI1 Q"
^XMB(3.9,111,2,1649,0)="""RTN"",""PSODRDUP"",21,0)"
^XMB(3.9,111,2,1650,0)=" .W !,""Now doing remote order checks. Please wait..."""
^XMB(3.9,111,2,1651,0)="""RTN"",""PSODRDUP"",22,0)"
^XMB(3.9,111,2,1652,0)=" .D REMOTE^PSOORRDI(PSODFN,PSODRUG(""IEN""))"
^XMB(3.9,111,2,1653,0)="""RTN"",""PSODRDUP"",23,0)"
^XMB(3.9,111,2,1654,0)=" I $D(^TMP($J,""DD"")) D DUP^PSOORRD2"
^XMB(3.9,111,2,1655,0)="""RTN"",""PSODRDUP"",24,0)"
^XMB(3.9,111,2,1656,0)=" I $D(^TMP($J,""DC"")) D CLS^PSOORRD2"
^XMB(3.9,111,2,1657,0)="""RTN"",""PSODRDUP"",25,0)"
^XMB(3.9,111,2,1658,0)=" K ^TMP($J,""DD""),^TMP($J,""DC""),^TMP($J,""DI"")"
^XMB(3.9,111,2,1659,0)="""RTN"",""PSODRDUP"",26,0)"
^XMB(3.9,111,2,1660,0)="EXIT D ^PSOBUILD K CAN,DA,DIR,DNM,DUPRX0,ISSD,J,LSTFL,MSG,PHYS,PSOCLC,PSONULN,REA,RFLS,RX0,RX2,RXN,RXREC,ST,Y,ZZ,ACT,PSOCLOZ,PSOLR,PSOLDT,PSOCD,SIG"
^XMB(3.9,111,2,1661,0)="""RTN"",""PSODRDUP"",27,0)"
^XMB(3.9,111,2,1662,0)=" Q"
^XMB(3.9,111,2,1663,0)="""RTN"",""PSODRDUP"",28,0)"
^XMB(3.9,111,2,1664,0)="DUP S:$P(PSOSD(STA,DNM),""^"",2)<10!($P(PSOSD(STA,DNM),""^"",2)=16) DUP=1 W !,PSONULN,!,$C(7),""Duplicate Drug ""_$P(DNM,""^"")_"" in Prescription: "",$P(^PSRX(+PSOSD(STA,DNM),0),""^"")"
^XMB(3.9,111,2,1665,0)="""RTN"",""PSODRDUP"",29,0)"
^XMB(3.9,111,2,1666,0)=" S RXREC=+PSOSD(STA,DNM),MSG=""Discontinued During ""_$S('$G(PSONV):""New Prescription Entry"",1:""Verification"")_"" - Duplicate Drug"""
^XMB(3.9,111,2,1667,0)="""RTN"",""PSODRDUP"",30,0)"
^XMB(3.9,111,2,1668,0)="DATA S DUPRX0=^PSRX(RXREC,0),RFLS=$P(DUPRX0,""^"",9),ISSD=$P(^PSRX(RXREC,0),""^"",13),RX0=DUPRX0,RX2=^PSRX(RXREC,2),$P(RX0,""^"",15)=+$G(^PSRX(RXREC,""STA""))"
^XMB(3.9,111,2,1669,0)="""RTN"",""PSODRDUP"",31,0)"
^XMB(3.9,111,2,1670,0)=" S RXRECLOC=$G(RXREC)"
^XMB(3.9,111,2,1671,0)="""RTN"",""PSODRDUP"",32,0)"
^XMB(3.9,111,2,1672,0)=" W !!,$J(""Status: "",24) S J=RXREC D STAT^PSOFUNC W ST K RX0,RX2 W ?40,$J(""Issued: "",24),$E(ISSD,4,5)_""/""_$E(ISSD,6,7)_""/""_$E(ISSD,2,3)"
^XMB(3.9,111,2,1673,0)="""RTN"",""PSODRDUP"",33,0)"
^XMB(3.9,111,2,1674,0)=" S DA=RXREC D ^PSOCMOPA I $G(PSOCMOP)]"""" D  K CMOP,PSOTRANS,PSOREL"
^XMB(3.9,111,2,1675,0)="""RTN"",""PSODRDUP"",34,0)"
^XMB(3.9,111,2,1676,0)=" .S PSOTRANS=$E($P(PSOCMOP,""^"",2),4,5)_""/""_$E($P(PSOCMOP,""^"",2),6,7)_""/""_$E($P(PSOCMOP,""^"",2),2,3)"
^XMB(3.9,111,2,1677,0)="""RTN"",""PSODRDUP"",35,0)"
^XMB(3.9,111,2,1678,0)=" .S PSOREL=$S(CMOP(""L"")=0:$P($G(^PSRX(DA,2)),""^"",13),1:$P(^PSRX(DA,1,CMOP(""L""),0),""^"",18))"
^XMB(3.9,111,2,1679,0)="""RTN"",""PSODRDUP"",36,0)"
^XMB(3.9,111,2,1680,0)=" .S PSOREL=$E(PSOREL,4,5)_""/""_$E(PSOREL,6,7)_""/""_$E(PSOREL,2,3)_""@""_$E($P(PSOREL,""."",2),1,4)"
^XMB(3.9,111,2,1681,0)="""RTN"",""PSODRDUP"",37,0)"
^XMB(3.9,111,2,1682,0)=" .W !,$J(""CMOP Status: "",24)_$S($P(PSOCMOP,""^"")=0!($P(PSOCMOP,""^"")=2):""Transmitted to on ""_PSOTRANS,$P(PSOCMOP,""^"")=1:""Released by CMOP on ""_PSOREL,1:""Not Dispensed"")"
^XMB(3.9,111,2,1683,0)="""RTN"",""PSODRDUP"",38,0)"
^XMB(3.9,111,2,1684,0)=" K FSIG,BSIG I $P($G(^PSRX(RXREC,""SIG"")),""^"",2) D FSIG^PSOUTLA(""R"",RXREC,54) F PSREV=1:1 Q:'$D(FSIG(PSREV))  S BSIG(PSREV)=FSIG(PSREV)"
^XMB(3.9,111,2,1685,0)="""RTN"",""PSODRDUP"",39,0)"
^XMB(3.9,111,2,1686,0)=" K FSIG,PSREV I '$P($G(^PSRX(RXREC,""SIG"")),""^"",2) D EN2^PSOUTLA1(RXREC,54)"
^XMB(3.9,111,2,1687,0)="""RTN"",""PSODRDUP"",40,0)"
^XMB(3.9,111,2,1688,0)=" W !,$J(""SIG: "",24) W $G(BSIG(1))"
^XMB(3.9,111,2,1689,0)="""RTN"",""PSODRDUP"",41,0)"
^XMB(3.9,111,2,1690,0)=" I $O(BSIG(1)) F PSREV=1:0 S PSREV=$O(BSIG(PSREV)) Q:'PSREV  W !?24,$G(BSIG(PSREV))"
^XMB(3.9,111,2,1691,0)="""RTN"",""PSODRDUP"",42,0)"
^XMB(3.9,111,2,1692,0)=" K BSIG,PSREV"
^XMB(3.9,111,2,1693,0)="""RTN"",""PSODRDUP"",43,0)"
^XMB(3.9,111,2,1694,0)=" W !,$J(""QTY: "",24)_$P(DUPRX0,""^"",7),?40,$J(""# of refills: "",24)_RFLS S PHYS=$S($D(^VA(200,+$P(DUPRX0,""^"",4),0)):$P(^(0),""^""),1:""UNKNOWN"")"
^XMB(3.9,111,2,1695,0)="""RTN"",""PSODRDUP"",44,0)"
^XMB(3.9,111,2,1696,0)=" W !,$J(""Provider: "",24)_PHYS,?40,$J(""Refills remaining: "",24),RFLS-$S($D(^PSRX(RXREC,1,0)):$P(^(0),""^"",4),1:0)"
^XMB(3.9,111,2,1697,0)="""RTN"",""PSODRDUP"",45,0)"
^XMB(3.9,111,2,1698,0)=" S LSTFL=+^PSRX(RXREC,3) W !?40,$J(""Last filled on: "",24)_$E(LSTFL,4,5)_""/""_$E(LSTFL,6,7)_""/""_$E(LSTFL,2,3),!?40,$J(""Days Supply: "",24)_$P(DUPRX0,""^"",8)"
^XMB(3.9,111,2,1699,0)="""RTN"",""PSODRDUP"",46,0)"
^XMB(3.9,111,2,1700,0)=" W !,PSONULN,! I $P($G(^PS(53,+$P($G(PSORX(""PATIENT STATUS"")),""^""),0)),""^"")[""AUTH ABS""!($G(PSORX(""PATIENT STATUS""))[""AUTH ABS"")&'$P(PSOPAR,""^"",5) W !,""PATIENT ON AUTHORIZED ABSENCE!"" K RXRECLOC Q"
^XMB(3.9,111,2,1701,0)="""RTN"",""PSODRDUP"",47,0)"
^XMB(3.9,111,2,1702,0)="ASKCAN I $P(PSOSD(STA,DNM),""^"",2)>10,$P(PSOSD(STA,DNM),""^"",2)'=16 K DIR S DIR(0)=""E"",DIR(""A"")=""Press Return to continue"" D ^DIR K DIR,DTOUT,DUOUT,DIRUT,RXRECLOC Q"
^XMB(3.9,111,2,1703,0)="""RTN"",""PSODRDUP"",48,0)"
^XMB(3.9,111,2,1704,0)=" I '$P(PSOPAR,""^"",2),'$P(PSOPAR,""^"",16),'$D(^XUSEC(""PSORPH"",DUZ)),'$G(CLS) S PSORX(""DFLG"")=1 K RXRECLOC Q"
^XMB(3.9,111,2,1705,0)="""RTN"",""PSODRDUP"",49,0)"
^XMB(3.9,111,2,1706,0)=" I $P(PSOPAR,""^"",2),'$P(PSOPAR,""^"",16),'$D(^XUSEC(""PSORPH"",DUZ)),'$G(CLS) S PSORX(""DFLG"")=1 K RXRECLOC Q"
^XMB(3.9,111,2,1707,0)="""RTN"",""PSODRDUP"",50,0)"
^XMB(3.9,111,2,1708,0)=" I $P(PSOSD(STA,DNM),""^"",2)=16,$G(DUP) W !!,""Prescription ""_$P($G(^PSRX(+$G(RXRECLOC),0)),""^"")_"" is on Provider Hold, it cannot be discontinued."",! K DUP,RXRECLOC S PSORX(""DFLG"")=1 Q"
^XMB(3.9,111,2,1709,0)="""RTN"",""PSODRDUP"",51,0)"
^XMB(3.9,111,2,1710,0)=" D PSOL^PSSLOCK(RXRECLOC) I '$G(PSOMSG) D  K PSOMSG,DIR,DUP,RXRECLOC S DIR(""A"")=""Press Return to continue"",DIR(0)=""E"" D ^DIR K DIR S PSORX(""DFLG"")=1 Q"
^XMB(3.9,111,2,1711,0)="""RTN"",""PSODRDUP"",52,0)"
^XMB(3.9,111,2,1712,0)=" .I $P($G(PSOMSG),""^"",2)'="""" W !!,$P(PSOMSG,""^"",2),! Q"
^XMB(3.9,111,2,1713,0)="""RTN"",""PSODRDUP"",53,0)"
^XMB(3.9,111,2,1714,0)=" .W !!,""Another person is editing Rx ""_$P($G(^PSRX(RXRECLOC,0)),""^""),!"
^XMB(3.9,111,2,1715,0)="""RTN"",""PSODRDUP"",54,0)"
^XMB(3.9,111,2,1716,0)=" K PSOMSG S DIR(""A"")=$S($P(PSOSD(STA,DNM),""^"",2)=12:""Reinstate"",1:""Discontinue"")_"" RX # ""_$P(^PSRX(+PSOSD(STA,DNM),0),""^""),DIR(0)=""Y"",DIR(""?"")=""Enter Y to ""_$S($P(PSOSD(STA,DNM),""^"",2)=12:""reinstate"",1:""discontinue"")_"" this RX."""
^XMB(3.9,111,2,1717,0)="""RTN"",""PSODRDUP"",55,0)"
^XMB(3.9,111,2,1718,0)=" D ^DIR K DIR S DA=RXREC S ACT=$S($D(SPCANC):""Reinstated during Rx cancel."",1:$S($P(PSOSD(STA,DNM),""^"",2)=12:""Reinstated"",1:""Discontinued"")_"" while ""_$S('$G(PSONV):""entering"",1:""verifying"")_"" new RX"")"
^XMB(3.9,111,2,1719,0)="""RTN"",""PSODRDUP"",56,0)"
^XMB(3.9,111,2,1720,0)=" D CMOP^PSOUTL I $G(CMOP(""S""))=""L"" W !,""A CMOP Rx cannot be discontinued during transmission!"",! S Y=0 K CMOP"
^XMB(3.9,111,2,1721,0)="""RTN"",""PSODRDUP"",57,0)"
^XMB(3.9,111,2,1722,0)=" I 'Y W $C(7),"" -Prescription was not ""_$S($P(PSOSD(STA,DNM),""^"",2)=12:""reinstated"",1:""discontinued"")_""..."" D  Q"
^XMB(3.9,111,2,1723,0)="""RTN"",""PSODRDUP"",58,0)"
^XMB(3.9,111,2,1724,0)=" .S:'$D(PSOCLC) PSOCLC=DUZ S MSG=ACT,REA=$S($P(PSOSD(STA,DNM),""^"",2)=12:""R"",1:""C"") S:$G(DUP) PSORX(""DFLG"")=1 K DUP D ULRX K RXRECLOC"
^XMB(3.9,111,2,1725,0)="""RTN"",""PSODRDUP"",59,0)"
^XMB(3.9,111,2,1726,0)=" .I $D(^TMP(""PSORXDC"",$J,RXREC,0)) K ^TMP(""PSORXDC"",$J,RXREC,0)"
^XMB(3.9,111,2,1727,0)="""RTN"",""PSODRDUP"",60,0)"
^XMB(3.9,111,2,1728,0)=" I $P(PSOSD(STA,DNM),""^"",2)=16,$G(CLS) W !!,""Prescription ""_$P($G(^PSRX(+$G(RXRECLOC),0)),""^"")_"" is on Provider Hold, it cannot be discontinued."",! D ULRX K CLS,DUP,RXRECLOC S PSORX(""DFLG"")=1 H 2 Q"
^XMB(3.9,111,2,1729,0)="""RTN"",""PSODRDUP"",61,0)"
^XMB(3.9,111,2,1730,0)=" S PSOCLC=DUZ,MSG=$S($G(MSG)]"""":MSG,1:ACT_"" During New RX ""_$S('$G(PSONV):""Entry"",1:""Verification"")_"" - Duplicate Rx""),REA=$S($P(PSOSD(STA,DNM),""^"",2)=12:""R"",1:""C"")"
^XMB(3.9,111,2,1731,0)="""RTN"",""PSODRDUP"",62,0)"
^XMB(3.9,111,2,1732,0)=" W !!,""Duplicate ""_$S($G(CLS):""Class"",1:""Drug"")_"" will be discontinued after the acceptance of the new order."",!"
^XMB(3.9,111,2,1733,0)="""RTN"",""PSODRDUP"",63,0)"
^XMB(3.9,111,2,1734,0)=" S ^TMP(""PSORXDC"",$J,RXREC,0)=""52^""_DA_""^""_MSG_""^""_REA_""^""_ACT_""^""_STA_""^""_DNM,PSONOOR=""D"""
^XMB(3.9,111,2,1735,0)="""RTN"",""PSODRDUP"",64,0)"
^XMB(3.9,111,2,1736,0)=" K RXRECLOC,DUP,CLS,PSONOOR Q"
^XMB(3.9,111,2,1737,0)="""RTN"",""PSODRDUP"",65,0)"
^XMB(3.9,111,2,1738,0)="CLS K DUP"
^XMB(3.9,111,2,1739,0)="""RTN"",""PSODRDUP"",66,0)"
^XMB(3.9,111,2,1740,0)=" I $E($G(PSODRUG(""VA CLASS"")),1,2)=""HA"",$E($P($G(PSOSD(STA,DNM)),""^"",5),1,2)=""HA"" K PSOELSE Q"
^XMB(3.9,111,2,1741,0)="""RTN"",""PSODRDUP"",67,0)"
^XMB(3.9,111,2,1742,0)=" S CLS=1,MSG=""Discontinued During ""_$S('$G(PSONV):""New Prescription Entry"",1:""Verification"")_"" - Duplicate Class"" W !,PSONULN"
^XMB(3.9,111,2,1743,0)="""RTN"",""PSODRDUP"",68,0)"
^XMB(3.9,111,2,1744,0)=" W !?5,$C(7),""*** SAME CLASS *** OF DRUG IN RX #""_$P(^PSRX(+PSOSD(STA,DNM),0),""^"")_"" FOR ""_$P(DNM,""^""),!,""CLASS: ""_PSODRUG(""VA CLASS"")"
^XMB(3.9,111,2,1745,0)="""RTN"",""PSODRDUP"",69,0)"
^XMB(3.9,111,2,1746,0)=" S CAN=$P(PSOSD(STA,DNM),""^"",2)'<11!($P(PSOSD(STA,DNM),""^"",2)=1) S RXREC=+PSOSD(STA,DNM) I $P($G(PSOPAR),""^"",10) D DATA Q"
^XMB(3.9,111,2,1747,0)="""RTN"",""PSODRDUP"",70,0)"
^XMB(3.9,111,2,1748,0)=" E  W !,PSONULN K DIR S DIR(0)=""E"",DIR(""A"")=""Press Return to continue"" D ^DIR K DIR,DTOUT,DUOUT,DIRUT"
^XMB(3.9,111,2,1749,0)="""RTN"",""PSODRDUP"",71,0)"
^XMB(3.9,111,2,1750,0)=" K PSOELSE Q"
^XMB(3.9,111,2,1751,0)="""RTN"",""PSODRDUP"",72,0)"
^XMB(3.9,111,2,1752,0)="ULRX ;"
^XMB(3.9,111,2,1753,0)="""RTN"",""PSODRDUP"",73,0)"
^XMB(3.9,111,2,1754,0)=" I '$G(RXRECLOC) Q"
^XMB(3.9,111,2,1755,0)="""RTN"",""PSODRDUP"",74,0)"
^XMB(3.9,111,2,1756,0)=" D PSOUL^PSSLOCK(RXRECLOC)"
^XMB(3.9,111,2,1757,0)="""RTN"",""PSODRDUP"",75,0)"
^XMB(3.9,111,2,1758,0)=" Q"
^XMB(3.9,111,2,1759,0)="""RTN"",""PSODRDUP"",76,0)"
^XMB(3.9,111,2,1760,0)=" ;"
^XMB(3.9,111,2,1761,0)="""RTN"",""PSOEXDT"")"
^XMB(3.9,111,2,1762,0)="0^7^B4855517^B4706270"
^XMB(3.9,111,2,1763,0)="""RTN"",""PSOEXDT"",1,0)"
^XMB(3.9,111,2,1764,0)="PSOEXDT ;BHAM ISC/SAB - set exp. date and determine rx status ; 10/24/92 13:24"
^XMB(3.9,111,2,1765,0)="""RTN"",""PSOEXDT"",2,0)"
^XMB(3.9,111,2,1766,0)=" ;;7.0;OUTPATIENT PHARMACY;**23,73,222**;DEC 1997;Build 12"
^XMB(3.9,111,2,1767,0)="""RTN"",""PSOEXDT"",3,0)"
^XMB(3.9,111,2,1768,0)=" ;"
^XMB(3.9,111,2,1769,0)="""RTN"",""PSOEXDT"",4,0)"
^XMB(3.9,111,2,1770,0)=" ;External reference ^PS(55 supported by DBIA 2228"
^XMB(3.9,111,2,1771,0)="""RTN"",""PSOEXDT"",5,0)"
^XMB(3.9,111,2,1772,0)=" ;External reference ^PSDRUG( supported by DBIA 221"
^XMB(3.9,111,2,1773,0)="""RTN"",""PSOEXDT"",6,0)"
^XMB(3.9,111,2,1774,0)=" ; this program sets the expiration date of an rx.  the zeroeth node is"
^XMB(3.9,111,2,1775,0)="""RTN"",""PSOEXDT"",7,0)"
^XMB(3.9,111,2,1776,0)=" ; held in rx0, and the second node is held in rx2.  the variable 'j' is"
^XMB(3.9,111,2,1777,0)="""RTN"",""PSOEXDT"",8,0)"
^XMB(3.9,111,2,1778,0)=" ; the internal number in the prescription file (^psrx)."
^XMB(3.9,111,2,1779,0)="""RTN"",""PSOEXDT"",9,0)"
^XMB(3.9,111,2,1780,0)=" ;"
^XMB(3.9,111,2,1781,0)="""RTN"",""PSOEXDT"",10,0)"
^XMB(3.9,111,2,1782,0)="A S CS=0,RFLS=$P(RX0,""^"",9),DYS=$P(RX0,""^"",8),X1=$P(RX0,""^"",13),X2=DYS*(RFLS+1)\1,PSODEA=$P(^PSDRUG($P(RX0,""^"",6),0),""^"",3)"
^XMB(3.9,111,2,1783,0)="""RTN"",""PSOEXDT"",11,0)"
^XMB(3.9,111,2,1784,0)=" F DEA=1:1 Q:$E(PSODEA,DEA)=""""  I $E(+PSODEA,DEA)>1,$E(+PSODEA,DEA)<6 S $P(CS,""^"")=1 S:$E(+PSODEA,DEA)=2 $P(CS,""^"",2)=1"
^XMB(3.9,111,2,1785,0)="""RTN"",""PSOEXDT"",12,0)"
^XMB(3.9,111,2,1786,0)=" S X2=$S($G(CLOZPAT)=2&(RFLS):28,$G(CLOZPAT)=1&(RFLS):14,DYS=X2:X2,CS:184,1:366) I X1']"""" S X1=DT,X2=-1"
^XMB(3.9,111,2,1787,0)="""RTN"",""PSOEXDT"",13,0)"
^XMB(3.9,111,2,1788,0)=" D C^%DTC S EX=$P(X,""."") I +$G(PSORXED(""RX1"")),+$G(PSORXED(""RX1""))>EX S EX=+$G(PSORXED(""RX1""))"
^XMB(3.9,111,2,1789,0)="""RTN"",""PSOEXDT"",14,0)"
^XMB(3.9,111,2,1790,0)=" ;K ^PSRX(""AG"",$P(^PSRX(J,2),""^"",6),J)"
^XMB(3.9,111,2,1791,0)="""RTN"",""PSOEXDT"",15,0)"
^XMB(3.9,111,2,1792,0)=" S $P(^PSRX(J,2),""^"",6)=EX,RX2=^(2)"
^XMB(3.9,111,2,1793,0)="""RTN"",""PSOEXDT"",16,0)"
^XMB(3.9,111,2,1794,0)=" S Y=$S($D(^PSRX(J,2)):^(2),1:""""),X="""" F ZII=1:1:10 S X=X_$P(Y,""^"",ZII)_""^"""
^XMB(3.9,111,2,1795,0)="""RTN"",""PSOEXDT"",17,0)"
^XMB(3.9,111,2,1796,0)=" K EX,X1,X2,DYS,RFLS,CS,PSODEA,DEA Q"
^XMB(3.9,111,2,1797,0)="""RTN"",""PSOEXDT"",18,0)"
^XMB(3.9,111,2,1798,0)="STAT ;"
^XMB(3.9,111,2,1799,0)="""RTN"",""PSOEXDT"",19,0)"
^XMB(3.9,111,2,1800,0)=" ;this entry point is call from dd(55.03,2,0).  this field is a computed "
^XMB(3.9,111,2,1801,0)="""RTN"",""PSOEXDT"",20,0)"
^XMB(3.9,111,2,1802,0)=" ;field that helps determine the status of rxs found in the pharmacy"
^XMB(3.9,111,2,1803,0)="""RTN"",""PSOEXDT"",21,0)"
^XMB(3.9,111,2,1804,0)=" ;patient file.  the status will be returned in the variable st."
^XMB(3.9,111,2,1805,0)="""RTN"",""PSOEXDT"",22,0)"
^XMB(3.9,111,2,1806,0)=" Q:'$D(^PSRX(J,0))!('$P($G(^PSRX(J,0)),""^"",2))"
^XMB(3.9,111,2,1807,0)="""RTN"",""PSOEXDT"",23,0)"
^XMB(3.9,111,2,1808,0)=" S PSOJ=J,DFN=+$P($G(^PSRX(J,0)),""^"",2)"
^XMB(3.9,111,2,1809,0)="""RTN"",""PSOEXDT"",24,0)"
^XMB(3.9,111,2,1810,0)=" D:$P($G(^PS(55,DFN,0)),""^"",6)'=2 EN^PSOHLUP(DFN) S J=PSOJ"
^XMB(3.9,111,2,1811,0)="""RTN"",""PSOEXDT"",25,0)"
^XMB(3.9,111,2,1812,0)="B S ST0=+^PSRX(J,""STA"") I ST0<12,$D(^PS(52.5,""B"",J)) S ZII=$O(^(J,0)) I 'ZII,$D(^PS(52.5,ZII,0)),'$G(^(""P"")) S ST0=5"
^XMB(3.9,111,2,1813,0)="""RTN"",""PSOEXDT"",26,0)"
^XMB(3.9,111,2,1814,0)=" D A:'$P(RX2,""^"",6) I DT>$P(RX2,""^"",6),((ST0<12)!(ST0>13)) S ST0=11"
^XMB(3.9,111,2,1815,0)="""RTN"",""PSOEXDT"",27,0)"
^XMB(3.9,111,2,1816,0)=" S ST=$P(""ERROR^ACTIVE^NON-VERIFIED^REFILL^HOLD^NON-VERIFIED^SUSPENDED^^^^^^EXPIRED^DISCONTINUED^DELETED^DISCONTINUED^DISCONTINUE (EDIT)^PROVIDER HOLD^"",""^"",ST0+2)"
^XMB(3.9,111,2,1817,0)="""RTN"",""PSOEXDT"",28,0)"
^XMB(3.9,111,2,1818,0)=" S RX0=$P(RX0_""^^^^^^^"",""^"",1,14)_""^""_ST0_""^""_$P(RX0,""^"",16,99)"
^XMB(3.9,111,2,1819,0)="""RTN"",""PSOEXDT"",29,0)"
^XMB(3.9,111,2,1820,0)=" K PSOJ,DFN Q"
^XMB(3.9,111,2,1821,0)="""RTN"",""PSOHELP"")"
^XMB(3.9,111,2,1822,0)="0^8^B49925355^B49120072"
^XMB(3.9,111,2,1823,0)="""RTN"",""PSOHELP"",1,0)"
^XMB(3.9,111,2,1824,0)="PSOHELP ;BHAM ISC/SAB-outpatient utility routine ; 2/17/93 18:00:36"
^XMB(3.9,111,2,1825,0)="""RTN"",""PSOHELP"",2,0)"
^XMB(3.9,111,2,1826,0)=" ;;7.0;OUTPATIENT PHARMACY;**3,23,29,42,48,46,117,131,222**;DEC 1997;Build 12"
^XMB(3.9,111,2,1827,0)="""RTN"",""PSOHELP"",3,0)"
^XMB(3.9,111,2,1828,0)=" ;External reference ^PS(51 supported by DBIA 2224"
^XMB(3.9,111,2,1829,0)="""RTN"",""PSOHELP"",4,0)"
^XMB(3.9,111,2,1830,0)=" ;External reference ^PSDRUG( supported by DBIA 221"
^XMB(3.9,111,2,1831,0)="""RTN"",""PSOHELP"",5,0)"
^XMB(3.9,111,2,1832,0)=" ;External reference ^PS(56 supported by DBIA 2229"
^XMB(3.9,111,2,1833,0)="""RTN"",""PSOHELP"",6,0)"
^XMB(3.9,111,2,1834,0)=" ;External reference ^PSNPPIP supported by DBIA 2261"
^XMB(3.9,111,2,1835,0)="""RTN"",""PSOHELP"",7,0)"
^XMB(3.9,111,2,1836,0)=" ;"
^XMB(3.9,111,2,1837,0)="""RTN"",""PSOHELP"",8,0)"
^XMB(3.9,111,2,1838,0)="XREF D XREF^PSOHELP3"
^XMB(3.9,111,2,1839,0)="""RTN"",""PSOHELP"",9,0)"
^XMB(3.9,111,2,1840,0)=" Q"
^XMB(3.9,111,2,1841,0)="""RTN"",""PSOHELP"",10,0)"
^XMB(3.9,111,2,1842,0)="SIG ;checks PI for RXs"
^XMB(3.9,111,2,1843,0)="""RTN"",""PSOHELP"",11,0)"
^XMB(3.9,111,2,1844,0)=" K VALMSG"
^XMB(3.9,111,2,1845,0)="""RTN"",""PSOHELP"",12,0)"
^XMB(3.9,111,2,1846,0)=" I $E(X)="" "" D EN^DDIOL(""Leading spaces should not entered in the Patient Instructions! "","""",""$C(7),!"") S VALMSG=""There are leading spaces in Patient Instructions!"""
^XMB(3.9,111,2,1847,0)="""RTN"",""PSOHELP"",13,0)"
^XMB(3.9,111,2,1848,0)="SIGONE K INS1 Q:$L(X)<1  F Z0=1:1:$L(X,"" "") G:Z0="""" EN S Z1=$P(X,"" "",Z0) D  G:'$D(X) EN"
^XMB(3.9,111,2,1849,0)="""RTN"",""PSOHELP"",14,0)"
^XMB(3.9,111,2,1850,0)=" .I $L(Z1)>32 W $C(7),!?5,""MAX OF 32 CHARACTERS ALLOWED BETWEEN SPACES."",! K X Q"
^XMB(3.9,111,2,1851,0)="""RTN"",""PSOHELP"",15,0)"
^XMB(3.9,111,2,1852,0)=" .D:$D(X)&($G(Z1)]"""")  S INS1=$G(INS1)_"" ""_Z1"
^XMB(3.9,111,2,1853,0)="""RTN"",""PSOHELP"",16,0)"
^XMB(3.9,111,2,1854,0)=" ..S Y=$O(^PS(51,""B"",Z1,0)) Q:'Y!($P($G(^PS(51,+Y,0)),""^"",4)>1)  S Z1=$P(^PS(51,Y,0),""^"",2)"
^XMB(3.9,111,2,1855,0)="""RTN"",""PSOHELP"",17,0)"
^XMB(3.9,111,2,1856,0)=" ..I $G(^PS(51,+Y,9))]"""" S Y=$P(X,"" "",Z0-1),Y=$E(Y,$L(Y)) S:Y>1 Z1=^(9)"
^XMB(3.9,111,2,1857,0)="""RTN"",""PSOHELP"",18,0)"
^XMB(3.9,111,2,1858,0)="EN K Z1,Z0"
^XMB(3.9,111,2,1859,0)="""RTN"",""PSOHELP"",19,0)"
^XMB(3.9,111,2,1860,0)=" Q"
^XMB(3.9,111,2,1861,0)="""RTN"",""PSOHELP"",20,0)"
^XMB(3.9,111,2,1862,0)="SSIG ;other lang. mods"
^XMB(3.9,111,2,1863,0)="""RTN"",""PSOHELP"",21,0)"
^XMB(3.9,111,2,1864,0)=" K VALMSG"
^XMB(3.9,111,2,1865,0)="""RTN"",""PSOHELP"",22,0)"
^XMB(3.9,111,2,1866,0)=" I $E(X)="" "" D EN^DDIOL(""Leading spaces should not entered in the Patient Instructions! "","""",""$C(7),!"") S VALMSG=""There are leading spaces in Patient Instructions!"""
^XMB(3.9,111,2,1867,0)="""RTN"",""PSOHELP"",23,0)"
^XMB(3.9,111,2,1868,0)=" K SINS1 Q:$L(X)<1  F Z0=1:1:$L(X,"" "") G:Z0="""" EX S Z1=$P(X,"" "",Z0) D  G:'$D(X) EX"
^XMB(3.9,111,2,1869,0)="""RTN"",""PSOHELP"",24,0)"
^XMB(3.9,111,2,1870,0)=" .I $L(Z1)>32 W $C(7),!?5,""MAX OF 32 CHARACTERS ALLOWED BETWEEN SPACES."",! K X Q"
^XMB(3.9,111,2,1871,0)="""RTN"",""PSOHELP"",25,0)"
^XMB(3.9,111,2,1872,0)=" .D:$D(X)&($G(Z1)]"""")  S SINS1=$G(SINS1)_"" ""_Z1"
^XMB(3.9,111,2,1873,0)="""RTN"",""PSOHELP"",26,0)"
^XMB(3.9,111,2,1874,0)=" ..S Y=$O(^PS(51,""B"",Z1,0)) Q:'Y  S Z1=$P(^PS(51,Y,0),""^"",2)"
^XMB(3.9,111,2,1875,0)="""RTN"",""PSOHELP"",27,0)"
^XMB(3.9,111,2,1876,0)=" ..I $G(^PS(51,+Y,4))]"""" S Z1=^PS(51,+Y,4) ;,Y=$P(X,"" "",Z0-1),Y=$E(Y,$L(Y)) S:Y>1 Z1=^(9)"
^XMB(3.9,111,2,1877,0)="""RTN"",""PSOHELP"",28,0)"
^XMB(3.9,111,2,1878,0)="EX K Z1,Z0"
^XMB(3.9,111,2,1879,0)="""RTN"",""PSOHELP"",29,0)"
^XMB(3.9,111,2,1880,0)=" Q"
^XMB(3.9,111,2,1881,0)="""RTN"",""PSOHELP"",30,0)"
^XMB(3.9,111,2,1882,0)="QTY ;Check quantity dispensed against inventory"
^XMB(3.9,111,2,1883,0)="""RTN"",""PSOHELP"",31,0)"
^XMB(3.9,111,2,1884,0)=" Q:'$G(PSODRUG(""IEN""))"
^XMB(3.9,111,2,1885,0)="""RTN"",""PSOHELP"",32,0)"
^XMB(3.9,111,2,1886,0)=" S Z0=$S($G(PSODRUG(""IEN""))]"""":PSODRUG(""IEN""),$G(PSXYES):$P(^PSRX(ZRX,0),""^"",6),$D(^PSRX(DA,0)):+$P(^(0),""^"",6),1:0)"
^XMB(3.9,111,2,1887,0)="""RTN"",""PSOHELP"",33,0)"
^XMB(3.9,111,2,1888,0)=" I $D(^PSDRUG(""AQ"",Z0)),(+X'=X) K X,Z0 Q"
^XMB(3.9,111,2,1889,0)="""RTN"",""PSOHELP"",34,0)"
^XMB(3.9,111,2,1890,0)=" S Z1=$S($D(^PSDRUG(Z0,660.1)):^(660.1),1:0)+(+X) D:X>Z1 EN^DDIOL(""  Greater Than Current Inventory!"","""",""$C(7)"") K Z1"
^XMB(3.9,111,2,1891,0)="""RTN"",""PSOHELP"",35,0)"
^XMB(3.9,111,2,1892,0)=" S ZX=X,ZZ0=$G(D0),D0=Z0"
^XMB(3.9,111,2,1893,0)="""RTN"",""PSOHELP"",36,0)"
^XMB(3.9,111,2,1894,0)=" S Y(18,2)=$S($D(^PSDRUG(D0,660)):^(660),1:""""),Y(18,1)=$S($D(^(660.1)):^(660.1),1:"""")"
^XMB(3.9,111,2,1895,0)="""RTN"",""PSOHELP"",37,0)"
^XMB(3.9,111,2,1896,0)=" S X=$P(Y(18,1),""^"",1),X=$S($P(Y(18,2),""^"",5):X/$P(Y(18,2),""^"",5),1:""*******"")"
^XMB(3.9,111,2,1897,0)="""RTN"",""PSOHELP"",38,0)"
^XMB(3.9,111,2,1898,0)=" S X=$J(X,0,2)"
^XMB(3.9,111,2,1899,0)="""RTN"",""PSOHELP"",39,0)"
^XMB(3.9,111,2,1900,0)=" D:X<$S($D(^PSDRUG(Z0,660)):+^(660),1:1) EN^DDIOL(""  Below Reorder Level."","""",""$C(7)"") S X=ZX,D0=$G(ZZ0) K ZZ0,Z0,ZX"
^XMB(3.9,111,2,1901,0)="""RTN"",""PSOHELP"",40,0)"
^XMB(3.9,111,2,1902,0)=" Q"
^XMB(3.9,111,2,1903,0)="""RTN"",""PSOHELP"",41,0)"
^XMB(3.9,111,2,1904,0)="HELP ;qty help"
^XMB(3.9,111,2,1905,0)="""RTN"",""PSOHELP"",42,0)"
^XMB(3.9,111,2,1906,0)=" G:$G(PSOFDR) HLP"
^XMB(3.9,111,2,1907,0)="""RTN"",""PSOHELP"",43,0)"
^XMB(3.9,111,2,1908,0)=" S Z0=$S($G(PSODRUG(""IEN""))]"""":PSODRUG(""IEN""),$G(PSXYES):$P(^PSRX(ZRX,0),""^"",6),$D(^PSRX(DA,0)):$P(^PSRX(DA,0),""^"",6),1:0)"
^XMB(3.9,111,2,1909,0)="""RTN"",""PSOHELP"",44,0)"
^XMB(3.9,111,2,1910,0)="HLP S Z0=+$G(PSODRUG(""IEN""))  I $D(^PSDRUG(""AQ"",Z0)) D EN^DDIOL(""This is a CMOP drug. The quantity may not contain alpha characters (i.e.; ML)"","""",""!!"") D EN^DDIOL(""or more than two fractional decimal places (i.e.; .01)."","""",""!"") D  K Z0 Q"
^XMB(3.9,111,2,1911,0)="""RTN"",""PSOHELP"",45,0)"
^XMB(3.9,111,2,1912,0)=" .D EN^DDIOL(""Enter a number between 0 and 99999999 inclusive. The total entry cannot"","""",""!"") D EN^DDIOL(""exceed 11 characters."","""",""!"")"
^XMB(3.9,111,2,1913,0)="""RTN"",""PSOHELP"",46,0)"
^XMB(3.9,111,2,1914,0)=" D EN^DDIOL(""Enter a whole number between 0 and 99999999 inclusive.  Alpha characters are"","""",""!!"")"
^XMB(3.9,111,2,1915,0)="""RTN"",""PSOHELP"",47,0)"
^XMB(3.9,111,2,1916,0)=" D EN^DDIOL(""not allowed, and the entry cannot exceed 11 characters, or contain more than"","""",""!"") D EN^DDIOL(""two fractional decimal places (i.e.; .01)."","""",""!"")"
^XMB(3.9,111,2,1917,0)="""RTN"",""PSOHELP"",48,0)"
^XMB(3.9,111,2,1918,0)=" K Z0"
^XMB(3.9,111,2,1919,0)="""RTN"",""PSOHELP"",49,0)"
^XMB(3.9,111,2,1920,0)=" Q"
^XMB(3.9,111,2,1921,0)="""RTN"",""PSOHELP"",50,0)"
^XMB(3.9,111,2,1922,0)="ADD ;add/edited local drug/drug interactions"
^XMB(3.9,111,2,1923,0)="""RTN"",""PSOHELP"",51,0)"
^XMB(3.9,111,2,1924,0)=" W ! S DIC(""A"")=""Select Drug Interaction: "",DIC(0)=""AEMQL"",DLAYGO=56"
^XMB(3.9,111,2,1925,0)="""RTN"",""PSOHELP"",52,0)"
^XMB(3.9,111,2,1926,0)=" S (DIC,DIE)=""^PS(56,"",DIC(""S"")=""I '$P(^(0),""""^"""",5)"" D ^DIC G:""^""[X QU G:Y<0 ADD S DA=+Y,DR=""[PSO INTERACT]"" L +^PS(56,DA):0 I '$T W !,""Entry is being edited by another user. Try Later!"",! G ADD"
^XMB(3.9,111,2,1927,0)="""RTN"",""PSOHELP"",53,0)"
^XMB(3.9,111,2,1928,0)=" D ^DIE L:$G(DA) -^PS(56,DA) K DA G ADD"
^XMB(3.9,111,2,1929,0)="""RTN"",""PSOHELP"",54,0)"
^XMB(3.9,111,2,1930,0)="QU L -^PS(56,DA) K X,DIC,DIE,DA"
^XMB(3.9,111,2,1931,0)="""RTN"",""PSOHELP"",55,0)"
^XMB(3.9,111,2,1932,0)=" Q"
^XMB(3.9,111,2,1933,0)="""RTN"",""PSOHELP"",56,0)"
^XMB(3.9,111,2,1934,0)="CRI ;change drug interaction severity to critical from significant"
^XMB(3.9,111,2,1935,0)="""RTN"",""PSOHELP"",57,0)"
^XMB(3.9,111,2,1936,0)=" W ! S DIC(""A"")=""Select Drug Interaction: "",DIC(0)=""AEQM"",(DIC,DIE)=""^PS(56,"",DIC(""S"")=""I $P(^(0),""""^"""",4)=2"" D ^DIC G:""^""[X QU G:Y<0 CRI S DA=+Y,DR=3"
^XMB(3.9,111,2,1937,0)="""RTN"",""PSOHELP"",58,0)"
^XMB(3.9,111,2,1938,0)=" L +^PS(56,DA):0 I '$T W !,""Entry is being edited by another user. Try Later!"",! G CRI"
^XMB(3.9,111,2,1939,0)="""RTN"",""PSOHELP"",59,0)"
^XMB(3.9,111,2,1940,0)=" D ^DIE L -^PS(56,DA) K DA G CRI"
^XMB(3.9,111,2,1941,0)="""RTN"",""PSOHELP"",60,0)"
^XMB(3.9,111,2,1942,0)=" G QU"
^XMB(3.9,111,2,1943,0)="""RTN"",""PSOHELP"",61,0)"
^XMB(3.9,111,2,1944,0)=" Q"
^XMB(3.9,111,2,1945,0)="""RTN"",""PSOHELP"",62,0)"
^XMB(3.9,111,2,1946,0)="MAX S:$G(EXH) P(7)=$P(^PSRX(DA,0),""^"",8),P(5)=$P(^(0),""^"",6),P(2)=+$P(^(0),""^"",3) S:P(2) PTST=$G(^PS(53,P(2),0)),PTDY=$P($G(^(0)),""^"",3),PTRF=$P($G(^(0)),""^"",4)"
^XMB(3.9,111,2,1947,0)="""RTN"",""PSOHELP"",63,0)"
^XMB(3.9,111,2,1948,0)=" S PSODEA=$P(^PSDRUG(P(5),0),""^"",3),CS=0"
^XMB(3.9,111,2,1949,0)="""RTN"",""PSOHELP"",64,0)"
^XMB(3.9,111,2,1950,0)=" I $D(CLOZPAT) S MAX=$S(CLOZPAT=2&($P(^PSRX(DA,0),""^"",8)=14):1,CLOZPAT=2&($P(^PSRX(DA,0),""^"",8)=7):3,CLOZPAT=1&($P(^PSRX(DA,0),""^"",8)=7):1,1:0),MIN=0 Q"
^XMB(3.9,111,2,1951,0)="""RTN"",""PSOHELP"",65,0)"
^XMB(3.9,111,2,1952,0)=" I PSODEA[""A""&(PSODEA'[""B"")!(PSODEA[""F"") D EN^DDIOL(""No refills allowed on ""_$S(PSODEA[""F"":""this drug."",1:""Narcotics ..""),"""",""!"") D EN^DDIOL("" "","""",""!"") S $P(^PSRX(DA,0),""^"",9)=0 K X,Y,PSODEA,CS,PTST Q"
^XMB(3.9,111,2,1953,0)="""RTN"",""PSOHELP"",66,0)"
^XMB(3.9,111,2,1954,0)=" F DEA=1:1 Q:$E(PSODEA,DEA)=""""  I $E(+PSODEA,DEA)>1,$E(+PSODEA,DEA)<6 S CS=1"
^XMB(3.9,111,2,1955,0)="""RTN"",""PSOHELP"",67,0)"
^XMB(3.9,111,2,1956,0)=" S PSOELSE=CS I PSOELSE D"
^XMB(3.9,111,2,1957,0)="""RTN"",""PSOHELP"",68,0)"
^XMB(3.9,111,2,1958,0)=" .S PSOX1=$S(PTRF>5:5,1:PTRF),PSOT=$S(PSOX1=5:5,1:PSOX1)"
^XMB(3.9,111,2,1959,0)="""RTN"",""PSOHELP"",69,0)"
^XMB(3.9,111,2,1960,0)=" .S PSOT=$S('PSOT:0,P(7)=90:1,1:PSOT),PSDY1=$S(P(7)<60:5,P(7)'<60&(P(7)'>89):2,P(7)=90:1,1:0) S MAX=$S(PSOT'>PSDY1:PSOT,1:PSDY1)"
^XMB(3.9,111,2,1961,0)="""RTN"",""PSOHELP"",70,0)"
^XMB(3.9,111,2,1962,0)=" I 'PSOELSE D"
^XMB(3.9,111,2,1963,0)="""RTN"",""PSOHELP"",71,0)"
^XMB(3.9,111,2,1964,0)=" .S PSOX1=PTRF,PSOT=$S(PSOX1=11:11,1:PSOX1),PSOT=$S('PSOT:0,P(7)=90:3,1:PSOT)"
^XMB(3.9,111,2,1965,0)="""RTN"",""PSOHELP"",72,0)"
^XMB(3.9,111,2,1966,0)=" .S PSDY1=$S(P(7)<60:11,P(7)'<60&(P(7)'>89):5,P(7)=90:3,1:0) S MAX=$S(PSOT'>PSDY1:PSOT,1:PSDY1)"
^XMB(3.9,111,2,1967,0)="""RTN"",""PSOHELP"",73,0)"
^XMB(3.9,111,2,1968,0)=" K PSODEA,PSOELSE,PSOT,PSOX1,PSDY,PSDY1,DEA,CS"
^XMB(3.9,111,2,1969,0)="""RTN"",""PSOHELP"",74,0)"
^XMB(3.9,111,2,1970,0)=" I $D(X) S MIN=0 I $D(DA) F REF=0:0 S REF=$O(^PSRX(DA,1,REF)) Q:'REF  I $D(^(REF,0)) S MIN=MIN+1"
^XMB(3.9,111,2,1971,0)="""RTN"",""PSOHELP"",75,0)"
^XMB(3.9,111,2,1972,0)=" I $G(EXH) D EN^DDIOL(""Enter a number Between ""_MIN_"" AND ""_MAX_""."","""",""!?10"") K P(2),P(5),P(7),MAX,MAX1,MIN,REF"
^XMB(3.9,111,2,1973,0)="""RTN"",""PSOHELP"",76,0)"
^XMB(3.9,111,2,1974,0)=" Q"
^XMB(3.9,111,2,1975,0)="""RTN"",""PSOHELP"",77,0)"
^XMB(3.9,111,2,1976,0)=" ;"
^XMB(3.9,111,2,1977,0)="""RTN"",""PSOHELP"",78,0)"
^XMB(3.9,111,2,1978,0)="REF S PSRF=X,P(7)=$P(^PSRX(DA,0),""^"",8),P(5)=$P(^(0),""^"",6),P(2)=+$P(^(0),""^"",3) S:P(2) PTST=$G(^PS(53,P(2),0)) S PTDY=$P(^(0),""^"",3),PTRF=$P(^(0),""^"",4)"
^XMB(3.9,111,2,1979,0)="""RTN"",""PSOHELP"",79,0)"
^XMB(3.9,111,2,1980,0)=" D MAX Q:'$D(X)  I (+X'=X)!(X<0)!(X>MAX)!(X?.E1"".""1N.N) D EN^DDIOL("" ** MAX REFILLS ALLOWED ARE ""_MAX_"" ** "","""",""$C(7)"") K X"
^XMB(3.9,111,2,1981,0)="""RTN"",""PSOHELP"",80,0)"
^XMB(3.9,111,2,1982,0)=" I $D(X),X<MIN D EN^DDIOL("" ** PATIENT HAS ALREADY RECEIVED ""_MIN_"" REFILLS ** "","""",""$C(7)"") K X"
^XMB(3.9,111,2,1983,0)="""RTN"",""PSOHELP"",81,0)"
^XMB(3.9,111,2,1984,0)=" D DAYS^PSOUTLA"
^XMB(3.9,111,2,1985,0)="""RTN"",""PSOHELP"",82,0)"
^XMB(3.9,111,2,1986,0)=" K PTDY,PTRF,MAX,DAYS,PSDAYS,PSODEA,PSOX,PSOX1,PSDY,PSDY1,DEA,CS,PTST,PSRF,MIN,REF,P(2),P(7),P(5),MAX1"
^XMB(3.9,111,2,1987,0)="""RTN"",""PSOHELP"",83,0)"
^XMB(3.9,111,2,1988,0)=" Q"
^XMB(3.9,111,2,1989,0)="""RTN"",""PSOHELP"",84,0)"
^XMB(3.9,111,2,1990,0)="PAT ;patient field screen in file 52"
^XMB(3.9,111,2,1991,0)="""RTN"",""PSOHELP"",85,0)"
^XMB(3.9,111,2,1992,0)=" N DIC,DIE S DFN=X D INP^VADPT,DEM^VADPT"
^XMB(3.9,111,2,1993,0)="""RTN"",""PSOHELP"",86,0)"
^XMB(3.9,111,2,1994,0)=" I $P(VADM(6),""^"") D EN^DDIOL(""PATIENT DIED ""_$P(VADM(6),""^"",2),"""",""$C(7),!?10"") D EN^DDIOL("" "","""",""!"") K X,DFN Q"
^XMB(3.9,111,2,1995,0)="""RTN"",""PSOHELP"",87,0)"
^XMB(3.9,111,2,1996,0)=" I $P(VAIN(4),""^"") D EN^DDIOL(""PATIENT IS AN INPATIENT ON WARD ""_$P(VAIN(4),""^"",2)_"" !!"","""",""$C(7),!?10"") K DIR D DIR K VA,VADN,VAIN Q"
^XMB(3.9,111,2,1997,0)="""RTN"",""PSOHELP"",88,0)"
^XMB(3.9,111,2,1998,0)=" E  S X=DFN K DFN,DIRUT,DTOUT,DUOUT"
^XMB(3.9,111,2,1999,0)="""RTN"",""PSOHELP"",89,0)"
^XMB(3.9,111,2,2000,0)=" Q"
^XMB(3.9,111,2,2001,0)="""RTN"",""PSOHELP"",90,0)"
^XMB(3.9,111,2,2002,0)="DIR S DIR(0)=""Y"",DIR(""B"")=""YES"",DIR(""A"")=""DO YOU WISH TO CONTINUE"" D ^DIR K DIR"
^XMB(3.9,111,2,2003,0)="""RTN"",""PSOHELP"",91,0)"
^XMB(3.9,111,2,2004,0)=" K:'Y X S:Y X=DFN K DFN,DIRUT,DTOUT,DUOUT,VA,VADM,VAIN"
^XMB(3.9,111,2,2005,0)="""RTN"",""PSOHELP"",92,0)"
^XMB(3.9,111,2,2006,0)=" Q"
^XMB(3.9,111,2,2007,0)="""RTN"",""PSOHELP"",93,0)"
^XMB(3.9,111,2,2008,0)="BG ;prevents editing of display groups with patients from name to ticket"
^XMB(3.9,111,2,2009,0)="""RTN"",""PSOHELP"",94,0)"
^XMB(3.9,111,2,2010,0)=" S $P(^PS(59.3,DA,0),""^"",2)=PDP W !,$C(7),""The display cannot be changed from NAME to TICKET when patients are"",!,""already in the Display Group.  All patients must be purged and re-entered."",!,""Ticket numbers must be issued !!"",! K Y,PDP"
^XMB(3.9,111,2,2011,0)="""RTN"",""PSOHELP"",95,0)"
^XMB(3.9,111,2,2012,0)=" Q"
^XMB(3.9,111,2,2013,0)="""RTN"",""PSOHELP"",96,0)"
^XMB(3.9,111,2,2014,0)="CLNAP ;quits action profile"
^XMB(3.9,111,2,2015,0)="""RTN"",""PSOHELP"",97,0)"
^XMB(3.9,111,2,2016,0)=" Q"
^XMB(3.9,111,2,2017,0)="""RTN"",""PSOHELP"",98,0)"
^XMB(3.9,111,2,2018,0)="PRMI ;prints medication instruction sheets.  select drug."
^XMB(3.9,111,2,2019,0)="""RTN"",""PSOHELP"",99,0)"
^XMB(3.9,111,2,2020,0)=" S X=""PSNPPIP"" X ^%ZOSF(""TEST"") I '$T S VALMBCK="""",VALMSG=""Medication Instruction Sheets Not Installed!"" Q"
^XMB(3.9,111,2,2021,0)="""RTN"",""PSOHELP"",100,0)"
^XMB(3.9,111,2,2022,0)=" I $G(PSODFN) N PSNDFN S PSNDFN=PSODFN"
^XMB(3.9,111,2,2023,0)="""RTN"",""PSOHELP"",101,0)"
^XMB(3.9,111,2,2024,0)=" W !! K PSNPPI(""MESSAGE"") D FULL^VALM1,^PSNPPIP S VALMBCK=""R"""
^XMB(3.9,111,2,2025,0)="""RTN"",""PSOHELP"",102,0)"
^XMB(3.9,111,2,2026,0)=" I $G(PSNPPI(""MESSAGE""))]"""" D"
^XMB(3.9,111,2,2027,0)="""RTN"",""PSOHELP"",103,0)"
^XMB(3.9,111,2,2028,0)=" .K DIR W PSNPPI(""MESSAGE""),! S DIR(0)=""E"",DIR(""A"")=""Press Return to Continue"" D ^DIR K DIR,DIRUT,DIRUT,PSNPPI(""MESSGAE"")"
^XMB(3.9,111,2,2029,0)="""RTN"",""PSOHELP"",104,0)"
^XMB(3.9,111,2,2030,0)=" Q"
^XMB(3.9,111,2,2031,0)="""RTN"",""PSOHELP"",105,0)"
^XMB(3.9,111,2,2032,0)="PRMID ;prints medication instruction sheets.  pass in drug."
^XMB(3.9,111,2,2033,0)="""RTN"",""PSOHELP"",106,0)"
^XMB(3.9,111,2,2034,0)=" I $T(ENOP^PSNPPIP)']"""" S VALMBCK="""",VALMSG=""Medication Instruction Sheets Not Installed!"" Q"
^XMB(3.9,111,2,2035,0)="""RTN"",""PSOHELP"",107,0)"
^XMB(3.9,111,2,2036,0)=" K PSNPPI(""MESSAGE"") D FULL^VALM1"
^XMB(3.9,111,2,2037,0)="""RTN"",""PSOHELP"",108,0)"
^XMB(3.9,111,2,2038,0)=" W !! D ENOP^PSNPPIP($P(RX0,""^"",6),$G(^PSRX(RXN,""TN"")),$P(RX0,""^""),PSODFN)"
^XMB(3.9,111,2,2039,0)="""RTN"",""PSOHELP"",109,0)"
^XMB(3.9,111,2,2040,0)=" S VALMBCK=""R"" I $G(PSNPPI(""MESSAGE""))]"""" D"
^XMB(3.9,111,2,2041,0)="""RTN"",""PSOHELP"",110,0)"
^XMB(3.9,111,2,2042,0)=" .K DIR W PSNPPI(""MESSAGE""),! S DIR(0)=""E"",DIR(""A"")=""Press Return to Continue"" D ^DIR K DIR,DIRUT,DIRUT,PSNPPI(""MESSGAE"")"
^XMB(3.9,111,2,2043,0)="""RTN"",""PSOHELP"",111,0)"
^XMB(3.9,111,2,2044,0)=" Q"
^XMB(3.9,111,2,2045,0)="""RTN"",""PSOHELP1"")"
^XMB(3.9,111,2,2046,0)="0^9^B52554989^B45597408"
^XMB(3.9,111,2,2047,0)="""RTN"",""PSOHELP1"",1,0)"
^XMB(3.9,111,2,2048,0)="PSOHELP1 ;BIR/SAB-OUTPATIENT HELP TEXT/UTILITY ROUTINE 2 ;11/09/92"
^XMB(3.9,111,2,2049,0)="""RTN"",""PSOHELP1"",2,0)"
^XMB(3.9,111,2,2050,0)=" ;;7.0;OUTPATIENT PHARMACY;**23,36,88,146,227,222**;DEC 1997;Build 12"
^XMB(3.9,111,2,2051,0)="""RTN"",""PSOHELP1"",3,0)"
^XMB(3.9,111,2,2052,0)=" ;External reference ^DIC(19.2 supported by DBIA 1472"
^XMB(3.9,111,2,2053,0)="""RTN"",""PSOHELP1"",4,0)"
^XMB(3.9,111,2,2054,0)=" ;External reference ^PSDRUG( supported by DBIA 221"
^XMB(3.9,111,2,2055,0)="""RTN"",""PSOHELP1"",5,0)"
^XMB(3.9,111,2,2056,0)=" ;External reference ^PS(55 supported by DBIA 2228"
^XMB(3.9,111,2,2057,0)="""RTN"",""PSOHELP1"",6,0)"
^XMB(3.9,111,2,2058,0)="2001 N PSOHLP S PSOHLP(1,""F"")=""!!"""
^XMB(3.9,111,2,2059,0)="""RTN"",""PSOHELP1"",7,0)"
^XMB(3.9,111,2,2060,0)=" S PSOHLP(1)=""Enter the lowest prescription number for this site."""
^XMB(3.9,111,2,2061,0)="""RTN"",""PSOHELP1"",8,0)"
^XMB(3.9,111,2,2062,0)=" S PSOHLP(2,""F"")=""!"""
^XMB(3.9,111,2,2063,0)="""RTN"",""PSOHELP1"",9,0)"
^XMB(3.9,111,2,2064,0)=" S PSOHLP(2)=""If this is the first time you are entering this field,"""
^XMB(3.9,111,2,2065,0)="""RTN"",""PSOHELP1"",10,0)"
^XMB(3.9,111,2,2066,0)=" S PSOHLP(3,""F"")=""!"""
^XMB(3.9,111,2,2067,0)="""RTN"",""PSOHELP1"",11,0)"
^XMB(3.9,111,2,2068,0)=" S PSOHLP(3)=""you should pick a number LARGER than the last prescription number used."""
^XMB(3.9,111,2,2069,0)="""RTN"",""PSOHELP1"",12,0)"
^XMB(3.9,111,2,2070,0)=" S PSOHLP(4,""F"")=""!!"""
^XMB(3.9,111,2,2071,0)="""RTN"",""PSOHELP1"",13,0)"
^XMB(3.9,111,2,2072,0)=" D WRITE"
^XMB(3.9,111,2,2073,0)="""RTN"",""PSOHELP1"",14,0)"
^XMB(3.9,111,2,2074,0)=" Q"
^XMB(3.9,111,2,2075,0)="""RTN"",""PSOHELP1"",15,0)"
^XMB(3.9,111,2,2076,0)=" ;"
^XMB(3.9,111,2,2077,0)="""RTN"",""PSOHELP1"",16,0)"
^XMB(3.9,111,2,2078,0)="2002 N PSOHLP S PSOHLP(1,""F"")=""!!"""
^XMB(3.9,111,2,2079,0)="""RTN"",""PSOHELP1"",17,0)"
^XMB(3.9,111,2,2080,0)=" S PSOHLP(1)=""Enter the largest acceptable prescription number for this site."""
^XMB(3.9,111,2,2081,0)="""RTN"",""PSOHELP1"",18,0)"
^XMB(3.9,111,2,2082,0)=" S PSOHLP(2,""F"")=""!"""
^XMB(3.9,111,2,2083,0)="""RTN"",""PSOHELP1"",19,0)"
^XMB(3.9,111,2,2084,0)=" S PSOHLP(2)=""The difference between this number and the lowest prescription"""
^XMB(3.9,111,2,2085,0)="""RTN"",""PSOHELP1"",20,0)"
^XMB(3.9,111,2,2086,0)=" S PSOHLP(3,""F"")=""!"""
^XMB(3.9,111,2,2087,0)="""RTN"",""PSOHELP1"",21,0)"
^XMB(3.9,111,2,2088,0)=" S PSOHLP(3)=""number should be substantial. The system will not allow numbers"""
^XMB(3.9,111,2,2089,0)="""RTN"",""PSOHELP1"",22,0)"
^XMB(3.9,111,2,2090,0)=" S PSOHLP(4,""F"")=""!"""
^XMB(3.9,111,2,2091,0)="""RTN"",""PSOHELP1"",23,0)"
^XMB(3.9,111,2,2092,0)=" S PSOHLP(4)=""larger than the one you choose. It will give a warning message"""
^XMB(3.9,111,2,2093,0)="""RTN"",""PSOHELP1"",24,0)"
^XMB(3.9,111,2,2094,0)=" S PSOHLP(5,""F"")=""!"""
^XMB(3.9,111,2,2095,0)="""RTN"",""PSOHELP1"",25,0)"
^XMB(3.9,111,2,2096,0)=" S PSOHLP(5)=""and not allow entry of any more prescriptions."""
^XMB(3.9,111,2,2097,0)="""RTN"",""PSOHELP1"",26,0)"
^XMB(3.9,111,2,2098,0)=" S PSOHLP(6,""F"")=""!!"""
^XMB(3.9,111,2,2099,0)="""RTN"",""PSOHELP1"",27,0)"
^XMB(3.9,111,2,2100,0)=" D WRITE"
^XMB(3.9,111,2,2101,0)="""RTN"",""PSOHELP1"",28,0)"
^XMB(3.9,111,2,2102,0)=" Q"
^XMB(3.9,111,2,2103,0)="""RTN"",""PSOHELP1"",29,0)"
^XMB(3.9,111,2,2104,0)=" ;"
^XMB(3.9,111,2,2105,0)="""RTN"",""PSOHELP1"",30,0)"
^XMB(3.9,111,2,2106,0)="2003 N PSOHLP S PSOHLP(1,""F"")=""!!"""
^XMB(3.9,111,2,2107,0)="""RTN"",""PSOHELP1"",31,0)"
^XMB(3.9,111,2,2108,0)=" S PSOHLP(1)=""Enter the last prescription number used."""
^XMB(3.9,111,2,2109,0)="""RTN"",""PSOHELP1"",32,0)"
^XMB(3.9,111,2,2110,0)=" S PSOHLP(2,""F"")=""!"""
^XMB(3.9,111,2,2111,0)="""RTN"",""PSOHELP1"",33,0)"
^XMB(3.9,111,2,2112,0)=" S PSOHLP(2)=""If you are entering this for the first time, this number"""
^XMB(3.9,111,2,2113,0)="""RTN"",""PSOHELP1"",34,0)"
^XMB(3.9,111,2,2114,0)=" S PSOHLP(3,""F"")=""!"""
^XMB(3.9,111,2,2115,0)="""RTN"",""PSOHELP1"",35,0)"
^XMB(3.9,111,2,2116,0)=" S PSOHLP(3)=""should be the same as the number you entered for LOW RX#."""
^XMB(3.9,111,2,2117,0)="""RTN"",""PSOHELP1"",36,0)"
^XMB(3.9,111,2,2118,0)=" S PSOHLP(4,""F"")=""!"""
^XMB(3.9,111,2,2119,0)="""RTN"",""PSOHELP1"",37,0)"
^XMB(3.9,111,2,2120,0)=" S PSOHLP(4)=""The system will take this number, increment it by one"""
^XMB(3.9,111,2,2121,0)="""RTN"",""PSOHELP1"",38,0)"
^XMB(3.9,111,2,2122,0)=" S PSOHLP(5,""F"")=""!"""
^XMB(3.9,111,2,2123,0)="""RTN"",""PSOHELP1"",39,0)"
^XMB(3.9,111,2,2124,0)=" S PSOHLP(5)=""until it finds a number that has not been used, and then"""
^XMB(3.9,111,2,2125,0)="""RTN"",""PSOHELP1"",40,0)"
^XMB(3.9,111,2,2126,0)=" S PSOHLP(6,""F"")=""!"""
^XMB(3.9,111,2,2127,0)="""RTN"",""PSOHELP1"",41,0)"
^XMB(3.9,111,2,2128,0)=" S PSOHLP(6)=""use that number for the next prescription."""
^XMB(3.9,111,2,2129,0)="""RTN"",""PSOHELP1"",42,0)"
^XMB(3.9,111,2,2130,0)=" S PSOHLP(7,""F"")=""!!"""
^XMB(3.9,111,2,2131,0)="""RTN"",""PSOHELP1"",43,0)"
^XMB(3.9,111,2,2132,0)=" D WRITE"
^XMB(3.9,111,2,2133,0)="""RTN"",""PSOHELP1"",44,0)"
^XMB(3.9,111,2,2134,0)=" Q"
^XMB(3.9,111,2,2135,0)="""RTN"",""PSOHELP1"",45,0)"
^XMB(3.9,111,2,2136,0)="WRITE ;EN^DDIOL call"
^XMB(3.9,111,2,2137,0)="""RTN"",""PSOHELP1"",46,0)"
^XMB(3.9,111,2,2138,0)=" D EN^DDIOL(.PSOHLP) K PSOHLP"
^XMB(3.9,111,2,2139,0)="""RTN"",""PSOHELP1"",47,0)"
^XMB(3.9,111,2,2140,0)=" Q"
^XMB(3.9,111,2,2141,0)="""RTN"",""PSOHELP1"",48,0)"
^XMB(3.9,111,2,2142,0)="AUTOQ ;entry point to queue all background jobs"
^XMB(3.9,111,2,2143,0)="""RTN"",""PSOHELP1"",49,0)"
^XMB(3.9,111,2,2144,0)=" D:0 RESET1^PSOTPHL1  ;placed out of order by PSO*7*227"
^XMB(3.9,111,2,2145,0)="""RTN"",""PSOHELP1"",50,0)"
^XMB(3.9,111,2,2146,0)=" D AUTO^PSOAUTOC ;ques auto cancel job"
^XMB(3.9,111,2,2147,0)="""RTN"",""PSOHELP1"",51,0)"
^XMB(3.9,111,2,2148,0)=" D SETUP^PSOAUTOC ;ques nightly cost compile"
^XMB(3.9,111,2,2149,0)="""RTN"",""PSOHELP1"",52,0)"
^XMB(3.9,111,2,2150,0)=" D SETUP1^PSOAUTOC ;ques nightly mgmt compile"
^XMB(3.9,111,2,2151,0)="""RTN"",""PSOHELP1"",53,0)"
^XMB(3.9,111,2,2152,0)=" D QUP,CLO ;ques amis compile"
^XMB(3.9,111,2,2153,0)="""RTN"",""PSOHELP1"",54,0)"
^XMB(3.9,111,2,2154,0)=" D SETUP^PSOHLEXP ;ques exipration status update"
^XMB(3.9,111,2,2155,0)="""RTN"",""PSOHELP1"",55,0)"
^XMB(3.9,111,2,2156,0)=" D AUTO^PSOSUDEL ;ques job to deleted rxs printed from 52.5"
^XMB(3.9,111,2,2157,0)="""RTN"",""PSOHELP1"",56,0)"
^XMB(3.9,111,2,2158,0)="CLO K Y,C,D,D0,DI,DQ,DA,DIE,DR,DIC,Y,X,PSOTM,PSOOPTN,%DT,PSOPTN"
^XMB(3.9,111,2,2159,0)="""RTN"",""PSOHELP1"",57,0)"
^XMB(3.9,111,2,2160,0)=" Q"
^XMB(3.9,111,2,2161,0)="""RTN"",""PSOHELP1"",58,0)"
^XMB(3.9,111,2,2162,0)="QUP K %DT,DIC,DTOUT S DIC(0)=""XZM"",DIC=""^DIC(19.2,"",X=""PSO AMIS COMPILE"" D ^DIC"
^XMB(3.9,111,2,2163,0)="""RTN"",""PSOHELP1"",59,0)"
^XMB(3.9,111,2,2164,0)=" I +Y>0 D EDIT^XUTMOPT(""PSO AMIS COMPILE"") G CLO"
^XMB(3.9,111,2,2165,0)="""RTN"",""PSOHELP1"",60,0)"
^XMB(3.9,111,2,2166,0)=" D RESCH^XUTMOPT(""PSO AMIS COMPILE"","""","""",""24H"",""L""),EDIT^XUTMOPT(""PSO AMIS COMPILE"")"
^XMB(3.9,111,2,2167,0)="""RTN"",""PSOHELP1"",61,0)"
^XMB(3.9,111,2,2168,0)=" Q"
^XMB(3.9,111,2,2169,0)="""RTN"",""PSOHELP1"",62,0)"
^XMB(3.9,111,2,2170,0)="EXP ;reset ""P"",""A"" xref in 55 from cancel option"
^XMB(3.9,111,2,2171,0)="""RTN"",""PSOHELP1"",63,0)"
^XMB(3.9,111,2,2172,0)=" Q:$G(REA)=""C"""
^XMB(3.9,111,2,2173,0)="""RTN"",""PSOHELP1"",64,0)"
^XMB(3.9,111,2,2174,0)=" S PCD=+$P($G(^PSRX(DA,3)),""^"",5) I 'PCD D  K EXP,PCD,IFN Q"
^XMB(3.9,111,2,2175,0)="""RTN"",""PSOHELP1"",65,0)"
^XMB(3.9,111,2,2176,0)=" .S (IFN,EXP)=0"
^XMB(3.9,111,2,2177,0)="""RTN"",""PSOHELP1"",66,0)"
^XMB(3.9,111,2,2178,0)=" .F  S EXP=$O(^PS(55,PSODFN,""P"",""A"",EXP)) Q:'EXP  F  S IFN=$O(^PS(55,PSODFN,""P"",""A"",EXP,IFN)) Q:'IFN  I IFN=DA K ^PS(55,PSODFN,""P"",""A"",EXP,DA) S ^PS(55,PSODFN,""P"",""A"",$P(^PSRX(DA,2),""^"",6),DA)="""""
^XMB(3.9,111,2,2179,0)="""RTN"",""PSOHELP1"",67,0)"
^XMB(3.9,111,2,2180,0)=" K ^PS(55,PSODFN,""P"",""A"",PCD,DA) S ^PS(55,PSODFN,""P"",""A"",$P(^PSRX(DA,2),""^"",6),DA)="""",$P(^PSRX(DA,3),""^"",5)="""""
^XMB(3.9,111,2,2181,0)="""RTN"",""PSOHELP1"",68,0)"
^XMB(3.9,111,2,2182,0)=" K PCD Q"
^XMB(3.9,111,2,2183,0)="""RTN"",""PSOHELP1"",69,0)"
^XMB(3.9,111,2,2184,0)="SREF ;set ""P"",""A"" xref in 55 from fileman"
^XMB(3.9,111,2,2185,0)="""RTN"",""PSOHELP1"",70,0)"
^XMB(3.9,111,2,2186,0)=" I $P($G(^PSRX(X,""STA"")),""^"")=12,'$P($G(^PSRX(X,3)),""^"",5) D  Q"
^XMB(3.9,111,2,2187,0)="""RTN"",""PSOHELP1"",71,0)"
^XMB(3.9,111,2,2188,0)=" .F PX=0:0 S PA=$O(^PSRX(X,""A"",PX)) Q:'PX  S:$P(^PSRX(X,""A"",PX,0),""^"",2)=""C"" PCD=$P($P(^PSRX(X,""A"",PX,0),""^""),""."")"
^XMB(3.9,111,2,2189,0)="""RTN"",""PSOHELP1"",72,0)"
^XMB(3.9,111,2,2190,0)=" .I $G(PCD) S ^PS(55,DA(1),""P"",""A"",PCD,X)="""",$P(^PSRX(X,3),""^"",5)=PCD"
^XMB(3.9,111,2,2191,0)="""RTN"",""PSOHELP1"",73,0)"
^XMB(3.9,111,2,2192,0)=" .E  S:$P($G(^PSRX(X,2)),""^"",6) ^PS(55,DA(1),""P"",""A"",$P(^PSRX(X,2),""^"",6),X)="""""
^XMB(3.9,111,2,2193,0)="""RTN"",""PSOHELP1"",74,0)"
^XMB(3.9,111,2,2194,0)=" .K PCD,PX"
^XMB(3.9,111,2,2195,0)="""RTN"",""PSOHELP1"",75,0)"
^XMB(3.9,111,2,2196,0)=" I $P($G(^PSRX(X,""STA"")),""^"")=12,$P($G(^PSRX(X,3)),""^"",5) S ^PS(55,DA(1),""P"",""A"",$P(^PSRX(X,3),""^"",5),X)="""" Q"
^XMB(3.9,111,2,2197,0)="""RTN"",""PSOHELP1"",76,0)"
^XMB(3.9,111,2,2198,0)=" S:$P($G(^PSRX(X,2)),""^"",6) ^PS(55,DA(1),""P"",""A"",$P(^PSRX(X,2),""^"",6),X)="""""
^XMB(3.9,111,2,2199,0)="""RTN"",""PSOHELP1"",77,0)"
^XMB(3.9,111,2,2200,0)=" Q"
^XMB(3.9,111,2,2201,0)="""RTN"",""PSOHELP1"",78,0)"
^XMB(3.9,111,2,2202,0)="KREF ;kill ""P"",""A"" xref in 55 from fileman"
^XMB(3.9,111,2,2203,0)="""RTN"",""PSOHELP1"",79,0)"
^XMB(3.9,111,2,2204,0)=" K:+$P($G(^PSRX(X,2)),""^"",6) ^PS(55,DA(1),""P"",""A"",+$P(^PSRX(X,2),""^"",6),X)"
^XMB(3.9,111,2,2205,0)="""RTN"",""PSOHELP1"",80,0)"
^XMB(3.9,111,2,2206,0)=" I $P($G(^PSRX(X,""STA"")),""^"")=12,'$P($G(^PSRX(X,3)),""^"",5) D  K PCD,PX Q"
^XMB(3.9,111,2,2207,0)="""RTN"",""PSOHELP1"",81,0)"
^XMB(3.9,111,2,2208,0)=" .F PX=0:0 S A=$O(^PSRX(X,""A"",PX)) Q:'PX  S:$P(^PSRX(X,""A"",PX,0),""^"",2)=""C"" PCD=$P($P(^PSRX(X,""A"",PX,0),""^""),""."")"
^XMB(3.9,111,2,2209,0)="""RTN"",""PSOHELP1"",82,0)"
^XMB(3.9,111,2,2210,0)=" .I $G(PCD) K ^PS(55,DA(1),""P"",""A"",PCD,X)"
^XMB(3.9,111,2,2211,0)="""RTN"",""PSOHELP1"",83,0)"
^XMB(3.9,111,2,2212,0)=" I $P($G(^PSRX(X,""STA"")),""^"")=12,$P($G(^PSRX(X,3)),""^"",5) K ^PS(55,DA(1),""P"",""A"",$P(^PSRX(X,3),""^"",5),X)"
^XMB(3.9,111,2,2213,0)="""RTN"",""PSOHELP1"",84,0)"
^XMB(3.9,111,2,2214,0)=" Q"
^XMB(3.9,111,2,2215,0)="""RTN"",""PSOHELP1"",85,0)"
^XMB(3.9,111,2,2216,0)="DAYS K PSMAX I $P($G(^PSDRUG(+$P(^PSRX(DA,0),""^"",6),0)),""^"",4),$P(^PSRX(DA,0),""^"",7)/X>$P($G(^PSDRUG(+$P(^PSRX(DA,0),""^"",6),0)),""^"",4) D EN^DDIOL(""Max Daily Dose of ""_$P($G(^(0)),""^"",4)_"" Exceeded"","""",""$C(7),!?5"") D EN^DDIOL("" "","""",""!"")"
^XMB(3.9,111,2,2217,0)="""RTN"",""PSOHELP1"",86,0)"
^XMB(3.9,111,2,2218,0)=" S PSDAYS=$P(^PSRX(DA,0),""^"",8),PSRF=+$P(^(0),""^"",9),PTST=$G(^PS(53,$P(^(0),""^"",3),0)),PTDY=$P(PTST,""^"",3),PTRF=$P(PTST,""^"",4),PSODEA=$P(^PSDRUG($P(^PSRX(DA,0),""^"",6),0),""^"",3),CS=0"
^XMB(3.9,111,2,2219,0)="""RTN"",""PSOHELP1"",87,0)"
^XMB(3.9,111,2,2220,0)=" D NARC I $G(CLOZPAT)=1,'PSRF,X>14 K X D EN^DDIOL(""     14 Day Supply Max for Clozapine Prescriptions."","""",""$C(7),!!"") Q"
^XMB(3.9,111,2,2221,0)="""RTN"",""PSOHELP1"",88,0)"
^XMB(3.9,111,2,2222,0)=" I $G(CLOZPAT)=0,'PSRF,X>7 K X D EN^DDIOL(""     7 Day Supply Max for Clozapine Prescriptions."","""",""$C(7),!!"") Q"
^XMB(3.9,111,2,2223,0)="""RTN"",""PSOHELP1"",89,0)"
^XMB(3.9,111,2,2224,0)=" I $G(CLOZPAT)=1,X'=7,PSRF K X D EN^DDIOL(""     Day Supply Must Equal 7 with 1 refill for Clozapine Prescriptions."","""",""$C(7),!!"") Q"
^XMB(3.9,111,2,2225,0)="""RTN"",""PSOHELP1"",90,0)"
^XMB(3.9,111,2,2226,0)=" I $G(CLOZPAT)=1,'PSRF,X>14 K X D EN^DDIOL(""     14 Day Supply Max for Clozapine Prescriptions."","""",""$C(7),!!"") Q"
^XMB(3.9,111,2,2227,0)="""RTN"",""PSOHELP1"",91,0)"
^XMB(3.9,111,2,2228,0)=" I $G(CLOZPAT)=2,'PSRF,X>28 K X D EN^DDIOL(""     28 Day Supply Max for Clozapine Prescriptions."","""",""$C(7),!!"") Q"
^XMB(3.9,111,2,2229,0)="""RTN"",""PSOHELP1"",92,0)"
^XMB(3.9,111,2,2230,0)=" I $G(CLOZPAT)=2,PSRF=1,X>14 K X D EN^DDIOL(""     Day Supply Must Equal 14 with 1 refill for Clozapine Prescriptions."","""",""$C(7),!!"") Q"
^XMB(3.9,111,2,2231,0)="""RTN"",""PSOHELP1"",93,0)"
^XMB(3.9,111,2,2232,0)=" I $G(CLOZPAT)=2,PSRF=3,X>7 K X D EN^DDIOL(""     Day Supply Must Equal 7 with 3 refill for Clozapine Prescriptions."","""",""$C(7),!!"") Q"
^XMB(3.9,111,2,2233,0)="""RTN"",""PSOHELP1"",94,0)"
^XMB(3.9,111,2,2234,0)=" I PSRF>MAX S DS=X D"
^XMB(3.9,111,2,2235,0)="""RTN"",""PSOHELP1"",95,0)"
^XMB(3.9,111,2,2236,0)=" .D FULL^VALM1,EN^DDIOL(PSRF_"" refills are not correct for a ""_DS_"" day supply."","""",""$C(7),!!"") D EN^DDIOL(""Please enter correct # of refills for a ""_DS_"" day supply. Max refills allowed is ""_MAX_""."","""",""!"") D EN^DDIOL("" "","""",""!"")"
^XMB(3.9,111,2,2237,0)="""RTN"",""PSOHELP1"",96,0)"
^XMB(3.9,111,2,2238,0)=" .K DIR S DIR(0)=""E"",DIR(""A"")=""Press Return to Continue"" D ^DIR K DIR,X,Y,DIRUT S VALMBCK=""R"""
^XMB(3.9,111,2,2239,0)="""RTN"",""PSOHELP1"",97,0)"
^XMB(3.9,111,2,2240,0)=" K PSTMAX,DS D EDSTAT^PSOUTLA"
^XMB(3.9,111,2,2241,0)="""RTN"",""PSOHELP1"",98,0)"
^XMB(3.9,111,2,2242,0)=" K MAX,DAYS,PSDAYS,PSODEA,PSOX,PSOX1,PSDY,PSDY1,DEA,CS,PTST,PSRF,PTRF,PTDY"
^XMB(3.9,111,2,2243,0)="""RTN"",""PSOHELP1"",99,0)"
^XMB(3.9,111,2,2244,0)=" Q"
^XMB(3.9,111,2,2245,0)="""RTN"",""PSOHELP1"",100,0)"
^XMB(3.9,111,2,2246,0)="DAYS1 K PSRMAX S PSRF=$P(^PSRX(DA(1),0),""^"",9),PTST=$G(^PS(53,$P(^(0),""^"",3),0)),PTDY=$P(PTST,""^"",3),PTRF=$P(PTST,""^"",4)"
^XMB(3.9,111,2,2247,0)="""RTN"",""PSOHELP1"",101,0)"
^XMB(3.9,111,2,2248,0)=" S PSDAYS=$P(^PSRX(DA(1),1,DA,0),""^"",10),PSODEA=$P(^PSDRUG($P(^PSRX(DA(1),0),""^"",6),0),""^"",3),CS=0"
^XMB(3.9,111,2,2249,0)="""RTN"",""PSOHELP1"",102,0)"
^XMB(3.9,111,2,2250,0)=" D NARC I PSRF>MAX S DS=X D"
^XMB(3.9,111,2,2251,0)="""RTN"",""PSOHELP1"",103,0)"
^XMB(3.9,111,2,2252,0)=" .D EN^DDIOL(PSRF_"" refills are not correct for a ""_DS_"" day supply."","""",""$C(7),!!"") D EN^DDIOL(""Please enter correct # of refills for a ""_DS_"" day supply. Max refills allowed is ""_MAX_""."","""",""!"") D EN^DDIOL("" "","""",""!"")"
^XMB(3.9,111,2,2253,0)="""RTN"",""PSOHELP1"",104,0)"
^XMB(3.9,111,2,2254,0)=" .K DIR S DIR(0)=""E"",DIR(""A"")=""Press Return to Continue"" D ^DIR K DIR,X,Y,DIRUT S VALMBCK=""R"""
^XMB(3.9,111,2,2255,0)="""RTN"",""PSOHELP1"",105,0)"
^XMB(3.9,111,2,2256,0)=" K PSTMAX,DS ;D EDSTAT^PSOUTLA"
^XMB(3.9,111,2,2257,0)="""RTN"",""PSOHELP1"",106,0)"
^XMB(3.9,111,2,2258,0)=" K MAX,DAYS,PSDAYS,PSODEA,PSOX,PSOX1,PSDY,PSDY1,DEA,CS,PTST,PSRF,PTDY,PTRF"
^XMB(3.9,111,2,2259,0)="""RTN"",""PSOHELP1"",107,0)"
^XMB(3.9,111,2,2260,0)=" Q"
^XMB(3.9,111,2,2261,0)="""RTN"",""PSOHELP1"",108,0)"
^XMB(3.9,111,2,2262,0)="NARC F DEA=1:1 Q:$E(PSODEA,DEA)=""""  I $E(+PSODEA,DEA)>1,$E(+PSODEA,DEA)<6 S CS=1"
^XMB(3.9,111,2,2263,0)="""RTN"",""PSOHELP1"",109,0)"
^XMB(3.9,111,2,2264,0)=" I $D(CLOZPAT) S MAX=$S(CLOZPAT=2&($P(^PSRX(DA,0),""^"",8)=14):1,CLOZPAT=2&($P(^PSRX(DA,0),""^"",8)=7):3,CLOZPAT=1&($P(^PSRX(DA,0),""^"",8)=7):1,1:0),MIN=0 Q"
^XMB(3.9,111,2,2265,0)="""RTN"",""PSOHELP1"",110,0)"
^XMB(3.9,111,2,2266,0)=" I CS D"
^XMB(3.9,111,2,2267,0)="""RTN"",""PSOHELP1"",111,0)"
^XMB(3.9,111,2,2268,0)=" .S PSOX1=$S(PTRF>5:5,1:PTRF),PSOX=$S(PSOX1=5:5,1:PSOX1)"
^XMB(3.9,111,2,2269,0)="""RTN"",""PSOHELP1"",112,0)"
^XMB(3.9,111,2,2270,0)=" .S PSOX=$S('PSOX:0,X=90:1,1:PSOX),PSDY1=$S(X<60:5,X'<60&(X'>89):2,X=90:1,1:0) S MAX=$S(PSOX'>PSDY1:PSOX,1:PSDY1)"
^XMB(3.9,111,2,2271,0)="""RTN"",""PSOHELP1"",113,0)"
^XMB(3.9,111,2,2272,0)=" E  D"
^XMB(3.9,111,2,2273,0)="""RTN"",""PSOHELP1"",114,0)"
^XMB(3.9,111,2,2274,0)=" .S PSOX1=PTRF,PSOX=$S(PSOX1=11:11,1:PSOX1),PSOX=$S('PSOX:0,X=90:3,1:PSOX)"
^XMB(3.9,111,2,2275,0)="""RTN"",""PSOHELP1"",115,0)"
^XMB(3.9,111,2,2276,0)=" .S PSDY1=$S(X<60:11,X'<60&(X'>89):5,X=90:3,1:0) S MAX=$S(PSOX'>PSDY1:PSOX,1:PSDY1)"
^XMB(3.9,111,2,2277,0)="""RTN"",""PSOHELP1"",116,0)"
^XMB(3.9,111,2,2278,0)=" Q"
^XMB(3.9,111,2,2279,0)="""RTN"",""PSOORFI1"")"
^XMB(3.9,111,2,2280,0)="0^10^B70934716^B70328364"
^XMB(3.9,111,2,2281,0)="""RTN"",""PSOORFI1"",1,0)"
^XMB(3.9,111,2,2282,0)="PSOORFI1 ;BIR/SAB - finish OP orders from OE/RR continued ;5/23/05 2:11pm"
^XMB(3.9,111,2,2283,0)="""RTN"",""PSOORFI1"",2,0)"
^XMB(3.9,111,2,2284,0)=" ;;7.0;OUTPATIENT PHARMACY;**7,15,23,27,32,44,51,46,71,90,108,131,152,186,210,222**;DEC 1997;Build 12"
^XMB(3.9,111,2,2285,0)="""RTN"",""PSOORFI1"",3,0)"
^XMB(3.9,111,2,2286,0)=" ;Ref. ^PS(50.7 supp. DBIA 2223"
^XMB(3.9,111,2,2287,0)="""RTN"",""PSOORFI1"",4,0)"
^XMB(3.9,111,2,2288,0)=" ;Ref. ^PSDRUG( supp. DBIA 221"
^XMB(3.9,111,2,2289,0)="""RTN"",""PSOORFI1"",5,0)"
^XMB(3.9,111,2,2290,0)=" ;Ref. L^PSSLOCK supp. DBIA 2789"
^XMB(3.9,111,2,2291,0)="""RTN"",""PSOORFI1"",6,0)"
^XMB(3.9,111,2,2292,0)=" ;Ref. ^PS(50.606 supp. DBIA 2174"
^XMB(3.9,111,2,2293,0)="""RTN"",""PSOORFI1"",7,0)"
^XMB(3.9,111,2,2294,0)=" ;Ref. ^PS(55 supp. DBIA 2228"
^XMB(3.9,111,2,2295,0)="""RTN"",""PSOORFI1"",8,0)"
^XMB(3.9,111,2,2296,0)=" ;Ref. ULK^ORX2 supp. DBIA 867"
^XMB(3.9,111,2,2297,0)="""RTN"",""PSOORFI1"",9,0)"
^XMB(3.9,111,2,2298,0)=" ;"
^XMB(3.9,111,2,2299,0)="""RTN"",""PSOORFI1"",10,0)"
^XMB(3.9,111,2,2300,0)=" ;PSO*186 add call to function $$DEACHK"
^XMB(3.9,111,2,2301,0)="""RTN"",""PSOORFI1"",11,0)"
^XMB(3.9,111,2,2302,0)=" ;PSO*210 add call to WORDWRAP api"
^XMB(3.9,111,2,2303,0)="""RTN"",""PSOORFI1"",12,0)"
^XMB(3.9,111,2,2304,0)=" ;"
^XMB(3.9,111,2,2305,0)="""RTN"",""PSOORFI1"",13,0)"
^XMB(3.9,111,2,2306,0)=" S SIGOK=1"
^XMB(3.9,111,2,2307,0)="""RTN"",""PSOORFI1"",14,0)"
^XMB(3.9,111,2,2308,0)="DSPL K ^TMP(""PSOPO"",$J),CLOZPAT,PSOPRC,PSODSPL"
^XMB(3.9,111,2,2309,0)="""RTN"",""PSOORFI1"",15,0)"
^XMB(3.9,111,2,2310,0)=" S (OI,PSODRUG(""OI""))=$P(OR0,""^"",8),PSODRUG(""OIN"")=$P(^PS(50.7,$P(OR0,""^"",8),0),""^""),OID=$P(OR0,""^"",9)"
^XMB(3.9,111,2,2311,0)="""RTN"",""PSOORFI1"",16,0)"
^XMB(3.9,111,2,2312,0)=" I $P($G(OR0),""^"",9) S POERR=1,DREN=$P(OR0,""^"",9) D DRG^PSOORDRG K POERR G DRG"
^XMB(3.9,111,2,2313,0)="""RTN"",""PSOORFI1"",17,0)"
^XMB(3.9,111,2,2314,0)=" I '$P(OR0,""^"",9) D DREN^PSOORNW2"
^XMB(3.9,111,2,2315,0)="""RTN"",""PSOORFI1"",18,0)"
^XMB(3.9,111,2,2316,0)="DRG I $P($G(^PSDRUG(+$G(PSODRUG(""IEN"")),""CLOZ1"")),""^"")=""PSOCLO1"" D CLOZ^PSOORFI2"
^XMB(3.9,111,2,2317,0)="""RTN"",""PSOORFI1"",19,0)"
^XMB(3.9,111,2,2318,0)=" ;PSO*186 modify If/Else below to use DEACHK"
^XMB(3.9,111,2,2319,0)="""RTN"",""PSOORFI1"",20,0)"
^XMB(3.9,111,2,2320,0)=" I $G(PSODRUG(""DEA""))]"""" D"
^XMB(3.9,111,2,2321,0)="""RTN"",""PSOORFI1"",21,0)"
^XMB(3.9,111,2,2322,0)=" .S PSOCS=0 K DIR,DIC,PSOX"
^XMB(3.9,111,2,2323,0)="""RTN"",""PSOORFI1"",22,0)"
^XMB(3.9,111,2,2324,0)=" .N PSDEA,PSDAYS S PSDEA=PSODRUG(""DEA""),PSDAYS=+$P(OR0,""^"",22)"
^XMB(3.9,111,2,2325,0)="""RTN"",""PSOORFI1"",23,0)"
^XMB(3.9,111,2,2326,0)=" .I $$DEACHK^PSOUTLA1(""*"",PSDEA,PSDAYS,$G(CLOZPAT),.PSOCS,.PSOMAX)"
^XMB(3.9,111,2,2327,0)="""RTN"",""PSOORFI1"",24,0)"
^XMB(3.9,111,2,2328,0)=" E  D"
^XMB(3.9,111,2,2329,0)="""RTN"",""PSOORFI1"",25,0)"
^XMB(3.9,111,2,2330,0)=" .S PSOMAX=$S($G(CLOZPAT)=2:3,$G(CLOZPAT)=1:1,1:$P(OR0,""^"",11))"
^XMB(3.9,111,2,2331,0)="""RTN"",""PSOORFI1"",26,0)"
^XMB(3.9,111,2,2332,0)="ISSDT S (PSOID,Y,PSONEW(""ISSUE DATE""))=$S($G(PSONEW(""ISSUE DATE"")):PSONEW(""ISSUE DATE""),$P($G(OR0),""^"",6):$E($P(OR0,""^"",6),1,7),1:DT)"
^XMB(3.9,111,2,2333,0)="""RTN"",""PSOORFI1"",27,0)"
^XMB(3.9,111,2,2334,0)=" X ^DD(""DD"") S PSONEW(""ISSUE DATE"")=Y"
^XMB(3.9,111,2,2335,0)="""RTN"",""PSOORFI1"",28,0)"
^XMB(3.9,111,2,2336,0)=" D USER^PSOORFI2($P(OR0,""^"",4)) S PSONEW(""CLERK CODE"")=$P(OR0,""^"",4),PSORX(""CLERK CODE"")=USER1"
^XMB(3.9,111,2,2337,0)="""RTN"",""PSOORFI1"",29,0)"
^XMB(3.9,111,2,2338,0)=" S (PSONEW(""DFLG""),PSONEW(""QFLG""))=0,PSODFN=$P(OR0,""^"",2),PSONEW(""QTY"")=$P(OR0,""^"",10),PSONEW(""MAIL/WINDOW"")=$S($P(OR0,""^"",17)=""M"":""M"",1:""W"")"
^XMB(3.9,111,2,2339,0)="""RTN"",""PSOORFI1"",30,0)"
^XMB(3.9,111,2,2340,0)=" S:$G(PSONEW(""CLINIC""))']"""" PSONEW(""CLINIC"")=+$P(OR0,""^"",13),PSORX(""CLINIC"")=$S($D(^SC(PSONEW(""CLINIC""),0)):$P(^SC(PSONEW(""CLINIC""),0),""^""),1:"""")"
^XMB(3.9,111,2,2341,0)="""RTN"",""PSOORFI1"",31,0)"
^XMB(3.9,111,2,2342,0)=" S:$G(PSORX(""CLINIC""))']"""" PSORX(""CLINIC"")=$S($D(^SC(+$P(OR0,""^"",13),0)):$P(^SC($P(OR0,""^"",13),0),""^""),1:"""")"
^XMB(3.9,111,2,2343,0)="""RTN"",""PSOORFI1"",32,0)"
^XMB(3.9,111,2,2344,0)=" D USER^PSOORFI2($P(OR0,""^"",5))"
^XMB(3.9,111,2,2345,0)="""RTN"",""PSOORFI1"",33,0)"
^XMB(3.9,111,2,2346,0)=" S PSONEW(""CLERK CODE"")=$P(OR0,""^"",4),PSONEW(""PROVIDER"")=$P(OR0,""^"",5),PSONEW(""PROVIDER NAME"")=USER1"
^XMB(3.9,111,2,2347,0)="""RTN"",""PSOORFI1"",34,0)"
^XMB(3.9,111,2,2348,0)=" S PSONEW(""PATIENT STATUS"")=$S(+$G(^PS(55,PSODFN,""PS"")):+$G(^PS(55,PSODFN,""PS"")),1:"""")"
^XMB(3.9,111,2,2349,0)="""RTN"",""PSOORFI1"",35,0)"
^XMB(3.9,111,2,2350,0)=" S PSONEW(""CHCS NUMBER"")=$S($P($G(^PS(52.41,+$G(ORD),""EXT"")),""^"")'="""":$P($G(^(""EXT"")),""^""),1:"""")"
^XMB(3.9,111,2,2351,0)="""RTN"",""PSOORFI1"",36,0)"
^XMB(3.9,111,2,2352,0)=" S PSONEW(""EXTERNAL SYSTEM"")=$S($P($G(^PS(52.41,+$G(ORD),""EXT"")),""^"",3)'="""":$P($G(^(""EXT"")),""^"",3),1:"""")"
^XMB(3.9,111,2,2353,0)="""RTN"",""PSOORFI1"",37,0)"
^XMB(3.9,111,2,2354,0)=" I $P(OR0,""^"",22)>0 S PSONEW(""DAYS SUPPLY"")=$P(OR0,""^"",22) G DS"
^XMB(3.9,111,2,2355,0)="""RTN"",""PSOORFI1"",38,0)"
^XMB(3.9,111,2,2356,0)=" S PSONEW(""DAYS SUPPLY"")=$S(+$G(^PS(55,PSODFN,""PS""))&($P($G(^PS(53,+$G(^PS(55,PSODFN,""PS"")),0)),""^"",3)):$P(^PS(53,+$G(^PS(55,PSODFN,""PS"")),0),""^"",3),1:30)"
^XMB(3.9,111,2,2357,0)="""RTN"",""PSOORFI1"",39,0)"
^XMB(3.9,111,2,2358,0)="DS S:$D(CLOZPAT) PSONEW(""DAYS SUPPLY"")=$S(CLOZPAT=2&(PSONEW(""DAYS SUPPLY"")>28):28,CLOZPAT=1&(PSONEW(""DAYS SUPPLY"")>14):14,'CLOZPAT&(PSONEW(""DAYS SUPPLY"")>7):7,1:PSONEW(""DAYS SUPPLY""))"
^XMB(3.9,111,2,2359,0)="""RTN"",""PSOORFI1"",40,0)"
^XMB(3.9,111,2,2360,0)=" S IEN=0 D OBX"
^XMB(3.9,111,2,2361,0)="""RTN"",""PSOORFI1"",41,0)"
^XMB(3.9,111,2,2362,0)=" D DIN^PSONFI(PSODRUG(""OI""),$S($D(PSODRUG(""IEN"")):PSODRUG(""IEN""),1:"""")) ;Setup for N/F & DIN indicator"
^XMB(3.9,111,2,2363,0)="""RTN"",""PSOORFI1"",42,0)"
^XMB(3.9,111,2,2364,0)=" I $G(PKI1)!($G(PKI)=1) D L1^PSOPKIV1 K:$G(PKI)=1 PKI"
^XMB(3.9,111,2,2365,0)="""RTN"",""PSOORFI1"",43,0)"
^XMB(3.9,111,2,2366,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""*(1) Orderable Item: ""_$P(^PS(50.7,PSODRUG(""OI""),0),""^"")_"" ""_$P(^PS(50.606,$P(^(0),""^"",2),0),""^"")_NFIO"
^XMB(3.9,111,2,2367,0)="""RTN"",""PSOORFI1"",44,0)"
^XMB(3.9,111,2,2368,0)=" S:NFIO[""<DIN>"" NFIO=IEN_"",""_($L(^TMP(""PSOPO"",$J,IEN,0))-4)"
^XMB(3.9,111,2,2369,0)="""RTN"",""PSOORFI1"",45,0)"
^XMB(3.9,111,2,2370,0)=" D FULL^VALM1 K LST I $G(PSODRUG(""NAME""))]"""" D  G PST"
^XMB(3.9,111,2,2371,0)="""RTN"",""PSOORFI1"",46,0)"
^XMB(3.9,111,2,2372,0)=" .S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)="" (2)""_$S($D(^PSDRUG(""AQ"",PSODRUG(""IEN""))):""      CMOP "",1:""           "")_""Drug: ""_PSODRUG(""NAME"")_NFID"
^XMB(3.9,111,2,2373,0)="""RTN"",""PSOORFI1"",47,0)"
^XMB(3.9,111,2,2374,0)=" .S:NFID[""<DIN>"" NFID=IEN_"",""_($L(^TMP(""PSOPO"",$J,IEN,0))-4)"
^XMB(3.9,111,2,2375,0)="""RTN"",""PSOORFI1"",48,0)"
^XMB(3.9,111,2,2376,0)=" .I $P(^PSDRUG(PSODRUG(""IEN""),0),""^"",10)]"""" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""       Drug Message:"" D DRGMSG^PSOORNEW"
^XMB(3.9,111,2,2377,0)="""RTN"",""PSOORFI1"",49,0)"
^XMB(3.9,111,2,2378,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)="" (2)           Drug: No Dispense Drug Selected"""
^XMB(3.9,111,2,2379,0)="""RTN"",""PSOORFI1"",50,0)"
^XMB(3.9,111,2,2380,0)="PST D DOSE^PSOORFI4 K PSOINSFL"
^XMB(3.9,111,2,2381,0)="""RTN"",""PSOORFI1"",51,0)"
^XMB(3.9,111,2,2382,0)=" S PSOINSFL=$P($G(^PS(52.41,ORD,""INS"")),""^"",2)"
^XMB(3.9,111,2,2383,0)="""RTN"",""PSOORFI1"",52,0)"
^XMB(3.9,111,2,2384,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)="" (4)   Pat Instruct:"" D INST^PSOORFI4"
^XMB(3.9,111,2,2385,0)="""RTN"",""PSOORFI1"",53,0)"
^XMB(3.9,111,2,2386,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""  Provider Comments:"" S TY=3 D INST"
^XMB(3.9,111,2,2387,0)="""RTN"",""PSOORFI1"",54,0)"
^XMB(3.9,111,2,2388,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""       Instructions:"" S TY=2 D INST"
^XMB(3.9,111,2,2389,0)="""RTN"",""PSOORFI1"",55,0)"
^XMB(3.9,111,2,2390,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""                SIG:"" D SIG"
^XMB(3.9,111,2,2391,0)="""RTN"",""PSOORFI1"",56,0)"
^XMB(3.9,111,2,2392,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)="" (5) Patient Status: ""_$P($G(^PS(53,+PSONEW(""PATIENT STATUS""),0)),""^"")"
^XMB(3.9,111,2,2393,0)="""RTN"",""PSOORFI1"",57,0)"
^XMB(3.9,111,2,2394,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)="" (6)     Issue Date: ""_PSONEW(""ISSUE DATE"")"
^XMB(3.9,111,2,2395,0)="""RTN"",""PSOORFI1"",58,0)"
^XMB(3.9,111,2,2396,0)=" S (Y,PSONEW(""FILL DATE""))=$S($E($P(OR0,""^"",6),1,7)<DT:DT,1:$E($P(OR0,""^"",6),1,7)) X ^DD(""DD"") S PSORX(""FILL DATE"")=Y,^TMP(""PSOPO"",$J,IEN,0)=^TMP(""PSOPO"",$J,IEN,0)_""        (7) Fill Date: ""_Y"
^XMB(3.9,111,2,2397,0)="""RTN"",""PSOORFI1"",59,0)"
^XMB(3.9,111,2,2398,0)=" I $P(OR0,""^"",18) D"
^XMB(3.9,111,2,2399,0)="""RTN"",""PSOORFI1"",60,0)"
^XMB(3.9,111,2,2400,0)=" .S IEN=IEN+1,Y=$P(OR0,""^"",18) X ^DD(""DD"") S $P(^TMP(""PSOPO"",$J,IEN,0),"" "",39)=""Effective Date: ""_Y"
^XMB(3.9,111,2,2401,0)="""RTN"",""PSOORFI1"",61,0)"
^XMB(3.9,111,2,2402,0)=" D:$G(CLOZPAT) ELIG^PSOORFI2"
^XMB(3.9,111,2,2403,0)="""RTN"",""PSOORFI1"",62,0)"
^XMB(3.9,111,2,2404,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)="" (8)    Days Supply: ""_$S($G(PSONEW(""DAYS SUPPLY"")):PSONEW(""DAYS SUPPLY""),+$G(^PS(55,PSODFN,""PS""))&($P(^PS(53,+$G(^PS(55,PSODFN,""PS"")),0),""^"",3)):$P(^PS(53,+$G(^PS(55,PSODFN,""PS"")),0),""^"",3),1:"""")"
^XMB(3.9,111,2,2405,0)="""RTN"",""PSOORFI1"",63,0)"
^XMB(3.9,111,2,2406,0)=" I +$G(^PS(55,PSODFN,""PS"")) S RXPT=+^(""PS"") I $G(^PS(53,RXPT,0))]"""" D"
^XMB(3.9,111,2,2407,0)="""RTN"",""PSOORFI1"",64,0)"
^XMB(3.9,111,2,2408,0)=" .S PSONEW(""# OF REFILLS"")=$S(+$P(OR0,""^"",11)>+$P(^PS(53,RXPT,0),""^"",4):+$P(^PS(53,RXPT,0),""^"",4),1:+$P(OR0,""^"",11)),PSOX=+$P(^PS(53,RXPT,0),""^"",4)"
^XMB(3.9,111,2,2409,0)="""RTN"",""PSOORFI1"",65,0)"
^XMB(3.9,111,2,2410,0)=" .S PSONEW(""# OF REFILLS"")=$S(PSONEW(""# OF REFILLS"")>PSOMAX:PSOMAX,1:PSONEW(""# OF REFILLS""))"
^XMB(3.9,111,2,2411,0)="""RTN"",""PSOORFI1"",66,0)"
^XMB(3.9,111,2,2412,0)=" .S PSOMAX=$S(PSOMAX>+$P(^PS(53,RXPT,0),""^"",4):+$P(^PS(53,RXPT,0),""^"",4),1:PSOMAX) K RXPT"
^XMB(3.9,111,2,2413,0)="""RTN"",""PSOORFI1"",67,0)"
^XMB(3.9,111,2,2414,0)=" .S MPSDY=PSONEW(""DAYS SUPPLY"")"
^XMB(3.9,111,2,2415,0)="""RTN"",""PSOORFI1"",68,0)"
^XMB(3.9,111,2,2416,0)=" .;I PSOMAX=5 S MAXRF=$S(MPSDY<60:5,MPSDY'<60&(MPSDY'>89):2,1:1) I PSONEW(""# OF REFILLS"")>MAXRF S PSONEW(""# OF REFILLS"")=MAXRF K MAXRF,MPSDY Q"
^XMB(3.9,111,2,2417,0)="""RTN"",""PSOORFI1"",69,0)"
^XMB(3.9,111,2,2418,0)=" .S MAXRF=$S(MPSDY<60:11,MPSDY'<60&(MPSDY'>89):5,MPSDY=90:3,1:0)"
^XMB(3.9,111,2,2419,0)="""RTN"",""PSOORFI1"",70,0)"
^XMB(3.9,111,2,2420,0)=" .I PSONEW(""# OF REFILLS"")>MAXRF S PSONEW(""# OF REFILLS"")=MAXRF K MAXRF,MPSDY"
^XMB(3.9,111,2,2421,0)="""RTN"",""PSOORFI1"",71,0)"
^XMB(3.9,111,2,2422,0)=" E  D"
^XMB(3.9,111,2,2423,0)="""RTN"",""PSOORFI1"",72,0)"
^XMB(3.9,111,2,2424,0)=" . I $G(PSOMAX) S PSONEW(""# OF REFILLS"")=$S(+$P(OR0,""^"",11)>PSOMAX:PSOMAX,1:+$P(OR0,""^"",11)) Q"
^XMB(3.9,111,2,2425,0)="""RTN"",""PSOORFI1"",73,0)"
^XMB(3.9,111,2,2426,0)=" .S PSONEW(""# OF REFILLS"")=+$P(OR0,""^"",11)"
^XMB(3.9,111,2,2427,0)="""RTN"",""PSOORFI1"",74,0)"
^XMB(3.9,111,2,2428,0)=" S ^TMP(""PSOPO"",$J,IEN,0)=^TMP(""PSOPO"",$J,IEN,0)_""                (9)   QTY""_$S($P($G(^PSDRUG(+$G(PSODRUG(""IEN"")),660)),""^"",8)]"""":"" (""_$P($G(^PSDRUG(+$G(PSODRUG(""IEN"")),660)),""^"",8)_"")"",1:"" (  )"")_"": ""_$P(OR0,""^"",10)"
^XMB(3.9,111,2,2429,0)="""RTN"",""PSOORFI1"",75,0)"
^XMB(3.9,111,2,2430,0)=" I $P($G(^PSDRUG(+$G(PSODRUG(""IEN"")),5)),""^"")]"""" D"
^XMB(3.9,111,2,2431,0)="""RTN"",""PSOORFI1"",76,0)"
^XMB(3.9,111,2,2432,0)=" .S $P(RN,"" "",79)="" "",IEN=IEN+1"
^XMB(3.9,111,2,2433,0)="""RTN"",""PSOORFI1"",77,0)"
^XMB(3.9,111,2,2434,0)=" .S ^TMP(""PSOPO"",$J,IEN,0)=$E(RN,$L(""QTY DSP MSG: ""_$P(^PSDRUG(PSODRUG(""IEN""),5),""^""))+1,79)_""QTY DSP MSG: ""_$P(^PSDRUG(PSODRUG(""IEN""),5),""^"") K RN"
^XMB(3.9,111,2,2435,0)="""RTN"",""PSOORFI1"",78,0)"
^XMB(3.9,111,2,2436,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""       Provider ordered ""_+$P(OR0,""^"",11)_"" refills"""
^XMB(3.9,111,2,2437,0)="""RTN"",""PSOORFI1"",79,0)"
^XMB(3.9,111,2,2438,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""(10)   # of Refills: ""_PSONEW(""# OF REFILLS"")_$E(""  "",$L(PSONEW(""# OF REFILLS""))+1,2)_""               (11)   Routing: ""_$S($G(PSONEW(""MAIL/WINDOW""))=""M"":""MAIL"",1:""WINDOW"")"
^XMB(3.9,111,2,2439,0)="""RTN"",""PSOORFI1"",80,0)"
^XMB(3.9,111,2,2440,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""(12)         Clinic: ""_PSORX(""CLINIC"")"
^XMB(3.9,111,2,2441,0)="""RTN"",""PSOORFI1"",81,0)"
^XMB(3.9,111,2,2442,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""(13)       Provider: ""_PSONEW(""PROVIDER NAME"")"
^XMB(3.9,111,2,2443,0)="""RTN"",""PSOORFI1"",82,0)"
^XMB(3.9,111,2,2444,0)=" I $P($G(^VA(200,$S($G(PSONEW(""PROVIDER"")):PSONEW(""PROVIDER""),1:$P(OR0,""^"",5)),""PS"")),""^"",7)&($P($G(^(""PS"")),""^"",8)) S PSONEW(""COSIGNING PROVIDER"")=$P(^(""PS""),""^"",8) D"
^XMB(3.9,111,2,2445,0)="""RTN"",""PSOORFI1"",83,0)"
^XMB(3.9,111,2,2446,0)=" .D USER^PSOORFI2(PSONEW(""COSIGNING PROVIDER""))"
^XMB(3.9,111,2,2447,0)="""RTN"",""PSOORFI1"",84,0)"
^XMB(3.9,111,2,2448,0)=" .S IEN=IEN+1 S ^TMP(""PSOPO"",$J,IEN,0)=""        Cos-Provider: ""_USER1"
^XMB(3.9,111,2,2449,0)="""RTN"",""PSOORFI1"",85,0)"
^XMB(3.9,111,2,2450,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""(14)         Copies: 1"""
^XMB(3.9,111,2,2451,0)="""RTN"",""PSOORFI1"",86,0)"
^XMB(3.9,111,2,2452,0)=" S PSONEW(""REMARKS"")=$S($P(OR0,""^"",17)=""C"":""Administered in Clinic."",1:"""")"
^XMB(3.9,111,2,2453,0)="""RTN"",""PSOORFI1"",87,0)"
^XMB(3.9,111,2,2454,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""(15)        Remarks: ""_$S($G(PSONEW(""REMARKS""))]"""":PSONEW(""REMARKS""),1:"""")"
^XMB(3.9,111,2,2455,0)="""RTN"",""PSOORFI1"",88,0)"
^XMB(3.9,111,2,2456,0)=" D USER^PSOORFI2($P(OR0,""^"",4))"
^XMB(3.9,111,2,2457,0)="""RTN"",""PSOORFI1"",89,0)"
^XMB(3.9,111,2,2458,0)=" S $P(RN,"" "",35)="" "",IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""   Entry By: ""_USER1_$E(RN,$L(USER1)+1,35)"
^XMB(3.9,111,2,2459,0)="""RTN"",""PSOORFI1"",90,0)"
^XMB(3.9,111,2,2460,0)=" S Y=$P(OR0,""^"",12) X ^DD(""DD"") S ^TMP(""PSOPO"",$J,IEN,0)=^TMP(""PSOPO"",$J,IEN,0)_""Entry Date: ""_$E($P(OR0,""^"",12),4,5)_""/""_$E($P(OR0,""^"",12),6,7)_""/""_$E($P(OR0,""^"",12),2,3)_"" ""_$P(Y,""@"",2) K RN"
^XMB(3.9,111,2,2461,0)="""RTN"",""PSOORFI1"",91,0)"
^XMB(3.9,111,2,2462,0)=" S PSOACT=$S($D(^XUSEC(""PSORPH"",DUZ)):""DEF"",'$D(^XUSEC(""PSORPH"",DUZ))&($P($G(PSOPAR),""^"",2)):""F"",1:"""")"
^XMB(3.9,111,2,2463,0)="""RTN"",""PSOORFI1"",92,0)"
^XMB(3.9,111,2,2464,0)=" D:'$G(ACP) EN^PSOLMPO S:$G(ACP) VALMBCK=""Q"" D:$G(PKI1)=2 DCP^PSOPKIV1"
^XMB(3.9,111,2,2465,0)="""RTN"",""PSOORFI1"",93,0)"
^XMB(3.9,111,2,2466,0)=" Q"
^XMB(3.9,111,2,2467,0)="""RTN"",""PSOORFI1"",94,0)"
^XMB(3.9,111,2,2468,0)="POST ;post patient selection"
^XMB(3.9,111,2,2469,0)="""RTN"",""PSOORFI1"",95,0)"
^XMB(3.9,111,2,2470,0)=" D POST^PSOORFI2 Q"
^XMB(3.9,111,2,2471,0)="""RTN"",""PSOORFI1"",96,0)"
^XMB(3.9,111,2,2472,0)="SIG ;displays possible sig"
^XMB(3.9,111,2,2473,0)="""RTN"",""PSOORFI1"",97,0)"
^XMB(3.9,111,2,2474,0)=" D SIG^PSOORFI2 Q"
^XMB(3.9,111,2,2475,0)="""RTN"",""PSOORFI1"",98,0)"
^XMB(3.9,111,2,2476,0)="INST ;displays provider comments and pharmacy instructions"
^XMB(3.9,111,2,2477,0)="""RTN"",""PSOORFI1"",99,0)"
^XMB(3.9,111,2,2478,0)=" S INST=0 F  S INST=$O(^PS(52.41,ORD,TY,INST)) Q:'INST  D     ;PSO*210"
^XMB(3.9,111,2,2479,0)="""RTN"",""PSOORFI1"",100,0)"
^XMB(3.9,111,2,2480,0)=" . S (MIG,INST(INST))=^PS(52.41,ORD,TY,INST,0)"
^XMB(3.9,111,2,2481,0)="""RTN"",""PSOORFI1"",101,0)"
^XMB(3.9,111,2,2482,0)=" . D WORDWRAP^PSOUTLA2(MIG,.IEN,$NA(^TMP(""PSOPO"",$J)),20)"
^XMB(3.9,111,2,2483,0)="""RTN"",""PSOORFI1"",102,0)"
^XMB(3.9,111,2,2484,0)=" K INST,TY,MIG,SG"
^XMB(3.9,111,2,2485,0)="""RTN"",""PSOORFI1"",103,0)"
^XMB(3.9,111,2,2486,0)=" Q"
^XMB(3.9,111,2,2487,0)="""RTN"",""PSOORFI1"",104,0)"
^XMB(3.9,111,2,2488,0)="OBX ;formats obx section"
^XMB(3.9,111,2,2489,0)="""RTN"",""PSOORFI1"",105,0)"
^XMB(3.9,111,2,2490,0)=" D OBX^PSOORFI4"
^XMB(3.9,111,2,2491,0)="""RTN"",""PSOORFI1"",106,0)"
^XMB(3.9,111,2,2492,0)=" Q"
^XMB(3.9,111,2,2493,0)="""RTN"",""PSOORFI1"",107,0)"
^XMB(3.9,111,2,2494,0)="ST ;sort by route or patient"
^XMB(3.9,111,2,2495,0)="""RTN"",""PSOORFI1"",108,0)"
^XMB(3.9,111,2,2496,0)=" W !!,""Enter 'PA' to process orders by patients"",!,""      'RT' to process orders by route (mail/window)"",!,""      'PR' to process orders by priority"",!,""      'CL' to process orders by clinic"",!,""   or 'E' or '^' to exit"" W ! Q"
^XMB(3.9,111,2,2497,0)="""RTN"",""PSOORFI1"",109,0)"
^XMB(3.9,111,2,2498,0)="RT ;which route to sort by"
^XMB(3.9,111,2,2499,0)="""RTN"",""PSOORFI1"",110,0)"
^XMB(3.9,111,2,2500,0)=" W !!,""Enter 'W' to process window orders first"",!,""      'M' to process mail orders first"",!,""      'C' to process orders administered in clinic first"",!,""   or 'E' or '^' to exit"" Q"
^XMB(3.9,111,2,2501,0)="""RTN"",""PSOORFI1"",111,0)"
^XMB(3.9,111,2,2502,0)="PT ;process for all or one patient"
^XMB(3.9,111,2,2503,0)="""RTN"",""PSOORFI1"",112,0)"
^XMB(3.9,111,2,2504,0)=" W !!,""Enter 'A' to process all patient orders"",!,""      'S' to process orders for a patient"",!,""      or 'E' or '^' to exit"" Q"
^XMB(3.9,111,2,2505,0)="""RTN"",""PSOORFI1"",113,0)"
^XMB(3.9,111,2,2506,0)="EP ;continue processing or not"
^XMB(3.9,111,2,2507,0)="""RTN"",""PSOORFI1"",114,0)"
^XMB(3.9,111,2,2508,0)=" W !,""If you want to continue processing orders Press RETURN or enter '^' to exit"" Q"
^XMB(3.9,111,2,2509,0)="""RTN"",""PSOORFI1"",115,0)"
^XMB(3.9,111,2,2510,0)="LOCK S PSOPLCK=$$L^PSSLOCK(PAT,0) I '$G(PSOPLCK) D LOCK^PSOORCPY S POERR(""QFLG"")=1"
^XMB(3.9,111,2,2511,0)="""RTN"",""PSOORFI1"",116,0)"
^XMB(3.9,111,2,2512,0)=" K PSOPLCK"
^XMB(3.9,111,2,2513,0)="""RTN"",""PSOORFI1"",117,0)"
^XMB(3.9,111,2,2514,0)=" Q"
^XMB(3.9,111,2,2515,0)="""RTN"",""PSOORFI1"",118,0)"
^XMB(3.9,111,2,2516,0)="ULK S X=PAT_"";DPT("" D ULK^ORX2 S:$G(PSOQUIT) POERR(""QFLG"")=1 ; not called anymore"
^XMB(3.9,111,2,2517,0)="""RTN"",""PSOORFI1"",119,0)"
^XMB(3.9,111,2,2518,0)=" Q"
^XMB(3.9,111,2,2519,0)="""RTN"",""PSOORFI1"",120,0)"
^XMB(3.9,111,2,2520,0)="LOCK1 S PSOACT=$S($D(^XUSEC(""PSORPH"",DUZ)):""DEF"",'$D(^XUSEC(""PSORPH"",DUZ))&($P($G(PSOPAR),""^"",2)):""F"",1:"""")"
^XMB(3.9,111,2,2521,0)="""RTN"",""PSOORFI1"",121,0)"
^XMB(3.9,111,2,2522,0)=" Q"
^XMB(3.9,111,2,2523,0)="""RTN"",""PSOORFI1"",122,0)"
^XMB(3.9,111,2,2524,0)="EX K DRET,SIG,PSODRUG,PRC,PHI"
^XMB(3.9,111,2,2525,0)="""RTN"",""PSOORFI1"",123,0)"
^XMB(3.9,111,2,2526,0)=" K DIR,DIRUT,DUOUT,DIRUT,X,Y,DIC,POERR,PSONEW,PSOSD,MAIL,CLI,WIN,OR0,OR1,OR2,ORD,SRT,PSRT,PSODFN,PSOFROM,T,OR3,PAT,%,%T,%Y,DI,DQ,DR,DRG,STA,I,T1,PSOSORT"
^XMB(3.9,111,2,2527,0)="""RTN"",""PSOORFI1"",124,0)"
^XMB(3.9,111,2,2528,0)=" K TO,TC,TZ,PSOCPAY,PSOBILL,PSOIBQS,GROUPCNT,AGROUP,AGROUP1,OBX,%,%I,%H,D0,DFN,PSORX,PSOPTPST,PSOQFLG,PT,RTN,TM,TM1,DIPGM,PSOID,PSOCNT,PSOLK,PSZFIN,PSZFZZ D KVA^VADPT"
^XMB(3.9,111,2,2529,0)="""RTN"",""PSOORFI1"",125,0)"
^XMB(3.9,111,2,2530,0)=" K PSOFDR,PSOQUIT,PSOFIN,^TMP(""PSOAO"",$J),^TMP(""PSODA"",$J),^TMP(""PSOPO"",$J),^TMP(""PSOPF"",$J),^TMP(""PSOPI"",$J),^TMP(""PSOHDR"",$J),MEDA,MEDP"
^XMB(3.9,111,2,2531,0)="""RTN"",""PSOORFI1"",126,0)"
^XMB(3.9,111,2,2532,0)=" K C,CC,CNT,CRIT,D,DGI,DGS,DREN,IT,JJ,LG,MM,NIEN,PSOD,PATA,PSDAYS,PSOACT,PSOBM,PSOCOU,PSOCOUU,PSOFLAG,PSON,PSONOOR,PSOOPT,PSOPF,PSOPI,PSRF,RXFL,SDA,SEG1,SER,SERS,SLPPL,STAT,Z,Z4,ZDA"
^XMB(3.9,111,2,2533,0)="""RTN"",""PSOORFI1"",127,0)"
^XMB(3.9,111,2,2534,0)=" D FULL^VALM1"
^XMB(3.9,111,2,2535,0)="""RTN"",""PSOORFI1"",128,0)"
^XMB(3.9,111,2,2536,0)=" Q"
^XMB(3.9,111,2,2537,0)="""RTN"",""PSOORFI2"")"
^XMB(3.9,111,2,2538,0)="0^11^B74849096^B72145536"
^XMB(3.9,111,2,2539,0)="""RTN"",""PSOORFI2"",1,0)"
^XMB(3.9,111,2,2540,0)="PSOORFI2 ;BIR/BHW-finish cprs orders cont. ;07/29/96"
^XMB(3.9,111,2,2541,0)="""RTN"",""PSOORFI2"",2,0)"
^XMB(3.9,111,2,2542,0)=" ;;7.0;OUTPATIENT PHARMACY;**7,15,23,27,46,130,146,177,222**;DEC 1997;Build 12"
^XMB(3.9,111,2,2543,0)="""RTN"",""PSOORFI2"",3,0)"
^XMB(3.9,111,2,2544,0)=" ;External reference ^YSCL(603.01 supported by DBIA 2697"
^XMB(3.9,111,2,2545,0)="""RTN"",""PSOORFI2"",4,0)"
^XMB(3.9,111,2,2546,0)=" ;External references PSOL and PSOUL^PSSLOCK supported by DBIA 2789"
^XMB(3.9,111,2,2547,0)="""RTN"",""PSOORFI2"",5,0)"
^XMB(3.9,111,2,2548,0)="HLP W !,""Enter 'S' to process orders with a priority of STAT"",!,""      'E' to process orders with an Emergency priority,"",!,""      'R' to process Routine orders."",! Q"
^XMB(3.9,111,2,2549,0)="""RTN"",""PSOORFI2"",6,0)"
^XMB(3.9,111,2,2550,0)="HELP ;"
^XMB(3.9,111,2,2551,0)="""RTN"",""PSOORFI2"",7,0)"
^XMB(3.9,111,2,2552,0)=" W !,""Please enter a minimum of two (2) characters."",!,""Enter Patient's name whose med orders are to be completed."",!"
^XMB(3.9,111,2,2553,0)="""RTN"",""PSOORFI2"",8,0)"
^XMB(3.9,111,2,2554,0)=" S (PATN,DPT)=0 F  S DPT=$O(^PS(52.41,""AOR"",DPT)) Q:'DPT  I $D(^PS(52.41,""AOR"",DPT,PSOPINST)) W !,$P(^DPT(DPT,0),""^"") S PATN=PATN+1 I PATN=20 D  I $D(DUOUT)!($D(DTOUT)) G HELPX"
^XMB(3.9,111,2,2555,0)="""RTN"",""PSOORFI2"",9,0)"
^XMB(3.9,111,2,2556,0)=" .K DIR,DUOUT,DTOUT,DIRUT S DIR(0)=""E"" D ^DIR S PATN=0 K DIR"
^XMB(3.9,111,2,2557,0)="""RTN"",""PSOORFI2"",10,0)"
^XMB(3.9,111,2,2558,0)="HELPX K DTOUT,DUOUT,DIRUT,PAINST S DIR(0)=""FO^2:30"",DIR(""A"")=""Select Patient"",DIR(""?"")=""^D HELP^PSOORFIN"""
^XMB(3.9,111,2,2559,0)="""RTN"",""PSOORFI2"",11,0)"
^XMB(3.9,111,2,2560,0)=" K PATN,DPT Q"
^XMB(3.9,111,2,2561,0)="""RTN"",""PSOORFI2"",12,0)"
^XMB(3.9,111,2,2562,0)="RTE ;"
^XMB(3.9,111,2,2563,0)="""RTN"",""PSOORFI2"",13,0)"
^XMB(3.9,111,2,2564,0)=" S PSZFIN=1"
^XMB(3.9,111,2,2565,0)="""RTN"",""PSOORFI2"",14,0)"
^XMB(3.9,111,2,2566,0)=" F PSZFZZ=0:0 S PSZFZZ=$O(^PS(52.41,""AC"",PAT,$E(PSRT),PSZFZZ)) Q:'PSZFZZ!('PSZFIN)  D"
^XMB(3.9,111,2,2567,0)="""RTN"",""PSOORFI2"",15,0)"
^XMB(3.9,111,2,2568,0)=" .I $P($G(^PS(52.41,PSZFZZ,0)),""^"",3)=""NW""!($P($G(^(0)),""^"",3)=""RNW"")!($P($G(^(0)),""^"",3)=""RF"") I $P($G(^PS(52.41,PSZFZZ,""INI"")),""^"")=$G(PSOPINST) S PSZFIN=0"
^XMB(3.9,111,2,2569,0)="""RTN"",""PSOORFI2"",16,0)"
^XMB(3.9,111,2,2570,0)=" Q"
^XMB(3.9,111,2,2571,0)="""RTN"",""PSOORFI2"",17,0)"
^XMB(3.9,111,2,2572,0)="PRI ;"
^XMB(3.9,111,2,2573,0)="""RTN"",""PSOORFI2"",18,0)"
^XMB(3.9,111,2,2574,0)=" S PSZFIN=1"
^XMB(3.9,111,2,2575,0)="""RTN"",""PSOORFI2"",19,0)"
^XMB(3.9,111,2,2576,0)=" F PSZFZZ=0:0 S PSZFZZ=$O(^PS(52.41,""AP"",PAT,$E(PSRT),PSZFZZ)) Q:'PSZFZZ!('PSZFIN)  D"
^XMB(3.9,111,2,2577,0)="""RTN"",""PSOORFI2"",20,0)"
^XMB(3.9,111,2,2578,0)=" .I $P($G(^PS(52.41,PSZFZZ,0)),""^"",3)=""NW""!($P($G(^(0)),""^"",3)=""RNW"")!($P($G(^(0)),""^"",3)=""RF"") I $P($G(^PS(52.41,PSZFZZ,""INI"")),""^"")=$G(PSOPINST) S PSZFIN=0"
^XMB(3.9,111,2,2579,0)="""RTN"",""PSOORFI2"",21,0)"
^XMB(3.9,111,2,2580,0)=" Q"
^XMB(3.9,111,2,2581,0)="""RTN"",""PSOORFI2"",22,0)"
^XMB(3.9,111,2,2582,0)="PROFILE ;display med profile"
^XMB(3.9,111,2,2583,0)="""RTN"",""PSOORFI2"",23,0)"
^XMB(3.9,111,2,2584,0)=" S MEDA=3 ;3=question asked already"
^XMB(3.9,111,2,2585,0)="""RTN"",""PSOORFI2"",24,0)"
^XMB(3.9,111,2,2586,0)=" W !!! K MEDP,DIR,DUOUT,DIRUT,DTOUT S DIR(0)=""Y"",DIR(""B"")=""Yes"",DIR(""A"")=""Do you want to see Medication Profile"" D ^DIR K DIR Q:$D(DIRUT)!('Y)"
^XMB(3.9,111,2,2587,0)="""RTN"",""PSOORFI2"",25,0)"
^XMB(3.9,111,2,2588,0)=" I Y S MEDP=1"
^XMB(3.9,111,2,2589,0)="""RTN"",""PSOORFI2"",26,0)"
^XMB(3.9,111,2,2590,0)=" K DIR,DUOUT,DIRUT,DTOUT"
^XMB(3.9,111,2,2591,0)="""RTN"",""PSOORFI2"",27,0)"
^XMB(3.9,111,2,2592,0)=" Q"
^XMB(3.9,111,2,2593,0)="""RTN"",""PSOORFI2"",28,0)"
^XMB(3.9,111,2,2594,0)="DC I '$G(PSOORRNW),$G(PSOOPT)=3 S PSORENW(""DFLG"")=1 S:'$D(PSOBBC1(""FROM"")) VALMBCK=""Q"",VALMSG=""Renew Rx Request Canceled."",Y=-1 Q"
^XMB(3.9,111,2,2595,0)="""RTN"",""PSOORFI2"",29,0)"
^XMB(3.9,111,2,2596,0)=" N VALMCNT W ! K DIR,DUOUT,DIROUT,DTOUT,PSOELSE I '$G(PSOERR(""DEAD"")) S PSOELSE=1 D  Q:$D(DIRUT)"
^XMB(3.9,111,2,2597,0)="""RTN"",""PSOORFI2"",30,0)"
^XMB(3.9,111,2,2598,0)=" .D NOOR^PSOCAN4 Q:$D(DIRUT)"
^XMB(3.9,111,2,2599,0)="""RTN"",""PSOORFI2"",31,0)"
^XMB(3.9,111,2,2600,0)=" .S DIR(""A"")=""Comments"",DIR(0)=""F^10:75"",DIR(""B"")=""Per Pharmacy Request"" D ^DIR K DIR"
^XMB(3.9,111,2,2601,0)="""RTN"",""PSOORFI2"",32,0)"
^XMB(3.9,111,2,2602,0)=" I '$G(PSOELSE) K PSOELSE S PSONOOR=""A"" G DE"
^XMB(3.9,111,2,2603,0)="""RTN"",""PSOORFI2"",33,0)"
^XMB(3.9,111,2,2604,0)=" K PSOELSE I $D(DIRUT) K DIRUT,DUOUT,DTOUT,Y Q"
^XMB(3.9,111,2,2605,0)="""RTN"",""PSOORFI2"",34,0)"
^XMB(3.9,111,2,2606,0)=" S ACOM=Y"
^XMB(3.9,111,2,2607,0)="""RTN"",""PSOORFI2"",35,0)"
^XMB(3.9,111,2,2608,0)="DE Q:'$D(^PS(52.41,ORD,0))"
^XMB(3.9,111,2,2609,0)="""RTN"",""PSOORFI2"",36,0)"
^XMB(3.9,111,2,2610,0)=" K ^PS(52.41,""AOR"",$P(^PS(52.41,ORD,0),""^"",2),+$P($G(^PS(52.41,ORD,""INI"")),""^""),ORD),^PS(52.41,""AD"",$P(^PS(52.41,ORD,0),""^"",12),+$P($G(^PS(52.41,ORD,""INI"")),""^""),ORD)"
^XMB(3.9,111,2,2611,0)="""RTN"",""PSOORFI2"",37,0)"
^XMB(3.9,111,2,2612,0)=" S $P(^PS(52.41,ORD,0),""^"",3)=""DC"",POERR(""PLACER"")=$P(^(0),""^""),POERR(""STAT"")=""OC"""
^XMB(3.9,111,2,2613,0)="""RTN"",""PSOORFI2"",38,0)"
^XMB(3.9,111,2,2614,0)=" S POERR(""COMM"")=$S($G(POERR(""DEAD"")):""Patient died on ""_$G(PSOPTPST(2,PSODFN,.351))_""."",1:ACOM),$P(^PS(52.41,ORD,4),""^"")=POERR(""COMM"")"
^XMB(3.9,111,2,2615,0)="""RTN"",""PSOORFI2"",39,0)"
^XMB(3.9,111,2,2616,0)=" D EN^PSOHLSN(POERR(""PLACER""),POERR(""STAT""),POERR(""COMM""),PSONOOR)"
^XMB(3.9,111,2,2617,0)="""RTN"",""PSOORFI2"",40,0)"
^XMB(3.9,111,2,2618,0)=" I '$G(POERR(""DEAD"")) S DIR(""A"")=""Press Return to Continue"" D PAUSE^VALM1"
^XMB(3.9,111,2,2619,0)="""RTN"",""PSOORFI2"",41,0)"
^XMB(3.9,111,2,2620,0)=" K PSONOOR,PDORUG,ACOM,CMOP,DEA,DEF,DREN,FDR,HDR,PHI,PRC,SIGOK,DIR,DTOUT,DUOUT,DIRUT"
^XMB(3.9,111,2,2621,0)="""RTN"",""PSOORFI2"",42,0)"
^XMB(3.9,111,2,2622,0)=" S Y=-1 Q"
^XMB(3.9,111,2,2623,0)="""RTN"",""PSOORFI2"",43,0)"
^XMB(3.9,111,2,2624,0)=" ;"
^XMB(3.9,111,2,2625,0)="""RTN"",""PSOORFI2"",44,0)"
^XMB(3.9,111,2,2626,0)="RF ;process refill request from CPRS"
^XMB(3.9,111,2,2627,0)="""RTN"",""PSOORFI2"",45,0)"
^XMB(3.9,111,2,2628,0)=" S PSOREF(""IRXN"")=$P(OR0,""^"",19) D PSOL^PSSLOCK($P(OR0,""^"",19)) I '$G(PSOMSG) D  D PAUSE^VALM1 K PSOREF,PSOMSG Q"
^XMB(3.9,111,2,2629,0)="""RTN"",""PSOORFI2"",46,0)"
^XMB(3.9,111,2,2630,0)=" .I $P($G(PSOMSG),""^"",2)'="""" W $C(7),!!,$P(PSOMSG,""^"",2),! Q"
^XMB(3.9,111,2,2631,0)="""RTN"",""PSOORFI2"",47,0)"
^XMB(3.9,111,2,2632,0)=" .W $C(7),!!,""Another person is editing Rx ""_$P(^PSRX($P(OR0,""^"",19),0),""^""),!"
^XMB(3.9,111,2,2633,0)="""RTN"",""PSOORFI2"",48,0)"
^XMB(3.9,111,2,2634,0)=" K PSOMSG S (PSOREF(""DFLG""),PSOREF(""FIELD""),PSOREF1)=0,X=""T-6M"",%DT=""X"" D ^%DT"
^XMB(3.9,111,2,2635,0)="""RTN"",""PSOORFI2"",49,0)"
^XMB(3.9,111,2,2636,0)=" S (PSOID,PSOREF(""ISSUE DATE""))=$S($P(^PSRX(PSOREF(""IRXN""),0),""^"",13)<Y:Y,1:$P(^PSRX(PSOREF(""IRXN""),0),""^"",13))"
^XMB(3.9,111,2,2637,0)="""RTN"",""PSOORFI2"",50,0)"
^XMB(3.9,111,2,2638,0)=" S:$G(PSORX(""BAR CODE""))&($G(PSOBBC1(""FROM""))=""NEW"") PSOREF(""ISSUE DATE"")=DT K X,X1,X2"
^XMB(3.9,111,2,2639,0)="""RTN"",""PSOORFI2"",51,0)"
^XMB(3.9,111,2,2640,0)=" ;"
^XMB(3.9,111,2,2641,0)="""RTN"",""PSOORFI2"",52,0)"
^XMB(3.9,111,2,2642,0)=" S PSONEW(""DAYS SUPPLY"")=$P(^PSRX(PSOREF(""IRXN""),0),""^"",8),PSONEW(""# OF REFILLS"")=$P(^(0),""^"",9) D FULL^VALM1"
^XMB(3.9,111,2,2643,0)="""RTN"",""PSOORFI2"",53,0)"
^XMB(3.9,111,2,2644,0)=" W !!,""Processing Refill Request for Rx ""_$P(^PSRX(PSOREF(""IRXN""),0),""^"")"
^XMB(3.9,111,2,2645,0)="""RTN"",""PSOORFI2"",54,0)"
^XMB(3.9,111,2,2646,0)=" ;S:$G(PSOREQFD)]"""" PSORX(""FILL DATE"")=PSOREQFD"
^XMB(3.9,111,2,2647,0)="""RTN"",""PSOORFI2"",55,0)"
^XMB(3.9,111,2,2648,0)=" D FILLDT^PSODIR2(.PSOREF) I PSOREF(""DFLG"") S VALMBCK=""R"" G END"
^XMB(3.9,111,2,2649,0)="""RTN"",""PSOORFI2"",56,0)"
^XMB(3.9,111,2,2650,0)=" ;S:$G(PSORX(""FILL DATE""))]"""" PSOREQFD=PSORX(""FILL DATE"")"
^XMB(3.9,111,2,2651,0)="""RTN"",""PSOORFI2"",57,0)"
^XMB(3.9,111,2,2652,0)=" ;"
^XMB(3.9,111,2,2653,0)="""RTN"",""PSOORFI2"",58,0)"
^XMB(3.9,111,2,2654,0)=" ;S:$G(PSOREQMP)]"""" PSORX("" METHOD OF PICK-UP"")=PSOREQMP"
^XMB(3.9,111,2,2655,0)="""RTN"",""PSOORFI2"",59,0)"
^XMB(3.9,111,2,2656,0)=" S PSORX(""MAIL/WINDOW"")=$S($P(OR0,""^"",17)=""M"":""MAIL"",1:""WINDOW"") D MW^PSODIR2(.PSOREF) I PSOREF(""DFLG"") S VALMBCK=""R"" G END"
^XMB(3.9,111,2,2657,0)="""RTN"",""PSOORFI2"",60,0)"
^XMB(3.9,111,2,2658,0)=" ;S:$G(PSORX(""METHOD OF PICK-UP""))]"""" PSOREQMP=PSORX(""METHOD OF PICK-UP"")"
^XMB(3.9,111,2,2659,0)="""RTN"",""PSOORFI2"",61,0)"
^XMB(3.9,111,2,2660,0)=" S:'$G(PSOFROM)'=""NEW"" PSOFROM=""REFILL"" S PSOREF(""DFLG"")=0"
^XMB(3.9,111,2,2661,0)="""RTN"",""PSOORFI2"",62,0)"
^XMB(3.9,111,2,2662,0)=" D ^PSOREF0"
^XMB(3.9,111,2,2663,0)="""RTN"",""PSOORFI2"",63,0)"
^XMB(3.9,111,2,2664,0)="END D PSOUL^PSSLOCK(PSOREF(""IRXN"")) K PSOREF,NODE,PSOREF1,PSL,PSOERR,PSORX(""QFLG"")"
^XMB(3.9,111,2,2665,0)="""RTN"",""PSOORFI2"",64,0)"
^XMB(3.9,111,2,2666,0)=" Q"
^XMB(3.9,111,2,2667,0)="""RTN"",""PSOORFI2"",65,0)"
^XMB(3.9,111,2,2668,0)="S D KPRI,KPRIZ F  S ORD=$O(^PS(52.41,""AP"",PAT,""S"",ORD)) Q:'ORD!($G(POERR(""QFLG"")))  I $P(^PS(52.41,ORD,0),""^"",3)'=""DC"",$P(^(0),""^"",3)'=""DE"" D LOCK1^PSOORFI1,ORD^PSOORFIN S PSOSTATZ=1"
^XMB(3.9,111,2,2669,0)="""RTN"",""PSOORFI2"",66,0)"
^XMB(3.9,111,2,2670,0)=" D:$G(POERR(""QFLG"")) KPRI Q:$G(POERR(""QFLG""))  I $G(PSOSTATZ) S ORD=0 D"
^XMB(3.9,111,2,2671,0)="""RTN"",""PSOORFI2"",67,0)"
^XMB(3.9,111,2,2672,0)=" .D KPRIZ F  S ORD=$O(^PS(52.41,""AP"",PAT,""E"",ORD)) Q:'ORD!($G(POERR(""QFLG"")))  I $P(^PS(52.41,ORD,0),""^"",3)'=""DC"",$P(^(0),""^"",3)'=""DE"" D LOCK1^PSOORFI1,ORD^PSOORFIN"
^XMB(3.9,111,2,2673,0)="""RTN"",""PSOORFI2"",68,0)"
^XMB(3.9,111,2,2674,0)=" .Q:$G(POERR(""QFLG""))"
^XMB(3.9,111,2,2675,0)="""RTN"",""PSOORFI2"",69,0)"
^XMB(3.9,111,2,2676,0)=" .D KPRIZ S ORD=0 F  S ORD=$O(^PS(52.41,""AP"",PAT,""R"",ORD)) Q:'ORD!($G(POERR(""QFLG"")))  I $P(^PS(52.41,ORD,0),""^"",3)'=""DC"",$P(^(0),""^"",3)'=""DE"" D LOCK1^PSOORFI1,ORD^PSOORFIN"
^XMB(3.9,111,2,2677,0)="""RTN"",""PSOORFI2"",70,0)"
^XMB(3.9,111,2,2678,0)=" D KPRI"
^XMB(3.9,111,2,2679,0)="""RTN"",""PSOORFI2"",71,0)"
^XMB(3.9,111,2,2680,0)=" Q"
^XMB(3.9,111,2,2681,0)="""RTN"",""PSOORFI2"",72,0)"
^XMB(3.9,111,2,2682,0)="E D KPRI,KPRIZ F  S ORD=$O(^PS(52.41,""AP"",PAT,""E"",ORD)) Q:'ORD!($G(POERR(""QFLG"")))  I $P(^PS(52.41,ORD,0),""^"",3)'=""DC"",$P(^(0),""^"",3)'=""DE"" D LOCK1^PSOORFI1,ORD^PSOORFIN S PSOEMERZ=1"
^XMB(3.9,111,2,2683,0)="""RTN"",""PSOORFI2"",73,0)"
^XMB(3.9,111,2,2684,0)=" D:$G(POERR(""QFLG"")) KPRI Q:$G(POERR(""QFLG""))  I $G(PSOEMERZ) S ORD=0 D"
^XMB(3.9,111,2,2685,0)="""RTN"",""PSOORFI2"",74,0)"
^XMB(3.9,111,2,2686,0)=" .D KPRIZ F  S ORD=$O(^PS(52.41,""AP"",PAT,""S"",ORD)) Q:'ORD!($G(POERR(""QFLG"")))  I $P(^PS(52.41,ORD,0),""^"",3)'=""DC"",$P(^(0),""^"",3)'=""DE"" D LOCK1^PSOORFI1,ORD^PSOORFIN"
^XMB(3.9,111,2,2687,0)="""RTN"",""PSOORFI2"",75,0)"
^XMB(3.9,111,2,2688,0)=" .Q:$G(POERR(""QFLG""))"
^XMB(3.9,111,2,2689,0)="""RTN"",""PSOORFI2"",76,0)"
^XMB(3.9,111,2,2690,0)=" .D KPRIZ S ORD=0 F  S ORD=$O(^PS(52.41,""AP"",PAT,""R"",ORD)) Q:'ORD!($G(POERR(""QFLG"")))  I $P(^PS(52.41,ORD,0),""^"",3)'=""DC"",$P(^(0),""^"",3)'=""DE"" D LOCK1^PSOORFI1,ORD^PSOORFIN"
^XMB(3.9,111,2,2691,0)="""RTN"",""PSOORFI2"",77,0)"
^XMB(3.9,111,2,2692,0)=" D KPRI"
^XMB(3.9,111,2,2693,0)="""RTN"",""PSOORFI2"",78,0)"
^XMB(3.9,111,2,2694,0)=" Q"
^XMB(3.9,111,2,2695,0)="""RTN"",""PSOORFI2"",79,0)"
^XMB(3.9,111,2,2696,0)="R D KPRI,KPRIZ F  S ORD=$O(^PS(52.41,""AP"",PAT,""R"",ORD)) Q:'ORD!($G(POERR(""QFLG"")))  I $P(^PS(52.41,ORD,0),""^"",3)'=""DC"",$P(^(0),""^"",3)'=""DE"" D LOCK1^PSOORFI1,ORD^PSOORFIN S PSOROUTZ=1"
^XMB(3.9,111,2,2697,0)="""RTN"",""PSOORFI2"",80,0)"
^XMB(3.9,111,2,2698,0)=" D:$G(POERR(""QFLG"")) KPRI Q:$G(POERR(""QFLG""))  I $G(PSOROUTZ) S ORD=0 D"
^XMB(3.9,111,2,2699,0)="""RTN"",""PSOORFI2"",81,0)"
^XMB(3.9,111,2,2700,0)=" .D KPRIZ F  S ORD=$O(^PS(52.41,""AP"",PAT,""E"",ORD)) Q:'ORD!($G(POERR(""QFLG"")))  I $P(^PS(52.41,ORD,0),""^"",3)'=""DC"",$P(^(0),""^"",3)'=""DE"" D LOCK1^PSOORFI1,ORD^PSOORFIN"
^XMB(3.9,111,2,2701,0)="""RTN"",""PSOORFI2"",82,0)"
^XMB(3.9,111,2,2702,0)=" .Q:$G(POERR(""QFLG""))"
^XMB(3.9,111,2,2703,0)="""RTN"",""PSOORFI2"",83,0)"
^XMB(3.9,111,2,2704,0)=" .D KPRIZ S ORD=0 F  S ORD=$O(^PS(52.41,""AP"",PAT,""S"",ORD)) Q:'ORD!($G(POERR(""QFLG"")))  I $P(^PS(52.41,ORD,0),""^"",3)'=""DC"",$P(^(0),""^"",3)'=""DE"" D LOCK1^PSOORFI1,ORD^PSOORFIN"
^XMB(3.9,111,2,2705,0)="""RTN"",""PSOORFI2"",84,0)"
^XMB(3.9,111,2,2706,0)=" D KPRI"
^XMB(3.9,111,2,2707,0)="""RTN"",""PSOORFI2"",85,0)"
^XMB(3.9,111,2,2708,0)=" Q"
^XMB(3.9,111,2,2709,0)="""RTN"",""PSOORFI2"",86,0)"
^XMB(3.9,111,2,2710,0)="KPRI K PSOSTATZ,PSOROUTZ,PSOEMERZ"
^XMB(3.9,111,2,2711,0)="""RTN"",""PSOORFI2"",87,0)"
^XMB(3.9,111,2,2712,0)=" Q"
^XMB(3.9,111,2,2713,0)="""RTN"",""PSOORFI2"",88,0)"
^XMB(3.9,111,2,2714,0)="KPRIZ K PSOQUIT,POERR(""QFLG"")"
^XMB(3.9,111,2,2715,0)="""RTN"",""PSOORFI2"",89,0)"
^XMB(3.9,111,2,2716,0)=" Q"
^XMB(3.9,111,2,2717,0)="""RTN"",""PSOORFI2"",90,0)"
^XMB(3.9,111,2,2718,0)="INST ;Select Institution"
^XMB(3.9,111,2,2719,0)="""RTN"",""PSOORFI2"",91,0)"
^XMB(3.9,111,2,2720,0)=" I '$G(PSOSITE) D ^PSOLSET I '$G(PSOSITE) S PSOIQUIT=1 Q"
^XMB(3.9,111,2,2721,0)="""RTN"",""PSOORFI2"",92,0)"
^XMB(3.9,111,2,2722,0)=" N PSIR,PSCT,PSINST K PSOPINST"
^XMB(3.9,111,2,2723,0)="""RTN"",""PSOORFI2"",93,0)"
^XMB(3.9,111,2,2724,0)=" S PSCT=0 F PSIR=0:0 S PSIR=$O(^PS(59,PSOSITE,""INI1"",PSIR)) Q:'PSIR  I $P($G(^PS(59,PSOSITE,""INI1"",PSIR,0)),""^"") S PSCT=PSCT+1 I PSCT=1 S PSOPINST=$P($G(^(0)),""^"")"
^XMB(3.9,111,2,2725,0)="""RTN"",""PSOORFI2"",94,0)"
^XMB(3.9,111,2,2726,0)=" I PSCT=0 W !!,""There are no CPRS Ordering Institutions associated with this Outpatient site!"",!,""Use the Site Parameter enter/edit option to enter CPRS Ordering Institutions!"",! S PSOIQUIT=1 Q"
^XMB(3.9,111,2,2727,0)="""RTN"",""PSOORFI2"",95,0)"
^XMB(3.9,111,2,2728,0)=" I PSCT=1 Q"
^XMB(3.9,111,2,2729,0)="""RTN"",""PSOORFI2"",96,0)"
^XMB(3.9,111,2,2730,0)=" W !!!,""There are multiple Institutions associated with this Outpatient Site for"",!,""finishing orders entered through CPRS. Select the Institution for which to"",!,""finish orders from.  Enter '?' to see all choices."",!"
^XMB(3.9,111,2,2731,0)="""RTN"",""PSOORFI2"",97,0)"
^XMB(3.9,111,2,2732,0)=" K PSOPNAME D:$G(PSOPINST)  K DIC S DIC(0)=""AEQMZ"",DIC=""^PS(59,""_PSOSITE_"",""""INI1"""","" S:$G(PSOPNAME)'="""" DIC(""B"")=$G(PSOPNAME) D ^DIC K DIC,PSOPNAME I Y<1 W !!,""No Institution selected"",! S PSOIQUIT=1 Q"
^XMB(3.9,111,2,2733,0)="""RTN"",""PSOORFI2"",98,0)"
^XMB(3.9,111,2,2734,0)=" .K ^UTILITY(""DIQ1"",$J),DIQ S DA=$G(PSOPINST),DIC=4,DIQ(0)=""E"",DR="".01"" D EN^DIQ1 S PSOPNAME=$G(^UTILITY(""DIQ1"",$J,4,DA,.01,""E"")) K ^UTILITY(""DIQ1"",$J),DA,DR,DIC,DIQ"
^XMB(3.9,111,2,2735,0)="""RTN"",""PSOORFI2"",99,0)"
^XMB(3.9,111,2,2736,0)=" W ! S PSOPINST=$P(Y,""^"",2) K Y"
^XMB(3.9,111,2,2737,0)="""RTN"",""PSOORFI2"",100,0)"
^XMB(3.9,111,2,2738,0)=" D INSTNM W !,""You have selected ""_$G(PSODINST)_""."",!,""After completing these orders, you may re-enter this option and select again."",! K PSODINST"
^XMB(3.9,111,2,2739,0)="""RTN"",""PSOORFI2"",101,0)"
^XMB(3.9,111,2,2740,0)=" Q"
^XMB(3.9,111,2,2741,0)="""RTN"",""PSOORFI2"",102,0)"
^XMB(3.9,111,2,2742,0)="INST1 ;"
^XMB(3.9,111,2,2743,0)="""RTN"",""PSOORFI2"",103,0)"
^XMB(3.9,111,2,2744,0)=" K PSOPINST N PSIR"
^XMB(3.9,111,2,2745,0)="""RTN"",""PSOORFI2"",104,0)"
^XMB(3.9,111,2,2746,0)=" F PSIR=0:0 S PSIR=$O(^PS(59,PSOSITE,""INI1"",PSIR)) Q:'PSIR!($G(PSOPINST))  I $P($G(^PS(59,PSOSITE,""INI1"",PSIR,0)),""^"") S PSOPINST=$P($G(^(0)),""^"")"
^XMB(3.9,111,2,2747,0)="""RTN"",""PSOORFI2"",105,0)"
^XMB(3.9,111,2,2748,0)=" Q"
^XMB(3.9,111,2,2749,0)="""RTN"",""PSOORFI2"",106,0)"
^XMB(3.9,111,2,2750,0)="CLOZ ;checks clozapine status of patient "
^XMB(3.9,111,2,2751,0)="""RTN"",""PSOORFI2"",107,0)"
^XMB(3.9,111,2,2752,0)=" S CLOZPAT=$O(^YSCL(603.01,""C"",PSODFN,0))"
^XMB(3.9,111,2,2753,0)="""RTN"",""PSOORFI2"",108,0)"
^XMB(3.9,111,2,2754,0)=" S CLOZPAT=$P($G(^YSCL(603.01,+CLOZPAT,0)),""^"",3)"
^XMB(3.9,111,2,2755,0)="""RTN"",""PSOORFI2"",109,0)"
^XMB(3.9,111,2,2756,0)=" S CLOZPAT=$S(CLOZPAT=""M"":2,CLOZPAT=""B"":1,1:0)"
^XMB(3.9,111,2,2757,0)="""RTN"",""PSOORFI2"",110,0)"
^XMB(3.9,111,2,2758,0)=" S:'$D(PSONEW(""# OF REFILLS"")) (PSONEW(""# OF REFILLS""),PSONEW(""N# REF""))=0"
^XMB(3.9,111,2,2759,0)="""RTN"",""PSOORFI2"",111,0)"
^XMB(3.9,111,2,2760,0)=" Q"
^XMB(3.9,111,2,2761,0)="""RTN"",""PSOORFI2"",112,0)"
^XMB(3.9,111,2,2762,0)="ELIG I $G(CLOZPAT)=1 S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""   Patient Eligible for 14 Day Supply or 7 Day Supply with 1 refill"""
^XMB(3.9,111,2,2763,0)="""RTN"",""PSOORFI2"",113,0)"
^XMB(3.9,111,2,2764,0)=" I $G(CLOZPAT)=2 S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""   Patient Eligible for 28 Day Supply or 14 Day Supply with 1 refill or 7 Day Supply with 3 refill"""
^XMB(3.9,111,2,2765,0)="""RTN"",""PSOORFI2"",114,0)"
^XMB(3.9,111,2,2766,0)=" Q"
^XMB(3.9,111,2,2767,0)="""RTN"",""PSOORFI2"",115,0)"
^XMB(3.9,111,2,2768,0)="USER(USER) ;returns .01 of 200"
^XMB(3.9,111,2,2769,0)="""RTN"",""PSOORFI2"",116,0)"
^XMB(3.9,111,2,2770,0)=" K DIC,X,Y S DIC=""^VA(200,"",DIC(0)=""M"",X=""`""_USER D ^DIC S USER1=$S(+Y:$P(Y,""^"",2),1:""Unknown"") K DIC,X,Y"
^XMB(3.9,111,2,2771,0)="""RTN"",""PSOORFI2"",117,0)"
^XMB(3.9,111,2,2772,0)=" Q"
^XMB(3.9,111,2,2773,0)="""RTN"",""PSOORFI2"",118,0)"
^XMB(3.9,111,2,2774,0)="INSTNM ;"
^XMB(3.9,111,2,2775,0)="""RTN"",""PSOORFI2"",119,0)"
^XMB(3.9,111,2,2776,0)=" K PSOFINDA,PSODINST I $G(DA) S PSOFINDA=$G(DA)"
^XMB(3.9,111,2,2777,0)="""RTN"",""PSOORFI2"",120,0)"
^XMB(3.9,111,2,2778,0)=" K PSODNM S DA=$G(PSOPINST) I DA S DIC=4,DIQ(0)=""E"",DR="".01"",DIQ=""PSODNM"" D EN^DIQ1 S PSODINST=$G(PSODNM(4,DA,.01,""E"")) K PSODNM,DIC,DR,DA"
^XMB(3.9,111,2,2779,0)="""RTN"",""PSOORFI2"",121,0)"
^XMB(3.9,111,2,2780,0)=" I $G(PSOFINDA) S DA=$G(PSOFINDA) K PSOFINDA"
^XMB(3.9,111,2,2781,0)="""RTN"",""PSOORFI2"",122,0)"
^XMB(3.9,111,2,2782,0)=" Q"
^XMB(3.9,111,2,2783,0)="""RTN"",""PSOORFI2"",123,0)"
^XMB(3.9,111,2,2784,0)="POST S PSOFINY=$G(Y) D ^PSOBUILD S Y=$G(PSOFINY) K PSOFINY D OERR^PSORX1 I $G(PSOQUIT) Q"
^XMB(3.9,111,2,2785,0)="""RTN"",""PSOORFI2"",124,0)"
^XMB(3.9,111,2,2786,0)=" K PSOQFLG F PT=""GET"",""DEAD"",""INP"",""CNH"",""TPB"",""ADDRESS"",""COPAY"" S RTN=PT_""^PSOPTPST"" D @RTN K PSOXFLG Q:$G(POERR(""DEAD""))!($G(PSOQFLG))"
^XMB(3.9,111,2,2787,0)="""RTN"",""PSOORFI2"",125,0)"
^XMB(3.9,111,2,2788,0)=" I $G(POERR(""DEAD"")) S POERR(""QFLG"")=1 Q"
^XMB(3.9,111,2,2789,0)="""RTN"",""PSOORFI2"",126,0)"
^XMB(3.9,111,2,2790,0)=" K PSOERR(""DEAD"") I $G(PSOQFLG) Q"
^XMB(3.9,111,2,2791,0)="""RTN"",""PSOORFI2"",127,0)"
^XMB(3.9,111,2,2792,0)=" D ^PSOORUT2,BLD^PSOORUT1,EN^PSOLMUTL"
^XMB(3.9,111,2,2793,0)="""RTN"",""PSOORFI2"",128,0)"
^XMB(3.9,111,2,2794,0)=" Q"
^XMB(3.9,111,2,2795,0)="""RTN"",""PSOORFI2"",129,0)"
^XMB(3.9,111,2,2796,0)="SIG ;"
^XMB(3.9,111,2,2797,0)="""RTN"",""PSOORFI2"",130,0)"
^XMB(3.9,111,2,2798,0)=" S SIG=0,PSOFINFL=1 F  S SIG=$O(^PS(52.41,ORD,""SIG"",SIG)) Q:'SIG  D"
^XMB(3.9,111,2,2799,0)="""RTN"",""PSOORFI2"",131,0)"
^XMB(3.9,111,2,2800,0)=" .S (MIG,SIG(SIG))=^PS(52.41,ORD,""SIG"",SIG,0)"
^XMB(3.9,111,2,2801,0)="""RTN"",""PSOORFI2"",132,0)"
^XMB(3.9,111,2,2802,0)=" .F SG=1:1:$L(MIG,"" "") S:$L(^TMP(""PSOPO"",$J,IEN,0)_"" ""_$P(MIG,"" "",SG))>80 IEN=IEN+1,$P(^TMP(""PSOPO"",$J,IEN,0),"" "",20)="" "" S ^TMP(""PSOPO"",$J,IEN,0)=$G(^TMP(""PSOPO"",$J,IEN,0))_"" ""_$P(MIG,"" "",SG) D"
^XMB(3.9,111,2,2803,0)="""RTN"",""PSOORFI2"",133,0)"
^XMB(3.9,111,2,2804,0)=" ..I $E(^TMP(""PSOPO"",$J,IEN,0),$L(^TMP(""PSOPO"",$J,IEN,0)))="" "" S ^TMP(""PSOPO"",$J,IEN,0)=$E(^TMP(""PSOPO"",$J,IEN,0),1,($L(^TMP(""PSOPO"",$J,IEN,0))-1))"
^XMB(3.9,111,2,2805,0)="""RTN"",""PSOORFI2"",134,0)"
^XMB(3.9,111,2,2806,0)=" S:$O(SIG(0)) SIGOK=1 K MIG"
^XMB(3.9,111,2,2807,0)="""RTN"",""PSOORFI2"",135,0)"
^XMB(3.9,111,2,2808,0)=" F D=0:0 S D=$O(^PS(52.41,ORD,""INS1"",D)) Q:'D  S PSONEW(""INS"",D)=^PS(52.41,ORD,""INS1"",D,0)"
^XMB(3.9,111,2,2809,0)="""RTN"",""PSOORFI2"",136,0)"
^XMB(3.9,111,2,2810,0)=" ;I PSONEW(""INS"")]"""" S X=PSONEW(""INS"") D SIG^PSOHELP I $G(INS1)]"""" S PSONEW(""SIG"")=$E(INS1,2,9999999)"
^XMB(3.9,111,2,2811,0)="""RTN"",""PSOORFI2"",137,0)"
^XMB(3.9,111,2,2812,0)=" Q"
^XMB(3.9,111,2,2813,0)="""RTN"",""PSOORNE2"")"
^XMB(3.9,111,2,2814,0)="0^12^B65444424^B64900877"
^XMB(3.9,111,2,2815,0)="""RTN"",""PSOORNE2"",1,0)"
^XMB(3.9,111,2,2816,0)="PSOORNE2 ;BIR/SAB-display finished orders from backdoor ;5/23/05 2:05pm"
^XMB(3.9,111,2,2817,0)="""RTN"",""PSOORNE2"",2,0)"
^XMB(3.9,111,2,2818,0)=" ;;7.0;OUTPATIENT PHARMACY;**11,21,23,27,32,37,46,84,103,117,131,146,156,210,148,222**;DEC 1997;Build 12"
^XMB(3.9,111,2,2819,0)="""RTN"",""PSOORNE2"",3,0)"
^XMB(3.9,111,2,2820,0)=" ;External reference ^PSDRUG( supported by DBIA 221"
^XMB(3.9,111,2,2821,0)="""RTN"",""PSOORNE2"",4,0)"
^XMB(3.9,111,2,2822,0)=" ;External reference ^YSCL(603.01 supported by DBIA 2697"
^XMB(3.9,111,2,2823,0)="""RTN"",""PSOORNE2"",5,0)"
^XMB(3.9,111,2,2824,0)=" ;External reference ^PS(50.606 supported by DBIA 2174"
^XMB(3.9,111,2,2825,0)="""RTN"",""PSOORNE2"",6,0)"
^XMB(3.9,111,2,2826,0)=" ;External reference ^PS(50.7 supported by DBIA 2223"
^XMB(3.9,111,2,2827,0)="""RTN"",""PSOORNE2"",7,0)"
^XMB(3.9,111,2,2828,0)=" ;PSO*210 add call to WORDWRAP api"
^XMB(3.9,111,2,2829,0)="""RTN"",""PSOORNE2"",8,0)"
^XMB(3.9,111,2,2830,0)=" ;Reference to $$DAWEXT^PSSDAWUT supported by IA 4708"
^XMB(3.9,111,2,2831,0)="""RTN"",""PSOORNE2"",9,0)"
^XMB(3.9,111,2,2832,0)=" ;"
^XMB(3.9,111,2,2833,0)="""RTN"",""PSOORNE2"",10,0)"
^XMB(3.9,111,2,2834,0)="SEL N ORN,ORD I '$G(PSOCNT) S VALMSG=""This patient has no Prescriptions!"" S VALMBCK="""" Q"
^XMB(3.9,111,2,2835,0)="""RTN"",""PSOORNE2"",11,0)"
^XMB(3.9,111,2,2836,0)=" D K1^PSOORNE6 S DIR(""A"")=""Select Orders by number"",DIR(0)=""LO^1:""_PSOCNT D ^DIR I $D(DIRUT) D KV^PSOVER1 S VALMBCK="""" Q"
^XMB(3.9,111,2,2837,0)="""RTN"",""PSOORNE2"",12,0)"
^XMB(3.9,111,2,2838,0)="NEWSEL N ORN,ORD D K2^PSOORNE6"
^XMB(3.9,111,2,2839,0)="""RTN"",""PSOORNE2"",13,0)"
^XMB(3.9,111,2,2840,0)=" I +Y S PSOOELSE=1,PSLST=Y K PSOREEDT D"
^XMB(3.9,111,2,2841,0)="""RTN"",""PSOORNE2"",14,0)"
^XMB(3.9,111,2,2842,0)=" .F ORD=1:1:$L(PSLST,"","") Q:$P(PSLST,"","",ORD)']""""  S ORN=+$P(PSLST,"","",ORD) D @$S(+PSOLST(ORN)=52:""ACT"",1:""PEN^PSOORNE5"") K PSOREEDT,PSOSIGFL,PSONACT,SIGOK,PSOFDR,DRET,SIG,INS1 D UL1 I $G(PSOQUIT) K PSOQUIT Q"
^XMB(3.9,111,2,2843,0)="""RTN"",""PSOORNE2"",15,0)"
^XMB(3.9,111,2,2844,0)=" K PRC,PHI,RTE I '$G(PSOOELSE) S VALMBCK="""""
^XMB(3.9,111,2,2845,0)="""RTN"",""PSOORNE2"",16,0)"
^XMB(3.9,111,2,2846,0)=" K PSONACT,PSOOELSE D ^PSOBUILD,BLD^PSOORUT1,K3^PSOORNE6"
^XMB(3.9,111,2,2847,0)="""RTN"",""PSOORNE2"",17,0)"
^XMB(3.9,111,2,2848,0)=" Q"
^XMB(3.9,111,2,2849,0)="""RTN"",""PSOORNE2"",18,0)"
^XMB(3.9,111,2,2850,0)=" ;"
^XMB(3.9,111,2,2851,0)="""RTN"",""PSOORNE2"",19,0)"
^XMB(3.9,111,2,2852,0)="ACT N REF K ^TMP(""PSOAO"",$J),PCOMX,PDA,PHI,PRC,ACOM,ANS,PSOFDR,CLOZPAT,ANQREM,DUR,DRET"
^XMB(3.9,111,2,2853,0)="""RTN"",""PSOORNE2"",20,0)"
^XMB(3.9,111,2,2854,0)=" S RXN=$P(PSOLST(ORN),""^"",2),RX0=^PSRX(RXN,0),RX2=$G(^(2)),RX3=$G(^(3)),ST=+$G(^(""STA"")),RXOR=$G(^(""OR1"")),POE=$G(^(""POE"")),EXDT=$S($P($G(^(2)),""^"",6)>DT:1,1:0)"
^XMB(3.9,111,2,2855,0)="""RTN"",""PSOORNE2"",21,0)"
^XMB(3.9,111,2,2856,0)=" I 'RX3 S RX3=$P(RX2,""^"",2),$P(^PSRX(RXN,3),""^"")=$P(RX2,""^"",2)"
^XMB(3.9,111,2,2857,0)="""RTN"",""PSOORNE2"",22,0)"
^XMB(3.9,111,2,2858,0)=" S PSODRG=+$P(RX0,""^"",6),PSODRUG0=^PSDRUG(PSODRG,0),INDT=$G(^(""I""))"
^XMB(3.9,111,2,2859,0)="""RTN"",""PSOORNE2"",23,0)"
^XMB(3.9,111,2,2860,0)=" I 'RXOR,$P(^PSDRUG(PSODRG,2),""^"") S $P(^PSRX(RXN,""OR1""),""^"")=$P(^PSDRUG(PSODRG,2),""^""),RXOR=$P(^PSDRUG(PSODRG,2),""^"")"
^XMB(3.9,111,2,2861,0)="""RTN"",""PSOORNE2"",24,0)"
^XMB(3.9,111,2,2862,0)=" I $P($G(^PSDRUG(PSODRG,""CLOZ1"")),""^"")=""PSOCLO1"" D"
^XMB(3.9,111,2,2863,0)="""RTN"",""PSOORNE2"",25,0)"
^XMB(3.9,111,2,2864,0)=" .S CLOZPAT=$O(^YSCL(603.01,""C"",PSODFN,0)) Q:'CLOZPAT"
^XMB(3.9,111,2,2865,0)="""RTN"",""PSOORNE2"",26,0)"
^XMB(3.9,111,2,2866,0)=" .S CLOZPAT=$P(^YSCL(603.01,CLOZPAT,0),""^"",3)"
^XMB(3.9,111,2,2867,0)="""RTN"",""PSOORNE2"",27,0)"
^XMB(3.9,111,2,2868,0)=" .S CLOZPAT=$S(CLOZPAT=""M"":2,CLOZPAT=""B"":1,1:0)"
^XMB(3.9,111,2,2869,0)="""RTN"",""PSOORNE2"",28,0)"
^XMB(3.9,111,2,2870,0)=" I $D(^XUSEC(""PSORPH"",DUZ)) S RPH=1 D"
^XMB(3.9,111,2,2871,0)="""RTN"",""PSOORNE2"",29,0)"
^XMB(3.9,111,2,2872,0)=" .S PSOACT=$S('ST&($G(INDT)]"""")&(DT>$G(INDT)):""DHPLATC"",ST=1:""DVE"",ST=4:""DV"",ST=3:""DU"",ST=5:""ELTD"",ST=11:""TDPCL"",ST=12&EXDT:""DCL"",ST=12&'EXDT:""CL"",ST>12&(ST'=16):""L"",ST=16:""DL"",1:""DHPEATCL"")"
^XMB(3.9,111,2,2873,0)="""RTN"",""PSOORNE2"",30,0)"
^XMB(3.9,111,2,2874,0)=" .D GET^PSOORNE5 S PSOACT=PSOACT_$S(ACTREN:""N"",1:""""),PSOACT=PSOACT_$S(ACTREF:""R"",1:"""")"
^XMB(3.9,111,2,2875,0)="""RTN"",""PSOORNE2"",31,0)"
^XMB(3.9,111,2,2876,0)=" .I ST=5 S SURX=$O(^PS(52.5,""B"",RXN,0)) I SURX,$P($G(^PS(52.5,SURX,0)),""^"",7)=""L"" S PSOACT=""TL"" K SURX Q"
^XMB(3.9,111,2,2877,0)="""RTN"",""PSOORNE2"",32,0)"
^XMB(3.9,111,2,2878,0)=" .S:ST'=12&('$D(^PS(50.7,+$P(RXOR,""^""),0))) PSOACT=""DL"",VALMSG=""No Pharmacy Orderable Item !"",PSONACT=1"
^XMB(3.9,111,2,2879,0)="""RTN"",""PSOORNE2"",33,0)"
^XMB(3.9,111,2,2880,0)=" .S:ST=12&('$D(^PS(50.7,+$P(RXOR,""^""),0))) PSOACT=""L"",VALMSG=""No Pharmacy Orderable Item !"",PSONACT=1"
^XMB(3.9,111,2,2881,0)="""RTN"",""PSOORNE2"",34,0)"
^XMB(3.9,111,2,2882,0)=" .I ST=14!(ST=15) S VALMSG=""Rx Discontinued By ""_$S(ST=14:""Provider"",1:""Edit"")_"". Cannot be Reinstated."""
^XMB(3.9,111,2,2883,0)="""RTN"",""PSOORNE2"",35,0)"
^XMB(3.9,111,2,2884,0)=" .S:ST=16 VALMSG=""Rx Placed on HOLD by Provider."""
^XMB(3.9,111,2,2885,0)="""RTN"",""PSOORNE2"",36,0)"
^XMB(3.9,111,2,2886,0)=" E  D"
^XMB(3.9,111,2,2887,0)="""RTN"",""PSOORNE2"",37,0)"
^XMB(3.9,111,2,2888,0)=" .I ST=5 S SURX=$O(^PS(52.5,""B"",RXN,0)) I SURX,$P($G(^PS(52.5,SURX,0)),""^"",7)=""L"" S PSOACT=""TL"" Q"
^XMB(3.9,111,2,2889,0)="""RTN"",""PSOORNE2"",38,0)"
^XMB(3.9,111,2,2890,0)=" .S PSOACT=$S(ST'<1&(ST'>4)!(ST>12):"""",ST=12&EXDT&($P($G(PSOPAR),""^"",2)):""CDPLT"",1:""CPLT"")"
^XMB(3.9,111,2,2891,0)="""RTN"",""PSOORNE2"",39,0)"
^XMB(3.9,111,2,2892,0)=" .D GET^PSOORNE5 S PSOACT=PSOACT_$S(ACTREN:""N"",1:""""),PSOACT=PSOACT_$S(ACTREF:""R"",1:"""")"
^XMB(3.9,111,2,2893,0)="""RTN"",""PSOORNE2"",40,0)"
^XMB(3.9,111,2,2894,0)=" .S:'$D(^PS(50.7,+$P(RXOR,""^""),0)) PSOACT=""L"",PSONACT=1,VALMSG=""No Pharmacy Orderable Item !"""
^XMB(3.9,111,2,2895,0)="""RTN"",""PSOORNE2"",41,0)"
^XMB(3.9,111,2,2896,0)=" ;K PSOLKFL D PSOL^PSSLOCK(RXN) I '$G(PSOMSG) K PSOMSG S PSOLKFL=1 S PSOACT="""",VALMSG=""This Order is being edited by another user."""
^XMB(3.9,111,2,2897,0)="""RTN"",""PSOORNE2"",42,0)"
^XMB(3.9,111,2,2898,0)=" K PSOMSG S IEN=0,$P(RN,"" "",12)="" """
^XMB(3.9,111,2,2899,0)="""RTN"",""PSOORNE2"",43,0)"
^XMB(3.9,111,2,2900,0)=" I $G(RPH),ST=1,$P($G(^PSRX(RXN,""PKI"")),""^"") N PKI,PKI1,PKIR,PKIE,DA S DA=RXN D CER^PSOPKIV1 K DA D:$G(PKI1) L1^PSOPKIV1"
^XMB(3.9,111,2,2901,0)="""RTN"",""PSOORNE2"",44,0)"
^XMB(3.9,111,2,2902,0)=" D DIN^PSONFI(+RXOR,$P(RX0,""^"",6))"
^XMB(3.9,111,2,2903,0)="""RTN"",""PSOORNE2"",45,0)"
^XMB(3.9,111,2,2904,0)=" S IEN=IEN+1,^TMP(""PSOAO"",$J,IEN,0)=$S($P($G(^PSRX(RXN,""TPB"")),""^""):""            TPB Rx #: "",1:""                Rx #: "")"
^XMB(3.9,111,2,2905,0)="""RTN"",""PSOORNE2"",46,0)"
^XMB(3.9,111,2,2906,0)=" S ^TMP(""PSOAO"",$J,IEN,0)=^TMP(""PSOAO"",$J,IEN,0)_$P(RX0,""^"")_$S($G(^PSRX(RXN,""IB"")):""$"",1:"""")_$$ECME^PSOBPSUT(RXN)_$E(RN,$L($P(RX0,""^"")_$S($G(^PSRX(RXN,""IB"")):""$"",1:"""")_$$ECME^PSOBPSUT(RXN))+1,12)"
^XMB(3.9,111,2,2907,0)="""RTN"",""PSOORNE2"",47,0)"
^XMB(3.9,111,2,2908,0)=" S IEN=IEN+1,^TMP(""PSOAO"",$J,IEN,0)="" (""_$S($P(PSOPAR,""^"",3):1,1:""#"")_"")""_"" *Orderable Item: ""_$S($D(^PS(50.7,$P(+RXOR,""^""),0)):$P(^PS(50.7,$P(+RXOR,""^""),0),""^"")_"" ""_$P(^PS(50.606,$P(^(0),""^"",2),0),""^""),1:"""")_NFIO"
^XMB(3.9,111,2,2909,0)="""RTN"",""PSOORNE2"",48,0)"
^XMB(3.9,111,2,2910,0)=" S:NFIO[""<DIN>"" NFIO=IEN_"",""_($L(^TMP(""PSOAO"",$J,IEN,0))-4)"
^XMB(3.9,111,2,2911,0)="""RTN"",""PSOORNE2"",49,0)"
^XMB(3.9,111,2,2912,0)=" S IEN=IEN+1,^TMP(""PSOAO"",$J,IEN,0)="" (""_$S($P(PSOPAR,""^"",3):2,1:""#"")_"")""_$S($D(^PSDRUG(""AQ"",$P(RX0,""^"",6))):""       CMOP "",1:""            "")_""Drug: ""_$P(^PSDRUG($P(RX0,""^"",6),0),""^"")_NFID"
^XMB(3.9,111,2,2913,0)="""RTN"",""PSOORNE2"",50,0)"
^XMB(3.9,111,2,2914,0)=" S:NFID[""<DIN>"" NFID=IEN_"",""_($L(^TMP(""PSOAO"",$J,IEN,0))-4)"
^XMB(3.9,111,2,2915,0)="""RTN"",""PSOORNE2"",51,0)"
^XMB(3.9,111,2,2916,0)=" I $$STATUS^PSOBPSUT(RXN,0)'="""",$$RXRLDT^PSOBPSUT(RXN,0) D"
^XMB(3.9,111,2,2917,0)="""RTN"",""PSOORNE2"",52,0)"
^XMB(3.9,111,2,2918,0)=" . S IEN=IEN+1,^TMP(""PSOAO"",$J,IEN,0)="" ""_$S('$P(PSOPAR,""^"",3):""(2)"",1:""   "")_""             NDC: ""_$$GETNDC^PSONDCUT(RXN,0)"
^XMB(3.9,111,2,2919,0)="""RTN"",""PSOORNE2"",53,0)"
^XMB(3.9,111,2,2920,0)=" S:$G(^PSRX(RXN,""TN""))]"""" IEN=IEN+1,^TMP(""PSOAO"",$J,IEN,0)=""          Trade Name: ""_$G(^PSRX(RXN,""TN""))"
^XMB(3.9,111,2,2921,0)="""RTN"",""PSOORNE2"",54,0)"
^XMB(3.9,111,2,2922,0)=" D DOSE^PSOORNE5"
^XMB(3.9,111,2,2923,0)="""RTN"",""PSOORNE2"",55,0)"
^XMB(3.9,111,2,2924,0)=" S IEN=IEN+1,^TMP(""PSOAO"",$J,IEN,0)="" (4)Pat Instructions:"" D INS^PSOORNE5"
^XMB(3.9,111,2,2925,0)="""RTN"",""PSOORNE2"",56,0)"
^XMB(3.9,111,2,2926,0)=" D PC^PSOORNE5"
^XMB(3.9,111,2,2927,0)="""RTN"",""PSOORNE2"",57,0)"
^XMB(3.9,111,2,2928,0)=" S IEN=IEN+1,^TMP(""PSOAO"",$J,IEN,0)=""                 SIG:"""
^XMB(3.9,111,2,2929,0)="""RTN"",""PSOORNE2"",58,0)"
^XMB(3.9,111,2,2930,0)=" I '$P($G(^PSRX(RXN,""SIG"")),""^"",2) S SIGOK=0 D  G PTST"
^XMB(3.9,111,2,2931,0)="""RTN"",""PSOORNE2"",59,0)"
^XMB(3.9,111,2,2932,0)=" .S X=$P($G(^PSRX(RXN,""SIG"")),""^"") D SIGONE^PSOHELP S SIG=$E($G(INS1),2,250)"
^XMB(3.9,111,2,2933,0)="""RTN"",""PSOORNE2"",60,0)"
^XMB(3.9,111,2,2934,0)=" .F SG=1:1:$L(SIG) S:$L(^TMP(""PSOAO"",$J,IEN,0)_"" ""_$P(SIG,"" "",SG))>80 IEN=IEN+1,$P(^TMP(""PSOAO"",$J,IEN,0),"" "",21)="" "" S:$P(SIG,"" "",SG)'="""" ^TMP(""PSOAO"",$J,IEN,0)=$G(^TMP(""PSOAO"",$J,IEN,0))_"" ""_$P(SIG,"" "",SG)"
^XMB(3.9,111,2,2935,0)="""RTN"",""PSOORNE2"",61,0)"
^XMB(3.9,111,2,2936,0)=" S SIGOK=1"
^XMB(3.9,111,2,2937,0)="""RTN"",""PSOORNE2"",62,0)"
^XMB(3.9,111,2,2938,0)=" F I=0:0 S I=$O(^PSRX(RXN,""SIG1"",I)) Q:'I  D                  ;PSO*210"
^XMB(3.9,111,2,2939,0)="""RTN"",""PSOORNE2"",63,0)"
^XMB(3.9,111,2,2940,0)=" . S MIG=$P(^PSRX(RXN,""SIG1"",I,0),""^"")"
^XMB(3.9,111,2,2941,0)="""RTN"",""PSOORNE2"",64,0)"
^XMB(3.9,111,2,2942,0)=" . D WORDWRAP^PSOUTLA2(MIG,.IEN,$NA(^TMP(""PSOAO"",$J)),21)"
^XMB(3.9,111,2,2943,0)="""RTN"",""PSOORNE2"",65,0)"
^XMB(3.9,111,2,2944,0)=" S SIGOK=1 K MIG,SG"
^XMB(3.9,111,2,2945,0)="""RTN"",""PSOORNE2"",66,0)"
^XMB(3.9,111,2,2946,0)="PTST S $P(RN,"" "",25)="" "",PTST=$S($G(^PS(53,+$P(RX0,""^"",3),0))]"""":$P($G(^PS(53,+$P(RX0,""^"",3),0)),""^""),1:""""),IEN=IEN+1"
^XMB(3.9,111,2,2947,0)="""RTN"",""PSOORNE2"",67,0)"
^XMB(3.9,111,2,2948,0)=" S ^TMP(""PSOAO"",$J,IEN,0)="" (5)  Patient Status: ""_PTST_$E(RN,$L(PTST)+1,25)"
^XMB(3.9,111,2,2949,0)="""RTN"",""PSOORNE2"",68,0)"
^XMB(3.9,111,2,2950,0)=" S IEN=IEN+1,^TMP(""PSOAO"",$J,IEN,0)="" (6)      Issue Date: ""_$E($P(RX0,""^"",13),4,5)_""/""_$E($P(RX0,""^"",13),6,7)_""/""_$E($P(RX0,""^"",13),2,3)"
^XMB(3.9,111,2,2951,0)="""RTN"",""PSOORNE2"",69,0)"
^XMB(3.9,111,2,2952,0)=" S ^TMP(""PSOAO"",$J,IEN,0)=^TMP(""PSOAO"",$J,IEN,0)_""               (7)  Fill Date: ""_$E($P(RX2,""^"",2),4,5)_""/""_$E($P(RX2,""^"",2),6,7)_""/""_$E($P(RX2,""^"",2),2,3)"
^XMB(3.9,111,2,2953,0)="""RTN"",""PSOORNE2"",70,0)"
^XMB(3.9,111,2,2954,0)=" S ROU=$S($P(RX0,""^"",11)=""W"":""Window"",1:""Mail"")"
^XMB(3.9,111,2,2955,0)="""RTN"",""PSOORNE2"",71,0)"
^XMB(3.9,111,2,2956,0)=" S REFL=$P(RX0,""^"",9),I=0 F  S I=$O(^PSRX(RXN,1,I)) Q:'I  S REFL=REFL-1,ROU=$S($P(^PSRX(RXN,1,I,0),""^"",2)=""W"":""Window"",1:""Mail"")"
^XMB(3.9,111,2,2957,0)="""RTN"",""PSOORNE2"",72,0)"
^XMB(3.9,111,2,2958,0)=" S IEN=IEN+1,^TMP(""PSOAO"",$J,IEN,0)=""      Last Fill Date: ""_$E($P(RX3,""^""),4,5)_""/""_$E($P(RX3,""^""),6,7)_""/""_$E($P(RX3,""^""),2,3)"
^XMB(3.9,111,2,2959,0)="""RTN"",""PSOORNE2"",73,0)"
^XMB(3.9,111,2,2960,0)=" D CMOP^PSOORNE3"
^XMB(3.9,111,2,2961,0)="""RTN"",""PSOORNE2"",74,0)"
^XMB(3.9,111,2,2962,0)=" S ^TMP(""PSOAO"",$J,IEN,0)=^TMP(""PSOAO"",$J,IEN,0)_"" (""_ROU_$S($G(PSOCMOP)]"""":"", ""_PSOCMOP,1:"""")_"")"" K ROU,PSOCMOP"
^XMB(3.9,111,2,2963,0)="""RTN"",""PSOORNE2"",75,0)"
^XMB(3.9,111,2,2964,0)=" S IEN=IEN+1 I $P(RX2,""^"",15) S ^TMP(""PSOAO"",$J,IEN,0)=""   Returned to Stock: ""_$E($P(RX2,""^"",15),4,5)_""/""_$E($P(RX2,""^"",15),6,7)_""/""_$E($P(RX2,""^"",15),2,3)_$S($P(RX2,""^"",14):"" (Reprinted)"",1:"""")"
^XMB(3.9,111,2,2965,0)="""RTN"",""PSOORNE2"",76,0)"
^XMB(3.9,111,2,2966,0)=" E  S ^TMP(""PSOAO"",$J,IEN,0)=""   Last Release Date: "" D"
^XMB(3.9,111,2,2967,0)="""RTN"",""PSOORNE2"",77,0)"
^XMB(3.9,111,2,2968,0)=" .S RLD=$S($P(RX2,""^"",13):$E($P(RX2,""^"",13),4,5)_""/""_$E($P(RX2,""^"",13),6,7)_""/""_$E($P(RX2,""^"",13),2,3),1:"""")"
^XMB(3.9,111,2,2969,0)="""RTN"",""PSOORNE2"",78,0)"
^XMB(3.9,111,2,2970,0)=" .I $O(^PSRX(RXN,1,0)) F I=0:0 S I=$O(^PSRX(RXN,1,I)) Q:'I  D"
^XMB(3.9,111,2,2971,0)="""RTN"",""PSOORNE2"",79,0)"
^XMB(3.9,111,2,2972,0)=" ..I $P(^PSRX(RXN,1,I,0),""^"",18) S RLD=$E($P(^(0),""^"",18),4,5)_""/""_$E($P(^(0),""^"",18),6,7)_""/""_$E($P(^(0),""^"",18),2,3)"
^XMB(3.9,111,2,2973,0)="""RTN"",""PSOORNE2"",80,0)"
^XMB(3.9,111,2,2974,0)=" .S ^TMP(""PSOAO"",$J,IEN,0)=^TMP(""PSOAO"",$J,IEN,0)_$S($G(RLD)]"""":RLD,1:""        "")"
^XMB(3.9,111,2,2975,0)="""RTN"",""PSOORNE2"",81,0)"
^XMB(3.9,111,2,2976,0)=" S ^TMP(""PSOAO"",$J,IEN,0)=^TMP(""PSOAO"",$J,IEN,0)_""               (8)      Lot #: ""_$P($G(RX2),""^"",4)"
^XMB(3.9,111,2,2977,0)="""RTN"",""PSOORNE2"",82,0)"
^XMB(3.9,111,2,2978,0)=" S IEN=IEN+1,^TMP(""PSOAO"",$J,IEN,0)=""             Expires: ""_$E($P(RX2,""^"",6),4,5)_""/""_$E($P(RX2,""^"",6),6,7)_""/""_$E($P(RX2,""^"",6),2,3)"
^XMB(3.9,111,2,2979,0)="""RTN"",""PSOORNE2"",83,0)"
^XMB(3.9,111,2,2980,0)=" S ^TMP(""PSOAO"",$J,IEN,0)=^TMP(""PSOAO"",$J,IEN,0)_""                          MFG: ""_$P($G(RX2),""^"",8)"
^XMB(3.9,111,2,2981,0)="""RTN"",""PSOORNE2"",84,0)"
^XMB(3.9,111,2,2982,0)=" S IEN=IEN+1,^TMP(""PSOAO"",$J,IEN,0)=""(9)      Days Supply: ""_$P(RX0,""^"",8)_$S($L($P(RX0,""^"",8))=1:"" "",1:"""")"
^XMB(3.9,111,2,2983,0)="""RTN"",""PSOORNE2"",85,0)"
^XMB(3.9,111,2,2984,0)=" S ^TMP(""PSOAO"",$J,IEN,0)=^TMP(""PSOAO"",$J,IEN,0)_""                    (10)  QTY""_$S($P($G(^PSDRUG($P(RX0,""^"",6),660)),""^"",8)]"""":"" (""_$P($G(^PSDRUG($P(RX0,""^"",6),660)),""^"",8)_"")"",1:"" (  )"")_"": ""_$P(RX0,""^"",7)"
^XMB(3.9,111,2,2985,0)="""RTN"",""PSOORNE2"",86,0)"
^XMB(3.9,111,2,2986,0)=" I $P($G(^PSDRUG($P(RX0,""^"",6),5)),""^"")]"""" D"
^XMB(3.9,111,2,2987,0)="""RTN"",""PSOORNE2"",87,0)"
^XMB(3.9,111,2,2988,0)=" .S $P(RN,"" "",79)="" "",IEN=IEN+1"
^XMB(3.9,111,2,2989,0)="""RTN"",""PSOORNE2"",88,0)"
^XMB(3.9,111,2,2990,0)=" .S ^TMP(""PSOAO"",$J,IEN,0)=$E(RN,$L(""QTY DSP MSG: ""_$P(^PSDRUG($P(RX0,""^"",6),5),""^""))+1,79)_""QTY DSP MSG: ""_$P(^PSDRUG($P(RX0,""^"",6),5),""^"") K RN"
^XMB(3.9,111,2,2991,0)="""RTN"",""PSOORNE2"",89,0)"
^XMB(3.9,111,2,2992,0)=" S IEN=IEN+1,^TMP(""PSOAO"",$J,IEN,0)=""(11)    # of Refills: ""_$P(RX0,""^"",9)_$S($L($P(RX0,""^"",9))=1:"" "",1:"""")_""                          Remaining: ""_REFL"
^XMB(3.9,111,2,2993,0)="""RTN"",""PSOORNE2"",90,0)"
^XMB(3.9,111,2,2994,0)=" S IEN=IEN+1,^TMP(""PSOAO"",$J,IEN,0)=""(12)        Provider: ""_$S($D(^VA(200,$P(RX0,""^"",4),0)):$P(^VA(200,$P(RX0,""^"",4),0),""^""),1:""UNKNOWN"")"
^XMB(3.9,111,2,2995,0)="""RTN"",""PSOORNE2"",91,0)"
^XMB(3.9,111,2,2996,0)=" I $P(RX3,""^"",3) S IEN=IEN+1,^TMP(""PSOAO"",$J,IEN,0)=""        Cos-Provider: ""_$P(^VA(200,$S($G(PSORX(""COSIGNING PROVIDER"")):PSORX(""COSIGNING PROVIDER""),1:$P(RX3,""^"",3)),0),""^"")"
^XMB(3.9,111,2,2997,0)="""RTN"",""PSOORNE2"",92,0)"
^XMB(3.9,111,2,2998,0)=" S IEN=IEN+1,^TMP(""PSOAO"",$J,IEN,0)=""(13)         Routing: ""_$S($P(RX0,""^"",11)=""M"":""MAIL"",1:""WINDOW"")_""                  (14)     Copies: ""_$S($P(RX0,""^"",18):$P(RX0,""^"",18),1:1)"
^XMB(3.9,111,2,2999,0)="""RTN"",""PSOORNE2"",93,0)"
^XMB(3.9,111,2,3000,0)=" S:$P(RX0,""^"",11)=""W""&($P(PSOPAR,""^"",12)) IEN=IEN+1,^TMP(""PSOAO"",$J,IEN,0)=""    Method of Pickup: ""_$G(^PSRX(RXN,""MP""))"
^XMB(3.9,111,2,3001,0)="""RTN"",""PSOORNE2"",94,0)"
^XMB(3.9,111,2,3002,0)=" S IEN=IEN+1,^TMP(""PSOAO"",$J,IEN,0)=""(15)          Clinic: ""_$S($D(^SC(+$P(RX0,""^"",5),0)):$P(^SC($P(RX0,""^"",5),0),""^""),1:""Not on File"")"
^XMB(3.9,111,2,3003,0)="""RTN"",""PSOORNE2"",95,0)"
^XMB(3.9,111,2,3004,0)=" S IEN=IEN+1,^TMP(""PSOAO"",$J,IEN,0)=""(16)        Division: ""_$S($G(^PS(59,+$P(RX2,""^"",9),0))]"""":$P(^PS(59,$P(RX2,""^"",9),0),""^"")_"" (""_$P(^(0),""^"",6)_"")"",1:""UNKNOWN"")"
^XMB(3.9,111,2,3005,0)="""RTN"",""PSOORNE2"",96,0)"
^XMB(3.9,111,2,3006,0)=" S IEN=IEN+1,^TMP(""PSOAO"",$J,IEN,0)=""(17)      Pharmacist: ""_$S($P(RX2,""^"",3):$P(^VA(200,$P(RX2,""^"",3),0),""^""),1:"""")"
^XMB(3.9,111,2,3007,0)="""RTN"",""PSOORNE2"",97,0)"
^XMB(3.9,111,2,3008,0)=" S IEN=IEN+1,^TMP(""PSOAO"",$J,IEN,0)=""(18)         Remarks:"" D RMK^PSOORNE3"
^XMB(3.9,111,2,3009,0)="""RTN"",""PSOORNE2"",98,0)"
^XMB(3.9,111,2,3010,0)=" S IEN=IEN+1,^TMP(""PSOAO"",$J,IEN,0)=""(19)      Counseling: ""_$S($P($G(^PSRX(RXN,""PC"")),""^""):""YES"",1:""NO"")_""                      ""_$S($P($G(^PSRX(RXN,""PC"")),""^""):""Was Counseling Understood: ""_$S($P($G(^PSRX(RXN,""PC"")),""^"",2):""YES"",1:""NO""),1:"""")"
^XMB(3.9,111,2,3011,0)="""RTN"",""PSOORNE2"",99,0)"
^XMB(3.9,111,2,3012,0)=" S:$O(^PSRX(RXN,1,0)) REF=1,IEN=IEN+1,^TMP(""PSOAO"",$J,IEN,0)=""(20)     Refill Data"""
^XMB(3.9,111,2,3013,0)="""RTN"",""PSOORNE2"",100,0)"
^XMB(3.9,111,2,3014,0)=" I $$STATUS^PSOBPSUT(RXN,0)'="""" D"
^XMB(3.9,111,2,3015,0)="""RTN"",""PSOORNE2"",101,0)"
^XMB(3.9,111,2,3016,0)=" . N DAW S IEN=IEN+1,DAW=$$GETDAW^PSODAWUT(RXN,0)"
^XMB(3.9,111,2,3017,0)="""RTN"",""PSOORNE2"",102,0)"
^XMB(3.9,111,2,3018,0)=" . S ^TMP(""PSOAO"",$J,IEN,0)=""(21)        DAW Code: ""_DAW_"" - ""_$$DAWEXT^PSSDAWUT(DAW)"
^XMB(3.9,111,2,3019,0)="""RTN"",""PSOORNE2"",103,0)"
^XMB(3.9,111,2,3020,0)=" D DISP^PSOORNE6"
^XMB(3.9,111,2,3021,0)="""RTN"",""PSOORNE2"",104,0)"
^XMB(3.9,111,2,3022,0)=" I $G(PSOBEDT),PSOACT[""E"" S PSOACT=""E"""
^XMB(3.9,111,2,3023,0)="""RTN"",""PSOORNE2"",105,0)"
^XMB(3.9,111,2,3024,0)=" I $G(PSOBEDT),PSOACT'[""E"" S PSOACT="""""
^XMB(3.9,111,2,3025,0)="""RTN"",""PSOORNE2"",106,0)"
^XMB(3.9,111,2,3026,0)=" Q:$G(PSORXED)!($G(COPY))!($G(UPMI))  S:$G(PSOBEDT) (PSOEDIT,PSORXED)=1 D ^PSOLMLST ; I '$G(PSOLKFL) D PSOUL^PSSLOCK($P(PSOLST(ORN),""^"",2))"
^XMB(3.9,111,2,3027,0)="""RTN"",""PSOORNE2"",107,0)"
^XMB(3.9,111,2,3028,0)=" K DRET,SIG"
^XMB(3.9,111,2,3029,0)="""RTN"",""PSOORNE2"",108,0)"
^XMB(3.9,111,2,3030,0)=" Q"
^XMB(3.9,111,2,3031,0)="""RTN"",""PSOORNE2"",109,0)"
^XMB(3.9,111,2,3032,0)="UL1 ;"
^XMB(3.9,111,2,3033,0)="""RTN"",""PSOORNE2"",110,0)"
^XMB(3.9,111,2,3034,0)=" ;I +PSOLST(ORN)=52 D PSOUL^PSSLOCK($P(PSOLST(ORN),""^"",2)) Q"
^XMB(3.9,111,2,3035,0)="""RTN"",""PSOORNE2"",111,0)"
^XMB(3.9,111,2,3036,0)=" ;I $D(^PS(52.41,$P(PSOLST(ORN),""^"",2),0)) D PSOUL^PSSLOCK($P(PSOLST(ORN),""^"",2)_""S"")"
^XMB(3.9,111,2,3037,0)="""RTN"",""PSOORNE2"",112,0)"
^XMB(3.9,111,2,3038,0)=" Q"
^XMB(3.9,111,2,3039,0)="""RTN"",""PSOORNE5"")"
^XMB(3.9,111,2,3040,0)="0^13^B59135982^B58023770"
^XMB(3.9,111,2,3041,0)="""RTN"",""PSOORNE5"",1,0)"
^XMB(3.9,111,2,3042,0)="PSOORNE5 ;BIR/SAB - display orders from backdoor con't ;5/23/05 1:46pm"
^XMB(3.9,111,2,3043,0)="""RTN"",""PSOORNE5"",2,0)"
^XMB(3.9,111,2,3044,0)=" ;;7.0;OUTPATIENT PHARMACY;**11,27,32,46,78,99,117,131,146,171,180,210,222**;DEC 1997;Build 12"
^XMB(3.9,111,2,3045,0)="""RTN"",""PSOORNE5"",3,0)"
^XMB(3.9,111,2,3046,0)=" ;External reference to ^PSDRUG supported by DBIA 221"
^XMB(3.9,111,2,3047,0)="""RTN"",""PSOORNE5"",4,0)"
^XMB(3.9,111,2,3048,0)=" ;External references L and UL^PSSLOCK supported by DBIA 2789"
^XMB(3.9,111,2,3049,0)="""RTN"",""PSOORNE5"",5,0)"
^XMB(3.9,111,2,3050,0)=" ;External reference to ^PS(51.2 supported by DBIA 2226"
^XMB(3.9,111,2,3051,0)="""RTN"",""PSOORNE5"",6,0)"
^XMB(3.9,111,2,3052,0)=" ;External reference to ^PS(50.607 supported by DBIA 2221"
^XMB(3.9,111,2,3053,0)="""RTN"",""PSOORNE5"",7,0)"
^XMB(3.9,111,2,3054,0)=" ;External reference ^PS(55 supported by DBIA 2228"
^XMB(3.9,111,2,3055,0)="""RTN"",""PSOORNE5"",8,0)"
^XMB(3.9,111,2,3056,0)=" ;called from PSOORNE2"
^XMB(3.9,111,2,3057,0)="""RTN"",""PSOORNE5"",9,0)"
^XMB(3.9,111,2,3058,0)=" ;PSO*210 add call to WORDWRAP api"
^XMB(3.9,111,2,3059,0)="""RTN"",""PSOORNE5"",10,0)"
^XMB(3.9,111,2,3060,0)=" ;"
^XMB(3.9,111,2,3061,0)="""RTN"",""PSOORNE5"",11,0)"
^XMB(3.9,111,2,3062,0)="PEN ;pending orders"
^XMB(3.9,111,2,3063,0)="""RTN"",""PSOORNE5"",12,0)"
^XMB(3.9,111,2,3064,0)=" K ^TMP(""PSOPO"",$J),PSORX(""ISSUE DATE""),PSORX(""FILL DATE"") S ORSV=ORD,ORD=$P(PSOLST(ORN),""^"",2)"
^XMB(3.9,111,2,3065,0)="""RTN"",""PSOORNE5"",13,0)"
^XMB(3.9,111,2,3066,0)=" I $P($G(^PS(52.41,ORD,0)),""^"",3)=""DC""!($P($G(^(0)),""^"",3)=""DE"") S VALMBCK=""R"" Q"
^XMB(3.9,111,2,3067,0)="""RTN"",""PSOORNE5"",14,0)"
^XMB(3.9,111,2,3068,0)=" I $G(PSODFN)'=$P($G(^PS(52.41,ORD,0)),""^"",2) S VALMBCK="""" Q"
^XMB(3.9,111,2,3069,0)="""RTN"",""PSOORNE5"",15,0)"
^XMB(3.9,111,2,3070,0)=" I $G(PSOTPBFG) N PSOTPPEN,PSOTPPEX S PSOTPPEN=ORD,PSOTPPEX=0 D VOPNR^PSOTPCAN I PSOTPPEX K PSOTPPEX,PSOTPPEN S VALMBCK=""R"" Q"
^XMB(3.9,111,2,3071,0)="""RTN"",""PSOORNE5"",16,0)"
^XMB(3.9,111,2,3072,0)=" K PSOTPPEX,PSOTPPEN"
^XMB(3.9,111,2,3073,0)="""RTN"",""PSOORNE5"",17,0)"
^XMB(3.9,111,2,3074,0)=" ;I '$G(PSOTPBFG) D DSPL^PSOTPCAN(ORD)"
^XMB(3.9,111,2,3075,0)="""RTN"",""PSOORNE5"",18,0)"
^XMB(3.9,111,2,3076,0)=" ;S X=PSODFN_"";DPT("" D LK^ORX2 I 'Y S VALMSG=""Another person is entering orders for this patient."",VALMBCK="""" Q"
^XMB(3.9,111,2,3077,0)="""RTN"",""PSOORNE5"",19,0)"
^XMB(3.9,111,2,3078,0)=" I '$G(PSOFIN) S PSOPLCK=$$L^PSSLOCK(PSODFN,0) I '$G(PSOPLCK) S VALMSG=$S($P($G(PSOPLCK),""^"",2)'="""":$P($G(PSOPLCK),""^"",2)_"" is working on this patient."",1:""Another person is entering orders for this patient.""),VALMBCK="""" K PSOPLCK Q"
^XMB(3.9,111,2,3079,0)="""RTN"",""PSOORNE5"",20,0)"
^XMB(3.9,111,2,3080,0)=" K PSOPLCK ; D PSOL^PSSLOCK($P(PSOLST(ORN),""^"",2)_""S"") I '$G(PSOMSG) S VAMLSG=$S($P($G(PSOMSG),""^"",2)'="""":$P($G(PSOMSG),""^"",2),1:""Another person is editing this order.""),PSOACT="""" K PSOMSG G OK ;VALMBCK="""" Q"
^XMB(3.9,111,2,3081,0)="""RTN"",""PSOORNE5"",21,0)"
^XMB(3.9,111,2,3082,0)=" S PSODRG=+$P($G(^PS(52.41,ORD,0)),""^"",9) I $G(^PSDRUG(PSODRG,""I""))]"""",DT>$G(^(""I"")) S VALMSG=""This Drug has been Inactivated."""
^XMB(3.9,111,2,3083,0)="""RTN"",""PSOORNE5"",22,0)"
^XMB(3.9,111,2,3084,0)=" K PSOMSG S PSOACT=$S($D(^XUSEC(""PSORPH"",DUZ)):""DEF"",'$D(^XUSEC(""PSORPH"",DUZ))&($P($G(PSOPAR),""^"",2)):""F"",1:"""")"
^XMB(3.9,111,2,3085,0)="""RTN"",""PSOORNE5"",23,0)"
^XMB(3.9,111,2,3086,0)="OK S PAT=PSODFN,PSORNSV=ORN,PSORNLT=PSLST D ORD^PSOORFIN S PSLST=PSORNLT,ORD=ORSV,ORN=PSORNSV K ORSV,PSORNSV,PSORNLT,PSODRUG S VALMBCK=""R"""
^XMB(3.9,111,2,3087,0)="""RTN"",""PSOORNE5"",24,0)"
^XMB(3.9,111,2,3088,0)=" K ORCHK,ORDRG,PSOFDR,SIGOK,PSONEW,PSORX(""ISSUE DATE""),PSORX(""FILL DATE""),PSORX(""FN"")"
^XMB(3.9,111,2,3089,0)="""RTN"",""PSOORNE5"",25,0)"
^XMB(3.9,111,2,3090,0)=" K:'$G(MEDP) PAT"
^XMB(3.9,111,2,3091,0)="""RTN"",""PSOORNE5"",26,0)"
^XMB(3.9,111,2,3092,0)=" D CLEAN^PSOVER1 ;S X=PSODFN_"";DPT("" D ULK^ORX2"
^XMB(3.9,111,2,3093,0)="""RTN"",""PSOORNE5"",27,0)"
^XMB(3.9,111,2,3094,0)=" I '$G(PSOFIN) D UL^PSSLOCK(PSODFN)"
^XMB(3.9,111,2,3095,0)="""RTN"",""PSOORNE5"",28,0)"
^XMB(3.9,111,2,3096,0)=" Q"
^XMB(3.9,111,2,3097,0)="""RTN"",""PSOORNE5"",29,0)"
^XMB(3.9,111,2,3098,0)="RXNCHK S PSOY=$O(PSONEW(""OLD LAST RX#"","""")) I PSOY="""" D AUTO^PSONRXN Q"
^XMB(3.9,111,2,3099,0)="""RTN"",""PSOORNE5"",30,0)"
^XMB(3.9,111,2,3100,0)=" S PSONRXN(""TYPE"")=$S('+$G(^PS(59,+PSOSITE,2)):8,PSODRUG(""DEA"")[""A""&(+$G(^PS(59,+PSOSITE,2))):3,1:8)"
^XMB(3.9,111,2,3101,0)="""RTN"",""PSOORNE5"",31,0)"
^XMB(3.9,111,2,3102,0)=" S PSONEW(""QFLG"")=0 I PSOY'=PSONRXN(""TYPE""),$P($G(PSOPAR),""^"",7)=1 D"
^XMB(3.9,111,2,3103,0)="""RTN"",""PSOORNE5"",32,0)"
^XMB(3.9,111,2,3104,0)=" .S DIE=""^PS(59,"",DA=PSOSITE,PSOX=PSONEW(""OLD LAST RX#"",PSOY)"
^XMB(3.9,111,2,3105,0)="""RTN"",""PSOORNE5"",33,0)"
^XMB(3.9,111,2,3106,0)=" .L +^PS(59,+PSOSITE,PSOY):0"
^XMB(3.9,111,2,3107,0)="""RTN"",""PSOORNE5"",34,0)"
^XMB(3.9,111,2,3108,0)=" .S DR=$S(PSOY=8:""2003////""_PSOX,PSOY=3:""1002.1////""_PSOX,1:""2003////""_PSOX)"
^XMB(3.9,111,2,3109,0)="""RTN"",""PSOORNE5"",35,0)"
^XMB(3.9,111,2,3110,0)=" .D:PSOX<$P(^PS(59,+PSOSITE,PSOY),""^"",3) ^DIE K DIE,X,Y L -^PS(59,+PSOSITE,PSOY)"
^XMB(3.9,111,2,3111,0)="""RTN"",""PSOORNE5"",36,0)"
^XMB(3.9,111,2,3112,0)=" .L +^PS(59,+PSOSITE,PSONRXN(""TYPE"")):0"
^XMB(3.9,111,2,3113,0)="""RTN"",""PSOORNE5"",37,0)"
^XMB(3.9,111,2,3114,0)=" .S PSOX1=^PS(59,+PSOSITE,PSONRXN(""TYPE"")),PSONRXN(""LO"")=$P(PSOX1,""^"")"
^XMB(3.9,111,2,3115,0)="""RTN"",""PSOORNE5"",38,0)"
^XMB(3.9,111,2,3116,0)=" .S PSONRXN(""HI"")=$P(PSOX1,""^"",2),PSOI=$P(PSOX1,""^"",3),PSONEW(""OLD LAST RX#"",PSONRXN(""TYPE""))=PSOI"
^XMB(3.9,111,2,3117,0)="""RTN"",""PSOORNE5"",39,0)"
^XMB(3.9,111,2,3118,0)=" .S:PSOI<PSONRXN(""LO"") PSOI=PSONRXN(""LO"")"
^XMB(3.9,111,2,3119,0)="""RTN"",""PSOORNE5"",40,0)"
^XMB(3.9,111,2,3120,0)=" .D LOOP2 I PSONEW(""QFLG"") L -^PS(59,+PSOSITE,PSONRXN(""TYPE"")),-^PSRX(""B"",PSOI) Q"
^XMB(3.9,111,2,3121,0)="""RTN"",""PSOORNE5"",41,0)"
^XMB(3.9,111,2,3122,0)=" .K DIC,DIE,DA S DIE=59,DA=PSOSITE"
^XMB(3.9,111,2,3123,0)="""RTN"",""PSOORNE5"",42,0)"
^XMB(3.9,111,2,3124,0)=" .S DR=$S(PSONRXN(""TYPE"")=8:""2003////""_PSOI,PSONRXN(""TYPE"")=3:""1002.1////""_PSOI,1:""2003////""_PSOI)"
^XMB(3.9,111,2,3125,0)="""RTN"",""PSOORNE5"",43,0)"
^XMB(3.9,111,2,3126,0)=" .S PSONEW(""RX #"")=PSOI D ^DIE K DIE,DIC,DR,DA L -^PS(59,+PSOSITE,PSONRXN(""TYPE""))"
^XMB(3.9,111,2,3127,0)="""RTN"",""PSOORNE5"",44,0)"
^XMB(3.9,111,2,3128,0)=" .K PSOX1,PSONRXN,PSOI,X,Y"
^XMB(3.9,111,2,3129,0)="""RTN"",""PSOORNE5"",45,0)"
^XMB(3.9,111,2,3130,0)=" Q"
^XMB(3.9,111,2,3131,0)="""RTN"",""PSOORNE5"",46,0)"
^XMB(3.9,111,2,3132,0)="LOOP2 F  S PSOI=PSOI+1 D:PSOI>PSONRXN(""HI"") FATAL^PSONRXN Q:'$D(^PSRX(""B"",PSOI))!PSONEW(""QFLG"")"
^XMB(3.9,111,2,3133,0)="""RTN"",""PSOORNE5"",47,0)"
^XMB(3.9,111,2,3134,0)=" L +^PSRX(""B"",PSOI):0 I $D(^PSRX(""B"",PSOI))!'$T G LOOP2"
^XMB(3.9,111,2,3135,0)="""RTN"",""PSOORNE5"",48,0)"
^XMB(3.9,111,2,3136,0)=" L -^PSRX(""B"",PSOI)"
^XMB(3.9,111,2,3137,0)="""RTN"",""PSOORNE5"",49,0)"
^XMB(3.9,111,2,3138,0)=" Q"
^XMB(3.9,111,2,3139,0)="""RTN"",""PSOORNE5"",50,0)"
^XMB(3.9,111,2,3140,0)="RDSPL S PSODIR(""CS"")=0"
^XMB(3.9,111,2,3141,0)="""RTN"",""PSOORNE5"",51,0)"
^XMB(3.9,111,2,3142,0)=" F DEA=1:1 Q:$E(PSODRUG(""DEA""),DEA)=""""  I $E(+PSODRUG(""DEA""),DEA)>1,$E(+PSODRUG(""DEA""),DEA)<6 S $P(PSODIR(""CS""),""^"")=1 S:$E(+PSODRUG(""DEA""),DEA)=2 $P(PSODIR(""CS""),""^"",2)=1"
^XMB(3.9,111,2,3143,0)="""RTN"",""PSOORNE5"",52,0)"
^XMB(3.9,111,2,3144,0)=" I $P($G(PSODIR(""CS"")),""^"",2)=1 S (PSONEW(""# OF REFILLS""),PSONEW(""N# REF""))=0 Q"
^XMB(3.9,111,2,3145,0)="""RTN"",""PSOORNE5"",53,0)"
^XMB(3.9,111,2,3146,0)=" I '$D(CLOZPAT) I PSODRUG(""DEA"")[""A""&(PSODRUG(""DEA"")'[""B"")!(PSODRUG(""DEA"")[""F"") S (PSONEW(""# OF REFILLS""),PSONEW(""N# REF""))=0 Q"
^XMB(3.9,111,2,3147,0)="""RTN"",""PSOORNE5"",54,0)"
^XMB(3.9,111,2,3148,0)=" I $D(CLOZPAT) S (PSONEW(""# OF REFILLS""),PSONEW(""N# REF""))=$S($G(CLOZPAT)=2&(PSONEW(""DAYS SUPPLY"")=14):1,$G(CLOZPAT)=2&(PSONEW(""DAYS SUPPLY"")=7):3,$G(CLOZPAT)=1&(PSONEW(""DAYS SUPPLY"")=7):1,1:0) Q"
^XMB(3.9,111,2,3149,0)="""RTN"",""PSOORNE5"",55,0)"
^XMB(3.9,111,2,3150,0)=" I PSODIR(""CS"") D"
^XMB(3.9,111,2,3151,0)="""RTN"",""PSOORNE5"",56,0)"
^XMB(3.9,111,2,3152,0)=" .S PSOX=5,PSOX1=$S($P($G(PSONEW(""PTST NODE"")),""^"",4)>PSOX:PSOX,1:$P($G(PSONEW(""PTST NODE"")),""^"",4)),PSOX=$S(PSOX1=5:PSOX,1:PSOX1)"
^XMB(3.9,111,2,3153,0)="""RTN"",""PSOORNE5"",57,0)"
^XMB(3.9,111,2,3154,0)=" .S PSOX=$S('PSOX:0,PSONEW(""DAYS SUPPLY"")=90:1,1:PSOX),PSDY=PSONEW(""DAYS SUPPLY""),PSDY1=$S(PSDY<60:5,PSDY'<60&(PSDY'>89):2,PSDY=90:1,1:0) S PSOX=$S(PSOX'>PSDY1:PSOX,1:PSDY1)"
^XMB(3.9,111,2,3155,0)="""RTN"",""PSOORNE5"",58,0)"
^XMB(3.9,111,2,3156,0)=" .I PSONEW(""# OF REFILLS"")>PSOX S (PSONEW(""# OF REFILLS""),PSONEW(""N# REF""))=PSOX"
^XMB(3.9,111,2,3157,0)="""RTN"",""PSOORNE5"",59,0)"
^XMB(3.9,111,2,3158,0)=" E  D"
^XMB(3.9,111,2,3159,0)="""RTN"",""PSOORNE5"",60,0)"
^XMB(3.9,111,2,3160,0)=" .S PSOX=11,PSOX1=$S($P($G(PSONEW(""PTST NODE"")),""^"",4)>PSOX:PSOX,1:$P($G(PSONEW(""PTST NODE"")),""^"",4)),PSOX=$S(PSOX1=11:PSOX,1:PSOX1)"
^XMB(3.9,111,2,3161,0)="""RTN"",""PSOORNE5"",61,0)"
^XMB(3.9,111,2,3162,0)=" .S PSDY=PSONEW(""DAYS SUPPLY""),PSDY1=$S(PSDY<60:11,PSDY'<60&(PSDY'>89):5,PSDY=90:3,1:0) S PSOX=$S(PSOX'>PSDY1:PSOX,1:PSDY1)"
^XMB(3.9,111,2,3163,0)="""RTN"",""PSOORNE5"",62,0)"
^XMB(3.9,111,2,3164,0)=" .I PSONEW(""# OF REFILLS"")>PSOX S (PSONEW(""# OF REFILLS""),PSONEW(""N# REF""))=PSOX"
^XMB(3.9,111,2,3165,0)="""RTN"",""PSOORNE5"",63,0)"
^XMB(3.9,111,2,3166,0)=" Q"
^XMB(3.9,111,2,3167,0)="""RTN"",""PSOORNE5"",64,0)"
^XMB(3.9,111,2,3168,0)="GET ;"
^XMB(3.9,111,2,3169,0)="""RTN"",""PSOORNE5"",65,0)"
^XMB(3.9,111,2,3170,0)=" I $P(PSODRUG0,""^"",3)[""2"" S (ACTREF,ACTREN)=0 Q"
^XMB(3.9,111,2,3171,0)="""RTN"",""PSOORNE5"",66,0)"
^XMB(3.9,111,2,3172,0)=" S (ACTREF,ACTREN)=1"
^XMB(3.9,111,2,3173,0)="""RTN"",""PSOORNE5"",67,0)"
^XMB(3.9,111,2,3174,0)=" ;refills"
^XMB(3.9,111,2,3175,0)="""RTN"",""PSOORNE5"",68,0)"
^XMB(3.9,111,2,3176,0)=" I ST S ACTREF=0"
^XMB(3.9,111,2,3177,0)="""RTN"",""PSOORNE5"",69,0)"
^XMB(3.9,111,2,3178,0)=" I '$P(PSOPAR,""^"",11),$G(^PSDRUG(PSODRG,""I""))]"""",DT>$G(^(""I"")) S ACTREF=0,VALMSG=""Inactive Drug, Non Refillable!"""
^XMB(3.9,111,2,3179,0)="""RTN"",""PSOORNE5"",70,0)"
^XMB(3.9,111,2,3180,0)=" ;I $P($G(^PSDRUG(PSODRG,2)),""^"",3)'[""O"" S ACTREF=0"
^XMB(3.9,111,2,3181,0)="""RTN"",""PSOORNE5"",71,0)"
^XMB(3.9,111,2,3182,0)=" S PSORFRM=$P(RX0,""^"",9) F PSOJ=0:0 S PSOJ=$O(^PSRX(RXN,1,PSOJ)) Q:'PSOJ  S PSORFRM=PSORFRM-1"
^XMB(3.9,111,2,3183,0)="""RTN"",""PSOORNE5"",72,0)"
^XMB(3.9,111,2,3184,0)=" S:PSORFRM<0 PSORFRM=0 S:PSORFRM=0 ACTREF=0"
^XMB(3.9,111,2,3185,0)="""RTN"",""PSOORNE5"",73,0)"
^XMB(3.9,111,2,3186,0)=" I $G(RXFL(RXN))]"""",'$P(PSOPAR,""^"",6) S ACTREF=0"
^XMB(3.9,111,2,3187,0)="""RTN"",""PSOORNE5"",74,0)"
^XMB(3.9,111,2,3188,0)=" I $P(PSODRUG0,""^"",3)[""A""&($P(PSODRUG0,""^"",3)'[""B"")!($P(PSODRUG0,""^"",3)[""F"") S ACTREF=0"
^XMB(3.9,111,2,3189,0)="""RTN"",""PSOORNE5"",75,0)"
^XMB(3.9,111,2,3190,0)=" ;renews"
^XMB(3.9,111,2,3191,0)="""RTN"",""PSOORNE5"",76,0)"
^XMB(3.9,111,2,3192,0)=" I $P(PSOPAR,""^"",4)=0 S ACTREN=0 Q"
^XMB(3.9,111,2,3193,0)="""RTN"",""PSOORNE5"",77,0)"
^XMB(3.9,111,2,3194,0)=" I $P($G(^PSDRUG(PSODRG,2)),""^"",3)'[""O"" S ACTREN=0"
^XMB(3.9,111,2,3195,0)="""RTN"",""PSOORNE5"",78,0)"
^XMB(3.9,111,2,3196,0)=" I $G(^PSDRUG(PSODRG,""I""))]"""",DT>$G(^(""I"")) S ACTREN=0,VALMSG=""This Drug has been Inactivated."""
^XMB(3.9,111,2,3197,0)="""RTN"",""PSOORNE5"",79,0)"
^XMB(3.9,111,2,3198,0)=" I '$P($G(^PSDRUG(PSODRG,2)),""^""),'$P($G(^PSRX(RXN,""OR1"")),""^"") S ACTREN=0,VALMSG=""Drug must be Matched to an Orderable Item!"""
^XMB(3.9,111,2,3199,0)="""RTN"",""PSOORNE5"",80,0)"
^XMB(3.9,111,2,3200,0)=" I $P(PSODRUG0,""^"",3)[""A"",$P(PSODRUG0,""^"",3)'[""B"" S ACTREN=0"
^XMB(3.9,111,2,3201,0)="""RTN"",""PSOORNE5"",81,0)"
^XMB(3.9,111,2,3202,0)=" I $P(PSODRUG0,""^"",3)[""W"" S ACTREN=0"
^XMB(3.9,111,2,3203,0)="""RTN"",""PSOORNE5"",82,0)"
^XMB(3.9,111,2,3204,0)=" I $D(^PS(53,+$P(RX0,""^"",3),0)),'$P(^(0),""^"",5) S ACTREN=0"
^XMB(3.9,111,2,3205,0)="""RTN"",""PSOORNE5"",83,0)"
^XMB(3.9,111,2,3206,0)=" S PSOLC=$P(RX0,""^""),PSOLC=$E(PSOLC,$L(PSOLC)) I $A(PSOLC)'<90 S ACTREN=0"
^XMB(3.9,111,2,3207,0)="""RTN"",""PSOORNE5"",84,0)"
^XMB(3.9,111,2,3208,0)=" I ST,ST'=2,ST'=5,ST'=6,ST'=11,ST'=12 S ACTREN=0"
^XMB(3.9,111,2,3209,0)="""RTN"",""PSOORNE5"",85,0)"
^XMB(3.9,111,2,3210,0)=" K PSORFRM,PSOLC,PSODRG,PSODRUG0"
^XMB(3.9,111,2,3211,0)="""RTN"",""PSOORNE5"",86,0)"
^XMB(3.9,111,2,3212,0)=" Q"
^XMB(3.9,111,2,3213,0)="""RTN"",""PSOORNE5"",87,0)"
^XMB(3.9,111,2,3214,0)="INST ;formats instruction from front door"
^XMB(3.9,111,2,3215,0)="""RTN"",""PSOORNE5"",88,0)"
^XMB(3.9,111,2,3216,0)=" D INST^PSOORNE6 Q"
^XMB(3.9,111,2,3217,0)="""RTN"",""PSOORNE5"",89,0)"
^XMB(3.9,111,2,3218,0)="PC ;displays provider comments"
^XMB(3.9,111,2,3219,0)="""RTN"",""PSOORNE5"",90,0)"
^XMB(3.9,111,2,3220,0)=" D PC^PSOORNE6 Q"
^XMB(3.9,111,2,3221,0)="""RTN"",""PSOORNE5"",91,0)"
^XMB(3.9,111,2,3222,0)="INST1 ;formats instruction from front door"
^XMB(3.9,111,2,3223,0)="""RTN"",""PSOORNE5"",92,0)"
^XMB(3.9,111,2,3224,0)=" D INST1^PSOORNE6 Q"
^XMB(3.9,111,2,3225,0)="""RTN"",""PSOORNE5"",93,0)"
^XMB(3.9,111,2,3226,0)="PC1 ;displays provider comments"
^XMB(3.9,111,2,3227,0)="""RTN"",""PSOORNE5"",94,0)"
^XMB(3.9,111,2,3228,0)=" D PC1^PSOORNE6 Q"
^XMB(3.9,111,2,3229,0)="""RTN"",""PSOORNE5"",95,0)"
^XMB(3.9,111,2,3230,0)="DOSE ;displays dosing instruction for both simple and complex backdoor Rxs."
^XMB(3.9,111,2,3231,0)="""RTN"",""PSOORNE5"",96,0)"
^XMB(3.9,111,2,3232,0)=" I '$O(^PSRX(RXN,6,0))  S IEN=IEN+1,^TMP(""PSOAO"",$J,IEN,0)="" (3)          Dosage: "" Q"
^XMB(3.9,111,2,3233,0)="""RTN"",""PSOORNE5"",97,0)"
^XMB(3.9,111,2,3234,0)=" S DS=1 F I=0:0 S I=$O(^PSRX(RXN,6,I)) Q:'I  S DOSE=^PSRX(RXN,6,I,0) D"
^XMB(3.9,111,2,3235,0)="""RTN"",""PSOORNE5"",98,0)"
^XMB(3.9,111,2,3236,0)=" .I '$P(DOSE,""^"",2),$P(DOSE,""^"",9)]"""" S IEN=IEN+1,^TMP(""PSOAO"",$J,IEN,0)=""                Verb: ""_$P(DOSE,""^"",9)"
^XMB(3.9,111,2,3237,0)="""RTN"",""PSOORNE5"",99,0)"
^XMB(3.9,111,2,3238,0)=" .I $G(DS)=1 S IEN=IEN+1,^TMP(""PSOAO"",$J,IEN,0)="" (3)"""
^XMB(3.9,111,2,3239,0)="""RTN"",""PSOORNE5"",100,0)"
^XMB(3.9,111,2,3240,0)=" .D DOSE1 S PSORXED(""ENT"")=$G(PSORXED(""ENT""))+1"
^XMB(3.9,111,2,3241,0)="""RTN"",""PSOORNE5"",101,0)"
^XMB(3.9,111,2,3242,0)=" K DOSE,I"
^XMB(3.9,111,2,3243,0)="""RTN"",""PSOORNE5"",102,0)"
^XMB(3.9,111,2,3244,0)=" Q"
^XMB(3.9,111,2,3245,0)="""RTN"",""PSOORNE5"",103,0)"
^XMB(3.9,111,2,3246,0)="DOSE1 ;"
^XMB(3.9,111,2,3247,0)="""RTN"",""PSOORNE5"",104,0)"
^XMB(3.9,111,2,3248,0)=" I $G(DS)=1 S ^TMP(""PSOAO"",$J,IEN,0)=^TMP(""PSOAO"",$J,IEN,0)_""         *Dosage: ""_$S($E($P(DOSE,""^""),1)="".""&($P(DOSE,""^"",2)):""0"",1:"""")_$P(DOSE,""^"")_$S($P(DOSE,""^"",3)]"""":"" (""_$P(^PS(50.607,$P(DOSE,""^"",3),0),""^"")_"")"",1:"""") K DS G DU"
^XMB(3.9,111,2,3249,0)="""RTN"",""PSOORNE5"",105,0)"
^XMB(3.9,111,2,3250,0)=" S IEN=IEN+1,^TMP(""PSOAO"",$J,IEN,0)=""             *Dosage: ""_$S($E($P(DOSE,""^""),1)="".""&($P(DOSE,""^"",2)):""0"",1:"""")_$P(DOSE,""^"")_$S($P(DOSE,""^"",3)]"""":"" (""_$P(^PS(50.607,$P(DOSE,""^"",3),0),""^"")_"")"",1:"""")"
^XMB(3.9,111,2,3251,0)="""RTN"",""PSOORNE5"",106,0)"
^XMB(3.9,111,2,3252,0)="DU I '$P(DOSE,""^"",2),$P($G(^PS(55,PSODFN,""LAN"")),""^"") S IEN=IEN+1,^TMP(""PSOAO"",$J,IEN,0)=""   Oth. Lang. Dosage: ""_$G(^PSRX(RXN,6,I,1))"
^XMB(3.9,111,2,3253,0)="""RTN"",""PSOORNE5"",107,0)"
^XMB(3.9,111,2,3254,0)=" I $P(DOSE,""^"",2),$P(DOSE,""^"",9)]"""" D"
^XMB(3.9,111,2,3255,0)="""RTN"",""PSOORNE5"",108,0)"
^XMB(3.9,111,2,3256,0)=" .S IEN=IEN+1,^TMP(""PSOAO"",$J,IEN,0)=""                Verb: ""_$P(DOSE,""^"",9)"
^XMB(3.9,111,2,3257,0)="""RTN"",""PSOORNE5"",109,0)"
^XMB(3.9,111,2,3258,0)=" .S IEN=IEN+1,^TMP(""PSOAO"",$J,IEN,0)=""      Dispense Units: ""_$S($E($P(DOSE,""^"",2),1)=""."":""0"",1:"""")_$P(DOSE,""^"",2)"
^XMB(3.9,111,2,3259,0)="""RTN"",""PSOORNE5"",110,0)"
^XMB(3.9,111,2,3260,0)=" .S IEN=IEN+1,^TMP(""PSOAO"",$J,IEN,0)=""                Noun: ""_$P(DOSE,""^"",4)"
^XMB(3.9,111,2,3261,0)="""RTN"",""PSOORNE5"",111,0)"
^XMB(3.9,111,2,3262,0)=" I $P(DOSE,""^"",7) S IEN=IEN+1,^TMP(""PSOAO"",$J,IEN,0)=""              *Route: ""_$P(^PS(51.2,$P(DOSE,""^"",7),0),""^"")"
^XMB(3.9,111,2,3263,0)="""RTN"",""PSOORNE5"",112,0)"
^XMB(3.9,111,2,3264,0)=" S IEN=IEN+1,^TMP(""PSOAO"",$J,IEN,0)=""           *Schedule: ""_$P(DOSE,""^"",8)"
^XMB(3.9,111,2,3265,0)="""RTN"",""PSOORNE5"",113,0)"
^XMB(3.9,111,2,3266,0)=" I $P(DOSE,""^"",5)]"""" D"
^XMB(3.9,111,2,3267,0)="""RTN"",""PSOORNE5"",114,0)"
^XMB(3.9,111,2,3268,0)=" .S DUR=$S($E($P(DOSE,""^"",5),1)'?.N:$E($P(DOSE,""^"",5),2,99)_$E($P(DOSE,""^"",5),1),1:$P(DOSE,""^"",5))"
^XMB(3.9,111,2,3269,0)="""RTN"",""PSOORNE5"",115,0)"
^XMB(3.9,111,2,3270,0)=" .S IEN=IEN+1,^TMP(""PSOAO"",$J,IEN,0)=""           *Duration: ""_DUR_"" (""_$S($P(DOSE,""^"",5)[""M"":""MINUTES"",$P(DOSE,""^"",5)[""H"":""HOURS"",$P(DOSE,""^"",5)[""L"":""MONTHS"",$P(DOSE,""^"",5)[""W"":""WEEKS"",1:""DAYS"")_"")"" K DUR"
^XMB(3.9,111,2,3271,0)="""RTN"",""PSOORNE5"",116,0)"
^XMB(3.9,111,2,3272,0)=" I $P(DOSE,""^"",6)]"""" S IEN=IEN+1,^TMP(""PSOAO"",$J,IEN,0)=""        *Conjunction: ""_$S($P(DOSE,""^"",6)=""A"":""AND"",$P(DOSE,""^"",6)=""T"":""THEN"",$P(DOSE,""^"",6)=""X"":""EXCEPT"",1:"""")"
^XMB(3.9,111,2,3273,0)="""RTN"",""PSOORNE5"",117,0)"
^XMB(3.9,111,2,3274,0)=" Q"
^XMB(3.9,111,2,3275,0)="""RTN"",""PSOORNE5"",118,0)"
^XMB(3.9,111,2,3276,0)="INS ;patient instructions                                        ;PSO*210"
^XMB(3.9,111,2,3277,0)="""RTN"",""PSOORNE5"",119,0)"
^XMB(3.9,111,2,3278,0)=" I $G(^PSRX(RXN,""INS""))]"""",'$O(^PSRX(RXN,""INS1"",0)) D  K SG G SPINS"
^XMB(3.9,111,2,3279,0)="""RTN"",""PSOORNE5"",120,0)"
^XMB(3.9,111,2,3280,0)=" .S PSORXED(""SIG"",1)=^PSRX(RXN,""INS"")"
^XMB(3.9,111,2,3281,0)="""RTN"",""PSOORNE5"",121,0)"
^XMB(3.9,111,2,3282,0)=" .D WORDWRAP^PSOUTLA2(^PSRX(RXN,""INS""),.IEN,$NA(^TMP(""PSOAO"",$J)),21)"
^XMB(3.9,111,2,3283,0)="""RTN"",""PSOORNE5"",122,0)"
^XMB(3.9,111,2,3284,0)=" ;"
^XMB(3.9,111,2,3285,0)="""RTN"",""PSOORNE5"",123,0)"
^XMB(3.9,111,2,3286,0)=" I $O(^PSRX(RXN,""INS1"",0)) D"
^XMB(3.9,111,2,3287,0)="""RTN"",""PSOORNE5"",124,0)"
^XMB(3.9,111,2,3288,0)=" .S T=0 F  S T=$O(^PSRX(RXN,""INS1"",T)) Q:'T  D"
^XMB(3.9,111,2,3289,0)="""RTN"",""PSOORNE5"",125,0)"
^XMB(3.9,111,2,3290,0)=" .. S (PSORXED(""SIG"",T),MIG)=^PSRX(RXN,""INS1"",T,0)"
^XMB(3.9,111,2,3291,0)="""RTN"",""PSOORNE5"",126,0)"
^XMB(3.9,111,2,3292,0)=" .. D WORDWRAP^PSOUTLA2(MIG,.IEN,$NA(^TMP(""PSOAO"",$J)),21)"
^XMB(3.9,111,2,3293,0)="""RTN"",""PSOORNE5"",127,0)"
^XMB(3.9,111,2,3294,0)="SPINS K T,SG,MIG"
^XMB(3.9,111,2,3295,0)="""RTN"",""PSOORNE5"",128,0)"
^XMB(3.9,111,2,3296,0)=" I $P($G(^PS(55,PSODFN,""LAN"")),""^"") S IEN=IEN+1,^TMP(""PSOAO"",$J,IEN,0)=""  Other Pat. Instruc: ""_$S($G(^PSRX(RXN,""INSS""))]"""":^PSRX(RXN,""INSS""),1:"""")"
^XMB(3.9,111,2,3297,0)="""RTN"",""PSOORNE5"",129,0)"
^XMB(3.9,111,2,3298,0)=" Q"
^XMB(3.9,111,2,3299,0)="""RTN"",""PSOORNE5"",130,0)"
^XMB(3.9,111,2,3300,0)="SV S VALMSG=""Pre-POE Rx. Please Compare Dosing Fields with SIG!"""
^XMB(3.9,111,2,3301,0)="""RTN"",""PSOORNE5"",131,0)"
^XMB(3.9,111,2,3302,0)=" Q"
^XMB(3.9,111,2,3303,0)="""RTN"",""PSOORNEW"")"
^XMB(3.9,111,2,3304,0)="0^14^B70191276^B69954269"
^XMB(3.9,111,2,3305,0)="""RTN"",""PSOORNEW"",1,0)"
^XMB(3.9,111,2,3306,0)="PSOORNEW ;BIR/SAB - display orders from oerr ;6/19/06 3:53pm"
^XMB(3.9,111,2,3307,0)="""RTN"",""PSOORNEW"",2,0)"
^XMB(3.9,111,2,3308,0)=" ;;7.0;OUTPATIENT PHARMACY;**11,23,27,32,55,46,71,90,94,106,131,133,143,237,222**;DEC 1997;Build 12"
^XMB(3.9,111,2,3309,0)="""RTN"",""PSOORNEW"",3,0)"
^XMB(3.9,111,2,3310,0)=" ;^PS(50.7 -2223"
^XMB(3.9,111,2,3311,0)="""RTN"",""PSOORNEW"",4,0)"
^XMB(3.9,111,2,3312,0)=" ;^PSDRUG -221"
^XMB(3.9,111,2,3313,0)="""RTN"",""PSOORNEW"",5,0)"
^XMB(3.9,111,2,3314,0)=" ;^PS(50.606 -2174"
^XMB(3.9,111,2,3315,0)="""RTN"",""PSOORNEW"",6,0)"
^XMB(3.9,111,2,3316,0)=" ;^PS(55 -2228"
^XMB(3.9,111,2,3317,0)="""RTN"",""PSOORNEW"",7,0)"
^XMB(3.9,111,2,3318,0)=" ;"
^XMB(3.9,111,2,3319,0)="""RTN"",""PSOORNEW"",8,0)"
^XMB(3.9,111,2,3320,0)=" ;PSO*237 quit Finish if Today > Issue date + 365"
^XMB(3.9,111,2,3321,0)="""RTN"",""PSOORNEW"",9,0)"
^XMB(3.9,111,2,3322,0)=" ;"
^XMB(3.9,111,2,3323,0)="""RTN"",""PSOORNEW"",10,0)"
^XMB(3.9,111,2,3324,0)="DSPL I $G(PSODSPL) S VALMBCK=""Q"" K PSODSPL,PSOANSQD Q"
^XMB(3.9,111,2,3325,0)="""RTN"",""PSOORNEW"",11,0)"
^XMB(3.9,111,2,3326,0)=" Q:'$D(PSOLMC)  K ^TMP(""PSOPO"",$J) S PSOLMC=PSOLMC+1"
^XMB(3.9,111,2,3327,0)="""RTN"",""PSOORNEW"",12,0)"
^XMB(3.9,111,2,3328,0)=" I $D(CLOZPAT) S PSONEW(""DAYS SUPPLY"")=$S($G(PSONEW(""DAYS SUPPLY"")):PSONEW(""DAYS SUPPLY""),1:7) G OI"
^XMB(3.9,111,2,3329,0)="""RTN"",""PSOORNEW"",13,0)"
^XMB(3.9,111,2,3330,0)=" S PSONEW(""DAYS SUPPLY"")=$S($G(PSONEW(""DAYS SUPPLY"")):PSONEW(""DAYS SUPPLY""),+$G(^PS(55,PSODFN,""PS""))&($P(^PS(53,+$G(^PS(55,PSODFN,""PS"")),0),""^"",3))&('$G(PSONEW(""DAYS SUPPLY""))):$P(^PS(53,+$G(^PS(55,PSODFN,""PS"")),0),""^"",3),1:30)"
^XMB(3.9,111,2,3331,0)="""RTN"",""PSOORNEW"",14,0)"
^XMB(3.9,111,2,3332,0)="OI I '$G(PSODRUG(""OI"")) D"
^XMB(3.9,111,2,3333,0)="""RTN"",""PSOORNEW"",15,0)"
^XMB(3.9,111,2,3334,0)=" .S (OI,PSODRUG(""OI""))=$P(OR0,""^"",8),PSODRUG(""OIN"")=$P(^PS(50.7,$P(OR0,""^"",8),0),""^""),OID=$P(OR0,""^"",9)"
^XMB(3.9,111,2,3335,0)="""RTN"",""PSOORNEW"",16,0)"
^XMB(3.9,111,2,3336,0)=" .I $P($G(OR0),""^"",9) S POERR=1,DREN=$P(OR0,""^"",9) D DRG^PSOORDRG K POERR"
^XMB(3.9,111,2,3337,0)="""RTN"",""PSOORNEW"",17,0)"
^XMB(3.9,111,2,3338,0)=" I '$D(CLOZPAT) I $G(PSODRUG(""DEA""))[""A"",$G(PSODRUG(""DEA""))'[""B""!($G(PSODRUG(""DEA""))[""F"") S PSONEW(""# OF REFILLS"")=0"
^XMB(3.9,111,2,3339,0)="""RTN"",""PSOORNEW"",18,0)"
^XMB(3.9,111,2,3340,0)=" I $D(CLOZPAT) S PSONEW(""# OF REFILLS"")=$S($D(PSONEW(""# OF REFILLS"")):PSONEW(""# OF REFILLS""),$G(CLOZPAT)=2&($P(OR0,""^"",11)>2):3,$G(CLOZPAT)&($P(OR0,""^"",11)>1):1,1:0)"
^XMB(3.9,111,2,3341,0)="""RTN"",""PSOORNEW"",19,0)"
^XMB(3.9,111,2,3342,0)=" S IEN=0 D OBX^PSOORFI1,DIN^PSONFI(PSODRUG(""OI""),$S($G(PSODRUG(""IEN"")):PSODRUG(""IEN""),1:""""))"
^XMB(3.9,111,2,3343,0)="""RTN"",""PSOORNEW"",20,0)"
^XMB(3.9,111,2,3344,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""*(1) Orderable Item: ""_$P(^PS(50.7,PSODRUG(""OI""),0),""^"")_"" ""_$P(^PS(50.606,$P(^(0),""^"",2),0),""^"")_NFIO"
^XMB(3.9,111,2,3345,0)="""RTN"",""PSOORNEW"",21,0)"
^XMB(3.9,111,2,3346,0)=" S:NFIO[""<DIN>"" NFIO=IEN_"",""_($L(^TMP(""PSOPO"",$J,IEN,0))-4)"
^XMB(3.9,111,2,3347,0)="""RTN"",""PSOORNEW"",22,0)"
^XMB(3.9,111,2,3348,0)=" K LST I $G(PSODRUG(""NAME""))]"""" D  G PT"
^XMB(3.9,111,2,3349,0)="""RTN"",""PSOORNEW"",23,0)"
^XMB(3.9,111,2,3350,0)=" .S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)="" (2)""_$S($D(^PSDRUG(""AQ"",PSODRUG(""IEN""))):""      CMOP "",1:""           "")_""Drug: ""_PSODRUG(""NAME"")_NFID"
^XMB(3.9,111,2,3351,0)="""RTN"",""PSOORNEW"",24,0)"
^XMB(3.9,111,2,3352,0)=" .S:NFID[""<DIN>"" NFID=IEN_"",""_($L(^TMP(""PSOPO"",$J,IEN,0))-4)"
^XMB(3.9,111,2,3353,0)="""RTN"",""PSOORNEW"",25,0)"
^XMB(3.9,111,2,3354,0)=" .I $P($G(^PSDRUG(PSODRUG(""IEN""),0)),""^"",10)]"""" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""       Drug Message:"" D DRGMSG"
^XMB(3.9,111,2,3355,0)="""RTN"",""PSOORNEW"",26,0)"
^XMB(3.9,111,2,3356,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)="" (2)           Drug: No Dispense Drug Selected"""
^XMB(3.9,111,2,3357,0)="""RTN"",""PSOORNEW"",27,0)"
^XMB(3.9,111,2,3358,0)="PT D DOSE2^PSOORFI4"
^XMB(3.9,111,2,3359,0)="""RTN"",""PSOORNEW"",28,0)"
^XMB(3.9,111,2,3360,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)="" (4)   Pat Instruct:"" D:$O(PSONEW(""SIG"",0)) INST^PSOORFI4"
^XMB(3.9,111,2,3361,0)="""RTN"",""PSOORNEW"",29,0)"
^XMB(3.9,111,2,3362,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""  Provider Comments:"" S TY=3 D INST^PSOORFI1"
^XMB(3.9,111,2,3363,0)="""RTN"",""PSOORNEW"",30,0)"
^XMB(3.9,111,2,3364,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""       Instructions:"" S TY=2 D INST^PSOORFI1"
^XMB(3.9,111,2,3365,0)="""RTN"",""PSOORNEW"",31,0)"
^XMB(3.9,111,2,3366,0)=" K PSOELSE S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""                SIG:"""
^XMB(3.9,111,2,3367,0)="""RTN"",""PSOORNEW"",32,0)"
^XMB(3.9,111,2,3368,0)=" F I=0:0 S I=$O(SIG(I)) Q:'I  S SIG=SIG(I) D"
^XMB(3.9,111,2,3369,0)="""RTN"",""PSOORNEW"",33,0)"
^XMB(3.9,111,2,3370,0)=" .F SG=1:1:$L(SIG) S:$L(^TMP(""PSOPO"",$J,IEN,0)_"" ""_$P(SIG,"" "",SG))>80 IEN=IEN+1,$P(^TMP(""PSOPO"",$J,IEN,0),"" "",20)="" "" S:$P(SIG,"" "",SG)'="""" ^TMP(""PSOPO"",$J,IEN,0)=$G(^TMP(""PSOPO"",$J,IEN,0))_"" ""_$P(SIG,"" "",SG)"
^XMB(3.9,111,2,3371,0)="""RTN"",""PSOORNEW"",34,0)"
^XMB(3.9,111,2,3372,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)="" (5) Patient Status: ""_$P($G(^PS(53,+PSONEW(""PATIENT STATUS""),0)),""^"")"
^XMB(3.9,111,2,3373,0)="""RTN"",""PSOORNEW"",35,0)"
^XMB(3.9,111,2,3374,0)=" K PSOELSE I $G(PSONEW(""ISSUE DATE""))']"""" S PSOELSE=1 S IEN=IEN+1,(PSOID,Y)=$E($P(OR0,""^"",6),1,7) X ^DD(""DD"") S PSONEW(""ISSUE DATE"")=Y,^TMP(""PSOPO"",$J,IEN,0)="" (4)     Issue Date: ""_Y"
^XMB(3.9,111,2,3375,0)="""RTN"",""PSOORNEW"",36,0)"
^XMB(3.9,111,2,3376,0)=" I '$G(PSOELSE) S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)="" (6)     Issue Date: ""_PSONEW(""ISSUE DATE"")"
^XMB(3.9,111,2,3377,0)="""RTN"",""PSOORNEW"",37,0)"
^XMB(3.9,111,2,3378,0)=" K PSOELSE I $G(PSORX(""FILL DATE""))']"""" S PSOELSE=1 D"
^XMB(3.9,111,2,3379,0)="""RTN"",""PSOORNEW"",38,0)"
^XMB(3.9,111,2,3380,0)=" .S (Y,PSORX(""FILL DATE""))=$S($E($P(OR0,""^"",6),1,7)<DT:DT,1:$E($P(OR0,""^"",6),1,7)) X ^DD(""DD"") S PSONEW(""FILL DATE"")=Y,^TMP(""PSOPO"",$J,IEN,0)=^TMP(""PSOPO"",$J,IEN,0)_""                  (5) Fill Date: ""_Y"
^XMB(3.9,111,2,3381,0)="""RTN"",""PSOORNEW"",39,0)"
^XMB(3.9,111,2,3382,0)=" I '$G(PSOELSE) S Y=PSORX(""FILL DATE"") X ^DD(""DD"") S PSORX(""FILL DATE"")=Y,^TMP(""PSOPO"",$J,IEN,0)=^TMP(""PSOPO"",$J,IEN,0)_""       (7) Fill Date: ""_PSORX(""FILL DATE"")"
^XMB(3.9,111,2,3383,0)="""RTN"",""PSOORNEW"",40,0)"
^XMB(3.9,111,2,3384,0)=" I $P(OR0,""^"",18) S IEN=IEN+1,Y=$P(OR0,""^"",18) X ^DD(""DD"") S $P(^TMP(""PSOPO"",$J,IEN,0),"" "",39)=""Effective Date: ""_Y"
^XMB(3.9,111,2,3385,0)="""RTN"",""PSOORNEW"",41,0)"
^XMB(3.9,111,2,3386,0)=" D:$G(CLOZPAT) ELIG^PSOORFI2"
^XMB(3.9,111,2,3387,0)="""RTN"",""PSOORNEW"",42,0)"
^XMB(3.9,111,2,3388,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)="" (8)    Days Supply: ""_PSONEW(""DAYS SUPPLY"")"
^XMB(3.9,111,2,3389,0)="""RTN"",""PSOORNEW"",43,0)"
^XMB(3.9,111,2,3390,0)=" S ^TMP(""PSOPO"",$J,IEN,0)=^TMP(""PSOPO"",$J,IEN,0)_""               (9)   QTY""_$S($P($G(^PSDRUG(+$G(PSODRUG(""IEN"")),660)),""^"",8)]"""":"" (""_$P($G(^PSDRUG(+PSODRUG(""IEN""),660)),""^"",8)_"")"",1:"" (  )"")"
^XMB(3.9,111,2,3391,0)="""RTN"",""PSOORNEW"",44,0)"
^XMB(3.9,111,2,3392,0)=" S ^TMP(""PSOPO"",$J,IEN,0)=^TMP(""PSOPO"",$J,IEN,0)_"": ""_$S($G(PSONEW(""QTY"")):PSONEW(""QTY""),1:$P(OR0,""^"",10))"
^XMB(3.9,111,2,3393,0)="""RTN"",""PSOORNEW"",45,0)"
^XMB(3.9,111,2,3394,0)=" I $P($G(^PSDRUG(+$G(PSODRUG(""IEN"")),5)),""^"")]"""" D"
^XMB(3.9,111,2,3395,0)="""RTN"",""PSOORNEW"",46,0)"
^XMB(3.9,111,2,3396,0)=" .S $P(RN,"" "",79)="" "",IEN=IEN+1"
^XMB(3.9,111,2,3397,0)="""RTN"",""PSOORNEW"",47,0)"
^XMB(3.9,111,2,3398,0)=" .S ^TMP(""PSOPO"",$J,IEN,0)=$E(RN,$L(""QTY DSP MSG: ""_$P(^PSDRUG(PSODRUG(""IEN""),5),""^""))+1,79)_""QTY DSP MSG: ""_$P(^PSDRUG(PSODRUG(""IEN""),5),""^"") K RN"
^XMB(3.9,111,2,3399,0)="""RTN"",""PSOORNEW"",48,0)"
^XMB(3.9,111,2,3400,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""       Provider ordered ""_+$P(OR0,""^"",11)_"" refills"""
^XMB(3.9,111,2,3401,0)="""RTN"",""PSOORNEW"",49,0)"
^XMB(3.9,111,2,3402,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""(10)   # of Refills: ""_$S($G(PSONEW(""# OF REFILLS""))]"""":PSONEW(""# OF REFILLS""),1:$P(OR0,""^"",11))_""               (11)   Routing: ""_$S($G(PSONEW(""MAIL/WINDOW""))=""M"":""MAIL"",1:""WINDOW"")"
^XMB(3.9,111,2,3403,0)="""RTN"",""PSOORNEW"",50,0)"
^XMB(3.9,111,2,3404,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""(12)         Clinic: ""_PSORX(""CLINIC"")"
^XMB(3.9,111,2,3405,0)="""RTN"",""PSOORNEW"",51,0)"
^XMB(3.9,111,2,3406,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""(13)       Provider: ""_PSONEW(""PROVIDER NAME"")"
^XMB(3.9,111,2,3407,0)="""RTN"",""PSOORNEW"",52,0)"
^XMB(3.9,111,2,3408,0)=" I $P($G(^VA(200,$S($G(PSONEW(""PROVIDER"")):PSONEW(""PROVIDER""),1:$P(OR0,""^"",5)),""PS"")),""^"",7)&($P($G(^(""PS"")),""^"",8)) D"
^XMB(3.9,111,2,3409,0)="""RTN"",""PSOORNEW"",53,0)"
^XMB(3.9,111,2,3410,0)=" .S IEN=IEN+1,PSONEW(""COSIGNING PROVIDER"")=$S($G(PSONEW(""COSIGNING PROVIDER"")):PSONEW(""COSIGNING PROVIDER""),1:$P(^(""PS""),""^"",8))"
^XMB(3.9,111,2,3411,0)="""RTN"",""PSOORNEW"",54,0)"
^XMB(3.9,111,2,3412,0)=" .S ^TMP(""PSOPO"",$J,IEN,0)=""       Cos-Provider: ""_$P(^VA(200,PSONEW(""COSIGNING PROVIDER""),0),""^"")"
^XMB(3.9,111,2,3413,0)="""RTN"",""PSOORNEW"",55,0)"
^XMB(3.9,111,2,3414,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""(14)         Copies: ""_$S($G(PSONEW(""COPIES"")):PSONEW(""COPIES""),1:1)"
^XMB(3.9,111,2,3415,0)="""RTN"",""PSOORNEW"",56,0)"
^XMB(3.9,111,2,3416,0)=" S PSONEW(""REMARKS"")=$S($G(PSONEW(""REMARKS""))]"""":PSONEW(""REMARKS""),$P(OR0,""^"",17)=""C"":""Administered in Clinic."",1:"""")"
^XMB(3.9,111,2,3417,0)="""RTN"",""PSOORNEW"",57,0)"
^XMB(3.9,111,2,3418,0)=" S IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""(15)        Remarks:"""
^XMB(3.9,111,2,3419,0)="""RTN"",""PSOORNEW"",58,0)"
^XMB(3.9,111,2,3420,0)=" I $G(PSONEW(""REMARKS""))]"""" D"
^XMB(3.9,111,2,3421,0)="""RTN"",""PSOORNEW"",59,0)"
^XMB(3.9,111,2,3422,0)=" .F SG=1:1:$L(PSONEW(""REMARKS"")) S:$L(^TMP(""PSOPO"",$J,IEN,0)_"" ""_$P(PSONEW(""REMARKS""),"" "",SG))>80 IEN=IEN+1,$P(^TMP(""PSOPO"",$J,IEN,0),"" "",20)="" "" D"
^XMB(3.9,111,2,3423,0)="""RTN"",""PSOORNEW"",60,0)"
^XMB(3.9,111,2,3424,0)=" ..S:$P(PSONEW(""REMARKS""),"" "",SG)'="""" ^TMP(""PSOPO"",$J,IEN,0)=$G(^TMP(""PSOPO"",$J,IEN,0))_"" ""_$P(PSONEW(""REMARKS""),"" "",SG)"
^XMB(3.9,111,2,3425,0)="""RTN"",""PSOORNEW"",61,0)"
^XMB(3.9,111,2,3426,0)=" I $G(PSOSIGFL)!(PSODRUG(""OI"")'=$P(OR0,""^"",8)) S PSONEW(""CLERK CODE"")=DUZ,PSORX(""CLERK CODE"")=$P(^VA(200,DUZ,0),""^""),VALMSG=""This change will create a new prescription!"""
^XMB(3.9,111,2,3427,0)="""RTN"",""PSOORNEW"",62,0)"
^XMB(3.9,111,2,3428,0)=" S $P(RN,"" "",35)="" "",IEN=IEN+1,^TMP(""PSOPO"",$J,IEN,0)=""   Entry By: ""_$P(^VA(200,PSONEW(""CLERK CODE""),0),""^"")_$E(RN,$L($P(^VA(200,PSONEW(""CLERK CODE""),0),""^""))+1,35)"
^XMB(3.9,111,2,3429,0)="""RTN"",""PSOORNEW"",63,0)"
^XMB(3.9,111,2,3430,0)=" S Y=$P(OR0,""^"",12) X ^DD(""DD"") S ^TMP(""PSOPO"",$J,IEN,0)=^TMP(""PSOPO"",$J,IEN,0)_""Entry Date: ""_$E($P(OR0,""^"",12),4,5)_""/""_$E($P(OR0,""^"",12),6,7)_""/""_$E($P(OR0,""^"",12),2,3)_"" ""_$P(Y,""@"",2) K RN"
^XMB(3.9,111,2,3431,0)="""RTN"",""PSOORNEW"",64,0)"
^XMB(3.9,111,2,3432,0)=" I PSOLMC<2 D ^PSOLMPO1 S VALMBCK=""Q"",PSOLMC=0"
^XMB(3.9,111,2,3433,0)="""RTN"",""PSOORNEW"",65,0)"
^XMB(3.9,111,2,3434,0)=" S:PSOLMC>1 VALMBCK=""R"""
^XMB(3.9,111,2,3435,0)="""RTN"",""PSOORNEW"",66,0)"
^XMB(3.9,111,2,3436,0)=" Q"
^XMB(3.9,111,2,3437,0)="""RTN"",""PSOORNEW"",67,0)"
^XMB(3.9,111,2,3438,0)="ORCHK D PROVCOM^PSOORFI4,ORCHK^PSOORFI4"
^XMB(3.9,111,2,3439,0)="""RTN"",""PSOORNEW"",68,0)"
^XMB(3.9,111,2,3440,0)=" Q"
^XMB(3.9,111,2,3441,0)="""RTN"",""PSOORNEW"",69,0)"
^XMB(3.9,111,2,3442,0)="EDT D KV S DIR(""A"",1)=""* Indicates which fields will create an new Order"",DIR(""A"")=""Select Field to Edit by number"",DIR(0)=""LO^1:15"" D ^DIR Q:$D(DTOUT)!($D(DUOUT))"
^XMB(3.9,111,2,3443,0)="""RTN"",""PSOORNEW"",70,0)"
^XMB(3.9,111,2,3444,0)="EDTSEL N LST,FLD,OUT D KV S OUT=0"
^XMB(3.9,111,2,3445,0)="""RTN"",""PSOORNEW"",71,0)"
^XMB(3.9,111,2,3446,0)=" I +Y S LST=Y D FULL^VALM1 N PSODOSE M PSODOSE=PSONEW D  G DSPL"
^XMB(3.9,111,2,3447,0)="""RTN"",""PSOORNEW"",72,0)"
^XMB(3.9,111,2,3448,0)=" .F FLD=1:1:$L(LST,"","") Q:$P(LST,"","",FLD)']""""!(OUT)  D @(+$P(LST,"","",FLD)) D:$P(LST,"","",FLD)=8 REF D KV"
^XMB(3.9,111,2,3449,0)="""RTN"",""PSOORNEW"",73,0)"
^XMB(3.9,111,2,3450,0)=" E  S VALMBCK="""" Q"
^XMB(3.9,111,2,3451,0)="""RTN"",""PSOORNEW"",74,0)"
^XMB(3.9,111,2,3452,0)=" Q"
^XMB(3.9,111,2,3453,0)="""RTN"",""PSOORNEW"",75,0)"
^XMB(3.9,111,2,3454,0)="ACP S (PSODIR(""DFLG""),PSORX(""DFLG""),PSODIR(""QFLD""))=0,ACP=1 D ORCHK"
^XMB(3.9,111,2,3455,0)="""RTN"",""PSOORNEW"",76,0)"
^XMB(3.9,111,2,3456,0)=" G:$G(PSONEW(""QFLG"")) DSPL"
^XMB(3.9,111,2,3457,0)="""RTN"",""PSOORNEW"",77,0)"
^XMB(3.9,111,2,3458,0)=" I $G(PSODIR(""DFLG""))!$G(PSORX(""DFLG"")) Q"
^XMB(3.9,111,2,3459,0)="""RTN"",""PSOORNEW"",78,0)"
^XMB(3.9,111,2,3460,0)=" I $G(PSONEW(""FLD""))!($G(PSODRUG(""NAME""))']"""")!('$O(SIG(0))) G DSPL"
^XMB(3.9,111,2,3461,0)="""RTN"",""PSOORNEW"",79,0)"
^XMB(3.9,111,2,3462,0)=" I $G(PSODRUG(""NAME""))]"""",'$G(ORCHK)!($G(ORDRG)'=PSODRUG(""NAME"")) D  I $G(PSORX(""DFLG"")) D CLEAN^PSOVER1 G DSPL"
^XMB(3.9,111,2,3463,0)="""RTN"",""PSOORNEW"",80,0)"
^XMB(3.9,111,2,3464,0)=" .D POST^PSODRG S:'$G(PSORX(""DFLG"")) ORCHK=1,ORDRG=PSODRUG(""NAME"")"
^XMB(3.9,111,2,3465,0)="""RTN"",""PSOORNEW"",81,0)"
^XMB(3.9,111,2,3466,0)=" I '$D(PSONEW(""RX #"")) S PSOFROM=""NEW"",RTN=$S($P($G(PSOPAR),""^"",7):""AUTO^PSONRXN"",1:""MANUAL^PSONRXN"") D @RTN Q:PSONEW(""QFLG"")  I '$P($G(PSOPAR),""^"",7) S PSOX=PSONEW(""RX #"") D CHECK^PSONRXN"
^XMB(3.9,111,2,3467,0)="""RTN"",""PSOORNEW"",82,0)"
^XMB(3.9,111,2,3468,0)=" D RXNCHK^PSOORNE1 I $G(PSONEW(""QFLG"")) S PSONEW(""DFLG"")=1 Q"
^XMB(3.9,111,2,3469,0)="""RTN"",""PSOORNEW"",83,0)"
^XMB(3.9,111,2,3470,0)=" I DT>$$FMADD^XLFDT($P(OR0,""^"",6),365) D EXPR^PSONEW2 G DSPL"
^XMB(3.9,111,2,3471,0)="""RTN"",""PSOORNEW"",84,0)"
^XMB(3.9,111,2,3472,0)=" D STOP^PSONEW2,DISPLAY^PSONEW2,^PSONEWF"
^XMB(3.9,111,2,3473,0)="""RTN"",""PSOORNEW"",85,0)"
^XMB(3.9,111,2,3474,0)=" I $G(PSOCPZ(""DFLG"")) W !!,""No action taken!"",! K DIR S DIR(0)=""E"",DIR(""A"")=""Press Return to continue"" D ^DIR,KV K PSOCPZ(""DFLG""),DRET,PSOANSQD S VALMBCK=""Q"" Q"
^XMB(3.9,111,2,3475,0)="""RTN"",""PSOORNEW"",86,0)"
^XMB(3.9,111,2,3476,0)=" K PSOCPZ(""DFLG"") D KV S DIR(0)=""Y"",DIR(""A"")=""Are you sure you want to Accept this Order"",DIR(""B"")=""NO"" D ^DIR I $D(DIRUT) D KV K DRET,PSOANSQ,PSOANSQD S VALMBCK=""Q"" Q"
^XMB(3.9,111,2,3477,0)="""RTN"",""PSOORNEW"",87,0)"
^XMB(3.9,111,2,3478,0)=" D KV I 'Y K PSOANSQ G DSPL"
^XMB(3.9,111,2,3479,0)="""RTN"",""PSOORNEW"",88,0)"
^XMB(3.9,111,2,3480,0)=" I $G(PSONEW(""MAIL/WINDOW""))[""W"" D:$P($G(PSOPAR),""^"",12)  S BINGCRT=""Y"",BINGRTE=""W"",PSORX(""MAIL/WINDOW"")=""WINDOW"" K RTN"
^XMB(3.9,111,2,3481,0)="""RTN"",""PSOORNEW"",89,0)"
^XMB(3.9,111,2,3482,0)=" .W ! K DIR,DIRUT S DIR(0)=""52,35O"""
^XMB(3.9,111,2,3483,0)="""RTN"",""PSOORNEW"",90,0)"
^XMB(3.9,111,2,3484,0)=" .S:$G(PSORX(""METHOD OF PICK-UP""))]"""" DIR(""B"")=PSORX(""METHOD OF PICK-UP"") D ^DIR I $D(DIRUT) K DIR,DIRUT Q"
^XMB(3.9,111,2,3485,0)="""RTN"",""PSOORNEW"",91,0)"
^XMB(3.9,111,2,3486,0)=" .S (PSONEW(""METHOD OF PICK-UP""),PSORX(""METHOD OF PICK-UP""))=Y K X,Y"
^XMB(3.9,111,2,3487,0)="""RTN"",""PSOORNEW"",92,0)"
^XMB(3.9,111,2,3488,0)=" S PSONEW(""POE"")=1 D EN^PSON52(.PSONEW) G:$G(PSONEW(""DFLG"")) ABORT D DCORD^PSONEW2"
^XMB(3.9,111,2,3489,0)="""RTN"",""PSOORNEW"",93,0)"
^XMB(3.9,111,2,3490,0)=" D NPSOSD^PSOUTIL(.PSONEW),FULL^VALM1 K PSORX(""MAIL/WINDOW"")"
^XMB(3.9,111,2,3491,0)="""RTN"",""PSOORNEW"",94,0)"
^XMB(3.9,111,2,3492,0)=" D EOJ^PSONEW"
^XMB(3.9,111,2,3493,0)="""RTN"",""PSOORNEW"",95,0)"
^XMB(3.9,111,2,3494,0)="ABORT S VALMBCK=""Q"",DIR(0)=""E"",DIR(""A"")=""Press Return to Continue"" D ^DIR,CLEAN^PSOVER1,KV"
^XMB(3.9,111,2,3495,0)="""RTN"",""PSOORNEW"",96,0)"
^XMB(3.9,111,2,3496,0)=" Q"
^XMB(3.9,111,2,3497,0)="""RTN"",""PSOORNEW"",97,0)"
^XMB(3.9,111,2,3498,0)="KV K DIRUT,DUOUT,DTOUT,DIR"
^XMB(3.9,111,2,3499,0)="""RTN"",""PSOORNEW"",98,0)"
^XMB(3.9,111,2,3500,0)=" Q"
^XMB(3.9,111,2,3501,0)="""RTN"",""PSOORNEW"",99,0)"
^XMB(3.9,111,2,3502,0)="REF Q:$G(PSODRUG(""DEA""))']"""""
^XMB(3.9,111,2,3503,0)="""RTN"",""PSOORNEW"",100,0)"
^XMB(3.9,111,2,3504,0)=" S CS=0 F DEA=1:1 Q:$E(PSODRUG(""DEA""),DEA)=""""  I $E(+PSODRUG(""DEA""),DEA)>1,$E(+PSODRUG(""DEA""),DEA)<6 S CS=1"
^XMB(3.9,111,2,3505,0)="""RTN"",""PSOORNEW"",101,0)"
^XMB(3.9,111,2,3506,0)=" S PTRF=PSONEW(""# OF REFILLS""),PSDAYS=PSONEW(""DAYS SUPPLY"")"
^XMB(3.9,111,2,3507,0)="""RTN"",""PSOORNEW"",102,0)"
^XMB(3.9,111,2,3508,0)=" I CS D"
^XMB(3.9,111,2,3509,0)="""RTN"",""PSOORNEW"",103,0)"
^XMB(3.9,111,2,3510,0)=" .S PSOX1=$S(PTRF>5:5,1:PTRF),PSOX=$S(PSOX1=5:5,1:PSOX1)"
^XMB(3.9,111,2,3511,0)="""RTN"",""PSOORNEW"",104,0)"
^XMB(3.9,111,2,3512,0)=" .S PSOX=$S('PSOX:0,PSDAYS=90:1,1:PSOX),PSDY1=$S(PSDAYS<60:5,PSDAYS'<60&(PSDAYS'>89):2,PSDAYS=90:1,1:0)"
^XMB(3.9,111,2,3513,0)="""RTN"",""PSOORNEW"",105,0)"
^XMB(3.9,111,2,3514,0)=" E  D"
^XMB(3.9,111,2,3515,0)="""RTN"",""PSOORNEW"",106,0)"
^XMB(3.9,111,2,3516,0)=" .S PSOX1=PTRF,PSOX=$S(PSOX1=11:11,1:PSOX1),PSOX=$S('PSOX:0,PSDAYS=90:3,1:PSOX)"
^XMB(3.9,111,2,3517,0)="""RTN"",""PSOORNEW"",107,0)"
^XMB(3.9,111,2,3518,0)=" .S PSDY1=$S(PSDAYS<60:11,PSDAYS'<60&(PSDAYS'>89):5,PSDAYS=90:3,1:0)"
^XMB(3.9,111,2,3519,0)="""RTN"",""PSOORNEW"",108,0)"
^XMB(3.9,111,2,3520,0)=" S PSONEW(""# OF REFILLS"")=$S(PSONEW(""# OF REFILLS"")>PSDY1:PSDY1,1:PSONEW(""# OF REFILLS""))"
^XMB(3.9,111,2,3521,0)="""RTN"",""PSOORNEW"",109,0)"
^XMB(3.9,111,2,3522,0)=" Q"
^XMB(3.9,111,2,3523,0)="""RTN"",""PSOORNEW"",110,0)"
^XMB(3.9,111,2,3524,0)="1 N PSOBDR,PSOBDRG S PSOBDRG=1 D 1^PSOORNW2 Q  ;oi"
^XMB(3.9,111,2,3525,0)="""RTN"",""PSOORNEW"",111,0)"
^XMB(3.9,111,2,3526,0)=" ;"
^XMB(3.9,111,2,3527,0)="""RTN"",""PSOORNEW"",112,0)"
^XMB(3.9,111,2,3528,0)="4 D INS^PSOORNW2 Q"
^XMB(3.9,111,2,3529,0)="""RTN"",""PSOORNEW"",113,0)"
^XMB(3.9,111,2,3530,0)=" ;"
^XMB(3.9,111,2,3531,0)="""RTN"",""PSOORNEW"",114,0)"
^XMB(3.9,111,2,3532,0)="3 D DOSE^PSOORED4(.PSONEW) Q"
^XMB(3.9,111,2,3533,0)="""RTN"",""PSOORNEW"",115,0)"
^XMB(3.9,111,2,3534,0)=" ;"
^XMB(3.9,111,2,3535,0)="""RTN"",""PSOORNEW"",116,0)"
^XMB(3.9,111,2,3536,0)="6 D 4^PSOORNW2 Q  ;idt"
^XMB(3.9,111,2,3537,0)="""RTN"",""PSOORNEW"",117,0)"
^XMB(3.9,111,2,3538,0)=" ;"
^XMB(3.9,111,2,3539,0)="""RTN"",""PSOORNEW"",118,0)"
^XMB(3.9,111,2,3540,0)="7 D 5^PSOORNW2 Q  ;fdt"
^XMB(3.9,111,2,3541,0)="""RTN"",""PSOORNEW"",119,0)"
^XMB(3.9,111,2,3542,0)=" ;"
^XMB(3.9,111,2,3543,0)="""RTN"",""PSOORNEW"",120,0)"
^XMB(3.9,111,2,3544,0)="5 D 3^PSOORNW2 Q  ;pstat"
^XMB(3.9,111,2,3545,0)="""RTN"",""PSOORNEW"",121,0)"
^XMB(3.9,111,2,3546,0)=" ;"
^XMB(3.9,111,2,3547,0)="""RTN"",""PSOORNEW"",122,0)"
^XMB(3.9,111,2,3548,0)="13 D 12^PSOORNW2 Q  ;doc"
^XMB(3.9,111,2,3549,0)="""RTN"",""PSOORNEW"",123,0)"
^XMB(3.9,111,2,3550,0)=" ;"
^XMB(3.9,111,2,3551,0)="""RTN"",""PSOORNEW"",124,0)"
^XMB(3.9,111,2,3552,0)="12 D 11^PSOORNW2 Q  ;cli"
^XMB(3.9,111,2,3553,0)="""RTN"",""PSOORNEW"",125,0)"
^XMB(3.9,111,2,3554,0)=" ;"
^XMB(3.9,111,2,3555,0)="""RTN"",""PSOORNEW"",126,0)"
^XMB(3.9,111,2,3556,0)="2 N PSOCSIG I '$G(PSOBDRG) N PSOBDR,PSOBDRG S PSOBDRG=1"
^XMB(3.9,111,2,3557,0)="""RTN"",""PSOORNEW"",127,0)"
^XMB(3.9,111,2,3558,0)=" D 2^PSOORNW1 Q:$G(PSOQFLG)  D EN^PSODIAG  ;drg/ICD"
^XMB(3.9,111,2,3559,0)="""RTN"",""PSOORNEW"",128,0)"
^XMB(3.9,111,2,3560,0)=" I $G(PSOCSIG) K PSOCSIG G 3"
^XMB(3.9,111,2,3561,0)="""RTN"",""PSOORNEW"",129,0)"
^XMB(3.9,111,2,3562,0)=" Q"
^XMB(3.9,111,2,3563,0)="""RTN"",""PSOORNEW"",130,0)"
^XMB(3.9,111,2,3564,0)=" ;"
^XMB(3.9,111,2,3565,0)="""RTN"",""PSOORNEW"",131,0)"
^XMB(3.9,111,2,3566,0)="9 D 8^PSOORNW2 Q  ;qty"
^XMB(3.9,111,2,3567,0)="""RTN"",""PSOORNEW"",132,0)"
^XMB(3.9,111,2,3568,0)=" ;"
^XMB(3.9,111,2,3569,0)="""RTN"",""PSOORNEW"",133,0)"
^XMB(3.9,111,2,3570,0)="8 D 7^PSOORNW2 Q  ;ds"
^XMB(3.9,111,2,3571,0)="""RTN"",""PSOORNEW"",134,0)"
^XMB(3.9,111,2,3572,0)=" ;"
^XMB(3.9,111,2,3573,0)="""RTN"",""PSOORNEW"",135,0)"
^XMB(3.9,111,2,3574,0)="10 D 9^PSOORNW2 Q  ;#rfs"
^XMB(3.9,111,2,3575,0)="""RTN"",""PSOORNEW"",136,0)"
^XMB(3.9,111,2,3576,0)=" ;"
^XMB(3.9,111,2,3577,0)="""RTN"",""PSOORNEW"",137,0)"
^XMB(3.9,111,2,3578,0)="14 D 13^PSOORNW2 Q  ;cop"
^XMB(3.9,111,2,3579,0)="""RTN"",""PSOORNEW"",138,0)"
^XMB(3.9,111,2,3580,0)=" ;"
^XMB(3.9,111,2,3581,0)="""RTN"",""PSOORNEW"",139,0)"
^XMB(3.9,111,2,3582,0)="11 D 10^PSOORNW2 Q  ;m/w"
^XMB(3.9,111,2,3583,0)="""RTN"",""PSOORNEW"",140,0)"
^XMB(3.9,111,2,3584,0)=" ;"
^XMB(3.9,111,2,3585,0)="""RTN"",""PSOORNEW"",141,0)"
^XMB(3.9,111,2,3586,0)="15 D 14^PSOORNW2 Q  ;rem"
^XMB(3.9,111,2,3587,0)="""RTN"",""PSOORNEW"",142,0)"
^XMB(3.9,111,2,3588,0)=" ;"
^XMB(3.9,111,2,3589,0)="""RTN"",""PSOORNEW"",143,0)"
^XMB(3.9,111,2,3590,0)="DRGMSG ;"
^XMB(3.9,111,2,3591,0)="""RTN"",""PSOORNEW"",144,0)"
^XMB(3.9,111,2,3592,0)=" F SG=1:1:$L($P(^PSDRUG(PSODRUG(""IEN""),0),""^"",10)) S:$L(^TMP(""PSOPO"",$J,IEN,0)_"" ""_$P($P(^PSDRUG(PSODRUG(""IEN""),0),""^"",10),"" "",SG))>80 IEN=IEN+1,$P(^TMP(""PSOPO"",$J,IEN,0),"" "",20)="" "" D"
^XMB(3.9,111,2,3593,0)="""RTN"",""PSOORNEW"",145,0)"
^XMB(3.9,111,2,3594,0)=" .S:$P($P(^PSDRUG(PSODRUG(""IEN""),0),""^"",10),"" "",SG)'="""" ^TMP(""PSOPO"",$J,IEN,0)=$G(^TMP(""PSOPO"",$J,IEN,0))_"" ""_$P($P(^PSDRUG(PSODRUG(""IEN""),0),""^"",10),"" "",SG)"
^XMB(3.9,111,2,3595,0)="""RTN"",""PSOORNEW"",146,0)"
^XMB(3.9,111,2,3596,0)=" K SG Q"
^XMB(3.9,111,2,3597,0)="""RTN"",""PSOORNW1"")"
^XMB(3.9,111,2,3598,0)="0^15^B42999566^B42345668"
^XMB(3.9,111,2,3599,0)="""RTN"",""PSOORNW1"",1,0)"
^XMB(3.9,111,2,3600,0)="PSOORNW1 ;ISC BHAM/SAB - continuation of finish of new order ;07/19/96 12:58 PM"
^XMB(3.9,111,2,3601,0)="""RTN"",""PSOORNW1"",2,0)"
^XMB(3.9,111,2,3602,0)=" ;;7.0;OUTPATIENT PHARMACY;**23,46,78,117,131,133,172,148,222**;DEC 1997;Build 12"
^XMB(3.9,111,2,3603,0)="""RTN"",""PSOORNW1"",3,0)"
^XMB(3.9,111,2,3604,0)=" ;Reference ^YSCL(603.01 supported by DBIA 2697"
^XMB(3.9,111,2,3605,0)="""RTN"",""PSOORNW1"",4,0)"
^XMB(3.9,111,2,3606,0)=" ;Reference ^PS(55 supported by DBIA 2228"
^XMB(3.9,111,2,3607,0)="""RTN"",""PSOORNW1"",5,0)"
^XMB(3.9,111,2,3608,0)=" ;Reference ^PSDRUG( supported by DBIA 221"
^XMB(3.9,111,2,3609,0)="""RTN"",""PSOORNW1"",6,0)"
^XMB(3.9,111,2,3610,0)=" ;Reference to $$GETNDC^PSSNDCUT supported by IA 4707"
^XMB(3.9,111,2,3611,0)="""RTN"",""PSOORNW1"",7,0)"
^XMB(3.9,111,2,3612,0)=" ;"
^XMB(3.9,111,2,3613,0)="""RTN"",""PSOORNW1"",8,0)"
^XMB(3.9,111,2,3614,0)="2 I $G(ORD) W !!,""Instructions: "" D"
^XMB(3.9,111,2,3615,0)="""RTN"",""PSOORNW1"",9,0)"
^XMB(3.9,111,2,3616,0)=" .S INST=0 F  S INST=$O(^PS(52.41,ORD,2,INST)) Q:'INST  S (MIG,INST(INST))=^PS(52.41,ORD,2,INST,0) D"
^XMB(3.9,111,2,3617,0)="""RTN"",""PSOORNW1"",10,0)"
^XMB(3.9,111,2,3618,0)=" ..F SG=1:1:$L(MIG,"" "") W:$X+$L($P(MIG,"" "",SG)_"" "")>IOM !?14 W $P(MIG,"" "",SG)_"" """
^XMB(3.9,111,2,3619,0)="""RTN"",""PSOORNW1"",11,0)"
^XMB(3.9,111,2,3620,0)=" .S:'$D(PSODRUG(""OI"")) PSODRUG(""OI"")=$P(OR0,""^"",8)"
^XMB(3.9,111,2,3621,0)="""RTN"",""PSOORNW1"",12,0)"
^XMB(3.9,111,2,3622,0)=" .K INST,TY,MIG,SG"
^XMB(3.9,111,2,3623,0)="""RTN"",""PSOORNW1"",13,0)"
^XMB(3.9,111,2,3624,0)=" S (PSDC,PSI)=0 W !!,""The following Drug(s) are available for selection:"""
^XMB(3.9,111,2,3625,0)="""RTN"",""PSOORNW1"",14,0)"
^XMB(3.9,111,2,3626,0)=" F PSI=0:0 S PSI=$O(^PSDRUG(""ASP"",PSODRUG(""OI""),PSI)) Q:'PSI  I $S('$D(^PSDRUG(PSI,""I"")):1,'^(""I""):1,DT'>^(""I""):1,1:0),$S($P($G(^PSDRUG(PSI,2)),""^"",3)'[""O"":0,1:1) D"
^XMB(3.9,111,2,3627,0)="""RTN"",""PSOORNW1"",15,0)"
^XMB(3.9,111,2,3628,0)=" .S PSDC=PSDC+1 W !,PSDC_"". ""_$P(^PSDRUG(PSI,0),""^"")_$S($P(^(0),""^"",9):""     (N/F)"",1:"""")"
^XMB(3.9,111,2,3629,0)="""RTN"",""PSOORNW1"",16,0)"
^XMB(3.9,111,2,3630,0)=" .S PSDC(PSDC)=PSI"
^XMB(3.9,111,2,3631,0)="""RTN"",""PSOORNW1"",17,0)"
^XMB(3.9,111,2,3632,0)=" I PSDC=0 D"
^XMB(3.9,111,2,3633,0)="""RTN"",""PSOORNW1"",18,0)"
^XMB(3.9,111,2,3634,0)=" . N X,DRG"
^XMB(3.9,111,2,3635,0)="""RTN"",""PSOORNW1"",19,0)"
^XMB(3.9,111,2,3636,0)=" . S DRG=+$P($G(^PS(52.41,+$G(ORD),0)),""^"",9)"
^XMB(3.9,111,2,3637,0)="""RTN"",""PSOORNW1"",20,0)"
^XMB(3.9,111,2,3638,0)=" . S X=$$GET1^DIQ(50,DRG,100)"
^XMB(3.9,111,2,3639,0)="""RTN"",""PSOORNW1"",21,0)"
^XMB(3.9,111,2,3640,0)=" . I X'="""",(DT>X) D"
^XMB(3.9,111,2,3641,0)="""RTN"",""PSOORNW1"",22,0)"
^XMB(3.9,111,2,3642,0)=" . . W !!,""   This Dispense Drug is now Inactive. You may select a"""
^XMB(3.9,111,2,3643,0)="""RTN"",""PSOORNW1"",23,0)"
^XMB(3.9,111,2,3644,0)=" . . W !,""    new Orderable Item, or you can enter a new Order with"""
^XMB(3.9,111,2,3645,0)="""RTN"",""PSOORNW1"",24,0)"
^XMB(3.9,111,2,3646,0)=" . . W !,""    an Active Drug."",!"
^XMB(3.9,111,2,3647,0)="""RTN"",""PSOORNW1"",25,0)"
^XMB(3.9,111,2,3648,0)=" . E  W !!,""No drugs available!"",!"
^XMB(3.9,111,2,3649,0)="""RTN"",""PSOORNW1"",26,0)"
^XMB(3.9,111,2,3650,0)=" . K DIR S DIR(0)=""E"",DIR(""A"")=""Press return to continue"""
^XMB(3.9,111,2,3651,0)="""RTN"",""PSOORNW1"",27,0)"
^XMB(3.9,111,2,3652,0)=" . D ^DIR K DIR"
^XMB(3.9,111,2,3653,0)="""RTN"",""PSOORNW1"",28,0)"
^XMB(3.9,111,2,3654,0)=" G:'PSDC ETX I $G(PSOBDRG),'$D(PSOBDR) M PSOBDR=PSODRUG"
^XMB(3.9,111,2,3655,0)="""RTN"",""PSOORNW1"",29,0)"
^XMB(3.9,111,2,3656,0)=" I PSDC'=1 D"
^XMB(3.9,111,2,3657,0)="""RTN"",""PSOORNW1"",30,0)"
^XMB(3.9,111,2,3658,0)=" .I $P($G(^PSDRUG(+$G(PSODRUG(""IEN"")),2)),""^"")=$G(PSODRUG(""OI"")) Q"
^XMB(3.9,111,2,3659,0)="""RTN"",""PSOORNW1"",31,0)"
^XMB(3.9,111,2,3660,0)=" .K PSODRUG(""NAME""),PSODRUG(""IEN"")"
^XMB(3.9,111,2,3661,0)="""RTN"",""PSOORNW1"",32,0)"
^XMB(3.9,111,2,3662,0)=" W ! D KV S DIR(0)=""N^1:""_PSDC,DIR(""A"")=""Select Drug by number"" D ^DIR"
^XMB(3.9,111,2,3663,0)="""RTN"",""PSOORNW1"",33,0)"
^XMB(3.9,111,2,3664,0)=" I $D(DIRUT) S OUT=1 G EX"
^XMB(3.9,111,2,3665,0)="""RTN"",""PSOORNW1"",34,0)"
^XMB(3.9,111,2,3666,0)=" D KV K PSOY S PSOY=PSDC(Y),PSOY(0)=^PSDRUG(PSOY,0),PSOCSIG=0"
^XMB(3.9,111,2,3667,0)="""RTN"",""PSOORNW1"",35,0)"
^XMB(3.9,111,2,3668,0)=" I $G(PSODRUG(""IEN"")),PSODRUG(""IEN"")'=+PSOY D:$G(ORD)  G:$D(DIRUT) EX"
^XMB(3.9,111,2,3669,0)="""RTN"",""PSOORNW1"",36,0)"
^XMB(3.9,111,2,3670,0)=" .D KV S DIR(0)=""Y"",DIR(""B"")=""NO"",DIR(""A"",1)=""You have changed the dispense drug from"",DIR(""A"",2)=PSODRUG(""NAME"")_"" to ""_$P(^PSDRUG(+PSOY,0),""^"")_""."",DIR(""A"")=""Do You want to Edit the SIG"""
^XMB(3.9,111,2,3671,0)="""RTN"",""PSOORNW1"",37,0)"
^XMB(3.9,111,2,3672,0)=" .D ^DIR I $D(DIRUT) S OUT=1 Q"
^XMB(3.9,111,2,3673,0)="""RTN"",""PSOORNW1"",38,0)"
^XMB(3.9,111,2,3674,0)=" .S:Y PSOCSIG=1"
^XMB(3.9,111,2,3675,0)="""RTN"",""PSOORNW1"",39,0)"
^XMB(3.9,111,2,3676,0)=" .I 'Y D URX I $D(DIRUT) S OUT=1 Q"
^XMB(3.9,111,2,3677,0)="""RTN"",""PSOORNW1"",40,0)"
^XMB(3.9,111,2,3678,0)=" D KV"
^XMB(3.9,111,2,3679,0)="""RTN"",""PSOORNW1"",41,0)"
^XMB(3.9,111,2,3680,0)="CT1 I $P($G(^PSDRUG(PSOY,""CLOZ1"")),""^"")=""PSOCLO1"",'$O(^YSCL(603.01,""C"",PSODFN,0)) S VALMSG=""Patient Not Registered in Clozapine Program"",VALMBCK=""Q"" K PSOY,PSDC Q"
^XMB(3.9,111,2,3681,0)="""RTN"",""PSOORNW1"",42,0)"
^XMB(3.9,111,2,3682,0)=" S PSODRUG(""IEN"")=+PSOY,PSODRUG(""VA CLASS"")=$P(PSOY(0),""^"",2),PSODRUG(""NAME"")=$P(PSOY(0),""^"")"
^XMB(3.9,111,2,3683,0)="""RTN"",""PSOORNW1"",43,0)"
^XMB(3.9,111,2,3684,0)=" S PSODRUG(""NDF"")=$S($G(^PSDRUG(+PSOY,""ND""))]"""":+^(""ND"")_""A""_$P(^(""ND""),""^"",3),1:0)"
^XMB(3.9,111,2,3685,0)="""RTN"",""PSOORNW1"",44,0)"
^XMB(3.9,111,2,3686,0)=" S PSODRUG(""MAXDOSE"")=$P(PSOY(0),""^"",4),PSODRUG(""DEA"")=$P(PSOY(0),""^"",3),PSODRUG(""CLN"")=$S($D(^PSDRUG(+PSOY,""ND"")):+$P(^(""ND""),""^"",6),1:0)"
^XMB(3.9,111,2,3687,0)="""RTN"",""PSOORNW1"",45,0)"
^XMB(3.9,111,2,3688,0)=" S PSODRUG(""SIG"")=$P(PSOY(0),""^"",5),PSODRUG(""NDC"")=$$GETNDC^PSSNDCUT(+PSOY,$G(PSOSITE)),PSODRUG(""STKLVL"")=$G(^PSDRUG(+PSOY,660.1))"
^XMB(3.9,111,2,3689,0)="""RTN"",""PSOORNW1"",46,0)"
^XMB(3.9,111,2,3690,0)=" S PSODRUG(""DAW"")=+$$GET1^DIQ(50,+PSOY,81)"
^XMB(3.9,111,2,3691,0)="""RTN"",""PSOORNW1"",47,0)"
^XMB(3.9,111,2,3692,0)=" I $G(^PSDRUG(+PSOY,660))']"""" D:'$G(PSOFIN)&('$G(PSOCOPY)) POST^PSODRG G ETX"
^XMB(3.9,111,2,3693,0)="""RTN"",""PSOORNW1"",48,0)"
^XMB(3.9,111,2,3694,0)=" S PSOX1=$G(^PSDRUG(+PSOY,660)),PSODRUG(""COST"")=$P($G(PSOX1),""^"",6),PSODRUG(""UNIT"")=$P($G(PSOX1),""^"",8),PSODRUG(""EXPIRATION DATE"")=$P($G(PSOX1),""^"",9)"
^XMB(3.9,111,2,3695,0)="""RTN"",""PSOORNW1"",49,0)"
^XMB(3.9,111,2,3696,0)=" D:'$G(PSOFIN)&('$G(PSOCOPY)) POST^PSODRG"
^XMB(3.9,111,2,3697,0)="""RTN"",""PSOORNW1"",50,0)"
^XMB(3.9,111,2,3698,0)=" I $G(PSORX(""DFLG"")) K PSODRUG N LST Q:$G(PSOAC)!($G(NEWEDT))  D DSPL^PSOORFI1 S VALMBCK=""Q"" Q"
^XMB(3.9,111,2,3699,0)="""RTN"",""PSOORNW1"",51,0)"
^XMB(3.9,111,2,3700,0)="ETX D REF S VALMBCK=""R"" I 'PSDC S VALMSG=""NO dispense drugs tied to this orderable item!"" S PSOQFLG=1"
^XMB(3.9,111,2,3701,0)="""RTN"",""PSOORNW1"",52,0)"
^XMB(3.9,111,2,3702,0)="TX D KV K PSDC,PSI,X,Y,PSOX1,PSOY"
^XMB(3.9,111,2,3703,0)="""RTN"",""PSOORNW1"",53,0)"
^XMB(3.9,111,2,3704,0)=" Q"
^XMB(3.9,111,2,3705,0)="""RTN"",""PSOORNW1"",54,0)"
^XMB(3.9,111,2,3706,0)="EX M PSODRUG=PSOBDR K PSOBDR,PSOBDRG S PSOQFLG=1,VALMBCK=""R"" D MP1^PSOOREDX"
^XMB(3.9,111,2,3707,0)="""RTN"",""PSOORNW1"",55,0)"
^XMB(3.9,111,2,3708,0)=" D TX Q"
^XMB(3.9,111,2,3709,0)="""RTN"",""PSOORNW1"",56,0)"
^XMB(3.9,111,2,3710,0)="URX D KV S DIR(0)=""Y"",DIR(""A"")=""Are You Sure You Want to Update Rx"",DIR(""B"")=""Yes"""
^XMB(3.9,111,2,3711,0)="""RTN"",""PSOORNW1"",57,0)"
^XMB(3.9,111,2,3712,0)=" D ^DIR S:$D(DIRUT)!('Y) DIRUT=1"
^XMB(3.9,111,2,3713,0)="""RTN"",""PSOORNW1"",58,0)"
^XMB(3.9,111,2,3714,0)=" Q"
^XMB(3.9,111,2,3715,0)="""RTN"",""PSOORNW1"",59,0)"
^XMB(3.9,111,2,3716,0)="REF Q:'$D(PSODRUG(""DEA""))!('$G(PSODRUG(""IEN"")))!('$G(^PS(55,PSODFN,""PS"")))"
^XMB(3.9,111,2,3717,0)="""RTN"",""PSOORNW1"",60,0)"
^XMB(3.9,111,2,3718,0)=" S PSONEW(""CS"")=0,PTRF=$S(+$G(^PS(55,PSODFN,""PS""))&($P(^PS(53,+$G(^PS(55,PSODFN,""PS"")),0),""^"",4)]""""):$P(^PS(53,+$G(^PS(55,PSODFN,""PS"")),0),""^"",4),1:5)"
^XMB(3.9,111,2,3719,0)="""RTN"",""PSOORNW1"",61,0)"
^XMB(3.9,111,2,3720,0)=" F DEA=1:1 Q:$E(PSODRUG(""DEA""),DEA)=""""  I $E(+PSODRUG(""DEA""),DEA)>1,$E(+PSODRUG(""DEA""),DEA)<6 S $P(PSONEW(""CS""),""^"")=1 S:$E(+PSODRUG(""DEA""),DEA)=2 $P(PSONEW(""CS""),""^"",2)=1"
^XMB(3.9,111,2,3721,0)="""RTN"",""PSOORNW1"",62,0)"
^XMB(3.9,111,2,3722,0)=" I $P($G(PSONEW(""CS"")),""^"",2)=1 S PSONEW(""# OF REFILLS"")=0 Q"
^XMB(3.9,111,2,3723,0)="""RTN"",""PSOORNW1"",63,0)"
^XMB(3.9,111,2,3724,0)=" I +PSONEW(""CS"") D"
^XMB(3.9,111,2,3725,0)="""RTN"",""PSOORNW1"",64,0)"
^XMB(3.9,111,2,3726,0)=" .S PSOX=$S($P($G(OR0),""^"",11)>5:5,1:+$P($G(OR0),""^"",11))"
^XMB(3.9,111,2,3727,0)="""RTN"",""PSOORNW1"",65,0)"
^XMB(3.9,111,2,3728,0)=" .S PSOX=$S(PSOX>PTRF:PTRF,1:PSOX)"
^XMB(3.9,111,2,3729,0)="""RTN"",""PSOORNW1"",66,0)"
^XMB(3.9,111,2,3730,0)=" .S PSONEW(""# OF REFILLS"")=PSOX"
^XMB(3.9,111,2,3731,0)="""RTN"",""PSOORNW1"",67,0)"
^XMB(3.9,111,2,3732,0)=" E  D"
^XMB(3.9,111,2,3733,0)="""RTN"",""PSOORNW1"",68,0)"
^XMB(3.9,111,2,3734,0)=" .S PSOX=$S($P($G(OR0),""^"",11)'>PTRF&($P($G(OR0),""^"",11)'>11):11,1:PTRF)"
^XMB(3.9,111,2,3735,0)="""RTN"",""PSOORNW1"",69,0)"
^XMB(3.9,111,2,3736,0)=" I '$D(CLOZPAT) I PSODRUG(""DEA"")[""A""&(PSODRUG(""DEA"")'[""B"")!(PSODRUG(""DEA"")[""F"") S PSOX=0,PSONEW(""# OF REFILLS"")=0 K PSDY,PSDY1,PTRF Q"
^XMB(3.9,111,2,3737,0)="""RTN"",""PSOORNW1"",70,0)"
^XMB(3.9,111,2,3738,0)=" I $D(CLOZPAT) S (PSOX,PSONEW(""N# REF""),PSONEW(""# OF REFILLS""))=$S(CLOZPAT=2&($G(PSONEW(""# OF REFILLS""))>2):3,CLOZPAT&($G(PSONEW(""# OF REFILLS""))>1):1,1:0),PSONEW(""DAYS SUPPLY"")=7,ORCHK=1 K PSDY,PSDY1,PTRF Q"
^XMB(3.9,111,2,3739,0)="""RTN"",""PSOORNW1"",71,0)"
^XMB(3.9,111,2,3740,0)=" S PSONEW(""# OF REFILLS"")=$S($G(PSONEW(""# OF REFILLS""))'="""":$G(PSONEW(""# OF REFILLS"")),1:PSOX) K PSDY,PSDY1,PTRF"
^XMB(3.9,111,2,3741,0)="""RTN"",""PSOORNW1"",72,0)"
^XMB(3.9,111,2,3742,0)=" Q"
^XMB(3.9,111,2,3743,0)="""RTN"",""PSOORNW1"",73,0)"
^XMB(3.9,111,2,3744,0)="EDNEW K PSMAX,PSFMAX F DEA=1:1 Q:$E(PSODEA,DEA)=""""  I $E(+PSODEA,DEA)>1,$E(+PSODEA,DEA)<6 S CS=1"
^XMB(3.9,111,2,3745,0)="""RTN"",""PSOORNW1"",74,0)"
^XMB(3.9,111,2,3746,0)=" I CS D"
^XMB(3.9,111,2,3747,0)="""RTN"",""PSOORNW1"",75,0)"
^XMB(3.9,111,2,3748,0)=" .S PSOX1=$S(PTRF>5:5,1:PTRF),PSOX=$S(PSOX1=5:5,1:PSOX1)"
^XMB(3.9,111,2,3749,0)="""RTN"",""PSOORNW1"",76,0)"
^XMB(3.9,111,2,3750,0)=" .S PSOX=$S('PSOX:0,PSDAYS=90:1,1:PSOX),PSDY1=$S(PSDAYS<60:5,PSDAYS'<60&(PSDAYS'>89):2,PSDAYS=90:1,1:0) S MAX=$S(PSOX'>PSDY1:PSOX,1:PSDY1)"
^XMB(3.9,111,2,3751,0)="""RTN"",""PSOORNW1"",77,0)"
^XMB(3.9,111,2,3752,0)=" E  D"
^XMB(3.9,111,2,3753,0)="""RTN"",""PSOORNW1"",78,0)"
^XMB(3.9,111,2,3754,0)=" .S PSOX1=PTRF,PSOX=$S(PSOX1=11:11,1:PSOX1),PSOX=$S('PSOX:0,PSDAYS=90:3,1:PSOX)"
^XMB(3.9,111,2,3755,0)="""RTN"",""PSOORNW1"",79,0)"
^XMB(3.9,111,2,3756,0)=" .S PSDY1=$S(PSDAYS<60:11,PSDAYS'<60&(PSDAYS'>89):5,PSDAYS=90:3,1:0) S MAX=$S(PSOX'>PSDY1:PSOX,1:PSDY1)"
^XMB(3.9,111,2,3757,0)="""RTN"",""PSOORNW1"",80,0)"
^XMB(3.9,111,2,3758,0)=" I PSRF>MAX D"
^XMB(3.9,111,2,3759,0)="""RTN"",""PSOORNW1"",81,0)"
^XMB(3.9,111,2,3760,0)=" .W $C(7),!!,PSRF_"" refills are not correct for a ""_PSDAYS_"" day supply."",!,""Please enter correct # of refills for a ""_PSDAYS_"" day supply. Max refills allowed is ""_MAX_""."",!"
^XMB(3.9,111,2,3761,0)="""RTN"",""PSOORNW1"",82,0)"
^XMB(3.9,111,2,3762,0)=" .S (PSMAX(""MAX""),PSFMAX(""MAX""))=MAX,(PSMAX(""RF""),PSFMAX(""RF""))=PSRF,(PSMAX(""DAYS""),PSFMAX(""DAYS""))=PSDAYS,(PSMAX,PSFMAX)=1"
^XMB(3.9,111,2,3763,0)="""RTN"",""PSOORNW1"",83,0)"
^XMB(3.9,111,2,3764,0)=" K PSTMAX D EDSTAT"
^XMB(3.9,111,2,3765,0)="""RTN"",""PSOORNW1"",84,0)"
^XMB(3.9,111,2,3766,0)=" Q"
^XMB(3.9,111,2,3767,0)="""RTN"",""PSOORNW1"",85,0)"
^XMB(3.9,111,2,3768,0)="STATDAY K PSMAX,PSRMAX,PSFMAX,PSTMAX S PSDAYS=$P(^PSRX(DA,0),""^"",8),PSRF=$P(^PSRX(DA,0),""^"",9),PTST=$P(^PS(53,X,0),""^""),PTDY=$P(^(0),""^"",3),PTRF=$P(^(0),""^"",4)"
^XMB(3.9,111,2,3769,0)="""RTN"",""PSOORNW1"",86,0)"
^XMB(3.9,111,2,3770,0)="EDSTAT I PSRF>PTRF W !,$C(7),PSRF_"" refills are greater than ""_PTRF_"" allowed for ""_$P(PTST,""^"")_"" Rx Patient Status."",! S PSTMAX=1,PSTMAX(""PTRF"")=PTRF,PSTMAX(""PSRF"")=PSRF,PSTMAX(""PT"")=$P(PTST,""^"")"
^XMB(3.9,111,2,3771,0)="""RTN"",""PSOORNW1"",87,0)"
^XMB(3.9,111,2,3772,0)=" Q"
^XMB(3.9,111,2,3773,0)="""RTN"",""PSOORNW1"",88,0)"
^XMB(3.9,111,2,3774,0)="OERF S DIR(0)=""N^0:""_PSOX,DIR(""A"")=""# OF REFILLS"""
^XMB(3.9,111,2,3775,0)="""RTN"",""PSOORNW1"",89,0)"
^XMB(3.9,111,2,3776,0)=" S DIR(""B"")=$S($G(POERR):PSONEW(""# OF REFILLS""),$G(PSONEW(""N# REF""))]"""":PSONEW(""N# REF""),$G(PSONEW(""# OF REFILLS""))]"""":PSONEW(""# OF REFILLS""),$G(PSOX1)]""""&(PSOX>PSOX1):PSOX1,1:PSOX)"
^XMB(3.9,111,2,3777,0)="""RTN"",""PSOORNW1"",90,0)"
^XMB(3.9,111,2,3778,0)=" S DIR(""?"")=""Enter a whole number.  The maximum is set by the Rx Patient Status because there is no Dispense Drug."""
^XMB(3.9,111,2,3779,0)="""RTN"",""PSOORNW1"",91,0)"
^XMB(3.9,111,2,3780,0)=" D ^DIR G:$D(DIRUT) REFX"
^XMB(3.9,111,2,3781,0)="""RTN"",""PSOORNW1"",92,0)"
^XMB(3.9,111,2,3782,0)=" S (PSONEW(""N# REF""),PSONEW(""# OF REFILLS""))=Y"
^XMB(3.9,111,2,3783,0)="""RTN"",""PSOORNW1"",93,0)"
^XMB(3.9,111,2,3784,0)="REFX S:'$D(PSONEW(""# OF REFILLS"")) PSONEW(""# OF REFILLS"")=$S($G(PSONEW(""N# REF""))]"""":PSONEW(""N# REF""),$G(PSOX1)]""""&($G(PSOX)>PSOX1):PSOX1,1:PSOX)"
^XMB(3.9,111,2,3785,0)="""RTN"",""PSOORNW1"",94,0)"
^XMB(3.9,111,2,3786,0)=" K X,Y,PSOX,PSOX1,PSDY,PSDY1,DEA"
^XMB(3.9,111,2,3787,0)="""RTN"",""PSOORNW1"",95,0)"
^XMB(3.9,111,2,3788,0)="KV K DIR,DIRUT,DUOUT,DTOUT"
^XMB(3.9,111,2,3789,0)="""RTN"",""PSOORNW1"",96,0)"
^XMB(3.9,111,2,3790,0)=" Q"
^XMB(3.9,111,2,3791,0)="""RTN"",""PSOORNW2"")"
^XMB(3.9,111,2,3792,0)="0^16^B43179170^B43033604"
^XMB(3.9,111,2,3793,0)="""RTN"",""PSOORNW2"",1,0)"
^XMB(3.9,111,2,3794,0)="PSOORNW2 ;ISC-BHAM/SAB - edit orders from oerr ;5/24/95 @ 09:08:55"
^XMB(3.9,111,2,3795,0)="""RTN"",""PSOORNW2"",2,0)"
^XMB(3.9,111,2,3796,0)=" ;;7.0;OUTPATIENT PHARMACY;**10,23,37,46,117,131,133,148,222**;DEC 1997;Build 12"
^XMB(3.9,111,2,3797,0)="""RTN"",""PSOORNW2"",3,0)"
^XMB(3.9,111,2,3798,0)=" ;Reference to ^YSCL(603.01 supported by DBIA 2697"
^XMB(3.9,111,2,3799,0)="""RTN"",""PSOORNW2"",4,0)"
^XMB(3.9,111,2,3800,0)=" ;Reference to ^PS(55 supported by DBIA 2228"
^XMB(3.9,111,2,3801,0)="""RTN"",""PSOORNW2"",5,0)"
^XMB(3.9,111,2,3802,0)=" ;Reference to ^PSDRUG( supported by DBIA 221"
^XMB(3.9,111,2,3803,0)="""RTN"",""PSOORNW2"",6,0)"
^XMB(3.9,111,2,3804,0)=" ;Reference to ^PS(50.606 supported by DBIA 2174"
^XMB(3.9,111,2,3805,0)="""RTN"",""PSOORNW2"",7,0)"
^XMB(3.9,111,2,3806,0)=" ;Reference to ^PS(50.7 supported by DBIA 2223"
^XMB(3.9,111,2,3807,0)="""RTN"",""PSOORNW2"",8,0)"
^XMB(3.9,111,2,3808,0)=" ;Reference to $$GETNDC^PSSNDCUT supported by IA 4707"
^XMB(3.9,111,2,3809,0)="""RTN"",""PSOORNW2"",9,0)"
^XMB(3.9,111,2,3810,0)=" ;"
^XMB(3.9,111,2,3811,0)="""RTN"",""PSOORNW2"",10,0)"
^XMB(3.9,111,2,3812,0)="1 I $G(PSODRUG(""OI"")) M:$G(PSOBDRG) PSOBDR=PSODRUG W !!,""Current Orderable Item: ""_$P(^PS(50.7,PSODRUG(""OI""),0),""^"")_"" ""_$P(^PS(50.606,$P(^(0),""^"",2),0),""^"")"
^XMB(3.9,111,2,3813,0)="""RTN"",""PSOORNW2"",11,0)"
^XMB(3.9,111,2,3814,0)=" S DIC(""B"")=$S($G(PSODRUG(""OIN""))]"""":PSODRUG(""OIN""),1:""""),DIC=""^PS(50.7,"",DIC(0)=""AEMQZ"""
^XMB(3.9,111,2,3815,0)="""RTN"",""PSOORNW2"",12,0)"
^XMB(3.9,111,2,3816,0)=" S DIC(""S"")=""I '$P(^PS(50.7,+Y,0),""""^"""",4)!($P(^(0),""""^"""",4)'<DT) N PSOF,PSOL S (PSOF,PSOL)=0 F  S PSOL=$O(^PSDRUG(""""ASP"""",+Y,PSOL)) Q:PSOF!'PSOL  """
^XMB(3.9,111,2,3817,0)="""RTN"",""PSOORNW2"",13,0)"
^XMB(3.9,111,2,3818,0)=" S DIC(""S"")=DIC(""S"")_""I $P($G(^PSDRUG(PSOL,2)),U,3)[""""O"""",'$G(^(""""I""""))!($G(^(""""I""""))'<DT) S PSOF=1"" D ^DIC K DIC I X[""^""!($D(DTOUT)) S OUT=1 Q"
^XMB(3.9,111,2,3819,0)="""RTN"",""PSOORNW2"",14,0)"
^XMB(3.9,111,2,3820,0)=" S PSOY=Y"
^XMB(3.9,111,2,3821,0)="""RTN"",""PSOORNW2"",15,0)"
^XMB(3.9,111,2,3822,0)=" I +Y'=OI D  I 'Y!($D(DIRUT)) D KV,MP1^PSOOREDX K DIC,Y,PSOY S OUT=1 Q"
^XMB(3.9,111,2,3823,0)="""RTN"",""PSOORNW2"",16,0)"
^XMB(3.9,111,2,3824,0)=" .D KV S DIR(0)=""Y"",DIR(""B"")=""NO"",DIR(""A"",1)="""",DIR(""A"")=""This edit will create a new order.  Do you want to continue"" D ^DIR"
^XMB(3.9,111,2,3825,0)="""RTN"",""PSOORNW2"",17,0)"
^XMB(3.9,111,2,3826,0)=" G:Y<1 1 S PSODRUG(""OI"")=+PSOY,PSODRUG(""OIN"")=$P(PSOY,""^"",2),PSONEW(""CLERK CODE"")=DUZ D KV K DIC,PSOY"
^XMB(3.9,111,2,3827,0)="""RTN"",""PSOORNW2"",18,0)"
^XMB(3.9,111,2,3828,0)=" N PSOIC S PSOIC=1 D DREN"
^XMB(3.9,111,2,3829,0)="""RTN"",""PSOORNW2"",19,0)"
^XMB(3.9,111,2,3830,0)=" D 2^PSOORNEW Q"
^XMB(3.9,111,2,3831,0)="""RTN"",""PSOORNW2"",20,0)"
^XMB(3.9,111,2,3832,0)="4 S PSONEW(""FLD"")=1 D ISSDT^PSODIR2(.PSONEW) ; Issue Date"
^XMB(3.9,111,2,3833,0)="""RTN"",""PSOORNW2"",21,0)"
^XMB(3.9,111,2,3834,0)=" I PSOID>PSONEW(""FILL DATE"") S PSONEW(""FILL DATE"")=PSOID,PSORX(""FILL DATE"")=PSORX(""ISSUE DATE"")"
^XMB(3.9,111,2,3835,0)="""RTN"",""PSOORNW2"",22,0)"
^XMB(3.9,111,2,3836,0)=" Q"
^XMB(3.9,111,2,3837,0)="""RTN"",""PSOORNW2"",23,0)"
^XMB(3.9,111,2,3838,0)=" ;"
^XMB(3.9,111,2,3839,0)="""RTN"",""PSOORNW2"",24,0)"
^XMB(3.9,111,2,3840,0)="5 S PSONEW(""FLD"")=2 D FILLDT^PSODIR2(.PSONEW) ; Fill date"
^XMB(3.9,111,2,3841,0)="""RTN"",""PSOORNW2"",25,0)"
^XMB(3.9,111,2,3842,0)=" Q"
^XMB(3.9,111,2,3843,0)="""RTN"",""PSOORNW2"",26,0)"
^XMB(3.9,111,2,3844,0)=" ;"
^XMB(3.9,111,2,3845,0)="""RTN"",""PSOORNW2"",27,0)"
^XMB(3.9,111,2,3846,0)="INS S PSONEW(""FLD"")=114 D INS^PSODIR(.PSONEW) ; Pat Inst"
^XMB(3.9,111,2,3847,0)="""RTN"",""PSOORNW2"",28,0)"
^XMB(3.9,111,2,3848,0)=" I $P($G(^PS(55,PSODFN,""LAN"")),""^"") D SINS^PSODIR(.PSONEW)"
^XMB(3.9,111,2,3849,0)="""RTN"",""PSOORNW2"",29,0)"
^XMB(3.9,111,2,3850,0)=" Q"
^XMB(3.9,111,2,3851,0)="""RTN"",""PSOORNW2"",30,0)"
^XMB(3.9,111,2,3852,0)=" ;"
^XMB(3.9,111,2,3853,0)="""RTN"",""PSOORNW2"",31,0)"
^XMB(3.9,111,2,3854,0)="3 S PSONEW(""FLD"")=3 D PTSTAT^PSODIR1(.PSONEW) ; Get Patient Status"
^XMB(3.9,111,2,3855,0)="""RTN"",""PSOORNW2"",32,0)"
^XMB(3.9,111,2,3856,0)=" I +$G(^PS(55,PSODFN,""PS"")) S RXPT=+^(""PS"") I $G(^PS(53,RXPT,0))]"""" D  Q"
^XMB(3.9,111,2,3857,0)="""RTN"",""PSOORNW2"",33,0)"
^XMB(3.9,111,2,3858,0)=" .S PSONEW(""# OF REFILLS"")=$S(+$P(OR0,""^"",11)>+$P(^PS(53,RXPT,0),""^"",4):+$P(^PS(53,RXPT,0),""^"",4),1:+$P(OR0,""^"",11)),PSOMAX=+$P(^PS(53,RXPT,0),""^"",4)"
^XMB(3.9,111,2,3859,0)="""RTN"",""PSOORNW2"",34,0)"
^XMB(3.9,111,2,3860,0)=" .S PSOMAX=$S($G(PSOCS):5,1:11),PSOMAX=$S(PSOMAX>+$P(^PS(53,RXPT,0),""^"",4):+$P(^PS(53,RXPT,0),""^"",4),1:PSOMAX)"
^XMB(3.9,111,2,3861,0)="""RTN"",""PSOORNW2"",35,0)"
^XMB(3.9,111,2,3862,0)=" .S PSONEW(""# OF REFILLS"")=$S(PSONEW(""# OF REFILLS"")>PSOMAX:PSOMAX,1:PSONEW(""# OF REFILLS""))"
^XMB(3.9,111,2,3863,0)="""RTN"",""PSOORNW2"",36,0)"
^XMB(3.9,111,2,3864,0)=" I $G(PSOMAX) S PSONEW(""# OF REFILLS"")=$S(+$P(OR0,""^"",11)>PSOMAX:PSOMAX,1:+$P(OR0,""^"",11))"
^XMB(3.9,111,2,3865,0)="""RTN"",""PSOORNW2"",37,0)"
^XMB(3.9,111,2,3866,0)=" I $G(PSODRUG(""DEA""))[""A""&($G(PSODRUG(""DEA""))'[""B"")!($G(PSODRUG(""DEA""))[""F"") D"
^XMB(3.9,111,2,3867,0)="""RTN"",""PSOORNW2"",38,0)"
^XMB(3.9,111,2,3868,0)=" .S PSONEW(""# OF REFILLS"")=0,VALMSG=""No refills allowed on ""_$S(PSODRUG(""DEA"")[""F"":""this drug."",1:""Narcotics ..."")"
^XMB(3.9,111,2,3869,0)="""RTN"",""PSOORNW2"",39,0)"
^XMB(3.9,111,2,3870,0)=" Q"
^XMB(3.9,111,2,3871,0)="""RTN"",""PSOORNW2"",40,0)"
^XMB(3.9,111,2,3872,0)=" ;"
^XMB(3.9,111,2,3873,0)="""RTN"",""PSOORNW2"",41,0)"
^XMB(3.9,111,2,3874,0)="12 S PSONEW(""FLD"")=4 D PROV^PSODIR(.PSONEW) ; Get Provider"
^XMB(3.9,111,2,3875,0)="""RTN"",""PSOORNW2"",42,0)"
^XMB(3.9,111,2,3876,0)=" Q"
^XMB(3.9,111,2,3877,0)="""RTN"",""PSOORNW2"",43,0)"
^XMB(3.9,111,2,3878,0)=" ;"
^XMB(3.9,111,2,3879,0)="""RTN"",""PSOORNW2"",44,0)"
^XMB(3.9,111,2,3880,0)="11 S PSONEW(""FLD"")=5 D CLINIC^PSODIR2(.PSONEW) ; Get Clinic"
^XMB(3.9,111,2,3881,0)="""RTN"",""PSOORNW2"",45,0)"
^XMB(3.9,111,2,3882,0)=" Q"
^XMB(3.9,111,2,3883,0)="""RTN"",""PSOORNW2"",46,0)"
^XMB(3.9,111,2,3884,0)=" ;"
^XMB(3.9,111,2,3885,0)="""RTN"",""PSOORNW2"",47,0)"
^XMB(3.9,111,2,3886,0)="8 S PSONEW(""FLD"")=7 D QTY^PSODIR1(.PSONEW) ; Get quantity"
^XMB(3.9,111,2,3887,0)="""RTN"",""PSOORNW2"",48,0)"
^XMB(3.9,111,2,3888,0)=" Q"
^XMB(3.9,111,2,3889,0)="""RTN"",""PSOORNW2"",49,0)"
^XMB(3.9,111,2,3890,0)=" ;"
^XMB(3.9,111,2,3891,0)="""RTN"",""PSOORNW2"",50,0)"
^XMB(3.9,111,2,3892,0)="7 I '$G(PSODRUG(""IEN"")) W $C(7),!!,""No Dispense Drug!"",! K DIR,DUOUT,DIRUT,DTOUT D 2^PSOORNW1"
^XMB(3.9,111,2,3893,0)="""RTN"",""PSOORNW2"",51,0)"
^XMB(3.9,111,2,3894,0)=" I '$G(PSODRUG(""IEN"")) W !,$C(7),""No Dispense Drug Selected! A new Orderable Item may need to be selected."",! Q"
^XMB(3.9,111,2,3895,0)="""RTN"",""PSOORNW2"",52,0)"
^XMB(3.9,111,2,3896,0)=" S PSONEW(""FLD"")=8 D DAYS^PSODIR1(.PSONEW) ; Get days supply"
^XMB(3.9,111,2,3897,0)="""RTN"",""PSOORNW2"",53,0)"
^XMB(3.9,111,2,3898,0)=" Q:'$G(PSONEW(""PATIENT STATUS""))"
^XMB(3.9,111,2,3899,0)="""RTN"",""PSOORNW2"",54,0)"
^XMB(3.9,111,2,3900,0)=" K PSDY,PSDY1,PSMAX,PSTMAX S PSDAYS=PSONEW(""DAYS SUPPLY""),PSRF=PSONEW(""# OF REFILLS""),PTST=$P(^PS(53,PSONEW(""PATIENT STATUS""),0),""^""),PTDY=$P(^(0),""^"",3),PTRF=$P(^(0),""^"",4),PSODEA=PSODRUG(""DEA""),CS=0 ;D EDNEW^PSOORNW1"
^XMB(3.9,111,2,3901,0)="""RTN"",""PSOORNW2"",55,0)"
^XMB(3.9,111,2,3902,0)=" Q"
^XMB(3.9,111,2,3903,0)="""RTN"",""PSOORNW2"",56,0)"
^XMB(3.9,111,2,3904,0)="9 ;"
^XMB(3.9,111,2,3905,0)="""RTN"",""PSOORNW2"",57,0)"
^XMB(3.9,111,2,3906,0)=" I '$G(PSONEW(""PATIENT STATUS"")) W !!,""Rx Patient Status required!"",! D 3 I '$G(PSONEW(""PATIENT STATUS"")) S VALMSG=""Rx Patient Status required!"",VALMBCK=""R"" Q"
^XMB(3.9,111,2,3907,0)="""RTN"",""PSOORNW2"",58,0)"
^XMB(3.9,111,2,3908,0)=" I +$G(^PS(55,PSODFN,""PS"")) S RXPT=+^(""PS"") I $G(^PS(53,RXPT,0))]"""" D  G ASK"
^XMB(3.9,111,2,3909,0)="""RTN"",""PSOORNW2"",59,0)"
^XMB(3.9,111,2,3910,0)=" .S PSOMAX=$S($G(CLOZPAT)=2:3,$G(CLOZPAT)=1:1,$G(CLOZPAT)=0:0,1:+$P(^PS(53,RXPT,0),""^"",4)) K RXPT"
^XMB(3.9,111,2,3911,0)="""RTN"",""PSOORNW2"",60,0)"
^XMB(3.9,111,2,3912,0)=" .S:'$G(PSONEW(""# OF REFILLS"")) PSONEW(""# OF REFILLS"")=$S(+$P(OR0,""^"",11)>PSOMAX:PSOMAX,1:+$P(OR0,""^"",11))"
^XMB(3.9,111,2,3913,0)="""RTN"",""PSOORNW2"",61,0)"
^XMB(3.9,111,2,3914,0)=" .S (PSONEW(""N# REF""),PSONEW(""# OF REFILLS""))=$S(PSONEW(""# OF REFILLS"")>PSOMAX:PSOMAX,1:PSONEW(""# OF REFILLS""))"
^XMB(3.9,111,2,3915,0)="""RTN"",""PSOORNW2"",62,0)"
^XMB(3.9,111,2,3916,0)=" .I '$D(CLOZPAT) I $G(PSODRUG(""DEA""))[""A""&($G(PSODRUG(""DEA""))'[""B"")!($G(PSODRUG(""DEA""))[""F"") D  Q"
^XMB(3.9,111,2,3917,0)="""RTN"",""PSOORNW2"",63,0)"
^XMB(3.9,111,2,3918,0)=" ..S (PSOMAX,PSONEW(""N# REF""),PSONEW(""# OF REFILLS""))=0,VALMSG=""No refills allowed on ""_$S(PSODRUG(""DEA"")[""F"":""this drug."",1:""Narcotics ..."")"
^XMB(3.9,111,2,3919,0)="""RTN"",""PSOORNW2"",64,0)"
^XMB(3.9,111,2,3920,0)=" .I $D(PSODRUG(""DEA"")) F DEA=1:1 Q:$E(PSODRUG(""DEA""),DEA)=""""  I $E(+PSODRUG(""DEA""),DEA)>1,$E(+PSODRUG(""DEA""),DEA)<6 S PSOMAX=5"
^XMB(3.9,111,2,3921,0)="""RTN"",""PSOORNW2"",65,0)"
^XMB(3.9,111,2,3922,0)=" I '$D(CLOZPAT) I $G(PSODRUG(""DEA""))[""A""&($G(PSODRUG(""DEA""))'[""B"")!($G(PSODRUG(""DEA""))[""F"") D  Q"
^XMB(3.9,111,2,3923,0)="""RTN"",""PSOORNW2"",66,0)"
^XMB(3.9,111,2,3924,0)=" .S (PSONEW(""N# REF""),PSONEW(""# OF REFILLS""))=0,VALMSG=""No refills allowed on ""_$S(PSODRUG(""DEA"")[""F"":""this drug."",1:""Narcotics ..."")"
^XMB(3.9,111,2,3925,0)="""RTN"",""PSOORNW2"",67,0)"
^XMB(3.9,111,2,3926,0)=" S (PSONEW(""N# REF""),PSOMAX,PSONEW(""# OF REFILLS""))=+$P(OR0,""^"",11)"
^XMB(3.9,111,2,3927,0)="""RTN"",""PSOORNW2"",68,0)"
^XMB(3.9,111,2,3928,0)="ASK S PSONEW(""FLD"")=9 D REFILL^PSODIR1(.PSONEW) ; Get # of refills"
^XMB(3.9,111,2,3929,0)="""RTN"",""PSOORNW2"",69,0)"
^XMB(3.9,111,2,3930,0)=" K PSOMAX,PSMAX,PSTMAX S PSDAYS=PSONEW(""DAYS SUPPLY""),PSRF=PSONEW(""# OF REFILLS""),PTST=$P(^PS(53,PSONEW(""PATIENT STATUS""),0),""^""),PTDY=$P(^(0),""^"",3),PTRF=$P(^(0),""^"",4),PSODEA=$G(PSODRUG(""DEA"")),CS=0 D EDNEW^PSOORNW1"
^XMB(3.9,111,2,3931,0)="""RTN"",""PSOORNW2"",70,0)"
^XMB(3.9,111,2,3932,0)=" Q"
^XMB(3.9,111,2,3933,0)="""RTN"",""PSOORNW2"",71,0)"
^XMB(3.9,111,2,3934,0)=" ;"
^XMB(3.9,111,2,3935,0)="""RTN"",""PSOORNW2"",72,0)"
^XMB(3.9,111,2,3936,0)="6 Q  K DA S PSONEW(""FLD"")=10 D SIG^PSODIR1(.PSONEW) ; Get sig"
^XMB(3.9,111,2,3937,0)="""RTN"",""PSOORNW2"",73,0)"
^XMB(3.9,111,2,3938,0)=" I $G(PSONEW(""SIG""))]"""" D EN^PSOSIGNO(ORD,PSONEW(""SIG"")) S SIG(1)=PSONEW(""SIG"")"
^XMB(3.9,111,2,3939,0)="""RTN"",""PSOORNW2"",74,0)"
^XMB(3.9,111,2,3940,0)=" I $G(PSOSIGFL) D"
^XMB(3.9,111,2,3941,0)="""RTN"",""PSOORNW2"",75,0)"
^XMB(3.9,111,2,3942,0)=" .K DIRUT,DUOUT,DTOUT,DIR S DIR(0)=""Y"",DIR(""B"")=""NO"",DIR(""A"",1)="""",DIR(""A"")=""This edit will create a new order.  Do you want to continue"" D ^DIR"
^XMB(3.9,111,2,3943,0)="""RTN"",""PSOORNW2"",76,0)"
^XMB(3.9,111,2,3944,0)=" .I 'Y!($D(DIRUT)) K DIR,DIRUT,DUOUT,DTOUT,DIC,Y,PSOSIGFL,PSONEW(""SIG"") S SIGOK=1"
^XMB(3.9,111,2,3945,0)="""RTN"",""PSOORNW2"",77,0)"
^XMB(3.9,111,2,3946,0)=" S PSONEW(""CLERK CODE"")=DUZ K DIR,DIRUT,DUOUT,DTOUT,DIC,Y"
^XMB(3.9,111,2,3947,0)="""RTN"",""PSOORNW2"",78,0)"
^XMB(3.9,111,2,3948,0)=" Q"
^XMB(3.9,111,2,3949,0)="""RTN"",""PSOORNW2"",79,0)"
^XMB(3.9,111,2,3950,0)=" ;"
^XMB(3.9,111,2,3951,0)="""RTN"",""PSOORNW2"",80,0)"
^XMB(3.9,111,2,3952,0)="13 S PSONEW(""FLD"")=11 D COPIES^PSODIR1(.PSONEW) ; Get # of copies"
^XMB(3.9,111,2,3953,0)="""RTN"",""PSOORNW2"",81,0)"
^XMB(3.9,111,2,3954,0)=" Q"
^XMB(3.9,111,2,3955,0)="""RTN"",""PSOORNW2"",82,0)"
^XMB(3.9,111,2,3956,0)=" ;"
^XMB(3.9,111,2,3957,0)="""RTN"",""PSOORNW2"",83,0)"
^XMB(3.9,111,2,3958,0)="10 S PSONEW(""FLD"")=12 D MW^PSODIR2(.PSONEW) ; Get Mail/Window Info"
^XMB(3.9,111,2,3959,0)="""RTN"",""PSOORNW2"",84,0)"
^XMB(3.9,111,2,3960,0)=" Q"
^XMB(3.9,111,2,3961,0)="""RTN"",""PSOORNW2"",85,0)"
^XMB(3.9,111,2,3962,0)=" ;"
^XMB(3.9,111,2,3963,0)="""RTN"",""PSOORNW2"",86,0)"
^XMB(3.9,111,2,3964,0)="14 S PSONEW(""FLD"")=13 D RMK^PSODIR2(.PSONEW) ; Get Remarks"
^XMB(3.9,111,2,3965,0)="""RTN"",""PSOORNW2"",87,0)"
^XMB(3.9,111,2,3966,0)=" Q"
^XMB(3.9,111,2,3967,0)="""RTN"",""PSOORNW2"",88,0)"
^XMB(3.9,111,2,3968,0)="DREN ;"
^XMB(3.9,111,2,3969,0)="""RTN"",""PSOORNW2"",89,0)"
^XMB(3.9,111,2,3970,0)=" S (PSDC,PSI)=0"
^XMB(3.9,111,2,3971,0)="""RTN"",""PSOORNW2"",90,0)"
^XMB(3.9,111,2,3972,0)=" F  S PSI=$O(^PSDRUG(""ASP"",PSODRUG(""OI""),PSI)) Q:'PSI  I $S('$D(^PSDRUG(PSI,""I"")):1,'^(""I""):1,DT'>^(""I""):1,1:0),$S($P($G(^PSDRUG(PSI,2)),""^"",3)'[""O"":0,1:1) S PSDC=PSDC+1,PSDC(PSDC)=PSI"
^XMB(3.9,111,2,3973,0)="""RTN"",""PSOORNW2"",91,0)"
^XMB(3.9,111,2,3974,0)=" I PSDC'=1 D  G DRENX"
^XMB(3.9,111,2,3975,0)="""RTN"",""PSOORNW2"",92,0)"
^XMB(3.9,111,2,3976,0)=" .I $P($G(^PSDRUG(+$G(PSODRUG(""IEN"")),2)),""^"")=$G(PSODRUG(""OI"")) Q"
^XMB(3.9,111,2,3977,0)="""RTN"",""PSOORNW2"",93,0)"
^XMB(3.9,111,2,3978,0)=" .K PSODRUG(""NAME""),PSODRUG(""IEN"")"
^XMB(3.9,111,2,3979,0)="""RTN"",""PSOORNW2"",94,0)"
^XMB(3.9,111,2,3980,0)=" K PSOY S PSI=PSDC(1),PSOY=^PSDRUG(PSI,0)"
^XMB(3.9,111,2,3981,0)="""RTN"",""PSOORNW2"",95,0)"
^XMB(3.9,111,2,3982,0)=" I $P($G(^PSDRUG(PSI,""CLOZ1"")),""^"")=""PSOCLO1"",'$O(^YSCL(603.01,""C"",PSODFN,0)) K PSOY,PSI Q"
^XMB(3.9,111,2,3983,0)="""RTN"",""PSOORNW2"",96,0)"
^XMB(3.9,111,2,3984,0)=" S PSODRUG(""IEN"")=+PSI,PSODRUG(""VA CLASS"")=$P(PSOY,""^"",2),PSODRUG(""NAME"")=$P(PSOY,""^"")"
^XMB(3.9,111,2,3985,0)="""RTN"",""PSOORNW2"",97,0)"
^XMB(3.9,111,2,3986,0)=" S PSODRUG(""NDF"")=$S($G(^PSDRUG(PSI,""ND""))]"""":+^(""ND"")_""A""_$P(^(""ND""),""^"",3),1:0)"
^XMB(3.9,111,2,3987,0)="""RTN"",""PSOORNW2"",98,0)"
^XMB(3.9,111,2,3988,0)=" S PSODRUG(""MAXDOSE"")=$P(PSOY,""^"",4),PSODRUG(""DEA"")=$P(PSOY,""^"",3),PSODRUG(""CLN"")=$S($D(^PSDRUG(+PSI,""ND"")):+$P(^(""ND""),""^"",6),1:0)"
^XMB(3.9,111,2,3989,0)="""RTN"",""PSOORNW2"",99,0)"
^XMB(3.9,111,2,3990,0)=" S PSODRUG(""SIG"")=$P(PSOY,""^"",5),PSODRUG(""NDC"")=$$GETNDC^PSSNDCUT(+PSI,$G(PSOSITE)),PSODRUG(""STKLVL"")=$G(^PSDRUG(+PSI,660.1))"
^XMB(3.9,111,2,3991,0)="""RTN"",""PSOORNW2"",100,0)"
^XMB(3.9,111,2,3992,0)=" S PSODRUG(""DAW"")=+$$GET1^DIQ(50,+PSI,81)"
^XMB(3.9,111,2,3993,0)="""RTN"",""PSOORNW2"",101,0)"
^XMB(3.9,111,2,3994,0)=" G:$G(^PSDRUG(+PSI,660))']"""" DRENX"
^XMB(3.9,111,2,3995,0)="""RTN"",""PSOORNW2"",102,0)"
^XMB(3.9,111,2,3996,0)=" S PSOX1=$G(^PSDRUG(+PSI,660)),PSODRUG(""COST"")=$P($G(PSOX1),""^"",6),PSODRUG(""UNIT"")=$P($G(PSOX1),""^"",8),PSODRUG(""EXPIRATION DATE"")=$P($G(PSOX1),""^"",9)"
^XMB(3.9,111,2,3997,0)="""RTN"",""PSOORNW2"",103,0)"
^XMB(3.9,111,2,3998,0)="DRENX K PSDC,PSI,PSOY,Y,PSOXI,X Q"
^XMB(3.9,111,2,3999,0)="""RTN"",""PSOORNW2"",104,0)"
^XMB(3.9,111,2,4000,0)="KV K DIR,DIRUT,DUOUT,DTOUT Q"
^XMB(3.9,111,2,4001,0)="""RTN"",""PSOP222"")"
^XMB(3.9,111,2,4002,0)="0^20^B1194743^n/a"
^XMB(3.9,111,2,4003,0)="""RTN"",""PSOP222"",1,0)"
^XMB(3.9,111,2,4004,0)="PSOP222 ;BIR/SJA - post install to remove PSO TPB HL7 EXTRACT task from file #19.2 ;01/25/06"
^XMB(3.9,111,2,4005,0)="""RTN"",""PSOP222"",2,0)"
^XMB(3.9,111,2,4006,0)=" ;;7.0;OUTPATIENT PHARMACY;**222**;DEC 1997;Build 12"
^XMB(3.9,111,2,4007,0)="""RTN"",""PSOP222"",3,0)"
^XMB(3.9,111,2,4008,0)=" ;External reference to ^DIC(19.2 supported by DBIA #3732"
^XMB(3.9,111,2,4009,0)="""RTN"",""PSOP222"",4,0)"
^XMB(3.9,111,2,4010,0)=" ;"
^XMB(3.9,111,2,4011,0)="""RTN"",""PSOP222"",5,0)"
^XMB(3.9,111,2,4012,0)=" N DA,X,Y,XY,XZ,DIC,DIK,I S XZ=""OPTION SCHEDULING file (#19.2)"""
^XMB(3.9,111,2,4013,0)="""RTN"",""PSOP222"",6,0)"
^XMB(3.9,111,2,4014,0)=" S (DIC,DIK)=""^DIC(19.2,"",(X,XY)=""PSO TPB HL7 EXTRACT"" D ^DIC S DA=+Y"
^XMB(3.9,111,2,4015,0)="""RTN"",""PSOP222"",7,0)"
^XMB(3.9,111,2,4016,0)=" I DA'>0 D BMES^XPDUTL(XY_"" task not found in the ""_XZ) G QT"
^XMB(3.9,111,2,4017,0)="""RTN"",""PSOP222"",8,0)"
^XMB(3.9,111,2,4018,0)=" D ^DIK"
^XMB(3.9,111,2,4019,0)="""RTN"",""PSOP222"",9,0)"
^XMB(3.9,111,2,4020,0)=" D BMES^XPDUTL(XY_"" task is deleted from the ""_XZ)"
^XMB(3.9,111,2,4021,0)="""RTN"",""PSOP222"",10,0)"
^XMB(3.9,111,2,4022,0)="QT D MES^XPDUTL(""Post-install run completed successfully"")"
^XMB(3.9,111,2,4023,0)="""RTN"",""PSOP222"",11,0)"
^XMB(3.9,111,2,4024,0)=" K XZ S (XZ(""AUDIT""),XZ(""DD""),XZ(""DEL""),XZ(""LAYGO""),XZ(""RD""),XZ(""WR""))=""@"""
^XMB(3.9,111,2,4025,0)="""RTN"",""PSOP222"",12,0)"
^XMB(3.9,111,2,4026,0)=" D FILESEC^DDMOD(52.91,.XZ)"
^XMB(3.9,111,2,4027,0)="""RTN"",""PSOP222"",13,0)"
^XMB(3.9,111,2,4028,0)=" K XZ S XZ(""RD"")=""Pp"""
^XMB(3.9,111,2,4029,0)="""RTN"",""PSOP222"",14,0)"
^XMB(3.9,111,2,4030,0)=" D FILESEC^DDMOD(52.43,.XZ)"
^XMB(3.9,111,2,4031,0)="""RTN"",""PSOP222"",15,0)"
^XMB(3.9,111,2,4032,0)=" Q"
^XMB(3.9,111,2,4033,0)="""RTN"",""PSOSIGDS"")"
^XMB(3.9,111,2,4034,0)="0^17^B62109134^B61227434"
^XMB(3.9,111,2,4035,0)="""RTN"",""PSOSIGDS"",1,0)"
^XMB(3.9,111,2,4036,0)="PSOSIGDS ;BIR/RTR-Utility to calculate Days Supply ;6/04/00"
^XMB(3.9,111,2,4037,0)="""RTN"",""PSOSIGDS"",2,0)"
^XMB(3.9,111,2,4038,0)=" ;;7.0;OUTPATIENT PHARMACY;**46,222**;DEC 1997;Build 12"
^XMB(3.9,111,2,4039,0)="""RTN"",""PSOSIGDS"",3,0)"
^XMB(3.9,111,2,4040,0)=" ;External reference to PS(51 supported by DBIA 2224"
^XMB(3.9,111,2,4041,0)="""RTN"",""PSOSIGDS"",4,0)"
^XMB(3.9,111,2,4042,0)=" ;External reference to PS(51.1 supported by DBIA 2225"
^XMB(3.9,111,2,4043,0)="""RTN"",""PSOSIGDS"",5,0)"
^XMB(3.9,111,2,4044,0)=" ;External reference to PS(55 supported by DBIA 2228"
^XMB(3.9,111,2,4045,0)="""RTN"",""PSOSIGDS"",6,0)"
^XMB(3.9,111,2,4046,0)=" ;External reference to PSDRUG( supported by DBIA 221"
^XMB(3.9,111,2,4047,0)="""RTN"",""PSOSIGDS"",7,0)"
^XMB(3.9,111,2,4048,0)=" ;External reference to YSCL(603.01 supported by DBIA 2697"
^XMB(3.9,111,2,4049,0)="""RTN"",""PSOSIGDS"",8,0)"
^XMB(3.9,111,2,4050,0)=" ;"
^XMB(3.9,111,2,4051,0)="""RTN"",""PSOSIGDS"",9,0)"
^XMB(3.9,111,2,4052,0)="EN(PSOSIGX) ;"
^XMB(3.9,111,2,4053,0)="""RTN"",""PSOSIGDS"",10,0)"
^XMB(3.9,111,2,4054,0)=" N VARIABLE"
^XMB(3.9,111,2,4055,0)="""RTN"",""PSOSIGDS"",11,0)"
^XMB(3.9,111,2,4056,0)=" Q"
^XMB(3.9,111,2,4057,0)="""RTN"",""PSOSIGDS"",12,0)"
^XMB(3.9,111,2,4058,0)="SCH ;SCH = schedule entered     SCHEX = expanded schedule"
^XMB(3.9,111,2,4059,0)="""RTN"",""PSOSIGDS"",13,0)"
^XMB(3.9,111,2,4060,0)=" N SQFLAG,SCLOOP,SCLP,SCLPS,SCLHOLD,SCIN,SODL,SST"
^XMB(3.9,111,2,4061,0)="""RTN"",""PSOSIGDS"",14,0)"
^XMB(3.9,111,2,4062,0)=" K SCHEX S SQFLAG=0"
^XMB(3.9,111,2,4063,0)="""RTN"",""PSOSIGDS"",15,0)"
^XMB(3.9,111,2,4064,0)=" I $G(SCH)="""" S SCHEX="""" Q"
^XMB(3.9,111,2,4065,0)="""RTN"",""PSOSIGDS"",16,0)"
^XMB(3.9,111,2,4066,0)=" F SCLOOP=0:0 S SCLOOP=$O(^PS(51.1,""B"",SCH,SCLOOP)) Q:'SCLOOP!(SQFLAG)  I $P($G(^PS(51.1,SCLOOP,0)),""^"",8)'="""" S SCHEX=$P($G(^(0)),""^"",8),SQFLAG=1"
^XMB(3.9,111,2,4067,0)="""RTN"",""PSOSIGDS"",17,0)"
^XMB(3.9,111,2,4068,0)=" Q:SQFLAG"
^XMB(3.9,111,2,4069,0)="""RTN"",""PSOSIGDS"",18,0)"
^XMB(3.9,111,2,4070,0)=" I $P($G(^PS(51,""A"",SCH)),""^"")'="""" S SCHEX=$P(^(SCH),""^"") Q"
^XMB(3.9,111,2,4071,0)="""RTN"",""PSOSIGDS"",19,0)"
^XMB(3.9,111,2,4072,0)=" S SCLOOP=0 F SCLP=1:1:$L(SCH) S SCLPS=$E(SCH,SCLP) I SCLPS="" "" S SCLOOP=SCLOOP+1"
^XMB(3.9,111,2,4073,0)="""RTN"",""PSOSIGDS"",20,0)"
^XMB(3.9,111,2,4074,0)=" I SCLOOP=0 S SCHEX=SCH Q"
^XMB(3.9,111,2,4075,0)="""RTN"",""PSOSIGDS"",21,0)"
^XMB(3.9,111,2,4076,0)=" S SCLOOP=SCLOOP+1"
^XMB(3.9,111,2,4077,0)="""RTN"",""PSOSIGDS"",22,0)"
^XMB(3.9,111,2,4078,0)=" K SCLHOLD F SCIN=1:1:SCLOOP S (SODL,SCLHOLD(SCIN))=$P(SCH,"" "",SCIN) D"
^XMB(3.9,111,2,4079,0)="""RTN"",""PSOSIGDS"",23,0)"
^XMB(3.9,111,2,4080,0)=" .Q:$G(SODL)="""""
^XMB(3.9,111,2,4081,0)="""RTN"",""PSOSIGDS"",24,0)"
^XMB(3.9,111,2,4082,0)=" .S SQFLAG=0 F SST=0:0 S SST=$O(^PS(51.1,""B"",SODL,SST)) Q:'SST!($G(SQFLAG))  I $P($G(^PS(51.1,SST,0)),""^"",8)'="""" S SCLHOLD(SCIN)=$P($G(^(0)),""^"",8),SQFLAG=1"
^XMB(3.9,111,2,4083,0)="""RTN"",""PSOSIGDS"",25,0)"
^XMB(3.9,111,2,4084,0)=" .Q:$G(SQFLAG)"
^XMB(3.9,111,2,4085,0)="""RTN"",""PSOSIGDS"",26,0)"
^XMB(3.9,111,2,4086,0)=" .I $P($G(^PS(51,""A"",SODL)),""^"")'="""" S SCLHOLD(SCIN)=$P(^(SODL),""^"")"
^XMB(3.9,111,2,4087,0)="""RTN"",""PSOSIGDS"",27,0)"
^XMB(3.9,111,2,4088,0)=" S SCHEX="""",SQFLAG=0 F SST=1:1:SCLOOP S SCHEX=SCHEX_$S($G(SQFLAG):"" "",1:"""")_$G(SCLHOLD(SST)),SQFLAG=1"
^XMB(3.9,111,2,4089,0)="""RTN"",""PSOSIGDS"",28,0)"
^XMB(3.9,111,2,4090,0)=" Q"
^XMB(3.9,111,2,4091,0)="""RTN"",""PSOSIGDS"",29,0)"
^XMB(3.9,111,2,4092,0)="QTY(PSOQX) ;"
^XMB(3.9,111,2,4093,0)="""RTN"",""PSOSIGDS"",30,0)"
^XMB(3.9,111,2,4094,0)=" Q"
^XMB(3.9,111,2,4095,0)="""RTN"",""PSOSIGDS"",31,0)"
^XMB(3.9,111,2,4096,0)="QTYOPS ;"
^XMB(3.9,111,2,4097,0)="""RTN"",""PSOSIGDS"",32,0)"
^XMB(3.9,111,2,4098,0)=" N QDOSE"
^XMB(3.9,111,2,4099,0)="""RTN"",""PSOSIGDS"",33,0)"
^XMB(3.9,111,2,4100,0)="QTYCP ;CPRS days supply call comes through here"
^XMB(3.9,111,2,4101,0)="""RTN"",""PSOSIGDS"",34,0)"
^XMB(3.9,111,2,4102,0)=" N PSOZMIN,PSQQUIT,QTSH,PSQ,PSQMIN,PSQMINZ,PSOQRND,PSOLOWER,PSOLOWX,PSOLOWXL,PSOLOWST"
^XMB(3.9,111,2,4103,0)="""RTN"",""PSOSIGDS"",35,0)"
^XMB(3.9,111,2,4104,0)=" K PSOFRQ S PSQQUIT=0"
^XMB(3.9,111,2,4105,0)="""RTN"",""PSOSIGDS"",36,0)"
^XMB(3.9,111,2,4106,0)=" I '$G(PSOCPRQT) S QDOSE=0 F PSQ=0:0 S PSQ=$O(PSOQX(""DOSE"",PSQ)) Q:'PSQ  S QDOSE=PSQ S:'$G(PSOQX(""DOSE ORDERED"",PSQ)) PSQQUIT=1"
^XMB(3.9,111,2,4107,0)="""RTN"",""PSOSIGDS"",37,0)"
^XMB(3.9,111,2,4108,0)=" ;Q:PSQQUIT!('QDOSE)"
^XMB(3.9,111,2,4109,0)="""RTN"",""PSOSIGDS"",38,0)"
^XMB(3.9,111,2,4110,0)=" I '$G(PSOCPRQT) Q:PSQQUIT"
^XMB(3.9,111,2,4111,0)="""RTN"",""PSOSIGDS"",39,0)"
^XMB(3.9,111,2,4112,0)=" Q:'$G(QDOSE)"
^XMB(3.9,111,2,4113,0)="""RTN"",""PSOSIGDS"",40,0)"
^XMB(3.9,111,2,4114,0)=" G:QDOSE>1 COMP"
^XMB(3.9,111,2,4115,0)="""RTN"",""PSOSIGDS"",41,0)"
^XMB(3.9,111,2,4116,0)=" Q:'$G(PSOQX(""DOSE ORDERED"",1))"
^XMB(3.9,111,2,4117,0)="""RTN"",""PSOSIGDS"",42,0)"
^XMB(3.9,111,2,4118,0)=" ;Q:'$G(PSOQX(""DAYS SUPPLY""))&('$G(PSOQX(""DURATION"",1)))"
^XMB(3.9,111,2,4119,0)="""RTN"",""PSOSIGDS"",43,0)"
^XMB(3.9,111,2,4120,0)=" S PSOLOWER=0"
^XMB(3.9,111,2,4121,0)="""RTN"",""PSOSIGDS"",44,0)"
^XMB(3.9,111,2,4122,0)=" I $G(PSOQX(""DURATION"",1)) D"
^XMB(3.9,111,2,4123,0)="""RTN"",""PSOSIGDS"",45,0)"
^XMB(3.9,111,2,4124,0)=" .S PSOLOWX=$L(PSOQX(""DURATION"",1))"
^XMB(3.9,111,2,4125,0)="""RTN"",""PSOSIGDS"",46,0)"
^XMB(3.9,111,2,4126,0)=" .S PSOLOWXL=$S($E(PSOQX(""DURATION"",1),PSOLOWX)=""M"":1,$E(PSOQX(""DURATION"",1),PSOLOWX)=""H"":60,$E(PSOQX(""DURATION"",1),PSOLOWX)=""S"":.01666,$E(PSOQX(""DURATION"",1),PSOLOWX)=""W"":10080,$E(PSOQX(""DURATION"",1),PSOLOWX)=""L"":43200,1:1440)"
^XMB(3.9,111,2,4127,0)="""RTN"",""PSOSIGDS"",47,0)"
^XMB(3.9,111,2,4128,0)=" .S PSOLOWER=PSOLOWXL*(+$G(PSOQX(""DURATION"",1)))"
^XMB(3.9,111,2,4129,0)="""RTN"",""PSOSIGDS"",48,0)"
^XMB(3.9,111,2,4130,0)=" ;S PSOLOWX=0 I +$G(PSOQX(""DAYS SUPPLY"")) S PSOLOWX=1440*+$G(PSOQX(""DAYS SUPPLY""))"
^XMB(3.9,111,2,4131,0)="""RTN"",""PSOSIGDS"",49,0)"
^XMB(3.9,111,2,4132,0)=" ;Q:'$G(PSOLOWER)&('$G(PSOLOWX))"
^XMB(3.9,111,2,4133,0)="""RTN"",""PSOSIGDS"",50,0)"
^XMB(3.9,111,2,4134,0)=" S QTSH=$G(PSOQX(""SCHEDULE"",1)) D QTS Q:PSQQUIT!('$G(PSOFRQ))"
^XMB(3.9,111,2,4135,0)="""RTN"",""PSOSIGDS"",51,0)"
^XMB(3.9,111,2,4136,0)=" ;S PSOLOWST=$S('$G(PSOLOWER):$G(PSOLOWX),'$G(PSOLOWX):$G(PSOLOWER),$G(PSOLOWER)>$G(PSOLOWX):$G(PSOLOWX),$G(PSOLOWX)>$G(PSOLOWER):$G(PSOLOWER),$G(PSOLOWX)=$G(PSOLOWER):$G(PSOLOWER),1:0)"
^XMB(3.9,111,2,4137,0)="""RTN"",""PSOSIGDS"",52,0)"
^XMB(3.9,111,2,4138,0)=" ;Q:'$G(PSOLOWST)"
^XMB(3.9,111,2,4139,0)="""RTN"",""PSOSIGDS"",53,0)"
^XMB(3.9,111,2,4140,0)=" ;S PSQMIN=+$G(PSOLOWST)"
^XMB(3.9,111,2,4141,0)="""RTN"",""PSOSIGDS"",54,0)"
^XMB(3.9,111,2,4142,0)=" S PSQMIN=$S($G(PSOLOWER):$G(PSOLOWER),1:0) ; PSQMIN=Minutes based in duration, or 0 if no duration"
^XMB(3.9,111,2,4143,0)="""RTN"",""PSOSIGDS"",55,0)"
^XMB(3.9,111,2,4144,0)=" ;If Duration, determine using QTY how many days, regardless of duration, then use what is lower, that # of days or the duration, ROund that up, and check against Rx patient status"
^XMB(3.9,111,2,4145,0)="""RTN"",""PSOSIGDS"",56,0)"
^XMB(3.9,111,2,4146,0)=" ;if no duration, just figure out using QTY # of days, then compare that against Rx patient status"
^XMB(3.9,111,2,4147,0)="""RTN"",""PSOSIGDS"",57,0)"
^XMB(3.9,111,2,4148,0)=" S PSOZMIN=0"
^XMB(3.9,111,2,4149,0)="""RTN"",""PSOSIGDS"",58,0)"
^XMB(3.9,111,2,4150,0)=" S PSOZMIN=PSOQX(""QTY"")/PSOQX(""DOSE ORDERED"",1)"
^XMB(3.9,111,2,4151,0)="""RTN"",""PSOSIGDS"",59,0)"
^XMB(3.9,111,2,4152,0)=" S PSOZMIN=PSOZMIN*PSOFRQ"
^XMB(3.9,111,2,4153,0)="""RTN"",""PSOSIGDS"",60,0)"
^XMB(3.9,111,2,4154,0)=" I $G(PSOLOWER) S PSOZMIN=$S(PSOLOWER<PSOZMIN:PSOLOWER,1:PSOZMIN)"
^XMB(3.9,111,2,4155,0)="""RTN"",""PSOSIGDS"",61,0)"
^XMB(3.9,111,2,4156,0)=" S PSOZMIN=PSOZMIN/1440"
^XMB(3.9,111,2,4157,0)="""RTN"",""PSOSIGDS"",62,0)"
^XMB(3.9,111,2,4158,0)=" ;S PSQMINZ=PSQMIN/PSOFRQ"
^XMB(3.9,111,2,4159,0)="""RTN"",""PSOSIGDS"",63,0)"
^XMB(3.9,111,2,4160,0)=" ;S PSOQRND=PSQMINZ*+$G(PSOQX(""DOSE ORDERED"",1)) Q:'PSOQRND"
^XMB(3.9,111,2,4161,0)="""RTN"",""PSOSIGDS"",64,0)"
^XMB(3.9,111,2,4162,0)=" D ROUND G QEND"
^XMB(3.9,111,2,4163,0)="""RTN"",""PSOSIGDS"",65,0)"
^XMB(3.9,111,2,4164,0)=" Q"
^XMB(3.9,111,2,4165,0)="""RTN"",""PSOSIGDS"",66,0)"
^XMB(3.9,111,2,4166,0)="COMP ;COMPLEX DOSE HERE"
^XMB(3.9,111,2,4167,0)="""RTN"",""PSOSIGDS"",67,0)"
^XMB(3.9,111,2,4168,0)=" N PSQMNL,PSQMNLX,PSODUTOT,PSOLEFT,PSOZMIN,PSODUPTT,PSODUDIF,PSODUMIS,PSODUREP,PSQ1,PSODUX,PSODUXX,PSODSMIN,PSOFRQZ,PSOQUTOT"
^XMB(3.9,111,2,4169,0)="""RTN"",""PSOSIGDS"",68,0)"
^XMB(3.9,111,2,4170,0)=" N PSOQLD,PSOQLDA,PSOQLDT,PSOQLDX"
^XMB(3.9,111,2,4171,0)="""RTN"",""PSOSIGDS"",69,0)"
^XMB(3.9,111,2,4172,0)=" ;PSODUTOT = TOTAL OF ALL DURATIONS"
^XMB(3.9,111,2,4173,0)="""RTN"",""PSOSIGDS"",70,0)"
^XMB(3.9,111,2,4174,0)=" ;PSODUPTT = TOTAL OF DISPENSE UNITS PER DOSE"
^XMB(3.9,111,2,4175,0)="""RTN"",""PSOSIGDS"",71,0)"
^XMB(3.9,111,2,4176,0)=" ;PSODUDIF = DIFF. OF DURATION VS DAYS SUPPLY"
^XMB(3.9,111,2,4177,0)="""RTN"",""PSOSIGDS"",72,0)"
^XMB(3.9,111,2,4178,0)=" ;PSOQUTOT=QTY"
^XMB(3.9,111,2,4179,0)="""RTN"",""PSOSIGDS"",73,0)"
^XMB(3.9,111,2,4180,0)=" ;PSODUMIS = # OF SEQUENCES MISSING A DURATION IF >1 CAN'T DEFAULT"
^XMB(3.9,111,2,4181,0)="""RTN"",""PSOSIGDS"",74,0)"
^XMB(3.9,111,2,4182,0)=" ;PSODUREP = SEQUENCE # THAT IS MISSING DURATION"
^XMB(3.9,111,2,4183,0)="""RTN"",""PSOSIGDS"",75,0)"
^XMB(3.9,111,2,4184,0)=" ;PSODSMIN = MINUTES OF DAYS SUPPLY"
^XMB(3.9,111,2,4185,0)="""RTN"",""PSOSIGDS"",76,0)"
^XMB(3.9,111,2,4186,0)=" S (PSODUTOT,PSODUDIF,PSODUMIS,PSODUREP,PSODSMIN,PSOQLDA,PSOQLDT,PSOQLDX)=0"
^XMB(3.9,111,2,4187,0)="""RTN"",""PSOSIGDS"",77,0)"
^XMB(3.9,111,2,4188,0)=" ;next lines, add complex dose days supply calculation with ANDs"
^XMB(3.9,111,2,4189,0)="""RTN"",""PSOSIGDS"",78,0)"
^XMB(3.9,111,2,4190,0)=" F PSOQLD=1:1:QDOSE S:$G(PSOQX(""CONJUNCTION"",PSOQLD))[""A"" PSOQLDA=1 S:$G(PSOQX(""CONJUNCTION"",PSOQLD))[""T"" PSOQLDT=1 S:$G(PSOQX(""CONJUNCTION"",PSOQLD))[""X"" PSOQLDX=1"
^XMB(3.9,111,2,4191,0)="""RTN"",""PSOSIGDS"",79,0)"
^XMB(3.9,111,2,4192,0)=" I $G(PSOQLDA)!($G(PSOQLDX)) G QEND"
^XMB(3.9,111,2,4193,0)="""RTN"",""PSOSIGDS"",80,0)"
^XMB(3.9,111,2,4194,0)=" S PSOQUTOT=+$G(PSOQX(""QTY""))"
^XMB(3.9,111,2,4195,0)="""RTN"",""PSOSIGDS"",81,0)"
^XMB(3.9,111,2,4196,0)=" F PSQ1=1:1:QDOSE D  Q:PSODUMIS>1"
^XMB(3.9,111,2,4197,0)="""RTN"",""PSOSIGDS"",82,0)"
^XMB(3.9,111,2,4198,0)=" .I '$G(PSOQX(""DURATION"",PSQ1)) S PSODUMIS=PSODUMIS+1,PSODUREP=PSQ1 Q"
^XMB(3.9,111,2,4199,0)="""RTN"",""PSOSIGDS"",83,0)"
^XMB(3.9,111,2,4200,0)=" G:PSODUMIS>1 QEND ; More than 1 sequence missing a duration"
^XMB(3.9,111,2,4201,0)="""RTN"",""PSOSIGDS"",84,0)"
^XMB(3.9,111,2,4202,0)=" F PSQ=1:1:QDOSE D  Q:$G(PSQQUIT)"
^XMB(3.9,111,2,4203,0)="""RTN"",""PSOSIGDS"",85,0)"
^XMB(3.9,111,2,4204,0)=" .I '$G(PSOQX(""DOSE ORDERED"",PSQ))!($G(PSOQX(""SCHEDULE"",PSQ))="""") S PSQQUIT=1 Q"
^XMB(3.9,111,2,4205,0)="""RTN"",""PSOSIGDS"",86,0)"
^XMB(3.9,111,2,4206,0)=" .S QTSH=$G(PSOQX(""SCHEDULE"",PSQ)) D QTS S:'$G(PSOFRQ) PSQQUIT=1 Q:$G(PSQQUIT)"
^XMB(3.9,111,2,4207,0)="""RTN"",""PSOSIGDS"",87,0)"
^XMB(3.9,111,2,4208,0)=" .I $G(PSOQX(""DURATION"",PSQ)) S PSQMNL=$L(PSOQX(""DURATION"",PSQ)) D"
^XMB(3.9,111,2,4209,0)="""RTN"",""PSOSIGDS"",88,0)"
^XMB(3.9,111,2,4210,0)=" ..S PSQMNLX=$S($E(PSOQX(""DURATION"",PSQ),PSQMNL)=""M"":1,$E(PSOQX(""DURATION"",PSQ),PSQMNL)=""H"":60,$E(PSOQX(""DURATION"",PSQ),PSQMNL)=""S"":.01666,$E(PSOQX(""DURATION"",PSQ),PSQMNL)=""W"":10080,$E(PSOQX(""DURATION"",PSQ),PSQMNL)=""L"":43200,1:1440)"
^XMB(3.9,111,2,4211,0)="""RTN"",""PSOSIGDS"",89,0)"
^XMB(3.9,111,2,4212,0)=" ..S PSQMIN=PSQMNLX*(+$G(PSOQX(""DURATION"",PSQ)))"
^XMB(3.9,111,2,4213,0)="""RTN"",""PSOSIGDS"",90,0)"
^XMB(3.9,111,2,4214,0)=" ..S PSODUTOT=PSODUTOT+(PSQMNLX*(+$G(PSOQX(""DURATION"",PSQ))))"
^XMB(3.9,111,2,4215,0)="""RTN"",""PSOSIGDS"",91,0)"
^XMB(3.9,111,2,4216,0)=" .I '$G(PSOQX(""DURATION"",PSQ)) S PSOFRQZ=PSOFRQ Q"
^XMB(3.9,111,2,4217,0)="""RTN"",""PSOSIGDS"",92,0)"
^XMB(3.9,111,2,4218,0)=" .S PSQMINZ=PSQMIN/PSOFRQ"
^XMB(3.9,111,2,4219,0)="""RTN"",""PSOSIGDS"",93,0)"
^XMB(3.9,111,2,4220,0)=" .S PSODUPTT=$S($G(PSODUPTT):$G(PSODUPTT),1:0)+(PSQMINZ*+$G(PSOQX(""DOSE ORDERED"",PSQ)))"
^XMB(3.9,111,2,4221,0)="""RTN"",""PSOSIGDS"",94,0)"
^XMB(3.9,111,2,4222,0)=" I $G(PSQQUIT) G QEND"
^XMB(3.9,111,2,4223,0)="""RTN"",""PSOSIGDS"",95,0)"
^XMB(3.9,111,2,4224,0)=" I $G(PSOQUTOT)<0 G QEND"
^XMB(3.9,111,2,4225,0)="""RTN"",""PSOSIGDS"",96,0)"
^XMB(3.9,111,2,4226,0)=" I '$G(PSODUMIS),$G(PSODUPTT)>$G(PSOQUTOT) G QEND"
^XMB(3.9,111,2,4227,0)="""RTN"",""PSOSIGDS"",97,0)"
^XMB(3.9,111,2,4228,0)=" I '$G(PSODUMIS) S PSOZMIN=+$G(PSODUTOT)/1440 D ROUND G QEND"
^XMB(3.9,111,2,4229,0)="""RTN"",""PSOSIGDS"",98,0)"
^XMB(3.9,111,2,4230,0)=" I PSODUPTT'<PSOQUTOT!('$G(PSOFRQZ)) G QEND"
^XMB(3.9,111,2,4231,0)="""RTN"",""PSOSIGDS"",99,0)"
^XMB(3.9,111,2,4232,0)=" S PSODUPTT=PSOQUTOT-PSODUPTT S PSOLEFT=(PSODUPTT/+$G(PSOQX(""DOSE ORDERED"",PSODUREP)))*(+$G(PSOFRQZ))"
^XMB(3.9,111,2,4233,0)="""RTN"",""PSOSIGDS"",100,0)"
^XMB(3.9,111,2,4234,0)=" S PSODUTOT=PSODUTOT+PSOLEFT S PSOZMIN=PSODUTOT/1440 D ROUND"
^XMB(3.9,111,2,4235,0)="""RTN"",""PSOSIGDS"",101,0)"
^XMB(3.9,111,2,4236,0)=" G QEND"
^XMB(3.9,111,2,4237,0)="""RTN"",""PSOSIGDS"",102,0)"
^XMB(3.9,111,2,4238,0)="QTS ;Find frequency"
^XMB(3.9,111,2,4239,0)="""RTN"",""PSOSIGDS"",103,0)"
^XMB(3.9,111,2,4240,0)=" ;QTSH = SHCEDULE"
^XMB(3.9,111,2,4241,0)="""RTN"",""PSOSIGDS"",104,0)"
^XMB(3.9,111,2,4242,0)=" ;either return PSOFRQ for frequency or PSSQUIT for no frequency"
^XMB(3.9,111,2,4243,0)="""RTN"",""PSOSIGDS"",105,0)"
^XMB(3.9,111,2,4244,0)=" N SQTFLAG,SQQT,ZZQT,ZZQ,ZZQQ,ZQHOLD,QGLFLAG,PZQT,ZDL,ZZQX"
^XMB(3.9,111,2,4245,0)="""RTN"",""PSOSIGDS"",106,0)"
^XMB(3.9,111,2,4246,0)=" K PSOFRQ"
^XMB(3.9,111,2,4247,0)="""RTN"",""PSOSIGDS"",107,0)"
^XMB(3.9,111,2,4248,0)=" S (QGLFLAG,ZZQX)=0"
^XMB(3.9,111,2,4249,0)="""RTN"",""PSOSIGDS"",108,0)"
^XMB(3.9,111,2,4250,0)=" I $G(QTSH)="""" S PSQQUIT=1 Q"
^XMB(3.9,111,2,4251,0)="""RTN"",""PSOSIGDS"",109,0)"
^XMB(3.9,111,2,4252,0)=" S SQTFLAG=0 F SQQT=0:0 S SQQT=$O(^PS(51.1,""B"",QTSH,SQQT)) Q:'SQQT!($G(SQTFLAG))  I $P($G(^PS(51.1,SQQT,0)),""^"",3) S PSOFRQ=$P($G(^(0)),""^"",3),SQTFLAG=1"
^XMB(3.9,111,2,4253,0)="""RTN"",""PSOSIGDS"",110,0)"
^XMB(3.9,111,2,4254,0)=" Q:SQTFLAG"
^XMB(3.9,111,2,4255,0)="""RTN"",""PSOSIGDS"",111,0)"
^XMB(3.9,111,2,4256,0)=" F SQQT=0:0 S SQQT=$O(^PS(51,""B"",QTSH,SQQT)) Q:'SQQT!($G(SQTFLAG))  I $P($G(^PS(51,SQQT,0)),""^"",8) S PSOFRQ=$P($G(^(0)),""^"",8),SQTFLAG=1"
^XMB(3.9,111,2,4257,0)="""RTN"",""PSOSIGDS"",112,0)"
^XMB(3.9,111,2,4258,0)=" Q:SQTFLAG"
^XMB(3.9,111,2,4259,0)="""RTN"",""PSOSIGDS"",113,0)"
^XMB(3.9,111,2,4260,0)=" S ZZQT=0 F ZZQ=1:1:$L(QTSH) S ZZQQ=$E(QTSH,ZZQ) I ZZQQ="" "" S ZZQT=ZZQT+1"
^XMB(3.9,111,2,4261,0)="""RTN"",""PSOSIGDS"",114,0)"
^XMB(3.9,111,2,4262,0)=" I 'ZZQT S PSQQUIT=1 Q"
^XMB(3.9,111,2,4263,0)="""RTN"",""PSOSIGDS"",115,0)"
^XMB(3.9,111,2,4264,0)=" S ZZQT=ZZQT+1"
^XMB(3.9,111,2,4265,0)="""RTN"",""PSOSIGDS"",116,0)"
^XMB(3.9,111,2,4266,0)=" K ZQHOLD S QGLFLAG=0 F PZQT=1:1:ZZQT S (ZDL,ZQHOLD)=$P(QTSH,"" "",PZQT) D"
^XMB(3.9,111,2,4267,0)="""RTN"",""PSOSIGDS"",117,0)"
^XMB(3.9,111,2,4268,0)=" .Q:$G(ZDL)="""""
^XMB(3.9,111,2,4269,0)="""RTN"",""PSOSIGDS"",118,0)"
^XMB(3.9,111,2,4270,0)=" .S ZZQX=0 F SQQT=0:0 S SQQT=$O(^PS(51.1,""B"",ZDL,SQQT)) Q:'SQQT!($G(ZZQX))  I $P($G(^PS(51.1,SQQT,0)),""^"",3) S PSOFRQ=$P($G(^(0)),""^"",3),ZZQX=1,QGLFLAG=QGLFLAG+1"
^XMB(3.9,111,2,4271,0)="""RTN"",""PSOSIGDS"",119,0)"
^XMB(3.9,111,2,4272,0)=" .Q:ZZQX"
^XMB(3.9,111,2,4273,0)="""RTN"",""PSOSIGDS"",120,0)"
^XMB(3.9,111,2,4274,0)=" .S ZZQX=0 F SQQT=0:0 S SQQT=$O(^PS(51,""B"",ZDL,SQQT)) Q:'SQQT!($G(ZZQX))  I $P($G(^PS(51,SQQT,0)),""^"",8) S PSOFRQ=$P($G(^(0)),""^"",8),ZZQX=1,QGLFLAG=QGLFLAG+1"
^XMB(3.9,111,2,4275,0)="""RTN"",""PSOSIGDS"",121,0)"
^XMB(3.9,111,2,4276,0)=" I $G(QGLFLAG)>1 K PSOFRQ"
^XMB(3.9,111,2,4277,0)="""RTN"",""PSOSIGDS"",122,0)"
^XMB(3.9,111,2,4278,0)=" I '$G(PSOFRQ) S PSQQUIT=1"
^XMB(3.9,111,2,4279,0)="""RTN"",""PSOSIGDS"",123,0)"
^XMB(3.9,111,2,4280,0)=" Q"
^XMB(3.9,111,2,4281,0)="""RTN"",""PSOSIGDS"",124,0)"
^XMB(3.9,111,2,4282,0)="QEND ;"
^XMB(3.9,111,2,4283,0)="""RTN"",""PSOSIGDS"",125,0)"
^XMB(3.9,111,2,4284,0)=" K PSOFRQ"
^XMB(3.9,111,2,4285,0)="""RTN"",""PSOSIGDS"",126,0)"
^XMB(3.9,111,2,4286,0)=" Q"
^XMB(3.9,111,2,4287,0)="""RTN"",""PSOSIGDS"",127,0)"
^XMB(3.9,111,2,4288,0)="ROUND ;"
^XMB(3.9,111,2,4289,0)="""RTN"",""PSOSIGDS"",128,0)"
^XMB(3.9,111,2,4290,0)=" Q:'$G(PSOZMIN)"
^XMB(3.9,111,2,4291,0)="""RTN"",""PSOSIGDS"",129,0)"
^XMB(3.9,111,2,4292,0)=" I PSOZMIN'[""."" S PSOQX(""DAYS SUPPLY"")=PSOZMIN G RXP"
^XMB(3.9,111,2,4293,0)="""RTN"",""PSOSIGDS"",130,0)"
^XMB(3.9,111,2,4294,0)=" S PSOQX(""DAYS SUPPLY"")=$P(PSOZMIN,""."")+1"
^XMB(3.9,111,2,4295,0)="""RTN"",""PSOSIGDS"",131,0)"
^XMB(3.9,111,2,4296,0)="RXP ;Compare against Rx Patient Status"
^XMB(3.9,111,2,4297,0)="""RTN"",""PSOSIGDS"",132,0)"
^XMB(3.9,111,2,4298,0)=" Q:'$G(PSOQX(""PATIENT""))"
^XMB(3.9,111,2,4299,0)="""RTN"",""PSOSIGDS"",133,0)"
^XMB(3.9,111,2,4300,0)=" N PSO55,PSO553"
^XMB(3.9,111,2,4301,0)="""RTN"",""PSOSIGDS"",134,0)"
^XMB(3.9,111,2,4302,0)=" S PSO55=$P($G(^PS(55,PSOQX(""PATIENT""),""PS"")),""^"") I 'PSO55 G CLOZ"
^XMB(3.9,111,2,4303,0)="""RTN"",""PSOSIGDS"",135,0)"
^XMB(3.9,111,2,4304,0)=" S PSO553=$P($G(^PS(53,PSO55,0)),""^"",3) I 'PSO553 G CLOZ"
^XMB(3.9,111,2,4305,0)="""RTN"",""PSOSIGDS"",136,0)"
^XMB(3.9,111,2,4306,0)=" I PSO553<$G(PSOQX(""DAYS SUPPLY"")) S PSOQX(""DAYS SUPPLY"")=PSO553"
^XMB(3.9,111,2,4307,0)="""RTN"",""PSOSIGDS"",137,0)"
^XMB(3.9,111,2,4308,0)="CLOZ ;check for clozapine"
^XMB(3.9,111,2,4309,0)="""RTN"",""PSOSIGDS"",138,0)"
^XMB(3.9,111,2,4310,0)=" N PSOCLPAT,PSOCLMAX"
^XMB(3.9,111,2,4311,0)="""RTN"",""PSOSIGDS"",139,0)"
^XMB(3.9,111,2,4312,0)=" Q:'$G(PSOQX(""DRUG""))"
^XMB(3.9,111,2,4313,0)="""RTN"",""PSOSIGDS"",140,0)"
^XMB(3.9,111,2,4314,0)=" I $P($G(^PSDRUG(PSOQX(""DRUG""),""CLOZ1"")),""^"")=""PSOCLO1"" D"
^XMB(3.9,111,2,4315,0)="""RTN"",""PSOSIGDS"",141,0)"
^XMB(3.9,111,2,4316,0)=" .S PSOCLPAT=$O(^YSCL(603.01,""C"",PSOQX(""PATIENT""),0)) Q:'PSOCLPAT"
^XMB(3.9,111,2,4317,0)="""RTN"",""PSOSIGDS"",142,0)"
^XMB(3.9,111,2,4318,0)=" .S PSOCLPAT=$P($G(^YSCL(603.01,PSOCLPAT,0)),""^"",3)"
^XMB(3.9,111,2,4319,0)="""RTN"",""PSOSIGDS"",143,0)"
^XMB(3.9,111,2,4320,0)=" .S PSOCLMAX=$S(PSOCLPAT=""M"":28,PSOCLPAT=""B"":14,PSOCLPAT=""W"":7,1:0)"
^XMB(3.9,111,2,4321,0)="""RTN"",""PSOSIGDS"",144,0)"
^XMB(3.9,111,2,4322,0)=" .I PSOCLMAX,PSOCLMAX<$G(PSOQX(""DAYS SUPPLY"")) S PSOQX(""DAYS SUPPLY"")=PSOCLMAX"
^XMB(3.9,111,2,4323,0)="""RTN"",""PSOSIGDS"",145,0)"
^XMB(3.9,111,2,4324,0)=" Q"
^XMB(3.9,111,2,4325,0)="""RTN"",""PSOSIGDS"",146,0)"
^XMB(3.9,111,2,4326,0)="DAY(DATE) ;First 5 digits of FileMan date"
^XMB(3.9,111,2,4327,0)="""RTN"",""PSOSIGDS"",147,0)"
^XMB(3.9,111,2,4328,0)=" N X"
^XMB(3.9,111,2,4329,0)="""RTN"",""PSOSIGDS"",148,0)"
^XMB(3.9,111,2,4330,0)=" I DATE'?5N Q -1"
^XMB(3.9,111,2,4331,0)="""RTN"",""PSOSIGDS"",149,0)"
^XMB(3.9,111,2,4332,0)=" S X=$E(DATE,4,5) I X<1!(X>12) Q -1"
^XMB(3.9,111,2,4333,0)="""RTN"",""PSOSIGDS"",150,0)"
^XMB(3.9,111,2,4334,0)=" S X=DATE+1+(X=12*88)_""01"""
^XMB(3.9,111,2,4335,0)="""RTN"",""PSOSIGDS"",151,0)"
^XMB(3.9,111,2,4336,0)=" Q $E($$FMADD^XLFDT(X,-1),6,7)"
^XMB(3.9,111,2,4337,0)="""RTN"",""PSOSIGDS"",152,0)"
^XMB(3.9,111,2,4338,0)=" ;"
^XMB(3.9,111,2,4339,0)="""RTN"",""PSOSIGDS"",153,0)"
^XMB(3.9,111,2,4340,0)="QTYX(PSOQX) ;"
^XMB(3.9,111,2,4341,0)="""RTN"",""PSOSIGDS"",154,0)"
^XMB(3.9,111,2,4342,0)=" N PSOQLP,PSOQLN,PSOQAR,PSOCPRQT,QDOSE,QDOSEX S PSOCPRQT=1 F PSOQLP=0:0 S PSOQLP=$O(PSOQX(""DURATION"",PSOQLP)) Q:'PSOQLP  D"
^XMB(3.9,111,2,4343,0)="""RTN"",""PSOSIGDS"",155,0)"
^XMB(3.9,111,2,4344,0)=" .S PSOQAR(""DURATION"",PSOQLP)=$G(PSOQX(""DURATION"",PSOQLP))"
^XMB(3.9,111,2,4345,0)="""RTN"",""PSOSIGDS"",156,0)"
^XMB(3.9,111,2,4346,0)=" .I $E(PSOQX(""DURATION"",PSOQLP))?1A S PSOQLN=$L(PSOQX(""DURATION"",PSOQLP)) S PSOQX(""DURATION"",PSOQLP)=$E(PSOQX(""DURATION"",PSOQLP),2,PSOQLN)_$E(PSOQX(""DURATION"",PSOQLP))"
^XMB(3.9,111,2,4347,0)="""RTN"",""PSOSIGDS"",157,0)"
^XMB(3.9,111,2,4348,0)=" S QDOSE=0 F QDOSEX=0:0 S QDOSEX=$O(PSOQX(""DOSE ORDERED"",QDOSEX)) Q:'QDOSEX  S QDOSE=QDOSE+1"
^XMB(3.9,111,2,4349,0)="""RTN"",""PSOSIGDS"",158,0)"
^XMB(3.9,111,2,4350,0)=" D QTYCP"
^XMB(3.9,111,2,4351,0)="""RTN"",""PSOSIGDS"",159,0)"
^XMB(3.9,111,2,4352,0)=" F PSOQLP=0:0 S PSOQLP=$O(PSOQAR(""DURATION"",PSOQLP)) Q:'PSOQLP  D"
^XMB(3.9,111,2,4353,0)="""RTN"",""PSOSIGDS"",160,0)"
^XMB(3.9,111,2,4354,0)=" .S PSOQX(""DURATION"",PSOQLP)=$G(PSOQAR(""DURATION"",PSOQLP))"
^XMB(3.9,111,2,4355,0)="""RTN"",""PSOSIGDS"",161,0)"
^XMB(3.9,111,2,4356,0)=" K PSOCPRQT"
^XMB(3.9,111,2,4357,0)="""RTN"",""PSOSIGDS"",162,0)"
^XMB(3.9,111,2,4358,0)=" Q"
^XMB(3.9,111,2,4359,0)="""RTN"",""PSOSIGDS"",163,0)"
^XMB(3.9,111,2,4360,0)="DSUP(PSOQX) ;Max Days Supply for CPRS, without QTY (just patient and drug)"
^XMB(3.9,111,2,4361,0)="""RTN"",""PSOSIGDS"",164,0)"
^XMB(3.9,111,2,4362,0)=" ;Should we add to accept # of refills?"
^XMB(3.9,111,2,4363,0)="""RTN"",""PSOSIGDS"",165,0)"
^XMB(3.9,111,2,4364,0)=" ;If no Drug, should we base on Orderable Item"
^XMB(3.9,111,2,4365,0)="""RTN"",""PSOSIGDS"",166,0)"
^XMB(3.9,111,2,4366,0)=" S PSOQX(""DAYS SUPPLY"")=90"
^XMB(3.9,111,2,4367,0)="""RTN"",""PSOSIGDS"",167,0)"
^XMB(3.9,111,2,4368,0)=" Q:'$G(PSOQX(""PATIENT""))"
^XMB(3.9,111,2,4369,0)="""RTN"",""PSOSIGDS"",168,0)"
^XMB(3.9,111,2,4370,0)=" N PSO55,PSO553"
^XMB(3.9,111,2,4371,0)="""RTN"",""PSOSIGDS"",169,0)"
^XMB(3.9,111,2,4372,0)=" S PSO55=$P($G(^PS(55,PSOQX(""PATIENT""),""PS"")),""^"") I 'PSO55 G DSUPDG"
^XMB(3.9,111,2,4373,0)="""RTN"",""PSOSIGDS"",170,0)"
^XMB(3.9,111,2,4374,0)=" S PSO553=$P($G(^PS(53,PSO55,0)),""^"",3) I 'PSO553 G DSUPDG"
^XMB(3.9,111,2,4375,0)="""RTN"",""PSOSIGDS"",171,0)"
^XMB(3.9,111,2,4376,0)=" I PSO553<$G(PSOQX(""DAYS SUPPLY"")) S PSOQX(""DAYS SUPPLY"")=PSO553"
^XMB(3.9,111,2,4377,0)="""RTN"",""PSOSIGDS"",172,0)"
^XMB(3.9,111,2,4378,0)="DSUPDG ;"
^XMB(3.9,111,2,4379,0)="""RTN"",""PSOSIGDS"",173,0)"
^XMB(3.9,111,2,4380,0)=" N PSOCLPAT,PSOCLMAX"
^XMB(3.9,111,2,4381,0)="""RTN"",""PSOSIGDS"",174,0)"
^XMB(3.9,111,2,4382,0)=" Q:'$G(PSOQX(""DRUG""))"
^XMB(3.9,111,2,4383,0)="""RTN"",""PSOSIGDS"",175,0)"
^XMB(3.9,111,2,4384,0)=" I $P($G(^PSDRUG(PSOQX(""DRUG""),""CLOZ1"")),""^"")=""PSOCLO1"" D"
^XMB(3.9,111,2,4385,0)="""RTN"",""PSOSIGDS"",176,0)"
^XMB(3.9,111,2,4386,0)=" .S PSOCLPAT=$O(^YSCL(603.01,""C"",PSOQX(""PATIENT""),0)) Q:'PSOCLPAT"
^XMB(3.9,111,2,4387,0)="""RTN"",""PSOSIGDS"",177,0)"
^XMB(3.9,111,2,4388,0)=" .S PSOCLPAT=$P($G(^YSCL(603.01,PSOCLPAT,0)),""^"",3)"
^XMB(3.9,111,2,4389,0)="""RTN"",""PSOSIGDS"",178,0)"
^XMB(3.9,111,2,4390,0)=" .S PSOCLMAX=$S(PSOCLPAT=""M"":28,PSOCLPAT=""B"":14,$P($G(^(0)),""^"",3)=""W"":7,1:0)"
^XMB(3.9,111,2,4391,0)="""RTN"",""PSOSIGDS"",179,0)"
^XMB(3.9,111,2,4392,0)=" .I PSOCLMAX,PSOCLMAX<$G(PSOQX(""DAYS SUPPLY"")) S PSOQX(""DAYS SUPPLY"")=PSOCLMAX"
^XMB(3.9,111,2,4393,0)="""RTN"",""PSOSIGDS"",180,0)"
^XMB(3.9,111,2,4394,0)=" Q"
^XMB(3.9,111,2,4395,0)="""RTN"",""PSOSIGDS"",181,0)"
^XMB(3.9,111,2,4396,0)="MAX(PSOQX) ;"
^XMB(3.9,111,2,4397,0)="""RTN"",""PSOSIGDS"",182,0)"
^XMB(3.9,111,2,4398,0)=" G EN^PSOSIGMX"
^XMB(3.9,111,2,4399,0)="""RTN"",""PSOSIGDS"",183,0)"
^XMB(3.9,111,2,4400,0)=" Q"
^XMB(3.9,111,2,4401,0)="""RTN"",""PSOSIGMX"")"
^XMB(3.9,111,2,4402,0)="0^18^B14444819^B13097478"
^XMB(3.9,111,2,4403,0)="""RTN"",""PSOSIGMX"",1,0)"
^XMB(3.9,111,2,4404,0)="PSOSIGMX ;BIR/RTR-Utility routine to calculate Max Refills for CPRS ;12/28/00"
^XMB(3.9,111,2,4405,0)="""RTN"",""PSOSIGMX"",2,0)"
^XMB(3.9,111,2,4406,0)=" ;;7.0;OUTPATIENT PHARMACY;**46,78,108,131,222**;DEC 1997;Build 12"
^XMB(3.9,111,2,4407,0)="""RTN"",""PSOSIGMX"",3,0)"
^XMB(3.9,111,2,4408,0)=" ;External reference to PS(55 supported by DBIA 2228"
^XMB(3.9,111,2,4409,0)="""RTN"",""PSOSIGMX"",4,0)"
^XMB(3.9,111,2,4410,0)=" ;External reference to PSDRUG( supported by DBIA 221"
^XMB(3.9,111,2,4411,0)="""RTN"",""PSOSIGMX"",5,0)"
^XMB(3.9,111,2,4412,0)=" ;External reference to YSCL(603.01 supported by DBIA 2697"
^XMB(3.9,111,2,4413,0)="""RTN"",""PSOSIGMX"",6,0)"
^XMB(3.9,111,2,4414,0)=" ;External reference to PS(50.7 supported by DBIA 2223"
^XMB(3.9,111,2,4415,0)="""RTN"",""PSOSIGMX"",7,0)"
^XMB(3.9,111,2,4416,0)=" ;"
^XMB(3.9,111,2,4417,0)="""RTN"",""PSOSIGMX"",8,0)"
^XMB(3.9,111,2,4418,0)=" ;PSOQX(""PATIENT"")=patient DFN"
^XMB(3.9,111,2,4419,0)="""RTN"",""PSOSIGMX"",9,0)"
^XMB(3.9,111,2,4420,0)=" ;PSOQX(""DAYS SUPPLY"")=Days Supply ->Optional ??"
^XMB(3.9,111,2,4421,0)="""RTN"",""PSOSIGMX"",10,0)"
^XMB(3.9,111,2,4422,0)=" ;PSOQX(""DRUG"")=File 50 ien ->Optional"
^XMB(3.9,111,2,4423,0)="""RTN"",""PSOSIGMX"",11,0)"
^XMB(3.9,111,2,4424,0)=" ;PSOQX(""ITEM"")=File 50.7 ien -> we may not use this"
^XMB(3.9,111,2,4425,0)="""RTN"",""PSOSIGMX"",12,0)"
^XMB(3.9,111,2,4426,0)=" ;PSOQX(""DISCHARGE"")=1 if the order is for a Discharge"
^XMB(3.9,111,2,4427,0)="""RTN"",""PSOSIGMX"",13,0)"
^XMB(3.9,111,2,4428,0)=" ;"
^XMB(3.9,111,2,4429,0)="""RTN"",""PSOSIGMX"",14,0)"
^XMB(3.9,111,2,4430,0)=" ;PSOQX(""MAX"")=Returned max refills allowed"
^XMB(3.9,111,2,4431,0)="""RTN"",""PSOSIGMX"",15,0)"
^XMB(3.9,111,2,4432,0)=" ;"
^XMB(3.9,111,2,4433,0)="""RTN"",""PSOSIGMX"",16,0)"
^XMB(3.9,111,2,4434,0)="EN ;"
^XMB(3.9,111,2,4435,0)="""RTN"",""PSOSIGMX"",17,0)"
^XMB(3.9,111,2,4436,0)=" S PSOQX(""MAX"")=11"
^XMB(3.9,111,2,4437,0)="""RTN"",""PSOSIGMX"",18,0)"
^XMB(3.9,111,2,4438,0)=" N DFN,VAROOT,PSOWRF,PSOMXAUT,PSOMXAUX,PSOCDEA,PSOCSX,PSOMXRX,PSOMX1,PSODYX,PSODYX1,PSOMXPAT,PSOMXSTA"
^XMB(3.9,111,2,4439,0)="""RTN"",""PSOSIGMX"",19,0)"
^XMB(3.9,111,2,4440,0)=" S PSOMXAUT=0"
^XMB(3.9,111,2,4441,0)="""RTN"",""PSOSIGMX"",20,0)"
^XMB(3.9,111,2,4442,0)=" S PSOMXAUX=+$P($G(^PS(55,+$G(PSOQX(""PATIENT"")),""PS"")),""^"")"
^XMB(3.9,111,2,4443,0)="""RTN"",""PSOSIGMX"",21,0)"
^XMB(3.9,111,2,4444,0)=" I PSOMXAUX,$P($G(^PS(53,+$G(PSOMXAUX),0)),""^"")[""AUTH ABS"" S VAROOT=""PSOWRF"",DFN=$G(PSOQX(""PATIENT"")) D IN5^VADPT I '$G(PSOWRF(5)) S PSOMXAUT=1"
^XMB(3.9,111,2,4445,0)="""RTN"",""PSOSIGMX"",22,0)"
^XMB(3.9,111,2,4446,0)=" S PSOMXSTA=$S($G(PSOQX(""DISCHARGE"")):0,$G(PSOMXAUT):0,1:+$P($G(^PS(55,+$G(PSOQX(""PATIENT"")),""PS"")),""^"")) I PSOMXSTA S PSOMXRX=$P($G(^PS(53,PSOMXSTA,0)),""^"",4)"
^XMB(3.9,111,2,4447,0)="""RTN"",""PSOSIGMX"",23,0)"
^XMB(3.9,111,2,4448,0)=" I 'PSOMXSTA S PSOMXRX=11"
^XMB(3.9,111,2,4449,0)="""RTN"",""PSOSIGMX"",24,0)"
^XMB(3.9,111,2,4450,0)=" K PSOCDEA S PSOCSX=0"
^XMB(3.9,111,2,4451,0)="""RTN"",""PSOSIGMX"",25,0)"
^XMB(3.9,111,2,4452,0)=" S PSONODD=0 I '$G(PSOQX(""DRUG"")),$G(PSOQX(""ITEM"")) D  S PSONODD=1"
^XMB(3.9,111,2,4453,0)="""RTN"",""PSOSIGMX"",26,0)"
^XMB(3.9,111,2,4454,0)=" . N A,B,PSOCDEA,DEA,PSOAPP,PSOINA,%,%H,%I,X,PSOFIRST"
^XMB(3.9,111,2,4455,0)="""RTN"",""PSOSIGMX"",27,0)"
^XMB(3.9,111,2,4456,0)=" . S DEA=99,(A,PSOFIRST)="""""
^XMB(3.9,111,2,4457,0)="""RTN"",""PSOSIGMX"",28,0)"
^XMB(3.9,111,2,4458,0)=" . F  S A=$O(^PS(50.7,""A50"",PSOQX(""ITEM""),A)) Q:'A  D"
^XMB(3.9,111,2,4459,0)="""RTN"",""PSOSIGMX"",29,0)"
^XMB(3.9,111,2,4460,0)=" .. S PSOCDEA=$P($G(^PSDRUG(A,0)),""^"",3),PSOAPP=$P($G(^(2)),""^"",3),PSOINA=$G(^(""I""))"
^XMB(3.9,111,2,4461,0)="""RTN"",""PSOSIGMX"",30,0)"
^XMB(3.9,111,2,4462,0)=" .. I PSOAPP'[""O"" Q"
^XMB(3.9,111,2,4463,0)="""RTN"",""PSOSIGMX"",31,0)"
^XMB(3.9,111,2,4464,0)=" .. D NOW^%DTC I PSOINA]"""",PSOINA'>% Q"
^XMB(3.9,111,2,4465,0)="""RTN"",""PSOSIGMX"",32,0)"
^XMB(3.9,111,2,4466,0)=" .. I PSOFIRST="""" S PSOFIRST=A"
^XMB(3.9,111,2,4467,0)="""RTN"",""PSOSIGMX"",33,0)"
^XMB(3.9,111,2,4468,0)=" .. I PSOCDEA?1N.E,PSOCDEA<DEA S DEA=PSOCDEA,PSOQX(""DRUG"")=A"
^XMB(3.9,111,2,4469,0)="""RTN"",""PSOSIGMX"",34,0)"
^XMB(3.9,111,2,4470,0)=" . I $G(PSOQX(""DRUG""))="""" S PSOQX(""DRUG"")=PSOFIRST"
^XMB(3.9,111,2,4471,0)="""RTN"",""PSOSIGMX"",35,0)"
^XMB(3.9,111,2,4472,0)=" I $G(PSOQX(""DRUG"")) D"
^XMB(3.9,111,2,4473,0)="""RTN"",""PSOSIGMX"",36,0)"
^XMB(3.9,111,2,4474,0)=" .S PSOCDEA=$P($G(^PSDRUG(PSOQX(""DRUG""),0)),""^"",3)"
^XMB(3.9,111,2,4475,0)="""RTN"",""PSOSIGMX"",37,0)"
^XMB(3.9,111,2,4476,0)=" .I PSOCDEA[""2""!(PSOCDEA[""3"")!(PSOCDEA[""4"")!(PSOCDEA[""5"") S PSOCSX=1"
^XMB(3.9,111,2,4477,0)="""RTN"",""PSOSIGMX"",38,0)"
^XMB(3.9,111,2,4478,0)=" I PSOCSX D"
^XMB(3.9,111,2,4479,0)="""RTN"",""PSOSIGMX"",39,0)"
^XMB(3.9,111,2,4480,0)=" .S PSOQX(""MAX"")=$S(PSOCDEA[""2"":0,1:5),PSOMX1=$S($G(PSOMXRX)>PSOQX(""MAX""):PSOQX(""MAX""),1:$G(PSOMXRX)),PSOQX(""MAX"")=$S(PSOMX1=5:PSOQX(""MAX""),1:PSOMX1)"
^XMB(3.9,111,2,4481,0)="""RTN"",""PSOSIGMX"",40,0)"
^XMB(3.9,111,2,4482,0)=" .S PSOQX(""MAX"")=$S('PSOQX(""MAX""):0,$G(PSOQX(""DAYS SUPPLY""))=90:1,1:PSOQX(""MAX"")),PSODYX=$G(PSOQX(""DAYS SUPPLY"")),PSODYX1=$S(PSODYX<60:5,PSODYX'<60&(PSODYX'>89):2,PSODYX=90:1,1:0) S PSOQX(""MAX"")=$S(PSOQX(""MAX"")'>PSODYX1:PSOQX(""MAX""),1:PSODYX1)"
^XMB(3.9,111,2,4483,0)="""RTN"",""PSOSIGMX"",41,0)"
^XMB(3.9,111,2,4484,0)=" I 'PSOCSX!('$G(PSOQX(""DRUG""))) D"
^XMB(3.9,111,2,4485,0)="""RTN"",""PSOSIGMX"",42,0)"
^XMB(3.9,111,2,4486,0)=" .S PSOQX(""MAX"")=11,PSOMX1=$S($G(PSOMXRX)>PSOQX(""MAX""):PSOQX(""MAX""),1:$G(PSOMXRX)),PSOQX(""MAX"")=$S(PSOMX1=11:PSOQX(""MAX""),1:PSOMX1)"
^XMB(3.9,111,2,4487,0)="""RTN"",""PSOSIGMX"",43,0)"
^XMB(3.9,111,2,4488,0)=" .S PSODYX=$G(PSOQX(""DAYS SUPPLY"")),PSODYX1=$S(PSODYX<60:11,PSODYX'<60&(PSODYX'>89):5,PSODYX=90:3,1:0) S PSOQX(""MAX"")=$S(PSOQX(""MAX"")'>PSODYX1:PSOQX(""MAX""),1:PSODYX1)"
^XMB(3.9,111,2,4489,0)="""RTN"",""PSOSIGMX"",44,0)"
^XMB(3.9,111,2,4490,0)=" I $P($G(^PSDRUG(+$G(PSOQX(""DRUG"")),""CLOZ1"")),""^"")=""PSOCLO1"" D  Q"
^XMB(3.9,111,2,4491,0)="""RTN"",""PSOSIGMX"",45,0)"
^XMB(3.9,111,2,4492,0)=" .S PSOMXPAT=$O(^YSCL(603.01,""C"",+$G(PSOQX(""PATIENT"")),0)) I 'PSOMXPAT S PSOQX(""MAX"")=0 Q"
^XMB(3.9,111,2,4493,0)="""RTN"",""PSOSIGMX"",46,0)"
^XMB(3.9,111,2,4494,0)=" .S PSOMXPAT=$P($G(^YSCL(603.01,PSOMXPAT,0)),""^"",3)"
^XMB(3.9,111,2,4495,0)="""RTN"",""PSOSIGMX"",47,0)"
^XMB(3.9,111,2,4496,0)=" .I $D(PSOQX(""DAYS SUPPLY"")) S PSOQX(""MAX"")=$S(PSOMXPAT=""M""&($G(PSOQX(""DAYS SUPPLY"")))<8:3,PSOMXPAT=""M""&($G(PSOQX(""DAYS SUPPLY"")))<15:1,PSOMXPAT=""B""&($G(PSOQX(""DAYS SUPPLY"")))<8:1,1:0) Q"
^XMB(3.9,111,2,4497,0)="""RTN"",""PSOSIGMX"",48,0)"
^XMB(3.9,111,2,4498,0)=" .S PSOQX(""MAX"")=$S(PSOMXPAT=""M"":3,PSOMXPAT=""B"":1,1:0)"
^XMB(3.9,111,2,4499,0)="""RTN"",""PSOSIGMX"",49,0)"
^XMB(3.9,111,2,4500,0)=" I $G(PSOQX(""DRUG"")) I PSOCDEA[""A""&(PSOCDEA'[""B"")!(PSOCDEA[""F"") S PSOQX(""MAX"")=0"
^XMB(3.9,111,2,4501,0)="""RTN"",""PSOSIGMX"",50,0)"
^XMB(3.9,111,2,4502,0)=" I PSONODD S PSOQX(""DRUG"")=0"
^XMB(3.9,111,2,4503,0)="""RTN"",""PSOSIGMX"",51,0)"
^XMB(3.9,111,2,4504,0)=" Q"
^XMB(3.9,111,2,4505,0)="""RTN"",""PSOUTLA"")"
^XMB(3.9,111,2,4506,0)="0^19^B41786781^B41420060"
^XMB(3.9,111,2,4507,0)="""RTN"",""PSOUTLA"",1,0)"
^XMB(3.9,111,2,4508,0)="PSOUTLA ;BHAM ISC/AMC - pharmacy utility program ; 07/24/96  1:13 pm"
^XMB(3.9,111,2,4509,0)="""RTN"",""PSOUTLA"",2,0)"
^XMB(3.9,111,2,4510,0)=" ;;7.0;OUTPATIENT PHARMACY;**1,15,23,56,126,222**;DEC 1997;Build 12"
^XMB(3.9,111,2,4511,0)="""RTN"",""PSOUTLA"",3,0)"
^XMB(3.9,111,2,4512,0)=" ;External reference ^PS(54 supported by DBIA 2227"
^XMB(3.9,111,2,4513,0)="""RTN"",""PSOUTLA"",4,0)"
^XMB(3.9,111,2,4514,0)=" ;External reference ^PSDRUG( supported by DBIA 221"
^XMB(3.9,111,2,4515,0)="""RTN"",""PSOUTLA"",5,0)"
^XMB(3.9,111,2,4516,0)="CHK I '$D(PY(PSPR)) W !?10,$C(7),""  # "",PSPR,"" is not a valid choice."" S PSPOP=1 Q"
^XMB(3.9,111,2,4517,0)="""RTN"",""PSOUTLA"",6,0)"
^XMB(3.9,111,2,4518,0)=" I $D(PSDUP(PY(PSPR))) W !?10,$C(7),""RX# "",$P(^PSRX(+$P(PY(PSPR),""^""),0),""^""),"" is a duplicate choice."" S PSPOP=1 Q"
^XMB(3.9,111,2,4519,0)="""RTN"",""PSOUTLA"",7,0)"
^XMB(3.9,111,2,4520,0)=" S PSDUP(PY(PSPR))="""" Q:'PSODIV  Q:'$P(^PSRX(+PY(PSPR),2),""^"",9)  Q:+$P(^(2),""^"",9)=PSOSITE"
^XMB(3.9,111,2,4521,0)="""RTN"",""PSOUTLA"",8,0)"
^XMB(3.9,111,2,4522,0)=" S PSPRXN=+$P(PY(PSPR),""^"")"
^XMB(3.9,111,2,4523,0)="""RTN"",""PSOUTLA"",9,0)"
^XMB(3.9,111,2,4524,0)="CHK1 I '$P(PSOSYS,""^"",2) W !!,$C(7),""RX# ""_$P(^PSRX(PSPRXN,0),""^"")_"" is not a valid choice. (Different Division)"",! S PSPOP=1 Q"
^XMB(3.9,111,2,4525,0)="""RTN"",""PSOUTLA"",10,0)"
^XMB(3.9,111,2,4526,0)=" I $P(PSOSYS,""^"",3) K DIR,DUOUT,DTOUT D"
^XMB(3.9,111,2,4527,0)="""RTN"",""PSOUTLA"",11,0)"
^XMB(3.9,111,2,4528,0)=" .W $C(7) S DIR(""A"",1)="""",DIR(""A"",2)=""RX# ""_$P(^PSRX(PSPRXN,0),""^"")_"" is from another division."",DIR(""A"")=""Continue: (Y/N)"",DIR(0)=""Y"",DIR(""?"",1)=""'Y' FOR YES"",DIR(""?"")=""'N' FOR NO"""
^XMB(3.9,111,2,4529,0)="""RTN"",""PSOUTLA"",12,0)"
^XMB(3.9,111,2,4530,0)=" .S DIR(""B"")=""N"" D ^DIR I 'Y!($D(DUOUT))!($D(DTOUT)) S PSPOP=1 W !"
^XMB(3.9,111,2,4531,0)="""RTN"",""PSOUTLA"",13,0)"
^XMB(3.9,111,2,4532,0)=" K DIR,DUOUT,DTOUT Q"
^XMB(3.9,111,2,4533,0)="""RTN"",""PSOUTLA"",14,0)"
^XMB(3.9,111,2,4534,0)=" ;"
^XMB(3.9,111,2,4535,0)="""RTN"",""PSOUTLA"",15,0)"
^XMB(3.9,111,2,4536,0)="ZIPIN ; input transform for ZIP field in file #59 internal format (no '-'s)"
^XMB(3.9,111,2,4537,0)="""RTN"",""PSOUTLA"",16,0)"
^XMB(3.9,111,2,4538,0)=" ;  Input:  X as user entered value"
^XMB(3.9,111,2,4539,0)="""RTN"",""PSOUTLA"",17,0)"
^XMB(3.9,111,2,4540,0)=" ; Output:  X as internal value of user input OR"
^XMB(3.9,111,2,4541,0)="""RTN"",""PSOUTLA"",18,0)"
^XMB(3.9,111,2,4542,0)=" ;            undefined if input from user was invalid"
^XMB(3.9,111,2,4543,0)="""RTN"",""PSOUTLA"",19,0)"
^XMB(3.9,111,2,4544,0)=" N % I X'?.N F %=1:1:$L(X) I $E(X,%)?1P S X=$E(X,0,%-1)_$E(X,%+1,20),%=%-1"
^XMB(3.9,111,2,4545,0)="""RTN"",""PSOUTLA"",20,0)"
^XMB(3.9,111,2,4546,0)=" I X'?5N,(X'?9N) K X"
^XMB(3.9,111,2,4547,0)="""RTN"",""PSOUTLA"",21,0)"
^XMB(3.9,111,2,4548,0)=" Q"
^XMB(3.9,111,2,4549,0)="""RTN"",""PSOUTLA"",22,0)"
^XMB(3.9,111,2,4550,0)=" ;"
^XMB(3.9,111,2,4551,0)="""RTN"",""PSOUTLA"",23,0)"
^XMB(3.9,111,2,4552,0)="ZIPOUT ; output transform for ZIP - prints either ZIP or ZIP+4 (in 12345-1234)"
^XMB(3.9,111,2,4553,0)="""RTN"",""PSOUTLA"",24,0)"
^XMB(3.9,111,2,4554,0)=" ; format."
^XMB(3.9,111,2,4555,0)="""RTN"",""PSOUTLA"",25,0)"
^XMB(3.9,111,2,4556,0)=" ; Input:  Y internal value"
^XMB(3.9,111,2,4557,0)="""RTN"",""PSOUTLA"",26,0)"
^XMB(3.9,111,2,4558,0)=" ; Output:  Y external (12345 or 12345-1234)"
^XMB(3.9,111,2,4559,0)="""RTN"",""PSOUTLA"",27,0)"
^XMB(3.9,111,2,4560,0)=" S Y=$E(Y,1,5)_$S($E(Y,6,9)]"""":""-""_$E(Y,6,9),1:"""")"
^XMB(3.9,111,2,4561,0)="""RTN"",""PSOUTLA"",28,0)"
^XMB(3.9,111,2,4562,0)=" Q"
^XMB(3.9,111,2,4563,0)="""RTN"",""PSOUTLA"",29,0)"
^XMB(3.9,111,2,4564,0)="YN ;YES/NO PROMPT"
^XMB(3.9,111,2,4565,0)="""RTN"",""PSOUTLA"",30,0)"
^XMB(3.9,111,2,4566,0)=" W !?5,""'Y' FOR YES"",!?5,""'N' FOR NO"",!"
^XMB(3.9,111,2,4567,0)="""RTN"",""PSOUTLA"",31,0)"
^XMB(3.9,111,2,4568,0)=" Q"
^XMB(3.9,111,2,4569,0)="""RTN"",""PSOUTLA"",32,0)"
^XMB(3.9,111,2,4570,0)="DAYS K PSFMAX S ED=1,PSODEA=$P(^PSDRUG($P(^PSRX(DA,0),""^"",6),0),""^"",3),PSDAYS=$P(^PSRX(DA,0),""^"",8),CS=0 D EDNEW K:ED PSFMAX,ED"
^XMB(3.9,111,2,4571,0)="""RTN"",""PSOUTLA"",33,0)"
^XMB(3.9,111,2,4572,0)=" K:$P(^PSRX(DA,0),""^"",9)'>MAX PSMAX"
^XMB(3.9,111,2,4573,0)="""RTN"",""PSOUTLA"",34,0)"
^XMB(3.9,111,2,4574,0)=" Q"
^XMB(3.9,111,2,4575,0)="""RTN"",""PSOUTLA"",35,0)"
^XMB(3.9,111,2,4576,0)="EDNEW K PSMAX,PSFMAX F DEA=1:1 Q:$E(PSODEA,DEA)=""""  I $E(+PSODEA,DEA)>1,$E(+PSODEA,DEA)<6 S CS=1"
^XMB(3.9,111,2,4577,0)="""RTN"",""PSOUTLA"",36,0)"
^XMB(3.9,111,2,4578,0)=" I $D(CLOZPAT) S MAX=$S(CLOZPAT=2&(PSDAYS=14):1,CLOZPAT=2&(PSDAYS=7):3,CLOZPAT=1&(PSDAYS=7):1,1:0) G CLOZPAT"
^XMB(3.9,111,2,4579,0)="""RTN"",""PSOUTLA"",37,0)"
^XMB(3.9,111,2,4580,0)=" I CS D"
^XMB(3.9,111,2,4581,0)="""RTN"",""PSOUTLA"",38,0)"
^XMB(3.9,111,2,4582,0)=" .S PSOX1=$S(PTRF>5:5,1:PTRF),PSOX=$S(PSOX1=5:5,1:PSOX1)"
^XMB(3.9,111,2,4583,0)="""RTN"",""PSOUTLA"",39,0)"
^XMB(3.9,111,2,4584,0)=" .S PSOX=$S('PSOX:0,PSDAYS=90:1,1:PSOX),PSDY1=$S(PSDAYS<60:5,PSDAYS'<60&(PSDAYS'>89):2,PSDAYS=90:1,1:0) S MAX=$S(PSOX'>PSDY1:PSOX,1:PSDY1)"
^XMB(3.9,111,2,4585,0)="""RTN"",""PSOUTLA"",40,0)"
^XMB(3.9,111,2,4586,0)=" E  D"
^XMB(3.9,111,2,4587,0)="""RTN"",""PSOUTLA"",41,0)"
^XMB(3.9,111,2,4588,0)=" .S PSOX1=PTRF,PSOX=$S(PSOX1=11:11,1:PSOX1),PSOX=$S('PSOX:0,PSDAYS=90:3,1:PSOX)"
^XMB(3.9,111,2,4589,0)="""RTN"",""PSOUTLA"",42,0)"
^XMB(3.9,111,2,4590,0)=" .S PSDY1=$S(PSDAYS<60:11,PSDAYS'<60&(PSDAYS'>89):5,PSDAYS=90:3,1:0) S MAX=$S(PSOX'>PSDY1:PSOX,1:PSDY1)"
^XMB(3.9,111,2,4591,0)="""RTN"",""PSOUTLA"",43,0)"
^XMB(3.9,111,2,4592,0)="CLOZPAT I PSRF>MAX D"
^XMB(3.9,111,2,4593,0)="""RTN"",""PSOUTLA"",44,0)"
^XMB(3.9,111,2,4594,0)=" .W $C(7),!!,PSRF_"" refills are not correct for a ""_PSDAYS_"" day supply."",!,""Please enter correct # of refills for a ""_PSDAYS_"" day supply. Max refills allowed is ""_MAX_""."",!"
^XMB(3.9,111,2,4595,0)="""RTN"",""PSOUTLA"",45,0)"
^XMB(3.9,111,2,4596,0)=" .;S (PSMAX(""MAX""),PSFMAX(""MAX""))=MAX,(PSMAX(""RF""),PSFMAX(""RF""))=PSRF,(PSMAX(""DAYS""),PSFMAX(""DAYS""))=PSDAYS,(PSMAX,PSFMAX)=1"
^XMB(3.9,111,2,4597,0)="""RTN"",""PSOUTLA"",46,0)"
^XMB(3.9,111,2,4598,0)=" K PSTMAX D EDSTAT"
^XMB(3.9,111,2,4599,0)="""RTN"",""PSOUTLA"",47,0)"
^XMB(3.9,111,2,4600,0)=" Q"
^XMB(3.9,111,2,4601,0)="""RTN"",""PSOUTLA"",48,0)"
^XMB(3.9,111,2,4602,0)="STATDAY K PSMAX,PSRMAX,PSFMAX,PSTMAX S PSDAYS=$P(^PSRX(DA,0),""^"",8),PSRF=$P(^PSRX(DA,0),""^"",9),PTST=$P(^PS(53,X,0),""^""),PTDY=$P(^(0),""^"",3),PTRF=$P(^(0),""^"",4)"
^XMB(3.9,111,2,4603,0)="""RTN"",""PSOUTLA"",49,0)"
^XMB(3.9,111,2,4604,0)="EDSTAT I PSRF>PTRF D EN^DDIOL(PSRF_"" refills are greater than ""_PTRF_"" allowed for ""_$P(PTST,""^"")_"" Rx Patient Status."","""",""$C(7),!"") D EN^DDIOL("" "","""",""!"") ;S PSTMAX=1,PSTMAX(""PTRF"")=PTRF,PSTMAX(""PSRF"")=PSRF,PSTMAX(""PT"")=$P(PTST,""^"")"
^XMB(3.9,111,2,4605,0)="""RTN"",""PSOUTLA"",50,0)"
^XMB(3.9,111,2,4606,0)=" Q"
^XMB(3.9,111,2,4607,0)="""RTN"",""PSOUTLA"",51,0)"
^XMB(3.9,111,2,4608,0)="PARKILL S CNT=0 F SUB=0:0 S SUB=$O(^PSRX(DA(1),""A"",SUB)) Q:'SUB  S CNT=SUB"
^XMB(3.9,111,2,4609,0)="""RTN"",""PSOUTLA"",52,0)"
^XMB(3.9,111,2,4610,0)=" I '$G(RESK) D  G:$D(DIRUT) PARKILL"
^XMB(3.9,111,2,4611,0)="""RTN"",""PSOUTLA"",53,0)"
^XMB(3.9,111,2,4612,0)=" .D EN^DDIOL("" "","""",""!"") K DIR S DIR(0)=""FO^10:75"",DIR(""A"",1)=""Enter Reason for Edit:"",DIR(""A"")=""=>"",DIR(""?"",1)=""This is a required response.  No Up-arrowing allowed."""
^XMB(3.9,111,2,4613,0)="""RTN"",""PSOUTLA"",54,0)"
^XMB(3.9,111,2,4614,0)=" .S DIR(""?"")=""Response must be 10-75 characters in length."",DIR(""B"")=""Entered In Error"""
^XMB(3.9,111,2,4615,0)="""RTN"",""PSOUTLA"",55,0)"
^XMB(3.9,111,2,4616,0)=" .D ^DIR I $D(DIRUT) D EN^DDIOL(""This is a required response.  No Up-arrowing allowed."","""",""!"") Q"
^XMB(3.9,111,2,4617,0)="""RTN"",""PSOUTLA"",56,0)"
^XMB(3.9,111,2,4618,0)=" .S ACOM=$S($G(Y)]""""&('$D(DIRUT)):Y,1:""Partial Entered In Error."")"
^XMB(3.9,111,2,4619,0)="""RTN"",""PSOUTLA"",57,0)"
^XMB(3.9,111,2,4620,0)=" .S PSOPRZ=$G(PSOPRZ)-1 S:PSOPRZ<0 PSOPRZ=0"
^XMB(3.9,111,2,4621,0)="""RTN"",""PSOUTLA"",58,0)"
^XMB(3.9,111,2,4622,0)=" S:$G(RESK) ACOM=""Partial fill returned to stock."""
^XMB(3.9,111,2,4623,0)="""RTN"",""PSOUTLA"",59,0)"
^XMB(3.9,111,2,4624,0)=" D NOW^%DTC S CNT=CNT+1 S ^PSRX(DA(1),""A"",0)=""^52.3DA^""_CNT_""^""_CNT,^PSRX(DA(1),""A"",CNT,0)=%_""^D^""_DUZ_""^6^""_ACOM K CNT,SUB,DIR,DTOUT,DUOUT"
^XMB(3.9,111,2,4625,0)="""RTN"",""PSOUTLA"",60,0)"
^XMB(3.9,111,2,4626,0)=" Q"
^XMB(3.9,111,2,4627,0)="""RTN"",""PSOUTLA"",61,0)"
^XMB(3.9,111,2,4628,0)="SETUP ;enter/edit clinic sort groups"
^XMB(3.9,111,2,4629,0)="""RTN"",""PSOUTLA"",62,0)"
^XMB(3.9,111,2,4630,0)=" W ! S (DLAYGO,DIC,DIE)=59.8,DIC(""A"")=""Select Clinic Sort Group: "",DIC(0)=""AEQML"" D ^DIC G:""^""[$E(X) SETUPX G:Y<1 SETUP S DA=+Y,DR="".01;1"" D ^DIE"
^XMB(3.9,111,2,4631,0)="""RTN"",""PSOUTLA"",63,0)"
^XMB(3.9,111,2,4632,0)="SETUPX K DIE,DIC,DA,DLAYGO,Y,X,DR"
^XMB(3.9,111,2,4633,0)="""RTN"",""PSOUTLA"",64,0)"
^XMB(3.9,111,2,4634,0)=" Q"
^XMB(3.9,111,2,4635,0)="""RTN"",""PSOUTLA"",65,0)"
^XMB(3.9,111,2,4636,0)="FSIG(PSOFILE,PSOINTR,PSOLENTH) ;Format front door sig"
^XMB(3.9,111,2,4637,0)="""RTN"",""PSOUTLA"",66,0)"
^XMB(3.9,111,2,4638,0)=" ;PSOFILE is 'P' if in Pending File, 'R' if in Prescription File"
^XMB(3.9,111,2,4639,0)="""RTN"",""PSOUTLA"",67,0)"
^XMB(3.9,111,2,4640,0)=" ;PSOINTR is internal number for either file"
^XMB(3.9,111,2,4641,0)="""RTN"",""PSOUTLA"",68,0)"
^XMB(3.9,111,2,4642,0)=" ;PSOLENTH is length of each line of the Sig"
^XMB(3.9,111,2,4643,0)="""RTN"",""PSOUTLA"",69,0)"
^XMB(3.9,111,2,4644,0)=" ;returned in the FSIG array"
^XMB(3.9,111,2,4645,0)="""RTN"",""PSOUTLA"",70,0)"
^XMB(3.9,111,2,4646,0)=" K FSIG I $G(PSOFILE)=""""!('$G(PSOINTR))!('$G(PSOLENTH)) G FQUIT"
^XMB(3.9,111,2,4647,0)="""RTN"",""PSOUTLA"",71,0)"
^XMB(3.9,111,2,4648,0)=" I PSOFILE'=""P"",PSOFILE'=""R"" G FQUIT"
^XMB(3.9,111,2,4649,0)="""RTN"",""PSOUTLA"",72,0)"
^XMB(3.9,111,2,4650,0)=" I PSOFILE=""P"",'$D(^PS(52.41,+PSOINTR,0)) G FQUIT"
^XMB(3.9,111,2,4651,0)="""RTN"",""PSOUTLA"",73,0)"
^XMB(3.9,111,2,4652,0)=" I PSOFILE=""R"",'$D(^PSRX(+PSOINTR,0)) G FQUIT"
^XMB(3.9,111,2,4653,0)="""RTN"",""PSOUTLA"",74,0)"
^XMB(3.9,111,2,4654,0)=" I PSOFILE=""R"",'$P($G(^PSRX(+PSOINTR,""SIG"")),""^"",2) G FQUIT"
^XMB(3.9,111,2,4655,0)="""RTN"",""PSOUTLA"",75,0)"
^XMB(3.9,111,2,4656,0)=" N FFF,NNN,CNT,FVAR,FVAR1,FLIM,HSIG,II"
^XMB(3.9,111,2,4657,0)="""RTN"",""PSOUTLA"",76,0)"
^XMB(3.9,111,2,4658,0)=" I PSOFILE=""P"" F NNN=0:0 S NNN=$O(^PS(52.41,PSOINTR,""SIG"",NNN)) Q:'NNN  S:$G(^(NNN,0))'="""" HSIG(NNN)=^(0)"
^XMB(3.9,111,2,4659,0)="""RTN"",""PSOUTLA"",77,0)"
^XMB(3.9,111,2,4660,0)=" I PSOFILE=""P"" G:'$O(HSIG(0)) FQUIT G FSTART"
^XMB(3.9,111,2,4661,0)="""RTN"",""PSOUTLA"",78,0)"
^XMB(3.9,111,2,4662,0)=" ;S HSIG(1)=$P($G(^PSRX(PSOINTR,""SIG"")),""^"") S FFF=2 F NNN=0:0 S NNN=$O(^PSRX(PSOINTR,""SIG1"",NNN)) Q:'NNN  I $G(^(NNN,0))'="""" S HSIG(FFF)=$G(^(0)),FFF=FFF+1"
^XMB(3.9,111,2,4663,0)="""RTN"",""PSOUTLA"",79,0)"
^XMB(3.9,111,2,4664,0)=" S FFF=1 F NNN=0:0 S NNN=$O(^PSRX(PSOINTR,""SIG1"",NNN)) Q:'NNN  I $G(^(NNN,0))'="""" S HSIG(FFF)=^(0) S FFF=FFF+1"
^XMB(3.9,111,2,4665,0)="""RTN"",""PSOUTLA"",80,0)"
^XMB(3.9,111,2,4666,0)=" G:'$O(HSIG(0)) FQUIT"
^XMB(3.9,111,2,4667,0)="""RTN"",""PSOUTLA"",81,0)"
^XMB(3.9,111,2,4668,0)="FSTART S (FVAR,FVAR1)="""",II=1"
^XMB(3.9,111,2,4669,0)="""RTN"",""PSOUTLA"",82,0)"
^XMB(3.9,111,2,4670,0)=" F FFF=0:0 S FFF=$O(HSIG(FFF)) Q:'FFF  S CNT=0 F NNN=1:1:$L(HSIG(FFF)) I $E(HSIG(FFF),NNN)="" ""!($L(HSIG(FFF))=NNN) S CNT=CNT+1 D  I $L(FVAR)>PSOLENTH S FSIG(II)=FLIM_"" "",II=II+1,FVAR=FVAR1"
^XMB(3.9,111,2,4671,0)="""RTN"",""PSOUTLA"",83,0)"
^XMB(3.9,111,2,4672,0)=" .S FVAR1=$P(HSIG(FFF),"" "",(CNT))"
^XMB(3.9,111,2,4673,0)="""RTN"",""PSOUTLA"",84,0)"
^XMB(3.9,111,2,4674,0)=" .S FLIM=FVAR"
^XMB(3.9,111,2,4675,0)="""RTN"",""PSOUTLA"",85,0)"
^XMB(3.9,111,2,4676,0)=" .S FVAR=$S(FVAR="""":FVAR1,1:FVAR_"" ""_FVAR1)"
^XMB(3.9,111,2,4677,0)="""RTN"",""PSOUTLA"",86,0)"
^XMB(3.9,111,2,4678,0)=" I $G(FVAR)'="""" S FSIG(II)=FVAR"
^XMB(3.9,111,2,4679,0)="""RTN"",""PSOUTLA"",87,0)"
^XMB(3.9,111,2,4680,0)=" I $G(FSIG(1))=""""!($G(FSIG(1))="" "") S FSIG(1)=$G(FSIG(2)) K FSIG(2)"
^XMB(3.9,111,2,4681,0)="""RTN"",""PSOUTLA"",88,0)"
^XMB(3.9,111,2,4682,0)="FQUIT Q"
^XMB(3.9,111,2,4683,0)="""RTN"",""PSOUTLA"",89,0)"
^XMB(3.9,111,2,4684,0)="DRUGW ;"
^XMB(3.9,111,2,4685,0)="""RTN"",""PSOUTLA"",90,0)"
^XMB(3.9,111,2,4686,0)=" F Z0=1:1 Q:$P(X,"","",Z0,99)=""""  S Z1=$P(X,"","",Z0) W:$D(^PS(54,Z1,0)) ?35,$P(^(0),""^""),! I '$D(^(0)) W ?35,""NO SUCH WARNING LABEL"" K X Q"
^XMB(3.9,111,2,4687,0)="""RTN"",""PSOUTLA"",91,0)"
^XMB(3.9,111,2,4688,0)=" Q"
^XMB(3.9,111,2,4689,0)="""RTN"",""PSOUTLA"",92,0)"
^XMB(3.9,111,2,4690,0)="HLNEW ;formats provider instructions in FSIG for front door order"
^XMB(3.9,111,2,4691,0)="""RTN"",""PSOUTLA"",93,0)"
^XMB(3.9,111,2,4692,0)=" K FSIG N FFF,NNN,CNT,FVAR,FVAR1,FLIM,HSIG,II,LLP,PSOLENTH"
^XMB(3.9,111,2,4693,0)="""RTN"",""PSOUTLA"",94,0)"
^XMB(3.9,111,2,4694,0)=" S PSOLENTH=59,LLP=1 F LLL=0:0 S LLL=$O(WPARRAY(7,LLL)) Q:'LLL  S HSIG(LLP)=$G(WPARRAY(7,LLL)),LLP=LLP+1"
^XMB(3.9,111,2,4695,0)="""RTN"",""PSOUTLA"",95,0)"
^XMB(3.9,111,2,4696,0)=" D FSTART Q"
^XMB(3.9,111,2,4697,0)="""RTN"",""PSOUTLA"",96,0)"
^XMB(3.9,111,2,4698,0)="HLNEWX ;"
^XMB(3.9,111,2,4699,0)="""RTN"",""PSOUTLA"",97,0)"
^XMB(3.9,111,2,4700,0)=" K FSIG N FFF,NNN,CNT,FVAR,FVAR1,FLIM,HSIG,II,LLP,PSOLENTH"
^XMB(3.9,111,2,4701,0)="""RTN"",""PSOUTLA"",98,0)"
^XMB(3.9,111,2,4702,0)=" S PSOLENTH=59,LLP=1 F LLL=0:0 S LLL=$O(WPARRAY(6,LLL)) Q:'LLL  S HSIG(LLP)=$G(WPARRAY(6,LLL)),LLP=LLP+1"
^XMB(3.9,111,2,4703,0)="""RTN"",""PSOUTLA"",99,0)"
^XMB(3.9,111,2,4704,0)=" D FSTART Q"
^XMB(3.9,111,2,4705,0)="""RTN"",""PSOUTLA"",100,0)"
^XMB(3.9,111,2,4706,0)=" ;"
^XMB(3.9,111,2,4707,0)="""RTN"",""PSOUTLA"",101,0)"
^XMB(3.9,111,2,4708,0)="SUSFDS ;"
^XMB(3.9,111,2,4709,0)="""RTN"",""PSOUTLA"",102,0)"
^XMB(3.9,111,2,4710,0)=" N SUSIEN"
^XMB(3.9,111,2,4711,0)="""RTN"",""PSOUTLA"",103,0)"
^XMB(3.9,111,2,4712,0)=" Q:$O(^PSRX(DA,1,0))"
^XMB(3.9,111,2,4713,0)="""RTN"",""PSOUTLA"",104,0)"
^XMB(3.9,111,2,4714,0)=" S SUSIEN=+$O(^PS(52.5,""B"",DA,0)) Q:'$G(SUSIEN)"
^XMB(3.9,111,2,4715,0)="""RTN"",""PSOUTLA"",105,0)"
^XMB(3.9,111,2,4716,0)=" Q:'$D(^PS(52.5,SUSIEN,0))!($G(^PS(52.5,SUSIEN,""P"")))"
^XMB(3.9,111,2,4717,0)="""RTN"",""PSOUTLA"",106,0)"
^XMB(3.9,111,2,4718,0)=" I '$P($G(^PS(52.5,SUSIEN,0)),""^"",5),'$P($G(^(0)),""^"",13) S $P(^PS(52.5,SUSIEN,0),""^"",2)=X,^PS(52.5,""C"",X,SUSIEN)="""" D"
^XMB(3.9,111,2,4719,0)="""RTN"",""PSOUTLA"",107,0)"
^XMB(3.9,111,2,4720,0)=" .I $P($G(^PS(52.5,SUSIEN,0)),""^"",7)=""Q"" S ^PS(52.5,""AQ"",X,+$P($G(^PS(52.5,SUSIEN,0)),""^"",3),SUSIEN)="""" D SCMPX^PSOCMOP(SUSIEN,""Q"") Q"
^XMB(3.9,111,2,4721,0)="""RTN"",""PSOUTLA"",108,0)"
^XMB(3.9,111,2,4722,0)=" .S ^PS(52.5,""AC"",+$P($G(^PS(52.5,SUSIEN,0)),""^"",3),X,SUSIEN)="""""
^XMB(3.9,111,2,4723,0)="""RTN"",""PSOUTLA"",109,0)"
^XMB(3.9,111,2,4724,0)=" Q"
^XMB(3.9,111,2,4725,0)="""RTN"",""PSOUTLA"",110,0)"
^XMB(3.9,111,2,4726,0)="SUSFDK ;"
^XMB(3.9,111,2,4727,0)="""RTN"",""PSOUTLA"",111,0)"
^XMB(3.9,111,2,4728,0)=" N SUSIEN"
^XMB(3.9,111,2,4729,0)="""RTN"",""PSOUTLA"",112,0)"
^XMB(3.9,111,2,4730,0)=" Q:$O(^PSRX(DA,1,0))"
^XMB(3.9,111,2,4731,0)="""RTN"",""PSOUTLA"",113,0)"
^XMB(3.9,111,2,4732,0)=" S SUSIEN=+$O(^PS(52.5,""B"",DA,0)) Q:'$G(SUSIEN)"
^XMB(3.9,111,2,4733,0)="""RTN"",""PSOUTLA"",114,0)"
^XMB(3.9,111,2,4734,0)=" Q:'$D(^PS(52.5,SUSIEN,0))!($G(^PS(52.5,SUSIEN,""P"")))"
^XMB(3.9,111,2,4735,0)="""RTN"",""PSOUTLA"",115,0)"
^XMB(3.9,111,2,4736,0)=" I '$P($G(^PS(52.5,SUSIEN,0)),""^"",5),'$P($G(^(0)),""^"",13) K ^PS(52.5,""C"",X,SUSIEN) D"
^XMB(3.9,111,2,4737,0)="""RTN"",""PSOUTLA"",116,0)"
^XMB(3.9,111,2,4738,0)=" .I $P($G(^PS(52.5,SUSIEN,0)),""^"",7)=""Q"" K ^PS(52.5,""AQ"",X,+$P($G(^PS(52.5,SUSIEN,0)),""^"",3),SUSIEN) D KCMPX^PSOCMOP(SUSIEN,""Q"") Q"
^XMB(3.9,111,2,4739,0)="""RTN"",""PSOUTLA"",117,0)"
^XMB(3.9,111,2,4740,0)=" .K ^PS(52.5,""AC"",+$P($G(^PS(52.5,SUSIEN,0)),""^"",3),X,SUSIEN)"
^XMB(3.9,111,2,4741,0)="""RTN"",""PSOUTLA"",118,0)"
^XMB(3.9,111,2,4742,0)=" Q"
^XMB(3.9,111,2,4743,0)="""SEC"",""^DD"",52.52,52.52,4,8)"
^XMB(3.9,111,2,4744,0)="^"
^XMB(3.9,111,2,4745,0)="""VER"")"
^XMB(3.9,111,2,4746,0)="8.0^22.0"
^XMB(3.9,111,2,4747,0)="""^DD"",52,52,302,0)"
^XMB(3.9,111,2,4748,0)="WBC RESULTS^NJ9,3^^SAND;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4.N) X"
^XMB(3.9,111,2,4749,0)="""^DD"",52,52,302,3)"
^XMB(3.9,111,2,4750,0)="Type a number between 0 and 99999, 3 Decimal Digits"
^XMB(3.9,111,2,4751,0)="""^DD"",52,52,302,21,0)"
^XMB(3.9,111,2,4752,0)="^^2^2^3060718^^"
^XMB(3.9,111,2,4753,0)="""^DD"",52,52,302,21,1,0)"
^XMB(3.9,111,2,4754,0)="This is the results of the WBC test which was used to authorize the"
^XMB(3.9,111,2,4755,0)="""^DD"",52,52,302,21,2,0)"
^XMB(3.9,111,2,4756,0)="clozapine prescription. This will exist only for clozapine prescriptions."
^XMB(3.9,111,2,4757,0)="""^DD"",52,52,302,23,0)"
^XMB(3.9,111,2,4758,0)="^^2^2^3060718^"
^XMB(3.9,111,2,4759,0)="""^DD"",52,52,302,23,1,0)"
^XMB(3.9,111,2,4760,0)="This is provided by the Mental Health API $$CL^YSCLTST2(DFN) patch "
^XMB(3.9,111,2,4761,0)="""^DD"",52,52,302,23,2,0)"
^XMB(3.9,111,2,4762,0)="YS*5.01*90 as Mental Health monitor the Clozapine patient."
^XMB(3.9,111,2,4763,0)="""^DD"",52,52,302,""DT"")"
^XMB(3.9,111,2,4764,0)="3060718"
^XMB(3.9,111,2,4765,0)="""^DD"",52,52,304,0)"
^XMB(3.9,111,2,4766,0)="ANC RESULTS^NJ9,3^^SAND;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4.N) X"
^XMB(3.9,111,2,4767,0)="""^DD"",52,52,304,3)"
^XMB(3.9,111,2,4768,0)="Type a number between 0 and 99999, 3 Decimal Digits"
^XMB(3.9,111,2,4769,0)="""^DD"",52,52,304,21,0)"
^XMB(3.9,111,2,4770,0)="^^2^2^3060718^^"
^XMB(3.9,111,2,4771,0)="""^DD"",52,52,304,21,1,0)"
^XMB(3.9,111,2,4772,0)="This is the results of the ANC test that was used to authorize the"
^XMB(3.9,111,2,4773,0)="""^DD"",52,52,304,21,2,0)"
^XMB(3.9,111,2,4774,0)="clozapine prescription. This will exist only for clozapine prescriptions."
^XMB(3.9,111,2,4775,0)="""^DD"",52,52,304,23,0)"
^XMB(3.9,111,2,4776,0)="^^2^2^3060718^"
^XMB(3.9,111,2,4777,0)="""^DD"",52,52,304,23,1,0)"
^XMB(3.9,111,2,4778,0)="This is provided by the Mental Health API $$CL^YSCLTST2(DFN) patch"
^XMB(3.9,111,2,4779,0)="""^DD"",52,52,304,23,2,0)"
^XMB(3.9,111,2,4780,0)="YS*5.01*90 as Mental Health monitor the Clozapine patient."
^XMB(3.9,111,2,4781,0)="""^DD"",52,52,304,""DT"")"
^XMB(3.9,111,2,4782,0)="3060718"
^XMB(3.9,111,2,4783,0)="""^DD"",52.52,52.52,4,0)"
^XMB(3.9,111,2,4784,0)="REASON FOR OVERRIDE^RS^1:NO WBC IN LAST 7 DAYS;2:NO VERIFIED WBC;3:LAST WBC RESULT < 3500;4:3 SEQ. WBC DECREASE;5:LAST ANC RESULT < 2000;6:3 SEQ. ANC DECREASE ;7:NCCC AUTHORIZED;^0;5^Q"
^XMB(3.9,111,2,4785,0)="""^DD"",52.52,52.52,4,8.5)"
^XMB(3.9,111,2,4786,0)="^"
^XMB(3.9,111,2,4787,0)="""^DD"",52.52,52.52,4,9)"
^XMB(3.9,111,2,4788,0)="^"
^XMB(3.9,111,2,4789,0)="""^DD"",52.52,52.52,4,21,0)"
^XMB(3.9,111,2,4790,0)="^.001^1^1^3060406^^"
^XMB(3.9,111,2,4791,0)="""^DD"",52.52,52.52,4,21,1,0)"
^XMB(3.9,111,2,4792,0)="This is the reason that the prescription was allowed to be filled."
^XMB(3.9,111,2,4793,0)="""^DD"",52.52,52.52,4,""DT"")"
^XMB(3.9,111,2,4794,0)="3060406"
^XMB(3.9,111,2,4795,0)="""BLD"",5522,6)"
^XMB(3.9,111,2,4796,0)="^217"
^XMB(3.9,111,2,4797,0)="$END KID PSO*7.0*222"
^XMB(3.9,111,6,0)="^3.911A^2^2"
^XMB(3.9,111,6,1,0)="POSTMASTER"
^XMB(3.9,111,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,111,6,"B","POSTMASTER",1)=""
^XMB(3.9,111,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,112,0)="PSS-1_SEQ-100_PAT-106.KID^.5^3061008.015741^^^^K"
^XMB(3.9,112,.6)="3061008"
^XMB(3.9,112,1,0)="^3.91A^2^2"
^XMB(3.9,112,1,1,0)=".5^0^3061008.015741^^^^^^^3061008.015741"
^XMB(3.9,112,1,2,0)="1^0^3061008.022348^^^^^^^3061008.022348"
^XMB(3.9,112,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,112,1,"C",.5,1)=""
^XMB(3.9,112,1,"C",1,2)=""
^XMB(3.9,112,2,0)="^^305^305^3061008"
^XMB(3.9,112,2,1,0)="$TXT Released PSS*1*106 SEQ #100"
^XMB(3.9,112,2,2,0)="Extracted from mail message"
^XMB(3.9,112,2,3,0)="$END TXT"
^XMB(3.9,112,2,4,0)="$KID PSS*1.0*106"
^XMB(3.9,112,2,5,0)="**INSTALL NAME**"
^XMB(3.9,112,2,6,0)="PSS*1.0*106"
^XMB(3.9,112,2,7,0)="""BLD"",6018,0)"
^XMB(3.9,112,2,8,0)="PSS*1.0*106^PHARMACY DATA MANAGEMENT^0^3060201^y"
^XMB(3.9,112,2,9,0)="""BLD"",6018,1,0)"
^XMB(3.9,112,2,10,0)="^9.61A^14^14^3060126^^^^"
^XMB(3.9,112,2,11,0)="""BLD"",6018,1,1,0)"
^XMB(3.9,112,2,12,0)=" This patch contains Application Program Interfaces (APIs) that will be "
^XMB(3.9,112,2,13,0)="""BLD"",6018,1,2,0)"
^XMB(3.9,112,2,14,0)=" used by calling applications that currently do direct global reads or "
^XMB(3.9,112,2,15,0)="""BLD"",6018,1,3,0)"
^XMB(3.9,112,2,16,0)=" writes to the Pharmacy Data Management file. Since the PHARMACY PATIENT"
^XMB(3.9,112,2,17,0)="""BLD"",6018,1,4,0)"
^XMB(3.9,112,2,18,0)=" file (#55) is being replaced as part of the Pharmacy Re-engineering"
^XMB(3.9,112,2,19,0)="""BLD"",6018,1,5,0)"
^XMB(3.9,112,2,20,0)=" project, any direct M-based global reads or writes to this file must be"
^XMB(3.9,112,2,21,0)="""BLD"",6018,1,6,0)"
^XMB(3.9,112,2,22,0)=" replaced by calling the APIs provided in this patch."
^XMB(3.9,112,2,23,0)="""BLD"",6018,1,7,0)"
^XMB(3.9,112,2,24,0)=" "
^XMB(3.9,112,2,25,0)="""BLD"",6018,1,8,0)"
^XMB(3.9,112,2,26,0)=" When the new data source is in place, the calling applications will not"
^XMB(3.9,112,2,27,0)="""BLD"",6018,1,9,0)"
^XMB(3.9,112,2,28,0)=" be required to make any changes, because these APIs will be flexible"
^XMB(3.9,112,2,29,0)="""BLD"",6018,1,10,0)"
^XMB(3.9,112,2,30,0)=" enough to retrieve the requested data from the new data source when"
^XMB(3.9,112,2,31,0)="""BLD"",6018,1,11,0)"
^XMB(3.9,112,2,32,0)=" the time comes."
^XMB(3.9,112,2,33,0)="""BLD"",6018,1,12,0)"
^XMB(3.9,112,2,34,0)="  "
^XMB(3.9,112,2,35,0)="""BLD"",6018,1,13,0)"
^XMB(3.9,112,2,36,0)=" If any application is making direct global reads or writes to this file"
^XMB(3.9,112,2,37,0)="""BLD"",6018,1,14,0)"
^XMB(3.9,112,2,38,0)=" they must be replaced by using the APIs exported with this patch."
^XMB(3.9,112,2,39,0)="""BLD"",6018,4,0)"
^XMB(3.9,112,2,40,0)="^9.64PA^^"
^XMB(3.9,112,2,41,0)="""BLD"",6018,6)"
^XMB(3.9,112,2,42,0)="^90"
^XMB(3.9,112,2,43,0)="""BLD"",6018,""KRN"",0)"
^XMB(3.9,112,2,44,0)="^9.67PA^8989.52^19"
^XMB(3.9,112,2,45,0)="""BLD"",6018,""KRN"",.4,0)"
^XMB(3.9,112,2,46,0)=".4"
^XMB(3.9,112,2,47,0)="""BLD"",6018,""KRN"",.401,0)"
^XMB(3.9,112,2,48,0)=".401"
^XMB(3.9,112,2,49,0)="""BLD"",6018,""KRN"",.402,0)"
^XMB(3.9,112,2,50,0)=".402"
^XMB(3.9,112,2,51,0)="""BLD"",6018,""KRN"",.403,0)"
^XMB(3.9,112,2,52,0)=".403"
^XMB(3.9,112,2,53,0)="""BLD"",6018,""KRN"",.5,0)"
^XMB(3.9,112,2,54,0)=".5"
^XMB(3.9,112,2,55,0)="""BLD"",6018,""KRN"",.84,0)"
^XMB(3.9,112,2,56,0)=".84"
^XMB(3.9,112,2,57,0)="""BLD"",6018,""KRN"",3.6,0)"
^XMB(3.9,112,2,58,0)="3.6"
^XMB(3.9,112,2,59,0)="""BLD"",6018,""KRN"",3.8,0)"
^XMB(3.9,112,2,60,0)="3.8"
^XMB(3.9,112,2,61,0)="""BLD"",6018,""KRN"",9.2,0)"
^XMB(3.9,112,2,62,0)="9.2"
^XMB(3.9,112,2,63,0)="""BLD"",6018,""KRN"",9.8,0)"
^XMB(3.9,112,2,64,0)="9.8"
^XMB(3.9,112,2,65,0)="""BLD"",6018,""KRN"",9.8,""NM"",0)"
^XMB(3.9,112,2,66,0)="^9.68A^1^1"
^XMB(3.9,112,2,67,0)="""BLD"",6018,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,112,2,68,0)="PSS781^^0^B4377638"
^XMB(3.9,112,2,69,0)="""BLD"",6018,""KRN"",9.8,""NM"",""B"",""PSS781"",1)"
^XMB(3.9,112,2,70,0)=""
^XMB(3.9,112,2,71,0)="""BLD"",6018,""KRN"",19,0)"
^XMB(3.9,112,2,72,0)="19"
^XMB(3.9,112,2,73,0)="""BLD"",6018,""KRN"",19.1,0)"
^XMB(3.9,112,2,74,0)="19.1"
^XMB(3.9,112,2,75,0)="""BLD"",6018,""KRN"",101,0)"
^XMB(3.9,112,2,76,0)="101"
^XMB(3.9,112,2,77,0)="""BLD"",6018,""KRN"",409.61,0)"
^XMB(3.9,112,2,78,0)="409.61"
^XMB(3.9,112,2,79,0)="""BLD"",6018,""KRN"",771,0)"
^XMB(3.9,112,2,80,0)="771"
^XMB(3.9,112,2,81,0)="""BLD"",6018,""KRN"",870,0)"
^XMB(3.9,112,2,82,0)="870"
^XMB(3.9,112,2,83,0)="""BLD"",6018,""KRN"",8989.51,0)"
^XMB(3.9,112,2,84,0)="8989.51"
^XMB(3.9,112,2,85,0)="""BLD"",6018,""KRN"",8989.52,0)"
^XMB(3.9,112,2,86,0)="8989.52"
^XMB(3.9,112,2,87,0)="""BLD"",6018,""KRN"",8994,0)"
^XMB(3.9,112,2,88,0)="8994"
^XMB(3.9,112,2,89,0)="""BLD"",6018,""KRN"",""B"",.4,.4)"
^XMB(3.9,112,2,90,0)=""
^XMB(3.9,112,2,91,0)="""BLD"",6018,""KRN"",""B"",.401,.401)"
^XMB(3.9,112,2,92,0)=""
^XMB(3.9,112,2,93,0)="""BLD"",6018,""KRN"",""B"",.402,.402)"
^XMB(3.9,112,2,94,0)=""
^XMB(3.9,112,2,95,0)="""BLD"",6018,""KRN"",""B"",.403,.403)"
^XMB(3.9,112,2,96,0)=""
^XMB(3.9,112,2,97,0)="""BLD"",6018,""KRN"",""B"",.5,.5)"
^XMB(3.9,112,2,98,0)=""
^XMB(3.9,112,2,99,0)="""BLD"",6018,""KRN"",""B"",.84,.84)"
^XMB(3.9,112,2,100,0)=""
^XMB(3.9,112,2,101,0)="""BLD"",6018,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,112,2,102,0)=""
^XMB(3.9,112,2,103,0)="""BLD"",6018,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,112,2,104,0)=""
^XMB(3.9,112,2,105,0)="""BLD"",6018,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,112,2,106,0)=""
^XMB(3.9,112,2,107,0)="""BLD"",6018,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,112,2,108,0)=""
^XMB(3.9,112,2,109,0)="""BLD"",6018,""KRN"",""B"",19,19)"
^XMB(3.9,112,2,110,0)=""
^XMB(3.9,112,2,111,0)="""BLD"",6018,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,112,2,112,0)=""
^XMB(3.9,112,2,113,0)="""BLD"",6018,""KRN"",""B"",101,101)"
^XMB(3.9,112,2,114,0)=""
^XMB(3.9,112,2,115,0)="""BLD"",6018,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,112,2,116,0)=""
^XMB(3.9,112,2,117,0)="""BLD"",6018,""KRN"",""B"",771,771)"
^XMB(3.9,112,2,118,0)=""
^XMB(3.9,112,2,119,0)="""BLD"",6018,""KRN"",""B"",870,870)"
^XMB(3.9,112,2,120,0)=""
^XMB(3.9,112,2,121,0)="""BLD"",6018,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,112,2,122,0)=""
^XMB(3.9,112,2,123,0)="""BLD"",6018,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,112,2,124,0)=""
^XMB(3.9,112,2,125,0)="""BLD"",6018,""KRN"",""B"",8994,8994)"
^XMB(3.9,112,2,126,0)=""
^XMB(3.9,112,2,127,0)="""MBREQ"")"
^XMB(3.9,112,2,128,0)="0"
^XMB(3.9,112,2,129,0)="""PKG"",517,-1)"
^XMB(3.9,112,2,130,0)="1^1"
^XMB(3.9,112,2,131,0)="""PKG"",517,0)"
^XMB(3.9,112,2,132,0)="PHARMACY DATA MANAGEMENT^PSS^Maintenance of Pharmacy files."
^XMB(3.9,112,2,133,0)="""PKG"",517,20,0)"
^XMB(3.9,112,2,134,0)="^9.402P^^"
^XMB(3.9,112,2,135,0)="""PKG"",517,22,0)"
^XMB(3.9,112,2,136,0)="^9.49I^1^1"
^XMB(3.9,112,2,137,0)="""PKG"",517,22,1,0)"
^XMB(3.9,112,2,138,0)="1.0^2970930^2971014^11595"
^XMB(3.9,112,2,139,0)="""PKG"",517,22,1,""PAH"",1,0)"
^XMB(3.9,112,2,140,0)="106^3060201"
^XMB(3.9,112,2,141,0)="""PKG"",517,22,1,""PAH"",1,1,0)"
^XMB(3.9,112,2,142,0)="^^14^14^3060201"
^XMB(3.9,112,2,143,0)="""PKG"",517,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,112,2,144,0)=" This patch contains Application Program Interfaces (APIs) that will be "
^XMB(3.9,112,2,145,0)="""PKG"",517,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,112,2,146,0)=" used by calling applications that currently do direct global reads or "
^XMB(3.9,112,2,147,0)="""PKG"",517,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,112,2,148,0)=" writes to the Pharmacy Data Management file. Since the PHARMACY PATIENT"
^XMB(3.9,112,2,149,0)="""PKG"",517,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,112,2,150,0)=" file (#55) is being replaced as part of the Pharmacy Re-engineering"
^XMB(3.9,112,2,151,0)="""PKG"",517,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,112,2,152,0)=" project, any direct M-based global reads or writes to this file must be"
^XMB(3.9,112,2,153,0)="""PKG"",517,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,112,2,154,0)=" replaced by calling the APIs provided in this patch."
^XMB(3.9,112,2,155,0)="""PKG"",517,22,1,""PAH"",1,1,7,0)"
^XMB(3.9,112,2,156,0)=" "
^XMB(3.9,112,2,157,0)="""PKG"",517,22,1,""PAH"",1,1,8,0)"
^XMB(3.9,112,2,158,0)=" When the new data source is in place, the calling applications will not"
^XMB(3.9,112,2,159,0)="""PKG"",517,22,1,""PAH"",1,1,9,0)"
^XMB(3.9,112,2,160,0)=" be required to make any changes, because these APIs will be flexible"
^XMB(3.9,112,2,161,0)="""PKG"",517,22,1,""PAH"",1,1,10,0)"
^XMB(3.9,112,2,162,0)=" enough to retrieve the requested data from the new data source when"
^XMB(3.9,112,2,163,0)="""PKG"",517,22,1,""PAH"",1,1,11,0)"
^XMB(3.9,112,2,164,0)=" the time comes."
^XMB(3.9,112,2,165,0)="""PKG"",517,22,1,""PAH"",1,1,12,0)"
^XMB(3.9,112,2,166,0)="  "
^XMB(3.9,112,2,167,0)="""PKG"",517,22,1,""PAH"",1,1,13,0)"
^XMB(3.9,112,2,168,0)=" If any application is making direct global reads or writes to this file"
^XMB(3.9,112,2,169,0)="""PKG"",517,22,1,""PAH"",1,1,14,0)"
^XMB(3.9,112,2,170,0)=" they must be replaced by using the APIs exported with this patch."
^XMB(3.9,112,2,171,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,112,2,172,0)="Y"
^XMB(3.9,112,2,173,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,112,2,174,0)="^D REP^XPDH"
^XMB(3.9,112,2,175,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,112,2,176,0)="Shall I write over your |FLAG| File"
^XMB(3.9,112,2,177,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,112,2,178,0)="YES"
^XMB(3.9,112,2,179,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,112,2,180,0)="D XPF1^XPDIQ"
^XMB(3.9,112,2,181,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,112,2,182,0)="Y"
^XMB(3.9,112,2,183,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,112,2,184,0)="^D DTA^XPDH"
^XMB(3.9,112,2,185,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,112,2,186,0)="Want my data |FLAG| yours"
^XMB(3.9,112,2,187,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,112,2,188,0)="YES"
^XMB(3.9,112,2,189,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,112,2,190,0)="D XPF2^XPDIQ"
^XMB(3.9,112,2,191,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,112,2,192,0)="YO"
^XMB(3.9,112,2,193,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,112,2,194,0)="^D INHIBIT^XPDH"
^XMB(3.9,112,2,195,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,112,2,196,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,112,2,197,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,112,2,198,0)="YES"
^XMB(3.9,112,2,199,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,112,2,200,0)="D XPI1^XPDIQ"
^XMB(3.9,112,2,201,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,112,2,202,0)="PO^VA(200,:EM"
^XMB(3.9,112,2,203,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,112,2,204,0)="^D MG^XPDH"
^XMB(3.9,112,2,205,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,112,2,206,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,112,2,207,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,112,2,208,0)=""
^XMB(3.9,112,2,209,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,112,2,210,0)="D XPM1^XPDIQ"
^XMB(3.9,112,2,211,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,112,2,212,0)="Y"
^XMB(3.9,112,2,213,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,112,2,214,0)="^D MENU^XPDH"
^XMB(3.9,112,2,215,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,112,2,216,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,112,2,217,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,112,2,218,0)="YES"
^XMB(3.9,112,2,219,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,112,2,220,0)="D XPO1^XPDIQ"
^XMB(3.9,112,2,221,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,112,2,222,0)="Y"
^XMB(3.9,112,2,223,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,112,2,224,0)="^D OPT^XPDH"
^XMB(3.9,112,2,225,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,112,2,226,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,112,2,227,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,112,2,228,0)="YES"
^XMB(3.9,112,2,229,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,112,2,230,0)="D XPZ1^XPDIQ"
^XMB(3.9,112,2,231,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,112,2,232,0)="Y"
^XMB(3.9,112,2,233,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,112,2,234,0)="^D RTN^XPDH"
^XMB(3.9,112,2,235,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,112,2,236,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,112,2,237,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,112,2,238,0)="NO"
^XMB(3.9,112,2,239,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,112,2,240,0)="D XPZ2^XPDIQ"
^XMB(3.9,112,2,241,0)="""RTN"")"
^XMB(3.9,112,2,242,0)="1"
^XMB(3.9,112,2,243,0)="""RTN"",""PSS781"")"
^XMB(3.9,112,2,244,0)="0^1^B4377638"
^XMB(3.9,112,2,245,0)="""RTN"",""PSS781"",1,0)"
^XMB(3.9,112,2,246,0)="PSS781 ;BHM/DB - API FOR PHARMACY PATIENT FILE ; 15 JUN 05"
^XMB(3.9,112,2,247,0)="""RTN"",""PSS781"",2,0)"
^XMB(3.9,112,2,248,0)=" ;;1.0;PHARMACY DATA MANAGEMENT;**106**;9/30/97"
^XMB(3.9,112,2,249,0)="""RTN"",""PSS781"",3,0)"
^XMB(3.9,112,2,250,0)="PSS(PSSDFN,PSSNUM,LIST) ;"
^XMB(3.9,112,2,251,0)="""RTN"",""PSS781"",4,0)"
^XMB(3.9,112,2,252,0)=" ;PSSDFN: IEN of Patient [REQUIRED]"
^XMB(3.9,112,2,253,0)="""RTN"",""PSS781"",5,0)"
^XMB(3.9,112,2,254,0)=" ;PSSNUM: CLOZAPINE REGISTRATION NUMBER"
^XMB(3.9,112,2,255,0)="""RTN"",""PSS781"",6,0)"
^XMB(3.9,112,2,256,0)=" ;LIST: Subscript name used in ^TMP global [REQUIRED]"
^XMB(3.9,112,2,257,0)="""RTN"",""PSS781"",7,0)"
^XMB(3.9,112,2,258,0)=" I $G(LIST)="""" Q"
^XMB(3.9,112,2,259,0)="""RTN"",""PSS781"",8,0)"
^XMB(3.9,112,2,260,0)=" K ^TMP($J,LIST) N PSSIEN,DA,DR,DIC"
^XMB(3.9,112,2,261,0)="""RTN"",""PSS781"",9,0)"
^XMB(3.9,112,2,262,0)=" I $G(PSSDFN)'>0,$G(PSSNUM)="""" S ^TMP($J,LIST,0)=-1_""^""_""NO DATA FOUND"" Q"
^XMB(3.9,112,2,263,0)="""RTN"",""PSS781"",10,0)"
^XMB(3.9,112,2,264,0)=" I $G(PSSNUM)'="""",$G(PSSDFN)'>0 S PSSDFN=$O(^PS(55,""ASAND1"",PSSNUM,0)) I $G(PSSDFN)'>0 G NODATA"
^XMB(3.9,112,2,265,0)="""RTN"",""PSS781"",11,0)"
^XMB(3.9,112,2,266,0)=" S PSSIEN=$G(PSSDFN) K ^UTILITY(""DIQ1"",$J),DIQ"
^XMB(3.9,112,2,267,0)="""RTN"",""PSS781"",12,0)"
^XMB(3.9,112,2,268,0)=" S (DA,IEN)=PSSDFN,DIC=55,DR=""53:58"",DIQ(0)=""IE"" D EN^DIQ1 I '$D(^UTILITY(""DIQ1"",$J)) G NODATA"
^XMB(3.9,112,2,269,0)="""RTN"",""PSS781"",13,0)"
^XMB(3.9,112,2,270,0)=" F PSSIEN=53:1:58 S ^TMP($J,LIST,PSSDFN,PSSIEN)=$G(^UTILITY(""DIQ1"",$J,55,IEN,PSSIEN,""I""))"
^XMB(3.9,112,2,271,0)="""RTN"",""PSS781"",14,0)"
^XMB(3.9,112,2,272,0)=" F PSSIEN=54,55,56,57,58 S ^TMP($J,LIST,PSSDFN,PSSIEN)=$S($G(^UTILITY(""DIQ1"",$J,55,IEN,PSSIEN,""I""))=$G(^UTILITY(""DIQ1"",$J,55,IEN,PSSIEN,""E"")):"""",1:^TMP($J,LIST,PSSDFN,PSSIEN))_""^""_$G(^UTILITY(""DIQ1"",$J,55,IEN,PSSIEN,""E""))"
^XMB(3.9,112,2,273,0)="""RTN"",""PSS781"",15,0)"
^XMB(3.9,112,2,274,0)=" F X=53:1:58 I $G(^TMP($J,LIST,PSSDFN,X))=""^"" S ^TMP($J,LIST,PSSDFN,X)="""""
^XMB(3.9,112,2,275,0)="""RTN"",""PSS781"",16,0)"
^XMB(3.9,112,2,276,0)=" K ^UTILITY(""DIQ1"",$J),DIQ,DIC,DA Q"
^XMB(3.9,112,2,277,0)="""RTN"",""PSS781"",17,0)"
^XMB(3.9,112,2,278,0)="NODATA S ^TMP($J,LIST,0)=""-1^NO DATA FOUND"""
^XMB(3.9,112,2,279,0)="""RTN"",""PSS781"",18,0)"
^XMB(3.9,112,2,280,0)="Q Q"
^XMB(3.9,112,2,281,0)="""RTN"",""PSS781"",19,0)"
^XMB(3.9,112,2,282,0)="WRT(PSSDFN,PSSSTAT,LIST) ;Sets Clozapine Status field for Mental Health"
^XMB(3.9,112,2,283,0)="""RTN"",""PSS781"",20,0)"
^XMB(3.9,112,2,284,0)=" ;PSSDFN = DFN of Patient (REQUIRED)"
^XMB(3.9,112,2,285,0)="""RTN"",""PSS781"",21,0)"
^XMB(3.9,112,2,286,0)=" ;PSSSTAT = Clozapine Status (REQUIRED)"
^XMB(3.9,112,2,287,0)="""RTN"",""PSS781"",22,0)"
^XMB(3.9,112,2,288,0)=" ;LIST: Subscript name used in ^TMP global [REQUIRED]"
^XMB(3.9,112,2,289,0)="""RTN"",""PSS781"",23,0)"
^XMB(3.9,112,2,290,0)=" I $G(PSSDFN)'>0 Q"
^XMB(3.9,112,2,291,0)="""RTN"",""PSS781"",24,0)"
^XMB(3.9,112,2,292,0)=" I $G(PSSSTAT)="""" Q"
^XMB(3.9,112,2,293,0)="""RTN"",""PSS781"",25,0)"
^XMB(3.9,112,2,294,0)=" I $G(LIST)="""" Q"
^XMB(3.9,112,2,295,0)="""RTN"",""PSS781"",26,0)"
^XMB(3.9,112,2,296,0)=" I '$D(^PS(55,PSSDFN)) S ^TMP($J,LIST,0)=0 Q"
^XMB(3.9,112,2,297,0)="""RTN"",""PSS781"",27,0)"
^XMB(3.9,112,2,298,0)=" I $G(PSSSTAT)'=""D"",$G(PSSSTAT)'=""H"",$G(PSSSTAT)'=""A"" S ^TMP($J,LIST,0)=0 Q"
^XMB(3.9,112,2,299,0)="""RTN"",""PSS781"",28,0)"
^XMB(3.9,112,2,300,0)=" S $P(^PS(55,PSSDFN,""SAND""),""^"",2)=PSSSTAT,^TMP($J,LIST,0)=1 Q"
^XMB(3.9,112,2,301,0)="""VER"")"
^XMB(3.9,112,2,302,0)="8.0^22.0"
^XMB(3.9,112,2,303,0)="""BLD"",6018,6)"
^XMB(3.9,112,2,304,0)="^100"
^XMB(3.9,112,2,305,0)="$END KID PSS*1.0*106"
^XMB(3.9,112,6,0)="^3.911A^2^2"
^XMB(3.9,112,6,1,0)="POSTMASTER"
^XMB(3.9,112,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,112,6,"B","POSTMASTER",1)=""
^XMB(3.9,112,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,113,0)="PSS-1_SEQ-101_PAT-113.KID^.5^3061008.015741^^^^K"
^XMB(3.9,113,.6)="3061008"
^XMB(3.9,113,1,0)="^3.91A^2^2"
^XMB(3.9,113,1,1,0)=".5^0^3061008.015741^^^^^^^3061008.015741"
^XMB(3.9,113,1,2,0)="1^0^3061008.022354^^^^^^^3061008.022354"
^XMB(3.9,113,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,113,1,"C",.5,1)=""
^XMB(3.9,113,1,"C",1,2)=""
^XMB(3.9,113,2,0)="^^327^327^3061008"
^XMB(3.9,113,2,1,0)="$TXT EMERGENCY Released PSS*1*113 SEQ #101"
^XMB(3.9,113,2,2,0)="Extracted from mail message"
^XMB(3.9,113,2,3,0)="$END TXT"
^XMB(3.9,113,2,4,0)="$KID PSS*1.0*113"
^XMB(3.9,113,2,5,0)="**INSTALL NAME**"
^XMB(3.9,113,2,6,0)="PSS*1.0*113"
^XMB(3.9,113,2,7,0)="""BLD"",5703,0)"
^XMB(3.9,113,2,8,0)="PSS*1.0*113^PHARMACY DATA MANAGEMENT^0^3060601^y"
^XMB(3.9,113,2,9,0)="""BLD"",5703,1,0)"
^XMB(3.9,113,2,10,0)="^^5^5^3060601^"
^XMB(3.9,113,2,11,0)="""BLD"",5703,1,1,0)"
^XMB(3.9,113,2,12,0)="The Computerized Patient Record System (CPRS) V. 1.0 has requested a "
^XMB(3.9,113,2,13,0)="""BLD"",5703,1,2,0)"
^XMB(3.9,113,2,14,0)="modification to an Application Programming Interface (API) from Pharmacy"
^XMB(3.9,113,2,15,0)="""BLD"",5703,1,3,0)"
^XMB(3.9,113,2,16,0)="Data Management V. 1.0. The modified API will provide CPRS with a flag to"
^XMB(3.9,113,2,17,0)="""BLD"",5703,1,4,0)"
^XMB(3.9,113,2,18,0)="indicate a default Medication Route is being supplied from the PHARMACY"
^XMB(3.9,113,2,19,0)="""BLD"",5703,1,5,0)"
^XMB(3.9,113,2,20,0)="ORDERABLE ITEM (#50.7) file."
^XMB(3.9,113,2,21,0)="""BLD"",5703,4,0)"
^XMB(3.9,113,2,22,0)="^9.64PA^^"
^XMB(3.9,113,2,23,0)="""BLD"",5703,6.3)"
^XMB(3.9,113,2,24,0)="1"
^XMB(3.9,113,2,25,0)="""BLD"",5703,""ABPKG"")"
^XMB(3.9,113,2,26,0)="n"
^XMB(3.9,113,2,27,0)="""BLD"",5703,""KRN"",0)"
^XMB(3.9,113,2,28,0)="^9.67PA^8989.52^19"
^XMB(3.9,113,2,29,0)="""BLD"",5703,""KRN"",.4,0)"
^XMB(3.9,113,2,30,0)=".4"
^XMB(3.9,113,2,31,0)="""BLD"",5703,""KRN"",.401,0)"
^XMB(3.9,113,2,32,0)=".401"
^XMB(3.9,113,2,33,0)="""BLD"",5703,""KRN"",.402,0)"
^XMB(3.9,113,2,34,0)=".402"
^XMB(3.9,113,2,35,0)="""BLD"",5703,""KRN"",.403,0)"
^XMB(3.9,113,2,36,0)=".403"
^XMB(3.9,113,2,37,0)="""BLD"",5703,""KRN"",.5,0)"
^XMB(3.9,113,2,38,0)=".5"
^XMB(3.9,113,2,39,0)="""BLD"",5703,""KRN"",.84,0)"
^XMB(3.9,113,2,40,0)=".84"
^XMB(3.9,113,2,41,0)="""BLD"",5703,""KRN"",3.6,0)"
^XMB(3.9,113,2,42,0)="3.6"
^XMB(3.9,113,2,43,0)="""BLD"",5703,""KRN"",3.8,0)"
^XMB(3.9,113,2,44,0)="3.8"
^XMB(3.9,113,2,45,0)="""BLD"",5703,""KRN"",9.2,0)"
^XMB(3.9,113,2,46,0)="9.2"
^XMB(3.9,113,2,47,0)="""BLD"",5703,""KRN"",9.8,0)"
^XMB(3.9,113,2,48,0)="9.8"
^XMB(3.9,113,2,49,0)="""BLD"",5703,""KRN"",9.8,""NM"",0)"
^XMB(3.9,113,2,50,0)="^9.68A^1^1"
^XMB(3.9,113,2,51,0)="""BLD"",5703,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,113,2,52,0)="PSSJORDF^^0^B11344791"
^XMB(3.9,113,2,53,0)="""BLD"",5703,""KRN"",9.8,""NM"",""B"",""PSSJORDF"",1)"
^XMB(3.9,113,2,54,0)=""
^XMB(3.9,113,2,55,0)="""BLD"",5703,""KRN"",19,0)"
^XMB(3.9,113,2,56,0)="19"
^XMB(3.9,113,2,57,0)="""BLD"",5703,""KRN"",19.1,0)"
^XMB(3.9,113,2,58,0)="19.1"
^XMB(3.9,113,2,59,0)="""BLD"",5703,""KRN"",101,0)"
^XMB(3.9,113,2,60,0)="101"
^XMB(3.9,113,2,61,0)="""BLD"",5703,""KRN"",409.61,0)"
^XMB(3.9,113,2,62,0)="409.61"
^XMB(3.9,113,2,63,0)="""BLD"",5703,""KRN"",771,0)"
^XMB(3.9,113,2,64,0)="771"
^XMB(3.9,113,2,65,0)="""BLD"",5703,""KRN"",870,0)"
^XMB(3.9,113,2,66,0)="870"
^XMB(3.9,113,2,67,0)="""BLD"",5703,""KRN"",8989.51,0)"
^XMB(3.9,113,2,68,0)="8989.51"
^XMB(3.9,113,2,69,0)="""BLD"",5703,""KRN"",8989.52,0)"
^XMB(3.9,113,2,70,0)="8989.52"
^XMB(3.9,113,2,71,0)="""BLD"",5703,""KRN"",8994,0)"
^XMB(3.9,113,2,72,0)="8994"
^XMB(3.9,113,2,73,0)="""BLD"",5703,""KRN"",""B"",.4,.4)"
^XMB(3.9,113,2,74,0)=""
^XMB(3.9,113,2,75,0)="""BLD"",5703,""KRN"",""B"",.401,.401)"
^XMB(3.9,113,2,76,0)=""
^XMB(3.9,113,2,77,0)="""BLD"",5703,""KRN"",""B"",.402,.402)"
^XMB(3.9,113,2,78,0)=""
^XMB(3.9,113,2,79,0)="""BLD"",5703,""KRN"",""B"",.403,.403)"
^XMB(3.9,113,2,80,0)=""
^XMB(3.9,113,2,81,0)="""BLD"",5703,""KRN"",""B"",.5,.5)"
^XMB(3.9,113,2,82,0)=""
^XMB(3.9,113,2,83,0)="""BLD"",5703,""KRN"",""B"",.84,.84)"
^XMB(3.9,113,2,84,0)=""
^XMB(3.9,113,2,85,0)="""BLD"",5703,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,113,2,86,0)=""
^XMB(3.9,113,2,87,0)="""BLD"",5703,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,113,2,88,0)=""
^XMB(3.9,113,2,89,0)="""BLD"",5703,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,113,2,90,0)=""
^XMB(3.9,113,2,91,0)="""BLD"",5703,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,113,2,92,0)=""
^XMB(3.9,113,2,93,0)="""BLD"",5703,""KRN"",""B"",19,19)"
^XMB(3.9,113,2,94,0)=""
^XMB(3.9,113,2,95,0)="""BLD"",5703,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,113,2,96,0)=""
^XMB(3.9,113,2,97,0)="""BLD"",5703,""KRN"",""B"",101,101)"
^XMB(3.9,113,2,98,0)=""
^XMB(3.9,113,2,99,0)="""BLD"",5703,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,113,2,100,0)=""
^XMB(3.9,113,2,101,0)="""BLD"",5703,""KRN"",""B"",771,771)"
^XMB(3.9,113,2,102,0)=""
^XMB(3.9,113,2,103,0)="""BLD"",5703,""KRN"",""B"",870,870)"
^XMB(3.9,113,2,104,0)=""
^XMB(3.9,113,2,105,0)="""BLD"",5703,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,113,2,106,0)=""
^XMB(3.9,113,2,107,0)="""BLD"",5703,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,113,2,108,0)=""
^XMB(3.9,113,2,109,0)="""BLD"",5703,""KRN"",""B"",8994,8994)"
^XMB(3.9,113,2,110,0)=""
^XMB(3.9,113,2,111,0)="""BLD"",5703,""QUES"",0)"
^XMB(3.9,113,2,112,0)="^9.62^^"
^XMB(3.9,113,2,113,0)="""BLD"",5703,""REQB"",0)"
^XMB(3.9,113,2,114,0)="^9.611^1^1"
^XMB(3.9,113,2,115,0)="""BLD"",5703,""REQB"",1,0)"
^XMB(3.9,113,2,116,0)="PSS*1.0*69^2"
^XMB(3.9,113,2,117,0)="""BLD"",5703,""REQB"",""B"",""PSS*1.0*69"",1)"
^XMB(3.9,113,2,118,0)=""
^XMB(3.9,113,2,119,0)="""MBREQ"")"
^XMB(3.9,113,2,120,0)="0"
^XMB(3.9,113,2,121,0)="""PKG"",517,-1)"
^XMB(3.9,113,2,122,0)="1^1"
^XMB(3.9,113,2,123,0)="""PKG"",517,0)"
^XMB(3.9,113,2,124,0)="PHARMACY DATA MANAGEMENT^PSS^Maintenance of Pharmacy files."
^XMB(3.9,113,2,125,0)="""PKG"",517,20,0)"
^XMB(3.9,113,2,126,0)="^9.402P^^"
^XMB(3.9,113,2,127,0)="""PKG"",517,22,0)"
^XMB(3.9,113,2,128,0)="^9.49I^1^1"
^XMB(3.9,113,2,129,0)="""PKG"",517,22,1,0)"
^XMB(3.9,113,2,130,0)="1.0^2970930^2971014^11595"
^XMB(3.9,113,2,131,0)="""PKG"",517,22,1,""PAH"",1,0)"
^XMB(3.9,113,2,132,0)="113^3060601"
^XMB(3.9,113,2,133,0)="""PKG"",517,22,1,""PAH"",1,1,0)"
^XMB(3.9,113,2,134,0)="^^5^5^3060601"
^XMB(3.9,113,2,135,0)="""PKG"",517,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,113,2,136,0)="The Computerized Patient Record System (CPRS) V. 1.0 has requested a "
^XMB(3.9,113,2,137,0)="""PKG"",517,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,113,2,138,0)="modification to an Application Programming Interface (API) from Pharmacy"
^XMB(3.9,113,2,139,0)="""PKG"",517,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,113,2,140,0)="Data Management V. 1.0. The modified API will provide CPRS with a flag to"
^XMB(3.9,113,2,141,0)="""PKG"",517,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,113,2,142,0)="indicate a default Medication Route is being supplied from the PHARMACY"
^XMB(3.9,113,2,143,0)="""PKG"",517,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,113,2,144,0)="ORDERABLE ITEM (#50.7) file."
^XMB(3.9,113,2,145,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,113,2,146,0)="Y"
^XMB(3.9,113,2,147,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,113,2,148,0)="^D REP^XPDH"
^XMB(3.9,113,2,149,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,113,2,150,0)="Shall I write over your |FLAG| File"
^XMB(3.9,113,2,151,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,113,2,152,0)="YES"
^XMB(3.9,113,2,153,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,113,2,154,0)="D XPF1^XPDIQ"
^XMB(3.9,113,2,155,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,113,2,156,0)="Y"
^XMB(3.9,113,2,157,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,113,2,158,0)="^D DTA^XPDH"
^XMB(3.9,113,2,159,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,113,2,160,0)="Want my data |FLAG| yours"
^XMB(3.9,113,2,161,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,113,2,162,0)="YES"
^XMB(3.9,113,2,163,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,113,2,164,0)="D XPF2^XPDIQ"
^XMB(3.9,113,2,165,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,113,2,166,0)="YO"
^XMB(3.9,113,2,167,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,113,2,168,0)="^D INHIBIT^XPDH"
^XMB(3.9,113,2,169,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,113,2,170,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,113,2,171,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,113,2,172,0)="YES"
^XMB(3.9,113,2,173,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,113,2,174,0)="D XPI1^XPDIQ"
^XMB(3.9,113,2,175,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,113,2,176,0)="PO^VA(200,:EM"
^XMB(3.9,113,2,177,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,113,2,178,0)="^D MG^XPDH"
^XMB(3.9,113,2,179,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,113,2,180,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,113,2,181,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,113,2,182,0)=""
^XMB(3.9,113,2,183,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,113,2,184,0)="D XPM1^XPDIQ"
^XMB(3.9,113,2,185,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,113,2,186,0)="Y"
^XMB(3.9,113,2,187,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,113,2,188,0)="^D MENU^XPDH"
^XMB(3.9,113,2,189,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,113,2,190,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,113,2,191,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,113,2,192,0)="YES"
^XMB(3.9,113,2,193,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,113,2,194,0)="D XPO1^XPDIQ"
^XMB(3.9,113,2,195,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,113,2,196,0)="Y"
^XMB(3.9,113,2,197,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,113,2,198,0)="^D OPT^XPDH"
^XMB(3.9,113,2,199,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,113,2,200,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,113,2,201,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,113,2,202,0)="YES"
^XMB(3.9,113,2,203,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,113,2,204,0)="D XPZ1^XPDIQ"
^XMB(3.9,113,2,205,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,113,2,206,0)="Y"
^XMB(3.9,113,2,207,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,113,2,208,0)="^D RTN^XPDH"
^XMB(3.9,113,2,209,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,113,2,210,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,113,2,211,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,113,2,212,0)="NO"
^XMB(3.9,113,2,213,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,113,2,214,0)="D XPZ2^XPDIQ"
^XMB(3.9,113,2,215,0)="""RTN"")"
^XMB(3.9,113,2,216,0)="1"
^XMB(3.9,113,2,217,0)="""RTN"",""PSSJORDF"")"
^XMB(3.9,113,2,218,0)="0^1^B11344791^B11147811"
^XMB(3.9,113,2,219,0)="""RTN"",""PSSJORDF"",1,0)"
^XMB(3.9,113,2,220,0)="PSSJORDF ;BIR/MV-RETURN MED ROUTES(MR) AND INSTRUCTIONS(INS) ;06/26/98"
^XMB(3.9,113,2,221,0)="""RTN"",""PSSJORDF"",2,0)"
^XMB(3.9,113,2,222,0)=" ;;1.0;PHARMACY DATA MANAGEMENT;**5,13,34,38,69,113**;9/30/97;Build 1"
^XMB(3.9,113,2,223,0)="""RTN"",""PSSJORDF"",3,0)"
^XMB(3.9,113,2,224,0)=" ;;"
^XMB(3.9,113,2,225,0)="""RTN"",""PSSJORDF"",4,0)"
^XMB(3.9,113,2,226,0)=" ;* PSJORD is the Orderable Item IEN pass to Pharmacy by OE/RR.  "
^XMB(3.9,113,2,227,0)="""RTN"",""PSSJORDF"",5,0)"
^XMB(3.9,113,2,228,0)=" ;* 1. If the dosage form is valid, this routine will return all med"
^XMB(3.9,113,2,229,0)="""RTN"",""PSSJORDF"",6,0)"
^XMB(3.9,113,2,230,0)=" ;*    routes and instructions associated with that dose form."
^XMB(3.9,113,2,231,0)="""RTN"",""PSSJORDF"",7,0)"
^XMB(3.9,113,2,232,0)=" ;* 2. If the dose form is null, this routine will return all med routes"
^XMB(3.9,113,2,233,0)="""RTN"",""PSSJORDF"",8,0)"
^XMB(3.9,113,2,234,0)=" ;*    that exist in the medication routes file."
^XMB(3.9,113,2,235,0)="""RTN"",""PSSJORDF"",9,0)"
^XMB(3.9,113,2,236,0)=" ;* 3. ^TMP format:"
^XMB(3.9,113,2,237,0)="""RTN"",""PSSJORDF"",10,0)"
^XMB(3.9,113,2,238,0)=" ;*    ^TMP(""PSJMR"",$J,#)=MED ROUTE^MED ROUTE ABREVATION^IEN^OUTPATIENT"
^XMB(3.9,113,2,239,0)="""RTN"",""PSSJORDF"",11,0)"
^XMB(3.9,113,2,240,0)=" ;*                       EXPANSION^IV FLAG^DEFAULT FLAG"
^XMB(3.9,113,2,241,0)="""RTN"",""PSSJORDF"",12,0)"
^XMB(3.9,113,2,242,0)=" ;*    ^TMP(""PSJNOUN"",$J,D0)=NOUN^VERB^PREPOSITION"
^XMB(3.9,113,2,243,0)="""RTN"",""PSSJORDF"",13,0)"
^XMB(3.9,113,2,244,0)=" ;*    ^TMP(""PSJSCH"",$J)=DEFAULT SCHEDULE NAME"
^XMB(3.9,113,2,245,0)="""RTN"",""PSSJORDF"",14,0)"
^XMB(3.9,113,2,246,0)=" ;"
^XMB(3.9,113,2,247,0)="""RTN"",""PSSJORDF"",15,0)"
^XMB(3.9,113,2,248,0)="START(PSJORD,PSJOPAC) ;"
^XMB(3.9,113,2,249,0)="""RTN"",""PSSJORDF"",16,0)"
^XMB(3.9,113,2,250,0)=" NEW MR,MRNODE,INS,PSJDFNO,X,MCT,Z,PSJOISC"
^XMB(3.9,113,2,251,0)="""RTN"",""PSSJORDF"",17,0)"
^XMB(3.9,113,2,252,0)=" I '+PSJORD D MEDROUTE Q"
^XMB(3.9,113,2,253,0)="""RTN"",""PSSJORDF"",18,0)"
^XMB(3.9,113,2,254,0)=" S PSJDFNO=+$P($G(^PS(50.7,+PSJORD,0)),U,2)"
^XMB(3.9,113,2,255,0)="""RTN"",""PSSJORDF"",19,0)"
^XMB(3.9,113,2,256,0)=" ;S ^TMP(""PSJSCH"",$J)=$P($G(^PS(50.7,+PSJORD,0)),""^"",8) ;default schedule"
^XMB(3.9,113,2,257,0)="""RTN"",""PSSJORDF"",20,0)"
^XMB(3.9,113,2,258,0)=" S PSJOISC=$P($G(^PS(50.7,+PSJORD,0)),""^"",8)"
^XMB(3.9,113,2,259,0)="""RTN"",""PSSJORDF"",21,0)"
^XMB(3.9,113,2,260,0)=" I $G(PSJOPAC)=""O""!($G(PSJOPAC)=""X"") D:$G(PSJOISC)'="""" EN^PSSOUTSC(.PSJOISC) S:$G(PSJOISC)'="""" ^TMP(""PSJSCH"",$J)=$G(PSJOISC) G SCPASS"
^XMB(3.9,113,2,261,0)="""RTN"",""PSSJORDF"",22,0)"
^XMB(3.9,113,2,262,0)=" I $G(PSJOISC)'="""" D EN^PSSGSGUI(.PSJOISC,""I"") S:$G(PSJOISC)'="""" ^TMP(""PSJSCH"",$J)=$G(PSJOISC)"
^XMB(3.9,113,2,263,0)="""RTN"",""PSSJORDF"",23,0)"
^XMB(3.9,113,2,264,0)="SCPASS ;"
^XMB(3.9,113,2,265,0)="""RTN"",""PSSJORDF"",24,0)"
^XMB(3.9,113,2,266,0)=" I $G(^PS(50.606,PSJDFNO,0))="""" D NOD Q:$D(^TMP(""PSJMR"",$J,1))  D MEDROUTE Q"
^XMB(3.9,113,2,267,0)="""RTN"",""PSSJORDF"",25,0)"
^XMB(3.9,113,2,268,0)=" K ^TMP(""PSJMR"",$J),^TMP(""PSJNOUN"",$J)"
^XMB(3.9,113,2,269,0)="""RTN"",""PSSJORDF"",26,0)"
^XMB(3.9,113,2,270,0)=" D DF"
^XMB(3.9,113,2,271,0)="""RTN"",""PSSJORDF"",27,0)"
^XMB(3.9,113,2,272,0)=" Q"
^XMB(3.9,113,2,273,0)="""RTN"",""PSSJORDF"",28,0)"
^XMB(3.9,113,2,274,0)=" ;"
^XMB(3.9,113,2,275,0)="""RTN"",""PSSJORDF"",29,0)"
^XMB(3.9,113,2,276,0)="DF ;* Loop thru DF node to find all available med routes, nouns, and instructions."
^XMB(3.9,113,2,277,0)="""RTN"",""PSSJORDF"",30,0)"
^XMB(3.9,113,2,278,0)=" N VERB,MR,INS,X"
^XMB(3.9,113,2,279,0)="""RTN"",""PSSJORDF"",31,0)"
^XMB(3.9,113,2,280,0)=" S (MR,INS,X,MCT)=0"
^XMB(3.9,113,2,281,0)="""RTN"",""PSSJORDF"",32,0)"
^XMB(3.9,113,2,282,0)=" S VERB=$P($G(^PS(50.606,PSJDFNO,""MISC"")),U)"
^XMB(3.9,113,2,283,0)="""RTN"",""PSSJORDF"",33,0)"
^XMB(3.9,113,2,284,0)=" S MR=+$P($G(^PS(50.7,+PSJORD,0)),""^"",6) I MR,$D(^PS(51.2,MR,0)),$P($G(^(0)),""^"",4)=1 S ^TMP(""PSJMR"",$J,1)=$P(^PS(51.2,MR,0),""^"")_U_$P(^(0),""^"",3)_U_MR_U_$P(^(0),""^"",2)_U_$S($P(^(0),""^"",6):1,1:0)_""^D"",MCT=MCT+1"
^XMB(3.9,113,2,285,0)="""RTN"",""PSSJORDF"",34,0)"
^XMB(3.9,113,2,286,0)=" S MR=0 F  S MR=$O(^PS(50.606,PSJDFNO,""MR"",MR)) Q:'MR  D"
^XMB(3.9,113,2,287,0)="""RTN"",""PSSJORDF"",35,0)"
^XMB(3.9,113,2,288,0)=" .  S X=+$G(^PS(50.606,PSJDFNO,""MR"",MR,0)) Q:'X!($P($G(^TMP(""PSJMR"",$J,1)),""^"",3)=X)"
^XMB(3.9,113,2,289,0)="""RTN"",""PSSJORDF"",36,0)"
^XMB(3.9,113,2,290,0)=" .  S MRNODE=$G(^PS(51.2,X,0))"
^XMB(3.9,113,2,291,0)="""RTN"",""PSSJORDF"",37,0)"
^XMB(3.9,113,2,292,0)=" .  I $P($G(MRNODE),""^"",4)'=1 Q"
^XMB(3.9,113,2,293,0)="""RTN"",""PSSJORDF"",38,0)"
^XMB(3.9,113,2,294,0)=" .  S MCT=MCT+1,^TMP(""PSJMR"",$J,MCT)=$P(MRNODE,U)_U_$P(MRNODE,U,3)_U_X_U_$P(MRNODE,U,2)_U_$S($P(MRNODE,U,6):1,1:0)"
^XMB(3.9,113,2,295,0)="""RTN"",""PSSJORDF"",39,0)"
^XMB(3.9,113,2,296,0)=" S X=0"
^XMB(3.9,113,2,297,0)="""RTN"",""PSSJORDF"",40,0)"
^XMB(3.9,113,2,298,0)=" ;F  S INS=$O(^PS(50.606,PSJDFNO,""INS"",INS)) Q:'INS  S X=X+1,^TMP(""PSJINS"",$J,X)=VERB_U_$G(^PS(50.606,PSJDFNO,""INS"",INS,0))"
^XMB(3.9,113,2,299,0)="""RTN"",""PSSJORDF"",41,0)"
^XMB(3.9,113,2,300,0)=" ;I '$D(^TMP(""PSJINS"",$J)),VERB]"""" S ^TMP(""PSJINS"",$J,1)=VERB"
^XMB(3.9,113,2,301,0)="""RTN"",""PSSJORDF"",42,0)"
^XMB(3.9,113,2,302,0)=" S X=0"
^XMB(3.9,113,2,303,0)="""RTN"",""PSSJORDF"",43,0)"
^XMB(3.9,113,2,304,0)=" I $D(^PS(50.606,PSJDFNO,""NOUN"")) F Z=0:0 S Z=$O(^PS(50.606,PSJDFNO,""NOUN"",Z)) Q:'Z  S X=X+1,^TMP(""PSJNOUN"",$J,X)=$P($G(^PS(50.606,PSJDFNO,""NOUN"",Z,0)),U)_U_$P($G(^PS(50.606,PSJDFNO,""MISC"")),U)_U_$P($G(^(""MISC"")),U,3)"
^XMB(3.9,113,2,305,0)="""RTN"",""PSSJORDF"",44,0)"
^XMB(3.9,113,2,306,0)=" Q"
^XMB(3.9,113,2,307,0)="""RTN"",""PSSJORDF"",45,0)"
^XMB(3.9,113,2,308,0)=" ;"
^XMB(3.9,113,2,309,0)="""RTN"",""PSSJORDF"",46,0)"
^XMB(3.9,113,2,310,0)="MEDROUTE ;* Return all med routes in the med routes file."
^XMB(3.9,113,2,311,0)="""RTN"",""PSSJORDF"",47,0)"
^XMB(3.9,113,2,312,0)=" S (MR,MCT)=0 K ^TMP(""PSJMR"",$J)"
^XMB(3.9,113,2,313,0)="""RTN"",""PSSJORDF"",48,0)"
^XMB(3.9,113,2,314,0)=" F  S MR=$O(^PS(51.2,MR)) Q:'MR  S MRNODE=^PS(51.2,MR,0) I $P(^PS(51.2,MR,0),""^"",4)=1 S MCT=MCT+1,^TMP(""PSJMR"",$J,MCT)=$P(MRNODE,U)_U_$P(MRNODE,U,3)_U_MR_U_$P(MRNODE,U,2)_U_$S($P(MRNODE,U,6):1,1:0)"
^XMB(3.9,113,2,315,0)="""RTN"",""PSSJORDF"",49,0)"
^XMB(3.9,113,2,316,0)=" Q"
^XMB(3.9,113,2,317,0)="""RTN"",""PSSJORDF"",50,0)"
^XMB(3.9,113,2,318,0)="NOD K ^TMP(""PSJMR"",$J)"
^XMB(3.9,113,2,319,0)="""RTN"",""PSSJORDF"",51,0)"
^XMB(3.9,113,2,320,0)=" S MR=+$P($G(^PS(50.7,+PSJORD,0)),""^"",6) I MR,$D(^PS(51.2,MR,0)),$P(^PS(51.2,MR,0),""^"",4)=1 S ^TMP(""PSJMR"",$J,1)=$P(^PS(51.2,MR,0),""^"")_U_$P(^(0),""^"",3)_U_MR_U_$P(^(0),""^"",2)_U_$S($P(^(0),""^"",6):1,1:0)_""^D"""
^XMB(3.9,113,2,321,0)="""RTN"",""PSSJORDF"",52,0)"
^XMB(3.9,113,2,322,0)=" Q"
^XMB(3.9,113,2,323,0)="""VER"")"
^XMB(3.9,113,2,324,0)="8.0^22.0"
^XMB(3.9,113,2,325,0)="""BLD"",5703,6)"
^XMB(3.9,113,2,326,0)="^101"
^XMB(3.9,113,2,327,0)="$END KID PSS*1.0*113"
^XMB(3.9,113,6,0)="^3.911A^2^2"
^XMB(3.9,113,6,1,0)="POSTMASTER"
^XMB(3.9,113,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,113,6,"B","POSTMASTER",1)=""
^XMB(3.9,113,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,114,0)="PSS-1_SEQ-102_PAT-92.KID^.5^3061008.015741^^^^K"
^XMB(3.9,114,.6)="3061008"
^XMB(3.9,114,1,0)="^3.91A^2^2"
^XMB(3.9,114,1,1,0)=".5^0^3061008.015741^^^^^^^3061008.015741"
^XMB(3.9,114,1,2,0)="1^0^3061008.022404^^^^^^^3061008.022404"
^XMB(3.9,114,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,114,1,"C",.5,1)=""
^XMB(3.9,114,1,"C",1,2)=""
^XMB(3.9,114,2,0)="^^935^935^3061008"
^XMB(3.9,114,2,1,0)="$TXT Released PSS*1*92 SEQ #102"
^XMB(3.9,114,2,2,0)="Extracted from mail message"
^XMB(3.9,114,2,3,0)="$END TXT"
^XMB(3.9,114,2,4,0)="$KID PSS*1.0*92"
^XMB(3.9,114,2,5,0)="**INSTALL NAME**"
^XMB(3.9,114,2,6,0)="PSS*1.0*92"
^XMB(3.9,114,2,7,0)="""BLD"",6038,0)"
^XMB(3.9,114,2,8,0)="PSS*1.0*92^PHARMACY DATA MANAGEMENT^0^3060310^y"
^XMB(3.9,114,2,9,0)="""BLD"",6038,1,0)"
^XMB(3.9,114,2,10,0)="^^57^57^3050812^"
^XMB(3.9,114,2,11,0)="""BLD"",6038,1,1,0)"
^XMB(3.9,114,2,12,0)="This Pharmacy Data Management (PDM) patch is part of the Patient Financial"
^XMB(3.9,114,2,13,0)="""BLD"",6038,1,2,0)"
^XMB(3.9,114,2,14,0)="Services System (PFSS) project. PFSS patches are being released on various"
^XMB(3.9,114,2,15,0)="""BLD"",6038,1,3,0)"
^XMB(3.9,114,2,16,0)="schedules. Some patch functionality will not be active until a new PFSS"
^XMB(3.9,114,2,17,0)="""BLD"",6038,1,4,0)"
^XMB(3.9,114,2,18,0)="switch is activated during final implementation. PFSS will initially be"
^XMB(3.9,114,2,19,0)="""BLD"",6038,1,5,0)"
^XMB(3.9,114,2,20,0)="implemented at select pilot sites ONLY."
^XMB(3.9,114,2,21,0)="""BLD"",6038,1,6,0)"
^XMB(3.9,114,2,22,0)=" "
^XMB(3.9,114,2,23,0)="""BLD"",6038,1,7,0)"
^XMB(3.9,114,2,24,0)="The purpose of the PFSS project is to prepare the Veterans Health"
^XMB(3.9,114,2,25,0)="""BLD"",6038,1,8,0)"
^XMB(3.9,114,2,26,0)="Information Systems and Technology Architecture (VistA) environment for"
^XMB(3.9,114,2,27,0)="""BLD"",6038,1,9,0)"
^XMB(3.9,114,2,28,0)="the implementation of a commercial off-the-shelf (COTS) billing"
^XMB(3.9,114,2,29,0)="""BLD"",6038,1,10,0)"
^XMB(3.9,114,2,30,0)="replacement system. The project consists of the implementation of the"
^XMB(3.9,114,2,31,0)="""BLD"",6038,1,11,0)"
^XMB(3.9,114,2,32,0)="billing replacement system, business process improvements, and"
^XMB(3.9,114,2,33,0)="""BLD"",6038,1,12,0)"
^XMB(3.9,114,2,34,0)="enhancements to VistA to support integration with the COTS billing"
^XMB(3.9,114,2,35,0)="""BLD"",6038,1,13,0)"
^XMB(3.9,114,2,36,0)="replacement system. Significant changes to VistA legacy systems and"
^XMB(3.9,114,2,37,0)="""BLD"",6038,1,14,0)"
^XMB(3.9,114,2,38,0)="ancillary packages are necessary."
^XMB(3.9,114,2,39,0)="""BLD"",6038,1,15,0)"
^XMB(3.9,114,2,40,0)=" "
^XMB(3.9,114,2,41,0)="""BLD"",6038,1,16,0)"
^XMB(3.9,114,2,42,0)="Some of the PFSS software components are not operational until the PFSS"
^XMB(3.9,114,2,43,0)="""BLD"",6038,1,17,0)"
^XMB(3.9,114,2,44,0)="On/Off Switch, distributed with patch IB*2*260, is set to ""ON"". The"
^XMB(3.9,114,2,45,0)="""BLD"",6038,1,18,0)"
^XMB(3.9,114,2,46,0)="ability for the local site to set the switch to ""ON  will be provided at"
^XMB(3.9,114,2,47,0)="""BLD"",6038,1,19,0)"
^XMB(3.9,114,2,48,0)="the appropriate time with the release of a subsequent Integrated Billing"
^XMB(3.9,114,2,49,0)="""BLD"",6038,1,20,0)"
^XMB(3.9,114,2,50,0)="patch."
^XMB(3.9,114,2,51,0)="""BLD"",6038,1,21,0)"
^XMB(3.9,114,2,52,0)=" "
^XMB(3.9,114,2,53,0)="""BLD"",6038,1,22,0)"
^XMB(3.9,114,2,54,0)="For more information about the PFSS project, review the documentation"
^XMB(3.9,114,2,55,0)="""BLD"",6038,1,23,0)"
^XMB(3.9,114,2,56,0)="accompanying this patch and refer to the following website:"
^XMB(3.9,114,2,57,0)="""BLD"",6038,1,24,0)"
^XMB(3.9,114,2,58,0)="http://vista.med.va.gov/billreplace/."
^XMB(3.9,114,2,59,0)="""BLD"",6038,1,25,0)"
^XMB(3.9,114,2,60,0)=" "
^XMB(3.9,114,2,61,0)="""BLD"",6038,1,26,0)"
^XMB(3.9,114,2,62,0)=" "
^XMB(3.9,114,2,63,0)="""BLD"",6038,1,27,0)"
^XMB(3.9,114,2,64,0)="Functional Description:"
^XMB(3.9,114,2,65,0)="""BLD"",6038,1,28,0)"
^XMB(3.9,114,2,66,0)="======================="
^XMB(3.9,114,2,67,0)="""BLD"",6038,1,29,0)"
^XMB(3.9,114,2,68,0)="The Charge Description Master (CDM) is an industry standard financial tool"
^XMB(3.9,114,2,69,0)="""BLD"",6038,1,30,0)"
^XMB(3.9,114,2,70,0)="common to all commercial billing systems and used in virtually every"
^XMB(3.9,114,2,71,0)="""BLD"",6038,1,31,0)"
^XMB(3.9,114,2,72,0)="private hospital. The CDM is a comprehensive listing of all services"
^XMB(3.9,114,2,73,0)="""BLD"",6038,1,32,0)"
^XMB(3.9,114,2,74,0)="performed, drugs supplied, or supplies provided in a particular hospital"
^XMB(3.9,114,2,75,0)="""BLD"",6038,1,33,0)"
^XMB(3.9,114,2,76,0)="along with the value of those services/drugs/items, or charge amounts."
^XMB(3.9,114,2,77,0)="""BLD"",6038,1,34,0)"
^XMB(3.9,114,2,78,0)="Each of these entries are represented by a Charge Code, and the Charge"
^XMB(3.9,114,2,79,0)="""BLD"",6038,1,35,0)"
^XMB(3.9,114,2,80,0)="Code is made up of a Department Code and Service Code. The Charge Code for"
^XMB(3.9,114,2,81,0)="""BLD"",6038,1,36,0)"
^XMB(3.9,114,2,82,0)="Pharmacy will be the department code 160 concatenated with the assigned"
^XMB(3.9,114,2,83,0)="""BLD"",6038,1,37,0)"
^XMB(3.9,114,2,84,0)="Service Code for the drug. The Department Code 160 will not be stored in"
^XMB(3.9,114,2,85,0)="""BLD"",6038,1,38,0)"
^XMB(3.9,114,2,86,0)="any files and the Service Code will be established/approved by a central"
^XMB(3.9,114,2,87,0)="""BLD"",6038,1,39,0)"
^XMB(3.9,114,2,88,0)="CDM Change Control Board (CCB). The implementation of the COTS billing"
^XMB(3.9,114,2,89,0)="""BLD"",6038,1,40,0)"
^XMB(3.9,114,2,90,0)="system requires the VA PRODUCT file (#50.68)/DRUG file (#50) to link the"
^XMB(3.9,114,2,91,0)="""BLD"",6038,1,41,0)"
^XMB(3.9,114,2,92,0)="service master Service Code to every Pharmacy prescription fill or refill."
^XMB(3.9,114,2,93,0)="""BLD"",6038,1,42,0)"
^XMB(3.9,114,2,94,0)="For drugs that are not associated with an entry in the VA PRODUCT file"
^XMB(3.9,114,2,95,0)="""BLD"",6038,1,43,0)"
^XMB(3.9,114,2,96,0)="(#50.68), the approved Service Code must be populated by the user."
^XMB(3.9,114,2,97,0)="""BLD"",6038,1,44,0)"
^XMB(3.9,114,2,98,0)=" "
^XMB(3.9,114,2,99,0)="""BLD"",6038,1,45,0)"
^XMB(3.9,114,2,100,0)=" "
^XMB(3.9,114,2,101,0)="""BLD"",6038,1,46,0)"
^XMB(3.9,114,2,102,0)="Technical Description:"
^XMB(3.9,114,2,103,0)="""BLD"",6038,1,47,0)"
^XMB(3.9,114,2,104,0)="======================"
^XMB(3.9,114,2,105,0)="""BLD"",6038,1,48,0)"
^XMB(3.9,114,2,106,0)="This PDM patch PSS*1*92 provides the following functionality needed to"
^XMB(3.9,114,2,107,0)="""BLD"",6038,1,49,0)"
^XMB(3.9,114,2,108,0)="support the PFSS project:"
^XMB(3.9,114,2,109,0)="""BLD"",6038,1,50,0)"
^XMB(3.9,114,2,110,0)=" "
^XMB(3.9,114,2,111,0)="""BLD"",6038,1,51,0)"
^XMB(3.9,114,2,112,0)="1. A new SERVICE CODE field (#400) was added to the DRUG file (#50)."
^XMB(3.9,114,2,113,0)="""BLD"",6038,1,52,0)"
^XMB(3.9,114,2,114,0)="2. The PSSCOMMON Input template was modified to accommodate the new"
^XMB(3.9,114,2,115,0)="""BLD"",6038,1,53,0)"
^XMB(3.9,114,2,116,0)="   SERVICE CODE field (#400) to be used with the DRUG ENTER/EDIT [PSS DRUG"
^XMB(3.9,114,2,117,0)="""BLD"",6038,1,54,0)"
^XMB(3.9,114,2,118,0)="   ENTER/EDIT] option for drugs that are not associated with an entry in"
^XMB(3.9,114,2,119,0)="""BLD"",6038,1,55,0)"
^XMB(3.9,114,2,120,0)="   the VA PRODUCT file (#50.68)."
^XMB(3.9,114,2,121,0)="""BLD"",6038,1,56,0)"
^XMB(3.9,114,2,122,0)="3. The Integration Agreement (IA) #4483 was modified to include the new"
^XMB(3.9,114,2,123,0)="""BLD"",6038,1,57,0)"
^XMB(3.9,114,2,124,0)="   SERVICE CODE field (#400)."
^XMB(3.9,114,2,125,0)="""BLD"",6038,4,0)"
^XMB(3.9,114,2,126,0)="^9.64PA^50^1"
^XMB(3.9,114,2,127,0)="""BLD"",6038,4,50,0)"
^XMB(3.9,114,2,128,0)="50"
^XMB(3.9,114,2,129,0)="""BLD"",6038,4,50,2,0)"
^XMB(3.9,114,2,130,0)="^9.641^50^1"
^XMB(3.9,114,2,131,0)="""BLD"",6038,4,50,2,50,0)"
^XMB(3.9,114,2,132,0)="DRUG  (File-top level)"
^XMB(3.9,114,2,133,0)="""BLD"",6038,4,50,2,50,1,0)"
^XMB(3.9,114,2,134,0)="^9.6411^400^1"
^XMB(3.9,114,2,135,0)="""BLD"",6038,4,50,2,50,1,400,0)"
^XMB(3.9,114,2,136,0)="SERVICE CODE"
^XMB(3.9,114,2,137,0)="""BLD"",6038,4,50,222)"
^XMB(3.9,114,2,138,0)="y^n^p^^^^n^^n"
^XMB(3.9,114,2,139,0)="""BLD"",6038,4,50,224)"
^XMB(3.9,114,2,140,0)=""
^XMB(3.9,114,2,141,0)="""BLD"",6038,4,""APDD"",50,50)"
^XMB(3.9,114,2,142,0)=""
^XMB(3.9,114,2,143,0)="""BLD"",6038,4,""APDD"",50,50,400)"
^XMB(3.9,114,2,144,0)=""
^XMB(3.9,114,2,145,0)="""BLD"",6038,4,""B"",50,50)"
^XMB(3.9,114,2,146,0)=""
^XMB(3.9,114,2,147,0)="""BLD"",6038,6)"
^XMB(3.9,114,2,148,0)="1^"
^XMB(3.9,114,2,149,0)="""BLD"",6038,""INID"")"
^XMB(3.9,114,2,150,0)="^"
^XMB(3.9,114,2,151,0)="""BLD"",6038,""INIT"")"
^XMB(3.9,114,2,152,0)=""
^XMB(3.9,114,2,153,0)="""BLD"",6038,""KRN"",0)"
^XMB(3.9,114,2,154,0)="^9.67PA^8989.52^19"
^XMB(3.9,114,2,155,0)="""BLD"",6038,""KRN"",.4,0)"
^XMB(3.9,114,2,156,0)=".4"
^XMB(3.9,114,2,157,0)="""BLD"",6038,""KRN"",.401,0)"
^XMB(3.9,114,2,158,0)=".401"
^XMB(3.9,114,2,159,0)="""BLD"",6038,""KRN"",.402,0)"
^XMB(3.9,114,2,160,0)=".402"
^XMB(3.9,114,2,161,0)="""BLD"",6038,""KRN"",.402,""NM"",0)"
^XMB(3.9,114,2,162,0)="^9.68A^1^1"
^XMB(3.9,114,2,163,0)="""BLD"",6038,""KRN"",.402,""NM"",1,0)"
^XMB(3.9,114,2,164,0)="PSSCOMMON    FILE #50^50^0"
^XMB(3.9,114,2,165,0)="""BLD"",6038,""KRN"",.402,""NM"",""B"",""PSSCOMMON    FILE #50"",1)"
^XMB(3.9,114,2,166,0)=""
^XMB(3.9,114,2,167,0)="""BLD"",6038,""KRN"",.403,0)"
^XMB(3.9,114,2,168,0)=".403"
^XMB(3.9,114,2,169,0)="""BLD"",6038,""KRN"",.5,0)"
^XMB(3.9,114,2,170,0)=".5"
^XMB(3.9,114,2,171,0)="""BLD"",6038,""KRN"",.84,0)"
^XMB(3.9,114,2,172,0)=".84"
^XMB(3.9,114,2,173,0)="""BLD"",6038,""KRN"",3.6,0)"
^XMB(3.9,114,2,174,0)="3.6"
^XMB(3.9,114,2,175,0)="""BLD"",6038,""KRN"",3.8,0)"
^XMB(3.9,114,2,176,0)="3.8"
^XMB(3.9,114,2,177,0)="""BLD"",6038,""KRN"",9.2,0)"
^XMB(3.9,114,2,178,0)="9.2"
^XMB(3.9,114,2,179,0)="""BLD"",6038,""KRN"",9.8,0)"
^XMB(3.9,114,2,180,0)="9.8"
^XMB(3.9,114,2,181,0)="""BLD"",6038,""KRN"",9.8,""NM"",0)"
^XMB(3.9,114,2,182,0)="^9.68A^2^2"
^XMB(3.9,114,2,183,0)="""BLD"",6038,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,114,2,184,0)="PSS50A^^0^B30585085"
^XMB(3.9,114,2,185,0)="""BLD"",6038,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,114,2,186,0)="PSS50DAT^^0^B33215766"
^XMB(3.9,114,2,187,0)="""BLD"",6038,""KRN"",9.8,""NM"",""B"",""PSS50A"",1)"
^XMB(3.9,114,2,188,0)=""
^XMB(3.9,114,2,189,0)="""BLD"",6038,""KRN"",9.8,""NM"",""B"",""PSS50DAT"",2)"
^XMB(3.9,114,2,190,0)=""
^XMB(3.9,114,2,191,0)="""BLD"",6038,""KRN"",19,0)"
^XMB(3.9,114,2,192,0)="19"
^XMB(3.9,114,2,193,0)="""BLD"",6038,""KRN"",19,""NM"",0)"
^XMB(3.9,114,2,194,0)="^9.68A^^0"
^XMB(3.9,114,2,195,0)="""BLD"",6038,""KRN"",19.1,0)"
^XMB(3.9,114,2,196,0)="19.1"
^XMB(3.9,114,2,197,0)="""BLD"",6038,""KRN"",19.1,""NM"",0)"
^XMB(3.9,114,2,198,0)="^9.68A^^"
^XMB(3.9,114,2,199,0)="""BLD"",6038,""KRN"",101,0)"
^XMB(3.9,114,2,200,0)="101"
^XMB(3.9,114,2,201,0)="""BLD"",6038,""KRN"",101,""NM"",0)"
^XMB(3.9,114,2,202,0)="^9.68A^^"
^XMB(3.9,114,2,203,0)="""BLD"",6038,""KRN"",409.61,0)"
^XMB(3.9,114,2,204,0)="409.61"
^XMB(3.9,114,2,205,0)="""BLD"",6038,""KRN"",409.61,""NM"",0)"
^XMB(3.9,114,2,206,0)="^9.68A^^"
^XMB(3.9,114,2,207,0)="""BLD"",6038,""KRN"",771,0)"
^XMB(3.9,114,2,208,0)="771"
^XMB(3.9,114,2,209,0)="""BLD"",6038,""KRN"",870,0)"
^XMB(3.9,114,2,210,0)="870"
^XMB(3.9,114,2,211,0)="""BLD"",6038,""KRN"",8989.51,0)"
^XMB(3.9,114,2,212,0)="8989.51"
^XMB(3.9,114,2,213,0)="""BLD"",6038,""KRN"",8989.52,0)"
^XMB(3.9,114,2,214,0)="8989.52"
^XMB(3.9,114,2,215,0)="""BLD"",6038,""KRN"",8994,0)"
^XMB(3.9,114,2,216,0)="8994"
^XMB(3.9,114,2,217,0)="""BLD"",6038,""KRN"",""B"",.4,.4)"
^XMB(3.9,114,2,218,0)=""
^XMB(3.9,114,2,219,0)="""BLD"",6038,""KRN"",""B"",.401,.401)"
^XMB(3.9,114,2,220,0)=""
^XMB(3.9,114,2,221,0)="""BLD"",6038,""KRN"",""B"",.402,.402)"
^XMB(3.9,114,2,222,0)=""
^XMB(3.9,114,2,223,0)="""BLD"",6038,""KRN"",""B"",.403,.403)"
^XMB(3.9,114,2,224,0)=""
^XMB(3.9,114,2,225,0)="""BLD"",6038,""KRN"",""B"",.5,.5)"
^XMB(3.9,114,2,226,0)=""
^XMB(3.9,114,2,227,0)="""BLD"",6038,""KRN"",""B"",.84,.84)"
^XMB(3.9,114,2,228,0)=""
^XMB(3.9,114,2,229,0)="""BLD"",6038,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,114,2,230,0)=""
^XMB(3.9,114,2,231,0)="""BLD"",6038,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,114,2,232,0)=""
^XMB(3.9,114,2,233,0)="""BLD"",6038,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,114,2,234,0)=""
^XMB(3.9,114,2,235,0)="""BLD"",6038,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,114,2,236,0)=""
^XMB(3.9,114,2,237,0)="""BLD"",6038,""KRN"",""B"",19,19)"
^XMB(3.9,114,2,238,0)=""
^XMB(3.9,114,2,239,0)="""BLD"",6038,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,114,2,240,0)=""
^XMB(3.9,114,2,241,0)="""BLD"",6038,""KRN"",""B"",101,101)"
^XMB(3.9,114,2,242,0)=""
^XMB(3.9,114,2,243,0)="""BLD"",6038,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,114,2,244,0)=""
^XMB(3.9,114,2,245,0)="""BLD"",6038,""KRN"",""B"",771,771)"
^XMB(3.9,114,2,246,0)=""
^XMB(3.9,114,2,247,0)="""BLD"",6038,""KRN"",""B"",870,870)"
^XMB(3.9,114,2,248,0)=""
^XMB(3.9,114,2,249,0)="""BLD"",6038,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,114,2,250,0)=""
^XMB(3.9,114,2,251,0)="""BLD"",6038,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,114,2,252,0)=""
^XMB(3.9,114,2,253,0)="""BLD"",6038,""KRN"",""B"",8994,8994)"
^XMB(3.9,114,2,254,0)=""
^XMB(3.9,114,2,255,0)="""BLD"",6038,""QUES"",0)"
^XMB(3.9,114,2,256,0)="^9.62^^"
^XMB(3.9,114,2,257,0)="""BLD"",6038,""REQB"",0)"
^XMB(3.9,114,2,258,0)="^9.611^2^2"
^XMB(3.9,114,2,259,0)="""BLD"",6038,""REQB"",1,0)"
^XMB(3.9,114,2,260,0)="PSS*1.0*91^2"
^XMB(3.9,114,2,261,0)="""BLD"",6038,""REQB"",2,0)"
^XMB(3.9,114,2,262,0)="IB*2.0*260^2"
^XMB(3.9,114,2,263,0)="""BLD"",6038,""REQB"",""B"",""IB*2.0*260"",2)"
^XMB(3.9,114,2,264,0)=""
^XMB(3.9,114,2,265,0)="""BLD"",6038,""REQB"",""B"",""PSS*1.0*91"",1)"
^XMB(3.9,114,2,266,0)=""
^XMB(3.9,114,2,267,0)="""FIA"",50)"
^XMB(3.9,114,2,268,0)="DRUG"
^XMB(3.9,114,2,269,0)="""FIA"",50,0)"
^XMB(3.9,114,2,270,0)="^PSDRUG("
^XMB(3.9,114,2,271,0)="""FIA"",50,0,0)"
^XMB(3.9,114,2,272,0)="50I"
^XMB(3.9,114,2,273,0)="""FIA"",50,0,1)"
^XMB(3.9,114,2,274,0)="y^n^p^^^^n^^n"
^XMB(3.9,114,2,275,0)="""FIA"",50,0,10)"
^XMB(3.9,114,2,276,0)=""
^XMB(3.9,114,2,277,0)="""FIA"",50,0,11)"
^XMB(3.9,114,2,278,0)=""
^XMB(3.9,114,2,279,0)="""FIA"",50,0,""RLRO"")"
^XMB(3.9,114,2,280,0)=""
^XMB(3.9,114,2,281,0)="""FIA"",50,0,""VR"")"
^XMB(3.9,114,2,282,0)="1.0^PSS"
^XMB(3.9,114,2,283,0)="""FIA"",50,50)"
^XMB(3.9,114,2,284,0)="1"
^XMB(3.9,114,2,285,0)="""FIA"",50,50,400)"
^XMB(3.9,114,2,286,0)=""
^XMB(3.9,114,2,287,0)="""KRN"",.402,2196,-1)"
^XMB(3.9,114,2,288,0)="0^1"
^XMB(3.9,114,2,289,0)="""KRN"",.402,2196,0)"
^XMB(3.9,114,2,290,0)="PSSCOMMON^3050518.1137^@^50^^@^3060309"
^XMB(3.9,114,2,291,0)="""KRN"",.402,2196,""DIAB"",1,1,50.037,0)"
^XMB(3.9,114,2,292,0)="ALL"
^XMB(3.9,114,2,293,0)="""KRN"",.402,2196,""DIAB"",1,1,50.065,0)"
^XMB(3.9,114,2,294,0)="ALL"
^XMB(3.9,114,2,295,0)="""KRN"",.402,2196,""DR"",1,50)"
^XMB(3.9,114,2,296,0)=".01;2;D PKIND^PSSDDUT2;3;D PKIND^PSSDDUT2;W !!,""NATIONAL FORMULARY INDICATOR: "" W:$P($G(^PSDRUG(DA,""ND"")),""^"",11)=1 ""YES"" W:$P($G(^PSDRUG(DA,""ND"")),""^"",11)="""" ""Not Matched To NDF"" W:$P($G(^PSDRUG(DA,""ND"")),""^"",11)=0 ""NO"";51;52;37;"
^XMB(3.9,114,2,297,0)="""KRN"",.402,2196,""DR"",1,50,1)"
^XMB(3.9,114,2,298,0)="65;9;101;102;6;31;100;N ND S ND=$G(^PSDRUG(DA,""ND"")) I +ND,+$P(ND,""^"",3),+$P($G(^PSNDF(50.68,+$P(ND,""^"",3),""PFS"")),""^"") S Y=""@4"";W !!,""If you are planning to match to a NDF entry later or have no plan of using"";"
^XMB(3.9,114,2,299,0)="""KRN"",.402,2196,""DR"",1,50,2)"
^XMB(3.9,114,2,300,0)="W !,""the external billing function, you may skip the Service Code entry."";400;@4;S PSONEWW=$S($P($G(^PS(59.7,1,10)),""^"",9)=""N"":1,1:0) W !!,""WARNING LABEL SOURCE is ""_$S(PSONEWW:""'NEW'."",1:""not 'NEW'."");"
^XMB(3.9,114,2,301,0)="""KRN"",.402,2196,""DR"",1,50,3)"
^XMB(3.9,114,2,302,0)="I PSONEWW W !,""The following WARNING LABEL may continue to be used for a limited time for some external interfaces."";I 'PSONEWW W !,""WARNING LABEL will be used until the WARNING LABEL SOURCE is set to 'NEW'."";8;@5;"
^XMB(3.9,114,2,303,0)="""KRN"",.402,2196,""DR"",1,50,4)"
^XMB(3.9,114,2,304,0)="D WARN^PSSWRNB S:$G(WARNEDIT) Y=""@10"" I '$G(WARNEDIT) S Y=""@15"";@10;8.1;S Y=""@5"";@15;D GENDER2^PSSWRNA I GENDER="""" S Y=""@20"";8.2;@20;12;13;14.5;15;"
^XMB(3.9,114,2,305,0)="""KRN"",.402,2196,""DR"",2,50.037)"
^XMB(3.9,114,2,306,0)=".01"
^XMB(3.9,114,2,307,0)="""KRN"",.402,2196,""DR"",2,50.065)"
^XMB(3.9,114,2,308,0)=".01"
^XMB(3.9,114,2,309,0)="""KRN"",.402,2196,""DR"",2,50.1)"
^XMB(3.9,114,2,310,0)=".01;1;2;"
^XMB(3.9,114,2,311,0)="""MBREQ"")"
^XMB(3.9,114,2,312,0)="0"
^XMB(3.9,114,2,313,0)="""ORD"",7,.402)"
^XMB(3.9,114,2,314,0)=".402;7;;;EDEOUT^DIFROMSO(.402,DA,"""",XPDA);FPRE^DIFROMSI(.402,"""",XPDA);EPRE^DIFROMSI(.402,DA,$E(""N"",$G(XPDNEW)),XPDA,"""",OLDA);;EPOST^DIFROMSI(.402,DA,"""",XPDA);DEL^DIFROMSK(.402,"""",%)"
^XMB(3.9,114,2,315,0)="""ORD"",7,.402,0)"
^XMB(3.9,114,2,316,0)="INPUT TEMPLATE"
^XMB(3.9,114,2,317,0)="""PKG"",488,-1)"
^XMB(3.9,114,2,318,0)="1^1"
^XMB(3.9,114,2,319,0)="""PKG"",488,0)"
^XMB(3.9,114,2,320,0)="PHARMACY DATA MANAGEMENT^PSS^Maintenance of Pharmacy files."
^XMB(3.9,114,2,321,0)="""PKG"",488,20,0)"
^XMB(3.9,114,2,322,0)="^9.402P^^"
^XMB(3.9,114,2,323,0)="""PKG"",488,22,0)"
^XMB(3.9,114,2,324,0)="^9.49I^1^1"
^XMB(3.9,114,2,325,0)="""PKG"",488,22,1,0)"
^XMB(3.9,114,2,326,0)="1.0^2970930^3000316^66481"
^XMB(3.9,114,2,327,0)="""PKG"",488,22,1,""PAH"",1,0)"
^XMB(3.9,114,2,328,0)="92^3060310^123456821"
^XMB(3.9,114,2,329,0)="""PKG"",488,22,1,""PAH"",1,1,0)"
^XMB(3.9,114,2,330,0)="^^57^57^3060310"
^XMB(3.9,114,2,331,0)="""PKG"",488,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,114,2,332,0)="This Pharmacy Data Management (PDM) patch is part of the Patient Financial"
^XMB(3.9,114,2,333,0)="""PKG"",488,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,114,2,334,0)="Services System (PFSS) project. PFSS patches are being released on various"
^XMB(3.9,114,2,335,0)="""PKG"",488,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,114,2,336,0)="schedules. Some patch functionality will not be active until a new PFSS"
^XMB(3.9,114,2,337,0)="""PKG"",488,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,114,2,338,0)="switch is activated during final implementation. PFSS will initially be"
^XMB(3.9,114,2,339,0)="""PKG"",488,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,114,2,340,0)="implemented at select pilot sites ONLY."
^XMB(3.9,114,2,341,0)="""PKG"",488,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,114,2,342,0)=" "
^XMB(3.9,114,2,343,0)="""PKG"",488,22,1,""PAH"",1,1,7,0)"
^XMB(3.9,114,2,344,0)="The purpose of the PFSS project is to prepare the Veterans Health"
^XMB(3.9,114,2,345,0)="""PKG"",488,22,1,""PAH"",1,1,8,0)"
^XMB(3.9,114,2,346,0)="Information Systems and Technology Architecture (VistA) environment for"
^XMB(3.9,114,2,347,0)="""PKG"",488,22,1,""PAH"",1,1,9,0)"
^XMB(3.9,114,2,348,0)="the implementation of a commercial off-the-shelf (COTS) billing"
^XMB(3.9,114,2,349,0)="""PKG"",488,22,1,""PAH"",1,1,10,0)"
^XMB(3.9,114,2,350,0)="replacement system. The project consists of the implementation of the"
^XMB(3.9,114,2,351,0)="""PKG"",488,22,1,""PAH"",1,1,11,0)"
^XMB(3.9,114,2,352,0)="billing replacement system, business process improvements, and"
^XMB(3.9,114,2,353,0)="""PKG"",488,22,1,""PAH"",1,1,12,0)"
^XMB(3.9,114,2,354,0)="enhancements to VistA to support integration with the COTS billing"
^XMB(3.9,114,2,355,0)="""PKG"",488,22,1,""PAH"",1,1,13,0)"
^XMB(3.9,114,2,356,0)="replacement system. Significant changes to VistA legacy systems and"
^XMB(3.9,114,2,357,0)="""PKG"",488,22,1,""PAH"",1,1,14,0)"
^XMB(3.9,114,2,358,0)="ancillary packages are necessary."
^XMB(3.9,114,2,359,0)="""PKG"",488,22,1,""PAH"",1,1,15,0)"
^XMB(3.9,114,2,360,0)=" "
^XMB(3.9,114,2,361,0)="""PKG"",488,22,1,""PAH"",1,1,16,0)"
^XMB(3.9,114,2,362,0)="Some of the PFSS software components are not operational until the PFSS"
^XMB(3.9,114,2,363,0)="""PKG"",488,22,1,""PAH"",1,1,17,0)"
^XMB(3.9,114,2,364,0)="On/Off Switch, distributed with patch IB*2*260, is set to ""ON"". The"
^XMB(3.9,114,2,365,0)="""PKG"",488,22,1,""PAH"",1,1,18,0)"
^XMB(3.9,114,2,366,0)="ability for the local site to set the switch to ""ON  will be provided at"
^XMB(3.9,114,2,367,0)="""PKG"",488,22,1,""PAH"",1,1,19,0)"
^XMB(3.9,114,2,368,0)="the appropriate time with the release of a subsequent Integrated Billing"
^XMB(3.9,114,2,369,0)="""PKG"",488,22,1,""PAH"",1,1,20,0)"
^XMB(3.9,114,2,370,0)="patch."
^XMB(3.9,114,2,371,0)="""PKG"",488,22,1,""PAH"",1,1,21,0)"
^XMB(3.9,114,2,372,0)=" "
^XMB(3.9,114,2,373,0)="""PKG"",488,22,1,""PAH"",1,1,22,0)"
^XMB(3.9,114,2,374,0)="For more information about the PFSS project, review the documentation"
^XMB(3.9,114,2,375,0)="""PKG"",488,22,1,""PAH"",1,1,23,0)"
^XMB(3.9,114,2,376,0)="accompanying this patch and refer to the following website:"
^XMB(3.9,114,2,377,0)="""PKG"",488,22,1,""PAH"",1,1,24,0)"
^XMB(3.9,114,2,378,0)="http://vista.med.va.gov/billreplace/."
^XMB(3.9,114,2,379,0)="""PKG"",488,22,1,""PAH"",1,1,25,0)"
^XMB(3.9,114,2,380,0)=" "
^XMB(3.9,114,2,381,0)="""PKG"",488,22,1,""PAH"",1,1,26,0)"
^XMB(3.9,114,2,382,0)=" "
^XMB(3.9,114,2,383,0)="""PKG"",488,22,1,""PAH"",1,1,27,0)"
^XMB(3.9,114,2,384,0)="Functional Description:"
^XMB(3.9,114,2,385,0)="""PKG"",488,22,1,""PAH"",1,1,28,0)"
^XMB(3.9,114,2,386,0)="======================="
^XMB(3.9,114,2,387,0)="""PKG"",488,22,1,""PAH"",1,1,29,0)"
^XMB(3.9,114,2,388,0)="The Charge Description Master (CDM) is an industry standard financial tool"
^XMB(3.9,114,2,389,0)="""PKG"",488,22,1,""PAH"",1,1,30,0)"
^XMB(3.9,114,2,390,0)="common to all commercial billing systems and used in virtually every"
^XMB(3.9,114,2,391,0)="""PKG"",488,22,1,""PAH"",1,1,31,0)"
^XMB(3.9,114,2,392,0)="private hospital. The CDM is a comprehensive listing of all services"
^XMB(3.9,114,2,393,0)="""PKG"",488,22,1,""PAH"",1,1,32,0)"
^XMB(3.9,114,2,394,0)="performed, drugs supplied, or supplies provided in a particular hospital"
^XMB(3.9,114,2,395,0)="""PKG"",488,22,1,""PAH"",1,1,33,0)"
^XMB(3.9,114,2,396,0)="along with the value of those services/drugs/items, or charge amounts."
^XMB(3.9,114,2,397,0)="""PKG"",488,22,1,""PAH"",1,1,34,0)"
^XMB(3.9,114,2,398,0)="Each of these entries are represented by a Charge Code, and the Charge"
^XMB(3.9,114,2,399,0)="""PKG"",488,22,1,""PAH"",1,1,35,0)"
^XMB(3.9,114,2,400,0)="Code is made up of a Department Code and Service Code. The Charge Code for"
^XMB(3.9,114,2,401,0)="""PKG"",488,22,1,""PAH"",1,1,36,0)"
^XMB(3.9,114,2,402,0)="Pharmacy will be the department code 160 concatenated with the assigned"
^XMB(3.9,114,2,403,0)="""PKG"",488,22,1,""PAH"",1,1,37,0)"
^XMB(3.9,114,2,404,0)="Service Code for the drug. The Department Code 160 will not be stored in"
^XMB(3.9,114,2,405,0)="""PKG"",488,22,1,""PAH"",1,1,38,0)"
^XMB(3.9,114,2,406,0)="any files and the Service Code will be established/approved by a central"
^XMB(3.9,114,2,407,0)="""PKG"",488,22,1,""PAH"",1,1,39,0)"
^XMB(3.9,114,2,408,0)="CDM Change Control Board (CCB). The implementation of the COTS billing"
^XMB(3.9,114,2,409,0)="""PKG"",488,22,1,""PAH"",1,1,40,0)"
^XMB(3.9,114,2,410,0)="system requires the VA PRODUCT file (#50.68)/DRUG file (#50) to link the"
^XMB(3.9,114,2,411,0)="""PKG"",488,22,1,""PAH"",1,1,41,0)"
^XMB(3.9,114,2,412,0)="service master Service Code to every Pharmacy prescription fill or refill."
^XMB(3.9,114,2,413,0)="""PKG"",488,22,1,""PAH"",1,1,42,0)"
^XMB(3.9,114,2,414,0)="For drugs that are not associated with an entry in the VA PRODUCT file"
^XMB(3.9,114,2,415,0)="""PKG"",488,22,1,""PAH"",1,1,43,0)"
^XMB(3.9,114,2,416,0)="(#50.68), the approved Service Code must be populated by the user."
^XMB(3.9,114,2,417,0)="""PKG"",488,22,1,""PAH"",1,1,44,0)"
^XMB(3.9,114,2,418,0)=" "
^XMB(3.9,114,2,419,0)="""PKG"",488,22,1,""PAH"",1,1,45,0)"
^XMB(3.9,114,2,420,0)=" "
^XMB(3.9,114,2,421,0)="""PKG"",488,22,1,""PAH"",1,1,46,0)"
^XMB(3.9,114,2,422,0)="Technical Description:"
^XMB(3.9,114,2,423,0)="""PKG"",488,22,1,""PAH"",1,1,47,0)"
^XMB(3.9,114,2,424,0)="======================"
^XMB(3.9,114,2,425,0)="""PKG"",488,22,1,""PAH"",1,1,48,0)"
^XMB(3.9,114,2,426,0)="This PDM patch PSS*1*92 provides the following functionality needed to"
^XMB(3.9,114,2,427,0)="""PKG"",488,22,1,""PAH"",1,1,49,0)"
^XMB(3.9,114,2,428,0)="support the PFSS project:"
^XMB(3.9,114,2,429,0)="""PKG"",488,22,1,""PAH"",1,1,50,0)"
^XMB(3.9,114,2,430,0)=" "
^XMB(3.9,114,2,431,0)="""PKG"",488,22,1,""PAH"",1,1,51,0)"
^XMB(3.9,114,2,432,0)="1. A new SERVICE CODE field (#400) was added to the DRUG file (#50)."
^XMB(3.9,114,2,433,0)="""PKG"",488,22,1,""PAH"",1,1,52,0)"
^XMB(3.9,114,2,434,0)="2. The PSSCOMMON Input template was modified to accommodate the new"
^XMB(3.9,114,2,435,0)="""PKG"",488,22,1,""PAH"",1,1,53,0)"
^XMB(3.9,114,2,436,0)="   SERVICE CODE field (#400) to be used with the DRUG ENTER/EDIT [PSS DRUG"
^XMB(3.9,114,2,437,0)="""PKG"",488,22,1,""PAH"",1,1,54,0)"
^XMB(3.9,114,2,438,0)="   ENTER/EDIT] option for drugs that are not associated with an entry in"
^XMB(3.9,114,2,439,0)="""PKG"",488,22,1,""PAH"",1,1,55,0)"
^XMB(3.9,114,2,440,0)="   the VA PRODUCT file (#50.68)."
^XMB(3.9,114,2,441,0)="""PKG"",488,22,1,""PAH"",1,1,56,0)"
^XMB(3.9,114,2,442,0)="3. The Integration Agreement (IA) #4483 was modified to include the new"
^XMB(3.9,114,2,443,0)="""PKG"",488,22,1,""PAH"",1,1,57,0)"
^XMB(3.9,114,2,444,0)="   SERVICE CODE field (#400)."
^XMB(3.9,114,2,445,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,114,2,446,0)="Y"
^XMB(3.9,114,2,447,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,114,2,448,0)="^D REP^XPDH"
^XMB(3.9,114,2,449,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,114,2,450,0)="Shall I write over your |FLAG| File"
^XMB(3.9,114,2,451,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,114,2,452,0)="YES"
^XMB(3.9,114,2,453,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,114,2,454,0)="D XPF1^XPDIQ"
^XMB(3.9,114,2,455,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,114,2,456,0)="Y"
^XMB(3.9,114,2,457,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,114,2,458,0)="^D DTA^XPDH"
^XMB(3.9,114,2,459,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,114,2,460,0)="Want my data |FLAG| yours"
^XMB(3.9,114,2,461,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,114,2,462,0)="YES"
^XMB(3.9,114,2,463,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,114,2,464,0)="D XPF2^XPDIQ"
^XMB(3.9,114,2,465,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,114,2,466,0)="YO"
^XMB(3.9,114,2,467,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,114,2,468,0)="^D INHIBIT^XPDH"
^XMB(3.9,114,2,469,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,114,2,470,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,114,2,471,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,114,2,472,0)="YES"
^XMB(3.9,114,2,473,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,114,2,474,0)="D XPI1^XPDIQ"
^XMB(3.9,114,2,475,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,114,2,476,0)="PO^VA(200,:EM"
^XMB(3.9,114,2,477,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,114,2,478,0)="^D MG^XPDH"
^XMB(3.9,114,2,479,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,114,2,480,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,114,2,481,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,114,2,482,0)=""
^XMB(3.9,114,2,483,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,114,2,484,0)="D XPM1^XPDIQ"
^XMB(3.9,114,2,485,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,114,2,486,0)="Y"
^XMB(3.9,114,2,487,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,114,2,488,0)="^D MENU^XPDH"
^XMB(3.9,114,2,489,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,114,2,490,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,114,2,491,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,114,2,492,0)="YES"
^XMB(3.9,114,2,493,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,114,2,494,0)="D XPO1^XPDIQ"
^XMB(3.9,114,2,495,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,114,2,496,0)="Y"
^XMB(3.9,114,2,497,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,114,2,498,0)="^D OPT^XPDH"
^XMB(3.9,114,2,499,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,114,2,500,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,114,2,501,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,114,2,502,0)="YES"
^XMB(3.9,114,2,503,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,114,2,504,0)="D XPZ1^XPDIQ"
^XMB(3.9,114,2,505,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,114,2,506,0)="Y"
^XMB(3.9,114,2,507,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,114,2,508,0)="^D RTN^XPDH"
^XMB(3.9,114,2,509,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,114,2,510,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,114,2,511,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,114,2,512,0)="NO"
^XMB(3.9,114,2,513,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,114,2,514,0)="D XPZ2^XPDIQ"
^XMB(3.9,114,2,515,0)="""RTN"")"
^XMB(3.9,114,2,516,0)="2"
^XMB(3.9,114,2,517,0)="""RTN"",""PSS50A"")"
^XMB(3.9,114,2,518,0)="0^1^B30585085^B28870400"
^XMB(3.9,114,2,519,0)="""RTN"",""PSS50A"",1,0)"
^XMB(3.9,114,2,520,0)="PSS50A ;BIR/LDT - CONTINUATION OF API FOR INFORMATION FROM FILE 50 ;5 Sep 03"
^XMB(3.9,114,2,521,0)="""RTN"",""PSS50A"",2,0)"
^XMB(3.9,114,2,522,0)=" ;;1.0;PHARMACY DATA MANAGEMENT;**85,91,92**;9/30/97"
^XMB(3.9,114,2,523,0)="""RTN"",""PSS50A"",3,0)"
^XMB(3.9,114,2,524,0)=" ;External reference to PS(50.605 supported by DBIA 2138"
^XMB(3.9,114,2,525,0)="""RTN"",""PSS50A"",4,0)"
^XMB(3.9,114,2,526,0)=" ;"
^XMB(3.9,114,2,527,0)="""RTN"",""PSS50A"",5,0)"
^XMB(3.9,114,2,528,0)="SETSCRN ;Set Screen for inactive Drugs"
^XMB(3.9,114,2,529,0)="""RTN"",""PSS50A"",6,0)"
^XMB(3.9,114,2,530,0)=" ;Naked reference below refers to ^PSDRUG(+Y,""I"")"
^XMB(3.9,114,2,531,0)="""RTN"",""PSS50A"",7,0)"
^XMB(3.9,114,2,532,0)=" I +$G(PSSFL)>0 S SCR(""S"")=""S PSS5ND=$P($G(^(""""I"""")),""""^"""") I PSS5ND=""""""""!(PSS5ND>PSSFL)"""
^XMB(3.9,114,2,533,0)="""RTN"",""PSS50A"",8,0)"
^XMB(3.9,114,2,534,0)=" I $G(PSSRTOI)=1 D"
^XMB(3.9,114,2,535,0)="""RTN"",""PSS50A"",9,0)"
^XMB(3.9,114,2,536,0)=" .;Naked reference below refers to ^PSDRUG(+Y,2)"
^XMB(3.9,114,2,537,0)="""RTN"",""PSS50A"",10,0)"
^XMB(3.9,114,2,538,0)=" .I SCR(""S"")]"""" S SCR(""S"")=SCR(""S"")_"" I $P($G(^(2)),""""^"""")"" Q"
^XMB(3.9,114,2,539,0)="""RTN"",""PSS50A"",11,0)"
^XMB(3.9,114,2,540,0)=" .;Naked reference below refers to ^PSDRUG(+Y,2)"
^XMB(3.9,114,2,541,0)="""RTN"",""PSS50A"",12,0)"
^XMB(3.9,114,2,542,0)=" .S SCR(""S"")=""I $P($G(^(2)),""""^"""")"""
^XMB(3.9,114,2,543,0)="""RTN"",""PSS50A"",13,0)"
^XMB(3.9,114,2,544,0)=" I $G(PSSPK)]"""" D"
^XMB(3.9,114,2,545,0)="""RTN"",""PSS50A"",14,0)"
^XMB(3.9,114,2,546,0)=" .;Naked reference below refers to ^PSDRUG(+Y,2)"
^XMB(3.9,114,2,547,0)="""RTN"",""PSS50A"",15,0)"
^XMB(3.9,114,2,548,0)=" .I SCR(""S"")]"""" S SCR(""S"")=SCR(""S"")_"" S PSSZ3=0 F PSSZ4=1:1:$L(PSSPK) Q:PSSZ3  I $P($G(^(2)),""""^"""",3)[$E(PSSPK,PSSZ4) S PSSZ3=1"" Q"
^XMB(3.9,114,2,549,0)="""RTN"",""PSS50A"",16,0)"
^XMB(3.9,114,2,550,0)=" .;Naked reference below refers to ^PSDRUG(+Y,2)"
^XMB(3.9,114,2,551,0)="""RTN"",""PSS50A"",17,0)"
^XMB(3.9,114,2,552,0)=" .S SCR(""S"")=""S PSSZ3=0 F PSSZ4=1:1:$L(PSSPK) Q:PSSZ3  I $P($G(^(2)),""""^"""",3)[$E(PSSPK,PSSZ4) S PSSZ3=1"""
^XMB(3.9,114,2,553,0)="""RTN"",""PSS50A"",18,0)"
^XMB(3.9,114,2,554,0)=" ;I $G(PSSPK)]"""" S SCR(""S"")=$S(SCR(""S"")]"""":SCR(""S"")_"" I $G(^PSDRUG(+Y,2)),$P($G(^PSDRUG(+Y,2)),""""^"""",3)[PSSPK"",1:""I $G(^PSDRUG(+Y,2)),$P($G(^PSDRUG(+Y,2)),""""^"""",3)[PSSPK"")"
^XMB(3.9,114,2,555,0)="""RTN"",""PSS50A"",19,0)"
^XMB(3.9,114,2,556,0)=" Q"
^XMB(3.9,114,2,557,0)="""RTN"",""PSS50A"",20,0)"
^XMB(3.9,114,2,558,0)=" ;"
^XMB(3.9,114,2,559,0)="""RTN"",""PSS50A"",21,0)"
^XMB(3.9,114,2,560,0)="SETALL ;"
^XMB(3.9,114,2,561,0)="""RTN"",""PSS50A"",22,0)"
^XMB(3.9,114,2,562,0)=" S ^TMP($J,LIST,+PSS(1),.01)=$G(^TMP(""PSSP50"",$J,50,PSS(1),.01,""I""))"
^XMB(3.9,114,2,563,0)="""RTN"",""PSS50A"",23,0)"
^XMB(3.9,114,2,564,0)=" S ^TMP($J,LIST,""B"",$G(^TMP(""PSSP50"",$J,50,PSS(1),.01,""I"")),+PSS(1))="""""
^XMB(3.9,114,2,565,0)="""RTN"",""PSS50A"",24,0)"
^XMB(3.9,114,2,566,0)=" S ^TMP($J,LIST,+PSS(1),2)=$G(^TMP(""PSSP50"",$J,50,PSS(1),2,""I""))"
^XMB(3.9,114,2,567,0)="""RTN"",""PSS50A"",25,0)"
^XMB(3.9,114,2,568,0)=" S ^TMP($J,LIST,+PSS(1),2.1)=$S($G(^TMP(""PSSP50"",$J,50,PSS(1),2.1,""I""))="""":"""",1:$G(^TMP(""PSSP50"",$J,50,PSS(1),2.1,""I""))_""^""_$G(^TMP(""PSSP50"",$J,50,PSS(1),2.1,""E"")))"
^XMB(3.9,114,2,569,0)="""RTN"",""PSS50A"",26,0)"
^XMB(3.9,114,2,570,0)=" I $P($G(^TMP($J,LIST,+PSS(1),2.1)),""^"") D"
^XMB(3.9,114,2,571,0)="""RTN"",""PSS50A"",27,0)"
^XMB(3.9,114,2,572,0)=" .N PSSADDF S PSSADDF=$$SETDF^PSS50AQM($P(^TMP($J,LIST,+PSS(1),2.1),""^"")) S ^TMP($J,LIST,+PSS(1),2.1)=^TMP($J,LIST,+PSS(1),2.1)_$S($P($G(PSSADDF),""^"")>0:""^""_$P($G(PSSADDF),""^"",3)_""^""_$P($G(PSSADDF),""^"",4),1:"""")"
^XMB(3.9,114,2,573,0)="""RTN"",""PSS50A"",28,0)"
^XMB(3.9,114,2,574,0)=" S ^TMP($J,LIST,+PSS(1),3)=$G(^TMP(""PSSP50"",$J,50,PSS(1),3,""I""))"
^XMB(3.9,114,2,575,0)="""RTN"",""PSS50A"",29,0)"
^XMB(3.9,114,2,576,0)=" S ^TMP($J,LIST,+PSS(1),4)=$G(^TMP(""PSSP50"",$J,50,PSS(1),4,""I""))"
^XMB(3.9,114,2,577,0)="""RTN"",""PSS50A"",30,0)"
^XMB(3.9,114,2,578,0)=" S ^TMP($J,LIST,+PSS(1),5)=$G(^TMP(""PSSP50"",$J,50,PSS(1),5,""I""))"
^XMB(3.9,114,2,579,0)="""RTN"",""PSS50A"",31,0)"
^XMB(3.9,114,2,580,0)=" S ^TMP($J,LIST,+PSS(1),6)=$G(^TMP(""PSSP50"",$J,50,PSS(1),6,""I""))"
^XMB(3.9,114,2,581,0)="""RTN"",""PSS50A"",32,0)"
^XMB(3.9,114,2,582,0)=" S ^TMP($J,LIST,+PSS(1),8)=$G(^TMP(""PSSP50"",$J,50,PSS(1),8,""I""))"
^XMB(3.9,114,2,583,0)="""RTN"",""PSS50A"",33,0)"
^XMB(3.9,114,2,584,0)=" N PSSUTN S PSSUTN=$G(^TMP(""PSSP50"",$J,50,PSS(1),12,""I""))"
^XMB(3.9,114,2,585,0)="""RTN"",""PSS50A"",34,0)"
^XMB(3.9,114,2,586,0)=" S ^TMP($J,LIST,+PSS(1),12)=$S($G(PSSUTN)="""":"""",1:$G(^TMP(""PSSP50"",$J,50,PSS(1),12,""I""))_""^""_$G(^TMP(""PSSP50"",$J,50,PSS(1),12,""E"")))"
^XMB(3.9,114,2,587,0)="""RTN"",""PSS50A"",35,0)"
^XMB(3.9,114,2,588,0)=" I PSSUTN'="""" S ^TMP($J,LIST,+PSS(1),12)=^TMP($J,LIST,+PSS(1),12)_""^""_$P($G(^DIC(51.5,PSSUTN,0)),""^"",2)"
^XMB(3.9,114,2,589,0)="""RTN"",""PSS50A"",36,0)"
^XMB(3.9,114,2,590,0)=" S ^TMP($J,LIST,+PSS(1),13)=$G(^TMP(""PSSP50"",$J,50,PSS(1),13,""I""))"
^XMB(3.9,114,2,591,0)="""RTN"",""PSS50A"",37,0)"
^XMB(3.9,114,2,592,0)=" S ^TMP($J,LIST,+PSS(1),14.5)=$G(^TMP(""PSSP50"",$J,50,PSS(1),14.5,""I""))"
^XMB(3.9,114,2,593,0)="""RTN"",""PSS50A"",38,0)"
^XMB(3.9,114,2,594,0)=" S ^TMP($J,LIST,+PSS(1),15)=$G(^TMP(""PSSP50"",$J,50,PSS(1),15,""I""))"
^XMB(3.9,114,2,595,0)="""RTN"",""PSS50A"",39,0)"
^XMB(3.9,114,2,596,0)=" S ^TMP($J,LIST,+PSS(1),16)=$G(^TMP(""PSSP50"",$J,50,PSS(1),16,""I""))"
^XMB(3.9,114,2,597,0)="""RTN"",""PSS50A"",40,0)"
^XMB(3.9,114,2,598,0)=" S ^TMP($J,LIST,+PSS(1),20)=$S($G(^TMP(""PSSP50"",$J,50,PSS(1),20,""I""))="""":"""",1:$G(^TMP(""PSSP50"",$J,50,PSS(1),20,""I""))_""^""_$G(^TMP(""PSSP50"",$J,50,PSS(1),20,""E"")))"
^XMB(3.9,114,2,599,0)="""RTN"",""PSS50A"",41,0)"
^XMB(3.9,114,2,600,0)=" S ^TMP($J,LIST,+PSS(1),21)=$G(^TMP(""PSSP50"",$J,50,PSS(1),21,""I""))"
^XMB(3.9,114,2,601,0)="""RTN"",""PSS50A"",42,0)"
^XMB(3.9,114,2,602,0)=" S ^TMP($J,LIST,+PSS(1),22)=$S($G(^TMP(""PSSP50"",$J,50,PSS(1),22,""I""))="""":"""",1:$G(^TMP(""PSSP50"",$J,50,PSS(1),22,""I""))_""^""_$G(^TMP(""PSSP50"",$J,50,PSS(1),22,""E"")))"
^XMB(3.9,114,2,603,0)="""RTN"",""PSS50A"",43,0)"
^XMB(3.9,114,2,604,0)=" S ^TMP($J,LIST,+PSS(1),25)=$S($G(^TMP(""PSSP50"",$J,50,PSS(1),25,""I""))="""":"""",1:$G(^TMP(""PSSP50"",$J,50,PSS(1),25,""I""))_""^""_$G(^TMP(""PSSP50"",$J,50,PSS(1),25,""E""))_""^""_$P($G(^PS(50.605,+^TMP(""PSSP50"",$J,50,PSS(1),25,""I""),0)),""^"",2))"
^XMB(3.9,114,2,605,0)="""RTN"",""PSS50A"",44,0)"
^XMB(3.9,114,2,606,0)=" S ^TMP($J,LIST,+PSS(1),27)=$G(^TMP(""PSSP50"",$J,50,PSS(1),27,""I""))"
^XMB(3.9,114,2,607,0)="""RTN"",""PSS50A"",45,0)"
^XMB(3.9,114,2,608,0)=" S ^TMP($J,LIST,+PSS(1),31)=$G(^TMP(""PSSP50"",$J,50,PSS(1),31,""I""))"
^XMB(3.9,114,2,609,0)="""RTN"",""PSS50A"",46,0)"
^XMB(3.9,114,2,610,0)=" S ^TMP($J,LIST,+PSS(1),40)=$G(^TMP(""PSSP50"",$J,50,PSS(1),40,""I""))"
^XMB(3.9,114,2,611,0)="""RTN"",""PSS50A"",47,0)"
^XMB(3.9,114,2,612,0)=" S ^TMP($J,LIST,+PSS(1),51)=$S($G(^TMP(""PSSP50"",$J,50,PSS(1),51,""I""))="""":"""",1:$G(^TMP(""PSSP50"",$J,50,PSS(1),51,""I""))_""^""_$G(^TMP(""PSSP50"",$J,50,PSS(1),51,""E"")))"
^XMB(3.9,114,2,613,0)="""RTN"",""PSS50A"",48,0)"
^XMB(3.9,114,2,614,0)=" S ^TMP($J,LIST,+PSS(1),52)=$S($G(^TMP(""PSSP50"",$J,50,PSS(1),52,""I""))="""":"""",1:$G(^TMP(""PSSP50"",$J,50,PSS(1),52,""I""))_""^""_$G(^TMP(""PSSP50"",$J,50,PSS(1),52,""E"")))"
^XMB(3.9,114,2,615,0)="""RTN"",""PSS50A"",49,0)"
^XMB(3.9,114,2,616,0)=" S ^TMP($J,LIST,+PSS(1),63)=$G(^TMP(""PSSP50"",$J,50,PSS(1),63,""I""))"
^XMB(3.9,114,2,617,0)="""RTN"",""PSS50A"",50,0)"
^XMB(3.9,114,2,618,0)=" S ^TMP($J,LIST,+PSS(1),64)=$S('$P($G(^TMP(""PSSP50"",$J,50,PSS(1),64,""I"")),""^""):"""",1:$P($G(^TMP(""PSSP50"",$J,50,PSS(1),64,""I"")),""^"")_""^""_$P($G(^TMP(""PSSP50"",$J,50,PSS(1),64,""E"")),""^""))"
^XMB(3.9,114,2,619,0)="""RTN"",""PSS50A"",51,0)"
^XMB(3.9,114,2,620,0)=" S ^TMP($J,LIST,+PSS(1),100)=$S($G(^TMP(""PSSP50"",$J,50,PSS(1),100,""I""))="""":"""",1:$G(^TMP(""PSSP50"",$J,50,PSS(1),100,""I""))_""^""_$G(^TMP(""PSSP50"",$J,50,PSS(1),100,""E"")))"
^XMB(3.9,114,2,621,0)="""RTN"",""PSS50A"",52,0)"
^XMB(3.9,114,2,622,0)=" S ^TMP($J,LIST,+PSS(1),101)=$G(^TMP(""PSSP50"",$J,50,PSS(1),101,""I""))"
^XMB(3.9,114,2,623,0)="""RTN"",""PSS50A"",53,0)"
^XMB(3.9,114,2,624,0)=" S ^TMP($J,LIST,+PSS(1),102)=$G(^TMP(""PSSP50"",$J,50,PSS(1),102,""I""))"
^XMB(3.9,114,2,625,0)="""RTN"",""PSS50A"",54,0)"
^XMB(3.9,114,2,626,0)=" S ^TMP($J,LIST,+PSS(1),301)=$S($G(^TMP(""PSSP50"",$J,50,PSS(1),301,""I""))="""":"""",1:$G(^TMP(""PSSP50"",$J,50,PSS(1),301,""I""))_""^""_$G(^TMP(""PSSP50"",$J,50,PSS(1),301,""E"")))"
^XMB(3.9,114,2,627,0)="""RTN"",""PSS50A"",55,0)"
^XMB(3.9,114,2,628,0)=" S ^TMP($J,LIST,+PSS(1),302)=$G(^TMP(""PSSP50"",$J,50,PSS(1),302,""I""))"
^XMB(3.9,114,2,629,0)="""RTN"",""PSS50A"",56,0)"
^XMB(3.9,114,2,630,0)=" D SRVCODE"
^XMB(3.9,114,2,631,0)="""RTN"",""PSS50A"",57,0)"
^XMB(3.9,114,2,632,0)=" Q"
^XMB(3.9,114,2,633,0)="""RTN"",""PSS50A"",58,0)"
^XMB(3.9,114,2,634,0)=" ;"
^XMB(3.9,114,2,635,0)="""RTN"",""PSS50A"",59,0)"
^XMB(3.9,114,2,636,0)="SETSYN ;"
^XMB(3.9,114,2,637,0)="""RTN"",""PSS50A"",60,0)"
^XMB(3.9,114,2,638,0)=" S ^TMP($J,LIST,+PSS(1),""SYN"",+PSS(2),.01)=$G(^TMP(""PSSP50"",$J,50.1,PSS(2),.01,""I""))"
^XMB(3.9,114,2,639,0)="""RTN"",""PSS50A"",61,0)"
^XMB(3.9,114,2,640,0)=" S ^TMP($J,LIST,+PSS(1),""SYN"",+PSS(2),1)=$S($G(^TMP(""PSSP50"",$J,50.1,PSS(2),1,""I""))="""":"""",1:^TMP(""PSSP50"",$J,50.1,PSS(2),1,""I"")_""^""_^TMP(""PSSP50"",$J,50.1,PSS(2),1,""E""))"
^XMB(3.9,114,2,641,0)="""RTN"",""PSS50A"",62,0)"
^XMB(3.9,114,2,642,0)=" S ^TMP($J,LIST,+PSS(1),""SYN"",+PSS(2),2)=$G(^TMP(""PSSP50"",$J,50.1,PSS(2),2,""I""))"
^XMB(3.9,114,2,643,0)="""RTN"",""PSS50A"",63,0)"
^XMB(3.9,114,2,644,0)=" S ^TMP($J,LIST,+PSS(1),""SYN"",+PSS(2),403)=$G(^TMP(""PSSP50"",$J,50.1,PSS(2),403,""I""))"
^XMB(3.9,114,2,645,0)="""RTN"",""PSS50A"",64,0)"
^XMB(3.9,114,2,646,0)=" Q"
^XMB(3.9,114,2,647,0)="""RTN"",""PSS50A"",65,0)"
^XMB(3.9,114,2,648,0)=" ;"
^XMB(3.9,114,2,649,0)="""RTN"",""PSS50A"",66,0)"
^XMB(3.9,114,2,650,0)="SETFMA ;"
^XMB(3.9,114,2,651,0)="""RTN"",""PSS50A"",67,0)"
^XMB(3.9,114,2,652,0)=" S ^TMP($J,LIST,+PSS(1),""FRM"",+PSS(2),.01)=$S($G(^TMP(""PSSP50"",$J,50.065,PSS(2),.01,""I""))="""":"""",1:^TMP(""PSSP50"",$J,50.065,PSS(2),.01,""I"")_""^""_^TMP(""PSSP50"",$J,50.065,PSS(2),.01,""E""))"
^XMB(3.9,114,2,653,0)="""RTN"",""PSS50A"",68,0)"
^XMB(3.9,114,2,654,0)=" Q"
^XMB(3.9,114,2,655,0)="""RTN"",""PSS50A"",69,0)"
^XMB(3.9,114,2,656,0)=" ;"
^XMB(3.9,114,2,657,0)="""RTN"",""PSS50A"",70,0)"
^XMB(3.9,114,2,658,0)="SETOLD ;"
^XMB(3.9,114,2,659,0)="""RTN"",""PSS50A"",71,0)"
^XMB(3.9,114,2,660,0)=" S ^TMP($J,LIST,+PSS(1),""OLD"",+PSS(2),.01)=$G(^TMP(""PSSP50"",$J,50.01,PSS(2),.01,""I""))"
^XMB(3.9,114,2,661,0)="""RTN"",""PSS50A"",72,0)"
^XMB(3.9,114,2,662,0)=" S ^TMP($J,LIST,+PSS(1),""OLD"",+PSS(2),.02)=$S($G(^TMP(""PSSP50"",$J,50.01,PSS(2),.02,""I""))="""":"""",1:^TMP(""PSSP50"",$J,50.01,PSS(2),.02,""I"")_""^""_^TMP(""PSSP50"",$J,50.01,PSS(2),.02,""E""))"
^XMB(3.9,114,2,663,0)="""RTN"",""PSS50A"",73,0)"
^XMB(3.9,114,2,664,0)=" Q"
^XMB(3.9,114,2,665,0)="""RTN"",""PSS50A"",74,0)"
^XMB(3.9,114,2,666,0)=" ;"
^XMB(3.9,114,2,667,0)="""RTN"",""PSS50A"",75,0)"
^XMB(3.9,114,2,668,0)="SRVCODE ;"
^XMB(3.9,114,2,669,0)="""RTN"",""PSS50A"",76,0)"
^XMB(3.9,114,2,670,0)=" ;PFSS retrieve correct service code from file #50.68/#50 or set to 600000"
^XMB(3.9,114,2,671,0)="""RTN"",""PSS50A"",77,0)"
^XMB(3.9,114,2,672,0)=" S ^TMP($J,LIST,+PSS(1),400)=$G(^TMP(""PSSP50"",$J,50,PSS(1),400,""I""))"
^XMB(3.9,114,2,673,0)="""RTN"",""PSS50A"",78,0)"
^XMB(3.9,114,2,674,0)=" N PSSNDSC S PSSNDSC=$$GET1^DIQ(50,PSSIEN_"","",""22:2000"",""I"")"
^XMB(3.9,114,2,675,0)="""RTN"",""PSS50A"",79,0)"
^XMB(3.9,114,2,676,0)=" S:PSSNDSC ^TMP($J,LIST,+PSS(1),400)=PSSNDSC"
^XMB(3.9,114,2,677,0)="""RTN"",""PSS50A"",80,0)"
^XMB(3.9,114,2,678,0)=" I '+$G(^TMP($J,LIST,+PSS(1),400)) S ^TMP($J,LIST,+PSS(1),400)=600000"
^XMB(3.9,114,2,679,0)="""RTN"",""PSS50A"",81,0)"
^XMB(3.9,114,2,680,0)=" Q"
^XMB(3.9,114,2,681,0)="""RTN"",""PSS50DAT"")"
^XMB(3.9,114,2,682,0)="0^2^B33215766^B33121603"
^XMB(3.9,114,2,683,0)="""RTN"",""PSS50DAT"",1,0)"
^XMB(3.9,114,2,684,0)="PSS50DAT ;BIR/LDT - API FOR INFORMATION FROM FILE 50 ;5 Sep 03"
^XMB(3.9,114,2,685,0)="""RTN"",""PSS50DAT"",2,0)"
^XMB(3.9,114,2,686,0)=" ;;1.0;PHARMACY DATA MANAGEMENT;**85,92**;9/30/97"
^XMB(3.9,114,2,687,0)="""RTN"",""PSS50DAT"",3,0)"
^XMB(3.9,114,2,688,0)=" ;"
^XMB(3.9,114,2,689,0)="""RTN"",""PSS50DAT"",4,0)"
^XMB(3.9,114,2,690,0)="DATA ;"
^XMB(3.9,114,2,691,0)="""RTN"",""PSS50DAT"",5,0)"
^XMB(3.9,114,2,692,0)=" ;PSSIEN - IEN of entry in 50"
^XMB(3.9,114,2,693,0)="""RTN"",""PSS50DAT"",6,0)"
^XMB(3.9,114,2,694,0)=" ;PSSFT - Free Text name in 50"
^XMB(3.9,114,2,695,0)="""RTN"",""PSS50DAT"",7,0)"
^XMB(3.9,114,2,696,0)=" ;PSSFL - Inactive flag - """" - All entries"
^XMB(3.9,114,2,697,0)="""RTN"",""PSS50DAT"",8,0)"
^XMB(3.9,114,2,698,0)=" ;                        FileMan Date - Only entries with no Inactive Date or an Inactive Date greater than this date."
^XMB(3.9,114,2,699,0)="""RTN"",""PSS50DAT"",9,0)"
^XMB(3.9,114,2,700,0)=" ;PSSPK - Application Package's Use - """" - All entries"
^XMB(3.9,114,2,701,0)="""RTN"",""PSS50DAT"",10,0)"
^XMB(3.9,114,2,702,0)=" ;                                         Alphabetic codes that represent the DHCP packages that consider this drug to be"
^XMB(3.9,114,2,703,0)="""RTN"",""PSS50DAT"",11,0)"
^XMB(3.9,114,2,704,0)=" ;                                         part of their formulary."
^XMB(3.9,114,2,705,0)="""RTN"",""PSS50DAT"",12,0)"
^XMB(3.9,114,2,706,0)=" ;PSSRTOI - Orderable Item - return only entries matched to a Pharmacy Orderable Item                                         "
^XMB(3.9,114,2,707,0)="""RTN"",""PSS50DAT"",13,0)"
^XMB(3.9,114,2,708,0)=" ;LIST - Subscript of ^TMP array in the form ^TMP($J,LIST,Field Number where Field Number is the Field Number of the data"
^XMB(3.9,114,2,709,0)="""RTN"",""PSS50DAT"",14,0)"
^XMB(3.9,114,2,710,0)=" ;       piece being returned."
^XMB(3.9,114,2,711,0)="""RTN"",""PSS50DAT"",15,0)"
^XMB(3.9,114,2,712,0)=" N DIERR,ZZERR,SCR,PSS,PSSMLCT,PSSP50"
^XMB(3.9,114,2,713,0)="""RTN"",""PSS50DAT"",16,0)"
^XMB(3.9,114,2,714,0)=" I $G(LIST)']"""" Q"
^XMB(3.9,114,2,715,0)="""RTN"",""PSS50DAT"",17,0)"
^XMB(3.9,114,2,716,0)=" K ^TMP($J,LIST)"
^XMB(3.9,114,2,717,0)="""RTN"",""PSS50DAT"",18,0)"
^XMB(3.9,114,2,718,0)=" I +$G(PSSIEN)'>0,($G(PSSFT)']"""") S ^TMP($J,LIST,0)=-1_""^""_""NO DATA FOUND"" Q"
^XMB(3.9,114,2,719,0)="""RTN"",""PSS50DAT"",19,0)"
^XMB(3.9,114,2,720,0)=" S SCR(""S"")="""""
^XMB(3.9,114,2,721,0)="""RTN"",""PSS50DAT"",20,0)"
^XMB(3.9,114,2,722,0)=" I +$G(PSSFL)>0!($G(PSSPK)]"""")!($G(PSSRTOI)=1) N PSS5ND,PSSZ3,PSSZ4 D SETSCRN^PSS50A"
^XMB(3.9,114,2,723,0)="""RTN"",""PSS50DAT"",21,0)"
^XMB(3.9,114,2,724,0)=" I +$G(PSSIEN)>0 N PSSIEN2 S PSSIEN2=$$FIND1^DIC(50,"""",""A"",""`""_PSSIEN,,SCR(""S""),"""") D  K ^TMP(""PSSP50"",$J) Q"
^XMB(3.9,114,2,725,0)="""RTN"",""PSS50DAT"",22,0)"
^XMB(3.9,114,2,726,0)=" .K ^TMP(""DIERR"",$J)"
^XMB(3.9,114,2,727,0)="""RTN"",""PSS50DAT"",23,0)"
^XMB(3.9,114,2,728,0)=" .I +PSSIEN2'>0 S ^TMP($J,LIST,0)=-1_""^""_""NO DATA FOUND"" Q"
^XMB(3.9,114,2,729,0)="""RTN"",""PSS50DAT"",24,0)"
^XMB(3.9,114,2,730,0)=" .S ^TMP($J,LIST,0)=1"
^XMB(3.9,114,2,731,0)="""RTN"",""PSS50DAT"",25,0)"
^XMB(3.9,114,2,732,0)=" .D SETSUB1^PSS50AQM(+PSSIEN2),SETSUB2^PSS50AQM(+PSSIEN2),SETSUB3^PSS50AQM(+PSSIEN2)"
^XMB(3.9,114,2,733,0)="""RTN"",""PSS50DAT"",26,0)"
^XMB(3.9,114,2,734,0)=" .K ^TMP(""PSSP50"",$J) D GETS^DIQ(50,+PSSIEN2,"".01:8;9*;12:16;20:40;51;101;52;100;102;63;31;64;65*;301;302;400;900*"",""IE"",""^TMP(""""PSSP50"""",$J)"") S PSS(1)=0"
^XMB(3.9,114,2,735,0)="""RTN"",""PSS50DAT"",27,0)"
^XMB(3.9,114,2,736,0)=" .F  S PSS(1)=$O(^TMP(""PSSP50"",$J,50,PSS(1))) Q:'PSS(1)  D SETALL^PSS50A D"
^XMB(3.9,114,2,737,0)="""RTN"",""PSS50DAT"",28,0)"
^XMB(3.9,114,2,738,0)=" ..S (PSS(2),PSSMLCT)=0 F  S PSS(2)=$O(^TMP(""PSSP50"",$J,50.01,PSS(2))) Q:'PSS(2)  S PSSMLCT=PSSMLCT+1 D SETOLD^PSS50A"
^XMB(3.9,114,2,739,0)="""RTN"",""PSS50DAT"",29,0)"
^XMB(3.9,114,2,740,0)=" ..S ^TMP($J,LIST,+PSS(1),""OLD"",0)=$S($G(PSSMLCT):PSSMLCT,1:""-1^NO DATA FOUND"")"
^XMB(3.9,114,2,741,0)="""RTN"",""PSS50DAT"",30,0)"
^XMB(3.9,114,2,742,0)=" ..S (PSS(2),PSSMLCT)=0 F  S PSS(2)=$O(^TMP(""PSSP50"",$J,50.1,PSS(2))) Q:'PSS(2)  S PSSMLCT=PSSMLCT+1 D SETSYN^PSS50A"
^XMB(3.9,114,2,743,0)="""RTN"",""PSS50DAT"",31,0)"
^XMB(3.9,114,2,744,0)=" ..S ^TMP($J,LIST,+PSS(1),""SYN"",0)=$S($G(PSSMLCT):PSSMLCT,1:""-1^NO DATA FOUND"")"
^XMB(3.9,114,2,745,0)="""RTN"",""PSS50DAT"",32,0)"
^XMB(3.9,114,2,746,0)=" ..S (PSS(2),PSSMLCT)=0 F  S PSS(2)=$O(^TMP(""PSSP50"",$J,50.065,PSS(2))) Q:'PSS(2)  S PSSMLCT=PSSMLCT+1 D SETFMA^PSS50A"
^XMB(3.9,114,2,747,0)="""RTN"",""PSS50DAT"",33,0)"
^XMB(3.9,114,2,748,0)=" ..S ^TMP($J,LIST,+PSS(1),""FRM"",0)=$S($G(PSSMLCT):PSSMLCT,1:""-1^NO DATA FOUND"")"
^XMB(3.9,114,2,749,0)="""RTN"",""PSS50DAT"",34,0)"
^XMB(3.9,114,2,750,0)=" I $G(PSSIEN)'="""" S ^TMP($J,LIST,0)=-1_""^""_""NO DATA FOUND"" Q"
^XMB(3.9,114,2,751,0)="""RTN"",""PSS50DAT"",35,0)"
^XMB(3.9,114,2,752,0)=" I $G(PSSFT)]"""" D"
^XMB(3.9,114,2,753,0)="""RTN"",""PSS50DAT"",36,0)"
^XMB(3.9,114,2,754,0)=" .I PSSFT[""??"" D LOOP Q"
^XMB(3.9,114,2,755,0)="""RTN"",""PSS50DAT"",37,0)"
^XMB(3.9,114,2,756,0)=" .K ^TMP(""DILIST"",$J)"
^XMB(3.9,114,2,757,0)="""RTN"",""PSS50DAT"",38,0)"
^XMB(3.9,114,2,758,0)=" .D FIND^DIC(50,,""@;.01"",""QP"",PSSFT,,""B"",SCR(""S""),,"""")"
^XMB(3.9,114,2,759,0)="""RTN"",""PSS50DAT"",39,0)"
^XMB(3.9,114,2,760,0)=" .I +$G(^TMP(""DILIST"",$J,0))=0 S ^TMP($J,LIST,0)=-1_""^""_""NO DATA FOUND"" Q"
^XMB(3.9,114,2,761,0)="""RTN"",""PSS50DAT"",40,0)"
^XMB(3.9,114,2,762,0)=" .I +^TMP(""DILIST"",$J,0)>0 S ^TMP($J,LIST,0)=+^TMP(""DILIST"",$J,0) N PSSXX S PSSXX=0 F  S PSSXX=$O(^TMP(""DILIST"",$J,PSSXX)) Q:'PSSXX  D"
^XMB(3.9,114,2,763,0)="""RTN"",""PSS50DAT"",41,0)"
^XMB(3.9,114,2,764,0)=" ..S PSSIEN=+^TMP(""DILIST"",$J,PSSXX,0)"
^XMB(3.9,114,2,765,0)="""RTN"",""PSS50DAT"",42,0)"
^XMB(3.9,114,2,766,0)=" ..D SETSUB1^PSS50AQM(PSSIEN),SETSUB2^PSS50AQM(PSSIEN),SETSUB3^PSS50AQM(PSSIEN) K ^TMP(""PSSP50"",$J) D GETS^DIQ(50,+PSSIEN,"".01:8;9*;12:16;20:40;51;101;52;100;102;63;31;64;65*;301;302;400;900*"",""IE"",""^TMP(""""PSSP50"""",$J)"") S PSS(1)=0"
^XMB(3.9,114,2,767,0)="""RTN"",""PSS50DAT"",43,0)"
^XMB(3.9,114,2,768,0)=" ..F  S PSS(1)=$O(^TMP(""PSSP50"",$J,50,PSS(1))) Q:'PSS(1)  D SETALL^PSS50A D"
^XMB(3.9,114,2,769,0)="""RTN"",""PSS50DAT"",44,0)"
^XMB(3.9,114,2,770,0)=" ...S (PSS(2),PSSMLCT)=0 F  S PSS(2)=$O(^TMP(""PSSP50"",$J,50.01,PSS(2))) Q:'PSS(2)  S PSSMLCT=PSSMLCT+1 D SETOLD^PSS50A"
^XMB(3.9,114,2,771,0)="""RTN"",""PSS50DAT"",45,0)"
^XMB(3.9,114,2,772,0)=" ...S ^TMP($J,LIST,+PSS(1),""OLD"",0)=$S($G(PSSMLCT):PSSMLCT,1:""-1^NO DATA FOUND"")"
^XMB(3.9,114,2,773,0)="""RTN"",""PSS50DAT"",46,0)"
^XMB(3.9,114,2,774,0)=" ...S (PSS(2),PSSMLCT)=0 F  S PSS(2)=$O(^TMP(""PSSP50"",$J,50.1,PSS(2))) Q:'PSS(2)  S PSSMLCT=PSSMLCT+1 D SETSYN^PSS50A"
^XMB(3.9,114,2,775,0)="""RTN"",""PSS50DAT"",47,0)"
^XMB(3.9,114,2,776,0)=" ...S ^TMP($J,LIST,+PSS(1),""SYN"",0)=$S($G(PSSMLCT):PSSMLCT,1:""-1^NO DATA FOUND"")"
^XMB(3.9,114,2,777,0)="""RTN"",""PSS50DAT"",48,0)"
^XMB(3.9,114,2,778,0)=" ...S (PSS(2),PSSMLCT)=0 F  S PSS(2)=$O(^TMP(""PSSP50"",$J,50.065,PSS(2))) Q:'PSS(2)  S PSSMLCT=PSSMLCT+1 D SETFMA^PSS50A"
^XMB(3.9,114,2,779,0)="""RTN"",""PSS50DAT"",49,0)"
^XMB(3.9,114,2,780,0)=" ...S ^TMP($J,LIST,+PSS(1),""FRM"",0)=$S($G(PSSMLCT):PSSMLCT,1:""-1^NO DATA FOUND"")"
^XMB(3.9,114,2,781,0)="""RTN"",""PSS50DAT"",50,0)"
^XMB(3.9,114,2,782,0)=" K ^TMP(""DILIST"",$J),^TMP(""PSSP50"",$J)"
^XMB(3.9,114,2,783,0)="""RTN"",""PSS50DAT"",51,0)"
^XMB(3.9,114,2,784,0)=" Q"
^XMB(3.9,114,2,785,0)="""RTN"",""PSS50DAT"",52,0)"
^XMB(3.9,114,2,786,0)=" ;"
^XMB(3.9,114,2,787,0)="""RTN"",""PSS50DAT"",53,0)"
^XMB(3.9,114,2,788,0)="DRG ;"
^XMB(3.9,114,2,789,0)="""RTN"",""PSS50DAT"",54,0)"
^XMB(3.9,114,2,790,0)=" ;PSSIEN - IEN of entry in 50"
^XMB(3.9,114,2,791,0)="""RTN"",""PSS50DAT"",55,0)"
^XMB(3.9,114,2,792,0)=" ;PSSFT - Free Text name in 50"
^XMB(3.9,114,2,793,0)="""RTN"",""PSS50DAT"",56,0)"
^XMB(3.9,114,2,794,0)=" ;PSSFL - Inactive flag - """" - All entries"
^XMB(3.9,114,2,795,0)="""RTN"",""PSS50DAT"",57,0)"
^XMB(3.9,114,2,796,0)=" ;                        FileMan Date - Only entries with no Inactive Date or an Inactive Date greater than this date."
^XMB(3.9,114,2,797,0)="""RTN"",""PSS50DAT"",58,0)"
^XMB(3.9,114,2,798,0)=" ;PSSPK - Application Package's Use - """" - All entries"
^XMB(3.9,114,2,799,0)="""RTN"",""PSS50DAT"",59,0)"
^XMB(3.9,114,2,800,0)=" ;                                         Alphabetic codes that represent the DHCP packages that consider this drug to be"
^XMB(3.9,114,2,801,0)="""RTN"",""PSS50DAT"",60,0)"
^XMB(3.9,114,2,802,0)=" ;                                         part of their formulary."
^XMB(3.9,114,2,803,0)="""RTN"",""PSS50DAT"",61,0)"
^XMB(3.9,114,2,804,0)=" ;PSSRTOI - Orderable Item - return only entries matched to a Pharmacy Orderable Item"
^XMB(3.9,114,2,805,0)="""RTN"",""PSS50DAT"",62,0)"
^XMB(3.9,114,2,806,0)=" ;LIST - Subscript of ^TMP array in the form ^TMP($J,LIST,Field Number where Field Number is the Field Number of the data"
^XMB(3.9,114,2,807,0)="""RTN"",""PSS50DAT"",63,0)"
^XMB(3.9,114,2,808,0)=" ;       piece being returned."
^XMB(3.9,114,2,809,0)="""RTN"",""PSS50DAT"",64,0)"
^XMB(3.9,114,2,810,0)=" N DIERR,ZZERR,PSSP50,SCR,PSS,PSSMLCT"
^XMB(3.9,114,2,811,0)="""RTN"",""PSS50DAT"",65,0)"
^XMB(3.9,114,2,812,0)=" I $G(LIST)']"""" Q"
^XMB(3.9,114,2,813,0)="""RTN"",""PSS50DAT"",66,0)"
^XMB(3.9,114,2,814,0)=" K ^TMP($J,LIST)"
^XMB(3.9,114,2,815,0)="""RTN"",""PSS50DAT"",67,0)"
^XMB(3.9,114,2,816,0)=" I +$G(PSSIEN)'>0,($G(PSSFT)']"""") S ^TMP($J,LIST,0)=-1_""^""_""NO DATA FOUND"" Q"
^XMB(3.9,114,2,817,0)="""RTN"",""PSS50DAT"",68,0)"
^XMB(3.9,114,2,818,0)=" S SCR(""S"")="""""
^XMB(3.9,114,2,819,0)="""RTN"",""PSS50DAT"",69,0)"
^XMB(3.9,114,2,820,0)=" I +$G(PSSFL)>0!($G(PSSPK)]"""")!($G(PSSRTOI)=1) N PSS5ND,PSSZ3,PSSZ4 D SETSCRN^PSS50A"
^XMB(3.9,114,2,821,0)="""RTN"",""PSS50DAT"",70,0)"
^XMB(3.9,114,2,822,0)=" I +$G(PSSIEN)>0 N PSSIEN2 S PSSIEN2=$$FIND1^DIC(50,"""",""A"",""`""_PSSIEN,,SCR(""S""),"""") D  K ^TMP(""PSSP50"",$J) Q"
^XMB(3.9,114,2,823,0)="""RTN"",""PSS50DAT"",71,0)"
^XMB(3.9,114,2,824,0)=" .K ^TMP(""DIERR"",$J)"
^XMB(3.9,114,2,825,0)="""RTN"",""PSS50DAT"",72,0)"
^XMB(3.9,114,2,826,0)=" .I +PSSIEN2'>0 S ^TMP($J,LIST,0)=-1_""^""_""NO DATA FOUND"" Q"
^XMB(3.9,114,2,827,0)="""RTN"",""PSS50DAT"",73,0)"
^XMB(3.9,114,2,828,0)=" .S ^TMP($J,LIST,0)=1"
^XMB(3.9,114,2,829,0)="""RTN"",""PSS50DAT"",74,0)"
^XMB(3.9,114,2,830,0)=" .K ^TMP(""PSSP50"",$J) D GETS^DIQ(50,+PSSIEN2,"".01;62.01:62.05;905"",""IE"",""^TMP(""""PSSP50"""",$J)"") S PSS(1)=0"
^XMB(3.9,114,2,831,0)="""RTN"",""PSS50DAT"",75,0)"
^XMB(3.9,114,2,832,0)=" .F  S PSS(1)=$O(^TMP(""PSSP50"",$J,50,PSS(1))) Q:'PSS(1)  D SETDRG^PSS50A1"
^XMB(3.9,114,2,833,0)="""RTN"",""PSS50DAT"",76,0)"
^XMB(3.9,114,2,834,0)=" I $G(PSSIEN)'="""" S ^TMP($J,LIST,0)=-1_""^""_""NO DATA FOUND"" Q"
^XMB(3.9,114,2,835,0)="""RTN"",""PSS50DAT"",77,0)"
^XMB(3.9,114,2,836,0)=" I $G(PSSFT)]"""" D"
^XMB(3.9,114,2,837,0)="""RTN"",""PSS50DAT"",78,0)"
^XMB(3.9,114,2,838,0)=" .I PSSFT[""??"" D LOOP^PSS50A1 Q"
^XMB(3.9,114,2,839,0)="""RTN"",""PSS50DAT"",79,0)"
^XMB(3.9,114,2,840,0)=" .K ^TMP(""DILIST"",$J)"
^XMB(3.9,114,2,841,0)="""RTN"",""PSS50DAT"",80,0)"
^XMB(3.9,114,2,842,0)=" .D FIND^DIC(50,,""@;.01"",""QP"",PSSFT,,""B"",SCR(""S""),,"""")"
^XMB(3.9,114,2,843,0)="""RTN"",""PSS50DAT"",81,0)"
^XMB(3.9,114,2,844,0)=" .I +$G(^TMP(""DILIST"",$J,0))=0 S ^TMP($J,LIST,0)=-1_""^""_""NO DATA FOUND"" Q"
^XMB(3.9,114,2,845,0)="""RTN"",""PSS50DAT"",82,0)"
^XMB(3.9,114,2,846,0)=" .I +^TMP(""DILIST"",$J,0)>0 S ^TMP($J,LIST,0)=+^TMP(""DILIST"",$J,0) N PSSXX S PSSXX=0 F  S PSSXX=$O(^TMP(""DILIST"",$J,PSSXX)) Q:'PSSXX  D"
^XMB(3.9,114,2,847,0)="""RTN"",""PSS50DAT"",83,0)"
^XMB(3.9,114,2,848,0)=" ..S PSSIEN=+^TMP(""DILIST"",$J,PSSXX,0)"
^XMB(3.9,114,2,849,0)="""RTN"",""PSS50DAT"",84,0)"
^XMB(3.9,114,2,850,0)=" ..K ^TMP(""PSSP50"",$J) D GETS^DIQ(50,+PSSIEN,"".01;62.01:62.05;905"",""IE"",""^TMP(""""PSSP50"""",$J)"") S PSS(1)=0"
^XMB(3.9,114,2,851,0)="""RTN"",""PSS50DAT"",85,0)"
^XMB(3.9,114,2,852,0)=" ..F  S PSS(1)=$O(^TMP(""PSSP50"",$J,50,PSS(1))) Q:'PSS(1)  D SETDRG^PSS50A1"
^XMB(3.9,114,2,853,0)="""RTN"",""PSS50DAT"",86,0)"
^XMB(3.9,114,2,854,0)=" K ^TMP(""DILIST"",$J),^TMP(""PSSP50"",$J)"
^XMB(3.9,114,2,855,0)="""RTN"",""PSS50DAT"",87,0)"
^XMB(3.9,114,2,856,0)=" Q"
^XMB(3.9,114,2,857,0)="""RTN"",""PSS50DAT"",88,0)"
^XMB(3.9,114,2,858,0)=" ;"
^XMB(3.9,114,2,859,0)="""RTN"",""PSS50DAT"",89,0)"
^XMB(3.9,114,2,860,0)="LOOP ;"
^XMB(3.9,114,2,861,0)="""RTN"",""PSS50DAT"",90,0)"
^XMB(3.9,114,2,862,0)=" N PSS50DD1,PSS50DD2,PSS50DD3,PSS50DD4,PSS50ER1,PSS50ER2,PSS50ER3,PSS50ER4,PSS51NFD,PSS52NFD,PSSG2N,PSS501NX"
^XMB(3.9,114,2,863,0)="""RTN"",""PSS50DAT"",91,0)"
^XMB(3.9,114,2,864,0)=" D FIELD^DID(50,51,""Z"",""POINTER"",""PSS50DD1"",""PSS50ER1"") S PSS51NFD=$G(PSS50DD1(""POINTER""))"
^XMB(3.9,114,2,865,0)="""RTN"",""PSS50DAT"",92,0)"
^XMB(3.9,114,2,866,0)=" D FIELD^DID(50,52,""Z"",""POINTER"",""PSS50DD2"",""PSS50ER2"") S PSS52NFD=$G(PSS50DD2(""POINTER""))"
^XMB(3.9,114,2,867,0)="""RTN"",""PSS50DAT"",93,0)"
^XMB(3.9,114,2,868,0)=" D FIELD^DID(50,301,""Z"",""POINTER"",""PSS50DD3"",""PSS50ER3"") S PSSG2N=$G(PSS50DD3(""POINTER""))"
^XMB(3.9,114,2,869,0)="""RTN"",""PSS50DAT"",94,0)"
^XMB(3.9,114,2,870,0)=" D FIELD^DID(50.1,1,""Z"",""POINTER"",""PSS50DD4"",""PSS50ER4"") S PSS501NX=$G(PSS50DD4(""POINTER""))"
^XMB(3.9,114,2,871,0)="""RTN"",""PSS50DAT"",95,0)"
^XMB(3.9,114,2,872,0)=" N PSSENCT"
^XMB(3.9,114,2,873,0)="""RTN"",""PSS50DAT"",96,0)"
^XMB(3.9,114,2,874,0)=" S PSSENCT=0"
^XMB(3.9,114,2,875,0)="""RTN"",""PSS50DAT"",97,0)"
^XMB(3.9,114,2,876,0)=" S PSS(1)=0 F  S PSS(1)=$O(^PSDRUG(PSS(1))) Q:'PSS(1)  D"
^XMB(3.9,114,2,877,0)="""RTN"",""PSS50DAT"",98,0)"
^XMB(3.9,114,2,878,0)=" .I $P($G(^PSDRUG(PSS(1),0)),""^"")="""" Q"
^XMB(3.9,114,2,879,0)="""RTN"",""PSS50DAT"",99,0)"
^XMB(3.9,114,2,880,0)=" .I $G(PSSFL),$P($G(^PSDRUG(PSS(1),""I"")),""^""),$P($G(^(""I"")),""^"")'>PSSFL Q"
^XMB(3.9,114,2,881,0)="""RTN"",""PSS50DAT"",100,0)"
^XMB(3.9,114,2,882,0)=" .I $G(PSSRTOI)=1,'$P($G(^PSDRUG(PSS(1),2)),""^"") Q"
^XMB(3.9,114,2,883,0)="""RTN"",""PSS50DAT"",101,0)"
^XMB(3.9,114,2,884,0)=" .;Naked reference below refers to ^PSDRUG(PSS(1),2)"
^XMB(3.9,114,2,885,0)="""RTN"",""PSS50DAT"",102,0)"
^XMB(3.9,114,2,886,0)=" .I $G(PSSPK)]"""" N PSSZ5,PSSZ6 S PSSZ5=0 F PSSZ6=1:1:$L(PSSPK) Q:PSSZ5  I $P($G(^(2)),""^"",3)[$E(PSSPK,PSSZ6) S PSSZ5=1"
^XMB(3.9,114,2,887,0)="""RTN"",""PSS50DAT"",103,0)"
^XMB(3.9,114,2,888,0)=" .I $G(PSSPK)]"""",'PSSZ5 Q"
^XMB(3.9,114,2,889,0)="""RTN"",""PSS50DAT"",104,0)"
^XMB(3.9,114,2,890,0)=" .D SETSUB1^PSS50AQM(PSS(1)),SETSUB2^PSS50AQM(PSS(1)),SETSUB3^PSS50AQM(PSS(1))"
^XMB(3.9,114,2,891,0)="""RTN"",""PSS50DAT"",105,0)"
^XMB(3.9,114,2,892,0)=" .D SETALL^PSS50AQM,SETOLD^PSS50AQM,SETSYN^PSS50AQM,SETFMA^PSS50AQM"
^XMB(3.9,114,2,893,0)="""RTN"",""PSS50DAT"",106,0)"
^XMB(3.9,114,2,894,0)=" .S PSSENCT=PSSENCT+1"
^XMB(3.9,114,2,895,0)="""RTN"",""PSS50DAT"",107,0)"
^XMB(3.9,114,2,896,0)=" S ^TMP($J,LIST,0)=$S($G(PSSENCT):$G(PSSENCT),1:""-1^NO DATA FOUND"")"
^XMB(3.9,114,2,897,0)="""RTN"",""PSS50DAT"",108,0)"
^XMB(3.9,114,2,898,0)=" Q"
^XMB(3.9,114,2,899,0)="""VER"")"
^XMB(3.9,114,2,900,0)="8.0^22.0"
^XMB(3.9,114,2,901,0)="""^DD"",50,50,400,0)"
^XMB(3.9,114,2,902,0)="SERVICE CODE^NJ6,0^^PFS;1^K:+X'=X!(X>699999)!(X<600001)!(X?.E1"".""1N.N) X"
^XMB(3.9,114,2,903,0)="""^DD"",50,50,400,3)"
^XMB(3.9,114,2,904,0)="This is required for external billing purposes only. Answer must be between 600001-699999."
^XMB(3.9,114,2,905,0)="""^DD"",50,50,400,21,0)"
^XMB(3.9,114,2,906,0)="^^2^2^3060309^"
^XMB(3.9,114,2,907,0)="""^DD"",50,50,400,21,1,0)"
^XMB(3.9,114,2,908,0)="The Charge Description Master (CDM) Change Control board assigns value"
^XMB(3.9,114,2,909,0)="""^DD"",50,50,400,21,2,0)"
^XMB(3.9,114,2,910,0)="for this field. The value should be a number between 600001-699999. "
^XMB(3.9,114,2,911,0)="""^DD"",50,50,400,23,0)"
^XMB(3.9,114,2,912,0)="^.001^9^9^3060309^^^"
^XMB(3.9,114,2,913,0)="""^DD"",50,50,400,23,1,0)"
^XMB(3.9,114,2,914,0)="This field was introduced as part of the Patient Financial Services System"
^XMB(3.9,114,2,915,0)="""^DD"",50,50,400,23,2,0)"
^XMB(3.9,114,2,916,0)="(PFSS) project, to implement a new COTS billing system. Pharmacy "
^XMB(3.9,114,2,917,0)="""^DD"",50,50,400,23,3,0)"
^XMB(3.9,114,2,918,0)="application will maintain a CDM/Service Code for every dispensed item. It"
^XMB(3.9,114,2,919,0)="""^DD"",50,50,400,23,4,0)"
^XMB(3.9,114,2,920,0)="requires that every prescription charge transaction passed to the external"
^XMB(3.9,114,2,921,0)="""^DD"",50,50,400,23,5,0)"
^XMB(3.9,114,2,922,0)="billing system to pass a service code. If the drug is not matched to NDF"
^XMB(3.9,114,2,923,0)="""^DD"",50,50,400,23,6,0)"
^XMB(3.9,114,2,924,0)="or the Service Code field in the VA PRODUCT file #50.68 is undefined, this"
^XMB(3.9,114,2,925,0)="""^DD"",50,50,400,23,7,0)"
^XMB(3.9,114,2,926,0)="field will be prompted during DRUG ENTER/EDIT [PSS DRUG ENTER/EDIT]"
^XMB(3.9,114,2,927,0)="""^DD"",50,50,400,23,8,0)"
^XMB(3.9,114,2,928,0)="option. In the event the drug is matched later to a NDF entry, previously"
^XMB(3.9,114,2,929,0)="""^DD"",50,50,400,23,9,0)"
^XMB(3.9,114,2,930,0)="defined Service Code will be retained."
^XMB(3.9,114,2,931,0)="""^DD"",50,50,400,""DT"")"
^XMB(3.9,114,2,932,0)="3050518"
^XMB(3.9,114,2,933,0)="""BLD"",6038,6)"
^XMB(3.9,114,2,934,0)="^102"
^XMB(3.9,114,2,935,0)="$END KID PSS*1.0*92"
^XMB(3.9,114,6,0)="^3.911A^2^2"
^XMB(3.9,114,6,1,0)="POSTMASTER"
^XMB(3.9,114,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,114,6,"B","POSTMASTER",1)=""
^XMB(3.9,114,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,115,0)="PSS-1_SEQ-103_PAT-110.KID^.5^3061008.015741^^^^K"
^XMB(3.9,115,.6)="3061008"
^XMB(3.9,115,1,0)="^3.91A^2^2"
^XMB(3.9,115,1,1,0)=".5^0^3061008.015741^^^^^^^3061008.015741"
^XMB(3.9,115,1,2,0)="1^0^3061008.022408^^^^^^^3061008.022408"
^XMB(3.9,115,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,115,1,"C",.5,1)=""
^XMB(3.9,115,1,"C",1,2)=""
^XMB(3.9,115,2,0)="^^1003^1003^3061008"
^XMB(3.9,115,2,1,0)="$TXT Released PSS*1*110 SEQ #103"
^XMB(3.9,115,2,2,0)="Extracted from mail message"
^XMB(3.9,115,2,3,0)="$END TXT"
^XMB(3.9,115,2,4,0)="$KID PSS*1.0*110"
^XMB(3.9,115,2,5,0)="**INSTALL NAME**"
^XMB(3.9,115,2,6,0)="PSS*1.0*110"
^XMB(3.9,115,2,7,0)="""BLD"",6673,0)"
^XMB(3.9,115,2,8,0)="PSS*1.0*110^PHARMACY DATA MANAGEMENT^0^3060614^y"
^XMB(3.9,115,2,9,0)="""BLD"",6673,1,0)"
^XMB(3.9,115,2,10,0)="^^3^3^3060504^"
^XMB(3.9,115,2,11,0)="""BLD"",6673,1,1,0)"
^XMB(3.9,115,2,12,0)="1) Only allow uppercase alphabet for the NAME field in files #51.1"
^XMB(3.9,115,2,13,0)="""BLD"",6673,1,2,0)"
^XMB(3.9,115,2,14,0)="and #51."
^XMB(3.9,115,2,15,0)="""BLD"",6673,1,3,0)"
^XMB(3.9,115,2,16,0)="2) Allow elligible drugs to be marked for 'OP External Dispense'."
^XMB(3.9,115,2,17,0)="""BLD"",6673,4,0)"
^XMB(3.9,115,2,18,0)="^9.64PA^51^1"
^XMB(3.9,115,2,19,0)="""BLD"",6673,4,51,0)"
^XMB(3.9,115,2,20,0)="51"
^XMB(3.9,115,2,21,0)="""BLD"",6673,4,51,2,0)"
^XMB(3.9,115,2,22,0)="^9.641^51^1"
^XMB(3.9,115,2,23,0)="""BLD"",6673,4,51,2,51,0)"
^XMB(3.9,115,2,24,0)="MEDICATION INSTRUCTION  (File-top level)"
^XMB(3.9,115,2,25,0)="""BLD"",6673,4,51,2,51,1,0)"
^XMB(3.9,115,2,26,0)="^9.6411^.01^1"
^XMB(3.9,115,2,27,0)="""BLD"",6673,4,51,2,51,1,.01,0)"
^XMB(3.9,115,2,28,0)="NAME"
^XMB(3.9,115,2,29,0)="""BLD"",6673,4,51,222)"
^XMB(3.9,115,2,30,0)="y^n^p^^^^n^^n"
^XMB(3.9,115,2,31,0)="""BLD"",6673,4,51,224)"
^XMB(3.9,115,2,32,0)=""
^XMB(3.9,115,2,33,0)="""BLD"",6673,4,""APDD"",51,51)"
^XMB(3.9,115,2,34,0)=""
^XMB(3.9,115,2,35,0)="""BLD"",6673,4,""APDD"",51,51,.01)"
^XMB(3.9,115,2,36,0)=""
^XMB(3.9,115,2,37,0)="""BLD"",6673,4,""B"",51,51)"
^XMB(3.9,115,2,38,0)=""
^XMB(3.9,115,2,39,0)="""BLD"",6673,""ABPKG"")"
^XMB(3.9,115,2,40,0)="n"
^XMB(3.9,115,2,41,0)="""BLD"",6673,""INIT"")"
^XMB(3.9,115,2,42,0)="EN^PSSP110"
^XMB(3.9,115,2,43,0)="""BLD"",6673,""KRN"",0)"
^XMB(3.9,115,2,44,0)="^9.67PA^8989.52^19"
^XMB(3.9,115,2,45,0)="""BLD"",6673,""KRN"",.4,0)"
^XMB(3.9,115,2,46,0)=".4"
^XMB(3.9,115,2,47,0)="""BLD"",6673,""KRN"",.401,0)"
^XMB(3.9,115,2,48,0)=".401"
^XMB(3.9,115,2,49,0)="""BLD"",6673,""KRN"",.402,0)"
^XMB(3.9,115,2,50,0)=".402"
^XMB(3.9,115,2,51,0)="""BLD"",6673,""KRN"",.403,0)"
^XMB(3.9,115,2,52,0)=".403"
^XMB(3.9,115,2,53,0)="""BLD"",6673,""KRN"",.5,0)"
^XMB(3.9,115,2,54,0)=".5"
^XMB(3.9,115,2,55,0)="""BLD"",6673,""KRN"",.84,0)"
^XMB(3.9,115,2,56,0)=".84"
^XMB(3.9,115,2,57,0)="""BLD"",6673,""KRN"",3.6,0)"
^XMB(3.9,115,2,58,0)="3.6"
^XMB(3.9,115,2,59,0)="""BLD"",6673,""KRN"",3.8,0)"
^XMB(3.9,115,2,60,0)="3.8"
^XMB(3.9,115,2,61,0)="""BLD"",6673,""KRN"",9.2,0)"
^XMB(3.9,115,2,62,0)="9.2"
^XMB(3.9,115,2,63,0)="""BLD"",6673,""KRN"",9.8,0)"
^XMB(3.9,115,2,64,0)="9.8"
^XMB(3.9,115,2,65,0)="""BLD"",6673,""KRN"",9.8,""NM"",0)"
^XMB(3.9,115,2,66,0)="^9.68A^3^3"
^XMB(3.9,115,2,67,0)="""BLD"",6673,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,115,2,68,0)="PSSJSV^^0^B24822667"
^XMB(3.9,115,2,69,0)="""BLD"",6673,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,115,2,70,0)="PSSP110^^0^B8043298"
^XMB(3.9,115,2,71,0)="""BLD"",6673,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,115,2,72,0)="PSSDEE^^0^B91898198"
^XMB(3.9,115,2,73,0)="""BLD"",6673,""KRN"",9.8,""NM"",""B"",""PSSDEE"",3)"
^XMB(3.9,115,2,74,0)=""
^XMB(3.9,115,2,75,0)="""BLD"",6673,""KRN"",9.8,""NM"",""B"",""PSSJSV"",1)"
^XMB(3.9,115,2,76,0)=""
^XMB(3.9,115,2,77,0)="""BLD"",6673,""KRN"",9.8,""NM"",""B"",""PSSP110"",2)"
^XMB(3.9,115,2,78,0)=""
^XMB(3.9,115,2,79,0)="""BLD"",6673,""KRN"",19,0)"
^XMB(3.9,115,2,80,0)="19"
^XMB(3.9,115,2,81,0)="""BLD"",6673,""KRN"",19.1,0)"
^XMB(3.9,115,2,82,0)="19.1"
^XMB(3.9,115,2,83,0)="""BLD"",6673,""KRN"",101,0)"
^XMB(3.9,115,2,84,0)="101"
^XMB(3.9,115,2,85,0)="""BLD"",6673,""KRN"",409.61,0)"
^XMB(3.9,115,2,86,0)="409.61"
^XMB(3.9,115,2,87,0)="""BLD"",6673,""KRN"",771,0)"
^XMB(3.9,115,2,88,0)="771"
^XMB(3.9,115,2,89,0)="""BLD"",6673,""KRN"",870,0)"
^XMB(3.9,115,2,90,0)="870"
^XMB(3.9,115,2,91,0)="""BLD"",6673,""KRN"",8989.51,0)"
^XMB(3.9,115,2,92,0)="8989.51"
^XMB(3.9,115,2,93,0)="""BLD"",6673,""KRN"",8989.52,0)"
^XMB(3.9,115,2,94,0)="8989.52"
^XMB(3.9,115,2,95,0)="""BLD"",6673,""KRN"",8994,0)"
^XMB(3.9,115,2,96,0)="8994"
^XMB(3.9,115,2,97,0)="""BLD"",6673,""KRN"",""B"",.4,.4)"
^XMB(3.9,115,2,98,0)=""
^XMB(3.9,115,2,99,0)="""BLD"",6673,""KRN"",""B"",.401,.401)"
^XMB(3.9,115,2,100,0)=""
^XMB(3.9,115,2,101,0)="""BLD"",6673,""KRN"",""B"",.402,.402)"
^XMB(3.9,115,2,102,0)=""
^XMB(3.9,115,2,103,0)="""BLD"",6673,""KRN"",""B"",.403,.403)"
^XMB(3.9,115,2,104,0)=""
^XMB(3.9,115,2,105,0)="""BLD"",6673,""KRN"",""B"",.5,.5)"
^XMB(3.9,115,2,106,0)=""
^XMB(3.9,115,2,107,0)="""BLD"",6673,""KRN"",""B"",.84,.84)"
^XMB(3.9,115,2,108,0)=""
^XMB(3.9,115,2,109,0)="""BLD"",6673,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,115,2,110,0)=""
^XMB(3.9,115,2,111,0)="""BLD"",6673,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,115,2,112,0)=""
^XMB(3.9,115,2,113,0)="""BLD"",6673,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,115,2,114,0)=""
^XMB(3.9,115,2,115,0)="""BLD"",6673,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,115,2,116,0)=""
^XMB(3.9,115,2,117,0)="""BLD"",6673,""KRN"",""B"",19,19)"
^XMB(3.9,115,2,118,0)=""
^XMB(3.9,115,2,119,0)="""BLD"",6673,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,115,2,120,0)=""
^XMB(3.9,115,2,121,0)="""BLD"",6673,""KRN"",""B"",101,101)"
^XMB(3.9,115,2,122,0)=""
^XMB(3.9,115,2,123,0)="""BLD"",6673,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,115,2,124,0)=""
^XMB(3.9,115,2,125,0)="""BLD"",6673,""KRN"",""B"",771,771)"
^XMB(3.9,115,2,126,0)=""
^XMB(3.9,115,2,127,0)="""BLD"",6673,""KRN"",""B"",870,870)"
^XMB(3.9,115,2,128,0)=""
^XMB(3.9,115,2,129,0)="""BLD"",6673,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,115,2,130,0)=""
^XMB(3.9,115,2,131,0)="""BLD"",6673,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,115,2,132,0)=""
^XMB(3.9,115,2,133,0)="""BLD"",6673,""KRN"",""B"",8994,8994)"
^XMB(3.9,115,2,134,0)=""
^XMB(3.9,115,2,135,0)="""BLD"",6673,""QUES"",0)"
^XMB(3.9,115,2,136,0)="^9.62^^"
^XMB(3.9,115,2,137,0)="""BLD"",6673,""REQB"",0)"
^XMB(3.9,115,2,138,0)="^9.611^2^2"
^XMB(3.9,115,2,139,0)="""BLD"",6673,""REQB"",1,0)"
^XMB(3.9,115,2,140,0)="PSS*1.0*59^2"
^XMB(3.9,115,2,141,0)="""BLD"",6673,""REQB"",2,0)"
^XMB(3.9,115,2,142,0)="PSS*1.0*90^2"
^XMB(3.9,115,2,143,0)="""BLD"",6673,""REQB"",""B"",""PSS*1.0*59"",1)"
^XMB(3.9,115,2,144,0)=""
^XMB(3.9,115,2,145,0)="""BLD"",6673,""REQB"",""B"",""PSS*1.0*90"",2)"
^XMB(3.9,115,2,146,0)=""
^XMB(3.9,115,2,147,0)="""FIA"",51)"
^XMB(3.9,115,2,148,0)="MEDICATION INSTRUCTION"
^XMB(3.9,115,2,149,0)="""FIA"",51,0)"
^XMB(3.9,115,2,150,0)="^PS(51,"
^XMB(3.9,115,2,151,0)="""FIA"",51,0,0)"
^XMB(3.9,115,2,152,0)="51I"
^XMB(3.9,115,2,153,0)="""FIA"",51,0,1)"
^XMB(3.9,115,2,154,0)="y^n^p^^^^n^^n"
^XMB(3.9,115,2,155,0)="""FIA"",51,0,10)"
^XMB(3.9,115,2,156,0)=""
^XMB(3.9,115,2,157,0)="""FIA"",51,0,11)"
^XMB(3.9,115,2,158,0)=""
^XMB(3.9,115,2,159,0)="""FIA"",51,0,""RLRO"")"
^XMB(3.9,115,2,160,0)=""
^XMB(3.9,115,2,161,0)="""FIA"",51,0,""VR"")"
^XMB(3.9,115,2,162,0)="1.0^PSS"
^XMB(3.9,115,2,163,0)="""FIA"",51,51)"
^XMB(3.9,115,2,164,0)="1"
^XMB(3.9,115,2,165,0)="""FIA"",51,51,.01)"
^XMB(3.9,115,2,166,0)=""
^XMB(3.9,115,2,167,0)="""INIT"")"
^XMB(3.9,115,2,168,0)="EN^PSSP110"
^XMB(3.9,115,2,169,0)="""MBREQ"")"
^XMB(3.9,115,2,170,0)="0"
^XMB(3.9,115,2,171,0)="""PKG"",488,-1)"
^XMB(3.9,115,2,172,0)="1^1"
^XMB(3.9,115,2,173,0)="""PKG"",488,0)"
^XMB(3.9,115,2,174,0)="PHARMACY DATA MANAGEMENT^PSS^Maintenance of Pharmacy files."
^XMB(3.9,115,2,175,0)="""PKG"",488,20,0)"
^XMB(3.9,115,2,176,0)="^9.402P^^"
^XMB(3.9,115,2,177,0)="""PKG"",488,22,0)"
^XMB(3.9,115,2,178,0)="^9.49I^1^1"
^XMB(3.9,115,2,179,0)="""PKG"",488,22,1,0)"
^XMB(3.9,115,2,180,0)="1.0^2970930^3000316^66481"
^XMB(3.9,115,2,181,0)="""PKG"",488,22,1,""PAH"",1,0)"
^XMB(3.9,115,2,182,0)="110^3060614"
^XMB(3.9,115,2,183,0)="""PKG"",488,22,1,""PAH"",1,1,0)"
^XMB(3.9,115,2,184,0)="^^3^3^3060614"
^XMB(3.9,115,2,185,0)="""PKG"",488,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,115,2,186,0)="1) Only allow uppercase alphabet for the NAME field in files #51.1"
^XMB(3.9,115,2,187,0)="""PKG"",488,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,115,2,188,0)="and #51."
^XMB(3.9,115,2,189,0)="""PKG"",488,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,115,2,190,0)="2) Allow elligible drugs to be marked for 'OP External Dispense'."
^XMB(3.9,115,2,191,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,115,2,192,0)="Y"
^XMB(3.9,115,2,193,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,115,2,194,0)="^D REP^XPDH"
^XMB(3.9,115,2,195,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,115,2,196,0)="Shall I write over your |FLAG| File"
^XMB(3.9,115,2,197,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,115,2,198,0)="YES"
^XMB(3.9,115,2,199,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,115,2,200,0)="D XPF1^XPDIQ"
^XMB(3.9,115,2,201,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,115,2,202,0)="Y"
^XMB(3.9,115,2,203,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,115,2,204,0)="^D DTA^XPDH"
^XMB(3.9,115,2,205,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,115,2,206,0)="Want my data |FLAG| yours"
^XMB(3.9,115,2,207,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,115,2,208,0)="YES"
^XMB(3.9,115,2,209,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,115,2,210,0)="D XPF2^XPDIQ"
^XMB(3.9,115,2,211,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,115,2,212,0)="YO"
^XMB(3.9,115,2,213,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,115,2,214,0)="^D INHIBIT^XPDH"
^XMB(3.9,115,2,215,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,115,2,216,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,115,2,217,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,115,2,218,0)="YES"
^XMB(3.9,115,2,219,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,115,2,220,0)="D XPI1^XPDIQ"
^XMB(3.9,115,2,221,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,115,2,222,0)="PO^VA(200,:EM"
^XMB(3.9,115,2,223,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,115,2,224,0)="^D MG^XPDH"
^XMB(3.9,115,2,225,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,115,2,226,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,115,2,227,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,115,2,228,0)=""
^XMB(3.9,115,2,229,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,115,2,230,0)="D XPM1^XPDIQ"
^XMB(3.9,115,2,231,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,115,2,232,0)="Y"
^XMB(3.9,115,2,233,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,115,2,234,0)="^D MENU^XPDH"
^XMB(3.9,115,2,235,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,115,2,236,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,115,2,237,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,115,2,238,0)="YES"
^XMB(3.9,115,2,239,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,115,2,240,0)="D XPO1^XPDIQ"
^XMB(3.9,115,2,241,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,115,2,242,0)="Y"
^XMB(3.9,115,2,243,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,115,2,244,0)="^D OPT^XPDH"
^XMB(3.9,115,2,245,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,115,2,246,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,115,2,247,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,115,2,248,0)="YES"
^XMB(3.9,115,2,249,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,115,2,250,0)="D XPZ1^XPDIQ"
^XMB(3.9,115,2,251,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,115,2,252,0)="Y"
^XMB(3.9,115,2,253,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,115,2,254,0)="^D RTN^XPDH"
^XMB(3.9,115,2,255,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,115,2,256,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,115,2,257,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,115,2,258,0)="NO"
^XMB(3.9,115,2,259,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,115,2,260,0)="D XPZ2^XPDIQ"
^XMB(3.9,115,2,261,0)="""RTN"")"
^XMB(3.9,115,2,262,0)="3"
^XMB(3.9,115,2,263,0)="""RTN"",""PSSDEE"")"
^XMB(3.9,115,2,264,0)="0^3^B91898198^B90165251"
^XMB(3.9,115,2,265,0)="""RTN"",""PSSDEE"",1,0)"
^XMB(3.9,115,2,266,0)="PSSDEE ;BIR/WRT-MASTER DRUG ENTER/EDIT ROUTINE ;01/21/00"
^XMB(3.9,115,2,267,0)="""RTN"",""PSSDEE"",2,0)"
^XMB(3.9,115,2,268,0)=" ;;1.0;PHARMACY DATA MANAGEMENT;**3,5,15,16,20,22,28,32,34,33,38,57,47,68,61,82,90,110**;9/30/97"
^XMB(3.9,115,2,269,0)="""RTN"",""PSSDEE"",3,0)"
^XMB(3.9,115,2,270,0)=" ;"
^XMB(3.9,115,2,271,0)="""RTN"",""PSSDEE"",4,0)"
^XMB(3.9,115,2,272,0)=" ;Reference to ^PS(59 supported by DBIA #1976"
^XMB(3.9,115,2,273,0)="""RTN"",""PSSDEE"",5,0)"
^XMB(3.9,115,2,274,0)=" ;Reference to REACT1^PSNOUT supported by DBIA #2080"
^XMB(3.9,115,2,275,0)="""RTN"",""PSSDEE"",6,0)"
^XMB(3.9,115,2,276,0)=" ;Reference to $$UP^XLFSTR(X) supported by DBIA #10104"
^XMB(3.9,115,2,277,0)="""RTN"",""PSSDEE"",7,0)"
^XMB(3.9,115,2,278,0)=" ;Reference to $$PSJDF^PSNAPIS(P1,P3) supported by DBIA #2531"
^XMB(3.9,115,2,279,0)="""RTN"",""PSSDEE"",8,0)"
^XMB(3.9,115,2,280,0)=" ;"
^XMB(3.9,115,2,281,0)="""RTN"",""PSSDEE"",9,0)"
^XMB(3.9,115,2,282,0)="BEGIN S PSSFLAG=0 D ^PSSDEE2 S PSSZ=1 F PSSXX=1:1 K DA D ASK Q:PSSFLAG"
^XMB(3.9,115,2,283,0)="""RTN"",""PSSDEE"",10,0)"
^XMB(3.9,115,2,284,0)="DONE D ^PSSDEE2 K PSSFLAG Q"
^XMB(3.9,115,2,285,0)="""RTN"",""PSSDEE"",11,0)"
^XMB(3.9,115,2,286,0)="ASK W ! S DIC=""^PSDRUG("",DIC(0)=""QEALMNTV"",DLAYGO=50,DIC(""T"")="""" D ^DIC K DIC I Y<0 S PSSFLAG=1 Q"
^XMB(3.9,115,2,287,0)="""RTN"",""PSSDEE"",12,0)"
^XMB(3.9,115,2,288,0)=" S (FLG1,FLG2,FLG3,FLG4,FLG5,FLG6,FLG7,FLAG,FLGKY,FLGOI)=0 K ^TMP($J,""ADD""),^TMP($J,""SOL"")"
^XMB(3.9,115,2,289,0)="""RTN"",""PSSDEE"",13,0)"
^XMB(3.9,115,2,290,0)=" S DA=+Y,DISPDRG=DA L +^PSDRUG(DISPDRG):0 I '$T W !,$C(7),""Another person is editing this one."" Q"
^XMB(3.9,115,2,291,0)="""RTN"",""PSSDEE"",14,0)"
^XMB(3.9,115,2,292,0)=" S PSSHUIDG=1,PSSNEW=$P(Y,""^"",3) D USE,NOPE,COMMON,DEA,MF K PSSHUIDG"
^XMB(3.9,115,2,293,0)="""RTN"",""PSSDEE"",15,0)"
^XMB(3.9,115,2,294,0)=" ; if any outpatient site has a dispense machine running HL7 V.2.4, then"
^XMB(3.9,115,2,295,0)="""RTN"",""PSSDEE"",16,0)"
^XMB(3.9,115,2,296,0)=" ; run the new routine and create message"
^XMB(3.9,115,2,297,0)="""RTN"",""PSSDEE"",17,0)"
^XMB(3.9,115,2,298,0)=" N XX,DNSNAM,DNSPORT,DVER,DMFU S XX="""""
^XMB(3.9,115,2,299,0)="""RTN"",""PSSDEE"",18,0)"
^XMB(3.9,115,2,300,0)=" F XX=0:0 S XX=$O(^PS(59,XX)) Q:'XX  D"
^XMB(3.9,115,2,301,0)="""RTN"",""PSSDEE"",19,0)"
^XMB(3.9,115,2,302,0)=" .S DVER=$$GET1^DIQ(59,XX_"","",105,""I""),DMFU=$$GET1^DIQ(59,XX_"","",105.2)"
^XMB(3.9,115,2,303,0)="""RTN"",""PSSDEE"",20,0)"
^XMB(3.9,115,2,304,0)=" .S DNSNAM=$$GET1^DIQ(59,XX_"","",2006),DNSPORT=$$GET1^DIQ(59,XX_"","",2007)"
^XMB(3.9,115,2,305,0)="""RTN"",""PSSDEE"",21,0)"
^XMB(3.9,115,2,306,0)=" .D:DVER=""2.4""&(DNSNAM'="""")&(DMFU=""YES"") DRG^PSSDGUPD(DISPDRG,PSSNEW,DNSNAM,DNSPORT)"
^XMB(3.9,115,2,307,0)="""RTN"",""PSSDEE"",22,0)"
^XMB(3.9,115,2,308,0)=" D DRG^PSSHUIDG(DISPDRG,PSSNEW) L -^PSDRUG(DISPDRG) K FLG3,PSSNEW"
^XMB(3.9,115,2,309,0)="""RTN"",""PSSDEE"",23,0)"
^XMB(3.9,115,2,310,0)=" Q"
^XMB(3.9,115,2,311,0)="""RTN"",""PSSDEE"",24,0)"
^XMB(3.9,115,2,312,0)="COMMON S DIE=""^PSDRUG("",DR=""[PSSCOMMON]"" D ^DIE Q:$D(Y)!($D(DTOUT))  W:'$D(Y) !,""PRICE PER DISPENSE UNIT: "" S:'$D(^PSDRUG(DA,660)) $P(^PSDRUG(DA,660),""^"",6)="""" W:'$D(Y) $P(^PSDRUG(DA,660),""^"",6)"
^XMB(3.9,115,2,313,0)="""RTN"",""PSSDEE"",25,0)"
^XMB(3.9,115,2,314,0)=" D DEA,CK,ASKND,OIKILL^PSSDEE1,COMMON1"
^XMB(3.9,115,2,315,0)="""RTN"",""PSSDEE"",26,0)"
^XMB(3.9,115,2,316,0)=" Q"
^XMB(3.9,115,2,317,0)="""RTN"",""PSSDEE"",27,0)"
^XMB(3.9,115,2,318,0)="COMMON1 W !,""Just a reminder...you are editing "",$P(^PSDRUG(DISPDRG,0),""^""),""."" S (PSSVVDA,DA)=DISPDRG D DOSN^PSSDOS S DA=PSSVVDA K PSSVVDA D USE,APP,ORDITM^PSSDEE1"
^XMB(3.9,115,2,319,0)="""RTN"",""PSSDEE"",28,0)"
^XMB(3.9,115,2,320,0)=" Q"
^XMB(3.9,115,2,321,0)="""RTN"",""PSSDEE"",29,0)"
^XMB(3.9,115,2,322,0)="CK D DSPY^PSSDEE1 S FLGNDF=0"
^XMB(3.9,115,2,323,0)="""RTN"",""PSSDEE"",30,0)"
^XMB(3.9,115,2,324,0)=" Q"
^XMB(3.9,115,2,325,0)="""RTN"",""PSSDEE"",31,0)"
^XMB(3.9,115,2,326,0)="ASKND S %=-1 I $D(^XUSEC(""PSNMGR"",DUZ)) D MESSAGE^PSSDEE1 W !!,""Do you wish to match/rematch to NATIONAL DRUG file"" S %=1 S:FLGMTH=1 %=2 D YN^DICN"
^XMB(3.9,115,2,327,0)="""RTN"",""PSSDEE"",32,0)"
^XMB(3.9,115,2,328,0)=" I %=0 W !,""If you answer """"yes"""", you will attempt to match to NDF."" G ASKND"
^XMB(3.9,115,2,329,0)="""RTN"",""PSSDEE"",33,0)"
^XMB(3.9,115,2,330,0)=" I %=2 K X,Y Q"
^XMB(3.9,115,2,331,0)="""RTN"",""PSSDEE"",34,0)"
^XMB(3.9,115,2,332,0)=" I %<0 K X,Y Q"
^XMB(3.9,115,2,333,0)="""RTN"",""PSSDEE"",35,0)"
^XMB(3.9,115,2,334,0)=" I %=1 D RSET^PSSDEE1,EN1^PSSUTIL(DISPDRG,1) S X=""PSNOUT"" X ^%ZOSF(""TEST"") I  D REACT1^PSNOUT S DA=DISPDRG I $D(^PSDRUG(DA,""ND"")),$P(^PSDRUG(DA,""ND""),""^"",2)]"""" D ONE"
^XMB(3.9,115,2,335,0)="""RTN"",""PSSDEE"",36,0)"
^XMB(3.9,115,2,336,0)=" Q"
^XMB(3.9,115,2,337,0)="""RTN"",""PSSDEE"",37,0)"
^XMB(3.9,115,2,338,0)="ONE S PSNP=$G(^PSDRUG(DA,""I"")) I PSNP,PSNP<DT Q"
^XMB(3.9,115,2,339,0)="""RTN"",""PSSDEE"",38,0)"
^XMB(3.9,115,2,340,0)=" W !,""You have just VERIFIED this match and MERGED the entry."" D CKDF D EN2^PSSUTIL(DISPDRG,1) S:'$D(OLDDF) OLDDF="""" I OLDDF'=NEWDF S FLGNDF=1 D WR"
^XMB(3.9,115,2,341,0)="""RTN"",""PSSDEE"",39,0)"
^XMB(3.9,115,2,342,0)=" Q"
^XMB(3.9,115,2,343,0)="""RTN"",""PSSDEE"",40,0)"
^XMB(3.9,115,2,344,0)="CKDF S NWND=^PSDRUG(DA,""ND""),NWPC1=$P(NWND,""^"",1),NWPC3=$P(NWND,""^"",3),DA=NWPC1,K=NWPC3 S X=$$PSJDF^PSNAPIS(DA,K) S NEWDF=$P(X,""^"",2),DA=DISPDRG"
^XMB(3.9,115,2,345,0)="""RTN"",""PSSDEE"",41,0)"
^XMB(3.9,115,2,346,0)=" N PSSK D PKIND^PSSDDUT2"
^XMB(3.9,115,2,347,0)="""RTN"",""PSSDEE"",42,0)"
^XMB(3.9,115,2,348,0)=" Q"
^XMB(3.9,115,2,349,0)="""RTN"",""PSSDEE"",43,0)"
^XMB(3.9,115,2,350,0)="NOPE S ZAPFLG=0 I '$D(^PSDRUG(DA,""ND"")),$D(^PSDRUG(DA,2)),$P(^PSDRUG(DA,2),""^"",1)']"""" D DFNULL"
^XMB(3.9,115,2,351,0)="""RTN"",""PSSDEE"",44,0)"
^XMB(3.9,115,2,352,0)=" I '$D(^PSDRUG(DA,""ND"")),'$D(^PSDRUG(DA,2)) D DFNULL"
^XMB(3.9,115,2,353,0)="""RTN"",""PSSDEE"",45,0)"
^XMB(3.9,115,2,354,0)=" I $D(^PSDRUG(DA,""ND"")),$P(^PSDRUG(DA,""ND""),""^"",2)']"""",$D(^PSDRUG(DA,2)),$P(^PSDRUG(DA,2),""^"",1)']"""" D DFNULL"
^XMB(3.9,115,2,355,0)="""RTN"",""PSSDEE"",46,0)"
^XMB(3.9,115,2,356,0)=" Q"
^XMB(3.9,115,2,357,0)="""RTN"",""PSSDEE"",47,0)"
^XMB(3.9,115,2,358,0)="DFNULL S OLDDF="""",ZAPFLG=1"
^XMB(3.9,115,2,359,0)="""RTN"",""PSSDEE"",48,0)"
^XMB(3.9,115,2,360,0)=" Q"
^XMB(3.9,115,2,361,0)="""RTN"",""PSSDEE"",49,0)"
^XMB(3.9,115,2,362,0)="ZAPIT I $D(ZAPFLG),ZAPFLG=1,FLGNDF=1,OLDDF'=NEWDF D CKIV^PSSDEE1"
^XMB(3.9,115,2,363,0)="""RTN"",""PSSDEE"",50,0)"
^XMB(3.9,115,2,364,0)=" Q"
^XMB(3.9,115,2,365,0)="""RTN"",""PSSDEE"",51,0)"
^XMB(3.9,115,2,366,0)="APP W !!,""MARK THIS DRUG AND EDIT IT FOR: "" D CHOOSE"
^XMB(3.9,115,2,367,0)="""RTN"",""PSSDEE"",52,0)"
^XMB(3.9,115,2,368,0)=" Q"
^XMB(3.9,115,2,369,0)="""RTN"",""PSSDEE"",53,0)"
^XMB(3.9,115,2,370,0)="CHOOSE I $D(^XUSEC(""PSORPH"",DUZ))!($D(^XUSEC(""PSXCMOPMGR"",DUZ))) W !,""O  - Outpatient"" S FLG1=1"
^XMB(3.9,115,2,371,0)="""RTN"",""PSSDEE"",54,0)"
^XMB(3.9,115,2,372,0)=" I $D(^XUSEC(""PSJU MGR"",DUZ)) W !,""U  - Unit Dose"" S FLG2=1"
^XMB(3.9,115,2,373,0)="""RTN"",""PSSDEE"",55,0)"
^XMB(3.9,115,2,374,0)=" I $D(^XUSEC(""PSJI MGR"",DUZ)) W !,""I  - IV"" S FLG3=1"
^XMB(3.9,115,2,375,0)="""RTN"",""PSSDEE"",56,0)"
^XMB(3.9,115,2,376,0)=" I $D(^XUSEC(""PSGWMGR"",DUZ)) W !,""W  - Ward Stock"" S FLG4=1"
^XMB(3.9,115,2,377,0)="""RTN"",""PSSDEE"",57,0)"
^XMB(3.9,115,2,378,0)=" I $D(^XUSEC(""PSAMGR"",DUZ))!($D(^XUSEC(""PSA ORDERS"",DUZ))) W !,""D  - Drug Accountability"" S FLG5=1"
^XMB(3.9,115,2,379,0)="""RTN"",""PSSDEE"",58,0)"
^XMB(3.9,115,2,380,0)=" I $D(^XUSEC(""PSDMGR"",DUZ)) W !,""C  - Controlled Substances"" S FLG6=1"
^XMB(3.9,115,2,381,0)="""RTN"",""PSSDEE"",59,0)"
^XMB(3.9,115,2,382,0)=" I $D(^XUSEC(""PSORPH"",DUZ)) W !,""X  - Non-VA Med"" S FLG7=1"
^XMB(3.9,115,2,383,0)="""RTN"",""PSSDEE"",60,0)"
^XMB(3.9,115,2,384,0)=" I FLG1,FLG2,FLG3,FLG4,FLG5,FLG6 S FLAG=1"
^XMB(3.9,115,2,385,0)="""RTN"",""PSSDEE"",61,0)"
^XMB(3.9,115,2,386,0)=" I FLAG W !,""A  - ALL"""
^XMB(3.9,115,2,387,0)="""RTN"",""PSSDEE"",62,0)"
^XMB(3.9,115,2,388,0)=" W !"
^XMB(3.9,115,2,389,0)="""RTN"",""PSSDEE"",63,0)"
^XMB(3.9,115,2,390,0)=" I 'FLG1,'FLG2,'FLG3,'FLG4,'FLG5,'FLG6,'FLG7 W !,""You do not have the proper keys to continue. Sorry, this concludes your editing session."",! S FLGKY=1 K DIRUT,X Q"
^XMB(3.9,115,2,391,0)="""RTN"",""PSSDEE"",64,0)"
^XMB(3.9,115,2,392,0)=" I FLGKY'=1 D"
^XMB(3.9,115,2,393,0)="""RTN"",""PSSDEE"",65,0)"
^XMB(3.9,115,2,394,0)=" . K DIR S DIR(0)=""FO^1:30"""
^XMB(3.9,115,2,395,0)="""RTN"",""PSSDEE"",66,0)"
^XMB(3.9,115,2,396,0)=" . S DIR(""A"")=""Enter your choice(s) separated by commas """
^XMB(3.9,115,2,397,0)="""RTN"",""PSSDEE"",67,0)"
^XMB(3.9,115,2,398,0)=" . F  D ^DIR Q:$$CHECK($$UP^XLFSTR(X))"
^XMB(3.9,115,2,399,0)="""RTN"",""PSSDEE"",68,0)"
^XMB(3.9,115,2,400,0)=" . S PSSANS=X,PSSANS=$$UP^XLFSTR(PSSANS) D BRANCH,BRANCH1"
^XMB(3.9,115,2,401,0)="""RTN"",""PSSDEE"",69,0)"
^XMB(3.9,115,2,402,0)=" Q"
^XMB(3.9,115,2,403,0)="""RTN"",""PSSDEE"",70,0)"
^XMB(3.9,115,2,404,0)=" ;"
^XMB(3.9,115,2,405,0)="""RTN"",""PSSDEE"",71,0)"
^XMB(3.9,115,2,406,0)="CHECK(X) ; Validates Application Use response"
^XMB(3.9,115,2,407,0)="""RTN"",""PSSDEE"",72,0)"
^XMB(3.9,115,2,408,0)=" N CHECK,I,C"
^XMB(3.9,115,2,409,0)="""RTN"",""PSSDEE"",73,0)"
^XMB(3.9,115,2,410,0)=" S CHECK=1 I X=""""!(Y[""^"")!($D(DIRUT)) Q CHECK"
^XMB(3.9,115,2,411,0)="""RTN"",""PSSDEE"",74,0)"
^XMB(3.9,115,2,412,0)=" F I=1:1:$L(X,"","") D"
^XMB(3.9,115,2,413,0)="""RTN"",""PSSDEE"",75,0)"
^XMB(3.9,115,2,414,0)=" . S C=$P(X,"","",I) W !?43,C,"" - """
^XMB(3.9,115,2,415,0)="""RTN"",""PSSDEE"",76,0)"
^XMB(3.9,115,2,416,0)=" . I C=""O"",FLG1 W ""Outpatient"" Q"
^XMB(3.9,115,2,417,0)="""RTN"",""PSSDEE"",77,0)"
^XMB(3.9,115,2,418,0)=" . I C=""U"",FLG2 W ""Unit Dose"" Q"
^XMB(3.9,115,2,419,0)="""RTN"",""PSSDEE"",78,0)"
^XMB(3.9,115,2,420,0)=" . I C=""I"",FLG3 W ""IV"" Q"
^XMB(3.9,115,2,421,0)="""RTN"",""PSSDEE"",79,0)"
^XMB(3.9,115,2,422,0)=" . I C=""W"",FLG4 W ""Ward Stock"" Q"
^XMB(3.9,115,2,423,0)="""RTN"",""PSSDEE"",80,0)"
^XMB(3.9,115,2,424,0)=" . I C=""D"",FLG5 W ""Drug Accountability"" Q"
^XMB(3.9,115,2,425,0)="""RTN"",""PSSDEE"",81,0)"
^XMB(3.9,115,2,426,0)=" . I C=""C"",FLG6 W ""Controlled Substances"" Q"
^XMB(3.9,115,2,427,0)="""RTN"",""PSSDEE"",82,0)"
^XMB(3.9,115,2,428,0)=" . I C=""X"",FLG7 W ""Non-VA Med"" Q"
^XMB(3.9,115,2,429,0)="""RTN"",""PSSDEE"",83,0)"
^XMB(3.9,115,2,430,0)=" . W ""Invalid Entry"",$C(7) S CHECK=0"
^XMB(3.9,115,2,431,0)="""RTN"",""PSSDEE"",84,0)"
^XMB(3.9,115,2,432,0)=" Q CHECK"
^XMB(3.9,115,2,433,0)="""RTN"",""PSSDEE"",85,0)"
^XMB(3.9,115,2,434,0)="BRANCH D:PSSANS[""O"" OP D:PSSANS[""U"" UD D:PSSANS[""I"" IV D:PSSANS[""W"" WS"
^XMB(3.9,115,2,435,0)="""RTN"",""PSSDEE"",86,0)"
^XMB(3.9,115,2,436,0)=" D:PSSANS[""D"" DACCT D:PSSANS[""C"" CS D:PSSANS[""X"" NVM"
^XMB(3.9,115,2,437,0)="""RTN"",""PSSDEE"",87,0)"
^XMB(3.9,115,2,438,0)=" Q"
^XMB(3.9,115,2,439,0)="""RTN"",""PSSDEE"",88,0)"
^XMB(3.9,115,2,440,0)="BRANCH1 I FLAG,PSSANS[""A"" D OP,UD,IV,WS,DACCT,CS,NVM"
^XMB(3.9,115,2,441,0)="""RTN"",""PSSDEE"",89,0)"
^XMB(3.9,115,2,442,0)=" Q"
^XMB(3.9,115,2,443,0)="""RTN"",""PSSDEE"",90,0)"
^XMB(3.9,115,2,444,0)="OP I FLG1 D"
^XMB(3.9,115,2,445,0)="""RTN"",""PSSDEE"",91,0)"
^XMB(3.9,115,2,446,0)=" . W !,""** You are NOW editing OUTPATIENT fields. **"""
^XMB(3.9,115,2,447,0)="""RTN"",""PSSDEE"",92,0)"
^XMB(3.9,115,2,448,0)=" . S PSIUDA=DA,PSIUX=""O^Outpatient Pharmacy"" D ^PSSGIU"
^XMB(3.9,115,2,449,0)="""RTN"",""PSSDEE"",93,0)"
^XMB(3.9,115,2,450,0)=" . I %=1 D"
^XMB(3.9,115,2,451,0)="""RTN"",""PSSDEE"",94,0)"
^XMB(3.9,115,2,452,0)=" . . S DIE=""^PSDRUG("",DR=""[PSSOP]"" D ^DIE K DIR D OPEI,ASKCMOP"
^XMB(3.9,115,2,453,0)="""RTN"",""PSSDEE"",95,0)"
^XMB(3.9,115,2,454,0)=" . . S X=""PSOCLO1"" X ^%ZOSF(""TEST"") I  D ASKCLOZ S FLGOI=1"
^XMB(3.9,115,2,455,0)="""RTN"",""PSSDEE"",96,0)"
^XMB(3.9,115,2,456,0)=" I FLG1 D CKCMOP"
^XMB(3.9,115,2,457,0)="""RTN"",""PSSDEE"",97,0)"
^XMB(3.9,115,2,458,0)=" Q"
^XMB(3.9,115,2,459,0)="""RTN"",""PSSDEE"",98,0)"
^XMB(3.9,115,2,460,0)="CKCMOP I $P($G(^PSDRUG(DISPDRG,2)),""^"",3)'[""O"" S:$D(^PSDRUG(DISPDRG,3)) $P(^PSDRUG(DISPDRG,3),""^"",1)=0 K:$D(^PSDRUG(""AQ"",DISPDRG)) ^PSDRUG(""AQ"",DISPDRG) S DA=DISPDRG D ^PSSREF"
^XMB(3.9,115,2,461,0)="""RTN"",""PSSDEE"",99,0)"
^XMB(3.9,115,2,462,0)=" Q"
^XMB(3.9,115,2,463,0)="""RTN"",""PSSDEE"",100,0)"
^XMB(3.9,115,2,464,0)="UD I FLG2 W !,""** You are NOW editing UNIT DOSE fields. **"" S PSIUDA=DA,PSIUX=""U^Unit Dose"" D ^PSSGIU I %=1 S DIE=""^PSDRUG("",DR=""62.05;212.2"" D ^DIE S DIE=""^PSDRUG("",DR=""212"",DR(2,50.0212)="".01;1"" D ^DIE S FLGOI=1"
^XMB(3.9,115,2,465,0)="""RTN"",""PSSDEE"",101,0)"
^XMB(3.9,115,2,466,0)=" Q"
^XMB(3.9,115,2,467,0)="""RTN"",""PSSDEE"",102,0)"
^XMB(3.9,115,2,468,0)="IV I FLG3 W !,""** You are NOW editing IV fields. **"" S (PSIUDA,PSSDA)=DA,PSIUX=""I^IV"" D ^PSSGIU I %=1 D IV1 S FLGOI=1"
^XMB(3.9,115,2,469,0)="""RTN"",""PSSDEE"",103,0)"
^XMB(3.9,115,2,470,0)=" Q"
^XMB(3.9,115,2,471,0)="""RTN"",""PSSDEE"",104,0)"
^XMB(3.9,115,2,472,0)="IV1 K PSSIVOUT ;This variable controls the selection process loop."
^XMB(3.9,115,2,473,0)="""RTN"",""PSSDEE"",105,0)"
^XMB(3.9,115,2,474,0)=" W !,""Edit Additives or Solutions: "" K DIR S DIR(0)=""SO^A:ADDITIVES;S:SOLUTIONS;"" D ^DIR Q:$D(DIRUT)  S PSSASK=Y(0) D:PSSASK=""ADDITIVES"" ENA^PSSVIDRG D:PSSASK=""SOLUTIONS"" ENS^PSSVIDRG I '$D(PSSIVOUT) G IV1"
^XMB(3.9,115,2,475,0)="""RTN"",""PSSDEE"",106,0)"
^XMB(3.9,115,2,476,0)=" K PSSIVOUT"
^XMB(3.9,115,2,477,0)="""RTN"",""PSSDEE"",107,0)"
^XMB(3.9,115,2,478,0)=" Q"
^XMB(3.9,115,2,479,0)="""RTN"",""PSSDEE"",108,0)"
^XMB(3.9,115,2,480,0)="WS I FLG4 W !,""** You are NOW editing WARD STOCK fields. **"" S DIE=""^PSDRUG("",DR=""300;301;302"" D ^DIE"
^XMB(3.9,115,2,481,0)="""RTN"",""PSSDEE"",109,0)"
^XMB(3.9,115,2,482,0)=" Q"
^XMB(3.9,115,2,483,0)="""RTN"",""PSSDEE"",110,0)"
^XMB(3.9,115,2,484,0)="DACCT I FLG5 W !,""** You are NOW editing DRUG ACCOUNTABILITY fields. **"" S DIE=""^PSDRUG("",DR=""441"" D ^DIE S DIE=""^PSDRUG("",DR=""9"",DR(2,50.1)=""1;2;400;401;402;403;404;405"" D ^DIE"
^XMB(3.9,115,2,485,0)="""RTN"",""PSSDEE"",111,0)"
^XMB(3.9,115,2,486,0)=" Q"
^XMB(3.9,115,2,487,0)="""RTN"",""PSSDEE"",112,0)"
^XMB(3.9,115,2,488,0)="CS I FLG6 W !,""** You are NOW Marking/Unmarking for CONTROLLED SUBS. **"" S PSIUDA=DA,PSIUX=""N^Controlled Substances"" D ^PSSGIU"
^XMB(3.9,115,2,489,0)="""RTN"",""PSSDEE"",113,0)"
^XMB(3.9,115,2,490,0)=" Q"
^XMB(3.9,115,2,491,0)="""RTN"",""PSSDEE"",114,0)"
^XMB(3.9,115,2,492,0)="NVM I FLG7 W !,""** You are NOW Marking/Unmarking for NON-VA MEDS. **"" S PSIUDA=DA,PSIUX=""X^Non-VA Med"" D ^PSSGIU"
^XMB(3.9,115,2,493,0)="""RTN"",""PSSDEE"",115,0)"
^XMB(3.9,115,2,494,0)=" Q"
^XMB(3.9,115,2,495,0)="""RTN"",""PSSDEE"",116,0)"
^XMB(3.9,115,2,496,0)="ASKCMOP I $D(^XUSEC(""PSXCMOPMGR"",DUZ)) W !!,""Do you wish to mark to transmit to CMOP? "" K DIR S DIR(0)=""Y"",DIR(""?"")=""If you answer """"yes"""", you will attempt to mark this drug to transmit to CMOP."""
^XMB(3.9,115,2,497,0)="""RTN"",""PSSDEE"",117,0)"
^XMB(3.9,115,2,498,0)=" D ^DIR I ""Nn""[X K X,Y,DIRUT Q"
^XMB(3.9,115,2,499,0)="""RTN"",""PSSDEE"",118,0)"
^XMB(3.9,115,2,500,0)=" I ""Yy""[X S PSXFL=0 D TEXT^PSSMARK H 7 N PSXUDA S (PSXUM,PSXUDA)=DA,PSXLOC=$P(^PSDRUG(DA,0),""^""),PSXGOOD=0,PSXF=0,PSXBT=0 D BLD^PSSMARK,PICK2^PSSMARK S DA=PSXUDA"
^XMB(3.9,115,2,501,0)="""RTN"",""PSSDEE"",119,0)"
^XMB(3.9,115,2,502,0)=" Q"
^XMB(3.9,115,2,503,0)="""RTN"",""PSSDEE"",120,0)"
^XMB(3.9,115,2,504,0)="ASKCLOZ W !!,""Do you wish to mark/unmark as a LAB MONITOR or CLOZAPINE DRUG? "" K DIR S DIR(0)=""Y"",DIR(""?"")=""If you answer """"yes"""", you will have the opportunity to edit LAB MONITOR or CLOZAPINE fields."""
^XMB(3.9,115,2,505,0)="""RTN"",""PSSDEE"",121,0)"
^XMB(3.9,115,2,506,0)=" D ^DIR I ""Nn""[X K X,Y,DIRUT Q"
^XMB(3.9,115,2,507,0)="""RTN"",""PSSDEE"",122,0)"
^XMB(3.9,115,2,508,0)=" I ""Yy""[X S NFLAG=0 D MONCLOZ"
^XMB(3.9,115,2,509,0)="""RTN"",""PSSDEE"",123,0)"
^XMB(3.9,115,2,510,0)=" Q"
^XMB(3.9,115,2,511,0)="""RTN"",""PSSDEE"",124,0)"
^XMB(3.9,115,2,512,0)="MONCLOZ K PSSAST D FLASH W !,""Mark/Unmark for Lab Monitor or Clozapine: "" K DIR S DIR(0)=""S^L:LAB MONITOR;C:CLOZAPINE;"" D ^DIR Q:$D(DIRUT)  S PSSAST=Y(0) D:PSSAST=""LAB MONITOR"" ^PSSLAB D:PSSAST=""CLOZAPINE"" CLOZ"
^XMB(3.9,115,2,513,0)="""RTN"",""PSSDEE"",125,0)"
^XMB(3.9,115,2,514,0)=" Q"
^XMB(3.9,115,2,515,0)="""RTN"",""PSSDEE"",126,0)"
^XMB(3.9,115,2,516,0)="FLASH K LMFLAG,CLFALG,WHICH S WHICH=$P($G(^PSDRUG(DISPDRG,""CLOZ1"")),""^""),LMFLAG=0,CLFLAG=0"
^XMB(3.9,115,2,517,0)="""RTN"",""PSSDEE"",127,0)"
^XMB(3.9,115,2,518,0)=" I WHICH=""PSOCLO1"" S CLFLAG=1"
^XMB(3.9,115,2,519,0)="""RTN"",""PSSDEE"",128,0)"
^XMB(3.9,115,2,520,0)=" I WHICH'=""PSOCLO1"" S:WHICH'="""" LMFLAG=1"
^XMB(3.9,115,2,521,0)="""RTN"",""PSSDEE"",129,0)"
^XMB(3.9,115,2,522,0)=" Q"
^XMB(3.9,115,2,523,0)="""RTN"",""PSSDEE"",130,0)"
^XMB(3.9,115,2,524,0)="CLOZ Q:NFLAG  Q:$D(DTOUT)  Q:$D(DIRUT)  Q:$D(DUOUT)  W !,""** You are NOW editing CLOZAPINE fields. **"" D ^PSSCLDRG"
^XMB(3.9,115,2,525,0)="""RTN"",""PSSDEE"",131,0)"
^XMB(3.9,115,2,526,0)=" Q"
^XMB(3.9,115,2,527,0)="""RTN"",""PSSDEE"",132,0)"
^XMB(3.9,115,2,528,0)="USE K PACK S PACK="""" S:$P($G(^PSDRUG(DISPDRG,""PSG"")),""^"",2)]"""" PACK=""W"" I $D(^PSDRUG(DISPDRG,2)) S PACK=PACK_$P(^PSDRUG(DISPDRG,2),""^"",3)"
^XMB(3.9,115,2,529,0)="""RTN"",""PSSDEE"",133,0)"
^XMB(3.9,115,2,530,0)=" I PACK'="""" D"
^XMB(3.9,115,2,531,0)="""RTN"",""PSSDEE"",134,0)"
^XMB(3.9,115,2,532,0)=" .W $C(7) N XX W !! F XX=1:1:79 W ""*"""
^XMB(3.9,115,2,533,0)="""RTN"",""PSSDEE"",135,0)"
^XMB(3.9,115,2,534,0)=" .W !,""This entry is marked for the following PHARMACY packages: """
^XMB(3.9,115,2,535,0)="""RTN"",""PSSDEE"",136,0)"
^XMB(3.9,115,2,536,0)=" .D USE1"
^XMB(3.9,115,2,537,0)="""RTN"",""PSSDEE"",137,0)"
^XMB(3.9,115,2,538,0)=" Q"
^XMB(3.9,115,2,539,0)="""RTN"",""PSSDEE"",138,0)"
^XMB(3.9,115,2,540,0)="USE1 W:PACK[""O"" !,"" Outpatient"" W:PACK[""U"" !,"" Unit Dose"" W:PACK[""I"" !,"" IV"""
^XMB(3.9,115,2,541,0)="""RTN"",""PSSDEE"",139,0)"
^XMB(3.9,115,2,542,0)=" W:PACK[""W"" !,"" Ward Stock"" W:PACK[""D"" !,"" Drug Accountability"""
^XMB(3.9,115,2,543,0)="""RTN"",""PSSDEE"",140,0)"
^XMB(3.9,115,2,544,0)=" W:PACK[""N"" !,"" Controlled Substances"" W:PACK[""X"" !,"" Non-VA Med"""
^XMB(3.9,115,2,545,0)="""RTN"",""PSSDEE"",141,0)"
^XMB(3.9,115,2,546,0)=" W:'$D(PACK) !,"" NONE"""
^XMB(3.9,115,2,547,0)="""RTN"",""PSSDEE"",142,0)"
^XMB(3.9,115,2,548,0)=" I PACK'[""O"",PACK'[""U"",PACK'[""I"",PACK'[""W"",PACK'[""D"",PACK'[""N"",PACK'[""X"" W !,"" NONE"""
^XMB(3.9,115,2,549,0)="""RTN"",""PSSDEE"",143,0)"
^XMB(3.9,115,2,550,0)=" Q"
^XMB(3.9,115,2,551,0)="""RTN"",""PSSDEE"",144,0)"
^XMB(3.9,115,2,552,0)="WR I ^XMB(""NETNAME"")'[""CMOP-"" W:OLDDF'="""" !,""The dosage form has changed from ""_OLDDF_"" to ""_NEWDF_"" due to"",!,""matching/rematching to NDF."",!,""You will need to rematch to Orderable Item."",!"
^XMB(3.9,115,2,553,0)="""RTN"",""PSSDEE"",145,0)"
^XMB(3.9,115,2,554,0)=" Q"
^XMB(3.9,115,2,555,0)="""RTN"",""PSSDEE"",146,0)"
^XMB(3.9,115,2,556,0)="PRIMDRG I $D(^PS(59.7,1,20)),$P(^PS(59.7,1,20),""^"",1)=4!($P(^PS(59.7,1,20),""^"",1)=4.5) I $D(^PSDRUG(DISPDRG,2)) S VAR=$P(^PSDRUG(DISPDRG,2),""^"",3) I VAR[""U""!(VAR[""I"") D PRIM1"
^XMB(3.9,115,2,557,0)="""RTN"",""PSSDEE"",147,0)"
^XMB(3.9,115,2,558,0)=" Q"
^XMB(3.9,115,2,559,0)="""RTN"",""PSSDEE"",148,0)"
^XMB(3.9,115,2,560,0)="PRIM1 W !!,""You need to match this drug to """"PRIMARY DRUG"""" file as well."",! S DIE=""^PSDRUG("",DR=""64"",DA=DISPDRG D ^DIE K VAR"
^XMB(3.9,115,2,561,0)="""RTN"",""PSSDEE"",149,0)"
^XMB(3.9,115,2,562,0)=" Q"
^XMB(3.9,115,2,563,0)="""RTN"",""PSSDEE"",150,0)"
^XMB(3.9,115,2,564,0)="MF I $P($G(^PS(59.7,1,80)),""^"",2)>1 I $D(^PSDRUG(DISPDRG,2)) S PSSOR=$P(^PSDRUG(DISPDRG,2),""^"",1) I PSSOR]"""" D EN^PSSPOIDT(PSSOR),EN2^PSSHL1(PSSOR,""MUP"")"
^XMB(3.9,115,2,565,0)="""RTN"",""PSSDEE"",151,0)"
^XMB(3.9,115,2,566,0)=" Q"
^XMB(3.9,115,2,567,0)="""RTN"",""PSSDEE"",152,0)"
^XMB(3.9,115,2,568,0)="MFA I $P($G(^PS(59.7,1,80)),""^"",2)>1 S PSSOR=$P(^PS(52.6,ENTRY,0),""^"",11),PSSDD=$P(^PS(52.6,ENTRY,0),""^"",2) I PSSOR]"""" D EN^PSSPOIDT(PSSOR),EN2^PSSHL1(PSSOR,""MUP"") D MFDD"
^XMB(3.9,115,2,569,0)="""RTN"",""PSSDEE"",153,0)"
^XMB(3.9,115,2,570,0)=" Q"
^XMB(3.9,115,2,571,0)="""RTN"",""PSSDEE"",154,0)"
^XMB(3.9,115,2,572,0)="MFS I $P($G(^PS(59.7,1,80)),""^"",2)>1 S PSSOR=$P(^PS(52.7,ENTRY,0),""^"",11),PSSDD=$P(^PS(52.7,ENTRY,0),""^"",2) I PSSOR]"""" D EN^PSSPOIDT(PSSOR),EN2^PSSHL1(PSSOR,""MUP"") D MFDD"
^XMB(3.9,115,2,573,0)="""RTN"",""PSSDEE"",155,0)"
^XMB(3.9,115,2,574,0)=" Q"
^XMB(3.9,115,2,575,0)="""RTN"",""PSSDEE"",156,0)"
^XMB(3.9,115,2,576,0)="MFDD I $D(^PSDRUG(PSSDD,2)) S PSSOR=$P(^PSDRUG(PSSDD,2),""^"",1) I PSSOR]"""" D EN^PSSPOIDT(PSSOR),EN2^PSSHL1(PSSOR,""MUP"")"
^XMB(3.9,115,2,577,0)="""RTN"",""PSSDEE"",157,0)"
^XMB(3.9,115,2,578,0)=" Q"
^XMB(3.9,115,2,579,0)="""RTN"",""PSSDEE"",158,0)"
^XMB(3.9,115,2,580,0)="OPEI N PSDRUGND"
^XMB(3.9,115,2,581,0)="""RTN"",""PSSDEE"",159,0)"
^XMB(3.9,115,2,582,0)=" S PSDRUGND=$G(^PSDRUG(DISPDRG,""ND""))"
^XMB(3.9,115,2,583,0)="""RTN"",""PSSDEE"",160,0)"
^XMB(3.9,115,2,584,0)=" I PSDRUGND']"""" Q"
^XMB(3.9,115,2,585,0)="""RTN"",""PSSDEE"",161,0)"
^XMB(3.9,115,2,586,0)=" I $P(PSDRUGND,""^"",3)']"""",$P(PSDRUGND,""^"",10)']"""" Q"
^XMB(3.9,115,2,587,0)="""RTN"",""PSSDEE"",162,0)"
^XMB(3.9,115,2,588,0)=" I $P(PSDRUGND,""^"",10)]"""" G OPEI1"
^XMB(3.9,115,2,589,0)="""RTN"",""PSSDEE"",163,0)"
^XMB(3.9,115,2,590,0)=" I $P($G(^PSNDF(50.68,$P(PSDRUGND,""^"",3),1)),""^"",2)]"""" G OPEI1"
^XMB(3.9,115,2,591,0)="""RTN"",""PSSDEE"",164,0)"
^XMB(3.9,115,2,592,0)=" Q"
^XMB(3.9,115,2,593,0)="""RTN"",""PSSDEE"",165,0)"
^XMB(3.9,115,2,594,0)="OPEI1 ;"
^XMB(3.9,115,2,595,0)="""RTN"",""PSSDEE"",166,0)"
^XMB(3.9,115,2,596,0)=" S DIE=""^PSDRUG("",DR=""28"",DA=DISPDRG"
^XMB(3.9,115,2,597,0)="""RTN"",""PSSDEE"",167,0)"
^XMB(3.9,115,2,598,0)=" D ^DIE"
^XMB(3.9,115,2,599,0)="""RTN"",""PSSDEE"",168,0)"
^XMB(3.9,115,2,600,0)=" Q"
^XMB(3.9,115,2,601,0)="""RTN"",""PSSDEE"",169,0)"
^XMB(3.9,115,2,602,0)="DEA ;"
^XMB(3.9,115,2,603,0)="""RTN"",""PSSDEE"",170,0)"
^XMB(3.9,115,2,604,0)=" I $P($G(^PSDRUG(DISPDRG,3)),""^"")=1,($P(^PSDRUG(DISPDRG,0),""^"",3)[1!($P(^(0),""^"",3)[2)) D DSH"
^XMB(3.9,115,2,605,0)="""RTN"",""PSSDEE"",171,0)"
^XMB(3.9,115,2,606,0)=" Q"
^XMB(3.9,115,2,607,0)="""RTN"",""PSSDEE"",172,0)"
^XMB(3.9,115,2,608,0)="DSH W !!,""****************************************************************************"""
^XMB(3.9,115,2,609,0)="""RTN"",""PSSDEE"",173,0)"
^XMB(3.9,115,2,610,0)=" W !,""This entry contains a """"1"""" or a """"2"""" in the """"DEA, SPECIAL HDLG"""""",!,""field, therefore this item has been UNMARKED for CMOP transmission."""
^XMB(3.9,115,2,611,0)="""RTN"",""PSSDEE"",174,0)"
^XMB(3.9,115,2,612,0)=" W !,""****************************************************************************"",! S $P(^PSDRUG(DISPDRG,3),""^"")=0 K ^PSDRUG(""AQ"",DISPDRG) S DA=DISPDRG N % D ^PSSREF"
^XMB(3.9,115,2,613,0)="""RTN"",""PSSDEE"",175,0)"
^XMB(3.9,115,2,614,0)=" Q"
^XMB(3.9,115,2,615,0)="""RTN"",""PSSJSV"")"
^XMB(3.9,115,2,616,0)="0^1^B24822667^B24455142"
^XMB(3.9,115,2,617,0)="""RTN"",""PSSJSV"",1,0)"
^XMB(3.9,115,2,618,0)="PSSJSV ;BIR/CML3/WRT-SCHEDULE VALIDATION ;06/24/96"
^XMB(3.9,115,2,619,0)="""RTN"",""PSSJSV"",2,0)"
^XMB(3.9,115,2,620,0)=" ;;1.0;PHARMACY DATA MANAGEMENT;**20,38,56,59,110**;9/30/97"
^XMB(3.9,115,2,621,0)="""RTN"",""PSSJSV"",3,0)"
^XMB(3.9,115,2,622,0)=" ;"
^XMB(3.9,115,2,623,0)="""RTN"",""PSSJSV"",4,0)"
^XMB(3.9,115,2,624,0)=" ; Reference to ^PS(51.15 is supported by DBIA #2132"
^XMB(3.9,115,2,625,0)="""RTN"",""PSSJSV"",5,0)"
^XMB(3.9,115,2,626,0)=" ; Reference to $$UP^XLFSTR(P1) is supported by DBIA #10104"
^XMB(3.9,115,2,627,0)="""RTN"",""PSSJSV"",6,0)"
^XMB(3.9,115,2,628,0)=" ;"
^XMB(3.9,115,2,629,0)="""RTN"",""PSSJSV"",7,0)"
^XMB(3.9,115,2,630,0)="EN ;"
^XMB(3.9,115,2,631,0)="""RTN"",""PSSJSV"",8,0)"
^XMB(3.9,115,2,632,0)=" S X=PSJX,(PSJAT,PSJM,PSJTS,PSJY,PSJAX)="""" I $S(X["""""""":1,$A(X)=45:1,X'?.ANP:1,$L(X,"" "")>2:1,$L(X)>70:1,$L(X)<1:1,X[""P RN"":1,1:X[""PR N"") K PSJX,X Q"
^XMB(3.9,115,2,633,0)="""RTN"",""PSSJSV"",9,0)"
^XMB(3.9,115,2,634,0)=" I X[""PRN""!(X=""ON CALL"")!(X=""ONCALL"")!(X=""ON-CALL"") G DONE"
^XMB(3.9,115,2,635,0)="""RTN"",""PSSJSV"",10,0)"
^XMB(3.9,115,2,636,0)=" I X?1.""?"" D:'$D(PSJNE) ENSVH^PSSJSV0 Q"
^XMB(3.9,115,2,637,0)="""RTN"",""PSSJSV"",11,0)"
^XMB(3.9,115,2,638,0)=" S X0=X,(XT,Y)="""" I X,X'[""X"",(X?2.4N1""-"".E!(X?2.4N)) D ENCHK S:$D(X) PSJAT=X G DONE"
^XMB(3.9,115,2,639,0)="""RTN"",""PSSJSV"",12,0)"
^XMB(3.9,115,2,640,0)=" I X[""@"" D DW S:$D(X) PSJAT=$P(X,""@"",2) G DONE"
^XMB(3.9,115,2,641,0)="""RTN"",""PSSJSV"",13,0)"
^XMB(3.9,115,2,642,0)=" I $S($D(^PS(51.1,""AC"",PSJPP,X)):1,1:$E($O(^(X)),1,$L(X))=X) D DIC G:$S(PSJY:PSJTS'=""C"",1:PSJM) DONE"
^XMB(3.9,115,2,643,0)="""RTN"",""PSSJSV"",14,0)"
^XMB(3.9,115,2,644,0)=" I $S(X=""NOW"":1,X=""ONCE"":1,X=""STAT"":1,X=""ONE TIME"":1,X=""ONETIME"":1,X=""1TIME"":1,X=""1-TIME"":1,X=""1 TIME"":1,1:X=""ONE-TIME"") S PSJTS=""O"" W:'$D(PSJNE) ""  (ONCE ONLY)"" G DONE"
^XMB(3.9,115,2,645,0)="""RTN"",""PSSJSV"",15,0)"
^XMB(3.9,115,2,646,0)=" S:PSJTS="""" PSJTS=""C"" I PSJAT="""" W:'$D(PSJNE) ""  (Non standard schedule)"" S X=PSJX"
^XMB(3.9,115,2,647,0)="""RTN"",""PSSJSV"",16,0)"
^XMB(3.9,115,2,648,0)=" I $E(X,1,2)=""AD"" K X G DONE"
^XMB(3.9,115,2,649,0)="""RTN"",""PSSJSV"",17,0)"
^XMB(3.9,115,2,650,0)=" I $E(X,1,3)=""BID""!($E(X,1,3)=""TID"")!($E(X,1,3)=""QID"") S PSJM=1440\$F(""BTQ"",$E(X)) G DONE"
^XMB(3.9,115,2,651,0)="""RTN"",""PSSJSV"",18,0)"
^XMB(3.9,115,2,652,0)=" S:$E(X)=""Q"" X=$E(X,2,99) S:'X X=""1""_X S X1=+X,X=$P(X,+X,2),X2=0 S:X1<0 X1=-X1 S:$E(X)=""X"" X2=X1,X=$E(X,2,99) I 'X2,$E(X)=""O"" S X2=.5,X=$E(X,2,99)"
^XMB(3.9,115,2,653,0)="""RTN"",""PSSJSV"",19,0)"
^XMB(3.9,115,2,654,0)=" S XT=$S(X[""'"":1,(X[""D""&(X'[""AD""))!(X[""AM"")!(X[""PM"")!(X[""HS""&(X'[""THS"")):1440,X[""H""&(X'[""TH""):60,X[""AC""!(X[""PC""):480,X[""W"":10080,X[""M"":40320,1:-1) I XT<0,PSJAT="""" K X G DONE"
^XMB(3.9,115,2,655,0)="""RTN"",""PSSJSV"",20,0)"
^XMB(3.9,115,2,656,0)=" S X=PSJX I XT S:X2 XT=XT\X2 S:'X2 XT=XT*X1"
^XMB(3.9,115,2,657,0)="""RTN"",""PSSJSV"",21,0)"
^XMB(3.9,115,2,658,0)=" S PSJM=XT"
^XMB(3.9,115,2,659,0)="""RTN"",""PSSJSV"",22,0)"
^XMB(3.9,115,2,660,0)=" ;"
^XMB(3.9,115,2,661,0)="""RTN"",""PSSJSV"",23,0)"
^XMB(3.9,115,2,662,0)="DONE ;"
^XMB(3.9,115,2,663,0)="""RTN"",""PSSJSV"",24,0)"
^XMB(3.9,115,2,664,0)=" K:$D(X)[0 PSJX K D,DIC,Q,QX,SDW,SWD,X,X0,X1,X2,XT,Y,Z Q"
^XMB(3.9,115,2,665,0)="""RTN"",""PSSJSV"",25,0)"
^XMB(3.9,115,2,666,0)=" ;"
^XMB(3.9,115,2,667,0)="""RTN"",""PSSJSV"",26,0)"
^XMB(3.9,115,2,668,0)="ENCHK ; admin times"
^XMB(3.9,115,2,669,0)="""RTN"",""PSSJSV"",27,0)"
^XMB(3.9,115,2,670,0)=" I $S($L($P(X,""-""))>4:1,$L(X)>119:1,$L(X)<2:1,X'>0:1,1:X'?.ANP) K X Q"
^XMB(3.9,115,2,671,0)="""RTN"",""PSSJSV"",28,0)"
^XMB(3.9,115,2,672,0)=" S X(1)=$P(X,""-"") I X(1)'?2N,X(1)'?4N K X Q"
^XMB(3.9,115,2,673,0)="""RTN"",""PSSJSV"",29,0)"
^XMB(3.9,115,2,674,0)=" S X(1)=$L(X(1)) F X(2)=2:1:$L(X,""-"") S X(3)=$P(X,""-"",X(2)) I $S($L(X(3))'=X(1):1,X(3)>$S(X(1)=2:24,1:2400):1,1:X(3)'>$P(X,""-"",X(2)-1)) K X Q"
^XMB(3.9,115,2,675,0)="""RTN"",""PSSJSV"",30,0)"
^XMB(3.9,115,2,676,0)=" K:$D(X) X(1),X(2),X(3) Q"
^XMB(3.9,115,2,677,0)="""RTN"",""PSSJSV"",31,0)"
^XMB(3.9,115,2,678,0)=" ;"
^XMB(3.9,115,2,679,0)="""RTN"",""PSSJSV"",32,0)"
^XMB(3.9,115,2,680,0)="DIC ; 51.1 look-up"
^XMB(3.9,115,2,681,0)="""RTN"",""PSSJSV"",33,0)"
^XMB(3.9,115,2,682,0)=" S DIC=""^PS(51.1,"",DIC(0)=$E(""E"",'$D(PSJNE))_""ISZ"",DIC(""W"")=""I '$D(PSJNE) D DICW^PSSJSV0"",D=""AP""_PSJPP"
^XMB(3.9,115,2,683,0)="""RTN"",""PSSJSV"",34,0)"
^XMB(3.9,115,2,684,0)=" D IX^DIC K DIC Q:Y'>0  S PSJY=+Y,(PSJX,X,X0)=Y(0,0),PSJM=$P(Y(0),""^"",3),PSJTS=$P(Y(0),""^"",5),PSJAX=$P(Y(0),U,7) S:PSJTS="""" PSJTS=""C"" Q:PSJTS=""O""!(PSJTS[""R"")  I $D(PSJW),$D(^PS(51.1,+Y,1,+PSJW,0)) S PSJAT=$P(^(0),""^"",PSJTS=""S""+2)"
^XMB(3.9,115,2,685,0)="""RTN"",""PSSJSV"",35,0)"
^XMB(3.9,115,2,686,0)=" E  S PSJAT=$P(Y(0),""^"",PSJTS=""S""*4+2)"
^XMB(3.9,115,2,687,0)="""RTN"",""PSSJSV"",36,0)"
^XMB(3.9,115,2,688,0)=" Q:PSJTS'=""S"""
^XMB(3.9,115,2,689,0)="""RTN"",""PSSJSV"",37,0)"
^XMB(3.9,115,2,690,0)=" F Y=1:1:$L(PSJAT,""-"") S Y(1)=$P(PSJAT,""-"",Y),PSJAT(Y(1))="""",Y(2)=$O(^PS(51.15,""ACP"",PSJPP,Y(1),0)) I Y(2),$D(^PS(51.15,Y(2),0)) S PSJAT(Y(1))=$P(^(0),""^"",3) I $D(PSJW),$D(^(1,PSJW,0)),$P(^(0),""^"",2)]"""" S PSJAT(Y(1))=$P(^(0),""^"",2)"
^XMB(3.9,115,2,691,0)="""RTN"",""PSSJSV"",38,0)"
^XMB(3.9,115,2,692,0)=" Q"
^XMB(3.9,115,2,693,0)="""RTN"",""PSSJSV"",39,0)"
^XMB(3.9,115,2,694,0)=" ;"
^XMB(3.9,115,2,695,0)="""RTN"",""PSSJSV"",40,0)"
^XMB(3.9,115,2,696,0)="DW ;  week days"
^XMB(3.9,115,2,697,0)="""RTN"",""PSSJSV"",41,0)"
^XMB(3.9,115,2,698,0)=" S SWD=""SUNDAYS^MONDAYS^TUESDAYS^WEDNESDAYS^THURSDAYS^FRIDAYS^SATURDAYS"",SDW=X,X=$P(X,""@"",2) D ENCHK Q:'$D(X)  S X=$P(SDW,""@""),X(1)=""-"" I X?.E1P.E,X'[""-"" F QX=1:1:$L(X) I $E(X,QX)?1P S X(1)=$E(X,QX) Q"
^XMB(3.9,115,2,699,0)="""RTN"",""PSSJSV"",42,0)"
^XMB(3.9,115,2,700,0)=" F Q=1:1:$L(X,X(1)) K:SWD="""" X Q:SWD=""""  S Z=$P(X,X(1),Q) D DWC Q:'$D(X)"
^XMB(3.9,115,2,701,0)="""RTN"",""PSSJSV"",43,0)"
^XMB(3.9,115,2,702,0)=" K X(1) S:$D(X) X=SDW Q"
^XMB(3.9,115,2,703,0)="""RTN"",""PSSJSV"",44,0)"
^XMB(3.9,115,2,704,0)="DWC I $L(Z)<2 K X Q"
^XMB(3.9,115,2,705,0)="""RTN"",""PSSJSV"",45,0)"
^XMB(3.9,115,2,706,0)=" F QX=1:1:$L(SWD,""^"") S Y=$P(SWD,""^"",QX) I $P(Y,Z)="""" S SWD=$P(SWD,Y,2) S:$L(SWD) SWD=$E(SWD,2,50) Q"
^XMB(3.9,115,2,707,0)="""RTN"",""PSSJSV"",46,0)"
^XMB(3.9,115,2,708,0)=" E  K X"
^XMB(3.9,115,2,709,0)="""RTN"",""PSSJSV"",47,0)"
^XMB(3.9,115,2,710,0)=" Q"
^XMB(3.9,115,2,711,0)="""RTN"",""PSSJSV"",48,0)"
^XMB(3.9,115,2,712,0)=" ;"
^XMB(3.9,115,2,713,0)="""RTN"",""PSSJSV"",49,0)"
^XMB(3.9,115,2,714,0)="ENSNV ; schedule name"
^XMB(3.9,115,2,715,0)="""RTN"",""PSSJSV"",50,0)"
^XMB(3.9,115,2,716,0)=" I $S(X["""""""":1,$A(X)=45:1,X'?.ANP:1,$L(X)>20:1,$L(X)<2:1,1:X?1P.E) K X Q"
^XMB(3.9,115,2,717,0)="""RTN"",""PSSJSV"",51,0)"
^XMB(3.9,115,2,718,0)=" I $S('$D(PSJPP):0,PSJPP="""":1,PSJPP'?.ANP:1,1:'$$VERSION^XPDUTL(PSJPP)) K X"
^XMB(3.9,115,2,719,0)="""RTN"",""PSSJSV"",52,0)"
^XMB(3.9,115,2,720,0)=" I $D(DA),$D(^PS(51.1,DA,0)),$P(^(0),""^"",5)[""D"" S ZX=X D DNVX S:$D(X) X=ZX K Z1,Z2,Z3,Z4,ZX"
^XMB(3.9,115,2,721,0)="""RTN"",""PSSJSV"",53,0)"
^XMB(3.9,115,2,722,0)=" Q"
^XMB(3.9,115,2,723,0)="""RTN"",""PSSJSV"",54,0)"
^XMB(3.9,115,2,724,0)=" ;"
^XMB(3.9,115,2,725,0)="""RTN"",""PSSJSV"",55,0)"
^XMB(3.9,115,2,726,0)="ENSHV ;  shift in 51.1"
^XMB(3.9,115,2,727,0)="""RTN"",""PSSJSV"",56,0)"
^XMB(3.9,115,2,728,0)=" I $S($L(X)>11:1,$L(X)<1:1,'$D(PSJPP):1,PSJPP="""":1,PSJPP'?.ANP:1,1:'$$VERSION^XPDUTL(PSJPP)) K X Q"
^XMB(3.9,115,2,729,0)="""RTN"",""PSSJSV"",57,0)"
^XMB(3.9,115,2,730,0)=" F X(1)=1:1:$L(X,""-"") S X(2)=$P(X,""-"",X(1)) I $S(X(2)="""":1,X(2)'?.ANP:1,1:'$D(^PS(51.15,""ACP"",PSJPP,X(2)))) K X Q"
^XMB(3.9,115,2,731,0)="""RTN"",""PSSJSV"",58,0)"
^XMB(3.9,115,2,732,0)=" K X(1),X(2) Q"
^XMB(3.9,115,2,733,0)="""RTN"",""PSSJSV"",59,0)"
^XMB(3.9,115,2,734,0)=" ;"
^XMB(3.9,115,2,735,0)="""RTN"",""PSSJSV"",60,0)"
^XMB(3.9,115,2,736,0)="ENVSST ;  shift start/stop times"
^XMB(3.9,115,2,737,0)="""RTN"",""PSSJSV"",61,0)"
^XMB(3.9,115,2,738,0)=" I X'?2N1""-""2N,X'?4N1""-""4N K X Q"
^XMB(3.9,115,2,739,0)="""RTN"",""PSSJSV"",62,0)"
^XMB(3.9,115,2,740,0)=" F X(1)=1,2 I $P(X,""-"",X(1))>$S($L($P(X,""-"",X(1)))<4:24,1:2400) K X Q"
^XMB(3.9,115,2,741,0)="""RTN"",""PSSJSV"",63,0)"
^XMB(3.9,115,2,742,0)=" K X(1) Q"
^XMB(3.9,115,2,743,0)="""RTN"",""PSSJSV"",64,0)"
^XMB(3.9,115,2,744,0)=" ;"
^XMB(3.9,115,2,745,0)="""RTN"",""PSSJSV"",65,0)"
^XMB(3.9,115,2,746,0)="ENFQD ; frequency default"
^XMB(3.9,115,2,747,0)="""RTN"",""PSSJSV"",66,0)"
^XMB(3.9,115,2,748,0)=" N X1,X2,Z S Z=$S($D(^PS(51.1,DA,0)):$P(^(0),""^""),1:""""),X="""""
^XMB(3.9,115,2,749,0)="""RTN"",""PSSJSV"",67,0)"
^XMB(3.9,115,2,750,0)=" S X=$P(Z,""^"",3) I Z]"""" Q"
^XMB(3.9,115,2,751,0)="""RTN"",""PSSJSV"",68,0)"
^XMB(3.9,115,2,752,0)=" S Z=DA I $E(Z,1,2)=""AD"" Q"
^XMB(3.9,115,2,753,0)="""RTN"",""PSSJSV"",69,0)"
^XMB(3.9,115,2,754,0)=" I $E(Z,1,3)=""BID""!($E(Z,1,3)=""TID"")!($E(Z,1,3)=""QID"") S X=1440/$F(""BTQ"",$E(Z)) Q"
^XMB(3.9,115,2,755,0)="""RTN"",""PSSJSV"",70,0)"
^XMB(3.9,115,2,756,0)=" E  S:$E(Z)=""Q"" Z=$E(Z,2,99) S:'Z Z=""1""_Z S X1=+Z,Z=$P(Z,+Z,2),X2=0 S:$E(Z)=""X"" X2=X1,Z=$E(Z,2,99) I 'X2,$E(Z)=""O"" S X2=.5,Z=$E(Z,2,99)"
^XMB(3.9,115,2,757,0)="""RTN"",""PSSJSV"",71,0)"
^XMB(3.9,115,2,758,0)=" S X=$S(Z[""'"":1,(Z[""D""&(Z'[""AD""))!(Z[""AM"")!(Z[""PM"")!(Z[""HS""&(Z'[""THS"")):1440,Z[""H""&(Z'[""TH""):60,Z[""AC""!(Z[""PC""):480,Z[""W"":10080,Z[""M"":40320,1:"""") Q:'X  S:X2 X=X\X2 S:'X2 X=X*X1 Q"
^XMB(3.9,115,2,759,0)="""RTN"",""PSSJSV"",72,0)"
^XMB(3.9,115,2,760,0)=" ;"
^XMB(3.9,115,2,761,0)="""RTN"",""PSSJSV"",73,0)"
^XMB(3.9,115,2,762,0)="ENDNV ; day of the week name"
^XMB(3.9,115,2,763,0)="""RTN"",""PSSJSV"",74,0)"
^XMB(3.9,115,2,764,0)=" N Z1,Z2,Z3,Z4 S X=$S($D(^PS(51.1,DA,0)):$P(^(0),""^""),1:"""") I X="""" K X Q"
^XMB(3.9,115,2,765,0)="""RTN"",""PSSJSV"",75,0)"
^XMB(3.9,115,2,766,0)=" ;"
^XMB(3.9,115,2,767,0)="""RTN"",""PSSJSV"",76,0)"
^XMB(3.9,115,2,768,0)="DNVX S Z2=1,Z4=""-"" I X'[""-"",X?.E1P.E F Z1=1:1:$L(X) I $E(X,Z1)?1P S Z4=$E(X,Z1) Q"
^XMB(3.9,115,2,769,0)="""RTN"",""PSSJSV"",77,0)"
^XMB(3.9,115,2,770,0)=" F Z1=1:1:$L(X,Z4) Q:'Z2  S Z2=0 I $L($P(X,Z4,Z1))>1 F Z3=""MONDAYS"",""TUESDAYS"",""WEDNESDAYS"",""THURSDAYS"",""FRIDAYS"",""SATURDAYS"",""SUNDAYS"" I $P(Z3,$P(X,Z4,Z1))="""" S Z2=1 Q"
^XMB(3.9,115,2,771,0)="""RTN"",""PSSJSV"",78,0)"
^XMB(3.9,115,2,772,0)=" K:'Z2 X S:Z2 X=""D"" Q"
^XMB(3.9,115,2,773,0)="""RTN"",""PSSJSV"",79,0)"
^XMB(3.9,115,2,774,0)="ENPSJ ;validate schedule names for PSJ package"
^XMB(3.9,115,2,775,0)="""RTN"",""PSSJSV"",80,0)"
^XMB(3.9,115,2,776,0)=" N A,B,I"
^XMB(3.9,115,2,777,0)="""RTN"",""PSSJSV"",81,0)"
^XMB(3.9,115,2,778,0)=" S X=$$UP^XLFSTR(X)"
^XMB(3.9,115,2,779,0)="""RTN"",""PSSJSV"",82,0)"
^XMB(3.9,115,2,780,0)=" I $G(PSJPP)'=""PSJ"" Q"
^XMB(3.9,115,2,781,0)="""RTN"",""PSSJSV"",83,0)"
^XMB(3.9,115,2,782,0)=" S A=$TR(X,""."","""") I A=""OTHER"" K X Q"
^XMB(3.9,115,2,783,0)="""RTN"",""PSSJSV"",84,0)"
^XMB(3.9,115,2,784,0)=" F I=1:1:$L(A,"" "") S B=$P(A,"" "",I) I B=""QD""!(B=""QOD"")!(B=""HS"")!(B=""TIW"") K X"
^XMB(3.9,115,2,785,0)="""RTN"",""PSSJSV"",85,0)"
^XMB(3.9,115,2,786,0)=" Q"
^XMB(3.9,115,2,787,0)="""RTN"",""PSSP110"")"
^XMB(3.9,115,2,788,0)="0^2^B8043298^n/a"
^XMB(3.9,115,2,789,0)="""RTN"",""PSSP110"",1,0)"
^XMB(3.9,115,2,790,0)="PSSP110 ; Post init routine for patch PSS*1*110 03/30/2006 4:57P"
^XMB(3.9,115,2,791,0)="""RTN"",""PSSP110"",2,0)"
^XMB(3.9,115,2,792,0)=" ;;1.0;PHARMACY DATA MANAGEMENT;**110**;9/30/97"
^XMB(3.9,115,2,793,0)="""RTN"",""PSSP110"",3,0)"
^XMB(3.9,115,2,794,0)=" Q"
^XMB(3.9,115,2,795,0)="""RTN"",""PSSP110"",4,0)"
^XMB(3.9,115,2,796,0)="EN ; Entry point"
^XMB(3.9,115,2,797,0)="""RTN"",""PSSP110"",5,0)"
^XMB(3.9,115,2,798,0)=" ; Convert the NAME field in files #51 & 51.1 to all CAPS"
^XMB(3.9,115,2,799,0)="""RTN"",""PSSP110"",6,0)"
^XMB(3.9,115,2,800,0)=" ;"
^XMB(3.9,115,2,801,0)="""RTN"",""PSSP110"",7,0)"
^XMB(3.9,115,2,802,0)=" N DD,D0,DA,DIE,DR,PSSI,PSSJ,PSSCNT,PSSTXT,PSSLN,PSSAST"
^XMB(3.9,115,2,803,0)="""RTN"",""PSSP110"",8,0)"
^XMB(3.9,115,2,804,0)=" N XMDUZ,XMSUB,XMTEXT,XMY,DIFROM,PSSFLG"
^XMB(3.9,115,2,805,0)="""RTN"",""PSSP110"",9,0)"
^XMB(3.9,115,2,806,0)=" I $G(U)="""" S U=""^"""
^XMB(3.9,115,2,807,0)="""RTN"",""PSSP110"",10,0)"
^XMB(3.9,115,2,808,0)=" S XMDUZ=""PSS*1*110 Post Init"",XMY(DUZ)="""""
^XMB(3.9,115,2,809,0)="""RTN"",""PSSP110"",11,0)"
^XMB(3.9,115,2,810,0)=" ;"
^XMB(3.9,115,2,811,0)="""RTN"",""PSSP110"",12,0)"
^XMB(3.9,115,2,812,0)=" ; File 51 (Medication Instruction)"
^XMB(3.9,115,2,813,0)="""RTN"",""PSSP110"",13,0)"
^XMB(3.9,115,2,814,0)=" S DIE=""^PS(51,"""
^XMB(3.9,115,2,815,0)="""RTN"",""PSSP110"",14,0)"
^XMB(3.9,115,2,816,0)=" D CON"
^XMB(3.9,115,2,817,0)="""RTN"",""PSSP110"",15,0)"
^XMB(3.9,115,2,818,0)=" S XMSUB=""File #51 modified records"""
^XMB(3.9,115,2,819,0)="""RTN"",""PSSP110"",16,0)"
^XMB(3.9,115,2,820,0)=" D MSG1"
^XMB(3.9,115,2,821,0)="""RTN"",""PSSP110"",17,0)"
^XMB(3.9,115,2,822,0)=" ;"
^XMB(3.9,115,2,823,0)="""RTN"",""PSSP110"",18,0)"
^XMB(3.9,115,2,824,0)=" ; File 51.1 (Administration Schedule)"
^XMB(3.9,115,2,825,0)="""RTN"",""PSSP110"",19,0)"
^XMB(3.9,115,2,826,0)=" S DIE=""^PS(51.1,"""
^XMB(3.9,115,2,827,0)="""RTN"",""PSSP110"",20,0)"
^XMB(3.9,115,2,828,0)=" D CON"
^XMB(3.9,115,2,829,0)="""RTN"",""PSSP110"",21,0)"
^XMB(3.9,115,2,830,0)=" S XMSUB=""File #51.1 modified records"""
^XMB(3.9,115,2,831,0)="""RTN"",""PSSP110"",22,0)"
^XMB(3.9,115,2,832,0)=" D MSG1"
^XMB(3.9,115,2,833,0)="""RTN"",""PSSP110"",23,0)"
^XMB(3.9,115,2,834,0)=" ;"
^XMB(3.9,115,2,835,0)="""RTN"",""PSSP110"",24,0)"
^XMB(3.9,115,2,836,0)=" ; File 51.2 (Medication Routes)"
^XMB(3.9,115,2,837,0)="""RTN"",""PSSP110"",25,0)"
^XMB(3.9,115,2,838,0)=" ;S XMSUB=""File #51.2 'to be' modified records"""
^XMB(3.9,115,2,839,0)="""RTN"",""PSSP110"",26,0)"
^XMB(3.9,115,2,840,0)=" ;D COM"
^XMB(3.9,115,2,841,0)="""RTN"",""PSSP110"",27,0)"
^XMB(3.9,115,2,842,0)=" G ENQ"
^XMB(3.9,115,2,843,0)="""RTN"",""PSSP110"",28,0)"
^XMB(3.9,115,2,844,0)=" ;"
^XMB(3.9,115,2,845,0)="""RTN"",""PSSP110"",29,0)"
^XMB(3.9,115,2,846,0)="CON ; Convert ONLY lowercase alphabet to uppercase.  All other characters"
^XMB(3.9,115,2,847,0)="""RTN"",""PSSP110"",30,0)"
^XMB(3.9,115,2,848,0)=" ; in the NAME field are left alone."
^XMB(3.9,115,2,849,0)="""RTN"",""PSSP110"",31,0)"
^XMB(3.9,115,2,850,0)=" S PSSI="""",PSSCNT=0,PSSLN=2,PSSFLG="""""
^XMB(3.9,115,2,851,0)="""RTN"",""PSSP110"",32,0)"
^XMB(3.9,115,2,852,0)=" F  S PSSI=$O(@(DIE_""""""B""""""_"",PSSI)"")) Q:PSSI=""""  D"
^XMB(3.9,115,2,853,0)="""RTN"",""PSSP110"",33,0)"
^XMB(3.9,115,2,854,0)=" . I PSSI'?.E1L.E Q  ; No lowercase in the NAME, no need to convert"
^XMB(3.9,115,2,855,0)="""RTN"",""PSSP110"",34,0)"
^XMB(3.9,115,2,856,0)=" . S PSSJ=$$UP^XLFSTR(PSSI),PSSAST=""*"""
^XMB(3.9,115,2,857,0)="""RTN"",""PSSP110"",35,0)"
^XMB(3.9,115,2,858,0)=" . I '$O(@(DIE_""""""B""""""_"",PSSJ,0)"")) D"
^XMB(3.9,115,2,859,0)="""RTN"",""PSSP110"",36,0)"
^XMB(3.9,115,2,860,0)=" . . S DA=$O(@(DIE_""""""B""""""_"",PSSI,0)"")),DR="".01///""_PSSJ"
^XMB(3.9,115,2,861,0)="""RTN"",""PSSP110"",37,0)"
^XMB(3.9,115,2,862,0)=" . . D ^DIE"
^XMB(3.9,115,2,863,0)="""RTN"",""PSSP110"",38,0)"
^XMB(3.9,115,2,864,0)=" . . S PSSAST="""""
^XMB(3.9,115,2,865,0)="""RTN"",""PSSP110"",39,0)"
^XMB(3.9,115,2,866,0)=" . E  S PSSFLG=1"
^XMB(3.9,115,2,867,0)="""RTN"",""PSSP110"",40,0)"
^XMB(3.9,115,2,868,0)=" . S PSSCNT=PSSCNT+1"
^XMB(3.9,115,2,869,0)="""RTN"",""PSSP110"",41,0)"
^XMB(3.9,115,2,870,0)=" . S PSSLN=PSSLN+1,PSSTXT(PSSLN)=PSSAST_PSSI"
^XMB(3.9,115,2,871,0)="""RTN"",""PSSP110"",42,0)"
^XMB(3.9,115,2,872,0)=" Q"
^XMB(3.9,115,2,873,0)="""RTN"",""PSSP110"",43,0)"
^XMB(3.9,115,2,874,0)="COM ; Compile a list of all medication routes that do NOT"
^XMB(3.9,115,2,875,0)="""RTN"",""PSSP110"",44,0)"
^XMB(3.9,115,2,876,0)=" ; have an abbreviation and send it to DUZ."
^XMB(3.9,115,2,877,0)="""RTN"",""PSSP110"",45,0)"
^XMB(3.9,115,2,878,0)=" S PSSI="""",PSSCNT=0,PSSLN=2"
^XMB(3.9,115,2,879,0)="""RTN"",""PSSP110"",46,0)"
^XMB(3.9,115,2,880,0)=" F  S PSSI=$O(^PS(51.2,PSSI)) Q:PSSI']""""  D"
^XMB(3.9,115,2,881,0)="""RTN"",""PSSP110"",47,0)"
^XMB(3.9,115,2,882,0)=" . I '$D(^PS(51.2,PSSI,0)) Q"
^XMB(3.9,115,2,883,0)="""RTN"",""PSSP110"",48,0)"
^XMB(3.9,115,2,884,0)=" . S PSSJ=$G(^PS(51.2,PSSI,0))"
^XMB(3.9,115,2,885,0)="""RTN"",""PSSP110"",49,0)"
^XMB(3.9,115,2,886,0)=" . I $P(PSSJ,U,3)']"""" D"
^XMB(3.9,115,2,887,0)="""RTN"",""PSSP110"",50,0)"
^XMB(3.9,115,2,888,0)=" . . S PSSCNT=PSSCNT+1,PSSLN=PSSLN+1"
^XMB(3.9,115,2,889,0)="""RTN"",""PSSP110"",51,0)"
^XMB(3.9,115,2,890,0)=" . . S PSSTXT(PSSLN)=$P(PSSJ,U,1)"
^XMB(3.9,115,2,891,0)="""RTN"",""PSSP110"",52,0)"
^XMB(3.9,115,2,892,0)=" I PSSCNT<1 D  Q"
^XMB(3.9,115,2,893,0)="""RTN"",""PSSP110"",53,0)"
^XMB(3.9,115,2,894,0)=" . S PSSTXT(1)=""All medication routes have abbreviations!"""
^XMB(3.9,115,2,895,0)="""RTN"",""PSSP110"",54,0)"
^XMB(3.9,115,2,896,0)=" . D SEND"
^XMB(3.9,115,2,897,0)="""RTN"",""PSSP110"",55,0)"
^XMB(3.9,115,2,898,0)=" S PSSTXT(1)=""The following medication route/s does/do not"""
^XMB(3.9,115,2,899,0)="""RTN"",""PSSP110"",56,0)"
^XMB(3.9,115,2,900,0)=" S PSSTXT(2)=""have a corresponding abbreviation:"""
^XMB(3.9,115,2,901,0)="""RTN"",""PSSP110"",57,0)"
^XMB(3.9,115,2,902,0)=" D SEND"
^XMB(3.9,115,2,903,0)="""RTN"",""PSSP110"",58,0)"
^XMB(3.9,115,2,904,0)=" Q"
^XMB(3.9,115,2,905,0)="""RTN"",""PSSP110"",59,0)"
^XMB(3.9,115,2,906,0)="MSG1 ; Send message to user DUZ for files 51 & 51.1"
^XMB(3.9,115,2,907,0)="""RTN"",""PSSP110"",60,0)"
^XMB(3.9,115,2,908,0)=" I PSSCNT<1 D  Q"
^XMB(3.9,115,2,909,0)="""RTN"",""PSSP110"",61,0)"
^XMB(3.9,115,2,910,0)=" . S PSSTXT(1)=""No NAME conversion was neccessary!"""
^XMB(3.9,115,2,911,0)="""RTN"",""PSSP110"",62,0)"
^XMB(3.9,115,2,912,0)=" . D SEND"
^XMB(3.9,115,2,913,0)="""RTN"",""PSSP110"",63,0)"
^XMB(3.9,115,2,914,0)=" S PSSTXT(1)=""The following NAME/s was/were converted"""
^XMB(3.9,115,2,915,0)="""RTN"",""PSSP110"",64,0)"
^XMB(3.9,115,2,916,0)=" S PSSTXT(2)=""from lowercase to uppercase:"""
^XMB(3.9,115,2,917,0)="""RTN"",""PSSP110"",65,0)"
^XMB(3.9,115,2,918,0)=" I PSSFLG=1 D"
^XMB(3.9,115,2,919,0)="""RTN"",""PSSP110"",66,0)"
^XMB(3.9,115,2,920,0)=" . S PSSLN=PSSLN+1"
^XMB(3.9,115,2,921,0)="""RTN"",""PSSP110"",67,0)"
^XMB(3.9,115,2,922,0)=" . S PSSTXT(PSSLN)=""Record/s marked with an '*' was/were skipped."""
^XMB(3.9,115,2,923,0)="""RTN"",""PSSP110"",68,0)"
^XMB(3.9,115,2,924,0)=" . S PSSLN=PSSLN+1"
^XMB(3.9,115,2,925,0)="""RTN"",""PSSP110"",69,0)"
^XMB(3.9,115,2,926,0)=" . S PSSTXT(PSSLN)=""Conversion to uppercase would have created a"""
^XMB(3.9,115,2,927,0)="""RTN"",""PSSP110"",70,0)"
^XMB(3.9,115,2,928,0)=" . S PSSLN=PSSLN+1"
^XMB(3.9,115,2,929,0)="""RTN"",""PSSP110"",71,0)"
^XMB(3.9,115,2,930,0)=" . S PSSTXT(PSSLN)=""duplicate NAME.  Please check!!"""
^XMB(3.9,115,2,931,0)="""RTN"",""PSSP110"",72,0)"
^XMB(3.9,115,2,932,0)=" D SEND"
^XMB(3.9,115,2,933,0)="""RTN"",""PSSP110"",73,0)"
^XMB(3.9,115,2,934,0)=" Q"
^XMB(3.9,115,2,935,0)="""RTN"",""PSSP110"",74,0)"
^XMB(3.9,115,2,936,0)="SEND ;"
^XMB(3.9,115,2,937,0)="""RTN"",""PSSP110"",75,0)"
^XMB(3.9,115,2,938,0)=" S XMTEXT=""PSSTXT("",XMDUZ=""PSS*1*110 Post Init"",XMY(DUZ)="""""
^XMB(3.9,115,2,939,0)="""RTN"",""PSSP110"",76,0)"
^XMB(3.9,115,2,940,0)=" D ^XMD"
^XMB(3.9,115,2,941,0)="""RTN"",""PSSP110"",77,0)"
^XMB(3.9,115,2,942,0)=" K PSSTXT"
^XMB(3.9,115,2,943,0)="""RTN"",""PSSP110"",78,0)"
^XMB(3.9,115,2,944,0)="ENQ Q"
^XMB(3.9,115,2,945,0)="""VER"")"
^XMB(3.9,115,2,946,0)="8.0^22.0"
^XMB(3.9,115,2,947,0)="""^DD"",51,51,.01,0)"
^XMB(3.9,115,2,948,0)="NAME^RFX^^0;1^S X=$$UP^XLFSTR(X) K:$L(X)>9!($L(X)<1)!'(X?.ANP) X"
^XMB(3.9,115,2,949,0)="""^DD"",51,51,.01,1,0)"
^XMB(3.9,115,2,950,0)="^.1"
^XMB(3.9,115,2,951,0)="""^DD"",51,51,.01,1,1,0)"
^XMB(3.9,115,2,952,0)="51^B"
^XMB(3.9,115,2,953,0)="""^DD"",51,51,.01,1,1,1)"
^XMB(3.9,115,2,954,0)="S ^PS(51,""B"",X,DA)="""""
^XMB(3.9,115,2,955,0)="""^DD"",51,51,.01,1,1,2)"
^XMB(3.9,115,2,956,0)="K ^PS(51,""B"",X,DA)"
^XMB(3.9,115,2,957,0)="""^DD"",51,51,.01,1,2,0)"
^XMB(3.9,115,2,958,0)="51^AIN^MUMPS"
^XMB(3.9,115,2,959,0)="""^DD"",51,51,.01,1,2,1)"
^XMB(3.9,115,2,960,0)="I $P(^PS(51,DA,0),""^"",4) S ^PS(51,""AI"",X,DA)="""""
^XMB(3.9,115,2,961,0)="""^DD"",51,51,.01,1,2,2)"
^XMB(3.9,115,2,962,0)="I $P(^PS(51,DA,0),""^"",4) K ^PS(51,""AI"",X,DA)"
^XMB(3.9,115,2,963,0)="""^DD"",51,51,.01,1,2,""%D"",0)"
^XMB(3.9,115,2,964,0)="^^2^2^2970926^^"
^XMB(3.9,115,2,965,0)="""^DD"",51,51,.01,1,2,""%D"",1,0)"
^XMB(3.9,115,2,966,0)="Sets intended use cross-ref."
^XMB(3.9,115,2,967,0)="""^DD"",51,51,.01,1,2,""%D"",2,0)"
^XMB(3.9,115,2,968,0)="In the form of: ^PS(51,""AI"",X,DA)"
^XMB(3.9,115,2,969,0)="""^DD"",51,51,.01,1,3,0)"
^XMB(3.9,115,2,970,0)="51^A^MUMPS"
^XMB(3.9,115,2,971,0)="""^DD"",51,51,.01,1,3,1)"
^XMB(3.9,115,2,972,0)="S X1=^PS(51,DA,0),%=$P(X1,""^"",1) I %'="""" S ^PS(51,""A"",%)=$P(X1,""^"",2)_""^""_$S($D(^PS(51,DA,9)):^(9),1:"""")"
^XMB(3.9,115,2,973,0)="""^DD"",51,51,.01,1,3,2)"
^XMB(3.9,115,2,974,0)="K ^PS(51,""A"",X)"
^XMB(3.9,115,2,975,0)="""^DD"",51,51,.01,1,3,""%D"",0)"
^XMB(3.9,115,2,976,0)="^.101^3^3^3001010^^^^"
^XMB(3.9,115,2,977,0)="""^DD"",51,51,.01,1,3,""%D"",1,0)"
^XMB(3.9,115,2,978,0)="This cross reference uses the drug name to obtain the drug's expanded"
^XMB(3.9,115,2,979,0)="""^DD"",51,51,.01,1,3,""%D"",2,0)"
^XMB(3.9,115,2,980,0)="name and plural."
^XMB(3.9,115,2,981,0)="""^DD"",51,51,.01,1,3,""%D"",3,0)"
^XMB(3.9,115,2,982,0)="In the form of: ^PS(51,""A"",$P(^PS(51,DA,0),""^"",1))"
^XMB(3.9,115,2,983,0)="""^DD"",51,51,.01,1,3,""DT"")"
^XMB(3.9,115,2,984,0)="3001010"
^XMB(3.9,115,2,985,0)="""^DD"",51,51,.01,3)"
^XMB(3.9,115,2,986,0)="Answer must be 1-9 characters in length."
^XMB(3.9,115,2,987,0)="""^DD"",51,51,.01,20,0)"
^XMB(3.9,115,2,988,0)="^.3LA^1^1"
^XMB(3.9,115,2,989,0)="""^DD"",51,51,.01,20,1,0)"
^XMB(3.9,115,2,990,0)="PS"
^XMB(3.9,115,2,991,0)="""^DD"",51,51,.01,21,0)"
^XMB(3.9,115,2,992,0)="^.001^3^3^3060329^^^^"
^XMB(3.9,115,2,993,0)="""^DD"",51,51,.01,21,1,0)"
^XMB(3.9,115,2,994,0)="  For inpatient pharmacy use, you may enter one of the following standard"
^XMB(3.9,115,2,995,0)="""^DD"",51,51,.01,21,2,0)"
^XMB(3.9,115,2,996,0)="times or you may use a non-standard schedule when appropriate.  For"
^XMB(3.9,115,2,997,0)="""^DD"",51,51,.01,21,3,0)"
^XMB(3.9,115,2,998,0)="example,  Q36H  or Q17H."
^XMB(3.9,115,2,999,0)="""^DD"",51,51,.01,""DT"")"
^XMB(3.9,115,2,1000,0)="3060403"
^XMB(3.9,115,2,1001,0)="""BLD"",6673,6)"
^XMB(3.9,115,2,1002,0)="^103"
^XMB(3.9,115,2,1003,0)="$END KID PSS*1.0*110"
^XMB(3.9,115,6,0)="^3.911A^2^2"
^XMB(3.9,115,6,1,0)="POSTMASTER"
^XMB(3.9,115,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,115,6,"B","POSTMASTER",1)=""
^XMB(3.9,115,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,116,0)="PSS-1_SEQ-104_PAT-115.KID^.5^3061008.015741^^^^K"
^XMB(3.9,116,.6)="3061008"
^XMB(3.9,116,1,0)="^3.91A^2^2"
^XMB(3.9,116,1,1,0)=".5^0^3061008.015741^^^^^^^3061008.015741"
^XMB(3.9,116,1,2,0)="1^0^3061008.022413^^^^^^^3061008.022413"
^XMB(3.9,116,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,116,1,"C",.5,1)=""
^XMB(3.9,116,1,"C",1,2)=""
^XMB(3.9,116,2,0)="^^313^313^3061008"
^XMB(3.9,116,2,1,0)="$TXT Released PSS*1*115 SEQ #104"
^XMB(3.9,116,2,2,0)="Extracted from mail message"
^XMB(3.9,116,2,3,0)="$END TXT"
^XMB(3.9,116,2,4,0)="$KID PSS*1.0*115"
^XMB(3.9,116,2,5,0)="**INSTALL NAME**"
^XMB(3.9,116,2,6,0)="PSS*1.0*115"
^XMB(3.9,116,2,7,0)="""BLD"",5796,0)"
^XMB(3.9,116,2,8,0)="PSS*1.0*115^PHARMACY DATA MANAGEMENT^0^3060724^y"
^XMB(3.9,116,2,9,0)="""BLD"",5796,1,0)"
^XMB(3.9,116,2,10,0)="^^22^22^3060721^^^^"
^XMB(3.9,116,2,11,0)="""BLD"",5796,1,1,0)"
^XMB(3.9,116,2,12,0)="This patch supports the National Council for Prescription Drug Programs (NCPDP) "
^XMB(3.9,116,2,13,0)="""BLD"",5796,1,2,0)"
^XMB(3.9,116,2,14,0)="standard which was adopted under the Healthcare Insurance Portability and "
^XMB(3.9,116,2,15,0)="""BLD"",5796,1,3,0)"
^XMB(3.9,116,2,16,0)="Accountability Act (HIPAA) for pharmacy claims. This patch is one of six to be"
^XMB(3.9,116,2,17,0)="""BLD"",5796,1,4,0)"
^XMB(3.9,116,2,18,0)="released.  Three patches will be released in a KIDS multi-build distribution "
^XMB(3.9,116,2,19,0)="""BLD"",5796,1,5,0)"
^XMB(3.9,116,2,20,0)="containing: BPS*1*3, PSO*7*247, and IB*2*342.  Three patches will be released"
^XMB(3.9,116,2,21,0)="""BLD"",5796,1,6,0)"
^XMB(3.9,116,2,22,0)="individually and they are: PRCA*4.5*247, PSX*2.0*62, and PSS*1.0*115."
^XMB(3.9,116,2,23,0)="""BLD"",5796,1,7,0)"
^XMB(3.9,116,2,24,0)=" "
^XMB(3.9,116,2,25,0)="""BLD"",5796,1,8,0)"
^XMB(3.9,116,2,26,0)="Enhancements included in the release of the six patches are a new option that "
^XMB(3.9,116,2,27,0)="""BLD"",5796,1,9,0)"
^XMB(3.9,116,2,28,0)="will enable the user to reopen a closed Electron Claims Management Engine (ECME)"
^XMB(3.9,116,2,29,0)="""BLD"",5796,1,10,0)"
^XMB(3.9,116,2,30,0)="claim; updates to the Rx Activity Log; and permanent storage of Claims activity "
^XMB(3.9,116,2,31,0)="""BLD"",5796,1,11,0)"
^XMB(3.9,116,2,32,0)="information as reported by the ECME Billing Events Report.  "
^XMB(3.9,116,2,33,0)="""BLD"",5796,1,12,0)"
^XMB(3.9,116,2,34,0)=" "
^XMB(3.9,116,2,35,0)="""BLD"",5796,1,13,0)"
^XMB(3.9,116,2,36,0)="This patch restores the ability to edit the DAW CODE field through the Drug "
^XMB(3.9,116,2,37,0)="""BLD"",5796,1,14,0)"
^XMB(3.9,116,2,38,0)="Enter/Edit [PSS DRUG ENTER/EDIT] option in the Pharmacy Data Management (PDM)"
^XMB(3.9,116,2,39,0)="""BLD"",5796,1,15,0)"
^XMB(3.9,116,2,40,0)="application. This field was originally created by the patch PSS*1*90 (see item"
^XMB(3.9,116,2,41,0)="""BLD"",5796,1,16,0)"
^XMB(3.9,116,2,42,0)="#3) but was unintentionally removed by patch PSS*1*92."
^XMB(3.9,116,2,43,0)="""BLD"",5796,1,17,0)"
^XMB(3.9,116,2,44,0)="     "
^XMB(3.9,116,2,45,0)="""BLD"",5796,1,18,0)"
^XMB(3.9,116,2,46,0)="The following input template is included in this patch:"
^XMB(3.9,116,2,47,0)="""BLD"",5796,1,19,0)"
^XMB(3.9,116,2,48,0)=" "
^XMB(3.9,116,2,49,0)="""BLD"",5796,1,20,0)"
^XMB(3.9,116,2,50,0)="  Template Name                   File Name (Number)"
^XMB(3.9,116,2,51,0)="""BLD"",5796,1,21,0)"
^XMB(3.9,116,2,52,0)="  -------------                   ------------------"
^XMB(3.9,116,2,53,0)="""BLD"",5796,1,22,0)"
^XMB(3.9,116,2,54,0)="  PSSCOMMON                       DRUG        (50)"
^XMB(3.9,116,2,55,0)="""BLD"",5796,4,0)"
^XMB(3.9,116,2,56,0)="^9.64PA^^"
^XMB(3.9,116,2,57,0)="""BLD"",5796,6.3)"
^XMB(3.9,116,2,58,0)="3"
^XMB(3.9,116,2,59,0)="""BLD"",5796,""KRN"",0)"
^XMB(3.9,116,2,60,0)="^9.67PA^8989.52^19"
^XMB(3.9,116,2,61,0)="""BLD"",5796,""KRN"",.4,0)"
^XMB(3.9,116,2,62,0)=".4"
^XMB(3.9,116,2,63,0)="""BLD"",5796,""KRN"",.401,0)"
^XMB(3.9,116,2,64,0)=".401"
^XMB(3.9,116,2,65,0)="""BLD"",5796,""KRN"",.402,0)"
^XMB(3.9,116,2,66,0)=".402"
^XMB(3.9,116,2,67,0)="""BLD"",5796,""KRN"",.402,""NM"",0)"
^XMB(3.9,116,2,68,0)="^9.68A^1^1"
^XMB(3.9,116,2,69,0)="""BLD"",5796,""KRN"",.402,""NM"",1,0)"
^XMB(3.9,116,2,70,0)="PSSCOMMON    FILE #50^50^0"
^XMB(3.9,116,2,71,0)="""BLD"",5796,""KRN"",.402,""NM"",""B"",""PSSCOMMON    FILE #50"",1)"
^XMB(3.9,116,2,72,0)=""
^XMB(3.9,116,2,73,0)="""BLD"",5796,""KRN"",.403,0)"
^XMB(3.9,116,2,74,0)=".403"
^XMB(3.9,116,2,75,0)="""BLD"",5796,""KRN"",.5,0)"
^XMB(3.9,116,2,76,0)=".5"
^XMB(3.9,116,2,77,0)="""BLD"",5796,""KRN"",.84,0)"
^XMB(3.9,116,2,78,0)=".84"
^XMB(3.9,116,2,79,0)="""BLD"",5796,""KRN"",3.6,0)"
^XMB(3.9,116,2,80,0)="3.6"
^XMB(3.9,116,2,81,0)="""BLD"",5796,""KRN"",3.8,0)"
^XMB(3.9,116,2,82,0)="3.8"
^XMB(3.9,116,2,83,0)="""BLD"",5796,""KRN"",9.2,0)"
^XMB(3.9,116,2,84,0)="9.2"
^XMB(3.9,116,2,85,0)="""BLD"",5796,""KRN"",9.8,0)"
^XMB(3.9,116,2,86,0)="9.8"
^XMB(3.9,116,2,87,0)="""BLD"",5796,""KRN"",19,0)"
^XMB(3.9,116,2,88,0)="19"
^XMB(3.9,116,2,89,0)="""BLD"",5796,""KRN"",19.1,0)"
^XMB(3.9,116,2,90,0)="19.1"
^XMB(3.9,116,2,91,0)="""BLD"",5796,""KRN"",101,0)"
^XMB(3.9,116,2,92,0)="101"
^XMB(3.9,116,2,93,0)="""BLD"",5796,""KRN"",409.61,0)"
^XMB(3.9,116,2,94,0)="409.61"
^XMB(3.9,116,2,95,0)="""BLD"",5796,""KRN"",771,0)"
^XMB(3.9,116,2,96,0)="771"
^XMB(3.9,116,2,97,0)="""BLD"",5796,""KRN"",870,0)"
^XMB(3.9,116,2,98,0)="870"
^XMB(3.9,116,2,99,0)="""BLD"",5796,""KRN"",8989.51,0)"
^XMB(3.9,116,2,100,0)="8989.51"
^XMB(3.9,116,2,101,0)="""BLD"",5796,""KRN"",8989.52,0)"
^XMB(3.9,116,2,102,0)="8989.52"
^XMB(3.9,116,2,103,0)="""BLD"",5796,""KRN"",8994,0)"
^XMB(3.9,116,2,104,0)="8994"
^XMB(3.9,116,2,105,0)="""BLD"",5796,""KRN"",""B"",.4,.4)"
^XMB(3.9,116,2,106,0)=""
^XMB(3.9,116,2,107,0)="""BLD"",5796,""KRN"",""B"",.401,.401)"
^XMB(3.9,116,2,108,0)=""
^XMB(3.9,116,2,109,0)="""BLD"",5796,""KRN"",""B"",.402,.402)"
^XMB(3.9,116,2,110,0)=""
^XMB(3.9,116,2,111,0)="""BLD"",5796,""KRN"",""B"",.403,.403)"
^XMB(3.9,116,2,112,0)=""
^XMB(3.9,116,2,113,0)="""BLD"",5796,""KRN"",""B"",.5,.5)"
^XMB(3.9,116,2,114,0)=""
^XMB(3.9,116,2,115,0)="""BLD"",5796,""KRN"",""B"",.84,.84)"
^XMB(3.9,116,2,116,0)=""
^XMB(3.9,116,2,117,0)="""BLD"",5796,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,116,2,118,0)=""
^XMB(3.9,116,2,119,0)="""BLD"",5796,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,116,2,120,0)=""
^XMB(3.9,116,2,121,0)="""BLD"",5796,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,116,2,122,0)=""
^XMB(3.9,116,2,123,0)="""BLD"",5796,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,116,2,124,0)=""
^XMB(3.9,116,2,125,0)="""BLD"",5796,""KRN"",""B"",19,19)"
^XMB(3.9,116,2,126,0)=""
^XMB(3.9,116,2,127,0)="""BLD"",5796,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,116,2,128,0)=""
^XMB(3.9,116,2,129,0)="""BLD"",5796,""KRN"",""B"",101,101)"
^XMB(3.9,116,2,130,0)=""
^XMB(3.9,116,2,131,0)="""BLD"",5796,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,116,2,132,0)=""
^XMB(3.9,116,2,133,0)="""BLD"",5796,""KRN"",""B"",771,771)"
^XMB(3.9,116,2,134,0)=""
^XMB(3.9,116,2,135,0)="""BLD"",5796,""KRN"",""B"",870,870)"
^XMB(3.9,116,2,136,0)=""
^XMB(3.9,116,2,137,0)="""BLD"",5796,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,116,2,138,0)=""
^XMB(3.9,116,2,139,0)="""BLD"",5796,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,116,2,140,0)=""
^XMB(3.9,116,2,141,0)="""BLD"",5796,""KRN"",""B"",8994,8994)"
^XMB(3.9,116,2,142,0)=""
^XMB(3.9,116,2,143,0)="""BLD"",5796,""QUES"",0)"
^XMB(3.9,116,2,144,0)="^9.62^^"
^XMB(3.9,116,2,145,0)="""BLD"",5796,""REQB"",0)"
^XMB(3.9,116,2,146,0)="^9.611^1^1"
^XMB(3.9,116,2,147,0)="""BLD"",5796,""REQB"",1,0)"
^XMB(3.9,116,2,148,0)="PSS*1.0*92^2"
^XMB(3.9,116,2,149,0)="""BLD"",5796,""REQB"",""B"",""PSS*1.0*92"",1)"
^XMB(3.9,116,2,150,0)=""
^XMB(3.9,116,2,151,0)="""KRN"",.402,1998,-1)"
^XMB(3.9,116,2,152,0)="0^1"
^XMB(3.9,116,2,153,0)="""KRN"",.402,1998,0)"
^XMB(3.9,116,2,154,0)="PSSCOMMON^3060717.1612^@^50^^@^3060717"
^XMB(3.9,116,2,155,0)="""KRN"",.402,1998,""DIAB"",1,1,50.037,0)"
^XMB(3.9,116,2,156,0)="ALL"
^XMB(3.9,116,2,157,0)="""KRN"",.402,1998,""DIAB"",1,1,50.065,0)"
^XMB(3.9,116,2,158,0)="ALL"
^XMB(3.9,116,2,159,0)="""KRN"",.402,1998,""DR"",1,50)"
^XMB(3.9,116,2,160,0)=".01;2;D PKIND^PSSDDUT2;3;81;D PKIND^PSSDDUT2;W !!,""NATIONAL FORMULARY INDICATOR: "" W:$P($G(^PSDRUG(DA,""ND"")),""^"",11)=1 ""YES"" W:$P($G(^PSDRUG(DA,""ND"")),""^"",11)="""" ""Not Matched To NDF"" W:$P($G(^PSDRUG(DA,""ND"")),""^"",11)=0 ""NO"";51;52;"
^XMB(3.9,116,2,161,0)="""KRN"",.402,1998,""DR"",1,50,1)"
^XMB(3.9,116,2,162,0)="37;65;9;101;102;6;31;100;N ND S ND=$G(^PSDRUG(DA,""ND"")) I +ND,+$P(ND,""^"",3),+$P($G(^PSNDF(50.68,+$P(ND,""^"",3),""PFS"")),""^"") S Y=""@4"";W !!,""If you are planning to match to a NDF entry later or have no plan of using"";"
^XMB(3.9,116,2,163,0)="""KRN"",.402,1998,""DR"",1,50,2)"
^XMB(3.9,116,2,164,0)="W !,""the external billing function, you may skip the Service Code entry."";400;@4;S PSONEWW=$S($P($G(^PS(59.7,1,10)),""^"",9)=""N"":1,1:0) W !!,""WARNING LABEL SOURCE is ""_$S(PSONEWW:""'NEW'."",1:""not 'NEW'."");"
^XMB(3.9,116,2,165,0)="""KRN"",.402,1998,""DR"",1,50,3)"
^XMB(3.9,116,2,166,0)="I PSONEWW W !,""The following WARNING LABEL may continue to be used for a limited time for some external interfaces."";I 'PSONEWW W !,""WARNING LABEL will be used until the WARNING LABEL SOURCE is set to 'NEW'."";8;@5;"
^XMB(3.9,116,2,167,0)="""KRN"",.402,1998,""DR"",1,50,4)"
^XMB(3.9,116,2,168,0)="D WARN^PSSWRNB S:$G(WARNEDIT) Y=""@10"" I '$G(WARNEDIT) S Y=""@15"";@10;8.1;S Y=""@5"";@15;D GENDER2^PSSWRNA I GENDER="""" S Y=""@20"";8.2;@20;12;13;14.5;15;"
^XMB(3.9,116,2,169,0)="""KRN"",.402,1998,""DR"",2,50.037)"
^XMB(3.9,116,2,170,0)=".01"
^XMB(3.9,116,2,171,0)="""KRN"",.402,1998,""DR"",2,50.065)"
^XMB(3.9,116,2,172,0)=".01"
^XMB(3.9,116,2,173,0)="""KRN"",.402,1998,""DR"",2,50.1)"
^XMB(3.9,116,2,174,0)=".01;1;2;"
^XMB(3.9,116,2,175,0)="""MBREQ"")"
^XMB(3.9,116,2,176,0)="0"
^XMB(3.9,116,2,177,0)="""ORD"",7,.402)"
^XMB(3.9,116,2,178,0)=".402;7;;;EDEOUT^DIFROMSO(.402,DA,"""",XPDA);FPRE^DIFROMSI(.402,"""",XPDA);EPRE^DIFROMSI(.402,DA,$E(""N"",$G(XPDNEW)),XPDA,"""",OLDA);;EPOST^DIFROMSI(.402,DA,"""",XPDA);DEL^DIFROMSK(.402,"""",%)"
^XMB(3.9,116,2,179,0)="""ORD"",7,.402,0)"
^XMB(3.9,116,2,180,0)="INPUT TEMPLATE"
^XMB(3.9,116,2,181,0)="""PKG"",517,-1)"
^XMB(3.9,116,2,182,0)="1^1"
^XMB(3.9,116,2,183,0)="""PKG"",517,0)"
^XMB(3.9,116,2,184,0)="PHARMACY DATA MANAGEMENT^PSS^Maintenance of Pharmacy files."
^XMB(3.9,116,2,185,0)="""PKG"",517,20,0)"
^XMB(3.9,116,2,186,0)="^9.402P^^"
^XMB(3.9,116,2,187,0)="""PKG"",517,22,0)"
^XMB(3.9,116,2,188,0)="^9.49I^1^1"
^XMB(3.9,116,2,189,0)="""PKG"",517,22,1,0)"
^XMB(3.9,116,2,190,0)="1.0^2970930^2971014^11595"
^XMB(3.9,116,2,191,0)="""PKG"",517,22,1,""PAH"",1,0)"
^XMB(3.9,116,2,192,0)="115^3060724"
^XMB(3.9,116,2,193,0)="""PKG"",517,22,1,""PAH"",1,1,0)"
^XMB(3.9,116,2,194,0)="^^22^22^3060724"
^XMB(3.9,116,2,195,0)="""PKG"",517,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,116,2,196,0)="This patch supports the National Council for Prescription Drug Programs (NCPDP) "
^XMB(3.9,116,2,197,0)="""PKG"",517,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,116,2,198,0)="standard which was adopted under the Healthcare Insurance Portability and "
^XMB(3.9,116,2,199,0)="""PKG"",517,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,116,2,200,0)="Accountability Act (HIPAA) for pharmacy claims. This patch is one of six to be"
^XMB(3.9,116,2,201,0)="""PKG"",517,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,116,2,202,0)="released.  Three patches will be released in a KIDS multi-build distribution "
^XMB(3.9,116,2,203,0)="""PKG"",517,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,116,2,204,0)="containing: BPS*1*3, PSO*7*247, and IB*2*342.  Three patches will be released"
^XMB(3.9,116,2,205,0)="""PKG"",517,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,116,2,206,0)="individually and they are: PRCA*4.5*247, PSX*2.0*62, and PSS*1.0*115."
^XMB(3.9,116,2,207,0)="""PKG"",517,22,1,""PAH"",1,1,7,0)"
^XMB(3.9,116,2,208,0)=" "
^XMB(3.9,116,2,209,0)="""PKG"",517,22,1,""PAH"",1,1,8,0)"
^XMB(3.9,116,2,210,0)="Enhancements included in the release of the six patches are a new option that "
^XMB(3.9,116,2,211,0)="""PKG"",517,22,1,""PAH"",1,1,9,0)"
^XMB(3.9,116,2,212,0)="will enable the user to reopen a closed Electron Claims Management Engine (ECME)"
^XMB(3.9,116,2,213,0)="""PKG"",517,22,1,""PAH"",1,1,10,0)"
^XMB(3.9,116,2,214,0)="claim; updates to the Rx Activity Log; and permanent storage of Claims activity "
^XMB(3.9,116,2,215,0)="""PKG"",517,22,1,""PAH"",1,1,11,0)"
^XMB(3.9,116,2,216,0)="information as reported by the ECME Billing Events Report.  "
^XMB(3.9,116,2,217,0)="""PKG"",517,22,1,""PAH"",1,1,12,0)"
^XMB(3.9,116,2,218,0)=" "
^XMB(3.9,116,2,219,0)="""PKG"",517,22,1,""PAH"",1,1,13,0)"
^XMB(3.9,116,2,220,0)="This patch restores the ability to edit the DAW CODE field through the Drug "
^XMB(3.9,116,2,221,0)="""PKG"",517,22,1,""PAH"",1,1,14,0)"
^XMB(3.9,116,2,222,0)="Enter/Edit [PSS DRUG ENTER/EDIT] option in the Pharmacy Data Management (PDM)"
^XMB(3.9,116,2,223,0)="""PKG"",517,22,1,""PAH"",1,1,15,0)"
^XMB(3.9,116,2,224,0)="application. This field was originally created by the patch PSS*1*90 (see item"
^XMB(3.9,116,2,225,0)="""PKG"",517,22,1,""PAH"",1,1,16,0)"
^XMB(3.9,116,2,226,0)="#3) but was unintentionally removed by patch PSS*1*92."
^XMB(3.9,116,2,227,0)="""PKG"",517,22,1,""PAH"",1,1,17,0)"
^XMB(3.9,116,2,228,0)="     "
^XMB(3.9,116,2,229,0)="""PKG"",517,22,1,""PAH"",1,1,18,0)"
^XMB(3.9,116,2,230,0)="The following input template is included in this patch:"
^XMB(3.9,116,2,231,0)="""PKG"",517,22,1,""PAH"",1,1,19,0)"
^XMB(3.9,116,2,232,0)=" "
^XMB(3.9,116,2,233,0)="""PKG"",517,22,1,""PAH"",1,1,20,0)"
^XMB(3.9,116,2,234,0)="  Template Name                   File Name (Number)"
^XMB(3.9,116,2,235,0)="""PKG"",517,22,1,""PAH"",1,1,21,0)"
^XMB(3.9,116,2,236,0)="  -------------                   ------------------"
^XMB(3.9,116,2,237,0)="""PKG"",517,22,1,""PAH"",1,1,22,0)"
^XMB(3.9,116,2,238,0)="  PSSCOMMON                       DRUG        (50)"
^XMB(3.9,116,2,239,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,116,2,240,0)="Y"
^XMB(3.9,116,2,241,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,116,2,242,0)="^D REP^XPDH"
^XMB(3.9,116,2,243,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,116,2,244,0)="Shall I write over your |FLAG| File"
^XMB(3.9,116,2,245,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,116,2,246,0)="YES"
^XMB(3.9,116,2,247,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,116,2,248,0)="D XPF1^XPDIQ"
^XMB(3.9,116,2,249,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,116,2,250,0)="Y"
^XMB(3.9,116,2,251,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,116,2,252,0)="^D DTA^XPDH"
^XMB(3.9,116,2,253,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,116,2,254,0)="Want my data |FLAG| yours"
^XMB(3.9,116,2,255,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,116,2,256,0)="YES"
^XMB(3.9,116,2,257,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,116,2,258,0)="D XPF2^XPDIQ"
^XMB(3.9,116,2,259,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,116,2,260,0)="YO"
^XMB(3.9,116,2,261,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,116,2,262,0)="^D INHIBIT^XPDH"
^XMB(3.9,116,2,263,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,116,2,264,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,116,2,265,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,116,2,266,0)="YES"
^XMB(3.9,116,2,267,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,116,2,268,0)="D XPI1^XPDIQ"
^XMB(3.9,116,2,269,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,116,2,270,0)="PO^VA(200,:EM"
^XMB(3.9,116,2,271,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,116,2,272,0)="^D MG^XPDH"
^XMB(3.9,116,2,273,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,116,2,274,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,116,2,275,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,116,2,276,0)=""
^XMB(3.9,116,2,277,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,116,2,278,0)="D XPM1^XPDIQ"
^XMB(3.9,116,2,279,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,116,2,280,0)="Y"
^XMB(3.9,116,2,281,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,116,2,282,0)="^D MENU^XPDH"
^XMB(3.9,116,2,283,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,116,2,284,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,116,2,285,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,116,2,286,0)="YES"
^XMB(3.9,116,2,287,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,116,2,288,0)="D XPO1^XPDIQ"
^XMB(3.9,116,2,289,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,116,2,290,0)="Y"
^XMB(3.9,116,2,291,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,116,2,292,0)="^D OPT^XPDH"
^XMB(3.9,116,2,293,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,116,2,294,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,116,2,295,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,116,2,296,0)="YES"
^XMB(3.9,116,2,297,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,116,2,298,0)="D XPZ1^XPDIQ"
^XMB(3.9,116,2,299,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,116,2,300,0)="Y"
^XMB(3.9,116,2,301,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,116,2,302,0)="^D RTN^XPDH"
^XMB(3.9,116,2,303,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,116,2,304,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,116,2,305,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,116,2,306,0)="NO"
^XMB(3.9,116,2,307,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,116,2,308,0)="D XPZ2^XPDIQ"
^XMB(3.9,116,2,309,0)="""VER"")"
^XMB(3.9,116,2,310,0)="8.0^22.0"
^XMB(3.9,116,2,311,0)="""BLD"",5796,6)"
^XMB(3.9,116,2,312,0)="^104"
^XMB(3.9,116,2,313,0)="$END KID PSS*1.0*115"
^XMB(3.9,116,6,0)="^3.911A^2^2"
^XMB(3.9,116,6,1,0)="POSTMASTER"
^XMB(3.9,116,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,116,6,"B","POSTMASTER",1)=""
^XMB(3.9,116,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,117,0)="PSS-1_SEQ-105_PAT-108.KID^.5^3061008.015741^^^^K"
^XMB(3.9,117,.6)="3061008"
^XMB(3.9,117,1,0)="^3.91A^2^2"
^XMB(3.9,117,1,1,0)=".5^0^3061008.015741^^^^^^^3061008.015741"
^XMB(3.9,117,1,2,0)="1^0^3061008.02242^^^^^^^3061008.02242"
^XMB(3.9,117,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,117,1,"C",.5,1)=""
^XMB(3.9,117,1,"C",1,2)=""
^XMB(3.9,117,2,0)="^^1313^1313^3061008"
^XMB(3.9,117,2,1,0)="$TXT Released PSS*1*108 SEQ #105"
^XMB(3.9,117,2,2,0)="Extracted from mail message"
^XMB(3.9,117,2,3,0)="$END TXT"
^XMB(3.9,117,2,4,0)="$KID PSS*1.0*108"
^XMB(3.9,117,2,5,0)="**INSTALL NAME**"
^XMB(3.9,117,2,6,0)="PSS*1.0*108"
^XMB(3.9,117,2,7,0)="""BLD"",6046,0)"
^XMB(3.9,117,2,8,0)="PSS*1.0*108^PHARMACY DATA MANAGEMENT^0^3060804^y"
^XMB(3.9,117,2,9,0)="""BLD"",6046,1,0)"
^XMB(3.9,117,2,10,0)="^9.61A^30^30^3060629^^^^"
^XMB(3.9,117,2,11,0)="""BLD"",6046,1,1,0)"
^XMB(3.9,117,2,12,0)="This patch contains updated Application Program Interfaces (APIs) that will "
^XMB(3.9,117,2,13,0)="""BLD"",6046,1,2,0)"
^XMB(3.9,117,2,14,0)="be used by calling applications that currently do direct global reads or "
^XMB(3.9,117,2,15,0)="""BLD"",6046,1,3,0)"
^XMB(3.9,117,2,16,0)="writes to the Pharmacy Data Management files."
^XMB(3.9,117,2,17,0)="""BLD"",6046,1,4,0)"
^XMB(3.9,117,2,18,0)=" "
^XMB(3.9,117,2,19,0)="""BLD"",6046,1,5,0)"
^XMB(3.9,117,2,20,0)="The ORDERABLE ITEM STATUS TRACKER (#81) field has been added as a returned"
^XMB(3.9,117,2,21,0)="""BLD"",6046,1,6,0)"
^XMB(3.9,117,2,22,0)="data element for the PSS^PSS59P7 API on the Pharmacy System file (#59.7)."
^XMB(3.9,117,2,23,0)="""BLD"",6046,1,7,0)"
^XMB(3.9,117,2,24,0)=" "
^XMB(3.9,117,2,25,0)="""BLD"",6046,1,8,0)"
^XMB(3.9,117,2,26,0)="The ORIGINAL WARD (#9), OTHER PRINT INFO (#31) & MED ROUTE (#132) fields "
^XMB(3.9,117,2,27,0)="""BLD"",6046,1,9,0)"
^XMB(3.9,117,2,28,0)="were added to the PSS436 component of the PSS55 API on the Pharmacy "
^XMB(3.9,117,2,29,0)="""BLD"",6046,1,10,0)"
^XMB(3.9,117,2,30,0)="Patient file (#55).  "
^XMB(3.9,117,2,31,0)="""BLD"",6046,1,11,0)"
^XMB(3.9,117,2,32,0)=" "
^XMB(3.9,117,2,33,0)="""BLD"",6046,1,12,0)"
^XMB(3.9,117,2,34,0)="The DIC^PSSDI API has been modified to allow drug selection with matches"
^XMB(3.9,117,2,35,0)="""BLD"",6046,1,13,0)"
^XMB(3.9,117,2,36,0)="to certain VA Classes that are passed to the call."
^XMB(3.9,117,2,37,0)="""BLD"",6046,1,14,0)"
^XMB(3.9,117,2,38,0)=" "
^XMB(3.9,117,2,39,0)="""BLD"",6046,1,15,0)"
^XMB(3.9,117,2,40,0)="Classes to be included or excluded are to be set up in the PSSVACL array"
^XMB(3.9,117,2,41,0)="""BLD"",6046,1,16,0)"
^XMB(3.9,117,2,42,0)="within the DIC component."
^XMB(3.9,117,2,43,0)="""BLD"",6046,1,17,0)"
^XMB(3.9,117,2,44,0)=" "
^XMB(3.9,117,2,45,0)="""BLD"",6046,1,18,0)"
^XMB(3.9,117,2,46,0)="For example, if only drugs with a VA Class of DX201 & DX202 were to be"
^XMB(3.9,117,2,47,0)="""BLD"",6046,1,19,0)"
^XMB(3.9,117,2,48,0)="available for selection, the local variable array would look like this:"
^XMB(3.9,117,2,49,0)="""BLD"",6046,1,20,0)"
^XMB(3.9,117,2,50,0)=" "
^XMB(3.9,117,2,51,0)="""BLD"",6046,1,21,0)"
^XMB(3.9,117,2,52,0)="PSSVACL(""DX201"")="""""
^XMB(3.9,117,2,53,0)="""BLD"",6046,1,22,0)"
^XMB(3.9,117,2,54,0)="PSSVACL(""DX202"")="""""
^XMB(3.9,117,2,55,0)="""BLD"",6046,1,23,0)"
^XMB(3.9,117,2,56,0)="PSSVACL(""R"")="""" - The ""R"" means only drugs with these classes will be"
^XMB(3.9,117,2,57,0)="""BLD"",6046,1,24,0)"
^XMB(3.9,117,2,58,0)="                  available for selection. If these classes were to be"
^XMB(3.9,117,2,59,0)="""BLD"",6046,1,25,0)"
^XMB(3.9,117,2,60,0)="                  excluded, the letter ""P"" would be used instead."
^XMB(3.9,117,2,61,0)="""BLD"",6046,1,26,0)"
^XMB(3.9,117,2,62,0)=" "
^XMB(3.9,117,2,63,0)="""BLD"",6046,1,27,0)"
^XMB(3.9,117,2,64,0)=" "
^XMB(3.9,117,2,65,0)="""BLD"",6046,1,28,0)"
^XMB(3.9,117,2,66,0)="A new API was added to routine PSS51P1. The PSSDQ component displays all "
^XMB(3.9,117,2,67,0)="""BLD"",6046,1,29,0)"
^XMB(3.9,117,2,68,0)="the entries in the Administrative Schedules file (#51.1). "
^XMB(3.9,117,2,69,0)="""BLD"",6046,1,30,0)"
^XMB(3.9,117,2,70,0)=" "
^XMB(3.9,117,2,71,0)="""BLD"",6046,6.3)"
^XMB(3.9,117,2,72,0)="10"
^XMB(3.9,117,2,73,0)="""BLD"",6046,""KRN"",0)"
^XMB(3.9,117,2,74,0)="^9.67PA^^"
^XMB(3.9,117,2,75,0)="""BLD"",6046,""KRN"",.4,0)"
^XMB(3.9,117,2,76,0)=".4"
^XMB(3.9,117,2,77,0)="""BLD"",6046,""KRN"",.4,""NM"",0)"
^XMB(3.9,117,2,78,0)="^9.68A^^0"
^XMB(3.9,117,2,79,0)="""BLD"",6046,""KRN"",.401,0)"
^XMB(3.9,117,2,80,0)=".401"
^XMB(3.9,117,2,81,0)="""BLD"",6046,""KRN"",.401,""NM"",0)"
^XMB(3.9,117,2,82,0)="^9.68A^^0"
^XMB(3.9,117,2,83,0)="""BLD"",6046,""KRN"",.402,0)"
^XMB(3.9,117,2,84,0)=".402"
^XMB(3.9,117,2,85,0)="""BLD"",6046,""KRN"",.402,""NM"",0)"
^XMB(3.9,117,2,86,0)="^9.68A^^0"
^XMB(3.9,117,2,87,0)="""BLD"",6046,""KRN"",.403,0)"
^XMB(3.9,117,2,88,0)=".403"
^XMB(3.9,117,2,89,0)="""BLD"",6046,""KRN"",.5,0)"
^XMB(3.9,117,2,90,0)=".5"
^XMB(3.9,117,2,91,0)="""BLD"",6046,""KRN"",.84,0)"
^XMB(3.9,117,2,92,0)=".84"
^XMB(3.9,117,2,93,0)="""BLD"",6046,""KRN"",3.6,0)"
^XMB(3.9,117,2,94,0)="3.6"
^XMB(3.9,117,2,95,0)="""BLD"",6046,""KRN"",3.8,0)"
^XMB(3.9,117,2,96,0)="3.8"
^XMB(3.9,117,2,97,0)="""BLD"",6046,""KRN"",9.2,0)"
^XMB(3.9,117,2,98,0)="9.2"
^XMB(3.9,117,2,99,0)="""BLD"",6046,""KRN"",9.8,0)"
^XMB(3.9,117,2,100,0)="9.8"
^XMB(3.9,117,2,101,0)="""BLD"",6046,""KRN"",9.8,""NM"",0)"
^XMB(3.9,117,2,102,0)="^9.68A^5^5"
^XMB(3.9,117,2,103,0)="""BLD"",6046,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,117,2,104,0)="PSS59P7^^0^B3153955"
^XMB(3.9,117,2,105,0)="""BLD"",6046,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,117,2,106,0)="PSS55^^0^B41074993"
^XMB(3.9,117,2,107,0)="""BLD"",6046,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,117,2,108,0)="PSSDI^^0^B33977209"
^XMB(3.9,117,2,109,0)="""BLD"",6046,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,117,2,110,0)="PSS551^^0^B14966377"
^XMB(3.9,117,2,111,0)="""BLD"",6046,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,117,2,112,0)="PSS51P1^^0^B16972270"
^XMB(3.9,117,2,113,0)="""BLD"",6046,""KRN"",9.8,""NM"",""B"",""PSS51P1"",5)"
^XMB(3.9,117,2,114,0)=""
^XMB(3.9,117,2,115,0)="""BLD"",6046,""KRN"",9.8,""NM"",""B"",""PSS55"",2)"
^XMB(3.9,117,2,116,0)=""
^XMB(3.9,117,2,117,0)="""BLD"",6046,""KRN"",9.8,""NM"",""B"",""PSS551"",4)"
^XMB(3.9,117,2,118,0)=""
^XMB(3.9,117,2,119,0)="""BLD"",6046,""KRN"",9.8,""NM"",""B"",""PSS59P7"",1)"
^XMB(3.9,117,2,120,0)=""
^XMB(3.9,117,2,121,0)="""BLD"",6046,""KRN"",9.8,""NM"",""B"",""PSSDI"",3)"
^XMB(3.9,117,2,122,0)=""
^XMB(3.9,117,2,123,0)="""BLD"",6046,""KRN"",19,0)"
^XMB(3.9,117,2,124,0)="19"
^XMB(3.9,117,2,125,0)="""BLD"",6046,""KRN"",19.1,0)"
^XMB(3.9,117,2,126,0)="19.1"
^XMB(3.9,117,2,127,0)="""BLD"",6046,""KRN"",101,0)"
^XMB(3.9,117,2,128,0)="101"
^XMB(3.9,117,2,129,0)="""BLD"",6046,""KRN"",409.61,0)"
^XMB(3.9,117,2,130,0)="409.61"
^XMB(3.9,117,2,131,0)="""BLD"",6046,""KRN"",771,0)"
^XMB(3.9,117,2,132,0)="771"
^XMB(3.9,117,2,133,0)="""BLD"",6046,""KRN"",869.2,0)"
^XMB(3.9,117,2,134,0)="869.2"
^XMB(3.9,117,2,135,0)="""BLD"",6046,""KRN"",870,0)"
^XMB(3.9,117,2,136,0)="870"
^XMB(3.9,117,2,137,0)="""BLD"",6046,""KRN"",8994,0)"
^XMB(3.9,117,2,138,0)="8994"
^XMB(3.9,117,2,139,0)="""BLD"",6046,""KRN"",""B"",.4,.4)"
^XMB(3.9,117,2,140,0)=""
^XMB(3.9,117,2,141,0)="""BLD"",6046,""KRN"",""B"",.401,.401)"
^XMB(3.9,117,2,142,0)=""
^XMB(3.9,117,2,143,0)="""BLD"",6046,""KRN"",""B"",.402,.402)"
^XMB(3.9,117,2,144,0)=""
^XMB(3.9,117,2,145,0)="""BLD"",6046,""KRN"",""B"",.403,.403)"
^XMB(3.9,117,2,146,0)=""
^XMB(3.9,117,2,147,0)="""BLD"",6046,""KRN"",""B"",.5,.5)"
^XMB(3.9,117,2,148,0)=""
^XMB(3.9,117,2,149,0)="""BLD"",6046,""KRN"",""B"",.84,.84)"
^XMB(3.9,117,2,150,0)=""
^XMB(3.9,117,2,151,0)="""BLD"",6046,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,117,2,152,0)=""
^XMB(3.9,117,2,153,0)="""BLD"",6046,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,117,2,154,0)=""
^XMB(3.9,117,2,155,0)="""BLD"",6046,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,117,2,156,0)=""
^XMB(3.9,117,2,157,0)="""BLD"",6046,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,117,2,158,0)=""
^XMB(3.9,117,2,159,0)="""BLD"",6046,""KRN"",""B"",19,19)"
^XMB(3.9,117,2,160,0)=""
^XMB(3.9,117,2,161,0)="""BLD"",6046,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,117,2,162,0)=""
^XMB(3.9,117,2,163,0)="""BLD"",6046,""KRN"",""B"",101,101)"
^XMB(3.9,117,2,164,0)=""
^XMB(3.9,117,2,165,0)="""BLD"",6046,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,117,2,166,0)=""
^XMB(3.9,117,2,167,0)="""BLD"",6046,""KRN"",""B"",771,771)"
^XMB(3.9,117,2,168,0)=""
^XMB(3.9,117,2,169,0)="""BLD"",6046,""KRN"",""B"",869.2,869.2)"
^XMB(3.9,117,2,170,0)=""
^XMB(3.9,117,2,171,0)="""BLD"",6046,""KRN"",""B"",870,870)"
^XMB(3.9,117,2,172,0)=""
^XMB(3.9,117,2,173,0)="""BLD"",6046,""KRN"",""B"",8994,8994)"
^XMB(3.9,117,2,174,0)=""
^XMB(3.9,117,2,175,0)="""BLD"",6046,""QUES"",0)"
^XMB(3.9,117,2,176,0)="^9.62^^"
^XMB(3.9,117,2,177,0)="""BLD"",6046,""REQB"",0)"
^XMB(3.9,117,2,178,0)="^9.611^2^2"
^XMB(3.9,117,2,179,0)="""BLD"",6046,""REQB"",1,0)"
^XMB(3.9,117,2,180,0)="PSS*1.0*101^1"
^XMB(3.9,117,2,181,0)="""BLD"",6046,""REQB"",2,0)"
^XMB(3.9,117,2,182,0)="PSS*1.0*104^1"
^XMB(3.9,117,2,183,0)="""BLD"",6046,""REQB"",""B"",""PSS*1.0*101"",1)"
^XMB(3.9,117,2,184,0)=""
^XMB(3.9,117,2,185,0)="""BLD"",6046,""REQB"",""B"",""PSS*1.0*104"",2)"
^XMB(3.9,117,2,186,0)=""
^XMB(3.9,117,2,187,0)="""BLD"",6046,""REQG"",0)"
^XMB(3.9,117,2,188,0)="^9.611^^"
^XMB(3.9,117,2,189,0)="""MBREQ"")"
^XMB(3.9,117,2,190,0)="0"
^XMB(3.9,117,2,191,0)="""PKG"",517,-1)"
^XMB(3.9,117,2,192,0)="1^1"
^XMB(3.9,117,2,193,0)="""PKG"",517,0)"
^XMB(3.9,117,2,194,0)="PHARMACY DATA MANAGEMENT^PSS^Maintenance of Pharmacy files."
^XMB(3.9,117,2,195,0)="""PKG"",517,20,0)"
^XMB(3.9,117,2,196,0)="^9.402P^^"
^XMB(3.9,117,2,197,0)="""PKG"",517,22,0)"
^XMB(3.9,117,2,198,0)="^9.49I^1^1"
^XMB(3.9,117,2,199,0)="""PKG"",517,22,1,0)"
^XMB(3.9,117,2,200,0)="1.0^2970930^2971014^11595"
^XMB(3.9,117,2,201,0)="""PKG"",517,22,1,""PAH"",1,0)"
^XMB(3.9,117,2,202,0)="108^3060804"
^XMB(3.9,117,2,203,0)="""PKG"",517,22,1,""PAH"",1,1,0)"
^XMB(3.9,117,2,204,0)="^^30^30^3060804"
^XMB(3.9,117,2,205,0)="""PKG"",517,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,117,2,206,0)="This patch contains updated Application Program Interfaces (APIs) that will "
^XMB(3.9,117,2,207,0)="""PKG"",517,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,117,2,208,0)="be used by calling applications that currently do direct global reads or "
^XMB(3.9,117,2,209,0)="""PKG"",517,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,117,2,210,0)="writes to the Pharmacy Data Management files."
^XMB(3.9,117,2,211,0)="""PKG"",517,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,117,2,212,0)=" "
^XMB(3.9,117,2,213,0)="""PKG"",517,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,117,2,214,0)="The ORDERABLE ITEM STATUS TRACKER (#81) field has been added as a returned"
^XMB(3.9,117,2,215,0)="""PKG"",517,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,117,2,216,0)="data element for the PSS^PSS59P7 API on the Pharmacy System file (#59.7)."
^XMB(3.9,117,2,217,0)="""PKG"",517,22,1,""PAH"",1,1,7,0)"
^XMB(3.9,117,2,218,0)=" "
^XMB(3.9,117,2,219,0)="""PKG"",517,22,1,""PAH"",1,1,8,0)"
^XMB(3.9,117,2,220,0)="The ORIGINAL WARD (#9), OTHER PRINT INFO (#31) & MED ROUTE (#132) fields "
^XMB(3.9,117,2,221,0)="""PKG"",517,22,1,""PAH"",1,1,9,0)"
^XMB(3.9,117,2,222,0)="were added to the PSS436 component of the PSS55 API on the Pharmacy "
^XMB(3.9,117,2,223,0)="""PKG"",517,22,1,""PAH"",1,1,10,0)"
^XMB(3.9,117,2,224,0)="Patient file (#55).  "
^XMB(3.9,117,2,225,0)="""PKG"",517,22,1,""PAH"",1,1,11,0)"
^XMB(3.9,117,2,226,0)=" "
^XMB(3.9,117,2,227,0)="""PKG"",517,22,1,""PAH"",1,1,12,0)"
^XMB(3.9,117,2,228,0)="The DIC^PSSDI API has been modified to allow drug selection with matches"
^XMB(3.9,117,2,229,0)="""PKG"",517,22,1,""PAH"",1,1,13,0)"
^XMB(3.9,117,2,230,0)="to certain VA Classes that are passed to the call."
^XMB(3.9,117,2,231,0)="""PKG"",517,22,1,""PAH"",1,1,14,0)"
^XMB(3.9,117,2,232,0)=" "
^XMB(3.9,117,2,233,0)="""PKG"",517,22,1,""PAH"",1,1,15,0)"
^XMB(3.9,117,2,234,0)="Classes to be included or excluded are to be set up in the PSSVACL array"
^XMB(3.9,117,2,235,0)="""PKG"",517,22,1,""PAH"",1,1,16,0)"
^XMB(3.9,117,2,236,0)="within the DIC component."
^XMB(3.9,117,2,237,0)="""PKG"",517,22,1,""PAH"",1,1,17,0)"
^XMB(3.9,117,2,238,0)=" "
^XMB(3.9,117,2,239,0)="""PKG"",517,22,1,""PAH"",1,1,18,0)"
^XMB(3.9,117,2,240,0)="For example, if only drugs with a VA Class of DX201 & DX202 were to be"
^XMB(3.9,117,2,241,0)="""PKG"",517,22,1,""PAH"",1,1,19,0)"
^XMB(3.9,117,2,242,0)="available for selection, the local variable array would look like this:"
^XMB(3.9,117,2,243,0)="""PKG"",517,22,1,""PAH"",1,1,20,0)"
^XMB(3.9,117,2,244,0)=" "
^XMB(3.9,117,2,245,0)="""PKG"",517,22,1,""PAH"",1,1,21,0)"
^XMB(3.9,117,2,246,0)="PSSVACL(""DX201"")="""""
^XMB(3.9,117,2,247,0)="""PKG"",517,22,1,""PAH"",1,1,22,0)"
^XMB(3.9,117,2,248,0)="PSSVACL(""DX202"")="""""
^XMB(3.9,117,2,249,0)="""PKG"",517,22,1,""PAH"",1,1,23,0)"
^XMB(3.9,117,2,250,0)="PSSVACL(""R"")="""" - The ""R"" means only drugs with these classes will be"
^XMB(3.9,117,2,251,0)="""PKG"",517,22,1,""PAH"",1,1,24,0)"
^XMB(3.9,117,2,252,0)="                  available for selection. If these classes were to be"
^XMB(3.9,117,2,253,0)="""PKG"",517,22,1,""PAH"",1,1,25,0)"
^XMB(3.9,117,2,254,0)="                  excluded, the letter ""P"" would be used instead."
^XMB(3.9,117,2,255,0)="""PKG"",517,22,1,""PAH"",1,1,26,0)"
^XMB(3.9,117,2,256,0)=" "
^XMB(3.9,117,2,257,0)="""PKG"",517,22,1,""PAH"",1,1,27,0)"
^XMB(3.9,117,2,258,0)=" "
^XMB(3.9,117,2,259,0)="""PKG"",517,22,1,""PAH"",1,1,28,0)"
^XMB(3.9,117,2,260,0)="A new API was added to routine PSS51P1. The PSSDQ component displays all "
^XMB(3.9,117,2,261,0)="""PKG"",517,22,1,""PAH"",1,1,29,0)"
^XMB(3.9,117,2,262,0)="the entries in the Administrative Schedules file (#51.1). "
^XMB(3.9,117,2,263,0)="""PKG"",517,22,1,""PAH"",1,1,30,0)"
^XMB(3.9,117,2,264,0)=" "
^XMB(3.9,117,2,265,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,117,2,266,0)="Y"
^XMB(3.9,117,2,267,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,117,2,268,0)="^D REP^XPDH"
^XMB(3.9,117,2,269,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,117,2,270,0)="Shall I write over your |FLAG| File"
^XMB(3.9,117,2,271,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,117,2,272,0)="YES"
^XMB(3.9,117,2,273,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,117,2,274,0)="D XPF1^XPDIQ"
^XMB(3.9,117,2,275,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,117,2,276,0)="Y"
^XMB(3.9,117,2,277,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,117,2,278,0)="^D DTA^XPDH"
^XMB(3.9,117,2,279,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,117,2,280,0)="Want my data |FLAG| yours"
^XMB(3.9,117,2,281,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,117,2,282,0)="YES"
^XMB(3.9,117,2,283,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,117,2,284,0)="D XPF2^XPDIQ"
^XMB(3.9,117,2,285,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,117,2,286,0)="YO"
^XMB(3.9,117,2,287,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,117,2,288,0)="^D INHIBIT^XPDH"
^XMB(3.9,117,2,289,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,117,2,290,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,117,2,291,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,117,2,292,0)="YES"
^XMB(3.9,117,2,293,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,117,2,294,0)="D XPI1^XPDIQ"
^XMB(3.9,117,2,295,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,117,2,296,0)="PO^VA(200,:EM"
^XMB(3.9,117,2,297,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,117,2,298,0)="^D MG^XPDH"
^XMB(3.9,117,2,299,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,117,2,300,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,117,2,301,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,117,2,302,0)=""
^XMB(3.9,117,2,303,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,117,2,304,0)="D XPM1^XPDIQ"
^XMB(3.9,117,2,305,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,117,2,306,0)="Y"
^XMB(3.9,117,2,307,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,117,2,308,0)="^D MENU^XPDH"
^XMB(3.9,117,2,309,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,117,2,310,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,117,2,311,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,117,2,312,0)="YES"
^XMB(3.9,117,2,313,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,117,2,314,0)="D XPO1^XPDIQ"
^XMB(3.9,117,2,315,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,117,2,316,0)="Y"
^XMB(3.9,117,2,317,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,117,2,318,0)="^D OPT^XPDH"
^XMB(3.9,117,2,319,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,117,2,320,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,117,2,321,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,117,2,322,0)="YES"
^XMB(3.9,117,2,323,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,117,2,324,0)="D XPZ1^XPDIQ"
^XMB(3.9,117,2,325,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,117,2,326,0)="Y"
^XMB(3.9,117,2,327,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,117,2,328,0)="^D RTN^XPDH"
^XMB(3.9,117,2,329,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,117,2,330,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,117,2,331,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,117,2,332,0)="NO"
^XMB(3.9,117,2,333,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,117,2,334,0)="D XPZ2^XPDIQ"
^XMB(3.9,117,2,335,0)="""RTN"")"
^XMB(3.9,117,2,336,0)="5"
^XMB(3.9,117,2,337,0)="""RTN"",""PSS51P1"")"
^XMB(3.9,117,2,338,0)="0^5^B16972270^B16199904"
^XMB(3.9,117,2,339,0)="""RTN"",""PSS51P1"",1,0)"
^XMB(3.9,117,2,340,0)="PSS51P1 ;BIR/LDT - API FOR INFORMATION FROM FILE 51.1 ;5 Sep 03"
^XMB(3.9,117,2,341,0)="""RTN"",""PSS51P1"",2,0)"
^XMB(3.9,117,2,342,0)=" ;;1.0;PHARMACY DATA MANAGEMENT;**85,91,108**;9/30/97;Build 10"
^XMB(3.9,117,2,343,0)="""RTN"",""PSS51P1"",3,0)"
^XMB(3.9,117,2,344,0)=" ;"
^XMB(3.9,117,2,345,0)="""RTN"",""PSS51P1"",4,0)"
^XMB(3.9,117,2,346,0)="ZERO(PSSIEN,PSSFT,PSSPP,PSSTSCH,LIST) ;"
^XMB(3.9,117,2,347,0)="""RTN"",""PSS51P1"",5,0)"
^XMB(3.9,117,2,348,0)=" ;PSSIEN - IEN of entry in ADMINISTRATION SCHEDULE file (#51.1)."
^XMB(3.9,117,2,349,0)="""RTN"",""PSS51P1"",6,0)"
^XMB(3.9,117,2,350,0)=" ;PSSFT - Free Text name in ADMINISTRATION SCHEDULE file (#51.1)."
^XMB(3.9,117,2,351,0)="""RTN"",""PSS51P1"",7,0)"
^XMB(3.9,117,2,352,0)=" ;PSSPP - PACKAGE PREFIX field (#4) in ADMINISTRATION SCHEDULE file (#51.1). Screens for Administration"
^XMB(3.9,117,2,353,0)="""RTN"",""PSS51P1"",8,0)"
^XMB(3.9,117,2,354,0)=" ;Schedules for the Package Prefix passed."
^XMB(3.9,117,2,355,0)="""RTN"",""PSS51P1"",9,0)"
^XMB(3.9,117,2,356,0)=" ;PSSTSCH - TYPE OF SCHEDULE field (#5) of ADMINISTRATION SCHEDULE file (#51.1). Screens for"
^XMB(3.9,117,2,357,0)="""RTN"",""PSS51P1"",10,0)"
^XMB(3.9,117,2,358,0)=" ;          One-time ""O"" if PSSTSCH passed in."
^XMB(3.9,117,2,359,0)="""RTN"",""PSS51P1"",11,0)"
^XMB(3.9,117,2,360,0)=" ;LIST - Subscript of ^TMP array in the form ^TMP($J,LIST,Field Number where Field Number is the"
^XMB(3.9,117,2,361,0)="""RTN"",""PSS51P1"",12,0)"
^XMB(3.9,117,2,362,0)=" ;       Field Number of the data piece being returned."
^XMB(3.9,117,2,363,0)="""RTN"",""PSS51P1"",13,0)"
^XMB(3.9,117,2,364,0)=" ;Returns NAME field (#.01), STANDARD ADMINISTRATION TIMES field (#1), FREQUENCY (IN MINUTES) field (#2),"
^XMB(3.9,117,2,365,0)="""RTN"",""PSS51P1"",14,0)"
^XMB(3.9,117,2,366,0)=" ;MAXIMUM DAYS FOR ORDERS field (#2.5), PACKAGE PREFIX field (#4), TYPE OF SCHEDULE field (#5),"
^XMB(3.9,117,2,367,0)="""RTN"",""PSS51P1"",15,0)"
^XMB(3.9,117,2,368,0)=" ;STANDARD SHIFTS field (#6), OUTPATIENT EXPANSION field (#8), and OTHER LANGUAGE EXPANSIONS field (#8.1)"
^XMB(3.9,117,2,369,0)="""RTN"",""PSS51P1"",16,0)"
^XMB(3.9,117,2,370,0)=" ;of ADMINISTRATION SCHEDULE file (#51.1)."
^XMB(3.9,117,2,371,0)="""RTN"",""PSS51P1"",17,0)"
^XMB(3.9,117,2,372,0)=" N DIERR,ZZERR,PSS51P1,SCR,PSS"
^XMB(3.9,117,2,373,0)="""RTN"",""PSS51P1"",18,0)"
^XMB(3.9,117,2,374,0)=" I $G(LIST)']"""" Q"
^XMB(3.9,117,2,375,0)="""RTN"",""PSS51P1"",19,0)"
^XMB(3.9,117,2,376,0)=" K ^TMP($J,LIST)"
^XMB(3.9,117,2,377,0)="""RTN"",""PSS51P1"",20,0)"
^XMB(3.9,117,2,378,0)=" I +$G(PSSIEN)'>0,($G(PSSFT)']"""") S ^TMP($J,LIST,0)=-1_""^""_""NO DATA FOUND"" Q"
^XMB(3.9,117,2,379,0)="""RTN"",""PSS51P1"",21,0)"
^XMB(3.9,117,2,380,0)=" I $G(PSSIEN)]"""",+$G(PSSIEN)'>0 S ^TMP($J,LIST,0)=-1_""^""_""NO DATA FOUND"" Q"
^XMB(3.9,117,2,381,0)="""RTN"",""PSS51P1"",22,0)"
^XMB(3.9,117,2,382,0)=" I $G(PSSTSCH)]"""",PSSTSCH'=""O"" S PSSTSCH="""""
^XMB(3.9,117,2,383,0)="""RTN"",""PSS51P1"",23,0)"
^XMB(3.9,117,2,384,0)=" S SCR(""S"")="""" I $G(PSSTSCH)]""""!$G(PSSPP)]"""" D SETSCR"
^XMB(3.9,117,2,385,0)="""RTN"",""PSS51P1"",24,0)"
^XMB(3.9,117,2,386,0)=" I +$G(PSSIEN)>0 N PSSIEN2 S PSSIEN2=$$FIND1^DIC(51.1,"""",""A"",""`""_PSSIEN,""B"",SCR(""S""),"""") D"
^XMB(3.9,117,2,387,0)="""RTN"",""PSS51P1"",25,0)"
^XMB(3.9,117,2,388,0)=" .I +PSSIEN2'>0 S ^TMP($J,LIST,0)=-1_""^""_""NO DATA FOUND"" Q"
^XMB(3.9,117,2,389,0)="""RTN"",""PSS51P1"",26,0)"
^XMB(3.9,117,2,390,0)=" .S ^TMP($J,LIST,0)=1"
^XMB(3.9,117,2,391,0)="""RTN"",""PSS51P1"",27,0)"
^XMB(3.9,117,2,392,0)=" .D GETS^DIQ(51.1,+PSSIEN2,"".01;1;2;4;5;6;2.5;8;8.1"",""IE"",""PSS51P1"") S PSS(1)=0"
^XMB(3.9,117,2,393,0)="""RTN"",""PSS51P1"",28,0)"
^XMB(3.9,117,2,394,0)=" .F  S PSS(1)=$O(PSS51P1(51.1,PSS(1))) Q:'PSS(1)  D SETZRO^PSS51P1B"
^XMB(3.9,117,2,395,0)="""RTN"",""PSS51P1"",29,0)"
^XMB(3.9,117,2,396,0)=" I +$G(PSSIEN)'>0,$G(PSSFT)]"""" D"
^XMB(3.9,117,2,397,0)="""RTN"",""PSS51P1"",30,0)"
^XMB(3.9,117,2,398,0)=" .I PSSFT[""??"" D LOOP^PSS51P1B(1) Q"
^XMB(3.9,117,2,399,0)="""RTN"",""PSS51P1"",31,0)"
^XMB(3.9,117,2,400,0)=" .D FIND^DIC(51.1,,""@;.01;1"",""QP"",PSSFT,,""B"",SCR(""S""),,"""")"
^XMB(3.9,117,2,401,0)="""RTN"",""PSS51P1"",32,0)"
^XMB(3.9,117,2,402,0)=" .I +$G(^TMP(""DILIST"",$J,0))=0 S ^TMP($J,LIST,0)=-1_""^""_""NO DATA FOUND"" Q"
^XMB(3.9,117,2,403,0)="""RTN"",""PSS51P1"",33,0)"
^XMB(3.9,117,2,404,0)=" .I +^TMP(""DILIST"",$J,0)>0 S ^TMP($J,LIST,0)=+^TMP(""DILIST"",$J,0) N PSSXX S PSSXX=0 F  S PSSXX=$O(^TMP(""DILIST"",$J,PSSXX)) Q:'PSSXX  D"
^XMB(3.9,117,2,405,0)="""RTN"",""PSS51P1"",34,0)"
^XMB(3.9,117,2,406,0)=" ..S PSSIEN=+^TMP(""DILIST"",$J,PSSXX,0) K PSS51P1 D GETS^DIQ(51.1,+PSSIEN,"".01;1;2;4;5;6;2.5;8;8.1"",""IE"",""PSS51P1"") S PSS(1)=0"
^XMB(3.9,117,2,407,0)="""RTN"",""PSS51P1"",35,0)"
^XMB(3.9,117,2,408,0)=" ..F  S PSS(1)=$O(PSS51P1(51.1,PSS(1))) Q:'PSS(1)  D SETZRO^PSS51P1B"
^XMB(3.9,117,2,409,0)="""RTN"",""PSS51P1"",36,0)"
^XMB(3.9,117,2,410,0)=" K ^TMP(""DILIST"",$J)"
^XMB(3.9,117,2,411,0)="""RTN"",""PSS51P1"",37,0)"
^XMB(3.9,117,2,412,0)=" Q"
^XMB(3.9,117,2,413,0)="""RTN"",""PSS51P1"",38,0)"
^XMB(3.9,117,2,414,0)=" ;"
^XMB(3.9,117,2,415,0)="""RTN"",""PSS51P1"",39,0)"
^XMB(3.9,117,2,416,0)="WARD(PSSIEN,PSSFT,PSSIEN2,LIST) ;"
^XMB(3.9,117,2,417,0)="""RTN"",""PSS51P1"",40,0)"
^XMB(3.9,117,2,418,0)=" ;PSSIEN - IEN of entry in ADMINISTRATION SCHEDULE file (#51.1)."
^XMB(3.9,117,2,419,0)="""RTN"",""PSS51P1"",41,0)"
^XMB(3.9,117,2,420,0)=" ;PSSFT - Free Text name in ADMINISTRATION SCHEDULE file (#51.1)."
^XMB(3.9,117,2,421,0)="""RTN"",""PSS51P1"",42,0)"
^XMB(3.9,117,2,422,0)=" ;PSSIEN2 - IEN of entry in WARD sub-file (#51.11)"
^XMB(3.9,117,2,423,0)="""RTN"",""PSS51P1"",43,0)"
^XMB(3.9,117,2,424,0)=" ;LIST - Subscript of ^TMP array in the form ^TMP($J,LIST,Field Number where Field Number is the"
^XMB(3.9,117,2,425,0)="""RTN"",""PSS51P1"",44,0)"
^XMB(3.9,117,2,426,0)=" ;       Field Number of the data piece being returned."
^XMB(3.9,117,2,427,0)="""RTN"",""PSS51P1"",45,0)"
^XMB(3.9,117,2,428,0)=" ;Returns NAME field (#.01), WARD multiple (#51.11) WARD field (#.01), and WARD ADMINISTRATION TIMES field (#1)"
^XMB(3.9,117,2,429,0)="""RTN"",""PSS51P1"",46,0)"
^XMB(3.9,117,2,430,0)=" ;of ADMINISTRATION SCHEDULE file (#51.1)."
^XMB(3.9,117,2,431,0)="""RTN"",""PSS51P1"",47,0)"
^XMB(3.9,117,2,432,0)=" N DIERR,ZZERR,PSS51P1,PSS,CNT"
^XMB(3.9,117,2,433,0)="""RTN"",""PSS51P1"",48,0)"
^XMB(3.9,117,2,434,0)=" S CNT=0"
^XMB(3.9,117,2,435,0)="""RTN"",""PSS51P1"",49,0)"
^XMB(3.9,117,2,436,0)=" I $G(LIST)']"""" Q"
^XMB(3.9,117,2,437,0)="""RTN"",""PSS51P1"",50,0)"
^XMB(3.9,117,2,438,0)=" K ^TMP($J,LIST)"
^XMB(3.9,117,2,439,0)="""RTN"",""PSS51P1"",51,0)"
^XMB(3.9,117,2,440,0)=" I +$G(PSSIEN)'>0,($G(PSSFT)']"""") S ^TMP($J,LIST,0)=-1_""^""_""NO DATA FOUND"" Q"
^XMB(3.9,117,2,441,0)="""RTN"",""PSS51P1"",52,0)"
^XMB(3.9,117,2,442,0)=" I $G(PSSIEN)]"""",+$G(PSSIEN)'>0 S ^TMP($J,LIST,0)=-1_""^""_""NO DATA FOUND"" Q"
^XMB(3.9,117,2,443,0)="""RTN"",""PSS51P1"",53,0)"
^XMB(3.9,117,2,444,0)=" I $G(PSSIEN2)]"""",+$G(PSSIEN2)'>0 S ^TMP($J,LIST,0)=-1_""^""_""NO DATA FOUND"" Q"
^XMB(3.9,117,2,445,0)="""RTN"",""PSS51P1"",54,0)"
^XMB(3.9,117,2,446,0)=" D WARD^PSS51P1C"
^XMB(3.9,117,2,447,0)="""RTN"",""PSS51P1"",55,0)"
^XMB(3.9,117,2,448,0)=" Q"
^XMB(3.9,117,2,449,0)="""RTN"",""PSS51P1"",56,0)"
^XMB(3.9,117,2,450,0)=" ;"
^XMB(3.9,117,2,451,0)="""RTN"",""PSS51P1"",57,0)"
^XMB(3.9,117,2,452,0)="HOSP(PSSIEN,PSSFT,LIST) ;"
^XMB(3.9,117,2,453,0)="""RTN"",""PSS51P1"",58,0)"
^XMB(3.9,117,2,454,0)=" ;PSSIEN - IEN of entry in ADMINISTRATION SCHEDULE file (#51.1)."
^XMB(3.9,117,2,455,0)="""RTN"",""PSS51P1"",59,0)"
^XMB(3.9,117,2,456,0)=" ;PSSFT - Free Text name in ADMINISTRATION SCHEDULE file (#51.1)."
^XMB(3.9,117,2,457,0)="""RTN"",""PSS51P1"",60,0)"
^XMB(3.9,117,2,458,0)=" ;LIST - Subscript of ^TMP array in the form ^TMP($J,LIST,Field Number where Field Number is the"
^XMB(3.9,117,2,459,0)="""RTN"",""PSS51P1"",61,0)"
^XMB(3.9,117,2,460,0)=" ;       Field Number of the data piece being returned."
^XMB(3.9,117,2,461,0)="""RTN"",""PSS51P1"",62,0)"
^XMB(3.9,117,2,462,0)=" ;Returns NAME field (#.01), HOSPITAL LOCATION multiple (#51.17) HOSPITAL LOCATION field (#.01), ADMINISTRATION TIMES field (#1),"
^XMB(3.9,117,2,463,0)="""RTN"",""PSS51P1"",63,0)"
^XMB(3.9,117,2,464,0)=" ;and SHIFTS field (#2) of ADMINISTRATION SCHEDULE file (#51.1)."
^XMB(3.9,117,2,465,0)="""RTN"",""PSS51P1"",64,0)"
^XMB(3.9,117,2,466,0)=" N DIERR,ZZERR,PSS51P1,SCR,PSS,CNT"
^XMB(3.9,117,2,467,0)="""RTN"",""PSS51P1"",65,0)"
^XMB(3.9,117,2,468,0)=" I $G(LIST)']"""" Q"
^XMB(3.9,117,2,469,0)="""RTN"",""PSS51P1"",66,0)"
^XMB(3.9,117,2,470,0)=" D HOSP^PSS51P1A"
^XMB(3.9,117,2,471,0)="""RTN"",""PSS51P1"",67,0)"
^XMB(3.9,117,2,472,0)=" Q"
^XMB(3.9,117,2,473,0)="""RTN"",""PSS51P1"",68,0)"
^XMB(3.9,117,2,474,0)=" ;"
^XMB(3.9,117,2,475,0)="""RTN"",""PSS51P1"",69,0)"
^XMB(3.9,117,2,476,0)="IEN(PSSFT,LIST) ;"
^XMB(3.9,117,2,477,0)="""RTN"",""PSS51P1"",70,0)"
^XMB(3.9,117,2,478,0)=" ;PSSFT - Free Text name in ADMINISTRATION SCHEDULE file (#51.1)."
^XMB(3.9,117,2,479,0)="""RTN"",""PSS51P1"",71,0)"
^XMB(3.9,117,2,480,0)=" ;LIST - Subscript of ^TMP array in the form ^TMP($J,LIST,Field Number where Field Number is the"
^XMB(3.9,117,2,481,0)="""RTN"",""PSS51P1"",72,0)"
^XMB(3.9,117,2,482,0)=" ;       Field Number of the data piece being returned."
^XMB(3.9,117,2,483,0)="""RTN"",""PSS51P1"",73,0)"
^XMB(3.9,117,2,484,0)=" ;Returns NAME field (#.01) and STANDARD ADMINISTRATION TIMES field (#1) of ADMINISTRATION SCHEDULE file (#51.1)."
^XMB(3.9,117,2,485,0)="""RTN"",""PSS51P1"",74,0)"
^XMB(3.9,117,2,486,0)=" N DIERR,ZZERR,PSS51P1,SCR,PSS"
^XMB(3.9,117,2,487,0)="""RTN"",""PSS51P1"",75,0)"
^XMB(3.9,117,2,488,0)=" I $G(LIST)']"""" Q"
^XMB(3.9,117,2,489,0)="""RTN"",""PSS51P1"",76,0)"
^XMB(3.9,117,2,490,0)=" K ^TMP($J,LIST)"
^XMB(3.9,117,2,491,0)="""RTN"",""PSS51P1"",77,0)"
^XMB(3.9,117,2,492,0)=" I $G(PSSFT)']"""" S ^TMP($J,LIST,0)=-1_""^""_""NO DATA FOUND"" Q"
^XMB(3.9,117,2,493,0)="""RTN"",""PSS51P1"",78,0)"
^XMB(3.9,117,2,494,0)=" D IEN^PSS51P1A"
^XMB(3.9,117,2,495,0)="""RTN"",""PSS51P1"",79,0)"
^XMB(3.9,117,2,496,0)=" Q"
^XMB(3.9,117,2,497,0)="""RTN"",""PSS51P1"",80,0)"
^XMB(3.9,117,2,498,0)=" ;"
^XMB(3.9,117,2,499,0)="""RTN"",""PSS51P1"",81,0)"
^XMB(3.9,117,2,500,0)="AP(PSSPP,PSSFT,PSSWDIEN,PSSTYP,LIST) ;"
^XMB(3.9,117,2,501,0)="""RTN"",""PSS51P1"",82,0)"
^XMB(3.9,117,2,502,0)=" ;PSSPP - PACKAGE PREFIX in ADMINISTRATION SCHEDULE file (#51.1)."
^XMB(3.9,117,2,503,0)="""RTN"",""PSS51P1"",83,0)"
^XMB(3.9,117,2,504,0)=" ;PSSFT - Free Text name in ADMINISTRATION SCHEDULE file (#51.1)."
^XMB(3.9,117,2,505,0)="""RTN"",""PSS51P1"",84,0)"
^XMB(3.9,117,2,506,0)=" ;PSSWDIEN - IEN of entry of WARD multiple in ADMINISTRATION SCHEDULE file (#51.1)."
^XMB(3.9,117,2,507,0)="""RTN"",""PSS51P1"",85,0)"
^XMB(3.9,117,2,508,0)=" ;PSSSTYP - TYPE OF SCHEDULE field (#5) in ADMINISTRATION SCHEDULE file (#51.1). "
^XMB(3.9,117,2,509,0)="""RTN"",""PSS51P1"",86,0)"
^XMB(3.9,117,2,510,0)=" ;LIST - Subscript of ^TMP array in the form ^TMP($J,LIST,Field Number where Field Number is the"
^XMB(3.9,117,2,511,0)="""RTN"",""PSS51P1"",87,0)"
^XMB(3.9,117,2,512,0)=" ;       Field Number of the data piece being returned."
^XMB(3.9,117,2,513,0)="""RTN"",""PSS51P1"",88,0)"
^XMB(3.9,117,2,514,0)=" ;Returns NAME field (#.01), STANDARD ADMINISTRATION TIMES field (#1), and PACKAGE PREFIX field (#4)"
^XMB(3.9,117,2,515,0)="""RTN"",""PSS51P1"",89,0)"
^XMB(3.9,117,2,516,0)=" ;of ADMINISTRATION SCHEDULE file (#51.1)."
^XMB(3.9,117,2,517,0)="""RTN"",""PSS51P1"",90,0)"
^XMB(3.9,117,2,518,0)=" ;If PSSWDIEN is passed in then the WARD multiple (#51.11) WARD field (#.01), and WARD ADMINISTRATION TIMES field (#1)"
^XMB(3.9,117,2,519,0)="""RTN"",""PSS51P1"",91,0)"
^XMB(3.9,117,2,520,0)=" ;of ADMINISTRATION SCHEDULE file (#51.1) is returned."
^XMB(3.9,117,2,521,0)="""RTN"",""PSS51P1"",92,0)"
^XMB(3.9,117,2,522,0)=" N DIERR,ZZERR,PSS51P1,SCR,PSS,PSSIEN"
^XMB(3.9,117,2,523,0)="""RTN"",""PSS51P1"",93,0)"
^XMB(3.9,117,2,524,0)=" I $G(LIST)']"""" Q"
^XMB(3.9,117,2,525,0)="""RTN"",""PSS51P1"",94,0)"
^XMB(3.9,117,2,526,0)=" D AP^PSS51P1A"
^XMB(3.9,117,2,527,0)="""RTN"",""PSS51P1"",95,0)"
^XMB(3.9,117,2,528,0)=" Q"
^XMB(3.9,117,2,529,0)="""RTN"",""PSS51P1"",96,0)"
^XMB(3.9,117,2,530,0)=" ;"
^XMB(3.9,117,2,531,0)="""RTN"",""PSS51P1"",97,0)"
^XMB(3.9,117,2,532,0)="IX(PSSFT,PSSPP,LIST) ;"
^XMB(3.9,117,2,533,0)="""RTN"",""PSS51P1"",98,0)"
^XMB(3.9,117,2,534,0)=" ;PSSFT - Free Text name in ADMINISTRATION SCHEDULE file (#51.1)."
^XMB(3.9,117,2,535,0)="""RTN"",""PSS51P1"",99,0)"
^XMB(3.9,117,2,536,0)=" ;PSSPP - PACKAGE PREFIX in ADMINISTRATION SCHEDULE file (#51.1)."
^XMB(3.9,117,2,537,0)="""RTN"",""PSS51P1"",100,0)"
^XMB(3.9,117,2,538,0)=" ;LIST - Subscript of ^TMP array in the form ^TMP($J,LIST,Field Number where Field Number is the"
^XMB(3.9,117,2,539,0)="""RTN"",""PSS51P1"",101,0)"
^XMB(3.9,117,2,540,0)=" ;       Field Number of the data piece being returned."
^XMB(3.9,117,2,541,0)="""RTN"",""PSS51P1"",102,0)"
^XMB(3.9,117,2,542,0)=" ;Returns NAME field (#.01), STANDARD ADMINISTRATION TIMES field (#1), FREQUENCY (IN MINUTES) field (#2),"
^XMB(3.9,117,2,543,0)="""RTN"",""PSS51P1"",103,0)"
^XMB(3.9,117,2,544,0)=" ;MAXIMUM DAYS FOR ORDERS field (#2.5),PACKAGE PREFIX field (#4), TYPE OF SCHEDULE field (#5), STANDARD"
^XMB(3.9,117,2,545,0)="""RTN"",""PSS51P1"",104,0)"
^XMB(3.9,117,2,546,0)=" ;SHIFTS field (#6), OUTPATIENT EXPANSION field (#8), and OTHER LANGUAGE EXPANSION field (#8.1) of"
^XMB(3.9,117,2,547,0)="""RTN"",""PSS51P1"",105,0)"
^XMB(3.9,117,2,548,0)=" ;ADMINISTRATION SCHEDULE file (#51.1)."
^XMB(3.9,117,2,549,0)="""RTN"",""PSS51P1"",106,0)"
^XMB(3.9,117,2,550,0)=" N DIERR,ZZERR,PSS51P1,PSS"
^XMB(3.9,117,2,551,0)="""RTN"",""PSS51P1"",107,0)"
^XMB(3.9,117,2,552,0)=" I $G(LIST)']"""" Q"
^XMB(3.9,117,2,553,0)="""RTN"",""PSS51P1"",108,0)"
^XMB(3.9,117,2,554,0)=" D IX^PSS51P1A"
^XMB(3.9,117,2,555,0)="""RTN"",""PSS51P1"",109,0)"
^XMB(3.9,117,2,556,0)=" Q"
^XMB(3.9,117,2,557,0)="""RTN"",""PSS51P1"",110,0)"
^XMB(3.9,117,2,558,0)=" ;"
^XMB(3.9,117,2,559,0)="""RTN"",""PSS51P1"",111,0)"
^XMB(3.9,117,2,560,0)="ADM(PSSADM) ; admin times"
^XMB(3.9,117,2,561,0)="""RTN"",""PSS51P1"",112,0)"
^XMB(3.9,117,2,562,0)=" N X S X=PSSADM"
^XMB(3.9,117,2,563,0)="""RTN"",""PSS51P1"",113,0)"
^XMB(3.9,117,2,564,0)=" I $S($L($P(X,""-""))>4:1,$L(X)>119:1,$L(X)<2:1,X'>0:1,1:X'?.ANP) K X Q ""^"""
^XMB(3.9,117,2,565,0)="""RTN"",""PSS51P1"",114,0)"
^XMB(3.9,117,2,566,0)=" S X(1)=$P(X,""-"") I X(1)'?2N,X(1)'?4N K X Q ""^"""
^XMB(3.9,117,2,567,0)="""RTN"",""PSS51P1"",115,0)"
^XMB(3.9,117,2,568,0)=" S X(1)=$L(X(1)) F X(2)=2:1:$L(X,""-"") S X(3)=$P(X,""-"",X(2)) I $S($L(X(3))'=X(1):1,X(3)>$S(X(1)=2:24,1:2400):1,1:X(3)'>$P(X,""-"",X(2)-1)) K X Q"
^XMB(3.9,117,2,569,0)="""RTN"",""PSS51P1"",116,0)"
^XMB(3.9,117,2,570,0)=" I '$D(X) Q ""^"""
^XMB(3.9,117,2,571,0)="""RTN"",""PSS51P1"",117,0)"
^XMB(3.9,117,2,572,0)=" K:$D(X) X(1),X(2),X(3) Q PSSADM"
^XMB(3.9,117,2,573,0)="""RTN"",""PSS51P1"",118,0)"
^XMB(3.9,117,2,574,0)=" ;"
^XMB(3.9,117,2,575,0)="""RTN"",""PSS51P1"",119,0)"
^XMB(3.9,117,2,576,0)="ALL(PSSIEN,PSSFT,LIST) ;"
^XMB(3.9,117,2,577,0)="""RTN"",""PSS51P1"",120,0)"
^XMB(3.9,117,2,578,0)=" ;PSSIEN - IEN of entry in ADMINISTRATION SCHEDULE file (#51.1)."
^XMB(3.9,117,2,579,0)="""RTN"",""PSS51P1"",121,0)"
^XMB(3.9,117,2,580,0)=" ;PSSFT - Free Text name in ADMINISTRATION SCHEDULE file (#51.1)."
^XMB(3.9,117,2,581,0)="""RTN"",""PSS51P1"",122,0)"
^XMB(3.9,117,2,582,0)=" ;LIST - Subscript of ^TMP array in the form ^TMP($J,LIST,Field Number where Field Number is the"
^XMB(3.9,117,2,583,0)="""RTN"",""PSS51P1"",123,0)"
^XMB(3.9,117,2,584,0)=" ;       Field Number of the data piece being returned."
^XMB(3.9,117,2,585,0)="""RTN"",""PSS51P1"",124,0)"
^XMB(3.9,117,2,586,0)=" ;Returns NAME field (#.01), STANDARD ADMINISTRATION TIMES field (#1), FREQUENCY (IN MINUTES) field (#2),"
^XMB(3.9,117,2,587,0)="""RTN"",""PSS51P1"",125,0)"
^XMB(3.9,117,2,588,0)=" ;MAXIMUM DAYS FOR ORDERS field (#2.5), PACKAGE PREFIX field (#4), TYPE OF SCHEDULE field (#5),"
^XMB(3.9,117,2,589,0)="""RTN"",""PSS51P1"",126,0)"
^XMB(3.9,117,2,590,0)=" ;STANDARD SHIFTS field (#6), OUTPATIENT EXPANSION field (#8), OTHER LANGUAGE EXPANSIONS field (#8.1),"
^XMB(3.9,117,2,591,0)="""RTN"",""PSS51P1"",127,0)"
^XMB(3.9,117,2,592,0)=" ; HOSPITAL LOCATION multiple (#51.17) HOSPITAL LOCATION field (#.01), ADMINISTRATION TIMES field (#1),"
^XMB(3.9,117,2,593,0)="""RTN"",""PSS51P1"",128,0)"
^XMB(3.9,117,2,594,0)=" ;SHIFTS field (#2), WARD multiple (#51.11) WARD field (#.01), and WARD ADMINISTRATION TIMES field (#1)"
^XMB(3.9,117,2,595,0)="""RTN"",""PSS51P1"",129,0)"
^XMB(3.9,117,2,596,0)=" ;of ADMINISTRATION SCHEDULE file (#51.1)."
^XMB(3.9,117,2,597,0)="""RTN"",""PSS51P1"",130,0)"
^XMB(3.9,117,2,598,0)=" N DIERR,ZZERR,PSS"
^XMB(3.9,117,2,599,0)="""RTN"",""PSS51P1"",131,0)"
^XMB(3.9,117,2,600,0)=" I $G(LIST)']"""" Q"
^XMB(3.9,117,2,601,0)="""RTN"",""PSS51P1"",132,0)"
^XMB(3.9,117,2,602,0)=" K ^TMP($J,LIST)"
^XMB(3.9,117,2,603,0)="""RTN"",""PSS51P1"",133,0)"
^XMB(3.9,117,2,604,0)=" I +$G(PSSIEN)'>0,($G(PSSFT)']"""") S ^TMP($J,LIST,0)=-1_""^""_""NO DATA FOUND"" Q"
^XMB(3.9,117,2,605,0)="""RTN"",""PSS51P1"",134,0)"
^XMB(3.9,117,2,606,0)=" I $G(PSSIEN)]"""",+$G(PSSIEN)'>0 S ^TMP($J,LIST,0)=-1_""^""_""NO DATA FOUND"" Q"
^XMB(3.9,117,2,607,0)="""RTN"",""PSS51P1"",135,0)"
^XMB(3.9,117,2,608,0)=" D ALL^PSS51P1C"
^XMB(3.9,117,2,609,0)="""RTN"",""PSS51P1"",136,0)"
^XMB(3.9,117,2,610,0)=" Q"
^XMB(3.9,117,2,611,0)="""RTN"",""PSS51P1"",137,0)"
^XMB(3.9,117,2,612,0)=" ;"
^XMB(3.9,117,2,613,0)="""RTN"",""PSS51P1"",138,0)"
^XMB(3.9,117,2,614,0)="SETSCR ;Set Screen for One-time schedule type"
^XMB(3.9,117,2,615,0)="""RTN"",""PSS51P1"",139,0)"
^XMB(3.9,117,2,616,0)=" ;Naked reference below refers to ^PS(51.1,+Y,0)"
^XMB(3.9,117,2,617,0)="""RTN"",""PSS51P1"",140,0)"
^XMB(3.9,117,2,618,0)=" I $G(PSSTSCH)]"""" S SCR(""S"")=""I $P(^(0),""""^"""",5)=""""O"""""""
^XMB(3.9,117,2,619,0)="""RTN"",""PSS51P1"",141,0)"
^XMB(3.9,117,2,620,0)=" ;Naked reference below refers to ^PS(51.1,+Y,0)"
^XMB(3.9,117,2,621,0)="""RTN"",""PSS51P1"",142,0)"
^XMB(3.9,117,2,622,0)=" I $G(PSSPP)]"""" S SCR(""S"")=$S(SCR(""S"")]"""":SCR(""S"")_"" I $P(^(0),""""^"""",4)=PSSPP"",1:""I $P(^(0),""""^"""",4)=PSSPP"")"
^XMB(3.9,117,2,623,0)="""RTN"",""PSS51P1"",143,0)"
^XMB(3.9,117,2,624,0)=" Q"
^XMB(3.9,117,2,625,0)="""RTN"",""PSS51P1"",144,0)"
^XMB(3.9,117,2,626,0)="PSSDQ ;DQ^DICQ call on 51.1"
^XMB(3.9,117,2,627,0)="""RTN"",""PSS51P1"",145,0)"
^XMB(3.9,117,2,628,0)=" N DIC,D,DZ S DIC=""^PS(51.1,"",D=""B"",DIC(0)=""EQS"",DZ=""??"" D DQ^DICQ Q"
^XMB(3.9,117,2,629,0)="""RTN"",""PSS55"")"
^XMB(3.9,117,2,630,0)="0^2^B41074993^B67992607"
^XMB(3.9,117,2,631,0)="""RTN"",""PSS55"",1,0)"
^XMB(3.9,117,2,632,0)="PSS55 ;BHM/DB - API FOR PHARMACY PATIENT FILE ;15 JUN 05"
^XMB(3.9,117,2,633,0)="""RTN"",""PSS55"",2,0)"
^XMB(3.9,117,2,634,0)=" ;;1.0;PHARMACY DATA MANAGEMENT;**101,108**;9/30/97;Build 10"
^XMB(3.9,117,2,635,0)="""RTN"",""PSS55"",3,0)"
^XMB(3.9,117,2,636,0)="PSS431(DFN,PO,PSDATE,PEDATE,LIST) ;"
^XMB(3.9,117,2,637,0)="""RTN"",""PSS55"",4,0)"
^XMB(3.9,117,2,638,0)=" G ^PSS551"
^XMB(3.9,117,2,639,0)="""RTN"",""PSS55"",5,0)"
^XMB(3.9,117,2,640,0)="PSS432(DFN,PO,LIST) ;SRS 3.2.43.2"
^XMB(3.9,117,2,641,0)="""RTN"",""PSS55"",6,0)"
^XMB(3.9,117,2,642,0)=" N D0,DA,DR,DIC,IEN"
^XMB(3.9,117,2,643,0)="""RTN"",""PSS55"",7,0)"
^XMB(3.9,117,2,644,0)=" ;DFN: IEN of Patient [REQUIRED]"
^XMB(3.9,117,2,645,0)="""RTN"",""PSS55"",8,0)"
^XMB(3.9,117,2,646,0)=" ;PO: Order # IEN [optional] If left blank, all active orders will be returned"
^XMB(3.9,117,2,647,0)="""RTN"",""PSS55"",9,0)"
^XMB(3.9,117,2,648,0)=" ;LIST: Subscript name used in ^TMP global [REQUIRED]"
^XMB(3.9,117,2,649,0)="""RTN"",""PSS55"",10,0)"
^XMB(3.9,117,2,650,0)=" N PSSPO,PSSDT,PSSIEN,PSSDATA"
^XMB(3.9,117,2,651,0)="""RTN"",""PSS55"",11,0)"
^XMB(3.9,117,2,652,0)=" Q:$G(LIST)=""""  K ^TMP($J,LIST)"
^XMB(3.9,117,2,653,0)="""RTN"",""PSS55"",12,0)"
^XMB(3.9,117,2,654,0)=" I +$G(DFN)'>0 G NODATA"
^XMB(3.9,117,2,655,0)="""RTN"",""PSS55"",13,0)"
^XMB(3.9,117,2,656,0)=" S ^TMP($J,LIST,0)=0"
^XMB(3.9,117,2,657,0)="""RTN"",""PSS55"",14,0)"
^XMB(3.9,117,2,658,0)=" I '$D(^PS(55,DFN,0)) G NODATA"
^XMB(3.9,117,2,659,0)="""RTN"",""PSS55"",15,0)"
^XMB(3.9,117,2,660,0)=" I $G(PO)'="""",$D(^PS(55,DFN,5,PO)) S PSSPO=$P(^PS(55,DFN,5,PO,0),""^"") I $G(PSSPO)>0 S (DA(55.06),IEN)=PO G AUS2"
^XMB(3.9,117,2,661,0)="""RTN"",""PSS55"",16,0)"
^XMB(3.9,117,2,662,0)=" I $G(PO)'="""",$G(PSSPO)="""" G NODATA"
^XMB(3.9,117,2,663,0)="""RTN"",""PSS55"",17,0)"
^XMB(3.9,117,2,664,0)=" S PSSDT=0"
^XMB(3.9,117,2,665,0)="""RTN"",""PSS55"",18,0)"
^XMB(3.9,117,2,666,0)="AUS ;Loop through stop date/time xref"
^XMB(3.9,117,2,667,0)="""RTN"",""PSS55"",19,0)"
^XMB(3.9,117,2,668,0)=" F  S PSSDT=$O(^PS(55,DFN,5,""AUS"",PSSDT)) Q:PSSDT'>0  S PSSIEN=0 D"
^XMB(3.9,117,2,669,0)="""RTN"",""PSS55"",20,0)"
^XMB(3.9,117,2,670,0)=" .F  S PSSIEN=$O(^PS(55,DFN,5,""AUS"",PSSDT,PSSIEN)) Q:PSSIEN'>0  D"
^XMB(3.9,117,2,671,0)="""RTN"",""PSS55"",21,0)"
^XMB(3.9,117,2,672,0)=" ..S (IEN,DA(55.06))=PSSIEN,PSSDATA=$G(^PS(55,DFN,5,PSSIEN,0)) I $P(PSSDATA,""^"",9)'=""A"" Q"
^XMB(3.9,117,2,673,0)="""RTN"",""PSS55"",22,0)"
^XMB(3.9,117,2,674,0)=" ..D AUSDIQ"
^XMB(3.9,117,2,675,0)="""RTN"",""PSS55"",23,0)"
^XMB(3.9,117,2,676,0)=" S ^TMP($J,LIST,0)=$S(^TMP($J,LIST,0)=0:""-1^NO DATA FOUND"",1:^TMP($J,LIST,0))"
^XMB(3.9,117,2,677,0)="""RTN"",""PSS55"",24,0)"
^XMB(3.9,117,2,678,0)=" K PSSIEN,PSSDT,PSSDATA,LIST"
^XMB(3.9,117,2,679,0)="""RTN"",""PSS55"",25,0)"
^XMB(3.9,117,2,680,0)=" Q"
^XMB(3.9,117,2,681,0)="""RTN"",""PSS55"",26,0)"
^XMB(3.9,117,2,682,0)="AUSDIQ K ^UTILITY(""DIQ1"",$J),DIQ"
^XMB(3.9,117,2,683,0)="""RTN"",""PSS55"",27,0)"
^XMB(3.9,117,2,684,0)=" S DA=DFN,DIC=55,DR=62,DR(55.06)="".01;.5;1;3;4;5;6;7;9;11;12;26;27;27.1;28"",DIQ(0)=""IE"" D EN^DIQ1"
^XMB(3.9,117,2,685,0)="""RTN"",""PSS55"",28,0)"
^XMB(3.9,117,2,686,0)=" S PSSPO=$G(^UTILITY(""DIQ1"",$J,55.06,IEN,.01,""E"")) F X=.01,.5,1,3,4,5,6,7,9,11,12,26,27,27.1,28 S ^TMP($J,LIST,IEN,X)=$G(^UTILITY(""DIQ1"",$J,55.06,IEN,X,""I""))"
^XMB(3.9,117,2,687,0)="""RTN"",""PSS55"",29,0)"
^XMB(3.9,117,2,688,0)=" F X=.5,1,3,4,5,6,7,9,27,27.1,28 S ^TMP($J,LIST,IEN,X)=$S($G(^UTILITY(""DIQ1"",$J,55.06,IEN,X,""E""))'="""":^TMP($J,LIST,IEN,X)_""^""_$G(^UTILITY(""DIQ1"",$J,55.06,IEN,X,""E"")),1:"""")"
^XMB(3.9,117,2,689,0)="""RTN"",""PSS55"",30,0)"
^XMB(3.9,117,2,690,0)=" K ^UTILITY(""DIQ1"",$J),DIQ"
^XMB(3.9,117,2,691,0)="""RTN"",""PSS55"",31,0)"
^XMB(3.9,117,2,692,0)=" S ^TMP($J,LIST,""B"",IEN)="""",^TMP($J,LIST,0)=$G(^TMP($J,LIST,0))+1"
^XMB(3.9,117,2,693,0)="""RTN"",""PSS55"",32,0)"
^XMB(3.9,117,2,694,0)=" Q"
^XMB(3.9,117,2,695,0)="""RTN"",""PSS55"",33,0)"
^XMB(3.9,117,2,696,0)="AUS2 ;one PO"
^XMB(3.9,117,2,697,0)="""RTN"",""PSS55"",34,0)"
^XMB(3.9,117,2,698,0)=" S PSSQ=1 D AUSDIQ"
^XMB(3.9,117,2,699,0)="""RTN"",""PSS55"",35,0)"
^XMB(3.9,117,2,700,0)=" S ^TMP($J,LIST,0)=$S(^TMP($J,LIST,0)=0:""-1^NO DATA FOUND"",1:^TMP($J,LIST,0))"
^XMB(3.9,117,2,701,0)="""RTN"",""PSS55"",36,0)"
^XMB(3.9,117,2,702,0)="AUSQ K PSSDT,PSSIEN,PSSDATA,PSSPO,LIST,X,PSSQ,DA,DR,DIC Q"
^XMB(3.9,117,2,703,0)="""RTN"",""PSS55"",37,0)"
^XMB(3.9,117,2,704,0)=" ;"
^XMB(3.9,117,2,705,0)="""RTN"",""PSS55"",38,0)"
^XMB(3.9,117,2,706,0)="PSS433(DFN,LIST) ;"
^XMB(3.9,117,2,707,0)="""RTN"",""PSS55"",39,0)"
^XMB(3.9,117,2,708,0)=" ;DFN: IEN of Patient [REQUIRED]"
^XMB(3.9,117,2,709,0)="""RTN"",""PSS55"",40,0)"
^XMB(3.9,117,2,710,0)=" ;LIST: Subscript name used in ^TMP global [REQUIRED]"
^XMB(3.9,117,2,711,0)="""RTN"",""PSS55"",41,0)"
^XMB(3.9,117,2,712,0)=" N X,DA,DR,PSSPO,PSSIEN,D0,IEN"
^XMB(3.9,117,2,713,0)="""RTN"",""PSS55"",42,0)"
^XMB(3.9,117,2,714,0)=" Q:$G(LIST)=""""  K ^TMP($J,LIST)"
^XMB(3.9,117,2,715,0)="""RTN"",""PSS55"",43,0)"
^XMB(3.9,117,2,716,0)=" I $G(DFN)'>0 S ^TMP($J,LIST,0)=""-1^NO DATA FOUND"" Q"
^XMB(3.9,117,2,717,0)="""RTN"",""PSS55"",44,0)"
^XMB(3.9,117,2,718,0)=" I '$D(^PS(55,DFN)) G NODATA"
^XMB(3.9,117,2,719,0)="""RTN"",""PSS55"",45,0)"
^XMB(3.9,117,2,720,0)=" S PSSIEN=0,^TMP($J,LIST,0)=0"
^XMB(3.9,117,2,721,0)="""RTN"",""PSS55"",46,0)"
^XMB(3.9,117,2,722,0)="BGN433 S PSSIEN=$O(^PS(55,DFN,5,PSSIEN)) G Q433:PSSIEN'>0 S PSSPO=$P($G(^PS(55,DFN,5,PSSIEN,0)),""^"")"
^XMB(3.9,117,2,723,0)="""RTN"",""PSS55"",47,0)"
^XMB(3.9,117,2,724,0)=" S (IEN,DA(55.06))=PSSIEN,DIC=55,DA=DFN,DR=62,DR(55.06)="".5;9;25;26;34;41;42;70"",DIQ(0)=""IE"" D EN^DIQ1"
^XMB(3.9,117,2,725,0)="""RTN"",""PSS55"",48,0)"
^XMB(3.9,117,2,726,0)=" F X=.5,9,25,26,34,41,42,70 S ^TMP($J,LIST,+PSSIEN,X)=$G(^UTILITY(""DIQ1"",$J,55.06,IEN,X,""I""))"
^XMB(3.9,117,2,727,0)="""RTN"",""PSS55"",49,0)"
^XMB(3.9,117,2,728,0)=" F X=.5,9,25,34,70 S ^TMP($J,LIST,+PSSIEN,X)=$S($G(^UTILITY(""DIQ1"",$J,55.06,IEN,X,""E""))'="""":^TMP($J,LIST,+PSSIEN,X)_""^""_$G(^UTILITY(""DIQ1"",$J,55.06,IEN,X,""E"")),1:"""")"
^XMB(3.9,117,2,729,0)="""RTN"",""PSS55"",50,0)"
^XMB(3.9,117,2,730,0)=" S ^TMP($J,LIST,0)=$G(^TMP($J,LIST,0))+1"
^XMB(3.9,117,2,731,0)="""RTN"",""PSS55"",51,0)"
^XMB(3.9,117,2,732,0)=" S ^TMP($J,LIST,""B"",+PSSIEN)="""""
^XMB(3.9,117,2,733,0)="""RTN"",""PSS55"",52,0)"
^XMB(3.9,117,2,734,0)=" G BGN433"
^XMB(3.9,117,2,735,0)="""RTN"",""PSS55"",53,0)"
^XMB(3.9,117,2,736,0)="Q433 K ^UTILITY(""DIQ1"",$J),PSSIEN,X,DR,DIC,DA,LIST Q"
^XMB(3.9,117,2,737,0)="""RTN"",""PSS55"",54,0)"
^XMB(3.9,117,2,738,0)="PSS435(DFN,PO,LIST) ;SRS 3.2.43.5"
^XMB(3.9,117,2,739,0)="""RTN"",""PSS55"",55,0)"
^XMB(3.9,117,2,740,0)=" N D0,DA,DIC,DR,IEN,X,PSSPO,PSSDATA,PSSIEN,PSSDT"
^XMB(3.9,117,2,741,0)="""RTN"",""PSS55"",56,0)"
^XMB(3.9,117,2,742,0)=" ;DFN:  IEN of Patient [REQUIRED]"
^XMB(3.9,117,2,743,0)="""RTN"",""PSS55"",57,0)"
^XMB(3.9,117,2,744,0)=" ;PO: Order # [optional] If left blank, all active orders will be returned. "
^XMB(3.9,117,2,745,0)="""RTN"",""PSS55"",58,0)"
^XMB(3.9,117,2,746,0)=" ;LIST: Subscript name used in ^TMP global [REQUIRED]"
^XMB(3.9,117,2,747,0)="""RTN"",""PSS55"",59,0)"
^XMB(3.9,117,2,748,0)=" ;Active hyperal orders utilizing ""AIT"" cross reference"
^XMB(3.9,117,2,749,0)="""RTN"",""PSS55"",60,0)"
^XMB(3.9,117,2,750,0)=" Q:$G(LIST)=""""  K ^TMP($J,LIST)"
^XMB(3.9,117,2,751,0)="""RTN"",""PSS55"",61,0)"
^XMB(3.9,117,2,752,0)=" I $G(DFN)'>0  S ^TMP($J,LIST,0)=""-1^NO DATA FOUND"" Q"
^XMB(3.9,117,2,753,0)="""RTN"",""PSS55"",62,0)"
^XMB(3.9,117,2,754,0)=" I '$D(^PS(55,DFN,""IV"",""AIT"",""H"")) S ^TMP($J,LIST,0)=""-1^NO DATA FOUND"" Q"
^XMB(3.9,117,2,755,0)="""RTN"",""PSS55"",63,0)"
^XMB(3.9,117,2,756,0)=" S PSSDT=0,^TMP($J,LIST,0)=0"
^XMB(3.9,117,2,757,0)="""RTN"",""PSS55"",64,0)"
^XMB(3.9,117,2,758,0)="AIT ;loop trough AIT xref"
^XMB(3.9,117,2,759,0)="""RTN"",""PSS55"",65,0)"
^XMB(3.9,117,2,760,0)=" S PSSDT=$O(^PS(55,DFN,""IV"",""AIT"",""H"",PSSDT)) G AITQ:PSSDT'>0 S PSSIEN=0"
^XMB(3.9,117,2,761,0)="""RTN"",""PSS55"",66,0)"
^XMB(3.9,117,2,762,0)="AIT1 S PSSIEN=$O(^PS(55,DFN,""IV"",""AIT"",""H"",PSSDT,PSSIEN)) G AIT:PSSIEN'>0"
^XMB(3.9,117,2,763,0)="""RTN"",""PSS55"",67,0)"
^XMB(3.9,117,2,764,0)=" S PSSDATA=$G(^PS(55,DFN,""IV"",PSSIEN,0)),PSSSTAT=$P($G(PSSDATA),""^"",17) I PSSSTAT'=""A"",$G(PO)'>0 G AIT1"
^XMB(3.9,117,2,765,0)="""RTN"",""PSS55"",68,0)"
^XMB(3.9,117,2,766,0)=" I +$G(PO)>0 G AIT1:PSSIEN'=PO"
^XMB(3.9,117,2,767,0)="""RTN"",""PSS55"",69,0)"
^XMB(3.9,117,2,768,0)=" S PSSPO=$P(PSSDATA,""^"",1),^TMP($J,LIST,""B"",+PSSIEN)="""""
^XMB(3.9,117,2,769,0)="""RTN"",""PSS55"",70,0)"
^XMB(3.9,117,2,770,0)="AITDIQ K ^UTILITY(""DIQ1"",$J) S DA=DFN,(IEN,DA(55.01))=PSSIEN,DIC=55,DR=100,DIQ(0)=""IE"",DR(55.01)="".01;.02;.03;.04;.06;.08;.09;.12;.17;.24;9;31;100;104;106;108;110;112;120;121;132"" D EN^DIQ1"
^XMB(3.9,117,2,771,0)="""RTN"",""PSS55"",71,0)"
^XMB(3.9,117,2,772,0)=" F X=.01,.02,.03,.04,.06,.08,.09,.12,.17,.24,9,31,100,104,106,108,110,112,120,121,132 S ^TMP($J,LIST,PSSPO,X)=$G(^UTILITY(""DIQ1"",$J,55.01,IEN,X,""I""))"
^XMB(3.9,117,2,773,0)="""RTN"",""PSS55"",72,0)"
^XMB(3.9,117,2,774,0)=" F X=.02,.03,.04,.06,9,100,106,108,112,120,121,132 S ^TMP($J,LIST,PSSPO,X)=$S($G(^UTILITY(""DIQ1"",$J,55.01,IEN,X,""E""))'="""":^TMP($J,LIST,PSSPO,X)_""^""_$G(^UTILITY(""DIQ1"",$J,55.01,IEN,X,""E"")),1:"""")"
^XMB(3.9,117,2,775,0)="""RTN"",""PSS55"",73,0)"
^XMB(3.9,117,2,776,0)=" K ^UTILITY(""DIQ1"",$J)"
^XMB(3.9,117,2,777,0)="""RTN"",""PSS55"",74,0)"
^XMB(3.9,117,2,778,0)=" S ^TMP($J,LIST,0)=$G(^TMP($J,LIST,0))+1"
^XMB(3.9,117,2,779,0)="""RTN"",""PSS55"",75,0)"
^XMB(3.9,117,2,780,0)=" G AIT1"
^XMB(3.9,117,2,781,0)="""RTN"",""PSS55"",76,0)"
^XMB(3.9,117,2,782,0)="AITQ I $G(^TMP($J,LIST,0))=0 K ^TMP($J,LIST) S ^TMP($J,LIST,0)=""-1^NO DATA FOUND"""
^XMB(3.9,117,2,783,0)="""RTN"",""PSS55"",77,0)"
^XMB(3.9,117,2,784,0)=" K PSSIEN,PSSDT,PSSSTAT,PSSDATA,PO,X,LIST Q"
^XMB(3.9,117,2,785,0)="""RTN"",""PSS55"",78,0)"
^XMB(3.9,117,2,786,0)=" ;"
^XMB(3.9,117,2,787,0)="""RTN"",""PSS55"",79,0)"
^XMB(3.9,117,2,788,0)="PSS436(DFN,ORDER,LIST) ;SRS 3.2.43.6"
^XMB(3.9,117,2,789,0)="""RTN"",""PSS55"",80,0)"
^XMB(3.9,117,2,790,0)=" N D0,IEN,X"
^XMB(3.9,117,2,791,0)="""RTN"",""PSS55"",81,0)"
^XMB(3.9,117,2,792,0)=" ;DFN: IEN of Patient [REQUIRED]"
^XMB(3.9,117,2,793,0)="""RTN"",""PSS55"",82,0)"
^XMB(3.9,117,2,794,0)=" ;ORDER:  ORDER NUMBER [REQUIRED]"
^XMB(3.9,117,2,795,0)="""RTN"",""PSS55"",83,0)"
^XMB(3.9,117,2,796,0)=" ;LIST: Subscript name used in ^TMP global [REQUIRED]"
^XMB(3.9,117,2,797,0)="""RTN"",""PSS55"",84,0)"
^XMB(3.9,117,2,798,0)=" ;Active IV AD nodes"
^XMB(3.9,117,2,799,0)="""RTN"",""PSS55"",85,0)"
^XMB(3.9,117,2,800,0)=" K PSSLOOP Q:$G(LIST)=""""  K ^TMP($J,LIST) I $G(DFN)'>0  S ^TMP($J,LIST,0)=""-1^NO DATA FOUND"" Q"
^XMB(3.9,117,2,801,0)="""RTN"",""PSS55"",86,0)"
^XMB(3.9,117,2,802,0)=" I '$D(^PS(55,DFN)) S ^TMP($J,LIST,0)=""-1^NO DATA FOUND"" Q"
^XMB(3.9,117,2,803,0)="""RTN"",""PSS55"",87,0)"
^XMB(3.9,117,2,804,0)=" K ^TMP($J,LIST) I $G(ORDER)="""" S PSSLOOP=1 S ORDER=0 G LOOP436"
^XMB(3.9,117,2,805,0)="""RTN"",""PSS55"",88,0)"
^XMB(3.9,117,2,806,0)=" I $G(ORDER)'="""" S PSSPO=$O(^PS(55,DFN,""IV"",""B"",ORDER,0)) G PSS436Q:$G(PSSPO)'>0 G DIQ436"
^XMB(3.9,117,2,807,0)="""RTN"",""PSS55"",89,0)"
^XMB(3.9,117,2,808,0)="LOOP436 S ORDER=$O(^PS(55,DFN,""IV"",""B"",ORDER)) G PSS436Q:ORDER'>0  S PSSPO=$O(^PS(55,DFN,""IV"",""B"",ORDER,0))"
^XMB(3.9,117,2,809,0)="""RTN"",""PSS55"",90,0)"
^XMB(3.9,117,2,810,0)="DIQ436 K DA,DR S DA=DFN,(IEN,DA(55.01))=PSSPO,DIC=55,DR=100"
^XMB(3.9,117,2,811,0)="""RTN"",""PSS55"",91,0)"
^XMB(3.9,117,2,812,0)=" S DR(55.01)="".01;.02;.03;.04;.06;.08;.09;.12;.17;.24;9;31;100;104;106;108;110;112;120;121;132;147"""
^XMB(3.9,117,2,813,0)="""RTN"",""PSS55"",92,0)"
^XMB(3.9,117,2,814,0)=" S DIQ(0)=""IE"" D EN^DIQ1 I '$D(^UTILITY(""DIQ1"",$J)) G NODATA"
^XMB(3.9,117,2,815,0)="""RTN"",""PSS55"",93,0)"
^XMB(3.9,117,2,816,0)=" F X=.01,.02,.03,.04,.06,.08,.09,.12,.17,.24,9,31,100,104,106,108,110,112,120,121,132,147 S ^TMP($J,LIST,PSSPO,X)=$G(^UTILITY(""DIQ1"",$J,55.01,IEN,X,""I""))"
^XMB(3.9,117,2,817,0)="""RTN"",""PSS55"",94,0)"
^XMB(3.9,117,2,818,0)=" F X=.02,.03,.04,.06,9,100,106,108,112,120,121,132,147 S ^TMP($J,LIST,PSSPO,X)=$S($G(^UTILITY(""DIQ1"",$J,55.01,IEN,X,""E""))'="""":^TMP($J,LIST,PSSPO,X)_""^""_$G(^UTILITY(""DIQ1"",$J,55.01,IEN,X,""E"")),1:"""")"
^XMB(3.9,117,2,819,0)="""RTN"",""PSS55"",95,0)"
^XMB(3.9,117,2,820,0)=" S ^TMP($J,LIST,""B"",PSSPO)="""",PSSA=0,^TMP($J,LIST,0)=$G(^TMP($J,LIST,0))+1"
^XMB(3.9,117,2,821,0)="""RTN"",""PSS55"",96,0)"
^XMB(3.9,117,2,822,0)=" S ^TMP($J,LIST,PSSPO,""ADD"",0)=0"
^XMB(3.9,117,2,823,0)="""RTN"",""PSS55"",97,0)"
^XMB(3.9,117,2,824,0)="PSSA S PSSA=$O(^PS(55,DFN,""IV"",PSSPO,""AD"",PSSA)) I PSSA'>0 S PSSS=0 S ^TMP($J,LIST,PSSPO,""SOL"",0)=0 G PSSS"
^XMB(3.9,117,2,825,0)="""RTN"",""PSS55"",98,0)"
^XMB(3.9,117,2,826,0)=" S PSSDATA=$G(^PS(55,DFN,""IV"",PSSPO,""AD"",PSSA,0)),X1=$P(PSSDATA,""^""),X2=$P(PSSDATA,""^"",2),X3=$P(PSSDATA,""^"",3)"
^XMB(3.9,117,2,827,0)="""RTN"",""PSS55"",99,0)"
^XMB(3.9,117,2,828,0)=" S ^TMP($J,LIST,PSSPO,""ADD"",PSSA,.01)=X1_""^""_$P($G(^PS(52.6,X1,0)),""^"")"
^XMB(3.9,117,2,829,0)="""RTN"",""PSS55"",100,0)"
^XMB(3.9,117,2,830,0)=" S ^TMP($J,LIST,PSSPO,""ADD"",PSSA,.02)=X2"
^XMB(3.9,117,2,831,0)="""RTN"",""PSS55"",101,0)"
^XMB(3.9,117,2,832,0)=" S ^TMP($J,LIST,PSSPO,""ADD"",PSSA,.03)=X3"
^XMB(3.9,117,2,833,0)="""RTN"",""PSS55"",102,0)"
^XMB(3.9,117,2,834,0)=" S ^TMP($J,LIST,PSSPO,""ADD"",0)=$G(^TMP($J,LIST,PSSPO,""ADD"",0))+1"
^XMB(3.9,117,2,835,0)="""RTN"",""PSS55"",103,0)"
^XMB(3.9,117,2,836,0)=" G PSSA"
^XMB(3.9,117,2,837,0)="""RTN"",""PSS55"",104,0)"
^XMB(3.9,117,2,838,0)="PSSS I ^TMP($J,LIST,PSSPO,""ADD"",0)'>0 S ^TMP($J,LIST,PSSPO,""ADD"",0)=""-1^NO DATA FOUND"""
^XMB(3.9,117,2,839,0)="""RTN"",""PSS55"",105,0)"
^XMB(3.9,117,2,840,0)=" S PSSS=$O(^PS(55,DFN,""IV"",PSSPO,""SOL"",PSSS)) I PSSS'>0,$G(PSSLOOP)'=1 D  G PSS436Q"
^XMB(3.9,117,2,841,0)="""RTN"",""PSS55"",106,0)"
^XMB(3.9,117,2,842,0)=" .I ^TMP($J,LIST,PSSPO,""SOL"",0)=0 S ^TMP($J,LIST,PSSPO,""SOL"",0)=""-1^NO DATA FOUND"""
^XMB(3.9,117,2,843,0)="""RTN"",""PSS55"",107,0)"
^XMB(3.9,117,2,844,0)=" I PSSS'>0 D  G LOOP436"
^XMB(3.9,117,2,845,0)="""RTN"",""PSS55"",108,0)"
^XMB(3.9,117,2,846,0)=" .I ^TMP($J,LIST,PSSPO,""SOL"",0)=0 S ^TMP($J,LIST,PSSPO,""SOL"",0)=""-1^NO DATA FOUND"""
^XMB(3.9,117,2,847,0)="""RTN"",""PSS55"",109,0)"
^XMB(3.9,117,2,848,0)=" S PSSDATA=$G(^PS(55,DFN,""IV"",PSSPO,""SOL"",PSSS,0)),X1=$P(PSSDATA,""^""),X2=$P(PSSDATA,""^"",2)"
^XMB(3.9,117,2,849,0)="""RTN"",""PSS55"",110,0)"
^XMB(3.9,117,2,850,0)=" S ^TMP($J,LIST,PSSPO,""SOL"",PSSS,.01)=X1_""^""_$P($G(^PS(52.7,X1,0)),""^"")"
^XMB(3.9,117,2,851,0)="""RTN"",""PSS55"",111,0)"
^XMB(3.9,117,2,852,0)=" S ^TMP($J,LIST,PSSPO,""SOL"",PSSS,1)=X2"
^XMB(3.9,117,2,853,0)="""RTN"",""PSS55"",112,0)"
^XMB(3.9,117,2,854,0)=" S ^TMP($J,LIST,PSSPO,""SOL"",0)=$G(^TMP($J,LIST,PSSPO,""SOL"",0))+1"
^XMB(3.9,117,2,855,0)="""RTN"",""PSS55"",113,0)"
^XMB(3.9,117,2,856,0)=" G PSSS"
^XMB(3.9,117,2,857,0)="""RTN"",""PSS55"",114,0)"
^XMB(3.9,117,2,858,0)="PSS436Q K ^UTILITY(""DIQ1"",$J),DIQ I '$D(^TMP($J,LIST,""B"")) S ^TMP($J,LIST,0)=""-1^NO DATA FOUND"""
^XMB(3.9,117,2,859,0)="""RTN"",""PSS55"",115,0)"
^XMB(3.9,117,2,860,0)=" K PSSPO,PSSA,PSSDATA,X,LIST,X1,X2,PSSS,ORDER,PSSLOOP,DA,DR,DIC Q"
^XMB(3.9,117,2,861,0)="""RTN"",""PSS55"",116,0)"
^XMB(3.9,117,2,862,0)="NODATA S ^TMP($J,LIST,0)=""-1^NO DATA FOUND"""
^XMB(3.9,117,2,863,0)="""RTN"",""PSS55"",117,0)"
^XMB(3.9,117,2,864,0)="Q K IEN,PSSA,PSSS,PSSSTAT,X,LIST,X1,X2,X3,PSSDIY Q"
^XMB(3.9,117,2,865,0)="""RTN"",""PSS551"")"
^XMB(3.9,117,2,866,0)="0^4^B14966377^n/a"
^XMB(3.9,117,2,867,0)="""RTN"",""PSS551"",1,0)"
^XMB(3.9,117,2,868,0)="PSS551 ;BHM/DB - API FOR PHARMACY PATIENT FILE ;15 JUN 05"
^XMB(3.9,117,2,869,0)="""RTN"",""PSS551"",2,0)"
^XMB(3.9,117,2,870,0)=" ;;1.0;PHARMACY DATA MANAGEMENT;**108**;9/30/97;Build 10"
^XMB(3.9,117,2,871,0)="""RTN"",""PSS551"",3,0)"
^XMB(3.9,117,2,872,0)=" ;DFN: IEN of Patient [REQUIRED]"
^XMB(3.9,117,2,873,0)="""RTN"",""PSS551"",4,0)"
^XMB(3.9,117,2,874,0)=" ;PO: Order # [optional]"
^XMB(3.9,117,2,875,0)="""RTN"",""PSS551"",5,0)"
^XMB(3.9,117,2,876,0)=" ;PSDATE: Start Date [optional]"
^XMB(3.9,117,2,877,0)="""RTN"",""PSS551"",6,0)"
^XMB(3.9,117,2,878,0)=" ;PEDATE: End Date [optional]"
^XMB(3.9,117,2,879,0)="""RTN"",""PSS551"",7,0)"
^XMB(3.9,117,2,880,0)=" ;If a start date is sent, an end date must also be sent"
^XMB(3.9,117,2,881,0)="""RTN"",""PSS551"",8,0)"
^XMB(3.9,117,2,882,0)=" ;LIST: Subscript name used in ^TMP global [REQUIRED]"
^XMB(3.9,117,2,883,0)="""RTN"",""PSS551"",9,0)"
^XMB(3.9,117,2,884,0)=" N PSSPO,PSSIEN,DA,DR,DIC,PSS,CNT1,X"
^XMB(3.9,117,2,885,0)="""RTN"",""PSS551"",10,0)"
^XMB(3.9,117,2,886,0)=" I $G(LIST)="""" Q"
^XMB(3.9,117,2,887,0)="""RTN"",""PSS551"",11,0)"
^XMB(3.9,117,2,888,0)=" K ^TMP($J,LIST)"
^XMB(3.9,117,2,889,0)="""RTN"",""PSS551"",12,0)"
^XMB(3.9,117,2,890,0)=" I $G(DFN)="""" S ^TMP($J,LIST,0)=-1_""^""_""NO DATA FOUND"" Q"
^XMB(3.9,117,2,891,0)="""RTN"",""PSS551"",13,0)"
^XMB(3.9,117,2,892,0)=" S PSSIEN=$G(DFN),PSSPO=$G(PO) S ^TMP($J,LIST,0)=0"
^XMB(3.9,117,2,893,0)="""RTN"",""PSS551"",14,0)"
^XMB(3.9,117,2,894,0)=" I $G(PSSPO)>0,$G(PSSIEN)>0 S DA=PSSIEN,(IEN,DA(55.06))=PSSPO G DIQ431"
^XMB(3.9,117,2,895,0)="""RTN"",""PSS551"",15,0)"
^XMB(3.9,117,2,896,0)=" I $G(PSSPO)="""",$G(PSDATE)'="""",$G(PEDATE)'="""" S PSDATE=$S('$P(PSDATE,""."",2):PSDATE_.000001,1:PSDATE),PEDATE=$S('$P($G(PEDATE),""."",2):PEDATE_.999999,1:$G(PEDATE)) N PSS56 G DT431"
^XMB(3.9,117,2,897,0)="""RTN"",""PSS551"",16,0)"
^XMB(3.9,117,2,898,0)=" I $G(PSSPO)="""" N PSSPO1 G LOOP431"
^XMB(3.9,117,2,899,0)="""RTN"",""PSS551"",17,0)"
^XMB(3.9,117,2,900,0)=" Q"
^XMB(3.9,117,2,901,0)="""RTN"",""PSS551"",18,0)"
^XMB(3.9,117,2,902,0)="LOOP431 S (PSSPO1,PSSPO)=0 F  S PSSPO1=$O(^PS(55,DFN,5,""B"",PSSPO1)) Q:PSSPO1'>0  F  S PSSPO=$O(^PS(55,DFN,5,""B"",PSSPO1,PSSPO)) Q:PSSPO'>0  S PO=PSSPO D DIQ431"
^XMB(3.9,117,2,903,0)="""RTN"",""PSS551"",19,0)"
^XMB(3.9,117,2,904,0)=" Q"
^XMB(3.9,117,2,905,0)="""RTN"",""PSS551"",20,0)"
^XMB(3.9,117,2,906,0)="DIQ431 ;"
^XMB(3.9,117,2,907,0)="""RTN"",""PSS551"",21,0)"
^XMB(3.9,117,2,908,0)=" I '$D(^PS(55,DFN,5,PO,0)) Q"
^XMB(3.9,117,2,909,0)="""RTN"",""PSS551"",22,0)"
^XMB(3.9,117,2,910,0)=" S PSSIEN=PO_"",""_DFN_"","" K DIQ"
^XMB(3.9,117,2,911,0)="""RTN"",""PSS551"",23,0)"
^XMB(3.9,117,2,912,0)=" D GETS^DIQ(55.06,PSSIEN,"".01;.5;1;2*;3;4;5;6;7;11;12;27;27.1;28"",""IE"",""^TMP(""""PSS5506"""",$J)"")"
^XMB(3.9,117,2,913,0)="""RTN"",""PSS551"",24,0)"
^XMB(3.9,117,2,914,0)=" F X=.01,.5,1,3,4,5,6,7,11,12,27,27.1,28 S ^TMP($J,LIST,+PSSPO,X)=$G(^TMP(""PSS5506"",$J,55.06,PSSIEN,X,""I""))"
^XMB(3.9,117,2,915,0)="""RTN"",""PSS551"",25,0)"
^XMB(3.9,117,2,916,0)=" F X=.5,1,3,4,5,6,7,27,27.1,28 S ^TMP($J,LIST,+PSSPO,X)=$S($G(^TMP(""PSS5506"",$J,55.06,PSSIEN,X,""E""))'="""":^TMP($J,LIST,+PSSPO,X)_""^""_$G(^TMP(""PSS5506"",$J,55.06,PSSIEN,X,""E"")),1:"""")"
^XMB(3.9,117,2,917,0)="""RTN"",""PSS551"",26,0)"
^XMB(3.9,117,2,918,0)=" S (PSS(1),CNT1)=0 F  S PSS(1)=$O(^TMP(""PSS5506"",$J,55.07,PSS(1))) Q:'PSS(1)  D"
^XMB(3.9,117,2,919,0)="""RTN"",""PSS551"",27,0)"
^XMB(3.9,117,2,920,0)=" .S ^TMP($J,LIST,+PSSPO,""DDRUG"",+PSS(1),.11)=$G(^TMP(""PSS5506"",$J,55.07,PSS(1),.11,""I""))"
^XMB(3.9,117,2,921,0)="""RTN"",""PSS551"",28,0)"
^XMB(3.9,117,2,922,0)=" .S ^TMP($J,LIST,+PSSPO,""DDRUG"",+PSS(1),.12)=$G(^TMP(""PSS5506"",$J,55.07,PSS(1),.12,""I""))"
^XMB(3.9,117,2,923,0)="""RTN"",""PSS551"",29,0)"
^XMB(3.9,117,2,924,0)=" .S ^TMP($J,LIST,+PSSPO,""DDRUG"",+PSS(1),.01)=$S($G(^TMP(""PSS5506"",$J,55.07,PSS(1),.01,""E""))'="""":$G(^TMP(""PSS5506"",$J,55.07,PSS(1),.01,""I""))_""^""_$G(^TMP(""PSS5506"",$J,55.07,PSS(1),.01,""E"")),1:"""")"
^XMB(3.9,117,2,925,0)="""RTN"",""PSS551"",30,0)"
^XMB(3.9,117,2,926,0)=" .S ^TMP($J,LIST,+PSSPO,""DDRUG"",+PSS(1),.02)=$G(^TMP(""PSS5506"",$J,55.07,PSS(1),.02,""I""))"
^XMB(3.9,117,2,927,0)="""RTN"",""PSS551"",31,0)"
^XMB(3.9,117,2,928,0)=" .S ^TMP($J,LIST,+PSSPO,""DDRUG"",+PSS(1),.03)=$S($G(^TMP(""PSS5506"",$J,55.07,PSS(1),.03,""E""))'="""":$G(^TMP(""PSS5506"",$J,55.07,PSS(1),.03,""I""))_""^""_$G(^TMP(""PSS5506"",$J,55.07,PSS(1),.03,""E"")),1:"""")"
^XMB(3.9,117,2,929,0)="""RTN"",""PSS551"",32,0)"
^XMB(3.9,117,2,930,0)=" .S ^TMP($J,LIST,+PSSPO,""DDRUG"",+PSS(1),.04)=$G(^TMP(""PSS5506"",$J,55.07,PSS(1),.04,""I""))"
^XMB(3.9,117,2,931,0)="""RTN"",""PSS551"",33,0)"
^XMB(3.9,117,2,932,0)=" .S ^TMP($J,LIST,+PSSPO,""DDRUG"",+PSS(1),.05)=$G(^TMP(""PSS5506"",$J,55.07,PSS(1),.05,""I""))"
^XMB(3.9,117,2,933,0)="""RTN"",""PSS551"",34,0)"
^XMB(3.9,117,2,934,0)=" .S ^TMP($J,LIST,+PSSPO,""DDRUG"",+PSS(1),.06)=$G(^TMP(""PSS5506"",$J,55.07,PSS(1),.06,""I""))"
^XMB(3.9,117,2,935,0)="""RTN"",""PSS551"",35,0)"
^XMB(3.9,117,2,936,0)=" .S ^TMP($J,LIST,+PSSPO,""DDRUG"",+PSS(1),.07)=$G(^TMP(""PSS5506"",$J,55.07,PSS(1),.07,""I""))"
^XMB(3.9,117,2,937,0)="""RTN"",""PSS551"",36,0)"
^XMB(3.9,117,2,938,0)=" .S ^TMP($J,LIST,+PSSPO,""DDRUG"",+PSS(1),.08)=$G(^TMP(""PSS5506"",$J,55.07,PSS(1),.08,""I""))"
^XMB(3.9,117,2,939,0)="""RTN"",""PSS551"",37,0)"
^XMB(3.9,117,2,940,0)=" .S ^TMP($J,LIST,+PSSPO,""DDRUG"",+PSS(1),.09)=$G(^TMP(""PSS5506"",$J,55.07,PSS(1),.09,""I""))"
^XMB(3.9,117,2,941,0)="""RTN"",""PSS551"",38,0)"
^XMB(3.9,117,2,942,0)=" .S ^TMP($J,LIST,+PSSPO,""DDRUG"",+PSS(1),.1)=$G(^TMP(""PSS5506"",$J,55.07,PSS(1),.1,""I""))"
^XMB(3.9,117,2,943,0)="""RTN"",""PSS551"",39,0)"
^XMB(3.9,117,2,944,0)=" .S CNT1=CNT1+1"
^XMB(3.9,117,2,945,0)="""RTN"",""PSS551"",40,0)"
^XMB(3.9,117,2,946,0)=" K ^TMP(""PSS5506"",$J),PSS(1) S ^TMP($J,LIST,""B"",+PSSPO)="""""
^XMB(3.9,117,2,947,0)="""RTN"",""PSS551"",41,0)"
^XMB(3.9,117,2,948,0)=" S ^TMP($J,LIST,0)=^TMP($J,LIST,0)+1"
^XMB(3.9,117,2,949,0)="""RTN"",""PSS551"",42,0)"
^XMB(3.9,117,2,950,0)=" S ^TMP($J,LIST,+PSSPO,""DDRUG"",0)=$S(CNT1=0:""-1^NO DATA FOUND"",1:CNT1)"
^XMB(3.9,117,2,951,0)="""RTN"",""PSS551"",43,0)"
^XMB(3.9,117,2,952,0)=" S ^TMP($J,LIST,0)=$S(^TMP($J,LIST,0)=0:""-1^NO DATA FOUND"",1:^TMP($J,LIST,0))"
^XMB(3.9,117,2,953,0)="""RTN"",""PSS551"",44,0)"
^XMB(3.9,117,2,954,0)=" Q"
^XMB(3.9,117,2,955,0)="""RTN"",""PSS551"",45,0)"
^XMB(3.9,117,2,956,0)="DT431 F  S PSDATE=$O(^PS(55,DFN,5,""AUS"",PSDATE)) Q:((+$G(PEDATE)>0)&(PSDATE>$G(PEDATE)))  Q:PSDATE'>0  D"
^XMB(3.9,117,2,957,0)="""RTN"",""PSS551"",46,0)"
^XMB(3.9,117,2,958,0)=" .S PSS56=0 F  S PSS56=$O(^PS(55,DFN,5,""AUS"",PSDATE,PSS56)) Q:PSS56'>0  S (PSSPO,PO)=PSS56 D DIQ431"
^XMB(3.9,117,2,959,0)="""RTN"",""PSS551"",47,0)"
^XMB(3.9,117,2,960,0)=" S ^TMP($J,LIST,0)=$S(^TMP($J,LIST,0)=0:""-1^NO DATA FOUND"",1:^TMP($J,LIST,0))"
^XMB(3.9,117,2,961,0)="""RTN"",""PSS551"",48,0)"
^XMB(3.9,117,2,962,0)=" K CNT1,LIST,DA,DFN,DIC,DIQ,DR,IEN,PEDATE,PO,PSDATE,PSS,PSS56,PSSPO,PSSPO1,X Q"
^XMB(3.9,117,2,963,0)="""RTN"",""PSS59P7"")"
^XMB(3.9,117,2,964,0)="0^1^B3153955^B2286501"
^XMB(3.9,117,2,965,0)="""RTN"",""PSS59P7"",1,0)"
^XMB(3.9,117,2,966,0)="PSS59P7 ;BHM/DB - Pharmacy System File API ;1 JUL 05"
^XMB(3.9,117,2,967,0)="""RTN"",""PSS59P7"",2,0)"
^XMB(3.9,117,2,968,0)=" ;;1.0;PHARMACY DATA MANAGEMENT;**101,108**;9/30/97;Build 10"
^XMB(3.9,117,2,969,0)="""RTN"",""PSS59P7"",3,0)"
^XMB(3.9,117,2,970,0)="PSS(PSSIEN,PSSTXT,LIST) ;SRS 3.2.78"
^XMB(3.9,117,2,971,0)="""RTN"",""PSS59P7"",4,0)"
^XMB(3.9,117,2,972,0)=" ;PSSIEN - INTERNAL ENTRY NUMBER (optional)"
^XMB(3.9,117,2,973,0)="""RTN"",""PSS59P7"",5,0)"
^XMB(3.9,117,2,974,0)=" ;PSSTXT - Free Text site name (optional)"
^XMB(3.9,117,2,975,0)="""RTN"",""PSS59P7"",6,0)"
^XMB(3.9,117,2,976,0)=" ;LIST: Subscript name used in ^TMP global [REQUIRED]"
^XMB(3.9,117,2,977,0)="""RTN"",""PSS59P7"",7,0)"
^XMB(3.9,117,2,978,0)=" N X,DA,DR,DIC,DIQ"
^XMB(3.9,117,2,979,0)="""RTN"",""PSS59P7"",8,0)"
^XMB(3.9,117,2,980,0)=" I $G(PSSIEN)="""",$G(PSSTXT)="""" Q"
^XMB(3.9,117,2,981,0)="""RTN"",""PSS59P7"",9,0)"
^XMB(3.9,117,2,982,0)=" I $G(LIST)="""" Q"
^XMB(3.9,117,2,983,0)="""RTN"",""PSS59P7"",10,0)"
^XMB(3.9,117,2,984,0)=" K ^TMP($J,LIST),DA,^UTILITY(""DIQ1"",$J),DIQ"
^XMB(3.9,117,2,985,0)="""RTN"",""PSS59P7"",11,0)"
^XMB(3.9,117,2,986,0)=" I $G(PSSIEN)]"""" S DA=PSSIEN I '$D(^PS(59.7,DA,0)) G RET0"
^XMB(3.9,117,2,987,0)="""RTN"",""PSS59P7"",12,0)"
^XMB(3.9,117,2,988,0)=" I $G(PSSTXT)'="""",$G(PSSIEN)'>0,'$D(^PS(59.7,""B"",PSSTXT)) G RET0"
^XMB(3.9,117,2,989,0)="""RTN"",""PSS59P7"",13,0)"
^XMB(3.9,117,2,990,0)=" I $G(PSSTXT)'="""",$G(DA)'>0 S DA=$O(^PS(59.7,""B"",PSSTXT,0))"
^XMB(3.9,117,2,991,0)="""RTN"",""PSS59P7"",14,0)"
^XMB(3.9,117,2,992,0)=" K ^UTILITY(""DIQ1"",$J),DIC S DIC=59.7,DR="".01;40.1;49.99;81"",DIQ(0)=""IE"" D EN^DIQ1"
^XMB(3.9,117,2,993,0)="""RTN"",""PSS59P7"",15,0)"
^XMB(3.9,117,2,994,0)=" I '$D(^UTILITY(""DIQ1"",$J)) G RET0"
^XMB(3.9,117,2,995,0)="""RTN"",""PSS59P7"",16,0)"
^XMB(3.9,117,2,996,0)=" S:$G(PSSTXT)="""" PSSTXT=^UTILITY(""DIQ1"",$J,59.7,DA,.01,""E"")"
^XMB(3.9,117,2,997,0)="""RTN"",""PSS59P7"",17,0)"
^XMB(3.9,117,2,998,0)=" F X=40.1,49.99,81 S ^TMP($J,LIST,DA,X)=$G(^UTILITY(""DIQ1"",$J,59.7,DA,X,""I""))"
^XMB(3.9,117,2,999,0)="""RTN"",""PSS59P7"",18,0)"
^XMB(3.9,117,2,1000,0)=" S ^TMP($J,LIST,DA,40.1)=$S($G(^UTILITY(""DIQ1"",$J,59.7,DA,40.1,""E""))'="""":^TMP($J,LIST,DA,40.1)_""^""_$G(^UTILITY(""DIQ1"",$J,59.7,DA,40.1,""E"")),1:"""")"
^XMB(3.9,117,2,1001,0)="""RTN"",""PSS59P7"",19,0)"
^XMB(3.9,117,2,1002,0)=" S ^TMP($J,LIST,DA,81)=$S($G(^UTILITY(""DIQ1"",$J,59.7,DA,81,""E""))'="""":^TMP($J,LIST,DA,81)_""^""_$G(^UTILITY(""DIQ1"",$J,59.7,DA,81,""E"")),1:"""")"
^XMB(3.9,117,2,1003,0)="""RTN"",""PSS59P7"",20,0)"
^XMB(3.9,117,2,1004,0)=" S ^TMP($J,LIST,""B"",PSSTXT,DA)="""""
^XMB(3.9,117,2,1005,0)="""RTN"",""PSS59P7"",21,0)"
^XMB(3.9,117,2,1006,0)=" K PSSIEN,DA,X,PSSTXT,DR,DIC,^UTILITY(""DIQ1"",$J) Q"
^XMB(3.9,117,2,1007,0)="""RTN"",""PSS59P7"",22,0)"
^XMB(3.9,117,2,1008,0)="RET0 ;return no data"
^XMB(3.9,117,2,1009,0)="""RTN"",""PSS59P7"",23,0)"
^XMB(3.9,117,2,1010,0)=" S ^TMP($J,LIST,0)=""-1^NO DATA FOUND"" Q"
^XMB(3.9,117,2,1011,0)="""RTN"",""PSSDI"")"
^XMB(3.9,117,2,1012,0)="0^3^B33977209^B25698318"
^XMB(3.9,117,2,1013,0)="""RTN"",""PSSDI"",1,0)"
^XMB(3.9,117,2,1014,0)="PSSDI ;BIR/LDT - API FOR FILEMAN CALLS ;5 Sep 03"
^XMB(3.9,117,2,1015,0)="""RTN"",""PSSDI"",2,0)"
^XMB(3.9,117,2,1016,0)=" ;;1.0;PHARMACY DATA MANAGEMENT;**85,91,97,104,108**;9/30/97;Build 10"
^XMB(3.9,117,2,1017,0)="""RTN"",""PSSDI"",3,0)"
^XMB(3.9,117,2,1018,0)=" ;"
^XMB(3.9,117,2,1019,0)="""RTN"",""PSSDI"",4,0)"
^XMB(3.9,117,2,1020,0)="DIC(PSSFILE,PSSAPP,DIC,X,DLAYGO,PSSSCRDT,PSSSCRUS,PSSVACL) ;"
^XMB(3.9,117,2,1021,0)="""RTN"",""PSSDI"",5,0)"
^XMB(3.9,117,2,1022,0)=" S PSSDIY="""""
^XMB(3.9,117,2,1023,0)="""RTN"",""PSSDI"",6,0)"
^XMB(3.9,117,2,1024,0)=" I +$G(PSSFILE)'>0 S PSSDIY=-1 G Q"
^XMB(3.9,117,2,1025,0)="""RTN"",""PSSDI"",7,0)"
^XMB(3.9,117,2,1026,0)=" N PSRTEST S PSRTEST=$$TEST(PSSFILE)"
^XMB(3.9,117,2,1027,0)="""RTN"",""PSSDI"",8,0)"
^XMB(3.9,117,2,1028,0)=" I 'PSRTEST S PSSDIY=-1 G Q"
^XMB(3.9,117,2,1029,0)="""RTN"",""PSSDI"",9,0)"
^XMB(3.9,117,2,1030,0)=" K DIC(""S"")"
^XMB(3.9,117,2,1031,0)="""RTN"",""PSSDI"",10,0)"
^XMB(3.9,117,2,1032,0)=" I +$G(PSSSCRDT)>0 N PSSSUBSC,PSSPIECE D SCREEN"
^XMB(3.9,117,2,1033,0)="""RTN"",""PSSDI"",11,0)"
^XMB(3.9,117,2,1034,0)=" I $D(PSSVACL),$O(PSSVACL(0))'="""" D VACL I $D(PSSX1) S DIC(""S"")=$S($G(DIC(""S""))'="""":DIC(""S"")_"" "",1:"""")_PSSX1 K PSSX1"
^XMB(3.9,117,2,1035,0)="""RTN"",""PSSDI"",12,0)"
^XMB(3.9,117,2,1036,0)=" I $G(PSSSCRUS)'="""",$G(PSSFILE)=50 N PSSAPLP D"
^XMB(3.9,117,2,1037,0)="""RTN"",""PSSDI"",13,0)"
^XMB(3.9,117,2,1038,0)=" .S DIC(""S"")=$S($G(DIC(""S""))'="""":DIC(""S"")_"" "",1:"""")_""F PSSAPLP=1:1:$L(PSSSCRUS) I $P($G(^(2)),""""^"""",3)[$E(PSSSCRUS,PSSAPLP) Q"""
^XMB(3.9,117,2,1039,0)="""RTN"",""PSSDI"",14,0)"
^XMB(3.9,117,2,1040,0)=" I '$P(PSRTEST,""^"",2) K DLAYGO I $G(DIC(0))'="""" S DIC(0)=$TR(DIC(0),""L"","""") I $G(DIC(0))="""" S PSSDIY=-1 G Q"
^XMB(3.9,117,2,1041,0)="""RTN"",""PSSDI"",15,0)"
^XMB(3.9,117,2,1042,0)=" I $G(DIC(0))="""",$G(X)="""" S PSSDIY=-1 G Q"
^XMB(3.9,117,2,1043,0)="""RTN"",""PSSDI"",16,0)"
^XMB(3.9,117,2,1044,0)=" K DTOUT,DUOUT D ^DIC"
^XMB(3.9,117,2,1045,0)="""RTN"",""PSSDI"",17,0)"
^XMB(3.9,117,2,1046,0)=" G Q"
^XMB(3.9,117,2,1047,0)="""RTN"",""PSSDI"",18,0)"
^XMB(3.9,117,2,1048,0)="DO(PSSFILE,PSSAPP,DIC) ;"
^XMB(3.9,117,2,1049,0)="""RTN"",""PSSDI"",19,0)"
^XMB(3.9,117,2,1050,0)=" S PSSDIY="""""
^XMB(3.9,117,2,1051,0)="""RTN"",""PSSDI"",20,0)"
^XMB(3.9,117,2,1052,0)=" I +$G(PSSFILE)'>0 S PSSDIY=-1 G Q"
^XMB(3.9,117,2,1053,0)="""RTN"",""PSSDI"",21,0)"
^XMB(3.9,117,2,1054,0)=" N PSRTEST S PSRTEST=$$TEST(PSSFILE)"
^XMB(3.9,117,2,1055,0)="""RTN"",""PSSDI"",22,0)"
^XMB(3.9,117,2,1056,0)=" I 'PSRTEST S PSSDIY=-1 G Q"
^XMB(3.9,117,2,1057,0)="""RTN"",""PSSDI"",23,0)"
^XMB(3.9,117,2,1058,0)=" K DTOUT,DUOUT D DO^DIC1"
^XMB(3.9,117,2,1059,0)="""RTN"",""PSSDI"",24,0)"
^XMB(3.9,117,2,1060,0)=" Q"
^XMB(3.9,117,2,1061,0)="""RTN"",""PSSDI"",25,0)"
^XMB(3.9,117,2,1062,0)="IX(PSSFILE,PSSAPP,DIC,D,X,DLAYGO) ;"
^XMB(3.9,117,2,1063,0)="""RTN"",""PSSDI"",26,0)"
^XMB(3.9,117,2,1064,0)=" S PSSDIY="""""
^XMB(3.9,117,2,1065,0)="""RTN"",""PSSDI"",27,0)"
^XMB(3.9,117,2,1066,0)=" I +$G(PSSFILE)'>0 S PSSDIY=-1 G Q"
^XMB(3.9,117,2,1067,0)="""RTN"",""PSSDI"",28,0)"
^XMB(3.9,117,2,1068,0)=" N PSRTEST S PSRTEST=$$TEST(PSSFILE)"
^XMB(3.9,117,2,1069,0)="""RTN"",""PSSDI"",29,0)"
^XMB(3.9,117,2,1070,0)=" I 'PSRTEST S PSSDIY=-1 G Q"
^XMB(3.9,117,2,1071,0)="""RTN"",""PSSDI"",30,0)"
^XMB(3.9,117,2,1072,0)=" I '$P(PSRTEST,""^"",2) K DLAYGO I $G(DIC(0))'="""" S DIC(0)=$TR(DIC(0),""L"","""") I $G(DIC(0))="""" S PSSDIY=-1 G Q"
^XMB(3.9,117,2,1073,0)="""RTN"",""PSSDI"",31,0)"
^XMB(3.9,117,2,1074,0)=" I $G(DIC(0))="""",$G(X)="""" S PSSDIY=-1 G Q"
^XMB(3.9,117,2,1075,0)="""RTN"",""PSSDI"",32,0)"
^XMB(3.9,117,2,1076,0)=" K DTOUT,DUOUT D IX^DIC"
^XMB(3.9,117,2,1077,0)="""RTN"",""PSSDI"",33,0)"
^XMB(3.9,117,2,1078,0)=" Q"
^XMB(3.9,117,2,1079,0)="""RTN"",""PSSDI"",34,0)"
^XMB(3.9,117,2,1080,0)="MIX(PSSFILE,PSSAPP,DIC,D,X,DLAYGO,PSSSCRDT,PSSSCRUS,PSSVACL) ;"
^XMB(3.9,117,2,1081,0)="""RTN"",""PSSDI"",35,0)"
^XMB(3.9,117,2,1082,0)=" S PSSDIY="""""
^XMB(3.9,117,2,1083,0)="""RTN"",""PSSDI"",36,0)"
^XMB(3.9,117,2,1084,0)=" I +$G(PSSFILE)'>0 S PSSDIY=-1 G Q"
^XMB(3.9,117,2,1085,0)="""RTN"",""PSSDI"",37,0)"
^XMB(3.9,117,2,1086,0)=" N PSRTEST S PSRTEST=$$TEST(PSSFILE)"
^XMB(3.9,117,2,1087,0)="""RTN"",""PSSDI"",38,0)"
^XMB(3.9,117,2,1088,0)=" I 'PSRTEST S PSSDIY=-1 G Q"
^XMB(3.9,117,2,1089,0)="""RTN"",""PSSDI"",39,0)"
^XMB(3.9,117,2,1090,0)=" K DIC(""S"")"
^XMB(3.9,117,2,1091,0)="""RTN"",""PSSDI"",40,0)"
^XMB(3.9,117,2,1092,0)=" I +$G(PSSSCRDT)>0 N PSSSUBSC,PSSPIECE D SCREEN"
^XMB(3.9,117,2,1093,0)="""RTN"",""PSSDI"",41,0)"
^XMB(3.9,117,2,1094,0)=" I $D(PSSVACL),$O(PSSVACL(0))'="""" D VACL I $D(PSSX1) S DIC(""S"")=$S($G(DIC(""S""))'="""":DIC(""S"")_"" "",1:"""")_PSSX1 K PSSX1"
^XMB(3.9,117,2,1095,0)="""RTN"",""PSSDI"",42,0)"
^XMB(3.9,117,2,1096,0)=" I $G(PSSSCRUS)'="""",$G(PSSFILE)=50 N PSSAPLP D"
^XMB(3.9,117,2,1097,0)="""RTN"",""PSSDI"",43,0)"
^XMB(3.9,117,2,1098,0)=" .S DIC(""S"")=$S($G(DIC(""S""))'="""":DIC(""S"")_"" "",1:"""")_""F PSSAPLP=1:1:$L(PSSSCRUS) I $P($G(^(2)),""""^"""",3)[$E(PSSSCRUS,PSSAPLP) Q"""
^XMB(3.9,117,2,1099,0)="""RTN"",""PSSDI"",44,0)"
^XMB(3.9,117,2,1100,0)=" I '$P(PSRTEST,""^"",2) K DLAYGO I $G(DIC(0))'="""" S DIC(0)=$TR(DIC(0),""L"","""") I $G(DIC(0))="""" S PSSDIY=-1 G Q"
^XMB(3.9,117,2,1101,0)="""RTN"",""PSSDI"",45,0)"
^XMB(3.9,117,2,1102,0)=" I $G(DIC(0))="""",$G(X)="""" S PSSDIY=-1 G Q"
^XMB(3.9,117,2,1103,0)="""RTN"",""PSSDI"",46,0)"
^XMB(3.9,117,2,1104,0)=" K DTOUT,DUOUT D MIX^DIC1"
^XMB(3.9,117,2,1105,0)="""RTN"",""PSSDI"",47,0)"
^XMB(3.9,117,2,1106,0)=" G Q"
^XMB(3.9,117,2,1107,0)="""RTN"",""PSSDI"",48,0)"
^XMB(3.9,117,2,1108,0)="FILE(PSSFILE,PSSAPP,DIC,DA,X,DINUM,DLAYGO) ;"
^XMB(3.9,117,2,1109,0)="""RTN"",""PSSDI"",49,0)"
^XMB(3.9,117,2,1110,0)=" S PSSDIY="""""
^XMB(3.9,117,2,1111,0)="""RTN"",""PSSDI"",50,0)"
^XMB(3.9,117,2,1112,0)=" I +$G(PSSFILE)'>0 S PSSDIY=-1 G Q"
^XMB(3.9,117,2,1113,0)="""RTN"",""PSSDI"",51,0)"
^XMB(3.9,117,2,1114,0)=" N PSRTEST S PSRTEST=$$TEST(PSSFILE)"
^XMB(3.9,117,2,1115,0)="""RTN"",""PSSDI"",52,0)"
^XMB(3.9,117,2,1116,0)=" I 'PSRTEST S PSSDIY=-1 G Q"
^XMB(3.9,117,2,1117,0)="""RTN"",""PSSDI"",53,0)"
^XMB(3.9,117,2,1118,0)=" I '$P(PSRTEST,""^"",2) S PSSDIY=-1 G Q"
^XMB(3.9,117,2,1119,0)="""RTN"",""PSSDI"",54,0)"
^XMB(3.9,117,2,1120,0)=" K DTOUT,DUOUT,DO D FILE^DICN"
^XMB(3.9,117,2,1121,0)="""RTN"",""PSSDI"",55,0)"
^XMB(3.9,117,2,1122,0)=" Q"
^XMB(3.9,117,2,1123,0)="""RTN"",""PSSDI"",56,0)"
^XMB(3.9,117,2,1124,0)="DIE(PSSFILE,PSSAPP,DIE,DA,DR,DIDEL) ;"
^XMB(3.9,117,2,1125,0)="""RTN"",""PSSDI"",57,0)"
^XMB(3.9,117,2,1126,0)=" S PSSDIY="""""
^XMB(3.9,117,2,1127,0)="""RTN"",""PSSDI"",58,0)"
^XMB(3.9,117,2,1128,0)=" I +$G(PSSFILE)'>0 S PSSDIY=-1 G Q"
^XMB(3.9,117,2,1129,0)="""RTN"",""PSSDI"",59,0)"
^XMB(3.9,117,2,1130,0)=" N PSRTEST S PSRTEST=$$TEST(PSSFILE)"
^XMB(3.9,117,2,1131,0)="""RTN"",""PSSDI"",60,0)"
^XMB(3.9,117,2,1132,0)=" I 'PSRTEST S PSSDIY=-1 G Q"
^XMB(3.9,117,2,1133,0)="""RTN"",""PSSDI"",61,0)"
^XMB(3.9,117,2,1134,0)=" I '$P(PSRTEST,""^"",2) S PSSDIY=-1 G Q"
^XMB(3.9,117,2,1135,0)="""RTN"",""PSSDI"",62,0)"
^XMB(3.9,117,2,1136,0)=" K DTOUT D ^DIE"
^XMB(3.9,117,2,1137,0)="""RTN"",""PSSDI"",63,0)"
^XMB(3.9,117,2,1138,0)=" Q"
^XMB(3.9,117,2,1139,0)="""RTN"",""PSSDI"",64,0)"
^XMB(3.9,117,2,1140,0)="EN1(PSSFILE,PSSAPP,DIC,L,FLDS,BY,FR,TO,DHD) ;"
^XMB(3.9,117,2,1141,0)="""RTN"",""PSSDI"",65,0)"
^XMB(3.9,117,2,1142,0)=" S PSSDIY="""""
^XMB(3.9,117,2,1143,0)="""RTN"",""PSSDI"",66,0)"
^XMB(3.9,117,2,1144,0)=" I +$G(PSSFILE)'>0 S PSSDIY=-1 G Q"
^XMB(3.9,117,2,1145,0)="""RTN"",""PSSDI"",67,0)"
^XMB(3.9,117,2,1146,0)=" N PSRTEST S PSRTEST=$$TEST(PSSFILE)"
^XMB(3.9,117,2,1147,0)="""RTN"",""PSSDI"",68,0)"
^XMB(3.9,117,2,1148,0)=" I 'PSRTEST S PSSDIY=-1 G Q"
^XMB(3.9,117,2,1149,0)="""RTN"",""PSSDI"",69,0)"
^XMB(3.9,117,2,1150,0)=" D EN1^DIP"
^XMB(3.9,117,2,1151,0)="""RTN"",""PSSDI"",70,0)"
^XMB(3.9,117,2,1152,0)=" Q"
^XMB(3.9,117,2,1153,0)="""RTN"",""PSSDI"",71,0)"
^XMB(3.9,117,2,1154,0)="EN(PSSFILE,PSSAPP,DIC,DR,DA,DIQ) ;"
^XMB(3.9,117,2,1155,0)="""RTN"",""PSSDI"",72,0)"
^XMB(3.9,117,2,1156,0)=" S PSSDIY="""""
^XMB(3.9,117,2,1157,0)="""RTN"",""PSSDI"",73,0)"
^XMB(3.9,117,2,1158,0)=" I +$G(PSSFILE)'>0 S PSSDIY=-1 G Q"
^XMB(3.9,117,2,1159,0)="""RTN"",""PSSDI"",74,0)"
^XMB(3.9,117,2,1160,0)=" N PSRTEST S PSRTEST=$$TEST(PSSFILE)"
^XMB(3.9,117,2,1161,0)="""RTN"",""PSSDI"",75,0)"
^XMB(3.9,117,2,1162,0)=" I 'PSRTEST S PSSDIY=-1 G Q"
^XMB(3.9,117,2,1163,0)="""RTN"",""PSSDI"",76,0)"
^XMB(3.9,117,2,1164,0)=" D EN^DIQ1"
^XMB(3.9,117,2,1165,0)="""RTN"",""PSSDI"",77,0)"
^XMB(3.9,117,2,1166,0)=" Q"
^XMB(3.9,117,2,1167,0)="""RTN"",""PSSDI"",78,0)"
^XMB(3.9,117,2,1168,0)="FNAME(PSSFNO,PSSFILE) ;"
^XMB(3.9,117,2,1169,0)="""RTN"",""PSSDI"",79,0)"
^XMB(3.9,117,2,1170,0)=" ;Return the label for the field of the File or Subfile passed in"
^XMB(3.9,117,2,1171,0)="""RTN"",""PSSDI"",80,0)"
^XMB(3.9,117,2,1172,0)=" ;PSSFNO  - Field number"
^XMB(3.9,117,2,1173,0)="""RTN"",""PSSDI"",81,0)"
^XMB(3.9,117,2,1174,0)=" ;PSSFILE - File or Subfile number"
^XMB(3.9,117,2,1175,0)="""RTN"",""PSSDI"",82,0)"
^XMB(3.9,117,2,1176,0)=" Q $$FNAME^PSS50E($G(PSSFNO),$G(PSSFILE))"
^XMB(3.9,117,2,1177,0)="""RTN"",""PSSDI"",83,0)"
^XMB(3.9,117,2,1178,0)=" ;"
^XMB(3.9,117,2,1179,0)="""RTN"",""PSSDI"",84,0)"
^XMB(3.9,117,2,1180,0)="TEST(PSTFILE) ;"
^XMB(3.9,117,2,1181,0)="""RTN"",""PSSDI"",85,0)"
^XMB(3.9,117,2,1182,0)=" N CNT,PSSAPP2,PSFFLAG,PSFLOOP,PSFTEST,PSLNODE,PSRSLT S PSRSLT=""0^0"",PSFFLAG=0"
^XMB(3.9,117,2,1183,0)="""RTN"",""PSSDI"",86,0)"
^XMB(3.9,117,2,1184,0)=" F PSFLOOP=1:1 S PSFTEST=$P($T(FILE2+PSFLOOP),"";;"",2) Q:+$G(PSFTEST)'>0!PSFFLAG  I +PSFTEST=PSTFILE S $P(PSRSLT,""^"")=1 S PSLNODE=$T(FILE2+PSFLOOP) D"
^XMB(3.9,117,2,1185,0)="""RTN"",""PSSDI"",87,0)"
^XMB(3.9,117,2,1186,0)=" .F CNT=2:1:$L(PSLNODE,"";;"") S PSSAPP2=$P(PSLNODE,"";;"",CNT) Q:$P(PSRSLT,""^"",2)=1  I PSSAPP2=$G(PSSAPP) S PSFFLAG=1,$P(PSRSLT,""^"",2)=1"
^XMB(3.9,117,2,1187,0)="""RTN"",""PSSDI"",88,0)"
^XMB(3.9,117,2,1188,0)=" Q PSRSLT"
^XMB(3.9,117,2,1189,0)="""RTN"",""PSSDI"",89,0)"
^XMB(3.9,117,2,1190,0)=" ;"
^XMB(3.9,117,2,1191,0)="""RTN"",""PSSDI"",90,0)"
^XMB(3.9,117,2,1192,0)="FILE2 ;For DIC call, IF PACKAGE IS LISTED, PACKAGE HAS WRITE ACCESS          "
^XMB(3.9,117,2,1193,0)="""RTN"",""PSSDI"",91,0)"
^XMB(3.9,117,2,1194,0)=" ;;50;;PSX;;PSD;;PSJ;;PSN;;PSO;;PSGW;;PSS"
^XMB(3.9,117,2,1195,0)="""RTN"",""PSSDI"",92,0)"
^XMB(3.9,117,2,1196,0)=" ;;50.1;;PSX;;PSD;;PSJ;;PSN;;PSO;;PSGW;;PSS"
^XMB(3.9,117,2,1197,0)="""RTN"",""PSSDI"",93,0)"
^XMB(3.9,117,2,1198,0)=" ;;50.0214;;PSX;;PSD;;PSJ;;PSN;;PSO;;PSGW;;PSS"
^XMB(3.9,117,2,1199,0)="""RTN"",""PSSDI"",94,0)"
^XMB(3.9,117,2,1200,0)=" ;;50.037;;PSX;;PSD;;PSJ;;PSN;;PSO;;PSGW;;PSS"
^XMB(3.9,117,2,1201,0)="""RTN"",""PSSDI"",95,0)"
^XMB(3.9,117,2,1202,0)=" ;;50.065;;PSX;;PSD;;PSJ;;PSN;;PSO;;PSGW;;PSS"
^XMB(3.9,117,2,1203,0)="""RTN"",""PSSDI"",96,0)"
^XMB(3.9,117,2,1204,0)=" ;;50.0212;;PSX;;PSD;;PSJ;;PSN;;PSO;;PSGW;;PSS"
^XMB(3.9,117,2,1205,0)="""RTN"",""PSSDI"",97,0)"
^XMB(3.9,117,2,1206,0)=" ;;50.0441;;PSX;;PSD;;PSJ;;PSN;;PSO;;PSGW;;PSS"
^XMB(3.9,117,2,1207,0)="""RTN"",""PSSDI"",98,0)"
^XMB(3.9,117,2,1208,0)=" ;;50.01;;PSX;;PSD;;PSJ;;PSN;;PSO;;PSGW;;PSS"
^XMB(3.9,117,2,1209,0)="""RTN"",""PSSDI"",99,0)"
^XMB(3.9,117,2,1210,0)=" ;;50.02;;PSX;;PSD;;PSJ;;PSN;;PSO;;PSGW;;PSS"
^XMB(3.9,117,2,1211,0)="""RTN"",""PSSDI"",100,0)"
^XMB(3.9,117,2,1212,0)=" ;;50.0903;;PSX;;PSD;;PSJ;;PSN;;PSO;;PSGW;;PSS"
^XMB(3.9,117,2,1213,0)="""RTN"",""PSSDI"",101,0)"
^XMB(3.9,117,2,1214,0)=" ;;50.0904;;PSX;;PSD;;PSJ;;PSN;;PSO;;PSGW;;PSS"
^XMB(3.9,117,2,1215,0)="""RTN"",""PSSDI"",102,0)"
^XMB(3.9,117,2,1216,0)=" ;;50.4;;PSJ;;PSS"
^XMB(3.9,117,2,1217,0)="""RTN"",""PSSDI"",103,0)"
^XMB(3.9,117,2,1218,0)=" ;;50.606;;PSJ;;PSN;;PSS"
^XMB(3.9,117,2,1219,0)="""RTN"",""PSSDI"",104,0)"
^XMB(3.9,117,2,1220,0)=" ;;50.7;;PSJ;;PSO;;PSN;;PSS"
^XMB(3.9,117,2,1221,0)="""RTN"",""PSSDI"",105,0)"
^XMB(3.9,117,2,1222,0)=" ;;50.76;;PSJ;;PSO;;PSN;;PSS"
^XMB(3.9,117,2,1223,0)="""RTN"",""PSSDI"",106,0)"
^XMB(3.9,117,2,1224,0)=" ;;50.72;;PSJ;;PSO;;PSN;;PSS"
^XMB(3.9,117,2,1225,0)="""RTN"",""PSSDI"",107,0)"
^XMB(3.9,117,2,1226,0)=" ;;51;;PSJ;;PSS"
^XMB(3.9,117,2,1227,0)="""RTN"",""PSSDI"",108,0)"
^XMB(3.9,117,2,1228,0)=" ;;51.01;;PSJ;;PSS"
^XMB(3.9,117,2,1229,0)="""RTN"",""PSSDI"",109,0)"
^XMB(3.9,117,2,1230,0)=" ;;51.1;;PSJ;;PSS"
^XMB(3.9,117,2,1231,0)="""RTN"",""PSSDI"",110,0)"
^XMB(3.9,117,2,1232,0)=" ;;51.11;;PSJ;;PSS"
^XMB(3.9,117,2,1233,0)="""RTN"",""PSSDI"",111,0)"
^XMB(3.9,117,2,1234,0)=" ;;51.17;;PSJ;;PSS"
^XMB(3.9,117,2,1235,0)="""RTN"",""PSSDI"",112,0)"
^XMB(3.9,117,2,1236,0)=" ;;51.2;;PSJ;;PSS"
^XMB(3.9,117,2,1237,0)="""RTN"",""PSSDI"",113,0)"
^XMB(3.9,117,2,1238,0)=" ;;51.5;;PSS"
^XMB(3.9,117,2,1239,0)="""RTN"",""PSSDI"",114,0)"
^XMB(3.9,117,2,1240,0)=" ;;52.6;;PSJ;;PSN;;PSS"
^XMB(3.9,117,2,1241,0)="""RTN"",""PSSDI"",115,0)"
^XMB(3.9,117,2,1242,0)=" ;;52.61;;PSJ;;PSN;;PSS"
^XMB(3.9,117,2,1243,0)="""RTN"",""PSSDI"",116,0)"
^XMB(3.9,117,2,1244,0)=" ;;52.62;;PSJ;;PSN;;PSS"
^XMB(3.9,117,2,1245,0)="""RTN"",""PSSDI"",117,0)"
^XMB(3.9,117,2,1246,0)=" ;;52.63;;PSJ;;PSN;;PSS"
^XMB(3.9,117,2,1247,0)="""RTN"",""PSSDI"",118,0)"
^XMB(3.9,117,2,1248,0)=" ;;52.64;;PSJ;;PSN;;PSS"
^XMB(3.9,117,2,1249,0)="""RTN"",""PSSDI"",119,0)"
^XMB(3.9,117,2,1250,0)=" ;;52.7;;PSJ;;PSN;;PSS"
^XMB(3.9,117,2,1251,0)="""RTN"",""PSSDI"",120,0)"
^XMB(3.9,117,2,1252,0)=" ;;52.702;;PSJ;;PSN;;PSS"
^XMB(3.9,117,2,1253,0)="""RTN"",""PSSDI"",121,0)"
^XMB(3.9,117,2,1254,0)=" ;;52.703;;PSJ;;PSN;;PSS"
^XMB(3.9,117,2,1255,0)="""RTN"",""PSSDI"",122,0)"
^XMB(3.9,117,2,1256,0)=" ;;52.704;;PSJ;;PSN;;PSS"
^XMB(3.9,117,2,1257,0)="""RTN"",""PSSDI"",123,0)"
^XMB(3.9,117,2,1258,0)=" ;;54;;PSS;;PSO"
^XMB(3.9,117,2,1259,0)="""RTN"",""PSSDI"",124,0)"
^XMB(3.9,117,2,1260,0)=" ;;54.1;;PSS;;PSO"
^XMB(3.9,117,2,1261,0)="""RTN"",""PSSDI"",125,0)"
^XMB(3.9,117,2,1262,0)=" ;;9009032.3;;PSS"
^XMB(3.9,117,2,1263,0)="""RTN"",""PSSDI"",126,0)"
^XMB(3.9,117,2,1264,0)=" ;;9009032.5;;PSS"
^XMB(3.9,117,2,1265,0)="""RTN"",""PSSDI"",127,0)"
^XMB(3.9,117,2,1266,0)=" ;;"
^XMB(3.9,117,2,1267,0)="""RTN"",""PSSDI"",128,0)"
^XMB(3.9,117,2,1268,0)=" Q"
^XMB(3.9,117,2,1269,0)="""RTN"",""PSSDI"",129,0)"
^XMB(3.9,117,2,1270,0)=" ;"
^XMB(3.9,117,2,1271,0)="""RTN"",""PSSDI"",130,0)"
^XMB(3.9,117,2,1272,0)="FILE3 ;For Lookup calls, check for Inactive Date Screen"
^XMB(3.9,117,2,1273,0)="""RTN"",""PSSDI"",131,0)"
^XMB(3.9,117,2,1274,0)=" ;;50;;I;;1"
^XMB(3.9,117,2,1275,0)="""RTN"",""PSSDI"",132,0)"
^XMB(3.9,117,2,1276,0)=" ;;50.606;;0;;2"
^XMB(3.9,117,2,1277,0)="""RTN"",""PSSDI"",133,0)"
^XMB(3.9,117,2,1278,0)=" ;;50.7;;0;;4"
^XMB(3.9,117,2,1279,0)="""RTN"",""PSSDI"",134,0)"
^XMB(3.9,117,2,1280,0)=" ;;51.2;;0;;5"
^XMB(3.9,117,2,1281,0)="""RTN"",""PSSDI"",135,0)"
^XMB(3.9,117,2,1282,0)=" ;;52.6;;I;;1"
^XMB(3.9,117,2,1283,0)="""RTN"",""PSSDI"",136,0)"
^XMB(3.9,117,2,1284,0)=" ;;52.7;;I;;1"
^XMB(3.9,117,2,1285,0)="""RTN"",""PSSDI"",137,0)"
^XMB(3.9,117,2,1286,0)=" ;;"
^XMB(3.9,117,2,1287,0)="""RTN"",""PSSDI"",138,0)"
^XMB(3.9,117,2,1288,0)=" Q"
^XMB(3.9,117,2,1289,0)="""RTN"",""PSSDI"",139,0)"
^XMB(3.9,117,2,1290,0)="SCREEN ;Set screen if Inactive Date is passed in, and for File 50, addition screen if Application Packages Use is passed in"
^XMB(3.9,117,2,1291,0)="""RTN"",""PSSDI"",140,0)"
^XMB(3.9,117,2,1292,0)=" N PSSILOOP,PSSILOC,PSSINFLG,PSSINODE S PSSINFLG=0"
^XMB(3.9,117,2,1293,0)="""RTN"",""PSSDI"",141,0)"
^XMB(3.9,117,2,1294,0)=" F PSSILOOP=1:1 S PSSILOC=$P($T(FILE3+PSSILOOP),"";;"",2) Q:+$G(PSSILOC)'>0!PSSINFLG  I +PSSILOC=PSSFILE S PSSINFLG=1 S PSSINODE=$T(FILE3+PSSILOOP) D"
^XMB(3.9,117,2,1295,0)="""RTN"",""PSSDI"",142,0)"
^XMB(3.9,117,2,1296,0)=" .S PSSSUBSC=$P(PSSINODE,"";;"",3),PSSPIECE=$P(PSSINODE,"";;"",4)"
^XMB(3.9,117,2,1297,0)="""RTN"",""PSSDI"",143,0)"
^XMB(3.9,117,2,1298,0)=" .I PSSSUBSC'="""",PSSPIECE'="""" S DIC(""S"")=""I $P($G(^(PSSSUBSC)),""""^"""",PSSPIECE)=""""""""!(+$P($G(^(PSSSUBSC)),""""^"""",PSSPIECE)>+$G(PSSSCRDT))"""
^XMB(3.9,117,2,1299,0)="""RTN"",""PSSDI"",144,0)"
^XMB(3.9,117,2,1300,0)=" Q"
^XMB(3.9,117,2,1301,0)="""RTN"",""PSSDI"",145,0)"
^XMB(3.9,117,2,1302,0)="VACL S PSSVACL1=0,PSSX=$S($D(PSSVACL(""R"")):""="",1:""'="") K PSSX1"
^XMB(3.9,117,2,1303,0)="""RTN"",""PSSDI"",146,0)"
^XMB(3.9,117,2,1304,0)=" F  S PSSVACL1=$O(PSSVACL(PSSVACL1)) Q:PSSVACL1=""""  I PSSVACL1'=""R"",PSSVACL1'=""P"" S PSSX1=$S($G(PSSX1)="""":""I $P(^PSDRUG(+Y,0),U,2)""_PSSX_""""""""_PSSVACL1_"""""""",1:PSSX1_$S(PSSX=""="":""!"",1:""&"")_""($P(^PSDRUG(+Y,0),U,2)""_PSSX_""""""""_PSSVACL1_""""""""_"")"")"
^XMB(3.9,117,2,1305,0)="""RTN"",""PSSDI"",147,0)"
^XMB(3.9,117,2,1306,0)=" Q"
^XMB(3.9,117,2,1307,0)="""RTN"",""PSSDI"",148,0)"
^XMB(3.9,117,2,1308,0)="Q K PSSVACL,PSSVACL1,PSSX,PSSX1,PSSFILE,PSSAPP,PSSINODE,PSSSCRUS Q"
^XMB(3.9,117,2,1309,0)="""VER"")"
^XMB(3.9,117,2,1310,0)="8.0^22.0"
^XMB(3.9,117,2,1311,0)="""BLD"",6046,6)"
^XMB(3.9,117,2,1312,0)="^105"
^XMB(3.9,117,2,1313,0)="$END KID PSS*1.0*108"
^XMB(3.9,117,6,0)="^3.911A^2^2"
^XMB(3.9,117,6,1,0)="POSTMASTER"
^XMB(3.9,117,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,117,6,"B","POSTMASTER",1)=""
^XMB(3.9,117,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,118,0)="PSS-1_SEQ-99_PAT-107.KID^.5^3061008.015741^^^^K"
^XMB(3.9,118,.6)="3061008"
^XMB(3.9,118,1,0)="^3.91A^2^2"
^XMB(3.9,118,1,1,0)=".5^0^3061008.015741^^^^^^^3061008.015741"
^XMB(3.9,118,1,2,0)="1^0^3061008.022426^^^^^^^3061008.022426"
^XMB(3.9,118,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,118,1,"C",.5,1)=""
^XMB(3.9,118,1,"C",1,2)=""
^XMB(3.9,118,2,0)="^^343^343^3061008"
^XMB(3.9,118,2,1,0)="$TXT Released PSS*1*107 SEQ #99"
^XMB(3.9,118,2,2,0)="Extracted from mail message"
^XMB(3.9,118,2,3,0)="$END TXT"
^XMB(3.9,118,2,4,0)="$KID PSS*1.0*107"
^XMB(3.9,118,2,5,0)="**INSTALL NAME**"
^XMB(3.9,118,2,6,0)="PSS*1.0*107"
^XMB(3.9,118,2,7,0)="""BLD"",6610,0)"
^XMB(3.9,118,2,8,0)="PSS*1.0*107^PHARMACY DATA MANAGEMENT^0^3060407^y"
^XMB(3.9,118,2,9,0)="""BLD"",6610,1,0)"
^XMB(3.9,118,2,10,0)="^^4^4^3060407^"
^XMB(3.9,118,2,11,0)="""BLD"",6610,1,1,0)"
^XMB(3.9,118,2,12,0)="This patch will fix the UNDEFINED error that occurs when Using "
^XMB(3.9,118,2,13,0)="""BLD"",6610,1,2,0)"
^XMB(3.9,118,2,14,0)="'Drug Enter/Edit' [PSS DRUG ENTER/EDIT] option. It will also"
^XMB(3.9,118,2,15,0)="""BLD"",6610,1,3,0)"
^XMB(3.9,118,2,16,0)="modify the trigger for PRICE PER ORDER UNIT field #13 of the"
^XMB(3.9,118,2,17,0)="""BLD"",6610,1,4,0)"
^XMB(3.9,118,2,18,0)="DRUG file (#50) to use 4 decimal places instead of 3."
^XMB(3.9,118,2,19,0)="""BLD"",6610,4,0)"
^XMB(3.9,118,2,20,0)="^9.64PA^50^1"
^XMB(3.9,118,2,21,0)="""BLD"",6610,4,50,0)"
^XMB(3.9,118,2,22,0)="50"
^XMB(3.9,118,2,23,0)="""BLD"",6610,4,50,2,0)"
^XMB(3.9,118,2,24,0)="^9.641^50^1"
^XMB(3.9,118,2,25,0)="""BLD"",6610,4,50,2,50,0)"
^XMB(3.9,118,2,26,0)="DRUG  (File-top level)"
^XMB(3.9,118,2,27,0)="""BLD"",6610,4,50,2,50,1,0)"
^XMB(3.9,118,2,28,0)="^9.6411^13^1"
^XMB(3.9,118,2,29,0)="""BLD"",6610,4,50,2,50,1,13,0)"
^XMB(3.9,118,2,30,0)="PRICE PER ORDER UNIT"
^XMB(3.9,118,2,31,0)="""BLD"",6610,4,50,222)"
^XMB(3.9,118,2,32,0)="y^y^p^^^^n^^n"
^XMB(3.9,118,2,33,0)="""BLD"",6610,4,50,224)"
^XMB(3.9,118,2,34,0)=""
^XMB(3.9,118,2,35,0)="""BLD"",6610,4,""APDD"",50,50)"
^XMB(3.9,118,2,36,0)=""
^XMB(3.9,118,2,37,0)="""BLD"",6610,4,""APDD"",50,50,13)"
^XMB(3.9,118,2,38,0)=""
^XMB(3.9,118,2,39,0)="""BLD"",6610,4,""B"",50,50)"
^XMB(3.9,118,2,40,0)=""
^XMB(3.9,118,2,41,0)="""BLD"",6610,6)"
^XMB(3.9,118,2,42,0)="2^"
^XMB(3.9,118,2,43,0)="""BLD"",6610,""ABPKG"")"
^XMB(3.9,118,2,44,0)="n"
^XMB(3.9,118,2,45,0)="""BLD"",6610,""KRN"",0)"
^XMB(3.9,118,2,46,0)="^9.67PA^8989.52^19"
^XMB(3.9,118,2,47,0)="""BLD"",6610,""KRN"",.4,0)"
^XMB(3.9,118,2,48,0)=".4"
^XMB(3.9,118,2,49,0)="""BLD"",6610,""KRN"",.401,0)"
^XMB(3.9,118,2,50,0)=".401"
^XMB(3.9,118,2,51,0)="""BLD"",6610,""KRN"",.402,0)"
^XMB(3.9,118,2,52,0)=".402"
^XMB(3.9,118,2,53,0)="""BLD"",6610,""KRN"",.403,0)"
^XMB(3.9,118,2,54,0)=".403"
^XMB(3.9,118,2,55,0)="""BLD"",6610,""KRN"",.5,0)"
^XMB(3.9,118,2,56,0)=".5"
^XMB(3.9,118,2,57,0)="""BLD"",6610,""KRN"",.84,0)"
^XMB(3.9,118,2,58,0)=".84"
^XMB(3.9,118,2,59,0)="""BLD"",6610,""KRN"",3.6,0)"
^XMB(3.9,118,2,60,0)="3.6"
^XMB(3.9,118,2,61,0)="""BLD"",6610,""KRN"",3.8,0)"
^XMB(3.9,118,2,62,0)="3.8"
^XMB(3.9,118,2,63,0)="""BLD"",6610,""KRN"",9.2,0)"
^XMB(3.9,118,2,64,0)="9.2"
^XMB(3.9,118,2,65,0)="""BLD"",6610,""KRN"",9.8,0)"
^XMB(3.9,118,2,66,0)="9.8"
^XMB(3.9,118,2,67,0)="""BLD"",6610,""KRN"",9.8,""NM"",0)"
^XMB(3.9,118,2,68,0)="^9.68A^1^1"
^XMB(3.9,118,2,69,0)="""BLD"",6610,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,118,2,70,0)="PSSPOIMP^^0^B1025945"
^XMB(3.9,118,2,71,0)="""BLD"",6610,""KRN"",9.8,""NM"",""B"",""PSSPOIMP"",1)"
^XMB(3.9,118,2,72,0)=""
^XMB(3.9,118,2,73,0)="""BLD"",6610,""KRN"",19,0)"
^XMB(3.9,118,2,74,0)="19"
^XMB(3.9,118,2,75,0)="""BLD"",6610,""KRN"",19.1,0)"
^XMB(3.9,118,2,76,0)="19.1"
^XMB(3.9,118,2,77,0)="""BLD"",6610,""KRN"",101,0)"
^XMB(3.9,118,2,78,0)="101"
^XMB(3.9,118,2,79,0)="""BLD"",6610,""KRN"",409.61,0)"
^XMB(3.9,118,2,80,0)="409.61"
^XMB(3.9,118,2,81,0)="""BLD"",6610,""KRN"",771,0)"
^XMB(3.9,118,2,82,0)="771"
^XMB(3.9,118,2,83,0)="""BLD"",6610,""KRN"",870,0)"
^XMB(3.9,118,2,84,0)="870"
^XMB(3.9,118,2,85,0)="""BLD"",6610,""KRN"",8989.51,0)"
^XMB(3.9,118,2,86,0)="8989.51"
^XMB(3.9,118,2,87,0)="""BLD"",6610,""KRN"",8989.52,0)"
^XMB(3.9,118,2,88,0)="8989.52"
^XMB(3.9,118,2,89,0)="""BLD"",6610,""KRN"",8994,0)"
^XMB(3.9,118,2,90,0)="8994"
^XMB(3.9,118,2,91,0)="""BLD"",6610,""KRN"",""B"",.4,.4)"
^XMB(3.9,118,2,92,0)=""
^XMB(3.9,118,2,93,0)="""BLD"",6610,""KRN"",""B"",.401,.401)"
^XMB(3.9,118,2,94,0)=""
^XMB(3.9,118,2,95,0)="""BLD"",6610,""KRN"",""B"",.402,.402)"
^XMB(3.9,118,2,96,0)=""
^XMB(3.9,118,2,97,0)="""BLD"",6610,""KRN"",""B"",.403,.403)"
^XMB(3.9,118,2,98,0)=""
^XMB(3.9,118,2,99,0)="""BLD"",6610,""KRN"",""B"",.5,.5)"
^XMB(3.9,118,2,100,0)=""
^XMB(3.9,118,2,101,0)="""BLD"",6610,""KRN"",""B"",.84,.84)"
^XMB(3.9,118,2,102,0)=""
^XMB(3.9,118,2,103,0)="""BLD"",6610,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,118,2,104,0)=""
^XMB(3.9,118,2,105,0)="""BLD"",6610,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,118,2,106,0)=""
^XMB(3.9,118,2,107,0)="""BLD"",6610,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,118,2,108,0)=""
^XMB(3.9,118,2,109,0)="""BLD"",6610,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,118,2,110,0)=""
^XMB(3.9,118,2,111,0)="""BLD"",6610,""KRN"",""B"",19,19)"
^XMB(3.9,118,2,112,0)=""
^XMB(3.9,118,2,113,0)="""BLD"",6610,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,118,2,114,0)=""
^XMB(3.9,118,2,115,0)="""BLD"",6610,""KRN"",""B"",101,101)"
^XMB(3.9,118,2,116,0)=""
^XMB(3.9,118,2,117,0)="""BLD"",6610,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,118,2,118,0)=""
^XMB(3.9,118,2,119,0)="""BLD"",6610,""KRN"",""B"",771,771)"
^XMB(3.9,118,2,120,0)=""
^XMB(3.9,118,2,121,0)="""BLD"",6610,""KRN"",""B"",870,870)"
^XMB(3.9,118,2,122,0)=""
^XMB(3.9,118,2,123,0)="""BLD"",6610,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,118,2,124,0)=""
^XMB(3.9,118,2,125,0)="""BLD"",6610,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,118,2,126,0)=""
^XMB(3.9,118,2,127,0)="""BLD"",6610,""KRN"",""B"",8994,8994)"
^XMB(3.9,118,2,128,0)=""
^XMB(3.9,118,2,129,0)="""BLD"",6610,""QUES"",0)"
^XMB(3.9,118,2,130,0)="^9.62^^"
^XMB(3.9,118,2,131,0)="""BLD"",6610,""REQB"",0)"
^XMB(3.9,118,2,132,0)="^9.611^1^1"
^XMB(3.9,118,2,133,0)="""BLD"",6610,""REQB"",1,0)"
^XMB(3.9,118,2,134,0)="PSS*1.0*102^1"
^XMB(3.9,118,2,135,0)="""BLD"",6610,""REQB"",""B"",""PSS*1.0*102"",1)"
^XMB(3.9,118,2,136,0)=""
^XMB(3.9,118,2,137,0)="""FIA"",50)"
^XMB(3.9,118,2,138,0)="DRUG"
^XMB(3.9,118,2,139,0)="""FIA"",50,0)"
^XMB(3.9,118,2,140,0)="^PSDRUG("
^XMB(3.9,118,2,141,0)="""FIA"",50,0,0)"
^XMB(3.9,118,2,142,0)="50I"
^XMB(3.9,118,2,143,0)="""FIA"",50,0,1)"
^XMB(3.9,118,2,144,0)="y^y^p^^^^n^^n"
^XMB(3.9,118,2,145,0)="""FIA"",50,0,10)"
^XMB(3.9,118,2,146,0)=""
^XMB(3.9,118,2,147,0)="""FIA"",50,0,11)"
^XMB(3.9,118,2,148,0)=""
^XMB(3.9,118,2,149,0)="""FIA"",50,0,""RLRO"")"
^XMB(3.9,118,2,150,0)=""
^XMB(3.9,118,2,151,0)="""FIA"",50,0,""VR"")"
^XMB(3.9,118,2,152,0)="1.0^PSS"
^XMB(3.9,118,2,153,0)="""FIA"",50,50)"
^XMB(3.9,118,2,154,0)="1"
^XMB(3.9,118,2,155,0)="""FIA"",50,50,13)"
^XMB(3.9,118,2,156,0)=""
^XMB(3.9,118,2,157,0)="""MBREQ"")"
^XMB(3.9,118,2,158,0)="0"
^XMB(3.9,118,2,159,0)="""PKG"",488,-1)"
^XMB(3.9,118,2,160,0)="1^1"
^XMB(3.9,118,2,161,0)="""PKG"",488,0)"
^XMB(3.9,118,2,162,0)="PHARMACY DATA MANAGEMENT^PSS^Maintenance of Pharmacy files."
^XMB(3.9,118,2,163,0)="""PKG"",488,20,0)"
^XMB(3.9,118,2,164,0)="^9.402P^^"
^XMB(3.9,118,2,165,0)="""PKG"",488,22,0)"
^XMB(3.9,118,2,166,0)="^9.49I^1^1"
^XMB(3.9,118,2,167,0)="""PKG"",488,22,1,0)"
^XMB(3.9,118,2,168,0)="1.0^2970930^3000316^66481"
^XMB(3.9,118,2,169,0)="""PKG"",488,22,1,""PAH"",1,0)"
^XMB(3.9,118,2,170,0)="107^3060407^100104"
^XMB(3.9,118,2,171,0)="""PKG"",488,22,1,""PAH"",1,1,0)"
^XMB(3.9,118,2,172,0)="^^4^4^3060407"
^XMB(3.9,118,2,173,0)="""PKG"",488,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,118,2,174,0)="This patch will fix the UNDEFINED error that occurs when Using "
^XMB(3.9,118,2,175,0)="""PKG"",488,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,118,2,176,0)="'Drug Enter/Edit' [PSS DRUG ENTER/EDIT] option. It will also"
^XMB(3.9,118,2,177,0)="""PKG"",488,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,118,2,178,0)="modify the trigger for PRICE PER ORDER UNIT field #13 of the"
^XMB(3.9,118,2,179,0)="""PKG"",488,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,118,2,180,0)="DRUG file (#50) to use 4 decimal places instead of 3."
^XMB(3.9,118,2,181,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,118,2,182,0)="Y"
^XMB(3.9,118,2,183,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,118,2,184,0)="^D REP^XPDH"
^XMB(3.9,118,2,185,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,118,2,186,0)="Shall I write over your |FLAG| File"
^XMB(3.9,118,2,187,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,118,2,188,0)="YES"
^XMB(3.9,118,2,189,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,118,2,190,0)="D XPF1^XPDIQ"
^XMB(3.9,118,2,191,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,118,2,192,0)="Y"
^XMB(3.9,118,2,193,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,118,2,194,0)="^D DTA^XPDH"
^XMB(3.9,118,2,195,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,118,2,196,0)="Want my data |FLAG| yours"
^XMB(3.9,118,2,197,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,118,2,198,0)="YES"
^XMB(3.9,118,2,199,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,118,2,200,0)="D XPF2^XPDIQ"
^XMB(3.9,118,2,201,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,118,2,202,0)="YO"
^XMB(3.9,118,2,203,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,118,2,204,0)="^D INHIBIT^XPDH"
^XMB(3.9,118,2,205,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,118,2,206,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,118,2,207,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,118,2,208,0)="YES"
^XMB(3.9,118,2,209,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,118,2,210,0)="D XPI1^XPDIQ"
^XMB(3.9,118,2,211,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,118,2,212,0)="PO^VA(200,:EM"
^XMB(3.9,118,2,213,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,118,2,214,0)="^D MG^XPDH"
^XMB(3.9,118,2,215,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,118,2,216,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,118,2,217,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,118,2,218,0)=""
^XMB(3.9,118,2,219,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,118,2,220,0)="D XPM1^XPDIQ"
^XMB(3.9,118,2,221,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,118,2,222,0)="Y"
^XMB(3.9,118,2,223,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,118,2,224,0)="^D MENU^XPDH"
^XMB(3.9,118,2,225,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,118,2,226,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,118,2,227,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,118,2,228,0)="YES"
^XMB(3.9,118,2,229,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,118,2,230,0)="D XPO1^XPDIQ"
^XMB(3.9,118,2,231,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,118,2,232,0)="Y"
^XMB(3.9,118,2,233,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,118,2,234,0)="^D OPT^XPDH"
^XMB(3.9,118,2,235,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,118,2,236,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,118,2,237,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,118,2,238,0)="YES"
^XMB(3.9,118,2,239,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,118,2,240,0)="D XPZ1^XPDIQ"
^XMB(3.9,118,2,241,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,118,2,242,0)="Y"
^XMB(3.9,118,2,243,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,118,2,244,0)="^D RTN^XPDH"
^XMB(3.9,118,2,245,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,118,2,246,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,118,2,247,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,118,2,248,0)="NO"
^XMB(3.9,118,2,249,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,118,2,250,0)="D XPZ2^XPDIQ"
^XMB(3.9,118,2,251,0)="""RTN"")"
^XMB(3.9,118,2,252,0)="1"
^XMB(3.9,118,2,253,0)="""RTN"",""PSSPOIMP"")"
^XMB(3.9,118,2,254,0)="0^1^B1025945^B911666"
^XMB(3.9,118,2,255,0)="""RTN"",""PSSPOIMP"",1,0)"
^XMB(3.9,118,2,256,0)="PSSPOIMP ;BIR/RTR/WRT-Edit Orderable Item Name and Inactive date ;7/20/04 1:45pm"
^XMB(3.9,118,2,257,0)="""RTN"",""PSSPOIMP"",2,0)"
^XMB(3.9,118,2,258,0)=" ;;1.0;PHARMACY DATA MANAGEMENT;**102,107**;9/30/97"
^XMB(3.9,118,2,259,0)="""RTN"",""PSSPOIMP"",3,0)"
^XMB(3.9,118,2,260,0)="ASKSYN ;PSS*1*102;PROMPT TO ADD DRUG TEXT AS SYNONYM"
^XMB(3.9,118,2,261,0)="""RTN"",""PSSPOIMP"",4,0)"
^XMB(3.9,118,2,262,0)=" N DIR"
^XMB(3.9,118,2,263,0)="""RTN"",""PSSPOIMP"",5,0)"
^XMB(3.9,118,2,264,0)=" S DIR(0)=""Y"""
^XMB(3.9,118,2,265,0)="""RTN"",""PSSPOIMP"",6,0)"
^XMB(3.9,118,2,266,0)=" S DIR(""A"")=""ADD THIS DRUG TEXT AS A SYNONYM? """
^XMB(3.9,118,2,267,0)="""RTN"",""PSSPOIMP"",7,0)"
^XMB(3.9,118,2,268,0)=" S DIR(""B"")=""N"""
^XMB(3.9,118,2,269,0)="""RTN"",""PSSPOIMP"",8,0)"
^XMB(3.9,118,2,270,0)=" D ^DIR"
^XMB(3.9,118,2,271,0)="""RTN"",""PSSPOIMP"",9,0)"
^XMB(3.9,118,2,272,0)=" I 'Y Q"
^XMB(3.9,118,2,273,0)="""RTN"",""PSSPOIMP"",10,0)"
^XMB(3.9,118,2,274,0)=" S X=$G(^PS(51.7,X(1),0))"
^XMB(3.9,118,2,275,0)="""RTN"",""PSSPOIMP"",11,0)"
^XMB(3.9,118,2,276,0)=" I X]"""" S PPPTMP(50.72,D0,X)=""""  ;; PSS*1*107 replace  with D0"
^XMB(3.9,118,2,277,0)="""RTN"",""PSSPOIMP"",12,0)"
^XMB(3.9,118,2,278,0)=" Q"
^XMB(3.9,118,2,279,0)="""RTN"",""PSSPOIMP"",13,0)"
^XMB(3.9,118,2,280,0)="ADDSYN ;ADD DRUG TEXT AS A SYNONYM"
^XMB(3.9,118,2,281,0)="""RTN"",""PSSPOIMP"",14,0)"
^XMB(3.9,118,2,282,0)=" N TMP,PSOERR,DIERR,X,PSOIEN"
^XMB(3.9,118,2,283,0)="""RTN"",""PSSPOIMP"",15,0)"
^XMB(3.9,118,2,284,0)=" S PSOIEN="""" F  S PSOIEN=$O(PPPTMP(50.72,PSOIEN)) Q:PSOIEN=""""  D"
^XMB(3.9,118,2,285,0)="""RTN"",""PSSPOIMP"",16,0)"
^XMB(3.9,118,2,286,0)=" .S X="""" F  S X=$O(PPPTMP(50.72,PSOIEN,X)) Q:X=""""  D"
^XMB(3.9,118,2,287,0)="""RTN"",""PSSPOIMP"",17,0)"
^XMB(3.9,118,2,288,0)=" ..I $D(^PS(50.7,PSOIEN,2,""B"",X)) Q"
^XMB(3.9,118,2,289,0)="""RTN"",""PSSPOIMP"",18,0)"
^XMB(3.9,118,2,290,0)=" ..S TMP(50.72,""+2,""_PSOIEN_"","",.01)=X"
^XMB(3.9,118,2,291,0)="""RTN"",""PSSPOIMP"",19,0)"
^XMB(3.9,118,2,292,0)=" ..D UPDATE^DIE("""",""TMP"","""",""PSOERR"")"
^XMB(3.9,118,2,293,0)="""RTN"",""PSSPOIMP"",20,0)"
^XMB(3.9,118,2,294,0)=" ..K DIE,DIR,DIERR,TMP"
^XMB(3.9,118,2,295,0)="""RTN"",""PSSPOIMP"",21,0)"
^XMB(3.9,118,2,296,0)=" K PPPTMP,TMP"
^XMB(3.9,118,2,297,0)="""RTN"",""PSSPOIMP"",22,0)"
^XMB(3.9,118,2,298,0)=" Q"
^XMB(3.9,118,2,299,0)="""VER"")"
^XMB(3.9,118,2,300,0)="8.0^22.0"
^XMB(3.9,118,2,301,0)="""^DD"",50,50,13,0)"
^XMB(3.9,118,2,302,0)="PRICE PER ORDER UNIT^NJ7,2X^^660;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999)!(X<0)!(X?.E1"".""3.N) X"
^XMB(3.9,118,2,303,0)="""^DD"",50,50,13,.1)"
^XMB(3.9,118,2,304,0)=""
^XMB(3.9,118,2,305,0)="""^DD"",50,50,13,1,0)"
^XMB(3.9,118,2,306,0)="^.1^^-1"
^XMB(3.9,118,2,307,0)="""^DD"",50,50,13,1,1,0)"
^XMB(3.9,118,2,308,0)="^^TRIGGER^50^16"
^XMB(3.9,118,2,309,0)="""^DD"",50,50,13,1,1,1)"
^XMB(3.9,118,2,310,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^PSDRUG(D0,660)):^(660),1:"""") S X=$P(Y(1),U,5)>0 I X S X=DIV S Y(1)=$S($D(^PSDRUG(D0,660)):^(660),1:"""") S X=$P(Y(1),U,6) S DIU=X K Y X ^DD(50,13,1,1,1.1) X ^DD(50,13,1,1,1.4)"
^XMB(3.9,118,2,311,0)="""^DD"",50,50,13,1,1,1.1)"
^XMB(3.9,118,2,312,0)="S X=DIV S Y(1)=$S($D(^PSDRUG(D0,660)):^(660),1:"""") S X=DIV,X=$S($P(Y(1),U,5):X/$P(Y(1),U,5),1:""*******""),Y(2)=X S X=1,Y(3)=X S X=4,X=$J(Y(2),Y(3),X)"
^XMB(3.9,118,2,313,0)="""^DD"",50,50,13,1,1,1.4)"
^XMB(3.9,118,2,314,0)="S DIH=$S($D(^PSDRUG(DIV(0),660)):^(660),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U"" S %=$P(DIH,U,7,999),^(660)=$P(DIH,U,1,5)_U_DIV_$S(%]"""":U_%,1:""""),DIH=50,DIG=16 D ^DICR:$O(^DD(DIH,DIG,1,0))"
^XMB(3.9,118,2,315,0)="""^DD"",50,50,13,1,1,2)"
^XMB(3.9,118,2,316,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSDRUG(D0,660)):^(660),1:"""") S X=$P(Y(1),U,6) S DIU=X K Y S X=DIV S X="""" X ^DD(50,13,1,1,2.4)"
^XMB(3.9,118,2,317,0)="""^DD"",50,50,13,1,1,2.4)"
^XMB(3.9,118,2,318,0)="S DIH=$S($D(^PSDRUG(DIV(0),660)):^(660),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U"" S %=$P(DIH,U,7,999),^(660)=$P(DIH,U,1,5)_U_DIV_$S(%]"""":U_%,1:""""),DIH=50,DIG=16 D ^DICR:$O(^DD(DIH,DIG,1,0))"
^XMB(3.9,118,2,319,0)="""^DD"",50,50,13,1,1,""CREATE CONDITION"")"
^XMB(3.9,118,2,320,0)="#15>0"
^XMB(3.9,118,2,321,0)="""^DD"",50,50,13,1,1,""CREATE VALUE"")"
^XMB(3.9,118,2,322,0)="$J(#13/#15,1,4)"
^XMB(3.9,118,2,323,0)="""^DD"",50,50,13,1,1,""DELETE VALUE"")"
^XMB(3.9,118,2,324,0)="@"
^XMB(3.9,118,2,325,0)="""^DD"",50,50,13,1,1,""FIELD"")"
^XMB(3.9,118,2,326,0)="#16"
^XMB(3.9,118,2,327,0)="""^DD"",50,50,13,3)"
^XMB(3.9,118,2,328,0)="Type a Dollar Amount between 0 and 99999, 2 Decimal Digits."
^XMB(3.9,118,2,329,0)="""^DD"",50,50,13,20,0)"
^XMB(3.9,118,2,330,0)="^.3LA^1^1"
^XMB(3.9,118,2,331,0)="""^DD"",50,50,13,20,1,0)"
^XMB(3.9,118,2,332,0)="PS"
^XMB(3.9,118,2,333,0)="""^DD"",50,50,13,21,0)"
^XMB(3.9,118,2,334,0)="^^1^1^3060407^^"
^XMB(3.9,118,2,335,0)="""^DD"",50,50,13,21,1,0)"
^XMB(3.9,118,2,336,0)="  This is the price per order unit for this drug."
^XMB(3.9,118,2,337,0)="""^DD"",50,50,13,""AUDIT"")"
^XMB(3.9,118,2,338,0)=""
^XMB(3.9,118,2,339,0)="""^DD"",50,50,13,""DT"")"
^XMB(3.9,118,2,340,0)="3060407"
^XMB(3.9,118,2,341,0)="""BLD"",6610,6)"
^XMB(3.9,118,2,342,0)="^99"
^XMB(3.9,118,2,343,0)="$END KID PSS*1.0*107"
^XMB(3.9,118,6,0)="^3.911A^2^2"
^XMB(3.9,118,6,1,0)="POSTMASTER"
^XMB(3.9,118,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,118,6,"B","POSTMASTER",1)=""
^XMB(3.9,118,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,119,0)="PSU-4_SEQ-5_PAT-8.KID^.5^3061008.015741^^^^K"
^XMB(3.9,119,.6)="3061008"
^XMB(3.9,119,1,0)="^3.91A^2^2"
^XMB(3.9,119,1,1,0)=".5^0^3061008.015741^^^^^^^3061008.015741"
^XMB(3.9,119,1,2,0)="1^0^3061008.022432^^^^^^^3061008.022432"
^XMB(3.9,119,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,119,1,"C",.5,1)=""
^XMB(3.9,119,1,"C",1,2)=""
^XMB(3.9,119,2,0)="^^1151^1151^3061008"
^XMB(3.9,119,2,1,0)="$TXT Released PSU*4*8 SEQ #5"
^XMB(3.9,119,2,2,0)="Extracted from mail message"
^XMB(3.9,119,2,3,0)="$END TXT"
^XMB(3.9,119,2,4,0)="$KID PSU*4.0*8"
^XMB(3.9,119,2,5,0)="**INSTALL NAME**"
^XMB(3.9,119,2,6,0)="PSU*4.0*8"
^XMB(3.9,119,2,7,0)="""BLD"",6909,0)"
^XMB(3.9,119,2,8,0)="PSU*4.0*8^PHARMACY BENEFITS MANAGEMENT^0^3060724^y"
^XMB(3.9,119,2,9,0)="""BLD"",6909,1,0)"
^XMB(3.9,119,2,10,0)="^^10^10^3060721^"
^XMB(3.9,119,2,11,0)="""BLD"",6909,1,1,0)"
^XMB(3.9,119,2,12,0)="Issue #1: The Provider Summary report is reporting missing data.  When a"
^XMB(3.9,119,2,13,0)="""BLD"",6909,1,2,0)"
^XMB(3.9,119,2,14,0)="Provider has a Service/Section, the Provider will incorrectly show up on"
^XMB(3.9,119,2,15,0)="""BLD"",6909,1,3,0)"
^XMB(3.9,119,2,16,0)="the report as missing specific data."
^XMB(3.9,119,2,17,0)="""BLD"",6909,1,4,0)"
^XMB(3.9,119,2,18,0)=" "
^XMB(3.9,119,2,19,0)="""BLD"",6909,1,5,0)"
^XMB(3.9,119,2,20,0)="Issue #2:  When running Manual Pharmacy Statistics [PSU PBM MANUAL] "
^XMB(3.9,119,2,21,0)="""BLD"",6909,1,6,0)"
^XMB(3.9,119,2,22,0)="option, the clinic that appears in a mailman message is not"
^XMB(3.9,119,2,23,0)="""BLD"",6909,1,7,0)"
^XMB(3.9,119,2,24,0)="the same clinic that appears in the PRESCRIPTION file (#52)."
^XMB(3.9,119,2,25,0)="""BLD"",6909,1,8,0)"
^XMB(3.9,119,2,26,0)=" "
^XMB(3.9,119,2,27,0)="""BLD"",6909,1,9,0)"
^XMB(3.9,119,2,28,0)="Issue #3: This patch will clean up routines no longer being used in the "
^XMB(3.9,119,2,29,0)="""BLD"",6909,1,10,0)"
^XMB(3.9,119,2,30,0)="Pharmacy Benefits Management package."
^XMB(3.9,119,2,31,0)="""BLD"",6909,4,0)"
^XMB(3.9,119,2,32,0)="^9.64PA^^"
^XMB(3.9,119,2,33,0)="""BLD"",6909,6)"
^XMB(3.9,119,2,34,0)="2^"
^XMB(3.9,119,2,35,0)="""BLD"",6909,""ABPKG"")"
^XMB(3.9,119,2,36,0)="n"
^XMB(3.9,119,2,37,0)="""BLD"",6909,""KRN"",0)"
^XMB(3.9,119,2,38,0)="^9.67PA^8989.52^19"
^XMB(3.9,119,2,39,0)="""BLD"",6909,""KRN"",.4,0)"
^XMB(3.9,119,2,40,0)=".4"
^XMB(3.9,119,2,41,0)="""BLD"",6909,""KRN"",.401,0)"
^XMB(3.9,119,2,42,0)=".401"
^XMB(3.9,119,2,43,0)="""BLD"",6909,""KRN"",.402,0)"
^XMB(3.9,119,2,44,0)=".402"
^XMB(3.9,119,2,45,0)="""BLD"",6909,""KRN"",.403,0)"
^XMB(3.9,119,2,46,0)=".403"
^XMB(3.9,119,2,47,0)="""BLD"",6909,""KRN"",.5,0)"
^XMB(3.9,119,2,48,0)=".5"
^XMB(3.9,119,2,49,0)="""BLD"",6909,""KRN"",.84,0)"
^XMB(3.9,119,2,50,0)=".84"
^XMB(3.9,119,2,51,0)="""BLD"",6909,""KRN"",3.6,0)"
^XMB(3.9,119,2,52,0)="3.6"
^XMB(3.9,119,2,53,0)="""BLD"",6909,""KRN"",3.8,0)"
^XMB(3.9,119,2,54,0)="3.8"
^XMB(3.9,119,2,55,0)="""BLD"",6909,""KRN"",9.2,0)"
^XMB(3.9,119,2,56,0)="9.2"
^XMB(3.9,119,2,57,0)="""BLD"",6909,""KRN"",9.8,0)"
^XMB(3.9,119,2,58,0)="9.8"
^XMB(3.9,119,2,59,0)="""BLD"",6909,""KRN"",9.8,""NM"",0)"
^XMB(3.9,119,2,60,0)="^9.68A^20^20"
^XMB(3.9,119,2,61,0)="""BLD"",6909,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,119,2,62,0)="PSUDEM4^^0^52077577"
^XMB(3.9,119,2,63,0)="""BLD"",6909,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,119,2,64,0)="PSUOP2^^0^45028652"
^XMB(3.9,119,2,65,0)="""BLD"",6909,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,119,2,66,0)="PSU1^^1^"
^XMB(3.9,119,2,67,0)="""BLD"",6909,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,119,2,68,0)="PSU10^^1^"
^XMB(3.9,119,2,69,0)="""BLD"",6909,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,119,2,70,0)="PSU2^^1^"
^XMB(3.9,119,2,71,0)="""BLD"",6909,""KRN"",9.8,""NM"",6,0)"
^XMB(3.9,119,2,72,0)="PSU3^^1^"
^XMB(3.9,119,2,73,0)="""BLD"",6909,""KRN"",9.8,""NM"",7,0)"
^XMB(3.9,119,2,74,0)="PSU4^^1^"
^XMB(3.9,119,2,75,0)="""BLD"",6909,""KRN"",9.8,""NM"",8,0)"
^XMB(3.9,119,2,76,0)="PSU5^^1^"
^XMB(3.9,119,2,77,0)="""BLD"",6909,""KRN"",9.8,""NM"",9,0)"
^XMB(3.9,119,2,78,0)="PSU6^^1^"
^XMB(3.9,119,2,79,0)="""BLD"",6909,""KRN"",9.8,""NM"",10,0)"
^XMB(3.9,119,2,80,0)="PSU7^^1^"
^XMB(3.9,119,2,81,0)="""BLD"",6909,""KRN"",9.8,""NM"",11,0)"
^XMB(3.9,119,2,82,0)="PSU8^^1^"
^XMB(3.9,119,2,83,0)="""BLD"",6909,""KRN"",9.8,""NM"",12,0)"
^XMB(3.9,119,2,84,0)="PSU81^^1^"
^XMB(3.9,119,2,85,0)="""BLD"",6909,""KRN"",9.8,""NM"",13,0)"
^XMB(3.9,119,2,86,0)="PSU9^^1^"
^XMB(3.9,119,2,87,0)="""BLD"",6909,""KRN"",9.8,""NM"",14,0)"
^XMB(3.9,119,2,88,0)="PSUIV0^^1^"
^XMB(3.9,119,2,89,0)="""BLD"",6909,""KRN"",9.8,""NM"",15,0)"
^XMB(3.9,119,2,90,0)="PSUIV1^^1^"
^XMB(3.9,119,2,91,0)="""BLD"",6909,""KRN"",9.8,""NM"",16,0)"
^XMB(3.9,119,2,92,0)="PSUIV2^^1^"
^XMB(3.9,119,2,93,0)="""BLD"",6909,""KRN"",9.8,""NM"",17,0)"
^XMB(3.9,119,2,94,0)="PSUIV3^^1^"
^XMB(3.9,119,2,95,0)="""BLD"",6909,""KRN"",9.8,""NM"",18,0)"
^XMB(3.9,119,2,96,0)="PSUIV4^^1^"
^XMB(3.9,119,2,97,0)="""BLD"",6909,""KRN"",9.8,""NM"",19,0)"
^XMB(3.9,119,2,98,0)="PSUIV5^^1^"
^XMB(3.9,119,2,99,0)="""BLD"",6909,""KRN"",9.8,""NM"",20,0)"
^XMB(3.9,119,2,100,0)="PSU^^1^"
^XMB(3.9,119,2,101,0)="""BLD"",6909,""KRN"",9.8,""NM"",""B"",""PSU"",20)"
^XMB(3.9,119,2,102,0)=""
^XMB(3.9,119,2,103,0)="""BLD"",6909,""KRN"",9.8,""NM"",""B"",""PSU1"",3)"
^XMB(3.9,119,2,104,0)=""
^XMB(3.9,119,2,105,0)="""BLD"",6909,""KRN"",9.8,""NM"",""B"",""PSU10"",4)"
^XMB(3.9,119,2,106,0)=""
^XMB(3.9,119,2,107,0)="""BLD"",6909,""KRN"",9.8,""NM"",""B"",""PSU2"",5)"
^XMB(3.9,119,2,108,0)=""
^XMB(3.9,119,2,109,0)="""BLD"",6909,""KRN"",9.8,""NM"",""B"",""PSU3"",6)"
^XMB(3.9,119,2,110,0)=""
^XMB(3.9,119,2,111,0)="""BLD"",6909,""KRN"",9.8,""NM"",""B"",""PSU4"",7)"
^XMB(3.9,119,2,112,0)=""
^XMB(3.9,119,2,113,0)="""BLD"",6909,""KRN"",9.8,""NM"",""B"",""PSU5"",8)"
^XMB(3.9,119,2,114,0)=""
^XMB(3.9,119,2,115,0)="""BLD"",6909,""KRN"",9.8,""NM"",""B"",""PSU6"",9)"
^XMB(3.9,119,2,116,0)=""
^XMB(3.9,119,2,117,0)="""BLD"",6909,""KRN"",9.8,""NM"",""B"",""PSU7"",10)"
^XMB(3.9,119,2,118,0)=""
^XMB(3.9,119,2,119,0)="""BLD"",6909,""KRN"",9.8,""NM"",""B"",""PSU8"",11)"
^XMB(3.9,119,2,120,0)=""
^XMB(3.9,119,2,121,0)="""BLD"",6909,""KRN"",9.8,""NM"",""B"",""PSU81"",12)"
^XMB(3.9,119,2,122,0)=""
^XMB(3.9,119,2,123,0)="""BLD"",6909,""KRN"",9.8,""NM"",""B"",""PSU9"",13)"
^XMB(3.9,119,2,124,0)=""
^XMB(3.9,119,2,125,0)="""BLD"",6909,""KRN"",9.8,""NM"",""B"",""PSUDEM4"",1)"
^XMB(3.9,119,2,126,0)=""
^XMB(3.9,119,2,127,0)="""BLD"",6909,""KRN"",9.8,""NM"",""B"",""PSUIV0"",14)"
^XMB(3.9,119,2,128,0)=""
^XMB(3.9,119,2,129,0)="""BLD"",6909,""KRN"",9.8,""NM"",""B"",""PSUIV1"",15)"
^XMB(3.9,119,2,130,0)=""
^XMB(3.9,119,2,131,0)="""BLD"",6909,""KRN"",9.8,""NM"",""B"",""PSUIV2"",16)"
^XMB(3.9,119,2,132,0)=""
^XMB(3.9,119,2,133,0)="""BLD"",6909,""KRN"",9.8,""NM"",""B"",""PSUIV3"",17)"
^XMB(3.9,119,2,134,0)=""
^XMB(3.9,119,2,135,0)="""BLD"",6909,""KRN"",9.8,""NM"",""B"",""PSUIV4"",18)"
^XMB(3.9,119,2,136,0)=""
^XMB(3.9,119,2,137,0)="""BLD"",6909,""KRN"",9.8,""NM"",""B"",""PSUIV5"",19)"
^XMB(3.9,119,2,138,0)=""
^XMB(3.9,119,2,139,0)="""BLD"",6909,""KRN"",9.8,""NM"",""B"",""PSUOP2"",2)"
^XMB(3.9,119,2,140,0)=""
^XMB(3.9,119,2,141,0)="""BLD"",6909,""KRN"",19,0)"
^XMB(3.9,119,2,142,0)="19"
^XMB(3.9,119,2,143,0)="""BLD"",6909,""KRN"",19.1,0)"
^XMB(3.9,119,2,144,0)="19.1"
^XMB(3.9,119,2,145,0)="""BLD"",6909,""KRN"",101,0)"
^XMB(3.9,119,2,146,0)="101"
^XMB(3.9,119,2,147,0)="""BLD"",6909,""KRN"",409.61,0)"
^XMB(3.9,119,2,148,0)="409.61"
^XMB(3.9,119,2,149,0)="""BLD"",6909,""KRN"",771,0)"
^XMB(3.9,119,2,150,0)="771"
^XMB(3.9,119,2,151,0)="""BLD"",6909,""KRN"",870,0)"
^XMB(3.9,119,2,152,0)="870"
^XMB(3.9,119,2,153,0)="""BLD"",6909,""KRN"",8989.51,0)"
^XMB(3.9,119,2,154,0)="8989.51"
^XMB(3.9,119,2,155,0)="""BLD"",6909,""KRN"",8989.52,0)"
^XMB(3.9,119,2,156,0)="8989.52"
^XMB(3.9,119,2,157,0)="""BLD"",6909,""KRN"",8994,0)"
^XMB(3.9,119,2,158,0)="8994"
^XMB(3.9,119,2,159,0)="""BLD"",6909,""KRN"",""B"",.4,.4)"
^XMB(3.9,119,2,160,0)=""
^XMB(3.9,119,2,161,0)="""BLD"",6909,""KRN"",""B"",.401,.401)"
^XMB(3.9,119,2,162,0)=""
^XMB(3.9,119,2,163,0)="""BLD"",6909,""KRN"",""B"",.402,.402)"
^XMB(3.9,119,2,164,0)=""
^XMB(3.9,119,2,165,0)="""BLD"",6909,""KRN"",""B"",.403,.403)"
^XMB(3.9,119,2,166,0)=""
^XMB(3.9,119,2,167,0)="""BLD"",6909,""KRN"",""B"",.5,.5)"
^XMB(3.9,119,2,168,0)=""
^XMB(3.9,119,2,169,0)="""BLD"",6909,""KRN"",""B"",.84,.84)"
^XMB(3.9,119,2,170,0)=""
^XMB(3.9,119,2,171,0)="""BLD"",6909,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,119,2,172,0)=""
^XMB(3.9,119,2,173,0)="""BLD"",6909,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,119,2,174,0)=""
^XMB(3.9,119,2,175,0)="""BLD"",6909,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,119,2,176,0)=""
^XMB(3.9,119,2,177,0)="""BLD"",6909,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,119,2,178,0)=""
^XMB(3.9,119,2,179,0)="""BLD"",6909,""KRN"",""B"",19,19)"
^XMB(3.9,119,2,180,0)=""
^XMB(3.9,119,2,181,0)="""BLD"",6909,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,119,2,182,0)=""
^XMB(3.9,119,2,183,0)="""BLD"",6909,""KRN"",""B"",101,101)"
^XMB(3.9,119,2,184,0)=""
^XMB(3.9,119,2,185,0)="""BLD"",6909,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,119,2,186,0)=""
^XMB(3.9,119,2,187,0)="""BLD"",6909,""KRN"",""B"",771,771)"
^XMB(3.9,119,2,188,0)=""
^XMB(3.9,119,2,189,0)="""BLD"",6909,""KRN"",""B"",870,870)"
^XMB(3.9,119,2,190,0)=""
^XMB(3.9,119,2,191,0)="""BLD"",6909,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,119,2,192,0)=""
^XMB(3.9,119,2,193,0)="""BLD"",6909,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,119,2,194,0)=""
^XMB(3.9,119,2,195,0)="""BLD"",6909,""KRN"",""B"",8994,8994)"
^XMB(3.9,119,2,196,0)=""
^XMB(3.9,119,2,197,0)="""BLD"",6909,""QUES"",0)"
^XMB(3.9,119,2,198,0)="^9.62^^"
^XMB(3.9,119,2,199,0)="""BLD"",6909,""REQB"",0)"
^XMB(3.9,119,2,200,0)="^9.611^1^1"
^XMB(3.9,119,2,201,0)="""BLD"",6909,""REQB"",1,0)"
^XMB(3.9,119,2,202,0)="PSU*4.0*6^1"
^XMB(3.9,119,2,203,0)="""BLD"",6909,""REQB"",""B"",""PSU*4.0*6"",1)"
^XMB(3.9,119,2,204,0)=""
^XMB(3.9,119,2,205,0)="""MBREQ"")"
^XMB(3.9,119,2,206,0)="0"
^XMB(3.9,119,2,207,0)="""ORD"",0,9.8)"
^XMB(3.9,119,2,208,0)="9.8;;1;RTNF^XPDTA;RTNE^XPDTA"
^XMB(3.9,119,2,209,0)="""ORD"",0,9.8,0)"
^XMB(3.9,119,2,210,0)="ROUTINE"
^XMB(3.9,119,2,211,0)="""PKG"",358,-1)"
^XMB(3.9,119,2,212,0)="1^1"
^XMB(3.9,119,2,213,0)="""PKG"",358,0)"
^XMB(3.9,119,2,214,0)="PHARMACY BENEFITS MANAGEMENT^PSU^PHARMACY BENEFITS MANAGEMENT"
^XMB(3.9,119,2,215,0)="""PKG"",358,20,0)"
^XMB(3.9,119,2,216,0)="^9.402P^^"
^XMB(3.9,119,2,217,0)="""PKG"",358,22,0)"
^XMB(3.9,119,2,218,0)="^9.49I^1^1"
^XMB(3.9,119,2,219,0)="""PKG"",358,22,1,0)"
^XMB(3.9,119,2,220,0)="4.0^3050622^3050722^33273"
^XMB(3.9,119,2,221,0)="""PKG"",358,22,1,""PAH"",1,0)"
^XMB(3.9,119,2,222,0)="8^3060724"
^XMB(3.9,119,2,223,0)="""PKG"",358,22,1,""PAH"",1,1,0)"
^XMB(3.9,119,2,224,0)="^^10^10^3060724"
^XMB(3.9,119,2,225,0)="""PKG"",358,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,119,2,226,0)="Issue #1: The Provider Summary report is reporting missing data.  When a"
^XMB(3.9,119,2,227,0)="""PKG"",358,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,119,2,228,0)="Provider has a Service/Section, the Provider will incorrectly show up on"
^XMB(3.9,119,2,229,0)="""PKG"",358,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,119,2,230,0)="the report as missing specific data."
^XMB(3.9,119,2,231,0)="""PKG"",358,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,119,2,232,0)=" "
^XMB(3.9,119,2,233,0)="""PKG"",358,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,119,2,234,0)="Issue #2:  When running Manual Pharmacy Statistics [PSU PBM MANUAL] "
^XMB(3.9,119,2,235,0)="""PKG"",358,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,119,2,236,0)="option, the clinic that appears in a mailman message is not"
^XMB(3.9,119,2,237,0)="""PKG"",358,22,1,""PAH"",1,1,7,0)"
^XMB(3.9,119,2,238,0)="the same clinic that appears in the PRESCRIPTION file (#52)."
^XMB(3.9,119,2,239,0)="""PKG"",358,22,1,""PAH"",1,1,8,0)"
^XMB(3.9,119,2,240,0)=" "
^XMB(3.9,119,2,241,0)="""PKG"",358,22,1,""PAH"",1,1,9,0)"
^XMB(3.9,119,2,242,0)="Issue #3: This patch will clean up routines no longer being used in the "
^XMB(3.9,119,2,243,0)="""PKG"",358,22,1,""PAH"",1,1,10,0)"
^XMB(3.9,119,2,244,0)="Pharmacy Benefits Management package."
^XMB(3.9,119,2,245,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,119,2,246,0)="Y"
^XMB(3.9,119,2,247,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,119,2,248,0)="^D REP^XPDH"
^XMB(3.9,119,2,249,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,119,2,250,0)="Shall I write over your |FLAG| File"
^XMB(3.9,119,2,251,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,119,2,252,0)="YES"
^XMB(3.9,119,2,253,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,119,2,254,0)="D XPF1^XPDIQ"
^XMB(3.9,119,2,255,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,119,2,256,0)="Y"
^XMB(3.9,119,2,257,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,119,2,258,0)="^D DTA^XPDH"
^XMB(3.9,119,2,259,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,119,2,260,0)="Want my data |FLAG| yours"
^XMB(3.9,119,2,261,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,119,2,262,0)="YES"
^XMB(3.9,119,2,263,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,119,2,264,0)="D XPF2^XPDIQ"
^XMB(3.9,119,2,265,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,119,2,266,0)="YO"
^XMB(3.9,119,2,267,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,119,2,268,0)="^D INHIBIT^XPDH"
^XMB(3.9,119,2,269,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,119,2,270,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,119,2,271,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,119,2,272,0)="YES"
^XMB(3.9,119,2,273,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,119,2,274,0)="D XPI1^XPDIQ"
^XMB(3.9,119,2,275,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,119,2,276,0)="PO^VA(200,:EM"
^XMB(3.9,119,2,277,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,119,2,278,0)="^D MG^XPDH"
^XMB(3.9,119,2,279,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,119,2,280,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,119,2,281,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,119,2,282,0)=""
^XMB(3.9,119,2,283,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,119,2,284,0)="D XPM1^XPDIQ"
^XMB(3.9,119,2,285,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,119,2,286,0)="Y"
^XMB(3.9,119,2,287,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,119,2,288,0)="^D MENU^XPDH"
^XMB(3.9,119,2,289,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,119,2,290,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,119,2,291,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,119,2,292,0)="YES"
^XMB(3.9,119,2,293,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,119,2,294,0)="D XPO1^XPDIQ"
^XMB(3.9,119,2,295,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,119,2,296,0)="Y"
^XMB(3.9,119,2,297,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,119,2,298,0)="^D OPT^XPDH"
^XMB(3.9,119,2,299,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,119,2,300,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,119,2,301,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,119,2,302,0)="YES"
^XMB(3.9,119,2,303,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,119,2,304,0)="D XPZ1^XPDIQ"
^XMB(3.9,119,2,305,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,119,2,306,0)="Y"
^XMB(3.9,119,2,307,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,119,2,308,0)="^D RTN^XPDH"
^XMB(3.9,119,2,309,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,119,2,310,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,119,2,311,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,119,2,312,0)="NO"
^XMB(3.9,119,2,313,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,119,2,314,0)="D XPZ2^XPDIQ"
^XMB(3.9,119,2,315,0)="""RTN"")"
^XMB(3.9,119,2,316,0)="20"
^XMB(3.9,119,2,317,0)="""RTN"",""PSU"")"
^XMB(3.9,119,2,318,0)="1^20^^B26826545"
^XMB(3.9,119,2,319,0)="""RTN"",""PSU1"")"
^XMB(3.9,119,2,320,0)="1^3^^B14674705"
^XMB(3.9,119,2,321,0)="""RTN"",""PSU10"")"
^XMB(3.9,119,2,322,0)="1^4^^B8990229"
^XMB(3.9,119,2,323,0)="""RTN"",""PSU2"")"
^XMB(3.9,119,2,324,0)="1^5^^B7475694"
^XMB(3.9,119,2,325,0)="""RTN"",""PSU3"")"
^XMB(3.9,119,2,326,0)="1^6^^B13174044"
^XMB(3.9,119,2,327,0)="""RTN"",""PSU4"")"
^XMB(3.9,119,2,328,0)="1^7^^B22471313"
^XMB(3.9,119,2,329,0)="""RTN"",""PSU5"")"
^XMB(3.9,119,2,330,0)="1^8^^B22132324"
^XMB(3.9,119,2,331,0)="""RTN"",""PSU6"")"
^XMB(3.9,119,2,332,0)="1^9^^B8377029"
^XMB(3.9,119,2,333,0)="""RTN"",""PSU7"")"
^XMB(3.9,119,2,334,0)="1^10^^B10359366"
^XMB(3.9,119,2,335,0)="""RTN"",""PSU8"")"
^XMB(3.9,119,2,336,0)="1^11^^B19193214"
^XMB(3.9,119,2,337,0)="""RTN"",""PSU81"")"
^XMB(3.9,119,2,338,0)="1^12^^B8895635"
^XMB(3.9,119,2,339,0)="""RTN"",""PSU9"")"
^XMB(3.9,119,2,340,0)="1^13^^B21954355"
^XMB(3.9,119,2,341,0)="""RTN"",""PSUDEM4"")"
^XMB(3.9,119,2,342,0)="0^1^B52077577^B51977123"
^XMB(3.9,119,2,343,0)="""RTN"",""PSUDEM4"",1,0)"
^XMB(3.9,119,2,344,0)="PSUDEM4 ;BIR/DAM - Provider Extract ; 7/21/06 2:27pm"
^XMB(3.9,119,2,345,0)="""RTN"",""PSUDEM4"",2,0)"
^XMB(3.9,119,2,346,0)=" ;;4.0;PHARMACY BENEFITS MANAGEMENT;**8**;MARCH, 2005"
^XMB(3.9,119,2,347,0)="""RTN"",""PSUDEM4"",3,0)"
^XMB(3.9,119,2,348,0)=" ;"
^XMB(3.9,119,2,349,0)="""RTN"",""PSUDEM4"",4,0)"
^XMB(3.9,119,2,350,0)=" ;DBIA'S"
^XMB(3.9,119,2,351,0)="""RTN"",""PSUDEM4"",5,0)"
^XMB(3.9,119,2,352,0)=" ; Reference to file 200    supported by DBIA 10060"
^XMB(3.9,119,2,353,0)="""RTN"",""PSUDEM4"",6,0)"
^XMB(3.9,119,2,354,0)=" ; Reference to file 7      supported by DBIA 2495"
^XMB(3.9,119,2,355,0)="""RTN"",""PSUDEM4"",7,0)"
^XMB(3.9,119,2,356,0)=" ; Reference to file 49     supported by DBIA 432"
^XMB(3.9,119,2,357,0)="""RTN"",""PSUDEM4"",8,0)"
^XMB(3.9,119,2,358,0)=" ; Reference to file 8932.1 supported by DBIA 2091"
^XMB(3.9,119,2,359,0)="""RTN"",""PSUDEM4"",9,0)"
^XMB(3.9,119,2,360,0)=" ; Reference to file 4.2    supported by DBIA 2496"
^XMB(3.9,119,2,361,0)="""RTN"",""PSUDEM4"",10,0)"
^XMB(3.9,119,2,362,0)=" ;"
^XMB(3.9,119,2,363,0)="""RTN"",""PSUDEM4"",11,0)"
^XMB(3.9,119,2,364,0)="EN ;Entry point for gathering all provider information from IV, UD, Rx,"
^XMB(3.9,119,2,365,0)="""RTN"",""PSUDEM4"",12,0)"
^XMB(3.9,119,2,366,0)=" ;and PD modules."
^XMB(3.9,119,2,367,0)="""RTN"",""PSUDEM4"",13,0)"
^XMB(3.9,119,2,368,0)=" ;"
^XMB(3.9,119,2,369,0)="""RTN"",""PSUDEM4"",14,0)"
^XMB(3.9,119,2,370,0)=" N PSUREC"
^XMB(3.9,119,2,371,0)="""RTN"",""PSUDEM4"",15,0)"
^XMB(3.9,119,2,372,0)=" S ^XTMP(""PSU_""_PSUJOB,""PSUFLAG"")="""""
^XMB(3.9,119,2,373,0)="""RTN"",""PSUDEM4"",16,0)"
^XMB(3.9,119,2,374,0)=" ;"
^XMB(3.9,119,2,375,0)="""RTN"",""PSUDEM4"",17,0)"
^XMB(3.9,119,2,376,0)=" D PULL^PSUCP"
^XMB(3.9,119,2,377,0)="""RTN"",""PSUDEM4"",18,0)"
^XMB(3.9,119,2,378,0)=" F I=1:1:$L(PSUOPTS,"","") S PSUMOD($P(PSUOPTS,"","",I))="""""
^XMB(3.9,119,2,379,0)="""RTN"",""PSUDEM4"",19,0)"
^XMB(3.9,119,2,380,0)=" ;"
^XMB(3.9,119,2,381,0)="""RTN"",""PSUDEM4"",20,0)"
^XMB(3.9,119,2,382,0)=" I '$D(PSUMOD(7)) D EN^PSUDEM1"
^XMB(3.9,119,2,383,0)="""RTN"",""PSUDEM4"",21,0)"
^XMB(3.9,119,2,384,0)=" I '$D(PSUMOD(1)) D EN^PSUV0"
^XMB(3.9,119,2,385,0)="""RTN"",""PSUDEM4"",22,0)"
^XMB(3.9,119,2,386,0)=" I '$D(PSUMOD(2)) D EN^PSUUD0"
^XMB(3.9,119,2,387,0)="""RTN"",""PSUDEM4"",23,0)"
^XMB(3.9,119,2,388,0)=" I '$D(PSUMOD(4)) D"
^XMB(3.9,119,2,389,0)="""RTN"",""PSUDEM4"",24,0)"
^XMB(3.9,119,2,390,0)=" .S ^XTMP(""PSU_""_PSUJOB,""PSUOPFLG"")=""""   ;Set flag"
^XMB(3.9,119,2,391,0)="""RTN"",""PSUDEM4"",25,0)"
^XMB(3.9,119,2,392,0)=" .D EN^PSUOP0"
^XMB(3.9,119,2,393,0)="""RTN"",""PSUDEM4"",26,0)"
^XMB(3.9,119,2,394,0)=" M ^XTMP(""PSU_""_PSUJOB,""PSUPROM"")=^XTMP(""PSU_""_PSUJOB,""PSUPROV"")"
^XMB(3.9,119,2,395,0)="""RTN"",""PSUDEM4"",27,0)"
^XMB(3.9,119,2,396,0)=" ;"
^XMB(3.9,119,2,397,0)="""RTN"",""PSUDEM4"",28,0)"
^XMB(3.9,119,2,398,0)=" D XMD"
^XMB(3.9,119,2,399,0)="""RTN"",""PSUDEM4"",29,0)"
^XMB(3.9,119,2,400,0)=" D EN^PSUSUM1      ;compose provider summary report and mail it."
^XMB(3.9,119,2,401,0)="""RTN"",""PSUDEM4"",30,0)"
^XMB(3.9,119,2,402,0)=" K ^XTMP(""PSU_""_PSUJOB,""PSUFLAG"")"
^XMB(3.9,119,2,403,0)="""RTN"",""PSUDEM4"",31,0)"
^XMB(3.9,119,2,404,0)=" Q"
^XMB(3.9,119,2,405,0)="""RTN"",""PSUDEM4"",32,0)"
^XMB(3.9,119,2,406,0)=" ;"
^XMB(3.9,119,2,407,0)="""RTN"",""PSUDEM4"",33,0)"
^XMB(3.9,119,2,408,0)="PDSSN ;EN  Called from PSUDEM1"
^XMB(3.9,119,2,409,0)="""RTN"",""PSUDEM4"",34,0)"
^XMB(3.9,119,2,410,0)=" ;Find provider SSN and IEN present in the patient demographics"
^XMB(3.9,119,2,411,0)="""RTN"",""PSUDEM4"",35,0)"
^XMB(3.9,119,2,412,0)=" ;extract.  Note that this is the primary care provider."
^XMB(3.9,119,2,413,0)="""RTN"",""PSUDEM4"",36,0)"
^XMB(3.9,119,2,414,0)=" ;"
^XMB(3.9,119,2,415,0)="""RTN"",""PSUDEM4"",37,0)"
^XMB(3.9,119,2,416,0)=" S PSUT=0"
^XMB(3.9,119,2,417,0)="""RTN"",""PSUDEM4"",38,0)"
^XMB(3.9,119,2,418,0)=" F  S PSUT=$O(^XTMP(""PSU_""_PSUJOB,""PSUDM"",PSUT)) Q:'PSUT  D"
^XMB(3.9,119,2,419,0)="""RTN"",""PSUDEM4"",39,0)"
^XMB(3.9,119,2,420,0)=" .N PSUIEN,PSUSSN1"
^XMB(3.9,119,2,421,0)="""RTN"",""PSUDEM4"",40,0)"
^XMB(3.9,119,2,422,0)=" .S PSUIEN=$P($G(^XTMP(""PSU_""_PSUJOB,""PSUDM"",PSUT)),U,15) I 'PSUIEN S PSUIEN=""UNK"""
^XMB(3.9,119,2,423,0)="""RTN"",""PSUDEM4"",41,0)"
^XMB(3.9,119,2,424,0)=" .D FAC"
^XMB(3.9,119,2,425,0)="""RTN"",""PSUDEM4"",42,0)"
^XMB(3.9,119,2,426,0)=" .D PNAM"
^XMB(3.9,119,2,427,0)="""RTN"",""PSUDEM4"",43,0)"
^XMB(3.9,119,2,428,0)=" .S PSUSSN1=$P($G(^XTMP(""PSU_""_PSUJOB,""PSUDM"",PSUT)),U,14) I 'PSUSSN1 S PSUSSN1="""""
^XMB(3.9,119,2,429,0)="""RTN"",""PSUDEM4"",44,0)"
^XMB(3.9,119,2,430,0)=" .S PSUREC=PSUSSN1 D REC^PSUDEM2"
^XMB(3.9,119,2,431,0)="""RTN"",""PSUDEM4"",45,0)"
^XMB(3.9,119,2,432,0)=" .S $P(^XTMP(""PSU_""_PSUJOB,""PSUPROV"",PSUIEN),U,3)=PSUREC              ;Dem Prov SSN"
^XMB(3.9,119,2,433,0)="""RTN"",""PSUDEM4"",46,0)"
^XMB(3.9,119,2,434,0)=" .S PSUREC=PSUIEN D REC^PSUDEM2"
^XMB(3.9,119,2,435,0)="""RTN"",""PSUDEM4"",47,0)"
^XMB(3.9,119,2,436,0)=" .S $P(^XTMP(""PSU_""_PSUJOB,""PSUPROV"",PSUIEN),U,4)=PSUREC D              ;Dem Prov ICN"
^XMB(3.9,119,2,437,0)="""RTN"",""PSUDEM4"",48,0)"
^XMB(3.9,119,2,438,0)=" ..I PSUREC=""UNK"" K ^XTMP(""PSU_""_PSUJOB,""PSUPROV"",PSUIEN)"
^XMB(3.9,119,2,439,0)="""RTN"",""PSUDEM4"",49,0)"
^XMB(3.9,119,2,440,0)=" Q"
^XMB(3.9,119,2,441,0)="""RTN"",""PSUDEM4"",50,0)"
^XMB(3.9,119,2,442,0)=" ;"
^XMB(3.9,119,2,443,0)="""RTN"",""PSUDEM4"",51,0)"
^XMB(3.9,119,2,444,0)="UDSSN ;EN  Called from PROV^PSUUD1. Find provider SSN and IEN in the unit "
^XMB(3.9,119,2,445,0)="""RTN"",""PSUDEM4"",52,0)"
^XMB(3.9,119,2,446,0)=" ;dose extract"
^XMB(3.9,119,2,447,0)="""RTN"",""PSUDEM4"",53,0)"
^XMB(3.9,119,2,448,0)=" ;"
^XMB(3.9,119,2,449,0)="""RTN"",""PSUDEM4"",54,0)"
^XMB(3.9,119,2,450,0)=" S PSUIEN=0,PSUVSSN1=0"
^XMB(3.9,119,2,451,0)="""RTN"",""PSUDEM4"",55,0)"
^XMB(3.9,119,2,452,0)=" F  S PSUVSSN1=$O(^XTMP(""PSU_""_PSUJOB,""PSUPDR"",PSUVSSN1)) Q:PSUVSSN1=""""  D"
^XMB(3.9,119,2,453,0)="""RTN"",""PSUDEM4"",56,0)"
^XMB(3.9,119,2,454,0)=" .F  S PSUIEN=$O(^XTMP(""PSU_""_PSUJOB,""PSUPDR"",PSUVSSN1,PSUIEN)) Q:PSUIEN=""""  D"
^XMB(3.9,119,2,455,0)="""RTN"",""PSUDEM4"",57,0)"
^XMB(3.9,119,2,456,0)=" ..D FAC"
^XMB(3.9,119,2,457,0)="""RTN"",""PSUDEM4"",58,0)"
^XMB(3.9,119,2,458,0)=" ..S PSUREC=PSUVSSN1 D REC^PSUDEM1 D"
^XMB(3.9,119,2,459,0)="""RTN"",""PSUDEM4"",59,0)"
^XMB(3.9,119,2,460,0)=" ...I PSUREC=999999999 S PSUREC="""""
^XMB(3.9,119,2,461,0)="""RTN"",""PSUDEM4"",60,0)"
^XMB(3.9,119,2,462,0)=" ...S $P(^XTMP(""PSU_""_PSUJOB,""PSUPROV"",PSUIEN),U,3)=PSUREC   ;UD Prov SSN"
^XMB(3.9,119,2,463,0)="""RTN"",""PSUDEM4"",61,0)"
^XMB(3.9,119,2,464,0)=" ..S PSUREC=PSUIEN D REC^PSUDEM2"
^XMB(3.9,119,2,465,0)="""RTN"",""PSUDEM4"",62,0)"
^XMB(3.9,119,2,466,0)=" ..S $P(^XTMP(""PSU_""_PSUJOB,""PSUPROV"",PSUIEN),U,4)=PSUREC    ;UD Prov IEN"
^XMB(3.9,119,2,467,0)="""RTN"",""PSUDEM4"",63,0)"
^XMB(3.9,119,2,468,0)=" ..D PNAM"
^XMB(3.9,119,2,469,0)="""RTN"",""PSUDEM4"",64,0)"
^XMB(3.9,119,2,470,0)=" Q"
^XMB(3.9,119,2,471,0)="""RTN"",""PSUDEM4"",65,0)"
^XMB(3.9,119,2,472,0)=" ;"
^XMB(3.9,119,2,473,0)="""RTN"",""PSUDEM4"",66,0)"
^XMB(3.9,119,2,474,0)="IVSSN ;EN Called from PSUIV1. Gives Provider within date range of extract"
^XMB(3.9,119,2,475,0)="""RTN"",""PSUDEM4"",67,0)"
^XMB(3.9,119,2,476,0)=" ;"
^XMB(3.9,119,2,477,0)="""RTN"",""PSUDEM4"",68,0)"
^XMB(3.9,119,2,478,0)=" D UDSSN"
^XMB(3.9,119,2,479,0)="""RTN"",""PSUDEM4"",69,0)"
^XMB(3.9,119,2,480,0)=" Q"
^XMB(3.9,119,2,481,0)="""RTN"",""PSUDEM4"",70,0)"
^XMB(3.9,119,2,482,0)=" ;"
^XMB(3.9,119,2,483,0)="""RTN"",""PSUDEM4"",71,0)"
^XMB(3.9,119,2,484,0)="OPSSN ;EN Called from PSUOP0.  Gives prescription Provider"
^XMB(3.9,119,2,485,0)="""RTN"",""PSUDEM4"",72,0)"
^XMB(3.9,119,2,486,0)=" ;"
^XMB(3.9,119,2,487,0)="""RTN"",""PSUDEM4"",73,0)"
^XMB(3.9,119,2,488,0)=" D UDSSN"
^XMB(3.9,119,2,489,0)="""RTN"",""PSUDEM4"",74,0)"
^XMB(3.9,119,2,490,0)=" Q "
^XMB(3.9,119,2,491,0)="""RTN"",""PSUDEM4"",75,0)"
^XMB(3.9,119,2,492,0)="FAC ;Find provider station number.  Places that info in each record."
^XMB(3.9,119,2,493,0)="""RTN"",""PSUDEM4"",76,0)"
^XMB(3.9,119,2,494,0)=" ;"
^XMB(3.9,119,2,495,0)="""RTN"",""PSUDEM4"",77,0)"
^XMB(3.9,119,2,496,0)=" ;D INST^PSUDEM1"
^XMB(3.9,119,2,497,0)="""RTN"",""PSUDEM4"",78,0)"
^XMB(3.9,119,2,498,0)=" S $P(^TMP(""PSUPROV"",$J),U,2)=PSUSNDR"
^XMB(3.9,119,2,499,0)="""RTN"",""PSUDEM4"",79,0)"
^XMB(3.9,119,2,500,0)=" M ^XTMP(""PSU_""_PSUJOB,""PSUPROV"",PSUIEN)=^TMP(""PSUPROV"",$J)"
^XMB(3.9,119,2,501,0)="""RTN"",""PSUDEM4"",80,0)"
^XMB(3.9,119,2,502,0)=" Q"
^XMB(3.9,119,2,503,0)="""RTN"",""PSUDEM4"",81,0)"
^XMB(3.9,119,2,504,0)=" ;"
^XMB(3.9,119,2,505,0)="""RTN"",""PSUDEM4"",82,0)"
^XMB(3.9,119,2,506,0)="PNAM ;Find the provider's name."
^XMB(3.9,119,2,507,0)="""RTN"",""PSUDEM4"",83,0)"
^XMB(3.9,119,2,508,0)=" ;"
^XMB(3.9,119,2,509,0)="""RTN"",""PSUDEM4"",84,0)"
^XMB(3.9,119,2,510,0)=" N PSUCLP,PSUSS,PSUSP"
^XMB(3.9,119,2,511,0)="""RTN"",""PSUDEM4"",85,0)"
^XMB(3.9,119,2,512,0)=" ;"
^XMB(3.9,119,2,513,0)="""RTN"",""PSUDEM4"",86,0)"
^XMB(3.9,119,2,514,0)=" ;Find provider name"
^XMB(3.9,119,2,515,0)="""RTN"",""PSUDEM4"",87,0)"
^XMB(3.9,119,2,516,0)=" S $P(^XTMP(""PSU_""_PSUJOB,""PSUPROV"",PSUIEN),U,9)=$$GET1^DIQ(200,PSUIEN,.01,""I"")"
^XMB(3.9,119,2,517,0)="""RTN"",""PSUDEM4"",88,0)"
^XMB(3.9,119,2,518,0)=" ;"
^XMB(3.9,119,2,519,0)="""RTN"",""PSUDEM4"",89,0)"
^XMB(3.9,119,2,520,0)=" S PSUCLP=$$GET1^DIQ(200,PSUIEN,53.5,""I"") D CLASS  ;Provider pointer"
^XMB(3.9,119,2,521,0)="""RTN"",""PSUDEM4"",90,0)"
^XMB(3.9,119,2,522,0)=" S PSUSS=$$GET1^DIQ(200,PSUIEN,29,""I"") D SS        ;Service Sctn ptr"
^XMB(3.9,119,2,523,0)="""RTN"",""PSUDEM4"",91,0)"
^XMB(3.9,119,2,524,0)=" ;"
^XMB(3.9,119,2,525,0)="""RTN"",""PSUDEM4"",92,0)"
^XMB(3.9,119,2,526,0)=" S PSUD1=999"
^XMB(3.9,119,2,527,0)="""RTN"",""PSUDEM4"",93,0)"
^XMB(3.9,119,2,528,0)=" S PSUD1=$O(^VA(200,PSUIEN,""USC1"",PSUD1),-1)  ;Find last subscript"
^XMB(3.9,119,2,529,0)="""RTN"",""PSUDEM4"",94,0)"
^XMB(3.9,119,2,530,0)=" I PSUD1'="""" D"
^XMB(3.9,119,2,531,0)="""RTN"",""PSUDEM4"",95,0)"
^XMB(3.9,119,2,532,0)=" .S PSUSP=$$GET1^DIQ(200.05,PSUD1_"",""_PSUIEN_"","",.01,""I"")  ;Specialty"
^XMB(3.9,119,2,533,0)="""RTN"",""PSUDEM4"",96,0)"
^XMB(3.9,119,2,534,0)=" .D SPEC"
^XMB(3.9,119,2,535,0)="""RTN"",""PSUDEM4"",97,0)"
^XMB(3.9,119,2,536,0)=" I PSUD1="""" D"
^XMB(3.9,119,2,537,0)="""RTN"",""PSUDEM4"",98,0)"
^XMB(3.9,119,2,538,0)=" .S $P(^XTMP(""PSU_""_PSUJOB,""PSUPROV"",PSUIEN),U,7)="""""
^XMB(3.9,119,2,539,0)="""RTN"",""PSUDEM4"",99,0)"
^XMB(3.9,119,2,540,0)=" .S $P(^XTMP(""PSU_""_PSUJOB,""PSUPROV"",PSUIEN),U,8)="""""
^XMB(3.9,119,2,541,0)="""RTN"",""PSUDEM4"",100,0)"
^XMB(3.9,119,2,542,0)=" Q"
^XMB(3.9,119,2,543,0)="""RTN"",""PSUDEM4"",101,0)"
^XMB(3.9,119,2,544,0)=" ;"
^XMB(3.9,119,2,545,0)="""RTN"",""PSUDEM4"",102,0)"
^XMB(3.9,119,2,546,0)="CLASS ;Find provider class"
^XMB(3.9,119,2,547,0)="""RTN"",""PSUDEM4"",103,0)"
^XMB(3.9,119,2,548,0)=" ;"
^XMB(3.9,119,2,549,0)="""RTN"",""PSUDEM4"",104,0)"
^XMB(3.9,119,2,550,0)=" I '$D(PSUCLP) S $P(^XTMP(""PSU_""_PSUJOB,""PSUPROV"",PSUIEN),U,5)="""""
^XMB(3.9,119,2,551,0)="""RTN"",""PSUDEM4"",105,0)"
^XMB(3.9,119,2,552,0)=" I PSUCLP="""" S $P(^XTMP(""PSU_""_PSUJOB,""PSUPROV"",PSUIEN),U,5)="""""
^XMB(3.9,119,2,553,0)="""RTN"",""PSUDEM4"",106,0)"
^XMB(3.9,119,2,554,0)=" I PSUCLP'="""" D"
^XMB(3.9,119,2,555,0)="""RTN"",""PSUDEM4"",107,0)"
^XMB(3.9,119,2,556,0)=" .S $P(^XTMP(""PSU_""_PSUJOB,""PSUPROV"",PSUIEN),U,5)=$P($G(^DIC(7,PSUCLP,0)),U,2)  ;Prov class"
^XMB(3.9,119,2,557,0)="""RTN"",""PSUDEM4"",108,0)"
^XMB(3.9,119,2,558,0)=" Q"
^XMB(3.9,119,2,559,0)="""RTN"",""PSUDEM4"",109,0)"
^XMB(3.9,119,2,560,0)=" ;"
^XMB(3.9,119,2,561,0)="""RTN"",""PSUDEM4"",110,0)"
^XMB(3.9,119,2,562,0)="SS ;Find Provider Service/Section"
^XMB(3.9,119,2,563,0)="""RTN"",""PSUDEM4"",111,0)"
^XMB(3.9,119,2,564,0)=" ;"
^XMB(3.9,119,2,565,0)="""RTN"",""PSUDEM4"",112,0)"
^XMB(3.9,119,2,566,0)=" N PSUTMP"
^XMB(3.9,119,2,567,0)="""RTN"",""PSUDEM4"",113,0)"
^XMB(3.9,119,2,568,0)=" ;"
^XMB(3.9,119,2,569,0)="""RTN"",""PSUDEM4"",114,0)"
^XMB(3.9,119,2,570,0)=" I PSUSS="""" S $P(^XTMP(""PSU_""_PSUJOB,""PSUPROV"",PSUIEN),U,6)="""""
^XMB(3.9,119,2,571,0)="""RTN"",""PSUDEM4"",115,0)"
^XMB(3.9,119,2,572,0)=" I PSUSS'="""" S PSUTMP=1 D"
^XMB(3.9,119,2,573,0)="""RTN"",""PSUDEM4"",116,0)"
^XMB(3.9,119,2,574,0)=" .S:$P($G(^DIC(49,PSUSS,0)),U)[""AMBU"" PSUTMP=""AMB"""
^XMB(3.9,119,2,575,0)="""RTN"",""PSUDEM4"",117,0)"
^XMB(3.9,119,2,576,0)=" .S:$P($G(^DIC(49,PSUSS,0)),U)[""ANESTH"" PSUTMP=""ANES"""
^XMB(3.9,119,2,577,0)="""RTN"",""PSUDEM4"",118,0)"
^XMB(3.9,119,2,578,0)=" .S:$P($G(^DIC(49,PSUSS,0)),U)[""CARDIO"" PSUTMP=""CV"""
^XMB(3.9,119,2,579,0)="""RTN"",""PSUDEM4"",119,0)"
^XMB(3.9,119,2,580,0)=" .S:$P($G(^DIC(49,PSUSS,0)),U)[""PHARM"" PSUTMP=""CPHAR"""
^XMB(3.9,119,2,581,0)="""RTN"",""PSUDEM4"",120,0)"
^XMB(3.9,119,2,582,0)=" .S:$P($G(^DIC(49,PSUSS,0)),U)[""DENT"" PSUTMP=""DDS"""
^XMB(3.9,119,2,583,0)="""RTN"",""PSUDEM4"",121,0)"
^XMB(3.9,119,2,584,0)=" .S:$P($G(^DIC(49,PSUSS,0)),U)[""MEDIC"" PSUTMP=""MED"""
^XMB(3.9,119,2,585,0)="""RTN"",""PSUDEM4"",122,0)"
^XMB(3.9,119,2,586,0)=" .S:$P($G(^DIC(49,PSUSS,0)),U)[""INTERMED"" PSUTMP=""IM"""
^XMB(3.9,119,2,587,0)="""RTN"",""PSUDEM4"",123,0)"
^XMB(3.9,119,2,588,0)=" .S:$P($G(^DIC(49,PSUSS,0)),U)[""NUCLEAR"" PSUTMP=""NUM"""
^XMB(3.9,119,2,589,0)="""RTN"",""PSUDEM4"",124,0)"
^XMB(3.9,119,2,590,0)=" .S:$P($G(^DIC(49,PSUSS,0)),U)[""NURSING"" PSUTMP=""RN"""
^XMB(3.9,119,2,591,0)="""RTN"",""PSUDEM4"",125,0)"
^XMB(3.9,119,2,592,0)=" .S:$P($G(^DIC(49,PSUSS,0)),U)[""ORTHOPED"" PSUTMP=""ORTHO"""
^XMB(3.9,119,2,593,0)="""RTN"",""PSUDEM4"",126,0)"
^XMB(3.9,119,2,594,0)=" .S:$P($G(^DIC(49,PSUSS,0)),U)[""PSYCHIA"" PSUTMP=""PSY"""
^XMB(3.9,119,2,595,0)="""RTN"",""PSUDEM4"",127,0)"
^XMB(3.9,119,2,596,0)=" .S:$P($G(^DIC(49,PSUSS,0)),U)[""MENTAL"" PSUTMP=""PSY"""
^XMB(3.9,119,2,597,0)="""RTN"",""PSUDEM4"",128,0)"
^XMB(3.9,119,2,598,0)=" .S:$P($G(^DIC(49,PSUSS,0)),U)[""PRIMARY"" PSUTMP=""AMB"""
^XMB(3.9,119,2,599,0)="""RTN"",""PSUDEM4"",129,0)"
^XMB(3.9,119,2,600,0)=" .S:$P($G(^DIC(49,PSUSS,0)),U)[""CBOC"" PSUTMP=""AMB"""
^XMB(3.9,119,2,601,0)="""RTN"",""PSUDEM4"",130,0)"
^XMB(3.9,119,2,602,0)=" .S:$P($G(^DIC(49,PSUSS,0)),U)[""OPHTH"" PSUTMP=""OPH"""
^XMB(3.9,119,2,603,0)="""RTN"",""PSUDEM4"",131,0)"
^XMB(3.9,119,2,604,0)=" .S:$P($G(^DIC(49,PSUSS,0)),U)[""PULM"" PSUTMP=""PUL"""
^XMB(3.9,119,2,605,0)="""RTN"",""PSUDEM4"",132,0)"
^XMB(3.9,119,2,606,0)=" .S:$P($G(^DIC(49,PSUSS,0)),U)[""RADIOL"" PSUTMP=""RAD"""
^XMB(3.9,119,2,607,0)="""RTN"",""PSUDEM4"",133,0)"
^XMB(3.9,119,2,608,0)=" .S:$P($G(^DIC(49,PSUSS,0)),U)[""SURG"" PSUTMP=""SUR"""
^XMB(3.9,119,2,609,0)="""RTN"",""PSUDEM4"",134,0)"
^XMB(3.9,119,2,610,0)=" .S:$P($G(^DIC(49,PSUSS,0)),U)[""UROLOG"" PSUTMP=""U"""
^XMB(3.9,119,2,611,0)="""RTN"",""PSUDEM4"",135,0)"
^XMB(3.9,119,2,612,0)=" .S:$P($G(^DIC(49,PSUSS,0)),U)[""NEUROL"" PSUTMP=""NEUR"""
^XMB(3.9,119,2,613,0)="""RTN"",""PSUDEM4"",136,0)"
^XMB(3.9,119,2,614,0)=" .S PSUREC=$G(PSUTMP) D REC^PSUDEM2"
^XMB(3.9,119,2,615,0)="""RTN"",""PSUDEM4"",137,0)"
^XMB(3.9,119,2,616,0)=" .S $P(^XTMP(""PSU_""_PSUJOB,""PSUPROV"",PSUIEN),U,6)=$G(PSUREC)       ;Prov Serv/Sec"
^XMB(3.9,119,2,617,0)="""RTN"",""PSUDEM4"",138,0)"
^XMB(3.9,119,2,618,0)=" Q"
^XMB(3.9,119,2,619,0)="""RTN"",""PSUDEM4"",139,0)"
^XMB(3.9,119,2,620,0)=" ;"
^XMB(3.9,119,2,621,0)="""RTN"",""PSUDEM4"",140,0)"
^XMB(3.9,119,2,622,0)="SPEC ;Find provider specialty and sub-specialty"
^XMB(3.9,119,2,623,0)="""RTN"",""PSUDEM4"",141,0)"
^XMB(3.9,119,2,624,0)=" ;"
^XMB(3.9,119,2,625,0)="""RTN"",""PSUDEM4"",142,0)"
^XMB(3.9,119,2,626,0)=" I PSUSP="""" S $P(^XTMP(""PSU_""_PSUJOB,""PSUPROV"",PSUIEN),U,7)="""""
^XMB(3.9,119,2,627,0)="""RTN"",""PSUDEM4"",143,0)"
^XMB(3.9,119,2,628,0)=" I PSUSP="""" S $P(^XTMP(""PSU_""_PSUJOB,""PSUPROV"",PSUIEN),U,8)="""""
^XMB(3.9,119,2,629,0)="""RTN"",""PSUDEM4"",144,0)"
^XMB(3.9,119,2,630,0)=" I PSUSP'="""" D"
^XMB(3.9,119,2,631,0)="""RTN"",""PSUDEM4"",145,0)"
^XMB(3.9,119,2,632,0)=" .S PSUREC=$P($G(^USC(8932.1,PSUSP,0)),U,2) D REC^PSUDEM2"
^XMB(3.9,119,2,633,0)="""RTN"",""PSUDEM4"",146,0)"
^XMB(3.9,119,2,634,0)=" .S $P(^XTMP(""PSU_""_PSUJOB,""PSUPROV"",PSUIEN),U,7)=PSUREC D     ;Speclty"
^XMB(3.9,119,2,635,0)="""RTN"",""PSUDEM4"",147,0)"
^XMB(3.9,119,2,636,0)=" ..I $P(^USC(8932.1,PSUSP,0),U,2)="""" S $P(^XTMP(""PSU_""_PSUJOB,""PSUPROV"",PSUIEN),U,7)="""""
^XMB(3.9,119,2,637,0)="""RTN"",""PSUDEM4"",148,0)"
^XMB(3.9,119,2,638,0)=" .S PSUREC=$P($G(^USC(8932.1,PSUSP,0)),U,3) D REC^PSUDEM2"
^XMB(3.9,119,2,639,0)="""RTN"",""PSUDEM4"",149,0)"
^XMB(3.9,119,2,640,0)=" .S $P(^XTMP(""PSU_""_PSUJOB,""PSUPROV"",PSUIEN),U,8)=PSUREC D      ;Subspecl"
^XMB(3.9,119,2,641,0)="""RTN"",""PSUDEM4"",150,0)"
^XMB(3.9,119,2,642,0)=" ..I $P(^USC(8932.1,PSUSP,0),U,3)="""" S $P(^XTMP(""PSU_""_PSUJOB,""PSUPROV"",PSUIEN),U,8)="""""
^XMB(3.9,119,2,643,0)="""RTN"",""PSUDEM4"",151,0)"
^XMB(3.9,119,2,644,0)=" ;"
^XMB(3.9,119,2,645,0)="""RTN"",""PSUDEM4"",152,0)"
^XMB(3.9,119,2,646,0)=" Q"
^XMB(3.9,119,2,647,0)="""RTN"",""PSUDEM4"",153,0)"
^XMB(3.9,119,2,648,0)=" ;"
^XMB(3.9,119,2,649,0)="""RTN"",""PSUDEM4"",154,0)"
^XMB(3.9,119,2,650,0)="XMD ;Format mailman message and send."
^XMB(3.9,119,2,651,0)="""RTN"",""PSUDEM4"",155,0)"
^XMB(3.9,119,2,652,0)=" ;"
^XMB(3.9,119,2,653,0)="""RTN"",""PSUDEM4"",156,0)"
^XMB(3.9,119,2,654,0)=" S PSUAA=0"
^XMB(3.9,119,2,655,0)="""RTN"",""PSUDEM4"",157,0)"
^XMB(3.9,119,2,656,0)=" F  S PSUAA=$O(^XTMP(""PSU_""_PSUJOB,""PSUPROM"",PSUAA)) Q:PSUAA=""""  D"
^XMB(3.9,119,2,657,0)="""RTN"",""PSUDEM4"",158,0)"
^XMB(3.9,119,2,658,0)=" .S $P(^XTMP(""PSU_""_PSUJOB,""PSUPROM"",PSUAA),U,9)=""""      ;Remove provider name"
^XMB(3.9,119,2,659,0)="""RTN"",""PSUDEM4"",159,0)"
^XMB(3.9,119,2,660,0)=" ;"
^XMB(3.9,119,2,661,0)="""RTN"",""PSUDEM4"",160,0)"
^XMB(3.9,119,2,662,0)=" ;Remove space in piece 8"
^XMB(3.9,119,2,663,0)="""RTN"",""PSUDEM4"",161,0)"
^XMB(3.9,119,2,664,0)=" S PSUAB=0"
^XMB(3.9,119,2,665,0)="""RTN"",""PSUDEM4"",162,0)"
^XMB(3.9,119,2,666,0)=" F  S PSUAB=$O(^XTMP(""PSU_""_PSUJOB,""PSUPROM"",PSUAB)) Q:PSUAB=""""  D"
^XMB(3.9,119,2,667,0)="""RTN"",""PSUDEM4"",163,0)"
^XMB(3.9,119,2,668,0)=" .I $P(^XTMP(""PSU_""_PSUJOB,""PSUPROM"",PSUAB),U,8)="" "" D"
^XMB(3.9,119,2,669,0)="""RTN"",""PSUDEM4"",164,0)"
^XMB(3.9,119,2,670,0)=" ..S $P(^XTMP(""PSU_""_PSUJOB,""PSUPROM"",PSUAB),U,8)="""""
^XMB(3.9,119,2,671,0)="""RTN"",""PSUDEM4"",165,0)"
^XMB(3.9,119,2,672,0)=" ;"
^XMB(3.9,119,2,673,0)="""RTN"",""PSUDEM4"",166,0)"
^XMB(3.9,119,2,674,0)=" S PSUAC=0,PSUPL=1"
^XMB(3.9,119,2,675,0)="""RTN"",""PSUDEM4"",167,0)"
^XMB(3.9,119,2,676,0)=" F  S PSUAC=$O(^XTMP(""PSU_""_PSUJOB,""PSUPROM"",PSUAC)) Q:PSUAC=""""  D"
^XMB(3.9,119,2,677,0)="""RTN"",""PSUDEM4"",168,0)"
^XMB(3.9,119,2,678,0)=" .M ^TMP(""PSUPROM"",$J,PSUPL)=^XTMP(""PSU_""_PSUJOB,""PSUPROM"",PSUAC)  ;numerical order"
^XMB(3.9,119,2,679,0)="""RTN"",""PSUDEM4"",169,0)"
^XMB(3.9,119,2,680,0)=" .S PSUPL=PSUPL+1"
^XMB(3.9,119,2,681,0)="""RTN"",""PSUDEM4"",170,0)"
^XMB(3.9,119,2,682,0)=" ;"
^XMB(3.9,119,2,683,0)="""RTN"",""PSUDEM4"",171,0)"
^XMB(3.9,119,2,684,0)=" NEW PSUMAX,PSULC,PSUTMC,PSUTLC,PSUMC"
^XMB(3.9,119,2,685,0)="""RTN"",""PSUDEM4"",172,0)"
^XMB(3.9,119,2,686,0)=" S PSUMAX=$$VAL^PSUTL(4.3,1,8.3)"
^XMB(3.9,119,2,687,0)="""RTN"",""PSUDEM4"",173,0)"
^XMB(3.9,119,2,688,0)=" S PSUMAX=$S(PSUMAX="""":10000,PSUMAX>10000:10000,1:PSUMAX)"
^XMB(3.9,119,2,689,0)="""RTN"",""PSUDEM4"",174,0)"
^XMB(3.9,119,2,690,0)=" S PSUMC=1,PSUMLC=0"
^XMB(3.9,119,2,691,0)="""RTN"",""PSUDEM4"",175,0)"
^XMB(3.9,119,2,692,0)=" F PSULC=1:1 S X=$G(^TMP(""PSUPROM"",$J,PSULC)) Q:X=""""  D"
^XMB(3.9,119,2,693,0)="""RTN"",""PSUDEM4"",176,0)"
^XMB(3.9,119,2,694,0)=" .S PSUMLC=PSUMLC+1"
^XMB(3.9,119,2,695,0)="""RTN"",""PSUDEM4"",177,0)"
^XMB(3.9,119,2,696,0)=" .I PSUMLC>PSUMAX S PSUMC=PSUMC+1,PSUMLC=0,PSULC=PSULC-1 Q  ; +  message"
^XMB(3.9,119,2,697,0)="""RTN"",""PSUDEM4"",178,0)"
^XMB(3.9,119,2,698,0)=" .I $L(X)<235 S ^XTMP(""PSU_""_PSUJOB,""PSUXMD"",PSUMC,PSUMLC)=X Q"
^XMB(3.9,119,2,699,0)="""RTN"",""PSUDEM4"",179,0)"
^XMB(3.9,119,2,700,0)=" .F I=235:-1:1 S Z=$E(X,I) Q:Z=""^"""
^XMB(3.9,119,2,701,0)="""RTN"",""PSUDEM4"",180,0)"
^XMB(3.9,119,2,702,0)=" .S ^XTMP(""PSU_""_PSUJOB,""PSUXMD"",PSUMC,PSUMLC)=$E(X,1,I)"
^XMB(3.9,119,2,703,0)="""RTN"",""PSUDEM4"",181,0)"
^XMB(3.9,119,2,704,0)=" .S PSUMLC=PSUMLC+1"
^XMB(3.9,119,2,705,0)="""RTN"",""PSUDEM4"",182,0)"
^XMB(3.9,119,2,706,0)=" .S ^XTMP(""PSU_""_PSUJOB,""PSUXMD"",PSUMC,PSUMLC)=""*""_$E(X,I+1,999)"
^XMB(3.9,119,2,707,0)="""RTN"",""PSUDEM4"",183,0)"
^XMB(3.9,119,2,708,0)=" ;"
^XMB(3.9,119,2,709,0)="""RTN"",""PSUDEM4"",184,0)"
^XMB(3.9,119,2,710,0)=" F PSUM=1:1:PSUMC D PROV^PSUDEM5"
^XMB(3.9,119,2,711,0)="""RTN"",""PSUDEM4"",185,0)"
^XMB(3.9,119,2,712,0)=" D CONF"
^XMB(3.9,119,2,713,0)="""RTN"",""PSUDEM4"",186,0)"
^XMB(3.9,119,2,714,0)=" Q"
^XMB(3.9,119,2,715,0)="""RTN"",""PSUDEM4"",187,0)"
^XMB(3.9,119,2,716,0)="CONF ;Construct globals for confirmation message"
^XMB(3.9,119,2,717,0)="""RTN"",""PSUDEM4"",188,0)"
^XMB(3.9,119,2,718,0)=" ;"
^XMB(3.9,119,2,719,0)="""RTN"",""PSUDEM4"",189,0)"
^XMB(3.9,119,2,720,0)=" ;   Count Lines sent"
^XMB(3.9,119,2,721,0)="""RTN"",""PSUDEM4"",190,0)"
^XMB(3.9,119,2,722,0)=" S PSUTLC=0"
^XMB(3.9,119,2,723,0)="""RTN"",""PSUDEM4"",191,0)"
^XMB(3.9,119,2,724,0)=" F PSUM=1:1:PSUMC S X=$O(^XTMP(""PSU_""_PSUJOB,""PSUXMD"",PSUM,""""),-1),PSUTLC=PSUTLC+X"
^XMB(3.9,119,2,725,0)="""RTN"",""PSUDEM4"",192,0)"
^XMB(3.9,119,2,726,0)=" ;"
^XMB(3.9,119,2,727,0)="""RTN"",""PSUDEM4"",193,0)"
^XMB(3.9,119,2,728,0)=" D INST^PSUDEM1"
^XMB(3.9,119,2,729,0)="""RTN"",""PSUDEM4"",194,0)"
^XMB(3.9,119,2,730,0)=" N PSUDIVIS"
^XMB(3.9,119,2,731,0)="""RTN"",""PSUDEM4"",195,0)"
^XMB(3.9,119,2,732,0)=" S PSUDIVIS=$P(^XTMP(""PSU_""_PSUJOB,""PSUSITE""),U,1)"
^XMB(3.9,119,2,733,0)="""RTN"",""PSUDEM4"",196,0)"
^XMB(3.9,119,2,734,0)=" S PSUSUB=""PSU_""_PSUJOB"
^XMB(3.9,119,2,735,0)="""RTN"",""PSUDEM4"",197,0)"
^XMB(3.9,119,2,736,0)=" S ^XTMP(PSUSUB,""CONFIRM"",PSUDIVIS,10,""M"")=PSUMC"
^XMB(3.9,119,2,737,0)="""RTN"",""PSUDEM4"",198,0)"
^XMB(3.9,119,2,738,0)=" S ^XTMP(PSUSUB,""CONFIRM"",PSUDIVIS,10,""L"")=PSUTLC"
^XMB(3.9,119,2,739,0)="""RTN"",""PSUDEM4"",199,0)"
^XMB(3.9,119,2,740,0)=" Q"
^XMB(3.9,119,2,741,0)="""RTN"",""PSUIV0"")"
^XMB(3.9,119,2,742,0)="1^14^^B3510230"
^XMB(3.9,119,2,743,0)="""RTN"",""PSUIV1"")"
^XMB(3.9,119,2,744,0)="1^15^^B73473589"
^XMB(3.9,119,2,745,0)="""RTN"",""PSUIV2"")"
^XMB(3.9,119,2,746,0)="1^16^^B35293917"
^XMB(3.9,119,2,747,0)="""RTN"",""PSUIV3"")"
^XMB(3.9,119,2,748,0)="1^17^^B8277556"
^XMB(3.9,119,2,749,0)="""RTN"",""PSUIV4"")"
^XMB(3.9,119,2,750,0)="1^18^^B16302860"
^XMB(3.9,119,2,751,0)="""RTN"",""PSUIV5"")"
^XMB(3.9,119,2,752,0)="1^19^^B8577319"
^XMB(3.9,119,2,753,0)="""RTN"",""PSUOP2"")"
^XMB(3.9,119,2,754,0)="0^2^B45028652^B42752697"
^XMB(3.9,119,2,755,0)="""RTN"",""PSUOP2"",1,0)"
^XMB(3.9,119,2,756,0)="PSUOP2 ;BIR/CFL - PSU PBM Outpatient Pharmacy Data Collection for Version 7.0 ; 7/11/06 4:21pm"
^XMB(3.9,119,2,757,0)="""RTN"",""PSUOP2"",2,0)"
^XMB(3.9,119,2,758,0)=" ;;4.0;PHARMACY BENEFITS MANAGEMENT;**6,8**;MARCH, 2005"
^XMB(3.9,119,2,759,0)="""RTN"",""PSUOP2"",3,0)"
^XMB(3.9,119,2,760,0)=" ;"
^XMB(3.9,119,2,761,0)="""RTN"",""PSUOP2"",4,0)"
^XMB(3.9,119,2,762,0)=" ;DBIAs"
^XMB(3.9,119,2,763,0)="""RTN"",""PSUOP2"",5,0)"
^XMB(3.9,119,2,764,0)=" ; Reference to ^PSRX( file # 52 supported by DBIAs 465, 2512"
^XMB(3.9,119,2,765,0)="""RTN"",""PSUOP2"",6,0)"
^XMB(3.9,119,2,766,0)=" ; Reference to EN^PSOORDER      supported by DBIA 1878"
^XMB(3.9,119,2,767,0)="""RTN"",""PSUOP2"",7,0)"
^XMB(3.9,119,2,768,0)=" ; "
^XMB(3.9,119,2,769,0)="""RTN"",""PSUOP2"",8,0)"
^XMB(3.9,119,2,770,0)=" ;"
^XMB(3.9,119,2,771,0)="""RTN"",""PSUOP2"",9,0)"
^XMB(3.9,119,2,772,0)="EN ;Entry to data collection"
^XMB(3.9,119,2,773,0)="""RTN"",""PSUOP2"",10,0)"
^XMB(3.9,119,2,774,0)=" D ALLOOP,AMLOOP"
^XMB(3.9,119,2,775,0)="""RTN"",""PSUOP2"",11,0)"
^XMB(3.9,119,2,776,0)=" K ^TMP(""PSOR"",$J)"
^XMB(3.9,119,2,777,0)="""RTN"",""PSUOP2"",12,0)"
^XMB(3.9,119,2,778,0)=" Q"
^XMB(3.9,119,2,779,0)="""RTN"",""PSUOP2"",13,0)"
^XMB(3.9,119,2,780,0)="ALLOOP ;Loop through the AL cross refererence"
^XMB(3.9,119,2,781,0)="""RTN"",""PSUOP2"",14,0)"
^XMB(3.9,119,2,782,0)=" N PSUDOC1,PSUCAN,PSUCL,PSUCMP,PSUFP,PSUORDT,PSUCO"
^XMB(3.9,119,2,783,0)="""RTN"",""PSUOP2"",15,0)"
^XMB(3.9,119,2,784,0)=" S PSUFDT=PSUSDT,PSUEDTM=PSUEDT_"".24"""
^XMB(3.9,119,2,785,0)="""RTN"",""PSUOP2"",16,0)"
^XMB(3.9,119,2,786,0)=" F  S PSUFDT=$O(^PSRX(""AL"",PSUFDT)) Q:PSUFDT=""""!(PSUFDT>PSUEDTM)  D"
^XMB(3.9,119,2,787,0)="""RTN"",""PSUOP2"",17,0)"
^XMB(3.9,119,2,788,0)=" .S PSURXIEN="""""
^XMB(3.9,119,2,789,0)="""RTN"",""PSUOP2"",18,0)"
^XMB(3.9,119,2,790,0)=" .F  S PSURXIEN=$O(^PSRX(""AL"",PSUFDT,PSURXIEN)) Q:PSURXIEN=""""  D"
^XMB(3.9,119,2,791,0)="""RTN"",""PSUOP2"",19,0)"
^XMB(3.9,119,2,792,0)=" ..Q:$D(^XTMP(PSUOPSUB,""RXIEN"",PSURXIEN))  ; already been processed"
^XMB(3.9,119,2,793,0)="""RTN"",""PSUOP2"",20,0)"
^XMB(3.9,119,2,794,0)=" ..Q:'$D(^PSRX(PSURXIEN,0))  ; watch out for dangling pointers"
^XMB(3.9,119,2,795,0)="""RTN"",""PSUOP2"",21,0)"
^XMB(3.9,119,2,796,0)=" ..S PSUCAN=$$GET1^DIQ(52,PSURXIEN,26.1,""I"")   ;Cancel date"
^XMB(3.9,119,2,797,0)="""RTN"",""PSUOP2"",22,0)"
^XMB(3.9,119,2,798,0)=" ..D GETS^PSUTL(52,PSURXIEN,""2;21;27"",""PSUOP"",""I"")"
^XMB(3.9,119,2,799,0)="""RTN"",""PSUOP2"",23,0)"
^XMB(3.9,119,2,800,0)=" ..D MOVEI^PSUTL(""PSUOP"")"
^XMB(3.9,119,2,801,0)="""RTN"",""PSUOP2"",24,0)"
^XMB(3.9,119,2,802,0)=" ..S DFN=PSUOP(2)"
^XMB(3.9,119,2,803,0)="""RTN"",""PSUOP2"",25,0)"
^XMB(3.9,119,2,804,0)=" ..;"
^XMB(3.9,119,2,805,0)="""RTN"",""PSUOP2"",26,0)"
^XMB(3.9,119,2,806,0)=" ..Q:$$TESTPAT^PSUTL1(DFN)"
^XMB(3.9,119,2,807,0)="""RTN"",""PSUOP2"",27,0)"
^XMB(3.9,119,2,808,0)=" ..D PID^VADPT"
^XMB(3.9,119,2,809,0)="""RTN"",""PSUOP2"",28,0)"
^XMB(3.9,119,2,810,0)=" ..S PSUSSN=$TR(VA(""PID""),""^-"","""")"
^XMB(3.9,119,2,811,0)="""RTN"",""PSUOP2"",29,0)"
^XMB(3.9,119,2,812,0)=" ..N PSUPSO S PSUPSO=1   ;flag to avoid a PSO error when SIG is too long"
^XMB(3.9,119,2,813,0)="""RTN"",""PSUOP2"",30,0)"
^XMB(3.9,119,2,814,0)=" ..D EN^PSOORDER(DFN,PSURXIEN)"
^XMB(3.9,119,2,815,0)="""RTN"",""PSUOP2"",31,0)"
^XMB(3.9,119,2,816,0)=" ..Q:'$D(^TMP(""PSOR"",$J))"
^XMB(3.9,119,2,817,0)="""RTN"",""PSUOP2"",32,0)"
^XMB(3.9,119,2,818,0)=" ..D EN^PSUOPAM      ;Gather AMIS data"
^XMB(3.9,119,2,819,0)="""RTN"",""PSUOP2"",33,0)"
^XMB(3.9,119,2,820,0)=" ..D CMOPA ; set array of CMOP recs"
^XMB(3.9,119,2,821,0)="""RTN"",""PSUOP2"",34,0)"
^XMB(3.9,119,2,822,0)=" ..D NEW ; check ^TMP to see if New Rx is in time frame, if so create record."
^XMB(3.9,119,2,823,0)="""RTN"",""PSUOP2"",35,0)"
^XMB(3.9,119,2,824,0)=" ..D REF ; check ^TMP to see if refills are in time frame, if so create records"
^XMB(3.9,119,2,825,0)="""RTN"",""PSUOP2"",36,0)"
^XMB(3.9,119,2,826,0)=" ..D PAR ; check ^TMP to see if partials are in time frame, if so create records"
^XMB(3.9,119,2,827,0)="""RTN"",""PSUOP2"",37,0)"
^XMB(3.9,119,2,828,0)=" Q"
^XMB(3.9,119,2,829,0)="""RTN"",""PSUOP2"",38,0)"
^XMB(3.9,119,2,830,0)=" ;"
^XMB(3.9,119,2,831,0)="""RTN"",""PSUOP2"",39,0)"
^XMB(3.9,119,2,832,0)="AMLOOP ; loop through ""AM"", partials, cross reference to see if any were missed"
^XMB(3.9,119,2,833,0)="""RTN"",""PSUOP2"",40,0)"
^XMB(3.9,119,2,834,0)=" S X1=PSUSDT,X2=-1"
^XMB(3.9,119,2,835,0)="""RTN"",""PSUOP2"",41,0)"
^XMB(3.9,119,2,836,0)=" D C^%DTC K %,%H,%T"
^XMB(3.9,119,2,837,0)="""RTN"",""PSUOP2"",42,0)"
^XMB(3.9,119,2,838,0)=" S PSUFDT=PSUSDT,PSUEDTM=PSUEDT_"".24"""
^XMB(3.9,119,2,839,0)="""RTN"",""PSUOP2"",43,0)"
^XMB(3.9,119,2,840,0)=" F  S PSUFDT=$O(^PSRX(""AM"",PSUFDT)) Q:PSUFDT=""""!(PSUFDT>PSUEDTM)  D"
^XMB(3.9,119,2,841,0)="""RTN"",""PSUOP2"",44,0)"
^XMB(3.9,119,2,842,0)=" .S PSURXIEN="""""
^XMB(3.9,119,2,843,0)="""RTN"",""PSUOP2"",45,0)"
^XMB(3.9,119,2,844,0)=" .F  S PSURXIEN=$O(^PSRX(""AM"",PSUFDT,PSURXIEN)) Q:PSURXIEN=""""  D"
^XMB(3.9,119,2,845,0)="""RTN"",""PSUOP2"",46,0)"
^XMB(3.9,119,2,846,0)=" ..Q:$D(^XTMP(PSUOPSUB,""RXIEN"",PSURXIEN))  ; already been processed"
^XMB(3.9,119,2,847,0)="""RTN"",""PSUOP2"",47,0)"
^XMB(3.9,119,2,848,0)=" ..Q:'$D(^PSRX(PSURXIEN,0))  ; watch out for dangling pointers"
^XMB(3.9,119,2,849,0)="""RTN"",""PSUOP2"",48,0)"
^XMB(3.9,119,2,850,0)=" ..D GETS^PSUTL(52,PSURXIEN,""2;27"",""PSUOP"",""I"")"
^XMB(3.9,119,2,851,0)="""RTN"",""PSUOP2"",49,0)"
^XMB(3.9,119,2,852,0)=" ..D MOVEI^PSUTL(""PSUOP"")"
^XMB(3.9,119,2,853,0)="""RTN"",""PSUOP2"",50,0)"
^XMB(3.9,119,2,854,0)=" ..S DFN=PSUOP(2)"
^XMB(3.9,119,2,855,0)="""RTN"",""PSUOP2"",51,0)"
^XMB(3.9,119,2,856,0)=" ..; SCREEN OUT TEST PATIENTS"
^XMB(3.9,119,2,857,0)="""RTN"",""PSUOP2"",52,0)"
^XMB(3.9,119,2,858,0)=" ..Q:$$TESTPAT^PSUTL1(DFN)"
^XMB(3.9,119,2,859,0)="""RTN"",""PSUOP2"",53,0)"
^XMB(3.9,119,2,860,0)=" ..D PID^VADPT"
^XMB(3.9,119,2,861,0)="""RTN"",""PSUOP2"",54,0)"
^XMB(3.9,119,2,862,0)=" ..S PSUSSN=$TR(VA(""PID""),""^-"","""")"
^XMB(3.9,119,2,863,0)="""RTN"",""PSUOP2"",55,0)"
^XMB(3.9,119,2,864,0)=" ..D EN^PSOORDER(DFN,PSURXIEN)"
^XMB(3.9,119,2,865,0)="""RTN"",""PSUOP2"",56,0)"
^XMB(3.9,119,2,866,0)=" ..D EN^PSUOPAM      ;Gather AMIS data   PSU*4*5 fix"
^XMB(3.9,119,2,867,0)="""RTN"",""PSUOP2"",57,0)"
^XMB(3.9,119,2,868,0)=" ..D PAR ; check ^TMP to see if partials are in time frame, if so create records"
^XMB(3.9,119,2,869,0)="""RTN"",""PSUOP2"",58,0)"
^XMB(3.9,119,2,870,0)=" Q"
^XMB(3.9,119,2,871,0)="""RTN"",""PSUOP2"",59,0)"
^XMB(3.9,119,2,872,0)=" ;"
^XMB(3.9,119,2,873,0)="""RTN"",""PSUOP2"",60,0)"
^XMB(3.9,119,2,874,0)="NEW ; New Rx"
^XMB(3.9,119,2,875,0)="""RTN"",""PSUOP2"",61,0)"
^XMB(3.9,119,2,876,0)=" S PSUFD=$P(^TMP(""PSOR"",$J,PSURXIEN,0),U,2)"
^XMB(3.9,119,2,877,0)="""RTN"",""PSUOP2"",62,0)"
^XMB(3.9,119,2,878,0)=" D COMVAR"
^XMB(3.9,119,2,879,0)="""RTN"",""PSUOP2"",63,0)"
^XMB(3.9,119,2,880,0)=" S PSUTYP=""N"""
^XMB(3.9,119,2,881,0)="""RTN"",""PSUOP2"",64,0)"
^XMB(3.9,119,2,882,0)=" S PSUCMOP=$S($D(PSUCMA(0)):""Y"",1:""N"")"
^XMB(3.9,119,2,883,0)="""RTN"",""PSUOP2"",65,0)"
^XMB(3.9,119,2,884,0)=" S PSUR0=^TMP(""PSOR"",$J,PSURXIEN,0)"
^XMB(3.9,119,2,885,0)="""RTN"",""PSUOP2"",66,0)"
^XMB(3.9,119,2,886,0)=" S PSUORDT=$P(PSUR0,U,17)     ;AMIS Original Login Date"
^XMB(3.9,119,2,887,0)="""RTN"",""PSUOP2"",67,0)"
^XMB(3.9,119,2,888,0)=" S PSUQTY=+$P(PSUR0,U,6)"
^XMB(3.9,119,2,889,0)="""RTN"",""PSUOP2"",68,0)"
^XMB(3.9,119,2,890,0)=" ;"
^XMB(3.9,119,2,891,0)="""RTN"",""PSUOP2"",69,0)"
^XMB(3.9,119,2,892,0)=" ;"
^XMB(3.9,119,2,893,0)="""RTN"",""PSUOP2"",70,0)"
^XMB(3.9,119,2,894,0)=" S PSUDS=$P(PSUR0,U,7)"
^XMB(3.9,119,2,895,0)="""RTN"",""PSUOP2"",71,0)"
^XMB(3.9,119,2,896,0)=" S PSUDRCT=$P(PSUR0,U,10)"
^XMB(3.9,119,2,897,0)="""RTN"",""PSUOP2"",72,0)"
^XMB(3.9,119,2,898,0)=" S PSURELDT=$P($P(PSUR0,U,13),""."",1)"
^XMB(3.9,119,2,899,0)="""RTN"",""PSUOP2"",73,0)"
^XMB(3.9,119,2,900,0)=" Q:((PSURELDT<PSUSDT)!(PSURELDT>PSUEDTM))"
^XMB(3.9,119,2,901,0)="""RTN"",""PSUOP2"",74,0)"
^XMB(3.9,119,2,902,0)=" S PSUWPC=$E($P(PSUR0,U,15))"
^XMB(3.9,119,2,903,0)="""RTN"",""PSUOP2"",75,0)"
^XMB(3.9,119,2,904,0)="NEWX1 ;I PSUCMOP=""Y"" Q:((PSURELDT="""")!(PSURELDT<PSUSDT)!(PSURELDT>PSUEDTM))"
^XMB(3.9,119,2,905,0)="""RTN"",""PSUOP2"",76,0)"
^XMB(3.9,119,2,906,0)="NEWX2 ;I PSUCMOP=""N"",((PSUFD<PSUSDT)!(PSUFD\1>PSUEDT)) Q"
^XMB(3.9,119,2,907,0)="""RTN"",""PSUOP2"",77,0)"
^XMB(3.9,119,2,908,0)=" S PSUR1=^TMP(""PSOR"",$J,PSURXIEN,1)"
^XMB(3.9,119,2,909,0)="""RTN"",""PSUOP2"",78,0)"
^XMB(3.9,119,2,910,0)=" S PSUCLN=$P($P(PSUR1,U,4),"";"",2)          ;AMIS data clinic"
^XMB(3.9,119,2,911,0)="""RTN"",""PSUOP2"",79,0)"
^XMB(3.9,119,2,912,0)=" S PSUFP=$P($P(PSUR1,U,9),"";"",1)           ;AMIS finishing person"
^XMB(3.9,119,2,913,0)="""RTN"",""PSUOP2"",80,0)"
^XMB(3.9,119,2,914,0)=" S PSUPRID=$P($P(PSUR1,U,1),"";"",1)"
^XMB(3.9,119,2,915,0)="""RTN"",""PSUOP2"",81,0)"
^XMB(3.9,119,2,916,0)=" S PSURXP=$P($P(PSUR1,U,5),"";"",1)"
^XMB(3.9,119,2,917,0)="""RTN"",""PSUOP2"",82,0)"
^XMB(3.9,119,2,918,0)=" S PSUMW=$P($P(PSUR1,U,6),"";"",1)"
^XMB(3.9,119,2,919,0)="""RTN"",""PSUOP2"",83,0)"
^XMB(3.9,119,2,920,0)=" S PSUDIVP=$P(PSUR1,U,7)"
^XMB(3.9,119,2,921,0)="""RTN"",""PSUOP2"",84,0)"
^XMB(3.9,119,2,922,0)=" ;"
^XMB(3.9,119,2,923,0)="""RTN"",""PSUOP2"",85,0)"
^XMB(3.9,119,2,924,0)=" S PSUNDC="""""
^XMB(3.9,119,2,925,0)="""RTN"",""PSUOP2"",86,0)"
^XMB(3.9,119,2,926,0)=" I PSUCMOP=""Y"" S PSUNDC=PSUCMA(0)"
^XMB(3.9,119,2,927,0)="""RTN"",""PSUOP2"",87,0)"
^XMB(3.9,119,2,928,0)=" I PSUNDC="""" S PSUNDC=$S($L(PSUOP(27)):PSUOP(27),$L(PSUDRUG(31)):PSUDRUG(31),1:""No NDC"")"
^XMB(3.9,119,2,929,0)="""RTN"",""PSUOP2"",88,0)"
^XMB(3.9,119,2,930,0)=" D PROVDR^PSUOP3"
^XMB(3.9,119,2,931,0)="""RTN"",""PSUOP2"",89,0)"
^XMB(3.9,119,2,932,0)=" D SETREC^PSUOP3"
^XMB(3.9,119,2,933,0)="""RTN"",""PSUOP2"",90,0)"
^XMB(3.9,119,2,934,0)="NEWQ Q"
^XMB(3.9,119,2,935,0)="""RTN"",""PSUOP2"",91,0)"
^XMB(3.9,119,2,936,0)=" ;"
^XMB(3.9,119,2,937,0)="""RTN"",""PSUOP2"",92,0)"
^XMB(3.9,119,2,938,0)="REF ; Refills"
^XMB(3.9,119,2,939,0)="""RTN"",""PSUOP2"",93,0)"
^XMB(3.9,119,2,940,0)=" Q:'$D(^TMP(""PSOR"",$J,PSURXIEN,""REF""))"
^XMB(3.9,119,2,941,0)="""RTN"",""PSUOP2"",94,0)"
^XMB(3.9,119,2,942,0)=" D COMVAR"
^XMB(3.9,119,2,943,0)="""RTN"",""PSUOP2"",95,0)"
^XMB(3.9,119,2,944,0)=" S PSUFLN="""""
^XMB(3.9,119,2,945,0)="""RTN"",""PSUOP2"",96,0)"
^XMB(3.9,119,2,946,0)=" F  S PSUFLN=$O(^TMP(""PSOR"",$J,PSURXIEN,""REF"",PSUFLN)) Q:PSUFLN=""""  D"
^XMB(3.9,119,2,947,0)="""RTN"",""PSUOP2"",97,0)"
^XMB(3.9,119,2,948,0)=" .S PSUTYP=""R"""
^XMB(3.9,119,2,949,0)="""RTN"",""PSUOP2"",98,0)"
^XMB(3.9,119,2,950,0)=" .S PSUCMOP=$S($D(PSUCMA(PSUFLN)):""Y"",1:""N"")"
^XMB(3.9,119,2,951,0)="""RTN"",""PSUOP2"",99,0)"
^XMB(3.9,119,2,952,0)=" .S PSUR0=^TMP(""PSOR"",$J,PSURXIEN,""REF"",PSUFLN,0)"
^XMB(3.9,119,2,953,0)="""RTN"",""PSUOP2"",100,0)"
^XMB(3.9,119,2,954,0)=" .N PSUCLN,PSUR1"
^XMB(3.9,119,2,955,0)="""RTN"",""PSUOP2"",101,0)"
^XMB(3.9,119,2,956,0)=" .S PSUR1=^TMP(""PSOR"",$J,PSURXIEN,1)"
^XMB(3.9,119,2,957,0)="""RTN"",""PSUOP2"",102,0)"
^XMB(3.9,119,2,958,0)=" .S PSUCLN=$P($P(PSUR1,U,4),"";"",2)"
^XMB(3.9,119,2,959,0)="""RTN"",""PSUOP2"",103,0)"
^XMB(3.9,119,2,960,0)=" .S PSUWPC=""N"""
^XMB(3.9,119,2,961,0)="""RTN"",""PSUOP2"",104,0)"
^XMB(3.9,119,2,962,0)=" .S PSUFD=$P(PSUR0,U,1)"
^XMB(3.9,119,2,963,0)="""RTN"",""PSUOP2"",105,0)"
^XMB(3.9,119,2,964,0)=" .S PSUPRID=$P($P(PSUR0,U,2),"";"",1)"
^XMB(3.9,119,2,965,0)="""RTN"",""PSUOP2"",106,0)"
^XMB(3.9,119,2,966,0)=" .S PSUQTY=+$P(PSUR0,U,4)"
^XMB(3.9,119,2,967,0)="""RTN"",""PSUOP2"",107,0)"
^XMB(3.9,119,2,968,0)=" .S PSUDS=$P(PSUR0,U,5)"
^XMB(3.9,119,2,969,0)="""RTN"",""PSUOP2"",108,0)"
^XMB(3.9,119,2,970,0)=" .S PSUDRCT=$P(PSUR0,U,6)"
^XMB(3.9,119,2,971,0)="""RTN"",""PSUOP2"",109,0)"
^XMB(3.9,119,2,972,0)=" .S PSURELDT=$P(PSUR0,U,8)"
^XMB(3.9,119,2,973,0)="""RTN"",""PSUOP2"",110,0)"
^XMB(3.9,119,2,974,0)=" .Q:((PSURELDT<PSUSDT)!(PSURELDT>PSUEDTM))"
^XMB(3.9,119,2,975,0)="""RTN"",""PSUOP2"",111,0)"
^XMB(3.9,119,2,976,0)=" .S PSUMW=$P($P(PSUR0,U,10),"";"",1)"
^XMB(3.9,119,2,977,0)="""RTN"",""PSUOP2"",112,0)"
^XMB(3.9,119,2,978,0)=" .S PSUDIVP=$P(PSUR0,U,11)"
^XMB(3.9,119,2,979,0)="""RTN"",""PSUOP2"",113,0)"
^XMB(3.9,119,2,980,0)=" .S PSUREDT=$P(PSUR0,U,12)     ;AMIS Refill Login Date"
^XMB(3.9,119,2,981,0)="""RTN"",""PSUOP2"",114,0)"
^XMB(3.9,119,2,982,0)=" .I PSURELDT'="""" S PSURELDT=PSURELDT\1"
^XMB(3.9,119,2,983,0)="""RTN"",""PSUOP2"",115,0)"
^XMB(3.9,119,2,984,0)=" .;I PSUCMOP=""Y"" Q:((PSURELDT="""")!(PSURELDT<PSUSDT)!(PSURELDT>PSUEDTM))"
^XMB(3.9,119,2,985,0)="""RTN"",""PSUOP2"",116,0)"
^XMB(3.9,119,2,986,0)=" .;I PSUCMOP=""N"",((PSUFD<PSUSDT)!(PSUFD\1>PSUEDT)) Q"
^XMB(3.9,119,2,987,0)="""RTN"",""PSUOP2"",117,0)"
^XMB(3.9,119,2,988,0)=" .S PSUNDC="""""
^XMB(3.9,119,2,989,0)="""RTN"",""PSUOP2"",118,0)"
^XMB(3.9,119,2,990,0)=" .I PSUCMOP=""Y"" S PSUNDC=PSUCMA(PSUFLN)"
^XMB(3.9,119,2,991,0)="""RTN"",""PSUOP2"",119,0)"
^XMB(3.9,119,2,992,0)=" .I PSUNDC="""" S PSUNDC=$$VALI^PSUTL(52.1,PSURXIEN,11)"
^XMB(3.9,119,2,993,0)="""RTN"",""PSUOP2"",120,0)"
^XMB(3.9,119,2,994,0)=" .I PSUNDC="""" S PSUNDC=$S(PSUDRUG(31)'="""":PSUDRUG(31),1:""No NDC"")"
^XMB(3.9,119,2,995,0)="""RTN"",""PSUOP2"",121,0)"
^XMB(3.9,119,2,996,0)=" .;"
^XMB(3.9,119,2,997,0)="""RTN"",""PSUOP2"",122,0)"
^XMB(3.9,119,2,998,0)=" .D PROVDR^PSUOP3"
^XMB(3.9,119,2,999,0)="""RTN"",""PSUOP2"",123,0)"
^XMB(3.9,119,2,1000,0)=" .D SETREC^PSUOP3"
^XMB(3.9,119,2,1001,0)="""RTN"",""PSUOP2"",124,0)"
^XMB(3.9,119,2,1002,0)="REFQ Q"
^XMB(3.9,119,2,1003,0)="""RTN"",""PSUOP2"",125,0)"
^XMB(3.9,119,2,1004,0)=" ;"
^XMB(3.9,119,2,1005,0)="""RTN"",""PSUOP2"",126,0)"
^XMB(3.9,119,2,1006,0)="PAR ; Partials"
^XMB(3.9,119,2,1007,0)="""RTN"",""PSUOP2"",127,0)"
^XMB(3.9,119,2,1008,0)=" Q:'$D(^TMP(""PSOR"",$J,PSURXIEN,""RPAR""))"
^XMB(3.9,119,2,1009,0)="""RTN"",""PSUOP2"",128,0)"
^XMB(3.9,119,2,1010,0)=" D COMVAR"
^XMB(3.9,119,2,1011,0)="""RTN"",""PSUOP2"",129,0)"
^XMB(3.9,119,2,1012,0)=" S PSUFLN="""""
^XMB(3.9,119,2,1013,0)="""RTN"",""PSUOP2"",130,0)"
^XMB(3.9,119,2,1014,0)=" F  S PSUFLN=$O(^TMP(""PSOR"",$J,PSURXIEN,""RPAR"",PSUFLN)) Q:PSUFLN=""""  D"
^XMB(3.9,119,2,1015,0)="""RTN"",""PSUOP2"",131,0)"
^XMB(3.9,119,2,1016,0)=" .S PSUR0=^TMP(""PSOR"",$J,PSURXIEN,""RPAR"",PSUFLN,0)"
^XMB(3.9,119,2,1017,0)="""RTN"",""PSUOP2"",132,0)"
^XMB(3.9,119,2,1018,0)=" .N PSUCLN,PSUR1"
^XMB(3.9,119,2,1019,0)="""RTN"",""PSUOP2"",133,0)"
^XMB(3.9,119,2,1020,0)=" .S PSUR1=^TMP(""PSOR"",$J,PSURXIEN,1)"
^XMB(3.9,119,2,1021,0)="""RTN"",""PSUOP2"",134,0)"
^XMB(3.9,119,2,1022,0)=" .S PSUCLN=$P($P(PSUR1,U,4),"";"",2)"
^XMB(3.9,119,2,1023,0)="""RTN"",""PSUOP2"",135,0)"
^XMB(3.9,119,2,1024,0)=" .S PSUTYP=""P"""
^XMB(3.9,119,2,1025,0)="""RTN"",""PSUOP2"",136,0)"
^XMB(3.9,119,2,1026,0)=" .S PSUCMOP=""N"""
^XMB(3.9,119,2,1027,0)="""RTN"",""PSUOP2"",137,0)"
^XMB(3.9,119,2,1028,0)=" .S PSUWPC=""N"""
^XMB(3.9,119,2,1029,0)="""RTN"",""PSUOP2"",138,0)"
^XMB(3.9,119,2,1030,0)=" .S PSUFD=$P(PSUR0,U,1)"
^XMB(3.9,119,2,1031,0)="""RTN"",""PSUOP2"",139,0)"
^XMB(3.9,119,2,1032,0)=" .;I (PSUFD<PSUSDT)!(PSUFD\1>PSUEDT) Q"
^XMB(3.9,119,2,1033,0)="""RTN"",""PSUOP2"",140,0)"
^XMB(3.9,119,2,1034,0)=" .S PSUPRID=$P($P(PSUR0,U,2),"";"",1)"
^XMB(3.9,119,2,1035,0)="""RTN"",""PSUOP2"",141,0)"
^XMB(3.9,119,2,1036,0)=" .S PSUQTY=+$P(PSUR0,U,4)"
^XMB(3.9,119,2,1037,0)="""RTN"",""PSUOP2"",142,0)"
^XMB(3.9,119,2,1038,0)=" .S PSUDS=$P(PSUR0,U,5)"
^XMB(3.9,119,2,1039,0)="""RTN"",""PSUOP2"",143,0)"
^XMB(3.9,119,2,1040,0)=" .S PSUDRCT=$P(PSUR0,U,6)"
^XMB(3.9,119,2,1041,0)="""RTN"",""PSUOP2"",144,0)"
^XMB(3.9,119,2,1042,0)=" .S PSURELDT=$P(PSUR0,U,8)"
^XMB(3.9,119,2,1043,0)="""RTN"",""PSUOP2"",145,0)"
^XMB(3.9,119,2,1044,0)=" .S PSUMW=$P($P(PSUR0,U,10),"";"",1)"
^XMB(3.9,119,2,1045,0)="""RTN"",""PSUOP2"",146,0)"
^XMB(3.9,119,2,1046,0)=" .S PSUDIVP=$P(PSUR0,U,11)"
^XMB(3.9,119,2,1047,0)="""RTN"",""PSUOP2"",147,0)"
^XMB(3.9,119,2,1048,0)=" .S PSUPDT=$P(PSUR0,U,12)       ;AMIS Partial Login Date"
^XMB(3.9,119,2,1049,0)="""RTN"",""PSUOP2"",148,0)"
^XMB(3.9,119,2,1050,0)=" .I PSURELDT'="""" S PSURELDT=PSURELDT\1"
^XMB(3.9,119,2,1051,0)="""RTN"",""PSUOP2"",149,0)"
^XMB(3.9,119,2,1052,0)=" .Q:((PSURELDT<PSUSDT)!(PSURELDT>PSUEDTM))"
^XMB(3.9,119,2,1053,0)="""RTN"",""PSUOP2"",150,0)"
^XMB(3.9,119,2,1054,0)=" .S PSUNDC=$$VALI^PSUTL(52.2,PSURXIEN,1)"
^XMB(3.9,119,2,1055,0)="""RTN"",""PSUOP2"",151,0)"
^XMB(3.9,119,2,1056,0)=" .I PSUNDC="""" S PSUNDC=$S(PSUDRUG(31)'="""":PSUDRUG(31),1:""No NDC"")"
^XMB(3.9,119,2,1057,0)="""RTN"",""PSUOP2"",152,0)"
^XMB(3.9,119,2,1058,0)=" .;"
^XMB(3.9,119,2,1059,0)="""RTN"",""PSUOP2"",153,0)"
^XMB(3.9,119,2,1060,0)=" .D PROVDR^PSUOP3"
^XMB(3.9,119,2,1061,0)="""RTN"",""PSUOP2"",154,0)"
^XMB(3.9,119,2,1062,0)=" .D SETREC^PSUOP3"
^XMB(3.9,119,2,1063,0)="""RTN"",""PSUOP2"",155,0)"
^XMB(3.9,119,2,1064,0)="PARQ Q"
^XMB(3.9,119,2,1065,0)="""RTN"",""PSUOP2"",156,0)"
^XMB(3.9,119,2,1066,0)=" ;"
^XMB(3.9,119,2,1067,0)="""RTN"",""PSUOP2"",157,0)"
^XMB(3.9,119,2,1068,0)="COMVAR ; set variables that are common between all record types"
^XMB(3.9,119,2,1069,0)="""RTN"",""PSUOP2"",158,0)"
^XMB(3.9,119,2,1070,0)=" S PSUDR=$P($P(^TMP(""PSOR"",$J,PSURXIEN,""DRUG"",0),U,1),"";"",1)"
^XMB(3.9,119,2,1071,0)="""RTN"",""PSUOP2"",159,0)"
^XMB(3.9,119,2,1072,0)=" ;S CMOPID=$P($G(^PSDRUG(PSUDR,""ND"")),U,10)     ;AMIS CMOP ID"
^XMB(3.9,119,2,1073,0)="""RTN"",""PSUOP2"",160,0)"
^XMB(3.9,119,2,1074,0)=" S PSUSIG=$P($G(^TMP(""PSOR"",$J,PSURXIEN,""SIG"",1,0)),U,1)"
^XMB(3.9,119,2,1075,0)="""RTN"",""PSUOP2"",161,0)"
^XMB(3.9,119,2,1076,0)=" S PSURXP=$P($P(^TMP(""PSOR"",$J,PSURXIEN,1),U,5),"";"",1)"
^XMB(3.9,119,2,1077,0)="""RTN"",""PSUOP2"",162,0)"
^XMB(3.9,119,2,1078,0)=" S PSURXN=$P(^TMP(""PSOR"",$J,PSURXIEN,0),U,5)"
^XMB(3.9,119,2,1079,0)="""RTN"",""PSUOP2"",163,0)"
^XMB(3.9,119,2,1080,0)=" D GETDRUG^PSUOP3 ; loads data from file #50 using PSUDR as ien"
^XMB(3.9,119,2,1081,0)="""RTN"",""PSUOP2"",164,0)"
^XMB(3.9,119,2,1082,0)="COMVARQ Q"
^XMB(3.9,119,2,1083,0)="""RTN"",""PSUOP2"",165,0)"
^XMB(3.9,119,2,1084,0)=" ;"
^XMB(3.9,119,2,1085,0)="""RTN"",""PSUOP2"",166,0)"
^XMB(3.9,119,2,1086,0)="CMOPA ; set array of CMOP recs"
^XMB(3.9,119,2,1087,0)="""RTN"",""PSUOP2"",167,0)"
^XMB(3.9,119,2,1088,0)=" K PSUCMA"
^XMB(3.9,119,2,1089,0)="""RTN"",""PSUOP2"",168,0)"
^XMB(3.9,119,2,1090,0)=" N PSUR1,PSUX,PSUST,PSUFIL,PSUNDC"
^XMB(3.9,119,2,1091,0)="""RTN"",""PSUOP2"",169,0)"
^XMB(3.9,119,2,1092,0)=" S PSUX="""""
^XMB(3.9,119,2,1093,0)="""RTN"",""PSUOP2"",170,0)"
^XMB(3.9,119,2,1094,0)=" F  S PSUX=$O(^TMP(""PSOR"",$J,PSURXIEN,""CMOP"",PSUX)) Q:PSUX=""""  D"
^XMB(3.9,119,2,1095,0)="""RTN"",""PSUOP2"",171,0)"
^XMB(3.9,119,2,1096,0)=" .S PSUR1=^TMP(""PSOR"",$J,PSURXIEN,""CMOP"",PSUX,0)"
^XMB(3.9,119,2,1097,0)="""RTN"",""PSUOP2"",172,0)"
^XMB(3.9,119,2,1098,0)=" .F X=""PSUFIL^3"",""PSUST^4"",""PSUNDC^6"" D PIECE(X,PSUR1,U)"
^XMB(3.9,119,2,1099,0)="""RTN"",""PSUOP2"",173,0)"
^XMB(3.9,119,2,1100,0)=" .S:+PSUST=1 PSUCMA(PSUFIL)=PSUNDC"
^XMB(3.9,119,2,1101,0)="""RTN"",""PSUOP2"",174,0)"
^XMB(3.9,119,2,1102,0)=" .K:+PSUST=3 PSUCMA(PSUFIL)"
^XMB(3.9,119,2,1103,0)="""RTN"",""PSUOP2"",175,0)"
^XMB(3.9,119,2,1104,0)=" .D:$D(PSUCMA(PSUFIL)) RTSTOCK"
^XMB(3.9,119,2,1105,0)="""RTN"",""PSUOP2"",176,0)"
^XMB(3.9,119,2,1106,0)="CMOPAQ Q"
^XMB(3.9,119,2,1107,0)="""RTN"",""PSUOP2"",177,0)"
^XMB(3.9,119,2,1108,0)=" ;"
^XMB(3.9,119,2,1109,0)="""RTN"",""PSUOP2"",178,0)"
^XMB(3.9,119,2,1110,0)="RTSTOCK ; test for ""AR"" if none then unmark CMOP"
^XMB(3.9,119,2,1111,0)="""RTN"",""PSUOP2"",179,0)"
^XMB(3.9,119,2,1112,0)=" ; needs PSURXIEN, PSUFIL, from CMOPA"
^XMB(3.9,119,2,1113,0)="""RTN"",""PSUOP2"",180,0)"
^XMB(3.9,119,2,1114,0)=" N PSURELDT,PSUR0,PSURTSDT"
^XMB(3.9,119,2,1115,0)="""RTN"",""PSUOP2"",181,0)"
^XMB(3.9,119,2,1116,0)=" I PSUFIL D  Q"
^XMB(3.9,119,2,1117,0)="""RTN"",""PSUOP2"",182,0)"
^XMB(3.9,119,2,1118,0)=" . S PSUR0=$G(^TMP(""PSOR"",$J,PSURXIEN,""REF"",PSUFIL,0))"
^XMB(3.9,119,2,1119,0)="""RTN"",""PSUOP2"",183,0)"
^XMB(3.9,119,2,1120,0)=" . F X=""PSURELDT^8"",""PSURTSDT^9"" D PIECE(X,PSUR0,U)"
^XMB(3.9,119,2,1121,0)="""RTN"",""PSUOP2"",184,0)"
^XMB(3.9,119,2,1122,0)=" . I PSURELDT,$D(^PSRX(""AR"",PSURELDT,PSURXIEN,PSUFIL)) Q"
^XMB(3.9,119,2,1123,0)="""RTN"",""PSUOP2"",185,0)"
^XMB(3.9,119,2,1124,0)=" . K PSUCMA(PSUFIL)"
^XMB(3.9,119,2,1125,0)="""RTN"",""PSUOP2"",186,0)"
^XMB(3.9,119,2,1126,0)=" ;"
^XMB(3.9,119,2,1127,0)="""RTN"",""PSUOP2"",187,0)"
^XMB(3.9,119,2,1128,0)=" S PSUR0=^TMP(""PSOR"",$J,PSURXIEN,0)"
^XMB(3.9,119,2,1129,0)="""RTN"",""PSUOP2"",188,0)"
^XMB(3.9,119,2,1130,0)=" F X=""PSURELDT^13"",""PSURTSDT^14"" D PIECE(X,PSUR0,U)"
^XMB(3.9,119,2,1131,0)="""RTN"",""PSUOP2"",189,0)"
^XMB(3.9,119,2,1132,0)=" I PSURELDT,$D(^PSRX(""AR"",PSURELDT,PSURXIEN,PSUFIL)) Q"
^XMB(3.9,119,2,1133,0)="""RTN"",""PSUOP2"",190,0)"
^XMB(3.9,119,2,1134,0)=" I $D(PSUCMA(PSUFIL)) K PSUCMA(PSUFIL)"
^XMB(3.9,119,2,1135,0)="""RTN"",""PSUOP2"",191,0)"
^XMB(3.9,119,2,1136,0)=" Q"
^XMB(3.9,119,2,1137,0)="""RTN"",""PSUOP2"",192,0)"
^XMB(3.9,119,2,1138,0)="PIECE(%,REC,DLM) ;Piece % from record REC using delimiter DLM"
^XMB(3.9,119,2,1139,0)="""RTN"",""PSUOP2"",193,0)"
^XMB(3.9,119,2,1140,0)=" ; %=""VARNAME^PIECE"",REC=SOURCE,DLM=DELIMITER in REC"
^XMB(3.9,119,2,1141,0)="""RTN"",""PSUOP2"",194,0)"
^XMB(3.9,119,2,1142,0)=" N Y,I S Y=$P(%,U,1),I=$P(%,U,2) S @Y=$P(REC,DLM,I)"
^XMB(3.9,119,2,1143,0)="""RTN"",""PSUOP2"",195,0)"
^XMB(3.9,119,2,1144,0)=" Q"
^XMB(3.9,119,2,1145,0)="""RTN"",""PSUOP2"",196,0)"
^XMB(3.9,119,2,1146,0)=" ;"
^XMB(3.9,119,2,1147,0)="""VER"")"
^XMB(3.9,119,2,1148,0)="8.0^22.0"
^XMB(3.9,119,2,1149,0)="""BLD"",6909,6)"
^XMB(3.9,119,2,1150,0)="^5"
^XMB(3.9,119,2,1151,0)="$END KID PSU*4.0*8"
^XMB(3.9,119,6,0)="^3.911A^2^2"
^XMB(3.9,119,6,1,0)="POSTMASTER"
^XMB(3.9,119,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,119,6,"B","POSTMASTER",1)=""
^XMB(3.9,119,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,120,0)="PSX-2_SEQ-49_PAT-51.KID^.5^3061008.015741^^^^K"
^XMB(3.9,120,.6)="3061008"
^XMB(3.9,120,1,0)="^3.91A^2^2"
^XMB(3.9,120,1,1,0)=".5^0^3061008.015741^^^^^^^3061008.015741"
^XMB(3.9,120,1,2,0)="1^0^3061008.022442^^^^^^^3061008.022442"
^XMB(3.9,120,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,120,1,"C",.5,1)=""
^XMB(3.9,120,1,"C",1,2)=""
^XMB(3.9,120,2,0)="^^1029^1029^3061008"
^XMB(3.9,120,2,1,0)="$TXT Released PSX*2*51 SEQ #49"
^XMB(3.9,120,2,2,0)="Extracted from mail message"
^XMB(3.9,120,2,3,0)="$END TXT"
^XMB(3.9,120,2,4,0)="$KID PSX*2.0*51"
^XMB(3.9,120,2,5,0)="**INSTALL NAME**"
^XMB(3.9,120,2,6,0)="PSX*2.0*51"
^XMB(3.9,120,2,7,0)="""BLD"",4691,0)"
^XMB(3.9,120,2,8,0)="PSX*2.0*51^CMOP^0^3041215^y"
^XMB(3.9,120,2,9,0)="""BLD"",4691,1,0)"
^XMB(3.9,120,2,10,0)="^^19^19^3040824^"
^XMB(3.9,120,2,11,0)="""BLD"",4691,1,1,0)"
^XMB(3.9,120,2,12,0)="1)      Problem: The retransmission of a batch failed to complete the "
^XMB(3.9,120,2,13,0)="""BLD"",4691,1,2,0)"
^XMB(3.9,120,2,14,0)="updating of prescription statuses in Prescription file #52 and RX "
^XMB(3.9,120,2,15,0)="""BLD"",4691,1,3,0)"
^XMB(3.9,120,2,16,0)="Suspense file #52.5"
^XMB(3.9,120,2,17,0)="""BLD"",4691,1,4,0)"
^XMB(3.9,120,2,18,0)=" "
^XMB(3.9,120,2,19,0)="""BLD"",4691,1,5,0)"
^XMB(3.9,120,2,20,0)="Resolution:"
^XMB(3.9,120,2,21,0)="""BLD"",4691,1,6,0)"
^XMB(3.9,120,2,22,0)=" "
^XMB(3.9,120,2,23,0)="""BLD"",4691,1,7,0)"
^XMB(3.9,120,2,24,0)="Code has been put in place to complete the updating of prescriptions "
^XMB(3.9,120,2,25,0)="""BLD"",4691,1,8,0)"
^XMB(3.9,120,2,26,0)="statuses in Prescription file #52 and RX Suspense file #52.5 for "
^XMB(3.9,120,2,27,0)="""BLD"",4691,1,9,0)"
^XMB(3.9,120,2,28,0)="retransmissions."
^XMB(3.9,120,2,29,0)="""BLD"",4691,1,10,0)"
^XMB(3.9,120,2,30,0)=" "
^XMB(3.9,120,2,31,0)="""BLD"",4691,1,11,0)"
^XMB(3.9,120,2,32,0)="2)      Problem: The controlling data is stored in ^XTMP and is subject "
^XMB(3.9,120,2,33,0)="""BLD"",4691,1,12,0)"
^XMB(3.9,120,2,34,0)="to a periodic KERNEL job that clears out the ^XTMP global after midnight "
^XMB(3.9,120,2,35,0)="""BLD"",4691,1,13,0)"
^XMB(3.9,120,2,36,0)="if the job extends beyond midnight. That has occurred and the job shut "
^XMB(3.9,120,2,37,0)="""BLD"",4691,1,14,0)"
^XMB(3.9,120,2,38,0)="down."
^XMB(3.9,120,2,39,0)="""BLD"",4691,1,15,0)"
^XMB(3.9,120,2,40,0)=" "
^XMB(3.9,120,2,41,0)="""BLD"",4691,1,16,0)"
^XMB(3.9,120,2,42,0)="Resolution:"
^XMB(3.9,120,2,43,0)="""BLD"",4691,1,17,0)"
^XMB(3.9,120,2,44,0)=" "
^XMB(3.9,120,2,45,0)="""BLD"",4691,1,18,0)"
^XMB(3.9,120,2,46,0)="The parameter in the ^XTMP setting has been set to protect the global for "
^XMB(3.9,120,2,47,0)="""BLD"",4691,1,19,0)"
^XMB(3.9,120,2,48,0)="two days."
^XMB(3.9,120,2,49,0)="""BLD"",4691,4,0)"
^XMB(3.9,120,2,50,0)="^9.64PA^^"
^XMB(3.9,120,2,51,0)="""BLD"",4691,""KRN"",0)"
^XMB(3.9,120,2,52,0)="^9.67PA^8989.52^19"
^XMB(3.9,120,2,53,0)="""BLD"",4691,""KRN"",.4,0)"
^XMB(3.9,120,2,54,0)=".4"
^XMB(3.9,120,2,55,0)="""BLD"",4691,""KRN"",.401,0)"
^XMB(3.9,120,2,56,0)=".401"
^XMB(3.9,120,2,57,0)="""BLD"",4691,""KRN"",.402,0)"
^XMB(3.9,120,2,58,0)=".402"
^XMB(3.9,120,2,59,0)="""BLD"",4691,""KRN"",.403,0)"
^XMB(3.9,120,2,60,0)=".403"
^XMB(3.9,120,2,61,0)="""BLD"",4691,""KRN"",.5,0)"
^XMB(3.9,120,2,62,0)=".5"
^XMB(3.9,120,2,63,0)="""BLD"",4691,""KRN"",.84,0)"
^XMB(3.9,120,2,64,0)=".84"
^XMB(3.9,120,2,65,0)="""BLD"",4691,""KRN"",3.6,0)"
^XMB(3.9,120,2,66,0)="3.6"
^XMB(3.9,120,2,67,0)="""BLD"",4691,""KRN"",3.8,0)"
^XMB(3.9,120,2,68,0)="3.8"
^XMB(3.9,120,2,69,0)="""BLD"",4691,""KRN"",9.2,0)"
^XMB(3.9,120,2,70,0)="9.2"
^XMB(3.9,120,2,71,0)="""BLD"",4691,""KRN"",9.8,0)"
^XMB(3.9,120,2,72,0)="9.8"
^XMB(3.9,120,2,73,0)="""BLD"",4691,""KRN"",9.8,""NM"",0)"
^XMB(3.9,120,2,74,0)="^9.68A^4^4"
^XMB(3.9,120,2,75,0)="""BLD"",4691,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,120,2,76,0)="PSXRTRAN^^0^B63996798"
^XMB(3.9,120,2,77,0)="""BLD"",4691,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,120,2,78,0)="PSXRSUS1^^0^B5885865"
^XMB(3.9,120,2,79,0)="""BLD"",4691,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,120,2,80,0)="PSXRTRA1^^0^B16248666"
^XMB(3.9,120,2,81,0)="""BLD"",4691,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,120,2,82,0)="PSXRTR^^0^B23784153"
^XMB(3.9,120,2,83,0)="""BLD"",4691,""KRN"",9.8,""NM"",""B"",""PSXRSUS1"",2)"
^XMB(3.9,120,2,84,0)=""
^XMB(3.9,120,2,85,0)="""BLD"",4691,""KRN"",9.8,""NM"",""B"",""PSXRTR"",4)"
^XMB(3.9,120,2,86,0)=""
^XMB(3.9,120,2,87,0)="""BLD"",4691,""KRN"",9.8,""NM"",""B"",""PSXRTRA1"",3)"
^XMB(3.9,120,2,88,0)=""
^XMB(3.9,120,2,89,0)="""BLD"",4691,""KRN"",9.8,""NM"",""B"",""PSXRTRAN"",1)"
^XMB(3.9,120,2,90,0)=""
^XMB(3.9,120,2,91,0)="""BLD"",4691,""KRN"",19,0)"
^XMB(3.9,120,2,92,0)="19"
^XMB(3.9,120,2,93,0)="""BLD"",4691,""KRN"",19.1,0)"
^XMB(3.9,120,2,94,0)="19.1"
^XMB(3.9,120,2,95,0)="""BLD"",4691,""KRN"",101,0)"
^XMB(3.9,120,2,96,0)="101"
^XMB(3.9,120,2,97,0)="""BLD"",4691,""KRN"",409.61,0)"
^XMB(3.9,120,2,98,0)="409.61"
^XMB(3.9,120,2,99,0)="""BLD"",4691,""KRN"",771,0)"
^XMB(3.9,120,2,100,0)="771"
^XMB(3.9,120,2,101,0)="""BLD"",4691,""KRN"",870,0)"
^XMB(3.9,120,2,102,0)="870"
^XMB(3.9,120,2,103,0)="""BLD"",4691,""KRN"",8989.51,0)"
^XMB(3.9,120,2,104,0)="8989.51"
^XMB(3.9,120,2,105,0)="""BLD"",4691,""KRN"",8989.52,0)"
^XMB(3.9,120,2,106,0)="8989.52"
^XMB(3.9,120,2,107,0)="""BLD"",4691,""KRN"",8994,0)"
^XMB(3.9,120,2,108,0)="8994"
^XMB(3.9,120,2,109,0)="""BLD"",4691,""KRN"",""B"",.4,.4)"
^XMB(3.9,120,2,110,0)=""
^XMB(3.9,120,2,111,0)="""BLD"",4691,""KRN"",""B"",.401,.401)"
^XMB(3.9,120,2,112,0)=""
^XMB(3.9,120,2,113,0)="""BLD"",4691,""KRN"",""B"",.402,.402)"
^XMB(3.9,120,2,114,0)=""
^XMB(3.9,120,2,115,0)="""BLD"",4691,""KRN"",""B"",.403,.403)"
^XMB(3.9,120,2,116,0)=""
^XMB(3.9,120,2,117,0)="""BLD"",4691,""KRN"",""B"",.5,.5)"
^XMB(3.9,120,2,118,0)=""
^XMB(3.9,120,2,119,0)="""BLD"",4691,""KRN"",""B"",.84,.84)"
^XMB(3.9,120,2,120,0)=""
^XMB(3.9,120,2,121,0)="""BLD"",4691,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,120,2,122,0)=""
^XMB(3.9,120,2,123,0)="""BLD"",4691,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,120,2,124,0)=""
^XMB(3.9,120,2,125,0)="""BLD"",4691,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,120,2,126,0)=""
^XMB(3.9,120,2,127,0)="""BLD"",4691,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,120,2,128,0)=""
^XMB(3.9,120,2,129,0)="""BLD"",4691,""KRN"",""B"",19,19)"
^XMB(3.9,120,2,130,0)=""
^XMB(3.9,120,2,131,0)="""BLD"",4691,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,120,2,132,0)=""
^XMB(3.9,120,2,133,0)="""BLD"",4691,""KRN"",""B"",101,101)"
^XMB(3.9,120,2,134,0)=""
^XMB(3.9,120,2,135,0)="""BLD"",4691,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,120,2,136,0)=""
^XMB(3.9,120,2,137,0)="""BLD"",4691,""KRN"",""B"",771,771)"
^XMB(3.9,120,2,138,0)=""
^XMB(3.9,120,2,139,0)="""BLD"",4691,""KRN"",""B"",870,870)"
^XMB(3.9,120,2,140,0)=""
^XMB(3.9,120,2,141,0)="""BLD"",4691,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,120,2,142,0)=""
^XMB(3.9,120,2,143,0)="""BLD"",4691,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,120,2,144,0)=""
^XMB(3.9,120,2,145,0)="""BLD"",4691,""KRN"",""B"",8994,8994)"
^XMB(3.9,120,2,146,0)=""
^XMB(3.9,120,2,147,0)="""BLD"",4691,""QUES"",0)"
^XMB(3.9,120,2,148,0)="^9.62^^"
^XMB(3.9,120,2,149,0)="""BLD"",4691,""REQB"",0)"
^XMB(3.9,120,2,150,0)="^9.611^1^1"
^XMB(3.9,120,2,151,0)="""BLD"",4691,""REQB"",1,0)"
^XMB(3.9,120,2,152,0)="PSX*2.0*41^1"
^XMB(3.9,120,2,153,0)="""BLD"",4691,""REQB"",""B"",""PSX*2.0*41"",1)"
^XMB(3.9,120,2,154,0)=""
^XMB(3.9,120,2,155,0)="""MBREQ"")"
^XMB(3.9,120,2,156,0)="0"
^XMB(3.9,120,2,157,0)="""PKG"",526,-1)"
^XMB(3.9,120,2,158,0)="1^1"
^XMB(3.9,120,2,159,0)="""PKG"",526,0)"
^XMB(3.9,120,2,160,0)="CMOP^PSX^CONSOLIDATED MAIL OUTPATIENT PHARMACY"
^XMB(3.9,120,2,161,0)="""PKG"",526,20,0)"
^XMB(3.9,120,2,162,0)="^9.402P^^"
^XMB(3.9,120,2,163,0)="""PKG"",526,22,0)"
^XMB(3.9,120,2,164,0)="^9.49I^1^1"
^XMB(3.9,120,2,165,0)="""PKG"",526,22,1,0)"
^XMB(3.9,120,2,166,0)="2.0^3000210^3000217^11853"
^XMB(3.9,120,2,167,0)="""PKG"",526,22,1,""PAH"",1,0)"
^XMB(3.9,120,2,168,0)="51^3041215"
^XMB(3.9,120,2,169,0)="""PKG"",526,22,1,""PAH"",1,1,0)"
^XMB(3.9,120,2,170,0)="^^19^19^3041215"
^XMB(3.9,120,2,171,0)="""PKG"",526,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,120,2,172,0)="1)      Problem: The retransmission of a batch failed to complete the "
^XMB(3.9,120,2,173,0)="""PKG"",526,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,120,2,174,0)="updating of prescription statuses in Prescription file #52 and RX "
^XMB(3.9,120,2,175,0)="""PKG"",526,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,120,2,176,0)="Suspense file #52.5"
^XMB(3.9,120,2,177,0)="""PKG"",526,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,120,2,178,0)=" "
^XMB(3.9,120,2,179,0)="""PKG"",526,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,120,2,180,0)="Resolution:"
^XMB(3.9,120,2,181,0)="""PKG"",526,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,120,2,182,0)=" "
^XMB(3.9,120,2,183,0)="""PKG"",526,22,1,""PAH"",1,1,7,0)"
^XMB(3.9,120,2,184,0)="Code has been put in place to complete the updating of prescriptions "
^XMB(3.9,120,2,185,0)="""PKG"",526,22,1,""PAH"",1,1,8,0)"
^XMB(3.9,120,2,186,0)="statuses in Prescription file #52 and RX Suspense file #52.5 for "
^XMB(3.9,120,2,187,0)="""PKG"",526,22,1,""PAH"",1,1,9,0)"
^XMB(3.9,120,2,188,0)="retransmissions."
^XMB(3.9,120,2,189,0)="""PKG"",526,22,1,""PAH"",1,1,10,0)"
^XMB(3.9,120,2,190,0)=" "
^XMB(3.9,120,2,191,0)="""PKG"",526,22,1,""PAH"",1,1,11,0)"
^XMB(3.9,120,2,192,0)="2)      Problem: The controlling data is stored in ^XTMP and is subject "
^XMB(3.9,120,2,193,0)="""PKG"",526,22,1,""PAH"",1,1,12,0)"
^XMB(3.9,120,2,194,0)="to a periodic KERNEL job that clears out the ^XTMP global after midnight "
^XMB(3.9,120,2,195,0)="""PKG"",526,22,1,""PAH"",1,1,13,0)"
^XMB(3.9,120,2,196,0)="if the job extends beyond midnight. That has occurred and the job shut "
^XMB(3.9,120,2,197,0)="""PKG"",526,22,1,""PAH"",1,1,14,0)"
^XMB(3.9,120,2,198,0)="down."
^XMB(3.9,120,2,199,0)="""PKG"",526,22,1,""PAH"",1,1,15,0)"
^XMB(3.9,120,2,200,0)=" "
^XMB(3.9,120,2,201,0)="""PKG"",526,22,1,""PAH"",1,1,16,0)"
^XMB(3.9,120,2,202,0)="Resolution:"
^XMB(3.9,120,2,203,0)="""PKG"",526,22,1,""PAH"",1,1,17,0)"
^XMB(3.9,120,2,204,0)=" "
^XMB(3.9,120,2,205,0)="""PKG"",526,22,1,""PAH"",1,1,18,0)"
^XMB(3.9,120,2,206,0)="The parameter in the ^XTMP setting has been set to protect the global for "
^XMB(3.9,120,2,207,0)="""PKG"",526,22,1,""PAH"",1,1,19,0)"
^XMB(3.9,120,2,208,0)="two days."
^XMB(3.9,120,2,209,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,120,2,210,0)="Y"
^XMB(3.9,120,2,211,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,120,2,212,0)="^D REP^XPDH"
^XMB(3.9,120,2,213,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,120,2,214,0)="Shall I write over your |FLAG| File"
^XMB(3.9,120,2,215,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,120,2,216,0)="YES"
^XMB(3.9,120,2,217,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,120,2,218,0)="D XPF1^XPDIQ"
^XMB(3.9,120,2,219,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,120,2,220,0)="Y"
^XMB(3.9,120,2,221,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,120,2,222,0)="^D DTA^XPDH"
^XMB(3.9,120,2,223,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,120,2,224,0)="Want my data |FLAG| yours"
^XMB(3.9,120,2,225,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,120,2,226,0)="YES"
^XMB(3.9,120,2,227,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,120,2,228,0)="D XPF2^XPDIQ"
^XMB(3.9,120,2,229,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,120,2,230,0)="YO"
^XMB(3.9,120,2,231,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,120,2,232,0)="^D INHIBIT^XPDH"
^XMB(3.9,120,2,233,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,120,2,234,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,120,2,235,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,120,2,236,0)="YES"
^XMB(3.9,120,2,237,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,120,2,238,0)="D XPI1^XPDIQ"
^XMB(3.9,120,2,239,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,120,2,240,0)="PO^VA(200,:EM"
^XMB(3.9,120,2,241,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,120,2,242,0)="^D MG^XPDH"
^XMB(3.9,120,2,243,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,120,2,244,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,120,2,245,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,120,2,246,0)=""
^XMB(3.9,120,2,247,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,120,2,248,0)="D XPM1^XPDIQ"
^XMB(3.9,120,2,249,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,120,2,250,0)="Y"
^XMB(3.9,120,2,251,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,120,2,252,0)="^D MENU^XPDH"
^XMB(3.9,120,2,253,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,120,2,254,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,120,2,255,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,120,2,256,0)="YES"
^XMB(3.9,120,2,257,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,120,2,258,0)="D XPO1^XPDIQ"
^XMB(3.9,120,2,259,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,120,2,260,0)="Y"
^XMB(3.9,120,2,261,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,120,2,262,0)="^D OPT^XPDH"
^XMB(3.9,120,2,263,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,120,2,264,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,120,2,265,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,120,2,266,0)="YES"
^XMB(3.9,120,2,267,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,120,2,268,0)="D XPZ1^XPDIQ"
^XMB(3.9,120,2,269,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,120,2,270,0)="Y"
^XMB(3.9,120,2,271,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,120,2,272,0)="^D RTN^XPDH"
^XMB(3.9,120,2,273,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,120,2,274,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,120,2,275,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,120,2,276,0)="NO"
^XMB(3.9,120,2,277,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,120,2,278,0)="D XPZ2^XPDIQ"
^XMB(3.9,120,2,279,0)="""RTN"")"
^XMB(3.9,120,2,280,0)="4"
^XMB(3.9,120,2,281,0)="""RTN"",""PSXRSUS1"")"
^XMB(3.9,120,2,282,0)="0^2^B5885865"
^XMB(3.9,120,2,283,0)="""RTN"",""PSXRSUS1"",1,0)"
^XMB(3.9,120,2,284,0)="PSXRSUS1 ;BIR/WPB,BAB,HTW-CMOP Transmission Handler sub routine ;15 Dec 2001"
^XMB(3.9,120,2,285,0)="""RTN"",""PSXRSUS1"",2,0)"
^XMB(3.9,120,2,286,0)=" ;;2.0;CMOP;**41,51**;11 Apr 97"
^XMB(3.9,120,2,287,0)="""RTN"",""PSXRSUS1"",3,0)"
^XMB(3.9,120,2,288,0)=" ;"
^XMB(3.9,120,2,289,0)="""RTN"",""PSXRSUS1"",4,0)"
^XMB(3.9,120,2,290,0)="STOREVAR ; store critical variables"
^XMB(3.9,120,2,291,0)="""RTN"",""PSXRSUS1"",5,0)"
^XMB(3.9,120,2,292,0)=" S X1=DT,X2=+2 D C^%DTC S XXX=X K X1,X2"
^XMB(3.9,120,2,293,0)="""RTN"",""PSXRSUS1"",6,0)"
^XMB(3.9,120,2,294,0)=" S ^XTMP(""PSXTVARS ""_$J,0)=XXX_U_DT_U_""variables for CMOP transmissions"""
^XMB(3.9,120,2,295,0)="""RTN"",""PSXRSUS1"",7,0)"
^XMB(3.9,120,2,296,0)=" S ZZ="""""
^XMB(3.9,120,2,297,0)="""RTN"",""PSXRSUS1"",8,0)"
^XMB(3.9,120,2,298,0)=" F X=""PSXDIVML"",""PSOSITE"",""PSOLAP"",""PSOSYS"",""PSOPAR"",""PSXSYS"",""PSXTRANS"",""PSXFLAG"",""PRTDT"",""PSOINST"",""PSXDUZ"",""PSXSITE"" S @X=$G(@X)"
^XMB(3.9,120,2,299,0)="""RTN"",""PSXRSUS1"",9,0)"
^XMB(3.9,120,2,300,0)=" F X=""PSXCS"",""PSXDAYS"",""PSXDTRG"",""PSOBARS"",""PSOBAR1"",""PSOBAR0"",""PSOPROP"",""PSXVENDR"",""PSLION"",""TPRTDT"" S @X=$G(@X)"
^XMB(3.9,120,2,301,0)="""RTN"",""PSXRSUS1"",10,0)"
^XMB(3.9,120,2,302,0)=" S ZZ="""""
^XMB(3.9,120,2,303,0)="""RTN"",""PSXRSUS1"",11,0)"
^XMB(3.9,120,2,304,0)=" F YY=""PSXDIVML^1"",""PSOSITE^2"",""PSOLAP^3"",""PSOSYS^4"",""PSOPAR^5"",""PSXSYS^6"",""PSXTRANS^7"",""PSXFLAG^8"",""PRTDT^9"",""PSOINST^10"",""PSXDUZ^11"",""PSXSITE^12"" D SET^PSXUTL(.ZZ,U,YY)"
^XMB(3.9,120,2,305,0)="""RTN"",""PSXRSUS1"",12,0)"
^XMB(3.9,120,2,306,0)=" S ^XTMP(""PSXTVARS ""_$J,1)=ZZ"
^XMB(3.9,120,2,307,0)="""RTN"",""PSXRSUS1"",13,0)"
^XMB(3.9,120,2,308,0)=" S ZZ="""""
^XMB(3.9,120,2,309,0)="""RTN"",""PSXRSUS1"",14,0)"
^XMB(3.9,120,2,310,0)=" F YY=""PSXCS^1"",""PSXDAYS^2"",""PSXDTRG^3"",""PSOBARS^4"",""PSOBAR1^5"",""PSOBAR0^6"",""PSOPROP^7"",""PSXVENDR^8"",""PSLION^9"",""TPRTDT^10"" D SET^PSXUTL(.ZZ,U,YY)"
^XMB(3.9,120,2,311,0)="""RTN"",""PSXRSUS1"",15,0)"
^XMB(3.9,120,2,312,0)=" S ^XTMP(""PSXTVARS ""_$J,2)=ZZ"
^XMB(3.9,120,2,313,0)="""RTN"",""PSXRSUS1"",16,0)"
^XMB(3.9,120,2,314,0)=" K XXX"
^XMB(3.9,120,2,315,0)="""RTN"",""PSXRSUS1"",17,0)"
^XMB(3.9,120,2,316,0)=" Q"
^XMB(3.9,120,2,317,0)="""RTN"",""PSXRSUS1"",18,0)"
^XMB(3.9,120,2,318,0)="RESETVAR ; retrieve critical variables"
^XMB(3.9,120,2,319,0)="""RTN"",""PSXRSUS1"",19,0)"
^XMB(3.9,120,2,320,0)=" S ZZ=^XTMP(""PSXTVARS ""_$J,1)"
^XMB(3.9,120,2,321,0)="""RTN"",""PSXRSUS1"",20,0)"
^XMB(3.9,120,2,322,0)=" F YY=""PSXDIVML^1"",""PSOSITE^2"",""PSOLAP^3"",""PSOSYS^4"",""PSOPAR^5"",""PSXSYS^6"",""PSXTRANS^7"",""PSXFLAG^8"",""PRTDT^9"",""PSOINST^10"",""PSXDUZ^11"",""PSXSITE^12"" D SET^PSXUTL(.ZZ,U,YY)"
^XMB(3.9,120,2,323,0)="""RTN"",""PSXRSUS1"",21,0)"
^XMB(3.9,120,2,324,0)=" S ZZ=^XTMP(""PSXTVARS ""_$J,2)"
^XMB(3.9,120,2,325,0)="""RTN"",""PSXRSUS1"",22,0)"
^XMB(3.9,120,2,326,0)=" F YY=""PSXCS^1"",""PSXDAYS^2"",""PSXDTRG^3"",""PSOBARS^4"",""PSOBAR1^5"",""PSOBAR0^6"",""PSOPROP^7"",""PSXVENDR^8"",""PSLION^9"",""TPRTDT^10"" D PIECE^PSXUTL(ZZ,U,YY)"
^XMB(3.9,120,2,327,0)="""RTN"",""PSXRSUS1"",23,0)"
^XMB(3.9,120,2,328,0)=" Q"
^XMB(3.9,120,2,329,0)="""RTN"",""PSXRTR"")"
^XMB(3.9,120,2,330,0)="0^4^B23784153"
^XMB(3.9,120,2,331,0)="""RTN"",""PSXRTR"",1,0)"
^XMB(3.9,120,2,332,0)="PSXRTR ;BIR/BAB,WPB,PWC-Transmit Data to CMOP Host System ;14 Dec 2001"
^XMB(3.9,120,2,333,0)="""RTN"",""PSXRTR"",2,0)"
^XMB(3.9,120,2,334,0)=" ;;2.0;CMOP;**18,23,27,31,28,41,51**;11 Apr 97"
^XMB(3.9,120,2,335,0)="""RTN"",""PSXRTR"",3,0)"
^XMB(3.9,120,2,336,0)=" ;Reference to ^DIC(4.2 supported by DBIA #1966"
^XMB(3.9,120,2,337,0)="""RTN"",""PSXRTR"",4,0)"
^XMB(3.9,120,2,338,0)=" ;Reference to ^PS(59   supported by DBIA #1976"
^XMB(3.9,120,2,339,0)="""RTN"",""PSXRTR"",5,0)"
^XMB(3.9,120,2,340,0)=" ;Reference to File #200 supported by DBIA #10060"
^XMB(3.9,120,2,341,0)="""RTN"",""PSXRTR"",6,0)"
^XMB(3.9,120,2,342,0)=" ;Requires PSXHDR,PSXORD (A B C D) arrays"
^XMB(3.9,120,2,343,0)="""RTN"",""PSXRTR"",7,0)"
^XMB(3.9,120,2,344,0)=" Q"
^XMB(3.9,120,2,345,0)="""RTN"",""PSXRTR"",8,0)"
^XMB(3.9,120,2,346,0)="EN ;Entry point for data transmission, load mailman message and send"
^XMB(3.9,120,2,347,0)="""RTN"",""PSXRTR"",9,0)"
^XMB(3.9,120,2,348,0)=" S PSXJOB=1,PSXRTRN=0 K ERR"
^XMB(3.9,120,2,349,0)="""RTN"",""PSXRTR"",10,0)"
^XMB(3.9,120,2,350,0)=" I $E(IOST)=""C"" W !,""EN^PSXRTR DIV: "",PSOSITE,"" "",+$G(PSXBAT)"
^XMB(3.9,120,2,351,0)="""RTN"",""PSXRTR"",11,0)"
^XMB(3.9,120,2,352,0)=" I (($G(PSXBAT)="""")!('$D(^PSX(550.1,""C"",PSXBAT)))) G EXIT"
^XMB(3.9,120,2,353,0)="""RTN"",""PSXRTR"",12,0)"
^XMB(3.9,120,2,354,0)=" S (PSXMSG,PSXMFLAG,PSXEND,PSXSTART)=0"
^XMB(3.9,120,2,355,0)="""RTN"",""PSXRTR"",13,0)"
^XMB(3.9,120,2,356,0)=" F  S PSXMSG=$O(^PSX(550.1,""C"",PSXBAT,PSXMSG)) Q:PSXMSG'>0  S PSXEND=PSXMSG S:PSXSTART=0 PSXSTART=PSXMSG"
^XMB(3.9,120,2,357,0)="""RTN"",""PSXRTR"",14,0)"
^XMB(3.9,120,2,358,0)=" S PSXSITE=$P($G(PSXSYS),U,3),PSXSENDR=$$GET1^DIQ(200,DUZ,.01),SITENUM=$P($G(PSXSYS),U,2),PSXDIV=$P($G(^PS(59,+PSOSITE,0)),U,1),XSITE=$P($G(^PS(59,+PSOSITE,0)),U,6)"
^XMB(3.9,120,2,359,0)="""RTN"",""PSXRTR"",15,0)"
^XMB(3.9,120,2,360,0)=" S PSXHDR=PSXSITE_U_+PSXSYS_U_SITENUM_U_PSXTDT_U_PSXSENDR_U_PSXSTART_U_PSXEND_U_PSXDIV_U_XSITE,PSXREF=SITENUM_""-""_$$GET1^DIQ(550.2,PSXBAT,.01)"
^XMB(3.9,120,2,361,0)="""RTN"",""PSXRTR"",16,0)"
^XMB(3.9,120,2,362,0)=" N DOMAIN,LCNT,XMDUZ,XMSUB,XMZ,ORD"
^XMB(3.9,120,2,363,0)="""RTN"",""PSXRTR"",17,0)"
^XMB(3.9,120,2,364,0)=" S (LCNT,PSXMSGCT,PSXRXCT)=0"
^XMB(3.9,120,2,365,0)="""RTN"",""PSXRTR"",18,0)"
^XMB(3.9,120,2,366,0)=" S X=$$KSP^XUPARAM(""INST""),DIC=""4"",DIC(0)=""XMZO"" D ^DIC S SITEX=$P(Y,""^"",2) K DIC,X,Y"
^XMB(3.9,120,2,367,0)="""RTN"",""PSXRTR"",19,0)"
^XMB(3.9,120,2,368,0)=" S XMSUB=""CMOP""_$S($G(PSXCS)=1:"" Controlled Substances"",1:"""")_"" Transmission from ""_SITEX,XMDUZ=.5"
^XMB(3.9,120,2,369,0)="""RTN"",""PSXRTR"",20,0)"
^XMB(3.9,120,2,370,0)="XMZ D XMZ^XMA2"
^XMB(3.9,120,2,371,0)="""RTN"",""PSXRTR"",21,0)"
^XMB(3.9,120,2,372,0)=" I XMZ'>0 G XMZ"
^XMB(3.9,120,2,373,0)="""RTN"",""PSXRTR"",22,0)"
^XMB(3.9,120,2,374,0)=" K SITEX"
^XMB(3.9,120,2,375,0)="""RTN"",""PSXRTR"",23,0)"
^XMB(3.9,120,2,376,0)="HDR ;Gather data from header, load NTE1 - NTE5 into mailmessage from PSXORD( array"
^XMB(3.9,120,2,377,0)="""RTN"",""PSXRTR"",24,0)"
^XMB(3.9,120,2,378,0)=" S ORD=""$$XMIT""_U_$$GET1^DIQ(550.2,PSXBAT,.01)_U_PSXHDR D TXT"
^XMB(3.9,120,2,379,0)="""RTN"",""PSXRTR"",25,0)"
^XMB(3.9,120,2,380,0)=" S ORD=$G(PSXORD(""A"")) D TXT"
^XMB(3.9,120,2,381,0)="""RTN"",""PSXRTR"",26,0)"
^XMB(3.9,120,2,382,0)=" ;If not any data in the refill/nonrefill/copay instructions set "
^XMB(3.9,120,2,383,0)="""RTN"",""PSXRTR"",27,0)"
^XMB(3.9,120,2,384,0)=" ;set array equal to NTE...+3 spaces"
^XMB(3.9,120,2,385,0)="""RTN"",""PSXRTR"",28,0)"
^XMB(3.9,120,2,386,0)=" S:$G(PSXORD(""B"",1))="""" PSXORD(""B"",1)=""NTE|2||   """
^XMB(3.9,120,2,387,0)="""RTN"",""PSXRTR"",29,0)"
^XMB(3.9,120,2,388,0)=" S:$G(PSXORD(""C"",1))="""" PSXORD(""C"",1)=""NTE|3||   """
^XMB(3.9,120,2,389,0)="""RTN"",""PSXRTR"",30,0)"
^XMB(3.9,120,2,390,0)=" S:$G(PSXORD(""D"",1))="""" PSXORD(""D"",1)=""NTE|4||   """
^XMB(3.9,120,2,391,0)="""RTN"",""PSXRTR"",31,0)"
^XMB(3.9,120,2,392,0)=" F ZZ=""B"",""C"",""D"" S Z=0 F  S Z=$O(PSXORD(ZZ,Z)) Q:Z'>0  S ORD=$G(PSXORD(ZZ,Z)) D TXT"
^XMB(3.9,120,2,393,0)="""RTN"",""PSXRTR"",32,0)"
^XMB(3.9,120,2,394,0)=" ;Gather data for individual patient orders"
^XMB(3.9,120,2,395,0)="""RTN"",""PSXRTR"",33,0)"
^XMB(3.9,120,2,396,0)="LOCK ;"
^XMB(3.9,120,2,397,0)="""RTN"",""PSXRTR"",34,0)"
^XMB(3.9,120,2,398,0)=" D NOW^%DTC S DTTM=%,(MSG,ZCNT)=0"
^XMB(3.9,120,2,399,0)="""RTN"",""PSXRTR"",35,0)"
^XMB(3.9,120,2,400,0)=" ; load patients' 550.1 ""T"" nodes into the mail message"
^XMB(3.9,120,2,401,0)="""RTN"",""PSXRTR"",36,0)"
^XMB(3.9,120,2,402,0)=" F  S MSG=$O(^PSX(550.1,""C"",PSXBAT,MSG)) Q:MSG=""""  S PSXMSGCT=PSXMSGCT+1,LNTX=+$P(^PSX(550.1,MSG,""T"",0),U,4) D"
^XMB(3.9,120,2,403,0)="""RTN"",""PSXRTR"",37,0)"
^XMB(3.9,120,2,404,0)=" .S ORD=""$MSG^""_+$G(^PSX(550.1,MSG,0))_U_LNTX D TXT"
^XMB(3.9,120,2,405,0)="""RTN"",""PSXRTR"",38,0)"
^XMB(3.9,120,2,406,0)=" .F PSX=1:1:LNTX I $G(^PSX(550.1,MSG,""T"",PSX,0))]"""" S ORD=$G(^(0)) S:$E(ORD,1,7)=""ORC|NW|"" PSXRXCT=PSXRXCT+1 D TXT"
^XMB(3.9,120,2,407,0)="""RTN"",""PSXRTR"",39,0)"
^XMB(3.9,120,2,408,0)=" .K DA,DIE,DR S DA=MSG L +^PSX(550.1,DA)"
^XMB(3.9,120,2,409,0)="""RTN"",""PSXRTR"",40,0)"
^XMB(3.9,120,2,410,0)=" .S DIE=""^PSX(550.1,"",DR=""1///2;5////""_DTTM_"";3////""_PSXBAT"
^XMB(3.9,120,2,411,0)="""RTN"",""PSXRTR"",41,0)"
^XMB(3.9,120,2,412,0)=" .D ^DIE L -^PSX(550.1,DA) K DA,DIE,DR ;update msgs in 550.1"
^XMB(3.9,120,2,413,0)="""RTN"",""PSXRTR"",42,0)"
^XMB(3.9,120,2,414,0)=" S ORD=""$$ENDXMIT^""_U_PSXFAC_U_PSXBAT_U_PSXMSGCT_U_PSXRXCT D TXT K ORD"
^XMB(3.9,120,2,415,0)="""RTN"",""PSXRTR"",43,0)"
^XMB(3.9,120,2,416,0)=" S ^XMB(3.9,XMZ,2,0)=""^3.92A^""_LCNT_U_LCNT_U_DT,XMDUN=""CMOP Manager"""
^XMB(3.9,120,2,417,0)="""RTN"",""PSXRTR"",44,0)"
^XMB(3.9,120,2,418,0)=" S XMDUZ=.5"
^XMB(3.9,120,2,419,0)="""RTN"",""PSXRTR"",45,0)"
^XMB(3.9,120,2,420,0)=" S RECV=$P($G(^PSX(550,+PSXSYS,0)),U,4),DOMAIN=""@""_$$GET1^DIQ(4.2,RECV,.01)"
^XMB(3.9,120,2,421,0)="""RTN"",""PSXRTR"",46,0)"
^XMB(3.9,120,2,422,0)=" ;code to divert patient transmissions for testing"
^XMB(3.9,120,2,423,0)="""RTN"",""PSXRTR"",47,0)"
^XMB(3.9,120,2,424,0)=" I '$D(^XTMP(""PSXDIVERTCMOP"")) S XMY(""S.PSXX CMOP SERVER""_DOMAIN)="""" I 1 ;****TESTING"
^XMB(3.9,120,2,425,0)="""RTN"",""PSXRTR"",48,0)"
^XMB(3.9,120,2,426,0)=" E  S XX=^XTMP(""PSXDIVERTCMOP"",1) S XMY(XX)="""" H 1 ;****TESTING S.PSXX"
^XMB(3.9,120,2,427,0)="""RTN"",""PSXRTR"",49,0)"
^XMB(3.9,120,2,428,0)=" D ENT1^XMD"
^XMB(3.9,120,2,429,0)="""RTN"",""PSXRTR"",50,0)"
^XMB(3.9,120,2,430,0)=" D XMIT"
^XMB(3.9,120,2,431,0)="""RTN"",""PSXRTR"",51,0)"
^XMB(3.9,120,2,432,0)=" S PSXFLAG=1 D EN^PSXNOTE"
^XMB(3.9,120,2,433,0)="""RTN"",""PSXRTR"",52,0)"
^XMB(3.9,120,2,434,0)=" K DIE,DA,DR,BAT,PSX,PSXORD,MSG,LNTX,LCNT,DOMAIN,RECV,SITENUM,Z,ZZ,XMDUN,XMDUZ,XMSUB,XMY,XMZ,PSXDIV,XSITE"
^XMB(3.9,120,2,435,0)="""RTN"",""PSXRTR"",53,0)"
^XMB(3.9,120,2,436,0)=" Q"
^XMB(3.9,120,2,437,0)="""RTN"",""PSXRTR"",54,0)"
^XMB(3.9,120,2,438,0)="XMIT ;Update 550.2 # of ORDs, RXs; rxS IN 52, 52.5: 550.2 to Transmitted"
^XMB(3.9,120,2,439,0)="""RTN"",""PSXRTR"",55,0)"
^XMB(3.9,120,2,440,0)=" ;Update 550 with batch"
^XMB(3.9,120,2,441,0)="""RTN"",""PSXRTR"",56,0)"
^XMB(3.9,120,2,442,0)=" N PSXTRDTM D NOW^%DTC S PSXTRDTM=%"
^XMB(3.9,120,2,443,0)="""RTN"",""PSXRTR"",57,0)"
^XMB(3.9,120,2,444,0)=" L +^PSX(550.2,PSXBAT):600 I '$T S XQAMSG=""CMOP Transmission file in use. Entry for trans ""_PSXBAT_"" not complete. Contact IRM."" D GRP1^PSXNOTE,SETUP^XQALERT K XQAMSG,XQA Q"
^XMB(3.9,120,2,445,0)="""RTN"",""PSXRTR"",58,0)"
^XMB(3.9,120,2,446,0)=" S DA=PSXBAT,DIE=""^PSX(550.2,"",DR=""1////2;11////""_PSXSTART_"";12////""_PSXEND_"";13////""_PSXMSGCT_"";14////""_PSXRXCT_"";5////""_PSXTRDTM"
^XMB(3.9,120,2,447,0)="""RTN"",""PSXRTR"",59,0)"
^XMB(3.9,120,2,448,0)=" D ^DIE K DA,DIE,DR"
^XMB(3.9,120,2,449,0)="""RTN"",""PSXRTR"",60,0)"
^XMB(3.9,120,2,450,0)=" L -^PSX(550.2,PSXBAT)"
^XMB(3.9,120,2,451,0)="""RTN"",""PSXRTR"",61,0)"
^XMB(3.9,120,2,452,0)=" S PSXMFLAG=1"
^XMB(3.9,120,2,453,0)="""RTN"",""PSXRTR"",62,0)"
^XMB(3.9,120,2,454,0)=" D ^PSXRXU ; update RXs in 52 52.5"
^XMB(3.9,120,2,455,0)="""RTN"",""PSXRTR"",63,0)"
^XMB(3.9,120,2,456,0)=" L +^PSX(550,+PSXSYS):600 Q:'$T"
^XMB(3.9,120,2,457,0)="""RTN"",""PSXRTR"",64,0)"
^XMB(3.9,120,2,458,0)=" S DA=+PSXSYS,DIE=""^PSX(550,"",DR=""6////""_PSXBAT D ^DIE K DIE,DA,DR"
^XMB(3.9,120,2,459,0)="""RTN"",""PSXRTR"",65,0)"
^XMB(3.9,120,2,460,0)=" L -^PSX(550,+PSXSYS)"
^XMB(3.9,120,2,461,0)="""RTN"",""PSXRTR"",66,0)"
^XMB(3.9,120,2,462,0)=" Q"
^XMB(3.9,120,2,463,0)="""RTN"",""PSXRTR"",67,0)"
^XMB(3.9,120,2,464,0)="TXT ;"
^XMB(3.9,120,2,465,0)="""RTN"",""PSXRTR"",68,0)"
^XMB(3.9,120,2,466,0)=" I $G(ORD)]"""" S LCNT=LCNT+1,^XMB(3.9,XMZ,2,LCNT,0)=ORD"
^XMB(3.9,120,2,467,0)="""RTN"",""PSXRTR"",69,0)"
^XMB(3.9,120,2,468,0)=" Q"
^XMB(3.9,120,2,469,0)="""RTN"",""PSXRTR"",70,0)"
^XMB(3.9,120,2,470,0)="EXIT K %,ERROR,PSXRTRN,PSXJOB,PSXER,PSXHDR,PSXFAC,PSXBAT,PSXEND,PSXMFLAG,PSXMSG,PSXMSGCT,PSXRXCT,PSXSENDR,PSXSITE,PSXTDT,N Q"
^XMB(3.9,120,2,471,0)="""RTN"",""PSXRTR"",71,0)"
^XMB(3.9,120,2,472,0)=" Q"
^XMB(3.9,120,2,473,0)="""RTN"",""PSXRTR"",72,0)"
^XMB(3.9,120,2,474,0)="DIVERT ; divert transmissions from CMOP to the user evoking the divert"
^XMB(3.9,120,2,475,0)="""RTN"",""PSXRTR"",73,0)"
^XMB(3.9,120,2,476,0)=" W !,""This will divert CMOP Patient transmissions to the user evoking the divert"",!,""for one day or until 'D RESET^PSXRTR' is executed."",!"
^XMB(3.9,120,2,477,0)="""RTN"",""PSXRTR"",74,0)"
^XMB(3.9,120,2,478,0)=" K DIR S DIR(0)=""YO"",DIR(""B"")=""N"" D ^DIR"
^XMB(3.9,120,2,479,0)="""RTN"",""PSXRTR"",75,0)"
^XMB(3.9,120,2,480,0)=" I 'Y W !,""CMOP Patient transmissions >>NOT DIVERTED<<"",! Q"
^XMB(3.9,120,2,481,0)="""RTN"",""PSXRTR"",76,0)"
^XMB(3.9,120,2,482,0)=" S ^XTMP(""PSXDIVERTCMOP"",0)=DT_U_DT_U_""Divert CMOP Transmissions"""
^XMB(3.9,120,2,483,0)="""RTN"",""PSXRTR"",77,0)"
^XMB(3.9,120,2,484,0)=" S ^XTMP(""PSXDIVERTCMOP"",1)=DUZ"
^XMB(3.9,120,2,485,0)="""RTN"",""PSXRTR"",78,0)"
^XMB(3.9,120,2,486,0)=" W !!,""CMOP Patient transmissions >>DIVERTED<< to "",$$GET1^DIQ(200,DUZ,.01),!!,""Use 'D RESET^PSXRTR' to restore normal CMOP Patient transmissions."",!"
^XMB(3.9,120,2,487,0)="""RTN"",""PSXRTR"",79,0)"
^XMB(3.9,120,2,488,0)=" K DIR S DIR(0)=""E"",DIR(""A"")=""<CR> Continue"" D ^DIR"
^XMB(3.9,120,2,489,0)="""RTN"",""PSXRTR"",80,0)"
^XMB(3.9,120,2,490,0)=" Q"
^XMB(3.9,120,2,491,0)="""RTN"",""PSXRTR"",81,0)"
^XMB(3.9,120,2,492,0)="RESET ; reset normal CMOP Patient transmissions"
^XMB(3.9,120,2,493,0)="""RTN"",""PSXRTR"",82,0)"
^XMB(3.9,120,2,494,0)=" S XX=$D(^XTMP(""PSXDIVERTCMOP""))"
^XMB(3.9,120,2,495,0)="""RTN"",""PSXRTR"",83,0)"
^XMB(3.9,120,2,496,0)=" S N=$S(XX>0:""HAD BEEN"",1:""HAD NOT BEEN"")"
^XMB(3.9,120,2,497,0)="""RTN"",""PSXRTR"",84,0)"
^XMB(3.9,120,2,498,0)=" W !,""CMOP Patient transmissions >>"",N,""<< diverted"""
^XMB(3.9,120,2,499,0)="""RTN"",""PSXRTR"",85,0)"
^XMB(3.9,120,2,500,0)=" I XX S XX=^XTMP(""PSXDIVERTCMOP"",1) W "" to "",$$GET1^DIQ(200,XX,.01)"
^XMB(3.9,120,2,501,0)="""RTN"",""PSXRTR"",86,0)"
^XMB(3.9,120,2,502,0)=" W ""."",!,""CMOP Patient transmissions are set to go to the CMOP."",!"
^XMB(3.9,120,2,503,0)="""RTN"",""PSXRTR"",87,0)"
^XMB(3.9,120,2,504,0)=" K ^XTMP(""PSXDIVERTCMOP"")"
^XMB(3.9,120,2,505,0)="""RTN"",""PSXRTR"",88,0)"
^XMB(3.9,120,2,506,0)=" Q"
^XMB(3.9,120,2,507,0)="""RTN"",""PSXRTRA1"")"
^XMB(3.9,120,2,508,0)="0^3^B16248666"
^XMB(3.9,120,2,509,0)="""RTN"",""PSXRTRA1"",1,0)"
^XMB(3.9,120,2,510,0)="PSXRTRA1 ;BIR/PDW-RETRANSMISSION REPORT SUBROUTINE ;11 AUG 2002"
^XMB(3.9,120,2,511,0)="""RTN"",""PSXRTRA1"",2,0)"
^XMB(3.9,120,2,512,0)=" ;;2.0;CMOP;**41,51**;11 Apr 97"
^XMB(3.9,120,2,513,0)="""RTN"",""PSXRTRA1"",3,0)"
^XMB(3.9,120,2,514,0)=" ;Reference to ^PSRX(   supported by DBIA #1977"
^XMB(3.9,120,2,515,0)="""RTN"",""PSXRTRA1"",4,0)"
^XMB(3.9,120,2,516,0)="REPORT ;"
^XMB(3.9,120,2,517,0)="""RTN"",""PSXRTRA1"",5,0)"
^XMB(3.9,120,2,518,0)=" K ^TMP($J,""PSXRTRPT""),LSSN S CNT=21"
^XMB(3.9,120,2,519,0)="""RTN"",""PSXRTRA1"",6,0)"
^XMB(3.9,120,2,520,0)=" S PTNM="""" F  S PTNM=$O(^PSX(550.2,OLDBAT,15,""C"",PTNM)) Q:PTNM=""""  D"
^XMB(3.9,120,2,521,0)="""RTN"",""PSXRTRA1"",7,0)"
^XMB(3.9,120,2,522,0)=" . S DFN=0 F  S LSSN="""" S DFN=$O(^PSX(550.2,OLDBAT,15,""C"",PTNM,DFN)) Q:DFN'>0  D RXS"
^XMB(3.9,120,2,523,0)="""RTN"",""PSXRTRA1"",8,0)"
^XMB(3.9,120,2,524,0)=" D MM"
^XMB(3.9,120,2,525,0)="""RTN"",""PSXRTRA1"",9,0)"
^XMB(3.9,120,2,526,0)=" K PTNM,RXPTR,XSTAT"
^XMB(3.9,120,2,527,0)="""RTN"",""PSXRTRA1"",10,0)"
^XMB(3.9,120,2,528,0)=" Q"
^XMB(3.9,120,2,529,0)="""RTN"",""PSXRTRA1"",11,0)"
^XMB(3.9,120,2,530,0)="RXS ;"
^XMB(3.9,120,2,531,0)="""RTN"",""PSXRTRA1"",12,0)"
^XMB(3.9,120,2,532,0)=" S RXPTR=0 F  S RXPTR=$O(^PSX(550.2,OLDBAT,15,""C"",PTNM,DFN,RXPTR)) Q:RXPTR=""""  D"
^XMB(3.9,120,2,533,0)="""RTN"",""PSXRTRA1"",13,0)"
^XMB(3.9,120,2,534,0)=" . S FILL=$O(^PSX(550.2,OLDBAT,15,""C"",PTNM,DFN,RXPTR,""""))"
^XMB(3.9,120,2,535,0)="""RTN"",""PSXRTRA1"",14,0)"
^XMB(3.9,120,2,536,0)=" . D TXT"
^XMB(3.9,120,2,537,0)="""RTN"",""PSXRTRA1"",15,0)"
^XMB(3.9,120,2,538,0)=" Q"
^XMB(3.9,120,2,539,0)="""RTN"",""PSXRTRA1"",16,0)"
^XMB(3.9,120,2,540,0)="MM S XMSUB=""CMOP Retransmission Report for ""_$G(OLDBATNM),XMDUZ=.5,XMDUN=""CMOP Managers"""
^XMB(3.9,120,2,541,0)="""RTN"",""PSXRTRA1"",17,0)"
^XMB(3.9,120,2,542,0)=" D XMZ^XMA2 G:$G(XMZ)'>0 MM"
^XMB(3.9,120,2,543,0)="""RTN"",""PSXRTRA1"",18,0)"
^XMB(3.9,120,2,544,0)=" S ^XMB(3.9,XMZ,2,1,0)=""CMOP Re-Transmission Report"""
^XMB(3.9,120,2,545,0)="""RTN"",""PSXRTRA1"",19,0)"
^XMB(3.9,120,2,546,0)=" S ^XMB(3.9,XMZ,2,2,0)=$G(PSXBATNM)_"" Re-Transmission of ""_$G(OLDBATNM)"
^XMB(3.9,120,2,547,0)="""RTN"",""PSXRTRA1"",20,0)"
^XMB(3.9,120,2,548,0)=" S ^XMB(3.9,XMZ,2,3,0)="" """
^XMB(3.9,120,2,549,0)="""RTN"",""PSXRTRA1"",21,0)"
^XMB(3.9,120,2,550,0)=" S ^XMB(3.9,XMZ,2,4,0)=""The Original Transmission # ""_$G(OLDBATNM)_"" contained:"""
^XMB(3.9,120,2,551,0)="""RTN"",""PSXRTRA1"",22,0)"
^XMB(3.9,120,2,552,0)=" S ^XMB(3.9,XMZ,2,5,0)=""Beginning Message Number: ""_$P(^PSX(550.2,OLDBAT,1),""^"",5)"
^XMB(3.9,120,2,553,0)="""RTN"",""PSXRTRA1"",23,0)"
^XMB(3.9,120,2,554,0)=" S ^XMB(3.9,XMZ,2,6,0)=""Ending Message Number   : ""_$P(^PSX(550.2,OLDBAT,1),""^"",6)"
^XMB(3.9,120,2,555,0)="""RTN"",""PSXRTRA1"",24,0)"
^XMB(3.9,120,2,556,0)=" S ^XMB(3.9,XMZ,2,7,0)=""Total Orders            : ""_$P(^PSX(550.2,OLDBAT,1),""^"",7)"
^XMB(3.9,120,2,557,0)="""RTN"",""PSXRTRA1"",25,0)"
^XMB(3.9,120,2,558,0)=" S ^XMB(3.9,XMZ,2,8,0)=""Total Rx's              : ""_$P(^PSX(550.2,OLDBAT,1),""^"",8)"
^XMB(3.9,120,2,559,0)="""RTN"",""PSXRTRA1"",26,0)"
^XMB(3.9,120,2,560,0)=" S ^XMB(3.9,XMZ,2,9,0)="" """
^XMB(3.9,120,2,561,0)="""RTN"",""PSXRTRA1"",27,0)"
^XMB(3.9,120,2,562,0)=" S ^XMB(3.9,XMZ,2,10,0)=""Retransmission # ""_$G(PSXBATNM)_"" contained:"""
^XMB(3.9,120,2,563,0)="""RTN"",""PSXRTRA1"",28,0)"
^XMB(3.9,120,2,564,0)=" S ^XMB(3.9,XMZ,2,11,0)=""Beginning Message Number: ""_$G(MCT)"
^XMB(3.9,120,2,565,0)="""RTN"",""PSXRTRA1"",29,0)"
^XMB(3.9,120,2,566,0)=" S ^XMB(3.9,XMZ,2,12,0)=""Ending Message Number   : ""_$G(LMSG)"
^XMB(3.9,120,2,567,0)="""RTN"",""PSXRTRA1"",30,0)"
^XMB(3.9,120,2,568,0)=" S ^XMB(3.9,XMZ,2,13,0)=""Total Orders            : ""_$G(PSXMSGCT)"
^XMB(3.9,120,2,569,0)="""RTN"",""PSXRTRA1"",31,0)"
^XMB(3.9,120,2,570,0)=" S ^XMB(3.9,XMZ,2,14,0)=""Total Rx's              : ""_$G(PSXRXCT)"
^XMB(3.9,120,2,571,0)="""RTN"",""PSXRTRA1"",32,0)"
^XMB(3.9,120,2,572,0)=" S ^XMB(3.9,XMZ,2,15,0)="" """
^XMB(3.9,120,2,573,0)="""RTN"",""PSXRTRA1"",33,0)"
^XMB(3.9,120,2,574,0)=" S ^XMB(3.9,XMZ,2,16,0)=""Following is a list of the original prescription orders and their status."""
^XMB(3.9,120,2,575,0)="""RTN"",""PSXRTRA1"",34,0)"
^XMB(3.9,120,2,576,0)=" S ^XMB(3.9,XMZ,2,17,0)=""** Prescriptions that have been refilled or released are not sent. **"""
^XMB(3.9,120,2,577,0)="""RTN"",""PSXRTRA1"",35,0)"
^XMB(3.9,120,2,578,0)=" I '$D(^TMP($J,""PSXRTRPT"")) S ^XMB(3.9,XMZ,17,0)=""All prescriptions were transmitted"" S CNT=17 G MAIL"
^XMB(3.9,120,2,579,0)="""RTN"",""PSXRTRA1"",36,0)"
^XMB(3.9,120,2,580,0)=" F JJ=18,19,20 S ^XMB(3.9,XMZ,2,JJ,0)="" """
^XMB(3.9,120,2,581,0)="""RTN"",""PSXRTRA1"",37,0)"
^XMB(3.9,120,2,582,0)=" S XX=""Patient"",Y=""SSN"",XX=$$SETSTR^VALM1(""SSN"",XX,25,3)"
^XMB(3.9,120,2,583,0)="""RTN"",""PSXRTRA1"",38,0)"
^XMB(3.9,120,2,584,0)=" S XX=$$SETSTR^VALM1(""RX"",XX,40,2),XX=$$SETSTR^VALM1(""RELEASE DATE | FILL'="",XX,55,21)"
^XMB(3.9,120,2,585,0)="""RTN"",""PSXRTRA1"",39,0)"
^XMB(3.9,120,2,586,0)=" S ^XMB(3.9,XMZ,2,21,0)=XX"
^XMB(3.9,120,2,587,0)="""RTN"",""PSXRTRA1"",40,0)"
^XMB(3.9,120,2,588,0)=" M ^XMB(3.9,XMZ,2)=^TMP($J,""PSXRTRPT"",""MM"")"
^XMB(3.9,120,2,589,0)="""RTN"",""PSXRTRA1"",41,0)"
^XMB(3.9,120,2,590,0)="MAIL ;"
^XMB(3.9,120,2,591,0)="""RTN"",""PSXRTRA1"",42,0)"
^XMB(3.9,120,2,592,0)=" S ^XMB(3.9,XMZ,2,0)=""^3.92A^""_CNT_""^""_CNT_""^""_DT"
^XMB(3.9,120,2,593,0)="""RTN"",""PSXRTRA1"",43,0)"
^XMB(3.9,120,2,594,0)=" K XMY"
^XMB(3.9,120,2,595,0)="""RTN"",""PSXRTRA1"",44,0)"
^XMB(3.9,120,2,596,0)=" S XMY(DUZ)="""" ;****TESTING"
^XMB(3.9,120,2,597,0)="""RTN"",""PSXRTRA1"",45,0)"
^XMB(3.9,120,2,598,0)=" D GRP^PSXNOTE ;****TESTING"
^XMB(3.9,120,2,599,0)="""RTN"",""PSXRTRA1"",46,0)"
^XMB(3.9,120,2,600,0)=" D ENT1^XMD"
^XMB(3.9,120,2,601,0)="""RTN"",""PSXRTRA1"",47,0)"
^XMB(3.9,120,2,602,0)=" Q"
^XMB(3.9,120,2,603,0)="""RTN"",""PSXRTRA1"",48,0)"
^XMB(3.9,120,2,604,0)="TXT ; store PAT & RX info for mail message"
^XMB(3.9,120,2,605,0)="""RTN"",""PSXRTRA1"",49,0)"
^XMB(3.9,120,2,606,0)=" D DEM^VADPT S SSN=$P(VADM(2),U,2),PATNM=VADM(1)"
^XMB(3.9,120,2,607,0)="""RTN"",""PSXRTRA1"",50,0)"
^XMB(3.9,120,2,608,0)=" S RXNM=$P(^PSRX(RXPTR,0),U)_""-""_FILL"
^XMB(3.9,120,2,609,0)="""RTN"",""PSXRTRA1"",51,0)"
^XMB(3.9,120,2,610,0)=" S XSTAT="""""
^XMB(3.9,120,2,611,0)="""RTN"",""PSXRTRA1"",52,0)"
^XMB(3.9,120,2,612,0)=" I '$D(^PSX(550.2,PSXBAT,15,""B"",RXPTR)) D"
^XMB(3.9,120,2,613,0)="""RTN"",""PSXRTRA1"",53,0)"
^XMB(3.9,120,2,614,0)=" .S XSTAT=$$TESTREL^PSXRTRAN(RXPTR,FILL)"
^XMB(3.9,120,2,615,0)="""RTN"",""PSXRTRA1"",54,0)"
^XMB(3.9,120,2,616,0)=" .S:XSTAT=""SENT"" XSTAT=""OTHER"""
^XMB(3.9,120,2,617,0)="""RTN"",""PSXRTRA1"",55,0)"
^XMB(3.9,120,2,618,0)=" S XX="""""
^XMB(3.9,120,2,619,0)="""RTN"",""PSXRTRA1"",56,0)"
^XMB(3.9,120,2,620,0)=" I $G(LSSN)'=SSN D"
^XMB(3.9,120,2,621,0)="""RTN"",""PSXRTRA1"",57,0)"
^XMB(3.9,120,2,622,0)=" . S XX=$E(PATNM,1,23)"
^XMB(3.9,120,2,623,0)="""RTN"",""PSXRTRA1"",58,0)"
^XMB(3.9,120,2,624,0)=" . S XX=$$SETSTR^VALM1(SSN,XX,25,$L(SSN))"
^XMB(3.9,120,2,625,0)="""RTN"",""PSXRTRA1"",59,0)"
^XMB(3.9,120,2,626,0)=" S XX=$$SETSTR^VALM1(RXNM,XX,40,$L(RXNM))"
^XMB(3.9,120,2,627,0)="""RTN"",""PSXRTRA1"",60,0)"
^XMB(3.9,120,2,628,0)=" S:$L(XSTAT) XX=$$SETSTR^VALM1(XSTAT,XX,60,$L(XSTAT))"
^XMB(3.9,120,2,629,0)="""RTN"",""PSXRTRA1"",61,0)"
^XMB(3.9,120,2,630,0)=" S CNT=$G(CNT)+1,LSSN=SSN"
^XMB(3.9,120,2,631,0)="""RTN"",""PSXRTRA1"",62,0)"
^XMB(3.9,120,2,632,0)=" S ^TMP($J,""PSXRTRPT"",""MM"",CNT,0)=XX"
^XMB(3.9,120,2,633,0)="""RTN"",""PSXRTRA1"",63,0)"
^XMB(3.9,120,2,634,0)=" Q"
^XMB(3.9,120,2,635,0)="""RTN"",""PSXRTRA1"",64,0)"
^XMB(3.9,120,2,636,0)="CANMSG ; lock on 550.1 not achieved send transmission cancelled message"
^XMB(3.9,120,2,637,0)="""RTN"",""PSXRTRA1"",65,0)"
^XMB(3.9,120,2,638,0)=" S PSXCS=+$G(PSXCS)"
^XMB(3.9,120,2,639,0)="""RTN"",""PSXRTRA1"",66,0)"
^XMB(3.9,120,2,640,0)=" S XMSUB=$S($G(PSXCS):"""",1:""NON-"")_""CS Retransmission Cancelled"""
^XMB(3.9,120,2,641,0)="""RTN"",""PSXRTRA1"",67,0)"
^XMB(3.9,120,2,642,0)=" S XMTEXT=""TXT("""
^XMB(3.9,120,2,643,0)="""RTN"",""PSXRTRA1"",68,0)"
^XMB(3.9,120,2,644,0)=" S TXT(1,0)=""The ""_$S($G(PSXCS):"""",1:""NON-"")_""CS Manual Transmission was cancelled ""_$$GET1^DIQ(550.2,OLDBAT,.01)"
^XMB(3.9,120,2,645,0)="""RTN"",""PSXRTRA1"",69,0)"
^XMB(3.9,120,2,646,0)=" S TXT(2,0)=""It could not obtain a lock on the RX QUEUE file. #550.1"""
^XMB(3.9,120,2,647,0)="""RTN"",""PSXRTRA1"",70,0)"
^XMB(3.9,120,2,648,0)=" S TXT(3,0)=""This indicates that a transmission was in progress."""
^XMB(3.9,120,2,649,0)="""RTN"",""PSXRTRA1"",71,0)"
^XMB(3.9,120,2,650,0)=" S TXT(6,0)="" """
^XMB(3.9,120,2,651,0)="""RTN"",""PSXRTRA1"",72,0)"
^XMB(3.9,120,2,652,0)=" S TXT(7,0)=""If you are getting this message frequently, please contact your IRM Group"""
^XMB(3.9,120,2,653,0)="""RTN"",""PSXRTRA1"",73,0)"
^XMB(3.9,120,2,654,0)=" D EN^PSXNOTE ;****TESTING"
^XMB(3.9,120,2,655,0)="""RTN"",""PSXRTRA1"",74,0)"
^XMB(3.9,120,2,656,0)=" D ^XMD"
^XMB(3.9,120,2,657,0)="""RTN"",""PSXRTRA1"",75,0)"
^XMB(3.9,120,2,658,0)=" Q"
^XMB(3.9,120,2,659,0)="""RTN"",""PSXRTRA1"",76,0)"
^XMB(3.9,120,2,660,0)="SETSTAT ;Set RX CMOP status to re-transmitted"
^XMB(3.9,120,2,661,0)="""RTN"",""PSXRTRA1"",77,0)"
^XMB(3.9,120,2,662,0)=" N RXDA,CMPDA"
^XMB(3.9,120,2,663,0)="""RTN"",""PSXRTRA1"",78,0)"
^XMB(3.9,120,2,664,0)=" S RXDA=0 F  S RXDA=$O(^PSX(550.2,PSXBAT,15,""B"",RXDA)) Q:RXDA'>0  D"
^XMB(3.9,120,2,665,0)="""RTN"",""PSXRTRA1"",79,0)"
^XMB(3.9,120,2,666,0)=" . S CMPDA=$O(^PSRX(RXDA,4,""B"",OLDBAT,0)) Q:'CMPDA"
^XMB(3.9,120,2,667,0)="""RTN"",""PSXRTRA1"",80,0)"
^XMB(3.9,120,2,668,0)=" . Q:'CMPDA  Q:'$D(^PSRX(RXDA,4,CMPDA,0))"
^XMB(3.9,120,2,669,0)="""RTN"",""PSXRTRA1"",81,0)"
^XMB(3.9,120,2,670,0)=" . S $P(^PSRX(RXDA,4,CMPDA,0),U,4)=2"
^XMB(3.9,120,2,671,0)="""RTN"",""PSXRTRA1"",82,0)"
^XMB(3.9,120,2,672,0)=" Q"
^XMB(3.9,120,2,673,0)="""RTN"",""PSXRTRAN"")"
^XMB(3.9,120,2,674,0)="0^1^B63996798"
^XMB(3.9,120,2,675,0)="""RTN"",""PSXRTRAN"",1,0)"
^XMB(3.9,120,2,676,0)="PSXRTRAN ;BIR/WPB/PDW-Batch Retransmission Routine ;13 Mar 2002  3:09 PM"
^XMB(3.9,120,2,677,0)="""RTN"",""PSXRTRAN"",2,0)"
^XMB(3.9,120,2,678,0)=" ;;2.0;CMOP;**18,27,31,41,51**;11 Apr 97"
^XMB(3.9,120,2,679,0)="""RTN"",""PSXRTRAN"",3,0)"
^XMB(3.9,120,2,680,0)=" ;Reference to ^PS(59,  supported by DBIA #1976"
^XMB(3.9,120,2,681,0)="""RTN"",""PSXRTRAN"",4,0)"
^XMB(3.9,120,2,682,0)=" ;Reference to ^PS(59.7 supported by DBIA #694"
^XMB(3.9,120,2,683,0)="""RTN"",""PSXRTRAN"",5,0)"
^XMB(3.9,120,2,684,0)=" ;Reference to ^PSRX(   supported by DBIA #1977"
^XMB(3.9,120,2,685,0)="""RTN"",""PSXRTRAN"",6,0)"
^XMB(3.9,120,2,686,0)=" ;"
^XMB(3.9,120,2,687,0)="""RTN"",""PSXRTRAN"",7,0)"
^XMB(3.9,120,2,688,0)="START I '$D(^XUSEC(""PSXCMOPMGR"",DUZ)) D NO Q"
^XMB(3.9,120,2,689,0)="""RTN"",""PSXRTRAN"",8,0)"
^XMB(3.9,120,2,690,0)=" I '$D(^XUSEC(""PSXRTRAN"",DUZ)) D NO Q"
^XMB(3.9,120,2,691,0)="""RTN"",""PSXRTRAN"",9,0)"
^XMB(3.9,120,2,692,0)=" I '$D(^XUSEC(""PSX XMIT"",DUZ)) D NO Q"
^XMB(3.9,120,2,693,0)="""RTN"",""PSXRTRAN"",10,0)"
^XMB(3.9,120,2,694,0)=" D SET^PSXSYS"
^XMB(3.9,120,2,695,0)="""RTN"",""PSXRTRAN"",11,0)"
^XMB(3.9,120,2,696,0)=" I '$D(PSXSYS) W !,""CMOP processing is inactivated, re-transmission of data not allowed."" Q"
^XMB(3.9,120,2,697,0)="""RTN"",""PSXRTRAN"",12,0)"
^XMB(3.9,120,2,698,0)=" S PSXJOB=2"
^XMB(3.9,120,2,699,0)="""RTN"",""PSXRTRAN"",13,0)"
^XMB(3.9,120,2,700,0)=" I $D(^PSX(550,""TR"",""T"")) W !,""There is another job in progress, try again later."" G EXIT"
^XMB(3.9,120,2,701,0)="""RTN"",""PSXRTRAN"",14,0)"
^XMB(3.9,120,2,702,0)=" L +PSX(550.1):3 I '$T W !,""There is another job in progress, try again later."" G EXIT"
^XMB(3.9,120,2,703,0)="""RTN"",""PSXRTRAN"",15,0)"
^XMB(3.9,120,2,704,0)=" I '$D(^PSX(550.2,""AX"")) W !!,""No data to re-transmit."" G EXIT"
^XMB(3.9,120,2,705,0)="""RTN"",""PSXRTRAN"",16,0)"
^XMB(3.9,120,2,706,0)=" S DIC=""^PSX(550.2,"",DIC(0)=""AMZEQ"",DIC(""S"")=""I ($D(^PSX(550.2,""""AX"""",+Y))),($P($G(^PSX(550.2,+Y,1)),U,3)=""""""""),($P($G(^PSX(550.2,+Y,1)),U,1)="""""""")"""
^XMB(3.9,120,2,707,0)="""RTN"",""PSXRTRAN"",17,0)"
^XMB(3.9,120,2,708,0)=" D ^DIC K DIC,DIC(""S""),DIC(0)"
^XMB(3.9,120,2,709,0)="""RTN"",""PSXRTRAN"",18,0)"
^XMB(3.9,120,2,710,0)=" G:$D(DTOUT)!($D(DUOUT))!($G(Y)'>0) EXIT"
^XMB(3.9,120,2,711,0)="""RTN"",""PSXRTRAN"",19,0)"
^XMB(3.9,120,2,712,0)=" S OLDBAT=+Y K Y,TRAN,TRANI"
^XMB(3.9,120,2,713,0)="""RTN"",""PSXRTRAN"",20,0)"
^XMB(3.9,120,2,714,0)=" D GETS^DIQ(550.2,OLDBAT,"".01;2;3;5;14;17"","""",""TRAN""),TOP^PSXUTL(""TRAN"") ;external of fields"
^XMB(3.9,120,2,715,0)="""RTN"",""PSXRTRAN"",21,0)"
^XMB(3.9,120,2,716,0)=" D GETS^DIQ(550.2,OLDBAT,"".01;2;3;5;14;17"",""I"",""TRANI""),TOP^PSXUTL(""TRANI"") ;internal of fields"
^XMB(3.9,120,2,717,0)="""RTN"",""PSXRTRAN"",22,0)"
^XMB(3.9,120,2,718,0)=" S OLDBATNM=TRAN(.01)"
^XMB(3.9,120,2,719,0)="""RTN"",""PSXRTRAN"",23,0)"
^XMB(3.9,120,2,720,0)=" W !,""Transmission:       ""_TRAN(.01)"
^XMB(3.9,120,2,721,0)="""RTN"",""PSXRTRAN"",24,0)"
^XMB(3.9,120,2,722,0)=" W !,""Date:               ""_TRAN(5)"
^XMB(3.9,120,2,723,0)="""RTN"",""PSXRTRAN"",25,0)"
^XMB(3.9,120,2,724,0)=" W !,""Division:           ""_TRAN(2)"
^XMB(3.9,120,2,725,0)="""RTN"",""PSXRTRAN"",26,0)"
^XMB(3.9,120,2,726,0)=" W !,""Type:               ""_TRAN(17)"
^XMB(3.9,120,2,727,0)="""RTN"",""PSXRTRAN"",27,0)"
^XMB(3.9,120,2,728,0)=" W !,""CMOP Host:          ""_TRAN(3)"
^XMB(3.9,120,2,729,0)="""RTN"",""PSXRTRAN"",28,0)"
^XMB(3.9,120,2,730,0)=" W !,""Total RXs:          ""_TRAN(14)"
^XMB(3.9,120,2,731,0)="""RTN"",""PSXRTRAN"",29,0)"
^XMB(3.9,120,2,732,0)=" S TYP=$S(TRANI(17)=""C"":""CS"",1:""STD"")"
^XMB(3.9,120,2,733,0)="""RTN"",""PSXRTRAN"",30,0)"
^XMB(3.9,120,2,734,0)=" S PSXCS=$S(TYP=""CS"":1,1:0) D SET^PSXSYS"
^XMB(3.9,120,2,735,0)="""RTN"",""PSXRTRAN"",31,0)"
^XMB(3.9,120,2,736,0)=" I TRANI(3)'=+PSXSYS W !!,$$GET1^DIQ(550,+PSXSYS,.01)_"" is the active host for transmitting ""_TRAN(17) G EXIT"
^XMB(3.9,120,2,737,0)="""RTN"",""PSXRTRAN"",32,0)"
^XMB(3.9,120,2,738,0)="CLOSED S CLOSED=$P($G(^PSX(550.2,OLDBAT,1)),U,1)"
^XMB(3.9,120,2,739,0)="""RTN"",""PSXRTRAN"",33,0)"
^XMB(3.9,120,2,740,0)=" I CLOSED'="""" W !,""The transmission selected has been acknowledged and cannot be re-transmitted."" D RESET G EXIT"
^XMB(3.9,120,2,741,0)="""RTN"",""PSXRTRAN"",34,0)"
^XMB(3.9,120,2,742,0)=" I $P($G(^PSX(550.2,OLDBAT,1)),U,2)'="""" W !!,""This transmission has been re-transmitted once and cannot"",!,""be retransmitted again."" D RESET G ERRMSG^PSXERR1"
^XMB(3.9,120,2,743,0)="""RTN"",""PSXRTRAN"",35,0)"
^XMB(3.9,120,2,744,0)=" W !!"
^XMB(3.9,120,2,745,0)="""RTN"",""PSXRTRAN"",36,0)"
^XMB(3.9,120,2,746,0)=" S BMSG=$P($G(^PSX(550.2,OLDBAT,1)),U,5)-1,EMSG=$P($G(^PSX(550.2,OLDBAT,1)),U,6),PSOSITE=$P($G(^PSX(550.2,OLDBAT,0)),""^"",3)"
^XMB(3.9,120,2,747,0)="""RTN"",""PSXRTRAN"",37,0)"
^XMB(3.9,120,2,748,0)=" S PSXSTART=BMSG+1,PSXDUZ=DUZ,PSXSITE=$P($G(PSXSYS),U,3)"
^XMB(3.9,120,2,749,0)="""RTN"",""PSXRTRAN"",38,0)"
^XMB(3.9,120,2,750,0)=" S SNDR=$$GET1^DIQ(200,$P($G(^PSX(550.2,OLDBAT,0)),U,5),.01)"
^XMB(3.9,120,2,751,0)="""RTN"",""PSXRTRAN"",39,0)"
^XMB(3.9,120,2,752,0)=" S DIV=$P($G(^PS(59,$P($G(^PSX(550.2,OLDBAT,0)),U,3),0)),U,1),Y=$P($G(^PSX(550.2,OLDBAT,0)),U,6) X ^DD(""DD"") S TRNDT=Y"
^XMB(3.9,120,2,753,0)="""RTN"",""PSXRTRAN"",40,0)"
^XMB(3.9,120,2,754,0)=" W !,""   *** Coordinate re-transmissions with "",$$GET1^DIQ(550,+PSXSYS,.01),"" CMOP ***"",!"
^XMB(3.9,120,2,755,0)="""RTN"",""PSXRTRAN"",41,0)"
^XMB(3.9,120,2,756,0)=" S DIR(0)=""Y^O"",DIR(""B"")=""NO"",DIR(""A"")=""Are you sure you want to Re-transmit this batch"" D ^DIR K DIR"
^XMB(3.9,120,2,757,0)="""RTN"",""PSXRTRAN"",42,0)"
^XMB(3.9,120,2,758,0)=" I Y=0!($D(DIRUT)) D RESET G EXIT"
^XMB(3.9,120,2,759,0)="""RTN"",""PSXRTRAN"",43,0)"
^XMB(3.9,120,2,760,0)="QUE ;"
^XMB(3.9,120,2,761,0)="""RTN"",""PSXRTRAN"",44,0)"
^XMB(3.9,120,2,762,0)=" F YY=""PSXMFLAG"",""BMSG"",""EMSG"",""PSXSYS"",""OLDBAT*"",""PSXDUZ"",""PSXJOB"",""PSXSITE"",""PSOSITE"",""PSXSTART"",""PSXJOB"",""PSXSITE"",""TRAN*"",""PSXCS"" S ZTSAVE(YY)="""""
^XMB(3.9,120,2,763,0)="""RTN"",""PSXRTRAN"",45,0)"
^XMB(3.9,120,2,764,0)=" S ZTDTH=$H,ZTSAVE(""ZZDATA"")="""",ZTIO="""",ZTRTN=""ENTRAN^PSXRTRAN"",ZTDESC=""CMOP Retransmission"""
^XMB(3.9,120,2,765,0)="""RTN"",""PSXRTRAN"",46,0)"
^XMB(3.9,120,2,766,0)=" D ^%ZTLOAD ;****TESTING"
^XMB(3.9,120,2,767,0)="""RTN"",""PSXRTRAN"",47,0)"
^XMB(3.9,120,2,768,0)=" ;D ENTRAN S PSXSTAT=""H"" D PSXSTAT^PSXRSYU G EXIT ;****TESTING ;to run in the foreground uncomment this line and comment out the previous line"
^XMB(3.9,120,2,769,0)="""RTN"",""PSXRTRAN"",48,0)"
^XMB(3.9,120,2,770,0)=" I $D(ZTSK)[0 W !!,""Job Cancelled"" G EXIT"
^XMB(3.9,120,2,771,0)="""RTN"",""PSXRTRAN"",49,0)"
^XMB(3.9,120,2,772,0)=" E  W !!,""Re-transmission Queued ""_ZTSK"
^XMB(3.9,120,2,773,0)="""RTN"",""PSXRTRAN"",50,0)"
^XMB(3.9,120,2,774,0)=" S PSXSTAT=""T"" D PSXSTAT^PSXRSYU"
^XMB(3.9,120,2,775,0)="""RTN"",""PSXRTRAN"",51,0)"
^XMB(3.9,120,2,776,0)=" G EXIT"
^XMB(3.9,120,2,777,0)="""RTN"",""PSXRTRAN"",52,0)"
^XMB(3.9,120,2,778,0)="TXT I $G(ORD)]"""" S LCNT=LCNT+1,^XMB(3.9,XMZ,2,LCNT,0)=ORD"
^XMB(3.9,120,2,779,0)="""RTN"",""PSXRTRAN"",53,0)"
^XMB(3.9,120,2,780,0)=" Q"
^XMB(3.9,120,2,781,0)="""RTN"",""PSXRTRAN"",54,0)"
^XMB(3.9,120,2,782,0)="ENTRAN ;Entry for data transmission"
^XMB(3.9,120,2,783,0)="""RTN"",""PSXRTRAN"",55,0)"
^XMB(3.9,120,2,784,0)="LOCK ; >>>**** LOCK OF FILE 550.1 ****<<<"
^XMB(3.9,120,2,785,0)="""RTN"",""PSXRTRAN"",56,0)"
^XMB(3.9,120,2,786,0)=" F I=1:1:3 L +^PSX(550.1):6 I $T S I=100"
^XMB(3.9,120,2,787,0)="""RTN"",""PSXRTRAN"",57,0)"
^XMB(3.9,120,2,788,0)=" I I'=100 D CANMSG G EXIT ; could not get a lock in 18 minutes of waiting"
^XMB(3.9,120,2,789,0)="""RTN"",""PSXRTRAN"",58,0)"
^XMB(3.9,120,2,790,0)=" K ^TMP($J,""PSX""),^TMP($J,""PSXDFN""),ZCNT,PSXBAT"
^XMB(3.9,120,2,791,0)="""RTN"",""PSXRTRAN"",59,0)"
^XMB(3.9,120,2,792,0)=" S PSOPAR=^PS(59,PSOSITE,1)"
^XMB(3.9,120,2,793,0)="""RTN"",""PSXRTRAN"",60,0)"
^XMB(3.9,120,2,794,0)=" S PSXTDIV=PSOSITE,PSXTYP=$S(+$G(PSXCS):""C"",1:""N"")"
^XMB(3.9,120,2,795,0)="""RTN"",""PSXRTRAN"",61,0)"
^XMB(3.9,120,2,796,0)=" S PSOLAP=ION,PSOSYS=$G(^PS(59.7,1,40.1)),PSXTRANS=1,PSXFLAG=1"
^XMB(3.9,120,2,797,0)="""RTN"",""PSXRTRAN"",62,0)"
^XMB(3.9,120,2,798,0)=" S PSOINST=+$P(PSXSYS,""^"",2)"
^XMB(3.9,120,2,799,0)="""RTN"",""PSXRTRAN"",63,0)"
^XMB(3.9,120,2,800,0)=" S PSXVENDR=""AUTOMATED SYSTEM"""
^XMB(3.9,120,2,801,0)="""RTN"",""PSXRTRAN"",64,0)"
^XMB(3.9,120,2,802,0)=" S PSXRTRAN=1,PSXRTRN=1,ZTREQ=""@"""
^XMB(3.9,120,2,803,0)="""RTN"",""PSXRTRAN"",65,0)"
^XMB(3.9,120,2,804,0)="RESETRX ; pull, reset RXs from 550.2 RX multiple, if released do not send, make report"
^XMB(3.9,120,2,805,0)="""RTN"",""PSXRTRAN"",66,0)"
^XMB(3.9,120,2,806,0)=" K ^TMP($J,""PSXRTRAN""),LCNT"
^XMB(3.9,120,2,807,0)="""RTN"",""PSXRTRAN"",67,0)"
^XMB(3.9,120,2,808,0)=" S PSXERFLG=0 S PSXFLAG=1,PSXRTRAN=1"
^XMB(3.9,120,2,809,0)="""RTN"",""PSXRTRAN"",68,0)"
^XMB(3.9,120,2,810,0)=" F NI=1:1 Q:'$D(^PSX(550.2,OLDBAT,15,NI,0))  S XX=^(0) D"
^XMB(3.9,120,2,811,0)="""RTN"",""PSXRTRAN"",69,0)"
^XMB(3.9,120,2,812,0)=" . N NI"
^XMB(3.9,120,2,813,0)="""RTN"",""PSXRTRAN"",70,0)"
^XMB(3.9,120,2,814,0)=" . S RXDA=$P(XX,U,1),FILL=$P(XX,U,2),DFN=$P(XX,U,3),REC=$P(XX,U,5)"
^XMB(3.9,120,2,815,0)="""RTN"",""PSXRTRAN"",71,0)"
^XMB(3.9,120,2,816,0)=" . S TEST=$$TESTREL(RXDA,FILL) ; test & catalog RXs for report, 'SENT' if OK, ""FILL '="" if more recent fill, 'released date' if released "
^XMB(3.9,120,2,817,0)="""RTN"",""PSXRTRAN"",72,0)"
^XMB(3.9,120,2,818,0)=" . Q:TEST'=""SENT"""
^XMB(3.9,120,2,819,0)="""RTN"",""PSXRTRAN"",73,0)"
^XMB(3.9,120,2,820,0)=" . Q:'$D(^PS(52.5,""B"",RXDA))  ;RX pulled early from suspense"
^XMB(3.9,120,2,821,0)="""RTN"",""PSXRTRAN"",74,0)"
^XMB(3.9,120,2,822,0)=" . D RESET^PSXNEW(RXDA,FILL,""Re-Trans of ""_OLDBAT)"
^XMB(3.9,120,2,823,0)="""RTN"",""PSXRTRAN"",75,0)"
^XMB(3.9,120,2,824,0)=" . D SDT ;test/set RX into 550.2"
^XMB(3.9,120,2,825,0)="""RTN"",""PSXRTRAN"",76,0)"
^XMB(3.9,120,2,826,0)=" ;"
^XMB(3.9,120,2,827,0)="""RTN"",""PSXRTRAN"",77,0)"
^XMB(3.9,120,2,828,0)=" I '$G(PSXBAT) D NOTRAN G EXIT ;no RXs passed retesting"
^XMB(3.9,120,2,829,0)="""RTN"",""PSXRTRAN"",78,0)"
^XMB(3.9,120,2,830,0)=" I PSXERFLG=1 S PSXJOB=7 D ^PSXERR"
^XMB(3.9,120,2,831,0)="""RTN"",""PSXRTRAN"",79,0)"
^XMB(3.9,120,2,832,0)=" D EN^PSXBLD ; build 550.1 entries related to PSXBAT"
^XMB(3.9,120,2,833,0)="""RTN"",""PSXRTRAN"",80,0)"
^XMB(3.9,120,2,834,0)=" I PSXERFLG=1 S PFLAG=1 D EN^PSXERR"
^XMB(3.9,120,2,835,0)="""RTN"",""PSXRTRAN"",81,0)"
^XMB(3.9,120,2,836,0)=" S OLDSDT=$P($G(^PSX(550.2,OLDBAT,0)),""^"",6)"
^XMB(3.9,120,2,837,0)="""RTN"",""PSXRTRAN"",82,0)"
^XMB(3.9,120,2,838,0)=" S PSXSENDR=$$GET1^DIQ(200,PSXDUZ,.01),(SITEN,SITENUM)=$P($G(PSXSYS),U,2),PSXEND=EMSG,PSXDIV=$P($G(^PS(59,+PSOSITE,0)),U,1),XSITE=$P($G(^PS(59,+PSOSITE,0)),U,6)"
^XMB(3.9,120,2,839,0)="""RTN"",""PSXRTRAN"",83,0)"
^XMB(3.9,120,2,840,0)=" S PSXSTART=$O(^PSX(550.1,""C"",PSXBAT,0)),(PSXEND,EMSG)=$O(^PSX(550.1,""C"",PSXBAT,""A""),-1)"
^XMB(3.9,120,2,841,0)="""RTN"",""PSXRTRAN"",84,0)"
^XMB(3.9,120,2,842,0)=" S PSXBATNM=$$GET1^DIQ(550.2,PSXBAT,.01)"
^XMB(3.9,120,2,843,0)="""RTN"",""PSXRTRAN"",85,0)"
^XMB(3.9,120,2,844,0)=" S PSXHDR=PSXSITE_U_+PSXSYS_U_SITENUM_U_PSXTDT_U_PSXSENDR_U_PSXSTART_U_EMSG_U_PSXDIV_U_XSITE,PSXREF=SITENUM_""-""_PSXBATNM"
^XMB(3.9,120,2,845,0)="""RTN"",""PSXRTRAN"",86,0)"
^XMB(3.9,120,2,846,0)=" N DOMAIN,LCNT,XMDUZ,XMSUB,XMZ,ORD"
^XMB(3.9,120,2,847,0)="""RTN"",""PSXRTRAN"",87,0)"
^XMB(3.9,120,2,848,0)=" S (LCNT,PSXMSGCT,PSXRXCT)=0"
^XMB(3.9,120,2,849,0)="""RTN"",""PSXRTRAN"",88,0)"
^XMB(3.9,120,2,850,0)=" S X=$$KSP^XUPARAM(""INST""),DIC=""4"",DIC(0)=""MOXZ"" D ^DIC S SITEX=$P(Y,""^"",2),XMDUZ=.5 K X,Y,DIC"
^XMB(3.9,120,2,851,0)="""RTN"",""PSXRTRAN"",89,0)"
^XMB(3.9,120,2,852,0)="XMZ S XMSUB=""CMOP Retransmission Update from ""_SITEX"
^XMB(3.9,120,2,853,0)="""RTN"",""PSXRTRAN"",90,0)"
^XMB(3.9,120,2,854,0)=" D XMZ^XMA2"
^XMB(3.9,120,2,855,0)="""RTN"",""PSXRTRAN"",91,0)"
^XMB(3.9,120,2,856,0)=" I XMZ'>0 H 2 G XMZ"
^XMB(3.9,120,2,857,0)="""RTN"",""PSXRTRAN"",92,0)"
^XMB(3.9,120,2,858,0)="HDR ;Get header data"
^XMB(3.9,120,2,859,0)="""RTN"",""PSXRTRAN"",93,0)"
^XMB(3.9,120,2,860,0)=" S ORD=""$$RMIT""_U_PSXBATNM_U_PSXHDR_U_OLDBATNM D TXT"
^XMB(3.9,120,2,861,0)="""RTN"",""PSXRTRAN"",94,0)"
^XMB(3.9,120,2,862,0)=" S PSXTYP=TRANI(17),PSXTDIV=TRANI(2)"
^XMB(3.9,120,2,863,0)="""RTN"",""PSXRTRAN"",95,0)"
^XMB(3.9,120,2,864,0)=" S ORD=$G(PSXORD(""A"")) D TXT"
^XMB(3.9,120,2,865,0)="""RTN"",""PSXRTRAN"",96,0)"
^XMB(3.9,120,2,866,0)=" S:$G(PSXORD(""B"",1))="""" PSXORD(""B"",1)=""NTE|2||"""
^XMB(3.9,120,2,867,0)="""RTN"",""PSXRTRAN"",97,0)"
^XMB(3.9,120,2,868,0)=" S:$G(PSXORD(""C"",1))="""" PSXORD(""C"",1)=""NTE|3||"""
^XMB(3.9,120,2,869,0)="""RTN"",""PSXRTRAN"",98,0)"
^XMB(3.9,120,2,870,0)=" S:$G(PSXORD(""D"",1))="""" PSXORD(""D"",1)=""NTE|4||"""
^XMB(3.9,120,2,871,0)="""RTN"",""PSXRTRAN"",99,0)"
^XMB(3.9,120,2,872,0)=" F ZZ=""B"",""C"",""D"" S Z=0 F  S Z=$O(PSXORD(ZZ,Z)) Q:Z'>0  S ORD=$G(PSXORD(ZZ,Z)) D TXT"
^XMB(3.9,120,2,873,0)="""RTN"",""PSXRTRAN"",100,0)"
^XMB(3.9,120,2,874,0)="MSG ;Get patient order data"
^XMB(3.9,120,2,875,0)="""RTN"",""PSXRTRAN"",101,0)"
^XMB(3.9,120,2,876,0)=" S (LMSG,MSG)=0"
^XMB(3.9,120,2,877,0)="""RTN"",""PSXRTRAN"",102,0)"
^XMB(3.9,120,2,878,0)=" F  S MSG=$O(^PSX(550.1,""C"",PSXBAT,MSG)) Q:MSG'>0  S:$G(MCT)'>0 MCT=MSG S LMSG=MSG,PSXMSGCT=PSXMSGCT+1,LNTX=+$P(^PSX(550.1,MSG,""T"",0),U,4) D"
^XMB(3.9,120,2,879,0)="""RTN"",""PSXRTRAN"",103,0)"
^XMB(3.9,120,2,880,0)=" .S ORD=""$MSG^""_+$G(^PSX(550.1,MSG,0))_U_LNTX D TXT"
^XMB(3.9,120,2,881,0)="""RTN"",""PSXRTRAN"",104,0)"
^XMB(3.9,120,2,882,0)=" .F PSX=1:1:LNTX I $G(^PSX(550.1,MSG,""T"",PSX,0))]"""" S ORD=$G(^(0)) S:$E(ORD,1,7)=""ORC|NW|"" PSXRXCT=PSXRXCT+1 D TXT"
^XMB(3.9,120,2,883,0)="""RTN"",""PSXRTRAN"",105,0)"
^XMB(3.9,120,2,884,0)=" .S DA=MSG,DIE=""^PSX(550.1,"",DR=""1///2;5////""_$H_"";3////""_PSXBAT D ^DIE K DIE,DA,DR"
^XMB(3.9,120,2,885,0)="""RTN"",""PSXRTRAN"",106,0)"
^XMB(3.9,120,2,886,0)=" .S REC=MSG,PSXRTRN=1 ;D SUSPS^PSXRXU"
^XMB(3.9,120,2,887,0)="""RTN"",""PSXRTRAN"",107,0)"
^XMB(3.9,120,2,888,0)=" S ORD=""$$ENDRMIT^""_U_U_PSXBATNM_U_PSXMSGCT_U_PSXRXCT D TXT K ORD"
^XMB(3.9,120,2,889,0)="""RTN"",""PSXRTRAN"",108,0)"
^XMB(3.9,120,2,890,0)=" S ^XMB(3.9,XMZ,2,0)=""^3.92A^""_LCNT_U_LCNT_U_DT,XMDUN=""CMOP Manager"""
^XMB(3.9,120,2,891,0)="""RTN"",""PSXRTRAN"",109,0)"
^XMB(3.9,120,2,892,0)=" S XMDUZ=.5"
^XMB(3.9,120,2,893,0)="""RTN"",""PSXRTRAN"",110,0)"
^XMB(3.9,120,2,894,0)=" S RECV=$P($G(^PSX(550,+PSXSYS,0)),U,4),DOMAIN=""@""_$$GET1^DIQ(4.2,RECV,.01)"
^XMB(3.9,120,2,895,0)="""RTN"",""PSXRTRAN"",111,0)"
^XMB(3.9,120,2,896,0)=" ;code to divert patient transmissions for testing"
^XMB(3.9,120,2,897,0)="""RTN"",""PSXRTRAN"",112,0)"
^XMB(3.9,120,2,898,0)=" I '$D(^XTMP(""PSXDIVERTCMOP"")) S XMY(""S.PSXX CMOP SERVER""_DOMAIN)="""" I 1 ;****TESTING"
^XMB(3.9,120,2,899,0)="""RTN"",""PSXRTRAN"",113,0)"
^XMB(3.9,120,2,900,0)=" E  S XX=^XTMP(""PSXDIVERTCMOP"",1) S XMY(XX)="""" H 1 ;****TESTING S.PSXX"
^XMB(3.9,120,2,901,0)="""RTN"",""PSXRTRAN"",114,0)"
^XMB(3.9,120,2,902,0)=" D ENT1^XMD"
^XMB(3.9,120,2,903,0)="""RTN"",""PSXRTRAN"",115,0)"
^XMB(3.9,120,2,904,0)=" K DIE,DA,DR,BAT,PSX,PSXORD"
^XMB(3.9,120,2,905,0)="""RTN"",""PSXRTRAN"",116,0)"
^XMB(3.9,120,2,906,0)="FILE L +^PSX(550.2,PSXBAT):30 G:'$T FILE"
^XMB(3.9,120,2,907,0)="""RTN"",""PSXRTRAN"",117,0)"
^XMB(3.9,120,2,908,0)=" D NOW^%DTC S PSXTRDTM=%"
^XMB(3.9,120,2,909,0)="""RTN"",""PSXRTRAN"",118,0)"
^XMB(3.9,120,2,910,0)=" S PSXLAST=LMSG,PSXFRST=MCT,DA=PSXBAT,DIE=""^PSX(550.2,"""
^XMB(3.9,120,2,911,0)="""RTN"",""PSXRTRAN"",119,0)"
^XMB(3.9,120,2,912,0)=" S DR=""1////2;9////""_OLDBAT_"";11////""_PSXFRST_"";12////""_PSXLAST_"";13////""_PSXMSGCT_"";14////""_PSXRXCT_"";5////""_PSXTRDTM D ^DIE"
^XMB(3.9,120,2,913,0)="""RTN"",""PSXRTRAN"",120,0)"
^XMB(3.9,120,2,914,0)=" L -^PSX(550.2,PSXBAT) K DA,DIE"
^XMB(3.9,120,2,915,0)="""RTN"",""PSXRTRAN"",121,0)"
^XMB(3.9,120,2,916,0)="F1 L +^PSX(550.2,OLDBAT):30 G:'$T F1"
^XMB(3.9,120,2,917,0)="""RTN"",""PSXRTRAN"",122,0)"
^XMB(3.9,120,2,918,0)=" S DA=OLDBAT,DIE=""^PSX(550.2,"",DR=""1////5;8////""_PSXBAT D ^DIE"
^XMB(3.9,120,2,919,0)="""RTN"",""PSXRTRAN"",123,0)"
^XMB(3.9,120,2,920,0)=" L -^PSX(550.2,OLDBAT) K DA,DIE"
^XMB(3.9,120,2,921,0)="""RTN"",""PSXRTRAN"",124,0)"
^XMB(3.9,120,2,922,0)=" S PSXOLD=OLDBAT"
^XMB(3.9,120,2,923,0)="""RTN"",""PSXRTRAN"",125,0)"
^XMB(3.9,120,2,924,0)=" D AFTER1^PSXRSYU ;set PSXBAT into 550"
^XMB(3.9,120,2,925,0)="""RTN"",""PSXRTRAN"",126,0)"
^XMB(3.9,120,2,926,0)=" S PSXFLAG=1,PSXRTRN=1"
^XMB(3.9,120,2,927,0)="""RTN"",""PSXRTRAN"",127,0)"
^XMB(3.9,120,2,928,0)=" D EN^PSXNOTE"
^XMB(3.9,120,2,929,0)="""RTN"",""PSXRTRAN"",128,0)"
^XMB(3.9,120,2,930,0)=" S OLDBAT=PSXOLD"
^XMB(3.9,120,2,931,0)="""RTN"",""PSXRTRAN"",129,0)"
^XMB(3.9,120,2,932,0)=" D START^PSXRXU ;update RXs in 52.5 & 52"
^XMB(3.9,120,2,933,0)="""RTN"",""PSXRTRAN"",130,0)"
^XMB(3.9,120,2,934,0)=" D OERRCLR^PSXRSUS"
^XMB(3.9,120,2,935,0)="""RTN"",""PSXRTRAN"",131,0)"
^XMB(3.9,120,2,936,0)=" S OLDBAT=PSXOLD"
^XMB(3.9,120,2,937,0)="""RTN"",""PSXRTRAN"",132,0)"
^XMB(3.9,120,2,938,0)=" D SETSTAT^PSXRTRA1"
^XMB(3.9,120,2,939,0)="""RTN"",""PSXRTRAN"",133,0)"
^XMB(3.9,120,2,940,0)=" D REPORT^PSXRTRA1"
^XMB(3.9,120,2,941,0)="""RTN"",""PSXRTRAN"",134,0)"
^XMB(3.9,120,2,942,0)="RESET S PSXSTAT=""H"" D PSXSTAT^PSXRSYU"
^XMB(3.9,120,2,943,0)="""RTN"",""PSXRTRAN"",135,0)"
^XMB(3.9,120,2,944,0)=" G EXIT"
^XMB(3.9,120,2,945,0)="""RTN"",""PSXRTRAN"",136,0)"
^XMB(3.9,120,2,946,0)=" Q"
^XMB(3.9,120,2,947,0)="""RTN"",""PSXRTRAN"",137,0)"
^XMB(3.9,120,2,948,0)="NO W !,""You are not authorized to use this option!"" Q"
^XMB(3.9,120,2,949,0)="""RTN"",""PSXRTRAN"",138,0)"
^XMB(3.9,120,2,950,0)="EXIT S ZTREQ=""@"""
^XMB(3.9,120,2,951,0)="""RTN"",""PSXRTRAN"",139,0)"
^XMB(3.9,120,2,952,0)=" L -^PSX(550.1)"
^XMB(3.9,120,2,953,0)="""RTN"",""PSXRTRAN"",140,0)"
^XMB(3.9,120,2,954,0)=" K PSXSTART,PSXEND,PSXRXCT,PSXMSGCT,PSXLAST,PSXSITE,PSXTDT,LASTBAT,LCNT,CNTX,MSG,REC,SITENUM,XQAMSG,XX,XMY,XMSUB,XMFROM,XMZ,XMDUZ,XMDUN,LNCT,OLDBAT,PSXMFLAG,FLAG,PSXSENDR,BMSG,EMSG,RECV,DOMAIN,CLOSED,PSXDIV,XSITE"
^XMB(3.9,120,2,955,0)="""RTN"",""PSXRTRAN"",141,0)"
^XMB(3.9,120,2,956,0)=" K %,DIV,LNTX,SNDR,STATUS,TRNDT,Z,ZZ,PSXHDR,PSXJOB,PSXRTRN,PSXSTAT,PSXFRST,PSXBAT,PSXDUZ,PSXFLAG,DIR,Y,X,OLDSDT,S1,Y,DIRUT,DIROUT,DTOUT,DUOUT,BAD,MCT,LMSG,PSXOLD,PSXRXD"
^XMB(3.9,120,2,957,0)="""RTN"",""PSXRTRAN"",142,0)"
^XMB(3.9,120,2,958,0)=" K ^PSX(""CMOP TRANS""),PSXBATNM,OLDBATNM,TRAN,TRANI,PSXTRDTM,I"
^XMB(3.9,120,2,959,0)="""RTN"",""PSXRTRAN"",143,0)"
^XMB(3.9,120,2,960,0)=" K ^TMP($J)"
^XMB(3.9,120,2,961,0)="""RTN"",""PSXRTRAN"",144,0)"
^XMB(3.9,120,2,962,0)=" Q"
^XMB(3.9,120,2,963,0)="""RTN"",""PSXRTRAN"",145,0)"
^XMB(3.9,120,2,964,0)="CANMSG ; lock on 550.1 not achieved send transmission cancelled message"
^XMB(3.9,120,2,965,0)="""RTN"",""PSXRTRAN"",146,0)"
^XMB(3.9,120,2,966,0)=" D CANMSG^PSXRTRA1"
^XMB(3.9,120,2,967,0)="""RTN"",""PSXRTRAN"",147,0)"
^XMB(3.9,120,2,968,0)=" Q"
^XMB(3.9,120,2,969,0)="""RTN"",""PSXRTRAN"",148,0)"
^XMB(3.9,120,2,970,0)="TESTREL(RXDA,FILL) ; test release date, gather RX data, store for report"
^XMB(3.9,120,2,971,0)="""RTN"",""PSXRTRAN"",149,0)"
^XMB(3.9,120,2,972,0)=" ;returns SENT, ""FILL '="", or Released Date"
^XMB(3.9,120,2,973,0)="""RTN"",""PSXRTRAN"",150,0)"
^XMB(3.9,120,2,974,0)=" N DFN,VADM,SSN,RELDT,RELDTE,PATNM,REPLY,FILLX"
^XMB(3.9,120,2,975,0)="""RTN"",""PSXRTRAN"",151,0)"
^XMB(3.9,120,2,976,0)=" S DFN=$$GET1^DIQ(52,RXDA,2,""I""),PATNM=$$GET1^DIQ(52,RXDA,2)"
^XMB(3.9,120,2,977,0)="""RTN"",""PSXRTRAN"",152,0)"
^XMB(3.9,120,2,978,0)=" D DEM^VADPT S SSN=$P(VADM(2),U,2)"
^XMB(3.9,120,2,979,0)="""RTN"",""PSXRTRAN"",153,0)"
^XMB(3.9,120,2,980,0)=" S RXNM=$P(^PSRX(RXDA,0),U)_""-""_FILL"
^XMB(3.9,120,2,981,0)="""RTN"",""PSXRTRAN"",154,0)"
^XMB(3.9,120,2,982,0)=" I FILL=0 S RELDT=$P(^PSRX(RXDA,2),U,13)\1 I 1"
^XMB(3.9,120,2,983,0)="""RTN"",""PSXRTRAN"",155,0)"
^XMB(3.9,120,2,984,0)=" E  S RELDT=$P(^PSRX(RXDA,1,FILL,0),U,18)\1"
^XMB(3.9,120,2,985,0)="""RTN"",""PSXRTRAN"",156,0)"
^XMB(3.9,120,2,986,0)=" S REPLY=""SENT"""
^XMB(3.9,120,2,987,0)="""RTN"",""PSXRTRAN"",157,0)"
^XMB(3.9,120,2,988,0)=" S:RELDT REPLY=$$FMTE^XLFDT(RELDT)"
^XMB(3.9,120,2,989,0)="""RTN"",""PSXRTRAN"",158,0)"
^XMB(3.9,120,2,990,0)=" S FILLX=+$O(^PSRX(RXDA,1,""A""),-1) I FILL'=FILLX S REPLY=""Fill '= ""_FILLX"
^XMB(3.9,120,2,991,0)="""RTN"",""PSXRTRAN"",159,0)"
^XMB(3.9,120,2,992,0)=" Q REPLY"
^XMB(3.9,120,2,993,0)="""RTN"",""PSXRTRAN"",160,0)"
^XMB(3.9,120,2,994,0)="NOTRAN ;no RXs passed testing to go into a new transmission"
^XMB(3.9,120,2,995,0)="""RTN"",""PSXRTRAN"",161,0)"
^XMB(3.9,120,2,996,0)=" S XMSUB=""Retransmission of ""_OLDBATNM_"" failed"""
^XMB(3.9,120,2,997,0)="""RTN"",""PSXRTRAN"",162,0)"
^XMB(3.9,120,2,998,0)=" K TXT,XMY"
^XMB(3.9,120,2,999,0)="""RTN"",""PSXRTRAN"",163,0)"
^XMB(3.9,120,2,1000,0)=" S TXT(1,0)=""No prescriptions passed testing to go into a new transmission"""
^XMB(3.9,120,2,1001,0)="""RTN"",""PSXRTRAN"",164,0)"
^XMB(3.9,120,2,1002,0)=" S XMTEXT=""TXT("""
^XMB(3.9,120,2,1003,0)="""RTN"",""PSXRTRAN"",165,0)"
^XMB(3.9,120,2,1004,0)=" D GRP^PSXNOTE"
^XMB(3.9,120,2,1005,0)="""RTN"",""PSXRTRAN"",166,0)"
^XMB(3.9,120,2,1006,0)=" D ^XMD"
^XMB(3.9,120,2,1007,0)="""RTN"",""PSXRTRAN"",167,0)"
^XMB(3.9,120,2,1008,0)=" Q"
^XMB(3.9,120,2,1009,0)="""RTN"",""PSXRTRAN"",168,0)"
^XMB(3.9,120,2,1010,0)="SDT ;functional code as to SDT^PSXRPPL test and set individual RXs into 550.2"
^XMB(3.9,120,2,1011,0)="""RTN"",""PSXRTRAN"",169,0)"
^XMB(3.9,120,2,1012,0)=" N SDT"
^XMB(3.9,120,2,1013,0)="""RTN"",""PSXRTRAN"",170,0)"
^XMB(3.9,120,2,1014,0)=" S REC=$O(^PS(52.5,""B"",RXDA,0)) Q:'REC"
^XMB(3.9,120,2,1015,0)="""RTN"",""PSXRTRAN"",171,0)"
^XMB(3.9,120,2,1016,0)=" S XX=^PS(52.5,REC,0),SDT=$P(XX,U,2)"
^XMB(3.9,120,2,1017,0)="""RTN"",""PSXRTRAN"",172,0)"
^XMB(3.9,120,2,1018,0)=" S XDFN=DFN"
^XMB(3.9,120,2,1019,0)="""RTN"",""PSXRTRAN"",173,0)"
^XMB(3.9,120,2,1020,0)=" N RXN,RXDA,FILL"
^XMB(3.9,120,2,1021,0)="""RTN"",""PSXRTRAN"",174,0)"
^XMB(3.9,120,2,1022,0)=" D GETDATA^PSXRPPL ;if RX is OK makes entry into new batch PSXBAT"
^XMB(3.9,120,2,1023,0)="""RTN"",""PSXRTRAN"",175,0)"
^XMB(3.9,120,2,1024,0)=" D:$G(RXN) PSOUL^PSSLOCK(RXN),OERRLOCK^PSXRPPL(RXN)"
^XMB(3.9,120,2,1025,0)="""RTN"",""PSXRTRAN"",176,0)"
^XMB(3.9,120,2,1026,0)=" Q"
^XMB(3.9,120,2,1027,0)="""VER"")"
^XMB(3.9,120,2,1028,0)="8.0^22.0"
^XMB(3.9,120,2,1029,0)="$END KID PSX*2.0*51"
^XMB(3.9,120,6,0)="^3.911A^2^2"
^XMB(3.9,120,6,1,0)="POSTMASTER"
^XMB(3.9,120,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,120,6,"B","POSTMASTER",1)=""
^XMB(3.9,120,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,121,0)="PSX-2_SEQ-50_PAT-57.KID^.5^3061008.015741^^^^K"
^XMB(3.9,121,.6)="3061008"
^XMB(3.9,121,1,0)="^3.91A^2^2"
^XMB(3.9,121,1,1,0)=".5^0^3061008.015741^^^^^^^3061008.015741"
^XMB(3.9,121,1,2,0)="1^0^3061008.022528^^^^^^^3061008.022528"
^XMB(3.9,121,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,121,1,"C",.5,1)=""
^XMB(3.9,121,1,"C",1,2)=""
^XMB(3.9,121,2,0)="^^1079^1079^3061008"
^XMB(3.9,121,2,1,0)="$TXT Released PSX*2*57 SEQ #50"
^XMB(3.9,121,2,2,0)="Extracted from mail message"
^XMB(3.9,121,2,3,0)="$END TXT"
^XMB(3.9,121,2,4,0)="$KID PSX*2.0*57"
^XMB(3.9,121,2,5,0)="**INSTALL NAME**"
^XMB(3.9,121,2,6,0)="PSX*2.0*57"
^XMB(3.9,121,2,7,0)="""BLD"",5860,0)"
^XMB(3.9,121,2,8,0)="PSX*2.0*57^CMOP^0^3041220^y"
^XMB(3.9,121,2,9,0)="""BLD"",5860,1,0)"
^XMB(3.9,121,2,10,0)="^^3^3^3041108^"
^XMB(3.9,121,2,11,0)="""BLD"",5860,1,1,0)"
^XMB(3.9,121,2,12,0)="Missing CMOP multiples."
^XMB(3.9,121,2,13,0)="""BLD"",5860,1,2,0)"
^XMB(3.9,121,2,14,0)=" "
^XMB(3.9,121,2,15,0)="""BLD"",5860,1,3,0)"
^XMB(3.9,121,2,16,0)="Error when site street address is not completed."
^XMB(3.9,121,2,17,0)="""BLD"",5860,4,0)"
^XMB(3.9,121,2,18,0)="^9.64PA^^"
^XMB(3.9,121,2,19,0)="""BLD"",5860,""ABPKG"")"
^XMB(3.9,121,2,20,0)="n"
^XMB(3.9,121,2,21,0)="""BLD"",5860,""KRN"",0)"
^XMB(3.9,121,2,22,0)="^9.67PA^8989.52^19"
^XMB(3.9,121,2,23,0)="""BLD"",5860,""KRN"",.4,0)"
^XMB(3.9,121,2,24,0)=".4"
^XMB(3.9,121,2,25,0)="""BLD"",5860,""KRN"",.401,0)"
^XMB(3.9,121,2,26,0)=".401"
^XMB(3.9,121,2,27,0)="""BLD"",5860,""KRN"",.402,0)"
^XMB(3.9,121,2,28,0)=".402"
^XMB(3.9,121,2,29,0)="""BLD"",5860,""KRN"",.403,0)"
^XMB(3.9,121,2,30,0)=".403"
^XMB(3.9,121,2,31,0)="""BLD"",5860,""KRN"",.5,0)"
^XMB(3.9,121,2,32,0)=".5"
^XMB(3.9,121,2,33,0)="""BLD"",5860,""KRN"",.84,0)"
^XMB(3.9,121,2,34,0)=".84"
^XMB(3.9,121,2,35,0)="""BLD"",5860,""KRN"",3.6,0)"
^XMB(3.9,121,2,36,0)="3.6"
^XMB(3.9,121,2,37,0)="""BLD"",5860,""KRN"",3.8,0)"
^XMB(3.9,121,2,38,0)="3.8"
^XMB(3.9,121,2,39,0)="""BLD"",5860,""KRN"",9.2,0)"
^XMB(3.9,121,2,40,0)="9.2"
^XMB(3.9,121,2,41,0)="""BLD"",5860,""KRN"",9.8,0)"
^XMB(3.9,121,2,42,0)="9.8"
^XMB(3.9,121,2,43,0)="""BLD"",5860,""KRN"",9.8,""NM"",0)"
^XMB(3.9,121,2,44,0)="^9.68A^3^3"
^XMB(3.9,121,2,45,0)="""BLD"",5860,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,121,2,46,0)="PSXRXU^^0^B27958226"
^XMB(3.9,121,2,47,0)="""BLD"",5860,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,121,2,48,0)="PSXRSUS^^0^B75846164"
^XMB(3.9,121,2,49,0)="""BLD"",5860,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,121,2,50,0)="PSXBLD1^^0^B26388845"
^XMB(3.9,121,2,51,0)="""BLD"",5860,""KRN"",9.8,""NM"",""B"",""PSXBLD1"",3)"
^XMB(3.9,121,2,52,0)=" "
^XMB(3.9,121,2,53,0)="""BLD"",5860,""KRN"",9.8,""NM"",""B"",""PSXRSUS"",2)"
^XMB(3.9,121,2,54,0)=" "
^XMB(3.9,121,2,55,0)="""BLD"",5860,""KRN"",9.8,""NM"",""B"",""PSXRXU"",1)"
^XMB(3.9,121,2,56,0)=" "
^XMB(3.9,121,2,57,0)="""BLD"",5860,""KRN"",19,0)"
^XMB(3.9,121,2,58,0)="19"
^XMB(3.9,121,2,59,0)="""BLD"",5860,""KRN"",19,""NM"",0)"
^XMB(3.9,121,2,60,0)="^9.68A^^"
^XMB(3.9,121,2,61,0)="""BLD"",5860,""KRN"",19.1,0)"
^XMB(3.9,121,2,62,0)="19.1"
^XMB(3.9,121,2,63,0)="""BLD"",5860,""KRN"",101,0)"
^XMB(3.9,121,2,64,0)="101"
^XMB(3.9,121,2,65,0)="""BLD"",5860,""KRN"",409.61,0)"
^XMB(3.9,121,2,66,0)="409.61"
^XMB(3.9,121,2,67,0)="""BLD"",5860,""KRN"",771,0)"
^XMB(3.9,121,2,68,0)="771"
^XMB(3.9,121,2,69,0)="""BLD"",5860,""KRN"",870,0)"
^XMB(3.9,121,2,70,0)="870"
^XMB(3.9,121,2,71,0)="""BLD"",5860,""KRN"",8989.51,0)"
^XMB(3.9,121,2,72,0)="8989.51"
^XMB(3.9,121,2,73,0)="""BLD"",5860,""KRN"",8989.52,0)"
^XMB(3.9,121,2,74,0)="8989.52"
^XMB(3.9,121,2,75,0)="""BLD"",5860,""KRN"",8994,0)"
^XMB(3.9,121,2,76,0)="8994"
^XMB(3.9,121,2,77,0)="""BLD"",5860,""KRN"",""B"",.4,.4)"
^XMB(3.9,121,2,78,0)=" "
^XMB(3.9,121,2,79,0)="""BLD"",5860,""KRN"",""B"",.401,.401)"
^XMB(3.9,121,2,80,0)=" "
^XMB(3.9,121,2,81,0)="""BLD"",5860,""KRN"",""B"",.402,.402)"
^XMB(3.9,121,2,82,0)=" "
^XMB(3.9,121,2,83,0)="""BLD"",5860,""KRN"",""B"",.403,.403)"
^XMB(3.9,121,2,84,0)=" "
^XMB(3.9,121,2,85,0)="""BLD"",5860,""KRN"",""B"",.5,.5)"
^XMB(3.9,121,2,86,0)=" "
^XMB(3.9,121,2,87,0)="""BLD"",5860,""KRN"",""B"",.84,.84)"
^XMB(3.9,121,2,88,0)=" "
^XMB(3.9,121,2,89,0)="""BLD"",5860,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,121,2,90,0)=" "
^XMB(3.9,121,2,91,0)="""BLD"",5860,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,121,2,92,0)=" "
^XMB(3.9,121,2,93,0)="""BLD"",5860,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,121,2,94,0)=" "
^XMB(3.9,121,2,95,0)="""BLD"",5860,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,121,2,96,0)=" "
^XMB(3.9,121,2,97,0)="""BLD"",5860,""KRN"",""B"",19,19)"
^XMB(3.9,121,2,98,0)=" "
^XMB(3.9,121,2,99,0)="""BLD"",5860,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,121,2,100,0)=" "
^XMB(3.9,121,2,101,0)="""BLD"",5860,""KRN"",""B"",101,101)"
^XMB(3.9,121,2,102,0)=" "
^XMB(3.9,121,2,103,0)="""BLD"",5860,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,121,2,104,0)=" "
^XMB(3.9,121,2,105,0)="""BLD"",5860,""KRN"",""B"",771,771)"
^XMB(3.9,121,2,106,0)=" "
^XMB(3.9,121,2,107,0)="""BLD"",5860,""KRN"",""B"",870,870)"
^XMB(3.9,121,2,108,0)=" "
^XMB(3.9,121,2,109,0)="""BLD"",5860,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,121,2,110,0)=" "
^XMB(3.9,121,2,111,0)="""BLD"",5860,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,121,2,112,0)=" "
^XMB(3.9,121,2,113,0)="""BLD"",5860,""KRN"",""B"",8994,8994)"
^XMB(3.9,121,2,114,0)=" "
^XMB(3.9,121,2,115,0)="""BLD"",5860,""QUES"",0)"
^XMB(3.9,121,2,116,0)="^9.62^^"
^XMB(3.9,121,2,117,0)="""BLD"",5860,""REQB"",0)"
^XMB(3.9,121,2,118,0)="^9.611^1^1"
^XMB(3.9,121,2,119,0)="""BLD"",5860,""REQB"",1,0)"
^XMB(3.9,121,2,120,0)="PSX*2.0*49^1"
^XMB(3.9,121,2,121,0)="""BLD"",5860,""REQB"",""B"",""PSX*2.0*49"",1)"
^XMB(3.9,121,2,122,0)=" "
^XMB(3.9,121,2,123,0)="""MBREQ"")"
^XMB(3.9,121,2,124,0)="0"
^XMB(3.9,121,2,125,0)="""PKG"",534,-1)"
^XMB(3.9,121,2,126,0)="1^1"
^XMB(3.9,121,2,127,0)="""PKG"",534,0)"
^XMB(3.9,121,2,128,0)="CMOP^PSX"
^XMB(3.9,121,2,129,0)="""PKG"",534,20,0)"
^XMB(3.9,121,2,130,0)="^9.402P^^"
^XMB(3.9,121,2,131,0)="""PKG"",534,22,0)"
^XMB(3.9,121,2,132,0)="^9.49I^1^1"
^XMB(3.9,121,2,133,0)="""PKG"",534,22,1,0)"
^XMB(3.9,121,2,134,0)="2.0"
^XMB(3.9,121,2,135,0)="""PKG"",534,22,1,""PAH"",1,0)"
^XMB(3.9,121,2,136,0)="57^3041220"
^XMB(3.9,121,2,137,0)="""PKG"",534,22,1,""PAH"",1,1,0)"
^XMB(3.9,121,2,138,0)="^^3^3^3041220"
^XMB(3.9,121,2,139,0)="""PKG"",534,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,121,2,140,0)="Missing CMOP multiples."
^XMB(3.9,121,2,141,0)="""PKG"",534,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,121,2,142,0)=" "
^XMB(3.9,121,2,143,0)="""PKG"",534,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,121,2,144,0)="Error when site street address is not completed."
^XMB(3.9,121,2,145,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,121,2,146,0)="Y"
^XMB(3.9,121,2,147,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,121,2,148,0)="^D REP^XPDH"
^XMB(3.9,121,2,149,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,121,2,150,0)="Shall I write over your |FLAG| File"
^XMB(3.9,121,2,151,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,121,2,152,0)="YES"
^XMB(3.9,121,2,153,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,121,2,154,0)="D XPF1^XPDIQ"
^XMB(3.9,121,2,155,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,121,2,156,0)="Y"
^XMB(3.9,121,2,157,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,121,2,158,0)="^D DTA^XPDH"
^XMB(3.9,121,2,159,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,121,2,160,0)="Want my data |FLAG| yours"
^XMB(3.9,121,2,161,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,121,2,162,0)="YES"
^XMB(3.9,121,2,163,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,121,2,164,0)="D XPF2^XPDIQ"
^XMB(3.9,121,2,165,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,121,2,166,0)="YO"
^XMB(3.9,121,2,167,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,121,2,168,0)="^D INHIBIT^XPDH"
^XMB(3.9,121,2,169,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,121,2,170,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,121,2,171,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,121,2,172,0)="YES"
^XMB(3.9,121,2,173,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,121,2,174,0)="D XPI1^XPDIQ"
^XMB(3.9,121,2,175,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,121,2,176,0)="PO^VA(200,:EM"
^XMB(3.9,121,2,177,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,121,2,178,0)="^D MG^XPDH"
^XMB(3.9,121,2,179,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,121,2,180,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,121,2,181,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,121,2,182,0)=" "
^XMB(3.9,121,2,183,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,121,2,184,0)="D XPM1^XPDIQ"
^XMB(3.9,121,2,185,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,121,2,186,0)="Y"
^XMB(3.9,121,2,187,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,121,2,188,0)="^D MENU^XPDH"
^XMB(3.9,121,2,189,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,121,2,190,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,121,2,191,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,121,2,192,0)="YES"
^XMB(3.9,121,2,193,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,121,2,194,0)="D XPO1^XPDIQ"
^XMB(3.9,121,2,195,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,121,2,196,0)="Y"
^XMB(3.9,121,2,197,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,121,2,198,0)="^D OPT^XPDH"
^XMB(3.9,121,2,199,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,121,2,200,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,121,2,201,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,121,2,202,0)="YES"
^XMB(3.9,121,2,203,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,121,2,204,0)="D XPZ1^XPDIQ"
^XMB(3.9,121,2,205,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,121,2,206,0)="Y"
^XMB(3.9,121,2,207,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,121,2,208,0)="^D RTN^XPDH"
^XMB(3.9,121,2,209,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,121,2,210,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,121,2,211,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,121,2,212,0)="NO"
^XMB(3.9,121,2,213,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,121,2,214,0)="D XPZ2^XPDIQ"
^XMB(3.9,121,2,215,0)="""RTN"")"
^XMB(3.9,121,2,216,0)="3"
^XMB(3.9,121,2,217,0)="""RTN"",""PSXBLD1"")"
^XMB(3.9,121,2,218,0)="0^3^B26388845"
^XMB(3.9,121,2,219,0)="""RTN"",""PSXBLD1"",1,0)"
^XMB(3.9,121,2,220,0)="PSXBLD1 ;BIR/BAB,HTW,WPB-Document Data for Transmission ;10/15/98  10:38 AM"
^XMB(3.9,121,2,221,0)="""RTN"",""PSXBLD1"",2,0)"
^XMB(3.9,121,2,222,0)=" ;;2.0;CMOP;**3,18,19,42,41,49,57**;11 Apr 97"
^XMB(3.9,121,2,223,0)="""RTN"",""PSXBLD1"",3,0)"
^XMB(3.9,121,2,224,0)=" ;Reference to  ^PSRX(     supported by DBIA #1977"
^XMB(3.9,121,2,225,0)="""RTN"",""PSXBLD1"",4,0)"
^XMB(3.9,121,2,226,0)=" ;Reference to  ^PSDRUG(   supported by DBIA #1983"
^XMB(3.9,121,2,227,0)="""RTN"",""PSXBLD1"",5,0)"
^XMB(3.9,121,2,228,0)=" ;Reference to  ^PS(55,    supported by DBIA #2228"
^XMB(3.9,121,2,229,0)="""RTN"",""PSXBLD1"",6,0)"
^XMB(3.9,121,2,230,0)=" ;Reference to  ^PS(59.7,  supported by DBIA #694"
^XMB(3.9,121,2,231,0)="""RTN"",""PSXBLD1"",7,0)"
^XMB(3.9,121,2,232,0)=" ;Reference to  ^PS(59,    supported by DBIA #1976"
^XMB(3.9,121,2,233,0)="""RTN"",""PSXBLD1"",8,0)"
^XMB(3.9,121,2,234,0)=" ;Reference to PROD2^PSNAPIS supported by DBIA #2531"
^XMB(3.9,121,2,235,0)="""RTN"",""PSXBLD1"",9,0)"
^XMB(3.9,121,2,236,0)="MRX ;Multi rx"
^XMB(3.9,121,2,237,0)="""RTN"",""PSXBLD1"",10,0)"
^XMB(3.9,121,2,238,0)=" G:'$P(PSOPAR,""^"",18) SUS"
^XMB(3.9,121,2,239,0)="""RTN"",""PSXBLD1"",11,0)"
^XMB(3.9,121,2,240,0)=" F ZZ=0:0 S ZZ=$O(^PS(55,DFN,""P"",ZZ)) Q:'ZZ  S NBR=0 D RZX"
^XMB(3.9,121,2,241,0)="""RTN"",""PSXBLD1"",12,0)"
^XMB(3.9,121,2,242,0)="BUILD ;"
^XMB(3.9,121,2,243,0)="""RTN"",""PSXBLD1"",13,0)"
^XMB(3.9,121,2,244,0)=" F PSA=0:0 S PSA=$O(RX(PSA)) Q:'PSA  D SCRNEW"
^XMB(3.9,121,2,245,0)="""RTN"",""PSXBLD1"",14,0)"
^XMB(3.9,121,2,246,0)=" K NAME,REFILL,PSDT2,NBR,PSRX,PSA,TN,AMC,PSRFL,X1,X2,PSRXX,RXNUM,ZZ"
^XMB(3.9,121,2,247,0)="""RTN"",""PSXBLD1"",15,0)"
^XMB(3.9,121,2,248,0)=" G SUS"
^XMB(3.9,121,2,249,0)="""RTN"",""PSXBLD1"",16,0)"
^XMB(3.9,121,2,250,0)="SCRNEW ;"
^XMB(3.9,121,2,251,0)="""RTN"",""PSXBLD1"",17,0)"
^XMB(3.9,121,2,252,0)=" S IEN50=+$P(^PSRX(PSA,0),U,6),NAME=$P(^PSDRUG(IEN50,0),U)"
^XMB(3.9,121,2,253,0)="""RTN"",""PSXBLD1"",18,0)"
^XMB(3.9,121,2,254,0)=" I '$D(^PSDRUG(IEN50,""ND"")) G S1"
^XMB(3.9,121,2,255,0)="""RTN"",""PSXBLD1"",19,0)"
^XMB(3.9,121,2,256,0)=" S IENDF=$P($G(^PSDRUG(IEN50,""ND"")),U),ZD1=$P($G(^(""ND"")),U,3)"
^XMB(3.9,121,2,257,0)="""RTN"",""PSXBLD1"",20,0)"
^XMB(3.9,121,2,258,0)=" I $G(IENDF),($G(ZD1)) S ZX=$$PROD2^PSNAPIS(IENDF,ZD1),ZNDF=$P($G(ZX),""^"")"
^XMB(3.9,121,2,259,0)="""RTN"",""PSXBLD1"",21,0)"
^XMB(3.9,121,2,260,0)="S1 S ZPRT=$S($G(ZNDF):ZNDF,1:NAME) K ZNDF,IENDF,NAME,IEN50,ZD1"
^XMB(3.9,121,2,261,0)="""RTN"",""PSXBLD1"",22,0)"
^XMB(3.9,121,2,262,0)=" S ZPRT=$E(ZPRT,1,30)"
^XMB(3.9,121,2,263,0)="""RTN"",""PSXBLD1"",23,0)"
^XMB(3.9,121,2,264,0)=" S REFILL=$P(RX(PSA),""^"",2)"
^XMB(3.9,121,2,265,0)="""RTN"",""PSXBLD1"",24,0)"
^XMB(3.9,121,2,266,0)=" S PSDT2=$P(RX(PSA),""^"",1),PSDT2=PSDT2+17000000"
^XMB(3.9,121,2,267,0)="""RTN"",""PSXBLD1"",25,0)"
^XMB(3.9,121,2,268,0)=" S RXNUM=$P($G(^PSRX(PSA,0)),""^"")"
^XMB(3.9,121,2,269,0)="""RTN"",""PSXBLD1"",26,0)"
^XMB(3.9,121,2,270,0)=" S NBR=NBR+1,PSXORD(""M"",NBR)=""NTE|5||""_RXNUM_""\F\""_ZPRT_""\F\""_REFILL_""\F\""_PSDT2_$S($P(PSOPAR,""^"",19):""\F\""_PSOINST_""-""_PSA,1:"""")"
^XMB(3.9,121,2,271,0)="""RTN"",""PSXBLD1"",27,0)"
^XMB(3.9,121,2,272,0)=" Q"
^XMB(3.9,121,2,273,0)="""RTN"",""PSXBLD1"",28,0)"
^XMB(3.9,121,2,274,0)="REFILL F AMC=0:0 S AMC=$O(^PSRX(PSRXX,1,AMC)) Q:'AMC  S PSRFL=PSRFL-1"
^XMB(3.9,121,2,275,0)="""RTN"",""PSXBLD1"",29,0)"
^XMB(3.9,121,2,276,0)=" I PSRFL>0 S X1=DT,X2=$P(^PSRX(PSRXX,0),""^"",8)-10 D C^%DTC I X'<$P(^(2),""^"",6) S PSRFL=0"
^XMB(3.9,121,2,277,0)="""RTN"",""PSXBLD1"",30,0)"
^XMB(3.9,121,2,278,0)=" Q"
^XMB(3.9,121,2,279,0)="""RTN"",""PSXBLD1"",31,0)"
^XMB(3.9,121,2,280,0)="RZX S PSRXX=+^PS(55,DFN,""P"",ZZ,0) I $D(^PSRX(PSRXX,0)) S PSRFL=$P(^(0),""^"",9) D:$D(^(1))&PSRFL REFILL I PSRFL>0,$P(^PSRX(PSRXX,""STA""),""^"",1)<10,13456'[$E($P(^(""STA""),""^"",1)),$P(^(2),""^"",6)>DT S RX(PSRXX)=$P(^(2),""^"",6)_""^""_PSRFL"
^XMB(3.9,121,2,281,0)="""RTN"",""PSXBLD1"",32,0)"
^XMB(3.9,121,2,282,0)=" Q"
^XMB(3.9,121,2,283,0)="""RTN"",""PSXBLD1"",33,0)"
^XMB(3.9,121,2,284,0)="SUS ;Susp Notif-(PSXDTRG-last date transmitted)"
^XMB(3.9,121,2,285,0)="""RTN"",""PSXBLD1"",34,0)"
^XMB(3.9,121,2,286,0)=" Q:'$G(DFN)!('$G(PSXDTRG))"
^XMB(3.9,121,2,287,0)="""RTN"",""PSXBLD1"",35,0)"
^XMB(3.9,121,2,288,0)=" S CT=1"
^XMB(3.9,121,2,289,0)="""RTN"",""PSXBLD1"",36,0)"
^XMB(3.9,121,2,290,0)=" F I=PSXDTRG:0 S I=$O(^PS(55,DFN,""P"",""A"",I)) Q:'I  D"
^XMB(3.9,121,2,291,0)="""RTN"",""PSXBLD1"",37,0)"
^XMB(3.9,121,2,292,0)=" .F J=0:0 S J=$O(^PS(55,DFN,""P"",""A"",I,J)) Q:'J  S JJ=J D:$D(JJ)  S CT=CT+1"
^XMB(3.9,121,2,293,0)="""RTN"",""PSXBLD1"",38,0)"
^XMB(3.9,121,2,294,0)=" ..S NODE=$G(^PSRX(JJ,0)) Q:NODE']"""""
^XMB(3.9,121,2,295,0)="""RTN"",""PSXBLD1"",39,0)"
^XMB(3.9,121,2,296,0)=" ..S STATUS=+$P(^PSRX(JJ,""STA""),""^"",1) Q:STATUS'=5!(STATUS>10)"
^XMB(3.9,121,2,297,0)="""RTN"",""PSXBLD1"",40,0)"
^XMB(3.9,121,2,298,0)=" ..Q:$D(^PSX(550.2,PSXBAT,15,""B"",JJ))    ;built in PSXRPPL  PSX*2*42"
^XMB(3.9,121,2,299,0)="""RTN"",""PSXBLD1"",41,0)"
^XMB(3.9,121,2,300,0)=" ..S ERX=$P(NODE,U)"
^XMB(3.9,121,2,301,0)="""RTN"",""PSXBLD1"",42,0)"
^XMB(3.9,121,2,302,0)=" ..S IEN50=$P(NODE,""^"",6),NAME=$P(^PSDRUG(IEN50,0),U)"
^XMB(3.9,121,2,303,0)="""RTN"",""PSXBLD1"",43,0)"
^XMB(3.9,121,2,304,0)=" ..I '$D(^PSDRUG(IEN50,""ND"")) G S2"
^XMB(3.9,121,2,305,0)="""RTN"",""PSXBLD1"",44,0)"
^XMB(3.9,121,2,306,0)=" ..S IENDF=$P($G(^PSDRUG(IEN50,""ND"")),U),ZD1=$P($G(^(""ND"")),U,3)"
^XMB(3.9,121,2,307,0)="""RTN"",""PSXBLD1"",45,0)"
^XMB(3.9,121,2,308,0)=" ..I $G(IENDF),($G(ZD1)) S ZX=$$PROD2^PSNAPIS(IENDF,ZD1),ZNDF=$P($G(ZX),""^"")"
^XMB(3.9,121,2,309,0)="""RTN"",""PSXBLD1"",46,0)"
^XMB(3.9,121,2,310,0)="S2 ..S ZPRT=$S($G(ZNDF):ZNDF,1:NAME)"
^XMB(3.9,121,2,311,0)="""RTN"",""PSXBLD1"",47,0)"
^XMB(3.9,121,2,312,0)=" ..S ZPRT=$E(ZPRT,1,30)"
^XMB(3.9,121,2,313,0)="""RTN"",""PSXBLD1"",48,0)"
^XMB(3.9,121,2,314,0)=" ..S PSXORD(""E"",CT)=""NTE|6||""_ERX_""\F\""_ZPRT"
^XMB(3.9,121,2,315,0)="""RTN"",""PSXBLD1"",49,0)"
^XMB(3.9,121,2,316,0)=" ..K NODE,STATUS,ERX,IEN50,IENDF,ZD1,ZNDF,ZPRT,NAME,ZX"
^XMB(3.9,121,2,317,0)="""RTN"",""PSXBLD1"",50,0)"
^XMB(3.9,121,2,318,0)=" K I,J,NODE,STATUS,JJ,ZPRT,NAME,IENDF,IEN50,CT,RX"
^XMB(3.9,121,2,319,0)="""RTN"",""PSXBLD1"",51,0)"
^XMB(3.9,121,2,320,0)=" Q"
^XMB(3.9,121,2,321,0)="""RTN"",""PSXBLD1"",52,0)"
^XMB(3.9,121,2,322,0)="DIV ;NTE|1||Site #\S\Div Name\S\Facility #\F\Street Add 1\S\Street Add 2\S\City\S\State Abbrev\S\Zip Code\F\Area Code & Phone #"
^XMB(3.9,121,2,323,0)="""RTN"",""PSXBLD1"",53,0)"
^XMB(3.9,121,2,324,0)=" S PSXERFLG=0,PSXER=3"
^XMB(3.9,121,2,325,0)="""RTN"",""PSXBLD1"",54,0)"
^XMB(3.9,121,2,326,0)=" S TNODE=$G(^PS(59,PSOSITE,0))"
^XMB(3.9,121,2,327,0)="""RTN"",""PSXBLD1"",55,0)"
^XMB(3.9,121,2,328,0)=" ;Set site address to refill div if selected in system parameters"
^XMB(3.9,121,2,329,0)="""RTN"",""PSXBLD1"",56,0)"
^XMB(3.9,121,2,330,0)=" I $P($G(^PS(59.7,1,40.1)),""^"",4) S REFDIV=$P(^(40.1),""^"",4) D"
^XMB(3.9,121,2,331,0)="""RTN"",""PSXBLD1"",57,0)"
^XMB(3.9,121,2,332,0)=" .S TNODE1=$G(^PS(59,REFDIV,0)),TNODE=TNODE1 K TNODE1"
^XMB(3.9,121,2,333,0)="""RTN"",""PSXBLD1"",58,0)"
^XMB(3.9,121,2,334,0)=" S PSXFAC=$P($G(PSXSYS),U,2)"
^XMB(3.9,121,2,335,0)="""RTN"",""PSXBLD1"",59,0)"
^XMB(3.9,121,2,336,0)=" S STATE=$P(TNODE,""^"",8),SITE=$P(TNODE,U,6) S (TEMP,Y)=TNODE"
^XMB(3.9,121,2,337,0)="""RTN"",""PSXBLD1"",60,0)"
^XMB(3.9,121,2,338,0)=" S:STATE="""" PSXER=PSXER_""^""_1,PSXERFLG=1"
^XMB(3.9,121,2,339,0)="""RTN"",""PSXBLD1"",61,0)"
^XMB(3.9,121,2,340,0)=" S:SITE="""" PSXER=PSXER_""^""_2,PSXERFLG=1"
^XMB(3.9,121,2,341,0)="""RTN"",""PSXBLD1"",62,0)"
^XMB(3.9,121,2,342,0)=" S:$P(TNODE,U,1)="""" PSXER=PSXER_""^""_3,PSXERFLG=1"
^XMB(3.9,121,2,343,0)="""RTN"",""PSXBLD1"",63,0)"
^XMB(3.9,121,2,344,0)=" S:$P(TNODE,U,2)="""" PSXER=PSXER_""^""_4,PSXERFLG=1"
^XMB(3.9,121,2,345,0)="""RTN"",""PSXBLD1"",64,0)"
^XMB(3.9,121,2,346,0)=" S:$P(TNODE,U,7)="""" PSXER=PSXER_""^""_5,PSXERFLG=1"
^XMB(3.9,121,2,347,0)="""RTN"",""PSXBLD1"",65,0)"
^XMB(3.9,121,2,348,0)=" S:$P(TNODE,U,5)="""" PSXER=PSXER_""^""_6,PSXERFLG=1"
^XMB(3.9,121,2,349,0)="""RTN"",""PSXBLD1"",66,0)"
^XMB(3.9,121,2,350,0)=" S:$P(TNODE,U,3)="""" PSXER=PSXER_""^""_7,PSXERFLG=1"
^XMB(3.9,121,2,351,0)="""RTN"",""PSXBLD1"",67,0)"
^XMB(3.9,121,2,352,0)=" S:$P(TNODE,U,4)="""" PSXER=PSXER_""^""_8,PSXERFLG=1"
^XMB(3.9,121,2,353,0)="""RTN"",""PSXBLD1"",68,0)"
^XMB(3.9,121,2,354,0)=" ;VMP OIFO BAY PINES;ELR;PSX*2*57  SET PSXERFLG=0 NEXT LINE AND LINE AFTER THAT"
^XMB(3.9,121,2,355,0)="""RTN"",""PSXBLD1"",69,0)"
^XMB(3.9,121,2,356,0)=" I PSXERFLG=1 D ER1^PSXERR S PSXERFLG=0,PSXDIVER=1 Q"
^XMB(3.9,121,2,357,0)="""RTN"",""PSXBLD1"",70,0)"
^XMB(3.9,121,2,358,0)=" Q:$G(PSXPRECK)=1"
^XMB(3.9,121,2,359,0)="""RTN"",""PSXBLD1"",71,0)"
^XMB(3.9,121,2,360,0)=" S SZIP=$P(TNODE,U,5) I $L(SZIP)>5 S SZIP=$E(SZIP,1,5)_""-""_$E(SZIP,6,9)"
^XMB(3.9,121,2,361,0)="""RTN"",""PSXBLD1"",72,0)"
^XMB(3.9,121,2,362,0)=" S PSXORD(""A"")=""NTE|1||""_SITE_""\S\""_$P(TNODE,U,1)_""\S\""_PSXFAC_""\F\""_$P(TNODE,U,2)_""\S\\S\""_$P(TNODE,U,7)_""\S\""_$P(^DIC(5,STATE,0),U,2)_""\S\""_SZIP_""\F\""_""(""_$P(TNODE,U,3)_"") ""_$P(TNODE,U,4)"
^XMB(3.9,121,2,363,0)="""RTN"",""PSXBLD1"",73,0)"
^XMB(3.9,121,2,364,0)=" K SZIP"
^XMB(3.9,121,2,365,0)="""RTN"",""PSXBLD1"",74,0)"
^XMB(3.9,121,2,366,0)="ORD ;"
^XMB(3.9,121,2,367,0)="""RTN"",""PSXBLD1"",75,0)"
^XMB(3.9,121,2,368,0)=" S DIWL=1,DIWR=45,DIWF=""C45"""
^XMB(3.9,121,2,369,0)="""RTN"",""PSXBLD1"",76,0)"
^XMB(3.9,121,2,370,0)=" F NODE=6,7,4 K ^UTILITY($J,""W"") S (RECL,REC)=0 F  S REC=$O(^PS(59,PSOSITE,NODE,REC)) Q:REC'>0  S X=^(REC,0),NODE=NODE D"
^XMB(3.9,121,2,371,0)="""RTN"",""PSXBLD1"",77,0)"
^XMB(3.9,121,2,372,0)=" . I REC'>7 S Y=X D STRIP^PSXBLD S X=Y D ^DIWP,SET I 1"
^XMB(3.9,121,2,373,0)="""RTN"",""PSXBLD1"",78,0)"
^XMB(3.9,121,2,374,0)=" . E  S WARN(NODE)=REC"
^XMB(3.9,121,2,375,0)="""RTN"",""PSXBLD1"",79,0)"
^XMB(3.9,121,2,376,0)=" D:$D(WARN) WARN"
^XMB(3.9,121,2,377,0)="""RTN"",""PSXBLD1"",80,0)"
^XMB(3.9,121,2,378,0)=" K DIWF,DIWL,DIWR,I,NODE,STATE,SITE,TNODE,NUM,REC,Y,Y,X,Z,^UTILITY($J,""W"")"
^XMB(3.9,121,2,379,0)="""RTN"",""PSXBLD1"",81,0)"
^XMB(3.9,121,2,380,0)=" Q"
^XMB(3.9,121,2,381,0)="""RTN"",""PSXBLD1"",82,0)"
^XMB(3.9,121,2,382,0)="WARN ;send msg"
^XMB(3.9,121,2,383,0)="""RTN"",""PSXBLD1"",83,0)"
^XMB(3.9,121,2,384,0)=" S XMSUB="">>WARNING<< CMOP Pharmacy Site Prescription Instructions"""
^XMB(3.9,121,2,385,0)="""RTN"",""PSXBLD1"",84,0)"
^XMB(3.9,121,2,386,0)=" ;N TXT,XT"
^XMB(3.9,121,2,387,0)="""RTN"",""PSXBLD1"",85,0)"
^XMB(3.9,121,2,388,0)=" S XT(6)=""NARRATIVE REFILLABLE RX"""
^XMB(3.9,121,2,389,0)="""RTN"",""PSXBLD1"",86,0)"
^XMB(3.9,121,2,390,0)=" S XT(7)=""NARRATIVE NON REFILLABLE RX"""
^XMB(3.9,121,2,391,0)="""RTN"",""PSXBLD1"",87,0)"
^XMB(3.9,121,2,392,0)=" S XT(4)=""NARRATIVE FOR COPAY DOCUMENT"""
^XMB(3.9,121,2,393,0)="""RTN"",""PSXBLD1"",88,0)"
^XMB(3.9,121,2,394,0)=" S TXT(1)=""The following Pharmacy Site instruction(s) exceed seven lines."""
^XMB(3.9,121,2,395,0)="""RTN"",""PSXBLD1"",89,0)"
^XMB(3.9,121,2,396,0)=" S TXT(2)=""This exceeds CMOP limits."""
^XMB(3.9,121,2,397,0)="""RTN"",""PSXBLD1"",90,0)"
^XMB(3.9,121,2,398,0)=" S TXT(3)=""Lines beyound seven are not being sent to the CMOP."""
^XMB(3.9,121,2,399,0)="""RTN"",""PSXBLD1"",91,0)"
^XMB(3.9,121,2,400,0)=" S TXT(4)="" "",TXT(5)=""Pharmacy Site: ""_$$GET1^DIQ(59,PSOSITE,.01),L=5"
^XMB(3.9,121,2,401,0)="""RTN"",""PSXBLD1"",92,0)"
^XMB(3.9,121,2,402,0)=" F NODE=6,7,4 I $DATA(WARN(NODE)) S L=L+1,TXT(L)=XT(NODE)_""     ""_WARN(NODE)_"" lines"""
^XMB(3.9,121,2,403,0)="""RTN"",""PSXBLD1"",93,0)"
^XMB(3.9,121,2,404,0)=" S XMTEXT=""TXT("""
^XMB(3.9,121,2,405,0)="""RTN"",""PSXBLD1"",94,0)"
^XMB(3.9,121,2,406,0)=" D GRP1^PSXNOTE"
^XMB(3.9,121,2,407,0)="""RTN"",""PSXBLD1"",95,0)"
^XMB(3.9,121,2,408,0)=" S XMY(DUZ)="""""
^XMB(3.9,121,2,409,0)="""RTN"",""PSXBLD1"",96,0)"
^XMB(3.9,121,2,410,0)=" D ^XMD"
^XMB(3.9,121,2,411,0)="""RTN"",""PSXBLD1"",97,0)"
^XMB(3.9,121,2,412,0)=" Q"
^XMB(3.9,121,2,413,0)="""RTN"",""PSXBLD1"",98,0)"
^XMB(3.9,121,2,414,0)="SET ;"
^XMB(3.9,121,2,415,0)="""RTN"",""PSXBLD1"",99,0)"
^XMB(3.9,121,2,416,0)=" K PSXORDD S NUM=0"
^XMB(3.9,121,2,417,0)="""RTN"",""PSXBLD1"",100,0)"
^XMB(3.9,121,2,418,0)=" F  S NUM=$O(^UTILITY($J,""W"",1,NUM)) Q:NUM'>0  S PSXORDD(NUM)=$G(^UTILITY($J,""W"",1,NUM,0)) S PSXORDD(NUM)=$S(NODE=4:""NTE|4||""_PSXORDD(NUM),NODE=6:""NTE|2||""_PSXORDD(NUM),NODE=7:""NTE|3||""_PSXORDD(NUM),1:0)"
^XMB(3.9,121,2,419,0)="""RTN"",""PSXBLD1"",101,0)"
^XMB(3.9,121,2,420,0)=" ;F CNT=1:2 S CNT=$O(PSXORDD(CNT)) Q:CNT=""""  S XX=$L(PSXORDD(CNT)),PSXORDD(CNT-1)=PSXORDD(CNT-1)_""\R\""_$E(PSXORDD(CNT),8,XX) K PSXORDD(CNT)"
^XMB(3.9,121,2,421,0)="""RTN"",""PSXBLD1"",102,0)"
^XMB(3.9,121,2,422,0)=" S %X=""PSXORDD("",%Y=$S(NODE=4:""PSXORD(""""D"""","",NODE=6:""PSXORD(""""B"""","",NODE=7:""PSXORD(""""C"""","",1:0) D %XY^%RCR K %X,%Y,TEMP"
^XMB(3.9,121,2,423,0)="""RTN"",""PSXBLD1"",103,0)"
^XMB(3.9,121,2,424,0)=" Q"
^XMB(3.9,121,2,425,0)="""RTN"",""PSXRSUS"")"
^XMB(3.9,121,2,426,0)="0^2^B75846164"
^XMB(3.9,121,2,427,0)="""RTN"",""PSXRSUS"",1,0)"
^XMB(3.9,121,2,428,0)="PSXRSUS ;BIR/WPB,BAB,HTW-CMOP Transmission Handler ;15 Dec 2001"
^XMB(3.9,121,2,429,0)="""RTN"",""PSXRSUS"",2,0)"
^XMB(3.9,121,2,430,0)=" ;;2.0;CMOP;**2,3,24,23,26,28,41,57**;11 Apr 97"
^XMB(3.9,121,2,431,0)="""RTN"",""PSXRSUS"",3,0)"
^XMB(3.9,121,2,432,0)=" ;Reference to ^PS(52.5 supported by DBIA #1978"
^XMB(3.9,121,2,433,0)="""RTN"",""PSXRSUS"",4,0)"
^XMB(3.9,121,2,434,0)=" ;Reference to ^PS(59   supported by DBIA #1976"
^XMB(3.9,121,2,435,0)="""RTN"",""PSXRSUS"",5,0)"
^XMB(3.9,121,2,436,0)=" ;Reference to routine DEV1^PSOSULB1 supported by DBIA #2478"
^XMB(3.9,121,2,437,0)="""RTN"",""PSXRSUS"",6,0)"
^XMB(3.9,121,2,438,0)=" ;"
^XMB(3.9,121,2,439,0)="""RTN"",""PSXRSUS"",7,0)"
^XMB(3.9,121,2,440,0)=" ;Select CMOP Rx data from File 52.5,build HL7 segments,"
^XMB(3.9,121,2,441,0)="""RTN"",""PSXRSUS"",8,0)"
^XMB(3.9,121,2,442,0)=" ;and transmit data"
^XMB(3.9,121,2,443,0)="""RTN"",""PSXRSUS"",9,0)"
^XMB(3.9,121,2,444,0)=" ; This routine is called from PSOSULB1 'Print from Suspense'"
^XMB(3.9,121,2,445,0)="""RTN"",""PSXRSUS"",10,0)"
^XMB(3.9,121,2,446,0)=" ;"
^XMB(3.9,121,2,447,0)="""RTN"",""PSXRSUS"",11,0)"
^XMB(3.9,121,2,448,0)="START I '$D(^XUSEC(""PSXCMOPMGR"",DUZ)) W !,""You are not authorized to use this option!"" Q"
^XMB(3.9,121,2,449,0)="""RTN"",""PSXRSUS"",12,0)"
^XMB(3.9,121,2,450,0)=" I '$D(^XUSEC(""PSX XMIT"",DUZ)) W !,""You are not authorized to use this option!"" Q"
^XMB(3.9,121,2,451,0)="""RTN"",""PSXRSUS"",13,0)"
^XMB(3.9,121,2,452,0)=" S (PSXFLAG,PSXTRANS)=0"
^XMB(3.9,121,2,453,0)="""RTN"",""PSXRSUS"",14,0)"
^XMB(3.9,121,2,454,0)=" L +^PSX(550.1):3 I '$T W !,""A lock on the RX QUEUE file was not obtainable. A transmission is in progress, try later."" Q"
^XMB(3.9,121,2,455,0)="""RTN"",""PSXRSUS"",15,0)"
^XMB(3.9,121,2,456,0)=" ; lock on 550.1 obtainable, clear flags"
^XMB(3.9,121,2,457,0)="""RTN"",""PSXRSUS"",16,0)"
^XMB(3.9,121,2,458,0)=" I $D(^PSX(550,""TR"",""T"")) F  S PSXSYS=$O(^PSX(550,""TR"",""T"",0)) Q:PSXSYS'>0  S PSXSTAT=""H"" D PSXSTAT^PSXRSYU"
^XMB(3.9,121,2,459,0)="""RTN"",""PSXRSUS"",17,0)"
^XMB(3.9,121,2,460,0)=" D SET^PSXSYS"
^XMB(3.9,121,2,461,0)="""RTN"",""PSXRSUS"",18,0)"
^XMB(3.9,121,2,462,0)=" S STATUS=$P($G(^PSX(550,+PSXSYS,0)),""^"",3) I STATUS'=""H"" W !,STATUS,"" no Manual Transmission nor Print CMOP Suspense allowed at this time"" G EXIT"
^XMB(3.9,121,2,463,0)="""RTN"",""PSXRSUS"",19,0)"
^XMB(3.9,121,2,464,0)="QRY W ! K DIR"
^XMB(3.9,121,2,465,0)="""RTN"",""PSXRSUS"",20,0)"
^XMB(3.9,121,2,466,0)=" S DIR(0)=""NAO^1:5"",DIR(""A"")=""Select (1, 2, 3, 4, 5):  """
^XMB(3.9,121,2,467,0)="""RTN"",""PSXRSUS"",21,0)"
^XMB(3.9,121,2,468,0)=" S DIR(""A"",1)=""  1 - Initiate Standard CMOP Transmission"""
^XMB(3.9,121,2,469,0)="""RTN"",""PSXRSUS"",22,0)"
^XMB(3.9,121,2,470,0)=" S DIR(""A"",2)=""  2 - Initiate CS CMOP Transmission"""
^XMB(3.9,121,2,471,0)="""RTN"",""PSXRSUS"",23,0)"
^XMB(3.9,121,2,472,0)=" S DIR(""A"",3)=""  3 - Print Current Division -  Standard CMOP from Suspense"""
^XMB(3.9,121,2,473,0)="""RTN"",""PSXRSUS"",24,0)"
^XMB(3.9,121,2,474,0)=" S DIR(""A"",4)=""  4 - Print Current Division -  CS CMOP from Suspense"""
^XMB(3.9,121,2,475,0)="""RTN"",""PSXRSUS"",25,0)"
^XMB(3.9,121,2,476,0)=" S DIR(""A"",5)=""  5 - Standard Print from Suspense"""
^XMB(3.9,121,2,477,0)="""RTN"",""PSXRSUS"",26,0)"
^XMB(3.9,121,2,478,0)=" S DIR(""A"",6)="" """
^XMB(3.9,121,2,479,0)="""RTN"",""PSXRSUS"",27,0)"
^XMB(3.9,121,2,480,0)=" S DIR(""?"")=""Enter a number between 1 and 5."",DIR(""??"")=""^D MSG1^PSXRHLP"" D ^DIR I (Y<0)!($D(DIRUT)) K DIR G EXIT"
^XMB(3.9,121,2,481,0)="""RTN"",""PSXRSUS"",28,0)"
^XMB(3.9,121,2,482,0)=" W !!,DIR(""A"",X),!"
^XMB(3.9,121,2,483,0)="""RTN"",""PSXRSUS"",29,0)"
^XMB(3.9,121,2,484,0)=" S REPLY=X K Y,X"
^XMB(3.9,121,2,485,0)="""RTN"",""PSXRSUS"",30,0)"
^XMB(3.9,121,2,486,0)=" K DIRUT,DTOUT,DUOUT,DIROUT,DIR"
^XMB(3.9,121,2,487,0)="""RTN"",""PSXRSUS"",31,0)"
^XMB(3.9,121,2,488,0)="DIRECT ;Set PSXCS, PSXTRANS & PSXFLAG as per user choice"
^XMB(3.9,121,2,489,0)="""RTN"",""PSXRSUS"",32,0)"
^XMB(3.9,121,2,490,0)=" I REPLY=""5"" G DEV1^PSOSULB1"
^XMB(3.9,121,2,491,0)="""RTN"",""PSXRSUS"",33,0)"
^XMB(3.9,121,2,492,0)=" I ""24""[REPLY S PSXCS=1"
^XMB(3.9,121,2,493,0)="""RTN"",""PSXRSUS"",34,0)"
^XMB(3.9,121,2,494,0)=" I ""12""[REPLY S (PSXTRANS,PSXFLAG)=1"
^XMB(3.9,121,2,495,0)="""RTN"",""PSXRSUS"",35,0)"
^XMB(3.9,121,2,496,0)=" I ""34""[REPLY S PSXFLAG=2"
^XMB(3.9,121,2,497,0)="""RTN"",""PSXRSUS"",36,0)"
^XMB(3.9,121,2,498,0)=" K REPLY"
^XMB(3.9,121,2,499,0)="""RTN"",""PSXRSUS"",37,0)"
^XMB(3.9,121,2,500,0)=" ;"
^XMB(3.9,121,2,501,0)="""RTN"",""PSXRSUS"",38,0)"
^XMB(3.9,121,2,502,0)="ASK ;Ask 'all divisions y/n' & date range for data transmission & checks for data"
^XMB(3.9,121,2,503,0)="""RTN"",""PSXRSUS"",39,0)"
^XMB(3.9,121,2,504,0)=" W !"
^XMB(3.9,121,2,505,0)="""RTN"",""PSXRSUS"",40,0)"
^XMB(3.9,121,2,506,0)=" ;ask all divisions y/n"
^XMB(3.9,121,2,507,0)="""RTN"",""PSXRSUS"",41,0)"
^XMB(3.9,121,2,508,0)=" I PSXFLAG=2 S PSXDIVML=0 G ASK2"
^XMB(3.9,121,2,509,0)="""RTN"",""PSXRSUS"",42,0)"
^XMB(3.9,121,2,510,0)=" K DIR S DIR(0)=""Y"",DIR(""A"")=""Transmit Data for All Divisions ? "",DIR(""B"")=""YES"""
^XMB(3.9,121,2,511,0)="""RTN"",""PSXRSUS"",43,0)"
^XMB(3.9,121,2,512,0)=" S DIR(""?"",1)=""Yes - Transmit/Print All Divisions"""
^XMB(3.9,121,2,513,0)="""RTN"",""PSXRSUS"",44,0)"
^XMB(3.9,121,2,514,0)=" S DIR(""?"")=""No  - Transmit/Print One Division:   ""_$$GET1^DIQ(59,PSOSITE,.01)"
^XMB(3.9,121,2,515,0)="""RTN"",""PSXRSUS"",45,0)"
^XMB(3.9,121,2,516,0)=" D ^DIR K DIR"
^XMB(3.9,121,2,517,0)="""RTN"",""PSXRSUS"",46,0)"
^XMB(3.9,121,2,518,0)=" G:(Y<0)!($D(DIRUT)) EXIT"
^XMB(3.9,121,2,519,0)="""RTN"",""PSXRSUS"",47,0)"
^XMB(3.9,121,2,520,0)=" N PSXDIVML S PSXDIVML=+Y"
^XMB(3.9,121,2,521,0)="""RTN"",""PSXRSUS"",48,0)"
^XMB(3.9,121,2,522,0)="ASK2 W !"
^XMB(3.9,121,2,523,0)="""RTN"",""PSXRSUS"",49,0)"
^XMB(3.9,121,2,524,0)=" S %DT=""AEX"",%DT(""A"")=$S(PSXFLAG=1:""TRANSMIT CMOP DATA THRU DATE:  "",PSXFLAG=2:""PRINT CMOP LABELS THRU DATE:  "",1:0),%DT(""B"")=""TODAY"" D ^%DT K %DT,%DT(""A""),%DT(""B"")"
^XMB(3.9,121,2,525,0)="""RTN"",""PSXRSUS"",50,0)"
^XMB(3.9,121,2,526,0)=" S:Y<0 PFLAG=1 G:Y<0 EXIT"
^XMB(3.9,121,2,527,0)="""RTN"",""PSXRSUS"",51,0)"
^XMB(3.9,121,2,528,0)=" S (PDT,PRTDT,TPRTDT)=Y K Y S Y=PDT X ^DD(""DD"") S PDT=Y K Y"
^XMB(3.9,121,2,529,0)="""RTN"",""PSXRSUS"",52,0)"
^XMB(3.9,121,2,530,0)=" S CHKDT=$O(^PS(52.5,""AQ"","""")) I CHKDT>PRTDT W !!,$S(PSXFLAG=1:""NOTHING THRU THIS DATE TO TRANSMIT."",PSXFLAG=2:""NOTHING THRU THIS DATE TO PRINT."",1:0) S PFLAG=1 G EXIT"
^XMB(3.9,121,2,531,0)="""RTN"",""PSXRSUS"",53,0)"
^XMB(3.9,121,2,532,0)=" I '$O(^PS(52.5,""AQ"",0)) W !!,$S(PSXFLAG=1:""NOTHING THRU THIS DATE TO TRANSMIT."",PSXFLAG=2:""NOTHING THRU THIS DATE TO PRINT."",1:0) S PFLAG=1 G EXIT"
^XMB(3.9,121,2,533,0)="""RTN"",""PSXRSUS"",54,0)"
^XMB(3.9,121,2,534,0)=" ;"
^XMB(3.9,121,2,535,0)="""RTN"",""PSXRSUS"",55,0)"
^XMB(3.9,121,2,536,0)=" W ! K DIR S DIR(0)=""Y"",DIR(""B"")=""NO"",DIR(""A"")=""Are you sure you wish to continue"" D ^DIR K DIR S STOP=Y G:Y=0!($D(DIRUT))!($D(DUOUT)) EXIT K Y"
^XMB(3.9,121,2,537,0)="""RTN"",""PSXRSUS"",56,0)"
^XMB(3.9,121,2,538,0)=" S PSXSTAT=""T"" D PSXSTAT^PSXRSYU S PFLAG=0 I $G(PSXLOCK)>0 G EX1"
^XMB(3.9,121,2,539,0)="""RTN"",""PSXRSUS"",57,0)"
^XMB(3.9,121,2,540,0)=" ;"
^XMB(3.9,121,2,541,0)="""RTN"",""PSXRSUS"",58,0)"
^XMB(3.9,121,2,542,0)="DRIV ;calls the remaining routines to build the data for transmission and"
^XMB(3.9,121,2,543,0)="""RTN"",""PSXRSUS"",59,0)"
^XMB(3.9,121,2,544,0)=" S PSXDAYS=$P(PSOPAR,""^"",27),X1=TPRTDT,X2=PSXDAYS D C^%DTC S PSXDTRG=X K X,X1,X2"
^XMB(3.9,121,2,545,0)="""RTN"",""PSXRSUS"",60,0)"
^XMB(3.9,121,2,546,0)=" S PSXVENDR=$S($P(^PSX(550,+$G(PSXSYS),0),""^"")[""HINE"":""SI BAKER"",$P(^PSX(550,+$G(PSXSYS),0),""^"")[""MURF"":""SI BAKER"",1:""ELECTROCOM"")"
^XMB(3.9,121,2,547,0)="""RTN"",""PSXRSUS"",61,0)"
^XMB(3.9,121,2,548,0)=" ;set up queue device PSX or printer"
^XMB(3.9,121,2,549,0)="""RTN"",""PSXRSUS"",62,0)"
^XMB(3.9,121,2,550,0)=" I PSXFLAG=2 D BEGIN^PSXRPPL G:$G(POP) EXIT ;select printer PSLION"
^XMB(3.9,121,2,551,0)="""RTN"",""PSXRSUS"",63,0)"
^XMB(3.9,121,2,552,0)="QUE ; QUEUE the group/individual PSOSITE jobs for trans or the single job for print labels one division"
^XMB(3.9,121,2,553,0)="""RTN"",""PSXRSUS"",64,0)"
^XMB(3.9,121,2,554,0)=" S PSXDESC=""CMOP ""_$S($G(PSXCS)=1:""CS "",1:""NON-CS "")_""Transmission"""
^XMB(3.9,121,2,555,0)="""RTN"",""PSXRSUS"",65,0)"
^XMB(3.9,121,2,556,0)=" ;"
^XMB(3.9,121,2,557,0)="""RTN"",""PSXRSUS"",66,0)"
^XMB(3.9,121,2,558,0)=" S ZTDESC=$S(PSXFLAG=1:$G(PSXDESC),PSXFLAG=2:""Print CMOP Suspense"",1:"""")"
^XMB(3.9,121,2,559,0)="""RTN"",""PSXRSUS"",67,0)"
^XMB(3.9,121,2,560,0)=" S:PSXFLAG=1 ZTIO="""",ZTRTN=""TRANDIVS^PSXRSUS"""
^XMB(3.9,121,2,561,0)="""RTN"",""PSXRSUS"",68,0)"
^XMB(3.9,121,2,562,0)=" S:PSXFLAG=2 ZTIO=PSLION,ZTRTN=""PRT^PSXRSUS"""
^XMB(3.9,121,2,563,0)="""RTN"",""PSXRSUS"",69,0)"
^XMB(3.9,121,2,564,0)=" ;"
^XMB(3.9,121,2,565,0)="""RTN"",""PSXRSUS"",70,0)"
^XMB(3.9,121,2,566,0)=" S PSXDUZ=DUZ,(PSOINST,PSXSITE)=+$P($G(PSXSYS),U,2)"
^XMB(3.9,121,2,567,0)="""RTN"",""PSXRSUS"",71,0)"
^XMB(3.9,121,2,568,0)=" S ZTDTH=$H"
^XMB(3.9,121,2,569,0)="""RTN"",""PSXRSUS"",72,0)"
^XMB(3.9,121,2,570,0)=" F X=""PSXDIVML"",""PSOSITE"",""PSOLAP"",""PSOSYS"",""PSOPAR"",""PSXSYS"",""DUZ"",""PSXTRANS"",""PSXFLAG"",""PRTDT"",""PSOINST"",""PSXDUZ"",""PSXSITE"",""PSXVER"" S ZTSAVE(X)="""""
^XMB(3.9,121,2,571,0)="""RTN"",""PSXRSUS"",73,0)"
^XMB(3.9,121,2,572,0)=" F X=""PSXCS"",""PSXDAYS"",""PSXDTRG"",""PSOBARS"",""PSOBAR1"",""PSOBAR0"",""PSOPROP"",""PSXVENDR"",""PSLION"",""TPRTDT"" S ZTSAVE(X)="""""
^XMB(3.9,121,2,573,0)="""RTN"",""PSXRSUS"",74,0)"
^XMB(3.9,121,2,574,0)=" ;"
^XMB(3.9,121,2,575,0)="""RTN"",""PSXRSUS"",75,0)"
^XMB(3.9,121,2,576,0)=" K ZTSK"
^XMB(3.9,121,2,577,0)="""RTN"",""PSXRSUS"",76,0)"
^XMB(3.9,121,2,578,0)=" D ^%ZTLOAD ;****TESTING switch to tasking vs foreground"
^XMB(3.9,121,2,579,0)="""RTN"",""PSXRSUS"",77,0)"
^XMB(3.9,121,2,580,0)=" W:$G(ZTSK) !,""Tasked "",ZTSK H 4"
^XMB(3.9,121,2,581,0)="""RTN"",""PSXRSUS"",78,0)"
^XMB(3.9,121,2,582,0)=" ;D @ZTRTN ;****TESTING run foreground, comment out above two lines"
^XMB(3.9,121,2,583,0)="""RTN"",""PSXRSUS"",79,0)"
^XMB(3.9,121,2,584,0)=" Q"
^XMB(3.9,121,2,585,0)="""RTN"",""PSXRSUS"",80,0)"
^XMB(3.9,121,2,586,0)=" ;"
^XMB(3.9,121,2,587,0)="""RTN"",""PSXRSUS"",81,0)"
^XMB(3.9,121,2,588,0)="TRANDIVS ;Entry from transmission tasking; loop all divisions / or process only 1"
^XMB(3.9,121,2,589,0)="""RTN"",""PSXRSUS"",82,0)"
^XMB(3.9,121,2,590,0)=" ;process/transmit all divisions"
^XMB(3.9,121,2,591,0)="""RTN"",""PSXRSUS"",83,0)"
^XMB(3.9,121,2,592,0)="LOCK ; >>>**** LOCK OF FILE 550.1 ****<<<"
^XMB(3.9,121,2,593,0)="""RTN"",""PSXRSUS"",84,0)"
^XMB(3.9,121,2,594,0)=" F I=1:1:3 L +^PSX(550.1):10 I $T S I=100"
^XMB(3.9,121,2,595,0)="""RTN"",""PSXRSUS"",85,0)"
^XMB(3.9,121,2,596,0)=" I I'=100 D CANMSG G EXIT ; could not get a lock in 18 minutes of waiting"
^XMB(3.9,121,2,597,0)="""RTN"",""PSXRSUS"",86,0)"
^XMB(3.9,121,2,598,0)=" D STOREVAR^PSXRSUS1 ; store critical variables"
^XMB(3.9,121,2,599,0)="""RTN"",""PSXRSUS"",87,0)"
^XMB(3.9,121,2,600,0)=" I $D(^PSX(550.2,""AQ"")) D EN1^PSXRCVRY"
^XMB(3.9,121,2,601,0)="""RTN"",""PSXRSUS"",88,0)"
^XMB(3.9,121,2,602,0)=" I PSXDIVML N PSOSITE,PSOPAR D  G EXIT"
^XMB(3.9,121,2,603,0)="""RTN"",""PSXRSUS"",89,0)"
^XMB(3.9,121,2,604,0)=" . S PSOSITE=0 F  S PSOSITE=$O(^PS(59,PSOSITE)) Q:PSOSITE'>0  D"
^XMB(3.9,121,2,605,0)="""RTN"",""PSXRSUS"",90,0)"
^XMB(3.9,121,2,606,0)=" .. I '$D(^XTMP(""PSXAUTOERR"")) N $ETRAP,$ESTACK S $ETRAP=""D TRAPERR^PSXRSUS"""
^XMB(3.9,121,2,607,0)="""RTN"",""PSXRSUS"",91,0)"
^XMB(3.9,121,2,608,0)=" .. D RESETVAR^PSXRSUS1 ;retrieve critical variables"
^XMB(3.9,121,2,609,0)="""RTN"",""PSXRSUS"",92,0)"
^XMB(3.9,121,2,610,0)=" .. S PSOPAR=^PS(59,PSOSITE,1),PRTDT=TPRTDT"
^XMB(3.9,121,2,611,0)="""RTN"",""PSXRSUS"",93,0)"
^XMB(3.9,121,2,612,0)=" .. S PSXDAYS=$P(PSOPAR,""^"",27),X1=PRTDT,X2=PSXDAYS D C^%DTC S PSXDTRG=X K X,X1,X2 ;adjusts variables per divisional parameters."
^XMB(3.9,121,2,613,0)="""RTN"",""PSXRSUS"",94,0)"
^XMB(3.9,121,2,614,0)=" .. D TRANS"
^XMB(3.9,121,2,615,0)="""RTN"",""PSXRSUS"",95,0)"
^XMB(3.9,121,2,616,0)=" ; process a single division"
^XMB(3.9,121,2,617,0)="""RTN"",""PSXRSUS"",96,0)"
^XMB(3.9,121,2,618,0)=" D"
^XMB(3.9,121,2,619,0)="""RTN"",""PSXRSUS"",97,0)"
^XMB(3.9,121,2,620,0)=" . I '$D(^XTMP(""PSXAUTOERR"")) N $ETRAP,$ESTACK S $ETRAP=""D TRAPERR^PSXRSUS"""
^XMB(3.9,121,2,621,0)="""RTN"",""PSXRSUS"",98,0)"
^XMB(3.9,121,2,622,0)=" . D TRANS"
^XMB(3.9,121,2,623,0)="""RTN"",""PSXRSUS"",99,0)"
^XMB(3.9,121,2,624,0)=" G EXIT"
^XMB(3.9,121,2,625,0)="""RTN"",""PSXRSUS"",100,0)"
^XMB(3.9,121,2,626,0)=" ;"
^XMB(3.9,121,2,627,0)="""RTN"",""PSXRSUS"",101,0)"
^XMB(3.9,121,2,628,0)=" ;Called by Taskman to build CMOP PRINT data"
^XMB(3.9,121,2,629,0)="""RTN"",""PSXRSUS"",102,0)"
^XMB(3.9,121,2,630,0)="TRANS ;;Called by PSXAUTO Taskman to begin CMOP transmissions one division"
^XMB(3.9,121,2,631,0)="""RTN"",""PSXRSUS"",103,0)"
^XMB(3.9,121,2,632,0)=" S PSXZTSK=$G(ZTSK),PSXERFLG=0,PSXDUZ=DUZ"
^XMB(3.9,121,2,633,0)="""RTN"",""PSXRSUS"",104,0)"
^XMB(3.9,121,2,634,0)=" S PSXTST=0,PSXIN=$$GET1^DIQ(59,PSOSITE,2004,""I"")"
^XMB(3.9,121,2,635,0)="""RTN"",""PSXRSUS"",105,0)"
^XMB(3.9,121,2,636,0)=" S:PSXIN'=""""&(PSXIN<(DT+.1)) PSXTST=1"
^XMB(3.9,121,2,637,0)="""RTN"",""PSXRSUS"",106,0)"
^XMB(3.9,121,2,638,0)=" Q:PSXTST  ;division inactivated"
^XMB(3.9,121,2,639,0)="""RTN"",""PSXRSUS"",107,0)"
^XMB(3.9,121,2,640,0)=" ;VMP OIFO BAY PINES;ELR;PSX*2*57 CK IF ALL NECESSARY ELEMENTS OF DIVISION ARE HERE"
^XMB(3.9,121,2,641,0)="""RTN"",""PSXRSUS"",108,0)"
^XMB(3.9,121,2,642,0)=" NEW PSXDIVER S PSXPRECK=1 D DIV^PSXBLD1 K PSXPRECK I $G(PSXDIVER) Q"
^XMB(3.9,121,2,643,0)="""RTN"",""PSXRSUS"",109,0)"
^XMB(3.9,121,2,644,0)=" S PSXSTAT=""T"" D PSXSTAT^PSXRSYU"
^XMB(3.9,121,2,645,0)="""RTN"",""PSXRSUS"",110,0)"
^XMB(3.9,121,2,646,0)=" I $G(PSXCS)=1 S X=$$FMADD^XLFDT(DT,+2) S ^XTMP(""PSXCS""_PSOSITE,0)=X_U_DT_U_""CMOP CS TRANSMISSION"""
^XMB(3.9,121,2,647,0)="""RTN"",""PSXRSUS"",111,0)"
^XMB(3.9,121,2,648,0)=" D SDT^PSXRPPL I PSXERFLG=1 S PSXJOB=7 D ^PSXERR"
^XMB(3.9,121,2,649,0)="""RTN"",""PSXRSUS"",112,0)"
^XMB(3.9,121,2,650,0)=" I '$G(PSXBAT) D OERRCLR Q  ;no RXs found nor loaded into 550.2"
^XMB(3.9,121,2,651,0)="""RTN"",""PSXRSUS"",113,0)"
^XMB(3.9,121,2,652,0)="RTR ;"
^XMB(3.9,121,2,653,0)="""RTN"",""PSXRSUS"",114,0)"
^XMB(3.9,121,2,654,0)=" ;Clear 550.1 of entries (INSURE NO MERGE) prior to transmission"
^XMB(3.9,121,2,655,0)="""RTN"",""PSXRSUS"",115,0)"
^XMB(3.9,121,2,656,0)=" K DIK,DA S DIK=""^PSX(550.1,"",DA=0 F  S DA=$O(^PSX(550.1,DA)) Q:DA'>0  D ^DIK ;****TESTING"
^XMB(3.9,121,2,657,0)="""RTN"",""PSXRSUS"",116,0)"
^XMB(3.9,121,2,658,0)=" D EN^PSXBLD ; build entries into 550.1 by alpha patient"
^XMB(3.9,121,2,659,0)="""RTN"",""PSXRSUS"",117,0)"
^XMB(3.9,121,2,660,0)=" I PSXERFLG=1 S PFLAG=1 D EN^PSXERR"
^XMB(3.9,121,2,661,0)="""RTN"",""PSXRSUS"",118,0)"
^XMB(3.9,121,2,662,0)=" D EN^PSXRTR ;complete and send mailman message to CMOP"
^XMB(3.9,121,2,663,0)="""RTN"",""PSXRSUS"",119,0)"
^XMB(3.9,121,2,664,0)=" ;Clear 550.1 of entries (INSURE NO MERGE) after transmission complete"
^XMB(3.9,121,2,665,0)="""RTN"",""PSXRSUS"",120,0)"
^XMB(3.9,121,2,666,0)=" K DIK,DA S DIK=""^PSX(550.1,"",DA=0 F  S DA=$O(^PSX(550.1,DA)) Q:DA'>0  D ^DIK ;****TESTING"
^XMB(3.9,121,2,667,0)="""RTN"",""PSXRSUS"",121,0)"
^XMB(3.9,121,2,668,0)=" D OERRCLR"
^XMB(3.9,121,2,669,0)="""RTN"",""PSXRSUS"",122,0)"
^XMB(3.9,121,2,670,0)=" Q"
^XMB(3.9,121,2,671,0)="""RTN"",""PSXRSUS"",123,0)"
^XMB(3.9,121,2,672,0)="PRT ; print from CMOP suspense"
^XMB(3.9,121,2,673,0)="""RTN"",""PSXRSUS"",124,0)"
^XMB(3.9,121,2,674,0)=" F I=1:1:3 L +^PSX(550.1):60 I $T S I=100"
^XMB(3.9,121,2,675,0)="""RTN"",""PSXRSUS"",125,0)"
^XMB(3.9,121,2,676,0)=" I I'=100 D CANMSG G EXIT ; could not get a lock in 3 minutes of waiting"
^XMB(3.9,121,2,677,0)="""RTN"",""PSXRSUS"",126,0)"
^XMB(3.9,121,2,678,0)=" ; set auto error trapping"
^XMB(3.9,121,2,679,0)="""RTN"",""PSXRSUS"",127,0)"
^XMB(3.9,121,2,680,0)=" D"
^XMB(3.9,121,2,681,0)="""RTN"",""PSXRSUS"",128,0)"
^XMB(3.9,121,2,682,0)=" . I '$D(^XTMP(""PSXAUTOERR"")) N $ETRAP,$ESTACK S $ETRAP=""D PRTERR^PSXRPPL"""
^XMB(3.9,121,2,683,0)="""RTN"",""PSXRSUS"",129,0)"
^XMB(3.9,121,2,684,0)=" . D PRT1"
^XMB(3.9,121,2,685,0)="""RTN"",""PSXRSUS"",130,0)"
^XMB(3.9,121,2,686,0)=" D OERRCLR"
^XMB(3.9,121,2,687,0)="""RTN"",""PSXRSUS"",131,0)"
^XMB(3.9,121,2,688,0)=" G EX1"
^XMB(3.9,121,2,689,0)="""RTN"",""PSXRSUS"",132,0)"
^XMB(3.9,121,2,690,0)="PRT1 S ZTREQ=""@"",PSXERFLG=0,NFLAG=2"
^XMB(3.9,121,2,691,0)="""RTN"",""PSXRSUS"",133,0)"
^XMB(3.9,121,2,692,0)=" D SDT^PSXRPPL"
^XMB(3.9,121,2,693,0)="""RTN"",""PSXRSUS"",134,0)"
^XMB(3.9,121,2,694,0)=" I $G(PSXBAT),$D(^PSX(550.2,PSXBAT,15)) D PRT^PSXRPPL"
^XMB(3.9,121,2,695,0)="""RTN"",""PSXRSUS"",135,0)"
^XMB(3.9,121,2,696,0)=" I PSXERFLG=1 S PSXJOB=7 D ^PSXERR"
^XMB(3.9,121,2,697,0)="""RTN"",""PSXRSUS"",136,0)"
^XMB(3.9,121,2,698,0)=" ;remove the batch from the transmission file as it was used only to hold the RXs for printing and not transmission"
^XMB(3.9,121,2,699,0)="""RTN"",""PSXRSUS"",137,0)"
^XMB(3.9,121,2,700,0)=" I $G(PSXBAT) K DIK,DA S DA=PSXBAT,DIK=""^PSX(550.2,"" D ^DIK K DIK,DA ;****TESTING"
^XMB(3.9,121,2,701,0)="""RTN"",""PSXRSUS"",138,0)"
^XMB(3.9,121,2,702,0)=" G EX1"
^XMB(3.9,121,2,703,0)="""RTN"",""PSXRSUS"",139,0)"
^XMB(3.9,121,2,704,0)="EXIT ;"
^XMB(3.9,121,2,705,0)="""RTN"",""PSXRSUS"",140,0)"
^XMB(3.9,121,2,706,0)=" I $G(POP) S PSXSTAT=""H"" D PSXSTAT^PSXRSYU ;exit from 'no printer selected' of print labels CMOP"
^XMB(3.9,121,2,707,0)="""RTN"",""PSXRSUS"",141,0)"
^XMB(3.9,121,2,708,0)=" ;I $G(PFLAG)=1 S PSXSTAT=""H"" D PSXSTAT^PSXRSYU"
^XMB(3.9,121,2,709,0)="""RTN"",""PSXRSUS"",142,0)"
^XMB(3.9,121,2,710,0)=" K DA,DIE,DR"
^XMB(3.9,121,2,711,0)="""RTN"",""PSXRSUS"",143,0)"
^XMB(3.9,121,2,712,0)=" S DA=+PSXSYS,DIE=""^PSX(550,"",DR=""9///@"""
^XMB(3.9,121,2,713,0)="""RTN"",""PSXRSUS"",144,0)"
^XMB(3.9,121,2,714,0)=" L +^PSX(550,DA):600 D ^DIE L -^PSX(550,DA)"
^XMB(3.9,121,2,715,0)="""RTN"",""PSXRSUS"",145,0)"
^XMB(3.9,121,2,716,0)=" K DA,DIE,DR"
^XMB(3.9,121,2,717,0)="""RTN"",""PSXRSUS"",146,0)"
^XMB(3.9,121,2,718,0)=" S PSXSTAT=""H"" D PSXSTAT^PSXRSYU"
^XMB(3.9,121,2,719,0)="""RTN"",""PSXRSUS"",147,0)"
^XMB(3.9,121,2,720,0)="EX1 K ^PSX(""CMOP TRAN"")"
^XMB(3.9,121,2,721,0)="""RTN"",""PSXRSUS"",148,0)"
^XMB(3.9,121,2,722,0)=" K CNAME,DFN,FILNUM,PNAME,PSXDAYS,PSXDTRG,^TMP($J,""PSX""),J,Y"
^XMB(3.9,121,2,723,0)="""RTN"",""PSXRSUS"",149,0)"
^XMB(3.9,121,2,724,0)=" K PSXPTR,REC,REF,REPLY,SDT,X,X1,X2,Y,ANSWER,PSXOK,RXNUM,PSXSITE,DIR,DIRUT,DTOUT,DUOUT,DIROUT,PSXCS,TXT,TEXT"
^XMB(3.9,121,2,725,0)="""RTN"",""PSXRSUS"",150,0)"
^XMB(3.9,121,2,726,0)=" K XDFN,STATUS,PSXSTAT,^TMP($J,""PSXDFN""),PDT,PSXDUZ,SITE,CHKDT,PSXERFLG,PSXRXERR,RXEX,FDATE,PSXJOB,PFLAG,PSXZTSK,PSXVENDR,ORSUB,ORST"
^XMB(3.9,121,2,727,0)="""RTN"",""PSXRSUS"",151,0)"
^XMB(3.9,121,2,728,0)=" L -^PSX(550.1)"
^XMB(3.9,121,2,729,0)="""RTN"",""PSXRSUS"",152,0)"
^XMB(3.9,121,2,730,0)=" Q"
^XMB(3.9,121,2,731,0)="""RTN"",""PSXRSUS"",153,0)"
^XMB(3.9,121,2,732,0)="OERRCLR ; clear any locks left in ^XTMP(""OERR-"""
^XMB(3.9,121,2,733,0)="""RTN"",""PSXRSUS"",154,0)"
^XMB(3.9,121,2,734,0)=" S (ORST,ORSUB)=""ORLK-"""
^XMB(3.9,121,2,735,0)="""RTN"",""PSXRSUS"",155,0)"
^XMB(3.9,121,2,736,0)=" F  S ORSUB=$O(^XTMP(ORSUB)) Q:ORSUB'[ORST  I ^XTMP(ORSUB,0)[""CPRS/CMOP"" K ^XTMP(ORSUB)"
^XMB(3.9,121,2,737,0)="""RTN"",""PSXRSUS"",156,0)"
^XMB(3.9,121,2,738,0)=" Q"
^XMB(3.9,121,2,739,0)="""RTN"",""PSXRSUS"",157,0)"
^XMB(3.9,121,2,740,0)="CANMSG ; lock on 550.1 not achieved send transmission/print cancelled message"
^XMB(3.9,121,2,741,0)="""RTN"",""PSXRSUS"",158,0)"
^XMB(3.9,121,2,742,0)=" S PSXCS=+$G(PSXCS)"
^XMB(3.9,121,2,743,0)="""RTN"",""PSXRSUS"",159,0)"
^XMB(3.9,121,2,744,0)=" S XMSUB=$S($G(PSXCS):"""",1:""NON-"")_""CS Manual Scheduled Transmission Canceled"""
^XMB(3.9,121,2,745,0)="""RTN"",""PSXRSUS"",160,0)"
^XMB(3.9,121,2,746,0)=" S:PSXFLAG=2 XMSUB=""Print CMOP Suspense Cancelled."""
^XMB(3.9,121,2,747,0)="""RTN"",""PSXRSUS"",161,0)"
^XMB(3.9,121,2,748,0)=" S XMTEXT=""TXT("""
^XMB(3.9,121,2,749,0)="""RTN"",""PSXRSUS"",162,0)"
^XMB(3.9,121,2,750,0)=" S TXT(1,0)=""The ""_$S($G(PSXCS):"""",1:""NON-"")_""CS Manual Transmission was cancelled"""
^XMB(3.9,121,2,751,0)="""RTN"",""PSXRSUS"",163,0)"
^XMB(3.9,121,2,752,0)=" S:PSXFLAG=2 TXT(1,0)=""Print from CMOP Suspense was cancelled"""
^XMB(3.9,121,2,753,0)="""RTN"",""PSXRSUS"",164,0)"
^XMB(3.9,121,2,754,0)=" S TXT(2,0)=""It could not obtain a lock on the RX QUEUE file. #550.1"""
^XMB(3.9,121,2,755,0)="""RTN"",""PSXRSUS"",165,0)"
^XMB(3.9,121,2,756,0)=" S TXT(3,0)=""This indicates that a transmission was in progress."""
^XMB(3.9,121,2,757,0)="""RTN"",""PSXRSUS"",166,0)"
^XMB(3.9,121,2,758,0)=" S TXT(6,0)="" """
^XMB(3.9,121,2,759,0)="""RTN"",""PSXRSUS"",167,0)"
^XMB(3.9,121,2,760,0)=" S TXT(7,0)=""If you are getting this message frequently, please contact your IRM Group"""
^XMB(3.9,121,2,761,0)="""RTN"",""PSXRSUS"",168,0)"
^XMB(3.9,121,2,762,0)=" D GRP1^PSXNOTE"
^XMB(3.9,121,2,763,0)="""RTN"",""PSXRSUS"",169,0)"
^XMB(3.9,121,2,764,0)=" ;S XMY(DUZ)="""""
^XMB(3.9,121,2,765,0)="""RTN"",""PSXRSUS"",170,0)"
^XMB(3.9,121,2,766,0)=" D ^XMD"
^XMB(3.9,121,2,767,0)="""RTN"",""PSXRSUS"",171,0)"
^XMB(3.9,121,2,768,0)=" Q"
^XMB(3.9,121,2,769,0)="""RTN"",""PSXRSUS"",172,0)"
^XMB(3.9,121,2,770,0)="TRAPERR ; trap/process error"
^XMB(3.9,121,2,771,0)="""RTN"",""PSXRSUS"",173,0)"
^XMB(3.9,121,2,772,0)=" S XXERR=$$EC^%ZOSV"
^XMB(3.9,121,2,773,0)="""RTN"",""PSXRSUS"",174,0)"
^XMB(3.9,121,2,774,0)=" S PSXDIVNM=$$GET1^DIQ(59,PSOSITE,.01)"
^XMB(3.9,121,2,775,0)="""RTN"",""PSXRSUS"",175,0)"
^XMB(3.9,121,2,776,0)=" ;save an image of the transient file 550.1 for 2 days"
^XMB(3.9,121,2,777,0)="""RTN"",""PSXRSUS"",176,0)"
^XMB(3.9,121,2,778,0)=" D NOW^%DTC S DTTM=%"
^XMB(3.9,121,2,779,0)="""RTN"",""PSXRSUS"",177,0)"
^XMB(3.9,121,2,780,0)=" ;VMP OIFO BAY PINES;ELR;PSX*2*57 CHANGE PURGE DAYS TO T+12 FROM T+2"
^XMB(3.9,121,2,781,0)="""RTN"",""PSXRSUS"",178,0)"
^XMB(3.9,121,2,782,0)=" S X=$$FMADD^XLFDT(DT,+12) S ^XTMP(""PSXERR ""_DTTM,0)=X_U_DT_U_""CMOP ""_XXERR"
^XMB(3.9,121,2,783,0)="""RTN"",""PSXRSUS"",179,0)"
^XMB(3.9,121,2,784,0)=" M ^XTMP(""PSXERR ""_DTTM,550.1)=^PSX(550.1)"
^XMB(3.9,121,2,785,0)="""RTN"",""PSXRSUS"",180,0)"
^XMB(3.9,121,2,786,0)=" S XMSUB=""CMOP Error ""_PSXDIVNM_"" ""_$$GET1^DIQ(550.2,+$G(PSXBAT),.01)"
^XMB(3.9,121,2,787,0)="""RTN"",""PSXRSUS"",181,0)"
^XMB(3.9,121,2,788,0)=" D GRP1^PSXNOTE"
^XMB(3.9,121,2,789,0)="""RTN"",""PSXRSUS"",182,0)"
^XMB(3.9,121,2,790,0)=" ;S XMY(DUZ)="""""
^XMB(3.9,121,2,791,0)="""RTN"",""PSXRSUS"",183,0)"
^XMB(3.9,121,2,792,0)=" S XMTEXT=""TEXT("""
^XMB(3.9,121,2,793,0)="""RTN"",""PSXRSUS"",184,0)"
^XMB(3.9,121,2,794,0)=" S TEXT(1,0)=$S($G(PSXCS):"""",1:""NON-"")_""CS CMOP Transmission encountered the following error. Please investigate"""
^XMB(3.9,121,2,795,0)="""RTN"",""PSXRSUS"",185,0)"
^XMB(3.9,121,2,796,0)=" S TEXT(2,0)=""Division:         ""_PSXDIVNM"
^XMB(3.9,121,2,797,0)="""RTN"",""PSXRSUS"",186,0)"
^XMB(3.9,121,2,798,0)=" S TEXT(3,0)=""Type/Batch        ""_$S($G(PSXCS):""CS"",1:""NON-CS"")_"" / ""_$$GET1^DIQ(550.2,+$G(PSXBAT),.01)"
^XMB(3.9,121,2,799,0)="""RTN"",""PSXRSUS"",187,0)"
^XMB(3.9,121,2,800,0)=" S TEXT(4,0)=""Error:            ""_XXERR"
^XMB(3.9,121,2,801,0)="""RTN"",""PSXRSUS"",188,0)"
^XMB(3.9,121,2,802,0)=" S TEXT(5,0)=""The prescriptions have been reset and other divisions' transmissions are continuing."""
^XMB(3.9,121,2,803,0)="""RTN"",""PSXRSUS"",189,0)"
^XMB(3.9,121,2,804,0)=" S TEXT(6,0)=""A copy of the file 550.1 can be found in ^XTMP(""""PSXERR ""_DTTM_"""""")"""
^XMB(3.9,121,2,805,0)="""RTN"",""PSXRSUS"",190,0)"
^XMB(3.9,121,2,806,0)=" D ^%ZTER"
^XMB(3.9,121,2,807,0)="""RTN"",""PSXRSUS"",191,0)"
^XMB(3.9,121,2,808,0)=" D ^XMD"
^XMB(3.9,121,2,809,0)="""RTN"",""PSXRSUS"",192,0)"
^XMB(3.9,121,2,810,0)=" ;I $E(IOST)=""C"" F XX=1:1:5 W !,TEXT(XX,0)"
^XMB(3.9,121,2,811,0)="""RTN"",""PSXRSUS"",193,0)"
^XMB(3.9,121,2,812,0)=" S PSXXDIV=PSOSITE"
^XMB(3.9,121,2,813,0)="""RTN"",""PSXRSUS"",194,0)"
^XMB(3.9,121,2,814,0)=" D EN1^PSXRCVRY ;hopefully no errors will be experienced in recovery"
^XMB(3.9,121,2,815,0)="""RTN"",""PSXRSUS"",195,0)"
^XMB(3.9,121,2,816,0)=" S PSOSITE=PSXXDIV"
^XMB(3.9,121,2,817,0)="""RTN"",""PSXRSUS"",196,0)"
^XMB(3.9,121,2,818,0)=" G UNWIND^%ZTER"
^XMB(3.9,121,2,819,0)="""RTN"",""PSXRSUS"",197,0)"
^XMB(3.9,121,2,820,0)=" Q"
^XMB(3.9,121,2,821,0)="""RTN"",""PSXRSUS"",198,0)"
^XMB(3.9,121,2,822,0)="STOPET ;disable auto error trapping"
^XMB(3.9,121,2,823,0)="""RTN"",""PSXRSUS"",199,0)"
^XMB(3.9,121,2,824,0)=" S ^XTMP(""PSXAUTOERR"",0)=DT_U_DT_U_""disable PSX CMOP auto error trapping for today"""
^XMB(3.9,121,2,825,0)="""RTN"",""PSXRSUS"",200,0)"
^XMB(3.9,121,2,826,0)=" Q"
^XMB(3.9,121,2,827,0)="""RTN"",""PSXRSUS"",201,0)"
^XMB(3.9,121,2,828,0)="STARTET ;enable auto error trapping"
^XMB(3.9,121,2,829,0)="""RTN"",""PSXRSUS"",202,0)"
^XMB(3.9,121,2,830,0)=" K ^XTMP(""PSXAUTOERR"",0)"
^XMB(3.9,121,2,831,0)="""RTN"",""PSXRSUS"",203,0)"
^XMB(3.9,121,2,832,0)=" Q"
^XMB(3.9,121,2,833,0)="""RTN"",""PSXRXU"")"
^XMB(3.9,121,2,834,0)="0^1^B27958226"
^XMB(3.9,121,2,835,0)="""RTN"",""PSXRXU"",1,0)"
^XMB(3.9,121,2,836,0)="PSXRXU ;BIR/WPB,HTW,BAB-Remote Facility File Utilities ;14 Dec 2001"
^XMB(3.9,121,2,837,0)="""RTN"",""PSXRXU"",2,0)"
^XMB(3.9,121,2,838,0)=" ;;2.0;CMOP;**3,28,41,57**;11 Apr 97"
^XMB(3.9,121,2,839,0)="""RTN"",""PSXRXU"",3,0)"
^XMB(3.9,121,2,840,0)=" ; Reference to ^PS(52.5,  supported by DBIA #1978"
^XMB(3.9,121,2,841,0)="""RTN"",""PSXRXU"",4,0)"
^XMB(3.9,121,2,842,0)=" ; Reference to ^PSOHLSN1  supported by DBIA #2385"
^XMB(3.9,121,2,843,0)="""RTN"",""PSXRXU"",5,0)"
^XMB(3.9,121,2,844,0)=" ; Reference to ^PSRX(     supported by DBIA #1977"
^XMB(3.9,121,2,845,0)="""RTN"",""PSXRXU"",6,0)"
^XMB(3.9,121,2,846,0)=" ; Reference to ^XTMP(""ORLK-"" supported by DBIA #4001"
^XMB(3.9,121,2,847,0)="""RTN"",""PSXRXU"",7,0)"
^XMB(3.9,121,2,848,0)="START ;files transmission data in file 52 52.5 after transmission is sent"
^XMB(3.9,121,2,849,0)="""RTN"",""PSXRXU"",8,0)"
^XMB(3.9,121,2,850,0)=" ; and clear OERR lock ^XTMP(""ORLK-"""
^XMB(3.9,121,2,851,0)="""RTN"",""PSXRXU"",9,0)"
^XMB(3.9,121,2,852,0)=" ; setup error trap for updating RXs in 52 & 52.5"
^XMB(3.9,121,2,853,0)="""RTN"",""PSXRXU"",10,0)"
^XMB(3.9,121,2,854,0)=" D"
^XMB(3.9,121,2,855,0)="""RTN"",""PSXRXU"",11,0)"
^XMB(3.9,121,2,856,0)=" . I '$D(^XTMP(""PSXAUTOERR"")) N $ETRAP,$ESTACK S $ETRAP=""D RXERR^PSXRXU"""
^XMB(3.9,121,2,857,0)="""RTN"",""PSXRXU"",12,0)"
^XMB(3.9,121,2,858,0)=" . D START1"
^XMB(3.9,121,2,859,0)="""RTN"",""PSXRXU"",13,0)"
^XMB(3.9,121,2,860,0)=" Q"
^XMB(3.9,121,2,861,0)="""RTN"",""PSXRXU"",14,0)"
^XMB(3.9,121,2,862,0)="START1 ;"
^XMB(3.9,121,2,863,0)="""RTN"",""PSXRXU"",15,0)"
^XMB(3.9,121,2,864,0)=" S PSXNM="""",PSXMSG=0"
^XMB(3.9,121,2,865,0)="""RTN"",""PSXRXU"",16,0)"
^XMB(3.9,121,2,866,0)=" F  S PSXNM=$O(^PSX(550.2,PSXBAT,15,""C"",PSXNM)) Q:PSXNM']""""  D"
^XMB(3.9,121,2,867,0)="""RTN"",""PSXRXU"",17,0)"
^XMB(3.9,121,2,868,0)=" . S DFN="""" F  S DFN=$O(^PSX(550.2,PSXBAT,15,""C"",PSXNM,DFN)) Q:DFN'>0  D"
^XMB(3.9,121,2,869,0)="""RTN"",""PSXRXU"",18,0)"
^XMB(3.9,121,2,870,0)=" .. S RX=0,PSXMSG=PSXMSG+1 F  S RX=$O(^PSX(550.2,PSXBAT,15,""C"",PSXNM,DFN,RX)) Q:RX'>0  D"
^XMB(3.9,121,2,871,0)="""RTN"",""PSXRXU"",19,0)"
^XMB(3.9,121,2,872,0)=" ... S RXF=$O(^PSX(550.2,PSXBAT,15,""C"",PSXNM,DFN,RX,0))"
^XMB(3.9,121,2,873,0)="""RTN"",""PSXRXU"",20,0)"
^XMB(3.9,121,2,874,0)=" ... D FILE"
^XMB(3.9,121,2,875,0)="""RTN"",""PSXRXU"",21,0)"
^XMB(3.9,121,2,876,0)=" Q"
^XMB(3.9,121,2,877,0)="""RTN"",""PSXRXU"",22,0)"
^XMB(3.9,121,2,878,0)="F D FILE^DICN"
^XMB(3.9,121,2,879,0)="""RTN"",""PSXRXU"",23,0)"
^XMB(3.9,121,2,880,0)=" Q"
^XMB(3.9,121,2,881,0)="""RTN"",""PSXRXU"",24,0)"
^XMB(3.9,121,2,882,0)="FILE ;files the data in the CMOP event multiple of PSRX("
^XMB(3.9,121,2,883,0)="""RTN"",""PSXRXU"",25,0)"
^XMB(3.9,121,2,884,0)=" ;update 52, 52.5 called from PSXBLD RX loop"
^XMB(3.9,121,2,885,0)="""RTN"",""PSXRXU"",26,0)"
^XMB(3.9,121,2,886,0)=" S FILL=+RXF"
^XMB(3.9,121,2,887,0)="""RTN"",""PSXRXU"",27,0)"
^XMB(3.9,121,2,888,0)=" S:$G(PSXTDT)="""" PSXTDT=$P(^PSX(550.2,PSXBAT,0),""^"",6)"
^XMB(3.9,121,2,889,0)="""RTN"",""PSXRXU"",28,0)"
^XMB(3.9,121,2,890,0)=" Q:'$D(^PSRX(RX,0))"
^XMB(3.9,121,2,891,0)="""RTN"",""PSXRXU"",29,0)"
^XMB(3.9,121,2,892,0)=" ;S PSXMSG=$P(^PSX(550.1,XX,0),""^"")"
^XMB(3.9,121,2,893,0)="""RTN"",""PSXRXU"",30,0)"
^XMB(3.9,121,2,894,0)=" ; update RX, RX:CMOP multiple"
^XMB(3.9,121,2,895,0)="""RTN"",""PSXRXU"",31,0)"
^XMB(3.9,121,2,896,0)=" ;If Rx status = suspended (5) set to active (0)"
^XMB(3.9,121,2,897,0)="""RTN"",""PSXRXU"",32,0)"
^XMB(3.9,121,2,898,0)=" I $P(^PSRX(RX,""STA""),U,1)=5 S $P(^PSRX(RX,""STA""),U,1)=0"
^XMB(3.9,121,2,899,0)="""RTN"",""PSXRXU"",33,0)"
^XMB(3.9,121,2,900,0)=" D EN^PSOHLSN1(RX,""SC"",""ZU"",""Transmitted to CMOP"","""")"
^XMB(3.9,121,2,901,0)="""RTN"",""PSXRXU"",34,0)"
^XMB(3.9,121,2,902,0)=" S:'$D(^PSRX(RX,4,0)) ^PSRX(RX,4,0)=""^52.01DA^^"""
^XMB(3.9,121,2,903,0)="""RTN"",""PSXRXU"",35,0)"
^XMB(3.9,121,2,904,0)=" K DD,DO,DIE,DA,DIC,DR"
^XMB(3.9,121,2,905,0)="""RTN"",""PSXRXU"",36,0)"
^XMB(3.9,121,2,906,0)=" ;VMP OIFO BAY PINES;ELR;PSX*2*57 REMOVE LOCK AND UNLOCK OF PSRX(4"
^XMB(3.9,121,2,907,0)="""RTN"",""PSXRXU"",37,0)"
^XMB(3.9,121,2,908,0)=" ;L +^PSRX(RX,4,0):600 Q:'$T"
^XMB(3.9,121,2,909,0)="""RTN"",""PSXRXU"",38,0)"
^XMB(3.9,121,2,910,0)=" S DA(1)=RX,DIC=""^PSRX(""_RX_"",4,"",DIC(0)=""Z"",X=PSXBAT"
^XMB(3.9,121,2,911,0)="""RTN"",""PSXRXU"",39,0)"
^XMB(3.9,121,2,912,0)=" S DIC(""DR"")=""1////""_$G(PSXMSG)_"";2////""_$G(FILL)_"";3////0"""
^XMB(3.9,121,2,913,0)="""RTN"",""PSXRXU"",40,0)"
^XMB(3.9,121,2,914,0)=" D:'$D(^PSRX(RX,4,""B"",PSXBAT)) FILE^DICN I 1"
^XMB(3.9,121,2,915,0)="""RTN"",""PSXRXU"",41,0)"
^XMB(3.9,121,2,916,0)=" E  S DIE=DIC,DR=DIC(""DR""),DA=$O(^PSRX(RX,4,""B"",PSXBAT,0)) K DIC D ^DIE"
^XMB(3.9,121,2,917,0)="""RTN"",""PSXRXU"",42,0)"
^XMB(3.9,121,2,918,0)=" K DIC,DA,DR,DIE"
^XMB(3.9,121,2,919,0)="""RTN"",""PSXRXU"",43,0)"
^XMB(3.9,121,2,920,0)=" ;L -^PSRX(RX,4,0)"
^XMB(3.9,121,2,921,0)="""RTN"",""PSXRXU"",44,0)"
^XMB(3.9,121,2,922,0)=" K FAC"
^XMB(3.9,121,2,923,0)="""RTN"",""PSXRXU"",45,0)"
^XMB(3.9,121,2,924,0)=" S FAC=$$GET1^DIQ(550.2,PSXBAT,3)"
^XMB(3.9,121,2,925,0)="""RTN"",""PSXRXU"",46,0)"
^XMB(3.9,121,2,926,0)=" S COM=$S($G(PSXRTRN):""Re-"",1:"""")_""Transmitted to ""_FAC_"" CMOP"""
^XMB(3.9,121,2,927,0)="""RTN"",""PSXRXU"",47,0)"
^XMB(3.9,121,2,928,0)=" S:$G(FILL)>5 FILL=$G(FILL)+1"
^XMB(3.9,121,2,929,0)="""RTN"",""PSXRXU"",48,0)"
^XMB(3.9,121,2,930,0)=" S CNT=0 F JJ=0:0 S JJ=$O(^PSRX(RX,""A"",JJ)) Q:'JJ  S CNT=JJ"
^XMB(3.9,121,2,931,0)="""RTN"",""PSXRXU"",49,0)"
^XMB(3.9,121,2,932,0)=" S CNT=CNT+1,^PSRX(RX,""A"",0)=""^52.3DA^""_CNT_""^""_CNT"
^XMB(3.9,121,2,933,0)="""RTN"",""PSXRXU"",50,0)"
^XMB(3.9,121,2,934,0)=" ;VMP OIFO BAY PINES;ELR;PSX*2*57 REMOVE LOCK AND UNLOCK OF PSRX"
^XMB(3.9,121,2,935,0)="""RTN"",""PSXRXU"",51,0)"
^XMB(3.9,121,2,936,0)=" ;L +^PSRX(RX):600 Q:'$T"
^XMB(3.9,121,2,937,0)="""RTN"",""PSXRXU"",52,0)"
^XMB(3.9,121,2,938,0)=" S ^PSRX(RX,""A"",CNT,0)=PSXTDT_""^B^""_DUZ_""^""_$G(FILL)_""^""_COM"
^XMB(3.9,121,2,939,0)="""RTN"",""PSXRXU"",53,0)"
^XMB(3.9,121,2,940,0)=" ;L -^PSRX(RX)"
^XMB(3.9,121,2,941,0)="""RTN"",""PSXRXU"",54,0)"
^XMB(3.9,121,2,942,0)=" S IN525=$O(^PS(52.5,""B"",RX,""""))"
^XMB(3.9,121,2,943,0)="""RTN"",""PSXRXU"",55,0)"
^XMB(3.9,121,2,944,0)=" I $G(IN525)]"""" K DIE,DA,DR,DIE,DIC S DIE=""^PS(52.5,"",DR=""3////X"",DA=IN525 L +^PS(52.5,IN525):600 Q:'$T  D ^DIE L -^PS(52.5,IN525) K DA,DIE,DA,IN525"
^XMB(3.9,121,2,945,0)="""RTN"",""PSXRXU"",56,0)"
^XMB(3.9,121,2,946,0)=" K DIE,DR,DA"
^XMB(3.9,121,2,947,0)="""RTN"",""PSXRXU"",57,0)"
^XMB(3.9,121,2,948,0)=" S DA=PSXMSG,DIE=""^PSX(550.1,"",DR=""1////5"""
^XMB(3.9,121,2,949,0)="""RTN"",""PSXRXU"",58,0)"
^XMB(3.9,121,2,950,0)=" L +^PSX(550.1,PSXMSG):600 Q:'$T"
^XMB(3.9,121,2,951,0)="""RTN"",""PSXRXU"",59,0)"
^XMB(3.9,121,2,952,0)=" D ^DIE L -^PSX(550.1,PSXMSG) K DA,DR,DIE"
^XMB(3.9,121,2,953,0)="""RTN"",""PSXRXU"",60,0)"
^XMB(3.9,121,2,954,0)="OERR ;clear ^XTMP(""ORLK-"" if it is CPRS/CMOP"
^XMB(3.9,121,2,955,0)="""RTN"",""PSXRXU"",61,0)"
^XMB(3.9,121,2,956,0)=" N ORD S ORD=+$P($G(^PSRX(+$G(RX),""OR1"")),""^"",2)"
^XMB(3.9,121,2,957,0)="""RTN"",""PSXRXU"",62,0)"
^XMB(3.9,121,2,958,0)=" I ORD,$D(^XTMP(""ORLK-""_ORD,0)),^XTMP(""ORLK-""_ORD,0)[""CPRS/CMOP"" K ^XTMP(""ORLK-""_ORD)"
^XMB(3.9,121,2,959,0)="""RTN"",""PSXRXU"",63,0)"
^XMB(3.9,121,2,960,0)=" Q"
^XMB(3.9,121,2,961,0)="""RTN"",""PSXRXU"",64,0)"
^XMB(3.9,121,2,962,0)="PRINT D NOW^%DTC S DTTM=% S COM=""CMOP Suspense Label ""_$S($G(^PS(52.5,REC,""P""))=0:""Printed"",1:""RePrinted"")_$S($G(^PSRX(PTR,""TYPE""))>0:"" (PARTIAL)"",1:"""")"
^XMB(3.9,121,2,963,0)="""RTN"",""PSXRXU"",65,0)"
^XMB(3.9,121,2,964,0)=" S CNT=0 F JJ=0:0 S JJ=$O(^PSRX(PTR,""A"",JJ)) Q:'JJ  S CNT=JJ"
^XMB(3.9,121,2,965,0)="""RTN"",""PSXRXU"",66,0)"
^XMB(3.9,121,2,966,0)=" S $P(^PSRX(PTR,""STA""),""^"",1)=0,^PS(52.5,REC,""P"")=1"
^XMB(3.9,121,2,967,0)="""RTN"",""PSXRXU"",67,0)"
^XMB(3.9,121,2,968,0)=" S CNT=CNT+1,^PSRX(PTR,""A"",0)=""^52.3DA^""_CNT_""^""_CNT L +^PSRX(PTR):600 Q:'$T  S ^PSRX(PTR,""A"",CNT,0)=DTTM_""^S^""_DUZ_""^""_FILL_""^""_COM L -^PSRX(PTR)"
^XMB(3.9,121,2,969,0)="""RTN"",""PSXRXU"",68,0)"
^XMB(3.9,121,2,970,0)=" K DTTM,%,COM,CNT,JJ"
^XMB(3.9,121,2,971,0)="""RTN"",""PSXRXU"",69,0)"
^XMB(3.9,121,2,972,0)=" Q"
^XMB(3.9,121,2,973,0)="""RTN"",""PSXRXU"",70,0)"
^XMB(3.9,121,2,974,0)="SUSPS ;goes through the PS(550.1 file and gets the pointer for each rx in PSRX"
^XMB(3.9,121,2,975,0)="""RTN"",""PSXRXU"",71,0)"
^XMB(3.9,121,2,976,0)=" ;CMOP Event entry"
^XMB(3.9,121,2,977,0)="""RTN"",""PSXRXU"",72,0)"
^XMB(3.9,121,2,978,0)=" S XXX=0 F  S XXX=$O(^PSX(550.1,REC,2,XXX)) Q:XXX'>0  D ACLOG"
^XMB(3.9,121,2,979,0)="""RTN"",""PSXRXU"",73,0)"
^XMB(3.9,121,2,980,0)=" K XXX"
^XMB(3.9,121,2,981,0)="""RTN"",""PSXRXU"",74,0)"
^XMB(3.9,121,2,982,0)=" Q"
^XMB(3.9,121,2,983,0)="""RTN"",""PSXRXU"",75,0)"
^XMB(3.9,121,2,984,0)="ACLOG ;"
^XMB(3.9,121,2,985,0)="""RTN"",""PSXRXU"",76,0)"
^XMB(3.9,121,2,986,0)=" D NOW^%DTC"
^XMB(3.9,121,2,987,0)="""RTN"",""PSXRXU"",77,0)"
^XMB(3.9,121,2,988,0)=" S PSXPTR=$P($G(^PSX(550.1,REC,2,XXX,0)),U,1)"
^XMB(3.9,121,2,989,0)="""RTN"",""PSXRXU"",78,0)"
^XMB(3.9,121,2,990,0)=" F RCC=0:0 S RCC=$O(^PSRX(+PSXPTR,4,""B"",OLDBAT,RCC)) Q:RCC=""""  S RC=RCC"
^XMB(3.9,121,2,991,0)="""RTN"",""PSXRXU"",79,0)"
^XMB(3.9,121,2,992,0)=" S TRNN=$P($G(^PSRX(+PSXPTR,4,RC,0)),""^"",1)"
^XMB(3.9,121,2,993,0)="""RTN"",""PSXRXU"",80,0)"
^XMB(3.9,121,2,994,0)=" S FAC=$$GET1^DIQ(550.2,TRNN,3)"
^XMB(3.9,121,2,995,0)="""RTN"",""PSXRXU"",81,0)"
^XMB(3.9,121,2,996,0)=" S FILL=$P($G(^PSRX(+PSXPTR,4,RC,0)),""^"",3)"
^XMB(3.9,121,2,997,0)="""RTN"",""PSXRXU"",82,0)"
^XMB(3.9,121,2,998,0)=" S CNT=0 F JJ=0:0 S JJ=$O(^PSRX(+PSXPTR,""A"",JJ)) Q:'JJ  S CNT=JJ"
^XMB(3.9,121,2,999,0)="""RTN"",""PSXRXU"",83,0)"
^XMB(3.9,121,2,1000,0)=" S COMMENT=""Retransmitted to ""_FAC_"" CMOP"""
^XMB(3.9,121,2,1001,0)="""RTN"",""PSXRXU"",84,0)"
^XMB(3.9,121,2,1002,0)=" S CNT=CNT+1,^PSRX(+PSXPTR,""A"",0)=""^52.3DA^""_CNT_""^""_CNT"
^XMB(3.9,121,2,1003,0)="""RTN"",""PSXRXU"",85,0)"
^XMB(3.9,121,2,1004,0)=" L +^PSRX(+PSXPTR):600 Q:'$T"
^XMB(3.9,121,2,1005,0)="""RTN"",""PSXRXU"",86,0)"
^XMB(3.9,121,2,1006,0)=" S ^PSRX(+PSXPTR,""A"",CNT,0)=%_U_""B""_U_DUZ_U_$S(FILL>5:(FILL+1),1:FILL)_U_COMMENT"
^XMB(3.9,121,2,1007,0)="""RTN"",""PSXRXU"",87,0)"
^XMB(3.9,121,2,1008,0)=" L -^PSRX(+PSXPTR)"
^XMB(3.9,121,2,1009,0)="""RTN"",""PSXRXU"",88,0)"
^XMB(3.9,121,2,1010,0)=" L +^PSRX(+PSXPTR,4,0):600 Q:'$T"
^XMB(3.9,121,2,1011,0)="""RTN"",""PSXRXU"",89,0)"
^XMB(3.9,121,2,1012,0)=" S DA(1)=+PSXPTR,DIE=""^PSRX(""_+PSXPTR_"",4,"",DA=RC,DR=""3////2"""
^XMB(3.9,121,2,1013,0)="""RTN"",""PSXRXU"",90,0)"
^XMB(3.9,121,2,1014,0)=" D ^DIE K DIE,DA,DR,DD,DO"
^XMB(3.9,121,2,1015,0)="""RTN"",""PSXRXU"",91,0)"
^XMB(3.9,121,2,1016,0)=" S:'$D(^PSRX(+PSXPTR,4,0)) ^PSRX(+PSXPTR,4,0)=""^52.01DA^^"""
^XMB(3.9,121,2,1017,0)="""RTN"",""PSXRXU"",92,0)"
^XMB(3.9,121,2,1018,0)=" S DA(1)=+PSXPTR,DIC=""^PSRX(""_+PSXPTR_"",4,"",DIC(0)=""Z"",X=PSXBAT"
^XMB(3.9,121,2,1019,0)="""RTN"",""PSXRXU"",93,0)"
^XMB(3.9,121,2,1020,0)=" S DIC(""DR"")=""1////""_REC_"";2////""_$G(FILL)_"";3////0"" D F"
^XMB(3.9,121,2,1021,0)="""RTN"",""PSXRXU"",94,0)"
^XMB(3.9,121,2,1022,0)=" L -^PSRX(+PSXPTR,4,0)"
^XMB(3.9,121,2,1023,0)="""RTN"",""PSXRXU"",95,0)"
^XMB(3.9,121,2,1024,0)=" K PSXPTR,COMMENT,CNT,JJ,FILL,REF,%,DIC,DA,DIE,DR"
^XMB(3.9,121,2,1025,0)="""RTN"",""PSXRXU"",96,0)"
^XMB(3.9,121,2,1026,0)=" S DA=REC,DIE=""^PSX(550.1,"",DR=""1////5"" L +^PSX(550.1,REC):600 Q:'$T"
^XMB(3.9,121,2,1027,0)="""RTN"",""PSXRXU"",97,0)"
^XMB(3.9,121,2,1028,0)=" D ^DIE L -^PSX(550.1,REC) K DIE,DA,DR,FAC,TRNN"
^XMB(3.9,121,2,1029,0)="""RTN"",""PSXRXU"",98,0)"
^XMB(3.9,121,2,1030,0)=" Q"
^XMB(3.9,121,2,1031,0)="""RTN"",""PSXRXU"",99,0)"
^XMB(3.9,121,2,1032,0)="RXERR ;auto error processing of RX updating 52 & 52.5"
^XMB(3.9,121,2,1033,0)="""RTN"",""PSXRXU"",100,0)"
^XMB(3.9,121,2,1034,0)=" S XXERR=$$EC^%ZOSV"
^XMB(3.9,121,2,1035,0)="""RTN"",""PSXRXU"",101,0)"
^XMB(3.9,121,2,1036,0)=" S PSXDIVNM=$$GET1^DIQ(59,PSOSITE,.01)"
^XMB(3.9,121,2,1037,0)="""RTN"",""PSXRXU"",102,0)"
^XMB(3.9,121,2,1038,0)=" ;save an image of the transient file 550.1 for 2 days"
^XMB(3.9,121,2,1039,0)="""RTN"",""PSXRXU"",103,0)"
^XMB(3.9,121,2,1040,0)=" D NOW^%DTC S DTTM=%"
^XMB(3.9,121,2,1041,0)="""RTN"",""PSXRXU"",104,0)"
^XMB(3.9,121,2,1042,0)=" ;VMP OIFO BAY PINES;ELR;PSX*2*57 CHANE PURGE DATE TO T+12 FROM T+2"
^XMB(3.9,121,2,1043,0)="""RTN"",""PSXRXU"",105,0)"
^XMB(3.9,121,2,1044,0)=" S X=$$FMADD^XLFDT(DT,+12) S ^XTMP(""PSXERR ""_DTTM,0)=X_U_DT_U_""CMOP ""_XXERR"
^XMB(3.9,121,2,1045,0)="""RTN"",""PSXRXU"",106,0)"
^XMB(3.9,121,2,1046,0)=" M ^XTMP(""PSXERR ""_DTTM,550.1)=^PSX(550.1)"
^XMB(3.9,121,2,1047,0)="""RTN"",""PSXRXU"",107,0)"
^XMB(3.9,121,2,1048,0)=" S XMSUB=""CMOP Error ""_PSXDIVNM_"" ""_$$GET1^DIQ(550.2,+$G(PSXBAT),.01)"
^XMB(3.9,121,2,1049,0)="""RTN"",""PSXRXU"",108,0)"
^XMB(3.9,121,2,1050,0)=" D GRP1^PSXNOTE"
^XMB(3.9,121,2,1051,0)="""RTN"",""PSXRXU"",109,0)"
^XMB(3.9,121,2,1052,0)=" ;S XMY(DUZ)="""""
^XMB(3.9,121,2,1053,0)="""RTN"",""PSXRXU"",110,0)"
^XMB(3.9,121,2,1054,0)=" S XMTEXT=""TEXT("""
^XMB(3.9,121,2,1055,0)="""RTN"",""PSXRXU"",111,0)"
^XMB(3.9,121,2,1056,0)=" S TEXT(1,0)=$S($G(PSXCS):"""",1:""NON-"")_""CS CMOP transmission encountered the following error. Please investigate"""
^XMB(3.9,121,2,1057,0)="""RTN"",""PSXRXU"",112,0)"
^XMB(3.9,121,2,1058,0)=" S TEXT(2,0)=""Division:         ""_PSXDIVNM"
^XMB(3.9,121,2,1059,0)="""RTN"",""PSXRXU"",113,0)"
^XMB(3.9,121,2,1060,0)=" S TEXT(3,0)=""Type/Batch        ""_$S($G(PSXCS):""CS"",1:""NON-CS"")_"" / ""_$$GET1^DIQ(550.2,$G(PSXBAT),.01)"
^XMB(3.9,121,2,1061,0)="""RTN"",""PSXRXU"",114,0)"
^XMB(3.9,121,2,1062,0)=" S TEXT(4,0)=""Error:            ""_XXERR"
^XMB(3.9,121,2,1063,0)="""RTN"",""PSXRXU"",115,0)"
^XMB(3.9,121,2,1064,0)=" S TEXT(5,0)="">>>This batch has been sent <<<"""
^XMB(3.9,121,2,1065,0)="""RTN"",""PSXRXU"",116,0)"
^XMB(3.9,121,2,1066,0)=" S TEXT(6,0)=""Call NVS to investigate which prescriptions have been updated"""
^XMB(3.9,121,2,1067,0)="""RTN"",""PSXRXU"",117,0)"
^XMB(3.9,121,2,1068,0)=" S TEXT(7,0)=""or not updated in files Prescription #52 & Suspense 52.5 ."""
^XMB(3.9,121,2,1069,0)="""RTN"",""PSXRXU"",118,0)"
^XMB(3.9,121,2,1070,0)=" S TEXT(8,0)=""A copy of file 550.1 can be found in ^XTMP(""""PSXERR ""_DTTM_"""""")"""
^XMB(3.9,121,2,1071,0)="""RTN"",""PSXRXU"",119,0)"
^XMB(3.9,121,2,1072,0)=" D ^%ZTER"
^XMB(3.9,121,2,1073,0)="""RTN"",""PSXRXU"",120,0)"
^XMB(3.9,121,2,1074,0)=" D ^XMD"
^XMB(3.9,121,2,1075,0)="""RTN"",""PSXRXU"",121,0)"
^XMB(3.9,121,2,1076,0)=" G UNWIND^%ZTER"
^XMB(3.9,121,2,1077,0)="""VER"")"
^XMB(3.9,121,2,1078,0)="8.0^22"
^XMB(3.9,121,2,1079,0)="$END KID PSX*2.0*57"
^XMB(3.9,121,6,0)="^3.911A^2^2"
^XMB(3.9,121,6,1,0)="POSTMASTER"
^XMB(3.9,121,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,121,6,"B","POSTMASTER",1)=""
^XMB(3.9,121,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,122,0)="PSX-2_SEQ-51_PAT-48.KID^.5^3061008.015741^^^^K"
^XMB(3.9,122,.6)="3061008"
^XMB(3.9,122,1,0)="^3.91A^2^2"
^XMB(3.9,122,1,1,0)=".5^0^3061008.015741^^^^^^^3061008.015741"
^XMB(3.9,122,1,2,0)="1^0^3061008.022539^^^^^^^3061008.022539"
^XMB(3.9,122,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,122,1,"C",.5,1)=""
^XMB(3.9,122,1,"C",1,2)=""
^XMB(3.9,122,2,0)="^^2367^2367^3061008"
^XMB(3.9,122,2,1,0)="$TXT Released PSX*2*48 SEQ #51"
^XMB(3.9,122,2,2,0)="Extracted from mail message"
^XMB(3.9,122,2,3,0)="$END TXT"
^XMB(3.9,122,2,4,0)="$KID PSX*2.0*48"
^XMB(3.9,122,2,5,0)="**INSTALL NAME**"
^XMB(3.9,122,2,6,0)="PSX*2.0*48"
^XMB(3.9,122,2,7,0)="""BLD"",4586,0)"
^XMB(3.9,122,2,8,0)="PSX*2.0*48^CMOP^0^3060213^y"
^XMB(3.9,122,2,9,0)="""BLD"",4586,1,0)"
^XMB(3.9,122,2,10,0)="^^103^103^3060213^^^"
^XMB(3.9,122,2,11,0)="""BLD"",4586,1,1,0)"
^XMB(3.9,122,2,12,0)="This project involves six different applications that have been significantly"
^XMB(3.9,122,2,13,0)="""BLD"",4586,1,2,0)"
^XMB(3.9,122,2,14,0)="changed to enable VA Medical Centers to perform third party electronic billing"
^XMB(3.9,122,2,15,0)="""BLD"",4586,1,3,0)"
^XMB(3.9,122,2,16,0)="for prescriptions. "
^XMB(3.9,122,2,17,0)="""BLD"",4586,1,4,0)"
^XMB(3.9,122,2,18,0)=" "
^XMB(3.9,122,2,19,0)="""BLD"",4586,1,5,0)"
^XMB(3.9,122,2,20,0)="Below is a list of all the applications involved in this project along with"
^XMB(3.9,122,2,21,0)="""BLD"",4586,1,6,0)"
^XMB(3.9,122,2,22,0)="their patch number:"
^XMB(3.9,122,2,23,0)="""BLD"",4586,1,7,0)"
^XMB(3.9,122,2,24,0)="  "
^XMB(3.9,122,2,25,0)="""BLD"",4586,1,8,0)"
^XMB(3.9,122,2,26,0)="   APPLICATION/VERSION                                  PATCH"
^XMB(3.9,122,2,27,0)="""BLD"",4586,1,9,0)"
^XMB(3.9,122,2,28,0)="   -----------------------------------------------------------------"
^XMB(3.9,122,2,29,0)="""BLD"",4586,1,10,0)"
^XMB(3.9,122,2,30,0)="   OUTPATIENT PHARMACY (OP) V. 7.0                      PSO*7*148"
^XMB(3.9,122,2,31,0)="""BLD"",4586,1,11,0)"
^XMB(3.9,122,2,32,0)="   INTEGRATED BILLING (IB) V. 2.0                       IB*2*276"
^XMB(3.9,122,2,33,0)="""BLD"",4586,1,12,0)"
^XMB(3.9,122,2,34,0)="   PHARMACY DATA MANAGEMENT (PDM) V. 1.0                PSS*1*90"
^XMB(3.9,122,2,35,0)="""BLD"",4586,1,13,0)"
^XMB(3.9,122,2,36,0)="   CONSOLIDATED MAIL OUTPATIENT PHARMACY (CMOP) V. 2.0  PSX*2*48"
^XMB(3.9,122,2,37,0)="""BLD"",4586,1,14,0)"
^XMB(3.9,122,2,38,0)="   ACCOUNTS RECEIVABLE (AR) V. 4.5                      PRCA*4.5*230"
^XMB(3.9,122,2,39,0)="""BLD"",4586,1,15,0)"
^XMB(3.9,122,2,40,0)="   ELECTRONIC CLAIMS MANAGEMENT ENGINE (ECME) V. 1.0    BPS*1*1"
^XMB(3.9,122,2,41,0)="""BLD"",4586,1,16,0)"
^XMB(3.9,122,2,42,0)=" "
^XMB(3.9,122,2,43,0)="""BLD"",4586,1,17,0)"
^XMB(3.9,122,2,44,0)="Veterans Health Information Systems and Technology Architecture (VistA) "
^XMB(3.9,122,2,45,0)="""BLD"",4586,1,18,0)"
^XMB(3.9,122,2,46,0)="software applications and infrastructure were enhanced, in order to allow the"
^XMB(3.9,122,2,47,0)="""BLD"",4586,1,19,0)"
^XMB(3.9,122,2,48,0)="electronic transmission of outpatient pharmacy prescription claims (WINDOW and"
^XMB(3.9,122,2,49,0)="""BLD"",4586,1,20,0)"
^XMB(3.9,122,2,50,0)="MAIL fills) to third party payers via the network connections available"
^XMB(3.9,122,2,51,0)="""BLD"",4586,1,21,0)"
^XMB(3.9,122,2,52,0)="through the Austin Automation Center (AAC). VistA will be enhanced to receive"
^XMB(3.9,122,2,53,0)="""BLD"",4586,1,22,0)"
^XMB(3.9,122,2,54,0)="electronic adjudicated responses from the third party payers, which include"
^XMB(3.9,122,2,55,0)="""BLD"",4586,1,23,0)"
^XMB(3.9,122,2,56,0)="real-time processing for Drug Review Utilization and Refill Too Soon rejects."
^XMB(3.9,122,2,57,0)="""BLD"",4586,1,24,0)"
^XMB(3.9,122,2,58,0)="Reject information will be displayed to the pharmacist as the prescription is"
^XMB(3.9,122,2,59,0)="""BLD"",4586,1,25,0)"
^XMB(3.9,122,2,60,0)="being processed. The pharmacist will have the capability to take the"
^XMB(3.9,122,2,61,0)="""BLD"",4586,1,26,0)"
^XMB(3.9,122,2,62,0)="appropriate action to ensure patient safety or to override the reject and"
^XMB(3.9,122,2,63,0)="""BLD"",4586,1,27,0)"
^XMB(3.9,122,2,64,0)="resubmit the claim to the payer for payment. When a status of ""PAYABLE"" is"
^XMB(3.9,122,2,65,0)="""BLD"",4586,1,28,0)"
^XMB(3.9,122,2,66,0)="returned by the payer for a released prescription, VistA will automatically "
^XMB(3.9,122,2,67,0)="""BLD"",4586,1,29,0)"
^XMB(3.9,122,2,68,0)="create the bill in IB, authorize it and immediately create the receivable in"
^XMB(3.9,122,2,69,0)="""BLD"",4586,1,30,0)"
^XMB(3.9,122,2,70,0)="the AR application. Since the exact amount being paid by the payer is known,"
^XMB(3.9,122,2,71,0)="""BLD"",4586,1,31,0)"
^XMB(3.9,122,2,72,0)="a decrease adjustment will be automatically generated and applied so that the"
^XMB(3.9,122,2,73,0)="""BLD"",4586,1,32,0)"
^XMB(3.9,122,2,74,0)="receivable is equal to the net amount due from the payer."
^XMB(3.9,122,2,75,0)="""BLD"",4586,1,33,0)"
^XMB(3.9,122,2,76,0)=" "
^XMB(3.9,122,2,77,0)="""BLD"",4586,1,34,0)"
^XMB(3.9,122,2,78,0)="The system also provides electronic payment matching capability (for"
^XMB(3.9,122,2,79,0)="""BLD"",4586,1,35,0)"
^XMB(3.9,122,2,80,0)="electronically billable outpatient pharmacy prescriptions) using the existing"
^XMB(3.9,122,2,81,0)="""BLD"",4586,1,36,0)"
^XMB(3.9,122,2,82,0)="Electronic Data Interchange (EDI) Lockbox functionality which processes other"
^XMB(3.9,122,2,83,0)="""BLD"",4586,1,37,0)"
^XMB(3.9,122,2,84,0)="electronic payments from third party payers. This real-time electronic claims"
^XMB(3.9,122,2,85,0)="""BLD"",4586,1,38,0)"
^XMB(3.9,122,2,86,0)="processing capability will be provided in accordance with the Healthcare"
^XMB(3.9,122,2,87,0)="""BLD"",4586,1,39,0)"
^XMB(3.9,122,2,88,0)="Insurance Portability and Accountability Act (HIPAA), EDI transactions and "
^XMB(3.9,122,2,89,0)="""BLD"",4586,1,40,0)"
^XMB(3.9,122,2,90,0)="the National Council for Prescription Drug Programs (NCPDP) mandated format "
^XMB(3.9,122,2,91,0)="""BLD"",4586,1,41,0)"
^XMB(3.9,122,2,92,0)="standards, specifically NCPDP Telecommunication Standard V. 5.1. Additional "
^XMB(3.9,122,2,93,0)="""BLD"",4586,1,42,0)"
^XMB(3.9,122,2,94,0)="functionality delivered with this project includes: "
^XMB(3.9,122,2,95,0)="""BLD"",4586,1,43,0)"
^XMB(3.9,122,2,96,0)=" "
^XMB(3.9,122,2,97,0)="""BLD"",4586,1,44,0)"
^XMB(3.9,122,2,98,0)="   . Auto-Release/Outpatient Pharmacy Automation Interface (OPAI) Integration."
^XMB(3.9,122,2,99,0)="""BLD"",4586,1,45,0)"
^XMB(3.9,122,2,100,0)="   . Back-billing capability to allow electronic billing of claims from within "
^XMB(3.9,122,2,101,0)="""BLD"",4586,1,46,0)"
^XMB(3.9,122,2,102,0)="     the IB application."
^XMB(3.9,122,2,103,0)="""BLD"",4586,1,47,0)"
^XMB(3.9,122,2,104,0)="   . Capability to MOVE a group of subscribers from one insurance plan to "
^XMB(3.9,122,2,105,0)="""BLD"",4586,1,48,0)"
^XMB(3.9,122,2,106,0)="     another while automatically ""expiring"" the old plan, which is a major"
^XMB(3.9,122,2,107,0)="""BLD"",4586,1,49,0)"
^XMB(3.9,122,2,108,0)="     time saver."
^XMB(3.9,122,2,109,0)="""BLD"",4586,1,50,0)"
^XMB(3.9,122,2,110,0)="   . Pharmacy Dispensed As Written (DAW) prescription processing."
^XMB(3.9,122,2,111,0)="""BLD"",4586,1,51,0)"
^XMB(3.9,122,2,112,0)="  "
^XMB(3.9,122,2,113,0)="""BLD"",4586,1,52,0)"
^XMB(3.9,122,2,114,0)="Overview of the Process:"
^XMB(3.9,122,2,115,0)="""BLD"",4586,1,53,0)"
^XMB(3.9,122,2,116,0)="  "
^XMB(3.9,122,2,117,0)="""BLD"",4586,1,54,0)"
^XMB(3.9,122,2,118,0)="When a prescription is about to be filled and dispensed by the pharmacy, the "
^XMB(3.9,122,2,119,0)="""BLD"",4586,1,55,0)"
^XMB(3.9,122,2,120,0)="OP application submits the prescription to the new ECME application. ECME then"
^XMB(3.9,122,2,121,0)="""BLD"",4586,1,56,0)"
^XMB(3.9,122,2,122,0)="contacts IB to verify whether or not the prescription is electronically"
^XMB(3.9,122,2,123,0)="""BLD"",4586,1,57,0)"
^XMB(3.9,122,2,124,0)="billable. If so, ECME gathers the information necessary to generate a NCPDP"
^XMB(3.9,122,2,125,0)="""BLD"",4586,1,58,0)"
^XMB(3.9,122,2,126,0)="claim. The claim information is passed to the VistA Health Level Seven (HL7)"
^XMB(3.9,122,2,127,0)="""BLD"",4586,1,59,0)"
^XMB(3.9,122,2,128,0)="package. The HL7 package then sends the billing information to the AAC, where"
^XMB(3.9,122,2,129,0)="""BLD"",4586,1,60,0)"
^XMB(3.9,122,2,130,0)="it is routed to the corresponding third party insurance via Emdeon (formerly"
^XMB(3.9,122,2,131,0)="""BLD"",4586,1,61,0)"
^XMB(3.9,122,2,132,0)="WebMD)."
^XMB(3.9,122,2,133,0)="""BLD"",4586,1,62,0)"
^XMB(3.9,122,2,134,0)="  "
^XMB(3.9,122,2,135,0)="""BLD"",4586,1,63,0)"
^XMB(3.9,122,2,136,0)="Once the payer processes the information, the response coming back from the"
^XMB(3.9,122,2,137,0)="""BLD"",4586,1,64,0)"
^XMB(3.9,122,2,138,0)="payer is passed back to the site that made the request, and the information"
^XMB(3.9,122,2,139,0)="""BLD"",4586,1,65,0)"
^XMB(3.9,122,2,140,0)="is stored in the ECME package. If the third party payer accepted the claim,"
^XMB(3.9,122,2,141,0)="""BLD"",4586,1,66,0)"
^XMB(3.9,122,2,142,0)="the adjudicated information is passed along to IB. If the claim was rejected"
^XMB(3.9,122,2,143,0)="""BLD"",4586,1,67,0)"
^XMB(3.9,122,2,144,0)="the problem can be worked on and a new claim can be submitted to the payer."
^XMB(3.9,122,2,145,0)="""BLD"",4586,1,68,0)"
^XMB(3.9,122,2,146,0)="  "
^XMB(3.9,122,2,147,0)="""BLD"",4586,1,69,0)"
^XMB(3.9,122,2,148,0)="For electronically billable CMOP prescription processing, the third party"
^XMB(3.9,122,2,149,0)="""BLD"",4586,1,70,0)"
^XMB(3.9,122,2,150,0)="claim is sent before the prescription information is transmitted to the"
^XMB(3.9,122,2,151,0)="""BLD"",4586,1,71,0)"
^XMB(3.9,122,2,152,0)="CMOP facility to be filled. Once the adjudicating response is electronically "
^XMB(3.9,122,2,153,0)="""BLD"",4586,1,72,0)"
^XMB(3.9,122,2,154,0)="received from the third party payer, if there are no Drug Utilization Review"
^XMB(3.9,122,2,155,0)="""BLD"",4586,1,73,0)"
^XMB(3.9,122,2,156,0)="or Refill Too Soon rejects, the prescription is then transmitted to the CMOP "
^XMB(3.9,122,2,157,0)="""BLD"",4586,1,74,0)"
^XMB(3.9,122,2,158,0)="facility. When the CMOP center sends the dispensing information back to VistA,"
^XMB(3.9,122,2,159,0)="""BLD"",4586,1,75,0)"
^XMB(3.9,122,2,160,0)="the National Drug Code (NDC) information is checked against the NDC sent to "
^XMB(3.9,122,2,161,0)="""BLD"",4586,1,76,0)"
^XMB(3.9,122,2,162,0)="the third party payer and, if different, a new claim is generated in the "
^XMB(3.9,122,2,163,0)="""BLD"",4586,1,77,0)"
^XMB(3.9,122,2,164,0)="background and is sent to the third party payer. In case the CMOP facility "
^XMB(3.9,122,2,165,0)="""BLD"",4586,1,78,0)"
^XMB(3.9,122,2,166,0)="indicates that it is unable to fill a ""PAYABLE  prescription fill, a reversal"
^XMB(3.9,122,2,167,0)="""BLD"",4586,1,79,0)"
^XMB(3.9,122,2,168,0)="is automatically submitted to the third party payer for the corresponding "
^XMB(3.9,122,2,169,0)="""BLD"",4586,1,80,0)"
^XMB(3.9,122,2,170,0)="fill."
^XMB(3.9,122,2,171,0)="""BLD"",4586,1,81,0)"
^XMB(3.9,122,2,172,0)="   "
^XMB(3.9,122,2,173,0)="""BLD"",4586,1,82,0)"
^XMB(3.9,122,2,174,0)="This patch modifies the CMOP application to submit electronic claims for "
^XMB(3.9,122,2,175,0)="""BLD"",4586,1,83,0)"
^XMB(3.9,122,2,176,0)="prescriptions that are transmitted to CMOP centers to be filled and dispensed "
^XMB(3.9,122,2,177,0)="""BLD"",4586,1,84,0)"
^XMB(3.9,122,2,178,0)="remotely. All the prescriptions ready to be included on the batch to be"
^XMB(3.9,122,2,179,0)="""BLD"",4586,1,85,0)"
^XMB(3.9,122,2,180,0)="transmitted to CMOP are first transmitted to the third party insurance. Once"
^XMB(3.9,122,2,181,0)="""BLD"",4586,1,86,0)"
^XMB(3.9,122,2,182,0)="this step is completed, the system waits 60 seconds before the actual"
^XMB(3.9,122,2,183,0)="""BLD"",4586,1,87,0)"
^XMB(3.9,122,2,184,0)="transmission to CMOP starts. This process will affect the existing CMOP"
^XMB(3.9,122,2,185,0)="""BLD"",4586,1,88,0)"
^XMB(3.9,122,2,186,0)="functionality in two ways: "
^XMB(3.9,122,2,187,0)="""BLD"",4586,1,89,0)"
^XMB(3.9,122,2,188,0)="   "
^XMB(3.9,122,2,189,0)="""BLD"",4586,1,90,0)"
^XMB(3.9,122,2,190,0)=" 1) If a response from the third party payer is not received by the time the "
^XMB(3.9,122,2,191,0)="""BLD"",4586,1,91,0)"
^XMB(3.9,122,2,192,0)="    prescription is ready to be transmitted to CMOP, the prescription is"
^XMB(3.9,122,2,193,0)="""BLD"",4586,1,92,0)"
^XMB(3.9,122,2,194,0)="    skipped and remains in the queue for the next CMOP transmission. A Mailman"
^XMB(3.9,122,2,195,0)="""BLD"",4586,1,93,0)"
^XMB(3.9,122,2,196,0)="    message containing all the prescriptions in this category is generated at "
^XMB(3.9,122,2,197,0)="""BLD"",4586,1,94,0)"
^XMB(3.9,122,2,198,0)="    the end of the process and it is transmitted to all the holders of the "
^XMB(3.9,122,2,199,0)="""BLD"",4586,1,95,0)"
^XMB(3.9,122,2,200,0)="    PSXMAIL security key. If no users on the system have this key, the Mailman"
^XMB(3.9,122,2,201,0)="""BLD"",4586,1,96,0)"
^XMB(3.9,122,2,202,0)="    message is sent to all the users holding the PSXCMOPMGR security key."
^XMB(3.9,122,2,203,0)="""BLD"",4586,1,97,0)"
^XMB(3.9,122,2,204,0)=" "
^XMB(3.9,122,2,205,0)="""BLD"",4586,1,98,0)"
^XMB(3.9,122,2,206,0)=" 2) If the third party payer rejects the claim due to a DUR (Drug Utilization"
^XMB(3.9,122,2,207,0)="""BLD"",4586,1,99,0)"
^XMB(3.9,122,2,208,0)="    Review) or a 'REFILL TOO SOON' reject, the prescription is not sent to"
^XMB(3.9,122,2,209,0)="""BLD"",4586,1,100,0)"
^XMB(3.9,122,2,210,0)="    CMOP and remains in the queue to be transmitted in the next CMOP "
^XMB(3.9,122,2,211,0)="""BLD"",4586,1,101,0)"
^XMB(3.9,122,2,212,0)="    transmission. The prescription will not be transmitted to CMOP until the"
^XMB(3.9,122,2,213,0)="""BLD"",4586,1,102,0)"
^XMB(3.9,122,2,214,0)="    reject is resolved by the user through the Outpatient Pharmacy V. 7.0 "
^XMB(3.9,122,2,215,0)="""BLD"",4586,1,103,0)"
^XMB(3.9,122,2,216,0)="    application. No message is generated for prescriptions in this category."
^XMB(3.9,122,2,217,0)="""BLD"",4586,4,0)"
^XMB(3.9,122,2,218,0)="^9.64PA^^"
^XMB(3.9,122,2,219,0)="""BLD"",4586,""KRN"",0)"
^XMB(3.9,122,2,220,0)="^9.67PA^8989.52^19"
^XMB(3.9,122,2,221,0)="""BLD"",4586,""KRN"",.4,0)"
^XMB(3.9,122,2,222,0)=".4"
^XMB(3.9,122,2,223,0)="""BLD"",4586,""KRN"",.4,""NM"",0)"
^XMB(3.9,122,2,224,0)="^9.68A^^"
^XMB(3.9,122,2,225,0)="""BLD"",4586,""KRN"",.401,0)"
^XMB(3.9,122,2,226,0)=".401"
^XMB(3.9,122,2,227,0)="""BLD"",4586,""KRN"",.402,0)"
^XMB(3.9,122,2,228,0)=".402"
^XMB(3.9,122,2,229,0)="""BLD"",4586,""KRN"",.403,0)"
^XMB(3.9,122,2,230,0)=".403"
^XMB(3.9,122,2,231,0)="""BLD"",4586,""KRN"",.5,0)"
^XMB(3.9,122,2,232,0)=".5"
^XMB(3.9,122,2,233,0)="""BLD"",4586,""KRN"",.84,0)"
^XMB(3.9,122,2,234,0)=".84"
^XMB(3.9,122,2,235,0)="""BLD"",4586,""KRN"",3.6,0)"
^XMB(3.9,122,2,236,0)="3.6"
^XMB(3.9,122,2,237,0)="""BLD"",4586,""KRN"",3.8,0)"
^XMB(3.9,122,2,238,0)="3.8"
^XMB(3.9,122,2,239,0)="""BLD"",4586,""KRN"",9.2,0)"
^XMB(3.9,122,2,240,0)="9.2"
^XMB(3.9,122,2,241,0)="""BLD"",4586,""KRN"",9.8,0)"
^XMB(3.9,122,2,242,0)="9.8"
^XMB(3.9,122,2,243,0)="""BLD"",4586,""KRN"",9.8,""NM"",0)"
^XMB(3.9,122,2,244,0)="^9.68A^7^7"
^XMB(3.9,122,2,245,0)="""BLD"",4586,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,122,2,246,0)="PSXRPPL^^0^B60595738"
^XMB(3.9,122,2,247,0)="""BLD"",4586,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,122,2,248,0)="PSXVND^^0^B36240970"
^XMB(3.9,122,2,249,0)="""BLD"",4586,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,122,2,250,0)="PSXRXU^^0^B28830470"
^XMB(3.9,122,2,251,0)="""BLD"",4586,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,122,2,252,0)="PSXRSUS^^0^B75856096"
^XMB(3.9,122,2,253,0)="""BLD"",4586,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,122,2,254,0)="PSXRPPL1^^0^B43603421"
^XMB(3.9,122,2,255,0)="""BLD"",4586,""KRN"",9.8,""NM"",6,0)"
^XMB(3.9,122,2,256,0)="PSXBPSUT^^0^B699978"
^XMB(3.9,122,2,257,0)="""BLD"",4586,""KRN"",9.8,""NM"",7,0)"
^XMB(3.9,122,2,258,0)="PSXBPSMS^^0^B11444984"
^XMB(3.9,122,2,259,0)="""BLD"",4586,""KRN"",9.8,""NM"",""B"",""PSXBPSMS"",7)"
^XMB(3.9,122,2,260,0)=""
^XMB(3.9,122,2,261,0)="""BLD"",4586,""KRN"",9.8,""NM"",""B"",""PSXBPSUT"",6)"
^XMB(3.9,122,2,262,0)=""
^XMB(3.9,122,2,263,0)="""BLD"",4586,""KRN"",9.8,""NM"",""B"",""PSXRPPL"",1)"
^XMB(3.9,122,2,264,0)=""
^XMB(3.9,122,2,265,0)="""BLD"",4586,""KRN"",9.8,""NM"",""B"",""PSXRPPL1"",5)"
^XMB(3.9,122,2,266,0)=""
^XMB(3.9,122,2,267,0)="""BLD"",4586,""KRN"",9.8,""NM"",""B"",""PSXRSUS"",4)"
^XMB(3.9,122,2,268,0)=""
^XMB(3.9,122,2,269,0)="""BLD"",4586,""KRN"",9.8,""NM"",""B"",""PSXRXU"",3)"
^XMB(3.9,122,2,270,0)=""
^XMB(3.9,122,2,271,0)="""BLD"",4586,""KRN"",9.8,""NM"",""B"",""PSXVND"",2)"
^XMB(3.9,122,2,272,0)=""
^XMB(3.9,122,2,273,0)="""BLD"",4586,""KRN"",19,0)"
^XMB(3.9,122,2,274,0)="19"
^XMB(3.9,122,2,275,0)="""BLD"",4586,""KRN"",19.1,0)"
^XMB(3.9,122,2,276,0)="19.1"
^XMB(3.9,122,2,277,0)="""BLD"",4586,""KRN"",101,0)"
^XMB(3.9,122,2,278,0)="101"
^XMB(3.9,122,2,279,0)="""BLD"",4586,""KRN"",409.61,0)"
^XMB(3.9,122,2,280,0)="409.61"
^XMB(3.9,122,2,281,0)="""BLD"",4586,""KRN"",771,0)"
^XMB(3.9,122,2,282,0)="771"
^XMB(3.9,122,2,283,0)="""BLD"",4586,""KRN"",870,0)"
^XMB(3.9,122,2,284,0)="870"
^XMB(3.9,122,2,285,0)="""BLD"",4586,""KRN"",8989.51,0)"
^XMB(3.9,122,2,286,0)="8989.51"
^XMB(3.9,122,2,287,0)="""BLD"",4586,""KRN"",8989.52,0)"
^XMB(3.9,122,2,288,0)="8989.52"
^XMB(3.9,122,2,289,0)="""BLD"",4586,""KRN"",8994,0)"
^XMB(3.9,122,2,290,0)="8994"
^XMB(3.9,122,2,291,0)="""BLD"",4586,""KRN"",""B"",.4,.4)"
^XMB(3.9,122,2,292,0)=""
^XMB(3.9,122,2,293,0)="""BLD"",4586,""KRN"",""B"",.401,.401)"
^XMB(3.9,122,2,294,0)=""
^XMB(3.9,122,2,295,0)="""BLD"",4586,""KRN"",""B"",.402,.402)"
^XMB(3.9,122,2,296,0)=""
^XMB(3.9,122,2,297,0)="""BLD"",4586,""KRN"",""B"",.403,.403)"
^XMB(3.9,122,2,298,0)=""
^XMB(3.9,122,2,299,0)="""BLD"",4586,""KRN"",""B"",.5,.5)"
^XMB(3.9,122,2,300,0)=""
^XMB(3.9,122,2,301,0)="""BLD"",4586,""KRN"",""B"",.84,.84)"
^XMB(3.9,122,2,302,0)=""
^XMB(3.9,122,2,303,0)="""BLD"",4586,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,122,2,304,0)=""
^XMB(3.9,122,2,305,0)="""BLD"",4586,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,122,2,306,0)=""
^XMB(3.9,122,2,307,0)="""BLD"",4586,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,122,2,308,0)=""
^XMB(3.9,122,2,309,0)="""BLD"",4586,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,122,2,310,0)=""
^XMB(3.9,122,2,311,0)="""BLD"",4586,""KRN"",""B"",19,19)"
^XMB(3.9,122,2,312,0)=""
^XMB(3.9,122,2,313,0)="""BLD"",4586,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,122,2,314,0)=""
^XMB(3.9,122,2,315,0)="""BLD"",4586,""KRN"",""B"",101,101)"
^XMB(3.9,122,2,316,0)=""
^XMB(3.9,122,2,317,0)="""BLD"",4586,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,122,2,318,0)=""
^XMB(3.9,122,2,319,0)="""BLD"",4586,""KRN"",""B"",771,771)"
^XMB(3.9,122,2,320,0)=""
^XMB(3.9,122,2,321,0)="""BLD"",4586,""KRN"",""B"",870,870)"
^XMB(3.9,122,2,322,0)=""
^XMB(3.9,122,2,323,0)="""BLD"",4586,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,122,2,324,0)=""
^XMB(3.9,122,2,325,0)="""BLD"",4586,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,122,2,326,0)=""
^XMB(3.9,122,2,327,0)="""BLD"",4586,""KRN"",""B"",8994,8994)"
^XMB(3.9,122,2,328,0)=""
^XMB(3.9,122,2,329,0)="""BLD"",4586,""QUES"",0)"
^XMB(3.9,122,2,330,0)="^9.62^^"
^XMB(3.9,122,2,331,0)="""BLD"",4586,""REQB"",0)"
^XMB(3.9,122,2,332,0)="^9.611^3^1"
^XMB(3.9,122,2,333,0)="""BLD"",4586,""REQB"",3,0)"
^XMB(3.9,122,2,334,0)="PSX*2.0*57^2"
^XMB(3.9,122,2,335,0)="""BLD"",4586,""REQB"",""B"",""PSX*2.0*57"",3)"
^XMB(3.9,122,2,336,0)=""
^XMB(3.9,122,2,337,0)="""MBREQ"")"
^XMB(3.9,122,2,338,0)="0"
^XMB(3.9,122,2,339,0)="""PKG"",526,-1)"
^XMB(3.9,122,2,340,0)="1^1"
^XMB(3.9,122,2,341,0)="""PKG"",526,0)"
^XMB(3.9,122,2,342,0)="CMOP^PSX^CONSOLIDATED MAIL OUTPATIENT PHARMACY"
^XMB(3.9,122,2,343,0)="""PKG"",526,22,0)"
^XMB(3.9,122,2,344,0)="^9.49I^1^1"
^XMB(3.9,122,2,345,0)="""PKG"",526,22,1,0)"
^XMB(3.9,122,2,346,0)="2.0^3000210^3000217^11853"
^XMB(3.9,122,2,347,0)="""PKG"",526,22,1,""PAH"",1,0)"
^XMB(3.9,122,2,348,0)="48^3060213^10000000022"
^XMB(3.9,122,2,349,0)="""PKG"",526,22,1,""PAH"",1,1,0)"
^XMB(3.9,122,2,350,0)="^^103^103^3060213"
^XMB(3.9,122,2,351,0)="""PKG"",526,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,122,2,352,0)="This project involves six different applications that have been significantly"
^XMB(3.9,122,2,353,0)="""PKG"",526,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,122,2,354,0)="changed to enable VA Medical Centers to perform third party electronic billing"
^XMB(3.9,122,2,355,0)="""PKG"",526,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,122,2,356,0)="for prescriptions. "
^XMB(3.9,122,2,357,0)="""PKG"",526,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,122,2,358,0)=" "
^XMB(3.9,122,2,359,0)="""PKG"",526,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,122,2,360,0)="Below is a list of all the applications involved in this project along with"
^XMB(3.9,122,2,361,0)="""PKG"",526,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,122,2,362,0)="their patch number:"
^XMB(3.9,122,2,363,0)="""PKG"",526,22,1,""PAH"",1,1,7,0)"
^XMB(3.9,122,2,364,0)="  "
^XMB(3.9,122,2,365,0)="""PKG"",526,22,1,""PAH"",1,1,8,0)"
^XMB(3.9,122,2,366,0)="   APPLICATION/VERSION                                  PATCH"
^XMB(3.9,122,2,367,0)="""PKG"",526,22,1,""PAH"",1,1,9,0)"
^XMB(3.9,122,2,368,0)="   -----------------------------------------------------------------"
^XMB(3.9,122,2,369,0)="""PKG"",526,22,1,""PAH"",1,1,10,0)"
^XMB(3.9,122,2,370,0)="   OUTPATIENT PHARMACY (OP) V. 7.0                      PSO*7*148"
^XMB(3.9,122,2,371,0)="""PKG"",526,22,1,""PAH"",1,1,11,0)"
^XMB(3.9,122,2,372,0)="   INTEGRATED BILLING (IB) V. 2.0                       IB*2*276"
^XMB(3.9,122,2,373,0)="""PKG"",526,22,1,""PAH"",1,1,12,0)"
^XMB(3.9,122,2,374,0)="   PHARMACY DATA MANAGEMENT (PDM) V. 1.0                PSS*1*90"
^XMB(3.9,122,2,375,0)="""PKG"",526,22,1,""PAH"",1,1,13,0)"
^XMB(3.9,122,2,376,0)="   CONSOLIDATED MAIL OUTPATIENT PHARMACY (CMOP) V. 2.0  PSX*2*48"
^XMB(3.9,122,2,377,0)="""PKG"",526,22,1,""PAH"",1,1,14,0)"
^XMB(3.9,122,2,378,0)="   ACCOUNTS RECEIVABLE (AR) V. 4.5                      PRCA*4.5*230"
^XMB(3.9,122,2,379,0)="""PKG"",526,22,1,""PAH"",1,1,15,0)"
^XMB(3.9,122,2,380,0)="   ELECTRONIC CLAIMS MANAGEMENT ENGINE (ECME) V. 1.0    BPS*1*1"
^XMB(3.9,122,2,381,0)="""PKG"",526,22,1,""PAH"",1,1,16,0)"
^XMB(3.9,122,2,382,0)=" "
^XMB(3.9,122,2,383,0)="""PKG"",526,22,1,""PAH"",1,1,17,0)"
^XMB(3.9,122,2,384,0)="Veterans Health Information Systems and Technology Architecture (VistA) "
^XMB(3.9,122,2,385,0)="""PKG"",526,22,1,""PAH"",1,1,18,0)"
^XMB(3.9,122,2,386,0)="software applications and infrastructure were enhanced, in order to allow the"
^XMB(3.9,122,2,387,0)="""PKG"",526,22,1,""PAH"",1,1,19,0)"
^XMB(3.9,122,2,388,0)="electronic transmission of outpatient pharmacy prescription claims (WINDOW and"
^XMB(3.9,122,2,389,0)="""PKG"",526,22,1,""PAH"",1,1,20,0)"
^XMB(3.9,122,2,390,0)="MAIL fills) to third party payers via the network connections available"
^XMB(3.9,122,2,391,0)="""PKG"",526,22,1,""PAH"",1,1,21,0)"
^XMB(3.9,122,2,392,0)="through the Austin Automation Center (AAC). VistA will be enhanced to receive"
^XMB(3.9,122,2,393,0)="""PKG"",526,22,1,""PAH"",1,1,22,0)"
^XMB(3.9,122,2,394,0)="electronic adjudicated responses from the third party payers, which include"
^XMB(3.9,122,2,395,0)="""PKG"",526,22,1,""PAH"",1,1,23,0)"
^XMB(3.9,122,2,396,0)="real-time processing for Drug Review Utilization and Refill Too Soon rejects."
^XMB(3.9,122,2,397,0)="""PKG"",526,22,1,""PAH"",1,1,24,0)"
^XMB(3.9,122,2,398,0)="Reject information will be displayed to the pharmacist as the prescription is"
^XMB(3.9,122,2,399,0)="""PKG"",526,22,1,""PAH"",1,1,25,0)"
^XMB(3.9,122,2,400,0)="being processed. The pharmacist will have the capability to take the"
^XMB(3.9,122,2,401,0)="""PKG"",526,22,1,""PAH"",1,1,26,0)"
^XMB(3.9,122,2,402,0)="appropriate action to ensure patient safety or to override the reject and"
^XMB(3.9,122,2,403,0)="""PKG"",526,22,1,""PAH"",1,1,27,0)"
^XMB(3.9,122,2,404,0)="resubmit the claim to the payer for payment. When a status of ""PAYABLE"" is"
^XMB(3.9,122,2,405,0)="""PKG"",526,22,1,""PAH"",1,1,28,0)"
^XMB(3.9,122,2,406,0)="returned by the payer for a released prescription, VistA will automatically "
^XMB(3.9,122,2,407,0)="""PKG"",526,22,1,""PAH"",1,1,29,0)"
^XMB(3.9,122,2,408,0)="create the bill in IB, authorize it and immediately create the receivable in"
^XMB(3.9,122,2,409,0)="""PKG"",526,22,1,""PAH"",1,1,30,0)"
^XMB(3.9,122,2,410,0)="the AR application. Since the exact amount being paid by the payer is known,"
^XMB(3.9,122,2,411,0)="""PKG"",526,22,1,""PAH"",1,1,31,0)"
^XMB(3.9,122,2,412,0)="a decrease adjustment will be automatically generated and applied so that the"
^XMB(3.9,122,2,413,0)="""PKG"",526,22,1,""PAH"",1,1,32,0)"
^XMB(3.9,122,2,414,0)="receivable is equal to the net amount due from the payer."
^XMB(3.9,122,2,415,0)="""PKG"",526,22,1,""PAH"",1,1,33,0)"
^XMB(3.9,122,2,416,0)=" "
^XMB(3.9,122,2,417,0)="""PKG"",526,22,1,""PAH"",1,1,34,0)"
^XMB(3.9,122,2,418,0)="The system also provides electronic payment matching capability (for"
^XMB(3.9,122,2,419,0)="""PKG"",526,22,1,""PAH"",1,1,35,0)"
^XMB(3.9,122,2,420,0)="electronically billable outpatient pharmacy prescriptions) using the existing"
^XMB(3.9,122,2,421,0)="""PKG"",526,22,1,""PAH"",1,1,36,0)"
^XMB(3.9,122,2,422,0)="Electronic Data Interchange (EDI) Lockbox functionality which processes other"
^XMB(3.9,122,2,423,0)="""PKG"",526,22,1,""PAH"",1,1,37,0)"
^XMB(3.9,122,2,424,0)="electronic payments from third party payers. This real-time electronic claims"
^XMB(3.9,122,2,425,0)="""PKG"",526,22,1,""PAH"",1,1,38,0)"
^XMB(3.9,122,2,426,0)="processing capability will be provided in accordance with the Healthcare"
^XMB(3.9,122,2,427,0)="""PKG"",526,22,1,""PAH"",1,1,39,0)"
^XMB(3.9,122,2,428,0)="Insurance Portability and Accountability Act (HIPAA), EDI transactions and "
^XMB(3.9,122,2,429,0)="""PKG"",526,22,1,""PAH"",1,1,40,0)"
^XMB(3.9,122,2,430,0)="the National Council for Prescription Drug Programs (NCPDP) mandated format "
^XMB(3.9,122,2,431,0)="""PKG"",526,22,1,""PAH"",1,1,41,0)"
^XMB(3.9,122,2,432,0)="standards, specifically NCPDP Telecommunication Standard V. 5.1. Additional "
^XMB(3.9,122,2,433,0)="""PKG"",526,22,1,""PAH"",1,1,42,0)"
^XMB(3.9,122,2,434,0)="functionality delivered with this project includes: "
^XMB(3.9,122,2,435,0)="""PKG"",526,22,1,""PAH"",1,1,43,0)"
^XMB(3.9,122,2,436,0)=" "
^XMB(3.9,122,2,437,0)="""PKG"",526,22,1,""PAH"",1,1,44,0)"
^XMB(3.9,122,2,438,0)="   . Auto-Release/Outpatient Pharmacy Automation Interface (OPAI) Integration."
^XMB(3.9,122,2,439,0)="""PKG"",526,22,1,""PAH"",1,1,45,0)"
^XMB(3.9,122,2,440,0)="   . Back-billing capability to allow electronic billing of claims from within "
^XMB(3.9,122,2,441,0)="""PKG"",526,22,1,""PAH"",1,1,46,0)"
^XMB(3.9,122,2,442,0)="     the IB application."
^XMB(3.9,122,2,443,0)="""PKG"",526,22,1,""PAH"",1,1,47,0)"
^XMB(3.9,122,2,444,0)="   . Capability to MOVE a group of subscribers from one insurance plan to "
^XMB(3.9,122,2,445,0)="""PKG"",526,22,1,""PAH"",1,1,48,0)"
^XMB(3.9,122,2,446,0)="     another while automatically ""expiring"" the old plan, which is a major"
^XMB(3.9,122,2,447,0)="""PKG"",526,22,1,""PAH"",1,1,49,0)"
^XMB(3.9,122,2,448,0)="     time saver."
^XMB(3.9,122,2,449,0)="""PKG"",526,22,1,""PAH"",1,1,50,0)"
^XMB(3.9,122,2,450,0)="   . Pharmacy Dispensed As Written (DAW) prescription processing."
^XMB(3.9,122,2,451,0)="""PKG"",526,22,1,""PAH"",1,1,51,0)"
^XMB(3.9,122,2,452,0)="  "
^XMB(3.9,122,2,453,0)="""PKG"",526,22,1,""PAH"",1,1,52,0)"
^XMB(3.9,122,2,454,0)="Overview of the Process:"
^XMB(3.9,122,2,455,0)="""PKG"",526,22,1,""PAH"",1,1,53,0)"
^XMB(3.9,122,2,456,0)="  "
^XMB(3.9,122,2,457,0)="""PKG"",526,22,1,""PAH"",1,1,54,0)"
^XMB(3.9,122,2,458,0)="When a prescription is about to be filled and dispensed by the pharmacy, the "
^XMB(3.9,122,2,459,0)="""PKG"",526,22,1,""PAH"",1,1,55,0)"
^XMB(3.9,122,2,460,0)="OP application submits the prescription to the new ECME application. ECME then"
^XMB(3.9,122,2,461,0)="""PKG"",526,22,1,""PAH"",1,1,56,0)"
^XMB(3.9,122,2,462,0)="contacts IB to verify whether or not the prescription is electronically"
^XMB(3.9,122,2,463,0)="""PKG"",526,22,1,""PAH"",1,1,57,0)"
^XMB(3.9,122,2,464,0)="billable. If so, ECME gathers the information necessary to generate a NCPDP"
^XMB(3.9,122,2,465,0)="""PKG"",526,22,1,""PAH"",1,1,58,0)"
^XMB(3.9,122,2,466,0)="claim. The claim information is passed to the VistA Health Level Seven (HL7)"
^XMB(3.9,122,2,467,0)="""PKG"",526,22,1,""PAH"",1,1,59,0)"
^XMB(3.9,122,2,468,0)="package. The HL7 package then sends the billing information to the AAC, where"
^XMB(3.9,122,2,469,0)="""PKG"",526,22,1,""PAH"",1,1,60,0)"
^XMB(3.9,122,2,470,0)="it is routed to the corresponding third party insurance via Emdeon (formerly"
^XMB(3.9,122,2,471,0)="""PKG"",526,22,1,""PAH"",1,1,61,0)"
^XMB(3.9,122,2,472,0)="WebMD)."
^XMB(3.9,122,2,473,0)="""PKG"",526,22,1,""PAH"",1,1,62,0)"
^XMB(3.9,122,2,474,0)="  "
^XMB(3.9,122,2,475,0)="""PKG"",526,22,1,""PAH"",1,1,63,0)"
^XMB(3.9,122,2,476,0)="Once the payer processes the information, the response coming back from the"
^XMB(3.9,122,2,477,0)="""PKG"",526,22,1,""PAH"",1,1,64,0)"
^XMB(3.9,122,2,478,0)="payer is passed back to the site that made the request, and the information"
^XMB(3.9,122,2,479,0)="""PKG"",526,22,1,""PAH"",1,1,65,0)"
^XMB(3.9,122,2,480,0)="is stored in the ECME package. If the third party payer accepted the claim,"
^XMB(3.9,122,2,481,0)="""PKG"",526,22,1,""PAH"",1,1,66,0)"
^XMB(3.9,122,2,482,0)="the adjudicated information is passed along to IB. If the claim was rejected"
^XMB(3.9,122,2,483,0)="""PKG"",526,22,1,""PAH"",1,1,67,0)"
^XMB(3.9,122,2,484,0)="the problem can be worked on and a new claim can be submitted to the payer."
^XMB(3.9,122,2,485,0)="""PKG"",526,22,1,""PAH"",1,1,68,0)"
^XMB(3.9,122,2,486,0)="  "
^XMB(3.9,122,2,487,0)="""PKG"",526,22,1,""PAH"",1,1,69,0)"
^XMB(3.9,122,2,488,0)="For electronically billable CMOP prescription processing, the third party"
^XMB(3.9,122,2,489,0)="""PKG"",526,22,1,""PAH"",1,1,70,0)"
^XMB(3.9,122,2,490,0)="claim is sent before the prescription information is transmitted to the"
^XMB(3.9,122,2,491,0)="""PKG"",526,22,1,""PAH"",1,1,71,0)"
^XMB(3.9,122,2,492,0)="CMOP facility to be filled. Once the adjudicating response is electronically "
^XMB(3.9,122,2,493,0)="""PKG"",526,22,1,""PAH"",1,1,72,0)"
^XMB(3.9,122,2,494,0)="received from the third party payer, if there are no Drug Utilization Review"
^XMB(3.9,122,2,495,0)="""PKG"",526,22,1,""PAH"",1,1,73,0)"
^XMB(3.9,122,2,496,0)="or Refill Too Soon rejects, the prescription is then transmitted to the CMOP "
^XMB(3.9,122,2,497,0)="""PKG"",526,22,1,""PAH"",1,1,74,0)"
^XMB(3.9,122,2,498,0)="facility. When the CMOP center sends the dispensing information back to VistA,"
^XMB(3.9,122,2,499,0)="""PKG"",526,22,1,""PAH"",1,1,75,0)"
^XMB(3.9,122,2,500,0)="the National Drug Code (NDC) information is checked against the NDC sent to "
^XMB(3.9,122,2,501,0)="""PKG"",526,22,1,""PAH"",1,1,76,0)"
^XMB(3.9,122,2,502,0)="the third party payer and, if different, a new claim is generated in the "
^XMB(3.9,122,2,503,0)="""PKG"",526,22,1,""PAH"",1,1,77,0)"
^XMB(3.9,122,2,504,0)="background and is sent to the third party payer. In case the CMOP facility "
^XMB(3.9,122,2,505,0)="""PKG"",526,22,1,""PAH"",1,1,78,0)"
^XMB(3.9,122,2,506,0)="indicates that it is unable to fill a ""PAYABLE  prescription fill, a reversal"
^XMB(3.9,122,2,507,0)="""PKG"",526,22,1,""PAH"",1,1,79,0)"
^XMB(3.9,122,2,508,0)="is automatically submitted to the third party payer for the corresponding "
^XMB(3.9,122,2,509,0)="""PKG"",526,22,1,""PAH"",1,1,80,0)"
^XMB(3.9,122,2,510,0)="fill."
^XMB(3.9,122,2,511,0)="""PKG"",526,22,1,""PAH"",1,1,81,0)"
^XMB(3.9,122,2,512,0)="   "
^XMB(3.9,122,2,513,0)="""PKG"",526,22,1,""PAH"",1,1,82,0)"
^XMB(3.9,122,2,514,0)="This patch modifies the CMOP application to submit electronic claims for "
^XMB(3.9,122,2,515,0)="""PKG"",526,22,1,""PAH"",1,1,83,0)"
^XMB(3.9,122,2,516,0)="prescriptions that are transmitted to CMOP centers to be filled and dispensed "
^XMB(3.9,122,2,517,0)="""PKG"",526,22,1,""PAH"",1,1,84,0)"
^XMB(3.9,122,2,518,0)="remotely. All the prescriptions ready to be included on the batch to be"
^XMB(3.9,122,2,519,0)="""PKG"",526,22,1,""PAH"",1,1,85,0)"
^XMB(3.9,122,2,520,0)="transmitted to CMOP are first transmitted to the third party insurance. Once"
^XMB(3.9,122,2,521,0)="""PKG"",526,22,1,""PAH"",1,1,86,0)"
^XMB(3.9,122,2,522,0)="this step is completed, the system waits 60 seconds before the actual"
^XMB(3.9,122,2,523,0)="""PKG"",526,22,1,""PAH"",1,1,87,0)"
^XMB(3.9,122,2,524,0)="transmission to CMOP starts. This process will affect the existing CMOP"
^XMB(3.9,122,2,525,0)="""PKG"",526,22,1,""PAH"",1,1,88,0)"
^XMB(3.9,122,2,526,0)="functionality in two ways: "
^XMB(3.9,122,2,527,0)="""PKG"",526,22,1,""PAH"",1,1,89,0)"
^XMB(3.9,122,2,528,0)="   "
^XMB(3.9,122,2,529,0)="""PKG"",526,22,1,""PAH"",1,1,90,0)"
^XMB(3.9,122,2,530,0)=" 1) If a response from the third party payer is not received by the time the "
^XMB(3.9,122,2,531,0)="""PKG"",526,22,1,""PAH"",1,1,91,0)"
^XMB(3.9,122,2,532,0)="    prescription is ready to be transmitted to CMOP, the prescription is"
^XMB(3.9,122,2,533,0)="""PKG"",526,22,1,""PAH"",1,1,92,0)"
^XMB(3.9,122,2,534,0)="    skipped and remains in the queue for the next CMOP transmission. A Mailman"
^XMB(3.9,122,2,535,0)="""PKG"",526,22,1,""PAH"",1,1,93,0)"
^XMB(3.9,122,2,536,0)="    message containing all the prescriptions in this category is generated at "
^XMB(3.9,122,2,537,0)="""PKG"",526,22,1,""PAH"",1,1,94,0)"
^XMB(3.9,122,2,538,0)="    the end of the process and it is transmitted to all the holders of the "
^XMB(3.9,122,2,539,0)="""PKG"",526,22,1,""PAH"",1,1,95,0)"
^XMB(3.9,122,2,540,0)="    PSXMAIL security key. If no users on the system have this key, the Mailman"
^XMB(3.9,122,2,541,0)="""PKG"",526,22,1,""PAH"",1,1,96,0)"
^XMB(3.9,122,2,542,0)="    message is sent to all the users holding the PSXCMOPMGR security key."
^XMB(3.9,122,2,543,0)="""PKG"",526,22,1,""PAH"",1,1,97,0)"
^XMB(3.9,122,2,544,0)=" "
^XMB(3.9,122,2,545,0)="""PKG"",526,22,1,""PAH"",1,1,98,0)"
^XMB(3.9,122,2,546,0)=" 2) If the third party payer rejects the claim due to a DUR (Drug Utilization"
^XMB(3.9,122,2,547,0)="""PKG"",526,22,1,""PAH"",1,1,99,0)"
^XMB(3.9,122,2,548,0)="    Review) or a 'REFILL TOO SOON' reject, the prescription is not sent to"
^XMB(3.9,122,2,549,0)="""PKG"",526,22,1,""PAH"",1,1,100,0)"
^XMB(3.9,122,2,550,0)="    CMOP and remains in the queue to be transmitted in the next CMOP "
^XMB(3.9,122,2,551,0)="""PKG"",526,22,1,""PAH"",1,1,101,0)"
^XMB(3.9,122,2,552,0)="    transmission. The prescription will not be transmitted to CMOP until the"
^XMB(3.9,122,2,553,0)="""PKG"",526,22,1,""PAH"",1,1,102,0)"
^XMB(3.9,122,2,554,0)="    reject is resolved by the user through the Outpatient Pharmacy V. 7.0 "
^XMB(3.9,122,2,555,0)="""PKG"",526,22,1,""PAH"",1,1,103,0)"
^XMB(3.9,122,2,556,0)="    application. No message is generated for prescriptions in this category."
^XMB(3.9,122,2,557,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,122,2,558,0)="Y"
^XMB(3.9,122,2,559,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,122,2,560,0)="^D REP^XPDH"
^XMB(3.9,122,2,561,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,122,2,562,0)="Shall I write over your |FLAG| File"
^XMB(3.9,122,2,563,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,122,2,564,0)="YES"
^XMB(3.9,122,2,565,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,122,2,566,0)="D XPF1^XPDIQ"
^XMB(3.9,122,2,567,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,122,2,568,0)="Y"
^XMB(3.9,122,2,569,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,122,2,570,0)="^D DTA^XPDH"
^XMB(3.9,122,2,571,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,122,2,572,0)="Want my data |FLAG| yours"
^XMB(3.9,122,2,573,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,122,2,574,0)="YES"
^XMB(3.9,122,2,575,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,122,2,576,0)="D XPF2^XPDIQ"
^XMB(3.9,122,2,577,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,122,2,578,0)="YO"
^XMB(3.9,122,2,579,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,122,2,580,0)="^D INHIBIT^XPDH"
^XMB(3.9,122,2,581,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,122,2,582,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,122,2,583,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,122,2,584,0)="YES"
^XMB(3.9,122,2,585,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,122,2,586,0)="D XPI1^XPDIQ"
^XMB(3.9,122,2,587,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,122,2,588,0)="PO^VA(200,:EM"
^XMB(3.9,122,2,589,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,122,2,590,0)="^D MG^XPDH"
^XMB(3.9,122,2,591,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,122,2,592,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,122,2,593,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,122,2,594,0)=""
^XMB(3.9,122,2,595,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,122,2,596,0)="D XPM1^XPDIQ"
^XMB(3.9,122,2,597,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,122,2,598,0)="Y"
^XMB(3.9,122,2,599,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,122,2,600,0)="^D MENU^XPDH"
^XMB(3.9,122,2,601,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,122,2,602,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,122,2,603,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,122,2,604,0)="YES"
^XMB(3.9,122,2,605,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,122,2,606,0)="D XPO1^XPDIQ"
^XMB(3.9,122,2,607,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,122,2,608,0)="Y"
^XMB(3.9,122,2,609,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,122,2,610,0)="^D OPT^XPDH"
^XMB(3.9,122,2,611,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,122,2,612,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,122,2,613,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,122,2,614,0)="YES"
^XMB(3.9,122,2,615,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,122,2,616,0)="D XPZ1^XPDIQ"
^XMB(3.9,122,2,617,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,122,2,618,0)="Y"
^XMB(3.9,122,2,619,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,122,2,620,0)="^D RTN^XPDH"
^XMB(3.9,122,2,621,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,122,2,622,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,122,2,623,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,122,2,624,0)="NO"
^XMB(3.9,122,2,625,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,122,2,626,0)="D XPZ2^XPDIQ"
^XMB(3.9,122,2,627,0)="""RTN"")"
^XMB(3.9,122,2,628,0)="7"
^XMB(3.9,122,2,629,0)="""RTN"",""PSXBPSMS"")"
^XMB(3.9,122,2,630,0)="0^7^B11444984"
^XMB(3.9,122,2,631,0)="""RTN"",""PSXBPSMS"",1,0)"
^XMB(3.9,122,2,632,0)="PSXBPSMS ;BIRM/BSR - BPS (ECME) Utilities ;10/29/98  2:13 PM"
^XMB(3.9,122,2,633,0)="""RTN"",""PSXBPSMS"",2,0)"
^XMB(3.9,122,2,634,0)=" ;;2.0;CMOP;**48**;11 Apr 97"
^XMB(3.9,122,2,635,0)="""RTN"",""PSXBPSMS"",3,0)"
^XMB(3.9,122,2,636,0)=" ;Reference to $$RXFLDT^PSOBPSUT supported by IA 4701"
^XMB(3.9,122,2,637,0)="""RTN"",""PSXBPSMS"",4,0)"
^XMB(3.9,122,2,638,0)=" ;"
^XMB(3.9,122,2,639,0)="""RTN"",""PSXBPSMS"",5,0)"
^XMB(3.9,122,2,640,0)="EN ;Main entry point."
^XMB(3.9,122,2,641,0)="""RTN"",""PSXBPSMS"",6,0)"
^XMB(3.9,122,2,642,0)=" N EMCNT,DFN,ORCNT,PATCNT,DIV,RX,DFN,SSN,PTLST,VADM"
^XMB(3.9,122,2,643,0)="""RTN"",""PSXBPSMS"",7,0)"
^XMB(3.9,122,2,644,0)=" K ^TMP(""PSXEPHOUT"",$J)"
^XMB(3.9,122,2,645,0)="""RTN"",""PSXBPSMS"",8,0)"
^XMB(3.9,122,2,646,0)=" S DIV="""",(EMCNT,ORCNT,PATCNT)=0"
^XMB(3.9,122,2,647,0)="""RTN"",""PSXBPSMS"",9,0)"
^XMB(3.9,122,2,648,0)=" F  S DIV=$O(^TMP(""PSXEPHIN"",$J,DIV))  Q:DIV=""""  D"
^XMB(3.9,122,2,649,0)="""RTN"",""PSXBPSMS"",10,0)"
^XMB(3.9,122,2,650,0)=" .D HEADER(DIV)"
^XMB(3.9,122,2,651,0)="""RTN"",""PSXBPSMS"",11,0)"
^XMB(3.9,122,2,652,0)=" .S RX="""" F  S RX=$O(^TMP(""PSXEPHIN"",$J,DIV,RX)) Q:RX=""""  D"
^XMB(3.9,122,2,653,0)="""RTN"",""PSXBPSMS"",12,0)"
^XMB(3.9,122,2,654,0)=" ..S DFN=+$P(^PSRX(RX,0),""^"",2) D DEM^VADPT"
^XMB(3.9,122,2,655,0)="""RTN"",""PSXBPSMS"",13,0)"
^XMB(3.9,122,2,656,0)=" ..S SSN=$E($P(VADM(2),U),6,9),PATNM=(VADM(1))"
^XMB(3.9,122,2,657,0)="""RTN"",""PSXBPSMS"",14,0)"
^XMB(3.9,122,2,658,0)=" ..S ORCNT=$G(ORCNT)+1 D PATCNT(PATNM_SSN)"
^XMB(3.9,122,2,659,0)="""RTN"",""PSXBPSMS"",15,0)"
^XMB(3.9,122,2,660,0)=" ..D FORMAT"
^XMB(3.9,122,2,661,0)="""RTN"",""PSXBPSMS"",16,0)"
^XMB(3.9,122,2,662,0)=" .D FOOTER(DIV)"
^XMB(3.9,122,2,663,0)="""RTN"",""PSXBPSMS"",17,0)"
^XMB(3.9,122,2,664,0)=" D MAIL,CLEAN"
^XMB(3.9,122,2,665,0)="""RTN"",""PSXBPSMS"",18,0)"
^XMB(3.9,122,2,666,0)=" Q"
^XMB(3.9,122,2,667,0)="""RTN"",""PSXBPSMS"",19,0)"
^XMB(3.9,122,2,668,0)=" ;"
^XMB(3.9,122,2,669,0)="""RTN"",""PSXBPSMS"",20,0)"
^XMB(3.9,122,2,670,0)=" ; Format Row"
^XMB(3.9,122,2,671,0)="""RTN"",""PSXBPSMS"",21,0)"
^XMB(3.9,122,2,672,0)="FORMAT ;"
^XMB(3.9,122,2,673,0)="""RTN"",""PSXBPSMS"",22,0)"
^XMB(3.9,122,2,674,0)=" N LTXT,RFL"
^XMB(3.9,122,2,675,0)="""RTN"",""PSXBPSMS"",23,0)"
^XMB(3.9,122,2,676,0)=" S RFL=+$G(^TMP(""PSXEPHIN"",$J,DIV,RX)),LTXT=$$GET1^DIQ(52,RX,.01)_""/""_RFL"
^XMB(3.9,122,2,677,0)="""RTN"",""PSXBPSMS"",24,0)"
^XMB(3.9,122,2,678,0)=" S $E(LTXT,15)=$E(PATNM,1,18)_""(""_SSN_"")"",$E(LTXT,40)=$E($$GET1^DIQ(52,RX,6),1,25)"
^XMB(3.9,122,2,679,0)="""RTN"",""PSXBPSMS"",25,0)"
^XMB(3.9,122,2,680,0)=" I $$PATCH^XPDUTL(""PSO*7.0*148"") S $E(LTXT,66)=$$FMTE^XLFDT($$RXFLDT^PSOBPSUT(RX,RFL))"
^XMB(3.9,122,2,681,0)="""RTN"",""PSXBPSMS"",26,0)"
^XMB(3.9,122,2,682,0)=" D STORELN(LTXT)"
^XMB(3.9,122,2,683,0)="""RTN"",""PSXBPSMS"",27,0)"
^XMB(3.9,122,2,684,0)=" Q"
^XMB(3.9,122,2,685,0)="""RTN"",""PSXBPSMS"",28,0)"
^XMB(3.9,122,2,686,0)=" ;"
^XMB(3.9,122,2,687,0)="""RTN"",""PSXBPSMS"",29,0)"
^XMB(3.9,122,2,688,0)=" ;Count patients."
^XMB(3.9,122,2,689,0)="""RTN"",""PSXBPSMS"",30,0)"
^XMB(3.9,122,2,690,0)="PATCNT(NAMSSN) ;"
^XMB(3.9,122,2,691,0)="""RTN"",""PSXBPSMS"",31,0)"
^XMB(3.9,122,2,692,0)=" I '$D(PTLST(NAMSSN)) D"
^XMB(3.9,122,2,693,0)="""RTN"",""PSXBPSMS"",32,0)"
^XMB(3.9,122,2,694,0)=" .S PTLST(NAMSSN)="""""
^XMB(3.9,122,2,695,0)="""RTN"",""PSXBPSMS"",33,0)"
^XMB(3.9,122,2,696,0)=" .S PATCNT=$G(PATCNT)+1"
^XMB(3.9,122,2,697,0)="""RTN"",""PSXBPSMS"",34,0)"
^XMB(3.9,122,2,698,0)=" Q"
^XMB(3.9,122,2,699,0)="""RTN"",""PSXBPSMS"",35,0)"
^XMB(3.9,122,2,700,0)=" ;"
^XMB(3.9,122,2,701,0)="""RTN"",""PSXBPSMS"",36,0)"
^XMB(3.9,122,2,702,0)=" ;Build header."
^XMB(3.9,122,2,703,0)="""RTN"",""PSXBPSMS"",37,0)"
^XMB(3.9,122,2,704,0)="HEADER(DIV) ;"
^XMB(3.9,122,2,705,0)="""RTN"",""PSXBPSMS"",38,0)"
^XMB(3.9,122,2,706,0)=" D STORELN(""Division: ""_$$GET1^DIQ(59,DIV,.01))"
^XMB(3.9,122,2,707,0)="""RTN"",""PSXBPSMS"",39,0)"
^XMB(3.9,122,2,708,0)=" D STORELN($TR($J("""",79),"" "",""-""))"
^XMB(3.9,122,2,709,0)="""RTN"",""PSXBPSMS"",40,0)"
^XMB(3.9,122,2,710,0)=" D STORELN(""RX#/Fill      PATIENT(LAST4SSN)        DRUG                      FILL DATE"")"
^XMB(3.9,122,2,711,0)="""RTN"",""PSXBPSMS"",41,0)"
^XMB(3.9,122,2,712,0)=" D STORELN($TR($J("""",79),"" "",""-""))"
^XMB(3.9,122,2,713,0)="""RTN"",""PSXBPSMS"",42,0)"
^XMB(3.9,122,2,714,0)=" Q"
^XMB(3.9,122,2,715,0)="""RTN"",""PSXBPSMS"",43,0)"
^XMB(3.9,122,2,716,0)=" ;       "
^XMB(3.9,122,2,717,0)="""RTN"",""PSXBPSMS"",44,0)"
^XMB(3.9,122,2,718,0)=" ;Output patient count & prescriptions count & division number"
^XMB(3.9,122,2,719,0)="""RTN"",""PSXBPSMS"",45,0)"
^XMB(3.9,122,2,720,0)="FOOTER(DIVN) ;"
^XMB(3.9,122,2,721,0)="""RTN"",""PSXBPSMS"",46,0)"
^XMB(3.9,122,2,722,0)=" D STORELN("" "")"
^XMB(3.9,122,2,723,0)="""RTN"",""PSXBPSMS"",47,0)"
^XMB(3.9,122,2,724,0)=" D STORELN(""Total ""_$$GET1^DIQ(59,DIVN,.01)_"": ""_PATCNT_"" Patients and ""_ORCNT_"" Prescriptions."")"
^XMB(3.9,122,2,725,0)="""RTN"",""PSXBPSMS"",48,0)"
^XMB(3.9,122,2,726,0)=" D STORELN("" "")"
^XMB(3.9,122,2,727,0)="""RTN"",""PSXBPSMS"",49,0)"
^XMB(3.9,122,2,728,0)=" K PTLST S (ORCNT,PATCNT)=0"
^XMB(3.9,122,2,729,0)="""RTN"",""PSXBPSMS"",50,0)"
^XMB(3.9,122,2,730,0)=" Q"
^XMB(3.9,122,2,731,0)="""RTN"",""PSXBPSMS"",51,0)"
^XMB(3.9,122,2,732,0)=" ;"
^XMB(3.9,122,2,733,0)="""RTN"",""PSXBPSMS"",52,0)"
^XMB(3.9,122,2,734,0)=" ;Build and Send email to provider."
^XMB(3.9,122,2,735,0)="""RTN"",""PSXBPSMS"",53,0)"
^XMB(3.9,122,2,736,0)="MAIL ;"
^XMB(3.9,122,2,737,0)="""RTN"",""PSXBPSMS"",54,0)"
^XMB(3.9,122,2,738,0)=" N PSBMSG,M1,Y,USER,XMTEXT,XMDUZ,XMSUB,XMY"
^XMB(3.9,122,2,739,0)="""RTN"",""PSXBPSMS"",55,0)"
^XMB(3.9,122,2,740,0)=" S PSBMSG(1)=""The prescriptions listed below are third party electronically billable. They"""
^XMB(3.9,122,2,741,0)="""RTN"",""PSXBPSMS"",56,0)"
^XMB(3.9,122,2,742,0)=" S PSBMSG(2)=""have not been transmitted to CMOP because they have been submitted to"""
^XMB(3.9,122,2,743,0)="""RTN"",""PSXBPSMS"",57,0)"
^XMB(3.9,122,2,744,0)=" S PSBMSG(3)=""third party payer but we have not received a response regarding these"""
^XMB(3.9,122,2,745,0)="""RTN"",""PSXBPSMS"",58,0)"
^XMB(3.9,122,2,746,0)=" S PSBMSG(4)=""prescriptions yet. The prescriptions will remain in the CMOP queue to be"""
^XMB(3.9,122,2,747,0)="""RTN"",""PSXBPSMS"",59,0)"
^XMB(3.9,122,2,748,0)=" S PSBMSG(5)=""transmitted in the next transmission if the response from the third party"""
^XMB(3.9,122,2,749,0)="""RTN"",""PSXBPSMS"",60,0)"
^XMB(3.9,122,2,750,0)=" S PSBMSG(6)=""payer has been received."""
^XMB(3.9,122,2,751,0)="""RTN"",""PSXBPSMS"",61,0)"
^XMB(3.9,122,2,752,0)=" S PSBMSG(7)="" """
^XMB(3.9,122,2,753,0)="""RTN"",""PSXBPSMS"",62,0)"
^XMB(3.9,122,2,754,0)=" S M1=8"
^XMB(3.9,122,2,755,0)="""RTN"",""PSXBPSMS"",63,0)"
^XMB(3.9,122,2,756,0)=" S Y="""" F  S Y=$O(^TMP(""PSXEPHOUT"",$J,""M"",Y)) Q:Y=""""  D"
^XMB(3.9,122,2,757,0)="""RTN"",""PSXBPSMS"",64,0)"
^XMB(3.9,122,2,758,0)=" .S PSBMSG(M1)=$P(^TMP(""PSXEPHOUT"",$J,""M"",Y),""^""),M1=M1+1"
^XMB(3.9,122,2,759,0)="""RTN"",""PSXBPSMS"",65,0)"
^XMB(3.9,122,2,760,0)=" ; Send email to all users who hold a security key"
^XMB(3.9,122,2,761,0)="""RTN"",""PSXBPSMS"",66,0)"
^XMB(3.9,122,2,762,0)=" S USER=0"
^XMB(3.9,122,2,763,0)="""RTN"",""PSXBPSMS"",67,0)"
^XMB(3.9,122,2,764,0)=" I $D(^XUSEC(""PSXMAIL"")) D"
^XMB(3.9,122,2,765,0)="""RTN"",""PSXBPSMS"",68,0)"
^XMB(3.9,122,2,766,0)=" .F  S USER=$O(^XUSEC(""PSXMAIL"",USER)) Q:'USER  S XMY(USER)="""""
^XMB(3.9,122,2,767,0)="""RTN"",""PSXBPSMS"",69,0)"
^XMB(3.9,122,2,768,0)=" E  D"
^XMB(3.9,122,2,769,0)="""RTN"",""PSXBPSMS"",70,0)"
^XMB(3.9,122,2,770,0)=" .F  S USER=$O(^XUSEC(""PSXCMOPMGR"",USER)) Q:'USER  S XMY(USER)="""""
^XMB(3.9,122,2,771,0)="""RTN"",""PSXBPSMS"",71,0)"
^XMB(3.9,122,2,772,0)=" ;"
^XMB(3.9,122,2,773,0)="""RTN"",""PSXBPSMS"",72,0)"
^XMB(3.9,122,2,774,0)=" S XMTEXT=""PSBMSG("",XMSUB=""ePharmacy - CMOP Not TRANSMITTED Rx List"""
^XMB(3.9,122,2,775,0)="""RTN"",""PSXBPSMS"",73,0)"
^XMB(3.9,122,2,776,0)=" S XMDUZ=.5"
^XMB(3.9,122,2,777,0)="""RTN"",""PSXBPSMS"",74,0)"
^XMB(3.9,122,2,778,0)=" D ^XMD"
^XMB(3.9,122,2,779,0)="""RTN"",""PSXBPSMS"",75,0)"
^XMB(3.9,122,2,780,0)=" Q"
^XMB(3.9,122,2,781,0)="""RTN"",""PSXBPSMS"",76,0)"
^XMB(3.9,122,2,782,0)=" ;"
^XMB(3.9,122,2,783,0)="""RTN"",""PSXBPSMS"",77,0)"
^XMB(3.9,122,2,784,0)=" ;Store E-mail line for later use."
^XMB(3.9,122,2,785,0)="""RTN"",""PSXBPSMS"",78,0)"
^XMB(3.9,122,2,786,0)="STORELN(LINE) ;"
^XMB(3.9,122,2,787,0)="""RTN"",""PSXBPSMS"",79,0)"
^XMB(3.9,122,2,788,0)=" S EMCNT=EMCNT+1"
^XMB(3.9,122,2,789,0)="""RTN"",""PSXBPSMS"",80,0)"
^XMB(3.9,122,2,790,0)=" S ^TMP(""PSXEPHOUT"",$J,""M"",EMCNT)=LINE"
^XMB(3.9,122,2,791,0)="""RTN"",""PSXBPSMS"",81,0)"
^XMB(3.9,122,2,792,0)=" Q"
^XMB(3.9,122,2,793,0)="""RTN"",""PSXBPSMS"",82,0)"
^XMB(3.9,122,2,794,0)=" ;"
^XMB(3.9,122,2,795,0)="""RTN"",""PSXBPSMS"",83,0)"
^XMB(3.9,122,2,796,0)=" ;Clean all remaining arrays and variables."
^XMB(3.9,122,2,797,0)="""RTN"",""PSXBPSMS"",84,0)"
^XMB(3.9,122,2,798,0)="CLEAN ;"
^XMB(3.9,122,2,799,0)="""RTN"",""PSXBPSMS"",85,0)"
^XMB(3.9,122,2,800,0)=" K ^TMP(""PSXEPHOUT"",$J),^TMP(""PSXEPHIN"",$J)"
^XMB(3.9,122,2,801,0)="""RTN"",""PSXBPSMS"",86,0)"
^XMB(3.9,122,2,802,0)=" Q"
^XMB(3.9,122,2,803,0)="""RTN"",""PSXBPSUT"")"
^XMB(3.9,122,2,804,0)="0^6^B699978"
^XMB(3.9,122,2,805,0)="""RTN"",""PSXBPSUT"",1,0)"
^XMB(3.9,122,2,806,0)="PSXBPSUT ;BIR/MFR - BPS (ECME) Utilities ;13 Mar 2002  10:31 AM"
^XMB(3.9,122,2,807,0)="""RTN"",""PSXBPSUT"",2,0)"
^XMB(3.9,122,2,808,0)=" ;;2.0;CMOP;**48**;11 Apr 97"
^XMB(3.9,122,2,809,0)="""RTN"",""PSXBPSUT"",3,0)"
^XMB(3.9,122,2,810,0)=" ;Reference to ^PS(52.5, supported by DBIA #1978"
^XMB(3.9,122,2,811,0)="""RTN"",""PSXBPSUT"",4,0)"
^XMB(3.9,122,2,812,0)=" ;"
^XMB(3.9,122,2,813,0)="""RTN"",""PSXBPSUT"",5,0)"
^XMB(3.9,122,2,814,0)="XMIT(REC) ; Checks if the prescription will be transmitted to CMOP or not"
^XMB(3.9,122,2,815,0)="""RTN"",""PSXBPSUT"",6,0)"
^XMB(3.9,122,2,816,0)=" ; Input:  REC  - Pointer to SUSPENSE file (#52.5)"
^XMB(3.9,122,2,817,0)="""RTN"",""PSXBPSUT"",7,0)"
^XMB(3.9,122,2,818,0)=" ; Output: XMIT - 0 - NO  /  1 - YES "
^XMB(3.9,122,2,819,0)="""RTN"",""PSXBPSUT"",8,0)"
^XMB(3.9,122,2,820,0)=" N VADM,DFN,RX"
^XMB(3.9,122,2,821,0)="""RTN"",""PSXBPSUT"",9,0)"
^XMB(3.9,122,2,822,0)=" I '$D(^PS(52.5,REC,0)) Q 0"
^XMB(3.9,122,2,823,0)="""RTN"",""PSXBPSUT"",10,0)"
^XMB(3.9,122,2,824,0)=" I $P(^PS(52.5,REC,0),""^"",7)="""" Q 0"
^XMB(3.9,122,2,825,0)="""RTN"",""PSXBPSUT"",11,0)"
^XMB(3.9,122,2,826,0)=" S RX=$P($G(^PS(52.5,REC,0)),""^"",1) I RX="""" Q 0"
^XMB(3.9,122,2,827,0)="""RTN"",""PSXBPSUT"",12,0)"
^XMB(3.9,122,2,828,0)=" S DFN=$$GET1^DIQ(52,RX,2,""I"") D DEM^VADPT I $G(VADM(6))'="""" Q 0"
^XMB(3.9,122,2,829,0)="""RTN"",""PSXBPSUT"",13,0)"
^XMB(3.9,122,2,830,0)=" I ($P(^PS(52.5,REC,0),""^"",3)'=XDFN) Q 0"
^XMB(3.9,122,2,831,0)="""RTN"",""PSXBPSUT"",14,0)"
^XMB(3.9,122,2,832,0)=" S DFN=$$GET1^DIQ(52,RX,2,""I"") D DEM^VADPT I $G(VADM(6))'="""" Q 0"
^XMB(3.9,122,2,833,0)="""RTN"",""PSXBPSUT"",15,0)"
^XMB(3.9,122,2,834,0)=" S PSXOK=0 D CHKDATA^PSXMISC1 I PSXOK Q 0"
^XMB(3.9,122,2,835,0)="""RTN"",""PSXBPSUT"",16,0)"
^XMB(3.9,122,2,836,0)=" Q 1"
^XMB(3.9,122,2,837,0)="""RTN"",""PSXRPPL"")"
^XMB(3.9,122,2,838,0)="0^1^B60595738^B60509656"
^XMB(3.9,122,2,839,0)="""RTN"",""PSXRPPL"",1,0)"
^XMB(3.9,122,2,840,0)="PSXRPPL ;BIR/WPB,BAB-Gathers data for the CMOP Transmission ;13 Mar 2002  10:31 AM"
^XMB(3.9,122,2,841,0)="""RTN"",""PSXRPPL"",2,0)"
^XMB(3.9,122,2,842,0)=" ;;2.0;CMOP;**3,23,33,28,40,42,41,48**;11 Apr 97"
^XMB(3.9,122,2,843,0)="""RTN"",""PSXRPPL"",3,0)"
^XMB(3.9,122,2,844,0)=" ;Reference to ^PS(52.5,  supported by DBIA #1978"
^XMB(3.9,122,2,845,0)="""RTN"",""PSXRPPL"",4,0)"
^XMB(3.9,122,2,846,0)=" ;Reference to ^PSRX(     supported by DBIA #1977"
^XMB(3.9,122,2,847,0)="""RTN"",""PSXRPPL"",5,0)"
^XMB(3.9,122,2,848,0)=" ;Reference to ^PSOHLSN1  supported by DBIA #2385"
^XMB(3.9,122,2,849,0)="""RTN"",""PSXRPPL"",6,0)"
^XMB(3.9,122,2,850,0)=" ;Reference to ^PSORXL    supported by DBIA #1969"
^XMB(3.9,122,2,851,0)="""RTN"",""PSXRPPL"",7,0)"
^XMB(3.9,122,2,852,0)=" ;Reference to ^PSOLSET   supported by DBIA #1973"
^XMB(3.9,122,2,853,0)="""RTN"",""PSXRPPL"",8,0)"
^XMB(3.9,122,2,854,0)=" ;Reference to %ZIS(1     supported by DBIA #290"
^XMB(3.9,122,2,855,0)="""RTN"",""PSXRPPL"",9,0)"
^XMB(3.9,122,2,856,0)=" ;Reference to %ZIS(2     supported by DBIA #2247"
^XMB(3.9,122,2,857,0)="""RTN"",""PSXRPPL"",10,0)"
^XMB(3.9,122,2,858,0)=" ;Reference to ^PSSLOCK   supported by DBIA #2789"
^XMB(3.9,122,2,859,0)="""RTN"",""PSXRPPL"",11,0)"
^XMB(3.9,122,2,860,0)=" ;Reference to ^XTMP(""ORLK-"" supported by DBIA #4001"
^XMB(3.9,122,2,861,0)="""RTN"",""PSXRPPL"",12,0)"
^XMB(3.9,122,2,862,0)=" ;Reference to ^PSOBPSUT supported by DBIA #4701"
^XMB(3.9,122,2,863,0)="""RTN"",""PSXRPPL"",13,0)"
^XMB(3.9,122,2,864,0)=" ;Reference to ^PSOREJUT supported by DBIA #4706"
^XMB(3.9,122,2,865,0)="""RTN"",""PSXRPPL"",14,0)"
^XMB(3.9,122,2,866,0)=" ;Reference to ^BPSUTIL supported by DBIA #4410"
^XMB(3.9,122,2,867,0)="""RTN"",""PSXRPPL"",15,0)"
^XMB(3.9,122,2,868,0)=" ;Called from PSXRSUS -Builds ^PSX(550.2,,15,""C"" , and returns to PSXRSUS or PSXRTRAN"
^XMB(3.9,122,2,869,0)="""RTN"",""PSXRPPL"",16,0)"
^XMB(3.9,122,2,870,0)=" ;"
^XMB(3.9,122,2,871,0)="""RTN"",""PSXRPPL"",17,0)"
^XMB(3.9,122,2,872,0)="SDT K ^TMP($J,""PSX""),^TMP($J,""PSXDFN""),ZCNT,PSXBAT D:$D(XRTL) T0^%ZOSV"
^XMB(3.9,122,2,873,0)="""RTN"",""PSXRPPL"",18,0)"
^XMB(3.9,122,2,874,0)=" S PSXTDIV=PSOSITE,PSXTYP=$S(+$G(PSXCS):""C"",1:""N"")"
^XMB(3.9,122,2,875,0)="""RTN"",""PSXRPPL"",19,0)"
^XMB(3.9,122,2,876,0)=" ;"
^XMB(3.9,122,2,877,0)="""RTN"",""PSXRPPL"",20,0)"
^XMB(3.9,122,2,878,0)=" ; - Submitting prescriptions to ECME (Electronic Claims Mgmt Engine) - 3rd pary"
^XMB(3.9,122,2,879,0)="""RTN"",""PSXRPPL"",21,0)"
^XMB(3.9,122,2,880,0)=" I $$ECMEON^BPSUTIL(PSXTDIV),$$CMOPON^BPSUTIL(PSXTDIV) D"
^XMB(3.9,122,2,881,0)="""RTN"",""PSXRPPL"",22,0)"
^XMB(3.9,122,2,882,0)=" . N BPSCNT S BPSCNT=$$SBTECME^PSXRPPL1(PSXTYP,PSXTDIV,PRTDT,PSXDTRG)"
^XMB(3.9,122,2,883,0)="""RTN"",""PSXRPPL"",23,0)"
^XMB(3.9,122,2,884,0)=" . ; - Wait 15 seconds per prescription sent to ECME (max of 2 hours)"
^XMB(3.9,122,2,885,0)="""RTN"",""PSXRPPL"",24,0)"
^XMB(3.9,122,2,886,0)=" . I BPSCNT>0 H 60+$S((BPSCNT*15)>7200:7200,1:(BPSCNT*15))"
^XMB(3.9,122,2,887,0)="""RTN"",""PSXRPPL"",25,0)"
^XMB(3.9,122,2,888,0)=" ;"
^XMB(3.9,122,2,889,0)="""RTN"",""PSXRPPL"",26,0)"
^XMB(3.9,122,2,890,0)=" ; - Transmitting prescription to CMOP (up to THROUGH DATE)"
^XMB(3.9,122,2,891,0)="""RTN"",""PSXRPPL"",27,0)"
^XMB(3.9,122,2,892,0)=" K ^TMP(""PSXEPHIN"",$J)"
^XMB(3.9,122,2,893,0)="""RTN"",""PSXRPPL"",28,0)"
^XMB(3.9,122,2,894,0)=" S SDT=0 F  S SDT=$O(^PS(52.5,""CMP"",""Q"",PSXTYP,PSXTDIV,SDT)) S XDFN=0 Q:(SDT>PRTDT)!(SDT'>0)  D"
^XMB(3.9,122,2,895,0)="""RTN"",""PSXRPPL"",29,0)"
^XMB(3.9,122,2,896,0)=" . F  S XDFN=$O(^PS(52.5,""CMP"",""Q"",PSXTYP,PSXTDIV,SDT,XDFN)) S REC=0 Q:(XDFN'>0)!(XDFN="""")  D"
^XMB(3.9,122,2,897,0)="""RTN"",""PSXRPPL"",30,0)"
^XMB(3.9,122,2,898,0)=" . . F  S REC=$O(^PS(52.5,""CMP"",""Q"",PSXTYP,PSXTDIV,SDT,XDFN,REC)) Q:(REC'>0)!(REC="""")  D"
^XMB(3.9,122,2,899,0)="""RTN"",""PSXRPPL"",31,0)"
^XMB(3.9,122,2,900,0)=" . . . D GETDATA D:$G(RXN) PSOUL^PSSLOCK(RXN),OERRLOCK(RXN)"
^XMB(3.9,122,2,901,0)="""RTN"",""PSXRPPL"",32,0)"
^XMB(3.9,122,2,902,0)=" ;"
^XMB(3.9,122,2,903,0)="""RTN"",""PSXRPPL"",33,0)"
^XMB(3.9,122,2,904,0)=" ; - Pulling prescriptions ahead (parameter in OUTPATIENT SITE file #59)"
^XMB(3.9,122,2,905,0)="""RTN"",""PSXRPPL"",34,0)"
^XMB(3.9,122,2,906,0)=" I $G(PSXBAT),'$G(PSXRTRAN) D CHKDFN"
^XMB(3.9,122,2,907,0)="""RTN"",""PSXRPPL"",35,0)"
^XMB(3.9,122,2,908,0)=" ;"
^XMB(3.9,122,2,909,0)="""RTN"",""PSXRPPL"",36,0)"
^XMB(3.9,122,2,910,0)=" ; - Sends a Mailman message if there were transmission problems with the 3rd Party Payer"
^XMB(3.9,122,2,911,0)="""RTN"",""PSXRPPL"",37,0)"
^XMB(3.9,122,2,912,0)=" I $D(^TMP(""PSXEPHIN"",$J)) D ^PSXBPSMS K ^TMP(""PSXEPHIN"",$J)"
^XMB(3.9,122,2,913,0)="""RTN"",""PSXRPPL"",38,0)"
^XMB(3.9,122,2,914,0)=" ;"
^XMB(3.9,122,2,915,0)="""RTN"",""PSXRPPL"",39,0)"
^XMB(3.9,122,2,916,0)="EXIT ;   "
^XMB(3.9,122,2,917,0)="""RTN"",""PSXRPPL"",40,0)"
^XMB(3.9,122,2,918,0)=" K SDT,DFN,REC,RXNUM,PSXOK,FILNUM,REF,PNAME,CNAME,DIE,DR,NDFN,%,CNT,COM,DTTM,FILL,JJ,PRTDT,PSXDIV,XDFN,NFLAG,CIND,XDFN"
^XMB(3.9,122,2,919,0)="""RTN"",""PSXRPPL"",41,0)"
^XMB(3.9,122,2,920,0)=" K CHKDT,DAYS,DRUG,DRUGCHK,NM,OPDT,PHARCLK,PHY,PSTAT,PTRA,PTRB,QTY,REL,RXERR,RXF,SFN,PSXDGST,PSXMC,PSXMDT"
^XMB(3.9,122,2,921,0)="""RTN"",""PSXRPPL"",42,0)"
^XMB(3.9,122,2,922,0)=" S:$D(XRT0) XRTN=$T(+0) D:$D(XRT0) T1^%ZOSV"
^XMB(3.9,122,2,923,0)="""RTN"",""PSXRPPL"",43,0)"
^XMB(3.9,122,2,924,0)=" K ^TMP(""PSXEPHIN"",$J)"
^XMB(3.9,122,2,925,0)="""RTN"",""PSXRPPL"",44,0)"
^XMB(3.9,122,2,926,0)=" Q"
^XMB(3.9,122,2,927,0)="""RTN"",""PSXRPPL"",45,0)"
^XMB(3.9,122,2,928,0)="GETDATA ;Screens rxs and builds data"
^XMB(3.9,122,2,929,0)="""RTN"",""PSXRPPL"",46,0)"
^XMB(3.9,122,2,930,0)=" ;PSXOK=1:NOT CMOP DRUG OR DO NOT MAIL,2:TRADENAME,3:WINDOW,4:PRINTED,5:NOT SUSPENDED"
^XMB(3.9,122,2,931,0)="""RTN"",""PSXRPPL"",47,0)"
^XMB(3.9,122,2,932,0)=" ;PSXOK=6:ALREADY RELEASED,7:DIFFERENT DIVISION,8:BAD DATA IN 52.5"
^XMB(3.9,122,2,933,0)="""RTN"",""PSXRPPL"",48,0)"
^XMB(3.9,122,2,934,0)=" ;9:CS Mismatch,10:DEA 1 or 2"
^XMB(3.9,122,2,935,0)="""RTN"",""PSXRPPL"",49,0)"
^XMB(3.9,122,2,936,0)=" I '$D(^PS(52.5,REC,0)) K ^PS(52.5,""AQ"",SDT,XDFN,REC),^PS(52.5,""CMP"",""Q"",PSXTYP,PSXTDIV,SDT,XDFN,REC) Q"
^XMB(3.9,122,2,937,0)="""RTN"",""PSXRPPL"",50,0)"
^XMB(3.9,122,2,938,0)=" I $P(^PS(52.5,REC,0),""^"",7)="""" K ^PS(52.5,""AQ"",SDT,XDFN,REC),^PS(52.5,""CMP"",""Q"",PSXTYP,PSXTDIV,SDT,XDFN,REC) Q"
^XMB(3.9,122,2,939,0)="""RTN"",""PSXRPPL"",51,0)"
^XMB(3.9,122,2,940,0)=" I ($P(^PS(52.5,REC,0),""^"",3)'=XDFN) K ^PS(52.5,""AQ"",SDT,XDFN,REC),^PS(52.5,""CMP"",""Q"",PSXTYP,PSXTDIV,SDT,XDFN,REC) Q"
^XMB(3.9,122,2,941,0)="""RTN"",""PSXRPPL"",52,0)"
^XMB(3.9,122,2,942,0)=" N DFN S DFN=XDFN D DEM^VADPT"
^XMB(3.9,122,2,943,0)="""RTN"",""PSXRPPL"",53,0)"
^XMB(3.9,122,2,944,0)=" I $G(VADM(6))'="""" D DELETE K VADM Q"
^XMB(3.9,122,2,945,0)="""RTN"",""PSXRPPL"",54,0)"
^XMB(3.9,122,2,946,0)=" S PSXOK=0,NFLAG=0"
^XMB(3.9,122,2,947,0)="""RTN"",""PSXRPPL"",55,0)"
^XMB(3.9,122,2,948,0)=" S RXN=$P($G(^PS(52.5,REC,0)),""^"",1) I RXN="""" S PSXOK=8 Q"
^XMB(3.9,122,2,949,0)="""RTN"",""PSXRPPL"",56,0)"
^XMB(3.9,122,2,950,0)=" ;"
^XMB(3.9,122,2,951,0)="""RTN"",""PSXRPPL"",57,0)"
^XMB(3.9,122,2,952,0)=" N EPHQT S RFL=+$$GET1^DIQ(52.5,REC,9,""I""),EPHQT=0"
^XMB(3.9,122,2,953,0)="""RTN"",""PSXRPPL"",58,0)"
^XMB(3.9,122,2,954,0)=" I $$PATCH^XPDUTL(""PSO*7.0*148"") D  I EPHQT Q"
^XMB(3.9,122,2,955,0)="""RTN"",""PSXRPPL"",59,0)"
^XMB(3.9,122,2,956,0)=" . I $$RETRX^PSOBPSUT(RXN,RFL),SDT>DT S EPHQT=1 Q"
^XMB(3.9,122,2,957,0)="""RTN"",""PSXRPPL"",60,0)"
^XMB(3.9,122,2,958,0)=" . I $$FIND^PSOREJUT(RXN,RFL) S EPHQT=1 Q"
^XMB(3.9,122,2,959,0)="""RTN"",""PSXRPPL"",61,0)"
^XMB(3.9,122,2,960,0)=" . I $$STATUS^PSOBPSUT(RXN,RFL)=""IN PROGRESS"" D  Q"
^XMB(3.9,122,2,961,0)="""RTN"",""PSXRPPL"",62,0)"
^XMB(3.9,122,2,962,0)=" . . S ^TMP(""PSXEPHIN"",$J,$$RXSITE^PSOBPSUT(RXN),RXN)=RFL,EPHQT=1"
^XMB(3.9,122,2,963,0)="""RTN"",""PSXRPPL"",63,0)"
^XMB(3.9,122,2,964,0)=" ;"
^XMB(3.9,122,2,965,0)="""RTN"",""PSXRPPL"",64,0)"
^XMB(3.9,122,2,966,0)=" D CHKDATA^PSXMISC1"
^XMB(3.9,122,2,967,0)="""RTN"",""PSXRPPL"",65,0)"
^XMB(3.9,122,2,968,0)="SET Q:(PSXOK=7)!(PSXOK=8)!(PSXOK=9)"
^XMB(3.9,122,2,969,0)="""RTN"",""PSXRPPL"",66,0)"
^XMB(3.9,122,2,970,0)=" S PNAME=$G(VADM(1))"
^XMB(3.9,122,2,971,0)="""RTN"",""PSXRPPL"",67,0)"
^XMB(3.9,122,2,972,0)=" I ($G(PSXCSRX)=1)&($G(PSXCS)=1) S ^XTMP(""PSXCS"",PSOSITE,DT,RXN)="""""
^XMB(3.9,122,2,973,0)="""RTN"",""PSXRPPL"",68,0)"
^XMB(3.9,122,2,974,0)=" I (PSXOK=0)&(PSXFLAG=1) S ^TMP($J,""PSXDFN"",XDFN)="""",NFLAG=4 D DQUE,RX550215 Q"
^XMB(3.9,122,2,975,0)="""RTN"",""PSXRPPL"",69,0)"
^XMB(3.9,122,2,976,0)=" I (PSXOK=0)&(PSXFLAG=2) D RX550215 Q"
^XMB(3.9,122,2,977,0)="""RTN"",""PSXRPPL"",70,0)"
^XMB(3.9,122,2,978,0)=" I (PSXOK>0)&(PSXOK<7)!(PSXOK=10) D DELETE Q"
^XMB(3.9,122,2,979,0)="""RTN"",""PSXRPPL"",71,0)"
^XMB(3.9,122,2,980,0)=" Q"
^XMB(3.9,122,2,981,0)="""RTN"",""PSXRPPL"",72,0)"
^XMB(3.9,122,2,982,0)="DELETE ; deletes the CMOP STATUS field in PS(52.5, reindex 'AC' x-ref"
^XMB(3.9,122,2,983,0)="""RTN"",""PSXRPPL"",73,0)"
^XMB(3.9,122,2,984,0)=" L +^PS(52.5,REC):600 Q:'$T"
^XMB(3.9,122,2,985,0)="""RTN"",""PSXRPPL"",74,0)"
^XMB(3.9,122,2,986,0)=" N DR,DIE,DA S DIE=""^PS(52.5,"",DA=REC,DR=""3///@"" D ^DIE"
^XMB(3.9,122,2,987,0)="""RTN"",""PSXRPPL"",75,0)"
^XMB(3.9,122,2,988,0)=" S ^PS(52.5,""AC"",$P(^PS(52.5,REC,0),""^"",3),$P(^PS(52.5,REC,0),""^"",2),REC)="""""
^XMB(3.9,122,2,989,0)="""RTN"",""PSXRPPL"",76,0)"
^XMB(3.9,122,2,990,0)=" L -^PS(52.5,REC)"
^XMB(3.9,122,2,991,0)="""RTN"",""PSXRPPL"",77,0)"
^XMB(3.9,122,2,992,0)=" Q"
^XMB(3.9,122,2,993,0)="""RTN"",""PSXRPPL"",78,0)"
^XMB(3.9,122,2,994,0)=" ;the rest of the sub-routines go through the ^PSX(550.2,,15,""C"""
^XMB(3.9,122,2,995,0)="""RTN"",""PSXRPPL"",79,0)"
^XMB(3.9,122,2,996,0)=" ;global and checks for RXs within the days ahead range and"
^XMB(3.9,122,2,997,0)="""RTN"",""PSXRPPL"",80,0)"
^XMB(3.9,122,2,998,0)=" ;builds the ^PSX(550.2,PSXBAT,"
^XMB(3.9,122,2,999,0)="""RTN"",""PSXRPPL"",81,0)"
^XMB(3.9,122,2,1000,0)="CHKDFN ; use the patient 'C' index under RX multiple in file 550.2 to GET dfn to gather Patients' future RXs"
^XMB(3.9,122,2,1001,0)="""RTN"",""PSXRPPL"",82,0)"
^XMB(3.9,122,2,1002,0)=" I '$D(^PSX(550.2,PSXBAT,15,""C"")) Q"
^XMB(3.9,122,2,1003,0)="""RTN"",""PSXRPPL"",83,0)"
^XMB(3.9,122,2,1004,0)=" S PSXPTNM="""" F  S PSXPTNM=$O(^PSX(550.2,PSXBAT,15,""C"",PSXPTNM)) Q:PSXPTNM=""""  D"
^XMB(3.9,122,2,1005,0)="""RTN"",""PSXRPPL"",84,0)"
^XMB(3.9,122,2,1006,0)=" . S XDFN=0 F  S XDFN=$O(^PSX(550.2,PSXBAT,""15"",""C"",PSXPTNM,XDFN)) Q:(XDFN'>0)  D"
^XMB(3.9,122,2,1007,0)="""RTN"",""PSXRPPL"",85,0)"
^XMB(3.9,122,2,1008,0)=" . . S SDT=PRTDT F  S SDT=$O(^PS(52.5,""CMP"",""Q"",PSXTYP,PSXTDIV,SDT)),NDFN=0 Q:(SDT>PSXDTRG)!(SDT="""")  D"
^XMB(3.9,122,2,1009,0)="""RTN"",""PSXRPPL"",86,0)"
^XMB(3.9,122,2,1010,0)=" . . . F  S NDFN=$O(^PS(52.5,""CMP"",""Q"",PSXTYP,PSXTDIV,SDT,NDFN)),REC=0 Q:NDFN'>0  I NDFN=XDFN D"
^XMB(3.9,122,2,1011,0)="""RTN"",""PSXRPPL"",87,0)"
^XMB(3.9,122,2,1012,0)=" . . . . F  S REC=$O(^PS(52.5,""CMP"",""Q"",PSXTYP,PSXTDIV,SDT,NDFN,REC)) Q:REC'>0  D"
^XMB(3.9,122,2,1013,0)="""RTN"",""PSXRPPL"",88,0)"
^XMB(3.9,122,2,1014,0)=" . . . . . D GETDATA D:$G(RXN) PSOUL^PSSLOCK(RXN),OERRLOCK(RXN)"
^XMB(3.9,122,2,1015,0)="""RTN"",""PSXRPPL"",89,0)"
^XMB(3.9,122,2,1016,0)=" Q"
^XMB(3.9,122,2,1017,0)="""RTN"",""PSXRPPL"",90,0)"
^XMB(3.9,122,2,1018,0)="BEGIN ; Select print device"
^XMB(3.9,122,2,1019,0)="""RTN"",""PSXRPPL"",91,0)"
^XMB(3.9,122,2,1020,0)=" I '$D(PSOPAR) D ^PSOLSET"
^XMB(3.9,122,2,1021,0)="""RTN"",""PSXRPPL"",92,0)"
^XMB(3.9,122,2,1022,0)=" I $D(PSOLAP),($G(PSOLAP)'=ION) S PSLION=PSOLAP G PROFILE"
^XMB(3.9,122,2,1023,0)="""RTN"",""PSXRPPL"",93,0)"
^XMB(3.9,122,2,1024,0)=" W ! S %ZIS(""A"")=""PRINTER 'LABEL' DEVICE:  "",%ZIS(""B"")="""",%ZIS=""MQN"" D ^%ZIS S PSLION=ION G:POP EXIT"
^XMB(3.9,122,2,1025,0)="""RTN"",""PSXRPPL"",94,0)"
^XMB(3.9,122,2,1026,0)=" I $G(IOST)[""C-"" W !,""You must select a printer!"",! G BEGIN"
^XMB(3.9,122,2,1027,0)="""RTN"",""PSXRPPL"",95,0)"
^XMB(3.9,122,2,1028,0)=" F J=0,1 S @(""PSOBAR""_J)="""" I $D(^%ZIS(2,^%ZIS(1,IOS,""SUBTYPE""),""BAR""_J)) S @(""PSOBAR""_J)=^(""BAR""_J)"
^XMB(3.9,122,2,1029,0)="""RTN"",""PSXRPPL"",96,0)"
^XMB(3.9,122,2,1030,0)=" S PSOBARS=PSOBAR1]""""&(PSOBAR0]"""")&$P(PSOPAR,""^"",19)"
^XMB(3.9,122,2,1031,0)="""RTN"",""PSXRPPL"",97,0)"
^XMB(3.9,122,2,1032,0)=" K PSOION,J D ^%ZISC I $D(IO(""Q"")) K IO(""Q"")"
^XMB(3.9,122,2,1033,0)="""RTN"",""PSXRPPL"",98,0)"
^XMB(3.9,122,2,1034,0)="PROFILE I $D(PSOPROP),($G(PSOPROP)'=ION) Q"
^XMB(3.9,122,2,1035,0)="""RTN"",""PSXRPPL"",99,0)"
^XMB(3.9,122,2,1036,0)=" I $P(PSOPAR,""^"",8) S %ZIS=""MNQ"",%ZIS(""A"")=""Select PROFILE PRINTER: "" D ^%ZIS K %ZIS,IO(""Q""),IOP G:POP EXIT S PSOPROP=ION D ^%ZISC"
^XMB(3.9,122,2,1037,0)="""RTN"",""PSXRPPL"",100,0)"
^XMB(3.9,122,2,1038,0)=" I $G(PSOPROP)=ION W !,""You must select a printer!"",! G PROFILE"
^XMB(3.9,122,2,1039,0)="""RTN"",""PSXRPPL"",101,0)"
^XMB(3.9,122,2,1040,0)=" Q"
^XMB(3.9,122,2,1041,0)="""RTN"",""PSXRPPL"",102,0)"
^XMB(3.9,122,2,1042,0)="PRT ; w auto error trapping"
^XMB(3.9,122,2,1043,0)="""RTN"",""PSXRPPL"",103,0)"
^XMB(3.9,122,2,1044,0)=" D NOW^%DTC S DTTM=% K %"
^XMB(3.9,122,2,1045,0)="""RTN"",""PSXRPPL"",104,0)"
^XMB(3.9,122,2,1046,0)=" S NM="""" F  S NM=$O(^PSX(550.2,PSXBAT,15,""C"",NM)) Q:NM=""""  D DFN,PPL ;gather patient RXs, print patient RXs"
^XMB(3.9,122,2,1047,0)="""RTN"",""PSXRPPL"",105,0)"
^XMB(3.9,122,2,1048,0)=" S DIK=""^PSX(550.2,"",DA=PSXBAT D ^DIK K PSXBAT"
^XMB(3.9,122,2,1049,0)="""RTN"",""PSXRPPL"",106,0)"
^XMB(3.9,122,2,1050,0)=" K CHKDT,CIND,DAYS,DRUG,DRUGCHK,NFLAG,NM,ORD,PDT,PHARCLK,PHY,PSTAT,PTRA,PTRB,QTY,REL,RXERR,RXF,SFN,SIG,SITE,SUS,SUSPT"
^XMB(3.9,122,2,1051,0)="""RTN"",""PSXRPPL"",107,0)"
^XMB(3.9,122,2,1052,0)=" Q"
^XMB(3.9,122,2,1053,0)="""RTN"",""PSXRPPL"",108,0)"
^XMB(3.9,122,2,1054,0)="DFN S DFN=0,NFLAG=2"
^XMB(3.9,122,2,1055,0)="""RTN"",""PSXRPPL"",109,0)"
^XMB(3.9,122,2,1056,0)=" F  S DFN=$O(^PSX(550.2,PSXBAT,15,""C"",NM,DFN)),RXN=0 Q:(DFN="""")!(DFN'>0)  D"
^XMB(3.9,122,2,1057,0)="""RTN"",""PSXRPPL"",110,0)"
^XMB(3.9,122,2,1058,0)=" .F  S RXN=$O(^PSX(550.2,PSXBAT,15,""C"",NM,DFN,RXN)),RXF="""" Q:(RXN="""")!(RXN'>0)  D"
^XMB(3.9,122,2,1059,0)="""RTN"",""PSXRPPL"",111,0)"
^XMB(3.9,122,2,1060,0)=" ..F  S RXF=$O(^PSX(550.2,PSXBAT,15,""C"",NM,DFN,RXN,RXF)) Q:RXF=""""  D BLD"
^XMB(3.9,122,2,1061,0)="""RTN"",""PSXRPPL"",112,0)"
^XMB(3.9,122,2,1062,0)=" Q"
^XMB(3.9,122,2,1063,0)="""RTN"",""PSXRPPL"",113,0)"
^XMB(3.9,122,2,1064,0)="BLD ;"
^XMB(3.9,122,2,1065,0)="""RTN"",""PSXRPPL"",114,0)"
^XMB(3.9,122,2,1066,0)=" S BATRXDA=$O(^PSX(550.2,PSXBAT,15,""B"",RXN,0)) D NOW^%DTC S DTTM=%"
^XMB(3.9,122,2,1067,0)="""RTN"",""PSXRPPL"",115,0)"
^XMB(3.9,122,2,1068,0)=" S REC=$P(^PSX(550.2,PSXBAT,15,BATRXDA,0),U,5),SUS=$O(^PS(52.5,""B"",RXN,0))"
^XMB(3.9,122,2,1069,0)="""RTN"",""PSXRPPL"",116,0)"
^XMB(3.9,122,2,1070,0)=" I SUS=REC,+SUS'=0 I 1 ;rx still valid in suspense"
^XMB(3.9,122,2,1071,0)="""RTN"",""PSXRPPL"",117,0)"
^XMB(3.9,122,2,1072,0)=" E  D  Q  ;rx gone"
^XMB(3.9,122,2,1073,0)="""RTN"",""PSXRPPL"",118,0)"
^XMB(3.9,122,2,1074,0)=" . N DA,DIK S DIK=550.2,DA(1)=PSXBAT,DA=BATRXDA"
^XMB(3.9,122,2,1075,0)="""RTN"",""PSXRPPL"",119,0)"
^XMB(3.9,122,2,1076,0)=" . D ^DIK"
^XMB(3.9,122,2,1077,0)="""RTN"",""PSXRPPL"",120,0)"
^XMB(3.9,122,2,1078,0)=" S PSOSU(DFN,SUS)=RXN,RXCNTR=$G(RXCNTR)+1,NFLAG=2"
^XMB(3.9,122,2,1079,0)="""RTN"",""PSXRPPL"",121,0)"
^XMB(3.9,122,2,1080,0)=" S $P(^PSRX(RXN,0),U,15)=0,$P(^PSRX(RXN,""STA""),U,1)=0"
^XMB(3.9,122,2,1081,0)="""RTN"",""PSXRPPL"",122,0)"
^XMB(3.9,122,2,1082,0)=" K % S COM=""CMOP Suspense Label ""_$S($G(^PS(52.5,SUS,""P""))=0:""Printed"",$G(^PS(52.5,SUS,""P""))="""":""Printed"",1:""Reprinted"")_$S($G(^PSRX(RXN,""TYPE""))>0:"" (PARTIAL)"",1:"""")"
^XMB(3.9,122,2,1083,0)="""RTN"",""PSXRPPL"",123,0)"
^XMB(3.9,122,2,1084,0)=" D EN^PSOHLSN1(RXN,""SC"",""ZU"",COM)"
^XMB(3.9,122,2,1085,0)="""RTN"",""PSXRPPL"",124,0)"
^XMB(3.9,122,2,1086,0)=" S DA=SUS D DQUE K DA"
^XMB(3.9,122,2,1087,0)="""RTN"",""PSXRPPL"",125,0)"
^XMB(3.9,122,2,1088,0)="ACTLOG F JJ=0:0 S JJ=$O(^PSRX(RXN,""A"",JJ)) Q:'JJ  S CNT=JJ"
^XMB(3.9,122,2,1089,0)="""RTN"",""PSXRPPL"",126,0)"
^XMB(3.9,122,2,1090,0)=" S RFCNT=0 F RF=0:0 S RF=$O(^PSRX(RXN,1,RF)) Q:'RF  S RFCNT=RF"
^XMB(3.9,122,2,1091,0)="""RTN"",""PSXRPPL"",127,0)"
^XMB(3.9,122,2,1092,0)=" S CNT=CNT+1,^PSRX(RXN,""A"",0)=""^52.3DA^""_CNT_""^""_CNT"
^XMB(3.9,122,2,1093,0)="""RTN"",""PSXRPPL"",128,0)"
^XMB(3.9,122,2,1094,0)="LOCK L +^PSRX(RXN):600 G:'$T LOCK"
^XMB(3.9,122,2,1095,0)="""RTN"",""PSXRPPL"",129,0)"
^XMB(3.9,122,2,1096,0)=" S ^PSRX(RXN,""A"",CNT,0)=DTTM_""^S^""_DUZ_""^""_RFCNT_""^""_COM L -^PSRX(RXN)"
^XMB(3.9,122,2,1097,0)="""RTN"",""PSXRPPL"",130,0)"
^XMB(3.9,122,2,1098,0)=" K CNT,COM,RFCNT,%,JJ,RF,Y,RXCNTR"
^XMB(3.9,122,2,1099,0)="""RTN"",""PSXRPPL"",131,0)"
^XMB(3.9,122,2,1100,0)=" Q"
^XMB(3.9,122,2,1101,0)="""RTN"",""PSXRPPL"",132,0)"
^XMB(3.9,122,2,1102,0)="PPL K PPL,PPL1 S ORD="""" F  S ORD=$O(PSOSU(ORD)) Q:(ORD="""")!(ORD'>0)  D PPL1"
^XMB(3.9,122,2,1103,0)="""RTN"",""PSXRPPL"",133,0)"
^XMB(3.9,122,2,1104,0)=" Q"
^XMB(3.9,122,2,1105,0)="""RTN"",""PSXRPPL"",134,0)"
^XMB(3.9,122,2,1106,0)="PPL1 ; print patient labels"
^XMB(3.9,122,2,1107,0)="""RTN"",""PSXRPPL"",135,0)"
^XMB(3.9,122,2,1108,0)=" F SFN=0:0 S SFN=$O(PSOSU(ORD,SFN)) Q:'SFN  D"
^XMB(3.9,122,2,1109,0)="""RTN"",""PSXRPPL"",136,0)"
^XMB(3.9,122,2,1110,0)=" . S:$L($G(PPL))<240 PPL=$P(PSOSU(ORD,SFN),""^"")_"",""_$G(PPL)"
^XMB(3.9,122,2,1111,0)="""RTN"",""PSXRPPL"",137,0)"
^XMB(3.9,122,2,1112,0)=" . S:$L($G(PPL))>239 PPL1=$P(PSOSU(ORD,SFN),""^"")_"",""_$G(PPL1)"
^XMB(3.9,122,2,1113,0)="""RTN"",""PSXRPPL"",138,0)"
^XMB(3.9,122,2,1114,0)=" . S DFN=$P(^PS(52.5,SFN,0),""^"",3)"
^XMB(3.9,122,2,1115,0)="""RTN"",""PSXRPPL"",139,0)"
^XMB(3.9,122,2,1116,0)=" S SUSPT=1,PSNP=$S($P(PSOPAR,""^"",8):1,1:0) S:$D(PSOPROP) PFIO=PSOPROP"
^XMB(3.9,122,2,1117,0)="""RTN"",""PSXRPPL"",140,0)"
^XMB(3.9,122,2,1118,0)=" D QLBL^PSORXL"
^XMB(3.9,122,2,1119,0)="""RTN"",""PSXRPPL"",141,0)"
^XMB(3.9,122,2,1120,0)=" I $D(PPL1) S PSNP=0,PPL=PPL1 D QLBL^PSORXL"
^XMB(3.9,122,2,1121,0)="""RTN"",""PSXRPPL"",142,0)"
^XMB(3.9,122,2,1122,0)=" K PPL,PPL1,PSOSU(ORD)"
^XMB(3.9,122,2,1123,0)="""RTN"",""PSXRPPL"",143,0)"
^XMB(3.9,122,2,1124,0)=" Q"
^XMB(3.9,122,2,1125,0)="""RTN"",""PSXRPPL"",144,0)"
^XMB(3.9,122,2,1126,0)="DQUE ; sets the CMOP indicator field, and printed field in 52.5"
^XMB(3.9,122,2,1127,0)="""RTN"",""PSXRPPL"",145,0)"
^XMB(3.9,122,2,1128,0)=" L +^PS(52.5,REC):600 G:'$T DQUE"
^XMB(3.9,122,2,1129,0)="""RTN"",""PSXRPPL"",146,0)"
^XMB(3.9,122,2,1130,0)=" I NFLAG=4 D"
^XMB(3.9,122,2,1131,0)="""RTN"",""PSXRPPL"",147,0)"
^XMB(3.9,122,2,1132,0)=" . S DA=REC,DIE=""^PS(52.5,"",DR=""3////L;4////""_DT D ^DIE K DIE,DA,DR L -^PS(52.5,REC)  ; the rest moved into PSXRTR"
^XMB(3.9,122,2,1133,0)="""RTN"",""PSXRPPL"",148,0)"
^XMB(3.9,122,2,1134,0)=" S CIND=$S(NFLAG=1:""X"",NFLAG=2:""P"",NFLAG=3:""@"",1:0)"
^XMB(3.9,122,2,1135,0)="""RTN"",""PSXRPPL"",149,0)"
^XMB(3.9,122,2,1136,0)=" I $G(NFLAG)'=2 D"
^XMB(3.9,122,2,1137,0)="""RTN"",""PSXRPPL"",150,0)"
^XMB(3.9,122,2,1138,0)=" .S DA=REC,DIE=""^PS(52.5,"",DR=""3////""_CIND_"";4////""_DT"
^XMB(3.9,122,2,1139,0)="""RTN"",""PSXRPPL"",151,0)"
^XMB(3.9,122,2,1140,0)=" .D ^DIE K DIE,DA,DR"
^XMB(3.9,122,2,1141,0)="""RTN"",""PSXRPPL"",152,0)"
^XMB(3.9,122,2,1142,0)=" .S ^PS(52.5,REC,""P"")=1,^PS(52.5,""ADL"",DT,REC)="""""
^XMB(3.9,122,2,1143,0)="""RTN"",""PSXRPPL"",153,0)"
^XMB(3.9,122,2,1144,0)=" I $G(NFLAG)=2 D  ;print label cycle"
^XMB(3.9,122,2,1145,0)="""RTN"",""PSXRPPL"",154,0)"
^XMB(3.9,122,2,1146,0)=" . S DA=REC,DIE=""^PS(52.5,"",DR=""3////""_CIND_"";4////""_DTTM_"";5////""_DUZ_"";7////""_RXCNTR"
^XMB(3.9,122,2,1147,0)="""RTN"",""PSXRPPL"",155,0)"
^XMB(3.9,122,2,1148,0)=" . D ^DIE K DIE,DA,DR"
^XMB(3.9,122,2,1149,0)="""RTN"",""PSXRPPL"",156,0)"
^XMB(3.9,122,2,1150,0)=" . S ^PS(52.5,REC,""P"")=1,^PS(52.5,""ADL"",$E($P(^PS(52.5,REC,0),""^"",8),1,7),REC)="""""
^XMB(3.9,122,2,1151,0)="""RTN"",""PSXRPPL"",157,0)"
^XMB(3.9,122,2,1152,0)=" L -^PS(52.5,REC)"
^XMB(3.9,122,2,1153,0)="""RTN"",""PSXRPPL"",158,0)"
^XMB(3.9,122,2,1154,0)=" I $G(NFLAG)=2 D EN^PSOHLSN1(RXN,""SC"",""ZU"",""CMOP Suspense Label Printed"")"
^XMB(3.9,122,2,1155,0)="""RTN"",""PSXRPPL"",159,0)"
^XMB(3.9,122,2,1156,0)=" Q"
^XMB(3.9,122,2,1157,0)="""RTN"",""PSXRPPL"",160,0)"
^XMB(3.9,122,2,1158,0)="RX550215 ; put RX into RX multiple TRANS 550.215 for PSXBAT"
^XMB(3.9,122,2,1159,0)="""RTN"",""PSXRPPL"",161,0)"
^XMB(3.9,122,2,1160,0)=" I '$G(PSXBAT) D BATCH^PSXRSYU ; first time through create batch, & return PSXBAT"
^XMB(3.9,122,2,1161,0)="""RTN"",""PSXRPPL"",162,0)"
^XMB(3.9,122,2,1162,0)=" K DD,DO,DIC,DA,DR,D0"
^XMB(3.9,122,2,1163,0)="""RTN"",""PSXRPPL"",163,0)"
^XMB(3.9,122,2,1164,0)=" S:'$D(^PSX(550.2,PSXBAT,15,0)) ^PSX(550.2,PSXBAT,15,0)=""^550.215P^^"""
^XMB(3.9,122,2,1165,0)="""RTN"",""PSXRPPL"",164,0)"
^XMB(3.9,122,2,1166,0)=" S X=RXN,DA(1)=PSXBAT"
^XMB(3.9,122,2,1167,0)="""RTN"",""PSXRPPL"",165,0)"
^XMB(3.9,122,2,1168,0)=" S DIC=""^PSX(550.2,""_PSXBAT_"",15,"",DIC(""DR"")="".02////^S X=RXF;.03////^S X=DFN;.05////^S X=REC"",DIC(0)=""ZF"""
^XMB(3.9,122,2,1169,0)="""RTN"",""PSXRPPL"",166,0)"
^XMB(3.9,122,2,1170,0)=" D FILE^DICN"
^XMB(3.9,122,2,1171,0)="""RTN"",""PSXRPPL"",167,0)"
^XMB(3.9,122,2,1172,0)=" S PSXRXTDA=+Y ;RX DA within PSXBAT 'T'ransmission"
^XMB(3.9,122,2,1173,0)="""RTN"",""PSXRPPL"",168,0)"
^XMB(3.9,122,2,1174,0)=" K DD,DO,DIC,DA,DR,D0"
^XMB(3.9,122,2,1175,0)="""RTN"",""PSXRPPL"",169,0)"
^XMB(3.9,122,2,1176,0)=" Q"
^XMB(3.9,122,2,1177,0)="""RTN"",""PSXRPPL"",170,0)"
^XMB(3.9,122,2,1178,0)="OERRLOCK(RXN) ; set XTMP for OERR/CPRS order locking"
^XMB(3.9,122,2,1179,0)="""RTN"",""PSXRPPL"",171,0)"
^XMB(3.9,122,2,1180,0)=" I $G(PSXBAT),$G(RXN),$G(PSXRXTDA) I 1"
^XMB(3.9,122,2,1181,0)="""RTN"",""PSXRPPL"",172,0)"
^XMB(3.9,122,2,1182,0)=" E  Q"
^XMB(3.9,122,2,1183,0)="""RTN"",""PSXRPPL"",173,0)"
^XMB(3.9,122,2,1184,0)=" I $P(^PSX(550.2,PSXBAT,15,PSXRXTDA,0),U,1)'=RXN Q"
^XMB(3.9,122,2,1185,0)="""RTN"",""PSXRPPL"",174,0)"
^XMB(3.9,122,2,1186,0)="RXNSET ; set ^XTMP(""ORLK-""_ORDER per IA 4001 needs RXN"
^XMB(3.9,122,2,1187,0)="""RTN"",""PSXRPPL"",175,0)"
^XMB(3.9,122,2,1188,0)=" Q:'$G(RXN)"
^XMB(3.9,122,2,1189,0)="""RTN"",""PSXRPPL"",176,0)"
^XMB(3.9,122,2,1190,0)=" N ORD,NOW,NOW1 S ORD=+$P($G(^PSRX(+$G(RXN),""OR1"")),""^"",2)"
^XMB(3.9,122,2,1191,0)="""RTN"",""PSXRPPL"",177,0)"
^XMB(3.9,122,2,1192,0)=" Q:'ORD"
^XMB(3.9,122,2,1193,0)="""RTN"",""PSXRPPL"",178,0)"
^XMB(3.9,122,2,1194,0)=" S NOW=$$NOW^XLFDT,NOW1=$$FMADD^XLFDT(NOW,1)"
^XMB(3.9,122,2,1195,0)="""RTN"",""PSXRPPL"",179,0)"
^XMB(3.9,122,2,1196,0)=" S ^XTMP(""ORLK-""_+ORD,0)=NOW1_U_NOW_""^CPRS/CMOP RX/Order Lock"",^(1)=DUZ_U_$J"
^XMB(3.9,122,2,1197,0)="""RTN"",""PSXRPPL"",180,0)"
^XMB(3.9,122,2,1198,0)=" Q"
^XMB(3.9,122,2,1199,0)="""RTN"",""PSXRPPL"",181,0)"
^XMB(3.9,122,2,1200,0)="RXNCLEAR ; needs RXN"
^XMB(3.9,122,2,1201,0)="""RTN"",""PSXRPPL"",182,0)"
^XMB(3.9,122,2,1202,0)=" Q:'$G(RXN)"
^XMB(3.9,122,2,1203,0)="""RTN"",""PSXRPPL"",183,0)"
^XMB(3.9,122,2,1204,0)=" N ORD S ORD=+$P($G(^PSRX(+$G(RXN),""OR1"")),""^"",2) Q:'ORD"
^XMB(3.9,122,2,1205,0)="""RTN"",""PSXRPPL"",184,0)"
^XMB(3.9,122,2,1206,0)=" I $D(^XTMP(""ORLK-""_ORD,0)),^(0)[""CPRS/CMOP"" K ^XTMP(""ORLK-""_ORD)"
^XMB(3.9,122,2,1207,0)="""RTN"",""PSXRPPL"",185,0)"
^XMB(3.9,122,2,1208,0)=" Q"
^XMB(3.9,122,2,1209,0)="""RTN"",""PSXRPPL1"")"
^XMB(3.9,122,2,1210,0)="0^5^B43603421^B21197021"
^XMB(3.9,122,2,1211,0)="""RTN"",""PSXRPPL1"",1,0)"
^XMB(3.9,122,2,1212,0)="PSXRPPL1 ;BIR/WPB-Resets Suspense to Print/Transmit ;[ 10/02/97  3:13 PM ]"
^XMB(3.9,122,2,1213,0)="""RTN"",""PSXRPPL1"",2,0)"
^XMB(3.9,122,2,1214,0)=" ;;2.0;CMOP;**3,48**;11 Apr 97"
^XMB(3.9,122,2,1215,0)="""RTN"",""PSXRPPL1"",3,0)"
^XMB(3.9,122,2,1216,0)=" ;Reference to ^PSRX( supported by DBIA #1977"
^XMB(3.9,122,2,1217,0)="""RTN"",""PSXRPPL1"",4,0)"
^XMB(3.9,122,2,1218,0)=" ;Reference to File #59 supported by DBIA #1976"
^XMB(3.9,122,2,1219,0)="""RTN"",""PSXRPPL1"",5,0)"
^XMB(3.9,122,2,1220,0)=" ;Reference to PSOSURST supported by DBIA #1970"
^XMB(3.9,122,2,1221,0)="""RTN"",""PSXRPPL1"",6,0)"
^XMB(3.9,122,2,1222,0)=" ;Reference to ^PS(52.5,  supported by DBIA #1978"
^XMB(3.9,122,2,1223,0)="""RTN"",""PSXRPPL1"",7,0)"
^XMB(3.9,122,2,1224,0)=" ;Reference to ^BPSUTIL supported by DBIA #4410"
^XMB(3.9,122,2,1225,0)="""RTN"",""PSXRPPL1"",8,0)"
^XMB(3.9,122,2,1226,0)=" ;Reference to ^PSSLOCK   supported by DBIA #2789"
^XMB(3.9,122,2,1227,0)="""RTN"",""PSXRPPL1"",9,0)"
^XMB(3.9,122,2,1228,0)=" ;Reference to ^PSOBPSUT supported by DBIA #4701"
^XMB(3.9,122,2,1229,0)="""RTN"",""PSXRPPL1"",10,0)"
^XMB(3.9,122,2,1230,0)=" ;Reference to ^PSOBPSU1 supported by DBIA #4702"
^XMB(3.9,122,2,1231,0)="""RTN"",""PSXRPPL1"",11,0)"
^XMB(3.9,122,2,1232,0)=" ;Reference to ^PSOREJUT supported by DBIA #4706"
^XMB(3.9,122,2,1233,0)="""RTN"",""PSXRPPL1"",12,0)"
^XMB(3.9,122,2,1234,0)=" ;"
^XMB(3.9,122,2,1235,0)="""RTN"",""PSXRPPL1"",13,0)"
^XMB(3.9,122,2,1236,0)=" ;This routine will reset the Queued flags and the printed flags in"
^XMB(3.9,122,2,1237,0)="""RTN"",""PSXRPPL1"",14,0)"
^XMB(3.9,122,2,1238,0)=" ;PS(52.5 to 'Queued' and 'Printed' respectively and either retransmits"
^XMB(3.9,122,2,1239,0)="""RTN"",""PSXRPPL1"",15,0)"
^XMB(3.9,122,2,1240,0)=" ;the data to the CMOP or prints the labels."
^XMB(3.9,122,2,1241,0)="""RTN"",""PSXRPPL1"",16,0)"
^XMB(3.9,122,2,1242,0)="START ;initializes local variables"
^XMB(3.9,122,2,1243,0)="""RTN"",""PSXRPPL1"",17,0)"
^XMB(3.9,122,2,1244,0)=" I '$D(^XUSEC(""PSXCMOPMGR"",DUZ)) W !,""You are not authorized to use this option!"" Q"
^XMB(3.9,122,2,1245,0)="""RTN"",""PSXRPPL1"",18,0)"
^XMB(3.9,122,2,1246,0)=" I '$D(^XUSEC(""PSX XMIT"",DUZ)) W !,""You are not authorized to use this option!"" Q"
^XMB(3.9,122,2,1247,0)="""RTN"",""PSXRPPL1"",19,0)"
^XMB(3.9,122,2,1248,0)=" S SWITCH=0"
^XMB(3.9,122,2,1249,0)="""RTN"",""PSXRPPL1"",20,0)"
^XMB(3.9,122,2,1250,0)=" K ^TMP($J,""PSX"")"
^XMB(3.9,122,2,1251,0)="""RTN"",""PSXRPPL1"",21,0)"
^XMB(3.9,122,2,1252,0)="QRY ;initial message and option menu"
^XMB(3.9,122,2,1253,0)="""RTN"",""PSXRPPL1"",22,0)"
^XMB(3.9,122,2,1254,0)=" W !"
^XMB(3.9,122,2,1255,0)="""RTN"",""PSXRPPL1"",23,0)"
^XMB(3.9,122,2,1256,0)=" S DIR(0)=""NAO^1:3:0"",DIR(""A"")=""Select (1, 2, 3):  "",DIR(""A"",1)=""  1 - Reset CMOP Batches for Transmission"""
^XMB(3.9,122,2,1257,0)="""RTN"",""PSXRPPL1"",24,0)"
^XMB(3.9,122,2,1258,0)=" S DIR(""A"",2)=""  2 - Reprint CMOP Batches"",DIR(""A"",4)=""  3 - Standard Reprint Batches from Suspense"""
^XMB(3.9,122,2,1259,0)="""RTN"",""PSXRPPL1"",25,0)"
^XMB(3.9,122,2,1260,0)=" S DIR(""?"")=""Enter a number between 1 and 3."",DIR(""??"")=$S($G(PSXVER):""^D HELP^PSXSRP"",1:""^D MSG2^PSXRHLP"") D ^DIR K DIR G:(Y<0)!($D(DIRUT)) EXIT S REPLY=Y K Y,X"
^XMB(3.9,122,2,1261,0)="""RTN"",""PSXRPPL1"",26,0)"
^XMB(3.9,122,2,1262,0)=" I REPLY=1 S (PSXTRANS,PSXFLAG,SWITCH)=1 G:$G(PSXVER) ^PSXSRST G:'$G(PSXVER) BEGIN"
^XMB(3.9,122,2,1263,0)="""RTN"",""PSXRPPL1"",27,0)"
^XMB(3.9,122,2,1264,0)=" I REPLY=2 S (PSXTRANS,PSXFLAG,SWITCH)=2 G:$G(PSXVER) ^PSXSRST G:'$G(PSXVER) BEGIN"
^XMB(3.9,122,2,1265,0)="""RTN"",""PSXRPPL1"",28,0)"
^XMB(3.9,122,2,1266,0)=" I REPLY=3 S PSXFLG=1 G START^PSOSURST"
^XMB(3.9,122,2,1267,0)="""RTN"",""PSXRPPL1"",29,0)"
^XMB(3.9,122,2,1268,0)=" K REPLY"
^XMB(3.9,122,2,1269,0)="""RTN"",""PSXRPPL1"",30,0)"
^XMB(3.9,122,2,1270,0)=" Q"
^XMB(3.9,122,2,1271,0)="""RTN"",""PSXRPPL1"",31,0)"
^XMB(3.9,122,2,1272,0)="BEGIN ;confirms CMOP processing, if Yes, checks for active site and status"
^XMB(3.9,122,2,1273,0)="""RTN"",""PSXRPPL1"",32,0)"
^XMB(3.9,122,2,1274,0)=" ;in the CMOP System file, if not an active site or the system status"
^XMB(3.9,122,2,1275,0)="""RTN"",""PSXRPPL1"",33,0)"
^XMB(3.9,122,2,1276,0)=" ;is not stopped the routine exits and processing stops"
^XMB(3.9,122,2,1277,0)="""RTN"",""PSXRPPL1"",34,0)"
^XMB(3.9,122,2,1278,0)=" W !"
^XMB(3.9,122,2,1279,0)="""RTN"",""PSXRPPL1"",35,0)"
^XMB(3.9,122,2,1280,0)=" S DIR(0)=""Y"",DIR(""B"")=""NO"",DIR(""A"")=""Are you sure you want to continue"",DIR(""?"",1)=""No - Exits."""
^XMB(3.9,122,2,1281,0)="""RTN"",""PSXRPPL1"",36,0)"
^XMB(3.9,122,2,1282,0)=" S DIR(""?"")=$S(SWITCH=1:""Yes - Transmits data to the CMOP."",SWITCH=2:""Yes - Prints labels."",1:0) D ^DIR K DIR G:(Y=0)!($D(DIRUT)) EXIT K Y"
^XMB(3.9,122,2,1283,0)="""RTN"",""PSXRPPL1"",37,0)"
^XMB(3.9,122,2,1284,0)=" S STATUS=$P($G(^PSX(550,+PSXSYS,0)),""^"",3) I STATUS'=""H"" W !,""There is another job in process, please try again later."" G EXIT"
^XMB(3.9,122,2,1285,0)="""RTN"",""PSXRPPL1"",38,0)"
^XMB(3.9,122,2,1286,0)="ASK ;gets date for the resets"
^XMB(3.9,122,2,1287,0)="""RTN"",""PSXRPPL1"",39,0)"
^XMB(3.9,122,2,1288,0)=" K BEGDATE,ENDDATE W !!,?10,$S($G(SWITCH)=1:""RESET and TRANSMIT CMOP DATA"",$G(SWITCH)=2:""RESET and REPRINT CMOP LABELS"",1:""""),!!!,""**** Date Selection ****"",!!"
^XMB(3.9,122,2,1289,0)="""RTN"",""PSXRPPL1"",40,0)"
^XMB(3.9,122,2,1290,0)="ASK1 I SWITCH=1 S %DT=""AEX"",%DT(""A"")=""   BEGIN DATE:  "" D ^%DT K %DT,%DT(""A"") G:Y<0 EXIT S PRTDT=Y"
^XMB(3.9,122,2,1291,0)="""RTN"",""PSXRPPL1"",41,0)"
^XMB(3.9,122,2,1292,0)=" I SWITCH=2 S %DT=""AEX"",%DT(""A"")=""   BEGIN DATE:  "" D ^%DT K %DT,%DT(""A"") G:Y<0 EXIT S PRTDT=Y"
^XMB(3.9,122,2,1293,0)="""RTN"",""PSXRPPL1"",42,0)"
^XMB(3.9,122,2,1294,0)=" W !! S %DT=""AEX"",%DT(""A"")=""   ENDING DATE:  "" D ^%DT Q:Y<0  S PSXDTRG=Y K %DT,%DT(""A"")"
^XMB(3.9,122,2,1295,0)="""RTN"",""PSXRPPL1"",43,0)"
^XMB(3.9,122,2,1296,0)=" I $G(PRTDT)>$G(PSXDTRG) W !,""Begin Date must be before Ending Date!"" G ASK1"
^XMB(3.9,122,2,1297,0)="""RTN"",""PSXRPPL1"",44,0)"
^XMB(3.9,122,2,1298,0)=" I '$O(^PS(52.5,""AP"",PRTDT-1))!($O(^(0))>PSXDTRG) W !!,$S(SWITCH=1:""Nothing to Transmit."",SWITCH=2:""Nothing to Reprint."",1:0) G EXIT"
^XMB(3.9,122,2,1299,0)="""RTN"",""PSXRPPL1"",45,0)"
^XMB(3.9,122,2,1300,0)=" D SDT S PSXERFLG=0"
^XMB(3.9,122,2,1301,0)="""RTN"",""PSXRPPL1"",46,0)"
^XMB(3.9,122,2,1302,0)=" I SWITCH=1 D PSXTRANS Q"
^XMB(3.9,122,2,1303,0)="""RTN"",""PSXRPPL1"",47,0)"
^XMB(3.9,122,2,1304,0)=" I SWITCH=2 D PRINT Q"
^XMB(3.9,122,2,1305,0)="""RTN"",""PSXRPPL1"",48,0)"
^XMB(3.9,122,2,1306,0)=" S PSXSTAT=""H"" D PSXSTAT^PSXRSYU"
^XMB(3.9,122,2,1307,0)="""RTN"",""PSXRPPL1"",49,0)"
^XMB(3.9,122,2,1308,0)=" G EXIT"
^XMB(3.9,122,2,1309,0)="""RTN"",""PSXRPPL1"",50,0)"
^XMB(3.9,122,2,1310,0)="PSXTRANS ;"
^XMB(3.9,122,2,1311,0)="""RTN"",""PSXRPPL1"",51,0)"
^XMB(3.9,122,2,1312,0)=" W !!"
^XMB(3.9,122,2,1313,0)="""RTN"",""PSXRPPL1"",52,0)"
^XMB(3.9,122,2,1314,0)=" S DIR(0)=""Y"",DIR(""B"")=""YES"",DIR(""A"")=""DO YOU WISH TO TRANSMIT TO THE CMOP NOW"",DIR(""?"",1)=""No - Exits the option."",DIR(""?"")=""Yes - Transmits to the CMOP."" D ^DIR K DIR Q:(Y=0)!($D(DIRUT))  K Y"
^XMB(3.9,122,2,1315,0)="""RTN"",""PSXRPPL1"",53,0)"
^XMB(3.9,122,2,1316,0)=" S PSXSTAT=""T"" D PSXSTAT^PSXRSYU,ASK^PSXRSUS"
^XMB(3.9,122,2,1317,0)="""RTN"",""PSXRPPL1"",54,0)"
^XMB(3.9,122,2,1318,0)=" Q"
^XMB(3.9,122,2,1319,0)="""RTN"",""PSXRPPL1"",55,0)"
^XMB(3.9,122,2,1320,0)="PRINT ;"
^XMB(3.9,122,2,1321,0)="""RTN"",""PSXRPPL1"",56,0)"
^XMB(3.9,122,2,1322,0)=" W !!"
^XMB(3.9,122,2,1323,0)="""RTN"",""PSXRPPL1"",57,0)"
^XMB(3.9,122,2,1324,0)=" S DIR(0)=""Y"",DIR(""B"")=""YES"",DIR(""A"")=""DO YOU WISH REPRINT CMOP LABELS NOW"",DIR(""?"",1)=""No - Exits the option."",DIR(""?"")=""Yes - Reprints CMOP labels."" D ^DIR K DIR Q:(Y=0)!($D(DIRUT))  K Y"
^XMB(3.9,122,2,1325,0)="""RTN"",""PSXRPPL1"",58,0)"
^XMB(3.9,122,2,1326,0)=" S PSXSTAT=""T"" D PSXSTAT^PSXRSYU,ASK^PSXRSUS"
^XMB(3.9,122,2,1327,0)="""RTN"",""PSXRPPL1"",59,0)"
^XMB(3.9,122,2,1328,0)=" Q"
^XMB(3.9,122,2,1329,0)="""RTN"",""PSXRPPL1"",60,0)"
^XMB(3.9,122,2,1330,0)="SDT ;the following subroutines go through the PS(52.5 global and pull the"
^XMB(3.9,122,2,1331,0)="""RTN"",""PSXRPPL1"",61,0)"
^XMB(3.9,122,2,1332,0)=" ;data needed to reset the Queued/Printed nodes"
^XMB(3.9,122,2,1333,0)="""RTN"",""PSXRPPL1"",62,0)"
^XMB(3.9,122,2,1334,0)=" S SDT=PRTDT-1 F  S SDT=$O(^PS(52.5,""AP"",SDT)),DFN=0 Q:(SDT>PSXDTRG)!(SDT="""")  D DFN"
^XMB(3.9,122,2,1335,0)="""RTN"",""PSXRPPL1"",63,0)"
^XMB(3.9,122,2,1336,0)=" Q"
^XMB(3.9,122,2,1337,0)="""RTN"",""PSXRPPL1"",64,0)"
^XMB(3.9,122,2,1338,0)="DFN ;"
^XMB(3.9,122,2,1339,0)="""RTN"",""PSXRPPL1"",65,0)"
^XMB(3.9,122,2,1340,0)=" F  S DFN=$O(^PS(52.5,""AP"",SDT,DFN)),REC=0 Q:(DFN="""")!(DFN'>0)  D REC"
^XMB(3.9,122,2,1341,0)="""RTN"",""PSXRPPL1"",66,0)"
^XMB(3.9,122,2,1342,0)=" Q"
^XMB(3.9,122,2,1343,0)="""RTN"",""PSXRPPL1"",67,0)"
^XMB(3.9,122,2,1344,0)="REC ;"
^XMB(3.9,122,2,1345,0)="""RTN"",""PSXRPPL1"",68,0)"
^XMB(3.9,122,2,1346,0)=" F  S REC=$O(^PS(52.5,""AP"",SDT,DFN,REC)) Q:(REC'>0)!(REC="""")  D:$G(^PS(52.5,REC,0)) CHECK"
^XMB(3.9,122,2,1347,0)="""RTN"",""PSXRPPL1"",69,0)"
^XMB(3.9,122,2,1348,0)=" K ZDIV"
^XMB(3.9,122,2,1349,0)="""RTN"",""PSXRPPL1"",70,0)"
^XMB(3.9,122,2,1350,0)=" Q"
^XMB(3.9,122,2,1351,0)="""RTN"",""PSXRPPL1"",71,0)"
^XMB(3.9,122,2,1352,0)="CHECK ;"
^XMB(3.9,122,2,1353,0)="""RTN"",""PSXRPPL1"",72,0)"
^XMB(3.9,122,2,1354,0)=" S STAT=$P($G(^PS(52.5,REC,0)),U,7),PRINT=$G(^PS(52.5,REC,""P"")),PSXPTR=$P($G(^PS(52.5,REC,0)),U,1)"
^XMB(3.9,122,2,1355,0)="""RTN"",""PSXRPPL1"",73,0)"
^XMB(3.9,122,2,1356,0)=" S RXF="""" F XXF=0:0 S XXF=$O(^PSRX(PSXPTR,1,XXF)) Q:XXF'>0  S RXF=XXF"
^XMB(3.9,122,2,1357,0)="""RTN"",""PSXRPPL1"",74,0)"
^XMB(3.9,122,2,1358,0)=" S ZDIV=$S($G(RXF)>0:$P($G(^PSRX(PSXPTR,1,RXF,0)),U,9),1:$P($G(^PSRX(PSXPTR,2)),U,9)) I $G(ZDIV)'=$G(PSOSITE) Q"
^XMB(3.9,122,2,1359,0)="""RTN"",""PSXRPPL1"",75,0)"
^XMB(3.9,122,2,1360,0)=" S:RXF'="""" GONE=$P($G(^PSRX(PSXPTR,1,RXF,0)),U,18)"
^XMB(3.9,122,2,1361,0)="""RTN"",""PSXRPPL1"",76,0)"
^XMB(3.9,122,2,1362,0)=" S:RXF="""" GONE=$P($G(^PSRX(PSXPTR,2)),U,13)"
^XMB(3.9,122,2,1363,0)="""RTN"",""PSXRPPL1"",77,0)"
^XMB(3.9,122,2,1364,0)=" I (STAT=""P"")&(PRINT=1)&($G(GONE)="""") D RESET"
^XMB(3.9,122,2,1365,0)="""RTN"",""PSXRPPL1"",78,0)"
^XMB(3.9,122,2,1366,0)=" K GONE,RXF,XXF"
^XMB(3.9,122,2,1367,0)="""RTN"",""PSXRPPL1"",79,0)"
^XMB(3.9,122,2,1368,0)=" Q"
^XMB(3.9,122,2,1369,0)="""RTN"",""PSXRPPL1"",80,0)"
^XMB(3.9,122,2,1370,0)="RESET ;resets the Queued/Printed flags to Queued and not Printed"
^XMB(3.9,122,2,1371,0)="""RTN"",""PSXRPPL1"",81,0)"
^XMB(3.9,122,2,1372,0)=" L +^PS(52.5,REC):DTIME Q:'$T"
^XMB(3.9,122,2,1373,0)="""RTN"",""PSXRPPL1"",82,0)"
^XMB(3.9,122,2,1374,0)=" S DIE=""^PS(52.5,"",DA=REC,DR=""2////2;3////Q"" D ^DIE L -^PS(52.5,REC) K DIE,DR,DA"
^XMB(3.9,122,2,1375,0)="""RTN"",""PSXRPPL1"",83,0)"
^XMB(3.9,122,2,1376,0)=" S:$G(PSXVER) $P(^PSRX(PSXPTR,""STA""),U,1)=5 S:'$G(PSXVER) $P(^PSRX(PSXPTR,0),U,15)=5 K ^PS(52.5,""AC"",DFN,SDT,REC)"
^XMB(3.9,122,2,1377,0)="""RTN"",""PSXRPPL1"",84,0)"
^XMB(3.9,122,2,1378,0)=" Q"
^XMB(3.9,122,2,1379,0)="""RTN"",""PSXRPPL1"",85,0)"
^XMB(3.9,122,2,1380,0)="PRTERR ; auto error trap for prt cmop local"
^XMB(3.9,122,2,1381,0)="""RTN"",""PSXRPPL1"",86,0)"
^XMB(3.9,122,2,1382,0)=" S XXERR=$$EC^%ZOSV"
^XMB(3.9,122,2,1383,0)="""RTN"",""PSXRPPL1"",87,0)"
^XMB(3.9,122,2,1384,0)=" S PSXDIVNM=$$GET1^DIQ(59,PSOSITE,.01)"
^XMB(3.9,122,2,1385,0)="""RTN"",""PSXRPPL1"",88,0)"
^XMB(3.9,122,2,1386,0)=" ;save an image of the transient file 550.1 for 2 days"
^XMB(3.9,122,2,1387,0)="""RTN"",""PSXRPPL1"",89,0)"
^XMB(3.9,122,2,1388,0)=" D NOW^%DTC S DTTM=%"
^XMB(3.9,122,2,1389,0)="""RTN"",""PSXRPPL1"",90,0)"
^XMB(3.9,122,2,1390,0)=" S X=$$FMADD^XLFDT(DT,+2) S ^XTMP(""PSXERR ""_DTTM,0)=X_U_DT_U_""CMOP ""_XXERR"
^XMB(3.9,122,2,1391,0)="""RTN"",""PSXRPPL1"",91,0)"
^XMB(3.9,122,2,1392,0)=" M ^XTMP(""PSXERR ""_DTTM,550.1)=^PSX(550.1)"
^XMB(3.9,122,2,1393,0)="""RTN"",""PSXRPPL1"",92,0)"
^XMB(3.9,122,2,1394,0)=" S XMSUB=""CMOP Error ""_PSXDIVNM_"" ""_$$GET1^DIQ(550.2,+$G(PSXBAT),.01)"
^XMB(3.9,122,2,1395,0)="""RTN"",""PSXRPPL1"",93,0)"
^XMB(3.9,122,2,1396,0)=" D GRP1^PSXNOTE"
^XMB(3.9,122,2,1397,0)="""RTN"",""PSXRPPL1"",94,0)"
^XMB(3.9,122,2,1398,0)=" ;S XMY(DUZ)="""""
^XMB(3.9,122,2,1399,0)="""RTN"",""PSXRPPL1"",95,0)"
^XMB(3.9,122,2,1400,0)=" S XMTEXT=""TEXT("""
^XMB(3.9,122,2,1401,0)="""RTN"",""PSXRPPL1"",96,0)"
^XMB(3.9,122,2,1402,0)=" S TEXT(1,0)=$S($G(PSXCS):"""",1:""NON-"")_""CS CMOP Print Local encountered the following error. Please investigate"""
^XMB(3.9,122,2,1403,0)="""RTN"",""PSXRPPL1"",97,0)"
^XMB(3.9,122,2,1404,0)=" S TEXT(2,0)=""Division:         ""_PSXDIVNM"
^XMB(3.9,122,2,1405,0)="""RTN"",""PSXRPPL1"",98,0)"
^XMB(3.9,122,2,1406,0)=" S TEXT(3,0)=""Type/Batch        ""_$S($G(PSXCS):""CS"",1:""NON-CS"")_"" / ""_$$GET1^DIQ(550.2,$G(PSXBAT),.01)"
^XMB(3.9,122,2,1407,0)="""RTN"",""PSXRPPL1"",99,0)"
^XMB(3.9,122,2,1408,0)=" S TEXT(4,0)=""Error:            ""_XXERR"
^XMB(3.9,122,2,1409,0)="""RTN"",""PSXRPPL1"",100,0)"
^XMB(3.9,122,2,1410,0)=" S TEXT(5,0)=""This batch has been set to closed."""
^XMB(3.9,122,2,1411,0)="""RTN"",""PSXRPPL1"",101,0)"
^XMB(3.9,122,2,1412,0)=" S TEXT(6,0)=""Call NVS to investigate which prescriptions have been printed and which are yet to print."""
^XMB(3.9,122,2,1413,0)="""RTN"",""PSXRPPL1"",102,0)"
^XMB(3.9,122,2,1414,0)=" S TEXT(7,0)=""A copy of file 550.1 can be found in ^XTMP(""""PSXERR ""_DTTM_"""""")"""
^XMB(3.9,122,2,1415,0)="""RTN"",""PSXRPPL1"",103,0)"
^XMB(3.9,122,2,1416,0)=" D ^%ZTER"
^XMB(3.9,122,2,1417,0)="""RTN"",""PSXRPPL1"",104,0)"
^XMB(3.9,122,2,1418,0)=" D ^XMD"
^XMB(3.9,122,2,1419,0)="""RTN"",""PSXRPPL1"",105,0)"
^XMB(3.9,122,2,1420,0)=" I $G(PSXBAT) D"
^XMB(3.9,122,2,1421,0)="""RTN"",""PSXRPPL1"",106,0)"
^XMB(3.9,122,2,1422,0)=" . N DA,DIE,DR S DIE=""^PSX(550.2,"",DA=PSXBAT,DR=""1////4"""
^XMB(3.9,122,2,1423,0)="""RTN"",""PSXRPPL1"",107,0)"
^XMB(3.9,122,2,1424,0)=" . D ^DIE"
^XMB(3.9,122,2,1425,0)="""RTN"",""PSXRPPL1"",108,0)"
^XMB(3.9,122,2,1426,0)=" ;I $E(IOST)=""C"" F XX=1:1:5 W !,TEXT(XX,0)"
^XMB(3.9,122,2,1427,0)="""RTN"",""PSXRPPL1"",109,0)"
^XMB(3.9,122,2,1428,0)=" G UNWIND^%ZTER"
^XMB(3.9,122,2,1429,0)="""RTN"",""PSXRPPL1"",110,0)"
^XMB(3.9,122,2,1430,0)=" ;"
^XMB(3.9,122,2,1431,0)="""RTN"",""PSXRPPL1"",111,0)"
^XMB(3.9,122,2,1432,0)="SBTECME(PSXTP,PSXDV,THRDT,PULLDT) ; - Sumitting prescriptions to EMCE (3rd Party Billing)"
^XMB(3.9,122,2,1433,0)="""RTN"",""PSXRPPL1"",112,0)"
^XMB(3.9,122,2,1434,0)=" ;Input: PSXTP  - Type of prescriptions ""C"" - Controlled Subs / ""N"" Non-Controlled Subs"
^XMB(3.9,122,2,1435,0)="""RTN"",""PSXRPPL1"",113,0)"
^XMB(3.9,122,2,1436,0)=" ;       PSXDV  - Pointer to DIVSION file (#59)"
^XMB(3.9,122,2,1437,0)="""RTN"",""PSXRPPL1"",114,0)"
^XMB(3.9,122,2,1438,0)=" ;       THRDT  - T+N when scheduling the THROUGH DATE to run CMOP Transmission"
^XMB(3.9,122,2,1439,0)="""RTN"",""PSXRPPL1"",115,0)"
^XMB(3.9,122,2,1440,0)=" ;       PULLDT - T+N+PULL DAYS parameter in the DIVISION file (#59)"
^XMB(3.9,122,2,1441,0)="""RTN"",""PSXRPPL1"",116,0)"
^XMB(3.9,122,2,1442,0)=" ;Output:SBTECME- Number of prescriptions submitted to ECME"
^XMB(3.9,122,2,1443,0)="""RTN"",""PSXRPPL1"",117,0)"
^XMB(3.9,122,2,1444,0)=" N RX,RFL,SBTECME,PSOLRX,RESP,SDT,XDFN,REC,PSOLRX,DOS"
^XMB(3.9,122,2,1445,0)="""RTN"",""PSXRPPL1"",118,0)"
^XMB(3.9,122,2,1446,0)=" I '$$ECMEON^BPSUTIL(PSXDV)!'$$CMOPON^BPSUTIL(PSXDV) Q"
^XMB(3.9,122,2,1447,0)="""RTN"",""PSXRPPL1"",119,0)"
^XMB(3.9,122,2,1448,0)=" S (SDT,SBTECME)=0 K ^TMP(""PSXEPHDFN"",$J)"
^XMB(3.9,122,2,1449,0)="""RTN"",""PSXRPPL1"",120,0)"
^XMB(3.9,122,2,1450,0)=" F  S SDT=$O(^PS(52.5,""CMP"",""Q"",PSXTP,PSXDV,SDT)) S XDFN=0 Q:(SDT>PULLDT)!(SDT'>0)  D"
^XMB(3.9,122,2,1451,0)="""RTN"",""PSXRPPL1"",121,0)"
^XMB(3.9,122,2,1452,0)=" . F  S XDFN=$O(^PS(52.5,""CMP"",""Q"",PSXTP,PSXDV,SDT,XDFN)) S REC=0 Q:(XDFN'>0)!(XDFN="""")  D"
^XMB(3.9,122,2,1453,0)="""RTN"",""PSXRPPL1"",122,0)"
^XMB(3.9,122,2,1454,0)=" . . F  S REC=$O(^PS(52.5,""CMP"",""Q"",PSXTP,PSXDV,SDT,XDFN,REC)) Q:(REC'>0)!(REC="""")  D"
^XMB(3.9,122,2,1455,0)="""RTN"",""PSXRPPL1"",123,0)"
^XMB(3.9,122,2,1456,0)=" . . . S (PSOLRX,RX)=+$$GET1^DIQ(52.5,REC,.01,""I"") I 'RX Q"
^XMB(3.9,122,2,1457,0)="""RTN"",""PSXRPPL1"",124,0)"
^XMB(3.9,122,2,1458,0)=" . . . S RFL=$$GET1^DIQ(52.5,REC,9,""I"") I RFL="""" S RFL=$$LSTRFL^PSOBPSU1(RX)"
^XMB(3.9,122,2,1459,0)="""RTN"",""PSXRPPL1"",125,0)"
^XMB(3.9,122,2,1460,0)=" . . . I $$XMIT^PSXBPSUT(REC) D"
^XMB(3.9,122,2,1461,0)="""RTN"",""PSXRPPL1"",126,0)"
^XMB(3.9,122,2,1462,0)=" . . . . I SDT>THRDT,'$D(^TMP(""PSXEPHDFN"",$J,XDFN)) Q"
^XMB(3.9,122,2,1463,0)="""RTN"",""PSXRPPL1"",127,0)"
^XMB(3.9,122,2,1464,0)=" . . . . I $$PATCH^XPDUTL(""PSO*7.0*148"") D"
^XMB(3.9,122,2,1465,0)="""RTN"",""PSXRPPL1"",128,0)"
^XMB(3.9,122,2,1466,0)=" . . . . . I $$RETRX^PSOBPSUT(RX,RFL),SDT>DT Q"
^XMB(3.9,122,2,1467,0)="""RTN"",""PSXRPPL1"",129,0)"
^XMB(3.9,122,2,1468,0)=" . . . . . I $$FIND^PSOREJUT(RX,RFL) Q"
^XMB(3.9,122,2,1469,0)="""RTN"",""PSXRPPL1"",130,0)"
^XMB(3.9,122,2,1470,0)=" . . . . . I '$$RETRX^PSOBPSUT(RX,RFL),$$STATUS^PSOBPSUT(RX,RFL)'="""" Q"
^XMB(3.9,122,2,1471,0)="""RTN"",""PSXRPPL1"",131,0)"
^XMB(3.9,122,2,1472,0)=" . . . . . S DOS=$$RXFLDT^PSOBPSUT(RX,RFL) I DOS>DT S DOS=DT"
^XMB(3.9,122,2,1473,0)="""RTN"",""PSXRPPL1"",132,0)"
^XMB(3.9,122,2,1474,0)=" . . . . . D ECMESND^PSOBPSU1(RX,RFL,DOS,""PC"",,1,,,,.RESP)"
^XMB(3.9,122,2,1475,0)="""RTN"",""PSXRPPL1"",133,0)"
^XMB(3.9,122,2,1476,0)=" . . . . . I $D(RESP),'RESP S SBTECME=SBTECME+1"
^XMB(3.9,122,2,1477,0)="""RTN"",""PSXRPPL1"",134,0)"
^XMB(3.9,122,2,1478,0)=" . . . . . S ^TMP(""PSXEPHDFN"",$J,XDFN)="""""
^XMB(3.9,122,2,1479,0)="""RTN"",""PSXRPPL1"",135,0)"
^XMB(3.9,122,2,1480,0)=" . . . D PSOUL^PSSLOCK(PSOLRX)"
^XMB(3.9,122,2,1481,0)="""RTN"",""PSXRPPL1"",136,0)"
^XMB(3.9,122,2,1482,0)=" K ^TMP(""PSXEPHDFN"",$J)"
^XMB(3.9,122,2,1483,0)="""RTN"",""PSXRPPL1"",137,0)"
^XMB(3.9,122,2,1484,0)=" Q SBTECME"
^XMB(3.9,122,2,1485,0)="""RTN"",""PSXRPPL1"",138,0)"
^XMB(3.9,122,2,1486,0)=" ;"
^XMB(3.9,122,2,1487,0)="""RTN"",""PSXRPPL1"",139,0)"
^XMB(3.9,122,2,1488,0)="EXIT ;"
^XMB(3.9,122,2,1489,0)="""RTN"",""PSXRPPL1"",140,0)"
^XMB(3.9,122,2,1490,0)=" K DFN,PSXDAYS,PSXDTRG,SWITCH,STAT,PRINT,PSXTRANS,REC,REPLY,SDT,X,X1,X2,Y,ANSWER,STATUS,PSXFLAG,PSXPTR,PSXSTAT"
^XMB(3.9,122,2,1491,0)="""RTN"",""PSXRPPL1"",141,0)"
^XMB(3.9,122,2,1492,0)=" K DIR,DIRUT,DTOUT,DUOUT,DIROUT"
^XMB(3.9,122,2,1493,0)="""RTN"",""PSXRPPL1"",142,0)"
^XMB(3.9,122,2,1494,0)=" Q"
^XMB(3.9,122,2,1495,0)="""RTN"",""PSXRSUS"")"
^XMB(3.9,122,2,1496,0)="0^4^B75856096^B75846164"
^XMB(3.9,122,2,1497,0)="""RTN"",""PSXRSUS"",1,0)"
^XMB(3.9,122,2,1498,0)="PSXRSUS ;BIR/WPB,BAB,HTW-CMOP Transmission Handler ;15 Dec 2001"
^XMB(3.9,122,2,1499,0)="""RTN"",""PSXRSUS"",2,0)"
^XMB(3.9,122,2,1500,0)=" ;;2.0;CMOP;**2,3,24,23,26,28,41,57,48**;11 Apr 97"
^XMB(3.9,122,2,1501,0)="""RTN"",""PSXRSUS"",3,0)"
^XMB(3.9,122,2,1502,0)=" ;Reference to ^PS(52.5 supported by DBIA #1978"
^XMB(3.9,122,2,1503,0)="""RTN"",""PSXRSUS"",4,0)"
^XMB(3.9,122,2,1504,0)=" ;Reference to ^PS(59   supported by DBIA #1976"
^XMB(3.9,122,2,1505,0)="""RTN"",""PSXRSUS"",5,0)"
^XMB(3.9,122,2,1506,0)=" ;Reference to routine DEV1^PSOSULB1 supported by DBIA #2478"
^XMB(3.9,122,2,1507,0)="""RTN"",""PSXRSUS"",6,0)"
^XMB(3.9,122,2,1508,0)=" ;"
^XMB(3.9,122,2,1509,0)="""RTN"",""PSXRSUS"",7,0)"
^XMB(3.9,122,2,1510,0)=" ;Select CMOP Rx data from File 52.5,build HL7 segments,"
^XMB(3.9,122,2,1511,0)="""RTN"",""PSXRSUS"",8,0)"
^XMB(3.9,122,2,1512,0)=" ;and transmit data"
^XMB(3.9,122,2,1513,0)="""RTN"",""PSXRSUS"",9,0)"
^XMB(3.9,122,2,1514,0)=" ; This routine is called from PSOSULB1 'Print from Suspense'"
^XMB(3.9,122,2,1515,0)="""RTN"",""PSXRSUS"",10,0)"
^XMB(3.9,122,2,1516,0)=" ;"
^XMB(3.9,122,2,1517,0)="""RTN"",""PSXRSUS"",11,0)"
^XMB(3.9,122,2,1518,0)="START I '$D(^XUSEC(""PSXCMOPMGR"",DUZ)) W !,""You are not authorized to use this option!"" Q"
^XMB(3.9,122,2,1519,0)="""RTN"",""PSXRSUS"",12,0)"
^XMB(3.9,122,2,1520,0)=" I '$D(^XUSEC(""PSX XMIT"",DUZ)) W !,""You are not authorized to use this option!"" Q"
^XMB(3.9,122,2,1521,0)="""RTN"",""PSXRSUS"",13,0)"
^XMB(3.9,122,2,1522,0)=" S (PSXFLAG,PSXTRANS)=0"
^XMB(3.9,122,2,1523,0)="""RTN"",""PSXRSUS"",14,0)"
^XMB(3.9,122,2,1524,0)=" L +^PSX(550.1):3 I '$T W !,""A lock on the RX QUEUE file was not obtainable. A transmission is in progress, try later."" Q"
^XMB(3.9,122,2,1525,0)="""RTN"",""PSXRSUS"",15,0)"
^XMB(3.9,122,2,1526,0)=" ; lock on 550.1 obtainable, clear flags"
^XMB(3.9,122,2,1527,0)="""RTN"",""PSXRSUS"",16,0)"
^XMB(3.9,122,2,1528,0)=" I $D(^PSX(550,""TR"",""T"")) F  S PSXSYS=$O(^PSX(550,""TR"",""T"",0)) Q:PSXSYS'>0  S PSXSTAT=""H"" D PSXSTAT^PSXRSYU"
^XMB(3.9,122,2,1529,0)="""RTN"",""PSXRSUS"",17,0)"
^XMB(3.9,122,2,1530,0)=" D SET^PSXSYS"
^XMB(3.9,122,2,1531,0)="""RTN"",""PSXRSUS"",18,0)"
^XMB(3.9,122,2,1532,0)=" S STATUS=$P($G(^PSX(550,+PSXSYS,0)),""^"",3) I STATUS'=""H"" W !,STATUS,"" no Manual Transmission nor Print CMOP Suspense allowed at this time"" G EXIT"
^XMB(3.9,122,2,1533,0)="""RTN"",""PSXRSUS"",19,0)"
^XMB(3.9,122,2,1534,0)="QRY W ! K DIR"
^XMB(3.9,122,2,1535,0)="""RTN"",""PSXRSUS"",20,0)"
^XMB(3.9,122,2,1536,0)=" S DIR(0)=""NAO^1:5"",DIR(""A"")=""Select (1, 2, 3, 4, 5):  """
^XMB(3.9,122,2,1537,0)="""RTN"",""PSXRSUS"",21,0)"
^XMB(3.9,122,2,1538,0)=" S DIR(""A"",1)=""  1 - Initiate Standard CMOP Transmission"""
^XMB(3.9,122,2,1539,0)="""RTN"",""PSXRSUS"",22,0)"
^XMB(3.9,122,2,1540,0)=" S DIR(""A"",2)=""  2 - Initiate CS CMOP Transmission"""
^XMB(3.9,122,2,1541,0)="""RTN"",""PSXRSUS"",23,0)"
^XMB(3.9,122,2,1542,0)=" S DIR(""A"",3)=""  3 - Print Current Division -  Standard CMOP from Suspense"""
^XMB(3.9,122,2,1543,0)="""RTN"",""PSXRSUS"",24,0)"
^XMB(3.9,122,2,1544,0)=" S DIR(""A"",4)=""  4 - Print Current Division -  CS CMOP from Suspense"""
^XMB(3.9,122,2,1545,0)="""RTN"",""PSXRSUS"",25,0)"
^XMB(3.9,122,2,1546,0)=" S DIR(""A"",5)=""  5 - Standard Print from Suspense"""
^XMB(3.9,122,2,1547,0)="""RTN"",""PSXRSUS"",26,0)"
^XMB(3.9,122,2,1548,0)=" S DIR(""A"",6)="" """
^XMB(3.9,122,2,1549,0)="""RTN"",""PSXRSUS"",27,0)"
^XMB(3.9,122,2,1550,0)=" S DIR(""?"")=""Enter a number between 1 and 5."",DIR(""??"")=""^D MSG1^PSXRHLP"" D ^DIR I (Y<0)!($D(DIRUT)) K DIR G EXIT"
^XMB(3.9,122,2,1551,0)="""RTN"",""PSXRSUS"",28,0)"
^XMB(3.9,122,2,1552,0)=" W !!,DIR(""A"",X),!"
^XMB(3.9,122,2,1553,0)="""RTN"",""PSXRSUS"",29,0)"
^XMB(3.9,122,2,1554,0)=" S REPLY=X K Y,X"
^XMB(3.9,122,2,1555,0)="""RTN"",""PSXRSUS"",30,0)"
^XMB(3.9,122,2,1556,0)=" K DIRUT,DTOUT,DUOUT,DIROUT,DIR"
^XMB(3.9,122,2,1557,0)="""RTN"",""PSXRSUS"",31,0)"
^XMB(3.9,122,2,1558,0)="DIRECT ;Set PSXCS, PSXTRANS & PSXFLAG as per user choice"
^XMB(3.9,122,2,1559,0)="""RTN"",""PSXRSUS"",32,0)"
^XMB(3.9,122,2,1560,0)=" I REPLY=""5"" G DEV1^PSOSULB1"
^XMB(3.9,122,2,1561,0)="""RTN"",""PSXRSUS"",33,0)"
^XMB(3.9,122,2,1562,0)=" I ""24""[REPLY S PSXCS=1"
^XMB(3.9,122,2,1563,0)="""RTN"",""PSXRSUS"",34,0)"
^XMB(3.9,122,2,1564,0)=" I ""12""[REPLY S (PSXTRANS,PSXFLAG)=1"
^XMB(3.9,122,2,1565,0)="""RTN"",""PSXRSUS"",35,0)"
^XMB(3.9,122,2,1566,0)=" I ""34""[REPLY S PSXFLAG=2"
^XMB(3.9,122,2,1567,0)="""RTN"",""PSXRSUS"",36,0)"
^XMB(3.9,122,2,1568,0)=" K REPLY"
^XMB(3.9,122,2,1569,0)="""RTN"",""PSXRSUS"",37,0)"
^XMB(3.9,122,2,1570,0)=" ;"
^XMB(3.9,122,2,1571,0)="""RTN"",""PSXRSUS"",38,0)"
^XMB(3.9,122,2,1572,0)="ASK ;Ask 'all divisions y/n' & date range for data transmission & checks for data"
^XMB(3.9,122,2,1573,0)="""RTN"",""PSXRSUS"",39,0)"
^XMB(3.9,122,2,1574,0)=" W !"
^XMB(3.9,122,2,1575,0)="""RTN"",""PSXRSUS"",40,0)"
^XMB(3.9,122,2,1576,0)=" ;ask all divisions y/n"
^XMB(3.9,122,2,1577,0)="""RTN"",""PSXRSUS"",41,0)"
^XMB(3.9,122,2,1578,0)=" I PSXFLAG=2 S PSXDIVML=0 G ASK2"
^XMB(3.9,122,2,1579,0)="""RTN"",""PSXRSUS"",42,0)"
^XMB(3.9,122,2,1580,0)=" K DIR S DIR(0)=""Y"",DIR(""A"")=""Transmit Data for All Divisions ? "",DIR(""B"")=""YES"""
^XMB(3.9,122,2,1581,0)="""RTN"",""PSXRSUS"",43,0)"
^XMB(3.9,122,2,1582,0)=" S DIR(""?"",1)=""Yes - Transmit/Print All Divisions"""
^XMB(3.9,122,2,1583,0)="""RTN"",""PSXRSUS"",44,0)"
^XMB(3.9,122,2,1584,0)=" S DIR(""?"")=""No  - Transmit/Print One Division:   ""_$$GET1^DIQ(59,PSOSITE,.01)"
^XMB(3.9,122,2,1585,0)="""RTN"",""PSXRSUS"",45,0)"
^XMB(3.9,122,2,1586,0)=" D ^DIR K DIR"
^XMB(3.9,122,2,1587,0)="""RTN"",""PSXRSUS"",46,0)"
^XMB(3.9,122,2,1588,0)=" G:(Y<0)!($D(DIRUT)) EXIT"
^XMB(3.9,122,2,1589,0)="""RTN"",""PSXRSUS"",47,0)"
^XMB(3.9,122,2,1590,0)=" N PSXDIVML S PSXDIVML=+Y"
^XMB(3.9,122,2,1591,0)="""RTN"",""PSXRSUS"",48,0)"
^XMB(3.9,122,2,1592,0)="ASK2 W !"
^XMB(3.9,122,2,1593,0)="""RTN"",""PSXRSUS"",49,0)"
^XMB(3.9,122,2,1594,0)=" S %DT=""AEX"",%DT(""A"")=$S(PSXFLAG=1:""TRANSMIT CMOP DATA THRU DATE:  "",PSXFLAG=2:""PRINT CMOP LABELS THRU DATE:  "",1:0),%DT(""B"")=""TODAY"" D ^%DT K %DT,%DT(""A""),%DT(""B"")"
^XMB(3.9,122,2,1595,0)="""RTN"",""PSXRSUS"",50,0)"
^XMB(3.9,122,2,1596,0)=" S:Y<0 PFLAG=1 G:Y<0 EXIT"
^XMB(3.9,122,2,1597,0)="""RTN"",""PSXRSUS"",51,0)"
^XMB(3.9,122,2,1598,0)=" S (PDT,PRTDT,TPRTDT)=Y K Y S Y=PDT X ^DD(""DD"") S PDT=Y K Y"
^XMB(3.9,122,2,1599,0)="""RTN"",""PSXRSUS"",52,0)"
^XMB(3.9,122,2,1600,0)=" S CHKDT=$O(^PS(52.5,""AQ"","""")) I CHKDT>PRTDT W !!,$S(PSXFLAG=1:""NOTHING THRU THIS DATE TO TRANSMIT."",PSXFLAG=2:""NOTHING THRU THIS DATE TO PRINT."",1:0) S PFLAG=1 G EXIT"
^XMB(3.9,122,2,1601,0)="""RTN"",""PSXRSUS"",53,0)"
^XMB(3.9,122,2,1602,0)=" I '$O(^PS(52.5,""AQ"",0)) W !!,$S(PSXFLAG=1:""NOTHING THRU THIS DATE TO TRANSMIT."",PSXFLAG=2:""NOTHING THRU THIS DATE TO PRINT."",1:0) S PFLAG=1 G EXIT"
^XMB(3.9,122,2,1603,0)="""RTN"",""PSXRSUS"",54,0)"
^XMB(3.9,122,2,1604,0)=" ;"
^XMB(3.9,122,2,1605,0)="""RTN"",""PSXRSUS"",55,0)"
^XMB(3.9,122,2,1606,0)=" W ! K DIR S DIR(0)=""Y"",DIR(""B"")=""NO"",DIR(""A"")=""Are you sure you wish to continue"" D ^DIR K DIR S STOP=Y G:Y=0!($D(DIRUT))!($D(DUOUT)) EXIT K Y"
^XMB(3.9,122,2,1607,0)="""RTN"",""PSXRSUS"",56,0)"
^XMB(3.9,122,2,1608,0)=" S PSXSTAT=""T"" D PSXSTAT^PSXRSYU S PFLAG=0 I $G(PSXLOCK)>0 G EX1"
^XMB(3.9,122,2,1609,0)="""RTN"",""PSXRSUS"",57,0)"
^XMB(3.9,122,2,1610,0)=" ;"
^XMB(3.9,122,2,1611,0)="""RTN"",""PSXRSUS"",58,0)"
^XMB(3.9,122,2,1612,0)="DRIV ;calls the remaining routines to build the data for transmission and"
^XMB(3.9,122,2,1613,0)="""RTN"",""PSXRSUS"",59,0)"
^XMB(3.9,122,2,1614,0)=" S PSXDAYS=$P(PSOPAR,""^"",27),X1=TPRTDT,X2=PSXDAYS D C^%DTC S PSXDTRG=X K X,X1,X2"
^XMB(3.9,122,2,1615,0)="""RTN"",""PSXRSUS"",60,0)"
^XMB(3.9,122,2,1616,0)=" S PSXVENDR=$S($P(^PSX(550,+$G(PSXSYS),0),""^"")[""HINE"":""SI BAKER"",$P(^PSX(550,+$G(PSXSYS),0),""^"")[""MURF"":""SI BAKER"",1:""ELECTROCOM"")"
^XMB(3.9,122,2,1617,0)="""RTN"",""PSXRSUS"",61,0)"
^XMB(3.9,122,2,1618,0)=" ;set up queue device PSX or printer"
^XMB(3.9,122,2,1619,0)="""RTN"",""PSXRSUS"",62,0)"
^XMB(3.9,122,2,1620,0)=" I PSXFLAG=2 D BEGIN^PSXRPPL G:$G(POP) EXIT ;select printer PSLION"
^XMB(3.9,122,2,1621,0)="""RTN"",""PSXRSUS"",63,0)"
^XMB(3.9,122,2,1622,0)="QUE ; QUEUE the group/individual PSOSITE jobs for trans or the single job for print labels one division"
^XMB(3.9,122,2,1623,0)="""RTN"",""PSXRSUS"",64,0)"
^XMB(3.9,122,2,1624,0)=" S PSXDESC=""CMOP ""_$S($G(PSXCS)=1:""CS "",1:""NON-CS "")_""Transmission"""
^XMB(3.9,122,2,1625,0)="""RTN"",""PSXRSUS"",65,0)"
^XMB(3.9,122,2,1626,0)=" ;"
^XMB(3.9,122,2,1627,0)="""RTN"",""PSXRSUS"",66,0)"
^XMB(3.9,122,2,1628,0)=" S ZTDESC=$S(PSXFLAG=1:$G(PSXDESC),PSXFLAG=2:""Print CMOP Suspense"",1:"""")"
^XMB(3.9,122,2,1629,0)="""RTN"",""PSXRSUS"",67,0)"
^XMB(3.9,122,2,1630,0)=" S:PSXFLAG=1 ZTIO="""",ZTRTN=""TRANDIVS^PSXRSUS"""
^XMB(3.9,122,2,1631,0)="""RTN"",""PSXRSUS"",68,0)"
^XMB(3.9,122,2,1632,0)=" S:PSXFLAG=2 ZTIO=PSLION,ZTRTN=""PRT^PSXRSUS"""
^XMB(3.9,122,2,1633,0)="""RTN"",""PSXRSUS"",69,0)"
^XMB(3.9,122,2,1634,0)=" ;"
^XMB(3.9,122,2,1635,0)="""RTN"",""PSXRSUS"",70,0)"
^XMB(3.9,122,2,1636,0)=" S PSXDUZ=DUZ,(PSOINST,PSXSITE)=+$P($G(PSXSYS),U,2)"
^XMB(3.9,122,2,1637,0)="""RTN"",""PSXRSUS"",71,0)"
^XMB(3.9,122,2,1638,0)=" S ZTDTH=$H"
^XMB(3.9,122,2,1639,0)="""RTN"",""PSXRSUS"",72,0)"
^XMB(3.9,122,2,1640,0)=" F X=""PSXDIVML"",""PSOSITE"",""PSOLAP"",""PSOSYS"",""PSOPAR"",""PSXSYS"",""DUZ"",""PSXTRANS"",""PSXFLAG"",""PRTDT"",""PSOINST"",""PSXDUZ"",""PSXSITE"",""PSXVER"" S ZTSAVE(X)="""""
^XMB(3.9,122,2,1641,0)="""RTN"",""PSXRSUS"",73,0)"
^XMB(3.9,122,2,1642,0)=" F X=""PSXCS"",""PSXDAYS"",""PSXDTRG"",""PSOBARS"",""PSOBAR1"",""PSOBAR0"",""PSOPROP"",""PSXVENDR"",""PSLION"",""TPRTDT"" S ZTSAVE(X)="""""
^XMB(3.9,122,2,1643,0)="""RTN"",""PSXRSUS"",74,0)"
^XMB(3.9,122,2,1644,0)=" ;"
^XMB(3.9,122,2,1645,0)="""RTN"",""PSXRSUS"",75,0)"
^XMB(3.9,122,2,1646,0)=" K ZTSK"
^XMB(3.9,122,2,1647,0)="""RTN"",""PSXRSUS"",76,0)"
^XMB(3.9,122,2,1648,0)=" D ^%ZTLOAD ;****TESTING switch to tasking vs foreground"
^XMB(3.9,122,2,1649,0)="""RTN"",""PSXRSUS"",77,0)"
^XMB(3.9,122,2,1650,0)=" W:$G(ZTSK) !,""Tasked "",ZTSK H 4"
^XMB(3.9,122,2,1651,0)="""RTN"",""PSXRSUS"",78,0)"
^XMB(3.9,122,2,1652,0)=" ;D @ZTRTN ;****TESTING run foreground, comment out above two lines"
^XMB(3.9,122,2,1653,0)="""RTN"",""PSXRSUS"",79,0)"
^XMB(3.9,122,2,1654,0)=" Q"
^XMB(3.9,122,2,1655,0)="""RTN"",""PSXRSUS"",80,0)"
^XMB(3.9,122,2,1656,0)=" ;"
^XMB(3.9,122,2,1657,0)="""RTN"",""PSXRSUS"",81,0)"
^XMB(3.9,122,2,1658,0)="TRANDIVS ;Entry from transmission tasking; loop all divisions / or process only 1"
^XMB(3.9,122,2,1659,0)="""RTN"",""PSXRSUS"",82,0)"
^XMB(3.9,122,2,1660,0)=" ;process/transmit all divisions"
^XMB(3.9,122,2,1661,0)="""RTN"",""PSXRSUS"",83,0)"
^XMB(3.9,122,2,1662,0)="LOCK ; >>>**** LOCK OF FILE 550.1 ****<<<"
^XMB(3.9,122,2,1663,0)="""RTN"",""PSXRSUS"",84,0)"
^XMB(3.9,122,2,1664,0)=" F I=1:1:3 L +^PSX(550.1):10 I $T S I=100"
^XMB(3.9,122,2,1665,0)="""RTN"",""PSXRSUS"",85,0)"
^XMB(3.9,122,2,1666,0)=" I I'=100 D CANMSG G EXIT ; could not get a lock in 18 minutes of waiting"
^XMB(3.9,122,2,1667,0)="""RTN"",""PSXRSUS"",86,0)"
^XMB(3.9,122,2,1668,0)=" D STOREVAR^PSXRSUS1 ; store critical variables"
^XMB(3.9,122,2,1669,0)="""RTN"",""PSXRSUS"",87,0)"
^XMB(3.9,122,2,1670,0)=" I $D(^PSX(550.2,""AQ"")) D EN1^PSXRCVRY"
^XMB(3.9,122,2,1671,0)="""RTN"",""PSXRSUS"",88,0)"
^XMB(3.9,122,2,1672,0)=" I PSXDIVML N PSOSITE,PSOPAR D  G EXIT"
^XMB(3.9,122,2,1673,0)="""RTN"",""PSXRSUS"",89,0)"
^XMB(3.9,122,2,1674,0)=" . S PSOSITE=0 F  S PSOSITE=$O(^PS(59,PSOSITE)) Q:PSOSITE'>0  D"
^XMB(3.9,122,2,1675,0)="""RTN"",""PSXRSUS"",90,0)"
^XMB(3.9,122,2,1676,0)=" .. I '$D(^XTMP(""PSXAUTOERR"")) N $ETRAP,$ESTACK S $ETRAP=""D TRAPERR^PSXRSUS"""
^XMB(3.9,122,2,1677,0)="""RTN"",""PSXRSUS"",91,0)"
^XMB(3.9,122,2,1678,0)=" .. D RESETVAR^PSXRSUS1 ;retrieve critical variables"
^XMB(3.9,122,2,1679,0)="""RTN"",""PSXRSUS"",92,0)"
^XMB(3.9,122,2,1680,0)=" .. S PSOPAR=^PS(59,PSOSITE,1),PRTDT=TPRTDT"
^XMB(3.9,122,2,1681,0)="""RTN"",""PSXRSUS"",93,0)"
^XMB(3.9,122,2,1682,0)=" .. S PSXDAYS=$P(PSOPAR,""^"",27),X1=PRTDT,X2=PSXDAYS D C^%DTC S PSXDTRG=X K X,X1,X2 ;adjusts variables per divisional parameters."
^XMB(3.9,122,2,1683,0)="""RTN"",""PSXRSUS"",94,0)"
^XMB(3.9,122,2,1684,0)=" .. D TRANS"
^XMB(3.9,122,2,1685,0)="""RTN"",""PSXRSUS"",95,0)"
^XMB(3.9,122,2,1686,0)=" ; process a single division"
^XMB(3.9,122,2,1687,0)="""RTN"",""PSXRSUS"",96,0)"
^XMB(3.9,122,2,1688,0)=" D"
^XMB(3.9,122,2,1689,0)="""RTN"",""PSXRSUS"",97,0)"
^XMB(3.9,122,2,1690,0)=" . I '$D(^XTMP(""PSXAUTOERR"")) N $ETRAP,$ESTACK S $ETRAP=""D TRAPERR^PSXRSUS"""
^XMB(3.9,122,2,1691,0)="""RTN"",""PSXRSUS"",98,0)"
^XMB(3.9,122,2,1692,0)=" . D TRANS"
^XMB(3.9,122,2,1693,0)="""RTN"",""PSXRSUS"",99,0)"
^XMB(3.9,122,2,1694,0)=" G EXIT"
^XMB(3.9,122,2,1695,0)="""RTN"",""PSXRSUS"",100,0)"
^XMB(3.9,122,2,1696,0)=" ;"
^XMB(3.9,122,2,1697,0)="""RTN"",""PSXRSUS"",101,0)"
^XMB(3.9,122,2,1698,0)=" ;Called by Taskman to build CMOP PRINT data"
^XMB(3.9,122,2,1699,0)="""RTN"",""PSXRSUS"",102,0)"
^XMB(3.9,122,2,1700,0)="TRANS ;;Called by PSXAUTO Taskman to begin CMOP transmissions one division"
^XMB(3.9,122,2,1701,0)="""RTN"",""PSXRSUS"",103,0)"
^XMB(3.9,122,2,1702,0)=" S PSXZTSK=$G(ZTSK),PSXERFLG=0,PSXDUZ=DUZ"
^XMB(3.9,122,2,1703,0)="""RTN"",""PSXRSUS"",104,0)"
^XMB(3.9,122,2,1704,0)=" S PSXTST=0,PSXIN=$$GET1^DIQ(59,PSOSITE,2004,""I"")"
^XMB(3.9,122,2,1705,0)="""RTN"",""PSXRSUS"",105,0)"
^XMB(3.9,122,2,1706,0)=" S:PSXIN'=""""&(PSXIN<(DT+.1)) PSXTST=1"
^XMB(3.9,122,2,1707,0)="""RTN"",""PSXRSUS"",106,0)"
^XMB(3.9,122,2,1708,0)=" Q:PSXTST  ;division inactivated"
^XMB(3.9,122,2,1709,0)="""RTN"",""PSXRSUS"",107,0)"
^XMB(3.9,122,2,1710,0)=" ;VMP OIFO BAY PINES;ELR;PSX*2*57 CK IF ALL NECESSARY ELEMENTS OF DIVISION ARE HERE"
^XMB(3.9,122,2,1711,0)="""RTN"",""PSXRSUS"",108,0)"
^XMB(3.9,122,2,1712,0)=" NEW PSXDIVER S PSXPRECK=1 D DIV^PSXBLD1 K PSXPRECK I $G(PSXDIVER) Q"
^XMB(3.9,122,2,1713,0)="""RTN"",""PSXRSUS"",109,0)"
^XMB(3.9,122,2,1714,0)=" S PSXSTAT=""T"" D PSXSTAT^PSXRSYU"
^XMB(3.9,122,2,1715,0)="""RTN"",""PSXRSUS"",110,0)"
^XMB(3.9,122,2,1716,0)=" I $G(PSXCS)=1 S X=$$FMADD^XLFDT(DT,+2) S ^XTMP(""PSXCS""_PSOSITE,0)=X_U_DT_U_""CMOP CS TRANSMISSION"""
^XMB(3.9,122,2,1717,0)="""RTN"",""PSXRSUS"",111,0)"
^XMB(3.9,122,2,1718,0)=" D SDT^PSXRPPL I PSXERFLG=1 S PSXJOB=7 D ^PSXERR"
^XMB(3.9,122,2,1719,0)="""RTN"",""PSXRSUS"",112,0)"
^XMB(3.9,122,2,1720,0)=" I '$G(PSXBAT) D OERRCLR Q  ;no RXs found nor loaded into 550.2"
^XMB(3.9,122,2,1721,0)="""RTN"",""PSXRSUS"",113,0)"
^XMB(3.9,122,2,1722,0)="RTR ;"
^XMB(3.9,122,2,1723,0)="""RTN"",""PSXRSUS"",114,0)"
^XMB(3.9,122,2,1724,0)=" ;Clear 550.1 of entries (INSURE NO MERGE) prior to transmission"
^XMB(3.9,122,2,1725,0)="""RTN"",""PSXRSUS"",115,0)"
^XMB(3.9,122,2,1726,0)=" K DIK,DA S DIK=""^PSX(550.1,"",DA=0 F  S DA=$O(^PSX(550.1,DA)) Q:DA'>0  D ^DIK ;****TESTING"
^XMB(3.9,122,2,1727,0)="""RTN"",""PSXRSUS"",116,0)"
^XMB(3.9,122,2,1728,0)=" D EN^PSXBLD ; build entries into 550.1 by alpha patient"
^XMB(3.9,122,2,1729,0)="""RTN"",""PSXRSUS"",117,0)"
^XMB(3.9,122,2,1730,0)=" I PSXERFLG=1 S PFLAG=1 D EN^PSXERR"
^XMB(3.9,122,2,1731,0)="""RTN"",""PSXRSUS"",118,0)"
^XMB(3.9,122,2,1732,0)=" D EN^PSXRTR ;complete and send mailman message to CMOP"
^XMB(3.9,122,2,1733,0)="""RTN"",""PSXRSUS"",119,0)"
^XMB(3.9,122,2,1734,0)=" ;Clear 550.1 of entries (INSURE NO MERGE) after transmission complete"
^XMB(3.9,122,2,1735,0)="""RTN"",""PSXRSUS"",120,0)"
^XMB(3.9,122,2,1736,0)=" K DIK,DA S DIK=""^PSX(550.1,"",DA=0 F  S DA=$O(^PSX(550.1,DA)) Q:DA'>0  D ^DIK ;****TESTING"
^XMB(3.9,122,2,1737,0)="""RTN"",""PSXRSUS"",121,0)"
^XMB(3.9,122,2,1738,0)=" D OERRCLR"
^XMB(3.9,122,2,1739,0)="""RTN"",""PSXRSUS"",122,0)"
^XMB(3.9,122,2,1740,0)=" Q"
^XMB(3.9,122,2,1741,0)="""RTN"",""PSXRSUS"",123,0)"
^XMB(3.9,122,2,1742,0)="PRT ; print from CMOP suspense"
^XMB(3.9,122,2,1743,0)="""RTN"",""PSXRSUS"",124,0)"
^XMB(3.9,122,2,1744,0)=" F I=1:1:3 L +^PSX(550.1):60 I $T S I=100"
^XMB(3.9,122,2,1745,0)="""RTN"",""PSXRSUS"",125,0)"
^XMB(3.9,122,2,1746,0)=" I I'=100 D CANMSG G EXIT ; could not get a lock in 3 minutes of waiting"
^XMB(3.9,122,2,1747,0)="""RTN"",""PSXRSUS"",126,0)"
^XMB(3.9,122,2,1748,0)=" ; set auto error trapping"
^XMB(3.9,122,2,1749,0)="""RTN"",""PSXRSUS"",127,0)"
^XMB(3.9,122,2,1750,0)=" D"
^XMB(3.9,122,2,1751,0)="""RTN"",""PSXRSUS"",128,0)"
^XMB(3.9,122,2,1752,0)=" . I '$D(^XTMP(""PSXAUTOERR"")) N $ETRAP,$ESTACK S $ETRAP=""D PRTERR^PSXRPPL1"""
^XMB(3.9,122,2,1753,0)="""RTN"",""PSXRSUS"",129,0)"
^XMB(3.9,122,2,1754,0)=" . D PRT1"
^XMB(3.9,122,2,1755,0)="""RTN"",""PSXRSUS"",130,0)"
^XMB(3.9,122,2,1756,0)=" D OERRCLR"
^XMB(3.9,122,2,1757,0)="""RTN"",""PSXRSUS"",131,0)"
^XMB(3.9,122,2,1758,0)=" G EX1"
^XMB(3.9,122,2,1759,0)="""RTN"",""PSXRSUS"",132,0)"
^XMB(3.9,122,2,1760,0)="PRT1 S ZTREQ=""@"",PSXERFLG=0,NFLAG=2"
^XMB(3.9,122,2,1761,0)="""RTN"",""PSXRSUS"",133,0)"
^XMB(3.9,122,2,1762,0)=" D SDT^PSXRPPL"
^XMB(3.9,122,2,1763,0)="""RTN"",""PSXRSUS"",134,0)"
^XMB(3.9,122,2,1764,0)=" I $G(PSXBAT),$D(^PSX(550.2,PSXBAT,15)) D PRT^PSXRPPL"
^XMB(3.9,122,2,1765,0)="""RTN"",""PSXRSUS"",135,0)"
^XMB(3.9,122,2,1766,0)=" I PSXERFLG=1 S PSXJOB=7 D ^PSXERR"
^XMB(3.9,122,2,1767,0)="""RTN"",""PSXRSUS"",136,0)"
^XMB(3.9,122,2,1768,0)=" ;remove the batch from the transmission file as it was used only to hold the RXs for printing and not transmission"
^XMB(3.9,122,2,1769,0)="""RTN"",""PSXRSUS"",137,0)"
^XMB(3.9,122,2,1770,0)=" I $G(PSXBAT) K DIK,DA S DA=PSXBAT,DIK=""^PSX(550.2,"" D ^DIK K DIK,DA ;****TESTING"
^XMB(3.9,122,2,1771,0)="""RTN"",""PSXRSUS"",138,0)"
^XMB(3.9,122,2,1772,0)=" G EX1"
^XMB(3.9,122,2,1773,0)="""RTN"",""PSXRSUS"",139,0)"
^XMB(3.9,122,2,1774,0)="EXIT ;"
^XMB(3.9,122,2,1775,0)="""RTN"",""PSXRSUS"",140,0)"
^XMB(3.9,122,2,1776,0)=" I $G(POP) S PSXSTAT=""H"" D PSXSTAT^PSXRSYU ;exit from 'no printer selected' of print labels CMOP"
^XMB(3.9,122,2,1777,0)="""RTN"",""PSXRSUS"",141,0)"
^XMB(3.9,122,2,1778,0)=" ;I $G(PFLAG)=1 S PSXSTAT=""H"" D PSXSTAT^PSXRSYU"
^XMB(3.9,122,2,1779,0)="""RTN"",""PSXRSUS"",142,0)"
^XMB(3.9,122,2,1780,0)=" K DA,DIE,DR"
^XMB(3.9,122,2,1781,0)="""RTN"",""PSXRSUS"",143,0)"
^XMB(3.9,122,2,1782,0)=" S DA=+PSXSYS,DIE=""^PSX(550,"",DR=""9///@"""
^XMB(3.9,122,2,1783,0)="""RTN"",""PSXRSUS"",144,0)"
^XMB(3.9,122,2,1784,0)=" L +^PSX(550,DA):600 D ^DIE L -^PSX(550,DA)"
^XMB(3.9,122,2,1785,0)="""RTN"",""PSXRSUS"",145,0)"
^XMB(3.9,122,2,1786,0)=" K DA,DIE,DR"
^XMB(3.9,122,2,1787,0)="""RTN"",""PSXRSUS"",146,0)"
^XMB(3.9,122,2,1788,0)=" S PSXSTAT=""H"" D PSXSTAT^PSXRSYU"
^XMB(3.9,122,2,1789,0)="""RTN"",""PSXRSUS"",147,0)"
^XMB(3.9,122,2,1790,0)="EX1 K ^PSX(""CMOP TRAN"")"
^XMB(3.9,122,2,1791,0)="""RTN"",""PSXRSUS"",148,0)"
^XMB(3.9,122,2,1792,0)=" K CNAME,DFN,FILNUM,PNAME,PSXDAYS,PSXDTRG,^TMP($J,""PSX""),J,Y"
^XMB(3.9,122,2,1793,0)="""RTN"",""PSXRSUS"",149,0)"
^XMB(3.9,122,2,1794,0)=" K PSXPTR,REC,REF,REPLY,SDT,X,X1,X2,Y,ANSWER,PSXOK,RXNUM,PSXSITE,DIR,DIRUT,DTOUT,DUOUT,DIROUT,PSXCS,TXT,TEXT"
^XMB(3.9,122,2,1795,0)="""RTN"",""PSXRSUS"",150,0)"
^XMB(3.9,122,2,1796,0)=" K XDFN,STATUS,PSXSTAT,^TMP($J,""PSXDFN""),PDT,PSXDUZ,SITE,CHKDT,PSXERFLG,PSXRXERR,RXEX,FDATE,PSXJOB,PFLAG,PSXZTSK,PSXVENDR,ORSUB,ORST"
^XMB(3.9,122,2,1797,0)="""RTN"",""PSXRSUS"",151,0)"
^XMB(3.9,122,2,1798,0)=" L -^PSX(550.1)"
^XMB(3.9,122,2,1799,0)="""RTN"",""PSXRSUS"",152,0)"
^XMB(3.9,122,2,1800,0)=" Q"
^XMB(3.9,122,2,1801,0)="""RTN"",""PSXRSUS"",153,0)"
^XMB(3.9,122,2,1802,0)="OERRCLR ; clear any locks left in ^XTMP(""OERR-"""
^XMB(3.9,122,2,1803,0)="""RTN"",""PSXRSUS"",154,0)"
^XMB(3.9,122,2,1804,0)=" S (ORST,ORSUB)=""ORLK-"""
^XMB(3.9,122,2,1805,0)="""RTN"",""PSXRSUS"",155,0)"
^XMB(3.9,122,2,1806,0)=" F  S ORSUB=$O(^XTMP(ORSUB)) Q:ORSUB'[ORST  I ^XTMP(ORSUB,0)[""CPRS/CMOP"" K ^XTMP(ORSUB)"
^XMB(3.9,122,2,1807,0)="""RTN"",""PSXRSUS"",156,0)"
^XMB(3.9,122,2,1808,0)=" Q"
^XMB(3.9,122,2,1809,0)="""RTN"",""PSXRSUS"",157,0)"
^XMB(3.9,122,2,1810,0)="CANMSG ; lock on 550.1 not achieved send transmission/print cancelled message"
^XMB(3.9,122,2,1811,0)="""RTN"",""PSXRSUS"",158,0)"
^XMB(3.9,122,2,1812,0)=" S PSXCS=+$G(PSXCS)"
^XMB(3.9,122,2,1813,0)="""RTN"",""PSXRSUS"",159,0)"
^XMB(3.9,122,2,1814,0)=" S XMSUB=$S($G(PSXCS):"""",1:""NON-"")_""CS Manual Scheduled Transmission Canceled"""
^XMB(3.9,122,2,1815,0)="""RTN"",""PSXRSUS"",160,0)"
^XMB(3.9,122,2,1816,0)=" S:PSXFLAG=2 XMSUB=""Print CMOP Suspense Cancelled."""
^XMB(3.9,122,2,1817,0)="""RTN"",""PSXRSUS"",161,0)"
^XMB(3.9,122,2,1818,0)=" S XMTEXT=""TXT("""
^XMB(3.9,122,2,1819,0)="""RTN"",""PSXRSUS"",162,0)"
^XMB(3.9,122,2,1820,0)=" S TXT(1,0)=""The ""_$S($G(PSXCS):"""",1:""NON-"")_""CS Manual Transmission was cancelled"""
^XMB(3.9,122,2,1821,0)="""RTN"",""PSXRSUS"",163,0)"
^XMB(3.9,122,2,1822,0)=" S:PSXFLAG=2 TXT(1,0)=""Print from CMOP Suspense was cancelled"""
^XMB(3.9,122,2,1823,0)="""RTN"",""PSXRSUS"",164,0)"
^XMB(3.9,122,2,1824,0)=" S TXT(2,0)=""It could not obtain a lock on the RX QUEUE file. #550.1"""
^XMB(3.9,122,2,1825,0)="""RTN"",""PSXRSUS"",165,0)"
^XMB(3.9,122,2,1826,0)=" S TXT(3,0)=""This indicates that a transmission was in progress."""
^XMB(3.9,122,2,1827,0)="""RTN"",""PSXRSUS"",166,0)"
^XMB(3.9,122,2,1828,0)=" S TXT(6,0)="" """
^XMB(3.9,122,2,1829,0)="""RTN"",""PSXRSUS"",167,0)"
^XMB(3.9,122,2,1830,0)=" S TXT(7,0)=""If you are getting this message frequently, please contact your IRM Group"""
^XMB(3.9,122,2,1831,0)="""RTN"",""PSXRSUS"",168,0)"
^XMB(3.9,122,2,1832,0)=" D GRP1^PSXNOTE"
^XMB(3.9,122,2,1833,0)="""RTN"",""PSXRSUS"",169,0)"
^XMB(3.9,122,2,1834,0)=" ;S XMY(DUZ)="""""
^XMB(3.9,122,2,1835,0)="""RTN"",""PSXRSUS"",170,0)"
^XMB(3.9,122,2,1836,0)=" D ^XMD"
^XMB(3.9,122,2,1837,0)="""RTN"",""PSXRSUS"",171,0)"
^XMB(3.9,122,2,1838,0)=" Q"
^XMB(3.9,122,2,1839,0)="""RTN"",""PSXRSUS"",172,0)"
^XMB(3.9,122,2,1840,0)="TRAPERR ; trap/process error"
^XMB(3.9,122,2,1841,0)="""RTN"",""PSXRSUS"",173,0)"
^XMB(3.9,122,2,1842,0)=" S XXERR=$$EC^%ZOSV"
^XMB(3.9,122,2,1843,0)="""RTN"",""PSXRSUS"",174,0)"
^XMB(3.9,122,2,1844,0)=" S PSXDIVNM=$$GET1^DIQ(59,PSOSITE,.01)"
^XMB(3.9,122,2,1845,0)="""RTN"",""PSXRSUS"",175,0)"
^XMB(3.9,122,2,1846,0)=" ;save an image of the transient file 550.1 for 2 days"
^XMB(3.9,122,2,1847,0)="""RTN"",""PSXRSUS"",176,0)"
^XMB(3.9,122,2,1848,0)=" D NOW^%DTC S DTTM=%"
^XMB(3.9,122,2,1849,0)="""RTN"",""PSXRSUS"",177,0)"
^XMB(3.9,122,2,1850,0)=" ;VMP OIFO BAY PINES;ELR;PSX*2*57 CHANGE PURGE DAYS TO T+12 FROM T+2"
^XMB(3.9,122,2,1851,0)="""RTN"",""PSXRSUS"",178,0)"
^XMB(3.9,122,2,1852,0)=" S X=$$FMADD^XLFDT(DT,+12) S ^XTMP(""PSXERR ""_DTTM,0)=X_U_DT_U_""CMOP ""_XXERR"
^XMB(3.9,122,2,1853,0)="""RTN"",""PSXRSUS"",179,0)"
^XMB(3.9,122,2,1854,0)=" M ^XTMP(""PSXERR ""_DTTM,550.1)=^PSX(550.1)"
^XMB(3.9,122,2,1855,0)="""RTN"",""PSXRSUS"",180,0)"
^XMB(3.9,122,2,1856,0)=" S XMSUB=""CMOP Error ""_PSXDIVNM_"" ""_$$GET1^DIQ(550.2,+$G(PSXBAT),.01)"
^XMB(3.9,122,2,1857,0)="""RTN"",""PSXRSUS"",181,0)"
^XMB(3.9,122,2,1858,0)=" D GRP1^PSXNOTE"
^XMB(3.9,122,2,1859,0)="""RTN"",""PSXRSUS"",182,0)"
^XMB(3.9,122,2,1860,0)=" ;S XMY(DUZ)="""""
^XMB(3.9,122,2,1861,0)="""RTN"",""PSXRSUS"",183,0)"
^XMB(3.9,122,2,1862,0)=" S XMTEXT=""TEXT("""
^XMB(3.9,122,2,1863,0)="""RTN"",""PSXRSUS"",184,0)"
^XMB(3.9,122,2,1864,0)=" S TEXT(1,0)=$S($G(PSXCS):"""",1:""NON-"")_""CS CMOP Transmission encountered the following error. Please investigate"""
^XMB(3.9,122,2,1865,0)="""RTN"",""PSXRSUS"",185,0)"
^XMB(3.9,122,2,1866,0)=" S TEXT(2,0)=""Division:         ""_PSXDIVNM"
^XMB(3.9,122,2,1867,0)="""RTN"",""PSXRSUS"",186,0)"
^XMB(3.9,122,2,1868,0)=" S TEXT(3,0)=""Type/Batch        ""_$S($G(PSXCS):""CS"",1:""NON-CS"")_"" / ""_$$GET1^DIQ(550.2,+$G(PSXBAT),.01)"
^XMB(3.9,122,2,1869,0)="""RTN"",""PSXRSUS"",187,0)"
^XMB(3.9,122,2,1870,0)=" S TEXT(4,0)=""Error:            ""_XXERR"
^XMB(3.9,122,2,1871,0)="""RTN"",""PSXRSUS"",188,0)"
^XMB(3.9,122,2,1872,0)=" S TEXT(5,0)=""The prescriptions have been reset and other divisions' transmissions are continuing."""
^XMB(3.9,122,2,1873,0)="""RTN"",""PSXRSUS"",189,0)"
^XMB(3.9,122,2,1874,0)=" S TEXT(6,0)=""A copy of the file 550.1 can be found in ^XTMP(""""PSXERR ""_DTTM_"""""")"""
^XMB(3.9,122,2,1875,0)="""RTN"",""PSXRSUS"",190,0)"
^XMB(3.9,122,2,1876,0)=" D ^%ZTER"
^XMB(3.9,122,2,1877,0)="""RTN"",""PSXRSUS"",191,0)"
^XMB(3.9,122,2,1878,0)=" D ^XMD"
^XMB(3.9,122,2,1879,0)="""RTN"",""PSXRSUS"",192,0)"
^XMB(3.9,122,2,1880,0)=" ;I $E(IOST)=""C"" F XX=1:1:5 W !,TEXT(XX,0)"
^XMB(3.9,122,2,1881,0)="""RTN"",""PSXRSUS"",193,0)"
^XMB(3.9,122,2,1882,0)=" S PSXXDIV=PSOSITE"
^XMB(3.9,122,2,1883,0)="""RTN"",""PSXRSUS"",194,0)"
^XMB(3.9,122,2,1884,0)=" D EN1^PSXRCVRY ;hopefully no errors will be experienced in recovery"
^XMB(3.9,122,2,1885,0)="""RTN"",""PSXRSUS"",195,0)"
^XMB(3.9,122,2,1886,0)=" S PSOSITE=PSXXDIV"
^XMB(3.9,122,2,1887,0)="""RTN"",""PSXRSUS"",196,0)"
^XMB(3.9,122,2,1888,0)=" G UNWIND^%ZTER"
^XMB(3.9,122,2,1889,0)="""RTN"",""PSXRSUS"",197,0)"
^XMB(3.9,122,2,1890,0)=" Q"
^XMB(3.9,122,2,1891,0)="""RTN"",""PSXRSUS"",198,0)"
^XMB(3.9,122,2,1892,0)="STOPET ;disable auto error trapping"
^XMB(3.9,122,2,1893,0)="""RTN"",""PSXRSUS"",199,0)"
^XMB(3.9,122,2,1894,0)=" S ^XTMP(""PSXAUTOERR"",0)=DT_U_DT_U_""disable PSX CMOP auto error trapping for today"""
^XMB(3.9,122,2,1895,0)="""RTN"",""PSXRSUS"",200,0)"
^XMB(3.9,122,2,1896,0)=" Q"
^XMB(3.9,122,2,1897,0)="""RTN"",""PSXRSUS"",201,0)"
^XMB(3.9,122,2,1898,0)="STARTET ;enable auto error trapping"
^XMB(3.9,122,2,1899,0)="""RTN"",""PSXRSUS"",202,0)"
^XMB(3.9,122,2,1900,0)=" K ^XTMP(""PSXAUTOERR"",0)"
^XMB(3.9,122,2,1901,0)="""RTN"",""PSXRSUS"",203,0)"
^XMB(3.9,122,2,1902,0)=" Q"
^XMB(3.9,122,2,1903,0)="""RTN"",""PSXRXU"")"
^XMB(3.9,122,2,1904,0)="0^3^B28830470^B27958226"
^XMB(3.9,122,2,1905,0)="""RTN"",""PSXRXU"",1,0)"
^XMB(3.9,122,2,1906,0)="PSXRXU ;BIR/WPB,HTW,BAB-Remote Facility File Utilities ;14 Dec 2001"
^XMB(3.9,122,2,1907,0)="""RTN"",""PSXRXU"",2,0)"
^XMB(3.9,122,2,1908,0)=" ;;2.0;CMOP;**3,28,41,57,48**;11 Apr 97"
^XMB(3.9,122,2,1909,0)="""RTN"",""PSXRXU"",3,0)"
^XMB(3.9,122,2,1910,0)=" ; Reference to ^PS(52.5,  supported by DBIA #1978"
^XMB(3.9,122,2,1911,0)="""RTN"",""PSXRXU"",4,0)"
^XMB(3.9,122,2,1912,0)=" ; Reference to ^PSOHLSN1  supported by DBIA #2385"
^XMB(3.9,122,2,1913,0)="""RTN"",""PSXRXU"",5,0)"
^XMB(3.9,122,2,1914,0)=" ; Reference to ^PSRX(     supported by DBIA #1977"
^XMB(3.9,122,2,1915,0)="""RTN"",""PSXRXU"",6,0)"
^XMB(3.9,122,2,1916,0)=" ; Reference to ^XTMP(""ORLK-"" supported by DBIA #4001"
^XMB(3.9,122,2,1917,0)="""RTN"",""PSXRXU"",7,0)"
^XMB(3.9,122,2,1918,0)=" ; Reference to $$GETNDC^PSONDCUT supported by DBIA #4705"
^XMB(3.9,122,2,1919,0)="""RTN"",""PSXRXU"",8,0)"
^XMB(3.9,122,2,1920,0)="START ;files transmission data in file 52 52.5 after transmission is sent"
^XMB(3.9,122,2,1921,0)="""RTN"",""PSXRXU"",9,0)"
^XMB(3.9,122,2,1922,0)=" ; and clear OERR lock ^XTMP(""ORLK-"""
^XMB(3.9,122,2,1923,0)="""RTN"",""PSXRXU"",10,0)"
^XMB(3.9,122,2,1924,0)=" ; setup error trap for updating RXs in 52 & 52.5"
^XMB(3.9,122,2,1925,0)="""RTN"",""PSXRXU"",11,0)"
^XMB(3.9,122,2,1926,0)=" D"
^XMB(3.9,122,2,1927,0)="""RTN"",""PSXRXU"",12,0)"
^XMB(3.9,122,2,1928,0)=" . I '$D(^XTMP(""PSXAUTOERR"")) N $ETRAP,$ESTACK S $ETRAP=""D RXERR^PSXRXU"""
^XMB(3.9,122,2,1929,0)="""RTN"",""PSXRXU"",13,0)"
^XMB(3.9,122,2,1930,0)=" . D START1"
^XMB(3.9,122,2,1931,0)="""RTN"",""PSXRXU"",14,0)"
^XMB(3.9,122,2,1932,0)=" Q"
^XMB(3.9,122,2,1933,0)="""RTN"",""PSXRXU"",15,0)"
^XMB(3.9,122,2,1934,0)="START1 ;"
^XMB(3.9,122,2,1935,0)="""RTN"",""PSXRXU"",16,0)"
^XMB(3.9,122,2,1936,0)=" S PSXNM="""",PSXMSG=0"
^XMB(3.9,122,2,1937,0)="""RTN"",""PSXRXU"",17,0)"
^XMB(3.9,122,2,1938,0)=" F  S PSXNM=$O(^PSX(550.2,PSXBAT,15,""C"",PSXNM)) Q:PSXNM']""""  D"
^XMB(3.9,122,2,1939,0)="""RTN"",""PSXRXU"",18,0)"
^XMB(3.9,122,2,1940,0)=" . S DFN="""" F  S DFN=$O(^PSX(550.2,PSXBAT,15,""C"",PSXNM,DFN)) Q:DFN'>0  D"
^XMB(3.9,122,2,1941,0)="""RTN"",""PSXRXU"",19,0)"
^XMB(3.9,122,2,1942,0)=" .. S RX=0,PSXMSG=PSXMSG+1 F  S RX=$O(^PSX(550.2,PSXBAT,15,""C"",PSXNM,DFN,RX)) Q:RX'>0  D"
^XMB(3.9,122,2,1943,0)="""RTN"",""PSXRXU"",20,0)"
^XMB(3.9,122,2,1944,0)=" ... S RXF=$O(^PSX(550.2,PSXBAT,15,""C"",PSXNM,DFN,RX,0))"
^XMB(3.9,122,2,1945,0)="""RTN"",""PSXRXU"",21,0)"
^XMB(3.9,122,2,1946,0)=" ... D FILE"
^XMB(3.9,122,2,1947,0)="""RTN"",""PSXRXU"",22,0)"
^XMB(3.9,122,2,1948,0)=" Q"
^XMB(3.9,122,2,1949,0)="""RTN"",""PSXRXU"",23,0)"
^XMB(3.9,122,2,1950,0)="F D FILE^DICN"
^XMB(3.9,122,2,1951,0)="""RTN"",""PSXRXU"",24,0)"
^XMB(3.9,122,2,1952,0)=" Q"
^XMB(3.9,122,2,1953,0)="""RTN"",""PSXRXU"",25,0)"
^XMB(3.9,122,2,1954,0)="FILE ;files the data in the CMOP event multiple of PSRX("
^XMB(3.9,122,2,1955,0)="""RTN"",""PSXRXU"",26,0)"
^XMB(3.9,122,2,1956,0)=" ;update 52, 52.5 called from PSXBLD RX loop"
^XMB(3.9,122,2,1957,0)="""RTN"",""PSXRXU"",27,0)"
^XMB(3.9,122,2,1958,0)=" S FILL=+RXF"
^XMB(3.9,122,2,1959,0)="""RTN"",""PSXRXU"",28,0)"
^XMB(3.9,122,2,1960,0)=" S:$G(PSXTDT)="""" PSXTDT=$P(^PSX(550.2,PSXBAT,0),""^"",6)"
^XMB(3.9,122,2,1961,0)="""RTN"",""PSXRXU"",29,0)"
^XMB(3.9,122,2,1962,0)=" Q:'$D(^PSRX(RX,0))"
^XMB(3.9,122,2,1963,0)="""RTN"",""PSXRXU"",30,0)"
^XMB(3.9,122,2,1964,0)=" ;S PSXMSG=$P(^PSX(550.1,XX,0),""^"")"
^XMB(3.9,122,2,1965,0)="""RTN"",""PSXRXU"",31,0)"
^XMB(3.9,122,2,1966,0)=" ; update RX, RX:CMOP multiple"
^XMB(3.9,122,2,1967,0)="""RTN"",""PSXRXU"",32,0)"
^XMB(3.9,122,2,1968,0)=" ;If Rx status = suspended (5) set to active (0)"
^XMB(3.9,122,2,1969,0)="""RTN"",""PSXRXU"",33,0)"
^XMB(3.9,122,2,1970,0)=" I $P(^PSRX(RX,""STA""),U,1)=5 S $P(^PSRX(RX,""STA""),U,1)=0"
^XMB(3.9,122,2,1971,0)="""RTN"",""PSXRXU"",34,0)"
^XMB(3.9,122,2,1972,0)=" D EN^PSOHLSN1(RX,""SC"",""ZU"",""Transmitted to CMOP"","""")"
^XMB(3.9,122,2,1973,0)="""RTN"",""PSXRXU"",35,0)"
^XMB(3.9,122,2,1974,0)=" S:'$D(^PSRX(RX,4,0)) ^PSRX(RX,4,0)=""^52.01DA^^"""
^XMB(3.9,122,2,1975,0)="""RTN"",""PSXRXU"",36,0)"
^XMB(3.9,122,2,1976,0)=" K DD,DO,DIE,DA,DIC,DR"
^XMB(3.9,122,2,1977,0)="""RTN"",""PSXRXU"",37,0)"
^XMB(3.9,122,2,1978,0)=" ;VMP OIFO BAY PINES;ELR;PSX*2*57 REMOVE LOCK AND UNLOCK OF PSRX(4"
^XMB(3.9,122,2,1979,0)="""RTN"",""PSXRXU"",38,0)"
^XMB(3.9,122,2,1980,0)=" ;L +^PSRX(RX,4,0):600 Q:'$T"
^XMB(3.9,122,2,1981,0)="""RTN"",""PSXRXU"",39,0)"
^XMB(3.9,122,2,1982,0)=" S DA(1)=RX,DIC=""^PSRX(""_RX_"",4,"",DIC(0)=""Z"",X=PSXBAT"
^XMB(3.9,122,2,1983,0)="""RTN"",""PSXRXU"",40,0)"
^XMB(3.9,122,2,1984,0)=" S DIC(""DR"")=""1////""_$G(PSXMSG)_"";2////""_$G(FILL)_"";3////0;12///""_$S($$PATCH^XPDUTL(""PSO*7.0*148""):$$GETNDC^PSONDCUT(RX,FILL),1:"""")"
^XMB(3.9,122,2,1985,0)="""RTN"",""PSXRXU"",41,0)"
^XMB(3.9,122,2,1986,0)=" D:'$D(^PSRX(RX,4,""B"",PSXBAT)) FILE^DICN I 1"
^XMB(3.9,122,2,1987,0)="""RTN"",""PSXRXU"",42,0)"
^XMB(3.9,122,2,1988,0)=" E  S DIE=DIC,DR=DIC(""DR""),DA=$O(^PSRX(RX,4,""B"",PSXBAT,0)) K DIC D ^DIE"
^XMB(3.9,122,2,1989,0)="""RTN"",""PSXRXU"",43,0)"
^XMB(3.9,122,2,1990,0)=" K DIC,DA,DR,DIE"
^XMB(3.9,122,2,1991,0)="""RTN"",""PSXRXU"",44,0)"
^XMB(3.9,122,2,1992,0)=" ;L -^PSRX(RX,4,0)"
^XMB(3.9,122,2,1993,0)="""RTN"",""PSXRXU"",45,0)"
^XMB(3.9,122,2,1994,0)=" K FAC"
^XMB(3.9,122,2,1995,0)="""RTN"",""PSXRXU"",46,0)"
^XMB(3.9,122,2,1996,0)=" S FAC=$$GET1^DIQ(550.2,PSXBAT,3)"
^XMB(3.9,122,2,1997,0)="""RTN"",""PSXRXU"",47,0)"
^XMB(3.9,122,2,1998,0)=" S COM=$S($G(PSXRTRN):""Re-"",1:"""")_""Transmitted to ""_FAC_"" CMOP"""
^XMB(3.9,122,2,1999,0)="""RTN"",""PSXRXU"",48,0)"
^XMB(3.9,122,2,2000,0)=" S:$G(FILL)>5 FILL=$G(FILL)+1"
^XMB(3.9,122,2,2001,0)="""RTN"",""PSXRXU"",49,0)"
^XMB(3.9,122,2,2002,0)=" S CNT=0 F JJ=0:0 S JJ=$O(^PSRX(RX,""A"",JJ)) Q:'JJ  S CNT=JJ"
^XMB(3.9,122,2,2003,0)="""RTN"",""PSXRXU"",50,0)"
^XMB(3.9,122,2,2004,0)=" S CNT=CNT+1,^PSRX(RX,""A"",0)=""^52.3DA^""_CNT_""^""_CNT"
^XMB(3.9,122,2,2005,0)="""RTN"",""PSXRXU"",51,0)"
^XMB(3.9,122,2,2006,0)=" ;VMP OIFO BAY PINES;ELR;PSX*2*57 REMOVE LOCK AND UNLOCK OF PSRX"
^XMB(3.9,122,2,2007,0)="""RTN"",""PSXRXU"",52,0)"
^XMB(3.9,122,2,2008,0)=" ;L +^PSRX(RX):600 Q:'$T"
^XMB(3.9,122,2,2009,0)="""RTN"",""PSXRXU"",53,0)"
^XMB(3.9,122,2,2010,0)=" S ^PSRX(RX,""A"",CNT,0)=PSXTDT_""^B^""_DUZ_""^""_$G(FILL)_""^""_COM"
^XMB(3.9,122,2,2011,0)="""RTN"",""PSXRXU"",54,0)"
^XMB(3.9,122,2,2012,0)=" ;L -^PSRX(RX)"
^XMB(3.9,122,2,2013,0)="""RTN"",""PSXRXU"",55,0)"
^XMB(3.9,122,2,2014,0)=" S IN525=$O(^PS(52.5,""B"",RX,""""))"
^XMB(3.9,122,2,2015,0)="""RTN"",""PSXRXU"",56,0)"
^XMB(3.9,122,2,2016,0)=" I $G(IN525)]"""" K DIE,DA,DR,DIE,DIC S DIE=""^PS(52.5,"",DR=""3////X"",DA=IN525 L +^PS(52.5,IN525):600 Q:'$T  D ^DIE L -^PS(52.5,IN525) K DA,DIE,DA,IN525"
^XMB(3.9,122,2,2017,0)="""RTN"",""PSXRXU"",57,0)"
^XMB(3.9,122,2,2018,0)=" K DIE,DR,DA"
^XMB(3.9,122,2,2019,0)="""RTN"",""PSXRXU"",58,0)"
^XMB(3.9,122,2,2020,0)=" S DA=PSXMSG,DIE=""^PSX(550.1,"",DR=""1////5"""
^XMB(3.9,122,2,2021,0)="""RTN"",""PSXRXU"",59,0)"
^XMB(3.9,122,2,2022,0)=" L +^PSX(550.1,PSXMSG):600 Q:'$T"
^XMB(3.9,122,2,2023,0)="""RTN"",""PSXRXU"",60,0)"
^XMB(3.9,122,2,2024,0)=" D ^DIE L -^PSX(550.1,PSXMSG) K DA,DR,DIE"
^XMB(3.9,122,2,2025,0)="""RTN"",""PSXRXU"",61,0)"
^XMB(3.9,122,2,2026,0)="OERR ;clear ^XTMP(""ORLK-"" if it is CPRS/CMOP"
^XMB(3.9,122,2,2027,0)="""RTN"",""PSXRXU"",62,0)"
^XMB(3.9,122,2,2028,0)=" N ORD S ORD=+$P($G(^PSRX(+$G(RX),""OR1"")),""^"",2)"
^XMB(3.9,122,2,2029,0)="""RTN"",""PSXRXU"",63,0)"
^XMB(3.9,122,2,2030,0)=" I ORD,$D(^XTMP(""ORLK-""_ORD,0)),^XTMP(""ORLK-""_ORD,0)[""CPRS/CMOP"" K ^XTMP(""ORLK-""_ORD)"
^XMB(3.9,122,2,2031,0)="""RTN"",""PSXRXU"",64,0)"
^XMB(3.9,122,2,2032,0)=" Q"
^XMB(3.9,122,2,2033,0)="""RTN"",""PSXRXU"",65,0)"
^XMB(3.9,122,2,2034,0)="PRINT D NOW^%DTC S DTTM=% S COM=""CMOP Suspense Label ""_$S($G(^PS(52.5,REC,""P""))=0:""Printed"",1:""RePrinted"")_$S($G(^PSRX(PTR,""TYPE""))>0:"" (PARTIAL)"",1:"""")"
^XMB(3.9,122,2,2035,0)="""RTN"",""PSXRXU"",66,0)"
^XMB(3.9,122,2,2036,0)=" S CNT=0 F JJ=0:0 S JJ=$O(^PSRX(PTR,""A"",JJ)) Q:'JJ  S CNT=JJ"
^XMB(3.9,122,2,2037,0)="""RTN"",""PSXRXU"",67,0)"
^XMB(3.9,122,2,2038,0)=" S $P(^PSRX(PTR,""STA""),""^"",1)=0,^PS(52.5,REC,""P"")=1"
^XMB(3.9,122,2,2039,0)="""RTN"",""PSXRXU"",68,0)"
^XMB(3.9,122,2,2040,0)=" S CNT=CNT+1,^PSRX(PTR,""A"",0)=""^52.3DA^""_CNT_""^""_CNT L +^PSRX(PTR):600 Q:'$T  S ^PSRX(PTR,""A"",CNT,0)=DTTM_""^S^""_DUZ_""^""_FILL_""^""_COM L -^PSRX(PTR)"
^XMB(3.9,122,2,2041,0)="""RTN"",""PSXRXU"",69,0)"
^XMB(3.9,122,2,2042,0)=" K DTTM,%,COM,CNT,JJ"
^XMB(3.9,122,2,2043,0)="""RTN"",""PSXRXU"",70,0)"
^XMB(3.9,122,2,2044,0)=" Q"
^XMB(3.9,122,2,2045,0)="""RTN"",""PSXRXU"",71,0)"
^XMB(3.9,122,2,2046,0)="SUSPS ;goes through the PS(550.1 file and gets the pointer for each rx in PSRX"
^XMB(3.9,122,2,2047,0)="""RTN"",""PSXRXU"",72,0)"
^XMB(3.9,122,2,2048,0)=" ;CMOP Event entry"
^XMB(3.9,122,2,2049,0)="""RTN"",""PSXRXU"",73,0)"
^XMB(3.9,122,2,2050,0)=" S XXX=0 F  S XXX=$O(^PSX(550.1,REC,2,XXX)) Q:XXX'>0  D ACLOG"
^XMB(3.9,122,2,2051,0)="""RTN"",""PSXRXU"",74,0)"
^XMB(3.9,122,2,2052,0)=" K XXX"
^XMB(3.9,122,2,2053,0)="""RTN"",""PSXRXU"",75,0)"
^XMB(3.9,122,2,2054,0)=" Q"
^XMB(3.9,122,2,2055,0)="""RTN"",""PSXRXU"",76,0)"
^XMB(3.9,122,2,2056,0)="ACLOG ;"
^XMB(3.9,122,2,2057,0)="""RTN"",""PSXRXU"",77,0)"
^XMB(3.9,122,2,2058,0)=" D NOW^%DTC"
^XMB(3.9,122,2,2059,0)="""RTN"",""PSXRXU"",78,0)"
^XMB(3.9,122,2,2060,0)=" S PSXPTR=$P($G(^PSX(550.1,REC,2,XXX,0)),U,1)"
^XMB(3.9,122,2,2061,0)="""RTN"",""PSXRXU"",79,0)"
^XMB(3.9,122,2,2062,0)=" F RCC=0:0 S RCC=$O(^PSRX(+PSXPTR,4,""B"",OLDBAT,RCC)) Q:RCC=""""  S RC=RCC"
^XMB(3.9,122,2,2063,0)="""RTN"",""PSXRXU"",80,0)"
^XMB(3.9,122,2,2064,0)=" S TRNN=$P($G(^PSRX(+PSXPTR,4,RC,0)),""^"",1)"
^XMB(3.9,122,2,2065,0)="""RTN"",""PSXRXU"",81,0)"
^XMB(3.9,122,2,2066,0)=" S FAC=$$GET1^DIQ(550.2,TRNN,3)"
^XMB(3.9,122,2,2067,0)="""RTN"",""PSXRXU"",82,0)"
^XMB(3.9,122,2,2068,0)=" S FILL=$P($G(^PSRX(+PSXPTR,4,RC,0)),""^"",3)"
^XMB(3.9,122,2,2069,0)="""RTN"",""PSXRXU"",83,0)"
^XMB(3.9,122,2,2070,0)=" S CNT=0 F JJ=0:0 S JJ=$O(^PSRX(+PSXPTR,""A"",JJ)) Q:'JJ  S CNT=JJ"
^XMB(3.9,122,2,2071,0)="""RTN"",""PSXRXU"",84,0)"
^XMB(3.9,122,2,2072,0)=" S COMMENT=""Retransmitted to ""_FAC_"" CMOP"""
^XMB(3.9,122,2,2073,0)="""RTN"",""PSXRXU"",85,0)"
^XMB(3.9,122,2,2074,0)=" S CNT=CNT+1,^PSRX(+PSXPTR,""A"",0)=""^52.3DA^""_CNT_""^""_CNT"
^XMB(3.9,122,2,2075,0)="""RTN"",""PSXRXU"",86,0)"
^XMB(3.9,122,2,2076,0)=" L +^PSRX(+PSXPTR):600 Q:'$T"
^XMB(3.9,122,2,2077,0)="""RTN"",""PSXRXU"",87,0)"
^XMB(3.9,122,2,2078,0)=" S ^PSRX(+PSXPTR,""A"",CNT,0)=%_U_""B""_U_DUZ_U_$S(FILL>5:(FILL+1),1:FILL)_U_COMMENT"
^XMB(3.9,122,2,2079,0)="""RTN"",""PSXRXU"",88,0)"
^XMB(3.9,122,2,2080,0)=" L -^PSRX(+PSXPTR)"
^XMB(3.9,122,2,2081,0)="""RTN"",""PSXRXU"",89,0)"
^XMB(3.9,122,2,2082,0)=" L +^PSRX(+PSXPTR,4,0):600 Q:'$T"
^XMB(3.9,122,2,2083,0)="""RTN"",""PSXRXU"",90,0)"
^XMB(3.9,122,2,2084,0)=" S DA(1)=+PSXPTR,DIE=""^PSRX(""_+PSXPTR_"",4,"",DA=RC,DR=""3////2"""
^XMB(3.9,122,2,2085,0)="""RTN"",""PSXRXU"",91,0)"
^XMB(3.9,122,2,2086,0)=" D ^DIE K DIE,DA,DR,DD,DO"
^XMB(3.9,122,2,2087,0)="""RTN"",""PSXRXU"",92,0)"
^XMB(3.9,122,2,2088,0)=" S:'$D(^PSRX(+PSXPTR,4,0)) ^PSRX(+PSXPTR,4,0)=""^52.01DA^^"""
^XMB(3.9,122,2,2089,0)="""RTN"",""PSXRXU"",93,0)"
^XMB(3.9,122,2,2090,0)=" S DA(1)=+PSXPTR,DIC=""^PSRX(""_+PSXPTR_"",4,"",DIC(0)=""Z"",X=PSXBAT"
^XMB(3.9,122,2,2091,0)="""RTN"",""PSXRXU"",94,0)"
^XMB(3.9,122,2,2092,0)=" S DIC(""DR"")=""1////""_REC_"";2////""_$G(FILL)_"";3////0"" D F"
^XMB(3.9,122,2,2093,0)="""RTN"",""PSXRXU"",95,0)"
^XMB(3.9,122,2,2094,0)=" L -^PSRX(+PSXPTR,4,0)"
^XMB(3.9,122,2,2095,0)="""RTN"",""PSXRXU"",96,0)"
^XMB(3.9,122,2,2096,0)=" K PSXPTR,COMMENT,CNT,JJ,FILL,REF,%,DIC,DA,DIE,DR"
^XMB(3.9,122,2,2097,0)="""RTN"",""PSXRXU"",97,0)"
^XMB(3.9,122,2,2098,0)=" S DA=REC,DIE=""^PSX(550.1,"",DR=""1////5"" L +^PSX(550.1,REC):600 Q:'$T"
^XMB(3.9,122,2,2099,0)="""RTN"",""PSXRXU"",98,0)"
^XMB(3.9,122,2,2100,0)=" D ^DIE L -^PSX(550.1,REC) K DIE,DA,DR,FAC,TRNN"
^XMB(3.9,122,2,2101,0)="""RTN"",""PSXRXU"",99,0)"
^XMB(3.9,122,2,2102,0)=" Q"
^XMB(3.9,122,2,2103,0)="""RTN"",""PSXRXU"",100,0)"
^XMB(3.9,122,2,2104,0)="RXERR ;auto error processing of RX updating 52 & 52.5"
^XMB(3.9,122,2,2105,0)="""RTN"",""PSXRXU"",101,0)"
^XMB(3.9,122,2,2106,0)=" S XXERR=$$EC^%ZOSV"
^XMB(3.9,122,2,2107,0)="""RTN"",""PSXRXU"",102,0)"
^XMB(3.9,122,2,2108,0)=" S PSXDIVNM=$$GET1^DIQ(59,PSOSITE,.01)"
^XMB(3.9,122,2,2109,0)="""RTN"",""PSXRXU"",103,0)"
^XMB(3.9,122,2,2110,0)=" ;save an image of the transient file 550.1 for 2 days"
^XMB(3.9,122,2,2111,0)="""RTN"",""PSXRXU"",104,0)"
^XMB(3.9,122,2,2112,0)=" D NOW^%DTC S DTTM=%"
^XMB(3.9,122,2,2113,0)="""RTN"",""PSXRXU"",105,0)"
^XMB(3.9,122,2,2114,0)=" ;VMP OIFO BAY PINES;ELR;PSX*2*57 CHANE PURGE DATE TO T+12 FROM T+2"
^XMB(3.9,122,2,2115,0)="""RTN"",""PSXRXU"",106,0)"
^XMB(3.9,122,2,2116,0)=" S X=$$FMADD^XLFDT(DT,+12) S ^XTMP(""PSXERR ""_DTTM,0)=X_U_DT_U_""CMOP ""_XXERR"
^XMB(3.9,122,2,2117,0)="""RTN"",""PSXRXU"",107,0)"
^XMB(3.9,122,2,2118,0)=" M ^XTMP(""PSXERR ""_DTTM,550.1)=^PSX(550.1)"
^XMB(3.9,122,2,2119,0)="""RTN"",""PSXRXU"",108,0)"
^XMB(3.9,122,2,2120,0)=" S XMSUB=""CMOP Error ""_PSXDIVNM_"" ""_$$GET1^DIQ(550.2,+$G(PSXBAT),.01)"
^XMB(3.9,122,2,2121,0)="""RTN"",""PSXRXU"",109,0)"
^XMB(3.9,122,2,2122,0)=" D GRP1^PSXNOTE"
^XMB(3.9,122,2,2123,0)="""RTN"",""PSXRXU"",110,0)"
^XMB(3.9,122,2,2124,0)=" ;S XMY(DUZ)="""""
^XMB(3.9,122,2,2125,0)="""RTN"",""PSXRXU"",111,0)"
^XMB(3.9,122,2,2126,0)=" S XMTEXT=""TEXT("""
^XMB(3.9,122,2,2127,0)="""RTN"",""PSXRXU"",112,0)"
^XMB(3.9,122,2,2128,0)=" S TEXT(1,0)=$S($G(PSXCS):"""",1:""NON-"")_""CS CMOP transmission encountered the following error. Please investigate"""
^XMB(3.9,122,2,2129,0)="""RTN"",""PSXRXU"",113,0)"
^XMB(3.9,122,2,2130,0)=" S TEXT(2,0)=""Division:         ""_PSXDIVNM"
^XMB(3.9,122,2,2131,0)="""RTN"",""PSXRXU"",114,0)"
^XMB(3.9,122,2,2132,0)=" S TEXT(3,0)=""Type/Batch        ""_$S($G(PSXCS):""CS"",1:""NON-CS"")_"" / ""_$$GET1^DIQ(550.2,$G(PSXBAT),.01)"
^XMB(3.9,122,2,2133,0)="""RTN"",""PSXRXU"",115,0)"
^XMB(3.9,122,2,2134,0)=" S TEXT(4,0)=""Error:            ""_XXERR"
^XMB(3.9,122,2,2135,0)="""RTN"",""PSXRXU"",116,0)"
^XMB(3.9,122,2,2136,0)=" S TEXT(5,0)="">>>This batch has been sent <<<"""
^XMB(3.9,122,2,2137,0)="""RTN"",""PSXRXU"",117,0)"
^XMB(3.9,122,2,2138,0)=" S TEXT(6,0)=""Call NVS to investigate which prescriptions have been updated"""
^XMB(3.9,122,2,2139,0)="""RTN"",""PSXRXU"",118,0)"
^XMB(3.9,122,2,2140,0)=" S TEXT(7,0)=""or not updated in files Prescription #52 & Suspense 52.5 ."""
^XMB(3.9,122,2,2141,0)="""RTN"",""PSXRXU"",119,0)"
^XMB(3.9,122,2,2142,0)=" S TEXT(8,0)=""A copy of file 550.1 can be found in ^XTMP(""""PSXERR ""_DTTM_"""""")"""
^XMB(3.9,122,2,2143,0)="""RTN"",""PSXRXU"",120,0)"
^XMB(3.9,122,2,2144,0)=" D ^%ZTER"
^XMB(3.9,122,2,2145,0)="""RTN"",""PSXRXU"",121,0)"
^XMB(3.9,122,2,2146,0)=" D ^XMD"
^XMB(3.9,122,2,2147,0)="""RTN"",""PSXRXU"",122,0)"
^XMB(3.9,122,2,2148,0)=" G UNWIND^%ZTER"
^XMB(3.9,122,2,2149,0)="""RTN"",""PSXVND"")"
^XMB(3.9,122,2,2150,0)="0^2^B36240970^B34942755"
^XMB(3.9,122,2,2151,0)="""RTN"",""PSXVND"",1,0)"
^XMB(3.9,122,2,2152,0)="PSXVND ;BIR/WPB,HTW,PWC-File Release Data at the Remote Facility ;10/29/98  2:13 PM"
^XMB(3.9,122,2,2153,0)="""RTN"",""PSXVND"",2,0)"
^XMB(3.9,122,2,2154,0)=" ;;2.0;CMOP;**4,5,14,18,19,15,24,23,27,35,39,36,48**;11 Apr 97"
^XMB(3.9,122,2,2155,0)="""RTN"",""PSXVND"",3,0)"
^XMB(3.9,122,2,2156,0)=" ;Reference to ^PSDRUG( supported by DBIA #1983"
^XMB(3.9,122,2,2157,0)="""RTN"",""PSXVND"",4,0)"
^XMB(3.9,122,2,2158,0)=" ;Reference to ^PSRX( supported by DBIA #1977"
^XMB(3.9,122,2,2159,0)="""RTN"",""PSXVND"",5,0)"
^XMB(3.9,122,2,2160,0)=" ;Reference to ^PS(59 supported by DBIA #1976"
^XMB(3.9,122,2,2161,0)="""RTN"",""PSXVND"",6,0)"
^XMB(3.9,122,2,2162,0)=" ;Reference to routine CP^PSOCP supported by DBIA #1974"
^XMB(3.9,122,2,2163,0)="""RTN"",""PSXVND"",7,0)"
^XMB(3.9,122,2,2164,0)=" ;Reference to routine EN^PSOHLSN1 supported by DBIA #2385"
^XMB(3.9,122,2,2165,0)="""RTN"",""PSXVND"",8,0)"
^XMB(3.9,122,2,2166,0)=" ;Reference to routine EN^RGEQ supported by DBIA #2382"
^XMB(3.9,122,2,2167,0)="""RTN"",""PSXVND"",9,0)"
^XMB(3.9,122,2,2168,0)=" ;Reference to routine AUTOREL^PSOBPSUT supported by DBIA #4701"
^XMB(3.9,122,2,2169,0)="""RTN"",""PSXVND"",10,0)"
^XMB(3.9,122,2,2170,0)=" ;Called by Taskman to handle release data"
^XMB(3.9,122,2,2171,0)="""RTN"",""PSXVND"",11,0)"
^XMB(3.9,122,2,2172,0)="EN H 5 S CNT=1,FROM=XMFROM,ZTREQ=""@"""
^XMB(3.9,122,2,2173,0)="""RTN"",""PSXVND"",12,0)"
^XMB(3.9,122,2,2174,0)=" S DOMAIN=$S($P(XMFROM,""@"",2)'="""":""@""_$P(FROM,""@"",2),$P(XMFROM,""@"",2)="""":"""",1:""""),XMSER=""S.""_XQSOP,TXMZ=XQMSG"
^XMB(3.9,122,2,2175,0)="""RTN"",""PSXVND"",13,0)"
^XMB(3.9,122,2,2176,0)=" S (X,SITE,DA)=$$KSP^XUPARAM(""INST""),DIC=""4"",DIQ(0)=""IE"",DR=99,DIQ=""PSXUTIL"" D EN^DIQ1 S HERE=$G(PSXUTIL(4,SITE,99,""I"")) K DA,DIC,DIQ(0),DR"
^XMB(3.9,122,2,2177,0)="""RTN"",""PSXVND"",14,0)"
^XMB(3.9,122,2,2178,0)=" F  X XMREC I $G(XMRG)'="""" S TXMRG=XMRG G:$G(XMER)<0 EXIT1 D:$E(XMRG,1,3)[""$RX"" GET G:$E(XMRG,1,5)[""$$END"" MAIL D:$E(XMRG,1,4)[""$LOT"" LOT S:$E(XMRG,1,5)[""$$VND"" MSNUM=$P(XMRG,""^"",3)"
^XMB(3.9,122,2,2179,0)="""RTN"",""PSXVND"",15,0)"
^XMB(3.9,122,2,2180,0)=" G EXIT"
^XMB(3.9,122,2,2181,0)="""RTN"",""PSXVND"",16,0)"
^XMB(3.9,122,2,2182,0)="GET Q:$G(XMRG)=""""!($E(XMRG,1,3)'[""$RX"")"
^XMB(3.9,122,2,2183,0)="""RTN"",""PSXVND"",17,0)"
^XMB(3.9,122,2,2184,0)=" K FACBAT,BAT,NDC,RELDT,STAT,REASON,XFILL,P515A,P515B,%,RR,ALOT,RXP,RXN,FLAG,FILL,RELD,ZSTAT,RTN,CARRIER,PKGID,SHPDT"
^XMB(3.9,122,2,2185,0)="""RTN"",""PSXVND"",18,0)"
^XMB(3.9,122,2,2186,0)=" S RX=$P(XMRG,U,2),FACBAT=$P(XMRG,U,3),BAT=$P(FACBAT,""-"",2),NDC=$P(XMRG,U,4),RELDT=$P(XMRG,U,5),STAT=$P(XMRG,U,6),REASON=$P($G(XMRG),U,8),XFILL=$P($G(XMRG),U,7)"
^XMB(3.9,122,2,2187,0)="""RTN"",""PSXVND"",19,0)"
^XMB(3.9,122,2,2188,0)=" S P515A=$P(XMRG,U,9),P515B=$P(XMRG,U,10),DRG=$P(XMRG,U,12),QTY=$P(XMRG,U,11),CARRIER=$P(XMRG,U,13),PKGID=$P(XMRG,U,14),SHPDT=$P(XMRG,U,15)"
^XMB(3.9,122,2,2189,0)="""RTN"",""PSXVND"",20,0)"
^XMB(3.9,122,2,2190,0)=" S FAC=$P(FACBAT,""-"",1)"
^XMB(3.9,122,2,2191,0)="""RTN"",""PSXVND"",21,0)"
^XMB(3.9,122,2,2192,0)=" Q:FAC'=HERE"
^XMB(3.9,122,2,2193,0)="""RTN"",""PSXVND"",22,0)"
^XMB(3.9,122,2,2194,0)=" I '$O(^PSRX(""B"",RX,0)) S FLAG=2 D TMP Q"
^XMB(3.9,122,2,2195,0)="""RTN"",""PSXVND"",23,0)"
^XMB(3.9,122,2,2196,0)=" S XX=0 F  S XX=$O(^PSRX(""B"",RX,XX)) Q:XX'>0  S (RXP,RXN)=XX,FLAG=0 D"
^XMB(3.9,122,2,2197,0)="""RTN"",""PSXVND"",24,0)"
^XMB(3.9,122,2,2198,0)=" .I '$G(BAT) Q"
^XMB(3.9,122,2,2199,0)="""RTN"",""PSXVND"",25,0)"
^XMB(3.9,122,2,2200,0)=" .I '$D(^PSRX(RXN,0)) S FLAG=2 D TMP Q"
^XMB(3.9,122,2,2201,0)="""RTN"",""PSXVND"",26,0)"
^XMB(3.9,122,2,2202,0)=" .L +^PSRX(RXN):DTIME I '$T S FLAG=2 D TMP Q"
^XMB(3.9,122,2,2203,0)="""RTN"",""PSXVND"",27,0)"
^XMB(3.9,122,2,2204,0)=" .I XFILL>0,('$D(^PSRX(RXN,1,XFILL,0))) S FLAG=6 D TMP Q"
^XMB(3.9,122,2,2205,0)="""RTN"",""PSXVND"",28,0)"
^XMB(3.9,122,2,2206,0)=" .I XFILL>0,($P(^PSRX(RXP,1,XFILL,0),""^"",18)'="""") S FLAG=1,RLDT=$P(^PSRX(RXP,1,XFILL,0),""^"",18) S:STAT=1&(RLDT=RELDT) FLAG=0 D:FLAG=0 TMP1 Q:'$G(FLAG)  D:FLAG=1 TMP Q"
^XMB(3.9,122,2,2207,0)="""RTN"",""PSXVND"",29,0)"
^XMB(3.9,122,2,2208,0)=" .I XFILL=0,($P(^PSRX(RXP,2),""^"",13)'="""") S FLAG=1,RLDT=$P(^PSRX(RXP,2),""^"",13) S:STAT=1&(RELDT=RLDT) FLAG=0 D:FLAG=0 TMP1 Q:'$G(FLAG)  D:FLAG=1 TMP Q"
^XMB(3.9,122,2,2209,0)="""RTN"",""PSXVND"",30,0)"
^XMB(3.9,122,2,2210,0)=" .I STAT=2 D"
^XMB(3.9,122,2,2211,0)="""RTN"",""PSXVND"",31,0)"
^XMB(3.9,122,2,2212,0)=" ..S RXDRG=$P(^PSRX(RXN,0),""^"",6),DFN=$P(^PSRX(RXN,0),""^"",2)"
^XMB(3.9,122,2,2213,0)="""RTN"",""PSXVND"",32,0)"
^XMB(3.9,122,2,2214,0)=" ..I $G(RXDRG)]"""" S CMOPNM=$P($G(^PSDRUG(RXDRG,0)),""^"")"
^XMB(3.9,122,2,2215,0)="""RTN"",""PSXVND"",33,0)"
^XMB(3.9,122,2,2216,0)=" ..I '$D(^PSDRUG(""AQ"",RXDRG)) S CMOPYN=1"
^XMB(3.9,122,2,2217,0)="""RTN"",""PSXVND"",34,0)"
^XMB(3.9,122,2,2218,0)=" ..I $D(^PSDRUG(RXDRG,""ND"")) S CMOPID=$P($G(^PSDRUG(RXDRG,""ND"")),""^"",10)"
^XMB(3.9,122,2,2219,0)="""RTN"",""PSXVND"",35,0)"
^XMB(3.9,122,2,2220,0)=" ..S DIV=$S(XFILL=0:$P(^PSRX(RXN,2),U,9),XFILL>0:$P(^PSRX(RXN,1,XFILL,0),U,9),1:"""")"
^XMB(3.9,122,2,2221,0)="""RTN"",""PSXVND"",36,0)"
^XMB(3.9,122,2,2222,0)=" ..S ^TMP(""PSXCAN1"",$J,DIV,DFN,RX)=$G(CMOPNM)_U_$G(CMOPID)_U_$G(QTY)_U_$G(DRG)_U_$G(CMOPYN)_U_REASON_U_$G(XFILL)_U_$G(BAT)"
^XMB(3.9,122,2,2223,0)="""RTN"",""PSXVND"",37,0)"
^XMB(3.9,122,2,2224,0)=" ..K CMOPNM,CMOPID,DRG,RXDRG,MATCH,CMOPYN,NDF1,NDF2,P1,P2,PSDDA"
^XMB(3.9,122,2,2225,0)="""RTN"",""PSXVND"",38,0)"
^XMB(3.9,122,2,2226,0)=" .I '$D(^PSRX(RXN,4,0)) S FLAG=5 D TMP Q"
^XMB(3.9,122,2,2227,0)="""RTN"",""PSXVND"",39,0)"
^XMB(3.9,122,2,2228,0)=" .I '$D(^PSRX(RXN,4,""B"",BAT)) S FLAG=4 D TMP Q"
^XMB(3.9,122,2,2229,0)="""RTN"",""PSXVND"",40,0)"
^XMB(3.9,122,2,2230,0)=" .I $D(^PSRX(RXN,4,""B"",BAT)) S RECD=$O(^PSRX(RXN,4,""B"",BAT,"""")),FILL=$P($G(^PSRX(RXN,4,RECD,0)),U,3),ZSTAT=$P(^PSRX(RXN,4,RECD,0),U,4)"
^XMB(3.9,122,2,2231,0)="""RTN"",""PSXVND"",41,0)"
^XMB(3.9,122,2,2232,0)=" .I ZSTAT=2 S RTN=0 F  S RTN=$O(^PSRX(RXN,4,RTN)) Q:RTN'>0  I $P(^PSRX(RXN,4,RTN,0),U,3)=FILL&($P(^PSRX(RXN,4,RTN,0),U,1)'=BAT) S DA(1)=RXN,DA=RTN,DIE=""^PSRX(""_DA(1)_"",4,"",DR=""3////2;8////FILLED IN TRANSMISSION ""_BAT D ^DIE K DA,DR,DIE"
^XMB(3.9,122,2,2233,0)="""RTN"",""PSXVND"",42,0)"
^XMB(3.9,122,2,2234,0)=" .I FILL'=XFILL S FLAG=3 D TMP Q"
^XMB(3.9,122,2,2235,0)="""RTN"",""PSXVND"",43,0)"
^XMB(3.9,122,2,2236,0)=" .S PSXREF=FILL"
^XMB(3.9,122,2,2237,0)="""RTN"",""PSXVND"",44,0)"
^XMB(3.9,122,2,2238,0)=" .Q:FLAG>0"
^XMB(3.9,122,2,2239,0)="""RTN"",""PSXVND"",45,0)"
^XMB(3.9,122,2,2240,0)=" .S PSXXMZ=XMZ"
^XMB(3.9,122,2,2241,0)="""RTN"",""PSXVND"",46,0)"
^XMB(3.9,122,2,2242,0)=" .D:$G(STAT)=1"
^XMB(3.9,122,2,2243,0)="""RTN"",""PSXVND"",47,0)"
^XMB(3.9,122,2,2244,0)=" ..N PSOPAR,PSOSITE,X D NOW^%DTC"
^XMB(3.9,122,2,2245,0)="""RTN"",""PSXVND"",48,0)"
^XMB(3.9,122,2,2246,0)=" ..I $G(PSXREF)>0 S PSOSITE=$P(^PSRX(RXP,1,PSXREF,0),""^"",9) G:$G(PSOSITE) PAR"
^XMB(3.9,122,2,2247,0)="""RTN"",""PSXVND"",49,0)"
^XMB(3.9,122,2,2248,0)=" ..S PSOSITE=$P(^PSRX(RXP,2),""^"",9),PSQUIT=0"
^XMB(3.9,122,2,2249,0)="""RTN"",""PSXVND"",50,0)"
^XMB(3.9,122,2,2250,0)=" ..I '$G(PSOSITE) S Z1=0 F  S Z1=$O(^PS(59,Z1)) Q:Z1=""""!(Z1=""B"")  D  Q:PSQUIT"
^XMB(3.9,122,2,2251,0)="""RTN"",""PSXVND"",51,0)"
^XMB(3.9,122,2,2252,0)=" ...I $D(^PS(59,Z1,""I""))&($P($G(^PS(59,Z1,""I"")),""^"")'="""") Q:$P($G(^PS(59,Z1,""I"")),""^"")'>X"
^XMB(3.9,122,2,2253,0)="""RTN"",""PSXVND"",52,0)"
^XMB(3.9,122,2,2254,0)=" ...S PSOSITE=Z1,PSQUIT=1"
^XMB(3.9,122,2,2255,0)="""RTN"",""PSXVND"",53,0)"
^XMB(3.9,122,2,2256,0)=" ..Q:'$G(PSOSITE)"
^XMB(3.9,122,2,2257,0)="""RTN"",""PSXVND"",54,0)"
^XMB(3.9,122,2,2258,0)="PAR ..S PSOPAR=$G(^PS(59,PSOSITE,1))"
^XMB(3.9,122,2,2259,0)="""RTN"",""PSXVND"",55,0)"
^XMB(3.9,122,2,2260,0)=" ..I $G(PSXREF)>0 S YY=PSXREF"
^XMB(3.9,122,2,2261,0)="""RTN"",""PSXVND"",56,0)"
^XMB(3.9,122,2,2262,0)=" ..I '$G(PSOSITE)!('$D(PSOPAR)) Q"
^XMB(3.9,122,2,2263,0)="""RTN"",""PSXVND"",57,0)"
^XMB(3.9,122,2,2264,0)=" ..D CP^PSOCP K YY,X"
^XMB(3.9,122,2,2265,0)="""RTN"",""PSXVND"",58,0)"
^XMB(3.9,122,2,2266,0)=" .S XMZ=PSXXMZ"
^XMB(3.9,122,2,2267,0)="""RTN"",""PSXVND"",59,0)"
^XMB(3.9,122,2,2268,0)=" .I $G(FILL)="""" Q"
^XMB(3.9,122,2,2269,0)="""RTN"",""PSXVND"",60,0)"
^XMB(3.9,122,2,2270,0)=" .I $G(STAT)=1 D"
^XMB(3.9,122,2,2271,0)="""RTN"",""PSXVND"",61,0)"
^XMB(3.9,122,2,2272,0)=" ..I FILL=0 S DA=RXN,DIE=""^PSRX("",DR=""31///""_RELDT D ^DIE K DIE,DA,DR"
^XMB(3.9,122,2,2273,0)="""RTN"",""PSXVND"",62,0)"
^XMB(3.9,122,2,2274,0)=" ..I FILL>0 S DA(1)=RXN,DA=FILL,DIE=""^PSRX(""_RXN_"",1,"",DR=""17///""_RELDT_"";10.1///""_RELDT D ^DIE K DIE,DR,DA"
^XMB(3.9,122,2,2275,0)="""RTN"",""PSXVND"",63,0)"
^XMB(3.9,122,2,2276,0)=" ..I $$VERSION^XPDUTL(""OUTPATIENT PHARMACY"")<7 S X=""RGEQ"" X ^%ZOSF(""TEST"") I  D EN^RGEQ(""RX"",RXN)  ;CIRN"
^XMB(3.9,122,2,2277,0)="""RTN"",""PSXVND"",64,0)"
^XMB(3.9,122,2,2278,0)=" ..I $$VERSION^XPDUTL(""OUTPATIENT PHARMACY"")>6 D EN^PSOHLSN1(RXN,""ZD"")"
^XMB(3.9,122,2,2279,0)="""RTN"",""PSXVND"",65,0)"
^XMB(3.9,122,2,2280,0)=" .S DA(1)=RXN,DA=RECD,DIE=""^PSRX(""_RXN_"",4,"""
^XMB(3.9,122,2,2281,0)="""RTN"",""PSXVND"",66,0)"
^XMB(3.9,122,2,2282,0)=" .S DR=""3////""_$S(STAT=2:3,STAT=1:1,1:"""")_"";4////""_NDC_"";5////""_$S(STAT=2:RELDT,STAT=1:"""",1:"""")_"";8////""_$S(STAT=2:""^S X=$G(REASON)"",STAT=1:"""",1:"""")_"";10////""_$G(CARRIER)_"";11////""_$G(PKGID)_"";9////""_$G(SHPDT)"
^XMB(3.9,122,2,2283,0)="""RTN"",""PSXVND"",67,0)"
^XMB(3.9,122,2,2284,0)=" .D ^DIE K DIE,DA,DR"
^XMB(3.9,122,2,2285,0)="""RTN"",""PSXVND"",68,0)"
^XMB(3.9,122,2,2286,0)=" .I $$PATCH^XPDUTL(""PSO*7.0*148"") D AUTOREL^PSOBPSUT(RXN,FILL,RELDT,NDC,""C"",$S(STAT=1:""S"",1:""U""),60)"
^XMB(3.9,122,2,2287,0)="""RTN"",""PSXVND"",69,0)"
^XMB(3.9,122,2,2288,0)=" I $D(^PSRX(RXN)) L -^PSRX(RXN):0"
^XMB(3.9,122,2,2289,0)="""RTN"",""PSXVND"",70,0)"
^XMB(3.9,122,2,2290,0)="TMP1 Q:$G(FLAG)'=0!('$G(BAT))"
^XMB(3.9,122,2,2291,0)="""RTN"",""PSXVND"",71,0)"
^XMB(3.9,122,2,2292,0)=" D NOW^%DTC S PSXTM=%"
^XMB(3.9,122,2,2293,0)="""RTN"",""PSXVND"",72,0)"
^XMB(3.9,122,2,2294,0)=" S ^TMP($J,""PSXREL"",CNT)=RX_""^""_PSXTM_""^""_P515A_""^""_P515B_""^""_XFILL_""^""_HERE"
^XMB(3.9,122,2,2295,0)="""RTN"",""PSXVND"",73,0)"
^XMB(3.9,122,2,2296,0)=" S CNT=CNT+1"
^XMB(3.9,122,2,2297,0)="""RTN"",""PSXVND"",74,0)"
^XMB(3.9,122,2,2298,0)=" Q"
^XMB(3.9,122,2,2299,0)="""RTN"",""PSXVND"",75,0)"
^XMB(3.9,122,2,2300,0)=" ;"
^XMB(3.9,122,2,2301,0)="""RTN"",""PSXVND"",76,0)"
^XMB(3.9,122,2,2302,0)="LOT S ALOT=$P(XMRG,""|"",2)"
^XMB(3.9,122,2,2303,0)="""RTN"",""PSXVND"",77,0)"
^XMB(3.9,122,2,2304,0)=" I $G(ALOT)'="""" D"
^XMB(3.9,122,2,2305,0)="""RTN"",""PSXVND"",78,0)"
^XMB(3.9,122,2,2306,0)=" .K DD,DO"
^XMB(3.9,122,2,2307,0)="""RTN"",""PSXVND"",79,0)"
^XMB(3.9,122,2,2308,0)=" .S:'$D(^PSRX(RXN,5,0)) ^PSRX(RXN,5,0)=""^52.0401A^^"""
^XMB(3.9,122,2,2309,0)="""RTN"",""PSXVND"",80,0)"
^XMB(3.9,122,2,2310,0)=" .F RR=1:1 Q:$P(ALOT,""\"",RR)=""""  S LOT1=$P(ALOT,""\"",RR),LOT=$P(LOT1,""^"",1),EXDT=$P(LOT1,""^"",2) D"
^XMB(3.9,122,2,2311,0)="""RTN"",""PSXVND"",81,0)"
^XMB(3.9,122,2,2312,0)=" ..S DA(1)=RXN,X=LOT,DIC=""^PSRX(""_RXN_"",5,"",DIC(""DR"")=""1////""_EXDT_"";2////""_XFILL,DIC(0)=""Z"""
^XMB(3.9,122,2,2313,0)="""RTN"",""PSXVND"",82,0)"
^XMB(3.9,122,2,2314,0)="FF ..D FILE^DICN K DIC(""DR""),DIC,DA,LOT,EXDT"
^XMB(3.9,122,2,2315,0)="""RTN"",""PSXVND"",83,0)"
^XMB(3.9,122,2,2316,0)=" Q"
^XMB(3.9,122,2,2317,0)="""RTN"",""PSXVND"",84,0)"
^XMB(3.9,122,2,2318,0)="TMP S ^TMP($J,""PSXVND"",RX)=FLAG_""^""_XFILL_""^""_P515A_""^""_P515B_""^""_HERE_""^""_$S(FLAG=1:RLDT,1:"""") Q"
^XMB(3.9,122,2,2319,0)="""RTN"",""PSXVND"",85,0)"
^XMB(3.9,122,2,2320,0)="MAIL S XMSUB=""CMOP Release Data Acknowledgement"",LCNT=1,XMDUZ=.5"
^XMB(3.9,122,2,2321,0)="""RTN"",""PSXVND"",86,0)"
^XMB(3.9,122,2,2322,0)="MM D XMZ^XMA2 G:XMZ<1 MM"
^XMB(3.9,122,2,2323,0)="""RTN"",""PSXVND"",87,0)"
^XMB(3.9,122,2,2324,0)=" S ^XMB(3.9,XMZ,2,LCNT,0)=""$$RTN^""_MSNUM_""^""_HERE,LCNT=LCNT+1"
^XMB(3.9,122,2,2325,0)="""RTN"",""PSXVND"",88,0)"
^XMB(3.9,122,2,2326,0)=" F CC=0:0 S CC=$O(^TMP($J,""PSXREL"",CC)) Q:CC'>0  D"
^XMB(3.9,122,2,2327,0)="""RTN"",""PSXVND"",89,0)"
^XMB(3.9,122,2,2328,0)=" .S ^XMB(3.9,XMZ,2,LCNT,0)=""$RX^""_$G(^TMP($J,""PSXREL"",CC)),LCNT=LCNT+1"
^XMB(3.9,122,2,2329,0)="""RTN"",""PSXVND"",90,0)"
^XMB(3.9,122,2,2330,0)=" S ^XMB(3.9,XMZ,2,LCNT,0)=""$$INV"""
^XMB(3.9,122,2,2331,0)="""RTN"",""PSXVND"",91,0)"
^XMB(3.9,122,2,2332,0)=" S CC="""" F  S CC=$O(^TMP($J,""PSXVND"",CC)) Q:CC=""""  S RXN=CC D"
^XMB(3.9,122,2,2333,0)="""RTN"",""PSXVND"",92,0)"
^XMB(3.9,122,2,2334,0)=" .S LCNT=LCNT+1 D NOW^%DTC S PSXTM=%   ;added for PSX*2*36"
^XMB(3.9,122,2,2335,0)="""RTN"",""PSXVND"",93,0)"
^XMB(3.9,122,2,2336,0)=" .S ^XMB(3.9,XMZ,2,LCNT,0)=""$RXN""_""^""_RXN_""^""_$G(^TMP($J,""PSXVND"",CC))_""^""_PSXTM"
^XMB(3.9,122,2,2337,0)="""RTN"",""PSXVND"",94,0)"
^XMB(3.9,122,2,2338,0)=" S ^XMB(3.9,XMZ,2,LCNT+1,0)=""$$ENDINV"""
^XMB(3.9,122,2,2339,0)="""RTN"",""PSXVND"",95,0)"
^XMB(3.9,122,2,2340,0)=" S ^XMB(3.9,XMZ,2,0)=""^3.92A^""_LCNT_U_LCNT_U_DT,XMDUN=""CMOP Manager"""
^XMB(3.9,122,2,2341,0)="""RTN"",""PSXVND"",96,0)"
^XMB(3.9,122,2,2342,0)=" K XMY S XMY(""S.PSXX CMOP SERVER""_DOMAIN)="""" D ENT1^XMD"
^XMB(3.9,122,2,2343,0)="""RTN"",""PSXVND"",97,0)"
^XMB(3.9,122,2,2344,0)=" ;D ER6^PSXERR Q"
^XMB(3.9,122,2,2345,0)="""RTN"",""PSXVND"",98,0)"
^XMB(3.9,122,2,2346,0)=" D:$D(^TMP(""PSXCAN1"",$J)) CAN^PSXMSGS"
^XMB(3.9,122,2,2347,0)="""RTN"",""PSXVND"",99,0)"
^XMB(3.9,122,2,2348,0)="EXIT S XMSER=""S.PSXX CMOP SERVER"",XMZ=TXMZ D REMSBMSG^XMA1C"
^XMB(3.9,122,2,2349,0)="""RTN"",""PSXVND"",100,0)"
^XMB(3.9,122,2,2350,0)="EXIT1 K XMSUB,XMDUZ,XMDUN,XMY,LCNT,XMZ,CC,PSXREL,CNT,Y,X,RR,LOT,LOT1,EXDT,ALOT"
^XMB(3.9,122,2,2351,0)="""RTN"",""PSXVND"",101,0)"
^XMB(3.9,122,2,2352,0)=" K RXN,RX,DLAYGO,FACBAT,FILL,FROM,NDC,P514,REASON,RELDT,STAT,XMREC,XMRG"
^XMB(3.9,122,2,2353,0)="""RTN"",""PSXVND"",102,0)"
^XMB(3.9,122,2,2354,0)=" K ^TMP($J,""PSXVND""),^TMP($J,""PSXREL""),RLDT,FLAG,TXMRG,PSXXMZ,ZSTAT,PSXTM"
^XMB(3.9,122,2,2355,0)="""RTN"",""PSXVND"",103,0)"
^XMB(3.9,122,2,2356,0)=" K XQMSG,XQSOP,XX,ZZZ,%,DAT,DOMAIN,PSXJOB,PSXREF,RECD,RXP,TXMZ,XMZ,XMER"
^XMB(3.9,122,2,2357,0)="""RTN"",""PSXVND"",104,0)"
^XMB(3.9,122,2,2358,0)=" K XMFROM,XMSER,BAT,PSXREFL,XFILL,FAC,HERE,P515A,P515B,SITE,MSNUM"
^XMB(3.9,122,2,2359,0)="""RTN"",""PSXVND"",105,0)"
^XMB(3.9,122,2,2360,0)=" K DIQ,DIV,QTY,PSXUTIL,SHPDT,Z1,PSQUIT"
^XMB(3.9,122,2,2361,0)="""RTN"",""PSXVND"",106,0)"
^XMB(3.9,122,2,2362,0)=" Q"
^XMB(3.9,122,2,2363,0)="""VER"")"
^XMB(3.9,122,2,2364,0)="8.0^22.0"
^XMB(3.9,122,2,2365,0)="""BLD"",4586,6)"
^XMB(3.9,122,2,2366,0)="^51"
^XMB(3.9,122,2,2367,0)="$END KID PSX*2.0*48"
^XMB(3.9,122,6,0)="^3.911A^2^2"
^XMB(3.9,122,6,1,0)="POSTMASTER"
^XMB(3.9,122,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,122,6,"B","POSTMASTER",1)=""
^XMB(3.9,122,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,123,0)="PSX-2_SEQ-52_PAT-62.KID^.5^3061008.015741^^^^K"
^XMB(3.9,123,.6)="3061008"
^XMB(3.9,123,1,0)="^3.91A^2^2"
^XMB(3.9,123,1,1,0)=".5^0^3061008.015741^^^^^^^3061008.015741"
^XMB(3.9,123,1,2,0)="1^0^3061008.022545^^^^^^^3061008.022545"
^XMB(3.9,123,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,123,1,"C",.5,1)=""
^XMB(3.9,123,1,"C",1,2)=""
^XMB(3.9,123,2,0)="^^1221^1221^3061008"
^XMB(3.9,123,2,1,0)="$TXT Released PSX*2*62 SEQ #52"
^XMB(3.9,123,2,2,0)="Extracted from mail message"
^XMB(3.9,123,2,3,0)="$END TXT"
^XMB(3.9,123,2,4,0)="$KID PSX*2.0*62"
^XMB(3.9,123,2,5,0)="**INSTALL NAME**"
^XMB(3.9,123,2,6,0)="PSX*2.0*62"
^XMB(3.9,123,2,7,0)="""BLD"",5760,0)"
^XMB(3.9,123,2,8,0)="PSX*2.0*62^CMOP^0^3060724^y"
^XMB(3.9,123,2,9,0)="""BLD"",5760,1,0)"
^XMB(3.9,123,2,10,0)="^^28^28^3060724^^^^"
^XMB(3.9,123,2,11,0)="""BLD"",5760,1,1,0)"
^XMB(3.9,123,2,12,0)="This patch supports the National Council for Prescription Drug Programs (NCPDP) "
^XMB(3.9,123,2,13,0)="""BLD"",5760,1,2,0)"
^XMB(3.9,123,2,14,0)="standard which was adopted under the Healthcare Insurance Portability and "
^XMB(3.9,123,2,15,0)="""BLD"",5760,1,3,0)"
^XMB(3.9,123,2,16,0)="Accountability Act (HIPAA) for pharmacy claims. This patch is one of six to be"
^XMB(3.9,123,2,17,0)="""BLD"",5760,1,4,0)"
^XMB(3.9,123,2,18,0)="released.  Three patches will be released in a KIDS multi-build distribution "
^XMB(3.9,123,2,19,0)="""BLD"",5760,1,5,0)"
^XMB(3.9,123,2,20,0)="containing: BPS*1*3, PSO*7*247, and IB*2*342.  Three patches will be released"
^XMB(3.9,123,2,21,0)="""BLD"",5760,1,6,0)"
^XMB(3.9,123,2,22,0)="individually and they are: PRCA*4.5*247, PSX*2*62, and PSS*1*115."
^XMB(3.9,123,2,23,0)="""BLD"",5760,1,7,0)"
^XMB(3.9,123,2,24,0)=" "
^XMB(3.9,123,2,25,0)="""BLD"",5760,1,8,0)"
^XMB(3.9,123,2,26,0)="Enhancements included in the release of the six patches are a new option that "
^XMB(3.9,123,2,27,0)="""BLD"",5760,1,9,0)"
^XMB(3.9,123,2,28,0)="will enable the user to reopen a closed Electronic Claims Management Engine"
^XMB(3.9,123,2,29,0)="""BLD"",5760,1,10,0)"
^XMB(3.9,123,2,30,0)="(ECME) claim; updates to the Rx Activity Log; and permanent storage of Claims"
^XMB(3.9,123,2,31,0)="""BLD"",5760,1,11,0)"
^XMB(3.9,123,2,32,0)="activity information as reported by the ECME Billing Events Report."
^XMB(3.9,123,2,33,0)="""BLD"",5760,1,12,0)"
^XMB(3.9,123,2,34,0)=" "
^XMB(3.9,123,2,35,0)="""BLD"",5760,1,13,0)"
^XMB(3.9,123,2,36,0)="This patch modifies the CMOP application in the following ways:"
^XMB(3.9,123,2,37,0)="""BLD"",5760,1,14,0)"
^XMB(3.9,123,2,38,0)=" "
^XMB(3.9,123,2,39,0)="""BLD"",5760,1,15,0)"
^XMB(3.9,123,2,40,0)="1) The process responsible for transmitting of prescriptions to the "
^XMB(3.9,123,2,41,0)="""BLD"",5760,1,16,0)"
^XMB(3.9,123,2,42,0)="   Consolidated Mailout Outpatient Pharmacy (CMOP) facilities was changed to"
^XMB(3.9,123,2,43,0)="""BLD"",5760,1,17,0)"
^XMB(3.9,123,2,44,0)="   perform the following check: "
^XMB(3.9,123,2,45,0)="""BLD"",5760,1,18,0)"
^XMB(3.9,123,2,46,0)=" "
^XMB(3.9,123,2,47,0)="""BLD"",5760,1,19,0)"
^XMB(3.9,123,2,48,0)="   For ePharmacy prescriptions only, before a fill can be transmitted to "
^XMB(3.9,123,2,49,0)="""BLD"",5760,1,20,0)"
^XMB(3.9,123,2,50,0)="   the CMOP facility, the previous fill cannot be pending to be filled at"
^XMB(3.9,123,2,51,0)="""BLD"",5760,1,21,0)"
^XMB(3.9,123,2,52,0)="   the CMOP facility. For example, before transmitting refill 1 to the "
^XMB(3.9,123,2,53,0)="""BLD"",5760,1,22,0)"
^XMB(3.9,123,2,54,0)="   CMOP facility, the software will check if the original is currently"
^XMB(3.9,123,2,55,0)="""BLD"",5760,1,23,0)"
^XMB(3.9,123,2,56,0)="   being filled by CMOP. If so, the refill 1 will be held until the "
^XMB(3.9,123,2,57,0)="""BLD"",5760,1,24,0)"
^XMB(3.9,123,2,58,0)="   original fill process is completed by the CMOP facility. "
^XMB(3.9,123,2,59,0)="""BLD"",5760,1,25,0)"
^XMB(3.9,123,2,60,0)=" "
^XMB(3.9,123,2,61,0)="""BLD"",5760,1,26,0)"
^XMB(3.9,123,2,62,0)="2) Changed the second line of the routine PSXVND by adding the patch"
^XMB(3.9,123,2,63,0)="""BLD"",5760,1,27,0)"
^XMB(3.9,123,2,64,0)="   numbers 1 and 2 to the list of patches. These patch numbers were"
^XMB(3.9,123,2,65,0)="""BLD"",5760,1,28,0)"
^XMB(3.9,123,2,66,0)="   unintentionally removed by patch PSX*2*48."
^XMB(3.9,123,2,67,0)="""BLD"",5760,4,0)"
^XMB(3.9,123,2,68,0)="^9.64PA^^"
^XMB(3.9,123,2,69,0)="""BLD"",5760,6.3)"
^XMB(3.9,123,2,70,0)="12"
^XMB(3.9,123,2,71,0)="""BLD"",5760,""KRN"",0)"
^XMB(3.9,123,2,72,0)="^9.67PA^8989.52^19"
^XMB(3.9,123,2,73,0)="""BLD"",5760,""KRN"",.4,0)"
^XMB(3.9,123,2,74,0)=".4"
^XMB(3.9,123,2,75,0)="""BLD"",5760,""KRN"",.401,0)"
^XMB(3.9,123,2,76,0)=".401"
^XMB(3.9,123,2,77,0)="""BLD"",5760,""KRN"",.402,0)"
^XMB(3.9,123,2,78,0)=".402"
^XMB(3.9,123,2,79,0)="""BLD"",5760,""KRN"",.403,0)"
^XMB(3.9,123,2,80,0)=".403"
^XMB(3.9,123,2,81,0)="""BLD"",5760,""KRN"",.5,0)"
^XMB(3.9,123,2,82,0)=".5"
^XMB(3.9,123,2,83,0)="""BLD"",5760,""KRN"",.84,0)"
^XMB(3.9,123,2,84,0)=".84"
^XMB(3.9,123,2,85,0)="""BLD"",5760,""KRN"",3.6,0)"
^XMB(3.9,123,2,86,0)="3.6"
^XMB(3.9,123,2,87,0)="""BLD"",5760,""KRN"",3.8,0)"
^XMB(3.9,123,2,88,0)="3.8"
^XMB(3.9,123,2,89,0)="""BLD"",5760,""KRN"",9.2,0)"
^XMB(3.9,123,2,90,0)="9.2"
^XMB(3.9,123,2,91,0)="""BLD"",5760,""KRN"",9.8,0)"
^XMB(3.9,123,2,92,0)="9.8"
^XMB(3.9,123,2,93,0)="""BLD"",5760,""KRN"",9.8,""NM"",0)"
^XMB(3.9,123,2,94,0)="^9.68A^3^3"
^XMB(3.9,123,2,95,0)="""BLD"",5760,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,123,2,96,0)="PSXVND^^0^B36289090"
^XMB(3.9,123,2,97,0)="""BLD"",5760,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,123,2,98,0)="PSXRPPL^^0^B61160775"
^XMB(3.9,123,2,99,0)="""BLD"",5760,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,123,2,100,0)="PSXRPPL1^^0^B46995301"
^XMB(3.9,123,2,101,0)="""BLD"",5760,""KRN"",9.8,""NM"",""B"",""PSXRPPL"",2)"
^XMB(3.9,123,2,102,0)=""
^XMB(3.9,123,2,103,0)="""BLD"",5760,""KRN"",9.8,""NM"",""B"",""PSXRPPL1"",3)"
^XMB(3.9,123,2,104,0)=""
^XMB(3.9,123,2,105,0)="""BLD"",5760,""KRN"",9.8,""NM"",""B"",""PSXVND"",1)"
^XMB(3.9,123,2,106,0)=""
^XMB(3.9,123,2,107,0)="""BLD"",5760,""KRN"",19,0)"
^XMB(3.9,123,2,108,0)="19"
^XMB(3.9,123,2,109,0)="""BLD"",5760,""KRN"",19.1,0)"
^XMB(3.9,123,2,110,0)="19.1"
^XMB(3.9,123,2,111,0)="""BLD"",5760,""KRN"",101,0)"
^XMB(3.9,123,2,112,0)="101"
^XMB(3.9,123,2,113,0)="""BLD"",5760,""KRN"",409.61,0)"
^XMB(3.9,123,2,114,0)="409.61"
^XMB(3.9,123,2,115,0)="""BLD"",5760,""KRN"",771,0)"
^XMB(3.9,123,2,116,0)="771"
^XMB(3.9,123,2,117,0)="""BLD"",5760,""KRN"",870,0)"
^XMB(3.9,123,2,118,0)="870"
^XMB(3.9,123,2,119,0)="""BLD"",5760,""KRN"",8989.51,0)"
^XMB(3.9,123,2,120,0)="8989.51"
^XMB(3.9,123,2,121,0)="""BLD"",5760,""KRN"",8989.52,0)"
^XMB(3.9,123,2,122,0)="8989.52"
^XMB(3.9,123,2,123,0)="""BLD"",5760,""KRN"",8994,0)"
^XMB(3.9,123,2,124,0)="8994"
^XMB(3.9,123,2,125,0)="""BLD"",5760,""KRN"",""B"",.4,.4)"
^XMB(3.9,123,2,126,0)=""
^XMB(3.9,123,2,127,0)="""BLD"",5760,""KRN"",""B"",.401,.401)"
^XMB(3.9,123,2,128,0)=""
^XMB(3.9,123,2,129,0)="""BLD"",5760,""KRN"",""B"",.402,.402)"
^XMB(3.9,123,2,130,0)=""
^XMB(3.9,123,2,131,0)="""BLD"",5760,""KRN"",""B"",.403,.403)"
^XMB(3.9,123,2,132,0)=""
^XMB(3.9,123,2,133,0)="""BLD"",5760,""KRN"",""B"",.5,.5)"
^XMB(3.9,123,2,134,0)=""
^XMB(3.9,123,2,135,0)="""BLD"",5760,""KRN"",""B"",.84,.84)"
^XMB(3.9,123,2,136,0)=""
^XMB(3.9,123,2,137,0)="""BLD"",5760,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,123,2,138,0)=""
^XMB(3.9,123,2,139,0)="""BLD"",5760,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,123,2,140,0)=""
^XMB(3.9,123,2,141,0)="""BLD"",5760,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,123,2,142,0)=""
^XMB(3.9,123,2,143,0)="""BLD"",5760,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,123,2,144,0)=""
^XMB(3.9,123,2,145,0)="""BLD"",5760,""KRN"",""B"",19,19)"
^XMB(3.9,123,2,146,0)=""
^XMB(3.9,123,2,147,0)="""BLD"",5760,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,123,2,148,0)=""
^XMB(3.9,123,2,149,0)="""BLD"",5760,""KRN"",""B"",101,101)"
^XMB(3.9,123,2,150,0)=""
^XMB(3.9,123,2,151,0)="""BLD"",5760,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,123,2,152,0)=""
^XMB(3.9,123,2,153,0)="""BLD"",5760,""KRN"",""B"",771,771)"
^XMB(3.9,123,2,154,0)=""
^XMB(3.9,123,2,155,0)="""BLD"",5760,""KRN"",""B"",870,870)"
^XMB(3.9,123,2,156,0)=""
^XMB(3.9,123,2,157,0)="""BLD"",5760,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,123,2,158,0)=""
^XMB(3.9,123,2,159,0)="""BLD"",5760,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,123,2,160,0)=""
^XMB(3.9,123,2,161,0)="""BLD"",5760,""KRN"",""B"",8994,8994)"
^XMB(3.9,123,2,162,0)=""
^XMB(3.9,123,2,163,0)="""BLD"",5760,""QUES"",0)"
^XMB(3.9,123,2,164,0)="^9.62^^"
^XMB(3.9,123,2,165,0)="""BLD"",5760,""REQB"",0)"
^XMB(3.9,123,2,166,0)="^9.611^1^1"
^XMB(3.9,123,2,167,0)="""BLD"",5760,""REQB"",1,0)"
^XMB(3.9,123,2,168,0)="PSX*2.0*48^2"
^XMB(3.9,123,2,169,0)="""BLD"",5760,""REQB"",""B"",""PSX*2.0*48"",1)"
^XMB(3.9,123,2,170,0)=""
^XMB(3.9,123,2,171,0)="""MBREQ"")"
^XMB(3.9,123,2,172,0)="0"
^XMB(3.9,123,2,173,0)="""PKG"",526,-1)"
^XMB(3.9,123,2,174,0)="1^1"
^XMB(3.9,123,2,175,0)="""PKG"",526,0)"
^XMB(3.9,123,2,176,0)="CMOP^PSX^CONSOLIDATED MAIL OUTPATIENT PHARMACY"
^XMB(3.9,123,2,177,0)="""PKG"",526,22,0)"
^XMB(3.9,123,2,178,0)="^9.49I^1^1"
^XMB(3.9,123,2,179,0)="""PKG"",526,22,1,0)"
^XMB(3.9,123,2,180,0)="2.0^3000210^3000217^11853"
^XMB(3.9,123,2,181,0)="""PKG"",526,22,1,""PAH"",1,0)"
^XMB(3.9,123,2,182,0)="62^3060724"
^XMB(3.9,123,2,183,0)="""PKG"",526,22,1,""PAH"",1,1,0)"
^XMB(3.9,123,2,184,0)="^^28^28^3060724"
^XMB(3.9,123,2,185,0)="""PKG"",526,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,123,2,186,0)="This patch supports the National Council for Prescription Drug Programs (NCPDP) "
^XMB(3.9,123,2,187,0)="""PKG"",526,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,123,2,188,0)="standard which was adopted under the Healthcare Insurance Portability and "
^XMB(3.9,123,2,189,0)="""PKG"",526,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,123,2,190,0)="Accountability Act (HIPAA) for pharmacy claims. This patch is one of six to be"
^XMB(3.9,123,2,191,0)="""PKG"",526,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,123,2,192,0)="released.  Three patches will be released in a KIDS multi-build distribution "
^XMB(3.9,123,2,193,0)="""PKG"",526,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,123,2,194,0)="containing: BPS*1*3, PSO*7*247, and IB*2*342.  Three patches will be released"
^XMB(3.9,123,2,195,0)="""PKG"",526,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,123,2,196,0)="individually and they are: PRCA*4.5*247, PSX*2*62, and PSS*1*115."
^XMB(3.9,123,2,197,0)="""PKG"",526,22,1,""PAH"",1,1,7,0)"
^XMB(3.9,123,2,198,0)=" "
^XMB(3.9,123,2,199,0)="""PKG"",526,22,1,""PAH"",1,1,8,0)"
^XMB(3.9,123,2,200,0)="Enhancements included in the release of the six patches are a new option that "
^XMB(3.9,123,2,201,0)="""PKG"",526,22,1,""PAH"",1,1,9,0)"
^XMB(3.9,123,2,202,0)="will enable the user to reopen a closed Electronic Claims Management Engine"
^XMB(3.9,123,2,203,0)="""PKG"",526,22,1,""PAH"",1,1,10,0)"
^XMB(3.9,123,2,204,0)="(ECME) claim; updates to the Rx Activity Log; and permanent storage of Claims"
^XMB(3.9,123,2,205,0)="""PKG"",526,22,1,""PAH"",1,1,11,0)"
^XMB(3.9,123,2,206,0)="activity information as reported by the ECME Billing Events Report."
^XMB(3.9,123,2,207,0)="""PKG"",526,22,1,""PAH"",1,1,12,0)"
^XMB(3.9,123,2,208,0)=" "
^XMB(3.9,123,2,209,0)="""PKG"",526,22,1,""PAH"",1,1,13,0)"
^XMB(3.9,123,2,210,0)="This patch modifies the CMOP application in the following ways:"
^XMB(3.9,123,2,211,0)="""PKG"",526,22,1,""PAH"",1,1,14,0)"
^XMB(3.9,123,2,212,0)=" "
^XMB(3.9,123,2,213,0)="""PKG"",526,22,1,""PAH"",1,1,15,0)"
^XMB(3.9,123,2,214,0)="1) The process responsible for transmitting of prescriptions to the "
^XMB(3.9,123,2,215,0)="""PKG"",526,22,1,""PAH"",1,1,16,0)"
^XMB(3.9,123,2,216,0)="   Consolidated Mailout Outpatient Pharmacy (CMOP) facilities was changed to"
^XMB(3.9,123,2,217,0)="""PKG"",526,22,1,""PAH"",1,1,17,0)"
^XMB(3.9,123,2,218,0)="   perform the following check: "
^XMB(3.9,123,2,219,0)="""PKG"",526,22,1,""PAH"",1,1,18,0)"
^XMB(3.9,123,2,220,0)=" "
^XMB(3.9,123,2,221,0)="""PKG"",526,22,1,""PAH"",1,1,19,0)"
^XMB(3.9,123,2,222,0)="   For ePharmacy prescriptions only, before a fill can be transmitted to "
^XMB(3.9,123,2,223,0)="""PKG"",526,22,1,""PAH"",1,1,20,0)"
^XMB(3.9,123,2,224,0)="   the CMOP facility, the previous fill cannot be pending to be filled at"
^XMB(3.9,123,2,225,0)="""PKG"",526,22,1,""PAH"",1,1,21,0)"
^XMB(3.9,123,2,226,0)="   the CMOP facility. For example, before transmitting refill 1 to the "
^XMB(3.9,123,2,227,0)="""PKG"",526,22,1,""PAH"",1,1,22,0)"
^XMB(3.9,123,2,228,0)="   CMOP facility, the software will check if the original is currently"
^XMB(3.9,123,2,229,0)="""PKG"",526,22,1,""PAH"",1,1,23,0)"
^XMB(3.9,123,2,230,0)="   being filled by CMOP. If so, the refill 1 will be held until the "
^XMB(3.9,123,2,231,0)="""PKG"",526,22,1,""PAH"",1,1,24,0)"
^XMB(3.9,123,2,232,0)="   original fill process is completed by the CMOP facility. "
^XMB(3.9,123,2,233,0)="""PKG"",526,22,1,""PAH"",1,1,25,0)"
^XMB(3.9,123,2,234,0)=" "
^XMB(3.9,123,2,235,0)="""PKG"",526,22,1,""PAH"",1,1,26,0)"
^XMB(3.9,123,2,236,0)="2) Changed the second line of the routine PSXVND by adding the patch"
^XMB(3.9,123,2,237,0)="""PKG"",526,22,1,""PAH"",1,1,27,0)"
^XMB(3.9,123,2,238,0)="   numbers 1 and 2 to the list of patches. These patch numbers were"
^XMB(3.9,123,2,239,0)="""PKG"",526,22,1,""PAH"",1,1,28,0)"
^XMB(3.9,123,2,240,0)="   unintentionally removed by patch PSX*2*48."
^XMB(3.9,123,2,241,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,123,2,242,0)="Y"
^XMB(3.9,123,2,243,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,123,2,244,0)="^D REP^XPDH"
^XMB(3.9,123,2,245,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,123,2,246,0)="Shall I write over your |FLAG| File"
^XMB(3.9,123,2,247,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,123,2,248,0)="YES"
^XMB(3.9,123,2,249,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,123,2,250,0)="D XPF1^XPDIQ"
^XMB(3.9,123,2,251,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,123,2,252,0)="Y"
^XMB(3.9,123,2,253,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,123,2,254,0)="^D DTA^XPDH"
^XMB(3.9,123,2,255,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,123,2,256,0)="Want my data |FLAG| yours"
^XMB(3.9,123,2,257,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,123,2,258,0)="YES"
^XMB(3.9,123,2,259,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,123,2,260,0)="D XPF2^XPDIQ"
^XMB(3.9,123,2,261,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,123,2,262,0)="YO"
^XMB(3.9,123,2,263,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,123,2,264,0)="^D INHIBIT^XPDH"
^XMB(3.9,123,2,265,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,123,2,266,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,123,2,267,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,123,2,268,0)="YES"
^XMB(3.9,123,2,269,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,123,2,270,0)="D XPI1^XPDIQ"
^XMB(3.9,123,2,271,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,123,2,272,0)="PO^VA(200,:EM"
^XMB(3.9,123,2,273,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,123,2,274,0)="^D MG^XPDH"
^XMB(3.9,123,2,275,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,123,2,276,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,123,2,277,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,123,2,278,0)=""
^XMB(3.9,123,2,279,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,123,2,280,0)="D XPM1^XPDIQ"
^XMB(3.9,123,2,281,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,123,2,282,0)="Y"
^XMB(3.9,123,2,283,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,123,2,284,0)="^D MENU^XPDH"
^XMB(3.9,123,2,285,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,123,2,286,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,123,2,287,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,123,2,288,0)="YES"
^XMB(3.9,123,2,289,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,123,2,290,0)="D XPO1^XPDIQ"
^XMB(3.9,123,2,291,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,123,2,292,0)="Y"
^XMB(3.9,123,2,293,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,123,2,294,0)="^D OPT^XPDH"
^XMB(3.9,123,2,295,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,123,2,296,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,123,2,297,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,123,2,298,0)="YES"
^XMB(3.9,123,2,299,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,123,2,300,0)="D XPZ1^XPDIQ"
^XMB(3.9,123,2,301,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,123,2,302,0)="Y"
^XMB(3.9,123,2,303,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,123,2,304,0)="^D RTN^XPDH"
^XMB(3.9,123,2,305,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,123,2,306,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,123,2,307,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,123,2,308,0)="NO"
^XMB(3.9,123,2,309,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,123,2,310,0)="D XPZ2^XPDIQ"
^XMB(3.9,123,2,311,0)="""RTN"")"
^XMB(3.9,123,2,312,0)="3"
^XMB(3.9,123,2,313,0)="""RTN"",""PSXRPPL"")"
^XMB(3.9,123,2,314,0)="0^2^B61160775^B60595738"
^XMB(3.9,123,2,315,0)="""RTN"",""PSXRPPL"",1,0)"
^XMB(3.9,123,2,316,0)="PSXRPPL ;BIR/WPB,BAB-Gathers data for the CMOP Transmission ;13 Mar 2002  10:31 AM"
^XMB(3.9,123,2,317,0)="""RTN"",""PSXRPPL"",2,0)"
^XMB(3.9,123,2,318,0)=" ;;2.0;CMOP;**3,23,33,28,40,42,41,48,62**;11 Apr 97;Build 12"
^XMB(3.9,123,2,319,0)="""RTN"",""PSXRPPL"",3,0)"
^XMB(3.9,123,2,320,0)=" ;Reference to ^PS(52.5,  supported by DBIA #1978"
^XMB(3.9,123,2,321,0)="""RTN"",""PSXRPPL"",4,0)"
^XMB(3.9,123,2,322,0)=" ;Reference to ^PSRX(     supported by DBIA #1977"
^XMB(3.9,123,2,323,0)="""RTN"",""PSXRPPL"",5,0)"
^XMB(3.9,123,2,324,0)=" ;Reference to ^PSOHLSN1  supported by DBIA #2385"
^XMB(3.9,123,2,325,0)="""RTN"",""PSXRPPL"",6,0)"
^XMB(3.9,123,2,326,0)=" ;Reference to ^PSORXL    supported by DBIA #1969"
^XMB(3.9,123,2,327,0)="""RTN"",""PSXRPPL"",7,0)"
^XMB(3.9,123,2,328,0)=" ;Reference to ^PSOLSET   supported by DBIA #1973"
^XMB(3.9,123,2,329,0)="""RTN"",""PSXRPPL"",8,0)"
^XMB(3.9,123,2,330,0)=" ;Reference to %ZIS(1     supported by DBIA #290"
^XMB(3.9,123,2,331,0)="""RTN"",""PSXRPPL"",9,0)"
^XMB(3.9,123,2,332,0)=" ;Reference to %ZIS(2     supported by DBIA #2247"
^XMB(3.9,123,2,333,0)="""RTN"",""PSXRPPL"",10,0)"
^XMB(3.9,123,2,334,0)=" ;Reference to ^PSSLOCK   supported by DBIA #2789"
^XMB(3.9,123,2,335,0)="""RTN"",""PSXRPPL"",11,0)"
^XMB(3.9,123,2,336,0)=" ;Reference to ^XTMP(""ORLK-"" supported by DBIA #4001"
^XMB(3.9,123,2,337,0)="""RTN"",""PSXRPPL"",12,0)"
^XMB(3.9,123,2,338,0)=" ;Reference to ^PSOBPSUT supported by DBIA #4701"
^XMB(3.9,123,2,339,0)="""RTN"",""PSXRPPL"",13,0)"
^XMB(3.9,123,2,340,0)=" ;Reference to ^PSOREJUT supported by DBIA #4706"
^XMB(3.9,123,2,341,0)="""RTN"",""PSXRPPL"",14,0)"
^XMB(3.9,123,2,342,0)=" ;Reference to ^BPSUTIL supported by DBIA #4410"
^XMB(3.9,123,2,343,0)="""RTN"",""PSXRPPL"",15,0)"
^XMB(3.9,123,2,344,0)=" ;Called from PSXRSUS -Builds ^PSX(550.2,,15,""C"" , and returns to PSXRSUS or PSXRTRAN"
^XMB(3.9,123,2,345,0)="""RTN"",""PSXRPPL"",16,0)"
^XMB(3.9,123,2,346,0)=" ;"
^XMB(3.9,123,2,347,0)="""RTN"",""PSXRPPL"",17,0)"
^XMB(3.9,123,2,348,0)="SDT K ^TMP($J,""PSX""),^TMP($J,""PSXDFN""),ZCNT,PSXBAT D:$D(XRTL) T0^%ZOSV"
^XMB(3.9,123,2,349,0)="""RTN"",""PSXRPPL"",18,0)"
^XMB(3.9,123,2,350,0)=" S PSXTDIV=PSOSITE,PSXTYP=$S(+$G(PSXCS):""C"",1:""N"")"
^XMB(3.9,123,2,351,0)="""RTN"",""PSXRPPL"",19,0)"
^XMB(3.9,123,2,352,0)=" ;"
^XMB(3.9,123,2,353,0)="""RTN"",""PSXRPPL"",20,0)"
^XMB(3.9,123,2,354,0)=" ; - Submitting prescriptions to ECME (Electronic Claims Mgmt Engine) - 3rd pary"
^XMB(3.9,123,2,355,0)="""RTN"",""PSXRPPL"",21,0)"
^XMB(3.9,123,2,356,0)=" I $$ECMEON^BPSUTIL(PSXTDIV),$$CMOPON^BPSUTIL(PSXTDIV) D"
^XMB(3.9,123,2,357,0)="""RTN"",""PSXRPPL"",22,0)"
^XMB(3.9,123,2,358,0)=" . N BPSCNT S BPSCNT=$$SBTECME^PSXRPPL1(PSXTYP,PSXTDIV,PRTDT,PSXDTRG)"
^XMB(3.9,123,2,359,0)="""RTN"",""PSXRPPL"",23,0)"
^XMB(3.9,123,2,360,0)=" . ; - Wait 15 seconds per prescription sent to ECME (max of 2 hours)"
^XMB(3.9,123,2,361,0)="""RTN"",""PSXRPPL"",24,0)"
^XMB(3.9,123,2,362,0)=" . I BPSCNT>0 H 60+$S((BPSCNT*15)>7200:7200,1:(BPSCNT*15))"
^XMB(3.9,123,2,363,0)="""RTN"",""PSXRPPL"",25,0)"
^XMB(3.9,123,2,364,0)=" ;"
^XMB(3.9,123,2,365,0)="""RTN"",""PSXRPPL"",26,0)"
^XMB(3.9,123,2,366,0)=" ; - Transmitting prescription to CMOP (up to THROUGH DATE)"
^XMB(3.9,123,2,367,0)="""RTN"",""PSXRPPL"",27,0)"
^XMB(3.9,123,2,368,0)=" K ^TMP(""PSXEPHIN"",$J)"
^XMB(3.9,123,2,369,0)="""RTN"",""PSXRPPL"",28,0)"
^XMB(3.9,123,2,370,0)=" S SDT=0 F  S SDT=$O(^PS(52.5,""CMP"",""Q"",PSXTYP,PSXTDIV,SDT)) S XDFN=0 Q:(SDT>PRTDT)!(SDT'>0)  D"
^XMB(3.9,123,2,371,0)="""RTN"",""PSXRPPL"",29,0)"
^XMB(3.9,123,2,372,0)=" . F  S XDFN=$O(^PS(52.5,""CMP"",""Q"",PSXTYP,PSXTDIV,SDT,XDFN)) S REC=0 Q:(XDFN'>0)!(XDFN="""")  D"
^XMB(3.9,123,2,373,0)="""RTN"",""PSXRPPL"",30,0)"
^XMB(3.9,123,2,374,0)=" . . F  S REC=$O(^PS(52.5,""CMP"",""Q"",PSXTYP,PSXTDIV,SDT,XDFN,REC)) Q:(REC'>0)!(REC="""")  D"
^XMB(3.9,123,2,375,0)="""RTN"",""PSXRPPL"",31,0)"
^XMB(3.9,123,2,376,0)=" . . . D GETDATA D:$G(RXN) PSOUL^PSSLOCK(RXN),OERRLOCK(RXN)"
^XMB(3.9,123,2,377,0)="""RTN"",""PSXRPPL"",32,0)"
^XMB(3.9,123,2,378,0)=" ;"
^XMB(3.9,123,2,379,0)="""RTN"",""PSXRPPL"",33,0)"
^XMB(3.9,123,2,380,0)=" ; - Pulling prescriptions ahead (parameter in OUTPATIENT SITE file #59)"
^XMB(3.9,123,2,381,0)="""RTN"",""PSXRPPL"",34,0)"
^XMB(3.9,123,2,382,0)=" I $G(PSXBAT),'$G(PSXRTRAN) D CHKDFN"
^XMB(3.9,123,2,383,0)="""RTN"",""PSXRPPL"",35,0)"
^XMB(3.9,123,2,384,0)=" ;"
^XMB(3.9,123,2,385,0)="""RTN"",""PSXRPPL"",36,0)"
^XMB(3.9,123,2,386,0)=" ; - Sends a Mailman message if there were transmission problems with the 3rd Party Payer"
^XMB(3.9,123,2,387,0)="""RTN"",""PSXRPPL"",37,0)"
^XMB(3.9,123,2,388,0)=" I $D(^TMP(""PSXEPHIN"",$J)) D ^PSXBPSMS K ^TMP(""PSXEPHIN"",$J)"
^XMB(3.9,123,2,389,0)="""RTN"",""PSXRPPL"",38,0)"
^XMB(3.9,123,2,390,0)=" ;"
^XMB(3.9,123,2,391,0)="""RTN"",""PSXRPPL"",39,0)"
^XMB(3.9,123,2,392,0)="EXIT ;   "
^XMB(3.9,123,2,393,0)="""RTN"",""PSXRPPL"",40,0)"
^XMB(3.9,123,2,394,0)=" K SDT,DFN,REC,RXNUM,PSXOK,FILNUM,REF,PNAME,CNAME,DIE,DR,NDFN,%,CNT,COM,DTTM,FILL,JJ,PRTDT,PSXDIV,XDFN,NFLAG,CIND,XDFN"
^XMB(3.9,123,2,395,0)="""RTN"",""PSXRPPL"",41,0)"
^XMB(3.9,123,2,396,0)=" K CHKDT,DAYS,DRUG,DRUGCHK,NM,OPDT,PHARCLK,PHY,PSTAT,PTRA,PTRB,QTY,REL,RXERR,RXF,SFN,PSXDGST,PSXMC,PSXMDT"
^XMB(3.9,123,2,397,0)="""RTN"",""PSXRPPL"",42,0)"
^XMB(3.9,123,2,398,0)=" S:$D(XRT0) XRTN=$T(+0) D:$D(XRT0) T1^%ZOSV"
^XMB(3.9,123,2,399,0)="""RTN"",""PSXRPPL"",43,0)"
^XMB(3.9,123,2,400,0)=" K ^TMP(""PSXEPHIN"",$J)"
^XMB(3.9,123,2,401,0)="""RTN"",""PSXRPPL"",44,0)"
^XMB(3.9,123,2,402,0)=" Q"
^XMB(3.9,123,2,403,0)="""RTN"",""PSXRPPL"",45,0)"
^XMB(3.9,123,2,404,0)="GETDATA ;Screens rxs and builds data"
^XMB(3.9,123,2,405,0)="""RTN"",""PSXRPPL"",46,0)"
^XMB(3.9,123,2,406,0)=" ;PSXOK=1:NOT CMOP DRUG OR DO NOT MAIL,2:TRADENAME,3:WINDOW,4:PRINTED,5:NOT SUSPENDED"
^XMB(3.9,123,2,407,0)="""RTN"",""PSXRPPL"",47,0)"
^XMB(3.9,123,2,408,0)=" ;PSXOK=6:ALREADY RELEASED,7:DIFFERENT DIVISION,8:BAD DATA IN 52.5"
^XMB(3.9,123,2,409,0)="""RTN"",""PSXRPPL"",48,0)"
^XMB(3.9,123,2,410,0)=" ;9:CS Mismatch,10:DEA 1 or 2"
^XMB(3.9,123,2,411,0)="""RTN"",""PSXRPPL"",49,0)"
^XMB(3.9,123,2,412,0)=" I '$D(^PS(52.5,REC,0)) K ^PS(52.5,""AQ"",SDT,XDFN,REC),^PS(52.5,""CMP"",""Q"",PSXTYP,PSXTDIV,SDT,XDFN,REC) Q"
^XMB(3.9,123,2,413,0)="""RTN"",""PSXRPPL"",50,0)"
^XMB(3.9,123,2,414,0)=" I $P(^PS(52.5,REC,0),""^"",7)="""" K ^PS(52.5,""AQ"",SDT,XDFN,REC),^PS(52.5,""CMP"",""Q"",PSXTYP,PSXTDIV,SDT,XDFN,REC) Q"
^XMB(3.9,123,2,415,0)="""RTN"",""PSXRPPL"",51,0)"
^XMB(3.9,123,2,416,0)=" I ($P(^PS(52.5,REC,0),""^"",3)'=XDFN) K ^PS(52.5,""AQ"",SDT,XDFN,REC),^PS(52.5,""CMP"",""Q"",PSXTYP,PSXTDIV,SDT,XDFN,REC) Q"
^XMB(3.9,123,2,417,0)="""RTN"",""PSXRPPL"",52,0)"
^XMB(3.9,123,2,418,0)=" N DFN S DFN=XDFN D DEM^VADPT"
^XMB(3.9,123,2,419,0)="""RTN"",""PSXRPPL"",53,0)"
^XMB(3.9,123,2,420,0)=" I $G(VADM(6))'="""" D DELETE K VADM Q"
^XMB(3.9,123,2,421,0)="""RTN"",""PSXRPPL"",54,0)"
^XMB(3.9,123,2,422,0)=" S PSXOK=0,NFLAG=0"
^XMB(3.9,123,2,423,0)="""RTN"",""PSXRPPL"",55,0)"
^XMB(3.9,123,2,424,0)=" S RXN=$P($G(^PS(52.5,REC,0)),""^"",1) I RXN="""" S PSXOK=8 Q"
^XMB(3.9,123,2,425,0)="""RTN"",""PSXRPPL"",56,0)"
^XMB(3.9,123,2,426,0)=" ;"
^XMB(3.9,123,2,427,0)="""RTN"",""PSXRPPL"",57,0)"
^XMB(3.9,123,2,428,0)=" N EPHQT S RFL=+$$GET1^DIQ(52.5,REC,9,""I""),EPHQT=0"
^XMB(3.9,123,2,429,0)="""RTN"",""PSXRPPL"",58,0)"
^XMB(3.9,123,2,430,0)=" I $$PATCH^XPDUTL(""PSO*7.0*148"") D  I EPHQT Q"
^XMB(3.9,123,2,431,0)="""RTN"",""PSXRPPL"",59,0)"
^XMB(3.9,123,2,432,0)=" . I $$DOUBLE^PSXRPPL1(RXN,RFL) S EPHQT=1 Q"
^XMB(3.9,123,2,433,0)="""RTN"",""PSXRPPL"",60,0)"
^XMB(3.9,123,2,434,0)=" . I $$RETRX^PSOBPSUT(RXN,RFL),SDT>DT S EPHQT=1 Q"
^XMB(3.9,123,2,435,0)="""RTN"",""PSXRPPL"",61,0)"
^XMB(3.9,123,2,436,0)=" . I $$FIND^PSOREJUT(RXN,RFL) S EPHQT=1 Q"
^XMB(3.9,123,2,437,0)="""RTN"",""PSXRPPL"",62,0)"
^XMB(3.9,123,2,438,0)=" . I $$STATUS^PSOBPSUT(RXN,RFL)=""IN PROGRESS"" D  Q"
^XMB(3.9,123,2,439,0)="""RTN"",""PSXRPPL"",63,0)"
^XMB(3.9,123,2,440,0)=" . . S ^TMP(""PSXEPHIN"",$J,$$RXSITE^PSOBPSUT(RXN),RXN)=RFL,EPHQT=1"
^XMB(3.9,123,2,441,0)="""RTN"",""PSXRPPL"",64,0)"
^XMB(3.9,123,2,442,0)=" ;"
^XMB(3.9,123,2,443,0)="""RTN"",""PSXRPPL"",65,0)"
^XMB(3.9,123,2,444,0)=" D CHKDATA^PSXMISC1"
^XMB(3.9,123,2,445,0)="""RTN"",""PSXRPPL"",66,0)"
^XMB(3.9,123,2,446,0)="SET Q:(PSXOK=7)!(PSXOK=8)!(PSXOK=9)"
^XMB(3.9,123,2,447,0)="""RTN"",""PSXRPPL"",67,0)"
^XMB(3.9,123,2,448,0)=" S PNAME=$G(VADM(1))"
^XMB(3.9,123,2,449,0)="""RTN"",""PSXRPPL"",68,0)"
^XMB(3.9,123,2,450,0)=" I ($G(PSXCSRX)=1)&($G(PSXCS)=1) S ^XTMP(""PSXCS"",PSOSITE,DT,RXN)="""""
^XMB(3.9,123,2,451,0)="""RTN"",""PSXRPPL"",69,0)"
^XMB(3.9,123,2,452,0)=" I (PSXOK=0)&(PSXFLAG=1) S ^TMP($J,""PSXDFN"",XDFN)="""",NFLAG=4 D DQUE,RX550215 Q"
^XMB(3.9,123,2,453,0)="""RTN"",""PSXRPPL"",70,0)"
^XMB(3.9,123,2,454,0)=" I (PSXOK=0)&(PSXFLAG=2) D RX550215 Q"
^XMB(3.9,123,2,455,0)="""RTN"",""PSXRPPL"",71,0)"
^XMB(3.9,123,2,456,0)=" I (PSXOK>0)&(PSXOK<7)!(PSXOK=10) D DELETE Q"
^XMB(3.9,123,2,457,0)="""RTN"",""PSXRPPL"",72,0)"
^XMB(3.9,123,2,458,0)=" Q"
^XMB(3.9,123,2,459,0)="""RTN"",""PSXRPPL"",73,0)"
^XMB(3.9,123,2,460,0)="DELETE ; deletes the CMOP STATUS field in PS(52.5, reindex 'AC' x-ref"
^XMB(3.9,123,2,461,0)="""RTN"",""PSXRPPL"",74,0)"
^XMB(3.9,123,2,462,0)=" L +^PS(52.5,REC):600 Q:'$T"
^XMB(3.9,123,2,463,0)="""RTN"",""PSXRPPL"",75,0)"
^XMB(3.9,123,2,464,0)=" N DR,DIE,DA S DIE=""^PS(52.5,"",DA=REC,DR=""3///@"" D ^DIE"
^XMB(3.9,123,2,465,0)="""RTN"",""PSXRPPL"",76,0)"
^XMB(3.9,123,2,466,0)=" S ^PS(52.5,""AC"",$P(^PS(52.5,REC,0),""^"",3),$P(^PS(52.5,REC,0),""^"",2),REC)="""""
^XMB(3.9,123,2,467,0)="""RTN"",""PSXRPPL"",77,0)"
^XMB(3.9,123,2,468,0)=" L -^PS(52.5,REC)"
^XMB(3.9,123,2,469,0)="""RTN"",""PSXRPPL"",78,0)"
^XMB(3.9,123,2,470,0)=" Q"
^XMB(3.9,123,2,471,0)="""RTN"",""PSXRPPL"",79,0)"
^XMB(3.9,123,2,472,0)=" ;the rest of the sub-routines go through the ^PSX(550.2,,15,""C"""
^XMB(3.9,123,2,473,0)="""RTN"",""PSXRPPL"",80,0)"
^XMB(3.9,123,2,474,0)=" ;global and checks for RXs within the days ahead range and"
^XMB(3.9,123,2,475,0)="""RTN"",""PSXRPPL"",81,0)"
^XMB(3.9,123,2,476,0)=" ;builds the ^PSX(550.2,PSXBAT,"
^XMB(3.9,123,2,477,0)="""RTN"",""PSXRPPL"",82,0)"
^XMB(3.9,123,2,478,0)="CHKDFN ; use the patient 'C' index under RX multiple in file 550.2 to GET dfn to gather Patients' future RXs"
^XMB(3.9,123,2,479,0)="""RTN"",""PSXRPPL"",83,0)"
^XMB(3.9,123,2,480,0)=" I '$D(^PSX(550.2,PSXBAT,15,""C"")) Q"
^XMB(3.9,123,2,481,0)="""RTN"",""PSXRPPL"",84,0)"
^XMB(3.9,123,2,482,0)=" S PSXPTNM="""" F  S PSXPTNM=$O(^PSX(550.2,PSXBAT,15,""C"",PSXPTNM)) Q:PSXPTNM=""""  D"
^XMB(3.9,123,2,483,0)="""RTN"",""PSXRPPL"",85,0)"
^XMB(3.9,123,2,484,0)=" . S XDFN=0 F  S XDFN=$O(^PSX(550.2,PSXBAT,""15"",""C"",PSXPTNM,XDFN)) Q:(XDFN'>0)  D"
^XMB(3.9,123,2,485,0)="""RTN"",""PSXRPPL"",86,0)"
^XMB(3.9,123,2,486,0)=" . . S SDT=PRTDT F  S SDT=$O(^PS(52.5,""CMP"",""Q"",PSXTYP,PSXTDIV,SDT)),NDFN=0 Q:(SDT>PSXDTRG)!(SDT="""")  D"
^XMB(3.9,123,2,487,0)="""RTN"",""PSXRPPL"",87,0)"
^XMB(3.9,123,2,488,0)=" . . . F  S NDFN=$O(^PS(52.5,""CMP"",""Q"",PSXTYP,PSXTDIV,SDT,NDFN)),REC=0 Q:NDFN'>0  I NDFN=XDFN D"
^XMB(3.9,123,2,489,0)="""RTN"",""PSXRPPL"",88,0)"
^XMB(3.9,123,2,490,0)=" . . . . F  S REC=$O(^PS(52.5,""CMP"",""Q"",PSXTYP,PSXTDIV,SDT,NDFN,REC)) Q:REC'>0  D"
^XMB(3.9,123,2,491,0)="""RTN"",""PSXRPPL"",89,0)"
^XMB(3.9,123,2,492,0)=" . . . . . D GETDATA D:$G(RXN) PSOUL^PSSLOCK(RXN),OERRLOCK(RXN)"
^XMB(3.9,123,2,493,0)="""RTN"",""PSXRPPL"",90,0)"
^XMB(3.9,123,2,494,0)=" Q"
^XMB(3.9,123,2,495,0)="""RTN"",""PSXRPPL"",91,0)"
^XMB(3.9,123,2,496,0)="BEGIN ; Select print device"
^XMB(3.9,123,2,497,0)="""RTN"",""PSXRPPL"",92,0)"
^XMB(3.9,123,2,498,0)=" I '$D(PSOPAR) D ^PSOLSET"
^XMB(3.9,123,2,499,0)="""RTN"",""PSXRPPL"",93,0)"
^XMB(3.9,123,2,500,0)=" I $D(PSOLAP),($G(PSOLAP)'=ION) S PSLION=PSOLAP G PROFILE"
^XMB(3.9,123,2,501,0)="""RTN"",""PSXRPPL"",94,0)"
^XMB(3.9,123,2,502,0)=" W ! S %ZIS(""A"")=""PRINTER 'LABEL' DEVICE:  "",%ZIS(""B"")="""",%ZIS=""MQN"" D ^%ZIS S PSLION=ION G:POP EXIT"
^XMB(3.9,123,2,503,0)="""RTN"",""PSXRPPL"",95,0)"
^XMB(3.9,123,2,504,0)=" I $G(IOST)[""C-"" W !,""You must select a printer!"",! G BEGIN"
^XMB(3.9,123,2,505,0)="""RTN"",""PSXRPPL"",96,0)"
^XMB(3.9,123,2,506,0)=" F J=0,1 S @(""PSOBAR""_J)="""" I $D(^%ZIS(2,^%ZIS(1,IOS,""SUBTYPE""),""BAR""_J)) S @(""PSOBAR""_J)=^(""BAR""_J)"
^XMB(3.9,123,2,507,0)="""RTN"",""PSXRPPL"",97,0)"
^XMB(3.9,123,2,508,0)=" S PSOBARS=PSOBAR1]""""&(PSOBAR0]"""")&$P(PSOPAR,""^"",19)"
^XMB(3.9,123,2,509,0)="""RTN"",""PSXRPPL"",98,0)"
^XMB(3.9,123,2,510,0)=" K PSOION,J D ^%ZISC I $D(IO(""Q"")) K IO(""Q"")"
^XMB(3.9,123,2,511,0)="""RTN"",""PSXRPPL"",99,0)"
^XMB(3.9,123,2,512,0)="PROFILE I $D(PSOPROP),($G(PSOPROP)'=ION) Q"
^XMB(3.9,123,2,513,0)="""RTN"",""PSXRPPL"",100,0)"
^XMB(3.9,123,2,514,0)=" I $P(PSOPAR,""^"",8) S %ZIS=""MNQ"",%ZIS(""A"")=""Select PROFILE PRINTER: "" D ^%ZIS K %ZIS,IO(""Q""),IOP G:POP EXIT S PSOPROP=ION D ^%ZISC"
^XMB(3.9,123,2,515,0)="""RTN"",""PSXRPPL"",101,0)"
^XMB(3.9,123,2,516,0)=" I $G(PSOPROP)=ION W !,""You must select a printer!"",! G PROFILE"
^XMB(3.9,123,2,517,0)="""RTN"",""PSXRPPL"",102,0)"
^XMB(3.9,123,2,518,0)=" Q"
^XMB(3.9,123,2,519,0)="""RTN"",""PSXRPPL"",103,0)"
^XMB(3.9,123,2,520,0)="PRT ; w auto error trapping"
^XMB(3.9,123,2,521,0)="""RTN"",""PSXRPPL"",104,0)"
^XMB(3.9,123,2,522,0)=" D NOW^%DTC S DTTM=% K %"
^XMB(3.9,123,2,523,0)="""RTN"",""PSXRPPL"",105,0)"
^XMB(3.9,123,2,524,0)=" S NM="""" F  S NM=$O(^PSX(550.2,PSXBAT,15,""C"",NM)) Q:NM=""""  D DFN,PPL ;gather patient RXs, print patient RXs"
^XMB(3.9,123,2,525,0)="""RTN"",""PSXRPPL"",106,0)"
^XMB(3.9,123,2,526,0)=" S DIK=""^PSX(550.2,"",DA=PSXBAT D ^DIK K PSXBAT"
^XMB(3.9,123,2,527,0)="""RTN"",""PSXRPPL"",107,0)"
^XMB(3.9,123,2,528,0)=" K CHKDT,CIND,DAYS,DRUG,DRUGCHK,NFLAG,NM,ORD,PDT,PHARCLK,PHY,PSTAT,PTRA,PTRB,QTY,REL,RXERR,RXF,SFN,SIG,SITE,SUS,SUSPT"
^XMB(3.9,123,2,529,0)="""RTN"",""PSXRPPL"",108,0)"
^XMB(3.9,123,2,530,0)=" Q"
^XMB(3.9,123,2,531,0)="""RTN"",""PSXRPPL"",109,0)"
^XMB(3.9,123,2,532,0)="DFN S DFN=0,NFLAG=2"
^XMB(3.9,123,2,533,0)="""RTN"",""PSXRPPL"",110,0)"
^XMB(3.9,123,2,534,0)=" F  S DFN=$O(^PSX(550.2,PSXBAT,15,""C"",NM,DFN)),RXN=0 Q:(DFN="""")!(DFN'>0)  D"
^XMB(3.9,123,2,535,0)="""RTN"",""PSXRPPL"",111,0)"
^XMB(3.9,123,2,536,0)=" .F  S RXN=$O(^PSX(550.2,PSXBAT,15,""C"",NM,DFN,RXN)),RXF="""" Q:(RXN="""")!(RXN'>0)  D"
^XMB(3.9,123,2,537,0)="""RTN"",""PSXRPPL"",112,0)"
^XMB(3.9,123,2,538,0)=" ..F  S RXF=$O(^PSX(550.2,PSXBAT,15,""C"",NM,DFN,RXN,RXF)) Q:RXF=""""  D BLD"
^XMB(3.9,123,2,539,0)="""RTN"",""PSXRPPL"",113,0)"
^XMB(3.9,123,2,540,0)=" Q"
^XMB(3.9,123,2,541,0)="""RTN"",""PSXRPPL"",114,0)"
^XMB(3.9,123,2,542,0)="BLD ;"
^XMB(3.9,123,2,543,0)="""RTN"",""PSXRPPL"",115,0)"
^XMB(3.9,123,2,544,0)=" S BATRXDA=$O(^PSX(550.2,PSXBAT,15,""B"",RXN,0)) D NOW^%DTC S DTTM=%"
^XMB(3.9,123,2,545,0)="""RTN"",""PSXRPPL"",116,0)"
^XMB(3.9,123,2,546,0)=" S REC=$P(^PSX(550.2,PSXBAT,15,BATRXDA,0),U,5),SUS=$O(^PS(52.5,""B"",RXN,0))"
^XMB(3.9,123,2,547,0)="""RTN"",""PSXRPPL"",117,0)"
^XMB(3.9,123,2,548,0)=" I SUS=REC,+SUS'=0 I 1 ;rx still valid in suspense"
^XMB(3.9,123,2,549,0)="""RTN"",""PSXRPPL"",118,0)"
^XMB(3.9,123,2,550,0)=" E  D  Q  ;rx gone"
^XMB(3.9,123,2,551,0)="""RTN"",""PSXRPPL"",119,0)"
^XMB(3.9,123,2,552,0)=" . N DA,DIK S DIK=550.2,DA(1)=PSXBAT,DA=BATRXDA"
^XMB(3.9,123,2,553,0)="""RTN"",""PSXRPPL"",120,0)"
^XMB(3.9,123,2,554,0)=" . D ^DIK"
^XMB(3.9,123,2,555,0)="""RTN"",""PSXRPPL"",121,0)"
^XMB(3.9,123,2,556,0)=" S PSOSU(DFN,SUS)=RXN,RXCNTR=$G(RXCNTR)+1,NFLAG=2"
^XMB(3.9,123,2,557,0)="""RTN"",""PSXRPPL"",122,0)"
^XMB(3.9,123,2,558,0)=" S $P(^PSRX(RXN,0),U,15)=0,$P(^PSRX(RXN,""STA""),U,1)=0"
^XMB(3.9,123,2,559,0)="""RTN"",""PSXRPPL"",123,0)"
^XMB(3.9,123,2,560,0)=" K % S COM=""CMOP Suspense Label ""_$S($G(^PS(52.5,SUS,""P""))=0:""Printed"",$G(^PS(52.5,SUS,""P""))="""":""Printed"",1:""Reprinted"")_$S($G(^PSRX(RXN,""TYPE""))>0:"" (PARTIAL)"",1:"""")"
^XMB(3.9,123,2,561,0)="""RTN"",""PSXRPPL"",124,0)"
^XMB(3.9,123,2,562,0)=" D EN^PSOHLSN1(RXN,""SC"",""ZU"",COM)"
^XMB(3.9,123,2,563,0)="""RTN"",""PSXRPPL"",125,0)"
^XMB(3.9,123,2,564,0)=" S DA=SUS D DQUE K DA"
^XMB(3.9,123,2,565,0)="""RTN"",""PSXRPPL"",126,0)"
^XMB(3.9,123,2,566,0)="ACTLOG F JJ=0:0 S JJ=$O(^PSRX(RXN,""A"",JJ)) Q:'JJ  S CNT=JJ"
^XMB(3.9,123,2,567,0)="""RTN"",""PSXRPPL"",127,0)"
^XMB(3.9,123,2,568,0)=" S RFCNT=0 F RF=0:0 S RF=$O(^PSRX(RXN,1,RF)) Q:'RF  S RFCNT=RF"
^XMB(3.9,123,2,569,0)="""RTN"",""PSXRPPL"",128,0)"
^XMB(3.9,123,2,570,0)=" S CNT=CNT+1,^PSRX(RXN,""A"",0)=""^52.3DA^""_CNT_""^""_CNT"
^XMB(3.9,123,2,571,0)="""RTN"",""PSXRPPL"",129,0)"
^XMB(3.9,123,2,572,0)="LOCK L +^PSRX(RXN):600 G:'$T LOCK"
^XMB(3.9,123,2,573,0)="""RTN"",""PSXRPPL"",130,0)"
^XMB(3.9,123,2,574,0)=" S ^PSRX(RXN,""A"",CNT,0)=DTTM_""^S^""_DUZ_""^""_RFCNT_""^""_COM L -^PSRX(RXN)"
^XMB(3.9,123,2,575,0)="""RTN"",""PSXRPPL"",131,0)"
^XMB(3.9,123,2,576,0)=" K CNT,COM,RFCNT,%,JJ,RF,Y,RXCNTR"
^XMB(3.9,123,2,577,0)="""RTN"",""PSXRPPL"",132,0)"
^XMB(3.9,123,2,578,0)=" Q"
^XMB(3.9,123,2,579,0)="""RTN"",""PSXRPPL"",133,0)"
^XMB(3.9,123,2,580,0)="PPL K PPL,PPL1 S ORD="""" F  S ORD=$O(PSOSU(ORD)) Q:(ORD="""")!(ORD'>0)  D PPL1"
^XMB(3.9,123,2,581,0)="""RTN"",""PSXRPPL"",134,0)"
^XMB(3.9,123,2,582,0)=" Q"
^XMB(3.9,123,2,583,0)="""RTN"",""PSXRPPL"",135,0)"
^XMB(3.9,123,2,584,0)="PPL1 ; print patient labels"
^XMB(3.9,123,2,585,0)="""RTN"",""PSXRPPL"",136,0)"
^XMB(3.9,123,2,586,0)=" F SFN=0:0 S SFN=$O(PSOSU(ORD,SFN)) Q:'SFN  D"
^XMB(3.9,123,2,587,0)="""RTN"",""PSXRPPL"",137,0)"
^XMB(3.9,123,2,588,0)=" . S:$L($G(PPL))<240 PPL=$P(PSOSU(ORD,SFN),""^"")_"",""_$G(PPL)"
^XMB(3.9,123,2,589,0)="""RTN"",""PSXRPPL"",138,0)"
^XMB(3.9,123,2,590,0)=" . S:$L($G(PPL))>239 PPL1=$P(PSOSU(ORD,SFN),""^"")_"",""_$G(PPL1)"
^XMB(3.9,123,2,591,0)="""RTN"",""PSXRPPL"",139,0)"
^XMB(3.9,123,2,592,0)=" . S DFN=$P(^PS(52.5,SFN,0),""^"",3)"
^XMB(3.9,123,2,593,0)="""RTN"",""PSXRPPL"",140,0)"
^XMB(3.9,123,2,594,0)=" S SUSPT=1,PSNP=$S($P(PSOPAR,""^"",8):1,1:0) S:$D(PSOPROP) PFIO=PSOPROP"
^XMB(3.9,123,2,595,0)="""RTN"",""PSXRPPL"",141,0)"
^XMB(3.9,123,2,596,0)=" D QLBL^PSORXL"
^XMB(3.9,123,2,597,0)="""RTN"",""PSXRPPL"",142,0)"
^XMB(3.9,123,2,598,0)=" I $D(PPL1) S PSNP=0,PPL=PPL1 D QLBL^PSORXL"
^XMB(3.9,123,2,599,0)="""RTN"",""PSXRPPL"",143,0)"
^XMB(3.9,123,2,600,0)=" K PPL,PPL1,PSOSU(ORD)"
^XMB(3.9,123,2,601,0)="""RTN"",""PSXRPPL"",144,0)"
^XMB(3.9,123,2,602,0)=" Q"
^XMB(3.9,123,2,603,0)="""RTN"",""PSXRPPL"",145,0)"
^XMB(3.9,123,2,604,0)="DQUE ; sets the CMOP indicator field, and printed field in 52.5"
^XMB(3.9,123,2,605,0)="""RTN"",""PSXRPPL"",146,0)"
^XMB(3.9,123,2,606,0)=" L +^PS(52.5,REC):600 G:'$T DQUE"
^XMB(3.9,123,2,607,0)="""RTN"",""PSXRPPL"",147,0)"
^XMB(3.9,123,2,608,0)=" I NFLAG=4 D"
^XMB(3.9,123,2,609,0)="""RTN"",""PSXRPPL"",148,0)"
^XMB(3.9,123,2,610,0)=" . S DA=REC,DIE=""^PS(52.5,"",DR=""3////L;4////""_DT D ^DIE K DIE,DA,DR L -^PS(52.5,REC)  ; the rest moved into PSXRTR"
^XMB(3.9,123,2,611,0)="""RTN"",""PSXRPPL"",149,0)"
^XMB(3.9,123,2,612,0)=" S CIND=$S(NFLAG=1:""X"",NFLAG=2:""P"",NFLAG=3:""@"",1:0)"
^XMB(3.9,123,2,613,0)="""RTN"",""PSXRPPL"",150,0)"
^XMB(3.9,123,2,614,0)=" I $G(NFLAG)'=2 D"
^XMB(3.9,123,2,615,0)="""RTN"",""PSXRPPL"",151,0)"
^XMB(3.9,123,2,616,0)=" .S DA=REC,DIE=""^PS(52.5,"",DR=""3////""_CIND_"";4////""_DT"
^XMB(3.9,123,2,617,0)="""RTN"",""PSXRPPL"",152,0)"
^XMB(3.9,123,2,618,0)=" .D ^DIE K DIE,DA,DR"
^XMB(3.9,123,2,619,0)="""RTN"",""PSXRPPL"",153,0)"
^XMB(3.9,123,2,620,0)=" .S ^PS(52.5,REC,""P"")=1,^PS(52.5,""ADL"",DT,REC)="""""
^XMB(3.9,123,2,621,0)="""RTN"",""PSXRPPL"",154,0)"
^XMB(3.9,123,2,622,0)=" I $G(NFLAG)=2 D  ;print label cycle"
^XMB(3.9,123,2,623,0)="""RTN"",""PSXRPPL"",155,0)"
^XMB(3.9,123,2,624,0)=" . S DA=REC,DIE=""^PS(52.5,"",DR=""3////""_CIND_"";4////""_DTTM_"";5////""_DUZ_"";7////""_RXCNTR"
^XMB(3.9,123,2,625,0)="""RTN"",""PSXRPPL"",156,0)"
^XMB(3.9,123,2,626,0)=" . D ^DIE K DIE,DA,DR"
^XMB(3.9,123,2,627,0)="""RTN"",""PSXRPPL"",157,0)"
^XMB(3.9,123,2,628,0)=" . S ^PS(52.5,REC,""P"")=1,^PS(52.5,""ADL"",$E($P(^PS(52.5,REC,0),""^"",8),1,7),REC)="""""
^XMB(3.9,123,2,629,0)="""RTN"",""PSXRPPL"",158,0)"
^XMB(3.9,123,2,630,0)=" L -^PS(52.5,REC)"
^XMB(3.9,123,2,631,0)="""RTN"",""PSXRPPL"",159,0)"
^XMB(3.9,123,2,632,0)=" I $G(NFLAG)=2 D EN^PSOHLSN1(RXN,""SC"",""ZU"",""CMOP Suspense Label Printed"")"
^XMB(3.9,123,2,633,0)="""RTN"",""PSXRPPL"",160,0)"
^XMB(3.9,123,2,634,0)=" Q"
^XMB(3.9,123,2,635,0)="""RTN"",""PSXRPPL"",161,0)"
^XMB(3.9,123,2,636,0)="RX550215 ; put RX into RX multiple TRANS 550.215 for PSXBAT"
^XMB(3.9,123,2,637,0)="""RTN"",""PSXRPPL"",162,0)"
^XMB(3.9,123,2,638,0)=" I '$G(PSXBAT) D BATCH^PSXRSYU ; first time through create batch, & return PSXBAT"
^XMB(3.9,123,2,639,0)="""RTN"",""PSXRPPL"",163,0)"
^XMB(3.9,123,2,640,0)=" K DD,DO,DIC,DA,DR,D0"
^XMB(3.9,123,2,641,0)="""RTN"",""PSXRPPL"",164,0)"
^XMB(3.9,123,2,642,0)=" S:'$D(^PSX(550.2,PSXBAT,15,0)) ^PSX(550.2,PSXBAT,15,0)=""^550.215P^^"""
^XMB(3.9,123,2,643,0)="""RTN"",""PSXRPPL"",165,0)"
^XMB(3.9,123,2,644,0)=" S X=RXN,DA(1)=PSXBAT"
^XMB(3.9,123,2,645,0)="""RTN"",""PSXRPPL"",166,0)"
^XMB(3.9,123,2,646,0)=" S DIC=""^PSX(550.2,""_PSXBAT_"",15,"",DIC(""DR"")="".02////^S X=RXF;.03////^S X=DFN;.05////^S X=REC"",DIC(0)=""ZF"""
^XMB(3.9,123,2,647,0)="""RTN"",""PSXRPPL"",167,0)"
^XMB(3.9,123,2,648,0)=" D FILE^DICN"
^XMB(3.9,123,2,649,0)="""RTN"",""PSXRPPL"",168,0)"
^XMB(3.9,123,2,650,0)=" S PSXRXTDA=+Y ;RX DA within PSXBAT 'T'ransmission"
^XMB(3.9,123,2,651,0)="""RTN"",""PSXRPPL"",169,0)"
^XMB(3.9,123,2,652,0)=" K DD,DO,DIC,DA,DR,D0"
^XMB(3.9,123,2,653,0)="""RTN"",""PSXRPPL"",170,0)"
^XMB(3.9,123,2,654,0)=" Q"
^XMB(3.9,123,2,655,0)="""RTN"",""PSXRPPL"",171,0)"
^XMB(3.9,123,2,656,0)="OERRLOCK(RXN) ; set XTMP for OERR/CPRS order locking"
^XMB(3.9,123,2,657,0)="""RTN"",""PSXRPPL"",172,0)"
^XMB(3.9,123,2,658,0)=" I $G(PSXBAT),$G(RXN),$G(PSXRXTDA) I 1"
^XMB(3.9,123,2,659,0)="""RTN"",""PSXRPPL"",173,0)"
^XMB(3.9,123,2,660,0)=" E  Q"
^XMB(3.9,123,2,661,0)="""RTN"",""PSXRPPL"",174,0)"
^XMB(3.9,123,2,662,0)=" I $P(^PSX(550.2,PSXBAT,15,PSXRXTDA,0),U,1)'=RXN Q"
^XMB(3.9,123,2,663,0)="""RTN"",""PSXRPPL"",175,0)"
^XMB(3.9,123,2,664,0)="RXNSET ; set ^XTMP(""ORLK-""_ORDER per IA 4001 needs RXN"
^XMB(3.9,123,2,665,0)="""RTN"",""PSXRPPL"",176,0)"
^XMB(3.9,123,2,666,0)=" Q:'$G(RXN)"
^XMB(3.9,123,2,667,0)="""RTN"",""PSXRPPL"",177,0)"
^XMB(3.9,123,2,668,0)=" N ORD,NOW,NOW1 S ORD=+$P($G(^PSRX(+$G(RXN),""OR1"")),""^"",2)"
^XMB(3.9,123,2,669,0)="""RTN"",""PSXRPPL"",178,0)"
^XMB(3.9,123,2,670,0)=" Q:'ORD"
^XMB(3.9,123,2,671,0)="""RTN"",""PSXRPPL"",179,0)"
^XMB(3.9,123,2,672,0)=" S NOW=$$NOW^XLFDT,NOW1=$$FMADD^XLFDT(NOW,1)"
^XMB(3.9,123,2,673,0)="""RTN"",""PSXRPPL"",180,0)"
^XMB(3.9,123,2,674,0)=" S ^XTMP(""ORLK-""_+ORD,0)=NOW1_U_NOW_""^CPRS/CMOP RX/Order Lock"",^(1)=DUZ_U_$J"
^XMB(3.9,123,2,675,0)="""RTN"",""PSXRPPL"",181,0)"
^XMB(3.9,123,2,676,0)=" Q"
^XMB(3.9,123,2,677,0)="""RTN"",""PSXRPPL"",182,0)"
^XMB(3.9,123,2,678,0)="RXNCLEAR ; needs RXN"
^XMB(3.9,123,2,679,0)="""RTN"",""PSXRPPL"",183,0)"
^XMB(3.9,123,2,680,0)=" Q:'$G(RXN)"
^XMB(3.9,123,2,681,0)="""RTN"",""PSXRPPL"",184,0)"
^XMB(3.9,123,2,682,0)=" N ORD S ORD=+$P($G(^PSRX(+$G(RXN),""OR1"")),""^"",2) Q:'ORD"
^XMB(3.9,123,2,683,0)="""RTN"",""PSXRPPL"",185,0)"
^XMB(3.9,123,2,684,0)=" I $D(^XTMP(""ORLK-""_ORD,0)),^(0)[""CPRS/CMOP"" K ^XTMP(""ORLK-""_ORD)"
^XMB(3.9,123,2,685,0)="""RTN"",""PSXRPPL"",186,0)"
^XMB(3.9,123,2,686,0)=" Q"
^XMB(3.9,123,2,687,0)="""RTN"",""PSXRPPL1"")"
^XMB(3.9,123,2,688,0)="0^3^B46995301^B43603421"
^XMB(3.9,123,2,689,0)="""RTN"",""PSXRPPL1"",1,0)"
^XMB(3.9,123,2,690,0)="PSXRPPL1 ;BIR/WPB-Resets Suspense to Print/Transmit ;[ 10/02/97  3:13 PM ]"
^XMB(3.9,123,2,691,0)="""RTN"",""PSXRPPL1"",2,0)"
^XMB(3.9,123,2,692,0)=" ;;2.0;CMOP;**3,48,62**;11 Apr 97;Build 12"
^XMB(3.9,123,2,693,0)="""RTN"",""PSXRPPL1"",3,0)"
^XMB(3.9,123,2,694,0)=" ;Reference to ^PSRX( supported by DBIA #1977"
^XMB(3.9,123,2,695,0)="""RTN"",""PSXRPPL1"",4,0)"
^XMB(3.9,123,2,696,0)=" ;Reference to File #59 supported by DBIA #1976"
^XMB(3.9,123,2,697,0)="""RTN"",""PSXRPPL1"",5,0)"
^XMB(3.9,123,2,698,0)=" ;Reference to PSOSURST supported by DBIA #1970"
^XMB(3.9,123,2,699,0)="""RTN"",""PSXRPPL1"",6,0)"
^XMB(3.9,123,2,700,0)=" ;Reference to ^PS(52.5,  supported by DBIA #1978"
^XMB(3.9,123,2,701,0)="""RTN"",""PSXRPPL1"",7,0)"
^XMB(3.9,123,2,702,0)=" ;Reference to ^BPSUTIL supported by DBIA #4410"
^XMB(3.9,123,2,703,0)="""RTN"",""PSXRPPL1"",8,0)"
^XMB(3.9,123,2,704,0)=" ;Reference to ^PSSLOCK   supported by DBIA #2789"
^XMB(3.9,123,2,705,0)="""RTN"",""PSXRPPL1"",9,0)"
^XMB(3.9,123,2,706,0)=" ;Reference to ^PSOBPSUT supported by DBIA #4701"
^XMB(3.9,123,2,707,0)="""RTN"",""PSXRPPL1"",10,0)"
^XMB(3.9,123,2,708,0)=" ;Reference to ^PSOBPSU1 supported by DBIA #4702"
^XMB(3.9,123,2,709,0)="""RTN"",""PSXRPPL1"",11,0)"
^XMB(3.9,123,2,710,0)=" ;Reference to ^PSOREJUT supported by DBIA #4706"
^XMB(3.9,123,2,711,0)="""RTN"",""PSXRPPL1"",12,0)"
^XMB(3.9,123,2,712,0)=" ;"
^XMB(3.9,123,2,713,0)="""RTN"",""PSXRPPL1"",13,0)"
^XMB(3.9,123,2,714,0)=" ;This routine will reset the Queued flags and the printed flags in"
^XMB(3.9,123,2,715,0)="""RTN"",""PSXRPPL1"",14,0)"
^XMB(3.9,123,2,716,0)=" ;PS(52.5 to 'Queued' and 'Printed' respectively and either retransmits"
^XMB(3.9,123,2,717,0)="""RTN"",""PSXRPPL1"",15,0)"
^XMB(3.9,123,2,718,0)=" ;the data to the CMOP or prints the labels."
^XMB(3.9,123,2,719,0)="""RTN"",""PSXRPPL1"",16,0)"
^XMB(3.9,123,2,720,0)="START ;initializes local variables"
^XMB(3.9,123,2,721,0)="""RTN"",""PSXRPPL1"",17,0)"
^XMB(3.9,123,2,722,0)=" I '$D(^XUSEC(""PSXCMOPMGR"",DUZ)) W !,""You are not authorized to use this option!"" Q"
^XMB(3.9,123,2,723,0)="""RTN"",""PSXRPPL1"",18,0)"
^XMB(3.9,123,2,724,0)=" I '$D(^XUSEC(""PSX XMIT"",DUZ)) W !,""You are not authorized to use this option!"" Q"
^XMB(3.9,123,2,725,0)="""RTN"",""PSXRPPL1"",19,0)"
^XMB(3.9,123,2,726,0)=" S SWITCH=0"
^XMB(3.9,123,2,727,0)="""RTN"",""PSXRPPL1"",20,0)"
^XMB(3.9,123,2,728,0)=" K ^TMP($J,""PSX"")"
^XMB(3.9,123,2,729,0)="""RTN"",""PSXRPPL1"",21,0)"
^XMB(3.9,123,2,730,0)="QRY ;initial message and option menu"
^XMB(3.9,123,2,731,0)="""RTN"",""PSXRPPL1"",22,0)"
^XMB(3.9,123,2,732,0)=" W !"
^XMB(3.9,123,2,733,0)="""RTN"",""PSXRPPL1"",23,0)"
^XMB(3.9,123,2,734,0)=" S DIR(0)=""NAO^1:3:0"",DIR(""A"")=""Select (1, 2, 3):  "",DIR(""A"",1)=""  1 - Reset CMOP Batches for Transmission"""
^XMB(3.9,123,2,735,0)="""RTN"",""PSXRPPL1"",24,0)"
^XMB(3.9,123,2,736,0)=" S DIR(""A"",2)=""  2 - Reprint CMOP Batches"",DIR(""A"",4)=""  3 - Standard Reprint Batches from Suspense"""
^XMB(3.9,123,2,737,0)="""RTN"",""PSXRPPL1"",25,0)"
^XMB(3.9,123,2,738,0)=" S DIR(""?"")=""Enter a number between 1 and 3."",DIR(""??"")=$S($G(PSXVER):""^D HELP^PSXSRP"",1:""^D MSG2^PSXRHLP"") D ^DIR K DIR G:(Y<0)!($D(DIRUT)) EXIT S REPLY=Y K Y,X"
^XMB(3.9,123,2,739,0)="""RTN"",""PSXRPPL1"",26,0)"
^XMB(3.9,123,2,740,0)=" I REPLY=1 S (PSXTRANS,PSXFLAG,SWITCH)=1 G:$G(PSXVER) ^PSXSRST G:'$G(PSXVER) BEGIN"
^XMB(3.9,123,2,741,0)="""RTN"",""PSXRPPL1"",27,0)"
^XMB(3.9,123,2,742,0)=" I REPLY=2 S (PSXTRANS,PSXFLAG,SWITCH)=2 G:$G(PSXVER) ^PSXSRST G:'$G(PSXVER) BEGIN"
^XMB(3.9,123,2,743,0)="""RTN"",""PSXRPPL1"",28,0)"
^XMB(3.9,123,2,744,0)=" I REPLY=3 S PSXFLG=1 G START^PSOSURST"
^XMB(3.9,123,2,745,0)="""RTN"",""PSXRPPL1"",29,0)"
^XMB(3.9,123,2,746,0)=" K REPLY"
^XMB(3.9,123,2,747,0)="""RTN"",""PSXRPPL1"",30,0)"
^XMB(3.9,123,2,748,0)=" Q"
^XMB(3.9,123,2,749,0)="""RTN"",""PSXRPPL1"",31,0)"
^XMB(3.9,123,2,750,0)="BEGIN ;confirms CMOP processing, if Yes, checks for active site and status"
^XMB(3.9,123,2,751,0)="""RTN"",""PSXRPPL1"",32,0)"
^XMB(3.9,123,2,752,0)=" ;in the CMOP System file, if not an active site or the system status"
^XMB(3.9,123,2,753,0)="""RTN"",""PSXRPPL1"",33,0)"
^XMB(3.9,123,2,754,0)=" ;is not stopped the routine exits and processing stops"
^XMB(3.9,123,2,755,0)="""RTN"",""PSXRPPL1"",34,0)"
^XMB(3.9,123,2,756,0)=" W !"
^XMB(3.9,123,2,757,0)="""RTN"",""PSXRPPL1"",35,0)"
^XMB(3.9,123,2,758,0)=" S DIR(0)=""Y"",DIR(""B"")=""NO"",DIR(""A"")=""Are you sure you want to continue"",DIR(""?"",1)=""No - Exits."""
^XMB(3.9,123,2,759,0)="""RTN"",""PSXRPPL1"",36,0)"
^XMB(3.9,123,2,760,0)=" S DIR(""?"")=$S(SWITCH=1:""Yes - Transmits data to the CMOP."",SWITCH=2:""Yes - Prints labels."",1:0) D ^DIR K DIR G:(Y=0)!($D(DIRUT)) EXIT K Y"
^XMB(3.9,123,2,761,0)="""RTN"",""PSXRPPL1"",37,0)"
^XMB(3.9,123,2,762,0)=" S STATUS=$P($G(^PSX(550,+PSXSYS,0)),""^"",3) I STATUS'=""H"" W !,""There is another job in process, please try again later."" G EXIT"
^XMB(3.9,123,2,763,0)="""RTN"",""PSXRPPL1"",38,0)"
^XMB(3.9,123,2,764,0)="ASK ;gets date for the resets"
^XMB(3.9,123,2,765,0)="""RTN"",""PSXRPPL1"",39,0)"
^XMB(3.9,123,2,766,0)=" K BEGDATE,ENDDATE W !!,?10,$S($G(SWITCH)=1:""RESET and TRANSMIT CMOP DATA"",$G(SWITCH)=2:""RESET and REPRINT CMOP LABELS"",1:""""),!!!,""**** Date Selection ****"",!!"
^XMB(3.9,123,2,767,0)="""RTN"",""PSXRPPL1"",40,0)"
^XMB(3.9,123,2,768,0)="ASK1 I SWITCH=1 S %DT=""AEX"",%DT(""A"")=""   BEGIN DATE:  "" D ^%DT K %DT,%DT(""A"") G:Y<0 EXIT S PRTDT=Y"
^XMB(3.9,123,2,769,0)="""RTN"",""PSXRPPL1"",41,0)"
^XMB(3.9,123,2,770,0)=" I SWITCH=2 S %DT=""AEX"",%DT(""A"")=""   BEGIN DATE:  "" D ^%DT K %DT,%DT(""A"") G:Y<0 EXIT S PRTDT=Y"
^XMB(3.9,123,2,771,0)="""RTN"",""PSXRPPL1"",42,0)"
^XMB(3.9,123,2,772,0)=" W !! S %DT=""AEX"",%DT(""A"")=""   ENDING DATE:  "" D ^%DT Q:Y<0  S PSXDTRG=Y K %DT,%DT(""A"")"
^XMB(3.9,123,2,773,0)="""RTN"",""PSXRPPL1"",43,0)"
^XMB(3.9,123,2,774,0)=" I $G(PRTDT)>$G(PSXDTRG) W !,""Begin Date must be before Ending Date!"" G ASK1"
^XMB(3.9,123,2,775,0)="""RTN"",""PSXRPPL1"",44,0)"
^XMB(3.9,123,2,776,0)=" I '$O(^PS(52.5,""AP"",PRTDT-1))!($O(^(0))>PSXDTRG) W !!,$S(SWITCH=1:""Nothing to Transmit."",SWITCH=2:""Nothing to Reprint."",1:0) G EXIT"
^XMB(3.9,123,2,777,0)="""RTN"",""PSXRPPL1"",45,0)"
^XMB(3.9,123,2,778,0)=" D SDT S PSXERFLG=0"
^XMB(3.9,123,2,779,0)="""RTN"",""PSXRPPL1"",46,0)"
^XMB(3.9,123,2,780,0)=" I SWITCH=1 D PSXTRANS Q"
^XMB(3.9,123,2,781,0)="""RTN"",""PSXRPPL1"",47,0)"
^XMB(3.9,123,2,782,0)=" I SWITCH=2 D PRINT Q"
^XMB(3.9,123,2,783,0)="""RTN"",""PSXRPPL1"",48,0)"
^XMB(3.9,123,2,784,0)=" S PSXSTAT=""H"" D PSXSTAT^PSXRSYU"
^XMB(3.9,123,2,785,0)="""RTN"",""PSXRPPL1"",49,0)"
^XMB(3.9,123,2,786,0)=" G EXIT"
^XMB(3.9,123,2,787,0)="""RTN"",""PSXRPPL1"",50,0)"
^XMB(3.9,123,2,788,0)="PSXTRANS ;"
^XMB(3.9,123,2,789,0)="""RTN"",""PSXRPPL1"",51,0)"
^XMB(3.9,123,2,790,0)=" W !!"
^XMB(3.9,123,2,791,0)="""RTN"",""PSXRPPL1"",52,0)"
^XMB(3.9,123,2,792,0)=" S DIR(0)=""Y"",DIR(""B"")=""YES"",DIR(""A"")=""DO YOU WISH TO TRANSMIT TO THE CMOP NOW"",DIR(""?"",1)=""No - Exits the option."",DIR(""?"")=""Yes - Transmits to the CMOP."" D ^DIR K DIR Q:(Y=0)!($D(DIRUT))  K Y"
^XMB(3.9,123,2,793,0)="""RTN"",""PSXRPPL1"",53,0)"
^XMB(3.9,123,2,794,0)=" S PSXSTAT=""T"" D PSXSTAT^PSXRSYU,ASK^PSXRSUS"
^XMB(3.9,123,2,795,0)="""RTN"",""PSXRPPL1"",54,0)"
^XMB(3.9,123,2,796,0)=" Q"
^XMB(3.9,123,2,797,0)="""RTN"",""PSXRPPL1"",55,0)"
^XMB(3.9,123,2,798,0)="PRINT ;"
^XMB(3.9,123,2,799,0)="""RTN"",""PSXRPPL1"",56,0)"
^XMB(3.9,123,2,800,0)=" W !!"
^XMB(3.9,123,2,801,0)="""RTN"",""PSXRPPL1"",57,0)"
^XMB(3.9,123,2,802,0)=" S DIR(0)=""Y"",DIR(""B"")=""YES"",DIR(""A"")=""DO YOU WISH REPRINT CMOP LABELS NOW"",DIR(""?"",1)=""No - Exits the option."",DIR(""?"")=""Yes - Reprints CMOP labels."" D ^DIR K DIR Q:(Y=0)!($D(DIRUT))  K Y"
^XMB(3.9,123,2,803,0)="""RTN"",""PSXRPPL1"",58,0)"
^XMB(3.9,123,2,804,0)=" S PSXSTAT=""T"" D PSXSTAT^PSXRSYU,ASK^PSXRSUS"
^XMB(3.9,123,2,805,0)="""RTN"",""PSXRPPL1"",59,0)"
^XMB(3.9,123,2,806,0)=" Q"
^XMB(3.9,123,2,807,0)="""RTN"",""PSXRPPL1"",60,0)"
^XMB(3.9,123,2,808,0)="SDT ;the following subroutines go through the PS(52.5 global and pull the"
^XMB(3.9,123,2,809,0)="""RTN"",""PSXRPPL1"",61,0)"
^XMB(3.9,123,2,810,0)=" ;data needed to reset the Queued/Printed nodes"
^XMB(3.9,123,2,811,0)="""RTN"",""PSXRPPL1"",62,0)"
^XMB(3.9,123,2,812,0)=" S SDT=PRTDT-1 F  S SDT=$O(^PS(52.5,""AP"",SDT)),DFN=0 Q:(SDT>PSXDTRG)!(SDT="""")  D DFN"
^XMB(3.9,123,2,813,0)="""RTN"",""PSXRPPL1"",63,0)"
^XMB(3.9,123,2,814,0)=" Q"
^XMB(3.9,123,2,815,0)="""RTN"",""PSXRPPL1"",64,0)"
^XMB(3.9,123,2,816,0)="DFN ;"
^XMB(3.9,123,2,817,0)="""RTN"",""PSXRPPL1"",65,0)"
^XMB(3.9,123,2,818,0)=" F  S DFN=$O(^PS(52.5,""AP"",SDT,DFN)),REC=0 Q:(DFN="""")!(DFN'>0)  D REC"
^XMB(3.9,123,2,819,0)="""RTN"",""PSXRPPL1"",66,0)"
^XMB(3.9,123,2,820,0)=" Q"
^XMB(3.9,123,2,821,0)="""RTN"",""PSXRPPL1"",67,0)"
^XMB(3.9,123,2,822,0)="REC ;"
^XMB(3.9,123,2,823,0)="""RTN"",""PSXRPPL1"",68,0)"
^XMB(3.9,123,2,824,0)=" F  S REC=$O(^PS(52.5,""AP"",SDT,DFN,REC)) Q:(REC'>0)!(REC="""")  D:$G(^PS(52.5,REC,0)) CHECK"
^XMB(3.9,123,2,825,0)="""RTN"",""PSXRPPL1"",69,0)"
^XMB(3.9,123,2,826,0)=" K ZDIV"
^XMB(3.9,123,2,827,0)="""RTN"",""PSXRPPL1"",70,0)"
^XMB(3.9,123,2,828,0)=" Q"
^XMB(3.9,123,2,829,0)="""RTN"",""PSXRPPL1"",71,0)"
^XMB(3.9,123,2,830,0)="CHECK ;"
^XMB(3.9,123,2,831,0)="""RTN"",""PSXRPPL1"",72,0)"
^XMB(3.9,123,2,832,0)=" S STAT=$P($G(^PS(52.5,REC,0)),U,7),PRINT=$G(^PS(52.5,REC,""P"")),PSXPTR=$P($G(^PS(52.5,REC,0)),U,1)"
^XMB(3.9,123,2,833,0)="""RTN"",""PSXRPPL1"",73,0)"
^XMB(3.9,123,2,834,0)=" S RXF="""" F XXF=0:0 S XXF=$O(^PSRX(PSXPTR,1,XXF)) Q:XXF'>0  S RXF=XXF"
^XMB(3.9,123,2,835,0)="""RTN"",""PSXRPPL1"",74,0)"
^XMB(3.9,123,2,836,0)=" S ZDIV=$S($G(RXF)>0:$P($G(^PSRX(PSXPTR,1,RXF,0)),U,9),1:$P($G(^PSRX(PSXPTR,2)),U,9)) I $G(ZDIV)'=$G(PSOSITE) Q"
^XMB(3.9,123,2,837,0)="""RTN"",""PSXRPPL1"",75,0)"
^XMB(3.9,123,2,838,0)=" S:RXF'="""" GONE=$P($G(^PSRX(PSXPTR,1,RXF,0)),U,18)"
^XMB(3.9,123,2,839,0)="""RTN"",""PSXRPPL1"",76,0)"
^XMB(3.9,123,2,840,0)=" S:RXF="""" GONE=$P($G(^PSRX(PSXPTR,2)),U,13)"
^XMB(3.9,123,2,841,0)="""RTN"",""PSXRPPL1"",77,0)"
^XMB(3.9,123,2,842,0)=" I (STAT=""P"")&(PRINT=1)&($G(GONE)="""") D RESET"
^XMB(3.9,123,2,843,0)="""RTN"",""PSXRPPL1"",78,0)"
^XMB(3.9,123,2,844,0)=" K GONE,RXF,XXF"
^XMB(3.9,123,2,845,0)="""RTN"",""PSXRPPL1"",79,0)"
^XMB(3.9,123,2,846,0)=" Q"
^XMB(3.9,123,2,847,0)="""RTN"",""PSXRPPL1"",80,0)"
^XMB(3.9,123,2,848,0)="RESET ;resets the Queued/Printed flags to Queued and not Printed"
^XMB(3.9,123,2,849,0)="""RTN"",""PSXRPPL1"",81,0)"
^XMB(3.9,123,2,850,0)=" L +^PS(52.5,REC):DTIME Q:'$T"
^XMB(3.9,123,2,851,0)="""RTN"",""PSXRPPL1"",82,0)"
^XMB(3.9,123,2,852,0)=" S DIE=""^PS(52.5,"",DA=REC,DR=""2////2;3////Q"" D ^DIE L -^PS(52.5,REC) K DIE,DR,DA"
^XMB(3.9,123,2,853,0)="""RTN"",""PSXRPPL1"",83,0)"
^XMB(3.9,123,2,854,0)=" S:$G(PSXVER) $P(^PSRX(PSXPTR,""STA""),U,1)=5 S:'$G(PSXVER) $P(^PSRX(PSXPTR,0),U,15)=5 K ^PS(52.5,""AC"",DFN,SDT,REC)"
^XMB(3.9,123,2,855,0)="""RTN"",""PSXRPPL1"",84,0)"
^XMB(3.9,123,2,856,0)=" Q"
^XMB(3.9,123,2,857,0)="""RTN"",""PSXRPPL1"",85,0)"
^XMB(3.9,123,2,858,0)="PRTERR ; auto error trap for prt cmop local"
^XMB(3.9,123,2,859,0)="""RTN"",""PSXRPPL1"",86,0)"
^XMB(3.9,123,2,860,0)=" S XXERR=$$EC^%ZOSV"
^XMB(3.9,123,2,861,0)="""RTN"",""PSXRPPL1"",87,0)"
^XMB(3.9,123,2,862,0)=" S PSXDIVNM=$$GET1^DIQ(59,PSOSITE,.01)"
^XMB(3.9,123,2,863,0)="""RTN"",""PSXRPPL1"",88,0)"
^XMB(3.9,123,2,864,0)=" ;save an image of the transient file 550.1 for 2 days"
^XMB(3.9,123,2,865,0)="""RTN"",""PSXRPPL1"",89,0)"
^XMB(3.9,123,2,866,0)=" D NOW^%DTC S DTTM=%"
^XMB(3.9,123,2,867,0)="""RTN"",""PSXRPPL1"",90,0)"
^XMB(3.9,123,2,868,0)=" S X=$$FMADD^XLFDT(DT,+2) S ^XTMP(""PSXERR ""_DTTM,0)=X_U_DT_U_""CMOP ""_XXERR"
^XMB(3.9,123,2,869,0)="""RTN"",""PSXRPPL1"",91,0)"
^XMB(3.9,123,2,870,0)=" M ^XTMP(""PSXERR ""_DTTM,550.1)=^PSX(550.1)"
^XMB(3.9,123,2,871,0)="""RTN"",""PSXRPPL1"",92,0)"
^XMB(3.9,123,2,872,0)=" S XMSUB=""CMOP Error ""_PSXDIVNM_"" ""_$$GET1^DIQ(550.2,+$G(PSXBAT),.01)"
^XMB(3.9,123,2,873,0)="""RTN"",""PSXRPPL1"",93,0)"
^XMB(3.9,123,2,874,0)=" D GRP1^PSXNOTE"
^XMB(3.9,123,2,875,0)="""RTN"",""PSXRPPL1"",94,0)"
^XMB(3.9,123,2,876,0)=" ;S XMY(DUZ)="""""
^XMB(3.9,123,2,877,0)="""RTN"",""PSXRPPL1"",95,0)"
^XMB(3.9,123,2,878,0)=" S XMTEXT=""TEXT("""
^XMB(3.9,123,2,879,0)="""RTN"",""PSXRPPL1"",96,0)"
^XMB(3.9,123,2,880,0)=" S TEXT(1,0)=$S($G(PSXCS):"""",1:""NON-"")_""CS CMOP Print Local encountered the following error. Please investigate"""
^XMB(3.9,123,2,881,0)="""RTN"",""PSXRPPL1"",97,0)"
^XMB(3.9,123,2,882,0)=" S TEXT(2,0)=""Division:         ""_PSXDIVNM"
^XMB(3.9,123,2,883,0)="""RTN"",""PSXRPPL1"",98,0)"
^XMB(3.9,123,2,884,0)=" S TEXT(3,0)=""Type/Batch        ""_$S($G(PSXCS):""CS"",1:""NON-CS"")_"" / ""_$$GET1^DIQ(550.2,$G(PSXBAT),.01)"
^XMB(3.9,123,2,885,0)="""RTN"",""PSXRPPL1"",99,0)"
^XMB(3.9,123,2,886,0)=" S TEXT(4,0)=""Error:            ""_XXERR"
^XMB(3.9,123,2,887,0)="""RTN"",""PSXRPPL1"",100,0)"
^XMB(3.9,123,2,888,0)=" S TEXT(5,0)=""This batch has been set to closed."""
^XMB(3.9,123,2,889,0)="""RTN"",""PSXRPPL1"",101,0)"
^XMB(3.9,123,2,890,0)=" S TEXT(6,0)=""Call NVS to investigate which prescriptions have been printed and which are yet to print."""
^XMB(3.9,123,2,891,0)="""RTN"",""PSXRPPL1"",102,0)"
^XMB(3.9,123,2,892,0)=" S TEXT(7,0)=""A copy of file 550.1 can be found in ^XTMP(""""PSXERR ""_DTTM_"""""")"""
^XMB(3.9,123,2,893,0)="""RTN"",""PSXRPPL1"",103,0)"
^XMB(3.9,123,2,894,0)=" D ^%ZTER"
^XMB(3.9,123,2,895,0)="""RTN"",""PSXRPPL1"",104,0)"
^XMB(3.9,123,2,896,0)=" D ^XMD"
^XMB(3.9,123,2,897,0)="""RTN"",""PSXRPPL1"",105,0)"
^XMB(3.9,123,2,898,0)=" I $G(PSXBAT) D"
^XMB(3.9,123,2,899,0)="""RTN"",""PSXRPPL1"",106,0)"
^XMB(3.9,123,2,900,0)=" . N DA,DIE,DR S DIE=""^PSX(550.2,"",DA=PSXBAT,DR=""1////4"""
^XMB(3.9,123,2,901,0)="""RTN"",""PSXRPPL1"",107,0)"
^XMB(3.9,123,2,902,0)=" . D ^DIE"
^XMB(3.9,123,2,903,0)="""RTN"",""PSXRPPL1"",108,0)"
^XMB(3.9,123,2,904,0)=" G UNWIND^%ZTER"
^XMB(3.9,123,2,905,0)="""RTN"",""PSXRPPL1"",109,0)"
^XMB(3.9,123,2,906,0)=" ;"
^XMB(3.9,123,2,907,0)="""RTN"",""PSXRPPL1"",110,0)"
^XMB(3.9,123,2,908,0)="SBTECME(PSXTP,PSXDV,THRDT,PULLDT) ; - Sumitting prescriptions to EMCE (3rd Party Billing)"
^XMB(3.9,123,2,909,0)="""RTN"",""PSXRPPL1"",111,0)"
^XMB(3.9,123,2,910,0)=" ;Input: PSXTP  - Type of prescriptions ""C"" - Controlled Subs / ""N"" Non-Controlled Subs"
^XMB(3.9,123,2,911,0)="""RTN"",""PSXRPPL1"",112,0)"
^XMB(3.9,123,2,912,0)=" ;       PSXDV  - Pointer to DIVSION file (#59)"
^XMB(3.9,123,2,913,0)="""RTN"",""PSXRPPL1"",113,0)"
^XMB(3.9,123,2,914,0)=" ;       THRDT  - T+N when scheduling the THROUGH DATE to run CMOP Transmission"
^XMB(3.9,123,2,915,0)="""RTN"",""PSXRPPL1"",114,0)"
^XMB(3.9,123,2,916,0)=" ;       PULLDT - T+N+PULL DAYS parameter in the DIVISION file (#59)"
^XMB(3.9,123,2,917,0)="""RTN"",""PSXRPPL1"",115,0)"
^XMB(3.9,123,2,918,0)=" ;Output:SBTECME- Number of prescriptions submitted to ECME"
^XMB(3.9,123,2,919,0)="""RTN"",""PSXRPPL1"",116,0)"
^XMB(3.9,123,2,920,0)=" N RX,RFL,SBTECME,PSOLRX,RESP,SDT,XDFN,REC,PSOLRX,DOS"
^XMB(3.9,123,2,921,0)="""RTN"",""PSXRPPL1"",117,0)"
^XMB(3.9,123,2,922,0)=" I '$$ECMEON^BPSUTIL(PSXDV)!'$$CMOPON^BPSUTIL(PSXDV) Q"
^XMB(3.9,123,2,923,0)="""RTN"",""PSXRPPL1"",118,0)"
^XMB(3.9,123,2,924,0)=" S (SDT,SBTECME)=0 K ^TMP(""PSXEPHDFN"",$J)"
^XMB(3.9,123,2,925,0)="""RTN"",""PSXRPPL1"",119,0)"
^XMB(3.9,123,2,926,0)=" F  S SDT=$O(^PS(52.5,""CMP"",""Q"",PSXTP,PSXDV,SDT)) S XDFN=0 Q:(SDT>PULLDT)!(SDT'>0)  D"
^XMB(3.9,123,2,927,0)="""RTN"",""PSXRPPL1"",120,0)"
^XMB(3.9,123,2,928,0)=" . F  S XDFN=$O(^PS(52.5,""CMP"",""Q"",PSXTP,PSXDV,SDT,XDFN)) S REC=0 Q:(XDFN'>0)!(XDFN="""")  D"
^XMB(3.9,123,2,929,0)="""RTN"",""PSXRPPL1"",121,0)"
^XMB(3.9,123,2,930,0)=" . . F  S REC=$O(^PS(52.5,""CMP"",""Q"",PSXTP,PSXDV,SDT,XDFN,REC)) Q:(REC'>0)!(REC="""")  D"
^XMB(3.9,123,2,931,0)="""RTN"",""PSXRPPL1"",122,0)"
^XMB(3.9,123,2,932,0)=" . . . S (PSOLRX,RX)=+$$GET1^DIQ(52.5,REC,.01,""I"") I 'RX Q"
^XMB(3.9,123,2,933,0)="""RTN"",""PSXRPPL1"",123,0)"
^XMB(3.9,123,2,934,0)=" . . . S RFL=$$GET1^DIQ(52.5,REC,9,""I"") I RFL="""" S RFL=$$LSTRFL^PSOBPSU1(RX)"
^XMB(3.9,123,2,935,0)="""RTN"",""PSXRPPL1"",124,0)"
^XMB(3.9,123,2,936,0)=" . . . I $$XMIT^PSXBPSUT(REC) D"
^XMB(3.9,123,2,937,0)="""RTN"",""PSXRPPL1"",125,0)"
^XMB(3.9,123,2,938,0)=" . . . . I SDT>THRDT,'$D(^TMP(""PSXEPHDFN"",$J,XDFN)) Q"
^XMB(3.9,123,2,939,0)="""RTN"",""PSXRPPL1"",126,0)"
^XMB(3.9,123,2,940,0)=" . . . . I $$PATCH^XPDUTL(""PSO*7.0*148"") D"
^XMB(3.9,123,2,941,0)="""RTN"",""PSXRPPL1"",127,0)"
^XMB(3.9,123,2,942,0)=" . . . . . I $$RETRX^PSOBPSUT(RX,RFL),SDT>DT Q"
^XMB(3.9,123,2,943,0)="""RTN"",""PSXRPPL1"",128,0)"
^XMB(3.9,123,2,944,0)=" . . . . . I $$DOUBLE(RX,RFL) Q"
^XMB(3.9,123,2,945,0)="""RTN"",""PSXRPPL1"",129,0)"
^XMB(3.9,123,2,946,0)=" . . . . . I $$FIND^PSOREJUT(RX,RFL) Q"
^XMB(3.9,123,2,947,0)="""RTN"",""PSXRPPL1"",130,0)"
^XMB(3.9,123,2,948,0)=" . . . . . I '$$RETRX^PSOBPSUT(RX,RFL),$$STATUS^PSOBPSUT(RX,RFL)'="""" Q"
^XMB(3.9,123,2,949,0)="""RTN"",""PSXRPPL1"",131,0)"
^XMB(3.9,123,2,950,0)=" . . . . . S DOS=$$RXFLDT^PSOBPSUT(RX,RFL) I DOS>DT S DOS=DT"
^XMB(3.9,123,2,951,0)="""RTN"",""PSXRPPL1"",132,0)"
^XMB(3.9,123,2,952,0)=" . . . . . D ECMESND^PSOBPSU1(RX,RFL,DOS,""PC"",,1,,,,.RESP)"
^XMB(3.9,123,2,953,0)="""RTN"",""PSXRPPL1"",133,0)"
^XMB(3.9,123,2,954,0)=" . . . . . I $D(RESP),'RESP S SBTECME=SBTECME+1"
^XMB(3.9,123,2,955,0)="""RTN"",""PSXRPPL1"",134,0)"
^XMB(3.9,123,2,956,0)=" . . . . . S ^TMP(""PSXEPHDFN"",$J,XDFN)="""""
^XMB(3.9,123,2,957,0)="""RTN"",""PSXRPPL1"",135,0)"
^XMB(3.9,123,2,958,0)=" . . . D PSOUL^PSSLOCK(PSOLRX)"
^XMB(3.9,123,2,959,0)="""RTN"",""PSXRPPL1"",136,0)"
^XMB(3.9,123,2,960,0)=" K ^TMP(""PSXEPHDFN"",$J)"
^XMB(3.9,123,2,961,0)="""RTN"",""PSXRPPL1"",137,0)"
^XMB(3.9,123,2,962,0)=" Q SBTECME"
^XMB(3.9,123,2,963,0)="""RTN"",""PSXRPPL1"",138,0)"
^XMB(3.9,123,2,964,0)=" ;"
^XMB(3.9,123,2,965,0)="""RTN"",""PSXRPPL1"",139,0)"
^XMB(3.9,123,2,966,0)="DOUBLE(RX,RFL) ; Checks if previous fill is still being worked on by CMOP"
^XMB(3.9,123,2,967,0)="""RTN"",""PSXRPPL1"",140,0)"
^XMB(3.9,123,2,968,0)=" ;Input: (r) RX  - Prescription IEN"
^XMB(3.9,123,2,969,0)="""RTN"",""PSXRPPL1"",141,0)"
^XMB(3.9,123,2,970,0)=" ;       (r) RFL - Fill number"
^XMB(3.9,123,2,971,0)="""RTN"",""PSXRPPL1"",142,0)"
^XMB(3.9,123,2,972,0)=" ;Output:    0 - Previous fill not with CMOP / 1 - CMOP working on previous fill"
^XMB(3.9,123,2,973,0)="""RTN"",""PSXRPPL1"",143,0)"
^XMB(3.9,123,2,974,0)=" N CMP,DOUBLE,STS"
^XMB(3.9,123,2,975,0)="""RTN"",""PSXRPPL1"",144,0)"
^XMB(3.9,123,2,976,0)=" ; "
^XMB(3.9,123,2,977,0)="""RTN"",""PSXRPPL1"",145,0)"
^XMB(3.9,123,2,978,0)=" I 'RFL!'$D(^PSRX(RX,4)) Q 0"
^XMB(3.9,123,2,979,0)="""RTN"",""PSXRPPL1"",146,0)"
^XMB(3.9,123,2,980,0)=" I $$STATUS^PSOBPSUT(RX,RFL-1)="""" Q 0"
^XMB(3.9,123,2,981,0)="""RTN"",""PSXRPPL1"",147,0)"
^XMB(3.9,123,2,982,0)=" S DOUBLE=0,CMP=999"
^XMB(3.9,123,2,983,0)="""RTN"",""PSXRPPL1"",148,0)"
^XMB(3.9,123,2,984,0)=" F  S CMP=$O(^PSRX(RX,4,CMP),-1) Q:'CMP  D  I DOUBLE Q"
^XMB(3.9,123,2,985,0)="""RTN"",""PSXRPPL1"",149,0)"
^XMB(3.9,123,2,986,0)=" . I $$GET1^DIQ(52.01,CMP_"",""_RX,2,""I"")'=(RFL-1) Q"
^XMB(3.9,123,2,987,0)="""RTN"",""PSXRPPL1"",150,0)"
^XMB(3.9,123,2,988,0)=" . S STS=$$GET1^DIQ(52.01,CMP_"",""_RX,3,""I"")"
^XMB(3.9,123,2,989,0)="""RTN"",""PSXRPPL1"",151,0)"
^XMB(3.9,123,2,990,0)=" . I STS=0!(STS=2) S DOUBLE=1"
^XMB(3.9,123,2,991,0)="""RTN"",""PSXRPPL1"",152,0)"
^XMB(3.9,123,2,992,0)=" Q DOUBLE"
^XMB(3.9,123,2,993,0)="""RTN"",""PSXRPPL1"",153,0)"
^XMB(3.9,123,2,994,0)=" ;"
^XMB(3.9,123,2,995,0)="""RTN"",""PSXRPPL1"",154,0)"
^XMB(3.9,123,2,996,0)="EXIT ;"
^XMB(3.9,123,2,997,0)="""RTN"",""PSXRPPL1"",155,0)"
^XMB(3.9,123,2,998,0)=" K DFN,PSXDAYS,PSXDTRG,SWITCH,STAT,PRINT,PSXTRANS,REC,REPLY,SDT,X,X1,X2,Y,ANSWER,STATUS,PSXFLAG,PSXPTR,PSXSTAT"
^XMB(3.9,123,2,999,0)="""RTN"",""PSXRPPL1"",156,0)"
^XMB(3.9,123,2,1000,0)=" K DIR,DIRUT,DTOUT,DUOUT,DIROUT"
^XMB(3.9,123,2,1001,0)="""RTN"",""PSXRPPL1"",157,0)"
^XMB(3.9,123,2,1002,0)=" Q"
^XMB(3.9,123,2,1003,0)="""RTN"",""PSXVND"")"
^XMB(3.9,123,2,1004,0)="0^1^B36289090^B36240970"
^XMB(3.9,123,2,1005,0)="""RTN"",""PSXVND"",1,0)"
^XMB(3.9,123,2,1006,0)="PSXVND ;BIR/WPB,HTW,PWC-File Release Data at the Remote Facility ;10/29/98  2:13 PM"
^XMB(3.9,123,2,1007,0)="""RTN"",""PSXVND"",2,0)"
^XMB(3.9,123,2,1008,0)=" ;;2.0;CMOP;**1,2,4,5,14,18,19,15,24,23,27,35,39,36,48,62**;11 Apr 97;Build 12"
^XMB(3.9,123,2,1009,0)="""RTN"",""PSXVND"",3,0)"
^XMB(3.9,123,2,1010,0)=" ;Reference to ^PSDRUG( supported by DBIA #1983"
^XMB(3.9,123,2,1011,0)="""RTN"",""PSXVND"",4,0)"
^XMB(3.9,123,2,1012,0)=" ;Reference to ^PSRX( supported by DBIA #1977"
^XMB(3.9,123,2,1013,0)="""RTN"",""PSXVND"",5,0)"
^XMB(3.9,123,2,1014,0)=" ;Reference to ^PS(59 supported by DBIA #1976"
^XMB(3.9,123,2,1015,0)="""RTN"",""PSXVND"",6,0)"
^XMB(3.9,123,2,1016,0)=" ;Reference to routine CP^PSOCP supported by DBIA #1974"
^XMB(3.9,123,2,1017,0)="""RTN"",""PSXVND"",7,0)"
^XMB(3.9,123,2,1018,0)=" ;Reference to routine EN^PSOHLSN1 supported by DBIA #2385"
^XMB(3.9,123,2,1019,0)="""RTN"",""PSXVND"",8,0)"
^XMB(3.9,123,2,1020,0)=" ;Reference to routine EN^RGEQ supported by DBIA #2382"
^XMB(3.9,123,2,1021,0)="""RTN"",""PSXVND"",9,0)"
^XMB(3.9,123,2,1022,0)=" ;Reference to routine AUTOREL^PSOBPSUT supported by DBIA #4701"
^XMB(3.9,123,2,1023,0)="""RTN"",""PSXVND"",10,0)"
^XMB(3.9,123,2,1024,0)=" ;Called by Taskman to handle release data"
^XMB(3.9,123,2,1025,0)="""RTN"",""PSXVND"",11,0)"
^XMB(3.9,123,2,1026,0)="EN H 5 S CNT=1,FROM=XMFROM,ZTREQ=""@"""
^XMB(3.9,123,2,1027,0)="""RTN"",""PSXVND"",12,0)"
^XMB(3.9,123,2,1028,0)=" S DOMAIN=$S($P(XMFROM,""@"",2)'="""":""@""_$P(FROM,""@"",2),$P(XMFROM,""@"",2)="""":"""",1:""""),XMSER=""S.""_XQSOP,TXMZ=XQMSG"
^XMB(3.9,123,2,1029,0)="""RTN"",""PSXVND"",13,0)"
^XMB(3.9,123,2,1030,0)=" S (X,SITE,DA)=$$KSP^XUPARAM(""INST""),DIC=""4"",DIQ(0)=""IE"",DR=99,DIQ=""PSXUTIL"" D EN^DIQ1 S HERE=$G(PSXUTIL(4,SITE,99,""I"")) K DA,DIC,DIQ(0),DR"
^XMB(3.9,123,2,1031,0)="""RTN"",""PSXVND"",14,0)"
^XMB(3.9,123,2,1032,0)=" F  X XMREC I $G(XMRG)'="""" S TXMRG=XMRG G:$G(XMER)<0 EXIT1 D:$E(XMRG,1,3)[""$RX"" GET G:$E(XMRG,1,5)[""$$END"" MAIL D:$E(XMRG,1,4)[""$LOT"" LOT S:$E(XMRG,1,5)[""$$VND"" MSNUM=$P(XMRG,""^"",3)"
^XMB(3.9,123,2,1033,0)="""RTN"",""PSXVND"",15,0)"
^XMB(3.9,123,2,1034,0)=" G EXIT"
^XMB(3.9,123,2,1035,0)="""RTN"",""PSXVND"",16,0)"
^XMB(3.9,123,2,1036,0)="GET Q:$G(XMRG)=""""!($E(XMRG,1,3)'[""$RX"")"
^XMB(3.9,123,2,1037,0)="""RTN"",""PSXVND"",17,0)"
^XMB(3.9,123,2,1038,0)=" K FACBAT,BAT,NDC,RELDT,STAT,REASON,XFILL,P515A,P515B,%,RR,ALOT,RXP,RXN,FLAG,FILL,RELD,ZSTAT,RTN,CARRIER,PKGID,SHPDT"
^XMB(3.9,123,2,1039,0)="""RTN"",""PSXVND"",18,0)"
^XMB(3.9,123,2,1040,0)=" S RX=$P(XMRG,U,2),FACBAT=$P(XMRG,U,3),BAT=$P(FACBAT,""-"",2),NDC=$P(XMRG,U,4),RELDT=$P(XMRG,U,5),STAT=$P(XMRG,U,6),REASON=$P($G(XMRG),U,8),XFILL=$P($G(XMRG),U,7)"
^XMB(3.9,123,2,1041,0)="""RTN"",""PSXVND"",19,0)"
^XMB(3.9,123,2,1042,0)=" S P515A=$P(XMRG,U,9),P515B=$P(XMRG,U,10),DRG=$P(XMRG,U,12),QTY=$P(XMRG,U,11),CARRIER=$P(XMRG,U,13),PKGID=$P(XMRG,U,14),SHPDT=$P(XMRG,U,15)"
^XMB(3.9,123,2,1043,0)="""RTN"",""PSXVND"",20,0)"
^XMB(3.9,123,2,1044,0)=" S FAC=$P(FACBAT,""-"",1)"
^XMB(3.9,123,2,1045,0)="""RTN"",""PSXVND"",21,0)"
^XMB(3.9,123,2,1046,0)=" Q:FAC'=HERE"
^XMB(3.9,123,2,1047,0)="""RTN"",""PSXVND"",22,0)"
^XMB(3.9,123,2,1048,0)=" I '$O(^PSRX(""B"",RX,0)) S FLAG=2 D TMP Q"
^XMB(3.9,123,2,1049,0)="""RTN"",""PSXVND"",23,0)"
^XMB(3.9,123,2,1050,0)=" S XX=0 F  S XX=$O(^PSRX(""B"",RX,XX)) Q:XX'>0  S (RXP,RXN)=XX,FLAG=0 D"
^XMB(3.9,123,2,1051,0)="""RTN"",""PSXVND"",24,0)"
^XMB(3.9,123,2,1052,0)=" .I '$G(BAT) Q"
^XMB(3.9,123,2,1053,0)="""RTN"",""PSXVND"",25,0)"
^XMB(3.9,123,2,1054,0)=" .I '$D(^PSRX(RXN,0)) S FLAG=2 D TMP Q"
^XMB(3.9,123,2,1055,0)="""RTN"",""PSXVND"",26,0)"
^XMB(3.9,123,2,1056,0)=" .L +^PSRX(RXN):DTIME I '$T S FLAG=2 D TMP Q"
^XMB(3.9,123,2,1057,0)="""RTN"",""PSXVND"",27,0)"
^XMB(3.9,123,2,1058,0)=" .I XFILL>0,('$D(^PSRX(RXN,1,XFILL,0))) S FLAG=6 D TMP Q"
^XMB(3.9,123,2,1059,0)="""RTN"",""PSXVND"",28,0)"
^XMB(3.9,123,2,1060,0)=" .I XFILL>0,($P(^PSRX(RXP,1,XFILL,0),""^"",18)'="""") S FLAG=1,RLDT=$P(^PSRX(RXP,1,XFILL,0),""^"",18) S:STAT=1&(RLDT=RELDT) FLAG=0 D:FLAG=0 TMP1 Q:'$G(FLAG)  D:FLAG=1 TMP Q"
^XMB(3.9,123,2,1061,0)="""RTN"",""PSXVND"",29,0)"
^XMB(3.9,123,2,1062,0)=" .I XFILL=0,($P(^PSRX(RXP,2),""^"",13)'="""") S FLAG=1,RLDT=$P(^PSRX(RXP,2),""^"",13) S:STAT=1&(RELDT=RLDT) FLAG=0 D:FLAG=0 TMP1 Q:'$G(FLAG)  D:FLAG=1 TMP Q"
^XMB(3.9,123,2,1063,0)="""RTN"",""PSXVND"",30,0)"
^XMB(3.9,123,2,1064,0)=" .I STAT=2 D"
^XMB(3.9,123,2,1065,0)="""RTN"",""PSXVND"",31,0)"
^XMB(3.9,123,2,1066,0)=" ..S RXDRG=$P(^PSRX(RXN,0),""^"",6),DFN=$P(^PSRX(RXN,0),""^"",2)"
^XMB(3.9,123,2,1067,0)="""RTN"",""PSXVND"",32,0)"
^XMB(3.9,123,2,1068,0)=" ..I $G(RXDRG)]"""" S CMOPNM=$P($G(^PSDRUG(RXDRG,0)),""^"")"
^XMB(3.9,123,2,1069,0)="""RTN"",""PSXVND"",33,0)"
^XMB(3.9,123,2,1070,0)=" ..I '$D(^PSDRUG(""AQ"",RXDRG)) S CMOPYN=1"
^XMB(3.9,123,2,1071,0)="""RTN"",""PSXVND"",34,0)"
^XMB(3.9,123,2,1072,0)=" ..I $D(^PSDRUG(RXDRG,""ND"")) S CMOPID=$P($G(^PSDRUG(RXDRG,""ND"")),""^"",10)"
^XMB(3.9,123,2,1073,0)="""RTN"",""PSXVND"",35,0)"
^XMB(3.9,123,2,1074,0)=" ..S DIV=$S(XFILL=0:$P(^PSRX(RXN,2),U,9),XFILL>0:$P(^PSRX(RXN,1,XFILL,0),U,9),1:"""")"
^XMB(3.9,123,2,1075,0)="""RTN"",""PSXVND"",36,0)"
^XMB(3.9,123,2,1076,0)=" ..S ^TMP(""PSXCAN1"",$J,DIV,DFN,RX)=$G(CMOPNM)_U_$G(CMOPID)_U_$G(QTY)_U_$G(DRG)_U_$G(CMOPYN)_U_REASON_U_$G(XFILL)_U_$G(BAT)"
^XMB(3.9,123,2,1077,0)="""RTN"",""PSXVND"",37,0)"
^XMB(3.9,123,2,1078,0)=" ..K CMOPNM,CMOPID,DRG,RXDRG,MATCH,CMOPYN,NDF1,NDF2,P1,P2,PSDDA"
^XMB(3.9,123,2,1079,0)="""RTN"",""PSXVND"",38,0)"
^XMB(3.9,123,2,1080,0)=" .I '$D(^PSRX(RXN,4,0)) S FLAG=5 D TMP Q"
^XMB(3.9,123,2,1081,0)="""RTN"",""PSXVND"",39,0)"
^XMB(3.9,123,2,1082,0)=" .I '$D(^PSRX(RXN,4,""B"",BAT)) S FLAG=4 D TMP Q"
^XMB(3.9,123,2,1083,0)="""RTN"",""PSXVND"",40,0)"
^XMB(3.9,123,2,1084,0)=" .I $D(^PSRX(RXN,4,""B"",BAT)) S RECD=$O(^PSRX(RXN,4,""B"",BAT,"""")),FILL=$P($G(^PSRX(RXN,4,RECD,0)),U,3),ZSTAT=$P(^PSRX(RXN,4,RECD,0),U,4)"
^XMB(3.9,123,2,1085,0)="""RTN"",""PSXVND"",41,0)"
^XMB(3.9,123,2,1086,0)=" .I ZSTAT=2 S RTN=0 F  S RTN=$O(^PSRX(RXN,4,RTN)) Q:RTN'>0  I $P(^PSRX(RXN,4,RTN,0),U,3)=FILL&($P(^PSRX(RXN,4,RTN,0),U,1)'=BAT) S DA(1)=RXN,DA=RTN,DIE=""^PSRX(""_DA(1)_"",4,"",DR=""3////2;8////FILLED IN TRANSMISSION ""_BAT D ^DIE K DA,DR,DIE"
^XMB(3.9,123,2,1087,0)="""RTN"",""PSXVND"",42,0)"
^XMB(3.9,123,2,1088,0)=" .I FILL'=XFILL S FLAG=3 D TMP Q"
^XMB(3.9,123,2,1089,0)="""RTN"",""PSXVND"",43,0)"
^XMB(3.9,123,2,1090,0)=" .S PSXREF=FILL"
^XMB(3.9,123,2,1091,0)="""RTN"",""PSXVND"",44,0)"
^XMB(3.9,123,2,1092,0)=" .Q:FLAG>0"
^XMB(3.9,123,2,1093,0)="""RTN"",""PSXVND"",45,0)"
^XMB(3.9,123,2,1094,0)=" .S PSXXMZ=XMZ"
^XMB(3.9,123,2,1095,0)="""RTN"",""PSXVND"",46,0)"
^XMB(3.9,123,2,1096,0)=" .D:$G(STAT)=1"
^XMB(3.9,123,2,1097,0)="""RTN"",""PSXVND"",47,0)"
^XMB(3.9,123,2,1098,0)=" ..N PSOPAR,PSOSITE,X D NOW^%DTC"
^XMB(3.9,123,2,1099,0)="""RTN"",""PSXVND"",48,0)"
^XMB(3.9,123,2,1100,0)=" ..I $G(PSXREF)>0 S PSOSITE=$P(^PSRX(RXP,1,PSXREF,0),""^"",9) G:$G(PSOSITE) PAR"
^XMB(3.9,123,2,1101,0)="""RTN"",""PSXVND"",49,0)"
^XMB(3.9,123,2,1102,0)=" ..S PSOSITE=$P(^PSRX(RXP,2),""^"",9),PSQUIT=0"
^XMB(3.9,123,2,1103,0)="""RTN"",""PSXVND"",50,0)"
^XMB(3.9,123,2,1104,0)=" ..I '$G(PSOSITE) S Z1=0 F  S Z1=$O(^PS(59,Z1)) Q:Z1=""""!(Z1=""B"")  D  Q:PSQUIT"
^XMB(3.9,123,2,1105,0)="""RTN"",""PSXVND"",51,0)"
^XMB(3.9,123,2,1106,0)=" ...I $D(^PS(59,Z1,""I""))&($P($G(^PS(59,Z1,""I"")),""^"")'="""") Q:$P($G(^PS(59,Z1,""I"")),""^"")'>X"
^XMB(3.9,123,2,1107,0)="""RTN"",""PSXVND"",52,0)"
^XMB(3.9,123,2,1108,0)=" ...S PSOSITE=Z1,PSQUIT=1"
^XMB(3.9,123,2,1109,0)="""RTN"",""PSXVND"",53,0)"
^XMB(3.9,123,2,1110,0)=" ..Q:'$G(PSOSITE)"
^XMB(3.9,123,2,1111,0)="""RTN"",""PSXVND"",54,0)"
^XMB(3.9,123,2,1112,0)="PAR ..S PSOPAR=$G(^PS(59,PSOSITE,1))"
^XMB(3.9,123,2,1113,0)="""RTN"",""PSXVND"",55,0)"
^XMB(3.9,123,2,1114,0)=" ..I $G(PSXREF)>0 S YY=PSXREF"
^XMB(3.9,123,2,1115,0)="""RTN"",""PSXVND"",56,0)"
^XMB(3.9,123,2,1116,0)=" ..I '$G(PSOSITE)!('$D(PSOPAR)) Q"
^XMB(3.9,123,2,1117,0)="""RTN"",""PSXVND"",57,0)"
^XMB(3.9,123,2,1118,0)=" ..D CP^PSOCP K YY,X"
^XMB(3.9,123,2,1119,0)="""RTN"",""PSXVND"",58,0)"
^XMB(3.9,123,2,1120,0)=" .S XMZ=PSXXMZ"
^XMB(3.9,123,2,1121,0)="""RTN"",""PSXVND"",59,0)"
^XMB(3.9,123,2,1122,0)=" .I $G(FILL)="""" Q"
^XMB(3.9,123,2,1123,0)="""RTN"",""PSXVND"",60,0)"
^XMB(3.9,123,2,1124,0)=" .I $G(STAT)=1 D"
^XMB(3.9,123,2,1125,0)="""RTN"",""PSXVND"",61,0)"
^XMB(3.9,123,2,1126,0)=" ..I FILL=0 S DA=RXN,DIE=""^PSRX("",DR=""31///""_RELDT D ^DIE K DIE,DA,DR"
^XMB(3.9,123,2,1127,0)="""RTN"",""PSXVND"",62,0)"
^XMB(3.9,123,2,1128,0)=" ..I FILL>0 S DA(1)=RXN,DA=FILL,DIE=""^PSRX(""_RXN_"",1,"",DR=""17///""_RELDT_"";10.1///""_RELDT D ^DIE K DIE,DR,DA"
^XMB(3.9,123,2,1129,0)="""RTN"",""PSXVND"",63,0)"
^XMB(3.9,123,2,1130,0)=" ..I $$VERSION^XPDUTL(""OUTPATIENT PHARMACY"")<7 S X=""RGEQ"" X ^%ZOSF(""TEST"") I  D EN^RGEQ(""RX"",RXN)  ;CIRN"
^XMB(3.9,123,2,1131,0)="""RTN"",""PSXVND"",64,0)"
^XMB(3.9,123,2,1132,0)=" ..I $$VERSION^XPDUTL(""OUTPATIENT PHARMACY"")>6 D EN^PSOHLSN1(RXN,""ZD"")"
^XMB(3.9,123,2,1133,0)="""RTN"",""PSXVND"",65,0)"
^XMB(3.9,123,2,1134,0)=" .S DA(1)=RXN,DA=RECD,DIE=""^PSRX(""_RXN_"",4,"""
^XMB(3.9,123,2,1135,0)="""RTN"",""PSXVND"",66,0)"
^XMB(3.9,123,2,1136,0)=" .S DR=""3////""_$S(STAT=2:3,STAT=1:1,1:"""")_"";4////""_NDC_"";5////""_$S(STAT=2:RELDT,STAT=1:"""",1:"""")_"";8////""_$S(STAT=2:""^S X=$G(REASON)"",STAT=1:"""",1:"""")_"";10////""_$G(CARRIER)_"";11////""_$G(PKGID)_"";9////""_$G(SHPDT)"
^XMB(3.9,123,2,1137,0)="""RTN"",""PSXVND"",67,0)"
^XMB(3.9,123,2,1138,0)=" .D ^DIE K DIE,DA,DR"
^XMB(3.9,123,2,1139,0)="""RTN"",""PSXVND"",68,0)"
^XMB(3.9,123,2,1140,0)=" .I $$PATCH^XPDUTL(""PSO*7.0*148"") D AUTOREL^PSOBPSUT(RXN,FILL,RELDT,NDC,""C"",$S(STAT=1:""S"",1:""U""),60)"
^XMB(3.9,123,2,1141,0)="""RTN"",""PSXVND"",69,0)"
^XMB(3.9,123,2,1142,0)=" I $D(^PSRX(RXN)) L -^PSRX(RXN):0"
^XMB(3.9,123,2,1143,0)="""RTN"",""PSXVND"",70,0)"
^XMB(3.9,123,2,1144,0)="TMP1 Q:$G(FLAG)'=0!('$G(BAT))"
^XMB(3.9,123,2,1145,0)="""RTN"",""PSXVND"",71,0)"
^XMB(3.9,123,2,1146,0)=" D NOW^%DTC S PSXTM=%"
^XMB(3.9,123,2,1147,0)="""RTN"",""PSXVND"",72,0)"
^XMB(3.9,123,2,1148,0)=" S ^TMP($J,""PSXREL"",CNT)=RX_""^""_PSXTM_""^""_P515A_""^""_P515B_""^""_XFILL_""^""_HERE"
^XMB(3.9,123,2,1149,0)="""RTN"",""PSXVND"",73,0)"
^XMB(3.9,123,2,1150,0)=" S CNT=CNT+1"
^XMB(3.9,123,2,1151,0)="""RTN"",""PSXVND"",74,0)"
^XMB(3.9,123,2,1152,0)=" Q"
^XMB(3.9,123,2,1153,0)="""RTN"",""PSXVND"",75,0)"
^XMB(3.9,123,2,1154,0)=" ;"
^XMB(3.9,123,2,1155,0)="""RTN"",""PSXVND"",76,0)"
^XMB(3.9,123,2,1156,0)="LOT S ALOT=$P(XMRG,""|"",2)"
^XMB(3.9,123,2,1157,0)="""RTN"",""PSXVND"",77,0)"
^XMB(3.9,123,2,1158,0)=" I $G(ALOT)'="""" D"
^XMB(3.9,123,2,1159,0)="""RTN"",""PSXVND"",78,0)"
^XMB(3.9,123,2,1160,0)=" .K DD,DO"
^XMB(3.9,123,2,1161,0)="""RTN"",""PSXVND"",79,0)"
^XMB(3.9,123,2,1162,0)=" .S:'$D(^PSRX(RXN,5,0)) ^PSRX(RXN,5,0)=""^52.0401A^^"""
^XMB(3.9,123,2,1163,0)="""RTN"",""PSXVND"",80,0)"
^XMB(3.9,123,2,1164,0)=" .F RR=1:1 Q:$P(ALOT,""\"",RR)=""""  S LOT1=$P(ALOT,""\"",RR),LOT=$P(LOT1,""^"",1),EXDT=$P(LOT1,""^"",2) D"
^XMB(3.9,123,2,1165,0)="""RTN"",""PSXVND"",81,0)"
^XMB(3.9,123,2,1166,0)=" ..S DA(1)=RXN,X=LOT,DIC=""^PSRX(""_RXN_"",5,"",DIC(""DR"")=""1////""_EXDT_"";2////""_XFILL,DIC(0)=""Z"""
^XMB(3.9,123,2,1167,0)="""RTN"",""PSXVND"",82,0)"
^XMB(3.9,123,2,1168,0)="FF ..D FILE^DICN K DIC(""DR""),DIC,DA,LOT,EXDT,DD,DO"
^XMB(3.9,123,2,1169,0)="""RTN"",""PSXVND"",83,0)"
^XMB(3.9,123,2,1170,0)=" Q"
^XMB(3.9,123,2,1171,0)="""RTN"",""PSXVND"",84,0)"
^XMB(3.9,123,2,1172,0)="TMP S ^TMP($J,""PSXVND"",RX)=FLAG_""^""_XFILL_""^""_P515A_""^""_P515B_""^""_HERE_""^""_$S(FLAG=1:RLDT,1:"""") Q"
^XMB(3.9,123,2,1173,0)="""RTN"",""PSXVND"",85,0)"
^XMB(3.9,123,2,1174,0)="MAIL S XMSUB=""CMOP Release Data Acknowledgement"",LCNT=1,XMDUZ=.5"
^XMB(3.9,123,2,1175,0)="""RTN"",""PSXVND"",86,0)"
^XMB(3.9,123,2,1176,0)="MM D XMZ^XMA2 G:XMZ<1 MM"
^XMB(3.9,123,2,1177,0)="""RTN"",""PSXVND"",87,0)"
^XMB(3.9,123,2,1178,0)=" S ^XMB(3.9,XMZ,2,LCNT,0)=""$$RTN^""_MSNUM_""^""_HERE,LCNT=LCNT+1"
^XMB(3.9,123,2,1179,0)="""RTN"",""PSXVND"",88,0)"
^XMB(3.9,123,2,1180,0)=" F CC=0:0 S CC=$O(^TMP($J,""PSXREL"",CC)) Q:CC'>0  D"
^XMB(3.9,123,2,1181,0)="""RTN"",""PSXVND"",89,0)"
^XMB(3.9,123,2,1182,0)=" .S ^XMB(3.9,XMZ,2,LCNT,0)=""$RX^""_$G(^TMP($J,""PSXREL"",CC)),LCNT=LCNT+1"
^XMB(3.9,123,2,1183,0)="""RTN"",""PSXVND"",90,0)"
^XMB(3.9,123,2,1184,0)=" S ^XMB(3.9,XMZ,2,LCNT,0)=""$$INV"""
^XMB(3.9,123,2,1185,0)="""RTN"",""PSXVND"",91,0)"
^XMB(3.9,123,2,1186,0)=" S CC="""" F  S CC=$O(^TMP($J,""PSXVND"",CC)) Q:CC=""""  S RXN=CC D"
^XMB(3.9,123,2,1187,0)="""RTN"",""PSXVND"",92,0)"
^XMB(3.9,123,2,1188,0)=" .S LCNT=LCNT+1 D NOW^%DTC S PSXTM=%   ;added for PSX*2*36"
^XMB(3.9,123,2,1189,0)="""RTN"",""PSXVND"",93,0)"
^XMB(3.9,123,2,1190,0)=" .S ^XMB(3.9,XMZ,2,LCNT,0)=""$RXN""_""^""_RXN_""^""_$G(^TMP($J,""PSXVND"",CC))_""^""_PSXTM"
^XMB(3.9,123,2,1191,0)="""RTN"",""PSXVND"",94,0)"
^XMB(3.9,123,2,1192,0)=" S ^XMB(3.9,XMZ,2,LCNT+1,0)=""$$ENDINV"""
^XMB(3.9,123,2,1193,0)="""RTN"",""PSXVND"",95,0)"
^XMB(3.9,123,2,1194,0)=" S ^XMB(3.9,XMZ,2,0)=""^3.92A^""_LCNT_U_LCNT_U_DT,XMDUN=""CMOP Manager"""
^XMB(3.9,123,2,1195,0)="""RTN"",""PSXVND"",96,0)"
^XMB(3.9,123,2,1196,0)=" K XMY S XMY(""S.PSXX CMOP SERVER""_DOMAIN)="""" D ENT1^XMD"
^XMB(3.9,123,2,1197,0)="""RTN"",""PSXVND"",97,0)"
^XMB(3.9,123,2,1198,0)=" ;D ER6^PSXERR Q"
^XMB(3.9,123,2,1199,0)="""RTN"",""PSXVND"",98,0)"
^XMB(3.9,123,2,1200,0)=" D:$D(^TMP(""PSXCAN1"",$J)) CAN^PSXMSGS"
^XMB(3.9,123,2,1201,0)="""RTN"",""PSXVND"",99,0)"
^XMB(3.9,123,2,1202,0)="EXIT S XMSER=""S.PSXX CMOP SERVER"",XMZ=TXMZ D REMSBMSG^XMA1C"
^XMB(3.9,123,2,1203,0)="""RTN"",""PSXVND"",100,0)"
^XMB(3.9,123,2,1204,0)="EXIT1 K XMSUB,XMDUZ,XMDUN,XMY,LCNT,XMZ,CC,PSXREL,CNT,Y,X,RR,LOT,LOT1,EXDT,ALOT"
^XMB(3.9,123,2,1205,0)="""RTN"",""PSXVND"",101,0)"
^XMB(3.9,123,2,1206,0)=" K RXN,RX,DLAYGO,FACBAT,FILL,FROM,NDC,P514,REASON,RELDT,STAT,XMREC,XMRG"
^XMB(3.9,123,2,1207,0)="""RTN"",""PSXVND"",102,0)"
^XMB(3.9,123,2,1208,0)=" K ^TMP($J,""PSXVND""),^TMP($J,""PSXREL""),RLDT,FLAG,TXMRG,PSXXMZ,ZSTAT,PSXTM"
^XMB(3.9,123,2,1209,0)="""RTN"",""PSXVND"",103,0)"
^XMB(3.9,123,2,1210,0)=" K XQMSG,XQSOP,XX,ZZZ,%,DAT,DOMAIN,PSXJOB,PSXREF,RECD,RXP,TXMZ,XMZ,XMER"
^XMB(3.9,123,2,1211,0)="""RTN"",""PSXVND"",104,0)"
^XMB(3.9,123,2,1212,0)=" K XMFROM,XMSER,BAT,PSXREFL,XFILL,FAC,HERE,P515A,P515B,SITE,MSNUM"
^XMB(3.9,123,2,1213,0)="""RTN"",""PSXVND"",105,0)"
^XMB(3.9,123,2,1214,0)=" K DIQ,DIV,QTY,PSXUTIL,SHPDT,Z1,PSQUIT"
^XMB(3.9,123,2,1215,0)="""RTN"",""PSXVND"",106,0)"
^XMB(3.9,123,2,1216,0)=" Q"
^XMB(3.9,123,2,1217,0)="""VER"")"
^XMB(3.9,123,2,1218,0)="8.0^22.0"
^XMB(3.9,123,2,1219,0)="""BLD"",5760,6)"
^XMB(3.9,123,2,1220,0)="^52"
^XMB(3.9,123,2,1221,0)="$END KID PSX*2.0*62"
^XMB(3.9,123,6,0)="^3.911A^2^2"
^XMB(3.9,123,6,1,0)="POSTMASTER"
^XMB(3.9,123,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,123,6,"B","POSTMASTER",1)=""
^XMB(3.9,123,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,124,0)="PSX-2_SEQ-53_PAT-61.KID^.5^3061008.015741^^^^K"
^XMB(3.9,124,.6)="3061008"
^XMB(3.9,124,1,0)="^3.91A^2^2"
^XMB(3.9,124,1,1,0)=".5^0^3061008.015741^^^^^^^3061008.015741"
^XMB(3.9,124,1,2,0)="1^0^3061008.022558^^^^^^^3061008.022558"
^XMB(3.9,124,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,124,1,"C",.5,1)=""
^XMB(3.9,124,1,"C",1,2)=""
^XMB(3.9,124,2,0)="^^303^303^3061008"
^XMB(3.9,124,2,1,0)="$TXT Released PSX*2*61 SEQ #53"
^XMB(3.9,124,2,2,0)="Extracted from mail message"
^XMB(3.9,124,2,3,0)="$END TXT"
^XMB(3.9,124,2,4,0)="$KID PSX*2.0*61"
^XMB(3.9,124,2,5,0)="**INSTALL NAME**"
^XMB(3.9,124,2,6,0)="PSX*2.0*61"
^XMB(3.9,124,2,7,0)="""BLD"",6061,0)"
^XMB(3.9,124,2,8,0)="PSX*2.0*61^CMOP^0^3060622^y"
^XMB(3.9,124,2,9,0)="""BLD"",6061,1,0)"
^XMB(3.9,124,2,10,0)="^^15^15^3060301^"
^XMB(3.9,124,2,11,0)="""BLD"",6061,1,1,0)"
^XMB(3.9,124,2,12,0)="This patch contains an Application Program Interface (API) that will be "
^XMB(3.9,124,2,13,0)="""BLD"",6061,1,2,0)"
^XMB(3.9,124,2,14,0)="used by calling applications that currently do direct global reads or "
^XMB(3.9,124,2,15,0)="""BLD"",6061,1,3,0)"
^XMB(3.9,124,2,16,0)="writes to the CMOP SYSTEM file (#550). Since this file is being replaced "
^XMB(3.9,124,2,17,0)="""BLD"",6061,1,4,0)"
^XMB(3.9,124,2,18,0)="as part of the Pharmacy Re-engineering project, any direct M-based global "
^XMB(3.9,124,2,19,0)="""BLD"",6061,1,5,0)"
^XMB(3.9,124,2,20,0)="reads or writes to this file must be replaced by calling the APIs provided "
^XMB(3.9,124,2,21,0)="""BLD"",6061,1,6,0)"
^XMB(3.9,124,2,22,0)="in this patch. When the new data source is in place, the calling "
^XMB(3.9,124,2,23,0)="""BLD"",6061,1,7,0)"
^XMB(3.9,124,2,24,0)="applications will not be required to make any changes, because these APIs "
^XMB(3.9,124,2,25,0)="""BLD"",6061,1,8,0)"
^XMB(3.9,124,2,26,0)="will be flexible enough to retrieve the requested data from the new data "
^XMB(3.9,124,2,27,0)="""BLD"",6061,1,9,0)"
^XMB(3.9,124,2,28,0)="source, when the time comes."
^XMB(3.9,124,2,29,0)="""BLD"",6061,1,10,0)"
^XMB(3.9,124,2,30,0)=" "
^XMB(3.9,124,2,31,0)="""BLD"",6061,1,11,0)"
^XMB(3.9,124,2,32,0)="This API replaces the following integration agreements:"
^XMB(3.9,124,2,33,0)="""BLD"",6061,1,12,0)"
^XMB(3.9,124,2,34,0)=" "
^XMB(3.9,124,2,35,0)="""BLD"",6061,1,13,0)"
^XMB(3.9,124,2,36,0)="DBIA #  Affected Package(s)"
^XMB(3.9,124,2,37,0)="""BLD"",6061,1,14,0)"
^XMB(3.9,124,2,38,0)="---------------------------"
^XMB(3.9,124,2,39,0)="""BLD"",6061,1,15,0)"
^XMB(3.9,124,2,40,0)="2199    CPRS"
^XMB(3.9,124,2,41,0)="""BLD"",6061,4,0)"
^XMB(3.9,124,2,42,0)="^9.64PA^^"
^XMB(3.9,124,2,43,0)="""BLD"",6061,6.3)"
^XMB(3.9,124,2,44,0)="1"
^XMB(3.9,124,2,45,0)="""BLD"",6061,""KRN"",0)"
^XMB(3.9,124,2,46,0)="^9.67PA^^"
^XMB(3.9,124,2,47,0)="""BLD"",6061,""KRN"",.4,0)"
^XMB(3.9,124,2,48,0)=".4"
^XMB(3.9,124,2,49,0)="""BLD"",6061,""KRN"",.4,""NM"",0)"
^XMB(3.9,124,2,50,0)="^9.68A^^0"
^XMB(3.9,124,2,51,0)="""BLD"",6061,""KRN"",.401,0)"
^XMB(3.9,124,2,52,0)=".401"
^XMB(3.9,124,2,53,0)="""BLD"",6061,""KRN"",.401,""NM"",0)"
^XMB(3.9,124,2,54,0)="^9.68A^^0"
^XMB(3.9,124,2,55,0)="""BLD"",6061,""KRN"",.402,0)"
^XMB(3.9,124,2,56,0)=".402"
^XMB(3.9,124,2,57,0)="""BLD"",6061,""KRN"",.402,""NM"",0)"
^XMB(3.9,124,2,58,0)="^9.68A^^0"
^XMB(3.9,124,2,59,0)="""BLD"",6061,""KRN"",.403,0)"
^XMB(3.9,124,2,60,0)=".403"
^XMB(3.9,124,2,61,0)="""BLD"",6061,""KRN"",.5,0)"
^XMB(3.9,124,2,62,0)=".5"
^XMB(3.9,124,2,63,0)="""BLD"",6061,""KRN"",.84,0)"
^XMB(3.9,124,2,64,0)=".84"
^XMB(3.9,124,2,65,0)="""BLD"",6061,""KRN"",3.6,0)"
^XMB(3.9,124,2,66,0)="3.6"
^XMB(3.9,124,2,67,0)="""BLD"",6061,""KRN"",3.8,0)"
^XMB(3.9,124,2,68,0)="3.8"
^XMB(3.9,124,2,69,0)="""BLD"",6061,""KRN"",9.2,0)"
^XMB(3.9,124,2,70,0)="9.2"
^XMB(3.9,124,2,71,0)="""BLD"",6061,""KRN"",9.8,0)"
^XMB(3.9,124,2,72,0)="9.8"
^XMB(3.9,124,2,73,0)="""BLD"",6061,""KRN"",9.8,""NM"",0)"
^XMB(3.9,124,2,74,0)="^9.68A^1^1"
^XMB(3.9,124,2,75,0)="""BLD"",6061,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,124,2,76,0)="PSX550^^0^B1992795"
^XMB(3.9,124,2,77,0)="""BLD"",6061,""KRN"",9.8,""NM"",""B"",""PSX550"",1)"
^XMB(3.9,124,2,78,0)=""
^XMB(3.9,124,2,79,0)="""BLD"",6061,""KRN"",19,0)"
^XMB(3.9,124,2,80,0)="19"
^XMB(3.9,124,2,81,0)="""BLD"",6061,""KRN"",19.1,0)"
^XMB(3.9,124,2,82,0)="19.1"
^XMB(3.9,124,2,83,0)="""BLD"",6061,""KRN"",101,0)"
^XMB(3.9,124,2,84,0)="101"
^XMB(3.9,124,2,85,0)="""BLD"",6061,""KRN"",409.61,0)"
^XMB(3.9,124,2,86,0)="409.61"
^XMB(3.9,124,2,87,0)="""BLD"",6061,""KRN"",771,0)"
^XMB(3.9,124,2,88,0)="771"
^XMB(3.9,124,2,89,0)="""BLD"",6061,""KRN"",869.2,0)"
^XMB(3.9,124,2,90,0)="869.2"
^XMB(3.9,124,2,91,0)="""BLD"",6061,""KRN"",870,0)"
^XMB(3.9,124,2,92,0)="870"
^XMB(3.9,124,2,93,0)="""BLD"",6061,""KRN"",8994,0)"
^XMB(3.9,124,2,94,0)="8994"
^XMB(3.9,124,2,95,0)="""BLD"",6061,""KRN"",""B"",.4,.4)"
^XMB(3.9,124,2,96,0)=""
^XMB(3.9,124,2,97,0)="""BLD"",6061,""KRN"",""B"",.401,.401)"
^XMB(3.9,124,2,98,0)=""
^XMB(3.9,124,2,99,0)="""BLD"",6061,""KRN"",""B"",.402,.402)"
^XMB(3.9,124,2,100,0)=""
^XMB(3.9,124,2,101,0)="""BLD"",6061,""KRN"",""B"",.403,.403)"
^XMB(3.9,124,2,102,0)=""
^XMB(3.9,124,2,103,0)="""BLD"",6061,""KRN"",""B"",.5,.5)"
^XMB(3.9,124,2,104,0)=""
^XMB(3.9,124,2,105,0)="""BLD"",6061,""KRN"",""B"",.84,.84)"
^XMB(3.9,124,2,106,0)=""
^XMB(3.9,124,2,107,0)="""BLD"",6061,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,124,2,108,0)=""
^XMB(3.9,124,2,109,0)="""BLD"",6061,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,124,2,110,0)=""
^XMB(3.9,124,2,111,0)="""BLD"",6061,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,124,2,112,0)=""
^XMB(3.9,124,2,113,0)="""BLD"",6061,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,124,2,114,0)=""
^XMB(3.9,124,2,115,0)="""BLD"",6061,""KRN"",""B"",19,19)"
^XMB(3.9,124,2,116,0)=""
^XMB(3.9,124,2,117,0)="""BLD"",6061,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,124,2,118,0)=""
^XMB(3.9,124,2,119,0)="""BLD"",6061,""KRN"",""B"",101,101)"
^XMB(3.9,124,2,120,0)=""
^XMB(3.9,124,2,121,0)="""BLD"",6061,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,124,2,122,0)=""
^XMB(3.9,124,2,123,0)="""BLD"",6061,""KRN"",""B"",771,771)"
^XMB(3.9,124,2,124,0)=""
^XMB(3.9,124,2,125,0)="""BLD"",6061,""KRN"",""B"",869.2,869.2)"
^XMB(3.9,124,2,126,0)=""
^XMB(3.9,124,2,127,0)="""BLD"",6061,""KRN"",""B"",870,870)"
^XMB(3.9,124,2,128,0)=""
^XMB(3.9,124,2,129,0)="""BLD"",6061,""KRN"",""B"",8994,8994)"
^XMB(3.9,124,2,130,0)=""
^XMB(3.9,124,2,131,0)="""BLD"",6061,""QUES"",0)"
^XMB(3.9,124,2,132,0)="^9.62^^"
^XMB(3.9,124,2,133,0)="""BLD"",6061,""REQG"",0)"
^XMB(3.9,124,2,134,0)="^9.611^^"
^XMB(3.9,124,2,135,0)="""MBREQ"")"
^XMB(3.9,124,2,136,0)="0"
^XMB(3.9,124,2,137,0)="""PKG"",526,-1)"
^XMB(3.9,124,2,138,0)="1^1"
^XMB(3.9,124,2,139,0)="""PKG"",526,0)"
^XMB(3.9,124,2,140,0)="CMOP^PSX^CONSOLIDATED MAIL OUTPATIENT PHARMACY"
^XMB(3.9,124,2,141,0)="""PKG"",526,22,0)"
^XMB(3.9,124,2,142,0)="^9.49I^1^1"
^XMB(3.9,124,2,143,0)="""PKG"",526,22,1,0)"
^XMB(3.9,124,2,144,0)="2.0^3000210^3000217^11853"
^XMB(3.9,124,2,145,0)="""PKG"",526,22,1,""PAH"",1,0)"
^XMB(3.9,124,2,146,0)="61^3060622"
^XMB(3.9,124,2,147,0)="""PKG"",526,22,1,""PAH"",1,1,0)"
^XMB(3.9,124,2,148,0)="^^15^15^3060622"
^XMB(3.9,124,2,149,0)="""PKG"",526,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,124,2,150,0)="This patch contains an Application Program Interface (API) that will be "
^XMB(3.9,124,2,151,0)="""PKG"",526,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,124,2,152,0)="used by calling applications that currently do direct global reads or "
^XMB(3.9,124,2,153,0)="""PKG"",526,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,124,2,154,0)="writes to the CMOP SYSTEM file (#550). Since this file is being replaced "
^XMB(3.9,124,2,155,0)="""PKG"",526,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,124,2,156,0)="as part of the Pharmacy Re-engineering project, any direct M-based global "
^XMB(3.9,124,2,157,0)="""PKG"",526,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,124,2,158,0)="reads or writes to this file must be replaced by calling the APIs provided "
^XMB(3.9,124,2,159,0)="""PKG"",526,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,124,2,160,0)="in this patch. When the new data source is in place, the calling "
^XMB(3.9,124,2,161,0)="""PKG"",526,22,1,""PAH"",1,1,7,0)"
^XMB(3.9,124,2,162,0)="applications will not be required to make any changes, because these APIs "
^XMB(3.9,124,2,163,0)="""PKG"",526,22,1,""PAH"",1,1,8,0)"
^XMB(3.9,124,2,164,0)="will be flexible enough to retrieve the requested data from the new data "
^XMB(3.9,124,2,165,0)="""PKG"",526,22,1,""PAH"",1,1,9,0)"
^XMB(3.9,124,2,166,0)="source, when the time comes."
^XMB(3.9,124,2,167,0)="""PKG"",526,22,1,""PAH"",1,1,10,0)"
^XMB(3.9,124,2,168,0)=" "
^XMB(3.9,124,2,169,0)="""PKG"",526,22,1,""PAH"",1,1,11,0)"
^XMB(3.9,124,2,170,0)="This API replaces the following integration agreements:"
^XMB(3.9,124,2,171,0)="""PKG"",526,22,1,""PAH"",1,1,12,0)"
^XMB(3.9,124,2,172,0)=" "
^XMB(3.9,124,2,173,0)="""PKG"",526,22,1,""PAH"",1,1,13,0)"
^XMB(3.9,124,2,174,0)="DBIA #  Affected Package(s)"
^XMB(3.9,124,2,175,0)="""PKG"",526,22,1,""PAH"",1,1,14,0)"
^XMB(3.9,124,2,176,0)="---------------------------"
^XMB(3.9,124,2,177,0)="""PKG"",526,22,1,""PAH"",1,1,15,0)"
^XMB(3.9,124,2,178,0)="2199    CPRS"
^XMB(3.9,124,2,179,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,124,2,180,0)="Y"
^XMB(3.9,124,2,181,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,124,2,182,0)="^D REP^XPDH"
^XMB(3.9,124,2,183,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,124,2,184,0)="Shall I write over your |FLAG| File"
^XMB(3.9,124,2,185,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,124,2,186,0)="YES"
^XMB(3.9,124,2,187,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,124,2,188,0)="D XPF1^XPDIQ"
^XMB(3.9,124,2,189,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,124,2,190,0)="Y"
^XMB(3.9,124,2,191,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,124,2,192,0)="^D DTA^XPDH"
^XMB(3.9,124,2,193,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,124,2,194,0)="Want my data |FLAG| yours"
^XMB(3.9,124,2,195,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,124,2,196,0)="YES"
^XMB(3.9,124,2,197,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,124,2,198,0)="D XPF2^XPDIQ"
^XMB(3.9,124,2,199,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,124,2,200,0)="YO"
^XMB(3.9,124,2,201,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,124,2,202,0)="^D INHIBIT^XPDH"
^XMB(3.9,124,2,203,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,124,2,204,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,124,2,205,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,124,2,206,0)="YES"
^XMB(3.9,124,2,207,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,124,2,208,0)="D XPI1^XPDIQ"
^XMB(3.9,124,2,209,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,124,2,210,0)="PO^VA(200,:EM"
^XMB(3.9,124,2,211,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,124,2,212,0)="^D MG^XPDH"
^XMB(3.9,124,2,213,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,124,2,214,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,124,2,215,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,124,2,216,0)=""
^XMB(3.9,124,2,217,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,124,2,218,0)="D XPM1^XPDIQ"
^XMB(3.9,124,2,219,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,124,2,220,0)="Y"
^XMB(3.9,124,2,221,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,124,2,222,0)="^D MENU^XPDH"
^XMB(3.9,124,2,223,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,124,2,224,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,124,2,225,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,124,2,226,0)="YES"
^XMB(3.9,124,2,227,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,124,2,228,0)="D XPO1^XPDIQ"
^XMB(3.9,124,2,229,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,124,2,230,0)="Y"
^XMB(3.9,124,2,231,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,124,2,232,0)="^D OPT^XPDH"
^XMB(3.9,124,2,233,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,124,2,234,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,124,2,235,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,124,2,236,0)="YES"
^XMB(3.9,124,2,237,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,124,2,238,0)="D XPZ1^XPDIQ"
^XMB(3.9,124,2,239,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,124,2,240,0)="Y"
^XMB(3.9,124,2,241,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,124,2,242,0)="^D RTN^XPDH"
^XMB(3.9,124,2,243,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,124,2,244,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,124,2,245,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,124,2,246,0)="NO"
^XMB(3.9,124,2,247,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,124,2,248,0)="D XPZ2^XPDIQ"
^XMB(3.9,124,2,249,0)="""RTN"")"
^XMB(3.9,124,2,250,0)="1"
^XMB(3.9,124,2,251,0)="""RTN"",""PSX550"")"
^XMB(3.9,124,2,252,0)="0^1^B1992795^n/a"
^XMB(3.9,124,2,253,0)="""RTN"",""PSX550"",1,0)"
^XMB(3.9,124,2,254,0)="PSX550 ;BIR/DB - API for file 550 ;24 Feb 2006"
^XMB(3.9,124,2,255,0)="""RTN"",""PSX550"",2,0)"
^XMB(3.9,124,2,256,0)=" ;;2.0;CMOP;**61**;11 Apr 97;Build 1"
^XMB(3.9,124,2,257,0)="""RTN"",""PSX550"",3,0)"
^XMB(3.9,124,2,258,0)="PSX(PSXIEN,PSXTXT,LIST) ;"
^XMB(3.9,124,2,259,0)="""RTN"",""PSX550"",4,0)"
^XMB(3.9,124,2,260,0)=" ;PSXIEN -CMOP system internal entry number (optional)"
^XMB(3.9,124,2,261,0)="""RTN"",""PSX550"",5,0)"
^XMB(3.9,124,2,262,0)=" ;PSXTXT - Free Text CMOP system name (optional)"
^XMB(3.9,124,2,263,0)="""RTN"",""PSX550"",6,0)"
^XMB(3.9,124,2,264,0)=" ;LIST: Subscript name used in ^TMP global [REQUIRED]"
^XMB(3.9,124,2,265,0)="""RTN"",""PSX550"",7,0)"
^XMB(3.9,124,2,266,0)=" I $G(PSXIEN)="""",$G(PSXTXT)="""" Q"
^XMB(3.9,124,2,267,0)="""RTN"",""PSX550"",8,0)"
^XMB(3.9,124,2,268,0)=" I $G(LIST)="""" Q"
^XMB(3.9,124,2,269,0)="""RTN"",""PSX550"",9,0)"
^XMB(3.9,124,2,270,0)=" K ^TMP($J,LIST),DA,^UTILITY(""DIQ1"",$J),DIQ"
^XMB(3.9,124,2,271,0)="""RTN"",""PSX550"",10,0)"
^XMB(3.9,124,2,272,0)=" I $G(PSXIEN)]"""" S DA=PSXIEN I '$D(^PSX(550,DA,0)) G RET0"
^XMB(3.9,124,2,273,0)="""RTN"",""PSX550"",11,0)"
^XMB(3.9,124,2,274,0)=" I $G(PSXTXT)'="""",$G(PSXIEN)'>0,'$D(^PSX(550,""B"",PSXTXT)) G RET0"
^XMB(3.9,124,2,275,0)="""RTN"",""PSX550"",12,0)"
^XMB(3.9,124,2,276,0)=" I $G(PSXTXT)'="""",$G(DA)'>0 S DA=$O(^PSX(550,""B"",PSXTXT,0))"
^XMB(3.9,124,2,277,0)="""RTN"",""PSX550"",13,0)"
^XMB(3.9,124,2,278,0)=" K ^UTILITY(""DIQ1"",$J),DIC S DIC=550,DR="".01;1"",DIQ(0)=""IE"" D EN^DIQ1"
^XMB(3.9,124,2,279,0)="""RTN"",""PSX550"",14,0)"
^XMB(3.9,124,2,280,0)=" I '$D(^UTILITY(""DIQ1"",$J)) G RET0"
^XMB(3.9,124,2,281,0)="""RTN"",""PSX550"",15,0)"
^XMB(3.9,124,2,282,0)=" S:$G(PSXTXT)="""" PSXTXT=^UTILITY(""DIQ1"",$J,550,DA,.01,""E"")"
^XMB(3.9,124,2,283,0)="""RTN"",""PSX550"",16,0)"
^XMB(3.9,124,2,284,0)=" S ^TMP($J,LIST,1)=$G(^UTILITY(""DIQ1"",$J,550,DA,1,""I""))"
^XMB(3.9,124,2,285,0)="""RTN"",""PSX550"",17,0)"
^XMB(3.9,124,2,286,0)=" S ^TMP($J,LIST,1)=$S($G(^UTILITY(""DIQ1"",$J,550,DA,1,""E""))'="""":^TMP($J,LIST,1)_""^""_$G(^UTILITY(""DIQ1"",$J,550,DA,1,""E"")),1:"""")"
^XMB(3.9,124,2,287,0)="""RTN"",""PSX550"",18,0)"
^XMB(3.9,124,2,288,0)=" S ^TMP($J,LIST,""B"",PSXTXT,DA)="""""
^XMB(3.9,124,2,289,0)="""RTN"",""PSX550"",19,0)"
^XMB(3.9,124,2,290,0)=" Q"
^XMB(3.9,124,2,291,0)="""RTN"",""PSX550"",20,0)"
^XMB(3.9,124,2,292,0)=" K PSXIEN,DA,X,PSXTXT,DR,DIC Q"
^XMB(3.9,124,2,293,0)="""RTN"",""PSX550"",21,0)"
^XMB(3.9,124,2,294,0)="RET0 ;return no data"
^XMB(3.9,124,2,295,0)="""RTN"",""PSX550"",22,0)"
^XMB(3.9,124,2,296,0)=" S ^TMP($J,LIST,0)=""-1^NO DATA FOUND"" Q"
^XMB(3.9,124,2,297,0)="""RTN"",""PSX550"",23,0)"
^XMB(3.9,124,2,298,0)=" Q"
^XMB(3.9,124,2,299,0)="""VER"")"
^XMB(3.9,124,2,300,0)="8.0^22.0"
^XMB(3.9,124,2,301,0)="""BLD"",6061,6)"
^XMB(3.9,124,2,302,0)="^53"
^XMB(3.9,124,2,303,0)="$END KID PSX*2.0*61"
^XMB(3.9,124,6,0)="^3.911A^2^2"
^XMB(3.9,124,6,1,0)="POSTMASTER"
^XMB(3.9,124,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,124,6,"B","POSTMASTER",1)=""
^XMB(3.9,124,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,125,0)="PX-1_SEQ-137_PAT-157.KID^.5^3061008.015741^^^^K"
^XMB(3.9,125,.6)="3061008"
^XMB(3.9,125,1,0)="^3.91A^2^2"
^XMB(3.9,125,1,1,0)=".5^0^3061008.015741^^^^^^^3061008.015741"
^XMB(3.9,125,1,2,0)="1^0^3061008.022603^^^^^^^3061008.022603"
^XMB(3.9,125,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,125,1,"C",.5,1)=""
^XMB(3.9,125,1,"C",1,2)=""
^XMB(3.9,125,2,0)="^^415^415^3061008"
^XMB(3.9,125,2,1,0)="$TXT Released PX*1*157 SEQ #137"
^XMB(3.9,125,2,2,0)="Extracted from mail message"
^XMB(3.9,125,2,3,0)="$END TXT"
^XMB(3.9,125,2,4,0)="$KID PX*1.0*157"
^XMB(3.9,125,2,5,0)="**INSTALL NAME**"
^XMB(3.9,125,2,6,0)="PX*1.0*157"
^XMB(3.9,125,2,7,0)="""BLD"",5861,0)"
^XMB(3.9,125,2,8,0)="PX*1.0*157^PCE PATIENT CARE ENCOUNTER^0^3060712^y"
^XMB(3.9,125,2,9,0)="""BLD"",5861,1,0)"
^XMB(3.9,125,2,10,0)="^^6^6^3060712^"
^XMB(3.9,125,2,11,0)="""BLD"",5861,1,1,0)"
^XMB(3.9,125,2,12,0)="1. Text editing/alignment in PXTT EDIT EDUCATION TOPICS not displaying"
^XMB(3.9,125,2,13,0)="""BLD"",5861,1,2,0)"
^XMB(3.9,125,2,14,0)="   correctly when using PXTT INQUIRE EDUC TOPIC                              "
^XMB(3.9,125,2,15,0)="""BLD"",5861,1,3,0)"
^XMB(3.9,125,2,16,0)=" "
^XMB(3.9,125,2,17,0)="""BLD"",5861,1,4,0)"
^XMB(3.9,125,2,18,0)=" "
^XMB(3.9,125,2,19,0)="""BLD"",5861,1,5,0)"
^XMB(3.9,125,2,20,0)="2.Screen editor for GOALS and STANDARDS not displaying properly during "
^XMB(3.9,125,2,21,0)="""BLD"",5861,1,6,0)"
^XMB(3.9,125,2,22,0)="  [PXTT INQUIRE EDUC TOPIC]."
^XMB(3.9,125,2,23,0)="""BLD"",5861,4,0)"
^XMB(3.9,125,2,24,0)="^9.64PA^^0"
^XMB(3.9,125,2,25,0)="""BLD"",5861,""ABPKG"")"
^XMB(3.9,125,2,26,0)="n"
^XMB(3.9,125,2,27,0)="""BLD"",5861,""INIT"")"
^XMB(3.9,125,2,28,0)="PX157PST"
^XMB(3.9,125,2,29,0)="""BLD"",5861,""KRN"",0)"
^XMB(3.9,125,2,30,0)="^9.67PA^8989.52^19"
^XMB(3.9,125,2,31,0)="""BLD"",5861,""KRN"",.4,0)"
^XMB(3.9,125,2,32,0)=".4"
^XMB(3.9,125,2,33,0)="""BLD"",5861,""KRN"",.4,""NM"",0)"
^XMB(3.9,125,2,34,0)="^9.68A^1^1"
^XMB(3.9,125,2,35,0)="""BLD"",5861,""KRN"",.4,""NM"",1,0)"
^XMB(3.9,125,2,36,0)="PXTT EDUCATION TOPIC DETAIL    FILE #9999999.09^9999999.09^0"
^XMB(3.9,125,2,37,0)="""BLD"",5861,""KRN"",.4,""NM"",""B"",""PXTT EDUCATION TOPIC DETAIL    FILE #9999999.09"",1)"
^XMB(3.9,125,2,38,0)=""
^XMB(3.9,125,2,39,0)="""BLD"",5861,""KRN"",.401,0)"
^XMB(3.9,125,2,40,0)=".401"
^XMB(3.9,125,2,41,0)="""BLD"",5861,""KRN"",.402,0)"
^XMB(3.9,125,2,42,0)=".402"
^XMB(3.9,125,2,43,0)="""BLD"",5861,""KRN"",.403,0)"
^XMB(3.9,125,2,44,0)=".403"
^XMB(3.9,125,2,45,0)="""BLD"",5861,""KRN"",.5,0)"
^XMB(3.9,125,2,46,0)=".5"
^XMB(3.9,125,2,47,0)="""BLD"",5861,""KRN"",.84,0)"
^XMB(3.9,125,2,48,0)=".84"
^XMB(3.9,125,2,49,0)="""BLD"",5861,""KRN"",3.6,0)"
^XMB(3.9,125,2,50,0)="3.6"
^XMB(3.9,125,2,51,0)="""BLD"",5861,""KRN"",3.8,0)"
^XMB(3.9,125,2,52,0)="3.8"
^XMB(3.9,125,2,53,0)="""BLD"",5861,""KRN"",9.2,0)"
^XMB(3.9,125,2,54,0)="9.2"
^XMB(3.9,125,2,55,0)="""BLD"",5861,""KRN"",9.8,0)"
^XMB(3.9,125,2,56,0)="9.8"
^XMB(3.9,125,2,57,0)="""BLD"",5861,""KRN"",9.8,""NM"",0)"
^XMB(3.9,125,2,58,0)="^9.68A^1^1"
^XMB(3.9,125,2,59,0)="""BLD"",5861,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,125,2,60,0)="PX157PST^^0^B19978524"
^XMB(3.9,125,2,61,0)="""BLD"",5861,""KRN"",9.8,""NM"",""B"",""PX157PST"",1)"
^XMB(3.9,125,2,62,0)=""
^XMB(3.9,125,2,63,0)="""BLD"",5861,""KRN"",19,0)"
^XMB(3.9,125,2,64,0)="19"
^XMB(3.9,125,2,65,0)="""BLD"",5861,""KRN"",19,""NM"",0)"
^XMB(3.9,125,2,66,0)="^9.68A^^"
^XMB(3.9,125,2,67,0)="""BLD"",5861,""KRN"",19.1,0)"
^XMB(3.9,125,2,68,0)="19.1"
^XMB(3.9,125,2,69,0)="""BLD"",5861,""KRN"",101,0)"
^XMB(3.9,125,2,70,0)="101"
^XMB(3.9,125,2,71,0)="""BLD"",5861,""KRN"",409.61,0)"
^XMB(3.9,125,2,72,0)="409.61"
^XMB(3.9,125,2,73,0)="""BLD"",5861,""KRN"",771,0)"
^XMB(3.9,125,2,74,0)="771"
^XMB(3.9,125,2,75,0)="""BLD"",5861,""KRN"",870,0)"
^XMB(3.9,125,2,76,0)="870"
^XMB(3.9,125,2,77,0)="""BLD"",5861,""KRN"",8989.51,0)"
^XMB(3.9,125,2,78,0)="8989.51"
^XMB(3.9,125,2,79,0)="""BLD"",5861,""KRN"",8989.52,0)"
^XMB(3.9,125,2,80,0)="8989.52"
^XMB(3.9,125,2,81,0)="""BLD"",5861,""KRN"",8994,0)"
^XMB(3.9,125,2,82,0)="8994"
^XMB(3.9,125,2,83,0)="""BLD"",5861,""KRN"",""B"",.4,.4)"
^XMB(3.9,125,2,84,0)=""
^XMB(3.9,125,2,85,0)="""BLD"",5861,""KRN"",""B"",.401,.401)"
^XMB(3.9,125,2,86,0)=""
^XMB(3.9,125,2,87,0)="""BLD"",5861,""KRN"",""B"",.402,.402)"
^XMB(3.9,125,2,88,0)=""
^XMB(3.9,125,2,89,0)="""BLD"",5861,""KRN"",""B"",.403,.403)"
^XMB(3.9,125,2,90,0)=""
^XMB(3.9,125,2,91,0)="""BLD"",5861,""KRN"",""B"",.5,.5)"
^XMB(3.9,125,2,92,0)=""
^XMB(3.9,125,2,93,0)="""BLD"",5861,""KRN"",""B"",.84,.84)"
^XMB(3.9,125,2,94,0)=""
^XMB(3.9,125,2,95,0)="""BLD"",5861,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,125,2,96,0)=""
^XMB(3.9,125,2,97,0)="""BLD"",5861,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,125,2,98,0)=""
^XMB(3.9,125,2,99,0)="""BLD"",5861,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,125,2,100,0)=""
^XMB(3.9,125,2,101,0)="""BLD"",5861,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,125,2,102,0)=""
^XMB(3.9,125,2,103,0)="""BLD"",5861,""KRN"",""B"",19,19)"
^XMB(3.9,125,2,104,0)=""
^XMB(3.9,125,2,105,0)="""BLD"",5861,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,125,2,106,0)=""
^XMB(3.9,125,2,107,0)="""BLD"",5861,""KRN"",""B"",101,101)"
^XMB(3.9,125,2,108,0)=""
^XMB(3.9,125,2,109,0)="""BLD"",5861,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,125,2,110,0)=""
^XMB(3.9,125,2,111,0)="""BLD"",5861,""KRN"",""B"",771,771)"
^XMB(3.9,125,2,112,0)=""
^XMB(3.9,125,2,113,0)="""BLD"",5861,""KRN"",""B"",870,870)"
^XMB(3.9,125,2,114,0)=""
^XMB(3.9,125,2,115,0)="""BLD"",5861,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,125,2,116,0)=""
^XMB(3.9,125,2,117,0)="""BLD"",5861,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,125,2,118,0)=""
^XMB(3.9,125,2,119,0)="""BLD"",5861,""KRN"",""B"",8994,8994)"
^XMB(3.9,125,2,120,0)=""
^XMB(3.9,125,2,121,0)="""BLD"",5861,""QUES"",0)"
^XMB(3.9,125,2,122,0)="^9.62^^"
^XMB(3.9,125,2,123,0)="""BLD"",5861,""REQB"",0)"
^XMB(3.9,125,2,124,0)="^9.611^^"
^XMB(3.9,125,2,125,0)="""INIT"")"
^XMB(3.9,125,2,126,0)="PX157PST"
^XMB(3.9,125,2,127,0)="""KRN"",.4,1444,-1)"
^XMB(3.9,125,2,128,0)="0^1"
^XMB(3.9,125,2,129,0)="""KRN"",.4,1444,0)"
^XMB(3.9,125,2,130,0)="PXTT EDUCATION TOPIC DETAIL^3060627.1546^^9999999.09^^^3060627"
^XMB(3.9,125,2,131,0)="""KRN"",.4,1444,""F"",1)"
^XMB(3.9,125,2,132,0)=""""";C3;X~""TOPIC NAME:""~.01;W60;""""~"""";C3;X;S1~""PRINT NAME:""~.04;""""~"""";C1;X;S1~""GOALS:"";X~"""";C1;X;S1~11,.01;C2;S1;""""~"""";C1;X;S1~""STANDARDS:"";X~"""";C1;X;S1~"
^XMB(3.9,125,2,133,0)="""KRN"",.4,1444,""F"",2)"
^XMB(3.9,125,2,134,0)="12,.01;C2;S1;""""~"""";C4;S1;X~""SUBTOPIC:""~10,3;D0;L2;X;C15~10,.01;C18;"""";W60~"
^XMB(3.9,125,2,135,0)="""KRN"",.4,1444,""H"")"
^XMB(3.9,125,2,136,0)="Active Patient Education Topics (DETAILED)"
^XMB(3.9,125,2,137,0)="""MBREQ"")"
^XMB(3.9,125,2,138,0)="0"
^XMB(3.9,125,2,139,0)="""ORD"",5,.4)"
^XMB(3.9,125,2,140,0)=".4;5;;;EDEOUT^DIFROMSO(.4,DA,"""",XPDA);FPRE^DIFROMSI(.4,"""",XPDA);EPRE^DIFROMSI(.4,DA,$E(""N"",$G(XPDNEW)),XPDA,"""",OLDA);;EPOST^DIFROMSI(.4,DA,"""",XPDA);DEL^DIFROMSK(.4,"""",%)"
^XMB(3.9,125,2,141,0)="""ORD"",5,.4,0)"
^XMB(3.9,125,2,142,0)="PRINT TEMPLATE"
^XMB(3.9,125,2,143,0)="""PKG"",413,-1)"
^XMB(3.9,125,2,144,0)="1^1"
^XMB(3.9,125,2,145,0)="""PKG"",413,0)"
^XMB(3.9,125,2,146,0)="PCE PATIENT CARE ENCOUNTER^PX^Patient Care Encounter (VA Parent package)^"
^XMB(3.9,125,2,147,0)="""PKG"",413,20,0)"
^XMB(3.9,125,2,148,0)="^9.402P^^"
^XMB(3.9,125,2,149,0)="""PKG"",413,22,0)"
^XMB(3.9,125,2,150,0)="^9.49I^1^1"
^XMB(3.9,125,2,151,0)="""PKG"",413,22,1,0)"
^XMB(3.9,125,2,152,0)="1.0^2960812^2960913^12537"
^XMB(3.9,125,2,153,0)="""PKG"",413,22,1,""PAH"",1,0)"
^XMB(3.9,125,2,154,0)="157^3060712"
^XMB(3.9,125,2,155,0)="""PKG"",413,22,1,""PAH"",1,1,0)"
^XMB(3.9,125,2,156,0)="^^6^6^3060712"
^XMB(3.9,125,2,157,0)="""PKG"",413,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,125,2,158,0)="1. Text editing/alignment in PXTT EDIT EDUCATION TOPICS not displaying"
^XMB(3.9,125,2,159,0)="""PKG"",413,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,125,2,160,0)="   correctly when using PXTT INQUIRE EDUC TOPIC                              "
^XMB(3.9,125,2,161,0)="""PKG"",413,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,125,2,162,0)=" "
^XMB(3.9,125,2,163,0)="""PKG"",413,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,125,2,164,0)=" "
^XMB(3.9,125,2,165,0)="""PKG"",413,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,125,2,166,0)="2.Screen editor for GOALS and STANDARDS not displaying properly during "
^XMB(3.9,125,2,167,0)="""PKG"",413,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,125,2,168,0)="  [PXTT INQUIRE EDUC TOPIC]."
^XMB(3.9,125,2,169,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,125,2,170,0)="Y"
^XMB(3.9,125,2,171,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,125,2,172,0)="^D REP^XPDH"
^XMB(3.9,125,2,173,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,125,2,174,0)="Shall I write over your |FLAG| File"
^XMB(3.9,125,2,175,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,125,2,176,0)="YES"
^XMB(3.9,125,2,177,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,125,2,178,0)="D XPF1^XPDIQ"
^XMB(3.9,125,2,179,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,125,2,180,0)="Y"
^XMB(3.9,125,2,181,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,125,2,182,0)="^D DTA^XPDH"
^XMB(3.9,125,2,183,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,125,2,184,0)="Want my data |FLAG| yours"
^XMB(3.9,125,2,185,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,125,2,186,0)="YES"
^XMB(3.9,125,2,187,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,125,2,188,0)="D XPF2^XPDIQ"
^XMB(3.9,125,2,189,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,125,2,190,0)="YO"
^XMB(3.9,125,2,191,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,125,2,192,0)="^D INHIBIT^XPDH"
^XMB(3.9,125,2,193,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,125,2,194,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,125,2,195,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,125,2,196,0)="YES"
^XMB(3.9,125,2,197,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,125,2,198,0)="D XPI1^XPDIQ"
^XMB(3.9,125,2,199,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,125,2,200,0)="PO^VA(200,:EM"
^XMB(3.9,125,2,201,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,125,2,202,0)="^D MG^XPDH"
^XMB(3.9,125,2,203,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,125,2,204,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,125,2,205,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,125,2,206,0)=""
^XMB(3.9,125,2,207,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,125,2,208,0)="D XPM1^XPDIQ"
^XMB(3.9,125,2,209,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,125,2,210,0)="Y"
^XMB(3.9,125,2,211,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,125,2,212,0)="^D MENU^XPDH"
^XMB(3.9,125,2,213,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,125,2,214,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,125,2,215,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,125,2,216,0)="YES"
^XMB(3.9,125,2,217,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,125,2,218,0)="D XPO1^XPDIQ"
^XMB(3.9,125,2,219,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,125,2,220,0)="Y"
^XMB(3.9,125,2,221,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,125,2,222,0)="^D OPT^XPDH"
^XMB(3.9,125,2,223,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,125,2,224,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,125,2,225,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,125,2,226,0)="YES"
^XMB(3.9,125,2,227,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,125,2,228,0)="D XPZ1^XPDIQ"
^XMB(3.9,125,2,229,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,125,2,230,0)="Y"
^XMB(3.9,125,2,231,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,125,2,232,0)="^D RTN^XPDH"
^XMB(3.9,125,2,233,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,125,2,234,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,125,2,235,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,125,2,236,0)="NO"
^XMB(3.9,125,2,237,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,125,2,238,0)="D XPZ2^XPDIQ"
^XMB(3.9,125,2,239,0)="""RTN"")"
^XMB(3.9,125,2,240,0)="1"
^XMB(3.9,125,2,241,0)="""RTN"",""PX157PST"")"
^XMB(3.9,125,2,242,0)="0^1^B19978524^n/a"
^XMB(3.9,125,2,243,0)="""RTN"",""PX157PST"",1,0)"
^XMB(3.9,125,2,244,0)="PX157PST ;ALB/SCK - PX*1.0*157 POST INIT INSTALL"
^XMB(3.9,125,2,245,0)="""RTN"",""PX157PST"",2,0)"
^XMB(3.9,125,2,246,0)=" ;;1.0;PCE PATIENT CARE ENCOUNTER;**157**;Aug 12, 1996"
^XMB(3.9,125,2,247,0)="""RTN"",""PX157PST"",3,0)"
^XMB(3.9,125,2,248,0)=" ;"
^XMB(3.9,125,2,249,0)="""RTN"",""PX157PST"",4,0)"
^XMB(3.9,125,2,250,0)="EN ; Edit Education Topics VA-ADVANCE DIRECTIVES & VA-ADVANCED DIRECTIVES SCREENING"
^XMB(3.9,125,2,251,0)="""RTN"",""PX157PST"",5,0)"
^XMB(3.9,125,2,252,0)=" ; -- modifying to ""advance directives"" terminology."
^XMB(3.9,125,2,253,0)="""RTN"",""PX157PST"",6,0)"
^XMB(3.9,125,2,254,0)="EN1 ;check VA-ADVANCED DIRECTIVES SCREENING"
^XMB(3.9,125,2,255,0)="""RTN"",""PX157PST"",7,0)"
^XMB(3.9,125,2,256,0)=" S FIX1=0,FIX2=0,IEN1=0,U=""^"",WD1=""VA-ADVANCED DIRECTIVES SCREENING"",WD2=""Advanced Directive Screening"""
^XMB(3.9,125,2,257,0)="""RTN"",""PX157PST"",8,0)"
^XMB(3.9,125,2,258,0)=" S WD1N=""VA-ADVANCE DIRECTIVES SCREENING"",WD2N=""Advance Directives Screening"""
^XMB(3.9,125,2,259,0)="""RTN"",""PX157PST"",9,0)"
^XMB(3.9,125,2,260,0)=" S WD(1)=""determine if the patient should receive Advanced Directive education. """
^XMB(3.9,125,2,261,0)="""RTN"",""PX157PST"",10,0)"
^XMB(3.9,125,2,262,0)=" S WDN(1)=""determine if the patient should receive Advance Directives education."""
^XMB(3.9,125,2,263,0)="""RTN"",""PX157PST"",11,0)"
^XMB(3.9,125,2,264,0)=" S WD(2)=""Advanced Directive education.    """
^XMB(3.9,125,2,265,0)="""RTN"",""PX157PST"",12,0)"
^XMB(3.9,125,2,266,0)=" S WDN(2)=""Advance Directives education."""
^XMB(3.9,125,2,267,0)="""RTN"",""PX157PST"",13,0)"
^XMB(3.9,125,2,268,0)=" S IEN1=$O(^AUTTEDT(""B"",WD1,IEN1)) I IEN1="""" G EN2"
^XMB(3.9,125,2,269,0)="""RTN"",""PX157PST"",14,0)"
^XMB(3.9,125,2,270,0)=" S REDT=^AUTTEDT(IEN1,0)"
^XMB(3.9,125,2,271,0)="""RTN"",""PX157PST"",15,0)"
^XMB(3.9,125,2,272,0)=" I $P(REDT,U)'=WD1!($P(REDT,U,4)'=WD2) G EN2"
^XMB(3.9,125,2,273,0)="""RTN"",""PX157PST"",16,0)"
^XMB(3.9,125,2,274,0)=" ;I ^AUTTEDT(IEN1,11,2,0)'=WD(1) G EN2"
^XMB(3.9,125,2,275,0)="""RTN"",""PX157PST"",17,0)"
^XMB(3.9,125,2,276,0)=" ;I ^AUTTEDT(IEN1,12,4,0)'=WD(2) G EN2"
^XMB(3.9,125,2,277,0)="""RTN"",""PX157PST"",18,0)"
^XMB(3.9,125,2,278,0)="SET1 ;SET CORRECT WORDING"
^XMB(3.9,125,2,279,0)="""RTN"",""PX157PST"",19,0)"
^XMB(3.9,125,2,280,0)=" S FIX1=1"
^XMB(3.9,125,2,281,0)="""RTN"",""PX157PST"",20,0)"
^XMB(3.9,125,2,282,0)=" S DA=IEN1,DR="".01////^S X=WD1N"",DIE=""^AUTTEDT("" D ^DIE"
^XMB(3.9,125,2,283,0)="""RTN"",""PX157PST"",21,0)"
^XMB(3.9,125,2,284,0)=" S DA=IEN1,DR="".04////^S X=WD2N"",DIE=""^AUTTEDT("" D ^DIE"
^XMB(3.9,125,2,285,0)="""RTN"",""PX157PST"",22,0)"
^XMB(3.9,125,2,286,0)=" S ^AUTTEDT(IEN1,11,2,0)=WDN(1),^AUTTEDT(IEN1,12,4,0)=WDN(2)"
^XMB(3.9,125,2,287,0)="""RTN"",""PX157PST"",23,0)"
^XMB(3.9,125,2,288,0)="EN2 ;check VA-ADVANCED DIRECTIVES"
^XMB(3.9,125,2,289,0)="""RTN"",""PX157PST"",24,0)"
^XMB(3.9,125,2,290,0)=" S IEN2=0,WD1A=""VA-ADVANCED DIRECTIVES"",WD2A=""Advanced Directives"""
^XMB(3.9,125,2,291,0)="""RTN"",""PX157PST"",25,0)"
^XMB(3.9,125,2,292,0)=" S WD1AN=""VA-ADVANCE DIRECTIVES"",WD2AN=""Advance Directives"""
^XMB(3.9,125,2,293,0)="""RTN"",""PX157PST"",26,0)"
^XMB(3.9,125,2,294,0)=" S WDA(1)=""The patient and family will identify the implications of advanced"""
^XMB(3.9,125,2,295,0)="""RTN"",""PX157PST"",27,0)"
^XMB(3.9,125,2,296,0)=" S WDA(2)=""1.  Explain what an advanced directive is."""
^XMB(3.9,125,2,297,0)="""RTN"",""PX157PST"",28,0)"
^XMB(3.9,125,2,298,0)=" S WDA(3)=""2.  Explain the difference between advanced directives and a living will."""
^XMB(3.9,125,2,299,0)="""RTN"",""PX157PST"",29,0)"
^XMB(3.9,125,2,300,0)=" S WDA(4)=""5.  Identify a social worker to contact for furthur information as appropriate."""
^XMB(3.9,125,2,301,0)="""RTN"",""PX157PST"",30,0)"
^XMB(3.9,125,2,302,0)=" S WDAN(1)=""The patient and family will identify the implications of advance"""
^XMB(3.9,125,2,303,0)="""RTN"",""PX157PST"",31,0)"
^XMB(3.9,125,2,304,0)=" S WDAN(2)=""1.  Explain what an advance directives is."""
^XMB(3.9,125,2,305,0)="""RTN"",""PX157PST"",32,0)"
^XMB(3.9,125,2,306,0)=" S WDAN(3)=""2.  Explain the difference between advance directives and a living will."""
^XMB(3.9,125,2,307,0)="""RTN"",""PX157PST"",33,0)"
^XMB(3.9,125,2,308,0)=" S WDAN(4)=""5.  Identify a social worker to contact for further information as appropriate."""
^XMB(3.9,125,2,309,0)="""RTN"",""PX157PST"",34,0)"
^XMB(3.9,125,2,310,0)=" S IEN2=$O(^AUTTEDT(""B"",WD1A,IEN2)) I IEN2="""" G EN3"
^XMB(3.9,125,2,311,0)="""RTN"",""PX157PST"",35,0)"
^XMB(3.9,125,2,312,0)=" S REDT=^AUTTEDT(IEN2,0)"
^XMB(3.9,125,2,313,0)="""RTN"",""PX157PST"",36,0)"
^XMB(3.9,125,2,314,0)=" I $P(REDT,U)'=WD1A!($P(REDT,U,4)'=WD2A) G EN3"
^XMB(3.9,125,2,315,0)="""RTN"",""PX157PST"",37,0)"
^XMB(3.9,125,2,316,0)=" I ^AUTTEDT(IEN2,11,1,0)'=WDA(1) G EN3"
^XMB(3.9,125,2,317,0)="""RTN"",""PX157PST"",38,0)"
^XMB(3.9,125,2,318,0)=" I ^AUTTEDT(IEN2,12,1,0)'=WDA(2) G EN3"
^XMB(3.9,125,2,319,0)="""RTN"",""PX157PST"",39,0)"
^XMB(3.9,125,2,320,0)=" I ^AUTTEDT(IEN2,12,3,0)'=WDA(3) G EN3"
^XMB(3.9,125,2,321,0)="""RTN"",""PX157PST"",40,0)"
^XMB(3.9,125,2,322,0)=" I ^AUTTEDT(IEN2,12,10,0)'=WDA(4) G EN3"
^XMB(3.9,125,2,323,0)="""RTN"",""PX157PST"",41,0)"
^XMB(3.9,125,2,324,0)="SET2 ;SET CORRECT WORDING"
^XMB(3.9,125,2,325,0)="""RTN"",""PX157PST"",42,0)"
^XMB(3.9,125,2,326,0)=" S FIX2=1"
^XMB(3.9,125,2,327,0)="""RTN"",""PX157PST"",43,0)"
^XMB(3.9,125,2,328,0)=" S DA=IEN2,DR="".01////^S X=WD1AN"",DIE=""^AUTTEDT("" D ^DIE"
^XMB(3.9,125,2,329,0)="""RTN"",""PX157PST"",44,0)"
^XMB(3.9,125,2,330,0)=" S DA=IEN2,DR="".04////^S X=WD2AN"",DIE=""^AUTTEDT("" D ^DIE"
^XMB(3.9,125,2,331,0)="""RTN"",""PX157PST"",45,0)"
^XMB(3.9,125,2,332,0)=" S ^AUTTEDT(IEN2,11,1,0)=WDAN(1)"
^XMB(3.9,125,2,333,0)="""RTN"",""PX157PST"",46,0)"
^XMB(3.9,125,2,334,0)=" S ^AUTTEDT(IEN2,12,1,0)=WDAN(2),^AUTTEDT(IEN2,12,3,0)=WDAN(3)"
^XMB(3.9,125,2,335,0)="""RTN"",""PX157PST"",47,0)"
^XMB(3.9,125,2,336,0)=" S ^AUTTEDT(IEN2,12,10,0)=WDAN(4)"
^XMB(3.9,125,2,337,0)="""RTN"",""PX157PST"",48,0)"
^XMB(3.9,125,2,338,0)="EN3 ;MAIL MSG"
^XMB(3.9,125,2,339,0)="""RTN"",""PX157PST"",49,0)"
^XMB(3.9,125,2,340,0)="END ;EXIT PATH"
^XMB(3.9,125,2,341,0)="""RTN"",""PX157PST"",50,0)"
^XMB(3.9,125,2,342,0)=" D MAIL"
^XMB(3.9,125,2,343,0)="""RTN"",""PX157PST"",51,0)"
^XMB(3.9,125,2,344,0)=" K DA,DR,DIE,IEN,IEN1,IEN2,WD,WDN,WDA,WDAN,WD1,WD1N,WD2,WD2N,WD1A,WD1AN,WD2A,WD2AN,FIX1,FIX2,REDT"
^XMB(3.9,125,2,345,0)="""RTN"",""PX157PST"",52,0)"
^XMB(3.9,125,2,346,0)=" Q"
^XMB(3.9,125,2,347,0)="""RTN"",""PX157PST"",53,0)"
^XMB(3.9,125,2,348,0)="MAIL ;Send results of Educ Topic fix in a mail message to initiator"
^XMB(3.9,125,2,349,0)="""RTN"",""PX157PST"",54,0)"
^XMB(3.9,125,2,350,0)=" N I,XMSUB,XMTEXT,XMDUZ,XMY,DIFROM"
^XMB(3.9,125,2,351,0)="""RTN"",""PX157PST"",55,0)"
^XMB(3.9,125,2,352,0)=" S XMSUB=""Patch PX*1.0*157 Educ topic modification completed"""
^XMB(3.9,125,2,353,0)="""RTN"",""PX157PST"",56,0)"
^XMB(3.9,125,2,354,0)=" S XMDUZ=""Patch PX*1.0*157 Educ topic modify job"""
^XMB(3.9,125,2,355,0)="""RTN"",""PX157PST"",57,0)"
^XMB(3.9,125,2,356,0)=" S XMY(.5)="""" S:$G(DUZ) XMY(DUZ)="""""
^XMB(3.9,125,2,357,0)="""RTN"",""PX157PST"",58,0)"
^XMB(3.9,125,2,358,0)=" S XMTEXT=""^TMP(""""PXTXT"""",$J,"""
^XMB(3.9,125,2,359,0)="""RTN"",""PX157PST"",59,0)"
^XMB(3.9,125,2,360,0)=" K ^TMP(""PXTXT"",$J)"
^XMB(3.9,125,2,361,0)="""RTN"",""PX157PST"",60,0)"
^XMB(3.9,125,2,362,0)=" ; set up header and count"
^XMB(3.9,125,2,363,0)="""RTN"",""PX157PST"",61,0)"
^XMB(3.9,125,2,364,0)=" S I=3"
^XMB(3.9,125,2,365,0)="""RTN"",""PX157PST"",62,0)"
^XMB(3.9,125,2,366,0)=" S ^TMP(""PXTXT"",$J,1)=""The modification of Education Topics: VA-Advanced Directives and"""
^XMB(3.9,125,2,367,0)="""RTN"",""PX157PST"",63,0)"
^XMB(3.9,125,2,368,0)=" S ^TMP(""PXTXT"",$J,2)=""VA-Advanced Directives Screening, has completed"""
^XMB(3.9,125,2,369,0)="""RTN"",""PX157PST"",64,0)"
^XMB(3.9,125,2,370,0)=" S ^TMP(""PXTXT"",$J,I)="""",I=I+1"
^XMB(3.9,125,2,371,0)="""RTN"",""PX157PST"",65,0)"
^XMB(3.9,125,2,372,0)=" S ^TMP(""PXTXT"",$J,I)="""""
^XMB(3.9,125,2,373,0)="""RTN"",""PX157PST"",66,0)"
^XMB(3.9,125,2,374,0)=" I FIX1=0 D"
^XMB(3.9,125,2,375,0)="""RTN"",""PX157PST"",67,0)"
^XMB(3.9,125,2,376,0)=" . S I=I+1,^TMP(""PXTXT"",$J,I)=""                 *** ERROR ALERT ***"""
^XMB(3.9,125,2,377,0)="""RTN"",""PX157PST"",68,0)"
^XMB(3.9,125,2,378,0)=" . S I=I+1,^TMP(""PXTXT"",$J,I)=""Could NOT fix topic VA-Advanced Directives Screening, data did NOT """
^XMB(3.9,125,2,379,0)="""RTN"",""PX157PST"",69,0)"
^XMB(3.9,125,2,380,0)=" . S I=I+1,^TMP(""PXTXT"",$J,I)=""match national data base"""
^XMB(3.9,125,2,381,0)="""RTN"",""PX157PST"",70,0)"
^XMB(3.9,125,2,382,0)=" I FIX1>0 D"
^XMB(3.9,125,2,383,0)="""RTN"",""PX157PST"",71,0)"
^XMB(3.9,125,2,384,0)=" . S I=I+1,^TMP(""PXTXT"",$J,I)=""                 ***  CHANGED  ***"""
^XMB(3.9,125,2,385,0)="""RTN"",""PX157PST"",72,0)"
^XMB(3.9,125,2,386,0)=" . S I=I+1,^TMP(""PXTXT"",$J,I)=""Modified topic VA-Advanced Directives Screening for verbiage"""
^XMB(3.9,125,2,387,0)="""RTN"",""PX157PST"",73,0)"
^XMB(3.9,125,2,388,0)=" . S I=I+1,^TMP(""PXTXT"",$J,I)=""correction where used"""
^XMB(3.9,125,2,389,0)="""RTN"",""PX157PST"",74,0)"
^XMB(3.9,125,2,390,0)=" S I=I+1,^TMP(""PXTXT"",$J,I)="""""
^XMB(3.9,125,2,391,0)="""RTN"",""PX157PST"",75,0)"
^XMB(3.9,125,2,392,0)=" I FIX2=0 D"
^XMB(3.9,125,2,393,0)="""RTN"",""PX157PST"",76,0)"
^XMB(3.9,125,2,394,0)=" . S I=I+1,^TMP(""PXTXT"",$J,I)=""                 *** ERROR ALERT ***"""
^XMB(3.9,125,2,395,0)="""RTN"",""PX157PST"",77,0)"
^XMB(3.9,125,2,396,0)=" . S I=I+1,^TMP(""PXTXT"",$J,I)=""Could NOT fix topic VA-Advanced Directives, data did NOT"""
^XMB(3.9,125,2,397,0)="""RTN"",""PX157PST"",78,0)"
^XMB(3.9,125,2,398,0)=" . S I=I+1,^TMP(""PXTXT"",$J,I)=""match national data base"""
^XMB(3.9,125,2,399,0)="""RTN"",""PX157PST"",79,0)"
^XMB(3.9,125,2,400,0)=" I FIX2>0 D"
^XMB(3.9,125,2,401,0)="""RTN"",""PX157PST"",80,0)"
^XMB(3.9,125,2,402,0)=" . S I=I+1,^TMP(""PXTXT"",$J,I)=""                 ***  CHANGED  ***"""
^XMB(3.9,125,2,403,0)="""RTN"",""PX157PST"",81,0)"
^XMB(3.9,125,2,404,0)=" . S I=I+1,^TMP(""PXTXT"",$J,I)=""Modified topic VA-Advanced Directives for verbiage correction"""
^XMB(3.9,125,2,405,0)="""RTN"",""PX157PST"",82,0)"
^XMB(3.9,125,2,406,0)=" . S I=I+1,^TMP(""PXTXT"",$J,I)=""where used"""
^XMB(3.9,125,2,407,0)="""RTN"",""PX157PST"",83,0)"
^XMB(3.9,125,2,408,0)=" D ^XMD ;send results"
^XMB(3.9,125,2,409,0)="""RTN"",""PX157PST"",84,0)"
^XMB(3.9,125,2,410,0)=" Q"
^XMB(3.9,125,2,411,0)="""VER"")"
^XMB(3.9,125,2,412,0)="8.0^22.0"
^XMB(3.9,125,2,413,0)="""BLD"",5861,6)"
^XMB(3.9,125,2,414,0)="^137"
^XMB(3.9,125,2,415,0)="$END KID PX*1.0*157"
^XMB(3.9,125,6,0)="^3.911A^2^2"
^XMB(3.9,125,6,1,0)="POSTMASTER"
^XMB(3.9,125,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,125,6,"B","POSTMASTER",1)=""
^XMB(3.9,125,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,126,0)="RA-5_SEQ-60_PAT-64.KID^.5^3061008.015741^^^^K"
^XMB(3.9,126,.6)="3061008"
^XMB(3.9,126,1,0)="^3.91A^2^2"
^XMB(3.9,126,1,1,0)=".5^0^3061008.015741^^^^^^^3061008.015741"
^XMB(3.9,126,1,2,0)="1^0^3061008.022608^^^^^^^3061008.022608"
^XMB(3.9,126,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,126,1,"C",.5,1)=""
^XMB(3.9,126,1,"C",1,2)=""
^XMB(3.9,126,2,0)="^^2217^2217^3061008"
^XMB(3.9,126,2,1,0)="$TXT Released RA*5*64 SEQ #60"
^XMB(3.9,126,2,2,0)="Extracted from mail message"
^XMB(3.9,126,2,3,0)="$END TXT"
^XMB(3.9,126,2,4,0)="$KID RA*5.0*64"
^XMB(3.9,126,2,5,0)="**INSTALL NAME**"
^XMB(3.9,126,2,6,0)="RA*5.0*64"
^XMB(3.9,126,2,7,0)="""BLD"",5940,0)"
^XMB(3.9,126,2,8,0)="RA*5.0*64^RADIOLOGY/NUCLEAR MEDICINE^0^3060627^y"
^XMB(3.9,126,2,9,0)="""BLD"",5940,1,0)"
^XMB(3.9,126,2,10,0)="^^2^2^3060627^^^"
^XMB(3.9,126,2,11,0)="""BLD"",5940,1,1,0)"
^XMB(3.9,126,2,12,0)="Please refer to the patch description in FORUM regarding the installation"
^XMB(3.9,126,2,13,0)="""BLD"",5940,1,2,0)"
^XMB(3.9,126,2,14,0)="of RA*5.0*64."
^XMB(3.9,126,2,15,0)="""BLD"",5940,4,0)"
^XMB(3.9,126,2,16,0)="^9.64PA^79.2^1"
^XMB(3.9,126,2,17,0)="""BLD"",5940,4,79.2,0)"
^XMB(3.9,126,2,18,0)="79.2"
^XMB(3.9,126,2,19,0)="""BLD"",5940,4,79.2,2,0)"
^XMB(3.9,126,2,20,0)="^9.641^79.22^1"
^XMB(3.9,126,2,21,0)="""BLD"",5940,4,79.2,2,79.22,0)"
^XMB(3.9,126,2,22,0)="WORK RVU (wRVU) SCALING FACTOR  (sub-file)"
^XMB(3.9,126,2,23,0)="""BLD"",5940,4,79.2,2,79.22,1,0)"
^XMB(3.9,126,2,24,0)="^9.6411^^0"
^XMB(3.9,126,2,25,0)="""BLD"",5940,4,79.2,222)"
^XMB(3.9,126,2,26,0)="y^n^p^^^^n^^n"
^XMB(3.9,126,2,27,0)="""BLD"",5940,4,79.2,224)"
^XMB(3.9,126,2,28,0)=""
^XMB(3.9,126,2,29,0)="""BLD"",5940,4,""APDD"",79.2,79.22)"
^XMB(3.9,126,2,30,0)=""
^XMB(3.9,126,2,31,0)="""BLD"",5940,4,""B"",79.2,79.2)"
^XMB(3.9,126,2,32,0)=""
^XMB(3.9,126,2,33,0)="""BLD"",5940,6.3)"
^XMB(3.9,126,2,34,0)="5"
^XMB(3.9,126,2,35,0)="""BLD"",5940,""ABPKG"")"
^XMB(3.9,126,2,36,0)="n"
^XMB(3.9,126,2,37,0)="""BLD"",5940,""INI"")"
^XMB(3.9,126,2,38,0)="RA64PRE"
^XMB(3.9,126,2,39,0)="""BLD"",5940,""INIT"")"
^XMB(3.9,126,2,40,0)="RA64PST"
^XMB(3.9,126,2,41,0)="""BLD"",5940,""KRN"",0)"
^XMB(3.9,126,2,42,0)="^9.67PA^8989.52^19"
^XMB(3.9,126,2,43,0)="""BLD"",5940,""KRN"",.4,0)"
^XMB(3.9,126,2,44,0)=".4"
^XMB(3.9,126,2,45,0)="""BLD"",5940,""KRN"",.401,0)"
^XMB(3.9,126,2,46,0)=".401"
^XMB(3.9,126,2,47,0)="""BLD"",5940,""KRN"",.402,0)"
^XMB(3.9,126,2,48,0)=".402"
^XMB(3.9,126,2,49,0)="""BLD"",5940,""KRN"",.403,0)"
^XMB(3.9,126,2,50,0)=".403"
^XMB(3.9,126,2,51,0)="""BLD"",5940,""KRN"",.5,0)"
^XMB(3.9,126,2,52,0)=".5"
^XMB(3.9,126,2,53,0)="""BLD"",5940,""KRN"",.84,0)"
^XMB(3.9,126,2,54,0)=".84"
^XMB(3.9,126,2,55,0)="""BLD"",5940,""KRN"",3.6,0)"
^XMB(3.9,126,2,56,0)="3.6"
^XMB(3.9,126,2,57,0)="""BLD"",5940,""KRN"",3.8,0)"
^XMB(3.9,126,2,58,0)="3.8"
^XMB(3.9,126,2,59,0)="""BLD"",5940,""KRN"",9.2,0)"
^XMB(3.9,126,2,60,0)="9.2"
^XMB(3.9,126,2,61,0)="""BLD"",5940,""KRN"",9.8,0)"
^XMB(3.9,126,2,62,0)="9.8"
^XMB(3.9,126,2,63,0)="""BLD"",5940,""KRN"",9.8,""NM"",0)"
^XMB(3.9,126,2,64,0)="^9.68A^8^7"
^XMB(3.9,126,2,65,0)="""BLD"",5940,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,126,2,66,0)="RAWRVUP^^0^B28533070"
^XMB(3.9,126,2,67,0)="""BLD"",5940,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,126,2,68,0)="RAWKLU^^0^B43942290"
^XMB(3.9,126,2,69,0)="""BLD"",5940,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,126,2,70,0)="RAWKLU1^^0^B32092526"
^XMB(3.9,126,2,71,0)="""BLD"",5940,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,126,2,72,0)="RAWKLU2^^0^B37550729"
^XMB(3.9,126,2,73,0)="""BLD"",5940,""KRN"",9.8,""NM"",6,0)"
^XMB(3.9,126,2,74,0)="RAWKLU3^^0^B12473282"
^XMB(3.9,126,2,75,0)="""BLD"",5940,""KRN"",9.8,""NM"",7,0)"
^XMB(3.9,126,2,76,0)="RA64PST^^0^B4334607"
^XMB(3.9,126,2,77,0)="""BLD"",5940,""KRN"",9.8,""NM"",8,0)"
^XMB(3.9,126,2,78,0)="RA64PRE^^0^B6590378"
^XMB(3.9,126,2,79,0)="""BLD"",5940,""KRN"",9.8,""NM"",""B"",""RA64PRE"",8)"
^XMB(3.9,126,2,80,0)=""
^XMB(3.9,126,2,81,0)="""BLD"",5940,""KRN"",9.8,""NM"",""B"",""RA64PST"",7)"
^XMB(3.9,126,2,82,0)=""
^XMB(3.9,126,2,83,0)="""BLD"",5940,""KRN"",9.8,""NM"",""B"",""RAWKLU"",3)"
^XMB(3.9,126,2,84,0)=""
^XMB(3.9,126,2,85,0)="""BLD"",5940,""KRN"",9.8,""NM"",""B"",""RAWKLU1"",4)"
^XMB(3.9,126,2,86,0)=""
^XMB(3.9,126,2,87,0)="""BLD"",5940,""KRN"",9.8,""NM"",""B"",""RAWKLU2"",5)"
^XMB(3.9,126,2,88,0)=""
^XMB(3.9,126,2,89,0)="""BLD"",5940,""KRN"",9.8,""NM"",""B"",""RAWKLU3"",6)"
^XMB(3.9,126,2,90,0)=""
^XMB(3.9,126,2,91,0)="""BLD"",5940,""KRN"",9.8,""NM"",""B"",""RAWRVUP"",1)"
^XMB(3.9,126,2,92,0)=""
^XMB(3.9,126,2,93,0)="""BLD"",5940,""KRN"",19,0)"
^XMB(3.9,126,2,94,0)="19"
^XMB(3.9,126,2,95,0)="""BLD"",5940,""KRN"",19,""NM"",0)"
^XMB(3.9,126,2,96,0)="^9.68A^10^9"
^XMB(3.9,126,2,97,0)="""BLD"",5940,""KRN"",19,""NM"",1,0)"
^XMB(3.9,126,2,98,0)="RA SPECRPTS^^2"
^XMB(3.9,126,2,99,0)="""BLD"",5940,""KRN"",19,""NM"",3,0)"
^XMB(3.9,126,2,100,0)="RA PROC CPTWRVU^^0"
^XMB(3.9,126,2,101,0)="""BLD"",5940,""KRN"",19,""NM"",4,0)"
^XMB(3.9,126,2,102,0)="RA PROC CPTSWRVU^^0"
^XMB(3.9,126,2,103,0)="""BLD"",5940,""KRN"",19,""NM"",5,0)"
^XMB(3.9,126,2,104,0)="RA WKLIPHY CPT ITYPE^^0"
^XMB(3.9,126,2,105,0)="""BLD"",5940,""KRN"",19,""NM"",6,0)"
^XMB(3.9,126,2,106,0)="RA WKLIPHY SWRVU ITYPE^^0"
^XMB(3.9,126,2,107,0)="""BLD"",5940,""KRN"",19,""NM"",7,0)"
^XMB(3.9,126,2,108,0)="RA WKLIPHY WRVU ITYPE^^0"
^XMB(3.9,126,2,109,0)="""BLD"",5940,""KRN"",19,""NM"",8,0)"
^XMB(3.9,126,2,110,0)="RA WKLIPHY WRVU CPT^^0"
^XMB(3.9,126,2,111,0)="""BLD"",5940,""KRN"",19,""NM"",9,0)"
^XMB(3.9,126,2,112,0)="RA WKLIPHY SWRVU CPT^^0"
^XMB(3.9,126,2,113,0)="""BLD"",5940,""KRN"",19,""NM"",10,0)"
^XMB(3.9,126,2,114,0)="RA WKL^^2"
^XMB(3.9,126,2,115,0)="""BLD"",5940,""KRN"",19,""NM"",""B"",""RA PROC CPTSWRVU"",4)"
^XMB(3.9,126,2,116,0)=""
^XMB(3.9,126,2,117,0)="""BLD"",5940,""KRN"",19,""NM"",""B"",""RA PROC CPTWRVU"",3)"
^XMB(3.9,126,2,118,0)=""
^XMB(3.9,126,2,119,0)="""BLD"",5940,""KRN"",19,""NM"",""B"",""RA SPECRPTS"",1)"
^XMB(3.9,126,2,120,0)=""
^XMB(3.9,126,2,121,0)="""BLD"",5940,""KRN"",19,""NM"",""B"",""RA WKL"",10)"
^XMB(3.9,126,2,122,0)=""
^XMB(3.9,126,2,123,0)="""BLD"",5940,""KRN"",19,""NM"",""B"",""RA WKLIPHY CPT ITYPE"",5)"
^XMB(3.9,126,2,124,0)=""
^XMB(3.9,126,2,125,0)="""BLD"",5940,""KRN"",19,""NM"",""B"",""RA WKLIPHY SWRVU CPT"",9)"
^XMB(3.9,126,2,126,0)=""
^XMB(3.9,126,2,127,0)="""BLD"",5940,""KRN"",19,""NM"",""B"",""RA WKLIPHY SWRVU ITYPE"",6)"
^XMB(3.9,126,2,128,0)=""
^XMB(3.9,126,2,129,0)="""BLD"",5940,""KRN"",19,""NM"",""B"",""RA WKLIPHY WRVU CPT"",8)"
^XMB(3.9,126,2,130,0)=""
^XMB(3.9,126,2,131,0)="""BLD"",5940,""KRN"",19,""NM"",""B"",""RA WKLIPHY WRVU ITYPE"",7)"
^XMB(3.9,126,2,132,0)=""
^XMB(3.9,126,2,133,0)="""BLD"",5940,""KRN"",19.1,0)"
^XMB(3.9,126,2,134,0)="19.1"
^XMB(3.9,126,2,135,0)="""BLD"",5940,""KRN"",19.1,""NM"",0)"
^XMB(3.9,126,2,136,0)="^9.68A^^"
^XMB(3.9,126,2,137,0)="""BLD"",5940,""KRN"",101,0)"
^XMB(3.9,126,2,138,0)="101"
^XMB(3.9,126,2,139,0)="""BLD"",5940,""KRN"",409.61,0)"
^XMB(3.9,126,2,140,0)="409.61"
^XMB(3.9,126,2,141,0)="""BLD"",5940,""KRN"",771,0)"
^XMB(3.9,126,2,142,0)="771"
^XMB(3.9,126,2,143,0)="""BLD"",5940,""KRN"",870,0)"
^XMB(3.9,126,2,144,0)="870"
^XMB(3.9,126,2,145,0)="""BLD"",5940,""KRN"",8989.51,0)"
^XMB(3.9,126,2,146,0)="8989.51"
^XMB(3.9,126,2,147,0)="""BLD"",5940,""KRN"",8989.52,0)"
^XMB(3.9,126,2,148,0)="8989.52"
^XMB(3.9,126,2,149,0)="""BLD"",5940,""KRN"",8994,0)"
^XMB(3.9,126,2,150,0)="8994"
^XMB(3.9,126,2,151,0)="""BLD"",5940,""KRN"",""B"",.4,.4)"
^XMB(3.9,126,2,152,0)=""
^XMB(3.9,126,2,153,0)="""BLD"",5940,""KRN"",""B"",.401,.401)"
^XMB(3.9,126,2,154,0)=""
^XMB(3.9,126,2,155,0)="""BLD"",5940,""KRN"",""B"",.402,.402)"
^XMB(3.9,126,2,156,0)=""
^XMB(3.9,126,2,157,0)="""BLD"",5940,""KRN"",""B"",.403,.403)"
^XMB(3.9,126,2,158,0)=""
^XMB(3.9,126,2,159,0)="""BLD"",5940,""KRN"",""B"",.5,.5)"
^XMB(3.9,126,2,160,0)=""
^XMB(3.9,126,2,161,0)="""BLD"",5940,""KRN"",""B"",.84,.84)"
^XMB(3.9,126,2,162,0)=""
^XMB(3.9,126,2,163,0)="""BLD"",5940,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,126,2,164,0)=""
^XMB(3.9,126,2,165,0)="""BLD"",5940,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,126,2,166,0)=""
^XMB(3.9,126,2,167,0)="""BLD"",5940,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,126,2,168,0)=""
^XMB(3.9,126,2,169,0)="""BLD"",5940,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,126,2,170,0)=""
^XMB(3.9,126,2,171,0)="""BLD"",5940,""KRN"",""B"",19,19)"
^XMB(3.9,126,2,172,0)=""
^XMB(3.9,126,2,173,0)="""BLD"",5940,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,126,2,174,0)=""
^XMB(3.9,126,2,175,0)="""BLD"",5940,""KRN"",""B"",101,101)"
^XMB(3.9,126,2,176,0)=""
^XMB(3.9,126,2,177,0)="""BLD"",5940,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,126,2,178,0)=""
^XMB(3.9,126,2,179,0)="""BLD"",5940,""KRN"",""B"",771,771)"
^XMB(3.9,126,2,180,0)=""
^XMB(3.9,126,2,181,0)="""BLD"",5940,""KRN"",""B"",870,870)"
^XMB(3.9,126,2,182,0)=""
^XMB(3.9,126,2,183,0)="""BLD"",5940,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,126,2,184,0)=""
^XMB(3.9,126,2,185,0)="""BLD"",5940,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,126,2,186,0)=""
^XMB(3.9,126,2,187,0)="""BLD"",5940,""KRN"",""B"",8994,8994)"
^XMB(3.9,126,2,188,0)=""
^XMB(3.9,126,2,189,0)="""BLD"",5940,""QUES"",0)"
^XMB(3.9,126,2,190,0)="^9.62^^"
^XMB(3.9,126,2,191,0)="""BLD"",5940,""REQB"",0)"
^XMB(3.9,126,2,192,0)="^9.611^1^1"
^XMB(3.9,126,2,193,0)="""BLD"",5940,""REQB"",1,0)"
^XMB(3.9,126,2,194,0)="FB*3.5*93^2"
^XMB(3.9,126,2,195,0)="""BLD"",5940,""REQB"",""B"",""FB*3.5*93"",1)"
^XMB(3.9,126,2,196,0)=""
^XMB(3.9,126,2,197,0)="""FIA"",79.2)"
^XMB(3.9,126,2,198,0)="IMAGING TYPE"
^XMB(3.9,126,2,199,0)="""FIA"",79.2,0)"
^XMB(3.9,126,2,200,0)="^RA(79.2,"
^XMB(3.9,126,2,201,0)="""FIA"",79.2,0,0)"
^XMB(3.9,126,2,202,0)="79.2"
^XMB(3.9,126,2,203,0)="""FIA"",79.2,0,1)"
^XMB(3.9,126,2,204,0)="y^n^p^^^^n^^n"
^XMB(3.9,126,2,205,0)="""FIA"",79.2,0,10)"
^XMB(3.9,126,2,206,0)=""
^XMB(3.9,126,2,207,0)="""FIA"",79.2,0,11)"
^XMB(3.9,126,2,208,0)=""
^XMB(3.9,126,2,209,0)="""FIA"",79.2,0,""RLRO"")"
^XMB(3.9,126,2,210,0)=""
^XMB(3.9,126,2,211,0)="""FIA"",79.2,0,""VR"")"
^XMB(3.9,126,2,212,0)="5.0^RA"
^XMB(3.9,126,2,213,0)="""FIA"",79.2,79.2)"
^XMB(3.9,126,2,214,0)="1"
^XMB(3.9,126,2,215,0)="""FIA"",79.2,79.2,200)"
^XMB(3.9,126,2,216,0)=""
^XMB(3.9,126,2,217,0)="""FIA"",79.2,79.22)"
^XMB(3.9,126,2,218,0)="0"
^XMB(3.9,126,2,219,0)="""INI"")"
^XMB(3.9,126,2,220,0)="RA64PRE"
^XMB(3.9,126,2,221,0)="""INIT"")"
^XMB(3.9,126,2,222,0)="RA64PST"
^XMB(3.9,126,2,223,0)="""KRN"",19,1697,-1)"
^XMB(3.9,126,2,224,0)="2^10"
^XMB(3.9,126,2,225,0)="""KRN"",19,1697,0)"
^XMB(3.9,126,2,226,0)="RA WKL^Personnel Workload Reports^^M^^^^^^^^"
^XMB(3.9,126,2,227,0)="""KRN"",19,1697,10,0)"
^XMB(3.9,126,2,228,0)="^19.01IP^14^11"
^XMB(3.9,126,2,229,0)="""KRN"",19,1697,10,10,0)"
^XMB(3.9,126,2,230,0)="12454^"
^XMB(3.9,126,2,231,0)="""KRN"",19,1697,10,10,""^"")"
^XMB(3.9,126,2,232,0)="RA WKLIPHY CPT ITYPE"
^XMB(3.9,126,2,233,0)="""KRN"",19,1697,10,11,0)"
^XMB(3.9,126,2,234,0)="12455"
^XMB(3.9,126,2,235,0)="""KRN"",19,1697,10,11,""^"")"
^XMB(3.9,126,2,236,0)="RA WKLIPHY SWRVU ITYPE"
^XMB(3.9,126,2,237,0)="""KRN"",19,1697,10,12,0)"
^XMB(3.9,126,2,238,0)="12456"
^XMB(3.9,126,2,239,0)="""KRN"",19,1697,10,12,""^"")"
^XMB(3.9,126,2,240,0)="RA WKLIPHY WRVU ITYPE"
^XMB(3.9,126,2,241,0)="""KRN"",19,1697,10,13,0)"
^XMB(3.9,126,2,242,0)="12475"
^XMB(3.9,126,2,243,0)="""KRN"",19,1697,10,13,""^"")"
^XMB(3.9,126,2,244,0)="RA WKLIPHY WRVU CPT"
^XMB(3.9,126,2,245,0)="""KRN"",19,1697,10,14,0)"
^XMB(3.9,126,2,246,0)="12476"
^XMB(3.9,126,2,247,0)="""KRN"",19,1697,10,14,""^"")"
^XMB(3.9,126,2,248,0)="RA WKLIPHY SWRVU CPT"
^XMB(3.9,126,2,249,0)="""KRN"",19,1697,""U"")"
^XMB(3.9,126,2,250,0)="PERSONNEL WORKLOAD REPORTS"
^XMB(3.9,126,2,251,0)="""KRN"",19,1754,-1)"
^XMB(3.9,126,2,252,0)="2^1"
^XMB(3.9,126,2,253,0)="""KRN"",19,1754,0)"
^XMB(3.9,126,2,254,0)="RA SPECRPTS^Special Reports^^M^^^^^^^^18"
^XMB(3.9,126,2,255,0)="""KRN"",19,1754,10,0)"
^XMB(3.9,126,2,256,0)="^19.01IP^11^11"
^XMB(3.9,126,2,257,0)="""KRN"",19,1754,10,10,0)"
^XMB(3.9,126,2,258,0)="12453^^"
^XMB(3.9,126,2,259,0)="""KRN"",19,1754,10,10,""^"")"
^XMB(3.9,126,2,260,0)="RA PROC CPTWRVU"
^XMB(3.9,126,2,261,0)="""KRN"",19,1754,10,11,0)"
^XMB(3.9,126,2,262,0)="12465^^"
^XMB(3.9,126,2,263,0)="""KRN"",19,1754,10,11,""^"")"
^XMB(3.9,126,2,264,0)="RA PROC CPTSWRVU"
^XMB(3.9,126,2,265,0)="""KRN"",19,1754,""U"")"
^XMB(3.9,126,2,266,0)="SPECIAL REPORTS"
^XMB(3.9,126,2,267,0)="""KRN"",19,12453,-1)"
^XMB(3.9,126,2,268,0)="0^3"
^XMB(3.9,126,2,269,0)="""KRN"",19,12453,0)"
^XMB(3.9,126,2,270,0)="RA PROC CPTWRVU^Procedure wRVU/CPT Report^^R^^^^^^^y^RADIOLOGY/NUCLEAR MEDICINE"
^XMB(3.9,126,2,271,0)="""KRN"",19,12453,1,0)"
^XMB(3.9,126,2,272,0)="^^4^4^3051214^"
^XMB(3.9,126,2,273,0)="""KRN"",19,12453,1,1,0)"
^XMB(3.9,126,2,274,0)="This option will print data from the RAD/NUC MED PROCEDURES (#71) file "
^XMB(3.9,126,2,275,0)="""KRN"",19,12453,1,2,0)"
^XMB(3.9,126,2,276,0)="for series and detailed procedures. The data elements displayed will be:"
^XMB(3.9,126,2,277,0)="""KRN"",19,12453,1,3,0)"
^XMB(3.9,126,2,278,0)="procedure name, type of procedure, imaging type, CPT Code, and the"
^XMB(3.9,126,2,279,0)="""KRN"",19,12453,1,4,0)"
^XMB(3.9,126,2,280,0)="un-scaled wRVU value."
^XMB(3.9,126,2,281,0)="""KRN"",19,12453,25)"
^XMB(3.9,126,2,282,0)="EN^RAWRVUP(0)"
^XMB(3.9,126,2,283,0)="""KRN"",19,12453,""U"")"
^XMB(3.9,126,2,284,0)="PROCEDURE WRVU/CPT REPORT"
^XMB(3.9,126,2,285,0)="""KRN"",19,12454,-1)"
^XMB(3.9,126,2,286,0)="0^5"
^XMB(3.9,126,2,287,0)="""KRN"",19,12454,0)"
^XMB(3.9,126,2,288,0)="RA WKLIPHY CPT ITYPE^Physician CPT Report by Imaging Type^^R^^^^^^^y^RADIOLOGY/NUCLEAR MEDICINE"
^XMB(3.9,126,2,289,0)="""KRN"",19,12454,1,0)"
^XMB(3.9,126,2,290,0)="^19.06^3^3^3051228^^"
^XMB(3.9,126,2,291,0)="""KRN"",19,12454,1,1,0)"
^XMB(3.9,126,2,292,0)="This option will display the total number of imaging type specific"
^XMB(3.9,126,2,293,0)="""KRN"",19,12454,1,2,0)"
^XMB(3.9,126,2,294,0)="procedures (CPTs) performed by an interpreting staff physician "
^XMB(3.9,126,2,295,0)="""KRN"",19,12454,1,3,0)"
^XMB(3.9,126,2,296,0)="over a user defined date range."
^XMB(3.9,126,2,297,0)="""KRN"",19,12454,25)"
^XMB(3.9,126,2,298,0)="EN^RAWKLU(""CPT"","""")"
^XMB(3.9,126,2,299,0)="""KRN"",19,12454,""U"")"
^XMB(3.9,126,2,300,0)="PHYSICIAN CPT REPORT BY IMAGIN"
^XMB(3.9,126,2,301,0)="""KRN"",19,12455,-1)"
^XMB(3.9,126,2,302,0)="0^6"
^XMB(3.9,126,2,303,0)="""KRN"",19,12455,0)"
^XMB(3.9,126,2,304,0)="RA WKLIPHY SWRVU ITYPE^Physician scaled wRVU Report by Imaging Type^^R^^^^^^^y^"
^XMB(3.9,126,2,305,0)="""KRN"",19,12455,1,0)"
^XMB(3.9,126,2,306,0)="^19.06^16^16^3051209^^^"
^XMB(3.9,126,2,307,0)="""KRN"",19,12455,1,1,0)"
^XMB(3.9,126,2,308,0)="This option will display the total number of scaled wRVU units attributed "
^XMB(3.9,126,2,309,0)="""KRN"",19,12455,1,2,0)"
^XMB(3.9,126,2,310,0)="to an interpreting staff physician within imaging type over a user defined"
^XMB(3.9,126,2,311,0)="""KRN"",19,12455,1,3,0)"
^XMB(3.9,126,2,312,0)="date range."
^XMB(3.9,126,2,313,0)="""KRN"",19,12455,1,4,0)"
^XMB(3.9,126,2,314,0)=" "
^XMB(3.9,126,2,315,0)="""KRN"",19,12455,1,5,0)"
^XMB(3.9,126,2,316,0)="wRVU is a measure of the time and effort associated with the performance"
^XMB(3.9,126,2,317,0)="""KRN"",19,12455,1,6,0)"
^XMB(3.9,126,2,318,0)="of a given procedure. wRVU is a unit that is associated with an imaging"
^XMB(3.9,126,2,319,0)="""KRN"",19,12455,1,7,0)"
^XMB(3.9,126,2,320,0)="type and is applied to all procedures performed by an interpreting staff "
^XMB(3.9,126,2,321,0)="""KRN"",19,12455,1,8,0)"
^XMB(3.9,126,2,322,0)="physician within that imaging type."
^XMB(3.9,126,2,323,0)="""KRN"",19,12455,1,9,0)"
^XMB(3.9,126,2,324,0)=" "
^XMB(3.9,126,2,325,0)="""KRN"",19,12455,1,10,0)"
^XMB(3.9,126,2,326,0)="For certain imaging types, the RVU may over-estimate or under-estimate "
^XMB(3.9,126,2,327,0)="""KRN"",19,12455,1,11,0)"
^XMB(3.9,126,2,328,0)="efforts of interpreting images and reports. To correct this under or over "
^XMB(3.9,126,2,329,0)="""KRN"",19,12455,1,12,0)"
^XMB(3.9,126,2,330,0)="reporting of interpreting staff physician workload, the wRVU scaling "
^XMB(3.9,126,2,331,0)="""KRN"",19,12455,1,13,0)"
^XMB(3.9,126,2,332,0)="factor will be applied to the regular wRVU."
^XMB(3.9,126,2,333,0)="""KRN"",19,12455,1,14,0)"
^XMB(3.9,126,2,334,0)=" "
^XMB(3.9,126,2,335,0)="""KRN"",19,12455,1,15,0)"
^XMB(3.9,126,2,336,0)="The report will show the scaled wRVU for interpreting staff physician "
^XMB(3.9,126,2,337,0)="""KRN"",19,12455,1,16,0)"
^XMB(3.9,126,2,338,0)="within imaging type, their sutotals and grand total."
^XMB(3.9,126,2,339,0)="""KRN"",19,12455,25)"
^XMB(3.9,126,2,340,0)="EN^RAWKLU(""RVU"",1)"
^XMB(3.9,126,2,341,0)="""KRN"",19,12455,""U"")"
^XMB(3.9,126,2,342,0)="PHYSICIAN SCALED WRVU REPORT B"
^XMB(3.9,126,2,343,0)="""KRN"",19,12456,-1)"
^XMB(3.9,126,2,344,0)="0^7"
^XMB(3.9,126,2,345,0)="""KRN"",19,12456,0)"
^XMB(3.9,126,2,346,0)="RA WKLIPHY WRVU ITYPE^Physician wRVU Report by Imaging Type^^R^^^^^^^y^RADIOLOGY/NUCLEAR MEDICINE"
^XMB(3.9,126,2,347,0)="""KRN"",19,12456,1,0)"
^XMB(3.9,126,2,348,0)="^19.06^11^11^3051129^^"
^XMB(3.9,126,2,349,0)="""KRN"",19,12456,1,1,0)"
^XMB(3.9,126,2,350,0)="This option will display the total number of wRVU units attributed "
^XMB(3.9,126,2,351,0)="""KRN"",19,12456,1,2,0)"
^XMB(3.9,126,2,352,0)="to an interpreting staff physician within imaging type over a user "
^XMB(3.9,126,2,353,0)="""KRN"",19,12456,1,3,0)"
^XMB(3.9,126,2,354,0)="defined date range."
^XMB(3.9,126,2,355,0)="""KRN"",19,12456,1,4,0)"
^XMB(3.9,126,2,356,0)=" "
^XMB(3.9,126,2,357,0)="""KRN"",19,12456,1,5,0)"
^XMB(3.9,126,2,358,0)="wRVU is a measure of the time and effort associated with the performance"
^XMB(3.9,126,2,359,0)="""KRN"",19,12456,1,6,0)"
^XMB(3.9,126,2,360,0)="of a given procedure. wRVU is a unit that is associated with an imaging "
^XMB(3.9,126,2,361,0)="""KRN"",19,12456,1,7,0)"
^XMB(3.9,126,2,362,0)="type and is applied to all procedures performed by an interpreting staff "
^XMB(3.9,126,2,363,0)="""KRN"",19,12456,1,8,0)"
^XMB(3.9,126,2,364,0)="physician within that imaging type."
^XMB(3.9,126,2,365,0)="""KRN"",19,12456,1,9,0)"
^XMB(3.9,126,2,366,0)=" "
^XMB(3.9,126,2,367,0)="""KRN"",19,12456,1,10,0)"
^XMB(3.9,126,2,368,0)="This report will show the wRVU for interpreting staff physician within "
^XMB(3.9,126,2,369,0)="""KRN"",19,12456,1,11,0)"
^XMB(3.9,126,2,370,0)="imaging type, their subtotals and grand total."
^XMB(3.9,126,2,371,0)="""KRN"",19,12456,25)"
^XMB(3.9,126,2,372,0)="EN^RAWKLU(""RVU"",0)"
^XMB(3.9,126,2,373,0)="""KRN"",19,12456,""U"")"
^XMB(3.9,126,2,374,0)="PHYSICIAN WRVU REPORT BY IMAGI"
^XMB(3.9,126,2,375,0)="""KRN"",19,12465,-1)"
^XMB(3.9,126,2,376,0)="0^4"
^XMB(3.9,126,2,377,0)="""KRN"",19,12465,0)"
^XMB(3.9,126,2,378,0)="RA PROC CPTSWRVU^Procedure Scaled wRVU/CPT Report^^R^^^^^^^y^RADIOLOGY/NUCLEAR MEDICINE"
^XMB(3.9,126,2,379,0)="""KRN"",19,12465,1,0)"
^XMB(3.9,126,2,380,0)="^^4^4^3051214^"
^XMB(3.9,126,2,381,0)="""KRN"",19,12465,1,1,0)"
^XMB(3.9,126,2,382,0)="This option will print data from the RAD/NUC MED PROCEDURES (#71) file "
^XMB(3.9,126,2,383,0)="""KRN"",19,12465,1,2,0)"
^XMB(3.9,126,2,384,0)="for series and detailed procedures. The data elements displayed will be:"
^XMB(3.9,126,2,385,0)="""KRN"",19,12465,1,3,0)"
^XMB(3.9,126,2,386,0)="procedure name, type of procedure, imaging type, CPT Code, and the"
^XMB(3.9,126,2,387,0)="""KRN"",19,12465,1,4,0)"
^XMB(3.9,126,2,388,0)="scaled wRVU value."
^XMB(3.9,126,2,389,0)="""KRN"",19,12465,25)"
^XMB(3.9,126,2,390,0)="EN^RAWRVUP(1)"
^XMB(3.9,126,2,391,0)="""KRN"",19,12465,""U"")"
^XMB(3.9,126,2,392,0)="PROCEDURE SCALED WRVU/CPT REPO"
^XMB(3.9,126,2,393,0)="""KRN"",19,12475,-1)"
^XMB(3.9,126,2,394,0)="0^8"
^XMB(3.9,126,2,395,0)="""KRN"",19,12475,0)"
^XMB(3.9,126,2,396,0)="RA WKLIPHY WRVU CPT^Physician wRVU Report by CPT^^R^^^^^^^y^RADIOLOGY/NUCLEAR MEDICINE"
^XMB(3.9,126,2,397,0)="""KRN"",19,12475,1,0)"
^XMB(3.9,126,2,398,0)="^^6^6^3051221^"
^XMB(3.9,126,2,399,0)="""KRN"",19,12475,1,1,0)"
^XMB(3.9,126,2,400,0)="This option allows the user to select the physicians to be included and"
^XMB(3.9,126,2,401,0)="""KRN"",19,12475,1,2,0)"
^XMB(3.9,126,2,402,0)="the timeframe the report is to include. For each physician, the procedure"
^XMB(3.9,126,2,403,0)="""KRN"",19,12475,1,3,0)"
^XMB(3.9,126,2,404,0)="CPT and name is displayed, the number of instances of a procedure, and the"
^XMB(3.9,126,2,405,0)="""KRN"",19,12475,1,4,0)"
^XMB(3.9,126,2,406,0)="total wRVU value for that procedure are totaled and displayed."
^XMB(3.9,126,2,407,0)="""KRN"",19,12475,1,5,0)"
^XMB(3.9,126,2,408,0)=" "
^XMB(3.9,126,2,409,0)="""KRN"",19,12475,1,6,0)"
^XMB(3.9,126,2,410,0)="Overall exam and wRVU totals per physician are also displayed."
^XMB(3.9,126,2,411,0)="""KRN"",19,12475,25)"
^XMB(3.9,126,2,412,0)="EN^RAWKLU2(0)"
^XMB(3.9,126,2,413,0)="""KRN"",19,12475,""U"")"
^XMB(3.9,126,2,414,0)="PHYSICIAN WRVU REPORT BY CPT"
^XMB(3.9,126,2,415,0)="""KRN"",19,12476,-1)"
^XMB(3.9,126,2,416,0)="0^9"
^XMB(3.9,126,2,417,0)="""KRN"",19,12476,0)"
^XMB(3.9,126,2,418,0)="RA WKLIPHY SWRVU CPT^Physician scaled wRVU Report by CPT^^R^^^^^^^y^RADIOLOGY/NUCLEAR MEDICINE"
^XMB(3.9,126,2,419,0)="""KRN"",19,12476,1,0)"
^XMB(3.9,126,2,420,0)="^^6^6^3051221^"
^XMB(3.9,126,2,421,0)="""KRN"",19,12476,1,1,0)"
^XMB(3.9,126,2,422,0)="This option allows the user to select the physicians to be included and "
^XMB(3.9,126,2,423,0)="""KRN"",19,12476,1,2,0)"
^XMB(3.9,126,2,424,0)="the timeframe the report is to include. For each physician, the procedure "
^XMB(3.9,126,2,425,0)="""KRN"",19,12476,1,3,0)"
^XMB(3.9,126,2,426,0)="CPT and name is displayed, the number of instances of a procedure, and "
^XMB(3.9,126,2,427,0)="""KRN"",19,12476,1,4,0)"
^XMB(3.9,126,2,428,0)="the total scaled wRVU value for that procedure are totaled and displayed."
^XMB(3.9,126,2,429,0)="""KRN"",19,12476,1,5,0)"
^XMB(3.9,126,2,430,0)=" "
^XMB(3.9,126,2,431,0)="""KRN"",19,12476,1,6,0)"
^XMB(3.9,126,2,432,0)="Overall exam and scaled wRVU totals per physician are also displayed."
^XMB(3.9,126,2,433,0)="""KRN"",19,12476,25)"
^XMB(3.9,126,2,434,0)="EN^RAWKLU2(1)"
^XMB(3.9,126,2,435,0)="""KRN"",19,12476,""U"")"
^XMB(3.9,126,2,436,0)="PHYSICIAN SCALED WRVU REPORT B"
^XMB(3.9,126,2,437,0)="""MBREQ"")"
^XMB(3.9,126,2,438,0)="0"
^XMB(3.9,126,2,439,0)="""ORD"",18,19)"
^XMB(3.9,126,2,440,0)="19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA"
^XMB(3.9,126,2,441,0)="""ORD"",18,19,0)"
^XMB(3.9,126,2,442,0)="OPTION"
^XMB(3.9,126,2,443,0)="""PKG"",18,-1)"
^XMB(3.9,126,2,444,0)="1^1"
^XMB(3.9,126,2,445,0)="""PKG"",18,0)"
^XMB(3.9,126,2,446,0)="RADIOLOGY/NUCLEAR MEDICINE^RA^REGISTERS PATIENTS,RECORDS EXAMS,PROFILES,AMIS REPORTS"
^XMB(3.9,126,2,447,0)="""PKG"",18,20,0)"
^XMB(3.9,126,2,448,0)="^9.402P^^"
^XMB(3.9,126,2,449,0)="""PKG"",18,22,0)"
^XMB(3.9,126,2,450,0)="^9.49I^1^1"
^XMB(3.9,126,2,451,0)="""PKG"",18,22,1,0)"
^XMB(3.9,126,2,452,0)="5.0^3051109^2980407^50"
^XMB(3.9,126,2,453,0)="""PKG"",18,22,1,""PAH"",1,0)"
^XMB(3.9,126,2,454,0)="64^3060627"
^XMB(3.9,126,2,455,0)="""PKG"",18,22,1,""PAH"",1,1,0)"
^XMB(3.9,126,2,456,0)="^^2^2^3060627"
^XMB(3.9,126,2,457,0)="""PKG"",18,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,126,2,458,0)="Please refer to the patch description in FORUM regarding the installation"
^XMB(3.9,126,2,459,0)="""PKG"",18,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,126,2,460,0)="of RA*5.0*64."
^XMB(3.9,126,2,461,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,126,2,462,0)="Y"
^XMB(3.9,126,2,463,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,126,2,464,0)="^D REP^XPDH"
^XMB(3.9,126,2,465,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,126,2,466,0)="Shall I write over your |FLAG| File"
^XMB(3.9,126,2,467,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,126,2,468,0)="YES"
^XMB(3.9,126,2,469,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,126,2,470,0)="D XPF1^XPDIQ"
^XMB(3.9,126,2,471,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,126,2,472,0)="Y"
^XMB(3.9,126,2,473,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,126,2,474,0)="^D DTA^XPDH"
^XMB(3.9,126,2,475,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,126,2,476,0)="Want my data |FLAG| yours"
^XMB(3.9,126,2,477,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,126,2,478,0)="YES"
^XMB(3.9,126,2,479,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,126,2,480,0)="D XPF2^XPDIQ"
^XMB(3.9,126,2,481,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,126,2,482,0)="YO"
^XMB(3.9,126,2,483,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,126,2,484,0)="^D INHIBIT^XPDH"
^XMB(3.9,126,2,485,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,126,2,486,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,126,2,487,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,126,2,488,0)="YES"
^XMB(3.9,126,2,489,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,126,2,490,0)="D XPI1^XPDIQ"
^XMB(3.9,126,2,491,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,126,2,492,0)="PO^VA(200,:EM"
^XMB(3.9,126,2,493,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,126,2,494,0)="^D MG^XPDH"
^XMB(3.9,126,2,495,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,126,2,496,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,126,2,497,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,126,2,498,0)=""
^XMB(3.9,126,2,499,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,126,2,500,0)="D XPM1^XPDIQ"
^XMB(3.9,126,2,501,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,126,2,502,0)="Y"
^XMB(3.9,126,2,503,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,126,2,504,0)="^D MENU^XPDH"
^XMB(3.9,126,2,505,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,126,2,506,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,126,2,507,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,126,2,508,0)="YES"
^XMB(3.9,126,2,509,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,126,2,510,0)="D XPO1^XPDIQ"
^XMB(3.9,126,2,511,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,126,2,512,0)="Y"
^XMB(3.9,126,2,513,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,126,2,514,0)="^D OPT^XPDH"
^XMB(3.9,126,2,515,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,126,2,516,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,126,2,517,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,126,2,518,0)="YES"
^XMB(3.9,126,2,519,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,126,2,520,0)="D XPZ1^XPDIQ"
^XMB(3.9,126,2,521,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,126,2,522,0)="Y"
^XMB(3.9,126,2,523,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,126,2,524,0)="^D RTN^XPDH"
^XMB(3.9,126,2,525,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,126,2,526,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,126,2,527,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,126,2,528,0)="NO"
^XMB(3.9,126,2,529,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,126,2,530,0)="D XPZ2^XPDIQ"
^XMB(3.9,126,2,531,0)="""RTN"")"
^XMB(3.9,126,2,532,0)="7"
^XMB(3.9,126,2,533,0)="""RTN"",""RA64PRE"")"
^XMB(3.9,126,2,534,0)="0^8^B6590378^n/a"
^XMB(3.9,126,2,535,0)="""RTN"",""RA64PRE"",1,0)"
^XMB(3.9,126,2,536,0)="RA64PRE ;Hines OI/GJC - Pre-init Driver, patch 64 ;01/05/06  06:32"
^XMB(3.9,126,2,537,0)="""RTN"",""RA64PRE"",2,0)"
^XMB(3.9,126,2,538,0)="VERSION ;;5.0;Radiology/Nuclear Medicine;**64**;Mar 16, 1998;Build 5"
^XMB(3.9,126,2,539,0)="""RTN"",""RA64PRE"",3,0)"
^XMB(3.9,126,2,540,0)=" ;"
^XMB(3.9,126,2,541,0)="""RTN"",""RA64PRE"",4,0)"
^XMB(3.9,126,2,542,0)="EN ; entry point for the pre-install logic"
^XMB(3.9,126,2,543,0)="""RTN"",""RA64PRE"",5,0)"
^XMB(3.9,126,2,544,0)=" N RACHK"
^XMB(3.9,126,2,545,0)="""RTN"",""RA64PRE"",6,0)"
^XMB(3.9,126,2,546,0)=" S RACHK=$$NEWCP^XPDUTL(""PRE1"",""EN1^RA64PRE"")"
^XMB(3.9,126,2,547,0)="""RTN"",""RA64PRE"",7,0)"
^XMB(3.9,126,2,548,0)=" ; Change the Menu Text (#1) field for the following options:"
^XMB(3.9,126,2,549,0)="""RTN"",""RA64PRE"",8,0)"
^XMB(3.9,126,2,550,0)=" ;"
^XMB(3.9,126,2,551,0)="""RTN"",""RA64PRE"",9,0)"
^XMB(3.9,126,2,552,0)=" ;IA: 10075 Read OPTION (#19) file NAME (#.01) w/FileMan"
^XMB(3.9,126,2,553,0)="""RTN"",""RA64PRE"",10,0)"
^XMB(3.9,126,2,554,0)=" ;"
^XMB(3.9,126,2,555,0)="""RTN"",""RA64PRE"",11,0)"
^XMB(3.9,126,2,556,0)=" ;Option Name"
^XMB(3.9,126,2,557,0)="""RTN"",""RA64PRE"",12,0)"
^XMB(3.9,126,2,558,0)=" ;-----------"
^XMB(3.9,126,2,559,0)="""RTN"",""RA64PRE"",13,0)"
^XMB(3.9,126,2,560,0)=" ;RA WKLIPHY CPT ITYPE"
^XMB(3.9,126,2,561,0)="""RTN"",""RA64PRE"",14,0)"
^XMB(3.9,126,2,562,0)=" ; from: Physician CPT Report by I-Type"
^XMB(3.9,126,2,563,0)="""RTN"",""RA64PRE"",15,0)"
^XMB(3.9,126,2,564,0)=" ;   to: Physician CPT Report by Imaging Type"
^XMB(3.9,126,2,565,0)="""RTN"",""RA64PRE"",16,0)"
^XMB(3.9,126,2,566,0)=" ;RA WKLIPHY SWRVU ITYPE"
^XMB(3.9,126,2,567,0)="""RTN"",""RA64PRE"",17,0)"
^XMB(3.9,126,2,568,0)=" ; from: Physician scaled wRVU Report by I-Type"
^XMB(3.9,126,2,569,0)="""RTN"",""RA64PRE"",18,0)"
^XMB(3.9,126,2,570,0)=" ;   to: Physician scaled wRVU Report by Imaging Type"
^XMB(3.9,126,2,571,0)="""RTN"",""RA64PRE"",19,0)"
^XMB(3.9,126,2,572,0)=" ;RA WKLIPHY WRVU ITYPE"
^XMB(3.9,126,2,573,0)="""RTN"",""RA64PRE"",20,0)"
^XMB(3.9,126,2,574,0)=" ; from: Physician wRVU Report by I-Type"
^XMB(3.9,126,2,575,0)="""RTN"",""RA64PRE"",21,0)"
^XMB(3.9,126,2,576,0)=" ;   to: Physician wRVU Report by Imaging Type"
^XMB(3.9,126,2,577,0)="""RTN"",""RA64PRE"",22,0)"
^XMB(3.9,126,2,578,0)=" ;"
^XMB(3.9,126,2,579,0)="""RTN"",""RA64PRE"",23,0)"
^XMB(3.9,126,2,580,0)=" ;"
^XMB(3.9,126,2,581,0)="""RTN"",""RA64PRE"",24,0)"
^XMB(3.9,126,2,582,0)="EN1 ;Change the Menu Text for the options mentioned above."
^XMB(3.9,126,2,583,0)="""RTN"",""RA64PRE"",25,0)"
^XMB(3.9,126,2,584,0)=" ;If RA*5.0*64 has not been installed, exit the pre-install routine. The"
^XMB(3.9,126,2,585,0)="""RTN"",""RA64PRE"",26,0)"
^XMB(3.9,126,2,586,0)=" ;exporting of the options with the install of RA*5.0*64 will lay in the"
^XMB(3.9,126,2,587,0)="""RTN"",""RA64PRE"",27,0)"
^XMB(3.9,126,2,588,0)=" ;correct MENU TEXT definitions."
^XMB(3.9,126,2,589,0)="""RTN"",""RA64PRE"",28,0)"
^XMB(3.9,126,2,590,0)=" K RARVU D FIELD^DID(79.2,200,,""LABEL"",""RARVU"")"
^XMB(3.9,126,2,591,0)="""RTN"",""RA64PRE"",29,0)"
^XMB(3.9,126,2,592,0)=" Q:'$D(RARVU(""LABEL""))#2"
^XMB(3.9,126,2,593,0)="""RTN"",""RA64PRE"",30,0)"
^XMB(3.9,126,2,594,0)=" ;"
^XMB(3.9,126,2,595,0)="""RTN"",""RA64PRE"",31,0)"
^XMB(3.9,126,2,596,0)=" K RAI,RAFDA,RAIEN,RAMSG,RARVU,RATXT,RAX"
^XMB(3.9,126,2,597,0)="""RTN"",""RA64PRE"",32,0)"
^XMB(3.9,126,2,598,0)=" F RAI=1:1 S RAX=$T(MENUTXT+RAI) Q:$P(RAX,"";"",3)=""""  D"
^XMB(3.9,126,2,599,0)="""RTN"",""RA64PRE"",33,0)"
^XMB(3.9,126,2,600,0)=" .S RAIEN=+$$FIND1^DIC(19,,""Q"",$P(RAX,"";"",3))"
^XMB(3.9,126,2,601,0)="""RTN"",""RA64PRE"",34,0)"
^XMB(3.9,126,2,602,0)=" .I 'RAIEN D  Q"
^XMB(3.9,126,2,603,0)="""RTN"",""RA64PRE"",35,0)"
^XMB(3.9,126,2,604,0)=" ..S RATXT(1)=""'""_$P(RAX,"";"",3)_""' not found in the OPTION (#19) file."""
^XMB(3.9,126,2,605,0)="""RTN"",""RA64PRE"",36,0)"
^XMB(3.9,126,2,606,0)=" ..S RATXT(2)="" "" D BMES^XPDUTL(.RATXT) K RATXT"
^XMB(3.9,126,2,607,0)="""RTN"",""RA64PRE"",37,0)"
^XMB(3.9,126,2,608,0)=" ..Q"
^XMB(3.9,126,2,609,0)="""RTN"",""RA64PRE"",38,0)"
^XMB(3.9,126,2,610,0)=" .Q:$$GET1^DIQ(19,RAIEN,1)=$P(RAX,"";"",5)  ;MENU TEXT update in the past"
^XMB(3.9,126,2,611,0)="""RTN"",""RA64PRE"",39,0)"
^XMB(3.9,126,2,612,0)=" .S RATXT(1)=""Changing the MENU TEXT (#1) field of OPTION: ""_$P(RAX,"";"",3)"
^XMB(3.9,126,2,613,0)="""RTN"",""RA64PRE"",40,0)"
^XMB(3.9,126,2,614,0)=" .S RATXT(2)=""From: ""_$P(RAX,"";"",4)"
^XMB(3.9,126,2,615,0)="""RTN"",""RA64PRE"",41,0)"
^XMB(3.9,126,2,616,0)=" .S RATXT(3)=""  To: ""_$P(RAX,"";"",5),RATXT(4)="" """
^XMB(3.9,126,2,617,0)="""RTN"",""RA64PRE"",42,0)"
^XMB(3.9,126,2,618,0)=" .D BMES^XPDUTL(.RATXT) K RATXT"
^XMB(3.9,126,2,619,0)="""RTN"",""RA64PRE"",43,0)"
^XMB(3.9,126,2,620,0)=" .S RAFDA(19,RAIEN_"","",1)=$P(RAX,"";"",5)"
^XMB(3.9,126,2,621,0)="""RTN"",""RA64PRE"",44,0)"
^XMB(3.9,126,2,622,0)=" .D UPDATE^DIE(""E"",""RAFDA"","""",""RAMSG(1)"") K RAFDA"
^XMB(3.9,126,2,623,0)="""RTN"",""RA64PRE"",45,0)"
^XMB(3.9,126,2,624,0)=" .S RATXT(1)=""The MENU TEXT update was ""_$S($D(RAMSG(1,""DIERR""))#2:""un"",1:"""")_""successful."""
^XMB(3.9,126,2,625,0)="""RTN"",""RA64PRE"",46,0)"
^XMB(3.9,126,2,626,0)=" .S RATXT(2)="" "" D BMES^XPDUTL(.RATXT) K RAMSG,RATXT"
^XMB(3.9,126,2,627,0)="""RTN"",""RA64PRE"",47,0)"
^XMB(3.9,126,2,628,0)=" .Q"
^XMB(3.9,126,2,629,0)="""RTN"",""RA64PRE"",48,0)"
^XMB(3.9,126,2,630,0)="XIT ;clean up symbol table; exit"
^XMB(3.9,126,2,631,0)="""RTN"",""RA64PRE"",49,0)"
^XMB(3.9,126,2,632,0)=" K RAI,RAFDA,RAIEN,RAMSG,RATXT,RAX"
^XMB(3.9,126,2,633,0)="""RTN"",""RA64PRE"",50,0)"
^XMB(3.9,126,2,634,0)=" Q"
^XMB(3.9,126,2,635,0)="""RTN"",""RA64PRE"",51,0)"
^XMB(3.9,126,2,636,0)=" ;"
^XMB(3.9,126,2,637,0)="""RTN"",""RA64PRE"",52,0)"
^XMB(3.9,126,2,638,0)="MENUTXT ;option name; old menu type ; new menu type"
^XMB(3.9,126,2,639,0)="""RTN"",""RA64PRE"",53,0)"
^XMB(3.9,126,2,640,0)=" ;;RA WKLIPHY CPT ITYPE;Physician CPT Report by I-Type;Physician CPT Report by Imaging Type"
^XMB(3.9,126,2,641,0)="""RTN"",""RA64PRE"",54,0)"
^XMB(3.9,126,2,642,0)=" ;;RA WKLIPHY SWRVU ITYPE;Physician scaled wRVU Report by I-Type;Physician scaled wRVU Report by Imaging Type"
^XMB(3.9,126,2,643,0)="""RTN"",""RA64PRE"",55,0)"
^XMB(3.9,126,2,644,0)=" ;;RA WKLIPHY WRVU ITYPE;Physician wRVU Report by I-Type;Physician wRVU Report by Imaging Type"
^XMB(3.9,126,2,645,0)="""RTN"",""RA64PRE"",56,0)"
^XMB(3.9,126,2,646,0)=" ;;"
^XMB(3.9,126,2,647,0)="""RTN"",""RA64PST"")"
^XMB(3.9,126,2,648,0)="0^7^B4334607^n/a"
^XMB(3.9,126,2,649,0)="""RTN"",""RA64PST"",1,0)"
^XMB(3.9,126,2,650,0)="RA64PST ;Hines OI/GJC - Post-init Driver, patch 64 ;01/05/06  06:32"
^XMB(3.9,126,2,651,0)="""RTN"",""RA64PST"",2,0)"
^XMB(3.9,126,2,652,0)="VERSION ;;5.0;Radiology/Nuclear Medicine;**64**;Mar 16, 1998;Build 5"
^XMB(3.9,126,2,653,0)="""RTN"",""RA64PST"",3,0)"
^XMB(3.9,126,2,654,0)=" ;"
^XMB(3.9,126,2,655,0)="""RTN"",""RA64PST"",4,0)"
^XMB(3.9,126,2,656,0)="EN ; entry point for the post-install logic"
^XMB(3.9,126,2,657,0)="""RTN"",""RA64PST"",5,0)"
^XMB(3.9,126,2,658,0)=" N RACHK"
^XMB(3.9,126,2,659,0)="""RTN"",""RA64PST"",6,0)"
^XMB(3.9,126,2,660,0)=" S RACHK=$$NEWCP^XPDUTL(""POST1"",""EN1^RA64PST"")"
^XMB(3.9,126,2,661,0)="""RTN"",""RA64PST"",7,0)"
^XMB(3.9,126,2,662,0)=" ; Add the correct calendar year scaling factors to the correct"
^XMB(3.9,126,2,663,0)="""RTN"",""RA64PST"",8,0)"
^XMB(3.9,126,2,664,0)=" ; imaging type records in the IMAGING TYPE (#79.2) file."
^XMB(3.9,126,2,665,0)="""RTN"",""RA64PST"",9,0)"
^XMB(3.9,126,2,666,0)=" Q"
^XMB(3.9,126,2,667,0)="""RTN"",""RA64PST"",10,0)"
^XMB(3.9,126,2,668,0)=" ;"
^XMB(3.9,126,2,669,0)="""RTN"",""RA64PST"",11,0)"
^XMB(3.9,126,2,670,0)="EN1 ; Add the scaling facors to the correct IMAGING TYPE file records."
^XMB(3.9,126,2,671,0)="""RTN"",""RA64PST"",12,0)"
^XMB(3.9,126,2,672,0)=" N RAI,RAX K RAMSG"
^XMB(3.9,126,2,673,0)="""RTN"",""RA64PST"",13,0)"
^XMB(3.9,126,2,674,0)=" F RAI=1:1 S RAX=$T(FACTORS+RAI) Q:RAX=""""  D"
^XMB(3.9,126,2,675,0)="""RTN"",""RA64PST"",14,0)"
^XMB(3.9,126,2,676,0)=" .S RAIEN=+$O(^RA(79.2,""B"",$P(RAX,"";"",3),0))"
^XMB(3.9,126,2,677,0)="""RTN"",""RA64PST"",15,0)"
^XMB(3.9,126,2,678,0)=" .I 'RAIEN D  Q"
^XMB(3.9,126,2,679,0)="""RTN"",""RA64PST"",16,0)"
^XMB(3.9,126,2,680,0)=" ..S RATXT(1)=""'""_$P(RAX,"";"",3)_""' not found as an imaging type record,"""
^XMB(3.9,126,2,681,0)="""RTN"",""RA64PST"",17,0)"
^XMB(3.9,126,2,682,0)=" ..S RATXT(2)=""wRVU scaling factors not filed."""
^XMB(3.9,126,2,683,0)="""RTN"",""RA64PST"",18,0)"
^XMB(3.9,126,2,684,0)=" ..D BMES^XPDUTL(.RATXT) K RATXT"
^XMB(3.9,126,2,685,0)="""RTN"",""RA64PST"",19,0)"
^XMB(3.9,126,2,686,0)=" ..Q"
^XMB(3.9,126,2,687,0)="""RTN"",""RA64PST"",20,0)"
^XMB(3.9,126,2,688,0)=" .I '$D(^RA(79.2,""C"",$P(RAX,"";"",4),RAIEN))#2 D  Q"
^XMB(3.9,126,2,689,0)="""RTN"",""RA64PST"",21,0)"
^XMB(3.9,126,2,690,0)=" ..S RATXT(1)=""'""_$P(RAX,"";"",4)_""' not found as the abbreviation for imaging type record:"""
^XMB(3.9,126,2,691,0)="""RTN"",""RA64PST"",22,0)"
^XMB(3.9,126,2,692,0)=" ..S RATXT(2)=""'""_$P(RAX,"";"",3)_""'."""
^XMB(3.9,126,2,693,0)="""RTN"",""RA64PST"",23,0)"
^XMB(3.9,126,2,694,0)=" ..S RATXT(3)=""wRVU scaling factors not filed."""
^XMB(3.9,126,2,695,0)="""RTN"",""RA64PST"",24,0)"
^XMB(3.9,126,2,696,0)=" ..D BMES^XPDUTL(.RATXT) K RATXT"
^XMB(3.9,126,2,697,0)="""RTN"",""RA64PST"",25,0)"
^XMB(3.9,126,2,698,0)=" ..Q"
^XMB(3.9,126,2,699,0)="""RTN"",""RA64PST"",26,0)"
^XMB(3.9,126,2,700,0)=" .Q:$D(^RA(79.2,RAIEN,""CY"",""B"",$P(RAX,"";"",5)))\10  ;been there, done that"
^XMB(3.9,126,2,701,0)="""RTN"",""RA64PST"",27,0)"
^XMB(3.9,126,2,702,0)=" .S RAFDA(79.22,""+812,""_RAIEN_"","",.01)=$P(RAX,"";"",5)"
^XMB(3.9,126,2,703,0)="""RTN"",""RA64PST"",28,0)"
^XMB(3.9,126,2,704,0)=" .S RAFDA(79.22,""+812,""_RAIEN_"","",2)=$P(RAX,"";"",6)"
^XMB(3.9,126,2,705,0)="""RTN"",""RA64PST"",29,0)"
^XMB(3.9,126,2,706,0)=" .S RATXT(1)=""Filing scaling wRVU factors for: '""_$P(RAX,"";"",3)_""'"""
^XMB(3.9,126,2,707,0)="""RTN"",""RA64PST"",30,0)"
^XMB(3.9,126,2,708,0)=" .D UPDATE^DIE(""E"",""RAFDA"","""",""RAMSG(1)"") K RAFDA"
^XMB(3.9,126,2,709,0)="""RTN"",""RA64PST"",31,0)"
^XMB(3.9,126,2,710,0)=" .S RATXT(2)=""The filing of data was ""_$S($D(RAMSG(1,""DIERR""))#2:""un"",1:"""")_""successful."""
^XMB(3.9,126,2,711,0)="""RTN"",""RA64PST"",32,0)"
^XMB(3.9,126,2,712,0)=" .S RATXT(3)="" "" D BMES^XPDUTL(.RATXT) K RAMSG,RATXT"
^XMB(3.9,126,2,713,0)="""RTN"",""RA64PST"",33,0)"
^XMB(3.9,126,2,714,0)=" .Q"
^XMB(3.9,126,2,715,0)="""RTN"",""RA64PST"",34,0)"
^XMB(3.9,126,2,716,0)="XIT ;clean up symbol table; exit"
^XMB(3.9,126,2,717,0)="""RTN"",""RA64PST"",35,0)"
^XMB(3.9,126,2,718,0)=" K RAIEN"
^XMB(3.9,126,2,719,0)="""RTN"",""RA64PST"",36,0)"
^XMB(3.9,126,2,720,0)=" Q"
^XMB(3.9,126,2,721,0)="""RTN"",""RA64PST"",37,0)"
^XMB(3.9,126,2,722,0)=" ;"
^XMB(3.9,126,2,723,0)="""RTN"",""RA64PST"",38,0)"
^XMB(3.9,126,2,724,0)="FACTORS ;I-type name;I-type abbreviation;calendar year;scaled wRVU value"
^XMB(3.9,126,2,725,0)="""RTN"",""RA64PST"",39,0)"
^XMB(3.9,126,2,726,0)=" ;;ANGIO/NEURO/INTERVENTIONAL;ANI;2006;0.61"
^XMB(3.9,126,2,727,0)="""RTN"",""RA64PST"",40,0)"
^XMB(3.9,126,2,728,0)=" ;;CT SCAN;CT;2006;0.70"
^XMB(3.9,126,2,729,0)="""RTN"",""RA64PST"",41,0)"
^XMB(3.9,126,2,730,0)=" ;;GENERAL RADIOLOGY;RAD;2006;1.21"
^XMB(3.9,126,2,731,0)="""RTN"",""RA64PST"",42,0)"
^XMB(3.9,126,2,732,0)=" ;;MAGNETIC RESONANCE IMAGING;MRI;2006;0.70"
^XMB(3.9,126,2,733,0)="""RTN"",""RA64PST"",43,0)"
^XMB(3.9,126,2,734,0)=" ;;NUCLEAR MEDICINE;NM;2006;1.57"
^XMB(3.9,126,2,735,0)="""RTN"",""RAWKLU"")"
^XMB(3.9,126,2,736,0)="0^3^B43942290^n/a"
^XMB(3.9,126,2,737,0)="""RTN"",""RAWKLU"",1,0)"
^XMB(3.9,126,2,738,0)="RAWKLU ;HISC/GJC-physician workload statistics by wRVU or CPT ;10/26/05  14:57"
^XMB(3.9,126,2,739,0)="""RTN"",""RAWKLU"",2,0)"
^XMB(3.9,126,2,740,0)=" ;;5.0;Radiology/Nuclear Medicine;**64**;Mar 16, 1998;Build 5"
^XMB(3.9,126,2,741,0)="""RTN"",""RAWKLU"",3,0)"
^XMB(3.9,126,2,742,0)=" ;"
^XMB(3.9,126,2,743,0)="""RTN"",""RAWKLU"",4,0)"
^XMB(3.9,126,2,744,0)=" ;DBIA#:1995 ($$CPT^ICPTCOD) resolves the CPT code pointer to the CPT"
^XMB(3.9,126,2,745,0)="""RTN"",""RAWKLU"",5,0)"
^XMB(3.9,126,2,746,0)=" ;      code value"
^XMB(3.9,126,2,747,0)="""RTN"",""RAWKLU"",6,0)"
^XMB(3.9,126,2,748,0)=" ;DBIA#:1996 ($$MOD^ICPTMOD) resolves the CPT modifer pointer to the"
^XMB(3.9,126,2,749,0)="""RTN"",""RAWKLU"",7,0)"
^XMB(3.9,126,2,750,0)=" ;      CPT modifier value"
^XMB(3.9,126,2,751,0)="""RTN"",""RAWKLU"",8,0)"
^XMB(3.9,126,2,752,0)=" ;DBIA#:4799 ($$RVU^FBRVU) return wRVU value for CPT, CPT Mod, & exam"
^XMB(3.9,126,2,753,0)="""RTN"",""RAWKLU"",9,0)"
^XMB(3.9,126,2,754,0)=" ;      date/time "
^XMB(3.9,126,2,755,0)="""RTN"",""RAWKLU"",10,0)"
^XMB(3.9,126,2,756,0)=" ;DBIA#:10060 EN1^RASELCT enacts 10060 which allows lookups on the NEW"
^XMB(3.9,126,2,757,0)="""RTN"",""RAWKLU"",11,0)"
^XMB(3.9,126,2,758,0)=" ;            PERSON (#200) file"
^XMB(3.9,126,2,759,0)="""RTN"",""RAWKLU"",12,0)"
^XMB(3.9,126,2,760,0)=" ;DBIA#:10063 ($$S^%ZTLOAD)"
^XMB(3.9,126,2,761,0)="""RTN"",""RAWKLU"",13,0)"
^XMB(3.9,126,2,762,0)=" ;DBIA#:10103 ($$FMTE^XLFDT) & ($$NOW^XLFDT)"
^XMB(3.9,126,2,763,0)="""RTN"",""RAWKLU"",14,0)"
^XMB(3.9,126,2,764,0)=" ;DBIA#:10104 ($$CJ^XLFSTR)"
^XMB(3.9,126,2,765,0)="""RTN"",""RAWKLU"",15,0)"
^XMB(3.9,126,2,766,0)=" ;DBIA#:1519  ($$EN^XUTMDEVQ)"
^XMB(3.9,126,2,767,0)="""RTN"",""RAWKLU"",16,0)"
^XMB(3.9,126,2,768,0)=" ;"
^XMB(3.9,126,2,769,0)="""RTN"",""RAWKLU"",17,0)"
^XMB(3.9,126,2,770,0)="EN(RARPTYP,RASCLD) ;Identifies the option that the user wishes to execute."
^XMB(3.9,126,2,771,0)="""RTN"",""RAWKLU"",18,0)"
^XMB(3.9,126,2,772,0)=" ;input: RARPTYP=""CPT"" for the CPT workload report -or- ""RVU"" for"
^XMB(3.9,126,2,773,0)="""RTN"",""RAWKLU"",19,0)"
^XMB(3.9,126,2,774,0)=" ;       wRVU workload report. Exit if the value is neither 'CPT'"
^XMB(3.9,126,2,775,0)="""RTN"",""RAWKLU"",20,0)"
^XMB(3.9,126,2,776,0)=" ;       or 'RVU'."
^XMB(3.9,126,2,777,0)="""RTN"",""RAWKLU"",21,0)"
^XMB(3.9,126,2,778,0)=" ;       RASCLD=null for the CPT report, zero for non-scaled wRVU, & one"
^XMB(3.9,126,2,779,0)="""RTN"",""RAWKLU"",22,0)"
^XMB(3.9,126,2,780,0)=" ;       for the scaled wRVU report."
^XMB(3.9,126,2,781,0)="""RTN"",""RAWKLU"",23,0)"
^XMB(3.9,126,2,782,0)=" ;"
^XMB(3.9,126,2,783,0)="""RTN"",""RAWKLU"",24,0)"
^XMB(3.9,126,2,784,0)=" I RARPTYP'=""CPT"",(RARPTYP'=""RVU"") Q"
^XMB(3.9,126,2,785,0)="""RTN"",""RAWKLU"",25,0)"
^XMB(3.9,126,2,786,0)=" I RARPTYP=""CPT"",(RASCLD'="""") Q"
^XMB(3.9,126,2,787,0)="""RTN"",""RAWKLU"",26,0)"
^XMB(3.9,126,2,788,0)=" K ^TMP($J,""RA STFPHYS""),^TMP(""RA STFPHYS-IEN"",$J)"
^XMB(3.9,126,2,789,0)="""RTN"",""RAWKLU"",27,0)"
^XMB(3.9,126,2,790,0)=" I RARPTYP=""RVU"" W !!,""Please note that this report is best suited for display on a 132 column device."""
^XMB(3.9,126,2,791,0)="""RTN"",""RAWKLU"",28,0)"
^XMB(3.9,126,2,792,0)=" ;"
^XMB(3.9,126,2,793,0)="""RTN"",""RAWKLU"",29,0)"
^XMB(3.9,126,2,794,0)="PHYST ;allow the user to select one/many/all physicians"
^XMB(3.9,126,2,795,0)="""RTN"",""RAWKLU"",30,0)"
^XMB(3.9,126,2,796,0)=" ;(w/ staff classification) ;DBIA#: 10060"
^XMB(3.9,126,2,797,0)="""RTN"",""RAWKLU"",31,0)"
^XMB(3.9,126,2,798,0)=" S RADIC=""^VA(200,"",RADIC(0)=""QEAMZ"",RAUTIL=""RA STFPHYS"""
^XMB(3.9,126,2,799,0)="""RTN"",""RAWKLU"",32,0)"
^XMB(3.9,126,2,800,0)=" S RADIC(""A"")=""Select Physician: "",RADIC(""B"")=""All"""
^XMB(3.9,126,2,801,0)="""RTN"",""RAWKLU"",33,0)"
^XMB(3.9,126,2,802,0)=" S RADIC(""S"")=""I $D(^VA(200,""""ARC"""",""""S"""",+Y))\10"""
^XMB(3.9,126,2,803,0)="""RTN"",""RAWKLU"",34,0)"
^XMB(3.9,126,2,804,0)=" W !! D EN1^RASELCT(.RADIC,RAUTIL) K %W,%Y1,DIC,RADIC,RAQUIT,RAUTIL,X,Y"
^XMB(3.9,126,2,805,0)="""RTN"",""RAWKLU"",35,0)"
^XMB(3.9,126,2,806,0)=" ;did the user select physicians to compile data on? if not, quit"
^XMB(3.9,126,2,807,0)="""RTN"",""RAWKLU"",36,0)"
^XMB(3.9,126,2,808,0)=" I $O(^TMP($J,""RA STFPHYS"",""""))="""" D  Q"
^XMB(3.9,126,2,809,0)="""RTN"",""RAWKLU"",37,0)"
^XMB(3.9,126,2,810,0)=" .W !!?3,$C(7),""Staff Physician data was not selected."""
^XMB(3.9,126,2,811,0)="""RTN"",""RAWKLU"",38,0)"
^XMB(3.9,126,2,812,0)=" .Q"
^XMB(3.9,126,2,813,0)="""RTN"",""RAWKLU"",39,0)"
^XMB(3.9,126,2,814,0)=" ;"
^XMB(3.9,126,2,815,0)="""RTN"",""RAWKLU"",40,0)"
^XMB(3.9,126,2,816,0)=" ;build a new staff physician array (the other array is subscripted by"
^XMB(3.9,126,2,817,0)="""RTN"",""RAWKLU"",41,0)"
^XMB(3.9,126,2,818,0)=" ;physician name then IEN) subscripting by staff physician IEN this"
^XMB(3.9,126,2,819,0)="""RTN"",""RAWKLU"",42,0)"
^XMB(3.9,126,2,820,0)=" ;allows us to check the IEN of the staff physician selected by the"
^XMB(3.9,126,2,821,0)="""RTN"",""RAWKLU"",43,0)"
^XMB(3.9,126,2,822,0)=" ;user against the IEN of the staff physician on the exam record"
^XMB(3.9,126,2,823,0)="""RTN"",""RAWKLU"",44,0)"
^XMB(3.9,126,2,824,0)=" S X="""" F  S X=$O(^TMP($J,""RA STFPHYS"",X)) Q:X=""""  D"
^XMB(3.9,126,2,825,0)="""RTN"",""RAWKLU"",45,0)"
^XMB(3.9,126,2,826,0)=" .S Y=0"
^XMB(3.9,126,2,827,0)="""RTN"",""RAWKLU"",46,0)"
^XMB(3.9,126,2,828,0)=" .F  S Y=$O(^TMP($J,""RA STFPHYS"",X,Y)) Q:'Y  S ^TMP(""RA STFPHYS-IEN"",$J,Y)="""""
^XMB(3.9,126,2,829,0)="""RTN"",""RAWKLU"",47,0)"
^XMB(3.9,126,2,830,0)=" .Q"
^XMB(3.9,126,2,831,0)="""RTN"",""RAWKLU"",48,0)"
^XMB(3.9,126,2,832,0)=" ;"
^XMB(3.9,126,2,833,0)="""RTN"",""RAWKLU"",49,0)"
^XMB(3.9,126,2,834,0)=" K ^TMP($J,""RA STFPHYS"") S RADATE=$$FMTE^XLFDT($$NOW^XLFDT\1,1)"
^XMB(3.9,126,2,835,0)="""RTN"",""RAWKLU"",50,0)"
^XMB(3.9,126,2,836,0)=" ;"
^XMB(3.9,126,2,837,0)="""RTN"",""RAWKLU"",51,0)"
^XMB(3.9,126,2,838,0)="STRTDT ;Prompt the user for a starting date (VERIFIED DATE)"
^XMB(3.9,126,2,839,0)="""RTN"",""RAWKLU"",52,0)"
^XMB(3.9,126,2,840,0)=" S RASTART=$$STRTDT^RAWKLU1(RADATE,2110101)"
^XMB(3.9,126,2,841,0)="""RTN"",""RAWKLU"",53,0)"
^XMB(3.9,126,2,842,0)=" I RASTART=-1 D XIT Q"
^XMB(3.9,126,2,843,0)="""RTN"",""RAWKLU"",54,0)"
^XMB(3.9,126,2,844,0)=" S RABGDTI=$P(RASTART,U),RABGDTX=$P(RASTART,U,2),RAMBGDT=RABGDTI-.0001"
^XMB(3.9,126,2,845,0)="""RTN"",""RAWKLU"",55,0)"
^XMB(3.9,126,2,846,0)=" ;need inv. verified date to search ^RARPT(""AA"","
^XMB(3.9,126,2,847,0)="""RTN"",""RAWKLU"",56,0)"
^XMB(3.9,126,2,848,0)=" S RAMBGDT=9999999.9999-RAMBGDT"
^XMB(3.9,126,2,849,0)="""RTN"",""RAWKLU"",57,0)"
^XMB(3.9,126,2,850,0)=" K RASTART"
^XMB(3.9,126,2,851,0)="""RTN"",""RAWKLU"",58,0)"
^XMB(3.9,126,2,852,0)=" ;"
^XMB(3.9,126,2,853,0)="""RTN"",""RAWKLU"",59,0)"
^XMB(3.9,126,2,854,0)="ENDDT ;Prompt the user for an ending date (VERIFIED DATE)"
^XMB(3.9,126,2,855,0)="""RTN"",""RAWKLU"",60,0)"
^XMB(3.9,126,2,856,0)=" S RAEND=$$ENDDT^RAWKLU1(RABGDTI,RABGDTX)"
^XMB(3.9,126,2,857,0)="""RTN"",""RAWKLU"",61,0)"
^XMB(3.9,126,2,858,0)=" I RAEND=-1 D XIT Q"
^XMB(3.9,126,2,859,0)="""RTN"",""RAWKLU"",62,0)"
^XMB(3.9,126,2,860,0)=" S RAENDTI=$P(RAEND,U),RAENDTX=$P(RAEND,U,2),RAMENDT=RAENDTI+.9999"
^XMB(3.9,126,2,861,0)="""RTN"",""RAWKLU"",63,0)"
^XMB(3.9,126,2,862,0)=" ;need inv. verified date to search ^RARPT(""AA"","
^XMB(3.9,126,2,863,0)="""RTN"",""RAWKLU"",64,0)"
^XMB(3.9,126,2,864,0)=" S RAMENDT=9999999.9999-RAMENDT"
^XMB(3.9,126,2,865,0)="""RTN"",""RAWKLU"",65,0)"
^XMB(3.9,126,2,866,0)=" K RAEND"
^XMB(3.9,126,2,867,0)="""RTN"",""RAWKLU"",66,0)"
^XMB(3.9,126,2,868,0)=" ;"
^XMB(3.9,126,2,869,0)="""RTN"",""RAWKLU"",67,0)"
^XMB(3.9,126,2,870,0)=" F I=""RARPTYP"",""^TMP(""""RA STFPHYS-IEN"""",$J,"",""RADATE"",""RAB*"",""RAM*"",""RAE*"",""RASCLD"" S ZTSAVE(I)="""""
^XMB(3.9,126,2,871,0)="""RTN"",""RAWKLU"",68,0)"
^XMB(3.9,126,2,872,0)=" S I=""RA print ""_$S(RARPTYP=""CPT"":""CPTs"",1:""wRVUs"")_"" totals for physicians within imaging type"""
^XMB(3.9,126,2,873,0)="""RTN"",""RAWKLU"",69,0)"
^XMB(3.9,126,2,874,0)=" D EN^XUTMDEVQ(""START^RAWKLU"",I,.ZTSAVE,,1)"
^XMB(3.9,126,2,875,0)="""RTN"",""RAWKLU"",70,0)"
^XMB(3.9,126,2,876,0)=" I +$G(ZTSK)>0 W !!,""Task Number: ""_ZTSK,!"
^XMB(3.9,126,2,877,0)="""RTN"",""RAWKLU"",71,0)"
^XMB(3.9,126,2,878,0)=" K I,ZTSAVE,ZTSK"
^XMB(3.9,126,2,879,0)="""RTN"",""RAWKLU"",72,0)"
^XMB(3.9,126,2,880,0)=" Q"
^XMB(3.9,126,2,881,0)="""RTN"",""RAWKLU"",73,0)"
^XMB(3.9,126,2,882,0)=" ;"
^XMB(3.9,126,2,883,0)="""RTN"",""RAWKLU"",74,0)"
^XMB(3.9,126,2,884,0)="START ;check exams based on criteria input by user; physician & exam D/T"
^XMB(3.9,126,2,885,0)="""RTN"",""RAWKLU"",75,0)"
^XMB(3.9,126,2,886,0)=" ;eliminate the exam record is one of the following conditions is true:"
^XMB(3.9,126,2,887,0)="""RTN"",""RAWKLU"",76,0)"
^XMB(3.9,126,2,888,0)=" ;1-the status of the exam is 'Cancelled'"
^XMB(3.9,126,2,889,0)="""RTN"",""RAWKLU"",77,0)"
^XMB(3.9,126,2,890,0)=" ;2-the physician(s) selected are not the primary staff for the exam"
^XMB(3.9,126,2,891,0)="""RTN"",""RAWKLU"",78,0)"
^XMB(3.9,126,2,892,0)=" ;"
^XMB(3.9,126,2,893,0)="""RTN"",""RAWKLU"",79,0)"
^XMB(3.9,126,2,894,0)=" S:$D(ZTQUEUED)#2 ZTREQ=""@"""
^XMB(3.9,126,2,895,0)="""RTN"",""RAWKLU"",80,0)"
^XMB(3.9,126,2,896,0)=" K ^TMP($J,""RA BY STFPHYS""),^TMP($J,""RA BY I-TYPE"")"
^XMB(3.9,126,2,897,0)="""RTN"",""RAWKLU"",81,0)"
^XMB(3.9,126,2,898,0)=" S ^TMP($J,""RA BY I-TYPE"")=""0^0^0^0^0^0^0^0^0"",CNT=0"
^XMB(3.9,126,2,899,0)="""RTN"",""RAWKLU"",82,0)"
^XMB(3.9,126,2,900,0)=" ;define where the totals for imaging type will reside on the globals"
^XMB(3.9,126,2,901,0)="""RTN"",""RAWKLU"",83,0)"
^XMB(3.9,126,2,902,0)=" F RAI=""RAD"",""MRI"",""CT"",""US"",""NM"",""VAS"",""ANI"",""CARD"",""MAM"" S CNT=CNT+1,RAIAB(RAI)=CNT"
^XMB(3.9,126,2,903,0)="""RTN"",""RAWKLU"",84,0)"
^XMB(3.9,126,2,904,0)=" K RAI,CNT S RARPTVDT=RAMBGDT,(RACNT,RAXIT)=0"
^XMB(3.9,126,2,905,0)="""RTN"",""RAWKLU"",85,0)"
^XMB(3.9,126,2,906,0)=" F  S RARPTVDT=$O(^RARPT(""AA"",RARPTVDT),-1) Q:'RARPTVDT!(RARPTVDT<RAMENDT)  D  Q:RAXIT"
^XMB(3.9,126,2,907,0)="""RTN"",""RAWKLU"",86,0)"
^XMB(3.9,126,2,908,0)=" .S RARPTIEN=0"
^XMB(3.9,126,2,909,0)="""RTN"",""RAWKLU"",87,0)"
^XMB(3.9,126,2,910,0)=" .F  S RARPTIEN=$O(^RARPT(""AA"",RARPTVDT,RARPTIEN)) Q:'RARPTIEN  D  Q:RAXIT"
^XMB(3.9,126,2,911,0)="""RTN"",""RAWKLU"",88,0)"
^XMB(3.9,126,2,912,0)=" ..S RARPT=$G(^RARPT(RARPTIEN,0)),RADFN=+$P(RARPT,U,2),RADTE=+$P(RARPT,U,3)"
^XMB(3.9,126,2,913,0)="""RTN"",""RAWKLU"",89,0)"
^XMB(3.9,126,2,914,0)=" ..S RADTI=9999999.9999-RADTE,RA7002=$G(^RADPT(RADFN,""DT"",RADTI,0))"
^XMB(3.9,126,2,915,0)="""RTN"",""RAWKLU"",90,0)"
^XMB(3.9,126,2,916,0)=" ..Q:$P(RA7002,U,2)=""""  ;no imaging type defined"
^XMB(3.9,126,2,917,0)="""RTN"",""RAWKLU"",91,0)"
^XMB(3.9,126,2,918,0)=" ..S RAITYP=$P($G(^RA(79.2,$P(RA7002,U,2),0)),U,3) ;abbreviation"
^XMB(3.9,126,2,919,0)="""RTN"",""RAWKLU"",92,0)"
^XMB(3.9,126,2,920,0)=" ..Q:'($D(RAIAB(RAITYP))#2)"
^XMB(3.9,126,2,921,0)="""RTN"",""RAWKLU"",93,0)"
^XMB(3.9,126,2,922,0)=" ..S RACNI=0"
^XMB(3.9,126,2,923,0)="""RTN"",""RAWKLU"",94,0)"
^XMB(3.9,126,2,924,0)=" ..F  S RACNI=$O(^RADPT(RADFN,""DT"",RADTI,""P"",RACNI)) Q:'RACNI  D  Q:RAXIT"
^XMB(3.9,126,2,925,0)="""RTN"",""RAWKLU"",95,0)"
^XMB(3.9,126,2,926,0)=" ...S RA7003=$G(^RADPT(RADFN,""DT"",RADTI,""P"",RACNI,0)) Q:RA7003=""""  ;missing exam node"
^XMB(3.9,126,2,927,0)="""RTN"",""RAWKLU"",96,0)"
^XMB(3.9,126,2,928,0)=" ...Q:$P(RA7003,U,17)'=RARPTIEN  ;exam references a different report!"
^XMB(3.9,126,2,929,0)="""RTN"",""RAWKLU"",97,0)"
^XMB(3.9,126,2,930,0)=" ...S RACNT=RACNT+1"
^XMB(3.9,126,2,931,0)="""RTN"",""RAWKLU"",98,0)"
^XMB(3.9,126,2,932,0)=" ...;"
^XMB(3.9,126,2,933,0)="""RTN"",""RAWKLU"",99,0)"
^XMB(3.9,126,2,934,0)=" ...;did the user stop the task? Check every five hundred records..."
^XMB(3.9,126,2,935,0)="""RTN"",""RAWKLU"",100,0)"
^XMB(3.9,126,2,936,0)=" ...S:RACNT#500=0 (RAXIT,ZTSTOP)=$$S^%ZTLOAD() Q:RAXIT"
^XMB(3.9,126,2,937,0)="""RTN"",""RAWKLU"",101,0)"
^XMB(3.9,126,2,938,0)=" ...;"
^XMB(3.9,126,2,939,0)="""RTN"",""RAWKLU"",102,0)"
^XMB(3.9,126,2,940,0)=" ...;1-begin exam status check"
^XMB(3.9,126,2,941,0)="""RTN"",""RAWKLU"",103,0)"
^XMB(3.9,126,2,942,0)=" ...Q:$P($G(^RA(72,+$P(RA7003,U,3),0)),U,3)=0  ;cancelled..."
^XMB(3.9,126,2,943,0)="""RTN"",""RAWKLU"",104,0)"
^XMB(3.9,126,2,944,0)=" ...;end exam status check"
^XMB(3.9,126,2,945,0)="""RTN"",""RAWKLU"",105,0)"
^XMB(3.9,126,2,946,0)=" ...;"
^XMB(3.9,126,2,947,0)="""RTN"",""RAWKLU"",106,0)"
^XMB(3.9,126,2,948,0)=" ...;2-begin physician check"
^XMB(3.9,126,2,949,0)="""RTN"",""RAWKLU"",107,0)"
^XMB(3.9,126,2,950,0)=" ...Q:'$P(RA7003,U,15)  ;no physician, quit check"
^XMB(3.9,126,2,951,0)="""RTN"",""RAWKLU"",108,0)"
^XMB(3.9,126,2,952,0)=" ...Q:'$D(^TMP(""RA STFPHYS-IEN"",$J,$P(RA7003,U,15)))#2"
^XMB(3.9,126,2,953,0)="""RTN"",""RAWKLU"",109,0)"
^XMB(3.9,126,2,954,0)=" ...;end physician check"
^XMB(3.9,126,2,955,0)="""RTN"",""RAWKLU"",110,0)"
^XMB(3.9,126,2,956,0)=" ...;"
^XMB(3.9,126,2,957,0)="""RTN"",""RAWKLU"",111,0)"
^XMB(3.9,126,2,958,0)=" ...S RASTAFF=$$EXTERNAL^DILFD(70.03,15,,$P(RA7003,U,15))"
^XMB(3.9,126,2,959,0)="""RTN"",""RAWKLU"",112,0)"
^XMB(3.9,126,2,960,0)=" ...I RARPTYP=""CPT"" D  Q"
^XMB(3.9,126,2,961,0)="""RTN"",""RAWKLU"",113,0)"
^XMB(3.9,126,2,962,0)=" ....;Total the # of CPTs performed by a physician within an i-type;"
^XMB(3.9,126,2,963,0)="""RTN"",""RAWKLU"",114,0)"
^XMB(3.9,126,2,964,0)=" ....;the # on CPTs performed within i-type; the # of procedures"
^XMB(3.9,126,2,965,0)="""RTN"",""RAWKLU"",115,0)"
^XMB(3.9,126,2,966,0)=" ....;performed by physician. all exams are either detailed or series"
^XMB(3.9,126,2,967,0)="""RTN"",""RAWKLU"",116,0)"
^XMB(3.9,126,2,968,0)=" ....;(CPT codes defined) types of procedures."
^XMB(3.9,126,2,969,0)="""RTN"",""RAWKLU"",117,0)"
^XMB(3.9,126,2,970,0)=" ....D ARY(1)"
^XMB(3.9,126,2,971,0)="""RTN"",""RAWKLU"",118,0)"
^XMB(3.9,126,2,972,0)=" ....Q"
^XMB(3.9,126,2,973,0)="""RTN"",""RAWKLU"",119,0)"
^XMB(3.9,126,2,974,0)=" ...D RVU"
^XMB(3.9,126,2,975,0)="""RTN"",""RAWKLU"",120,0)"
^XMB(3.9,126,2,976,0)=" ...Q"
^XMB(3.9,126,2,977,0)="""RTN"",""RAWKLU"",121,0)"
^XMB(3.9,126,2,978,0)=" ..Q"
^XMB(3.9,126,2,979,0)="""RTN"",""RAWKLU"",122,0)"
^XMB(3.9,126,2,980,0)=" .Q"
^XMB(3.9,126,2,981,0)="""RTN"",""RAWKLU"",123,0)"
^XMB(3.9,126,2,982,0)=" D EN^RAWKLU1 ;output the report"
^XMB(3.9,126,2,983,0)="""RTN"",""RAWKLU"",124,0)"
^XMB(3.9,126,2,984,0)=" D XIT"
^XMB(3.9,126,2,985,0)="""RTN"",""RAWKLU"",125,0)"
^XMB(3.9,126,2,986,0)=" Q"
^XMB(3.9,126,2,987,0)="""RTN"",""RAWKLU"",126,0)"
^XMB(3.9,126,2,988,0)=" ;"
^XMB(3.9,126,2,989,0)="""RTN"",""RAWKLU"",127,0)"
^XMB(3.9,126,2,990,0)="ARY(Y) ;increment the array by one in the case of CPT or by the wRVU"
^XMB(3.9,126,2,991,0)="""RTN"",""RAWKLU"",128,0)"
^XMB(3.9,126,2,992,0)=" ;value"
^XMB(3.9,126,2,993,0)="""RTN"",""RAWKLU"",129,0)"
^XMB(3.9,126,2,994,0)=" ;input: Y=either one when adding the number of CPTs performed by a"
^XMB(3.9,126,2,995,0)="""RTN"",""RAWKLU"",130,0)"
^XMB(3.9,126,2,996,0)=" ;         physician, within an i-type or by physician within i-type"
^XMB(3.9,126,2,997,0)="""RTN"",""RAWKLU"",131,0)"
^XMB(3.9,126,2,998,0)=" ;    -or- the WRVU value when totaling for the aforementioned criteria"
^XMB(3.9,126,2,999,0)="""RTN"",""RAWKLU"",132,0)"
^XMB(3.9,126,2,1000,0)=" ;"
^XMB(3.9,126,2,1001,0)="""RTN"",""RAWKLU"",133,0)"
^XMB(3.9,126,2,1002,0)=" S $P(^TMP($J,""RA BY STFPHYS"",RASTAFF),U,RAIAB(RAITYP))=+$P($G(^TMP($J,""RA BY STFPHYS"",RASTAFF)),U,RAIAB(RAITYP))+Y"
^XMB(3.9,126,2,1003,0)="""RTN"",""RAWKLU"",134,0)"
^XMB(3.9,126,2,1004,0)=" S $P(^TMP($J,""RA BY I-TYPE""),U,RAIAB(RAITYP))=$P(^TMP($J,""RA BY I-TYPE""),U,RAIAB(RAITYP))+Y"
^XMB(3.9,126,2,1005,0)="""RTN"",""RAWKLU"",135,0)"
^XMB(3.9,126,2,1006,0)=" Q"
^XMB(3.9,126,2,1007,0)="""RTN"",""RAWKLU"",136,0)"
^XMB(3.9,126,2,1008,0)=" ;"
^XMB(3.9,126,2,1009,0)="""RTN"",""RAWKLU"",137,0)"
^XMB(3.9,126,2,1010,0)="RVU ;Total the # of wRVUs performed by a physician within an i-type; all"
^XMB(3.9,126,2,1011,0)="""RTN"",""RAWKLU"",138,0)"
^XMB(3.9,126,2,1012,0)=" ;exams are either detailed or series types of procedures. By definition"
^XMB(3.9,126,2,1013,0)="""RTN"",""RAWKLU"",139,0)"
^XMB(3.9,126,2,1014,0)=" ;these procedure types MUST have CPT code defined."
^XMB(3.9,126,2,1015,0)="""RTN"",""RAWKLU"",140,0)"
^XMB(3.9,126,2,1016,0)=" ;Pass the exam date, CPT, & CPT modifiers into the FEE BASIS function"
^XMB(3.9,126,2,1017,0)="""RTN"",""RAWKLU"",141,0)"
^XMB(3.9,126,2,1018,0)=" ;to derive the wRVU"
^XMB(3.9,126,2,1019,0)="""RTN"",""RAWKLU"",142,0)"
^XMB(3.9,126,2,1020,0)=" ;"
^XMB(3.9,126,2,1021,0)="""RTN"",""RAWKLU"",143,0)"
^XMB(3.9,126,2,1022,0)=" ;get exam date/time"
^XMB(3.9,126,2,1023,0)="""RTN"",""RAWKLU"",144,0)"
^XMB(3.9,126,2,1024,0)=" N RAXAMDT S RAXAMDT=$P(RA7002,U)"
^XMB(3.9,126,2,1025,0)="""RTN"",""RAWKLU"",145,0)"
^XMB(3.9,126,2,1026,0)=" ;get the CPT code value"
^XMB(3.9,126,2,1027,0)="""RTN"",""RAWKLU"",146,0)"
^XMB(3.9,126,2,1028,0)=" S RACPT=$P($G(^RAMIS(71,+$P(RA7003,U,2),0)),U,9) ;pointer to file #81"
^XMB(3.9,126,2,1029,0)="""RTN"",""RAWKLU"",147,0)"
^XMB(3.9,126,2,1030,0)=" S RACPT=$P($$CPT^ICPTCOD(RACPT,RAXAMDT),U,2) ;CPT code is 2nd piece"
^XMB(3.9,126,2,1031,0)="""RTN"",""RAWKLU"",148,0)"
^XMB(3.9,126,2,1032,0)=" ;get CPT code modifier string"
^XMB(3.9,126,2,1033,0)="""RTN"",""RAWKLU"",149,0)"
^XMB(3.9,126,2,1034,0)=" S RACPTMOD="""",RABILAT=0"
^XMB(3.9,126,2,1035,0)="""RTN"",""RAWKLU"",150,0)"
^XMB(3.9,126,2,1036,0)=" I $O(^RADPT(RADFN,""DT"",RADTI,""P"",RACNI,""CMOD"",0))>0 S RAI=0 D"
^XMB(3.9,126,2,1037,0)="""RTN"",""RAWKLU"",151,0)"
^XMB(3.9,126,2,1038,0)=" .F  S RAI=$O(^RADPT(RADFN,""DT"",RADTI,""P"",RACNI,""CMOD"",RAI)) Q:'RAI  D"
^XMB(3.9,126,2,1039,0)="""RTN"",""RAWKLU"",152,0)"
^XMB(3.9,126,2,1040,0)=" ..S RACPTMOD(0)=+$G(^RADPT(RADFN,""DT"",RADTI,""P"",RACNI,""CMOD"",RAI,0))"
^XMB(3.9,126,2,1041,0)="""RTN"",""RAWKLU"",153,0)"
^XMB(3.9,126,2,1042,0)=" ..S RA813(0)=$$MOD^ICPTMOD(RACPTMOD(0),""I"",RAXAMDT)"
^XMB(3.9,126,2,1043,0)="""RTN"",""RAWKLU"",154,0)"
^XMB(3.9,126,2,1044,0)=" ..I 'RABILAT,$P(RA813(0),U,2)=50 S RABILAT=1 ;bilateral multiplier=2"
^XMB(3.9,126,2,1045,0)="""RTN"",""RAWKLU"",155,0)"
^XMB(3.9,126,2,1046,0)=" ..S RACPTMOD=RACPTMOD_$P(RA813(0),U,2)_"","""
^XMB(3.9,126,2,1047,0)="""RTN"",""RAWKLU"",156,0)"
^XMB(3.9,126,2,1048,0)=" ..Q"
^XMB(3.9,126,2,1049,0)="""RTN"",""RAWKLU"",157,0)"
^XMB(3.9,126,2,1050,0)=" .Q"
^XMB(3.9,126,2,1051,0)="""RTN"",""RAWKLU"",158,0)"
^XMB(3.9,126,2,1052,0)=" ;get wRVU value from FEE BASIS; returns a string: status^value^message"
^XMB(3.9,126,2,1053,0)="""RTN"",""RAWKLU"",159,0)"
^XMB(3.9,126,2,1054,0)=" ;where status'=1 means ""in error"". All exams prior to 1/1/1999 will"
^XMB(3.9,126,2,1055,0)="""RTN"",""RAWKLU"",160,0)"
^XMB(3.9,126,2,1056,0)=" ;use 1999 wRVU values for their calculations."
^XMB(3.9,126,2,1057,0)="""RTN"",""RAWKLU"",161,0)"
^XMB(3.9,126,2,1058,0)=" S RAWRVU=$$RVU^FBRVU(RACPT,RACPTMOD,$S(RAXAMDT<2990101:2990101,1:RAXAMDT))"
^XMB(3.9,126,2,1059,0)="""RTN"",""RAWKLU"",162,0)"
^XMB(3.9,126,2,1060,0)=" I $P(RAWRVU,U)=1 D"
^XMB(3.9,126,2,1061,0)="""RTN"",""RAWKLU"",163,0)"
^XMB(3.9,126,2,1062,0)=" .;apply bilateral multiplier if appropriate"
^XMB(3.9,126,2,1063,0)="""RTN"",""RAWKLU"",164,0)"
^XMB(3.9,126,2,1064,0)=" .S:RABILAT RAWRVU=$P(RAWRVU,U,2)*2"
^XMB(3.9,126,2,1065,0)="""RTN"",""RAWKLU"",165,0)"
^XMB(3.9,126,2,1066,0)=" .;or not..."
^XMB(3.9,126,2,1067,0)="""RTN"",""RAWKLU"",166,0)"
^XMB(3.9,126,2,1068,0)=" .S:'RABILAT RAWRVU=$P(RAWRVU,U,2)"
^XMB(3.9,126,2,1069,0)="""RTN"",""RAWKLU"",167,0)"
^XMB(3.9,126,2,1070,0)=" .I RASCLD S RAWRVU=RAWRVU*$$SFCTR^RAWRVUP($P(RA7002,U,2),RAXAMDT)"
^XMB(3.9,126,2,1071,0)="""RTN"",""RAWKLU"",168,0)"
^XMB(3.9,126,2,1072,0)=" .Q"
^XMB(3.9,126,2,1073,0)="""RTN"",""RAWKLU"",169,0)"
^XMB(3.9,126,2,1074,0)=" ;"
^XMB(3.9,126,2,1075,0)="""RTN"",""RAWKLU"",170,0)"
^XMB(3.9,126,2,1076,0)=" E  S RAWRVU=0 ;status some other value than 1; ""in error"""
^XMB(3.9,126,2,1077,0)="""RTN"",""RAWKLU"",171,0)"
^XMB(3.9,126,2,1078,0)=" S:RAWRVU>0 RAWRVU=$J(RAWRVU,1,2) ;do not round the value..."
^XMB(3.9,126,2,1079,0)="""RTN"",""RAWKLU"",172,0)"
^XMB(3.9,126,2,1080,0)=" D ARY(RAWRVU)"
^XMB(3.9,126,2,1081,0)="""RTN"",""RAWKLU"",173,0)"
^XMB(3.9,126,2,1082,0)=" K RA813,RABILAT,RACPT,RACPTMOD,RAI,RAWRVU"
^XMB(3.9,126,2,1083,0)="""RTN"",""RAWKLU"",174,0)"
^XMB(3.9,126,2,1084,0)=" Q"
^XMB(3.9,126,2,1085,0)="""RTN"",""RAWKLU"",175,0)"
^XMB(3.9,126,2,1086,0)=" ;"
^XMB(3.9,126,2,1087,0)="""RTN"",""RAWKLU"",176,0)"
^XMB(3.9,126,2,1088,0)="XIT ;kill variables and exit"
^XMB(3.9,126,2,1089,0)="""RTN"",""RAWKLU"",177,0)"
^XMB(3.9,126,2,1090,0)=" W:$G(ZTSTOP)=1 !,$$CJ^XLFSTR(""USER STOPPED PROCESS THROUGH TASKMAN"",IOM)"
^XMB(3.9,126,2,1091,0)="""RTN"",""RAWKLU"",178,0)"
^XMB(3.9,126,2,1092,0)=" K DIRUT,DTOUT,DUOUT,RA7002,RA7003,RABGDTI,RABGDTX,RACNI,RADATE"
^XMB(3.9,126,2,1093,0)="""RTN"",""RAWKLU"",179,0)"
^XMB(3.9,126,2,1094,0)=" K RADFN,RADTE,RADTI,RAENDTI,RAENDTX,RAIAB,RAITYP,RAMBGDT,RAMENDT"
^XMB(3.9,126,2,1095,0)="""RTN"",""RAWKLU"",180,0)"
^XMB(3.9,126,2,1096,0)=" K RARPT,RARPTIEN,RARPTVDT,RASTAFF,RAXIT,X,Y,^TMP(""RA STFPHYS-IEN"",$J)"
^XMB(3.9,126,2,1097,0)="""RTN"",""RAWKLU"",181,0)"
^XMB(3.9,126,2,1098,0)=" K ^TMP($J,""RA BY STFPHYS""),^TMP($J,""RA BY I-TYPE"")"
^XMB(3.9,126,2,1099,0)="""RTN"",""RAWKLU"",182,0)"
^XMB(3.9,126,2,1100,0)=" Q"
^XMB(3.9,126,2,1101,0)="""RTN"",""RAWKLU1"")"
^XMB(3.9,126,2,1102,0)="0^4^B32092526^n/a"
^XMB(3.9,126,2,1103,0)="""RTN"",""RAWKLU1"",1,0)"
^XMB(3.9,126,2,1104,0)="RAWKLU1 ;HISC/GJC-physician workload statistics by wRVU or CPT ;10/26/05  14:57"
^XMB(3.9,126,2,1105,0)="""RTN"",""RAWKLU1"",2,0)"
^XMB(3.9,126,2,1106,0)=" ;;5.0;Radiology/Nuclear Medicine;**64**;Mar 16, 1998;Build 5"
^XMB(3.9,126,2,1107,0)="""RTN"",""RAWKLU1"",3,0)"
^XMB(3.9,126,2,1108,0)=" ;"
^XMB(3.9,126,2,1109,0)="""RTN"",""RAWKLU1"",4,0)"
^XMB(3.9,126,2,1110,0)=" ;DBIA#:2541 ($$KSP^XUPARAM) returns the DEFAULT INSTITUTION (#217)"
^XMB(3.9,126,2,1111,0)="""RTN"",""RAWKLU1"",5,0)"
^XMB(3.9,126,2,1112,0)=" ;      from the KERNEL SYSTEM PARAMETERS (#8989.3) file."
^XMB(3.9,126,2,1113,0)="""RTN"",""RAWKLU1"",6,0)"
^XMB(3.9,126,2,1114,0)=" ;DBIA#:2171 ($$NAME^XUAF4) resolves the DEFAULT INSTITUTION value into"
^XMB(3.9,126,2,1115,0)="""RTN"",""RAWKLU1"",7,0)"
^XMB(3.9,126,2,1116,0)=" ;      the name of the facility"
^XMB(3.9,126,2,1117,0)="""RTN"",""RAWKLU1"",8,0)"
^XMB(3.9,126,2,1118,0)=" ;DBIA#:10063 ($$S^%ZTLOAD)"
^XMB(3.9,126,2,1119,0)="""RTN"",""RAWKLU1"",9,0)"
^XMB(3.9,126,2,1120,0)=" ;DBIA#:10103 ($$FMTE^XLFDT) & ($$NOW^XLFDT)"
^XMB(3.9,126,2,1121,0)="""RTN"",""RAWKLU1"",10,0)"
^XMB(3.9,126,2,1122,0)=" ;"
^XMB(3.9,126,2,1123,0)="""RTN"",""RAWKLU1"",11,0)"
^XMB(3.9,126,2,1124,0)="EN ;entry point; called from RAWKLU..."
^XMB(3.9,126,2,1125,0)="""RTN"",""RAWKLU1"",12,0)"
^XMB(3.9,126,2,1126,0)=" S RAFAC=$$NAME^XUAF4(+$$KSP^XUPARAM(""INST""))"
^XMB(3.9,126,2,1127,0)="""RTN"",""RAWKLU1"",13,0)"
^XMB(3.9,126,2,1128,0)=" S:RAFAC="""" RAFAC=""***undefined facility name***"""
^XMB(3.9,126,2,1129,0)="""RTN"",""RAWKLU1"",14,0)"
^XMB(3.9,126,2,1130,0)=" S $P(RALN,""-"",IOM+1)="""",(RACNT,RAPG)=0"
^XMB(3.9,126,2,1131,0)="""RTN"",""RAWKLU1"",15,0)"
^XMB(3.9,126,2,1132,0)=" S RAHDR=""IMAGING PHYSICIAN WORKLOAD SUMMARY BY """
^XMB(3.9,126,2,1133,0)="""RTN"",""RAWKLU1"",16,0)"
^XMB(3.9,126,2,1134,0)=" I RARPTYP=""CPT"" S RAHDR=RAHDR_""NUMBER OF CPT CODES"""
^XMB(3.9,126,2,1135,0)="""RTN"",""RAWKLU1"",17,0)"
^XMB(3.9,126,2,1136,0)=" I RARPTYP=""RVU"" S RAHDR=RAHDR_$S(RASCLD=1:""SCALED "",1:"""")_""PROFESSIONAL COMPONENT CMS RVU"""
^XMB(3.9,126,2,1137,0)="""RTN"",""RAWKLU1"",18,0)"
^XMB(3.9,126,2,1138,0)=" S RARDATE=$$FMTE^XLFDT($$NOW^XLFDT,""1D"")"
^XMB(3.9,126,2,1139,0)="""RTN"",""RAWKLU1"",19,0)"
^XMB(3.9,126,2,1140,0)=" ;"
^XMB(3.9,126,2,1141,0)="""RTN"",""RAWKLU1"",20,0)"
^XMB(3.9,126,2,1142,0)=" ;$O through physician names; print totals..."
^XMB(3.9,126,2,1143,0)="""RTN"",""RAWKLU1"",21,0)"
^XMB(3.9,126,2,1144,0)=" I RARPTYP=""RVU"" S RATMP=""(""_$S(RASCLD'=1:""un-s"",1:""S"")_""caled wRVU)"""
^XMB(3.9,126,2,1145,0)="""RTN"",""RAWKLU1"",22,0)"
^XMB(3.9,126,2,1146,0)=" S RAPCE=$S(RARPTYP=""CPT"":3,RARPTYP=""RVU""&(IOM=132):5,1:7)"
^XMB(3.9,126,2,1147,0)="""RTN"",""RAWKLU1"",23,0)"
^XMB(3.9,126,2,1148,0)=" S RATRUNC=$S(RARPTYP=""CPT"":20,RARPTYP=""RVU""&(IOM=80):23,1:27)"
^XMB(3.9,126,2,1149,0)="""RTN"",""RAWKLU1"",24,0)"
^XMB(3.9,126,2,1150,0)=" S RAWDTH=$S(RARPTYP=""CPT"":5,1:8),RADEC=$S(RARPTYP=""RVU"":2,1:0)"
^XMB(3.9,126,2,1151,0)="""RTN"",""RAWKLU1"",25,0)"
^XMB(3.9,126,2,1152,0)=" D HDR S RAX="""""
^XMB(3.9,126,2,1153,0)="""RTN"",""RAWKLU1"",26,0)"
^XMB(3.9,126,2,1154,0)=" F  S RAX=$O(^TMP($J,""RA BY STFPHYS"",RAX)) Q:RAX=""""  D  Q:RAXIT"
^XMB(3.9,126,2,1155,0)="""RTN"",""RAWKLU1"",27,0)"
^XMB(3.9,126,2,1156,0)=" .S RACNT=RACNT+1,RAY=$G(^TMP($J,""RA BY STFPHYS"",RAX)),RATOT=0"
^XMB(3.9,126,2,1157,0)="""RTN"",""RAWKLU1"",28,0)"
^XMB(3.9,126,2,1158,0)=" .;did the user stop the task? Check every five hundred records..."
^XMB(3.9,126,2,1159,0)="""RTN"",""RAWKLU1"",29,0)"
^XMB(3.9,126,2,1160,0)=" .S:RACNT#500=0 (RAXIT,ZTSTOP)=$$S^%ZTLOAD() Q:RAXIT"
^XMB(3.9,126,2,1161,0)="""RTN"",""RAWKLU1"",30,0)"
^XMB(3.9,126,2,1162,0)=" .W !,$E(RAX,1,RATRUNC) ;physician name"
^XMB(3.9,126,2,1163,0)="""RTN"",""RAWKLU1"",31,0)"
^XMB(3.9,126,2,1164,0)=" .D WRITE(RAPCE,0,RAY,RAWDTH,RADEC)"
^XMB(3.9,126,2,1165,0)="""RTN"",""RAWKLU1"",32,0)"
^XMB(3.9,126,2,1166,0)=" .S RAFMAT=$P($T(CFMAT+10),"";;"",2,99)"
^XMB(3.9,126,2,1167,0)="""RTN"",""RAWKLU1"",33,0)"
^XMB(3.9,126,2,1168,0)=" .;single physician total for all i-types - adj RAWDTH for totals"
^XMB(3.9,126,2,1169,0)="""RTN"",""RAWKLU1"",34,0)"
^XMB(3.9,126,2,1170,0)=" .W ?$P(RAFMAT,U,RAPCE),$J(RATOT,$S(RAWDTH=8:10,1:6),RADEC)"
^XMB(3.9,126,2,1171,0)="""RTN"",""RAWKLU1"",35,0)"
^XMB(3.9,126,2,1172,0)=" .I $Y>(IOSL-4) S RAXIT=$$EOS^RAUTL5() Q:RAXIT  D HDR"
^XMB(3.9,126,2,1173,0)="""RTN"",""RAWKLU1"",36,0)"
^XMB(3.9,126,2,1174,0)=" .Q"
^XMB(3.9,126,2,1175,0)="""RTN"",""RAWKLU1"",37,0)"
^XMB(3.9,126,2,1176,0)=" ;print the imaging type and physician totals..."
^XMB(3.9,126,2,1177,0)="""RTN"",""RAWKLU1"",38,0)"
^XMB(3.9,126,2,1178,0)=" I RAXIT D XIT Q"
^XMB(3.9,126,2,1179,0)="""RTN"",""RAWKLU1"",39,0)"
^XMB(3.9,126,2,1180,0)=" I 'RACNT W !,$$CJ^XLFSTR(""No data found for this report"",IOM) D XIT Q"
^XMB(3.9,126,2,1181,0)="""RTN"",""RAWKLU1"",40,0)"
^XMB(3.9,126,2,1182,0)=" I $Y>(IOSL-4) S RAXIT=$$EOS^RAUTL5() Q:RAXIT  D HDR"
^XMB(3.9,126,2,1183,0)="""RTN"",""RAWKLU1"",41,0)"
^XMB(3.9,126,2,1184,0)=" S RAY=$G(^TMP($J,""RA BY I-TYPE"")),RATOT=0"
^XMB(3.9,126,2,1185,0)="""RTN"",""RAWKLU1"",42,0)"
^XMB(3.9,126,2,1186,0)=" W !!,""Physician Total"""
^XMB(3.9,126,2,1187,0)="""RTN"",""RAWKLU1"",43,0)"
^XMB(3.9,126,2,1188,0)=" D WRITE(RAPCE,0,RAY,RAWDTH,RADEC)"
^XMB(3.9,126,2,1189,0)="""RTN"",""RAWKLU1"",44,0)"
^XMB(3.9,126,2,1190,0)=" S RAFMAT=$P($T(CFMAT+10),"";;"",2,99)"
^XMB(3.9,126,2,1191,0)="""RTN"",""RAWKLU1"",45,0)"
^XMB(3.9,126,2,1192,0)=" ;total for all physicians for all i-types - adj RAWDTH for totals"
^XMB(3.9,126,2,1193,0)="""RTN"",""RAWKLU1"",46,0)"
^XMB(3.9,126,2,1194,0)=" W ?$P(RAFMAT,U,RAPCE),$J(RATOT,$S(RAWDTH=8:10,1:6),RADEC) ;physician total for all i-types"
^XMB(3.9,126,2,1195,0)="""RTN"",""RAWKLU1"",47,0)"
^XMB(3.9,126,2,1196,0)=" ;"
^XMB(3.9,126,2,1197,0)="""RTN"",""RAWKLU1"",48,0)"
^XMB(3.9,126,2,1198,0)=" I RASCLD=1 S RASFACTR="""" D"
^XMB(3.9,126,2,1199,0)="""RTN"",""RAWKLU1"",49,0)"
^XMB(3.9,126,2,1200,0)=" .I $Y>(IOSL-4) S RAXIT=$$EOS^RAUTL5() Q:RAXIT  D HDR"
^XMB(3.9,126,2,1201,0)="""RTN"",""RAWKLU1"",50,0)"
^XMB(3.9,126,2,1202,0)=" .W !!,""For calendar year ""_($E(DT,1,3)+1700)_"" the following scaling factors apply:"""
^XMB(3.9,126,2,1203,0)="""RTN"",""RAWKLU1"",51,0)"
^XMB(3.9,126,2,1204,0)=" .S I=0"
^XMB(3.9,126,2,1205,0)="""RTN"",""RAWKLU1"",52,0)"
^XMB(3.9,126,2,1206,0)=" .F  S I=$O(^RA(79.2,I)) Q:'I  D:$O(^RA(79.2,I,""CY"",0))>0  Q:RAXIT"
^XMB(3.9,126,2,1207,0)="""RTN"",""RAWKLU1"",53,0)"
^XMB(3.9,126,2,1208,0)=" ..S I(0)=$G(^RA(79.2,I,0))"
^XMB(3.9,126,2,1209,0)="""RTN"",""RAWKLU1"",54,0)"
^XMB(3.9,126,2,1210,0)=" ..I $Y>(IOSL-4) S RAXIT=$$EOS^RAUTL5() Q:RAXIT  D HDR"
^XMB(3.9,126,2,1211,0)="""RTN"",""RAWKLU1"",55,0)"
^XMB(3.9,126,2,1212,0)=" ..W !,$P(I(0),U),?34,$P(I(0),U,3),?49,$$SFCTR^RAWRVUP(I,DT)"
^XMB(3.9,126,2,1213,0)="""RTN"",""RAWKLU1"",56,0)"
^XMB(3.9,126,2,1214,0)=" ..Q"
^XMB(3.9,126,2,1215,0)="""RTN"",""RAWKLU1"",57,0)"
^XMB(3.9,126,2,1216,0)=" .Q"
^XMB(3.9,126,2,1217,0)="""RTN"",""RAWKLU1"",58,0)"
^XMB(3.9,126,2,1218,0)="XIT ;exit and kill variables"
^XMB(3.9,126,2,1219,0)="""RTN"",""RAWKLU1"",59,0)"
^XMB(3.9,126,2,1220,0)=" K I,RACNT,RADEC,RAFAC,RAFMAT,RAHDR,RAI,RALN,RAPCE,RAPG,RARDATE,RASFACTR,RATAB,RATMP,RATOT"
^XMB(3.9,126,2,1221,0)="""RTN"",""RAWKLU1"",60,0)"
^XMB(3.9,126,2,1222,0)=" K RATRUNC,RAWDTH,RAX,RAY"
^XMB(3.9,126,2,1223,0)="""RTN"",""RAWKLU1"",61,0)"
^XMB(3.9,126,2,1224,0)=" Q"
^XMB(3.9,126,2,1225,0)="""RTN"",""RAWKLU1"",62,0)"
^XMB(3.9,126,2,1226,0)=" ;"
^XMB(3.9,126,2,1227,0)="""RTN"",""RAWKLU1"",63,0)"
^XMB(3.9,126,2,1228,0)="HDR ; Header for our report"
^XMB(3.9,126,2,1229,0)="""RTN"",""RAWKLU1"",64,0)"
^XMB(3.9,126,2,1230,0)=" W:RAPG!($E(IOST,1,2)=""C-"") @IOF"
^XMB(3.9,126,2,1231,0)="""RTN"",""RAWKLU1"",65,0)"
^XMB(3.9,126,2,1232,0)=" S RAPG=RAPG+1"
^XMB(3.9,126,2,1233,0)="""RTN"",""RAWKLU1"",66,0)"
^XMB(3.9,126,2,1234,0)=" W !?(IOM-$L(RAHDR)\2),RAHDR"
^XMB(3.9,126,2,1235,0)="""RTN"",""RAWKLU1"",67,0)"
^XMB(3.9,126,2,1236,0)=" W !,""Run Date: "",RARDATE,?68,""Page: "",RAPG"
^XMB(3.9,126,2,1237,0)="""RTN"",""RAWKLU1"",68,0)"
^XMB(3.9,126,2,1238,0)=" W !,""Facility: "",$E(RAFAC,1,40),?41,""Date Range: "",RABGDTX_"" - ""_RAENDTX"
^XMB(3.9,126,2,1239,0)="""RTN"",""RAWKLU1"",69,0)"
^XMB(3.9,126,2,1240,0)=" ;header formatting logic for CPT & RVU reports"
^XMB(3.9,126,2,1241,0)="""RTN"",""RAWKLU1"",70,0)"
^XMB(3.9,126,2,1242,0)=" W:RARPTYP=""RVU"" !,$$CJ^XLFSTR(RATMP,IOM)"
^XMB(3.9,126,2,1243,0)="""RTN"",""RAWKLU1"",71,0)"
^XMB(3.9,126,2,1244,0)=" W:RARPTYP=""CPT"" ! ;CPT report"
^XMB(3.9,126,2,1245,0)="""RTN"",""RAWKLU1"",72,0)"
^XMB(3.9,126,2,1246,0)=" N RAPCE S RAPCE=$S(RARPTYP=""CPT"":2,RARPTYP=""RVU""&(IOM=132):4,1:6)"
^XMB(3.9,126,2,1247,0)="""RTN"",""RAWKLU1"",73,0)"
^XMB(3.9,126,2,1248,0)=" I '$D(RASFACTR)#2 D"
^XMB(3.9,126,2,1249,0)="""RTN"",""RAWKLU1"",74,0)"
^XMB(3.9,126,2,1250,0)=" .W !,""Physician"" D WRITE(RAPCE,1)"
^XMB(3.9,126,2,1251,0)="""RTN"",""RAWKLU1"",75,0)"
^XMB(3.9,126,2,1252,0)=" W:$D(RASFACTR)#2 !,""Imaging Type"",?34,""Abbreviation"",?49,""wRVU scaling factor"""
^XMB(3.9,126,2,1253,0)="""RTN"",""RAWKLU1"",76,0)"
^XMB(3.9,126,2,1254,0)=" W !,RALN"
^XMB(3.9,126,2,1255,0)="""RTN"",""RAWKLU1"",77,0)"
^XMB(3.9,126,2,1256,0)=" Q"
^XMB(3.9,126,2,1257,0)="""RTN"",""RAWKLU1"",78,0)"
^XMB(3.9,126,2,1258,0)=" ;"
^XMB(3.9,126,2,1259,0)="""RTN"",""RAWKLU1"",79,0)"
^XMB(3.9,126,2,1260,0)="STRTDT(RADATE,RAEARLY) ;Prompt the user for the starting date report verified"
^XMB(3.9,126,2,1261,0)="""RTN"",""RAWKLU1"",80,0)"
^XMB(3.9,126,2,1262,0)=" ;RADATE-Today's date; DT-implicitly defined as today's date(internal format)"
^XMB(3.9,126,2,1263,0)="""RTN"",""RAWKLU1"",81,0)"
^XMB(3.9,126,2,1264,0)=" ;RAEARLY-Earliest conceivable starting date"
^XMB(3.9,126,2,1265,0)="""RTN"",""RAWKLU1"",82,0)"
^XMB(3.9,126,2,1266,0)=" W ! K DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y N RARSLT"
^XMB(3.9,126,2,1267,0)="""RTN"",""RAWKLU1"",83,0)"
^XMB(3.9,126,2,1268,0)=" S DIR(0)=""DA^""_RAEARLY_"":""_""DT:PEX"""
^XMB(3.9,126,2,1269,0)="""RTN"",""RAWKLU1"",84,0)"
^XMB(3.9,126,2,1270,0)=" S DIR(""A"",1)=""Calculate physician workload over a date range; enter a start date"""
^XMB(3.9,126,2,1271,0)="""RTN"",""RAWKLU1"",85,0)"
^XMB(3.9,126,2,1272,0)=" S DIR(""A"")=""of: """
^XMB(3.9,126,2,1273,0)="""RTN"",""RAWKLU1"",86,0)"
^XMB(3.9,126,2,1274,0)=" S DIR(""?"",1)=""Workload is assigned on the date the report is verified, not the date"""
^XMB(3.9,126,2,1275,0)="""RTN"",""RAWKLU1"",87,0)"
^XMB(3.9,126,2,1276,0)=" S DIR(""?"",2)=""the report is dictated."",DIR(""?"",3)="""""
^XMB(3.9,126,2,1277,0)="""RTN"",""RAWKLU1"",88,0)"
^XMB(3.9,126,2,1278,0)=" S DIR(""?"",4)=""This is the date from which our search will begin. The starting"""
^XMB(3.9,126,2,1279,0)="""RTN"",""RAWKLU1"",89,0)"
^XMB(3.9,126,2,1280,0)=" S DIR(""?"",5)=""date must not precede: ""_$$FMTE^XLFDT(RAEARLY,""1D"")_"" and must not come after: ""_RADATE_""."""
^XMB(3.9,126,2,1281,0)="""RTN"",""RAWKLU1"",90,0)"
^XMB(3.9,126,2,1282,0)=" S DIR(""?"")=""Dates associated with a time will not be accepted."""
^XMB(3.9,126,2,1283,0)="""RTN"",""RAWKLU1"",91,0)"
^XMB(3.9,126,2,1284,0)=" S DIR(""B"")=RADATE D ^DIR"
^XMB(3.9,126,2,1285,0)="""RTN"",""RAWKLU1"",92,0)"
^XMB(3.9,126,2,1286,0)=" S:$D(DIRUT) RARSLT=-1 S:'$D(DIRUT) RARSLT=Y_U_Y(0)"
^XMB(3.9,126,2,1287,0)="""RTN"",""RAWKLU1"",93,0)"
^XMB(3.9,126,2,1288,0)=" K DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y"
^XMB(3.9,126,2,1289,0)="""RTN"",""RAWKLU1"",94,0)"
^XMB(3.9,126,2,1290,0)=" Q RARSLT"
^XMB(3.9,126,2,1291,0)="""RTN"",""RAWKLU1"",95,0)"
^XMB(3.9,126,2,1292,0)=" ;"
^XMB(3.9,126,2,1293,0)="""RTN"",""RAWKLU1"",96,0)"
^XMB(3.9,126,2,1294,0)="ENDDT(RABGDTI,RABGDTX) ;Prompt the user for the ending date report verified (no greater than a "
^XMB(3.9,126,2,1295,0)="""RTN"",""RAWKLU1"",97,0)"
^XMB(3.9,126,2,1296,0)=" ;year after the start date input by the user)"
^XMB(3.9,126,2,1297,0)="""RTN"",""RAWKLU1"",98,0)"
^XMB(3.9,126,2,1298,0)=" ;DT-implicitly defined as today's date(internal format)"
^XMB(3.9,126,2,1299,0)="""RTN"",""RAWKLU1"",99,0)"
^XMB(3.9,126,2,1300,0)=" ;RABGDTI-The search start date (selected by the user; internal format)"
^XMB(3.9,126,2,1301,0)="""RTN"",""RAWKLU1"",100,0)"
^XMB(3.9,126,2,1302,0)=" ;RABGDTX-The search start date (selected by the user; external format)"
^XMB(3.9,126,2,1303,0)="""RTN"",""RAWKLU1"",101,0)"
^XMB(3.9,126,2,1304,0)=" W ! K DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y N RAEND,RARSLT"
^XMB(3.9,126,2,1305,0)="""RTN"",""RAWKLU1"",102,0)"
^XMB(3.9,126,2,1306,0)=" ;is today's date 365 days or more past the start date? If yes, calculate end date"
^XMB(3.9,126,2,1307,0)="""RTN"",""RAWKLU1"",103,0)"
^XMB(3.9,126,2,1308,0)=" ;by adding a year to the start date selected by the user"
^XMB(3.9,126,2,1309,0)="""RTN"",""RAWKLU1"",104,0)"
^XMB(3.9,126,2,1310,0)=" I $$FMDIFF^XLFDT(DT,RABGDTI,1)'<365 S RAEND=$$FMADD^XLFDT(RABGDTI,365,0,0,0)"
^XMB(3.9,126,2,1311,0)="""RTN"",""RAWKLU1"",105,0)"
^XMB(3.9,126,2,1312,0)=" ;if not, default using DT (today's date) "
^XMB(3.9,126,2,1313,0)="""RTN"",""RAWKLU1"",106,0)"
^XMB(3.9,126,2,1314,0)=" S:'$D(RAEND)#2 RAEND=DT"
^XMB(3.9,126,2,1315,0)="""RTN"",""RAWKLU1"",107,0)"
^XMB(3.9,126,2,1316,0)=" S DIR(0)=""DA^""_RABGDTI_"":""_RAEND_"":PEX"""
^XMB(3.9,126,2,1317,0)="""RTN"",""RAWKLU1"",108,0)"
^XMB(3.9,126,2,1318,0)=" S DIR(""A"")=""Enter an end date of: """
^XMB(3.9,126,2,1319,0)="""RTN"",""RAWKLU1"",109,0)"
^XMB(3.9,126,2,1320,0)=" S DIR(""?"",1)=""Workload is assigned on the date the report is verified, not the date"""
^XMB(3.9,126,2,1321,0)="""RTN"",""RAWKLU1"",110,0)"
^XMB(3.9,126,2,1322,0)=" S DIR(""?"",2)=""the report is dictated."",DIR(""?"",3)="""""
^XMB(3.9,126,2,1323,0)="""RTN"",""RAWKLU1"",111,0)"
^XMB(3.9,126,2,1324,0)=" S DIR(""?"",4)=""This is the date in which our search will end. The ending date"""
^XMB(3.9,126,2,1325,0)="""RTN"",""RAWKLU1"",112,0)"
^XMB(3.9,126,2,1326,0)=" S DIR(""?"",5)=""must not precede: ""_RABGDTX_"" and must not exceed: ""_$$FMTE^XLFDT(RAEND,""1D"")_""."""
^XMB(3.9,126,2,1327,0)="""RTN"",""RAWKLU1"",113,0)"
^XMB(3.9,126,2,1328,0)=" S DIR(""?"")=""Dates associated with a time will not be accepted."""
^XMB(3.9,126,2,1329,0)="""RTN"",""RAWKLU1"",114,0)"
^XMB(3.9,126,2,1330,0)=" S DIR(""B"")=$$FMTE^XLFDT(RAEND,""1D"") D ^DIR K DIR"
^XMB(3.9,126,2,1331,0)="""RTN"",""RAWKLU1"",115,0)"
^XMB(3.9,126,2,1332,0)=" S:$D(DIRUT) RARSLT=-1 S:'$D(DIRUT) RARSLT=Y_U_Y(0)"
^XMB(3.9,126,2,1333,0)="""RTN"",""RAWKLU1"",116,0)"
^XMB(3.9,126,2,1334,0)=" K DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y"
^XMB(3.9,126,2,1335,0)="""RTN"",""RAWKLU1"",117,0)"
^XMB(3.9,126,2,1336,0)=" Q RARSLT"
^XMB(3.9,126,2,1337,0)="""RTN"",""RAWKLU1"",118,0)"
^XMB(3.9,126,2,1338,0)=" ;"
^XMB(3.9,126,2,1339,0)="""RTN"",""RAWKLU1"",119,0)"
^XMB(3.9,126,2,1340,0)="WRITE(RAPCE,HDR,RAY,RAWDTH,RADEC) ;Write out the column headers and the data for our reports."
^XMB(3.9,126,2,1341,0)="""RTN"",""RAWKLU1"",120,0)"
^XMB(3.9,126,2,1342,0)=" ;input: RAPCE=the piece of data referenced from the format string defined in CFMAT (req'd)"
^XMB(3.9,126,2,1343,0)="""RTN"",""RAWKLU1"",121,0)"
^XMB(3.9,126,2,1344,0)=" ;         HDR=1 if called from the HDR subroutine, else HDR is 0 (req'd)"
^XMB(3.9,126,2,1345,0)="""RTN"",""RAWKLU1"",122,0)"
^XMB(3.9,126,2,1346,0)=" ;         RAY=data to be printed; not a label (optional)"
^XMB(3.9,126,2,1347,0)="""RTN"",""RAWKLU1"",123,0)"
^XMB(3.9,126,2,1348,0)=" ;      RAWDTH=field width; right justified (optional)"
^XMB(3.9,126,2,1349,0)="""RTN"",""RAWKLU1"",124,0)"
^XMB(3.9,126,2,1350,0)=" ;       RADEC=number of decimal places; either zero or two (optional)"
^XMB(3.9,126,2,1351,0)="""RTN"",""RAWKLU1"",125,0)"
^XMB(3.9,126,2,1352,0)=" S RANGE=$S(HDR=1:10,1:9)"
^XMB(3.9,126,2,1353,0)="""RTN"",""RAWKLU1"",126,0)"
^XMB(3.9,126,2,1354,0)=" F RAI=1:1:RANGE S RAFMAT=$P($T(CFMAT+RAI),"";;"",2,99) D"
^XMB(3.9,126,2,1355,0)="""RTN"",""RAWKLU1"",127,0)"
^XMB(3.9,126,2,1356,0)=" .S RATAB=$P(RAFMAT,U,RAPCE) S:HDR=0 RATOT=RATOT+$P(RAY,U,RAI)"
^XMB(3.9,126,2,1357,0)="""RTN"",""RAWKLU1"",128,0)"
^XMB(3.9,126,2,1358,0)=" .I $P(RAFMAT,U)=""NUC"",((RAPCE=6)!(RAPCE=7)) W ! ;RVU on 80"
^XMB(3.9,126,2,1359,0)="""RTN"",""RAWKLU1"",129,0)"
^XMB(3.9,126,2,1360,0)=" .W ?RATAB,$S(HDR=1:$P(RAFMAT,U),1:$J(+$P(RAY,U,RAI),RAWDTH,RADEC))"
^XMB(3.9,126,2,1361,0)="""RTN"",""RAWKLU1"",130,0)"
^XMB(3.9,126,2,1362,0)=" .Q"
^XMB(3.9,126,2,1363,0)="""RTN"",""RAWKLU1"",131,0)"
^XMB(3.9,126,2,1364,0)=" K RANGE"
^XMB(3.9,126,2,1365,0)="""RTN"",""RAWKLU1"",132,0)"
^XMB(3.9,126,2,1366,0)=" Q"
^XMB(3.9,126,2,1367,0)="""RTN"",""RAWKLU1"",133,0)"
^XMB(3.9,126,2,1368,0)=" ;"
^XMB(3.9,126,2,1369,0)="""RTN"",""RAWKLU1"",134,0)"
^XMB(3.9,126,2,1370,0)="CFMAT ;ImgTyp Abbr^colabbr-cpt80^col-data80^colabbr-rvu132^col-data132^colabbr-rvu80^col-data80"
^XMB(3.9,126,2,1371,0)="""RTN"",""RAWKLU1"",135,0)"
^XMB(3.9,126,2,1372,0)=" ;;RAD^23^21^34^29^30^25"
^XMB(3.9,126,2,1373,0)="""RTN"",""RAWKLU1"",136,0)"
^XMB(3.9,126,2,1374,0)=" ;;MRI^29^27^45^40^40^35"
^XMB(3.9,126,2,1375,0)="""RTN"",""RAWKLU1"",137,0)"
^XMB(3.9,126,2,1376,0)=" ;;CT^36^33^56^50^51^45"
^XMB(3.9,126,2,1377,0)="""RTN"",""RAWKLU1"",138,0)"
^XMB(3.9,126,2,1378,0)=" ;;US^42^39^66^60^61^55"
^XMB(3.9,126,2,1379,0)="""RTN"",""RAWKLU1"",139,0)"
^XMB(3.9,126,2,1380,0)=" ;;NUC^47^45^75^70^14^9"
^XMB(3.9,126,2,1381,0)="""RTN"",""RAWKLU1"",140,0)"
^XMB(3.9,126,2,1382,0)=" ;;VAS^53^51^85^80^25^20"
^XMB(3.9,126,2,1383,0)="""RTN"",""RAWKLU1"",141,0)"
^XMB(3.9,126,2,1384,0)=" ;;ANI^59^57^95^91^36^31"
^XMB(3.9,126,2,1385,0)="""RTN"",""RAWKLU1"",142,0)"
^XMB(3.9,126,2,1386,0)=" ;;CARD^64^63^104^100^46^42"
^XMB(3.9,126,2,1387,0)="""RTN"",""RAWKLU1"",143,0)"
^XMB(3.9,126,2,1388,0)=" ;;MAM^70^67^115^110^58^53"
^XMB(3.9,126,2,1389,0)="""RTN"",""RAWKLU1"",144,0)"
^XMB(3.9,126,2,1390,0)=" ;;Total^75^74^125^120^70^65"
^XMB(3.9,126,2,1391,0)="""RTN"",""RAWKLU1"",145,0)"
^XMB(3.9,126,2,1392,0)=" ;;"
^XMB(3.9,126,2,1393,0)="""RTN"",""RAWKLU2"")"
^XMB(3.9,126,2,1394,0)="0^5^B37550729^n/a"
^XMB(3.9,126,2,1395,0)="""RTN"",""RAWKLU2"",1,0)"
^XMB(3.9,126,2,1396,0)="RAWKLU2 ;HISC/GJC-physician wRVU (scaled too) by procedure ;10/26/05  14:57"
^XMB(3.9,126,2,1397,0)="""RTN"",""RAWKLU2"",2,0)"
^XMB(3.9,126,2,1398,0)=" ;;5.0;Radiology/Nuclear Medicine;**64**;Mar 16, 1998;Build 5"
^XMB(3.9,126,2,1399,0)="""RTN"",""RAWKLU2"",3,0)"
^XMB(3.9,126,2,1400,0)=" ;"
^XMB(3.9,126,2,1401,0)="""RTN"",""RAWKLU2"",4,0)"
^XMB(3.9,126,2,1402,0)=" ;DBIA#:1995 ($$CPT^ICPTCOD) resolves the CPT code pointer to the CPT"
^XMB(3.9,126,2,1403,0)="""RTN"",""RAWKLU2"",5,0)"
^XMB(3.9,126,2,1404,0)=" ;      code value"
^XMB(3.9,126,2,1405,0)="""RTN"",""RAWKLU2"",6,0)"
^XMB(3.9,126,2,1406,0)=" ;DBIA#:1996 ($$MOD^ICPTMOD) resolves the CPT modifer pointer to the"
^XMB(3.9,126,2,1407,0)="""RTN"",""RAWKLU2"",7,0)"
^XMB(3.9,126,2,1408,0)=" ;      CPT modifier value"
^XMB(3.9,126,2,1409,0)="""RTN"",""RAWKLU2"",8,0)"
^XMB(3.9,126,2,1410,0)=" ;DBIA#:4799 ($$RVU^FBRVU) return wRVU value for CPT, CPT Mod, & exam"
^XMB(3.9,126,2,1411,0)="""RTN"",""RAWKLU2"",9,0)"
^XMB(3.9,126,2,1412,0)=" ;      date/time "
^XMB(3.9,126,2,1413,0)="""RTN"",""RAWKLU2"",10,0)"
^XMB(3.9,126,2,1414,0)=" ;DBIA#:10060 EN1^RASELCT enacts 10060 which allows lookups on the NEW"
^XMB(3.9,126,2,1415,0)="""RTN"",""RAWKLU2"",11,0)"
^XMB(3.9,126,2,1416,0)=" ;            PERSON (#200) file"
^XMB(3.9,126,2,1417,0)="""RTN"",""RAWKLU2"",12,0)"
^XMB(3.9,126,2,1418,0)=" ;DBIA#:10063 ($$S^%ZTLOAD)"
^XMB(3.9,126,2,1419,0)="""RTN"",""RAWKLU2"",13,0)"
^XMB(3.9,126,2,1420,0)=" ;DBIA#:10103 ($$FMTE^XLFDT) & ($$NOW^XLFDT)"
^XMB(3.9,126,2,1421,0)="""RTN"",""RAWKLU2"",14,0)"
^XMB(3.9,126,2,1422,0)=" ;DBIA#:10104 ($$CJ^XLFSTR)"
^XMB(3.9,126,2,1423,0)="""RTN"",""RAWKLU2"",15,0)"
^XMB(3.9,126,2,1424,0)=" ;DBIA#:1519  ($$EN^XUTMDEVQ)"
^XMB(3.9,126,2,1425,0)="""RTN"",""RAWKLU2"",16,0)"
^XMB(3.9,126,2,1426,0)=" ;"
^XMB(3.9,126,2,1427,0)="""RTN"",""RAWKLU2"",17,0)"
^XMB(3.9,126,2,1428,0)="EN(RASCLD) ;Identifies the option that the user wishes to execute."
^XMB(3.9,126,2,1429,0)="""RTN"",""RAWKLU2"",18,0)"
^XMB(3.9,126,2,1430,0)=" ;input: RASCLD=zero for non-scaled wRVU, & one for the scaled wRVU"
^XMB(3.9,126,2,1431,0)="""RTN"",""RAWKLU2"",19,0)"
^XMB(3.9,126,2,1432,0)=" ;              report."
^XMB(3.9,126,2,1433,0)="""RTN"",""RAWKLU2"",20,0)"
^XMB(3.9,126,2,1434,0)=" ;"
^XMB(3.9,126,2,1435,0)="""RTN"",""RAWKLU2"",21,0)"
^XMB(3.9,126,2,1436,0)=" K ^TMP($J,""RA STFPHYS""),^TMP(""RA STFPHYS-IEN"",$J)"
^XMB(3.9,126,2,1437,0)="""RTN"",""RAWKLU2"",22,0)"
^XMB(3.9,126,2,1438,0)=" ;"
^XMB(3.9,126,2,1439,0)="""RTN"",""RAWKLU2"",23,0)"
^XMB(3.9,126,2,1440,0)="PHYST ;allow the user to select one/many/all physicians"
^XMB(3.9,126,2,1441,0)="""RTN"",""RAWKLU2"",24,0)"
^XMB(3.9,126,2,1442,0)=" ;(w/ staff classification) ;DBIA#: 10060"
^XMB(3.9,126,2,1443,0)="""RTN"",""RAWKLU2"",25,0)"
^XMB(3.9,126,2,1444,0)=" S RADIC=""^VA(200,"",RADIC(0)=""QEAMZ"",RAUTIL=""RA STFPHYS"""
^XMB(3.9,126,2,1445,0)="""RTN"",""RAWKLU2"",26,0)"
^XMB(3.9,126,2,1446,0)=" S RADIC(""A"")=""Select Physician: "",RADIC(""B"")=""All"""
^XMB(3.9,126,2,1447,0)="""RTN"",""RAWKLU2"",27,0)"
^XMB(3.9,126,2,1448,0)=" S RADIC(""S"")=""I $D(^VA(200,""""ARC"""",""""S"""",+Y))\10"""
^XMB(3.9,126,2,1449,0)="""RTN"",""RAWKLU2"",28,0)"
^XMB(3.9,126,2,1450,0)=" W !! D EN1^RASELCT(.RADIC,RAUTIL) K %W,%Y1,DIC,RADIC,RAUTIL,X,Y"
^XMB(3.9,126,2,1451,0)="""RTN"",""RAWKLU2"",29,0)"
^XMB(3.9,126,2,1452,0)=" ;did the user select physicians to compile data on? if not, quit"
^XMB(3.9,126,2,1453,0)="""RTN"",""RAWKLU2"",30,0)"
^XMB(3.9,126,2,1454,0)=" I $O(^TMP($J,""RA STFPHYS"",""""))="""" D  Q"
^XMB(3.9,126,2,1455,0)="""RTN"",""RAWKLU2"",31,0)"
^XMB(3.9,126,2,1456,0)=" .W !!?3,$C(7),""Staff Physician data was not selected."""
^XMB(3.9,126,2,1457,0)="""RTN"",""RAWKLU2"",32,0)"
^XMB(3.9,126,2,1458,0)=" .Q"
^XMB(3.9,126,2,1459,0)="""RTN"",""RAWKLU2"",33,0)"
^XMB(3.9,126,2,1460,0)=" ;"
^XMB(3.9,126,2,1461,0)="""RTN"",""RAWKLU2"",34,0)"
^XMB(3.9,126,2,1462,0)=" ;build a new staff physician array (the other array is subscripted by"
^XMB(3.9,126,2,1463,0)="""RTN"",""RAWKLU2"",35,0)"
^XMB(3.9,126,2,1464,0)=" ;physician name then IEN) subscripting by staff physician IEN this"
^XMB(3.9,126,2,1465,0)="""RTN"",""RAWKLU2"",36,0)"
^XMB(3.9,126,2,1466,0)=" ;allows us to check the IEN of the staff physician selected by the"
^XMB(3.9,126,2,1467,0)="""RTN"",""RAWKLU2"",37,0)"
^XMB(3.9,126,2,1468,0)=" ;user against the IEN of the staff physician on the exam record"
^XMB(3.9,126,2,1469,0)="""RTN"",""RAWKLU2"",38,0)"
^XMB(3.9,126,2,1470,0)=" S X="""" F  S X=$O(^TMP($J,""RA STFPHYS"",X)) Q:X=""""  D"
^XMB(3.9,126,2,1471,0)="""RTN"",""RAWKLU2"",39,0)"
^XMB(3.9,126,2,1472,0)=" .S Y=0"
^XMB(3.9,126,2,1473,0)="""RTN"",""RAWKLU2"",40,0)"
^XMB(3.9,126,2,1474,0)=" .F  S Y=$O(^TMP($J,""RA STFPHYS"",X,Y)) Q:'Y  S ^TMP(""RA STFPHYS-IEN"",$J,Y)="""""
^XMB(3.9,126,2,1475,0)="""RTN"",""RAWKLU2"",41,0)"
^XMB(3.9,126,2,1476,0)=" .Q"
^XMB(3.9,126,2,1477,0)="""RTN"",""RAWKLU2"",42,0)"
^XMB(3.9,126,2,1478,0)=" ;"
^XMB(3.9,126,2,1479,0)="""RTN"",""RAWKLU2"",43,0)"
^XMB(3.9,126,2,1480,0)=" K ^TMP($J,""RA STFPHYS"") S RADATE=$$FMTE^XLFDT($$NOW^XLFDT\1,1)"
^XMB(3.9,126,2,1481,0)="""RTN"",""RAWKLU2"",44,0)"
^XMB(3.9,126,2,1482,0)=" ;"
^XMB(3.9,126,2,1483,0)="""RTN"",""RAWKLU2"",45,0)"
^XMB(3.9,126,2,1484,0)="STRTDT ;Prompt the user for the starting verified date"
^XMB(3.9,126,2,1485,0)="""RTN"",""RAWKLU2"",46,0)"
^XMB(3.9,126,2,1486,0)=" S RASTART=$$STRTDT^RAWKLU1(RADATE,2110101)"
^XMB(3.9,126,2,1487,0)="""RTN"",""RAWKLU2"",47,0)"
^XMB(3.9,126,2,1488,0)=" I RASTART=-1 D XIT Q"
^XMB(3.9,126,2,1489,0)="""RTN"",""RAWKLU2"",48,0)"
^XMB(3.9,126,2,1490,0)=" S RABGDTI=$P(RASTART,U),RABGDTX=$P(RASTART,U,2),RAMBGDT=RABGDTI-.0001"
^XMB(3.9,126,2,1491,0)="""RTN"",""RAWKLU2"",49,0)"
^XMB(3.9,126,2,1492,0)=" ;need inv. verified date to search ^RARPT(""AA"","
^XMB(3.9,126,2,1493,0)="""RTN"",""RAWKLU2"",50,0)"
^XMB(3.9,126,2,1494,0)=" S RAMBGDT=9999999.9999-RABGDTI"
^XMB(3.9,126,2,1495,0)="""RTN"",""RAWKLU2"",51,0)"
^XMB(3.9,126,2,1496,0)=" K RASTART"
^XMB(3.9,126,2,1497,0)="""RTN"",""RAWKLU2"",52,0)"
^XMB(3.9,126,2,1498,0)=" ;"
^XMB(3.9,126,2,1499,0)="""RTN"",""RAWKLU2"",53,0)"
^XMB(3.9,126,2,1500,0)="ENDDT ;Prompt the user for the ending verified date"
^XMB(3.9,126,2,1501,0)="""RTN"",""RAWKLU2"",54,0)"
^XMB(3.9,126,2,1502,0)=" S RAEND=$$ENDDT^RAWKLU1(RABGDTI,RABGDTX)"
^XMB(3.9,126,2,1503,0)="""RTN"",""RAWKLU2"",55,0)"
^XMB(3.9,126,2,1504,0)=" I RAEND=-1 D XIT Q"
^XMB(3.9,126,2,1505,0)="""RTN"",""RAWKLU2"",56,0)"
^XMB(3.9,126,2,1506,0)=" S RAENDTI=$P(RAEND,U),RAENDTX=$P(RAEND,U,2),RAMENDT=RAENDTI+.9999"
^XMB(3.9,126,2,1507,0)="""RTN"",""RAWKLU2"",57,0)"
^XMB(3.9,126,2,1508,0)=" ;need inv. verified date to search ^RARPT(""AA"","
^XMB(3.9,126,2,1509,0)="""RTN"",""RAWKLU2"",58,0)"
^XMB(3.9,126,2,1510,0)=" S RAMENDT=9999999.9999-RAMENDT"
^XMB(3.9,126,2,1511,0)="""RTN"",""RAWKLU2"",59,0)"
^XMB(3.9,126,2,1512,0)=" K RAEND"
^XMB(3.9,126,2,1513,0)="""RTN"",""RAWKLU2"",60,0)"
^XMB(3.9,126,2,1514,0)=" ;"
^XMB(3.9,126,2,1515,0)="""RTN"",""RAWKLU2"",61,0)"
^XMB(3.9,126,2,1516,0)=" F I=""^TMP(""""RA STFPHYS-IEN"""",$J,"",""RADATE"",""RAB*"",""RAM*"",""RAE*"",""RASCLD"" S ZTSAVE(I)="""""
^XMB(3.9,126,2,1517,0)="""RTN"",""RAWKLU2"",62,0)"
^XMB(3.9,126,2,1518,0)=" S I=""RA print procedures, wRVUs, and their totals for a physician"""
^XMB(3.9,126,2,1519,0)="""RTN"",""RAWKLU2"",63,0)"
^XMB(3.9,126,2,1520,0)=" D EN^XUTMDEVQ(""START^RAWKLU2"",I,.ZTSAVE,,1)"
^XMB(3.9,126,2,1521,0)="""RTN"",""RAWKLU2"",64,0)"
^XMB(3.9,126,2,1522,0)=" I +$G(ZTSK)>0 W !!,""Task Number: ""_ZTSK,!"
^XMB(3.9,126,2,1523,0)="""RTN"",""RAWKLU2"",65,0)"
^XMB(3.9,126,2,1524,0)=" K I,ZTSAVE,ZTSK"
^XMB(3.9,126,2,1525,0)="""RTN"",""RAWKLU2"",66,0)"
^XMB(3.9,126,2,1526,0)=" Q"
^XMB(3.9,126,2,1527,0)="""RTN"",""RAWKLU2"",67,0)"
^XMB(3.9,126,2,1528,0)=" ;"
^XMB(3.9,126,2,1529,0)="""RTN"",""RAWKLU2"",68,0)"
^XMB(3.9,126,2,1530,0)="START ;check exams based on criteria input by user; physician & exam D/T"
^XMB(3.9,126,2,1531,0)="""RTN"",""RAWKLU2"",69,0)"
^XMB(3.9,126,2,1532,0)=" ;eliminate the exam record is one of the following conditions is true:"
^XMB(3.9,126,2,1533,0)="""RTN"",""RAWKLU2"",70,0)"
^XMB(3.9,126,2,1534,0)=" ;1-the status of the exam is 'Cancelled'"
^XMB(3.9,126,2,1535,0)="""RTN"",""RAWKLU2"",71,0)"
^XMB(3.9,126,2,1536,0)=" ;2-the physician(s) selected are not the primary staff for the exam"
^XMB(3.9,126,2,1537,0)="""RTN"",""RAWKLU2"",72,0)"
^XMB(3.9,126,2,1538,0)=" ;"
^XMB(3.9,126,2,1539,0)="""RTN"",""RAWKLU2"",73,0)"
^XMB(3.9,126,2,1540,0)=" S:$D(ZTQUEUED)#2 ZTREQ=""@"""
^XMB(3.9,126,2,1541,0)="""RTN"",""RAWKLU2"",74,0)"
^XMB(3.9,126,2,1542,0)=" K ^TMP($J,""RA BY STFPHYS"")"
^XMB(3.9,126,2,1543,0)="""RTN"",""RAWKLU2"",75,0)"
^XMB(3.9,126,2,1544,0)=" S RARPTVDT=RAMBGDT,(RACNT,RAXIT)=0"
^XMB(3.9,126,2,1545,0)="""RTN"",""RAWKLU2"",76,0)"
^XMB(3.9,126,2,1546,0)=" F  S RARPTVDT=$O(^RARPT(""AA"",RARPTVDT),-1) Q:'RARPTVDT!(RARPTVDT<RAMENDT)  D  Q:RAXIT"
^XMB(3.9,126,2,1547,0)="""RTN"",""RAWKLU2"",77,0)"
^XMB(3.9,126,2,1548,0)=" .S RARPTIEN=0"
^XMB(3.9,126,2,1549,0)="""RTN"",""RAWKLU2"",78,0)"
^XMB(3.9,126,2,1550,0)=" .F  S RARPTIEN=$O(^RARPT(""AA"",RARPTVDT,RARPTIEN)) Q:'RARPTIEN  D  Q:RAXIT"
^XMB(3.9,126,2,1551,0)="""RTN"",""RAWKLU2"",79,0)"
^XMB(3.9,126,2,1552,0)=" ..S RARPT=$G(^RARPT(RARPTIEN,0)),RADFN=+$P(RARPT,U,2),RADTE=+$P(RARPT,U,3)"
^XMB(3.9,126,2,1553,0)="""RTN"",""RAWKLU2"",80,0)"
^XMB(3.9,126,2,1554,0)=" ..S RADTI=9999999.9999-RADTE,RA7002=$G(^RADPT(RADFN,""DT"",RADTI,0))"
^XMB(3.9,126,2,1555,0)="""RTN"",""RAWKLU2"",81,0)"
^XMB(3.9,126,2,1556,0)=" ..S RAXAMDT=+$P(RA7002,U) Q:'RAXAMDT"
^XMB(3.9,126,2,1557,0)="""RTN"",""RAWKLU2"",82,0)"
^XMB(3.9,126,2,1558,0)=" ..;must check every exam registered for this exam date/time; we might have a printset"
^XMB(3.9,126,2,1559,0)="""RTN"",""RAWKLU2"",83,0)"
^XMB(3.9,126,2,1560,0)=" ..S RACNI=0 F  S RACNI=$O(^RADPT(RADFN,""DT"",RADTI,""P"",RACNI)) Q:'RACNI  D XAM"
^XMB(3.9,126,2,1561,0)="""RTN"",""RAWKLU2"",84,0)"
^XMB(3.9,126,2,1562,0)=" ..Q"
^XMB(3.9,126,2,1563,0)="""RTN"",""RAWKLU2"",85,0)"
^XMB(3.9,126,2,1564,0)=" .Q"
^XMB(3.9,126,2,1565,0)="""RTN"",""RAWKLU2"",86,0)"
^XMB(3.9,126,2,1566,0)=" D EN^RAWKLU3 ;output the report"
^XMB(3.9,126,2,1567,0)="""RTN"",""RAWKLU2"",87,0)"
^XMB(3.9,126,2,1568,0)=" D XIT"
^XMB(3.9,126,2,1569,0)="""RTN"",""RAWKLU2"",88,0)"
^XMB(3.9,126,2,1570,0)=" Q"
^XMB(3.9,126,2,1571,0)="""RTN"",""RAWKLU2"",89,0)"
^XMB(3.9,126,2,1572,0)=" ;"
^XMB(3.9,126,2,1573,0)="""RTN"",""RAWKLU2"",90,0)"
^XMB(3.9,126,2,1574,0)="XAM ; get exam information; procedure name, exam status order #, int. staff phys..."
^XMB(3.9,126,2,1575,0)="""RTN"",""RAWKLU2"",91,0)"
^XMB(3.9,126,2,1576,0)=" S RA7003=$G(^RADPT(RADFN,""DT"",RADTI,""P"",RACNI,0)) Q:'RA7003"
^XMB(3.9,126,2,1577,0)="""RTN"",""RAWKLU2"",92,0)"
^XMB(3.9,126,2,1578,0)=" Q:$P(RA7003,U,17)'=RARPTIEN  ;exam references a different report!"
^XMB(3.9,126,2,1579,0)="""RTN"",""RAWKLU2"",93,0)"
^XMB(3.9,126,2,1580,0)=" S RAPRCIEN=+$P(RA7003,U,2) Q:'RAPRCIEN"
^XMB(3.9,126,2,1581,0)="""RTN"",""RAWKLU2"",94,0)"
^XMB(3.9,126,2,1582,0)=" S RAPRCIEN(0)=$P($G(^RAMIS(71,RAPRCIEN,0)),U) Q:RAPRCIEN(0)="""""
^XMB(3.9,126,2,1583,0)="""RTN"",""RAWKLU2"",95,0)"
^XMB(3.9,126,2,1584,0)=" S RACNT=RACNT+1"
^XMB(3.9,126,2,1585,0)="""RTN"",""RAWKLU2"",96,0)"
^XMB(3.9,126,2,1586,0)=" ;"
^XMB(3.9,126,2,1587,0)="""RTN"",""RAWKLU2"",97,0)"
^XMB(3.9,126,2,1588,0)=" ;did the user stop the task? Check every five hundred records..."
^XMB(3.9,126,2,1589,0)="""RTN"",""RAWKLU2"",98,0)"
^XMB(3.9,126,2,1590,0)=" S:RACNT#500=0 (RAXIT,ZTSTOP)=$$S^%ZTLOAD() Q:RAXIT"
^XMB(3.9,126,2,1591,0)="""RTN"",""RAWKLU2"",99,0)"
^XMB(3.9,126,2,1592,0)=" ;"
^XMB(3.9,126,2,1593,0)="""RTN"",""RAWKLU2"",100,0)"
^XMB(3.9,126,2,1594,0)=" ;1-begin exam status check"
^XMB(3.9,126,2,1595,0)="""RTN"",""RAWKLU2"",101,0)"
^XMB(3.9,126,2,1596,0)=" Q:$P($G(^RA(72,+$P(RA7003,U,3),0)),U,3)=0  ;cancelled..."
^XMB(3.9,126,2,1597,0)="""RTN"",""RAWKLU2"",102,0)"
^XMB(3.9,126,2,1598,0)=" ;end exam status check"
^XMB(3.9,126,2,1599,0)="""RTN"",""RAWKLU2"",103,0)"
^XMB(3.9,126,2,1600,0)=" ;"
^XMB(3.9,126,2,1601,0)="""RTN"",""RAWKLU2"",104,0)"
^XMB(3.9,126,2,1602,0)=" ;2-begin physician check"
^XMB(3.9,126,2,1603,0)="""RTN"",""RAWKLU2"",105,0)"
^XMB(3.9,126,2,1604,0)=" Q:'$P(RA7003,U,15)  ;no physician, quit check"
^XMB(3.9,126,2,1605,0)="""RTN"",""RAWKLU2"",106,0)"
^XMB(3.9,126,2,1606,0)=" Q:'$D(^TMP(""RA STFPHYS-IEN"",$J,$P(RA7003,U,15)))#2"
^XMB(3.9,126,2,1607,0)="""RTN"",""RAWKLU2"",107,0)"
^XMB(3.9,126,2,1608,0)=" ;end physician check"
^XMB(3.9,126,2,1609,0)="""RTN"",""RAWKLU2"",108,0)"
^XMB(3.9,126,2,1610,0)=" ;"
^XMB(3.9,126,2,1611,0)="""RTN"",""RAWKLU2"",109,0)"
^XMB(3.9,126,2,1612,0)=" S RACPT=$P($G(^RAMIS(71,+$P(RA7003,U,2),0)),U,9) Q:'RACPT  ;ptr to file #81"
^XMB(3.9,126,2,1613,0)="""RTN"",""RAWKLU2"",110,0)"
^XMB(3.9,126,2,1614,0)=" S RACPT=$P($$CPT^ICPTCOD(RACPT,RAXAMDT),U,2) ;CPT code is 2nd piece"
^XMB(3.9,126,2,1615,0)="""RTN"",""RAWKLU2"",111,0)"
^XMB(3.9,126,2,1616,0)=" S RASTF=$$EXTERNAL^DILFD(70.03,15,,$P(RA7003,U,15))"
^XMB(3.9,126,2,1617,0)="""RTN"",""RAWKLU2"",112,0)"
^XMB(3.9,126,2,1618,0)=" D SETARRY K RA7003,RACPT,RAPRCIEN,RASTF"
^XMB(3.9,126,2,1619,0)="""RTN"",""RAWKLU2"",113,0)"
^XMB(3.9,126,2,1620,0)=" Q"
^XMB(3.9,126,2,1621,0)="""RTN"",""RAWKLU2"",114,0)"
^XMB(3.9,126,2,1622,0)=" ;"
^XMB(3.9,126,2,1623,0)="""RTN"",""RAWKLU2"",115,0)"
^XMB(3.9,126,2,1624,0)="SETARRY ;find the wRVU value (either un-scaled or scaled) for a particular CPT"
^XMB(3.9,126,2,1625,0)="""RTN"",""RAWKLU2"",116,0)"
^XMB(3.9,126,2,1626,0)=" ;or CPT code/CPT modifier combination. The case identifiers, CPT code"
^XMB(3.9,126,2,1627,0)="""RTN"",""RAWKLU2"",117,0)"
^XMB(3.9,126,2,1628,0)=" ;(RACPT), & exam date (RAXAMDT) are known."
^XMB(3.9,126,2,1629,0)="""RTN"",""RAWKLU2"",118,0)"
^XMB(3.9,126,2,1630,0)=" ;"
^XMB(3.9,126,2,1631,0)="""RTN"",""RAWKLU2"",119,0)"
^XMB(3.9,126,2,1632,0)=" ;get CPT code modifier string"
^XMB(3.9,126,2,1633,0)="""RTN"",""RAWKLU2"",120,0)"
^XMB(3.9,126,2,1634,0)=" S RACPTMOD="""",RABILAT=0"
^XMB(3.9,126,2,1635,0)="""RTN"",""RAWKLU2"",121,0)"
^XMB(3.9,126,2,1636,0)=" I $O(^RADPT(RADFN,""DT"",RADTI,""P"",RACNI,""CMOD"",0))>0 S RAI=0 D"
^XMB(3.9,126,2,1637,0)="""RTN"",""RAWKLU2"",122,0)"
^XMB(3.9,126,2,1638,0)=" .F  S RAI=$O(^RADPT(RADFN,""DT"",RADTI,""P"",RACNI,""CMOD"",RAI)) Q:'RAI  D"
^XMB(3.9,126,2,1639,0)="""RTN"",""RAWKLU2"",123,0)"
^XMB(3.9,126,2,1640,0)=" ..S RACPTMOD(0)=+$G(^RADPT(RADFN,""DT"",RADTI,""P"",RACNI,""CMOD"",RAI,0))"
^XMB(3.9,126,2,1641,0)="""RTN"",""RAWKLU2"",124,0)"
^XMB(3.9,126,2,1642,0)=" ..S RA813(0)=$$MOD^ICPTMOD(RACPTMOD(0),""I"",RAXAMDT)"
^XMB(3.9,126,2,1643,0)="""RTN"",""RAWKLU2"",125,0)"
^XMB(3.9,126,2,1644,0)=" ..I 'RABILAT,$P(RA813(0),U,2)=50 S RABILAT=1 ;bilateral multiplier=2"
^XMB(3.9,126,2,1645,0)="""RTN"",""RAWKLU2"",126,0)"
^XMB(3.9,126,2,1646,0)=" ..S RACPTMOD=RACPTMOD_$P(RA813(0),U,2)_"","""
^XMB(3.9,126,2,1647,0)="""RTN"",""RAWKLU2"",127,0)"
^XMB(3.9,126,2,1648,0)=" ..Q"
^XMB(3.9,126,2,1649,0)="""RTN"",""RAWKLU2"",128,0)"
^XMB(3.9,126,2,1650,0)=" .Q"
^XMB(3.9,126,2,1651,0)="""RTN"",""RAWKLU2"",129,0)"
^XMB(3.9,126,2,1652,0)=" ;get wRVU value from FEE BASIS; returns a string: status^value^message"
^XMB(3.9,126,2,1653,0)="""RTN"",""RAWKLU2"",130,0)"
^XMB(3.9,126,2,1654,0)=" ;where status'=1 means ""in error"". All exams prior to 1/1/1999 will use"
^XMB(3.9,126,2,1655,0)="""RTN"",""RAWKLU2"",131,0)"
^XMB(3.9,126,2,1656,0)=" ;1999 wRVU values for their calculations."
^XMB(3.9,126,2,1657,0)="""RTN"",""RAWKLU2"",132,0)"
^XMB(3.9,126,2,1658,0)=" S RAWRVU=$$RVU^FBRVU(RACPT,RACPTMOD,$S(RAXAMDT<2990101:2990101,1:RAXAMDT))"
^XMB(3.9,126,2,1659,0)="""RTN"",""RAWKLU2"",133,0)"
^XMB(3.9,126,2,1660,0)=" I $P(RAWRVU,U)=1 D"
^XMB(3.9,126,2,1661,0)="""RTN"",""RAWKLU2"",134,0)"
^XMB(3.9,126,2,1662,0)=" .;apply bilateral multiplier if appropriate"
^XMB(3.9,126,2,1663,0)="""RTN"",""RAWKLU2"",135,0)"
^XMB(3.9,126,2,1664,0)=" .S:RABILAT RAWRVU=$P(RAWRVU,U,2)*2"
^XMB(3.9,126,2,1665,0)="""RTN"",""RAWKLU2"",136,0)"
^XMB(3.9,126,2,1666,0)=" .;or not..."
^XMB(3.9,126,2,1667,0)="""RTN"",""RAWKLU2"",137,0)"
^XMB(3.9,126,2,1668,0)=" .S:'RABILAT RAWRVU=$P(RAWRVU,U,2)"
^XMB(3.9,126,2,1669,0)="""RTN"",""RAWKLU2"",138,0)"
^XMB(3.9,126,2,1670,0)=" .I RASCLD S RAWRVU=RAWRVU*$$SFCTR^RAWRVUP($P(RA7002,U,2),RAXAMDT)"
^XMB(3.9,126,2,1671,0)="""RTN"",""RAWKLU2"",139,0)"
^XMB(3.9,126,2,1672,0)=" .Q"
^XMB(3.9,126,2,1673,0)="""RTN"",""RAWKLU2"",140,0)"
^XMB(3.9,126,2,1674,0)=" ;"
^XMB(3.9,126,2,1675,0)="""RTN"",""RAWKLU2"",141,0)"
^XMB(3.9,126,2,1676,0)=" E  S RAWRVU=0 ;status some other value than 1; ""in error"""
^XMB(3.9,126,2,1677,0)="""RTN"",""RAWKLU2"",142,0)"
^XMB(3.9,126,2,1678,0)=" S:RAWRVU>0 RAWRVU=$J(RAWRVU,1,2) ;do not round the value..."
^XMB(3.9,126,2,1679,0)="""RTN"",""RAWKLU2"",143,0)"
^XMB(3.9,126,2,1680,0)=" ;"
^XMB(3.9,126,2,1681,0)="""RTN"",""RAWKLU2"",144,0)"
^XMB(3.9,126,2,1682,0)=" ;^TMP($J,""RA BY STFPHYS"",RASTF)=total # procedures^wRVU total(all proc)"
^XMB(3.9,126,2,1683,0)="""RTN"",""RAWKLU2"",145,0)"
^XMB(3.9,126,2,1684,0)=" ;^TMP($J,""RA BY STFPHYS"",RASTF,RACPT,RAWRVU,RAPRCIEN(0))=^total # RACPT^"
^XMB(3.9,126,2,1685,0)="""RTN"",""RAWKLU2"",146,0)"
^XMB(3.9,126,2,1686,0)=" ;                                                        total # RAWRVU"
^XMB(3.9,126,2,1687,0)="""RTN"",""RAWKLU2"",147,0)"
^XMB(3.9,126,2,1688,0)=" ;"
^XMB(3.9,126,2,1689,0)="""RTN"",""RAWKLU2"",148,0)"
^XMB(3.9,126,2,1690,0)=" S:'$D(^TMP($J,""RA BY STFPHYS"",RASTF))#2 ^(RASTF)=""0^0"""
^XMB(3.9,126,2,1691,0)="""RTN"",""RAWKLU2"",149,0)"
^XMB(3.9,126,2,1692,0)=" S $P(^TMP($J,""RA BY STFPHYS"",RASTF),U)=$P(^TMP($J,""RA BY STFPHYS"",RASTF),U)+1"
^XMB(3.9,126,2,1693,0)="""RTN"",""RAWKLU2"",150,0)"
^XMB(3.9,126,2,1694,0)=" S $P(^TMP($J,""RA BY STFPHYS"",RASTF),U,2)=$P(^TMP($J,""RA BY STFPHYS"",RASTF),U,2)+RAWRVU"
^XMB(3.9,126,2,1695,0)="""RTN"",""RAWKLU2"",151,0)"
^XMB(3.9,126,2,1696,0)=" S:'$D(^TMP($J,""RA BY STFPHYS"",RASTF,RACPT,RAWRVU,RAPRCIEN(0)))#2 ^(RAPRCIEN(0))=""^0^0"""
^XMB(3.9,126,2,1697,0)="""RTN"",""RAWKLU2"",152,0)"
^XMB(3.9,126,2,1698,0)=" S $P(^TMP($J,""RA BY STFPHYS"",RASTF,RACPT,RAWRVU,RAPRCIEN(0)),U,2)=+$P($G(^TMP($J,""RA BY STFPHYS"",RASTF,RACPT,RAWRVU,RAPRCIEN(0))),U,2)+1"
^XMB(3.9,126,2,1699,0)="""RTN"",""RAWKLU2"",153,0)"
^XMB(3.9,126,2,1700,0)=" S $P(^TMP($J,""RA BY STFPHYS"",RASTF,RACPT,RAWRVU,RAPRCIEN(0)),U,3)=RAWRVU*(+$P(^TMP($J,""RA BY STFPHYS"",RASTF,RACPT,RAWRVU,RAPRCIEN(0)),U,2))"
^XMB(3.9,126,2,1701,0)="""RTN"",""RAWKLU2"",154,0)"
^XMB(3.9,126,2,1702,0)=" ;"
^XMB(3.9,126,2,1703,0)="""RTN"",""RAWKLU2"",155,0)"
^XMB(3.9,126,2,1704,0)=" K RA813,RABILAT,RACPTMOD,RAI,RAWRVU"
^XMB(3.9,126,2,1705,0)="""RTN"",""RAWKLU2"",156,0)"
^XMB(3.9,126,2,1706,0)=" Q"
^XMB(3.9,126,2,1707,0)="""RTN"",""RAWKLU2"",157,0)"
^XMB(3.9,126,2,1708,0)=" ;"
^XMB(3.9,126,2,1709,0)="""RTN"",""RAWKLU2"",158,0)"
^XMB(3.9,126,2,1710,0)="XIT ;kill variables and exit"
^XMB(3.9,126,2,1711,0)="""RTN"",""RAWKLU2"",159,0)"
^XMB(3.9,126,2,1712,0)=" W:$G(ZTSTOP)=1 !,$$CJ^XLFSTR(""USER STOPPED PROCESS THROUGH TASKMAN"",IOM)"
^XMB(3.9,126,2,1713,0)="""RTN"",""RAWKLU2"",160,0)"
^XMB(3.9,126,2,1714,0)=" K DIR,DIROUT,DIRUT,DTOUT,DUOUT,RA7002,RABGDTI,RABGDTX,RACNI,RACNT,RADATE"
^XMB(3.9,126,2,1715,0)="""RTN"",""RAWKLU2"",161,0)"
^XMB(3.9,126,2,1716,0)=" K RADFN,RADTE,RADTI,RAENDTI,RAENDTX,RAMBGDT,RAMENDT,RAQUIT,RARPT,RARPTIEN"
^XMB(3.9,126,2,1717,0)="""RTN"",""RAWKLU2"",162,0)"
^XMB(3.9,126,2,1718,0)=" K RARPTVDT,RAXAMDT,RAXIT,X,Y"
^XMB(3.9,126,2,1719,0)="""RTN"",""RAWKLU2"",163,0)"
^XMB(3.9,126,2,1720,0)=" K ^TMP(""RA STFPHYS-IEN"",$J),^TMP($J,""RA BY STFPHYS"")"
^XMB(3.9,126,2,1721,0)="""RTN"",""RAWKLU2"",164,0)"
^XMB(3.9,126,2,1722,0)=" Q"
^XMB(3.9,126,2,1723,0)="""RTN"",""RAWKLU2"",165,0)"
^XMB(3.9,126,2,1724,0)=" ;"
^XMB(3.9,126,2,1725,0)="""RTN"",""RAWKLU3"")"
^XMB(3.9,126,2,1726,0)="0^6^B12473282^n/a"
^XMB(3.9,126,2,1727,0)="""RTN"",""RAWKLU3"",1,0)"
^XMB(3.9,126,2,1728,0)="RAWKLU3 ;HISC/GJC-physician wRVU (scaled too) by procedure ;10/26/05  14:57 [3/15/06 12:30pm]"
^XMB(3.9,126,2,1729,0)="""RTN"",""RAWKLU3"",2,0)"
^XMB(3.9,126,2,1730,0)=" ;;5.0;Radiology/Nuclear Medicine;**64**;Mar 16, 1998;Build 5"
^XMB(3.9,126,2,1731,0)="""RTN"",""RAWKLU3"",3,0)"
^XMB(3.9,126,2,1732,0)=" ;"
^XMB(3.9,126,2,1733,0)="""RTN"",""RAWKLU3"",4,0)"
^XMB(3.9,126,2,1734,0)=" ;DBIA#:2541 ($$KSP^XUPARAM) returns the DEFAULT INSTITUTION (#217)"
^XMB(3.9,126,2,1735,0)="""RTN"",""RAWKLU3"",5,0)"
^XMB(3.9,126,2,1736,0)=" ;      from the KERNEL SYSTEM PARAMETERS (#8989.3) file."
^XMB(3.9,126,2,1737,0)="""RTN"",""RAWKLU3"",6,0)"
^XMB(3.9,126,2,1738,0)=" ;DBIA#:2171 ($$NAME^XUAF4) resolves the DEFAULT INSTITUTION value into"
^XMB(3.9,126,2,1739,0)="""RTN"",""RAWKLU3"",7,0)"
^XMB(3.9,126,2,1740,0)=" ;      the name of the facility"
^XMB(3.9,126,2,1741,0)="""RTN"",""RAWKLU3"",8,0)"
^XMB(3.9,126,2,1742,0)=" ;DBIA#:10063 ($$S^%ZTLOAD)"
^XMB(3.9,126,2,1743,0)="""RTN"",""RAWKLU3"",9,0)"
^XMB(3.9,126,2,1744,0)=" ;DBIA#:10103 ($$FMTE^XLFDT) & ($$NOW^XLFDT)"
^XMB(3.9,126,2,1745,0)="""RTN"",""RAWKLU3"",10,0)"
^XMB(3.9,126,2,1746,0)=" ;DBIA#:10104 ($$CJ^XLFSTR)"
^XMB(3.9,126,2,1747,0)="""RTN"",""RAWKLU3"",11,0)"
^XMB(3.9,126,2,1748,0)=" ;"
^XMB(3.9,126,2,1749,0)="""RTN"",""RAWKLU3"",12,0)"
^XMB(3.9,126,2,1750,0)="EN ;entry point; called from RAWKLU2..."
^XMB(3.9,126,2,1751,0)="""RTN"",""RAWKLU3"",13,0)"
^XMB(3.9,126,2,1752,0)=" S RAFAC=$$NAME^XUAF4(+$$KSP^XUPARAM(""INST""))"
^XMB(3.9,126,2,1753,0)="""RTN"",""RAWKLU3"",14,0)"
^XMB(3.9,126,2,1754,0)=" S:RAFAC="""" RAFAC=""***undefined facility name***"""
^XMB(3.9,126,2,1755,0)="""RTN"",""RAWKLU3"",15,0)"
^XMB(3.9,126,2,1756,0)=" S $P(RALN,""-"",IOM+1)="""",(RACNT,RAPG,RAXIT)=0"
^XMB(3.9,126,2,1757,0)="""RTN"",""RAWKLU3"",16,0)"
^XMB(3.9,126,2,1758,0)=" S RAHDR=""IMAGING PHYSICIAN ""_$S(RASCLD=1:""SCALED"",1:""UN-SCALED"")_"" wRVU SUMMARY BY CPT"""
^XMB(3.9,126,2,1759,0)="""RTN"",""RAWKLU3"",17,0)"
^XMB(3.9,126,2,1760,0)=" S RARDATE=$$FMTE^XLFDT($$NOW^XLFDT,""1D"")"
^XMB(3.9,126,2,1761,0)="""RTN"",""RAWKLU3"",18,0)"
^XMB(3.9,126,2,1762,0)=" ;"
^XMB(3.9,126,2,1763,0)="""RTN"",""RAWKLU3"",19,0)"
^XMB(3.9,126,2,1764,0)=" ;get the data from the global array and print it..."
^XMB(3.9,126,2,1765,0)="""RTN"",""RAWKLU3"",20,0)"
^XMB(3.9,126,2,1766,0)=" D HDR S RASTF="""""
^XMB(3.9,126,2,1767,0)="""RTN"",""RAWKLU3"",21,0)"
^XMB(3.9,126,2,1768,0)=" F  S RASTF=$O(^TMP($J,""RA BY STFPHYS"",RASTF)) Q:RASTF=""""  D  Q:RAXIT  D PHYTTL"
^XMB(3.9,126,2,1769,0)="""RTN"",""RAWKLU3"",22,0)"
^XMB(3.9,126,2,1770,0)=" .S RADAT(0)=$G(^TMP($J,""RA BY STFPHYS"",RASTF))"
^XMB(3.9,126,2,1771,0)="""RTN"",""RAWKLU3"",23,0)"
^XMB(3.9,126,2,1772,0)=" .S RATTLXP=$P(RADAT(0),U),RATLRVUP=$P(RADAT(0),U,2)"
^XMB(3.9,126,2,1773,0)="""RTN"",""RAWKLU3"",24,0)"
^XMB(3.9,126,2,1774,0)=" .W !,RASTF S RACPT="""""
^XMB(3.9,126,2,1775,0)="""RTN"",""RAWKLU3"",25,0)"
^XMB(3.9,126,2,1776,0)=" .F  S RACPT=$O(^TMP($J,""RA BY STFPHYS"",RASTF,RACPT)) Q:RACPT=""""  D  Q:RAXIT"
^XMB(3.9,126,2,1777,0)="""RTN"",""RAWKLU3"",26,0)"
^XMB(3.9,126,2,1778,0)=" ..S RAWRVU="""""
^XMB(3.9,126,2,1779,0)="""RTN"",""RAWKLU3"",27,0)"
^XMB(3.9,126,2,1780,0)=" ..F  S RAWRVU=$O(^TMP($J,""RA BY STFPHYS"",RASTF,RACPT,RAWRVU)) Q:RAWRVU=""""  D  Q:RAXIT"
^XMB(3.9,126,2,1781,0)="""RTN"",""RAWKLU3"",28,0)"
^XMB(3.9,126,2,1782,0)=" ...S RAPRC="""""
^XMB(3.9,126,2,1783,0)="""RTN"",""RAWKLU3"",29,0)"
^XMB(3.9,126,2,1784,0)=" ...F  S RAPRC=$O(^TMP($J,""RA BY STFPHYS"",RASTF,RACPT,RAWRVU,RAPRC)) Q:RAPRC=""""  D  Q:RAXIT"
^XMB(3.9,126,2,1785,0)="""RTN"",""RAWKLU3"",30,0)"
^XMB(3.9,126,2,1786,0)=" ....S RADAT(1)=$G(^TMP($J,""RA BY STFPHYS"",RASTF,RACPT,RAWRVU,RAPRC))"
^XMB(3.9,126,2,1787,0)="""RTN"",""RAWKLU3"",31,0)"
^XMB(3.9,126,2,1788,0)=" ....S RATTLX=$P(RADAT(1),U,2) ;total # of exams"
^XMB(3.9,126,2,1789,0)="""RTN"",""RAWKLU3"",32,0)"
^XMB(3.9,126,2,1790,0)=" ....S RATTLRVU=$P(RADAT(1),U,3) ;total wRVU for a multiple occurances of the same CPT"
^XMB(3.9,126,2,1791,0)="""RTN"",""RAWKLU3"",33,0)"
^XMB(3.9,126,2,1792,0)=" ....S RACNT=RACNT+1 S:RACNT#500=0 (RAXIT,ZTSTOP)=$$S^%ZTLOAD() Q:RAXIT"
^XMB(3.9,126,2,1793,0)="""RTN"",""RAWKLU3"",34,0)"
^XMB(3.9,126,2,1794,0)=" ....I $Y>(IOSL-4) S RAXIT=$$EOS^RAUTL5() Q:RAXIT  D HDR"
^XMB(3.9,126,2,1795,0)="""RTN"",""RAWKLU3"",35,0)"
^XMB(3.9,126,2,1796,0)=" ....W !?2,RACPT,?12,$E(RAPRC,1,35),?50,$J(RAWRVU,6,2),?58,$J(RATTLX,8,0),?70,$J(RATTLRVU,8,2)"
^XMB(3.9,126,2,1797,0)="""RTN"",""RAWKLU3"",36,0)"
^XMB(3.9,126,2,1798,0)=" ....Q"
^XMB(3.9,126,2,1799,0)="""RTN"",""RAWKLU3"",37,0)"
^XMB(3.9,126,2,1800,0)=" ...Q"
^XMB(3.9,126,2,1801,0)="""RTN"",""RAWKLU3"",38,0)"
^XMB(3.9,126,2,1802,0)=" ..Q"
^XMB(3.9,126,2,1803,0)="""RTN"",""RAWKLU3"",39,0)"
^XMB(3.9,126,2,1804,0)=" .Q"
^XMB(3.9,126,2,1805,0)="""RTN"",""RAWKLU3"",40,0)"
^XMB(3.9,126,2,1806,0)=" ;"
^XMB(3.9,126,2,1807,0)="""RTN"",""RAWKLU3"",41,0)"
^XMB(3.9,126,2,1808,0)=" I RAXIT D XIT Q"
^XMB(3.9,126,2,1809,0)="""RTN"",""RAWKLU3"",42,0)"
^XMB(3.9,126,2,1810,0)=" I 'RACNT W !,$$CJ^XLFSTR(""No data found for this report"",IOM) D XIT Q "
^XMB(3.9,126,2,1811,0)="""RTN"",""RAWKLU3"",43,0)"
^XMB(3.9,126,2,1812,0)=" ;"
^XMB(3.9,126,2,1813,0)="""RTN"",""RAWKLU3"",44,0)"
^XMB(3.9,126,2,1814,0)="DSPSFTR ;display CY i-type scaling factors if appropriate"
^XMB(3.9,126,2,1815,0)="""RTN"",""RAWKLU3"",45,0)"
^XMB(3.9,126,2,1816,0)=" I RASCLD=1 S RASFACTR="""" D"
^XMB(3.9,126,2,1817,0)="""RTN"",""RAWKLU3"",46,0)"
^XMB(3.9,126,2,1818,0)=" .I $Y>(IOSL-4) S RAXIT=$$EOS^RAUTL5() Q:RAXIT  D HDR"
^XMB(3.9,126,2,1819,0)="""RTN"",""RAWKLU3"",47,0)"
^XMB(3.9,126,2,1820,0)=" .W !!,""For calendar year ""_($E(DT,1,3)+1700)_"" the following scaling factors apply:"""
^XMB(3.9,126,2,1821,0)="""RTN"",""RAWKLU3"",48,0)"
^XMB(3.9,126,2,1822,0)=" .S I=0"
^XMB(3.9,126,2,1823,0)="""RTN"",""RAWKLU3"",49,0)"
^XMB(3.9,126,2,1824,0)=" .F  S I=$O(^RA(79.2,I)) Q:'I  D:$O(^RA(79.2,I,""CY"",0))>0  Q:RAXIT"
^XMB(3.9,126,2,1825,0)="""RTN"",""RAWKLU3"",50,0)"
^XMB(3.9,126,2,1826,0)=" ..S I(0)=$G(^RA(79.2,I,0))"
^XMB(3.9,126,2,1827,0)="""RTN"",""RAWKLU3"",51,0)"
^XMB(3.9,126,2,1828,0)=" ..I $Y>(IOSL-4) S RAXIT=$$EOS^RAUTL5() Q:RAXIT  D HDR"
^XMB(3.9,126,2,1829,0)="""RTN"",""RAWKLU3"",52,0)"
^XMB(3.9,126,2,1830,0)=" ..W !,$P(I(0),U),?34,$P(I(0),U,3),?49,$$SFCTR^RAWRVUP(I,DT)"
^XMB(3.9,126,2,1831,0)="""RTN"",""RAWKLU3"",53,0)"
^XMB(3.9,126,2,1832,0)=" ..Q"
^XMB(3.9,126,2,1833,0)="""RTN"",""RAWKLU3"",54,0)"
^XMB(3.9,126,2,1834,0)=" .Q "
^XMB(3.9,126,2,1835,0)="""RTN"",""RAWKLU3"",55,0)"
^XMB(3.9,126,2,1836,0)="XIT ;exit and kill variables"
^XMB(3.9,126,2,1837,0)="""RTN"",""RAWKLU3"",56,0)"
^XMB(3.9,126,2,1838,0)=" K I,RACNT,RACPT,RADAT,RAFAC,RAHDR,RAI,RALN,RAPG,RAPRC,RARDATE,RASFACTR"
^XMB(3.9,126,2,1839,0)="""RTN"",""RAWKLU3"",57,0)"
^XMB(3.9,126,2,1840,0)=" K RASTF,RATLRVUP,RATTLRVU,RATTLX,RATTLXP,RAWRVU"
^XMB(3.9,126,2,1841,0)="""RTN"",""RAWKLU3"",58,0)"
^XMB(3.9,126,2,1842,0)=" Q"
^XMB(3.9,126,2,1843,0)="""RTN"",""RAWKLU3"",59,0)"
^XMB(3.9,126,2,1844,0)=" ;"
^XMB(3.9,126,2,1845,0)="""RTN"",""RAWKLU3"",60,0)"
^XMB(3.9,126,2,1846,0)="HDR ; Header for our report"
^XMB(3.9,126,2,1847,0)="""RTN"",""RAWKLU3"",61,0)"
^XMB(3.9,126,2,1848,0)=" W:RAPG!($E(IOST,1,2)=""C-"") @IOF"
^XMB(3.9,126,2,1849,0)="""RTN"",""RAWKLU3"",62,0)"
^XMB(3.9,126,2,1850,0)=" S RAPG=RAPG+1"
^XMB(3.9,126,2,1851,0)="""RTN"",""RAWKLU3"",63,0)"
^XMB(3.9,126,2,1852,0)=" W !?(IOM-$L(RAHDR)\2),RAHDR"
^XMB(3.9,126,2,1853,0)="""RTN"",""RAWKLU3"",64,0)"
^XMB(3.9,126,2,1854,0)=" W !,""Run Date: "",RARDATE,?68,""Page: "",RAPG"
^XMB(3.9,126,2,1855,0)="""RTN"",""RAWKLU3"",65,0)"
^XMB(3.9,126,2,1856,0)=" W !,""Facility: "",RAFAC,?41,""Date Range: "",RABGDTX_"" - ""_RAENDTX"
^XMB(3.9,126,2,1857,0)="""RTN"",""RAWKLU3"",66,0)"
^XMB(3.9,126,2,1858,0)=" ;header formatting logic for CPT scaled/un-scaled wRVU reports"
^XMB(3.9,126,2,1859,0)="""RTN"",""RAWKLU3"",67,0)"
^XMB(3.9,126,2,1860,0)=" W:'$D(RASFACTR)#2 !!,""Staff Physician"",?58,""Total #"",?73,""Total"",!?2,""CPT Code"",?12,""Procedure"",?51,$S(RASCLD=1:""SwRVU"",1:"" wRVU""),?58,""of exams"",?73,$S(RASCLD=1:""SwRVU"",1:"" wRVU"")"
^XMB(3.9,126,2,1861,0)="""RTN"",""RAWKLU3"",68,0)"
^XMB(3.9,126,2,1862,0)=" W:$D(RASFACTR)#2 !,""Imaging Type"",?34,""Abbreviation"",?49,""wRVU scaling factor"""
^XMB(3.9,126,2,1863,0)="""RTN"",""RAWKLU3"",69,0)"
^XMB(3.9,126,2,1864,0)=" W !,RALN"
^XMB(3.9,126,2,1865,0)="""RTN"",""RAWKLU3"",70,0)"
^XMB(3.9,126,2,1866,0)=" Q"
^XMB(3.9,126,2,1867,0)="""RTN"",""RAWKLU3"",71,0)"
^XMB(3.9,126,2,1868,0)=" ;"
^XMB(3.9,126,2,1869,0)="""RTN"",""RAWKLU3"",72,0)"
^XMB(3.9,126,2,1870,0)="PHYTTL ;print the procedure & wRVU totals for the staff physician"
^XMB(3.9,126,2,1871,0)="""RTN"",""RAWKLU3"",73,0)"
^XMB(3.9,126,2,1872,0)=" I $Y>(IOSL-4) S RAXIT=$$EOS^RAUTL5() Q:RAXIT  D HDR"
^XMB(3.9,126,2,1873,0)="""RTN"",""RAWKLU3"",74,0)"
^XMB(3.9,126,2,1874,0)=" W !?59,""-------"",?71,""-------"",!?58,$J(RATTLXP,8,0),?70,$J(RATLRVUP,8,2)"
^XMB(3.9,126,2,1875,0)="""RTN"",""RAWKLU3"",75,0)"
^XMB(3.9,126,2,1876,0)=" Q"
^XMB(3.9,126,2,1877,0)="""RTN"",""RAWKLU3"",76,0)"
^XMB(3.9,126,2,1878,0)=" ;"
^XMB(3.9,126,2,1879,0)="""RTN"",""RAWRVUP"")"
^XMB(3.9,126,2,1880,0)="0^1^B28533070^n/a"
^XMB(3.9,126,2,1881,0)="""RTN"",""RAWRVUP"",1,0)"
^XMB(3.9,126,2,1882,0)="RAWRVUP ;HISC/GJC-Display procedures with their wRVU values  ;10/26/05  14:57"
^XMB(3.9,126,2,1883,0)="""RTN"",""RAWRVUP"",2,0)"
^XMB(3.9,126,2,1884,0)=" ;;5.0;Radiology/Nuclear Medicine;**64**;Mar 16, 1998;Build 5"
^XMB(3.9,126,2,1885,0)="""RTN"",""RAWRVUP"",3,0)"
^XMB(3.9,126,2,1886,0)=" ;"
^XMB(3.9,126,2,1887,0)="""RTN"",""RAWRVUP"",4,0)"
^XMB(3.9,126,2,1888,0)=" ;DBIA#:1995 ($$CPT^ICPTCOD) resolves the CPT code pointer to the CPT"
^XMB(3.9,126,2,1889,0)="""RTN"",""RAWRVUP"",5,0)"
^XMB(3.9,126,2,1890,0)=" ;      code value"
^XMB(3.9,126,2,1891,0)="""RTN"",""RAWRVUP"",6,0)"
^XMB(3.9,126,2,1892,0)=" ;DBIA#:1996 ($$MOD^ICPTMOD) resolves the CPT modifer pointer to the"
^XMB(3.9,126,2,1893,0)="""RTN"",""RAWRVUP"",7,0)"
^XMB(3.9,126,2,1894,0)=" ;      CPT modifier value"
^XMB(3.9,126,2,1895,0)="""RTN"",""RAWRVUP"",8,0)"
^XMB(3.9,126,2,1896,0)=" ;DBIA#:4799 ($$RVU^FBRVU) return wRVU value for CPT, CPT Mod, & exam"
^XMB(3.9,126,2,1897,0)="""RTN"",""RAWRVUP"",9,0)"
^XMB(3.9,126,2,1898,0)=" ;      date/time"
^XMB(3.9,126,2,1899,0)="""RTN"",""RAWRVUP"",10,0)"
^XMB(3.9,126,2,1900,0)=" ;DBIA#:10060 EN1^RASELCT enacts 10060 which allows lookups on the NEW"
^XMB(3.9,126,2,1901,0)="""RTN"",""RAWRVUP"",11,0)"
^XMB(3.9,126,2,1902,0)=" ;            PERSON (#200) file"
^XMB(3.9,126,2,1903,0)="""RTN"",""RAWRVUP"",12,0)"
^XMB(3.9,126,2,1904,0)=" ;DBIA#:10063 ($$S^%ZTLOAD)"
^XMB(3.9,126,2,1905,0)="""RTN"",""RAWRVUP"",13,0)"
^XMB(3.9,126,2,1906,0)=" ;DBIA#:10103 ($$FMTE^XLFDT) & ($$NOW^XLFDT)"
^XMB(3.9,126,2,1907,0)="""RTN"",""RAWRVUP"",14,0)"
^XMB(3.9,126,2,1908,0)=" ;DBIA#:10104 ($$CJ^XLFSTR)"
^XMB(3.9,126,2,1909,0)="""RTN"",""RAWRVUP"",15,0)"
^XMB(3.9,126,2,1910,0)=" ;DBIA#:1519  ($$EN^XUTMDEVQ)"
^XMB(3.9,126,2,1911,0)="""RTN"",""RAWRVUP"",16,0)"
^XMB(3.9,126,2,1912,0)=" ;"
^XMB(3.9,126,2,1913,0)="""RTN"",""RAWRVUP"",17,0)"
^XMB(3.9,126,2,1914,0)="EN(RASCLD) ;entry point"
^XMB(3.9,126,2,1915,0)="""RTN"",""RAWRVUP"",18,0)"
^XMB(3.9,126,2,1916,0)=" ;input: RASCLD=one if scaled, 0 if un-scaled"
^XMB(3.9,126,2,1917,0)="""RTN"",""RAWRVUP"",19,0)"
^XMB(3.9,126,2,1918,0)=" K ^TMP($J,""RA PROCEDURES"")"
^XMB(3.9,126,2,1919,0)="""RTN"",""RAWRVUP"",20,0)"
^XMB(3.9,126,2,1920,0)=" ;"
^XMB(3.9,126,2,1921,0)="""RTN"",""RAWRVUP"",21,0)"
^XMB(3.9,126,2,1922,0)="PROC ;allow the user to select one/many/all Rad/Nuc Med procedures"
^XMB(3.9,126,2,1923,0)="""RTN"",""RAWRVUP"",22,0)"
^XMB(3.9,126,2,1924,0)=" S RADIC=""^RAMIS(71,"",RADIC(0)=""QEAMZ"",RAUTIL=""RA PROCEDURES"""
^XMB(3.9,126,2,1925,0)="""RTN"",""RAWRVUP"",23,0)"
^XMB(3.9,126,2,1926,0)=" S RADIC(""A"")=""Select Procedures: "",RADIC(""B"")=""All"",RAXIT=0"
^XMB(3.9,126,2,1927,0)="""RTN"",""RAWRVUP"",24,0)"
^XMB(3.9,126,2,1928,0)=" ;screen: based on user selection of procedure activity and that the"
^XMB(3.9,126,2,1929,0)="""RTN"",""RAWRVUP"",25,0)"
^XMB(3.9,126,2,1930,0)=" ;procedure must have a CPT code (only detailed and series procedures)"
^XMB(3.9,126,2,1931,0)="""RTN"",""RAWRVUP"",26,0)"
^XMB(3.9,126,2,1932,0)=" S RADIC(""S"")=""I $P(^(0),U,9)"" ;must have a CPT code (detailed/series)"
^XMB(3.9,126,2,1933,0)="""RTN"",""RAWRVUP"",27,0)"
^XMB(3.9,126,2,1934,0)=" W !! D EN1^RASELCT(.RADIC,RAUTIL)"
^XMB(3.9,126,2,1935,0)="""RTN"",""RAWRVUP"",28,0)"
^XMB(3.9,126,2,1936,0)=" S RAXIT=RAQUIT K %W,%Y1,DIC,RADIC,RAQUIT,RAUTIL,X,Y"
^XMB(3.9,126,2,1937,0)="""RTN"",""RAWRVUP"",29,0)"
^XMB(3.9,126,2,1938,0)=" ;did the user select physicians to compile data on? if not, quit"
^XMB(3.9,126,2,1939,0)="""RTN"",""RAWRVUP"",30,0)"
^XMB(3.9,126,2,1940,0)=" I $O(^TMP($J,""RA PROCEDURES"",""""))="""" D  D XIT Q"
^XMB(3.9,126,2,1941,0)="""RTN"",""RAWRVUP"",31,0)"
^XMB(3.9,126,2,1942,0)=" .W !!?3,$C(7),""Rad/Nuc Med Procedures were not selected."""
^XMB(3.9,126,2,1943,0)="""RTN"",""RAWRVUP"",32,0)"
^XMB(3.9,126,2,1944,0)=" .Q"
^XMB(3.9,126,2,1945,0)="""RTN"",""RAWRVUP"",33,0)"
^XMB(3.9,126,2,1946,0)=" ;"
^XMB(3.9,126,2,1947,0)="""RTN"",""RAWRVUP"",34,0)"
^XMB(3.9,126,2,1948,0)=" F I=""RASCLD"",""^TMP($J,""""RA PROCEDURES"""","" S ZTSAVE(I)="""""
^XMB(3.9,126,2,1949,0)="""RTN"",""RAWRVUP"",35,0)"
^XMB(3.9,126,2,1950,0)=" S I=""RA print wRVUs for Rad/Nuc Med procedures"""
^XMB(3.9,126,2,1951,0)="""RTN"",""RAWRVUP"",36,0)"
^XMB(3.9,126,2,1952,0)=" D EN^XUTMDEVQ(""START^RAWRVUP"",I,.ZTSAVE,,1)"
^XMB(3.9,126,2,1953,0)="""RTN"",""RAWRVUP"",37,0)"
^XMB(3.9,126,2,1954,0)=" I +$G(ZTSK)>0 W !!,""Task Number: ""_ZTSK,!"
^XMB(3.9,126,2,1955,0)="""RTN"",""RAWRVUP"",38,0)"
^XMB(3.9,126,2,1956,0)=" K I,ZTSAVE,ZTSK"
^XMB(3.9,126,2,1957,0)="""RTN"",""RAWRVUP"",39,0)"
^XMB(3.9,126,2,1958,0)=" Q"
^XMB(3.9,126,2,1959,0)="""RTN"",""RAWRVUP"",40,0)"
^XMB(3.9,126,2,1960,0)=" ;"
^XMB(3.9,126,2,1961,0)="""RTN"",""RAWRVUP"",41,0)"
^XMB(3.9,126,2,1962,0)="START ;"
^XMB(3.9,126,2,1963,0)="""RTN"",""RAWRVUP"",42,0)"
^XMB(3.9,126,2,1964,0)=" S:$D(ZTQUEUED)#2 ZTREQ=""@"""
^XMB(3.9,126,2,1965,0)="""RTN"",""RAWRVUP"",43,0)"
^XMB(3.9,126,2,1966,0)=" S $P(RALN,""-"",IOM+1)="""",(RACNT,RAPG,RAXIT)=0"
^XMB(3.9,126,2,1967,0)="""RTN"",""RAWRVUP"",44,0)"
^XMB(3.9,126,2,1968,0)=" S RARUNDT=$$FMTE^XLFDT(DT,""1P"")"
^XMB(3.9,126,2,1969,0)="""RTN"",""RAWRVUP"",45,0)"
^XMB(3.9,126,2,1970,0)=" S RAHDR=""PROCEDURE CPT CODE AND""_$S(RASCLD=1:"" SCALED"",1:"""")_"" WORK RELATIVE VALUE UNITS (wRVU)"""
^XMB(3.9,126,2,1971,0)="""RTN"",""RAWRVUP"",46,0)"
^XMB(3.9,126,2,1972,0)=" S RAX="""" D HDR"
^XMB(3.9,126,2,1973,0)="""RTN"",""RAWRVUP"",47,0)"
^XMB(3.9,126,2,1974,0)=" F  S RAX=$O(^TMP($J,""RA PROCEDURES"",RAX)) Q:RAX=""""  D  Q:RAXIT"
^XMB(3.9,126,2,1975,0)="""RTN"",""RAWRVUP"",48,0)"
^XMB(3.9,126,2,1976,0)=" .S RAY=0"
^XMB(3.9,126,2,1977,0)="""RTN"",""RAWRVUP"",49,0)"
^XMB(3.9,126,2,1978,0)=" .F  S RAY=$O(^TMP($J,""RA PROCEDURES"",RAX,RAY)) Q:'RAY  D  Q:RAXIT"
^XMB(3.9,126,2,1979,0)="""RTN"",""RAWRVUP"",50,0)"
^XMB(3.9,126,2,1980,0)=" ..S RACNT=RACNT+1 S:RACNT#500=0 (RAXIT,ZTSTOP)=$$S^%ZTLOAD() Q:RAXIT"
^XMB(3.9,126,2,1981,0)="""RTN"",""RAWRVUP"",51,0)"
^XMB(3.9,126,2,1982,0)=" ..S RAMIS(0)=$G(^RAMIS(71,RAY,0))"
^XMB(3.9,126,2,1983,0)="""RTN"",""RAWRVUP"",52,0)"
^XMB(3.9,126,2,1984,0)=" ..S RAPROC=$E($P(RAMIS(0),U),1,35) ;truncate to thirty-five chars "
^XMB(3.9,126,2,1985,0)="""RTN"",""RAWRVUP"",53,0)"
^XMB(3.9,126,2,1986,0)=" ..S RAPTYPE=$S($P(RAMIS(0),U,6)=""D"":""Detailed"",1:""Series"")"
^XMB(3.9,126,2,1987,0)="""RTN"",""RAWRVUP"",54,0)"
^XMB(3.9,126,2,1988,0)=" ..S RAITYPE=$P($G(^RA(79.2,+$P(RAMIS(0),U,12),0)),U,3)"
^XMB(3.9,126,2,1989,0)="""RTN"",""RAWRVUP"",55,0)"
^XMB(3.9,126,2,1990,0)=" ..S RACPT=$P(RAMIS(0),U,9),RACPT=$P($$CPT^ICPTCOD(RACPT,DT),U,2)"
^XMB(3.9,126,2,1991,0)="""RTN"",""RAWRVUP"",56,0)"
^XMB(3.9,126,2,1992,0)=" ..;determine if there are default CPT modifiers for this procedure; if"
^XMB(3.9,126,2,1993,0)="""RTN"",""RAWRVUP"",57,0)"
^XMB(3.9,126,2,1994,0)=" ..;so, does one indicate 'bilateral'? If bilateral multiply wRVU by two."
^XMB(3.9,126,2,1995,0)="""RTN"",""RAWRVUP"",58,0)"
^XMB(3.9,126,2,1996,0)=" ..S RACPTMOD="""",RABILAT=0"
^XMB(3.9,126,2,1997,0)="""RTN"",""RAWRVUP"",59,0)"
^XMB(3.9,126,2,1998,0)=" ..I $O(^RAMIS(71,RAY,""DCM"",0))>0 S RAI=0 D"
^XMB(3.9,126,2,1999,0)="""RTN"",""RAWRVUP"",60,0)"
^XMB(3.9,126,2,2000,0)=" ...F  S RAI=$O(^RAMIS(71,RAY,""DCM"",RAI)) Q:'RAI  D"
^XMB(3.9,126,2,2001,0)="""RTN"",""RAWRVUP"",61,0)"
^XMB(3.9,126,2,2002,0)=" ....S RACPTMOD(0)=+$G(^RAMIS(71,RAY,""DCM"",RAI,0))"
^XMB(3.9,126,2,2003,0)="""RTN"",""RAWRVUP"",62,0)"
^XMB(3.9,126,2,2004,0)=" ....S RA813(0)=$$MOD^ICPTMOD(RACPTMOD(0),""I"",DT)"
^XMB(3.9,126,2,2005,0)="""RTN"",""RAWRVUP"",63,0)"
^XMB(3.9,126,2,2006,0)=" ....I 'RABILAT,$P(RA813(0),U,2)=50 S RABILAT=1 ;bilateral multiplier=2"
^XMB(3.9,126,2,2007,0)="""RTN"",""RAWRVUP"",64,0)"
^XMB(3.9,126,2,2008,0)=" ....S RACPTMOD=RACPTMOD_$P(RA813(0),U,2)_"","""
^XMB(3.9,126,2,2009,0)="""RTN"",""RAWRVUP"",65,0)"
^XMB(3.9,126,2,2010,0)=" ....Q"
^XMB(3.9,126,2,2011,0)="""RTN"",""RAWRVUP"",66,0)"
^XMB(3.9,126,2,2012,0)=" ...Q"
^XMB(3.9,126,2,2013,0)="""RTN"",""RAWRVUP"",67,0)"
^XMB(3.9,126,2,2014,0)=" ..;get wRVU value from FEE BASIS; returns a string: status^value^message"
^XMB(3.9,126,2,2015,0)="""RTN"",""RAWRVUP"",68,0)"
^XMB(3.9,126,2,2016,0)=" ..;where status'=1 means ""in error"""
^XMB(3.9,126,2,2017,0)="""RTN"",""RAWRVUP"",69,0)"
^XMB(3.9,126,2,2018,0)=" ..S RAWRVU=$$RVU^FBRVU(RACPT,RACPTMOD,DT)"
^XMB(3.9,126,2,2019,0)="""RTN"",""RAWRVUP"",70,0)"
^XMB(3.9,126,2,2020,0)=" ..I $P(RAWRVU,U)=1 D"
^XMB(3.9,126,2,2021,0)="""RTN"",""RAWRVUP"",71,0)"
^XMB(3.9,126,2,2022,0)=" ...;apply bilateral multiplier if appropriate"
^XMB(3.9,126,2,2023,0)="""RTN"",""RAWRVUP"",72,0)"
^XMB(3.9,126,2,2024,0)=" ...S:RABILAT RAWRVU=$P(RAWRVU,U,2)*2"
^XMB(3.9,126,2,2025,0)="""RTN"",""RAWRVUP"",73,0)"
^XMB(3.9,126,2,2026,0)=" ...;or not..."
^XMB(3.9,126,2,2027,0)="""RTN"",""RAWRVUP"",74,0)"
^XMB(3.9,126,2,2028,0)=" ...S:'RABILAT RAWRVU=$P(RAWRVU,U,2)"
^XMB(3.9,126,2,2029,0)="""RTN"",""RAWRVUP"",75,0)"
^XMB(3.9,126,2,2030,0)=" ...Q"
^XMB(3.9,126,2,2031,0)="""RTN"",""RAWRVUP"",76,0)"
^XMB(3.9,126,2,2032,0)=" ..E  S RAWRVU=0 ;status some other value than 1; ""in error"""
^XMB(3.9,126,2,2033,0)="""RTN"",""RAWRVUP"",77,0)"
^XMB(3.9,126,2,2034,0)=" ..;"
^XMB(3.9,126,2,2035,0)="""RTN"",""RAWRVUP"",78,0)"
^XMB(3.9,126,2,2036,0)=" ..S:RAWRVU>0 RAWRVU=$J(RAWRVU,1,2)"
^XMB(3.9,126,2,2037,0)="""RTN"",""RAWRVUP"",79,0)"
^XMB(3.9,126,2,2038,0)=" ..;"
^XMB(3.9,126,2,2039,0)="""RTN"",""RAWRVUP"",80,0)"
^XMB(3.9,126,2,2040,0)="SCALED ..;when scaled find scaled wRVU value"
^XMB(3.9,126,2,2041,0)="""RTN"",""RAWRVUP"",81,0)"
^XMB(3.9,126,2,2042,0)=" ..I RASCLD=1,(RAWRVU>0) D"
^XMB(3.9,126,2,2043,0)="""RTN"",""RAWRVUP"",82,0)"
^XMB(3.9,126,2,2044,0)=" ...S RASFACTR=$$SFCTR(+$P(RAMIS(0),U,12)) ;pass i-type ptr"
^XMB(3.9,126,2,2045,0)="""RTN"",""RAWRVUP"",83,0)"
^XMB(3.9,126,2,2046,0)=" ...S RASWRVU=$J((RAWRVU*RASFACTR),1,2)"
^XMB(3.9,126,2,2047,0)="""RTN"",""RAWRVUP"",84,0)"
^XMB(3.9,126,2,2048,0)=" ...Q"
^XMB(3.9,126,2,2049,0)="""RTN"",""RAWRVUP"",85,0)"
^XMB(3.9,126,2,2050,0)=" ..E  S RASWRVU=0 ;mult by zero"
^XMB(3.9,126,2,2051,0)="""RTN"",""RAWRVUP"",86,0)"
^XMB(3.9,126,2,2052,0)=" ..;"
^XMB(3.9,126,2,2053,0)="""RTN"",""RAWRVUP"",87,0)"
^XMB(3.9,126,2,2054,0)=" ..W !,RAPROC,?37,RAPTYPE,?48,RAITYPE,?58,RACPT,?68,$S(RASCLD=1:$J(RASWRVU,7,2),1:$J(RAWRVU,7,2))"
^XMB(3.9,126,2,2055,0)="""RTN"",""RAWRVUP"",88,0)"
^XMB(3.9,126,2,2056,0)=" ..I $Y>(IOSL-4) S RAXIT=$$EOS^RAUTL5() D:'RAXIT HDR"
^XMB(3.9,126,2,2057,0)="""RTN"",""RAWRVUP"",89,0)"
^XMB(3.9,126,2,2058,0)=" ..Q"
^XMB(3.9,126,2,2059,0)="""RTN"",""RAWRVUP"",90,0)"
^XMB(3.9,126,2,2060,0)=" .Q"
^XMB(3.9,126,2,2061,0)="""RTN"",""RAWRVUP"",91,0)"
^XMB(3.9,126,2,2062,0)=" I 'RAXIT,(RASCLD) S RASFACTR(0)="""" D"
^XMB(3.9,126,2,2063,0)="""RTN"",""RAWRVUP"",92,0)"
^XMB(3.9,126,2,2064,0)=" .I $Y>(IOSL-4) S RAXIT=$$EOS^RAUTL5() Q:RAXIT  D HDR"
^XMB(3.9,126,2,2065,0)="""RTN"",""RAWRVUP"",93,0)"
^XMB(3.9,126,2,2066,0)=" .W !!,""For calendar year ""_($E(DT,1,3)+1700)_"" the following scaling factors apply:"""
^XMB(3.9,126,2,2067,0)="""RTN"",""RAWRVUP"",94,0)"
^XMB(3.9,126,2,2068,0)=" .S I=0"
^XMB(3.9,126,2,2069,0)="""RTN"",""RAWRVUP"",95,0)"
^XMB(3.9,126,2,2070,0)=" .F  S I=$O(^RA(79.2,I)) Q:'I  D:$O(^RA(79.2,I,""CY"",0))>0  Q:RAXIT"
^XMB(3.9,126,2,2071,0)="""RTN"",""RAWRVUP"",96,0)"
^XMB(3.9,126,2,2072,0)=" ..S I(0)=$G(^RA(79.2,I,0))"
^XMB(3.9,126,2,2073,0)="""RTN"",""RAWRVUP"",97,0)"
^XMB(3.9,126,2,2074,0)=" ..I $Y>(IOSL-4) S RAXIT=$$EOS^RAUTL5() Q:RAXIT  D HDR"
^XMB(3.9,126,2,2075,0)="""RTN"",""RAWRVUP"",98,0)"
^XMB(3.9,126,2,2076,0)=" ..W !,$P(I(0),U),?34,$P(I(0),U,3),?49,$$SFCTR(I)"
^XMB(3.9,126,2,2077,0)="""RTN"",""RAWRVUP"",99,0)"
^XMB(3.9,126,2,2078,0)=" ..Q"
^XMB(3.9,126,2,2079,0)="""RTN"",""RAWRVUP"",100,0)"
^XMB(3.9,126,2,2080,0)=" .S RAXIT=$$EOS^RAUTL5()"
^XMB(3.9,126,2,2081,0)="""RTN"",""RAWRVUP"",101,0)"
^XMB(3.9,126,2,2082,0)=" .Q"
^XMB(3.9,126,2,2083,0)="""RTN"",""RAWRVUP"",102,0)"
^XMB(3.9,126,2,2084,0)=" D XIT"
^XMB(3.9,126,2,2085,0)="""RTN"",""RAWRVUP"",103,0)"
^XMB(3.9,126,2,2086,0)=" Q"
^XMB(3.9,126,2,2087,0)="""RTN"",""RAWRVUP"",104,0)"
^XMB(3.9,126,2,2088,0)=" ;"
^XMB(3.9,126,2,2089,0)="""RTN"",""RAWRVUP"",105,0)"
^XMB(3.9,126,2,2090,0)="HDR ; Header for our report"
^XMB(3.9,126,2,2091,0)="""RTN"",""RAWRVUP"",106,0)"
^XMB(3.9,126,2,2092,0)=" W:RAPG!($E(IOST,1,2)=""C-"") @IOF"
^XMB(3.9,126,2,2093,0)="""RTN"",""RAWRVUP"",107,0)"
^XMB(3.9,126,2,2094,0)=" S RAPG=RAPG+1 W !?(IOM-$L(RAHDR)\2),RAHDR"
^XMB(3.9,126,2,2095,0)="""RTN"",""RAWRVUP"",108,0)"
^XMB(3.9,126,2,2096,0)=" W !,""Run Date: "",RARUNDT,?68,""Page: "",RAPG"
^XMB(3.9,126,2,2097,0)="""RTN"",""RAWRVUP"",109,0)"
^XMB(3.9,126,2,2098,0)=" W:'$D(RASFACTR(0))#2 !!,""Procedure"",?37,""Proc Type"",?48,""Img Type"",?58,""CPT Code"",?68,$S(RASCLD=1:""  S"",1:""   "")_""wRVU"""
^XMB(3.9,126,2,2099,0)="""RTN"",""RAWRVUP"",110,0)"
^XMB(3.9,126,2,2100,0)=" W:$D(RASFACTR(0))#2 !!,""Imaging Type"",?34,""Abbreviation"",?51,""wRVU scaling factor"""
^XMB(3.9,126,2,2101,0)="""RTN"",""RAWRVUP"",111,0)"
^XMB(3.9,126,2,2102,0)=" W !,RALN"
^XMB(3.9,126,2,2103,0)="""RTN"",""RAWRVUP"",112,0)"
^XMB(3.9,126,2,2104,0)=" Q"
^XMB(3.9,126,2,2105,0)="""RTN"",""RAWRVUP"",113,0)"
^XMB(3.9,126,2,2106,0)=" ;"
^XMB(3.9,126,2,2107,0)="""RTN"",""RAWRVUP"",114,0)"
^XMB(3.9,126,2,2108,0)="XIT ;kill variables and exit"
^XMB(3.9,126,2,2109,0)="""RTN"",""RAWRVUP"",115,0)"
^XMB(3.9,126,2,2110,0)=" I 'RAXIT W:'RACNT !,$$CJ^XLFSTR(""No data found for this report"",IOM)"
^XMB(3.9,126,2,2111,0)="""RTN"",""RAWRVUP"",116,0)"
^XMB(3.9,126,2,2112,0)=" K DILN,DTOUT,DUOUT,I,POP,RA813,RABILAT,RACNT,RACPT,RACPTMOD,RAHDR,RAI"
^XMB(3.9,126,2,2113,0)="""RTN"",""RAWRVUP"",117,0)"
^XMB(3.9,126,2,2114,0)=" K RAITYPE,RALN,RAMIS,RAPTYPE,RAPG,RAPROC,RARUNDT,RASCLD,RASFACTR"
^XMB(3.9,126,2,2115,0)="""RTN"",""RAWRVUP"",118,0)"
^XMB(3.9,126,2,2116,0)=" K RASWRVU,RAWRVU,RAX,RAXIT,RAY,RAYEAR,X,Y"
^XMB(3.9,126,2,2117,0)="""RTN"",""RAWRVUP"",119,0)"
^XMB(3.9,126,2,2118,0)=" K ^TMP($J,""RA PROCEDURES"")"
^XMB(3.9,126,2,2119,0)="""RTN"",""RAWRVUP"",120,0)"
^XMB(3.9,126,2,2120,0)=" Q"
^XMB(3.9,126,2,2121,0)="""RTN"",""RAWRVUP"",121,0)"
^XMB(3.9,126,2,2122,0)=" ;"
^XMB(3.9,126,2,2123,0)="""RTN"",""RAWRVUP"",122,0)"
^XMB(3.9,126,2,2124,0)="SFCTR(RAITYP,RAYEAR) ;return the calendar year specific scaling factor for a"
^XMB(3.9,126,2,2125,0)="""RTN"",""RAWRVUP"",123,0)"
^XMB(3.9,126,2,2126,0)=" ;specific imaging type"
^XMB(3.9,126,2,2127,0)="""RTN"",""RAWRVUP"",124,0)"
^XMB(3.9,126,2,2128,0)=" ;input: RAITYP=imaging type"
^XMB(3.9,126,2,2129,0)="""RTN"",""RAWRVUP"",125,0)"
^XMB(3.9,126,2,2130,0)=" ;       RAYEAR=internal FM date/time format; resolves to current year"
^XMB(3.9,126,2,2131,0)="""RTN"",""RAWRVUP"",126,0)"
^XMB(3.9,126,2,2132,0)=" ;return: calendar year specific scaling factor"
^XMB(3.9,126,2,2133,0)="""RTN"",""RAWRVUP"",127,0)"
^XMB(3.9,126,2,2134,0)=" N RASF,RAYR S RAYEAR=$G(RAYEAR,DT) ;default to DT (current year)"
^XMB(3.9,126,2,2135,0)="""RTN"",""RAWRVUP"",128,0)"
^XMB(3.9,126,2,2136,0)=" S (RAYEAR,RAYR)=$E(RAYEAR,1,3)+1700"
^XMB(3.9,126,2,2137,0)="""RTN"",""RAWRVUP"",129,0)"
^XMB(3.9,126,2,2138,0)=" S RASF=+$O(^RA(79.2,RAITYP,""CY"",""B"",RAYEAR,0))"
^XMB(3.9,126,2,2139,0)="""RTN"",""RAWRVUP"",130,0)"
^XMB(3.9,126,2,2140,0)=" ;if RASF=0 for the current year, check for the most recent year"
^XMB(3.9,126,2,2141,0)="""RTN"",""RAWRVUP"",131,0)"
^XMB(3.9,126,2,2142,0)=" I RASF=0 D"
^XMB(3.9,126,2,2143,0)="""RTN"",""RAWRVUP"",132,0)"
^XMB(3.9,126,2,2144,0)=" .S RAYEAR=+$O(^RA(79.2,1,""CY"",""B"",RAYEAR),-1)"
^XMB(3.9,126,2,2145,0)="""RTN"",""RAWRVUP"",133,0)"
^XMB(3.9,126,2,2146,0)=" .S RASF=+$O(^RA(79.2,RAITYP,""CY"",""B"",RAYEAR,0))"
^XMB(3.9,126,2,2147,0)="""RTN"",""RAWRVUP"",134,0)"
^XMB(3.9,126,2,2148,0)=" .Q"
^XMB(3.9,126,2,2149,0)="""RTN"",""RAWRVUP"",135,0)"
^XMB(3.9,126,2,2150,0)=" S RASF=+$P($G(^RA(79.2,RAITYP,""CY"",RASF,0)),U,2)"
^XMB(3.9,126,2,2151,0)="""RTN"",""RAWRVUP"",136,0)"
^XMB(3.9,126,2,2152,0)=" S:RASF=0 RASF=1 ;defaults to one"
^XMB(3.9,126,2,2153,0)="""RTN"",""RAWRVUP"",137,0)"
^XMB(3.9,126,2,2154,0)=" Q $J(RASF,$L(RASF),2)_$S(RAYR:"" (""_RAYR_"")"",1:"""")"
^XMB(3.9,126,2,2155,0)="""RTN"",""RAWRVUP"",138,0)"
^XMB(3.9,126,2,2156,0)=" ;"
^XMB(3.9,126,2,2157,0)="""UP"",79.2,79.22,-1)"
^XMB(3.9,126,2,2158,0)="79.2^CY"
^XMB(3.9,126,2,2159,0)="""UP"",79.2,79.22,0)"
^XMB(3.9,126,2,2160,0)="79.22"
^XMB(3.9,126,2,2161,0)="""VER"")"
^XMB(3.9,126,2,2162,0)="8.0^22.0"
^XMB(3.9,126,2,2163,0)="""^DD"",79.2,79.2,200,0)"
^XMB(3.9,126,2,2164,0)="WORK RVU (wRVU) SCALING FACTOR^79.22A^^CY;0"
^XMB(3.9,126,2,2165,0)="""^DD"",79.2,79.2,200,21,0)"
^XMB(3.9,126,2,2166,0)="^.001^2^2^3051118^^^^"
^XMB(3.9,126,2,2167,0)="""^DD"",79.2,79.2,200,21,1,0)"
^XMB(3.9,126,2,2168,0)="Identifies the 'Society of Chairmen in Academic Radiology Departments' "
^XMB(3.9,126,2,2169,0)="""^DD"",79.2,79.2,200,21,2,0)"
^XMB(3.9,126,2,2170,0)="(SCARD) scaling factor for a specific imaging type by calendar year. "
^XMB(3.9,126,2,2171,0)="""^DD"",79.2,79.22,0)"
^XMB(3.9,126,2,2172,0)="WORK RVU (wRVU) SCALING FACTOR SUB-FIELD^^2^2"
^XMB(3.9,126,2,2173,0)="""^DD"",79.2,79.22,0,""DT"")"
^XMB(3.9,126,2,2174,0)="3051118"
^XMB(3.9,126,2,2175,0)="""^DD"",79.2,79.22,0,""IX"",""B"",79.22,.01)"
^XMB(3.9,126,2,2176,0)=""
^XMB(3.9,126,2,2177,0)="""^DD"",79.2,79.22,0,""NM"",""WORK RVU (wRVU) SCALING FACTOR"")"
^XMB(3.9,126,2,2178,0)=""
^XMB(3.9,126,2,2179,0)="""^DD"",79.2,79.22,0,""UP"")"
^XMB(3.9,126,2,2180,0)="79.2"
^XMB(3.9,126,2,2181,0)="""^DD"",79.2,79.22,.01,0)"
^XMB(3.9,126,2,2182,0)="CALENDAR YEAR^NJ4,0^^0;1^K:+X'=X!(X>2099)!(X<1980)!(X?.E1"".""1N.N) X"
^XMB(3.9,126,2,2183,0)="""^DD"",79.2,79.22,.01,1,0)"
^XMB(3.9,126,2,2184,0)="^.1"
^XMB(3.9,126,2,2185,0)="""^DD"",79.2,79.22,.01,1,1,0)"
^XMB(3.9,126,2,2186,0)="79.22^B"
^XMB(3.9,126,2,2187,0)="""^DD"",79.2,79.22,.01,1,1,1)"
^XMB(3.9,126,2,2188,0)="S ^RA(79.2,DA(1),""CY"",""B"",$E(X,1,30),DA)="""""
^XMB(3.9,126,2,2189,0)="""^DD"",79.2,79.22,.01,1,1,2)"
^XMB(3.9,126,2,2190,0)="K ^RA(79.2,DA(1),""CY"",""B"",$E(X,1,30),DA)"
^XMB(3.9,126,2,2191,0)="""^DD"",79.2,79.22,.01,3)"
^XMB(3.9,126,2,2192,0)="Enter a four digit calendar year between 1980 and 2099."
^XMB(3.9,126,2,2193,0)="""^DD"",79.2,79.22,.01,21,0)"
^XMB(3.9,126,2,2194,0)="^^3^3^3051118^"
^XMB(3.9,126,2,2195,0)="""^DD"",79.2,79.22,.01,21,1,0)"
^XMB(3.9,126,2,2196,0)="This field identifies the calendar year to associate a specific 'Society"
^XMB(3.9,126,2,2197,0)="""^DD"",79.2,79.22,.01,21,2,0)"
^XMB(3.9,126,2,2198,0)="of Chairmen in Academic Radiology Departments' (SCARD) scaling factor to "
^XMB(3.9,126,2,2199,0)="""^DD"",79.2,79.22,.01,21,3,0)"
^XMB(3.9,126,2,2200,0)="imaging type specific procedures with an associated wRVU value."
^XMB(3.9,126,2,2201,0)="""^DD"",79.2,79.22,.01,""DT"")"
^XMB(3.9,126,2,2202,0)="3051118"
^XMB(3.9,126,2,2203,0)="""^DD"",79.2,79.22,2,0)"
^XMB(3.9,126,2,2204,0)="SCALING FACTOR^NJ5,2^^0;2^K:+X'=X!(X>99.99)!(X<0)!(X?.E1"".""3N.N) X"
^XMB(3.9,126,2,2205,0)="""^DD"",79.2,79.22,2,3)"
^XMB(3.9,126,2,2206,0)="This is the scaling factor to be applied to a wRVU value for this imaging type."
^XMB(3.9,126,2,2207,0)="""^DD"",79.2,79.22,2,21,0)"
^XMB(3.9,126,2,2208,0)="^^2^2^3051118^"
^XMB(3.9,126,2,2209,0)="""^DD"",79.2,79.22,2,21,1,0)"
^XMB(3.9,126,2,2210,0)="This field identifies the appropriate scaling factor applied to the wRVU"
^XMB(3.9,126,2,2211,0)="""^DD"",79.2,79.22,2,21,2,0)"
^XMB(3.9,126,2,2212,0)="value for an imaging type specific rad/nuc med procedure."
^XMB(3.9,126,2,2213,0)="""^DD"",79.2,79.22,2,""DT"")"
^XMB(3.9,126,2,2214,0)="3051118"
^XMB(3.9,126,2,2215,0)="""BLD"",5940,6)"
^XMB(3.9,126,2,2216,0)="^60"
^XMB(3.9,126,2,2217,0)="$END KID RA*5.0*64"
^XMB(3.9,126,6,0)="^3.911A^2^2"
^XMB(3.9,126,6,1,0)="POSTMASTER"
^XMB(3.9,126,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,126,6,"B","POSTMASTER",1)=""
^XMB(3.9,126,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,127,0)="RA-5_SEQ-61_PAT-72.KID^.5^3061008.015742^^^^K"
^XMB(3.9,127,.6)="3061008"
^XMB(3.9,127,1,0)="^3.91A^2^2"
^XMB(3.9,127,1,1,0)=".5^0^3061008.015742^^^^^^^3061008.015742"
^XMB(3.9,127,1,2,0)="1^0^3061008.022612^^^^^^^3061008.022612"
^XMB(3.9,127,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,127,1,"C",.5,1)=""
^XMB(3.9,127,1,"C",1,2)=""
^XMB(3.9,127,2,0)="^^553^553^3061008"
^XMB(3.9,127,2,1,0)="$TXT Released RA*5*72 SEQ #61"
^XMB(3.9,127,2,2,0)="Extracted from mail message"
^XMB(3.9,127,2,3,0)="$END TXT"
^XMB(3.9,127,2,4,0)="$KID RA*5.0*72"
^XMB(3.9,127,2,5,0)="**INSTALL NAME**"
^XMB(3.9,127,2,6,0)="RA*5.0*72"
^XMB(3.9,127,2,7,0)="""BLD"",6008,0)"
^XMB(3.9,127,2,8,0)="RA*5.0*72^RADIOLOGY/NUCLEAR MEDICINE^0^3060330^y"
^XMB(3.9,127,2,9,0)="""BLD"",6008,1,0)"
^XMB(3.9,127,2,10,0)="^^1^1^3060323^"
^XMB(3.9,127,2,11,0)="""BLD"",6008,1,1,0)"
^XMB(3.9,127,2,12,0)="CORRECT UNDEF ERROR DURING RAD PATIENT REG"
^XMB(3.9,127,2,13,0)="""BLD"",6008,4,0)"
^XMB(3.9,127,2,14,0)="^9.64PA^^"
^XMB(3.9,127,2,15,0)="""BLD"",6008,6.3)"
^XMB(3.9,127,2,16,0)="8"
^XMB(3.9,127,2,17,0)="""BLD"",6008,""INIT"")"
^XMB(3.9,127,2,18,0)=""
^XMB(3.9,127,2,19,0)="""BLD"",6008,""KRN"",0)"
^XMB(3.9,127,2,20,0)="^9.67PA^8989.52^19"
^XMB(3.9,127,2,21,0)="""BLD"",6008,""KRN"",.4,0)"
^XMB(3.9,127,2,22,0)=".4"
^XMB(3.9,127,2,23,0)="""BLD"",6008,""KRN"",.401,0)"
^XMB(3.9,127,2,24,0)=".401"
^XMB(3.9,127,2,25,0)="""BLD"",6008,""KRN"",.402,0)"
^XMB(3.9,127,2,26,0)=".402"
^XMB(3.9,127,2,27,0)="""BLD"",6008,""KRN"",.403,0)"
^XMB(3.9,127,2,28,0)=".403"
^XMB(3.9,127,2,29,0)="""BLD"",6008,""KRN"",.5,0)"
^XMB(3.9,127,2,30,0)=".5"
^XMB(3.9,127,2,31,0)="""BLD"",6008,""KRN"",.84,0)"
^XMB(3.9,127,2,32,0)=".84"
^XMB(3.9,127,2,33,0)="""BLD"",6008,""KRN"",3.6,0)"
^XMB(3.9,127,2,34,0)="3.6"
^XMB(3.9,127,2,35,0)="""BLD"",6008,""KRN"",3.8,0)"
^XMB(3.9,127,2,36,0)="3.8"
^XMB(3.9,127,2,37,0)="""BLD"",6008,""KRN"",9.2,0)"
^XMB(3.9,127,2,38,0)="9.2"
^XMB(3.9,127,2,39,0)="""BLD"",6008,""KRN"",9.8,0)"
^XMB(3.9,127,2,40,0)="9.8"
^XMB(3.9,127,2,41,0)="""BLD"",6008,""KRN"",9.8,""NM"",0)"
^XMB(3.9,127,2,42,0)="^9.68A^1^1"
^XMB(3.9,127,2,43,0)="""BLD"",6008,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,127,2,44,0)="RAUTL8^^0^38825839"
^XMB(3.9,127,2,45,0)="""BLD"",6008,""KRN"",9.8,""NM"",""B"",""RAUTL8"",1)"
^XMB(3.9,127,2,46,0)=""
^XMB(3.9,127,2,47,0)="""BLD"",6008,""KRN"",19,0)"
^XMB(3.9,127,2,48,0)="19"
^XMB(3.9,127,2,49,0)="""BLD"",6008,""KRN"",19.1,0)"
^XMB(3.9,127,2,50,0)="19.1"
^XMB(3.9,127,2,51,0)="""BLD"",6008,""KRN"",101,0)"
^XMB(3.9,127,2,52,0)="101"
^XMB(3.9,127,2,53,0)="""BLD"",6008,""KRN"",409.61,0)"
^XMB(3.9,127,2,54,0)="409.61"
^XMB(3.9,127,2,55,0)="""BLD"",6008,""KRN"",771,0)"
^XMB(3.9,127,2,56,0)="771"
^XMB(3.9,127,2,57,0)="""BLD"",6008,""KRN"",870,0)"
^XMB(3.9,127,2,58,0)="870"
^XMB(3.9,127,2,59,0)="""BLD"",6008,""KRN"",8989.51,0)"
^XMB(3.9,127,2,60,0)="8989.51"
^XMB(3.9,127,2,61,0)="""BLD"",6008,""KRN"",8989.52,0)"
^XMB(3.9,127,2,62,0)="8989.52"
^XMB(3.9,127,2,63,0)="""BLD"",6008,""KRN"",8994,0)"
^XMB(3.9,127,2,64,0)="8994"
^XMB(3.9,127,2,65,0)="""BLD"",6008,""KRN"",""B"",.4,.4)"
^XMB(3.9,127,2,66,0)=""
^XMB(3.9,127,2,67,0)="""BLD"",6008,""KRN"",""B"",.401,.401)"
^XMB(3.9,127,2,68,0)=""
^XMB(3.9,127,2,69,0)="""BLD"",6008,""KRN"",""B"",.402,.402)"
^XMB(3.9,127,2,70,0)=""
^XMB(3.9,127,2,71,0)="""BLD"",6008,""KRN"",""B"",.403,.403)"
^XMB(3.9,127,2,72,0)=""
^XMB(3.9,127,2,73,0)="""BLD"",6008,""KRN"",""B"",.5,.5)"
^XMB(3.9,127,2,74,0)=""
^XMB(3.9,127,2,75,0)="""BLD"",6008,""KRN"",""B"",.84,.84)"
^XMB(3.9,127,2,76,0)=""
^XMB(3.9,127,2,77,0)="""BLD"",6008,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,127,2,78,0)=""
^XMB(3.9,127,2,79,0)="""BLD"",6008,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,127,2,80,0)=""
^XMB(3.9,127,2,81,0)="""BLD"",6008,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,127,2,82,0)=""
^XMB(3.9,127,2,83,0)="""BLD"",6008,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,127,2,84,0)=""
^XMB(3.9,127,2,85,0)="""BLD"",6008,""KRN"",""B"",19,19)"
^XMB(3.9,127,2,86,0)=""
^XMB(3.9,127,2,87,0)="""BLD"",6008,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,127,2,88,0)=""
^XMB(3.9,127,2,89,0)="""BLD"",6008,""KRN"",""B"",101,101)"
^XMB(3.9,127,2,90,0)=""
^XMB(3.9,127,2,91,0)="""BLD"",6008,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,127,2,92,0)=""
^XMB(3.9,127,2,93,0)="""BLD"",6008,""KRN"",""B"",771,771)"
^XMB(3.9,127,2,94,0)=""
^XMB(3.9,127,2,95,0)="""BLD"",6008,""KRN"",""B"",870,870)"
^XMB(3.9,127,2,96,0)=""
^XMB(3.9,127,2,97,0)="""BLD"",6008,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,127,2,98,0)=""
^XMB(3.9,127,2,99,0)="""BLD"",6008,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,127,2,100,0)=""
^XMB(3.9,127,2,101,0)="""BLD"",6008,""KRN"",""B"",8994,8994)"
^XMB(3.9,127,2,102,0)=""
^XMB(3.9,127,2,103,0)="""BLD"",6008,""QUES"",0)"
^XMB(3.9,127,2,104,0)="^9.62^^"
^XMB(3.9,127,2,105,0)="""BLD"",6008,""REQB"",0)"
^XMB(3.9,127,2,106,0)="^9.611^1^1"
^XMB(3.9,127,2,107,0)="""BLD"",6008,""REQB"",1,0)"
^XMB(3.9,127,2,108,0)="RA*5.0*45^1"
^XMB(3.9,127,2,109,0)="""BLD"",6008,""REQB"",""B"",""RA*5.0*45"",1)"
^XMB(3.9,127,2,110,0)=""
^XMB(3.9,127,2,111,0)="""MBREQ"")"
^XMB(3.9,127,2,112,0)="0"
^XMB(3.9,127,2,113,0)="""PKG"",18,-1)"
^XMB(3.9,127,2,114,0)="1^1"
^XMB(3.9,127,2,115,0)="""PKG"",18,0)"
^XMB(3.9,127,2,116,0)="RADIOLOGY/NUCLEAR MEDICINE^RA^REGISTERS PATIENTS,RECORDS EXAMS,PROFILES,AMIS REPORTS"
^XMB(3.9,127,2,117,0)="""PKG"",18,20,0)"
^XMB(3.9,127,2,118,0)="^9.402P^^"
^XMB(3.9,127,2,119,0)="""PKG"",18,22,0)"
^XMB(3.9,127,2,120,0)="^9.49I^1^1"
^XMB(3.9,127,2,121,0)="""PKG"",18,22,1,0)"
^XMB(3.9,127,2,122,0)="5.0^3051109^2980407^50"
^XMB(3.9,127,2,123,0)="""PKG"",18,22,1,""PAH"",1,0)"
^XMB(3.9,127,2,124,0)="72^3060330"
^XMB(3.9,127,2,125,0)="""PKG"",18,22,1,""PAH"",1,1,0)"
^XMB(3.9,127,2,126,0)="^^1^1^3060330"
^XMB(3.9,127,2,127,0)="""PKG"",18,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,127,2,128,0)="CORRECT UNDEF ERROR DURING RAD PATIENT REG"
^XMB(3.9,127,2,129,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,127,2,130,0)="Y"
^XMB(3.9,127,2,131,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,127,2,132,0)="^D REP^XPDH"
^XMB(3.9,127,2,133,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,127,2,134,0)="Shall I write over your |FLAG| File"
^XMB(3.9,127,2,135,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,127,2,136,0)="YES"
^XMB(3.9,127,2,137,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,127,2,138,0)="D XPF1^XPDIQ"
^XMB(3.9,127,2,139,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,127,2,140,0)="Y"
^XMB(3.9,127,2,141,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,127,2,142,0)="^D DTA^XPDH"
^XMB(3.9,127,2,143,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,127,2,144,0)="Want my data |FLAG| yours"
^XMB(3.9,127,2,145,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,127,2,146,0)="YES"
^XMB(3.9,127,2,147,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,127,2,148,0)="D XPF2^XPDIQ"
^XMB(3.9,127,2,149,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,127,2,150,0)="YO"
^XMB(3.9,127,2,151,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,127,2,152,0)="^D INHIBIT^XPDH"
^XMB(3.9,127,2,153,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,127,2,154,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,127,2,155,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,127,2,156,0)="YES"
^XMB(3.9,127,2,157,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,127,2,158,0)="D XPI1^XPDIQ"
^XMB(3.9,127,2,159,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,127,2,160,0)="PO^VA(200,:EM"
^XMB(3.9,127,2,161,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,127,2,162,0)="^D MG^XPDH"
^XMB(3.9,127,2,163,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,127,2,164,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,127,2,165,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,127,2,166,0)=""
^XMB(3.9,127,2,167,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,127,2,168,0)="D XPM1^XPDIQ"
^XMB(3.9,127,2,169,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,127,2,170,0)="Y"
^XMB(3.9,127,2,171,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,127,2,172,0)="^D MENU^XPDH"
^XMB(3.9,127,2,173,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,127,2,174,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,127,2,175,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,127,2,176,0)="YES"
^XMB(3.9,127,2,177,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,127,2,178,0)="D XPO1^XPDIQ"
^XMB(3.9,127,2,179,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,127,2,180,0)="Y"
^XMB(3.9,127,2,181,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,127,2,182,0)="^D OPT^XPDH"
^XMB(3.9,127,2,183,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,127,2,184,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,127,2,185,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,127,2,186,0)="YES"
^XMB(3.9,127,2,187,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,127,2,188,0)="D XPZ1^XPDIQ"
^XMB(3.9,127,2,189,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,127,2,190,0)="Y"
^XMB(3.9,127,2,191,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,127,2,192,0)="^D RTN^XPDH"
^XMB(3.9,127,2,193,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,127,2,194,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,127,2,195,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,127,2,196,0)="NO"
^XMB(3.9,127,2,197,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,127,2,198,0)="D XPZ2^XPDIQ"
^XMB(3.9,127,2,199,0)="""RTN"")"
^XMB(3.9,127,2,200,0)="1"
^XMB(3.9,127,2,201,0)="""RTN"",""RAUTL8"")"
^XMB(3.9,127,2,202,0)="0^1^B38825839^B35832037"
^XMB(3.9,127,2,203,0)="""RTN"",""RAUTL8"",1,0)"
^XMB(3.9,127,2,204,0)="RAUTL8 ;HISC/CAH-Utility routines ;10/3/97  16:02"
^XMB(3.9,127,2,205,0)="""RTN"",""RAUTL8"",2,0)"
^XMB(3.9,127,2,206,0)=" ;;5.0;Radiology/Nuclear Medicine;**45,72**;Mar 16, 1998"
^XMB(3.9,127,2,207,0)="""RTN"",""RAUTL8"",3,0)"
^XMB(3.9,127,2,208,0)=" ;"
^XMB(3.9,127,2,209,0)="""RTN"",""RAUTL8"",4,0)"
^XMB(3.9,127,2,210,0)=" ;Called by File 70, Exam subfile, Procedure Fld 2 Input transform"
^XMB(3.9,127,2,211,0)="""RTN"",""RAUTL8"",5,0)"
^XMB(3.9,127,2,212,0)=" ;RA*5*45: modified -  logic in PRC1, ASK, ASK1, & MES1 subroutines"
^XMB(3.9,127,2,213,0)="""RTN"",""RAUTL8"",6,0)"
^XMB(3.9,127,2,214,0)=" ;          removed -  MES subroutine"
^XMB(3.9,127,2,215,0)="""RTN"",""RAUTL8"",7,0)"
^XMB(3.9,127,2,216,0)=" ;RA*5*72 03/23/2006 BAY/GJC/KAM Remedy Call 136200 Correct UNDEF issue"
^XMB(3.9,127,2,217,0)="""RTN"",""RAUTL8"",8,0)"
^XMB(3.9,127,2,218,0)=" ;"
^XMB(3.9,127,2,219,0)="""RTN"",""RAUTL8"",9,0)"
^XMB(3.9,127,2,220,0)="PRC G PRC1:'$D(^RADPT(DA(2),""DT"",""AP"",X)) ; check for C.M. reaction"
^XMB(3.9,127,2,221,0)="""RTN"",""RAUTL8"",10,0)"
^XMB(3.9,127,2,222,0)=" N RADUP S RADUP=+$$DPDT^RAUTL8(X,.DA)"
^XMB(3.9,127,2,223,0)="""RTN"",""RAUTL8"",11,0)"
^XMB(3.9,127,2,224,0)=" I RADUP D ASK Q:'$D(X)"
^XMB(3.9,127,2,225,0)="""RTN"",""RAUTL8"",12,0)"
^XMB(3.9,127,2,226,0)="PRC1 ; Check for C.M. reaction on this patient"
^XMB(3.9,127,2,227,0)="""RTN"",""RAUTL8"",13,0)"
^XMB(3.9,127,2,228,0)=" ; +X is the IEN of the Rad/Nuc Med Procedure in file 71"
^XMB(3.9,127,2,229,0)="""RTN"",""RAUTL8"",14,0)"
^XMB(3.9,127,2,230,0)=" ; RA*5*72 - Changed next line to preserve variables"
^XMB(3.9,127,2,231,0)="""RTN"",""RAUTL8"",15,0)"
^XMB(3.9,127,2,232,0)=" N RAGMRAOR S RAGMRAOR=$$GMRAOR(DA(2)) Q:RAGMRAOR'=1"
^XMB(3.9,127,2,233,0)="""RTN"",""RAUTL8"",16,0)"
^XMB(3.9,127,2,234,0)=" D CONTRAST^RAUTL2(+X) ;displays contrast(s) associated with procedure"
^XMB(3.9,127,2,235,0)="""RTN"",""RAUTL8"",17,0)"
^XMB(3.9,127,2,236,0)=" ;use RAPMSG for CONTRAST REACTION MESSAGE field 25, file 79"
^XMB(3.9,127,2,237,0)="""RTN"",""RAUTL8"",18,0)"
^XMB(3.9,127,2,238,0)=" S RAPMSG=$G(^RA(79,+$P(^RADPT(DA(2),""DT"",DA(1),0),""^"",3),""CON""))"
^XMB(3.9,127,2,239,0)="""RTN"",""RAUTL8"",19,0)"
^XMB(3.9,127,2,240,0)=" D:RAPMSG'="""" EN^DDIOL(""...""_RAPMSG_""..."","""",""!?3"")"
^XMB(3.9,127,2,241,0)="""RTN"",""RAUTL8"",20,0)"
^XMB(3.9,127,2,242,0)=" D EN^DDIOL("""","""",""!"") ;line feed"
^XMB(3.9,127,2,243,0)="""RTN"",""RAUTL8"",21,0)"
^XMB(3.9,127,2,244,0)=" K RAPMSG"
^XMB(3.9,127,2,245,0)="""RTN"",""RAUTL8"",22,0)"
^XMB(3.9,127,2,246,0)=" D:$P($G(^RAMIS(71,+X,0)),U,20)=""Y"" MES1 ;message only if CM used"
^XMB(3.9,127,2,247,0)="""RTN"",""RAUTL8"",23,0)"
^XMB(3.9,127,2,248,0)=" Q"
^XMB(3.9,127,2,249,0)="""RTN"",""RAUTL8"",24,0)"
^XMB(3.9,127,2,250,0)="ASK ; Prompt user for yes/no response"
^XMB(3.9,127,2,251,0)="""RTN"",""RAUTL8"",25,0)"
^XMB(3.9,127,2,252,0)=" N RAX D EN^DDIOL(""Procedure is already entered for this date. Is it ok to continue? No// "","""",""!!?3"")"
^XMB(3.9,127,2,253,0)="""RTN"",""RAUTL8"",26,0)"
^XMB(3.9,127,2,254,0)="ASK1 R RAX:DTIME"
^XMB(3.9,127,2,255,0)="""RTN"",""RAUTL8"",27,0)"
^XMB(3.9,127,2,256,0)=" S:'$T!(RAX="""")!(RAX[""^"")!(""Nn""[$E(RAX)) RAX=""N"""
^XMB(3.9,127,2,257,0)="""RTN"",""RAUTL8"",28,0)"
^XMB(3.9,127,2,258,0)=" K:RAX=""N"" X Q:'$D(X)"
^XMB(3.9,127,2,259,0)="""RTN"",""RAUTL8"",29,0)"
^XMB(3.9,127,2,260,0)=" I ""Yy""'[$E(RAX) S RAPMSG(1)=""Enter 'YES' to register patient for this procedure, or 'NO' to edit the"",RAPMSG(2)=""above procedure. No// "",RAPMSG(1,""F"")=""!!?3"",RAPMSG(2,""F"")=""!?3"" D EN^DDIOL(.RAPMSG) K RAPMSG G ASK1"
^XMB(3.9,127,2,261,0)="""RTN"",""RAUTL8"",30,0)"
^XMB(3.9,127,2,262,0)=" Q"
^XMB(3.9,127,2,263,0)="""RTN"",""RAUTL8"",31,0)"
^XMB(3.9,127,2,264,0)=" ;"
^XMB(3.9,127,2,265,0)="""RTN"",""RAUTL8"",32,0)"
^XMB(3.9,127,2,266,0)="MES1 ; display procedure acceptance message"
^XMB(3.9,127,2,267,0)="""RTN"",""RAUTL8"",33,0)"
^XMB(3.9,127,2,268,0)=" R !?5,""...Type 'OK' to acknowledge or '^' to select another procedure   ==> "",RAX:DTIME"
^XMB(3.9,127,2,269,0)="""RTN"",""RAUTL8"",34,0)"
^XMB(3.9,127,2,270,0)=" S RAX=$$UP^XLFSTR(RAX)"
^XMB(3.9,127,2,271,0)="""RTN"",""RAUTL8"",35,0)"
^XMB(3.9,127,2,272,0)=" I '$T!(RAX[""^"")!(RAX=""OK"") K:RAX'=""OK"" X K RAX,RAI Q"
^XMB(3.9,127,2,273,0)="""RTN"",""RAUTL8"",36,0)"
^XMB(3.9,127,2,274,0)=" G MES1"
^XMB(3.9,127,2,275,0)="""RTN"",""RAUTL8"",37,0)"
^XMB(3.9,127,2,276,0)=" ;"
^XMB(3.9,127,2,277,0)="""RTN"",""RAUTL8"",38,0)"
^XMB(3.9,127,2,278,0)="STATSEL ;Select one or more order statuses"
^XMB(3.9,127,2,279,0)="""RTN"",""RAUTL8"",39,0)"
^XMB(3.9,127,2,280,0)=" ;INPUT VARIABLES:"
^XMB(3.9,127,2,281,0)="""RTN"",""RAUTL8"",40,0)"
^XMB(3.9,127,2,282,0)=" ;   RANO() array contains status codes prohibited from selection"
^XMB(3.9,127,2,283,0)="""RTN"",""RAUTL8"",41,0)"
^XMB(3.9,127,2,284,0)=" ;OUTPUT VARIABLES:"
^XMB(3.9,127,2,285,0)="""RTN"",""RAUTL8"",42,0)"
^XMB(3.9,127,2,286,0)=" ;   RAST is a string of status codes selected (ex: 1^3^8)"
^XMB(3.9,127,2,287,0)="""RTN"",""RAUTL8"",43,0)"
^XMB(3.9,127,2,288,0)=" ;   RAORST() is an array of selected status codes and status names"
^XMB(3.9,127,2,289,0)="""RTN"",""RAUTL8"",44,0)"
^XMB(3.9,127,2,290,0)=" ;     (ex:   RAORST(1)=""DISCONTINUED"", RAORST(3)=""HOLD"", ... )"
^XMB(3.9,127,2,291,0)="""RTN"",""RAUTL8"",45,0)"
^XMB(3.9,127,2,292,0)=" K RAST,RAORST W ! S RAORSTS=$P(^DD(75.1,5,0),U,3) F I=1:1 S X=$P(RAORSTS,"";"",I) Q:X=""""  S X1=$P(X,"":"",1) I '$D(RANO(X1)) S X2=$P(X,"":"",2),RAORST(X1)=X2"
^XMB(3.9,127,2,293,0)="""RTN"",""RAUTL8"",46,0)"
^XMB(3.9,127,2,294,0)=" W !!,""Select statuses to include on report."",! S X1="""" F  S X1=$O(RAORST(X1)) Q:X1=""""  W !?5,$J(X1,2,0)_""   ""_RAORST(X1)"
^XMB(3.9,127,2,295,0)="""RTN"",""RAUTL8"",47,0)"
^XMB(3.9,127,2,296,0)="STAT W ! K DIR S DIR(0)=""L"" D ^DIR Q:'$D(Y(0))"
^XMB(3.9,127,2,297,0)="""RTN"",""RAUTL8"",48,0)"
^XMB(3.9,127,2,298,0)=" S RAST="""" F I=1:1 S RASTX=$P(Y(0),"","",I) Q:RASTX=""""  I $D(RAORST(RASTX)) S RAST=RAST_""^""_RASTX"
^XMB(3.9,127,2,299,0)="""RTN"",""RAUTL8"",49,0)"
^XMB(3.9,127,2,300,0)=" S RAST=$E(RAST,2,99) I RAST="""" W !,""  ?? Sorry, invalid status selection.  Please try again."",! G STAT"
^XMB(3.9,127,2,301,0)="""RTN"",""RAUTL8"",50,0)"
^XMB(3.9,127,2,302,0)=" S I="""" F  S I=$O(RAORST(I)) Q:I=""""  I RAST'[I K RAORST(I)"
^XMB(3.9,127,2,303,0)="""RTN"",""RAUTL8"",51,0)"
^XMB(3.9,127,2,304,0)=" K RASTX,I,X,X1,X2 Q"
^XMB(3.9,127,2,305,0)="""RTN"",""RAUTL8"",52,0)"
^XMB(3.9,127,2,306,0)=" ;"
^XMB(3.9,127,2,307,0)="""RTN"",""RAUTL8"",53,0)"
^XMB(3.9,127,2,308,0)=" ;INPUT TRANSFORM FOR SECONDARY INTERPRETING RESIDENT"
^XMB(3.9,127,2,309,0)="""RTN"",""RAUTL8"",54,0)"
^XMB(3.9,127,2,310,0)="S() ; do not enter primary OR SAME SEC in secondary interpreting resident"
^XMB(3.9,127,2,311,0)="""RTN"",""RAUTL8"",55,0)"
^XMB(3.9,127,2,312,0)=" I '$D(X)!('$D(DA(3))) G S2"
^XMB(3.9,127,2,313,0)="""RTN"",""RAUTL8"",56,0)"
^XMB(3.9,127,2,314,0)=" I '$D(^RADPT(DA(3),""DT"",DA(2),""P"",DA(1),0)) G S2"
^XMB(3.9,127,2,315,0)="""RTN"",""RAUTL8"",57,0)"
^XMB(3.9,127,2,316,0)=" I $D(^RADPT(DA(3),""DT"",DA(2),""P"",DA(1),""SRR"",""B"",+Y)) Q 0 ;SAME SEC RES"
^XMB(3.9,127,2,317,0)="""RTN"",""RAUTL8"",58,0)"
^XMB(3.9,127,2,318,0)=" I $P(^RADPT(DA(3),""DT"",DA(2),""P"",DA(1),0),""^"",12)=+Y Q 0"
^XMB(3.9,127,2,319,0)="""RTN"",""RAUTL8"",59,0)"
^XMB(3.9,127,2,320,0)=" Q 1"
^XMB(3.9,127,2,321,0)="""RTN"",""RAUTL8"",60,0)"
^XMB(3.9,127,2,322,0)="S2 I '$D(^RADPT(DA(2),""DT"",DA(1),""P"",DA,0)) Q 0"
^XMB(3.9,127,2,323,0)="""RTN"",""RAUTL8"",61,0)"
^XMB(3.9,127,2,324,0)=" I $D(^RADPT(DA(2),""DT"",DA(1),""P"",DA,""SRR"",""B"",+Y)) Q 0 ;SAME SEC RES"
^XMB(3.9,127,2,325,0)="""RTN"",""RAUTL8"",62,0)"
^XMB(3.9,127,2,326,0)=" I $P(^RADPT(DA(2),""DT"",DA(1),""P"",DA,0),""^"",12)=+Y Q 0"
^XMB(3.9,127,2,327,0)="""RTN"",""RAUTL8"",63,0)"
^XMB(3.9,127,2,328,0)=" Q 1"
^XMB(3.9,127,2,329,0)="""RTN"",""RAUTL8"",64,0)"
^XMB(3.9,127,2,330,0)=" ;INPUT TRANSFORM FOR SECONDARY INTERPRETING STAFF"
^XMB(3.9,127,2,331,0)="""RTN"",""RAUTL8"",65,0)"
^XMB(3.9,127,2,332,0)="SSR() ; do not enter primary OR SAME SEC in secondary interpreting staff"
^XMB(3.9,127,2,333,0)="""RTN"",""RAUTL8"",66,0)"
^XMB(3.9,127,2,334,0)=" I '$D(X)!('$D(DA(3))) G SSR2"
^XMB(3.9,127,2,335,0)="""RTN"",""RAUTL8"",67,0)"
^XMB(3.9,127,2,336,0)=" I '$D(^RADPT(DA(3),""DT"",DA(2),""P"",DA(1),0)) G SSR2"
^XMB(3.9,127,2,337,0)="""RTN"",""RAUTL8"",68,0)"
^XMB(3.9,127,2,338,0)=" I $D(^RADPT(DA(3),""DT"",DA(2),""P"",DA(1),""SSR"",""B"",+Y)) Q 0 ;SAME SEC STF"
^XMB(3.9,127,2,339,0)="""RTN"",""RAUTL8"",69,0)"
^XMB(3.9,127,2,340,0)=" I $P(^RADPT(DA(3),""DT"",DA(2),""P"",DA(1),0),""^"",15)=+Y Q 0"
^XMB(3.9,127,2,341,0)="""RTN"",""RAUTL8"",70,0)"
^XMB(3.9,127,2,342,0)=" Q 1"
^XMB(3.9,127,2,343,0)="""RTN"",""RAUTL8"",71,0)"
^XMB(3.9,127,2,344,0)="SSR2 I '$D(^RADPT(DA(2),""DT"",DA(1),""P"",DA,0)) Q 0"
^XMB(3.9,127,2,345,0)="""RTN"",""RAUTL8"",72,0)"
^XMB(3.9,127,2,346,0)=" I $D(^RADPT(DA(2),""DT"",DA(1),""P"",DA,""SSR"",""B"",+Y)) Q 0 ;SAME SEC STF"
^XMB(3.9,127,2,347,0)="""RTN"",""RAUTL8"",73,0)"
^XMB(3.9,127,2,348,0)=" I $P(^RADPT(DA(2),""DT"",DA(1),""P"",DA,0),""^"",15)=+Y Q 0"
^XMB(3.9,127,2,349,0)="""RTN"",""RAUTL8"",74,0)"
^XMB(3.9,127,2,350,0)=" Q 1"
^XMB(3.9,127,2,351,0)="""RTN"",""RAUTL8"",75,0)"
^XMB(3.9,127,2,352,0)=" ;INPUT TRANSFORM FOR PRIMARY INTERPRETING RESIDENT"
^XMB(3.9,127,2,353,0)="""RTN"",""RAUTL8"",76,0)"
^XMB(3.9,127,2,354,0)=" ; *** NOT USED - See EN ***"
^XMB(3.9,127,2,355,0)="""RTN"",""RAUTL8"",77,0)"
^XMB(3.9,127,2,356,0)="PRRS() ; do not enter secondary into primary interpreting resident screen"
^XMB(3.9,127,2,357,0)="""RTN"",""RAUTL8"",78,0)"
^XMB(3.9,127,2,358,0)=" ; called from input transform ^DD(70.03,12,0)"
^XMB(3.9,127,2,359,0)="""RTN"",""RAUTL8"",79,0)"
^XMB(3.9,127,2,360,0)=" I $D(^RADPT(DA(2),""DT"",DA(1),""P"",DA,""SRR"",""B"",+Y)) Q 0"
^XMB(3.9,127,2,361,0)="""RTN"",""RAUTL8"",80,0)"
^XMB(3.9,127,2,362,0)=" Q 1"
^XMB(3.9,127,2,363,0)="""RTN"",""RAUTL8"",81,0)"
^XMB(3.9,127,2,364,0)=" ;INPUT TRANSFORM FOR PRIMARY INTERPRETING STAFF"
^XMB(3.9,127,2,365,0)="""RTN"",""RAUTL8"",82,0)"
^XMB(3.9,127,2,366,0)=" ; *** NOT USED - See EN ***"
^XMB(3.9,127,2,367,0)="""RTN"",""RAUTL8"",83,0)"
^XMB(3.9,127,2,368,0)="PSRS() ; do not enter secondary into primary interpreting staff screen"
^XMB(3.9,127,2,369,0)="""RTN"",""RAUTL8"",84,0)"
^XMB(3.9,127,2,370,0)=" ; called from input transform ^DD(70.03,15,0)"
^XMB(3.9,127,2,371,0)="""RTN"",""RAUTL8"",85,0)"
^XMB(3.9,127,2,372,0)=" I $D(^RADPT(DA(2),""DT"",DA(1),""P"",DA,""SSR"",""B"",+Y)) Q 0"
^XMB(3.9,127,2,373,0)="""RTN"",""RAUTL8"",86,0)"
^XMB(3.9,127,2,374,0)=" Q 1"
^XMB(3.9,127,2,375,0)="""RTN"",""RAUTL8"",87,0)"
^XMB(3.9,127,2,376,0)="EN(X,FLD,RA) ;Input transform screen for Primary Staff, Primary Res"
^XMB(3.9,127,2,377,0)="""RTN"",""RAUTL8"",88,0)"
^XMB(3.9,127,2,378,0)=" ;Used by fields 70.03,12 & 70.03,15.  If 'Primary' is found in"
^XMB(3.9,127,2,379,0)="""RTN"",""RAUTL8"",89,0)"
^XMB(3.9,127,2,380,0)=" ; the 'Secondary' multiple then delete the 'Secondary' entry."
^XMB(3.9,127,2,381,0)="""RTN"",""RAUTL8"",90,0)"
^XMB(3.9,127,2,382,0)=" ; X = 'Primary' IEN,  FLD = 'Secondary' mult. to check,  RA = DA array"
^XMB(3.9,127,2,383,0)="""RTN"",""RAUTL8"",91,0)"
^XMB(3.9,127,2,384,0)=" N DA,DEL,HDR,IEN,NODE,SAVEX,SUBDD,XREF"
^XMB(3.9,127,2,385,0)="""RTN"",""RAUTL8"",92,0)"
^XMB(3.9,127,2,386,0)=" S NODE=$S(FLD=60:""SSR"",FLD=70:""SRR"",1:""""),SAVEX=X"
^XMB(3.9,127,2,387,0)="""RTN"",""RAUTL8"",93,0)"
^XMB(3.9,127,2,388,0)=" S SUBDD=$S(FLD=60:70.11,FLD=70:70.09,1:""""),(IEN,DEL)=0"
^XMB(3.9,127,2,389,0)="""RTN"",""RAUTL8"",94,0)"
^XMB(3.9,127,2,390,0)=" I (NODE="""")!(X'>0)!(FLD'>0)!(SUBDD'>0) Q"
^XMB(3.9,127,2,391,0)="""RTN"",""RAUTL8"",95,0)"
^XMB(3.9,127,2,392,0)=" F  S IEN=$O(^RADPT(RA(2),""DT"",RA(1),""P"",RA,NODE,""B"",X,IEN)) Q:IEN'>0  D"
^XMB(3.9,127,2,393,0)="""RTN"",""RAUTL8"",96,0)"
^XMB(3.9,127,2,394,0)=" . S XREF=0"
^XMB(3.9,127,2,395,0)="""RTN"",""RAUTL8"",97,0)"
^XMB(3.9,127,2,396,0)=" . F  S XREF=$O(^DD(SUBDD,.01,1,XREF)) Q:XREF'>0  D"
^XMB(3.9,127,2,397,0)="""RTN"",""RAUTL8"",98,0)"
^XMB(3.9,127,2,398,0)=" .. S (D0,DA(3))=RA(2),(D1,DA(2))=RA(1),(D2,DA(1))=RA,(D3,DA)=IEN,X=SAVEX"
^XMB(3.9,127,2,399,0)="""RTN"",""RAUTL8"",99,0)"
^XMB(3.9,127,2,400,0)=" .. I $G(^DD(SUBDD,.01,1,XREF,2))]"""" X ^(2)"
^XMB(3.9,127,2,401,0)="""RTN"",""RAUTL8"",100,0)"
^XMB(3.9,127,2,402,0)=" .. Q"
^XMB(3.9,127,2,403,0)="""RTN"",""RAUTL8"",101,0)"
^XMB(3.9,127,2,404,0)=" . K ^RADPT(RA(2),""DT"",RA(1),""P"",RA,NODE,IEN,0) S DEL=DEL+1"
^XMB(3.9,127,2,405,0)="""RTN"",""RAUTL8"",102,0)"
^XMB(3.9,127,2,406,0)=" . Q"
^XMB(3.9,127,2,407,0)="""RTN"",""RAUTL8"",103,0)"
^XMB(3.9,127,2,408,0)=" I DEL D"
^XMB(3.9,127,2,409,0)="""RTN"",""RAUTL8"",104,0)"
^XMB(3.9,127,2,410,0)=" . S HDR=$G(^RADPT(RA(2),""DT"",RA(1),""P"",RA,NODE,0)) Q:HDR="""""
^XMB(3.9,127,2,411,0)="""RTN"",""RAUTL8"",105,0)"
^XMB(3.9,127,2,412,0)=" . S HDR(3)=+$O(^RADPT(RA(2),""DT"",RA(1),""P"",RA,NODE,0))"
^XMB(3.9,127,2,413,0)="""RTN"",""RAUTL8"",106,0)"
^XMB(3.9,127,2,414,0)=" . S HDR(4)=$P(HDR,U,4)-DEL"
^XMB(3.9,127,2,415,0)="""RTN"",""RAUTL8"",107,0)"
^XMB(3.9,127,2,416,0)=" . S:HDR(3)'>0 HDR(3)="""" S:HDR(4)'>0 HDR(4)="""""
^XMB(3.9,127,2,417,0)="""RTN"",""RAUTL8"",108,0)"
^XMB(3.9,127,2,418,0)=" . S $P(^RADPT(RA(2),""DT"",RA(1),""P"",RA,NODE,0),U,3,4)=HDR(3)_U_HDR(4)"
^XMB(3.9,127,2,419,0)="""RTN"",""RAUTL8"",109,0)"
^XMB(3.9,127,2,420,0)=" . Q"
^XMB(3.9,127,2,421,0)="""RTN"",""RAUTL8"",110,0)"
^XMB(3.9,127,2,422,0)=" S X=SAVEX"
^XMB(3.9,127,2,423,0)="""RTN"",""RAUTL8"",111,0)"
^XMB(3.9,127,2,424,0)=" Q"
^XMB(3.9,127,2,425,0)="""RTN"",""RAUTL8"",112,0)"
^XMB(3.9,127,2,426,0)="DPDT(RAPRC,RAY) ; Check for registration of duplicate procedures on the same"
^XMB(3.9,127,2,427,0)="""RTN"",""RAUTL8"",113,0)"
^XMB(3.9,127,2,428,0)=" ; date/time.  Called from PRC above."
^XMB(3.9,127,2,429,0)="""RTN"",""RAUTL8"",114,0)"
^XMB(3.9,127,2,430,0)=" ; INPUT VARIABLES"
^XMB(3.9,127,2,431,0)="""RTN"",""RAUTL8"",115,0)"
^XMB(3.9,127,2,432,0)=" ; 'RAPRC' --> IEN of the procedure (71)"
^XMB(3.9,127,2,433,0)="""RTN"",""RAUTL8"",116,0)"
^XMB(3.9,127,2,434,0)=" ; 'RAY'   --> DA array i.e, DA, DA(1), & DA(2)"
^XMB(3.9,127,2,435,0)="""RTN"",""RAUTL8"",117,0)"
^XMB(3.9,127,2,436,0)=" ; OUTPUT VARIABLES"
^XMB(3.9,127,2,437,0)="""RTN"",""RAUTL8"",118,0)"
^XMB(3.9,127,2,438,0)=" ; 'RAFLG' --> RAFLG=1 procedure registered for this date/time"
^XMB(3.9,127,2,439,0)="""RTN"",""RAUTL8"",119,0)"
^XMB(3.9,127,2,440,0)=" ;         --> RAFLG=0 initial registration for procedure@date/time"
^XMB(3.9,127,2,441,0)="""RTN"",""RAUTL8"",120,0)"
^XMB(3.9,127,2,442,0)=" N RA72,RABDT,RACIEN,RAEDT,RAFLG,RAI S RAFLG=0"
^XMB(3.9,127,2,443,0)="""RTN"",""RAUTL8"",121,0)"
^XMB(3.9,127,2,444,0)=" S RABDT=RAY(1)\1,RAEDT=RABDT_"".9999"",RAI=RABDT-.0000001"
^XMB(3.9,127,2,445,0)="""RTN"",""RAUTL8"",122,0)"
^XMB(3.9,127,2,446,0)=" F  S RAI=$O(^RADPT(RAY(2),""DT"",""AP"",RAPRC,RAI)) Q:RAI'>0!(RAI>RAEDT)  D  Q:RAFLG"
^XMB(3.9,127,2,447,0)="""RTN"",""RAUTL8"",123,0)"
^XMB(3.9,127,2,448,0)=" . Q:RAI=RAY(1)  ; At this point our exam status is 'WAITING FOR EXAM'"
^XMB(3.9,127,2,449,0)="""RTN"",""RAUTL8"",124,0)"
^XMB(3.9,127,2,450,0)=" . S RACIEN=$O(^RADPT(RAY(2),""DT"",""AP"",RAPRC,RAI,0)) Q:'RACIEN"
^XMB(3.9,127,2,451,0)="""RTN"",""RAUTL8"",125,0)"
^XMB(3.9,127,2,452,0)=" . S RA72=+$P($G(^RADPT(RAY(2),""DT"",RAI,""P"",RACIEN,0)),U,3) ;xam stat"
^XMB(3.9,127,2,453,0)="""RTN"",""RAUTL8"",126,0)"
^XMB(3.9,127,2,454,0)=" . S RA72(3)=$P($G(^RA(72,RA72,0)),U,3)"
^XMB(3.9,127,2,455,0)="""RTN"",""RAUTL8"",127,0)"
^XMB(3.9,127,2,456,0)=" . I RA72(3)'=0 S RAFLG=1 ; cancelled exams are not taken into account"
^XMB(3.9,127,2,457,0)="""RTN"",""RAUTL8"",128,0)"
^XMB(3.9,127,2,458,0)=" . Q"
^XMB(3.9,127,2,459,0)="""RTN"",""RAUTL8"",129,0)"
^XMB(3.9,127,2,460,0)=" Q RAFLG"
^XMB(3.9,127,2,461,0)="""RTN"",""RAUTL8"",130,0)"
^XMB(3.9,127,2,462,0)="SCRN(RADA,RARS,Y,RALVL) ; check if the primary or secondary int'ng staff"
^XMB(3.9,127,2,463,0)="""RTN"",""RAUTL8"",131,0)"
^XMB(3.9,127,2,464,0)=" ; or resident has access to a location or locations which have"
^XMB(3.9,127,2,465,0)="""RTN"",""RAUTL8"",132,0)"
^XMB(3.9,127,2,466,0)=" ; an imaging type which match the imaging type of the examination."
^XMB(3.9,127,2,467,0)="""RTN"",""RAUTL8"",133,0)"
^XMB(3.9,127,2,468,0)=" ; This screen will also check the classification of the individual to "
^XMB(3.9,127,2,469,0)="""RTN"",""RAUTL8"",134,0)"
^XMB(3.9,127,2,470,0)=" ; ensure that they are active and valid for the field being edited."
^XMB(3.9,127,2,471,0)="""RTN"",""RAUTL8"",135,0)"
^XMB(3.9,127,2,472,0)=" ;"
^XMB(3.9,127,2,473,0)="""RTN"",""RAUTL8"",136,0)"
^XMB(3.9,127,2,474,0)=" ; Called from DD's: ^DD(70.03,12 - ^DD(70.03,15  - ^DD(70.03,60"
^XMB(3.9,127,2,475,0)="""RTN"",""RAUTL8"",137,0)"
^XMB(3.9,127,2,476,0)=" ;                   ^DD(70.03,70 - ^DD(70.09,.01 - ^DD(70.11,.01"
^XMB(3.9,127,2,477,0)="""RTN"",""RAUTL8"",138,0)"
^XMB(3.9,127,2,478,0)=" ;"
^XMB(3.9,127,2,479,0)="""RTN"",""RAUTL8"",139,0)"
^XMB(3.9,127,2,480,0)=" ; Input variables:  RADA-> DA array, maps to RADFN, RADTI & RACNI"
^XMB(3.9,127,2,481,0)="""RTN"",""RAUTL8"",140,0)"
^XMB(3.9,127,2,482,0)=" ;                   RARS-> Classification: Resident(""R"") or Staff(""S"")"
^XMB(3.9,127,2,483,0)="""RTN"",""RAUTL8"",141,0)"
^XMB(3.9,127,2,484,0)=" ;                      Y-> selected resident/staff"
^XMB(3.9,127,2,485,0)="""RTN"",""RAUTL8"",142,0)"
^XMB(3.9,127,2,486,0)=" ;                   RALVL-> ""PRI""=Primary physician, ""SEC""=Secondary"
^XMB(3.9,127,2,487,0)="""RTN"",""RAUTL8"",143,0)"
^XMB(3.9,127,2,488,0)=" ;"
^XMB(3.9,127,2,489,0)="""RTN"",""RAUTL8"",144,0)"
^XMB(3.9,127,2,490,0)=" ; Output variable: $S(1:I-Types & classification match, resident/staff"
^XMB(3.9,127,2,491,0)="""RTN"",""RAUTL8"",145,0)"
^XMB(3.9,127,2,492,0)=" ;                      ok,0:no match re-select resident/staff)"
^XMB(3.9,127,2,493,0)="""RTN"",""RAUTL8"",146,0)"
^XMB(3.9,127,2,494,0)=" ;"
^XMB(3.9,127,2,495,0)="""RTN"",""RAUTL8"",147,0)"
^XMB(3.9,127,2,496,0)=" I $S('$D(^VA(200,+Y,""RA"")):1,'$P(^(""RA""),U,3):1,DT'>$P(^(""RA""),U,3):1,1:0),($D(^VA(200,""ARC"",RARS,+Y)))"
^XMB(3.9,127,2,497,0)="""RTN"",""RAUTL8"",148,0)"
^XMB(3.9,127,2,498,0)=" Q:'$T 0 ; failed the classification part of the screen"
^XMB(3.9,127,2,499,0)="""RTN"",""RAUTL8"",149,0)"
^XMB(3.9,127,2,500,0)=" Q:$D(^XUSEC(""RA ALLOC"",+Y)) 1 ; Resident/Staff has access to all loc's!"
^XMB(3.9,127,2,501,0)="""RTN"",""RAUTL8"",150,0)"
^XMB(3.9,127,2,502,0)=" N RA7002,RACCESS"
^XMB(3.9,127,2,503,0)="""RTN"",""RAUTL8"",151,0)"
^XMB(3.9,127,2,504,0)=" ; adjust RADA() due Fileman's unpredictable retention of DA() levels"
^XMB(3.9,127,2,505,0)="""RTN"",""RAUTL8"",152,0)"
^XMB(3.9,127,2,506,0)=" I RALVL=""SEC"" D"
^XMB(3.9,127,2,507,0)="""RTN"",""RAUTL8"",153,0)"
^XMB(3.9,127,2,508,0)=" . I '$D(RADA(3)) S RA7002=$G(^RADPT(RADA(2),""DT"",RADA(1),0))"
^XMB(3.9,127,2,509,0)="""RTN"",""RAUTL8"",154,0)"
^XMB(3.9,127,2,510,0)=" . I $D(RADA(3)),(RADA(2)'=RADA(3)) S RA7002=$G(^RADPT(RADA(3),""DT"",RADA(2),0))"
^XMB(3.9,127,2,511,0)="""RTN"",""RAUTL8"",155,0)"
^XMB(3.9,127,2,512,0)=" . I $D(RADA(3)),(RADA(2)=RADA(3)) S RA7002=$G(^RADPT(RADA(2),""DT"",RADA(1),0))"
^XMB(3.9,127,2,513,0)="""RTN"",""RAUTL8"",156,0)"
^XMB(3.9,127,2,514,0)=" I RALVL=""PRI"" S RA7002=$G(^RADPT(RADA(2),""DT"",RADA(1),0))"
^XMB(3.9,127,2,515,0)="""RTN"",""RAUTL8"",157,0)"
^XMB(3.9,127,2,516,0)=" D VARACC^RAUTL6(+Y) ; set-up access array for selected resident/staff"
^XMB(3.9,127,2,517,0)="""RTN"",""RAUTL8"",158,0)"
^XMB(3.9,127,2,518,0)=" Q:'$D(RACCESS(+Y,""IMG"",+$P(RA7002,""^"",2))) 0 ; no i-type match"
^XMB(3.9,127,2,519,0)="""RTN"",""RAUTL8"",159,0)"
^XMB(3.9,127,2,520,0)=" Q 1"
^XMB(3.9,127,2,521,0)="""RTN"",""RAUTL8"",160,0)"
^XMB(3.9,127,2,522,0)=" ;"
^XMB(3.9,127,2,523,0)="""RTN"",""RAUTL8"",161,0)"
^XMB(3.9,127,2,524,0)="CMEDIA(RADFN,RADTI,RACNI) ;return the CM used with an exam"
^XMB(3.9,127,2,525,0)="""RTN"",""RAUTL8"",162,0)"
^XMB(3.9,127,2,526,0)=" ;input: RADFN=patient DFN, RADTI=inv. date/time of exam, RACNI=exam IEN"
^XMB(3.9,127,2,527,0)="""RTN"",""RAUTL8"",163,0)"
^XMB(3.9,127,2,528,0)=" ;return: contrast media administered to the patient during an exam"
^XMB(3.9,127,2,529,0)="""RTN"",""RAUTL8"",164,0)"
^XMB(3.9,127,2,530,0)=" N RAI,RAS S RAI=0,RAS="""""
^XMB(3.9,127,2,531,0)="""RTN"",""RAUTL8"",165,0)"
^XMB(3.9,127,2,532,0)=" F  S RAI=$O(^RADPT(RADFN,""DT"",RADTI,""P"",RACNI,""CM"",RAI)) Q:'RAI  D"
^XMB(3.9,127,2,533,0)="""RTN"",""RAUTL8"",166,0)"
^XMB(3.9,127,2,534,0)=" .S RAI(0)=$P($G(^RADPT(RADFN,""DT"",RADTI,""P"",RACNI,""CM"",RAI,0)),U)"
^XMB(3.9,127,2,535,0)="""RTN"",""RAUTL8"",167,0)"
^XMB(3.9,127,2,536,0)=" .S RAS=RAS_$$EXTERNAL^DILFD(70.3225,.01,"""",RAI(0))_"", """
^XMB(3.9,127,2,537,0)="""RTN"",""RAUTL8"",168,0)"
^XMB(3.9,127,2,538,0)=" Q $P(RAS,"", "",1,($L(RAS,"", "")-1))"
^XMB(3.9,127,2,539,0)="""RTN"",""RAUTL8"",169,0)"
^XMB(3.9,127,2,540,0)=" ;"
^XMB(3.9,127,2,541,0)="""RTN"",""RAUTL8"",170,0)"
^XMB(3.9,127,2,542,0)="GMRAOR(RADA2) ;look for a contrast media reaction"
^XMB(3.9,127,2,543,0)="""RTN"",""RAUTL8"",171,0)"
^XMB(3.9,127,2,544,0)=" N D,D0,D1,D2,D3,DA,DC,DD,DFN,DG,DH,DI,DIC,DIE,DIEDA,DIEL,DIETMP,DIEXREF,DIFLD,DIIENS,DIOV,DIP,DK,DL,DLAYGO,DM,DN,DOV,DP,DQ,DR,X,Y"
^XMB(3.9,127,2,545,0)="""RTN"",""RAUTL8"",172,0)"
^XMB(3.9,127,2,546,0)=" Q $$ORCHK^GMRAOR(RADA2,""CM"")"
^XMB(3.9,127,2,547,0)="""RTN"",""RAUTL8"",173,0)"
^XMB(3.9,127,2,548,0)=" ;"
^XMB(3.9,127,2,549,0)="""VER"")"
^XMB(3.9,127,2,550,0)="8.0^22.0"
^XMB(3.9,127,2,551,0)="""BLD"",6008,6)"
^XMB(3.9,127,2,552,0)="^61"
^XMB(3.9,127,2,553,0)="$END KID RA*5.0*72"
^XMB(3.9,127,6,0)="^3.911A^2^2"
^XMB(3.9,127,6,1,0)="POSTMASTER"
^XMB(3.9,127,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,127,6,"B","POSTMASTER",1)=""
^XMB(3.9,127,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,128,0)="RG-1_SEQ-44_PAT-46.KID^.5^3061008.015742^^^^K"
^XMB(3.9,128,.6)="3061008"
^XMB(3.9,128,1,0)="^3.91A^2^2"
^XMB(3.9,128,1,1,0)=".5^0^3061008.015742^^^^^^^3061008.015742"
^XMB(3.9,128,1,2,0)="1^0^3061008.022617^^^^^^^3061008.022617"
^XMB(3.9,128,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,128,1,"C",.5,1)=""
^XMB(3.9,128,1,"C",1,2)=""
^XMB(3.9,128,2,0)="^^555^555^3061008"
^XMB(3.9,128,2,1,0)="$TXT Released RG*1*46 SEQ #44"
^XMB(3.9,128,2,2,0)="Extracted from mail message"
^XMB(3.9,128,2,3,0)="$END TXT"
^XMB(3.9,128,2,4,0)="$KID RG*1.0*46"
^XMB(3.9,128,2,5,0)="**INSTALL NAME**"
^XMB(3.9,128,2,6,0)="RG*1.0*46"
^XMB(3.9,128,2,7,0)="""BLD"",6668,0)"
^XMB(3.9,128,2,8,0)="RG*1.0*46^CLINICAL INFO RESOURCE NETWORK^0^3060322^y"
^XMB(3.9,128,2,9,0)="""BLD"",6668,1,0)"
^XMB(3.9,128,2,10,0)="^^2^2^3060322^"
^XMB(3.9,128,2,11,0)="""BLD"",6668,1,1,0)"
^XMB(3.9,128,2,12,0)="Patch resolves a problem with the PATIENT AUDIT FILE PRINT [RGMT AUDIT "
^XMB(3.9,128,2,13,0)="""BLD"",6668,1,2,0)"
^XMB(3.9,128,2,14,0)="PRINT] when tasking the job.  "
^XMB(3.9,128,2,15,0)="""BLD"",6668,4,0)"
^XMB(3.9,128,2,16,0)="^9.64PA^^"
^XMB(3.9,128,2,17,0)="""BLD"",6668,""KRN"",0)"
^XMB(3.9,128,2,18,0)="^9.67PA^8989.52^19"
^XMB(3.9,128,2,19,0)="""BLD"",6668,""KRN"",.4,0)"
^XMB(3.9,128,2,20,0)=".4"
^XMB(3.9,128,2,21,0)="""BLD"",6668,""KRN"",.401,0)"
^XMB(3.9,128,2,22,0)=".401"
^XMB(3.9,128,2,23,0)="""BLD"",6668,""KRN"",.402,0)"
^XMB(3.9,128,2,24,0)=".402"
^XMB(3.9,128,2,25,0)="""BLD"",6668,""KRN"",.403,0)"
^XMB(3.9,128,2,26,0)=".403"
^XMB(3.9,128,2,27,0)="""BLD"",6668,""KRN"",.5,0)"
^XMB(3.9,128,2,28,0)=".5"
^XMB(3.9,128,2,29,0)="""BLD"",6668,""KRN"",.84,0)"
^XMB(3.9,128,2,30,0)=".84"
^XMB(3.9,128,2,31,0)="""BLD"",6668,""KRN"",3.6,0)"
^XMB(3.9,128,2,32,0)="3.6"
^XMB(3.9,128,2,33,0)="""BLD"",6668,""KRN"",3.8,0)"
^XMB(3.9,128,2,34,0)="3.8"
^XMB(3.9,128,2,35,0)="""BLD"",6668,""KRN"",9.2,0)"
^XMB(3.9,128,2,36,0)="9.2"
^XMB(3.9,128,2,37,0)="""BLD"",6668,""KRN"",9.8,0)"
^XMB(3.9,128,2,38,0)="9.8"
^XMB(3.9,128,2,39,0)="""BLD"",6668,""KRN"",9.8,""NM"",0)"
^XMB(3.9,128,2,40,0)="^9.68A^1^1"
^XMB(3.9,128,2,41,0)="""BLD"",6668,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,128,2,42,0)="RGMTAUDP^^0^B59483224"
^XMB(3.9,128,2,43,0)="""BLD"",6668,""KRN"",9.8,""NM"",""B"",""RGMTAUDP"",1)"
^XMB(3.9,128,2,44,0)=""
^XMB(3.9,128,2,45,0)="""BLD"",6668,""KRN"",19,0)"
^XMB(3.9,128,2,46,0)="19"
^XMB(3.9,128,2,47,0)="""BLD"",6668,""KRN"",19,""NM"",0)"
^XMB(3.9,128,2,48,0)="^9.68A^^"
^XMB(3.9,128,2,49,0)="""BLD"",6668,""KRN"",19.1,0)"
^XMB(3.9,128,2,50,0)="19.1"
^XMB(3.9,128,2,51,0)="""BLD"",6668,""KRN"",101,0)"
^XMB(3.9,128,2,52,0)="101"
^XMB(3.9,128,2,53,0)="""BLD"",6668,""KRN"",409.61,0)"
^XMB(3.9,128,2,54,0)="409.61"
^XMB(3.9,128,2,55,0)="""BLD"",6668,""KRN"",771,0)"
^XMB(3.9,128,2,56,0)="771"
^XMB(3.9,128,2,57,0)="""BLD"",6668,""KRN"",870,0)"
^XMB(3.9,128,2,58,0)="870"
^XMB(3.9,128,2,59,0)="""BLD"",6668,""KRN"",8989.51,0)"
^XMB(3.9,128,2,60,0)="8989.51"
^XMB(3.9,128,2,61,0)="""BLD"",6668,""KRN"",8989.52,0)"
^XMB(3.9,128,2,62,0)="8989.52"
^XMB(3.9,128,2,63,0)="""BLD"",6668,""KRN"",8994,0)"
^XMB(3.9,128,2,64,0)="8994"
^XMB(3.9,128,2,65,0)="""BLD"",6668,""KRN"",""B"",.4,.4)"
^XMB(3.9,128,2,66,0)=""
^XMB(3.9,128,2,67,0)="""BLD"",6668,""KRN"",""B"",.401,.401)"
^XMB(3.9,128,2,68,0)=""
^XMB(3.9,128,2,69,0)="""BLD"",6668,""KRN"",""B"",.402,.402)"
^XMB(3.9,128,2,70,0)=""
^XMB(3.9,128,2,71,0)="""BLD"",6668,""KRN"",""B"",.403,.403)"
^XMB(3.9,128,2,72,0)=""
^XMB(3.9,128,2,73,0)="""BLD"",6668,""KRN"",""B"",.5,.5)"
^XMB(3.9,128,2,74,0)=""
^XMB(3.9,128,2,75,0)="""BLD"",6668,""KRN"",""B"",.84,.84)"
^XMB(3.9,128,2,76,0)=""
^XMB(3.9,128,2,77,0)="""BLD"",6668,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,128,2,78,0)=""
^XMB(3.9,128,2,79,0)="""BLD"",6668,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,128,2,80,0)=""
^XMB(3.9,128,2,81,0)="""BLD"",6668,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,128,2,82,0)=""
^XMB(3.9,128,2,83,0)="""BLD"",6668,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,128,2,84,0)=""
^XMB(3.9,128,2,85,0)="""BLD"",6668,""KRN"",""B"",19,19)"
^XMB(3.9,128,2,86,0)=""
^XMB(3.9,128,2,87,0)="""BLD"",6668,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,128,2,88,0)=""
^XMB(3.9,128,2,89,0)="""BLD"",6668,""KRN"",""B"",101,101)"
^XMB(3.9,128,2,90,0)=""
^XMB(3.9,128,2,91,0)="""BLD"",6668,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,128,2,92,0)=""
^XMB(3.9,128,2,93,0)="""BLD"",6668,""KRN"",""B"",771,771)"
^XMB(3.9,128,2,94,0)=""
^XMB(3.9,128,2,95,0)="""BLD"",6668,""KRN"",""B"",870,870)"
^XMB(3.9,128,2,96,0)=""
^XMB(3.9,128,2,97,0)="""BLD"",6668,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,128,2,98,0)=""
^XMB(3.9,128,2,99,0)="""BLD"",6668,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,128,2,100,0)=""
^XMB(3.9,128,2,101,0)="""BLD"",6668,""KRN"",""B"",8994,8994)"
^XMB(3.9,128,2,102,0)=""
^XMB(3.9,128,2,103,0)="""BLD"",6668,""QUES"",0)"
^XMB(3.9,128,2,104,0)="^9.62^^"
^XMB(3.9,128,2,105,0)="""BLD"",6668,""REQB"",0)"
^XMB(3.9,128,2,106,0)="^9.611^1^1"
^XMB(3.9,128,2,107,0)="""BLD"",6668,""REQB"",1,0)"
^XMB(3.9,128,2,108,0)="RG*1.0*30^1"
^XMB(3.9,128,2,109,0)="""BLD"",6668,""REQB"",""B"",""RG*1.0*30"",1)"
^XMB(3.9,128,2,110,0)=""
^XMB(3.9,128,2,111,0)="""MBREQ"")"
^XMB(3.9,128,2,112,0)="0"
^XMB(3.9,128,2,113,0)="""PKG"",41,-1)"
^XMB(3.9,128,2,114,0)="1^1"
^XMB(3.9,128,2,115,0)="""PKG"",41,0)"
^XMB(3.9,128,2,116,0)="CLINICAL INFO RESOURCE NETWORK^RG^WILSON"
^XMB(3.9,128,2,117,0)="""PKG"",41,20,0)"
^XMB(3.9,128,2,118,0)="^9.402P^1^1"
^XMB(3.9,128,2,119,0)="""PKG"",41,20,1,0)"
^XMB(3.9,128,2,120,0)="2^^RGDRM03"
^XMB(3.9,128,2,121,0)="""PKG"",41,20,1,1)"
^XMB(3.9,128,2,122,0)=""
^XMB(3.9,128,2,123,0)="""PKG"",41,20,""B"",2,1)"
^XMB(3.9,128,2,124,0)=""
^XMB(3.9,128,2,125,0)="""PKG"",41,22,0)"
^XMB(3.9,128,2,126,0)="^9.49I^1^1"
^XMB(3.9,128,2,127,0)="""PKG"",41,22,1,0)"
^XMB(3.9,128,2,128,0)="1.0^2990428^3000810^66481"
^XMB(3.9,128,2,129,0)="""PKG"",41,22,1,""PAH"",1,0)"
^XMB(3.9,128,2,130,0)="46^3060322"
^XMB(3.9,128,2,131,0)="""PKG"",41,22,1,""PAH"",1,1,0)"
^XMB(3.9,128,2,132,0)="^^2^2^3060322"
^XMB(3.9,128,2,133,0)="""PKG"",41,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,128,2,134,0)="Patch resolves a problem with the PATIENT AUDIT FILE PRINT [RGMT AUDIT "
^XMB(3.9,128,2,135,0)="""PKG"",41,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,128,2,136,0)="PRINT] when tasking the job.  "
^XMB(3.9,128,2,137,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,128,2,138,0)="Y"
^XMB(3.9,128,2,139,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,128,2,140,0)="^D REP^XPDH"
^XMB(3.9,128,2,141,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,128,2,142,0)="Shall I write over your |FLAG| File"
^XMB(3.9,128,2,143,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,128,2,144,0)="YES"
^XMB(3.9,128,2,145,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,128,2,146,0)="D XPF1^XPDIQ"
^XMB(3.9,128,2,147,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,128,2,148,0)="Y"
^XMB(3.9,128,2,149,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,128,2,150,0)="^D DTA^XPDH"
^XMB(3.9,128,2,151,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,128,2,152,0)="Want my data |FLAG| yours"
^XMB(3.9,128,2,153,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,128,2,154,0)="YES"
^XMB(3.9,128,2,155,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,128,2,156,0)="D XPF2^XPDIQ"
^XMB(3.9,128,2,157,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,128,2,158,0)="YO"
^XMB(3.9,128,2,159,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,128,2,160,0)="^D INHIBIT^XPDH"
^XMB(3.9,128,2,161,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,128,2,162,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,128,2,163,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,128,2,164,0)="YES"
^XMB(3.9,128,2,165,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,128,2,166,0)="D XPI1^XPDIQ"
^XMB(3.9,128,2,167,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,128,2,168,0)="PO^VA(200,:EM"
^XMB(3.9,128,2,169,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,128,2,170,0)="^D MG^XPDH"
^XMB(3.9,128,2,171,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,128,2,172,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,128,2,173,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,128,2,174,0)=""
^XMB(3.9,128,2,175,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,128,2,176,0)="D XPM1^XPDIQ"
^XMB(3.9,128,2,177,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,128,2,178,0)="Y"
^XMB(3.9,128,2,179,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,128,2,180,0)="^D MENU^XPDH"
^XMB(3.9,128,2,181,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,128,2,182,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,128,2,183,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,128,2,184,0)="YES"
^XMB(3.9,128,2,185,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,128,2,186,0)="D XPO1^XPDIQ"
^XMB(3.9,128,2,187,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,128,2,188,0)="Y"
^XMB(3.9,128,2,189,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,128,2,190,0)="^D OPT^XPDH"
^XMB(3.9,128,2,191,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,128,2,192,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,128,2,193,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,128,2,194,0)="YES"
^XMB(3.9,128,2,195,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,128,2,196,0)="D XPZ1^XPDIQ"
^XMB(3.9,128,2,197,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,128,2,198,0)="Y"
^XMB(3.9,128,2,199,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,128,2,200,0)="^D RTN^XPDH"
^XMB(3.9,128,2,201,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,128,2,202,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,128,2,203,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,128,2,204,0)="NO"
^XMB(3.9,128,2,205,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,128,2,206,0)="D XPZ2^XPDIQ"
^XMB(3.9,128,2,207,0)="""RTN"")"
^XMB(3.9,128,2,208,0)="1"
^XMB(3.9,128,2,209,0)="""RTN"",""RGMTAUDP"")"
^XMB(3.9,128,2,210,0)="0^1^B59483224^B59077738"
^XMB(3.9,128,2,211,0)="""RTN"",""RGMTAUDP"",1,0)"
^XMB(3.9,128,2,212,0)="RGMTAUDP ;BIR/CML,PTD-MPI/PD AUDIT File Print of Patient Data ;01/06/99"
^XMB(3.9,128,2,213,0)="""RTN"",""RGMTAUDP"",2,0)"
^XMB(3.9,128,2,214,0)=" ;;1.0;CLINICAL INFO RESOURCE NETWORK;**19,30,46**;30 Apr 99"
^XMB(3.9,128,2,215,0)="""RTN"",""RGMTAUDP"",3,0)"
^XMB(3.9,128,2,216,0)=" ;Reference to ^DD(2 supported by IA #2695."
^XMB(3.9,128,2,217,0)="""RTN"",""RGMTAUDP"",4,0)"
^XMB(3.9,128,2,218,0)=" ;Reference to ^DIA(2 and data derived from the AUDIT file (#1.1)"
^XMB(3.9,128,2,219,0)="""RTN"",""RGMTAUDP"",5,0)"
^XMB(3.9,128,2,220,0)=" ;supported by IA #2097 and #2602."
^XMB(3.9,128,2,221,0)="""RTN"",""RGMTAUDP"",6,0)"
^XMB(3.9,128,2,222,0)=" ;Reference to ^ORD(101 supported by IA #2596"
^XMB(3.9,128,2,223,0)="""RTN"",""RGMTAUDP"",7,0)"
^XMB(3.9,128,2,224,0)=" ;"
^XMB(3.9,128,2,225,0)="""RTN"",""RGMTAUDP"",8,0)"
^XMB(3.9,128,2,226,0)="BEGIN ;"
^XMB(3.9,128,2,227,0)="""RTN"",""RGMTAUDP"",9,0)"
^XMB(3.9,128,2,228,0)=" S QFLG=1"
^XMB(3.9,128,2,229,0)="""RTN"",""RGMTAUDP"",10,0)"
^XMB(3.9,128,2,230,0)=" W @IOF"
^XMB(3.9,128,2,231,0)="""RTN"",""RGMTAUDP"",11,0)"
^XMB(3.9,128,2,232,0)=" W !,""This option prints a customized report of information stored in the AUDIT"""
^XMB(3.9,128,2,233,0)="""RTN"",""RGMTAUDP"",12,0)"
^XMB(3.9,128,2,234,0)=" W !,""file (#1.1) for fields being audited in the PATIENT file (#2).  For a"""
^XMB(3.9,128,2,235,0)="""RTN"",""RGMTAUDP"",13,0)"
^XMB(3.9,128,2,236,0)=" W !,""specified date range, you can view all audited fields or selected fields."""
^XMB(3.9,128,2,237,0)="""RTN"",""RGMTAUDP"",14,0)"
^XMB(3.9,128,2,238,0)=" W !,""You can also opt to print only edits that were done by a specific user."""
^XMB(3.9,128,2,239,0)="""RTN"",""RGMTAUDP"",15,0)"
^XMB(3.9,128,2,240,0)=" W !!,""- If selected fields are viewed, you can choose to see data for all or"""
^XMB(3.9,128,2,241,0)="""RTN"",""RGMTAUDP"",16,0)"
^XMB(3.9,128,2,242,0)=" W !,""  selected patients."""
^XMB(3.9,128,2,243,0)="""RTN"",""RGMTAUDP"",17,0)"
^XMB(3.9,128,2,244,0)=" W !,""- If ALL audited fields are viewed, you must choose patients to examine."""
^XMB(3.9,128,2,245,0)="""RTN"",""RGMTAUDP"",18,0)"
^XMB(3.9,128,2,246,0)=" ;"
^XMB(3.9,128,2,247,0)="""RTN"",""RGMTAUDP"",19,0)"
^XMB(3.9,128,2,248,0)="ASKFLD ;Ask for Data Fields"
^XMB(3.9,128,2,249,0)="""RTN"",""RGMTAUDP"",20,0)"
^XMB(3.9,128,2,250,0)=" I '$O(^DD(2,""AUDIT"",0)) W !!,""No fields are currently being audited in the PATIENT file (#2)."" G QUIT"
^XMB(3.9,128,2,251,0)="""RTN"",""RGMTAUDP"",21,0)"
^XMB(3.9,128,2,252,0)=" W !"
^XMB(3.9,128,2,253,0)="""RTN"",""RGMTAUDP"",22,0)"
^XMB(3.9,128,2,254,0)=" K DIR S DIR(0)=""SAM^A:ALL;S:SELECTED;"""
^XMB(3.9,128,2,255,0)="""RTN"",""RGMTAUDP"",23,0)"
^XMB(3.9,128,2,256,0)=" S DIR(""A"")=""Do you want to see (A)LL or (S)ELECTED audited fields? """
^XMB(3.9,128,2,257,0)="""RTN"",""RGMTAUDP"",24,0)"
^XMB(3.9,128,2,258,0)=" S DIR(""B"")=""A"""
^XMB(3.9,128,2,259,0)="""RTN"",""RGMTAUDP"",25,0)"
^XMB(3.9,128,2,260,0)=" S DIR(""?"",1)=""Enter:"""
^XMB(3.9,128,2,261,0)="""RTN"",""RGMTAUDP"",26,0)"
^XMB(3.9,128,2,262,0)=" S DIR(""?"",2)="" """"A"""" to see ALL audited fields in the PATIENT file (#2)."""
^XMB(3.9,128,2,263,0)="""RTN"",""RGMTAUDP"",27,0)"
^XMB(3.9,128,2,264,0)=" S DIR(""?"")="" """"S"""" to select specific audited fields."""
^XMB(3.9,128,2,265,0)="""RTN"",""RGMTAUDP"",28,0)"
^XMB(3.9,128,2,266,0)=" D ^DIR G:$D(DIRUT) QUIT S ANS1=Y"
^XMB(3.9,128,2,267,0)="""RTN"",""RGMTAUDP"",29,0)"
^XMB(3.9,128,2,268,0)=" ;"
^XMB(3.9,128,2,269,0)="""RTN"",""RGMTAUDP"",30,0)"
^XMB(3.9,128,2,270,0)="FLDLOOP ;"
^XMB(3.9,128,2,271,0)="""RTN"",""RGMTAUDP"",31,0)"
^XMB(3.9,128,2,272,0)=" W ! K FLD"
^XMB(3.9,128,2,273,0)="""RTN"",""RGMTAUDP"",32,0)"
^XMB(3.9,128,2,274,0)=" ;stuff all fields"
^XMB(3.9,128,2,275,0)="""RTN"",""RGMTAUDP"",33,0)"
^XMB(3.9,128,2,276,0)=" I ANS1=""A"" D  G ASKPAT"
^XMB(3.9,128,2,277,0)="""RTN"",""RGMTAUDP"",34,0)"
^XMB(3.9,128,2,278,0)=" .S FLD=0 F  S FLD=$O(^DD(2,""AUDIT"",FLD)) Q:'FLD  S FLD(FLD)="""""
^XMB(3.9,128,2,279,0)="""RTN"",""RGMTAUDP"",35,0)"
^XMB(3.9,128,2,280,0)=" ;ask for specific fields"
^XMB(3.9,128,2,281,0)="""RTN"",""RGMTAUDP"",36,0)"
^XMB(3.9,128,2,282,0)=" K DIR S DIR(0)=""NAOC^.0000001:9999999:7^K:'$D(^DD(2,""""AUDIT"""",X)) X S RGERR=1"""
^XMB(3.9,128,2,283,0)="""RTN"",""RGMTAUDP"",37,0)"
^XMB(3.9,128,2,284,0)=" S DIR(""A"")=""Select FIELD NUMBER of audited field (enter """"?"""" for list): """
^XMB(3.9,128,2,285,0)="""RTN"",""RGMTAUDP"",38,0)"
^XMB(3.9,128,2,286,0)=" S DIR(""?"")=""^D FLDLIST^RGMTAUDP"""
^XMB(3.9,128,2,287,0)="""RTN"",""RGMTAUDP"",39,0)"
^XMB(3.9,128,2,288,0)=" F QQ=0:0 S RGERR=0 D ^DIR Q:$D(DIRUT)  S FLD(+Y)="""""
^XMB(3.9,128,2,289,0)="""RTN"",""RGMTAUDP"",40,0)"
^XMB(3.9,128,2,290,0)=" ;"
^XMB(3.9,128,2,291,0)="""RTN"",""RGMTAUDP"",41,0)"
^XMB(3.9,128,2,292,0)="ASKPAT ;Ask for Patient"
^XMB(3.9,128,2,293,0)="""RTN"",""RGMTAUDP"",42,0)"
^XMB(3.9,128,2,294,0)=" I '$O(FLD(0))!($D(DUOUT)) S QFLG=1 G QUIT"
^XMB(3.9,128,2,295,0)="""RTN"",""RGMTAUDP"",43,0)"
^XMB(3.9,128,2,296,0)=" I ANS1=""A"" S ANS2=""S"" G PATLOOP"
^XMB(3.9,128,2,297,0)="""RTN"",""RGMTAUDP"",44,0)"
^XMB(3.9,128,2,298,0)=" K DIR S DIR(0)=""SAM^A:ALL;S:SELECTED;"""
^XMB(3.9,128,2,299,0)="""RTN"",""RGMTAUDP"",45,0)"
^XMB(3.9,128,2,300,0)=" S DIR(""A"")=""Do you want to see audited data for (A)LL or (S)ELECTED patients? """
^XMB(3.9,128,2,301,0)="""RTN"",""RGMTAUDP"",46,0)"
^XMB(3.9,128,2,302,0)=" S DIR(""B"")=""S"""
^XMB(3.9,128,2,303,0)="""RTN"",""RGMTAUDP"",47,0)"
^XMB(3.9,128,2,304,0)=" S DIR(""?"",1)=""Enter:"""
^XMB(3.9,128,2,305,0)="""RTN"",""RGMTAUDP"",48,0)"
^XMB(3.9,128,2,306,0)=" S DIR(""?"",2)="" """"A"""" to see audited fields for ALL patients."""
^XMB(3.9,128,2,307,0)="""RTN"",""RGMTAUDP"",49,0)"
^XMB(3.9,128,2,308,0)=" S DIR(""?"")="" """"S"""" to select specific patients(s)."""
^XMB(3.9,128,2,309,0)="""RTN"",""RGMTAUDP"",50,0)"
^XMB(3.9,128,2,310,0)=" W ! D ^DIR G:$D(DIRUT) QUIT S ANS2=Y"
^XMB(3.9,128,2,311,0)="""RTN"",""RGMTAUDP"",51,0)"
^XMB(3.9,128,2,312,0)="PATLOOP ;"
^XMB(3.9,128,2,313,0)="""RTN"",""RGMTAUDP"",52,0)"
^XMB(3.9,128,2,314,0)=" W ! K PAT"
^XMB(3.9,128,2,315,0)="""RTN"",""RGMTAUDP"",53,0)"
^XMB(3.9,128,2,316,0)=" I ANS2=""A"" S PAT(""ALL"")="""" G ASKDT"
^XMB(3.9,128,2,317,0)="""RTN"",""RGMTAUDP"",54,0)"
^XMB(3.9,128,2,318,0)=" ;ask for specific patient(s)"
^XMB(3.9,128,2,319,0)="""RTN"",""RGMTAUDP"",55,0)"
^XMB(3.9,128,2,320,0)=" F QQ=0:0 S DIC=""^DPT("",DIC(0)=""QEAM"",DIC(""A"")=""Select PATIENT: "" D ^DIC K DIC Q:Y<0  S RGDFN=+Y D"
^XMB(3.9,128,2,321,0)="""RTN"",""RGMTAUDP"",56,0)"
^XMB(3.9,128,2,322,0)=" .I '$O(^DIA(2,""B"",RGDFN,0)) W $C(7),!?5,""This patient has no audit data available for any date."" Q"
^XMB(3.9,128,2,323,0)="""RTN"",""RGMTAUDP"",57,0)"
^XMB(3.9,128,2,324,0)=" .S PAT(RGDFN)="""""
^XMB(3.9,128,2,325,0)="""RTN"",""RGMTAUDP"",58,0)"
^XMB(3.9,128,2,326,0)=" ;"
^XMB(3.9,128,2,327,0)="""RTN"",""RGMTAUDP"",59,0)"
^XMB(3.9,128,2,328,0)="ASKDT ;Ask for Date Range"
^XMB(3.9,128,2,329,0)="""RTN"",""RGMTAUDP"",60,0)"
^XMB(3.9,128,2,330,0)=" I '$D(PAT)!($D(DUOUT)) S QFLG=1 G QUIT"
^XMB(3.9,128,2,331,0)="""RTN"",""RGMTAUDP"",61,0)"
^XMB(3.9,128,2,332,0)=" W !!,""Enter date range for data to be included in report."""
^XMB(3.9,128,2,333,0)="""RTN"",""RGMTAUDP"",62,0)"
^XMB(3.9,128,2,334,0)=" K DIR,DIRUT,DTOUT,DUOUT S DIR(0)=""DAO^:DT:EPX"",DIR(""A"")=""Beginning Date:  "" D ^DIR K DIR G:$D(DIRUT) QUIT"
^XMB(3.9,128,2,335,0)="""RTN"",""RGMTAUDP"",63,0)"
^XMB(3.9,128,2,336,0)=" S RGBDT=Y,DIR(0)=""DAO^""_RGBDT_"":DT:EPX"",DIR(""A"")=""Ending Date:  "" D ^DIR K DIR G:$D(DIRUT) QUIT S RGEDT=Y"
^XMB(3.9,128,2,337,0)="""RTN"",""RGMTAUDP"",64,0)"
^XMB(3.9,128,2,338,0)=" ;"
^XMB(3.9,128,2,339,0)="""RTN"",""RGMTAUDP"",65,0)"
^XMB(3.9,128,2,340,0)="ASKUSER ;Ask if data is wanted only a specific user"
^XMB(3.9,128,2,341,0)="""RTN"",""RGMTAUDP"",66,0)"
^XMB(3.9,128,2,342,0)=" K USERSCRN"
^XMB(3.9,128,2,343,0)="""RTN"",""RGMTAUDP"",67,0)"
^XMB(3.9,128,2,344,0)=" W ! S DIR(0)=""Y"",DIR(""B"")=""No"",DIR(""A"")=""Do you want to find only the edits made by a specific user"""
^XMB(3.9,128,2,345,0)="""RTN"",""RGMTAUDP"",68,0)"
^XMB(3.9,128,2,346,0)=" D ^DIR K DIR I +Y'=1 G DEV"
^XMB(3.9,128,2,347,0)="""RTN"",""RGMTAUDP"",69,0)"
^XMB(3.9,128,2,348,0)=" ;"
^XMB(3.9,128,2,349,0)="""RTN"",""RGMTAUDP"",70,0)"
^XMB(3.9,128,2,350,0)=" S DIC=""^VA(200,"",DIC(0)=""QEAM"",DIC(""A"")=""Select USER: """
^XMB(3.9,128,2,351,0)="""RTN"",""RGMTAUDP"",71,0)"
^XMB(3.9,128,2,352,0)=" D ^DIC K DIC G:+Y<0 QUIT S USERSCRN=+Y"
^XMB(3.9,128,2,353,0)="""RTN"",""RGMTAUDP"",72,0)"
^XMB(3.9,128,2,354,0)=" ;"
^XMB(3.9,128,2,355,0)="""RTN"",""RGMTAUDP"",73,0)"
^XMB(3.9,128,2,356,0)="DEV W !!,""The right margin for this report is 80."",!!"
^XMB(3.9,128,2,357,0)="""RTN"",""RGMTAUDP"",74,0)"
^XMB(3.9,128,2,358,0)=" I ANS2=""A"" S IOP=""Q"" W ""Because you selected ALL patients, you MUST queue this report."",!!"
^XMB(3.9,128,2,359,0)="""RTN"",""RGMTAUDP"",75,0)"
^XMB(3.9,128,2,360,0)=" S ZTSAVE(""RGBDT"")="""",ZTSAVE(""RGEDT"")="""",ZTSAVE(""ANS2"")="""",ZTSAVE(""FLD("")="""",ZTSAVE(""PAT("")="""",%ZIS(""B"")="""""
^XMB(3.9,128,2,361,0)="""RTN"",""RGMTAUDP"",76,0)"
^XMB(3.9,128,2,362,0)=" S ZTSAVE(""USERSCRN"")="""""
^XMB(3.9,128,2,363,0)="""RTN"",""RGMTAUDP"",77,0)"
^XMB(3.9,128,2,364,0)=" D EN^XUTMDEVQ(""START^RGMTAUDP"",""MPI/PD - Print AUDIT File Data from the PATIENT file"",.ZTSAVE,.%ZIS) I 'POP Q"
^XMB(3.9,128,2,365,0)="""RTN"",""RGMTAUDP"",78,0)"
^XMB(3.9,128,2,366,0)=" W !,""NO DEVICE SELECTED OR REPORT PRINTED!!"""
^XMB(3.9,128,2,367,0)="""RTN"",""RGMTAUDP"",79,0)"
^XMB(3.9,128,2,368,0)=" S QFLG=1 G QUIT"
^XMB(3.9,128,2,369,0)="""RTN"",""RGMTAUDP"",80,0)"
^XMB(3.9,128,2,370,0)=" ;"
^XMB(3.9,128,2,371,0)="""RTN"",""RGMTAUDP"",81,0)"
^XMB(3.9,128,2,372,0)="START ;"
^XMB(3.9,128,2,373,0)="""RTN"",""RGMTAUDP"",82,0)"
^XMB(3.9,128,2,374,0)=" K ^TMP(""RGMTAUDP"",$J),^TMP(""RGMTAUDP2"",$J) S U=""^"""
^XMB(3.9,128,2,375,0)="""RTN"",""RGMTAUDP"",83,0)"
^XMB(3.9,128,2,376,0)=" S STOP=RGEDT+1"
^XMB(3.9,128,2,377,0)="""RTN"",""RGMTAUDP"",84,0)"
^XMB(3.9,128,2,378,0)=" I ANS2=""A"" D"
^XMB(3.9,128,2,379,0)="""RTN"",""RGMTAUDP"",85,0)"
^XMB(3.9,128,2,380,0)=" .S CNT=0"
^XMB(3.9,128,2,381,0)="""RTN"",""RGMTAUDP"",86,0)"
^XMB(3.9,128,2,382,0)=" .S RGDFN=0 F  S RGDFN=$O(^DIA(2,""B"",RGDFN)) Q:'RGDFN  S CNT=CNT+1 S:'(CNT#10000) ^TMP(""RGMTAUDP"",$J,""@@@@"",""CUR DFN"")=RGDFN D LOOP"
^XMB(3.9,128,2,383,0)="""RTN"",""RGMTAUDP"",87,0)"
^XMB(3.9,128,2,384,0)=" I ANS2=""S"" D"
^XMB(3.9,128,2,385,0)="""RTN"",""RGMTAUDP"",88,0)"
^XMB(3.9,128,2,386,0)=" .S RGDFN=0 F  S RGDFN=$O(PAT(RGDFN)) Q:'RGDFN  D LOOP"
^XMB(3.9,128,2,387,0)="""RTN"",""RGMTAUDP"",89,0)"
^XMB(3.9,128,2,388,0)=" G PRT"
^XMB(3.9,128,2,389,0)="""RTN"",""RGMTAUDP"",90,0)"
^XMB(3.9,128,2,390,0)=" ;"
^XMB(3.9,128,2,391,0)="""RTN"",""RGMTAUDP"",91,0)"
^XMB(3.9,128,2,392,0)="LOOP ;Loop on ""B"" xref of the AUDIT file"
^XMB(3.9,128,2,393,0)="""RTN"",""RGMTAUDP"",92,0)"
^XMB(3.9,128,2,394,0)=" Q:'$D(^DPT(RGDFN,0))"
^XMB(3.9,128,2,395,0)="""RTN"",""RGMTAUDP"",93,0)"
^XMB(3.9,128,2,396,0)=" I ANS2=""S"" D"
^XMB(3.9,128,2,397,0)="""RTN"",""RGMTAUDP"",94,0)"
^XMB(3.9,128,2,398,0)=" . S PATNM=$P(^DPT(RGDFN,0),U)_U_RGDFN"
^XMB(3.9,128,2,399,0)="""RTN"",""RGMTAUDP"",95,0)"
^XMB(3.9,128,2,400,0)=" . I '$O(^DIA(2,""B"",RGDFN,0)) S ^TMP(""RGMTAUDP2"",$J,""NO AUDIT"",PATNM)="" has no audit data available for any date."""
^XMB(3.9,128,2,401,0)="""RTN"",""RGMTAUDP"",96,0)"
^XMB(3.9,128,2,402,0)=" S IEN=0 F  S IEN=$O(^DIA(2,""B"",RGDFN,IEN)) Q:'IEN  D"
^XMB(3.9,128,2,403,0)="""RTN"",""RGMTAUDP"",97,0)"
^XMB(3.9,128,2,404,0)=" .I $D(^DIA(2,IEN,0)) S IEN0=(^(0)),EDITDT=$P(IEN0,U,2) I EDITDT>RGBDT,EDITDT<STOP D"
^XMB(3.9,128,2,405,0)="""RTN"",""RGMTAUDP"",98,0)"
^XMB(3.9,128,2,406,0)=" ..S FLD=$P(IEN0,U,3) I $D(FLD(FLD)) D"
^XMB(3.9,128,2,407,0)="""RTN"",""RGMTAUDP"",99,0)"
^XMB(3.9,128,2,408,0)=" ...S USER=$P(IEN0,U,4)"
^XMB(3.9,128,2,409,0)="""RTN"",""RGMTAUDP"",100,0)"
^XMB(3.9,128,2,410,0)=" ...I $D(USERSCRN) I USER'=USERSCRN Q"
^XMB(3.9,128,2,411,0)="""RTN"",""RGMTAUDP"",101,0)"
^XMB(3.9,128,2,412,0)=" ...S PATNM=$P(^DPT(RGDFN,0),U)_U_RGDFN,^TMP(""RGMTAUDP"",$J,PATNM,EDITDT,IEN)="""""
^XMB(3.9,128,2,413,0)="""RTN"",""RGMTAUDP"",102,0)"
^XMB(3.9,128,2,414,0)=" I ANS2=""S"" D"
^XMB(3.9,128,2,415,0)="""RTN"",""RGMTAUDP"",103,0)"
^XMB(3.9,128,2,416,0)=" . I '$D(^TMP(""RGMTAUDP"",$J,PATNM)) S ^TMP(""RGMTAUDP2"",$J,""NO AUDIT"",PATNM)="" has no audit data available for selected parameters."""
^XMB(3.9,128,2,417,0)="""RTN"",""RGMTAUDP"",104,0)"
^XMB(3.9,128,2,418,0)=" Q"
^XMB(3.9,128,2,419,0)="""RTN"",""RGMTAUDP"",105,0)"
^XMB(3.9,128,2,420,0)=" ;"
^XMB(3.9,128,2,421,0)="""RTN"",""RGMTAUDP"",106,0)"
^XMB(3.9,128,2,422,0)="PRT ;Print report"
^XMB(3.9,128,2,423,0)="""RTN"",""RGMTAUDP"",107,0)"
^XMB(3.9,128,2,424,0)=" S (PG,QFLG)=0,U=""^"",$P(LN,""-"",81)="""",SITE=$P($$SITE^VASITE(),U,2)"
^XMB(3.9,128,2,425,0)="""RTN"",""RGMTAUDP"",108,0)"
^XMB(3.9,128,2,426,0)=" S PRGBDT=$$FMTE^XLFDT(RGBDT),PRGEDT=$$FMTE^XLFDT(RGEDT)"
^XMB(3.9,128,2,427,0)="""RTN"",""RGMTAUDP"",109,0)"
^XMB(3.9,128,2,428,0)=" D NOW^%DTC S HDT=$$FMTE^XLFDT($E(%,1,12))"
^XMB(3.9,128,2,429,0)="""RTN"",""RGMTAUDP"",110,0)"
^XMB(3.9,128,2,430,0)=" D HDR"
^XMB(3.9,128,2,431,0)="""RTN"",""RGMTAUDP"",111,0)"
^XMB(3.9,128,2,432,0)=" I '$D(^TMP(""RGMTAUDP"",$J)) W !!,""No audit data found in this date range for specified parameters."" G QUIT"
^XMB(3.9,128,2,433,0)="""RTN"",""RGMTAUDP"",112,0)"
^XMB(3.9,128,2,434,0)=" S PATNM=""@@@@"" F  S PATNM=$O(^TMP(""RGMTAUDP"",$J,PATNM)) Q:PATNM=""""  Q:QFLG  D"
^XMB(3.9,128,2,435,0)="""RTN"",""RGMTAUDP"",113,0)"
^XMB(3.9,128,2,436,0)=" .D:$Y+4>IOSL HDR Q:QFLG"
^XMB(3.9,128,2,437,0)="""RTN"",""RGMTAUDP"",114,0)"
^XMB(3.9,128,2,438,0)=" .W !!,""==> "",$P(PATNM,U),""  (DFN #"",$P(PATNM,U,2),"")"""
^XMB(3.9,128,2,439,0)="""RTN"",""RGMTAUDP"",115,0)"
^XMB(3.9,128,2,440,0)=" .S EDITDT=0 F  S EDITDT=$O(^TMP(""RGMTAUDP"",$J,PATNM,EDITDT)) Q:QFLG  Q:'EDITDT  D"
^XMB(3.9,128,2,441,0)="""RTN"",""RGMTAUDP"",116,0)"
^XMB(3.9,128,2,442,0)=" ..S IEN=0 F  S IEN=$O(^TMP(""RGMTAUDP"",$J,PATNM,EDITDT,IEN)) Q:QFLG  Q:'IEN  D"
^XMB(3.9,128,2,443,0)="""RTN"",""RGMTAUDP"",117,0)"
^XMB(3.9,128,2,444,0)=" ...S PRTDT=$$FMTE^XLFDT($E(EDITDT,1,12))"
^XMB(3.9,128,2,445,0)="""RTN"",""RGMTAUDP"",118,0)"
^XMB(3.9,128,2,446,0)=" ...S IEN0=^DIA(2,IEN,0)"
^XMB(3.9,128,2,447,0)="""RTN"",""RGMTAUDP"",119,0)"
^XMB(3.9,128,2,448,0)=" ...K RGARR D FIELD^DID(2,$P(IEN0,U,3),"""",""LABEL"",""RGARR"")"
^XMB(3.9,128,2,449,0)="""RTN"",""RGMTAUDP"",120,0)"
^XMB(3.9,128,2,450,0)=" ...S FLD=$G(RGARR(""LABEL""))  Q:FLD="""""
^XMB(3.9,128,2,451,0)="""RTN"",""RGMTAUDP"",121,0)"
^XMB(3.9,128,2,452,0)=" ...S USER=$P(IEN0,U,4)"
^XMB(3.9,128,2,453,0)="""RTN"",""RGMTAUDP"",122,0)"
^XMB(3.9,128,2,454,0)=" ...I 'USER S USER=""UNKNOWN"""
^XMB(3.9,128,2,455,0)="""RTN"",""RGMTAUDP"",123,0)"
^XMB(3.9,128,2,456,0)=" ...I USER'=""UNKNOWN"" S DIC=""^VA(200,"",DIC(0)=""MZO"",X=""`""_USER D ^DIC S USER=$P(Y,""^"",2)"
^XMB(3.9,128,2,457,0)="""RTN"",""RGMTAUDP"",124,0)"
^XMB(3.9,128,2,458,0)=" ...S OLD=$G(^DIA(2,IEN,2)) I OLD']"""" S OLD=""<no previous value>"""
^XMB(3.9,128,2,459,0)="""RTN"",""RGMTAUDP"",125,0)"
^XMB(3.9,128,2,460,0)=" ...S NEW=$G(^DIA(2,IEN,3)) I NEW']"""" S NEW=""<no current value>"""
^XMB(3.9,128,2,461,0)="""RTN"",""RGMTAUDP"",126,0)"
^XMB(3.9,128,2,462,0)=" ...K OPTDA1,OPTDA2,OPTION,OPTNM I $G(^DIA(2,IEN,4.1)) D"
^XMB(3.9,128,2,463,0)="""RTN"",""RGMTAUDP"",127,0)"
^XMB(3.9,128,2,464,0)=" ....S OPTDA1=+$P(^DIA(2,IEN,4.1),""^"")"
^XMB(3.9,128,2,465,0)="""RTN"",""RGMTAUDP"",128,0)"
^XMB(3.9,128,2,466,0)=" ....I OPTDA1 S DIC=19,DR="".01"",DA=OPTDA1,DIQ(0)=""EI"",DIQ=""OPTION"" D EN^DIQ1 K DIC,DR,DA,DIQ S OPTION=$G(OPTION(19,OPTDA1,.01,""E""))"
^XMB(3.9,128,2,467,0)="""RTN"",""RGMTAUDP"",129,0)"
^XMB(3.9,128,2,468,0)=" ....S OPTDA2=$P(^DIA(2,IEN,4.1),""^"",2)"
^XMB(3.9,128,2,469,0)="""RTN"",""RGMTAUDP"",130,0)"
^XMB(3.9,128,2,470,0)=" ....I $P(OPTDA2,"";"",2)=""ORD(101,"" S DIC=101,DR="".01"",DA=+OPTDA2,DIQ(0)=""EI"",DIQ=""OPTION"" D EN^DIQ1 K DIC,DR,DA,DIQ S OPTNM=$G(OPTION(101,+OPTDA2,.01,""E"")) Q"
^XMB(3.9,128,2,471,0)="""RTN"",""RGMTAUDP"",131,0)"
^XMB(3.9,128,2,472,0)=" ....I +OPTDA2 S DIC=19,DR="".01"",DA=+OPTDA2,DIQ(0)=""EI"",DIQ=""OPTION"" D EN^DIQ1 K DIC,DR,DA,DIQ S OPTNM=$G(OPTION(19,+OPTDA2,.01,""E"")) Q"
^XMB(3.9,128,2,473,0)="""RTN"",""RGMTAUDP"",132,0)"
^XMB(3.9,128,2,474,0)=" ...D:$Y+5>IOSL HDR Q:QFLG  W !!,PRTDT,?20,FLD,?51,USER,!?20,OLD,"" / "",NEW"
^XMB(3.9,128,2,475,0)="""RTN"",""RGMTAUDP"",133,0)"
^XMB(3.9,128,2,476,0)=" ...I $G(OPTION)'="""" W !?3,OPTION I $G(OPTNM)'="""" W ""/"",OPTNM"
^XMB(3.9,128,2,477,0)="""RTN"",""RGMTAUDP"",134,0)"
^XMB(3.9,128,2,478,0)=" I $D(^TMP(""RGMTAUDP2"",$J,""NO AUDIT"")) D"
^XMB(3.9,128,2,479,0)="""RTN"",""RGMTAUDP"",135,0)"
^XMB(3.9,128,2,480,0)=" . S PATNM=""@@@@"",RGNAUD="""" F  S PATNM=$O(^TMP(""RGMTAUDP2"",$J,""NO AUDIT"",PATNM)) Q:PATNM=""""  D"
^XMB(3.9,128,2,481,0)="""RTN"",""RGMTAUDP"",136,0)"
^XMB(3.9,128,2,482,0)=" .. Q:QFLG"
^XMB(3.9,128,2,483,0)="""RTN"",""RGMTAUDP"",137,0)"
^XMB(3.9,128,2,484,0)=" .. S RGNAUD=$P(^TMP(""RGMTAUDP2"",$J,""NO AUDIT"",PATNM),U)"
^XMB(3.9,128,2,485,0)="""RTN"",""RGMTAUDP"",138,0)"
^XMB(3.9,128,2,486,0)=" .. W !!,""==> "",$P(PATNM,U),""  (DFN #"",$P(PATNM,U,2),"")""_RGNAUD"
^XMB(3.9,128,2,487,0)="""RTN"",""RGMTAUDP"",139,0)"
^XMB(3.9,128,2,488,0)=" ;"
^XMB(3.9,128,2,489,0)="""RTN"",""RGMTAUDP"",140,0)"
^XMB(3.9,128,2,490,0)="QUIT ;"
^XMB(3.9,128,2,491,0)="""RTN"",""RGMTAUDP"",141,0)"
^XMB(3.9,128,2,492,0)=" I $E(IOST,1,2)=""C-""&('QFLG) S DIR(0)=""E"" D  D ^DIR K DIR"
^XMB(3.9,128,2,493,0)="""RTN"",""RGMTAUDP"",142,0)"
^XMB(3.9,128,2,494,0)=" .S SS=22-$Y F JJ=1:1:SS W !"
^XMB(3.9,128,2,495,0)="""RTN"",""RGMTAUDP"",143,0)"
^XMB(3.9,128,2,496,0)=" K ^TMP(""RGMTAUDP"",$J),^TMP(""RGMTAUDP2"",$J)"
^XMB(3.9,128,2,497,0)="""RTN"",""RGMTAUDP"",144,0)"
^XMB(3.9,128,2,498,0)=" K %,%I,ANS1,ANS2,C,CNT,RGDFN,DIR,DIRUT,DTOUT,DUOUT,EDITDT,FLD,FLDLP,FLDNM,HDR"
^XMB(3.9,128,2,499,0)="""RTN"",""RGMTAUDP"",145,0)"
^XMB(3.9,128,2,500,0)=" K HDT,IEN,IEN0,JJ,LN,NEW,OLD,OPTDA1,OPTDA2,OPTION,OPTNM,PAT,PATNM,PG,PRGBDT,PRGEDT,PRTDT,QFLG,QQ,RGARR,RGBDT,RGNAUD"
^XMB(3.9,128,2,501,0)="""RTN"",""RGMTAUDP"",146,0)"
^XMB(3.9,128,2,502,0)=" K RGEDT,RGERR,SITE,SS,STOP,USER,X,Y,ZTSK"
^XMB(3.9,128,2,503,0)="""RTN"",""RGMTAUDP"",147,0)"
^XMB(3.9,128,2,504,0)=" D ^%ZISC S:$D(ZTQUEUED) ZTREQ=""@"" Q"
^XMB(3.9,128,2,505,0)="""RTN"",""RGMTAUDP"",148,0)"
^XMB(3.9,128,2,506,0)=" ;"
^XMB(3.9,128,2,507,0)="""RTN"",""RGMTAUDP"",149,0)"
^XMB(3.9,128,2,508,0)="HDR ;HEADER"
^XMB(3.9,128,2,509,0)="""RTN"",""RGMTAUDP"",150,0)"
^XMB(3.9,128,2,510,0)=" I $E(IOST,1,2)=""C-"" S SS=22-$Y F JJ=1:1:SS W !"
^XMB(3.9,128,2,511,0)="""RTN"",""RGMTAUDP"",151,0)"
^XMB(3.9,128,2,512,0)=" I $E(IOST,1,2)=""C-"",PG>0 S DIR(0)=""E"" W ! D ^DIR K DIR I 'Y S QFLG=1 Q"
^XMB(3.9,128,2,513,0)="""RTN"",""RGMTAUDP"",152,0)"
^XMB(3.9,128,2,514,0)=" S PG=PG+1 W:$Y!($E(IOST,1,2)=""C-"") @IOF"
^XMB(3.9,128,2,515,0)="""RTN"",""RGMTAUDP"",153,0)"
^XMB(3.9,128,2,516,0)=" W !,""PATIENT AUDIT LIST at "",SITE,"" on "",HDT,?72,""Page: "",PG"
^XMB(3.9,128,2,517,0)="""RTN"",""RGMTAUDP"",154,0)"
^XMB(3.9,128,2,518,0)=" W !,""Date Range: "",PRGBDT,"" to "",PRGEDT"
^XMB(3.9,128,2,519,0)="""RTN"",""RGMTAUDP"",155,0)"
^XMB(3.9,128,2,520,0)=" W !!,""Date/Time Edited"",?20,""Field Edited"",?51,""Edited By"",!?20,""Old Value / New Value"""
^XMB(3.9,128,2,521,0)="""RTN"",""RGMTAUDP"",156,0)"
^XMB(3.9,128,2,522,0)=" W !?3,""Option/Protocol"",!,LN"
^XMB(3.9,128,2,523,0)="""RTN"",""RGMTAUDP"",157,0)"
^XMB(3.9,128,2,524,0)=" Q"
^XMB(3.9,128,2,525,0)="""RTN"",""RGMTAUDP"",158,0)"
^XMB(3.9,128,2,526,0)=" ;"
^XMB(3.9,128,2,527,0)="""RTN"",""RGMTAUDP"",159,0)"
^XMB(3.9,128,2,528,0)="FLDLIST ;Help for Field # List"
^XMB(3.9,128,2,529,0)="""RTN"",""RGMTAUDP"",160,0)"
^XMB(3.9,128,2,530,0)=" K RG N DIR S QFLG=0 I RGERR W $C(7),"" ??"""
^XMB(3.9,128,2,531,0)="""RTN"",""RGMTAUDP"",161,0)"
^XMB(3.9,128,2,532,0)=" S HDR=""Select a FIELD NUMBER from the audited field(s) in the PATIENT file:"""
^XMB(3.9,128,2,533,0)="""RTN"",""RGMTAUDP"",162,0)"
^XMB(3.9,128,2,534,0)=" W @IOF,HDR,!"
^XMB(3.9,128,2,535,0)="""RTN"",""RGMTAUDP"",163,0)"
^XMB(3.9,128,2,536,0)=" S FLDLP=0 F  S FLDLP=$O(^DD(2,""AUDIT"",FLDLP)) Q:'FLDLP  Q:QFLG  D"
^XMB(3.9,128,2,537,0)="""RTN"",""RGMTAUDP"",164,0)"
^XMB(3.9,128,2,538,0)=" .I $Y+6>IOSL D  Q:QFLG"
^XMB(3.9,128,2,539,0)="""RTN"",""RGMTAUDP"",165,0)"
^XMB(3.9,128,2,540,0)=" ..S DIR(0)=""E"" W ! D ^DIR K DIR I 'Y S QFLG=1 Q"
^XMB(3.9,128,2,541,0)="""RTN"",""RGMTAUDP"",166,0)"
^XMB(3.9,128,2,542,0)=" ..E  W @IOF,HDR,!"
^XMB(3.9,128,2,543,0)="""RTN"",""RGMTAUDP"",167,0)"
^XMB(3.9,128,2,544,0)=" .K RGARR D FIELD^DID(2,FLDLP,"""",""LABEL"",""RGARR"")"
^XMB(3.9,128,2,545,0)="""RTN"",""RGMTAUDP"",168,0)"
^XMB(3.9,128,2,546,0)=" .S FLDNM=$G(RGARR(""LABEL"")) Q:FLDNM="""""
^XMB(3.9,128,2,547,0)="""RTN"",""RGMTAUDP"",169,0)"
^XMB(3.9,128,2,548,0)=" .W !,FLDLP,?13,FLDNM"
^XMB(3.9,128,2,549,0)="""RTN"",""RGMTAUDP"",170,0)"
^XMB(3.9,128,2,550,0)=" Q"
^XMB(3.9,128,2,551,0)="""VER"")"
^XMB(3.9,128,2,552,0)="8.0^22.0"
^XMB(3.9,128,2,553,0)="""BLD"",6668,6)"
^XMB(3.9,128,2,554,0)="^44"
^XMB(3.9,128,2,555,0)="$END KID RG*1.0*46"
^XMB(3.9,128,6,0)="^3.911A^2^2"
^XMB(3.9,128,6,1,0)="POSTMASTER"
^XMB(3.9,128,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,128,6,"B","POSTMASTER",1)=""
^XMB(3.9,128,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,129,0)="RMPF-2_SEQ-19_PAT-20.kid^.5^3061008.015742^^^^K"
^XMB(3.9,129,.6)="3061008"
^XMB(3.9,129,1,0)="^3.91A^2^2"
^XMB(3.9,129,1,1,0)=".5^0^3061008.015742^^^^^^^3061008.015742"
^XMB(3.9,129,1,2,0)="1^0^3061008.022621^^^^^^^3061008.022621"
^XMB(3.9,129,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,129,1,"C",.5,1)=""
^XMB(3.9,129,1,"C",1,2)=""
^XMB(3.9,129,2,0)="^^1463^1463^3061008"
^XMB(3.9,129,2,1,0)="$TXT Released RMPF*2*20 SEQ #19"
^XMB(3.9,129,2,2,0)="Extracted from mail message"
^XMB(3.9,129,2,3,0)="$END TXT"
^XMB(3.9,129,2,4,0)="$KID RMPF*2.0*20"
^XMB(3.9,129,2,5,0)="**INSTALL NAME**"
^XMB(3.9,129,2,6,0)="RMPF*2.0*20"
^XMB(3.9,129,2,7,0)="""BLD"",1117,0)"
^XMB(3.9,129,2,8,0)="RMPF*2.0*20^REMOTE ORDER/ENTRY SYSTEM^0^3020322^y"
^XMB(3.9,129,2,9,0)="""BLD"",1117,1,0)"
^XMB(3.9,129,2,10,0)="^^4^4^3020322^"
^XMB(3.9,129,2,11,0)="""BLD"",1117,1,1,0)"
^XMB(3.9,129,2,12,0)="This patch is for the inactivation of Custom Hearing Aids that are"
^XMB(3.9,129,2,13,0)="""BLD"",1117,1,2,0)"
^XMB(3.9,129,2,14,0)="under the old contract.  It will inactivate them, and remove all the"
^XMB(3.9,129,2,15,0)="""BLD"",1117,1,3,0)"
^XMB(3.9,129,2,16,0)="components.  It will also disable the ability to do adjustments on"
^XMB(3.9,129,2,17,0)="""BLD"",1117,1,4,0)"
^XMB(3.9,129,2,18,0)="previous CHA orders under the old contract."
^XMB(3.9,129,2,19,0)="""BLD"",1117,4,0)"
^XMB(3.9,129,2,20,0)="^9.64PA^^"
^XMB(3.9,129,2,21,0)="""BLD"",1117,""INID"")"
^XMB(3.9,129,2,22,0)="^y"
^XMB(3.9,129,2,23,0)="""BLD"",1117,""INIT"")"
^XMB(3.9,129,2,24,0)="RMPG9"
^XMB(3.9,129,2,25,0)="""BLD"",1117,""KRN"",0)"
^XMB(3.9,129,2,26,0)="^9.67PA^19^17"
^XMB(3.9,129,2,27,0)="""BLD"",1117,""KRN"",.4,0)"
^XMB(3.9,129,2,28,0)=".4"
^XMB(3.9,129,2,29,0)="""BLD"",1117,""KRN"",.401,0)"
^XMB(3.9,129,2,30,0)=".401"
^XMB(3.9,129,2,31,0)="""BLD"",1117,""KRN"",.402,0)"
^XMB(3.9,129,2,32,0)=".402"
^XMB(3.9,129,2,33,0)="""BLD"",1117,""KRN"",.403,0)"
^XMB(3.9,129,2,34,0)=".403"
^XMB(3.9,129,2,35,0)="""BLD"",1117,""KRN"",.5,0)"
^XMB(3.9,129,2,36,0)=".5"
^XMB(3.9,129,2,37,0)="""BLD"",1117,""KRN"",.84,0)"
^XMB(3.9,129,2,38,0)=".84"
^XMB(3.9,129,2,39,0)="""BLD"",1117,""KRN"",3.6,0)"
^XMB(3.9,129,2,40,0)="3.6"
^XMB(3.9,129,2,41,0)="""BLD"",1117,""KRN"",3.8,0)"
^XMB(3.9,129,2,42,0)="3.8"
^XMB(3.9,129,2,43,0)="""BLD"",1117,""KRN"",9.2,0)"
^XMB(3.9,129,2,44,0)="9.2"
^XMB(3.9,129,2,45,0)="""BLD"",1117,""KRN"",9.8,0)"
^XMB(3.9,129,2,46,0)="9.8"
^XMB(3.9,129,2,47,0)="""BLD"",1117,""KRN"",9.8,""NM"",0)"
^XMB(3.9,129,2,48,0)="^9.68A^5^5"
^XMB(3.9,129,2,49,0)="""BLD"",1117,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,129,2,50,0)="RMPG9^^0^B37916102"
^XMB(3.9,129,2,51,0)="""BLD"",1117,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,129,2,52,0)="RMPFET0^^0^B19501209"
^XMB(3.9,129,2,53,0)="""BLD"",1117,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,129,2,54,0)="RMPFET4^^0^B10889291"
^XMB(3.9,129,2,55,0)="""BLD"",1117,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,129,2,56,0)="RMPFET6^^0^B25811178"
^XMB(3.9,129,2,57,0)="""BLD"",1117,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,129,2,58,0)="RMPFET81^^0^B26266940"
^XMB(3.9,129,2,59,0)="""BLD"",1117,""KRN"",9.8,""NM"",""B"",""RMPFET0"",2)"
^XMB(3.9,129,2,60,0)=""
^XMB(3.9,129,2,61,0)="""BLD"",1117,""KRN"",9.8,""NM"",""B"",""RMPFET4"",3)"
^XMB(3.9,129,2,62,0)=""
^XMB(3.9,129,2,63,0)="""BLD"",1117,""KRN"",9.8,""NM"",""B"",""RMPFET6"",4)"
^XMB(3.9,129,2,64,0)=""
^XMB(3.9,129,2,65,0)="""BLD"",1117,""KRN"",9.8,""NM"",""B"",""RMPFET81"",5)"
^XMB(3.9,129,2,66,0)=""
^XMB(3.9,129,2,67,0)="""BLD"",1117,""KRN"",9.8,""NM"",""B"",""RMPG9"",1)"
^XMB(3.9,129,2,68,0)=""
^XMB(3.9,129,2,69,0)="""BLD"",1117,""KRN"",19,0)"
^XMB(3.9,129,2,70,0)="19"
^XMB(3.9,129,2,71,0)="""BLD"",1117,""KRN"",19.1,0)"
^XMB(3.9,129,2,72,0)="19.1"
^XMB(3.9,129,2,73,0)="""BLD"",1117,""KRN"",101,0)"
^XMB(3.9,129,2,74,0)="101"
^XMB(3.9,129,2,75,0)="""BLD"",1117,""KRN"",409.61,0)"
^XMB(3.9,129,2,76,0)="409.61"
^XMB(3.9,129,2,77,0)="""BLD"",1117,""KRN"",771,0)"
^XMB(3.9,129,2,78,0)="771"
^XMB(3.9,129,2,79,0)="""BLD"",1117,""KRN"",870,0)"
^XMB(3.9,129,2,80,0)="870"
^XMB(3.9,129,2,81,0)="""BLD"",1117,""KRN"",8994,0)"
^XMB(3.9,129,2,82,0)="8994"
^XMB(3.9,129,2,83,0)="""BLD"",1117,""KRN"",""B"",.4,.4)"
^XMB(3.9,129,2,84,0)=""
^XMB(3.9,129,2,85,0)="""BLD"",1117,""KRN"",""B"",.401,.401)"
^XMB(3.9,129,2,86,0)=""
^XMB(3.9,129,2,87,0)="""BLD"",1117,""KRN"",""B"",.402,.402)"
^XMB(3.9,129,2,88,0)=""
^XMB(3.9,129,2,89,0)="""BLD"",1117,""KRN"",""B"",.403,.403)"
^XMB(3.9,129,2,90,0)=""
^XMB(3.9,129,2,91,0)="""BLD"",1117,""KRN"",""B"",.5,.5)"
^XMB(3.9,129,2,92,0)=""
^XMB(3.9,129,2,93,0)="""BLD"",1117,""KRN"",""B"",.84,.84)"
^XMB(3.9,129,2,94,0)=""
^XMB(3.9,129,2,95,0)="""BLD"",1117,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,129,2,96,0)=""
^XMB(3.9,129,2,97,0)="""BLD"",1117,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,129,2,98,0)=""
^XMB(3.9,129,2,99,0)="""BLD"",1117,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,129,2,100,0)=""
^XMB(3.9,129,2,101,0)="""BLD"",1117,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,129,2,102,0)=""
^XMB(3.9,129,2,103,0)="""BLD"",1117,""KRN"",""B"",19,19)"
^XMB(3.9,129,2,104,0)=""
^XMB(3.9,129,2,105,0)="""BLD"",1117,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,129,2,106,0)=""
^XMB(3.9,129,2,107,0)="""BLD"",1117,""KRN"",""B"",101,101)"
^XMB(3.9,129,2,108,0)=""
^XMB(3.9,129,2,109,0)="""BLD"",1117,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,129,2,110,0)=""
^XMB(3.9,129,2,111,0)="""BLD"",1117,""KRN"",""B"",771,771)"
^XMB(3.9,129,2,112,0)=""
^XMB(3.9,129,2,113,0)="""BLD"",1117,""KRN"",""B"",870,870)"
^XMB(3.9,129,2,114,0)=""
^XMB(3.9,129,2,115,0)="""BLD"",1117,""KRN"",""B"",8994,8994)"
^XMB(3.9,129,2,116,0)=""
^XMB(3.9,129,2,117,0)="""BLD"",1117,""QUES"",0)"
^XMB(3.9,129,2,118,0)="^9.62^^"
^XMB(3.9,129,2,119,0)="""BLD"",1117,""REQB"",0)"
^XMB(3.9,129,2,120,0)="^9.611^^"
^XMB(3.9,129,2,121,0)="""INIT"")"
^XMB(3.9,129,2,122,0)="RMPG9"
^XMB(3.9,129,2,123,0)="""MBREQ"")"
^XMB(3.9,129,2,124,0)="0"
^XMB(3.9,129,2,125,0)="""PKG"",145,-1)"
^XMB(3.9,129,2,126,0)="1^1"
^XMB(3.9,129,2,127,0)="""PKG"",145,0)"
^XMB(3.9,129,2,128,0)="REMOTE ORDER/ENTRY SYSTEM^RMPF^Remote Order/Entry System"
^XMB(3.9,129,2,129,0)="""PKG"",145,20,0)"
^XMB(3.9,129,2,130,0)="^9.402P^^"
^XMB(3.9,129,2,131,0)="""PKG"",145,22,0)"
^XMB(3.9,129,2,132,0)="^9.49I^1^1"
^XMB(3.9,129,2,133,0)="""PKG"",145,22,1,0)"
^XMB(3.9,129,2,134,0)="2.0^2950530^2950527"
^XMB(3.9,129,2,135,0)="""PKG"",145,22,1,""PAH"",1,0)"
^XMB(3.9,129,2,136,0)="20^3020322^2558"
^XMB(3.9,129,2,137,0)="""PKG"",145,22,1,""PAH"",1,1,0)"
^XMB(3.9,129,2,138,0)="^^4^4^3020322"
^XMB(3.9,129,2,139,0)="""PKG"",145,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,129,2,140,0)="This patch is for the inactivation of Custom Hearing Aids that are"
^XMB(3.9,129,2,141,0)="""PKG"",145,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,129,2,142,0)="under the old contract.  It will inactivate them, and remove all the"
^XMB(3.9,129,2,143,0)="""PKG"",145,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,129,2,144,0)="components.  It will also disable the ability to do adjustments on"
^XMB(3.9,129,2,145,0)="""PKG"",145,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,129,2,146,0)="previous CHA orders under the old contract."
^XMB(3.9,129,2,147,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,129,2,148,0)="Y"
^XMB(3.9,129,2,149,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,129,2,150,0)="^D REP^XPDH"
^XMB(3.9,129,2,151,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,129,2,152,0)="Shall I write over your |FLAG| File"
^XMB(3.9,129,2,153,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,129,2,154,0)="YES"
^XMB(3.9,129,2,155,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,129,2,156,0)="D XPF1^XPDIQ"
^XMB(3.9,129,2,157,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,129,2,158,0)="Y"
^XMB(3.9,129,2,159,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,129,2,160,0)="^D DTA^XPDH"
^XMB(3.9,129,2,161,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,129,2,162,0)="Want my data |FLAG| yours"
^XMB(3.9,129,2,163,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,129,2,164,0)="YES"
^XMB(3.9,129,2,165,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,129,2,166,0)="D XPF2^XPDIQ"
^XMB(3.9,129,2,167,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,129,2,168,0)="YO"
^XMB(3.9,129,2,169,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,129,2,170,0)="^D INHIBIT^XPDH"
^XMB(3.9,129,2,171,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,129,2,172,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,129,2,173,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,129,2,174,0)="YES"
^XMB(3.9,129,2,175,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,129,2,176,0)="D XPI1^XPDIQ"
^XMB(3.9,129,2,177,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,129,2,178,0)="PO^VA(200,:EM"
^XMB(3.9,129,2,179,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,129,2,180,0)="^D MG^XPDH"
^XMB(3.9,129,2,181,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,129,2,182,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,129,2,183,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,129,2,184,0)=""
^XMB(3.9,129,2,185,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,129,2,186,0)="D XPM1^XPDIQ"
^XMB(3.9,129,2,187,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,129,2,188,0)="Y"
^XMB(3.9,129,2,189,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,129,2,190,0)="^D MENU^XPDH"
^XMB(3.9,129,2,191,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,129,2,192,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,129,2,193,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,129,2,194,0)="YES"
^XMB(3.9,129,2,195,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,129,2,196,0)="D XPO1^XPDIQ"
^XMB(3.9,129,2,197,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,129,2,198,0)="Y"
^XMB(3.9,129,2,199,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,129,2,200,0)="^D OPT^XPDH"
^XMB(3.9,129,2,201,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,129,2,202,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,129,2,203,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,129,2,204,0)="YES"
^XMB(3.9,129,2,205,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,129,2,206,0)="D XPZ1^XPDIQ"
^XMB(3.9,129,2,207,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,129,2,208,0)="Y"
^XMB(3.9,129,2,209,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,129,2,210,0)="^D RTN^XPDH"
^XMB(3.9,129,2,211,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,129,2,212,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,129,2,213,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,129,2,214,0)="NO"
^XMB(3.9,129,2,215,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,129,2,216,0)="D XPZ2^XPDIQ"
^XMB(3.9,129,2,217,0)="""RTN"")"
^XMB(3.9,129,2,218,0)="5"
^XMB(3.9,129,2,219,0)="""RTN"",""RMPFET0"")"
^XMB(3.9,129,2,220,0)="0^2^B19501209"
^XMB(3.9,129,2,221,0)="""RTN"",""RMPFET0"",1,0)"
^XMB(3.9,129,2,222,0)="RMPFET0 ;DDC/KAW-SELECTION ORDER ACTIONS [ 11/06/97  4:53 PM ]"
^XMB(3.9,129,2,223,0)="""RTN"",""RMPFET0"",2,0)"
^XMB(3.9,129,2,224,0)=" ;;2.0;REMOTE ORDER/ENTRY SYSTEM;**20**;MAY 30, 1995"
^XMB(3.9,129,2,225,0)="""RTN"",""RMPFET0"",3,0)"
^XMB(3.9,129,2,226,0)="SELOPT ;; input: RMPFX,RMPFST,RMPFHAT,RMPFTYP"
^XMB(3.9,129,2,227,0)="""RTN"",""RMPFET0"",4,0)"
^XMB(3.9,129,2,228,0)=" ;;output: RMPFSEL"
^XMB(3.9,129,2,229,0)="""RTN"",""RMPFET0"",5,0)"
^XMB(3.9,129,2,230,0)=" F I=1:1 Q:$Y>20  W !"
^XMB(3.9,129,2,231,0)="""RTN"",""RMPFET0"",6,0)"
^XMB(3.9,129,2,232,0)="SELEN W !,""Enter"" S FX="""" K RMPFSEL Q:'RMPFST"
^XMB(3.9,129,2,233,0)="""RTN"",""RMPFET0"",7,0)"
^XMB(3.9,129,2,234,0)=" S SU=$P(^RMPF(791810.2,RMPFST,0),U,2)"
^XMB(3.9,129,2,235,0)="""RTN"",""RMPFET0"",8,0)"
^XMB(3.9,129,2,236,0)=" F I=""I"",""P"",""E"",""F"",""D"" I SU=I,RMPFTYP'=5 W "" Number, <E>dit, <D>elete"" S FX=FX_""EeDd"" Q"
^XMB(3.9,129,2,237,0)="""RTN"",""RMPFET0"",9,0)"
^XMB(3.9,129,2,238,0)="SELOPT0 I RMPFTYP=5!(RMPFTYP=8) D ARRAY^RMPFDT2 D  K RMPFO"
^XMB(3.9,129,2,239,0)="""RTN"",""RMPFET0"",10,0)"
^XMB(3.9,129,2,240,0)=" .F I=""I"",""P"",""E"",""F"",""D"",""S"",""B"" I SU=I D"
^XMB(3.9,129,2,241,0)="""RTN"",""RMPFET0"",11,0)"
^XMB(3.9,129,2,242,0)=" ..I $P(^RMPF(791810,RMPFX,0),""^"",9)>3010630 D"
^XMB(3.9,129,2,243,0)="""RTN"",""RMPFET0"",12,0)"
^XMB(3.9,129,2,244,0)=" ...W:FX'="""" "","" W "" <A>djust"" S FX=FX_""Aa"""
^XMB(3.9,129,2,245,0)="""RTN"",""RMPFET0"",13,0)"
^XMB(3.9,129,2,246,0)=" ..S (X,FL)=0"
^XMB(3.9,129,2,247,0)="""RTN"",""RMPFET0"",14,0)"
^XMB(3.9,129,2,248,0)=" ..F  S X=$O(RMPFO(X)) Q:'X  I $D(^RMPF(791810,RMPFX,101,X,90)),$P(^(90),U,9) S FL=1 Q"
^XMB(3.9,129,2,249,0)="""RTN"",""RMPFET0"",15,0)"
^XMB(3.9,129,2,250,0)=" ..I FL,RMPFTYP'=8 W:FX'="""" "","" W "" <I>ssue"" S FX=FX_""Ii"""
^XMB(3.9,129,2,251,0)="""RTN"",""RMPFET0"",16,0)"
^XMB(3.9,129,2,252,0)=" .S X=0"
^XMB(3.9,129,2,253,0)="""RTN"",""RMPFET0"",17,0)"
^XMB(3.9,129,2,254,0)=" .F  S X=$O(RMPFO(X)) Q:'X  S S0=^RMPF(791810,RMPFX,101,X,0),Y=$P(S0,U,18) I Y,$D(^RMPF(791810.2,Y,0)) S Y=$P(^(0),U,2) I ""SEDF""[Y D CERT Q:FX[""Rr"""
^XMB(3.9,129,2,255,0)="""RTN"",""RMPFET0"",18,0)"
^XMB(3.9,129,2,256,0)=" .I SU=""C"",FX'[""A"" S X=DT,Z=60 D PASTWKDY D"
^XMB(3.9,129,2,257,0)="""RTN"",""RMPFET0"",19,0)"
^XMB(3.9,129,2,258,0)=" ..S X=0"
^XMB(3.9,129,2,259,0)="""RTN"",""RMPFET0"",20,0)"
^XMB(3.9,129,2,260,0)=" ..F  S X=$O(RMPFO(X)) Q:'X  I $P(^(0),U,19)'=""C"" W:FX'="""" "","" W "" <A>djust"" S FX=FX_""Aa"" Q"
^XMB(3.9,129,2,261,0)="""RTN"",""RMPFET0"",21,0)"
^XMB(3.9,129,2,262,0)=" I $O(^RMPF(791810,RMPFX,201,0)) W:FX'="""" "","" W "" <M>essages"" S FX=FX_""Mm"""
^XMB(3.9,129,2,263,0)="""RTN"",""RMPFET0"",22,0)"
^XMB(3.9,129,2,264,0)=" I $O(^RMPF(791810,RMPFX,301,0)) W:FX'="""" "","" W "" A<U>thorized Aids"" S FX=FX_""Uu"""
^XMB(3.9,129,2,265,0)="""RTN"",""RMPFET0"",23,0)"
^XMB(3.9,129,2,266,0)=" D CAN I CN W:FX'="""" "","" W "" <C>ancel"" S FX=FX_""Cc"""
^XMB(3.9,129,2,267,0)="""RTN"",""RMPFET0"",24,0)"
^XMB(3.9,129,2,268,0)=" I ""CIX""[RMPFHAT W:FX'="""" "","" W:$X>69 ! W "" <H>istory"" S FX=FX_""Hh"""
^XMB(3.9,129,2,269,0)="""RTN"",""RMPFET0"",25,0)"
^XMB(3.9,129,2,270,0)=" I RMPFTP=""P"" W:FX'="""" "","" W:$X>69 ! W "" E<X>tended"" S FX=FX_""Xx"""
^XMB(3.9,129,2,271,0)="""RTN"",""RMPFET0"",26,0)"
^XMB(3.9,129,2,272,0)=" W:$X>69 ! W:FX'="""" "" or"" W:$X>69 ! W "" <RETURN>: """
^XMB(3.9,129,2,273,0)="""RTN"",""RMPFET0"",27,0)"
^XMB(3.9,129,2,274,0)=" D READ G SELOPTE:$D(RMPFOUT) K RMPFF,CN"
^XMB(3.9,129,2,275,0)="""RTN"",""RMPFET0"",28,0)"
^XMB(3.9,129,2,276,0)="SELOPT1 I $D(RMPFQUT) D MSG K RMPFSEL G SELOPTE"
^XMB(3.9,129,2,277,0)="""RTN"",""RMPFET0"",29,0)"
^XMB(3.9,129,2,278,0)=" I Y="""" D ^RMPFEA2:'$D(RMPFERR) G SELOPTE:$D(RMPFOUT) K RMPFX G SELOPTE"
^XMB(3.9,129,2,279,0)="""RTN"",""RMPFET0"",30,0)"
^XMB(3.9,129,2,280,0)=" I Y?1N.E,FX[""Ee"" S RMPFSEL=Y G NUM"
^XMB(3.9,129,2,281,0)="""RTN"",""RMPFET0"",31,0)"
^XMB(3.9,129,2,282,0)=" S RMPFSEL=$E(Y,1)"
^XMB(3.9,129,2,283,0)="""RTN"",""RMPFET0"",32,0)"
^XMB(3.9,129,2,284,0)=" I FX'[RMPFSEL S RMPFQUT="""" G SELOPT1"
^XMB(3.9,129,2,285,0)="""RTN"",""RMPFET0"",33,0)"
^XMB(3.9,129,2,286,0)=" I ""Ee""[RMPFSEL S RMPFSEL=""E"" G SELOPTE"
^XMB(3.9,129,2,287,0)="""RTN"",""RMPFET0"",34,0)"
^XMB(3.9,129,2,288,0)=" I ""Hh""[RMPFSEL D ^RMPFDT7 G SELOPTE"
^XMB(3.9,129,2,289,0)="""RTN"",""RMPFET0"",35,0)"
^XMB(3.9,129,2,290,0)=" I ""Mm""[RMPFSEL D ^RMPFDT4 G SELOPTE"
^XMB(3.9,129,2,291,0)="""RTN"",""RMPFET0"",36,0)"
^XMB(3.9,129,2,292,0)=" I ""Dd""[RMPFSEL D DELETE^RMPFET1 G SELOPTE"
^XMB(3.9,129,2,293,0)="""RTN"",""RMPFET0"",37,0)"
^XMB(3.9,129,2,294,0)=" I ""Ii""[RMPFSEL D ^RMPFET7 G SELOPTE:$D(RMPFOUT) D ^RMPFET2 G SELOPTE"
^XMB(3.9,129,2,295,0)="""RTN"",""RMPFET0"",38,0)"
^XMB(3.9,129,2,296,0)=" I ""Rr""[RMPFSEL N RMPFSEL D DISP^RMPFET84 G SELOPTE"
^XMB(3.9,129,2,297,0)="""RTN"",""RMPFET0"",39,0)"
^XMB(3.9,129,2,298,0)=" I ""Aa""[RMPFSEL D ^RMPFET8 G SELOPTE:$D(RMPFOUT) D ^RMPFET2 G SELOPTE"
^XMB(3.9,129,2,299,0)="""RTN"",""RMPFET0"",40,0)"
^XMB(3.9,129,2,300,0)=" I ""Uu""[RMPFSEL D ^RMPFDT8 G SELOPTE"
^XMB(3.9,129,2,301,0)="""RTN"",""RMPFET0"",41,0)"
^XMB(3.9,129,2,302,0)=" I ""Cc""[RMPFSEL D ^RMPFET82 G SELOPTE"
^XMB(3.9,129,2,303,0)="""RTN"",""RMPFET0"",42,0)"
^XMB(3.9,129,2,304,0)=" I ""Xx""[RMPFSEL D ^RMPFDT9 G SELOPTE"
^XMB(3.9,129,2,305,0)="""RTN"",""RMPFET0"",43,0)"
^XMB(3.9,129,2,306,0)="NUM K RMPFQUT"
^XMB(3.9,129,2,307,0)="""RTN"",""RMPFET0"",44,0)"
^XMB(3.9,129,2,308,0)=" F I=1:1 S Z=$P(Y,"","",I) Q:Z=""""  D  G SELOPT1:$D(RMPFQUT)"
^XMB(3.9,129,2,309,0)="""RTN"",""RMPFET0"",45,0)"
^XMB(3.9,129,2,310,0)=" .I Z?1N.N,Z>0,Z<11 S RMPFSL(Z)="""" Q"
^XMB(3.9,129,2,311,0)="""RTN"",""RMPFET0"",46,0)"
^XMB(3.9,129,2,312,0)=" .S RMPFQUT="""" Q"
^XMB(3.9,129,2,313,0)="""RTN"",""RMPFET0"",47,0)"
^XMB(3.9,129,2,314,0)=" I $D(RMPFSL) D SUB^RMPFET5"
^XMB(3.9,129,2,315,0)="""RTN"",""RMPFET0"",48,0)"
^XMB(3.9,129,2,316,0)="SELOPTE K I,FX,Y,X,Z,SU,X1,X2,%Y,S0,A,FL"
^XMB(3.9,129,2,317,0)="""RTN"",""RMPFET0"",49,0)"
^XMB(3.9,129,2,318,0)="END K ID Q"
^XMB(3.9,129,2,319,0)="""RTN"",""RMPFET0"",50,0)"
^XMB(3.9,129,2,320,0)="CERT S A=$G(^RMPF(791810,RMPFX,101,X,90))"
^XMB(3.9,129,2,321,0)="""RTN"",""RMPFET0"",51,0)"
^XMB(3.9,129,2,322,0)=" I '$P(A,U,11),$P(S0,U,20) Q"
^XMB(3.9,129,2,323,0)="""RTN"",""RMPFET0"",52,0)"
^XMB(3.9,129,2,324,0)=" I '$P(A,U,9),""EDSF""[Y G CERT1"
^XMB(3.9,129,2,325,0)="""RTN"",""RMPFET0"",53,0)"
^XMB(3.9,129,2,326,0)=" I $P(A,U,9),""EDF""[Y G CERT1"
^XMB(3.9,129,2,327,0)="""RTN"",""RMPFET0"",54,0)"
^XMB(3.9,129,2,328,0)=" I $P(A,U,9),$P(S0,U,19)[""R"",$P(S0,U,20) G CERT1"
^XMB(3.9,129,2,329,0)="""RTN"",""RMPFET0"",55,0)"
^XMB(3.9,129,2,330,0)=" E  Q"
^XMB(3.9,129,2,331,0)="""RTN"",""RMPFET0"",56,0)"
^XMB(3.9,129,2,332,0)="CERT1 W:FX'="""" "","" W:$P(A,U,9) "" Re-"" W:'$P(A,U,9) "" "" W ""Ce<R>tify"" S FX=FX_""Rr"" Q"
^XMB(3.9,129,2,333,0)="""RTN"",""RMPFET0"",57,0)"
^XMB(3.9,129,2,334,0)="CAN ;;Calculate if CANCEL ALLOWED"
^XMB(3.9,129,2,335,0)="""RTN"",""RMPFET0"",58,0)"
^XMB(3.9,129,2,336,0)=" ;; input: RMPFHAT,RMPFX"
^XMB(3.9,129,2,337,0)="""RTN"",""RMPFET0"",59,0)"
^XMB(3.9,129,2,338,0)=" ;;output: CN"
^XMB(3.9,129,2,339,0)="""RTN"",""RMPFET0"",60,0)"
^XMB(3.9,129,2,340,0)=" D ARRAY^RMPFDT2"
^XMB(3.9,129,2,341,0)="""RTN"",""RMPFET0"",61,0)"
^XMB(3.9,129,2,342,0)=" S CN=0 G CANE:""ICXZBDJQW""'[RMPFHAT"
^XMB(3.9,129,2,343,0)="""RTN"",""RMPFET0"",62,0)"
^XMB(3.9,129,2,344,0)=" I ""ZBDJQW""[RMPFHAT D  G CANE"
^XMB(3.9,129,2,345,0)="""RTN"",""RMPFET0"",63,0)"
^XMB(3.9,129,2,346,0)=" .S X=0 F  S X=$O(RMPFO(X)) Q:'X  I RMPFO(X)=18!($P(^RMPF(791810,RMPFX,101,X,0),U,15)=""C"") S CN=1 Q"
^XMB(3.9,129,2,347,0)="""RTN"",""RMPFET0"",64,0)"
^XMB(3.9,129,2,348,0)=" S XX=0 F  S XX=$O(RMPFO(XX)) Q:'XX  D  Q:CN"
^XMB(3.9,129,2,349,0)="""RTN"",""RMPFET0"",65,0)"
^XMB(3.9,129,2,350,0)=" .I RMPFO(XX)=5!(RMPFO(XX)=17) S CN=1 Q"
^XMB(3.9,129,2,351,0)="""RTN"",""RMPFET0"",66,0)"
^XMB(3.9,129,2,352,0)=" .I RMPFHAT=""I"",RMPFO(XX)=8 S X=DT,Z=60 D PASTWKDY S ID=$P(^RMPF(791810,RMPFX,101,XX,0),U,8) I ID>Y S CN=1"
^XMB(3.9,129,2,353,0)="""RTN"",""RMPFET0"",67,0)"
^XMB(3.9,129,2,354,0)="CANE K X,XX,RMPFO Q"
^XMB(3.9,129,2,355,0)="""RTN"",""RMPFET0"",68,0)"
^XMB(3.9,129,2,356,0)="READ K RMPFOUT,RMPFQUT"
^XMB(3.9,129,2,357,0)="""RTN"",""RMPFET0"",69,0)"
^XMB(3.9,129,2,358,0)=" R Y:DTIME I '$T W $C(7) R Y:5 G READ:Y=""."" S:'$T Y=U"
^XMB(3.9,129,2,359,0)="""RTN"",""RMPFET0"",70,0)"
^XMB(3.9,129,2,360,0)=" I Y?1""^"".E S (RMPFOUT,Y)="""" Q"
^XMB(3.9,129,2,361,0)="""RTN"",""RMPFET0"",71,0)"
^XMB(3.9,129,2,362,0)=" S:Y?1""?"".E (RMPFQUT,Y)="""""
^XMB(3.9,129,2,363,0)="""RTN"",""RMPFET0"",72,0)"
^XMB(3.9,129,2,364,0)=" Q"
^XMB(3.9,129,2,365,0)="""RTN"",""RMPFET0"",73,0)"
^XMB(3.9,129,2,366,0)="PASTWKDY Q:X'?7N"
^XMB(3.9,129,2,367,0)="""RTN"",""RMPFET0"",74,0)"
^XMB(3.9,129,2,368,0)=" ;returns a date Z workdays into the past"
^XMB(3.9,129,2,369,0)="""RTN"",""RMPFET0"",75,0)"
^XMB(3.9,129,2,370,0)=" N BD,DW,WK,%H S WK=0 S:'$G(Z) Z=5"
^XMB(3.9,129,2,371,0)="""RTN"",""RMPFET0"",76,0)"
^XMB(3.9,129,2,372,0)="W1 S X1=X,X2=-1 D C^%DTC,H^%DTC"
^XMB(3.9,129,2,373,0)="""RTN"",""RMPFET0"",77,0)"
^XMB(3.9,129,2,374,0)=" I %Y,%Y<6,'$D(^HOLIDAY(X)) S WK=WK+1"
^XMB(3.9,129,2,375,0)="""RTN"",""RMPFET0"",78,0)"
^XMB(3.9,129,2,376,0)=" I WK>Z S Y=X Q"
^XMB(3.9,129,2,377,0)="""RTN"",""RMPFET0"",79,0)"
^XMB(3.9,129,2,378,0)=" G W1"
^XMB(3.9,129,2,379,0)="""RTN"",""RMPFET0"",80,0)"
^XMB(3.9,129,2,380,0)="MSG W !!,""Enter "" S CT=0"
^XMB(3.9,129,2,381,0)="""RTN"",""RMPFET0"",81,0)"
^XMB(3.9,129,2,382,0)=" F I=1:2 S X=$E(FX,I) Q:X=""""  W:CT ! W ?6,$P($T(@X),"";;"",2) S CT=CT+1"
^XMB(3.9,129,2,383,0)="""RTN"",""RMPFET0"",82,0)"
^XMB(3.9,129,2,384,0)=" F I=""I"",""P"",""E"",""D"" I SU=I W !?6,""field numbers separated by commas to edit only those fields"" Q"
^XMB(3.9,129,2,385,0)="""RTN"",""RMPFET0"",83,0)"
^XMB(3.9,129,2,386,0)=" W:FX'="""" ! W ?6,""<RETURN> to continue."",!"
^XMB(3.9,129,2,387,0)="""RTN"",""RMPFET0"",84,0)"
^XMB(3.9,129,2,388,0)=" W !!!,""Type <RETURN> to continue: "" D READ I '$D(RMPFOUT) S RMPFQUT="""""
^XMB(3.9,129,2,389,0)="""RTN"",""RMPFET0"",85,0)"
^XMB(3.9,129,2,390,0)=" K CT Q"
^XMB(3.9,129,2,391,0)="""RTN"",""RMPFET0"",86,0)"
^XMB(3.9,129,2,392,0)="E ;;<E> to edit all fields of the order"
^XMB(3.9,129,2,393,0)="""RTN"",""RMPFET0"",87,0)"
^XMB(3.9,129,2,394,0)="D ;;<D> to delete the entire order"
^XMB(3.9,129,2,395,0)="""RTN"",""RMPFET0"",88,0)"
^XMB(3.9,129,2,396,0)="M ;;<M> to view all messages for the order"
^XMB(3.9,129,2,397,0)="""RTN"",""RMPFET0"",89,0)"
^XMB(3.9,129,2,398,0)="H ;;<H> to view the order history"
^XMB(3.9,129,2,399,0)="""RTN"",""RMPFET0"",90,0)"
^XMB(3.9,129,2,400,0)="I ;;<I> to enter the issue date"
^XMB(3.9,129,2,401,0)="""RTN"",""RMPFET0"",91,0)"
^XMB(3.9,129,2,402,0)="A ;;<A> to make an adjustment"
^XMB(3.9,129,2,403,0)="""RTN"",""RMPFET0"",92,0)"
^XMB(3.9,129,2,404,0)="C ;;<C> to cancel the order"
^XMB(3.9,129,2,405,0)="""RTN"",""RMPFET0"",93,0)"
^XMB(3.9,129,2,406,0)="R ;;<R> to certify that the order was received"
^XMB(3.9,129,2,407,0)="""RTN"",""RMPFET0"",94,0)"
^XMB(3.9,129,2,408,0)="U ;;<U> to view a list of authorized hearing aids"
^XMB(3.9,129,2,409,0)="""RTN"",""RMPFET0"",95,0)"
^XMB(3.9,129,2,410,0)="X ;;<X> to view the extended information for this order"
^XMB(3.9,129,2,411,0)="""RTN"",""RMPFET4"")"
^XMB(3.9,129,2,412,0)="0^3^B10889291"
^XMB(3.9,129,2,413,0)="""RTN"",""RMPFET4"",1,0)"
^XMB(3.9,129,2,414,0)="RMPFET4 ;DDC/KAW-EVALUATE ORDER STATUS BY TYPE [ 05/27/95   2:10 PM ]"
^XMB(3.9,129,2,415,0)="""RTN"",""RMPFET4"",2,0)"
^XMB(3.9,129,2,416,0)=" ;;2.0;REMOTE ORDER/ENTRY SYSTEM;**20**;MAY 30, 1995"
^XMB(3.9,129,2,417,0)="""RTN"",""RMPFET4"",3,0)"
^XMB(3.9,129,2,418,0)="CUST ;; input: RMPFX"
^XMB(3.9,129,2,419,0)="""RTN"",""RMPFET4"",4,0)"
^XMB(3.9,129,2,420,0)=" ;;output: RMPFERR,RMPFMSG"
^XMB(3.9,129,2,421,0)="""RTN"",""RMPFET4"",5,0)"
^XMB(3.9,129,2,422,0)=" S SS=$S($D(^RMPF(791810,RMPFX,11)):^(11),1:"""")"
^XMB(3.9,129,2,423,0)="""RTN"",""RMPFET4"",6,0)"
^XMB(3.9,129,2,424,0)=" S RMPFTF=$P(SS,U,1),RMPFUS=$P(SS,U,2)"
^XMB(3.9,129,2,425,0)="""RTN"",""RMPFET4"",7,0)"
^XMB(3.9,129,2,426,0)=" S RMPFDC=$P($G(^RMPF(791810,RMPFX,2)),U,1) I RMPFDC,$D(^RMPR(662,RMPFDC,0)) S X=$P(^(0),U,1) D"
^XMB(3.9,129,2,427,0)="""RTN"",""RMPFET4"",8,0)"
^XMB(3.9,129,2,428,0)=" .I X[""DEAF/U"",RMPFTF=""B"" S RMPFERR(""FITTING CANNOT BE BINAURAL IF PATIENT IS DEAF/U"")="""""
^XMB(3.9,129,2,429,0)="""RTN"",""RMPFET4"",9,0)"
^XMB(3.9,129,2,430,0)=" .I X[""DEAF/U"",RMPFUS=""B"" S RMPFERR(""PATIENT CANNOT BE AUTHORIZED FOR BINAURAL USE IF DISABILITY IS DEAF/U"")="""""
^XMB(3.9,129,2,431,0)="""RTN"",""RMPFET4"",10,0)"
^XMB(3.9,129,2,432,0)=" D ARRAY^RMPFDT2 S (X,CX)=0 K RMPFEAR"
^XMB(3.9,129,2,433,0)="""RTN"",""RMPFET4"",11,0)"
^XMB(3.9,129,2,434,0)=" F I=1:1 S X=$O(RMPFO(X)) Q:'X  S CX=CX+1,A=$P(^RMPF(791810,RMPFX,101,X,0),U,4) I A'="""" D"
^XMB(3.9,129,2,435,0)="""RTN"",""RMPFET4"",12,0)"
^XMB(3.9,129,2,436,0)=" .S IT=$P(^RMPF(791810,RMPFX,101,X,0),U,1) Q:'IT"
^XMB(3.9,129,2,437,0)="""RTN"",""RMPFET4"",13,0)"
^XMB(3.9,129,2,438,0)=" .Q:'$D(^RMPF(791811,IT,0))"
^XMB(3.9,129,2,439,0)="""RTN"",""RMPFET4"",14,0)"
^XMB(3.9,129,2,440,0)=" .Q:$P(^RMPF(791811,IT,0),""^"",1)[""REMOTE"""
^XMB(3.9,129,2,441,0)="""RTN"",""RMPFET4"",15,0)"
^XMB(3.9,129,2,442,0)=" .I $D(RMPFEAR(A)) S RMPFMSG(""TWO OR MORE AIDS ARE ORDERED FOR THE SAME EAR"")="""""
^XMB(3.9,129,2,443,0)="""RTN"",""RMPFET4"",16,0)"
^XMB(3.9,129,2,444,0)=" .S RMPFEAR(A)="""" Q"
^XMB(3.9,129,2,445,0)="""RTN"",""RMPFET4"",17,0)"
^XMB(3.9,129,2,446,0)=" I RMPFTF=""B"",CX<2 S RMPFERR(""TWO AIDS MUST BE ORDERED WITH A BINAURAL FITTING"")="""""
^XMB(3.9,129,2,447,0)="""RTN"",""RMPFET4"",18,0)"
^XMB(3.9,129,2,448,0)=" I RMPFUS=""M"",RMPFTF=""B"" S RMPFERR(""FITTING CANNOT BE BINAURAL IF AUTHORIZED USAGE IS MONAURAL"")="""""
^XMB(3.9,129,2,449,0)="""RTN"",""RMPFET4"",19,0)"
^XMB(3.9,129,2,450,0)=" I RMPFUS=""M"",CX>2 S RMPFMSG(""MORE THAN TWO AIDS HAVE BEEN ORDERED FOR A MONAURAL USER"")="""""
^XMB(3.9,129,2,451,0)="""RTN"",""RMPFET4"",20,0)"
^XMB(3.9,129,2,452,0)=" S SS=$G(^RMPF(791810,RMPFX,10)),RC=$P(SS,U,4),AD=$P(SS,U,8)"
^XMB(3.9,129,2,453,0)="""RTN"",""RMPFET4"",21,0)"
^XMB(3.9,129,2,454,0)=" I RC>DT S RMPFERR(""REQUEST FOR CARE DATE CANNOT BE A FUTURE DATE"")="""""
^XMB(3.9,129,2,455,0)="""RTN"",""RMPFET4"",22,0)"
^XMB(3.9,129,2,456,0)=" I AD>DT S RMPFERR(""AUDIOLOGICAL ASSESSMENT DATE CANNOT BE A FUTURE DATE"")="""""
^XMB(3.9,129,2,457,0)="""RTN"",""RMPFET4"",23,0)"
^XMB(3.9,129,2,458,0)=" I AD,RC>AD S RMPFERR(""AUDIOLOGICAL ASSESSMENT DATE CANNOT BE PRIOR TO REQUEST FOR CARE DATE"")="""""
^XMB(3.9,129,2,459,0)="""RTN"",""RMPFET4"",24,0)"
^XMB(3.9,129,2,460,0)=" K SS,RMPFDC,RMPFO,RMPFTF,RMPFUS,RMPFEAR,I,X,CX,A,RC,AD,IT Q"
^XMB(3.9,129,2,461,0)="""RTN"",""RMPFET4"",25,0)"
^XMB(3.9,129,2,462,0)="REG ;; input: RMPFX"
^XMB(3.9,129,2,463,0)="""RTN"",""RMPFET4"",26,0)"
^XMB(3.9,129,2,464,0)=" ;;output: RMPFERR"
^XMB(3.9,129,2,465,0)="""RTN"",""RMPFET4"",27,0)"
^XMB(3.9,129,2,466,0)=" S X=0"
^XMB(3.9,129,2,467,0)="""RTN"",""RMPFET4"",28,0)"
^XMB(3.9,129,2,468,0)=" F I=1:1 S X=$O(^RMPF(791810,RMPFX,101,X)) G REGE:'X D"
^XMB(3.9,129,2,469,0)="""RTN"",""RMPFET4"",29,0)"
^XMB(3.9,129,2,470,0)=" .Q:'$D(^RMPF(791810,RMPFX,101,X,0))  Q:$P(^(0),U,1)'=1"
^XMB(3.9,129,2,471,0)="""RTN"",""RMPFET4"",30,0)"
^XMB(3.9,129,2,472,0)=" .I '$D(^RMPF(791810,RMPFX,101,X,2)) S RMPFERR(""FREE TEXT MAKE AND MODEL NOT ENTERED"")="""""
^XMB(3.9,129,2,473,0)="""RTN"",""RMPFET4"",31,0)"
^XMB(3.9,129,2,474,0)=" .S MM=$G(^RMPF(791810,RMPFX,101,X,2)) S MK=$P(MM,U,1) I MK="""" S RMPFERR(""FREE TEXT MAKE MISSING"")="""""
^XMB(3.9,129,2,475,0)="""RTN"",""RMPFET4"",32,0)"
^XMB(3.9,129,2,476,0)=" .S MD=$P(MM,U,2) I MD="""" S RMPFERR(""FREE TEXT MODEL MISSING"")="""""
^XMB(3.9,129,2,477,0)="""RTN"",""RMPFET4"",33,0)"
^XMB(3.9,129,2,478,0)=" .Q"
^XMB(3.9,129,2,479,0)="""RTN"",""RMPFET4"",34,0)"
^XMB(3.9,129,2,480,0)="REGE K X,I,MM,MK,MD Q"
^XMB(3.9,129,2,481,0)="""RTN"",""RMPFET4"",35,0)"
^XMB(3.9,129,2,482,0)="ISS ;;Special error checks for Custom Hearing Aid Issue Orders"
^XMB(3.9,129,2,483,0)="""RTN"",""RMPFET4"",36,0)"
^XMB(3.9,129,2,484,0)=" ;; input: RMPFX"
^XMB(3.9,129,2,485,0)="""RTN"",""RMPFET4"",37,0)"
^XMB(3.9,129,2,486,0)=" ;;output: RMPFERR"
^XMB(3.9,129,2,487,0)="""RTN"",""RMPFET4"",38,0)"
^XMB(3.9,129,2,488,0)=" S OD=$P(^RMPF(791810,RMPFX,0),U,9) D ARRAY^RMPFDT2 S RMPFY=0"
^XMB(3.9,129,2,489,0)="""RTN"",""RMPFET4"",39,0)"
^XMB(3.9,129,2,490,0)="I1 F  S RMPFY=$O(RMPFO(RMPFY)) Q:'RMPFY  D"
^XMB(3.9,129,2,491,0)="""RTN"",""RMPFET4"",40,0)"
^XMB(3.9,129,2,492,0)=" .Q:'$D(^RMPF(791810,RMPFX,101,RMPFY))  S S0=^(RMPFY,0) Q:$P(S0,U,15)=""C"""
^XMB(3.9,129,2,493,0)="""RTN"",""RMPFET4"",41,0)"
^XMB(3.9,129,2,494,0)=" .I $P(S0,U,20),$P(S0,U,19)[""R"" D"
^XMB(3.9,129,2,495,0)="""RTN"",""RMPFET4"",42,0)"
^XMB(3.9,129,2,496,0)=" ..I $P(S0,U,5)="""" S RMPFERR(""SERIAL NUMBER MISSING"")="""""
^XMB(3.9,129,2,497,0)="""RTN"",""RMPFET4"",43,0)"
^XMB(3.9,129,2,498,0)=" ..S X=$G(^RMPF(791810,RMPFX,101,RMPFY,90))"
^XMB(3.9,129,2,499,0)="""RTN"",""RMPFET4"",44,0)"
^XMB(3.9,129,2,500,0)=" ..I $P(X,U,8)=""""!($P(X,U,9)="""") S RMPFERR(""CERTIFICATION INFORMATION MISSING"")="""""
^XMB(3.9,129,2,501,0)="""RTN"",""RMPFET4"",45,0)"
^XMB(3.9,129,2,502,0)=" .S ID=$P(S0,U,8),X=$P(S0,U,19),BT=$P(S0,U,2)"
^XMB(3.9,129,2,503,0)="""RTN"",""RMPFET4"",46,0)"
^XMB(3.9,129,2,504,0)=" .I BT="""",$P($G(^RMPF(791810,RMPFX,101,RMPFY,90)),U,8),'$P(^(0),U,20),$P(^(0),U,19)[""I"" S RMPFERR(""BATTERY TYPE MISSING"")="""""
^XMB(3.9,129,2,505,0)="""RTN"",""RMPFET4"",47,0)"
^XMB(3.9,129,2,506,0)=" .I X[""I"",$P($G(^RMPF(791810,RMPFX,101,RMPFY,90)),U,12)="""" S RMPFERR(""ISSUING USER MISSING"")="""""
^XMB(3.9,129,2,507,0)="""RTN"",""RMPFET4"",48,0)"
^XMB(3.9,129,2,508,0)=" .I ID="""",X[""I"" S RMPFERR(""ISSUE DATE MISSING"")="""" Q"
^XMB(3.9,129,2,509,0)="""RTN"",""RMPFET4"",49,0)"
^XMB(3.9,129,2,510,0)=" .Q:ID="""""
^XMB(3.9,129,2,511,0)="""RTN"",""RMPFET4"",50,0)"
^XMB(3.9,129,2,512,0)=" .I ID<OD S RMPFERR(""ISSUE DATE IS PRIOR TO ORDER DATE"")="""""
^XMB(3.9,129,2,513,0)="""RTN"",""RMPFET4"",51,0)"
^XMB(3.9,129,2,514,0)="ISSE K OD,ID,BT,S0,RMPFY,X,RMPFO Q"
^XMB(3.9,129,2,515,0)="""RTN"",""RMPFET6"")"
^XMB(3.9,129,2,516,0)="0^4^B25811178"
^XMB(3.9,129,2,517,0)="""RTN"",""RMPFET6"",1,0)"
^XMB(3.9,129,2,518,0)="RMPFET6 ;DDC/KAW-EDIT LINE ITEM INFORMATION [ 05/12/98  1:45 PM ]"
^XMB(3.9,129,2,519,0)="""RTN"",""RMPFET6"",2,0)"
^XMB(3.9,129,2,520,0)=" ;;2.0;REMOTE ORDER/ENTRY SYSTEM;**20**;MAY 30, 1995"
^XMB(3.9,129,2,521,0)="""RTN"",""RMPFET6"",3,0)"
^XMB(3.9,129,2,522,0)=" ;; input: RMPFX,RMPFTP,RMPFTYP,RMPFHAT,RMPFST,DFN (if patient order)"
^XMB(3.9,129,2,523,0)="""RTN"",""RMPFET6"",4,0)"
^XMB(3.9,129,2,524,0)=" ;;output: None"
^XMB(3.9,129,2,525,0)="""RTN"",""RMPFET6"",5,0)"
^XMB(3.9,129,2,526,0)=" Q:'$D(RMPFX)  S X=$G(^RMPF(791810,RMPFX,0)) Q:X="""""
^XMB(3.9,129,2,527,0)="""RTN"",""RMPFET6"",6,0)"
^XMB(3.9,129,2,528,0)="START K RMPFMD,RMPFY D ARRAY^RMPFDT2"
^XMB(3.9,129,2,529,0)="""RTN"",""RMPFET6"",7,0)"
^XMB(3.9,129,2,530,0)=" S (X,RMPFMC)=0 F  S X=$O(RMPFO(X)) Q:'X  S RMPFMC=RMPFMC+1"
^XMB(3.9,129,2,531,0)="""RTN"",""RMPFET6"",8,0)"
^XMB(3.9,129,2,532,0)=" I 'RMPFMC S Y1=""A"" G ST1"
^XMB(3.9,129,2,533,0)="""RTN"",""RMPFET6"",9,0)"
^XMB(3.9,129,2,534,0)=" D:RMPFTP=""P"" PAT^RMPFUTL"
^XMB(3.9,129,2,535,0)="""RTN"",""RMPFET6"",10,0)"
^XMB(3.9,129,2,536,0)=" W @IOF,!?33,""ITEMS ORDERED"" D @(""HEAD""_RMPFTP_""^RMPFDT1"")"
^XMB(3.9,129,2,537,0)="""RTN"",""RMPFET6"",11,0)"
^XMB(3.9,129,2,538,0)=" W !! D ^RMPFDT2 K RMPFY"
^XMB(3.9,129,2,539,0)="""RTN"",""RMPFET6"",12,0)"
^XMB(3.9,129,2,540,0)=" D ^RMPFET62 G END:$D(RMPFOUT),END:'$D(Y1)"
^XMB(3.9,129,2,541,0)="""RTN"",""RMPFET6"",13,0)"
^XMB(3.9,129,2,542,0)=" I ""Dd""[Y1,$D(RMPFY) D DELETE G END"
^XMB(3.9,129,2,543,0)="""RTN"",""RMPFET6"",14,0)"
^XMB(3.9,129,2,544,0)="ST1 I ""Aa""[Y1 D ADD G END:$D(RMPFOUT),END:'$D(RMPFY)"
^XMB(3.9,129,2,545,0)="""RTN"",""RMPFET6"",15,0)"
^XMB(3.9,129,2,546,0)=" D EDIT G END:$D(RMPFOUT),START"
^XMB(3.9,129,2,547,0)="""RTN"",""RMPFET6"",16,0)"
^XMB(3.9,129,2,548,0)="END K CX,SX,RMPFDOB,RMPFDOD,RMPFMC,RMPFMD,RMPFNAM,RMPFO,RMPFSSN,Y1"
^XMB(3.9,129,2,549,0)="""RTN"",""RMPFET6"",17,0)"
^XMB(3.9,129,2,550,0)=" K RMPFSTR0,RMPFSTR2,RMPFSTR3 Q"
^XMB(3.9,129,2,551,0)="""RTN"",""RMPFET6"",18,0)"
^XMB(3.9,129,2,552,0)=" ;"
^XMB(3.9,129,2,553,0)="""RTN"",""RMPFET6"",19,0)"
^XMB(3.9,129,2,554,0)="ADD ;;Add a new line item"
^XMB(3.9,129,2,555,0)="""RTN"",""RMPFET6"",20,0)"
^XMB(3.9,129,2,556,0)=" ;; input: RMPFX,RMPFTYP,RMPFHAT,RMPFST"
^XMB(3.9,129,2,557,0)="""RTN"",""RMPFET6"",21,0)"
^XMB(3.9,129,2,558,0)=" ;;output: RMPFY,RMPFIT,RMPFITP"
^XMB(3.9,129,2,559,0)="""RTN"",""RMPFET6"",22,0)"
^XMB(3.9,129,2,560,0)=" K RMPFIT"
^XMB(3.9,129,2,561,0)="""RTN"",""RMPFET6"",23,0)"
^XMB(3.9,129,2,562,0)=" D SELECT G ADDE:$D(RMPFOUT),ADDE:'$D(RMPFIT)"
^XMB(3.9,129,2,563,0)="""RTN"",""RMPFET6"",24,0)"
^XMB(3.9,129,2,564,0)="ADD1 I '$D(^RMPF(791810,RMPFX,101,0)) S ^RMPF(791810,RMPFX,101,0)=""^791810.0101P"""
^XMB(3.9,129,2,565,0)="""RTN"",""RMPFET6"",25,0)"
^XMB(3.9,129,2,566,0)=" S %DT=""T"",X=""NOW"" D ^%DT"
^XMB(3.9,129,2,567,0)="""RTN"",""RMPFET6"",26,0)"
^XMB(3.9,129,2,568,0)=" S DIC=""^RMPF(791810,""_RMPFX_"",101,"",(DA,DA(1))=RMPFX,X=RMPFIT"
^XMB(3.9,129,2,569,0)="""RTN"",""RMPFET6"",27,0)"
^XMB(3.9,129,2,570,0)=" S DIC(0)=""L"",DLAYGO=791810,DIC(""DR"")="".15////O;.17////""_Y_"";.18///1;.19////O;.2////1"""
^XMB(3.9,129,2,571,0)="""RTN"",""RMPFET6"",28,0)"
^XMB(3.9,129,2,572,0)=" S:RMPFIT=1 DIC(""DR"")=DIC(""DR"")_"";2.01;2.02"""
^XMB(3.9,129,2,573,0)="""RTN"",""RMPFET6"",29,0)"
^XMB(3.9,129,2,574,0)=" K DD,DO D FILE^DICN"
^XMB(3.9,129,2,575,0)="""RTN"",""RMPFET6"",30,0)"
^XMB(3.9,129,2,576,0)=" I Y=-1 W !!,""*** UNABLE TO ADD LINE ITEM ***"" G ADDE"
^XMB(3.9,129,2,577,0)="""RTN"",""RMPFET6"",31,0)"
^XMB(3.9,129,2,578,0)=" S RMPFY=+Y I RMPFIT=1 D  G ADDE:'$D(RMPFY)"
^XMB(3.9,129,2,579,0)="""RTN"",""RMPFET6"",32,0)"
^XMB(3.9,129,2,580,0)=" .Q:RMPFHAT=""E"""
^XMB(3.9,129,2,581,0)="""RTN"",""RMPFET6"",33,0)"
^XMB(3.9,129,2,582,0)=" .I $D(^RMPF(791810,RMPFX,101,RMPFY,2)),$P(^(2),U,2)'="""" Q"
^XMB(3.9,129,2,583,0)="""RTN"",""RMPFET6"",34,0)"
^XMB(3.9,129,2,584,0)=" .S DA=RMPFY,DIK=""^RMPF(791810,""_RMPFX_"",101,"",DA(1)=RMPFX"
^XMB(3.9,129,2,585,0)="""RTN"",""RMPFET6"",35,0)"
^XMB(3.9,129,2,586,0)=" .D ^DIK K RMPFY"
^XMB(3.9,129,2,587,0)="""RTN"",""RMPFET6"",36,0)"
^XMB(3.9,129,2,588,0)=" G ADDE:'$D(RMPFY)"
^XMB(3.9,129,2,589,0)="""RTN"",""RMPFET6"",37,0)"
^XMB(3.9,129,2,590,0)=" S DIE=""^RMPF(791810,""_RMPFX_"",101,"",DA(1)=RMPFX,DA=RMPFY"
^XMB(3.9,129,2,591,0)="""RTN"",""RMPFET6"",38,0)"
^XMB(3.9,129,2,592,0)=" S DR="".16////""_RMPFY D ^DIE"
^XMB(3.9,129,2,593,0)="""RTN"",""RMPFET6"",39,0)"
^XMB(3.9,129,2,594,0)=" K RMPF F I=5,10,11 S RMPF(I)="""""
^XMB(3.9,129,2,595,0)="""RTN"",""RMPFET6"",40,0)"
^XMB(3.9,129,2,596,0)="ADDE K DI,DIE,DQ,DR,DIC,DIK,X,Y,DA,DD,D0,RMPF,ZY,ZZ,%,D,%DT,I Q"
^XMB(3.9,129,2,597,0)="""RTN"",""RMPFET6"",41,0)"
^XMB(3.9,129,2,598,0)=" ;"
^XMB(3.9,129,2,599,0)="""RTN"",""RMPFET6"",42,0)"
^XMB(3.9,129,2,600,0)="EDIT ;;Edit information for a line item"
^XMB(3.9,129,2,601,0)="""RTN"",""RMPFET6"",43,0)"
^XMB(3.9,129,2,602,0)=" ;; input: RMPFX,RMPFY,Y1,RMPFTYP,RMPFHAT,RMPFST"
^XMB(3.9,129,2,603,0)="""RTN"",""RMPFET6"",44,0)"
^XMB(3.9,129,2,604,0)=" ;;output: None"
^XMB(3.9,129,2,605,0)="""RTN"",""RMPFET6"",45,0)"
^XMB(3.9,129,2,606,0)=" Q:'$D(RMPFX)!'$D(RMPFY)"
^XMB(3.9,129,2,607,0)="""RTN"",""RMPFET6"",46,0)"
^XMB(3.9,129,2,608,0)=" S RMPFSTO=$P(^RMPF(791810,RMPFX,101,RMPFY,0),U,18) S:RMPFSTO="""" RMPFSTO=1"
^XMB(3.9,129,2,609,0)="""RTN"",""RMPFET6"",47,0)"
^XMB(3.9,129,2,610,0)=" I $P(^RMPF(791810.2,RMPFSTO,0),U,5)'=""E"" W !!,$C(7),""*** THIS LINE ITEM IS IN A STATUS THAT IS UNEDITABLE ***"" H 2 G EDITE"
^XMB(3.9,129,2,611,0)="""RTN"",""RMPFET6"",48,0)"
^XMB(3.9,129,2,612,0)=" I RMPFSTO=6!(RMPFSTO=7)!(RMPFSTO=10) D CLEAR^RMPFET61 G EDITE:'$D(RMPFSTO)"
^XMB(3.9,129,2,613,0)="""RTN"",""RMPFET6"",49,0)"
^XMB(3.9,129,2,614,0)=" D PRIOR^RMPFET61 G ED1:""Aa""[Y1"
^XMB(3.9,129,2,615,0)="""RTN"",""RMPFET6"",50,0)"
^XMB(3.9,129,2,616,0)=" S X=$P(^RMPF(791810,RMPFX,101,RMPFY,0),U,1) I X,$D(^RMPF(791811,X,0)) S DIC(""B"")=$P(^(0),U,1)"
^XMB(3.9,129,2,617,0)="""RTN"",""RMPFET6"",51,0)"
^XMB(3.9,129,2,618,0)=" I RMPFHAT=""E"" S RMPFIT=1 G ED1"
^XMB(3.9,129,2,619,0)="""RTN"",""RMPFET6"",52,0)"
^XMB(3.9,129,2,620,0)=" D SELECT G EDITE:$D(RMPFOUT),EDITE:'$D(RMPFIT)"
^XMB(3.9,129,2,621,0)="""RTN"",""RMPFET6"",53,0)"
^XMB(3.9,129,2,622,0)="ED1 S RMPFPGP=$P(^RMPF(791811,RMPFIT,0),U,3) I RMPFPGP,$D(^RMPF(791811.1,RMPFPGP,0)) S RMPFPGP=$P(^(0),U,2)"
^XMB(3.9,129,2,623,0)="""RTN"",""RMPFET6"",54,0)"
^XMB(3.9,129,2,624,0)=" S DR=$P($G(^RMPF(791810.1,RMPFTYP,1)),U,1)"
^XMB(3.9,129,2,625,0)="""RTN"",""RMPFET6"",55,0)"
^XMB(3.9,129,2,626,0)=" I RMPFTYP=2 I $D(^RMPF(791811,RMPFIT,0)) I $P(^(0),""^"",1)[""REMOTE"" D"
^XMB(3.9,129,2,627,0)="""RTN"",""RMPFET6"",56,0)"
^XMB(3.9,129,2,628,0)=" .S $P(DR,"";"",1)=$P(DR,"";"",1)_""////^S X=""""R"""""""
^XMB(3.9,129,2,629,0)="""RTN"",""RMPFET6"",57,0)"
^XMB(3.9,129,2,630,0)=" S ST="".01////""_RMPFIT I RMPFIT=1 S ST=ST_"";2.01;2.02"""
^XMB(3.9,129,2,631,0)="""RTN"",""RMPFET6"",58,0)"
^XMB(3.9,129,2,632,0)=" S DR=$S(DR'="""":ST_"";""_DR,1:ST_RMPFIT)"
^XMB(3.9,129,2,633,0)="""RTN"",""RMPFET6"",59,0)"
^XMB(3.9,129,2,634,0)=" I RMPFIT'=$P(^RMPF(791810,RMPFX,101,RMPFY,0),U,1) K ^RMPF(791810,RMPFX,101,RMPFY,102)"
^XMB(3.9,129,2,635,0)="""RTN"",""RMPFET6"",60,0)"
^XMB(3.9,129,2,636,0)=" S DIE=""^RMPF(791810,""_RMPFX_"",101,"",DA(1)=RMPFX,DA=RMPFY D ^DIE"
^XMB(3.9,129,2,637,0)="""RTN"",""RMPFET6"",61,0)"
^XMB(3.9,129,2,638,0)=" D ^RMPFET61"
^XMB(3.9,129,2,639,0)="""RTN"",""RMPFET6"",62,0)"
^XMB(3.9,129,2,640,0)=" I ""CS""[RMPFHAT D"
^XMB(3.9,129,2,641,0)="""RTN"",""RMPFET6"",63,0)"
^XMB(3.9,129,2,642,0)=" .S RMPFY=9999 D PRIOR^RMPFET61,^RMPFET9"
^XMB(3.9,129,2,643,0)="""RTN"",""RMPFET6"",64,0)"
^XMB(3.9,129,2,644,0)=" .I $D(RMPFY1) S RMPFY=RMPFY1 D ^RMPFET61"
^XMB(3.9,129,2,645,0)="""RTN"",""RMPFET6"",65,0)"
^XMB(3.9,129,2,646,0)="EDITE K X,Y,Y1,%Y,D0,DI,DIE,DQ,DR,RMPFTF,RMPFRE,RMPFIT,RMPFITP,RMPFO,RMPFPGP"
^XMB(3.9,129,2,647,0)="""RTN"",""RMPFET6"",66,0)"
^XMB(3.9,129,2,648,0)=" K %,CX,D,D1,DA,DIC,DLAYGO,RMPFSTO,I,DISYS,RMPFSTR0,RMPFSTR2,RMPFSTR3,ST Q"
^XMB(3.9,129,2,649,0)="""RTN"",""RMPFET6"",67,0)"
^XMB(3.9,129,2,650,0)=" ;"
^XMB(3.9,129,2,651,0)="""RTN"",""RMPFET6"",68,0)"
^XMB(3.9,129,2,652,0)="SELECT ;;Select a line item from 791811"
^XMB(3.9,129,2,653,0)="""RTN"",""RMPFET6"",69,0)"
^XMB(3.9,129,2,654,0)=" ;; input: RMPFTYP,RMPFST"
^XMB(3.9,129,2,655,0)="""RTN"",""RMPFET6"",70,0)"
^XMB(3.9,129,2,656,0)=" ;;output: RMPFIT,RMPFITP"
^XMB(3.9,129,2,657,0)="""RTN"",""RMPFET6"",71,0)"
^XMB(3.9,129,2,658,0)=" S SL=$P(^RMPF(791810.1,RMPFTYP,0),U,9)"
^XMB(3.9,129,2,659,0)="""RTN"",""RMPFET6"",72,0)"
^XMB(3.9,129,2,660,0)=" I SL=2 S RMPFIT=1,RMPFITP=$P(^RMPF(791811,1,0),U,1) G SELECTE"
^XMB(3.9,129,2,661,0)="""RTN"",""RMPFET6"",73,0)"
^XMB(3.9,129,2,662,0)=" I SL=1 S DIC(""S"")=""S Z1=$P(^RMPF(791811,Y,0),U,3) Q:'Z1  I Y=1!($D(^RMPF(791810.1,RMPFTYP,101,""""B"""",Z1)))"" G SE0"
^XMB(3.9,129,2,663,0)="""RTN"",""RMPFET6"",74,0)"
^XMB(3.9,129,2,664,0)=" I $O(^RMPF(791810.1,RMPFTYP,101,""B"",0)) D  G SE0"
^XMB(3.9,129,2,665,0)="""RTN"",""RMPFET6"",75,0)"
^XMB(3.9,129,2,666,0)=" .I RMPFTYP'=8 S DIC(""S"")=""I Y,Y'=1,'$P($G(^RMPF(791811,Y,""""I"""")),U,1) S Z1=$P(^RMPF(791811,Y,0),U,3) I Z1,$D(^RMPF(791810.1,RMPFTYP,101,""""B"""",Z1))"""
^XMB(3.9,129,2,667,0)="""RTN"",""RMPFET6"",76,0)"
^XMB(3.9,129,2,668,0)=" .I RMPFTYP=8 S DIC(""S"")=""I Y,Y'=1 S Z1=$P(^RMPF(791811,Y,0),U,3) I Z1,$D(^RMPF(791810.1,RMPFTYP,101,""""B"""",Z1))"""
^XMB(3.9,129,2,669,0)="""RTN"",""RMPFET6"",77,0)"
^XMB(3.9,129,2,670,0)=" S DIC(""S"")=""I Y'=1"""
^XMB(3.9,129,2,671,0)="""RTN"",""RMPFET6"",78,0)"
^XMB(3.9,129,2,672,0)="SE0 S DIC=791811,DIC(0)=""AEQM"",DIC(""A"")=""SELECT ITEM: "" W !"
^XMB(3.9,129,2,673,0)="""RTN"",""RMPFET6"",79,0)"
^XMB(3.9,129,2,674,0)=" D ^DIC S:X[U RMPFOUT="""" K DIC G SELECTE:Y=-1 S RMPFIT=+Y"
^XMB(3.9,129,2,675,0)="""RTN"",""RMPFET6"",80,0)"
^XMB(3.9,129,2,676,0)=" I RMPFST<3,$D(^RMPF(791811,RMPFIT,""I"")),$P(^(""I""),U,1),""ILHXEUNTVG""'[RMPFHAT W !!,""*** THIS LINE ITEM HAS BEEN INACTIVATED FOR NEW ORDERS ***"" K RMPFIT G SELECT"
^XMB(3.9,129,2,677,0)="""RTN"",""RMPFET6"",81,0)"
^XMB(3.9,129,2,678,0)="SE1 S RMPFITP=$P(Y,U,2)"
^XMB(3.9,129,2,679,0)="""RTN"",""RMPFET6"",82,0)"
^XMB(3.9,129,2,680,0)="SELECTE K DIC,X,Y,SL,%,%Y,DISYS,Z1 Q"
^XMB(3.9,129,2,681,0)="""RTN"",""RMPFET6"",83,0)"
^XMB(3.9,129,2,682,0)=" ;"
^XMB(3.9,129,2,683,0)="""RTN"",""RMPFET6"",84,0)"
^XMB(3.9,129,2,684,0)="DELETE ;;Delete a line item"
^XMB(3.9,129,2,685,0)="""RTN"",""RMPFET6"",85,0)"
^XMB(3.9,129,2,686,0)=" ;; input: RMPFX,RMPFY"
^XMB(3.9,129,2,687,0)="""RTN"",""RMPFET6"",86,0)"
^XMB(3.9,129,2,688,0)=" ;;output: None"
^XMB(3.9,129,2,689,0)="""RTN"",""RMPFET6"",87,0)"
^XMB(3.9,129,2,690,0)=" W !!,""Are you sure you want to delete this item? NO// "" D READ"
^XMB(3.9,129,2,691,0)="""RTN"",""RMPFET6"",88,0)"
^XMB(3.9,129,2,692,0)=" G DELETEE:$D(RMPFOUT)"
^XMB(3.9,129,2,693,0)="""RTN"",""RMPFET6"",89,0)"
^XMB(3.9,129,2,694,0)="DEL1 I $D(RMPFQUT) W !!,""If you enter a <Y> the item will be permanently deleted from this order."",!,""If you enter a <N> or <RETURN> the item will be retained on the order."" G DELETE"
^XMB(3.9,129,2,695,0)="""RTN"",""RMPFET6"",90,0)"
^XMB(3.9,129,2,696,0)=" S:Y="""" Y=""N"" S Y=$E(Y,1) I ""YyNn""'[Y S RMPFQUT="""" G DEL1"
^XMB(3.9,129,2,697,0)="""RTN"",""RMPFET6"",91,0)"
^XMB(3.9,129,2,698,0)=" G DELETEE:Y=""N"" S DIE=""^RMPF(791810,""_RMPFX_"",101,"",DA=RMPFY"
^XMB(3.9,129,2,699,0)="""RTN"",""RMPFET6"",92,0)"
^XMB(3.9,129,2,700,0)=" S DA(1)=RMPFX,DR="".01////@"" D ^DIE"
^XMB(3.9,129,2,701,0)="""RTN"",""RMPFET6"",93,0)"
^XMB(3.9,129,2,702,0)="DELETEE K X,Y,DIE,DA,DR,DI,DQ,D0,D,%,DIC,RMPFY Q"
^XMB(3.9,129,2,703,0)="""RTN"",""RMPFET6"",94,0)"
^XMB(3.9,129,2,704,0)="READ K RMPFOUT,RMPFQUT"
^XMB(3.9,129,2,705,0)="""RTN"",""RMPFET6"",95,0)"
^XMB(3.9,129,2,706,0)=" R Y:DTIME I '$T W $C(7) R Y:5 G READ:Y=""."" S:'$T Y=U"
^XMB(3.9,129,2,707,0)="""RTN"",""RMPFET6"",96,0)"
^XMB(3.9,129,2,708,0)=" I Y?1""^"".E S (RMPFOUT,Y)="""" Q"
^XMB(3.9,129,2,709,0)="""RTN"",""RMPFET6"",97,0)"
^XMB(3.9,129,2,710,0)=" S:Y?1""?"".E (RMPFQUT,Y)="""""
^XMB(3.9,129,2,711,0)="""RTN"",""RMPFET6"",98,0)"
^XMB(3.9,129,2,712,0)=" Q"
^XMB(3.9,129,2,713,0)="""RTN"",""RMPFET81"")"
^XMB(3.9,129,2,714,0)="0^5^B26266940"
^XMB(3.9,129,2,715,0)="""RTN"",""RMPFET81"",1,0)"
^XMB(3.9,129,2,716,0)="RMPFET81 ;DDC/KAW-CONTINUATION OF RMPFET8 [ 06/16/95   3:06 PM ]"
^XMB(3.9,129,2,717,0)="""RTN"",""RMPFET81"",2,0)"
^XMB(3.9,129,2,718,0)=" ;;2.0;REMOTE ORDER/ENTRY SYSTEM;**20**;MAY 30, 1995"
^XMB(3.9,129,2,719,0)="""RTN"",""RMPFET81"",3,0)"
^XMB(3.9,129,2,720,0)="ADDC ;;Adjustment - Add a component"
^XMB(3.9,129,2,721,0)="""RTN"",""RMPFET81"",4,0)"
^XMB(3.9,129,2,722,0)=" ;; input: RMPFX,RMPFY"
^XMB(3.9,129,2,723,0)="""RTN"",""RMPFET81"",5,0)"
^XMB(3.9,129,2,724,0)=" ;;output: None"
^XMB(3.9,129,2,725,0)="""RTN"",""RMPFET81"",6,0)"
^XMB(3.9,129,2,726,0)=" D REASON G ADDCE:$D(RMPFOUT) S RMPFADD="""""
^XMB(3.9,129,2,727,0)="""RTN"",""RMPFET81"",7,0)"
^XMB(3.9,129,2,728,0)=" S RMPFLG=$S($D(^RMPF(791810,RMPFX,101,RMPFY,102,0)):$P(^(0),U,4),1:"""")"
^XMB(3.9,129,2,729,0)="""RTN"",""RMPFET81"",8,0)"
^XMB(3.9,129,2,730,0)=" D COMPON^RMPFET7 G ADDCE:$D(RMPFOUT)"
^XMB(3.9,129,2,731,0)="""RTN"",""RMPFET81"",9,0)"
^XMB(3.9,129,2,732,0)=" I $D(^RMPF(791810,RMPFX,101,RMPFY,102,0)),$P(^(0),U,4)>RMPFLG D STATUS"
^XMB(3.9,129,2,733,0)="""RTN"",""RMPFET81"",10,0)"
^XMB(3.9,129,2,734,0)="ADDCE K RMPFOUT,RMPFQUT,RMPFLG,RMPFADD,RMPFRE Q"
^XMB(3.9,129,2,735,0)="""RTN"",""RMPFET81"",11,0)"
^XMB(3.9,129,2,736,0)="CHANGEM ;;Adjustment - Change model"
^XMB(3.9,129,2,737,0)="""RTN"",""RMPFET81"",12,0)"
^XMB(3.9,129,2,738,0)=" ;; input: RMPFX,RMPFY,RMPFTYP"
^XMB(3.9,129,2,739,0)="""RTN"",""RMPFET81"",13,0)"
^XMB(3.9,129,2,740,0)=" ;;output: None"
^XMB(3.9,129,2,741,0)="""RTN"",""RMPFET81"",14,0)"
^XMB(3.9,129,2,742,0)=" W !!,""Are you sure you wish to change the model? NO// """
^XMB(3.9,129,2,743,0)="""RTN"",""RMPFET81"",15,0)"
^XMB(3.9,129,2,744,0)=" D READ G CH3:$D(RMPFOUT)"
^XMB(3.9,129,2,745,0)="""RTN"",""RMPFET81"",16,0)"
^XMB(3.9,129,2,746,0)="CH1 I $D(RMPFQUT) W !!,""Enter <Y> to proceed with changing the model, <N> or <RETURN> to continue."" G CHANGEM"
^XMB(3.9,129,2,747,0)="""RTN"",""RMPFET81"",17,0)"
^XMB(3.9,129,2,748,0)=" G CH3:Y="""" S Y=$E(Y,1) I ""YyNn""'[Y S RMPFQUT="""" G CH1"
^XMB(3.9,129,2,749,0)="""RTN"",""RMPFET81"",18,0)"
^XMB(3.9,129,2,750,0)=" G CH3:""Nn""[Y D REASON G CH3:$D(RMPFOUT)"
^XMB(3.9,129,2,751,0)="""RTN"",""RMPFET81"",19,0)"
^XMB(3.9,129,2,752,0)=" S RMPFLR=$P(^RMPF(791810,RMPFX,101,RMPFY,0),U,4)"
^XMB(3.9,129,2,753,0)="""RTN"",""RMPFET81"",20,0)"
^XMB(3.9,129,2,754,0)=" D WARCHCK"
^XMB(3.9,129,2,755,0)="""RTN"",""RMPFET81"",21,0)"
^XMB(3.9,129,2,756,0)="CH2 S DIC=""^RMPF(791811,"",DIC(0)=""AEQM"",DIC(""A"")=""Select new model: """
^XMB(3.9,129,2,757,0)="""RTN"",""RMPFET81"",22,0)"
^XMB(3.9,129,2,758,0)=" S DIC(""S"")=""I $P(^RMPF(791811,+Y,0),U,3),$D(^RMPF(791810.1,RMPFTYP,101,""""B"""",$P(^RMPF(791811,+Y,0),U,3)))"""
^XMB(3.9,129,2,759,0)="""RTN"",""RMPFET81"",23,0)"
^XMB(3.9,129,2,760,0)=" S RMPFY1=RMPFY W ! D ^DIC G CH3:Y=-1 S RMPFIT=+Y,RMPFITP=$P(Y,U,2)"
^XMB(3.9,129,2,761,0)="""RTN"",""RMPFET81"",24,0)"
^XMB(3.9,129,2,762,0)=" I $D(^RMPF(791811,+Y,""I"")),$P(^(""I""),U,1) D SURE Q:$D(RMPFOUT)  G CH2:""Yy""[Y"
^XMB(3.9,129,2,763,0)="""RTN"",""RMPFET81"",25,0)"
^XMB(3.9,129,2,764,0)=" K RMPFY D ADD1^RMPFET6 G CH2:'$D(RMPFY) S RMPFY2=RMPFY"
^XMB(3.9,129,2,765,0)="""RTN"",""RMPFET81"",26,0)"
^XMB(3.9,129,2,766,0)=" S ^RMPF(791810,RMPFX,101,RMPFY,90)=$G(^RMPF(791810,RMPFX,101,RMPFY1,90))"
^XMB(3.9,129,2,767,0)="""RTN"",""RMPFET81"",27,0)"
^XMB(3.9,129,2,768,0)=" S $P(^RMPF(791810,RMPFX,101,RMPFY,0),U,16)=RMPFY1,$P(^(0),U,15)=""OC"",$P(^(0),U,4)=RMPFLR"
^XMB(3.9,129,2,769,0)="""RTN"",""RMPFET81"",28,0)"
^XMB(3.9,129,2,770,0)=" S RMPFMESG=""Model changed to: ""_RMPFITP"
^XMB(3.9,129,2,771,0)="""RTN"",""RMPFET81"",29,0)"
^XMB(3.9,129,2,772,0)=" S X=""NOW"",%DT=""T"" D ^%DT S TD=Y"
^XMB(3.9,129,2,773,0)="""RTN"",""RMPFET81"",30,0)"
^XMB(3.9,129,2,774,0)=" S DIE=""^RMPF(791810,""_RMPFX_"",101,"",DA(1)=RMPFX,DA=RMPFY"
^XMB(3.9,129,2,775,0)="""RTN"",""RMPFET81"",31,0)"
^XMB(3.9,129,2,776,0)=" S DR=""90.01////""_DUZ_"";90.02////""_TD_"";90.03////""_RMPFRE_"";90.04////""_RMPFMESG D ^DIE"
^XMB(3.9,129,2,777,0)="""RTN"",""RMPFET81"",32,0)"
^XMB(3.9,129,2,778,0)=" D DELETE^RMPFET8"
^XMB(3.9,129,2,779,0)="""RTN"",""RMPFET81"",33,0)"
^XMB(3.9,129,2,780,0)=" S RMPFY=RMPFY2 D STATUS"
^XMB(3.9,129,2,781,0)="""RTN"",""RMPFET81"",34,0)"
^XMB(3.9,129,2,782,0)=" D:$D(RMPFWFLG) ADDWAR"
^XMB(3.9,129,2,783,0)="""RTN"",""RMPFET81"",35,0)"
^XMB(3.9,129,2,784,0)=" W !!,""*** MODEL CHANGED ***"" H 1"
^XMB(3.9,129,2,785,0)="""RTN"",""RMPFET81"",36,0)"
^XMB(3.9,129,2,786,0)="CH3 K RMPFOUT,RMPFQUT,X,Y,RMPFRE,DIC,RMPFY1,RMPFIT,RMPFITP,RMPFY2,RMPFMESG"
^XMB(3.9,129,2,787,0)="""RTN"",""RMPFET81"",37,0)"
^XMB(3.9,129,2,788,0)=" K RMPFMESG,RMPFLR,DDH,DISYS,TD Q"
^XMB(3.9,129,2,789,0)="""RTN"",""RMPFET81"",38,0)"
^XMB(3.9,129,2,790,0)="WARCHCK ;;CHECK TO SEE IF OLD MODEL HAS 2ND YEAR WARRANTY"
^XMB(3.9,129,2,791,0)="""RTN"",""RMPFET81"",39,0)"
^XMB(3.9,129,2,792,0)=" K RMPFWFLG"
^XMB(3.9,129,2,793,0)="""RTN"",""RMPFET81"",40,0)"
^XMB(3.9,129,2,794,0)=" S K=0"
^XMB(3.9,129,2,795,0)="""RTN"",""RMPFET81"",41,0)"
^XMB(3.9,129,2,796,0)=" F  S K=$O(^RMPF(791810,RMPFX,101,RMPFY,102,K)) Q:'K  D:$D(^RMPF(791810,RMPFX,101,RMPFY,102,K,0))"
^XMB(3.9,129,2,797,0)="""RTN"",""RMPFET81"",42,0)"
^XMB(3.9,129,2,798,0)=" .S WR=$P(^RMPF(791810,RMPFX,101,RMPFY,102,K,0),""^"",1)"
^XMB(3.9,129,2,799,0)="""RTN"",""RMPFET81"",43,0)"
^XMB(3.9,129,2,800,0)=" .I WR I $P($G(^RMPF(791811.2,WR,0)),""^"",3)=""WRNTY2YR"" S RMPFWFLG=1 Q"
^XMB(3.9,129,2,801,0)="""RTN"",""RMPFET81"",44,0)"
^XMB(3.9,129,2,802,0)=" Q"
^XMB(3.9,129,2,803,0)="""RTN"",""RMPFET81"",45,0)"
^XMB(3.9,129,2,804,0)="ADDWAR ;;ADD 2ND YEAR WARRANTY TO NEW MODEL"
^XMB(3.9,129,2,805,0)="""RTN"",""RMPFET81"",46,0)"
^XMB(3.9,129,2,806,0)=" S X=""WRNTY2YR"""
^XMB(3.9,129,2,807,0)="""RTN"",""RMPFET81"",47,0)"
^XMB(3.9,129,2,808,0)=" S DIC=791811.2,DIC(0)=""LM"" D ^DIC K DIC Q:Y=-1  S X=+Y"
^XMB(3.9,129,2,809,0)="""RTN"",""RMPFET81"",48,0)"
^XMB(3.9,129,2,810,0)=" I '$D(^RMPF(791810,RMPFX,101,RMPFY,102,0)) S ^RMPF(791810,RMPFX,101,RMPFY,102,0)=""^791810.101102P^0^0"""
^XMB(3.9,129,2,811,0)="""RTN"",""RMPFET81"",49,0)"
^XMB(3.9,129,2,812,0)=" S DIC=""^RMPF(791810,""_RMPFX_"",101,""_RMPFY_"",102,"""
^XMB(3.9,129,2,813,0)="""RTN"",""RMPFET81"",50,0)"
^XMB(3.9,129,2,814,0)=" S DA(2)=RMPFX,DA(1)=RMPFY,DIC(0)=""LM"",DLAYGO=791810"
^XMB(3.9,129,2,815,0)="""RTN"",""RMPFET81"",51,0)"
^XMB(3.9,129,2,816,0)=" K DD,DO D FILE^DICN"
^XMB(3.9,129,2,817,0)="""RTN"",""RMPFET81"",52,0)"
^XMB(3.9,129,2,818,0)=" Q"
^XMB(3.9,129,2,819,0)="""RTN"",""RMPFET81"",53,0)"
^XMB(3.9,129,2,820,0)="REMOVEC ;;Adjustment - Remove a component from an order"
^XMB(3.9,129,2,821,0)="""RTN"",""RMPFET81"",54,0)"
^XMB(3.9,129,2,822,0)=" ;; input: RMPFX,RMPFY"
^XMB(3.9,129,2,823,0)="""RTN"",""RMPFET81"",55,0)"
^XMB(3.9,129,2,824,0)=" ;;output: None"
^XMB(3.9,129,2,825,0)="""RTN"",""RMPFET81"",56,0)"
^XMB(3.9,129,2,826,0)=" D REASON G REMOVECE:$D(RMPFOUT)"
^XMB(3.9,129,2,827,0)="""RTN"",""RMPFET81"",57,0)"
^XMB(3.9,129,2,828,0)="RE1 D ARRAY2^RMPFDT2"
^XMB(3.9,129,2,829,0)="""RTN"",""RMPFET81"",58,0)"
^XMB(3.9,129,2,830,0)=" S IT=$P(^RMPF(791810,RMPFX,101,RMPFY,0),U,1)"
^XMB(3.9,129,2,831,0)="""RTN"",""RMPFET81"",59,0)"
^XMB(3.9,129,2,832,0)=" K DIC"
^XMB(3.9,129,2,833,0)="""RTN"",""RMPFET81"",60,0)"
^XMB(3.9,129,2,834,0)=" S DIC=""^RMPF(791811.2,"",DIC(0)=""AEQM"",DIC(""A"")=""Select Component: """
^XMB(3.9,129,2,835,0)="""RTN"",""RMPFET81"",61,0)"
^XMB(3.9,129,2,836,0)=" W ! D ^DIC G REMOVECE:Y=-1 S CP=+Y"
^XMB(3.9,129,2,837,0)="""RTN"",""RMPFET81"",62,0)"
^XMB(3.9,129,2,838,0)=" S X=0 F I=1:1 S X=$O(RMPFC(X)) Q:'X  I $P(RMPFC(X),U,1)=CP G RE2"
^XMB(3.9,129,2,839,0)="""RTN"",""RMPFET81"",63,0)"
^XMB(3.9,129,2,840,0)=" W $C(7),!!,""*** COMPONENT IS NOT LISTED IN ORDER ***"" G RE1"
^XMB(3.9,129,2,841,0)="""RTN"",""RMPFET81"",64,0)"
^XMB(3.9,129,2,842,0)="RE2 S RMPFZ=X,S0=^RMPF(791810,RMPFX,101,RMPFY,102,RMPFZ,0),X=CP"
^XMB(3.9,129,2,843,0)="""RTN"",""RMPFET81"",65,0)"
^XMB(3.9,129,2,844,0)=" S DIC=""^RMPF(791810,""_RMPFX_"",101,""_RMPFY_"",102,"",DIC(0)=""L"""
^XMB(3.9,129,2,845,0)="""RTN"",""RMPFET81"",66,0)"
^XMB(3.9,129,2,846,0)=" S DA(2)=RMPFX,DA(1)=RMPFY,DLAYGO=791810 K DO,DD D FILE^DICN"
^XMB(3.9,129,2,847,0)="""RTN"",""RMPFET81"",67,0)"
^XMB(3.9,129,2,848,0)=" I Y=-1 W $C(7),!!,""*** COMPONENT NOT DELETED ***"" G REMOVECE"
^XMB(3.9,129,2,849,0)="""RTN"",""RMPFET81"",68,0)"
^XMB(3.9,129,2,850,0)=" S RMPFZ1=+Y,S1=$P(^RMPF(791810,RMPFX,101,RMPFY,102,RMPFZ1,0),U,1)"
^XMB(3.9,129,2,851,0)="""RTN"",""RMPFET81"",69,0)"
^XMB(3.9,129,2,852,0)=" S X=""NOW"",%DT=""T"" D ^%DT S TD=Y"
^XMB(3.9,129,2,853,0)="""RTN"",""RMPFET81"",70,0)"
^XMB(3.9,129,2,854,0)=" S S1=S1_U_$P(S0,U,2)_""^D^""_RMPFZ_U_DUZ_U_TD_U_RMPFRE"
^XMB(3.9,129,2,855,0)="""RTN"",""RMPFET81"",71,0)"
^XMB(3.9,129,2,856,0)=" S ^RMPF(791810,RMPFX,101,RMPFY,102,RMPFZ1,0)=S1 D STATUS"
^XMB(3.9,129,2,857,0)="""RTN"",""RMPFET81"",72,0)"
^XMB(3.9,129,2,858,0)=" W !!,""*** COMPONENT REMOVED ***"" H 2"
^XMB(3.9,129,2,859,0)="""RTN"",""RMPFET81"",73,0)"
^XMB(3.9,129,2,860,0)="REMOVECE K DIC,CI,IT,Y,X,RMPFRE,S1,TD,RMPFC,RMPFZ,RMPFZ1,M,I,DDHT,DISYS,I,CP,DLAYGO Q"
^XMB(3.9,129,2,861,0)="""RTN"",""RMPFET81"",74,0)"
^XMB(3.9,129,2,862,0)="REASON ;;Enter reason for adjustment"
^XMB(3.9,129,2,863,0)="""RTN"",""RMPFET81"",75,0)"
^XMB(3.9,129,2,864,0)=" ;; input: None"
^XMB(3.9,129,2,865,0)="""RTN"",""RMPFET81"",76,0)"
^XMB(3.9,129,2,866,0)=" ;;output: RMPFRE"
^XMB(3.9,129,2,867,0)="""RTN"",""RMPFET81"",77,0)"
^XMB(3.9,129,2,868,0)=" W !!,""Enter the reason for the adjustment: "" D READ Q:$D(RMPFOUT)"
^XMB(3.9,129,2,869,0)="""RTN"",""RMPFET81"",78,0)"
^XMB(3.9,129,2,870,0)="REAS1 I $D(RMPFQUT) W !!,""Enter a free text reason of 3 to 17 characters."" G REASON"
^XMB(3.9,129,2,871,0)="""RTN"",""RMPFET81"",79,0)"
^XMB(3.9,129,2,872,0)=" I Y=""""!($L(Y)<3)!($L(Y)>17) S RMPFQUT="""" G REAS1"
^XMB(3.9,129,2,873,0)="""RTN"",""RMPFET81"",80,0)"
^XMB(3.9,129,2,874,0)=" S RMPFRE=Y"
^XMB(3.9,129,2,875,0)="""RTN"",""RMPFET81"",81,0)"
^XMB(3.9,129,2,876,0)=" K Y Q"
^XMB(3.9,129,2,877,0)="""RTN"",""RMPFET81"",82,0)"
^XMB(3.9,129,2,878,0)="STATUS ;;Set status of line item"
^XMB(3.9,129,2,879,0)="""RTN"",""RMPFET81"",83,0)"
^XMB(3.9,129,2,880,0)=" ;; input: RMPFX,RMPFY"
^XMB(3.9,129,2,881,0)="""RTN"",""RMPFET81"",84,0)"
^XMB(3.9,129,2,882,0)=" ;;output: None"
^XMB(3.9,129,2,883,0)="""RTN"",""RMPFET81"",85,0)"
^XMB(3.9,129,2,884,0)=" S X=""NOW"",%DT=""T"" D ^%DT S TD=Y,S0=$G(^RMPF(791810,RMPFX,101,RMPFY,0))"
^XMB(3.9,129,2,885,0)="""RTN"",""RMPFET81"",86,0)"
^XMB(3.9,129,2,886,0)=" S AP=$P(S0,U,20) I 'AP S LA=""A"" G S2"
^XMB(3.9,129,2,887,0)="""RTN"",""RMPFET81"",87,0)"
^XMB(3.9,129,2,888,0)=" S LA=$P(S0,U,19) I LA="""" S LA=""A"" G S2"
^XMB(3.9,129,2,889,0)="""RTN"",""RMPFET81"",88,0)"
^XMB(3.9,129,2,890,0)=" S LA=$S(LA=""O"":""A"",LA'[""A"":LA_""A"",1:LA)"
^XMB(3.9,129,2,891,0)="""RTN"",""RMPFET81"",89,0)"
^XMB(3.9,129,2,892,0)="S2 S DIE=""^RMPF(791810,""_RMPFX_"",101,"",DA(1)=RMPFX,DA=RMPFY"
^XMB(3.9,129,2,893,0)="""RTN"",""RMPFET81"",90,0)"
^XMB(3.9,129,2,894,0)=" S DR="".19////""_LA_"";.17////""_TD_"";.2////1;.18///CERTIFICATION PENDING"""
^XMB(3.9,129,2,895,0)="""RTN"",""RMPFET81"",91,0)"
^XMB(3.9,129,2,896,0)=" S X=$G(^RMPF(791810,RMPFX,101,RMPFY,90))"
^XMB(3.9,129,2,897,0)="""RTN"",""RMPFET81"",92,0)"
^XMB(3.9,129,2,898,0)=" I X'="""",$P(X,U,13) F I=8:1:11 S $P(^RMPF(791810,RMPFX,101,RMPFY,90),U,I)="""""
^XMB(3.9,129,2,899,0)="""RTN"",""RMPFET81"",93,0)"
^XMB(3.9,129,2,900,0)="S3 D ^DIE"
^XMB(3.9,129,2,901,0)="""RTN"",""RMPFET81"",94,0)"
^XMB(3.9,129,2,902,0)=" K S0,AP,LA,DIE,DR,D0,DA,DQ,D,DIC,DI,X,TD,%DT Q"
^XMB(3.9,129,2,903,0)="""RTN"",""RMPFET81"",95,0)"
^XMB(3.9,129,2,904,0)="SURE W !!,""This item is currently NOT UNDER CONTRACT to the VA."""
^XMB(3.9,129,2,905,0)="""RTN"",""RMPFET81"",96,0)"
^XMB(3.9,129,2,906,0)=" W !,""You may select this item in the adjustment option only."""
^XMB(3.9,129,2,907,0)="""RTN"",""RMPFET81"",97,0)"
^XMB(3.9,129,2,908,0)=" W !!,""Make another selection? NO// "" D READ Q:$D(RMPFOUT)"
^XMB(3.9,129,2,909,0)="""RTN"",""RMPFET81"",98,0)"
^XMB(3.9,129,2,910,0)="SURE1 I $D(RMPFQUT) W !!,""Enter an <N> or <RETURN> to continue with this selection"",!?7,""a <Y> to make another line item selection."" G SURE"
^XMB(3.9,129,2,911,0)="""RTN"",""RMPFET81"",99,0)"
^XMB(3.9,129,2,912,0)=" S:Y="""" Y=""N"" I ""NnYy""'[Y S RMPFQUT="""" G SURE1"
^XMB(3.9,129,2,913,0)="""RTN"",""RMPFET81"",100,0)"
^XMB(3.9,129,2,914,0)=" Q"
^XMB(3.9,129,2,915,0)="""RTN"",""RMPFET81"",101,0)"
^XMB(3.9,129,2,916,0)="READ K RMPFOUT,RMPFQUT"
^XMB(3.9,129,2,917,0)="""RTN"",""RMPFET81"",102,0)"
^XMB(3.9,129,2,918,0)=" R Y:DTIME I '$T W $C(7) R Y:5 G READ:Y=""."" S:'$T Y=U"
^XMB(3.9,129,2,919,0)="""RTN"",""RMPFET81"",103,0)"
^XMB(3.9,129,2,920,0)=" I Y?1""^"".E S (RMPFOUT,Y)="""" Q"
^XMB(3.9,129,2,921,0)="""RTN"",""RMPFET81"",104,0)"
^XMB(3.9,129,2,922,0)=" S:Y?1""?"".E (RMPFQUT,Y)="""""
^XMB(3.9,129,2,923,0)="""RTN"",""RMPFET81"",105,0)"
^XMB(3.9,129,2,924,0)=" Q"
^XMB(3.9,129,2,925,0)="""RTN"",""RMPG9"")"
^XMB(3.9,129,2,926,0)="0^1^B37916102"
^XMB(3.9,129,2,927,0)="""RTN"",""RMPG9"",1,0)"
^XMB(3.9,129,2,928,0)="RMPG9 ;DDC/JLR-ROES PATCH RMPF*2.0*20 [ 06/06/01  9:30 AM ]"
^XMB(3.9,129,2,929,0)="""RTN"",""RMPG9"",2,0)"
^XMB(3.9,129,2,930,0)=" ;;2.0;REMOTE ORDER/ENTRY SYSTEM;**20**;MAY 30, 1995"
^XMB(3.9,129,2,931,0)="""RTN"",""RMPG9"",3,0)"
^XMB(3.9,129,2,932,0)=" W @IOF,!,""ROES PATCH:  RMPF*2.0*20"""
^XMB(3.9,129,2,933,0)="""RTN"",""RMPG9"",4,0)"
^XMB(3.9,129,2,934,0)=" W !!,""This patch will inactivate models under the old contract.  Only ROES users"""
^XMB(3.9,129,2,935,0)="""RTN"",""RMPG9"",5,0)"
^XMB(3.9,129,2,936,0)=" W !,""must be off of the system while running this patch."""
^XMB(3.9,129,2,937,0)="""RTN"",""RMPG9"",6,0)"
^XMB(3.9,129,2,938,0)=" W !!,""The only file impacted is:"""
^XMB(3.9,129,2,939,0)="""RTN"",""RMPG9"",7,0)"
^XMB(3.9,129,2,940,0)=" W !!?10,""791811   - REMOTE INVENTORY PRODUCT"""
^XMB(3.9,129,2,941,0)="""RTN"",""RMPG9"",8,0)"
^XMB(3.9,129,2,942,0)=" F IX=1:1:244 S SX=$T(MODEL+IX) Q:SX=""""  S MD=$P(SX,"";"",3) Q:MD=""""  S AR(MD)="""""
^XMB(3.9,129,2,943,0)="""RTN"",""RMPG9"",9,0)"
^XMB(3.9,129,2,944,0)=" S RMPFX=0"
^XMB(3.9,129,2,945,0)="""RTN"",""RMPG9"",10,0)"
^XMB(3.9,129,2,946,0)=" F I=1:1 S RMPFX=$O(^RMPF(791811,RMPFX)) Q:'RMPFX  D"
^XMB(3.9,129,2,947,0)="""RTN"",""RMPG9"",11,0)"
^XMB(3.9,129,2,948,0)=" .Q:'$D(^RMPF(791811,RMPFX,0))"
^XMB(3.9,129,2,949,0)="""RTN"",""RMPG9"",12,0)"
^XMB(3.9,129,2,950,0)=" .S X=$P(^RMPF(791811,RMPFX,0),U,3)"
^XMB(3.9,129,2,951,0)="""RTN"",""RMPG9"",13,0)"
^XMB(3.9,129,2,952,0)=" .Q:'X"
^XMB(3.9,129,2,953,0)="""RTN"",""RMPG9"",14,0)"
^XMB(3.9,129,2,954,0)=" .S NM=$P(^RMPF(791811,RMPFX,0),U,1)"
^XMB(3.9,129,2,955,0)="""RTN"",""RMPG9"",15,0)"
^XMB(3.9,129,2,956,0)=" .Q:NM="""""
^XMB(3.9,129,2,957,0)="""RTN"",""RMPG9"",16,0)"
^XMB(3.9,129,2,958,0)=" .Q:'$D(^RMPF(791811.1,X,0))  Q:$P(^(0),U,1)'=""CUSTOM HEARING AIDS"""
^XMB(3.9,129,2,959,0)="""RTN"",""RMPG9"",17,0)"
^XMB(3.9,129,2,960,0)=" .Q:$D(AR(NM))"
^XMB(3.9,129,2,961,0)="""RTN"",""RMPG9"",18,0)"
^XMB(3.9,129,2,962,0)=" .S DIE=""^RMPF(791811,"",DA=RMPFX,DR=""999////1"" D ^DIE W ""."""
^XMB(3.9,129,2,963,0)="""RTN"",""RMPG9"",19,0)"
^XMB(3.9,129,2,964,0)=" .K ^RMPF(791811,RMPFX,101)"
^XMB(3.9,129,2,965,0)="""RTN"",""RMPG9"",20,0)"
^XMB(3.9,129,2,966,0)=" .K ^RMPF(791811,RMPFX,102)"
^XMB(3.9,129,2,967,0)="""RTN"",""RMPG9"",21,0)"
^XMB(3.9,129,2,968,0)="END K IX,SX,MD,AR,X,NM,DA,DR,DIE,RMPFX,I"
^XMB(3.9,129,2,969,0)="""RTN"",""RMPG9"",22,0)"
^XMB(3.9,129,2,970,0)=" Q"
^XMB(3.9,129,2,971,0)="""RTN"",""RMPG9"",23,0)"
^XMB(3.9,129,2,972,0)="MODEL ;;ALL MODELS"
^XMB(3.9,129,2,973,0)="""RTN"",""RMPG9"",24,0)"
^XMB(3.9,129,2,974,0)=" ;;FULL"
^XMB(3.9,129,2,975,0)="""RTN"",""RMPG9"",25,0)"
^XMB(3.9,129,2,976,0)=" ;;FULL OPT 1"
^XMB(3.9,129,2,977,0)="""RTN"",""RMPG9"",26,0)"
^XMB(3.9,129,2,978,0)=" ;;FULL OPT 2"
^XMB(3.9,129,2,979,0)="""RTN"",""RMPG9"",27,0)"
^XMB(3.9,129,2,980,0)=" ;;FULL OPT 3"
^XMB(3.9,129,2,981,0)="""RTN"",""RMPG9"",28,0)"
^XMB(3.9,129,2,982,0)=" ;;HALF"
^XMB(3.9,129,2,983,0)="""RTN"",""RMPG9"",29,0)"
^XMB(3.9,129,2,984,0)=" ;;HALF OPT 1"
^XMB(3.9,129,2,985,0)="""RTN"",""RMPG9"",30,0)"
^XMB(3.9,129,2,986,0)=" ;;HALF OPT 2"
^XMB(3.9,129,2,987,0)="""RTN"",""RMPG9"",31,0)"
^XMB(3.9,129,2,988,0)=" ;;HALF OPT 3"
^XMB(3.9,129,2,989,0)="""RTN"",""RMPG9"",32,0)"
^XMB(3.9,129,2,990,0)=" ;;CANAL"
^XMB(3.9,129,2,991,0)="""RTN"",""RMPG9"",33,0)"
^XMB(3.9,129,2,992,0)=" ;;CANAL OPT 1"
^XMB(3.9,129,2,993,0)="""RTN"",""RMPG9"",34,0)"
^XMB(3.9,129,2,994,0)=" ;;CANAL OPT 2"
^XMB(3.9,129,2,995,0)="""RTN"",""RMPG9"",35,0)"
^XMB(3.9,129,2,996,0)=" ;;CIC;"
^XMB(3.9,129,2,997,0)="""RTN"",""RMPG9"",36,0)"
^XMB(3.9,129,2,998,0)=" ;;CIC OPT 1"
^XMB(3.9,129,2,999,0)="""RTN"",""RMPG9"",37,0)"
^XMB(3.9,129,2,1000,0)=" ;;CIC OPT 2"
^XMB(3.9,129,2,1001,0)="""RTN"",""RMPG9"",38,0)"
^XMB(3.9,129,2,1002,0)=" ;;CIC OPT 3"
^XMB(3.9,129,2,1003,0)="""RTN"",""RMPG9"",39,0)"
^XMB(3.9,129,2,1004,0)=" ;;FULL SS"
^XMB(3.9,129,2,1005,0)="""RTN"",""RMPG9"",40,0)"
^XMB(3.9,129,2,1006,0)=" ;;FULL SM"
^XMB(3.9,129,2,1007,0)="""RTN"",""RMPG9"",41,0)"
^XMB(3.9,129,2,1008,0)=" ;;FULL MS;"
^XMB(3.9,129,2,1009,0)="""RTN"",""RMPG9"",42,0)"
^XMB(3.9,129,2,1010,0)=" ;;FULL MM"
^XMB(3.9,129,2,1011,0)="""RTN"",""RMPG9"",43,0)"
^XMB(3.9,129,2,1012,0)=" ;;HALF SS"
^XMB(3.9,129,2,1013,0)="""RTN"",""RMPG9"",44,0)"
^XMB(3.9,129,2,1014,0)=" ;;HALF SM"
^XMB(3.9,129,2,1015,0)="""RTN"",""RMPG9"",45,0)"
^XMB(3.9,129,2,1016,0)=" ;;HALF MS"
^XMB(3.9,129,2,1017,0)="""RTN"",""RMPG9"",46,0)"
^XMB(3.9,129,2,1018,0)=" ;;HALF MM"
^XMB(3.9,129,2,1019,0)="""RTN"",""RMPG9"",47,0)"
^XMB(3.9,129,2,1020,0)=" ;;CANAL SS"
^XMB(3.9,129,2,1021,0)="""RTN"",""RMPG9"",48,0)"
^XMB(3.9,129,2,1022,0)=" ;;CANAL SM"
^XMB(3.9,129,2,1023,0)="""RTN"",""RMPG9"",49,0)"
^XMB(3.9,129,2,1024,0)=" ;;CANAL MS"
^XMB(3.9,129,2,1025,0)="""RTN"",""RMPG9"",50,0)"
^XMB(3.9,129,2,1026,0)=" ;;CANAL MM"
^XMB(3.9,129,2,1027,0)="""RTN"",""RMPG9"",51,0)"
^XMB(3.9,129,2,1028,0)=" ;;CIC SS"
^XMB(3.9,129,2,1029,0)="""RTN"",""RMPG9"",52,0)"
^XMB(3.9,129,2,1030,0)=" ;;CIC SM"
^XMB(3.9,129,2,1031,0)="""RTN"",""RMPG9"",53,0)"
^XMB(3.9,129,2,1032,0)=" ;;CIC MS"
^XMB(3.9,129,2,1033,0)="""RTN"",""RMPG9"",54,0)"
^XMB(3.9,129,2,1034,0)=" ;;CIC MM"
^XMB(3.9,129,2,1035,0)="""RTN"",""RMPG9"",55,0)"
^XMB(3.9,129,2,1036,0)=" ;;BTE UNITRON SM"
^XMB(3.9,129,2,1037,0)="""RTN"",""RMPG9"",56,0)"
^XMB(3.9,129,2,1038,0)=" ;;BTE UNITRON MS"
^XMB(3.9,129,2,1039,0)="""RTN"",""RMPG9"",57,0)"
^XMB(3.9,129,2,1040,0)=" ;;BTE UNITRON MM"
^XMB(3.9,129,2,1041,0)="""RTN"",""RMPG9"",58,0)"
^XMB(3.9,129,2,1042,0)=" ;;OPUS2 ITE"
^XMB(3.9,129,2,1043,0)="""RTN"",""RMPG9"",59,0)"
^XMB(3.9,129,2,1044,0)=" ;;OPUS2 ITE OPT 1"
^XMB(3.9,129,2,1045,0)="""RTN"",""RMPG9"",60,0)"
^XMB(3.9,129,2,1046,0)=" ;;OPUS2 ITE OPT 2"
^XMB(3.9,129,2,1047,0)="""RTN"",""RMPG9"",61,0)"
^XMB(3.9,129,2,1048,0)=" ;;OPUS2 ITE OPT 3"
^XMB(3.9,129,2,1049,0)="""RTN"",""RMPG9"",62,0)"
^XMB(3.9,129,2,1050,0)=" ;;OPUS2 HS"
^XMB(3.9,129,2,1051,0)="""RTN"",""RMPG9"",63,0)"
^XMB(3.9,129,2,1052,0)=" ;;OPUS2 HS OPT 1"
^XMB(3.9,129,2,1053,0)="""RTN"",""RMPG9"",64,0)"
^XMB(3.9,129,2,1054,0)=" ;;OPUS2 HS OPT 2"
^XMB(3.9,129,2,1055,0)="""RTN"",""RMPG9"",65,0)"
^XMB(3.9,129,2,1056,0)=" ;;OPUS2 HS OPT 3"
^XMB(3.9,129,2,1057,0)="""RTN"",""RMPG9"",66,0)"
^XMB(3.9,129,2,1058,0)=" ;;OPUS2 ITC"
^XMB(3.9,129,2,1059,0)="""RTN"",""RMPG9"",67,0)"
^XMB(3.9,129,2,1060,0)=" ;;OPUS2 ITC OPT 1"
^XMB(3.9,129,2,1061,0)="""RTN"",""RMPG9"",68,0)"
^XMB(3.9,129,2,1062,0)=" ;;OPUS2 ITC OPT 2"
^XMB(3.9,129,2,1063,0)="""RTN"",""RMPG9"",69,0)"
^XMB(3.9,129,2,1064,0)=" ;;OPUS2 ITC OPT 3"
^XMB(3.9,129,2,1065,0)="""RTN"",""RMPG9"",70,0)"
^XMB(3.9,129,2,1066,0)=" ;;OPUS2 CIC"
^XMB(3.9,129,2,1067,0)="""RTN"",""RMPG9"",71,0)"
^XMB(3.9,129,2,1068,0)=" ;;OPUS2 CIC OPT 1"
^XMB(3.9,129,2,1069,0)="""RTN"",""RMPG9"",72,0)"
^XMB(3.9,129,2,1070,0)=" ;;OPUS2 CIC OPT 2"
^XMB(3.9,129,2,1071,0)="""RTN"",""RMPG9"",73,0)"
^XMB(3.9,129,2,1072,0)=" ;;OPUS2 CIC OPT 3"
^XMB(3.9,129,2,1073,0)="""RTN"",""RMPG9"",74,0)"
^XMB(3.9,129,2,1074,0)=" ;;ERGO ITE SS"
^XMB(3.9,129,2,1075,0)="""RTN"",""RMPG9"",75,0)"
^XMB(3.9,129,2,1076,0)=" ;;AUDIOFLEX ITE SM"
^XMB(3.9,129,2,1077,0)="""RTN"",""RMPG9"",76,0)"
^XMB(3.9,129,2,1078,0)=" ;;DUALINE ITE MS"
^XMB(3.9,129,2,1079,0)="""RTN"",""RMPG9"",77,0)"
^XMB(3.9,129,2,1080,0)=" ;;ERGO HS SS"
^XMB(3.9,129,2,1081,0)="""RTN"",""RMPG9"",78,0)"
^XMB(3.9,129,2,1082,0)=" ;;AUDIOFLEX HS SM"
^XMB(3.9,129,2,1083,0)="""RTN"",""RMPG9"",79,0)"
^XMB(3.9,129,2,1084,0)=" ;;DUALINE HS MS"
^XMB(3.9,129,2,1085,0)="""RTN"",""RMPG9"",80,0)"
^XMB(3.9,129,2,1086,0)=" ;;ERGO ITC SS"
^XMB(3.9,129,2,1087,0)="""RTN"",""RMPG9"",81,0)"
^XMB(3.9,129,2,1088,0)=" ;;AUDIOFLEX ITC SM"
^XMB(3.9,129,2,1089,0)="""RTN"",""RMPG9"",82,0)"
^XMB(3.9,129,2,1090,0)=" ;;DUALINE ITC MS"
^XMB(3.9,129,2,1091,0)="""RTN"",""RMPG9"",83,0)"
^XMB(3.9,129,2,1092,0)=" ;;ERGO CIC SS"
^XMB(3.9,129,2,1093,0)="""RTN"",""RMPG9"",84,0)"
^XMB(3.9,129,2,1094,0)=" ;;AUDIOFLEX CIC SM"
^XMB(3.9,129,2,1095,0)="""RTN"",""RMPG9"",85,0)"
^XMB(3.9,129,2,1096,0)=" ;;DUALINE CIC MS"
^XMB(3.9,129,2,1097,0)="""RTN"",""RMPG9"",86,0)"
^XMB(3.9,129,2,1098,0)=" ;;ERGO BTE SS"
^XMB(3.9,129,2,1099,0)="""RTN"",""RMPG9"",87,0)"
^XMB(3.9,129,2,1100,0)=" ;;ERGO BTE POWER SS"
^XMB(3.9,129,2,1101,0)="""RTN"",""RMPG9"",88,0)"
^XMB(3.9,129,2,1102,0)=" ;;SWIFT 90 SS"
^XMB(3.9,129,2,1103,0)="""RTN"",""RMPG9"",89,0)"
^XMB(3.9,129,2,1104,0)=" ;;AUDIOFLEX 100 SM"
^XMB(3.9,129,2,1105,0)="""RTN"",""RMPG9"",90,0)"
^XMB(3.9,129,2,1106,0)=" ;;AUDIOFLEX 110 SM"
^XMB(3.9,129,2,1107,0)="""RTN"",""RMPG9"",91,0)"
^XMB(3.9,129,2,1108,0)=" ;;AUDIOFLEX 110D SM"
^XMB(3.9,129,2,1109,0)="""RTN"",""RMPG9"",92,0)"
^XMB(3.9,129,2,1110,0)=" ;;AUDIOFLEX 120 SM"
^XMB(3.9,129,2,1111,0)="""RTN"",""RMPG9"",93,0)"
^XMB(3.9,129,2,1112,0)=" ;;RDC11 HEARING AID REMOTE"
^XMB(3.9,129,2,1113,0)="""RTN"",""RMPG9"",94,0)"
^XMB(3.9,129,2,1114,0)=" ;;FULL SHELL ITE"
^XMB(3.9,129,2,1115,0)="""RTN"",""RMPG9"",95,0)"
^XMB(3.9,129,2,1116,0)=" ;;FULL SHELL ITE OPT 1"
^XMB(3.9,129,2,1117,0)="""RTN"",""RMPG9"",96,0)"
^XMB(3.9,129,2,1118,0)=" ;;FULL SHELL ITE OPT 2"
^XMB(3.9,129,2,1119,0)="""RTN"",""RMPG9"",97,0)"
^XMB(3.9,129,2,1120,0)=" ;;FULL SHELL ITE OPT 3"
^XMB(3.9,129,2,1121,0)="""RTN"",""RMPG9"",98,0)"
^XMB(3.9,129,2,1122,0)=" ;;HALF SHELL"
^XMB(3.9,129,2,1123,0)="""RTN"",""RMPG9"",99,0)"
^XMB(3.9,129,2,1124,0)=" ;;HALF SHELL OPT 1"
^XMB(3.9,129,2,1125,0)="""RTN"",""RMPG9"",100,0)"
^XMB(3.9,129,2,1126,0)=" ;;HALF SHELL OPT 2"
^XMB(3.9,129,2,1127,0)="""RTN"",""RMPG9"",101,0)"
^XMB(3.9,129,2,1128,0)=" ;;HALF SHELL OPT 3"
^XMB(3.9,129,2,1129,0)="""RTN"",""RMPG9"",102,0)"
^XMB(3.9,129,2,1130,0)=" ;;CANAL"
^XMB(3.9,129,2,1131,0)="""RTN"",""RMPG9"",103,0)"
^XMB(3.9,129,2,1132,0)=" ;;CANAL OPT 1"
^XMB(3.9,129,2,1133,0)="""RTN"",""RMPG9"",104,0)"
^XMB(3.9,129,2,1134,0)=" ;;CANAL OPT 2"
^XMB(3.9,129,2,1135,0)="""RTN"",""RMPG9"",105,0)"
^XMB(3.9,129,2,1136,0)=" ;;CANAL OPT 3"
^XMB(3.9,129,2,1137,0)="""RTN"",""RMPG9"",106,0)"
^XMB(3.9,129,2,1138,0)=" ;;TRU-CANAL CIC"
^XMB(3.9,129,2,1139,0)="""RTN"",""RMPG9"",107,0)"
^XMB(3.9,129,2,1140,0)=" ;;TRU-CANAL CIC OPT 1"
^XMB(3.9,129,2,1141,0)="""RTN"",""RMPG9"",108,0)"
^XMB(3.9,129,2,1142,0)=" ;;TRU-CANAL CIC OPT 2"
^XMB(3.9,129,2,1143,0)="""RTN"",""RMPG9"",109,0)"
^XMB(3.9,129,2,1144,0)=" ;;TRU-CANAL CIC OPT 3"
^XMB(3.9,129,2,1145,0)="""RTN"",""RMPG9"",110,0)"
^XMB(3.9,129,2,1146,0)=" ;;FULL SHELL ITE SS"
^XMB(3.9,129,2,1147,0)="""RTN"",""RMPG9"",111,0)"
^XMB(3.9,129,2,1148,0)=" ;;FULL SHELL ITE MS"
^XMB(3.9,129,2,1149,0)="""RTN"",""RMPG9"",112,0)"
^XMB(3.9,129,2,1150,0)=" ;;FULL SHELL ITE MM"
^XMB(3.9,129,2,1151,0)="""RTN"",""RMPG9"",113,0)"
^XMB(3.9,129,2,1152,0)=" ;;HALF SHELL SS"
^XMB(3.9,129,2,1153,0)="""RTN"",""RMPG9"",114,0)"
^XMB(3.9,129,2,1154,0)=" ;;HALF SHELL MS"
^XMB(3.9,129,2,1155,0)="""RTN"",""RMPG9"",115,0)"
^XMB(3.9,129,2,1156,0)=" ;;HALF SHELL MM"
^XMB(3.9,129,2,1157,0)="""RTN"",""RMPG9"",116,0)"
^XMB(3.9,129,2,1158,0)=" ;;CANAL SS"
^XMB(3.9,129,2,1159,0)="""RTN"",""RMPG9"",117,0)"
^XMB(3.9,129,2,1160,0)=" ;;CANAL MS"
^XMB(3.9,129,2,1161,0)="""RTN"",""RMPG9"",118,0)"
^XMB(3.9,129,2,1162,0)=" ;;CANAL MM"
^XMB(3.9,129,2,1163,0)="""RTN"",""RMPG9"",119,0)"
^XMB(3.9,129,2,1164,0)=" ;;TRU-CANAL CIC SS"
^XMB(3.9,129,2,1165,0)="""RTN"",""RMPG9"",120,0)"
^XMB(3.9,129,2,1166,0)=" ;;TRU-CANAL CIC MS"
^XMB(3.9,129,2,1167,0)="""RTN"",""RMPG9"",121,0)"
^XMB(3.9,129,2,1168,0)=" ;;9100"
^XMB(3.9,129,2,1169,0)="""RTN"",""RMPG9"",122,0)"
^XMB(3.9,129,2,1170,0)=" ;;9100 OPT 1"
^XMB(3.9,129,2,1171,0)="""RTN"",""RMPG9"",123,0)"
^XMB(3.9,129,2,1172,0)=" ;;9100 OPT 2"
^XMB(3.9,129,2,1173,0)="""RTN"",""RMPG9"",124,0)"
^XMB(3.9,129,2,1174,0)=" ;;9100 OPT 3"
^XMB(3.9,129,2,1175,0)="""RTN"",""RMPG9"",125,0)"
^XMB(3.9,129,2,1176,0)=" ;;9300"
^XMB(3.9,129,2,1177,0)="""RTN"",""RMPG9"",126,0)"
^XMB(3.9,129,2,1178,0)=" ;;9300 OPT 1"
^XMB(3.9,129,2,1179,0)="""RTN"",""RMPG9"",127,0)"
^XMB(3.9,129,2,1180,0)=" ;;9300 OPT 2"
^XMB(3.9,129,2,1181,0)="""RTN"",""RMPG9"",128,0)"
^XMB(3.9,129,2,1182,0)=" ;;9300 OPT 3"
^XMB(3.9,129,2,1183,0)="""RTN"",""RMPG9"",129,0)"
^XMB(3.9,129,2,1184,0)=" ;;9800"
^XMB(3.9,129,2,1185,0)="""RTN"",""RMPG9"",130,0)"
^XMB(3.9,129,2,1186,0)=" ;;9800 OPT 1"
^XMB(3.9,129,2,1187,0)="""RTN"",""RMPG9"",131,0)"
^XMB(3.9,129,2,1188,0)=" ;;9800 OPT 2"
^XMB(3.9,129,2,1189,0)="""RTN"",""RMPG9"",132,0)"
^XMB(3.9,129,2,1190,0)=" ;;9800 OPT 3"
^XMB(3.9,129,2,1191,0)="""RTN"",""RMPG9"",133,0)"
^XMB(3.9,129,2,1192,0)=" ;;INCA"
^XMB(3.9,129,2,1193,0)="""RTN"",""RMPG9"",134,0)"
^XMB(3.9,129,2,1194,0)=" ;;INCA OPT 1"
^XMB(3.9,129,2,1195,0)="""RTN"",""RMPG9"",135,0)"
^XMB(3.9,129,2,1196,0)=" ;;INCA OPT 2"
^XMB(3.9,129,2,1197,0)="""RTN"",""RMPG9"",136,0)"
^XMB(3.9,129,2,1198,0)=" ;;FS ASTRO SC+ART SS"
^XMB(3.9,129,2,1199,0)="""RTN"",""RMPG9"",137,0)"
^XMB(3.9,129,2,1200,0)=" ;;FS ASTRO SC+ART SM"
^XMB(3.9,129,2,1201,0)="""RTN"",""RMPG9"",138,0)"
^XMB(3.9,129,2,1202,0)=" ;;FS ASTRO MC-WDRC MS"
^XMB(3.9,129,2,1203,0)="""RTN"",""RMPG9"",139,0)"
^XMB(3.9,129,2,1204,0)=" ;;FS ASTRO MC-WDRC MM"
^XMB(3.9,129,2,1205,0)="""RTN"",""RMPG9"",140,0)"
^XMB(3.9,129,2,1206,0)=" ;;HS ASTRO SC+ART SS"
^XMB(3.9,129,2,1207,0)="""RTN"",""RMPG9"",141,0)"
^XMB(3.9,129,2,1208,0)=" ;;MICROZOOM P2 AZ SM"
^XMB(3.9,129,2,1209,0)="""RTN"",""RMPG9"",142,0)"
^XMB(3.9,129,2,1210,0)=" ;;HS ASTRO MC-WDRC MS"
^XMB(3.9,129,2,1211,0)="""RTN"",""RMPG9"",143,0)"
^XMB(3.9,129,2,1212,0)=" ;;HS ASTRO MC-WDRC MM"
^XMB(3.9,129,2,1213,0)="""RTN"",""RMPG9"",144,0)"
^XMB(3.9,129,2,1214,0)=" ;;CA ASTRO SC+ART SS"
^XMB(3.9,129,2,1215,0)="""RTN"",""RMPG9"",145,0)"
^XMB(3.9,129,2,1216,0)=" ;;CA ASTRO SC+ART SM"
^XMB(3.9,129,2,1217,0)="""RTN"",""RMPG9"",146,0)"
^XMB(3.9,129,2,1218,0)=" ;;CA ASTRO MC-WDRC MS"
^XMB(3.9,129,2,1219,0)="""RTN"",""RMPG9"",147,0)"
^XMB(3.9,129,2,1220,0)=" ;;CA ASTRO MC-WDRC MM"
^XMB(3.9,129,2,1221,0)="""RTN"",""RMPG9"",148,0)"
^XMB(3.9,129,2,1222,0)=" ;;CIC ASTRO SC+ART SS"
^XMB(3.9,129,2,1223,0)="""RTN"",""RMPG9"",149,0)"
^XMB(3.9,129,2,1224,0)=" ;;CIC ASTRO SC+ART SM"
^XMB(3.9,129,2,1225,0)="""RTN"",""RMPG9"",150,0)"
^XMB(3.9,129,2,1226,0)=" ;;CIC ASTRO MC-WDRC MS"
^XMB(3.9,129,2,1227,0)="""RTN"",""RMPG9"",151,0)"
^XMB(3.9,129,2,1228,0)=" ;;CIC ASTRO MC-WDRC MM"
^XMB(3.9,129,2,1229,0)="""RTN"",""RMPG9"",152,0)"
^XMB(3.9,129,2,1230,0)=" ;;NOVOFORTE E4 SM"
^XMB(3.9,129,2,1231,0)="""RTN"",""RMPG9"",153,0)"
^XMB(3.9,129,2,1232,0)=" ;;PICONET 2P2 AZ SM"
^XMB(3.9,129,2,1233,0)="""RTN"",""RMPG9"",154,0)"
^XMB(3.9,129,2,1234,0)=" ;;POWERZOOM P4 AZ SM"
^XMB(3.9,129,2,1235,0)="""RTN"",""RMPG9"",155,0)"
^XMB(3.9,129,2,1236,0)=" ;;SONOFORTE 2P3 AZ SM"
^XMB(3.9,129,2,1237,0)="""RTN"",""RMPG9"",156,0)"
^XMB(3.9,129,2,1238,0)=" ;;DHC2 REMOTE"
^XMB(3.9,129,2,1239,0)="""RTN"",""RMPG9"",157,0)"
^XMB(3.9,129,2,1240,0)=" ;;DHC3 EPROM REMOTE"
^XMB(3.9,129,2,1241,0)="""RTN"",""RMPG9"",158,0)"
^XMB(3.9,129,2,1242,0)=" ;;DHC4 SLIMLINE REMOTE"
^XMB(3.9,129,2,1243,0)="""RTN"",""RMPG9"",159,0)"
^XMB(3.9,129,2,1244,0)=" ;;LIFESOUND ITE"
^XMB(3.9,129,2,1245,0)="""RTN"",""RMPG9"",160,0)"
^XMB(3.9,129,2,1246,0)=" ;;LIFESOUND ITE OPT 1"
^XMB(3.9,129,2,1247,0)="""RTN"",""RMPG9"",161,0)"
^XMB(3.9,129,2,1248,0)=" ;;LIFESOUND ITE OPT 2"
^XMB(3.9,129,2,1249,0)="""RTN"",""RMPG9"",162,0)"
^XMB(3.9,129,2,1250,0)=" ;;LIFESOUND ITE OPT 3"
^XMB(3.9,129,2,1251,0)="""RTN"",""RMPG9"",163,0)"
^XMB(3.9,129,2,1252,0)=" ;;LIFESOUND HS"
^XMB(3.9,129,2,1253,0)="""RTN"",""RMPG9"",164,0)"
^XMB(3.9,129,2,1254,0)=" ;;LIFESOUND HS OPT 1"
^XMB(3.9,129,2,1255,0)="""RTN"",""RMPG9"",165,0)"
^XMB(3.9,129,2,1256,0)=" ;;LIFESOUND HS OPT 2"
^XMB(3.9,129,2,1257,0)="""RTN"",""RMPG9"",166,0)"
^XMB(3.9,129,2,1258,0)=" ;;LIFESOUND CA"
^XMB(3.9,129,2,1259,0)="""RTN"",""RMPG9"",167,0)"
^XMB(3.9,129,2,1260,0)=" ;;LIFESOUND CA OPT 1"
^XMB(3.9,129,2,1261,0)="""RTN"",""RMPG9"",168,0)"
^XMB(3.9,129,2,1262,0)=" ;;LIFESOUND CA OPT 2"
^XMB(3.9,129,2,1263,0)="""RTN"",""RMPG9"",169,0)"
^XMB(3.9,129,2,1264,0)=" ;;LIFESOUND CIC"
^XMB(3.9,129,2,1265,0)="""RTN"",""RMPG9"",170,0)"
^XMB(3.9,129,2,1266,0)=" ;;LIFESOUND CIC OPT 1"
^XMB(3.9,129,2,1267,0)="""RTN"",""RMPG9"",171,0)"
^XMB(3.9,129,2,1268,0)=" ;;LIFESOUND ITE SS"
^XMB(3.9,129,2,1269,0)="""RTN"",""RMPG9"",172,0)"
^XMB(3.9,129,2,1270,0)=" ;;LIFESOUND ITE SM"
^XMB(3.9,129,2,1271,0)="""RTN"",""RMPG9"",173,0)"
^XMB(3.9,129,2,1272,0)=" ;;LIFESOUND ITE MS"
^XMB(3.9,129,2,1273,0)="""RTN"",""RMPG9"",174,0)"
^XMB(3.9,129,2,1274,0)=" ;;LIFESOUND ITE MM"
^XMB(3.9,129,2,1275,0)="""RTN"",""RMPG9"",175,0)"
^XMB(3.9,129,2,1276,0)=" ;;LIFESOUND HS SS"
^XMB(3.9,129,2,1277,0)="""RTN"",""RMPG9"",176,0)"
^XMB(3.9,129,2,1278,0)=" ;;LIFESOUND HS SM"
^XMB(3.9,129,2,1279,0)="""RTN"",""RMPG9"",177,0)"
^XMB(3.9,129,2,1280,0)=" ;;LIFESOUND HS MS"
^XMB(3.9,129,2,1281,0)="""RTN"",""RMPG9"",178,0)"
^XMB(3.9,129,2,1282,0)=" ;;LIFESOUND HS MM"
^XMB(3.9,129,2,1283,0)="""RTN"",""RMPG9"",179,0)"
^XMB(3.9,129,2,1284,0)=" ;;LIFESOUND CA SS"
^XMB(3.9,129,2,1285,0)="""RTN"",""RMPG9"",180,0)"
^XMB(3.9,129,2,1286,0)=" ;;LIFESOUND CA SM"
^XMB(3.9,129,2,1287,0)="""RTN"",""RMPG9"",181,0)"
^XMB(3.9,129,2,1288,0)=" ;;LIFESOUND CA MS"
^XMB(3.9,129,2,1289,0)="""RTN"",""RMPG9"",182,0)"
^XMB(3.9,129,2,1290,0)=" ;;LIFESOUND CA MM"
^XMB(3.9,129,2,1291,0)="""RTN"",""RMPG9"",183,0)"
^XMB(3.9,129,2,1292,0)=" ;;LIFESOUND CIC SS"
^XMB(3.9,129,2,1293,0)="""RTN"",""RMPG9"",184,0)"
^XMB(3.9,129,2,1294,0)=" ;;LIFESOUND CIC SM"
^XMB(3.9,129,2,1295,0)="""RTN"",""RMPG9"",185,0)"
^XMB(3.9,129,2,1296,0)=" ;;LIFESOUND CIC MS"
^XMB(3.9,129,2,1297,0)="""RTN"",""RMPG9"",186,0)"
^XMB(3.9,129,2,1298,0)=" ;;LIFESOUND CIC MM"
^XMB(3.9,129,2,1299,0)="""RTN"",""RMPG9"",187,0)"
^XMB(3.9,129,2,1300,0)=" ;;INFINITI 3 BTE SS"
^XMB(3.9,129,2,1301,0)="""RTN"",""RMPG9"",188,0)"
^XMB(3.9,129,2,1302,0)=" ;;INFINITI 3 BTE SM"
^XMB(3.9,129,2,1303,0)="""RTN"",""RMPG9"",189,0)"
^XMB(3.9,129,2,1304,0)=" ;;MUSIC BTE MS"
^XMB(3.9,129,2,1305,0)="""RTN"",""RMPG9"",190,0)"
^XMB(3.9,129,2,1306,0)=" ;;MUSIC BTE MM"
^XMB(3.9,129,2,1307,0)="""RTN"",""RMPG9"",191,0)"
^XMB(3.9,129,2,1308,0)=" ;;CE 9"
^XMB(3.9,129,2,1309,0)="""RTN"",""RMPG9"",192,0)"
^XMB(3.9,129,2,1310,0)=" ;;CE 9 OPT 1"
^XMB(3.9,129,2,1311,0)="""RTN"",""RMPG9"",193,0)"
^XMB(3.9,129,2,1312,0)=" ;;CE 9 OPT 2"
^XMB(3.9,129,2,1313,0)="""RTN"",""RMPG9"",194,0)"
^XMB(3.9,129,2,1314,0)=" ;;CE 9 OPT 3"
^XMB(3.9,129,2,1315,0)="""RTN"",""RMPG9"",195,0)"
^XMB(3.9,129,2,1316,0)=" ;;CE H9"
^XMB(3.9,129,2,1317,0)="""RTN"",""RMPG9"",196,0)"
^XMB(3.9,129,2,1318,0)=" ;;CE H9 OPT 1"
^XMB(3.9,129,2,1319,0)="""RTN"",""RMPG9"",197,0)"
^XMB(3.9,129,2,1320,0)=" ;;CE H9 OPT 2"
^XMB(3.9,129,2,1321,0)="""RTN"",""RMPG9"",198,0)"
^XMB(3.9,129,2,1322,0)=" ;;CE H9 OPT 3"
^XMB(3.9,129,2,1323,0)="""RTN"",""RMPG9"",199,0)"
^XMB(3.9,129,2,1324,0)=" ;;SA C9"
^XMB(3.9,129,2,1325,0)="""RTN"",""RMPG9"",200,0)"
^XMB(3.9,129,2,1326,0)=" ;;SA C9 OPT 1"
^XMB(3.9,129,2,1327,0)="""RTN"",""RMPG9"",201,0)"
^XMB(3.9,129,2,1328,0)=" ;;SA C9 OPT 2"
^XMB(3.9,129,2,1329,0)="""RTN"",""RMPG9"",202,0)"
^XMB(3.9,129,2,1330,0)=" ;;SA C9 OPT 3"
^XMB(3.9,129,2,1331,0)="""RTN"",""RMPG9"",203,0)"
^XMB(3.9,129,2,1332,0)=" ;;SA T9"
^XMB(3.9,129,2,1333,0)="""RTN"",""RMPG9"",204,0)"
^XMB(3.9,129,2,1334,0)=" ;;SA T9 OPT 1"
^XMB(3.9,129,2,1335,0)="""RTN"",""RMPG9"",205,0)"
^XMB(3.9,129,2,1336,0)=" ;;SA T9 OPT 2"
^XMB(3.9,129,2,1337,0)="""RTN"",""RMPG9"",206,0)"
^XMB(3.9,129,2,1338,0)=" ;;SA T9 OPT 3"
^XMB(3.9,129,2,1339,0)="""RTN"",""RMPG9"",207,0)"
^XMB(3.9,129,2,1340,0)=" ;;CE Q SS"
^XMB(3.9,129,2,1341,0)="""RTN"",""RMPG9"",208,0)"
^XMB(3.9,129,2,1342,0)=" ;;CE Q SM"
^XMB(3.9,129,2,1343,0)="""RTN"",""RMPG9"",209,0)"
^XMB(3.9,129,2,1344,0)=" ;;CE Q MS"
^XMB(3.9,129,2,1345,0)="""RTN"",""RMPG9"",210,0)"
^XMB(3.9,129,2,1346,0)=" ;;CE Q MM"
^XMB(3.9,129,2,1347,0)="""RTN"",""RMPG9"",211,0)"
^XMB(3.9,129,2,1348,0)=" ;;CE HQ SS"
^XMB(3.9,129,2,1349,0)="""RTN"",""RMPG9"",212,0)"
^XMB(3.9,129,2,1350,0)=" ;;CE HQ SM"
^XMB(3.9,129,2,1351,0)="""RTN"",""RMPG9"",213,0)"
^XMB(3.9,129,2,1352,0)=" ;;CE HQ MS"
^XMB(3.9,129,2,1353,0)="""RTN"",""RMPG9"",214,0)"
^XMB(3.9,129,2,1354,0)=" ;;CE HQ MM"
^XMB(3.9,129,2,1355,0)="""RTN"",""RMPG9"",215,0)"
^XMB(3.9,129,2,1356,0)=" ;;SA CQ SS"
^XMB(3.9,129,2,1357,0)="""RTN"",""RMPG9"",216,0)"
^XMB(3.9,129,2,1358,0)=" ;;SA CQ SM"
^XMB(3.9,129,2,1359,0)="""RTN"",""RMPG9"",217,0)"
^XMB(3.9,129,2,1360,0)=" ;;SA CQ MS"
^XMB(3.9,129,2,1361,0)="""RTN"",""RMPG9"",218,0)"
^XMB(3.9,129,2,1362,0)=" ;;SA CQ MM"
^XMB(3.9,129,2,1363,0)="""RTN"",""RMPG9"",219,0)"
^XMB(3.9,129,2,1364,0)=" ;;SA TQ SS"
^XMB(3.9,129,2,1365,0)="""RTN"",""RMPG9"",220,0)"
^XMB(3.9,129,2,1366,0)=" ;;SA TQ SM"
^XMB(3.9,129,2,1367,0)="""RTN"",""RMPG9"",221,0)"
^XMB(3.9,129,2,1368,0)=" ;;SA TQ MS"
^XMB(3.9,129,2,1369,0)="""RTN"",""RMPG9"",222,0)"
^XMB(3.9,129,2,1370,0)=" ;;SA TQ MM"
^XMB(3.9,129,2,1371,0)="""RTN"",""RMPG9"",223,0)"
^XMB(3.9,129,2,1372,0)=" ;;A13 SS"
^XMB(3.9,129,2,1373,0)="""RTN"",""RMPG9"",224,0)"
^XMB(3.9,129,2,1374,0)=" ;;A13 SM"
^XMB(3.9,129,2,1375,0)="""RTN"",""RMPG9"",225,0)"
^XMB(3.9,129,2,1376,0)=" ;;A13AV SM"
^XMB(3.9,129,2,1377,0)="""RTN"",""RMPG9"",226,0)"
^XMB(3.9,129,2,1378,0)=" ;;A13 MS"
^XMB(3.9,129,2,1379,0)="""RTN"",""RMPG9"",227,0)"
^XMB(3.9,129,2,1380,0)=" ;;A675AV MM"
^XMB(3.9,129,2,1381,0)="""RTN"",""RMPG9"",228,0)"
^XMB(3.9,129,2,1382,0)=" ;;A13SEQ MM"
^XMB(3.9,129,2,1383,0)="""RTN"",""RMPG9"",229,0)"
^XMB(3.9,129,2,1384,0)=" ;;FULL SHELL"
^XMB(3.9,129,2,1385,0)="""RTN"",""RMPG9"",230,0)"
^XMB(3.9,129,2,1386,0)=" ;;FULL SHELL OPT 1"
^XMB(3.9,129,2,1387,0)="""RTN"",""RMPG9"",231,0)"
^XMB(3.9,129,2,1388,0)=" ;;FULL SHELL OPT 2"
^XMB(3.9,129,2,1389,0)="""RTN"",""RMPG9"",232,0)"
^XMB(3.9,129,2,1390,0)=" ;;FULL SHELL OPT 3"
^XMB(3.9,129,2,1391,0)="""RTN"",""RMPG9"",233,0)"
^XMB(3.9,129,2,1392,0)=" ;;HALF SHELL"
^XMB(3.9,129,2,1393,0)="""RTN"",""RMPG9"",234,0)"
^XMB(3.9,129,2,1394,0)=" ;;HALF SHELL OPT 1"
^XMB(3.9,129,2,1395,0)="""RTN"",""RMPG9"",235,0)"
^XMB(3.9,129,2,1396,0)=" ;;HALF SHELL OPT 2"
^XMB(3.9,129,2,1397,0)="""RTN"",""RMPG9"",236,0)"
^XMB(3.9,129,2,1398,0)=" ;;HALF SHELL OPT 3"
^XMB(3.9,129,2,1399,0)="""RTN"",""RMPG9"",237,0)"
^XMB(3.9,129,2,1400,0)=" ;;CANAL"
^XMB(3.9,129,2,1401,0)="""RTN"",""RMPG9"",238,0)"
^XMB(3.9,129,2,1402,0)=" ;;CANAL OPT 1"
^XMB(3.9,129,2,1403,0)="""RTN"",""RMPG9"",239,0)"
^XMB(3.9,129,2,1404,0)=" ;;CANAL OPT 2"
^XMB(3.9,129,2,1405,0)="""RTN"",""RMPG9"",240,0)"
^XMB(3.9,129,2,1406,0)=" ;;CANAL OPT 3"
^XMB(3.9,129,2,1407,0)="""RTN"",""RMPG9"",241,0)"
^XMB(3.9,129,2,1408,0)=" ;;CIC"
^XMB(3.9,129,2,1409,0)="""RTN"",""RMPG9"",242,0)"
^XMB(3.9,129,2,1410,0)=" ;;CIC OPT 1"
^XMB(3.9,129,2,1411,0)="""RTN"",""RMPG9"",243,0)"
^XMB(3.9,129,2,1412,0)=" ;;CIC OPT 2"
^XMB(3.9,129,2,1413,0)="""RTN"",""RMPG9"",244,0)"
^XMB(3.9,129,2,1414,0)=" ;;CIC OPT 3"
^XMB(3.9,129,2,1415,0)="""RTN"",""RMPG9"",245,0)"
^XMB(3.9,129,2,1416,0)=" ;;FULL SHELL SS"
^XMB(3.9,129,2,1417,0)="""RTN"",""RMPG9"",246,0)"
^XMB(3.9,129,2,1418,0)=" ;;FULL SHELL SM"
^XMB(3.9,129,2,1419,0)="""RTN"",""RMPG9"",247,0)"
^XMB(3.9,129,2,1420,0)=" ;;FULL SHELL MS"
^XMB(3.9,129,2,1421,0)="""RTN"",""RMPG9"",248,0)"
^XMB(3.9,129,2,1422,0)=" ;;FULL SHELL MM"
^XMB(3.9,129,2,1423,0)="""RTN"",""RMPG9"",249,0)"
^XMB(3.9,129,2,1424,0)=" ;;HALF SHELL SS"
^XMB(3.9,129,2,1425,0)="""RTN"",""RMPG9"",250,0)"
^XMB(3.9,129,2,1426,0)=" ;;HALF SHELL SM"
^XMB(3.9,129,2,1427,0)="""RTN"",""RMPG9"",251,0)"
^XMB(3.9,129,2,1428,0)=" ;;HALF SHELL MS"
^XMB(3.9,129,2,1429,0)="""RTN"",""RMPG9"",252,0)"
^XMB(3.9,129,2,1430,0)=" ;;HALF SHELL MM"
^XMB(3.9,129,2,1431,0)="""RTN"",""RMPG9"",253,0)"
^XMB(3.9,129,2,1432,0)=" ;;CANAL SS"
^XMB(3.9,129,2,1433,0)="""RTN"",""RMPG9"",254,0)"
^XMB(3.9,129,2,1434,0)=" ;;CANAL SM"
^XMB(3.9,129,2,1435,0)="""RTN"",""RMPG9"",255,0)"
^XMB(3.9,129,2,1436,0)=" ;;CANAL MS"
^XMB(3.9,129,2,1437,0)="""RTN"",""RMPG9"",256,0)"
^XMB(3.9,129,2,1438,0)=" ;;CANAL MM"
^XMB(3.9,129,2,1439,0)="""RTN"",""RMPG9"",257,0)"
^XMB(3.9,129,2,1440,0)=" ;;CIC SS"
^XMB(3.9,129,2,1441,0)="""RTN"",""RMPG9"",258,0)"
^XMB(3.9,129,2,1442,0)=" ;;CIC SM"
^XMB(3.9,129,2,1443,0)="""RTN"",""RMPG9"",259,0)"
^XMB(3.9,129,2,1444,0)=" ;;CIC MS"
^XMB(3.9,129,2,1445,0)="""RTN"",""RMPG9"",260,0)"
^XMB(3.9,129,2,1446,0)=" ;;CIC MM"
^XMB(3.9,129,2,1447,0)="""RTN"",""RMPG9"",261,0)"
^XMB(3.9,129,2,1448,0)=" ;;BTE SM"
^XMB(3.9,129,2,1449,0)="""RTN"",""RMPG9"",262,0)"
^XMB(3.9,129,2,1450,0)=" ;;BTE MS"
^XMB(3.9,129,2,1451,0)="""RTN"",""RMPG9"",263,0)"
^XMB(3.9,129,2,1452,0)=" ;;BTE MM"
^XMB(3.9,129,2,1453,0)="""RTN"",""RMPG9"",264,0)"
^XMB(3.9,129,2,1454,0)=" ;;WIRELESS BICROS"
^XMB(3.9,129,2,1455,0)="""RTN"",""RMPG9"",265,0)"
^XMB(3.9,129,2,1456,0)=" ;;WIRELESS BICROS OPT 1"
^XMB(3.9,129,2,1457,0)="""RTN"",""RMPG9"",266,0)"
^XMB(3.9,129,2,1458,0)=" ;;WIRELESS CROS"
^XMB(3.9,129,2,1459,0)="""RTN"",""RMPG9"",267,0)"
^XMB(3.9,129,2,1460,0)=" ;;WIRELESS CROS OPT 1"
^XMB(3.9,129,2,1461,0)="""VER"")"
^XMB(3.9,129,2,1462,0)="8.0^22.0"
^XMB(3.9,129,2,1463,0)="$END KID RMPF*2.0*20"
^XMB(3.9,129,6,0)="^3.911A^2^2"
^XMB(3.9,129,6,1,0)="POSTMASTER"
^XMB(3.9,129,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,129,6,"B","POSTMASTER",1)=""
^XMB(3.9,129,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,130,0)="RMPR-3_SEQ-100_PAT-120.KID^.5^3061008.015742^^^^K"
^XMB(3.9,130,.6)="3061008"
^XMB(3.9,130,1,0)="^3.91A^2^2"
^XMB(3.9,130,1,1,0)=".5^0^3061008.015742^^^^^^^3061008.015742"
^XMB(3.9,130,1,2,0)="1^0^3061008.022638^^^^^^^3061008.022638"
^XMB(3.9,130,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,130,1,"C",.5,1)=""
^XMB(3.9,130,1,"C",1,2)=""
^XMB(3.9,130,2,0)="^^1239^1239^3061008"
^XMB(3.9,130,2,1,0)="$TXT Released RMPR*3*120 SEQ #100"
^XMB(3.9,130,2,2,0)="Extracted from mail message"
^XMB(3.9,130,2,3,0)="$END TXT"
^XMB(3.9,130,2,4,0)="$KID RMPR*3.0*120"
^XMB(3.9,130,2,5,0)="**INSTALL NAME**"
^XMB(3.9,130,2,6,0)="RMPR*3.0*120"
^XMB(3.9,130,2,7,0)="""BLD"",5984,0)"
^XMB(3.9,130,2,8,0)="RMPR*3.0*120^PROSTHETICS^0^3060301^y"
^XMB(3.9,130,2,9,0)="""BLD"",5984,1,0)"
^XMB(3.9,130,2,10,0)="^^8^8^3060301^^^"
^XMB(3.9,130,2,11,0)="""BLD"",5984,1,1,0)"
^XMB(3.9,130,2,12,0)="1. Up-arrow out of option [RMPR INQ SUSPENSE] and going to option [RMPR "
^XMB(3.9,130,2,13,0)="""BLD"",5984,1,2,0)"
^XMB(3.9,130,2,14,0)="   SUSP] will use the same patient from the initial inquiry, instead of"
^XMB(3.9,130,2,15,0)="""BLD"",5984,1,3,0)"
^XMB(3.9,130,2,16,0)="   prompting for new patient name."
^XMB(3.9,130,2,17,0)="""BLD"",5984,1,4,0)"
^XMB(3.9,130,2,18,0)=" "
^XMB(3.9,130,2,19,0)="""BLD"",5984,1,5,0)"
^XMB(3.9,130,2,20,0)="2. Consult cloning carries over inactive ICD9 diagnosis codes."
^XMB(3.9,130,2,21,0)="""BLD"",5984,1,6,0)"
^XMB(3.9,130,2,22,0)=" "
^XMB(3.9,130,2,23,0)="""BLD"",5984,1,7,0)"
^XMB(3.9,130,2,24,0)="3. Bad entries (null) in the VISIT File (9000010) when RMPR PCE "
^XMB(3.9,130,2,25,0)="""BLD"",5984,1,8,0)"
^XMB(3.9,130,2,26,0)="   BACKGROUND job running. "
^XMB(3.9,130,2,27,0)="""BLD"",5984,4,0)"
^XMB(3.9,130,2,28,0)="^9.64PA^^"
^XMB(3.9,130,2,29,0)="""BLD"",5984,6.3)"
^XMB(3.9,130,2,30,0)="2"
^XMB(3.9,130,2,31,0)="""BLD"",5984,""ABPKG"")"
^XMB(3.9,130,2,32,0)="n"
^XMB(3.9,130,2,33,0)="""BLD"",5984,""KRN"",0)"
^XMB(3.9,130,2,34,0)="^9.67PA^8989.52^19"
^XMB(3.9,130,2,35,0)="""BLD"",5984,""KRN"",.4,0)"
^XMB(3.9,130,2,36,0)=".4"
^XMB(3.9,130,2,37,0)="""BLD"",5984,""KRN"",.401,0)"
^XMB(3.9,130,2,38,0)=".401"
^XMB(3.9,130,2,39,0)="""BLD"",5984,""KRN"",.402,0)"
^XMB(3.9,130,2,40,0)=".402"
^XMB(3.9,130,2,41,0)="""BLD"",5984,""KRN"",.403,0)"
^XMB(3.9,130,2,42,0)=".403"
^XMB(3.9,130,2,43,0)="""BLD"",5984,""KRN"",.5,0)"
^XMB(3.9,130,2,44,0)=".5"
^XMB(3.9,130,2,45,0)="""BLD"",5984,""KRN"",.84,0)"
^XMB(3.9,130,2,46,0)=".84"
^XMB(3.9,130,2,47,0)="""BLD"",5984,""KRN"",3.6,0)"
^XMB(3.9,130,2,48,0)="3.6"
^XMB(3.9,130,2,49,0)="""BLD"",5984,""KRN"",3.8,0)"
^XMB(3.9,130,2,50,0)="3.8"
^XMB(3.9,130,2,51,0)="""BLD"",5984,""KRN"",9.2,0)"
^XMB(3.9,130,2,52,0)="9.2"
^XMB(3.9,130,2,53,0)="""BLD"",5984,""KRN"",9.8,0)"
^XMB(3.9,130,2,54,0)="9.8"
^XMB(3.9,130,2,55,0)="""BLD"",5984,""KRN"",9.8,""NM"",0)"
^XMB(3.9,130,2,56,0)="^9.68A^3^3"
^XMB(3.9,130,2,57,0)="""BLD"",5984,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,130,2,58,0)="RMPRS^^0^30300353"
^XMB(3.9,130,2,59,0)="""BLD"",5984,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,130,2,60,0)="RMPRPCEA^^0^52102527"
^XMB(3.9,130,2,61,0)="""BLD"",5984,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,130,2,62,0)="RMPRPCEB^^0^21611450"
^XMB(3.9,130,2,63,0)="""BLD"",5984,""KRN"",9.8,""NM"",""B"",""RMPRPCEA"",2)"
^XMB(3.9,130,2,64,0)=""
^XMB(3.9,130,2,65,0)="""BLD"",5984,""KRN"",9.8,""NM"",""B"",""RMPRPCEB"",3)"
^XMB(3.9,130,2,66,0)=""
^XMB(3.9,130,2,67,0)="""BLD"",5984,""KRN"",9.8,""NM"",""B"",""RMPRS"",1)"
^XMB(3.9,130,2,68,0)=""
^XMB(3.9,130,2,69,0)="""BLD"",5984,""KRN"",19,0)"
^XMB(3.9,130,2,70,0)="19"
^XMB(3.9,130,2,71,0)="""BLD"",5984,""KRN"",19,""NM"",0)"
^XMB(3.9,130,2,72,0)="^9.68A^^"
^XMB(3.9,130,2,73,0)="""BLD"",5984,""KRN"",19.1,0)"
^XMB(3.9,130,2,74,0)="19.1"
^XMB(3.9,130,2,75,0)="""BLD"",5984,""KRN"",101,0)"
^XMB(3.9,130,2,76,0)="101"
^XMB(3.9,130,2,77,0)="""BLD"",5984,""KRN"",409.61,0)"
^XMB(3.9,130,2,78,0)="409.61"
^XMB(3.9,130,2,79,0)="""BLD"",5984,""KRN"",771,0)"
^XMB(3.9,130,2,80,0)="771"
^XMB(3.9,130,2,81,0)="""BLD"",5984,""KRN"",870,0)"
^XMB(3.9,130,2,82,0)="870"
^XMB(3.9,130,2,83,0)="""BLD"",5984,""KRN"",8989.51,0)"
^XMB(3.9,130,2,84,0)="8989.51"
^XMB(3.9,130,2,85,0)="""BLD"",5984,""KRN"",8989.52,0)"
^XMB(3.9,130,2,86,0)="8989.52"
^XMB(3.9,130,2,87,0)="""BLD"",5984,""KRN"",8994,0)"
^XMB(3.9,130,2,88,0)="8994"
^XMB(3.9,130,2,89,0)="""BLD"",5984,""KRN"",""B"",.4,.4)"
^XMB(3.9,130,2,90,0)=""
^XMB(3.9,130,2,91,0)="""BLD"",5984,""KRN"",""B"",.401,.401)"
^XMB(3.9,130,2,92,0)=""
^XMB(3.9,130,2,93,0)="""BLD"",5984,""KRN"",""B"",.402,.402)"
^XMB(3.9,130,2,94,0)=""
^XMB(3.9,130,2,95,0)="""BLD"",5984,""KRN"",""B"",.403,.403)"
^XMB(3.9,130,2,96,0)=""
^XMB(3.9,130,2,97,0)="""BLD"",5984,""KRN"",""B"",.5,.5)"
^XMB(3.9,130,2,98,0)=""
^XMB(3.9,130,2,99,0)="""BLD"",5984,""KRN"",""B"",.84,.84)"
^XMB(3.9,130,2,100,0)=""
^XMB(3.9,130,2,101,0)="""BLD"",5984,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,130,2,102,0)=""
^XMB(3.9,130,2,103,0)="""BLD"",5984,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,130,2,104,0)=""
^XMB(3.9,130,2,105,0)="""BLD"",5984,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,130,2,106,0)=""
^XMB(3.9,130,2,107,0)="""BLD"",5984,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,130,2,108,0)=""
^XMB(3.9,130,2,109,0)="""BLD"",5984,""KRN"",""B"",19,19)"
^XMB(3.9,130,2,110,0)=""
^XMB(3.9,130,2,111,0)="""BLD"",5984,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,130,2,112,0)=""
^XMB(3.9,130,2,113,0)="""BLD"",5984,""KRN"",""B"",101,101)"
^XMB(3.9,130,2,114,0)=""
^XMB(3.9,130,2,115,0)="""BLD"",5984,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,130,2,116,0)=""
^XMB(3.9,130,2,117,0)="""BLD"",5984,""KRN"",""B"",771,771)"
^XMB(3.9,130,2,118,0)=""
^XMB(3.9,130,2,119,0)="""BLD"",5984,""KRN"",""B"",870,870)"
^XMB(3.9,130,2,120,0)=""
^XMB(3.9,130,2,121,0)="""BLD"",5984,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,130,2,122,0)=""
^XMB(3.9,130,2,123,0)="""BLD"",5984,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,130,2,124,0)=""
^XMB(3.9,130,2,125,0)="""BLD"",5984,""KRN"",""B"",8994,8994)"
^XMB(3.9,130,2,126,0)=""
^XMB(3.9,130,2,127,0)="""BLD"",5984,""QUES"",0)"
^XMB(3.9,130,2,128,0)="^9.62^^"
^XMB(3.9,130,2,129,0)="""BLD"",5984,""REQB"",0)"
^XMB(3.9,130,2,130,0)="^9.611^2^1"
^XMB(3.9,130,2,131,0)="""BLD"",5984,""REQB"",2,0)"
^XMB(3.9,130,2,132,0)="RMPR*3.0*114^2"
^XMB(3.9,130,2,133,0)="""BLD"",5984,""REQB"",""B"",""RMPR*3.0*114"",2)"
^XMB(3.9,130,2,134,0)=""
^XMB(3.9,130,2,135,0)="""MBREQ"")"
^XMB(3.9,130,2,136,0)="0"
^XMB(3.9,130,2,137,0)="""PKG"",101,-1)"
^XMB(3.9,130,2,138,0)="1^1"
^XMB(3.9,130,2,139,0)="""PKG"",101,0)"
^XMB(3.9,130,2,140,0)="PROSTHETICS^RMPR^PROSTHETICS VERSION 3.0 ALPHA"
^XMB(3.9,130,2,141,0)="""PKG"",101,20,0)"
^XMB(3.9,130,2,142,0)="^9.402P^^0"
^XMB(3.9,130,2,143,0)="""PKG"",101,22,0)"
^XMB(3.9,130,2,144,0)="^9.49I^1^1"
^XMB(3.9,130,2,145,0)="""PKG"",101,22,1,0)"
^XMB(3.9,130,2,146,0)="3.0^2960209^2960214"
^XMB(3.9,130,2,147,0)="""PKG"",101,22,1,""PAH"",1,0)"
^XMB(3.9,130,2,148,0)="120^3060301"
^XMB(3.9,130,2,149,0)="""PKG"",101,22,1,""PAH"",1,1,0)"
^XMB(3.9,130,2,150,0)="^^8^8^3060301"
^XMB(3.9,130,2,151,0)="""PKG"",101,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,130,2,152,0)="1. Up-arrow out of option [RMPR INQ SUSPENSE] and going to option [RMPR "
^XMB(3.9,130,2,153,0)="""PKG"",101,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,130,2,154,0)="   SUSP] will use the same patient from the initial inquiry, instead of"
^XMB(3.9,130,2,155,0)="""PKG"",101,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,130,2,156,0)="   prompting for new patient name."
^XMB(3.9,130,2,157,0)="""PKG"",101,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,130,2,158,0)=" "
^XMB(3.9,130,2,159,0)="""PKG"",101,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,130,2,160,0)="2. Consult cloning carries over inactive ICD9 diagnosis codes."
^XMB(3.9,130,2,161,0)="""PKG"",101,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,130,2,162,0)=" "
^XMB(3.9,130,2,163,0)="""PKG"",101,22,1,""PAH"",1,1,7,0)"
^XMB(3.9,130,2,164,0)="3. Bad entries (null) in the VISIT File (9000010) when RMPR PCE "
^XMB(3.9,130,2,165,0)="""PKG"",101,22,1,""PAH"",1,1,8,0)"
^XMB(3.9,130,2,166,0)="   BACKGROUND job running. "
^XMB(3.9,130,2,167,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,130,2,168,0)="Y"
^XMB(3.9,130,2,169,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,130,2,170,0)="^D REP^XPDH"
^XMB(3.9,130,2,171,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,130,2,172,0)="Shall I write over your |FLAG| File"
^XMB(3.9,130,2,173,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,130,2,174,0)="YES"
^XMB(3.9,130,2,175,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,130,2,176,0)="D XPF1^XPDIQ"
^XMB(3.9,130,2,177,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,130,2,178,0)="Y"
^XMB(3.9,130,2,179,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,130,2,180,0)="^D DTA^XPDH"
^XMB(3.9,130,2,181,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,130,2,182,0)="Want my data |FLAG| yours"
^XMB(3.9,130,2,183,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,130,2,184,0)="YES"
^XMB(3.9,130,2,185,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,130,2,186,0)="D XPF2^XPDIQ"
^XMB(3.9,130,2,187,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,130,2,188,0)="YO"
^XMB(3.9,130,2,189,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,130,2,190,0)="^D INHIBIT^XPDH"
^XMB(3.9,130,2,191,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,130,2,192,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,130,2,193,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,130,2,194,0)="YES"
^XMB(3.9,130,2,195,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,130,2,196,0)="D XPI1^XPDIQ"
^XMB(3.9,130,2,197,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,130,2,198,0)="PO^VA(200,:EM"
^XMB(3.9,130,2,199,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,130,2,200,0)="^D MG^XPDH"
^XMB(3.9,130,2,201,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,130,2,202,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,130,2,203,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,130,2,204,0)=""
^XMB(3.9,130,2,205,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,130,2,206,0)="D XPM1^XPDIQ"
^XMB(3.9,130,2,207,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,130,2,208,0)="Y"
^XMB(3.9,130,2,209,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,130,2,210,0)="^D MENU^XPDH"
^XMB(3.9,130,2,211,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,130,2,212,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,130,2,213,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,130,2,214,0)="YES"
^XMB(3.9,130,2,215,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,130,2,216,0)="D XPO1^XPDIQ"
^XMB(3.9,130,2,217,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,130,2,218,0)="Y"
^XMB(3.9,130,2,219,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,130,2,220,0)="^D OPT^XPDH"
^XMB(3.9,130,2,221,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,130,2,222,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,130,2,223,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,130,2,224,0)="YES"
^XMB(3.9,130,2,225,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,130,2,226,0)="D XPZ1^XPDIQ"
^XMB(3.9,130,2,227,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,130,2,228,0)="Y"
^XMB(3.9,130,2,229,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,130,2,230,0)="^D RTN^XPDH"
^XMB(3.9,130,2,231,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,130,2,232,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,130,2,233,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,130,2,234,0)="NO"
^XMB(3.9,130,2,235,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,130,2,236,0)="D XPZ2^XPDIQ"
^XMB(3.9,130,2,237,0)="""RTN"")"
^XMB(3.9,130,2,238,0)="3"
^XMB(3.9,130,2,239,0)="""RTN"",""RMPRPCEA"")"
^XMB(3.9,130,2,240,0)="0^2^B52102527^B50015987"
^XMB(3.9,130,2,241,0)="""RTN"",""RMPRPCEA"",1,0)"
^XMB(3.9,130,2,242,0)="RMPRPCEA ;HCIOFO/RVD - Prosthetics/PCE Interface; 05/31/01"
^XMB(3.9,130,2,243,0)="""RTN"",""RMPRPCEA"",2,0)"
^XMB(3.9,130,2,244,0)=" ;;3.0;PROSTHETICS;**62,82,78,114,120**;Feb 09, 1996"
^XMB(3.9,130,2,245,0)="""RTN"",""RMPRPCEA"",3,0)"
^XMB(3.9,130,2,246,0)=" ;"
^XMB(3.9,130,2,247,0)="""RTN"",""RMPRPCEA"",4,0)"
^XMB(3.9,130,2,248,0)=" ; RMS  10/1/03 Patch 78 - Change Service connected, and environmental"
^XMB(3.9,130,2,249,0)="""RTN"",""RMPRPCEA"",5,0)"
^XMB(3.9,130,2,250,0)=" ;                         indicators (Agent Orange, Ionizing Radiation,"
^XMB(3.9,130,2,251,0)="""RTN"",""RMPRPCEA"",6,0)"
^XMB(3.9,130,2,252,0)=" ;                         Environmental Contaminants, Military Sexual"
^XMB(3.9,130,2,253,0)="""RTN"",""RMPRPCEA"",7,0)"
^XMB(3.9,130,2,254,0)=" ;                         Trauma, Head/Neck Cancer, and Combat Veteran"
^XMB(3.9,130,2,255,0)="""RTN"",""RMPRPCEA"",8,0)"
^XMB(3.9,130,2,256,0)=" ;                         Status) to come from new BA fields if they"
^XMB(3.9,130,2,257,0)="""RTN"",""RMPRPCEA"",9,0)"
^XMB(3.9,130,2,258,0)=" ;                         exist."
^XMB(3.9,130,2,259,0)="""RTN"",""RMPRPCEA"",10,0)"
^XMB(3.9,130,2,260,0)=" ;"
^XMB(3.9,130,2,261,0)="""RTN"",""RMPRPCEA"",11,0)"
^XMB(3.9,130,2,262,0)=" ;This routine contains the code for sending a Prosthetic visit to PCE."
^XMB(3.9,130,2,263,0)="""RTN"",""RMPRPCEA"",12,0)"
^XMB(3.9,130,2,264,0)=" ;"
^XMB(3.9,130,2,265,0)="""RTN"",""RMPRPCEA"",13,0)"
^XMB(3.9,130,2,266,0)=" ;DBIA #1889-A  - this API is used to add, edit and delete the"
^XMB(3.9,130,2,267,0)="""RTN"",""RMPRPCEA"",14,0)"
^XMB(3.9,130,2,268,0)=" ;                of encounter, provider, diagnosis and procedure"
^XMB(3.9,130,2,269,0)="""RTN"",""RMPRPCEA"",15,0)"
^XMB(3.9,130,2,270,0)=" ;                data to VISIT and V files in the PCE module."
^XMB(3.9,130,2,271,0)="""RTN"",""RMPRPCEA"",16,0)"
^XMB(3.9,130,2,272,0)=" ; 04/23/2004 KAM RMPR*3*82 Make Background Message more Robust"
^XMB(3.9,130,2,273,0)="""RTN"",""RMPRPCEA"",17,0)"
^XMB(3.9,130,2,274,0)=" ;"
^XMB(3.9,130,2,275,0)="""RTN"",""RMPRPCEA"",18,0)"
^XMB(3.9,130,2,276,0)=" ;RMIE60 - ien in file #660"
^XMB(3.9,130,2,277,0)="""RTN"",""RMPRPCEA"",19,0)"
^XMB(3.9,130,2,278,0)="SENDPCE(RMIE60) ; send a Prosthetic Visit to PCE."
^XMB(3.9,130,2,279,0)="""RTN"",""RMPRPCEA"",20,0)"
^XMB(3.9,130,2,280,0)=" ; D NEWVAR subroutine removed for functionality  01/31/05  WLC"
^XMB(3.9,130,2,281,0)="""RTN"",""RMPRPCEA"",21,0)"
^XMB(3.9,130,2,282,0)=" ;"
^XMB(3.9,130,2,283,0)="""RTN"",""RMPRPCEA"",22,0)"
^XMB(3.9,130,2,284,0)=" N RMPCE,RME2,RMSENT,RMLOCK,RMERR,RMPKG,RMSRC,RMDIAG,RMQTY"
^XMB(3.9,130,2,285,0)="""RTN"",""RMPRPCEA"",23,0)"
^XMB(3.9,130,2,286,0)=" N RMSCAT,RMPROC,RMUPD,RMIEPCE,RMHLOC,RMLOC,RMPAT,RMDATE,RMINST"
^XMB(3.9,130,2,287,0)="""RTN"",""RMPRPCEA"",24,0)"
^XMB(3.9,130,2,288,0)=" N RMETYP,RMCDAT,RMPCAT,RMDANOW,DIE,DA,DIC,RMAO,RMEC,RMIR,DFN,RMSCON"
^XMB(3.9,130,2,289,0)="""RTN"",""RMPRPCEA"",25,0)"
^XMB(3.9,130,2,290,0)=" N RMMST,RMHNC,RMCBV,RMPRTPCE"
^XMB(3.9,130,2,291,0)="""RTN"",""RMPRPCEA"",26,0)"
^XMB(3.9,130,2,292,0)=" ; PATCH 78, RMS - 10/1/2003, Billing aware related variables"
^XMB(3.9,130,2,293,0)="""RTN"",""RMPRPCEA"",27,0)"
^XMB(3.9,130,2,294,0)=" N RMBASCON,RMBAAO,RMBAIR,RMBAEC,RMBAMST,RMBAHNC,RMBACBV,RMBAICD9,RMLOOP"
^XMB(3.9,130,2,295,0)="""RTN"",""RMPRPCEA"",28,0)"
^XMB(3.9,130,2,296,0)=" N RMPROV,RMCPDT,DXERR,SICD"
^XMB(3.9,130,2,297,0)="""RTN"",""RMPRPCEA"",29,0)"
^XMB(3.9,130,2,298,0)=" ;"
^XMB(3.9,130,2,299,0)="""RTN"",""RMPRPCEA"",30,0)"
^XMB(3.9,130,2,300,0)=" S RMERR=1"
^XMB(3.9,130,2,301,0)="""RTN"",""RMPRPCEA"",31,0)"
^XMB(3.9,130,2,302,0)=" S RMSRC=""PROSTHETICS DATA"""
^XMB(3.9,130,2,303,0)="""RTN"",""RMPRPCEA"",32,0)"
^XMB(3.9,130,2,304,0)=" S RMPKG=$O(^DIC(9.4,""B"",""PROSTHETICS"",0))"
^XMB(3.9,130,2,305,0)="""RTN"",""RMPRPCEA"",33,0)"
^XMB(3.9,130,2,306,0)=" I '$G(RMPKG) S RMERR=-2 G SENDPCEX"
^XMB(3.9,130,2,307,0)="""RTN"",""RMPRPCEA"",34,0)"
^XMB(3.9,130,2,308,0)=" S RMSTA=$P(^RMPR(660,RMIE60,0),U,10)"
^XMB(3.9,130,2,309,0)="""RTN"",""RMPRPCEA"",35,0)"
^XMB(3.9,130,2,310,0)=" S (RMLOC,RERRMSG,RERRMSG2)="""""
^XMB(3.9,130,2,311,0)="""RTN"",""RMPRPCEA"",36,0)"
^XMB(3.9,130,2,312,0)=" F I=0:0 S I=$O(^RMPR(669.9,""C"",RMSTA,I)) Q:I'>0  D"
^XMB(3.9,130,2,313,0)="""RTN"",""RMPRPCEA"",37,0)"
^XMB(3.9,130,2,314,0)=" .I ($D(^RMPR(669.9,I,0))),($D(^RMPR(669.9,I,""PCE""))) S RMLOC=$P(^RMPR(669.9,I,""PCE""),U,3)"
^XMB(3.9,130,2,315,0)="""RTN"",""RMPRPCEA"",38,0)"
^XMB(3.9,130,2,316,0)=" ;exit if Hospital Location (clinic) not defined."
^XMB(3.9,130,2,317,0)="""RTN"",""RMPRPCEA"",39,0)"
^XMB(3.9,130,2,318,0)=" I '$G(RMLOC) D  G SENDPCEX"
^XMB(3.9,130,2,319,0)="""RTN"",""RMPRPCEA"",40,0)"
^XMB(3.9,130,2,320,0)=" .S RMERR=-2"
^XMB(3.9,130,2,321,0)="""RTN"",""RMPRPCEA"",41,0)"
^XMB(3.9,130,2,322,0)=" .;RMPR*3*82 04/23/2004 KAM Added next 8 lines"
^XMB(3.9,130,2,323,0)="""RTN"",""RMPRPCEA"",42,0)"
^XMB(3.9,130,2,324,0)=" .N SPACES,VNAME,ENDAT"
^XMB(3.9,130,2,325,0)="""RTN"",""RMPRPCEA"",43,0)"
^XMB(3.9,130,2,326,0)=" .S VNAME=$$GET1^DIQ(2,$P(^RMPR(660,RMIE60,0),U,2),.01)"
^XMB(3.9,130,2,327,0)="""RTN"",""RMPRPCEA"",44,0)"
^XMB(3.9,130,2,328,0)=" .S ENDAT=$$GET1^DIQ(660,RMIE60,.01),SPACES="""""
^XMB(3.9,130,2,329,0)="""RTN"",""RMPRPCEA"",45,0)"
^XMB(3.9,130,2,330,0)=" .I $G(ENDAT)="""" S ENDAT="" No Entry Data Found"""
^XMB(3.9,130,2,331,0)="""RTN"",""RMPRPCEA"",46,0)"
^XMB(3.9,130,2,332,0)=" .F I=1:1:42-($L(VNAME)+$L(ENDAT)) S SPACES=$G(SPACES)_"" """
^XMB(3.9,130,2,333,0)="""RTN"",""RMPRPCEA"",47,0)"
^XMB(3.9,130,2,334,0)=" .S RERRMSG=""              *** NAME = ""_VNAME_""   ENTRY DATE = ""_ENDAT_SPACES"
^XMB(3.9,130,2,335,0)="""RTN"",""RMPRPCEA"",48,0)"
^XMB(3.9,130,2,336,0)=" .S RERRMSG=RERRMSG_""              *** Clinic is not defined....Please ask your ADPAC to enter a prosthetics      *** clinic in the Prosthetics Site Parameters file for station # = ""_$G(RMSTA)"
^XMB(3.9,130,2,337,0)="""RTN"",""RMPRPCEA"",49,0)"
^XMB(3.9,130,2,338,0)=" .S RERRMSG2=""         *** Using option 'Enter/Edit Station Site Parameters'"""
^XMB(3.9,130,2,339,0)="""RTN"",""RMPRPCEA"",50,0)"
^XMB(3.9,130,2,340,0)=" .W !,""*** Clinic is not defined....."""
^XMB(3.9,130,2,341,0)="""RTN"",""RMPRPCEA"",51,0)"
^XMB(3.9,130,2,342,0)=" .W !,""*** Please ask your ADPAC to enter a prosthetics clinic in the"""
^XMB(3.9,130,2,343,0)="""RTN"",""RMPRPCEA"",52,0)"
^XMB(3.9,130,2,344,0)=" .W !,""*** Prosthetics Site Parameters file for station # = "",RMSTA"
^XMB(3.9,130,2,345,0)="""RTN"",""RMPRPCEA"",53,0)"
^XMB(3.9,130,2,346,0)=" .W !,""*** Using option 'Enter/Edit Station Site Parameters'"""
^XMB(3.9,130,2,347,0)="""RTN"",""RMPRPCEA"",54,0)"
^XMB(3.9,130,2,348,0)=" S RMSENT=0,RMLOCK=0"
^XMB(3.9,130,2,349,0)="""RTN"",""RMPRPCEA"",55,0)"
^XMB(3.9,130,2,350,0)=" ; initialize temp file."
^XMB(3.9,130,2,351,0)="""RTN"",""RMPRPCEA"",56,0)"
^XMB(3.9,130,2,352,0)=" K ^TMP(""RMPRPCE1"",$J)"
^XMB(3.9,130,2,353,0)="""RTN"",""RMPRPCEA"",57,0)"
^XMB(3.9,130,2,354,0)=" ;"
^XMB(3.9,130,2,355,0)="""RTN"",""RMPRPCEA"",58,0)"
^XMB(3.9,130,2,356,0)=" ; get the visit data (#660) and place in temp file."
^XMB(3.9,130,2,357,0)="""RTN"",""RMPRPCEA"",59,0)"
^XMB(3.9,130,2,358,0)=" D GETDATA G:$G(DXERR) SENDPCEX   ;quit if inactive diagnosis RMPR*120"
^XMB(3.9,130,2,359,0)="""RTN"",""RMPRPCEA"",60,0)"
^XMB(3.9,130,2,360,0)=" ;don't create a PCE encounter if Date of Death is before the transaction"
^XMB(3.9,130,2,361,0)="""RTN"",""RMPRPCEA"",61,0)"
^XMB(3.9,130,2,362,0)=" I $D(VADM(6)),$P(VADM(6),U,1),$P(VADM(6),U,1)<(RMDATE) G SENDPCEX"
^XMB(3.9,130,2,363,0)="""RTN"",""RMPRPCEA"",62,0)"
^XMB(3.9,130,2,364,0)=" ;"
^XMB(3.9,130,2,365,0)="""RTN"",""RMPRPCEA"",63,0)"
^XMB(3.9,130,2,366,0)=" ; build the temp file for sending to PCE"
^XMB(3.9,130,2,367,0)="""RTN"",""RMPRPCEA"",64,0)"
^XMB(3.9,130,2,368,0)=" D BUILD"
^XMB(3.9,130,2,369,0)="""RTN"",""RMPRPCEA"",65,0)"
^XMB(3.9,130,2,370,0)=" ;"
^XMB(3.9,130,2,371,0)="""RTN"",""RMPRPCEA"",66,0)"
^XMB(3.9,130,2,372,0)=" ; now send"
^XMB(3.9,130,2,373,0)="""RTN"",""RMPRPCEA"",67,0)"
^XMB(3.9,130,2,374,0)=" D SENDIT"
^XMB(3.9,130,2,375,0)="""RTN"",""RMPRPCEA"",68,0)"
^XMB(3.9,130,2,376,0)=" ;"
^XMB(3.9,130,2,377,0)="""RTN"",""RMPRPCEA"",69,0)"
^XMB(3.9,130,2,378,0)="SENDPCEX ; exit point"
^XMB(3.9,130,2,379,0)="""RTN"",""RMPRPCEA"",70,0)"
^XMB(3.9,130,2,380,0)=" ;"
^XMB(3.9,130,2,381,0)="""RTN"",""RMPRPCEA"",71,0)"
^XMB(3.9,130,2,382,0)=" ; clear the temp file"
^XMB(3.9,130,2,383,0)="""RTN"",""RMPRPCEA"",72,0)"
^XMB(3.9,130,2,384,0)=" K ^TMP(""RMPRPCE1"",$J)"
^XMB(3.9,130,2,385,0)="""RTN"",""RMPRPCEA"",73,0)"
^XMB(3.9,130,2,386,0)=" ;"
^XMB(3.9,130,2,387,0)="""RTN"",""RMPRPCEA"",74,0)"
^XMB(3.9,130,2,388,0)=" ; return"
^XMB(3.9,130,2,389,0)="""RTN"",""RMPRPCEA"",75,0)"
^XMB(3.9,130,2,390,0)=" Q RMERR"
^XMB(3.9,130,2,391,0)="""RTN"",""RMPRPCEA"",76,0)"
^XMB(3.9,130,2,392,0)=" ;"
^XMB(3.9,130,2,393,0)="""RTN"",""RMPRPCEA"",77,0)"
^XMB(3.9,130,2,394,0)="GETDATA ; get the visit data and place in temp file"
^XMB(3.9,130,2,395,0)="""RTN"",""RMPRPCEA"",78,0)"
^XMB(3.9,130,2,396,0)=" K RMDA,RMDA2"
^XMB(3.9,130,2,397,0)="""RTN"",""RMPRPCEA"",79,0)"
^XMB(3.9,130,2,398,0)=" S RMDA=$NA(^TMP(""RMPRPCE1"",$J,""RM""))"
^XMB(3.9,130,2,399,0)="""RTN"",""RMPRPCEA"",80,0)"
^XMB(3.9,130,2,400,0)=" D GETS^DIQ(660,RMIE60_"","",""*"",""I"",RMDA,"""")"
^XMB(3.9,130,2,401,0)="""RTN"",""RMPRPCEA"",81,0)"
^XMB(3.9,130,2,402,0)=" S RMDA2=$NA(^TMP(""RMPRPCE1"",$J,""RM"",660,RMIE60_"",""))"
^XMB(3.9,130,2,403,0)="""RTN"",""RMPRPCEA"",82,0)"
^XMB(3.9,130,2,404,0)=" D NOW^%DTC"
^XMB(3.9,130,2,405,0)="""RTN"",""RMPRPCEA"",83,0)"
^XMB(3.9,130,2,406,0)=" S RMDANOW=%"
^XMB(3.9,130,2,407,0)="""RTN"",""RMPRPCEA"",84,0)"
^XMB(3.9,130,2,408,0)=" S RMDATE=@RMDA2@(.01,""I""),RMDATE=RMDATE_"".""_$P(%,""."",2)"
^XMB(3.9,130,2,409,0)="""RTN"",""RMPRPCEA"",85,0)"
^XMB(3.9,130,2,410,0)=" S (DFN,RMPAT)=@RMDA2@(.02,""I"")"
^XMB(3.9,130,2,411,0)="""RTN"",""RMPRPCEA"",86,0)"
^XMB(3.9,130,2,412,0)=" S RMHLOC=RMLOC"
^XMB(3.9,130,2,413,0)="""RTN"",""RMPRPCEA"",87,0)"
^XMB(3.9,130,2,414,0)=" S RMINST=@RMDA2@(8.11,""I"")"
^XMB(3.9,130,2,415,0)="""RTN"",""RMPRPCEA"",88,0)"
^XMB(3.9,130,2,416,0)=" S RMPCAT=@RMDA2@(62,""I"")"
^XMB(3.9,130,2,417,0)="""RTN"",""RMPRPCEA"",89,0)"
^XMB(3.9,130,2,418,0)=" S RMSCON=0"
^XMB(3.9,130,2,419,0)="""RTN"",""RMPRPCEA"",90,0)"
^XMB(3.9,130,2,420,0)=" I (RMPCAT=1)!(RMPCAT=2) S RMSCON=1"
^XMB(3.9,130,2,421,0)="""RTN"",""RMPRPCEA"",91,0)"
^XMB(3.9,130,2,422,0)=" ;=============================="
^XMB(3.9,130,2,423,0)="""RTN"",""RMPRPCEA"",92,0)"
^XMB(3.9,130,2,424,0)=" S RMSCAT=""A"""
^XMB(3.9,130,2,425,0)="""RTN"",""RMPRPCEA"",93,0)"
^XMB(3.9,130,2,426,0)=" S RMETYP=""P"""
^XMB(3.9,130,2,427,0)="""RTN"",""RMPRPCEA"",94,0)"
^XMB(3.9,130,2,428,0)=" S RMUSER=@RMDA2@(27,""I"")"
^XMB(3.9,130,2,429,0)="""RTN"",""RMPRPCEA"",95,0)"
^XMB(3.9,130,2,430,0)=" S RMDIAG=@RMDA2@(8.8,""I"")"
^XMB(3.9,130,2,431,0)="""RTN"",""RMPRPCEA"",96,0)"
^XMB(3.9,130,2,432,0)=" S RMPROC=@RMDA2@(4.1,""I"")"
^XMB(3.9,130,2,433,0)="""RTN"",""RMPRPCEA"",97,0)"
^XMB(3.9,130,2,434,0)=" S RMPROV=@RMDA2@(8.6,""I"")"
^XMB(3.9,130,2,435,0)="""RTN"",""RMPRPCEA"",98,0)"
^XMB(3.9,130,2,436,0)=" S RMCPDT=@RMDA2@(8.4,""I"")"
^XMB(3.9,130,2,437,0)="""RTN"",""RMPRPCEA"",99,0)"
^XMB(3.9,130,2,438,0)=" S RMQTY=@RMDA2@(5,""I"")"
^XMB(3.9,130,2,439,0)="""RTN"",""RMPRPCEA"",100,0)"
^XMB(3.9,130,2,440,0)=" S RMCDAT=@RMDA2@(10,""I"")"
^XMB(3.9,130,2,441,0)="""RTN"",""RMPRPCEA"",101,0)"
^XMB(3.9,130,2,442,0)=" S (RMPCE,RMIEPCE)=@RMDA2@(8.12,""I"")"
^XMB(3.9,130,2,443,0)="""RTN"",""RMPRPCEA"",102,0)"
^XMB(3.9,130,2,444,0)=" ; PATCH 78, RMS - 10/1/2003, billing aware related variables"
^XMB(3.9,130,2,445,0)="""RTN"",""RMPRPCEA"",103,0)"
^XMB(3.9,130,2,446,0)=" K RMBAICD9,RMBAAO,RMBASCON,RMBAAIR,RMBAEC,RMBAMST,RMBAHNC,RMBACBV"
^XMB(3.9,130,2,447,0)="""RTN"",""RMPRPCEA"",104,0)"
^XMB(3.9,130,2,448,0)=" I '$D(^RMPR(660,RMIE60,""BA1"")) G GTDT  ; no BA data, skip retrieval"
^XMB(3.9,130,2,449,0)="""RTN"",""RMPRPCEA"",105,0)"
^XMB(3.9,130,2,450,0)=" F RMLOOP=30:1:33 D"
^XMB(3.9,130,2,451,0)="""RTN"",""RMPRPCEA"",106,0)"
^XMB(3.9,130,2,452,0)=" . N RMBAREC S RMBAREC=RMLOOP-29"
^XMB(3.9,130,2,453,0)="""RTN"",""RMPRPCEA"",107,0)"
^XMB(3.9,130,2,454,0)=" . S RMBAICD9(RMBAREC)=@RMDA2@(RMLOOP,""I""),SICD=RMBAICD9(RMBAREC) I SICD'="""" S:$P($G(^ICD9(SICD,0)),U,9) DXERR=1"
^XMB(3.9,130,2,455,0)="""RTN"",""RMPRPCEA"",108,0)"
^XMB(3.9,130,2,456,0)=" . S RMBAAO(RMBAREC)=@RMDA2@((RMLOOP+.1),""I"")"
^XMB(3.9,130,2,457,0)="""RTN"",""RMPRPCEA"",109,0)"
^XMB(3.9,130,2,458,0)=" . S RMBAIR(RMBAREC)=@RMDA2@((RMLOOP+.2),""I"")"
^XMB(3.9,130,2,459,0)="""RTN"",""RMPRPCEA"",110,0)"
^XMB(3.9,130,2,460,0)=" . S RMBASCON(RMBAREC)=@RMDA2@((RMLOOP+.3),""I"")"
^XMB(3.9,130,2,461,0)="""RTN"",""RMPRPCEA"",111,0)"
^XMB(3.9,130,2,462,0)=" . S RMBAEC(RMBAREC)=@RMDA2@((RMLOOP+.4),""I"")"
^XMB(3.9,130,2,463,0)="""RTN"",""RMPRPCEA"",112,0)"
^XMB(3.9,130,2,464,0)=" . S RMBAMST(RMBAREC)=@RMDA2@((RMLOOP+.5),""I"")"
^XMB(3.9,130,2,465,0)="""RTN"",""RMPRPCEA"",113,0)"
^XMB(3.9,130,2,466,0)=" . S RMBAHNC(RMBAREC)=@RMDA2@((RMLOOP+.6),""I"")"
^XMB(3.9,130,2,467,0)="""RTN"",""RMPRPCEA"",114,0)"
^XMB(3.9,130,2,468,0)=" . S RMBACBV(RMBAREC)=@RMDA2@((RMLOOP+.7),""I"")"
^XMB(3.9,130,2,469,0)="""RTN"",""RMPRPCEA"",115,0)"
^XMB(3.9,130,2,470,0)=" ; Retrieve order number"
^XMB(3.9,130,2,471,0)="""RTN"",""RMPRPCEA"",116,0)"
^XMB(3.9,130,2,472,0)="GTDT S RMPTR123=@RMDA2@(8.9,""I"")"
^XMB(3.9,130,2,473,0)="""RTN"",""RMPRPCEA"",117,0)"
^XMB(3.9,130,2,474,0)=" S RMODENT=$$GET1^DIQ(123,RMPTR123_"","",.03)"
^XMB(3.9,130,2,475,0)="""RTN"",""RMPRPCEA"",118,0)"
^XMB(3.9,130,2,476,0)=" ;get Date of Death."
^XMB(3.9,130,2,477,0)="""RTN"",""RMPRPCEA"",119,0)"
^XMB(3.9,130,2,478,0)=" D DEM^VADPT"
^XMB(3.9,130,2,479,0)="""RTN"",""RMPRPCEA"",120,0)"
^XMB(3.9,130,2,480,0)=" ;get Agent Orange and Radiation."
^XMB(3.9,130,2,481,0)="""RTN"",""RMPRPCEA"",121,0)"
^XMB(3.9,130,2,482,0)=" D SVC^VADPT S RMAO=VASV(2),RMIR=VASV(3)"
^XMB(3.9,130,2,483,0)="""RTN"",""RMPRPCEA"",122,0)"
^XMB(3.9,130,2,484,0)=" ;get environmental contaminants."
^XMB(3.9,130,2,485,0)="""RTN"",""RMPRPCEA"",123,0)"
^XMB(3.9,130,2,486,0)=" S RMEC=$$GET1^DIQ(2,DFN,.322013,""I"") I RMEC=""Y"" S RMEC=1"
^XMB(3.9,130,2,487,0)="""RTN"",""RMPRPCEA"",124,0)"
^XMB(3.9,130,2,488,0)=" S:RMEC'=1 RMEC=0"
^XMB(3.9,130,2,489,0)="""RTN"",""RMPRPCEA"",125,0)"
^XMB(3.9,130,2,490,0)=" ;"
^XMB(3.9,130,2,491,0)="""RTN"",""RMPRPCEA"",126,0)"
^XMB(3.9,130,2,492,0)=" S RMMST="""",RMCBV="""",RMHNC="""""
^XMB(3.9,130,2,493,0)="""RTN"",""RMPRPCEA"",127,0)"
^XMB(3.9,130,2,494,0)=" Q"
^XMB(3.9,130,2,495,0)="""RTN"",""RMPRPCEA"",128,0)"
^XMB(3.9,130,2,496,0)=" ;"
^XMB(3.9,130,2,497,0)="""RTN"",""RMPRPCEA"",129,0)"
^XMB(3.9,130,2,498,0)="BUILD ; now build array for passing data to PCE"
^XMB(3.9,130,2,499,0)="""RTN"",""RMPRPCEA"",130,0)"
^XMB(3.9,130,2,500,0)=" K ^TMP(""RMPRPCE1"",$J,""PXAPI""),RMAPI"
^XMB(3.9,130,2,501,0)="""RTN"",""RMPRPCEA"",131,0)"
^XMB(3.9,130,2,502,0)=" S RMAPI=$NA(^TMP(""RMPRPCE1"",$J,""PXAPI""))"
^XMB(3.9,130,2,503,0)="""RTN"",""RMPRPCEA"",132,0)"
^XMB(3.9,130,2,504,0)=" ; ---------encounter date/time----------------"
^XMB(3.9,130,2,505,0)="""RTN"",""RMPRPCEA"",133,0)"
^XMB(3.9,130,2,506,0)=" S @RMAPI@(""ENCOUNTER"",1,""ENC D/T"")=RMDATE"
^XMB(3.9,130,2,507,0)="""RTN"",""RMPRPCEA"",134,0)"
^XMB(3.9,130,2,508,0)=" ; --------------patient-----------------------"
^XMB(3.9,130,2,509,0)="""RTN"",""RMPRPCEA"",135,0)"
^XMB(3.9,130,2,510,0)=" S @RMAPI@(""ENCOUNTER"",1,""PATIENT"")=RMPAT"
^XMB(3.9,130,2,511,0)="""RTN"",""RMPRPCEA"",136,0)"
^XMB(3.9,130,2,512,0)=" ; ---------------clinic-----------------------"
^XMB(3.9,130,2,513,0)="""RTN"",""RMPRPCEA"",137,0)"
^XMB(3.9,130,2,514,0)=" S @RMAPI@(""ENCOUNTER"",1,""HOS LOC"")=RMHLOC"
^XMB(3.9,130,2,515,0)="""RTN"",""RMPRPCEA"",138,0)"
^XMB(3.9,130,2,516,0)=" ; -------------checkout date/time-------------"
^XMB(3.9,130,2,517,0)="""RTN"",""RMPRPCEA"",139,0)"
^XMB(3.9,130,2,518,0)=" S @RMAPI@(""ENCOUNTER"",1,""CHECKOUT D/T"")=RMDATE"
^XMB(3.9,130,2,519,0)="""RTN"",""RMPRPCEA"",140,0)"
^XMB(3.9,130,2,520,0)=" ; ------------agent orange--------------------"
^XMB(3.9,130,2,521,0)="""RTN"",""RMPRPCEA"",141,0)"
^XMB(3.9,130,2,522,0)=" S @RMAPI@(""ENCOUNTER"",1,""AO"")=RMAO"
^XMB(3.9,130,2,523,0)="""RTN"",""RMPRPCEA"",142,0)"
^XMB(3.9,130,2,524,0)=" ;--------------ionizing radiation-------------"
^XMB(3.9,130,2,525,0)="""RTN"",""RMPRPCEA"",143,0)"
^XMB(3.9,130,2,526,0)=" S @RMAPI@(""ENCOUNTER"",1,""IR"")=RMIR"
^XMB(3.9,130,2,527,0)="""RTN"",""RMPRPCEA"",144,0)"
^XMB(3.9,130,2,528,0)=" ;-----------environmental contaminants--------"
^XMB(3.9,130,2,529,0)="""RTN"",""RMPRPCEA"",145,0)"
^XMB(3.9,130,2,530,0)=" S @RMAPI@(""ENCOUNTER"",1,""EC"")=RMEC"
^XMB(3.9,130,2,531,0)="""RTN"",""RMPRPCEA"",146,0)"
^XMB(3.9,130,2,532,0)=" ; --------------service connected--------------"
^XMB(3.9,130,2,533,0)="""RTN"",""RMPRPCEA"",147,0)"
^XMB(3.9,130,2,534,0)=" S @RMAPI@(""ENCOUNTER"",1,""SC"")=RMSCON"
^XMB(3.9,130,2,535,0)="""RTN"",""RMPRPCEA"",148,0)"
^XMB(3.9,130,2,536,0)=" ; ------------Military Sexual Trauma----------"
^XMB(3.9,130,2,537,0)="""RTN"",""RMPRPCEA"",149,0)"
^XMB(3.9,130,2,538,0)=" S @RMAPI@(""ENCOUNTER"",1,""MST"")=RMMST"
^XMB(3.9,130,2,539,0)="""RTN"",""RMPRPCEA"",150,0)"
^XMB(3.9,130,2,540,0)=" ; -------------Head/Neck Cancer---------------"
^XMB(3.9,130,2,541,0)="""RTN"",""RMPRPCEA"",151,0)"
^XMB(3.9,130,2,542,0)=" S @RMAPI@(""ENCOUNTER"",1,""HNC"")=RMHNC"
^XMB(3.9,130,2,543,0)="""RTN"",""RMPRPCEA"",152,0)"
^XMB(3.9,130,2,544,0)=" ; --------------Combat Veteran---------"
^XMB(3.9,130,2,545,0)="""RTN"",""RMPRPCEA"",153,0)"
^XMB(3.9,130,2,546,0)=" S @RMAPI@(""ENCOUNTER"",1,""CV"")=RMCBV"
^XMB(3.9,130,2,547,0)="""RTN"",""RMPRPCEA"",154,0)"
^XMB(3.9,130,2,548,0)=" ; --------------service category--------------"
^XMB(3.9,130,2,549,0)="""RTN"",""RMPRPCEA"",155,0)"
^XMB(3.9,130,2,550,0)=" S @RMAPI@(""ENCOUNTER"",1,""SERVICE CATEGORY"")=RMSCAT"
^XMB(3.9,130,2,551,0)="""RTN"",""RMPRPCEA"",156,0)"
^XMB(3.9,130,2,552,0)=" ; ---------------encounter type---------------"
^XMB(3.9,130,2,553,0)="""RTN"",""RMPRPCEA"",157,0)"
^XMB(3.9,130,2,554,0)=" S @RMAPI@(""ENCOUNTER"",1,""ENCOUNTER TYPE"")=RMETYP"
^XMB(3.9,130,2,555,0)="""RTN"",""RMPRPCEA"",158,0)"
^XMB(3.9,130,2,556,0)=" ; ------------primary provider----------------"
^XMB(3.9,130,2,557,0)="""RTN"",""RMPRPCEA"",159,0)"
^XMB(3.9,130,2,558,0)=" S @RMAPI@(""PROVIDER"",1,""NAME"")=RMUSER"
^XMB(3.9,130,2,559,0)="""RTN"",""RMPRPCEA"",160,0)"
^XMB(3.9,130,2,560,0)=" ; ----------------diagnosis------------------"
^XMB(3.9,130,2,561,0)="""RTN"",""RMPRPCEA"",161,0)"
^XMB(3.9,130,2,562,0)=" S @RMAPI@(""DX/PL"",1,""DIAGNOSIS"")=RMDIAG"
^XMB(3.9,130,2,563,0)="""RTN"",""RMPRPCEA"",162,0)"
^XMB(3.9,130,2,564,0)=" S @RMAPI@(""DX/PL"",1,""PRIMARY"")=1"
^XMB(3.9,130,2,565,0)="""RTN"",""RMPRPCEA"",163,0)"
^XMB(3.9,130,2,566,0)=" ; -------------- procedures -----------------"
^XMB(3.9,130,2,567,0)="""RTN"",""RMPRPCEA"",164,0)"
^XMB(3.9,130,2,568,0)=" S @RMAPI@(""PROCEDURE"",1,""PROCEDURE"")=RMPROC"
^XMB(3.9,130,2,569,0)="""RTN"",""RMPRPCEA"",165,0)"
^XMB(3.9,130,2,570,0)=" ; ---------------- Quantity -----------------"
^XMB(3.9,130,2,571,0)="""RTN"",""RMPRPCEA"",166,0)"
^XMB(3.9,130,2,572,0)=" S @RMAPI@(""PROCEDURE"",1,""QTY"")=RMQTY"
^XMB(3.9,130,2,573,0)="""RTN"",""RMPRPCEA"",167,0)"
^XMB(3.9,130,2,574,0)=" ; -------------- Procedures -----------------"
^XMB(3.9,130,2,575,0)="""RTN"",""RMPRPCEA"",168,0)"
^XMB(3.9,130,2,576,0)=" I '$D(RMBAICD9(1)) D  G BLD1"
^XMB(3.9,130,2,577,0)="""RTN"",""RMPRPCEA"",169,0)"
^XMB(3.9,130,2,578,0)=" . S @RMAPI@(""PROCEDURE"",1,""DIAGNOSIS"")=RMDIAG"
^XMB(3.9,130,2,579,0)="""RTN"",""RMPRPCEA"",170,0)"
^XMB(3.9,130,2,580,0)=" ;"
^XMB(3.9,130,2,581,0)="""RTN"",""RMPRPCEA"",171,0)"
^XMB(3.9,130,2,582,0)=" F RMLOOP=1:1:99 Q:$G(RMBAICD9(RMLOOP))=""""  D"
^XMB(3.9,130,2,583,0)="""RTN"",""RMPRPCEA"",172,0)"
^XMB(3.9,130,2,584,0)=" . S @RMAPI@(""DX/PL"",RMLOOP,""DIAGNOSIS"")=$G(RMBAICD9(RMLOOP))"
^XMB(3.9,130,2,585,0)="""RTN"",""RMPRPCEA"",173,0)"
^XMB(3.9,130,2,586,0)=" . S @RMAPI@(""DX/PL"",RMLOOP,""PL AO"")=$G(RMBAAO(RMLOOP))"
^XMB(3.9,130,2,587,0)="""RTN"",""RMPRPCEA"",174,0)"
^XMB(3.9,130,2,588,0)=" . S @RMAPI@(""DX/PL"",RMLOOP,""PL IR"")=$G(RMBAIR(RMLOOP))"
^XMB(3.9,130,2,589,0)="""RTN"",""RMPRPCEA"",175,0)"
^XMB(3.9,130,2,590,0)=" . S @RMAPI@(""DX/PL"",RMLOOP,""PL SC"")=$G(RMBASCON(RMLOOP))"
^XMB(3.9,130,2,591,0)="""RTN"",""RMPRPCEA"",176,0)"
^XMB(3.9,130,2,592,0)=" . S @RMAPI@(""DX/PL"",RMLOOP,""PL EC"")=$G(RMBAEC(RMLOOP))"
^XMB(3.9,130,2,593,0)="""RTN"",""RMPRPCEA"",177,0)"
^XMB(3.9,130,2,594,0)=" . S @RMAPI@(""DX/PL"",RMLOOP,""PL MST"")=$G(RMBAMST(RMLOOP))"
^XMB(3.9,130,2,595,0)="""RTN"",""RMPRPCEA"",178,0)"
^XMB(3.9,130,2,596,0)=" . S @RMAPI@(""DX/PL"",RMLOOP,""PL HNC"")=$G(RMBAHNC(RMLOOP))"
^XMB(3.9,130,2,597,0)="""RTN"",""RMPRPCEA"",179,0)"
^XMB(3.9,130,2,598,0)=" . S @RMAPI@(""DX/PL"",RMLOOP,""PL CV"")=$G(RMBACBV(RMLOOP))"
^XMB(3.9,130,2,599,0)="""RTN"",""RMPRPCEA"",180,0)"
^XMB(3.9,130,2,600,0)=" . I RMLOOP=1 D  Q"
^XMB(3.9,130,2,601,0)="""RTN"",""RMPRPCEA"",181,0)"
^XMB(3.9,130,2,602,0)=" . . S @RMAPI@(""DX/PL"",RMLOOP,""PRIMARY"")=RMLOOP"
^XMB(3.9,130,2,603,0)="""RTN"",""RMPRPCEA"",182,0)"
^XMB(3.9,130,2,604,0)=" . . S RMDIAG=$G(RMBAICD9(RMLOOP))"
^XMB(3.9,130,2,605,0)="""RTN"",""RMPRPCEA"",183,0)"
^XMB(3.9,130,2,606,0)=" . . S @RMAPI@(""PROCEDURE"",1,""DIAGNOSIS"")=$G(RMBAICD9(RMLOOP))"
^XMB(3.9,130,2,607,0)="""RTN"",""RMPRPCEA"",184,0)"
^XMB(3.9,130,2,608,0)=" . S @RMAPI@(""PROCEDURE"",1,""DIAGNOSIS ""_RMLOOP)=$G(RMBAICD9(RMLOOP))  ; only one procedure per send"
^XMB(3.9,130,2,609,0)="""RTN"",""RMPRPCEA"",185,0)"
^XMB(3.9,130,2,610,0)=" ;"
^XMB(3.9,130,2,611,0)="""RTN"",""RMPRPCEA"",186,0)"
^XMB(3.9,130,2,612,0)=" ; -----------------procedures----------------"
^XMB(3.9,130,2,613,0)="""RTN"",""RMPRPCEA"",187,0)"
^XMB(3.9,130,2,614,0)="BLD1 S @RMAPI@(""PROCEDURE"",1,""PROCEDURE"")=RMPROC"
^XMB(3.9,130,2,615,0)="""RTN"",""RMPRPCEA"",188,0)"
^XMB(3.9,130,2,616,0)=" S @RMAPI@(""PROCEDURE"",1,""ORD PROVIDER"")=RMPROV"
^XMB(3.9,130,2,617,0)="""RTN"",""RMPRPCEA"",189,0)"
^XMB(3.9,130,2,618,0)=" S @RMAPI@(""PROCEDURE"",1,""EVENT D/T"")=RMCPDT"
^XMB(3.9,130,2,619,0)="""RTN"",""RMPRPCEA"",190,0)"
^XMB(3.9,130,2,620,0)=" ; ------------- Order Reference -------------"
^XMB(3.9,130,2,621,0)="""RTN"",""RMPRPCEA"",191,0)"
^XMB(3.9,130,2,622,0)=" S @RMAPI@(""PROCEDURE"",1,""ORD REFERENCE"")=RMODENT"
^XMB(3.9,130,2,623,0)="""RTN"",""RMPRPCEA"",192,0)"
^XMB(3.9,130,2,624,0)=" ; -----------------Quantity------------------"
^XMB(3.9,130,2,625,0)="""RTN"",""RMPRPCEA"",193,0)"
^XMB(3.9,130,2,626,0)=" S @RMAPI@(""PROCEDURE"",1,""QTY"")=RMQTY"
^XMB(3.9,130,2,627,0)="""RTN"",""RMPRPCEA"",194,0)"
^XMB(3.9,130,2,628,0)=" ; -----------------diagnosis-----------------"
^XMB(3.9,130,2,629,0)="""RTN"",""RMPRPCEA"",195,0)"
^XMB(3.9,130,2,630,0)=" S @RMAPI@(""PROCEDURE"",1,""DIAGNOSIS"")=RMDIAG"
^XMB(3.9,130,2,631,0)="""RTN"",""RMPRPCEA"",196,0)"
^XMB(3.9,130,2,632,0)=" Q"
^XMB(3.9,130,2,633,0)="""RTN"",""RMPRPCEA"",197,0)"
^XMB(3.9,130,2,634,0)=" ;"
^XMB(3.9,130,2,635,0)="""RTN"",""RMPRPCEA"",198,0)"
^XMB(3.9,130,2,636,0)="SENDIT ; send the data to PCE. API (1891)"
^XMB(3.9,130,2,637,0)="""RTN"",""RMPRPCEA"",199,0)"
^XMB(3.9,130,2,638,0)=" K RMPROB,RMPRTPCE"
^XMB(3.9,130,2,639,0)="""RTN"",""RMPRPCEA"",200,0)"
^XMB(3.9,130,2,640,0)=" S (RMPRCPER,RMPROB)=0"
^XMB(3.9,130,2,641,0)="""RTN"",""RMPRPCEA"",201,0)"
^XMB(3.9,130,2,642,0)=" ; call the PCE package API."
^XMB(3.9,130,2,643,0)="""RTN"",""RMPRPCEA"",202,0)"
^XMB(3.9,130,2,644,0)=" S RMERR=$$DATA2PCE^PXAPI($NA(^TMP(""RMPRPCE1"",$J,""PXAPI"")),RMPKG,RMSRC,.RMPCE,RMUSER,0,,"""",.RMPROB)"
^XMB(3.9,130,2,645,0)="""RTN"",""RMPRPCEA"",203,0)"
^XMB(3.9,130,2,646,0)=" ;To check for returned error messages, list the RMPROB array."
^XMB(3.9,130,2,647,0)="""RTN"",""RMPRPCEA"",204,0)"
^XMB(3.9,130,2,648,0)=" I RMERR<1 W !,""File #660 IEN=""_RMIE60_"" - Error in PCE interface !!!"""
^XMB(3.9,130,2,649,0)="""RTN"",""RMPRPCEA"",205,0)"
^XMB(3.9,130,2,650,0)=" ;delete PCE entry if Provider and CPT CODE error, but send an error"
^XMB(3.9,130,2,651,0)="""RTN"",""RMPRPCEA"",206,0)"
^XMB(3.9,130,2,652,0)=" ;message to RMPR PCE mailgroup."
^XMB(3.9,130,2,653,0)="""RTN"",""RMPRPCEA"",207,0)"
^XMB(3.9,130,2,654,0)=" I $D(RMPROB($J)) D CHECK^RMPRPCED"
^XMB(3.9,130,2,655,0)="""RTN"",""RMPRPCEA"",208,0)"
^XMB(3.9,130,2,656,0)=" I $G(RMPCE),$G(RMPRCPER) S RMPRTPCE=RJ_""^""_RMHLOC,RMCHK=$$DELVFILE^PXAPI(""ALL"",.RMPCE,RMPKG,RMSRC,0,0,"""") Q"
^XMB(3.9,130,2,657,0)="""RTN"",""RMPRPCEA"",209,0)"
^XMB(3.9,130,2,658,0)=" ;"
^XMB(3.9,130,2,659,0)="""RTN"",""RMPRPCEA"",210,0)"
^XMB(3.9,130,2,660,0)=" Q:'$G(RMPCE)"
^XMB(3.9,130,2,661,0)="""RTN"",""RMPRPCEA"",211,0)"
^XMB(3.9,130,2,662,0)=" ;update PCE pointer and date last sent in #660."
^XMB(3.9,130,2,663,0)="""RTN"",""RMPRPCEA"",212,0)"
^XMB(3.9,130,2,664,0)=" K RMUPD"
^XMB(3.9,130,2,665,0)="""RTN"",""RMPRPCEA"",213,0)"
^XMB(3.9,130,2,666,0)=" S RMUPD(660,RMIE60_"","",8.12)=RMPCE"
^XMB(3.9,130,2,667,0)="""RTN"",""RMPRPCEA"",214,0)"
^XMB(3.9,130,2,668,0)=" S RMUPD(660,RMIE60_"","",8.13)=RMDANOW"
^XMB(3.9,130,2,669,0)="""RTN"",""RMPRPCEA"",215,0)"
^XMB(3.9,130,2,670,0)=" D FILE^DIE("""",""RMUPD"","""")"
^XMB(3.9,130,2,671,0)="""RTN"",""RMPRPCEA"",216,0)"
^XMB(3.9,130,2,672,0)=" Q"
^XMB(3.9,130,2,673,0)="""RTN"",""RMPRPCEA"",217,0)"
^XMB(3.9,130,2,674,0)=" ;"
^XMB(3.9,130,2,675,0)="""RTN"",""RMPRPCEB"")"
^XMB(3.9,130,2,676,0)="0^3^B21611450^B20818586"
^XMB(3.9,130,2,677,0)="""RTN"",""RMPRPCEB"",1,0)"
^XMB(3.9,130,2,678,0)="RMPRPCEB ;HIN/RVD-PROS PCE BACKGROUND UTILITY ; 1/23/04 8:09am"
^XMB(3.9,130,2,679,0)="""RTN"",""RMPRPCEB"",2,0)"
^XMB(3.9,130,2,680,0)=" ;;3.0;PROSTHETICS;**62,69,77,82,78,114,120**;Feb 09, 1996"
^XMB(3.9,130,2,681,0)="""RTN"",""RMPRPCEB"",3,0)"
^XMB(3.9,130,2,682,0)=" ;"
^XMB(3.9,130,2,683,0)="""RTN"",""RMPRPCEB"",4,0)"
^XMB(3.9,130,2,684,0)=" ;RVD patch #69 - add STATION in the error message."
^XMB(3.9,130,2,685,0)="""RTN"",""RMPRPCEB"",5,0)"
^XMB(3.9,130,2,686,0)=" ;                QUIT if no data in specified date range."
^XMB(3.9,130,2,687,0)="""RTN"",""RMPRPCEB"",6,0)"
^XMB(3.9,130,2,688,0)=" ;RVD patch #77 - only create 1 PCE entry for the same pt & same day."
^XMB(3.9,130,2,689,0)="""RTN"",""RMPRPCEB"",7,0)"
^XMB(3.9,130,2,690,0)=" ;"
^XMB(3.9,130,2,691,0)="""RTN"",""RMPRPCEB"",8,0)"
^XMB(3.9,130,2,692,0)=" ;KAM Patch #82 06/21/2004 - Add more robust text to 'Missing"
^XMB(3.9,130,2,693,0)="""RTN"",""RMPRPCEB"",9,0)"
^XMB(3.9,130,2,694,0)=" ;                           Prosthetics Clinic PCE error message"
^XMB(3.9,130,2,695,0)="""RTN"",""RMPRPCEB"",10,0)"
^XMB(3.9,130,2,696,0)=" ;"
^XMB(3.9,130,2,697,0)="""RTN"",""RMPRPCEB"",11,0)"
^XMB(3.9,130,2,698,0)=" ;WLC Patch #78 02/03/3005 - added NEW statement for error message"
^XMB(3.9,130,2,699,0)="""RTN"",""RMPRPCEB"",12,0)"
^XMB(3.9,130,2,700,0)=" ;                           variables defined for Patch 82."
^XMB(3.9,130,2,701,0)="""RTN"",""RMPRPCEB"",13,0)"
^XMB(3.9,130,2,702,0)=" ;"
^XMB(3.9,130,2,703,0)="""RTN"",""RMPRPCEB"",14,0)"
^XMB(3.9,130,2,704,0)=" W !,""Invalid Entry Point....."",!"
^XMB(3.9,130,2,705,0)="""RTN"",""RMPRPCEB"",15,0)"
^XMB(3.9,130,2,706,0)=" Q"
^XMB(3.9,130,2,707,0)="""RTN"",""RMPRPCEB"",16,0)"
^XMB(3.9,130,2,708,0)="TASK ;entry point for task job to send pros encounters to PCE."
^XMB(3.9,130,2,709,0)="""RTN"",""RMPRPCEB"",17,0)"
^XMB(3.9,130,2,710,0)=" N RERRMSG,RERRMSG2  ; correction for patch 82  02/03/05 WLC"
^XMB(3.9,130,2,711,0)="""RTN"",""RMPRPCEB"",18,0)"
^XMB(3.9,130,2,712,0)=" S IO=0,RMAIL=1"
^XMB(3.9,130,2,713,0)="""RTN"",""RMPRPCEB"",19,0)"
^XMB(3.9,130,2,714,0)=" S Y=DT D DD^%DT S RMRDAT=Y K RMX,RMXMT,^TMP($J)"
^XMB(3.9,130,2,715,0)="""RTN"",""RMPRPCEB"",20,0)"
^XMB(3.9,130,2,716,0)=" D NOW^%DTC S RMSTDT=%"
^XMB(3.9,130,2,717,0)="""RTN"",""RMPRPCEB"",21,0)"
^XMB(3.9,130,2,718,0)=" S X=""T-90"" D ^%DT S RM90DAY=Y"
^XMB(3.9,130,2,719,0)="""RTN"",""RMPRPCEB"",22,0)"
^XMB(3.9,130,2,720,0)=" S RMBIEN=$O(^RMPR(660,""B"",RM90DAY))"
^XMB(3.9,130,2,721,0)="""RTN"",""RMPRPCEB"",23,0)"
^XMB(3.9,130,2,722,0)=" Q:RMBIEN="""""
^XMB(3.9,130,2,723,0)="""RTN"",""RMPRPCEB"",24,0)"
^XMB(3.9,130,2,724,0)=" S (RMENDT,RFLDAT)=0"
^XMB(3.9,130,2,725,0)="""RTN"",""RMPRPCEB"",25,0)"
^XMB(3.9,130,2,726,0)=" F RS=0:0 S RS=$O(^RMPR(669.9,RS)) Q:RS'>0  D PCEFLG"
^XMB(3.9,130,2,727,0)="""RTN"",""RMPRPCEB"",26,0)"
^XMB(3.9,130,2,728,0)=" S RI=$O(^RMPR(660,""B"",RMBIEN,0))-1     ;starts at proper ien RMPR*120"
^XMB(3.9,130,2,729,0)="""RTN"",""RMPRPCEB"",27,0)"
^XMB(3.9,130,2,730,0)=" F  S RI=$O(^RMPR(660,RI)) Q:RI'>0  D"
^XMB(3.9,130,2,731,0)="""RTN"",""RMPRPCEB"",28,0)"
^XMB(3.9,130,2,732,0)=" .S RM600=$G(^RMPR(660,RI,0))"
^XMB(3.9,130,2,733,0)="""RTN"",""RMPRPCEB"",29,0)"
^XMB(3.9,130,2,734,0)=" .S RM611=$G(^RMPR(660,RI,1))"
^XMB(3.9,130,2,735,0)="""RTN"",""RMPRPCEB"",30,0)"
^XMB(3.9,130,2,736,0)=" .S RM610=$G(^RMPR(660,RI,10))"
^XMB(3.9,130,2,737,0)="""RTN"",""RMPRPCEB"",31,0)"
^XMB(3.9,130,2,738,0)=" .Q:$P(RM600,U,15)"
^XMB(3.9,130,2,739,0)="""RTN"",""RMPRPCEB"",32,0)"
^XMB(3.9,130,2,740,0)=" .Q:$P(RM600,U,17)"
^XMB(3.9,130,2,741,0)="""RTN"",""RMPRPCEB"",33,0)"
^XMB(3.9,130,2,742,0)=" .Q:'$P(RM610,U,8)"
^XMB(3.9,130,2,743,0)="""RTN"",""RMPRPCEB"",34,0)"
^XMB(3.9,130,2,744,0)=" .S RMSTA=$P(RM600,U,10)"
^XMB(3.9,130,2,745,0)="""RTN"",""RMPRPCEB"",35,0)"
^XMB(3.9,130,2,746,0)=" .;quit if already been processed."
^XMB(3.9,130,2,747,0)="""RTN"",""RMPRPCEB"",36,0)"
^XMB(3.9,130,2,748,0)=" .Q:$P(RM610,U,12)"
^XMB(3.9,130,2,749,0)="""RTN"",""RMPRPCEB"",37,0)"
^XMB(3.9,130,2,750,0)=" .Q:(RMSTA="""")!('$D(RSTAFLG(RMSTA)))"
^XMB(3.9,130,2,751,0)="""RTN"",""RMPRPCEB"",38,0)"
^XMB(3.9,130,2,752,0)=" .Q:'$P(RM611,U,4)!'$P(RM600,U,22)"
^XMB(3.9,130,2,753,0)="""RTN"",""RMPRPCEB"",39,0)"
^XMB(3.9,130,2,754,0)=" .S RMDATE=$P(RM600,U,1),RMDFN=$P(RM600,U,2)"
^XMB(3.9,130,2,755,0)="""RTN"",""RMPRPCEB"",40,0)"
^XMB(3.9,130,2,756,0)=" .S RMICD9=$P(RM610,U,8) I RMICD9'="""" Q:$P($G(^ICD9(RMICD9,0)),U,9)  ;quit if DX code inactive RMPR*120"
^XMB(3.9,130,2,757,0)="""RTN"",""RMPRPCEB"",41,0)"
^XMB(3.9,130,2,758,0)=" .Q:$D(^TMP($J,RMSTA,RMDATE,RMDFN))"
^XMB(3.9,130,2,759,0)="""RTN"",""RMPRPCEB"",42,0)"
^XMB(3.9,130,2,760,0)=" .S RMPROCF=0"
^XMB(3.9,130,2,761,0)="""RTN"",""RMPRPCEB"",43,0)"
^XMB(3.9,130,2,762,0)=" .F J=0:0 S J=$O(^RMPR(660,""C"",RMDFN,J)) Q:J'>0  D"
^XMB(3.9,130,2,763,0)="""RTN"",""RMPRPCEB"",44,0)"
^XMB(3.9,130,2,764,0)=" ..S RMJ60=$G(^RMPR(660,J,0)),RMJDT=$P(RMJ60,U,1),RMJST=$P(RMJ60,U,10)"
^XMB(3.9,130,2,765,0)="""RTN"",""RMPRPCEB"",45,0)"
^XMB(3.9,130,2,766,0)=" ..Q:(RMJST'=RMSTA)!(RMJDT'=RMDATE)"
^XMB(3.9,130,2,767,0)="""RTN"",""RMPRPCEB"",46,0)"
^XMB(3.9,130,2,768,0)=" ..S RMJ610=$G(^RMPR(660,J,10)),RMJ12=$P(RMJ610,U,12)"
^XMB(3.9,130,2,769,0)="""RTN"",""RMPRPCEB"",47,0)"
^XMB(3.9,130,2,770,0)=" ..I $G(RMJ12) S RMPROCF=1"
^XMB(3.9,130,2,771,0)="""RTN"",""RMPRPCEB"",48,0)"
^XMB(3.9,130,2,772,0)=" .;don't process if PCE data was process for the same day."
^XMB(3.9,130,2,773,0)="""RTN"",""RMPRPCEB"",49,0)"
^XMB(3.9,130,2,774,0)=" .Q:$G(RMPROCF)"
^XMB(3.9,130,2,775,0)="""RTN"",""RMPRPCEB"",50,0)"
^XMB(3.9,130,2,776,0)=" .S ^TMP($J,RMSTA,RMDATE,RMDFN,RI)="""""
^XMB(3.9,130,2,777,0)="""RTN"",""RMPRPCEB"",51,0)"
^XMB(3.9,130,2,778,0)=" ;"
^XMB(3.9,130,2,779,0)="""RTN"",""RMPRPCEB"",52,0)"
^XMB(3.9,130,2,780,0)=" D PROC"
^XMB(3.9,130,2,781,0)="""RTN"",""RMPRPCEB"",53,0)"
^XMB(3.9,130,2,782,0)=" I '$D(^TMP($J,""RMPRERR"")) D"
^XMB(3.9,130,2,783,0)="""RTN"",""RMPRPCEB"",54,0)"
^XMB(3.9,130,2,784,0)=" .S ^TMP($J,""RMPR"",5)=""***** NO ERROR TO REPORT !!!!!"""
^XMB(3.9,130,2,785,0)="""RTN"",""RMPRPCEB"",55,0)"
^XMB(3.9,130,2,786,0)=" S RMSUBI=4 D BUILD D:$D(^XMB(3.8,""B"",""RMPR PCE"")) MES1,MES2"
^XMB(3.9,130,2,787,0)="""RTN"",""RMPRPCEB"",56,0)"
^XMB(3.9,130,2,788,0)=" G EXIT"
^XMB(3.9,130,2,789,0)="""RTN"",""RMPRPCEB"",57,0)"
^XMB(3.9,130,2,790,0)=" ;"
^XMB(3.9,130,2,791,0)="""RTN"",""RMPRPCEB"",58,0)"
^XMB(3.9,130,2,792,0)="PCEFLG ;"
^XMB(3.9,130,2,793,0)="""RTN"",""RMPRPCEB"",59,0)"
^XMB(3.9,130,2,794,0)=" S:$D(^RMPR(669.9,RS,""PCE"")) RFLDAT=$P($G(^RMPR(669.9,RS,""PCE"")),U,2)"
^XMB(3.9,130,2,795,0)="""RTN"",""RMPRPCEB"",60,0)"
^XMB(3.9,130,2,796,0)=" S:'$D(^RMPR(669.9,RS,""PCE"")) RFLDAT=0"
^XMB(3.9,130,2,797,0)="""RTN"",""RMPRPCEB"",61,0)"
^XMB(3.9,130,2,798,0)=" S RSTAFLG($P(^RMPR(669.9,RS,0),U,2))=RFLDAT"
^XMB(3.9,130,2,799,0)="""RTN"",""RMPRPCEB"",62,0)"
^XMB(3.9,130,2,800,0)=" S $P(^RMPR(669.9,RS,""PCE""),U,1)=RMSTDT"
^XMB(3.9,130,2,801,0)="""RTN"",""RMPRPCEB"",63,0)"
^XMB(3.9,130,2,802,0)=" Q"
^XMB(3.9,130,2,803,0)="""RTN"",""RMPRPCEB"",64,0)"
^XMB(3.9,130,2,804,0)=" ;"
^XMB(3.9,130,2,805,0)="""RTN"",""RMPRPCEB"",65,0)"
^XMB(3.9,130,2,806,0)="PROC ;process"
^XMB(3.9,130,2,807,0)="""RTN"",""RMPRPCEB"",66,0)"
^XMB(3.9,130,2,808,0)=" F RS=0:0 S RS=$O(^TMP($J,RS)) Q:RS'>0  F RII=0:0 S RII=$O(^TMP($J,RS,RII)) Q:RII'>0  F RJ=0:0 S RJ=$O(^TMP($J,RS,RII,RJ)) Q:RJ'>0  S RK=$O(^TMP($J,RS,RII,RJ,0)) D"
^XMB(3.9,130,2,809,0)="""RTN"",""RMPRPCEB"",67,0)"
^XMB(3.9,130,2,810,0)=" .;call PCE Interface"
^XMB(3.9,130,2,811,0)="""RTN"",""RMPRPCEB"",68,0)"
^XMB(3.9,130,2,812,0)=" .S RMIE60RK=RK"
^XMB(3.9,130,2,813,0)="""RTN"",""RMPRPCEB"",69,0)"
^XMB(3.9,130,2,814,0)=" .S RMC=$$SENDPCE^RMPRPCEA(RK)"
^XMB(3.9,130,2,815,0)="""RTN"",""RMPRPCEB"",70,0)"
^XMB(3.9,130,2,816,0)=" . I RMC<1 D"
^XMB(3.9,130,2,817,0)="""RTN"",""RMPRPCEB"",71,0)"
^XMB(3.9,130,2,818,0)=" ..S RSNAM=""        """
^XMB(3.9,130,2,819,0)="""RTN"",""RMPRPCEB"",72,0)"
^XMB(3.9,130,2,820,0)=" ..I $G(RS),$D(^DIC(4,RS,0)) S RSNAM=$E($P(^DIC(4,RS,0),U,1),1,8)"
^XMB(3.9,130,2,821,0)="""RTN"",""RMPRPCEB"",73,0)"
^XMB(3.9,130,2,822,0)=" ..S ^TMP($J,""RMPRERR"",RK)=""Station: ""_RSNAM_"", File #660 IEN=""_RK_"" - Error in PCE interface!!!"""
^XMB(3.9,130,2,823,0)="""RTN"",""RMPRPCEB"",74,0)"
^XMB(3.9,130,2,824,0)=" ..;Added next line for RMPR*3*82"
^XMB(3.9,130,2,825,0)="""RTN"",""RMPRPCEB"",75,0)"
^XMB(3.9,130,2,826,0)=" ..I '$G(RMLOC) S ^TMP($J,""RMPRERR"",RK)=^TMP($J,""RMPRERR"",RK)_$G(RERRMSG)_$G(RERRMSG2)"
^XMB(3.9,130,2,827,0)="""RTN"",""RMPRPCEB"",76,0)"
^XMB(3.9,130,2,828,0)=" ..I $D(RMPROB($J,1))!$D(RMPROB($J,2)) D"
^XMB(3.9,130,2,829,0)="""RTN"",""RMPRPCEB"",77,0)"
^XMB(3.9,130,2,830,0)=" ...S (R2,R3,RMMESS)="""",R6I=RK,RC=0"
^XMB(3.9,130,2,831,0)="""RTN"",""RMPRPCEB"",78,0)"
^XMB(3.9,130,2,832,0)=" ...F R1=0:0 S R1=$O(RMPROB($J,R1)) Q:R1'>0  S RC=RC+1 F  S R2=$O(RMPROB($J,R1,""ERROR1"",R2)) Q:R2=""""  F  S R3=$O(RMPROB($J,R1,""ERROR1"",R2,R3)) Q:R3=""""  D"
^XMB(3.9,130,2,833,0)="""RTN"",""RMPRPCEB"",79,0)"
^XMB(3.9,130,2,834,0)=" ....F R4=0:0 S R4=$O(RMPROB($J,R1,""ERROR1"",R2,R3,R4)) Q:R4'>0  D"
^XMB(3.9,130,2,835,0)="""RTN"",""RMPRPCEB"",80,0)"
^XMB(3.9,130,2,836,0)=" .....S RMMESS=RMPROB($J,R1,""ERROR1"",R2,R3,R4),RMK=R6I_"".""_RC,^TMP($J,""RMPRERR"",RMK)=""    ???? ""_$E(RMMESS,1,65)"
^XMB(3.9,130,2,837,0)="""RTN"",""RMPRPCEB"",81,0)"
^XMB(3.9,130,2,838,0)=" .....K RMPROB($J,R1,""ERROR1"",R2,R3,R4)"
^XMB(3.9,130,2,839,0)="""RTN"",""RMPRPCEB"",82,0)"
^XMB(3.9,130,2,840,0)=" K RMPROB"
^XMB(3.9,130,2,841,0)="""RTN"",""RMPRPCEB"",83,0)"
^XMB(3.9,130,2,842,0)=" Q"
^XMB(3.9,130,2,843,0)="""RTN"",""RMPRPCEB"",84,0)"
^XMB(3.9,130,2,844,0)=" ;"
^XMB(3.9,130,2,845,0)="""RTN"",""RMPRPCEB"",85,0)"
^XMB(3.9,130,2,846,0)="MES1 ;"
^XMB(3.9,130,2,847,0)="""RTN"",""RMPRPCEB"",86,0)"
^XMB(3.9,130,2,848,0)=" S XMY(""G.RMPR PCE"")="""",XMDUZ=.5,XMTEXT=""^TMP($J,""""RMPR"""","""
^XMB(3.9,130,2,849,0)="""RTN"",""RMPRPCEB"",87,0)"
^XMB(3.9,130,2,850,0)=" S XMSUB=""PROSTHETICS PCE BACKGROUND MESSAGE"""
^XMB(3.9,130,2,851,0)="""RTN"",""RMPRPCEB"",88,0)"
^XMB(3.9,130,2,852,0)=" S ^TMP($J,""RMPR"",1)=""Run Date: ""_RMRDAT"
^XMB(3.9,130,2,853,0)="""RTN"",""RMPRPCEB"",89,0)"
^XMB(3.9,130,2,854,0)=" S ^TMP($J,""RMPR"",2)=""This is a notification from the Prosthetics Department........"""
^XMB(3.9,130,2,855,0)="""RTN"",""RMPRPCEB"",90,0)"
^XMB(3.9,130,2,856,0)=" S ^TMP($J,""RMPR"",3)="""""
^XMB(3.9,130,2,857,0)="""RTN"",""RMPRPCEB"",91,0)"
^XMB(3.9,130,2,858,0)=" S ^TMP($J,""RMPR"",4)="""""
^XMB(3.9,130,2,859,0)="""RTN"",""RMPRPCEB"",92,0)"
^XMB(3.9,130,2,860,0)=" Q"
^XMB(3.9,130,2,861,0)="""RTN"",""RMPRPCEB"",93,0)"
^XMB(3.9,130,2,862,0)="MES2 ;"
^XMB(3.9,130,2,863,0)="""RTN"",""RMPRPCEB"",94,0)"
^XMB(3.9,130,2,864,0)=" S ^TMP($J,""RMPR"",RMSUBI+2)="""""
^XMB(3.9,130,2,865,0)="""RTN"",""RMPRPCEB"",95,0)"
^XMB(3.9,130,2,866,0)=" I $D(^TMP($J,""RMPRERR"")) S ^TMP($J,""RMPR"",RMSUBI+3)=""*** Please contact your PCE Coordinator or IRM ***"""
^XMB(3.9,130,2,867,0)="""RTN"",""RMPRPCEB"",96,0)"
^XMB(3.9,130,2,868,0)=" I '$D(^TMP($J,""RMPRERR"")) S ^TMP($J,""RMPR"",RMSUBI+3)="""""
^XMB(3.9,130,2,869,0)="""RTN"",""RMPRPCEB"",97,0)"
^XMB(3.9,130,2,870,0)=" S ^TMP($J,""RMPR"",RMSUBI+4)="""""
^XMB(3.9,130,2,871,0)="""RTN"",""RMPRPCEB"",98,0)"
^XMB(3.9,130,2,872,0)=" S ^TMP($J,""RMPR"",RMSUBI+5)=""Thank You!!!"""
^XMB(3.9,130,2,873,0)="""RTN"",""RMPRPCEB"",99,0)"
^XMB(3.9,130,2,874,0)=" S ^TMP($J,""RMPR"",RMSUBI+6)="""""
^XMB(3.9,130,2,875,0)="""RTN"",""RMPRPCEB"",100,0)"
^XMB(3.9,130,2,876,0)=" S ^TMP($J,""RMPR"",RMSUBI+7)=""PROSTHETICS DEPARTMENT"""
^XMB(3.9,130,2,877,0)="""RTN"",""RMPRPCEB"",101,0)"
^XMB(3.9,130,2,878,0)=" D ^XMD"
^XMB(3.9,130,2,879,0)="""RTN"",""RMPRPCEB"",102,0)"
^XMB(3.9,130,2,880,0)=" D NOW^%DTC"
^XMB(3.9,130,2,881,0)="""RTN"",""RMPRPCEB"",103,0)"
^XMB(3.9,130,2,882,0)=" ;if task finish to completion and;"
^XMB(3.9,130,2,883,0)="""RTN"",""RMPRPCEB"",104,0)"
^XMB(3.9,130,2,884,0)=" ;if no errors, set the PCE end date of the background job in #669.9."
^XMB(3.9,130,2,885,0)="""RTN"",""RMPRPCEB"",105,0)"
^XMB(3.9,130,2,886,0)=" F RS=0:0 S RS=$O(^RMPR(669.9,RS)) Q:RS'>0  S $P(^RMPR(669.9,RS,""PCE""),U,2)=%"
^XMB(3.9,130,2,887,0)="""RTN"",""RMPRPCEB"",106,0)"
^XMB(3.9,130,2,888,0)=" Q"
^XMB(3.9,130,2,889,0)="""RTN"",""RMPRPCEB"",107,0)"
^XMB(3.9,130,2,890,0)=" ;"
^XMB(3.9,130,2,891,0)="""RTN"",""RMPRPCEB"",108,0)"
^XMB(3.9,130,2,892,0)="BUILD ;"
^XMB(3.9,130,2,893,0)="""RTN"",""RMPRPCEB"",109,0)"
^XMB(3.9,130,2,894,0)=" F I=0:0 S I=$O(^TMP($J,""RMPRERR"",I)) Q:I'>0  D"
^XMB(3.9,130,2,895,0)="""RTN"",""RMPRPCEB"",110,0)"
^XMB(3.9,130,2,896,0)=" .S RMMAIL=^TMP($J,""RMPRERR"",I)"
^XMB(3.9,130,2,897,0)="""RTN"",""RMPRPCEB"",111,0)"
^XMB(3.9,130,2,898,0)=" .S RMSUBI=RMSUBI+1"
^XMB(3.9,130,2,899,0)="""RTN"",""RMPRPCEB"",112,0)"
^XMB(3.9,130,2,900,0)=" .S ^TMP($J,""RMPR"",RMSUBI)=RMMAIL"
^XMB(3.9,130,2,901,0)="""RTN"",""RMPRPCEB"",113,0)"
^XMB(3.9,130,2,902,0)=" Q"
^XMB(3.9,130,2,903,0)="""RTN"",""RMPRPCEB"",114,0)"
^XMB(3.9,130,2,904,0)=" ;"
^XMB(3.9,130,2,905,0)="""RTN"",""RMPRPCEB"",115,0)"
^XMB(3.9,130,2,906,0)="EXIT ;MAIN EXIT POINT"
^XMB(3.9,130,2,907,0)="""RTN"",""RMPRPCEB"",116,0)"
^XMB(3.9,130,2,908,0)=" K ^TMP($J)"
^XMB(3.9,130,2,909,0)="""RTN"",""RMPRPCEB"",117,0)"
^XMB(3.9,130,2,910,0)=" N RMPRSITE,RMPR D KILL^XUSCLEAN"
^XMB(3.9,130,2,911,0)="""RTN"",""RMPRPCEB"",118,0)"
^XMB(3.9,130,2,912,0)=" Q"
^XMB(3.9,130,2,913,0)="""RTN"",""RMPRS"")"
^XMB(3.9,130,2,914,0)="0^1^B30300353^B30115630"
^XMB(3.9,130,2,915,0)="""RTN"",""RMPRS"",1,0)"
^XMB(3.9,130,2,916,0)="RMPRS ;PHX/HNC/RFM,RVD-ADD SUSPENSE RECORD ;8/29/1994"
^XMB(3.9,130,2,917,0)="""RTN"",""RMPRS"",2,0)"
^XMB(3.9,130,2,918,0)=" ;;3.0;PROSTHETICS;**26,28,30,45,52,62,120**;Feb 09, 1996"
^XMB(3.9,130,2,919,0)="""RTN"",""RMPRS"",3,0)"
^XMB(3.9,130,2,920,0)=" ;"
^XMB(3.9,130,2,921,0)="""RTN"",""RMPRS"",4,0)"
^XMB(3.9,130,2,922,0)=" ;  HNC - patch 52 - 9/22/00 Modify INQ - sub."
^XMB(3.9,130,2,923,0)="""RTN"",""RMPRS"",5,0)"
^XMB(3.9,130,2,924,0)=" ;                           Add KILL^XUSCLEAN on exit to kill"
^XMB(3.9,130,2,925,0)="""RTN"",""RMPRS"",6,0)"
^XMB(3.9,130,2,926,0)=" ;                           all variables."
^XMB(3.9,130,2,927,0)="""RTN"",""RMPRS"",7,0)"
^XMB(3.9,130,2,928,0)=" ;  HNC - patch 52 - 10/5/00 New RMPR,RMPRNAM,RMPRDOB,RMPRSSN,RMPRSSNE"
^XMB(3.9,130,2,929,0)="""RTN"",""RMPRS"",8,0)"
^XMB(3.9,130,2,930,0)=" ;                           RMPRCNUM before appt mgt"
^XMB(3.9,130,2,931,0)="""RTN"",""RMPRS"",9,0)"
^XMB(3.9,130,2,932,0)=" ;  RVD - patch 62 - 10/13/01 remove link to Patient Management"
^XMB(3.9,130,2,933,0)="""RTN"",""RMPRS"",10,0)"
^XMB(3.9,130,2,934,0)=" ;                            call rotine RMPREOL"
^XMB(3.9,130,2,935,0)="""RTN"",""RMPRS"",11,0)"
^XMB(3.9,130,2,936,0)=" ;                            suspense print message"
^XMB(3.9,130,2,937,0)="""RTN"",""RMPRS"",12,0)"
^XMB(3.9,130,2,938,0)=" ;"
^XMB(3.9,130,2,939,0)="""RTN"",""RMPRS"",13,0)"
^XMB(3.9,130,2,940,0)="EN ;ADD SUSPENSE RECORD"
^XMB(3.9,130,2,941,0)="""RTN"",""RMPRS"",14,0)"
^XMB(3.9,130,2,942,0)=" D DIV4^RMPRSIT G:$D(X) EXIT"
^XMB(3.9,130,2,943,0)="""RTN"",""RMPRS"",15,0)"
^XMB(3.9,130,2,944,0)=" S DIC=""^DPT("",DIC(0)=""AEQM"" D ^DIC G:Y'>0 EXIT S RMPRDFN=+Y"
^XMB(3.9,130,2,945,0)="""RTN"",""RMPRS"",16,0)"
^XMB(3.9,130,2,946,0)=" S X=DT,DIC=""^RMPR(668,"",DIC(0)=""AEQLM"",DLAYGO=668,DIC(""DR"")=""1////^S X=RMPRDFN;8////^S X=DUZ;2////^S X=RMPR(""""STA"""")"" K DINUM,D0,DD,DO D FILE^DICN K DLAYGO G:Y'>0 EX S (RDA,DA)=+Y"
^XMB(3.9,130,2,947,0)="""RTN"",""RMPRS"",17,0)"
^XMB(3.9,130,2,948,0)=" S DIE=""^RMPR(668,"",DR=""3;4"""
^XMB(3.9,130,2,949,0)="""RTN"",""RMPRS"",18,0)"
^XMB(3.9,130,2,950,0)=" L +^RMPR(668,RDA,0):1 I $T=0 W $C(7),?5,!,""Someone else is editing this record"" G EX"
^XMB(3.9,130,2,951,0)="""RTN"",""RMPRS"",19,0)"
^XMB(3.9,130,2,952,0)=" D ^DIE L -^RMPR(668,RDA,0)"
^XMB(3.9,130,2,953,0)="""RTN"",""RMPRS"",20,0)"
^XMB(3.9,130,2,954,0)=" I '$P(^RMPR(668,RDA,0),U,3) S DA=RDA,DIK=""^RMPR(668,"" D ^DIK W !,$C(7),?5,""Deleted..."""
^XMB(3.9,130,2,955,0)="""RTN"",""RMPRS"",21,0)"
^XMB(3.9,130,2,956,0)="EX K X,DIC,DIE,DR,Y,RMPRDFN G EN"
^XMB(3.9,130,2,957,0)="""RTN"",""RMPRS"",22,0)"
^XMB(3.9,130,2,958,0)="CL ;CLOSE OUT SUSPENSE RECORD"
^XMB(3.9,130,2,959,0)="""RTN"",""RMPRS"",23,0)"
^XMB(3.9,130,2,960,0)=" D DIV4^RMPRSIT G:$D(X) EXIT"
^XMB(3.9,130,2,961,0)="""RTN"",""RMPRS"",24,0)"
^XMB(3.9,130,2,962,0)=" K DIE,DR,Y,DA,RMPRA,^TMP(""RMSU"",$J)"
^XMB(3.9,130,2,963,0)="""RTN"",""RMPRS"",25,0)"
^XMB(3.9,130,2,964,0)=" S RMPRCLOS=1 D DICDPT S (I,RMTOI)=0 G:Y<0!($D(DTOUT))!(Y=""^"") EXIT"
^XMB(3.9,130,2,965,0)="""RTN"",""RMPRS"",26,0)"
^XMB(3.9,130,2,966,0)=" F  S I=$O(^RMPR(668,""C"",+Y,I)) Q:I'>0  I $D(^RMPR(668,I,0)) S:'$P(^(0),U,5) ^TMP(""RMSU"",$J,9999999-$P($G(^RMPR(668,I,0)),""^"",1),I)=I,RMTOI=RMTOI+1"
^XMB(3.9,130,2,967,0)="""RTN"",""RMPRS"",27,0)"
^XMB(3.9,130,2,968,0)=" D ENT G:'IEN EXIT  L +^RMPR(668,IEN,0):1 I $T=0 W !,?5,$C(7),""Someone else is Editing this entry!"" G EXIT"
^XMB(3.9,130,2,969,0)="""RTN"",""RMPRS"",28,0)"
^XMB(3.9,130,2,970,0)=" S RMPRA=IEN,DR=""2;4;7"",DA=IEN,DIE=DIC D ^DIE G:$D(Y) EX1"
^XMB(3.9,130,2,971,0)="""RTN"",""RMPRS"",29,0)"
^XMB(3.9,130,2,972,0)=" S DR=""5//^S X=DT;6////^S X=DUZ"",DA=RMPRA D ^DIE L -^RMPR(668,RMPRA,0)"
^XMB(3.9,130,2,973,0)="""RTN"",""RMPRS"",30,0)"
^XMB(3.9,130,2,974,0)="EX1 I '$P(^RMPR(668,RMPRA,0),U,5) W !!,""SUSPENSE RECORD WAS NOT CLOSED OUT"",$C(7) S $P(^(0),U,6)="""""
^XMB(3.9,130,2,975,0)="""RTN"",""RMPRS"",31,0)"
^XMB(3.9,130,2,976,0)=" W ! G CL"
^XMB(3.9,130,2,977,0)="""RTN"",""RMPRS"",32,0)"
^XMB(3.9,130,2,978,0)="EXIT W:$D(FL1) @IOF K %,RMPRCLOS,DIC,DIE,DR,CITN,IEN,Y,DA,RDA,FL1,RB,RD,RT,RIE,RO,RP,RR,RZ,RX,RMPRFLAG,^TMP(""RMSU"",$J),RMI,RMIEN,RML,RMTOI,I,J,RMDES,RMQUIT,RMSEL Q"
^XMB(3.9,130,2,979,0)="""RTN"",""RMPRS"",33,0)"
^XMB(3.9,130,2,980,0)="EN2 ;EDIT SUSPENSE RECORD"
^XMB(3.9,130,2,981,0)="""RTN"",""RMPRS"",34,0)"
^XMB(3.9,130,2,982,0)=" D DIV4^RMPRSIT G:$D(X) EXIT"
^XMB(3.9,130,2,983,0)="""RTN"",""RMPRS"",35,0)"
^XMB(3.9,130,2,984,0)=" D DICDPT G:Y<0!($D(DTOUT))!(Y=""^"") EXIT"
^XMB(3.9,130,2,985,0)="""RTN"",""RMPRS"",36,0)"
^XMB(3.9,130,2,986,0)=" ;"
^XMB(3.9,130,2,987,0)="""RTN"",""RMPRS"",37,0)"
^XMB(3.9,130,2,988,0)=" ;"
^XMB(3.9,130,2,989,0)="""RTN"",""RMPRS"",38,0)"
^XMB(3.9,130,2,990,0)="REV ;reverse look-up.--HNC--change to $O(^RMPR(668,""C"",ien,n),-1)"
^XMB(3.9,130,2,991,0)="""RTN"",""RMPRS"",39,0)"
^XMB(3.9,130,2,992,0)="ENT ;sort/display"
^XMB(3.9,130,2,993,0)="""RTN"",""RMPRS"",40,0)"
^XMB(3.9,130,2,994,0)=" S (RMI,RML,RMTOI,RMQUIT,IEN,RMSEL,OUT)=0"
^XMB(3.9,130,2,995,0)="""RTN"",""RMPRS"",41,0)"
^XMB(3.9,130,2,996,0)=" W !,""CHOOSE FROM:"""
^XMB(3.9,130,2,997,0)="""RTN"",""RMPRS"",42,0)"
^XMB(3.9,130,2,998,0)=" S RMPRJ="""""
^XMB(3.9,130,2,999,0)="""RTN"",""RMPRS"",43,0)"
^XMB(3.9,130,2,1000,0)=" F  S RMPRJ=$O(^RMPR(668,""C"",RMPRDFN,RMPRJ),-1) Q:RMPRJ=""""  Q:OUT=1  Q:IEN>0  D"
^XMB(3.9,130,2,1001,0)="""RTN"",""RMPRS"",44,0)"
^XMB(3.9,130,2,1002,0)=" .S RMTOI=RMTOI+1"
^XMB(3.9,130,2,1003,0)="""RTN"",""RMPRS"",45,0)"
^XMB(3.9,130,2,1004,0)=" .S RMI=RMI+1"
^XMB(3.9,130,2,1005,0)="""RTN"",""RMPRS"",46,0)"
^XMB(3.9,130,2,1006,0)=" .;S RML=RML+1"
^XMB(3.9,130,2,1007,0)="""RTN"",""RMPRS"",47,0)"
^XMB(3.9,130,2,1008,0)=" .S ^TMP(""RMSU"",$J,RMI)=RMPRDFN_U_RMPRJ"
^XMB(3.9,130,2,1009,0)="""RTN"",""RMPRS"",48,0)"
^XMB(3.9,130,2,1010,0)=" .I $Y>20 D DIS W @IOF Q"
^XMB(3.9,130,2,1011,0)="""RTN"",""RMPRS"",49,0)"
^XMB(3.9,130,2,1012,0)=" .D WRI"
^XMB(3.9,130,2,1013,0)="""RTN"",""RMPRS"",50,0)"
^XMB(3.9,130,2,1014,0)=" .Q:(RMQUIT)!(IEN)!(RMSEL)"
^XMB(3.9,130,2,1015,0)="""RTN"",""RMPRS"",51,0)"
^XMB(3.9,130,2,1016,0)=" G:RMSEL ENT"
^XMB(3.9,130,2,1017,0)="""RTN"",""RMPRS"",52,0)"
^XMB(3.9,130,2,1018,0)=" G:IEN PROC"
^XMB(3.9,130,2,1019,0)="""RTN"",""RMPRS"",53,0)"
^XMB(3.9,130,2,1020,0)=" I 'RMI W !!,""***** PATIENT HAS NO SUSPENSE RECORD!!!!"" Q"
^XMB(3.9,130,2,1021,0)="""RTN"",""RMPRS"",54,0)"
^XMB(3.9,130,2,1022,0)=" ;I RMQUIT W !!,""***** NO SELECTION MADE!!!"" Q"
^XMB(3.9,130,2,1023,0)="""RTN"",""RMPRS"",55,0)"
^XMB(3.9,130,2,1024,0)=" D DIS"
^XMB(3.9,130,2,1025,0)="""RTN"",""RMPRS"",56,0)"
^XMB(3.9,130,2,1026,0)=" ;W !!,""[<return> or '^' to Quit] or Choose Number 1-"",RMI W "": "" R X:DTIME I '$T Q"
^XMB(3.9,130,2,1027,0)="""RTN"",""RMPRS"",57,0)"
^XMB(3.9,130,2,1028,0)=" ;I X=""""!(X=""^"")!('$D(X)) W !!,""***** NO SELECTION MADE!!!"" Q"
^XMB(3.9,130,2,1029,0)="""RTN"",""RMPRS"",58,0)"
^XMB(3.9,130,2,1030,0)=" ;I '$D(^TMP(""RMSU"",$J,+X)) W !,$C(7),""****INVALID RESPONSE, Please choose a NUMBER within the range!!!!"" G ENT"
^XMB(3.9,130,2,1031,0)="""RTN"",""RMPRS"",59,0)"
^XMB(3.9,130,2,1032,0)=" ;S IEN=$P(^TMP(""RMSU"",$J,+X),U,2)"
^XMB(3.9,130,2,1033,0)="""RTN"",""RMPRS"",60,0)"
^XMB(3.9,130,2,1034,0)=" Q"
^XMB(3.9,130,2,1035,0)="""RTN"",""RMPRS"",61,0)"
^XMB(3.9,130,2,1036,0)=" ;"
^XMB(3.9,130,2,1037,0)="""RTN"",""RMPRS"",62,0)"
^XMB(3.9,130,2,1038,0)="PROC ;"
^XMB(3.9,130,2,1039,0)="""RTN"",""RMPRS"",63,0)"
^XMB(3.9,130,2,1040,0)=" L +^RMPR(668,IEN,0):1 I $T=0 W !,?5,$C(7),""Someone else is Editing this entry!"" Q"
^XMB(3.9,130,2,1041,0)="""RTN"",""RMPRS"",64,0)"
^XMB(3.9,130,2,1042,0)=" ;"
^XMB(3.9,130,2,1043,0)="""RTN"",""RMPRS"",65,0)"
^XMB(3.9,130,2,1044,0)=" S Y="""""
^XMB(3.9,130,2,1045,0)="""RTN"",""RMPRS"",66,0)"
^XMB(3.9,130,2,1046,0)=" S RO=$G(^RMPR(668,+IEN,0)),Y=$P(^(0),U,1)"
^XMB(3.9,130,2,1047,0)="""RTN"",""RMPRS"",67,0)"
^XMB(3.9,130,2,1048,0)=" W ""   "",$$DAT1^RMPRUTL1(Y)"
^XMB(3.9,130,2,1049,0)="""RTN"",""RMPRS"",68,0)"
^XMB(3.9,130,2,1050,0)=" S DFN=RMPRDFN D DEM^VADPT"
^XMB(3.9,130,2,1051,0)="""RTN"",""RMPRS"",69,0)"
^XMB(3.9,130,2,1052,0)=" W ""  "",VADM(1)"
^XMB(3.9,130,2,1053,0)="""RTN"",""RMPRS"",70,0)"
^XMB(3.9,130,2,1054,0)=" W ""  "",$$STATUS^RMPREOU(+IEN)"
^XMB(3.9,130,2,1055,0)="""RTN"",""RMPRS"",71,0)"
^XMB(3.9,130,2,1056,0)=" S Y=+IEN"
^XMB(3.9,130,2,1057,0)="""RTN"",""RMPRS"",72,0)"
^XMB(3.9,130,2,1058,0)=" S DIC=""^RMPR(668,"""
^XMB(3.9,130,2,1059,0)="""RTN"",""RMPRS"",73,0)"
^XMB(3.9,130,2,1060,0)=" Q:$D(RMPRFLAG)!$D(RMPRCLOS)!$D(FLAG)"
^XMB(3.9,130,2,1061,0)="""RTN"",""RMPRS"",74,0)"
^XMB(3.9,130,2,1062,0)=" S DIE=DIC,DA=Y,DR="".01;2R;1R;3;5;I $P(^RMPR(668,DA,0),U,5),'$P(^(0),U,6) S $P(^(0),U,6)=DUZ;4;7"" D ^DIE I $D(DA),$P(^RMPR(668,DA,0),U,5)="""" S $P(^(0),U,6)="""""
^XMB(3.9,130,2,1063,0)="""RTN"",""RMPRS"",75,0)"
^XMB(3.9,130,2,1064,0)=" L -^RMPR(668,IEN,0) G EN2"
^XMB(3.9,130,2,1065,0)="""RTN"",""RMPRS"",76,0)"
^XMB(3.9,130,2,1066,0)=" ;"
^XMB(3.9,130,2,1067,0)="""RTN"",""RMPRS"",77,0)"
^XMB(3.9,130,2,1068,0)="INQ ;Inquire to Suspense entry point"
^XMB(3.9,130,2,1069,0)="""RTN"",""RMPRS"",78,0)"
^XMB(3.9,130,2,1070,0)=" ;"
^XMB(3.9,130,2,1071,0)="""RTN"",""RMPRS"",79,0)"
^XMB(3.9,130,2,1072,0)=" W @IOF"
^XMB(3.9,130,2,1073,0)="""RTN"",""RMPRS"",80,0)"
^XMB(3.9,130,2,1074,0)=" D DIV4^RMPRSIT G:$D(X) EXIT"
^XMB(3.9,130,2,1075,0)="""RTN"",""RMPRS"",81,0)"
^XMB(3.9,130,2,1076,0)=" D HOME^%ZIS"
^XMB(3.9,130,2,1077,0)="""RTN"",""RMPRS"",82,0)"
^XMB(3.9,130,2,1078,0)=" S RMPRFLAG=1"
^XMB(3.9,130,2,1079,0)="""RTN"",""RMPRS"",83,0)"
^XMB(3.9,130,2,1080,0)=" ;get patient dfn"
^XMB(3.9,130,2,1081,0)="""RTN"",""RMPRS"",84,0)"
^XMB(3.9,130,2,1082,0)=" D DICDPT I Y'>0!($D(DTOUT))!(Y=""^"") K RMPRDFN G EXIT"
^XMB(3.9,130,2,1083,0)="""RTN"",""RMPRS"",85,0)"
^XMB(3.9,130,2,1084,0)=" S RMPRDFN=+Y"
^XMB(3.9,130,2,1085,0)="""RTN"",""RMPRS"",86,0)"
^XMB(3.9,130,2,1086,0)=" D REV I 'IEN K RMPRDFN G EXIT"
^XMB(3.9,130,2,1087,0)="""RTN"",""RMPRS"",87,0)"
^XMB(3.9,130,2,1088,0)=" ;call new suspense processing"
^XMB(3.9,130,2,1089,0)="""RTN"",""RMPRS"",88,0)"
^XMB(3.9,130,2,1090,0)=" N RMPREOY,DA"
^XMB(3.9,130,2,1091,0)="""RTN"",""RMPRS"",89,0)"
^XMB(3.9,130,2,1092,0)=" S (RMPREOY,DA)=IEN D VIEWCP^RMPREO23"
^XMB(3.9,130,2,1093,0)="""RTN"",""RMPRS"",90,0)"
^XMB(3.9,130,2,1094,0)=" ;clean up - patch 52"
^XMB(3.9,130,2,1095,0)="""RTN"",""RMPRS"",91,0)"
^XMB(3.9,130,2,1096,0)=" D KILL^XUSCLEAN"
^XMB(3.9,130,2,1097,0)="""RTN"",""RMPRS"",92,0)"
^XMB(3.9,130,2,1098,0)=" Q"
^XMB(3.9,130,2,1099,0)="""RTN"",""RMPRS"",93,0)"
^XMB(3.9,130,2,1100,0)=" ;"
^XMB(3.9,130,2,1101,0)="""RTN"",""RMPRS"",94,0)"
^XMB(3.9,130,2,1102,0)="EXT S RO=0 F  S RO=$O(^RMPR(668,IEN,2,RO)) Q:RO'>0  W !,^RMPR(668,IEN,2,RO,0)"
^XMB(3.9,130,2,1103,0)="""RTN"",""RMPRS"",95,0)"
^XMB(3.9,130,2,1104,0)=" Q"
^XMB(3.9,130,2,1105,0)="""RTN"",""RMPRS"",96,0)"
^XMB(3.9,130,2,1106,0)=" ;"
^XMB(3.9,130,2,1107,0)="""RTN"",""RMPRS"",97,0)"
^XMB(3.9,130,2,1108,0)="ACT W !!,""ACTION TAKEN: """
^XMB(3.9,130,2,1109,0)="""RTN"",""RMPRS"",98,0)"
^XMB(3.9,130,2,1110,0)=" I $D(^RMPR(668,IEN,3,0)) S RO=0 F  S RO=$O(^RMPR(668,IEN,3,RO)) Q:RO'>0  W !,^RMPR(668,IEN,3,RO,0)"
^XMB(3.9,130,2,1111,0)="""RTN"",""RMPRS"",99,0)"
^XMB(3.9,130,2,1112,0)=" E  W ""NONE RECORDED"""
^XMB(3.9,130,2,1113,0)="""RTN"",""RMPRS"",100,0)"
^XMB(3.9,130,2,1114,0)=" W ! Q"
^XMB(3.9,130,2,1115,0)="""RTN"",""RMPRS"",101,0)"
^XMB(3.9,130,2,1116,0)="LINK ;CLOSE OUT SUSPENSE ENTRY FOR SELECTED PATIENT"
^XMB(3.9,130,2,1117,0)="""RTN"",""RMPRS"",102,0)"
^XMB(3.9,130,2,1118,0)=" ;call routine RMPREOL if PCE link to suspense, patch #62."
^XMB(3.9,130,2,1119,0)="""RTN"",""RMPRS"",103,0)"
^XMB(3.9,130,2,1120,0)="SUSP I $D(^TMP($J,""RMPRPCE"",660)) D EN^RMPREOL,FULL^VALM1 Q"
^XMB(3.9,130,2,1121,0)="""RTN"",""RMPRS"",104,0)"
^XMB(3.9,130,2,1122,0)=" I '$D(^TMP($J,""RMPRPCE"",660)) D EN^RMPREO"
^XMB(3.9,130,2,1123,0)="""RTN"",""RMPRS"",105,0)"
^XMB(3.9,130,2,1124,0)=" D FULL^VALM1"
^XMB(3.9,130,2,1125,0)="""RTN"",""RMPRS"",106,0)"
^XMB(3.9,130,2,1126,0)=" Q"
^XMB(3.9,130,2,1127,0)="""RTN"",""RMPRS"",107,0)"
^XMB(3.9,130,2,1128,0)=" ;add new module HNC 3-2-00"
^XMB(3.9,130,2,1129,0)="""RTN"",""RMPRS"",108,0)"
^XMB(3.9,130,2,1130,0)=" N Y,RO,RR,RT,RX,RZ,J,RB,RIE,RD,RI,FLAG K ^TMP(""RMSU"",$J)"
^XMB(3.9,130,2,1131,0)="""RTN"",""RMPRS"",109,0)"
^XMB(3.9,130,2,1132,0)=" Q:'$D(RMPRDFN)  Q:'$D(^RMPR(668,""C"",RMPRDFN))"
^XMB(3.9,130,2,1133,0)="""RTN"",""RMPRS"",110,0)"
^XMB(3.9,130,2,1134,0)=" S RZ=""S RX=$P(RO,U,3),RR=$S(RX=1:""""PSC"""",RX=2:""""2421"""",RX=3:""""2237"""",RX=4:""""2529-3"""",RX=5:""""2529-7"""",RX=6:""""2474"""",RX=7:""""2431"""",RX=8:""""2914"""",RX=9:""""OTHER"""",RX=10:""""2520"""",RX=11:""""STOCK ISSUE"""",1:""""NONE"""")"""
^XMB(3.9,130,2,1135,0)="""RTN"",""RMPRS"",111,0)"
^XMB(3.9,130,2,1136,0)=" S (RD,RI)=0 F  S RD=$O(^RMPR(668,""C"",RMPRDFN,RD)) Q:RD'>0  I $P(^RMPR(668,RD,0),U,5)="""" S FLAG=1"
^XMB(3.9,130,2,1137,0)="""RTN"",""RMPRS"",112,0)"
^XMB(3.9,130,2,1138,0)=" Q:'$D(FLAG)"
^XMB(3.9,130,2,1139,0)="""RTN"",""RMPRS"",113,0)"
^XMB(3.9,130,2,1140,0)=" S %=1 W $C(7),!,""Suspense Records exist on this Patient.  Do you wish to View/Edit them"" D YN^DICN G:%=-1!(%=2)!($D(DTOUT)) EXIT I %=0 W !,""Answer `YES` or `NO`"" G LINK"
^XMB(3.9,130,2,1141,0)="""RTN"",""RMPRS"",114,0)"
^XMB(3.9,130,2,1142,0)=" S Y=RMPRDFN,(I,RMTOI)=0 F  S I=$O(^RMPR(668,""C"",+Y,I)) Q:I'>0  I $D(^RMPR(668,I,0)) S:'$P(^(0),U,5) ^TMP(""RMSU"",$J,9999999-$P($G(^RMPR(668,I,0)),""^"",1),I)=I,RMTOI=RMTOI+1"
^XMB(3.9,130,2,1143,0)="""RTN"",""RMPRS"",115,0)"
^XMB(3.9,130,2,1144,0)=" D ENT G:'IEN EXIT S DIE=""^RMPR(668,"",DA=IEN,DR=""2R;5R;4;7"" D ^DIE I $P(^RMPR(668,IEN,0),U,5) S $P(^(0),U,6)=DUZ"
^XMB(3.9,130,2,1145,0)="""RTN"",""RMPRS"",116,0)"
^XMB(3.9,130,2,1146,0)=" I $D(DTOUT)!($D(DUOUT)) G EXIT"
^XMB(3.9,130,2,1147,0)="""RTN"",""RMPRS"",117,0)"
^XMB(3.9,130,2,1148,0)=" G LINK"
^XMB(3.9,130,2,1149,0)="""RTN"",""RMPRS"",118,0)"
^XMB(3.9,130,2,1150,0)=" ;"
^XMB(3.9,130,2,1151,0)="""RTN"",""RMPRS"",119,0)"
^XMB(3.9,130,2,1152,0)="WRI ;write"
^XMB(3.9,130,2,1153,0)="""RTN"",""RMPRS"",120,0)"
^XMB(3.9,130,2,1154,0)=" ;called from ENT, rmprdfn, rmprj defined"
^XMB(3.9,130,2,1155,0)="""RTN"",""RMPRS"",121,0)"
^XMB(3.9,130,2,1156,0)=" N RMPR668"
^XMB(3.9,130,2,1157,0)="""RTN"",""RMPRS"",122,0)"
^XMB(3.9,130,2,1158,0)=" S RO=$G(^RMPR(668,RMPRJ,0)),RMPR668=RMPRJ,Y=$P(^(0),U,1)"
^XMB(3.9,130,2,1159,0)="""RTN"",""RMPRS"",123,0)"
^XMB(3.9,130,2,1160,0)=" W !,RMI,""."",?5,$$DAT1^RMPRUTL1(Y)"
^XMB(3.9,130,2,1161,0)="""RTN"",""RMPRS"",124,0)"
^XMB(3.9,130,2,1162,0)=" S DFN=$P(RO,U,2) D DEM^VADPT"
^XMB(3.9,130,2,1163,0)="""RTN"",""RMPRS"",125,0)"
^XMB(3.9,130,2,1164,0)=" W ?16,$E(VADM(1),1,19)"
^XMB(3.9,130,2,1165,0)="""RTN"",""RMPRS"",126,0)"
^XMB(3.9,130,2,1166,0)=" W ?37,$$STATUS^RMPREOU(RMPR668,9)"
^XMB(3.9,130,2,1167,0)="""RTN"",""RMPRS"",127,0)"
^XMB(3.9,130,2,1168,0)=" ;display first part of description"
^XMB(3.9,130,2,1169,0)="""RTN"",""RMPRS"",128,0)"
^XMB(3.9,130,2,1170,0)=" I $D(^RMPR(668,RMPR668,2,1,0)) W ?48,$E(^RMPR(668,RMPR668,2,1,0),1,31)"
^XMB(3.9,130,2,1171,0)="""RTN"",""RMPRS"",129,0)"
^XMB(3.9,130,2,1172,0)=" Q"
^XMB(3.9,130,2,1173,0)="""RTN"",""RMPRS"",130,0)"
^XMB(3.9,130,2,1174,0)="DIS ;continue"
^XMB(3.9,130,2,1175,0)="""RTN"",""RMPRS"",131,0)"
^XMB(3.9,130,2,1176,0)=" K DIR S DIR(0)=""NO^1:""_RMI_"":0"" D ^DIR"
^XMB(3.9,130,2,1177,0)="""RTN"",""RMPRS"",132,0)"
^XMB(3.9,130,2,1178,0)=" I $D(DUOUT) S OUT=1 Q"
^XMB(3.9,130,2,1179,0)="""RTN"",""RMPRS"",133,0)"
^XMB(3.9,130,2,1180,0)=" I Y>0 S IEN=$P(^TMP(""RMSU"",$J,+Y),U,2)"
^XMB(3.9,130,2,1181,0)="""RTN"",""RMPRS"",134,0)"
^XMB(3.9,130,2,1182,0)=" Q"
^XMB(3.9,130,2,1183,0)="""RTN"",""RMPRS"",135,0)"
^XMB(3.9,130,2,1184,0)=" ;"
^XMB(3.9,130,2,1185,0)="""RTN"",""RMPRS"",136,0)"
^XMB(3.9,130,2,1186,0)="DICDPT ;ask patient from file #2"
^XMB(3.9,130,2,1187,0)="""RTN"",""RMPRS"",137,0)"
^XMB(3.9,130,2,1188,0)=" ;"
^XMB(3.9,130,2,1189,0)="""RTN"",""RMPRS"",138,0)"
^XMB(3.9,130,2,1190,0)=" K DIC,^TMP(""RMSU"",$J)"
^XMB(3.9,130,2,1191,0)="""RTN"",""RMPRS"",139,0)"
^XMB(3.9,130,2,1192,0)=" S DIC=""^DPT("",DIC(0)=""AEQMZ"""
^XMB(3.9,130,2,1193,0)="""RTN"",""RMPRS"",140,0)"
^XMB(3.9,130,2,1194,0)=" S DIC(""A"")=""Select PATIENT: "" D ^DIC Q"
^XMB(3.9,130,2,1195,0)="""RTN"",""RMPRS"",141,0)"
^XMB(3.9,130,2,1196,0)=" ;"
^XMB(3.9,130,2,1197,0)="""RTN"",""RMPRS"",142,0)"
^XMB(3.9,130,2,1198,0)=" ;added in patch #62"
^XMB(3.9,130,2,1199,0)="""RTN"",""RMPRS"",143,0)"
^XMB(3.9,130,2,1200,0)="SMESS ;print message for mandatory suspense entry."
^XMB(3.9,130,2,1201,0)="""RTN"",""RMPRS"",144,0)"
^XMB(3.9,130,2,1202,0)=" ;W !!,""*********************************************************"""
^XMB(3.9,130,2,1203,0)="""RTN"",""RMPRS"",145,0)"
^XMB(3.9,130,2,1204,0)=" ;W !,""** No suspense record has been selected for this       **"""
^XMB(3.9,130,2,1205,0)="""RTN"",""RMPRS"",146,0)"
^XMB(3.9,130,2,1206,0)=" ;W !,""** transaction.  You must POST INITIAL ACTION, POST    **"""
^XMB(3.9,130,2,1207,0)="""RTN"",""RMPRS"",147,0)"
^XMB(3.9,130,2,1208,0)=" ;W !,""** OTHER ACTION or POST COMPLETE suspense in order to  **"""
^XMB(3.9,130,2,1209,0)="""RTN"",""RMPRS"",148,0)"
^XMB(3.9,130,2,1210,0)=" ;W !,""** complete this transaction, otherwise transaction    **"""
^XMB(3.9,130,2,1211,0)="""RTN"",""RMPRS"",149,0)"
^XMB(3.9,130,2,1212,0)=" ;W !,""** will not be linked to SUSPENSE..................    **"""
^XMB(3.9,130,2,1213,0)="""RTN"",""RMPRS"",150,0)"
^XMB(3.9,130,2,1214,0)=" ;W !,""*********************************************************"""
^XMB(3.9,130,2,1215,0)="""RTN"",""RMPRS"",151,0)"
^XMB(3.9,130,2,1216,0)=" ;W !!"
^XMB(3.9,130,2,1217,0)="""RTN"",""RMPRS"",152,0)"
^XMB(3.9,130,2,1218,0)=" ;K DIR"
^XMB(3.9,130,2,1219,0)="""RTN"",""RMPRS"",153,0)"
^XMB(3.9,130,2,1220,0)=" ;S DIR(0)=""SBO^L:LINK Suspense to Patient Record;E:EXIT without linking to Suspense"""
^XMB(3.9,130,2,1221,0)="""RTN"",""RMPRS"",154,0)"
^XMB(3.9,130,2,1222,0)=" ;S DIR(""A"")=""Would you like to LINK Suspense or EXIT without linking"""
^XMB(3.9,130,2,1223,0)="""RTN"",""RMPRS"",155,0)"
^XMB(3.9,130,2,1224,0)=" ;S DIR(""B"")=""L"""
^XMB(3.9,130,2,1225,0)="""RTN"",""RMPRS"",156,0)"
^XMB(3.9,130,2,1226,0)=" ;S DIR(""?"")=""Answer `L` to Link to suspense, 'E' to exit without link to suspense"""
^XMB(3.9,130,2,1227,0)="""RTN"",""RMPRS"",157,0)"
^XMB(3.9,130,2,1228,0)=" ;D ^DIR S RMENTSUS=Y"
^XMB(3.9,130,2,1229,0)="""RTN"",""RMPRS"",158,0)"
^XMB(3.9,130,2,1230,0)=" ;I $D(DIRUT)!$D(DUOUT)!$D(DTOUT) S RMENTSUS=""E"""
^XMB(3.9,130,2,1231,0)="""RTN"",""RMPRS"",159,0)"
^XMB(3.9,130,2,1232,0)=" ;W !! K DIR"
^XMB(3.9,130,2,1233,0)="""RTN"",""RMPRS"",160,0)"
^XMB(3.9,130,2,1234,0)=" ;Q"
^XMB(3.9,130,2,1235,0)="""VER"")"
^XMB(3.9,130,2,1236,0)="8.0^22.0"
^XMB(3.9,130,2,1237,0)="""BLD"",5984,6)"
^XMB(3.9,130,2,1238,0)="^100"
^XMB(3.9,130,2,1239,0)="$END KID RMPR*3.0*120"
^XMB(3.9,130,6,0)="^3.911A^2^2"
^XMB(3.9,130,6,1,0)="POSTMASTER"
^XMB(3.9,130,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,130,6,"B","POSTMASTER",1)=""
^XMB(3.9,130,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,131,0)="RMPR-3_SEQ-101_PAT-110.KID^.5^3061008.015742^^^^K"
^XMB(3.9,131,.6)="3061008"
^XMB(3.9,131,1,0)="^3.91A^2^2"
^XMB(3.9,131,1,1,0)=".5^0^3061008.015742^^^^^^^3061008.015742"
^XMB(3.9,131,1,2,0)="1^0^3061008.022642^^^^^^^3061008.022642"
^XMB(3.9,131,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,131,1,"C",.5,1)=""
^XMB(3.9,131,1,"C",1,2)=""
^XMB(3.9,131,2,0)="^^2077^2077^3061008"
^XMB(3.9,131,2,1,0)="$TXT Released RMPR*3*110 SEQ #101"
^XMB(3.9,131,2,2,0)="Extracted from mail message"
^XMB(3.9,131,2,3,0)="$END TXT"
^XMB(3.9,131,2,4,0)="$KID RMPR*3.0*110"
^XMB(3.9,131,2,5,0)="**INSTALL NAME**"
^XMB(3.9,131,2,6,0)="RMPR*3.0*110"
^XMB(3.9,131,2,7,0)="""BLD"",6155,0)"
^XMB(3.9,131,2,8,0)="RMPR*3.0*110^PROSTHETICS^0^3060607^y"
^XMB(3.9,131,2,9,0)="""BLD"",6155,1,0)"
^XMB(3.9,131,2,10,0)="^^4^4^3060512^"
^XMB(3.9,131,2,11,0)="""BLD"",6155,1,1,0)"
^XMB(3.9,131,2,12,0)="1. Type of Transaction data missing in Extract."
^XMB(3.9,131,2,13,0)="""BLD"",6155,1,2,0)"
^XMB(3.9,131,2,14,0)=" "
^XMB(3.9,131,2,15,0)="""BLD"",6155,1,3,0)"
^XMB(3.9,131,2,16,0)="2. HOME/O2 Suspense Issue - PROSTHETICS PATIENT RECORDS NOT LINKED"
^XMB(3.9,131,2,17,0)="""BLD"",6155,1,4,0)"
^XMB(3.9,131,2,18,0)="    TO SUSPENSE."
^XMB(3.9,131,2,19,0)="""BLD"",6155,4,0)"
^XMB(3.9,131,2,20,0)="^9.64PA^^"
^XMB(3.9,131,2,21,0)="""BLD"",6155,6.3)"
^XMB(3.9,131,2,22,0)="10"
^XMB(3.9,131,2,23,0)="""BLD"",6155,""ABPKG"")"
^XMB(3.9,131,2,24,0)="n"
^XMB(3.9,131,2,25,0)="""BLD"",6155,""INIT"")"
^XMB(3.9,131,2,26,0)="RMPR110P"
^XMB(3.9,131,2,27,0)="""BLD"",6155,""KRN"",0)"
^XMB(3.9,131,2,28,0)="^9.67PA^8989.52^19"
^XMB(3.9,131,2,29,0)="""BLD"",6155,""KRN"",.4,0)"
^XMB(3.9,131,2,30,0)=".4"
^XMB(3.9,131,2,31,0)="""BLD"",6155,""KRN"",.401,0)"
^XMB(3.9,131,2,32,0)=".401"
^XMB(3.9,131,2,33,0)="""BLD"",6155,""KRN"",.402,0)"
^XMB(3.9,131,2,34,0)=".402"
^XMB(3.9,131,2,35,0)="""BLD"",6155,""KRN"",.403,0)"
^XMB(3.9,131,2,36,0)=".403"
^XMB(3.9,131,2,37,0)="""BLD"",6155,""KRN"",.5,0)"
^XMB(3.9,131,2,38,0)=".5"
^XMB(3.9,131,2,39,0)="""BLD"",6155,""KRN"",.84,0)"
^XMB(3.9,131,2,40,0)=".84"
^XMB(3.9,131,2,41,0)="""BLD"",6155,""KRN"",3.6,0)"
^XMB(3.9,131,2,42,0)="3.6"
^XMB(3.9,131,2,43,0)="""BLD"",6155,""KRN"",3.8,0)"
^XMB(3.9,131,2,44,0)="3.8"
^XMB(3.9,131,2,45,0)="""BLD"",6155,""KRN"",9.2,0)"
^XMB(3.9,131,2,46,0)="9.2"
^XMB(3.9,131,2,47,0)="""BLD"",6155,""KRN"",9.8,0)"
^XMB(3.9,131,2,48,0)="9.8"
^XMB(3.9,131,2,49,0)="""BLD"",6155,""KRN"",9.8,""NM"",0)"
^XMB(3.9,131,2,50,0)="^9.68A^5^5"
^XMB(3.9,131,2,51,0)="""BLD"",6155,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,131,2,52,0)="RMPOPED^^0^B85905941"
^XMB(3.9,131,2,53,0)="""BLD"",6155,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,131,2,54,0)="RMPOBIL2^^0^B60026916"
^XMB(3.9,131,2,55,0)="""BLD"",6155,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,131,2,56,0)="RMPOPS23^^0^B30619186"
^XMB(3.9,131,2,57,0)="""BLD"",6155,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,131,2,58,0)="RMPOPST3^^0^B24131485"
^XMB(3.9,131,2,59,0)="""BLD"",6155,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,131,2,60,0)="RMPR110P^^0^B43952553"
^XMB(3.9,131,2,61,0)="""BLD"",6155,""KRN"",9.8,""NM"",""B"",""RMPOBIL2"",2)"
^XMB(3.9,131,2,62,0)=""
^XMB(3.9,131,2,63,0)="""BLD"",6155,""KRN"",9.8,""NM"",""B"",""RMPOPED"",1)"
^XMB(3.9,131,2,64,0)=""
^XMB(3.9,131,2,65,0)="""BLD"",6155,""KRN"",9.8,""NM"",""B"",""RMPOPS23"",3)"
^XMB(3.9,131,2,66,0)=""
^XMB(3.9,131,2,67,0)="""BLD"",6155,""KRN"",9.8,""NM"",""B"",""RMPOPST3"",4)"
^XMB(3.9,131,2,68,0)=""
^XMB(3.9,131,2,69,0)="""BLD"",6155,""KRN"",9.8,""NM"",""B"",""RMPR110P"",5)"
^XMB(3.9,131,2,70,0)=""
^XMB(3.9,131,2,71,0)="""BLD"",6155,""KRN"",19,0)"
^XMB(3.9,131,2,72,0)="19"
^XMB(3.9,131,2,73,0)="""BLD"",6155,""KRN"",19,""NM"",0)"
^XMB(3.9,131,2,74,0)="^9.68A^^"
^XMB(3.9,131,2,75,0)="""BLD"",6155,""KRN"",19.1,0)"
^XMB(3.9,131,2,76,0)="19.1"
^XMB(3.9,131,2,77,0)="""BLD"",6155,""KRN"",101,0)"
^XMB(3.9,131,2,78,0)="101"
^XMB(3.9,131,2,79,0)="""BLD"",6155,""KRN"",409.61,0)"
^XMB(3.9,131,2,80,0)="409.61"
^XMB(3.9,131,2,81,0)="""BLD"",6155,""KRN"",771,0)"
^XMB(3.9,131,2,82,0)="771"
^XMB(3.9,131,2,83,0)="""BLD"",6155,""KRN"",870,0)"
^XMB(3.9,131,2,84,0)="870"
^XMB(3.9,131,2,85,0)="""BLD"",6155,""KRN"",8989.51,0)"
^XMB(3.9,131,2,86,0)="8989.51"
^XMB(3.9,131,2,87,0)="""BLD"",6155,""KRN"",8989.52,0)"
^XMB(3.9,131,2,88,0)="8989.52"
^XMB(3.9,131,2,89,0)="""BLD"",6155,""KRN"",8994,0)"
^XMB(3.9,131,2,90,0)="8994"
^XMB(3.9,131,2,91,0)="""BLD"",6155,""KRN"",""B"",.4,.4)"
^XMB(3.9,131,2,92,0)=""
^XMB(3.9,131,2,93,0)="""BLD"",6155,""KRN"",""B"",.401,.401)"
^XMB(3.9,131,2,94,0)=""
^XMB(3.9,131,2,95,0)="""BLD"",6155,""KRN"",""B"",.402,.402)"
^XMB(3.9,131,2,96,0)=""
^XMB(3.9,131,2,97,0)="""BLD"",6155,""KRN"",""B"",.403,.403)"
^XMB(3.9,131,2,98,0)=""
^XMB(3.9,131,2,99,0)="""BLD"",6155,""KRN"",""B"",.5,.5)"
^XMB(3.9,131,2,100,0)=""
^XMB(3.9,131,2,101,0)="""BLD"",6155,""KRN"",""B"",.84,.84)"
^XMB(3.9,131,2,102,0)=""
^XMB(3.9,131,2,103,0)="""BLD"",6155,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,131,2,104,0)=""
^XMB(3.9,131,2,105,0)="""BLD"",6155,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,131,2,106,0)=""
^XMB(3.9,131,2,107,0)="""BLD"",6155,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,131,2,108,0)=""
^XMB(3.9,131,2,109,0)="""BLD"",6155,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,131,2,110,0)=""
^XMB(3.9,131,2,111,0)="""BLD"",6155,""KRN"",""B"",19,19)"
^XMB(3.9,131,2,112,0)=""
^XMB(3.9,131,2,113,0)="""BLD"",6155,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,131,2,114,0)=""
^XMB(3.9,131,2,115,0)="""BLD"",6155,""KRN"",""B"",101,101)"
^XMB(3.9,131,2,116,0)=""
^XMB(3.9,131,2,117,0)="""BLD"",6155,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,131,2,118,0)=""
^XMB(3.9,131,2,119,0)="""BLD"",6155,""KRN"",""B"",771,771)"
^XMB(3.9,131,2,120,0)=""
^XMB(3.9,131,2,121,0)="""BLD"",6155,""KRN"",""B"",870,870)"
^XMB(3.9,131,2,122,0)=""
^XMB(3.9,131,2,123,0)="""BLD"",6155,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,131,2,124,0)=""
^XMB(3.9,131,2,125,0)="""BLD"",6155,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,131,2,126,0)=""
^XMB(3.9,131,2,127,0)="""BLD"",6155,""KRN"",""B"",8994,8994)"
^XMB(3.9,131,2,128,0)=""
^XMB(3.9,131,2,129,0)="""BLD"",6155,""QUES"",0)"
^XMB(3.9,131,2,130,0)="^9.62^^"
^XMB(3.9,131,2,131,0)="""BLD"",6155,""REQB"",0)"
^XMB(3.9,131,2,132,0)="^9.611^3^3"
^XMB(3.9,131,2,133,0)="""BLD"",6155,""REQB"",1,0)"
^XMB(3.9,131,2,134,0)="RMPR*3.0*77^2"
^XMB(3.9,131,2,135,0)="""BLD"",6155,""REQB"",2,0)"
^XMB(3.9,131,2,136,0)="RMPR*3.0*50^2"
^XMB(3.9,131,2,137,0)="""BLD"",6155,""REQB"",3,0)"
^XMB(3.9,131,2,138,0)="RMPR*3.0*98^2"
^XMB(3.9,131,2,139,0)="""BLD"",6155,""REQB"",""B"",""RMPR*3.0*50"",2)"
^XMB(3.9,131,2,140,0)=""
^XMB(3.9,131,2,141,0)="""BLD"",6155,""REQB"",""B"",""RMPR*3.0*77"",1)"
^XMB(3.9,131,2,142,0)=""
^XMB(3.9,131,2,143,0)="""BLD"",6155,""REQB"",""B"",""RMPR*3.0*98"",3)"
^XMB(3.9,131,2,144,0)=""
^XMB(3.9,131,2,145,0)="""INIT"")"
^XMB(3.9,131,2,146,0)="RMPR110P"
^XMB(3.9,131,2,147,0)="""MBREQ"")"
^XMB(3.9,131,2,148,0)="0"
^XMB(3.9,131,2,149,0)="""PKG"",101,-1)"
^XMB(3.9,131,2,150,0)="1^1"
^XMB(3.9,131,2,151,0)="""PKG"",101,0)"
^XMB(3.9,131,2,152,0)="PROSTHETICS^RMPR^PROSTHETICS VERSION 3.0 ALPHA"
^XMB(3.9,131,2,153,0)="""PKG"",101,20,0)"
^XMB(3.9,131,2,154,0)="^9.402P^^0"
^XMB(3.9,131,2,155,0)="""PKG"",101,22,0)"
^XMB(3.9,131,2,156,0)="^9.49I^1^1"
^XMB(3.9,131,2,157,0)="""PKG"",101,22,1,0)"
^XMB(3.9,131,2,158,0)="3.0^2960209^2960214"
^XMB(3.9,131,2,159,0)="""PKG"",101,22,1,""PAH"",1,0)"
^XMB(3.9,131,2,160,0)="110^3060607"
^XMB(3.9,131,2,161,0)="""PKG"",101,22,1,""PAH"",1,1,0)"
^XMB(3.9,131,2,162,0)="^^4^4^3060607"
^XMB(3.9,131,2,163,0)="""PKG"",101,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,131,2,164,0)="1. Type of Transaction data missing in Extract."
^XMB(3.9,131,2,165,0)="""PKG"",101,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,131,2,166,0)=" "
^XMB(3.9,131,2,167,0)="""PKG"",101,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,131,2,168,0)="2. HOME/O2 Suspense Issue - PROSTHETICS PATIENT RECORDS NOT LINKED"
^XMB(3.9,131,2,169,0)="""PKG"",101,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,131,2,170,0)="    TO SUSPENSE."
^XMB(3.9,131,2,171,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,131,2,172,0)="Y"
^XMB(3.9,131,2,173,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,131,2,174,0)="^D REP^XPDH"
^XMB(3.9,131,2,175,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,131,2,176,0)="Shall I write over your |FLAG| File"
^XMB(3.9,131,2,177,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,131,2,178,0)="YES"
^XMB(3.9,131,2,179,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,131,2,180,0)="D XPF1^XPDIQ"
^XMB(3.9,131,2,181,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,131,2,182,0)="Y"
^XMB(3.9,131,2,183,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,131,2,184,0)="^D DTA^XPDH"
^XMB(3.9,131,2,185,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,131,2,186,0)="Want my data |FLAG| yours"
^XMB(3.9,131,2,187,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,131,2,188,0)="YES"
^XMB(3.9,131,2,189,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,131,2,190,0)="D XPF2^XPDIQ"
^XMB(3.9,131,2,191,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,131,2,192,0)="YO"
^XMB(3.9,131,2,193,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,131,2,194,0)="^D INHIBIT^XPDH"
^XMB(3.9,131,2,195,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,131,2,196,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,131,2,197,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,131,2,198,0)="YES"
^XMB(3.9,131,2,199,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,131,2,200,0)="D XPI1^XPDIQ"
^XMB(3.9,131,2,201,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,131,2,202,0)="PO^VA(200,:EM"
^XMB(3.9,131,2,203,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,131,2,204,0)="^D MG^XPDH"
^XMB(3.9,131,2,205,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,131,2,206,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,131,2,207,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,131,2,208,0)=""
^XMB(3.9,131,2,209,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,131,2,210,0)="D XPM1^XPDIQ"
^XMB(3.9,131,2,211,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,131,2,212,0)="Y"
^XMB(3.9,131,2,213,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,131,2,214,0)="^D MENU^XPDH"
^XMB(3.9,131,2,215,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,131,2,216,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,131,2,217,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,131,2,218,0)="YES"
^XMB(3.9,131,2,219,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,131,2,220,0)="D XPO1^XPDIQ"
^XMB(3.9,131,2,221,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,131,2,222,0)="Y"
^XMB(3.9,131,2,223,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,131,2,224,0)="^D OPT^XPDH"
^XMB(3.9,131,2,225,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,131,2,226,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,131,2,227,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,131,2,228,0)="YES"
^XMB(3.9,131,2,229,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,131,2,230,0)="D XPZ1^XPDIQ"
^XMB(3.9,131,2,231,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,131,2,232,0)="Y"
^XMB(3.9,131,2,233,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,131,2,234,0)="^D RTN^XPDH"
^XMB(3.9,131,2,235,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,131,2,236,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,131,2,237,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,131,2,238,0)="NO"
^XMB(3.9,131,2,239,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,131,2,240,0)="D XPZ2^XPDIQ"
^XMB(3.9,131,2,241,0)="""RTN"")"
^XMB(3.9,131,2,242,0)="5"
^XMB(3.9,131,2,243,0)="""RTN"",""RMPOBIL2"")"
^XMB(3.9,131,2,244,0)="0^2^B60026916^B60004905"
^XMB(3.9,131,2,245,0)="""RTN"",""RMPOBIL2"",1,0)"
^XMB(3.9,131,2,246,0)="RMPOBIL2 ;EDS/MDB - HOME OXYGEN BILLING TRANSACTIONS ;7/28/98"
^XMB(3.9,131,2,247,0)="""RTN"",""RMPOBIL2"",2,0)"
^XMB(3.9,131,2,248,0)=" ;;3.0;PROSTHETICS;**29,44,46,50,110**;Feb 09, 1996;Build 10"
^XMB(3.9,131,2,249,0)="""RTN"",""RMPOBIL2"",3,0)"
^XMB(3.9,131,2,250,0)=" ; ODJ patch 50 - Fix crashes reported in NOIS LIT-0600-70930"
^XMB(3.9,131,2,251,0)="""RTN"",""RMPOBIL2"",4,0)"
^XMB(3.9,131,2,252,0)=" Q"
^XMB(3.9,131,2,253,0)="""RTN"",""RMPOBIL2"",5,0)"
^XMB(3.9,131,2,254,0)="2319 ; SHOW PAGE 8 OF 2319"
^XMB(3.9,131,2,255,0)="""RTN"",""RMPOBIL2"",6,0)"
^XMB(3.9,131,2,256,0)=" ;S:$D(RMPRDFN)&('$D(RMPODFN)) RMPODFN=RMPRDFN"
^XMB(3.9,131,2,257,0)="""RTN"",""RMPOBIL2"",7,0)"
^XMB(3.9,131,2,258,0)=" S RMPODFN=RMPRDFN"
^XMB(3.9,131,2,259,0)="""RTN"",""RMPOBIL2"",8,0)"
^XMB(3.9,131,2,260,0)=" D BPI,DPI"
^XMB(3.9,131,2,261,0)="""RTN"",""RMPOBIL2"",9,0)"
^XMB(3.9,131,2,262,0)=" K DIR S DIR(0)=""E"" D ^DIR I $$QUIT G ASK1^RMPRPAT"
^XMB(3.9,131,2,263,0)="""RTN"",""RMPOBIL2"",10,0)"
^XMB(3.9,131,2,264,0)=" D ^RMPOBIL5"
^XMB(3.9,131,2,265,0)="""RTN"",""RMPOBIL2"",11,0)"
^XMB(3.9,131,2,266,0)=" K PTI,I,RX,Y,DT1,DT2,TRX,IENS,DFN"
^XMB(3.9,131,2,267,0)="""RTN"",""RMPOBIL2"",12,0)"
^XMB(3.9,131,2,268,0)=" Q"
^XMB(3.9,131,2,269,0)="""RTN"",""RMPOBIL2"",13,0)"
^XMB(3.9,131,2,270,0)="QUIT() S QUIT=$D(DTOUT)!$D(DUOUT)!$D(DIROUT) Q QUIT"
^XMB(3.9,131,2,271,0)="""RTN"",""RMPOBIL2"",14,0)"
^XMB(3.9,131,2,272,0)="EQUIT() S QUIT=$D(DTOUT)!$D(Y) Q QUIT"
^XMB(3.9,131,2,273,0)="""RTN"",""RMPOBIL2"",15,0)"
^XMB(3.9,131,2,274,0)="LJ(S,W,C) ; Left justify S in a field W wide padding with char C"
^XMB(3.9,131,2,275,0)="""RTN"",""RMPOBIL2"",16,0)"
^XMB(3.9,131,2,276,0)=" ;"
^XMB(3.9,131,2,277,0)="""RTN"",""RMPOBIL2"",17,0)"
^XMB(3.9,131,2,278,0)=" S C=$G(C,"" "")   ; Default pad char is space"
^XMB(3.9,131,2,279,0)="""RTN"",""RMPOBIL2"",18,0)"
^XMB(3.9,131,2,280,0)=" I $L(S)'=W S $P(S,C,W-$L(S)+$L(S,C))="""""
^XMB(3.9,131,2,281,0)="""RTN"",""RMPOBIL2"",19,0)"
^XMB(3.9,131,2,282,0)=" Q $E(S,1,W)"
^XMB(3.9,131,2,283,0)="""RTN"",""RMPOBIL2"",20,0)"
^XMB(3.9,131,2,284,0)="EDIT ;NEW billing transaction edit module"
^XMB(3.9,131,2,285,0)="""RTN"",""RMPOBIL2"",21,0)"
^XMB(3.9,131,2,286,0)=" ;This module edits a single billing transaction (trx)"
^XMB(3.9,131,2,287,0)="""RTN"",""RMPOBIL2"",22,0)"
^XMB(3.9,131,2,288,0)=" ;a single trx is identified by 4 values"
^XMB(3.9,131,2,289,0)="""RTN"",""RMPOBIL2"",23,0)"
^XMB(3.9,131,2,290,0)=" ;  site, billing month, vendor, and patient"
^XMB(3.9,131,2,291,0)="""RTN"",""RMPOBIL2"",24,0)"
^XMB(3.9,131,2,292,0)=" ;  these four values represent an entry in file 665.72"
^XMB(3.9,131,2,293,0)="""RTN"",""RMPOBIL2"",25,0)"
^XMB(3.9,131,2,294,0)=" ;"
^XMB(3.9,131,2,295,0)="""RTN"",""RMPOBIL2"",26,0)"
^XMB(3.9,131,2,296,0)=" Q:'($D(RMPOXITE)&$D(RMPORVDT)&$D(RMPOVDR)&$D(RMPODFN))"
^XMB(3.9,131,2,297,0)="""RTN"",""RMPOBIL2"",27,0)"
^XMB(3.9,131,2,298,0)=" Q:'$D(^RMPO(665.72,+RMPOXITE,1,+RMPORVDT,1,+RMPOVDR,""V"",+RMPODFN))"
^XMB(3.9,131,2,299,0)="""RTN"",""RMPOBIL2"",28,0)"
^XMB(3.9,131,2,300,0)=" ; previous two lines for development only - shouldn't be needed"
^XMB(3.9,131,2,301,0)="""RTN"",""RMPOBIL2"",29,0)"
^XMB(3.9,131,2,302,0)=" ;"
^XMB(3.9,131,2,303,0)="""RTN"",""RMPOBIL2"",30,0)"
^XMB(3.9,131,2,304,0)=" D ITEM"
^XMB(3.9,131,2,305,0)="""RTN"",""RMPOBIL2"",31,0)"
^XMB(3.9,131,2,306,0)="EXIT L -^RMPO(665.72,RMPOXITE,1,RMPORVDT,1,RMPOVDR,""V"",RMPODFN,0)"
^XMB(3.9,131,2,307,0)="""RTN"",""RMPOBIL2"",32,0)"
^XMB(3.9,131,2,308,0)=" K ITM,IEN,IENS,ITMACT,PTI,TMP,ZX1,TOT,T910,OTH,A,RX,TRX,DT1,DT2"
^XMB(3.9,131,2,309,0)="""RTN"",""RMPOBIL2"",33,0)"
^XMB(3.9,131,2,310,0)=" K DIC,DIE,DA,DR,DO,DD,DIR,DIK,DIROUT,DUOUT"
^XMB(3.9,131,2,311,0)="""RTN"",""RMPOBIL2"",34,0)"
^XMB(3.9,131,2,312,0)=" K TIEN,FCP,DFN,I,ITEM,NEW,QUIT,TOTAL,VADM,X,Y,Z,Z1,Z2,ZV,Z3"
^XMB(3.9,131,2,313,0)="""RTN"",""RMPOBIL2"",35,0)"
^XMB(3.9,131,2,314,0)=" K PSTFLG,PITM,BACKPTR,POSTED,SUSP,DFCP,C,W,S,CIEN,RMIT,RMDIC"
^XMB(3.9,131,2,315,0)="""RTN"",""RMPOBIL2"",36,0)"
^XMB(3.9,131,2,316,0)=" Q"
^XMB(3.9,131,2,317,0)="""RTN"",""RMPOBIL2"",37,0)"
^XMB(3.9,131,2,318,0)="QUIK ; QUICK ITEM EDIT"
^XMB(3.9,131,2,319,0)="""RTN"",""RMPOBIL2"",38,0)"
^XMB(3.9,131,2,320,0)=" ;"
^XMB(3.9,131,2,321,0)="""RTN"",""RMPOBIL2"",39,0)"
^XMB(3.9,131,2,322,0)=" I '$$OK2EDIT D  Q"
^XMB(3.9,131,2,323,0)="""RTN"",""RMPOBIL2"",40,0)"
^XMB(3.9,131,2,324,0)=" . W !,$C(7)_""Cannot edit Accepted Transactions.  """
^XMB(3.9,131,2,325,0)="""RTN"",""RMPOBIL2"",41,0)"
^XMB(3.9,131,2,326,0)=" . W ""Please 'Unaccept' first."" K DIR S DIR(0)=""E"" D ^DIR"
^XMB(3.9,131,2,327,0)="""RTN"",""RMPOBIL2"",42,0)"
^XMB(3.9,131,2,328,0)=" I $$LOCKED D  Q"
^XMB(3.9,131,2,329,0)="""RTN"",""RMPOBIL2"",43,0)"
^XMB(3.9,131,2,330,0)=" . W !,$C(7)_""Record is locked. "" K DIR S DIR(0)=""E"" D ^DIR"
^XMB(3.9,131,2,331,0)="""RTN"",""RMPOBIL2"",44,0)"
^XMB(3.9,131,2,332,0)=" D ITEMD"
^XMB(3.9,131,2,333,0)="""RTN"",""RMPOBIL2"",45,0)"
^XMB(3.9,131,2,334,0)=" F I=1:1:IEN D  Q:QUIT"
^XMB(3.9,131,2,335,0)="""RTN"",""RMPOBIL2"",46,0)"
^XMB(3.9,131,2,336,0)=" . W !,ITM(I)"
^XMB(3.9,131,2,337,0)="""RTN"",""RMPOBIL2"",47,0)"
^XMB(3.9,131,2,338,0)=" .K DR D SDICE"
^XMB(3.9,131,2,339,0)="""RTN"",""RMPOBIL2"",48,0)"
^XMB(3.9,131,2,340,0)=" .S DA=IEN(I),DR=""7"" D ^DIE Q:$$EQUIT"
^XMB(3.9,131,2,341,0)="""RTN"",""RMPOBIL2"",49,0)"
^XMB(3.9,131,2,342,0)=" .S Z=^RMPO(665.72,DA(4),1,DA(3),1,DA(2),""V"",DA(1),1,DA,0)"
^XMB(3.9,131,2,343,0)="""RTN"",""RMPOBIL2"",50,0)"
^XMB(3.9,131,2,344,0)=" .S Z1=$P(Z,U,7),Z2=$P(Z,U,5),Z3=$P(Z,U,11)"
^XMB(3.9,131,2,345,0)="""RTN"",""RMPOBIL2"",51,0)"
^XMB(3.9,131,2,346,0)=" .S DR=""6///""_((Z1*Z2)-Z3) D ^DIE Q:$$EQUIT"
^XMB(3.9,131,2,347,0)="""RTN"",""RMPOBIL2"",52,0)"
^XMB(3.9,131,2,348,0)=" D BII,DII"
^XMB(3.9,131,2,349,0)="""RTN"",""RMPOBIL2"",53,0)"
^XMB(3.9,131,2,350,0)=" K DIR S DIR(0)=""E"" D ^DIR Q:$$QUIT"
^XMB(3.9,131,2,351,0)="""RTN"",""RMPOBIL2"",54,0)"
^XMB(3.9,131,2,352,0)=" G EXIT"
^XMB(3.9,131,2,353,0)="""RTN"",""RMPOBIL2"",55,0)"
^XMB(3.9,131,2,354,0)=" Q"
^XMB(3.9,131,2,355,0)="""RTN"",""RMPOBIL2"",56,0)"
^XMB(3.9,131,2,356,0)="ITEM ; Main edit loop"
^XMB(3.9,131,2,357,0)="""RTN"",""RMPOBIL2"",57,0)"
^XMB(3.9,131,2,358,0)=" ;"
^XMB(3.9,131,2,359,0)="""RTN"",""RMPOBIL2"",58,0)"
^XMB(3.9,131,2,360,0)=" I '$$OK2EDIT D  Q"
^XMB(3.9,131,2,361,0)="""RTN"",""RMPOBIL2"",59,0)"
^XMB(3.9,131,2,362,0)=" . W !,$C(7)_""Cannot edit Accepted Transactions.  """
^XMB(3.9,131,2,363,0)="""RTN"",""RMPOBIL2"",60,0)"
^XMB(3.9,131,2,364,0)=" . W ""Please 'Unaccept' first."" K DIR S DIR(0)=""E"" D ^DIR"
^XMB(3.9,131,2,365,0)="""RTN"",""RMPOBIL2"",61,0)"
^XMB(3.9,131,2,366,0)=" I $$LOCKED D  Q"
^XMB(3.9,131,2,367,0)="""RTN"",""RMPOBIL2"",62,0)"
^XMB(3.9,131,2,368,0)=" . W !,$C(7)_""Record is locked. "" K DIR S DIR(0)=""E"" D ^DIR"
^XMB(3.9,131,2,369,0)="""RTN"",""RMPOBIL2"",63,0)"
^XMB(3.9,131,2,370,0)=" ;"
^XMB(3.9,131,2,371,0)="""RTN"",""RMPOBIL2"",64,0)"
^XMB(3.9,131,2,372,0)="ITEMLOOP ;"
^XMB(3.9,131,2,373,0)="""RTN"",""RMPOBIL2"",65,0)"
^XMB(3.9,131,2,374,0)=" ;"
^XMB(3.9,131,2,375,0)="""RTN"",""RMPOBIL2"",66,0)"
^XMB(3.9,131,2,376,0)=" S QUIT=0"
^XMB(3.9,131,2,377,0)="""RTN"",""RMPOBIL2"",67,0)"
^XMB(3.9,131,2,378,0)=" D ITEMD"
^XMB(3.9,131,2,379,0)="""RTN"",""RMPOBIL2"",68,0)"
^XMB(3.9,131,2,380,0)=" ; ask for ACTION, quit if <return>, timeout, etc"
^XMB(3.9,131,2,381,0)="""RTN"",""RMPOBIL2"",69,0)"
^XMB(3.9,131,2,382,0)=" S ITMACT=$$ITEMO Q:$$QUIT!(ITMACT="""")"
^XMB(3.9,131,2,383,0)="""RTN"",""RMPOBIL2"",70,0)"
^XMB(3.9,131,2,384,0)=" ; if they entered 'A', do ADD ITEM, then edit it"
^XMB(3.9,131,2,385,0)="""RTN"",""RMPOBIL2"",71,0)"
^XMB(3.9,131,2,386,0)=" I ITMACT=""A"" D ITEMA Q:QUIT!(ITEM="""")  D ITEME Q:QUIT  G ITEMLOOP"
^XMB(3.9,131,2,387,0)="""RTN"",""RMPOBIL2"",72,0)"
^XMB(3.9,131,2,388,0)=" ; if they entered 'D', select an item, then delete it"
^XMB(3.9,131,2,389,0)="""RTN"",""RMPOBIL2"",73,0)"
^XMB(3.9,131,2,390,0)=" I ITMACT=""D"" D ITEMS Q:QUIT!(ITEM="""")  D ITEMK G ITEMLOOP"
^XMB(3.9,131,2,391,0)="""RTN"",""RMPOBIL2"",74,0)"
^XMB(3.9,131,2,392,0)=" ; if they entered 'E', select an item, then edit it"
^XMB(3.9,131,2,393,0)="""RTN"",""RMPOBIL2"",75,0)"
^XMB(3.9,131,2,394,0)=" I ITMACT=""E"" D ITEMS Q:QUIT!(ITEM="""")  D ITEME Q:QUIT  G ITEMLOOP"
^XMB(3.9,131,2,395,0)="""RTN"",""RMPOBIL2"",76,0)"
^XMB(3.9,131,2,396,0)=" ; if they entered 'Z', select an item, then zero it"
^XMB(3.9,131,2,397,0)="""RTN"",""RMPOBIL2"",77,0)"
^XMB(3.9,131,2,398,0)=" I ITMACT=""Z"" D ITEMS Q:QUIT!(ITEM="""")  D ITEMZ Q:QUIT  G ITEMLOOP"
^XMB(3.9,131,2,399,0)="""RTN"",""RMPOBIL2"",78,0)"
^XMB(3.9,131,2,400,0)=" G ITEMLOOP"
^XMB(3.9,131,2,401,0)="""RTN"",""RMPOBIL2"",79,0)"
^XMB(3.9,131,2,402,0)=" Q"
^XMB(3.9,131,2,403,0)="""RTN"",""RMPOBIL2"",80,0)"
^XMB(3.9,131,2,404,0)="OK2EDIT() ;"
^XMB(3.9,131,2,405,0)="""RTN"",""RMPOBIL2"",81,0)"
^XMB(3.9,131,2,406,0)=" ;"
^XMB(3.9,131,2,407,0)="""RTN"",""RMPOBIL2"",82,0)"
^XMB(3.9,131,2,408,0)=" Q $P(^RMPO(665.72,RMPOXITE,1,RMPORVDT,1,RMPOVDR,""V"",RMPODFN,0),U,2)'=""Y"""
^XMB(3.9,131,2,409,0)="""RTN"",""RMPOBIL2"",83,0)"
^XMB(3.9,131,2,410,0)=" Q"
^XMB(3.9,131,2,411,0)="""RTN"",""RMPOBIL2"",84,0)"
^XMB(3.9,131,2,412,0)="LOCKED() ;"
^XMB(3.9,131,2,413,0)="""RTN"",""RMPOBIL2"",85,0)"
^XMB(3.9,131,2,414,0)=" ;"
^XMB(3.9,131,2,415,0)="""RTN"",""RMPOBIL2"",86,0)"
^XMB(3.9,131,2,416,0)=" L +^RMPO(665.72,RMPOXITE,1,RMPORVDT,1,RMPOVDR,""V"",RMPODFN,0):2"
^XMB(3.9,131,2,417,0)="""RTN"",""RMPOBIL2"",87,0)"
^XMB(3.9,131,2,418,0)=" Q '$T"
^XMB(3.9,131,2,419,0)="""RTN"",""RMPOBIL2"",88,0)"
^XMB(3.9,131,2,420,0)=" Q"
^XMB(3.9,131,2,421,0)="""RTN"",""RMPOBIL2"",89,0)"
^XMB(3.9,131,2,422,0)="ITEMD ; Display items"
^XMB(3.9,131,2,423,0)="""RTN"",""RMPOBIL2"",90,0)"
^XMB(3.9,131,2,424,0)=" ;"
^XMB(3.9,131,2,425,0)="""RTN"",""RMPOBIL2"",91,0)"
^XMB(3.9,131,2,426,0)=" D BPI,DPI,BII,DII"
^XMB(3.9,131,2,427,0)="""RTN"",""RMPOBIL2"",92,0)"
^XMB(3.9,131,2,428,0)=" Q"
^XMB(3.9,131,2,429,0)="""RTN"",""RMPOBIL2"",93,0)"
^XMB(3.9,131,2,430,0)="BPI ; Build pt info hdr"
^XMB(3.9,131,2,431,0)="""RTN"",""RMPOBIL2"",94,0)"
^XMB(3.9,131,2,432,0)=" K PTI"
^XMB(3.9,131,2,433,0)="""RTN"",""RMPOBIL2"",95,0)"
^XMB(3.9,131,2,434,0)=" ; Name,SSN"
^XMB(3.9,131,2,435,0)="""RTN"",""RMPOBIL2"",96,0)"
^XMB(3.9,131,2,436,0)=" S DFN=RMPODFN D DEM^VADPT"
^XMB(3.9,131,2,437,0)="""RTN"",""RMPOBIL2"",97,0)"
^XMB(3.9,131,2,438,0)=" S PTI(1)=VADM(1)_""    ""_$P(VADM(2),U,2)"
^XMB(3.9,131,2,439,0)="""RTN"",""RMPOBIL2"",98,0)"
^XMB(3.9,131,2,440,0)=" ; Current Rx (IEN on ACT DATE)"
^XMB(3.9,131,2,441,0)="""RTN"",""RMPOBIL2"",99,0)"
^XMB(3.9,131,2,442,0)=" S RX=$O(^RMPR(665,RMPODFN,""RMPOB"","" ""),-1)"
^XMB(3.9,131,2,443,0)="""RTN"",""RMPOBIL2"",100,0)"
^XMB(3.9,131,2,444,0)=" Q:'RX"
^XMB(3.9,131,2,445,0)="""RTN"",""RMPOBIL2"",101,0)"
^XMB(3.9,131,2,446,0)=" S Y=$P(^RMPR(665,RMPODFN,""RMPOB"",RX,0),U) X ^DD(""DD"") S DT1=Y"
^XMB(3.9,131,2,447,0)="""RTN"",""RMPOBIL2"",102,0)"
^XMB(3.9,131,2,448,0)=" S Y=$P(^RMPR(665,RMPODFN,""RMPOB"",RX,0),U,3) X ^DD(""DD"") S DT2=Y"
^XMB(3.9,131,2,449,0)="""RTN"",""RMPOBIL2"",103,0)"
^XMB(3.9,131,2,450,0)=" S PTI(2)=""Current Prescription (#""_RX_"")"""
^XMB(3.9,131,2,451,0)="""RTN"",""RMPOBIL2"",104,0)"
^XMB(3.9,131,2,452,0)=" S PTI(3)=""      Active Date: ""_DT1_""    Expiration Date: ""_DT2"
^XMB(3.9,131,2,453,0)="""RTN"",""RMPOBIL2"",105,0)"
^XMB(3.9,131,2,454,0)=" ; Rx Remarks"
^XMB(3.9,131,2,455,0)="""RTN"",""RMPOBIL2"",106,0)"
^XMB(3.9,131,2,456,0)=" K TRX"
^XMB(3.9,131,2,457,0)="""RTN"",""RMPOBIL2"",107,0)"
^XMB(3.9,131,2,458,0)=" S IENS=RX_"",""_RMPODFN_"","""
^XMB(3.9,131,2,459,0)="""RTN"",""RMPOBIL2"",108,0)"
^XMB(3.9,131,2,460,0)=" D GETS^DIQ(665.193,IENS,3,,""TRX"")"
^XMB(3.9,131,2,461,0)="""RTN"",""RMPOBIL2"",109,0)"
^XMB(3.9,131,2,462,0)=" S I=0 F  S I=$O(TRX(665.193,IENS,3,I)) Q:I=""""  D"
^XMB(3.9,131,2,463,0)="""RTN"",""RMPOBIL2"",110,0)"
^XMB(3.9,131,2,464,0)=" . S PTI(3+I)=""      ""_TRX(665.193,IENS,3,I)"
^XMB(3.9,131,2,465,0)="""RTN"",""RMPOBIL2"",111,0)"
^XMB(3.9,131,2,466,0)=" Q"
^XMB(3.9,131,2,467,0)="""RTN"",""RMPOBIL2"",112,0)"
^XMB(3.9,131,2,468,0)="DPI ; Display pt info hdr"
^XMB(3.9,131,2,469,0)="""RTN"",""RMPOBIL2"",113,0)"
^XMB(3.9,131,2,470,0)=" S I=0 F  S I=$O(PTI(I)) Q:I=""""  W !,PTI(I)"
^XMB(3.9,131,2,471,0)="""RTN"",""RMPOBIL2"",114,0)"
^XMB(3.9,131,2,472,0)=" Q"
^XMB(3.9,131,2,473,0)="""RTN"",""RMPOBIL2"",115,0)"
^XMB(3.9,131,2,474,0)="BII ; Build item info array"
^XMB(3.9,131,2,475,0)="""RTN"",""RMPOBIL2"",116,0)"
^XMB(3.9,131,2,476,0)=" K TRX,ITM,TOT,SUSP,POSTED,PITM,IEN,CIEN"
^XMB(3.9,131,2,477,0)="""RTN"",""RMPOBIL2"",117,0)"
^XMB(3.9,131,2,478,0)=" S SUSP=0,CIEN=1"
^XMB(3.9,131,2,479,0)="""RTN"",""RMPOBIL2"",118,0)"
^XMB(3.9,131,2,480,0)=" S IENS=RMPODFN_"",""_RMPOVDR_"",""_RMPORVDT_"",""_RMPOXITE"
^XMB(3.9,131,2,481,0)="""RTN"",""RMPOBIL2"",119,0)"
^XMB(3.9,131,2,482,0)=" D GETS^DIQ(665.72319,IENS,""**"",""IE"",""TRX"")"
^XMB(3.9,131,2,483,0)="""RTN"",""RMPOBIL2"",120,0)"
^XMB(3.9,131,2,484,0)=" S ZX1="""""
^XMB(3.9,131,2,485,0)="""RTN"",""RMPOBIL2"",121,0)"
^XMB(3.9,131,2,486,0)=" F IEN=0:1 S ZX1=$O(TRX(665.723191,ZX1)) Q:ZX1=""""  D"
^XMB(3.9,131,2,487,0)="""RTN"",""RMPOBIL2"",122,0)"
^XMB(3.9,131,2,488,0)=" . K TMP M TMP=TRX(665.723191,ZX1)"
^XMB(3.9,131,2,489,0)="""RTN"",""RMPOBIL2"",123,0)"
^XMB(3.9,131,2,490,0)=" . F Z=5,6,10 S TMP(Z,""E"")=$J($G(TMP(Z,""E"")),0,2)"
^XMB(3.9,131,2,491,0)="""RTN"",""RMPOBIL2"",124,0)"
^XMB(3.9,131,2,492,0)=" . S TIEN=+ZX1 D BIIL"
^XMB(3.9,131,2,493,0)="""RTN"",""RMPOBIL2"",125,0)"
^XMB(3.9,131,2,494,0)=" K TMP"
^XMB(3.9,131,2,495,0)="""RTN"",""RMPOBIL2"",126,0)"
^XMB(3.9,131,2,496,0)=" S TMP(2,""E"")=""HCPCS"""
^XMB(3.9,131,2,497,0)="""RTN"",""RMPOBIL2"",127,0)"
^XMB(3.9,131,2,498,0)=" S TMP(.01,""E"")=""Description"""
^XMB(3.9,131,2,499,0)="""RTN"",""RMPOBIL2"",128,0)"
^XMB(3.9,131,2,500,0)=" S TMP(3,""E"")=""FCP"""
^XMB(3.9,131,2,501,0)="""RTN"",""RMPOBIL2"",129,0)"
^XMB(3.9,131,2,502,0)=" S TMP(7,""E"")=""Qty"""
^XMB(3.9,131,2,503,0)="""RTN"",""RMPOBIL2"",130,0)"
^XMB(3.9,131,2,504,0)=" S TMP(5,""E"")=""Cost"""
^XMB(3.9,131,2,505,0)="""RTN"",""RMPOBIL2"",131,0)"
^XMB(3.9,131,2,506,0)=" S TMP(6,""E"")=""Total"""
^XMB(3.9,131,2,507,0)="""RTN"",""RMPOBIL2"",132,0)"
^XMB(3.9,131,2,508,0)=" S TMP(8,""I"")="" """
^XMB(3.9,131,2,509,0)="""RTN"",""RMPOBIL2"",133,0)"
^XMB(3.9,131,2,510,0)=" S TMP(10,""E"")=""Susp."""
^XMB(3.9,131,2,511,0)="""RTN"",""RMPOBIL2"",134,0)"
^XMB(3.9,131,2,512,0)=" S (CIEN,TIEN)=0 D BIIL"
^XMB(3.9,131,2,513,0)="""RTN"",""RMPOBIL2"",135,0)"
^XMB(3.9,131,2,514,0)=" Q"
^XMB(3.9,131,2,515,0)="""RTN"",""RMPOBIL2"",136,0)"
^XMB(3.9,131,2,516,0)="BIIL ;Build detail line"
^XMB(3.9,131,2,517,0)="""RTN"",""RMPOBIL2"",137,0)"
^XMB(3.9,131,2,518,0)=" ;"
^XMB(3.9,131,2,519,0)="""RTN"",""RMPOBIL2"",138,0)"
^XMB(3.9,131,2,520,0)=" S:TIEN IEN(CIEN)=TIEN ;S:TIEN IEN(TIEN)=TIEN"
^XMB(3.9,131,2,521,0)="""RTN"",""RMPOBIL2"",139,0)"
^XMB(3.9,131,2,522,0)=" S ITM(CIEN)=""   """
^XMB(3.9,131,2,523,0)="""RTN"",""RMPOBIL2"",140,0)"
^XMB(3.9,131,2,524,0)=" ;S:TIEN ITM(TIEN)=$J(TIEN,2)_"".""                     ; ITEM #"
^XMB(3.9,131,2,525,0)="""RTN"",""RMPOBIL2"",141,0)"
^XMB(3.9,131,2,526,0)=" S:TIEN ITM(CIEN)=$J(CIEN,2)_"".""                          ; ITEM #"
^XMB(3.9,131,2,527,0)="""RTN"",""RMPOBIL2"",142,0)"
^XMB(3.9,131,2,528,0)=" S PSTFLG=$S($G(TMP(8,""I""))=""Y"":""p"",1:"" "")"
^XMB(3.9,131,2,529,0)="""RTN"",""RMPOBIL2"",143,0)"
^XMB(3.9,131,2,530,0)=" S BACKPTR=$G(TMP(12,""I""))"
^XMB(3.9,131,2,531,0)="""RTN"",""RMPOBIL2"",144,0)"
^XMB(3.9,131,2,532,0)=" S TMP(.01,""E"")=$G(TMP(.01,""E""))_""                          """
^XMB(3.9,131,2,533,0)="""RTN"",""RMPOBIL2"",145,0)"
^XMB(3.9,131,2,534,0)=" S ITM(CIEN)=ITM(CIEN)_$$LJ(PSTFLG,2)                      ; POSTED"
^XMB(3.9,131,2,535,0)="""RTN"",""RMPOBIL2"",146,0)"
^XMB(3.9,131,2,536,0)=" S ITM(CIEN)=ITM(CIEN)_$$LJ($G(TMP(2,""E"")),7)              ; HCPCS"
^XMB(3.9,131,2,537,0)="""RTN"",""RMPOBIL2"",147,0)"
^XMB(3.9,131,2,538,0)=" S ITM(CIEN)=ITM(CIEN)_$$LJ($G(TMP(.01,""E"")),30)           ; ITEM DESCR"
^XMB(3.9,131,2,539,0)="""RTN"",""RMPOBIL2"",148,0)"
^XMB(3.9,131,2,540,0)=" S ITM(CIEN)=ITM(CIEN)_""  ""_$$LJ($P($G(TMP(3,""E"")),"" ""),5)  ; FCP"
^XMB(3.9,131,2,541,0)="""RTN"",""RMPOBIL2"",149,0)"
^XMB(3.9,131,2,542,0)=" S ITM(CIEN)=ITM(CIEN)_$J($G(TMP(7,""E"")),5)                 ; QTY"
^XMB(3.9,131,2,543,0)="""RTN"",""RMPOBIL2"",150,0)"
^XMB(3.9,131,2,544,0)=" S ITM(CIEN)=ITM(CIEN)_$J($G(TMP(5,""E"")),8)                 ; UNIT COST"
^XMB(3.9,131,2,545,0)="""RTN"",""RMPOBIL2"",151,0)"
^XMB(3.9,131,2,546,0)=" S ITM(CIEN)=ITM(CIEN)_$J($G(TMP(10,""E"")),8)                ; SUSP"
^XMB(3.9,131,2,547,0)="""RTN"",""RMPOBIL2"",152,0)"
^XMB(3.9,131,2,548,0)=" S ITM(CIEN)=ITM(CIEN)_$J($G(TMP(6,""E"")),8)                 ; QTY * CST"
^XMB(3.9,131,2,549,0)="""RTN"",""RMPOBIL2"",153,0)"
^XMB(3.9,131,2,550,0)=" ; Quit if we're doing the header"
^XMB(3.9,131,2,551,0)="""RTN"",""RMPOBIL2"",154,0)"
^XMB(3.9,131,2,552,0)=" Q:TIEN=0"
^XMB(3.9,131,2,553,0)="""RTN"",""RMPOBIL2"",155,0)"
^XMB(3.9,131,2,554,0)=" I $G(TMP(8,""I""))=""Y"" S POSTED(TIEN)="""""
^XMB(3.9,131,2,555,0)="""RTN"",""RMPOBIL2"",156,0)"
^XMB(3.9,131,2,556,0)=" ; Do totals while we're here"
^XMB(3.9,131,2,557,0)="""RTN"",""RMPOBIL2"",157,0)"
^XMB(3.9,131,2,558,0)=" S FCP=+TMP(3,""E""),TOTAL=TMP(6,""E"")"
^XMB(3.9,131,2,559,0)="""RTN"",""RMPOBIL2"",158,0)"
^XMB(3.9,131,2,560,0)=" S TOT(FCP)=$G(TOT(FCP))+TOTAL"
^XMB(3.9,131,2,561,0)="""RTN"",""RMPOBIL2"",159,0)"
^XMB(3.9,131,2,562,0)=" S TOT=$G(TOT)+TOTAL"
^XMB(3.9,131,2,563,0)="""RTN"",""RMPOBIL2"",160,0)"
^XMB(3.9,131,2,564,0)=" S SUSP=SUSP+$G(TMP(10,""E"")),CIEN=CIEN+1"
^XMB(3.9,131,2,565,0)="""RTN"",""RMPOBIL2"",161,0)"
^XMB(3.9,131,2,566,0)=" Q"
^XMB(3.9,131,2,567,0)="""RTN"",""RMPOBIL2"",162,0)"
^XMB(3.9,131,2,568,0)="DII ; Display item info array"
^XMB(3.9,131,2,569,0)="""RTN"",""RMPOBIL2"",163,0)"
^XMB(3.9,131,2,570,0)=" Q:'$G(IEN)"
^XMB(3.9,131,2,571,0)="""RTN"",""RMPOBIL2"",164,0)"
^XMB(3.9,131,2,572,0)=" W ! F I=0:1:IEN W !,ITM(I)"
^XMB(3.9,131,2,573,0)="""RTN"",""RMPOBIL2"",165,0)"
^XMB(3.9,131,2,574,0)=" W !!,""TOTAL COST"",?72,$J(TOT,6,2),!"
^XMB(3.9,131,2,575,0)="""RTN"",""RMPOBIL2"",166,0)"
^XMB(3.9,131,2,576,0)=" W !,""Total 910 Charges:"",?72,$J(+$G(TOT(910)),6,2),!"
^XMB(3.9,131,2,577,0)="""RTN"",""RMPOBIL2"",167,0)"
^XMB(3.9,131,2,578,0)=" W !,""Total Station FCP Charges:"",?72,$J(TOT-$G(TOT(910)),6,2),!"
^XMB(3.9,131,2,579,0)="""RTN"",""RMPOBIL2"",168,0)"
^XMB(3.9,131,2,580,0)=" W:SUSP !,""Total Suspended Charges:"",?72,$J(SUSP,6,2),!"
^XMB(3.9,131,2,581,0)="""RTN"",""RMPOBIL2"",169,0)"
^XMB(3.9,131,2,582,0)=" Q"
^XMB(3.9,131,2,583,0)="""RTN"",""RMPOBIL2"",170,0)"
^XMB(3.9,131,2,584,0)="ITEMO() ; Select action (A/E/D/Z)"
^XMB(3.9,131,2,585,0)="""RTN"",""RMPOBIL2"",171,0)"
^XMB(3.9,131,2,586,0)=" K DIR"
^XMB(3.9,131,2,587,0)="""RTN"",""RMPOBIL2"",172,0)"
^XMB(3.9,131,2,588,0)=" S DIR(0)=""SBO^A:Add;D:Delete;E:Edit;Z:Zero"""
^XMB(3.9,131,2,589,0)="""RTN"",""RMPOBIL2"",173,0)"
^XMB(3.9,131,2,590,0)=" S DIR(""A"")=""Select ACTION"" D ^DIR"
^XMB(3.9,131,2,591,0)="""RTN"",""RMPOBIL2"",174,0)"
^XMB(3.9,131,2,592,0)=" Q Y"
^XMB(3.9,131,2,593,0)="""RTN"",""RMPOBIL2"",175,0)"
^XMB(3.9,131,2,594,0)=" Q"
^XMB(3.9,131,2,595,0)="""RTN"",""RMPOBIL2"",176,0)"
^XMB(3.9,131,2,596,0)="ITEMA ; Add an item"
^XMB(3.9,131,2,597,0)="""RTN"",""RMPOBIL2"",177,0)"
^XMB(3.9,131,2,598,0)=" S ITEM="""""
^XMB(3.9,131,2,599,0)="""RTN"",""RMPOBIL2"",178,0)"
^XMB(3.9,131,2,600,0)=" K DIC S DIC=""^RMPR(661,"",DIC(0)=""AEQMZ"" D ^DIC Q:Y<0!$$QUIT"
^XMB(3.9,131,2,601,0)="""RTN"",""RMPOBIL2"",179,0)"
^XMB(3.9,131,2,602,0)=" S NEW=+Y"
^XMB(3.9,131,2,603,0)="""RTN"",""RMPOBIL2"",180,0)"
^XMB(3.9,131,2,604,0)=" K DD,DO D SDICE S DIC(0)=""LN"" S X=NEW"
^XMB(3.9,131,2,605,0)="""RTN"",""RMPOBIL2"",181,0)"
^XMB(3.9,131,2,606,0)=" D FILE^DICN Q:Y<0!$$QUIT"
^XMB(3.9,131,2,607,0)="""RTN"",""RMPOBIL2"",182,0)"
^XMB(3.9,131,2,608,0)=" S DA=+Y,DR=""2;9"" D ^DIE I $$EQUIT S DIK=DIE D WAK Q"
^XMB(3.9,131,2,609,0)="""RTN"",""RMPOBIL2"",183,0)"
^XMB(3.9,131,2,610,0)=" ;S FCP=$$GETFCP^RMPOBILU I $$QUIT!(FCP<0) S DIK=DIE D WAK Q"
^XMB(3.9,131,2,611,0)="""RTN"",""RMPOBIL2"",184,0)"
^XMB(3.9,131,2,612,0)=" ;S DR=""3///""_$P(FCP,U,2) D ^DIE I $$EQUIT S DIK=DIE D WAK Q"
^XMB(3.9,131,2,613,0)="""RTN"",""RMPOBIL2"",185,0)"
^XMB(3.9,131,2,614,0)=" ;S ITEM=DA,IEN=$G(IEN)+1,IEN(IEN)=ITEM"
^XMB(3.9,131,2,615,0)="""RTN"",""RMPOBIL2"",186,0)"
^XMB(3.9,131,2,616,0)=" S IEN=$G(IEN)+1,IEN(IEN)=DA,ITEM=IEN"
^XMB(3.9,131,2,617,0)="""RTN"",""RMPOBIL2"",187,0)"
^XMB(3.9,131,2,618,0)=" Q"
^XMB(3.9,131,2,619,0)="""RTN"",""RMPOBIL2"",188,0)"
^XMB(3.9,131,2,620,0)="SDICE ; Set DIC,DIE,DA for adding Trx items"
^XMB(3.9,131,2,621,0)="""RTN"",""RMPOBIL2"",189,0)"
^XMB(3.9,131,2,622,0)=" K DIC,DIE,DA"
^XMB(3.9,131,2,623,0)="""RTN"",""RMPOBIL2"",190,0)"
^XMB(3.9,131,2,624,0)=" S ZV="",""""V"""","""
^XMB(3.9,131,2,625,0)="""RTN"",""RMPOBIL2"",191,0)"
^XMB(3.9,131,2,626,0)=" S DA(1)=RMPODFN,DA(2)=RMPOVDR,DA(3)=RMPORVDT,DA(4)=RMPOXITE"
^XMB(3.9,131,2,627,0)="""RTN"",""RMPOBIL2"",192,0)"
^XMB(3.9,131,2,628,0)=" S DIC=""^RMPO(665.72,""_DA(4)_"",1,""_DA(3)_"",1,""_DA(2)_ZV_DA(1)_"",1,"""
^XMB(3.9,131,2,629,0)="""RTN"",""RMPOBIL2"",193,0)"
^XMB(3.9,131,2,630,0)=" S DIE=DIC"
^XMB(3.9,131,2,631,0)="""RTN"",""RMPOBIL2"",194,0)"
^XMB(3.9,131,2,632,0)=" Q"
^XMB(3.9,131,2,633,0)="""RTN"",""RMPOBIL2"",195,0)"
^XMB(3.9,131,2,634,0)="ITEMS ; Select an item"
^XMB(3.9,131,2,635,0)="""RTN"",""RMPOBIL2"",196,0)"
^XMB(3.9,131,2,636,0)=" I IEN=1 S ITEM=1 Q"
^XMB(3.9,131,2,637,0)="""RTN"",""RMPOBIL2"",197,0)"
^XMB(3.9,131,2,638,0)=" K DIR"
^XMB(3.9,131,2,639,0)="""RTN"",""RMPOBIL2"",198,0)"
^XMB(3.9,131,2,640,0)=" S ITEM="""""
^XMB(3.9,131,2,641,0)="""RTN"",""RMPOBIL2"",199,0)"
^XMB(3.9,131,2,642,0)=" S DIR(0)=""NO^1:""_IEN,DIR(""A"")=""Select an ITEM"""
^XMB(3.9,131,2,643,0)="""RTN"",""RMPOBIL2"",200,0)"
^XMB(3.9,131,2,644,0)=" S DIR(""?"")=""Note:  You cannot select POSTED items"""
^XMB(3.9,131,2,645,0)="""RTN"",""RMPOBIL2"",201,0)"
^XMB(3.9,131,2,646,0)=" M DIR(""?"")=ITM"
^XMB(3.9,131,2,647,0)="""RTN"",""RMPOBIL2"",202,0)"
^XMB(3.9,131,2,648,0)=" D ^DIR Q:Y'>0!$$QUIT"
^XMB(3.9,131,2,649,0)="""RTN"",""RMPOBIL2"",203,0)"
^XMB(3.9,131,2,650,0)=" I $D(POSTED(+Y)) D  G ITEMS"
^XMB(3.9,131,2,651,0)="""RTN"",""RMPOBIL2"",204,0)"
^XMB(3.9,131,2,652,0)=" . W !,$C(7)_""Item ""_(+Y)_"" has been POSTED!"""
^XMB(3.9,131,2,653,0)="""RTN"",""RMPOBIL2"",205,0)"
^XMB(3.9,131,2,654,0)=" S ITEM=+Y I $P($G(^RMPO(665.72,RMPOXITE,1,RMPORVDT,1,RMPOVDR,""V"",RMPODFN,1,ITEM,0)),U,8)=""Y"" S PITM=ITEM"
^XMB(3.9,131,2,655,0)="""RTN"",""RMPOBIL2"",206,0)"
^XMB(3.9,131,2,656,0)=" S BACKPTR=$P($G(^RMPO(665.72,RMPOXITE,1,RMPORVDT,1,RMPOVDR,""V"",RMPODFN,1,ITEM,0)),U,13)"
^XMB(3.9,131,2,657,0)="""RTN"",""RMPOBIL2"",207,0)"
^XMB(3.9,131,2,658,0)=" I $G(BACKPTR),$D(^RMPR(665,RMPODFN,""RMPOC"",BACKPTR,0)),$P(^RMPR(665,RMPODFN,""RMPOC"",BACKPTR,0),U,11)=""Y"" S PITM=ITEM"
^XMB(3.9,131,2,659,0)="""RTN"",""RMPOBIL2"",208,0)"
^XMB(3.9,131,2,660,0)=" Q"
^XMB(3.9,131,2,661,0)="""RTN"",""RMPOBIL2"",209,0)"
^XMB(3.9,131,2,662,0)="ITEME ; Edit an item"
^XMB(3.9,131,2,663,0)="""RTN"",""RMPOBIL2"",210,0)"
^XMB(3.9,131,2,664,0)=" K DR D SDICE"
^XMB(3.9,131,2,665,0)="""RTN"",""RMPOBIL2"",211,0)"
^XMB(3.9,131,2,666,0)=" S DIE(""NO^"")=""BACK"""
^XMB(3.9,131,2,667,0)="""RTN"",""RMPOBIL2"",212,0)"
^XMB(3.9,131,2,668,0)=" S DA=IEN(ITEM),DR=""1;7;S Z1=X;5;S Z2=X;4"" D ^DIE Q:$$EQUIT"
^XMB(3.9,131,2,669,0)="""RTN"",""RMPOBIL2"",213,0)"
^XMB(3.9,131,2,670,0)="SACK S DR=""10;S Z3=X"" D ^DIE Q:$$EQUIT"
^XMB(3.9,131,2,671,0)="""RTN"",""RMPOBIL2"",214,0)"
^XMB(3.9,131,2,672,0)=" I Z3>(Z1*Z2) D  G SACK"
^XMB(3.9,131,2,673,0)="""RTN"",""RMPOBIL2"",215,0)"
^XMB(3.9,131,2,674,0)=" . W !,""SUSPENDED AMT SHOULD NOT BE GREATER THAN TOTAL AMOUNT!"""
^XMB(3.9,131,2,675,0)="""RTN"",""RMPOBIL2"",216,0)"
^XMB(3.9,131,2,676,0)=" S DR=""11""_$S(+X=0:""///@"",1:"""") D ^DIE Q:$$EQUIT"
^XMB(3.9,131,2,677,0)="""RTN"",""RMPOBIL2"",217,0)"
^XMB(3.9,131,2,678,0)=" S DR=""6///""_((Z1*Z2)-Z3) D ^DIE Q:$$EQUIT"
^XMB(3.9,131,2,679,0)="""RTN"",""RMPOBIL2"",218,0)"
^XMB(3.9,131,2,680,0)=" S DFCP=$P(^RMPO(665.72,DA(4),1,DA(3),1,DA(2),""V"",DA(1),1,DA,0),U,3)"
^XMB(3.9,131,2,681,0)="""RTN"",""RMPOBIL2"",219,0)"
^XMB(3.9,131,2,682,0)=" F  D  Q:(FCP>0)!QUIT"
^XMB(3.9,131,2,683,0)="""RTN"",""RMPOBIL2"",220,0)"
^XMB(3.9,131,2,684,0)=" . S FCP=$P($$GETFCP^RMPOBILU(DFCP),U,2) Q:$$QUIT"
^XMB(3.9,131,2,685,0)="""RTN"",""RMPOBIL2"",221,0)"
^XMB(3.9,131,2,686,0)=" . I FCP<0!(FCP="""") W $C(7)_""REQUIRED FIELD!"""
^XMB(3.9,131,2,687,0)="""RTN"",""RMPOBIL2"",222,0)"
^XMB(3.9,131,2,688,0)=" I FCP>0 S DR=""3R///""_FCP_"";13R;14"" D ^DIE Q:$$EQUIT"
^XMB(3.9,131,2,689,0)="""RTN"",""RMPOBIL2"",223,0)"
^XMB(3.9,131,2,690,0)=" Q"
^XMB(3.9,131,2,691,0)="""RTN"",""RMPOBIL2"",224,0)"
^XMB(3.9,131,2,692,0)="ITEMZ ; Zero an item"
^XMB(3.9,131,2,693,0)="""RTN"",""RMPOBIL2"",225,0)"
^XMB(3.9,131,2,694,0)=" K DR D SDICE"
^XMB(3.9,131,2,695,0)="""RTN"",""RMPOBIL2"",226,0)"
^XMB(3.9,131,2,696,0)=" S DA=IEN(ITEM),DR=""5///0;6///0;10///0;11///@"" D ^DIE Q:$$EQUIT"
^XMB(3.9,131,2,697,0)="""RTN"",""RMPOBIL2"",227,0)"
^XMB(3.9,131,2,698,0)=" Q"
^XMB(3.9,131,2,699,0)="""RTN"",""RMPOBIL2"",228,0)"
^XMB(3.9,131,2,700,0)="ITEMK ; Delete an item"
^XMB(3.9,131,2,701,0)="""RTN"",""RMPOBIL2"",229,0)"
^XMB(3.9,131,2,702,0)=" D SDICE"
^XMB(3.9,131,2,703,0)="""RTN"",""RMPOBIL2"",230,0)"
^XMB(3.9,131,2,704,0)=" S RMDIC=DIC_IEN(ITEM)_"",0)"",RMIT=$G(@RMDIC),PITM=$P(RMIT,U,8)"
^XMB(3.9,131,2,705,0)="""RTN"",""RMPOBIL2"",231,0)"
^XMB(3.9,131,2,706,0)=" I PITM=""Y"" D  Q"
^XMB(3.9,131,2,707,0)="""RTN"",""RMPOBIL2"",232,0)"
^XMB(3.9,131,2,708,0)=" . W !,""Can't delete PRIMARY ITEM!"""
^XMB(3.9,131,2,709,0)="""RTN"",""RMPOBIL2"",233,0)"
^XMB(3.9,131,2,710,0)=" K DIR S DIR(0)=""Y"",DIR(""A"")=""Are you SURE you want to delete this item"""
^XMB(3.9,131,2,711,0)="""RTN"",""RMPOBIL2"",234,0)"
^XMB(3.9,131,2,712,0)=" S DIR(""B"")=""NO"" D ^DIR Q:Y'>0"
^XMB(3.9,131,2,713,0)="""RTN"",""RMPOBIL2"",235,0)"
^XMB(3.9,131,2,714,0)=" K DIK,DA D SDICE S DIK=DIC,DA=IEN(ITEM)"
^XMB(3.9,131,2,715,0)="""RTN"",""RMPOBIL2"",236,0)"
^XMB(3.9,131,2,716,0)="WAK D ^DIK W ""  ...deleted!"""
^XMB(3.9,131,2,717,0)="""RTN"",""RMPOBIL2"",237,0)"
^XMB(3.9,131,2,718,0)=" Q"
^XMB(3.9,131,2,719,0)="""RTN"",""RMPOPED"")"
^XMB(3.9,131,2,720,0)="0^1^B85905941^B86444066"
^XMB(3.9,131,2,721,0)="""RTN"",""RMPOPED"",1,0)"
^XMB(3.9,131,2,722,0)="RMPOPED ;EDS/MDB,DDW,RVD - HOME OXYGEN MISC FILE EDITS ;7/24/98"
^XMB(3.9,131,2,723,0)="""RTN"",""RMPOPED"",2,0)"
^XMB(3.9,131,2,724,0)=" ;;3.0;PROSTHETICS;**29,44,41,52,77,110**;Feb 09, 1996;Build 10"
^XMB(3.9,131,2,725,0)="""RTN"",""RMPOPED"",3,0)"
^XMB(3.9,131,2,726,0)=" ;"
^XMB(3.9,131,2,727,0)="""RTN"",""RMPOPED"",4,0)"
^XMB(3.9,131,2,728,0)=" ; HNC - patch 52"
^XMB(3.9,131,2,729,0)="""RTN"",""RMPOPED"",5,0)"
^XMB(3.9,131,2,730,0)=" ;                 modified SITECHK sub"
^XMB(3.9,131,2,731,0)="""RTN"",""RMPOPED"",6,0)"
^XMB(3.9,131,2,732,0)=" ;                 X will be undefined from GETS^DIQ if field is null"
^XMB(3.9,131,2,733,0)="""RTN"",""RMPOPED"",7,0)"
^XMB(3.9,131,2,734,0)=" ;                 added $G."
^XMB(3.9,131,2,735,0)="""RTN"",""RMPOPED"",8,0)"
^XMB(3.9,131,2,736,0)=" ;RVD - patch #77  use Fileman to set items that are not Primary item"
^XMB(3.9,131,2,737,0)="""RTN"",""RMPOPED"",9,0)"
^XMB(3.9,131,2,738,0)=" ;                 to 'N' in order to set correctly the 'AC' cross-ref."
^XMB(3.9,131,2,739,0)="""RTN"",""RMPOPED"",10,0)"
^XMB(3.9,131,2,740,0)=" Q"
^XMB(3.9,131,2,741,0)="""RTN"",""RMPOPED"",11,0)"
^XMB(3.9,131,2,742,0)="UNLOCK I $D(RMPODFN) L -^RMPR(665,RMPODFN)"
^XMB(3.9,131,2,743,0)="""RTN"",""RMPOPED"",12,0)"
^XMB(3.9,131,2,744,0)=" Q"
^XMB(3.9,131,2,745,0)="""RTN"",""RMPOPED"",13,0)"
^XMB(3.9,131,2,746,0)="EXIT K DIC,DIE,DIR,DIK,X,Y,Z,DR,DA,DD,DO,D0,DTOUT,DIROUT,DUOUT,DIRUT,QUIT,DFN,ITEM,ITEMS,IEN,IENS,ITMACT,ITM,C,S,W,PI,VDR,ZST"
^XMB(3.9,131,2,747,0)="""RTN"",""RMPOPED"",14,0)"
^XMB(3.9,131,2,748,0)=" D UNLOCK"
^XMB(3.9,131,2,749,0)="""RTN"",""RMPOPED"",15,0)"
^XMB(3.9,131,2,750,0)=" Q"
^XMB(3.9,131,2,751,0)="""RTN"",""RMPOPED"",16,0)"
^XMB(3.9,131,2,752,0)=" ;"
^XMB(3.9,131,2,753,0)="""RTN"",""RMPOPED"",17,0)"
^XMB(3.9,131,2,754,0)="KEY ;user must have the RMPRSUPERVISOR key in order to add a new patient."
^XMB(3.9,131,2,755,0)="""RTN"",""RMPOPED"",18,0)"
^XMB(3.9,131,2,756,0)=" ;option name is EDIT HOME OXYGEN PATIENT"
^XMB(3.9,131,2,757,0)="""RTN"",""RMPOPED"",19,0)"
^XMB(3.9,131,2,758,0)=" N KEY"
^XMB(3.9,131,2,759,0)="""RTN"",""RMPOPED"",20,0)"
^XMB(3.9,131,2,760,0)=" S KEY=$O(^DIC(19.1,""B"",""RMPRSUPERVISOR"",0))"
^XMB(3.9,131,2,761,0)="""RTN"",""RMPOPED"",21,0)"
^XMB(3.9,131,2,762,0)=" I '$D(^VA(200,DUZ,51,KEY)) D  Q"
^XMB(3.9,131,2,763,0)="""RTN"",""RMPOPED"",22,0)"
^XMB(3.9,131,2,764,0)=" . W !!,""You do not hold the RMPSUPERVISOR key!!"""
^XMB(3.9,131,2,765,0)="""RTN"",""RMPOPED"",23,0)"
^XMB(3.9,131,2,766,0)=" G PAT"
^XMB(3.9,131,2,767,0)="""RTN"",""RMPOPED"",24,0)"
^XMB(3.9,131,2,768,0)=" ;"
^XMB(3.9,131,2,769,0)="""RTN"",""RMPOPED"",25,0)"
^XMB(3.9,131,2,770,0)="SITE ; Editing of Home Oxygen site parameter file."
^XMB(3.9,131,2,771,0)="""RTN"",""RMPOPED"",26,0)"
^XMB(3.9,131,2,772,0)=" K DIC,DIE,DA,DR,DD,RMPOXITE"
^XMB(3.9,131,2,773,0)="""RTN"",""RMPOPED"",27,0)"
^XMB(3.9,131,2,774,0)=" S DIC=""^RMPR(669.9,"",DIC(0)=""QEAMLZ"",DIC(""A"")=""Select SITE: """
^XMB(3.9,131,2,775,0)="""RTN"",""RMPOPED"",28,0)"
^XMB(3.9,131,2,776,0)=" D ^DIC Q:Y<0!$$QUIT"
^XMB(3.9,131,2,777,0)="""RTN"",""RMPOPED"",29,0)"
^XMB(3.9,131,2,778,0)=" K DIC(""A"")"
^XMB(3.9,131,2,779,0)="""RTN"",""RMPOPED"",30,0)"
^XMB(3.9,131,2,780,0)=" S (DA,RMPOXITE)=+Y"
^XMB(3.9,131,2,781,0)="""RTN"",""RMPOPED"",31,0)"
^XMB(3.9,131,2,782,0)=" ; Lock it..."
^XMB(3.9,131,2,783,0)="""RTN"",""RMPOPED"",32,0)"
^XMB(3.9,131,2,784,0)=" L +^RMPR(669.9,RMPOXITE):2"
^XMB(3.9,131,2,785,0)="""RTN"",""RMPOPED"",33,0)"
^XMB(3.9,131,2,786,0)=" I '$T D  G SITE"
^XMB(3.9,131,2,787,0)="""RTN"",""RMPOPED"",34,0)"
^XMB(3.9,131,2,788,0)=" . W ?10,$C(7)_Y(0,0)_"" -- record in use. Try again later."""
^XMB(3.9,131,2,789,0)="""RTN"",""RMPOPED"",35,0)"
^XMB(3.9,131,2,790,0)=" ; Edit it"
^XMB(3.9,131,2,791,0)="""RTN"",""RMPOPED"",36,0)"
^XMB(3.9,131,2,792,0)=" S DIE=DIC,DR=""60;61;62;65"" D ^DIE Q:$$EQUIT"
^XMB(3.9,131,2,793,0)="""RTN"",""RMPOPED"",37,0)"
^XMB(3.9,131,2,794,0)=" ; Edit FCP"
^XMB(3.9,131,2,795,0)="""RTN"",""RMPOPED"",38,0)"
^XMB(3.9,131,2,796,0)=" K DIC,DA,DD,DR,DIE"
^XMB(3.9,131,2,797,0)="""RTN"",""RMPOPED"",39,0)"
^XMB(3.9,131,2,798,0)=" ;"
^XMB(3.9,131,2,799,0)="""RTN"",""RMPOPED"",40,0)"
^XMB(3.9,131,2,800,0)=" ; Done.  Unlock"
^XMB(3.9,131,2,801,0)="""RTN"",""RMPOPED"",41,0)"
^XMB(3.9,131,2,802,0)=" L -^RMPR(669.9,RMPOXITE)"
^XMB(3.9,131,2,803,0)="""RTN"",""RMPOPED"",42,0)"
^XMB(3.9,131,2,804,0)=" G SITE"
^XMB(3.9,131,2,805,0)="""RTN"",""RMPOPED"",43,0)"
^XMB(3.9,131,2,806,0)=" ;"
^XMB(3.9,131,2,807,0)="""RTN"",""RMPOPED"",44,0)"
^XMB(3.9,131,2,808,0)="FCPHLP ; Executable help for FCP multiple in 669.9"
^XMB(3.9,131,2,809,0)="""RTN"",""RMPOPED"",45,0)"
^XMB(3.9,131,2,810,0)=" ;"
^XMB(3.9,131,2,811,0)="""RTN"",""RMPOPED"",46,0)"
^XMB(3.9,131,2,812,0)=" Q"
^XMB(3.9,131,2,813,0)="""RTN"",""RMPOPED"",47,0)"
^XMB(3.9,131,2,814,0)="FCPIX ; Input transform for FCP multiple in 669.9"
^XMB(3.9,131,2,815,0)="""RTN"",""RMPOPED"",48,0)"
^XMB(3.9,131,2,816,0)=" ;"
^XMB(3.9,131,2,817,0)="""RTN"",""RMPOPED"",49,0)"
^XMB(3.9,131,2,818,0)=" Q:'$D(X)"
^XMB(3.9,131,2,819,0)="""RTN"",""RMPOPED"",50,0)"
^XMB(3.9,131,2,820,0)=" I $L(X)>30!($L(X)<3) K X Q"
^XMB(3.9,131,2,821,0)="""RTN"",""RMPOPED"",51,0)"
^XMB(3.9,131,2,822,0)=" S ZST=$P(^RMPR(669.9,D0,4),U,1),RMPOX=X"
^XMB(3.9,131,2,823,0)="""RTN"",""RMPOPED"",52,0)"
^XMB(3.9,131,2,824,0)=" D FIND^DIC(420.01,"",""_ZST_"","","".01;"",""M"",X,1,,,,""X"")"
^XMB(3.9,131,2,825,0)="""RTN"",""RMPOPED"",53,0)"
^XMB(3.9,131,2,826,0)=" S X=$S($D(X(""DILIST"",""ID"",1,.01)):X(""DILIST"",""ID"",1,.01),1:RMPOX)"
^XMB(3.9,131,2,827,0)="""RTN"",""RMPOPED"",54,0)"
^XMB(3.9,131,2,828,0)=" K X(""DILIST""),RMPOX"
^XMB(3.9,131,2,829,0)="""RTN"",""RMPOPED"",55,0)"
^XMB(3.9,131,2,830,0)=" I $G(ZST),('$D(^PRC(420,+ZST,1,""B"",X))) W !,""Control Point is not a valid IFCAP FCP.."" K X"
^XMB(3.9,131,2,831,0)="""RTN"",""RMPOPED"",56,0)"
^XMB(3.9,131,2,832,0)=" Q"
^XMB(3.9,131,2,833,0)="""RTN"",""RMPOPED"",57,0)"
^XMB(3.9,131,2,834,0)="ACT ;activate/inactivate a home oxygen patient"
^XMB(3.9,131,2,835,0)="""RTN"",""RMPOPED"",58,0)"
^XMB(3.9,131,2,836,0)=" ;Set up site variables."
^XMB(3.9,131,2,837,0)="""RTN"",""RMPOPED"",59,0)"
^XMB(3.9,131,2,838,0)=" D HOSITE^RMPOUTL0 I QUIT D EXIT Q"
^XMB(3.9,131,2,839,0)="""RTN"",""RMPOPED"",60,0)"
^XMB(3.9,131,2,840,0)=" W @IOF"
^XMB(3.9,131,2,841,0)="""RTN"",""RMPOPED"",61,0)"
^XMB(3.9,131,2,842,0)=" ;"
^XMB(3.9,131,2,843,0)="""RTN"",""RMPOPED"",62,0)"
^XMB(3.9,131,2,844,0)="ACT1 ;Toggle ACTIVATE/INACTIVATE functions."
^XMB(3.9,131,2,845,0)="""RTN"",""RMPOPED"",63,0)"
^XMB(3.9,131,2,846,0)=" N NAME K DIC,DA"
^XMB(3.9,131,2,847,0)="""RTN"",""RMPOPED"",64,0)"
^XMB(3.9,131,2,848,0)=" S DIC=""^RMPR(665,"",DIC(0)=""QEAMZ"" D ^DIC I Y<0!$$QUIT D EXIT Q"
^XMB(3.9,131,2,849,0)="""RTN"",""RMPOPED"",65,0)"
^XMB(3.9,131,2,850,0)=" S DIE=DIC,DA=+Y,NAME=Y(0,0)"
^XMB(3.9,131,2,851,0)="""RTN"",""RMPOPED"",66,0)"
^XMB(3.9,131,2,852,0)=" L +^RMPR(665,DA):2"
^XMB(3.9,131,2,853,0)="""RTN"",""RMPOPED"",67,0)"
^XMB(3.9,131,2,854,0)=" I '$T D  G ACT1"
^XMB(3.9,131,2,855,0)="""RTN"",""RMPOPED"",68,0)"
^XMB(3.9,131,2,856,0)=" . W ?10,$C(7)_Y(0,0)_"" -- record in use. Try later."""
^XMB(3.9,131,2,857,0)="""RTN"",""RMPOPED"",69,0)"
^XMB(3.9,131,2,858,0)=" ;If the patient has never been activated, quit."
^XMB(3.9,131,2,859,0)="""RTN"",""RMPOPED"",70,0)"
^XMB(3.9,131,2,860,0)=" I $P($G(^RMPR(665,DA,""RMPOA"")),U,2)="""" D  G ACT1"
^XMB(3.9,131,2,861,0)="""RTN"",""RMPOPED"",71,0)"
^XMB(3.9,131,2,862,0)=" . W !!,$C(7)_NAME_"" has not been added as a Home Oxygen patient."""
^XMB(3.9,131,2,863,0)="""RTN"",""RMPOPED"",72,0)"
^XMB(3.9,131,2,864,0)=" . W !,""Please add using the """"Add/Edit Home Oxygen Patient"""" option."""
^XMB(3.9,131,2,865,0)="""RTN"",""RMPOPED"",73,0)"
^XMB(3.9,131,2,866,0)=" ;If the patient is active, perform inactivation actions."
^XMB(3.9,131,2,867,0)="""RTN"",""RMPOPED"",74,0)"
^XMB(3.9,131,2,868,0)=" I $P($G(^RMPR(665,DA,""RMPOA"")),U,3)="""" D INACTVT^RMPOPED G ACT1"
^XMB(3.9,131,2,869,0)="""RTN"",""RMPOPED"",75,0)"
^XMB(3.9,131,2,870,0)=" ;If the patient is inactive, perform activation actions."
^XMB(3.9,131,2,871,0)="""RTN"",""RMPOPED"",76,0)"
^XMB(3.9,131,2,872,0)=" I $P($G(^RMPR(665,DA,""RMPOA"")),U,3)'="""" D ACTVT^RMPOPED G ACT1"
^XMB(3.9,131,2,873,0)="""RTN"",""RMPOPED"",77,0)"
^XMB(3.9,131,2,874,0)=" Q"
^XMB(3.9,131,2,875,0)="""RTN"",""RMPOPED"",78,0)"
^XMB(3.9,131,2,876,0)="INACTVT ; Inactivate the patient if user wants to."
^XMB(3.9,131,2,877,0)="""RTN"",""RMPOPED"",79,0)"
^XMB(3.9,131,2,878,0)=" ; Confirm if the user wants to proceed."
^XMB(3.9,131,2,879,0)="""RTN"",""RMPOPED"",80,0)"
^XMB(3.9,131,2,880,0)=" K DIR S DIR(0)=""YO"",DIR(""B"")=""NO"""
^XMB(3.9,131,2,881,0)="""RTN"",""RMPOPED"",81,0)"
^XMB(3.9,131,2,882,0)=" S DIR(""A"")=""Are you sure you want to inactivate ""_NAME_"" ?"" D ^DIR"
^XMB(3.9,131,2,883,0)="""RTN"",""RMPOPED"",82,0)"
^XMB(3.9,131,2,884,0)=" Q:(Y<1)!$$QUIT"
^XMB(3.9,131,2,885,0)="""RTN"",""RMPOPED"",83,0)"
^XMB(3.9,131,2,886,0)=" S DR=""19.5//TODAY;19.6;19.7////""_DUZ,DIE(""NO^"")=""BACK"""
^XMB(3.9,131,2,887,0)="""RTN"",""RMPOPED"",84,0)"
^XMB(3.9,131,2,888,0)=" D ^DIE"
^XMB(3.9,131,2,889,0)="""RTN"",""RMPOPED"",85,0)"
^XMB(3.9,131,2,890,0)=" Q"
^XMB(3.9,131,2,891,0)="""RTN"",""RMPOPED"",86,0)"
^XMB(3.9,131,2,892,0)=" ;"
^XMB(3.9,131,2,893,0)="""RTN"",""RMPOPED"",87,0)"
^XMB(3.9,131,2,894,0)="ACTVT ;Activate the patient if the user wants to."
^XMB(3.9,131,2,895,0)="""RTN"",""RMPOPED"",88,0)"
^XMB(3.9,131,2,896,0)=" K DIR S DIR(0)=""YO"",DIR(""B"")=""NO"""
^XMB(3.9,131,2,897,0)="""RTN"",""RMPOPED"",89,0)"
^XMB(3.9,131,2,898,0)=" S DIR(""A"")=""Are you sure you want to reactivate ""_NAME_"" ?"" D ^DIR"
^XMB(3.9,131,2,899,0)="""RTN"",""RMPOPED"",90,0)"
^XMB(3.9,131,2,900,0)=" Q:(Y<1)!$$QUIT"
^XMB(3.9,131,2,901,0)="""RTN"",""RMPOPED"",91,0)"
^XMB(3.9,131,2,902,0)=" S DR=""19.2//TODAY;19.5///@;19.6///@;19.7///@"""
^XMB(3.9,131,2,903,0)="""RTN"",""RMPOPED"",92,0)"
^XMB(3.9,131,2,904,0)=" S DIE(""NO^"")=""BACK"""
^XMB(3.9,131,2,905,0)="""RTN"",""RMPOPED"",93,0)"
^XMB(3.9,131,2,906,0)=" D ^DIE"
^XMB(3.9,131,2,907,0)="""RTN"",""RMPOPED"",94,0)"
^XMB(3.9,131,2,908,0)=" Q"
^XMB(3.9,131,2,909,0)="""RTN"",""RMPOPED"",95,0)"
^XMB(3.9,131,2,910,0)="PAT ;Add/Edit Home Oxygen Patient"
^XMB(3.9,131,2,911,0)="""RTN"",""RMPOPED"",96,0)"
^XMB(3.9,131,2,912,0)=" S QUIT=0"
^XMB(3.9,131,2,913,0)="""RTN"",""RMPOPED"",97,0)"
^XMB(3.9,131,2,914,0)=" D HOSITE^RMPOUTL0"
^XMB(3.9,131,2,915,0)="""RTN"",""RMPOPED"",98,0)"
^XMB(3.9,131,2,916,0)=" I '$D(RMPOXITE)!QUIT D EXIT Q"
^XMB(3.9,131,2,917,0)="""RTN"",""RMPOPED"",99,0)"
^XMB(3.9,131,2,918,0)="LOOP ;"
^XMB(3.9,131,2,919,0)="""RTN"",""RMPOPED"",100,0)"
^XMB(3.9,131,2,920,0)=" S QUIT=0"
^XMB(3.9,131,2,921,0)="""RTN"",""RMPOPED"",101,0)"
^XMB(3.9,131,2,922,0)=" D LOOKUP I QUIT!'$D(RMPODFN) D EXIT Q"
^XMB(3.9,131,2,923,0)="""RTN"",""RMPOPED"",102,0)"
^XMB(3.9,131,2,924,0)=" D EDBLK I QUIT D EXIT Q"
^XMB(3.9,131,2,925,0)="""RTN"",""RMPOPED"",103,0)"
^XMB(3.9,131,2,926,0)=" D UNLOCK G LOOP"
^XMB(3.9,131,2,927,0)="""RTN"",""RMPOPED"",104,0)"
^XMB(3.9,131,2,928,0)="EDBLK ;"
^XMB(3.9,131,2,929,0)="""RTN"",""RMPOPED"",105,0)"
^XMB(3.9,131,2,930,0)=" D SITECHK Q:QUIT"
^XMB(3.9,131,2,931,0)="""RTN"",""RMPOPED"",106,0)"
^XMB(3.9,131,2,932,0)=" D DEMOG Q:QUIT"
^XMB(3.9,131,2,933,0)="""RTN"",""RMPOPED"",107,0)"
^XMB(3.9,131,2,934,0)=" D RX Q:QUIT"
^XMB(3.9,131,2,935,0)="""RTN"",""RMPOPED"",108,0)"
^XMB(3.9,131,2,936,0)=" D ITEM"
^XMB(3.9,131,2,937,0)="""RTN"",""RMPOPED"",109,0)"
^XMB(3.9,131,2,938,0)=" Q"
^XMB(3.9,131,2,939,0)="""RTN"",""RMPOPED"",110,0)"
^XMB(3.9,131,2,940,0)=" ;called by ^RMPOBIL1, providing RMPOPATN as the X variable"
^XMB(3.9,131,2,941,0)="""RTN"",""RMPOPED"",111,0)"
^XMB(3.9,131,2,942,0)="EDIT ;From Billing..."
^XMB(3.9,131,2,943,0)="""RTN"",""RMPOPED"",112,0)"
^XMB(3.9,131,2,944,0)=" I '$D(RMPODFN) S RMPODFN=$TR($G(RMPOPATN),""`"")"
^XMB(3.9,131,2,945,0)="""RTN"",""RMPOPED"",113,0)"
^XMB(3.9,131,2,946,0)=" Q:'$D(^RMPR(665,+RMPODFN,0))"
^XMB(3.9,131,2,947,0)="""RTN"",""RMPOPED"",114,0)"
^XMB(3.9,131,2,948,0)=" W !,""EDITING ""_$P(^DPT(RMPODFN,0),U)_""..."",!"
^XMB(3.9,131,2,949,0)="""RTN"",""RMPOPED"",115,0)"
^XMB(3.9,131,2,950,0)=" S QUIT=0,DA=RMPODFN"
^XMB(3.9,131,2,951,0)="""RTN"",""RMPOPED"",116,0)"
^XMB(3.9,131,2,952,0)=" L +^RMPR(665,DA):2"
^XMB(3.9,131,2,953,0)="""RTN"",""RMPOPED"",117,0)"
^XMB(3.9,131,2,954,0)=" I '$T W !!?10,*7,"" << Record in use. Try later. >>"" Q"
^XMB(3.9,131,2,955,0)="""RTN"",""RMPOPED"",118,0)"
^XMB(3.9,131,2,956,0)=" D EDBLK,EXIT"
^XMB(3.9,131,2,957,0)="""RTN"",""RMPOPED"",119,0)"
^XMB(3.9,131,2,958,0)=" Q"
^XMB(3.9,131,2,959,0)="""RTN"",""RMPOPED"",120,0)"
^XMB(3.9,131,2,960,0)="LOOKUP ;First look-up the patient"
^XMB(3.9,131,2,961,0)="""RTN"",""RMPOPED"",121,0)"
^XMB(3.9,131,2,962,0)=" K DIC,DIE,DA,DR,RMPODFN"
^XMB(3.9,131,2,963,0)="""RTN"",""RMPOPED"",122,0)"
^XMB(3.9,131,2,964,0)=" W !!! S DIC=""^RMPR(665,"",DIC(0)=""LQEAMZ"""
^XMB(3.9,131,2,965,0)="""RTN"",""RMPOPED"",123,0)"
^XMB(3.9,131,2,966,0)=" D ^DIC Q:(Y<0)!$$QUIT"
^XMB(3.9,131,2,967,0)="""RTN"",""RMPOPED"",124,0)"
^XMB(3.9,131,2,968,0)="CONT S (RMPODFN,DA)=+Y"
^XMB(3.9,131,2,969,0)="""RTN"",""RMPOPED"",125,0)"
^XMB(3.9,131,2,970,0)=" L +^RMPR(665,DA):2"
^XMB(3.9,131,2,971,0)="""RTN"",""RMPOPED"",126,0)"
^XMB(3.9,131,2,972,0)=" I '$T W !!?10,*7,"" << Record in use. Try later. >>"" G LOOKUP"
^XMB(3.9,131,2,973,0)="""RTN"",""RMPOPED"",127,0)"
^XMB(3.9,131,2,974,0)=" Q"
^XMB(3.9,131,2,975,0)="""RTN"",""RMPOPED"",128,0)"
^XMB(3.9,131,2,976,0)=" ;"
^XMB(3.9,131,2,977,0)="""RTN"",""RMPOPED"",129,0)"
^XMB(3.9,131,2,978,0)="QUIT() S QUIT=$D(DTOUT)!$D(DUOUT)!$D(DIROUT) Q QUIT"
^XMB(3.9,131,2,979,0)="""RTN"",""RMPOPED"",130,0)"
^XMB(3.9,131,2,980,0)="EQUIT() S QUIT=$D(DTOUT)!$D(Y) Q QUIT"
^XMB(3.9,131,2,981,0)="""RTN"",""RMPOPED"",131,0)"
^XMB(3.9,131,2,982,0)="LJ(S,W,C) ; LEFT JUSTIFY S IN A FIELD W WIDE PADDING WITH CHAR F"
^XMB(3.9,131,2,983,0)="""RTN"",""RMPOPED"",132,0)"
^XMB(3.9,131,2,984,0)=" ;"
^XMB(3.9,131,2,985,0)="""RTN"",""RMPOPED"",133,0)"
^XMB(3.9,131,2,986,0)=" S C=$G(C,"" "")   ;DEFAULT PAD CHAR IS SPACE"
^XMB(3.9,131,2,987,0)="""RTN"",""RMPOPED"",134,0)"
^XMB(3.9,131,2,988,0)=" S $P(S,C,W-$L(S)+$L(S,C))="""""
^XMB(3.9,131,2,989,0)="""RTN"",""RMPOPED"",135,0)"
^XMB(3.9,131,2,990,0)=" Q S"
^XMB(3.9,131,2,991,0)="""RTN"",""RMPOPED"",136,0)"
^XMB(3.9,131,2,992,0)=" ;"
^XMB(3.9,131,2,993,0)="""RTN"",""RMPOPED"",137,0)"
^XMB(3.9,131,2,994,0)="SITECHK ;If user chooses patient from site different from billing site"
^XMB(3.9,131,2,995,0)="""RTN"",""RMPOPED"",138,0)"
^XMB(3.9,131,2,996,0)=" ;"
^XMB(3.9,131,2,997,0)="""RTN"",""RMPOPED"",139,0)"
^XMB(3.9,131,2,998,0)=" S Y=$P($G(^RMPR(665,RMPODFN,""RMPOA"")),U,7)"
^XMB(3.9,131,2,999,0)="""RTN"",""RMPOPED"",140,0)"
^XMB(3.9,131,2,1000,0)=" Q:Y=RMPOXITE    ;Site is the same.. "
^XMB(3.9,131,2,1001,0)="""RTN"",""RMPOPED"",141,0)"
^XMB(3.9,131,2,1002,0)=" I Y="""" D SET Q   ;Site not defined, stuff RMPOXITE..."
^XMB(3.9,131,2,1003,0)="""RTN"",""RMPOPED"",142,0)"
^XMB(3.9,131,2,1004,0)=" ; Site is different..."
^XMB(3.9,131,2,1005,0)="""RTN"",""RMPOPED"",143,0)"
^XMB(3.9,131,2,1006,0)=" S IENS=RMPODFN_"","""
^XMB(3.9,131,2,1007,0)="""RTN"",""RMPOPED"",144,0)"
^XMB(3.9,131,2,1008,0)=" D GETS^DIQ(665,IENS,19.12,""E"",""X"")"
^XMB(3.9,131,2,1009,0)="""RTN"",""RMPOPED"",145,0)"
^XMB(3.9,131,2,1010,0)=" W !!,""Patient's Home Oxygen Contract Location (HOCL) is """
^XMB(3.9,131,2,1011,0)="""RTN"",""RMPOPED"",146,0)"
^XMB(3.9,131,2,1012,0)=" W $G(X(665,IENS,19.12,""E""))"
^XMB(3.9,131,2,1013,0)="""RTN"",""RMPOPED"",147,0)"
^XMB(3.9,131,2,1014,0)=" W !,""You are working on billing for HOCL ""_RMPO(""NAME""),!"
^XMB(3.9,131,2,1015,0)="""RTN"",""RMPOPED"",148,0)"
^XMB(3.9,131,2,1016,0)=" K DIR S DIR(0)=""Y"",DIR(""B"")=""NO"""
^XMB(3.9,131,2,1017,0)="""RTN"",""RMPOPED"",149,0)"
^XMB(3.9,131,2,1018,0)=" S DIR(""A"")=""Should I change this patient's HOCL to ""_RMPO(""NAME"")"
^XMB(3.9,131,2,1019,0)="""RTN"",""RMPOPED"",150,0)"
^XMB(3.9,131,2,1020,0)=" D ^DIR Q:$$QUIT!(Y=0)"
^XMB(3.9,131,2,1021,0)="""RTN"",""RMPOPED"",151,0)"
^XMB(3.9,131,2,1022,0)=" D SET"
^XMB(3.9,131,2,1023,0)="""RTN"",""RMPOPED"",152,0)"
^XMB(3.9,131,2,1024,0)=" Q"
^XMB(3.9,131,2,1025,0)="""RTN"",""RMPOPED"",153,0)"
^XMB(3.9,131,2,1026,0)="SET ;"
^XMB(3.9,131,2,1027,0)="""RTN"",""RMPOPED"",154,0)"
^XMB(3.9,131,2,1028,0)=" K DIE,DR,DA"
^XMB(3.9,131,2,1029,0)="""RTN"",""RMPOPED"",155,0)"
^XMB(3.9,131,2,1030,0)=" S DA=RMPODFN"
^XMB(3.9,131,2,1031,0)="""RTN"",""RMPOPED"",156,0)"
^XMB(3.9,131,2,1032,0)=" ;W ""HERE,RMPOXITE="",RMPOXITE"
^XMB(3.9,131,2,1033,0)="""RTN"",""RMPOPED"",157,0)"
^XMB(3.9,131,2,1034,0)=" S DIE=""^RMPR(665,"",DR=""19.12////""_RMPOXITE D ^DIE"
^XMB(3.9,131,2,1035,0)="""RTN"",""RMPOPED"",158,0)"
^XMB(3.9,131,2,1036,0)=" Q"
^XMB(3.9,131,2,1037,0)="""RTN"",""RMPOPED"",159,0)"
^XMB(3.9,131,2,1038,0)=" ;"
^XMB(3.9,131,2,1039,0)="""RTN"",""RMPOPED"",160,0)"
^XMB(3.9,131,2,1040,0)="DEMOG ;First edit the patient's basic fields"
^XMB(3.9,131,2,1041,0)="""RTN"",""RMPOPED"",161,0)"
^XMB(3.9,131,2,1042,0)=" ;"
^XMB(3.9,131,2,1043,0)="""RTN"",""RMPOPED"",162,0)"
^XMB(3.9,131,2,1044,0)=" K DIE,DR,DA"
^XMB(3.9,131,2,1045,0)="""RTN"",""RMPOPED"",163,0)"
^XMB(3.9,131,2,1046,0)=" S DA=RMPODFN"
^XMB(3.9,131,2,1047,0)="""RTN"",""RMPOPED"",164,0)"
^XMB(3.9,131,2,1048,0)=" S DIE=""^RMPR(665,"",DR=""19.1"" D ^DIE Q:$$EQUIT"
^XMB(3.9,131,2,1049,0)="""RTN"",""RMPOPED"",165,0)"
^XMB(3.9,131,2,1050,0)=" S RMPOELIG=$P($G(^RMPR(665,RMPODFN,""RMPOA"")),U)"
^XMB(3.9,131,2,1051,0)="""RTN"",""RMPOPED"",166,0)"
^XMB(3.9,131,2,1052,0)=" K DR S DR=""19.11""_$S(RMPOELIG=""D"":"""",1:""///@"")_"";19.12"""
^XMB(3.9,131,2,1053,0)="""RTN"",""RMPOPED"",167,0)"
^XMB(3.9,131,2,1054,0)=" D ^DIE Q:$$EQUIT"
^XMB(3.9,131,2,1055,0)="""RTN"",""RMPOPED"",168,0)"
^XMB(3.9,131,2,1056,0)=" K DR S Y=DT X ^DD(""DD"") S DR=""19.2//""_Y D ^DIE Q:$$QUIT"
^XMB(3.9,131,2,1057,0)="""RTN"",""RMPOPED"",169,0)"
^XMB(3.9,131,2,1058,0)=" Q"
^XMB(3.9,131,2,1059,0)="""RTN"",""RMPOPED"",170,0)"
^XMB(3.9,131,2,1060,0)=" ;"
^XMB(3.9,131,2,1061,0)="""RTN"",""RMPOPED"",171,0)"
^XMB(3.9,131,2,1062,0)="RX ;Edit the Rx Data"
^XMB(3.9,131,2,1063,0)="""RTN"",""RMPOPED"",172,0)"
^XMB(3.9,131,2,1064,0)=" ;"
^XMB(3.9,131,2,1065,0)="""RTN"",""RMPOPED"",173,0)"
^XMB(3.9,131,2,1066,0)=" K DIC,DIE,DA,DR"
^XMB(3.9,131,2,1067,0)="""RTN"",""RMPOPED"",174,0)"
^XMB(3.9,131,2,1068,0)=" S DIC=""^RMPR(665,""_RMPODFN_"",""""RMPOB"""","",DIC(0)=""AEQLZ"""
^XMB(3.9,131,2,1069,0)="""RTN"",""RMPOPED"",175,0)"
^XMB(3.9,131,2,1070,0)=" S DA(1)=RMPODFN,DIC(""P"")=""665.193D"""
^XMB(3.9,131,2,1071,0)="""RTN"",""RMPOPED"",176,0)"
^XMB(3.9,131,2,1072,0)=" I $D(^DISV(DUZ,DIC)) S Y=^(DIC) I $D(@(DIC_(+Y)_"",0)"")) D"
^XMB(3.9,131,2,1073,0)="""RTN"",""RMPOPED"",177,0)"
^XMB(3.9,131,2,1074,0)=" . S DIC(""B"")=$P(^(0),U,1)"
^XMB(3.9,131,2,1075,0)="""RTN"",""RMPOPED"",178,0)"
^XMB(3.9,131,2,1076,0)=" D ^DIC Q:Y<0!$$QUIT"
^XMB(3.9,131,2,1077,0)="""RTN"",""RMPOPED"",179,0)"
^XMB(3.9,131,2,1078,0)=" S DIE=DIC,DA=+Y,DR="".01;2//^D EXPIRE^RMPOBIL4;3"" D ^DIE Q:$$EQUIT"
^XMB(3.9,131,2,1079,0)="""RTN"",""RMPOPED"",180,0)"
^XMB(3.9,131,2,1080,0)=" Q"
^XMB(3.9,131,2,1081,0)="""RTN"",""RMPOPED"",181,0)"
^XMB(3.9,131,2,1082,0)=" ;"
^XMB(3.9,131,2,1083,0)="""RTN"",""RMPOPED"",182,0)"
^XMB(3.9,131,2,1084,0)="ITEM ;Add/Edit Items"
^XMB(3.9,131,2,1085,0)="""RTN"",""RMPOPED"",183,0)"
^XMB(3.9,131,2,1086,0)=" ;"
^XMB(3.9,131,2,1087,0)="""RTN"",""RMPOPED"",184,0)"
^XMB(3.9,131,2,1088,0)=" ; Display items"
^XMB(3.9,131,2,1089,0)="""RTN"",""RMPOPED"",185,0)"
^XMB(3.9,131,2,1090,0)=" D ITEMD"
^XMB(3.9,131,2,1091,0)="""RTN"",""RMPOPED"",186,0)"
^XMB(3.9,131,2,1092,0)=" ; If no items on file, then only allow ADD PRIMARY ITEM"
^XMB(3.9,131,2,1093,0)="""RTN"",""RMPOPED"",187,0)"
^XMB(3.9,131,2,1094,0)=" I '$D(IEN) D ITEMP Q:QUIT!(ITEM="""")  G ITEM"
^XMB(3.9,131,2,1095,0)="""RTN"",""RMPOPED"",188,0)"
^XMB(3.9,131,2,1096,0)=" ; ask for ACTION, quit if <return>, timeout, etc"
^XMB(3.9,131,2,1097,0)="""RTN"",""RMPOPED"",189,0)"
^XMB(3.9,131,2,1098,0)=" S ITMACT=$$ITEMO Q:$$QUIT!(ITMACT="""")"
^XMB(3.9,131,2,1099,0)="""RTN"",""RMPOPED"",190,0)"
^XMB(3.9,131,2,1100,0)=" ; if they entered 'A', do ADD ITEM, then edit it"
^XMB(3.9,131,2,1101,0)="""RTN"",""RMPOPED"",191,0)"
^XMB(3.9,131,2,1102,0)=" I ITMACT=""A"" D ITEMA Q:QUIT!(ITEM="""")  D ITEME Q:QUIT  G ITEM"
^XMB(3.9,131,2,1103,0)="""RTN"",""RMPOPED"",192,0)"
^XMB(3.9,131,2,1104,0)=" ; if they entered 'D', select an item, then delete it"
^XMB(3.9,131,2,1105,0)="""RTN"",""RMPOPED"",193,0)"
^XMB(3.9,131,2,1106,0)=" I ITMACT=""D"" D ITEMS Q:QUIT!(ITEM="""")  D ITEMK G ITEM"
^XMB(3.9,131,2,1107,0)="""RTN"",""RMPOPED"",194,0)"
^XMB(3.9,131,2,1108,0)=" ; if they entered 'E', select an item, then edit it"
^XMB(3.9,131,2,1109,0)="""RTN"",""RMPOPED"",195,0)"
^XMB(3.9,131,2,1110,0)=" I ITMACT=""E"" D ITEMS Q:QUIT!(ITEM="""")  D ITEME Q:QUIT  G ITEM"
^XMB(3.9,131,2,1111,0)="""RTN"",""RMPOPED"",196,0)"
^XMB(3.9,131,2,1112,0)=" G ITEM"
^XMB(3.9,131,2,1113,0)="""RTN"",""RMPOPED"",197,0)"
^XMB(3.9,131,2,1114,0)=" Q"
^XMB(3.9,131,2,1115,0)="""RTN"",""RMPOPED"",198,0)"
^XMB(3.9,131,2,1116,0)="ITEMP ; Add Primary Item"
^XMB(3.9,131,2,1117,0)="""RTN"",""RMPOPED"",199,0)"
^XMB(3.9,131,2,1118,0)=" W !!,$C(7)_""No items found, please enter PRIMARY ITEM"",!"
^XMB(3.9,131,2,1119,0)="""RTN"",""RMPOPED"",200,0)"
^XMB(3.9,131,2,1120,0)=" D ITEMA Q:QUIT!(ITEM="""")"
^XMB(3.9,131,2,1121,0)="""RTN"",""RMPOPED"",201,0)"
^XMB(3.9,131,2,1122,0)=" S PI=""///Y"" D ITEME K PI"
^XMB(3.9,131,2,1123,0)="""RTN"",""RMPOPED"",202,0)"
^XMB(3.9,131,2,1124,0)=" Q"
^XMB(3.9,131,2,1125,0)="""RTN"",""RMPOPED"",203,0)"
^XMB(3.9,131,2,1126,0)="ITEMA ; Add Items"
^XMB(3.9,131,2,1127,0)="""RTN"",""RMPOPED"",204,0)"
^XMB(3.9,131,2,1128,0)=" S ITEM="""""
^XMB(3.9,131,2,1129,0)="""RTN"",""RMPOPED"",205,0)"
^XMB(3.9,131,2,1130,0)=" K DIC S DIC=""^RMPR(661,"",DIC(0)=""AEQMZ"" D ^DIC Q:Y<0!$$QUIT"
^XMB(3.9,131,2,1131,0)="""RTN"",""RMPOPED"",206,0)"
^XMB(3.9,131,2,1132,0)=" K DD,DO,DA,DIC"
^XMB(3.9,131,2,1133,0)="""RTN"",""RMPOPED"",207,0)"
^XMB(3.9,131,2,1134,0)=" S DIC=""^RMPR(665,""_RMPODFN_"",""""RMPOC"""","",DIC(0)=""L"""
^XMB(3.9,131,2,1135,0)="""RTN"",""RMPOPED"",208,0)"
^XMB(3.9,131,2,1136,0)=" S DIC(""P"")=$P(^DD(665,19.4,0),U,2),DA(1)=RMPODFN,X=+Y"
^XMB(3.9,131,2,1137,0)="""RTN"",""RMPOPED"",209,0)"
^XMB(3.9,131,2,1138,0)=" D FILE^DICN I Y>0 S IEN=$G(IEN)+1,IEN(IEN)=+Y,ITEM=IEN"
^XMB(3.9,131,2,1139,0)="""RTN"",""RMPOPED"",210,0)"
^XMB(3.9,131,2,1140,0)=" Q"
^XMB(3.9,131,2,1141,0)="""RTN"",""RMPOPED"",211,0)"
^XMB(3.9,131,2,1142,0)="ITEMS ; Select Item"
^XMB(3.9,131,2,1143,0)="""RTN"",""RMPOPED"",212,0)"
^XMB(3.9,131,2,1144,0)=" ; Return ITEM = index into both ITEMS and IEN arrays"
^XMB(3.9,131,2,1145,0)="""RTN"",""RMPOPED"",213,0)"
^XMB(3.9,131,2,1146,0)=" I IEN=1 S ITEM=1 W ""  "",$E(ITEMS(1),1,33) Q"
^XMB(3.9,131,2,1147,0)="""RTN"",""RMPOPED"",214,0)"
^XMB(3.9,131,2,1148,0)=" K DIR"
^XMB(3.9,131,2,1149,0)="""RTN"",""RMPOPED"",215,0)"
^XMB(3.9,131,2,1150,0)=" S ITEM="""""
^XMB(3.9,131,2,1151,0)="""RTN"",""RMPOPED"",216,0)"
^XMB(3.9,131,2,1152,0)=" S DIR(0)=""NO^1:""_IEN,DIR(""A"")=""Select an ITEM"""
^XMB(3.9,131,2,1153,0)="""RTN"",""RMPOPED"",217,0)"
^XMB(3.9,131,2,1154,0)=" S DIR(""?"")=""Select an item from the list"""
^XMB(3.9,131,2,1155,0)="""RTN"",""RMPOPED"",218,0)"
^XMB(3.9,131,2,1156,0)=" M DIR(""?"")=ITEMS"
^XMB(3.9,131,2,1157,0)="""RTN"",""RMPOPED"",219,0)"
^XMB(3.9,131,2,1158,0)=" D ^DIR Q:Y'>0!$$QUIT"
^XMB(3.9,131,2,1159,0)="""RTN"",""RMPOPED"",220,0)"
^XMB(3.9,131,2,1160,0)=" S ITEM=+Y W ""  "",$E(ITEMS(ITEM),1,33)"
^XMB(3.9,131,2,1161,0)="""RTN"",""RMPOPED"",221,0)"
^XMB(3.9,131,2,1162,0)=" Q"
^XMB(3.9,131,2,1163,0)="""RTN"",""RMPOPED"",222,0)"
^XMB(3.9,131,2,1164,0)="ITEME ; Edit an Item"
^XMB(3.9,131,2,1165,0)="""RTN"",""RMPOPED"",223,0)"
^XMB(3.9,131,2,1166,0)=" N FCP,DFCP,RMCPTHCP,RMCPRENT K DIE,DA,DR,RMCPT"
^XMB(3.9,131,2,1167,0)="""RTN"",""RMPOPED"",224,0)"
^XMB(3.9,131,2,1168,0)=" S DA(1)=RMPODFN,DA=IEN(ITEM),DIE=""^RMPR(665,""_DA(1)_"",""""RMPOC"""","""
^XMB(3.9,131,2,1169,0)="""RTN"",""RMPOPED"",225,0)"
^XMB(3.9,131,2,1170,0)=" D ITEMEP Q:QUIT"
^XMB(3.9,131,2,1171,0)="""RTN"",""RMPOPED"",226,0)"
^XMB(3.9,131,2,1172,0)=" S DR="".01R;6R"" D ^DIE Q:$$EQUIT!('$D(DA))"
^XMB(3.9,131,2,1173,0)="""RTN"",""RMPOPED"",227,0)"
^XMB(3.9,131,2,1174,0)=" S RMCPTHCP=$P($G(^RMPR(665,RMPODFN,""RMPOC"",DA,0)),U,7)"
^XMB(3.9,131,2,1175,0)="""RTN"",""RMPOPED"",228,0)"
^XMB(3.9,131,2,1176,0)=" S RMCPT=$P($G(^RMPR(661.1,RMCPTHCP,4)),U,1) S DR="""""
^XMB(3.9,131,2,1177,0)="""RTN"",""RMPOPED"",229,0)"
^XMB(3.9,131,2,1178,0)=" S RMCPRENT=$P($G(^RMPR(661.1,RMCPTHCP,5)),U,1)"
^XMB(3.9,131,2,1179,0)="""RTN"",""RMPOPED"",230,0)"
^XMB(3.9,131,2,1180,0)=" I RMCPT[""RR"",(RMCPRENT=1) S DR=""11;"""
^XMB(3.9,131,2,1181,0)="""RTN"",""RMPOPED"",231,0)"
^XMB(3.9,131,2,1182,0)=" I RMCPT[""QH"" S DR=DR_""12;"""
^XMB(3.9,131,2,1183,0)="""RTN"",""RMPOPED"",232,0)"
^XMB(3.9,131,2,1184,0)=" S DR=DR_""1R;2R;3R;4;7;8;9R"" K RMCPRENT,RMCPTHCP"
^XMB(3.9,131,2,1185,0)="""RTN"",""RMPOPED"",233,0)"
^XMB(3.9,131,2,1186,0)=" D ^DIE I $D(DA),$D(RMCPT),(RMCPT'[""RR"") S $P(^RMPR(665,DA(1),""RMPOC"",DA,0),U,12)="""""
^XMB(3.9,131,2,1187,0)="""RTN"",""RMPOPED"",234,0)"
^XMB(3.9,131,2,1188,0)=" I $D(DA),$D(RMCPT),(RMCPT'[""QH"") S $P(^RMPR(665,DA(1),""RMPOC"",DA,0),U,13)="""""
^XMB(3.9,131,2,1189,0)="""RTN"",""RMPOPED"",235,0)"
^XMB(3.9,131,2,1190,0)=" Q:$$EQUIT"
^XMB(3.9,131,2,1191,0)="""RTN"",""RMPOPED"",236,0)"
^XMB(3.9,131,2,1192,0)=" ; Kludge to ""point"" to file 420"
^XMB(3.9,131,2,1193,0)="""RTN"",""RMPOPED"",237,0)"
^XMB(3.9,131,2,1194,0)=" S DFCP=$P(^RMPR(665,RMPODFN,""RMPOC"",IEN(ITEM),0),U,6)"
^XMB(3.9,131,2,1195,0)="""RTN"",""RMPOPED"",238,0)"
^XMB(3.9,131,2,1196,0)=" F  D  Q:(FCP>0)!QUIT"
^XMB(3.9,131,2,1197,0)="""RTN"",""RMPOPED"",239,0)"
^XMB(3.9,131,2,1198,0)=" . S FCP=$$GETFCP^RMPOBILU(DFCP) Q:QUIT"
^XMB(3.9,131,2,1199,0)="""RTN"",""RMPOPED"",240,0)"
^XMB(3.9,131,2,1200,0)=" . I FCP<0 W $C(7)_""REQUIRED FIELD!"""
^XMB(3.9,131,2,1201,0)="""RTN"",""RMPOPED"",241,0)"
^XMB(3.9,131,2,1202,0)=" I FCP>0 S DR=""5///""_$P(FCP,U,2) D ^DIE Q:$$EQUIT"
^XMB(3.9,131,2,1203,0)="""RTN"",""RMPOPED"",242,0)"
^XMB(3.9,131,2,1204,0)=" ; End Kludge"
^XMB(3.9,131,2,1205,0)="""RTN"",""RMPOPED"",243,0)"
^XMB(3.9,131,2,1206,0)=" ;S DR=""7:9"" D ^DIE Q:$$EQUIT"
^XMB(3.9,131,2,1207,0)="""RTN"",""RMPOPED"",244,0)"
^XMB(3.9,131,2,1208,0)=" Q"
^XMB(3.9,131,2,1209,0)="""RTN"",""RMPOPED"",245,0)"
^XMB(3.9,131,2,1210,0)="ITEMEP ; Primary Item edit..."
^XMB(3.9,131,2,1211,0)="""RTN"",""RMPOPED"",246,0)"
^XMB(3.9,131,2,1212,0)=" N PIEN,PFLG,RMDA,RMNO"
^XMB(3.9,131,2,1213,0)="""RTN"",""RMPOPED"",247,0)"
^XMB(3.9,131,2,1214,0)=" S RMDA=DA,DR=""10"" D ^DIE Q:$$QUIT"
^XMB(3.9,131,2,1215,0)="""RTN"",""RMPOPED"",248,0)"
^XMB(3.9,131,2,1216,0)=" I $P(^RMPR(665,RMPODFN,""RMPOC"",RMDA,0),U,11)'=""Y"" Q"
^XMB(3.9,131,2,1217,0)="""RTN"",""RMPOPED"",249,0)"
^XMB(3.9,131,2,1218,0)=" ; Logic to control toggling of Primary Item flag..."
^XMB(3.9,131,2,1219,0)="""RTN"",""RMPOPED"",250,0)"
^XMB(3.9,131,2,1220,0)=" S RMNO=""N"""
^XMB(3.9,131,2,1221,0)="""RTN"",""RMPOPED"",251,0)"
^XMB(3.9,131,2,1222,0)=" F RMX=0:0 S RMX=$O(^RMPR(665,RMPODFN,""RMPOC"",RMX)) Q:RMX'>0  D"
^XMB(3.9,131,2,1223,0)="""RTN"",""RMPOPED"",252,0)"
^XMB(3.9,131,2,1224,0)=" . Q:RMDA=RMX"
^XMB(3.9,131,2,1225,0)="""RTN"",""RMPOPED"",253,0)"
^XMB(3.9,131,2,1226,0)=" . S DA=RMX,DR=""10///^S X=RMNO"" D ^DIE"
^XMB(3.9,131,2,1227,0)="""RTN"",""RMPOPED"",254,0)"
^XMB(3.9,131,2,1228,0)=" S DA=RMDA"
^XMB(3.9,131,2,1229,0)="""RTN"",""RMPOPED"",255,0)"
^XMB(3.9,131,2,1230,0)=" Q"
^XMB(3.9,131,2,1231,0)="""RTN"",""RMPOPED"",256,0)"
^XMB(3.9,131,2,1232,0)="PIEN(DFN) ; FIND PRIMARY ITEM"
^XMB(3.9,131,2,1233,0)="""RTN"",""RMPOPED"",257,0)"
^XMB(3.9,131,2,1234,0)=" ; RETURN IEN OF P.I. IN MULTIPLE ^ IEN IN FILE 661"
^XMB(3.9,131,2,1235,0)="""RTN"",""RMPOPED"",258,0)"
^XMB(3.9,131,2,1236,0)=" N X,PIEN"
^XMB(3.9,131,2,1237,0)="""RTN"",""RMPOPED"",259,0)"
^XMB(3.9,131,2,1238,0)=" S X=0,PIEN=0"
^XMB(3.9,131,2,1239,0)="""RTN"",""RMPOPED"",260,0)"
^XMB(3.9,131,2,1240,0)=" F  S X=$O(^RMPR(665,DFN,""RMPOC"",X)) Q:X'>0  D  Q:PIEN"
^XMB(3.9,131,2,1241,0)="""RTN"",""RMPOPED"",261,0)"
^XMB(3.9,131,2,1242,0)=" . S:$P(^RMPR(665,DFN,""RMPOC"",X,0),U,11)=""Y"" PIEN=X"
^XMB(3.9,131,2,1243,0)="""RTN"",""RMPOPED"",262,0)"
^XMB(3.9,131,2,1244,0)=" S:PIEN PIEN=PIEN_U_$P(^RMPR(665,DFN,""RMPOC"",PIEN,0),U,1)"
^XMB(3.9,131,2,1245,0)="""RTN"",""RMPOPED"",263,0)"
^XMB(3.9,131,2,1246,0)=" Q PIEN"
^XMB(3.9,131,2,1247,0)="""RTN"",""RMPOPED"",264,0)"
^XMB(3.9,131,2,1248,0)="ITEMD ; Display Items"
^XMB(3.9,131,2,1249,0)="""RTN"",""RMPOPED"",265,0)"
^XMB(3.9,131,2,1250,0)=" N I,Z,PIF,ITMNM,VDRNM"
^XMB(3.9,131,2,1251,0)="""RTN"",""RMPOPED"",266,0)"
^XMB(3.9,131,2,1252,0)=" K IEN,ITEMS S I=0"
^XMB(3.9,131,2,1253,0)="""RTN"",""RMPOPED"",267,0)"
^XMB(3.9,131,2,1254,0)=" Q:$O(^RMPR(665,RMPODFN,""RMPOC"",0))'>0"
^XMB(3.9,131,2,1255,0)="""RTN"",""RMPOPED"",268,0)"
^XMB(3.9,131,2,1256,0)=" W !!,""The following items are already in this patient's template:"",!"
^XMB(3.9,131,2,1257,0)="""RTN"",""RMPOPED"",269,0)"
^XMB(3.9,131,2,1258,0)=" F IEN=1:1 S I=$O(^RMPR(665,RMPODFN,""RMPOC"",I)) Q:I'>0  D"
^XMB(3.9,131,2,1259,0)="""RTN"",""RMPOPED"",270,0)"
^XMB(3.9,131,2,1260,0)=" . S Z=^RMPR(665,RMPODFN,""RMPOC"",I,0)"
^XMB(3.9,131,2,1261,0)="""RTN"",""RMPOPED"",271,0)"
^XMB(3.9,131,2,1262,0)=" . S PIF=$S($P(Z,U,11)=""Y"":""*"",1:"" "")"
^XMB(3.9,131,2,1263,0)="""RTN"",""RMPOPED"",272,0)"
^XMB(3.9,131,2,1264,0)=" . S ITMNM=$$ITEMNM($P(Z,U)),VDRNM=$$VDRNM($P(Z,U,2))"
^XMB(3.9,131,2,1265,0)="""RTN"",""RMPOPED"",273,0)"
^XMB(3.9,131,2,1266,0)=" .; K X S IENS=$P(Z,U)_"","""
^XMB(3.9,131,2,1267,0)="""RTN"",""RMPOPED"",274,0)"
^XMB(3.9,131,2,1268,0)=" .; D GETS^DIQ(661,IENS,.01,"""",""X"") S ITMNM=$E(X(661,IENS,.01),1,33)"
^XMB(3.9,131,2,1269,0)="""RTN"",""RMPOPED"",275,0)"
^XMB(3.9,131,2,1270,0)=" .; S IENS=$P(Z,U,2)_"","",VDRNM=""<< VENDOR NOT DEFINED >>"""
^XMB(3.9,131,2,1271,0)="""RTN"",""RMPOPED"",276,0)"
^XMB(3.9,131,2,1272,0)=" .; I IENS'="","" D GETS^DIQ(440,IENS,.01,"""",""X"") S VDRNM=X(440,IENS,.01)"
^XMB(3.9,131,2,1273,0)="""RTN"",""RMPOPED"",277,0)"
^XMB(3.9,131,2,1274,0)=" . S IEN(IEN)=I"
^XMB(3.9,131,2,1275,0)="""RTN"",""RMPOPED"",278,0)"
^XMB(3.9,131,2,1276,0)=" . S ITEMS(IEN)="" ""_PIF_$J(IEN,4)_""  ""_$$LJ(ITMNM,38)_$E(VDRNM,1,30)"
^XMB(3.9,131,2,1277,0)="""RTN"",""RMPOPED"",279,0)"
^XMB(3.9,131,2,1278,0)=" . W !,ITEMS(IEN)"
^XMB(3.9,131,2,1279,0)="""RTN"",""RMPOPED"",280,0)"
^XMB(3.9,131,2,1280,0)=" W !!,"" * = Primary Item"",!"
^XMB(3.9,131,2,1281,0)="""RTN"",""RMPOPED"",281,0)"
^XMB(3.9,131,2,1282,0)=" S IEN=IEN-1"
^XMB(3.9,131,2,1283,0)="""RTN"",""RMPOPED"",282,0)"
^XMB(3.9,131,2,1284,0)=" Q"
^XMB(3.9,131,2,1285,0)="""RTN"",""RMPOPED"",283,0)"
^XMB(3.9,131,2,1286,0)="ITEMNM(ITM) ; RETURN ITEM NAME"
^XMB(3.9,131,2,1287,0)="""RTN"",""RMPOPED"",284,0)"
^XMB(3.9,131,2,1288,0)=" S IENS=ITM_"","""
^XMB(3.9,131,2,1289,0)="""RTN"",""RMPOPED"",285,0)"
^XMB(3.9,131,2,1290,0)=" D GETS^DIQ(661,IENS,.01,"""",""X"")"
^XMB(3.9,131,2,1291,0)="""RTN"",""RMPOPED"",286,0)"
^XMB(3.9,131,2,1292,0)=" Q $E(X(661,IENS,.01),1,33)"
^XMB(3.9,131,2,1293,0)="""RTN"",""RMPOPED"",287,0)"
^XMB(3.9,131,2,1294,0)="VDRNM(VDR) ; RETURN VENDOR NAME"
^XMB(3.9,131,2,1295,0)="""RTN"",""RMPOPED"",288,0)"
^XMB(3.9,131,2,1296,0)=" I VDR="""" Q ""<< VENDOR NOT DEFINED >>"""
^XMB(3.9,131,2,1297,0)="""RTN"",""RMPOPED"",289,0)"
^XMB(3.9,131,2,1298,0)=" S IENS=VDR_"","" D GETS^DIQ(440,IENS,.01,"""",""X"")"
^XMB(3.9,131,2,1299,0)="""RTN"",""RMPOPED"",290,0)"
^XMB(3.9,131,2,1300,0)=" Q X(440,IENS,.01)"
^XMB(3.9,131,2,1301,0)="""RTN"",""RMPOPED"",291,0)"
^XMB(3.9,131,2,1302,0)="ITEMK ; Delete an Item"
^XMB(3.9,131,2,1303,0)="""RTN"",""RMPOPED"",292,0)"
^XMB(3.9,131,2,1304,0)=" ;"
^XMB(3.9,131,2,1305,0)="""RTN"",""RMPOPED"",293,0)"
^XMB(3.9,131,2,1306,0)=" K DIR S DIR(0)=""Y"",DIR(""A"")=""Are you SURE you want to delete this item"""
^XMB(3.9,131,2,1307,0)="""RTN"",""RMPOPED"",294,0)"
^XMB(3.9,131,2,1308,0)=" S DIR(""B"")=""NO"" D ^DIR Q:Y'>0"
^XMB(3.9,131,2,1309,0)="""RTN"",""RMPOPED"",295,0)"
^XMB(3.9,131,2,1310,0)=" K DIK,DA"
^XMB(3.9,131,2,1311,0)="""RTN"",""RMPOPED"",296,0)"
^XMB(3.9,131,2,1312,0)=" S DA(1)=RMPODFN,DA=IEN(ITEM),DIK=""^RMPR(665,""_DA(1)_"",""""RMPOC"""","""
^XMB(3.9,131,2,1313,0)="""RTN"",""RMPOPED"",297,0)"
^XMB(3.9,131,2,1314,0)=" D ^DIK W ""  ...deleted!"""
^XMB(3.9,131,2,1315,0)="""RTN"",""RMPOPED"",298,0)"
^XMB(3.9,131,2,1316,0)=" Q"
^XMB(3.9,131,2,1317,0)="""RTN"",""RMPOPED"",299,0)"
^XMB(3.9,131,2,1318,0)="ITEMO() ; Choose Option"
^XMB(3.9,131,2,1319,0)="""RTN"",""RMPOPED"",300,0)"
^XMB(3.9,131,2,1320,0)=" K DIR"
^XMB(3.9,131,2,1321,0)="""RTN"",""RMPOPED"",301,0)"
^XMB(3.9,131,2,1322,0)=" S DIR(0)=""SBO^A:Add;D:Delete;E:Edit"",DIR(""A"")=""Select ACTION"" D ^DIR"
^XMB(3.9,131,2,1323,0)="""RTN"",""RMPOPED"",302,0)"
^XMB(3.9,131,2,1324,0)=" Q Y"
^XMB(3.9,131,2,1325,0)="""RTN"",""RMPOPED"",303,0)"
^XMB(3.9,131,2,1326,0)=" Q"
^XMB(3.9,131,2,1327,0)="""RTN"",""RMPOPS23"")"
^XMB(3.9,131,2,1328,0)="0^3^B30619186^B30575942"
^XMB(3.9,131,2,1329,0)="""RTN"",""RMPOPS23"",1,0)"
^XMB(3.9,131,2,1330,0)="RMPOPS23 ;HIN/RVD - HOME OXYGEN BILLING - POST TO 2319 ;5/18/99"
^XMB(3.9,131,2,1331,0)="""RTN"",""RMPOPS23"",2,0)"
^XMB(3.9,131,2,1332,0)=" ;;3.0;PROSTHETICS;**29,44,41,110**;Feb 09, 1996;Build 10"
^XMB(3.9,131,2,1333,0)="""RTN"",""RMPOPS23"",3,0)"
^XMB(3.9,131,2,1334,0)=" ;"
^XMB(3.9,131,2,1335,0)="""RTN"",""RMPOPS23"",4,0)"
^XMB(3.9,131,2,1336,0)=" ;This routine will only post records already been posted in IFCAP."
^XMB(3.9,131,2,1337,0)="""RTN"",""RMPOPS23"",5,0)"
^XMB(3.9,131,2,1338,0)=" ;Patient records are sorted by fund control point (FCP), DFN and"
^XMB(3.9,131,2,1339,0)="""RTN"",""RMPOPS23"",6,0)"
^XMB(3.9,131,2,1340,0)=" ;then post to 2319."
^XMB(3.9,131,2,1341,0)="""RTN"",""RMPOPS23"",7,0)"
^XMB(3.9,131,2,1342,0)=" Q"
^XMB(3.9,131,2,1343,0)="""RTN"",""RMPOPS23"",8,0)"
^XMB(3.9,131,2,1344,0)=" ;"
^XMB(3.9,131,2,1345,0)="""RTN"",""RMPOPS23"",9,0)"
^XMB(3.9,131,2,1346,0)="POST ;main module to post billing transactions to 2319"
^XMB(3.9,131,2,1347,0)="""RTN"",""RMPOPS23"",10,0)"
^XMB(3.9,131,2,1348,0)=" D HOME^%ZIS S QUIT=0"
^XMB(3.9,131,2,1349,0)="""RTN"",""RMPOPS23"",11,0)"
^XMB(3.9,131,2,1350,0)=" D HOSITE^RMPOUTL0 Q:('$D(RMPOXITE))!QUIT"
^XMB(3.9,131,2,1351,0)="""RTN"",""RMPOPS23"",12,0)"
^XMB(3.9,131,2,1352,0)=" D MONTH^RMPOBIL0() Q:$D(RMPODATE)=0!QUIT"
^XMB(3.9,131,2,1353,0)="""RTN"",""RMPOPS23"",13,0)"
^XMB(3.9,131,2,1354,0)=" D VENDOR^RMPOBIL0() Q:$D(RMPOVDR)=0!QUIT"
^XMB(3.9,131,2,1355,0)="""RTN"",""RMPOPS23"",14,0)"
^XMB(3.9,131,2,1356,0)=" S FIL=665.72,SITE=RMPOXITE,RVDT=RMPODATE,VDR=RMPOVDR,QUIT=0"
^XMB(3.9,131,2,1357,0)="""RTN"",""RMPOPS23"",15,0)"
^XMB(3.9,131,2,1358,0)=" W !,""Processing..."" D BUILD"
^XMB(3.9,131,2,1359,0)="""RTN"",""RMPOPS23"",16,0)"
^XMB(3.9,131,2,1360,0)=" I $O(^TMP($J,""""))="""" W !,""Everything posted okay!!"" G EXIT"
^XMB(3.9,131,2,1361,0)="""RTN"",""RMPOPS23"",17,0)"
^XMB(3.9,131,2,1362,0)=" S FCP="""" F  S FCP=$O(^TMP($J,FCP)) Q:FCP=""""  F DFN=0:0 S DFN=$O(^TMP($J,FCP,DFN)) Q:DFN'>0  D F660"
^XMB(3.9,131,2,1363,0)="""RTN"",""RMPOPS23"",18,0)"
^XMB(3.9,131,2,1364,0)=" ;K DIR S DIR(0)=""FO"",DIR(""A"")=""Press any Key to Continue"" D ^DIR"
^XMB(3.9,131,2,1365,0)="""RTN"",""RMPOPS23"",19,0)"
^XMB(3.9,131,2,1366,0)=" ;"
^XMB(3.9,131,2,1367,0)="""RTN"",""RMPOPS23"",20,0)"
^XMB(3.9,131,2,1368,0)="EXIT ;"
^XMB(3.9,131,2,1369,0)="""RTN"",""RMPOPS23"",21,0)"
^XMB(3.9,131,2,1370,0)=" K ^TMP($J)"
^XMB(3.9,131,2,1371,0)="""RTN"",""RMPOPS23"",22,0)"
^XMB(3.9,131,2,1372,0)=" ;K DFN,ITM,ITDT,ITNO,PATNAM,PATSSN,LNAM,PATFLG,ITSTR,FCP,LCK,ITOT"
^XMB(3.9,131,2,1373,0)="""RTN"",""RMPOPS23"",23,0)"
^XMB(3.9,131,2,1374,0)=" N RMPRSITE,RMPR D KILL^XUSCLEAN"
^XMB(3.9,131,2,1375,0)="""RTN"",""RMPOPS23"",24,0)"
^XMB(3.9,131,2,1376,0)=" Q"
^XMB(3.9,131,2,1377,0)="""RTN"",""RMPOPS23"",25,0)"
^XMB(3.9,131,2,1378,0)=" ;"
^XMB(3.9,131,2,1379,0)="""RTN"",""RMPOPS23"",26,0)"
^XMB(3.9,131,2,1380,0)="BUILD ;Build array IFCAP with patient transactions to post"
^XMB(3.9,131,2,1381,0)="""RTN"",""RMPOPS23"",27,0)"
^XMB(3.9,131,2,1382,0)=" ;Separate patient individual items by fund control point"
^XMB(3.9,131,2,1383,0)="""RTN"",""RMPOPS23"",28,0)"
^XMB(3.9,131,2,1384,0)=" ;tMP($J) array"
^XMB(3.9,131,2,1385,0)="""RTN"",""RMPOPS23"",29,0)"
^XMB(3.9,131,2,1386,0)=" ;   ^TMP($J,FCP)=FCP total^Post flag^error message^purchase card total"
^XMB(3.9,131,2,1387,0)="""RTN"",""RMPOPS23"",30,0)"
^XMB(3.9,131,2,1388,0)=" ;   ^TMP($J,FCP,DFN)=patient tot^pat last name_"" ""_4 digit SSN^post flag^"
^XMB(3.9,131,2,1389,0)="""RTN"",""RMPOPS23"",31,0)"
^XMB(3.9,131,2,1390,0)=" ;                  IFCAP error message^pat name"
^XMB(3.9,131,2,1391,0)="""RTN"",""RMPOPS23"",32,0)"
^XMB(3.9,131,2,1392,0)=" ;   ^TMP($J,FCP,DFN,ITEM)=item tot"
^XMB(3.9,131,2,1393,0)="""RTN"",""RMPOPS23"",33,0)"
^XMB(3.9,131,2,1394,0)=" K ^TMP($J)"
^XMB(3.9,131,2,1395,0)="""RTN"",""RMPOPS23"",34,0)"
^XMB(3.9,131,2,1396,0)=" S DFN=0 F  S DFN=$O(^RMPO(FIL,SITE,1,RVDT,1,VDR,""V"",DFN)) Q:DFN'>0  D"
^XMB(3.9,131,2,1397,0)="""RTN"",""RMPOPS23"",35,0)"
^XMB(3.9,131,2,1398,0)=" . S PATFLG=^RMPO(FIL,SITE,1,RVDT,1,VDR,""V"",DFN,0)"
^XMB(3.9,131,2,1399,0)="""RTN"",""RMPOPS23"",36,0)"
^XMB(3.9,131,2,1400,0)=" . ;check patient post flag"
^XMB(3.9,131,2,1401,0)="""RTN"",""RMPOPS23"",37,0)"
^XMB(3.9,131,2,1402,0)=" . Q:$P(PATFLG,U,3)'=""Y"""
^XMB(3.9,131,2,1403,0)="""RTN"",""RMPOPS23"",38,0)"
^XMB(3.9,131,2,1404,0)=" . D DEM^VADPT S PATNAM=VADM(1),PATSSN=VA(""BID"") ;patient name & ssn"
^XMB(3.9,131,2,1405,0)="""RTN"",""RMPOPS23"",39,0)"
^XMB(3.9,131,2,1406,0)=" . ;lock patient record"
^XMB(3.9,131,2,1407,0)="""RTN"",""RMPOPS23"",40,0)"
^XMB(3.9,131,2,1408,0)=" . S LCK=$$PATLCK() I 'LCK W !,PATNAM,"" record locked by another user"" Q"
^XMB(3.9,131,2,1409,0)="""RTN"",""RMPOPS23"",41,0)"
^XMB(3.9,131,2,1410,0)=" . ;get items not posted for each patient"
^XMB(3.9,131,2,1411,0)="""RTN"",""RMPOPS23"",42,0)"
^XMB(3.9,131,2,1412,0)=" . S ITM=0"
^XMB(3.9,131,2,1413,0)="""RTN"",""RMPOPS23"",43,0)"
^XMB(3.9,131,2,1414,0)=" . F  S ITM=$O(^RMPO(FIL,SITE,1,RVDT,1,VDR,""V"",DFN,1,ITM)) Q:'ITM  D"
^XMB(3.9,131,2,1415,0)="""RTN"",""RMPOPS23"",44,0)"
^XMB(3.9,131,2,1416,0)=" . . S ITDT=^RMPO(FIL,SITE,1,RVDT,1,VDR,""V"",DFN,1,ITM,0)"
^XMB(3.9,131,2,1417,0)="""RTN"",""RMPOPS23"",45,0)"
^XMB(3.9,131,2,1418,0)=" . . ;check if item posted"
^XMB(3.9,131,2,1419,0)="""RTN"",""RMPOPS23"",46,0)"
^XMB(3.9,131,2,1420,0)=" . . Q:$P(ITDT,U,10)'=""Y"""
^XMB(3.9,131,2,1421,0)="""RTN"",""RMPOPS23"",47,0)"
^XMB(3.9,131,2,1422,0)=" . . Q:$P(ITDT,U,16)>0"
^XMB(3.9,131,2,1423,0)="""RTN"",""RMPOPS23"",48,0)"
^XMB(3.9,131,2,1424,0)=" . . S ITNO=$P(ITDT,U),FCP=$P(ITDT,U,3),ITOT=$P(ITDT,U,6)"
^XMB(3.9,131,2,1425,0)="""RTN"",""RMPOPS23"",49,0)"
^XMB(3.9,131,2,1426,0)=" . . I ITOT'>0 Q  ;no amount to post"
^XMB(3.9,131,2,1427,0)="""RTN"",""RMPOPS23"",50,0)"
^XMB(3.9,131,2,1428,0)=" . . I FCP="""" Q  ;no fund control point"
^XMB(3.9,131,2,1429,0)="""RTN"",""RMPOPS23"",51,0)"
^XMB(3.9,131,2,1430,0)=" . . ;set ^TMP($J) array"
^XMB(3.9,131,2,1431,0)="""RTN"",""RMPOPS23"",52,0)"
^XMB(3.9,131,2,1432,0)=" . . S ^TMP($J,FCP)=$S('$D(^TMP($J,FCP)):0.00,1:^TMP($J,FCP))+ITOT"
^XMB(3.9,131,2,1433,0)="""RTN"",""RMPOPS23"",53,0)"
^XMB(3.9,131,2,1434,0)=" . . I $G(^TMP($J,FCP,DFN))="""" D"
^XMB(3.9,131,2,1435,0)="""RTN"",""RMPOPS23"",54,0)"
^XMB(3.9,131,2,1436,0)=" . . . S LNAM=$E($P(PATNAM,"","")_""       "",1,7)"
^XMB(3.9,131,2,1437,0)="""RTN"",""RMPOPS23"",55,0)"
^XMB(3.9,131,2,1438,0)=" . . . S ^TMP($J,FCP,DFN)=""^""_LNAM_"" ""_PATSSN_""^^^""_$E(PATNAM,1,18)"
^XMB(3.9,131,2,1439,0)="""RTN"",""RMPOPS23"",56,0)"
^XMB(3.9,131,2,1440,0)=" . . S $P(^TMP($J,FCP,DFN),U)=+^TMP($J,FCP,DFN)+ITOT,^TMP($J,FCP,DFN,ITM)=ITOT"
^XMB(3.9,131,2,1441,0)="""RTN"",""RMPOPS23"",57,0)"
^XMB(3.9,131,2,1442,0)=" . D UNLKPAT"
^XMB(3.9,131,2,1443,0)="""RTN"",""RMPOPS23"",58,0)"
^XMB(3.9,131,2,1444,0)=" Q"
^XMB(3.9,131,2,1445,0)="""RTN"",""RMPOPS23"",59,0)"
^XMB(3.9,131,2,1446,0)=" ;"
^XMB(3.9,131,2,1447,0)="""RTN"",""RMPOPS23"",60,0)"
^XMB(3.9,131,2,1448,0)="F660 ;Post to file ^RMPR(660 for form 2319"
^XMB(3.9,131,2,1449,0)="""RTN"",""RMPOPS23"",61,0)"
^XMB(3.9,131,2,1450,0)=" S D665A=$G(^RMPR(665,DFN,""RMPOA"")) I D665A="""" Q"
^XMB(3.9,131,2,1451,0)="""RTN"",""RMPOPS23"",62,0)"
^XMB(3.9,131,2,1452,0)=" D  ;AMIS grouper number"
^XMB(3.9,131,2,1453,0)="""RTN"",""RMPOPS23"",63,0)"
^XMB(3.9,131,2,1454,0)=" . L +^RMPR(669.9,RMPOXITE,0):9999 I $T=0 S RMPOG=DT_$P(DT,2,3) Q"
^XMB(3.9,131,2,1455,0)="""RTN"",""RMPOPS23"",64,0)"
^XMB(3.9,131,2,1456,0)=" . S RMPOG=$P(^RMPR(669.9,RMPOXITE,0),U,7),RMPOG=RMPOG-1"
^XMB(3.9,131,2,1457,0)="""RTN"",""RMPOPS23"",65,0)"
^XMB(3.9,131,2,1458,0)=" . S $P(^RMPR(669.9,RMPOXITE,0),U,7)=RMPOG"
^XMB(3.9,131,2,1459,0)="""RTN"",""RMPOPS23"",66,0)"
^XMB(3.9,131,2,1460,0)=" . L -^RMPR(669.9,RMPOXITE,0)"
^XMB(3.9,131,2,1461,0)="""RTN"",""RMPOPS23"",67,0)"
^XMB(3.9,131,2,1462,0)=" S TRXDT=$P(^RMPO(665.72,RMPOXITE,1,RMPODATE,1,RMPOVDR,0),U,2)"
^XMB(3.9,131,2,1463,0)="""RTN"",""RMPOPS23"",68,0)"
^XMB(3.9,131,2,1464,0)=" S RFCPIEN=$O(^RMPO(665.72,1,1,RMPODATE,2,""B"",FCP,0))"
^XMB(3.9,131,2,1465,0)="""RTN"",""RMPOPS23"",69,0)"
^XMB(3.9,131,2,1466,0)=" S SRVORD=$P(^RMPO(665.72,RMPOXITE,1,RMPODATE,2,RFCPIEN,0),U,4)"
^XMB(3.9,131,2,1467,0)="""RTN"",""RMPOPS23"",70,0)"
^XMB(3.9,131,2,1468,0)=" S PAYINF=$P(^RMPO(665.72,RMPOXITE,1,RMPODATE,2,RFCPIEN,0),U,2)"
^XMB(3.9,131,2,1469,0)="""RTN"",""RMPOPS23"",71,0)"
^XMB(3.9,131,2,1470,0)=" S ITM=0 F  S ITM=$O(^TMP($J,FCP,DFN,ITM)) Q:ITM'>0  D"
^XMB(3.9,131,2,1471,0)="""RTN"",""RMPOPS23"",72,0)"
^XMB(3.9,131,2,1472,0)=" . S ITMD=$G(^RMPO(665.72,RMPOXITE,1,RMPODATE,1,RMPOVDR,""V"",DFN,1,ITM,0))"
^XMB(3.9,131,2,1473,0)="""RTN"",""RMPOPS23"",73,0)"
^XMB(3.9,131,2,1474,0)=" . S RMITEM=$P(ITMD,U,1)"
^XMB(3.9,131,2,1475,0)="""RTN"",""RMPOPS23"",74,0)"
^XMB(3.9,131,2,1476,0)=" . I $G(RMITEM),$D(^RMPR(661,RMITEM,0)) S RITIEN=$P(^RMPR(661,RMITEM,0),U,1)"
^XMB(3.9,131,2,1477,0)="""RTN"",""RMPOPS23"",75,0)"
^XMB(3.9,131,2,1478,0)=" . I ITMD="""" Q"
^XMB(3.9,131,2,1479,0)="""RTN"",""RMPOPS23"",76,0)"
^XMB(3.9,131,2,1480,0)=" . I $P(ITMD,U,6)'>0 Q       ;nothing posted to IFCAP"
^XMB(3.9,131,2,1481,0)="""RTN"",""RMPOPS23"",77,0)"
^XMB(3.9,131,2,1482,0)=" . S RMCPHC=$P(ITMD,U,2),RMCPT="""",RMCPRENT=$P(ITMD,U,18),RMCPSO=""C"""
^XMB(3.9,131,2,1483,0)="""RTN"",""RMPOPS23"",78,0)"
^XMB(3.9,131,2,1484,0)=" . S RMCPTY=$P(ITMD,U,14),RMCPQH=$P(ITMD,U,19)"
^XMB(3.9,131,2,1485,0)="""RTN"",""RMPOPS23"",79,0)"
^XMB(3.9,131,2,1486,0)=" . S RMCPT1=$G(^RMPR(661.1,RMCPHC,4))"
^XMB(3.9,131,2,1487,0)="""RTN"",""RMPOPS23"",80,0)"
^XMB(3.9,131,2,1488,0)=" . I RMCPT1[""RP"",((RMCPTY=""R"")!(RMCPTY=""X"")) S RMCPT=RMCPT_""RP,"""
^XMB(3.9,131,2,1489,0)="""RTN"",""RMPOPS23"",81,0)"
^XMB(3.9,131,2,1490,0)=" . I RMCPT1[""QH"",($G(RMCPQH)) S RMCPT=RMCPT_""QH,"""
^XMB(3.9,131,2,1491,0)="""RTN"",""RMPOPS23"",82,0)"
^XMB(3.9,131,2,1492,0)=" . I (RMCPRENT=1),(RMCPT1[""RR"") S RMCPT=RMCPT_""RR,"""
^XMB(3.9,131,2,1493,0)="""RTN"",""RMPOPS23"",83,0)"
^XMB(3.9,131,2,1494,0)=" . I RMCPT1[""NU"",(RMCPT'[""RR"") S RMCPT=RMCPT_""NU,"""
^XMB(3.9,131,2,1495,0)="""RTN"",""RMPOPS23"",84,0)"
^XMB(3.9,131,2,1496,0)=" . I $L(RMCPT)>2 S RMCLEN=$L(RMCPT),RMCPT=$E(RMCPT,1,RMCLEN-1)"
^XMB(3.9,131,2,1497,0)="""RTN"",""RMPOPS23"",85,0)"
^XMB(3.9,131,2,1498,0)=" . S DIC=""^RMPR(660,"",DIC(0)=""L"",X=DT"
^XMB(3.9,131,2,1499,0)="""RTN"",""RMPOPS23"",86,0)"
^XMB(3.9,131,2,1500,0)=" . K DD,DO D FILE^DICN I +Y<0 Q"
^XMB(3.9,131,2,1501,0)="""RTN"",""RMPOPS23"",87,0)"
^XMB(3.9,131,2,1502,0)=" . S D6I=+Y,D6X=D6I_"","""
^XMB(3.9,131,2,1503,0)="""RTN"",""RMPOPS23"",88,0)"
^XMB(3.9,131,2,1504,0)=" . K DIE,DA,DR S DA(4)=RMPOXITE,DA(3)=RMPODATE,DA(2)=RMPOVDR,DA(1)=DFN"
^XMB(3.9,131,2,1505,0)="""RTN"",""RMPOPS23"",89,0)"
^XMB(3.9,131,2,1506,0)=" . S DIE=""^RMPO(665.72,""_DA(4)_"",1,""_DA(3)_"",1,""_DA(2)_"",""""V"""",""_DA(1)"
^XMB(3.9,131,2,1507,0)="""RTN"",""RMPOPS23"",90,0)"
^XMB(3.9,131,2,1508,0)=" . S DIE=DIE_"",1,"",DA=ITM,DR=""15////^S X=D6I"" D ^DIE"
^XMB(3.9,131,2,1509,0)="""RTN"",""RMPOPS23"",91,0)"
^XMB(3.9,131,2,1510,0)=" . S D660(660,D6X,.02)=DFN                 ;Patient name pointer"
^XMB(3.9,131,2,1511,0)="""RTN"",""RMPOPS23"",92,0)"
^XMB(3.9,131,2,1512,0)=" . S D660(660,D6X,1)=TRXDT                 ;Request date"
^XMB(3.9,131,2,1513,0)="""RTN"",""RMPOPS23"",93,0)"
^XMB(3.9,131,2,1514,0)=" . S D660(660,D6X,2)=$P(ITMD,U,14)         ;Type of transaction"
^XMB(3.9,131,2,1515,0)="""RTN"",""RMPOPS23"",94,0)"
^XMB(3.9,131,2,1516,0)=" . S D660(660,D6X,4)=$P(ITMD,U)            ;item"
^XMB(3.9,131,2,1517,0)="""RTN"",""RMPOPS23"",95,0)"
^XMB(3.9,131,2,1518,0)=" . S D660(660,D6X,4.1)=$P(^RMPR(661.1,$P(ITMD,U,2),0),U,4) ;HCPCS"
^XMB(3.9,131,2,1519,0)="""RTN"",""RMPOPS23"",96,0)"
^XMB(3.9,131,2,1520,0)=" . S D660(660,D6X,4.5)=$P(ITMD,U,2)        ;PSAS HCPCS"
^XMB(3.9,131,2,1521,0)="""RTN"",""RMPOPS23"",97,0)"
^XMB(3.9,131,2,1522,0)=" . S D660(660,D6X,4.7)=RMCPT               ;RMCPT"
^XMB(3.9,131,2,1523,0)="""RTN"",""RMPOPS23"",98,0)"
^XMB(3.9,131,2,1524,0)=" . S D660(660,D6X,5)=$P(ITMD,U,7)          ;quantity"
^XMB(3.9,131,2,1525,0)="""RTN"",""RMPOPS23"",99,0)"
^XMB(3.9,131,2,1526,0)=" . S D660(660,D6X,7)=RMPOVDR               ;vendor"
^XMB(3.9,131,2,1527,0)="""RTN"",""RMPOPS23"",100,0)"
^XMB(3.9,131,2,1528,0)=" . S D660(660,D6X,8)=RMPO(""STA"")           ;station"
^XMB(3.9,131,2,1529,0)="""RTN"",""RMPOPS23"",101,0)"
^XMB(3.9,131,2,1530,0)=" . S D660(660,D6X,10)=DT                   ;Delivery date"
^XMB(3.9,131,2,1531,0)="""RTN"",""RMPOPS23"",102,0)"
^XMB(3.9,131,2,1532,0)=" . I $P(PAYINF,U) S D660(660,D6X,11)=9"
^XMB(3.9,131,2,1533,0)="""RTN"",""RMPOPS23"",103,0)"
^XMB(3.9,131,2,1534,0)=" . I $P(PAYINF,U)=""P"" S D660(660,D6X,11)=14"
^XMB(3.9,131,2,1535,0)="""RTN"",""RMPOPS23"",104,0)"
^XMB(3.9,131,2,1536,0)=" . S D660(660,D6X,23)=SRVORD               ;IFCAP transaction number"
^XMB(3.9,131,2,1537,0)="""RTN"",""RMPOPS23"",105,0)"
^XMB(3.9,131,2,1538,0)=" . S D660(660,D6X,12)=""C""                  ;Source"
^XMB(3.9,131,2,1539,0)="""RTN"",""RMPOPS23"",106,0)"
^XMB(3.9,131,2,1540,0)=" . S D660(660,D6X,14)=$P(ITMD,U,6)         ;total cost"
^XMB(3.9,131,2,1541,0)="""RTN"",""RMPOPS23"",107,0)"
^XMB(3.9,131,2,1542,0)=" . S D660(660,D6X,16)=$P(ITMD,U,4)         ;remarks"
^XMB(3.9,131,2,1543,0)="""RTN"",""RMPOPS23"",108,0)"
^XMB(3.9,131,2,1544,0)=" . S SUSDES=$S($P(ITMD,U,11)'="""":""Suspended Amt ""_$P(ITMD,U,11)_"" "",1:"""")"
^XMB(3.9,131,2,1545,0)="""RTN"",""RMPOPS23"",109,0)"
^XMB(3.9,131,2,1546,0)=" . S D660(660,D6X,24)=SUSDES_$P(ITMD,U,12) ;description"
^XMB(3.9,131,2,1547,0)="""RTN"",""RMPOPS23"",110,0)"
^XMB(3.9,131,2,1548,0)=" . S D660(660,D6X,27)=DUZ                  ;initator"
^XMB(3.9,131,2,1549,0)="""RTN"",""RMPOPS23"",111,0)"
^XMB(3.9,131,2,1550,0)=" . S D660(660,D6X,62)=$P(D665A,U)          ;patient category"
^XMB(3.9,131,2,1551,0)="""RTN"",""RMPOPS23"",112,0)"
^XMB(3.9,131,2,1552,0)=" . S D660(660,D6X,63)=$P(D665A,U,5)        ;special category"
^XMB(3.9,131,2,1553,0)="""RTN"",""RMPOPS23"",113,0)"
^XMB(3.9,131,2,1554,0)=" . S D660(660,D6X,68)=RMPOG"
^XMB(3.9,131,2,1555,0)="""RTN"",""RMPOPS23"",114,0)"
^XMB(3.9,131,2,1556,0)=" . S D660(660,D6X,78)=$P(ITMD,U,15)        ;unit of issue"
^XMB(3.9,131,2,1557,0)="""RTN"",""RMPOPS23"",115,0)"
^XMB(3.9,131,2,1558,0)=" . D FILE^DIE(""K"",""D660"",""ERR"")"
^XMB(3.9,131,2,1559,0)="""RTN"",""RMPOPS23"",116,0)"
^XMB(3.9,131,2,1560,0)=" . I $D(ERR) D"
^XMB(3.9,131,2,1561,0)="""RTN"",""RMPOPS23"",117,0)"
^XMB(3.9,131,2,1562,0)=" . . W !!,""Posting to 2319 for item "",ITM,"" patient "",DFN,"" failed."""
^XMB(3.9,131,2,1563,0)="""RTN"",""RMPOPS23"",118,0)"
^XMB(3.9,131,2,1564,0)=" . . W ""Posting will be done later"""
^XMB(3.9,131,2,1565,0)="""RTN"",""RMPOPS23"",119,0)"
^XMB(3.9,131,2,1566,0)=" . I '$D(ERR),$D(^DPT(DFN,0)),$D(^PRC(441,RITIEN,0)) D"
^XMB(3.9,131,2,1567,0)="""RTN"",""RMPOPS23"",120,0)"
^XMB(3.9,131,2,1568,0)=" . . W !,""Patient: "",$P(^DPT(DFN,0),U,1),"" Item: "",ITM,"" posted to 2319."""
^XMB(3.9,131,2,1569,0)="""RTN"",""RMPOPS23"",121,0)"
^XMB(3.9,131,2,1570,0)=" K DIC,X,Y"
^XMB(3.9,131,2,1571,0)="""RTN"",""RMPOPS23"",122,0)"
^XMB(3.9,131,2,1572,0)=" Q"
^XMB(3.9,131,2,1573,0)="""RTN"",""RMPOPS23"",123,0)"
^XMB(3.9,131,2,1574,0)=" ;"
^XMB(3.9,131,2,1575,0)="""RTN"",""RMPOPS23"",124,0)"
^XMB(3.9,131,2,1576,0)="PATLCK() ;Lock patient level in ^RMPO(665.72"
^XMB(3.9,131,2,1577,0)="""RTN"",""RMPOPS23"",125,0)"
^XMB(3.9,131,2,1578,0)=" L +^RMPO(FIL,SITE,1,RVDT,1,VDR,""V"",DFN,0):5"
^XMB(3.9,131,2,1579,0)="""RTN"",""RMPOPS23"",126,0)"
^XMB(3.9,131,2,1580,0)=" Q $T"
^XMB(3.9,131,2,1581,0)="""RTN"",""RMPOPS23"",127,0)"
^XMB(3.9,131,2,1582,0)=" ;"
^XMB(3.9,131,2,1583,0)="""RTN"",""RMPOPS23"",128,0)"
^XMB(3.9,131,2,1584,0)="UNLKPAT ;Unlock patient level in ^RMPO(665.72"
^XMB(3.9,131,2,1585,0)="""RTN"",""RMPOPS23"",129,0)"
^XMB(3.9,131,2,1586,0)=" L -^RMPO(FIL,SITE,1,RVDT,1,VDR,""V"",DFN,0)"
^XMB(3.9,131,2,1587,0)="""RTN"",""RMPOPS23"",130,0)"
^XMB(3.9,131,2,1588,0)=" Q"
^XMB(3.9,131,2,1589,0)="""RTN"",""RMPOPS23"",131,0)"
^XMB(3.9,131,2,1590,0)=" ;"
^XMB(3.9,131,2,1591,0)="""RTN"",""RMPOPS23"",132,0)"
^XMB(3.9,131,2,1592,0)="QUIT() S QUIT=$D(DTOUT)!$D(DUOUT)!$D(DIROUT) Q QUIT"
^XMB(3.9,131,2,1593,0)="""RTN"",""RMPOPST3"")"
^XMB(3.9,131,2,1594,0)="0^4^B24131485^B24093511"
^XMB(3.9,131,2,1595,0)="""RTN"",""RMPOPST3"",1,0)"
^XMB(3.9,131,2,1596,0)="RMPOPST3 ;EDS/JAM,HinesIO/DDA - HOME OXYGEN BILLING TRANSACTIONS/ACCEPT FOR POST ;7/24/98"
^XMB(3.9,131,2,1597,0)="""RTN"",""RMPOPST3"",2,0)"
^XMB(3.9,131,2,1598,0)=" ;;3.0;PROSTHETICS;**29,44,41,98,110**;Feb 09, 1996;Build 10"
^XMB(3.9,131,2,1599,0)="""RTN"",""RMPOPST3"",3,0)"
^XMB(3.9,131,2,1600,0)=" ;This subroutine is part of the billing module. Check file 665.72"
^XMB(3.9,131,2,1601,0)="""RTN"",""RMPOPST3"",4,0)"
^XMB(3.9,131,2,1602,0)=" ;for accepted transactions not yet posted."
^XMB(3.9,131,2,1603,0)="""RTN"",""RMPOPST3"",5,0)"
^XMB(3.9,131,2,1604,0)=" Q"
^XMB(3.9,131,2,1605,0)="""RTN"",""RMPOPST3"",6,0)"
^XMB(3.9,131,2,1606,0)="ACCEPT ; Check for accepted entries and post if user indicates"
^XMB(3.9,131,2,1607,0)="""RTN"",""RMPOPST3"",7,0)"
^XMB(3.9,131,2,1608,0)=" N DFNS"
^XMB(3.9,131,2,1609,0)="""RTN"",""RMPOPST3"",8,0)"
^XMB(3.9,131,2,1610,0)=" D FNDACC I $O(DFNS(""""))="""" Q"
^XMB(3.9,131,2,1611,0)="""RTN"",""RMPOPST3"",9,0)"
^XMB(3.9,131,2,1612,0)=" D PSTACC"
^XMB(3.9,131,2,1613,0)="""RTN"",""RMPOPST3"",10,0)"
^XMB(3.9,131,2,1614,0)=" Q  ;ACCEPT"
^XMB(3.9,131,2,1615,0)="""RTN"",""RMPOPST3"",11,0)"
^XMB(3.9,131,2,1616,0)=" ;"
^XMB(3.9,131,2,1617,0)="""RTN"",""RMPOPST3"",12,0)"
^XMB(3.9,131,2,1618,0)="TEST ;set test data"
^XMB(3.9,131,2,1619,0)="""RTN"",""RMPOPST3"",13,0)"
^XMB(3.9,131,2,1620,0)=" N RMPOXITE,RMPOVDR,RMPODATE,DFNS"
^XMB(3.9,131,2,1621,0)="""RTN"",""RMPOPST3"",14,0)"
^XMB(3.9,131,2,1622,0)=" S RMPOXITE=1,RMPOVDR=10,RMPODATE=2981200,DFNS(47)="""""
^XMB(3.9,131,2,1623,0)="""RTN"",""RMPOPST3"",15,0)"
^XMB(3.9,131,2,1624,0)=" S RMPO(""STA"")=521"
^XMB(3.9,131,2,1625,0)="""RTN"",""RMPOPST3"",16,0)"
^XMB(3.9,131,2,1626,0)=" D FNDACC I $O(DFNS(""""))="""" Q"
^XMB(3.9,131,2,1627,0)="""RTN"",""RMPOPST3"",17,0)"
^XMB(3.9,131,2,1628,0)=" D PSTACC"
^XMB(3.9,131,2,1629,0)="""RTN"",""RMPOPST3"",18,0)"
^XMB(3.9,131,2,1630,0)=" Q  ;TEST"
^XMB(3.9,131,2,1631,0)="""RTN"",""RMPOPST3"",19,0)"
^XMB(3.9,131,2,1632,0)=" ;"
^XMB(3.9,131,2,1633,0)="""RTN"",""RMPOPST3"",20,0)"
^XMB(3.9,131,2,1634,0)="FNDACC ;Check records to ensure all accepted transactions are posted."
^XMB(3.9,131,2,1635,0)="""RTN"",""RMPOPST3"",21,0)"
^XMB(3.9,131,2,1636,0)=" N DFN,BILDT,SITE,FIL,VDR,I"
^XMB(3.9,131,2,1637,0)="""RTN"",""RMPOPST3"",22,0)"
^XMB(3.9,131,2,1638,0)=" S FIL=665.72,SITE=RMPOXITE,BILDT=RMPODATE,VDR=RMPOVDR"
^XMB(3.9,131,2,1639,0)="""RTN"",""RMPOPST3"",23,0)"
^XMB(3.9,131,2,1640,0)=" S DFN=0"
^XMB(3.9,131,2,1641,0)="""RTN"",""RMPOPST3"",24,0)"
^XMB(3.9,131,2,1642,0)=" F I=1:1 S DFN=$O(^RMPO(FIL,SITE,1,BILDT,1,VDR,""V"",DFN)) Q:'DFN  D"
^XMB(3.9,131,2,1643,0)="""RTN"",""RMPOPST3"",25,0)"
^XMB(3.9,131,2,1644,0)=" . ;check if patient transaction posted"
^XMB(3.9,131,2,1645,0)="""RTN"",""RMPOPST3"",26,0)"
^XMB(3.9,131,2,1646,0)=" . I $P(^RMPO(FIL,SITE,1,BILDT,1,VDR,""V"",DFN,0),U,3)=""Y"" Q"
^XMB(3.9,131,2,1647,0)="""RTN"",""RMPOPST3"",27,0)"
^XMB(3.9,131,2,1648,0)=" . ;check if patient transaction accepted"
^XMB(3.9,131,2,1649,0)="""RTN"",""RMPOPST3"",28,0)"
^XMB(3.9,131,2,1650,0)=" . I $P(^RMPO(FIL,SITE,1,BILDT,1,VDR,""V"",DFN,0),U,2)'=""Y"" Q"
^XMB(3.9,131,2,1651,0)="""RTN"",""RMPOPST3"",29,0)"
^XMB(3.9,131,2,1652,0)=" . I I=10 D"
^XMB(3.9,131,2,1653,0)="""RTN"",""RMPOPST3"",30,0)"
^XMB(3.9,131,2,1654,0)=" . . W !!,""Verifying all accepted transactions posted. Please be patient"""
^XMB(3.9,131,2,1655,0)="""RTN"",""RMPOPST3"",31,0)"
^XMB(3.9,131,2,1656,0)=" . S DFNS(DFN)="""""
^XMB(3.9,131,2,1657,0)="""RTN"",""RMPOPST3"",32,0)"
^XMB(3.9,131,2,1658,0)=" Q  ;FNDACC"
^XMB(3.9,131,2,1659,0)="""RTN"",""RMPOPST3"",33,0)"
^XMB(3.9,131,2,1660,0)=" ;"
^XMB(3.9,131,2,1661,0)="""RTN"",""RMPOPST3"",34,0)"
^XMB(3.9,131,2,1662,0)="PSTACC ;Post accepted transactions if so indicated by user"
^XMB(3.9,131,2,1663,0)="""RTN"",""RMPOPST3"",35,0)"
^XMB(3.9,131,2,1664,0)=" N MES K DIR"
^XMB(3.9,131,2,1665,0)="""RTN"",""RMPOPST3"",36,0)"
^XMB(3.9,131,2,1666,0)=" S DIR(0)=""Y"",DIR(""B"")=""NO"""
^XMB(3.9,131,2,1667,0)="""RTN"",""RMPOPST3"",37,0)"
^XMB(3.9,131,2,1668,0)=" S MES=""There are patients whose billing transactions have been accepted"""
^XMB(3.9,131,2,1669,0)="""RTN"",""RMPOPST3"",38,0)"
^XMB(3.9,131,2,1670,0)=" S DIR(""A"",1)=MES,DIR(""A"",2)="" and not yet posted"""
^XMB(3.9,131,2,1671,0)="""RTN"",""RMPOPST3"",39,0)"
^XMB(3.9,131,2,1672,0)=" S DIR(""A"")=""Would you like to post them now"""
^XMB(3.9,131,2,1673,0)="""RTN"",""RMPOPST3"",40,0)"
^XMB(3.9,131,2,1674,0)=" S DIR(""?"")=""YES will Post accepted transaction and NO will not post"""
^XMB(3.9,131,2,1675,0)="""RTN"",""RMPOPST3"",41,0)"
^XMB(3.9,131,2,1676,0)=" D ^DIR"
^XMB(3.9,131,2,1677,0)="""RTN"",""RMPOPST3"",42,0)"
^XMB(3.9,131,2,1678,0)=" I 'Y!($D(DIRUT))!($D(DIROUT)) Q"
^XMB(3.9,131,2,1679,0)="""RTN"",""RMPOPST3"",43,0)"
^XMB(3.9,131,2,1680,0)=" ;Call post module to post transactions"
^XMB(3.9,131,2,1681,0)="""RTN"",""RMPOPST3"",44,0)"
^XMB(3.9,131,2,1682,0)=" D POST^RMPOPST0"
^XMB(3.9,131,2,1683,0)="""RTN"",""RMPOPST3"",45,0)"
^XMB(3.9,131,2,1684,0)=" K DIR,DIRUT,DIROUT,Y"
^XMB(3.9,131,2,1685,0)="""RTN"",""RMPOPST3"",46,0)"
^XMB(3.9,131,2,1686,0)=" Q  ;PSTACC"
^XMB(3.9,131,2,1687,0)="""RTN"",""RMPOPST3"",47,0)"
^XMB(3.9,131,2,1688,0)="F660 ;Post to file ^RMPR(660 for form 2319"
^XMB(3.9,131,2,1689,0)="""RTN"",""RMPOPST3"",48,0)"
^XMB(3.9,131,2,1690,0)=" N ITM,ITMD,D665A,SUSDES,TRXDT,D660,D6I,D6X,RMPOG,ERR"
^XMB(3.9,131,2,1691,0)="""RTN"",""RMPOPST3"",49,0)"
^XMB(3.9,131,2,1692,0)=" S D665A=$G(^RMPR(665,DFN,""RMPOA"")) I D665A="""" Q"
^XMB(3.9,131,2,1693,0)="""RTN"",""RMPOPST3"",50,0)"
^XMB(3.9,131,2,1694,0)=" D  ;AMIS grouper number"
^XMB(3.9,131,2,1695,0)="""RTN"",""RMPOPST3"",51,0)"
^XMB(3.9,131,2,1696,0)=" . L +^RMPR(669.9,RMPOXITE,0):9999 I $T=0 S RMPOG=DT_$P(DT,2,3) Q"
^XMB(3.9,131,2,1697,0)="""RTN"",""RMPOPST3"",52,0)"
^XMB(3.9,131,2,1698,0)=" . S RMPOG=$P(^RMPR(669.9,RMPOXITE,0),U,7),RMPOG=RMPOG-1"
^XMB(3.9,131,2,1699,0)="""RTN"",""RMPOPST3"",53,0)"
^XMB(3.9,131,2,1700,0)=" . S $P(^RMPR(669.9,RMPOXITE,0),U,7)=RMPOG"
^XMB(3.9,131,2,1701,0)="""RTN"",""RMPOPST3"",54,0)"
^XMB(3.9,131,2,1702,0)=" . L -^RMPR(669.9,RMPOXITE,0)"
^XMB(3.9,131,2,1703,0)="""RTN"",""RMPOPST3"",55,0)"
^XMB(3.9,131,2,1704,0)=" S TRXDT=$P(^RMPO(665.72,RMPOXITE,1,RMPODATE,1,RMPOVDR,0),U,2)"
^XMB(3.9,131,2,1705,0)="""RTN"",""RMPOPST3"",56,0)"
^XMB(3.9,131,2,1706,0)=" S ITM="""" F  S ITM=$O(^TMP($J,FCP,DFN,ITM)) Q:ITM=""""  D"
^XMB(3.9,131,2,1707,0)="""RTN"",""RMPOPST3"",57,0)"
^XMB(3.9,131,2,1708,0)=" . S ITMD=$G(^RMPO(665.72,RMPOXITE,1,RMPODATE,1,RMPOVDR,""V"",DFN,1,ITM,0))"
^XMB(3.9,131,2,1709,0)="""RTN"",""RMPOPST3"",58,0)"
^XMB(3.9,131,2,1710,0)=" . I ITMD="""" Q"
^XMB(3.9,131,2,1711,0)="""RTN"",""RMPOPST3"",59,0)"
^XMB(3.9,131,2,1712,0)=" .; I $P(ITMD,U,6)'>0 Q       ;nothing posted to IFCAP"
^XMB(3.9,131,2,1713,0)="""RTN"",""RMPOPST3"",60,0)"
^XMB(3.9,131,2,1714,0)=" . S RMCPHC=$P(ITMD,U,2),RMCPT="""",RMCPRENT=$P(ITMD,U,18),RMCPSO=""C"""
^XMB(3.9,131,2,1715,0)="""RTN"",""RMPOPST3"",61,0)"
^XMB(3.9,131,2,1716,0)=" . S RMCPTY=$P(ITMD,U,14),RMCPQH=$P(ITMD,U,19)"
^XMB(3.9,131,2,1717,0)="""RTN"",""RMPOPST3"",62,0)"
^XMB(3.9,131,2,1718,0)=" . S RMCPT1=$G(^RMPR(661.1,RMCPHC,4))"
^XMB(3.9,131,2,1719,0)="""RTN"",""RMPOPST3"",63,0)"
^XMB(3.9,131,2,1720,0)=" . I RMCPT1[""RP"",((RMCPTY=""R"")!(RMCPTY=""X"")) S RMCPT=RMCPT_""RP,"""
^XMB(3.9,131,2,1721,0)="""RTN"",""RMPOPST3"",64,0)"
^XMB(3.9,131,2,1722,0)=" . I RMCPT1[""QH"",($G(RMCPQH)) S RMCPT=RMCPT_""QH,"""
^XMB(3.9,131,2,1723,0)="""RTN"",""RMPOPST3"",65,0)"
^XMB(3.9,131,2,1724,0)=" . I (RMCPRENT=1),(RMCPT1[""RR"") S RMCPT=RMCPT_""RR,"""
^XMB(3.9,131,2,1725,0)="""RTN"",""RMPOPST3"",66,0)"
^XMB(3.9,131,2,1726,0)=" . I RMCPT1[""NU"",(RMCPT'[""RR"") S RMCPT=RMCPT_""NU,"""
^XMB(3.9,131,2,1727,0)="""RTN"",""RMPOPST3"",67,0)"
^XMB(3.9,131,2,1728,0)=" . I $L(RMCPT)>2 S RMCLEN=$L(RMCPT),RMCPT=$E(RMCPT,1,RMCLEN-1)"
^XMB(3.9,131,2,1729,0)="""RTN"",""RMPOPST3"",68,0)"
^XMB(3.9,131,2,1730,0)=" . S DIC=""^RMPR(660,"",DIC(0)=""L"",X=DT"
^XMB(3.9,131,2,1731,0)="""RTN"",""RMPOPST3"",69,0)"
^XMB(3.9,131,2,1732,0)=" . K DD,DO D FILE^DICN I +Y<0 Q"
^XMB(3.9,131,2,1733,0)="""RTN"",""RMPOPST3"",70,0)"
^XMB(3.9,131,2,1734,0)=" . S D6I=+Y,D6X=D6I_"","""
^XMB(3.9,131,2,1735,0)="""RTN"",""RMPOPST3"",71,0)"
^XMB(3.9,131,2,1736,0)=" . K DIE,DA,DR S DA(4)=RMPOXITE,DA(3)=RMPODATE,DA(2)=RMPOVDR,DA(1)=DFN"
^XMB(3.9,131,2,1737,0)="""RTN"",""RMPOPST3"",72,0)"
^XMB(3.9,131,2,1738,0)=" . S DIE=""^RMPO(665.72,""_DA(4)_"",1,""_DA(3)_"",1,""_DA(2)_"",""""V"""",""_DA(1)"
^XMB(3.9,131,2,1739,0)="""RTN"",""RMPOPST3"",73,0)"
^XMB(3.9,131,2,1740,0)=" . S DIE=DIE_"",1,"",DA=ITM,DR=""15////^S X=D6I"" D ^DIE"
^XMB(3.9,131,2,1741,0)="""RTN"",""RMPOPST3"",74,0)"
^XMB(3.9,131,2,1742,0)=" . S D660(660,D6X,.02)=DFN                 ;Patient name pointer"
^XMB(3.9,131,2,1743,0)="""RTN"",""RMPOPST3"",75,0)"
^XMB(3.9,131,2,1744,0)=" . S D660(660,D6X,1)=TRXDT                 ;Request date"
^XMB(3.9,131,2,1745,0)="""RTN"",""RMPOPST3"",76,0)"
^XMB(3.9,131,2,1746,0)=" . S D660(660,D6X,2)=$P(ITMD,U,14)         ;Type of transaction"
^XMB(3.9,131,2,1747,0)="""RTN"",""RMPOPST3"",77,0)"
^XMB(3.9,131,2,1748,0)=" . S D660(660,D6X,4)=$P(ITMD,U)            ;item"
^XMB(3.9,131,2,1749,0)="""RTN"",""RMPOPST3"",78,0)"
^XMB(3.9,131,2,1750,0)=" . S D660(660,D6X,4.1)=$P(^RMPR(661.1,$P(ITMD,U,2),0),U,4) ;HCPCS"
^XMB(3.9,131,2,1751,0)="""RTN"",""RMPOPST3"",79,0)"
^XMB(3.9,131,2,1752,0)=" . S D660(660,D6X,4.5)=$P(ITMD,U,2)        ;PSAS HCPCS"
^XMB(3.9,131,2,1753,0)="""RTN"",""RMPOPST3"",80,0)"
^XMB(3.9,131,2,1754,0)=" . S D660(660,D6X,4.7)=RMCPT               ;CPT MODIFIER"
^XMB(3.9,131,2,1755,0)="""RTN"",""RMPOPST3"",81,0)"
^XMB(3.9,131,2,1756,0)=" . S D660(660,D6X,5)=$P(ITMD,U,7)-$P(ITMD,U,17)          ;quantity"
^XMB(3.9,131,2,1757,0)="""RTN"",""RMPOPST3"",82,0)"
^XMB(3.9,131,2,1758,0)=" . S D660(660,D6X,7)=RMPOVDR               ;vendor"
^XMB(3.9,131,2,1759,0)="""RTN"",""RMPOPST3"",83,0)"
^XMB(3.9,131,2,1760,0)=" . S D660(660,D6X,8)=RMPO(""STA"")           ;station"
^XMB(3.9,131,2,1761,0)="""RTN"",""RMPOPST3"",84,0)"
^XMB(3.9,131,2,1762,0)=" . S D660(660,D6X,10)=CURDT                ;Delivery date"
^XMB(3.9,131,2,1763,0)="""RTN"",""RMPOPST3"",85,0)"
^XMB(3.9,131,2,1764,0)=" . D"
^XMB(3.9,131,2,1765,0)="""RTN"",""RMPOPST3"",86,0)"
^XMB(3.9,131,2,1766,0)=" . . I $P(PAYINF,U) D  Q"
^XMB(3.9,131,2,1767,0)="""RTN"",""RMPOPST3"",87,0)"
^XMB(3.9,131,2,1768,0)=" . . . S D660(660,D6X,11)=9                ;form requested on(1358)"
^XMB(3.9,131,2,1769,0)="""RTN"",""RMPOPST3"",88,0)"
^XMB(3.9,131,2,1770,0)=" . . . ;IFCAP transaction number - from file 424"
^XMB(3.9,131,2,1771,0)="""RTN"",""RMPOPST3"",89,0)"
^XMB(3.9,131,2,1772,0)=" . . . I $G(IEN424)'="""" S D660(660,D6X,23)=$P($G(^PRC(424,IEN424,0)),U)"
^XMB(3.9,131,2,1773,0)="""RTN"",""RMPOPST3"",90,0)"
^XMB(3.9,131,2,1774,0)=" . . S D660(660,D6X,11)=14                 ;form requested on (visa)"
^XMB(3.9,131,2,1775,0)="""RTN"",""RMPOPST3"",91,0)"
^XMB(3.9,131,2,1776,0)=" . . S D660(660,D6X,23)=SRVORD             ;IFCAP transaction number"
^XMB(3.9,131,2,1777,0)="""RTN"",""RMPOPST3"",92,0)"
^XMB(3.9,131,2,1778,0)=" . S D660(660,D6X,12)=""C""                  ;Source"
^XMB(3.9,131,2,1779,0)="""RTN"",""RMPOPST3"",93,0)"
^XMB(3.9,131,2,1780,0)=" . S D660(660,D6X,14)=$P(ITMD,U,6)         ;total cost"
^XMB(3.9,131,2,1781,0)="""RTN"",""RMPOPST3"",94,0)"
^XMB(3.9,131,2,1782,0)=" . S D660(660,D6X,16)=$P(ITMD,U,4)         ;remarks"
^XMB(3.9,131,2,1783,0)="""RTN"",""RMPOPST3"",95,0)"
^XMB(3.9,131,2,1784,0)=" . S SUSDES=$S($P(ITMD,U,11)'="""":""Suspended Amt ""_$P(ITMD,U,11)_"" "",1:"""")"
^XMB(3.9,131,2,1785,0)="""RTN"",""RMPOPST3"",96,0)"
^XMB(3.9,131,2,1786,0)=" . S D660(660,D6X,24)=SUSDES_$P(ITMD,U,12) ;description"
^XMB(3.9,131,2,1787,0)="""RTN"",""RMPOPST3"",97,0)"
^XMB(3.9,131,2,1788,0)=" . S D660(660,D6X,27)=DUZ                  ;initiator"
^XMB(3.9,131,2,1789,0)="""RTN"",""RMPOPST3"",98,0)"
^XMB(3.9,131,2,1790,0)=" . S D660(660,D6X,62)=$P(D665A,U)          ;patient category"
^XMB(3.9,131,2,1791,0)="""RTN"",""RMPOPST3"",99,0)"
^XMB(3.9,131,2,1792,0)=" . S D660(660,D6X,63)=$P(D665A,U,5)        ;special category"
^XMB(3.9,131,2,1793,0)="""RTN"",""RMPOPST3"",100,0)"
^XMB(3.9,131,2,1794,0)=" . S D660(660,D6X,68)=RMPOG"
^XMB(3.9,131,2,1795,0)="""RTN"",""RMPOPST3"",101,0)"
^XMB(3.9,131,2,1796,0)=" . S D660(660,D6X,78)=$P(ITMD,U,15)        ;unit of issue"
^XMB(3.9,131,2,1797,0)="""RTN"",""RMPOPST3"",102,0)"
^XMB(3.9,131,2,1798,0)=" . D FILE^DIE(""K"",""D660"",""ERR"")"
^XMB(3.9,131,2,1799,0)="""RTN"",""RMPOPST3"",103,0)"
^XMB(3.9,131,2,1800,0)=" . I $D(ERR) D"
^XMB(3.9,131,2,1801,0)="""RTN"",""RMPOPST3"",104,0)"
^XMB(3.9,131,2,1802,0)=" . . W !!,""Posting to 2319 for item "",ITM,"" patient "",DFN,"" failed."""
^XMB(3.9,131,2,1803,0)="""RTN"",""RMPOPST3"",105,0)"
^XMB(3.9,131,2,1804,0)=" . . W ""Posting will be done later"""
^XMB(3.9,131,2,1805,0)="""RTN"",""RMPOPST3"",106,0)"
^XMB(3.9,131,2,1806,0)=" . . Q"
^XMB(3.9,131,2,1807,0)="""RTN"",""RMPOPST3"",107,0)"
^XMB(3.9,131,2,1808,0)=" . ; RMPR*3*98"
^XMB(3.9,131,2,1809,0)="""RTN"",""RMPOPST3"",108,0)"
^XMB(3.9,131,2,1810,0)=" . ; CALL TO PROCESS PFSS CHARGE MESSAGE"
^XMB(3.9,131,2,1811,0)="""RTN"",""RMPOPST3"",109,0)"
^XMB(3.9,131,2,1812,0)=" . I '$D(ERR) D CHARGE^RMPOPF"
^XMB(3.9,131,2,1813,0)="""RTN"",""RMPOPST3"",110,0)"
^XMB(3.9,131,2,1814,0)=" . Q"
^XMB(3.9,131,2,1815,0)="""RTN"",""RMPOPST3"",111,0)"
^XMB(3.9,131,2,1816,0)=" K DIC,X,Y"
^XMB(3.9,131,2,1817,0)="""RTN"",""RMPOPST3"",112,0)"
^XMB(3.9,131,2,1818,0)=" Q"
^XMB(3.9,131,2,1819,0)="""RTN"",""RMPR110P"")"
^XMB(3.9,131,2,1820,0)="0^5^B43952553"
^XMB(3.9,131,2,1821,0)="""RTN"",""RMPR110P"",1,0)"
^XMB(3.9,131,2,1822,0)="RMPR110P ;VMP/RB - LOCATE/FIX/REPORT POINTER PROBLEMS 665.72 TO 660 ;05/02/06"
^XMB(3.9,131,2,1823,0)="""RTN"",""RMPR110P"",2,0)"
^XMB(3.9,131,2,1824,0)=" ;;3.0;Prosthetics;**110**;06/20/05;Build 10"
^XMB(3.9,131,2,1825,0)="""RTN"",""RMPR110P"",3,0)"
^XMB(3.9,131,2,1826,0)=" ;;"
^XMB(3.9,131,2,1827,0)="""RTN"",""RMPR110P"",4,0)"
^XMB(3.9,131,2,1828,0)=" ;1. Post install to locate/fix/report pointer error issues between"
^XMB(3.9,131,2,1829,0)="""RTN"",""RMPR110P"",5,0)"
^XMB(3.9,131,2,1830,0)=" ;   file 665.72 and 660 caused by inept fileman stuff during"
^XMB(3.9,131,2,1831,0)="""RTN"",""RMPR110P"",6,0)"
^XMB(3.9,131,2,1832,0)=" ;   O2 Post Billing."
^XMB(3.9,131,2,1833,0)="""RTN"",""RMPR110P"",7,0)"
^XMB(3.9,131,2,1834,0)=" S (SITE,RECTOT,ERRTOT)=0 K ^TMP($J,""RMPR110P""),^TMP(""RMPRFIX"",$J)"
^XMB(3.9,131,2,1835,0)="""RTN"",""RMPR110P"",8,0)"
^XMB(3.9,131,2,1836,0)="A1 S SITE=$O(^RMPO(665.72,SITE)),MON=0 G B10:SITE=""""!(SITE]""@"")"
^XMB(3.9,131,2,1837,0)="""RTN"",""RMPR110P"",9,0)"
^XMB(3.9,131,2,1838,0)="A1A S MON=$O(^RMPO(665.72,SITE,1,MON)),VEND=0 G A1:MON="""""
^XMB(3.9,131,2,1839,0)="""RTN"",""RMPR110P"",10,0)"
^XMB(3.9,131,2,1840,0)="A2 S VEND=$O(^RMPO(665.72,SITE,1,MON,1,VEND)),DFN=0 G A1A:VEND="""""
^XMB(3.9,131,2,1841,0)="""RTN"",""RMPR110P"",11,0)"
^XMB(3.9,131,2,1842,0)="A3 K IT S IT=0 S DFN=$O(^RMPO(665.72,SITE,1,MON,1,VEND,""V"",DFN)),ITEM=0 G:DFN=""""!(DFN]""@"") A2"
^XMB(3.9,131,2,1843,0)="""RTN"",""RMPR110P"",12,0)"
^XMB(3.9,131,2,1844,0)="A4 S ITEM=$O(^RMPO(665.72,SITE,1,MON,1,VEND,""V"",DFN,1,ITEM)) G:ITEM=""""!(ITEM]""@"") A3"
^XMB(3.9,131,2,1845,0)="""RTN"",""RMPR110P"",13,0)"
^XMB(3.9,131,2,1846,0)=" S RR=^RMPO(665.72,SITE,1,MON,1,VEND,""V"",DFN,1,ITEM,0),R660=$P(RR,U,16)"
^XMB(3.9,131,2,1847,0)="""RTN"",""RMPR110P"",14,0)"
^XMB(3.9,131,2,1848,0)=" G A4:R660="""" S R6=$G(^RMPR(660,R660,0)) I R6="""" S ^TMP($J,""RMPR110P"",6,SITE,MON,VEND,DFN,ITEM)=RR"
^XMB(3.9,131,2,1849,0)="""RTN"",""RMPR110P"",15,0)"
^XMB(3.9,131,2,1850,0)=" I DFN'=$P(R6,U,2) D"
^XMB(3.9,131,2,1851,0)="""RTN"",""RMPR110P"",16,0)"
^XMB(3.9,131,2,1852,0)=" . S ERRTOT=ERRTOT+1"
^XMB(3.9,131,2,1853,0)="""RTN"",""RMPR110P"",17,0)"
^XMB(3.9,131,2,1854,0)=" . S ^TMP($J,""RMPR110P"",1,SITE,MON,VEND,DFN,1,ITEM,R660,0)=ITEM_U_IT_U_$P(R6,U,11)"
^XMB(3.9,131,2,1855,0)="""RTN"",""RMPR110P"",18,0)"
^XMB(3.9,131,2,1856,0)=" . S ^TMP($J,""RMPR110P"",1,SITE,MON,VEND,DFN,1,ITEM,R660,1)=^RMPO(665.72,SITE,1,MON,1,VEND,""V"",DFN,1,ITEM,0)"
^XMB(3.9,131,2,1857,0)="""RTN"",""RMPR110P"",19,0)"
^XMB(3.9,131,2,1858,0)=" I IT=0,DFN=$P(R6,U,2) S IT=R660"
^XMB(3.9,131,2,1859,0)="""RTN"",""RMPR110P"",20,0)"
^XMB(3.9,131,2,1860,0)=" G A4"
^XMB(3.9,131,2,1861,0)="""RTN"",""RMPR110P"",21,0)"
^XMB(3.9,131,2,1862,0)="B10 ;GRAB ALL ERROR 665.72 POINTER RELATIONS AND DETERMINE CORRECT POINTER"
^XMB(3.9,131,2,1863,0)="""RTN"",""RMPR110P"",22,0)"
^XMB(3.9,131,2,1864,0)=" S SITE=0,U=""^"",CHK=$P(^RMPR(660,0),U,3)"
^XMB(3.9,131,2,1865,0)="""RTN"",""RMPR110P"",23,0)"
^XMB(3.9,131,2,1866,0)="B11 S SITE=$O(^TMP($J,""RMPR110P"",1,SITE)),MON=0,VEND=0 G PRINT:SITE="""""
^XMB(3.9,131,2,1867,0)="""RTN"",""RMPR110P"",24,0)"
^XMB(3.9,131,2,1868,0)="B11B S MON=$O(^TMP($J,""RMPR110P"",1,SITE,MON)),VEND=0 G B11:MON="""""
^XMB(3.9,131,2,1869,0)="""RTN"",""RMPR110P"",25,0)"
^XMB(3.9,131,2,1870,0)="B12 S VEND=$O(^TMP($J,""RMPR110P"",1,SITE,MON,VEND)),DFN=0 G B11B:VEND="""""
^XMB(3.9,131,2,1871,0)="""RTN"",""RMPR110P"",26,0)"
^XMB(3.9,131,2,1872,0)="B13 S DFN=$O(^TMP($J,""RMPR110P"",1,SITE,MON,VEND,DFN)),ITEM=0 K ER  S RSH="""" G B12:DFN="""" S ^TMP($J,""RMPR110P"",1,SITE,MON,VEND,DFN,3)="""""
^XMB(3.9,131,2,1873,0)="""RTN"",""RMPR110P"",27,0)"
^XMB(3.9,131,2,1874,0)="B14 S ITEM=$O(^RMPO(665.72,SITE,1,MON,1,VEND,""V"",DFN,1,ITEM)) G C15:ITEM=""""!(ITEM]""@"")"
^XMB(3.9,131,2,1875,0)="""RTN"",""RMPR110P"",28,0)"
^XMB(3.9,131,2,1876,0)=" S R=^RMPO(665.72,SITE,1,MON,1,VEND,""V"",DFN,1,ITEM,0),R660=$P(R,U,16)"
^XMB(3.9,131,2,1877,0)="""RTN"",""RMPR110P"",29,0)"
^XMB(3.9,131,2,1878,0)=" G:R660="""" B14"
^XMB(3.9,131,2,1879,0)="""RTN"",""RMPR110P"",30,0)"
^XMB(3.9,131,2,1880,0)=" S ^TMP($J,""RMPR110P"",1,SITE,MON,VEND,DFN,2,ITEM,R660)=$G(^RMPR(660,R660,0)),ER(R660)=ITEM"
^XMB(3.9,131,2,1881,0)="""RTN"",""RMPR110P"",31,0)"
^XMB(3.9,131,2,1882,0)=" G B14"
^XMB(3.9,131,2,1883,0)="""RTN"",""RMPR110P"",32,0)"
^XMB(3.9,131,2,1884,0)="C15 S BADITEM=0,XITEM=0"
^XMB(3.9,131,2,1885,0)="""RTN"",""RMPR110P"",33,0)"
^XMB(3.9,131,2,1886,0)="C16 S XITEM=$O(^TMP($J,""RMPR110P"",1,SITE,MON,VEND,DFN,1,XITEM)),BAD660=0 G:XITEM="""" B13"
^XMB(3.9,131,2,1887,0)="""RTN"",""RMPR110P"",34,0)"
^XMB(3.9,131,2,1888,0)="C17 S BAD660=$O(^TMP($J,""RMPR110P"",1,SITE,MON,VEND,DFN,1,XITEM,BAD660))"
^XMB(3.9,131,2,1889,0)="""RTN"",""RMPR110P"",35,0)"
^XMB(3.9,131,2,1890,0)=" S B0=^TMP($J,""RMPR110P"",1,SITE,MON,VEND,DFN,1,XITEM,BAD660,0),B1=^TMP($J,""RMPR110P"",1,SITE,MON,VEND,DFN,1,XITEM,BAD660,1)"
^XMB(3.9,131,2,1891,0)="""RTN"",""RMPR110P"",36,0)"
^XMB(3.9,131,2,1892,0)=" S RSH=$P(B0,U,2),LK1=RSH-5000,LK2=RSH+5000 S:LK1<0 LK1=0"
^XMB(3.9,131,2,1893,0)="""RTN"",""RMPR110P"",37,0)"
^XMB(3.9,131,2,1894,0)=" S FIND660=+$P(B0,U,3) I FIND660 D  G:FIND660 C19"
^XMB(3.9,131,2,1895,0)="""RTN"",""RMPR110P"",38,0)"
^XMB(3.9,131,2,1896,0)=" . S REC660=$G(^RMPR(660,FIND660,0))"
^XMB(3.9,131,2,1897,0)="""RTN"",""RMPR110P"",39,0)"
^XMB(3.9,131,2,1898,0)=" . I DFN'=$P(REC660,U,2) S FIND660=0"
^XMB(3.9,131,2,1899,0)="""RTN"",""RMPR110P"",40,0)"
^XMB(3.9,131,2,1900,0)="C18 S FIND660=0 F I=LK1:1:LK2 S REC660=$G(^RMPR(660,I,0)) D:REC660'=""""  Q:FIND660"
^XMB(3.9,131,2,1901,0)="""RTN"",""RMPR110P"",41,0)"
^XMB(3.9,131,2,1902,0)=" . Q:$P(REC660,U,2)'=DFN"
^XMB(3.9,131,2,1903,0)="""RTN"",""RMPR110P"",42,0)"
^XMB(3.9,131,2,1904,0)=" . Q:$P(REC660,U,9)'=VEND"
^XMB(3.9,131,2,1905,0)="""RTN"",""RMPR110P"",43,0)"
^XMB(3.9,131,2,1906,0)=" . Q:$P(REC660,U,6)'=$P(B1,U)"
^XMB(3.9,131,2,1907,0)="""RTN"",""RMPR110P"",44,0)"
^XMB(3.9,131,2,1908,0)=" . Q:$P(REC660,U,7)'=$P(B1,U,7)"
^XMB(3.9,131,2,1909,0)="""RTN"",""RMPR110P"",45,0)"
^XMB(3.9,131,2,1910,0)=" . Q:$FN($P(REC660,U,16),""p"",2)'=$FN($P(B1,U,6),""p"",2)"
^XMB(3.9,131,2,1911,0)="""RTN"",""RMPR110P"",46,0)"
^XMB(3.9,131,2,1912,0)=" . Q:$P(REC660,U,8)'=$P(B1,U,15)"
^XMB(3.9,131,2,1913,0)="""RTN"",""RMPR110P"",47,0)"
^XMB(3.9,131,2,1914,0)=" . S FIND660=I"
^XMB(3.9,131,2,1915,0)="""RTN"",""RMPR110P"",48,0)"
^XMB(3.9,131,2,1916,0)=" I FIND660=0,RSH=0 G C30"
^XMB(3.9,131,2,1917,0)="""RTN"",""RMPR110P"",49,0)"
^XMB(3.9,131,2,1918,0)="C19 I FIND660 D"
^XMB(3.9,131,2,1919,0)="""RTN"",""RMPR110P"",50,0)"
^XMB(3.9,131,2,1920,0)=" . S ^TMP($J,""RMPR110P"",2,SITE,MON,VEND,DFN,1,XITEM,BAD660)=B0_""^""_FIND660_""^""_REC660"
^XMB(3.9,131,2,1921,0)="""RTN"",""RMPR110P"",51,0)"
^XMB(3.9,131,2,1922,0)=" . I DFN'=$P(REC660,U,2) S ^TMP($J,""RMPR110P"",4,SITE,MON,VEND,DFN,1,XITEM,BAD660)=B0_""^""_FIND660_""^""_REC660 Q  ;FIND 660 DOES NOT MATCH DFN VALUE FOUND"
^XMB(3.9,131,2,1923,0)="""RTN"",""RMPR110P"",52,0)"
^XMB(3.9,131,2,1924,0)=" . I FIND660'=$P(B0,U,3) S ^TMP($J,""RMPR110P"",3,SITE,MON,VEND,DFN,1,XITEM,BAD660)=B0_""^""_FIND660  ;FIND 660 DOES NOT MATCH RECORDED VALUE FOUND"
^XMB(3.9,131,2,1925,0)="""RTN"",""RMPR110P"",53,0)"
^XMB(3.9,131,2,1926,0)=" . S ^TMP($J,""RMPR110P"",1,SITE,MON,VEND,DFN,3,XITEM,FIND660,0)=^RMPR(660,FIND660,0)"
^XMB(3.9,131,2,1927,0)="""RTN"",""RMPR110P"",54,0)"
^XMB(3.9,131,2,1928,0)=" . ;SET CORRECT 660 POINTER INTO 665.72 HERE"
^XMB(3.9,131,2,1929,0)="""RTN"",""RMPR110P"",55,0)"
^XMB(3.9,131,2,1930,0)=" . K DIE,DA,DR S DA(4)=SITE,DA(3)=MON,DA(2)=VEND,DA(1)=DFN"
^XMB(3.9,131,2,1931,0)="""RTN"",""RMPR110P"",56,0)"
^XMB(3.9,131,2,1932,0)=" . S DIE=""^RMPO(665.72,""_DA(4)_"",1,""_DA(3)_"",1,""_DA(2)_"",""""V"""",""_DA(1)"
^XMB(3.9,131,2,1933,0)="""RTN"",""RMPR110P"",57,0)"
^XMB(3.9,131,2,1934,0)=" . S DIE=DIE_"",1,"",DA=XITEM,DR=""15////^S X=FIND660"" D ^DIE"
^XMB(3.9,131,2,1935,0)="""RTN"",""RMPR110P"",58,0)"
^XMB(3.9,131,2,1936,0)=" I 'FIND660 S ^TMP($J,""RMPR110P"",5,SITE,MON,VEND,DFN,1,XITEM,BAD660)=B0   ;CANNOT LOGICALLY LOCATE CORRECT POINTER........"
^XMB(3.9,131,2,1937,0)="""RTN"",""RMPR110P"",59,0)"
^XMB(3.9,131,2,1938,0)=" G C16"
^XMB(3.9,131,2,1939,0)="""RTN"",""RMPR110P"",60,0)"
^XMB(3.9,131,2,1940,0)="C30 S FIND660=+$P(B0,U,3),REC660="""",F660=0 S:FIND660 REC660=$G(^RMPR(660,FIND660,0)) G:FIND660?.N&(DFN=$P(REC660,U,2)) C19 S XX=DFN,YY=0,X660="""",FIND660=0"
^XMB(3.9,131,2,1941,0)="""RTN"",""RMPR110P"",61,0)"
^XMB(3.9,131,2,1942,0)="C31 S XX=$O(^RMPO(665.72,SITE,1,MON,1,VEND,""V"",DFN),-1),YY=0 Q:XX="""""
^XMB(3.9,131,2,1943,0)="""RTN"",""RMPR110P"",62,0)"
^XMB(3.9,131,2,1944,0)="C32 I $D(^TMP($J,""RMPR110P"",1,SITE,MON,VEND,XX)) S XX=$O(^RMPO(665.72,SITE,1,MON,1,VEND,""V"",XX),-1) Q:XX=""""  G C32"
^XMB(3.9,131,2,1945,0)="""RTN"",""RMPR110P"",63,0)"
^XMB(3.9,131,2,1946,0)=" F  S YY=$O(^RMPO(665.72,SITE,1,MON,1,VEND,""V"",XX,1,YY)) Q:YY=""""!(YY]""@"")  S X660=$P(^RMPO(665.72,SITE,1,MON,1,VEND,""V"",XX,1,YY,0),U,16)"
^XMB(3.9,131,2,1947,0)="""RTN"",""RMPR110P"",64,0)"
^XMB(3.9,131,2,1948,0)=" S REC660="""""
^XMB(3.9,131,2,1949,0)="""RTN"",""RMPR110P"",65,0)"
^XMB(3.9,131,2,1950,0)=" I X660 F I=1:1:5 I $D(^RMPR(660,X660+I)) S FIND660=X660+I,REC660=^RMPR(660,FIND660,0) Q:DFN=$P(REC660,U,2)"
^XMB(3.9,131,2,1951,0)="""RTN"",""RMPR110P"",66,0)"
^XMB(3.9,131,2,1952,0)=" I $P(REC660,U,2)'=DFN D  G:'FIND660 C18"
^XMB(3.9,131,2,1953,0)="""RTN"",""RMPR110P"",67,0)"
^XMB(3.9,131,2,1954,0)=" . I +$P(B0,U,3)>5000 S F660=$P(B0,U,3)\1"
^XMB(3.9,131,2,1955,0)="""RTN"",""RMPR110P"",68,0)"
^XMB(3.9,131,2,1956,0)=" . I X660,'F660 S F660=X660"
^XMB(3.9,131,2,1957,0)="""RTN"",""RMPR110P"",69,0)"
^XMB(3.9,131,2,1958,0)=" . S LK1=F660-5000,LK2=F660+5000,FIND660=0,RSH=1 S:LK1<0 LK1=0"
^XMB(3.9,131,2,1959,0)="""RTN"",""RMPR110P"",70,0)"
^XMB(3.9,131,2,1960,0)=" G C19"
^XMB(3.9,131,2,1961,0)="""RTN"",""RMPR110P"",71,0)"
^XMB(3.9,131,2,1962,0)="PRINT ;"
^XMB(3.9,131,2,1963,0)="""RTN"",""RMPR110P"",72,0)"
^XMB(3.9,131,2,1964,0)=" D NOW^%DTC S Y=% X ^DD(""DD"") S RMRDATE=Y"
^XMB(3.9,131,2,1965,0)="""RTN"",""RMPR110P"",73,0)"
^XMB(3.9,131,2,1966,0)="PRINT2 ; Update the ^TMP(""RMPRFIX"" MAIL REPORT"
^XMB(3.9,131,2,1967,0)="""RTN"",""RMPR110P"",74,0)"
^XMB(3.9,131,2,1968,0)=" ;"
^XMB(3.9,131,2,1969,0)="""RTN"",""RMPR110P"",75,0)"
^XMB(3.9,131,2,1970,0)=" S SP="""",$P(SP,"" "",85)="" """
^XMB(3.9,131,2,1971,0)="""RTN"",""RMPR110P"",76,0)"
^XMB(3.9,131,2,1972,0)=" S ^TMP(""RMPRFIX"",$J,1)=""File 665.72/660 Pointer Errors""_$E(SP,1,16)_""Run Date: ""_RMRDATE_$E(SP,1,10)"
^XMB(3.9,131,2,1973,0)="""RTN"",""RMPR110P"",77,0)"
^XMB(3.9,131,2,1974,0)=" S ^TMP(""RMPRFIX"",$J,2)=$E(SP,1,3)_"". . . 660 pointer error internal info . . ."""
^XMB(3.9,131,2,1975,0)="""RTN"",""RMPR110P"",78,0)"
^XMB(3.9,131,2,1976,0)=" S ^TMP(""RMPRFIX"",$J,3)=""site    month    vendor      DFN      item   660 pntr""_$E(SP,1,8)_""660 ptr correction"""
^XMB(3.9,131,2,1977,0)="""RTN"",""RMPR110P"",79,0)"
^XMB(3.9,131,2,1978,0)=" S ^TMP(""RMPRFIX"",$J,4)="""""
^XMB(3.9,131,2,1979,0)="""RTN"",""RMPR110P"",80,0)"
^XMB(3.9,131,2,1980,0)=" S CNT110=4"
^XMB(3.9,131,2,1981,0)="""RTN"",""RMPR110P"",81,0)"
^XMB(3.9,131,2,1982,0)=" N RMEND,PG S RTYP=2"
^XMB(3.9,131,2,1983,0)="""RTN"",""RMPR110P"",82,0)"
^XMB(3.9,131,2,1984,0)=" S (SITE,PG)=0,U=""^"",IOSL=66 S:$E(IOST,1,2)=""C-"" IOSL=22"
^XMB(3.9,131,2,1985,0)="""RTN"",""RMPR110P"",83,0)"
^XMB(3.9,131,2,1986,0)="P1 S SITE=$O(^TMP($J,""RMPR110P"",RTYP,SITE)),MON=0 G PRINT3:SITE="""""
^XMB(3.9,131,2,1987,0)="""RTN"",""RMPR110P"",84,0)"
^XMB(3.9,131,2,1988,0)="P1A S MON=$O(^TMP($J,""RMPR110P"",RTYP,SITE,MON)),VEND=0 G P1:MON="""""
^XMB(3.9,131,2,1989,0)="""RTN"",""RMPR110P"",85,0)"
^XMB(3.9,131,2,1990,0)="P2 S VEND=$O(^TMP($J,""RMPR110P"",RTYP,SITE,MON,VEND)),DFN=0 G P1A:VEND="""""
^XMB(3.9,131,2,1991,0)="""RTN"",""RMPR110P"",86,0)"
^XMB(3.9,131,2,1992,0)="P3 S DFN=$O(^TMP($J,""RMPR110P"",RTYP,SITE,MON,VEND,DFN)),ITEM=0 G:DFN="""" P2"
^XMB(3.9,131,2,1993,0)="""RTN"",""RMPR110P"",87,0)"
^XMB(3.9,131,2,1994,0)="P5 S BADITEM=0,XITEM=0"
^XMB(3.9,131,2,1995,0)="""RTN"",""RMPR110P"",88,0)"
^XMB(3.9,131,2,1996,0)="P6 S XITEM=$O(^TMP($J,""RMPR110P"",RTYP,SITE,MON,VEND,DFN,1,XITEM)),BAD660=0 G:XITEM="""" P3"
^XMB(3.9,131,2,1997,0)="""RTN"",""RMPR110P"",89,0)"
^XMB(3.9,131,2,1998,0)=" S BAD660=$O(^TMP($J,""RMPR110P"",RTYP,SITE,MON,VEND,DFN,1,XITEM,BAD660))"
^XMB(3.9,131,2,1999,0)="""RTN"",""RMPR110P"",90,0)"
^XMB(3.9,131,2,2000,0)=" S B0=^TMP($J,""RMPR110P"",RTYP,SITE,MON,VEND,DFN,1,XITEM,BAD660)"
^XMB(3.9,131,2,2001,0)="""RTN"",""RMPR110P"",91,0)"
^XMB(3.9,131,2,2002,0)=" S CNT110=CNT110+1,^TMP(""RMPRFIX"",$J,CNT110)=$J(SITE,3)_$J(MON,11)_$J(VEND,9)_$J(DFN,11)_$J(XITEM,7)_$J(BAD660,10)_$J($P(B0,U,4),18)"
^XMB(3.9,131,2,2003,0)="""RTN"",""RMPR110P"",92,0)"
^XMB(3.9,131,2,2004,0)=" G P6"
^XMB(3.9,131,2,2005,0)="""RTN"",""RMPR110P"",93,0)"
^XMB(3.9,131,2,2006,0)="PRINT3 I RTYP=2 D"
^XMB(3.9,131,2,2007,0)="""RTN"",""RMPR110P"",94,0)"
^XMB(3.9,131,2,2008,0)=" . S CNT110=CNT110+1,^TMP(""RMPRFIX"",$J,CNT110)="""""
^XMB(3.9,131,2,2009,0)="""RTN"",""RMPR110P"",95,0)"
^XMB(3.9,131,2,2010,0)=" . S CNT110=CNT110+1,^TMP(""RMPRFIX"",$J,CNT110)=""==>>>  TOTAL POINTERS CORRECTED: ""_ERRTOT"
^XMB(3.9,131,2,2011,0)="""RTN"",""RMPR110P"",96,0)"
^XMB(3.9,131,2,2012,0)=" I RTYP=2 S RTYP=4,(SITE,PG)=0 D  G P1"
^XMB(3.9,131,2,2013,0)="""RTN"",""RMPR110P"",97,0)"
^XMB(3.9,131,2,2014,0)=" . F I=1:1:4 S CNT110=CNT110+1,^TMP(""RMPRFIX"",$J,CNT110)="""""
^XMB(3.9,131,2,2015,0)="""RTN"",""RMPR110P"",98,0)"
^XMB(3.9,131,2,2016,0)=" . S CNT110=CNT110+1,^TMP(""RMPRFIX"",$J,CNT110)=""==>>>  NEW 660 RECORD DOES NOT MATCH DFN OF 665.72, NOT CORRECTED"""
^XMB(3.9,131,2,2017,0)="""RTN"",""RMPR110P"",99,0)"
^XMB(3.9,131,2,2018,0)=" I RTYP=4 S RTYP=5,(SITE,PG)=0 D  G P1"
^XMB(3.9,131,2,2019,0)="""RTN"",""RMPR110P"",100,0)"
^XMB(3.9,131,2,2020,0)=" . F I=1:1:4 S CNT110=CNT110+1,^TMP(""RMPRFIX"",$J,CNT110)="""""
^XMB(3.9,131,2,2021,0)="""RTN"",""RMPR110P"",101,0)"
^XMB(3.9,131,2,2022,0)=" . S CNT110=CNT110+1,^TMP(""RMPRFIX"",$J,CNT110)=""==>>>  LOGICAL POINTER COULD NOT BE FOUND FOR 665.72 ENTRY, NOT CORRECTED"""
^XMB(3.9,131,2,2023,0)="""RTN"",""RMPR110P"",102,0)"
^XMB(3.9,131,2,2024,0)=" D MAIL"
^XMB(3.9,131,2,2025,0)="""RTN"",""RMPR110P"",103,0)"
^XMB(3.9,131,2,2026,0)="EXIT K SITE,RECTOT,ERRTOT,MON,VEND,IT,DFN,ITEM,RR,R660,R6,DTOUT,ANS,CHK,BADITEM,XITEM,B0,B1,RSH,LK1,LK2,FIND660"
^XMB(3.9,131,2,2027,0)="""RTN"",""RMPR110P"",104,0)"
^XMB(3.9,131,2,2028,0)=" K REC660,XX,YY,X660,RMRDATE,PG,RTYP,RMEND,DIE,DA,DR,DIR,%,BAD660,F660,R,SP,Y"
^XMB(3.9,131,2,2029,0)="""RTN"",""RMPR110P"",105,0)"
^XMB(3.9,131,2,2030,0)=" K ^TMP($J),^TMP(""RMPRTXT"",$J),^TMP(""RMPRFIX"",$J)"
^XMB(3.9,131,2,2031,0)="""RTN"",""RMPR110P"",106,0)"
^XMB(3.9,131,2,2032,0)=" Q"
^XMB(3.9,131,2,2033,0)="""RTN"",""RMPR110P"",107,0)"
^XMB(3.9,131,2,2034,0)="MAIL ;Send results of cleanup in a mail message to initiator"
^XMB(3.9,131,2,2035,0)="""RTN"",""RMPR110P"",108,0)"
^XMB(3.9,131,2,2036,0)=" N I,XMSUB,XMTEXT,XMDUZ,XMY,DIFROM,CNT110"
^XMB(3.9,131,2,2037,0)="""RTN"",""RMPR110P"",109,0)"
^XMB(3.9,131,2,2038,0)=" S XMSUB=""Patch RMPR*3.0*110 Clean up completed"""
^XMB(3.9,131,2,2039,0)="""RTN"",""RMPR110P"",110,0)"
^XMB(3.9,131,2,2040,0)=" S XMDUZ=""Patch RMPR*3.0*110 Clean up job"""
^XMB(3.9,131,2,2041,0)="""RTN"",""RMPR110P"",111,0)"
^XMB(3.9,131,2,2042,0)=" S XMY(.5)="""" S:$G(DUZ) XMY(DUZ)="""""
^XMB(3.9,131,2,2043,0)="""RTN"",""RMPR110P"",112,0)"
^XMB(3.9,131,2,2044,0)=" S XMTEXT=""^TMP(""""RMPRTXT"""",$J,"""
^XMB(3.9,131,2,2045,0)="""RTN"",""RMPR110P"",113,0)"
^XMB(3.9,131,2,2046,0)=" K ^TMP(""RMPRTXT"",$J)"
^XMB(3.9,131,2,2047,0)="""RTN"",""RMPR110P"",114,0)"
^XMB(3.9,131,2,2048,0)=" ; set up header and count"
^XMB(3.9,131,2,2049,0)="""RTN"",""RMPR110P"",115,0)"
^XMB(3.9,131,2,2050,0)=" S I=1"
^XMB(3.9,131,2,2051,0)="""RTN"",""RMPR110P"",116,0)"
^XMB(3.9,131,2,2052,0)=" S ^TMP(""RMPRTXT"",$J,I)=""The correction of invalid pointers between files 665.72 & 660 has completed."",I=I+1"
^XMB(3.9,131,2,2053,0)="""RTN"",""RMPR110P"",117,0)"
^XMB(3.9,131,2,2054,0)=" S ^TMP(""RMPRTXT"",$J,I)=""Below is a listing of pointers found and the correct pointer located"",I=I+1"
^XMB(3.9,131,2,2055,0)="""RTN"",""RMPR110P"",118,0)"
^XMB(3.9,131,2,2056,0)=" S ^TMP(""RMPRTXT"",$J,I)="""",I=I+1"
^XMB(3.9,131,2,2057,0)="""RTN"",""RMPR110P"",119,0)"
^XMB(3.9,131,2,2058,0)=" S ^TMP(""RMPRTXT"",$J,I)="""",I=I+1"
^XMB(3.9,131,2,2059,0)="""RTN"",""RMPR110P"",120,0)"
^XMB(3.9,131,2,2060,0)=" I ERRTOT=0 S ^TMP(""RMPRTXT"",$J,I)=""No pointer errors found for files 660/665.72."",I=I+1"
^XMB(3.9,131,2,2061,0)="""RTN"",""RMPR110P"",121,0)"
^XMB(3.9,131,2,2062,0)=" S ^TMP(""RMPRTXT"",$J,I)="""",I=I+1"
^XMB(3.9,131,2,2063,0)="""RTN"",""RMPR110P"",122,0)"
^XMB(3.9,131,2,2064,0)=" ; set up message text"
^XMB(3.9,131,2,2065,0)="""RTN"",""RMPR110P"",123,0)"
^XMB(3.9,131,2,2066,0)=" S CNT110=0 F  S CNT110=$O(^TMP(""RMPRFIX"",$J,CNT110)) Q:CNT110=""""  D"
^XMB(3.9,131,2,2067,0)="""RTN"",""RMPR110P"",124,0)"
^XMB(3.9,131,2,2068,0)=" .S ^TMP(""RMPRTXT"",$J,I)=^TMP(""RMPRFIX"",$J,CNT110),I=I+1"
^XMB(3.9,131,2,2069,0)="""RTN"",""RMPR110P"",125,0)"
^XMB(3.9,131,2,2070,0)=" D ^XMD ;send results"
^XMB(3.9,131,2,2071,0)="""RTN"",""RMPR110P"",126,0)"
^XMB(3.9,131,2,2072,0)=" Q"
^XMB(3.9,131,2,2073,0)="""VER"")"
^XMB(3.9,131,2,2074,0)="8.0^22.0"
^XMB(3.9,131,2,2075,0)="""BLD"",6155,6)"
^XMB(3.9,131,2,2076,0)="^101"
^XMB(3.9,131,2,2077,0)="$END KID RMPR*3.0*110"
^XMB(3.9,131,6,0)="^3.911A^2^2"
^XMB(3.9,131,6,1,0)="POSTMASTER"
^XMB(3.9,131,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,131,6,"B","POSTMASTER",1)=""
^XMB(3.9,131,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,132,0)="RMPR-3_SEQ-102_PAT-128.KID^.5^3061008.015742^^^^K"
^XMB(3.9,132,.6)="3061008"
^XMB(3.9,132,1,0)="^3.91A^2^2"
^XMB(3.9,132,1,1,0)=".5^0^3061008.015742^^^^^^^3061008.015742"
^XMB(3.9,132,1,2,0)="1^0^3061008.022648^^^^^^^3061008.022648"
^XMB(3.9,132,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,132,1,"C",.5,1)=""
^XMB(3.9,132,1,"C",1,2)=""
^XMB(3.9,132,2,0)="^^2425^2425^3061008"
^XMB(3.9,132,2,1,0)="$TXT Released RMPR*3*128 SEQ #102"
^XMB(3.9,132,2,2,0)="Extracted from mail message"
^XMB(3.9,132,2,3,0)="$END TXT"
^XMB(3.9,132,2,4,0)="$KID RMPR*3.0*128"
^XMB(3.9,132,2,5,0)="**INSTALL NAME**"
^XMB(3.9,132,2,6,0)="RMPR*3.0*128"
^XMB(3.9,132,2,7,0)="""BLD"",6032,0)"
^XMB(3.9,132,2,8,0)="RMPR*3.0*128^PROSTHETICS^0^3060425^y"
^XMB(3.9,132,2,9,0)="""BLD"",6032,1,0)"
^XMB(3.9,132,2,10,0)="^^6^6^3060425^^^"
^XMB(3.9,132,2,11,0)="""BLD"",6032,1,1,0)"
^XMB(3.9,132,2,12,0)="1. UNDEF ITM+9^RMPR29 - variable rmtype NULL"
^XMB(3.9,132,2,13,0)="""BLD"",6032,1,2,0)"
^XMB(3.9,132,2,14,0)=" "
^XMB(3.9,132,2,15,0)="""BLD"",6032,1,3,0)"
^XMB(3.9,132,2,16,0)="2. Institution IEN appears instead of station number on PSAS HCPCS HISTORY"
^XMB(3.9,132,2,17,0)="""BLD"",6032,1,4,0)"
^XMB(3.9,132,2,18,0)="   and Nightly PCE Background mail message"
^XMB(3.9,132,2,19,0)="""BLD"",6032,1,5,0)"
^XMB(3.9,132,2,20,0)=" "
^XMB(3.9,132,2,21,0)="""BLD"",6032,1,6,0)"
^XMB(3.9,132,2,22,0)="3. Inventory does not always update correctly with quantity issued "
^XMB(3.9,132,2,23,0)="""BLD"",6032,4,0)"
^XMB(3.9,132,2,24,0)="^9.64PA^^"
^XMB(3.9,132,2,25,0)="""BLD"",6032,6.3)"
^XMB(3.9,132,2,26,0)="3"
^XMB(3.9,132,2,27,0)="""BLD"",6032,""ABPKG"")"
^XMB(3.9,132,2,28,0)="n"
^XMB(3.9,132,2,29,0)="""BLD"",6032,""KRN"",0)"
^XMB(3.9,132,2,30,0)="^9.67PA^8989.52^19"
^XMB(3.9,132,2,31,0)="""BLD"",6032,""KRN"",.4,0)"
^XMB(3.9,132,2,32,0)=".4"
^XMB(3.9,132,2,33,0)="""BLD"",6032,""KRN"",.401,0)"
^XMB(3.9,132,2,34,0)=".401"
^XMB(3.9,132,2,35,0)="""BLD"",6032,""KRN"",.402,0)"
^XMB(3.9,132,2,36,0)=".402"
^XMB(3.9,132,2,37,0)="""BLD"",6032,""KRN"",.403,0)"
^XMB(3.9,132,2,38,0)=".403"
^XMB(3.9,132,2,39,0)="""BLD"",6032,""KRN"",.5,0)"
^XMB(3.9,132,2,40,0)=".5"
^XMB(3.9,132,2,41,0)="""BLD"",6032,""KRN"",.84,0)"
^XMB(3.9,132,2,42,0)=".84"
^XMB(3.9,132,2,43,0)="""BLD"",6032,""KRN"",3.6,0)"
^XMB(3.9,132,2,44,0)="3.6"
^XMB(3.9,132,2,45,0)="""BLD"",6032,""KRN"",3.8,0)"
^XMB(3.9,132,2,46,0)="3.8"
^XMB(3.9,132,2,47,0)="""BLD"",6032,""KRN"",9.2,0)"
^XMB(3.9,132,2,48,0)="9.2"
^XMB(3.9,132,2,49,0)="""BLD"",6032,""KRN"",9.8,0)"
^XMB(3.9,132,2,50,0)="9.8"
^XMB(3.9,132,2,51,0)="""BLD"",6032,""KRN"",9.8,""NM"",0)"
^XMB(3.9,132,2,52,0)="^9.68A^6^6"
^XMB(3.9,132,2,53,0)="""BLD"",6032,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,132,2,54,0)="RMPRPIYS^^0^84869709"
^XMB(3.9,132,2,55,0)="""BLD"",6032,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,132,2,56,0)="RMPRPIYJ^^0^18984837"
^XMB(3.9,132,2,57,0)="""BLD"",6032,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,132,2,58,0)="RMPRSE21^^0^29249805"
^XMB(3.9,132,2,59,0)="""BLD"",6032,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,132,2,60,0)="RMPRPCEA^^0^52809233"
^XMB(3.9,132,2,61,0)="""BLD"",6032,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,132,2,62,0)="RMPR29^^0^32625638"
^XMB(3.9,132,2,63,0)="""BLD"",6032,""KRN"",9.8,""NM"",6,0)"
^XMB(3.9,132,2,64,0)="RMPRPIYI^^0^60374802"
^XMB(3.9,132,2,65,0)="""BLD"",6032,""KRN"",9.8,""NM"",""B"",""RMPR29"",5)"
^XMB(3.9,132,2,66,0)=""
^XMB(3.9,132,2,67,0)="""BLD"",6032,""KRN"",9.8,""NM"",""B"",""RMPRPCEA"",4)"
^XMB(3.9,132,2,68,0)=""
^XMB(3.9,132,2,69,0)="""BLD"",6032,""KRN"",9.8,""NM"",""B"",""RMPRPIYI"",6)"
^XMB(3.9,132,2,70,0)=""
^XMB(3.9,132,2,71,0)="""BLD"",6032,""KRN"",9.8,""NM"",""B"",""RMPRPIYJ"",2)"
^XMB(3.9,132,2,72,0)=""
^XMB(3.9,132,2,73,0)="""BLD"",6032,""KRN"",9.8,""NM"",""B"",""RMPRPIYS"",1)"
^XMB(3.9,132,2,74,0)=""
^XMB(3.9,132,2,75,0)="""BLD"",6032,""KRN"",9.8,""NM"",""B"",""RMPRSE21"",3)"
^XMB(3.9,132,2,76,0)=""
^XMB(3.9,132,2,77,0)="""BLD"",6032,""KRN"",19,0)"
^XMB(3.9,132,2,78,0)="19"
^XMB(3.9,132,2,79,0)="""BLD"",6032,""KRN"",19.1,0)"
^XMB(3.9,132,2,80,0)="19.1"
^XMB(3.9,132,2,81,0)="""BLD"",6032,""KRN"",101,0)"
^XMB(3.9,132,2,82,0)="101"
^XMB(3.9,132,2,83,0)="""BLD"",6032,""KRN"",409.61,0)"
^XMB(3.9,132,2,84,0)="409.61"
^XMB(3.9,132,2,85,0)="""BLD"",6032,""KRN"",771,0)"
^XMB(3.9,132,2,86,0)="771"
^XMB(3.9,132,2,87,0)="""BLD"",6032,""KRN"",870,0)"
^XMB(3.9,132,2,88,0)="870"
^XMB(3.9,132,2,89,0)="""BLD"",6032,""KRN"",8989.51,0)"
^XMB(3.9,132,2,90,0)="8989.51"
^XMB(3.9,132,2,91,0)="""BLD"",6032,""KRN"",8989.52,0)"
^XMB(3.9,132,2,92,0)="8989.52"
^XMB(3.9,132,2,93,0)="""BLD"",6032,""KRN"",8994,0)"
^XMB(3.9,132,2,94,0)="8994"
^XMB(3.9,132,2,95,0)="""BLD"",6032,""KRN"",""B"",.4,.4)"
^XMB(3.9,132,2,96,0)=""
^XMB(3.9,132,2,97,0)="""BLD"",6032,""KRN"",""B"",.401,.401)"
^XMB(3.9,132,2,98,0)=""
^XMB(3.9,132,2,99,0)="""BLD"",6032,""KRN"",""B"",.402,.402)"
^XMB(3.9,132,2,100,0)=""
^XMB(3.9,132,2,101,0)="""BLD"",6032,""KRN"",""B"",.403,.403)"
^XMB(3.9,132,2,102,0)=""
^XMB(3.9,132,2,103,0)="""BLD"",6032,""KRN"",""B"",.5,.5)"
^XMB(3.9,132,2,104,0)=""
^XMB(3.9,132,2,105,0)="""BLD"",6032,""KRN"",""B"",.84,.84)"
^XMB(3.9,132,2,106,0)=""
^XMB(3.9,132,2,107,0)="""BLD"",6032,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,132,2,108,0)=""
^XMB(3.9,132,2,109,0)="""BLD"",6032,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,132,2,110,0)=""
^XMB(3.9,132,2,111,0)="""BLD"",6032,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,132,2,112,0)=""
^XMB(3.9,132,2,113,0)="""BLD"",6032,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,132,2,114,0)=""
^XMB(3.9,132,2,115,0)="""BLD"",6032,""KRN"",""B"",19,19)"
^XMB(3.9,132,2,116,0)=""
^XMB(3.9,132,2,117,0)="""BLD"",6032,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,132,2,118,0)=""
^XMB(3.9,132,2,119,0)="""BLD"",6032,""KRN"",""B"",101,101)"
^XMB(3.9,132,2,120,0)=""
^XMB(3.9,132,2,121,0)="""BLD"",6032,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,132,2,122,0)=""
^XMB(3.9,132,2,123,0)="""BLD"",6032,""KRN"",""B"",771,771)"
^XMB(3.9,132,2,124,0)=""
^XMB(3.9,132,2,125,0)="""BLD"",6032,""KRN"",""B"",870,870)"
^XMB(3.9,132,2,126,0)=""
^XMB(3.9,132,2,127,0)="""BLD"",6032,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,132,2,128,0)=""
^XMB(3.9,132,2,129,0)="""BLD"",6032,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,132,2,130,0)=""
^XMB(3.9,132,2,131,0)="""BLD"",6032,""KRN"",""B"",8994,8994)"
^XMB(3.9,132,2,132,0)=""
^XMB(3.9,132,2,133,0)="""BLD"",6032,""QUES"",0)"
^XMB(3.9,132,2,134,0)="^9.62^^"
^XMB(3.9,132,2,135,0)="""BLD"",6032,""REQB"",0)"
^XMB(3.9,132,2,136,0)="^9.611^3^3"
^XMB(3.9,132,2,137,0)="""BLD"",6032,""REQB"",1,0)"
^XMB(3.9,132,2,138,0)="RMPR*3.0*120^2"
^XMB(3.9,132,2,139,0)="""BLD"",6032,""REQB"",2,0)"
^XMB(3.9,132,2,140,0)="RMPR*3.0*90^2"
^XMB(3.9,132,2,141,0)="""BLD"",6032,""REQB"",3,0)"
^XMB(3.9,132,2,142,0)="RMPR*3.0*108^2"
^XMB(3.9,132,2,143,0)="""BLD"",6032,""REQB"",""B"",""RMPR*3.0*108"",3)"
^XMB(3.9,132,2,144,0)=""
^XMB(3.9,132,2,145,0)="""BLD"",6032,""REQB"",""B"",""RMPR*3.0*120"",1)"
^XMB(3.9,132,2,146,0)=""
^XMB(3.9,132,2,147,0)="""BLD"",6032,""REQB"",""B"",""RMPR*3.0*90"",2)"
^XMB(3.9,132,2,148,0)=""
^XMB(3.9,132,2,149,0)="""MBREQ"")"
^XMB(3.9,132,2,150,0)="0"
^XMB(3.9,132,2,151,0)="""PKG"",101,-1)"
^XMB(3.9,132,2,152,0)="1^1"
^XMB(3.9,132,2,153,0)="""PKG"",101,0)"
^XMB(3.9,132,2,154,0)="PROSTHETICS^RMPR^PROSTHETICS VERSION 3.0 ALPHA"
^XMB(3.9,132,2,155,0)="""PKG"",101,20,0)"
^XMB(3.9,132,2,156,0)="^9.402P^^0"
^XMB(3.9,132,2,157,0)="""PKG"",101,22,0)"
^XMB(3.9,132,2,158,0)="^9.49I^1^1"
^XMB(3.9,132,2,159,0)="""PKG"",101,22,1,0)"
^XMB(3.9,132,2,160,0)="3.0^2960209^2960214"
^XMB(3.9,132,2,161,0)="""PKG"",101,22,1,""PAH"",1,0)"
^XMB(3.9,132,2,162,0)="128^3060425"
^XMB(3.9,132,2,163,0)="""PKG"",101,22,1,""PAH"",1,1,0)"
^XMB(3.9,132,2,164,0)="^^6^6^3060425"
^XMB(3.9,132,2,165,0)="""PKG"",101,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,132,2,166,0)="1. UNDEF ITM+9^RMPR29 - variable rmtype NULL"
^XMB(3.9,132,2,167,0)="""PKG"",101,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,132,2,168,0)=" "
^XMB(3.9,132,2,169,0)="""PKG"",101,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,132,2,170,0)="2. Institution IEN appears instead of station number on PSAS HCPCS HISTORY"
^XMB(3.9,132,2,171,0)="""PKG"",101,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,132,2,172,0)="   and Nightly PCE Background mail message"
^XMB(3.9,132,2,173,0)="""PKG"",101,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,132,2,174,0)=" "
^XMB(3.9,132,2,175,0)="""PKG"",101,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,132,2,176,0)="3. Inventory does not always update correctly with quantity issued "
^XMB(3.9,132,2,177,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,132,2,178,0)="Y"
^XMB(3.9,132,2,179,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,132,2,180,0)="^D REP^XPDH"
^XMB(3.9,132,2,181,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,132,2,182,0)="Shall I write over your |FLAG| File"
^XMB(3.9,132,2,183,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,132,2,184,0)="YES"
^XMB(3.9,132,2,185,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,132,2,186,0)="D XPF1^XPDIQ"
^XMB(3.9,132,2,187,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,132,2,188,0)="Y"
^XMB(3.9,132,2,189,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,132,2,190,0)="^D DTA^XPDH"
^XMB(3.9,132,2,191,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,132,2,192,0)="Want my data |FLAG| yours"
^XMB(3.9,132,2,193,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,132,2,194,0)="YES"
^XMB(3.9,132,2,195,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,132,2,196,0)="D XPF2^XPDIQ"
^XMB(3.9,132,2,197,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,132,2,198,0)="YO"
^XMB(3.9,132,2,199,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,132,2,200,0)="^D INHIBIT^XPDH"
^XMB(3.9,132,2,201,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,132,2,202,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,132,2,203,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,132,2,204,0)="YES"
^XMB(3.9,132,2,205,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,132,2,206,0)="D XPI1^XPDIQ"
^XMB(3.9,132,2,207,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,132,2,208,0)="PO^VA(200,:EM"
^XMB(3.9,132,2,209,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,132,2,210,0)="^D MG^XPDH"
^XMB(3.9,132,2,211,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,132,2,212,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,132,2,213,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,132,2,214,0)=""
^XMB(3.9,132,2,215,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,132,2,216,0)="D XPM1^XPDIQ"
^XMB(3.9,132,2,217,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,132,2,218,0)="Y"
^XMB(3.9,132,2,219,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,132,2,220,0)="^D MENU^XPDH"
^XMB(3.9,132,2,221,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,132,2,222,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,132,2,223,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,132,2,224,0)="YES"
^XMB(3.9,132,2,225,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,132,2,226,0)="D XPO1^XPDIQ"
^XMB(3.9,132,2,227,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,132,2,228,0)="Y"
^XMB(3.9,132,2,229,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,132,2,230,0)="^D OPT^XPDH"
^XMB(3.9,132,2,231,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,132,2,232,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,132,2,233,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,132,2,234,0)="YES"
^XMB(3.9,132,2,235,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,132,2,236,0)="D XPZ1^XPDIQ"
^XMB(3.9,132,2,237,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,132,2,238,0)="Y"
^XMB(3.9,132,2,239,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,132,2,240,0)="^D RTN^XPDH"
^XMB(3.9,132,2,241,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,132,2,242,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,132,2,243,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,132,2,244,0)="NO"
^XMB(3.9,132,2,245,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,132,2,246,0)="D XPZ2^XPDIQ"
^XMB(3.9,132,2,247,0)="""RTN"")"
^XMB(3.9,132,2,248,0)="6"
^XMB(3.9,132,2,249,0)="""RTN"",""RMPR29"")"
^XMB(3.9,132,2,250,0)="0^5^B32625638^B32511441"
^XMB(3.9,132,2,251,0)="""RTN"",""RMPR29"",1,0)"
^XMB(3.9,132,2,252,0)="RMPR29 ;PHX/JLT-ENTER/EDIT 2529-3 [ 10/01/94  5:29 AM ]"
^XMB(3.9,132,2,253,0)="""RTN"",""RMPR29"",2,0)"
^XMB(3.9,132,2,254,0)=" ;;3.0;PROSTHETICS;**12,41,62,128**;Feb 09, 1996"
^XMB(3.9,132,2,255,0)="""RTN"",""RMPR29"",3,0)"
^XMB(3.9,132,2,256,0)=" ;RVD patch #62 - PCE and suspense link"
^XMB(3.9,132,2,257,0)="""RTN"",""RMPR29"",4,0)"
^XMB(3.9,132,2,258,0)="CREATE ;CREATE 2529-3"
^XMB(3.9,132,2,259,0)="""RTN"",""RMPR29"",5,0)"
^XMB(3.9,132,2,260,0)=" K RMPREDIT,RMPRTMP,RMPR25,^TMP($J,""RMPRPCE"") D DIV4^RMPRSIT G:$D(X) EXIT1"
^XMB(3.9,132,2,261,0)="""RTN"",""RMPR29"",6,0)"
^XMB(3.9,132,2,262,0)=" D GETPAT^RMPRUTIL I '$D(RMPRDFN) G EXIT1"
^XMB(3.9,132,2,263,0)="""RTN"",""RMPR29"",7,0)"
^XMB(3.9,132,2,264,0)="VIEW ;CREATE 2529-3 VIA LAB MENU"
^XMB(3.9,132,2,265,0)="""RTN"",""RMPR29"",8,0)"
^XMB(3.9,132,2,266,0)=" N RMPRDA,RMPRWO,RMPRJOB S RMPRF=4 D ^RMPRPAT I $D(RMPRKILL) G EXIT"
^XMB(3.9,132,2,267,0)="""RTN"",""RMPR29"",9,0)"
^XMB(3.9,132,2,268,0)=" S DIC=""^RMPR(664.1,"",DIC(0)=""ZL"",X=DT"
^XMB(3.9,132,2,269,0)="""RTN"",""RMPR29"",10,0)"
^XMB(3.9,132,2,270,0)=" S DLAYGO=664.1 D FILE^DICN K DLAYGO,DIC"
^XMB(3.9,132,2,271,0)="""RTN"",""RMPR29"",11,0)"
^XMB(3.9,132,2,272,0)=" G:+Y'>0 EXIT1"
^XMB(3.9,132,2,273,0)="""RTN"",""RMPR29"",12,0)"
^XMB(3.9,132,2,274,0)=" S RMPRDA=+Y,$P(^RMPR(664.1,RMPRDA,0),U,2)=RMPRDFN,$P(^(0),U,3)=RMPR(""STA""),$P(^(0),U,17)=""I"""
^XMB(3.9,132,2,275,0)="""RTN"",""RMPR29"",13,0)"
^XMB(3.9,132,2,276,0)=" S IDEF=$$STA^RMPR31U(RMPR(""STA""))"
^XMB(3.9,132,2,277,0)="""RTN"",""RMPR29"",14,0)"
^XMB(3.9,132,2,278,0)=" S DA=RMPRDA,DIK=""^RMPR(664.1,"" D IX1^DIK"
^XMB(3.9,132,2,279,0)="""RTN"",""RMPR29"",15,0)"
^XMB(3.9,132,2,280,0)=" K DR,DA,DIC,Y,DIE D KVAR^VADPT"
^XMB(3.9,132,2,281,0)="""RTN"",""RMPR29"",16,0)"
^XMB(3.9,132,2,282,0)=" S DFN=$P(^RMPR(664.1,RMPRDA,0),U,2),VAIP(""D"")=""L"""
^XMB(3.9,132,2,283,0)="""RTN"",""RMPR29"",17,0)"
^XMB(3.9,132,2,284,0)=" D IN5^VADPT S VAINDT=$P($G(VAIP(3)),U) D INP^VADPT"
^XMB(3.9,132,2,285,0)="""RTN"",""RMPR29"",18,0)"
^XMB(3.9,132,2,286,0)=" I VAIN(1) S DR="".11R;.04R//^S X=$G(IDEF);2R;12//^S X=$P(VAIN(4),U,2);12.1//^S X=$P(VAIN(2),U,2);12.2//^S X=VAIN(9);12.3//^S X=$P(VAIN(3),U,2);12.4;.09R"""
^XMB(3.9,132,2,287,0)="""RTN"",""RMPR29"",19,0)"
^XMB(3.9,132,2,288,0)=" I 'VAIN(1) S DR="".11R;.04R//^S X=$G(IDEF);2R;.09R"""
^XMB(3.9,132,2,289,0)="""RTN"",""RMPR29"",20,0)"
^XMB(3.9,132,2,290,0)="EDT ;EDIT/DELETE 2529-3"
^XMB(3.9,132,2,291,0)="""RTN"",""RMPR29"",21,0)"
^XMB(3.9,132,2,292,0)=" I $G(RMPRDA)>0,$G(RMPRDA)'="""" G ST"
^XMB(3.9,132,2,293,0)="""RTN"",""RMPR29"",22,0)"
^XMB(3.9,132,2,294,0)=" K DR,DIC D DIV4^RMPRSIT G:$D(X) EXIT1"
^XMB(3.9,132,2,295,0)="""RTN"",""RMPR29"",23,0)"
^XMB(3.9,132,2,296,0)=" S RMPREDIT=1"
^XMB(3.9,132,2,297,0)="""RTN"",""RMPR29"",24,0)"
^XMB(3.9,132,2,298,0)=" S DIC=""^RMPR(664.1,"",DIC(0)=""AEQM"",DR="".01"""
^XMB(3.9,132,2,299,0)="""RTN"",""RMPR29"",25,0)"
^XMB(3.9,132,2,300,0)=" ;screen on complete, delete status"
^XMB(3.9,132,2,301,0)="""RTN"",""RMPR29"",26,0)"
^XMB(3.9,132,2,302,0)=" S DIC(""S"")=""I $P(^(0),U,17)'=""""D""""&($P(^(0),U,17)'=""""C"""")"""
^XMB(3.9,132,2,303,0)="""RTN"",""RMPR29"",27,0)"
^XMB(3.9,132,2,304,0)=" S DIC(""W"")=""D EN3^RMPRD1"""
^XMB(3.9,132,2,305,0)="""RTN"",""RMPR29"",28,0)"
^XMB(3.9,132,2,306,0)=" D ^DIC K DIC"
^XMB(3.9,132,2,307,0)="""RTN"",""RMPR29"",29,0)"
^XMB(3.9,132,2,308,0)=" G:+Y'>0 EXIT1 S RMPRDA=+Y"
^XMB(3.9,132,2,309,0)="""RTN"",""RMPR29"",30,0)"
^XMB(3.9,132,2,310,0)=" I $G(RMPRDA)'>0 Q"
^XMB(3.9,132,2,311,0)="""RTN"",""RMPR29"",31,0)"
^XMB(3.9,132,2,312,0)=" L +^RMPR(664.1,RMPRDA,0):1"
^XMB(3.9,132,2,313,0)="""RTN"",""RMPR29"",32,0)"
^XMB(3.9,132,2,314,0)=" I '$T W $C(7),!!,?5,""Someone is already editing this entry"" G EXIT"
^XMB(3.9,132,2,315,0)="""RTN"",""RMPR29"",33,0)"
^XMB(3.9,132,2,316,0)=" D DSP^RMPR29R K DIR"
^XMB(3.9,132,2,317,0)="""RTN"",""RMPR29"",34,0)"
^XMB(3.9,132,2,318,0)=" S DIR(0)=""Y"",DIR(""A"")=""Would you like to Edit this Entry"""
^XMB(3.9,132,2,319,0)="""RTN"",""RMPR29"",35,0)"
^XMB(3.9,132,2,320,0)=" S DIR(""B"")=""YES"" D ^DIR"
^XMB(3.9,132,2,321,0)="""RTN"",""RMPR29"",36,0)"
^XMB(3.9,132,2,322,0)=" G:$D(DTOUT)!($D(DIRUT)) EXIT K DKILL,IKILL G:+Y=0 DEL"
^XMB(3.9,132,2,323,0)="""RTN"",""RMPR29"",37,0)"
^XMB(3.9,132,2,324,0)="ST ;set data in 2529-3 file"
^XMB(3.9,132,2,325,0)="""RTN"",""RMPR29"",38,0)"
^XMB(3.9,132,2,326,0)=" S RMPRDFN=$P(^RMPR(664.1,RMPRDA,0),U,2),DA=RMPRDA,DIE=""^RMPR(664.1,"""
^XMB(3.9,132,2,327,0)="""RTN"",""RMPR29"",39,0)"
^XMB(3.9,132,2,328,0)=" I '$D(DR),'$D(^RMPR(664.1,RMPRDA,""CDR"")) S DR="".11R;.04;2R;.09R"""
^XMB(3.9,132,2,329,0)="""RTN"",""RMPR29"",40,0)"
^XMB(3.9,132,2,330,0)=" I '$D(DR),$D(^RMPR(664.1,RMPRDA,""CDR"")) S DR="".11R;.04R;2R;12;12.1;12.2;12.3;12.4;.09R"""
^XMB(3.9,132,2,331,0)="""RTN"",""RMPR29"",41,0)"
^XMB(3.9,132,2,332,0)=" D ^DIE G:$D(Y)!($D(DTOUT)) CHK^RMPR29D"
^XMB(3.9,132,2,333,0)="""RTN"",""RMPR29"",42,0)"
^XMB(3.9,132,2,334,0)="GD ;Display work order"
^XMB(3.9,132,2,335,0)="""RTN"",""RMPR29"",43,0)"
^XMB(3.9,132,2,336,0)=" D DIS^RMPR29W(RMPRDFN,RMPRDA) G:$G(X)=""^"" CHK^RMPR29D G:+Y'>0 ITM"
^XMB(3.9,132,2,337,0)="""RTN"",""RMPR29"",44,0)"
^XMB(3.9,132,2,338,0)=" K DR,DA,DIC,DIE"
^XMB(3.9,132,2,339,0)="""RTN"",""RMPR29"",45,0)"
^XMB(3.9,132,2,340,0)=" S DIC=""^RMPR(664.1,""_RMPRDA_"",1,"""
^XMB(3.9,132,2,341,0)="""RTN"",""RMPR29"",46,0)"
^XMB(3.9,132,2,342,0)=" S DIC(""P"")=""664.15PA"",DA(1)=RMPRDA"
^XMB(3.9,132,2,343,0)="""RTN"",""RMPR29"",47,0)"
^XMB(3.9,132,2,344,0)=" S DIC(0)=""EQMZL"",X=Y(0,0),ELG=$P(Y(0),U,3)"
^XMB(3.9,132,2,345,0)="""RTN"",""RMPR29"",48,0)"
^XMB(3.9,132,2,346,0)=" D ^DIC"
^XMB(3.9,132,2,347,0)="""RTN"",""RMPR29"",49,0)"
^XMB(3.9,132,2,348,0)=" I +Y'>0 K DIC G GD"
^XMB(3.9,132,2,349,0)="""RTN"",""RMPR29"",50,0)"
^XMB(3.9,132,2,350,0)=" S DIE=DIC K DIC"
^XMB(3.9,132,2,351,0)="""RTN"",""RMPR29"",51,0)"
^XMB(3.9,132,2,352,0)=" S DA(1)=RMPRDA,DA=+Y"
^XMB(3.9,132,2,353,0)="""RTN"",""RMPR29"",52,0)"
^XMB(3.9,132,2,354,0)=" S DR=""1///^S X=ELG;.01;1"""
^XMB(3.9,132,2,355,0)="""RTN"",""RMPR29"",53,0)"
^XMB(3.9,132,2,356,0)=" D ^DIE G:$D(DTOUT)!($D(Y)) CHK^RMPR29D G GD"
^XMB(3.9,132,2,357,0)="""RTN"",""RMPR29"",54,0)"
^XMB(3.9,132,2,358,0)="ITM ;EDIT 2529-3 ITEM"
^XMB(3.9,132,2,359,0)="""RTN"",""RMPR29"",55,0)"
^XMB(3.9,132,2,360,0)=" K DIR S DA=RMPRDA,DIC=""^RMPR(664.1,""_RMPRDA_"",2,"""
^XMB(3.9,132,2,361,0)="""RTN"",""RMPR29"",56,0)"
^XMB(3.9,132,2,362,0)=" S DIC(""P"")=""664.16PA"",DA(1)=RMPRDA,DIC(0)=""AEQMZL"""
^XMB(3.9,132,2,363,0)="""RTN"",""RMPR29"",57,0)"
^XMB(3.9,132,2,364,0)=" S DIC(""W"")=""S RA=$P(^(0),U,1) I +RA W ?16,$$ITM^RMPR31U(RA)"""
^XMB(3.9,132,2,365,0)="""RTN"",""RMPR29"",58,0)"
^XMB(3.9,132,2,366,0)=" D ^DIC K DIC G:+Y'>0 CHK^RMPR29D"
^XMB(3.9,132,2,367,0)="""RTN"",""RMPR29"",59,0)"
^XMB(3.9,132,2,368,0)=" S RY=$P(Y,U,2) D ITA^RMPR29U(RY)"
^XMB(3.9,132,2,369,0)="""RTN"",""RMPR29"",60,0)"
^XMB(3.9,132,2,370,0)=" S DA=+Y,DIE=""^RMPR(664.1,""_RMPRDA_"",2,"""
^XMB(3.9,132,2,371,0)="""RTN"",""RMPR29"",61,0)"
^XMB(3.9,132,2,372,0)=" S DR=""8R;9R;13;7;2R;3R;12"""
^XMB(3.9,132,2,373,0)="""RTN"",""RMPR29"",62,0)"
^XMB(3.9,132,2,374,0)=" D ^DIE G:$D(DTOUT) CHK^RMPR29D"
^XMB(3.9,132,2,375,0)="""RTN"",""RMPR29"",63,0)"
^XMB(3.9,132,2,376,0)=" S RMTYPE=$P(^RMPR(664.1,RMPRDA,2,DA,0),U,7)"
^XMB(3.9,132,2,377,0)="""RTN"",""RMPR29"",64,0)"
^XMB(3.9,132,2,378,0)=" I $D(DA) S RDATA=RMTYPE_""^""_RMPRDA_""^""_DA D CHKCPT^RMPR29U(RDATA)"
^XMB(3.9,132,2,379,0)="""RTN"",""RMPR29"",65,0)"
^XMB(3.9,132,2,380,0)=" I $D(DA) S RY=$P(^RMPR(664.1,DA(1),2,DA,0),U),HCPCS=$P($G(^(2)),U,1),RMCPT=$P($G(^(2)),U,2) D ITA^RMPR29U(RY)"
^XMB(3.9,132,2,381,0)="""RTN"",""RMPR29"",66,0)"
^XMB(3.9,132,2,382,0)=" K RMTYPE,RDATA,RMCPT"
^XMB(3.9,132,2,383,0)="""RTN"",""RMPR29"",67,0)"
^XMB(3.9,132,2,384,0)="D G ITM"
^XMB(3.9,132,2,385,0)="""RTN"",""RMPR29"",68,0)"
^XMB(3.9,132,2,386,0)="LAB ;ASK TO POST REQUEST"
^XMB(3.9,132,2,387,0)="""RTN"",""RMPR29"",69,0)"
^XMB(3.9,132,2,388,0)=" S DIR(0)=""Y"",DIR(""A"")=""Would you like to review this request"""
^XMB(3.9,132,2,389,0)="""RTN"",""RMPR29"",70,0)"
^XMB(3.9,132,2,390,0)=" S DIR(""B"")=""YES"" D ^DIR G:$D(DTOUT)!($D(DIRUT)) EXIT"
^XMB(3.9,132,2,391,0)="""RTN"",""RMPR29"",71,0)"
^XMB(3.9,132,2,392,0)=" I Y=1 S IOP=""HOME"" D PRT^RMPR29R"
^XMB(3.9,132,2,393,0)="""RTN"",""RMPR29"",72,0)"
^XMB(3.9,132,2,394,0)=" K DIR S DIR(0)=""Y"",DIR(""A"")=""Would you like to post this request"""
^XMB(3.9,132,2,395,0)="""RTN"",""RMPR29"",73,0)"
^XMB(3.9,132,2,396,0)=" S DIR(""B"")=""YES"" D ^DIR G:$D(DTOUT)!($D(DIRUT)) EXIT"
^XMB(3.9,132,2,397,0)="""RTN"",""RMPR29"",74,0)"
^XMB(3.9,132,2,398,0)=" I +Y=0 W !!,?5,$C(7),""Request not posted!!"" G:$D(RMPR25) RDL G EXIT"
^XMB(3.9,132,2,399,0)="""RTN"",""RMPR29"",75,0)"
^XMB(3.9,132,2,400,0)=" ;set temp transaction flag if needed"
^XMB(3.9,132,2,401,0)="""RTN"",""RMPR29"",76,0)"
^XMB(3.9,132,2,402,0)=" K RMPRTMP I $P(^RMPR(664.1,RMPRDA,0),U,15)'=RMPR(""STA"") S RMPRTMP=1"
^XMB(3.9,132,2,403,0)="""RTN"",""RMPR29"",77,0)"
^XMB(3.9,132,2,404,0)=" S RMPRWO=$P(^RMPR(664.1,RMPRDA,0),U,13) G:RMPRWO'="""" SG S SCR=$P(^(0),U,11)"
^XMB(3.9,132,2,405,0)="""RTN"",""RMPR29"",78,0)"
^XMB(3.9,132,2,406,0)=" D CR^RMPR29U(SCR)"
^XMB(3.9,132,2,407,0)="""RTN"",""RMPR29"",79,0)"
^XMB(3.9,132,2,408,0)=" I '$D(RMPRWO) W !!,?5,$C(7),""Request not posted!!"" G EXIT"
^XMB(3.9,132,2,409,0)="""RTN"",""RMPR29"",80,0)"
^XMB(3.9,132,2,410,0)="SG ;set 2529-3 global"
^XMB(3.9,132,2,411,0)="""RTN"",""RMPR29"",81,0)"
^XMB(3.9,132,2,412,0)=" S $P(^RMPR(664.1,RMPRDA,0),U,13)=$G(RMPRWO)"
^XMB(3.9,132,2,413,0)="""RTN"",""RMPR29"",82,0)"
^XMB(3.9,132,2,414,0)=" ;set no admin count/no lab count"
^XMB(3.9,132,2,415,0)="""RTN"",""RMPR29"",83,0)"
^XMB(3.9,132,2,416,0)=" I $P(^RMPR(664.1,RMPRDA,0),U,15)=RMPR(""STA"")&($P(^(0),U,4)'=RMPR(""STA"")) S $P(^(0),U,23)=1"
^XMB(3.9,132,2,417,0)="""RTN"",""RMPR29"",84,0)"
^XMB(3.9,132,2,418,0)=" I $P(^RMPR(664.1,RMPRDA,0),U,15)'=RMPR(""STA"") S $P(^(0),U,20)=1 S:$D(RMPR25) $P(^RMPR(664.1,RMPRDA,0),U,23)=1 S DIE=""^RMPR(664.1,"",DA=RMPRDA,DR=""16///^S X=""""PC"""""" D ^DIE"
^XMB(3.9,132,2,419,0)="""RTN"",""RMPR29"",85,0)"
^XMB(3.9,132,2,420,0)=" I '$P(^RMPR(664.1,RMPRDA,0),U,20) S DIE=""^RMPR(664.1,"",DA=RMPRDA,DR=""16///^S X=""""P"""""" D ^DIE"
^XMB(3.9,132,2,421,0)="""RTN"",""RMPR29"",86,0)"
^XMB(3.9,132,2,422,0)=" S $P(^RMPR(664.1,RMPRDA,0),U,5)=DUZ,$P(^(0),U,18)=DT D ^RMPR29A"
^XMB(3.9,132,2,423,0)="""RTN"",""RMPR29"",87,0)"
^XMB(3.9,132,2,424,0)=" I $G(RMPRWO)'="""" W !!,?5,""Assigned Work Order Number: "",RMPRWO D:'$D(RMPRTMP) LOC^RMPR29R"
^XMB(3.9,132,2,425,0)="""RTN"",""RMPR29"",88,0)"
^XMB(3.9,132,2,426,0)=" ;added by #62"
^XMB(3.9,132,2,427,0)="""RTN"",""RMPR29"",89,0)"
^XMB(3.9,132,2,428,0)=" I $G(DA660),'$D(^RMPR(660,DA660,10)) D"
^XMB(3.9,132,2,429,0)="""RTN"",""RMPR29"",90,0)"
^XMB(3.9,132,2,430,0)=" .S (RMPCAMIS,RMPRDFN)="""""
^XMB(3.9,132,2,431,0)="""RTN"",""RMPR29"",91,0)"
^XMB(3.9,132,2,432,0)=" .S RMPCAMIS=$G(^RMPR(660,DA660,""AMS""))"
^XMB(3.9,132,2,433,0)="""RTN"",""RMPR29"",92,0)"
^XMB(3.9,132,2,434,0)=" .S:$D(^RMPR(660,DA660,0)) RMPRDFN=$P(^RMPR(660,DA660,0),U,2)"
^XMB(3.9,132,2,435,0)="""RTN"",""RMPR29"",93,0)"
^XMB(3.9,132,2,436,0)=" .I RMPCAMIS,RMPRDFN S ^TMP($J,""RMPRPCE"",660,DA660)=RMPCAMIS_""^""_RMPRDFN"
^XMB(3.9,132,2,437,0)="""RTN"",""RMPR29"",94,0)"
^XMB(3.9,132,2,438,0)=" ;suspense record inquiry"
^XMB(3.9,132,2,439,0)="""RTN"",""RMPR29"",95,0)"
^XMB(3.9,132,2,440,0)=" D LINK^RMPRS"
^XMB(3.9,132,2,441,0)="""RTN"",""RMPR29"",96,0)"
^XMB(3.9,132,2,442,0)=" W !! S DIR(0)=""Y"",DIR(""A"")=""Would you like to print this 2529-3  request"""
^XMB(3.9,132,2,443,0)="""RTN"",""RMPR29"",97,0)"
^XMB(3.9,132,2,444,0)=" S DIR(""B"")=""YES"" D ^DIR G:$D(DTOUT)!($D(DIRUT)) EXIT"
^XMB(3.9,132,2,445,0)="""RTN"",""RMPR29"",98,0)"
^XMB(3.9,132,2,446,0)=" I Y=1 D PRT^RMPR29R"
^XMB(3.9,132,2,447,0)="""RTN"",""RMPR29"",99,0)"
^XMB(3.9,132,2,448,0)=" ;"
^XMB(3.9,132,2,449,0)="""RTN"",""RMPR29"",100,0)"
^XMB(3.9,132,2,450,0)="EXIT ;common exit point for both RMPR29 and RMPR29A"
^XMB(3.9,132,2,451,0)="""RTN"",""RMPR29"",101,0)"
^XMB(3.9,132,2,452,0)=" ;"
^XMB(3.9,132,2,453,0)="""RTN"",""RMPR29"",102,0)"
^XMB(3.9,132,2,454,0)=" L:+$G(RMPRDA) -^RMPR(664.1,+RMPRDA,0)"
^XMB(3.9,132,2,455,0)="""RTN"",""RMPR29"",103,0)"
^XMB(3.9,132,2,456,0)=" S:$D(RMPR25)&($D(RMPRDA)) RMPRRDA=RMPRDA"
^XMB(3.9,132,2,457,0)="""RTN"",""RMPR29"",104,0)"
^XMB(3.9,132,2,458,0)=" I '$D(RMPR25)&('$D(RMPREDIT)) W !! S DIR(0)=""Y"",DIR(""A"")=""Would you like to Process another 2529-3 Request"",DIR(""B"")=""YES"" D ^DIR G:+Y=1 CREATE"
^XMB(3.9,132,2,459,0)="""RTN"",""RMPR29"",105,0)"
^XMB(3.9,132,2,460,0)=" D KVAR^VADPT"
^XMB(3.9,132,2,461,0)="""RTN"",""RMPR29"",106,0)"
^XMB(3.9,132,2,462,0)=" K ^TMP($J,""RMPRPCE"")"
^XMB(3.9,132,2,463,0)="""RTN"",""RMPR29"",107,0)"
^XMB(3.9,132,2,464,0)=" N RMPR,RMPRSITE D KILL^XUSCLEAN"
^XMB(3.9,132,2,465,0)="""RTN"",""RMPR29"",108,0)"
^XMB(3.9,132,2,466,0)=" Q"
^XMB(3.9,132,2,467,0)="""RTN"",""RMPR29"",109,0)"
^XMB(3.9,132,2,468,0)="EXIT1 ;exit on error"
^XMB(3.9,132,2,469,0)="""RTN"",""RMPR29"",110,0)"
^XMB(3.9,132,2,470,0)=" L:+$G(RMPRDA) -^RMPR(664.1,+RMPRDA,0)"
^XMB(3.9,132,2,471,0)="""RTN"",""RMPR29"",111,0)"
^XMB(3.9,132,2,472,0)=" N RMPR,RMPRSITE D KVAR^VADPT,KILL^XUSCLEAN Q"
^XMB(3.9,132,2,473,0)="""RTN"",""RMPR29"",112,0)"
^XMB(3.9,132,2,474,0)="DEL ;delete status 2529-3"
^XMB(3.9,132,2,475,0)="""RTN"",""RMPR29"",113,0)"
^XMB(3.9,132,2,476,0)=" K DIR,Y"
^XMB(3.9,132,2,477,0)="""RTN"",""RMPR29"",114,0)"
^XMB(3.9,132,2,478,0)=" S DIR(0)=""Y"",DIR(""A"")=""Would you like to Delete this 2529-3 Entry"""
^XMB(3.9,132,2,479,0)="""RTN"",""RMPR29"",115,0)"
^XMB(3.9,132,2,480,0)=" S DIR(""B"")=""NO"" D ^DIR G:$D(DTOUT)!($D(DIRUT)) EXIT1"
^XMB(3.9,132,2,481,0)="""RTN"",""RMPR29"",116,0)"
^XMB(3.9,132,2,482,0)=" ;if not drop into edit mode"
^XMB(3.9,132,2,483,0)="""RTN"",""RMPR29"",117,0)"
^XMB(3.9,132,2,484,0)=" I +Y=0 G:$D(DKILL) GD G:$D(IKILL) ITM G CHK^RMPR29D"
^XMB(3.9,132,2,485,0)="""RTN"",""RMPR29"",118,0)"
^XMB(3.9,132,2,486,0)=" ;if it has a work order number, only mark as deleted"
^XMB(3.9,132,2,487,0)="""RTN"",""RMPR29"",119,0)"
^XMB(3.9,132,2,488,0)=" ;delete entry in the 2319 record."
^XMB(3.9,132,2,489,0)="""RTN"",""RMPR29"",120,0)"
^XMB(3.9,132,2,490,0)=" N BO"
^XMB(3.9,132,2,491,0)="""RTN"",""RMPR29"",121,0)"
^XMB(3.9,132,2,492,0)=" S BO=0"
^XMB(3.9,132,2,493,0)="""RTN"",""RMPR29"",122,0)"
^XMB(3.9,132,2,494,0)=" F  S BO=$O(^RMPR(664.1,RMPRDA,2,BO)) Q:BO'>0  D"
^XMB(3.9,132,2,495,0)="""RTN"",""RMPR29"",123,0)"
^XMB(3.9,132,2,496,0)=" .S DA=$P(^RMPR(664.1,RMPRDA,2,BO,0),U,5)"
^XMB(3.9,132,2,497,0)="""RTN"",""RMPR29"",124,0)"
^XMB(3.9,132,2,498,0)=" .Q:DA="""""
^XMB(3.9,132,2,499,0)="""RTN"",""RMPR29"",125,0)"
^XMB(3.9,132,2,500,0)=" .S DIK=""^RMPR(660,"" D ^DIK"
^XMB(3.9,132,2,501,0)="""RTN"",""RMPR29"",126,0)"
^XMB(3.9,132,2,502,0)=" W !,?5,""Updated 10-2319"""
^XMB(3.9,132,2,503,0)="""RTN"",""RMPR29"",127,0)"
^XMB(3.9,132,2,504,0)=" K DA,DIK"
^XMB(3.9,132,2,505,0)="""RTN"",""RMPR29"",128,0)"
^XMB(3.9,132,2,506,0)=" I $P(^RMPR(664.1,RMPRDA,0),U,13)'="""" S DIE=""^RMPR(664.1,"",DA=RMPRDA,DR=""16///^S X=""""D"""""" D ^DIE W !,?5,$C(7),""Marked As Deleted..."" G EXIT"
^XMB(3.9,132,2,507,0)="""RTN"",""RMPR29"",129,0)"
^XMB(3.9,132,2,508,0)="RDL ;delete record"
^XMB(3.9,132,2,509,0)="""RTN"",""RMPR29"",130,0)"
^XMB(3.9,132,2,510,0)=" ;the record is only deleted from 664.1 when the user creats a new"
^XMB(3.9,132,2,511,0)="""RTN"",""RMPR29"",131,0)"
^XMB(3.9,132,2,512,0)=" ;and then at end say's no do not post.  Once it is posted, then"
^XMB(3.9,132,2,513,0)="""RTN"",""RMPR29"",132,0)"
^XMB(3.9,132,2,514,0)=" ;it must only be marked as deleted."
^XMB(3.9,132,2,515,0)="""RTN"",""RMPR29"",133,0)"
^XMB(3.9,132,2,516,0)=" S DA=RMPRDA,DIK=""^RMPR(664.1,"""
^XMB(3.9,132,2,517,0)="""RTN"",""RMPR29"",134,0)"
^XMB(3.9,132,2,518,0)=" D ^DIK K DIK W !!,?5,$C(7),""Deleted..."""
^XMB(3.9,132,2,519,0)="""RTN"",""RMPR29"",135,0)"
^XMB(3.9,132,2,520,0)=" ;delete the 2319 record"
^XMB(3.9,132,2,521,0)="""RTN"",""RMPR29"",136,0)"
^XMB(3.9,132,2,522,0)=" N BO"
^XMB(3.9,132,2,523,0)="""RTN"",""RMPR29"",137,0)"
^XMB(3.9,132,2,524,0)=" S DA=0,BO=0"
^XMB(3.9,132,2,525,0)="""RTN"",""RMPR29"",138,0)"
^XMB(3.9,132,2,526,0)=" F  S BO=$O(^RMPR(664.1,RMPRDA,2,BO)) Q:BO'>0  D"
^XMB(3.9,132,2,527,0)="""RTN"",""RMPR29"",139,0)"
^XMB(3.9,132,2,528,0)=" .S DA=$P(^RMPR(664.1,RMPRDA,2,BO,0),U,5)"
^XMB(3.9,132,2,529,0)="""RTN"",""RMPR29"",140,0)"
^XMB(3.9,132,2,530,0)=" .Q:DA="""""
^XMB(3.9,132,2,531,0)="""RTN"",""RMPR29"",141,0)"
^XMB(3.9,132,2,532,0)=" .S DIK=""^RMPR(660,"" D ^DIK"
^XMB(3.9,132,2,533,0)="""RTN"",""RMPR29"",142,0)"
^XMB(3.9,132,2,534,0)=" K DIK,DA,RMPRDA"
^XMB(3.9,132,2,535,0)="""RTN"",""RMPR29"",143,0)"
^XMB(3.9,132,2,536,0)=" W !!,?5,""Updated 10-2319"",!"
^XMB(3.9,132,2,537,0)="""RTN"",""RMPR29"",144,0)"
^XMB(3.9,132,2,538,0)=" G EXIT"
^XMB(3.9,132,2,539,0)="""RTN"",""RMPRPCEA"")"
^XMB(3.9,132,2,540,0)="0^4^B52809233^B52102527"
^XMB(3.9,132,2,541,0)="""RTN"",""RMPRPCEA"",1,0)"
^XMB(3.9,132,2,542,0)="RMPRPCEA ;HCIOFO/RVD - Prosthetics/PCE Interface; 05/31/01"
^XMB(3.9,132,2,543,0)="""RTN"",""RMPRPCEA"",2,0)"
^XMB(3.9,132,2,544,0)=" ;;3.0;PROSTHETICS;**62,82,78,114,120,128**;Feb 09, 1996"
^XMB(3.9,132,2,545,0)="""RTN"",""RMPRPCEA"",3,0)"
^XMB(3.9,132,2,546,0)=" ;"
^XMB(3.9,132,2,547,0)="""RTN"",""RMPRPCEA"",4,0)"
^XMB(3.9,132,2,548,0)=" ; RMS  10/1/03 Patch 78 - Change Service connected, and environmental"
^XMB(3.9,132,2,549,0)="""RTN"",""RMPRPCEA"",5,0)"
^XMB(3.9,132,2,550,0)=" ;                         indicators (Agent Orange, Ionizing Radiation,"
^XMB(3.9,132,2,551,0)="""RTN"",""RMPRPCEA"",6,0)"
^XMB(3.9,132,2,552,0)=" ;                         Environmental Contaminants, Military Sexual"
^XMB(3.9,132,2,553,0)="""RTN"",""RMPRPCEA"",7,0)"
^XMB(3.9,132,2,554,0)=" ;                         Trauma, Head/Neck Cancer, and Combat Veteran"
^XMB(3.9,132,2,555,0)="""RTN"",""RMPRPCEA"",8,0)"
^XMB(3.9,132,2,556,0)=" ;                         Status) to come from new BA fields if they"
^XMB(3.9,132,2,557,0)="""RTN"",""RMPRPCEA"",9,0)"
^XMB(3.9,132,2,558,0)=" ;                         exist."
^XMB(3.9,132,2,559,0)="""RTN"",""RMPRPCEA"",10,0)"
^XMB(3.9,132,2,560,0)=" ;"
^XMB(3.9,132,2,561,0)="""RTN"",""RMPRPCEA"",11,0)"
^XMB(3.9,132,2,562,0)=" ;This routine contains the code for sending a Prosthetic visit to PCE."
^XMB(3.9,132,2,563,0)="""RTN"",""RMPRPCEA"",12,0)"
^XMB(3.9,132,2,564,0)=" ;"
^XMB(3.9,132,2,565,0)="""RTN"",""RMPRPCEA"",13,0)"
^XMB(3.9,132,2,566,0)=" ;DBIA #1889-A  - this API is used to add, edit and delete the"
^XMB(3.9,132,2,567,0)="""RTN"",""RMPRPCEA"",14,0)"
^XMB(3.9,132,2,568,0)=" ;                of encounter, provider, diagnosis and procedure"
^XMB(3.9,132,2,569,0)="""RTN"",""RMPRPCEA"",15,0)"
^XMB(3.9,132,2,570,0)=" ;                data to VISIT and V files in the PCE module."
^XMB(3.9,132,2,571,0)="""RTN"",""RMPRPCEA"",16,0)"
^XMB(3.9,132,2,572,0)=" ; 04/23/2004 KAM RMPR*3*82 Make Background Message more Robust"
^XMB(3.9,132,2,573,0)="""RTN"",""RMPRPCEA"",17,0)"
^XMB(3.9,132,2,574,0)=" ;"
^XMB(3.9,132,2,575,0)="""RTN"",""RMPRPCEA"",18,0)"
^XMB(3.9,132,2,576,0)=" ;RMIE60 - ien in file #660"
^XMB(3.9,132,2,577,0)="""RTN"",""RMPRPCEA"",19,0)"
^XMB(3.9,132,2,578,0)="SENDPCE(RMIE60) ; send a Prosthetic Visit to PCE."
^XMB(3.9,132,2,579,0)="""RTN"",""RMPRPCEA"",20,0)"
^XMB(3.9,132,2,580,0)=" ; D NEWVAR subroutine removed for functionality  01/31/05  WLC"
^XMB(3.9,132,2,581,0)="""RTN"",""RMPRPCEA"",21,0)"
^XMB(3.9,132,2,582,0)=" ;"
^XMB(3.9,132,2,583,0)="""RTN"",""RMPRPCEA"",22,0)"
^XMB(3.9,132,2,584,0)=" N RMPCE,RME2,RMSENT,RMLOCK,RMERR,RMPKG,RMSRC,RMDIAG,RMQTY"
^XMB(3.9,132,2,585,0)="""RTN"",""RMPRPCEA"",23,0)"
^XMB(3.9,132,2,586,0)=" N RMSCAT,RMPROC,RMUPD,RMIEPCE,RMHLOC,RMLOC,RMPAT,RMDATE,RMINST"
^XMB(3.9,132,2,587,0)="""RTN"",""RMPRPCEA"",24,0)"
^XMB(3.9,132,2,588,0)=" N RMETYP,RMCDAT,RMPCAT,RMDANOW,DIE,DA,DIC,RMAO,RMEC,RMIR,DFN,RMSCON"
^XMB(3.9,132,2,589,0)="""RTN"",""RMPRPCEA"",25,0)"
^XMB(3.9,132,2,590,0)=" N RMMST,RMHNC,RMCBV,RMPRTPCE"
^XMB(3.9,132,2,591,0)="""RTN"",""RMPRPCEA"",26,0)"
^XMB(3.9,132,2,592,0)=" ; PATCH 78, RMS - 10/1/2003, Billing aware related variables"
^XMB(3.9,132,2,593,0)="""RTN"",""RMPRPCEA"",27,0)"
^XMB(3.9,132,2,594,0)=" N RMBASCON,RMBAAO,RMBAIR,RMBAEC,RMBAMST,RMBAHNC,RMBACBV,RMBAICD9,RMLOOP"
^XMB(3.9,132,2,595,0)="""RTN"",""RMPRPCEA"",28,0)"
^XMB(3.9,132,2,596,0)=" N RMPROV,RMCPDT,DXERR,SICD"
^XMB(3.9,132,2,597,0)="""RTN"",""RMPRPCEA"",29,0)"
^XMB(3.9,132,2,598,0)=" ;"
^XMB(3.9,132,2,599,0)="""RTN"",""RMPRPCEA"",30,0)"
^XMB(3.9,132,2,600,0)=" S RMERR=1"
^XMB(3.9,132,2,601,0)="""RTN"",""RMPRPCEA"",31,0)"
^XMB(3.9,132,2,602,0)=" S RMSRC=""PROSTHETICS DATA"""
^XMB(3.9,132,2,603,0)="""RTN"",""RMPRPCEA"",32,0)"
^XMB(3.9,132,2,604,0)=" S RMPKG=$O(^DIC(9.4,""B"",""PROSTHETICS"",0))"
^XMB(3.9,132,2,605,0)="""RTN"",""RMPRPCEA"",33,0)"
^XMB(3.9,132,2,606,0)=" I '$G(RMPKG) S RMERR=-2 G SENDPCEX"
^XMB(3.9,132,2,607,0)="""RTN"",""RMPRPCEA"",34,0)"
^XMB(3.9,132,2,608,0)=" S RMSTA=$P(^RMPR(660,RMIE60,0),U,10)"
^XMB(3.9,132,2,609,0)="""RTN"",""RMPRPCEA"",35,0)"
^XMB(3.9,132,2,610,0)=" S (RMLOC,RERRMSG,RERRMSG2)="""""
^XMB(3.9,132,2,611,0)="""RTN"",""RMPRPCEA"",36,0)"
^XMB(3.9,132,2,612,0)=" F I=0:0 S I=$O(^RMPR(669.9,""C"",RMSTA,I)) Q:I'>0  D"
^XMB(3.9,132,2,613,0)="""RTN"",""RMPRPCEA"",37,0)"
^XMB(3.9,132,2,614,0)=" .I ($D(^RMPR(669.9,I,0))),($D(^RMPR(669.9,I,""PCE""))) S RMLOC=$P(^RMPR(669.9,I,""PCE""),U,3)"
^XMB(3.9,132,2,615,0)="""RTN"",""RMPRPCEA"",38,0)"
^XMB(3.9,132,2,616,0)=" ;exit if Hospital Location (clinic) not defined."
^XMB(3.9,132,2,617,0)="""RTN"",""RMPRPCEA"",39,0)"
^XMB(3.9,132,2,618,0)=" I '$G(RMLOC) D  G SENDPCEX"
^XMB(3.9,132,2,619,0)="""RTN"",""RMPRPCEA"",40,0)"
^XMB(3.9,132,2,620,0)=" .S RMERR=-2"
^XMB(3.9,132,2,621,0)="""RTN"",""RMPRPCEA"",41,0)"
^XMB(3.9,132,2,622,0)=" .;RMPR*3*82 04/23/2004 KAM Added next 8 lines"
^XMB(3.9,132,2,623,0)="""RTN"",""RMPRPCEA"",42,0)"
^XMB(3.9,132,2,624,0)=" .N SPACES,VNAME,ENDAT"
^XMB(3.9,132,2,625,0)="""RTN"",""RMPRPCEA"",43,0)"
^XMB(3.9,132,2,626,0)=" .S VNAME=$$GET1^DIQ(2,$P(^RMPR(660,RMIE60,0),U,2),.01)"
^XMB(3.9,132,2,627,0)="""RTN"",""RMPRPCEA"",44,0)"
^XMB(3.9,132,2,628,0)=" .S ENDAT=$$GET1^DIQ(660,RMIE60,.01),SPACES="""""
^XMB(3.9,132,2,629,0)="""RTN"",""RMPRPCEA"",45,0)"
^XMB(3.9,132,2,630,0)=" .I $G(ENDAT)="""" S ENDAT="" No Entry Data Found"""
^XMB(3.9,132,2,631,0)="""RTN"",""RMPRPCEA"",46,0)"
^XMB(3.9,132,2,632,0)=" .F I=1:1:42-($L(VNAME)+$L(ENDAT)) S SPACES=$G(SPACES)_"" """
^XMB(3.9,132,2,633,0)="""RTN"",""RMPRPCEA"",47,0)"
^XMB(3.9,132,2,634,0)=" .S RERRMSG=""              *** NAME = ""_VNAME_""   ENTRY DATE = ""_ENDAT_SPACES"
^XMB(3.9,132,2,635,0)="""RTN"",""RMPRPCEA"",48,0)"
^XMB(3.9,132,2,636,0)=" .I $G(RMSTA),$D(^DIC(4,RMSTA,99)) S RMSTAW=$P(^DIC(4,RMSTA,99),U)"
^XMB(3.9,132,2,637,0)="""RTN"",""RMPRPCEA"",49,0)"
^XMB(3.9,132,2,638,0)=" .S RERRMSG=RERRMSG_""              *** Clinic is not defined....Please ask your ADPAC to enter a prosthetics      *** clinic in the Prosthetics Site Parameters file for station # = ""_$G(RMSTAW)"
^XMB(3.9,132,2,639,0)="""RTN"",""RMPRPCEA"",50,0)"
^XMB(3.9,132,2,640,0)=" .S RERRMSG2=""         *** Using option 'Enter/Edit Station Site Parameters'"""
^XMB(3.9,132,2,641,0)="""RTN"",""RMPRPCEA"",51,0)"
^XMB(3.9,132,2,642,0)=" .W !,""*** Clinic is not defined....."""
^XMB(3.9,132,2,643,0)="""RTN"",""RMPRPCEA"",52,0)"
^XMB(3.9,132,2,644,0)=" .W !,""*** Please ask your ADPAC to enter a prosthetics clinic in the"""
^XMB(3.9,132,2,645,0)="""RTN"",""RMPRPCEA"",53,0)"
^XMB(3.9,132,2,646,0)=" .W !,""*** Prosthetics Site Parameters file for station # = "",RMSTAW"
^XMB(3.9,132,2,647,0)="""RTN"",""RMPRPCEA"",54,0)"
^XMB(3.9,132,2,648,0)=" .W !,""*** Using option 'Enter/Edit Station Site Parameters'"""
^XMB(3.9,132,2,649,0)="""RTN"",""RMPRPCEA"",55,0)"
^XMB(3.9,132,2,650,0)=" S RMSENT=0,RMLOCK=0"
^XMB(3.9,132,2,651,0)="""RTN"",""RMPRPCEA"",56,0)"
^XMB(3.9,132,2,652,0)=" ; initialize temp file."
^XMB(3.9,132,2,653,0)="""RTN"",""RMPRPCEA"",57,0)"
^XMB(3.9,132,2,654,0)=" K ^TMP(""RMPRPCE1"",$J),RMSTAW"
^XMB(3.9,132,2,655,0)="""RTN"",""RMPRPCEA"",58,0)"
^XMB(3.9,132,2,656,0)=" ;"
^XMB(3.9,132,2,657,0)="""RTN"",""RMPRPCEA"",59,0)"
^XMB(3.9,132,2,658,0)=" ; get the visit data (#660) and place in temp file."
^XMB(3.9,132,2,659,0)="""RTN"",""RMPRPCEA"",60,0)"
^XMB(3.9,132,2,660,0)=" D GETDATA G:$G(DXERR) SENDPCEX   ;quit if inactive diagnosis RMPR*120"
^XMB(3.9,132,2,661,0)="""RTN"",""RMPRPCEA"",61,0)"
^XMB(3.9,132,2,662,0)=" ;don't create a PCE encounter if Date of Death is before the transaction"
^XMB(3.9,132,2,663,0)="""RTN"",""RMPRPCEA"",62,0)"
^XMB(3.9,132,2,664,0)=" I $D(VADM(6)),$P(VADM(6),U,1),$P(VADM(6),U,1)<(RMDATE) G SENDPCEX"
^XMB(3.9,132,2,665,0)="""RTN"",""RMPRPCEA"",63,0)"
^XMB(3.9,132,2,666,0)=" ;"
^XMB(3.9,132,2,667,0)="""RTN"",""RMPRPCEA"",64,0)"
^XMB(3.9,132,2,668,0)=" ; build the temp file for sending to PCE"
^XMB(3.9,132,2,669,0)="""RTN"",""RMPRPCEA"",65,0)"
^XMB(3.9,132,2,670,0)=" D BUILD"
^XMB(3.9,132,2,671,0)="""RTN"",""RMPRPCEA"",66,0)"
^XMB(3.9,132,2,672,0)=" ;"
^XMB(3.9,132,2,673,0)="""RTN"",""RMPRPCEA"",67,0)"
^XMB(3.9,132,2,674,0)=" ; now send"
^XMB(3.9,132,2,675,0)="""RTN"",""RMPRPCEA"",68,0)"
^XMB(3.9,132,2,676,0)=" D SENDIT"
^XMB(3.9,132,2,677,0)="""RTN"",""RMPRPCEA"",69,0)"
^XMB(3.9,132,2,678,0)=" ;"
^XMB(3.9,132,2,679,0)="""RTN"",""RMPRPCEA"",70,0)"
^XMB(3.9,132,2,680,0)="SENDPCEX ; exit point"
^XMB(3.9,132,2,681,0)="""RTN"",""RMPRPCEA"",71,0)"
^XMB(3.9,132,2,682,0)=" ;"
^XMB(3.9,132,2,683,0)="""RTN"",""RMPRPCEA"",72,0)"
^XMB(3.9,132,2,684,0)=" ; clear the temp file"
^XMB(3.9,132,2,685,0)="""RTN"",""RMPRPCEA"",73,0)"
^XMB(3.9,132,2,686,0)=" K ^TMP(""RMPRPCE1"",$J)"
^XMB(3.9,132,2,687,0)="""RTN"",""RMPRPCEA"",74,0)"
^XMB(3.9,132,2,688,0)=" ;"
^XMB(3.9,132,2,689,0)="""RTN"",""RMPRPCEA"",75,0)"
^XMB(3.9,132,2,690,0)=" ; return"
^XMB(3.9,132,2,691,0)="""RTN"",""RMPRPCEA"",76,0)"
^XMB(3.9,132,2,692,0)=" Q RMERR"
^XMB(3.9,132,2,693,0)="""RTN"",""RMPRPCEA"",77,0)"
^XMB(3.9,132,2,694,0)=" ;"
^XMB(3.9,132,2,695,0)="""RTN"",""RMPRPCEA"",78,0)"
^XMB(3.9,132,2,696,0)="GETDATA ; get the visit data and place in temp file"
^XMB(3.9,132,2,697,0)="""RTN"",""RMPRPCEA"",79,0)"
^XMB(3.9,132,2,698,0)=" K RMDA,RMDA2"
^XMB(3.9,132,2,699,0)="""RTN"",""RMPRPCEA"",80,0)"
^XMB(3.9,132,2,700,0)=" S RMDA=$NA(^TMP(""RMPRPCE1"",$J,""RM""))"
^XMB(3.9,132,2,701,0)="""RTN"",""RMPRPCEA"",81,0)"
^XMB(3.9,132,2,702,0)=" D GETS^DIQ(660,RMIE60_"","",""*"",""I"",RMDA,"""")"
^XMB(3.9,132,2,703,0)="""RTN"",""RMPRPCEA"",82,0)"
^XMB(3.9,132,2,704,0)=" S RMDA2=$NA(^TMP(""RMPRPCE1"",$J,""RM"",660,RMIE60_"",""))"
^XMB(3.9,132,2,705,0)="""RTN"",""RMPRPCEA"",83,0)"
^XMB(3.9,132,2,706,0)=" D NOW^%DTC"
^XMB(3.9,132,2,707,0)="""RTN"",""RMPRPCEA"",84,0)"
^XMB(3.9,132,2,708,0)=" S RMDANOW=%"
^XMB(3.9,132,2,709,0)="""RTN"",""RMPRPCEA"",85,0)"
^XMB(3.9,132,2,710,0)=" S RMDATE=@RMDA2@(.01,""I""),RMDATE=RMDATE_"".""_$P(%,""."",2)"
^XMB(3.9,132,2,711,0)="""RTN"",""RMPRPCEA"",86,0)"
^XMB(3.9,132,2,712,0)=" S (DFN,RMPAT)=@RMDA2@(.02,""I"")"
^XMB(3.9,132,2,713,0)="""RTN"",""RMPRPCEA"",87,0)"
^XMB(3.9,132,2,714,0)=" S RMHLOC=RMLOC"
^XMB(3.9,132,2,715,0)="""RTN"",""RMPRPCEA"",88,0)"
^XMB(3.9,132,2,716,0)=" S RMINST=@RMDA2@(8.11,""I"")"
^XMB(3.9,132,2,717,0)="""RTN"",""RMPRPCEA"",89,0)"
^XMB(3.9,132,2,718,0)=" S RMPCAT=@RMDA2@(62,""I"")"
^XMB(3.9,132,2,719,0)="""RTN"",""RMPRPCEA"",90,0)"
^XMB(3.9,132,2,720,0)=" S RMSCON=0"
^XMB(3.9,132,2,721,0)="""RTN"",""RMPRPCEA"",91,0)"
^XMB(3.9,132,2,722,0)=" I (RMPCAT=1)!(RMPCAT=2) S RMSCON=1"
^XMB(3.9,132,2,723,0)="""RTN"",""RMPRPCEA"",92,0)"
^XMB(3.9,132,2,724,0)=" ;=============================="
^XMB(3.9,132,2,725,0)="""RTN"",""RMPRPCEA"",93,0)"
^XMB(3.9,132,2,726,0)=" S RMSCAT=""A"""
^XMB(3.9,132,2,727,0)="""RTN"",""RMPRPCEA"",94,0)"
^XMB(3.9,132,2,728,0)=" S RMETYP=""P"""
^XMB(3.9,132,2,729,0)="""RTN"",""RMPRPCEA"",95,0)"
^XMB(3.9,132,2,730,0)=" S RMUSER=@RMDA2@(27,""I"")"
^XMB(3.9,132,2,731,0)="""RTN"",""RMPRPCEA"",96,0)"
^XMB(3.9,132,2,732,0)=" S RMDIAG=@RMDA2@(8.8,""I"")"
^XMB(3.9,132,2,733,0)="""RTN"",""RMPRPCEA"",97,0)"
^XMB(3.9,132,2,734,0)=" S RMPROC=@RMDA2@(4.1,""I"")"
^XMB(3.9,132,2,735,0)="""RTN"",""RMPRPCEA"",98,0)"
^XMB(3.9,132,2,736,0)=" S RMPROV=@RMDA2@(8.6,""I"")"
^XMB(3.9,132,2,737,0)="""RTN"",""RMPRPCEA"",99,0)"
^XMB(3.9,132,2,738,0)=" S RMCPDT=@RMDA2@(8.4,""I"")"
^XMB(3.9,132,2,739,0)="""RTN"",""RMPRPCEA"",100,0)"
^XMB(3.9,132,2,740,0)=" S RMQTY=@RMDA2@(5,""I"")"
^XMB(3.9,132,2,741,0)="""RTN"",""RMPRPCEA"",101,0)"
^XMB(3.9,132,2,742,0)=" S RMCDAT=@RMDA2@(10,""I"")"
^XMB(3.9,132,2,743,0)="""RTN"",""RMPRPCEA"",102,0)"
^XMB(3.9,132,2,744,0)=" S (RMPCE,RMIEPCE)=@RMDA2@(8.12,""I"")"
^XMB(3.9,132,2,745,0)="""RTN"",""RMPRPCEA"",103,0)"
^XMB(3.9,132,2,746,0)=" ; PATCH 78, RMS - 10/1/2003, billing aware related variables"
^XMB(3.9,132,2,747,0)="""RTN"",""RMPRPCEA"",104,0)"
^XMB(3.9,132,2,748,0)=" K RMBAICD9,RMBAAO,RMBASCON,RMBAAIR,RMBAEC,RMBAMST,RMBAHNC,RMBACBV"
^XMB(3.9,132,2,749,0)="""RTN"",""RMPRPCEA"",105,0)"
^XMB(3.9,132,2,750,0)=" I '$D(^RMPR(660,RMIE60,""BA1"")) G GTDT  ; no BA data, skip retrieval"
^XMB(3.9,132,2,751,0)="""RTN"",""RMPRPCEA"",106,0)"
^XMB(3.9,132,2,752,0)=" F RMLOOP=30:1:33 D"
^XMB(3.9,132,2,753,0)="""RTN"",""RMPRPCEA"",107,0)"
^XMB(3.9,132,2,754,0)=" . N RMBAREC S RMBAREC=RMLOOP-29"
^XMB(3.9,132,2,755,0)="""RTN"",""RMPRPCEA"",108,0)"
^XMB(3.9,132,2,756,0)=" . S RMBAICD9(RMBAREC)=@RMDA2@(RMLOOP,""I""),SICD=RMBAICD9(RMBAREC) I SICD'="""" S:$P($G(^ICD9(SICD,0)),U,9) DXERR=1"
^XMB(3.9,132,2,757,0)="""RTN"",""RMPRPCEA"",109,0)"
^XMB(3.9,132,2,758,0)=" . S RMBAAO(RMBAREC)=@RMDA2@((RMLOOP+.1),""I"")"
^XMB(3.9,132,2,759,0)="""RTN"",""RMPRPCEA"",110,0)"
^XMB(3.9,132,2,760,0)=" . S RMBAIR(RMBAREC)=@RMDA2@((RMLOOP+.2),""I"")"
^XMB(3.9,132,2,761,0)="""RTN"",""RMPRPCEA"",111,0)"
^XMB(3.9,132,2,762,0)=" . S RMBASCON(RMBAREC)=@RMDA2@((RMLOOP+.3),""I"")"
^XMB(3.9,132,2,763,0)="""RTN"",""RMPRPCEA"",112,0)"
^XMB(3.9,132,2,764,0)=" . S RMBAEC(RMBAREC)=@RMDA2@((RMLOOP+.4),""I"")"
^XMB(3.9,132,2,765,0)="""RTN"",""RMPRPCEA"",113,0)"
^XMB(3.9,132,2,766,0)=" . S RMBAMST(RMBAREC)=@RMDA2@((RMLOOP+.5),""I"")"
^XMB(3.9,132,2,767,0)="""RTN"",""RMPRPCEA"",114,0)"
^XMB(3.9,132,2,768,0)=" . S RMBAHNC(RMBAREC)=@RMDA2@((RMLOOP+.6),""I"")"
^XMB(3.9,132,2,769,0)="""RTN"",""RMPRPCEA"",115,0)"
^XMB(3.9,132,2,770,0)=" . S RMBACBV(RMBAREC)=@RMDA2@((RMLOOP+.7),""I"")"
^XMB(3.9,132,2,771,0)="""RTN"",""RMPRPCEA"",116,0)"
^XMB(3.9,132,2,772,0)=" ; Retrieve order number"
^XMB(3.9,132,2,773,0)="""RTN"",""RMPRPCEA"",117,0)"
^XMB(3.9,132,2,774,0)="GTDT S RMPTR123=@RMDA2@(8.9,""I"")"
^XMB(3.9,132,2,775,0)="""RTN"",""RMPRPCEA"",118,0)"
^XMB(3.9,132,2,776,0)=" S RMODENT=$$GET1^DIQ(123,RMPTR123_"","",.03)"
^XMB(3.9,132,2,777,0)="""RTN"",""RMPRPCEA"",119,0)"
^XMB(3.9,132,2,778,0)=" ;get Date of Death."
^XMB(3.9,132,2,779,0)="""RTN"",""RMPRPCEA"",120,0)"
^XMB(3.9,132,2,780,0)=" D DEM^VADPT"
^XMB(3.9,132,2,781,0)="""RTN"",""RMPRPCEA"",121,0)"
^XMB(3.9,132,2,782,0)=" ;get Agent Orange and Radiation."
^XMB(3.9,132,2,783,0)="""RTN"",""RMPRPCEA"",122,0)"
^XMB(3.9,132,2,784,0)=" D SVC^VADPT S RMAO=VASV(2),RMIR=VASV(3)"
^XMB(3.9,132,2,785,0)="""RTN"",""RMPRPCEA"",123,0)"
^XMB(3.9,132,2,786,0)=" ;get environmental contaminants."
^XMB(3.9,132,2,787,0)="""RTN"",""RMPRPCEA"",124,0)"
^XMB(3.9,132,2,788,0)=" S RMEC=$$GET1^DIQ(2,DFN,.322013,""I"") I RMEC=""Y"" S RMEC=1"
^XMB(3.9,132,2,789,0)="""RTN"",""RMPRPCEA"",125,0)"
^XMB(3.9,132,2,790,0)=" S:RMEC'=1 RMEC=0"
^XMB(3.9,132,2,791,0)="""RTN"",""RMPRPCEA"",126,0)"
^XMB(3.9,132,2,792,0)=" ;"
^XMB(3.9,132,2,793,0)="""RTN"",""RMPRPCEA"",127,0)"
^XMB(3.9,132,2,794,0)=" S RMMST="""",RMCBV="""",RMHNC="""""
^XMB(3.9,132,2,795,0)="""RTN"",""RMPRPCEA"",128,0)"
^XMB(3.9,132,2,796,0)=" Q"
^XMB(3.9,132,2,797,0)="""RTN"",""RMPRPCEA"",129,0)"
^XMB(3.9,132,2,798,0)=" ;"
^XMB(3.9,132,2,799,0)="""RTN"",""RMPRPCEA"",130,0)"
^XMB(3.9,132,2,800,0)="BUILD ; now build array for passing data to PCE"
^XMB(3.9,132,2,801,0)="""RTN"",""RMPRPCEA"",131,0)"
^XMB(3.9,132,2,802,0)=" K ^TMP(""RMPRPCE1"",$J,""PXAPI""),RMAPI"
^XMB(3.9,132,2,803,0)="""RTN"",""RMPRPCEA"",132,0)"
^XMB(3.9,132,2,804,0)=" S RMAPI=$NA(^TMP(""RMPRPCE1"",$J,""PXAPI""))"
^XMB(3.9,132,2,805,0)="""RTN"",""RMPRPCEA"",133,0)"
^XMB(3.9,132,2,806,0)=" ; ---------encounter date/time----------------"
^XMB(3.9,132,2,807,0)="""RTN"",""RMPRPCEA"",134,0)"
^XMB(3.9,132,2,808,0)=" S @RMAPI@(""ENCOUNTER"",1,""ENC D/T"")=RMDATE"
^XMB(3.9,132,2,809,0)="""RTN"",""RMPRPCEA"",135,0)"
^XMB(3.9,132,2,810,0)=" ; --------------patient-----------------------"
^XMB(3.9,132,2,811,0)="""RTN"",""RMPRPCEA"",136,0)"
^XMB(3.9,132,2,812,0)=" S @RMAPI@(""ENCOUNTER"",1,""PATIENT"")=RMPAT"
^XMB(3.9,132,2,813,0)="""RTN"",""RMPRPCEA"",137,0)"
^XMB(3.9,132,2,814,0)=" ; ---------------clinic-----------------------"
^XMB(3.9,132,2,815,0)="""RTN"",""RMPRPCEA"",138,0)"
^XMB(3.9,132,2,816,0)=" S @RMAPI@(""ENCOUNTER"",1,""HOS LOC"")=RMHLOC"
^XMB(3.9,132,2,817,0)="""RTN"",""RMPRPCEA"",139,0)"
^XMB(3.9,132,2,818,0)=" ; -------------checkout date/time-------------"
^XMB(3.9,132,2,819,0)="""RTN"",""RMPRPCEA"",140,0)"
^XMB(3.9,132,2,820,0)=" S @RMAPI@(""ENCOUNTER"",1,""CHECKOUT D/T"")=RMDATE"
^XMB(3.9,132,2,821,0)="""RTN"",""RMPRPCEA"",141,0)"
^XMB(3.9,132,2,822,0)=" ; ------------agent orange--------------------"
^XMB(3.9,132,2,823,0)="""RTN"",""RMPRPCEA"",142,0)"
^XMB(3.9,132,2,824,0)=" S @RMAPI@(""ENCOUNTER"",1,""AO"")=RMAO"
^XMB(3.9,132,2,825,0)="""RTN"",""RMPRPCEA"",143,0)"
^XMB(3.9,132,2,826,0)=" ;--------------ionizing radiation-------------"
^XMB(3.9,132,2,827,0)="""RTN"",""RMPRPCEA"",144,0)"
^XMB(3.9,132,2,828,0)=" S @RMAPI@(""ENCOUNTER"",1,""IR"")=RMIR"
^XMB(3.9,132,2,829,0)="""RTN"",""RMPRPCEA"",145,0)"
^XMB(3.9,132,2,830,0)=" ;-----------environmental contaminants--------"
^XMB(3.9,132,2,831,0)="""RTN"",""RMPRPCEA"",146,0)"
^XMB(3.9,132,2,832,0)=" S @RMAPI@(""ENCOUNTER"",1,""EC"")=RMEC"
^XMB(3.9,132,2,833,0)="""RTN"",""RMPRPCEA"",147,0)"
^XMB(3.9,132,2,834,0)=" ; --------------service connected--------------"
^XMB(3.9,132,2,835,0)="""RTN"",""RMPRPCEA"",148,0)"
^XMB(3.9,132,2,836,0)=" S @RMAPI@(""ENCOUNTER"",1,""SC"")=RMSCON"
^XMB(3.9,132,2,837,0)="""RTN"",""RMPRPCEA"",149,0)"
^XMB(3.9,132,2,838,0)=" ; ------------Military Sexual Trauma----------"
^XMB(3.9,132,2,839,0)="""RTN"",""RMPRPCEA"",150,0)"
^XMB(3.9,132,2,840,0)=" S @RMAPI@(""ENCOUNTER"",1,""MST"")=RMMST"
^XMB(3.9,132,2,841,0)="""RTN"",""RMPRPCEA"",151,0)"
^XMB(3.9,132,2,842,0)=" ; -------------Head/Neck Cancer---------------"
^XMB(3.9,132,2,843,0)="""RTN"",""RMPRPCEA"",152,0)"
^XMB(3.9,132,2,844,0)=" S @RMAPI@(""ENCOUNTER"",1,""HNC"")=RMHNC"
^XMB(3.9,132,2,845,0)="""RTN"",""RMPRPCEA"",153,0)"
^XMB(3.9,132,2,846,0)=" ; --------------Combat Veteran---------"
^XMB(3.9,132,2,847,0)="""RTN"",""RMPRPCEA"",154,0)"
^XMB(3.9,132,2,848,0)=" S @RMAPI@(""ENCOUNTER"",1,""CV"")=RMCBV"
^XMB(3.9,132,2,849,0)="""RTN"",""RMPRPCEA"",155,0)"
^XMB(3.9,132,2,850,0)=" ; --------------service category--------------"
^XMB(3.9,132,2,851,0)="""RTN"",""RMPRPCEA"",156,0)"
^XMB(3.9,132,2,852,0)=" S @RMAPI@(""ENCOUNTER"",1,""SERVICE CATEGORY"")=RMSCAT"
^XMB(3.9,132,2,853,0)="""RTN"",""RMPRPCEA"",157,0)"
^XMB(3.9,132,2,854,0)=" ; ---------------encounter type---------------"
^XMB(3.9,132,2,855,0)="""RTN"",""RMPRPCEA"",158,0)"
^XMB(3.9,132,2,856,0)=" S @RMAPI@(""ENCOUNTER"",1,""ENCOUNTER TYPE"")=RMETYP"
^XMB(3.9,132,2,857,0)="""RTN"",""RMPRPCEA"",159,0)"
^XMB(3.9,132,2,858,0)=" ; ------------primary provider----------------"
^XMB(3.9,132,2,859,0)="""RTN"",""RMPRPCEA"",160,0)"
^XMB(3.9,132,2,860,0)=" S @RMAPI@(""PROVIDER"",1,""NAME"")=RMUSER"
^XMB(3.9,132,2,861,0)="""RTN"",""RMPRPCEA"",161,0)"
^XMB(3.9,132,2,862,0)=" ; ----------------diagnosis------------------"
^XMB(3.9,132,2,863,0)="""RTN"",""RMPRPCEA"",162,0)"
^XMB(3.9,132,2,864,0)=" S @RMAPI@(""DX/PL"",1,""DIAGNOSIS"")=RMDIAG"
^XMB(3.9,132,2,865,0)="""RTN"",""RMPRPCEA"",163,0)"
^XMB(3.9,132,2,866,0)=" S @RMAPI@(""DX/PL"",1,""PRIMARY"")=1"
^XMB(3.9,132,2,867,0)="""RTN"",""RMPRPCEA"",164,0)"
^XMB(3.9,132,2,868,0)=" ; -------------- procedures -----------------"
^XMB(3.9,132,2,869,0)="""RTN"",""RMPRPCEA"",165,0)"
^XMB(3.9,132,2,870,0)=" S @RMAPI@(""PROCEDURE"",1,""PROCEDURE"")=RMPROC"
^XMB(3.9,132,2,871,0)="""RTN"",""RMPRPCEA"",166,0)"
^XMB(3.9,132,2,872,0)=" ; ---------------- Quantity -----------------"
^XMB(3.9,132,2,873,0)="""RTN"",""RMPRPCEA"",167,0)"
^XMB(3.9,132,2,874,0)=" S @RMAPI@(""PROCEDURE"",1,""QTY"")=RMQTY"
^XMB(3.9,132,2,875,0)="""RTN"",""RMPRPCEA"",168,0)"
^XMB(3.9,132,2,876,0)=" ; -------------- Procedures -----------------"
^XMB(3.9,132,2,877,0)="""RTN"",""RMPRPCEA"",169,0)"
^XMB(3.9,132,2,878,0)=" I '$D(RMBAICD9(1)) D  G BLD1"
^XMB(3.9,132,2,879,0)="""RTN"",""RMPRPCEA"",170,0)"
^XMB(3.9,132,2,880,0)=" . S @RMAPI@(""PROCEDURE"",1,""DIAGNOSIS"")=RMDIAG"
^XMB(3.9,132,2,881,0)="""RTN"",""RMPRPCEA"",171,0)"
^XMB(3.9,132,2,882,0)=" ;"
^XMB(3.9,132,2,883,0)="""RTN"",""RMPRPCEA"",172,0)"
^XMB(3.9,132,2,884,0)=" F RMLOOP=1:1:99 Q:$G(RMBAICD9(RMLOOP))=""""  D"
^XMB(3.9,132,2,885,0)="""RTN"",""RMPRPCEA"",173,0)"
^XMB(3.9,132,2,886,0)=" . S @RMAPI@(""DX/PL"",RMLOOP,""DIAGNOSIS"")=$G(RMBAICD9(RMLOOP))"
^XMB(3.9,132,2,887,0)="""RTN"",""RMPRPCEA"",174,0)"
^XMB(3.9,132,2,888,0)=" . S @RMAPI@(""DX/PL"",RMLOOP,""PL AO"")=$G(RMBAAO(RMLOOP))"
^XMB(3.9,132,2,889,0)="""RTN"",""RMPRPCEA"",175,0)"
^XMB(3.9,132,2,890,0)=" . S @RMAPI@(""DX/PL"",RMLOOP,""PL IR"")=$G(RMBAIR(RMLOOP))"
^XMB(3.9,132,2,891,0)="""RTN"",""RMPRPCEA"",176,0)"
^XMB(3.9,132,2,892,0)=" . S @RMAPI@(""DX/PL"",RMLOOP,""PL SC"")=$G(RMBASCON(RMLOOP))"
^XMB(3.9,132,2,893,0)="""RTN"",""RMPRPCEA"",177,0)"
^XMB(3.9,132,2,894,0)=" . S @RMAPI@(""DX/PL"",RMLOOP,""PL EC"")=$G(RMBAEC(RMLOOP))"
^XMB(3.9,132,2,895,0)="""RTN"",""RMPRPCEA"",178,0)"
^XMB(3.9,132,2,896,0)=" . S @RMAPI@(""DX/PL"",RMLOOP,""PL MST"")=$G(RMBAMST(RMLOOP))"
^XMB(3.9,132,2,897,0)="""RTN"",""RMPRPCEA"",179,0)"
^XMB(3.9,132,2,898,0)=" . S @RMAPI@(""DX/PL"",RMLOOP,""PL HNC"")=$G(RMBAHNC(RMLOOP))"
^XMB(3.9,132,2,899,0)="""RTN"",""RMPRPCEA"",180,0)"
^XMB(3.9,132,2,900,0)=" . S @RMAPI@(""DX/PL"",RMLOOP,""PL CV"")=$G(RMBACBV(RMLOOP))"
^XMB(3.9,132,2,901,0)="""RTN"",""RMPRPCEA"",181,0)"
^XMB(3.9,132,2,902,0)=" . I RMLOOP=1 D  Q"
^XMB(3.9,132,2,903,0)="""RTN"",""RMPRPCEA"",182,0)"
^XMB(3.9,132,2,904,0)=" . . S @RMAPI@(""DX/PL"",RMLOOP,""PRIMARY"")=RMLOOP"
^XMB(3.9,132,2,905,0)="""RTN"",""RMPRPCEA"",183,0)"
^XMB(3.9,132,2,906,0)=" . . S RMDIAG=$G(RMBAICD9(RMLOOP))"
^XMB(3.9,132,2,907,0)="""RTN"",""RMPRPCEA"",184,0)"
^XMB(3.9,132,2,908,0)=" . . S @RMAPI@(""PROCEDURE"",1,""DIAGNOSIS"")=$G(RMBAICD9(RMLOOP))"
^XMB(3.9,132,2,909,0)="""RTN"",""RMPRPCEA"",185,0)"
^XMB(3.9,132,2,910,0)=" . S @RMAPI@(""PROCEDURE"",1,""DIAGNOSIS ""_RMLOOP)=$G(RMBAICD9(RMLOOP))  ; only one procedure per send"
^XMB(3.9,132,2,911,0)="""RTN"",""RMPRPCEA"",186,0)"
^XMB(3.9,132,2,912,0)=" ;"
^XMB(3.9,132,2,913,0)="""RTN"",""RMPRPCEA"",187,0)"
^XMB(3.9,132,2,914,0)=" ; -----------------procedures----------------"
^XMB(3.9,132,2,915,0)="""RTN"",""RMPRPCEA"",188,0)"
^XMB(3.9,132,2,916,0)="BLD1 S @RMAPI@(""PROCEDURE"",1,""PROCEDURE"")=RMPROC"
^XMB(3.9,132,2,917,0)="""RTN"",""RMPRPCEA"",189,0)"
^XMB(3.9,132,2,918,0)=" S @RMAPI@(""PROCEDURE"",1,""ORD PROVIDER"")=RMPROV"
^XMB(3.9,132,2,919,0)="""RTN"",""RMPRPCEA"",190,0)"
^XMB(3.9,132,2,920,0)=" S @RMAPI@(""PROCEDURE"",1,""EVENT D/T"")=RMCPDT"
^XMB(3.9,132,2,921,0)="""RTN"",""RMPRPCEA"",191,0)"
^XMB(3.9,132,2,922,0)=" ; ------------- Order Reference -------------"
^XMB(3.9,132,2,923,0)="""RTN"",""RMPRPCEA"",192,0)"
^XMB(3.9,132,2,924,0)=" S @RMAPI@(""PROCEDURE"",1,""ORD REFERENCE"")=RMODENT"
^XMB(3.9,132,2,925,0)="""RTN"",""RMPRPCEA"",193,0)"
^XMB(3.9,132,2,926,0)=" ; -----------------Quantity------------------"
^XMB(3.9,132,2,927,0)="""RTN"",""RMPRPCEA"",194,0)"
^XMB(3.9,132,2,928,0)=" S @RMAPI@(""PROCEDURE"",1,""QTY"")=RMQTY"
^XMB(3.9,132,2,929,0)="""RTN"",""RMPRPCEA"",195,0)"
^XMB(3.9,132,2,930,0)=" ; -----------------diagnosis-----------------"
^XMB(3.9,132,2,931,0)="""RTN"",""RMPRPCEA"",196,0)"
^XMB(3.9,132,2,932,0)=" S @RMAPI@(""PROCEDURE"",1,""DIAGNOSIS"")=RMDIAG"
^XMB(3.9,132,2,933,0)="""RTN"",""RMPRPCEA"",197,0)"
^XMB(3.9,132,2,934,0)=" Q"
^XMB(3.9,132,2,935,0)="""RTN"",""RMPRPCEA"",198,0)"
^XMB(3.9,132,2,936,0)=" ;"
^XMB(3.9,132,2,937,0)="""RTN"",""RMPRPCEA"",199,0)"
^XMB(3.9,132,2,938,0)="SENDIT ; send the data to PCE. API (1891)"
^XMB(3.9,132,2,939,0)="""RTN"",""RMPRPCEA"",200,0)"
^XMB(3.9,132,2,940,0)=" K RMPROB,RMPRTPCE"
^XMB(3.9,132,2,941,0)="""RTN"",""RMPRPCEA"",201,0)"
^XMB(3.9,132,2,942,0)=" S (RMPRCPER,RMPROB)=0"
^XMB(3.9,132,2,943,0)="""RTN"",""RMPRPCEA"",202,0)"
^XMB(3.9,132,2,944,0)=" ; call the PCE package API."
^XMB(3.9,132,2,945,0)="""RTN"",""RMPRPCEA"",203,0)"
^XMB(3.9,132,2,946,0)=" S RMERR=$$DATA2PCE^PXAPI($NA(^TMP(""RMPRPCE1"",$J,""PXAPI"")),RMPKG,RMSRC,.RMPCE,RMUSER,0,,"""",.RMPROB)"
^XMB(3.9,132,2,947,0)="""RTN"",""RMPRPCEA"",204,0)"
^XMB(3.9,132,2,948,0)=" ;To check for returned error messages, list the RMPROB array."
^XMB(3.9,132,2,949,0)="""RTN"",""RMPRPCEA"",205,0)"
^XMB(3.9,132,2,950,0)=" I RMERR<1 W !,""File #660 IEN=""_RMIE60_"" - Error in PCE interface !!!"""
^XMB(3.9,132,2,951,0)="""RTN"",""RMPRPCEA"",206,0)"
^XMB(3.9,132,2,952,0)=" ;delete PCE entry if Provider and CPT CODE error, but send an error"
^XMB(3.9,132,2,953,0)="""RTN"",""RMPRPCEA"",207,0)"
^XMB(3.9,132,2,954,0)=" ;message to RMPR PCE mailgroup."
^XMB(3.9,132,2,955,0)="""RTN"",""RMPRPCEA"",208,0)"
^XMB(3.9,132,2,956,0)=" I $D(RMPROB($J)) D CHECK^RMPRPCED"
^XMB(3.9,132,2,957,0)="""RTN"",""RMPRPCEA"",209,0)"
^XMB(3.9,132,2,958,0)=" I $G(RMPCE),$G(RMPRCPER) S RMPRTPCE=RJ_""^""_RMHLOC,RMCHK=$$DELVFILE^PXAPI(""ALL"",.RMPCE,RMPKG,RMSRC,0,0,"""") Q"
^XMB(3.9,132,2,959,0)="""RTN"",""RMPRPCEA"",210,0)"
^XMB(3.9,132,2,960,0)=" ;"
^XMB(3.9,132,2,961,0)="""RTN"",""RMPRPCEA"",211,0)"
^XMB(3.9,132,2,962,0)=" Q:'$G(RMPCE)"
^XMB(3.9,132,2,963,0)="""RTN"",""RMPRPCEA"",212,0)"
^XMB(3.9,132,2,964,0)=" ;update PCE pointer and date last sent in #660."
^XMB(3.9,132,2,965,0)="""RTN"",""RMPRPCEA"",213,0)"
^XMB(3.9,132,2,966,0)=" K RMUPD"
^XMB(3.9,132,2,967,0)="""RTN"",""RMPRPCEA"",214,0)"
^XMB(3.9,132,2,968,0)=" S RMUPD(660,RMIE60_"","",8.12)=RMPCE"
^XMB(3.9,132,2,969,0)="""RTN"",""RMPRPCEA"",215,0)"
^XMB(3.9,132,2,970,0)=" S RMUPD(660,RMIE60_"","",8.13)=RMDANOW"
^XMB(3.9,132,2,971,0)="""RTN"",""RMPRPCEA"",216,0)"
^XMB(3.9,132,2,972,0)=" D FILE^DIE("""",""RMUPD"","""")"
^XMB(3.9,132,2,973,0)="""RTN"",""RMPRPCEA"",217,0)"
^XMB(3.9,132,2,974,0)=" Q"
^XMB(3.9,132,2,975,0)="""RTN"",""RMPRPCEA"",218,0)"
^XMB(3.9,132,2,976,0)=" ;"
^XMB(3.9,132,2,977,0)="""RTN"",""RMPRPIYI"")"
^XMB(3.9,132,2,978,0)="0^6^B60374802^B60353445"
^XMB(3.9,132,2,979,0)="""RTN"",""RMPRPIYI"",1,0)"
^XMB(3.9,132,2,980,0)="RMPRPIYI ;HINCIO/RVD-ISSUE FROM STOCK ;6/16/04  08:18"
^XMB(3.9,132,2,981,0)="""RTN"",""RMPRPIYI"",2,0)"
^XMB(3.9,132,2,982,0)=" ;;3.0;PROSTHETICS;**61,128**;Feb 09, 1996"
^XMB(3.9,132,2,983,0)="""RTN"",""RMPRPIYI"",3,0)"
^XMB(3.9,132,2,984,0)=" ; RVD #61 - phase IIIa of PIP"
^XMB(3.9,132,2,985,0)="""RTN"",""RMPRPIYI"",4,0)"
^XMB(3.9,132,2,986,0)=" ;"
^XMB(3.9,132,2,987,0)="""RTN"",""RMPRPIYI"",5,0)"
^XMB(3.9,132,2,988,0)=" S RMPR699(""AMIS GROUPER"")="""""
^XMB(3.9,132,2,989,0)="""RTN"",""RMPRPIYI"",6,0)"
^XMB(3.9,132,2,990,0)=" S (RMPRG,RMPRF)="""" D HOME^%ZIS W @IOF"
^XMB(3.9,132,2,991,0)="""RTN"",""RMPRPIYI"",7,0)"
^XMB(3.9,132,2,992,0)=" I '$D(RMPR) D DIV4^RMPRSIT G:$D(X) EXIT^RMPRPIYJ"
^XMB(3.9,132,2,993,0)="""RTN"",""RMPRPIYI"",8,0)"
^XMB(3.9,132,2,994,0)=" I $D(RMPRDFN),$D(^TMP($J,""RMPRPCE"")) D LINK^RMPRS"
^XMB(3.9,132,2,995,0)="""RTN"",""RMPRPIYI"",9,0)"
^XMB(3.9,132,2,996,0)=" I $D(RMPRDFN),'$D(^TMP($J,""RMPRPCE"")) G EXIT^RMPRPIYJ"
^XMB(3.9,132,2,997,0)="""RTN"",""RMPRPIYI"",10,0)"
^XMB(3.9,132,2,998,0)=" K ^TMP($J,""RMPRPCE"")"
^XMB(3.9,132,2,999,0)="""RTN"",""RMPRPIYI"",11,0)"
^XMB(3.9,132,2,1000,0)=" D GETPAT^RMPRUTIL G:'$D(RMPRDFN) EXIT^RMPRPIYJ"
^XMB(3.9,132,2,1001,0)="""RTN"",""RMPRPIYI"",12,0)"
^XMB(3.9,132,2,1002,0)="VIEW ;"
^XMB(3.9,132,2,1003,0)="""RTN"",""RMPRPIYI"",13,0)"
^XMB(3.9,132,2,1004,0)=" N RMPRBAC1,RMDES,RMITQTY"
^XMB(3.9,132,2,1005,0)="""RTN"",""RMPRPIYI"",14,0)"
^XMB(3.9,132,2,1006,0)=" S (RSTCK,RMPRBAC1)=1 D ^RMPRPAT K RMPRBAC1"
^XMB(3.9,132,2,1007,0)="""RTN"",""RMPRPIYI"",15,0)"
^XMB(3.9,132,2,1008,0)=" I $D(RMPRKILL)!($D(DTOUT)) W $C(7),!,""Deleted..."" G EXIT^RMPRPIYJ"
^XMB(3.9,132,2,1009,0)="""RTN"",""RMPRPIYI"",16,0)"
^XMB(3.9,132,2,1010,0)=" S CK=""W:$D(DUOUT) @IOF,!!!?28,$C(7),""""Deleted..."""" G EXIT^RMPRPIYJ"""
^XMB(3.9,132,2,1011,0)="""RTN"",""RMPRPIYI"",17,0)"
^XMB(3.9,132,2,1012,0)=" S CK2=""W @IOF,!!!?28,$C(7),""""Deleted..."""" H 2"""
^XMB(3.9,132,2,1013,0)="""RTN"",""RMPRPIYI"",18,0)"
^XMB(3.9,132,2,1014,0)=" S CK1=""W $C(7),!,""""Timed-Out, Deleted..."""" G EXIT^RMPRPIYJ"""
^XMB(3.9,132,2,1015,0)="""RTN"",""RMPRPIYI"",19,0)"
^XMB(3.9,132,2,1016,0)=" S R3(""D"")="""""
^XMB(3.9,132,2,1017,0)="""RTN"",""RMPRPIYI"",20,0)"
^XMB(3.9,132,2,1018,0)=" ;"
^XMB(3.9,132,2,1019,0)="""RTN"",""RMPRPIYI"",21,0)"
^XMB(3.9,132,2,1020,0)="RES ;ENTRY POINT TO ADD ADDITIONAL ITEMS FOR ISSUE FROM STOCK"
^XMB(3.9,132,2,1021,0)="""RTN"",""RMPRPIYI"",22,0)"
^XMB(3.9,132,2,1022,0)=" Q:$G(RMPRDFN)<1"
^XMB(3.9,132,2,1023,0)="""RTN"",""RMPRPIYI"",23,0)"
^XMB(3.9,132,2,1024,0)=" K DA,DD,DIC,PRC,X,Y,RMSO,RMQTY,RMDAHC,RMLACO,RMITDA,RMHCOLD,RMPRVEN"
^XMB(3.9,132,2,1025,0)="""RTN"",""RMPRPIYI"",24,0)"
^XMB(3.9,132,2,1026,0)=" K RMPR11IS,RMPR5SA,RMPR6SA"
^XMB(3.9,132,2,1027,0)="""RTN"",""RMPRPIYI"",25,0)"
^XMB(3.9,132,2,1028,0)=" S (R1(1),R1(0),R3(""D""),R4(""D""),R1(""AM""),RMPRI(""AMS""),R1(""D""),RMLOC)="""""
^XMB(3.9,132,2,1029,0)="""RTN"",""RMPRPIYI"",26,0)"
^XMB(3.9,132,2,1030,0)=" S RMLODES="""""
^XMB(3.9,132,2,1031,0)="""RTN"",""RMPRPIYI"",27,0)"
^XMB(3.9,132,2,1032,0)=" S (RMLOCOLD,R1,RMIT,RMHCNEW,RMHCOLD,RMITDESC,RMITIEN,R1(2))="""",REDIT=0"
^XMB(3.9,132,2,1033,0)="""RTN"",""RMPRPIYI"",28,0)"
^XMB(3.9,132,2,1034,0)=" S R1(0)=DT_U_RMPRDFN_U_DT,$P(R1(0),U,10)=RMPR(""STA""),$P(R1(0),U,27)=DUZ"
^XMB(3.9,132,2,1035,0)="""RTN"",""RMPRPIYI"",29,0)"
^XMB(3.9,132,2,1036,0)=" ;"
^XMB(3.9,132,2,1037,0)="""RTN"",""RMPRPIYI"",30,0)"
^XMB(3.9,132,2,1038,0)="1 ;ENTRY POINT TO EDIT ITEM ON ISSUE FROM STOCK"
^XMB(3.9,132,2,1039,0)="""RTN"",""RMPRPIYI"",31,0)"
^XMB(3.9,132,2,1040,0)=" S (RMHCNEW,RMHCOLD)=$P(R1(1),U,4),RMLOCOLD=RMLOC,RMITOLD=RMIT"
^XMB(3.9,132,2,1041,0)="""RTN"",""RMPRPIYI"",32,0)"
^XMB(3.9,132,2,1042,0)=" K RQUIT S RMHCFLG=0"
^XMB(3.9,132,2,1043,0)="""RTN"",""RMPRPIYI"",33,0)"
^XMB(3.9,132,2,1044,0)=" W @IOF,!?30,RMPRNAM,!"
^XMB(3.9,132,2,1045,0)="""RTN"",""RMPRPIYI"",34,0)"
^XMB(3.9,132,2,1046,0)=" W:$G(REDIT) !!,""Editing a Stock Item!!!"""
^XMB(3.9,132,2,1047,0)="""RTN"",""RMPRPIYI"",35,0)"
^XMB(3.9,132,2,1048,0)=" W:'$G(REDIT) !!,""Entering a Stock Item!!!"""
^XMB(3.9,132,2,1049,0)="""RTN"",""RMPRPIYI"",36,0)"
^XMB(3.9,132,2,1050,0)=" ;"
^XMB(3.9,132,2,1051,0)="""RTN"",""RMPRPIYI"",37,0)"
^XMB(3.9,132,2,1052,0)="TRAN ;TYPE OF TRANSACTION"
^XMB(3.9,132,2,1053,0)="""RTN"",""RMPRPIYI"",38,0)"
^XMB(3.9,132,2,1054,0)=" W !"
^XMB(3.9,132,2,1055,0)="""RTN"",""RMPRPIYI"",39,0)"
^XMB(3.9,132,2,1056,0)=" ;S DIR(0)=""660,2"""
^XMB(3.9,132,2,1057,0)="""RTN"",""RMPRPIYI"",40,0)"
^XMB(3.9,132,2,1058,0)=" K DIR"
^XMB(3.9,132,2,1059,0)="""RTN"",""RMPRPIYI"",41,0)"
^XMB(3.9,132,2,1060,0)=" S:$P(R1(0),U,4)?.E&($P(R3(""D""),U,4)'="""") DIR(""B"")=$P(R3(""D""),U,4)"
^XMB(3.9,132,2,1061,0)="""RTN"",""RMPRPIYI"",42,0)"
^XMB(3.9,132,2,1062,0)=" S DIR(0)=""SO^I:INITIAL ISSUE;X:REPAIR;R:REPLACE;S:SPARE"""
^XMB(3.9,132,2,1063,0)="""RTN"",""RMPRPIYI"",43,0)"
^XMB(3.9,132,2,1064,0)=" S DIR(""A"")=""TYPE OF TRANSACTION"""
^XMB(3.9,132,2,1065,0)="""RTN"",""RMPRPIYI"",44,0)"
^XMB(3.9,132,2,1066,0)=" D ^DIR"
^XMB(3.9,132,2,1067,0)="""RTN"",""RMPRPIYI"",45,0)"
^XMB(3.9,132,2,1068,0)=" I (Y=""""),($P(R3(""D""),U,4)="""") G ^RMPRPIYI"
^XMB(3.9,132,2,1069,0)="""RTN"",""RMPRPIYI"",46,0)"
^XMB(3.9,132,2,1070,0)=" I $P(R3(""D""),U,4)'=""""&($D(DUOUT)) G LIST^RMPRPIYJ"
^XMB(3.9,132,2,1071,0)="""RTN"",""RMPRPIYI"",47,0)"
^XMB(3.9,132,2,1072,0)=" I $D(DTOUT) X CK1 Q"
^XMB(3.9,132,2,1073,0)="""RTN"",""RMPRPIYI"",48,0)"
^XMB(3.9,132,2,1074,0)=" I $D(DUOUT) G ^RMPRPIYI"
^XMB(3.9,132,2,1075,0)="""RTN"",""RMPRPIYI"",49,0)"
^XMB(3.9,132,2,1076,0)=" S $P(R1(0),U,4)=Y K DIR"
^XMB(3.9,132,2,1077,0)="""RTN"",""RMPRPIYI"",50,0)"
^XMB(3.9,132,2,1078,0)=" S $P(R3(""D""),U,4)=$S(Y=""I"":""INITIAL ISSUE"",Y=""X"":""REPAIR"",Y=""R"":""REPLACE"",Y=""S"":""SPARE"",1:"""")"
^XMB(3.9,132,2,1079,0)="""RTN"",""RMPRPIYI"",51,0)"
^XMB(3.9,132,2,1080,0)=" ;"
^XMB(3.9,132,2,1081,0)="""RTN"",""RMPRPIYI"",52,0)"
^XMB(3.9,132,2,1082,0)="PCAT ;"
^XMB(3.9,132,2,1083,0)="""RTN"",""RMPRPIYI"",53,0)"
^XMB(3.9,132,2,1084,0)=" S DIR(0)=""660,62"" S:$P(R1(""AM""),U,3)?1N.N DIR(""B"")=$P(R4(""D""),U,3)"
^XMB(3.9,132,2,1085,0)="""RTN"",""RMPRPIYI"",54,0)"
^XMB(3.9,132,2,1086,0)=" D ^DIR I $P(R1(""AM""),U,3)'=""""&($D(DUOUT)) G LIST^RMPRPIYJ"
^XMB(3.9,132,2,1087,0)="""RTN"",""RMPRPIYI"",55,0)"
^XMB(3.9,132,2,1088,0)=" I $D(DTOUT) X CK1 Q"
^XMB(3.9,132,2,1089,0)="""RTN"",""RMPRPIYI"",56,0)"
^XMB(3.9,132,2,1090,0)=" I $D(DUOUT) X CK2 G ^RMPRPIYI"
^XMB(3.9,132,2,1091,0)="""RTN"",""RMPRPIYI"",57,0)"
^XMB(3.9,132,2,1092,0)=" S $P(R1(""AM""),U,3)=Y,$P(R4(""D""),U,3)=$S(Y=1:""SC/OP"",Y=2:""SC/IP"",Y=3:""NSC/IP"",Y=4:""NSC/OP"",1:"""") K DIR"
^XMB(3.9,132,2,1093,0)="""RTN"",""RMPRPIYI"",58,0)"
^XMB(3.9,132,2,1094,0)=" I Y<4 S $P(R1(""AM""),U,4)="""",$P(R4(""D""),U,4)="""" G 2"
^XMB(3.9,132,2,1095,0)="""RTN"",""RMPRPIYI"",59,0)"
^XMB(3.9,132,2,1096,0)=" ;"
^XMB(3.9,132,2,1097,0)="""RTN"",""RMPRPIYI"",60,0)"
^XMB(3.9,132,2,1098,0)="SPE I Y=4 S DIR(0)=""660,63"" S:$P(R1(""AM""),U,4)?1N.N DIR(""B"")=$P(R4(""D""),U,4) D ^DIR I $D(DTOUT) X CK1 Q"
^XMB(3.9,132,2,1099,0)="""RTN"",""RMPRPIYI"",61,0)"
^XMB(3.9,132,2,1100,0)=" I $G(REDIT)&($D(DUOUT)) G LIST^RMPRPIYJ"
^XMB(3.9,132,2,1101,0)="""RTN"",""RMPRPIYI"",62,0)"
^XMB(3.9,132,2,1102,0)=" I $D(DUOUT) X CK2 G ^RMPRPIYI"
^XMB(3.9,132,2,1103,0)="""RTN"",""RMPRPIYI"",63,0)"
^XMB(3.9,132,2,1104,0)=" I $P(R1(""AM""),U,3)=4 S $P(R1(""AM""),U,4)=Y,$P(R4(""D""),U,4)=$S(Y=1:""SPECIAL LEGISLATION"",Y=2:""A&A"",Y=3:""PHC"",Y=4:""ELIGIBILITY REFORM"",1:"""")"
^XMB(3.9,132,2,1105,0)="""RTN"",""RMPRPIYI"",64,0)"
^XMB(3.9,132,2,1106,0)=" ;"
^XMB(3.9,132,2,1107,0)="""RTN"",""RMPRPIYI"",65,0)"
^XMB(3.9,132,2,1108,0)=" ; prompt for and scan barcode label"
^XMB(3.9,132,2,1109,0)="""RTN"",""RMPRPIYI"",66,0)"
^XMB(3.9,132,2,1110,0)=" ; if scan is successful then all vars will be set and go to Edit prompt"
^XMB(3.9,132,2,1111,0)="""RTN"",""RMPRPIYI"",67,0)"
^XMB(3.9,132,2,1112,0)="2 I $G(REDIT),$D(RMPR11I) M RMPR11IS=RMPR11I,RMPR5SA=RMPR5,RMPR6SA=RMPR6"
^XMB(3.9,132,2,1113,0)="""RTN"",""RMPRPIYI"",68,0)"
^XMB(3.9,132,2,1114,0)=" W ! D SCAN^RMPRPIYS"
^XMB(3.9,132,2,1115,0)="""RTN"",""RMPRPIYI"",69,0)"
^XMB(3.9,132,2,1116,0)=" I $P(R3(""D""),U,6)&((RMPREXC=""^"")!(RMPREXC=""P"")) G LIST^RMPRPIYJ"
^XMB(3.9,132,2,1117,0)="""RTN"",""RMPRPIYI"",70,0)"
^XMB(3.9,132,2,1118,0)=" I (RMPREXC=""^""),$G(REDIT) G LIST^RMPRPIYJ"
^XMB(3.9,132,2,1119,0)="""RTN"",""RMPRPIYI"",71,0)"
^XMB(3.9,132,2,1120,0)=" I RMPREXC=""^"" X CK2 G ^RMPRPIYI"
^XMB(3.9,132,2,1121,0)="""RTN"",""RMPRPIYI"",72,0)"
^XMB(3.9,132,2,1122,0)=" I RMPREXC=""P"" G PCAT"
^XMB(3.9,132,2,1123,0)="""RTN"",""RMPRPIYI"",73,0)"
^XMB(3.9,132,2,1124,0)=" I RMPREXC=""T"" X CK1 Q"
^XMB(3.9,132,2,1125,0)="""RTN"",""RMPRPIYI"",74,0)"
^XMB(3.9,132,2,1126,0)=" I RMPRBARC="""",$G(REDIT) M RMPR11I=RMPR11IS,RMPR5=RMPR5SA,RMPR6=RMPR6SA G ^RMPRPIYJ"
^XMB(3.9,132,2,1127,0)="""RTN"",""RMPRPIYI"",75,0)"
^XMB(3.9,132,2,1128,0)=" I RMPRBARC="""" G 2"
^XMB(3.9,132,2,1129,0)="""RTN"",""RMPRPIYI"",76,0)"
^XMB(3.9,132,2,1130,0)=" D HCPCS3^RMPRPIY1"
^XMB(3.9,132,2,1131,0)="""RTN"",""RMPRPIYI"",77,0)"
^XMB(3.9,132,2,1132,0)=" G ^RMPRPIYJ"
^XMB(3.9,132,2,1133,0)="""RTN"",""RMPRPIYI"",78,0)"
^XMB(3.9,132,2,1134,0)="HCPCS ;HCPCS code"
^XMB(3.9,132,2,1135,0)="""RTN"",""RMPRPIYI"",79,0)"
^XMB(3.9,132,2,1136,0)=" S (RMITFLG,RMHCFLG,RMHCDA,RMITDA,RMAV,RMAVA,RMCO,RMBAL)=0"
^XMB(3.9,132,2,1137,0)="""RTN"",""RMPRPIYI"",80,0)"
^XMB(3.9,132,2,1138,0)=" S RMPRHCPC="""" I $D(RMHCPC) S RMPRHCPC=RMHCPC"
^XMB(3.9,132,2,1139,0)="""RTN"",""RMPRPIYI"",81,0)"
^XMB(3.9,132,2,1140,0)=" D HCPCS^RMPRPIY1(RMPR(""STA""),RMPRHCPC,.RMPR1,.RMPR11,.RMPREXC)"
^XMB(3.9,132,2,1141,0)="""RTN"",""RMPRPIYI"",82,0)"
^XMB(3.9,132,2,1142,0)=" I RMPREXC=""T"" X CK1 Q"
^XMB(3.9,132,2,1143,0)="""RTN"",""RMPRPIYI"",83,0)"
^XMB(3.9,132,2,1144,0)=" I RMPREXC=""P"" G 2"
^XMB(3.9,132,2,1145,0)="""RTN"",""RMPRPIYI"",84,0)"
^XMB(3.9,132,2,1146,0)=" I $G(REDIT),(RMPREXC=""^"") G LIST^RMPRPIYJ"
^XMB(3.9,132,2,1147,0)="""RTN"",""RMPRPIYI"",85,0)"
^XMB(3.9,132,2,1148,0)=" I RMPREXC=""^"" X CK2 G ^RMPRPIYI"
^XMB(3.9,132,2,1149,0)="""RTN"",""RMPRPIYI"",86,0)"
^XMB(3.9,132,2,1150,0)=" W !"
^XMB(3.9,132,2,1151,0)="""RTN"",""RMPRPIYI"",87,0)"
^XMB(3.9,132,2,1152,0)=" S RMITNO=RMPR11(""ITEM"")"
^XMB(3.9,132,2,1153,0)="""RTN"",""RMPRPIYI"",88,0)"
^XMB(3.9,132,2,1154,0)=" S RMHCPC=RMPR1(""HCPCS"")"
^XMB(3.9,132,2,1155,0)="""RTN"",""RMPRPIYI"",89,0)"
^XMB(3.9,132,2,1156,0)=" S (RMHCNEW,RMDAHC,RMHCDA)=RMPR1(""IEN"")"
^XMB(3.9,132,2,1157,0)="""RTN"",""RMPRPIYI"",90,0)"
^XMB(3.9,132,2,1158,0)=" S RDESC=RMPR1(""SHORT DESC"")"
^XMB(3.9,132,2,1159,0)="""RTN"",""RMPRPIYI"",91,0)"
^XMB(3.9,132,2,1160,0)=" K RMPR11I"
^XMB(3.9,132,2,1161,0)="""RTN"",""RMPRPIYI"",92,0)"
^XMB(3.9,132,2,1162,0)=" S RMPRERR=$$ETOI^RMPRPIX1(.RMPR11,.RMPR11I)"
^XMB(3.9,132,2,1163,0)="""RTN"",""RMPRPIYI"",93,0)"
^XMB(3.9,132,2,1164,0)=" I RMPR11I(""ITEM MASTER IEN"")="""" D  G 2"
^XMB(3.9,132,2,1165,0)="""RTN"",""RMPRPIYI"",94,0)"
^XMB(3.9,132,2,1166,0)=" . W !,""This item is not associated with an IFCAP Item."",!"
^XMB(3.9,132,2,1167,0)="""RTN"",""RMPRPIYI"",95,0)"
^XMB(3.9,132,2,1168,0)=" . W ""Please use the Edit Inventory option before trying to issue this item."""
^XMB(3.9,132,2,1169,0)="""RTN"",""RMPRPIYI"",96,0)"
^XMB(3.9,132,2,1170,0)=" . W !"
^XMB(3.9,132,2,1171,0)="""RTN"",""RMPRPIYI"",97,0)"
^XMB(3.9,132,2,1172,0)=" . Q"
^XMB(3.9,132,2,1173,0)="""RTN"",""RMPRPIYI"",98,0)"
^XMB(3.9,132,2,1174,0)=" I '$D(^RMPR(661.7,""XSHIDS"",RMPR(""STA""),RMHCPC,RMITNO)) D  G 2"
^XMB(3.9,132,2,1175,0)="""RTN"",""RMPRPIYI"",99,0)"
^XMB(3.9,132,2,1176,0)=" . W !,""This HCPCS-ITEM is not associated with any Location."""
^XMB(3.9,132,2,1177,0)="""RTN"",""RMPRPIYI"",100,0)"
^XMB(3.9,132,2,1178,0)=" . W !,""Please update your inventory!!."",!"
^XMB(3.9,132,2,1179,0)="""RTN"",""RMPRPIYI"",101,0)"
^XMB(3.9,132,2,1180,0)=" . W !"
^XMB(3.9,132,2,1181,0)="""RTN"",""RMPRPIYI"",102,0)"
^XMB(3.9,132,2,1182,0)=" . Q"
^XMB(3.9,132,2,1183,0)="""RTN"",""RMPRPIYI"",103,0)"
^XMB(3.9,132,2,1184,0)=" S $P(R1(0),U,6)=RMPR11I(""ITEM MASTER IEN"")"
^XMB(3.9,132,2,1185,0)="""RTN"",""RMPRPIYI"",104,0)"
^XMB(3.9,132,2,1186,0)=" S $P(R1(0),U,8)=$G(RMPR11(""UNIT""))"
^XMB(3.9,132,2,1187,0)="""RTN"",""RMPRPIYI"",105,0)"
^XMB(3.9,132,2,1188,0)=" S $P(R3(""D""),U,6)=RMPR11(""ITEM MASTER"")"
^XMB(3.9,132,2,1189,0)="""RTN"",""RMPRPIYI"",106,0)"
^XMB(3.9,132,2,1190,0)=" ;check for location if multiple then ask for LOCATION"
^XMB(3.9,132,2,1191,0)="""RTN"",""RMPRPIYI"",107,0)"
^XMB(3.9,132,2,1192,0)=" S RMLCNT=0"
^XMB(3.9,132,2,1193,0)="""RTN"",""RMPRPIYI"",108,0)"
^XMB(3.9,132,2,1194,0)=" F I=0:0 S I=$O(^RMPR(661.7,""XSLHIDS"",RMPR(""STA""),I)) Q:I'>0  I $D(^(I,RMHCPC)) S RMLCNT=RMLCNT+1,(RMPR5(""IEN""),RMLOC)=I"
^XMB(3.9,132,2,1195,0)="""RTN"",""RMPRPIYI"",109,0)"
^XMB(3.9,132,2,1196,0)=" I RMLCNT<2 G ITEM"
^XMB(3.9,132,2,1197,0)="""RTN"",""RMPRPIYI"",110,0)"
^XMB(3.9,132,2,1198,0)=" ;"
^XMB(3.9,132,2,1199,0)="""RTN"",""RMPRPIYI"",111,0)"
^XMB(3.9,132,2,1200,0)="ASKLOC ;ask for location"
^XMB(3.9,132,2,1201,0)="""RTN"",""RMPRPIYI"",112,0)"
^XMB(3.9,132,2,1202,0)=" K DIC,Y,X,RQUIT,RMPR5"
^XMB(3.9,132,2,1203,0)="""RTN"",""RMPRPIYI"",113,0)"
^XMB(3.9,132,2,1204,0)=" S DZ=""??"",D=""B"""
^XMB(3.9,132,2,1205,0)="""RTN"",""RMPRPIYI"",114,0)"
^XMB(3.9,132,2,1206,0)=" S DIC(""S"")=""I ($P(^RMPR(661.5,+Y,0),U,2)=RMPR(""""STA"""")),($P(^(0),U,4)=""""A""""),($D(^RMPR(661.7,""""XSLHIDS"""",RMPR(""""STA""""),+Y,RMHCPC,RMITNO)))"""
^XMB(3.9,132,2,1207,0)="""RTN"",""RMPRPIYI"",115,0)"
^XMB(3.9,132,2,1208,0)=" S:RMLOCOLD'="""" DIC(""B"")=RMLOCOLD"
^XMB(3.9,132,2,1209,0)="""RTN"",""RMPRPIYI"",116,0)"
^XMB(3.9,132,2,1210,0)=" S DIC=""^RMPR(661.5,"",DIC(0)=""AEQMN"""
^XMB(3.9,132,2,1211,0)="""RTN"",""RMPRPIYI"",117,0)"
^XMB(3.9,132,2,1212,0)=" S DIC(""A"")=""Enter Pros Location: "" D MIX^DIC1"
^XMB(3.9,132,2,1213,0)="""RTN"",""RMPRPIYI"",118,0)"
^XMB(3.9,132,2,1214,0)=" I $G(REDIT)&$D(DUOUT) G LIST^RMPRPIYJ"
^XMB(3.9,132,2,1215,0)="""RTN"",""RMPRPIYI"",119,0)"
^XMB(3.9,132,2,1216,0)=" I $D(DUOUT) G 2^RMPRPIYI"
^XMB(3.9,132,2,1217,0)="""RTN"",""RMPRPIYI"",120,0)"
^XMB(3.9,132,2,1218,0)=" I $D(DTOUT) X CK1 Q"
^XMB(3.9,132,2,1219,0)="""RTN"",""RMPRPIYI"",121,0)"
^XMB(3.9,132,2,1220,0)=" I X="""" W !,""This is a mandatory field!!!"",! G ASKLOC"
^XMB(3.9,132,2,1221,0)="""RTN"",""RMPRPIYI"",122,0)"
^XMB(3.9,132,2,1222,0)=" S RMLOC=+Y"
^XMB(3.9,132,2,1223,0)="""RTN"",""RMPRPIYI"",123,0)"
^XMB(3.9,132,2,1224,0)=" S RMPR5(""IEN"")=RMLOC"
^XMB(3.9,132,2,1225,0)="""RTN"",""RMPRPIYI"",124,0)"
^XMB(3.9,132,2,1226,0)=" G:'$D(^RMPR(661.5,RMLOC,0)) ASKLOC"
^XMB(3.9,132,2,1227,0)="""RTN"",""RMPRPIYI"",125,0)"
^XMB(3.9,132,2,1228,0)=" ;"
^XMB(3.9,132,2,1229,0)="""RTN"",""RMPRPIYI"",126,0)"
^XMB(3.9,132,2,1230,0)="ITEM ;PSAS Item details."
^XMB(3.9,132,2,1231,0)="""RTN"",""RMPRPIYI"",127,0)"
^XMB(3.9,132,2,1232,0)=" K RMPR11I"
^XMB(3.9,132,2,1233,0)="""RTN"",""RMPRPIYI"",128,0)"
^XMB(3.9,132,2,1234,0)=" S RMCHCK=$$ETOI^RMPRPIX1(.RMPR11,.RMPR11I)"
^XMB(3.9,132,2,1235,0)="""RTN"",""RMPRPIYI"",129,0)"
^XMB(3.9,132,2,1236,0)=" I RMCHCK W !,""*** ERROR IN API RMPRPIX1 !!!!"",! X CK1 Q"
^XMB(3.9,132,2,1237,0)="""RTN"",""RMPRPIYI"",130,0)"
^XMB(3.9,132,2,1238,0)=" S RMIT=RMPR11(""HCPCS-ITEM"")"
^XMB(3.9,132,2,1239,0)="""RTN"",""RMPRPIYI"",131,0)"
^XMB(3.9,132,2,1240,0)=" S $P(R1(2),U,1)=RMIT S $P(R1(2),U,2)=RMPR11(""DESCRIPTION"")"
^XMB(3.9,132,2,1241,0)="""RTN"",""RMPRPIYI"",132,0)"
^XMB(3.9,132,2,1242,0)=" I RMDAHC=RMHCOLD S DIR(""B"")=$G(RMIT)"
^XMB(3.9,132,2,1243,0)="""RTN"",""RMPRPIYI"",133,0)"
^XMB(3.9,132,2,1244,0)=" ;"
^XMB(3.9,132,2,1245,0)="""RTN"",""RMPRPIYI"",134,0)"
^XMB(3.9,132,2,1246,0)=" ;call stock record in 661.7"
^XMB(3.9,132,2,1247,0)="""RTN"",""RMPRPIYI"",135,0)"
^XMB(3.9,132,2,1248,0)=" S RMR(""STATION IEN"")=RMPR(""STA"")"
^XMB(3.9,132,2,1249,0)="""RTN"",""RMPRPIYI"",136,0)"
^XMB(3.9,132,2,1250,0)=" S RMR(""LOCATION IEN"")=RMLOC"
^XMB(3.9,132,2,1251,0)="""RTN"",""RMPRPIYI"",137,0)"
^XMB(3.9,132,2,1252,0)=" S RMR(""HCPCS"")=RMHCPC"
^XMB(3.9,132,2,1253,0)="""RTN"",""RMPRPIYI"",138,0)"
^XMB(3.9,132,2,1254,0)=" S RMR(""ITEM"")=RMPR11(""ITEM"")"
^XMB(3.9,132,2,1255,0)="""RTN"",""RMPRPIYI"",139,0)"
^XMB(3.9,132,2,1256,0)=" S RMR(""VENDOR IEN"")=$P(R1(0),U,9)"
^XMB(3.9,132,2,1257,0)="""RTN"",""RMPRPIYI"",140,0)"
^XMB(3.9,132,2,1258,0)=" S RMCHCK=$$STOCK^RMPRPIUE(.RMR)"
^XMB(3.9,132,2,1259,0)="""RTN"",""RMPRPIYI"",141,0)"
^XMB(3.9,132,2,1260,0)=" I RMCHCK W !,""*** ERROR IN API RMPRPIUE !!!!"",! X CK1 Q"
^XMB(3.9,132,2,1261,0)="""RTN"",""RMPRPIYI"",142,0)"
^XMB(3.9,132,2,1262,0)=" S (RMITDES,RMDES)=RMIT K DIC(""B""),DIC(""S"")"
^XMB(3.9,132,2,1263,0)="""RTN"",""RMPRPIYI"",143,0)"
^XMB(3.9,132,2,1264,0)=" S RMUBA=RMR(""QOH"")"
^XMB(3.9,132,2,1265,0)="""RTN"",""RMPRPIYI"",144,0)"
^XMB(3.9,132,2,1266,0)=" I RMUBA<1 D LOWBA G 2"
^XMB(3.9,132,2,1267,0)="""RTN"",""RMPRPIYI"",145,0)"
^XMB(3.9,132,2,1268,0)=" ;"
^XMB(3.9,132,2,1269,0)="""RTN"",""RMPRPIYI"",146,0)"
^XMB(3.9,132,2,1270,0)=" I $D(RMLOC),$D(RMHCDA) S RMSO=RMPR11I(""SOURCE"")"
^XMB(3.9,132,2,1271,0)="""RTN"",""RMPRPIYI"",147,0)"
^XMB(3.9,132,2,1272,0)=" I $D(RMSO),RMSO="""" D MESSO G 2"
^XMB(3.9,132,2,1273,0)="""RTN"",""RMPRPIYI"",148,0)"
^XMB(3.9,132,2,1274,0)=" S:$D(RMSO) $P(R1(0),U,14)=RMSO"
^XMB(3.9,132,2,1275,0)="""RTN"",""RMPRPIYI"",149,0)"
^XMB(3.9,132,2,1276,0)=" S $P(R3(""D""),U,14)=$S(RMSO=""C"":""COMMERCIAL"",RMSO=""V"":""VA"",1:"""")"
^XMB(3.9,132,2,1277,0)="""RTN"",""RMPRPIYI"",150,0)"
^XMB(3.9,132,2,1278,0)=" I $P(R1(1),U,4)'="""",$D(DUOUT) G LIST^RMPRPIYJ"
^XMB(3.9,132,2,1279,0)="""RTN"",""RMPRPIYI"",151,0)"
^XMB(3.9,132,2,1280,0)=" ;I $G(RMLOC),'($G(RMHCDA)&$G(RMITDA)) W !,""PSAS Item was not selected!!"" G 2"
^XMB(3.9,132,2,1281,0)="""RTN"",""RMPRPIYI"",152,0)"
^XMB(3.9,132,2,1282,0)=" I $G(RMLOC),$G(RMHCDA) S RMPRUCST=RMR(""UNIT COST"")"
^XMB(3.9,132,2,1283,0)="""RTN"",""RMPRPIYI"",153,0)"
^XMB(3.9,132,2,1284,0)=" I '$G(RMPRUCST) D MESSI G 2"
^XMB(3.9,132,2,1285,0)="""RTN"",""RMPRPIYI"",154,0)"
^XMB(3.9,132,2,1286,0)=" S:$G(REDIT) $P(R1(0),U,16)=RMPRUCST*$P(R1(0),U,7),$P(R3(""D""),U,16)=RMPRUCST*$P(R1(0),U,7)"
^XMB(3.9,132,2,1287,0)="""RTN"",""RMPRPIYI"",155,0)"
^XMB(3.9,132,2,1288,0)=" K DIC"
^XMB(3.9,132,2,1289,0)="""RTN"",""RMPRPIYI"",156,0)"
^XMB(3.9,132,2,1290,0)=" ;"
^XMB(3.9,132,2,1291,0)="""RTN"",""RMPRPIYI"",157,0)"
^XMB(3.9,132,2,1292,0)="CPT ;ask for CPT Modifier"
^XMB(3.9,132,2,1293,0)="""RTN"",""RMPRPIYI"",158,0)"
^XMB(3.9,132,2,1294,0)=" D CPT^RMPRPIYS(RMDAHC_""^""_$P(R1(0),U,4)_""^""_$P(R1(0),U,14)_""^""_660)"
^XMB(3.9,132,2,1295,0)="""RTN"",""RMPRPIYI"",159,0)"
^XMB(3.9,132,2,1296,0)=" I RMPREXC=""T"" X CK1 Q"
^XMB(3.9,132,2,1297,0)="""RTN"",""RMPRPIYI"",160,0)"
^XMB(3.9,132,2,1298,0)=" I RMPREXC=""^"" G 2"
^XMB(3.9,132,2,1299,0)="""RTN"",""RMPRPIYI"",161,0)"
^XMB(3.9,132,2,1300,0)=" I RMPREXC=""P"" G 2"
^XMB(3.9,132,2,1301,0)="""RTN"",""RMPRPIYI"",162,0)"
^XMB(3.9,132,2,1302,0)=" ;"
^XMB(3.9,132,2,1303,0)="""RTN"",""RMPRPIYI"",163,0)"
^XMB(3.9,132,2,1304,0)="VEN ;vendor"
^XMB(3.9,132,2,1305,0)="""RTN"",""RMPRPIYI"",164,0)"
^XMB(3.9,132,2,1306,0)=" ;call routine RMPRPIYV for vendor from file 661.6."
^XMB(3.9,132,2,1307,0)="""RTN"",""RMPRPIYI"",165,0)"
^XMB(3.9,132,2,1308,0)=" S $P(R1(1),U,4)=RMDAHC,$P(R1(0),U,22)=$P(^RMPR(661.1,RMDAHC,0),U,4)"
^XMB(3.9,132,2,1309,0)="""RTN"",""RMPRPIYI"",166,0)"
^XMB(3.9,132,2,1310,0)=" ;If there is only one vendor use it as a default.  "
^XMB(3.9,132,2,1311,0)="""RTN"",""RMPRPIYI"",167,0)"
^XMB(3.9,132,2,1312,0)=" K RMPRVEN"
^XMB(3.9,132,2,1313,0)="""RTN"",""RMPRPIYI"",168,0)"
^XMB(3.9,132,2,1314,0)=" S RMERR=$$STOCK^RMPRPIUV(.RMR,.RMPRVEN)"
^XMB(3.9,132,2,1315,0)="""RTN"",""RMPRPIYI"",169,0)"
^XMB(3.9,132,2,1316,0)=" I RMERR W !,""*** ERROR IN API RMPRPIUV !!!!"",! X CK1 Q"
^XMB(3.9,132,2,1317,0)="""RTN"",""RMPRPIYI"",170,0)"
^XMB(3.9,132,2,1318,0)=" I RMPRVEN=1 S DIC(""B"")=$O(RMPRVEN(0))"
^XMB(3.9,132,2,1319,0)="""RTN"",""RMPRPIYI"",171,0)"
^XMB(3.9,132,2,1320,0)=" I $G(REDIT) S DIC(""B"")=$P(R1(0),U,9)"
^XMB(3.9,132,2,1321,0)="""RTN"",""RMPRPIYI"",172,0)"
^XMB(3.9,132,2,1322,0)=" S DIC(0)=""AEQM"""
^XMB(3.9,132,2,1323,0)="""RTN"",""RMPRPIYI"",173,0)"
^XMB(3.9,132,2,1324,0)=" S DIC(""A"")=""VENDOR: "",DIC=440,DIC(""S"")=""I $D(RMPRVEN(+Y))"""
^XMB(3.9,132,2,1325,0)="""RTN"",""RMPRPIYI"",174,0)"
^XMB(3.9,132,2,1326,0)=" D ^DIC I $P(R3(""D""),U,9)'=""""&$D(DUOUT) G LIST^RMPRPIYJ"
^XMB(3.9,132,2,1327,0)="""RTN"",""RMPRPIYI"",175,0)"
^XMB(3.9,132,2,1328,0)=" I $D(DTOUT) X CK1 Q"
^XMB(3.9,132,2,1329,0)="""RTN"",""RMPRPIYI"",176,0)"
^XMB(3.9,132,2,1330,0)=" I $D(DUOUT) G 2"
^XMB(3.9,132,2,1331,0)="""RTN"",""RMPRPIYI"",177,0)"
^XMB(3.9,132,2,1332,0)=" I +Y'>0 W !!,?5,$C(7),""This is a required response.  Enter '^' to exit"",! G VEN"
^XMB(3.9,132,2,1333,0)="""RTN"",""RMPRPIYI"",178,0)"
^XMB(3.9,132,2,1334,0)=" S $P(R1(0),U,9)=+Y,$P(R3(""D""),U,9)=$P(Y,U,2) K DIC,Y,X"
^XMB(3.9,132,2,1335,0)="""RTN"",""RMPRPIYI"",179,0)"
^XMB(3.9,132,2,1336,0)=" G ^RMPRPIYJ"
^XMB(3.9,132,2,1337,0)="""RTN"",""RMPRPIYI"",180,0)"
^XMB(3.9,132,2,1338,0)=" ;"
^XMB(3.9,132,2,1339,0)="""RTN"",""RMPRPIYI"",181,0)"
^XMB(3.9,132,2,1340,0)=" ;"
^XMB(3.9,132,2,1341,0)="""RTN"",""RMPRPIYI"",182,0)"
^XMB(3.9,132,2,1342,0)="MESSI ;print message if COST is not defined in the inventory (661.5)"
^XMB(3.9,132,2,1343,0)="""RTN"",""RMPRPIYI"",183,0)"
^XMB(3.9,132,2,1344,0)=" S:'$D(RMIT) RMIT="""""
^XMB(3.9,132,2,1345,0)="""RTN"",""RMPRPIYI"",184,0)"
^XMB(3.9,132,2,1346,0)=" W !!,""***ITEM COST is not define @:"""
^XMB(3.9,132,2,1347,0)="""RTN"",""RMPRPIYI"",185,0)"
^XMB(3.9,132,2,1348,0)=" W !,""    PSAS Item = "",RMIT"
^XMB(3.9,132,2,1349,0)="""RTN"",""RMPRPIYI"",186,0)"
^XMB(3.9,132,2,1350,0)=" W !,""    Location  = "",$P($G(^RMPR(661.5,RMLOC,0)),U,1)"
^XMB(3.9,132,2,1351,0)="""RTN"",""RMPRPIYI"",187,0)"
^XMB(3.9,132,2,1352,0)=" W !,""***Fix your inventory or use a different PSAS ITEM!!"",!!"
^XMB(3.9,132,2,1353,0)="""RTN"",""RMPRPIYI"",188,0)"
^XMB(3.9,132,2,1354,0)=" Q"
^XMB(3.9,132,2,1355,0)="""RTN"",""RMPRPIYI"",189,0)"
^XMB(3.9,132,2,1356,0)=" ;"
^XMB(3.9,132,2,1357,0)="""RTN"",""RMPRPIYI"",190,0)"
^XMB(3.9,132,2,1358,0)="MESSO ;print message if SOURCE is not defined in the inventory (661.11)"
^XMB(3.9,132,2,1359,0)="""RTN"",""RMPRPIYI"",191,0)"
^XMB(3.9,132,2,1360,0)=" W !!,""***PSAS ITEM has no SOURCE at this location..."""
^XMB(3.9,132,2,1361,0)="""RTN"",""RMPRPIYI"",192,0)"
^XMB(3.9,132,2,1362,0)=" W !,""***Fix your inventory or use a different PSAS ITEM!!"",!!"
^XMB(3.9,132,2,1363,0)="""RTN"",""RMPRPIYI"",193,0)"
^XMB(3.9,132,2,1364,0)=" Q"
^XMB(3.9,132,2,1365,0)="""RTN"",""RMPRPIYI"",194,0)"
^XMB(3.9,132,2,1366,0)=" ;"
^XMB(3.9,132,2,1367,0)="""RTN"",""RMPRPIYI"",195,0)"
^XMB(3.9,132,2,1368,0)="INACT ;print message if HCPCS is inactive."
^XMB(3.9,132,2,1369,0)="""RTN"",""RMPRPIYI"",196,0)"
^XMB(3.9,132,2,1370,0)=" W !!,""*** You have selected an INACTIVE HCPCS..."""
^XMB(3.9,132,2,1371,0)="""RTN"",""RMPRPIYI"",197,0)"
^XMB(3.9,132,2,1372,0)=" W !,""*** Please REMOVE this HCPCS from inventory..."""
^XMB(3.9,132,2,1373,0)="""RTN"",""RMPRPIYI"",198,0)"
^XMB(3.9,132,2,1374,0)=" W !,""*** And use a different HCPCS!!!"",!"
^XMB(3.9,132,2,1375,0)="""RTN"",""RMPRPIYI"",199,0)"
^XMB(3.9,132,2,1376,0)=" Q"
^XMB(3.9,132,2,1377,0)="""RTN"",""RMPRPIYI"",200,0)"
^XMB(3.9,132,2,1378,0)=" ;"
^XMB(3.9,132,2,1379,0)="""RTN"",""RMPRPIYI"",201,0)"
^XMB(3.9,132,2,1380,0)="LOWBA ;print message if inventory balance is low."
^XMB(3.9,132,2,1381,0)="""RTN"",""RMPRPIYI"",202,0)"
^XMB(3.9,132,2,1382,0)=" S:'$D(RMUBA) RMUBA="""" S:'$D(RMIT) RMIT="""""
^XMB(3.9,132,2,1383,0)="""RTN"",""RMPRPIYI"",203,0)"
^XMB(3.9,132,2,1384,0)=" W !!,""*** PSAS Item "",RMIT,"" balance is = "",RMUBA"
^XMB(3.9,132,2,1385,0)="""RTN"",""RMPRPIYI"",204,0)"
^XMB(3.9,132,2,1386,0)=" W !,""*** You are unable to use this PSAS ITEM..."""
^XMB(3.9,132,2,1387,0)="""RTN"",""RMPRPIYI"",205,0)"
^XMB(3.9,132,2,1388,0)=" W !,""*** Please use a different HCPCS or PSAS Item !!!!"",!"
^XMB(3.9,132,2,1389,0)="""RTN"",""RMPRPIYI"",206,0)"
^XMB(3.9,132,2,1390,0)=" Q"
^XMB(3.9,132,2,1391,0)="""RTN"",""RMPRPIYI"",207,0)"
^XMB(3.9,132,2,1392,0)=" ;"
^XMB(3.9,132,2,1393,0)="""RTN"",""RMPRPIYI"",208,0)"
^XMB(3.9,132,2,1394,0)="LKP ;print a message if PSAS HCPCS not in PIP or invalid HCPCS."
^XMB(3.9,132,2,1395,0)="""RTN"",""RMPRPIYI"",209,0)"
^XMB(3.9,132,2,1396,0)=" Q:'$G(RMF)!(X="" "")"
^XMB(3.9,132,2,1397,0)="""RTN"",""RMPRPIYI"",210,0)"
^XMB(3.9,132,2,1398,0)=" S X=$TR(X,""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ"")"
^XMB(3.9,132,2,1399,0)="""RTN"",""RMPRPIYI"",211,0)"
^XMB(3.9,132,2,1400,0)=" K RX"
^XMB(3.9,132,2,1401,0)="""RTN"",""RMPRPIYI"",212,0)"
^XMB(3.9,132,2,1402,0)=" I $D(RSTCK),$D(^RMPR(661.7,""XSHIDS"",RMPR(""STA""),X)) S RX=1"
^XMB(3.9,132,2,1403,0)="""RTN"",""RMPRPIYI"",213,0)"
^XMB(3.9,132,2,1404,0)=" I '$D(RSTCK),$D(^RMPR(661.11,""ASHD"",RMPR(""STA""),X)) S RX=1"
^XMB(3.9,132,2,1405,0)="""RTN"",""RMPRPIYI"",214,0)"
^XMB(3.9,132,2,1406,0)=" I '$G(RX),$D(^RMPR(661.1,""B"",X)) D EN^DDIOL(""*** Only PSAS HCPCS in PIP can be accessed.  Please verify your Location and PSAS HCPCS!!"","""",""!!"")"
^XMB(3.9,132,2,1407,0)="""RTN"",""RMPRPIYI"",215,0)"
^XMB(3.9,132,2,1408,0)=" K RX"
^XMB(3.9,132,2,1409,0)="""RTN"",""RMPRPIYI"",216,0)"
^XMB(3.9,132,2,1410,0)=" Q"
^XMB(3.9,132,2,1411,0)="""RTN"",""RMPRPIYJ"")"
^XMB(3.9,132,2,1412,0)="0^2^B18984837^B18204956"
^XMB(3.9,132,2,1413,0)="""RTN"",""RMPRPIYJ"",1,0)"
^XMB(3.9,132,2,1414,0)="RMPRPIYJ ;HINCIO/RVD-ISSUE FROM STOCK / CONT. ;9/18/02  07:39"
^XMB(3.9,132,2,1415,0)="""RTN"",""RMPRPIYJ"",2,0)"
^XMB(3.9,132,2,1416,0)=" ;;3.0;PROSTHETICS;**61,128**;Feb 09, 1996"
^XMB(3.9,132,2,1417,0)="""RTN"",""RMPRPIYJ"",3,0)"
^XMB(3.9,132,2,1418,0)=" ; RVD #61 - pip INVENTORY PHASE IIIa"
^XMB(3.9,132,2,1419,0)="""RTN"",""RMPRPIYJ"",4,0)"
^XMB(3.9,132,2,1420,0)=" ;"
^XMB(3.9,132,2,1421,0)="""RTN"",""RMPRPIYJ"",5,0)"
^XMB(3.9,132,2,1422,0)=" ;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,132,2,1423,0)="""RTN"",""RMPRPIYJ"",6,0)"
^XMB(3.9,132,2,1424,0)="QTY K DIR,Y S DIR(0)=""660,5"",DIR(""B"")=1 S:$P(R1(0),U,7) DIR(""B"")=$P(R1(0),U,7)"
^XMB(3.9,132,2,1425,0)="""RTN"",""RMPRPIYJ"",7,0)"
^XMB(3.9,132,2,1426,0)=" D ^DIR I $P(R1(0),U,7)'=""""&$D(DUOUT) G LIST"
^XMB(3.9,132,2,1427,0)="""RTN"",""RMPRPIYJ"",8,0)"
^XMB(3.9,132,2,1428,0)=" I $D(DTOUT) X CK2 G ^RMPRPIYI"
^XMB(3.9,132,2,1429,0)="""RTN"",""RMPRPIYJ"",9,0)"
^XMB(3.9,132,2,1430,0)=" I $D(DIRUT) G ^RMPRPIYI"
^XMB(3.9,132,2,1431,0)="""RTN"",""RMPRPIYJ"",10,0)"
^XMB(3.9,132,2,1432,0)=" I $G(RMUBA),((RMUBA-Y)<0) D LOWBA^RMPRPIYI G 2^RMPRPIYI"
^XMB(3.9,132,2,1433,0)="""RTN"",""RMPRPIYJ"",11,0)"
^XMB(3.9,132,2,1434,0)=" I $G(RMITQTY),RMITQTY<Y W !,""Issue quantity exceeds on-hand ("",RMITQTY,"") for scanned item bar code!!"",! G QTY"
^XMB(3.9,132,2,1435,0)="""RTN"",""RMPRPIYJ"",12,0)"
^XMB(3.9,132,2,1436,0)=" S $P(R1(0),U,7)=Y,$P(R1(0),U,16)=Y*RMPRUCST K DIR"
^XMB(3.9,132,2,1437,0)="""RTN"",""RMPRPIYJ"",13,0)"
^XMB(3.9,132,2,1438,0)=" ;"
^XMB(3.9,132,2,1439,0)="""RTN"",""RMPRPIYJ"",14,0)"
^XMB(3.9,132,2,1440,0)="DATE ;delivery date is set to today's date"
^XMB(3.9,132,2,1441,0)="""RTN"",""RMPRPIYJ"",15,0)"
^XMB(3.9,132,2,1442,0)=" S $P(R1(0),U,12)=DT,Y=DT D DD^%DT S $P(R3(""D""),U,12)=Y"
^XMB(3.9,132,2,1443,0)="""RTN"",""RMPRPIYJ"",16,0)"
^XMB(3.9,132,2,1444,0)=" ;"
^XMB(3.9,132,2,1445,0)="""RTN"",""RMPRPIYJ"",17,0)"
^XMB(3.9,132,2,1446,0)="SERV ;date of service"
^XMB(3.9,132,2,1447,0)="""RTN"",""RMPRPIYJ"",18,0)"
^XMB(3.9,132,2,1448,0)=" S Y=DT D DD^%DT S DIR(""B"")=Y,DIR(""A"")=""DATE OF SERVICE"",DIR(0)=""660,39"""
^XMB(3.9,132,2,1449,0)="""RTN"",""RMPRPIYJ"",19,0)"
^XMB(3.9,132,2,1450,0)=" I $G(REDIT) S DIR(""B"")=$P(R1(""D""),U,8)"
^XMB(3.9,132,2,1451,0)="""RTN"",""RMPRPIYJ"",20,0)"
^XMB(3.9,132,2,1452,0)=" D ^DIR K DIR I $D(DTOUT) X CK2 G ^RMPRPIYI"
^XMB(3.9,132,2,1453,0)="""RTN"",""RMPRPIYJ"",21,0)"
^XMB(3.9,132,2,1454,0)=" I $D(DUOUT),$G(REDIT) G LIST"
^XMB(3.9,132,2,1455,0)="""RTN"",""RMPRPIYJ"",22,0)"
^XMB(3.9,132,2,1456,0)=" I (X="""")!(X=""@"") W !,""This field is mandatory!!!"",! G SERV"
^XMB(3.9,132,2,1457,0)="""RTN"",""RMPRPIYJ"",23,0)"
^XMB(3.9,132,2,1458,0)=" S $P(R1(1),U,8)=Y D DD^%DT S $P(R1(""D""),U,8)=Y"
^XMB(3.9,132,2,1459,0)="""RTN"",""RMPRPIYJ"",24,0)"
^XMB(3.9,132,2,1460,0)=" ;"
^XMB(3.9,132,2,1461,0)="""RTN"",""RMPRPIYJ"",25,0)"
^XMB(3.9,132,2,1462,0)="LI S DIR(0)=""660,9"" S:$P(R1(0),U,11)'="""" DIR(""B"")=$P(R1(0),U,11)"
^XMB(3.9,132,2,1463,0)="""RTN"",""RMPRPIYJ"",26,0)"
^XMB(3.9,132,2,1464,0)=" D ^DIR I $D(DTOUT) X CK1 Q"
^XMB(3.9,132,2,1465,0)="""RTN"",""RMPRPIYJ"",27,0)"
^XMB(3.9,132,2,1466,0)=" G:$D(DUOUT) LIST"
^XMB(3.9,132,2,1467,0)="""RTN"",""RMPRPIYJ"",28,0)"
^XMB(3.9,132,2,1468,0)=" I X[""^"" W !,""Jumping not allowed"" G LI"
^XMB(3.9,132,2,1469,0)="""RTN"",""RMPRPIYJ"",29,0)"
^XMB(3.9,132,2,1470,0)=" I $P(R1(0),U,11)'=""""&(X=""@"") S $P(R1(0),U,11)="""" W $C(7),!?5,""Deleted..."" H 1 G LOT"
^XMB(3.9,132,2,1471,0)="""RTN"",""RMPRPIYJ"",30,0)"
^XMB(3.9,132,2,1472,0)=" S $P(R1(0),U,11)=X"
^XMB(3.9,132,2,1473,0)="""RTN"",""RMPRPIYJ"",31,0)"
^XMB(3.9,132,2,1474,0)=" ;"
^XMB(3.9,132,2,1475,0)="""RTN"",""RMPRPIYJ"",32,0)"
^XMB(3.9,132,2,1476,0)="LOT ;"
^XMB(3.9,132,2,1477,0)="""RTN"",""RMPRPIYJ"",33,0)"
^XMB(3.9,132,2,1478,0)=" ;"
^XMB(3.9,132,2,1479,0)="""RTN"",""RMPRPIYJ"",34,0)"
^XMB(3.9,132,2,1480,0)=" K DIR S DIR(0)=""660,21"" S:$P(R1(0),U,24)'="""" DIR(""B"")=$P(R1(0),U,24)"
^XMB(3.9,132,2,1481,0)="""RTN"",""RMPRPIYJ"",35,0)"
^XMB(3.9,132,2,1482,0)=" D ^DIR I $D(DTOUT) X CK1 Q"
^XMB(3.9,132,2,1483,0)="""RTN"",""RMPRPIYJ"",36,0)"
^XMB(3.9,132,2,1484,0)=" G:$D(DUOUT) LIST"
^XMB(3.9,132,2,1485,0)="""RTN"",""RMPRPIYJ"",37,0)"
^XMB(3.9,132,2,1486,0)=" I X[""^"" W !,""Jumping not allowed"" G LOT"
^XMB(3.9,132,2,1487,0)="""RTN"",""RMPRPIYJ"",38,0)"
^XMB(3.9,132,2,1488,0)=" I $P(R1(0),U,24)'=""""&(X=""@"") S $P(R1(0),U,24)="""" W $C(7),!?5,""Deleted..."" H 1 G REMA"
^XMB(3.9,132,2,1489,0)="""RTN"",""RMPRPIYJ"",39,0)"
^XMB(3.9,132,2,1490,0)=" S $P(R1(0),U,24)=X"
^XMB(3.9,132,2,1491,0)="""RTN"",""RMPRPIYJ"",40,0)"
^XMB(3.9,132,2,1492,0)=" ;"
^XMB(3.9,132,2,1493,0)="""RTN"",""RMPRPIYJ"",41,0)"
^XMB(3.9,132,2,1494,0)="REMA ;"
^XMB(3.9,132,2,1495,0)="""RTN"",""RMPRPIYJ"",42,0)"
^XMB(3.9,132,2,1496,0)=" ;"
^XMB(3.9,132,2,1497,0)="""RTN"",""RMPRPIYJ"",43,0)"
^XMB(3.9,132,2,1498,0)=" K DIR S DIR(0)=""660,16"" S:$P(R1(0),U,18)'="""" DIR(""B"")=$P(R1(0),U,18)"
^XMB(3.9,132,2,1499,0)="""RTN"",""RMPRPIYJ"",44,0)"
^XMB(3.9,132,2,1500,0)=" D ^DIR I $D(DTOUT) X CK1 Q"
^XMB(3.9,132,2,1501,0)="""RTN"",""RMPRPIYJ"",45,0)"
^XMB(3.9,132,2,1502,0)=" G:$D(DUOUT) LIST"
^XMB(3.9,132,2,1503,0)="""RTN"",""RMPRPIYJ"",46,0)"
^XMB(3.9,132,2,1504,0)=" I X[""^"" W !,""Jumping not allowed"" G REMA"
^XMB(3.9,132,2,1505,0)="""RTN"",""RMPRPIYJ"",47,0)"
^XMB(3.9,132,2,1506,0)=" I $P(R1(0),U,18)'=""""&(X=""@"") S $P(R1(0),U,18)="""" W $C(7),!?5,""Deleted..."" H 1 G LIST"
^XMB(3.9,132,2,1507,0)="""RTN"",""RMPRPIYJ"",48,0)"
^XMB(3.9,132,2,1508,0)=" S $P(R1(0),U,18)=X"
^XMB(3.9,132,2,1509,0)="""RTN"",""RMPRPIYJ"",49,0)"
^XMB(3.9,132,2,1510,0)=" ;"
^XMB(3.9,132,2,1511,0)="""RTN"",""RMPRPIYJ"",50,0)"
^XMB(3.9,132,2,1512,0)="LIST ;ENTRY POINT FOR STOCK ISSUE ROUTINES TO DISPLAY TRANSACTION DATA"
^XMB(3.9,132,2,1513,0)="""RTN"",""RMPRPIYJ"",51,0)"
^XMB(3.9,132,2,1514,0)=" S RMDAHC=$P(R1(1),U,4)"
^XMB(3.9,132,2,1515,0)="""RTN"",""RMPRPIYJ"",52,0)"
^XMB(3.9,132,2,1516,0)=" D:$D(RMCPT) CHK^RMPRED5"
^XMB(3.9,132,2,1517,0)="""RTN"",""RMPRPIYJ"",53,0)"
^XMB(3.9,132,2,1518,0)=" D ^RMPRPIYK"
^XMB(3.9,132,2,1519,0)="""RTN"",""RMPRPIYJ"",54,0)"
^XMB(3.9,132,2,1520,0)=" K DIR,RQUIT"
^XMB(3.9,132,2,1521,0)="""RTN"",""RMPRPIYJ"",55,0)"
^XMB(3.9,132,2,1522,0)=" S DIR(0)=""SBO^P:POST;E:EDIT;D:DELETE"""
^XMB(3.9,132,2,1523,0)="""RTN"",""RMPRPIYJ"",56,0)"
^XMB(3.9,132,2,1524,0)=" S DIR(""A"")=""Would you like to POST/EDIT/DELETE this entry"""
^XMB(3.9,132,2,1525,0)="""RTN"",""RMPRPIYJ"",57,0)"
^XMB(3.9,132,2,1526,0)=" S DIR(""B"")=""P"""
^XMB(3.9,132,2,1527,0)="""RTN"",""RMPRPIYJ"",58,0)"
^XMB(3.9,132,2,1528,0)=" S DIR(""?"")=""Answer `P` to post the transaction, `E` to edit the transaction,'D' to delete the transaction"""
^XMB(3.9,132,2,1529,0)="""RTN"",""RMPRPIYJ"",59,0)"
^XMB(3.9,132,2,1530,0)=" D ^DIR K DIR G:Y=""P"" POST G:Y=""D"" DEA"
^XMB(3.9,132,2,1531,0)="""RTN"",""RMPRPIYJ"",60,0)"
^XMB(3.9,132,2,1532,0)=" I Y=""E"" S REDIT=1 G 1^RMPRPIYI"
^XMB(3.9,132,2,1533,0)="""RTN"",""RMPRPIYJ"",61,0)"
^XMB(3.9,132,2,1534,0)=" I $D(DIRUT)!$D(DUOUT)!$D(DTOUT) G ^RMPRPIYI"
^XMB(3.9,132,2,1535,0)="""RTN"",""RMPRPIYJ"",62,0)"
^XMB(3.9,132,2,1536,0)=" ;"
^XMB(3.9,132,2,1537,0)="""RTN"",""RMPRPIYJ"",63,0)"
^XMB(3.9,132,2,1538,0)="DEA ;"
^XMB(3.9,132,2,1539,0)="""RTN"",""RMPRPIYJ"",64,0)"
^XMB(3.9,132,2,1540,0)=" K DIR"
^XMB(3.9,132,2,1541,0)="""RTN"",""RMPRPIYJ"",65,0)"
^XMB(3.9,132,2,1542,0)=" S DIR(""A"")=""Are you sure you want to DELETE this entry"""
^XMB(3.9,132,2,1543,0)="""RTN"",""RMPRPIYJ"",66,0)"
^XMB(3.9,132,2,1544,0)=" S DIR(""B"")=""N"",DIR(0)=""Y"""
^XMB(3.9,132,2,1545,0)="""RTN"",""RMPRPIYJ"",67,0)"
^XMB(3.9,132,2,1546,0)=" D ^DIR I $D(DTOUT)!$D(DUOUT)!$D(DIRUT) X CK Q"
^XMB(3.9,132,2,1547,0)="""RTN"",""RMPRPIYJ"",68,0)"
^XMB(3.9,132,2,1548,0)=" I Y=1 W !!,$C(7),?50,"" Deleted..."" H 2 K DIR G RES^RMPRPIYI"
^XMB(3.9,132,2,1549,0)="""RTN"",""RMPRPIYJ"",69,0)"
^XMB(3.9,132,2,1550,0)=" G LIST"
^XMB(3.9,132,2,1551,0)="""RTN"",""RMPRPIYJ"",70,0)"
^XMB(3.9,132,2,1552,0)=" ;"
^XMB(3.9,132,2,1553,0)="""RTN"",""RMPRPIYJ"",71,0)"
^XMB(3.9,132,2,1554,0)="POST ;"
^XMB(3.9,132,2,1555,0)="""RTN"",""RMPRPIYJ"",72,0)"
^XMB(3.9,132,2,1556,0)=" I RMPR699(""AMIS GROUPER"")'="""" G GGC"
^XMB(3.9,132,2,1557,0)="""RTN"",""RMPRPIYJ"",73,0)"
^XMB(3.9,132,2,1558,0)=" S RMPRAMIS=0"
^XMB(3.9,132,2,1559,0)="""RTN"",""RMPRPIYJ"",74,0)"
^XMB(3.9,132,2,1560,0)=" S RMPR699(""IEN"")=RMPRSITE"
^XMB(3.9,132,2,1561,0)="""RTN"",""RMPRPIYJ"",75,0)"
^XMB(3.9,132,2,1562,0)=" S RMPRAMIS=$$AMGR^RMPRPIX2(.RMPR699)"
^XMB(3.9,132,2,1563,0)="""RTN"",""RMPRPIYJ"",76,0)"
^XMB(3.9,132,2,1564,0)=" I RMPRAMIS X CK Q"
^XMB(3.9,132,2,1565,0)="""RTN"",""RMPRPIYJ"",77,0)"
^XMB(3.9,132,2,1566,0)="GGC ;"
^XMB(3.9,132,2,1567,0)="""RTN"",""RMPRPIYJ"",78,0)"
^XMB(3.9,132,2,1568,0)=" D SETARR(.RMPR60)"
^XMB(3.9,132,2,1569,0)="""RTN"",""RMPRPIYJ"",79,0)"
^XMB(3.9,132,2,1570,0)=" S RMPRERR=$$ISS^RMPRPIU6(.RMPR60,.RMPR11I,.RMPR5)"
^XMB(3.9,132,2,1571,0)="""RTN"",""RMPRPIYJ"",80,0)"
^XMB(3.9,132,2,1572,0)=" I RMPRERR=9 D LOWBA^RMPRPIYI G 2^RMPRPIYI"
^XMB(3.9,132,2,1573,0)="""RTN"",""RMPRPIYJ"",81,0)"
^XMB(3.9,132,2,1574,0)=" I RMPRERR W !,""*** ERROR in API RMPRPIU6, ERROR = "",RMPRERR,"" !!!"" G EXIT"
^XMB(3.9,132,2,1575,0)="""RTN"",""RMPRPIYJ"",82,0)"
^XMB(3.9,132,2,1576,0)=" S ^TMP($J,""RMPRPCE"",660,RMPR60(""IEN""))=RMPR699(""AMIS GROUPER"")_""^""_$G(RMPRDFN)"
^XMB(3.9,132,2,1577,0)="""RTN"",""RMPRPIYJ"",83,0)"
^XMB(3.9,132,2,1578,0)=" ;"
^XMB(3.9,132,2,1579,0)="""RTN"",""RMPRPIYJ"",84,0)"
^XMB(3.9,132,2,1580,0)=" W !,""Posted to 2319..."" H 3"
^XMB(3.9,132,2,1581,0)="""RTN"",""RMPRPIYJ"",85,0)"
^XMB(3.9,132,2,1582,0)=" G RES^RMPRPIYI"
^XMB(3.9,132,2,1583,0)="""RTN"",""RMPRPIYJ"",86,0)"
^XMB(3.9,132,2,1584,0)=" ;"
^XMB(3.9,132,2,1585,0)="""RTN"",""RMPRPIYJ"",87,0)"
^XMB(3.9,132,2,1586,0)="EXIT ;EXIT FOR STOCK ISSUES"
^XMB(3.9,132,2,1587,0)="""RTN"",""RMPRPIYJ"",88,0)"
^XMB(3.9,132,2,1588,0)=" N RMPRSITE,RMPR D KILL^XUSCLEAN"
^XMB(3.9,132,2,1589,0)="""RTN"",""RMPRPIYJ"",89,0)"
^XMB(3.9,132,2,1590,0)=" Q"
^XMB(3.9,132,2,1591,0)="""RTN"",""RMPRPIYJ"",90,0)"
^XMB(3.9,132,2,1592,0)=" ;"
^XMB(3.9,132,2,1593,0)="""RTN"",""RMPRPIYJ"",91,0)"
^XMB(3.9,132,2,1594,0)="INV1 I $P(R1(0),U,14)=""C"" S $P(R1(0),U,16)=RMPRUCST*$P(R1(0),U,7)"
^XMB(3.9,132,2,1595,0)="""RTN"",""RMPRPIYJ"",92,0)"
^XMB(3.9,132,2,1596,0)=" G QTY"
^XMB(3.9,132,2,1597,0)="""RTN"",""RMPRPIYJ"",93,0)"
^XMB(3.9,132,2,1598,0)=" ;"
^XMB(3.9,132,2,1599,0)="""RTN"",""RMPRPIYJ"",94,0)"
^XMB(3.9,132,2,1600,0)=" ; Set up arrays for Stock Issue Transaction"
^XMB(3.9,132,2,1601,0)="""RTN"",""RMPRPIYJ"",95,0)"
^XMB(3.9,132,2,1602,0)="SETARR(RMPR60) ;"
^XMB(3.9,132,2,1603,0)="""RTN"",""RMPRPIYJ"",96,0)"
^XMB(3.9,132,2,1604,0)=" K RMPR60"
^XMB(3.9,132,2,1605,0)="""RTN"",""RMPRPIYJ"",97,0)"
^XMB(3.9,132,2,1606,0)=" S RMPR60(""ENTRY DATE"")=$P(R1(0),U,1)"
^XMB(3.9,132,2,1607,0)="""RTN"",""RMPRPIYJ"",98,0)"
^XMB(3.9,132,2,1608,0)=" S RMPR60(""PATIENT IEN"")=$P(R1(0),U,2)"
^XMB(3.9,132,2,1609,0)="""RTN"",""RMPRPIYJ"",99,0)"
^XMB(3.9,132,2,1610,0)=" S RMPR60(""ISSUE TYPE"")=$P(R1(0),U,4)"
^XMB(3.9,132,2,1611,0)="""RTN"",""RMPRPIYJ"",100,0)"
^XMB(3.9,132,2,1612,0)=" S RMPR60(""QUANTITY"")=$P(R1(0),U,7)"
^XMB(3.9,132,2,1613,0)="""RTN"",""RMPRPIYJ"",101,0)"
^XMB(3.9,132,2,1614,0)=" S RMPR60(""IFCAP ITEM"")=$P(R1(0),U,6)"
^XMB(3.9,132,2,1615,0)="""RTN"",""RMPRPIYJ"",102,0)"
^XMB(3.9,132,2,1616,0)=" S RMPR60(""UNIT"")=$P(R1(0),U,8)"
^XMB(3.9,132,2,1617,0)="""RTN"",""RMPRPIYJ"",103,0)"
^XMB(3.9,132,2,1618,0)=" S RMPR60(""VENDOR IEN"")=$P(R1(0),U,9)"
^XMB(3.9,132,2,1619,0)="""RTN"",""RMPRPIYJ"",104,0)"
^XMB(3.9,132,2,1620,0)=" S RMPR60(""SERIAL NUM"")=$P(R1(0),U,11)"
^XMB(3.9,132,2,1621,0)="""RTN"",""RMPRPIYJ"",105,0)"
^XMB(3.9,132,2,1622,0)=" S RMPR60(""DELIV DATE"")=$P(R1(0),U,12)"
^XMB(3.9,132,2,1623,0)="""RTN"",""RMPRPIYJ"",106,0)"
^XMB(3.9,132,2,1624,0)=" S RMPR60(""DATE OF SERVICE"")=$P(R1(1),U,8)"
^XMB(3.9,132,2,1625,0)="""RTN"",""RMPRPIYJ"",107,0)"
^XMB(3.9,132,2,1626,0)=" S RMPR60(""SOURCE"")=$P(R1(0),U,14)"
^XMB(3.9,132,2,1627,0)="""RTN"",""RMPRPIYJ"",108,0)"
^XMB(3.9,132,2,1628,0)=" S RMPR60(""COST"")=$P(R1(0),U,16)"
^XMB(3.9,132,2,1629,0)="""RTN"",""RMPRPIYJ"",109,0)"
^XMB(3.9,132,2,1630,0)=" S RMPR60(""REMARKS"")=$P(R1(0),U,18)"
^XMB(3.9,132,2,1631,0)="""RTN"",""RMPRPIYJ"",110,0)"
^XMB(3.9,132,2,1632,0)=" S RMPR60(""LOT NUM"")=$P(R1(0),U,24)"
^XMB(3.9,132,2,1633,0)="""RTN"",""RMPRPIYJ"",111,0)"
^XMB(3.9,132,2,1634,0)=" S RMPR60(""HCPCS"")=$P(R1(1),U,4)"
^XMB(3.9,132,2,1635,0)="""RTN"",""RMPRPIYJ"",112,0)"
^XMB(3.9,132,2,1636,0)=" S RMPR60(""CPT IEN"")=$P(R1(0),U,22)"
^XMB(3.9,132,2,1637,0)="""RTN"",""RMPRPIYJ"",113,0)"
^XMB(3.9,132,2,1638,0)=" S RMPR60(""CPT MOD"")=$P(R1(1),U,6)"
^XMB(3.9,132,2,1639,0)="""RTN"",""RMPRPIYJ"",114,0)"
^XMB(3.9,132,2,1640,0)=" S RMPR60(""PAT CAT"")=$P(R1(""AM""),U,3)"
^XMB(3.9,132,2,1641,0)="""RTN"",""RMPRPIYJ"",115,0)"
^XMB(3.9,132,2,1642,0)=" S RMPR60(""SPEC CAT"")=$P(R1(""AM""),U,4)"
^XMB(3.9,132,2,1643,0)="""RTN"",""RMPRPIYJ"",116,0)"
^XMB(3.9,132,2,1644,0)=" S RMPR60(""USER"")=$P(R1(0),U,27)"
^XMB(3.9,132,2,1645,0)="""RTN"",""RMPRPIYJ"",117,0)"
^XMB(3.9,132,2,1646,0)=" S RMPR60(""SITE IEN"")=RMPRSITE"
^XMB(3.9,132,2,1647,0)="""RTN"",""RMPRPIYJ"",118,0)"
^XMB(3.9,132,2,1648,0)=" S RMPR60(""GROUPER"")=RMPR699(""AMIS GROUPER"")"
^XMB(3.9,132,2,1649,0)="""RTN"",""RMPRPIYJ"",119,0)"
^XMB(3.9,132,2,1650,0)=" S RMPR60(""DATE&TIME"")=R1(""DATE&TIME"")"
^XMB(3.9,132,2,1651,0)="""RTN"",""RMPRPIYJ"",120,0)"
^XMB(3.9,132,2,1652,0)=" Q"
^XMB(3.9,132,2,1653,0)="""RTN"",""RMPRPIYS"")"
^XMB(3.9,132,2,1654,0)="0^1^B84869709^B84190403"
^XMB(3.9,132,2,1655,0)="""RTN"",""RMPRPIYS"",1,0)"
^XMB(3.9,132,2,1656,0)="RMPRPIYS ;HINCIO/ODJ - RC - PIP Receive Stock ;10/8/02  13:11"
^XMB(3.9,132,2,1657,0)="""RTN"",""RMPRPIYS"",2,0)"
^XMB(3.9,132,2,1658,0)=" ;;3.0;PROSTHETICS;**61,108,128**;Feb 09, 1996"
^XMB(3.9,132,2,1659,0)="""RTN"",""RMPRPIYS"",3,0)"
^XMB(3.9,132,2,1660,0)=" Q"
^XMB(3.9,132,2,1661,0)="""RTN"",""RMPRPIYS"",4,0)"
^XMB(3.9,132,2,1662,0)=" ;"
^XMB(3.9,132,2,1663,0)="""RTN"",""RMPRPIYS"",5,0)"
^XMB(3.9,132,2,1664,0)=" ;***** PB - Print Bar Code labels"
^XMB(3.9,132,2,1665,0)="""RTN"",""RMPRPIYS"",6,0)"
^XMB(3.9,132,2,1666,0)=" ;           RMPR INV BAR CODE"
^XMB(3.9,132,2,1667,0)="""RTN"",""RMPRPIYS"",7,0)"
^XMB(3.9,132,2,1668,0)=" ;           Callable from VISTA menu, no vars required other than"
^XMB(3.9,132,2,1669,0)="""RTN"",""RMPRPIYS"",8,0)"
^XMB(3.9,132,2,1670,0)=" ;           global VISTA vars (DUZ, etc)"
^XMB(3.9,132,2,1671,0)="""RTN"",""RMPRPIYS"",9,0)"
^XMB(3.9,132,2,1672,0)=" ;"
^XMB(3.9,132,2,1673,0)="""RTN"",""RMPRPIYS"",10,0)"
^XMB(3.9,132,2,1674,0)="PB N RMPRERR,RMPRSTN,RMPRLCN,RMPREXC,RMPR1,RMPR11,RMPROVAL,RMPRNLAB"
^XMB(3.9,132,2,1675,0)="""RTN"",""RMPRPIYS"",11,0)"
^XMB(3.9,132,2,1676,0)=" N RMPR6,RMPR7,RMPR7I,RMPRBARC,RMPRITXT,RMPRBCP,RMPRQ,RMPRIOP"
^XMB(3.9,132,2,1677,0)="""RTN"",""RMPRPIYS"",12,0)"
^XMB(3.9,132,2,1678,0)=" ;"
^XMB(3.9,132,2,1679,0)="""RTN"",""RMPRPIYS"",13,0)"
^XMB(3.9,132,2,1680,0)=" ;***** STN - prompt for Site/Station"
^XMB(3.9,132,2,1681,0)="""RTN"",""RMPRPIYS"",14,0)"
^XMB(3.9,132,2,1682,0)="STN S RMPROVAL=$G(RMPRSTN(""IEN""))"
^XMB(3.9,132,2,1683,0)="""RTN"",""RMPRPIYS"",15,0)"
^XMB(3.9,132,2,1684,0)=" W @IOF S RMPRERR=$$STN^RMPRPIY1(.RMPRSTN,.RMPREXC)"
^XMB(3.9,132,2,1685,0)="""RTN"",""RMPRPIYS"",16,0)"
^XMB(3.9,132,2,1686,0)=" I RMPRERR G PBX"
^XMB(3.9,132,2,1687,0)="""RTN"",""RMPRPIYS"",17,0)"
^XMB(3.9,132,2,1688,0)=" I RMPREXC'="""" G PBX"
^XMB(3.9,132,2,1689,0)="""RTN"",""RMPRPIYS"",18,0)"
^XMB(3.9,132,2,1690,0)=" I RMPROVAL'=RMPRSTN(""IEN"") K RMPR1,RMPR11"
^XMB(3.9,132,2,1691,0)="""RTN"",""RMPRPIYS"",19,0)"
^XMB(3.9,132,2,1692,0)=" ;"
^XMB(3.9,132,2,1693,0)="""RTN"",""RMPRPIYS"",20,0)"
^XMB(3.9,132,2,1694,0)=" ;***** HCPCS - prompt for HCPCS and Item"
^XMB(3.9,132,2,1695,0)="""RTN"",""RMPRPIYS"",21,0)"
^XMB(3.9,132,2,1696,0)="HCPCS W !!,""Print Bar code Labels for current inventory..."",!"
^XMB(3.9,132,2,1697,0)="""RTN"",""RMPRPIYS"",22,0)"
^XMB(3.9,132,2,1698,0)="HCPCS2 D HCPCS^RMPRPIY7(RMPRSTN(""IEN""),$G(RMPR1(""HCPCS"")),.RMPR1,.RMPR11,.RMPREXC)"
^XMB(3.9,132,2,1699,0)="""RTN"",""RMPRPIYS"",23,0)"
^XMB(3.9,132,2,1700,0)=" I RMPREXC=""T"" G PBX"
^XMB(3.9,132,2,1701,0)="""RTN"",""RMPRPIYS"",24,0)"
^XMB(3.9,132,2,1702,0)=" I RMPREXC=""P"" G STN"
^XMB(3.9,132,2,1703,0)="""RTN"",""RMPRPIYS"",25,0)"
^XMB(3.9,132,2,1704,0)=" I RMPREXC=""^"" D  G PBX"
^XMB(3.9,132,2,1705,0)="""RTN"",""RMPRPIYS"",26,0)"
^XMB(3.9,132,2,1706,0)=" . W !,""** No HCPCS selected..."" H 1"
^XMB(3.9,132,2,1707,0)="""RTN"",""RMPRPIYS"",27,0)"
^XMB(3.9,132,2,1708,0)=" . Q"
^XMB(3.9,132,2,1709,0)="""RTN"",""RMPRPIYS"",28,0)"
^XMB(3.9,132,2,1710,0)=" I $G(RMPR11(""IEN""))'="""" G HCPCS3A"
^XMB(3.9,132,2,1711,0)="""RTN"",""RMPRPIYS"",29,0)"
^XMB(3.9,132,2,1712,0)="HCPCS3 D ITEM^RMPRPIYP(RMPRSTN(""IEN""),RMPR1(""HCPCS""),.RMPR11,.RMPREXC)"
^XMB(3.9,132,2,1713,0)="""RTN"",""RMPRPIYS"",30,0)"
^XMB(3.9,132,2,1714,0)=" I RMPREXC=""T"" G PBX"
^XMB(3.9,132,2,1715,0)="""RTN"",""RMPRPIYS"",31,0)"
^XMB(3.9,132,2,1716,0)=" I RMPREXC=""P""!(RMPREXC=""^"") G HCPCS"
^XMB(3.9,132,2,1717,0)="""RTN"",""RMPRPIYS"",32,0)"
^XMB(3.9,132,2,1718,0)="HCPCS3A S RMPR11(""STATION"")=RMPRSTN(""IEN"")"
^XMB(3.9,132,2,1719,0)="""RTN"",""RMPRPIYS"",33,0)"
^XMB(3.9,132,2,1720,0)=" S RMPR11(""STATION IEN"")=RMPRSTN(""IEN"")"
^XMB(3.9,132,2,1721,0)="""RTN"",""RMPRPIYS"",34,0)"
^XMB(3.9,132,2,1722,0)=" ;"
^XMB(3.9,132,2,1723,0)="""RTN"",""RMPRPIYS"",35,0)"
^XMB(3.9,132,2,1724,0)=" ; display selected HCPCS and item and continue"
^XMB(3.9,132,2,1725,0)="""RTN"",""RMPRPIYS"",36,0)"
^XMB(3.9,132,2,1726,0)="HCPCS4 W !!,""HCPCS: ""_RMPR1(""HCPCS"")_"" ""_RMPR1(""SHORT DESC"")"
^XMB(3.9,132,2,1727,0)="""RTN"",""RMPRPIYS"",37,0)"
^XMB(3.9,132,2,1728,0)=" W !!,""IFCAP Item: "",RMPR11(""ITEM MASTER"")"
^XMB(3.9,132,2,1729,0)="""RTN"",""RMPRPIYS"",38,0)"
^XMB(3.9,132,2,1730,0)=" W !!,""PIP Item desc.: "",RMPR11(""DESCRIPTION"")"
^XMB(3.9,132,2,1731,0)="""RTN"",""RMPRPIYS"",39,0)"
^XMB(3.9,132,2,1732,0)=" ;"
^XMB(3.9,132,2,1733,0)="""RTN"",""RMPRPIYS"",40,0)"
^XMB(3.9,132,2,1734,0)=" ;***** CURST - call prompt for current stock record"
^XMB(3.9,132,2,1735,0)="""RTN"",""RMPRPIYS"",41,0)"
^XMB(3.9,132,2,1736,0)="CURST S RMPRLCN="""""
^XMB(3.9,132,2,1737,0)="""RTN"",""RMPRPIYS"",42,0)"
^XMB(3.9,132,2,1738,0)=" D PVEN^RMPRPIYR(RMPRSTN(""IEN""),.RMPRLCN,RMPR11(""HCPCS""),RMPR11(""ITEM""),.RMPR6,.RMPR7,.RMPREXC)"
^XMB(3.9,132,2,1739,0)="""RTN"",""RMPRPIYS"",43,0)"
^XMB(3.9,132,2,1740,0)=" I RMPREXC=""T"" G PBX"
^XMB(3.9,132,2,1741,0)="""RTN"",""RMPRPIYS"",44,0)"
^XMB(3.9,132,2,1742,0)=" I RMPREXC=""P"" G HCPCS3"
^XMB(3.9,132,2,1743,0)="""RTN"",""RMPRPIYS"",45,0)"
^XMB(3.9,132,2,1744,0)=" I RMPREXC=""^"" G HCPCS"
^XMB(3.9,132,2,1745,0)="""RTN"",""RMPRPIYS"",46,0)"
^XMB(3.9,132,2,1746,0)=" I '+$G(RMPR7(""QUANTITY"")) D  G HCPCS2"
^XMB(3.9,132,2,1747,0)="""RTN"",""RMPRPIYS"",47,0)"
^XMB(3.9,132,2,1748,0)=" . W !,""This item is not currently in stock."",!!"
^XMB(3.9,132,2,1749,0)="""RTN"",""RMPRPIYS"",48,0)"
^XMB(3.9,132,2,1750,0)=" . Q"
^XMB(3.9,132,2,1751,0)="""RTN"",""RMPRPIYS"",49,0)"
^XMB(3.9,132,2,1752,0)=" K RMPR7I"
^XMB(3.9,132,2,1753,0)="""RTN"",""RMPRPIYS"",50,0)"
^XMB(3.9,132,2,1754,0)=" S RMPRERR=$$ETOI^RMPRPIX7(.RMPR7,.RMPR7I)"
^XMB(3.9,132,2,1755,0)="""RTN"",""RMPRPIYS"",51,0)"
^XMB(3.9,132,2,1756,0)=" S RMPRBARC=RMPR11(""HCPCS"")_""-""_$P(RMPR7I(""DATE&TIME""),""."",1)_$P(RMPR7I(""DATE&TIME""),""."",2)"
^XMB(3.9,132,2,1757,0)="""RTN"",""RMPRPIYS"",52,0)"
^XMB(3.9,132,2,1758,0)=" S RMPRITXT(""DATE"")=$E(RMPR7I(""DATE&TIME""),4,5)_""/""_$E(RMPR7I(""DATE&TIME""),6,7)_""/""_(1700+$E(RMPR7I(""DATE&TIME""),1,3))"
^XMB(3.9,132,2,1759,0)="""RTN"",""RMPRPIYS"",53,0)"
^XMB(3.9,132,2,1760,0)=" S RMPRITXT(""ITEM"")=RMPR11(""HCPCS-ITEM"")"
^XMB(3.9,132,2,1761,0)="""RTN"",""RMPRPIYS"",54,0)"
^XMB(3.9,132,2,1762,0)=" S RMPRITXT(""MASTER DESC"")=RMPR11(""ITEM MASTER"")"
^XMB(3.9,132,2,1763,0)="""RTN"",""RMPRPIYS"",55,0)"
^XMB(3.9,132,2,1764,0)=" S RMPRITXT(""ITEM DESC"")=RMPR11(""DESCRIPTION"")"
^XMB(3.9,132,2,1765,0)="""RTN"",""RMPRPIYS"",56,0)"
^XMB(3.9,132,2,1766,0)=" S RMPRITXT(""UNIT PRICE"")=+$J(RMPR7(""VALUE"")/RMPR7(""QUANTITY""),0,2)"
^XMB(3.9,132,2,1767,0)="""RTN"",""RMPRPIYS"",57,0)"
^XMB(3.9,132,2,1768,0)=" S RMPRITXT(""VENDOR"")=RMPR6(""VENDOR"")"
^XMB(3.9,132,2,1769,0)="""RTN"",""RMPRPIYS"",58,0)"
^XMB(3.9,132,2,1770,0)=" S RMPRITXT(""LOCATION"")=RMPR7(""LOCATION"")"
^XMB(3.9,132,2,1771,0)="""RTN"",""RMPRPIYS"",59,0)"
^XMB(3.9,132,2,1772,0)=" ;"
^XMB(3.9,132,2,1773,0)="""RTN"",""RMPRPIYS"",60,0)"
^XMB(3.9,132,2,1774,0)=" ;***** NLAB - call prompt for number of labels to print"
^XMB(3.9,132,2,1775,0)="""RTN"",""RMPRPIYS"",61,0)"
^XMB(3.9,132,2,1776,0)="NLAB S RMPRNLAB=RMPR7(""QUANTITY"")"
^XMB(3.9,132,2,1777,0)="""RTN"",""RMPRPIYS"",62,0)"
^XMB(3.9,132,2,1778,0)=" W ! D NLABP(.RMPRNLAB,RMPR7(""QUANTITY""),.RMPREXC)"
^XMB(3.9,132,2,1779,0)="""RTN"",""RMPRPIYS"",63,0)"
^XMB(3.9,132,2,1780,0)=" I RMPREXC=""T"" G PBX"
^XMB(3.9,132,2,1781,0)="""RTN"",""RMPRPIYS"",64,0)"
^XMB(3.9,132,2,1782,0)=" I RMPREXC=""P"" G HCPCS"
^XMB(3.9,132,2,1783,0)="""RTN"",""RMPRPIYS"",65,0)"
^XMB(3.9,132,2,1784,0)=" I RMPREXC=""^"" G HCPCS"
^XMB(3.9,132,2,1785,0)="""RTN"",""RMPRPIYS"",66,0)"
^XMB(3.9,132,2,1786,0)=" ;"
^XMB(3.9,132,2,1787,0)="""RTN"",""RMPRPIYS"",67,0)"
^XMB(3.9,132,2,1788,0)=" ;***** SELP - call prompt for bar code print device"
^XMB(3.9,132,2,1789,0)="""RTN"",""RMPRPIYS"",68,0)"
^XMB(3.9,132,2,1790,0)="SELP D PRINT G HCPCS"
^XMB(3.9,132,2,1791,0)="""RTN"",""RMPRPIYS"",69,0)"
^XMB(3.9,132,2,1792,0)=" G HCPCS"
^XMB(3.9,132,2,1793,0)="""RTN"",""RMPRPIYS"",70,0)"
^XMB(3.9,132,2,1794,0)="PBX D KILL^XUSCLEAN"
^XMB(3.9,132,2,1795,0)="""RTN"",""RMPRPIYS"",71,0)"
^XMB(3.9,132,2,1796,0)=" Q"
^XMB(3.9,132,2,1797,0)="""RTN"",""RMPRPIYS"",72,0)"
^XMB(3.9,132,2,1798,0)=" ;"
^XMB(3.9,132,2,1799,0)="""RTN"",""RMPRPIYS"",73,0)"
^XMB(3.9,132,2,1800,0)=" ;***** PRINT - print bar code labels"
^XMB(3.9,132,2,1801,0)="""RTN"",""RMPRPIYS"",74,0)"
^XMB(3.9,132,2,1802,0)=" ;              requires RMPRNLAB (number of labels) and"
^XMB(3.9,132,2,1803,0)="""RTN"",""RMPRPIYS"",75,0)"
^XMB(3.9,132,2,1804,0)=" ;                       RMPRBCP (bar code printer name) to be set"
^XMB(3.9,132,2,1805,0)="""RTN"",""RMPRPIYS"",76,0)"
^XMB(3.9,132,2,1806,0)=" ;                       RMPRBARC (bar code to print)"
^XMB(3.9,132,2,1807,0)="""RTN"",""RMPRPIYS"",77,0)"
^XMB(3.9,132,2,1808,0)=" ;                       RMPRIOP (the device to open)"
^XMB(3.9,132,2,1809,0)="""RTN"",""RMPRPIYS"",78,0)"
^XMB(3.9,132,2,1810,0)="PRINT I '$D(RMPRNLAB) S RMPRNLAB=1"
^XMB(3.9,132,2,1811,0)="""RTN"",""RMPRPIYS"",79,0)"
^XMB(3.9,132,2,1812,0)=" ;allows queing of bar code labels"
^XMB(3.9,132,2,1813,0)="""RTN"",""RMPRPIYS"",80,0)"
^XMB(3.9,132,2,1814,0)="SELD S %ZIS(""A"")=""Select Bar Code Printer: """
^XMB(3.9,132,2,1815,0)="""RTN"",""RMPRPIYS"",81,0)"
^XMB(3.9,132,2,1816,0)=" S %ZIS=""QM"" K IOP W ! D ^%ZIS G:POP PRINTX"
^XMB(3.9,132,2,1817,0)="""RTN"",""RMPRPIYS"",82,0)"
^XMB(3.9,132,2,1818,0)=" I $G(IOST)'[""P-ZEBRA"" D"
^XMB(3.9,132,2,1819,0)="""RTN"",""RMPRPIYS"",83,0)"
^XMB(3.9,132,2,1820,0)=" . W !!,""** WARNING - This is NOT a Zebra Bar Code Printer!!"",!!"
^XMB(3.9,132,2,1821,0)="""RTN"",""RMPRPIYS"",84,0)"
^XMB(3.9,132,2,1822,0)=" I '$D(IO(""Q"")) U IO G PNOW"
^XMB(3.9,132,2,1823,0)="""RTN"",""RMPRPIYS"",85,0)"
^XMB(3.9,132,2,1824,0)=" K IO(""Q"") S ZTDESC=""PRINT BAR CODE LABELS"",ZTRTN=""PNOW^RMPRPIYS"""
^XMB(3.9,132,2,1825,0)="""RTN"",""RMPRPIYS"",86,0)"
^XMB(3.9,132,2,1826,0)=" S ZTIO=ION,ZTSAVE(""RMPRBARC"")="""",ZTSAVE(""RMPRITXT("")="""""
^XMB(3.9,132,2,1827,0)="""RTN"",""RMPRPIYS"",87,0)"
^XMB(3.9,132,2,1828,0)=" S ZTSAVE(""RMPRNLAB"")="""",ZTSAVE(""RMPR("")="""",ZTSAVE(""RMPRSTN("")="""""
^XMB(3.9,132,2,1829,0)="""RTN"",""RMPRPIYS"",88,0)"
^XMB(3.9,132,2,1830,0)=" D ^%ZTLOAD W:$D(ZTSK) !,""REQUEST QUEUED!"" H 2 G PRINTC"
^XMB(3.9,132,2,1831,0)="""RTN"",""RMPRPIYS"",89,0)"
^XMB(3.9,132,2,1832,0)=" ;"
^XMB(3.9,132,2,1833,0)="""RTN"",""RMPRPIYS"",90,0)"
^XMB(3.9,132,2,1834,0)="PNOW ;jump here if not queued."
^XMB(3.9,132,2,1835,0)="""RTN"",""RMPRPIYS"",91,0)"
^XMB(3.9,132,2,1836,0)=" D ZPLII^RMPRPI11(RMPRBARC,.RMPRITXT,RMPRNLAB)"
^XMB(3.9,132,2,1837,0)="""RTN"",""RMPRPIYS"",92,0)"
^XMB(3.9,132,2,1838,0)=" S IONOFF=1"
^XMB(3.9,132,2,1839,0)="""RTN"",""RMPRPIYS"",93,0)"
^XMB(3.9,132,2,1840,0)="PRINTC D ^%ZISC K IONOFF"
^XMB(3.9,132,2,1841,0)="""RTN"",""RMPRPIYS"",94,0)"
^XMB(3.9,132,2,1842,0)="PRINTX Q"
^XMB(3.9,132,2,1843,0)="""RTN"",""RMPRPIYS"",95,0)"
^XMB(3.9,132,2,1844,0)=" ;"
^XMB(3.9,132,2,1845,0)="""RTN"",""RMPRPIYS"",96,0)"
^XMB(3.9,132,2,1846,0)=" ;***** NLABP - Number of labels prompt"
^XMB(3.9,132,2,1847,0)="""RTN"",""RMPRPIYS"",97,0)"
^XMB(3.9,132,2,1848,0)="NLABP(RMPRNLAB,RMPRMAX,RMPREXC) ;"
^XMB(3.9,132,2,1849,0)="""RTN"",""RMPRPIYS"",98,0)"
^XMB(3.9,132,2,1850,0)=" N RMPRERR,DIR,X,Y,DUOUT,DTOUT,DIROUT,DIRUT,DA"
^XMB(3.9,132,2,1851,0)="""RTN"",""RMPRPIYS"",99,0)"
^XMB(3.9,132,2,1852,0)=" S RMPRNLAB=$G(RMPRNLAB)"
^XMB(3.9,132,2,1853,0)="""RTN"",""RMPRPIYS"",100,0)"
^XMB(3.9,132,2,1854,0)=" S RMPRERR=0"
^XMB(3.9,132,2,1855,0)="""RTN"",""RMPRPIYS"",101,0)"
^XMB(3.9,132,2,1856,0)=" S DIR(0)=""NAO^1:""_RMPRMAX_"":0"""
^XMB(3.9,132,2,1857,0)="""RTN"",""RMPRPIYS"",102,0)"
^XMB(3.9,132,2,1858,0)=" S DIR(""A"")=""Number of Labels to print: """
^XMB(3.9,132,2,1859,0)="""RTN"",""RMPRPIYS"",103,0)"
^XMB(3.9,132,2,1860,0)=" S:RMPRNLAB'="""" DIR(""B"")=RMPRNLAB"
^XMB(3.9,132,2,1861,0)="""RTN"",""RMPRPIYS"",104,0)"
^XMB(3.9,132,2,1862,0)=" S DIR(""??"")=""^D NLABPH2^RMPRPIYS"""
^XMB(3.9,132,2,1863,0)="""RTN"",""RMPRPIYS"",105,0)"
^XMB(3.9,132,2,1864,0)=" D ^DIR"
^XMB(3.9,132,2,1865,0)="""RTN"",""RMPRPIYS"",106,0)"
^XMB(3.9,132,2,1866,0)=" I $D(DTOUT) S RMPREXC=""T"" G NLABPX"
^XMB(3.9,132,2,1867,0)="""RTN"",""RMPRPIYS"",107,0)"
^XMB(3.9,132,2,1868,0)=" I $D(DIROUT) S RMPREXC=""P"" G NLABPX"
^XMB(3.9,132,2,1869,0)="""RTN"",""RMPRPIYS"",108,0)"
^XMB(3.9,132,2,1870,0)=" I X=""""!(X[""^"")!($D(DUOUT)) S RMPREXC=""^"" G NLABPX"
^XMB(3.9,132,2,1871,0)="""RTN"",""RMPRPIYS"",109,0)"
^XMB(3.9,132,2,1872,0)=" S RMPREXC="""""
^XMB(3.9,132,2,1873,0)="""RTN"",""RMPRPIYS"",110,0)"
^XMB(3.9,132,2,1874,0)=" S RMPRNLAB=+Y"
^XMB(3.9,132,2,1875,0)="""RTN"",""RMPRPIYS"",111,0)"
^XMB(3.9,132,2,1876,0)="NLABPX Q"
^XMB(3.9,132,2,1877,0)="""RTN"",""RMPRPIYS"",112,0)"
^XMB(3.9,132,2,1878,0)="NLABPH2 W ""Type in the number of bar code labels you want to print for the"",!"
^XMB(3.9,132,2,1879,0)="""RTN"",""RMPRPIYS"",113,0)"
^XMB(3.9,132,2,1880,0)=" W ""inventory item you have selected."",!"
^XMB(3.9,132,2,1881,0)="""RTN"",""RMPRPIYS"",114,0)"
^XMB(3.9,132,2,1882,0)=" Q"
^XMB(3.9,132,2,1883,0)="""RTN"",""RMPRPIYS"",115,0)"
^XMB(3.9,132,2,1884,0)=" ;"
^XMB(3.9,132,2,1885,0)="""RTN"",""RMPRPIYS"",116,0)"
^XMB(3.9,132,2,1886,0)=" ;***** BARC - bar code prompt"
^XMB(3.9,132,2,1887,0)="""RTN"",""RMPRPIYS"",117,0)"
^XMB(3.9,132,2,1888,0)="BARC(RMPRBARC,RMPREXC) ;"
^XMB(3.9,132,2,1889,0)="""RTN"",""RMPRPIYS"",118,0)"
^XMB(3.9,132,2,1890,0)=" N RMPRERR,DIR,X,Y,DUOUT,DTOUT,DIROUT,DIRUT,DA"
^XMB(3.9,132,2,1891,0)="""RTN"",""RMPRPIYS"",119,0)"
^XMB(3.9,132,2,1892,0)=" S RMPRBARC="""""
^XMB(3.9,132,2,1893,0)="""RTN"",""RMPRPIYS"",120,0)"
^XMB(3.9,132,2,1894,0)=" S RMPREXC="""""
^XMB(3.9,132,2,1895,0)="""RTN"",""RMPRPIYS"",121,0)"
^XMB(3.9,132,2,1896,0)=" S RMPRERR=0"
^XMB(3.9,132,2,1897,0)="""RTN"",""RMPRPIYS"",122,0)"
^XMB(3.9,132,2,1898,0)=" S DIR(0)=""FAO"""
^XMB(3.9,132,2,1899,0)="""RTN"",""RMPRPIYS"",123,0)"
^XMB(3.9,132,2,1900,0)=" S DIR(""A"")=""Scan in item bar code: """
^XMB(3.9,132,2,1901,0)="""RTN"",""RMPRPIYS"",124,0)"
^XMB(3.9,132,2,1902,0)=" S DIR(""?"")=""^D BARCH^RMPRPIYS"""
^XMB(3.9,132,2,1903,0)="""RTN"",""RMPRPIYS"",125,0)"
^XMB(3.9,132,2,1904,0)="BARC1 D ^DIR"
^XMB(3.9,132,2,1905,0)="""RTN"",""RMPRPIYS"",126,0)"
^XMB(3.9,132,2,1906,0)=" I $D(DTOUT) S RMPREXC=""T"" G BARCX"
^XMB(3.9,132,2,1907,0)="""RTN"",""RMPRPIYS"",127,0)"
^XMB(3.9,132,2,1908,0)=" I $D(DIROUT) S RMPREXC=""P"" G BARCX"
^XMB(3.9,132,2,1909,0)="""RTN"",""RMPRPIYS"",128,0)"
^XMB(3.9,132,2,1910,0)=" I X[""^""!($D(DUOUT)) S RMPREXC=""^"" G BARCX"
^XMB(3.9,132,2,1911,0)="""RTN"",""RMPRPIYS"",129,0)"
^XMB(3.9,132,2,1912,0)=" I X="""",$G(REDIT) G BARCX"
^XMB(3.9,132,2,1913,0)="""RTN"",""RMPRPIYS"",130,0)"
^XMB(3.9,132,2,1914,0)=" I X="""" G BARC1"
^XMB(3.9,132,2,1915,0)="""RTN"",""RMPRPIYS"",131,0)"
^XMB(3.9,132,2,1916,0)=" S RMPRBARC=X"
^XMB(3.9,132,2,1917,0)="""RTN"",""RMPRPIYS"",132,0)"
^XMB(3.9,132,2,1918,0)="BARCX Q"
^XMB(3.9,132,2,1919,0)="""RTN"",""RMPRPIYS"",133,0)"
^XMB(3.9,132,2,1920,0)="BARCH W ""If you have access to a bar code scanner, use it to scan the item bar code now."",!"
^XMB(3.9,132,2,1921,0)="""RTN"",""RMPRPIYS"",134,0)"
^XMB(3.9,132,2,1922,0)=" W ""Don't press the [Enter] key as the scanner should do this automatically."",!"
^XMB(3.9,132,2,1923,0)="""RTN"",""RMPRPIYS"",135,0)"
^XMB(3.9,132,2,1924,0)=" W ""If the scanner cannot read the bar code, type in the character sequence"",!"
^XMB(3.9,132,2,1925,0)="""RTN"",""RMPRPIYS"",136,0)"
^XMB(3.9,132,2,1926,0)=" W ""immediately below the bar code."",!"
^XMB(3.9,132,2,1927,0)="""RTN"",""RMPRPIYS"",137,0)"
^XMB(3.9,132,2,1928,0)=" ;W ""If there is no bar code or you prefer to enter the transaction manually"",!"
^XMB(3.9,132,2,1929,0)="""RTN"",""RMPRPIYS"",138,0)"
^XMB(3.9,132,2,1930,0)=" ;W ""leave this prompt blank."",!"
^XMB(3.9,132,2,1931,0)="""RTN"",""RMPRPIYS"",139,0)"
^XMB(3.9,132,2,1932,0)=" Q"
^XMB(3.9,132,2,1933,0)="""RTN"",""RMPRPIYS"",140,0)"
^XMB(3.9,132,2,1934,0)=" ;"
^XMB(3.9,132,2,1935,0)="""RTN"",""RMPRPIYS"",141,0)"
^XMB(3.9,132,2,1936,0)=" ;***** SCAN - scan bar code and set up stock issue vars."
^XMB(3.9,132,2,1937,0)="""RTN"",""RMPRPIYS"",142,0)"
^XMB(3.9,132,2,1938,0)=" ;             (to be called by RMPRPIYI (too big))"
^XMB(3.9,132,2,1939,0)="""RTN"",""RMPRPIYS"",143,0)"
^XMB(3.9,132,2,1940,0)="SCAN K RMPR7,RMPR7I,RMPR1,RMPR1I,RMPR11,RMPR11I,RMPR6,RMDAHC,RMITQTY"
^XMB(3.9,132,2,1941,0)="""RTN"",""RMPRPIYS"",144,0)"
^XMB(3.9,132,2,1942,0)="SCAN1 D BARC(.RMPRBARC,.RMPREXC)"
^XMB(3.9,132,2,1943,0)="""RTN"",""RMPRPIYS"",145,0)"
^XMB(3.9,132,2,1944,0)=" I RMPREXC'="""" S RMPRBARC="""" G SCANX"
^XMB(3.9,132,2,1945,0)="""RTN"",""RMPRPIYS"",146,0)"
^XMB(3.9,132,2,1946,0)=" I RMPRBARC="""" G SCANX"
^XMB(3.9,132,2,1947,0)="""RTN"",""RMPRPIYS"",147,0)"
^XMB(3.9,132,2,1948,0)=" S RMPRBARC=$$UPCASE(RMPRBARC)"
^XMB(3.9,132,2,1949,0)="""RTN"",""RMPRPIYS"",148,0)"
^XMB(3.9,132,2,1950,0)=" ;"
^XMB(3.9,132,2,1951,0)="""RTN"",""RMPRPIYS"",149,0)"
^XMB(3.9,132,2,1952,0)=" ; If we get a good bar code then populate all the fields and go"
^XMB(3.9,132,2,1953,0)="""RTN"",""RMPRPIYS"",150,0)"
^XMB(3.9,132,2,1954,0)=" ; straight to the Post/Edit prompt"
^XMB(3.9,132,2,1955,0)="""RTN"",""RMPRPIYS"",151,0)"
^XMB(3.9,132,2,1956,0)=" K RMPR7"
^XMB(3.9,132,2,1957,0)="""RTN"",""RMPRPIYS"",152,0)"
^XMB(3.9,132,2,1958,0)=" S (RMPR7(""STATION""),RMPRSTN)=RMPR(""STA"")"
^XMB(3.9,132,2,1959,0)="""RTN"",""RMPRPIYS"",153,0)"
^XMB(3.9,132,2,1960,0)=" S RMPR7(""HCPCS"")=$P(RMPRBARC,""-"",1)"
^XMB(3.9,132,2,1961,0)="""RTN"",""RMPRPIYS"",154,0)"
^XMB(3.9,132,2,1962,0)=" S RMDAHC=$O(^RMPR(661.1,""B"",RMPR7(""HCPCS""),0))"
^XMB(3.9,132,2,1963,0)="""RTN"",""RMPRPIYS"",155,0)"
^XMB(3.9,132,2,1964,0)=" I $G(RMDAHC),$D(^RMPR(661.1,RMDAHC,0)),($P(^RMPR(661.1,RMDAHC,0),U,5)'=1) S RMDAHC=$P(^RMPR(661.1,RMDAHC,0),U,3)"
^XMB(3.9,132,2,1965,0)="""RTN"",""RMPRPIYS"",156,0)"
^XMB(3.9,132,2,1966,0)=" I '$G(RMDAHC) W !,""** No HCPCS Selected or Unable to Select Inactive HCPCS..."" G SCAN"
^XMB(3.9,132,2,1967,0)="""RTN"",""RMPRPIYS"",157,0)"
^XMB(3.9,132,2,1968,0)=" S RMPR7(""DATE&TIME"")=$E($P(RMPRBARC,""-"",2),1,7)_"".""_$E($P(RMPRBARC,""-"",2),8,$L(RMPRBARC))"
^XMB(3.9,132,2,1969,0)="""RTN"",""RMPRPIYS"",158,0)"
^XMB(3.9,132,2,1970,0)=" ;"
^XMB(3.9,132,2,1971,0)="""RTN"",""RMPRPIYS"",159,0)"
^XMB(3.9,132,2,1972,0)=" ; look up current stock record with bar coded key fields"
^XMB(3.9,132,2,1973,0)="""RTN"",""RMPRPIYS"",160,0)"
^XMB(3.9,132,2,1974,0)=" S RMPRERR=$$SCAN^RMPRPIUA(.RMPR7,.RMPREXC)"
^XMB(3.9,132,2,1975,0)="""RTN"",""RMPRPIYS"",161,0)"
^XMB(3.9,132,2,1976,0)=" I $G(RMPR7(""IEN""))="""" W !,""*** The Item scanned is not available, please update your inventory !!!"" G SCAN1"
^XMB(3.9,132,2,1977,0)="""RTN"",""RMPRPIYS"",162,0)"
^XMB(3.9,132,2,1978,0)=" I RMPRERR D SCANE G SCAN1"
^XMB(3.9,132,2,1979,0)="""RTN"",""RMPRPIYS"",163,0)"
^XMB(3.9,132,2,1980,0)=" S RMPRERR=$$ETOI^RMPRPIX7(.RMPR7,.RMPR7I)"
^XMB(3.9,132,2,1981,0)="""RTN"",""RMPRPIYS"",164,0)"
^XMB(3.9,132,2,1982,0)=" I RMPRERR D SCANE G SCAN1"
^XMB(3.9,132,2,1983,0)="""RTN"",""RMPRPIYS"",165,0)"
^XMB(3.9,132,2,1984,0)=" S R1(""DATE&TIME"")=$G(RMPR7I(""DATE&TIME""))"
^XMB(3.9,132,2,1985,0)="""RTN"",""RMPRPIYS"",166,0)"
^XMB(3.9,132,2,1986,0)=" S $P(R1(0),U,8)=$G(RMPR7I(""UNIT""))"
^XMB(3.9,132,2,1987,0)="""RTN"",""RMPRPIYS"",167,0)"
^XMB(3.9,132,2,1988,0)=" ;"
^XMB(3.9,132,2,1989,0)="""RTN"",""RMPRPIYS"",168,0)"
^XMB(3.9,132,2,1990,0)=" ; set vars. for HCPCS"
^XMB(3.9,132,2,1991,0)="""RTN"",""RMPRPIYS"",169,0)"
^XMB(3.9,132,2,1992,0)=" K RMPR1,RMPR1I"
^XMB(3.9,132,2,1993,0)="""RTN"",""RMPRPIYS"",170,0)"
^XMB(3.9,132,2,1994,0)=" S RMPR1(""HCPCS"")=RMPR7(""HCPCS"")"
^XMB(3.9,132,2,1995,0)="""RTN"",""RMPRPIYS"",171,0)"
^XMB(3.9,132,2,1996,0)=" S RMPRERR=$$HPACT^RMPRPIX1(.RMPR1)"
^XMB(3.9,132,2,1997,0)="""RTN"",""RMPRPIYS"",172,0)"
^XMB(3.9,132,2,1998,0)=" I RMPRERR D SCANE G SCAN1"
^XMB(3.9,132,2,1999,0)="""RTN"",""RMPRPIYS"",173,0)"
^XMB(3.9,132,2,2000,0)=" S RMPRERR=$$HPETOI^RMPRPIX1(.RMPR1,.RMPR1I)"
^XMB(3.9,132,2,2001,0)="""RTN"",""RMPRPIYS"",174,0)"
^XMB(3.9,132,2,2002,0)=" I RMPRERR D SCANE G SCAN1"
^XMB(3.9,132,2,2003,0)="""RTN"",""RMPRPIYS"",175,0)"
^XMB(3.9,132,2,2004,0)=" ;"
^XMB(3.9,132,2,2005,0)="""RTN"",""RMPRPIYS"",176,0)"
^XMB(3.9,132,2,2006,0)=" ; set vars. for Item"
^XMB(3.9,132,2,2007,0)="""RTN"",""RMPRPIYS"",177,0)"
^XMB(3.9,132,2,2008,0)=" K RMPR11,RMPR11I"
^XMB(3.9,132,2,2009,0)="""RTN"",""RMPRPIYS"",178,0)"
^XMB(3.9,132,2,2010,0)=" S RMPR11(""STATION"")=RMPR(""STA"")"
^XMB(3.9,132,2,2011,0)="""RTN"",""RMPRPIYS"",179,0)"
^XMB(3.9,132,2,2012,0)=" S RMPR11(""HCPCS"")=RMPR7(""HCPCS"")"
^XMB(3.9,132,2,2013,0)="""RTN"",""RMPRPIYS"",180,0)"
^XMB(3.9,132,2,2014,0)=" S RMPR11(""ITEM"")=RMPR7(""ITEM"")"
^XMB(3.9,132,2,2015,0)="""RTN"",""RMPRPIYS"",181,0)"
^XMB(3.9,132,2,2016,0)=" S RMPRERR=$$GET^RMPRPIX1(.RMPR11)"
^XMB(3.9,132,2,2017,0)="""RTN"",""RMPRPIYS"",182,0)"
^XMB(3.9,132,2,2018,0)=" I RMPRERR D SCANE G SCAN1"
^XMB(3.9,132,2,2019,0)="""RTN"",""RMPRPIYS"",183,0)"
^XMB(3.9,132,2,2020,0)=" S RMPRERR=$$ETOI^RMPRPIX1(.RMPR11,.RMPR11I)"
^XMB(3.9,132,2,2021,0)="""RTN"",""RMPRPIYS"",184,0)"
^XMB(3.9,132,2,2022,0)=" I RMPRERR D SCANE G SCAN1"
^XMB(3.9,132,2,2023,0)="""RTN"",""RMPRPIYS"",185,0)"
^XMB(3.9,132,2,2024,0)=" I RMPR11I(""ITEM MASTER IEN"")="""" D  G SCAN1"
^XMB(3.9,132,2,2025,0)="""RTN"",""RMPRPIYS"",186,0)"
^XMB(3.9,132,2,2026,0)=" . W !,""This item is not associated with an IFCAP Item."",!"
^XMB(3.9,132,2,2027,0)="""RTN"",""RMPRPIYS"",187,0)"
^XMB(3.9,132,2,2028,0)=" . W ""Please use the Edit Inventory option before trying to issue this item."""
^XMB(3.9,132,2,2029,0)="""RTN"",""RMPRPIYS"",188,0)"
^XMB(3.9,132,2,2030,0)=" . W !"
^XMB(3.9,132,2,2031,0)="""RTN"",""RMPRPIYS"",189,0)"
^XMB(3.9,132,2,2032,0)=" . Q"
^XMB(3.9,132,2,2033,0)="""RTN"",""RMPRPIYS"",190,0)"
^XMB(3.9,132,2,2034,0)=" ;S RMDAHC=RMPR1(""IEN"")"
^XMB(3.9,132,2,2035,0)="""RTN"",""RMPRPIYS"",191,0)"
^XMB(3.9,132,2,2036,0)=" D CPT(RMDAHC_""^""_$P(R1(0),U,4)_""^""_RMPR11I(""SOURCE"")_""^660"")"
^XMB(3.9,132,2,2037,0)="""RTN"",""RMPRPIYS"",192,0)"
^XMB(3.9,132,2,2038,0)=" I RMPREXC=""T"" G SCANX"
^XMB(3.9,132,2,2039,0)="""RTN"",""RMPRPIYS"",193,0)"
^XMB(3.9,132,2,2040,0)=" I RMPREXC'="""" G SCAN1"
^XMB(3.9,132,2,2041,0)="""RTN"",""RMPRPIYS"",194,0)"
^XMB(3.9,132,2,2042,0)=" ;"
^XMB(3.9,132,2,2043,0)="""RTN"",""RMPRPIYS"",195,0)"
^XMB(3.9,132,2,2044,0)=" ; get Vendor"
^XMB(3.9,132,2,2045,0)="""RTN"",""RMPRPIYS"",196,0)"
^XMB(3.9,132,2,2046,0)=" S RMPR6(""DATE&TIME"")=RMPR7I(""DATE&TIME"")"
^XMB(3.9,132,2,2047,0)="""RTN"",""RMPRPIYS"",197,0)"
^XMB(3.9,132,2,2048,0)=" S RMPR6(""HCPCS"")=RMPR7(""HCPCS"")"
^XMB(3.9,132,2,2049,0)="""RTN"",""RMPRPIYS"",198,0)"
^XMB(3.9,132,2,2050,0)=" S RMPR6(""SEQUENCE"")=RMPR7(""SEQUENCE"")"
^XMB(3.9,132,2,2051,0)="""RTN"",""RMPRPIYS"",199,0)"
^XMB(3.9,132,2,2052,0)=" S RMPRERR=$$GET^RMPRPIX6(.RMPR6)"
^XMB(3.9,132,2,2053,0)="""RTN"",""RMPRPIYS"",200,0)"
^XMB(3.9,132,2,2054,0)=" I RMPRERR D SCANE G SCAN1"
^XMB(3.9,132,2,2055,0)="""RTN"",""RMPRPIYS"",201,0)"
^XMB(3.9,132,2,2056,0)=" S RMPRERR=$$VNDIEN^RMPRPIX6(.RMPR6)"
^XMB(3.9,132,2,2057,0)="""RTN"",""RMPRPIYS"",202,0)"
^XMB(3.9,132,2,2058,0)=" I RMPRERR D SCANE G SCAN1"
^XMB(3.9,132,2,2059,0)="""RTN"",""RMPRPIYS"",203,0)"
^XMB(3.9,132,2,2060,0)=" S $P(R1(0),U,9)=RMPR6(""VENDOR IEN"")"
^XMB(3.9,132,2,2061,0)="""RTN"",""RMPRPIYS"",204,0)"
^XMB(3.9,132,2,2062,0)=" S $P(R3(""D""),U,9)=RMPR6(""VENDOR"")"
^XMB(3.9,132,2,2063,0)="""RTN"",""RMPRPIYS"",205,0)"
^XMB(3.9,132,2,2064,0)=" ;"
^XMB(3.9,132,2,2065,0)="""RTN"",""RMPRPIYS"",206,0)"
^XMB(3.9,132,2,2066,0)=" ; set vars for issue"
^XMB(3.9,132,2,2067,0)="""RTN"",""RMPRPIYS"",207,0)"
^XMB(3.9,132,2,2068,0)=" S RMCPTC="""""
^XMB(3.9,132,2,2069,0)="""RTN"",""RMPRPIYS"",208,0)"
^XMB(3.9,132,2,2070,0)=" I $G(RMDAHC),$D(^RMPR(661.1,RMDAHC,0)) S RMCPTC=$P(^RMPR(661.1,RMDAHC,0),U,4)"
^XMB(3.9,132,2,2071,0)="""RTN"",""RMPRPIYS"",209,0)"
^XMB(3.9,132,2,2072,0)=" S $P(R1(1),U,4)=RMDAHC"
^XMB(3.9,132,2,2073,0)="""RTN"",""RMPRPIYS"",210,0)"
^XMB(3.9,132,2,2074,0)=" S $P(R1(0),U,22)=$G(RMCPTC)"
^XMB(3.9,132,2,2075,0)="""RTN"",""RMPRPIYS"",211,0)"
^XMB(3.9,132,2,2076,0)=" S $P(R1(0),U,6)=RMPR11I(""ITEM MASTER IEN"")"
^XMB(3.9,132,2,2077,0)="""RTN"",""RMPRPIYS"",212,0)"
^XMB(3.9,132,2,2078,0)=" S (RMHCNEW,RMHCDA)=RMDAHC"
^XMB(3.9,132,2,2079,0)="""RTN"",""RMPRPIYS"",213,0)"
^XMB(3.9,132,2,2080,0)=" S RMITDA=RMPR11(""IEN"")"
^XMB(3.9,132,2,2081,0)="""RTN"",""RMPRPIYS"",214,0)"
^XMB(3.9,132,2,2082,0)=" S RMHCPC=RMPR11(""HCPCS"")"
^XMB(3.9,132,2,2083,0)="""RTN"",""RMPRPIYS"",215,0)"
^XMB(3.9,132,2,2084,0)=" S RMIT=RMPR11(""HCPCS-ITEM"")"
^XMB(3.9,132,2,2085,0)="""RTN"",""RMPRPIYS"",216,0)"
^XMB(3.9,132,2,2086,0)=" S RDESC=RMPR1(""SHORT DESC"")"
^XMB(3.9,132,2,2087,0)="""RTN"",""RMPRPIYS"",217,0)"
^XMB(3.9,132,2,2088,0)=" S $P(R3(""D""),U,14)=RMPR11(""SOURCE"")"
^XMB(3.9,132,2,2089,0)="""RTN"",""RMPRPIYS"",218,0)"
^XMB(3.9,132,2,2090,0)=" S RMSO=RMPR11I(""SOURCE"")"
^XMB(3.9,132,2,2091,0)="""RTN"",""RMPRPIYS"",219,0)"
^XMB(3.9,132,2,2092,0)=" S $P(R1(0),U,14)=RMSO"
^XMB(3.9,132,2,2093,0)="""RTN"",""RMPRPIYS"",220,0)"
^XMB(3.9,132,2,2094,0)=" S $P(R3(""D""),U,6)=RMPR11(""ITEM MASTER"")"
^XMB(3.9,132,2,2095,0)="""RTN"",""RMPRPIYS"",221,0)"
^XMB(3.9,132,2,2096,0)=" S $P(R1(0),U,6)=RMPR11I(""ITEM MASTER IEN"")"
^XMB(3.9,132,2,2097,0)="""RTN"",""RMPRPIYS"",222,0)"
^XMB(3.9,132,2,2098,0)=" S $P(R1(2),U,1)=RMIT"
^XMB(3.9,132,2,2099,0)="""RTN"",""RMPRPIYS"",223,0)"
^XMB(3.9,132,2,2100,0)=" S $P(R1(2),U,2)=RMPR11(""DESCRIPTION"")"
^XMB(3.9,132,2,2101,0)="""RTN"",""RMPRPIYS"",224,0)"
^XMB(3.9,132,2,2102,0)=" S RMLOC=RMPR7I(""LOCATION""),RMUBA=0,RMPR11(""ITEM"")=$P(RMIT,""-"",2)"
^XMB(3.9,132,2,2103,0)="""RTN"",""RMPRPIYS"",225,0)"
^XMB(3.9,132,2,2104,0)=" S RMPR11(""LOCATION"")=RMLOC,RMPR11(""STATION"")=RMPRSTN"
^XMB(3.9,132,2,2105,0)="""RTN"",""RMPRPIYS"",226,0)"
^XMB(3.9,132,2,2106,0)=" I '$G(RMPR11(""LOCATION"")) S RMUBA=RMPR7(""QUANTITY"")"
^XMB(3.9,132,2,2107,0)="""RTN"",""RMPRPIYS"",227,0)"
^XMB(3.9,132,2,2108,0)=" S:'$G(RMUBA) RMUBA=$$BAL^RMPRPIX7(.RMPR11)"
^XMB(3.9,132,2,2109,0)="""RTN"",""RMPRPIYS"",228,0)"
^XMB(3.9,132,2,2110,0)=" S RMITQTY=RMPR7(""QUANTITY"")"
^XMB(3.9,132,2,2111,0)="""RTN"",""RMPRPIYS"",229,0)"
^XMB(3.9,132,2,2112,0)=" K RMPR5"
^XMB(3.9,132,2,2113,0)="""RTN"",""RMPRPIYS"",230,0)"
^XMB(3.9,132,2,2114,0)=" S RMPR5(""IEN"")=RMLOC"
^XMB(3.9,132,2,2115,0)="""RTN"",""RMPRPIYS"",231,0)"
^XMB(3.9,132,2,2116,0)=" S RMPRUCST=RMPR7(""VALUE"")/RMPR7(""QUANTITY"")"
^XMB(3.9,132,2,2117,0)="""RTN"",""RMPRPIYS"",232,0)"
^XMB(3.9,132,2,2118,0)=" S $P(R1(0),U,16)=$J(RMPRUCST,0,2)"
^XMB(3.9,132,2,2119,0)="""RTN"",""RMPRPIYS"",233,0)"
^XMB(3.9,132,2,2120,0)=" S $P(R3(""D""),U,16)=$J(RMPRUCST,0,2)"
^XMB(3.9,132,2,2121,0)="""RTN"",""RMPRPIYS"",234,0)"
^XMB(3.9,132,2,2122,0)=" S $P(R1(0),U,7)=1   ;qty."
^XMB(3.9,132,2,2123,0)="""RTN"",""RMPRPIYS"",235,0)"
^XMB(3.9,132,2,2124,0)=" S $P(R1(0),U,11)="""" ;serial num"
^XMB(3.9,132,2,2125,0)="""RTN"",""RMPRPIYS"",236,0)"
^XMB(3.9,132,2,2126,0)=" S $P(R1(0),U,24)="""" ;lot num"
^XMB(3.9,132,2,2127,0)="""RTN"",""RMPRPIYS"",237,0)"
^XMB(3.9,132,2,2128,0)=" S $P(R1(0),U,18)="""" ;remarks"
^XMB(3.9,132,2,2129,0)="""RTN"",""RMPRPIYS"",238,0)"
^XMB(3.9,132,2,2130,0)="SCANX Q"
^XMB(3.9,132,2,2131,0)="""RTN"",""RMPRPIYS"",239,0)"
^XMB(3.9,132,2,2132,0)="SCANE W !,""A problem has occurred with the scan, please try again."",!"
^XMB(3.9,132,2,2133,0)="""RTN"",""RMPRPIYS"",240,0)"
^XMB(3.9,132,2,2134,0)=" Q"
^XMB(3.9,132,2,2135,0)="""RTN"",""RMPRPIYS"",241,0)"
^XMB(3.9,132,2,2136,0)=" ;"
^XMB(3.9,132,2,2137,0)="""RTN"",""RMPRPIYS"",242,0)"
^XMB(3.9,132,2,2138,0)=" ;***** CPT - prompt for CPT modifier"
^XMB(3.9,132,2,2139,0)="""RTN"",""RMPRPIYS"",243,0)"
^XMB(3.9,132,2,2140,0)=" ; (extension of RMPRPIYI and to be used only by that routine)"
^XMB(3.9,132,2,2141,0)="""RTN"",""RMPRPIYS"",244,0)"
^XMB(3.9,132,2,2142,0)="CPT(RDA) ;"
^XMB(3.9,132,2,2143,0)="""RTN"",""RMPRPIYS"",245,0)"
^XMB(3.9,132,2,2144,0)=" N DIC,Y,RQUIT,X,DA,DIR,DUOUT,DTOUT"
^XMB(3.9,132,2,2145,0)="""RTN"",""RMPRPIYS"",246,0)"
^XMB(3.9,132,2,2146,0)=" N RMPR1,RMPR11,RMPR11I,RMPR7,RMPR7I"
^XMB(3.9,132,2,2147,0)="""RTN"",""RMPRPIYS"",247,0)"
^XMB(3.9,132,2,2148,0)=" S RMPREXC="""""
^XMB(3.9,132,2,2149,0)="""RTN"",""RMPRPIYS"",248,0)"
^XMB(3.9,132,2,2150,0)=" D:$D(RMCPT) CHK^RMPRED5"
^XMB(3.9,132,2,2151,0)="""RTN"",""RMPRPIYS"",249,0)"
^XMB(3.9,132,2,2152,0)=" W:$G(REDIT) !,""OLD CPT MODIFIER: "",$P(R1(1),U,6)"
^XMB(3.9,132,2,2153,0)="""RTN"",""RMPRPIYS"",250,0)"
^XMB(3.9,132,2,2154,0)=" I RMHCOLD'=RMDAHC D CPT^RMPRCPTU(RDA)"
^XMB(3.9,132,2,2155,0)="""RTN"",""RMPRPIYS"",251,0)"
^XMB(3.9,132,2,2156,0)=" I $D(DUOUT) S RMPREXC=""^"" G CPTX"
^XMB(3.9,132,2,2157,0)="""RTN"",""RMPRPIYS"",252,0)"
^XMB(3.9,132,2,2158,0)=" I $D(DTOUT) S RMPREXC=""T"" G CPTX"
^XMB(3.9,132,2,2159,0)="""RTN"",""RMPRPIYS"",253,0)"
^XMB(3.9,132,2,2160,0)=" S $P(R1(1),U,6)=$G(RMCPT)"
^XMB(3.9,132,2,2161,0)="""RTN"",""RMPRPIYS"",254,0)"
^XMB(3.9,132,2,2162,0)=" W:$G(REDIT) !,""NEW CPT MODIFIER: "",$G(RMCPT)"
^XMB(3.9,132,2,2163,0)="""RTN"",""RMPRPIYS"",255,0)"
^XMB(3.9,132,2,2164,0)=" I RMHCOLD'="""",(RMHCOLD=RMDAHC),$G(REDIT) D"
^XMB(3.9,132,2,2165,0)="""RTN"",""RMPRPIYS"",256,0)"
^XMB(3.9,132,2,2166,0)=" .S DIR(0)=""Y"",DIR(""A"")=""Would you like to Edit CPT MODIFIER Entry  "",DIR(""B"")=""N"" D ^DIR Q:$D(DTOUT)!$D(DUOUT)"
^XMB(3.9,132,2,2167,0)="""RTN"",""RMPRPIYS"",257,0)"
^XMB(3.9,132,2,2168,0)=" .I $G(Y) D"
^XMB(3.9,132,2,2169,0)="""RTN"",""RMPRPIYS"",258,0)"
^XMB(3.9,132,2,2170,0)=" ..D CPT^RMPRCPTU(RDA)"
^XMB(3.9,132,2,2171,0)="""RTN"",""RMPRPIYS"",259,0)"
^XMB(3.9,132,2,2172,0)=" ..I $D(DUOUT) S RMPREXC=""^"""
^XMB(3.9,132,2,2173,0)="""RTN"",""RMPRPIYS"",260,0)"
^XMB(3.9,132,2,2174,0)=" ..I $D(DTOUT) S RMPREXC=""T"""
^XMB(3.9,132,2,2175,0)="""RTN"",""RMPRPIYS"",261,0)"
^XMB(3.9,132,2,2176,0)=" ..W:RMCPT=$P(R1(1),U,6) !!,""***Based on the information given above, CPT modifier string has not changed!!!"",!"
^XMB(3.9,132,2,2177,0)="""RTN"",""RMPRPIYS"",262,0)"
^XMB(3.9,132,2,2178,0)=" ..W:RMCPT'=$P(R1(1),U,6) !,""NEW CPT MODIFIER: "",$G(RMCPT)"
^XMB(3.9,132,2,2179,0)="""RTN"",""RMPRPIYS"",263,0)"
^XMB(3.9,132,2,2180,0)=" ..S $P(R1(1),U,6)=$G(RMCPT)"
^XMB(3.9,132,2,2181,0)="""RTN"",""RMPRPIYS"",264,0)"
^XMB(3.9,132,2,2182,0)="CPTX Q"
^XMB(3.9,132,2,2183,0)="""RTN"",""RMPRPIYS"",265,0)"
^XMB(3.9,132,2,2184,0)="UPCASE(RMPRSTR) ;"
^XMB(3.9,132,2,2185,0)="""RTN"",""RMPRPIYS"",266,0)"
^XMB(3.9,132,2,2186,0)=" Q $TR(RMPRSTR,""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ"")"
^XMB(3.9,132,2,2187,0)="""RTN"",""RMPRSE21"")"
^XMB(3.9,132,2,2188,0)="0^3^B29249805^B28209992"
^XMB(3.9,132,2,2189,0)="""RTN"",""RMPRSE21"",1,0)"
^XMB(3.9,132,2,2190,0)="RMPRSE21 ;HINES CIOFO/HNB-SEARCH FILE 660 ENTRIES PSAS HCPCS HISTORY;1/23/1998"
^XMB(3.9,132,2,2191,0)="""RTN"",""RMPRSE21"",2,0)"
^XMB(3.9,132,2,2192,0)=" ;;3.0;PROSTHETICS;**36,62,77,92,90,128**;Feb 09, 1996"
^XMB(3.9,132,2,2193,0)="""RTN"",""RMPRSE21"",3,0)"
^XMB(3.9,132,2,2194,0)=" ; RVD patch #62 - add ICD9 code and Description in the output"
^XMB(3.9,132,2,2195,0)="""RTN"",""RMPRSE21"",4,0)"
^XMB(3.9,132,2,2196,0)=" ; RVD patch #77 3/17/03 - use RMPR(""STA"") instead of $$STA^RMPRUTIL"
^XMB(3.9,132,2,2197,0)="""RTN"",""RMPRSE21"",5,0)"
^XMB(3.9,132,2,2198,0)=" ;"
^XMB(3.9,132,2,2199,0)="""RTN"",""RMPRSE21"",6,0)"
^XMB(3.9,132,2,2200,0)=" ; AAC Patch 92 08/03/04 - Code Set Versioning (CSV)"
^XMB(3.9,132,2,2201,0)="""RTN"",""RMPRSE21"",7,0)"
^XMB(3.9,132,2,2202,0)=" ;                       - Used API=ICDDX^ICDCODE to replace direct calls to global ICD9(80)."
^XMB(3.9,132,2,2203,0)="""RTN"",""RMPRSE21"",8,0)"
^XMB(3.9,132,2,2204,0)=" ;"
^XMB(3.9,132,2,2205,0)="""RTN"",""RMPRSE21"",9,0)"
^XMB(3.9,132,2,2206,0)="EN S (ITEM,RMPRARR,RMPRI,RMPRDA)="""""
^XMB(3.9,132,2,2207,0)="""RTN"",""RMPRSE21"",10,0)"
^XMB(3.9,132,2,2208,0)=" K KILL"
^XMB(3.9,132,2,2209,0)="""RTN"",""RMPRSE21"",11,0)"
^XMB(3.9,132,2,2210,0)=" D HOME^%ZIS,DIV4^RMPRSIT G:$D(X) EXIT1"
^XMB(3.9,132,2,2211,0)="""RTN"",""RMPRSE21"",12,0)"
^XMB(3.9,132,2,2212,0)=" W !!!"
^XMB(3.9,132,2,2213,0)="""RTN"",""RMPRSE21"",13,0)"
^XMB(3.9,132,2,2214,0)=" S DIC=""^RMPR(661.1,"",DIC(0)=""AEQM"""
^XMB(3.9,132,2,2215,0)="""RTN"",""RMPRSE21"",14,0)"
^XMB(3.9,132,2,2216,0)=" F ITEM=1:1 S DIC(""A"")=""Select PSAS HCPCS (""_ITEM_""): "" D ^DIC G:$D(DTOUT)!(X[""^"")!(X=""""&(ITEM=1)) EXIT1 Q:X=""""  D"
^XMB(3.9,132,2,2217,0)="""RTN"",""RMPRSE21"",15,0)"
^XMB(3.9,132,2,2218,0)=" .I $D(RMPRI(+Y)) W !,$C(7),"" ??"",?40,""..Duplicate PSAS HCPCS"" S ITEM=ITEM-1 Q"
^XMB(3.9,132,2,2219,0)="""RTN"",""RMPRSE21"",16,0)"
^XMB(3.9,132,2,2220,0)=" .S RMPRARR(ITEM)=+Y,RMPRI(+Y)="""""
^XMB(3.9,132,2,2221,0)="""RTN"",""RMPRSE21"",17,0)"
^XMB(3.9,132,2,2222,0)=" S RMPRCOUN=0 W !! S %DT(""A"")=""Beginning Date: "",%DT=""AEPX"",%DT(""B"")=""T-30"" D ^%DT S RMPRBDT=Y G:Y<0 EXIT1"
^XMB(3.9,132,2,2223,0)="""RTN"",""RMPRSE21"",18,0)"
^XMB(3.9,132,2,2224,0)="ENDATE S %DT(""A"")=""Ending Date: "",%DT=""AEX"",%DT(""B"")=""TODAY"""
^XMB(3.9,132,2,2225,0)="""RTN"",""RMPRSE21"",19,0)"
^XMB(3.9,132,2,2226,0)=" D ^%DT G:Y<0 EXIT1"
^XMB(3.9,132,2,2227,0)="""RTN"",""RMPRSE21"",20,0)"
^XMB(3.9,132,2,2228,0)=" I RMPRBDT>Y W !,$C(7),""Invalid Date Range Selection!!"" G ENDATE"
^XMB(3.9,132,2,2229,0)="""RTN"",""RMPRSE21"",21,0)"
^XMB(3.9,132,2,2230,0)=" G:Y<0 EXIT"
^XMB(3.9,132,2,2231,0)="""RTN"",""RMPRSE21"",22,0)"
^XMB(3.9,132,2,2232,0)=" S RMPREDT=Y,Y=RMPRBDT D DD^%DT S RMPRX=Y,Y=RMPREDT  D DD^%DT S RMPRY=Y"
^XMB(3.9,132,2,2233,0)="""RTN"",""RMPRSE21"",23,0)"
^XMB(3.9,132,2,2234,0)=" S %ZIS=""MQ"" K IOP D ^%ZIS G:POP EXIT"
^XMB(3.9,132,2,2235,0)="""RTN"",""RMPRSE21"",24,0)"
^XMB(3.9,132,2,2236,0)=" I '$D(IO(""Q"")) U IO G PRINT"
^XMB(3.9,132,2,2237,0)="""RTN"",""RMPRSE21"",25,0)"
^XMB(3.9,132,2,2238,0)=" K IO(""Q"") S ZTDESC=""SEARCH FOR PSAS HCPCS"",ZTRTN=""PRINT^RMPRSE21"",ZTIO=ION,ZTSAVE(""RMPRBDT"")="""",ZTSAVE(""RMPREDT"")="""",ZTSAVE(""RMPRI("")="""",ZTSAVE(""RMPRX"")="""",ZTSAVE(""RMPRY"")="""",ZTSAVE(""RMPR(""""STA"""")"")="""",ZTSAVE(""RMPRARR("")="""""
^XMB(3.9,132,2,2239,0)="""RTN"",""RMPRSE21"",26,0)"
^XMB(3.9,132,2,2240,0)=" S ZTSAVE(""RMPR("")="""",ZTSAVE(""RMPRSITE"")="""""
^XMB(3.9,132,2,2241,0)="""RTN"",""RMPRSE21"",27,0)"
^XMB(3.9,132,2,2242,0)=" D ^%ZTLOAD W:$D(ZTSK) !,""REQUEST QUEUED!"" H 1 G EXIT1"
^XMB(3.9,132,2,2243,0)="""RTN"",""RMPRSE21"",28,0)"
^XMB(3.9,132,2,2244,0)="PRINT ;ENTRY POINT FOR PRINTING REPORT"
^XMB(3.9,132,2,2245,0)="""RTN"",""RMPRSE21"",29,0)"
^XMB(3.9,132,2,2246,0)=" S PAGE=1,(RMPRCOUN,RP,QTYT,COSTT)=0"
^XMB(3.9,132,2,2247,0)="""RTN"",""RMPRSE21"",30,0)"
^XMB(3.9,132,2,2248,0)=" S RQ=0"
^XMB(3.9,132,2,2249,0)="""RTN"",""RMPRSE21"",31,0)"
^XMB(3.9,132,2,2250,0)=" F  S RQ=$O(RMPRARR(RQ)) Q:RQ'>0!($D(KILL))  D  D REST"
^XMB(3.9,132,2,2251,0)="""RTN"",""RMPRSE21"",32,0)"
^XMB(3.9,132,2,2252,0)=" .S RO=$P(RMPRARR(RQ),U,1),RO=RO-1"
^XMB(3.9,132,2,2253,0)="""RTN"",""RMPRSE21"",33,0)"
^XMB(3.9,132,2,2254,0)=" .F  S RO=$O(^RMPR(660,""H"",RO)) Q:RO'>0  D"
^XMB(3.9,132,2,2255,0)="""RTN"",""RMPRSE21"",34,0)"
^XMB(3.9,132,2,2256,0)=" . .Q:RO=""""!(RO'=$P(RMPRARR(RQ),U))!($D(KILL))"
^XMB(3.9,132,2,2257,0)="""RTN"",""RMPRSE21"",35,0)"
^XMB(3.9,132,2,2258,0)=" . .K ENDD"
^XMB(3.9,132,2,2259,0)="""RTN"",""RMPRSE21"",36,0)"
^XMB(3.9,132,2,2260,0)=" . .F  S RP=$O(^RMPR(660,""H"",RO,RP)) Q:RP=""""!($D(KILL))  D CK"
^XMB(3.9,132,2,2261,0)="""RTN"",""RMPRSE21"",37,0)"
^XMB(3.9,132,2,2262,0)=" G EXIT"
^XMB(3.9,132,2,2263,0)="""RTN"",""RMPRSE21"",38,0)"
^XMB(3.9,132,2,2264,0)=" Q"
^XMB(3.9,132,2,2265,0)="""RTN"",""RMPRSE21"",39,0)"
^XMB(3.9,132,2,2266,0)="EXIT ;EXIT FROM REPORT HERE"
^XMB(3.9,132,2,2267,0)="""RTN"",""RMPRSE21"",40,0)"
^XMB(3.9,132,2,2268,0)=" I RMPRCOUN>0,$D(RMPREDT),'$D(KILL) W !!?32,""END OF REPORT"""
^XMB(3.9,132,2,2269,0)="""RTN"",""RMPRSE21"",41,0)"
^XMB(3.9,132,2,2270,0)=" I $E(IOST)[""C""&($Y<22),'$D(ENDD) F  W ! Q:$Y>20"
^XMB(3.9,132,2,2271,0)="""RTN"",""RMPRSE21"",42,0)"
^XMB(3.9,132,2,2272,0)=" I $D(RMPREDT),$E(IOST)[""C"",'$D(RMPRFLL),'$D(KILL),'$D(DUOUT),'$D(DTOUT),'$D(ENDD) K DIR S DIR(0)=""E"" D ^DIR"
^XMB(3.9,132,2,2273,0)="""RTN"",""RMPRSE21"",43,0)"
^XMB(3.9,132,2,2274,0)="EXIT1 K RMPRARR,%DT,GOTO,QTYT,ITEM,KILL,ENDD,RQ,RP,RO,ITEM,RMPRI,COSTT,DIC,DIR,PAGE,RO,RMPRCOUN,RMPRSE,RMPRBDT,RMPREDT,RMPRX,RMPRY D ^%ZISC"
^XMB(3.9,132,2,2275,0)="""RTN"",""RMPRSE21"",44,0)"
^XMB(3.9,132,2,2276,0)=" Q"
^XMB(3.9,132,2,2277,0)="""RTN"",""RMPRSE21"",45,0)"
^XMB(3.9,132,2,2278,0)="CK Q:'$D(^RMPR(660,RP,0))"
^XMB(3.9,132,2,2279,0)="""RTN"",""RMPRSE21"",46,0)"
^XMB(3.9,132,2,2280,0)=" ;hcpcs"
^XMB(3.9,132,2,2281,0)="""RTN"",""RMPRSE21"",47,0)"
^XMB(3.9,132,2,2282,0)=" I ('$P(^RMPR(660,RP,1),U,4))!($P(^(0),U,3)<RMPRBDT)!($P(^(0),U,3)>RMPREDT)  Q"
^XMB(3.9,132,2,2283,0)="""RTN"",""RMPRSE21"",48,0)"
^XMB(3.9,132,2,2284,0)=" I $P(^RMPR(660,RP,0),U,10)'=RMPR(""STA"") Q"
^XMB(3.9,132,2,2285,0)="""RTN"",""RMPRSE21"",49,0)"
^XMB(3.9,132,2,2286,0)=" ;"
^XMB(3.9,132,2,2287,0)="""RTN"",""RMPRSE21"",50,0)"
^XMB(3.9,132,2,2288,0)=" I $P(RMPRARR(RQ),U,1)=$P(^RMPR(660,RP,1),U,4) D CON"
^XMB(3.9,132,2,2289,0)="""RTN"",""RMPRSE21"",51,0)"
^XMB(3.9,132,2,2290,0)=" Q"
^XMB(3.9,132,2,2291,0)="""RTN"",""RMPRSE21"",52,0)"
^XMB(3.9,132,2,2292,0)=" ;"
^XMB(3.9,132,2,2293,0)="""RTN"",""RMPRSE21"",53,0)"
^XMB(3.9,132,2,2294,0)="CON I $Y>(IOSL-6),PAGE=1,'RMPRCOUN W @IOF"
^XMB(3.9,132,2,2295,0)="""RTN"",""RMPRSE21"",54,0)"
^XMB(3.9,132,2,2296,0)=" D HEAD S RMPRCOUN=RMPRCOUN+1"
^XMB(3.9,132,2,2297,0)="""RTN"",""RMPRSE21"",55,0)"
^XMB(3.9,132,2,2298,0)=" S (RMPRDA,Y)=$P(^RMPR(660,RP,0),U,3) D DD^%DT"
^XMB(3.9,132,2,2299,0)="""RTN"",""RMPRSE21"",56,0)"
^XMB(3.9,132,2,2300,0)=" W !,Y,?15,$E($P(^DPT($P(^RMPR(660,RP,0),U,2),0),U,1),1,13),?30,$E($P(^DPT($P(^RMPR(660,RP,0),U,2),0),U,9),6,9)"
^XMB(3.9,132,2,2301,0)="""RTN"",""RMPRSE21"",57,0)"
^XMB(3.9,132,2,2302,0)=" W:$P(^RMPR(660,RP,0),U,9)'="""" ?36,$E($P(^PRC(440,$P(^RMPR(660,RP,0),U,9),0),U,1),1,35)"
^XMB(3.9,132,2,2303,0)="""RTN"",""RMPRSE21"",58,0)"
^XMB(3.9,132,2,2304,0)=" W !,""ITEM: "" S ITMP=$P(^RMPR(660,RP,0),U,6)"
^XMB(3.9,132,2,2305,0)="""RTN"",""RMPRSE21"",59,0)"
^XMB(3.9,132,2,2306,0)=" W:ITMP'="""" $E($P(^PRC(441,$P(^RMPR(661,ITMP,0),U,1),0),U,2),1,20)"
^XMB(3.9,132,2,2307,0)="""RTN"",""RMPRSE21"",60,0)"
^XMB(3.9,132,2,2308,0)=" K ITMP"
^XMB(3.9,132,2,2309,0)="""RTN"",""RMPRSE21"",61,0)"
^XMB(3.9,132,2,2310,0)=" I $P(^RMPR(660,RP,0),U,13)=4 D"
^XMB(3.9,132,2,2311,0)="""RTN"",""RMPRSE21"",62,0)"
^XMB(3.9,132,2,2312,0)=" .W ?27,""QTY: "",$J($P(^RMPR(660,RP,0),U,7),4),?38,""TOTAL COST: "",$J($FN($P(^(""LB""),U,9),""P"",2),8) S QTYT=QTYT+$P(^(0),U,7),COSTT=COSTT+$P(^(""LB""),U,9)"
^XMB(3.9,132,2,2313,0)="""RTN"",""RMPRSE21"",63,0)"
^XMB(3.9,132,2,2314,0)=" I $P(^RMPR(660,RP,0),U,13)'=4 W ?27,""QTY: "",$J($P(^RMPR(660,RP,0),U,7),4),?38,""TOTAL COST: "",$J($FN($P(^(0),U,16),""P"",2),8) S QTYT=QTYT+$P(^(0),U,7),COSTT=COSTT+$P(^(0),U,16)"
^XMB(3.9,132,2,2315,0)="""RTN"",""RMPRSE21"",64,0)"
^XMB(3.9,132,2,2316,0)=" W ?60,$S($P(^RMPR(660,RP,0),U,4)=""I"":""INITIAL ISSUE"",$P(^(0),U,4)=""R"":""REPLACEMENT"",$P(^(0),U,4)=""S"":""SPARE"",$P(^(0),U,4)=""X"":""REPAIR"",$P(^(0),U,4)=""5"":""RENTAL"",1:""UNK""),!,""INITIATOR: """
^XMB(3.9,132,2,2317,0)="""RTN"",""RMPRSE21"",65,0)"
^XMB(3.9,132,2,2318,0)=" I $P(^RMPR(660,RP,0),U,27),$D(^VA(200,$P(^(0),U,27),0)) W ?15,$P(^(0),U)"
^XMB(3.9,132,2,2319,0)="""RTN"",""RMPRSE21"",66,0)"
^XMB(3.9,132,2,2320,0)=" ;"
^XMB(3.9,132,2,2321,0)="""RTN"",""RMPRSE21"",67,0)"
^XMB(3.9,132,2,2322,0)=" ; Patch 92 - Code Set Versioning (CSV) changes below"
^XMB(3.9,132,2,2323,0)="""RTN"",""RMPRSE21"",68,0)"
^XMB(3.9,132,2,2324,0)=" ; AAC - 08/03/04"
^XMB(3.9,132,2,2325,0)="""RTN"",""RMPRSE21"",69,0)"
^XMB(3.9,132,2,2326,0)=" ;"
^XMB(3.9,132,2,2327,0)="""RTN"",""RMPRSE21"",70,0)"
^XMB(3.9,132,2,2328,0)=" S (RMPRICD,RMPRIC9,RMPRCOD,RMPRDAT)="""" S RMPRERR=0"
^XMB(3.9,132,2,2329,0)="""RTN"",""RMPRSE21"",71,0)"
^XMB(3.9,132,2,2330,0)=" S RMPRDAT=$P($G(^RMPR(660,RP,0)),U,1)"
^XMB(3.9,132,2,2331,0)="""RTN"",""RMPRSE21"",72,0)"
^XMB(3.9,132,2,2332,0)=" I $D(^RMPR(660,RP,10)) S RMPRIC9=$P(^RMPR(660,RP,10),U,8)"
^XMB(3.9,132,2,2333,0)="""RTN"",""RMPRSE21"",73,0)"
^XMB(3.9,132,2,2334,0)=" I RMPRIC9'=""""  D"
^XMB(3.9,132,2,2335,0)="""RTN"",""RMPRSE21"",74,0)"
^XMB(3.9,132,2,2336,0)=" .S RMPRICD=$$ICDDX^ICDCODE(RMPRIC9,RMPRDAT)"
^XMB(3.9,132,2,2337,0)="""RTN"",""RMPRSE21"",75,0)"
^XMB(3.9,132,2,2338,0)=" .S RMPRERR=$P(RMPRICD,U,1)"
^XMB(3.9,132,2,2339,0)="""RTN"",""RMPRSE21"",76,0)"
^XMB(3.9,132,2,2340,0)=" .I RMPRERR<0 W !,""ICD-9 Message: "",$P(RMPRICD,U,2)"
^XMB(3.9,132,2,2341,0)="""RTN"",""RMPRSE21"",77,0)"
^XMB(3.9,132,2,2342,0)=" W !,""ICD-9 Code: """
^XMB(3.9,132,2,2343,0)="""RTN"",""RMPRSE21"",78,0)"
^XMB(3.9,132,2,2344,0)=" I $G(RMPRICD)'="""" W $P(RMPRICD,U,2),?19,$E($P(RMPRICD,U,4),1,55) I $P(RMPRICD,U,10)'>0 W "" "",""** Inactive ** Date: "" S Y=$P(RMPRICD,U,12) D DD^%DT W Y"
^XMB(3.9,132,2,2345,0)="""RTN"",""RMPRSE21"",79,0)"
^XMB(3.9,132,2,2346,0)=" W !"
^XMB(3.9,132,2,2347,0)="""RTN"",""RMPRSE21"",80,0)"
^XMB(3.9,132,2,2348,0)=" ;"
^XMB(3.9,132,2,2349,0)="""RTN"",""RMPRSE21"",81,0)"
^XMB(3.9,132,2,2350,0)=" ; END PATCH 92"
^XMB(3.9,132,2,2351,0)="""RTN"",""RMPRSE21"",82,0)"
^XMB(3.9,132,2,2352,0)=" ;"
^XMB(3.9,132,2,2353,0)="""RTN"",""RMPRSE21"",83,0)"
^XMB(3.9,132,2,2354,0)=" I $E(IOST)[""C""&($Y>(IOSL-6)) S DIR(0)=""E"" D ^DIR S:Y<1 KILL=1 Q:Y<1  K DIR W @IOF D HEAD Q"
^XMB(3.9,132,2,2355,0)="""RTN"",""RMPRSE21"",84,0)"
^XMB(3.9,132,2,2356,0)=" I $Y>(IOSL-6) W @IOF D HEAD"
^XMB(3.9,132,2,2357,0)="""RTN"",""RMPRSE21"",85,0)"
^XMB(3.9,132,2,2358,0)=" Q"
^XMB(3.9,132,2,2359,0)="""RTN"",""RMPRSE21"",86,0)"
^XMB(3.9,132,2,2360,0)=" ;"
^XMB(3.9,132,2,2361,0)="""RTN"",""RMPRSE21"",87,0)"
^XMB(3.9,132,2,2362,0)="HEAD I $Y<2!(PAGE=1) D"
^XMB(3.9,132,2,2363,0)="""RTN"",""RMPRSE21"",88,0)"
^XMB(3.9,132,2,2364,0)=" .N RMPRSTAW"
^XMB(3.9,132,2,2365,0)="""RTN"",""RMPRSE21"",89,0)"
^XMB(3.9,132,2,2366,0)=" .S RMPRSTAW=RMPR(""STA"")"
^XMB(3.9,132,2,2367,0)="""RTN"",""RMPRSE21"",90,0)"
^XMB(3.9,132,2,2368,0)=" .I RMPRSTAW'="""",$D(^DIC(4,RMPRSTAW,99)) S RMPRSTAW=$P(^DIC(4,RMPRSTAW,99),U)"
^XMB(3.9,132,2,2369,0)="""RTN"",""RMPRSE21"",91,0)"
^XMB(3.9,132,2,2370,0)=" .W !,""PSAS HCPCS HISTORY:"",?15"
^XMB(3.9,132,2,2371,0)="""RTN"",""RMPRSE21"",92,0)"
^XMB(3.9,132,2,2372,0)=" .W $E($P(^RMPR(661.1,$P(^RMPR(660,RP,1),U,4),0),U,1),1,39)"
^XMB(3.9,132,2,2373,0)="""RTN"",""RMPRSE21"",93,0)"
^XMB(3.9,132,2,2374,0)=" .W ?63,""STA "",RMPRSTAW,?72,""PAGE "",PAGE S PAGE=PAGE+1"
^XMB(3.9,132,2,2375,0)="""RTN"",""RMPRSE21"",94,0)"
^XMB(3.9,132,2,2376,0)=" .W !!,""REQUEST DATE"",?15,""PATIENT NAME"",?30,""SSN"",?36,""VENDOR"""
^XMB(3.9,132,2,2377,0)="""RTN"",""RMPRSE21"",95,0)"
^XMB(3.9,132,2,2378,0)=" .S Y=RMPRBDT D DD^%DT W ?55,Y,""-"" S Y=RMPREDT D DD^%DT W Y"
^XMB(3.9,132,2,2379,0)="""RTN"",""RMPRSE21"",96,0)"
^XMB(3.9,132,2,2380,0)=" .W ! F BH=1:1:IOM W ""="""
^XMB(3.9,132,2,2381,0)="""RTN"",""RMPRSE21"",97,0)"
^XMB(3.9,132,2,2382,0)=" Q"
^XMB(3.9,132,2,2383,0)="""RTN"",""RMPRSE21"",98,0)"
^XMB(3.9,132,2,2384,0)=" ;"
^XMB(3.9,132,2,2385,0)="""RTN"",""RMPRSE21"",99,0)"
^XMB(3.9,132,2,2386,0)="REST D:'RMPRCOUN NONE Q:$D(KILL)!('RMPRCOUN)  W !,""TOTAL DOLLARS SPENT ON THIS HCPCS: "",""$""_$J($FN(COSTT,""P"",2),9),?45,""TOTAL QUANTITY ISSUED: "",$J(QTYT,4)"
^XMB(3.9,132,2,2387,0)="""RTN"",""RMPRSE21"",100,0)"
^XMB(3.9,132,2,2388,0)=" I $O(RMPRARR(RQ)),$E(IOST)[""C"" W ! K DIR S DIR(0)=""E"" D ^DIR S:Y<1 KILL=1 W:'$D(KILL) @IOF"
^XMB(3.9,132,2,2389,0)="""RTN"",""RMPRSE21"",101,0)"
^XMB(3.9,132,2,2390,0)=" I $E(IOST)'[""C"",$O(RMPRARR(RQ)) W @IOF"
^XMB(3.9,132,2,2391,0)="""RTN"",""RMPRSE21"",102,0)"
^XMB(3.9,132,2,2392,0)=" S (COSTT,QTYT,RMPRCOUN)="""""
^XMB(3.9,132,2,2393,0)="""RTN"",""RMPRSE21"",103,0)"
^XMB(3.9,132,2,2394,0)=" Q"
^XMB(3.9,132,2,2395,0)="""RTN"",""RMPRSE21"",104,0)"
^XMB(3.9,132,2,2396,0)=" ;"
^XMB(3.9,132,2,2397,0)="""RTN"",""RMPRSE21"",105,0)"
^XMB(3.9,132,2,2398,0)="NONE W @IOF,!!,""No '"",$P(^RMPR(661.1,RMPRARR(RQ),0),U,1),""' PSAS HCPCS History for this date range."",!"
^XMB(3.9,132,2,2399,0)="""RTN"",""RMPRSE21"",106,0)"
^XMB(3.9,132,2,2400,0)=" ;,$P(^PRC(441,$P(^RMPR(661,$P(RMPRARR(RQ),U),0),U),0),U,2)"
^XMB(3.9,132,2,2401,0)="""RTN"",""RMPRSE21"",107,0)"
^XMB(3.9,132,2,2402,0)=" I $E(IOST)[""C"" K DIR S DIR(0)=""E"" W !!!! D ^DIR W @IOF S:Y<1 KILL=1 S ENDD=1"
^XMB(3.9,132,2,2403,0)="""RTN"",""RMPRSE21"",108,0)"
^XMB(3.9,132,2,2404,0)=" Q"
^XMB(3.9,132,2,2405,0)="""RTN"",""RMPRSE21"",109,0)"
^XMB(3.9,132,2,2406,0)="XREF ;set new x-ref for the field HCPCS in 660"
^XMB(3.9,132,2,2407,0)="""RTN"",""RMPRSE21"",110,0)"
^XMB(3.9,132,2,2408,0)=" ;fix HCPCS VA117, REMOVE BLANK SPACE IN R90"
^XMB(3.9,132,2,2409,0)="""RTN"",""RMPRSE21"",111,0)"
^XMB(3.9,132,2,2410,0)=" S $P(^RMPR(661.1,2801,0),U,6)=""R90"""
^XMB(3.9,132,2,2411,0)="""RTN"",""RMPRSE21"",112,0)"
^XMB(3.9,132,2,2412,0)=" W !!,""New Cross Reference for HCPCS..."""
^XMB(3.9,132,2,2413,0)="""RTN"",""RMPRSE21"",113,0)"
^XMB(3.9,132,2,2414,0)=" S DIK=""^RMPR(660,"",DIK(1)=""4.5^H"" D ENALL^DIK"
^XMB(3.9,132,2,2415,0)="""RTN"",""RMPRSE21"",114,0)"
^XMB(3.9,132,2,2416,0)=" W !!,""Done"""
^XMB(3.9,132,2,2417,0)="""RTN"",""RMPRSE21"",115,0)"
^XMB(3.9,132,2,2418,0)=" Q"
^XMB(3.9,132,2,2419,0)="""RTN"",""RMPRSE21"",116,0)"
^XMB(3.9,132,2,2420,0)=" ;END"
^XMB(3.9,132,2,2421,0)="""VER"")"
^XMB(3.9,132,2,2422,0)="8.0^22.0"
^XMB(3.9,132,2,2423,0)="""BLD"",6032,6)"
^XMB(3.9,132,2,2424,0)="^102"
^XMB(3.9,132,2,2425,0)="$END KID RMPR*3.0*128"
^XMB(3.9,132,6,0)="^3.911A^2^2"
^XMB(3.9,132,6,1,0)="POSTMASTER"
^XMB(3.9,132,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,132,6,"B","POSTMASTER",1)=""
^XMB(3.9,132,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,133,0)="RMPR-3_SEQ-97_PAT-98.KID^.5^3061008.015742^^^^K"
^XMB(3.9,133,.6)="3061008"
^XMB(3.9,133,1,0)="^3.91A^2^2"
^XMB(3.9,133,1,1,0)=".5^0^3061008.015742^^^^^^^3061008.015742"
^XMB(3.9,133,1,2,0)="1^0^3061008.022652^^^^^^^3061008.022652"
^XMB(3.9,133,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,133,1,"C",.5,1)=""
^XMB(3.9,133,1,"C",1,2)=""
^XMB(3.9,133,2,0)="^^3391^3391^3061008"
^XMB(3.9,133,2,1,0)="$TXT Released RMPR*3*98 SEQ #97"
^XMB(3.9,133,2,2,0)="Extracted from mail message"
^XMB(3.9,133,2,3,0)="$END TXT"
^XMB(3.9,133,2,4,0)="$KID RMPR*3.0*98"
^XMB(3.9,133,2,5,0)="**INSTALL NAME**"
^XMB(3.9,133,2,6,0)="RMPR*3.0*98"
^XMB(3.9,133,2,7,0)="""BLD"",6029,0)"
^XMB(3.9,133,2,8,0)="RMPR*3.0*98^PROSTHETICS^0^3060403^y"
^XMB(3.9,133,2,9,0)="""BLD"",6029,1,0)"
^XMB(3.9,133,2,10,0)="^^1^1^3050901^^"
^XMB(3.9,133,2,11,0)="""BLD"",6029,1,1,0)"
^XMB(3.9,133,2,12,0)="Prosthetics PFSS"
^XMB(3.9,133,2,13,0)="""BLD"",6029,4,0)"
^XMB(3.9,133,2,14,0)="^9.64PA^665.72^3"
^XMB(3.9,133,2,15,0)="""BLD"",6029,4,660,0)"
^XMB(3.9,133,2,16,0)="660"
^XMB(3.9,133,2,17,0)="""BLD"",6029,4,660,2,0)"
^XMB(3.9,133,2,18,0)="^9.641^660^1"
^XMB(3.9,133,2,19,0)="""BLD"",6029,4,660,2,660,0)"
^XMB(3.9,133,2,20,0)="RECORD OF PROS APPLIANCE/REPAIR  (File-top level)"
^XMB(3.9,133,2,21,0)="""BLD"",6029,4,660,2,660,1,0)"
^XMB(3.9,133,2,22,0)="^9.6411^107^13"
^XMB(3.9,133,2,23,0)="""BLD"",6029,4,660,2,660,1,.01,0)"
^XMB(3.9,133,2,24,0)="ENTRY DATE"
^XMB(3.9,133,2,25,0)="""BLD"",6029,4,660,2,660,1,4.5,0)"
^XMB(3.9,133,2,26,0)="PSAS HCPCS"
^XMB(3.9,133,2,27,0)="""BLD"",6029,4,660,2,660,1,5,0)"
^XMB(3.9,133,2,28,0)="QTY"
^XMB(3.9,133,2,29,0)="""BLD"",6029,4,660,2,660,1,8.6,0)"
^XMB(3.9,133,2,30,0)="SUSPENSE REQUESTOR"
^XMB(3.9,133,2,31,0)="""BLD"",6029,4,660,2,660,1,14,0)"
^XMB(3.9,133,2,32,0)="TOTAL COST"
^XMB(3.9,133,2,33,0)="""BLD"",6029,4,660,2,660,1,100,0)"
^XMB(3.9,133,2,34,0)="PFSS ACCOUNT REFERENCE"
^XMB(3.9,133,2,35,0)="""BLD"",6029,4,660,2,660,1,101,0)"
^XMB(3.9,133,2,36,0)="PFSS CHARGE ID"
^XMB(3.9,133,2,37,0)="""BLD"",6029,4,660,2,660,1,102,0)"
^XMB(3.9,133,2,38,0)="LATEST PSAS HCPCS"
^XMB(3.9,133,2,39,0)="""BLD"",6029,4,660,2,660,1,103,0)"
^XMB(3.9,133,2,40,0)="LATEST QTY"
^XMB(3.9,133,2,41,0)="""BLD"",6029,4,660,2,660,1,104,0)"
^XMB(3.9,133,2,42,0)="LATEST TOTAL COST"
^XMB(3.9,133,2,43,0)="""BLD"",6029,4,660,2,660,1,105,0)"
^XMB(3.9,133,2,44,0)="LATEST ORDERING PROVIDER"
^XMB(3.9,133,2,45,0)="""BLD"",6029,4,660,2,660,1,106,0)"
^XMB(3.9,133,2,46,0)="PFSS ACCOUNT FLAG"
^XMB(3.9,133,2,47,0)="""BLD"",6029,4,660,2,660,1,107,0)"
^XMB(3.9,133,2,48,0)="PFSS CHARGE FLAG"
^XMB(3.9,133,2,49,0)="""BLD"",6029,4,660,222)"
^XMB(3.9,133,2,50,0)="y^y^p^^^^n^^n"
^XMB(3.9,133,2,51,0)="""BLD"",6029,4,660,224)"
^XMB(3.9,133,2,52,0)=""
^XMB(3.9,133,2,53,0)="""BLD"",6029,4,665,0)"
^XMB(3.9,133,2,54,0)="665"
^XMB(3.9,133,2,55,0)="""BLD"",6029,4,665,2,0)"
^XMB(3.9,133,2,56,0)="^9.641^665.194^2"
^XMB(3.9,133,2,57,0)="""BLD"",6029,4,665,2,665.193,0)"
^XMB(3.9,133,2,58,0)="HOME OXYGEN PRESCRIPTION  (sub-file)"
^XMB(3.9,133,2,59,0)="""BLD"",6029,4,665,2,665.193,1,0)"
^XMB(3.9,133,2,60,0)="^9.6411^^"
^XMB(3.9,133,2,61,0)="""BLD"",6029,4,665,2,665.193,1,.01,0)"
^XMB(3.9,133,2,62,0)="DATE"
^XMB(3.9,133,2,63,0)="""BLD"",6029,4,665,2,665.193,1,30,0)"
^XMB(3.9,133,2,64,0)="PRIMARY ICD DIAGNOSIS CODE"
^XMB(3.9,133,2,65,0)="""BLD"",6029,4,665,2,665.193,1,30.1,0)"
^XMB(3.9,133,2,66,0)="PRIMARY AGENT ORANGE"
^XMB(3.9,133,2,67,0)="""BLD"",6029,4,665,2,665.193,1,30.2,0)"
^XMB(3.9,133,2,68,0)="PRIMARY IONIZED RADIATION"
^XMB(3.9,133,2,69,0)="""BLD"",6029,4,665,2,665.193,1,30.3,0)"
^XMB(3.9,133,2,70,0)="PRIMARY SERVICE CONNECTED"
^XMB(3.9,133,2,71,0)="""BLD"",6029,4,665,2,665.193,1,30.4,0)"
^XMB(3.9,133,2,72,0)="PRIMARY ENVIRONMENTAL CONT."
^XMB(3.9,133,2,73,0)="""BLD"",6029,4,665,2,665.193,1,30.5,0)"
^XMB(3.9,133,2,74,0)="PRIMARY MST"
^XMB(3.9,133,2,75,0)="""BLD"",6029,4,665,2,665.193,1,30.6,0)"
^XMB(3.9,133,2,76,0)="PRIMARY HEAD/NECK CANCER"
^XMB(3.9,133,2,77,0)="""BLD"",6029,4,665,2,665.193,1,30.7,0)"
^XMB(3.9,133,2,78,0)="PRIMARY COMBAT VET"
^XMB(3.9,133,2,79,0)="""BLD"",6029,4,665,2,665.193,1,31,0)"
^XMB(3.9,133,2,80,0)="SECONDARY ICD DIAGNOSIS CODE 1"
^XMB(3.9,133,2,81,0)="""BLD"",6029,4,665,2,665.193,1,31.1,0)"
^XMB(3.9,133,2,82,0)="SECONDARY AGENT ORANGE 1"
^XMB(3.9,133,2,83,0)="""BLD"",6029,4,665,2,665.193,1,31.2,0)"
^XMB(3.9,133,2,84,0)="SECONDARY IONIZED RADIATION 1"
^XMB(3.9,133,2,85,0)="""BLD"",6029,4,665,2,665.193,1,31.3,0)"
^XMB(3.9,133,2,86,0)="SECONDARY SERVICE CONNECTED 1"
^XMB(3.9,133,2,87,0)="""BLD"",6029,4,665,2,665.193,1,31.4,0)"
^XMB(3.9,133,2,88,0)="SECONDARY ENVIRONMENTAL CONT 1"
^XMB(3.9,133,2,89,0)="""BLD"",6029,4,665,2,665.193,1,31.5,0)"
^XMB(3.9,133,2,90,0)="SECONDARY MST 1"
^XMB(3.9,133,2,91,0)="""BLD"",6029,4,665,2,665.193,1,31.6,0)"
^XMB(3.9,133,2,92,0)="SECONDARY HEAD/NECK CANCER 1"
^XMB(3.9,133,2,93,0)="""BLD"",6029,4,665,2,665.193,1,31.7,0)"
^XMB(3.9,133,2,94,0)="SECONDARY COMBAT VET 1"
^XMB(3.9,133,2,95,0)="""BLD"",6029,4,665,2,665.193,1,32,0)"
^XMB(3.9,133,2,96,0)="SECONDARY ICD DIAGNOSIS CODE 2"
^XMB(3.9,133,2,97,0)="""BLD"",6029,4,665,2,665.193,1,32.1,0)"
^XMB(3.9,133,2,98,0)="SECONDARY AGENT ORANGE 2"
^XMB(3.9,133,2,99,0)="""BLD"",6029,4,665,2,665.193,1,32.2,0)"
^XMB(3.9,133,2,100,0)="SECONDARY IONIZED RADIATION 2"
^XMB(3.9,133,2,101,0)="""BLD"",6029,4,665,2,665.193,1,32.3,0)"
^XMB(3.9,133,2,102,0)="SECONDARY SERVICE CONNECTED 2"
^XMB(3.9,133,2,103,0)="""BLD"",6029,4,665,2,665.193,1,32.4,0)"
^XMB(3.9,133,2,104,0)="SECONDARY ENVIRONMENTAL CONT 2"
^XMB(3.9,133,2,105,0)="""BLD"",6029,4,665,2,665.193,1,32.5,0)"
^XMB(3.9,133,2,106,0)="SECONDARY MST 2"
^XMB(3.9,133,2,107,0)="""BLD"",6029,4,665,2,665.193,1,32.6,0)"
^XMB(3.9,133,2,108,0)="SECONDARY HEAD/NECK CANCER 2"
^XMB(3.9,133,2,109,0)="""BLD"",6029,4,665,2,665.193,1,32.7,0)"
^XMB(3.9,133,2,110,0)="SECONDARY COMBAT VET 2"
^XMB(3.9,133,2,111,0)="""BLD"",6029,4,665,2,665.193,1,33,0)"
^XMB(3.9,133,2,112,0)="SECONDARY ICD DIAGNOSIS CODE 3"
^XMB(3.9,133,2,113,0)="""BLD"",6029,4,665,2,665.193,1,33.1,0)"
^XMB(3.9,133,2,114,0)="SECONDARY AGENT ORANGE 3"
^XMB(3.9,133,2,115,0)="""BLD"",6029,4,665,2,665.193,1,33.2,0)"
^XMB(3.9,133,2,116,0)="SECONDARY IONIZED RADIATION 3"
^XMB(3.9,133,2,117,0)="""BLD"",6029,4,665,2,665.193,1,33.3,0)"
^XMB(3.9,133,2,118,0)="SECONDARY SERVICE CONNECTED 3"
^XMB(3.9,133,2,119,0)="""BLD"",6029,4,665,2,665.193,1,33.4,0)"
^XMB(3.9,133,2,120,0)="SECONDARY ENVIRONMENTAL CONT 3"
^XMB(3.9,133,2,121,0)="""BLD"",6029,4,665,2,665.193,1,33.5,0)"
^XMB(3.9,133,2,122,0)="SECONDARY MST 3"
^XMB(3.9,133,2,123,0)="""BLD"",6029,4,665,2,665.193,1,33.6,0)"
^XMB(3.9,133,2,124,0)="SECONDARY HEAD/NECK CANCER 3"
^XMB(3.9,133,2,125,0)="""BLD"",6029,4,665,2,665.193,1,33.7,0)"
^XMB(3.9,133,2,126,0)="SECONDARY COMBAT VET 3"
^XMB(3.9,133,2,127,0)="""BLD"",6029,4,665,2,665.193,1,100,0)"
^XMB(3.9,133,2,128,0)="PFSS NEW PRESCRIPTION FLAG"
^XMB(3.9,133,2,129,0)="""BLD"",6029,4,665,2,665.193,1,101,0)"
^XMB(3.9,133,2,130,0)="REQUESTOR"
^XMB(3.9,133,2,131,0)="""BLD"",6029,4,665,2,665.194,0)"
^XMB(3.9,133,2,132,0)="HOME OXYGEN ITEM  (sub-file)"
^XMB(3.9,133,2,133,0)="""BLD"",6029,4,665,2,665.194,1,0)"
^XMB(3.9,133,2,134,0)="^9.6411^^"
^XMB(3.9,133,2,135,0)="""BLD"",6029,4,665,2,665.194,1,.01,0)"
^XMB(3.9,133,2,136,0)="ITEM"
^XMB(3.9,133,2,137,0)="""BLD"",6029,4,665,2,665.194,1,100,0)"
^XMB(3.9,133,2,138,0)="PFSS ACCOUNT FLAG"
^XMB(3.9,133,2,139,0)="""BLD"",6029,4,665,2,665.194,1,101,0)"
^XMB(3.9,133,2,140,0)="PFSS ACCOUNT REFERENCE"
^XMB(3.9,133,2,141,0)="""BLD"",6029,4,665,222)"
^XMB(3.9,133,2,142,0)="y^n^p^^^^n^^n"
^XMB(3.9,133,2,143,0)="""BLD"",6029,4,665,224)"
^XMB(3.9,133,2,144,0)=""
^XMB(3.9,133,2,145,0)="""BLD"",6029,4,665.72,0)"
^XMB(3.9,133,2,146,0)="665.72"
^XMB(3.9,133,2,147,0)="""BLD"",6029,4,665.72,2,0)"
^XMB(3.9,133,2,148,0)="^9.641^665.723191^1"
^XMB(3.9,133,2,149,0)="""BLD"",6029,4,665.72,2,665.723191,0)"
^XMB(3.9,133,2,150,0)="ITEM  (sub-file)"
^XMB(3.9,133,2,151,0)="""BLD"",6029,4,665.72,2,665.723191,1,0)"
^XMB(3.9,133,2,152,0)="^9.6411^102^4"
^XMB(3.9,133,2,153,0)="""BLD"",6029,4,665.72,2,665.723191,1,.01,0)"
^XMB(3.9,133,2,154,0)="ITEM"
^XMB(3.9,133,2,155,0)="""BLD"",6029,4,665.72,2,665.723191,1,100,0)"
^XMB(3.9,133,2,156,0)="PFSS ACCOUNT REFERENCE"
^XMB(3.9,133,2,157,0)="""BLD"",6029,4,665.72,2,665.723191,1,101,0)"
^XMB(3.9,133,2,158,0)="PFSS UNIQUE CHARGE ID"
^XMB(3.9,133,2,159,0)="""BLD"",6029,4,665.72,2,665.723191,1,102,0)"
^XMB(3.9,133,2,160,0)="REQUESTOR"
^XMB(3.9,133,2,161,0)="""BLD"",6029,4,665.72,222)"
^XMB(3.9,133,2,162,0)="y^n^p^^^^n^^n"
^XMB(3.9,133,2,163,0)="""BLD"",6029,4,665.72,224)"
^XMB(3.9,133,2,164,0)=""
^XMB(3.9,133,2,165,0)="""BLD"",6029,4,""APDD"",660,660)"
^XMB(3.9,133,2,166,0)=""
^XMB(3.9,133,2,167,0)="""BLD"",6029,4,""APDD"",660,660,.01)"
^XMB(3.9,133,2,168,0)=""
^XMB(3.9,133,2,169,0)="""BLD"",6029,4,""APDD"",660,660,4.5)"
^XMB(3.9,133,2,170,0)=""
^XMB(3.9,133,2,171,0)="""BLD"",6029,4,""APDD"",660,660,5)"
^XMB(3.9,133,2,172,0)=""
^XMB(3.9,133,2,173,0)="""BLD"",6029,4,""APDD"",660,660,8.6)"
^XMB(3.9,133,2,174,0)=""
^XMB(3.9,133,2,175,0)="""BLD"",6029,4,""APDD"",660,660,14)"
^XMB(3.9,133,2,176,0)=""
^XMB(3.9,133,2,177,0)="""BLD"",6029,4,""APDD"",660,660,100)"
^XMB(3.9,133,2,178,0)=""
^XMB(3.9,133,2,179,0)="""BLD"",6029,4,""APDD"",660,660,101)"
^XMB(3.9,133,2,180,0)=""
^XMB(3.9,133,2,181,0)="""BLD"",6029,4,""APDD"",660,660,102)"
^XMB(3.9,133,2,182,0)=""
^XMB(3.9,133,2,183,0)="""BLD"",6029,4,""APDD"",660,660,103)"
^XMB(3.9,133,2,184,0)=""
^XMB(3.9,133,2,185,0)="""BLD"",6029,4,""APDD"",660,660,104)"
^XMB(3.9,133,2,186,0)=""
^XMB(3.9,133,2,187,0)="""BLD"",6029,4,""APDD"",660,660,105)"
^XMB(3.9,133,2,188,0)=""
^XMB(3.9,133,2,189,0)="""BLD"",6029,4,""APDD"",660,660,106)"
^XMB(3.9,133,2,190,0)=""
^XMB(3.9,133,2,191,0)="""BLD"",6029,4,""APDD"",660,660,107)"
^XMB(3.9,133,2,192,0)=""
^XMB(3.9,133,2,193,0)="""BLD"",6029,4,""APDD"",665,665.193)"
^XMB(3.9,133,2,194,0)=""
^XMB(3.9,133,2,195,0)="""BLD"",6029,4,""APDD"",665,665.193,.01)"
^XMB(3.9,133,2,196,0)=""
^XMB(3.9,133,2,197,0)="""BLD"",6029,4,""APDD"",665,665.193,30)"
^XMB(3.9,133,2,198,0)=""
^XMB(3.9,133,2,199,0)="""BLD"",6029,4,""APDD"",665,665.193,30.1)"
^XMB(3.9,133,2,200,0)=""
^XMB(3.9,133,2,201,0)="""BLD"",6029,4,""APDD"",665,665.193,30.2)"
^XMB(3.9,133,2,202,0)=""
^XMB(3.9,133,2,203,0)="""BLD"",6029,4,""APDD"",665,665.193,30.3)"
^XMB(3.9,133,2,204,0)=""
^XMB(3.9,133,2,205,0)="""BLD"",6029,4,""APDD"",665,665.193,30.4)"
^XMB(3.9,133,2,206,0)=""
^XMB(3.9,133,2,207,0)="""BLD"",6029,4,""APDD"",665,665.193,30.5)"
^XMB(3.9,133,2,208,0)=""
^XMB(3.9,133,2,209,0)="""BLD"",6029,4,""APDD"",665,665.193,30.6)"
^XMB(3.9,133,2,210,0)=""
^XMB(3.9,133,2,211,0)="""BLD"",6029,4,""APDD"",665,665.193,30.7)"
^XMB(3.9,133,2,212,0)=""
^XMB(3.9,133,2,213,0)="""BLD"",6029,4,""APDD"",665,665.193,31)"
^XMB(3.9,133,2,214,0)=""
^XMB(3.9,133,2,215,0)="""BLD"",6029,4,""APDD"",665,665.193,31.1)"
^XMB(3.9,133,2,216,0)=""
^XMB(3.9,133,2,217,0)="""BLD"",6029,4,""APDD"",665,665.193,31.2)"
^XMB(3.9,133,2,218,0)=""
^XMB(3.9,133,2,219,0)="""BLD"",6029,4,""APDD"",665,665.193,31.3)"
^XMB(3.9,133,2,220,0)=""
^XMB(3.9,133,2,221,0)="""BLD"",6029,4,""APDD"",665,665.193,31.4)"
^XMB(3.9,133,2,222,0)=""
^XMB(3.9,133,2,223,0)="""BLD"",6029,4,""APDD"",665,665.193,31.5)"
^XMB(3.9,133,2,224,0)=""
^XMB(3.9,133,2,225,0)="""BLD"",6029,4,""APDD"",665,665.193,31.6)"
^XMB(3.9,133,2,226,0)=""
^XMB(3.9,133,2,227,0)="""BLD"",6029,4,""APDD"",665,665.193,31.7)"
^XMB(3.9,133,2,228,0)=""
^XMB(3.9,133,2,229,0)="""BLD"",6029,4,""APDD"",665,665.193,32)"
^XMB(3.9,133,2,230,0)=""
^XMB(3.9,133,2,231,0)="""BLD"",6029,4,""APDD"",665,665.193,32.1)"
^XMB(3.9,133,2,232,0)=""
^XMB(3.9,133,2,233,0)="""BLD"",6029,4,""APDD"",665,665.193,32.2)"
^XMB(3.9,133,2,234,0)=""
^XMB(3.9,133,2,235,0)="""BLD"",6029,4,""APDD"",665,665.193,32.3)"
^XMB(3.9,133,2,236,0)=""
^XMB(3.9,133,2,237,0)="""BLD"",6029,4,""APDD"",665,665.193,32.4)"
^XMB(3.9,133,2,238,0)=""
^XMB(3.9,133,2,239,0)="""BLD"",6029,4,""APDD"",665,665.193,32.5)"
^XMB(3.9,133,2,240,0)=""
^XMB(3.9,133,2,241,0)="""BLD"",6029,4,""APDD"",665,665.193,32.6)"
^XMB(3.9,133,2,242,0)=""
^XMB(3.9,133,2,243,0)="""BLD"",6029,4,""APDD"",665,665.193,32.7)"
^XMB(3.9,133,2,244,0)=""
^XMB(3.9,133,2,245,0)="""BLD"",6029,4,""APDD"",665,665.193,33)"
^XMB(3.9,133,2,246,0)=""
^XMB(3.9,133,2,247,0)="""BLD"",6029,4,""APDD"",665,665.193,33.1)"
^XMB(3.9,133,2,248,0)=""
^XMB(3.9,133,2,249,0)="""BLD"",6029,4,""APDD"",665,665.193,33.2)"
^XMB(3.9,133,2,250,0)=""
^XMB(3.9,133,2,251,0)="""BLD"",6029,4,""APDD"",665,665.193,33.3)"
^XMB(3.9,133,2,252,0)=""
^XMB(3.9,133,2,253,0)="""BLD"",6029,4,""APDD"",665,665.193,33.4)"
^XMB(3.9,133,2,254,0)=""
^XMB(3.9,133,2,255,0)="""BLD"",6029,4,""APDD"",665,665.193,33.5)"
^XMB(3.9,133,2,256,0)=""
^XMB(3.9,133,2,257,0)="""BLD"",6029,4,""APDD"",665,665.193,33.6)"
^XMB(3.9,133,2,258,0)=""
^XMB(3.9,133,2,259,0)="""BLD"",6029,4,""APDD"",665,665.193,33.7)"
^XMB(3.9,133,2,260,0)=""
^XMB(3.9,133,2,261,0)="""BLD"",6029,4,""APDD"",665,665.193,100)"
^XMB(3.9,133,2,262,0)=""
^XMB(3.9,133,2,263,0)="""BLD"",6029,4,""APDD"",665,665.193,101)"
^XMB(3.9,133,2,264,0)=""
^XMB(3.9,133,2,265,0)="""BLD"",6029,4,""APDD"",665,665.194)"
^XMB(3.9,133,2,266,0)=""
^XMB(3.9,133,2,267,0)="""BLD"",6029,4,""APDD"",665,665.194,.01)"
^XMB(3.9,133,2,268,0)=""
^XMB(3.9,133,2,269,0)="""BLD"",6029,4,""APDD"",665,665.194,100)"
^XMB(3.9,133,2,270,0)=""
^XMB(3.9,133,2,271,0)="""BLD"",6029,4,""APDD"",665,665.194,101)"
^XMB(3.9,133,2,272,0)=""
^XMB(3.9,133,2,273,0)="""BLD"",6029,4,""APDD"",665.72,665.723191)"
^XMB(3.9,133,2,274,0)=""
^XMB(3.9,133,2,275,0)="""BLD"",6029,4,""APDD"",665.72,665.723191,.01)"
^XMB(3.9,133,2,276,0)=""
^XMB(3.9,133,2,277,0)="""BLD"",6029,4,""APDD"",665.72,665.723191,100)"
^XMB(3.9,133,2,278,0)=""
^XMB(3.9,133,2,279,0)="""BLD"",6029,4,""APDD"",665.72,665.723191,101)"
^XMB(3.9,133,2,280,0)=""
^XMB(3.9,133,2,281,0)="""BLD"",6029,4,""APDD"",665.72,665.723191,102)"
^XMB(3.9,133,2,282,0)=""
^XMB(3.9,133,2,283,0)="""BLD"",6029,4,""B"",660,660)"
^XMB(3.9,133,2,284,0)=""
^XMB(3.9,133,2,285,0)="""BLD"",6029,4,""B"",665,665)"
^XMB(3.9,133,2,286,0)=""
^XMB(3.9,133,2,287,0)="""BLD"",6029,4,""B"",665.72,665.72)"
^XMB(3.9,133,2,288,0)=""
^XMB(3.9,133,2,289,0)="""BLD"",6029,6)"
^XMB(3.9,133,2,290,0)="2^"
^XMB(3.9,133,2,291,0)="""BLD"",6029,""ABPKG"")"
^XMB(3.9,133,2,292,0)="n"
^XMB(3.9,133,2,293,0)="""BLD"",6029,""INID"")"
^XMB(3.9,133,2,294,0)="^n"
^XMB(3.9,133,2,295,0)="""BLD"",6029,""INIT"")"
^XMB(3.9,133,2,296,0)="POST^RMPRPF"
^XMB(3.9,133,2,297,0)="""BLD"",6029,""KRN"",0)"
^XMB(3.9,133,2,298,0)="^9.67PA^8989.52^19"
^XMB(3.9,133,2,299,0)="""BLD"",6029,""KRN"",.4,0)"
^XMB(3.9,133,2,300,0)=".4"
^XMB(3.9,133,2,301,0)="""BLD"",6029,""KRN"",.401,0)"
^XMB(3.9,133,2,302,0)=".401"
^XMB(3.9,133,2,303,0)="""BLD"",6029,""KRN"",.402,0)"
^XMB(3.9,133,2,304,0)=".402"
^XMB(3.9,133,2,305,0)="""BLD"",6029,""KRN"",.403,0)"
^XMB(3.9,133,2,306,0)=".403"
^XMB(3.9,133,2,307,0)="""BLD"",6029,""KRN"",.5,0)"
^XMB(3.9,133,2,308,0)=".5"
^XMB(3.9,133,2,309,0)="""BLD"",6029,""KRN"",.84,0)"
^XMB(3.9,133,2,310,0)=".84"
^XMB(3.9,133,2,311,0)="""BLD"",6029,""KRN"",3.6,0)"
^XMB(3.9,133,2,312,0)="3.6"
^XMB(3.9,133,2,313,0)="""BLD"",6029,""KRN"",3.8,0)"
^XMB(3.9,133,2,314,0)="3.8"
^XMB(3.9,133,2,315,0)="""BLD"",6029,""KRN"",9.2,0)"
^XMB(3.9,133,2,316,0)="9.2"
^XMB(3.9,133,2,317,0)="""BLD"",6029,""KRN"",9.8,0)"
^XMB(3.9,133,2,318,0)="9.8"
^XMB(3.9,133,2,319,0)="""BLD"",6029,""KRN"",9.8,""NM"",0)"
^XMB(3.9,133,2,320,0)="^9.68A^7^7"
^XMB(3.9,133,2,321,0)="""BLD"",6029,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,133,2,322,0)="RMPOPF^^0^B49044325"
^XMB(3.9,133,2,323,0)="""BLD"",6029,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,133,2,324,0)="RMPOPF1^^0^B9887538"
^XMB(3.9,133,2,325,0)="""BLD"",6029,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,133,2,326,0)="RMPOPST3^^0^B24093511"
^XMB(3.9,133,2,327,0)="""BLD"",6029,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,133,2,328,0)="RMPRPF^^0^B4839309"
^XMB(3.9,133,2,329,0)="""BLD"",6029,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,133,2,330,0)="RMPRPF1^^0^B17743335"
^XMB(3.9,133,2,331,0)="""BLD"",6029,""KRN"",9.8,""NM"",6,0)"
^XMB(3.9,133,2,332,0)="RMPRPF2^^0^B28817815"
^XMB(3.9,133,2,333,0)="""BLD"",6029,""KRN"",9.8,""NM"",7,0)"
^XMB(3.9,133,2,334,0)="RMPRPF3^^0^B8566306"
^XMB(3.9,133,2,335,0)="""BLD"",6029,""KRN"",9.8,""NM"",""B"",""RMPOPF"",1)"
^XMB(3.9,133,2,336,0)=""
^XMB(3.9,133,2,337,0)="""BLD"",6029,""KRN"",9.8,""NM"",""B"",""RMPOPF1"",2)"
^XMB(3.9,133,2,338,0)=""
^XMB(3.9,133,2,339,0)="""BLD"",6029,""KRN"",9.8,""NM"",""B"",""RMPOPST3"",3)"
^XMB(3.9,133,2,340,0)=""
^XMB(3.9,133,2,341,0)="""BLD"",6029,""KRN"",9.8,""NM"",""B"",""RMPRPF"",4)"
^XMB(3.9,133,2,342,0)=""
^XMB(3.9,133,2,343,0)="""BLD"",6029,""KRN"",9.8,""NM"",""B"",""RMPRPF1"",5)"
^XMB(3.9,133,2,344,0)=""
^XMB(3.9,133,2,345,0)="""BLD"",6029,""KRN"",9.8,""NM"",""B"",""RMPRPF2"",6)"
^XMB(3.9,133,2,346,0)=""
^XMB(3.9,133,2,347,0)="""BLD"",6029,""KRN"",9.8,""NM"",""B"",""RMPRPF3"",7)"
^XMB(3.9,133,2,348,0)=""
^XMB(3.9,133,2,349,0)="""BLD"",6029,""KRN"",19,0)"
^XMB(3.9,133,2,350,0)="19"
^XMB(3.9,133,2,351,0)="""BLD"",6029,""KRN"",19,""NM"",0)"
^XMB(3.9,133,2,352,0)="^9.68A^1^1"
^XMB(3.9,133,2,353,0)="""BLD"",6029,""KRN"",19,""NM"",1,0)"
^XMB(3.9,133,2,354,0)="RMPR PFSS BACKGROUND^^0"
^XMB(3.9,133,2,355,0)="""BLD"",6029,""KRN"",19,""NM"",""B"",""RMPR PFSS BACKGROUND"",1)"
^XMB(3.9,133,2,356,0)=""
^XMB(3.9,133,2,357,0)="""BLD"",6029,""KRN"",19.1,0)"
^XMB(3.9,133,2,358,0)="19.1"
^XMB(3.9,133,2,359,0)="""BLD"",6029,""KRN"",19.1,""NM"",0)"
^XMB(3.9,133,2,360,0)="^9.68A^^"
^XMB(3.9,133,2,361,0)="""BLD"",6029,""KRN"",101,0)"
^XMB(3.9,133,2,362,0)="101"
^XMB(3.9,133,2,363,0)="""BLD"",6029,""KRN"",409.61,0)"
^XMB(3.9,133,2,364,0)="409.61"
^XMB(3.9,133,2,365,0)="""BLD"",6029,""KRN"",771,0)"
^XMB(3.9,133,2,366,0)="771"
^XMB(3.9,133,2,367,0)="""BLD"",6029,""KRN"",870,0)"
^XMB(3.9,133,2,368,0)="870"
^XMB(3.9,133,2,369,0)="""BLD"",6029,""KRN"",8989.51,0)"
^XMB(3.9,133,2,370,0)="8989.51"
^XMB(3.9,133,2,371,0)="""BLD"",6029,""KRN"",8989.52,0)"
^XMB(3.9,133,2,372,0)="8989.52"
^XMB(3.9,133,2,373,0)="""BLD"",6029,""KRN"",8994,0)"
^XMB(3.9,133,2,374,0)="8994"
^XMB(3.9,133,2,375,0)="""BLD"",6029,""KRN"",""B"",.4,.4)"
^XMB(3.9,133,2,376,0)=""
^XMB(3.9,133,2,377,0)="""BLD"",6029,""KRN"",""B"",.401,.401)"
^XMB(3.9,133,2,378,0)=""
^XMB(3.9,133,2,379,0)="""BLD"",6029,""KRN"",""B"",.402,.402)"
^XMB(3.9,133,2,380,0)=""
^XMB(3.9,133,2,381,0)="""BLD"",6029,""KRN"",""B"",.403,.403)"
^XMB(3.9,133,2,382,0)=""
^XMB(3.9,133,2,383,0)="""BLD"",6029,""KRN"",""B"",.5,.5)"
^XMB(3.9,133,2,384,0)=""
^XMB(3.9,133,2,385,0)="""BLD"",6029,""KRN"",""B"",.84,.84)"
^XMB(3.9,133,2,386,0)=""
^XMB(3.9,133,2,387,0)="""BLD"",6029,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,133,2,388,0)=""
^XMB(3.9,133,2,389,0)="""BLD"",6029,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,133,2,390,0)=""
^XMB(3.9,133,2,391,0)="""BLD"",6029,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,133,2,392,0)=""
^XMB(3.9,133,2,393,0)="""BLD"",6029,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,133,2,394,0)=""
^XMB(3.9,133,2,395,0)="""BLD"",6029,""KRN"",""B"",19,19)"
^XMB(3.9,133,2,396,0)=""
^XMB(3.9,133,2,397,0)="""BLD"",6029,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,133,2,398,0)=""
^XMB(3.9,133,2,399,0)="""BLD"",6029,""KRN"",""B"",101,101)"
^XMB(3.9,133,2,400,0)=""
^XMB(3.9,133,2,401,0)="""BLD"",6029,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,133,2,402,0)=""
^XMB(3.9,133,2,403,0)="""BLD"",6029,""KRN"",""B"",771,771)"
^XMB(3.9,133,2,404,0)=""
^XMB(3.9,133,2,405,0)="""BLD"",6029,""KRN"",""B"",870,870)"
^XMB(3.9,133,2,406,0)=""
^XMB(3.9,133,2,407,0)="""BLD"",6029,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,133,2,408,0)=""
^XMB(3.9,133,2,409,0)="""BLD"",6029,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,133,2,410,0)=""
^XMB(3.9,133,2,411,0)="""BLD"",6029,""KRN"",""B"",8994,8994)"
^XMB(3.9,133,2,412,0)=""
^XMB(3.9,133,2,413,0)="""BLD"",6029,""QUES"",0)"
^XMB(3.9,133,2,414,0)="^9.62^^"
^XMB(3.9,133,2,415,0)="""BLD"",6029,""REQB"",0)"
^XMB(3.9,133,2,416,0)="^9.611^4^4"
^XMB(3.9,133,2,417,0)="""BLD"",6029,""REQB"",1,0)"
^XMB(3.9,133,2,418,0)="RMPR*3.0*61^2"
^XMB(3.9,133,2,419,0)="""BLD"",6029,""REQB"",2,0)"
^XMB(3.9,133,2,420,0)="RMPR*3.0*78^2"
^XMB(3.9,133,2,421,0)="""BLD"",6029,""REQB"",3,0)"
^XMB(3.9,133,2,422,0)="RMPR*3.0*41^2"
^XMB(3.9,133,2,423,0)="""BLD"",6029,""REQB"",4,0)"
^XMB(3.9,133,2,424,0)="IB*2.0*286^2"
^XMB(3.9,133,2,425,0)="""BLD"",6029,""REQB"",""B"",""IB*2.0*286"",4)"
^XMB(3.9,133,2,426,0)=""
^XMB(3.9,133,2,427,0)="""BLD"",6029,""REQB"",""B"",""RMPR*3.0*41"",3)"
^XMB(3.9,133,2,428,0)=""
^XMB(3.9,133,2,429,0)="""BLD"",6029,""REQB"",""B"",""RMPR*3.0*61"",1)"
^XMB(3.9,133,2,430,0)=""
^XMB(3.9,133,2,431,0)="""BLD"",6029,""REQB"",""B"",""RMPR*3.0*78"",2)"
^XMB(3.9,133,2,432,0)=""
^XMB(3.9,133,2,433,0)="""FIA"",660)"
^XMB(3.9,133,2,434,0)="RECORD OF PROS APPLIANCE/REPAIR"
^XMB(3.9,133,2,435,0)="""FIA"",660,0)"
^XMB(3.9,133,2,436,0)="^RMPR(660,"
^XMB(3.9,133,2,437,0)="""FIA"",660,0,0)"
^XMB(3.9,133,2,438,0)="660OID"
^XMB(3.9,133,2,439,0)="""FIA"",660,0,1)"
^XMB(3.9,133,2,440,0)="y^y^p^^^^n^^n"
^XMB(3.9,133,2,441,0)="""FIA"",660,0,10)"
^XMB(3.9,133,2,442,0)=""
^XMB(3.9,133,2,443,0)="""FIA"",660,0,11)"
^XMB(3.9,133,2,444,0)=""
^XMB(3.9,133,2,445,0)="""FIA"",660,0,""RLRO"")"
^XMB(3.9,133,2,446,0)=""
^XMB(3.9,133,2,447,0)="""FIA"",660,0,""VR"")"
^XMB(3.9,133,2,448,0)="3.0^RMPR"
^XMB(3.9,133,2,449,0)="""FIA"",660,660)"
^XMB(3.9,133,2,450,0)="1"
^XMB(3.9,133,2,451,0)="""FIA"",660,660,.01)"
^XMB(3.9,133,2,452,0)=""
^XMB(3.9,133,2,453,0)="""FIA"",660,660,4.5)"
^XMB(3.9,133,2,454,0)=""
^XMB(3.9,133,2,455,0)="""FIA"",660,660,5)"
^XMB(3.9,133,2,456,0)=""
^XMB(3.9,133,2,457,0)="""FIA"",660,660,8.6)"
^XMB(3.9,133,2,458,0)=""
^XMB(3.9,133,2,459,0)="""FIA"",660,660,14)"
^XMB(3.9,133,2,460,0)=""
^XMB(3.9,133,2,461,0)="""FIA"",660,660,100)"
^XMB(3.9,133,2,462,0)=""
^XMB(3.9,133,2,463,0)="""FIA"",660,660,101)"
^XMB(3.9,133,2,464,0)=""
^XMB(3.9,133,2,465,0)="""FIA"",660,660,102)"
^XMB(3.9,133,2,466,0)=""
^XMB(3.9,133,2,467,0)="""FIA"",660,660,103)"
^XMB(3.9,133,2,468,0)=""
^XMB(3.9,133,2,469,0)="""FIA"",660,660,104)"
^XMB(3.9,133,2,470,0)=""
^XMB(3.9,133,2,471,0)="""FIA"",660,660,105)"
^XMB(3.9,133,2,472,0)=""
^XMB(3.9,133,2,473,0)="""FIA"",660,660,106)"
^XMB(3.9,133,2,474,0)=""
^XMB(3.9,133,2,475,0)="""FIA"",660,660,107)"
^XMB(3.9,133,2,476,0)=""
^XMB(3.9,133,2,477,0)="""FIA"",665)"
^XMB(3.9,133,2,478,0)="PROSTHETICS PATIENT"
^XMB(3.9,133,2,479,0)="""FIA"",665,0)"
^XMB(3.9,133,2,480,0)="^RMPR(665,"
^XMB(3.9,133,2,481,0)="""FIA"",665,0,0)"
^XMB(3.9,133,2,482,0)="665IP"
^XMB(3.9,133,2,483,0)="""FIA"",665,0,1)"
^XMB(3.9,133,2,484,0)="y^n^p^^^^n^^n"
^XMB(3.9,133,2,485,0)="""FIA"",665,0,10)"
^XMB(3.9,133,2,486,0)=""
^XMB(3.9,133,2,487,0)="""FIA"",665,0,11)"
^XMB(3.9,133,2,488,0)=""
^XMB(3.9,133,2,489,0)="""FIA"",665,0,""RLRO"")"
^XMB(3.9,133,2,490,0)=""
^XMB(3.9,133,2,491,0)="""FIA"",665,0,""VR"")"
^XMB(3.9,133,2,492,0)="3.0^RMPR"
^XMB(3.9,133,2,493,0)="""FIA"",665,665)"
^XMB(3.9,133,2,494,0)="1"
^XMB(3.9,133,2,495,0)="""FIA"",665,665,19.3)"
^XMB(3.9,133,2,496,0)=""
^XMB(3.9,133,2,497,0)="""FIA"",665,665,19.4)"
^XMB(3.9,133,2,498,0)=""
^XMB(3.9,133,2,499,0)="""FIA"",665,665.193)"
^XMB(3.9,133,2,500,0)="1"
^XMB(3.9,133,2,501,0)="""FIA"",665,665.193,.01)"
^XMB(3.9,133,2,502,0)=""
^XMB(3.9,133,2,503,0)="""FIA"",665,665.193,30)"
^XMB(3.9,133,2,504,0)=""
^XMB(3.9,133,2,505,0)="""FIA"",665,665.193,30.1)"
^XMB(3.9,133,2,506,0)=""
^XMB(3.9,133,2,507,0)="""FIA"",665,665.193,30.2)"
^XMB(3.9,133,2,508,0)=""
^XMB(3.9,133,2,509,0)="""FIA"",665,665.193,30.3)"
^XMB(3.9,133,2,510,0)=""
^XMB(3.9,133,2,511,0)="""FIA"",665,665.193,30.4)"
^XMB(3.9,133,2,512,0)=""
^XMB(3.9,133,2,513,0)="""FIA"",665,665.193,30.5)"
^XMB(3.9,133,2,514,0)=""
^XMB(3.9,133,2,515,0)="""FIA"",665,665.193,30.6)"
^XMB(3.9,133,2,516,0)=""
^XMB(3.9,133,2,517,0)="""FIA"",665,665.193,30.7)"
^XMB(3.9,133,2,518,0)=""
^XMB(3.9,133,2,519,0)="""FIA"",665,665.193,31)"
^XMB(3.9,133,2,520,0)=""
^XMB(3.9,133,2,521,0)="""FIA"",665,665.193,31.1)"
^XMB(3.9,133,2,522,0)=""
^XMB(3.9,133,2,523,0)="""FIA"",665,665.193,31.2)"
^XMB(3.9,133,2,524,0)=""
^XMB(3.9,133,2,525,0)="""FIA"",665,665.193,31.3)"
^XMB(3.9,133,2,526,0)=""
^XMB(3.9,133,2,527,0)="""FIA"",665,665.193,31.4)"
^XMB(3.9,133,2,528,0)=""
^XMB(3.9,133,2,529,0)="""FIA"",665,665.193,31.5)"
^XMB(3.9,133,2,530,0)=""
^XMB(3.9,133,2,531,0)="""FIA"",665,665.193,31.6)"
^XMB(3.9,133,2,532,0)=""
^XMB(3.9,133,2,533,0)="""FIA"",665,665.193,31.7)"
^XMB(3.9,133,2,534,0)=""
^XMB(3.9,133,2,535,0)="""FIA"",665,665.193,32)"
^XMB(3.9,133,2,536,0)=""
^XMB(3.9,133,2,537,0)="""FIA"",665,665.193,32.1)"
^XMB(3.9,133,2,538,0)=""
^XMB(3.9,133,2,539,0)="""FIA"",665,665.193,32.2)"
^XMB(3.9,133,2,540,0)=""
^XMB(3.9,133,2,541,0)="""FIA"",665,665.193,32.3)"
^XMB(3.9,133,2,542,0)=""
^XMB(3.9,133,2,543,0)="""FIA"",665,665.193,32.4)"
^XMB(3.9,133,2,544,0)=""
^XMB(3.9,133,2,545,0)="""FIA"",665,665.193,32.5)"
^XMB(3.9,133,2,546,0)=""
^XMB(3.9,133,2,547,0)="""FIA"",665,665.193,32.6)"
^XMB(3.9,133,2,548,0)=""
^XMB(3.9,133,2,549,0)="""FIA"",665,665.193,32.7)"
^XMB(3.9,133,2,550,0)=""
^XMB(3.9,133,2,551,0)="""FIA"",665,665.193,33)"
^XMB(3.9,133,2,552,0)=""
^XMB(3.9,133,2,553,0)="""FIA"",665,665.193,33.1)"
^XMB(3.9,133,2,554,0)=""
^XMB(3.9,133,2,555,0)="""FIA"",665,665.193,33.2)"
^XMB(3.9,133,2,556,0)=""
^XMB(3.9,133,2,557,0)="""FIA"",665,665.193,33.3)"
^XMB(3.9,133,2,558,0)=""
^XMB(3.9,133,2,559,0)="""FIA"",665,665.193,33.4)"
^XMB(3.9,133,2,560,0)=""
^XMB(3.9,133,2,561,0)="""FIA"",665,665.193,33.5)"
^XMB(3.9,133,2,562,0)=""
^XMB(3.9,133,2,563,0)="""FIA"",665,665.193,33.6)"
^XMB(3.9,133,2,564,0)=""
^XMB(3.9,133,2,565,0)="""FIA"",665,665.193,33.7)"
^XMB(3.9,133,2,566,0)=""
^XMB(3.9,133,2,567,0)="""FIA"",665,665.193,100)"
^XMB(3.9,133,2,568,0)=""
^XMB(3.9,133,2,569,0)="""FIA"",665,665.193,101)"
^XMB(3.9,133,2,570,0)=""
^XMB(3.9,133,2,571,0)="""FIA"",665,665.194)"
^XMB(3.9,133,2,572,0)="1"
^XMB(3.9,133,2,573,0)="""FIA"",665,665.194,.01)"
^XMB(3.9,133,2,574,0)=""
^XMB(3.9,133,2,575,0)="""FIA"",665,665.194,100)"
^XMB(3.9,133,2,576,0)=""
^XMB(3.9,133,2,577,0)="""FIA"",665,665.194,101)"
^XMB(3.9,133,2,578,0)=""
^XMB(3.9,133,2,579,0)="""FIA"",665.72)"
^XMB(3.9,133,2,580,0)="HOME OXYGEN TRANSACTIONS FILE"
^XMB(3.9,133,2,581,0)="""FIA"",665.72,0)"
^XMB(3.9,133,2,582,0)="^RMPO(665.72,"
^XMB(3.9,133,2,583,0)="""FIA"",665.72,0,0)"
^XMB(3.9,133,2,584,0)="665.72P"
^XMB(3.9,133,2,585,0)="""FIA"",665.72,0,1)"
^XMB(3.9,133,2,586,0)="y^n^p^^^^n^^n"
^XMB(3.9,133,2,587,0)="""FIA"",665.72,0,10)"
^XMB(3.9,133,2,588,0)=""
^XMB(3.9,133,2,589,0)="""FIA"",665.72,0,11)"
^XMB(3.9,133,2,590,0)=""
^XMB(3.9,133,2,591,0)="""FIA"",665.72,0,""RLRO"")"
^XMB(3.9,133,2,592,0)=""
^XMB(3.9,133,2,593,0)="""FIA"",665.72,0,""VR"")"
^XMB(3.9,133,2,594,0)="3.0^RMPR"
^XMB(3.9,133,2,595,0)="""FIA"",665.72,665.72)"
^XMB(3.9,133,2,596,0)="1"
^XMB(3.9,133,2,597,0)="""FIA"",665.72,665.72319)"
^XMB(3.9,133,2,598,0)="1"
^XMB(3.9,133,2,599,0)="""FIA"",665.72,665.72319,1)"
^XMB(3.9,133,2,600,0)=""
^XMB(3.9,133,2,601,0)="""FIA"",665.72,665.723191)"
^XMB(3.9,133,2,602,0)="1"
^XMB(3.9,133,2,603,0)="""FIA"",665.72,665.723191,.01)"
^XMB(3.9,133,2,604,0)=""
^XMB(3.9,133,2,605,0)="""FIA"",665.72,665.723191,100)"
^XMB(3.9,133,2,606,0)=""
^XMB(3.9,133,2,607,0)="""FIA"",665.72,665.723191,101)"
^XMB(3.9,133,2,608,0)=""
^XMB(3.9,133,2,609,0)="""FIA"",665.72,665.723191,102)"
^XMB(3.9,133,2,610,0)=""
^XMB(3.9,133,2,611,0)="""INIT"")"
^XMB(3.9,133,2,612,0)="POST^RMPRPF"
^XMB(3.9,133,2,613,0)="""KRN"",19,12523,-1)"
^XMB(3.9,133,2,614,0)="0^1"
^XMB(3.9,133,2,615,0)="""KRN"",19,12523,0)"
^XMB(3.9,133,2,616,0)="RMPR PFSS BACKGROUND^Prosthetics PFSS Background Task^^R^^^^^^^^PROSTHETICS"
^XMB(3.9,133,2,617,0)="""KRN"",19,12523,1,0)"
^XMB(3.9,133,2,618,0)="^19.06^1^1^3051017^^"
^XMB(3.9,133,2,619,0)="""KRN"",19,12523,1,1,0)"
^XMB(3.9,133,2,620,0)="Scheduled task that monitors Prosthetics for PFSS billing events."
^XMB(3.9,133,2,621,0)="""KRN"",19,12523,25)"
^XMB(3.9,133,2,622,0)="EN^RMPRPF"
^XMB(3.9,133,2,623,0)="""KRN"",19,12523,200.9)"
^XMB(3.9,133,2,624,0)="y"
^XMB(3.9,133,2,625,0)="""KRN"",19,12523,""U"")"
^XMB(3.9,133,2,626,0)="PROSTHETICS PFSS BACKGROUND TA"
^XMB(3.9,133,2,627,0)="""MBREQ"")"
^XMB(3.9,133,2,628,0)="0"
^XMB(3.9,133,2,629,0)="""ORD"",18,19)"
^XMB(3.9,133,2,630,0)="19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA"
^XMB(3.9,133,2,631,0)="""ORD"",18,19,0)"
^XMB(3.9,133,2,632,0)="OPTION"
^XMB(3.9,133,2,633,0)="""PKG"",280,-1)"
^XMB(3.9,133,2,634,0)="1^1"
^XMB(3.9,133,2,635,0)="""PKG"",280,0)"
^XMB(3.9,133,2,636,0)="PROSTHETICS^RMPR^PROSTHETICS VERSION 3.0 ALPHA"
^XMB(3.9,133,2,637,0)="""PKG"",280,20,0)"
^XMB(3.9,133,2,638,0)="^9.402P^^0"
^XMB(3.9,133,2,639,0)="""PKG"",280,22,0)"
^XMB(3.9,133,2,640,0)="^9.49I^1^1"
^XMB(3.9,133,2,641,0)="""PKG"",280,22,1,0)"
^XMB(3.9,133,2,642,0)="3.0^2960209^2970624"
^XMB(3.9,133,2,643,0)="""PKG"",280,22,1,""PAH"",1,0)"
^XMB(3.9,133,2,644,0)="98^3060403^14"
^XMB(3.9,133,2,645,0)="""PKG"",280,22,1,""PAH"",1,1,0)"
^XMB(3.9,133,2,646,0)="^^1^1^3060403"
^XMB(3.9,133,2,647,0)="""PKG"",280,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,133,2,648,0)="Prosthetics PFSS"
^XMB(3.9,133,2,649,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,133,2,650,0)="Y"
^XMB(3.9,133,2,651,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,133,2,652,0)="^D REP^XPDH"
^XMB(3.9,133,2,653,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,133,2,654,0)="Shall I write over your |FLAG| File"
^XMB(3.9,133,2,655,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,133,2,656,0)="YES"
^XMB(3.9,133,2,657,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,133,2,658,0)="D XPF1^XPDIQ"
^XMB(3.9,133,2,659,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,133,2,660,0)="Y"
^XMB(3.9,133,2,661,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,133,2,662,0)="^D DTA^XPDH"
^XMB(3.9,133,2,663,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,133,2,664,0)="Want my data |FLAG| yours"
^XMB(3.9,133,2,665,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,133,2,666,0)="YES"
^XMB(3.9,133,2,667,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,133,2,668,0)="D XPF2^XPDIQ"
^XMB(3.9,133,2,669,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,133,2,670,0)="YO"
^XMB(3.9,133,2,671,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,133,2,672,0)="^D INHIBIT^XPDH"
^XMB(3.9,133,2,673,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,133,2,674,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,133,2,675,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,133,2,676,0)="YES"
^XMB(3.9,133,2,677,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,133,2,678,0)="D XPI1^XPDIQ"
^XMB(3.9,133,2,679,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,133,2,680,0)="PO^VA(200,:EM"
^XMB(3.9,133,2,681,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,133,2,682,0)="^D MG^XPDH"
^XMB(3.9,133,2,683,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,133,2,684,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,133,2,685,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,133,2,686,0)=""
^XMB(3.9,133,2,687,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,133,2,688,0)="D XPM1^XPDIQ"
^XMB(3.9,133,2,689,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,133,2,690,0)="Y"
^XMB(3.9,133,2,691,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,133,2,692,0)="^D MENU^XPDH"
^XMB(3.9,133,2,693,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,133,2,694,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,133,2,695,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,133,2,696,0)="YES"
^XMB(3.9,133,2,697,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,133,2,698,0)="D XPO1^XPDIQ"
^XMB(3.9,133,2,699,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,133,2,700,0)="Y"
^XMB(3.9,133,2,701,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,133,2,702,0)="^D OPT^XPDH"
^XMB(3.9,133,2,703,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,133,2,704,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,133,2,705,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,133,2,706,0)="YES"
^XMB(3.9,133,2,707,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,133,2,708,0)="D XPZ1^XPDIQ"
^XMB(3.9,133,2,709,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,133,2,710,0)="Y"
^XMB(3.9,133,2,711,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,133,2,712,0)="^D RTN^XPDH"
^XMB(3.9,133,2,713,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,133,2,714,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,133,2,715,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,133,2,716,0)="NO"
^XMB(3.9,133,2,717,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,133,2,718,0)="D XPZ2^XPDIQ"
^XMB(3.9,133,2,719,0)="""RTN"")"
^XMB(3.9,133,2,720,0)="7"
^XMB(3.9,133,2,721,0)="""RTN"",""RMPOPF"")"
^XMB(3.9,133,2,722,0)="0^1^B49044325"
^XMB(3.9,133,2,723,0)="""RTN"",""RMPOPF"",1,0)"
^XMB(3.9,133,2,724,0)="RMPOPF ;HINES-FO/DDA - MAIN INTERFACE ROUTINE FOR PFSS AND HOME OXYGEN ;8/18/05"
^XMB(3.9,133,2,725,0)="""RTN"",""RMPOPF"",2,0)"
^XMB(3.9,133,2,726,0)=" ;;3.0;PROSTHETICS;**98**;Feb 09, 1996"
^XMB(3.9,133,2,727,0)="""RTN"",""RMPOPF"",3,0)"
^XMB(3.9,133,2,728,0)="EN ; ENTRY POINT FOR HOME OXYGEN BACKGROUND PROCESSING"
^XMB(3.9,133,2,729,0)="""RTN"",""RMPOPF"",4,0)"
^XMB(3.9,133,2,730,0)=" ; Loop on APNEW and APO cross-references."
^XMB(3.9,133,2,731,0)="""RTN"",""RMPOPF"",5,0)"
^XMB(3.9,133,2,732,0)=" D APNEW,APO"
^XMB(3.9,133,2,733,0)="""RTN"",""RMPOPF"",6,0)"
^XMB(3.9,133,2,734,0)=" K RMPR6699,RMPRACCT,RMPRAPLR,RMPRDFN,RMPRDG1,RMPRDRG,RMPREVNT,RMPRHCPC,RMPRHCPT,RMPRIEN,RMPRITEM,RMPRPAR,RMPRPR1,RMPRPV1,RMPRPV2,RMPRRX,RMPRRXDT,RMPRRXEX,RMPRRXI,RMPRRXLP,RMPRSITE,RMPRSTAT,RMPRZCL"
^XMB(3.9,133,2,735,0)="""RTN"",""RMPOPF"",7,0)"
^XMB(3.9,133,2,736,0)=" Q"
^XMB(3.9,133,2,737,0)="""RTN"",""RMPOPF"",8,0)"
^XMB(3.9,133,2,738,0)="APNEW ;Loop on file #665 APNEW cross-reference."
^XMB(3.9,133,2,739,0)="""RTN"",""RMPOPF"",9,0)"
^XMB(3.9,133,2,740,0)=" ; Delete ITEM'S PFSS ACCOUNT REFERENCE associated with previous prescription date."
^XMB(3.9,133,2,741,0)="""RTN"",""RMPOPF"",10,0)"
^XMB(3.9,133,2,742,0)=" ; Set PFSS ACCOUNT FLAG.  This will trigger the background process to obtain a new"
^XMB(3.9,133,2,743,0)="""RTN"",""RMPOPF"",11,0)"
^XMB(3.9,133,2,744,0)=" ;  PFSS ACCOUNT REFERENCE for the new prescription date."
^XMB(3.9,133,2,745,0)="""RTN"",""RMPOPF"",12,0)"
^XMB(3.9,133,2,746,0)=" S RMPRIEN=0"
^XMB(3.9,133,2,747,0)="""RTN"",""RMPOPF"",13,0)"
^XMB(3.9,133,2,748,0)=" F  S RMPRIEN=$O(^RMPR(665,""APNEW"",1,RMPRIEN)) Q:RMPRIEN'>0  D"
^XMB(3.9,133,2,749,0)="""RTN"",""RMPOPF"",14,0)"
^XMB(3.9,133,2,750,0)=" .; Check for valid prescription"
^XMB(3.9,133,2,751,0)="""RTN"",""RMPOPF"",15,0)"
^XMB(3.9,133,2,752,0)=" .D VALIDRX"
^XMB(3.9,133,2,753,0)="""RTN"",""RMPOPF"",16,0)"
^XMB(3.9,133,2,754,0)=" .I RMPRRXDT=0 D EXITNEW Q"
^XMB(3.9,133,2,755,0)="""RTN"",""RMPOPF"",17,0)"
^XMB(3.9,133,2,756,0)=" .S RMPRITEM=0"
^XMB(3.9,133,2,757,0)="""RTN"",""RMPOPF"",18,0)"
^XMB(3.9,133,2,758,0)=" .F  S RMPRITEM=$O(^RMPR(665,RMPRIEN,""RMPOC"",RMPRITEM)) Q:RMPRITEM'>0  D"
^XMB(3.9,133,2,759,0)="""RTN"",""RMPOPF"",19,0)"
^XMB(3.9,133,2,760,0)=" ..S DIE=""^RMPR(665,""_RMPRIEN_"",""""RMPOC"""","""
^XMB(3.9,133,2,761,0)="""RTN"",""RMPOPF"",20,0)"
^XMB(3.9,133,2,762,0)=" ..S DA(1)=RMPRIEN,DA=RMPRITEM"
^XMB(3.9,133,2,763,0)="""RTN"",""RMPOPF"",21,0)"
^XMB(3.9,133,2,764,0)=" ..S DR=""101///@;100///1"""
^XMB(3.9,133,2,765,0)="""RTN"",""RMPOPF"",22,0)"
^XMB(3.9,133,2,766,0)=" ..D ^DIE"
^XMB(3.9,133,2,767,0)="""RTN"",""RMPOPF"",23,0)"
^XMB(3.9,133,2,768,0)=" ..K DIE,DA,DR"
^XMB(3.9,133,2,769,0)="""RTN"",""RMPOPF"",24,0)"
^XMB(3.9,133,2,770,0)=" ..Q"
^XMB(3.9,133,2,771,0)="""RTN"",""RMPOPF"",25,0)"
^XMB(3.9,133,2,772,0)=" .D EXITNEW"
^XMB(3.9,133,2,773,0)="""RTN"",""RMPOPF"",26,0)"
^XMB(3.9,133,2,774,0)=" Q"
^XMB(3.9,133,2,775,0)="""RTN"",""RMPOPF"",27,0)"
^XMB(3.9,133,2,776,0)="EXITNEW ; Remove the APNEW flag"
^XMB(3.9,133,2,777,0)="""RTN"",""RMPOPF"",28,0)"
^XMB(3.9,133,2,778,0)=" S RMPRRX=0"
^XMB(3.9,133,2,779,0)="""RTN"",""RMPOPF"",29,0)"
^XMB(3.9,133,2,780,0)=" F  S RMPRRX=$O(^RMPR(665,""APNEW"",1,RMPRIEN,RMPRRX)) Q:RMPRRX'>0  D"
^XMB(3.9,133,2,781,0)="""RTN"",""RMPOPF"",30,0)"
^XMB(3.9,133,2,782,0)=" .S DIE=""^RMPR(665,""_RMPRIEN_"",""""RMPOB"""","""
^XMB(3.9,133,2,783,0)="""RTN"",""RMPOPF"",31,0)"
^XMB(3.9,133,2,784,0)=" .S DA(1)=RMPRIEN,DA=RMPRRX"
^XMB(3.9,133,2,785,0)="""RTN"",""RMPOPF"",32,0)"
^XMB(3.9,133,2,786,0)=" .S DR=""100///@"""
^XMB(3.9,133,2,787,0)="""RTN"",""RMPOPF"",33,0)"
^XMB(3.9,133,2,788,0)=" .D ^DIE"
^XMB(3.9,133,2,789,0)="""RTN"",""RMPOPF"",34,0)"
^XMB(3.9,133,2,790,0)=" .K DIE,DA,DR"
^XMB(3.9,133,2,791,0)="""RTN"",""RMPOPF"",35,0)"
^XMB(3.9,133,2,792,0)=" .Q"
^XMB(3.9,133,2,793,0)="""RTN"",""RMPOPF"",36,0)"
^XMB(3.9,133,2,794,0)=" Q"
^XMB(3.9,133,2,795,0)="""RTN"",""RMPOPF"",37,0)"
^XMB(3.9,133,2,796,0)="APO ;Loop on file #665 APO cross-reference and gather data for GETACCT api."
^XMB(3.9,133,2,797,0)="""RTN"",""RMPOPF"",38,0)"
^XMB(3.9,133,2,798,0)=" S RMPRIEN=0"
^XMB(3.9,133,2,799,0)="""RTN"",""RMPOPF"",39,0)"
^XMB(3.9,133,2,800,0)=" F  S RMPRIEN=$O(^RMPR(665,""APO"",1,RMPRIEN)) Q:RMPRIEN'>0  D GETACCT"
^XMB(3.9,133,2,801,0)="""RTN"",""RMPOPF"",40,0)"
^XMB(3.9,133,2,802,0)=" Q"
^XMB(3.9,133,2,803,0)="""RTN"",""RMPOPF"",41,0)"
^XMB(3.9,133,2,804,0)="GETACCT ; ENTRY POINT TO SEND HOME OXYGEN ACCOUNT CREATION, PRE-CERTIFICATION"
^XMB(3.9,133,2,805,0)="""RTN"",""RMPOPF"",42,0)"
^XMB(3.9,133,2,806,0)=" ;OR UPDATE DATA TO OBTAIN A PFSS ACCOUNT REFERENCE.     "
^XMB(3.9,133,2,807,0)="""RTN"",""RMPOPF"",43,0)"
^XMB(3.9,133,2,808,0)=" ; QUIT IF ALL VALID PRESCRIPTIONS HAVE EXPIRED."
^XMB(3.9,133,2,809,0)="""RTN"",""RMPOPF"",44,0)"
^XMB(3.9,133,2,810,0)=" D VALIDRX       ; LOOP ON EACH ITEM"
^XMB(3.9,133,2,811,0)="""RTN"",""RMPOPF"",45,0)"
^XMB(3.9,133,2,812,0)=" S RMPRITEM=0"
^XMB(3.9,133,2,813,0)="""RTN"",""RMPOPF"",46,0)"
^XMB(3.9,133,2,814,0)=" F  S RMPRITEM=$O(^RMPR(665,""APO"",1,RMPRIEN,RMPRITEM)) Q:RMPRITEM'>0  D"
^XMB(3.9,133,2,815,0)="""RTN"",""RMPOPF"",47,0)"
^XMB(3.9,133,2,816,0)=" .I RMPRRXDT=0 D  Q"
^XMB(3.9,133,2,817,0)="""RTN"",""RMPOPF"",48,0)"
^XMB(3.9,133,2,818,0)=" ..; Remove APO Flag"
^XMB(3.9,133,2,819,0)="""RTN"",""RMPOPF"",49,0)"
^XMB(3.9,133,2,820,0)=" ..S DIE=""^RMPR(665,""_RMPRIEN_"",""""RMPOC"""","""
^XMB(3.9,133,2,821,0)="""RTN"",""RMPOPF"",50,0)"
^XMB(3.9,133,2,822,0)=" ..S DA(1)=RMPRIEN,DA=RMPRITEM"
^XMB(3.9,133,2,823,0)="""RTN"",""RMPOPF"",51,0)"
^XMB(3.9,133,2,824,0)=" ..S DR=""100///@"""
^XMB(3.9,133,2,825,0)="""RTN"",""RMPOPF"",52,0)"
^XMB(3.9,133,2,826,0)=" ..D ^DIE"
^XMB(3.9,133,2,827,0)="""RTN"",""RMPOPF"",53,0)"
^XMB(3.9,133,2,828,0)=" ..K DIE,DA,DR"
^XMB(3.9,133,2,829,0)="""RTN"",""RMPOPF"",54,0)"
^XMB(3.9,133,2,830,0)=" ..Q"
^XMB(3.9,133,2,831,0)="""RTN"",""RMPOPF"",55,0)"
^XMB(3.9,133,2,832,0)=" .S RMPRDFN=RMPRIEN"
^XMB(3.9,133,2,833,0)="""RTN"",""RMPOPF"",56,0)"
^XMB(3.9,133,2,834,0)=" .S RMPRPAR=$P($G(^RMPR(665,RMPRIEN,""RMPOC"",RMPRITEM,""PFSS"")),""^"",2)"
^XMB(3.9,133,2,835,0)="""RTN"",""RMPOPF"",57,0)"
^XMB(3.9,133,2,836,0)=" .S:RMPRPAR="""" RMPREVNT=""A05"""
^XMB(3.9,133,2,837,0)="""RTN"",""RMPOPF"",58,0)"
^XMB(3.9,133,2,838,0)=" .S:RMPRPAR'="""" RMPREVNT=""A08"""
^XMB(3.9,133,2,839,0)="""RTN"",""RMPOPF"",59,0)"
^XMB(3.9,133,2,840,0)=" .S RMPRAPLR=""GETACCT;RMPOPF"""
^XMB(3.9,133,2,841,0)="""RTN"",""RMPOPF"",60,0)"
^XMB(3.9,133,2,842,0)=" .S RMPRPV1(2)=""O"""
^XMB(3.9,133,2,843,0)="""RTN"",""RMPOPF"",61,0)"
^XMB(3.9,133,2,844,0)=" .S RMPRSTA=$P($G(^RMPR(665,RMPRIEN,0)),""^"",2)"
^XMB(3.9,133,2,845,0)="""RTN"",""RMPOPF"",62,0)"
^XMB(3.9,133,2,846,0)=" .D GETSITE^RMPRPF1"
^XMB(3.9,133,2,847,0)="""RTN"",""RMPOPF"",63,0)"
^XMB(3.9,133,2,848,0)=" .S RMPRPV1(3)=RMPRHLOC"
^XMB(3.9,133,2,849,0)="""RTN"",""RMPOPF"",64,0)"
^XMB(3.9,133,2,850,0)=" .S RMPRPV1(7)=$P($G(^RMPR(665,RMPRIEN,""RMPOB"",RMPRRXI,""PFSS"")),""^"",2)"
^XMB(3.9,133,2,851,0)="""RTN"",""RMPOPF"",65,0)"
^XMB(3.9,133,2,852,0)=" .S RMPRPV1(44)=RMPRRXDT"
^XMB(3.9,133,2,853,0)="""RTN"",""RMPOPF"",66,0)"
^XMB(3.9,133,2,854,0)=" .S RMPRPV2(8)=RMPRRXDT"
^XMB(3.9,133,2,855,0)="""RTN"",""RMPOPF"",67,0)"
^XMB(3.9,133,2,856,0)=" .; INSURE HCPCS IS CODE SET VERSIONED"
^XMB(3.9,133,2,857,0)="""RTN"",""RMPOPF"",68,0)"
^XMB(3.9,133,2,858,0)=" .S RMPRHCPC=$P($G(^RMPR(665,RMPRIEN,""RMPOC"",RMPRITEM,0)),""^"",7),RMPRHCDT=RMPRRXDT"
^XMB(3.9,133,2,859,0)="""RTN"",""RMPOPF"",69,0)"
^XMB(3.9,133,2,860,0)=" .D PSASHCPC"
^XMB(3.9,133,2,861,0)="""RTN"",""RMPOPF"",70,0)"
^XMB(3.9,133,2,862,0)=" .; If HCPCS version check fails then quit, but leave APO Flag intact for future processing."
^XMB(3.9,133,2,863,0)="""RTN"",""RMPOPF"",71,0)"
^XMB(3.9,133,2,864,0)=" .; The HCPCS should eventually be corrected."
^XMB(3.9,133,2,865,0)="""RTN"",""RMPOPF"",72,0)"
^XMB(3.9,133,2,866,0)=" .Q:RMPRVHC=0"
^XMB(3.9,133,2,867,0)="""RTN"",""RMPOPF"",73,0)"
^XMB(3.9,133,2,868,0)=" .S RMPRPR1(3)=RMPRVHC"
^XMB(3.9,133,2,869,0)="""RTN"",""RMPOPF"",74,0)"
^XMB(3.9,133,2,870,0)=" .S RMPRPR1(4)=RMPRTHC"
^XMB(3.9,133,2,871,0)="""RTN"",""RMPOPF"",75,0)"
^XMB(3.9,133,2,872,0)=" .S RMPRPR1(6)=""O"""
^XMB(3.9,133,2,873,0)="""RTN"",""RMPOPF"",76,0)"
^XMB(3.9,133,2,874,0)=" .; INSURE ICD9 IS CODE SET VERSIONED"
^XMB(3.9,133,2,875,0)="""RTN"",""RMPOPF"",77,0)"
^XMB(3.9,133,2,876,0)=" .S RMPRDRG=$P($G(^RMPR(665,RMPRIEN,""RMPOC"",RMPRITEM,0)),""^"",8)"
^XMB(3.9,133,2,877,0)="""RTN"",""RMPOPF"",78,0)"
^XMB(3.9,133,2,878,0)=" .S:RMPRDRG'="""" RMPRDRG=$$STATCHK^ICDAPIU($P($G(^ICD9(RMPRDRG,0)),""^""),RMPRRXDT)"
^XMB(3.9,133,2,879,0)="""RTN"",""RMPOPF"",79,0)"
^XMB(3.9,133,2,880,0)=" .S RMPRDG1(1,3)="""""
^XMB(3.9,133,2,881,0)="""RTN"",""RMPOPF"",80,0)"
^XMB(3.9,133,2,882,0)=" .S:$P(RMPRDRG,""^"")=1 RMPRDG1(1,3)=$P(RMPRDRG,""^"",2),RMPRDG1(1,6)=""F"""
^XMB(3.9,133,2,883,0)="""RTN"",""RMPOPF"",81,0)"
^XMB(3.9,133,2,884,0)=" .;ZCL SEGMENT TO GO HERE"
^XMB(3.9,133,2,885,0)="""RTN"",""RMPOPF"",82,0)"
^XMB(3.9,133,2,886,0)=" .S RMPRZCL="""""
^XMB(3.9,133,2,887,0)="""RTN"",""RMPOPF"",83,0)"
^XMB(3.9,133,2,888,0)=" .; FIELDS NOT YET ENTERED."
^XMB(3.9,133,2,889,0)="""RTN"",""RMPOPF"",84,0)"
^XMB(3.9,133,2,890,0)=" .; Call GETACCT api"
^XMB(3.9,133,2,891,0)="""RTN"",""RMPOPF"",85,0)"
^XMB(3.9,133,2,892,0)=" .S RMPRACCT=$$GETACCT^IBBAPI(RMPRDFN,RMPRPAR,RMPREVNT,RMPRAPLR,.RMPRPV1,.RMPRPV2,.RMPRPR1,.RMPRDG1,.RMPRZCL)"
^XMB(3.9,133,2,893,0)="""RTN"",""RMPOPF"",86,0)"
^XMB(3.9,133,2,894,0)=" .; Store PFSS ACCOUNT REFERENCE data and Delete the APO flag."
^XMB(3.9,133,2,895,0)="""RTN"",""RMPOPF"",87,0)"
^XMB(3.9,133,2,896,0)=" .S DIE=""^RMPR(665,""_RMPRIEN_"",""""RMPOC"""","""
^XMB(3.9,133,2,897,0)="""RTN"",""RMPOPF"",88,0)"
^XMB(3.9,133,2,898,0)=" .S DA(1)=RMPRIEN,DA=RMPRITEM"
^XMB(3.9,133,2,899,0)="""RTN"",""RMPOPF"",89,0)"
^XMB(3.9,133,2,900,0)=" .S DR=""100///@;101///`""_RMPRACCT"
^XMB(3.9,133,2,901,0)="""RTN"",""RMPOPF"",90,0)"
^XMB(3.9,133,2,902,0)=" .D ^DIE"
^XMB(3.9,133,2,903,0)="""RTN"",""RMPOPF"",91,0)"
^XMB(3.9,133,2,904,0)=" .K DIE,DA,DR"
^XMB(3.9,133,2,905,0)="""RTN"",""RMPOPF"",92,0)"
^XMB(3.9,133,2,906,0)=" .K RMPRDFN,RMPRPAR,RMPREVNT,RMPRAPLR,RMPRPV1,RMPRPV2,RMPRSTA,RMPRHLOC,RMPRHCPC,RMPRPR1,RMPRDRG,RMPRDG1,RMPRZCL,RMPRACCT,RMPRSTAT,RMPRCHDT,RMPRVHC,RMPRTHC,RMPREHC"
^XMB(3.9,133,2,907,0)="""RTN"",""RMPOPF"",93,0)"
^XMB(3.9,133,2,908,0)=" .Q"
^XMB(3.9,133,2,909,0)="""RTN"",""RMPOPF"",94,0)"
^XMB(3.9,133,2,910,0)="EXITGET ;"
^XMB(3.9,133,2,911,0)="""RTN"",""RMPOPF"",95,0)"
^XMB(3.9,133,2,912,0)=" K RMPRRXDT,RMPRRXI,RMPRITEM"
^XMB(3.9,133,2,913,0)="""RTN"",""RMPOPF"",96,0)"
^XMB(3.9,133,2,914,0)=" Q"
^XMB(3.9,133,2,915,0)="""RTN"",""RMPOPF"",97,0)"
^XMB(3.9,133,2,916,0)="PSASHCPC ; determine correct HCPCS code to send based on PSAS HCPCS."
^XMB(3.9,133,2,917,0)="""RTN"",""RMPOPF"",98,0)"
^XMB(3.9,133,2,918,0)=" ; UPON ENTRY RMPRHCPC = POINTER TO 661.1 AND  RMPRHCDT = FILEMAN DATE"
^XMB(3.9,133,2,919,0)="""RTN"",""RMPOPF"",99,0)"
^XMB(3.9,133,2,920,0)=" ; Returns with RMPRVHC having the correct value to pass to IBB."
^XMB(3.9,133,2,921,0)="""RTN"",""RMPOPF"",100,0)"
^XMB(3.9,133,2,922,0)=" I RMPRHCPC="""" S RMPREHC=""A9900"",RMPRTHC=""HCPCS DELETED"" G CHK"
^XMB(3.9,133,2,923,0)="""RTN"",""RMPOPF"",101,0)"
^XMB(3.9,133,2,924,0)=" S RMPREHC=$P($G(^RMPR(661.1,RMPRHCPC,0)),""^"")"
^XMB(3.9,133,2,925,0)="""RTN"",""RMPOPF"",102,0)"
^XMB(3.9,133,2,926,0)=" S RMPRTHC=$P($G(^RMPR(661.1,RMPRHCPC,0)),""^"",2)"
^XMB(3.9,133,2,927,0)="""RTN"",""RMPOPF"",103,0)"
^XMB(3.9,133,2,928,0)="CHK S RMPRSTAT=$$STATCHK^ICPTAPIU(RMPREHC,RMPRHCDT)"
^XMB(3.9,133,2,929,0)="""RTN"",""RMPOPF"",104,0)"
^XMB(3.9,133,2,930,0)=" I ($A($E(RMPREHC,2,2))>64)!($P(RMPRSTAT,""^"")=0) D"
^XMB(3.9,133,2,931,0)="""RTN"",""RMPOPF"",105,0)"
^XMB(3.9,133,2,932,0)=" .S RMPREHC=""A9900"""
^XMB(3.9,133,2,933,0)="""RTN"",""RMPOPF"",106,0)"
^XMB(3.9,133,2,934,0)=" .S RMPRSTAT=$$STATCHK^ICPTAPIU(RMPREHC,RMPRHCDT)"
^XMB(3.9,133,2,935,0)="""RTN"",""RMPOPF"",107,0)"
^XMB(3.9,133,2,936,0)=" .Q"
^XMB(3.9,133,2,937,0)="""RTN"",""RMPOPF"",108,0)"
^XMB(3.9,133,2,938,0)=" I $P(RMPRSTAT,""^"")=1 S RMPRVHC=$P(RMPRSTAT,""^"",2) Q"
^XMB(3.9,133,2,939,0)="""RTN"",""RMPOPF"",109,0)"
^XMB(3.9,133,2,940,0)=" S RMPRVHC=0"
^XMB(3.9,133,2,941,0)="""RTN"",""RMPOPF"",110,0)"
^XMB(3.9,133,2,942,0)=" Q"
^XMB(3.9,133,2,943,0)="""RTN"",""RMPOPF"",111,0)"
^XMB(3.9,133,2,944,0)="VALIDRX ; GET ASSOCIATED RX MAKE SURE IT HAS NOT EXPIRED."
^XMB(3.9,133,2,945,0)="""RTN"",""RMPOPF"",112,0)"
^XMB(3.9,133,2,946,0)=" S (RMPRRXLP,RMPRRX,RMPRRXI,RMPRRXEX,RMPRRXDT)=0"
^XMB(3.9,133,2,947,0)="""RTN"",""RMPOPF"",113,0)"
^XMB(3.9,133,2,948,0)=" F  S RMPRRXLP=$O(^RMPR(665,RMPRIEN,""RMPOB"",""B"",RMPRRXLP)) Q:RMPRRXLP'>0  D"
^XMB(3.9,133,2,949,0)="""RTN"",""RMPOPF"",114,0)"
^XMB(3.9,133,2,950,0)=" .F  S RMPRRX=$O(^RMPR(665,RMPRIEN,""RMPOB"",""B"",RMPRRXLP,RMPRRX)) Q:RMPRRX'>0  D"
^XMB(3.9,133,2,951,0)="""RTN"",""RMPOPF"",115,0)"
^XMB(3.9,133,2,952,0)=" ..S:$P($G(^RMPR(665,RMPRIEN,""RMPOB"",RMPRRX,0)),""^"",3)'<DT RMPRRXEX=$P($G(^RMPR(665,RMPRIEN,""RMPOB"",RMPRRX,0)),""^"",3),RMPRRXDT=RMPRRXLP,RMPRRXI=RMPRRX"
^XMB(3.9,133,2,953,0)="""RTN"",""RMPOPF"",116,0)"
^XMB(3.9,133,2,954,0)=" ..Q"
^XMB(3.9,133,2,955,0)="""RTN"",""RMPOPF"",117,0)"
^XMB(3.9,133,2,956,0)=" .Q"
^XMB(3.9,133,2,957,0)="""RTN"",""RMPOPF"",118,0)"
^XMB(3.9,133,2,958,0)=" K RMPRRXLP,RMPRRX,RMPRRXEX"
^XMB(3.9,133,2,959,0)="""RTN"",""RMPOPF"",119,0)"
^XMB(3.9,133,2,960,0)=" Q"
^XMB(3.9,133,2,961,0)="""RTN"",""RMPOPF"",120,0)"
^XMB(3.9,133,2,962,0)="ACCTCNCL ; ENTRY POINT TO SEND HOME OXYGEN ACCOUNT CANCELLATION DATA."
^XMB(3.9,133,2,963,0)="""RTN"",""RMPOPF"",121,0)"
^XMB(3.9,133,2,964,0)=" ;  THIS TAG IS CALLED AS A ONE-TIME TASKMAN TASK LOADED FROM ACCTTASK^PMPOPF."
^XMB(3.9,133,2,965,0)="""RTN"",""RMPOPF"",122,0)"
^XMB(3.9,133,2,966,0)=" ;  Input variables from TaskMan-"
^XMB(3.9,133,2,967,0)="""RTN"",""RMPOPF"",123,0)"
^XMB(3.9,133,2,968,0)=" ;    RMPRDFN = DA (also DFN)"
^XMB(3.9,133,2,969,0)="""RTN"",""RMPOPF"",124,0)"
^XMB(3.9,133,2,970,0)=" ;    RMPRRXDT = Home Oxygen Prescription date"
^XMB(3.9,133,2,971,0)="""RTN"",""RMPOPF"",125,0)"
^XMB(3.9,133,2,972,0)=" ;    RMPRRXEN = Home Oxygen Prescription IEN"
^XMB(3.9,133,2,973,0)="""RTN"",""RMPOPF"",126,0)"
^XMB(3.9,133,2,974,0)=" ;  "
^XMB(3.9,133,2,975,0)="""RTN"",""RMPOPF"",127,0)"
^XMB(3.9,133,2,976,0)=" ;CHECK IF HOME OXYGEN PRESCRIPTION SUB RECORD HAS BEEN DELETED."
^XMB(3.9,133,2,977,0)="""RTN"",""RMPOPF"",128,0)"
^XMB(3.9,133,2,978,0)=" ; EXIT IF IT STILL EXISTS"
^XMB(3.9,133,2,979,0)="""RTN"",""RMPOPF"",129,0)"
^XMB(3.9,133,2,980,0)=" G:$D(^RMPR(665,RMPRDFN,""RMPOB"",""B"",RMPRRXDT,RMPRRXEN)) EXITCNCL"
^XMB(3.9,133,2,981,0)="""RTN"",""RMPOPF"",130,0)"
^XMB(3.9,133,2,982,0)=" ; THE RECORD WAS DELETED"
^XMB(3.9,133,2,983,0)="""RTN"",""RMPOPF"",131,0)"
^XMB(3.9,133,2,984,0)=" ; LOOP ON PATIENT'S ITEMS."
^XMB(3.9,133,2,985,0)="""RTN"",""RMPOPF"",132,0)"
^XMB(3.9,133,2,986,0)=" S RMPRITEM=0"
^XMB(3.9,133,2,987,0)="""RTN"",""RMPOPF"",133,0)"
^XMB(3.9,133,2,988,0)=" F  S RMPRITEM=$O(^RMPR(665,RMPRDFN,""RMPOC"",RMPRITEM)) Q:RMPRITEM'>0  D CANCEL"
^XMB(3.9,133,2,989,0)="""RTN"",""RMPOPF"",134,0)"
^XMB(3.9,133,2,990,0)="EXITCNCL ;"
^XMB(3.9,133,2,991,0)="""RTN"",""RMPOPF"",135,0)"
^XMB(3.9,133,2,992,0)=" K RMPRDFN,RMPRRXDT,RMPRRXEN,RMPRITEM"
^XMB(3.9,133,2,993,0)="""RTN"",""RMPOPF"",136,0)"
^XMB(3.9,133,2,994,0)=" Q"
^XMB(3.9,133,2,995,0)="""RTN"",""RMPOPF"",137,0)"
^XMB(3.9,133,2,996,0)="CANCEL ; ENTRY POINT TO SEND HOME OXYGEN ACCOUNT CANCELLATION DATA."
^XMB(3.9,133,2,997,0)="""RTN"",""RMPOPF"",138,0)"
^XMB(3.9,133,2,998,0)=" ;  THIS TAG IS CALLED AS A ONE-TIME TASKMAN TASK LOADED FROM ITEMTASK^PMPOPF."
^XMB(3.9,133,2,999,0)="""RTN"",""RMPOPF"",139,0)"
^XMB(3.9,133,2,1000,0)=" ;  Input variables from TaskMan-"
^XMB(3.9,133,2,1001,0)="""RTN"",""RMPOPF"",140,0)"
^XMB(3.9,133,2,1002,0)=" ;    RMPRDFN = DA (also DFN)"
^XMB(3.9,133,2,1003,0)="""RTN"",""RMPOPF"",141,0)"
^XMB(3.9,133,2,1004,0)=" ;    RMPRITEM = Home Oxygen Item IEN"
^XMB(3.9,133,2,1005,0)="""RTN"",""RMPOPF"",142,0)"
^XMB(3.9,133,2,1006,0)=" ;  "
^XMB(3.9,133,2,1007,0)="""RTN"",""RMPOPF"",143,0)"
^XMB(3.9,133,2,1008,0)=" ;CHECK IF HOME OXYGEN PRESCRIPTION SUB RECORD HAS BEEN DELETED."
^XMB(3.9,133,2,1009,0)="""RTN"",""RMPOPF"",144,0)"
^XMB(3.9,133,2,1010,0)=" ; EXIT IF IT STILL EXISTS"
^XMB(3.9,133,2,1011,0)="""RTN"",""RMPOPF"",145,0)"
^XMB(3.9,133,2,1012,0)=" ;   SET FROM: "
^XMB(3.9,133,2,1013,0)="""RTN"",""RMPOPF"",146,0)"
^XMB(3.9,133,2,1014,0)=" ;    RMPRDFN = DFN SENT WITHIN TASKMAN"
^XMB(3.9,133,2,1015,0)="""RTN"",""RMPOPF"",147,0)"
^XMB(3.9,133,2,1016,0)=" ;    RMPRPAR = HOME OXYGEN ITEM (19.4); PFSS Account Reference (101)"
^XMB(3.9,133,2,1017,0)="""RTN"",""RMPOPF"",148,0)"
^XMB(3.9,133,2,1018,0)=" ;    RMPREVNT = ""A38"""
^XMB(3.9,133,2,1019,0)="""RTN"",""RMPOPF"",149,0)"
^XMB(3.9,133,2,1020,0)=" ;    RMPRAPLR = ""CANCEL1;RMPOPF"""
^XMB(3.9,133,2,1021,0)="""RTN"",""RMPOPF"",150,0)"
^XMB(3.9,133,2,1022,0)=" ;    RMPRPV1(2) = ""O"""
^XMB(3.9,133,2,1023,0)="""RTN"",""RMPOPF"",151,0)"
^XMB(3.9,133,2,1024,0)=" ;    RMPRPV1(3) = FILE 669.9, FIELD 52"
^XMB(3.9,133,2,1025,0)="""RTN"",""RMPOPF"",152,0)"
^XMB(3.9,133,2,1026,0)=" ;    RMPRPV1(44) = THE HOME OXYGEN PRESCRIPTION DATE SENT WITHIN TASKMAN"
^XMB(3.9,133,2,1027,0)="""RTN"",""RMPOPF"",153,0)"
^XMB(3.9,133,2,1028,0)=" S RMPRPAR=$P($G(^RMPR(665,RMPRDFN,""RMPOC"",RMPRITEM,""PFSS"")),""^"",2)"
^XMB(3.9,133,2,1029,0)="""RTN"",""RMPOPF"",154,0)"
^XMB(3.9,133,2,1030,0)="CANCEL1 ; ENTRY POINT FOR SINGLE ITEM DELETE (ITEMTASK)"
^XMB(3.9,133,2,1031,0)="""RTN"",""RMPOPF"",155,0)"
^XMB(3.9,133,2,1032,0)=" S RMPREVNT=""A38"""
^XMB(3.9,133,2,1033,0)="""RTN"",""RMPOPF"",156,0)"
^XMB(3.9,133,2,1034,0)=" S RMPRAPLR=""CANCEL1;RMPOPF"""
^XMB(3.9,133,2,1035,0)="""RTN"",""RMPOPF"",157,0)"
^XMB(3.9,133,2,1036,0)=" S RMPRPV1(2)=""O"""
^XMB(3.9,133,2,1037,0)="""RTN"",""RMPOPF"",158,0)"
^XMB(3.9,133,2,1038,0)=" S RMPRSTA=$P($G(^RMPR(665,RMPRDFN,0)),""^"",2)"
^XMB(3.9,133,2,1039,0)="""RTN"",""RMPOPF"",159,0)"
^XMB(3.9,133,2,1040,0)=" D GETSITE^RMPRPF1"
^XMB(3.9,133,2,1041,0)="""RTN"",""RMPOPF"",160,0)"
^XMB(3.9,133,2,1042,0)=" S RMPRPV1(3)=RMPRHLOC"
^XMB(3.9,133,2,1043,0)="""RTN"",""RMPOPF"",161,0)"
^XMB(3.9,133,2,1044,0)=" S RMPRIEN=RMPRDFN D VALIDRX"
^XMB(3.9,133,2,1045,0)="""RTN"",""RMPOPF"",162,0)"
^XMB(3.9,133,2,1046,0)=" S:RMPRRXDT'=0 RMPRPV1(44)=RMPRRXDT"
^XMB(3.9,133,2,1047,0)="""RTN"",""RMPOPF"",163,0)"
^XMB(3.9,133,2,1048,0)=" ;   SEND A38 GETACCT FOR THE ITEM"
^XMB(3.9,133,2,1049,0)="""RTN"",""RMPOPF"",164,0)"
^XMB(3.9,133,2,1050,0)=" S RMPRCNCL=$$GETACCT^IBBAPI(RMPRDFN,RMPRPAR,RMPREVNT,RMPRAPLR,.RMPRPV1)"
^XMB(3.9,133,2,1051,0)="""RTN"",""RMPOPF"",165,0)"
^XMB(3.9,133,2,1052,0)=" K RMPRPAR,RMPREVNT,RMPRAPLR,RMPRPV1,RMPRSTA,RMPRHLOC,RMPRCNCL"
^XMB(3.9,133,2,1053,0)="""RTN"",""RMPOPF"",166,0)"
^XMB(3.9,133,2,1054,0)=" Q"
^XMB(3.9,133,2,1055,0)="""RTN"",""RMPOPF"",167,0)"
^XMB(3.9,133,2,1056,0)="ACCTTASK ; FILE #665, HOME OXYGEN PRESCRITION; DATE FIELD MUMPS XREF KILL LOGIC."
^XMB(3.9,133,2,1057,0)="""RTN"",""RMPOPF"",168,0)"
^XMB(3.9,133,2,1058,0)=" ; TASKMAN LOAD A ONE TIME TASKMAN TASK."
^XMB(3.9,133,2,1059,0)="""RTN"",""RMPOPF"",169,0)"
^XMB(3.9,133,2,1060,0)=" Q:'+$$SWSTAT^IBBAPI()"
^XMB(3.9,133,2,1061,0)="""RTN"",""RMPOPF"",170,0)"
^XMB(3.9,133,2,1062,0)=" N ZTRTN,ZTDESC,ZTDTH,ZTIO,ZTUCI,ZTCPU,ZTPRI,ZTSAVE,ZTKIL,ZTSYNC"
^XMB(3.9,133,2,1063,0)="""RTN"",""RMPOPF"",171,0)"
^XMB(3.9,133,2,1064,0)=" S ZTIO="""",ZTRTN=""ACCTCNCL^RMPOPF"",ZTDESC=""Prosthetics Home Oxygen PFSS Account Cancel"",ZTDTH=$H"
^XMB(3.9,133,2,1065,0)="""RTN"",""RMPOPF"",172,0)"
^XMB(3.9,133,2,1066,0)=" S ZTSAVE(""RMPRDFN"")=DA(1),ZTSAVE(""RMPRRXEN"")=DA,ZTSAVE(""RMPRRXDT"")=X"
^XMB(3.9,133,2,1067,0)="""RTN"",""RMPOPF"",173,0)"
^XMB(3.9,133,2,1068,0)=" D ^%ZTLOAD"
^XMB(3.9,133,2,1069,0)="""RTN"",""RMPOPF"",174,0)"
^XMB(3.9,133,2,1070,0)=" Q"
^XMB(3.9,133,2,1071,0)="""RTN"",""RMPOPF"",175,0)"
^XMB(3.9,133,2,1072,0)="ITEMTASK ; FILE #665, HOME OXYGEN ITEM; ITEM FIELD MUMPS XREF"
^XMB(3.9,133,2,1073,0)="""RTN"",""RMPOPF"",176,0)"
^XMB(3.9,133,2,1074,0)=" ;KILL LOGIC."
^XMB(3.9,133,2,1075,0)="""RTN"",""RMPOPF"",177,0)"
^XMB(3.9,133,2,1076,0)=" ; TASKMAN LOAD A ONE TIME TASKMAN TASK."
^XMB(3.9,133,2,1077,0)="""RTN"",""RMPOPF"",178,0)"
^XMB(3.9,133,2,1078,0)=" Q:'+$$SWSTAT^IBBAPI()"
^XMB(3.9,133,2,1079,0)="""RTN"",""RMPOPF"",179,0)"
^XMB(3.9,133,2,1080,0)=" S RMPRPAR=$P($G(^RMPR(665,DA(1),""RMPOC"",DA,""PFSS"")),""^"",2)"
^XMB(3.9,133,2,1081,0)="""RTN"",""RMPOPF"",180,0)"
^XMB(3.9,133,2,1082,0)=" N ZTRTN,ZTDESC,ZTDTH,ZTIO,ZTUCI,ZTCPU,ZTPRI,ZTSAVE,ZTKIL,ZTSYNC"
^XMB(3.9,133,2,1083,0)="""RTN"",""RMPOPF"",181,0)"
^XMB(3.9,133,2,1084,0)=" S ZTIO="""",ZTRTN=""CANCEL1^RMPOPF"",ZTDESC=""Prosthetics Home Oxygen PFSS Item Cancel"",ZTDTH=$H"
^XMB(3.9,133,2,1085,0)="""RTN"",""RMPOPF"",182,0)"
^XMB(3.9,133,2,1086,0)=" S ZTSAVE(""RMPRDFN"")=DA(1),ZTSAVE(""RMPRITEM"")=DA,ZTSAVE(""RMPRPAR"")=RMPRPAR"
^XMB(3.9,133,2,1087,0)="""RTN"",""RMPOPF"",183,0)"
^XMB(3.9,133,2,1088,0)=" D ^%ZTLOAD"
^XMB(3.9,133,2,1089,0)="""RTN"",""RMPOPF"",184,0)"
^XMB(3.9,133,2,1090,0)=" K RMPRPAR"
^XMB(3.9,133,2,1091,0)="""RTN"",""RMPOPF"",185,0)"
^XMB(3.9,133,2,1092,0)=" Q"
^XMB(3.9,133,2,1093,0)="""RTN"",""RMPOPF"",186,0)"
^XMB(3.9,133,2,1094,0)="CHRGTASK ; FILE #665.72, BILLING MONTH; VENDOR; PATIENT; ITEM FIELD MUMPS XREF"
^XMB(3.9,133,2,1095,0)="""RTN"",""RMPOPF"",187,0)"
^XMB(3.9,133,2,1096,0)=" ;KILL LOGIC."
^XMB(3.9,133,2,1097,0)="""RTN"",""RMPOPF"",188,0)"
^XMB(3.9,133,2,1098,0)=" ; TASKMAN LOAD A ONE TIME TASKMAN TASK."
^XMB(3.9,133,2,1099,0)="""RTN"",""RMPOPF"",189,0)"
^XMB(3.9,133,2,1100,0)=" Q:'+$$SWSTAT^IBBAPI()"
^XMB(3.9,133,2,1101,0)="""RTN"",""RMPOPF"",190,0)"
^XMB(3.9,133,2,1102,0)=" S RMPRPFSS=^RMPO(665.72,DA(4),1,DA(3),1,DA(2),""V"",DA(1),1,DA,""PFSS"")"
^XMB(3.9,133,2,1103,0)="""RTN"",""RMPOPF"",191,0)"
^XMB(3.9,133,2,1104,0)=" N ZTRTN,ZTDESC,ZTDTH,ZTIO,ZTUCI,ZTCPU,ZTPRI,ZTSAVE,ZTKIL,ZTSYNC"
^XMB(3.9,133,2,1105,0)="""RTN"",""RMPOPF"",192,0)"
^XMB(3.9,133,2,1106,0)=" S ZTIO="""",ZTRTN=""CHRGCRED^RMPOPF1"",ZTDESC=""Prosthetics Home Oxygen PFSS Charge Credit"",ZTDTH=$H"
^XMB(3.9,133,2,1107,0)="""RTN"",""RMPOPF"",193,0)"
^XMB(3.9,133,2,1108,0)=" S ZTSAVE(""RMPRDFN"")=DA(1),ZTSAVE(""RMPRITEM"")=DA,ZTSAVE(""RMPRVDR"")=DA(2),ZTSAVE(""RMPRBLDT"")=DA(3),ZTSAVE(""RMPRSITE"")=DA(4)"
^XMB(3.9,133,2,1109,0)="""RTN"",""RMPOPF"",194,0)"
^XMB(3.9,133,2,1110,0)=" S ZTSAVE(""RMPRPFSS"")=^RMPO(665.72,DA(4),1,DA(3),1,DA(2),""V"",DA(1),1,DA,""PFSS"")"
^XMB(3.9,133,2,1111,0)="""RTN"",""RMPOPF"",195,0)"
^XMB(3.9,133,2,1112,0)=" D ^%ZTLOAD"
^XMB(3.9,133,2,1113,0)="""RTN"",""RMPOPF"",196,0)"
^XMB(3.9,133,2,1114,0)=" Q"
^XMB(3.9,133,2,1115,0)="""RTN"",""RMPOPF"",197,0)"
^XMB(3.9,133,2,1116,0)="CHARGE ; Called from RMPOPST3."
^XMB(3.9,133,2,1117,0)="""RTN"",""RMPOPF"",198,0)"
^XMB(3.9,133,2,1118,0)=" ;IMPORTANT VARIBLES PASSED IN FROM RMPOPST3."
^XMB(3.9,133,2,1119,0)="""RTN"",""RMPOPF"",199,0)"
^XMB(3.9,133,2,1120,0)=" ; D6I= FILE 660 IEN"
^XMB(3.9,133,2,1121,0)="""RTN"",""RMPOPF"",200,0)"
^XMB(3.9,133,2,1122,0)=" ; RMPOXITE= FILE 665.72 SITE (IEN)"
^XMB(3.9,133,2,1123,0)="""RTN"",""RMPOPF"",201,0)"
^XMB(3.9,133,2,1124,0)=" ; RMPODATE= FILE 665.72 BILLING MONTH mult IEN"
^XMB(3.9,133,2,1125,0)="""RTN"",""RMPOPF"",202,0)"
^XMB(3.9,133,2,1126,0)=" ; RMPOVDR= FILE 665.72 VENDOR mult IEN (DINUM to 440)"
^XMB(3.9,133,2,1127,0)="""RTN"",""RMPOPF"",203,0)"
^XMB(3.9,133,2,1128,0)=" ; DFN= FILE 665.72 PATIENT mult IEN (DINUM to 2)"
^XMB(3.9,133,2,1129,0)="""RTN"",""RMPOPF"",204,0)"
^XMB(3.9,133,2,1130,0)=" ; ITM= FILE 665.72 ITEM mult IEN"
^XMB(3.9,133,2,1131,0)="""RTN"",""RMPOPF"",205,0)"
^XMB(3.9,133,2,1132,0)=" ; TRXDT= Date TRX Built"
^XMB(3.9,133,2,1133,0)="""RTN"",""RMPOPF"",206,0)"
^XMB(3.9,133,2,1134,0)=" ; ITMD= Item multiple zero node"
^XMB(3.9,133,2,1135,0)="""RTN"",""RMPOPF"",207,0)"
^XMB(3.9,133,2,1136,0)=" ;"
^XMB(3.9,133,2,1137,0)="""RTN"",""RMPOPF"",208,0)"
^XMB(3.9,133,2,1138,0)=" Q:'+$$SWSTAT^IBBAPI()"
^XMB(3.9,133,2,1139,0)="""RTN"",""RMPOPF"",209,0)"
^XMB(3.9,133,2,1140,0)=" D CHARGE^RMPOPF1"
^XMB(3.9,133,2,1141,0)="""RTN"",""RMPOPF"",210,0)"
^XMB(3.9,133,2,1142,0)=" Q"
^XMB(3.9,133,2,1143,0)="""RTN"",""RMPOPF1"")"
^XMB(3.9,133,2,1144,0)="0^2^B9887538"
^XMB(3.9,133,2,1145,0)="""RTN"",""RMPOPF1"",1,0)"
^XMB(3.9,133,2,1146,0)="RMPOPF1 ;HINES-FO/DDA - (CONT.)MAIN INTERFACE ROUTINE FOR PFSS AND HOME OXYGEN ;8/18/05"
^XMB(3.9,133,2,1147,0)="""RTN"",""RMPOPF1"",2,0)"
^XMB(3.9,133,2,1148,0)=" ;;3.0;PROSTHETICS;**98**;Feb 09, 1996"
^XMB(3.9,133,2,1149,0)="""RTN"",""RMPOPF1"",3,0)"
^XMB(3.9,133,2,1150,0)=" Q"
^XMB(3.9,133,2,1151,0)="""RTN"",""RMPOPF1"",4,0)"
^XMB(3.9,133,2,1152,0)="CHARGE ; Called from RMPOPST3 via CHARGE^RMPOPF"
^XMB(3.9,133,2,1153,0)="""RTN"",""RMPOPF1"",5,0)"
^XMB(3.9,133,2,1154,0)=" ;IMPORTANT VARIBLES PASSED IN FROM RMPOPST3"
^XMB(3.9,133,2,1155,0)="""RTN"",""RMPOPF1"",6,0)"
^XMB(3.9,133,2,1156,0)=" ; D6I= FILE 660 IEN"
^XMB(3.9,133,2,1157,0)="""RTN"",""RMPOPF1"",7,0)"
^XMB(3.9,133,2,1158,0)=" ; RMPOXITE= FILE 665.72 SITE (IEN)"
^XMB(3.9,133,2,1159,0)="""RTN"",""RMPOPF1"",8,0)"
^XMB(3.9,133,2,1160,0)=" ; RMPODATE= FILE 665.72 BILLING MONTH mult IEN"
^XMB(3.9,133,2,1161,0)="""RTN"",""RMPOPF1"",9,0)"
^XMB(3.9,133,2,1162,0)=" ; RMPOVDR= FILE 665.72 VENDOR mult IEN (DINUM to 440)"
^XMB(3.9,133,2,1163,0)="""RTN"",""RMPOPF1"",10,0)"
^XMB(3.9,133,2,1164,0)=" ; DFN= FILE 665.72 PATIENT mult IEN (DINUM to 2)"
^XMB(3.9,133,2,1165,0)="""RTN"",""RMPOPF1"",11,0)"
^XMB(3.9,133,2,1166,0)=" ; ITM= FILE 665.72 ITEM mult IEN"
^XMB(3.9,133,2,1167,0)="""RTN"",""RMPOPF1"",12,0)"
^XMB(3.9,133,2,1168,0)=" ; TRXDT= Date TRX Built"
^XMB(3.9,133,2,1169,0)="""RTN"",""RMPOPF1"",13,0)"
^XMB(3.9,133,2,1170,0)=" ; ITMD= Item multiple zero node"
^XMB(3.9,133,2,1171,0)="""RTN"",""RMPOPF1"",14,0)"
^XMB(3.9,133,2,1172,0)=" ; "
^XMB(3.9,133,2,1173,0)="""RTN"",""RMPOPF1"",15,0)"
^XMB(3.9,133,2,1174,0)=" ;Set variables"
^XMB(3.9,133,2,1175,0)="""RTN"",""RMPOPF1"",16,0)"
^XMB(3.9,133,2,1176,0)=" S RMPRDFN=DFN"
^XMB(3.9,133,2,1177,0)="""RTN"",""RMPOPF1"",17,0)"
^XMB(3.9,133,2,1178,0)=" S RMPRITEM=0"
^XMB(3.9,133,2,1179,0)="""RTN"",""RMPOPF1"",18,0)"
^XMB(3.9,133,2,1180,0)=" S RMPRITEM=$O(^RMPR(665,DFN,""RMPOC"",""B"",$P(ITMD,""^""),RMPRITEM))"
^XMB(3.9,133,2,1181,0)="""RTN"",""RMPOPF1"",19,0)"
^XMB(3.9,133,2,1182,0)=" S RMPRPAR=$P($G(^RMPR(665,RMPRDFN,""RMPOC"",RMPRITEM,""PFSS"")),""^"",2)"
^XMB(3.9,133,2,1183,0)="""RTN"",""RMPOPF1"",20,0)"
^XMB(3.9,133,2,1184,0)=" S RMPRTYPE=""CG"""
^XMB(3.9,133,2,1185,0)="""RTN"",""RMPOPF1"",21,0)"
^XMB(3.9,133,2,1186,0)=" S RMPRFT1(4)=TRXDT"
^XMB(3.9,133,2,1187,0)="""RTN"",""RMPOPF1"",22,0)"
^XMB(3.9,133,2,1188,0)=" S RMPRFT1(10)=$P(ITMD,""^"",7)"
^XMB(3.9,133,2,1189,0)="""RTN"",""RMPOPF1"",23,0)"
^XMB(3.9,133,2,1190,0)=" S RMPRFT1(13)=423"
^XMB(3.9,133,2,1191,0)="""RTN"",""RMPOPF1"",24,0)"
^XMB(3.9,133,2,1192,0)=" S RMPRSTA=RMPOXITE"
^XMB(3.9,133,2,1193,0)="""RTN"",""RMPOPF1"",25,0)"
^XMB(3.9,133,2,1194,0)=" D GETSITE^RMPRPF1"
^XMB(3.9,133,2,1195,0)="""RTN"",""RMPOPF1"",26,0)"
^XMB(3.9,133,2,1196,0)=" S RMPRFT1(16)=RMPRHLOC"
^XMB(3.9,133,2,1197,0)="""RTN"",""RMPOPF1"",27,0)"
^XMB(3.9,133,2,1198,0)=" S RMPRIEN=DFN D VALIDRX^RMPOPF K RMPRIEN"
^XMB(3.9,133,2,1199,0)="""RTN"",""RMPOPF1"",28,0)"
^XMB(3.9,133,2,1200,0)=" S RMPRFT1(21)=$P($G(^RMPR(665,DFN,""RMPOB"",RMPRRXI,""PFSS"")),""^"",2)"
^XMB(3.9,133,2,1201,0)="""RTN"",""RMPOPF1"",29,0)"
^XMB(3.9,133,2,1202,0)=" S RMPRFT1(22)=$P(ITMD,""^"",5)"
^XMB(3.9,133,2,1203,0)="""RTN"",""RMPOPF1"",30,0)"
^XMB(3.9,133,2,1204,0)=" S RMPRHCPC=$P(ITMD,""^"",2)"
^XMB(3.9,133,2,1205,0)="""RTN"",""RMPOPF1"",31,0)"
^XMB(3.9,133,2,1206,0)=" S RMPRHCDT=TRXDT"
^XMB(3.9,133,2,1207,0)="""RTN"",""RMPOPF1"",32,0)"
^XMB(3.9,133,2,1208,0)=" ; INSURE HCPCS IS CODE SET VERSIONED"
^XMB(3.9,133,2,1209,0)="""RTN"",""RMPOPF1"",33,0)"
^XMB(3.9,133,2,1210,0)=" D PSASHCPC^RMPOPF"
^XMB(3.9,133,2,1211,0)="""RTN"",""RMPOPF1"",34,0)"
^XMB(3.9,133,2,1212,0)=" S RMPRPR1(3)=RMPRVHC"
^XMB(3.9,133,2,1213,0)="""RTN"",""RMPOPF1"",35,0)"
^XMB(3.9,133,2,1214,0)=" S RMPRPR1(4)=RMPRTHC"
^XMB(3.9,133,2,1215,0)="""RTN"",""RMPOPF1"",36,0)"
^XMB(3.9,133,2,1216,0)=" S RMPRPR1(6)=""O"""
^XMB(3.9,133,2,1217,0)="""RTN"",""RMPOPF1"",37,0)"
^XMB(3.9,133,2,1218,0)=" ; INSURE ICD9 IS CODE SET VERSIONED"
^XMB(3.9,133,2,1219,0)="""RTN"",""RMPOPF1"",38,0)"
^XMB(3.9,133,2,1220,0)=" S RMPRDRG=$P(ITMD,""^"",9)"
^XMB(3.9,133,2,1221,0)="""RTN"",""RMPOPF1"",39,0)"
^XMB(3.9,133,2,1222,0)=" S:RMPRDRG'="""" RMPRDRG=$$STATCHK^ICDAPIU($P($G(^ICD9(RMPRDRG,0)),""^""),TRXDT)"
^XMB(3.9,133,2,1223,0)="""RTN"",""RMPOPF1"",40,0)"
^XMB(3.9,133,2,1224,0)=" S:$P(RMPRDRG,""^"")=1 RMPRDG1(1,3)=$P(RMPRDRG,""^"",2),RMPRDG1(1,6)=""F"""
^XMB(3.9,133,2,1225,0)="""RTN"",""RMPOPF1"",41,0)"
^XMB(3.9,133,2,1226,0)=" S RMPRZCL="""""
^XMB(3.9,133,2,1227,0)="""RTN"",""RMPOPF1"",42,0)"
^XMB(3.9,133,2,1228,0)=" S RMPRPROS(1)=RMPOVDR"
^XMB(3.9,133,2,1229,0)="""RTN"",""RMPOPF1"",43,0)"
^XMB(3.9,133,2,1230,0)=" S RMPRUCID=$P($G(^RMPO(665.72,RMPOXITE,1,RMPODATE,1,RMPOVDR,""V"",DFN,1,ITM,""PFSS"")),""^"",2)"
^XMB(3.9,133,2,1231,0)="""RTN"",""RMPOPF1"",44,0)"
^XMB(3.9,133,2,1232,0)=" S:RMPRUCID'>0 RMPRUCID=$$GETCHGID^IBBAPI()"
^XMB(3.9,133,2,1233,0)="""RTN"",""RMPOPF1"",45,0)"
^XMB(3.9,133,2,1234,0)=" S RMPRFLAG=$$CHARGE^IBBAPI(RMPRDFN,RMPRPAR,RMPRTYPE,RMPRUCID,.RMPRFT1,.RMPRPR1,.RMPRDG1,.RMPRZCL,"""","""",.RMPRPROS)"
^XMB(3.9,133,2,1235,0)="""RTN"",""RMPOPF1"",46,0)"
^XMB(3.9,133,2,1236,0)=" Q:RMPRFLAG=0"
^XMB(3.9,133,2,1237,0)="""RTN"",""RMPOPF1"",47,0)"
^XMB(3.9,133,2,1238,0)=" ;STORE RETURN INFO INTO 665.72"
^XMB(3.9,133,2,1239,0)="""RTN"",""RMPOPF1"",48,0)"
^XMB(3.9,133,2,1240,0)=" S DA=ITM,DA(1)=DFN,DA(2)=RMPOVDR,DA(3)=RMPODATE,DA(4)=RMPOXITE"
^XMB(3.9,133,2,1241,0)="""RTN"",""RMPOPF1"",49,0)"
^XMB(3.9,133,2,1242,0)=" S DIE=""^RMPO(665.72,""_DA(4)_"",1,""_DA(3)_"",1,""_DA(2)_"",""""V"""",""_DA(1)_"",1,"""
^XMB(3.9,133,2,1243,0)="""RTN"",""RMPOPF1"",50,0)"
^XMB(3.9,133,2,1244,0)=" S DR=""100///""_RMPRPAR_"";101///""_RMPRUCID_"";102///""_RMPRFT1(21)"
^XMB(3.9,133,2,1245,0)="""RTN"",""RMPOPF1"",51,0)"
^XMB(3.9,133,2,1246,0)=" D ^DIE"
^XMB(3.9,133,2,1247,0)="""RTN"",""RMPOPF1"",52,0)"
^XMB(3.9,133,2,1248,0)=" K DA,DIE,DR"
^XMB(3.9,133,2,1249,0)="""RTN"",""RMPOPF1"",53,0)"
^XMB(3.9,133,2,1250,0)=" ;STORE RETURN INFO INTO 660"
^XMB(3.9,133,2,1251,0)="""RTN"",""RMPOPF1"",54,0)"
^XMB(3.9,133,2,1252,0)=" S DA=D6I"
^XMB(3.9,133,2,1253,0)="""RTN"",""RMPOPF1"",55,0)"
^XMB(3.9,133,2,1254,0)=" S DIE=""^RMPR(660,"""
^XMB(3.9,133,2,1255,0)="""RTN"",""RMPOPF1"",56,0)"
^XMB(3.9,133,2,1256,0)=" S DR=""100///""_RMPRPAR_"";101///""_RMPRUCID_"";102///""_$P($G(^RMPR(660,D6I,1)),""^"",4)_"";103///""_$P($G(^RMPR(660,D6I,0)),""^"",7)_"";104///""_$P($G(^RMPR(660,D6I,0)),""^"",16)_"";106///@;107///@"""
^XMB(3.9,133,2,1257,0)="""RTN"",""RMPOPF1"",57,0)"
^XMB(3.9,133,2,1258,0)=" D ^DIE"
^XMB(3.9,133,2,1259,0)="""RTN"",""RMPOPF1"",58,0)"
^XMB(3.9,133,2,1260,0)=" K DA,DIE,DR"
^XMB(3.9,133,2,1261,0)="""RTN"",""RMPOPF1"",59,0)"
^XMB(3.9,133,2,1262,0)=" ;"
^XMB(3.9,133,2,1263,0)="""RTN"",""RMPOPF1"",60,0)"
^XMB(3.9,133,2,1264,0)=" K RMPRDFN,RMPRDG1,RMPRDRG,RMPRFLAG,RMPRFT1,RMPRHCPC,RMPRHLOC,RMPRITEM,RMPRPAR,RMPRPR1,RMPRPROS,RMPRRXDT,RMPRRXI,RMPRSTA,RMPRSTAT,RMPRTYPE,RMPRUCID"
^XMB(3.9,133,2,1265,0)="""RTN"",""RMPOPF1"",61,0)"
^XMB(3.9,133,2,1266,0)=" Q"
^XMB(3.9,133,2,1267,0)="""RTN"",""RMPOPF1"",62,0)"
^XMB(3.9,133,2,1268,0)="CHRGCRED ; Called when an previously charged item is deleted from 665.72"
^XMB(3.9,133,2,1269,0)="""RTN"",""RMPOPF1"",63,0)"
^XMB(3.9,133,2,1270,0)=" ; Variables passed in via TaskMan"
^XMB(3.9,133,2,1271,0)="""RTN"",""RMPOPF1"",64,0)"
^XMB(3.9,133,2,1272,0)=" ; RMPRSITE = 665.72 IEN - SITE"
^XMB(3.9,133,2,1273,0)="""RTN"",""RMPOPF1"",65,0)"
^XMB(3.9,133,2,1274,0)=" ; RMPRBLDT = 665.723;1 - BILLING MONTH IEN"
^XMB(3.9,133,2,1275,0)="""RTN"",""RMPOPF1"",66,0)"
^XMB(3.9,133,2,1276,0)=" ; RMPRVDR = 665.7231;1 - VENDOR IEN (DINUM 440)"
^XMB(3.9,133,2,1277,0)="""RTN"",""RMPOPF1"",67,0)"
^XMB(3.9,133,2,1278,0)=" ; RMPRDFN = 665.72319;9 - PATIENT IEN (DINUM 200)"
^XMB(3.9,133,2,1279,0)="""RTN"",""RMPOPF1"",68,0)"
^XMB(3.9,133,2,1280,0)=" ; RMPRITEM = 665.723191 - ITEM IEN"
^XMB(3.9,133,2,1281,0)="""RTN"",""RMPOPF1"",69,0)"
^XMB(3.9,133,2,1282,0)=" ; RMPRPFSS = DATA FROM THE ITEM'S ""PFSS"" NODE"
^XMB(3.9,133,2,1283,0)="""RTN"",""RMPOPF1"",70,0)"
^XMB(3.9,133,2,1284,0)=" ; "
^XMB(3.9,133,2,1285,0)="""RTN"",""RMPOPF1"",71,0)"
^XMB(3.9,133,2,1286,0)=" ;Quit if item data still exists"
^XMB(3.9,133,2,1287,0)="""RTN"",""RMPOPF1"",72,0)"
^XMB(3.9,133,2,1288,0)=" Q:$D(^RMPO(665.72,RMPRSITE,1,RMPRBLDT,1,RMPRVDR,""V"",RMPRDFN,1,RMPRITEM,0))"
^XMB(3.9,133,2,1289,0)="""RTN"",""RMPOPF1"",73,0)"
^XMB(3.9,133,2,1290,0)=" S RMPRFLAG=$$CHARGE^IBBAPI(RMPRDFN,$P(RMPRPFSS,""^"",1),""CD"",$P(RMPRPFSS,""^"",2))"
^XMB(3.9,133,2,1291,0)="""RTN"",""RMPOPF1"",74,0)"
^XMB(3.9,133,2,1292,0)=" K RMPRBLDT,RMPRDFN,RMPRFLAG,RMPRITEM,RMPRPFSS,RMPRSITE,RMPRVDR"
^XMB(3.9,133,2,1293,0)="""RTN"",""RMPOPF1"",75,0)"
^XMB(3.9,133,2,1294,0)=" Q"
^XMB(3.9,133,2,1295,0)="""RTN"",""RMPOPST3"")"
^XMB(3.9,133,2,1296,0)="0^3^B24093511^B23371087"
^XMB(3.9,133,2,1297,0)="""RTN"",""RMPOPST3"",1,0)"
^XMB(3.9,133,2,1298,0)="RMPOPST3 ;EDS/JAM,HinesIO/DDA - HOME OXYGEN BILLING TRANSACTIONS/ACCEPT FOR POST ;7/24/98"
^XMB(3.9,133,2,1299,0)="""RTN"",""RMPOPST3"",2,0)"
^XMB(3.9,133,2,1300,0)=" ;;3.0;PROSTHETICS;**29,44,41,98**;Feb 09, 1996"
^XMB(3.9,133,2,1301,0)="""RTN"",""RMPOPST3"",3,0)"
^XMB(3.9,133,2,1302,0)=" ;This subroutine is part of the billing module. Check file 665.72"
^XMB(3.9,133,2,1303,0)="""RTN"",""RMPOPST3"",4,0)"
^XMB(3.9,133,2,1304,0)=" ;for accepted transactions not yet posted."
^XMB(3.9,133,2,1305,0)="""RTN"",""RMPOPST3"",5,0)"
^XMB(3.9,133,2,1306,0)=" Q"
^XMB(3.9,133,2,1307,0)="""RTN"",""RMPOPST3"",6,0)"
^XMB(3.9,133,2,1308,0)="ACCEPT ; Check for accepted entries and post if user indicates"
^XMB(3.9,133,2,1309,0)="""RTN"",""RMPOPST3"",7,0)"
^XMB(3.9,133,2,1310,0)=" N DFNS"
^XMB(3.9,133,2,1311,0)="""RTN"",""RMPOPST3"",8,0)"
^XMB(3.9,133,2,1312,0)=" D FNDACC I $O(DFNS(""""))="""" Q"
^XMB(3.9,133,2,1313,0)="""RTN"",""RMPOPST3"",9,0)"
^XMB(3.9,133,2,1314,0)=" D PSTACC"
^XMB(3.9,133,2,1315,0)="""RTN"",""RMPOPST3"",10,0)"
^XMB(3.9,133,2,1316,0)=" Q  ;ACCEPT"
^XMB(3.9,133,2,1317,0)="""RTN"",""RMPOPST3"",11,0)"
^XMB(3.9,133,2,1318,0)=" ;"
^XMB(3.9,133,2,1319,0)="""RTN"",""RMPOPST3"",12,0)"
^XMB(3.9,133,2,1320,0)="TEST ;set test data"
^XMB(3.9,133,2,1321,0)="""RTN"",""RMPOPST3"",13,0)"
^XMB(3.9,133,2,1322,0)=" N RMPOXITE,RMPOVDR,RMPODATE,DFNS"
^XMB(3.9,133,2,1323,0)="""RTN"",""RMPOPST3"",14,0)"
^XMB(3.9,133,2,1324,0)=" S RMPOXITE=1,RMPOVDR=10,RMPODATE=2981200,DFNS(47)="""""
^XMB(3.9,133,2,1325,0)="""RTN"",""RMPOPST3"",15,0)"
^XMB(3.9,133,2,1326,0)=" S RMPO(""STA"")=521"
^XMB(3.9,133,2,1327,0)="""RTN"",""RMPOPST3"",16,0)"
^XMB(3.9,133,2,1328,0)=" D FNDACC I $O(DFNS(""""))="""" Q"
^XMB(3.9,133,2,1329,0)="""RTN"",""RMPOPST3"",17,0)"
^XMB(3.9,133,2,1330,0)=" D PSTACC"
^XMB(3.9,133,2,1331,0)="""RTN"",""RMPOPST3"",18,0)"
^XMB(3.9,133,2,1332,0)=" Q  ;TEST"
^XMB(3.9,133,2,1333,0)="""RTN"",""RMPOPST3"",19,0)"
^XMB(3.9,133,2,1334,0)=" ;"
^XMB(3.9,133,2,1335,0)="""RTN"",""RMPOPST3"",20,0)"
^XMB(3.9,133,2,1336,0)="FNDACC ;Check records to ensure all accepted transactions are posted."
^XMB(3.9,133,2,1337,0)="""RTN"",""RMPOPST3"",21,0)"
^XMB(3.9,133,2,1338,0)=" N DFN,BILDT,SITE,FIL,VDR,I"
^XMB(3.9,133,2,1339,0)="""RTN"",""RMPOPST3"",22,0)"
^XMB(3.9,133,2,1340,0)=" S FIL=665.72,SITE=RMPOXITE,BILDT=RMPODATE,VDR=RMPOVDR"
^XMB(3.9,133,2,1341,0)="""RTN"",""RMPOPST3"",23,0)"
^XMB(3.9,133,2,1342,0)=" S DFN=0"
^XMB(3.9,133,2,1343,0)="""RTN"",""RMPOPST3"",24,0)"
^XMB(3.9,133,2,1344,0)=" F I=1:1 S DFN=$O(^RMPO(FIL,SITE,1,BILDT,1,VDR,""V"",DFN)) Q:'DFN  D"
^XMB(3.9,133,2,1345,0)="""RTN"",""RMPOPST3"",25,0)"
^XMB(3.9,133,2,1346,0)=" . ;check if patient transaction posted"
^XMB(3.9,133,2,1347,0)="""RTN"",""RMPOPST3"",26,0)"
^XMB(3.9,133,2,1348,0)=" . I $P(^RMPO(FIL,SITE,1,BILDT,1,VDR,""V"",DFN,0),U,3)=""Y"" Q"
^XMB(3.9,133,2,1349,0)="""RTN"",""RMPOPST3"",27,0)"
^XMB(3.9,133,2,1350,0)=" . ;check if patient transaction accepted"
^XMB(3.9,133,2,1351,0)="""RTN"",""RMPOPST3"",28,0)"
^XMB(3.9,133,2,1352,0)=" . I $P(^RMPO(FIL,SITE,1,BILDT,1,VDR,""V"",DFN,0),U,2)'=""Y"" Q"
^XMB(3.9,133,2,1353,0)="""RTN"",""RMPOPST3"",29,0)"
^XMB(3.9,133,2,1354,0)=" . I I=10 D"
^XMB(3.9,133,2,1355,0)="""RTN"",""RMPOPST3"",30,0)"
^XMB(3.9,133,2,1356,0)=" . . W !!,""Verifying all accepted transactions posted. Please be patient"""
^XMB(3.9,133,2,1357,0)="""RTN"",""RMPOPST3"",31,0)"
^XMB(3.9,133,2,1358,0)=" . S DFNS(DFN)="""""
^XMB(3.9,133,2,1359,0)="""RTN"",""RMPOPST3"",32,0)"
^XMB(3.9,133,2,1360,0)=" Q  ;FNDACC"
^XMB(3.9,133,2,1361,0)="""RTN"",""RMPOPST3"",33,0)"
^XMB(3.9,133,2,1362,0)=" ;"
^XMB(3.9,133,2,1363,0)="""RTN"",""RMPOPST3"",34,0)"
^XMB(3.9,133,2,1364,0)="PSTACC ;Post accepted transactions if so indicated by user"
^XMB(3.9,133,2,1365,0)="""RTN"",""RMPOPST3"",35,0)"
^XMB(3.9,133,2,1366,0)=" N MES K DIR"
^XMB(3.9,133,2,1367,0)="""RTN"",""RMPOPST3"",36,0)"
^XMB(3.9,133,2,1368,0)=" S DIR(0)=""Y"",DIR(""B"")=""NO"""
^XMB(3.9,133,2,1369,0)="""RTN"",""RMPOPST3"",37,0)"
^XMB(3.9,133,2,1370,0)=" S MES=""There are patients whose billing transactions have been accepted"""
^XMB(3.9,133,2,1371,0)="""RTN"",""RMPOPST3"",38,0)"
^XMB(3.9,133,2,1372,0)=" S DIR(""A"",1)=MES,DIR(""A"",2)="" and not yet posted"""
^XMB(3.9,133,2,1373,0)="""RTN"",""RMPOPST3"",39,0)"
^XMB(3.9,133,2,1374,0)=" S DIR(""A"")=""Would you like to post them now"""
^XMB(3.9,133,2,1375,0)="""RTN"",""RMPOPST3"",40,0)"
^XMB(3.9,133,2,1376,0)=" S DIR(""?"")=""YES will Post accepted transaction and NO will not post"""
^XMB(3.9,133,2,1377,0)="""RTN"",""RMPOPST3"",41,0)"
^XMB(3.9,133,2,1378,0)=" D ^DIR"
^XMB(3.9,133,2,1379,0)="""RTN"",""RMPOPST3"",42,0)"
^XMB(3.9,133,2,1380,0)=" I 'Y!($D(DIRUT))!($D(DIROUT)) Q"
^XMB(3.9,133,2,1381,0)="""RTN"",""RMPOPST3"",43,0)"
^XMB(3.9,133,2,1382,0)=" ;Call post module to post transactions"
^XMB(3.9,133,2,1383,0)="""RTN"",""RMPOPST3"",44,0)"
^XMB(3.9,133,2,1384,0)=" D POST^RMPOPST0"
^XMB(3.9,133,2,1385,0)="""RTN"",""RMPOPST3"",45,0)"
^XMB(3.9,133,2,1386,0)=" K DIR,DIRUT,DIROUT,Y"
^XMB(3.9,133,2,1387,0)="""RTN"",""RMPOPST3"",46,0)"
^XMB(3.9,133,2,1388,0)=" Q  ;PSTACC"
^XMB(3.9,133,2,1389,0)="""RTN"",""RMPOPST3"",47,0)"
^XMB(3.9,133,2,1390,0)="F660 ;Post to file ^RMPR(660 for form 2319"
^XMB(3.9,133,2,1391,0)="""RTN"",""RMPOPST3"",48,0)"
^XMB(3.9,133,2,1392,0)=" N ITM,ITMD,D665A,SUSDES,TRXDT,D660,D6I,D6X,RMPOG,ERR"
^XMB(3.9,133,2,1393,0)="""RTN"",""RMPOPST3"",49,0)"
^XMB(3.9,133,2,1394,0)=" S D665A=$G(^RMPR(665,DFN,""RMPOA"")) I D665A="""" Q"
^XMB(3.9,133,2,1395,0)="""RTN"",""RMPOPST3"",50,0)"
^XMB(3.9,133,2,1396,0)=" D  ;AMIS grouper number"
^XMB(3.9,133,2,1397,0)="""RTN"",""RMPOPST3"",51,0)"
^XMB(3.9,133,2,1398,0)=" . L +^RMPR(669.9,RMPOXITE,0):9999 I $T=0 S RMPOG=DT_$P(DT,2,3) Q"
^XMB(3.9,133,2,1399,0)="""RTN"",""RMPOPST3"",52,0)"
^XMB(3.9,133,2,1400,0)=" . S RMPOG=$P(^RMPR(669.9,RMPOXITE,0),U,7),RMPOG=RMPOG-1"
^XMB(3.9,133,2,1401,0)="""RTN"",""RMPOPST3"",53,0)"
^XMB(3.9,133,2,1402,0)=" . S $P(^RMPR(669.9,RMPOXITE,0),U,7)=RMPOG"
^XMB(3.9,133,2,1403,0)="""RTN"",""RMPOPST3"",54,0)"
^XMB(3.9,133,2,1404,0)=" . L -^RMPR(669.9,RMPOXITE,0)"
^XMB(3.9,133,2,1405,0)="""RTN"",""RMPOPST3"",55,0)"
^XMB(3.9,133,2,1406,0)=" S TRXDT=$P(^RMPO(665.72,RMPOXITE,1,RMPODATE,1,RMPOVDR,0),U,2)"
^XMB(3.9,133,2,1407,0)="""RTN"",""RMPOPST3"",56,0)"
^XMB(3.9,133,2,1408,0)=" S ITM="""" F  S ITM=$O(^TMP($J,FCP,DFN,ITM)) Q:ITM=""""  D"
^XMB(3.9,133,2,1409,0)="""RTN"",""RMPOPST3"",57,0)"
^XMB(3.9,133,2,1410,0)=" . S ITMD=$G(^RMPO(665.72,RMPOXITE,1,RMPODATE,1,RMPOVDR,""V"",DFN,1,ITM,0))"
^XMB(3.9,133,2,1411,0)="""RTN"",""RMPOPST3"",58,0)"
^XMB(3.9,133,2,1412,0)=" . I ITMD="""" Q"
^XMB(3.9,133,2,1413,0)="""RTN"",""RMPOPST3"",59,0)"
^XMB(3.9,133,2,1414,0)=" .; I $P(ITMD,U,6)'>0 Q       ;nothing posted to IFCAP"
^XMB(3.9,133,2,1415,0)="""RTN"",""RMPOPST3"",60,0)"
^XMB(3.9,133,2,1416,0)=" . S RMCPHC=$P(ITMD,U,2),RMCPT="""",RMCPRENT=$P(ITMD,U,18),RMCPSO=""C"""
^XMB(3.9,133,2,1417,0)="""RTN"",""RMPOPST3"",61,0)"
^XMB(3.9,133,2,1418,0)=" . S RMCPTY=$P(ITMD,U,14),RMCPQH=$P(ITMD,U,19)"
^XMB(3.9,133,2,1419,0)="""RTN"",""RMPOPST3"",62,0)"
^XMB(3.9,133,2,1420,0)=" . S RMCPT1=$G(^RMPR(661.1,RMCPHC,4))"
^XMB(3.9,133,2,1421,0)="""RTN"",""RMPOPST3"",63,0)"
^XMB(3.9,133,2,1422,0)=" . I RMCPT1[""RP"",((RMCPTY=""R"")!(RMCPTY=""X"")) S RMCPT=RMCPT_""RP,"""
^XMB(3.9,133,2,1423,0)="""RTN"",""RMPOPST3"",64,0)"
^XMB(3.9,133,2,1424,0)=" . I RMCPT1[""QH"",($G(RMCPQH)) S RMCPT=RMCPT_""QH,"""
^XMB(3.9,133,2,1425,0)="""RTN"",""RMPOPST3"",65,0)"
^XMB(3.9,133,2,1426,0)=" . I (RMCPRENT=1),(RMCPT1[""RR"") S RMCPT=RMCPT_""RR,"""
^XMB(3.9,133,2,1427,0)="""RTN"",""RMPOPST3"",66,0)"
^XMB(3.9,133,2,1428,0)=" . I RMCPT1[""NU"",(RMCPT'[""RR"") S RMCPT=RMCPT_""NU,"""
^XMB(3.9,133,2,1429,0)="""RTN"",""RMPOPST3"",67,0)"
^XMB(3.9,133,2,1430,0)=" . I $L(RMCPT)>2 S RMCLEN=$L(RMCPT),RMCPT=$E(RMCPT,1,RMCLEN-1)"
^XMB(3.9,133,2,1431,0)="""RTN"",""RMPOPST3"",68,0)"
^XMB(3.9,133,2,1432,0)=" . S DIC=""^RMPR(660,"",DIC(0)=""L"",X=DT"
^XMB(3.9,133,2,1433,0)="""RTN"",""RMPOPST3"",69,0)"
^XMB(3.9,133,2,1434,0)=" . K DD,DO D FILE^DICN I +Y<0 Q"
^XMB(3.9,133,2,1435,0)="""RTN"",""RMPOPST3"",70,0)"
^XMB(3.9,133,2,1436,0)=" . S D6I=+Y,D6X=D6I_"","""
^XMB(3.9,133,2,1437,0)="""RTN"",""RMPOPST3"",71,0)"
^XMB(3.9,133,2,1438,0)=" . K DIE,DA,DR S DA(4)=RMPOXITE,DA(3)=RMPODATE,DA(2)=RMPOVDR,DA(1)=DFN"
^XMB(3.9,133,2,1439,0)="""RTN"",""RMPOPST3"",72,0)"
^XMB(3.9,133,2,1440,0)=" . S DIE=""^RMPO(665.72,""_DA(4)_"",1,""_DA(3)_"",1,""_DA(2)_"",""""V"""",""_DA(1)"
^XMB(3.9,133,2,1441,0)="""RTN"",""RMPOPST3"",73,0)"
^XMB(3.9,133,2,1442,0)=" . S DIE=DIE_"",1,"",DA=ITM,DR=""15///""_D6I D ^DIE"
^XMB(3.9,133,2,1443,0)="""RTN"",""RMPOPST3"",74,0)"
^XMB(3.9,133,2,1444,0)=" . S D660(660,D6X,.02)=DFN                 ;Patient name pointer"
^XMB(3.9,133,2,1445,0)="""RTN"",""RMPOPST3"",75,0)"
^XMB(3.9,133,2,1446,0)=" . S D660(660,D6X,1)=TRXDT                 ;Request date"
^XMB(3.9,133,2,1447,0)="""RTN"",""RMPOPST3"",76,0)"
^XMB(3.9,133,2,1448,0)=" . S D660(660,D6X,2)=$P(ITMD,U,14)         ;Type of transaction"
^XMB(3.9,133,2,1449,0)="""RTN"",""RMPOPST3"",77,0)"
^XMB(3.9,133,2,1450,0)=" . S D660(660,D6X,4)=$P(ITMD,U)            ;item"
^XMB(3.9,133,2,1451,0)="""RTN"",""RMPOPST3"",78,0)"
^XMB(3.9,133,2,1452,0)=" . S D660(660,D6X,4.1)=$P(^RMPR(661.1,$P(ITMD,U,2),0),U,4) ;HCPCS"
^XMB(3.9,133,2,1453,0)="""RTN"",""RMPOPST3"",79,0)"
^XMB(3.9,133,2,1454,0)=" . S D660(660,D6X,4.5)=$P(ITMD,U,2)        ;PSAS HCPCS"
^XMB(3.9,133,2,1455,0)="""RTN"",""RMPOPST3"",80,0)"
^XMB(3.9,133,2,1456,0)=" . S D660(660,D6X,4.7)=RMCPT               ;CPT MODIFIER"
^XMB(3.9,133,2,1457,0)="""RTN"",""RMPOPST3"",81,0)"
^XMB(3.9,133,2,1458,0)=" . S D660(660,D6X,5)=$P(ITMD,U,7)-$P(ITMD,U,17)          ;quantity"
^XMB(3.9,133,2,1459,0)="""RTN"",""RMPOPST3"",82,0)"
^XMB(3.9,133,2,1460,0)=" . S D660(660,D6X,7)=RMPOVDR               ;vendor"
^XMB(3.9,133,2,1461,0)="""RTN"",""RMPOPST3"",83,0)"
^XMB(3.9,133,2,1462,0)=" . S D660(660,D6X,8)=RMPO(""STA"")           ;station"
^XMB(3.9,133,2,1463,0)="""RTN"",""RMPOPST3"",84,0)"
^XMB(3.9,133,2,1464,0)=" . S D660(660,D6X,10)=CURDT                ;Delivery date"
^XMB(3.9,133,2,1465,0)="""RTN"",""RMPOPST3"",85,0)"
^XMB(3.9,133,2,1466,0)=" . D"
^XMB(3.9,133,2,1467,0)="""RTN"",""RMPOPST3"",86,0)"
^XMB(3.9,133,2,1468,0)=" . . I $P(PAYINF,U) D  Q"
^XMB(3.9,133,2,1469,0)="""RTN"",""RMPOPST3"",87,0)"
^XMB(3.9,133,2,1470,0)=" . . . S D660(660,D6X,11)=9                ;form requested on(1358)"
^XMB(3.9,133,2,1471,0)="""RTN"",""RMPOPST3"",88,0)"
^XMB(3.9,133,2,1472,0)=" . . . ;IFCAP transaction number - from file 424"
^XMB(3.9,133,2,1473,0)="""RTN"",""RMPOPST3"",89,0)"
^XMB(3.9,133,2,1474,0)=" . . . I $G(IEN424)'="""" S D660(660,D6X,23)=$P($G(^PRC(424,IEN424,0)),U)"
^XMB(3.9,133,2,1475,0)="""RTN"",""RMPOPST3"",90,0)"
^XMB(3.9,133,2,1476,0)=" . . S D660(660,D6X,11)=14                 ;form requested on (visa)"
^XMB(3.9,133,2,1477,0)="""RTN"",""RMPOPST3"",91,0)"
^XMB(3.9,133,2,1478,0)=" . . S D660(660,D6X,23)=SRVORD             ;IFCAP transaction number"
^XMB(3.9,133,2,1479,0)="""RTN"",""RMPOPST3"",92,0)"
^XMB(3.9,133,2,1480,0)=" . S D660(660,D6X,12)=""C""                  ;Source"
^XMB(3.9,133,2,1481,0)="""RTN"",""RMPOPST3"",93,0)"
^XMB(3.9,133,2,1482,0)=" . S D660(660,D6X,14)=$P(ITMD,U,6)         ;total cost"
^XMB(3.9,133,2,1483,0)="""RTN"",""RMPOPST3"",94,0)"
^XMB(3.9,133,2,1484,0)=" . S D660(660,D6X,16)=$P(ITMD,U,4)         ;remarks"
^XMB(3.9,133,2,1485,0)="""RTN"",""RMPOPST3"",95,0)"
^XMB(3.9,133,2,1486,0)=" . S SUSDES=$S($P(ITMD,U,11)'="""":""Suspended Amt ""_$P(ITMD,U,11)_"" "",1:"""")"
^XMB(3.9,133,2,1487,0)="""RTN"",""RMPOPST3"",96,0)"
^XMB(3.9,133,2,1488,0)=" . S D660(660,D6X,24)=SUSDES_$P(ITMD,U,12) ;description"
^XMB(3.9,133,2,1489,0)="""RTN"",""RMPOPST3"",97,0)"
^XMB(3.9,133,2,1490,0)=" . S D660(660,D6X,27)=DUZ                  ;initiator"
^XMB(3.9,133,2,1491,0)="""RTN"",""RMPOPST3"",98,0)"
^XMB(3.9,133,2,1492,0)=" . S D660(660,D6X,62)=$P(D665A,U)          ;patient category"
^XMB(3.9,133,2,1493,0)="""RTN"",""RMPOPST3"",99,0)"
^XMB(3.9,133,2,1494,0)=" . S D660(660,D6X,63)=$P(D665A,U,5)        ;special category"
^XMB(3.9,133,2,1495,0)="""RTN"",""RMPOPST3"",100,0)"
^XMB(3.9,133,2,1496,0)=" . S D660(660,D6X,68)=RMPOG"
^XMB(3.9,133,2,1497,0)="""RTN"",""RMPOPST3"",101,0)"
^XMB(3.9,133,2,1498,0)=" . S D660(660,D6X,78)=$P(ITMD,U,15)        ;unit of issue"
^XMB(3.9,133,2,1499,0)="""RTN"",""RMPOPST3"",102,0)"
^XMB(3.9,133,2,1500,0)=" . D FILE^DIE(""K"",""D660"",""ERR"")"
^XMB(3.9,133,2,1501,0)="""RTN"",""RMPOPST3"",103,0)"
^XMB(3.9,133,2,1502,0)=" . I $D(ERR) D"
^XMB(3.9,133,2,1503,0)="""RTN"",""RMPOPST3"",104,0)"
^XMB(3.9,133,2,1504,0)=" . . W !!,""Posting to 2319 for item "",ITM,"" patient "",DFN,"" failed."""
^XMB(3.9,133,2,1505,0)="""RTN"",""RMPOPST3"",105,0)"
^XMB(3.9,133,2,1506,0)=" . . W ""Posting will be done later"""
^XMB(3.9,133,2,1507,0)="""RTN"",""RMPOPST3"",106,0)"
^XMB(3.9,133,2,1508,0)=" . . Q"
^XMB(3.9,133,2,1509,0)="""RTN"",""RMPOPST3"",107,0)"
^XMB(3.9,133,2,1510,0)=" . ; RMPR*3*98"
^XMB(3.9,133,2,1511,0)="""RTN"",""RMPOPST3"",108,0)"
^XMB(3.9,133,2,1512,0)=" . ; CALL TO PROCESS PFSS CHARGE MESSAGE"
^XMB(3.9,133,2,1513,0)="""RTN"",""RMPOPST3"",109,0)"
^XMB(3.9,133,2,1514,0)=" . I '$D(ERR) D CHARGE^RMPOPF"
^XMB(3.9,133,2,1515,0)="""RTN"",""RMPOPST3"",110,0)"
^XMB(3.9,133,2,1516,0)=" . Q"
^XMB(3.9,133,2,1517,0)="""RTN"",""RMPOPST3"",111,0)"
^XMB(3.9,133,2,1518,0)=" K DIC,X,Y"
^XMB(3.9,133,2,1519,0)="""RTN"",""RMPOPST3"",112,0)"
^XMB(3.9,133,2,1520,0)=" Q"
^XMB(3.9,133,2,1521,0)="""RTN"",""RMPRPF"")"
^XMB(3.9,133,2,1522,0)="0^4^B4839309"
^XMB(3.9,133,2,1523,0)="""RTN"",""RMPRPF"",1,0)"
^XMB(3.9,133,2,1524,0)="RMPRPF ;HOIFO/TH,DDA - Patient Financial Services System (PFSS) Support Main ;8/18/05"
^XMB(3.9,133,2,1525,0)="""RTN"",""RMPRPF"",2,0)"
^XMB(3.9,133,2,1526,0)=" ;;3.0;PROSTHETICS;**98**;Feb 09, 1996"
^XMB(3.9,133,2,1527,0)="""RTN"",""RMPRPF"",3,0)"
^XMB(3.9,133,2,1528,0)=" ;"
^XMB(3.9,133,2,1529,0)="""RTN"",""RMPRPF"",4,0)"
^XMB(3.9,133,2,1530,0)=" ; This routine is the main entry point for the RMPR PFSS BACGROUND process."
^XMB(3.9,133,2,1531,0)="""RTN"",""RMPRPF"",5,0)"
^XMB(3.9,133,2,1532,0)=" ; Entry point EN will check the current setting of the PFSS Master Switch,"
^XMB(3.9,133,2,1533,0)="""RTN"",""RMPRPF"",6,0)"
^XMB(3.9,133,2,1534,0)=" ; process Account Creation, Charges, and Updates for Purchasing,"
^XMB(3.9,133,2,1535,0)="""RTN"",""RMPRPF"",7,0)"
^XMB(3.9,133,2,1536,0)=" ; Stock Issue, and Home Oxygen."
^XMB(3.9,133,2,1537,0)="""RTN"",""RMPRPF"",8,0)"
^XMB(3.9,133,2,1538,0)=" ; "
^XMB(3.9,133,2,1539,0)="""RTN"",""RMPRPF"",9,0)"
^XMB(3.9,133,2,1540,0)=" ; Entry point SEED is a one time subroutine that is to be run at implementation"
^XMB(3.9,133,2,1541,0)="""RTN"",""RMPRPF"",10,0)"
^XMB(3.9,133,2,1542,0)=" ; to seed Home Oxygen with PFSS ACCOUNT REFERENCE numbers for all those Home"
^XMB(3.9,133,2,1543,0)="""RTN"",""RMPRPF"",11,0)"
^XMB(3.9,133,2,1544,0)=" ; Oxygen prescriptions that are valid at the date the PFSS Master Switch was"
^XMB(3.9,133,2,1545,0)="""RTN"",""RMPRPF"",12,0)"
^XMB(3.9,133,2,1546,0)=" ; turned on.  SEED should only be run at implementation (or re-implementation)"
^XMB(3.9,133,2,1547,0)="""RTN"",""RMPRPF"",13,0)"
^XMB(3.9,133,2,1548,0)=" ; of PFSS, as directed by the implementation team."
^XMB(3.9,133,2,1549,0)="""RTN"",""RMPRPF"",14,0)"
^XMB(3.9,133,2,1550,0)=" ; "
^XMB(3.9,133,2,1551,0)="""RTN"",""RMPRPF"",15,0)"
^XMB(3.9,133,2,1552,0)=" ; DBIA # 4663 for SWSTAT^IBBAPI"
^XMB(3.9,133,2,1553,0)="""RTN"",""RMPRPF"",16,0)"
^XMB(3.9,133,2,1554,0)=" ;"
^XMB(3.9,133,2,1555,0)="""RTN"",""RMPRPF"",17,0)"
^XMB(3.9,133,2,1556,0)=" Q"
^XMB(3.9,133,2,1557,0)="""RTN"",""RMPRPF"",18,0)"
^XMB(3.9,133,2,1558,0)=" ;"
^XMB(3.9,133,2,1559,0)="""RTN"",""RMPRPF"",19,0)"
^XMB(3.9,133,2,1560,0)="EN ; Entry Point"
^XMB(3.9,133,2,1561,0)="""RTN"",""RMPRPF"",20,0)"
^XMB(3.9,133,2,1562,0)=" ; Check PFSS Master Switch"
^XMB(3.9,133,2,1563,0)="""RTN"",""RMPRPF"",21,0)"
^XMB(3.9,133,2,1564,0)=" Q:'+$$SWSTAT^IBBAPI()"
^XMB(3.9,133,2,1565,0)="""RTN"",""RMPRPF"",22,0)"
^XMB(3.9,133,2,1566,0)=" ;"
^XMB(3.9,133,2,1567,0)="""RTN"",""RMPRPF"",23,0)"
^XMB(3.9,133,2,1568,0)=" ; Loop thru APH x-ref"
^XMB(3.9,133,2,1569,0)="""RTN"",""RMPRPF"",24,0)"
^XMB(3.9,133,2,1570,0)=" S RMPRDA="""" F  S RMPRDA=$O(^RMPR(660,""APH"",1,RMPRDA)) Q:RMPRDA=""""  D"
^XMB(3.9,133,2,1571,0)="""RTN"",""RMPRPF"",25,0)"
^XMB(3.9,133,2,1572,0)=" . D EN^RMPRPF1"
^XMB(3.9,133,2,1573,0)="""RTN"",""RMPRPF"",26,0)"
^XMB(3.9,133,2,1574,0)=" ;"
^XMB(3.9,133,2,1575,0)="""RTN"",""RMPRPF"",27,0)"
^XMB(3.9,133,2,1576,0)=" ; Loop thru APD x-ref"
^XMB(3.9,133,2,1577,0)="""RTN"",""RMPRPF"",28,0)"
^XMB(3.9,133,2,1578,0)=" S RMPRDA="""" F  S RMPRDA=$O(^RMPR(660,""APD"",1,RMPRDA)) Q:RMPRDA=""""  D"
^XMB(3.9,133,2,1579,0)="""RTN"",""RMPRPF"",29,0)"
^XMB(3.9,133,2,1580,0)=" . D EN^RMPRPF2"
^XMB(3.9,133,2,1581,0)="""RTN"",""RMPRPF"",30,0)"
^XMB(3.9,133,2,1582,0)=" ; Call Home Oxygen"
^XMB(3.9,133,2,1583,0)="""RTN"",""RMPRPF"",31,0)"
^XMB(3.9,133,2,1584,0)=" D EN^RMPOPF"
^XMB(3.9,133,2,1585,0)="""RTN"",""RMPRPF"",32,0)"
^XMB(3.9,133,2,1586,0)=" D EXIT"
^XMB(3.9,133,2,1587,0)="""RTN"",""RMPRPF"",33,0)"
^XMB(3.9,133,2,1588,0)=" Q"
^XMB(3.9,133,2,1589,0)="""RTN"",""RMPRPF"",34,0)"
^XMB(3.9,133,2,1590,0)=" ;"
^XMB(3.9,133,2,1591,0)="""RTN"",""RMPRPF"",35,0)"
^XMB(3.9,133,2,1592,0)="EXIT ; Common exit point"
^XMB(3.9,133,2,1593,0)="""RTN"",""RMPRPF"",36,0)"
^XMB(3.9,133,2,1594,0)=" D KILL^XUSCLEAN"
^XMB(3.9,133,2,1595,0)="""RTN"",""RMPRPF"",37,0)"
^XMB(3.9,133,2,1596,0)=" Q"
^XMB(3.9,133,2,1597,0)="""RTN"",""RMPRPF"",38,0)"
^XMB(3.9,133,2,1598,0)=" ;"
^XMB(3.9,133,2,1599,0)="""RTN"",""RMPRPF"",39,0)"
^XMB(3.9,133,2,1600,0)=" ;  The following code is to be run at implementation time only."
^XMB(3.9,133,2,1601,0)="""RTN"",""RMPRPF"",40,0)"
^XMB(3.9,133,2,1602,0)="SEED ;  Seed Home Oxygen Prescription items with initial PFSS ACCOUNT REFERENCE numbers."
^XMB(3.9,133,2,1603,0)="""RTN"",""RMPRPF"",41,0)"
^XMB(3.9,133,2,1604,0)=" ; If this is a re-implementation, previous account references will be replaced."
^XMB(3.9,133,2,1605,0)="""RTN"",""RMPRPF"",42,0)"
^XMB(3.9,133,2,1606,0)=" ;"
^XMB(3.9,133,2,1607,0)="""RTN"",""RMPRPF"",43,0)"
^XMB(3.9,133,2,1608,0)=" S RMPRSW=$$SWSTAT^IBBAPI()"
^XMB(3.9,133,2,1609,0)="""RTN"",""RMPRPF"",44,0)"
^XMB(3.9,133,2,1610,0)=" G:'+RMPRSW EXSEED"
^XMB(3.9,133,2,1611,0)="""RTN"",""RMPRPF"",45,0)"
^XMB(3.9,133,2,1612,0)=" S RMPRSWDT=$P(RMPRSW,""^"",2)"
^XMB(3.9,133,2,1613,0)="""RTN"",""RMPRPF"",46,0)"
^XMB(3.9,133,2,1614,0)=" S RMPRIEN=0"
^XMB(3.9,133,2,1615,0)="""RTN"",""RMPRPF"",47,0)"
^XMB(3.9,133,2,1616,0)=" F  S RMPRIEN=$O(^RMPR(665,RMPRIEN)) Q:RMPRIEN'>0  D"
^XMB(3.9,133,2,1617,0)="""RTN"",""RMPRPF"",48,0)"
^XMB(3.9,133,2,1618,0)=" .S RMPRRX=0"
^XMB(3.9,133,2,1619,0)="""RTN"",""RMPRPF"",49,0)"
^XMB(3.9,133,2,1620,0)=" .F  S RMPRRX=$O(^RMPR(665,RMPRIEN,""RMPOB"",RMPRRX)) Q:RMPRRX'>0  D"
^XMB(3.9,133,2,1621,0)="""RTN"",""RMPRPF"",50,0)"
^XMB(3.9,133,2,1622,0)=" ..;QUIT IF RX EXPRIRATION DATE IS LESS THAN (BEFORE) PFSS SWITCH ON DATE"
^XMB(3.9,133,2,1623,0)="""RTN"",""RMPRPF"",51,0)"
^XMB(3.9,133,2,1624,0)=" ..Q:$P($G(^RMPR(665,RMPRIEN,""RMPOB"",RMPRRX,0)),""^"",3)<RMPRSWDT"
^XMB(3.9,133,2,1625,0)="""RTN"",""RMPRPF"",52,0)"
^XMB(3.9,133,2,1626,0)=" ..;SET THE ""APNEW"" FLAG FOR THE PRESCRIPTION"
^XMB(3.9,133,2,1627,0)="""RTN"",""RMPRPF"",53,0)"
^XMB(3.9,133,2,1628,0)=" ..S DIE=""^RMPR(665,""_RMPRIEN_"",""""RMPOB"""","""
^XMB(3.9,133,2,1629,0)="""RTN"",""RMPRPF"",54,0)"
^XMB(3.9,133,2,1630,0)=" ..S DA(1)=RMPRIEN,DA=RMPRRX"
^XMB(3.9,133,2,1631,0)="""RTN"",""RMPRPF"",55,0)"
^XMB(3.9,133,2,1632,0)=" ..S DR=""100///1"""
^XMB(3.9,133,2,1633,0)="""RTN"",""RMPRPF"",56,0)"
^XMB(3.9,133,2,1634,0)=" ..D ^DIE"
^XMB(3.9,133,2,1635,0)="""RTN"",""RMPRPF"",57,0)"
^XMB(3.9,133,2,1636,0)=" ..K DIE,DA,DR"
^XMB(3.9,133,2,1637,0)="""RTN"",""RMPRPF"",58,0)"
^XMB(3.9,133,2,1638,0)=" ..Q"
^XMB(3.9,133,2,1639,0)="""RTN"",""RMPRPF"",59,0)"
^XMB(3.9,133,2,1640,0)=" .Q"
^XMB(3.9,133,2,1641,0)="""RTN"",""RMPRPF"",60,0)"
^XMB(3.9,133,2,1642,0)=" ; DIRECT CALL TO THE BACKGROUND PROCESS CODE FOR HOME OXYGEN TO PROCESS THE APNEW FLAG"
^XMB(3.9,133,2,1643,0)="""RTN"",""RMPRPF"",61,0)"
^XMB(3.9,133,2,1644,0)=" ; AND OBTAIN PFSS ACCOUNT REFERENCE NUMBERS."
^XMB(3.9,133,2,1645,0)="""RTN"",""RMPRPF"",62,0)"
^XMB(3.9,133,2,1646,0)=" D EN^RMPOPF"
^XMB(3.9,133,2,1647,0)="""RTN"",""RMPRPF"",63,0)"
^XMB(3.9,133,2,1648,0)=" ;"
^XMB(3.9,133,2,1649,0)="""RTN"",""RMPRPF"",64,0)"
^XMB(3.9,133,2,1650,0)="EXSEED ;"
^XMB(3.9,133,2,1651,0)="""RTN"",""RMPRPF"",65,0)"
^XMB(3.9,133,2,1652,0)=" K RMPRIEN,RMPRRX,RMPRSW,RMPRSWDT"
^XMB(3.9,133,2,1653,0)="""RTN"",""RMPRPF"",66,0)"
^XMB(3.9,133,2,1654,0)=" Q"
^XMB(3.9,133,2,1655,0)="""RTN"",""RMPRPF"",67,0)"
^XMB(3.9,133,2,1656,0)=" ;"
^XMB(3.9,133,2,1657,0)="""RTN"",""RMPRPF"",68,0)"
^XMB(3.9,133,2,1658,0)="POST ; The following code is only to be run during patch installation as the post-init"
^XMB(3.9,133,2,1659,0)="""RTN"",""RMPRPF"",69,0)"
^XMB(3.9,133,2,1660,0)=" ; This code tasks the running of the routine RMPR112P which contains the fix for the"
^XMB(3.9,133,2,1661,0)="""RTN"",""RMPRPF"",70,0)"
^XMB(3.9,133,2,1662,0)=" ;  partial patient merge data-KIDS build issue."
^XMB(3.9,133,2,1663,0)="""RTN"",""RMPRPF"",71,0)"
^XMB(3.9,133,2,1664,0)=" N ZTRTN,ZTDESC,ZTDTH,ZTIO,ZTUCI,ZTCPU,ZTPRI,ZTSAVE,ZTKIL,ZTSYNC"
^XMB(3.9,133,2,1665,0)="""RTN"",""RMPRPF"",72,0)"
^XMB(3.9,133,2,1666,0)=" S ZTIO="""",ZTRTN=""RMPR112P"",ZTDESC=""Prosthetics Post-INIT for patch RMPR*3*98."",ZTDTH=$H"
^XMB(3.9,133,2,1667,0)="""RTN"",""RMPRPF"",73,0)"
^XMB(3.9,133,2,1668,0)=" D ^%ZTLOAD"
^XMB(3.9,133,2,1669,0)="""RTN"",""RMPRPF"",74,0)"
^XMB(3.9,133,2,1670,0)=" Q"
^XMB(3.9,133,2,1671,0)="""RTN"",""RMPRPF1"")"
^XMB(3.9,133,2,1672,0)="0^5^B17743335"
^XMB(3.9,133,2,1673,0)="""RTN"",""RMPRPF1"",1,0)"
^XMB(3.9,133,2,1674,0)="RMPRPF1 ;HOIFO/TH,DDA - PFSS Account Creation ;8/18/05"
^XMB(3.9,133,2,1675,0)="""RTN"",""RMPRPF1"",2,0)"
^XMB(3.9,133,2,1676,0)=" ;;3.0;PROSTHETICS;**98**;Feb 09, 1996"
^XMB(3.9,133,2,1677,0)="""RTN"",""RMPRPF1"",3,0)"
^XMB(3.9,133,2,1678,0)=" ;"
^XMB(3.9,133,2,1679,0)="""RTN"",""RMPRPF1"",4,0)"
^XMB(3.9,133,2,1680,0)=" ; This routine collects PFSS Account Creation required data elements,"
^XMB(3.9,133,2,1681,0)="""RTN"",""RMPRPF1"",5,0)"
^XMB(3.9,133,2,1682,0)=" ; sends pre-cert or update message to IBB; obtains and stores a PFSS"
^XMB(3.9,133,2,1683,0)="""RTN"",""RMPRPF1"",6,0)"
^XMB(3.9,133,2,1684,0)=" ; Account Reference in file 660."
^XMB(3.9,133,2,1685,0)="""RTN"",""RMPRPF1"",7,0)"
^XMB(3.9,133,2,1686,0)=" ;"
^XMB(3.9,133,2,1687,0)="""RTN"",""RMPRPF1"",8,0)"
^XMB(3.9,133,2,1688,0)=" ; DBIA #4664 for GETACCT^IBBAPI"
^XMB(3.9,133,2,1689,0)="""RTN"",""RMPRPF1"",9,0)"
^XMB(3.9,133,2,1690,0)=" ; DBIA #1997 for STATCHK^ICPTAPIU"
^XMB(3.9,133,2,1691,0)="""RTN"",""RMPRPF1"",10,0)"
^XMB(3.9,133,2,1692,0)=" Q"
^XMB(3.9,133,2,1693,0)="""RTN"",""RMPRPF1"",11,0)"
^XMB(3.9,133,2,1694,0)=" ;"
^XMB(3.9,133,2,1695,0)="""RTN"",""RMPRPF1"",12,0)"
^XMB(3.9,133,2,1696,0)="EN ; Entry Point"
^XMB(3.9,133,2,1697,0)="""RTN"",""RMPRPF1"",13,0)"
^XMB(3.9,133,2,1698,0)=" S OK=1"
^XMB(3.9,133,2,1699,0)="""RTN"",""RMPRPF1"",14,0)"
^XMB(3.9,133,2,1700,0)=" S RMPRSWDT=$P($$SWSTAT^IBBAPI(),""^"",2)"
^XMB(3.9,133,2,1701,0)="""RTN"",""RMPRPF1"",15,0)"
^XMB(3.9,133,2,1702,0)=" ; Quit if Entry Date is before PFSS Switch on date"
^XMB(3.9,133,2,1703,0)="""RTN"",""RMPRPF1"",16,0)"
^XMB(3.9,133,2,1704,0)=" I $P(^RMPR(660,RMPRDA,0),""^"")<RMPRSWDT D DELAPH Q"
^XMB(3.9,133,2,1705,0)="""RTN"",""RMPRPF1"",17,0)"
^XMB(3.9,133,2,1706,0)="EN2 ; Entry to be used if Delivery Date is greater than PFSS Switch on date"
^XMB(3.9,133,2,1707,0)="""RTN"",""RMPRPF1"",18,0)"
^XMB(3.9,133,2,1708,0)=" ; Quit if PFSS Charge ID exists"
^XMB(3.9,133,2,1709,0)="""RTN"",""RMPRPF1"",19,0)"
^XMB(3.9,133,2,1710,0)=" I $P(^RMPR(660,RMPRDA,""PFSS""),U,2)'="""" D DELAPH Q"
^XMB(3.9,133,2,1711,0)="""RTN"",""RMPRPF1"",20,0)"
^XMB(3.9,133,2,1712,0)=" ; Quit if Historical Data"
^XMB(3.9,133,2,1713,0)="""RTN"",""RMPRPF1"",21,0)"
^XMB(3.9,133,2,1714,0)=" I $P(^RMPR(660,RMPRDA,0),U,13)=13 D DELAPH Q"
^XMB(3.9,133,2,1715,0)="""RTN"",""RMPRPF1"",22,0)"
^XMB(3.9,133,2,1716,0)=" ; Quit if Shipping Charge exists"
^XMB(3.9,133,2,1717,0)="""RTN"",""RMPRPF1"",23,0)"
^XMB(3.9,133,2,1718,0)=" I $P(^RMPR(660,RMPRDA,0),U,17)>0 D DELAPH Q"
^XMB(3.9,133,2,1719,0)="""RTN"",""RMPRPF1"",24,0)"
^XMB(3.9,133,2,1720,0)=" S RMPREVNT=""A05""        ; Pre-cert "
^XMB(3.9,133,2,1721,0)="""RTN"",""RMPRPF1"",25,0)"
^XMB(3.9,133,2,1722,0)=" ; Check if PFSS Account Ref exists"
^XMB(3.9,133,2,1723,0)="""RTN"",""RMPRPF1"",26,0)"
^XMB(3.9,133,2,1724,0)=" S OK=1"
^XMB(3.9,133,2,1725,0)="""RTN"",""RMPRPF1"",27,0)"
^XMB(3.9,133,2,1726,0)=" I $P(^RMPR(660,RMPRDA,""PFSS""),U,1)'="""" D"
^XMB(3.9,133,2,1727,0)="""RTN"",""RMPRPF1"",28,0)"
^XMB(3.9,133,2,1728,0)=" . ; Quit if PSAS HCPCS did not get updated"
^XMB(3.9,133,2,1729,0)="""RTN"",""RMPRPF1"",29,0)"
^XMB(3.9,133,2,1730,0)=" . I $P(^RMPR(660,RMPRDA,1),U,4)=$P(^RMPR(660,RMPRDA,""PFSS""),U,3) D DELAPH S OK=0 Q"
^XMB(3.9,133,2,1731,0)="""RTN"",""RMPRPF1"",30,0)"
^XMB(3.9,133,2,1732,0)=" . S RMPREVNT=""A08""      ; Update Patient Info"
^XMB(3.9,133,2,1733,0)="""RTN"",""RMPRPF1"",31,0)"
^XMB(3.9,133,2,1734,0)=" I OK D"
^XMB(3.9,133,2,1735,0)="""RTN"",""RMPRPF1"",32,0)"
^XMB(3.9,133,2,1736,0)=" . D GETDATA"
^XMB(3.9,133,2,1737,0)="""RTN"",""RMPRPF1"",33,0)"
^XMB(3.9,133,2,1738,0)=" . D GETACCT"
^XMB(3.9,133,2,1739,0)="""RTN"",""RMPRPF1"",34,0)"
^XMB(3.9,133,2,1740,0)=" . ; If msg was sent successfully, store data and kill x-ref"
^XMB(3.9,133,2,1741,0)="""RTN"",""RMPRPF1"",35,0)"
^XMB(3.9,133,2,1742,0)=" . I RMPRARFN'=0 D"
^XMB(3.9,133,2,1743,0)="""RTN"",""RMPRPF1"",36,0)"
^XMB(3.9,133,2,1744,0)=" . . D STORE"
^XMB(3.9,133,2,1745,0)="""RTN"",""RMPRPF1"",37,0)"
^XMB(3.9,133,2,1746,0)=" . . D DELAPH"
^XMB(3.9,133,2,1747,0)="""RTN"",""RMPRPF1"",38,0)"
^XMB(3.9,133,2,1748,0)=" D EXIT"
^XMB(3.9,133,2,1749,0)="""RTN"",""RMPRPF1"",39,0)"
^XMB(3.9,133,2,1750,0)=" Q"
^XMB(3.9,133,2,1751,0)="""RTN"",""RMPRPF1"",40,0)"
^XMB(3.9,133,2,1752,0)=" ;"
^XMB(3.9,133,2,1753,0)="""RTN"",""RMPRPF1"",41,0)"
^XMB(3.9,133,2,1754,0)="GETDATA ; Get pre-cert data"
^XMB(3.9,133,2,1755,0)="""RTN"",""RMPRPF1"",42,0)"
^XMB(3.9,133,2,1756,0)=" S (RMPRDFN,RMPRARFN,RMPRAPLR)="""""
^XMB(3.9,133,2,1757,0)="""RTN"",""RMPRPF1"",43,0)"
^XMB(3.9,133,2,1758,0)=" S RMPRDFN=$P(^RMPR(660,RMPRDA,0),U,2)   ; Patient ID"
^XMB(3.9,133,2,1759,0)="""RTN"",""RMPRPF1"",44,0)"
^XMB(3.9,133,2,1760,0)=" S RMPRAPLR=""GETACCT;RMPRPF1"""
^XMB(3.9,133,2,1761,0)="""RTN"",""RMPRPF1"",45,0)"
^XMB(3.9,133,2,1762,0)=" I RMPREVNT=""A08"",($P(^RMPR(660,RMPRDA,""PFSS""),U,1)'="""") D"
^XMB(3.9,133,2,1763,0)="""RTN"",""RMPRPF1"",46,0)"
^XMB(3.9,133,2,1764,0)=" . S RMPRARFN=$P(^RMPR(660,RMPRDA,""PFSS""),U,1)   ; Acct Ref"
^XMB(3.9,133,2,1765,0)="""RTN"",""RMPRPF1"",47,0)"
^XMB(3.9,133,2,1766,0)=" ;"
^XMB(3.9,133,2,1767,0)="""RTN"",""RMPRPF1"",48,0)"
^XMB(3.9,133,2,1768,0)=" ; PV1"
^XMB(3.9,133,2,1769,0)="""RTN"",""RMPRPF1"",49,0)"
^XMB(3.9,133,2,1770,0)=" S RMPRPV1(2)=""O""        ; Patient Class"
^XMB(3.9,133,2,1771,0)="""RTN"",""RMPRPF1"",50,0)"
^XMB(3.9,133,2,1772,0)=" S RMPRSTA=$P(^RMPR(660,RMPRDA,0),U,10)"
^XMB(3.9,133,2,1773,0)="""RTN"",""RMPRPF1"",51,0)"
^XMB(3.9,133,2,1774,0)=" D GETSITE"
^XMB(3.9,133,2,1775,0)="""RTN"",""RMPRPF1"",52,0)"
^XMB(3.9,133,2,1776,0)=" S RMPRPV1(3)=RMPRHLOC   ; Patient Location"
^XMB(3.9,133,2,1777,0)="""RTN"",""RMPRPF1"",53,0)"
^XMB(3.9,133,2,1778,0)=" S (RMPRORD,RMPRADDT)="""""
^XMB(3.9,133,2,1779,0)="""RTN"",""RMPRPF1"",54,0)"
^XMB(3.9,133,2,1780,0)=" S RMPRORD=$P($G(^RMPR(660,RMPRDA,10)),U,6)"
^XMB(3.9,133,2,1781,0)="""RTN"",""RMPRPF1"",55,0)"
^XMB(3.9,133,2,1782,0)=" S RMPRPV1(7)=RMPRORD    ; Attending Physician"
^XMB(3.9,133,2,1783,0)="""RTN"",""RMPRPF1"",56,0)"
^XMB(3.9,133,2,1784,0)=" S RMPRADDT=$P(^RMPR(660,RMPRDA,0),U,1)"
^XMB(3.9,133,2,1785,0)="""RTN"",""RMPRPF1"",57,0)"
^XMB(3.9,133,2,1786,0)=" S RMPRPV1(44)=RMPRADDT  ; Admit Date/Time"
^XMB(3.9,133,2,1787,0)="""RTN"",""RMPRPF1"",58,0)"
^XMB(3.9,133,2,1788,0)=" ;"
^XMB(3.9,133,2,1789,0)="""RTN"",""RMPRPF1"",59,0)"
^XMB(3.9,133,2,1790,0)=" ; PV2"
^XMB(3.9,133,2,1791,0)="""RTN"",""RMPRPF1"",60,0)"
^XMB(3.9,133,2,1792,0)=" S RMPRPV2(8)=RMPRADDT   ; Expected Admit Date/Time"
^XMB(3.9,133,2,1793,0)="""RTN"",""RMPRPF1"",61,0)"
^XMB(3.9,133,2,1794,0)=" S RMPREXDT="""""
^XMB(3.9,133,2,1795,0)="""RTN"",""RMPRPF1"",62,0)"
^XMB(3.9,133,2,1796,0)=" S RMPREXDT=$P($G(^RMPR(660,RMPRDA,10)),U,1)"
^XMB(3.9,133,2,1797,0)="""RTN"",""RMPRPF1"",63,0)"
^XMB(3.9,133,2,1798,0)=" S RMPRPV2(46)=$P(RMPREXDT,""."",1) ; Patient Status Effective Date"
^XMB(3.9,133,2,1799,0)="""RTN"",""RMPRPF1"",64,0)"
^XMB(3.9,133,2,1800,0)=" ;"
^XMB(3.9,133,2,1801,0)="""RTN"",""RMPRPF1"",65,0)"
^XMB(3.9,133,2,1802,0)=" ; PR1"
^XMB(3.9,133,2,1803,0)="""RTN"",""RMPRPF1"",66,0)"
^XMB(3.9,133,2,1804,0)=" S RMPRHCPC=$P(^RMPR(660,RMPRDA,1),U,4)    ; PSAS HCPCS"
^XMB(3.9,133,2,1805,0)="""RTN"",""RMPRPF1"",67,0)"
^XMB(3.9,133,2,1806,0)=" S RMPRHCDT=RMPRADDT    ;Event date"
^XMB(3.9,133,2,1807,0)="""RTN"",""RMPRPF1"",68,0)"
^XMB(3.9,133,2,1808,0)=" D PSASHCPC^RMPOPF    ;CSV check; return RMPRVHC and RMPRTHC."
^XMB(3.9,133,2,1809,0)="""RTN"",""RMPRPF1"",69,0)"
^XMB(3.9,133,2,1810,0)=" S RMPRPR1(3)=RMPRVHC    ; Procedure code"
^XMB(3.9,133,2,1811,0)="""RTN"",""RMPRPF1"",70,0)"
^XMB(3.9,133,2,1812,0)=" S RMPRPR1(4)=RMPRTHC    ; PSAS HCPCS text"
^XMB(3.9,133,2,1813,0)="""RTN"",""RMPRPF1"",71,0)"
^XMB(3.9,133,2,1814,0)=" ; Procedure Functional Type - I:Stock Issue; P:Purchasing"
^XMB(3.9,133,2,1815,0)="""RTN"",""RMPRPF1"",72,0)"
^XMB(3.9,133,2,1816,0)=" S RMPRPR1(6)=$S($P(^RMPR(660,RMPRDA,0),U,13)=11:""I"",1:""P"")"
^XMB(3.9,133,2,1817,0)="""RTN"",""RMPRPF1"",73,0)"
^XMB(3.9,133,2,1818,0)=" ;"
^XMB(3.9,133,2,1819,0)="""RTN"",""RMPRPF1"",74,0)"
^XMB(3.9,133,2,1820,0)=" ; DG1 AND ZCL"
^XMB(3.9,133,2,1821,0)="""RTN"",""RMPRPF1"",75,0)"
^XMB(3.9,133,2,1822,0)=" D DG1ZCL^RMPRPF2"
^XMB(3.9,133,2,1823,0)="""RTN"",""RMPRPF1"",76,0)"
^XMB(3.9,133,2,1824,0)=" Q"
^XMB(3.9,133,2,1825,0)="""RTN"",""RMPRPF1"",77,0)"
^XMB(3.9,133,2,1826,0)=" ;"
^XMB(3.9,133,2,1827,0)="""RTN"",""RMPRPF1"",78,0)"
^XMB(3.9,133,2,1828,0)="GETSITE ; Get Patient Location"
^XMB(3.9,133,2,1829,0)="""RTN"",""RMPRPF1"",79,0)"
^XMB(3.9,133,2,1830,0)=" ; requires RMPRSTA=file 4 pointer"
^XMB(3.9,133,2,1831,0)="""RTN"",""RMPRPF1"",80,0)"
^XMB(3.9,133,2,1832,0)=" ; return RMPRHLOC= hospital location or NULL if there is none."
^XMB(3.9,133,2,1833,0)="""RTN"",""RMPRPF1"",81,0)"
^XMB(3.9,133,2,1834,0)=" S RMPRHLOC="""",RMPRSIEN="""""
^XMB(3.9,133,2,1835,0)="""RTN"",""RMPRPF1"",82,0)"
^XMB(3.9,133,2,1836,0)=" F  S RMPRSIEN=$O(^RMPR(669.9,""C"",RMPRSTA,RMPRSIEN)) Q:RMPRSIEN'>0  D"
^XMB(3.9,133,2,1837,0)="""RTN"",""RMPRPF1"",83,0)"
^XMB(3.9,133,2,1838,0)=" .S RMPRHLOC=$P(^RMPR(669.9,RMPRSIEN,""PCE""),U,3)"
^XMB(3.9,133,2,1839,0)="""RTN"",""RMPRPF1"",84,0)"
^XMB(3.9,133,2,1840,0)=" .Q"
^XMB(3.9,133,2,1841,0)="""RTN"",""RMPRPF1"",85,0)"
^XMB(3.9,133,2,1842,0)=" I RMPRHLOC="""" D"
^XMB(3.9,133,2,1843,0)="""RTN"",""RMPRPF1"",86,0)"
^XMB(3.9,133,2,1844,0)=" .S RMPRSIEN=0"
^XMB(3.9,133,2,1845,0)="""RTN"",""RMPRPF1"",87,0)"
^XMB(3.9,133,2,1846,0)=" .F  S RMPRSIEN=$O(^RMPR(669.9,RMPRSIEN)) Q:(RMPRSIEN'>0)!(+RMPRHLOC)  D"
^XMB(3.9,133,2,1847,0)="""RTN"",""RMPRPF1"",88,0)"
^XMB(3.9,133,2,1848,0)=" ..S RMPRHLOC=$P(^RMPR(669.9,RMPRSIEN,""PCE""),U,3)"
^XMB(3.9,133,2,1849,0)="""RTN"",""RMPRPF1"",89,0)"
^XMB(3.9,133,2,1850,0)=" ..Q"
^XMB(3.9,133,2,1851,0)="""RTN"",""RMPRPF1"",90,0)"
^XMB(3.9,133,2,1852,0)=" .Q"
^XMB(3.9,133,2,1853,0)="""RTN"",""RMPRPF1"",91,0)"
^XMB(3.9,133,2,1854,0)=" Q"
^XMB(3.9,133,2,1855,0)="""RTN"",""RMPRPF1"",92,0)"
^XMB(3.9,133,2,1856,0)=" ;"
^XMB(3.9,133,2,1857,0)="""RTN"",""RMPRPF1"",93,0)"
^XMB(3.9,133,2,1858,0)="GETACCT ; Call GETACCT^IBBAPI to send data and get PFSS Account Reference"
^XMB(3.9,133,2,1859,0)="""RTN"",""RMPRPF1"",94,0)"
^XMB(3.9,133,2,1860,0)=" S RMPRARFN=$$GETACCT^IBBAPI(RMPRDFN,RMPRARFN,RMPREVNT,RMPRAPLR,.RMPRPV1,.RMPRPV2,.RMPRPR1,.RMPRDG1,.RMPRZCL,"""","""")"
^XMB(3.9,133,2,1861,0)="""RTN"",""RMPRPF1"",95,0)"
^XMB(3.9,133,2,1862,0)=" Q"
^XMB(3.9,133,2,1863,0)="""RTN"",""RMPRPF1"",96,0)"
^XMB(3.9,133,2,1864,0)=" ;"
^XMB(3.9,133,2,1865,0)="""RTN"",""RMPRPF1"",97,0)"
^XMB(3.9,133,2,1866,0)="STORE ; Store data"
^XMB(3.9,133,2,1867,0)="""RTN"",""RMPRPF1"",98,0)"
^XMB(3.9,133,2,1868,0)=" S (RMPRQTY,RMPRTC)="""""
^XMB(3.9,133,2,1869,0)="""RTN"",""RMPRPF1"",99,0)"
^XMB(3.9,133,2,1870,0)=" S RMPRQTY=$P(^RMPR(660,RMPRDA,0),U,7)   ; QTY"
^XMB(3.9,133,2,1871,0)="""RTN"",""RMPRPF1"",100,0)"
^XMB(3.9,133,2,1872,0)=" S RMPRTC=$P(^RMPR(660,RMPRDA,0),U,16)    ; Total Cost"
^XMB(3.9,133,2,1873,0)="""RTN"",""RMPRPF1"",101,0)"
^XMB(3.9,133,2,1874,0)=" ;"
^XMB(3.9,133,2,1875,0)="""RTN"",""RMPRPF1"",102,0)"
^XMB(3.9,133,2,1876,0)=" L +^RMPR(660,RMPRDA)"
^XMB(3.9,133,2,1877,0)="""RTN"",""RMPRPF1"",103,0)"
^XMB(3.9,133,2,1878,0)=" ; Store 100-PFSS Account Reference; 102-latest PSAS HCPCS; 103-latest QTY; 104-latest Total Cost; "
^XMB(3.9,133,2,1879,0)="""RTN"",""RMPRPF1"",104,0)"
^XMB(3.9,133,2,1880,0)=" ; 105-latest Ordering Provider"
^XMB(3.9,133,2,1881,0)="""RTN"",""RMPRPF1"",105,0)"
^XMB(3.9,133,2,1882,0)=" S DIE=""^RMPR(660,"",DA=RMPRDA"
^XMB(3.9,133,2,1883,0)="""RTN"",""RMPRPF1"",106,0)"
^XMB(3.9,133,2,1884,0)=" S DR=""100////^S X=RMPRARFN;102////^S X=RMPRHCPC;"""
^XMB(3.9,133,2,1885,0)="""RTN"",""RMPRPF1"",107,0)"
^XMB(3.9,133,2,1886,0)=" S DR=DR_""103////^S X=RMPRQTY;104////^S X=RMPRTC;105////^S X=RMPRORD"""
^XMB(3.9,133,2,1887,0)="""RTN"",""RMPRPF1"",108,0)"
^XMB(3.9,133,2,1888,0)=" D ^DIE"
^XMB(3.9,133,2,1889,0)="""RTN"",""RMPRPF1"",109,0)"
^XMB(3.9,133,2,1890,0)=" L -^RMPR(660,RMPRDA)"
^XMB(3.9,133,2,1891,0)="""RTN"",""RMPRPF1"",110,0)"
^XMB(3.9,133,2,1892,0)=" K DA,DIE,DR"
^XMB(3.9,133,2,1893,0)="""RTN"",""RMPRPF1"",111,0)"
^XMB(3.9,133,2,1894,0)=" Q"
^XMB(3.9,133,2,1895,0)="""RTN"",""RMPRPF1"",112,0)"
^XMB(3.9,133,2,1896,0)=" ;"
^XMB(3.9,133,2,1897,0)="""RTN"",""RMPRPF1"",113,0)"
^XMB(3.9,133,2,1898,0)="DELAPD ; Delete the ""APD"" Flag"
^XMB(3.9,133,2,1899,0)="""RTN"",""RMPRPF1"",114,0)"
^XMB(3.9,133,2,1900,0)=" S DIE=""^RMPR(660,"""
^XMB(3.9,133,2,1901,0)="""RTN"",""RMPRPF1"",115,0)"
^XMB(3.9,133,2,1902,0)=" S DA=RMPRDA"
^XMB(3.9,133,2,1903,0)="""RTN"",""RMPRPF1"",116,0)"
^XMB(3.9,133,2,1904,0)=" S DR=""107///@"""
^XMB(3.9,133,2,1905,0)="""RTN"",""RMPRPF1"",117,0)"
^XMB(3.9,133,2,1906,0)=" D ^DIE"
^XMB(3.9,133,2,1907,0)="""RTN"",""RMPRPF1"",118,0)"
^XMB(3.9,133,2,1908,0)=" K DIE,DA,DR"
^XMB(3.9,133,2,1909,0)="""RTN"",""RMPRPF1"",119,0)"
^XMB(3.9,133,2,1910,0)=" Q"
^XMB(3.9,133,2,1911,0)="""RTN"",""RMPRPF1"",120,0)"
^XMB(3.9,133,2,1912,0)=" ;"
^XMB(3.9,133,2,1913,0)="""RTN"",""RMPRPF1"",121,0)"
^XMB(3.9,133,2,1914,0)="DELAPH ; Delete the ""APH"" Flag"
^XMB(3.9,133,2,1915,0)="""RTN"",""RMPRPF1"",122,0)"
^XMB(3.9,133,2,1916,0)=" S DIE=""^RMPR(660,"""
^XMB(3.9,133,2,1917,0)="""RTN"",""RMPRPF1"",123,0)"
^XMB(3.9,133,2,1918,0)=" S DA=RMPRDA"
^XMB(3.9,133,2,1919,0)="""RTN"",""RMPRPF1"",124,0)"
^XMB(3.9,133,2,1920,0)=" S DR=""106///@"""
^XMB(3.9,133,2,1921,0)="""RTN"",""RMPRPF1"",125,0)"
^XMB(3.9,133,2,1922,0)=" D ^DIE"
^XMB(3.9,133,2,1923,0)="""RTN"",""RMPRPF1"",126,0)"
^XMB(3.9,133,2,1924,0)=" K DIE,DA,DR"
^XMB(3.9,133,2,1925,0)="""RTN"",""RMPRPF1"",127,0)"
^XMB(3.9,133,2,1926,0)=" Q"
^XMB(3.9,133,2,1927,0)="""RTN"",""RMPRPF1"",128,0)"
^XMB(3.9,133,2,1928,0)="EXIT ; Exit"
^XMB(3.9,133,2,1929,0)="""RTN"",""RMPRPF1"",129,0)"
^XMB(3.9,133,2,1930,0)=" K OK,RMPREVNT,RMPRARFN,RMPRDFN,RMPRAPLR,RMPRPR1,RMPRSTA"
^XMB(3.9,133,2,1931,0)="""RTN"",""RMPRPF1"",130,0)"
^XMB(3.9,133,2,1932,0)=" K RMPRPV1,RMPRHLOC,RMPRORD,RMPRADDT,RMPRSIEN,RMPRHCPC"
^XMB(3.9,133,2,1933,0)="""RTN"",""RMPRPF1"",131,0)"
^XMB(3.9,133,2,1934,0)=" K RMPRPV2,RMPREXDT,RMPRDG1,RMPRDIAG,RMPRRICP,RMRICPP"
^XMB(3.9,133,2,1935,0)="""RTN"",""RMPRPF1"",132,0)"
^XMB(3.9,133,2,1936,0)=" K RMPRZCL,RMPRNODE,RMPRQTY,RMPRTC,RMPRCPT,RMPRSWDT"
^XMB(3.9,133,2,1937,0)="""RTN"",""RMPRPF1"",133,0)"
^XMB(3.9,133,2,1938,0)=" Q"
^XMB(3.9,133,2,1939,0)="""RTN"",""RMPRPF2"")"
^XMB(3.9,133,2,1940,0)="0^6^B28817815"
^XMB(3.9,133,2,1941,0)="""RTN"",""RMPRPF2"",1,0)"
^XMB(3.9,133,2,1942,0)="RMPRPF2 ;HOIFO/TH,DDA - PFSS CHARGE ;8/18/05"
^XMB(3.9,133,2,1943,0)="""RTN"",""RMPRPF2"",2,0)"
^XMB(3.9,133,2,1944,0)=" ;;3.0;PROSTHETICS;**98**;Feb 09, 1996"
^XMB(3.9,133,2,1945,0)="""RTN"",""RMPRPF2"",3,0)"
^XMB(3.9,133,2,1946,0)=" ;"
^XMB(3.9,133,2,1947,0)="""RTN"",""RMPRPF2"",4,0)"
^XMB(3.9,133,2,1948,0)=" ; This routine gets and stores a PFSS Charge ID, send charge message "
^XMB(3.9,133,2,1949,0)="""RTN"",""RMPRPF2"",5,0)"
^XMB(3.9,133,2,1950,0)=" ; and updated charge to IBB."
^XMB(3.9,133,2,1951,0)="""RTN"",""RMPRPF2"",6,0)"
^XMB(3.9,133,2,1952,0)=" ;"
^XMB(3.9,133,2,1953,0)="""RTN"",""RMPRPF2"",7,0)"
^XMB(3.9,133,2,1954,0)=" ;  DBIA # 4665 for GETCHGID^IBBAPI and CHARGE^IBBAPI"
^XMB(3.9,133,2,1955,0)="""RTN"",""RMPRPF2"",8,0)"
^XMB(3.9,133,2,1956,0)=" Q"
^XMB(3.9,133,2,1957,0)="""RTN"",""RMPRPF2"",9,0)"
^XMB(3.9,133,2,1958,0)=" ;"
^XMB(3.9,133,2,1959,0)="""RTN"",""RMPRPF2"",10,0)"
^XMB(3.9,133,2,1960,0)="EN ; Entry Point"
^XMB(3.9,133,2,1961,0)="""RTN"",""RMPRPF2"",11,0)"
^XMB(3.9,133,2,1962,0)=" ; Quit if no Delivery Date"
^XMB(3.9,133,2,1963,0)="""RTN"",""RMPRPF2"",12,0)"
^XMB(3.9,133,2,1964,0)=" I $P(^RMPR(660,RMPRDA,0),U,12)="""" D DELAPD^RMPRPF1 Q"
^XMB(3.9,133,2,1965,0)="""RTN"",""RMPRPF2"",13,0)"
^XMB(3.9,133,2,1966,0)=" ; If no PFSS Account Reference, then attempt to get one"
^XMB(3.9,133,2,1967,0)="""RTN"",""RMPRPF2"",14,0)"
^XMB(3.9,133,2,1968,0)=" I $P(^RMPR(660,RMPRDA,""PFSS""),U,1)="""" D"
^XMB(3.9,133,2,1969,0)="""RTN"",""RMPRPF2"",15,0)"
^XMB(3.9,133,2,1970,0)=" . S RMPRSWDT=$P($$SWSTAT^IBBAPI(),""^"",2)"
^XMB(3.9,133,2,1971,0)="""RTN"",""RMPRPF2"",16,0)"
^XMB(3.9,133,2,1972,0)=" . ; quit if Delivery Date is not after PFSS Switch On date."
^XMB(3.9,133,2,1973,0)="""RTN"",""RMPRPF2"",17,0)"
^XMB(3.9,133,2,1974,0)=" . Q:$P(^RMPR(660,RMPRDA,0),""^"",12)<RMPRSWDT"
^XMB(3.9,133,2,1975,0)="""RTN"",""RMPRPF2"",18,0)"
^XMB(3.9,133,2,1976,0)=" . D EN2^RMPRPF1"
^XMB(3.9,133,2,1977,0)="""RTN"",""RMPRPF2"",19,0)"
^XMB(3.9,133,2,1978,0)=" . Q"
^XMB(3.9,133,2,1979,0)="""RTN"",""RMPRPF2"",20,0)"
^XMB(3.9,133,2,1980,0)=" ; If still no PFSS Account Reference, then record is not valid for PFSS- QUIT"
^XMB(3.9,133,2,1981,0)="""RTN"",""RMPRPF2"",21,0)"
^XMB(3.9,133,2,1982,0)=" I $P(^RMPR(660,RMPRDA,""PFSS""),U,1)="""" D DELAPD^RMPRPF1 Q"
^XMB(3.9,133,2,1983,0)="""RTN"",""RMPRPF2"",22,0)"
^XMB(3.9,133,2,1984,0)=" ;"
^XMB(3.9,133,2,1985,0)="""RTN"",""RMPRPF2"",23,0)"
^XMB(3.9,133,2,1986,0)=" S RMPRFLAG=1"
^XMB(3.9,133,2,1987,0)="""RTN"",""RMPRPF2"",24,0)"
^XMB(3.9,133,2,1988,0)=" ; After Charge Msg sent (Charge ID exists); kill APD x-ref "
^XMB(3.9,133,2,1989,0)="""RTN"",""RMPRPF2"",25,0)"
^XMB(3.9,133,2,1990,0)=" ;     if PSAS HCPCS did not get updated AND"
^XMB(3.9,133,2,1991,0)="""RTN"",""RMPRPF2"",26,0)"
^XMB(3.9,133,2,1992,0)=" ;     if QTY did not get updated AND "
^XMB(3.9,133,2,1993,0)="""RTN"",""RMPRPF2"",27,0)"
^XMB(3.9,133,2,1994,0)=" ;     if Total Cost did not get updated AND"
^XMB(3.9,133,2,1995,0)="""RTN"",""RMPRPF2"",28,0)"
^XMB(3.9,133,2,1996,0)=" ;     if Ordering Provider did not get updated."
^XMB(3.9,133,2,1997,0)="""RTN"",""RMPRPF2"",29,0)"
^XMB(3.9,133,2,1998,0)=" I $P(^RMPR(660,RMPRDA,""PFSS""),U,2)'="""" D"
^XMB(3.9,133,2,1999,0)="""RTN"",""RMPRPF2"",30,0)"
^XMB(3.9,133,2,2000,0)=" . I $P($G(^RMPR(660,RMPRDA,1)),U,4)=$P($G(^RMPR(660,RMPRDA,""PFSS"")),U,3) S RMPRFLAG=0   ; PSAS HCPCS"
^XMB(3.9,133,2,2001,0)="""RTN"",""RMPRPF2"",31,0)"
^XMB(3.9,133,2,2002,0)=" . E  S RMPRFLAG=1 Q"
^XMB(3.9,133,2,2003,0)="""RTN"",""RMPRPF2"",32,0)"
^XMB(3.9,133,2,2004,0)=" . I $P(^RMPR(660,RMPRDA,0),U,7)=$P($G(^RMPR(660,RMPRDA,""PFSS"")),U,4) S RMPRFLAG=0   ; QTY"
^XMB(3.9,133,2,2005,0)="""RTN"",""RMPRPF2"",33,0)"
^XMB(3.9,133,2,2006,0)=" . E  S RMPRFLAG=1 Q"
^XMB(3.9,133,2,2007,0)="""RTN"",""RMPRPF2"",34,0)"
^XMB(3.9,133,2,2008,0)=" . I $P(^RMPR(660,RMPRDA,0),U,16)=$P($G(^RMPR(660,RMPRDA,""PFSS"")),U,5) S RMPRFLAG=0  ; Total Cost"
^XMB(3.9,133,2,2009,0)="""RTN"",""RMPRPF2"",35,0)"
^XMB(3.9,133,2,2010,0)=" . E  S RMPRFLAG=1 Q"
^XMB(3.9,133,2,2011,0)="""RTN"",""RMPRPF2"",36,0)"
^XMB(3.9,133,2,2012,0)=" . I $P($G(^RMPR(660,RMPRDA,10)),U,6)=$P($G(^RMPR(660,RMPRDA,""PFSS"")),U,6) S RMPRFLAG=0  ; Ordering Provider"
^XMB(3.9,133,2,2013,0)="""RTN"",""RMPRPF2"",37,0)"
^XMB(3.9,133,2,2014,0)=" . E  S RMPRFLAG=1 Q"
^XMB(3.9,133,2,2015,0)="""RTN"",""RMPRPF2"",38,0)"
^XMB(3.9,133,2,2016,0)=" I RMPRFLAG=0 D DELAPD^RMPRPF1"
^XMB(3.9,133,2,2017,0)="""RTN"",""RMPRPF2"",39,0)"
^XMB(3.9,133,2,2018,0)=" ; "
^XMB(3.9,133,2,2019,0)="""RTN"",""RMPRPF2"",40,0)"
^XMB(3.9,133,2,2020,0)=" ; Quit if QTY=0 or null"
^XMB(3.9,133,2,2021,0)="""RTN"",""RMPRPF2"",41,0)"
^XMB(3.9,133,2,2022,0)=" S (RMPRQTY,RMPRTC)=0"
^XMB(3.9,133,2,2023,0)="""RTN"",""RMPRPF2"",42,0)"
^XMB(3.9,133,2,2024,0)=" S RMPRQTY=$P(^RMPR(660,RMPRDA,0),U,7)"
^XMB(3.9,133,2,2025,0)="""RTN"",""RMPRPF2"",43,0)"
^XMB(3.9,133,2,2026,0)=" I RMPRQTY=0!(RMPRQTY="""") D DELAPD^RMPRPF1 Q"
^XMB(3.9,133,2,2027,0)="""RTN"",""RMPRPF2"",44,0)"
^XMB(3.9,133,2,2028,0)=" ; Quit if Total Cost=0 or null"
^XMB(3.9,133,2,2029,0)="""RTN"",""RMPRPF2"",45,0)"
^XMB(3.9,133,2,2030,0)=" S RMPRTC=$P(^RMPR(660,RMPRDA,0),U,16)"
^XMB(3.9,133,2,2031,0)="""RTN"",""RMPRPF2"",46,0)"
^XMB(3.9,133,2,2032,0)=" I RMPRTC=0!(RMPRTC="""") D DELAPD^RMPRPF1 Q"
^XMB(3.9,133,2,2033,0)="""RTN"",""RMPRPF2"",47,0)"
^XMB(3.9,133,2,2034,0)=" ;"
^XMB(3.9,133,2,2035,0)="""RTN"",""RMPRPF2"",48,0)"
^XMB(3.9,133,2,2036,0)=" I RMPRFLAG=1 D"
^XMB(3.9,133,2,2037,0)="""RTN"",""RMPRPF2"",49,0)"
^XMB(3.9,133,2,2038,0)=" . ; Check if PFSS Charge ID exists"
^XMB(3.9,133,2,2039,0)="""RTN"",""RMPRPF2"",50,0)"
^XMB(3.9,133,2,2040,0)=" . I $P($G(^RMPR(660,RMPRDA,""PFSS"")),U,2)="""" D GETUCID,STORE"
^XMB(3.9,133,2,2041,0)="""RTN"",""RMPRPF2"",51,0)"
^XMB(3.9,133,2,2042,0)=" . ; Get charge data"
^XMB(3.9,133,2,2043,0)="""RTN"",""RMPRPF2"",52,0)"
^XMB(3.9,133,2,2044,0)=" . D GETDATA"
^XMB(3.9,133,2,2045,0)="""RTN"",""RMPRPF2"",53,0)"
^XMB(3.9,133,2,2046,0)=" . ; Send charge data to IBB"
^XMB(3.9,133,2,2047,0)="""RTN"",""RMPRPF2"",54,0)"
^XMB(3.9,133,2,2048,0)=" . D SENDCHRG"
^XMB(3.9,133,2,2049,0)="""RTN"",""RMPRPF2"",55,0)"
^XMB(3.9,133,2,2050,0)=" . ; If charge msg was sent successfully, "
^XMB(3.9,133,2,2051,0)="""RTN"",""RMPRPF2"",56,0)"
^XMB(3.9,133,2,2052,0)=" . ; Update latest PSAS HCPCS, QTY, Total Cost, and Ordering Provider"
^XMB(3.9,133,2,2053,0)="""RTN"",""RMPRPF2"",57,0)"
^XMB(3.9,133,2,2054,0)=" . ; then kill the x-ref"
^XMB(3.9,133,2,2055,0)="""RTN"",""RMPRPF2"",58,0)"
^XMB(3.9,133,2,2056,0)=" . I RMPRCHRG'=0 D UPDATE D DELAPD^RMPRPF1"
^XMB(3.9,133,2,2057,0)="""RTN"",""RMPRPF2"",59,0)"
^XMB(3.9,133,2,2058,0)=" D EXIT"
^XMB(3.9,133,2,2059,0)="""RTN"",""RMPRPF2"",60,0)"
^XMB(3.9,133,2,2060,0)=" Q"
^XMB(3.9,133,2,2061,0)="""RTN"",""RMPRPF2"",61,0)"
^XMB(3.9,133,2,2062,0)=" ;"
^XMB(3.9,133,2,2063,0)="""RTN"",""RMPRPF2"",62,0)"
^XMB(3.9,133,2,2064,0)="GETUCID ; Obtain PFSS Charge ID"
^XMB(3.9,133,2,2065,0)="""RTN"",""RMPRPF2"",63,0)"
^XMB(3.9,133,2,2066,0)=" S RMPRUCID="""""
^XMB(3.9,133,2,2067,0)="""RTN"",""RMPRPF2"",64,0)"
^XMB(3.9,133,2,2068,0)=" S RMPRUCID=$$GETCHGID^IBBAPI()"
^XMB(3.9,133,2,2069,0)="""RTN"",""RMPRPF2"",65,0)"
^XMB(3.9,133,2,2070,0)=" Q"
^XMB(3.9,133,2,2071,0)="""RTN"",""RMPRPF2"",66,0)"
^XMB(3.9,133,2,2072,0)=" ;"
^XMB(3.9,133,2,2073,0)="""RTN"",""RMPRPF2"",67,0)"
^XMB(3.9,133,2,2074,0)="STORE ; Store PFSS Charge ID"
^XMB(3.9,133,2,2075,0)="""RTN"",""RMPRPF2"",68,0)"
^XMB(3.9,133,2,2076,0)=" L +^RMPR(660,RMPRDA)"
^XMB(3.9,133,2,2077,0)="""RTN"",""RMPRPF2"",69,0)"
^XMB(3.9,133,2,2078,0)=" S DIE=""^RMPR(660,"",DA=RMPRDA"
^XMB(3.9,133,2,2079,0)="""RTN"",""RMPRPF2"",70,0)"
^XMB(3.9,133,2,2080,0)=" S DR=""101////^S X=RMPRUCID"" D ^DIE"
^XMB(3.9,133,2,2081,0)="""RTN"",""RMPRPF2"",71,0)"
^XMB(3.9,133,2,2082,0)=" L -^RMPR(660,RMPRDA)"
^XMB(3.9,133,2,2083,0)="""RTN"",""RMPRPF2"",72,0)"
^XMB(3.9,133,2,2084,0)=" K DA,DIE,DR"
^XMB(3.9,133,2,2085,0)="""RTN"",""RMPRPF2"",73,0)"
^XMB(3.9,133,2,2086,0)=" Q"
^XMB(3.9,133,2,2087,0)="""RTN"",""RMPRPF2"",74,0)"
^XMB(3.9,133,2,2088,0)=" ;"
^XMB(3.9,133,2,2089,0)="""RTN"",""RMPRPF2"",75,0)"
^XMB(3.9,133,2,2090,0)="GETDATA ; Get Charge Data"
^XMB(3.9,133,2,2091,0)="""RTN"",""RMPRPF2"",76,0)"
^XMB(3.9,133,2,2092,0)=" S RMPRDFN=$P(^RMPR(660,RMPRDA,0),U,2)           ; Patient ID"
^XMB(3.9,133,2,2093,0)="""RTN"",""RMPRPF2"",77,0)"
^XMB(3.9,133,2,2094,0)=" S RMPRARFN=$P($G(^RMPR(660,RMPRDA,""PFSS"")),U,1)     ; PFSS Acct Ref"
^XMB(3.9,133,2,2095,0)="""RTN"",""RMPRPF2"",78,0)"
^XMB(3.9,133,2,2096,0)=" S RMPRTYPE=""CG"" ; Charge Type = Debit"
^XMB(3.9,133,2,2097,0)="""RTN"",""RMPRPF2"",79,0)"
^XMB(3.9,133,2,2098,0)=" S RMPRUCID=$P($G(^RMPR(660,RMPRDA,""PFSS"")),U,2)     ; PFSS Charge ID"
^XMB(3.9,133,2,2099,0)="""RTN"",""RMPRPF2"",80,0)"
^XMB(3.9,133,2,2100,0)=" ;"
^XMB(3.9,133,2,2101,0)="""RTN"",""RMPRPF2"",81,0)"
^XMB(3.9,133,2,2102,0)=" ; FT1"
^XMB(3.9,133,2,2103,0)="""RTN"",""RMPRPF2"",82,0)"
^XMB(3.9,133,2,2104,0)=" S RMPRDEL=$P(^RMPR(660,RMPRDA,0),U,12)"
^XMB(3.9,133,2,2105,0)="""RTN"",""RMPRPF2"",83,0)"
^XMB(3.9,133,2,2106,0)=" S RMPRFT1(4)=RMPRDEL      ; Delivery Date"
^XMB(3.9,133,2,2107,0)="""RTN"",""RMPRPF2"",84,0)"
^XMB(3.9,133,2,2108,0)=" S RMPRFT1(10)=RMPRQTY    ; Transaction Quantity"
^XMB(3.9,133,2,2109,0)="""RTN"",""RMPRPF2"",85,0)"
^XMB(3.9,133,2,2110,0)=" S RMPRFT1(13)=423               ; Department Code"
^XMB(3.9,133,2,2111,0)="""RTN"",""RMPRPF2"",86,0)"
^XMB(3.9,133,2,2112,0)=" ; Ordering Provider/Ordered by Code"
^XMB(3.9,133,2,2113,0)="""RTN"",""RMPRPF2"",87,0)"
^XMB(3.9,133,2,2114,0)=" S RMPRORD=$P($G(^RMPR(660,RMPRDA,10)),U,6)"
^XMB(3.9,133,2,2115,0)="""RTN"",""RMPRPF2"",88,0)"
^XMB(3.9,133,2,2116,0)=" S RMPRFT1(21)=RMPRORD"
^XMB(3.9,133,2,2117,0)="""RTN"",""RMPRPF2"",89,0)"
^XMB(3.9,133,2,2118,0)=" ; Unit Cost = Total Cost/QTY"
^XMB(3.9,133,2,2119,0)="""RTN"",""RMPRPF2"",90,0)"
^XMB(3.9,133,2,2120,0)=" S RMPRFT1(22)=RMPRTC/RMPRQTY"
^XMB(3.9,133,2,2121,0)="""RTN"",""RMPRPF2"",91,0)"
^XMB(3.9,133,2,2122,0)=" ;"
^XMB(3.9,133,2,2123,0)="""RTN"",""RMPRPF2"",92,0)"
^XMB(3.9,133,2,2124,0)=" ; PR1"
^XMB(3.9,133,2,2125,0)="""RTN"",""RMPRPF2"",93,0)"
^XMB(3.9,133,2,2126,0)=" S RMPRHCPC=$P($G(^RMPR(660,RMPRDA,1)),""^"",4)"
^XMB(3.9,133,2,2127,0)="""RTN"",""RMPRPF2"",94,0)"
^XMB(3.9,133,2,2128,0)=" S RMPRHCDT=$P(^RMPR(660,RMPRDA,0),""^"")"
^XMB(3.9,133,2,2129,0)="""RTN"",""RMPRPF2"",95,0)"
^XMB(3.9,133,2,2130,0)=" D PSASHCPC^RMPOPF"
^XMB(3.9,133,2,2131,0)="""RTN"",""RMPRPF2"",96,0)"
^XMB(3.9,133,2,2132,0)=" S RMPRPR1(3)=RMPRVHC   ; Procedure Code"
^XMB(3.9,133,2,2133,0)="""RTN"",""RMPRPF2"",97,0)"
^XMB(3.9,133,2,2134,0)=" S RMPRPR1(4)=RMPRTHC   ; PSAS HCPCS text"
^XMB(3.9,133,2,2135,0)="""RTN"",""RMPRPF2"",98,0)"
^XMB(3.9,133,2,2136,0)=" ; Procedure Functional Type - I:Stock Issue;P:Purchasing"
^XMB(3.9,133,2,2137,0)="""RTN"",""RMPRPF2"",99,0)"
^XMB(3.9,133,2,2138,0)=" S RMPRPFT="""",RMPRPFT=$S($P(^RMPR(660,RMPRDA,0),U,13)=11:""I"",1:""P"")"
^XMB(3.9,133,2,2139,0)="""RTN"",""RMPRPF2"",100,0)"
^XMB(3.9,133,2,2140,0)=" S RMPRPR1(6)=RMPRPFT"
^XMB(3.9,133,2,2141,0)="""RTN"",""RMPRPF2"",101,0)"
^XMB(3.9,133,2,2142,0)=" ;"
^XMB(3.9,133,2,2143,0)="""RTN"",""RMPRPF2"",102,0)"
^XMB(3.9,133,2,2144,0)=" ; PROS"
^XMB(3.9,133,2,2145,0)="""RTN"",""RMPRPF2"",103,0)"
^XMB(3.9,133,2,2146,0)=" S (RMPRVNDR,RMPROBL)="""""
^XMB(3.9,133,2,2147,0)="""RTN"",""RMPRPF2"",104,0)"
^XMB(3.9,133,2,2148,0)=" S RMPRVNDR=$P(^RMPR(660,RMPRDA,0),U,9)"
^XMB(3.9,133,2,2149,0)="""RTN"",""RMPRPF2"",105,0)"
^XMB(3.9,133,2,2150,0)=" S RMPRPROS(1)=RMPRVNDR       ; Vendor"
^XMB(3.9,133,2,2151,0)="""RTN"",""RMPRPF2"",106,0)"
^XMB(3.9,133,2,2152,0)=" S RMPROBL=$E($P($G(^RMPR(660,RMPRDA,1)),U,1),1,30)"
^XMB(3.9,133,2,2153,0)="""RTN"",""RMPRPF2"",107,0)"
^XMB(3.9,133,2,2154,0)=" S RMPRPROS(2)=RMPROBL         ; OBL#"
^XMB(3.9,133,2,2155,0)="""RTN"",""RMPRPF2"",108,0)"
^XMB(3.9,133,2,2156,0)=" ;"
^XMB(3.9,133,2,2157,0)="""RTN"",""RMPRPF2"",109,0)"
^XMB(3.9,133,2,2158,0)="DG1ZCL ; SET UP DATA FOR DG1 AND ZCL"
^XMB(3.9,133,2,2159,0)="""RTN"",""RMPRPF2"",110,0)"
^XMB(3.9,133,2,2160,0)=" S RMPRBA1=$G(^RMPR(660,RMPRDA,""BA1""))"
^XMB(3.9,133,2,2161,0)="""RTN"",""RMPRPF2"",111,0)"
^XMB(3.9,133,2,2162,0)=" S RMPRBA2=$G(^RMPR(660,RMPRDA,""BA2""))"
^XMB(3.9,133,2,2163,0)="""RTN"",""RMPRPF2"",112,0)"
^XMB(3.9,133,2,2164,0)=" S RMPRBA3=$G(^RMPR(660,RMPRDA,""BA3""))"
^XMB(3.9,133,2,2165,0)="""RTN"",""RMPRPF2"",113,0)"
^XMB(3.9,133,2,2166,0)=" S RMPRBA4=$G(^RMPR(660,RMPRDA,""BA4""))"
^XMB(3.9,133,2,2167,0)="""RTN"",""RMPRPF2"",114,0)"
^XMB(3.9,133,2,2168,0)=" S RMPRDIAG=$P($G(^RMPR(660,RMPRDA,10)),""^"",8)"
^XMB(3.9,133,2,2169,0)="""RTN"",""RMPRPF2"",115,0)"
^XMB(3.9,133,2,2170,0)=" S RMPRICDT=$P(^RMPR(660,RMPRDA,0),""^"")"
^XMB(3.9,133,2,2171,0)="""RTN"",""RMPRPF2"",116,0)"
^XMB(3.9,133,2,2172,0)=" F I=1:1:4 D"
^XMB(3.9,133,2,2173,0)="""RTN"",""RMPRPF2"",117,0)"
^XMB(3.9,133,2,2174,0)=" .; DG1"
^XMB(3.9,133,2,2175,0)="""RTN"",""RMPRPF2"",118,0)"
^XMB(3.9,133,2,2176,0)=" .;CSV CHECK"
^XMB(3.9,133,2,2177,0)="""RTN"",""RMPRPF2"",119,0)"
^XMB(3.9,133,2,2178,0)=" .S RMPRDRG=$P(@(""RMPRBA""_I),""^"")"
^XMB(3.9,133,2,2179,0)="""RTN"",""RMPRPF2"",120,0)"
^XMB(3.9,133,2,2180,0)=" .S:+RMPRDRG RMPRDRG=$$STATCHK^ICDAPIU($P($G(^ICD9(RMPRDRG,0)),""^""),RMPRICDT)"
^XMB(3.9,133,2,2181,0)="""RTN"",""RMPRPF2"",121,0)"
^XMB(3.9,133,2,2182,0)=" .Q:+RMPRDRG=0"
^XMB(3.9,133,2,2183,0)="""RTN"",""RMPRPF2"",122,0)"
^XMB(3.9,133,2,2184,0)=" .S RMPRDG1(I,3)=$P(RMPRDRG,""^"",2) ; Diagnosis Code"
^XMB(3.9,133,2,2185,0)="""RTN"",""RMPRPF2"",123,0)"
^XMB(3.9,133,2,2186,0)=" .S RMPRDG1(I,6)=""F""      ; Diagnosis Type"
^XMB(3.9,133,2,2187,0)="""RTN"",""RMPRPF2"",124,0)"
^XMB(3.9,133,2,2188,0)=" .;"
^XMB(3.9,133,2,2189,0)="""RTN"",""RMPRPF2"",125,0)"
^XMB(3.9,133,2,2190,0)=" .; ZCL"
^XMB(3.9,133,2,2191,0)="""RTN"",""RMPRPF2"",126,0)"
^XMB(3.9,133,2,2192,0)=" .F J=2:1:8 I $P(@(""RMPRBA""_I),""^"",J)'="""" D"
^XMB(3.9,133,2,2193,0)="""RTN"",""RMPRPF2"",127,0)"
^XMB(3.9,133,2,2194,0)=" ..; Set type and value.  Overwrite null and zero values"
^XMB(3.9,133,2,2195,0)="""RTN"",""RMPRPF2"",128,0)"
^XMB(3.9,133,2,2196,0)=" ..S:+$G(RMPRZCL(J-1,3))=0 RMPRZCL(J-1,2)=J-1,RMPRZCL(J-1,3)=$P(@(""RMPRBA""_I),""^"",J)"
^XMB(3.9,133,2,2197,0)="""RTN"",""RMPRPF2"",129,0)"
^XMB(3.9,133,2,2198,0)=" ..Q"
^XMB(3.9,133,2,2199,0)="""RTN"",""RMPRPF2"",130,0)"
^XMB(3.9,133,2,2200,0)=" .Q"
^XMB(3.9,133,2,2201,0)="""RTN"",""RMPRPF2"",131,0)"
^XMB(3.9,133,2,2202,0)=" ; IF NO CONSULT DIAG, USE PROSTHETICS ONE"
^XMB(3.9,133,2,2203,0)="""RTN"",""RMPRPF2"",132,0)"
^XMB(3.9,133,2,2204,0)=" I $G(RMPRDG1(1,3))="""" D"
^XMB(3.9,133,2,2205,0)="""RTN"",""RMPRPF2"",133,0)"
^XMB(3.9,133,2,2206,0)=" .S RMPRDRG=$$STATCHK^ICDAPIU($P($G(^ICD9(RMPRDIAG,0)),""^""),RMPRICDT)"
^XMB(3.9,133,2,2207,0)="""RTN"",""RMPRPF2"",134,0)"
^XMB(3.9,133,2,2208,0)=" .Q:+RMPRDRG=0"
^XMB(3.9,133,2,2209,0)="""RTN"",""RMPRPF2"",135,0)"
^XMB(3.9,133,2,2210,0)=" .S RMPRDG1(1,3)=$P(RMPRDRG,""^"",2),RMPRDG1(1,6)=""F"""
^XMB(3.9,133,2,2211,0)="""RTN"",""RMPRPF2"",136,0)"
^XMB(3.9,133,2,2212,0)=" .Q"
^XMB(3.9,133,2,2213,0)="""RTN"",""RMPRPF2"",137,0)"
^XMB(3.9,133,2,2214,0)=" Q"
^XMB(3.9,133,2,2215,0)="""RTN"",""RMPRPF2"",138,0)"
^XMB(3.9,133,2,2216,0)=" ;"
^XMB(3.9,133,2,2217,0)="""RTN"",""RMPRPF2"",139,0)"
^XMB(3.9,133,2,2218,0)="SENDCHRG ; Send Charge Data"
^XMB(3.9,133,2,2219,0)="""RTN"",""RMPRPF2"",140,0)"
^XMB(3.9,133,2,2220,0)=" S RMPRCHRG="""""
^XMB(3.9,133,2,2221,0)="""RTN"",""RMPRPF2"",141,0)"
^XMB(3.9,133,2,2222,0)=" S RMPRCHRG=$$CHARGE^IBBAPI(RMPRDFN,RMPRARFN,RMPRTYPE,RMPRUCID,.RMPRFT1,.RMPRPR1,.RMPRDG1,.RMPRZCL,"""","""",.RMPRPROS)"
^XMB(3.9,133,2,2223,0)="""RTN"",""RMPRPF2"",142,0)"
^XMB(3.9,133,2,2224,0)=" Q"
^XMB(3.9,133,2,2225,0)="""RTN"",""RMPRPF2"",143,0)"
^XMB(3.9,133,2,2226,0)=" ;"
^XMB(3.9,133,2,2227,0)="""RTN"",""RMPRPF2"",144,0)"
^XMB(3.9,133,2,2228,0)="UPDATE ; Update latest fields"
^XMB(3.9,133,2,2229,0)="""RTN"",""RMPRPF2"",145,0)"
^XMB(3.9,133,2,2230,0)=" L +^RMPR(660,RMPRDA)"
^XMB(3.9,133,2,2231,0)="""RTN"",""RMPRPF2"",146,0)"
^XMB(3.9,133,2,2232,0)=" ; Store updates 102-latest PSAS HCPCS; 103-latest QTY; 104-latest Total Cost; "
^XMB(3.9,133,2,2233,0)="""RTN"",""RMPRPF2"",147,0)"
^XMB(3.9,133,2,2234,0)=" ; 105-latest Ordering Provider"
^XMB(3.9,133,2,2235,0)="""RTN"",""RMPRPF2"",148,0)"
^XMB(3.9,133,2,2236,0)=" S DIE=""^RMPR(660,"",DA=RMPRDA"
^XMB(3.9,133,2,2237,0)="""RTN"",""RMPRPF2"",149,0)"
^XMB(3.9,133,2,2238,0)=" S DR=""102////^S X=RMPRHCPC;103////^S X=RMPRQTY;104////^S X=RMPRTC;"""
^XMB(3.9,133,2,2239,0)="""RTN"",""RMPRPF2"",150,0)"
^XMB(3.9,133,2,2240,0)=" S DR=DR_""105////^S X=RMPRORD"""
^XMB(3.9,133,2,2241,0)="""RTN"",""RMPRPF2"",151,0)"
^XMB(3.9,133,2,2242,0)=" D ^DIE"
^XMB(3.9,133,2,2243,0)="""RTN"",""RMPRPF2"",152,0)"
^XMB(3.9,133,2,2244,0)=" L -^RMPR(660,RMPRDA)"
^XMB(3.9,133,2,2245,0)="""RTN"",""RMPRPF2"",153,0)"
^XMB(3.9,133,2,2246,0)=" K DA,DIE,DR"
^XMB(3.9,133,2,2247,0)="""RTN"",""RMPRPF2"",154,0)"
^XMB(3.9,133,2,2248,0)=" Q"
^XMB(3.9,133,2,2249,0)="""RTN"",""RMPRPF2"",155,0)"
^XMB(3.9,133,2,2250,0)=" ;"
^XMB(3.9,133,2,2251,0)="""RTN"",""RMPRPF2"",156,0)"
^XMB(3.9,133,2,2252,0)="EXIT ; Common exit point"
^XMB(3.9,133,2,2253,0)="""RTN"",""RMPRPF2"",157,0)"
^XMB(3.9,133,2,2254,0)=" K RMPRFLAG,RMPRQTY,RMPRTC,RMPRCHRG,RMPRUCID,RMPRDFN"
^XMB(3.9,133,2,2255,0)="""RTN"",""RMPRPF2"",158,0)"
^XMB(3.9,133,2,2256,0)=" K RMPRARFN,RMPRTYPE,RMPRFT1,RMPRPR1,RMPRCPT,RMPRRICP"
^XMB(3.9,133,2,2257,0)="""RTN"",""RMPRPF2"",159,0)"
^XMB(3.9,133,2,2258,0)=" K RMPRDG1,RMPRDIAG,RMPRZCL,RMPRNODE,RMPRPROS,RMPRHCPC"
^XMB(3.9,133,2,2259,0)="""RTN"",""RMPRPF2"",160,0)"
^XMB(3.9,133,2,2260,0)=" K RMRICPP,RMPRCPT"
^XMB(3.9,133,2,2261,0)="""RTN"",""RMPRPF2"",161,0)"
^XMB(3.9,133,2,2262,0)=" Q"
^XMB(3.9,133,2,2263,0)="""RTN"",""RMPRPF3"")"
^XMB(3.9,133,2,2264,0)="0^7^B8566306"
^XMB(3.9,133,2,2265,0)="""RTN"",""RMPRPF3"",1,0)"
^XMB(3.9,133,2,2266,0)="RMPRPF3 ;HOIFO/TH,DDA - PFSS Charge Cancel (credit) ;8/18/05"
^XMB(3.9,133,2,2267,0)="""RTN"",""RMPRPF3"",2,0)"
^XMB(3.9,133,2,2268,0)=" ;;3.0;PROSTHETICS;**98**;Feb 09, 1996"
^XMB(3.9,133,2,2269,0)="""RTN"",""RMPRPF3"",3,0)"
^XMB(3.9,133,2,2270,0)=" ;"
^XMB(3.9,133,2,2271,0)="""RTN"",""RMPRPF3"",4,0)"
^XMB(3.9,133,2,2272,0)=" ; This routine sends ""Credit"" Charge Message to IBB if .01 field got deleted in file 660"
^XMB(3.9,133,2,2273,0)="""RTN"",""RMPRPF3"",5,0)"
^XMB(3.9,133,2,2274,0)=" ;  or if the PSAS HCPCS code is deleted (equals null after user edit)."
^XMB(3.9,133,2,2275,0)="""RTN"",""RMPRPF3"",6,0)"
^XMB(3.9,133,2,2276,0)=" ; "
^XMB(3.9,133,2,2277,0)="""RTN"",""RMPRPF3"",7,0)"
^XMB(3.9,133,2,2278,0)=" ; DBIA # 4663 for SWSTAT^IBBAPI"
^XMB(3.9,133,2,2279,0)="""RTN"",""RMPRPF3"",8,0)"
^XMB(3.9,133,2,2280,0)=" ; DBIA # 4665 for CHARGE^IBBAPI"
^XMB(3.9,133,2,2281,0)="""RTN"",""RMPRPF3"",9,0)"
^XMB(3.9,133,2,2282,0)=" Q"
^XMB(3.9,133,2,2283,0)="""RTN"",""RMPRPF3"",10,0)"
^XMB(3.9,133,2,2284,0)=" ;"
^XMB(3.9,133,2,2285,0)="""RTN"",""RMPRPF3"",11,0)"
^XMB(3.9,133,2,2286,0)="CHRGTASK ; FILE #660, ENTRY DATE AND PSAS HCPCS FIELDS MUMPS XREF"
^XMB(3.9,133,2,2287,0)="""RTN"",""RMPRPF3"",12,0)"
^XMB(3.9,133,2,2288,0)=" ;KILL LOGIC."
^XMB(3.9,133,2,2289,0)="""RTN"",""RMPRPF3"",13,0)"
^XMB(3.9,133,2,2290,0)=" ; TASKMAN LOAD A ONE TIME TASKMAN TASK."
^XMB(3.9,133,2,2291,0)="""RTN"",""RMPRPF3"",14,0)"
^XMB(3.9,133,2,2292,0)=" ; QUIT IF PFSS SWITCH IS OFF OR IF THERE IS NO CHARGE TO REVERSE"
^XMB(3.9,133,2,2293,0)="""RTN"",""RMPRPF3"",15,0)"
^XMB(3.9,133,2,2294,0)=" Q:'+$$SWSTAT^IBBAPI()"
^XMB(3.9,133,2,2295,0)="""RTN"",""RMPRPF3"",16,0)"
^XMB(3.9,133,2,2296,0)=" S RMPRPFSS=$G(^RMPR(660,DA,""PFSS""))"
^XMB(3.9,133,2,2297,0)="""RTN"",""RMPRPF3"",17,0)"
^XMB(3.9,133,2,2298,0)=" Q:$P(RMPRPFSS,""^"",2)="""""
^XMB(3.9,133,2,2299,0)="""RTN"",""RMPRPF3"",18,0)"
^XMB(3.9,133,2,2300,0)=" S RMPRZERO=^RMPR(660,DA,0)"
^XMB(3.9,133,2,2301,0)="""RTN"",""RMPRPF3"",19,0)"
^XMB(3.9,133,2,2302,0)=" N ZTRTN,ZTDESC,ZTDTH,ZTIO,ZTUCI,ZTCPU,ZTPRI,ZTSAVE,ZTKIL,ZTSYNC"
^XMB(3.9,133,2,2303,0)="""RTN"",""RMPRPF3"",20,0)"
^XMB(3.9,133,2,2304,0)=" S ZTIO="""",ZTRTN=""CHRGCRED^RMPRPF3"",ZTDESC=""Prosthetics file #660 PFSS Charge Credit"",ZTDTH=$H"
^XMB(3.9,133,2,2305,0)="""RTN"",""RMPRPF3"",21,0)"
^XMB(3.9,133,2,2306,0)=" S ZTSAVE(""RMPRIEN"")=DA"
^XMB(3.9,133,2,2307,0)="""RTN"",""RMPRPF3"",22,0)"
^XMB(3.9,133,2,2308,0)=" S ZTSAVE(""RMPRZERO"")=RMPRZERO"
^XMB(3.9,133,2,2309,0)="""RTN"",""RMPRPF3"",23,0)"
^XMB(3.9,133,2,2310,0)=" S ZTSAVE(""RMPRONE"")=$G(^RMPR(660,DA,1))"
^XMB(3.9,133,2,2311,0)="""RTN"",""RMPRPF3"",24,0)"
^XMB(3.9,133,2,2312,0)=" S ZTSAVE(""RMPRTEN"")=$G(^RMPR(660,DA,10))"
^XMB(3.9,133,2,2313,0)="""RTN"",""RMPRPF3"",25,0)"
^XMB(3.9,133,2,2314,0)=" S ZTSAVE(""RMPRPFSS"")=RMPRPFSS"
^XMB(3.9,133,2,2315,0)="""RTN"",""RMPRPF3"",26,0)"
^XMB(3.9,133,2,2316,0)=" D ^%ZTLOAD"
^XMB(3.9,133,2,2317,0)="""RTN"",""RMPRPF3"",27,0)"
^XMB(3.9,133,2,2318,0)=" Q"
^XMB(3.9,133,2,2319,0)="""RTN"",""RMPRPF3"",28,0)"
^XMB(3.9,133,2,2320,0)=" ;"
^XMB(3.9,133,2,2321,0)="""RTN"",""RMPRPF3"",29,0)"
^XMB(3.9,133,2,2322,0)="CHRGCRED ; Process account deletion/cancellation"
^XMB(3.9,133,2,2323,0)="""RTN"",""RMPRPF3"",30,0)"
^XMB(3.9,133,2,2324,0)=" ;"
^XMB(3.9,133,2,2325,0)="""RTN"",""RMPRPF3"",31,0)"
^XMB(3.9,133,2,2326,0)=" ; Check if already processing this record."
^XMB(3.9,133,2,2327,0)="""RTN"",""RMPRPF3"",32,0)"
^XMB(3.9,133,2,2328,0)=" Q:$G(^TMP(""RMPRPF3"",RMPRIEN))=RMPRIEN"
^XMB(3.9,133,2,2329,0)="""RTN"",""RMPRPF3"",33,0)"
^XMB(3.9,133,2,2330,0)=" S ^TMP(""RMPRPF3"",RMPRIEN)=RMPRIEN"
^XMB(3.9,133,2,2331,0)="""RTN"",""RMPRPF3"",34,0)"
^XMB(3.9,133,2,2332,0)=" ; Check if this is just a Date edit or a PSAS HCPCS edit, set x-ref AND QUIT."
^XMB(3.9,133,2,2333,0)="""RTN"",""RMPRPF3"",35,0)"
^XMB(3.9,133,2,2334,0)=" S RMPRCDFL=0"
^XMB(3.9,133,2,2335,0)="""RTN"",""RMPRPF3"",36,0)"
^XMB(3.9,133,2,2336,0)=" S:'$D(^RMPR(660,RMPRIEN,0)) RMPRCDFL=1"
^XMB(3.9,133,2,2337,0)="""RTN"",""RMPRPF3"",37,0)"
^XMB(3.9,133,2,2338,0)=" S:$P($G(RMPRONE),""^"",4)="""" RMPRCDFL=1"
^XMB(3.9,133,2,2339,0)="""RTN"",""RMPRPF3"",38,0)"
^XMB(3.9,133,2,2340,0)=" I RMPRCDFL=0 D SETAPD G EXIT"
^XMB(3.9,133,2,2341,0)="""RTN"",""RMPRPF3"",39,0)"
^XMB(3.9,133,2,2342,0)=" ; RECORD HAS EITHER BEEN DELETED OR PSAS HCPCS HAS BEEN DELETED.  SEND A CREDIT (CD)."
^XMB(3.9,133,2,2343,0)="""RTN"",""RMPRPF3"",40,0)"
^XMB(3.9,133,2,2344,0)=" S RMPRUCID=$P(RMPRPFSS,U,2)"
^XMB(3.9,133,2,2345,0)="""RTN"",""RMPRPF3"",41,0)"
^XMB(3.9,133,2,2346,0)=" S RMPRTYPE=""CD"""
^XMB(3.9,133,2,2347,0)="""RTN"",""RMPRPF3"",42,0)"
^XMB(3.9,133,2,2348,0)=" S RMPRDFN=$P(RMPRZERO,""^"",2)"
^XMB(3.9,133,2,2349,0)="""RTN"",""RMPRPF3"",43,0)"
^XMB(3.9,133,2,2350,0)=" S RMPRARFN=$P(RMPRPFSS,""^"")"
^XMB(3.9,133,2,2351,0)="""RTN"",""RMPRPF3"",44,0)"
^XMB(3.9,133,2,2352,0)=" ;"
^XMB(3.9,133,2,2353,0)="""RTN"",""RMPRPF3"",45,0)"
^XMB(3.9,133,2,2354,0)=" ; FT1"
^XMB(3.9,133,2,2355,0)="""RTN"",""RMPRPF3"",46,0)"
^XMB(3.9,133,2,2356,0)=" S RMPRFT1(4)=$P(RMPRZERO,""^"",12)  ; Delivery Date"
^XMB(3.9,133,2,2357,0)="""RTN"",""RMPRPF3"",47,0)"
^XMB(3.9,133,2,2358,0)=" S RMPRFT1(10)=$P(RMPRZERO,""^"",7)  ; Transaction Quantity"
^XMB(3.9,133,2,2359,0)="""RTN"",""RMPRPF3"",48,0)"
^XMB(3.9,133,2,2360,0)=" S RMPRFT1(13)=423  ; Department Code"
^XMB(3.9,133,2,2361,0)="""RTN"",""RMPRPF3"",49,0)"
^XMB(3.9,133,2,2362,0)=" S RMPRFT1(21)=$P($G(RMPRTEN),""^"",6)  ; Ordering Provider/Ordered by Code"
^XMB(3.9,133,2,2363,0)="""RTN"",""RMPRPF3"",50,0)"
^XMB(3.9,133,2,2364,0)=" S RMPRTC=$P(RMPRZERO,""^"",16)"
^XMB(3.9,133,2,2365,0)="""RTN"",""RMPRPF3"",51,0)"
^XMB(3.9,133,2,2366,0)=" S RMPRFT1(22)=RMPRTC/RMPRFT1(10)    ; Unit Cost = Total Cost/QTY"
^XMB(3.9,133,2,2367,0)="""RTN"",""RMPRPF3"",52,0)"
^XMB(3.9,133,2,2368,0)=" ; PR1"
^XMB(3.9,133,2,2369,0)="""RTN"",""RMPRPF3"",53,0)"
^XMB(3.9,133,2,2370,0)=" S RMPRHCPC=$P(RMPRONE,""^"",4)"
^XMB(3.9,133,2,2371,0)="""RTN"",""RMPRPF3"",54,0)"
^XMB(3.9,133,2,2372,0)=" S RMPRHCDT=$P(RMPRONE,""^"")"
^XMB(3.9,133,2,2373,0)="""RTN"",""RMPRPF3"",55,0)"
^XMB(3.9,133,2,2374,0)=" D PSASHCPC^RMPOPF"
^XMB(3.9,133,2,2375,0)="""RTN"",""RMPRPF3"",56,0)"
^XMB(3.9,133,2,2376,0)=" S RMPRPR1(3)=RMPRVHC   ; Procedure Code"
^XMB(3.9,133,2,2377,0)="""RTN"",""RMPRPF3"",57,0)"
^XMB(3.9,133,2,2378,0)=" S RMPRPR1(4)=RMPRTHC   ; PSAS HCPCS text"
^XMB(3.9,133,2,2379,0)="""RTN"",""RMPRPF3"",58,0)"
^XMB(3.9,133,2,2380,0)=" ; Procedure Functional Type - I:Stock Issue;P:Purchasing"
^XMB(3.9,133,2,2381,0)="""RTN"",""RMPRPF3"",59,0)"
^XMB(3.9,133,2,2382,0)=" S RMPRPR1(6)=$S($P(RMPRZERO,""^"",13)=11:""I"",1:""P"")"
^XMB(3.9,133,2,2383,0)="""RTN"",""RMPRPF3"",60,0)"
^XMB(3.9,133,2,2384,0)=" ;"
^XMB(3.9,133,2,2385,0)="""RTN"",""RMPRPF3"",61,0)"
^XMB(3.9,133,2,2386,0)="SENDDATA ; Send charge data"
^XMB(3.9,133,2,2387,0)="""RTN"",""RMPRPF3"",62,0)"
^XMB(3.9,133,2,2388,0)=" S RMPRCHRG=$$CHARGE^IBBAPI(RMPRDFN,RMPRARFN,RMPRTYPE,RMPRUCID,.RMPRFT1,.RMPRPR1,"""","""","""","""","""")"
^XMB(3.9,133,2,2389,0)="""RTN"",""RMPRPF3"",63,0)"
^XMB(3.9,133,2,2390,0)=" Q"
^XMB(3.9,133,2,2391,0)="""RTN"",""RMPRPF3"",64,0)"
^XMB(3.9,133,2,2392,0)=" ;"
^XMB(3.9,133,2,2393,0)="""RTN"",""RMPRPF3"",65,0)"
^XMB(3.9,133,2,2394,0)="SETAPD ; Set the APD cross-reference because the activity was only an edit, not a delete."
^XMB(3.9,133,2,2395,0)="""RTN"",""RMPRPF3"",66,0)"
^XMB(3.9,133,2,2396,0)=" S DIE=""^RMPR(660,"""
^XMB(3.9,133,2,2397,0)="""RTN"",""RMPRPF3"",67,0)"
^XMB(3.9,133,2,2398,0)=" S DA=RMPRIEN"
^XMB(3.9,133,2,2399,0)="""RTN"",""RMPRPF3"",68,0)"
^XMB(3.9,133,2,2400,0)=" S DR=""107///^S X=1"""
^XMB(3.9,133,2,2401,0)="""RTN"",""RMPRPF3"",69,0)"
^XMB(3.9,133,2,2402,0)=" D ^DIE"
^XMB(3.9,133,2,2403,0)="""RTN"",""RMPRPF3"",70,0)"
^XMB(3.9,133,2,2404,0)=" K DIE,DA,DR"
^XMB(3.9,133,2,2405,0)="""RTN"",""RMPRPF3"",71,0)"
^XMB(3.9,133,2,2406,0)=" Q"
^XMB(3.9,133,2,2407,0)="""RTN"",""RMPRPF3"",72,0)"
^XMB(3.9,133,2,2408,0)="EXIT ; Common exit point"
^XMB(3.9,133,2,2409,0)="""RTN"",""RMPRPF3"",73,0)"
^XMB(3.9,133,2,2410,0)=" K ^TMP(""RMPRPF3"",RMPRIEN)"
^XMB(3.9,133,2,2411,0)="""RTN"",""RMPRPF3"",74,0)"
^XMB(3.9,133,2,2412,0)=" K RMPRQTY,RMPRTC,RMPRCHRG,RMPRUCID,RMPRDFN,RMRICPP,RMPRCPT"
^XMB(3.9,133,2,2413,0)="""RTN"",""RMPRPF3"",75,0)"
^XMB(3.9,133,2,2414,0)=" K RMPRARFN,RMPRTYPE,RMPRFT1,RMPRPR1,RMPRCPT,RMPRRICP"
^XMB(3.9,133,2,2415,0)="""RTN"",""RMPRPF3"",76,0)"
^XMB(3.9,133,2,2416,0)=" K RMPRDG1,RMPRDIAG,RMPRZCL,RMPRNODE,RMPRPROS,RMPRHCPC,RMPRHCDT,RMPRVHC,RMPRTHC"
^XMB(3.9,133,2,2417,0)="""RTN"",""RMPRPF3"",77,0)"
^XMB(3.9,133,2,2418,0)=" K ZTRTN,ZTDESC,ZTDTH,ZTIO,ZTUCI,ZTCPU,ZTPRI,ZTSAVE,ZTKIL,ZTSYNC"
^XMB(3.9,133,2,2419,0)="""RTN"",""RMPRPF3"",78,0)"
^XMB(3.9,133,2,2420,0)=" Q"
^XMB(3.9,133,2,2421,0)="""SEC"",""^DD"",660,660,106,9)"
^XMB(3.9,133,2,2422,0)=""
^XMB(3.9,133,2,2423,0)="""UP"",665,665.193,-1)"
^XMB(3.9,133,2,2424,0)="665^RMPOB"
^XMB(3.9,133,2,2425,0)="""UP"",665,665.193,0)"
^XMB(3.9,133,2,2426,0)="665.193"
^XMB(3.9,133,2,2427,0)="""UP"",665,665.194,-1)"
^XMB(3.9,133,2,2428,0)="665^RMPOC"
^XMB(3.9,133,2,2429,0)="""UP"",665,665.194,0)"
^XMB(3.9,133,2,2430,0)="665.194"
^XMB(3.9,133,2,2431,0)="""UP"",665.72,665.723191,-4)"
^XMB(3.9,133,2,2432,0)="665.72^1"
^XMB(3.9,133,2,2433,0)="""UP"",665.72,665.723191,-3)"
^XMB(3.9,133,2,2434,0)="665.723^1"
^XMB(3.9,133,2,2435,0)="""UP"",665.72,665.723191,-2)"
^XMB(3.9,133,2,2436,0)="665.7231^V"
^XMB(3.9,133,2,2437,0)="""UP"",665.72,665.723191,-1)"
^XMB(3.9,133,2,2438,0)="665.72319^1"
^XMB(3.9,133,2,2439,0)="""UP"",665.72,665.723191,0)"
^XMB(3.9,133,2,2440,0)="665.723191"
^XMB(3.9,133,2,2441,0)="""VER"")"
^XMB(3.9,133,2,2442,0)="8.0^22.0"
^XMB(3.9,133,2,2443,0)="""^DD"",660,660,.01,0)"
^XMB(3.9,133,2,2444,0)="ENTRY DATE^RD^^0;1^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,133,2,2445,0)="""^DD"",660,660,.01,1,0)"
^XMB(3.9,133,2,2446,0)="^.1"
^XMB(3.9,133,2,2447,0)="""^DD"",660,660,.01,1,1,0)"
^XMB(3.9,133,2,2448,0)="660^B"
^XMB(3.9,133,2,2449,0)="""^DD"",660,660,.01,1,1,1)"
^XMB(3.9,133,2,2450,0)="S ^RMPR(660,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,133,2,2451,0)="""^DD"",660,660,.01,1,1,2)"
^XMB(3.9,133,2,2452,0)="K ^RMPR(660,""B"",$E(X,1,30),DA)"
^XMB(3.9,133,2,2453,0)="""^DD"",660,660,.01,1,2,0)"
^XMB(3.9,133,2,2454,0)="660^F^MUMPS"
^XMB(3.9,133,2,2455,0)="""^DD"",660,660,.01,1,2,1)"
^XMB(3.9,133,2,2456,0)="I +$P(^RMPR(660,DA,0),U,2) S ^RMPR(660,""F"",$E(X,1,30),+$P(^RMPR(660,DA,0),U,2),DA)="""""
^XMB(3.9,133,2,2457,0)="""^DD"",660,660,.01,1,2,2)"
^XMB(3.9,133,2,2458,0)="I +$P(^RMPR(660,DA,0),U,2) K ^RMPR(660,""F"",$E(X,1,30),+$P(^RMPR(660,DA,0),U,2),DA)"
^XMB(3.9,133,2,2459,0)="""^DD"",660,660,.01,1,2,""%D"",0)"
^XMB(3.9,133,2,2460,0)="^^2^2^2930306^"
^XMB(3.9,133,2,2461,0)="""^DD"",660,660,.01,1,2,""%D"",1,0)"
^XMB(3.9,133,2,2462,0)="This x-ref allows lookups on the ""F"" x-ref by Appliance and Repair date and"
^XMB(3.9,133,2,2463,0)="""^DD"",660,660,.01,1,2,""%D"",2,0)"
^XMB(3.9,133,2,2464,0)="Patient IEN."
^XMB(3.9,133,2,2465,0)="""^DD"",660,660,.01,1,2,""DT"")"
^XMB(3.9,133,2,2466,0)="2920127"
^XMB(3.9,133,2,2467,0)="""^DD"",660,660,.01,1,3,0)"
^XMB(3.9,133,2,2468,0)="^^TRIGGER^660^106"
^XMB(3.9,133,2,2469,0)="""^DD"",660,660,.01,1,3,1)"
^XMB(3.9,133,2,2470,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(660,D0,""PFSS"")):^(""PFSS""),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=$S(+$$SWSTAT^IBBAPI():1,1:"""") X ^DD(660,.01,1,3,1.4)"
^XMB(3.9,133,2,2471,0)="""^DD"",660,660,.01,1,3,1.4)"
^XMB(3.9,133,2,2472,0)="S DIH=$G(^RMPR(660,DIV(0),""PFSS"")),DIV=X S $P(^(""PFSS""),U,7)=DIV,DIH=660,DIG=106 D ^DICR"
^XMB(3.9,133,2,2473,0)="""^DD"",660,660,.01,1,3,2)"
^XMB(3.9,133,2,2474,0)="Q"
^XMB(3.9,133,2,2475,0)="""^DD"",660,660,.01,1,3,""CREATE VALUE"")"
^XMB(3.9,133,2,2476,0)="S X=$S(+$$SWSTAT^IBBAPI():1,1:"""")"
^XMB(3.9,133,2,2477,0)="""^DD"",660,660,.01,1,3,""DELETE VALUE"")"
^XMB(3.9,133,2,2478,0)="NO EFFECT"
^XMB(3.9,133,2,2479,0)="""^DD"",660,660,.01,1,3,""DT"")"
^XMB(3.9,133,2,2480,0)="3051101"
^XMB(3.9,133,2,2481,0)="""^DD"",660,660,.01,1,3,""FIELD"")"
^XMB(3.9,133,2,2482,0)="PFSS ACCOUNT FLAG"
^XMB(3.9,133,2,2483,0)="""^DD"",660,660,.01,1,4,0)"
^XMB(3.9,133,2,2484,0)="660^APTASK01^MUMPS"
^XMB(3.9,133,2,2485,0)="""^DD"",660,660,.01,1,4,1)"
^XMB(3.9,133,2,2486,0)="Q"
^XMB(3.9,133,2,2487,0)="""^DD"",660,660,.01,1,4,2)"
^XMB(3.9,133,2,2488,0)="D CHRGTASK^RMPRPF3"
^XMB(3.9,133,2,2489,0)="""^DD"",660,660,.01,1,4,""DT"")"
^XMB(3.9,133,2,2490,0)="3051101"
^XMB(3.9,133,2,2491,0)="""^DD"",660,660,.01,3)"
^XMB(3.9,133,2,2492,0)="Please enter a valid date."
^XMB(3.9,133,2,2493,0)="""^DD"",660,660,.01,21,0)"
^XMB(3.9,133,2,2494,0)="^^1^1^2950417^^^^"
^XMB(3.9,133,2,2495,0)="""^DD"",660,660,.01,21,1,0)"
^XMB(3.9,133,2,2496,0)="This is the date that the transaction was entered into the system.  It may or may not be the same as the request date."
^XMB(3.9,133,2,2497,0)="""^DD"",660,660,.01,""DEL"",.01,0)"
^XMB(3.9,133,2,2498,0)="I 1 W ""  CANNOT DELETE ENTRY THIS WAY."""
^XMB(3.9,133,2,2499,0)="""^DD"",660,660,.01,""DT"")"
^XMB(3.9,133,2,2500,0)="3051101"
^XMB(3.9,133,2,2501,0)="""^DD"",660,660,4.5,0)"
^XMB(3.9,133,2,2502,0)="PSAS HCPCS^P661.1'X^RMPR(661.1,^1;4^K:$P(^RMPR(661.1,X,0),U,5)'=1 X"
^XMB(3.9,133,2,2503,0)="""^DD"",660,660,4.5,1,0)"
^XMB(3.9,133,2,2504,0)="^.1"
^XMB(3.9,133,2,2505,0)="""^DD"",660,660,4.5,1,1,0)"
^XMB(3.9,133,2,2506,0)="^^TRIGGER^660^4.1"
^XMB(3.9,133,2,2507,0)="""^DD"",660,660,4.5,1,1,1)"
^XMB(3.9,133,2,2508,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(660,D0,0)):^(0),1:"""") S X=$P(Y(1),U,22),X=X S DIU=X K Y X ^DD(660,4.5,1,1,1.1) X ^DD(660,4.5,1,1,1.4)"
^XMB(3.9,133,2,2509,0)="""^DD"",660,660,4.5,1,1,1.1)"
^XMB(3.9,133,2,2510,0)="S X=DIV S RMXX=$P(^RMPR(661.1,DIV,0),U,4),$P(^RMPR(660,DA,0),U,22)=RMXX"
^XMB(3.9,133,2,2511,0)="""^DD"",660,660,4.5,1,1,1.4)"
^XMB(3.9,133,2,2512,0)="S DIH=$S($D(^RMPR(660,DIV(0),0)):^(0),1:""""),DIV=RMXX S $P(^(0),U,22)=DIV,DIH=660,DIG=4.1 K RMXX D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,133,2,2513,0)="""^DD"",660,660,4.5,1,1,2)"
^XMB(3.9,133,2,2514,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(660,D0,0)):^(0),1:"""") S X=$P(Y(1),U,22),X=X S DIU=X K Y S X="""" X ^DD(660,4.5,1,1,2.4)"
^XMB(3.9,133,2,2515,0)="""^DD"",660,660,4.5,1,1,2.4)"
^XMB(3.9,133,2,2516,0)="S DIH=$S($D(^RMPR(660,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,22)=DIV,DIH=660,DIG=4.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,133,2,2517,0)="""^DD"",660,660,4.5,1,1,""CREATE VALUE"")"
^XMB(3.9,133,2,2518,0)="S RMXX=$P(^RMPR(661.1,DIV,0),U,4),$P(^RMPR(660,DA,0),U,22)=RMXX K RMXX"
^XMB(3.9,133,2,2519,0)="""^DD"",660,660,4.5,1,1,""DELETE VALUE"")"
^XMB(3.9,133,2,2520,0)="@"
^XMB(3.9,133,2,2521,0)="""^DD"",660,660,4.5,1,1,""DT"")"
^XMB(3.9,133,2,2522,0)="2980611"
^XMB(3.9,133,2,2523,0)="""^DD"",660,660,4.5,1,1,""FIELD"")"
^XMB(3.9,133,2,2524,0)="HCPCS"
^XMB(3.9,133,2,2525,0)="""^DD"",660,660,4.5,1,2,0)"
^XMB(3.9,133,2,2526,0)="660^H"
^XMB(3.9,133,2,2527,0)="""^DD"",660,660,4.5,1,2,1)"
^XMB(3.9,133,2,2528,0)="S ^RMPR(660,""H"",$E(X,1,30),DA)="""""
^XMB(3.9,133,2,2529,0)="""^DD"",660,660,4.5,1,2,2)"
^XMB(3.9,133,2,2530,0)="K ^RMPR(660,""H"",$E(X,1,30),DA)"
^XMB(3.9,133,2,2531,0)="""^DD"",660,660,4.5,1,2,""DT"")"
^XMB(3.9,133,2,2532,0)="2990608"
^XMB(3.9,133,2,2533,0)="""^DD"",660,660,4.5,1,3,0)"
^XMB(3.9,133,2,2534,0)="^^TRIGGER^660^106"
^XMB(3.9,133,2,2535,0)="""^DD"",660,660,4.5,1,3,1)"
^XMB(3.9,133,2,2536,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(660,D0,""PFSS"")):^(""PFSS""),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=$S(+$$SWSTAT^IBBAPI():1,1:"""") X ^DD(660,4.5,1,3,1.4)"
^XMB(3.9,133,2,2537,0)="""^DD"",660,660,4.5,1,3,1.4)"
^XMB(3.9,133,2,2538,0)="S DIH=$G(^RMPR(660,DIV(0),""PFSS"")),DIV=X S $P(^(""PFSS""),U,7)=DIV,DIH=660,DIG=106 D ^DICR"
^XMB(3.9,133,2,2539,0)="""^DD"",660,660,4.5,1,3,2)"
^XMB(3.9,133,2,2540,0)="Q"
^XMB(3.9,133,2,2541,0)="""^DD"",660,660,4.5,1,3,3)"
^XMB(3.9,133,2,2542,0)="This cross-reference will be never deleted by the user."
^XMB(3.9,133,2,2543,0)="""^DD"",660,660,4.5,1,3,""CREATE VALUE"")"
^XMB(3.9,133,2,2544,0)="S X=$S(+$$SWSTAT^IBBAPI():1,1:"""")"
^XMB(3.9,133,2,2545,0)="""^DD"",660,660,4.5,1,3,""DELETE VALUE"")"
^XMB(3.9,133,2,2546,0)="NO EFFECT"
^XMB(3.9,133,2,2547,0)="""^DD"",660,660,4.5,1,3,""DT"")"
^XMB(3.9,133,2,2548,0)="3051028"
^XMB(3.9,133,2,2549,0)="""^DD"",660,660,4.5,1,3,""FIELD"")"
^XMB(3.9,133,2,2550,0)="PFSS ACCOUNT FLAG"
^XMB(3.9,133,2,2551,0)="""^DD"",660,660,4.5,1,4,0)"
^XMB(3.9,133,2,2552,0)="^^TRIGGER^660^107"
^XMB(3.9,133,2,2553,0)="""^DD"",660,660,4.5,1,4,1)"
^XMB(3.9,133,2,2554,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(660,D0,""PFSS"")):^(""PFSS""),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$S(+$$SWSTAT^IBBAPI():1,1:"""") X ^DD(660,4.5,1,4,1.4)"
^XMB(3.9,133,2,2555,0)="""^DD"",660,660,4.5,1,4,1.4)"
^XMB(3.9,133,2,2556,0)="S DIH=$G(^RMPR(660,DIV(0),""PFSS"")),DIV=X S $P(^(""PFSS""),U,8)=DIV,DIH=660,DIG=107 D ^DICR"
^XMB(3.9,133,2,2557,0)="""^DD"",660,660,4.5,1,4,2)"
^XMB(3.9,133,2,2558,0)="Q"
^XMB(3.9,133,2,2559,0)="""^DD"",660,660,4.5,1,4,""CREATE VALUE"")"
^XMB(3.9,133,2,2560,0)="S X=$S(+$$SWSTAT^IBBAPI():1,1:"""")"
^XMB(3.9,133,2,2561,0)="""^DD"",660,660,4.5,1,4,""DELETE VALUE"")"
^XMB(3.9,133,2,2562,0)="NO EFFECT"
^XMB(3.9,133,2,2563,0)="""^DD"",660,660,4.5,1,4,""DT"")"
^XMB(3.9,133,2,2564,0)="3051028"
^XMB(3.9,133,2,2565,0)="""^DD"",660,660,4.5,1,4,""FIELD"")"
^XMB(3.9,133,2,2566,0)="PFSS CHARGE FLAG"
^XMB(3.9,133,2,2567,0)="""^DD"",660,660,4.5,1,5,0)"
^XMB(3.9,133,2,2568,0)="660^APTASK45^MUMPS"
^XMB(3.9,133,2,2569,0)="""^DD"",660,660,4.5,1,5,1)"
^XMB(3.9,133,2,2570,0)="Q"
^XMB(3.9,133,2,2571,0)="""^DD"",660,660,4.5,1,5,2)"
^XMB(3.9,133,2,2572,0)="D CHRGTASK^RMPRPF3"
^XMB(3.9,133,2,2573,0)="""^DD"",660,660,4.5,1,5,""DT"")"
^XMB(3.9,133,2,2574,0)="3051101"
^XMB(3.9,133,2,2575,0)="""^DD"",660,660,4.5,3)"
^XMB(3.9,133,2,2576,0)="Enter standardized Prosthetics HCPCS"
^XMB(3.9,133,2,2577,0)="""^DD"",660,660,4.5,8.5)"
^XMB(3.9,133,2,2578,0)="@"
^XMB(3.9,133,2,2579,0)="""^DD"",660,660,4.5,21,0)"
^XMB(3.9,133,2,2580,0)="^.001^1^1^3050725^^^^"
^XMB(3.9,133,2,2581,0)="""^DD"",660,660,4.5,21,1,0)"
^XMB(3.9,133,2,2582,0)="Standardized Prosthetics HCPCS that points to file 661.1."
^XMB(3.9,133,2,2583,0)="""^DD"",660,660,4.5,""DT"")"
^XMB(3.9,133,2,2584,0)="3051101"
^XMB(3.9,133,2,2585,0)="""^DD"",660,660,5,0)"
^XMB(3.9,133,2,2586,0)="QTY^RNJ4,0^^0;7^K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""1N.N) X"
^XMB(3.9,133,2,2587,0)="""^DD"",660,660,5,1,0)"
^XMB(3.9,133,2,2588,0)="^.1"
^XMB(3.9,133,2,2589,0)="""^DD"",660,660,5,1,1,0)"
^XMB(3.9,133,2,2590,0)="^^TRIGGER^660^107"
^XMB(3.9,133,2,2591,0)="""^DD"",660,660,5,1,1,1)"
^XMB(3.9,133,2,2592,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(660,D0,""PFSS"")):^(""PFSS""),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$S(+$$SWSTAT^IBBAPI():1,1:"""") X ^DD(660,5,1,1,1.4)"
^XMB(3.9,133,2,2593,0)="""^DD"",660,660,5,1,1,1.4)"
^XMB(3.9,133,2,2594,0)="S DIH=$G(^RMPR(660,DIV(0),""PFSS"")),DIV=X S $P(^(""PFSS""),U,8)=DIV,DIH=660,DIG=107 D ^DICR"
^XMB(3.9,133,2,2595,0)="""^DD"",660,660,5,1,1,2)"
^XMB(3.9,133,2,2596,0)="Q"
^XMB(3.9,133,2,2597,0)="""^DD"",660,660,5,1,1,""CREATE VALUE"")"
^XMB(3.9,133,2,2598,0)="S X=$S(+$$SWSTAT^IBBAPI():1,1:"""")"
^XMB(3.9,133,2,2599,0)="""^DD"",660,660,5,1,1,""DELETE VALUE"")"
^XMB(3.9,133,2,2600,0)="NO EFFECT"
^XMB(3.9,133,2,2601,0)="""^DD"",660,660,5,1,1,""DT"")"
^XMB(3.9,133,2,2602,0)="3051028"
^XMB(3.9,133,2,2603,0)="""^DD"",660,660,5,1,1,""FIELD"")"
^XMB(3.9,133,2,2604,0)="PFSS CHARGE FLAG"
^XMB(3.9,133,2,2605,0)="""^DD"",660,660,5,3)"
^XMB(3.9,133,2,2606,0)="Type a Number between 1 and 1000, 0 Decimal Digits"
^XMB(3.9,133,2,2607,0)="""^DD"",660,660,5,21,0)"
^XMB(3.9,133,2,2608,0)="^^2^2^2950413^^^^"
^XMB(3.9,133,2,2609,0)="""^DD"",660,660,5,21,1,0)"
^XMB(3.9,133,2,2610,0)="This is the number of units that was issued or repaired for"
^XMB(3.9,133,2,2611,0)="""^DD"",660,660,5,21,2,0)"
^XMB(3.9,133,2,2612,0)="this transaction."
^XMB(3.9,133,2,2613,0)="""^DD"",660,660,5,""DT"")"
^XMB(3.9,133,2,2614,0)="3051028"
^XMB(3.9,133,2,2615,0)="""^DD"",660,660,8.6,0)"
^XMB(3.9,133,2,2616,0)="SUSPENSE REQUESTOR^P200'^VA(200,^10;6^Q"
^XMB(3.9,133,2,2617,0)="""^DD"",660,660,8.6,1,0)"
^XMB(3.9,133,2,2618,0)="^.1"
^XMB(3.9,133,2,2619,0)="""^DD"",660,660,8.6,1,1,0)"
^XMB(3.9,133,2,2620,0)="^^TRIGGER^660^107"
^XMB(3.9,133,2,2621,0)="""^DD"",660,660,8.6,1,1,1)"
^XMB(3.9,133,2,2622,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(660,D0,""PFSS"")):^(""PFSS""),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$S(+$$SWSTAT^IBBAPI():1,1:"""") X ^DD(660,8.6,1,1,1.4)"
^XMB(3.9,133,2,2623,0)="""^DD"",660,660,8.6,1,1,1.4)"
^XMB(3.9,133,2,2624,0)="S DIH=$G(^RMPR(660,DIV(0),""PFSS"")),DIV=X S $P(^(""PFSS""),U,8)=DIV,DIH=660,DIG=107 D ^DICR"
^XMB(3.9,133,2,2625,0)="""^DD"",660,660,8.6,1,1,2)"
^XMB(3.9,133,2,2626,0)="Q"
^XMB(3.9,133,2,2627,0)="""^DD"",660,660,8.6,1,1,""CREATE VALUE"")"
^XMB(3.9,133,2,2628,0)="S X=$S(+$$SWSTAT^IBBAPI():1,1:"""")"
^XMB(3.9,133,2,2629,0)="""^DD"",660,660,8.6,1,1,""DELETE VALUE"")"
^XMB(3.9,133,2,2630,0)="NO EFFECT"
^XMB(3.9,133,2,2631,0)="""^DD"",660,660,8.6,1,1,""DT"")"
^XMB(3.9,133,2,2632,0)="3051028"
^XMB(3.9,133,2,2633,0)="""^DD"",660,660,8.6,1,1,""FIELD"")"
^XMB(3.9,133,2,2634,0)="PFSS CHARGE FLAG"
^XMB(3.9,133,2,2635,0)="""^DD"",660,660,8.6,21,0)"
^XMB(3.9,133,2,2636,0)="^^2^2^3010924^"
^XMB(3.9,133,2,2637,0)="""^DD"",660,660,8.6,21,1,0)"
^XMB(3.9,133,2,2638,0)="This is a pointer to file #200, the person requesting the suspense as it "
^XMB(3.9,133,2,2639,0)="""^DD"",660,660,8.6,21,2,0)"
^XMB(3.9,133,2,2640,0)="appears in file #668."
^XMB(3.9,133,2,2641,0)="""^DD"",660,660,8.6,""DT"")"
^XMB(3.9,133,2,2642,0)="3051028"
^XMB(3.9,133,2,2643,0)="""^DD"",660,660,14,0)"
^XMB(3.9,133,2,2644,0)="TOTAL COST^RNJ9,2^^0;16^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999.99)!(X<0) X"
^XMB(3.9,133,2,2645,0)="""^DD"",660,660,14,1,0)"
^XMB(3.9,133,2,2646,0)="^.1"
^XMB(3.9,133,2,2647,0)="""^DD"",660,660,14,1,1,0)"
^XMB(3.9,133,2,2648,0)="^^TRIGGER^660^107"
^XMB(3.9,133,2,2649,0)="""^DD"",660,660,14,1,1,1)"
^XMB(3.9,133,2,2650,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(660,D0,""PFSS"")):^(""PFSS""),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$S(+$$SWSTAT^IBBAPI():1,1:"""") X ^DD(660,14,1,1,1.4)"
^XMB(3.9,133,2,2651,0)="""^DD"",660,660,14,1,1,1.4)"
^XMB(3.9,133,2,2652,0)="S DIH=$G(^RMPR(660,DIV(0),""PFSS"")),DIV=X S $P(^(""PFSS""),U,8)=DIV,DIH=660,DIG=107 D ^DICR"
^XMB(3.9,133,2,2653,0)="""^DD"",660,660,14,1,1,2)"
^XMB(3.9,133,2,2654,0)="Q"
^XMB(3.9,133,2,2655,0)="""^DD"",660,660,14,1,1,""CREATE VALUE"")"
^XMB(3.9,133,2,2656,0)="S X=$S(+$$SWSTAT^IBBAPI():1,1:"""")"
^XMB(3.9,133,2,2657,0)="""^DD"",660,660,14,1,1,""DELETE VALUE"")"
^XMB(3.9,133,2,2658,0)="NO EFFECT"
^XMB(3.9,133,2,2659,0)="""^DD"",660,660,14,1,1,""DT"")"
^XMB(3.9,133,2,2660,0)="3051028"
^XMB(3.9,133,2,2661,0)="""^DD"",660,660,14,1,1,""FIELD"")"
^XMB(3.9,133,2,2662,0)="PFSS CHARGE FLAG"
^XMB(3.9,133,2,2663,0)="""^DD"",660,660,14,3)"
^XMB(3.9,133,2,2664,0)="Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits"
^XMB(3.9,133,2,2665,0)="""^DD"",660,660,14,21,0)"
^XMB(3.9,133,2,2666,0)="^^1^1^2950417^^^^"
^XMB(3.9,133,2,2667,0)="""^DD"",660,660,14,21,1,0)"
^XMB(3.9,133,2,2668,0)="This field contains the total cost of the transaction."
^XMB(3.9,133,2,2669,0)="""^DD"",660,660,14,""DT"")"
^XMB(3.9,133,2,2670,0)="3051028"
^XMB(3.9,133,2,2671,0)="""^DD"",660,660,100,0)"
^XMB(3.9,133,2,2672,0)="PFSS ACCOUNT REFERENCE^P375'^IBBAA(375,^PFSS;1^Q"
^XMB(3.9,133,2,2673,0)="""^DD"",660,660,100,21,0)"
^XMB(3.9,133,2,2674,0)="^.001^3^3^3050822^^^"
^XMB(3.9,133,2,2675,0)="""^DD"",660,660,100,21,1,0)"
^XMB(3.9,133,2,2676,0)="This refers to the reference number passed back to Prosthetics application"
^XMB(3.9,133,2,2677,0)="""^DD"",660,660,100,21,2,0)"
^XMB(3.9,133,2,2678,0)="from the PFSS IBB get account process. This field points to PFSS ACCOUNT "
^XMB(3.9,133,2,2679,0)="""^DD"",660,660,100,21,3,0)"
^XMB(3.9,133,2,2680,0)="file (#375)."
^XMB(3.9,133,2,2681,0)="""^DD"",660,660,100,""DT"")"
^XMB(3.9,133,2,2682,0)="3050630"
^XMB(3.9,133,2,2683,0)="""^DD"",660,660,101,0)"
^XMB(3.9,133,2,2684,0)="PFSS CHARGE ID^NJ8,0^^PFSS;2^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^XMB(3.9,133,2,2685,0)="""^DD"",660,660,101,3)"
^XMB(3.9,133,2,2686,0)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^XMB(3.9,133,2,2687,0)="""^DD"",660,660,101,21,0)"
^XMB(3.9,133,2,2688,0)="^^2^2^3050630^"
^XMB(3.9,133,2,2689,0)="""^DD"",660,660,101,21,1,0)"
^XMB(3.9,133,2,2690,0)="A unique charge identifier for each charge entity. Prosthetics calls"
^XMB(3.9,133,2,2691,0)="""^DD"",660,660,101,21,2,0)"
^XMB(3.9,133,2,2692,0)="$$GETCHGID^IBBAPI() to obtain a Unique Charge Identifier."
^XMB(3.9,133,2,2693,0)="""^DD"",660,660,101,""DT"")"
^XMB(3.9,133,2,2694,0)="3050630"
^XMB(3.9,133,2,2695,0)="""^DD"",660,660,102,0)"
^XMB(3.9,133,2,2696,0)="LATEST PSAS HCPCS^P661.1'^RMPR(661.1,^PFSS;3^Q"
^XMB(3.9,133,2,2697,0)="""^DD"",660,660,102,21,0)"
^XMB(3.9,133,2,2698,0)="^^2^2^3050630^"
^XMB(3.9,133,2,2699,0)="""^DD"",660,660,102,21,1,0)"
^XMB(3.9,133,2,2700,0)="This is the latest PSAS HCPCS code that is held and stored for comparison "
^XMB(3.9,133,2,2701,0)="""^DD"",660,660,102,21,2,0)"
^XMB(3.9,133,2,2702,0)="during the account updates for the PFSS project."
^XMB(3.9,133,2,2703,0)="""^DD"",660,660,102,""DT"")"
^XMB(3.9,133,2,2704,0)="3050630"
^XMB(3.9,133,2,2705,0)="""^DD"",660,660,103,0)"
^XMB(3.9,133,2,2706,0)="LATEST QTY^NJ4,0^^PFSS;4^K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""1N.N) X"
^XMB(3.9,133,2,2707,0)="""^DD"",660,660,103,3)"
^XMB(3.9,133,2,2708,0)="Type a Number between 1 and 1000, 0 Decimal Digits"
^XMB(3.9,133,2,2709,0)="""^DD"",660,660,103,21,0)"
^XMB(3.9,133,2,2710,0)="^^2^2^3050630^"
^XMB(3.9,133,2,2711,0)="""^DD"",660,660,103,21,1,0)"
^XMB(3.9,133,2,2712,0)="This is the latest QTY that is held and stored for comparison during the "
^XMB(3.9,133,2,2713,0)="""^DD"",660,660,103,21,2,0)"
^XMB(3.9,133,2,2714,0)="account updates for the PFSS project."
^XMB(3.9,133,2,2715,0)="""^DD"",660,660,103,""DT"")"
^XMB(3.9,133,2,2716,0)="3050630"
^XMB(3.9,133,2,2717,0)="""^DD"",660,660,104,0)"
^XMB(3.9,133,2,2718,0)="LATEST TOTAL COST^NJ9,2^^PFSS;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999.99)!(X<0) X"
^XMB(3.9,133,2,2719,0)="""^DD"",660,660,104,3)"
^XMB(3.9,133,2,2720,0)="Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits"
^XMB(3.9,133,2,2721,0)="""^DD"",660,660,104,21,0)"
^XMB(3.9,133,2,2722,0)="^^2^2^3050630^"
^XMB(3.9,133,2,2723,0)="""^DD"",660,660,104,21,1,0)"
^XMB(3.9,133,2,2724,0)="This is the latest Total Cost that is held and stored for comparison "
^XMB(3.9,133,2,2725,0)="""^DD"",660,660,104,21,2,0)"
^XMB(3.9,133,2,2726,0)="during the account updates for the PFSS project."
^XMB(3.9,133,2,2727,0)="""^DD"",660,660,104,""DT"")"
^XMB(3.9,133,2,2728,0)="3050630"
^XMB(3.9,133,2,2729,0)="""^DD"",660,660,105,0)"
^XMB(3.9,133,2,2730,0)="LATEST ORDERING PROVIDER^P200'^VA(200,^PFSS;6^Q"
^XMB(3.9,133,2,2731,0)="""^DD"",660,660,105,21,0)"
^XMB(3.9,133,2,2732,0)="^^2^2^3050630^"
^XMB(3.9,133,2,2733,0)="""^DD"",660,660,105,21,1,0)"
^XMB(3.9,133,2,2734,0)="This is the latest attending physician (ordering provider) that is held "
^XMB(3.9,133,2,2735,0)="""^DD"",660,660,105,21,2,0)"
^XMB(3.9,133,2,2736,0)="and stored for comparison during the account updates for the PFSS project."
^XMB(3.9,133,2,2737,0)="""^DD"",660,660,105,""DT"")"
^XMB(3.9,133,2,2738,0)="3050630"
^XMB(3.9,133,2,2739,0)="""^DD"",660,660,106,0)"
^XMB(3.9,133,2,2740,0)="PFSS ACCOUNT FLAG^S^1:READY TO PROCESS;^PFSS;7^Q"
^XMB(3.9,133,2,2741,0)="""^DD"",660,660,106,1,0)"
^XMB(3.9,133,2,2742,0)="^.1^^-1"
^XMB(3.9,133,2,2743,0)="""^DD"",660,660,106,1,1,0)"
^XMB(3.9,133,2,2744,0)="660^APH"
^XMB(3.9,133,2,2745,0)="""^DD"",660,660,106,1,1,1)"
^XMB(3.9,133,2,2746,0)="S ^RMPR(660,""APH"",$E(X,1,30),DA)="""""
^XMB(3.9,133,2,2747,0)="""^DD"",660,660,106,1,1,2)"
^XMB(3.9,133,2,2748,0)="K ^RMPR(660,""APH"",$E(X,1,30),DA)"
^XMB(3.9,133,2,2749,0)="""^DD"",660,660,106,1,1,""DT"")"
^XMB(3.9,133,2,2750,0)="3050701"
^XMB(3.9,133,2,2751,0)="""^DD"",660,660,106,5,1,0)"
^XMB(3.9,133,2,2752,0)="660^4.5^3"
^XMB(3.9,133,2,2753,0)="""^DD"",660,660,106,5,2,0)"
^XMB(3.9,133,2,2754,0)="660^.01^3"
^XMB(3.9,133,2,2755,0)="""^DD"",660,660,106,21,0)"
^XMB(3.9,133,2,2756,0)="^.001^2^2^3050713^^^"
^XMB(3.9,133,2,2757,0)="""^DD"",660,660,106,21,1,0)"
^XMB(3.9,133,2,2758,0)="Flag for ready to process PFSS Account Creation/Pre-Certification. "
^XMB(3.9,133,2,2759,0)="""^DD"",660,660,106,21,2,0)"
^XMB(3.9,133,2,2760,0)="1 = Ready to process"
^XMB(3.9,133,2,2761,0)="""^DD"",660,660,106,""DT"")"
^XMB(3.9,133,2,2762,0)="3051027"
^XMB(3.9,133,2,2763,0)="""^DD"",660,660,107,0)"
^XMB(3.9,133,2,2764,0)="PFSS CHARGE FLAG^S^1:READY TO PROCESS;^PFSS;8^Q"
^XMB(3.9,133,2,2765,0)="""^DD"",660,660,107,1,0)"
^XMB(3.9,133,2,2766,0)="^.1"
^XMB(3.9,133,2,2767,0)="""^DD"",660,660,107,1,1,0)"
^XMB(3.9,133,2,2768,0)="660^APD"
^XMB(3.9,133,2,2769,0)="""^DD"",660,660,107,1,1,1)"
^XMB(3.9,133,2,2770,0)="S ^RMPR(660,""APD"",$E(X,1,30),DA)="""""
^XMB(3.9,133,2,2771,0)="""^DD"",660,660,107,1,1,2)"
^XMB(3.9,133,2,2772,0)="K ^RMPR(660,""APD"",$E(X,1,30),DA)"
^XMB(3.9,133,2,2773,0)="""^DD"",660,660,107,1,1,""DT"")"
^XMB(3.9,133,2,2774,0)="3050713"
^XMB(3.9,133,2,2775,0)="""^DD"",660,660,107,5,1,0)"
^XMB(3.9,133,2,2776,0)="660^4.5^4"
^XMB(3.9,133,2,2777,0)="""^DD"",660,660,107,5,2,0)"
^XMB(3.9,133,2,2778,0)="660^5^1"
^XMB(3.9,133,2,2779,0)="""^DD"",660,660,107,5,3,0)"
^XMB(3.9,133,2,2780,0)="660^14^1"
^XMB(3.9,133,2,2781,0)="""^DD"",660,660,107,5,4,0)"
^XMB(3.9,133,2,2782,0)="660^8.6^1"
^XMB(3.9,133,2,2783,0)="""^DD"",660,660,107,5,5,0)"
^XMB(3.9,133,2,2784,0)="660^10^2"
^XMB(3.9,133,2,2785,0)="""^DD"",660,660,107,21,0)"
^XMB(3.9,133,2,2786,0)="^^1^1^3050713^"
^XMB(3.9,133,2,2787,0)="""^DD"",660,660,107,21,1,0)"
^XMB(3.9,133,2,2788,0)="Flag for ready to process PFSS Charge message. 1 = Ready to process"
^XMB(3.9,133,2,2789,0)="""^DD"",660,660,107,""DT"")"
^XMB(3.9,133,2,2790,0)="3050713"
^XMB(3.9,133,2,2791,0)="""^DD"",665,665,19.3,0)"
^XMB(3.9,133,2,2792,0)="HOME OXYGEN PRESCRIPTION^665.193DA^^RMPOB;0"
^XMB(3.9,133,2,2793,0)="""^DD"",665,665,19.3,21,0)"
^XMB(3.9,133,2,2794,0)="^.001^2^2^3051219^^^^"
^XMB(3.9,133,2,2795,0)="""^DD"",665,665,19.3,21,1,0)"
^XMB(3.9,133,2,2796,0)="Contains data specific to this prescription such as the dates, items,"
^XMB(3.9,133,2,2797,0)="""^DD"",665,665,19.3,21,2,0)"
^XMB(3.9,133,2,2798,0)="services, vendors, quantity, cost, etc."
^XMB(3.9,133,2,2799,0)="""^DD"",665,665,19.3,""DT"")"
^XMB(3.9,133,2,2800,0)="2981109"
^XMB(3.9,133,2,2801,0)="""^DD"",665,665,19.4,0)"
^XMB(3.9,133,2,2802,0)="HOME OXYGEN ITEM^665.194IP^^RMPOC;0^^^"
^XMB(3.9,133,2,2803,0)="""^DD"",665,665,19.4,""DT"")"
^XMB(3.9,133,2,2804,0)="2981109"
^XMB(3.9,133,2,2805,0)="""^DD"",665,665.193,0)"
^XMB(3.9,133,2,2806,0)="HOME OXYGEN PRESCRIPTION SUB-FIELD^^101^38"
^XMB(3.9,133,2,2807,0)="""^DD"",665,665.193,0,""NM"",""HOME OXYGEN PRESCRIPTION"")"
^XMB(3.9,133,2,2808,0)=""
^XMB(3.9,133,2,2809,0)="""^DD"",665,665.193,.01,0)"
^XMB(3.9,133,2,2810,0)="DATE^D^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,133,2,2811,0)="""^DD"",665,665.193,.01,1,0)"
^XMB(3.9,133,2,2812,0)="^.1"
^XMB(3.9,133,2,2813,0)="""^DD"",665,665.193,.01,1,1,0)"
^XMB(3.9,133,2,2814,0)="665.193^B"
^XMB(3.9,133,2,2815,0)="""^DD"",665,665.193,.01,1,1,1)"
^XMB(3.9,133,2,2816,0)="S ^RMPR(665,DA(1),""RMPOB"",""B"",$E(X,1,30),DA)="""""
^XMB(3.9,133,2,2817,0)="""^DD"",665,665.193,.01,1,1,2)"
^XMB(3.9,133,2,2818,0)="K ^RMPR(665,DA(1),""RMPOB"",""B"",$E(X,1,30),DA)"
^XMB(3.9,133,2,2819,0)="""^DD"",665,665.193,.01,1,2,0)"
^XMB(3.9,133,2,2820,0)="665.193^APTASK^MUMPS"
^XMB(3.9,133,2,2821,0)="""^DD"",665,665.193,.01,1,2,1)"
^XMB(3.9,133,2,2822,0)="Q"
^XMB(3.9,133,2,2823,0)="""^DD"",665,665.193,.01,1,2,2)"
^XMB(3.9,133,2,2824,0)="D ACCTTASK^RMPOPF"
^XMB(3.9,133,2,2825,0)="""^DD"",665,665.193,.01,1,2,""DT"")"
^XMB(3.9,133,2,2826,0)="3050726"
^XMB(3.9,133,2,2827,0)="""^DD"",665,665.193,.01,1,3,0)"
^XMB(3.9,133,2,2828,0)="^^TRIGGER^665.193^100"
^XMB(3.9,133,2,2829,0)="""^DD"",665,665.193,.01,1,3,1)"
^XMB(3.9,133,2,2830,0)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^RMPR(665,D0,""RMPOB"",D1,""PFSS"")):^(""PFSS""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=$S(+$$SWSTAT^IBBAPI():1,1:"""") X ^DD(665.193,.01,1,3,1.4)"
^XMB(3.9,133,2,2831,0)="""^DD"",665,665.193,.01,1,3,1.4)"
^XMB(3.9,133,2,2832,0)="S DIH=$G(^RMPR(665,DIV(0),""RMPOB"",DIV(1),""PFSS"")),DIV=X S $P(^(""PFSS""),U,1)=DIV,DIH=665.193,DIG=100 D ^DICR"
^XMB(3.9,133,2,2833,0)="""^DD"",665,665.193,.01,1,3,2)"
^XMB(3.9,133,2,2834,0)="Q"
^XMB(3.9,133,2,2835,0)="""^DD"",665,665.193,.01,1,3,""CREATE VALUE"")"
^XMB(3.9,133,2,2836,0)="S X=$S(+$$SWSTAT^IBBAPI():1,1:"""")"
^XMB(3.9,133,2,2837,0)="""^DD"",665,665.193,.01,1,3,""DELETE VALUE"")"
^XMB(3.9,133,2,2838,0)="NO EFFECT"
^XMB(3.9,133,2,2839,0)="""^DD"",665,665.193,.01,1,3,""DT"")"
^XMB(3.9,133,2,2840,0)="3051028"
^XMB(3.9,133,2,2841,0)="""^DD"",665,665.193,.01,1,3,""FIELD"")"
^XMB(3.9,133,2,2842,0)="PFSS NEW PRESCRIPTION FLAG"
^XMB(3.9,133,2,2843,0)="""^DD"",665,665.193,.01,3)"
^XMB(3.9,133,2,2844,0)="Enter the date that the prescription was written or received."
^XMB(3.9,133,2,2845,0)="""^DD"",665,665.193,.01,21,0)"
^XMB(3.9,133,2,2846,0)="^.001^1^1^3051025^^^"
^XMB(3.9,133,2,2847,0)="""^DD"",665,665.193,.01,21,1,0)"
^XMB(3.9,133,2,2848,0)="Enter the date the prescription was written."
^XMB(3.9,133,2,2849,0)="""^DD"",665,665.193,.01,23,0)"
^XMB(3.9,133,2,2850,0)="2^.001^2^2^3051025^^^^"
^XMB(3.9,133,2,2851,0)="""^DD"",665,665.193,.01,23,1,0)"
^XMB(3.9,133,2,2852,0)="This field is match to the ""Days to Expiration"" field in the Prosthetics"
^XMB(3.9,133,2,2853,0)="""^DD"",665,665.193,.01,23,2,0)"
^XMB(3.9,133,2,2854,0)="Site Parameters file."
^XMB(3.9,133,2,2855,0)="""^DD"",665,665.193,.01,""DT"")"
^XMB(3.9,133,2,2856,0)="3051028"
^XMB(3.9,133,2,2857,0)="""^DD"",665,665.193,30,0)"
^XMB(3.9,133,2,2858,0)="PRIMARY ICD DIAGNOSIS CODE^P80'^ICD9(^BA1;1^Q"
^XMB(3.9,133,2,2859,0)="""^DD"",665,665.193,30,3)"
^XMB(3.9,133,2,2860,0)="Enter pointer to ICD DIAGNOSIS FILE (#80)"
^XMB(3.9,133,2,2861,0)="""^DD"",665,665.193,30,21,0)"
^XMB(3.9,133,2,2862,0)="^.001^1^1^3051129^^^"
^XMB(3.9,133,2,2863,0)="""^DD"",665,665.193,30,21,1,0)"
^XMB(3.9,133,2,2864,0)="Primary ICD from the consult.  Associated with the prescription."
^XMB(3.9,133,2,2865,0)="""^DD"",665,665.193,30,""DT"")"
^XMB(3.9,133,2,2866,0)="3051129"
^XMB(3.9,133,2,2867,0)="""^DD"",665,665.193,30.1,0)"
^XMB(3.9,133,2,2868,0)="PRIMARY AGENT ORANGE^S^0:NO;1:YES;^BA1;2^Q"
^XMB(3.9,133,2,2869,0)="""^DD"",665,665.193,30.1,3)"
^XMB(3.9,133,2,2870,0)="Enter 'Y'es if Primary diagnosis is related to Agent Orange exposure."
^XMB(3.9,133,2,2871,0)="""^DD"",665,665.193,30.1,21,0)"
^XMB(3.9,133,2,2872,0)="^^1^1^3051129^^"
^XMB(3.9,133,2,2873,0)="""^DD"",665,665.193,30.1,21,1,0)"
^XMB(3.9,133,2,2874,0)="Primary diagnosis is related to Agent Orange exposure."
^XMB(3.9,133,2,2875,0)="""^DD"",665,665.193,30.1,""DT"")"
^XMB(3.9,133,2,2876,0)="3051129"
^XMB(3.9,133,2,2877,0)="""^DD"",665,665.193,30.2,0)"
^XMB(3.9,133,2,2878,0)="PRIMARY IONIZED RADIATION^S^0:NO;1:YES;^BA1;3^Q"
^XMB(3.9,133,2,2879,0)="""^DD"",665,665.193,30.2,3)"
^XMB(3.9,133,2,2880,0)="Enter 'Y'es if primary diagnosis is related to Ionized Radiation exposure."
^XMB(3.9,133,2,2881,0)="""^DD"",665,665.193,30.2,21,0)"
^XMB(3.9,133,2,2882,0)="^^1^1^3051129^^"
^XMB(3.9,133,2,2883,0)="""^DD"",665,665.193,30.2,21,1,0)"
^XMB(3.9,133,2,2884,0)="Primary diagnosis is related to Ionized Radiation exposure."
^XMB(3.9,133,2,2885,0)="""^DD"",665,665.193,30.2,""DT"")"
^XMB(3.9,133,2,2886,0)="3051129"
^XMB(3.9,133,2,2887,0)="""^DD"",665,665.193,30.3,0)"
^XMB(3.9,133,2,2888,0)="PRIMARY SERVICE CONNECTED^S^0:NO;1:YES;^BA1;4^Q"
^XMB(3.9,133,2,2889,0)="""^DD"",665,665.193,30.3,3)"
^XMB(3.9,133,2,2890,0)="Enter 'Y'es if primary diagnosis is related to a Service Connected condition."
^XMB(3.9,133,2,2891,0)="""^DD"",665,665.193,30.3,21,0)"
^XMB(3.9,133,2,2892,0)="^^1^1^3051129^"
^XMB(3.9,133,2,2893,0)="""^DD"",665,665.193,30.3,21,1,0)"
^XMB(3.9,133,2,2894,0)="Primary diagnosis is related to a Service Connected condition."
^XMB(3.9,133,2,2895,0)="""^DD"",665,665.193,30.3,""DT"")"
^XMB(3.9,133,2,2896,0)="3051129"
^XMB(3.9,133,2,2897,0)="""^DD"",665,665.193,30.4,0)"
^XMB(3.9,133,2,2898,0)="PRIMARY ENVIRONMENTAL CONT.^S^0:NO;1:YES;^BA1;5^Q"
^XMB(3.9,133,2,2899,0)="""^DD"",665,665.193,30.4,3)"
^XMB(3.9,133,2,2900,0)="Enter 'Y'es if primary diagnosis is related to Environmental Contaminants exposure."
^XMB(3.9,133,2,2901,0)="""^DD"",665,665.193,30.4,21,0)"
^XMB(3.9,133,2,2902,0)="^^1^1^3051129^"
^XMB(3.9,133,2,2903,0)="""^DD"",665,665.193,30.4,21,1,0)"
^XMB(3.9,133,2,2904,0)="Primary diagnosis is related to Environmental Contaminants exposure."
^XMB(3.9,133,2,2905,0)="""^DD"",665,665.193,30.4,""DT"")"
^XMB(3.9,133,2,2906,0)="3051129"
^XMB(3.9,133,2,2907,0)="""^DD"",665,665.193,30.5,0)"
^XMB(3.9,133,2,2908,0)="PRIMARY MST^S^0:NO;1:YES;^BA1;6^Q"
^XMB(3.9,133,2,2909,0)="""^DD"",665,665.193,30.5,3)"
^XMB(3.9,133,2,2910,0)="Enter 'Y'es if primary diagnosis is related to Military Sexual Trauma."
^XMB(3.9,133,2,2911,0)="""^DD"",665,665.193,30.5,21,0)"
^XMB(3.9,133,2,2912,0)="^^1^1^3051129^"
^XMB(3.9,133,2,2913,0)="""^DD"",665,665.193,30.5,21,1,0)"
^XMB(3.9,133,2,2914,0)="Primary diagnosis is related to Military Sexual Trauma."
^XMB(3.9,133,2,2915,0)="""^DD"",665,665.193,30.5,""DT"")"
^XMB(3.9,133,2,2916,0)="3051129"
^XMB(3.9,133,2,2917,0)="""^DD"",665,665.193,30.6,0)"
^XMB(3.9,133,2,2918,0)="PRIMARY HEAD/NECK CANCER^S^0:NO;1:YES;^BA1;7^Q"
^XMB(3.9,133,2,2919,0)="""^DD"",665,665.193,30.6,3)"
^XMB(3.9,133,2,2920,0)="Enter 'Y'es if primary diagnosis is related to Head/Neck Cancer."
^XMB(3.9,133,2,2921,0)="""^DD"",665,665.193,30.6,21,0)"
^XMB(3.9,133,2,2922,0)="^^1^1^3051129^"
^XMB(3.9,133,2,2923,0)="""^DD"",665,665.193,30.6,21,1,0)"
^XMB(3.9,133,2,2924,0)="Primary diagnosis is related to Head/Neck Cancer."
^XMB(3.9,133,2,2925,0)="""^DD"",665,665.193,30.6,""DT"")"
^XMB(3.9,133,2,2926,0)="3051129"
^XMB(3.9,133,2,2927,0)="""^DD"",665,665.193,30.7,0)"
^XMB(3.9,133,2,2928,0)="PRIMARY COMBAT VET^S^0:NO;1:YES;^BA1;8^Q"
^XMB(3.9,133,2,2929,0)="""^DD"",665,665.193,30.7,3)"
^XMB(3.9,133,2,2930,0)="Enter 'Y'es if primary diagnosis is related to Combat."
^XMB(3.9,133,2,2931,0)="""^DD"",665,665.193,30.7,21,0)"
^XMB(3.9,133,2,2932,0)="^^1^1^3051129^"
^XMB(3.9,133,2,2933,0)="""^DD"",665,665.193,30.7,21,1,0)"
^XMB(3.9,133,2,2934,0)="Primary diagnosis is related to Combat."
^XMB(3.9,133,2,2935,0)="""^DD"",665,665.193,30.7,""DT"")"
^XMB(3.9,133,2,2936,0)="3051129"
^XMB(3.9,133,2,2937,0)="""^DD"",665,665.193,31,0)"
^XMB(3.9,133,2,2938,0)="SECONDARY ICD DIAGNOSIS CODE 1^P80'^ICD9(^BA2;1^Q"
^XMB(3.9,133,2,2939,0)="""^DD"",665,665.193,31,3)"
^XMB(3.9,133,2,2940,0)="Enter the pointer to the ICD Diagnosis file (#80) for the Secondary Diagnosis code 1."
^XMB(3.9,133,2,2941,0)="""^DD"",665,665.193,31,21,0)"
^XMB(3.9,133,2,2942,0)="^.001^1^1^3051129^^^"
^XMB(3.9,133,2,2943,0)="""^DD"",665,665.193,31,21,1,0)"
^XMB(3.9,133,2,2944,0)="A secondary ICD from the consult. Associated with the prescription."
^XMB(3.9,133,2,2945,0)="""^DD"",665,665.193,31,""DT"")"
^XMB(3.9,133,2,2946,0)="3051129"
^XMB(3.9,133,2,2947,0)="""^DD"",665,665.193,31.1,0)"
^XMB(3.9,133,2,2948,0)="SECONDARY AGENT ORANGE 1^S^0:NO;1:YES;^BA2;2^Q"
^XMB(3.9,133,2,2949,0)="""^DD"",665,665.193,31.1,3)"
^XMB(3.9,133,2,2950,0)="Enter 'Y'es if Secondary diagnosis 1 is related to Agent Orange exposure."
^XMB(3.9,133,2,2951,0)="""^DD"",665,665.193,31.1,21,0)"
^XMB(3.9,133,2,2952,0)="^.001^1^1^3051129^^^"
^XMB(3.9,133,2,2953,0)="""^DD"",665,665.193,31.1,21,1,0)"
^XMB(3.9,133,2,2954,0)="A secondary agent orange from the consult."
^XMB(3.9,133,2,2955,0)="""^DD"",665,665.193,31.1,""DT"")"
^XMB(3.9,133,2,2956,0)="3051129"
^XMB(3.9,133,2,2957,0)="""^DD"",665,665.193,31.2,0)"
^XMB(3.9,133,2,2958,0)="SECONDARY IONIZED RADIATION 1^S^0:NO;1:YES;^BA2;3^Q"
^XMB(3.9,133,2,2959,0)="""^DD"",665,665.193,31.2,3)"
^XMB(3.9,133,2,2960,0)="Enter 'Y'es if Secondary diagnosis 1 is related to Ionized Radiation exposure."
^XMB(3.9,133,2,2961,0)="""^DD"",665,665.193,31.2,21,0)"
^XMB(3.9,133,2,2962,0)="^^1^1^3051129^"
^XMB(3.9,133,2,2963,0)="""^DD"",665,665.193,31.2,21,1,0)"
^XMB(3.9,133,2,2964,0)="Secondary diagnosis 1 is related to Ionized Radiation exposure."
^XMB(3.9,133,2,2965,0)="""^DD"",665,665.193,31.2,""DT"")"
^XMB(3.9,133,2,2966,0)="3051129"
^XMB(3.9,133,2,2967,0)="""^DD"",665,665.193,31.3,0)"
^XMB(3.9,133,2,2968,0)="SECONDARY SERVICE CONNECTED 1^S^0:NO;1:YES;^BA2;4^Q"
^XMB(3.9,133,2,2969,0)="""^DD"",665,665.193,31.3,3)"
^XMB(3.9,133,2,2970,0)="Enter 'Y'es if Secondary diagnosis 1 is related to a Service Connected condition."
^XMB(3.9,133,2,2971,0)="""^DD"",665,665.193,31.3,21,0)"
^XMB(3.9,133,2,2972,0)="^.001^1^1^3051213^^"
^XMB(3.9,133,2,2973,0)="""^DD"",665,665.193,31.3,21,1,0)"
^XMB(3.9,133,2,2974,0)="Secondary diagnosis 1 is related to a Service Connected condition."
^XMB(3.9,133,2,2975,0)="""^DD"",665,665.193,31.3,""DT"")"
^XMB(3.9,133,2,2976,0)="3051129"
^XMB(3.9,133,2,2977,0)="""^DD"",665,665.193,31.4,0)"
^XMB(3.9,133,2,2978,0)="SECONDARY ENVIRONMENTAL CONT 1^S^0:NO;1:YES;^BA2;5^Q"
^XMB(3.9,133,2,2979,0)="""^DD"",665,665.193,31.4,3)"
^XMB(3.9,133,2,2980,0)="Enter 'Y'es if Secondary diagnosis 1 is related to Environmental Contaminants exposure."
^XMB(3.9,133,2,2981,0)="""^DD"",665,665.193,31.4,21,0)"
^XMB(3.9,133,2,2982,0)="^.001^1^1^3051216^^"
^XMB(3.9,133,2,2983,0)="""^DD"",665,665.193,31.4,21,1,0)"
^XMB(3.9,133,2,2984,0)="Secondary diagnosis 1 is related to Environmental Contaminants exposure."
^XMB(3.9,133,2,2985,0)="""^DD"",665,665.193,31.4,""DT"")"
^XMB(3.9,133,2,2986,0)="3050819"
^XMB(3.9,133,2,2987,0)="""^DD"",665,665.193,31.5,0)"
^XMB(3.9,133,2,2988,0)="SECONDARY MST 1^S^0:NO;1:YES;^BA2;6^Q"
^XMB(3.9,133,2,2989,0)="""^DD"",665,665.193,31.5,3)"
^XMB(3.9,133,2,2990,0)="Enter 'Y'es if Secondary diagnosis 1 is related to Miltary Sexual Trauma."
^XMB(3.9,133,2,2991,0)="""^DD"",665,665.193,31.5,21,0)"
^XMB(3.9,133,2,2992,0)="^.001^1^1^3051216^^"
^XMB(3.9,133,2,2993,0)="""^DD"",665,665.193,31.5,21,1,0)"
^XMB(3.9,133,2,2994,0)="Secondary diagnosis 1 is related to Military Sexual Trauma."
^XMB(3.9,133,2,2995,0)="""^DD"",665,665.193,31.5,""DT"")"
^XMB(3.9,133,2,2996,0)="3050819"
^XMB(3.9,133,2,2997,0)="""^DD"",665,665.193,31.6,0)"
^XMB(3.9,133,2,2998,0)="SECONDARY HEAD/NECK CANCER 1^S^0:NO;1:YES;^BA2;7^Q"
^XMB(3.9,133,2,2999,0)="""^DD"",665,665.193,31.6,3)"
^XMB(3.9,133,2,3000,0)="Enter 'Y'es if Secondary diagnosis 1 is related to Head/Neck Cancer."
^XMB(3.9,133,2,3001,0)="""^DD"",665,665.193,31.6,21,0)"
^XMB(3.9,133,2,3002,0)="^^1^1^3051216^"
^XMB(3.9,133,2,3003,0)="""^DD"",665,665.193,31.6,21,1,0)"
^XMB(3.9,133,2,3004,0)="Secondary diagnosis 1 is related to Head/Neck Cancer."
^XMB(3.9,133,2,3005,0)="""^DD"",665,665.193,31.6,""DT"")"
^XMB(3.9,133,2,3006,0)="3050819"
^XMB(3.9,133,2,3007,0)="""^DD"",665,665.193,31.7,0)"
^XMB(3.9,133,2,3008,0)="SECONDARY COMBAT VET 1^S^0:NO;1:YES;^BA2;8^Q"
^XMB(3.9,133,2,3009,0)="""^DD"",665,665.193,31.7,3)"
^XMB(3.9,133,2,3010,0)="Enter 'Y'es if Secondary diagnosis 1 is related to Combat."
^XMB(3.9,133,2,3011,0)="""^DD"",665,665.193,31.7,21,0)"
^XMB(3.9,133,2,3012,0)="^^1^1^3051216^"
^XMB(3.9,133,2,3013,0)="""^DD"",665,665.193,31.7,21,1,0)"
^XMB(3.9,133,2,3014,0)="Secondary diagnosis 1 is related to Combat."
^XMB(3.9,133,2,3015,0)="""^DD"",665,665.193,31.7,""DT"")"
^XMB(3.9,133,2,3016,0)="3050819"
^XMB(3.9,133,2,3017,0)="""^DD"",665,665.193,32,0)"
^XMB(3.9,133,2,3018,0)="SECONDARY ICD DIAGNOSIS CODE 2^P80'^ICD9(^BA3;1^Q"
^XMB(3.9,133,2,3019,0)="""^DD"",665,665.193,32,3)"
^XMB(3.9,133,2,3020,0)="Enter pointer to ICD Diagnosis file (#80) for Secondary diagnosis code 2."
^XMB(3.9,133,2,3021,0)="""^DD"",665,665.193,32,21,0)"
^XMB(3.9,133,2,3022,0)="^.001^1^1^3051216^^"
^XMB(3.9,133,2,3023,0)="""^DD"",665,665.193,32,21,1,0)"
^XMB(3.9,133,2,3024,0)="A secondary ICD from the consult.  Associated with the prescription."
^XMB(3.9,133,2,3025,0)="""^DD"",665,665.193,32,""DT"")"
^XMB(3.9,133,2,3026,0)="3050818"
^XMB(3.9,133,2,3027,0)="""^DD"",665,665.193,32.1,0)"
^XMB(3.9,133,2,3028,0)="SECONDARY AGENT ORANGE 2^S^0:NO;1:YES;^BA3;2^Q"
^XMB(3.9,133,2,3029,0)="""^DD"",665,665.193,32.1,3)"
^XMB(3.9,133,2,3030,0)="Enter 'Y'es if Secondary diagnosis 2 is related to Agent Orange exposure."
^XMB(3.9,133,2,3031,0)="""^DD"",665,665.193,32.1,21,0)"
^XMB(3.9,133,2,3032,0)="^^1^1^3051216^"
^XMB(3.9,133,2,3033,0)="""^DD"",665,665.193,32.1,21,1,0)"
^XMB(3.9,133,2,3034,0)="Secondary diagnosis 2 is related to Agent Orange exposure."
^XMB(3.9,133,2,3035,0)="""^DD"",665,665.193,32.1,""DT"")"
^XMB(3.9,133,2,3036,0)="3050819"
^XMB(3.9,133,2,3037,0)="""^DD"",665,665.193,32.2,0)"
^XMB(3.9,133,2,3038,0)="SECONDARY IONIZED RADIATION 2^S^0:NO;1:YES;^BA3;3^Q"
^XMB(3.9,133,2,3039,0)="""^DD"",665,665.193,32.2,3)"
^XMB(3.9,133,2,3040,0)="Enter 'Y'es if Secondary diagnosis 2 is related to Ionized Radiation exposure."
^XMB(3.9,133,2,3041,0)="""^DD"",665,665.193,32.2,21,0)"
^XMB(3.9,133,2,3042,0)="^^1^1^3051219^"
^XMB(3.9,133,2,3043,0)="""^DD"",665,665.193,32.2,21,1,0)"
^XMB(3.9,133,2,3044,0)="Secondary diagnosis 2 is related to Ionized Radiation exposure."
^XMB(3.9,133,2,3045,0)="""^DD"",665,665.193,32.2,""DT"")"
^XMB(3.9,133,2,3046,0)="3051219"
^XMB(3.9,133,2,3047,0)="""^DD"",665,665.193,32.3,0)"
^XMB(3.9,133,2,3048,0)="SECONDARY SERVICE CONNECTED 2^S^0:NO;1:YES;^BA3;4^Q"
^XMB(3.9,133,2,3049,0)="""^DD"",665,665.193,32.3,3)"
^XMB(3.9,133,2,3050,0)="Enter 'Y'es if Secondary diagnosis 2 is related to a Service Connected condition."
^XMB(3.9,133,2,3051,0)="""^DD"",665,665.193,32.3,21,0)"
^XMB(3.9,133,2,3052,0)="^^1^1^3051219^"
^XMB(3.9,133,2,3053,0)="""^DD"",665,665.193,32.3,21,1,0)"
^XMB(3.9,133,2,3054,0)="Secondary diagnosis 2 is related to a Service Connected condition."
^XMB(3.9,133,2,3055,0)="""^DD"",665,665.193,32.3,""DT"")"
^XMB(3.9,133,2,3056,0)="3051219"
^XMB(3.9,133,2,3057,0)="""^DD"",665,665.193,32.4,0)"
^XMB(3.9,133,2,3058,0)="SECONDARY ENVIRONMENTAL CONT 2^S^0:NO;1:YES;^BA3;5^Q"
^XMB(3.9,133,2,3059,0)="""^DD"",665,665.193,32.4,3)"
^XMB(3.9,133,2,3060,0)="Enter 'Y'es if Secondary diagnosis 2 is related to Environmental Contaminants exposure."
^XMB(3.9,133,2,3061,0)="""^DD"",665,665.193,32.4,21,0)"
^XMB(3.9,133,2,3062,0)="^^1^1^3051219^"
^XMB(3.9,133,2,3063,0)="""^DD"",665,665.193,32.4,21,1,0)"
^XMB(3.9,133,2,3064,0)="Secondary diagnosis 2 is related to Environmental Contaminants exposure."
^XMB(3.9,133,2,3065,0)="""^DD"",665,665.193,32.4,""DT"")"
^XMB(3.9,133,2,3066,0)="3051219"
^XMB(3.9,133,2,3067,0)="""^DD"",665,665.193,32.5,0)"
^XMB(3.9,133,2,3068,0)="SECONDARY MST 2^S^0:NO;1:YES;^BA3;6^Q"
^XMB(3.9,133,2,3069,0)="""^DD"",665,665.193,32.5,3)"
^XMB(3.9,133,2,3070,0)="Enter 'Y'es if Secondary diagnosis 2 is related to Military Sexual Trauma."
^XMB(3.9,133,2,3071,0)="""^DD"",665,665.193,32.5,21,0)"
^XMB(3.9,133,2,3072,0)="^^1^1^3051220^"
^XMB(3.9,133,2,3073,0)="""^DD"",665,665.193,32.5,21,1,0)"
^XMB(3.9,133,2,3074,0)="Secondary diagnosis 2 is related to Military Sexual Trauma."
^XMB(3.9,133,2,3075,0)="""^DD"",665,665.193,32.5,""DT"")"
^XMB(3.9,133,2,3076,0)="3051220"
^XMB(3.9,133,2,3077,0)="""^DD"",665,665.193,32.6,0)"
^XMB(3.9,133,2,3078,0)="SECONDARY HEAD/NECK CANCER 2^S^0:NO;1:YES;^BA3;7^Q"
^XMB(3.9,133,2,3079,0)="""^DD"",665,665.193,32.6,3)"
^XMB(3.9,133,2,3080,0)="Enter 'Y'es if Secondary diagnosis 2 is related to Head/Neck Cancer."
^XMB(3.9,133,2,3081,0)="""^DD"",665,665.193,32.6,21,0)"
^XMB(3.9,133,2,3082,0)="^^1^1^3051220^"
^XMB(3.9,133,2,3083,0)="""^DD"",665,665.193,32.6,21,1,0)"
^XMB(3.9,133,2,3084,0)="Secondary diagnosis 2 is related to Head/Neck Cancer."
^XMB(3.9,133,2,3085,0)="""^DD"",665,665.193,32.6,""DT"")"
^XMB(3.9,133,2,3086,0)="3051220"
^XMB(3.9,133,2,3087,0)="""^DD"",665,665.193,32.7,0)"
^XMB(3.9,133,2,3088,0)="SECONDARY COMBAT VET 2^S^0:NO;1:YES;^BA3;8^Q"
^XMB(3.9,133,2,3089,0)="""^DD"",665,665.193,32.7,3)"
^XMB(3.9,133,2,3090,0)="Enter 'Y'es if Secondary diagnosis 2 is related to Combat."
^XMB(3.9,133,2,3091,0)="""^DD"",665,665.193,32.7,21,0)"
^XMB(3.9,133,2,3092,0)="^^1^1^3051220^"
^XMB(3.9,133,2,3093,0)="""^DD"",665,665.193,32.7,21,1,0)"
^XMB(3.9,133,2,3094,0)="Secondary diagnosis 2 is related to Combat."
^XMB(3.9,133,2,3095,0)="""^DD"",665,665.193,32.7,""DT"")"
^XMB(3.9,133,2,3096,0)="3051220"
^XMB(3.9,133,2,3097,0)="""^DD"",665,665.193,33,0)"
^XMB(3.9,133,2,3098,0)="SECONDARY ICD DIAGNOSIS CODE 3^P80'^ICD9(^BA4;1^Q"
^XMB(3.9,133,2,3099,0)="""^DD"",665,665.193,33,3)"
^XMB(3.9,133,2,3100,0)="Enter an ICD Diagnosis for the secondary diagnosis code 3."
^XMB(3.9,133,2,3101,0)="""^DD"",665,665.193,33,21,0)"
^XMB(3.9,133,2,3102,0)="^^1^1^3051220^^"
^XMB(3.9,133,2,3103,0)="""^DD"",665,665.193,33,21,1,0)"
^XMB(3.9,133,2,3104,0)="A secondary ICD from the consult.  Associated with the prescription."
^XMB(3.9,133,2,3105,0)="""^DD"",665,665.193,33,""DT"")"
^XMB(3.9,133,2,3106,0)="3051220"
^XMB(3.9,133,2,3107,0)="""^DD"",665,665.193,33.1,0)"
^XMB(3.9,133,2,3108,0)="SECONDARY AGENT ORANGE 3^S^0:NO;1:YES;^BA4;2^Q"
^XMB(3.9,133,2,3109,0)="""^DD"",665,665.193,33.1,3)"
^XMB(3.9,133,2,3110,0)="Enter 'Y'es if Secondary diagnosis 3 is related to Agent Orange exposure."
^XMB(3.9,133,2,3111,0)="""^DD"",665,665.193,33.1,21,0)"
^XMB(3.9,133,2,3112,0)="^^1^1^3051220^"
^XMB(3.9,133,2,3113,0)="""^DD"",665,665.193,33.1,21,1,0)"
^XMB(3.9,133,2,3114,0)="Secondary diagnosis 3 is related to Agent Orange exposure."
^XMB(3.9,133,2,3115,0)="""^DD"",665,665.193,33.1,""DT"")"
^XMB(3.9,133,2,3116,0)="3051220"
^XMB(3.9,133,2,3117,0)="""^DD"",665,665.193,33.2,0)"
^XMB(3.9,133,2,3118,0)="SECONDARY IONIZED RADIATION 3^S^0:NO;1:YES;^BA4;3^Q"
^XMB(3.9,133,2,3119,0)="""^DD"",665,665.193,33.2,3)"
^XMB(3.9,133,2,3120,0)="Enter 'Y'es if Secondary diagnosis 3 is related to Ionized Radiation exposure."
^XMB(3.9,133,2,3121,0)="""^DD"",665,665.193,33.2,21,0)"
^XMB(3.9,133,2,3122,0)="^^1^1^3051220^"
^XMB(3.9,133,2,3123,0)="""^DD"",665,665.193,33.2,21,1,0)"
^XMB(3.9,133,2,3124,0)="Secondary diagnosis 3 is related to Ionized Radiation exposure."
^XMB(3.9,133,2,3125,0)="""^DD"",665,665.193,33.2,""DT"")"
^XMB(3.9,133,2,3126,0)="3051220"
^XMB(3.9,133,2,3127,0)="""^DD"",665,665.193,33.3,0)"
^XMB(3.9,133,2,3128,0)="SECONDARY SERVICE CONNECTED 3^S^0:NO;1:YES;^BA4;4^Q"
^XMB(3.9,133,2,3129,0)="""^DD"",665,665.193,33.3,3)"
^XMB(3.9,133,2,3130,0)="Enter 'Y'es if Secondary diagnosis 3 is related to a Service Connected condition."
^XMB(3.9,133,2,3131,0)="""^DD"",665,665.193,33.3,21,0)"
^XMB(3.9,133,2,3132,0)="^^1^1^3051220^"
^XMB(3.9,133,2,3133,0)="""^DD"",665,665.193,33.3,21,1,0)"
^XMB(3.9,133,2,3134,0)="Secondary diagnosis 3 is related to a Service Connected condition."
^XMB(3.9,133,2,3135,0)="""^DD"",665,665.193,33.3,""DT"")"
^XMB(3.9,133,2,3136,0)="3051220"
^XMB(3.9,133,2,3137,0)="""^DD"",665,665.193,33.4,0)"
^XMB(3.9,133,2,3138,0)="SECONDARY ENVIRONMENTAL CONT 3^S^0:NO;1:YES;^BA4;5^Q"
^XMB(3.9,133,2,3139,0)="""^DD"",665,665.193,33.4,3)"
^XMB(3.9,133,2,3140,0)="Enter 'Y'es if Secondary diagnosis 3 is related to Environmental Contaminants exposure."
^XMB(3.9,133,2,3141,0)="""^DD"",665,665.193,33.4,21,0)"
^XMB(3.9,133,2,3142,0)="^^1^1^3051220^"
^XMB(3.9,133,2,3143,0)="""^DD"",665,665.193,33.4,21,1,0)"
^XMB(3.9,133,2,3144,0)="Secondary diagnosis 3 is related to Environmental Contaminants exposure."
^XMB(3.9,133,2,3145,0)="""^DD"",665,665.193,33.4,""DT"")"
^XMB(3.9,133,2,3146,0)="3051220"
^XMB(3.9,133,2,3147,0)="""^DD"",665,665.193,33.5,0)"
^XMB(3.9,133,2,3148,0)="SECONDARY MST 3^S^0:NO;1:YES;^BA4;6^Q"
^XMB(3.9,133,2,3149,0)="""^DD"",665,665.193,33.5,3)"
^XMB(3.9,133,2,3150,0)="Enter 'Y'es if Secondary diagnosis 3 is related to Military Sexual Trauma."
^XMB(3.9,133,2,3151,0)="""^DD"",665,665.193,33.5,21,0)"
^XMB(3.9,133,2,3152,0)="^^1^1^3051220^"
^XMB(3.9,133,2,3153,0)="""^DD"",665,665.193,33.5,21,1,0)"
^XMB(3.9,133,2,3154,0)="Secondary diagnosis 3 is related to Military Sexual Trauma."
^XMB(3.9,133,2,3155,0)="""^DD"",665,665.193,33.5,""DT"")"
^XMB(3.9,133,2,3156,0)="3051220"
^XMB(3.9,133,2,3157,0)="""^DD"",665,665.193,33.6,0)"
^XMB(3.9,133,2,3158,0)="SECONDARY HEAD/NECK CANCER 3^S^0:NO;1:YES;^BA4;7^Q"
^XMB(3.9,133,2,3159,0)="""^DD"",665,665.193,33.6,3)"
^XMB(3.9,133,2,3160,0)="Enter 'Y'es if Secondary diagnosis 3 is related to Head/Neck Cancer."
^XMB(3.9,133,2,3161,0)="""^DD"",665,665.193,33.6,21,0)"
^XMB(3.9,133,2,3162,0)="^^1^1^3051220^"
^XMB(3.9,133,2,3163,0)="""^DD"",665,665.193,33.6,21,1,0)"
^XMB(3.9,133,2,3164,0)="Secondary diagnosis 3 is related to Head/Neck Cancer."
^XMB(3.9,133,2,3165,0)="""^DD"",665,665.193,33.6,""DT"")"
^XMB(3.9,133,2,3166,0)="3051220"
^XMB(3.9,133,2,3167,0)="""^DD"",665,665.193,33.7,0)"
^XMB(3.9,133,2,3168,0)="SECONDARY COMBAT VET 3^S^0:NO;1:YES;^BA4;8^Q"
^XMB(3.9,133,2,3169,0)="""^DD"",665,665.193,33.7,3)"
^XMB(3.9,133,2,3170,0)="Enter 'Y'es if Secondary diagnosis 3 is related to Combat."
^XMB(3.9,133,2,3171,0)="""^DD"",665,665.193,33.7,21,0)"
^XMB(3.9,133,2,3172,0)="^^1^1^3051220^"
^XMB(3.9,133,2,3173,0)="""^DD"",665,665.193,33.7,21,1,0)"
^XMB(3.9,133,2,3174,0)="Secondary diagnosis 3 is related to Combat."
^XMB(3.9,133,2,3175,0)="""^DD"",665,665.193,33.7,""DT"")"
^XMB(3.9,133,2,3176,0)="3051220"
^XMB(3.9,133,2,3177,0)="""^DD"",665,665.193,100,0)"
^XMB(3.9,133,2,3178,0)="PFSS NEW PRESCRIPTION FLAG^SX^1:READY TO PROCESS;^PFSS;1^Q"
^XMB(3.9,133,2,3179,0)="""^DD"",665,665.193,100,1,0)"
^XMB(3.9,133,2,3180,0)="^.1"
^XMB(3.9,133,2,3181,0)="""^DD"",665,665.193,100,1,1,0)"
^XMB(3.9,133,2,3182,0)="665^APNEW"
^XMB(3.9,133,2,3183,0)="""^DD"",665,665.193,100,1,1,1)"
^XMB(3.9,133,2,3184,0)="S ^RMPR(665,""APNEW"",$E(X,1,30),DA(1),DA)="""""
^XMB(3.9,133,2,3185,0)="""^DD"",665,665.193,100,1,1,2)"
^XMB(3.9,133,2,3186,0)="K ^RMPR(665,""APNEW"",$E(X,1,30),DA(1),DA)"
^XMB(3.9,133,2,3187,0)="""^DD"",665,665.193,100,1,1,""DT"")"
^XMB(3.9,133,2,3188,0)="3050726"
^XMB(3.9,133,2,3189,0)="""^DD"",665,665.193,100,3)"
^XMB(3.9,133,2,3190,0)="Enter ""1"" if this is a new prescription ready for PFSS processing."
^XMB(3.9,133,2,3191,0)="""^DD"",665,665.193,100,5,1,0)"
^XMB(3.9,133,2,3192,0)="665.193^.01^3"
^XMB(3.9,133,2,3193,0)="""^DD"",665,665.193,100,21,0)"
^XMB(3.9,133,2,3194,0)="^.001^2^2^3051220^^^"
^XMB(3.9,133,2,3195,0)="""^DD"",665,665.193,100,21,1,0)"
^XMB(3.9,133,2,3196,0)="This flag indicates that a new Home Oxygen prescription has been entered "
^XMB(3.9,133,2,3197,0)="""^DD"",665,665.193,100,21,2,0)"
^XMB(3.9,133,2,3198,0)="and that pre-certification processing for this patient should begin."
^XMB(3.9,133,2,3199,0)="""^DD"",665,665.193,100,""DT"")"
^XMB(3.9,133,2,3200,0)="3051220"
^XMB(3.9,133,2,3201,0)="""^DD"",665,665.193,101,0)"
^XMB(3.9,133,2,3202,0)="REQUESTOR^P200'I^VA(200,^PFSS;2^Q"
^XMB(3.9,133,2,3203,0)="""^DD"",665,665.193,101,3)"
^XMB(3.9,133,2,3204,0)="Enter the person that initiated the consult for this prescription."
^XMB(3.9,133,2,3205,0)="""^DD"",665,665.193,101,21,0)"
^XMB(3.9,133,2,3206,0)="^^2^2^3051220^^"
^XMB(3.9,133,2,3207,0)="""^DD"",665,665.193,101,21,1,0)"
^XMB(3.9,133,2,3208,0)="Person that performed the initial consult request. Pointer to file #200.  "
^XMB(3.9,133,2,3209,0)="""^DD"",665,665.193,101,21,2,0)"
^XMB(3.9,133,2,3210,0)="Associated with the prescription."
^XMB(3.9,133,2,3211,0)="""^DD"",665,665.193,101,""DT"")"
^XMB(3.9,133,2,3212,0)="3051220"
^XMB(3.9,133,2,3213,0)="""^DD"",665,665.194,0)"
^XMB(3.9,133,2,3214,0)="HOME OXYGEN ITEM SUB-FIELD^^101^15"
^XMB(3.9,133,2,3215,0)="""^DD"",665,665.194,0,""NM"",""HOME OXYGEN ITEM"")"
^XMB(3.9,133,2,3216,0)=""
^XMB(3.9,133,2,3217,0)="""^DD"",665,665.194,.01,0)"
^XMB(3.9,133,2,3218,0)="ITEM^MRP661'O^RMPR(661,^0;1^Q"
^XMB(3.9,133,2,3219,0)="""^DD"",665,665.194,.01,1,0)"
^XMB(3.9,133,2,3220,0)="^.1"
^XMB(3.9,133,2,3221,0)="""^DD"",665,665.194,.01,1,1,0)"
^XMB(3.9,133,2,3222,0)="665.194^B"
^XMB(3.9,133,2,3223,0)="""^DD"",665,665.194,.01,1,1,1)"
^XMB(3.9,133,2,3224,0)="S ^RMPR(665,DA(1),""RMPOC"",""B"",$E(X,1,30),DA)="""""
^XMB(3.9,133,2,3225,0)="""^DD"",665,665.194,.01,1,1,2)"
^XMB(3.9,133,2,3226,0)="K ^RMPR(665,DA(1),""RMPOC"",""B"",$E(X,1,30),DA)"
^XMB(3.9,133,2,3227,0)="""^DD"",665,665.194,.01,1,2,0)"
^XMB(3.9,133,2,3228,0)="665.194^APTASK^MUMPS"
^XMB(3.9,133,2,3229,0)="""^DD"",665,665.194,.01,1,2,1)"
^XMB(3.9,133,2,3230,0)="Q"
^XMB(3.9,133,2,3231,0)="""^DD"",665,665.194,.01,1,2,2)"
^XMB(3.9,133,2,3232,0)="D ITEMTASK^RMPOPF"
^XMB(3.9,133,2,3233,0)="""^DD"",665,665.194,.01,1,2,""DT"")"
^XMB(3.9,133,2,3234,0)="3050818"
^XMB(3.9,133,2,3235,0)="""^DD"",665,665.194,.01,1,3,0)"
^XMB(3.9,133,2,3236,0)="^^TRIGGER^665.194^100"
^XMB(3.9,133,2,3237,0)="""^DD"",665,665.194,.01,1,3,1)"
^XMB(3.9,133,2,3238,0)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^RMPR(665,D0,""RMPOC"",D1,""PFSS"")):^(""PFSS""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=$S(+$$SWSTAT^IBBAPI():1,1:"""") X ^DD(665.194,.01,1,3,1.4)"
^XMB(3.9,133,2,3239,0)="""^DD"",665,665.194,.01,1,3,1.4)"
^XMB(3.9,133,2,3240,0)="S DIH=$G(^RMPR(665,DIV(0),""RMPOC"",DIV(1),""PFSS"")),DIV=X S $P(^(""PFSS""),U,1)=DIV,DIH=665.194,DIG=100 D ^DICR"
^XMB(3.9,133,2,3241,0)="""^DD"",665,665.194,.01,1,3,2)"
^XMB(3.9,133,2,3242,0)="Q"
^XMB(3.9,133,2,3243,0)="""^DD"",665,665.194,.01,1,3,""CREATE VALUE"")"
^XMB(3.9,133,2,3244,0)="S X=$S(+$$SWSTAT^IBBAPI():1,1:"""")"
^XMB(3.9,133,2,3245,0)="""^DD"",665,665.194,.01,1,3,""DELETE VALUE"")"
^XMB(3.9,133,2,3246,0)="NO EFFECT"
^XMB(3.9,133,2,3247,0)="""^DD"",665,665.194,.01,1,3,""DT"")"
^XMB(3.9,133,2,3248,0)="3051028"
^XMB(3.9,133,2,3249,0)="""^DD"",665,665.194,.01,1,3,""FIELD"")"
^XMB(3.9,133,2,3250,0)="PFSS ACCOUNT FLAG"
^XMB(3.9,133,2,3251,0)="""^DD"",665,665.194,.01,2)"
^XMB(3.9,133,2,3252,0)="S Y(0)=Y S Y=$P(^RMPR(661,Y,0),U),Y=$P(^PRC(441,Y,0),U,2)"
^XMB(3.9,133,2,3253,0)="""^DD"",665,665.194,.01,2.1)"
^XMB(3.9,133,2,3254,0)="S Y=$P(^RMPR(661,Y,0),U),Y=$P(^PRC(441,Y,0),U,2)"
^XMB(3.9,133,2,3255,0)="""^DD"",665,665.194,.01,3)"
^XMB(3.9,133,2,3256,0)="Enter the equipment item. Enter 'primary' item first."
^XMB(3.9,133,2,3257,0)="""^DD"",665,665.194,.01,4)"
^XMB(3.9,133,2,3258,0)=""
^XMB(3.9,133,2,3259,0)="""^DD"",665,665.194,.01,21,0)"
^XMB(3.9,133,2,3260,0)="^^3^3^2980615^^^^"
^XMB(3.9,133,2,3261,0)="""^DD"",665,665.194,.01,21,1,0)"
^XMB(3.9,133,2,3262,0)="This is a multiple field and will contain all the items dispensed"
^XMB(3.9,133,2,3263,0)="""^DD"",665,665.194,.01,21,2,0)"
^XMB(3.9,133,2,3264,0)="to the patient. NOTE: The first entry must be the primary equipment"
^XMB(3.9,133,2,3265,0)="""^DD"",665,665.194,.01,21,3,0)"
^XMB(3.9,133,2,3266,0)="item."
^XMB(3.9,133,2,3267,0)="""^DD"",665,665.194,.01,""DEL"",.01,0)"
^XMB(3.9,133,2,3268,0)="I 1 W ""USE DELETE OPTION!"""
^XMB(3.9,133,2,3269,0)="""^DD"",665,665.194,.01,""DT"")"
^XMB(3.9,133,2,3270,0)="3051028"
^XMB(3.9,133,2,3271,0)="""^DD"",665,665.194,100,0)"
^XMB(3.9,133,2,3272,0)="PFSS ACCOUNT FLAG^S^1:READY TO PROCESS;^PFSS;1^Q"
^XMB(3.9,133,2,3273,0)="""^DD"",665,665.194,100,1,0)"
^XMB(3.9,133,2,3274,0)="^.1"
^XMB(3.9,133,2,3275,0)="""^DD"",665,665.194,100,1,1,0)"
^XMB(3.9,133,2,3276,0)="665^APO"
^XMB(3.9,133,2,3277,0)="""^DD"",665,665.194,100,1,1,1)"
^XMB(3.9,133,2,3278,0)="S ^RMPR(665,""APO"",$E(X,1,30),DA(1),DA)="""""
^XMB(3.9,133,2,3279,0)="""^DD"",665,665.194,100,1,1,2)"
^XMB(3.9,133,2,3280,0)="K ^RMPR(665,""APO"",$E(X,1,30),DA(1),DA)"
^XMB(3.9,133,2,3281,0)="""^DD"",665,665.194,100,1,1,""%D"",0)"
^XMB(3.9,133,2,3282,0)="^^1^1^3050726^"
^XMB(3.9,133,2,3283,0)="""^DD"",665,665.194,100,1,1,""%D"",1,0)"
^XMB(3.9,133,2,3284,0)="Regular file wide cross reference in support of PFSS IBB interface."
^XMB(3.9,133,2,3285,0)="""^DD"",665,665.194,100,1,1,""DT"")"
^XMB(3.9,133,2,3286,0)="3050726"
^XMB(3.9,133,2,3287,0)="""^DD"",665,665.194,100,3)"
^XMB(3.9,133,2,3288,0)="Enter ""1"" if this record is ready to process PFSS data."
^XMB(3.9,133,2,3289,0)="""^DD"",665,665.194,100,5,1,0)"
^XMB(3.9,133,2,3290,0)="665.194^.01^3"
^XMB(3.9,133,2,3291,0)="""^DD"",665,665.194,100,21,0)"
^XMB(3.9,133,2,3292,0)="^^1^1^3051220^^"
^XMB(3.9,133,2,3293,0)="""^DD"",665,665.194,100,21,1,0)"
^XMB(3.9,133,2,3294,0)="Flag field that indicates this record is ready for PFSS Processing."
^XMB(3.9,133,2,3295,0)="""^DD"",665,665.194,100,""DT"")"
^XMB(3.9,133,2,3296,0)="3051220"
^XMB(3.9,133,2,3297,0)="""^DD"",665,665.194,101,0)"
^XMB(3.9,133,2,3298,0)="PFSS ACCOUNT REFERENCE^P375'^IBBAA(375,^PFSS;2^Q"
^XMB(3.9,133,2,3299,0)="""^DD"",665,665.194,101,3)"
^XMB(3.9,133,2,3300,0)="Enter the PFSS ACCOUNT REFERENCE returned by the PFSS process."
^XMB(3.9,133,2,3301,0)="""^DD"",665,665.194,101,21,0)"
^XMB(3.9,133,2,3302,0)="^^2^2^3051220^^"
^XMB(3.9,133,2,3303,0)="""^DD"",665,665.194,101,21,1,0)"
^XMB(3.9,133,2,3304,0)="The account reference number passed back to Prosthetics from the get "
^XMB(3.9,133,2,3305,0)="""^DD"",665,665.194,101,21,2,0)"
^XMB(3.9,133,2,3306,0)="account ID process.  It is associated with the item."
^XMB(3.9,133,2,3307,0)="""^DD"",665,665.194,101,""DT"")"
^XMB(3.9,133,2,3308,0)="3051220"
^XMB(3.9,133,2,3309,0)="""^DD"",665.72,665.72319,1,0)"
^XMB(3.9,133,2,3310,0)="ITEM^665.723191P^^1;0"
^XMB(3.9,133,2,3311,0)="""^DD"",665.72,665.72319,1,21,0)"
^XMB(3.9,133,2,3312,0)="^^2^2^2990223^^^^"
^XMB(3.9,133,2,3313,0)="""^DD"",665.72,665.72319,1,21,1,0)"
^XMB(3.9,133,2,3314,0)="This is a multiple field consisting of items for a patient in a billing  "
^XMB(3.9,133,2,3315,0)="""^DD"",665.72,665.72319,1,21,2,0)"
^XMB(3.9,133,2,3316,0)="month."
^XMB(3.9,133,2,3317,0)="""^DD"",665.72,665.723191,0)"
^XMB(3.9,133,2,3318,0)="ITEM SUB-FIELD^^102^22"
^XMB(3.9,133,2,3319,0)="""^DD"",665.72,665.723191,0,""NM"",""ITEM"")"
^XMB(3.9,133,2,3320,0)=""
^XMB(3.9,133,2,3321,0)="""^DD"",665.72,665.723191,.01,0)"
^XMB(3.9,133,2,3322,0)="ITEM^MRP661'^RMPR(661,^0;1^Q"
^XMB(3.9,133,2,3323,0)="""^DD"",665.72,665.723191,.01,1,0)"
^XMB(3.9,133,2,3324,0)="^.1"
^XMB(3.9,133,2,3325,0)="""^DD"",665.72,665.723191,.01,1,1,0)"
^XMB(3.9,133,2,3326,0)="665.723191^B"
^XMB(3.9,133,2,3327,0)="""^DD"",665.72,665.723191,.01,1,1,1)"
^XMB(3.9,133,2,3328,0)="S ^RMPO(665.72,DA(4),1,DA(3),1,DA(2),""V"",DA(1),1,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,133,2,3329,0)="""^DD"",665.72,665.723191,.01,1,1,2)"
^XMB(3.9,133,2,3330,0)="K ^RMPO(665.72,DA(4),1,DA(3),1,DA(2),""V"",DA(1),1,""B"",$E(X,1,30),DA)"
^XMB(3.9,133,2,3331,0)="""^DD"",665.72,665.723191,.01,1,2,0)"
^XMB(3.9,133,2,3332,0)="665.723191^APTASK^MUMPS"
^XMB(3.9,133,2,3333,0)="""^DD"",665.72,665.723191,.01,1,2,1)"
^XMB(3.9,133,2,3334,0)="Q"
^XMB(3.9,133,2,3335,0)="""^DD"",665.72,665.723191,.01,1,2,2)"
^XMB(3.9,133,2,3336,0)="D CHRGTASK^RMPOPF"
^XMB(3.9,133,2,3337,0)="""^DD"",665.72,665.723191,.01,1,2,""DT"")"
^XMB(3.9,133,2,3338,0)="3050726"
^XMB(3.9,133,2,3339,0)="""^DD"",665.72,665.723191,.01,3)"
^XMB(3.9,133,2,3340,0)="Enter the item that the patient has received from the Vendor."
^XMB(3.9,133,2,3341,0)="""^DD"",665.72,665.723191,.01,21,0)"
^XMB(3.9,133,2,3342,0)="^^3^3^2990114^^^^"
^XMB(3.9,133,2,3343,0)="""^DD"",665.72,665.723191,.01,21,1,0)"
^XMB(3.9,133,2,3344,0)="Vendors supply billable items to patients and bill the VAMC for rentals of"
^XMB(3.9,133,2,3345,0)="""^DD"",665.72,665.723191,.01,21,2,0)"
^XMB(3.9,133,2,3346,0)="equipment and supplies. This field is a pointer to the master item list"
^XMB(3.9,133,2,3347,0)="""^DD"",665.72,665.723191,.01,21,3,0)"
^XMB(3.9,133,2,3348,0)="of possible items."
^XMB(3.9,133,2,3349,0)="""^DD"",665.72,665.723191,.01,23,0)"
^XMB(3.9,133,2,3350,0)="^^1^1^2990114^^"
^XMB(3.9,133,2,3351,0)="""^DD"",665.72,665.723191,.01,23,1,0)"
^XMB(3.9,133,2,3352,0)="This field is a pointer to PROS ITEM MASTER FILE (#661)."
^XMB(3.9,133,2,3353,0)="""^DD"",665.72,665.723191,.01,""DEL"",.01,0)"
^XMB(3.9,133,2,3354,0)="I 1 W ""USE DELETE OPTION!"""
^XMB(3.9,133,2,3355,0)="""^DD"",665.72,665.723191,.01,""DT"")"
^XMB(3.9,133,2,3356,0)="3050726"
^XMB(3.9,133,2,3357,0)="""^DD"",665.72,665.723191,100,0)"
^XMB(3.9,133,2,3358,0)="PFSS ACCOUNT REFERENCE^P375'I^IBBAA(375,^PFSS;1^Q"
^XMB(3.9,133,2,3359,0)="""^DD"",665.72,665.723191,100,3)"
^XMB(3.9,133,2,3360,0)="Enter the PFSS Account Reference number for this item."
^XMB(3.9,133,2,3361,0)="""^DD"",665.72,665.723191,100,21,0)"
^XMB(3.9,133,2,3362,0)="^^2^2^3051220^^"
^XMB(3.9,133,2,3363,0)="""^DD"",665.72,665.723191,100,21,1,0)"
^XMB(3.9,133,2,3364,0)="This is the account reference number associated with the prescription for "
^XMB(3.9,133,2,3365,0)="""^DD"",665.72,665.723191,100,21,2,0)"
^XMB(3.9,133,2,3366,0)="this item."
^XMB(3.9,133,2,3367,0)="""^DD"",665.72,665.723191,100,""DT"")"
^XMB(3.9,133,2,3368,0)="3051220"
^XMB(3.9,133,2,3369,0)="""^DD"",665.72,665.723191,101,0)"
^XMB(3.9,133,2,3370,0)="PFSS UNIQUE CHARGE ID^NJ8,0I^^PFSS;2^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^XMB(3.9,133,2,3371,0)="""^DD"",665.72,665.723191,101,3)"
^XMB(3.9,133,2,3372,0)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^XMB(3.9,133,2,3373,0)="""^DD"",665.72,665.723191,101,21,0)"
^XMB(3.9,133,2,3374,0)="^^1^1^3051220^^"
^XMB(3.9,133,2,3375,0)="""^DD"",665.72,665.723191,101,21,1,0)"
^XMB(3.9,133,2,3376,0)="This is the unique charge ID associated with this item."
^XMB(3.9,133,2,3377,0)="""^DD"",665.72,665.723191,101,""DT"")"
^XMB(3.9,133,2,3378,0)="3051220"
^XMB(3.9,133,2,3379,0)="""^DD"",665.72,665.723191,102,0)"
^XMB(3.9,133,2,3380,0)="REQUESTOR^P200'I^VA(200,^PFSS;3^Q"
^XMB(3.9,133,2,3381,0)="""^DD"",665.72,665.723191,102,3)"
^XMB(3.9,133,2,3382,0)="Enter the person that initiated the consult for this item's prescription."
^XMB(3.9,133,2,3383,0)="""^DD"",665.72,665.723191,102,21,0)"
^XMB(3.9,133,2,3384,0)="^^1^1^3051220^^"
^XMB(3.9,133,2,3385,0)="""^DD"",665.72,665.723191,102,21,1,0)"
^XMB(3.9,133,2,3386,0)="This is the person that made the consult request for this item."
^XMB(3.9,133,2,3387,0)="""^DD"",665.72,665.723191,102,""DT"")"
^XMB(3.9,133,2,3388,0)="3051220"
^XMB(3.9,133,2,3389,0)="""BLD"",6029,6)"
^XMB(3.9,133,2,3390,0)="^97"
^XMB(3.9,133,2,3391,0)="$END KID RMPR*3.0*98"
^XMB(3.9,133,6,0)="^3.911A^2^2"
^XMB(3.9,133,6,1,0)="POSTMASTER"
^XMB(3.9,133,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,133,6,"B","POSTMASTER",1)=""
^XMB(3.9,133,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,134,0)="RMPR-3_SEQ-98_PAT-124.KID^.5^3061008.015742^^^^K"
^XMB(3.9,134,.6)="3061008"
^XMB(3.9,134,1,0)="^3.91A^2^2"
^XMB(3.9,134,1,1,0)=".5^0^3061008.015742^^^^^^^3061008.015742"
^XMB(3.9,134,1,2,0)="1^0^3061008.022659^^^^^^^3061008.022659"
^XMB(3.9,134,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,134,1,"C",.5,1)=""
^XMB(3.9,134,1,"C",1,2)=""
^XMB(3.9,134,2,0)="^^827^827^3061008"
^XMB(3.9,134,2,1,0)="$TXT Released RMPR*3*124 SEQ #98"
^XMB(3.9,134,2,2,0)="Extracted from mail message"
^XMB(3.9,134,2,3,0)="$END TXT"
^XMB(3.9,134,2,4,0)="$KID RMPR*3.0*124"
^XMB(3.9,134,2,5,0)="**INSTALL NAME**"
^XMB(3.9,134,2,6,0)="RMPR*3.0*124"
^XMB(3.9,134,2,7,0)="""BLD"",5964,0)"
^XMB(3.9,134,2,8,0)="RMPR*3.0*124^PROSTHETICS^0^3060620^y"
^XMB(3.9,134,2,9,0)="""BLD"",5964,1,0)"
^XMB(3.9,134,2,10,0)="^^2^2^3060130^"
^XMB(3.9,134,2,11,0)="""BLD"",5964,1,1,0)"
^XMB(3.9,134,2,12,0)="PROSTHETICS GUI PURCHASING NOT ADHERING TO VISTA FM DATA DICTIONARY FIELD"
^XMB(3.9,134,2,13,0)="""BLD"",5964,1,2,0)"
^XMB(3.9,134,2,14,0)="LENGTHS FOR FILES #664/660."
^XMB(3.9,134,2,15,0)="""BLD"",5964,4,0)"
^XMB(3.9,134,2,16,0)="^9.64PA^^"
^XMB(3.9,134,2,17,0)="""BLD"",5964,6.3)"
^XMB(3.9,134,2,18,0)="17"
^XMB(3.9,134,2,19,0)="""BLD"",5964,""ABPKG"")"
^XMB(3.9,134,2,20,0)="n"
^XMB(3.9,134,2,21,0)="""BLD"",5964,""KRN"",0)"
^XMB(3.9,134,2,22,0)="^9.67PA^8989.52^19"
^XMB(3.9,134,2,23,0)="""BLD"",5964,""KRN"",.4,0)"
^XMB(3.9,134,2,24,0)=".4"
^XMB(3.9,134,2,25,0)="""BLD"",5964,""KRN"",.401,0)"
^XMB(3.9,134,2,26,0)=".401"
^XMB(3.9,134,2,27,0)="""BLD"",5964,""KRN"",.402,0)"
^XMB(3.9,134,2,28,0)=".402"
^XMB(3.9,134,2,29,0)="""BLD"",5964,""KRN"",.403,0)"
^XMB(3.9,134,2,30,0)=".403"
^XMB(3.9,134,2,31,0)="""BLD"",5964,""KRN"",.5,0)"
^XMB(3.9,134,2,32,0)=".5"
^XMB(3.9,134,2,33,0)="""BLD"",5964,""KRN"",.84,0)"
^XMB(3.9,134,2,34,0)=".84"
^XMB(3.9,134,2,35,0)="""BLD"",5964,""KRN"",3.6,0)"
^XMB(3.9,134,2,36,0)="3.6"
^XMB(3.9,134,2,37,0)="""BLD"",5964,""KRN"",3.8,0)"
^XMB(3.9,134,2,38,0)="3.8"
^XMB(3.9,134,2,39,0)="""BLD"",5964,""KRN"",9.2,0)"
^XMB(3.9,134,2,40,0)="9.2"
^XMB(3.9,134,2,41,0)="""BLD"",5964,""KRN"",9.8,0)"
^XMB(3.9,134,2,42,0)="9.8"
^XMB(3.9,134,2,43,0)="""BLD"",5964,""KRN"",9.8,""NM"",0)"
^XMB(3.9,134,2,44,0)="^9.68A^3^3"
^XMB(3.9,134,2,45,0)="""BLD"",5964,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,134,2,46,0)="RMPR124P^^0^B21830969"
^XMB(3.9,134,2,47,0)="""BLD"",5964,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,134,2,48,0)="RMPRFFIX^^0^B33824281"
^XMB(3.9,134,2,49,0)="""BLD"",5964,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,134,2,50,0)="RMPRFPRT^^0^B6320218"
^XMB(3.9,134,2,51,0)="""BLD"",5964,""KRN"",9.8,""NM"",""B"",""RMPR124P"",1)"
^XMB(3.9,134,2,52,0)=""
^XMB(3.9,134,2,53,0)="""BLD"",5964,""KRN"",9.8,""NM"",""B"",""RMPRFFIX"",2)"
^XMB(3.9,134,2,54,0)=""
^XMB(3.9,134,2,55,0)="""BLD"",5964,""KRN"",9.8,""NM"",""B"",""RMPRFPRT"",3)"
^XMB(3.9,134,2,56,0)=""
^XMB(3.9,134,2,57,0)="""BLD"",5964,""KRN"",19,0)"
^XMB(3.9,134,2,58,0)="19"
^XMB(3.9,134,2,59,0)="""BLD"",5964,""KRN"",19,""NM"",0)"
^XMB(3.9,134,2,60,0)="^9.68A^2^2"
^XMB(3.9,134,2,61,0)="""BLD"",5964,""KRN"",19,""NM"",1,0)"
^XMB(3.9,134,2,62,0)="RMPR FILE CLEANSING^^0^"
^XMB(3.9,134,2,63,0)="""BLD"",5964,""KRN"",19,""NM"",2,0)"
^XMB(3.9,134,2,64,0)="RMPR UTILITIES^^3"
^XMB(3.9,134,2,65,0)="""BLD"",5964,""KRN"",19,""NM"",""B"",""RMPR FILE CLEANSING"",1)"
^XMB(3.9,134,2,66,0)=""
^XMB(3.9,134,2,67,0)="""BLD"",5964,""KRN"",19,""NM"",""B"",""RMPR UTILITIES"",2)"
^XMB(3.9,134,2,68,0)=""
^XMB(3.9,134,2,69,0)="""BLD"",5964,""KRN"",19.1,0)"
^XMB(3.9,134,2,70,0)="19.1"
^XMB(3.9,134,2,71,0)="""BLD"",5964,""KRN"",19.1,""NM"",0)"
^XMB(3.9,134,2,72,0)="^9.68A^^"
^XMB(3.9,134,2,73,0)="""BLD"",5964,""KRN"",101,0)"
^XMB(3.9,134,2,74,0)="101"
^XMB(3.9,134,2,75,0)="""BLD"",5964,""KRN"",409.61,0)"
^XMB(3.9,134,2,76,0)="409.61"
^XMB(3.9,134,2,77,0)="""BLD"",5964,""KRN"",771,0)"
^XMB(3.9,134,2,78,0)="771"
^XMB(3.9,134,2,79,0)="""BLD"",5964,""KRN"",870,0)"
^XMB(3.9,134,2,80,0)="870"
^XMB(3.9,134,2,81,0)="""BLD"",5964,""KRN"",8989.51,0)"
^XMB(3.9,134,2,82,0)="8989.51"
^XMB(3.9,134,2,83,0)="""BLD"",5964,""KRN"",8989.52,0)"
^XMB(3.9,134,2,84,0)="8989.52"
^XMB(3.9,134,2,85,0)="""BLD"",5964,""KRN"",8994,0)"
^XMB(3.9,134,2,86,0)="8994"
^XMB(3.9,134,2,87,0)="""BLD"",5964,""KRN"",""B"",.4,.4)"
^XMB(3.9,134,2,88,0)=""
^XMB(3.9,134,2,89,0)="""BLD"",5964,""KRN"",""B"",.401,.401)"
^XMB(3.9,134,2,90,0)=""
^XMB(3.9,134,2,91,0)="""BLD"",5964,""KRN"",""B"",.402,.402)"
^XMB(3.9,134,2,92,0)=""
^XMB(3.9,134,2,93,0)="""BLD"",5964,""KRN"",""B"",.403,.403)"
^XMB(3.9,134,2,94,0)=""
^XMB(3.9,134,2,95,0)="""BLD"",5964,""KRN"",""B"",.5,.5)"
^XMB(3.9,134,2,96,0)=""
^XMB(3.9,134,2,97,0)="""BLD"",5964,""KRN"",""B"",.84,.84)"
^XMB(3.9,134,2,98,0)=""
^XMB(3.9,134,2,99,0)="""BLD"",5964,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,134,2,100,0)=""
^XMB(3.9,134,2,101,0)="""BLD"",5964,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,134,2,102,0)=""
^XMB(3.9,134,2,103,0)="""BLD"",5964,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,134,2,104,0)=""
^XMB(3.9,134,2,105,0)="""BLD"",5964,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,134,2,106,0)=""
^XMB(3.9,134,2,107,0)="""BLD"",5964,""KRN"",""B"",19,19)"
^XMB(3.9,134,2,108,0)=""
^XMB(3.9,134,2,109,0)="""BLD"",5964,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,134,2,110,0)=""
^XMB(3.9,134,2,111,0)="""BLD"",5964,""KRN"",""B"",101,101)"
^XMB(3.9,134,2,112,0)=""
^XMB(3.9,134,2,113,0)="""BLD"",5964,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,134,2,114,0)=""
^XMB(3.9,134,2,115,0)="""BLD"",5964,""KRN"",""B"",771,771)"
^XMB(3.9,134,2,116,0)=""
^XMB(3.9,134,2,117,0)="""BLD"",5964,""KRN"",""B"",870,870)"
^XMB(3.9,134,2,118,0)=""
^XMB(3.9,134,2,119,0)="""BLD"",5964,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,134,2,120,0)=""
^XMB(3.9,134,2,121,0)="""BLD"",5964,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,134,2,122,0)=""
^XMB(3.9,134,2,123,0)="""BLD"",5964,""KRN"",""B"",8994,8994)"
^XMB(3.9,134,2,124,0)=""
^XMB(3.9,134,2,125,0)="""BLD"",5964,""QUES"",0)"
^XMB(3.9,134,2,126,0)="^9.62^^"
^XMB(3.9,134,2,127,0)="""BLD"",5964,""REQB"",0)"
^XMB(3.9,134,2,128,0)="^9.611^^"
^XMB(3.9,134,2,129,0)="""KRN"",19,5640,-1)"
^XMB(3.9,134,2,130,0)="3^2"
^XMB(3.9,134,2,131,0)="""KRN"",19,5640,0)"
^XMB(3.9,134,2,132,0)="RMPR UTILITIES^Utilities^^M^^^^^^^^PROSTHETICS"
^XMB(3.9,134,2,133,0)="""KRN"",19,5640,1,0)"
^XMB(3.9,134,2,134,0)="^19.06^1^1^3060120^^^^"
^XMB(3.9,134,2,135,0)="""KRN"",19,5640,1,1,0)"
^XMB(3.9,134,2,136,0)="Prosthetic Utility Menu"
^XMB(3.9,134,2,137,0)="""KRN"",19,5640,10,0)"
^XMB(3.9,134,2,138,0)="^19.01IP^20^20"
^XMB(3.9,134,2,139,0)="""KRN"",19,5640,10,20,0)"
^XMB(3.9,134,2,140,0)="12483^FCLN"
^XMB(3.9,134,2,141,0)="""KRN"",19,5640,10,20,""^"")"
^XMB(3.9,134,2,142,0)="RMPR FILE CLEANSING"
^XMB(3.9,134,2,143,0)="""KRN"",19,5640,99)"
^XMB(3.9,134,2,144,0)="60284,52159"
^XMB(3.9,134,2,145,0)="""KRN"",19,5640,""U"")"
^XMB(3.9,134,2,146,0)="UTILITIES"
^XMB(3.9,134,2,147,0)="""KRN"",19,12483,-1)"
^XMB(3.9,134,2,148,0)="0^1"
^XMB(3.9,134,2,149,0)="""KRN"",19,12483,0)"
^XMB(3.9,134,2,150,0)="RMPR FILE CLEANSING^RMPR file cleansing for field lengths^^R^^^^^^^^PROSTHETICS^^"
^XMB(3.9,134,2,151,0)="""KRN"",19,12483,1,0)"
^XMB(3.9,134,2,152,0)="^19.06^7^7^3060119^^^^"
^XMB(3.9,134,2,153,0)="""KRN"",19,12483,1,1,0)"
^XMB(3.9,134,2,154,0)="This option was created temporarily to be used by sites that"
^XMB(3.9,134,2,155,0)="""KRN"",19,12483,1,2,0)"
^XMB(3.9,134,2,156,0)="enter fields in the GUI Purchasing module that exceeded the defined"
^XMB(3.9,134,2,157,0)="""KRN"",19,12483,1,3,0)"
^XMB(3.9,134,2,158,0)="length in the VISTA data dictionary for Fileman.  This option runs"
^XMB(3.9,134,2,159,0)="""KRN"",19,12483,1,4,0)"
^XMB(3.9,134,2,160,0)="through file #664 to determine what fields, if any, exceed the"
^XMB(3.9,134,2,161,0)="""KRN"",19,12483,1,5,0)"
^XMB(3.9,134,2,162,0)="maximum allowable lengths in files #664 and #660.  Any field length"
^XMB(3.9,134,2,163,0)="""KRN"",19,12483,1,6,0)"
^XMB(3.9,134,2,164,0)="discrepancies are displayed and the user is asked to enter a valid"
^XMB(3.9,134,2,165,0)="""KRN"",19,12483,1,7,0)"
^XMB(3.9,134,2,166,0)="length response in lieu of the found incorrect data."
^XMB(3.9,134,2,167,0)="""KRN"",19,12483,10.1)"
^XMB(3.9,134,2,168,0)="CLEANSE FILES 664/661"
^XMB(3.9,134,2,169,0)="""KRN"",19,12483,20)"
^XMB(3.9,134,2,170,0)=""
^XMB(3.9,134,2,171,0)="""KRN"",19,12483,25)"
^XMB(3.9,134,2,172,0)="RMPR124P"
^XMB(3.9,134,2,173,0)="""KRN"",19,12483,""U"")"
^XMB(3.9,134,2,174,0)="RMPR FILE CLEANSING FOR FIELD "
^XMB(3.9,134,2,175,0)="""MBREQ"")"
^XMB(3.9,134,2,176,0)="0"
^XMB(3.9,134,2,177,0)="""ORD"",18,19)"
^XMB(3.9,134,2,178,0)="19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA"
^XMB(3.9,134,2,179,0)="""ORD"",18,19,0)"
^XMB(3.9,134,2,180,0)="OPTION"
^XMB(3.9,134,2,181,0)="""PKG"",101,-1)"
^XMB(3.9,134,2,182,0)="1^1"
^XMB(3.9,134,2,183,0)="""PKG"",101,0)"
^XMB(3.9,134,2,184,0)="PROSTHETICS^RMPR^PROSTHETICS VERSION 3.0 ALPHA"
^XMB(3.9,134,2,185,0)="""PKG"",101,20,0)"
^XMB(3.9,134,2,186,0)="^9.402P^^0"
^XMB(3.9,134,2,187,0)="""PKG"",101,22,0)"
^XMB(3.9,134,2,188,0)="^9.49I^1^1"
^XMB(3.9,134,2,189,0)="""PKG"",101,22,1,0)"
^XMB(3.9,134,2,190,0)="3.0^2960209^2960214"
^XMB(3.9,134,2,191,0)="""PKG"",101,22,1,""PAH"",1,0)"
^XMB(3.9,134,2,192,0)="124^3060620"
^XMB(3.9,134,2,193,0)="""PKG"",101,22,1,""PAH"",1,1,0)"
^XMB(3.9,134,2,194,0)="^^2^2^3060620"
^XMB(3.9,134,2,195,0)="""PKG"",101,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,134,2,196,0)="PROSTHETICS GUI PURCHASING NOT ADHERING TO VISTA FM DATA DICTIONARY FIELD"
^XMB(3.9,134,2,197,0)="""PKG"",101,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,134,2,198,0)="LENGTHS FOR FILES #664/660."
^XMB(3.9,134,2,199,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,134,2,200,0)="Y"
^XMB(3.9,134,2,201,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,134,2,202,0)="^D REP^XPDH"
^XMB(3.9,134,2,203,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,134,2,204,0)="Shall I write over your |FLAG| File"
^XMB(3.9,134,2,205,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,134,2,206,0)="YES"
^XMB(3.9,134,2,207,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,134,2,208,0)="D XPF1^XPDIQ"
^XMB(3.9,134,2,209,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,134,2,210,0)="Y"
^XMB(3.9,134,2,211,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,134,2,212,0)="^D DTA^XPDH"
^XMB(3.9,134,2,213,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,134,2,214,0)="Want my data |FLAG| yours"
^XMB(3.9,134,2,215,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,134,2,216,0)="YES"
^XMB(3.9,134,2,217,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,134,2,218,0)="D XPF2^XPDIQ"
^XMB(3.9,134,2,219,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,134,2,220,0)="YO"
^XMB(3.9,134,2,221,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,134,2,222,0)="^D INHIBIT^XPDH"
^XMB(3.9,134,2,223,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,134,2,224,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,134,2,225,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,134,2,226,0)="YES"
^XMB(3.9,134,2,227,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,134,2,228,0)="D XPI1^XPDIQ"
^XMB(3.9,134,2,229,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,134,2,230,0)="PO^VA(200,:EM"
^XMB(3.9,134,2,231,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,134,2,232,0)="^D MG^XPDH"
^XMB(3.9,134,2,233,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,134,2,234,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,134,2,235,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,134,2,236,0)=""
^XMB(3.9,134,2,237,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,134,2,238,0)="D XPM1^XPDIQ"
^XMB(3.9,134,2,239,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,134,2,240,0)="Y"
^XMB(3.9,134,2,241,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,134,2,242,0)="^D MENU^XPDH"
^XMB(3.9,134,2,243,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,134,2,244,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,134,2,245,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,134,2,246,0)="YES"
^XMB(3.9,134,2,247,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,134,2,248,0)="D XPO1^XPDIQ"
^XMB(3.9,134,2,249,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,134,2,250,0)="Y"
^XMB(3.9,134,2,251,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,134,2,252,0)="^D OPT^XPDH"
^XMB(3.9,134,2,253,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,134,2,254,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,134,2,255,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,134,2,256,0)="YES"
^XMB(3.9,134,2,257,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,134,2,258,0)="D XPZ1^XPDIQ"
^XMB(3.9,134,2,259,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,134,2,260,0)="Y"
^XMB(3.9,134,2,261,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,134,2,262,0)="^D RTN^XPDH"
^XMB(3.9,134,2,263,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,134,2,264,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,134,2,265,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,134,2,266,0)="NO"
^XMB(3.9,134,2,267,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,134,2,268,0)="D XPZ2^XPDIQ"
^XMB(3.9,134,2,269,0)="""RTN"")"
^XMB(3.9,134,2,270,0)="3"
^XMB(3.9,134,2,271,0)="""RTN"",""RMPR124P"")"
^XMB(3.9,134,2,272,0)="0^1^B21830969"
^XMB(3.9,134,2,273,0)="""RTN"",""RMPR124P"",1,0)"
^XMB(3.9,134,2,274,0)="RMPR124P ;VMP/RB - FIX FIELD LENGTH PROBLEMS FOR FILES #660/664 ;01/13/06"
^XMB(3.9,134,2,275,0)="""RTN"",""RMPR124P"",2,0)"
^XMB(3.9,134,2,276,0)=" ;;3.0;Prosthetics;**124**;06/20/05;Build 17"
^XMB(3.9,134,2,277,0)="""RTN"",""RMPR124P"",3,0)"
^XMB(3.9,134,2,278,0)=" ;;"
^XMB(3.9,134,2,279,0)="""RTN"",""RMPR124P"",4,0)"
^XMB(3.9,134,2,280,0)=" ;1. Post install to correct fields with length error created during"
^XMB(3.9,134,2,281,0)="""RTN"",""RMPR124P"",5,0)"
^XMB(3.9,134,2,282,0)=" ;   cut & paste for function key input during GUI process and passed"
^XMB(3.9,134,2,283,0)="""RTN"",""RMPR124P"",6,0)"
^XMB(3.9,134,2,284,0)=" ;   to VISTA files 660 and 664 for fields:  Brief Description, Remarks,"
^XMB(3.9,134,2,285,0)="""RTN"",""RMPR124P"",7,0)"
^XMB(3.9,134,2,286,0)=" ;   Serial #, Manufacturer, Model and Lot #  "
^XMB(3.9,134,2,287,0)="""RTN"",""RMPR124P"",8,0)"
^XMB(3.9,134,2,288,0)=" ;"
^XMB(3.9,134,2,289,0)="""RTN"",""RMPR124P"",9,0)"
^XMB(3.9,134,2,290,0)="FIX664 ;search and correct length in errors for specified fields in files 664"
^XMB(3.9,134,2,291,0)="""RTN"",""RMPR124P"",10,0)"
^XMB(3.9,134,2,292,0)=" W @IOF"
^XMB(3.9,134,2,293,0)="""RTN"",""RMPR124P"",11,0)"
^XMB(3.9,134,2,294,0)=" W !,""** THIS TEMPORARY PROCESS HAS BEEN PUT IN PLACE TO SCRUB (VIA USER  **"""
^XMB(3.9,134,2,295,0)="""RTN"",""RMPR124P"",12,0)"
^XMB(3.9,134,2,296,0)=" W !,""** INTERACTION) ANY FIELDS IN FILE #664 AND FILE#660 THAT MAY HAVE  **"""
^XMB(3.9,134,2,297,0)="""RTN"",""RMPR124P"",13,0)"
^XMB(3.9,134,2,298,0)=" W !,""** A FIELD LENGTH ERROR CAUSED BY THE GUI PROSTHETICS PURCHASING    **"""
^XMB(3.9,134,2,299,0)="""RTN"",""RMPR124P"",14,0)"
^XMB(3.9,134,2,300,0)=" W !,""** MODULE WHICH WAS ALLOWING DATA OUTSIDE THE FIELD DEFINED LENGTH  **"""
^XMB(3.9,134,2,301,0)="""RTN"",""RMPR124P"",15,0)"
^XMB(3.9,134,2,302,0)=" W !,""** LIMITATIONS.                                                     **"""
^XMB(3.9,134,2,303,0)="""RTN"",""RMPR124P"",16,0)"
^XMB(3.9,134,2,304,0)="F1 S %=1,DTOUT=0 W !!,""WANT TO PROCEED WITH CLEANSING PROCESS"" D YN^DICN I '% W !,""REPLY YES (Y) OR NO (N)"" G F1"
^XMB(3.9,134,2,305,0)="""RTN"",""RMPR124P"",17,0)"
^XMB(3.9,134,2,306,0)=" S ANS=$S('(%-1):""Y"",1:""N"") I ANS=""N""!$D(DIRUT)!$D(DUOUT) G EXIT"
^XMB(3.9,134,2,307,0)="""RTN"",""RMPR124P"",18,0)"
^XMB(3.9,134,2,308,0)=" W !!"
^XMB(3.9,134,2,309,0)="""RTN"",""RMPR124P"",19,0)"
^XMB(3.9,134,2,310,0)="EN ;Entry Point."
^XMB(3.9,134,2,311,0)="""RTN"",""RMPR124P"",20,0)"
^XMB(3.9,134,2,312,0)=" N DIR,DA,ZTRTN,ZTDESC,RMOPT,ZTSK,ZTQUEUED,ZTIO,POP"
^XMB(3.9,134,2,313,0)="""RTN"",""RMPR124P"",21,0)"
^XMB(3.9,134,2,314,0)=" S DIR(""?"")=""Please enter 1, 2, or 3."""
^XMB(3.9,134,2,315,0)="""RTN"",""RMPR124P"",22,0)"
^XMB(3.9,134,2,316,0)=" S DIR(""?"",1)=""Please note: Options 2 & 3 work directly from the temporary"""
^XMB(3.9,134,2,317,0)="""RTN"",""RMPR124P"",23,0)"
^XMB(3.9,134,2,318,0)=" S DIR(""?"",2)=""file created by length error compile under Option 1 - COMPILE."""
^XMB(3.9,134,2,319,0)="""RTN"",""RMPR124P"",24,0)"
^XMB(3.9,134,2,320,0)=" S DIR(""?"",3)="""""
^XMB(3.9,134,2,321,0)="""RTN"",""RMPR124P"",25,0)"
^XMB(3.9,134,2,322,0)=" S DIR(0)=""SO^1:COMPILE LENGTH ERRORS;2:PRINT LENGTH ERROR REPORT;3:FIX LENGTH ERRORS"""
^XMB(3.9,134,2,323,0)="""RTN"",""RMPR124P"",26,0)"
^XMB(3.9,134,2,324,0)=" S DIR(""L"",1)=""Select one of the following:"""
^XMB(3.9,134,2,325,0)="""RTN"",""RMPR124P"",27,0)"
^XMB(3.9,134,2,326,0)=" S DIR(""L"",2)="""""
^XMB(3.9,134,2,327,0)="""RTN"",""RMPR124P"",28,0)"
^XMB(3.9,134,2,328,0)=" S DIR(""L"",3)=""1 Compile  2 Report  3 Fix Length Errors"""
^XMB(3.9,134,2,329,0)="""RTN"",""RMPR124P"",29,0)"
^XMB(3.9,134,2,330,0)=" D ^DIR"
^XMB(3.9,134,2,331,0)="""RTN"",""RMPR124P"",30,0)"
^XMB(3.9,134,2,332,0)=" S RMOPT=Y"
^XMB(3.9,134,2,333,0)="""RTN"",""RMPR124P"",31,0)"
^XMB(3.9,134,2,334,0)=" Q:RMOPT="""""
^XMB(3.9,134,2,335,0)="""RTN"",""RMPR124P"",32,0)"
^XMB(3.9,134,2,336,0)=" K DIR,DA Q:$D(DIRUT)"
^XMB(3.9,134,2,337,0)="""RTN"",""RMPR124P"",33,0)"
^XMB(3.9,134,2,338,0)=" I RMOPT=1 D ASKCMP Q"
^XMB(3.9,134,2,339,0)="""RTN"",""RMPR124P"",34,0)"
^XMB(3.9,134,2,340,0)=" I RMOPT=2 D PRINT^RMPRFPRT Q"
^XMB(3.9,134,2,341,0)="""RTN"",""RMPR124P"",35,0)"
^XMB(3.9,134,2,342,0)=" I RMOPT=3 D FIX Q"
^XMB(3.9,134,2,343,0)="""RTN"",""RMPR124P"",36,0)"
^XMB(3.9,134,2,344,0)=" G EXIT"
^XMB(3.9,134,2,345,0)="""RTN"",""RMPR124P"",37,0)"
^XMB(3.9,134,2,346,0)="ASKCMP ;COMPILE ASK"
^XMB(3.9,134,2,347,0)="""RTN"",""RMPR124P"",38,0)"
^XMB(3.9,134,2,348,0)=" N RMSTART,RMCREATE,RMPURGE,RMEND,RMREM"
^XMB(3.9,134,2,349,0)="""RTN"",""RMPR124P"",39,0)"
^XMB(3.9,134,2,350,0)=" S Y=$G(^XTMP(""RMPRFIX"",""START COMPILE"")) D DD^%DT S RMSTART=Y"
^XMB(3.9,134,2,351,0)="""RTN"",""RMPR124P"",40,0)"
^XMB(3.9,134,2,352,0)=" S Y=$G(^XTMP(""RMPRFIX"",""END COMPILE"")) D DD^%DT S RMEND=Y"
^XMB(3.9,134,2,353,0)="""RTN"",""RMPR124P"",41,0)"
^XMB(3.9,134,2,354,0)=" I RMEND=""RUNNING"" D  Q"
^XMB(3.9,134,2,355,0)="""RTN"",""RMPR124P"",42,0)"
^XMB(3.9,134,2,356,0)=" .W !!,""Build started on "",RMSTART,"" still running!"""
^XMB(3.9,134,2,357,0)="""RTN"",""RMPR124P"",43,0)"
^XMB(3.9,134,2,358,0)=" .D WAIT"
^XMB(3.9,134,2,359,0)="""RTN"",""RMPR124P"",44,0)"
^XMB(3.9,134,2,360,0)=" S RMREM=$G(^XTMP(""RMPRFIX"",""RMPR"",""COUNT""))"
^XMB(3.9,134,2,361,0)="""RTN"",""RMPR124P"",45,0)"
^XMB(3.9,134,2,362,0)=" I RMEND'="""" D"
^XMB(3.9,134,2,363,0)="""RTN"",""RMPR124P"",46,0)"
^XMB(3.9,134,2,364,0)=" .W !!,""Last Build completed on "",RMEND"
^XMB(3.9,134,2,365,0)="""RTN"",""RMPR124P"",47,0)"
^XMB(3.9,134,2,366,0)=" .I +RMREM>0 W !!,""This build contains "",+RMREM,"" nodes to be fixed, "",+$P(RMREM,""^"",2),"" field length errors"",!"
^XMB(3.9,134,2,367,0)="""RTN"",""RMPR124P"",48,0)"
^XMB(3.9,134,2,368,0)=" .I +RMREM=0 W !!,""There are 0 items to be fixed."",!"
^XMB(3.9,134,2,369,0)="""RTN"",""RMPR124P"",49,0)"
^XMB(3.9,134,2,370,0)=" S DIR(""A"")=""Do you wish to continue with NEW Build? """
^XMB(3.9,134,2,371,0)="""RTN"",""RMPR124P"",50,0)"
^XMB(3.9,134,2,372,0)=" S DIR(0)=""Y"",DIR(""B"")=""NO"""
^XMB(3.9,134,2,373,0)="""RTN"",""RMPR124P"",51,0)"
^XMB(3.9,134,2,374,0)=" D ^DIR"
^XMB(3.9,134,2,375,0)="""RTN"",""RMPR124P"",52,0)"
^XMB(3.9,134,2,376,0)=" K DA,DIR Q:$D(DIRUT)"
^XMB(3.9,134,2,377,0)="""RTN"",""RMPR124P"",53,0)"
^XMB(3.9,134,2,378,0)=" I Y=0 Q"
^XMB(3.9,134,2,379,0)="""RTN"",""RMPR124P"",54,0)"
^XMB(3.9,134,2,380,0)="CMP ;COMPILE"
^XMB(3.9,134,2,381,0)="""RTN"",""RMPR124P"",55,0)"
^XMB(3.9,134,2,382,0)=" K %DT,Y"
^XMB(3.9,134,2,383,0)="""RTN"",""RMPR124P"",56,0)"
^XMB(3.9,134,2,384,0)=" K ^XTMP(""RMPRFIX"")"
^XMB(3.9,134,2,385,0)="""RTN"",""RMPR124P"",57,0)"
^XMB(3.9,134,2,386,0)=" D CLEAR^VALM1"
^XMB(3.9,134,2,387,0)="""RTN"",""RMPR124P"",58,0)"
^XMB(3.9,134,2,388,0)=" ;D BUILD^RMPR124P Q"
^XMB(3.9,134,2,389,0)="""RTN"",""RMPR124P"",59,0)"
^XMB(3.9,134,2,390,0)=" S ZTRTN=""BUILD^RMPR124P"""
^XMB(3.9,134,2,391,0)="""RTN"",""RMPR124P"",60,0)"
^XMB(3.9,134,2,392,0)=" S ZTDESC=""UTILITY FOR RMPR FIELD LENGTH ERRORS"""
^XMB(3.9,134,2,393,0)="""RTN"",""RMPR124P"",61,0)"
^XMB(3.9,134,2,394,0)=" S ZTSAVE(""RM*"")="""",ZTSAVE(""XM*"")="""",ZTIO="""""
^XMB(3.9,134,2,395,0)="""RTN"",""RMPR124P"",62,0)"
^XMB(3.9,134,2,396,0)=" D ^%ZTLOAD"
^XMB(3.9,134,2,397,0)="""RTN"",""RMPR124P"",63,0)"
^XMB(3.9,134,2,398,0)=" I $D(ZTSK) W !,""Request Queued!"""
^XMB(3.9,134,2,399,0)="""RTN"",""RMPR124P"",64,0)"
^XMB(3.9,134,2,400,0)=" D WAIT"
^XMB(3.9,134,2,401,0)="""RTN"",""RMPR124P"",65,0)"
^XMB(3.9,134,2,402,0)=" Q"
^XMB(3.9,134,2,403,0)="""RTN"",""RMPR124P"",66,0)"
^XMB(3.9,134,2,404,0)="BUILD D NOW^%DTC S RMSTART=%"
^XMB(3.9,134,2,405,0)="""RTN"",""RMPR124P"",67,0)"
^XMB(3.9,134,2,406,0)=" S ^XTMP(""RMPRFIX"",""START COMPILE"")=RMSTART"
^XMB(3.9,134,2,407,0)="""RTN"",""RMPR124P"",68,0)"
^XMB(3.9,134,2,408,0)=" S ^XTMP(""RMPRFIX"",""END COMPILE"")=""RUNNING"""
^XMB(3.9,134,2,409,0)="""RTN"",""RMPR124P"",69,0)"
^XMB(3.9,134,2,410,0)=" S ^XTMP(""RMPRFIX"",0)=$$FMADD^XLFDT(RMSTART,90)_""^""_RMSTART"
^XMB(3.9,134,2,411,0)="""RTN"",""RMPR124P"",70,0)"
^XMB(3.9,134,2,412,0)="FIX ;FIX BY INTERNAL PTR FOR 660/664"
^XMB(3.9,134,2,413,0)="""RTN"",""RMPR124P"",71,0)"
^XMB(3.9,134,2,414,0)=" N IEN0,IEN4,R664,IEN42,R40,R42,R43,R660,R6601,R6609,FLD1,FLD2,FLD7,FLD15,FLD152,FLD154,FLD156,FLD19,FLD211,FLD9"
^XMB(3.9,134,2,415,0)="""RTN"",""RMPR124P"",72,0)"
^XMB(3.9,134,2,416,0)=" N FLD16,FLD21,FLD24,FLD25,FLD91,FLD92,FLD1D,FLD2,DIE,DA,DR,DA1,DA2,DA1A,FILE1,FILE2,END,DATA,LMIN,LMAX,WDS"
^XMB(3.9,134,2,417,0)="""RTN"",""RMPR124P"",73,0)"
^XMB(3.9,134,2,418,0)=" N DTOUT,DUOUT,DIRUT,DIR,I,J,ANS,TT,IWD,PCN,HSW,WDA,WDB,WDC,HDT,NUM,Y,TFND,TFIX,RMUSER,RMOBN,HIEN,RMPRCT1,RMPRCT2"
^XMB(3.9,134,2,419,0)="""RTN"",""RMPR124P"",74,0)"
^XMB(3.9,134,2,420,0)=" D:RMOPT=1 BEG^RMPRFFIX D:RMOPT=3 ENT^RMPRFFIX"
^XMB(3.9,134,2,421,0)="""RTN"",""RMPR124P"",75,0)"
^XMB(3.9,134,2,422,0)=" G EXIT:END=1"
^XMB(3.9,134,2,423,0)="""RTN"",""RMPR124P"",76,0)"
^XMB(3.9,134,2,424,0)="EXIT0 W:RMOPT=3 !!,""** REPAIR PROCESS COMPLETE: "",$S(TFND=0:""NO FIELD LENGTH ERRORS FOUND"",1:TFIX_"" FIELD LENGTH ERRORS CORRECTED"")"
^XMB(3.9,134,2,425,0)="""RTN"",""RMPR124P"",77,0)"
^XMB(3.9,134,2,426,0)="EXIT I $G(END)=1,RMOPT=3 W !!,""** REPAIR PROCESS TERMINATED BY USER **"" I TFIX>0 W ""  < "",TFIX_"" FIELD LENGTH ERRORS CORRECTED"","" >"""
^XMB(3.9,134,2,427,0)="""RTN"",""RMPR124P"",78,0)"
^XMB(3.9,134,2,428,0)=" I $G(RMOPT)=1 D"
^XMB(3.9,134,2,429,0)="""RTN"",""RMPR124P"",79,0)"
^XMB(3.9,134,2,430,0)=" . D NOW^%DTC S RMEND=%"
^XMB(3.9,134,2,431,0)="""RTN"",""RMPR124P"",80,0)"
^XMB(3.9,134,2,432,0)=" . S ^XTMP(""RMPRFIX"",""RMPR"",""COUNT"")=RMPRCT1_""^""_RMPRCT2"
^XMB(3.9,134,2,433,0)="""RTN"",""RMPR124P"",81,0)"
^XMB(3.9,134,2,434,0)=" . S ^XTMP(""RMPRFIX"",""END COMPILE"")=RMEND"
^XMB(3.9,134,2,435,0)="""RTN"",""RMPR124P"",82,0)"
^XMB(3.9,134,2,436,0)=" . D MAIL"
^XMB(3.9,134,2,437,0)="""RTN"",""RMPR124P"",83,0)"
^XMB(3.9,134,2,438,0)=" Q"
^XMB(3.9,134,2,439,0)="""RTN"",""RMPR124P"",84,0)"
^XMB(3.9,134,2,440,0)="MAIL ;Send mail message when build complete."
^XMB(3.9,134,2,441,0)="""RTN"",""RMPR124P"",85,0)"
^XMB(3.9,134,2,442,0)=" N XMAIL,XMSUB,XMDUZ,XMTEXT,RMTEXT,Y,XMY,XMMG,XMZ"
^XMB(3.9,134,2,443,0)="""RTN"",""RMPR124P"",86,0)"
^XMB(3.9,134,2,444,0)=" S Y=$G(RMSTART) D DD^%DT S PXSTART=Y"
^XMB(3.9,134,2,445,0)="""RTN"",""RMPR124P"",87,0)"
^XMB(3.9,134,2,446,0)=" S Y=$G(RMEND) D DD^%DT S PXEND=Y"
^XMB(3.9,134,2,447,0)="""RTN"",""RMPR124P"",88,0)"
^XMB(3.9,134,2,448,0)=" S ZTQUEUED=1"
^XMB(3.9,134,2,449,0)="""RTN"",""RMPR124P"",89,0)"
^XMB(3.9,134,2,450,0)=" S RMTEXT(1)=""UTILITY FOR RMPR FIELD LENGTH ERRORS is ready to report & fix."""
^XMB(3.9,134,2,451,0)="""RTN"",""RMPR124P"",90,0)"
^XMB(3.9,134,2,452,0)=" S RMTEXT(1)=""Compile for RMPR field length errors is complete and ready to report & fix."""
^XMB(3.9,134,2,453,0)="""RTN"",""RMPR124P"",91,0)"
^XMB(3.9,134,2,454,0)=" S RMTEXT(2)=""Start time: ""_$G(PXSTART)_"" End time: ""_$G(PXEND)"
^XMB(3.9,134,2,455,0)="""RTN"",""RMPR124P"",92,0)"
^XMB(3.9,134,2,456,0)=" S XMSUB=""RMPR field length error cleanup...Build Completed.."""
^XMB(3.9,134,2,457,0)="""RTN"",""RMPR124P"",93,0)"
^XMB(3.9,134,2,458,0)=" S XMTEXT=""RMTEXT("",XMDUZ=.5,XMY(DUZ)="""""
^XMB(3.9,134,2,459,0)="""RTN"",""RMPR124P"",94,0)"
^XMB(3.9,134,2,460,0)=" D ^XMD"
^XMB(3.9,134,2,461,0)="""RTN"",""RMPR124P"",95,0)"
^XMB(3.9,134,2,462,0)=" S ^XTMP(""RMPRFIX"",""RMPR"",""RMMAIL"")=$G(XMZ)_""^""_DUZ_""^""_$G(XMMG)"
^XMB(3.9,134,2,463,0)="""RTN"",""RMPR124P"",96,0)"
^XMB(3.9,134,2,464,0)=" Q"
^XMB(3.9,134,2,465,0)="""RTN"",""RMPR124P"",97,0)"
^XMB(3.9,134,2,466,0)="WAIT ;"
^XMB(3.9,134,2,467,0)="""RTN"",""RMPR124P"",98,0)"
^XMB(3.9,134,2,468,0)=" ;Q:IO'=$G(IO(""HOME""))"
^XMB(3.9,134,2,469,0)="""RTN"",""RMPR124P"",99,0)"
^XMB(3.9,134,2,470,0)=" N DIR,X,Y,DIRUT,DUOUT,DTOUT,DIROUT"
^XMB(3.9,134,2,471,0)="""RTN"",""RMPR124P"",100,0)"
^XMB(3.9,134,2,472,0)=" W ! S DIR(0)=""E"" S DIR(""A"")=""Enter RETURN to continue"" D ^DIR W !"
^XMB(3.9,134,2,473,0)="""RTN"",""RMPR124P"",101,0)"
^XMB(3.9,134,2,474,0)=" Q"
^XMB(3.9,134,2,475,0)="""RTN"",""RMPRFFIX"")"
^XMB(3.9,134,2,476,0)="0^2^B33824281"
^XMB(3.9,134,2,477,0)="""RTN"",""RMPRFFIX"",1,0)"
^XMB(3.9,134,2,478,0)="RMPRFFIX ;VMP/RB - FIX FIELD LENGTH PROBLEMS FOR FILES #660/664 ;01/13/06"
^XMB(3.9,134,2,479,0)="""RTN"",""RMPRFFIX"",2,0)"
^XMB(3.9,134,2,480,0)=" ;;3.0;Prosthetics;**124**;06/20/05;Build 17"
^XMB(3.9,134,2,481,0)="""RTN"",""RMPRFFIX"",3,0)"
^XMB(3.9,134,2,482,0)=" ;;"
^XMB(3.9,134,2,483,0)="""RTN"",""RMPRFFIX"",4,0)"
^XMB(3.9,134,2,484,0)=" ;1. Post install to correct fields with length error created during"
^XMB(3.9,134,2,485,0)="""RTN"",""RMPRFFIX"",5,0)"
^XMB(3.9,134,2,486,0)=" ;   cut & paste for function key input during GUI process and passed"
^XMB(3.9,134,2,487,0)="""RTN"",""RMPRFFIX"",6,0)"
^XMB(3.9,134,2,488,0)=" ;   to VISTA files 660 and 664 for fields:  Brief Description, Remarks,"
^XMB(3.9,134,2,489,0)="""RTN"",""RMPRFFIX"",7,0)"
^XMB(3.9,134,2,490,0)=" ;   Serial #, Manufacturer, Model and Lot #  "
^XMB(3.9,134,2,491,0)="""RTN"",""RMPRFFIX"",8,0)"
^XMB(3.9,134,2,492,0)=" ;"
^XMB(3.9,134,2,493,0)="""RTN"",""RMPRFFIX"",9,0)"
^XMB(3.9,134,2,494,0)="BEG ;search and correct length in errors for specified fields in files 664/660"
^XMB(3.9,134,2,495,0)="""RTN"",""RMPRFFIX"",10,0)"
^XMB(3.9,134,2,496,0)="RD1 S IEN4=0,FILE2=""^RMPR(660,"",END=0,TT=0,TFND=0,TFIX=0,RMPRCT1=0,RMPRCT2=0"
^XMB(3.9,134,2,497,0)="""RTN"",""RMPRFFIX"",11,0)"
^XMB(3.9,134,2,498,0)="RD1A S IEN4=$O(^RMPR(664,IEN4)),HIEN=0 G EXIT:IEN4=""""!(IEN4]""A"")"
^XMB(3.9,134,2,499,0)="""RTN"",""RMPRFFIX"",12,0)"
^XMB(3.9,134,2,500,0)="RD1AA S DIC=""^RMPR(664,"",DA=IEN4,DR=""7.5;1;7.5;10;13;19;21.1"",DIQ=""D664"",DIQ(0)=""IE"" D EN^DIQ1"
^XMB(3.9,134,2,501,0)="""RTN"",""RMPRFFIX"",13,0)"
^XMB(3.9,134,2,502,0)=" S IEN0=$G(D664(664,IEN4,13,""I"")),IEN42=0,HDT="""",DFN=$G(D664(664,IEN4,1,""E"")),RMUSER=$G(D664(664,IEN4,10,""I"")),RMIFCAP=$G(D664(664,IEN4,7.5,""I""))"
^XMB(3.9,134,2,503,0)="""RTN"",""RMPRFFIX"",14,0)"
^XMB(3.9,134,2,504,0)=" S IWD=""*SHIPPING* LINK"",PCN=$G(D664(664,IEN4,7.5,""I"")),FLD19=$G(D664(664,IEN4,19,""I"")),FLD211=$G(D664(664,IEN4,21.1,""I""))"
^XMB(3.9,134,2,505,0)="""RTN"",""RMPRFFIX"",15,0)"
^XMB(3.9,134,2,506,0)=" K DIC,DA,DR,DIQ,D664"
^XMB(3.9,134,2,507,0)="""RTN"",""RMPRFFIX"",16,0)"
^XMB(3.9,134,2,508,0)=" S IEN42=0,FILE1=""^RMPR(664,"""
^XMB(3.9,134,2,509,0)="""RTN"",""RMPRFFIX"",17,0)"
^XMB(3.9,134,2,510,0)=" D:IEN0>0 FIX660 G EXIT:END=1"
^XMB(3.9,134,2,511,0)="""RTN"",""RMPRFFIX"",18,0)"
^XMB(3.9,134,2,512,0)="RD1B S IEN42=$O(^RMPR(664,IEN4,1,IEN42)),HSW=0,NUM=IEN4_""-""_IEN42 I IEN42=""""!(IEN42=""B"") G RD1A:RMOPT=1,ENTR"
^XMB(3.9,134,2,513,0)="""RTN"",""RMPRFFIX"",19,0)"
^XMB(3.9,134,2,514,0)=" S DIC=""^RMPR(664,"",DA=IEN4,DA(664.02)=IEN42,DR=2,DR(664.02)=""1;7;12;15;15.2;15.4;15.6"",DIQ=""D664"",DIQ(0)=""I"" D EN^DIQ1"
^XMB(3.9,134,2,515,0)="""RTN"",""RMPRFFIX"",20,0)"
^XMB(3.9,134,2,516,0)=" S FLD1D=$G(D664(664.02,IEN42,1,""I"")),FLD7=$G(D664(664.02,IEN42,7,""I"")),FLD15=$G(D664(664.02,IEN42,15,""I"")),IEN0=$G(D664(664.02,IEN42,12,""I"")),IWD=""ITEM ""_IEN42_"": ""_$E(FLD1D,1,30)"
^XMB(3.9,134,2,517,0)="""RTN"",""RMPRFFIX"",21,0)"
^XMB(3.9,134,2,518,0)=" S FLD152=$G(D664(664.02,IEN42,15.2,""I"")),FLD154=$G(D664(664.02,IEN42,15.4,""I"")),FLD156=$G(D664(664.02,IEN42,15.6,""I""))"
^XMB(3.9,134,2,519,0)="""RTN"",""RMPRFFIX"",22,0)"
^XMB(3.9,134,2,520,0)=" K DIC,DA,DR,DIQ,D664"
^XMB(3.9,134,2,521,0)="""RTN"",""RMPRFFIX"",23,0)"
^XMB(3.9,134,2,522,0)=" I IEN42<2,$L(FLD19)>30 S WDA=NUM,WDB=""664-19  (Deliver To)"",WDC=FLD19 D  G ENTR:END=1"
^XMB(3.9,134,2,523,0)="""RTN"",""RMPRFFIX"",24,0)"
^XMB(3.9,134,2,524,0)=" . S FLD1=19,FLD2="""",DA1=IEN4,DA1A="""",DA2="""",LMIN=3,LMAX=30,WDS=""Deliver To"""
^XMB(3.9,134,2,525,0)="""RTN"",""RMPRFFIX"",25,0)"
^XMB(3.9,134,2,526,0)=" . D ASK Q:END=1  D FILE"
^XMB(3.9,134,2,527,0)="""RTN"",""RMPRFFIX"",26,0)"
^XMB(3.9,134,2,528,0)=" I IEN42<2,$L(FLD211)>45 S WDA=NUM,WDB=""664-21.1  (Deliver To Attention)"",WDC=FLD211 D  G ENTR:END=1"
^XMB(3.9,134,2,529,0)="""RTN"",""RMPRFFIX"",27,0)"
^XMB(3.9,134,2,530,0)=" . S FLD1=21.1,FLD2=25,DA1=IEN4,DA1A="""",DA2=IEN0,LMIN=0,LMAX=45,WDS=""Deliver To Attention"""
^XMB(3.9,134,2,531,0)="""RTN"",""RMPRFFIX"",28,0)"
^XMB(3.9,134,2,532,0)=" . D ASK Q:END=1  D FILE"
^XMB(3.9,134,2,533,0)="""RTN"",""RMPRFFIX"",29,0)"
^XMB(3.9,134,2,534,0)=" I IEN42>1,HDT'="""" D"
^XMB(3.9,134,2,535,0)="""RTN"",""RMPRFFIX"",30,0)"
^XMB(3.9,134,2,536,0)=" . S FLD2=25,DA1="""",DA1A="""",DA2=IEN0,DATA=HDT"
^XMB(3.9,134,2,537,0)="""RTN"",""RMPRFFIX"",31,0)"
^XMB(3.9,134,2,538,0)=" . D FILE"
^XMB(3.9,134,2,539,0)="""RTN"",""RMPRFFIX"",32,0)"
^XMB(3.9,134,2,540,0)=" S FILE1=""^RMPR(664,IEN4,1,"""
^XMB(3.9,134,2,541,0)="""RTN"",""RMPRFFIX"",33,0)"
^XMB(3.9,134,2,542,0)=" I $L(FLD1D)>60 S WDA=NUM,WDB=""664-1  (Brief Description)"",WDC=FLD1D D  G ENTR:END=1"
^XMB(3.9,134,2,543,0)="""RTN"",""RMPRFFIX"",34,0)"
^XMB(3.9,134,2,544,0)=" . S FLD1=1,FLD2=24,DA1=IEN42,DA1A=IEN4,DA2=IEN0,LMIN=3,LMAX=60,WDS=""Brief Description"""
^XMB(3.9,134,2,545,0)="""RTN"",""RMPRFFIX"",35,0)"
^XMB(3.9,134,2,546,0)=" . D ASK Q:END=1  D FILE"
^XMB(3.9,134,2,547,0)="""RTN"",""RMPRFFIX"",36,0)"
^XMB(3.9,134,2,548,0)=" I $L(FLD7)>30 S WDA=NUM,WDB=""664-7  (Remarks)"",WDC=FLD7 D  G ENTR:END=1"
^XMB(3.9,134,2,549,0)="""RTN"",""RMPRFFIX"",37,0)"
^XMB(3.9,134,2,550,0)=" . S FLD1=7,FLD2=16,DA1=IEN42,DA1A=IEN4,DA2=IEN0,LMIN=0,LMAX=30,WDS=""Remarks"""
^XMB(3.9,134,2,551,0)="""RTN"",""RMPRFFIX"",38,0)"
^XMB(3.9,134,2,552,0)=" . D ASK Q:END=1  D FILE"
^XMB(3.9,134,2,553,0)="""RTN"",""RMPRFFIX"",39,0)"
^XMB(3.9,134,2,554,0)=" I $L(FLD15)>15 S WDA=NUM,WDB=""664-15  (Serial #)"",WDC=FLD15 D  G ENTR:END=1"
^XMB(3.9,134,2,555,0)="""RTN"",""RMPRFFIX"",40,0)"
^XMB(3.9,134,2,556,0)=" . S FLD1=15,FLD2=9,DA1=IEN42,DA1A=IEN4,DA2=IEN0,LMIN=3,LMAX=15,WDS=""SERIAL #"""
^XMB(3.9,134,2,557,0)="""RTN"",""RMPRFFIX"",41,0)"
^XMB(3.9,134,2,558,0)=" . D ASK Q:END=1  D FILE"
^XMB(3.9,134,2,559,0)="""RTN"",""RMPRFFIX"",42,0)"
^XMB(3.9,134,2,560,0)=" I $L(FLD152)>30 S WDA=NUM,WDB=""664-15.2  (Manufacturer)"",WDC=FLD152 D  G ENTR:END=1"
^XMB(3.9,134,2,561,0)="""RTN"",""RMPRFFIX"",43,0)"
^XMB(3.9,134,2,562,0)=" . S FLD1=15.2,FLD2=9.1,DA1=IEN42,DA1A=IEN4,DA2=IEN0,LMIN=0,LMAX=30,WDS=""Manufacturer"""
^XMB(3.9,134,2,563,0)="""RTN"",""RMPRFFIX"",44,0)"
^XMB(3.9,134,2,564,0)=" . D ASK Q:END=1  D FILE"
^XMB(3.9,134,2,565,0)="""RTN"",""RMPRFFIX"",45,0)"
^XMB(3.9,134,2,566,0)=" I $L(FLD154)>30 S WDA=NUM,WDB=""664-15.4  (Model)"",WDC=FLD154 D  G ENTR:END=1"
^XMB(3.9,134,2,567,0)="""RTN"",""RMPRFFIX"",46,0)"
^XMB(3.9,134,2,568,0)=" . S FLD1=15.4,FLD2=9.2,DA1=IEN42,DA1A=IEN4,DA2=IEN0,LMIN=0,LMAX=30,WDS=""Model"""
^XMB(3.9,134,2,569,0)="""RTN"",""RMPRFFIX"",47,0)"
^XMB(3.9,134,2,570,0)=" . D ASK Q:END=1  D FILE"
^XMB(3.9,134,2,571,0)="""RTN"",""RMPRFFIX"",48,0)"
^XMB(3.9,134,2,572,0)=" I $L(FLD156)>30 S WDA=NUM,WDB=""664-15.6  (Lot #)"",WDC=FLD156 D  G ENTR:END=1"
^XMB(3.9,134,2,573,0)="""RTN"",""RMPRFFIX"",49,0)"
^XMB(3.9,134,2,574,0)=" . S FLD1=15.6,FLD2=21,DA1=IEN42,DA1A=IEN4,DA2=IEN0,LMIN=0,LMAX=30,WDS=""Lot #"""
^XMB(3.9,134,2,575,0)="""RTN"",""RMPRFFIX"",50,0)"
^XMB(3.9,134,2,576,0)=" . D ASK Q:END=1  D FILE"
^XMB(3.9,134,2,577,0)="""RTN"",""RMPRFFIX"",51,0)"
^XMB(3.9,134,2,578,0)=" G RD1B"
^XMB(3.9,134,2,579,0)="""RTN"",""RMPRFFIX"",52,0)"
^XMB(3.9,134,2,580,0)="FIX660 ;search and correct length in errors for specified fields in files 660"
^XMB(3.9,134,2,581,0)="""RTN"",""RMPRFFIX"",53,0)"
^XMB(3.9,134,2,582,0)=" S HSW=0"
^XMB(3.9,134,2,583,0)="""RTN"",""RMPRFFIX"",54,0)"
^XMB(3.9,134,2,584,0)=" S DIC=""^RMPR(660,"",DA=IEN0,DR=""9;16;21;24:25;9.1;9.2"",DIQ=""D660"",DIQ(0)=""I"" D EN^DIQ1"
^XMB(3.9,134,2,585,0)="""RTN"",""RMPRFFIX"",55,0)"
^XMB(3.9,134,2,586,0)=" S FLD16=$G(D660(660,IEN0,16,""I"")),FLD9=$G(D660(660,IEN0,9,""I"")),FLD21=$G(D660(660,IEN0,21,""I""))"
^XMB(3.9,134,2,587,0)="""RTN"",""RMPRFFIX"",56,0)"
^XMB(3.9,134,2,588,0)=" S FLD24=$G(D660(660,IEN0,24,""I"")),FLD91=$G(D660(660,IEN0,9.1,""I"")),FLD92=$G(D660(660,IEN0,9.2,""I""))"
^XMB(3.9,134,2,589,0)="""RTN"",""RMPRFFIX"",57,0)"
^XMB(3.9,134,2,590,0)=" S FLD25=$G(D660(660,IEN0,25,""I""))"
^XMB(3.9,134,2,591,0)="""RTN"",""RMPRFFIX"",58,0)"
^XMB(3.9,134,2,592,0)=" K DIC,DA,DR,DIQ,D660"
^XMB(3.9,134,2,593,0)="""RTN"",""RMPRFFIX"",59,0)"
^XMB(3.9,134,2,594,0)=" I $L(FLD25)>30 S WDA=IEN0,WDB=""660-25  (Deliver To)"",WDC=FLD25 D  G ENTR:END=1"
^XMB(3.9,134,2,595,0)="""RTN"",""RMPRFFIX"",60,0)"
^XMB(3.9,134,2,596,0)=" . S FLD2=25,DA2=IEN0,LMIN=3,LMAX=30,WDS=""(Pros/Appliance Repair) Deliver To"""
^XMB(3.9,134,2,597,0)="""RTN"",""RMPRFFIX"",61,0)"
^XMB(3.9,134,2,598,0)=" . D ASK Q:END=1  D FILE"
^XMB(3.9,134,2,599,0)="""RTN"",""RMPRFFIX"",62,0)"
^XMB(3.9,134,2,600,0)=" I $L(FLD24)>60 S WDA=IEN0,WDB=""660-24  (Brief Description)"",WDC=FLD24 D  G ENTR:END=1"
^XMB(3.9,134,2,601,0)="""RTN"",""RMPRFFIX"",63,0)"
^XMB(3.9,134,2,602,0)=" . S FLD2=24,DA2=IEN0,LMIN=3,LMAX=60,WDS=""(Pros/Appliance Repair) Brief Description"""
^XMB(3.9,134,2,603,0)="""RTN"",""RMPRFFIX"",64,0)"
^XMB(3.9,134,2,604,0)=" . D ASK Q:END=1  D FILE"
^XMB(3.9,134,2,605,0)="""RTN"",""RMPRFFIX"",65,0)"
^XMB(3.9,134,2,606,0)=" I $L(FLD16)>61 S WDA=IEN0,WDB=""660-16  (Remarks)"",WDC=FLD16 D  G ENTR:END=1"
^XMB(3.9,134,2,607,0)="""RTN"",""RMPRFFIX"",66,0)"
^XMB(3.9,134,2,608,0)=" . S FLD2=16,DA2=IEN0,LMIN=0,LMAX=61,WDS=""(Pros/Appliance Repair) Remarks"""
^XMB(3.9,134,2,609,0)="""RTN"",""RMPRFFIX"",67,0)"
^XMB(3.9,134,2,610,0)=" . D ASK Q:END=1  D FILE"
^XMB(3.9,134,2,611,0)="""RTN"",""RMPRFFIX"",68,0)"
^XMB(3.9,134,2,612,0)=" I $L(FLD9)>20 S WDA=IEN0,WDB=""660-9  (Serial #)"",WDC=FLD9 D  G ENTR:END=1"
^XMB(3.9,134,2,613,0)="""RTN"",""RMPRFFIX"",69,0)"
^XMB(3.9,134,2,614,0)=" . S FLD2=9,DA2=IEN0,LMIN=0,LMAX=20,WDS=""(Pros/Appliance Repair) Serial #"""
^XMB(3.9,134,2,615,0)="""RTN"",""RMPRFFIX"",70,0)"
^XMB(3.9,134,2,616,0)=" . D ASK Q:END=1  D FILE"
^XMB(3.9,134,2,617,0)="""RTN"",""RMPRFFIX"",71,0)"
^XMB(3.9,134,2,618,0)=" I $L(FLD21)>20 S WDA=IEN0,WDB=""660-21  (Lot #)"",WDC=FLD21 D  G ENTR:END=1"
^XMB(3.9,134,2,619,0)="""RTN"",""RMPRFFIX"",72,0)"
^XMB(3.9,134,2,620,0)=" . S FLD2=21,DA2=IEN0,LMIN=0,LMAX=20,WDS=""(Pros/Appliance Repair) Lot #"""
^XMB(3.9,134,2,621,0)="""RTN"",""RMPRFFIX"",73,0)"
^XMB(3.9,134,2,622,0)=" . D ASK Q:END=1  D FILE"
^XMB(3.9,134,2,623,0)="""RTN"",""RMPRFFIX"",74,0)"
^XMB(3.9,134,2,624,0)=" I $L(FLD91)>55 S WDA=IEN0,WDB=""660-91  (Manufacturer)"",WDC=FLD91 D  G ENTR:END=1"
^XMB(3.9,134,2,625,0)="""RTN"",""RMPRFFIX"",75,0)"
^XMB(3.9,134,2,626,0)=" . S FLD2=9.1,DA2=IEN0,LMIN=0,LMAX=55,WDS=""(Pros/Appliance Repair) Manufacturer"""
^XMB(3.9,134,2,627,0)="""RTN"",""RMPRFFIX"",76,0)"
^XMB(3.9,134,2,628,0)=" . D ASK Q:END=1  D FILE"
^XMB(3.9,134,2,629,0)="""RTN"",""RMPRFFIX"",77,0)"
^XMB(3.9,134,2,630,0)=" I $L(FLD92)>55 S WDA=IEN0,WDB=""660-92  (Model)"",WDC=FLD92 D  G ENTR:END=1"
^XMB(3.9,134,2,631,0)="""RTN"",""RMPRFFIX"",78,0)"
^XMB(3.9,134,2,632,0)=" . S FLD2=9.2,DA2=IEN0,LMIN=0,LMAX=55,WDS=""(Pros/Appliance Repair) Model"""
^XMB(3.9,134,2,633,0)="""RTN"",""RMPRFFIX"",79,0)"
^XMB(3.9,134,2,634,0)=" . D ASK Q:END=1  D FILE"
^XMB(3.9,134,2,635,0)="""RTN"",""RMPRFFIX"",80,0)"
^XMB(3.9,134,2,636,0)=" Q"
^XMB(3.9,134,2,637,0)="""RTN"",""RMPRFFIX"",81,0)"
^XMB(3.9,134,2,638,0)="ASK I RMOPT=1 D  Q"
^XMB(3.9,134,2,639,0)="""RTN"",""RMPRFFIX"",82,0)"
^XMB(3.9,134,2,640,0)=" . S ^XTMP(""RMPRFIX"",""RMPR"",RMUSER,IEN4,IEN42,$P(WDB,"" ""))=LMIN_U_LMAX_U_WDB_U_DFN_U_$L(WDC)_U_RMIFCAP_U_IWD_U_IEN4_U_IEN42_U_IEN0_U_WDA_U_WDC"
^XMB(3.9,134,2,641,0)="""RTN"",""RMPRFFIX"",83,0)"
^XMB(3.9,134,2,642,0)=" . S ^XTMP(""RMPRFIX"",""RMPR"",""A"",IEN4)="""""
^XMB(3.9,134,2,643,0)="""RTN"",""RMPRFFIX"",84,0)"
^XMB(3.9,134,2,644,0)=" . S RMPRCT2=RMPRCT2+1"
^XMB(3.9,134,2,645,0)="""RTN"",""RMPRFFIX"",85,0)"
^XMB(3.9,134,2,646,0)=" . S:IEN4'=HIEN RMPRCT1=RMPRCT1+1,HIEN=IEN4"
^XMB(3.9,134,2,647,0)="""RTN"",""RMPRFFIX"",86,0)"
^XMB(3.9,134,2,648,0)=" I HSW=0 W !,IEN4,"" / "",IEN0,?20,""PCN: "",PCN,?42,""ITEM: "",IWD"
^XMB(3.9,134,2,649,0)="""RTN"",""RMPRFFIX"",87,0)"
^XMB(3.9,134,2,650,0)=" S HSW=1,TFND=TFND+1"
^XMB(3.9,134,2,651,0)="""RTN"",""RMPRFFIX"",88,0)"
^XMB(3.9,134,2,652,0)=" ;ASK NEW FIELD ENTRY WITH CORRECT LENGTH"
^XMB(3.9,134,2,653,0)="""RTN"",""RMPRFFIX"",89,0)"
^XMB(3.9,134,2,654,0)=" W !,WDA,?12,WDB,!,WDC,!"
^XMB(3.9,134,2,655,0)="""RTN"",""RMPRFFIX"",90,0)"
^XMB(3.9,134,2,656,0)=" S DIR(""A"")=WDS,DIR(""?"")=$S(LMIN=0:""Field length cannot exceed ""_LMAX_"" characters"",1:""Field length must be ""_LMIN_""-""_LMAX_"" characters in length"")"
^XMB(3.9,134,2,657,0)="""RTN"",""RMPRFFIX"",91,0)"
^XMB(3.9,134,2,658,0)=" S DIR(0)=""F^""_LMIN_"":""_LMAX"
^XMB(3.9,134,2,659,0)="""RTN"",""RMPRFFIX"",92,0)"
^XMB(3.9,134,2,660,0)=" W !,DIR(""?""),!"
^XMB(3.9,134,2,661,0)="""RTN"",""RMPRFFIX"",93,0)"
^XMB(3.9,134,2,662,0)=" D ^DIR"
^XMB(3.9,134,2,663,0)="""RTN"",""RMPRFFIX"",94,0)"
^XMB(3.9,134,2,664,0)=" I $D(DUOUT)!$D(DIRUT) S END=1 Q"
^XMB(3.9,134,2,665,0)="""RTN"",""RMPRFFIX"",95,0)"
^XMB(3.9,134,2,666,0)=" S DATA=Y"
^XMB(3.9,134,2,667,0)="""RTN"",""RMPRFFIX"",96,0)"
^XMB(3.9,134,2,668,0)=" W !"
^XMB(3.9,134,2,669,0)="""RTN"",""RMPRFFIX"",97,0)"
^XMB(3.9,134,2,670,0)=" Q"
^XMB(3.9,134,2,671,0)="""RTN"",""RMPRFFIX"",98,0)"
^XMB(3.9,134,2,672,0)="FILE Q:RMOPT=1"
^XMB(3.9,134,2,673,0)="""RTN"",""RMPRFFIX"",99,0)"
^XMB(3.9,134,2,674,0)=" K DA,DR,DIE"
^XMB(3.9,134,2,675,0)="""RTN"",""RMPRFFIX"",100,0)"
^XMB(3.9,134,2,676,0)=" I IEN42'=0,DA1'="""" S DIE=FILE1,DA=DA1,DR=FLD1_""////^S X=DATA"" S:DA1A DA(1)=DA1A D ^DIE K DA,DIE,DR"
^XMB(3.9,134,2,677,0)="""RTN"",""RMPRFFIX"",101,0)"
^XMB(3.9,134,2,678,0)=" I $G(FLD1)=19 S HDT=DATA"
^XMB(3.9,134,2,679,0)="""RTN"",""RMPRFFIX"",102,0)"
^XMB(3.9,134,2,680,0)=" Q:DA2=""""!(FLD2="""")"
^XMB(3.9,134,2,681,0)="""RTN"",""RMPRFFIX"",103,0)"
^XMB(3.9,134,2,682,0)=" S DIE=FILE2,DA=DA2,DR=FLD2_""////^S X=DATA"" D ^DIE K DA,DIE,DR"
^XMB(3.9,134,2,683,0)="""RTN"",""RMPRFFIX"",104,0)"
^XMB(3.9,134,2,684,0)=" S TFIX=TFIX+1"
^XMB(3.9,134,2,685,0)="""RTN"",""RMPRFFIX"",105,0)"
^XMB(3.9,134,2,686,0)=" Q"
^XMB(3.9,134,2,687,0)="""RTN"",""RMPRFFIX"",106,0)"
^XMB(3.9,134,2,688,0)="ENT ;ASK INT TO FIX"
^XMB(3.9,134,2,689,0)="""RTN"",""RMPRFFIX"",107,0)"
^XMB(3.9,134,2,690,0)=" S IEN4=0,FILE2=""^RMPR(660,"",END=0,TFND=0,TFIX=0"
^XMB(3.9,134,2,691,0)="""RTN"",""RMPRFFIX"",108,0)"
^XMB(3.9,134,2,692,0)="ENTR ;664 INTERNAL FROM BUILD REPORT"
^XMB(3.9,134,2,693,0)="""RTN"",""RMPRFFIX"",109,0)"
^XMB(3.9,134,2,694,0)=" S DIR(""A"")=""RECORD IDENTIFIER"",DIR(""?"")=""Enter record identifier from build list to be corrected"""
^XMB(3.9,134,2,695,0)="""RTN"",""RMPRFFIX"",110,0)"
^XMB(3.9,134,2,696,0)=" S DIR(0)=""F"""
^XMB(3.9,134,2,697,0)="""RTN"",""RMPRFFIX"",111,0)"
^XMB(3.9,134,2,698,0)=" W !,DIR(""?""),!"
^XMB(3.9,134,2,699,0)="""RTN"",""RMPRFFIX"",112,0)"
^XMB(3.9,134,2,700,0)=" D ^DIR"
^XMB(3.9,134,2,701,0)="""RTN"",""RMPRFFIX"",113,0)"
^XMB(3.9,134,2,702,0)=" I $D(DUOUT)!$D(DIRUT) S END=1 Q"
^XMB(3.9,134,2,703,0)="""RTN"",""RMPRFFIX"",114,0)"
^XMB(3.9,134,2,704,0)=" Q:Y="""""
^XMB(3.9,134,2,705,0)="""RTN"",""RMPRFFIX"",115,0)"
^XMB(3.9,134,2,706,0)=" S IEN4=Y"
^XMB(3.9,134,2,707,0)="""RTN"",""RMPRFFIX"",116,0)"
^XMB(3.9,134,2,708,0)=" I '$D(^XTMP(""RMPRFIX"",""RMPR"",""A"",Y)) W ""   ** NOT FOUND ON CORRECTION REPORT"" G ENTR"
^XMB(3.9,134,2,709,0)="""RTN"",""RMPRFFIX"",117,0)"
^XMB(3.9,134,2,710,0)=" W !"
^XMB(3.9,134,2,711,0)="""RTN"",""RMPRFFIX"",118,0)"
^XMB(3.9,134,2,712,0)=" G RD1AA"
^XMB(3.9,134,2,713,0)="""RTN"",""RMPRFFIX"",119,0)"
^XMB(3.9,134,2,714,0)="EXIT Q"
^XMB(3.9,134,2,715,0)="""RTN"",""RMPRFPRT"")"
^XMB(3.9,134,2,716,0)="0^3^B6320218"
^XMB(3.9,134,2,717,0)="""RTN"",""RMPRFPRT"",1,0)"
^XMB(3.9,134,2,718,0)="RMPRFPRT ;VMP/RB - FIX FIELD LENGTH PROBLEMS FOR FILES #660/664 ;01/13/06"
^XMB(3.9,134,2,719,0)="""RTN"",""RMPRFPRT"",2,0)"
^XMB(3.9,134,2,720,0)=" ;;3.0;Prosthetics;**124**;06/20/05;Build 17"
^XMB(3.9,134,2,721,0)="""RTN"",""RMPRFPRT"",3,0)"
^XMB(3.9,134,2,722,0)=" ;;"
^XMB(3.9,134,2,723,0)="""RTN"",""RMPRFPRT"",4,0)"
^XMB(3.9,134,2,724,0)=" ;1. Post install to correct fields with length error created during"
^XMB(3.9,134,2,725,0)="""RTN"",""RMPRFPRT"",5,0)"
^XMB(3.9,134,2,726,0)=" ;   cut & paste for function key input during GUI process and passed"
^XMB(3.9,134,2,727,0)="""RTN"",""RMPRFPRT"",6,0)"
^XMB(3.9,134,2,728,0)=" ;   to VISTA files 660 and 664 for fields:  Brief Description, Remarks,"
^XMB(3.9,134,2,729,0)="""RTN"",""RMPRFPRT"",7,0)"
^XMB(3.9,134,2,730,0)=" ;   Serial #, Manufacturer, Model and Lot #  "
^XMB(3.9,134,2,731,0)="""RTN"",""RMPRFPRT"",8,0)"
^XMB(3.9,134,2,732,0)=" ;"
^XMB(3.9,134,2,733,0)="""RTN"",""RMPRFPRT"",9,0)"
^XMB(3.9,134,2,734,0)="PRINT ;print compile field length errors for specified fields in files 664/660"
^XMB(3.9,134,2,735,0)="""RTN"",""RMPRFPRT"",10,0)"
^XMB(3.9,134,2,736,0)=" N %ZIS"
^XMB(3.9,134,2,737,0)="""RTN"",""RMPRFPRT"",11,0)"
^XMB(3.9,134,2,738,0)=" I $G(^XTMP(""RMPRFIX"",""END COMPILE""))=""RUNNING"" D  Q"
^XMB(3.9,134,2,739,0)="""RTN"",""RMPRFPRT"",12,0)"
^XMB(3.9,134,2,740,0)=" .W !!,""Build is running, please wait until complete!"""
^XMB(3.9,134,2,741,0)="""RTN"",""RMPRFPRT"",13,0)"
^XMB(3.9,134,2,742,0)=" .D WAIT"
^XMB(3.9,134,2,743,0)="""RTN"",""RMPRFPRT"",14,0)"
^XMB(3.9,134,2,744,0)=" I +$G(^XTMP(""RMPRFIX"",""RMPR"",""COUNT""))=0 D  Q"
^XMB(3.9,134,2,745,0)="""RTN"",""RMPRFPRT"",15,0)"
^XMB(3.9,134,2,746,0)=" .W !!,""No field length errors found!"""
^XMB(3.9,134,2,747,0)="""RTN"",""RMPRFPRT"",16,0)"
^XMB(3.9,134,2,748,0)=" .D WAIT"
^XMB(3.9,134,2,749,0)="""RTN"",""RMPRFPRT"",17,0)"
^XMB(3.9,134,2,750,0)=" S %ZIS=""Q"" D ^%ZIS Q:POP  I '$D(IO(""Q"")) U IO D PRINT1 Q"
^XMB(3.9,134,2,751,0)="""RTN"",""RMPRFPRT"",18,0)"
^XMB(3.9,134,2,752,0)=" S ZTRTN=""PRINT1^RMPRFPRT"",ZTDESC=""RMPR LNGTH ERR RPT"" D ^%ZTLOAD,HOME^%ZIS"
^XMB(3.9,134,2,753,0)="""RTN"",""RMPRFPRT"",19,0)"
^XMB(3.9,134,2,754,0)=" Q"
^XMB(3.9,134,2,755,0)="""RTN"",""RMPRFPRT"",20,0)"
^XMB(3.9,134,2,756,0)="PRINT1 ;"
^XMB(3.9,134,2,757,0)="""RTN"",""RMPRFPRT"",21,0)"
^XMB(3.9,134,2,758,0)=" N RMEND,PG,ORG,HIEN,DATA,XD,FLD,IEN,ERR,ITEM,OBN,IOSL"
^XMB(3.9,134,2,759,0)="""RTN"",""RMPRFPRT"",22,0)"
^XMB(3.9,134,2,760,0)=" S (ORG,RMEND,IEN,HIEN,PG)=0,U=""^"",IOSL=66 S:$E(IOST,1,2)=""C-"" IOSL=22"
^XMB(3.9,134,2,761,0)="""RTN"",""RMPRFPRT"",23,0)"
^XMB(3.9,134,2,762,0)=" F  S ORG=$O(^XTMP(""RMPRFIX"",""RMPR"",ORG)),IEN=0 Q:ORG=""""!(ORG]""@"")!RMEND  D"
^XMB(3.9,134,2,763,0)="""RTN"",""RMPRFPRT"",24,0)"
^XMB(3.9,134,2,764,0)=" .S PG=0,ORGN=$P(^VA(200,ORG,0),U)"
^XMB(3.9,134,2,765,0)="""RTN"",""RMPRFPRT"",25,0)"
^XMB(3.9,134,2,766,0)=" .F  S IEN=$O(^XTMP(""RMPRFIX"",""RMPR"",ORG,IEN)),ITEM="""" Q:IEN=""""!RMEND  D"
^XMB(3.9,134,2,767,0)="""RTN"",""RMPRFPRT"",26,0)"
^XMB(3.9,134,2,768,0)=" ..F  S ITEM=$O(^XTMP(""RMPRFIX"",""RMPR"",ORG,IEN,ITEM)),FLD=0 Q:ITEM=""""!RMEND  D"
^XMB(3.9,134,2,769,0)="""RTN"",""RMPRFPRT"",27,0)"
^XMB(3.9,134,2,770,0)=" ...F  S FLD=$O(^XTMP(""RMPRFIX"",""RMPR"",ORG,IEN,ITEM,FLD)) Q:FLD=""""!RMEND  D"
^XMB(3.9,134,2,771,0)="""RTN"",""RMPRFPRT"",28,0)"
^XMB(3.9,134,2,772,0)=" ....S ERR=^XTMP(""RMPRFIX"",""RMPR"",ORG,IEN,ITEM,FLD)"
^XMB(3.9,134,2,773,0)="""RTN"",""RMPRFPRT"",29,0)"
^XMB(3.9,134,2,774,0)=" ....I IEN'=HIEN D HDR Q:RMEND  S HIEN=IEN"
^XMB(3.9,134,2,775,0)="""RTN"",""RMPRFPRT"",30,0)"
^XMB(3.9,134,2,776,0)=" ....I $Y+4>IOSL D HDR Q:RMEND"
^XMB(3.9,134,2,777,0)="""RTN"",""RMPRFPRT"",31,0)"
^XMB(3.9,134,2,778,0)=" ....W !!,""Field: "",$P(ERR,U,3),?35,""Origin: "",$E($P(ERR,U,7),1,35),!,?10,""MIN: "",$P(ERR,U),?20,""MAX: "",$P(ERR,U,2),?35,""ERR LGTH: "",$P(ERR,U,5)"
^XMB(3.9,134,2,779,0)="""RTN"",""RMPRFPRT"",32,0)"
^XMB(3.9,134,2,780,0)=" ....W ?70,ITEM,""/"",$P(ERR,U,10),!"
^XMB(3.9,134,2,781,0)="""RTN"",""RMPRFPRT"",33,0)"
^XMB(3.9,134,2,782,0)=" ....S DATA=$P(ERR,U,12)"
^XMB(3.9,134,2,783,0)="""RTN"",""RMPRFPRT"",34,0)"
^XMB(3.9,134,2,784,0)=" ....F I=1:70 S XD=$E(DATA,I,I+69) Q:XD=""""  D  Q:RMEND "
^XMB(3.9,134,2,785,0)="""RTN"",""RMPRFPRT"",35,0)"
^XMB(3.9,134,2,786,0)=" .....I $Y+2>IOSL D HDR Q:RMEND"
^XMB(3.9,134,2,787,0)="""RTN"",""RMPRFPRT"",36,0)"
^XMB(3.9,134,2,788,0)=" .....W ! W:I=1 ""DATA: "" W ?8,XD"
^XMB(3.9,134,2,789,0)="""RTN"",""RMPRFPRT"",37,0)"
^XMB(3.9,134,2,790,0)=" W @IOF"
^XMB(3.9,134,2,791,0)="""RTN"",""RMPRFPRT"",38,0)"
^XMB(3.9,134,2,792,0)=" D ^%ZISC"
^XMB(3.9,134,2,793,0)="""RTN"",""RMPRFPRT"",39,0)"
^XMB(3.9,134,2,794,0)=" Q"
^XMB(3.9,134,2,795,0)="""RTN"",""RMPRFPRT"",40,0)"
^XMB(3.9,134,2,796,0)="HDR ;"
^XMB(3.9,134,2,797,0)="""RTN"",""RMPRFPRT"",41,0)"
^XMB(3.9,134,2,798,0)=" I PG,$E(IOST,1,2)=""C-"" S RMEND=$$EOP^ESPUTIL() Q:RMEND  W @IOF"
^XMB(3.9,134,2,799,0)="""RTN"",""RMPRFPRT"",42,0)"
^XMB(3.9,134,2,800,0)=" E  W @IOF"
^XMB(3.9,134,2,801,0)="""RTN"",""RMPRFPRT"",43,0)"
^XMB(3.9,134,2,802,0)=" S PG=PG+1"
^XMB(3.9,134,2,803,0)="""RTN"",""RMPRFPRT"",44,0)"
^XMB(3.9,134,2,804,0)=" W !!,?23,""File 664/660 Field Length Errors"",?70,""Page "",PG,!"
^XMB(3.9,134,2,805,0)="""RTN"",""RMPRFPRT"",45,0)"
^XMB(3.9,134,2,806,0)=" W !,""Originator=>> "",ORGN,!"
^XMB(3.9,134,2,807,0)="""RTN"",""RMPRFPRT"",46,0)"
^XMB(3.9,134,2,808,0)=" W !,?2,""IEN"",?20,""Patient Name"",?50,""IFCAP ORDER"",!"
^XMB(3.9,134,2,809,0)="""RTN"",""RMPRFPRT"",47,0)"
^XMB(3.9,134,2,810,0)=" W !,?2,IEN,?20,$P(ERR,U,4),?50,$P(ERR,U,6),!"
^XMB(3.9,134,2,811,0)="""RTN"",""RMPRFPRT"",48,0)"
^XMB(3.9,134,2,812,0)=" Q"
^XMB(3.9,134,2,813,0)="""RTN"",""RMPRFPRT"",49,0)"
^XMB(3.9,134,2,814,0)="WAIT ;"
^XMB(3.9,134,2,815,0)="""RTN"",""RMPRFPRT"",50,0)"
^XMB(3.9,134,2,816,0)=" ;Q:IO'=$G(IO(""HOME""))"
^XMB(3.9,134,2,817,0)="""RTN"",""RMPRFPRT"",51,0)"
^XMB(3.9,134,2,818,0)=" N DIR,X,Y,DIRUT,DUOUT,DTOUT,DIROUT"
^XMB(3.9,134,2,819,0)="""RTN"",""RMPRFPRT"",52,0)"
^XMB(3.9,134,2,820,0)=" W ! S DIR(0)=""E"" S DIR(""A"")=""Enter RETURN to continue"" D ^DIR W !"
^XMB(3.9,134,2,821,0)="""RTN"",""RMPRFPRT"",53,0)"
^XMB(3.9,134,2,822,0)=" Q"
^XMB(3.9,134,2,823,0)="""VER"")"
^XMB(3.9,134,2,824,0)="8.0^22.0"
^XMB(3.9,134,2,825,0)="""BLD"",5964,6)"
^XMB(3.9,134,2,826,0)="^98"
^XMB(3.9,134,2,827,0)="$END KID RMPR*3.0*124"
^XMB(3.9,134,6,0)="^3.911A^2^2"
^XMB(3.9,134,6,1,0)="POSTMASTER"
^XMB(3.9,134,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,134,6,"B","POSTMASTER",1)=""
^XMB(3.9,134,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,135,0)="RMPR-3_SEQ-99_PAT-121.KID^.5^3061008.015742^^^^K"
^XMB(3.9,135,.6)="3061008"
^XMB(3.9,135,1,0)="^3.91A^2^2"
^XMB(3.9,135,1,1,0)=".5^0^3061008.015742^^^^^^^3061008.015742"
^XMB(3.9,135,1,2,0)="1^0^3061008.022711^^^^^^^3061008.022711"
^XMB(3.9,135,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,135,1,"C",.5,1)=""
^XMB(3.9,135,1,"C",1,2)=""
^XMB(3.9,135,2,0)="^^405^405^3061008"
^XMB(3.9,135,2,1,0)="$TXT Released RMPR*3*121 SEQ #99"
^XMB(3.9,135,2,2,0)="Extracted from mail message"
^XMB(3.9,135,2,3,0)="$END TXT"
^XMB(3.9,135,2,4,0)="$KID RMPR*3.0*121"
^XMB(3.9,135,2,5,0)="**INSTALL NAME**"
^XMB(3.9,135,2,6,0)="RMPR*3.0*121"
^XMB(3.9,135,2,7,0)="""BLD"",6033,0)"
^XMB(3.9,135,2,8,0)="RMPR*3.0*121^PROSTHETICS^0^3060518^y"
^XMB(3.9,135,2,9,0)="""BLD"",6033,1,0)"
^XMB(3.9,135,2,10,0)="^^3^3^3060411^"
^XMB(3.9,135,2,11,0)="""BLD"",6033,1,1,0)"
^XMB(3.9,135,2,12,0)="1. Delete issue from stock error <SUBSCRIPT>DEL68^RMPRPCED"
^XMB(3.9,135,2,13,0)="""BLD"",6033,1,2,0)"
^XMB(3.9,135,2,14,0)=" "
^XMB(3.9,135,2,15,0)="""BLD"",6033,1,3,0)"
^XMB(3.9,135,2,16,0)="2. Problem with option, Edit/Delte Issue from Stock "
^XMB(3.9,135,2,17,0)="""BLD"",6033,4,0)"
^XMB(3.9,135,2,18,0)="^9.64PA^^"
^XMB(3.9,135,2,19,0)="""BLD"",6033,6.3)"
^XMB(3.9,135,2,20,0)="3"
^XMB(3.9,135,2,21,0)="""BLD"",6033,""ABPKG"")"
^XMB(3.9,135,2,22,0)="n"
^XMB(3.9,135,2,23,0)="""BLD"",6033,""KRN"",0)"
^XMB(3.9,135,2,24,0)="^9.67PA^8989.52^19"
^XMB(3.9,135,2,25,0)="""BLD"",6033,""KRN"",.4,0)"
^XMB(3.9,135,2,26,0)=".4"
^XMB(3.9,135,2,27,0)="""BLD"",6033,""KRN"",.401,0)"
^XMB(3.9,135,2,28,0)=".401"
^XMB(3.9,135,2,29,0)="""BLD"",6033,""KRN"",.402,0)"
^XMB(3.9,135,2,30,0)=".402"
^XMB(3.9,135,2,31,0)="""BLD"",6033,""KRN"",.403,0)"
^XMB(3.9,135,2,32,0)=".403"
^XMB(3.9,135,2,33,0)="""BLD"",6033,""KRN"",.5,0)"
^XMB(3.9,135,2,34,0)=".5"
^XMB(3.9,135,2,35,0)="""BLD"",6033,""KRN"",.84,0)"
^XMB(3.9,135,2,36,0)=".84"
^XMB(3.9,135,2,37,0)="""BLD"",6033,""KRN"",3.6,0)"
^XMB(3.9,135,2,38,0)="3.6"
^XMB(3.9,135,2,39,0)="""BLD"",6033,""KRN"",3.8,0)"
^XMB(3.9,135,2,40,0)="3.8"
^XMB(3.9,135,2,41,0)="""BLD"",6033,""KRN"",9.2,0)"
^XMB(3.9,135,2,42,0)="9.2"
^XMB(3.9,135,2,43,0)="""BLD"",6033,""KRN"",9.8,0)"
^XMB(3.9,135,2,44,0)="9.8"
^XMB(3.9,135,2,45,0)="""BLD"",6033,""KRN"",9.8,""NM"",0)"
^XMB(3.9,135,2,46,0)="^9.68A^1^1"
^XMB(3.9,135,2,47,0)="""BLD"",6033,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,135,2,48,0)="RMPRPCED^^0^B10727703"
^XMB(3.9,135,2,49,0)="""BLD"",6033,""KRN"",9.8,""NM"",""B"",""RMPRPCED"",1)"
^XMB(3.9,135,2,50,0)=""
^XMB(3.9,135,2,51,0)="""BLD"",6033,""KRN"",19,0)"
^XMB(3.9,135,2,52,0)="19"
^XMB(3.9,135,2,53,0)="""BLD"",6033,""KRN"",19.1,0)"
^XMB(3.9,135,2,54,0)="19.1"
^XMB(3.9,135,2,55,0)="""BLD"",6033,""KRN"",101,0)"
^XMB(3.9,135,2,56,0)="101"
^XMB(3.9,135,2,57,0)="""BLD"",6033,""KRN"",409.61,0)"
^XMB(3.9,135,2,58,0)="409.61"
^XMB(3.9,135,2,59,0)="""BLD"",6033,""KRN"",771,0)"
^XMB(3.9,135,2,60,0)="771"
^XMB(3.9,135,2,61,0)="""BLD"",6033,""KRN"",870,0)"
^XMB(3.9,135,2,62,0)="870"
^XMB(3.9,135,2,63,0)="""BLD"",6033,""KRN"",8989.51,0)"
^XMB(3.9,135,2,64,0)="8989.51"
^XMB(3.9,135,2,65,0)="""BLD"",6033,""KRN"",8989.52,0)"
^XMB(3.9,135,2,66,0)="8989.52"
^XMB(3.9,135,2,67,0)="""BLD"",6033,""KRN"",8994,0)"
^XMB(3.9,135,2,68,0)="8994"
^XMB(3.9,135,2,69,0)="""BLD"",6033,""KRN"",""B"",.4,.4)"
^XMB(3.9,135,2,70,0)=""
^XMB(3.9,135,2,71,0)="""BLD"",6033,""KRN"",""B"",.401,.401)"
^XMB(3.9,135,2,72,0)=""
^XMB(3.9,135,2,73,0)="""BLD"",6033,""KRN"",""B"",.402,.402)"
^XMB(3.9,135,2,74,0)=""
^XMB(3.9,135,2,75,0)="""BLD"",6033,""KRN"",""B"",.403,.403)"
^XMB(3.9,135,2,76,0)=""
^XMB(3.9,135,2,77,0)="""BLD"",6033,""KRN"",""B"",.5,.5)"
^XMB(3.9,135,2,78,0)=""
^XMB(3.9,135,2,79,0)="""BLD"",6033,""KRN"",""B"",.84,.84)"
^XMB(3.9,135,2,80,0)=""
^XMB(3.9,135,2,81,0)="""BLD"",6033,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,135,2,82,0)=""
^XMB(3.9,135,2,83,0)="""BLD"",6033,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,135,2,84,0)=""
^XMB(3.9,135,2,85,0)="""BLD"",6033,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,135,2,86,0)=""
^XMB(3.9,135,2,87,0)="""BLD"",6033,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,135,2,88,0)=""
^XMB(3.9,135,2,89,0)="""BLD"",6033,""KRN"",""B"",19,19)"
^XMB(3.9,135,2,90,0)=""
^XMB(3.9,135,2,91,0)="""BLD"",6033,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,135,2,92,0)=""
^XMB(3.9,135,2,93,0)="""BLD"",6033,""KRN"",""B"",101,101)"
^XMB(3.9,135,2,94,0)=""
^XMB(3.9,135,2,95,0)="""BLD"",6033,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,135,2,96,0)=""
^XMB(3.9,135,2,97,0)="""BLD"",6033,""KRN"",""B"",771,771)"
^XMB(3.9,135,2,98,0)=""
^XMB(3.9,135,2,99,0)="""BLD"",6033,""KRN"",""B"",870,870)"
^XMB(3.9,135,2,100,0)=""
^XMB(3.9,135,2,101,0)="""BLD"",6033,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,135,2,102,0)=""
^XMB(3.9,135,2,103,0)="""BLD"",6033,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,135,2,104,0)=""
^XMB(3.9,135,2,105,0)="""BLD"",6033,""KRN"",""B"",8994,8994)"
^XMB(3.9,135,2,106,0)=""
^XMB(3.9,135,2,107,0)="""BLD"",6033,""QUES"",0)"
^XMB(3.9,135,2,108,0)="^9.62^^"
^XMB(3.9,135,2,109,0)="""BLD"",6033,""REQB"",0)"
^XMB(3.9,135,2,110,0)="^9.611^1^1"
^XMB(3.9,135,2,111,0)="""BLD"",6033,""REQB"",1,0)"
^XMB(3.9,135,2,112,0)="RMPR*3.0*70^2"
^XMB(3.9,135,2,113,0)="""BLD"",6033,""REQB"",""B"",""RMPR*3.0*70"",1)"
^XMB(3.9,135,2,114,0)=""
^XMB(3.9,135,2,115,0)="""MBREQ"")"
^XMB(3.9,135,2,116,0)="0"
^XMB(3.9,135,2,117,0)="""PKG"",101,-1)"
^XMB(3.9,135,2,118,0)="1^1"
^XMB(3.9,135,2,119,0)="""PKG"",101,0)"
^XMB(3.9,135,2,120,0)="PROSTHETICS^RMPR^PROSTHETICS VERSION 3.0 ALPHA"
^XMB(3.9,135,2,121,0)="""PKG"",101,20,0)"
^XMB(3.9,135,2,122,0)="^9.402P^^0"
^XMB(3.9,135,2,123,0)="""PKG"",101,22,0)"
^XMB(3.9,135,2,124,0)="^9.49I^1^1"
^XMB(3.9,135,2,125,0)="""PKG"",101,22,1,0)"
^XMB(3.9,135,2,126,0)="3.0^2960209^2960214"
^XMB(3.9,135,2,127,0)="""PKG"",101,22,1,""PAH"",1,0)"
^XMB(3.9,135,2,128,0)="121^3060518"
^XMB(3.9,135,2,129,0)="""PKG"",101,22,1,""PAH"",1,1,0)"
^XMB(3.9,135,2,130,0)="^^3^3^3060518"
^XMB(3.9,135,2,131,0)="""PKG"",101,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,135,2,132,0)="1. Delete issue from stock error <SUBSCRIPT>DEL68^RMPRPCED"
^XMB(3.9,135,2,133,0)="""PKG"",101,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,135,2,134,0)=" "
^XMB(3.9,135,2,135,0)="""PKG"",101,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,135,2,136,0)="2. Problem with option, Edit/Delte Issue from Stock "
^XMB(3.9,135,2,137,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,135,2,138,0)="Y"
^XMB(3.9,135,2,139,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,135,2,140,0)="^D REP^XPDH"
^XMB(3.9,135,2,141,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,135,2,142,0)="Shall I write over your |FLAG| File"
^XMB(3.9,135,2,143,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,135,2,144,0)="YES"
^XMB(3.9,135,2,145,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,135,2,146,0)="D XPF1^XPDIQ"
^XMB(3.9,135,2,147,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,135,2,148,0)="Y"
^XMB(3.9,135,2,149,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,135,2,150,0)="^D DTA^XPDH"
^XMB(3.9,135,2,151,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,135,2,152,0)="Want my data |FLAG| yours"
^XMB(3.9,135,2,153,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,135,2,154,0)="YES"
^XMB(3.9,135,2,155,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,135,2,156,0)="D XPF2^XPDIQ"
^XMB(3.9,135,2,157,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,135,2,158,0)="YO"
^XMB(3.9,135,2,159,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,135,2,160,0)="^D INHIBIT^XPDH"
^XMB(3.9,135,2,161,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,135,2,162,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,135,2,163,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,135,2,164,0)="YES"
^XMB(3.9,135,2,165,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,135,2,166,0)="D XPI1^XPDIQ"
^XMB(3.9,135,2,167,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,135,2,168,0)="PO^VA(200,:EM"
^XMB(3.9,135,2,169,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,135,2,170,0)="^D MG^XPDH"
^XMB(3.9,135,2,171,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,135,2,172,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,135,2,173,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,135,2,174,0)=""
^XMB(3.9,135,2,175,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,135,2,176,0)="D XPM1^XPDIQ"
^XMB(3.9,135,2,177,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,135,2,178,0)="Y"
^XMB(3.9,135,2,179,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,135,2,180,0)="^D MENU^XPDH"
^XMB(3.9,135,2,181,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,135,2,182,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,135,2,183,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,135,2,184,0)="YES"
^XMB(3.9,135,2,185,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,135,2,186,0)="D XPO1^XPDIQ"
^XMB(3.9,135,2,187,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,135,2,188,0)="Y"
^XMB(3.9,135,2,189,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,135,2,190,0)="^D OPT^XPDH"
^XMB(3.9,135,2,191,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,135,2,192,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,135,2,193,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,135,2,194,0)="YES"
^XMB(3.9,135,2,195,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,135,2,196,0)="D XPZ1^XPDIQ"
^XMB(3.9,135,2,197,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,135,2,198,0)="Y"
^XMB(3.9,135,2,199,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,135,2,200,0)="^D RTN^XPDH"
^XMB(3.9,135,2,201,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,135,2,202,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,135,2,203,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,135,2,204,0)="NO"
^XMB(3.9,135,2,205,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,135,2,206,0)="D XPZ2^XPDIQ"
^XMB(3.9,135,2,207,0)="""RTN"")"
^XMB(3.9,135,2,208,0)="1"
^XMB(3.9,135,2,209,0)="""RTN"",""RMPRPCED"")"
^XMB(3.9,135,2,210,0)="0^1^B10727703^B8672883"
^XMB(3.9,135,2,211,0)="""RTN"",""RMPRPCED"",1,0)"
^XMB(3.9,135,2,212,0)="RMPRPCED ;Hines OIFO/RVD - Prosthetics/660/668/PCE DELETE ;7/30/02  09:39"
^XMB(3.9,135,2,213,0)="""RTN"",""RMPRPCED"",2,0)"
^XMB(3.9,135,2,214,0)=" ;;3.0;PROSTHETICS;**62,70,121**;Feb 09, 1996;Build 3"
^XMB(3.9,135,2,215,0)="""RTN"",""RMPRPCED"",3,0)"
^XMB(3.9,135,2,216,0)=" ;RVD 7/1/02 - patch #70 - new RMPR variables before calling PCE."
^XMB(3.9,135,2,217,0)="""RTN"",""RMPRPCED"",4,0)"
^XMB(3.9,135,2,218,0)=" ;"
^XMB(3.9,135,2,219,0)="""RTN"",""RMPRPCED"",5,0)"
^XMB(3.9,135,2,220,0)=" ; This routine contains the code for deleting a Prosthetic visit in PCE."
^XMB(3.9,135,2,221,0)="""RTN"",""RMPRPCED"",6,0)"
^XMB(3.9,135,2,222,0)=" ;"
^XMB(3.9,135,2,223,0)="""RTN"",""RMPRPCED"",7,0)"
^XMB(3.9,135,2,224,0)=" ;DBIA #1890  - this API is used to delete data from the VISIT file"
^XMB(3.9,135,2,225,0)="""RTN"",""RMPRPCED"",8,0)"
^XMB(3.9,135,2,226,0)=" ;              (9000010) and V files from PCE module."
^XMB(3.9,135,2,227,0)="""RTN"",""RMPRPCED"",9,0)"
^XMB(3.9,135,2,228,0)=" ;DBIA #10048 - fileman read on file 9.4."
^XMB(3.9,135,2,229,0)="""RTN"",""RMPRPCED"",10,0)"
^XMB(3.9,135,2,230,0)=" ;"
^XMB(3.9,135,2,231,0)="""RTN"",""RMPRPCED"",11,0)"
^XMB(3.9,135,2,232,0)="DEL(RMIE60) ;delete PCE visit."
^XMB(3.9,135,2,233,0)="""RTN"",""RMPRPCED"",12,0)"
^XMB(3.9,135,2,234,0)=" D NEWVAR"
^XMB(3.9,135,2,235,0)="""RTN"",""RMPRPCED"",13,0)"
^XMB(3.9,135,2,236,0)=" S (RMLOCK,RMERR)=0"
^XMB(3.9,135,2,237,0)="""RTN"",""RMPRPCED"",14,0)"
^XMB(3.9,135,2,238,0)=" I '$P($G(^RMPR(660,RMIE60,10)),U,12) G DEL68"
^XMB(3.9,135,2,239,0)="""RTN"",""RMPRPCED"",15,0)"
^XMB(3.9,135,2,240,0)=" S RMSRC=""PROSTHETICS DATA"""
^XMB(3.9,135,2,241,0)="""RTN"",""RMPRPCED"",16,0)"
^XMB(3.9,135,2,242,0)=" S X=""PROSTHETICS"",DIC=""^DIC(9.4,"" D ^DIC"
^XMB(3.9,135,2,243,0)="""RTN"",""RMPRPCED"",17,0)"
^XMB(3.9,135,2,244,0)=" I '$D(Y)!(Y<0) S RMERR=-1 G DELX"
^XMB(3.9,135,2,245,0)="""RTN"",""RMPRPCED"",18,0)"
^XMB(3.9,135,2,246,0)=" S RMPKG=+Y"
^XMB(3.9,135,2,247,0)="""RTN"",""RMPRPCED"",19,0)"
^XMB(3.9,135,2,248,0)=" I 'RMPKG S RMERR=-1 G DELX"
^XMB(3.9,135,2,249,0)="""RTN"",""RMPRPCED"",20,0)"
^XMB(3.9,135,2,250,0)=" ;"
^XMB(3.9,135,2,251,0)="""RTN"",""RMPRPCED"",21,0)"
^XMB(3.9,135,2,252,0)=" ; get PCE IEn from file #660."
^XMB(3.9,135,2,253,0)="""RTN"",""RMPRPCED"",22,0)"
^XMB(3.9,135,2,254,0)=" S RMPCE=$P($G(^RMPR(660,RMIE60,10)),U,12)"
^XMB(3.9,135,2,255,0)="""RTN"",""RMPRPCED"",23,0)"
^XMB(3.9,135,2,256,0)=" I 'RMPCE S RMERR=-1 G DELX"
^XMB(3.9,135,2,257,0)="""RTN"",""RMPRPCED"",24,0)"
^XMB(3.9,135,2,258,0)=" I '$D(^AUPNVSIT(RMPCE,0)) G DEL68"
^XMB(3.9,135,2,259,0)="""RTN"",""RMPRPCED"",25,0)"
^XMB(3.9,135,2,260,0)=" ;"
^XMB(3.9,135,2,261,0)="""RTN"",""RMPRPCED"",26,0)"
^XMB(3.9,135,2,262,0)="DELVF ; Remove all workload data from the PCE visit file & related V files."
^XMB(3.9,135,2,263,0)="""RTN"",""RMPRPCED"",27,0)"
^XMB(3.9,135,2,264,0)=" ; check if the visit is already in PCE and remove workload,"
^XMB(3.9,135,2,265,0)="""RTN"",""RMPRPCED"",28,0)"
^XMB(3.9,135,2,266,0)=" ; (sending RMPKG and RMSRC to ensure that only data that originally"
^XMB(3.9,135,2,267,0)="""RTN"",""RMPRPCED"",29,0)"
^XMB(3.9,135,2,268,0)=" ; came from PROSTHETICS will be removed)."
^XMB(3.9,135,2,269,0)="""RTN"",""RMPRPCED"",30,0)"
^XMB(3.9,135,2,270,0)=" ;"
^XMB(3.9,135,2,271,0)="""RTN"",""RMPRPCED"",31,0)"
^XMB(3.9,135,2,272,0)=" N RMPR,REDO,VEJD"
^XMB(3.9,135,2,273,0)="""RTN"",""RMPRPCED"",32,0)"
^XMB(3.9,135,2,274,0)=" S REDO=0"
^XMB(3.9,135,2,275,0)="""RTN"",""RMPRPCED"",33,0)"
^XMB(3.9,135,2,276,0)="DELVF1 S RMCHK=$$DELVFILE^PXAPI(""ALL"",.RMPCE,RMPKG,RMSRC,0,0,"""")"
^XMB(3.9,135,2,277,0)="""RTN"",""RMPRPCED"",34,0)"
^XMB(3.9,135,2,278,0)=" I RMCHK'=1 D  I REDO=1 G DELVF1"
^XMB(3.9,135,2,279,0)="""RTN"",""RMPRPCED"",35,0)"
^XMB(3.9,135,2,280,0)=" . Q:$P($G(^AUPNVSIT(RMPCE,0)),U,9)'=1!REDO"
^XMB(3.9,135,2,281,0)="""RTN"",""RMPRPCED"",36,0)"
^XMB(3.9,135,2,282,0)=" . S VEJD=$O(^VEJD(19610.5,""B"",RMPCE,0)) Q:VEJD="""""
^XMB(3.9,135,2,283,0)="""RTN"",""RMPRPCED"",37,0)"
^XMB(3.9,135,2,284,0)=" . ;kill remaining dependent (DSS) to visit"
^XMB(3.9,135,2,285,0)="""RTN"",""RMPRPCED"",38,0)"
^XMB(3.9,135,2,286,0)=" . S DA=VEJD,DIK=""^VEJD(19610.5,"" D ^DIK"
^XMB(3.9,135,2,287,0)="""RTN"",""RMPRPCED"",39,0)"
^XMB(3.9,135,2,288,0)=" . K DA,DIK"
^XMB(3.9,135,2,289,0)="""RTN"",""RMPRPCED"",40,0)"
^XMB(3.9,135,2,290,0)=" . I $P(^AUPNVSIT(RMPCE,0),U,9)=0 S REDO=1"
^XMB(3.9,135,2,291,0)="""RTN"",""RMPRPCED"",41,0)"
^XMB(3.9,135,2,292,0)=" I RMCHK'=1 W !!,""*** Error in deleting PCE visit !!"",! S RMERR=-1 G DELX"
^XMB(3.9,135,2,293,0)="""RTN"",""RMPRPCED"",42,0)"
^XMB(3.9,135,2,294,0)=" ;"
^XMB(3.9,135,2,295,0)="""RTN"",""RMPRPCED"",43,0)"
^XMB(3.9,135,2,296,0)="DEL68 ; delete PCE info in file #668."
^XMB(3.9,135,2,297,0)="""RTN"",""RMPRPCED"",44,0)"
^XMB(3.9,135,2,298,0)=" S RMAMIS=$G(^RMPR(660,RMIE60,""AMS""))"
^XMB(3.9,135,2,299,0)="""RTN"",""RMPRPCED"",45,0)"
^XMB(3.9,135,2,300,0)=" S RMIE68=$O(^RMPR(668,""F"",RMIE60,0)) G:RMIE68="""" DEL60"
^XMB(3.9,135,2,301,0)="""RTN"",""RMPRPCED"",46,0)"
^XMB(3.9,135,2,302,0)=" L +^RMPR(668,RMIE68):3 I $T=0 D ERR68 G DELX"
^XMB(3.9,135,2,303,0)="""RTN"",""RMPRPCED"",47,0)"
^XMB(3.9,135,2,304,0)=" S DA=$O(^RMPR(668,RMIE68,10,""B"",RMIE60,0))"
^XMB(3.9,135,2,305,0)="""RTN"",""RMPRPCED"",48,0)"
^XMB(3.9,135,2,306,0)=" S DA(1)=RMIE68,DIK=""^RMPR(668,""_DA(1)_"",10,"" D ^DIK"
^XMB(3.9,135,2,307,0)="""RTN"",""RMPRPCED"",49,0)"
^XMB(3.9,135,2,308,0)=" S RMAMIEN=$O(^RMPR(668,RMIE68,11,""B"",RMAMIS,0))"
^XMB(3.9,135,2,309,0)="""RTN"",""RMPRPCED"",50,0)"
^XMB(3.9,135,2,310,0)=" S RMCNT=0"
^XMB(3.9,135,2,311,0)="""RTN"",""RMPRPCED"",51,0)"
^XMB(3.9,135,2,312,0)=" F I=0:0 S I=$O(^RMPR(668,RMIE68,10,""B"",I)) Q:I'>0  D"
^XMB(3.9,135,2,313,0)="""RTN"",""RMPRPCED"",52,0)"
^XMB(3.9,135,2,314,0)=" .S RMAMIS68=$G(^RMPR(660,I,""AMS"")) S:RMAMIS68=RMAMIS RMCNT=RMCNT+1"
^XMB(3.9,135,2,315,0)="""RTN"",""RMPRPCED"",53,0)"
^XMB(3.9,135,2,316,0)=" ;if no other line item of the same GROUPER #, then delete."
^XMB(3.9,135,2,317,0)="""RTN"",""RMPRPCED"",54,0)"
^XMB(3.9,135,2,318,0)=" I RMCNT=1 D"
^XMB(3.9,135,2,319,0)="""RTN"",""RMPRPCED"",55,0)"
^XMB(3.9,135,2,320,0)=" .S DA=RMAMIEN"
^XMB(3.9,135,2,321,0)="""RTN"",""RMPRPCED"",56,0)"
^XMB(3.9,135,2,322,0)=" .S DA(1)=RMIE68,DIK=""^RMPR(668,""_DA(1)_"",11,"""
^XMB(3.9,135,2,323,0)="""RTN"",""RMPRPCED"",57,0)"
^XMB(3.9,135,2,324,0)=" .D ^DIK"
^XMB(3.9,135,2,325,0)="""RTN"",""RMPRPCED"",58,0)"
^XMB(3.9,135,2,326,0)=" L -^RMPR(668,RMIE68)"
^XMB(3.9,135,2,327,0)="""RTN"",""RMPRPCED"",59,0)"
^XMB(3.9,135,2,328,0)=" ;"
^XMB(3.9,135,2,329,0)="""RTN"",""RMPRPCED"",60,0)"
^XMB(3.9,135,2,330,0)="DEL60 ; delete PCE info in file #660."
^XMB(3.9,135,2,331,0)="""RTN"",""RMPRPCED"",61,0)"
^XMB(3.9,135,2,332,0)=" ; lock file #660"
^XMB(3.9,135,2,333,0)="""RTN"",""RMPRPCED"",62,0)"
^XMB(3.9,135,2,334,0)=" L +^RMPR(660,RMIE60,10):3 I $T=0 D ERR60 G DELX"
^XMB(3.9,135,2,335,0)="""RTN"",""RMPRPCED"",63,0)"
^XMB(3.9,135,2,336,0)=" S RMARR(660,RMIE60_"","",8.12)=""@"""
^XMB(3.9,135,2,337,0)="""RTN"",""RMPRPCED"",64,0)"
^XMB(3.9,135,2,338,0)=" S RMARR(660,RMIE60_"","",8.13)=""@"""
^XMB(3.9,135,2,339,0)="""RTN"",""RMPRPCED"",65,0)"
^XMB(3.9,135,2,340,0)=" D FILE^DIE("""",""RMARR"","""")"
^XMB(3.9,135,2,341,0)="""RTN"",""RMPRPCED"",66,0)"
^XMB(3.9,135,2,342,0)=" L -^RMPR(660,RMIE60,10)"
^XMB(3.9,135,2,343,0)="""RTN"",""RMPRPCED"",67,0)"
^XMB(3.9,135,2,344,0)=" ;"
^XMB(3.9,135,2,345,0)="""RTN"",""RMPRPCED"",68,0)"
^XMB(3.9,135,2,346,0)=" ; exit delete"
^XMB(3.9,135,2,347,0)="""RTN"",""RMPRPCED"",69,0)"
^XMB(3.9,135,2,348,0)="DELX Q RMERR"
^XMB(3.9,135,2,349,0)="""RTN"",""RMPRPCED"",70,0)"
^XMB(3.9,135,2,350,0)=" ;"
^XMB(3.9,135,2,351,0)="""RTN"",""RMPRPCED"",71,0)"
^XMB(3.9,135,2,352,0)="ERR68 ; print error if unable to delete/update file #668."
^XMB(3.9,135,2,353,0)="""RTN"",""RMPRPCED"",72,0)"
^XMB(3.9,135,2,354,0)=" W !!,""*** File #668 is locked, IEN = "",RMIE68,"", PLEASE contact your IRM!!"",!!"
^XMB(3.9,135,2,355,0)="""RTN"",""RMPRPCED"",73,0)"
^XMB(3.9,135,2,356,0)=" L -^RMPR(668,RMIE68)"
^XMB(3.9,135,2,357,0)="""RTN"",""RMPRPCED"",74,0)"
^XMB(3.9,135,2,358,0)=" S RMERR=-1"
^XMB(3.9,135,2,359,0)="""RTN"",""RMPRPCED"",75,0)"
^XMB(3.9,135,2,360,0)=" Q"
^XMB(3.9,135,2,361,0)="""RTN"",""RMPRPCED"",76,0)"
^XMB(3.9,135,2,362,0)="ERR60 ; print error if unable to delete/update file #660."
^XMB(3.9,135,2,363,0)="""RTN"",""RMPRPCED"",77,0)"
^XMB(3.9,135,2,364,0)=" W !!,""*** File #660 is locked, IEN = "",RMIE60,"", PLEASE contact your IRM!!"",!!"
^XMB(3.9,135,2,365,0)="""RTN"",""RMPRPCED"",78,0)"
^XMB(3.9,135,2,366,0)=" S RMERR=-1"
^XMB(3.9,135,2,367,0)="""RTN"",""RMPRPCED"",79,0)"
^XMB(3.9,135,2,368,0)=" Q"
^XMB(3.9,135,2,369,0)="""RTN"",""RMPRPCED"",80,0)"
^XMB(3.9,135,2,370,0)=" ;"
^XMB(3.9,135,2,371,0)="""RTN"",""RMPRPCED"",81,0)"
^XMB(3.9,135,2,372,0)="CHECK ;check for return error from PCE"
^XMB(3.9,135,2,373,0)="""RTN"",""RMPRPCED"",82,0)"
^XMB(3.9,135,2,374,0)=" ;input variable RMPROB"
^XMB(3.9,135,2,375,0)="""RTN"",""RMPRPCED"",83,0)"
^XMB(3.9,135,2,376,0)=" I $D(RMPROB($J,1))!$D(RMPROB($J,2)) D"
^XMB(3.9,135,2,377,0)="""RTN"",""RMPRPCED"",84,0)"
^XMB(3.9,135,2,378,0)=" .S (R2,R3,RMMESS)="""""
^XMB(3.9,135,2,379,0)="""RTN"",""RMPRPCED"",85,0)"
^XMB(3.9,135,2,380,0)=" .F R1=0:0 S R1=$O(RMPROB($J,R1)) Q:R1'>0  F  S R2=$O(RMPROB($J,R1,""ERROR1"",R2)) Q:R2=""""  F  S R3=$O(RMPROB($J,R1,""ERROR1"",R2,R3)) Q:R3=""""  D"
^XMB(3.9,135,2,381,0)="""RTN"",""RMPRPCED"",86,0)"
^XMB(3.9,135,2,382,0)=" ..F R4=0:0 S R4=$O(RMPROB($J,R1,""ERROR1"",R2,R3,R4)) Q:R4'>0  D"
^XMB(3.9,135,2,383,0)="""RTN"",""RMPRPCED"",87,0)"
^XMB(3.9,135,2,384,0)=" ...S RMMESS=RMPROB($J,R1,""ERROR1"",R2,R3,R4)"
^XMB(3.9,135,2,385,0)="""RTN"",""RMPRPCED"",88,0)"
^XMB(3.9,135,2,386,0)=" ...W:RMMESS'="""" !,""???? "",RMMESS"
^XMB(3.9,135,2,387,0)="""RTN"",""RMPRPCED"",89,0)"
^XMB(3.9,135,2,388,0)=" ...I (RMMESS[""CPT"")!(RMMESS[""Provider"") S RMPRCPER=1"
^XMB(3.9,135,2,389,0)="""RTN"",""RMPRPCED"",90,0)"
^XMB(3.9,135,2,390,0)=" Q"
^XMB(3.9,135,2,391,0)="""RTN"",""RMPRPCED"",91,0)"
^XMB(3.9,135,2,392,0)=" ;"
^XMB(3.9,135,2,393,0)="""RTN"",""RMPRPCED"",92,0)"
^XMB(3.9,135,2,394,0)="NEWVAR ; new variables"
^XMB(3.9,135,2,395,0)="""RTN"",""RMPRPCED"",93,0)"
^XMB(3.9,135,2,396,0)=" N Y"
^XMB(3.9,135,2,397,0)="""RTN"",""RMPRPCED"",94,0)"
^XMB(3.9,135,2,398,0)=" N I,RMCHK,RMKI,RMSUB,RMARR,DIE,DA,DIC,RMAMIS,RMAMIS68,DIK,RMCNT,RMAMIEN"
^XMB(3.9,135,2,399,0)="""RTN"",""RMPRPCED"",95,0)"
^XMB(3.9,135,2,400,0)=" Q"
^XMB(3.9,135,2,401,0)="""VER"")"
^XMB(3.9,135,2,402,0)="8.0^22.0"
^XMB(3.9,135,2,403,0)="""BLD"",6033,6)"
^XMB(3.9,135,2,404,0)="^99"
^XMB(3.9,135,2,405,0)="$END KID RMPR*3.0*121"
^XMB(3.9,135,6,0)="^3.911A^2^2"
^XMB(3.9,135,6,1,0)="POSTMASTER"
^XMB(3.9,135,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,135,6,"B","POSTMASTER",1)=""
^XMB(3.9,135,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,136,0)="SD-5P3_SEQ-386_PAT-452.KID^.5^3061008.015742^^^^K"
^XMB(3.9,136,.6)="3061008"
^XMB(3.9,136,1,0)="^3.91A^2^2"
^XMB(3.9,136,1,1,0)=".5^0^3061008.015742^^^^^^^3061008.015742"
^XMB(3.9,136,1,2,0)="1^0^3061008.022716^^^^^^^3061008.022716"
^XMB(3.9,136,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,136,1,"C",.5,1)=""
^XMB(3.9,136,1,"C",1,2)=""
^XMB(3.9,136,2,0)="^^381^381^3061008"
^XMB(3.9,136,2,1,0)="$TXT Released SD*5.3*452 SEQ #386"
^XMB(3.9,136,2,2,0)="Extracted from mail message"
^XMB(3.9,136,2,3,0)="$END TXT"
^XMB(3.9,136,2,4,0)="$KID SD*5.3*452"
^XMB(3.9,136,2,5,0)="**INSTALL NAME**"
^XMB(3.9,136,2,6,0)="SD*5.3*452"
^XMB(3.9,136,2,7,0)="""BLD"",6598,0)"
^XMB(3.9,136,2,8,0)="SD*5.3*452^SCHEDULING^0^3060504^y"
^XMB(3.9,136,2,9,0)="""BLD"",6598,1,0)"
^XMB(3.9,136,2,10,0)="^^5^5^3060201^^"
^XMB(3.9,136,2,11,0)="""BLD"",6598,1,1,0)"
^XMB(3.9,136,2,12,0)="1. Problem with Cancel Clinic Availability allowing overlap of cancelled"
^XMB(3.9,136,2,13,0)="""BLD"",6598,1,2,0)"
^XMB(3.9,136,2,14,0)="   time sectors."
^XMB(3.9,136,2,15,0)="""BLD"",6598,1,3,0)"
^XMB(3.9,136,2,16,0)=" "
^XMB(3.9,136,2,17,0)="""BLD"",6598,1,4,0)"
^XMB(3.9,136,2,18,0)="2. Restore Clinic Availability issuing bogus message ""CLINIC DOES NOT "
^XMB(3.9,136,2,19,0)="""BLD"",6598,1,5,0)"
^XMB(3.9,136,2,20,0)="   MEET ON THIS DATE""."
^XMB(3.9,136,2,21,0)="""BLD"",6598,4,0)"
^XMB(3.9,136,2,22,0)="^9.64PA^^"
^XMB(3.9,136,2,23,0)="""BLD"",6598,""ABPKG"")"
^XMB(3.9,136,2,24,0)="n"
^XMB(3.9,136,2,25,0)="""BLD"",6598,""KRN"",0)"
^XMB(3.9,136,2,26,0)="^9.67PA^8989.52^19"
^XMB(3.9,136,2,27,0)="""BLD"",6598,""KRN"",.4,0)"
^XMB(3.9,136,2,28,0)=".4"
^XMB(3.9,136,2,29,0)="""BLD"",6598,""KRN"",.401,0)"
^XMB(3.9,136,2,30,0)=".401"
^XMB(3.9,136,2,31,0)="""BLD"",6598,""KRN"",.402,0)"
^XMB(3.9,136,2,32,0)=".402"
^XMB(3.9,136,2,33,0)="""BLD"",6598,""KRN"",.403,0)"
^XMB(3.9,136,2,34,0)=".403"
^XMB(3.9,136,2,35,0)="""BLD"",6598,""KRN"",.5,0)"
^XMB(3.9,136,2,36,0)=".5"
^XMB(3.9,136,2,37,0)="""BLD"",6598,""KRN"",.84,0)"
^XMB(3.9,136,2,38,0)=".84"
^XMB(3.9,136,2,39,0)="""BLD"",6598,""KRN"",3.6,0)"
^XMB(3.9,136,2,40,0)="3.6"
^XMB(3.9,136,2,41,0)="""BLD"",6598,""KRN"",3.8,0)"
^XMB(3.9,136,2,42,0)="3.8"
^XMB(3.9,136,2,43,0)="""BLD"",6598,""KRN"",9.2,0)"
^XMB(3.9,136,2,44,0)="9.2"
^XMB(3.9,136,2,45,0)="""BLD"",6598,""KRN"",9.8,0)"
^XMB(3.9,136,2,46,0)="9.8"
^XMB(3.9,136,2,47,0)="""BLD"",6598,""KRN"",9.8,""NM"",0)"
^XMB(3.9,136,2,48,0)="^9.68A^2^2"
^XMB(3.9,136,2,49,0)="""BLD"",6598,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,136,2,50,0)="SDUNC^^0^B22599773"
^XMB(3.9,136,2,51,0)="""BLD"",6598,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,136,2,52,0)="SDC2^^0^B9542606"
^XMB(3.9,136,2,53,0)="""BLD"",6598,""KRN"",9.8,""NM"",""B"",""SDC2"",2)"
^XMB(3.9,136,2,54,0)=""
^XMB(3.9,136,2,55,0)="""BLD"",6598,""KRN"",9.8,""NM"",""B"",""SDUNC"",1)"
^XMB(3.9,136,2,56,0)=""
^XMB(3.9,136,2,57,0)="""BLD"",6598,""KRN"",19,0)"
^XMB(3.9,136,2,58,0)="19"
^XMB(3.9,136,2,59,0)="""BLD"",6598,""KRN"",19.1,0)"
^XMB(3.9,136,2,60,0)="19.1"
^XMB(3.9,136,2,61,0)="""BLD"",6598,""KRN"",101,0)"
^XMB(3.9,136,2,62,0)="101"
^XMB(3.9,136,2,63,0)="""BLD"",6598,""KRN"",409.61,0)"
^XMB(3.9,136,2,64,0)="409.61"
^XMB(3.9,136,2,65,0)="""BLD"",6598,""KRN"",771,0)"
^XMB(3.9,136,2,66,0)="771"
^XMB(3.9,136,2,67,0)="""BLD"",6598,""KRN"",870,0)"
^XMB(3.9,136,2,68,0)="870"
^XMB(3.9,136,2,69,0)="""BLD"",6598,""KRN"",8989.51,0)"
^XMB(3.9,136,2,70,0)="8989.51"
^XMB(3.9,136,2,71,0)="""BLD"",6598,""KRN"",8989.52,0)"
^XMB(3.9,136,2,72,0)="8989.52"
^XMB(3.9,136,2,73,0)="""BLD"",6598,""KRN"",8994,0)"
^XMB(3.9,136,2,74,0)="8994"
^XMB(3.9,136,2,75,0)="""BLD"",6598,""KRN"",""B"",.4,.4)"
^XMB(3.9,136,2,76,0)=""
^XMB(3.9,136,2,77,0)="""BLD"",6598,""KRN"",""B"",.401,.401)"
^XMB(3.9,136,2,78,0)=""
^XMB(3.9,136,2,79,0)="""BLD"",6598,""KRN"",""B"",.402,.402)"
^XMB(3.9,136,2,80,0)=""
^XMB(3.9,136,2,81,0)="""BLD"",6598,""KRN"",""B"",.403,.403)"
^XMB(3.9,136,2,82,0)=""
^XMB(3.9,136,2,83,0)="""BLD"",6598,""KRN"",""B"",.5,.5)"
^XMB(3.9,136,2,84,0)=""
^XMB(3.9,136,2,85,0)="""BLD"",6598,""KRN"",""B"",.84,.84)"
^XMB(3.9,136,2,86,0)=""
^XMB(3.9,136,2,87,0)="""BLD"",6598,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,136,2,88,0)=""
^XMB(3.9,136,2,89,0)="""BLD"",6598,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,136,2,90,0)=""
^XMB(3.9,136,2,91,0)="""BLD"",6598,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,136,2,92,0)=""
^XMB(3.9,136,2,93,0)="""BLD"",6598,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,136,2,94,0)=""
^XMB(3.9,136,2,95,0)="""BLD"",6598,""KRN"",""B"",19,19)"
^XMB(3.9,136,2,96,0)=""
^XMB(3.9,136,2,97,0)="""BLD"",6598,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,136,2,98,0)=""
^XMB(3.9,136,2,99,0)="""BLD"",6598,""KRN"",""B"",101,101)"
^XMB(3.9,136,2,100,0)=""
^XMB(3.9,136,2,101,0)="""BLD"",6598,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,136,2,102,0)=""
^XMB(3.9,136,2,103,0)="""BLD"",6598,""KRN"",""B"",771,771)"
^XMB(3.9,136,2,104,0)=""
^XMB(3.9,136,2,105,0)="""BLD"",6598,""KRN"",""B"",870,870)"
^XMB(3.9,136,2,106,0)=""
^XMB(3.9,136,2,107,0)="""BLD"",6598,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,136,2,108,0)=""
^XMB(3.9,136,2,109,0)="""BLD"",6598,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,136,2,110,0)=""
^XMB(3.9,136,2,111,0)="""BLD"",6598,""KRN"",""B"",8994,8994)"
^XMB(3.9,136,2,112,0)=""
^XMB(3.9,136,2,113,0)="""BLD"",6598,""QUES"",0)"
^XMB(3.9,136,2,114,0)="^9.62^^"
^XMB(3.9,136,2,115,0)="""BLD"",6598,""REQB"",0)"
^XMB(3.9,136,2,116,0)="^9.611^2^2"
^XMB(3.9,136,2,117,0)="""BLD"",6598,""REQB"",1,0)"
^XMB(3.9,136,2,118,0)="SD*5.3*182^2"
^XMB(3.9,136,2,119,0)="""BLD"",6598,""REQB"",2,0)"
^XMB(3.9,136,2,120,0)="SD*5.3*380^2"
^XMB(3.9,136,2,121,0)="""BLD"",6598,""REQB"",""B"",""SD*5.3*182"",1)"
^XMB(3.9,136,2,122,0)=""
^XMB(3.9,136,2,123,0)="""BLD"",6598,""REQB"",""B"",""SD*5.3*380"",2)"
^XMB(3.9,136,2,124,0)=""
^XMB(3.9,136,2,125,0)="""MBREQ"")"
^XMB(3.9,136,2,126,0)="0"
^XMB(3.9,136,2,127,0)="""PKG"",16,-1)"
^XMB(3.9,136,2,128,0)="1^1"
^XMB(3.9,136,2,129,0)="""PKG"",16,0)"
^XMB(3.9,136,2,130,0)="SCHEDULING^SD^APPOINTMENTS,PROFILES,LETTERS,AMIS REPORTS"
^XMB(3.9,136,2,131,0)="""PKG"",16,20,0)"
^XMB(3.9,136,2,132,0)="^9.402P^^"
^XMB(3.9,136,2,133,0)="""PKG"",16,22,0)"
^XMB(3.9,136,2,134,0)="^9.49I^1^1"
^XMB(3.9,136,2,135,0)="""PKG"",16,22,1,0)"
^XMB(3.9,136,2,136,0)="5.3^2930813"
^XMB(3.9,136,2,137,0)="""PKG"",16,22,1,""PAH"",1,0)"
^XMB(3.9,136,2,138,0)="452^3060504"
^XMB(3.9,136,2,139,0)="""PKG"",16,22,1,""PAH"",1,1,0)"
^XMB(3.9,136,2,140,0)="^^5^5^3060504"
^XMB(3.9,136,2,141,0)="""PKG"",16,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,136,2,142,0)="1. Problem with Cancel Clinic Availability allowing overlap of cancelled"
^XMB(3.9,136,2,143,0)="""PKG"",16,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,136,2,144,0)="   time sectors."
^XMB(3.9,136,2,145,0)="""PKG"",16,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,136,2,146,0)=" "
^XMB(3.9,136,2,147,0)="""PKG"",16,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,136,2,148,0)="2. Restore Clinic Availability issuing bogus message ""CLINIC DOES NOT "
^XMB(3.9,136,2,149,0)="""PKG"",16,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,136,2,150,0)="   MEET ON THIS DATE""."
^XMB(3.9,136,2,151,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,136,2,152,0)="Y"
^XMB(3.9,136,2,153,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,136,2,154,0)="^D REP^XPDH"
^XMB(3.9,136,2,155,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,136,2,156,0)="Shall I write over your |FLAG| File"
^XMB(3.9,136,2,157,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,136,2,158,0)="YES"
^XMB(3.9,136,2,159,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,136,2,160,0)="D XPF1^XPDIQ"
^XMB(3.9,136,2,161,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,136,2,162,0)="Y"
^XMB(3.9,136,2,163,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,136,2,164,0)="^D DTA^XPDH"
^XMB(3.9,136,2,165,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,136,2,166,0)="Want my data |FLAG| yours"
^XMB(3.9,136,2,167,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,136,2,168,0)="YES"
^XMB(3.9,136,2,169,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,136,2,170,0)="D XPF2^XPDIQ"
^XMB(3.9,136,2,171,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,136,2,172,0)="YO"
^XMB(3.9,136,2,173,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,136,2,174,0)="^D INHIBIT^XPDH"
^XMB(3.9,136,2,175,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,136,2,176,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,136,2,177,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,136,2,178,0)="YES"
^XMB(3.9,136,2,179,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,136,2,180,0)="D XPI1^XPDIQ"
^XMB(3.9,136,2,181,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,136,2,182,0)="PO^VA(200,:EM"
^XMB(3.9,136,2,183,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,136,2,184,0)="^D MG^XPDH"
^XMB(3.9,136,2,185,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,136,2,186,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,136,2,187,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,136,2,188,0)=""
^XMB(3.9,136,2,189,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,136,2,190,0)="D XPM1^XPDIQ"
^XMB(3.9,136,2,191,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,136,2,192,0)="Y"
^XMB(3.9,136,2,193,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,136,2,194,0)="^D MENU^XPDH"
^XMB(3.9,136,2,195,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,136,2,196,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,136,2,197,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,136,2,198,0)="YES"
^XMB(3.9,136,2,199,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,136,2,200,0)="D XPO1^XPDIQ"
^XMB(3.9,136,2,201,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,136,2,202,0)="Y"
^XMB(3.9,136,2,203,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,136,2,204,0)="^D OPT^XPDH"
^XMB(3.9,136,2,205,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,136,2,206,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,136,2,207,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,136,2,208,0)="YES"
^XMB(3.9,136,2,209,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,136,2,210,0)="D XPZ1^XPDIQ"
^XMB(3.9,136,2,211,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,136,2,212,0)="Y"
^XMB(3.9,136,2,213,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,136,2,214,0)="^D RTN^XPDH"
^XMB(3.9,136,2,215,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,136,2,216,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,136,2,217,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,136,2,218,0)="NO"
^XMB(3.9,136,2,219,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,136,2,220,0)="D XPZ2^XPDIQ"
^XMB(3.9,136,2,221,0)="""RTN"")"
^XMB(3.9,136,2,222,0)="2"
^XMB(3.9,136,2,223,0)="""RTN"",""SDC2"")"
^XMB(3.9,136,2,224,0)="0^2^B9542606^B9308419"
^XMB(3.9,136,2,225,0)="""RTN"",""SDC2"",1,0)"
^XMB(3.9,136,2,226,0)="SDC2 ;ALB/GRR - CHECK PARTIAL CANCELLATIONS ; 19 FEB 85"
^XMB(3.9,136,2,227,0)="""RTN"",""SDC2"",2,0)"
^XMB(3.9,136,2,228,0)=" ;;5.3;Scheduling;**182,452**;Aug 13, 1993"
^XMB(3.9,136,2,229,0)="""RTN"",""SDC2"",3,0)"
^XMB(3.9,136,2,230,0)=" K SDZ I $D(^SC(SC,""SDCAN"")),$O(^SC(SC,""SDCAN"",SD))\1=SD G OVR"
^XMB(3.9,136,2,231,0)="""RTN"",""SDC2"",4,0)"
^XMB(3.9,136,2,232,0)=" D WAIT^DICD F SDZL=SD:0 S SDZL=$O(^SC(SC,""S"",SDZL)) Q:SDZL=""""  I $D(^SC(SC,""S"",SDZL,""MES"")) S SDCTO=$E(^(""MES""),17,20) S:'$D(^SC(SC,""SDCAN"",0)) ^SC(SC,""SDCAN"",0)=""^44.05D^""_SDZL_""^0"" D MORE"
^XMB(3.9,136,2,233,0)="""RTN"",""SDC2"",5,0)"
^XMB(3.9,136,2,234,0)=" G:'$D(^SC(SC,""SDCAN"")) W^SDC G:$O(^SC(SC,""SDCAN"",SD))\1-SD W^SDC"
^XMB(3.9,136,2,235,0)="""RTN"",""SDC2"",6,0)"
^XMB(3.9,136,2,236,0)="OVR F SDJ=SD:0 S SDJ=$O(^SC(SC,""SDCAN"",SDJ)) Q:SDJ=""""!(SDJ\1-SD)  S SDZ(SDJ)=SD_($P(^(SDJ,0),""^"",2)/10000)_$S($D(^SC(SC,""S"",SDJ,""MES"")):""   (""_$P(^(""MES""),""("",2),1:"""")"
^XMB(3.9,136,2,237,0)="""RTN"",""SDC2"",7,0)"
^XMB(3.9,136,2,238,0)="SHOW W !,""Clinic already has the following cancellation(s) for that date: "",!"
^XMB(3.9,136,2,239,0)="""RTN"",""SDC2"",8,0)"
^XMB(3.9,136,2,240,0)=" F Z=0:0 S Z=$O(SDZ(Z)) Q:Z=""""  S X=Z D TM W !,?15,""From: "",X,""   To: "" S X=+SDZ(Z) D TM W X,$S($P(SDZ(Z),""("",2)]"""":""  (""_$P(SDZ(Z),""("",2),1:"""")"
^XMB(3.9,136,2,241,0)="""RTN"",""SDC2"",9,0)"
^XMB(3.9,136,2,242,0)="CP S %=1 W !!,""Do you want to Cancel another portion of the day"" D YN^DICN I '% W !,""REPLY YES (Y) OR NO (N)"" G CP"
^XMB(3.9,136,2,243,0)="""RTN"",""SDC2"",10,0)"
^XMB(3.9,136,2,244,0)=" W:%<0 "" NO"" S SDANS=$S('(%-1):""Y"",1:""N"") Q:SDANS'[""Y"""
^XMB(3.9,136,2,245,0)="""RTN"",""SDC2"",11,0)"
^XMB(3.9,136,2,246,0)="RDFR R !,""STARTING TIME: "",X:DTIME Q:""^""[X  D TC G RDFR:Y<0 S FR=Y,ST=%"
^XMB(3.9,136,2,247,0)="""RTN"",""SDC2"",12,0)"
^XMB(3.9,136,2,248,0)="RDTO R !,""ENDING TIME: "",X:DTIME Q:""^""[X  D TC G RDTO:Y<0 S SDHTO=X,TO=Y I TO'>FR W !,*7,""Ending time must be later than starting time!"" G RDTO"
^XMB(3.9,136,2,249,0)="""RTN"",""SDC2"",13,0)"
^XMB(3.9,136,2,250,0)=" D TZ G:'$D(X) SHOW"
^XMB(3.9,136,2,251,0)="""RTN"",""SDC2"",14,0)"
^XMB(3.9,136,2,252,0)=" G ROPT^SDC"
^XMB(3.9,136,2,253,0)="""RTN"",""SDC2"",15,0)"
^XMB(3.9,136,2,254,0)="TC S X=$$FMTE^XLFDT(SD)_""@""_X,%DT=""TE"" D ^%DT I Y<0!(X[""?"") W !,""Enter a time after starting time"",!,""for clinic and which is a valid time for clinic."",*7 Q"
^XMB(3.9,136,2,255,0)="""RTN"",""SDC2"",16,0)"
^XMB(3.9,136,2,256,0)=" S X=$E($P(Y_""0000"",""."",2),1,4),%=$E(X,3,4),%=X\100-STARTDAY*SI+(%*SI\60)*2 I %<0 W !,*7,""DAY STARTS AT "",STARTDAY S Y=-1"
^XMB(3.9,136,2,257,0)="""RTN"",""SDC2"",17,0)"
^XMB(3.9,136,2,258,0)=" I %>72 W *7,""?"" S Y=-1"
^XMB(3.9,136,2,259,0)="""RTN"",""SDC2"",18,0)"
^XMB(3.9,136,2,260,0)=" Q"
^XMB(3.9,136,2,261,0)="""RTN"",""SDC2"",19,0)"
^XMB(3.9,136,2,262,0)="TZ K SDERR F Z=0:0 S Z=$O(SDZ(Z)) Q:Z=""""  S SDERR=$S(FR'<Z&(FR<SDZ(Z)):1,TO>Z&(TO<SDZ(Z)):1,1:0) Q:SDERR  I Z'<FR&(Z<TO) S SDERR=1 Q"
^XMB(3.9,136,2,263,0)="""RTN"",""SDC2"",20,0)"
^XMB(3.9,136,2,264,0)=" G:SDERR ERR"
^XMB(3.9,136,2,265,0)="""RTN"",""SDC2"",21,0)"
^XMB(3.9,136,2,266,0)=" Q"
^XMB(3.9,136,2,267,0)="""RTN"",""SDC2"",22,0)"
^XMB(3.9,136,2,268,0)="MORE Q:$D(^SC(SC,""SDCAN"",SDZL,0))  S A=^SC(SC,""SDCAN"",0),SDCNT=$P(A,""^"",4),^SC(SC,""SDCAN"",0)=$P(A,""^"",1,2)_""^""_SDZL_""^""_(SDCNT+1),^SC(SC,""SDCAN"",SDZL,0)=SDZL_""^""_SDCTO"
^XMB(3.9,136,2,269,0)="""RTN"",""SDC2"",23,0)"
^XMB(3.9,136,2,270,0)=" Q"
^XMB(3.9,136,2,271,0)="""RTN"",""SDC2"",24,0)"
^XMB(3.9,136,2,272,0)="ERR W !!,*7,""Time frame selected overlaps previously cancelled time frame!"",! K X Q"
^XMB(3.9,136,2,273,0)="""RTN"",""SDC2"",25,0)"
^XMB(3.9,136,2,274,0)="TM S X=$E($P(X,""."",2)_""0000"",1,4),%=X>1159 S:X>1259 X=X-1200 S X=X\100_"":""_$E(X#100+100,2,3)_"" ""_$E(""AP"",%+1)_""M"" Q"
^XMB(3.9,136,2,275,0)="""RTN"",""SDUNC"")"
^XMB(3.9,136,2,276,0)="0^1^B22599773^B22202942"
^XMB(3.9,136,2,277,0)="""RTN"",""SDUNC"",1,0)"
^XMB(3.9,136,2,278,0)="SDUNC ;MAN/GRR - RESTORE CLINIC AVAILABILITY ; 24 JUL 2003  10:08 am"
^XMB(3.9,136,2,279,0)="""RTN"",""SDUNC"",2,0)"
^XMB(3.9,136,2,280,0)=" ;;5.3;Scheduling;**79,303,380,452**;Aug 13, 1993"
^XMB(3.9,136,2,281,0)="""RTN"",""SDUNC"",3,0)"
^XMB(3.9,136,2,282,0)=" D DT^DICRW S DIC=44,DIC(0)=""MEQA"",DIC(""S"")=""I $P(^(0),""""^"""",3)=""""C"""",'$G(^(""""OOS""""))"",DIC(""A"")=""Select CLINIC NAME: "" D ^DIC K DIC(""S""),DIC(""A"") Q:""^""[X  G:Y<0 SDUNC Q:'$D(^SC(+Y,""SL""))"
^XMB(3.9,136,2,283,0)="""RTN"",""SDUNC"",4,0)"
^XMB(3.9,136,2,284,0)=" S SC=+Y,SL=^(""SL"") ;NAKED REFERENCE - ^SC(IFN,""SL"")"
^XMB(3.9,136,2,285,0)="""RTN"",""SDUNC"",5,0)"
^XMB(3.9,136,2,286,0)=" N SDRES S SDRES=$$CLNCK^SDUTL2(SC,1)"
^XMB(3.9,136,2,287,0)="""RTN"",""SDUNC"",6,0)"
^XMB(3.9,136,2,288,0)=" I 'SDRES W !,?5,""Clinic MUST be corrected before continuing."" G SDUNC"
^XMB(3.9,136,2,289,0)="""RTN"",""SDUNC"",7,0)"
^XMB(3.9,136,2,290,0)=" S %DT=""AEXF"",%DT(""A"")=""RESTORE '""_$P(Y,U,2)_""' FOR WHAT DATE: "" D ^%DT K %DT Q:Y<0"
^XMB(3.9,136,2,291,0)="""RTN"",""SDUNC"",8,0)"
^XMB(3.9,136,2,292,0)=" S (SD,CDATE)=Y,%=$P(SL,U,6),SI=$S(%="""":4,%<3:4,%:%,1:4),%=$P(SL,U,3),STARTDAY=$S(%:%,1:8)"
^XMB(3.9,136,2,293,0)="""RTN"",""SDUNC"",9,0)"
^XMB(3.9,136,2,294,0)=" K SDIN,SDIN1,SDRE,SDRE1 I $D(^SC(SC,""I"")) S SDIN=+^(""I""),SDRE=+$P(^(""I""),""^"",2),Y=SDIN D DTS^SDUTL S SDIN1=Y,Y=SDRE D DTS^SDUTL S SDRE1=Y"
^XMB(3.9,136,2,295,0)="""RTN"",""SDUNC"",10,0)"
^XMB(3.9,136,2,296,0)=" I $S('$D(SDIN):0,'SDIN:0,SDIN>CDATE:0,SDRE'>CDATE&(SDRE):0,1:1) W !,*7,""Clinic is inactive "",$S(SDRE:""from "",1:""as of ""),SDIN1,$S(SDRE:"" to ""_SDRE1,1:"""") G SDUNC"
^XMB(3.9,136,2,297,0)="""RTN"",""SDUNC"",11,0)"
^XMB(3.9,136,2,298,0)=" K SDIN,SDIN1,SDRE,SDRE1 G:'$D(^SC(SC,""ST"",SD,1)) NOWAY"
^XMB(3.9,136,2,299,0)="""RTN"",""SDUNC"",12,0)"
^XMB(3.9,136,2,300,0)=" I $D(^SC(SC,""ST"",SD,1)),^(1)'[""CANCELLED""&(^(1)'[""X"") G NOWAY"
^XMB(3.9,136,2,301,0)="""RTN"",""SDUNC"",13,0)"
^XMB(3.9,136,2,302,0)=" I $D(^SC(SC,""ST"",SD,9)) I $D(^SC(SC,""OST"",SD,1)) D FIX Q:^SC(SC,""ST"",SD,1)[""X""&('$D(SDFR1))  S ^SC(SC,""ST"",SD,1)=HOLD K:^(1)'[""X"" ^SC(SC,""ST"",SD,""CAN"") W !,""RESTORED!"",*7 D CHK Q"
^XMB(3.9,136,2,303,0)="""RTN"",""SDUNC"",14,0)"
^XMB(3.9,136,2,304,0)=" I $D(^SC(SC,""ST"",SD,9)),'$D(^SC(SC,""OST"",SD,1)) G ERRM^SDUNC1"
^XMB(3.9,136,2,305,0)="""RTN"",""SDUNC"",15,0)"
^XMB(3.9,136,2,306,0)=" D B I '$D(DH) G NOPAT"
^XMB(3.9,136,2,307,0)="""RTN"",""SDUNC"",16,0)"
^XMB(3.9,136,2,308,0)=" Q:^SC(SC,""ST"",SD,1)[""X""&('$D(SDFR1))  S ^SC(SC,""ST"",SD,0)=SD,^SC(SC,""ST"",SD,1)=DH G N"
^XMB(3.9,136,2,309,0)="""RTN"",""SDUNC"",17,0)"
^XMB(3.9,136,2,310,0)="NOWAY W !,*7,""CLINIC HAS NOT BEEN CANCELLED FOR THAT DATE, SO IT CANNOT BE RESTORED"",*7 G SDUNC"
^XMB(3.9,136,2,311,0)="""RTN"",""SDUNC"",18,0)"
^XMB(3.9,136,2,312,0)="NOPAT W !,*7,""NO UPCOMING OR INDEFINITE APPOINTMENT PATTERN EXISTS FOR DAY OF WEEK,"",!,""CREATE 'AVAILABILITY' PATTERN THRU 'CLINIC SETUP', THEN RESTORE AGAIN"",*7 G SDUNC"
^XMB(3.9,136,2,313,0)="""RTN"",""SDUNC"",19,0)"
^XMB(3.9,136,2,314,0)="B S X=SD D DOW^SDM0 S DOW=Y,SS=$O(^SC(SC,""T""_Y,X)) I SS'="""",$D(^(SS,1)),^(1)]"""" S DH=$P(""SU^MO^TU^WE^TH^FR^SA"",""^"",DOW+1)_"" ""_$E(SD,6,7)_$J("""",SI+SI-6)_^(1),DO=X+1,DA(1)=SC,HOLD=DH D FIX2"
^XMB(3.9,136,2,315,0)="""RTN"",""SDUNC"",20,0)"
^XMB(3.9,136,2,316,0)=" Q"
^XMB(3.9,136,2,317,0)="""RTN"",""SDUNC"",21,0)"
^XMB(3.9,136,2,318,0)="N I '$F(^SC(SC,""ST"",SD,1),""["") K ^SC(SC,""ST"",SD) W !,*7,""CLINIC DOES NOT MEET ON THAT DAY"" G SDUNC"
^XMB(3.9,136,2,319,0)="""RTN"",""SDUNC"",22,0)"
^XMB(3.9,136,2,320,0)=" K:^SC(SC,""ST"",SD,1)'[""X"" ^SC(SC,""ST"",SD,""CAN"") W !,""RESTORED!"",*7 D CHK Q"
^XMB(3.9,136,2,321,0)="""RTN"",""SDUNC"",23,0)"
^XMB(3.9,136,2,322,0)="FIX I ^SC(SC,""ST"",SD,1)[""X"" S SDREST=^SC(SC,""OST"",SD,1) D SEL Q"
^XMB(3.9,136,2,323,0)="""RTN"",""SDUNC"",24,0)"
^XMB(3.9,136,2,324,0)=" S HOLD=^SC(SC,""OST"",SD,1)"
^XMB(3.9,136,2,325,0)="""RTN"",""SDUNC"",25,0)"
^XMB(3.9,136,2,326,0)=" Q"
^XMB(3.9,136,2,327,0)="""RTN"",""SDUNC"",26,0)"
^XMB(3.9,136,2,328,0)="CHK F N1=SD:0 S N1=$O(^SC(SC,""S"",N1)) Q:'N1!(N1\1-SD)  I $D(^SC(SC,""S"",N1,""MES"")) D KMES I $D(SDFR1),'$D(^(""MES"")) Q"
^XMB(3.9,136,2,329,0)="""RTN"",""SDUNC"",27,0)"
^XMB(3.9,136,2,330,0)=" Q"
^XMB(3.9,136,2,331,0)="""RTN"",""SDUNC"",28,0)"
^XMB(3.9,136,2,332,0)="FIX2 Q:^SC(SC,""ST"",SD,1)'[""X"""
^XMB(3.9,136,2,333,0)="""RTN"",""SDUNC"",29,0)"
^XMB(3.9,136,2,334,0)=" S SDREST=DH D SEL Q:'$D(SDFR1)  S DH=HOLD"
^XMB(3.9,136,2,335,0)="""RTN"",""SDUNC"",30,0)"
^XMB(3.9,136,2,336,0)=" Q"
^XMB(3.9,136,2,337,0)="""RTN"",""SDUNC"",31,0)"
^XMB(3.9,136,2,338,0)="SEL K SDFR1 Q:'$D(^SC(SC,""SL""))  S SL=^(""SL""),%=$P(SL,U,6),SI=$S(%="""":4,%<3:4,%:%,1:4),%=$P(SL,U,3),STARTDAY=$S(%:%,1:8)"
^XMB(3.9,136,2,339,0)="""RTN"",""SDUNC"",32,0)"
^XMB(3.9,136,2,340,0)=" W !,""Clinic has been cancelled for the following periods:"",!"
^XMB(3.9,136,2,341,0)="""RTN"",""SDUNC"",33,0)"
^XMB(3.9,136,2,342,0)=" K SDTEMP,SDZZ S SDZZ=0 F I=SD:0 S I=$O(^SC(SC,""SDCAN"",I)) Q:'I!(I\1-SD)  S SDZZ=SDZZ+1,X=I D TM S SDFR=X,SDFRX=X1,X="".""_$P(^(I,0),""^"",2) D TM S SDTO=X,SDTEMP(SDFRX_""-""_X1)=SDFR_""^""_SDTO,SDZZ(SDZZ)=SDFRX_""-""_X1"
^XMB(3.9,136,2,343,0)="""RTN"",""SDUNC"",34,0)"
^XMB(3.9,136,2,344,0)=" F I=SD:0 S I=$O(^SC(SC,""S"",I)) Q:'I!(I\1-SD)  I $D(^SC(SC,""S"",I,""MES"")),'$D(^SC(SC,""SDCAN"",I)) S X=I D TM S SDFRX=X1,SDFR=X,X="".""_$E(^SC(SC,""S"",I,""MES""),17,20) D TM S SDZZ=SDZZ+1,SDTEMP(SDFRX_""-""_X1)=SDFR_""^""_X,SDZZ(SDZZ)=SDFRX_""-""_X1"
^XMB(3.9,136,2,345,0)="""RTN"",""SDUNC"",35,0)"
^XMB(3.9,136,2,346,0)=" F I1=0:0 S I1=$O(SDZZ(I1)) Q:'I1  S I=SDTEMP(SDZZ(I1)) W !,?9,""("",$J(I1,2),"") "",""From: "",$J($P(I,""^"",1),8),""   To: "",$J($P(I,""^"",2),8)"
^XMB(3.9,136,2,347,0)="""RTN"",""SDUNC"",36,0)"
^XMB(3.9,136,2,348,0)="A K SDFRX,X1,SDFR,SDTO R !!,""RESTORE WHICH PERIOD?: "",X:DTIME Q:""^""[X"
^XMB(3.9,136,2,349,0)="""RTN"",""SDUNC"",37,0)"
^XMB(3.9,136,2,350,0)=" I X?1""?"".E W !,""Enter the # that precedes the time period you want to restore."" G A"
^XMB(3.9,136,2,351,0)="""RTN"",""SDUNC"",38,0)"
^XMB(3.9,136,2,352,0)=" S SDR=X I $D(SDZZ(SDR)),$D(SDTEMP(SDZZ(SDR))) W ""      "",$P(SDTEMP(SDZZ(SDR)),""^"",1),"" - "",$P(SDTEMP(SDZZ(SDR)),""^"",2) G ROK"
^XMB(3.9,136,2,353,0)="""RTN"",""SDUNC"",39,0)"
^XMB(3.9,136,2,354,0)=" W !,*7,""INVALID CHOICE, TRY AGAIN"" G A"
^XMB(3.9,136,2,355,0)="""RTN"",""SDUNC"",40,0)"
^XMB(3.9,136,2,356,0)="ROK S X=$P(SDZZ(SDR),""-"",1) D TC S FR=X,SDBEG=%+SI+SI,X=$P(SDZZ(SDR),""-"",2) D TC S TO=X,SDEND=%+SI+SI"
^XMB(3.9,136,2,357,0)="""RTN"",""SDUNC"",41,0)"
^XMB(3.9,136,2,358,0)=" S SDFR1=CDATE+(FR/10000) K SDTEMP,SDZZ,SDR"
^XMB(3.9,136,2,359,0)="""RTN"",""SDUNC"",42,0)"
^XMB(3.9,136,2,360,0)=" S HOLD=^SC(SC,""ST"",SD,1),HOLD=$E(HOLD,1,SDBEG-1)_$E(SDREST,SDBEG,SDEND)_$E(HOLD,SDEND+1,80) K ^SC(SC,""SDCAN"",SDFR1) I $D(^SC(SC,""SDCAN"",0)) S CNT=$P(^(0),U,4),CNT=$S(CNT>0:CNT-1,1:0),^(0)=$P(^(0),U,1,3)_U_CNT K CNT"
^XMB(3.9,136,2,361,0)="""RTN"",""SDUNC"",43,0)"
^XMB(3.9,136,2,362,0)=" I HOLD'[""["" S I5=$F(HOLD,""|""),HOLD=$E(HOLD,1,(I5-2))_""[""_$E(HOLD,I5,999) K I5"
^XMB(3.9,136,2,363,0)="""RTN"",""SDUNC"",44,0)"
^XMB(3.9,136,2,364,0)=" K SDBEG,SDEND,SDANS,SI,STARTDAY,FR,TO Q"
^XMB(3.9,136,2,365,0)="""RTN"",""SDUNC"",45,0)"
^XMB(3.9,136,2,366,0)="KMES I '$D(SDFR1) K ^(""MES"") Q  ;NAKED REFERENCE - ^SC(IFN,""S"",DATE,""MES"")"
^XMB(3.9,136,2,367,0)="""RTN"",""SDUNC"",46,0)"
^XMB(3.9,136,2,368,0)=" I $D(SDFR1),N1=SDFR1 K ^(""MES"") Q  ;NAKED REFERENCE - ^SC(IFN,""S"",DATE,""MES"")"
^XMB(3.9,136,2,369,0)="""RTN"",""SDUNC"",47,0)"
^XMB(3.9,136,2,370,0)=" Q"
^XMB(3.9,136,2,371,0)="""RTN"",""SDUNC"",48,0)"
^XMB(3.9,136,2,372,0)="TC S %=$E(X,3,4),%=X\100-STARTDAY*SI+(%*SI\60)*2"
^XMB(3.9,136,2,373,0)="""RTN"",""SDUNC"",49,0)"
^XMB(3.9,136,2,374,0)=" Q"
^XMB(3.9,136,2,375,0)="""RTN"",""SDUNC"",50,0)"
^XMB(3.9,136,2,376,0)="TM S X=$E($P(X,""."",2)_""0000"",1,4),X1=X,%=X>1159 S:X>1259 X=X-1200 S X=X\100_"":""_$E(X#100+100,2,3)_"" ""_$E(""AP"",%+1)_""M"" Q"
^XMB(3.9,136,2,377,0)="""VER"")"
^XMB(3.9,136,2,378,0)="8.0^22.0"
^XMB(3.9,136,2,379,0)="""BLD"",6598,6)"
^XMB(3.9,136,2,380,0)="^386"
^XMB(3.9,136,2,381,0)="$END KID SD*5.3*452"
^XMB(3.9,136,6,0)="^3.911A^2^2"
^XMB(3.9,136,6,1,0)="POSTMASTER"
^XMB(3.9,136,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,136,6,"B","POSTMASTER",1)=""
^XMB(3.9,136,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,137,0)="SD-5P3_SEQ-387_PAT-442.KID^.5^3061008.015742^^^^K"
^XMB(3.9,137,.6)="3061008"
^XMB(3.9,137,1,0)="^3.91A^2^2"
^XMB(3.9,137,1,1,0)=".5^0^3061008.015742^^^^^^^3061008.015742"
^XMB(3.9,137,1,2,0)="1^0^3061008.02272^^^^^^^3061008.02272"
^XMB(3.9,137,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,137,1,"C",.5,1)=""
^XMB(3.9,137,1,"C",1,2)=""
^XMB(3.9,137,2,0)="^^1137^1137^3061008"
^XMB(3.9,137,2,1,0)="$TXT Released SD*5.3*442 SEQ #387"
^XMB(3.9,137,2,2,0)="Extracted from mail message"
^XMB(3.9,137,2,3,0)="$END TXT"
^XMB(3.9,137,2,4,0)="$KID SD*5.3*442"
^XMB(3.9,137,2,5,0)="**INSTALL NAME**"
^XMB(3.9,137,2,6,0)="SD*5.3*442"
^XMB(3.9,137,2,7,0)="""BLD"",6203,0)"
^XMB(3.9,137,2,8,0)="SD*5.3*442^SCHEDULING^0^3060517^y"
^XMB(3.9,137,2,9,0)="""BLD"",6203,1,0)"
^XMB(3.9,137,2,10,0)="^^2^2^3060517^"
^XMB(3.9,137,2,11,0)="""BLD"",6203,1,1,0)"
^XMB(3.9,137,2,12,0)="Change to text description for D00 and D000 errors.  Also, new logic "
^XMB(3.9,137,2,13,0)="""BLD"",6203,1,2,0)"
^XMB(3.9,137,2,14,0)="added to check for inactive person class."
^XMB(3.9,137,2,15,0)="""BLD"",6203,4,0)"
^XMB(3.9,137,2,16,0)="^9.64PA^^0"
^XMB(3.9,137,2,17,0)="""BLD"",6203,""ABPKG"")"
^XMB(3.9,137,2,18,0)="n"
^XMB(3.9,137,2,19,0)="""BLD"",6203,""INID"")"
^XMB(3.9,137,2,20,0)="^n"
^XMB(3.9,137,2,21,0)="""BLD"",6203,""INIT"")"
^XMB(3.9,137,2,22,0)="SC442PST"
^XMB(3.9,137,2,23,0)="""BLD"",6203,""KRN"",0)"
^XMB(3.9,137,2,24,0)="^9.67PA^8989.52^19"
^XMB(3.9,137,2,25,0)="""BLD"",6203,""KRN"",.4,0)"
^XMB(3.9,137,2,26,0)=".4"
^XMB(3.9,137,2,27,0)="""BLD"",6203,""KRN"",.401,0)"
^XMB(3.9,137,2,28,0)=".401"
^XMB(3.9,137,2,29,0)="""BLD"",6203,""KRN"",.402,0)"
^XMB(3.9,137,2,30,0)=".402"
^XMB(3.9,137,2,31,0)="""BLD"",6203,""KRN"",.403,0)"
^XMB(3.9,137,2,32,0)=".403"
^XMB(3.9,137,2,33,0)="""BLD"",6203,""KRN"",.5,0)"
^XMB(3.9,137,2,34,0)=".5"
^XMB(3.9,137,2,35,0)="""BLD"",6203,""KRN"",.84,0)"
^XMB(3.9,137,2,36,0)=".84"
^XMB(3.9,137,2,37,0)="""BLD"",6203,""KRN"",3.6,0)"
^XMB(3.9,137,2,38,0)="3.6"
^XMB(3.9,137,2,39,0)="""BLD"",6203,""KRN"",3.8,0)"
^XMB(3.9,137,2,40,0)="3.8"
^XMB(3.9,137,2,41,0)="""BLD"",6203,""KRN"",9.2,0)"
^XMB(3.9,137,2,42,0)="9.2"
^XMB(3.9,137,2,43,0)="""BLD"",6203,""KRN"",9.8,0)"
^XMB(3.9,137,2,44,0)="9.8"
^XMB(3.9,137,2,45,0)="""BLD"",6203,""KRN"",9.8,""NM"",0)"
^XMB(3.9,137,2,46,0)="^9.68A^2^1"
^XMB(3.9,137,2,47,0)="""BLD"",6203,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,137,2,48,0)="SCMSVUT1^^0^B68410445"
^XMB(3.9,137,2,49,0)="""BLD"",6203,""KRN"",9.8,""NM"",""B"",""SCMSVUT1"",2)"
^XMB(3.9,137,2,50,0)=""
^XMB(3.9,137,2,51,0)="""BLD"",6203,""KRN"",19,0)"
^XMB(3.9,137,2,52,0)="19"
^XMB(3.9,137,2,53,0)="""BLD"",6203,""KRN"",19.1,0)"
^XMB(3.9,137,2,54,0)="19.1"
^XMB(3.9,137,2,55,0)="""BLD"",6203,""KRN"",101,0)"
^XMB(3.9,137,2,56,0)="101"
^XMB(3.9,137,2,57,0)="""BLD"",6203,""KRN"",409.61,0)"
^XMB(3.9,137,2,58,0)="409.61"
^XMB(3.9,137,2,59,0)="""BLD"",6203,""KRN"",771,0)"
^XMB(3.9,137,2,60,0)="771"
^XMB(3.9,137,2,61,0)="""BLD"",6203,""KRN"",870,0)"
^XMB(3.9,137,2,62,0)="870"
^XMB(3.9,137,2,63,0)="""BLD"",6203,""KRN"",8989.51,0)"
^XMB(3.9,137,2,64,0)="8989.51"
^XMB(3.9,137,2,65,0)="""BLD"",6203,""KRN"",8989.52,0)"
^XMB(3.9,137,2,66,0)="8989.52"
^XMB(3.9,137,2,67,0)="""BLD"",6203,""KRN"",8994,0)"
^XMB(3.9,137,2,68,0)="8994"
^XMB(3.9,137,2,69,0)="""BLD"",6203,""KRN"",""B"",.4,.4)"
^XMB(3.9,137,2,70,0)=""
^XMB(3.9,137,2,71,0)="""BLD"",6203,""KRN"",""B"",.401,.401)"
^XMB(3.9,137,2,72,0)=""
^XMB(3.9,137,2,73,0)="""BLD"",6203,""KRN"",""B"",.402,.402)"
^XMB(3.9,137,2,74,0)=""
^XMB(3.9,137,2,75,0)="""BLD"",6203,""KRN"",""B"",.403,.403)"
^XMB(3.9,137,2,76,0)=""
^XMB(3.9,137,2,77,0)="""BLD"",6203,""KRN"",""B"",.5,.5)"
^XMB(3.9,137,2,78,0)=""
^XMB(3.9,137,2,79,0)="""BLD"",6203,""KRN"",""B"",.84,.84)"
^XMB(3.9,137,2,80,0)=""
^XMB(3.9,137,2,81,0)="""BLD"",6203,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,137,2,82,0)=""
^XMB(3.9,137,2,83,0)="""BLD"",6203,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,137,2,84,0)=""
^XMB(3.9,137,2,85,0)="""BLD"",6203,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,137,2,86,0)=""
^XMB(3.9,137,2,87,0)="""BLD"",6203,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,137,2,88,0)=""
^XMB(3.9,137,2,89,0)="""BLD"",6203,""KRN"",""B"",19,19)"
^XMB(3.9,137,2,90,0)=""
^XMB(3.9,137,2,91,0)="""BLD"",6203,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,137,2,92,0)=""
^XMB(3.9,137,2,93,0)="""BLD"",6203,""KRN"",""B"",101,101)"
^XMB(3.9,137,2,94,0)=""
^XMB(3.9,137,2,95,0)="""BLD"",6203,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,137,2,96,0)=""
^XMB(3.9,137,2,97,0)="""BLD"",6203,""KRN"",""B"",771,771)"
^XMB(3.9,137,2,98,0)=""
^XMB(3.9,137,2,99,0)="""BLD"",6203,""KRN"",""B"",870,870)"
^XMB(3.9,137,2,100,0)=""
^XMB(3.9,137,2,101,0)="""BLD"",6203,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,137,2,102,0)=""
^XMB(3.9,137,2,103,0)="""BLD"",6203,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,137,2,104,0)=""
^XMB(3.9,137,2,105,0)="""BLD"",6203,""KRN"",""B"",8994,8994)"
^XMB(3.9,137,2,106,0)=""
^XMB(3.9,137,2,107,0)="""BLD"",6203,""QUES"",0)"
^XMB(3.9,137,2,108,0)="^9.62^^"
^XMB(3.9,137,2,109,0)="""BLD"",6203,""REQB"",0)"
^XMB(3.9,137,2,110,0)="^9.611^1^1"
^XMB(3.9,137,2,111,0)="""BLD"",6203,""REQB"",1,0)"
^XMB(3.9,137,2,112,0)="SD*5.3*394^1"
^XMB(3.9,137,2,113,0)="""BLD"",6203,""REQB"",""B"",""SD*5.3*394"",1)"
^XMB(3.9,137,2,114,0)=""
^XMB(3.9,137,2,115,0)="""INIT"")"
^XMB(3.9,137,2,116,0)="SC442PST"
^XMB(3.9,137,2,117,0)="""MBREQ"")"
^XMB(3.9,137,2,118,0)="0"
^XMB(3.9,137,2,119,0)="""PKG"",16,-1)"
^XMB(3.9,137,2,120,0)="1^1"
^XMB(3.9,137,2,121,0)="""PKG"",16,0)"
^XMB(3.9,137,2,122,0)="SCHEDULING^SD^APPOINTMENTS,PROFILES,LETTERS,AMIS REPORTS"
^XMB(3.9,137,2,123,0)="""PKG"",16,20,0)"
^XMB(3.9,137,2,124,0)="^9.402P^^"
^XMB(3.9,137,2,125,0)="""PKG"",16,22,0)"
^XMB(3.9,137,2,126,0)="^9.49I^1^1"
^XMB(3.9,137,2,127,0)="""PKG"",16,22,1,0)"
^XMB(3.9,137,2,128,0)="5.3^2930813"
^XMB(3.9,137,2,129,0)="""PKG"",16,22,1,""PAH"",1,0)"
^XMB(3.9,137,2,130,0)="442^3060517"
^XMB(3.9,137,2,131,0)="""PKG"",16,22,1,""PAH"",1,1,0)"
^XMB(3.9,137,2,132,0)="^^2^2^3060517"
^XMB(3.9,137,2,133,0)="""PKG"",16,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,137,2,134,0)="Change to text description for D00 and D000 errors.  Also, new logic "
^XMB(3.9,137,2,135,0)="""PKG"",16,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,137,2,136,0)="added to check for inactive person class."
^XMB(3.9,137,2,137,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,137,2,138,0)="Y"
^XMB(3.9,137,2,139,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,137,2,140,0)="^D REP^XPDH"
^XMB(3.9,137,2,141,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,137,2,142,0)="Shall I write over your |FLAG| File"
^XMB(3.9,137,2,143,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,137,2,144,0)="YES"
^XMB(3.9,137,2,145,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,137,2,146,0)="D XPF1^XPDIQ"
^XMB(3.9,137,2,147,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,137,2,148,0)="Y"
^XMB(3.9,137,2,149,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,137,2,150,0)="^D DTA^XPDH"
^XMB(3.9,137,2,151,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,137,2,152,0)="Want my data |FLAG| yours"
^XMB(3.9,137,2,153,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,137,2,154,0)="YES"
^XMB(3.9,137,2,155,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,137,2,156,0)="D XPF2^XPDIQ"
^XMB(3.9,137,2,157,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,137,2,158,0)="YO"
^XMB(3.9,137,2,159,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,137,2,160,0)="^D INHIBIT^XPDH"
^XMB(3.9,137,2,161,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,137,2,162,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,137,2,163,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,137,2,164,0)="YES"
^XMB(3.9,137,2,165,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,137,2,166,0)="D XPI1^XPDIQ"
^XMB(3.9,137,2,167,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,137,2,168,0)="PO^VA(200,:EM"
^XMB(3.9,137,2,169,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,137,2,170,0)="^D MG^XPDH"
^XMB(3.9,137,2,171,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,137,2,172,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,137,2,173,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,137,2,174,0)=""
^XMB(3.9,137,2,175,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,137,2,176,0)="D XPM1^XPDIQ"
^XMB(3.9,137,2,177,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,137,2,178,0)="Y"
^XMB(3.9,137,2,179,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,137,2,180,0)="^D MENU^XPDH"
^XMB(3.9,137,2,181,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,137,2,182,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,137,2,183,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,137,2,184,0)="YES"
^XMB(3.9,137,2,185,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,137,2,186,0)="D XPO1^XPDIQ"
^XMB(3.9,137,2,187,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,137,2,188,0)="Y"
^XMB(3.9,137,2,189,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,137,2,190,0)="^D OPT^XPDH"
^XMB(3.9,137,2,191,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,137,2,192,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,137,2,193,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,137,2,194,0)="YES"
^XMB(3.9,137,2,195,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,137,2,196,0)="D XPZ1^XPDIQ"
^XMB(3.9,137,2,197,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,137,2,198,0)="Y"
^XMB(3.9,137,2,199,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,137,2,200,0)="^D RTN^XPDH"
^XMB(3.9,137,2,201,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,137,2,202,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,137,2,203,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,137,2,204,0)="NO"
^XMB(3.9,137,2,205,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,137,2,206,0)="D XPZ2^XPDIQ"
^XMB(3.9,137,2,207,0)="""RTN"")"
^XMB(3.9,137,2,208,0)="2"
^XMB(3.9,137,2,209,0)="""RTN"",""SC442PST"")"
^XMB(3.9,137,2,210,0)="0^^B1117351"
^XMB(3.9,137,2,211,0)="""RTN"",""SC442PST"",1,0)"
^XMB(3.9,137,2,212,0)="SC442PST ;ALB/RLC - POST INIT ROUTINE FOR PATCH 442; [Feb 19, 2004 10:30 am]"
^XMB(3.9,137,2,213,0)="""RTN"",""SC442PST"",2,0)"
^XMB(3.9,137,2,214,0)=" ;;5.3;Scheduling;**442**;Aug 13, 1993"
^XMB(3.9,137,2,215,0)="""RTN"",""SC442PST"",3,0)"
^XMB(3.9,137,2,216,0)=" ;Per VHA Directive 10-93-142, this routine should not be modified."
^XMB(3.9,137,2,217,0)="""RTN"",""SC442PST"",4,0)"
^XMB(3.9,137,2,218,0)=" ;"
^XMB(3.9,137,2,219,0)="""RTN"",""SC442PST"",5,0)"
^XMB(3.9,137,2,220,0)=" ; This post-init routine modifies the narrative description"
^XMB(3.9,137,2,221,0)="""RTN"",""SC442PST"",6,0)"
^XMB(3.9,137,2,222,0)=" ; for error codes D00 and D000 in file 409.76"
^XMB(3.9,137,2,223,0)="""RTN"",""SC442PST"",7,0)"
^XMB(3.9,137,2,224,0)=" ;"
^XMB(3.9,137,2,225,0)="""RTN"",""SC442PST"",8,0)"
^XMB(3.9,137,2,226,0)="FILE N DA,DR,DIE"
^XMB(3.9,137,2,227,0)="""RTN"",""SC442PST"",9,0)"
^XMB(3.9,137,2,228,0)=" S SCDESC=""Provider Type Code is missing, invalid or inactive."""
^XMB(3.9,137,2,229,0)="""RTN"",""SC442PST"",10,0)"
^XMB(3.9,137,2,230,0)=" S DA="""" F I=""D00"",""D000"" S DA=$O(^SD(409.76,""B"",I,"""")) Q:'DA  D"
^XMB(3.9,137,2,231,0)="""RTN"",""SC442PST"",11,0)"
^XMB(3.9,137,2,232,0)=" .L +^SD(409.76,DA)"
^XMB(3.9,137,2,233,0)="""RTN"",""SC442PST"",12,0)"
^XMB(3.9,137,2,234,0)=" .S DIE=""^SD(409.76,"",DR=""11///^S X=SCDESC"" D ^DIE"
^XMB(3.9,137,2,235,0)="""RTN"",""SC442PST"",13,0)"
^XMB(3.9,137,2,236,0)=" .L -^SD(409.76,DA)"
^XMB(3.9,137,2,237,0)="""RTN"",""SC442PST"",14,0)"
^XMB(3.9,137,2,238,0)=" K DA,DR,DIE,SCDESC,I"
^XMB(3.9,137,2,239,0)="""RTN"",""SC442PST"",15,0)"
^XMB(3.9,137,2,240,0)=" ;"
^XMB(3.9,137,2,241,0)="""RTN"",""SC442PST"",16,0)"
^XMB(3.9,137,2,242,0)="FILE1 N DA,DR,DIE,SCLOGIC,I"
^XMB(3.9,137,2,243,0)="""RTN"",""SC442PST"",17,0)"
^XMB(3.9,137,2,244,0)=" S SCLOGIC=""S RES=$$PROVCLS^SCMSVUT1(DATA)"",I=""D000"""
^XMB(3.9,137,2,245,0)="""RTN"",""SC442PST"",18,0)"
^XMB(3.9,137,2,246,0)=" S DA="""",DA=$O(^SD(409.76,""B"",I,"""")) Q:DA="""""
^XMB(3.9,137,2,247,0)="""RTN"",""SC442PST"",19,0)"
^XMB(3.9,137,2,248,0)=" L +^SD(409.76,I)"
^XMB(3.9,137,2,249,0)="""RTN"",""SC442PST"",20,0)"
^XMB(3.9,137,2,250,0)=" S DIE=""^SD(409.76,"",DR=""31///^S X=SCLOGIC"" D ^DIE"
^XMB(3.9,137,2,251,0)="""RTN"",""SC442PST"",21,0)"
^XMB(3.9,137,2,252,0)=" L -^SD(409.76,DA)"
^XMB(3.9,137,2,253,0)="""RTN"",""SC442PST"",22,0)"
^XMB(3.9,137,2,254,0)=" K DA,DR,DIE,SCLOGIC,I"
^XMB(3.9,137,2,255,0)="""RTN"",""SC442PST"",23,0)"
^XMB(3.9,137,2,256,0)=" Q"
^XMB(3.9,137,2,257,0)="""RTN"",""SCMSVUT1"")"
^XMB(3.9,137,2,258,0)="0^2^B68410445^B67824096"
^XMB(3.9,137,2,259,0)="""RTN"",""SCMSVUT1"",1,0)"
^XMB(3.9,137,2,260,0)="SCMSVUT1 ;ALB/JLU;validation utility routine;06/19/99 ; 4/30/03 11:58am"
^XMB(3.9,137,2,261,0)="""RTN"",""SCMSVUT1"",2,0)"
^XMB(3.9,137,2,262,0)=" ;;5.3;Scheduling;**66,143,180,239,247,258,296,295,321,341,387,459,394,442**;AUG 13,1993"
^XMB(3.9,137,2,263,0)="""RTN"",""SCMSVUT1"",3,0)"
^XMB(3.9,137,2,264,0)=" ;06/19/99 ACS - Added CPT Modifier API calls to PROCCOD(DATA)"
^XMB(3.9,137,2,265,0)="""RTN"",""SCMSVUT1"",4,0)"
^XMB(3.9,137,2,266,0)=" ;"
^XMB(3.9,137,2,267,0)="""RTN"",""SCMSVUT1"",5,0)"
^XMB(3.9,137,2,268,0)="SEGERR(DATA,HLFS) ;"
^XMB(3.9,137,2,269,0)="""RTN"",""SCMSVUT1"",6,0)"
^XMB(3.9,137,2,270,0)=" ;INPUT DATA - This is a check for the segment errors of null"
^XMB(3.9,137,2,271,0)="""RTN"",""SCMSVUT1"",7,0)"
^XMB(3.9,137,2,272,0)=" ;      HLFS - The string separator character"
^XMB(3.9,137,2,273,0)="""RTN"",""SCMSVUT1"",8,0)"
^XMB(3.9,137,2,274,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,275,0)="""RTN"",""SCMSVUT1"",9,0)"
^XMB(3.9,137,2,276,0)=" I DATA="""" Q 0"
^XMB(3.9,137,2,277,0)="""RTN"",""SCMSVUT1"",10,0)"
^XMB(3.9,137,2,278,0)=" I $L(DATA,HLFS)'>2 Q 0"
^XMB(3.9,137,2,279,0)="""RTN"",""SCMSVUT1"",11,0)"
^XMB(3.9,137,2,280,0)=" Q 1"
^XMB(3.9,137,2,281,0)="""RTN"",""SCMSVUT1"",12,0)"
^XMB(3.9,137,2,282,0)=" ;"
^XMB(3.9,137,2,283,0)="""RTN"",""SCMSVUT1"",13,0)"
^XMB(3.9,137,2,284,0)="DODA(DATA) ;"
^XMB(3.9,137,2,285,0)="""RTN"",""SCMSVUT1"",14,0)"
^XMB(3.9,137,2,286,0)=" ;INPUT   DATA - The FM date of death."
^XMB(3.9,137,2,287,0)="""RTN"",""SCMSVUT1"",15,0)"
^XMB(3.9,137,2,288,0)=" ;"
^XMB(3.9,137,2,289,0)="""RTN"",""SCMSVUT1"",16,0)"
^XMB(3.9,137,2,290,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,291,0)="""RTN"",""SCMSVUT1"",17,0)"
^XMB(3.9,137,2,292,0)=" I DATA="""" Q 1"
^XMB(3.9,137,2,293,0)="""RTN"",""SCMSVUT1"",18,0)"
^XMB(3.9,137,2,294,0)=" N %DT,X,Y"
^XMB(3.9,137,2,295,0)="""RTN"",""SCMSVUT1"",19,0)"
^XMB(3.9,137,2,296,0)=" S %DT=""T"",%DT(0)=""-NOW"",X=DATA"
^XMB(3.9,137,2,297,0)="""RTN"",""SCMSVUT1"",20,0)"
^XMB(3.9,137,2,298,0)=" D ^%DT"
^XMB(3.9,137,2,299,0)="""RTN"",""SCMSVUT1"",21,0)"
^XMB(3.9,137,2,300,0)=" Q $S(Y=-1:0,1:1)"
^XMB(3.9,137,2,301,0)="""RTN"",""SCMSVUT1"",22,0)"
^XMB(3.9,137,2,302,0)=" ;"
^XMB(3.9,137,2,303,0)="""RTN"",""SCMSVUT1"",23,0)"
^XMB(3.9,137,2,304,0)="DODB(DATA,ENCDT) ;"
^XMB(3.9,137,2,305,0)="""RTN"",""SCMSVUT1"",24,0)"
^XMB(3.9,137,2,306,0)=" ;INPUT   DATA - The FM date of death"
^XMB(3.9,137,2,307,0)="""RTN"",""SCMSVUT1"",25,0)"
^XMB(3.9,137,2,308,0)=" ;       ENCDT - The FM date of encounter"
^XMB(3.9,137,2,309,0)="""RTN"",""SCMSVUT1"",26,0)"
^XMB(3.9,137,2,310,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,311,0)="""RTN"",""SCMSVUT1"",27,0)"
^XMB(3.9,137,2,312,0)=" I DATA="""" Q 1"
^XMB(3.9,137,2,313,0)="""RTN"",""SCMSVUT1"",28,0)"
^XMB(3.9,137,2,314,0)=" N %DT,X,Y"
^XMB(3.9,137,2,315,0)="""RTN"",""SCMSVUT1"",29,0)"
^XMB(3.9,137,2,316,0)=" S %DT=""T"",%DT(0)=ENCDT,X=DATA"
^XMB(3.9,137,2,317,0)="""RTN"",""SCMSVUT1"",30,0)"
^XMB(3.9,137,2,318,0)=" D ^%DT"
^XMB(3.9,137,2,319,0)="""RTN"",""SCMSVUT1"",31,0)"
^XMB(3.9,137,2,320,0)=" Q $S(Y=-1:0,1:1)"
^XMB(3.9,137,2,321,0)="""RTN"",""SCMSVUT1"",32,0)"
^XMB(3.9,137,2,322,0)=" ;"
^XMB(3.9,137,2,323,0)="""RTN"",""SCMSVUT1"",33,0)"
^XMB(3.9,137,2,324,0)="DODL(DATA,ENCDT) ;"
^XMB(3.9,137,2,325,0)="""RTN"",""SCMSVUT1"",34,0)"
^XMB(3.9,137,2,326,0)=" ;INPUT  DATA - The FM date of death"
^XMB(3.9,137,2,327,0)="""RTN"",""SCMSVUT1"",35,0)"
^XMB(3.9,137,2,328,0)=" ;      ENCDT - The FM date of the encounter"
^XMB(3.9,137,2,329,0)="""RTN"",""SCMSVUT1"",36,0)"
^XMB(3.9,137,2,330,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,331,0)="""RTN"",""SCMSVUT1"",37,0)"
^XMB(3.9,137,2,332,0)=" I '$D(ENCDT) Q 0"
^XMB(3.9,137,2,333,0)="""RTN"",""SCMSVUT1"",38,0)"
^XMB(3.9,137,2,334,0)=" I DATA="""" Q 1"
^XMB(3.9,137,2,335,0)="""RTN"",""SCMSVUT1"",39,0)"
^XMB(3.9,137,2,336,0)=" I ENCDT<DATA Q 1"
^XMB(3.9,137,2,337,0)="""RTN"",""SCMSVUT1"",40,0)"
^XMB(3.9,137,2,338,0)=" I ENCDT=DATA Q 1"
^XMB(3.9,137,2,339,0)="""RTN"",""SCMSVUT1"",41,0)"
^XMB(3.9,137,2,340,0)=" N X1,X2,X"
^XMB(3.9,137,2,341,0)="""RTN"",""SCMSVUT1"",42,0)"
^XMB(3.9,137,2,342,0)=" S X1=ENCDT,X2=DATA"
^XMB(3.9,137,2,343,0)="""RTN"",""SCMSVUT1"",43,0)"
^XMB(3.9,137,2,344,0)=" D ^%DTC"
^XMB(3.9,137,2,345,0)="""RTN"",""SCMSVUT1"",44,0)"
^XMB(3.9,137,2,346,0)=" I X>14 Q 0"
^XMB(3.9,137,2,347,0)="""RTN"",""SCMSVUT1"",45,0)"
^XMB(3.9,137,2,348,0)=" Q 1"
^XMB(3.9,137,2,349,0)="""RTN"",""SCMSVUT1"",46,0)"
^XMB(3.9,137,2,350,0)=" ;"
^XMB(3.9,137,2,351,0)="""RTN"",""SCMSVUT1"",47,0)"
^XMB(3.9,137,2,352,0)="HOME(DATA) ;"
^XMB(3.9,137,2,353,0)="""RTN"",""SCMSVUT1"",48,0)"
^XMB(3.9,137,2,354,0)=" ;INPUT   DATA - THe homeless indicator to be validated."
^XMB(3.9,137,2,355,0)="""RTN"",""SCMSVUT1"",49,0)"
^XMB(3.9,137,2,356,0)=" ;"
^XMB(3.9,137,2,357,0)="""RTN"",""SCMSVUT1"",50,0)"
^XMB(3.9,137,2,358,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,359,0)="""RTN"",""SCMSVUT1"",51,0)"
^XMB(3.9,137,2,360,0)=" I DATA'=1,DATA'=0 Q 0"
^XMB(3.9,137,2,361,0)="""RTN"",""SCMSVUT1"",52,0)"
^XMB(3.9,137,2,362,0)=" Q 1"
^XMB(3.9,137,2,363,0)="""RTN"",""SCMSVUT1"",53,0)"
^XMB(3.9,137,2,364,0)=" ;"
^XMB(3.9,137,2,365,0)="""RTN"",""SCMSVUT1"",54,0)"
^XMB(3.9,137,2,366,0)="POW(DATA) ;"
^XMB(3.9,137,2,367,0)="""RTN"",""SCMSVUT1"",55,0)"
^XMB(3.9,137,2,368,0)=" ;INPUT  DATA - The POW indicatort to be validated."
^XMB(3.9,137,2,369,0)="""RTN"",""SCMSVUT1"",56,0)"
^XMB(3.9,137,2,370,0)=" ;"
^XMB(3.9,137,2,371,0)="""RTN"",""SCMSVUT1"",57,0)"
^XMB(3.9,137,2,372,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,373,0)="""RTN"",""SCMSVUT1"",58,0)"
^XMB(3.9,137,2,374,0)=" I DATA="""" Q 1"
^XMB(3.9,137,2,375,0)="""RTN"",""SCMSVUT1"",59,0)"
^XMB(3.9,137,2,376,0)=" I DATA'=""N"",DATA'=""U"",DATA'=""Y"" Q 0"
^XMB(3.9,137,2,377,0)="""RTN"",""SCMSVUT1"",60,0)"
^XMB(3.9,137,2,378,0)=" Q 1"
^XMB(3.9,137,2,379,0)="""RTN"",""SCMSVUT1"",61,0)"
^XMB(3.9,137,2,380,0)=" ;"
^XMB(3.9,137,2,381,0)="""RTN"",""SCMSVUT1"",62,0)"
^XMB(3.9,137,2,382,0)="TYPINS(DATA) ;"
^XMB(3.9,137,2,383,0)="""RTN"",""SCMSVUT1"",63,0)"
^XMB(3.9,137,2,384,0)=" ;INPUT  DATA - Type if insurance indicator to be validated."
^XMB(3.9,137,2,385,0)="""RTN"",""SCMSVUT1"",64,0)"
^XMB(3.9,137,2,386,0)=" ;"
^XMB(3.9,137,2,387,0)="""RTN"",""SCMSVUT1"",65,0)"
^XMB(3.9,137,2,388,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,389,0)="""RTN"",""SCMSVUT1"",66,0)"
^XMB(3.9,137,2,390,0)=" I DATA="""" Q 1"
^XMB(3.9,137,2,391,0)="""RTN"",""SCMSVUT1"",67,0)"
^XMB(3.9,137,2,392,0)=" I DATA?.A Q 0"
^XMB(3.9,137,2,393,0)="""RTN"",""SCMSVUT1"",68,0)"
^XMB(3.9,137,2,394,0)=" I DATA>-1,(DATA<13) Q 1"
^XMB(3.9,137,2,395,0)="""RTN"",""SCMSVUT1"",69,0)"
^XMB(3.9,137,2,396,0)=" Q 0"
^XMB(3.9,137,2,397,0)="""RTN"",""SCMSVUT1"",70,0)"
^XMB(3.9,137,2,398,0)=" ;"
^XMB(3.9,137,2,399,0)="""RTN"",""SCMSVUT1"",71,0)"
^XMB(3.9,137,2,400,0)="PATCLSS(DATA) ;"
^XMB(3.9,137,2,401,0)="""RTN"",""SCMSVUT1"",72,0)"
^XMB(3.9,137,2,402,0)=" ;INPUT  DATA - the patient's class"
^XMB(3.9,137,2,403,0)="""RTN"",""SCMSVUT1"",73,0)"
^XMB(3.9,137,2,404,0)=" ;"
^XMB(3.9,137,2,405,0)="""RTN"",""SCMSVUT1"",74,0)"
^XMB(3.9,137,2,406,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,407,0)="""RTN"",""SCMSVUT1"",75,0)"
^XMB(3.9,137,2,408,0)=" I (""^O^I^"")'[(""^""_DATA_""^"") Q 0"
^XMB(3.9,137,2,409,0)="""RTN"",""SCMSVUT1"",76,0)"
^XMB(3.9,137,2,410,0)=" Q 1"
^XMB(3.9,137,2,411,0)="""RTN"",""SCMSVUT1"",77,0)"
^XMB(3.9,137,2,412,0)=" ;"
^XMB(3.9,137,2,413,0)="""RTN"",""SCMSVUT1"",78,0)"
^XMB(3.9,137,2,414,0)="POV(DATA) ;"
^XMB(3.9,137,2,415,0)="""RTN"",""SCMSVUT1"",79,0)"
^XMB(3.9,137,2,416,0)=" ;"
^XMB(3.9,137,2,417,0)="""RTN"",""SCMSVUT1"",80,0)"
^XMB(3.9,137,2,418,0)=" ;INPUT DATA - the purpose of visit."
^XMB(3.9,137,2,419,0)="""RTN"",""SCMSVUT1"",81,0)"
^XMB(3.9,137,2,420,0)=" ;SD*5.3*394 - Correction for addition POV."
^XMB(3.9,137,2,421,0)="""RTN"",""SCMSVUT1"",82,0)"
^XMB(3.9,137,2,422,0)=" ;"
^XMB(3.9,137,2,423,0)="""RTN"",""SCMSVUT1"",83,0)"
^XMB(3.9,137,2,424,0)=" N VAR"
^XMB(3.9,137,2,425,0)="""RTN"",""SCMSVUT1"",84,0)"
^XMB(3.9,137,2,426,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,427,0)="""RTN"",""SCMSVUT1"",85,0)"
^XMB(3.9,137,2,428,0)=" I $L(DATA)'=4 Q 0"
^XMB(3.9,137,2,429,0)="""RTN"",""SCMSVUT1"",86,0)"
^XMB(3.9,137,2,430,0)=" I DATA?.A Q 0"
^XMB(3.9,137,2,431,0)="""RTN"",""SCMSVUT1"",87,0)"
^XMB(3.9,137,2,432,0)=" S VAR=$E(DATA,1,2)"
^XMB(3.9,137,2,433,0)="""RTN"",""SCMSVUT1"",88,0)"
^XMB(3.9,137,2,434,0)=" I VAR<1!(VAR>4) Q 0"
^XMB(3.9,137,2,435,0)="""RTN"",""SCMSVUT1"",89,0)"
^XMB(3.9,137,2,436,0)=" S VAR=$E(DATA,3,4)"
^XMB(3.9,137,2,437,0)="""RTN"",""SCMSVUT1"",90,0)"
^XMB(3.9,137,2,438,0)=" I VAR<1!(VAR=10) Q 0"
^XMB(3.9,137,2,439,0)="""RTN"",""SCMSVUT1"",91,0)"
^XMB(3.9,137,2,440,0)=" Q 1"
^XMB(3.9,137,2,441,0)="""RTN"",""SCMSVUT1"",92,0)"
^XMB(3.9,137,2,442,0)=" ;"
^XMB(3.9,137,2,443,0)="""RTN"",""SCMSVUT1"",93,0)"
^XMB(3.9,137,2,444,0)="COMPGEN(DATA) ;"
^XMB(3.9,137,2,445,0)="""RTN"",""SCMSVUT1"",94,0)"
^XMB(3.9,137,2,446,0)=" ;INPUT DATA - checking computer generated."
^XMB(3.9,137,2,447,0)="""RTN"",""SCMSVUT1"",95,0)"
^XMB(3.9,137,2,448,0)=" ;"
^XMB(3.9,137,2,449,0)="""RTN"",""SCMSVUT1"",96,0)"
^XMB(3.9,137,2,450,0)=" N VAR"
^XMB(3.9,137,2,451,0)="""RTN"",""SCMSVUT1"",97,0)"
^XMB(3.9,137,2,452,0)=" S VAR=$E(DATA,3,4)"
^XMB(3.9,137,2,453,0)="""RTN"",""SCMSVUT1"",98,0)"
^XMB(3.9,137,2,454,0)=" I VAR=10 Q 0"
^XMB(3.9,137,2,455,0)="""RTN"",""SCMSVUT1"",99,0)"
^XMB(3.9,137,2,456,0)=" Q 1"
^XMB(3.9,137,2,457,0)="""RTN"",""SCMSVUT1"",100,0)"
^XMB(3.9,137,2,458,0)=" ;"
^XMB(3.9,137,2,459,0)="""RTN"",""SCMSVUT1"",101,0)"
^XMB(3.9,137,2,460,0)="LOCVIS(DATA) ;"
^XMB(3.9,137,2,461,0)="""RTN"",""SCMSVUT1"",102,0)"
^XMB(3.9,137,2,462,0)=" ;INPUT DATA - Location of visit"
^XMB(3.9,137,2,463,0)="""RTN"",""SCMSVUT1"",103,0)"
^XMB(3.9,137,2,464,0)=" ;"
^XMB(3.9,137,2,465,0)="""RTN"",""SCMSVUT1"",104,0)"
^XMB(3.9,137,2,466,0)=" I DATA'=1,DATA'=6 Q 0"
^XMB(3.9,137,2,467,0)="""RTN"",""SCMSVUT1"",105,0)"
^XMB(3.9,137,2,468,0)=" Q 1"
^XMB(3.9,137,2,469,0)="""RTN"",""SCMSVUT1"",106,0)"
^XMB(3.9,137,2,470,0)=" ;"
^XMB(3.9,137,2,471,0)="""RTN"",""SCMSVUT1"",107,0)"
^XMB(3.9,137,2,472,0)="FACNMBR(DATA) ;"
^XMB(3.9,137,2,473,0)="""RTN"",""SCMSVUT1"",108,0)"
^XMB(3.9,137,2,474,0)=" ;INPUT DATA - The facility number"
^XMB(3.9,137,2,475,0)="""RTN"",""SCMSVUT1"",109,0)"
^XMB(3.9,137,2,476,0)=" ;"
^XMB(3.9,137,2,477,0)="""RTN"",""SCMSVUT1"",110,0)"
^XMB(3.9,137,2,478,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,479,0)="""RTN"",""SCMSVUT1"",111,0)"
^XMB(3.9,137,2,480,0)=" I DATA'?3N.AN Q 0"
^XMB(3.9,137,2,481,0)="""RTN"",""SCMSVUT1"",112,0)"
^XMB(3.9,137,2,482,0)=" I '$D(^DIC(4,""D"",DATA)) Q 0"
^XMB(3.9,137,2,483,0)="""RTN"",""SCMSVUT1"",113,0)"
^XMB(3.9,137,2,484,0)=" Q 1"
^XMB(3.9,137,2,485,0)="""RTN"",""SCMSVUT1"",114,0)"
^XMB(3.9,137,2,486,0)=" ;"
^XMB(3.9,137,2,487,0)="""RTN"",""SCMSVUT1"",115,0)"
^XMB(3.9,137,2,488,0)="FACACT(DATA,ENCDT,DIV) ;"
^XMB(3.9,137,2,489,0)="""RTN"",""SCMSVUT1"",116,0)"
^XMB(3.9,137,2,490,0)=" ;INPUT DATA - The active flag of the facility number."
^XMB(3.9,137,2,491,0)="""RTN"",""SCMSVUT1"",117,0)"
^XMB(3.9,137,2,492,0)=" ;"
^XMB(3.9,137,2,493,0)="""RTN"",""SCMSVUT1"",118,0)"
^XMB(3.9,137,2,494,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,495,0)="""RTN"",""SCMSVUT1"",119,0)"
^XMB(3.9,137,2,496,0)=" I '$D(ENCDT) Q 0"
^XMB(3.9,137,2,497,0)="""RTN"",""SCMSVUT1"",120,0)"
^XMB(3.9,137,2,498,0)=" I '$D(DIV) Q 0"
^XMB(3.9,137,2,499,0)="""RTN"",""SCMSVUT1"",121,0)"
^XMB(3.9,137,2,500,0)=" I DATA="""" Q 0"
^XMB(3.9,137,2,501,0)="""RTN"",""SCMSVUT1"",122,0)"
^XMB(3.9,137,2,502,0)=" N SITE"
^XMB(3.9,137,2,503,0)="""RTN"",""SCMSVUT1"",123,0)"
^XMB(3.9,137,2,504,0)=" I DIV]"""" S SITE=$$SITE^VASITE(ENCDT,DIV)"
^XMB(3.9,137,2,505,0)="""RTN"",""SCMSVUT1"",124,0)"
^XMB(3.9,137,2,506,0)=" I DIV']"""" S SITE=$$SITE^VASITE(ENCDT)"
^XMB(3.9,137,2,507,0)="""RTN"",""SCMSVUT1"",125,0)"
^XMB(3.9,137,2,508,0)=" I DATA'=$P(SITE,U,3) Q 0"
^XMB(3.9,137,2,509,0)="""RTN"",""SCMSVUT1"",126,0)"
^XMB(3.9,137,2,510,0)=" Q 1"
^XMB(3.9,137,2,511,0)="""RTN"",""SCMSVUT1"",127,0)"
^XMB(3.9,137,2,512,0)=" ;"
^XMB(3.9,137,2,513,0)="""RTN"",""SCMSVUT1"",128,0)"
^XMB(3.9,137,2,514,0)="ENCDT(DATA,XMTFLG) ;"
^XMB(3.9,137,2,515,0)="""RTN"",""SCMSVUT1"",129,0)"
^XMB(3.9,137,2,516,0)=" ;INPUT DATA - The date/time of the encounter"
^XMB(3.9,137,2,517,0)="""RTN"",""SCMSVUT1"",130,0)"
^XMB(3.9,137,2,518,0)=" ;    XMTFLG - Flag to check $$OKTOXMIT^SCDXFU04(DATA)"
^XMB(3.9,137,2,519,0)="""RTN"",""SCMSVUT1"",131,0)"
^XMB(3.9,137,2,520,0)=" ;"
^XMB(3.9,137,2,521,0)="""RTN"",""SCMSVUT1"",132,0)"
^XMB(3.9,137,2,522,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,523,0)="""RTN"",""SCMSVUT1"",133,0)"
^XMB(3.9,137,2,524,0)=" S XMTFLG=$G(XMTFLG,0)"
^XMB(3.9,137,2,525,0)="""RTN"",""SCMSVUT1"",134,0)"
^XMB(3.9,137,2,526,0)=" N %DT,X,Y"
^XMB(3.9,137,2,527,0)="""RTN"",""SCMSVUT1"",135,0)"
^XMB(3.9,137,2,528,0)=" S %DT=""T"""
^XMB(3.9,137,2,529,0)="""RTN"",""SCMSVUT1"",136,0)"
^XMB(3.9,137,2,530,0)=" S X=DATA"
^XMB(3.9,137,2,531,0)="""RTN"",""SCMSVUT1"",137,0)"
^XMB(3.9,137,2,532,0)=" D ^%DT"
^XMB(3.9,137,2,533,0)="""RTN"",""SCMSVUT1"",138,0)"
^XMB(3.9,137,2,534,0)=" I Y=-1 Q 0"
^XMB(3.9,137,2,535,0)="""RTN"",""SCMSVUT1"",139,0)"
^XMB(3.9,137,2,536,0)=" I XMTFLG Q 1"
^XMB(3.9,137,2,537,0)="""RTN"",""SCMSVUT1"",140,0)"
^XMB(3.9,137,2,538,0)=" N VAR"
^XMB(3.9,137,2,539,0)="""RTN"",""SCMSVUT1"",141,0)"
^XMB(3.9,137,2,540,0)=" S VAR=$$OKTOXMIT^SCDXFU04(DATA)"
^XMB(3.9,137,2,541,0)="""RTN"",""SCMSVUT1"",142,0)"
^XMB(3.9,137,2,542,0)=" I +VAR<4&(VAR'<0) Q 1  ;SD*5.3*247"
^XMB(3.9,137,2,543,0)="""RTN"",""SCMSVUT1"",143,0)"
^XMB(3.9,137,2,544,0)=" Q 0"
^XMB(3.9,137,2,545,0)="""RTN"",""SCMSVUT1"",144,0)"
^XMB(3.9,137,2,546,0)=" ;"
^XMB(3.9,137,2,547,0)="""RTN"",""SCMSVUT1"",145,0)"
^XMB(3.9,137,2,548,0)="UNIQNMBR(DATA) ;"
^XMB(3.9,137,2,549,0)="""RTN"",""SCMSVUT1"",146,0)"
^XMB(3.9,137,2,550,0)=" ;INPUT DATA - The unique number from PCE for the encounter"
^XMB(3.9,137,2,551,0)="""RTN"",""SCMSVUT1"",147,0)"
^XMB(3.9,137,2,552,0)=" ;"
^XMB(3.9,137,2,553,0)="""RTN"",""SCMSVUT1"",148,0)"
^XMB(3.9,137,2,554,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,555,0)="""RTN"",""SCMSVUT1"",149,0)"
^XMB(3.9,137,2,556,0)=" I DATA="""" Q 0"
^XMB(3.9,137,2,557,0)="""RTN"",""SCMSVUT1"",150,0)"
^XMB(3.9,137,2,558,0)=" I DATA=-1 Q 0"
^XMB(3.9,137,2,559,0)="""RTN"",""SCMSVUT1"",151,0)"
^XMB(3.9,137,2,560,0)=" I DATA=0 Q 0"
^XMB(3.9,137,2,561,0)="""RTN"",""SCMSVUT1"",152,0)"
^XMB(3.9,137,2,562,0)=" Q 1"
^XMB(3.9,137,2,563,0)="""RTN"",""SCMSVUT1"",153,0)"
^XMB(3.9,137,2,564,0)=" ;"
^XMB(3.9,137,2,565,0)="""RTN"",""SCMSVUT1"",154,0)"
^XMB(3.9,137,2,566,0)="SEGCHK(DATA,HLFS) ;"
^XMB(3.9,137,2,567,0)="""RTN"",""SCMSVUT1"",155,0)"
^XMB(3.9,137,2,568,0)=" ;INPUT DATA - The segment to be checked."
^XMB(3.9,137,2,569,0)="""RTN"",""SCMSVUT1"",156,0)"
^XMB(3.9,137,2,570,0)=" ;      HLFS - The HL7 field separator"
^XMB(3.9,137,2,571,0)="""RTN"",""SCMSVUT1"",157,0)"
^XMB(3.9,137,2,572,0)=" ;"
^XMB(3.9,137,2,573,0)="""RTN"",""SCMSVUT1"",158,0)"
^XMB(3.9,137,2,574,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,575,0)="""RTN"",""SCMSVUT1"",159,0)"
^XMB(3.9,137,2,576,0)=" I DATA="""" Q 0"
^XMB(3.9,137,2,577,0)="""RTN"",""SCMSVUT1"",160,0)"
^XMB(3.9,137,2,578,0)=" I $L(DATA,HLFS)'>2 Q 0"
^XMB(3.9,137,2,579,0)="""RTN"",""SCMSVUT1"",161,0)"
^XMB(3.9,137,2,580,0)=" Q 1"
^XMB(3.9,137,2,581,0)="""RTN"",""SCMSVUT1"",162,0)"
^XMB(3.9,137,2,582,0)=" ;"
^XMB(3.9,137,2,583,0)="""RTN"",""SCMSVUT1"",163,0)"
^XMB(3.9,137,2,584,0)="SEQNBR(DATA,SEQNBR) ;"
^XMB(3.9,137,2,585,0)="""RTN"",""SCMSVUT1"",164,0)"
^XMB(3.9,137,2,586,0)=" ;INPUT DATA - The sequence number to be checked."
^XMB(3.9,137,2,587,0)="""RTN"",""SCMSVUT1"",165,0)"
^XMB(3.9,137,2,588,0)=" ;     SEQNBR - This is the previous seq number to compare to"
^XMB(3.9,137,2,589,0)="""RTN"",""SCMSVUT1"",166,0)"
^XMB(3.9,137,2,590,0)=" ;"
^XMB(3.9,137,2,591,0)="""RTN"",""SCMSVUT1"",167,0)"
^XMB(3.9,137,2,592,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,593,0)="""RTN"",""SCMSVUT1"",168,0)"
^XMB(3.9,137,2,594,0)=" I DATA="""" Q 0"
^XMB(3.9,137,2,595,0)="""RTN"",""SCMSVUT1"",169,0)"
^XMB(3.9,137,2,596,0)=" I +DATA'=+SEQNBR Q 0"
^XMB(3.9,137,2,597,0)="""RTN"",""SCMSVUT1"",170,0)"
^XMB(3.9,137,2,598,0)=" S SEQNBR=SEQNBR+1"
^XMB(3.9,137,2,599,0)="""RTN"",""SCMSVUT1"",171,0)"
^XMB(3.9,137,2,600,0)=" Q 1"
^XMB(3.9,137,2,601,0)="""RTN"",""SCMSVUT1"",172,0)"
^XMB(3.9,137,2,602,0)=" ;"
^XMB(3.9,137,2,603,0)="""RTN"",""SCMSVUT1"",173,0)"
^XMB(3.9,137,2,604,0)="DCODMTHD(DATA) ;"
^XMB(3.9,137,2,605,0)="""RTN"",""SCMSVUT1"",174,0)"
^XMB(3.9,137,2,606,0)=" ;INPUT DATA - This is the coding method to be checked."
^XMB(3.9,137,2,607,0)="""RTN"",""SCMSVUT1"",175,0)"
^XMB(3.9,137,2,608,0)=" ;"
^XMB(3.9,137,2,609,0)="""RTN"",""SCMSVUT1"",176,0)"
^XMB(3.9,137,2,610,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,611,0)="""RTN"",""SCMSVUT1"",177,0)"
^XMB(3.9,137,2,612,0)=" I DATA'=""I9"" Q 0"
^XMB(3.9,137,2,613,0)="""RTN"",""SCMSVUT1"",178,0)"
^XMB(3.9,137,2,614,0)=" Q 1"
^XMB(3.9,137,2,615,0)="""RTN"",""SCMSVUT1"",179,0)"
^XMB(3.9,137,2,616,0)=" ;"
^XMB(3.9,137,2,617,0)="""RTN"",""SCMSVUT1"",180,0)"
^XMB(3.9,137,2,618,0)="DIAGCOD(DATA,ENCDT) ;"
^XMB(3.9,137,2,619,0)="""RTN"",""SCMSVUT1"",181,0)"
^XMB(3.9,137,2,620,0)=" ;INPUT DATA - This is the diagnosis code"
^XMB(3.9,137,2,621,0)="""RTN"",""SCMSVUT1"",182,0)"
^XMB(3.9,137,2,622,0)=" ;     ENCDT - This is the encounter date"
^XMB(3.9,137,2,623,0)="""RTN"",""SCMSVUT1"",183,0)"
^XMB(3.9,137,2,624,0)=" ;"
^XMB(3.9,137,2,625,0)="""RTN"",""SCMSVUT1"",184,0)"
^XMB(3.9,137,2,626,0)=" N VAR"
^XMB(3.9,137,2,627,0)="""RTN"",""SCMSVUT1"",185,0)"
^XMB(3.9,137,2,628,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,629,0)="""RTN"",""SCMSVUT1"",186,0)"
^XMB(3.9,137,2,630,0)=" I DATA="""" Q 0"
^XMB(3.9,137,2,631,0)="""RTN"",""SCMSVUT1"",187,0)"
^XMB(3.9,137,2,632,0)=" ;"
^XMB(3.9,137,2,633,0)="""RTN"",""SCMSVUT1"",188,0)"
^XMB(3.9,137,2,634,0)=" Q $P($$ICDDX^ICDCODE(DATA,ENCDT),""^"",10)"
^XMB(3.9,137,2,635,0)="""RTN"",""SCMSVUT1"",189,0)"
^XMB(3.9,137,2,636,0)=" ;"
^XMB(3.9,137,2,637,0)="""RTN"",""SCMSVUT1"",190,0)"
^XMB(3.9,137,2,638,0)="PRIOR(DATA) ;"
^XMB(3.9,137,2,639,0)="""RTN"",""SCMSVUT1"",191,0)"
^XMB(3.9,137,2,640,0)=" ;INPUT DATA - The priority of the diagnosis found"
^XMB(3.9,137,2,641,0)="""RTN"",""SCMSVUT1"",192,0)"
^XMB(3.9,137,2,642,0)=" ;"
^XMB(3.9,137,2,643,0)="""RTN"",""SCMSVUT1"",193,0)"
^XMB(3.9,137,2,644,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,645,0)="""RTN"",""SCMSVUT1"",194,0)"
^XMB(3.9,137,2,646,0)=" I DATA="""" Q 1"
^XMB(3.9,137,2,647,0)="""RTN"",""SCMSVUT1"",195,0)"
^XMB(3.9,137,2,648,0)=" I DATA=1 Q 1"
^XMB(3.9,137,2,649,0)="""RTN"",""SCMSVUT1"",196,0)"
^XMB(3.9,137,2,650,0)=" Q 0"
^XMB(3.9,137,2,651,0)="""RTN"",""SCMSVUT1"",197,0)"
^XMB(3.9,137,2,652,0)=" ;"
^XMB(3.9,137,2,653,0)="""RTN"",""SCMSVUT1"",198,0)"
^XMB(3.9,137,2,654,0)="ELIGCODM(DATA) ;"
^XMB(3.9,137,2,655,0)="""RTN"",""SCMSVUT1"",199,0)"
^XMB(3.9,137,2,656,0)=" ;INPUT DATA - The eligibility code"
^XMB(3.9,137,2,657,0)="""RTN"",""SCMSVUT1"",200,0)"
^XMB(3.9,137,2,658,0)=" ;A CHECK FOR MISSING"
^XMB(3.9,137,2,659,0)="""RTN"",""SCMSVUT1"",201,0)"
^XMB(3.9,137,2,660,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,661,0)="""RTN"",""SCMSVUT1"",202,0)"
^XMB(3.9,137,2,662,0)=" I DATA="""" Q 0"
^XMB(3.9,137,2,663,0)="""RTN"",""SCMSVUT1"",203,0)"
^XMB(3.9,137,2,664,0)=" I '$D(^DIC(8.1,DATA,0)) Q 0"
^XMB(3.9,137,2,665,0)="""RTN"",""SCMSVUT1"",204,0)"
^XMB(3.9,137,2,666,0)=" Q 1"
^XMB(3.9,137,2,667,0)="""RTN"",""SCMSVUT1"",205,0)"
^XMB(3.9,137,2,668,0)=" ;"
^XMB(3.9,137,2,669,0)="""RTN"",""SCMSVUT1"",206,0)"
^XMB(3.9,137,2,670,0)="ELIGINCV(DATA) ;"
^XMB(3.9,137,2,671,0)="""RTN"",""SCMSVUT1"",207,0)"
^XMB(3.9,137,2,672,0)=" ;INPUT DATA - Contains the eligibility code in the first piece and"
^XMB(3.9,137,2,673,0)="""RTN"",""SCMSVUT1"",208,0)"
^XMB(3.9,137,2,674,0)=" ;the veteran status in the second."
^XMB(3.9,137,2,675,0)="""RTN"",""SCMSVUT1"",209,0)"
^XMB(3.9,137,2,676,0)=" ;"
^XMB(3.9,137,2,677,0)="""RTN"",""SCMSVUT1"",210,0)"
^XMB(3.9,137,2,678,0)=" ;the following quit is to stop this edit check."
^XMB(3.9,137,2,679,0)="""RTN"",""SCMSVUT1"",211,0)"
^XMB(3.9,137,2,680,0)=" ;Per Austin 9/97 this is not needed."
^XMB(3.9,137,2,681,0)="""RTN"",""SCMSVUT1"",212,0)"
^XMB(3.9,137,2,682,0)=" Q 1"
^XMB(3.9,137,2,683,0)="""RTN"",""SCMSVUT1"",213,0)"
^XMB(3.9,137,2,684,0)=" N VET,ELIG"
^XMB(3.9,137,2,685,0)="""RTN"",""SCMSVUT1"",214,0)"
^XMB(3.9,137,2,686,0)=" S VET=$P(DATA,U,2)"
^XMB(3.9,137,2,687,0)="""RTN"",""SCMSVUT1"",215,0)"
^XMB(3.9,137,2,688,0)=" S ELIG=$P(DATA,U,1)"
^XMB(3.9,137,2,689,0)="""RTN"",""SCMSVUT1"",216,0)"
^XMB(3.9,137,2,690,0)=" I VET=1&((ELIG<1)!(ELIG>18)) Q 0"
^XMB(3.9,137,2,691,0)="""RTN"",""SCMSVUT1"",217,0)"
^XMB(3.9,137,2,692,0)=" I VET=1,ELIG>5,ELIG<15 Q 0"
^XMB(3.9,137,2,693,0)="""RTN"",""SCMSVUT1"",218,0)"
^XMB(3.9,137,2,694,0)=" I VET=0,ELIG<6 Q 0"
^XMB(3.9,137,2,695,0)="""RTN"",""SCMSVUT1"",219,0)"
^XMB(3.9,137,2,696,0)=" I VET=0,ELIG=11 Q 0"
^XMB(3.9,137,2,697,0)="""RTN"",""SCMSVUT1"",220,0)"
^XMB(3.9,137,2,698,0)=" I VET=0,ELIG>14,ELIG'=19 Q 0"
^XMB(3.9,137,2,699,0)="""RTN"",""SCMSVUT1"",221,0)"
^XMB(3.9,137,2,700,0)=" Q 1"
^XMB(3.9,137,2,701,0)="""RTN"",""SCMSVUT1"",222,0)"
^XMB(3.9,137,2,702,0)=" ;"
^XMB(3.9,137,2,703,0)="""RTN"",""SCMSVUT1"",223,0)"
^XMB(3.9,137,2,704,0)="ELIGINCS(DATA) ;"
^XMB(3.9,137,2,705,0)="""RTN"",""SCMSVUT1"",224,0)"
^XMB(3.9,137,2,706,0)=" ;INPUT DATA - Eligibility code"
^XMB(3.9,137,2,707,0)="""RTN"",""SCMSVUT1"",225,0)"
^XMB(3.9,137,2,708,0)=" ;"
^XMB(3.9,137,2,709,0)="""RTN"",""SCMSVUT1"",226,0)"
^XMB(3.9,137,2,710,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,711,0)="""RTN"",""SCMSVUT1"",227,0)"
^XMB(3.9,137,2,712,0)=" I DATA="""" Q 0"
^XMB(3.9,137,2,713,0)="""RTN"",""SCMSVUT1"",228,0)"
^XMB(3.9,137,2,714,0)=" I '$D(^DIC(8.1,DATA,0)) Q 0"
^XMB(3.9,137,2,715,0)="""RTN"",""SCMSVUT1"",229,0)"
^XMB(3.9,137,2,716,0)=" I +$P(^DIC(8.1,DATA,0),U,7) Q 0"
^XMB(3.9,137,2,717,0)="""RTN"",""SCMSVUT1"",230,0)"
^XMB(3.9,137,2,718,0)=" Q 1"
^XMB(3.9,137,2,719,0)="""RTN"",""SCMSVUT1"",231,0)"
^XMB(3.9,137,2,720,0)=" ;"
^XMB(3.9,137,2,721,0)="""RTN"",""SCMSVUT1"",232,0)"
^XMB(3.9,137,2,722,0)="VETSTAT(DATA) ;"
^XMB(3.9,137,2,723,0)="""RTN"",""SCMSVUT1"",233,0)"
^XMB(3.9,137,2,724,0)=" ;INPUT DATA - The veteran status indicator"
^XMB(3.9,137,2,725,0)="""RTN"",""SCMSVUT1"",234,0)"
^XMB(3.9,137,2,726,0)=" ;"
^XMB(3.9,137,2,727,0)="""RTN"",""SCMSVUT1"",235,0)"
^XMB(3.9,137,2,728,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,729,0)="""RTN"",""SCMSVUT1"",236,0)"
^XMB(3.9,137,2,730,0)=" I DATA'=0,DATA'=1 Q 0"
^XMB(3.9,137,2,731,0)="""RTN"",""SCMSVUT1"",237,0)"
^XMB(3.9,137,2,732,0)=" Q 1"
^XMB(3.9,137,2,733,0)="""RTN"",""SCMSVUT1"",238,0)"
^XMB(3.9,137,2,734,0)=" ;"
^XMB(3.9,137,2,735,0)="""RTN"",""SCMSVUT1"",239,0)"
^XMB(3.9,137,2,736,0)="VETPOW(DATA,DFN) ;"
^XMB(3.9,137,2,737,0)="""RTN"",""SCMSVUT1"",240,0)"
^XMB(3.9,137,2,738,0)=" ;INPUT DATA - veteran status to check with POW status."
^XMB(3.9,137,2,739,0)="""RTN"",""SCMSVUT1"",241,0)"
^XMB(3.9,137,2,740,0)=" ;       DFN - The DFN of the patient."
^XMB(3.9,137,2,741,0)="""RTN"",""SCMSVUT1"",242,0)"
^XMB(3.9,137,2,742,0)=" ;"
^XMB(3.9,137,2,743,0)="""RTN"",""SCMSVUT1"",243,0)"
^XMB(3.9,137,2,744,0)=" N VAR,POW"
^XMB(3.9,137,2,745,0)="""RTN"",""SCMSVUT1"",244,0)"
^XMB(3.9,137,2,746,0)=" I DATA=0 Q 1"
^XMB(3.9,137,2,747,0)="""RTN"",""SCMSVUT1"",245,0)"
^XMB(3.9,137,2,748,0)=" S VAR=$G(^DPT(DFN,.52))"
^XMB(3.9,137,2,749,0)="""RTN"",""SCMSVUT1"",246,0)"
^XMB(3.9,137,2,750,0)=" S POW=$S(VAR]"""":$P(VAR,U,5),1:VAR)"
^XMB(3.9,137,2,751,0)="""RTN"",""SCMSVUT1"",247,0)"
^XMB(3.9,137,2,752,0)=" I POW="""" Q 1"
^XMB(3.9,137,2,753,0)="""RTN"",""SCMSVUT1"",248,0)"
^XMB(3.9,137,2,754,0)=" I POW=""Y""!(POW=""N"")!(POW=""U"") Q 1"
^XMB(3.9,137,2,755,0)="""RTN"",""SCMSVUT1"",249,0)"
^XMB(3.9,137,2,756,0)=" Q 0"
^XMB(3.9,137,2,757,0)="""RTN"",""SCMSVUT1"",250,0)"
^XMB(3.9,137,2,758,0)=" ;"
^XMB(3.9,137,2,759,0)="""RTN"",""SCMSVUT1"",251,0)"
^XMB(3.9,137,2,760,0)="NMBRDEP(DATA) ;"
^XMB(3.9,137,2,761,0)="""RTN"",""SCMSVUT1"",252,0)"
^XMB(3.9,137,2,762,0)=" ;INPUT DATA - the number of dependents"
^XMB(3.9,137,2,763,0)="""RTN"",""SCMSVUT1"",253,0)"
^XMB(3.9,137,2,764,0)=" ;"
^XMB(3.9,137,2,765,0)="""RTN"",""SCMSVUT1"",254,0)"
^XMB(3.9,137,2,766,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,767,0)="""RTN"",""SCMSVUT1"",255,0)"
^XMB(3.9,137,2,768,0)=" I DATA="""" Q 0"
^XMB(3.9,137,2,769,0)="""RTN"",""SCMSVUT1"",256,0)"
^XMB(3.9,137,2,770,0)=" I DATA=""XX"" Q 1"
^XMB(3.9,137,2,771,0)="""RTN"",""SCMSVUT1"",257,0)"
^XMB(3.9,137,2,772,0)=" I DATA'?1.2N Q 0"
^XMB(3.9,137,2,773,0)="""RTN"",""SCMSVUT1"",258,0)"
^XMB(3.9,137,2,774,0)=" I +DATA>99!(+DATA<0) Q 0"
^XMB(3.9,137,2,775,0)="""RTN"",""SCMSVUT1"",259,0)"
^XMB(3.9,137,2,776,0)=" Q 1"
^XMB(3.9,137,2,777,0)="""RTN"",""SCMSVUT1"",260,0)"
^XMB(3.9,137,2,778,0)=" ;"
^XMB(3.9,137,2,779,0)="""RTN"",""SCMSVUT1"",261,0)"
^XMB(3.9,137,2,780,0)="PATINC(DATA) ;"
^XMB(3.9,137,2,781,0)="""RTN"",""SCMSVUT1"",262,0)"
^XMB(3.9,137,2,782,0)=" ;INPUT DATA - The patient's income"
^XMB(3.9,137,2,783,0)="""RTN"",""SCMSVUT1"",263,0)"
^XMB(3.9,137,2,784,0)=" ;"
^XMB(3.9,137,2,785,0)="""RTN"",""SCMSVUT1"",264,0)"
^XMB(3.9,137,2,786,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,787,0)="""RTN"",""SCMSVUT1"",265,0)"
^XMB(3.9,137,2,788,0)=" I DATA="""" Q 0"
^XMB(3.9,137,2,789,0)="""RTN"",""SCMSVUT1"",266,0)"
^XMB(3.9,137,2,790,0)=" I DATA<0 Q 0"
^XMB(3.9,137,2,791,0)="""RTN"",""SCMSVUT1"",267,0)"
^XMB(3.9,137,2,792,0)=" I DATA'?.N.1""."".N Q 0"
^XMB(3.9,137,2,793,0)="""RTN"",""SCMSVUT1"",268,0)"
^XMB(3.9,137,2,794,0)=" Q 1"
^XMB(3.9,137,2,795,0)="""RTN"",""SCMSVUT1"",269,0)"
^XMB(3.9,137,2,796,0)=" ;"
^XMB(3.9,137,2,797,0)="""RTN"",""SCMSVUT1"",270,0)"
^XMB(3.9,137,2,798,0)="MEANSTST(DATA) ;"
^XMB(3.9,137,2,799,0)="""RTN"",""SCMSVUT1"",271,0)"
^XMB(3.9,137,2,800,0)=" ;INPUT DATA - The means test indicator"
^XMB(3.9,137,2,801,0)="""RTN"",""SCMSVUT1"",272,0)"
^XMB(3.9,137,2,802,0)=" ;"
^XMB(3.9,137,2,803,0)="""RTN"",""SCMSVUT1"",273,0)"
^XMB(3.9,137,2,804,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,805,0)="""RTN"",""SCMSVUT1"",274,0)"
^XMB(3.9,137,2,806,0)=" S DATA="",""_DATA_"","""
^XMB(3.9,137,2,807,0)="""RTN"",""SCMSVUT1"",275,0)"
^XMB(3.9,137,2,808,0)=" ; ** SD*296, added 'U' means test indicator to allowed list."
^XMB(3.9,137,2,809,0)="""RTN"",""SCMSVUT1"",276,0)"
^XMB(3.9,137,2,810,0)=" I "",AS,AN,N,X,C,G,U,""'[DATA Q 0"
^XMB(3.9,137,2,811,0)="""RTN"",""SCMSVUT1"",277,0)"
^XMB(3.9,137,2,812,0)=" Q 1"
^XMB(3.9,137,2,813,0)="""RTN"",""SCMSVUT1"",278,0)"
^XMB(3.9,137,2,814,0)=" ;"
^XMB(3.9,137,2,815,0)="""RTN"",""SCMSVUT1"",279,0)"
^XMB(3.9,137,2,816,0)="DEPMEANS(DATA) ;"
^XMB(3.9,137,2,817,0)="""RTN"",""SCMSVUT1"",280,0)"
^XMB(3.9,137,2,818,0)=" ;INPUT DATA - This variable contains the number of dependents in the"
^XMB(3.9,137,2,819,0)="""RTN"",""SCMSVUT1"",281,0)"
^XMB(3.9,137,2,820,0)=" ;             first peice and the means test indicator in the second."
^XMB(3.9,137,2,821,0)="""RTN"",""SCMSVUT1"",282,0)"
^XMB(3.9,137,2,822,0)=" ;"
^XMB(3.9,137,2,823,0)="""RTN"",""SCMSVUT1"",283,0)"
^XMB(3.9,137,2,824,0)=" N MT,DEP"
^XMB(3.9,137,2,825,0)="""RTN"",""SCMSVUT1"",284,0)"
^XMB(3.9,137,2,826,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,827,0)="""RTN"",""SCMSVUT1"",285,0)"
^XMB(3.9,137,2,828,0)=" S DEP=$P(DATA,U,1)"
^XMB(3.9,137,2,829,0)="""RTN"",""SCMSVUT1"",286,0)"
^XMB(3.9,137,2,830,0)=" S MT="",""_$P(DATA,U,2)_"","""
^XMB(3.9,137,2,831,0)="""RTN"",""SCMSVUT1"",287,0)"
^XMB(3.9,137,2,832,0)=" I DEP=""XX"",("",AS,N,X,U,""'[MT) Q 0"
^XMB(3.9,137,2,833,0)="""RTN"",""SCMSVUT1"",288,0)"
^XMB(3.9,137,2,834,0)=" Q 1"
^XMB(3.9,137,2,835,0)="""RTN"",""SCMSVUT1"",289,0)"
^XMB(3.9,137,2,836,0)=" ;"
^XMB(3.9,137,2,837,0)="""RTN"",""SCMSVUT1"",290,0)"
^XMB(3.9,137,2,838,0)="CLASSQUE(DATA) ;"
^XMB(3.9,137,2,839,0)="""RTN"",""SCMSVUT1"",291,0)"
^XMB(3.9,137,2,840,0)=" ;INPUT DATA - Classification question value."
^XMB(3.9,137,2,841,0)="""RTN"",""SCMSVUT1"",292,0)"
^XMB(3.9,137,2,842,0)=" ;"
^XMB(3.9,137,2,843,0)="""RTN"",""SCMSVUT1"",293,0)"
^XMB(3.9,137,2,844,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,845,0)="""RTN"",""SCMSVUT1"",294,0)"
^XMB(3.9,137,2,846,0)=" I DATA'=1,DATA'=0,DATA'="""" Q 0"
^XMB(3.9,137,2,847,0)="""RTN"",""SCMSVUT1"",295,0)"
^XMB(3.9,137,2,848,0)=" Q 1"
^XMB(3.9,137,2,849,0)="""RTN"",""SCMSVUT1"",296,0)"
^XMB(3.9,137,2,850,0)=" ;"
^XMB(3.9,137,2,851,0)="""RTN"",""SCMSVUT1"",297,0)"
^XMB(3.9,137,2,852,0)="CLAQUETY(DATA) ;"
^XMB(3.9,137,2,853,0)="""RTN"",""SCMSVUT1"",298,0)"
^XMB(3.9,137,2,854,0)=" ;INPUT DATA - Outpatient classification type to be checked."
^XMB(3.9,137,2,855,0)="""RTN"",""SCMSVUT1"",299,0)"
^XMB(3.9,137,2,856,0)=" ;"
^XMB(3.9,137,2,857,0)="""RTN"",""SCMSVUT1"",300,0)"
^XMB(3.9,137,2,858,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,859,0)="""RTN"",""SCMSVUT1"",301,0)"
^XMB(3.9,137,2,860,0)=" I DATA="""" Q 0"
^XMB(3.9,137,2,861,0)="""RTN"",""SCMSVUT1"",302,0)"
^XMB(3.9,137,2,862,0)=" I '$D(^SD(409.41,DATA,0)) Q 0"
^XMB(3.9,137,2,863,0)="""RTN"",""SCMSVUT1"",303,0)"
^XMB(3.9,137,2,864,0)=" Q 1"
^XMB(3.9,137,2,865,0)="""RTN"",""SCMSVUT1"",304,0)"
^XMB(3.9,137,2,866,0)=" ;"
^XMB(3.9,137,2,867,0)="""RTN"",""SCMSVUT1"",305,0)"
^XMB(3.9,137,2,868,0)="CLAVET(DATA,DFN,TYPE,ENCPTR) ; SD*5.3*341 added parameter ENCPTR"
^XMB(3.9,137,2,869,0)="""RTN"",""SCMSVUT1"",306,0)"
^XMB(3.9,137,2,870,0)=" ;INPUT DATA - Classification question information to compare to VET"
^XMB(3.9,137,2,871,0)="""RTN"",""SCMSVUT1"",307,0)"
^XMB(3.9,137,2,872,0)=" ;             status"
^XMB(3.9,137,2,873,0)="""RTN"",""SCMSVUT1"",308,0)"
^XMB(3.9,137,2,874,0)=" ;       DFN - The patient to compare this info to."
^XMB(3.9,137,2,875,0)="""RTN"",""SCMSVUT1"",309,0)"
^XMB(3.9,137,2,876,0)=" ;      TYPE - The classification type."
^XMB(3.9,137,2,877,0)="""RTN"",""SCMSVUT1"",310,0)"
^XMB(3.9,137,2,878,0)=" ;    ENCPTR - Pointer to Outpatient Encounter"
^XMB(3.9,137,2,879,0)="""RTN"",""SCMSVUT1"",311,0)"
^XMB(3.9,137,2,880,0)=" ;"
^XMB(3.9,137,2,881,0)="""RTN"",""SCMSVUT1"",312,0)"
^XMB(3.9,137,2,882,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,883,0)="""RTN"",""SCMSVUT1"",313,0)"
^XMB(3.9,137,2,884,0)=" I '$D(DFN) Q 0"
^XMB(3.9,137,2,885,0)="""RTN"",""SCMSVUT1"",314,0)"
^XMB(3.9,137,2,886,0)=" I '$D(TYPE) Q 0  ; SD*5.3*341"
^XMB(3.9,137,2,887,0)="""RTN"",""SCMSVUT1"",315,0)"
^XMB(3.9,137,2,888,0)=" N VET,SDELG0,SDDT  ; SD*5.3*341"
^XMB(3.9,137,2,889,0)="""RTN"",""SCMSVUT1"",316,0)"
^XMB(3.9,137,2,890,0)=" S ENCPTR=$G(ENCPTR)  ; SD*5.3*341 added this plus next 3 lines"
^XMB(3.9,137,2,891,0)="""RTN"",""SCMSVUT1"",317,0)"
^XMB(3.9,137,2,892,0)=" S SDDT=+$G(^SCE(ENCPTR,0)) S:'SDDT SDDT=$$DT^XLFDT()"
^XMB(3.9,137,2,893,0)="""RTN"",""SCMSVUT1"",318,0)"
^XMB(3.9,137,2,894,0)=" S SDELG0=$$EL^SDCO22(DFN,ENCPTR)"
^XMB(3.9,137,2,895,0)="""RTN"",""SCMSVUT1"",319,0)"
^XMB(3.9,137,2,896,0)=" S VET=$P(SDELG0,U,5)"
^XMB(3.9,137,2,897,0)="""RTN"",""SCMSVUT1"",320,0)"
^XMB(3.9,137,2,898,0)=" I VET=""Y"",DATA'=1,DATA'=0,DATA'="""" Q 0"
^XMB(3.9,137,2,899,0)="""RTN"",""SCMSVUT1"",321,0)"
^XMB(3.9,137,2,900,0)=" ;This edit check is per a mail message from austin"
^XMB(3.9,137,2,901,0)="""RTN"",""SCMSVUT1"",322,0)"
^XMB(3.9,137,2,902,0)=" I TYPE=4,VET'=""Y"",DATA'="""",""^A^B^C^D^""'[(""^""_($P($G(^DIC(21,+$P($G(^DPT(DFN,.32)),""^"",3),0)),""^"",3))_""^"") Q 0"
^XMB(3.9,137,2,903,0)="""RTN"",""SCMSVUT1"",323,0)"
^XMB(3.9,137,2,904,0)=" I VET'=""Y"",DATA'="""" Q $$SCR^SDCO21(TYPE,DFN,SDDT,ENCPTR)  ; SD*5.3*341"
^XMB(3.9,137,2,905,0)="""RTN"",""SCMSVUT1"",324,0)"
^XMB(3.9,137,2,906,0)=" Q 1"
^XMB(3.9,137,2,907,0)="""RTN"",""SCMSVUT1"",325,0)"
^XMB(3.9,137,2,908,0)=" ;"
^XMB(3.9,137,2,909,0)="""RTN"",""SCMSVUT1"",326,0)"
^XMB(3.9,137,2,910,0)="STPCOD(DATA) ;"
^XMB(3.9,137,2,911,0)="""RTN"",""SCMSVUT1"",327,0)"
^XMB(3.9,137,2,912,0)=" ;INPUT DATA - stop code data to be checked"
^XMB(3.9,137,2,913,0)="""RTN"",""SCMSVUT1"",328,0)"
^XMB(3.9,137,2,914,0)=" ;"
^XMB(3.9,137,2,915,0)="""RTN"",""SCMSVUT1"",329,0)"
^XMB(3.9,137,2,916,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,917,0)="""RTN"",""SCMSVUT1"",330,0)"
^XMB(3.9,137,2,918,0)=" I DATA="""" Q 0"
^XMB(3.9,137,2,919,0)="""RTN"",""SCMSVUT1"",331,0)"
^XMB(3.9,137,2,920,0)=" I '$D(^DIC(40.7,""C"",DATA)) Q 0"
^XMB(3.9,137,2,921,0)="""RTN"",""SCMSVUT1"",332,0)"
^XMB(3.9,137,2,922,0)=" Q 1"
^XMB(3.9,137,2,923,0)="""RTN"",""SCMSVUT1"",333,0)"
^XMB(3.9,137,2,924,0)=" ;"
^XMB(3.9,137,2,925,0)="""RTN"",""SCMSVUT1"",334,0)"
^XMB(3.9,137,2,926,0)="ACTSTP(DATA,ENCDT) ;"
^XMB(3.9,137,2,927,0)="""RTN"",""SCMSVUT1"",335,0)"
^XMB(3.9,137,2,928,0)=" ;INPUT  DATA - IEN of the stop code to be checked."
^XMB(3.9,137,2,929,0)="""RTN"",""SCMSVUT1"",336,0)"
^XMB(3.9,137,2,930,0)=" ;      ENCDT - the encounter date in question"
^XMB(3.9,137,2,931,0)="""RTN"",""SCMSVUT1"",337,0)"
^XMB(3.9,137,2,932,0)=" ;"
^XMB(3.9,137,2,933,0)="""RTN"",""SCMSVUT1"",338,0)"
^XMB(3.9,137,2,934,0)=" N STPCOD,%DT,X,Y"
^XMB(3.9,137,2,935,0)="""RTN"",""SCMSVUT1"",339,0)"
^XMB(3.9,137,2,936,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,937,0)="""RTN"",""SCMSVUT1"",340,0)"
^XMB(3.9,137,2,938,0)=" I DATA="""" Q 0"
^XMB(3.9,137,2,939,0)="""RTN"",""SCMSVUT1"",341,0)"
^XMB(3.9,137,2,940,0)=" S STPCOD=$G(^DIC(40.7,DATA,0))"
^XMB(3.9,137,2,941,0)="""RTN"",""SCMSVUT1"",342,0)"
^XMB(3.9,137,2,942,0)=" I STPCOD="""" Q 0"
^XMB(3.9,137,2,943,0)="""RTN"",""SCMSVUT1"",343,0)"
^XMB(3.9,137,2,944,0)=" I '$P(STPCOD,U,3) Q 1"
^XMB(3.9,137,2,945,0)="""RTN"",""SCMSVUT1"",344,0)"
^XMB(3.9,137,2,946,0)=" S %DT(0)=""-""_$P(STPCOD,U,3),%DT=""T"",X=ENCDT"
^XMB(3.9,137,2,947,0)="""RTN"",""SCMSVUT1"",345,0)"
^XMB(3.9,137,2,948,0)=" D ^%DT"
^XMB(3.9,137,2,949,0)="""RTN"",""SCMSVUT1"",346,0)"
^XMB(3.9,137,2,950,0)=" Q $S(Y=-1:0,1:1)"
^XMB(3.9,137,2,951,0)="""RTN"",""SCMSVUT1"",347,0)"
^XMB(3.9,137,2,952,0)=" ;"
^XMB(3.9,137,2,953,0)="""RTN"",""SCMSVUT1"",348,0)"
^XMB(3.9,137,2,954,0)="SERCON(DATA) ;"
^XMB(3.9,137,2,955,0)="""RTN"",""SCMSVUT1"",349,0)"
^XMB(3.9,137,2,956,0)=" ;INPUT DATA - Service connection to be checked, missing or invalid"
^XMB(3.9,137,2,957,0)="""RTN"",""SCMSVUT1"",350,0)"
^XMB(3.9,137,2,958,0)=" ;"
^XMB(3.9,137,2,959,0)="""RTN"",""SCMSVUT1"",351,0)"
^XMB(3.9,137,2,960,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,961,0)="""RTN"",""SCMSVUT1"",352,0)"
^XMB(3.9,137,2,962,0)=" I DATA="""" Q 0"
^XMB(3.9,137,2,963,0)="""RTN"",""SCMSVUT1"",353,0)"
^XMB(3.9,137,2,964,0)=" I DATA'=1,DATA'=0 Q 0"
^XMB(3.9,137,2,965,0)="""RTN"",""SCMSVUT1"",354,0)"
^XMB(3.9,137,2,966,0)=" Q 1"
^XMB(3.9,137,2,967,0)="""RTN"",""SCMSVUT1"",355,0)"
^XMB(3.9,137,2,968,0)=" ;"
^XMB(3.9,137,2,969,0)="""RTN"",""SCMSVUT1"",356,0)"
^XMB(3.9,137,2,970,0)="SCPER(DATA) ;"
^XMB(3.9,137,2,971,0)="""RTN"",""SCMSVUT1"",357,0)"
^XMB(3.9,137,2,972,0)=" ;INPUT DATA - Service connected % to be tested"
^XMB(3.9,137,2,973,0)="""RTN"",""SCMSVUT1"",358,0)"
^XMB(3.9,137,2,974,0)=" ;"
^XMB(3.9,137,2,975,0)="""RTN"",""SCMSVUT1"",359,0)"
^XMB(3.9,137,2,976,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,977,0)="""RTN"",""SCMSVUT1"",360,0)"
^XMB(3.9,137,2,978,0)=" I DATA="""" Q 1"
^XMB(3.9,137,2,979,0)="""RTN"",""SCMSVUT1"",361,0)"
^XMB(3.9,137,2,980,0)=" I DATA'?.N.1""."".N Q 0"
^XMB(3.9,137,2,981,0)="""RTN"",""SCMSVUT1"",362,0)"
^XMB(3.9,137,2,982,0)=" Q 1"
^XMB(3.9,137,2,983,0)="""RTN"",""SCMSVUT1"",363,0)"
^XMB(3.9,137,2,984,0)=" ;"
^XMB(3.9,137,2,985,0)="""RTN"",""SCMSVUT1"",364,0)"
^XMB(3.9,137,2,986,0)="PRDSER(DATA) ;"
^XMB(3.9,137,2,987,0)="""RTN"",""SCMSVUT1"",365,0)"
^XMB(3.9,137,2,988,0)=" ;INPUT DATA - period of service to be tested."
^XMB(3.9,137,2,989,0)="""RTN"",""SCMSVUT1"",366,0)"
^XMB(3.9,137,2,990,0)=" ;"
^XMB(3.9,137,2,991,0)="""RTN"",""SCMSVUT1"",367,0)"
^XMB(3.9,137,2,992,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,993,0)="""RTN"",""SCMSVUT1"",368,0)"
^XMB(3.9,137,2,994,0)=" I DATA="""" Q 0"
^XMB(3.9,137,2,995,0)="""RTN"",""SCMSVUT1"",369,0)"
^XMB(3.9,137,2,996,0)=" I '$D(^DIC(21,""D"",DATA)) Q 0"
^XMB(3.9,137,2,997,0)="""RTN"",""SCMSVUT1"",370,0)"
^XMB(3.9,137,2,998,0)=" Q 1"
^XMB(3.9,137,2,999,0)="""RTN"",""SCMSVUT1"",371,0)"
^XMB(3.9,137,2,1000,0)=" ;"
^XMB(3.9,137,2,1001,0)="""RTN"",""SCMSVUT1"",372,0)"
^XMB(3.9,137,2,1002,0)="VIETSER1(DATA) ;"
^XMB(3.9,137,2,1003,0)="""RTN"",""SCMSVUT1"",373,0)"
^XMB(3.9,137,2,1004,0)=" ;INPUT DATA - Vietnam service to be checked"
^XMB(3.9,137,2,1005,0)="""RTN"",""SCMSVUT1"",374,0)"
^XMB(3.9,137,2,1006,0)=" ;"
^XMB(3.9,137,2,1007,0)="""RTN"",""SCMSVUT1"",375,0)"
^XMB(3.9,137,2,1008,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,1009,0)="""RTN"",""SCMSVUT1"",376,0)"
^XMB(3.9,137,2,1010,0)=" I DATA="""" Q 1"
^XMB(3.9,137,2,1011,0)="""RTN"",""SCMSVUT1"",377,0)"
^XMB(3.9,137,2,1012,0)=" I DATA'=""Y"",DATA'=""N"",DATA'=""U"" Q 0"
^XMB(3.9,137,2,1013,0)="""RTN"",""SCMSVUT1"",378,0)"
^XMB(3.9,137,2,1014,0)=" Q 1"
^XMB(3.9,137,2,1015,0)="""RTN"",""SCMSVUT1"",379,0)"
^XMB(3.9,137,2,1016,0)=" ;"
^XMB(3.9,137,2,1017,0)="""RTN"",""SCMSVUT1"",380,0)"
^XMB(3.9,137,2,1018,0)="VIETSER2(DATA,DFN) ;"
^XMB(3.9,137,2,1019,0)="""RTN"",""SCMSVUT1"",381,0)"
^XMB(3.9,137,2,1020,0)=" ;INPUT DATA - Vietnam service to be checked against vet status"
^XMB(3.9,137,2,1021,0)="""RTN"",""SCMSVUT1"",382,0)"
^XMB(3.9,137,2,1022,0)=" ;"
^XMB(3.9,137,2,1023,0)="""RTN"",""SCMSVUT1"",383,0)"
^XMB(3.9,137,2,1024,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,1025,0)="""RTN"",""SCMSVUT1"",384,0)"
^XMB(3.9,137,2,1026,0)=" N VAR"
^XMB(3.9,137,2,1027,0)="""RTN"",""SCMSVUT1"",385,0)"
^XMB(3.9,137,2,1028,0)=" S VAR=$G(^DPT(DFN,""VET""))"
^XMB(3.9,137,2,1029,0)="""RTN"",""SCMSVUT1"",386,0)"
^XMB(3.9,137,2,1030,0)=" I DATA="""",VAR'=""Y"" Q 1"
^XMB(3.9,137,2,1031,0)="""RTN"",""SCMSVUT1"",387,0)"
^XMB(3.9,137,2,1032,0)=" I (DATA=""Y""!(DATA=""N"")!(DATA=""U"")),VAR=""Y"" Q 1"
^XMB(3.9,137,2,1033,0)="""RTN"",""SCMSVUT1"",388,0)"
^XMB(3.9,137,2,1034,0)=" Q 0"
^XMB(3.9,137,2,1035,0)="""RTN"",""SCMSVUT1"",389,0)"
^XMB(3.9,137,2,1036,0)=" ;"
^XMB(3.9,137,2,1037,0)="""RTN"",""SCMSVUT1"",390,0)"
^XMB(3.9,137,2,1038,0)="ACTPRD(DATA) ;"
^XMB(3.9,137,2,1039,0)="""RTN"",""SCMSVUT1"",391,0)"
^XMB(3.9,137,2,1040,0)=" ;INPUT DATA - period of serivce indicator to be check to ensure active"
^XMB(3.9,137,2,1041,0)="""RTN"",""SCMSVUT1"",392,0)"
^XMB(3.9,137,2,1042,0)=" ;"
^XMB(3.9,137,2,1043,0)="""RTN"",""SCMSVUT1"",393,0)"
^XMB(3.9,137,2,1044,0)=" N VAR"
^XMB(3.9,137,2,1045,0)="""RTN"",""SCMSVUT1"",394,0)"
^XMB(3.9,137,2,1046,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,1047,0)="""RTN"",""SCMSVUT1"",395,0)"
^XMB(3.9,137,2,1048,0)=" I DATA="""" Q 0"
^XMB(3.9,137,2,1049,0)="""RTN"",""SCMSVUT1"",396,0)"
^XMB(3.9,137,2,1050,0)=" S VAR=+$O(^DIC(21,""D"",DATA,0))"
^XMB(3.9,137,2,1051,0)="""RTN"",""SCMSVUT1"",397,0)"
^XMB(3.9,137,2,1052,0)=" S VAR=$P($G(^DIC(21,VAR,0)),U,8)"
^XMB(3.9,137,2,1053,0)="""RTN"",""SCMSVUT1"",398,0)"
^XMB(3.9,137,2,1054,0)=" I VAR Q 0"
^XMB(3.9,137,2,1055,0)="""RTN"",""SCMSVUT1"",399,0)"
^XMB(3.9,137,2,1056,0)=" Q 1"
^XMB(3.9,137,2,1057,0)="""RTN"",""SCMSVUT1"",400,0)"
^XMB(3.9,137,2,1058,0)=" ;"
^XMB(3.9,137,2,1059,0)="""RTN"",""SCMSVUT1"",401,0)"
^XMB(3.9,137,2,1060,0)="PCODMTHD(DATA) ;"
^XMB(3.9,137,2,1061,0)="""RTN"",""SCMSVUT1"",402,0)"
^XMB(3.9,137,2,1062,0)=" ;INPUT DATA - The coding method to be checked."
^XMB(3.9,137,2,1063,0)="""RTN"",""SCMSVUT1"",403,0)"
^XMB(3.9,137,2,1064,0)=" ;"
^XMB(3.9,137,2,1065,0)="""RTN"",""SCMSVUT1"",404,0)"
^XMB(3.9,137,2,1066,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,1067,0)="""RTN"",""SCMSVUT1"",405,0)"
^XMB(3.9,137,2,1068,0)=" I DATA'=""C4"" Q 0"
^XMB(3.9,137,2,1069,0)="""RTN"",""SCMSVUT1"",406,0)"
^XMB(3.9,137,2,1070,0)=" Q 1"
^XMB(3.9,137,2,1071,0)="""RTN"",""SCMSVUT1"",407,0)"
^XMB(3.9,137,2,1072,0)=" ;"
^XMB(3.9,137,2,1073,0)="""RTN"",""SCMSVUT1"",408,0)"
^XMB(3.9,137,2,1074,0)="PROCCOD(DATA,ENCDT) ;"
^XMB(3.9,137,2,1075,0)="""RTN"",""SCMSVUT1"",409,0)"
^XMB(3.9,137,2,1076,0)=" ;INPUT DATA - The procedure code to be checked."
^XMB(3.9,137,2,1077,0)="""RTN"",""SCMSVUT1"",410,0)"
^XMB(3.9,137,2,1078,0)=" ;This call makes the assumption that leading zeros are intact in the "
^XMB(3.9,137,2,1079,0)="""RTN"",""SCMSVUT1"",411,0)"
^XMB(3.9,137,2,1080,0)=" ;input."
^XMB(3.9,137,2,1081,0)="""RTN"",""SCMSVUT1"",412,0)"
^XMB(3.9,137,2,1082,0)=" ;"
^XMB(3.9,137,2,1083,0)="""RTN"",""SCMSVUT1"",413,0)"
^XMB(3.9,137,2,1084,0)=" N VAR"
^XMB(3.9,137,2,1085,0)="""RTN"",""SCMSVUT1"",414,0)"
^XMB(3.9,137,2,1086,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,1087,0)="""RTN"",""SCMSVUT1"",415,0)"
^XMB(3.9,137,2,1088,0)=" I DATA="""" Q 0"
^XMB(3.9,137,2,1089,0)="""RTN"",""SCMSVUT1"",416,0)"
^XMB(3.9,137,2,1090,0)=" I $$CPT^ICPTCOD(DATA,ENCDT,1)'>0 Q 0"
^XMB(3.9,137,2,1091,0)="""RTN"",""SCMSVUT1"",417,0)"
^XMB(3.9,137,2,1092,0)=" Q 1"
^XMB(3.9,137,2,1093,0)="""RTN"",""SCMSVUT1"",418,0)"
^XMB(3.9,137,2,1094,0)=" ;"
^XMB(3.9,137,2,1095,0)="""RTN"",""SCMSVUT1"",419,0)"
^XMB(3.9,137,2,1096,0)="PROVCLS(DATA) ;"
^XMB(3.9,137,2,1097,0)="""RTN"",""SCMSVUT1"",420,0)"
^XMB(3.9,137,2,1098,0)=" ;INPUT DATA - The practitioner class to be checked."
^XMB(3.9,137,2,1099,0)="""RTN"",""SCMSVUT1"",421,0)"
^XMB(3.9,137,2,1100,0)=" ;"
^XMB(3.9,137,2,1101,0)="""RTN"",""SCMSVUT1"",422,0)"
^XMB(3.9,137,2,1102,0)=" N INACT S INACT="""""
^XMB(3.9,137,2,1103,0)="""RTN"",""SCMSVUT1"",423,0)"
^XMB(3.9,137,2,1104,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,1105,0)="""RTN"",""SCMSVUT1"",424,0)"
^XMB(3.9,137,2,1106,0)=" I DATA="""" Q 0"
^XMB(3.9,137,2,1107,0)="""RTN"",""SCMSVUT1"",425,0)"
^XMB(3.9,137,2,1108,0)=" I $$CODE2TXT^XUA4A72(DATA)']"""" Q 0"
^XMB(3.9,137,2,1109,0)="""RTN"",""SCMSVUT1"",426,0)"
^XMB(3.9,137,2,1110,0)=" S INACT=$P($$IEN2DATA^XUA4A72($$VCLK^XUA4A72(DATA)),U,5)  ;SD*5.3*442"
^XMB(3.9,137,2,1111,0)="""RTN"",""SCMSVUT1"",427,0)"
^XMB(3.9,137,2,1112,0)=" I INACT'="""" I ENCDT>INACT Q 0  ;SD*5.3*442"
^XMB(3.9,137,2,1113,0)="""RTN"",""SCMSVUT1"",428,0)"
^XMB(3.9,137,2,1114,0)=" Q 1"
^XMB(3.9,137,2,1115,0)="""RTN"",""SCMSVUT1"",429,0)"
^XMB(3.9,137,2,1116,0)=" ;"
^XMB(3.9,137,2,1117,0)="""RTN"",""SCMSVUT1"",430,0)"
^XMB(3.9,137,2,1118,0)="ERI(DATA) ;"
^XMB(3.9,137,2,1119,0)="""RTN"",""SCMSVUT1"",431,0)"
^XMB(3.9,137,2,1120,0)=" ;INPUT  DATA - The Emergency Response indicator to be validated."
^XMB(3.9,137,2,1121,0)="""RTN"",""SCMSVUT1"",432,0)"
^XMB(3.9,137,2,1122,0)=" ;"
^XMB(3.9,137,2,1123,0)="""RTN"",""SCMSVUT1"",433,0)"
^XMB(3.9,137,2,1124,0)=" I '$D(DATA) Q 0"
^XMB(3.9,137,2,1125,0)="""RTN"",""SCMSVUT1"",434,0)"
^XMB(3.9,137,2,1126,0)=" I DATA="""" Q 1"
^XMB(3.9,137,2,1127,0)="""RTN"",""SCMSVUT1"",435,0)"
^XMB(3.9,137,2,1128,0)=" I DATA'=""K"" Q 0"
^XMB(3.9,137,2,1129,0)="""RTN"",""SCMSVUT1"",436,0)"
^XMB(3.9,137,2,1130,0)=" Q 1"
^XMB(3.9,137,2,1131,0)="""RTN"",""SCMSVUT1"",437,0)"
^XMB(3.9,137,2,1132,0)=" ;"
^XMB(3.9,137,2,1133,0)="""VER"")"
^XMB(3.9,137,2,1134,0)="8.0^22.0"
^XMB(3.9,137,2,1135,0)="""BLD"",6203,6)"
^XMB(3.9,137,2,1136,0)="^387"
^XMB(3.9,137,2,1137,0)="$END KID SD*5.3*442"
^XMB(3.9,137,6,0)="^3.911A^2^2"
^XMB(3.9,137,6,1,0)="POSTMASTER"
^XMB(3.9,137,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,137,6,"B","POSTMASTER",1)=""
^XMB(3.9,137,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,138,0)="SD-5P3_SEQ-388_PAT-367.KID^.5^3061008.015742^^^^K"
^XMB(3.9,138,.6)="3061008"
^XMB(3.9,138,1,0)="^3.91A^2^2"
^XMB(3.9,138,1,1,0)=".5^0^3061008.015742^^^^^^^3061008.015742"
^XMB(3.9,138,1,2,0)="1^0^3061008.022726^^^^^^^3061008.022726"
^XMB(3.9,138,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,138,1,"C",.5,1)=""
^XMB(3.9,138,1,"C",1,2)=""
^XMB(3.9,138,2,0)="^^541^541^3061008"
^XMB(3.9,138,2,1,0)="$TXT Released SD*5.3*367 SEQ #388"
^XMB(3.9,138,2,2,0)="Extracted from mail message"
^XMB(3.9,138,2,3,0)="$END TXT"
^XMB(3.9,138,2,4,0)="$KID SD*5.3*367"
^XMB(3.9,138,2,5,0)="**INSTALL NAME**"
^XMB(3.9,138,2,6,0)="SD*5.3*367"
^XMB(3.9,138,2,7,0)="""BLD"",5538,0)"
^XMB(3.9,138,2,8,0)="SD*5.3*367^SCHEDULING^0^3060615^y"
^XMB(3.9,138,2,9,0)="""BLD"",5538,1,0)"
^XMB(3.9,138,2,10,0)="^^2^2^3040503^"
^XMB(3.9,138,2,11,0)="""BLD"",5538,1,1,0)"
^XMB(3.9,138,2,12,0)="This patch will prevent multiple instances of the PCMM HL7 TRANSMISSION "
^XMB(3.9,138,2,13,0)="""BLD"",5538,1,2,0)"
^XMB(3.9,138,2,14,0)="from occurring."
^XMB(3.9,138,2,15,0)="""BLD"",5538,4,0)"
^XMB(3.9,138,2,16,0)="^9.64PA^^"
^XMB(3.9,138,2,17,0)="""BLD"",5538,""ABPKG"")"
^XMB(3.9,138,2,18,0)="n"
^XMB(3.9,138,2,19,0)="""BLD"",5538,""KRN"",0)"
^XMB(3.9,138,2,20,0)="^9.67PA^8989.52^19"
^XMB(3.9,138,2,21,0)="""BLD"",5538,""KRN"",.4,0)"
^XMB(3.9,138,2,22,0)=".4"
^XMB(3.9,138,2,23,0)="""BLD"",5538,""KRN"",.401,0)"
^XMB(3.9,138,2,24,0)=".401"
^XMB(3.9,138,2,25,0)="""BLD"",5538,""KRN"",.402,0)"
^XMB(3.9,138,2,26,0)=".402"
^XMB(3.9,138,2,27,0)="""BLD"",5538,""KRN"",.403,0)"
^XMB(3.9,138,2,28,0)=".403"
^XMB(3.9,138,2,29,0)="""BLD"",5538,""KRN"",.5,0)"
^XMB(3.9,138,2,30,0)=".5"
^XMB(3.9,138,2,31,0)="""BLD"",5538,""KRN"",.84,0)"
^XMB(3.9,138,2,32,0)=".84"
^XMB(3.9,138,2,33,0)="""BLD"",5538,""KRN"",3.6,0)"
^XMB(3.9,138,2,34,0)="3.6"
^XMB(3.9,138,2,35,0)="""BLD"",5538,""KRN"",3.8,0)"
^XMB(3.9,138,2,36,0)="3.8"
^XMB(3.9,138,2,37,0)="""BLD"",5538,""KRN"",9.2,0)"
^XMB(3.9,138,2,38,0)="9.2"
^XMB(3.9,138,2,39,0)="""BLD"",5538,""KRN"",9.8,0)"
^XMB(3.9,138,2,40,0)="9.8"
^XMB(3.9,138,2,41,0)="""BLD"",5538,""KRN"",9.8,""NM"",0)"
^XMB(3.9,138,2,42,0)="^9.68A^1^1"
^XMB(3.9,138,2,43,0)="""BLD"",5538,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,138,2,44,0)="SCMCHL^^0^B25525801"
^XMB(3.9,138,2,45,0)="""BLD"",5538,""KRN"",9.8,""NM"",""B"",""SCMCHL"",1)"
^XMB(3.9,138,2,46,0)=""
^XMB(3.9,138,2,47,0)="""BLD"",5538,""KRN"",19,0)"
^XMB(3.9,138,2,48,0)="19"
^XMB(3.9,138,2,49,0)="""BLD"",5538,""KRN"",19.1,0)"
^XMB(3.9,138,2,50,0)="19.1"
^XMB(3.9,138,2,51,0)="""BLD"",5538,""KRN"",101,0)"
^XMB(3.9,138,2,52,0)="101"
^XMB(3.9,138,2,53,0)="""BLD"",5538,""KRN"",409.61,0)"
^XMB(3.9,138,2,54,0)="409.61"
^XMB(3.9,138,2,55,0)="""BLD"",5538,""KRN"",771,0)"
^XMB(3.9,138,2,56,0)="771"
^XMB(3.9,138,2,57,0)="""BLD"",5538,""KRN"",870,0)"
^XMB(3.9,138,2,58,0)="870"
^XMB(3.9,138,2,59,0)="""BLD"",5538,""KRN"",8989.51,0)"
^XMB(3.9,138,2,60,0)="8989.51"
^XMB(3.9,138,2,61,0)="""BLD"",5538,""KRN"",8989.52,0)"
^XMB(3.9,138,2,62,0)="8989.52"
^XMB(3.9,138,2,63,0)="""BLD"",5538,""KRN"",8994,0)"
^XMB(3.9,138,2,64,0)="8994"
^XMB(3.9,138,2,65,0)="""BLD"",5538,""KRN"",""B"",.4,.4)"
^XMB(3.9,138,2,66,0)=""
^XMB(3.9,138,2,67,0)="""BLD"",5538,""KRN"",""B"",.401,.401)"
^XMB(3.9,138,2,68,0)=""
^XMB(3.9,138,2,69,0)="""BLD"",5538,""KRN"",""B"",.402,.402)"
^XMB(3.9,138,2,70,0)=""
^XMB(3.9,138,2,71,0)="""BLD"",5538,""KRN"",""B"",.403,.403)"
^XMB(3.9,138,2,72,0)=""
^XMB(3.9,138,2,73,0)="""BLD"",5538,""KRN"",""B"",.5,.5)"
^XMB(3.9,138,2,74,0)=""
^XMB(3.9,138,2,75,0)="""BLD"",5538,""KRN"",""B"",.84,.84)"
^XMB(3.9,138,2,76,0)=""
^XMB(3.9,138,2,77,0)="""BLD"",5538,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,138,2,78,0)=""
^XMB(3.9,138,2,79,0)="""BLD"",5538,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,138,2,80,0)=""
^XMB(3.9,138,2,81,0)="""BLD"",5538,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,138,2,82,0)=""
^XMB(3.9,138,2,83,0)="""BLD"",5538,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,138,2,84,0)=""
^XMB(3.9,138,2,85,0)="""BLD"",5538,""KRN"",""B"",19,19)"
^XMB(3.9,138,2,86,0)=""
^XMB(3.9,138,2,87,0)="""BLD"",5538,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,138,2,88,0)=""
^XMB(3.9,138,2,89,0)="""BLD"",5538,""KRN"",""B"",101,101)"
^XMB(3.9,138,2,90,0)=""
^XMB(3.9,138,2,91,0)="""BLD"",5538,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,138,2,92,0)=""
^XMB(3.9,138,2,93,0)="""BLD"",5538,""KRN"",""B"",771,771)"
^XMB(3.9,138,2,94,0)=""
^XMB(3.9,138,2,95,0)="""BLD"",5538,""KRN"",""B"",870,870)"
^XMB(3.9,138,2,96,0)=""
^XMB(3.9,138,2,97,0)="""BLD"",5538,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,138,2,98,0)=""
^XMB(3.9,138,2,99,0)="""BLD"",5538,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,138,2,100,0)=""
^XMB(3.9,138,2,101,0)="""BLD"",5538,""KRN"",""B"",8994,8994)"
^XMB(3.9,138,2,102,0)=""
^XMB(3.9,138,2,103,0)="""BLD"",5538,""QUES"",0)"
^XMB(3.9,138,2,104,0)="^9.62^^"
^XMB(3.9,138,2,105,0)="""BLD"",5538,""REQB"",0)"
^XMB(3.9,138,2,106,0)="^9.611^1^1"
^XMB(3.9,138,2,107,0)="""BLD"",5538,""REQB"",1,0)"
^XMB(3.9,138,2,108,0)="SD*5.3*272^1"
^XMB(3.9,138,2,109,0)="""BLD"",5538,""REQB"",""B"",""SD*5.3*272"",1)"
^XMB(3.9,138,2,110,0)=""
^XMB(3.9,138,2,111,0)="""MBREQ"")"
^XMB(3.9,138,2,112,0)="0"
^XMB(3.9,138,2,113,0)="""PKG"",16,-1)"
^XMB(3.9,138,2,114,0)="1^1"
^XMB(3.9,138,2,115,0)="""PKG"",16,0)"
^XMB(3.9,138,2,116,0)="SCHEDULING^SD^APPOINTMENTS,PROFILES,LETTERS,AMIS REPORTS"
^XMB(3.9,138,2,117,0)="""PKG"",16,20,0)"
^XMB(3.9,138,2,118,0)="^9.402P^^"
^XMB(3.9,138,2,119,0)="""PKG"",16,22,0)"
^XMB(3.9,138,2,120,0)="^9.49I^1^1"
^XMB(3.9,138,2,121,0)="""PKG"",16,22,1,0)"
^XMB(3.9,138,2,122,0)="5.3^2930813"
^XMB(3.9,138,2,123,0)="""PKG"",16,22,1,""PAH"",1,0)"
^XMB(3.9,138,2,124,0)="367^3060615"
^XMB(3.9,138,2,125,0)="""PKG"",16,22,1,""PAH"",1,1,0)"
^XMB(3.9,138,2,126,0)="^^2^2^3060615"
^XMB(3.9,138,2,127,0)="""PKG"",16,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,138,2,128,0)="This patch will prevent multiple instances of the PCMM HL7 TRANSMISSION "
^XMB(3.9,138,2,129,0)="""PKG"",16,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,138,2,130,0)="from occurring."
^XMB(3.9,138,2,131,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,138,2,132,0)="Y"
^XMB(3.9,138,2,133,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,138,2,134,0)="^D REP^XPDH"
^XMB(3.9,138,2,135,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,138,2,136,0)="Shall I write over your |FLAG| File"
^XMB(3.9,138,2,137,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,138,2,138,0)="YES"
^XMB(3.9,138,2,139,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,138,2,140,0)="D XPF1^XPDIQ"
^XMB(3.9,138,2,141,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,138,2,142,0)="Y"
^XMB(3.9,138,2,143,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,138,2,144,0)="^D DTA^XPDH"
^XMB(3.9,138,2,145,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,138,2,146,0)="Want my data |FLAG| yours"
^XMB(3.9,138,2,147,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,138,2,148,0)="YES"
^XMB(3.9,138,2,149,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,138,2,150,0)="D XPF2^XPDIQ"
^XMB(3.9,138,2,151,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,138,2,152,0)="YO"
^XMB(3.9,138,2,153,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,138,2,154,0)="^D INHIBIT^XPDH"
^XMB(3.9,138,2,155,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,138,2,156,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,138,2,157,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,138,2,158,0)="YES"
^XMB(3.9,138,2,159,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,138,2,160,0)="D XPI1^XPDIQ"
^XMB(3.9,138,2,161,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,138,2,162,0)="PO^VA(200,:EM"
^XMB(3.9,138,2,163,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,138,2,164,0)="^D MG^XPDH"
^XMB(3.9,138,2,165,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,138,2,166,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,138,2,167,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,138,2,168,0)=""
^XMB(3.9,138,2,169,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,138,2,170,0)="D XPM1^XPDIQ"
^XMB(3.9,138,2,171,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,138,2,172,0)="Y"
^XMB(3.9,138,2,173,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,138,2,174,0)="^D MENU^XPDH"
^XMB(3.9,138,2,175,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,138,2,176,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,138,2,177,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,138,2,178,0)="YES"
^XMB(3.9,138,2,179,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,138,2,180,0)="D XPO1^XPDIQ"
^XMB(3.9,138,2,181,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,138,2,182,0)="Y"
^XMB(3.9,138,2,183,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,138,2,184,0)="^D OPT^XPDH"
^XMB(3.9,138,2,185,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,138,2,186,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,138,2,187,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,138,2,188,0)="YES"
^XMB(3.9,138,2,189,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,138,2,190,0)="D XPZ1^XPDIQ"
^XMB(3.9,138,2,191,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,138,2,192,0)="Y"
^XMB(3.9,138,2,193,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,138,2,194,0)="^D RTN^XPDH"
^XMB(3.9,138,2,195,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,138,2,196,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,138,2,197,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,138,2,198,0)="NO"
^XMB(3.9,138,2,199,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,138,2,200,0)="D XPZ2^XPDIQ"
^XMB(3.9,138,2,201,0)="""RTN"")"
^XMB(3.9,138,2,202,0)="1"
^XMB(3.9,138,2,203,0)="""RTN"",""SCMCHL"")"
^XMB(3.9,138,2,204,0)="0^1^B25525801^B22773542"
^XMB(3.9,138,2,205,0)="""RTN"",""SCMCHL"",1,0)"
^XMB(3.9,138,2,206,0)="SCMCHL ;BP/DJB - PCMM HL7 Main Calling Point ; 16 Dec 2002  11:14 AM"
^XMB(3.9,138,2,207,0)="""RTN"",""SCMCHL"",2,0)"
^XMB(3.9,138,2,208,0)=" ;;5.3;Scheduling;**177,204,224,272,367**;AUG 13, 1993"
^XMB(3.9,138,2,209,0)="""RTN"",""SCMCHL"",3,0)"
^XMB(3.9,138,2,210,0)=" ;"
^XMB(3.9,138,2,211,0)="""RTN"",""SCMCHL"",4,0)"
^XMB(3.9,138,2,212,0)=" ;Reference routine: SCDXMSG"
^XMB(3.9,138,2,213,0)="""RTN"",""SCMCHL"",5,0)"
^XMB(3.9,138,2,214,0)="MAIN(MODE,XMITARRY,VARPTR,WORK) ;Main entry point to generate Primary Care HL7"
^XMB(3.9,138,2,215,0)="""RTN"",""SCMCHL"",6,0)"
^XMB(3.9,138,2,216,0)=" ;messages to NPCD in Austin. Loop thru PCMM HL7 EVENT file (#404.48)"
^XMB(3.9,138,2,217,0)="""RTN"",""SCMCHL"",7,0)"
^XMB(3.9,138,2,218,0)=" ;and generate HL7 message for each appropriate event."
^XMB(3.9,138,2,219,0)="""RTN"",""SCMCHL"",8,0)"
^XMB(3.9,138,2,220,0)=" ;"
^XMB(3.9,138,2,221,0)="""RTN"",""SCMCHL"",9,0)"
^XMB(3.9,138,2,222,0)=" ;Input:"
^XMB(3.9,138,2,223,0)="""RTN"",""SCMCHL"",10,0)"
^XMB(3.9,138,2,224,0)=" ;  MODE     - Mode of operation."
^XMB(3.9,138,2,225,0)="""RTN"",""SCMCHL"",11,0)"
^XMB(3.9,138,2,226,0)=" ;              1: Generate mode - Generate HL7 messages. (Default)."
^XMB(3.9,138,2,227,0)="""RTN"",""SCMCHL"",12,0)"
^XMB(3.9,138,2,228,0)=" ;              2: Review mode   - HL7 segments will be built in array"
^XMB(3.9,138,2,229,0)="""RTN"",""SCMCHL"",13,0)"
^XMB(3.9,138,2,230,0)=" ;                                 XMITARRY and may be reviewed. HL7"
^XMB(3.9,138,2,231,0)="""RTN"",""SCMCHL"",14,0)"
^XMB(3.9,138,2,232,0)=" ;                                 messages WILL NOT be generated, and"
^XMB(3.9,138,2,233,0)="""RTN"",""SCMCHL"",15,0)"
^XMB(3.9,138,2,234,0)=" ;                                 processed events will not be"
^XMB(3.9,138,2,235,0)="""RTN"",""SCMCHL"",16,0)"
^XMB(3.9,138,2,236,0)=" ;                                 removed from the transmit xref in"
^XMB(3.9,138,2,237,0)="""RTN"",""SCMCHL"",17,0)"
^XMB(3.9,138,2,238,0)=" ;                                 PCMM HL7 EVENT file."
^XMB(3.9,138,2,239,0)="""RTN"",""SCMCHL"",18,0)"
^XMB(3.9,138,2,240,0)=" ;  XMITARRY - Array to store HL7 segments (full global ref)."
^XMB(3.9,138,2,241,0)="""RTN"",""SCMCHL"",19,0)"
^XMB(3.9,138,2,242,0)=" ;             Default=^TMP(""PCMM"",""HL7"",$J)"
^XMB(3.9,138,2,243,0)="""RTN"",""SCMCHL"",20,0)"
^XMB(3.9,138,2,244,0)=" ;   VARPTR  - For testing purposes, you may pass in an EVENT POINTER"
^XMB(3.9,138,2,245,0)="""RTN"",""SCMCHL"",21,0)"
^XMB(3.9,138,2,246,0)=" ;             value. This value will be used rather than $ORDERing"
^XMB(3.9,138,2,247,0)="""RTN"",""SCMCHL"",22,0)"
^XMB(3.9,138,2,248,0)=" ;             thru ""AACXMIT"" xref in PCMM HL7 EVENT file."
^XMB(3.9,138,2,249,0)="""RTN"",""SCMCHL"",23,0)"
^XMB(3.9,138,2,250,0)=" ;             Examples:"
^XMB(3.9,138,2,251,0)="""RTN"",""SCMCHL"",24,0)"
^XMB(3.9,138,2,252,0)=" ;                ""2290;SCPT(404.43,"" (Patient Team Position Assign)"
^XMB(3.9,138,2,253,0)="""RTN"",""SCMCHL"",25,0)"
^XMB(3.9,138,2,254,0)=" ;                ""725;SCTM(404.52,""  (Position Assign History)"
^XMB(3.9,138,2,255,0)="""RTN"",""SCMCHL"",26,0)"
^XMB(3.9,138,2,256,0)=" ;                ""1;SCTM(404.53,""    (Preceptor Assign History)"
^XMB(3.9,138,2,257,0)="""RTN"",""SCMCHL"",27,0)"
^XMB(3.9,138,2,258,0)=" ;   Work Optional if present"
^XMB(3.9,138,2,259,0)="""RTN"",""SCMCHL"",28,0)"
^XMB(3.9,138,2,260,0)=" ;Output: None"
^XMB(3.9,138,2,261,0)="""RTN"",""SCMCHL"",29,0)"
^XMB(3.9,138,2,262,0)=" ;"
^XMB(3.9,138,2,263,0)="""RTN"",""SCMCHL"",30,0)"
^XMB(3.9,138,2,264,0)=" ;Prevent multiple runs processing at the same time."
^XMB(3.9,138,2,265,0)="""RTN"",""SCMCHL"",31,0)"
^XMB(3.9,138,2,266,0)=" I $G(VARPTR)'="""",$D(^XTMP(""SCMCHL"")) D  Q"
^XMB(3.9,138,2,267,0)="""RTN"",""SCMCHL"",32,0)"
^XMB(3.9,138,2,268,0)=" .W !,""HL7 Transmission in progress, no testing allowed!"",!"
^XMB(3.9,138,2,269,0)="""RTN"",""SCMCHL"",33,0)"
^XMB(3.9,138,2,270,0)=" I $D(^XTMP(""SCMCHL"")) D  Q"
^XMB(3.9,138,2,271,0)="""RTN"",""SCMCHL"",34,0)"
^XMB(3.9,138,2,272,0)=" .W !,""HL7 Transmission in progress, please try again later."",!"
^XMB(3.9,138,2,273,0)="""RTN"",""SCMCHL"",35,0)"
^XMB(3.9,138,2,274,0)=" S ^XTMP(""SCMCHL"",0)=DT_""^""_DT"
^XMB(3.9,138,2,275,0)="""RTN"",""SCMCHL"",36,0)"
^XMB(3.9,138,2,276,0)=" ;"
^XMB(3.9,138,2,277,0)="""RTN"",""SCMCHL"",37,0)"
^XMB(3.9,138,2,278,0)=" NEW ERRCNT,IEN,MSG,MSGCNT,RESULT"
^XMB(3.9,138,2,279,0)="""RTN"",""SCMCHL"",38,0)"
^XMB(3.9,138,2,280,0)=" NEW SCEVIEN,SCFAC"
^XMB(3.9,138,2,281,0)="""RTN"",""SCMCHL"",39,0)"
^XMB(3.9,138,2,282,0)=" NEW HL,HLECH,HLEID,HLFS,HLQ,HLP,XMITERR"
^XMB(3.9,138,2,283,0)="""RTN"",""SCMCHL"",40,0)"
^XMB(3.9,138,2,284,0)=" ;"
^XMB(3.9,138,2,285,0)="""RTN"",""SCMCHL"",41,0)"
^XMB(3.9,138,2,286,0)=" ;Initialize variables - set global locations"
^XMB(3.9,138,2,287,0)="""RTN"",""SCMCHL"",42,0)"
^XMB(3.9,138,2,288,0)=" S:$G(MODE)'=2 MODE=1 ;Default mode = ""Generate"""
^XMB(3.9,138,2,289,0)="""RTN"",""SCMCHL"",43,0)"
^XMB(3.9,138,2,290,0)=" S:$G(XMITARRY)="""" XMITARRY=""^TMP(""""PCMM"""",""""HL7"""",""_$J_"")"" ;Segments"
^XMB(3.9,138,2,291,0)="""RTN"",""SCMCHL"",44,0)"
^XMB(3.9,138,2,292,0)=" S XMITERR=""^TMP(""""PCMM"""",""""ERR"""",""_$J_"")"" ;Errors"
^XMB(3.9,138,2,293,0)="""RTN"",""SCMCHL"",45,0)"
^XMB(3.9,138,2,294,0)=" S MSGCNT=0"
^XMB(3.9,138,2,295,0)="""RTN"",""SCMCHL"",46,0)"
^XMB(3.9,138,2,296,0)=" ;"
^XMB(3.9,138,2,297,0)="""RTN"",""SCMCHL"",47,0)"
^XMB(3.9,138,2,298,0)=" ;Get pointer to sending event"
^XMB(3.9,138,2,299,0)="""RTN"",""SCMCHL"",48,0)"
^XMB(3.9,138,2,300,0)=" S HLEID=$$HLEID()"
^XMB(3.9,138,2,301,0)="""RTN"",""SCMCHL"",49,0)"
^XMB(3.9,138,2,302,0)=" I 'HLEID D  Q"
^XMB(3.9,138,2,303,0)="""RTN"",""SCMCHL"",50,0)"
^XMB(3.9,138,2,304,0)=" . S MSG=""Unable to initialize HL7 variables - protocol not found"""
^XMB(3.9,138,2,305,0)="""RTN"",""SCMCHL"",51,0)"
^XMB(3.9,138,2,306,0)=" . D ERRBULL^SCMCHLM(MSG)"
^XMB(3.9,138,2,307,0)="""RTN"",""SCMCHL"",52,0)"
^XMB(3.9,138,2,308,0)=" ;"
^XMB(3.9,138,2,309,0)="""RTN"",""SCMCHL"",53,0)"
^XMB(3.9,138,2,310,0)=" ;Initialize HL7 variables"
^XMB(3.9,138,2,311,0)="""RTN"",""SCMCHL"",54,0)"
^XMB(3.9,138,2,312,0)=" D INIT^HLFNC2(HLEID,.HL)"
^XMB(3.9,138,2,313,0)="""RTN"",""SCMCHL"",55,0)"
^XMB(3.9,138,2,314,0)=" I $O(HL(""""))="""" D  Q"
^XMB(3.9,138,2,315,0)="""RTN"",""SCMCHL"",56,0)"
^XMB(3.9,138,2,316,0)=" . D ERRBULL^SCMCHLM($P(HL,""^"",2))"
^XMB(3.9,138,2,317,0)="""RTN"",""SCMCHL"",57,0)"
^XMB(3.9,138,2,318,0)=" ;"
^XMB(3.9,138,2,319,0)="""RTN"",""SCMCHL"",58,0)"
^XMB(3.9,138,2,320,0)=" ;Get faciltiy number"
^XMB(3.9,138,2,321,0)="""RTN"",""SCMCHL"",59,0)"
^XMB(3.9,138,2,322,0)=" S SCFAC=+$P($$SITE^VASITE(),""^"",3)"
^XMB(3.9,138,2,323,0)="""RTN"",""SCMCHL"",60,0)"
^XMB(3.9,138,2,324,0)=" ;"
^XMB(3.9,138,2,325,0)="""RTN"",""SCMCHL"",61,0)"
^XMB(3.9,138,2,326,0)=" ;User passed in an EVENT POINTER value"
^XMB(3.9,138,2,327,0)="""RTN"",""SCMCHL"",62,0)"
^XMB(3.9,138,2,328,0)=" I $G(VARPTR)]"""" D MANUAL Q"
^XMB(3.9,138,2,329,0)="""RTN"",""SCMCHL"",63,0)"
^XMB(3.9,138,2,330,0)=" ;"
^XMB(3.9,138,2,331,0)="""RTN"",""SCMCHL"",64,0)"
^XMB(3.9,138,2,332,0)="LOOP ;Loop thru EVENT POINTER xref and send message for each unique one."
^XMB(3.9,138,2,333,0)="""RTN"",""SCMCHL"",65,0)"
^XMB(3.9,138,2,334,0)=" ;alb/rpm Patch 224"
^XMB(3.9,138,2,335,0)="""RTN"",""SCMCHL"",66,0)"
^XMB(3.9,138,2,336,0)=" ;The SCLIMIT counter allows sites to limit the number of HL7 messages"
^XMB(3.9,138,2,337,0)="""RTN"",""SCMCHL"",67,0)"
^XMB(3.9,138,2,338,0)=" ;processed at any one time.  The next EVENT POINTER in the queue will"
^XMB(3.9,138,2,339,0)="""RTN"",""SCMCHL"",68,0)"
^XMB(3.9,138,2,340,0)=" ;not be processed if SCLIMIT is exceeded.  SCLIMIT is not an absolute"
^XMB(3.9,138,2,341,0)="""RTN"",""SCMCHL"",69,0)"
^XMB(3.9,138,2,342,0)=" ;limit, since a single EVENT POINTER can generate multiple HL7"
^XMB(3.9,138,2,343,0)="""RTN"",""SCMCHL"",70,0)"
^XMB(3.9,138,2,344,0)=" ;messages."
^XMB(3.9,138,2,345,0)="""RTN"",""SCMCHL"",71,0)"
^XMB(3.9,138,2,346,0)=" ;Sites can modify SCLIMIT by editing the HL7 TRANSMIT LIMIT field of"
^XMB(3.9,138,2,347,0)="""RTN"",""SCMCHL"",72,0)"
^XMB(3.9,138,2,348,0)=" ;the PCMM PARAMETER file."
^XMB(3.9,138,2,349,0)="""RTN"",""SCMCHL"",73,0)"
^XMB(3.9,138,2,350,0)=" ;"
^XMB(3.9,138,2,351,0)="""RTN"",""SCMCHL"",74,0)"
^XMB(3.9,138,2,352,0)=" NEW SCLIMIT,WORK,VARPTR"
^XMB(3.9,138,2,353,0)="""RTN"",""SCMCHL"",75,0)"
^XMB(3.9,138,2,354,0)=" S SCLIMIT=$P($G(^SCTM(404.44,1,1)),U,5) ;Limit # of msgs processed"
^XMB(3.9,138,2,355,0)="""RTN"",""SCMCHL"",76,0)"
^XMB(3.9,138,2,356,0)=" S:'SCLIMIT SCLIMIT=2500 ;Default to 2500 msgs"
^XMB(3.9,138,2,357,0)="""RTN"",""SCMCHL"",77,0)"
^XMB(3.9,138,2,358,0)=" S VARPTR="""""
^XMB(3.9,138,2,359,0)="""RTN"",""SCMCHL"",78,0)"
^XMB(3.9,138,2,360,0)=" F  S VARPTR=$O(^SCPT(404.48,""AACXMIT"",VARPTR)) Q:VARPTR=""""!(SCLIMIT<1)  D"
^XMB(3.9,138,2,361,0)="""RTN"",""SCMCHL"",79,0)"
^XMB(3.9,138,2,362,0)=" . KILL @XMITARRY ;Initialize array"
^XMB(3.9,138,2,363,0)="""RTN"",""SCMCHL"",80,0)"
^XMB(3.9,138,2,364,0)=" . ;"
^XMB(3.9,138,2,365,0)="""RTN"",""SCMCHL"",81,0)"
^XMB(3.9,138,2,366,0)=" . ;Preserve the Event IEN. Used to process a deletion."
^XMB(3.9,138,2,367,0)="""RTN"",""SCMCHL"",82,0)"
^XMB(3.9,138,2,368,0)=" . F SCEVIEN=0:0 S SCEVIEN=$O(^SCPT(404.48,""AACXMIT"",VARPTR,SCEVIEN)) Q:'SCEVIEN  D"
^XMB(3.9,138,2,369,0)="""RTN"",""SCMCHL"",83,0)"
^XMB(3.9,138,2,370,0)=" .. ;"
^XMB(3.9,138,2,371,0)="""RTN"",""SCMCHL"",84,0)"
^XMB(3.9,138,2,372,0)=" .. ;Build segment array"
^XMB(3.9,138,2,373,0)="""RTN"",""SCMCHL"",85,0)"
^XMB(3.9,138,2,374,0)=" .. K SCFUT"
^XMB(3.9,138,2,375,0)="""RTN"",""SCMCHL"",86,0)"
^XMB(3.9,138,2,376,0)=" .. S WORK=+$P($G(^SCPT(404.48,SCEVIEN,0)),U,8)"
^XMB(3.9,138,2,377,0)="""RTN"",""SCMCHL"",87,0)"
^XMB(3.9,138,2,378,0)=" .. I WORK N HLEID S HLEID=$$HLEIDW() S RESULT=$$BUILD^SCMCHLP(VARPTR,.HL,.XMITARRY,SCEVIEN)"
^XMB(3.9,138,2,379,0)="""RTN"",""SCMCHL"",88,0)"
^XMB(3.9,138,2,380,0)=" .. I 'WORK S RESULT=$$BUILD^SCMCHLB(VARPTR,.HL,.XMITARRY)"
^XMB(3.9,138,2,381,0)="""RTN"",""SCMCHL"",89,0)"
^XMB(3.9,138,2,382,0)=" .. I +RESULT<0 D  Q  ;Error occurred when building segment array"
^XMB(3.9,138,2,383,0)="""RTN"",""SCMCHL"",90,0)"
^XMB(3.9,138,2,384,0)=" .. . S @XMITERR@(VARPTR)=$P(RESULT,""^"",2)"
^XMB(3.9,138,2,385,0)="""RTN"",""SCMCHL"",91,0)"
^XMB(3.9,138,2,386,0)=" .. ;"
^XMB(3.9,138,2,387,0)="""RTN"",""SCMCHL"",92,0)"
^XMB(3.9,138,2,388,0)=" .. ;If in Review mode, display info and Quit."
^XMB(3.9,138,2,389,0)="""RTN"",""SCMCHL"",93,0)"
^XMB(3.9,138,2,390,0)=" .. I MODE=2 D  Q  ;"
^XMB(3.9,138,2,391,0)="""RTN"",""SCMCHL"",94,0)"
^XMB(3.9,138,2,392,0)=" .. . W !,VARPTR_""  ""_$S('$D(@XMITARRY):""No "",1:"""")_""Data Found"""
^XMB(3.9,138,2,393,0)="""RTN"",""SCMCHL"",95,0)"
^XMB(3.9,138,2,394,0)=" .. ;"
^XMB(3.9,138,2,395,0)="""RTN"",""SCMCHL"",96,0)"
^XMB(3.9,138,2,396,0)=" .. ;If no segments built, turn off transmission flag and Quit."
^XMB(3.9,138,2,397,0)="""RTN"",""SCMCHL"",97,0)"
^XMB(3.9,138,2,398,0)=" .. I '$D(@XMITARRY) D:'$G(SCFUT) FLAG(VARPTR,SCEVIEN) Q"
^XMB(3.9,138,2,399,0)="""RTN"",""SCMCHL"",98,0)"
^XMB(3.9,138,2,400,0)=" .. ;"
^XMB(3.9,138,2,401,0)="""RTN"",""SCMCHL"",99,0)"
^XMB(3.9,138,2,402,0)=" .. ;Generate message."
^XMB(3.9,138,2,403,0)="""RTN"",""SCMCHL"",100,0)"
^XMB(3.9,138,2,404,0)=" .. ;"
^XMB(3.9,138,2,405,0)="""RTN"",""SCMCHL"",101,0)"
^XMB(3.9,138,2,406,0)=" .. Q:'$$GENERATE^SCMCHLG()  ;^SCMCHLG Increments MSGCNT"
^XMB(3.9,138,2,407,0)="""RTN"",""SCMCHL"",102,0)"
^XMB(3.9,138,2,408,0)=" .. D:'$G(SCFUT) FLAG(VARPTR,SCEVIEN) ;Turn off transmission flag"
^XMB(3.9,138,2,409,0)="""RTN"",""SCMCHL"",103,0)"
^XMB(3.9,138,2,410,0)=" .. K @XMITARRY  ;clean up variables"
^XMB(3.9,138,2,411,0)="""RTN"",""SCMCHL"",104,0)"
^XMB(3.9,138,2,412,0)=" . ;"
^XMB(3.9,138,2,413,0)="""RTN"",""SCMCHL"",105,0)"
^XMB(3.9,138,2,414,0)=" . Q"
^XMB(3.9,138,2,415,0)="""RTN"",""SCMCHL"",106,0)"
^XMB(3.9,138,2,416,0)=" ;"
^XMB(3.9,138,2,417,0)="""RTN"",""SCMCHL"",107,0)"
^XMB(3.9,138,2,418,0)=" I '$D(ZTQUEUED) W !,MSGCNT,"" messages sent."""
^XMB(3.9,138,2,419,0)="""RTN"",""SCMCHL"",108,0)"
^XMB(3.9,138,2,420,0)=" ;"
^XMB(3.9,138,2,421,0)="""RTN"",""SCMCHL"",109,0)"
^XMB(3.9,138,2,422,0)=" ;Send completion bulletin and clean up arrays."
^XMB(3.9,138,2,423,0)="""RTN"",""SCMCHL"",110,0)"
^XMB(3.9,138,2,424,0)=" I MODE=1 D  ;Don't do this if in DISPLAY mode."
^XMB(3.9,138,2,425,0)="""RTN"",""SCMCHL"",111,0)"
^XMB(3.9,138,2,426,0)=" . S ERRCNT=$$COUNT^SCMCHLS(XMITERR)"
^XMB(3.9,138,2,427,0)="""RTN"",""SCMCHL"",112,0)"
^XMB(3.9,138,2,428,0)=" . D CMPLBULL^SCMCHLM(MSGCNT,ERRCNT,XMITERR)"
^XMB(3.9,138,2,429,0)="""RTN"",""SCMCHL"",113,0)"
^XMB(3.9,138,2,430,0)=" . KILL @XMITARRY,@XMITERR"
^XMB(3.9,138,2,431,0)="""RTN"",""SCMCHL"",114,0)"
^XMB(3.9,138,2,432,0)=" . K ^XTMP(""SCMCHL"")"
^XMB(3.9,138,2,433,0)="""RTN"",""SCMCHL"",115,0)"
^XMB(3.9,138,2,434,0)=" ;"
^XMB(3.9,138,2,435,0)="""RTN"",""SCMCHL"",116,0)"
^XMB(3.9,138,2,436,0)=" Q:SCLIMIT<1"
^XMB(3.9,138,2,437,0)="""RTN"",""SCMCHL"",117,0)"
^XMB(3.9,138,2,438,0)=" ;"
^XMB(3.9,138,2,439,0)="""RTN"",""SCMCHL"",118,0)"
^XMB(3.9,138,2,440,0)=" ;alb/rpm;Patch 224;Transmit ""M""arked messages from Transmission Log"
^XMB(3.9,138,2,441,0)="""RTN"",""SCMCHL"",119,0)"
^XMB(3.9,138,2,442,0)=" D EN^SCMCHLRR(.SCLIMIT)"
^XMB(3.9,138,2,443,0)="""RTN"",""SCMCHL"",120,0)"
^XMB(3.9,138,2,444,0)=" Q:SCLIMIT<1"
^XMB(3.9,138,2,445,0)="""RTN"",""SCMCHL"",121,0)"
^XMB(3.9,138,2,446,0)=" ;"
^XMB(3.9,138,2,447,0)="""RTN"",""SCMCHL"",122,0)"
^XMB(3.9,138,2,448,0)=" ;alb/rpm;Patch224;Transmit messages with overdue ACKnowledgment"
^XMB(3.9,138,2,449,0)="""RTN"",""SCMCHL"",123,0)"
^XMB(3.9,138,2,450,0)=" D AUTO^SCMCHLRR(.SCLIMIT)"
^XMB(3.9,138,2,451,0)="""RTN"",""SCMCHL"",124,0)"
^XMB(3.9,138,2,452,0)=" Q"
^XMB(3.9,138,2,453,0)="""RTN"",""SCMCHL"",125,0)"
^XMB(3.9,138,2,454,0)=" ;"
^XMB(3.9,138,2,455,0)="""RTN"",""SCMCHL"",126,0)"
^XMB(3.9,138,2,456,0)="MANUAL ;User passed in a specific variable pointer value. This value will"
^XMB(3.9,138,2,457,0)="""RTN"",""SCMCHL"",127,0)"
^XMB(3.9,138,2,458,0)=" ;be used rather than $ORDERing thru ""AACXMIT"" xref."
^XMB(3.9,138,2,459,0)="""RTN"",""SCMCHL"",128,0)"
^XMB(3.9,138,2,460,0)=" ;"
^XMB(3.9,138,2,461,0)="""RTN"",""SCMCHL"",129,0)"
^XMB(3.9,138,2,462,0)=" NEW SCMANUAL"
^XMB(3.9,138,2,463,0)="""RTN"",""SCMCHL"",130,0)"
^XMB(3.9,138,2,464,0)=" S SCMANUAL=1 ;Indicates variable pointer was manually entered."
^XMB(3.9,138,2,465,0)="""RTN"",""SCMCHL"",131,0)"
^XMB(3.9,138,2,466,0)=" ;             A delete cannot be processed."
^XMB(3.9,138,2,467,0)="""RTN"",""SCMCHL"",132,0)"
^XMB(3.9,138,2,468,0)=" ;"
^XMB(3.9,138,2,469,0)="""RTN"",""SCMCHL"",133,0)"
^XMB(3.9,138,2,470,0)=" ;Initialize array"
^XMB(3.9,138,2,471,0)="""RTN"",""SCMCHL"",134,0)"
^XMB(3.9,138,2,472,0)=" KILL @XMITARRY"
^XMB(3.9,138,2,473,0)="""RTN"",""SCMCHL"",135,0)"
^XMB(3.9,138,2,474,0)=" ;"
^XMB(3.9,138,2,475,0)="""RTN"",""SCMCHL"",136,0)"
^XMB(3.9,138,2,476,0)=" ;Build segment array"
^XMB(3.9,138,2,477,0)="""RTN"",""SCMCHL"",137,0)"
^XMB(3.9,138,2,478,0)=" I $G(WORK) N HLEID S HLEID=$$HLEIDW() S RESULT=$$BUILD^SCMCHLP(VARPTR,.HL,.XMITARRY)"
^XMB(3.9,138,2,479,0)="""RTN"",""SCMCHL"",138,0)"
^XMB(3.9,138,2,480,0)=" I '$G(WORK) S RESULT=$$BUILD^SCMCHLB(VARPTR,.HL,.XMITARRY)"
^XMB(3.9,138,2,481,0)="""RTN"",""SCMCHL"",139,0)"
^XMB(3.9,138,2,482,0)=" I +RESULT<0 D  Q  ;Error occurred when building segment array"
^XMB(3.9,138,2,483,0)="""RTN"",""SCMCHL"",140,0)"
^XMB(3.9,138,2,484,0)=" . S @XMITERR@(VARPTR)=$P(RESULT,""^"",2)"
^XMB(3.9,138,2,485,0)="""RTN"",""SCMCHL"",141,0)"
^XMB(3.9,138,2,486,0)=" W !,VARPTR_""  ""_$S('$D(@XMITARRY):""No "",1:"""")_""Data Found"",!"
^XMB(3.9,138,2,487,0)="""RTN"",""SCMCHL"",142,0)"
^XMB(3.9,138,2,488,0)=" ;"
^XMB(3.9,138,2,489,0)="""RTN"",""SCMCHL"",143,0)"
^XMB(3.9,138,2,490,0)=" ;Generate message - FOR TESTING PURPOSES ONLY!"
^XMB(3.9,138,2,491,0)="""RTN"",""SCMCHL"",144,0)"
^XMB(3.9,138,2,492,0)=" S RESULT=$$GENERATE^SCMCHLG()"
^XMB(3.9,138,2,493,0)="""RTN"",""SCMCHL"",145,0)"
^XMB(3.9,138,2,494,0)=" K ^XTMP(""SCMCHL"")"
^XMB(3.9,138,2,495,0)="""RTN"",""SCMCHL"",146,0)"
^XMB(3.9,138,2,496,0)=" Q"
^XMB(3.9,138,2,497,0)="""RTN"",""SCMCHL"",147,0)"
^XMB(3.9,138,2,498,0)=" ;"
^XMB(3.9,138,2,499,0)="""RTN"",""SCMCHL"",148,0)"
^XMB(3.9,138,2,500,0)="FLAG(VARPTR,SCEVIEN) ;Turn off transmission flag. This removes event from ""AACXMIT"""
^XMB(3.9,138,2,501,0)="""RTN"",""SCMCHL"",149,0)"
^XMB(3.9,138,2,502,0)=" ;xref in PCMM HL7 EVENT file."
^XMB(3.9,138,2,503,0)="""RTN"",""SCMCHL"",150,0)"
^XMB(3.9,138,2,504,0)=" ;Input:"
^XMB(3.9,138,2,505,0)="""RTN"",""SCMCHL"",151,0)"
^XMB(3.9,138,2,506,0)=" ;   VARPTR - Internal value of EVENT POINTER field"
^XMB(3.9,138,2,507,0)="""RTN"",""SCMCHL"",152,0)"
^XMB(3.9,138,2,508,0)=" ;"
^XMB(3.9,138,2,509,0)="""RTN"",""SCMCHL"",153,0)"
^XMB(3.9,138,2,510,0)=" Q:$G(VARPTR)']"""""
^XMB(3.9,138,2,511,0)="""RTN"",""SCMCHL"",154,0)"
^XMB(3.9,138,2,512,0)=" I $G(SCEVIEN) D TRANSMIT^SCMCHLE(SCEVIEN,0) Q"
^XMB(3.9,138,2,513,0)="""RTN"",""SCMCHL"",155,0)"
^XMB(3.9,138,2,514,0)=" NEW IEN"
^XMB(3.9,138,2,515,0)="""RTN"",""SCMCHL"",156,0)"
^XMB(3.9,138,2,516,0)=" S IEN=0"
^XMB(3.9,138,2,517,0)="""RTN"",""SCMCHL"",157,0)"
^XMB(3.9,138,2,518,0)=" F  S IEN=$O(^SCPT(404.48,""AACXMIT"",VARPTR,IEN)) Q:'IEN  D  ;"
^XMB(3.9,138,2,519,0)="""RTN"",""SCMCHL"",158,0)"
^XMB(3.9,138,2,520,0)=" . D TRANSMIT^SCMCHLE(IEN,0)"
^XMB(3.9,138,2,521,0)="""RTN"",""SCMCHL"",159,0)"
^XMB(3.9,138,2,522,0)=" Q"
^XMB(3.9,138,2,523,0)="""RTN"",""SCMCHL"",160,0)"
^XMB(3.9,138,2,524,0)=" ;"
^XMB(3.9,138,2,525,0)="""RTN"",""SCMCHL"",161,0)"
^XMB(3.9,138,2,526,0)="HLEIDW() ;Return workload sending event"
^XMB(3.9,138,2,527,0)="""RTN"",""SCMCHL"",162,0)"
^XMB(3.9,138,2,528,0)=" Q +$O(^ORD(101,""B"",""SCMC SEND SERVER WORKLOAD"",0))"
^XMB(3.9,138,2,529,0)="""RTN"",""SCMCHL"",163,0)"
^XMB(3.9,138,2,530,0)="HLEID() ;Return pointer to sending event"
^XMB(3.9,138,2,531,0)="""RTN"",""SCMCHL"",164,0)"
^XMB(3.9,138,2,532,0)=" I $G(WORK) Q $$HLEIDW()"
^XMB(3.9,138,2,533,0)="""RTN"",""SCMCHL"",165,0)"
^XMB(3.9,138,2,534,0)=" Q +$O(^ORD(101,""B"",""PCMM SEND SERVER FOR ADT-A08"",0))"
^XMB(3.9,138,2,535,0)="""RTN"",""SCMCHL"",166,0)"
^XMB(3.9,138,2,536,0)=" Q"
^XMB(3.9,138,2,537,0)="""VER"")"
^XMB(3.9,138,2,538,0)="8.0^22.0"
^XMB(3.9,138,2,539,0)="""BLD"",5538,6)"
^XMB(3.9,138,2,540,0)="^388"
^XMB(3.9,138,2,541,0)="$END KID SD*5.3*367"
^XMB(3.9,138,6,0)="^3.911A^2^2"
^XMB(3.9,138,6,1,0)="POSTMASTER"
^XMB(3.9,138,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,138,6,"B","POSTMASTER",1)=""
^XMB(3.9,138,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,139,0)="SD-5P3_SEQ-389_PAT-480.KID^.5^3061008.015742^^^^K"
^XMB(3.9,139,.6)="3061008"
^XMB(3.9,139,1,0)="^3.91A^2^2"
^XMB(3.9,139,1,1,0)=".5^0^3061008.015742^^^^^^^3061008.015742"
^XMB(3.9,139,1,2,0)="1^0^3061008.02273^^^^^^^3061008.02273"
^XMB(3.9,139,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,139,1,"C",.5,1)=""
^XMB(3.9,139,1,"C",1,2)=""
^XMB(3.9,139,2,0)="^^329^329^3061008"
^XMB(3.9,139,2,1,0)="$TXT Released SD*5.3*480 SEQ #389"
^XMB(3.9,139,2,2,0)="Extracted from mail message"
^XMB(3.9,139,2,3,0)="$END TXT"
^XMB(3.9,139,2,4,0)="$KID SD*5.3*480"
^XMB(3.9,139,2,5,0)="**INSTALL NAME**"
^XMB(3.9,139,2,6,0)="SD*5.3*480"
^XMB(3.9,139,2,7,0)="""BLD"",6623,0)"
^XMB(3.9,139,2,8,0)="SD*5.3*480^SCHEDULING^0^3060306^y"
^XMB(3.9,139,2,9,0)="""BLD"",6623,1,0)"
^XMB(3.9,139,2,10,0)="^^1^1^3060306^"
^XMB(3.9,139,2,11,0)="""BLD"",6623,1,1,0)"
^XMB(3.9,139,2,12,0)="Fix undefined variable error at INIT+4^SDAMEP1."
^XMB(3.9,139,2,13,0)="""BLD"",6623,4,0)"
^XMB(3.9,139,2,14,0)="^9.64PA^^"
^XMB(3.9,139,2,15,0)="""BLD"",6623,""ABPKG"")"
^XMB(3.9,139,2,16,0)="n"
^XMB(3.9,139,2,17,0)="""BLD"",6623,""KRN"",0)"
^XMB(3.9,139,2,18,0)="^9.67PA^8989.52^19"
^XMB(3.9,139,2,19,0)="""BLD"",6623,""KRN"",.4,0)"
^XMB(3.9,139,2,20,0)=".4"
^XMB(3.9,139,2,21,0)="""BLD"",6623,""KRN"",.401,0)"
^XMB(3.9,139,2,22,0)=".401"
^XMB(3.9,139,2,23,0)="""BLD"",6623,""KRN"",.402,0)"
^XMB(3.9,139,2,24,0)=".402"
^XMB(3.9,139,2,25,0)="""BLD"",6623,""KRN"",.403,0)"
^XMB(3.9,139,2,26,0)=".403"
^XMB(3.9,139,2,27,0)="""BLD"",6623,""KRN"",.5,0)"
^XMB(3.9,139,2,28,0)=".5"
^XMB(3.9,139,2,29,0)="""BLD"",6623,""KRN"",.84,0)"
^XMB(3.9,139,2,30,0)=".84"
^XMB(3.9,139,2,31,0)="""BLD"",6623,""KRN"",3.6,0)"
^XMB(3.9,139,2,32,0)="3.6"
^XMB(3.9,139,2,33,0)="""BLD"",6623,""KRN"",3.8,0)"
^XMB(3.9,139,2,34,0)="3.8"
^XMB(3.9,139,2,35,0)="""BLD"",6623,""KRN"",9.2,0)"
^XMB(3.9,139,2,36,0)="9.2"
^XMB(3.9,139,2,37,0)="""BLD"",6623,""KRN"",9.8,0)"
^XMB(3.9,139,2,38,0)="9.8"
^XMB(3.9,139,2,39,0)="""BLD"",6623,""KRN"",9.8,""NM"",0)"
^XMB(3.9,139,2,40,0)="^9.68A^1^1"
^XMB(3.9,139,2,41,0)="""BLD"",6623,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,139,2,42,0)="SDAMEP^^0^B6822994"
^XMB(3.9,139,2,43,0)="""BLD"",6623,""KRN"",9.8,""NM"",""B"",""SDAMEP"",1)"
^XMB(3.9,139,2,44,0)=""
^XMB(3.9,139,2,45,0)="""BLD"",6623,""KRN"",19,0)"
^XMB(3.9,139,2,46,0)="19"
^XMB(3.9,139,2,47,0)="""BLD"",6623,""KRN"",19.1,0)"
^XMB(3.9,139,2,48,0)="19.1"
^XMB(3.9,139,2,49,0)="""BLD"",6623,""KRN"",101,0)"
^XMB(3.9,139,2,50,0)="101"
^XMB(3.9,139,2,51,0)="""BLD"",6623,""KRN"",409.61,0)"
^XMB(3.9,139,2,52,0)="409.61"
^XMB(3.9,139,2,53,0)="""BLD"",6623,""KRN"",771,0)"
^XMB(3.9,139,2,54,0)="771"
^XMB(3.9,139,2,55,0)="""BLD"",6623,""KRN"",870,0)"
^XMB(3.9,139,2,56,0)="870"
^XMB(3.9,139,2,57,0)="""BLD"",6623,""KRN"",8989.51,0)"
^XMB(3.9,139,2,58,0)="8989.51"
^XMB(3.9,139,2,59,0)="""BLD"",6623,""KRN"",8989.52,0)"
^XMB(3.9,139,2,60,0)="8989.52"
^XMB(3.9,139,2,61,0)="""BLD"",6623,""KRN"",8994,0)"
^XMB(3.9,139,2,62,0)="8994"
^XMB(3.9,139,2,63,0)="""BLD"",6623,""KRN"",""B"",.4,.4)"
^XMB(3.9,139,2,64,0)=""
^XMB(3.9,139,2,65,0)="""BLD"",6623,""KRN"",""B"",.401,.401)"
^XMB(3.9,139,2,66,0)=""
^XMB(3.9,139,2,67,0)="""BLD"",6623,""KRN"",""B"",.402,.402)"
^XMB(3.9,139,2,68,0)=""
^XMB(3.9,139,2,69,0)="""BLD"",6623,""KRN"",""B"",.403,.403)"
^XMB(3.9,139,2,70,0)=""
^XMB(3.9,139,2,71,0)="""BLD"",6623,""KRN"",""B"",.5,.5)"
^XMB(3.9,139,2,72,0)=""
^XMB(3.9,139,2,73,0)="""BLD"",6623,""KRN"",""B"",.84,.84)"
^XMB(3.9,139,2,74,0)=""
^XMB(3.9,139,2,75,0)="""BLD"",6623,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,139,2,76,0)=""
^XMB(3.9,139,2,77,0)="""BLD"",6623,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,139,2,78,0)=""
^XMB(3.9,139,2,79,0)="""BLD"",6623,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,139,2,80,0)=""
^XMB(3.9,139,2,81,0)="""BLD"",6623,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,139,2,82,0)=""
^XMB(3.9,139,2,83,0)="""BLD"",6623,""KRN"",""B"",19,19)"
^XMB(3.9,139,2,84,0)=""
^XMB(3.9,139,2,85,0)="""BLD"",6623,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,139,2,86,0)=""
^XMB(3.9,139,2,87,0)="""BLD"",6623,""KRN"",""B"",101,101)"
^XMB(3.9,139,2,88,0)=""
^XMB(3.9,139,2,89,0)="""BLD"",6623,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,139,2,90,0)=""
^XMB(3.9,139,2,91,0)="""BLD"",6623,""KRN"",""B"",771,771)"
^XMB(3.9,139,2,92,0)=""
^XMB(3.9,139,2,93,0)="""BLD"",6623,""KRN"",""B"",870,870)"
^XMB(3.9,139,2,94,0)=""
^XMB(3.9,139,2,95,0)="""BLD"",6623,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,139,2,96,0)=""
^XMB(3.9,139,2,97,0)="""BLD"",6623,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,139,2,98,0)=""
^XMB(3.9,139,2,99,0)="""BLD"",6623,""KRN"",""B"",8994,8994)"
^XMB(3.9,139,2,100,0)=""
^XMB(3.9,139,2,101,0)="""BLD"",6623,""QUES"",0)"
^XMB(3.9,139,2,102,0)="^9.62^^"
^XMB(3.9,139,2,103,0)="""BLD"",6623,""REQB"",0)"
^XMB(3.9,139,2,104,0)="^9.611^1^1"
^XMB(3.9,139,2,105,0)="""BLD"",6623,""REQB"",1,0)"
^XMB(3.9,139,2,106,0)="SD*5.3*334^1"
^XMB(3.9,139,2,107,0)="""BLD"",6623,""REQB"",""B"",""SD*5.3*334"",1)"
^XMB(3.9,139,2,108,0)=""
^XMB(3.9,139,2,109,0)="""MBREQ"")"
^XMB(3.9,139,2,110,0)="0"
^XMB(3.9,139,2,111,0)="""PKG"",16,-1)"
^XMB(3.9,139,2,112,0)="1^1"
^XMB(3.9,139,2,113,0)="""PKG"",16,0)"
^XMB(3.9,139,2,114,0)="SCHEDULING^SD^APPOINTMENTS,PROFILES,LETTERS,AMIS REPORTS"
^XMB(3.9,139,2,115,0)="""PKG"",16,20,0)"
^XMB(3.9,139,2,116,0)="^9.402P^^"
^XMB(3.9,139,2,117,0)="""PKG"",16,22,0)"
^XMB(3.9,139,2,118,0)="^9.49I^1^1"
^XMB(3.9,139,2,119,0)="""PKG"",16,22,1,0)"
^XMB(3.9,139,2,120,0)="5.3^2930813"
^XMB(3.9,139,2,121,0)="""PKG"",16,22,1,""PAH"",1,0)"
^XMB(3.9,139,2,122,0)="480^3060306"
^XMB(3.9,139,2,123,0)="""PKG"",16,22,1,""PAH"",1,1,0)"
^XMB(3.9,139,2,124,0)="^^1^1^3060306"
^XMB(3.9,139,2,125,0)="""PKG"",16,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,139,2,126,0)="Fix undefined variable error at INIT+4^SDAMEP1."
^XMB(3.9,139,2,127,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,139,2,128,0)="Y"
^XMB(3.9,139,2,129,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,139,2,130,0)="^D REP^XPDH"
^XMB(3.9,139,2,131,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,139,2,132,0)="Shall I write over your |FLAG| File"
^XMB(3.9,139,2,133,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,139,2,134,0)="YES"
^XMB(3.9,139,2,135,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,139,2,136,0)="D XPF1^XPDIQ"
^XMB(3.9,139,2,137,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,139,2,138,0)="Y"
^XMB(3.9,139,2,139,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,139,2,140,0)="^D DTA^XPDH"
^XMB(3.9,139,2,141,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,139,2,142,0)="Want my data |FLAG| yours"
^XMB(3.9,139,2,143,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,139,2,144,0)="YES"
^XMB(3.9,139,2,145,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,139,2,146,0)="D XPF2^XPDIQ"
^XMB(3.9,139,2,147,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,139,2,148,0)="YO"
^XMB(3.9,139,2,149,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,139,2,150,0)="^D INHIBIT^XPDH"
^XMB(3.9,139,2,151,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,139,2,152,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,139,2,153,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,139,2,154,0)="YES"
^XMB(3.9,139,2,155,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,139,2,156,0)="D XPI1^XPDIQ"
^XMB(3.9,139,2,157,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,139,2,158,0)="PO^VA(200,:EM"
^XMB(3.9,139,2,159,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,139,2,160,0)="^D MG^XPDH"
^XMB(3.9,139,2,161,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,139,2,162,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,139,2,163,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,139,2,164,0)=""
^XMB(3.9,139,2,165,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,139,2,166,0)="D XPM1^XPDIQ"
^XMB(3.9,139,2,167,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,139,2,168,0)="Y"
^XMB(3.9,139,2,169,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,139,2,170,0)="^D MENU^XPDH"
^XMB(3.9,139,2,171,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,139,2,172,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,139,2,173,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,139,2,174,0)="YES"
^XMB(3.9,139,2,175,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,139,2,176,0)="D XPO1^XPDIQ"
^XMB(3.9,139,2,177,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,139,2,178,0)="Y"
^XMB(3.9,139,2,179,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,139,2,180,0)="^D OPT^XPDH"
^XMB(3.9,139,2,181,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,139,2,182,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,139,2,183,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,139,2,184,0)="YES"
^XMB(3.9,139,2,185,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,139,2,186,0)="D XPZ1^XPDIQ"
^XMB(3.9,139,2,187,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,139,2,188,0)="Y"
^XMB(3.9,139,2,189,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,139,2,190,0)="^D RTN^XPDH"
^XMB(3.9,139,2,191,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,139,2,192,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,139,2,193,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,139,2,194,0)="NO"
^XMB(3.9,139,2,195,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,139,2,196,0)="D XPZ2^XPDIQ"
^XMB(3.9,139,2,197,0)="""RTN"")"
^XMB(3.9,139,2,198,0)="1"
^XMB(3.9,139,2,199,0)="""RTN"",""SDAMEP"")"
^XMB(3.9,139,2,200,0)="0^1^B6822994^B6471059"
^XMB(3.9,139,2,201,0)="""RTN"",""SDAMEP"",1,0)"
^XMB(3.9,139,2,202,0)="SDAMEP ;ALB/CAW - Extended Display ; 16 May 2001  1:46 PM"
^XMB(3.9,139,2,203,0)="""RTN"",""SDAMEP"",2,0)"
^XMB(3.9,139,2,204,0)=" ;;5.3;Scheduling;**241,334,480**;Aug 13, 1993"
^XMB(3.9,139,2,205,0)="""RTN"",""SDAMEP"",3,0)"
^XMB(3.9,139,2,206,0)=" ;"
^XMB(3.9,139,2,207,0)="""RTN"",""SDAMEP"",4,0)"
^XMB(3.9,139,2,208,0)="EN ; Selection of appointment"
^XMB(3.9,139,2,209,0)="""RTN"",""SDAMEP"",5,0)"
^XMB(3.9,139,2,210,0)=" K ^TMP(""SDAMEP"",$J)"
^XMB(3.9,139,2,211,0)="""RTN"",""SDAMEP"",6,0)"
^XMB(3.9,139,2,212,0)=" S VALMBCK="""""
^XMB(3.9,139,2,213,0)="""RTN"",""SDAMEP"",7,0)"
^XMB(3.9,139,2,214,0)=" D SEL G ENQ:'$D(SDW)!(SDERR)"
^XMB(3.9,139,2,215,0)="""RTN"",""SDAMEP"",8,0)"
^XMB(3.9,139,2,216,0)=" N SDWIDTH,SDPT,SDSC,SDPTI,SDAMEP"
^XMB(3.9,139,2,217,0)="""RTN"",""SDAMEP"",9,0)"
^XMB(3.9,139,2,218,0)=" W ! D WAIT^DICD"
^XMB(3.9,139,2,219,0)="""RTN"",""SDAMEP"",10,0)"
^XMB(3.9,139,2,220,0)=" S DFN=$P(^TMP(""SDAMIDX"",$J,SDW),U,2)"
^XMB(3.9,139,2,221,0)="""RTN"",""SDAMEP"",11,0)"
^XMB(3.9,139,2,222,0)=" D FULL^VALM1 S DIC=2,DIC(0)=""EM"",X=""`""_DFN  ;,SDAMEP=1"
^XMB(3.9,139,2,223,0)="""RTN"",""SDAMEP"",12,0)"
^XMB(3.9,139,2,224,0)=" D ^DIC I Y<0 S VALMBCK=""R"" Q"
^XMB(3.9,139,2,225,0)="""RTN"",""SDAMEP"",13,0)"
^XMB(3.9,139,2,226,0)=" D EN^VALM(""SDAM APPT PROFILE"")"
^XMB(3.9,139,2,227,0)="""RTN"",""SDAMEP"",14,0)"
^XMB(3.9,139,2,228,0)=" S VALMBCK=""R"""
^XMB(3.9,139,2,229,0)="""RTN"",""SDAMEP"",15,0)"
^XMB(3.9,139,2,230,0)="ENQ Q"
^XMB(3.9,139,2,231,0)="""RTN"",""SDAMEP"",16,0)"
^XMB(3.9,139,2,232,0)=" ;"
^XMB(3.9,139,2,233,0)="""RTN"",""SDAMEP"",17,0)"
^XMB(3.9,139,2,234,0)="HDR ; Header"
^XMB(3.9,139,2,235,0)="""RTN"",""SDAMEP"",18,0)"
^XMB(3.9,139,2,236,0)=" N VA,VAERR"
^XMB(3.9,139,2,237,0)="""RTN"",""SDAMEP"",19,0)"
^XMB(3.9,139,2,238,0)=" D PID^VADPT"
^XMB(3.9,139,2,239,0)="""RTN"",""SDAMEP"",20,0)"
^XMB(3.9,139,2,240,0)=" S VALMHDR(1)=$E($P(""Patient: ""_$G(^DPT(DFN,0)),""^"",1),1,30)_"" (""_VA(""BID"")_"")"""
^XMB(3.9,139,2,241,0)="""RTN"",""SDAMEP"",21,0)"
^XMB(3.9,139,2,242,0)=" S X=$S($D(^DPT(DFN,.1)):""Ward: ""_^(.1),1:""Outpatient"")"
^XMB(3.9,139,2,243,0)="""RTN"",""SDAMEP"",22,0)"
^XMB(3.9,139,2,244,0)=" S VALMHDR(1)=$$SETSTR^VALM1(X,VALMHDR(1),81-$L(X),$L(X))"
^XMB(3.9,139,2,245,0)="""RTN"",""SDAMEP"",23,0)"
^XMB(3.9,139,2,246,0)=" S X=""Clinic: ""_$P(^SC(SDCL,0),U)"
^XMB(3.9,139,2,247,0)="""RTN"",""SDAMEP"",24,0)"
^XMB(3.9,139,2,248,0)=" S VALMHDR(2)=$$SETSTR^VALM1(X,""Appointment #: ""_SDW,81-$L(X),$L(X))"
^XMB(3.9,139,2,249,0)="""RTN"",""SDAMEP"",25,0)"
^XMB(3.9,139,2,250,0)=" Q"
^XMB(3.9,139,2,251,0)="""RTN"",""SDAMEP"",26,0)"
^XMB(3.9,139,2,252,0)=" ;"
^XMB(3.9,139,2,253,0)="""RTN"",""SDAMEP"",27,0)"
^XMB(3.9,139,2,254,0)="INIT ;"
^XMB(3.9,139,2,255,0)="""RTN"",""SDAMEP"",28,0)"
^XMB(3.9,139,2,256,0)=" N VA,VAERR,SDFSTCOL,SDSECCOL"
^XMB(3.9,139,2,257,0)="""RTN"",""SDAMEP"",29,0)"
^XMB(3.9,139,2,258,0)=" D PID^VADPT"
^XMB(3.9,139,2,259,0)="""RTN"",""SDAMEP"",30,0)"
^XMB(3.9,139,2,260,0)=" S SDT=$P(^TMP(""SDAMIDX"",$J,SDW),U,3),DFN=$P(^(SDW),U,2),SDCL=$P(^(SDW),U,4),SDDA=$P(^(SDW),U,5),SDLN=0  ;added DFN SD*5.3*480"
^XMB(3.9,139,2,261,0)="""RTN"",""SDAMEP"",31,0)"
^XMB(3.9,139,2,262,0)=" D INIT^SDAMEP1"
^XMB(3.9,139,2,263,0)="""RTN"",""SDAMEP"",32,0)"
^XMB(3.9,139,2,264,0)=" D APDATA^SDAMEP1 ;        Appointment Data"
^XMB(3.9,139,2,265,0)="""RTN"",""SDAMEP"",33,0)"
^XMB(3.9,139,2,266,0)=" D APLOG^SDAMEP3 ;         Appointment Event Log"
^XMB(3.9,139,2,267,0)="""RTN"",""SDAMEP"",34,0)"
^XMB(3.9,139,2,268,0)=" D PDATA^SDAMEP2 ;         Patient Data"
^XMB(3.9,139,2,269,0)="""RTN"",""SDAMEP"",35,0)"
^XMB(3.9,139,2,270,0)=" D APCO^SDAMEP4 ;          Appointment Check Out Data"
^XMB(3.9,139,2,271,0)="""RTN"",""SDAMEP"",36,0)"
^XMB(3.9,139,2,272,0)=" S VALMCNT=SDLN"
^XMB(3.9,139,2,273,0)="""RTN"",""SDAMEP"",37,0)"
^XMB(3.9,139,2,274,0)=" Q"
^XMB(3.9,139,2,275,0)="""RTN"",""SDAMEP"",38,0)"
^XMB(3.9,139,2,276,0)=" ;"
^XMB(3.9,139,2,277,0)="""RTN"",""SDAMEP"",39,0)"
^XMB(3.9,139,2,278,0)="FNL ;"
^XMB(3.9,139,2,279,0)="""RTN"",""SDAMEP"",40,0)"
^XMB(3.9,139,2,280,0)=" K SD,SDOE,SDSC,SDPT,SDLN,VALMCNT,SDEIC,SDI,SDX,SDW,SDEN,SDSTATE,SDERR,SDFLG,SDMT,SDT,DGPMVI,SDDISCH,SDPV,SDPOV,SDST,SDSTA"
^XMB(3.9,139,2,281,0)="""RTN"",""SDAMEP"",41,0)"
^XMB(3.9,139,2,282,0)=" D CLEAN^VALM10"
^XMB(3.9,139,2,283,0)="""RTN"",""SDAMEP"",42,0)"
^XMB(3.9,139,2,284,0)=" Q"
^XMB(3.9,139,2,285,0)="""RTN"",""SDAMEP"",43,0)"
^XMB(3.9,139,2,286,0)=" ;"
^XMB(3.9,139,2,287,0)="""RTN"",""SDAMEP"",44,0)"
^XMB(3.9,139,2,288,0)="SEL ; -- select processing"
^XMB(3.9,139,2,289,0)="""RTN"",""SDAMEP"",45,0)"
^XMB(3.9,139,2,290,0)=" N BG,LST,Y"
^XMB(3.9,139,2,291,0)="""RTN"",""SDAMEP"",46,0)"
^XMB(3.9,139,2,292,0)=" S BG=+$O(@VALMAR@(""IDX"",VALMBG,0))"
^XMB(3.9,139,2,293,0)="""RTN"",""SDAMEP"",47,0)"
^XMB(3.9,139,2,294,0)=" S LST=+$O(@VALMAR@(""IDX"",VALMLST,0))"
^XMB(3.9,139,2,295,0)="""RTN"",""SDAMEP"",48,0)"
^XMB(3.9,139,2,296,0)=" I 'BG W !!,*7,""There are no '"",VALM(""ENTITY""),""s' to select."",! S DIR(0)=""E"" D ^DIR K DIR D OUT G SELQ"
^XMB(3.9,139,2,297,0)="""RTN"",""SDAMEP"",49,0)"
^XMB(3.9,139,2,298,0)=" S Y=+$P($P(XQORNOD(0),U,4),""="",2)"
^XMB(3.9,139,2,299,0)="""RTN"",""SDAMEP"",50,0)"
^XMB(3.9,139,2,300,0)=" I 'Y S DIR(0)=""N^""_BG_"":""_LST,DIR(""A"")=""Select ""_VALM(""ENTITY"")_""(s)"" D ^DIR K DIR I $D(DIRUT) D OUT G SELQ"
^XMB(3.9,139,2,301,0)="""RTN"",""SDAMEP"",51,0)"
^XMB(3.9,139,2,302,0)=" ;"
^XMB(3.9,139,2,303,0)="""RTN"",""SDAMEP"",52,0)"
^XMB(3.9,139,2,304,0)=" ; -- check was valid entries"
^XMB(3.9,139,2,305,0)="""RTN"",""SDAMEP"",53,0)"
^XMB(3.9,139,2,306,0)=" S SDERR=0,SDW=Y"
^XMB(3.9,139,2,307,0)="""RTN"",""SDAMEP"",54,0)"
^XMB(3.9,139,2,308,0)=" I SDW<BG!(SDW>LST) D"
^XMB(3.9,139,2,309,0)="""RTN"",""SDAMEP"",55,0)"
^XMB(3.9,139,2,310,0)=" .W !,*7,""Selection '"",SDW,""' is not a valid choice."""
^XMB(3.9,139,2,311,0)="""RTN"",""SDAMEP"",56,0)"
^XMB(3.9,139,2,312,0)=" .D OUT,PAUSE^VALM1"
^XMB(3.9,139,2,313,0)="""RTN"",""SDAMEP"",57,0)"
^XMB(3.9,139,2,314,0)=" ;"
^XMB(3.9,139,2,315,0)="""RTN"",""SDAMEP"",58,0)"
^XMB(3.9,139,2,316,0)="SELQ K DIRUT,DTOUT,DUOUT,DIROUT Q"
^XMB(3.9,139,2,317,0)="""RTN"",""SDAMEP"",59,0)"
^XMB(3.9,139,2,318,0)=" ;"
^XMB(3.9,139,2,319,0)="""RTN"",""SDAMEP"",60,0)"
^XMB(3.9,139,2,320,0)="OUT ; "
^XMB(3.9,139,2,321,0)="""RTN"",""SDAMEP"",61,0)"
^XMB(3.9,139,2,322,0)=" S SDERR=1"
^XMB(3.9,139,2,323,0)="""RTN"",""SDAMEP"",62,0)"
^XMB(3.9,139,2,324,0)=" Q"
^XMB(3.9,139,2,325,0)="""VER"")"
^XMB(3.9,139,2,326,0)="8.0^22.0"
^XMB(3.9,139,2,327,0)="""BLD"",6623,6)"
^XMB(3.9,139,2,328,0)="^389"
^XMB(3.9,139,2,329,0)="$END KID SD*5.3*480"
^XMB(3.9,139,6,0)="^3.911A^2^2"
^XMB(3.9,139,6,1,0)="POSTMASTER"
^XMB(3.9,139,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,139,6,"B","POSTMASTER",1)=""
^XMB(3.9,139,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,140,0)="SD-5P3_SEQ-391_PAT-482.KID^.5^3061008.015742^^^^K"
^XMB(3.9,140,.6)="3061008"
^XMB(3.9,140,1,0)="^3.91A^2^2"
^XMB(3.9,140,1,1,0)=".5^0^3061008.015742^^^^^^^3061008.015742"
^XMB(3.9,140,1,2,0)="1^0^3061008.022738^^^^^^^3061008.022738"
^XMB(3.9,140,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,140,1,"C",.5,1)=""
^XMB(3.9,140,1,"C",1,2)=""
^XMB(3.9,140,2,0)="^^475^475^3061008"
^XMB(3.9,140,2,1,0)="$TXT Released SD*5.3*482 SEQ #391"
^XMB(3.9,140,2,2,0)="Extracted from mail message"
^XMB(3.9,140,2,3,0)="$END TXT"
^XMB(3.9,140,2,4,0)="$KID SD*5.3*482"
^XMB(3.9,140,2,5,0)="**INSTALL NAME**"
^XMB(3.9,140,2,6,0)="SD*5.3*482"
^XMB(3.9,140,2,7,0)="""BLD"",6774,0)"
^XMB(3.9,140,2,8,0)="SD*5.3*482^SCHEDULING^0^3060721^y"
^XMB(3.9,140,2,9,0)="""BLD"",6774,1,0)"
^XMB(3.9,140,2,10,0)="^^1^1^3060605^"
^XMB(3.9,140,2,11,0)="""BLD"",6774,1,1,0)"
^XMB(3.9,140,2,12,0)="PCMM Team/POS Wait List not screening by Institution/Team."
^XMB(3.9,140,2,13,0)="""BLD"",6774,4,0)"
^XMB(3.9,140,2,14,0)="^9.64PA^^"
^XMB(3.9,140,2,15,0)="""BLD"",6774,""ABPKG"")"
^XMB(3.9,140,2,16,0)="n"
^XMB(3.9,140,2,17,0)="""BLD"",6774,""KRN"",0)"
^XMB(3.9,140,2,18,0)="^9.67PA^8989.52^19"
^XMB(3.9,140,2,19,0)="""BLD"",6774,""KRN"",.4,0)"
^XMB(3.9,140,2,20,0)=".4"
^XMB(3.9,140,2,21,0)="""BLD"",6774,""KRN"",.401,0)"
^XMB(3.9,140,2,22,0)=".401"
^XMB(3.9,140,2,23,0)="""BLD"",6774,""KRN"",.402,0)"
^XMB(3.9,140,2,24,0)=".402"
^XMB(3.9,140,2,25,0)="""BLD"",6774,""KRN"",.403,0)"
^XMB(3.9,140,2,26,0)=".403"
^XMB(3.9,140,2,27,0)="""BLD"",6774,""KRN"",.5,0)"
^XMB(3.9,140,2,28,0)=".5"
^XMB(3.9,140,2,29,0)="""BLD"",6774,""KRN"",.84,0)"
^XMB(3.9,140,2,30,0)=".84"
^XMB(3.9,140,2,31,0)="""BLD"",6774,""KRN"",3.6,0)"
^XMB(3.9,140,2,32,0)="3.6"
^XMB(3.9,140,2,33,0)="""BLD"",6774,""KRN"",3.8,0)"
^XMB(3.9,140,2,34,0)="3.8"
^XMB(3.9,140,2,35,0)="""BLD"",6774,""KRN"",9.2,0)"
^XMB(3.9,140,2,36,0)="9.2"
^XMB(3.9,140,2,37,0)="""BLD"",6774,""KRN"",9.8,0)"
^XMB(3.9,140,2,38,0)="9.8"
^XMB(3.9,140,2,39,0)="""BLD"",6774,""KRN"",9.8,""NM"",0)"
^XMB(3.9,140,2,40,0)="^9.68A^1^1"
^XMB(3.9,140,2,41,0)="""BLD"",6774,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,140,2,42,0)="SDWLRQ2^^0^B37614322"
^XMB(3.9,140,2,43,0)="""BLD"",6774,""KRN"",9.8,""NM"",""B"",""SDWLRQ2"",1)"
^XMB(3.9,140,2,44,0)=""
^XMB(3.9,140,2,45,0)="""BLD"",6774,""KRN"",19,0)"
^XMB(3.9,140,2,46,0)="19"
^XMB(3.9,140,2,47,0)="""BLD"",6774,""KRN"",19.1,0)"
^XMB(3.9,140,2,48,0)="19.1"
^XMB(3.9,140,2,49,0)="""BLD"",6774,""KRN"",101,0)"
^XMB(3.9,140,2,50,0)="101"
^XMB(3.9,140,2,51,0)="""BLD"",6774,""KRN"",409.61,0)"
^XMB(3.9,140,2,52,0)="409.61"
^XMB(3.9,140,2,53,0)="""BLD"",6774,""KRN"",771,0)"
^XMB(3.9,140,2,54,0)="771"
^XMB(3.9,140,2,55,0)="""BLD"",6774,""KRN"",870,0)"
^XMB(3.9,140,2,56,0)="870"
^XMB(3.9,140,2,57,0)="""BLD"",6774,""KRN"",8989.51,0)"
^XMB(3.9,140,2,58,0)="8989.51"
^XMB(3.9,140,2,59,0)="""BLD"",6774,""KRN"",8989.52,0)"
^XMB(3.9,140,2,60,0)="8989.52"
^XMB(3.9,140,2,61,0)="""BLD"",6774,""KRN"",8994,0)"
^XMB(3.9,140,2,62,0)="8994"
^XMB(3.9,140,2,63,0)="""BLD"",6774,""KRN"",""B"",.4,.4)"
^XMB(3.9,140,2,64,0)=""
^XMB(3.9,140,2,65,0)="""BLD"",6774,""KRN"",""B"",.401,.401)"
^XMB(3.9,140,2,66,0)=""
^XMB(3.9,140,2,67,0)="""BLD"",6774,""KRN"",""B"",.402,.402)"
^XMB(3.9,140,2,68,0)=""
^XMB(3.9,140,2,69,0)="""BLD"",6774,""KRN"",""B"",.403,.403)"
^XMB(3.9,140,2,70,0)=""
^XMB(3.9,140,2,71,0)="""BLD"",6774,""KRN"",""B"",.5,.5)"
^XMB(3.9,140,2,72,0)=""
^XMB(3.9,140,2,73,0)="""BLD"",6774,""KRN"",""B"",.84,.84)"
^XMB(3.9,140,2,74,0)=""
^XMB(3.9,140,2,75,0)="""BLD"",6774,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,140,2,76,0)=""
^XMB(3.9,140,2,77,0)="""BLD"",6774,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,140,2,78,0)=""
^XMB(3.9,140,2,79,0)="""BLD"",6774,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,140,2,80,0)=""
^XMB(3.9,140,2,81,0)="""BLD"",6774,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,140,2,82,0)=""
^XMB(3.9,140,2,83,0)="""BLD"",6774,""KRN"",""B"",19,19)"
^XMB(3.9,140,2,84,0)=""
^XMB(3.9,140,2,85,0)="""BLD"",6774,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,140,2,86,0)=""
^XMB(3.9,140,2,87,0)="""BLD"",6774,""KRN"",""B"",101,101)"
^XMB(3.9,140,2,88,0)=""
^XMB(3.9,140,2,89,0)="""BLD"",6774,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,140,2,90,0)=""
^XMB(3.9,140,2,91,0)="""BLD"",6774,""KRN"",""B"",771,771)"
^XMB(3.9,140,2,92,0)=""
^XMB(3.9,140,2,93,0)="""BLD"",6774,""KRN"",""B"",870,870)"
^XMB(3.9,140,2,94,0)=""
^XMB(3.9,140,2,95,0)="""BLD"",6774,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,140,2,96,0)=""
^XMB(3.9,140,2,97,0)="""BLD"",6774,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,140,2,98,0)=""
^XMB(3.9,140,2,99,0)="""BLD"",6774,""KRN"",""B"",8994,8994)"
^XMB(3.9,140,2,100,0)=""
^XMB(3.9,140,2,101,0)="""BLD"",6774,""QUES"",0)"
^XMB(3.9,140,2,102,0)="^9.62^^"
^XMB(3.9,140,2,103,0)="""BLD"",6774,""REQB"",0)"
^XMB(3.9,140,2,104,0)="^9.611^1^1"
^XMB(3.9,140,2,105,0)="""BLD"",6774,""REQB"",1,0)"
^XMB(3.9,140,2,106,0)="SD*5.3*425^2"
^XMB(3.9,140,2,107,0)="""BLD"",6774,""REQB"",""B"",""SD*5.3*425"",1)"
^XMB(3.9,140,2,108,0)=""
^XMB(3.9,140,2,109,0)="""MBREQ"")"
^XMB(3.9,140,2,110,0)="0"
^XMB(3.9,140,2,111,0)="""PKG"",16,-1)"
^XMB(3.9,140,2,112,0)="1^1"
^XMB(3.9,140,2,113,0)="""PKG"",16,0)"
^XMB(3.9,140,2,114,0)="SCHEDULING^SD^APPOINTMENTS,PROFILES,LETTERS,AMIS REPORTS"
^XMB(3.9,140,2,115,0)="""PKG"",16,20,0)"
^XMB(3.9,140,2,116,0)="^9.402P^^"
^XMB(3.9,140,2,117,0)="""PKG"",16,22,0)"
^XMB(3.9,140,2,118,0)="^9.49I^1^1"
^XMB(3.9,140,2,119,0)="""PKG"",16,22,1,0)"
^XMB(3.9,140,2,120,0)="5.3^2930813"
^XMB(3.9,140,2,121,0)="""PKG"",16,22,1,""PAH"",1,0)"
^XMB(3.9,140,2,122,0)="482^3060721"
^XMB(3.9,140,2,123,0)="""PKG"",16,22,1,""PAH"",1,1,0)"
^XMB(3.9,140,2,124,0)="^^1^1^3060721"
^XMB(3.9,140,2,125,0)="""PKG"",16,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,140,2,126,0)="PCMM Team/POS Wait List not screening by Institution/Team."
^XMB(3.9,140,2,127,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,140,2,128,0)="Y"
^XMB(3.9,140,2,129,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,140,2,130,0)="^D REP^XPDH"
^XMB(3.9,140,2,131,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,140,2,132,0)="Shall I write over your |FLAG| File"
^XMB(3.9,140,2,133,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,140,2,134,0)="YES"
^XMB(3.9,140,2,135,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,140,2,136,0)="D XPF1^XPDIQ"
^XMB(3.9,140,2,137,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,140,2,138,0)="Y"
^XMB(3.9,140,2,139,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,140,2,140,0)="^D DTA^XPDH"
^XMB(3.9,140,2,141,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,140,2,142,0)="Want my data |FLAG| yours"
^XMB(3.9,140,2,143,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,140,2,144,0)="YES"
^XMB(3.9,140,2,145,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,140,2,146,0)="D XPF2^XPDIQ"
^XMB(3.9,140,2,147,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,140,2,148,0)="YO"
^XMB(3.9,140,2,149,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,140,2,150,0)="^D INHIBIT^XPDH"
^XMB(3.9,140,2,151,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,140,2,152,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,140,2,153,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,140,2,154,0)="YES"
^XMB(3.9,140,2,155,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,140,2,156,0)="D XPI1^XPDIQ"
^XMB(3.9,140,2,157,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,140,2,158,0)="PO^VA(200,:EM"
^XMB(3.9,140,2,159,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,140,2,160,0)="^D MG^XPDH"
^XMB(3.9,140,2,161,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,140,2,162,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,140,2,163,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,140,2,164,0)=""
^XMB(3.9,140,2,165,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,140,2,166,0)="D XPM1^XPDIQ"
^XMB(3.9,140,2,167,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,140,2,168,0)="Y"
^XMB(3.9,140,2,169,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,140,2,170,0)="^D MENU^XPDH"
^XMB(3.9,140,2,171,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,140,2,172,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,140,2,173,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,140,2,174,0)="YES"
^XMB(3.9,140,2,175,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,140,2,176,0)="D XPO1^XPDIQ"
^XMB(3.9,140,2,177,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,140,2,178,0)="Y"
^XMB(3.9,140,2,179,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,140,2,180,0)="^D OPT^XPDH"
^XMB(3.9,140,2,181,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,140,2,182,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,140,2,183,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,140,2,184,0)="YES"
^XMB(3.9,140,2,185,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,140,2,186,0)="D XPZ1^XPDIQ"
^XMB(3.9,140,2,187,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,140,2,188,0)="Y"
^XMB(3.9,140,2,189,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,140,2,190,0)="^D RTN^XPDH"
^XMB(3.9,140,2,191,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,140,2,192,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,140,2,193,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,140,2,194,0)="NO"
^XMB(3.9,140,2,195,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,140,2,196,0)="D XPZ2^XPDIQ"
^XMB(3.9,140,2,197,0)="""RTN"")"
^XMB(3.9,140,2,198,0)="1"
^XMB(3.9,140,2,199,0)="""RTN"",""SDWLRQ2"")"
^XMB(3.9,140,2,200,0)="0^1^B37614322^B34443810"
^XMB(3.9,140,2,201,0)="""RTN"",""SDWLRQ2"",1,0)"
^XMB(3.9,140,2,202,0)="SDWLRQ2 ;;IOFO BAY PINES/TEH - ADHOC WAIT LIST REPORT PRIM CARE TEAM AND POSITION ASSIGNMENTS;06/12/2002 ; 29 Aug 2002  2:53 PM"
^XMB(3.9,140,2,203,0)="""RTN"",""SDWLRQ2"",2,0)"
^XMB(3.9,140,2,204,0)=" ;;5.3;scheduling;**263,425,482**;AUG 13 1993"
^XMB(3.9,140,2,205,0)="""RTN"",""SDWLRQ2"",3,0)"
^XMB(3.9,140,2,206,0)=" ;"
^XMB(3.9,140,2,207,0)="""RTN"",""SDWLRQ2"",4,0)"
^XMB(3.9,140,2,208,0)=" ;"
^XMB(3.9,140,2,209,0)="""RTN"",""SDWLRQ2"",5,0)"
^XMB(3.9,140,2,210,0)=" ;******************************************************************"
^XMB(3.9,140,2,211,0)="""RTN"",""SDWLRQ2"",6,0)"
^XMB(3.9,140,2,212,0)=" ;                             CHANGE LOG"
^XMB(3.9,140,2,213,0)="""RTN"",""SDWLRQ2"",7,0)"
^XMB(3.9,140,2,214,0)=" ;                                               "
^XMB(3.9,140,2,215,0)="""RTN"",""SDWLRQ2"",8,0)"
^XMB(3.9,140,2,216,0)=" ;   DATE                        PATCH                   DESCRIPTION"
^XMB(3.9,140,2,217,0)="""RTN"",""SDWLRQ2"",9,0)"
^XMB(3.9,140,2,218,0)=" ;   ----                        -----                   -----------"
^XMB(3.9,140,2,219,0)="""RTN"",""SDWLRQ2"",10,0)"
^XMB(3.9,140,2,220,0)=" ;   "
^XMB(3.9,140,2,221,0)="""RTN"",""SDWLRQ2"",11,0)"
^XMB(3.9,140,2,222,0)=" ;   "
^XMB(3.9,140,2,223,0)="""RTN"",""SDWLRQ2"",12,0)"
^XMB(3.9,140,2,224,0)=" ;   "
^XMB(3.9,140,2,225,0)="""RTN"",""SDWLRQ2"",13,0)"
^XMB(3.9,140,2,226,0)=" ;   "
^XMB(3.9,140,2,227,0)="""RTN"",""SDWLRQ2"",14,0)"
^XMB(3.9,140,2,228,0)="EN ;Header"
^XMB(3.9,140,2,229,0)="""RTN"",""SDWLRQ2"",15,0)"
^XMB(3.9,140,2,230,0)=" N ZCODE,ZTDESC,ZTDTH,ZTIO,ZTQUEDED,ZTREQ,ZTRTN,ZTSAVE,ZTSK"
^XMB(3.9,140,2,231,0)="""RTN"",""SDWLRQ2"",16,0)"
^XMB(3.9,140,2,232,0)=" N SDTEAM,SDHIST,SDACTIVE"
^XMB(3.9,140,2,233,0)="""RTN"",""SDWLRQ2"",17,0)"
^XMB(3.9,140,2,234,0)=" D HD"
^XMB(3.9,140,2,235,0)="""RTN"",""SDWLRQ2"",18,0)"
^XMB(3.9,140,2,236,0)="1 S SDWLINST="""",SDWLERR=0,SDWLE=0 K ^TMP(""SDWLRQ2"",$J),DIC,DIR,DR,DIE"
^XMB(3.9,140,2,237,0)="""RTN"",""SDWLRQ2"",19,0)"
^XMB(3.9,140,2,238,0)=" D INS G END:SDWLERR"
^XMB(3.9,140,2,239,0)="""RTN"",""SDWLRQ2"",20,0)"
^XMB(3.9,140,2,240,0)="2 D CAT G 1:SDWLERR"
^XMB(3.9,140,2,241,0)="""RTN"",""SDWLRQ2"",21,0)"
^XMB(3.9,140,2,242,0)="3 D OPEN G 2:SDWLERR"
^XMB(3.9,140,2,243,0)="""RTN"",""SDWLRQ2"",22,0)"
^XMB(3.9,140,2,244,0)=" S ^TMP(""SDWLRQ2"",$J,""DATE"")="""""
^XMB(3.9,140,2,245,0)="""RTN"",""SDWLRQ2"",23,0)"
^XMB(3.9,140,2,246,0)="4 I %=2 D DATE G 3:SDWLERR"
^XMB(3.9,140,2,247,0)="""RTN"",""SDWLRQ2"",24,0)"
^XMB(3.9,140,2,248,0)="6 D FORM G 4:SDWLERR,END:$D(DUOUT)"
^XMB(3.9,140,2,249,0)="""RTN"",""SDWLRQ2"",25,0)"
^XMB(3.9,140,2,250,0)="7 D DIS G EN:SDWLERR=1,END:SDWLERR=2"
^XMB(3.9,140,2,251,0)="""RTN"",""SDWLRQ2"",26,0)"
^XMB(3.9,140,2,252,0)=" D QUE"
^XMB(3.9,140,2,253,0)="""RTN"",""SDWLRQ2"",27,0)"
^XMB(3.9,140,2,254,0)=" Q"
^XMB(3.9,140,2,255,0)="""RTN"",""SDWLRQ2"",28,0)"
^XMB(3.9,140,2,256,0)="INS ;Get Institution"
^XMB(3.9,140,2,257,0)="""RTN"",""SDWLRQ2"",29,0)"
^XMB(3.9,140,2,258,0)=" S SDWLPROM=""Select Institution ALL // "",SDWLERR=0"
^XMB(3.9,140,2,259,0)="""RTN"",""SDWLRQ2"",30,0)"
^XMB(3.9,140,2,260,0)="IN W ! S DIC(0)=""QEMA"",DIC(""A"")=SDWLPROM,DIC=4,DIC(""S"")=""I $D(^SCTM(404.51,""""AINST"""",+Y))"" D ^DIC I Y<0,'SDWLE D"
^XMB(3.9,140,2,261,0)="""RTN"",""SDWLRQ2"",31,0)"
^XMB(3.9,140,2,262,0)=" .S (SDWLINS,SDWLINST)="""" F  S SDWLINS=$O(^SCTM(404.51,""AINST"",SDWLINS)) Q:SDWLINS=""""  S SDWLINST=SDWLINST_SDWLINS_"";"""
^XMB(3.9,140,2,263,0)="""RTN"",""SDWLRQ2"",32,0)"
^XMB(3.9,140,2,264,0)=" I X=""^"" S SDWLERR=1 Q"
^XMB(3.9,140,2,265,0)="""RTN"",""SDWLRQ2"",33,0)"
^XMB(3.9,140,2,266,0)=" G IN2:Y<0,END:$D(DUOUT)"
^XMB(3.9,140,2,267,0)="""RTN"",""SDWLRQ2"",34,0)"
^XMB(3.9,140,2,268,0)=" I Y=""All""!(Y="""")!(Y=""all"")!(Y=""ALL"") S ^TMP(""SDWLRQ2"",$J,""INS"")=SDWLINST G IN3"
^XMB(3.9,140,2,269,0)="""RTN"",""SDWLRQ2"",35,0)"
^XMB(3.9,140,2,270,0)=" S SDWLINST=SDWLINST_+Y_"";"",SDWLPROM=""Another Institution: "",SDWLE=1 G IN"
^XMB(3.9,140,2,271,0)="""RTN"",""SDWLRQ2"",36,0)"
^XMB(3.9,140,2,272,0)="IN2 S ^TMP(""SDWLRQ2"",$J,""INS"")=SDWLINST"
^XMB(3.9,140,2,273,0)="""RTN"",""SDWLRQ2"",37,0)"
^XMB(3.9,140,2,274,0)="IN3 Q"
^XMB(3.9,140,2,275,0)="""RTN"",""SDWLRQ2"",38,0)"
^XMB(3.9,140,2,276,0)="DATE ;Date range selection"
^XMB(3.9,140,2,277,0)="""RTN"",""SDWLRQ2"",39,0)"
^XMB(3.9,140,2,278,0)=" S %=1 W !,""Print Report for ALL dates? "" D YN^DICN"
^XMB(3.9,140,2,279,0)="""RTN"",""SDWLRQ2"",40,0)"
^XMB(3.9,140,2,280,0)=" I %=1 S ^TMP(""SDWLRQ2"",$J,""DATE"")=""ALL"" G E1"
^XMB(3.9,140,2,281,0)="""RTN"",""SDWLRQ2"",41,0)"
^XMB(3.9,140,2,282,0)=" Q:%=0"
^XMB(3.9,140,2,283,0)="""RTN"",""SDWLRQ2"",42,0)"
^XMB(3.9,140,2,284,0)=" Q:%=-1"
^XMB(3.9,140,2,285,0)="""RTN"",""SDWLRQ2"",43,0)"
^XMB(3.9,140,2,286,0)=" S SDWLERR=0 W ! S %DT=""AE"",%DT(""A"")=""Start with Date Entered: "" D ^%DT G E1:Y<1 S SDWLBDT=Y"
^XMB(3.9,140,2,287,0)="""RTN"",""SDWLRQ2"",44,0)"
^XMB(3.9,140,2,288,0)=" S %DT(0)=SDWLBDT,%DT(""A"")=""End with Date Entered: "" D ^%DT"
^XMB(3.9,140,2,289,0)="""RTN"",""SDWLRQ2"",45,0)"
^XMB(3.9,140,2,290,0)=" I X[""^"" S SDWLERR=1 Q"
^XMB(3.9,140,2,291,0)="""RTN"",""SDWLRQ2"",46,0)"
^XMB(3.9,140,2,292,0)=" G E1:Y<1 S SDWLEDT=Y K %DT(0),%DT(""A"")"
^XMB(3.9,140,2,293,0)="""RTN"",""SDWLRQ2"",47,0)"
^XMB(3.9,140,2,294,0)=" I SDWLEDT<SDWLBDT W !,""Beginning Date must be greater than Ending Date."" G DATE"
^XMB(3.9,140,2,295,0)="""RTN"",""SDWLRQ2"",48,0)"
^XMB(3.9,140,2,296,0)=" S ^TMP(""SDWLRQ2"",$J,""DATE"")=SDWLBDT_""^""_SDWLEDT Q"
^XMB(3.9,140,2,297,0)="""RTN"",""SDWLRQ2"",49,0)"
^XMB(3.9,140,2,298,0)="E1 Q"
^XMB(3.9,140,2,299,0)="""RTN"",""SDWLRQ2"",50,0)"
^XMB(3.9,140,2,300,0)="CAT ;Report category selection"
^XMB(3.9,140,2,301,0)="""RTN"",""SDWLRQ2"",51,0)"
^XMB(3.9,140,2,302,0)=" W !!,""    *** Report Category Selection ***"" S SDWLERR=0"
^XMB(3.9,140,2,303,0)="""RTN"",""SDWLRQ2"",52,0)"
^XMB(3.9,140,2,304,0)=" S SDWLERR=0,SDWLCAT="""",DIR(0)=""S0^1:Team;2:Position"",DIR(""L"",1)=""     1. Team"",DIR(""L"")=""     2. Position"""
^XMB(3.9,140,2,305,0)="""RTN"",""SDWLRQ2"",53,0)"
^XMB(3.9,140,2,306,0)=" D ^DIR"
^XMB(3.9,140,2,307,0)="""RTN"",""SDWLRQ2"",54,0)"
^XMB(3.9,140,2,308,0)=" I X=""^"" S SDWLERR=1 Q"
^XMB(3.9,140,2,309,0)="""RTN"",""SDWLRQ2"",55,0)"
^XMB(3.9,140,2,310,0)=" S X=$S(X[""T"":""T"",X[""t"":""T"",X[""P"":""P"",X[""p"":""P"",X=1:""T"",X=2:""P"",1:"""")"
^XMB(3.9,140,2,311,0)="""RTN"",""SDWLRQ2"",56,0)"
^XMB(3.9,140,2,312,0)=" I X="""" W *7,"" Invalid Selection."" G CAT"
^XMB(3.9,140,2,313,0)="""RTN"",""SDWLRQ2"",57,0)"
^XMB(3.9,140,2,314,0)=" W !!,""Select Category for Report Output"",!"
^XMB(3.9,140,2,315,0)="""RTN"",""SDWLRQ2"",58,0)"
^XMB(3.9,140,2,316,0)=" S SDWLX=$S(X=""T"":""Team: ALL/ "",X=""P"":""Position: ALL/ "")"
^XMB(3.9,140,2,317,0)="""RTN"",""SDWLRQ2"",59,0)"
^XMB(3.9,140,2,318,0)=" S SDWLF=$S(X=""T"":404.51,X=""P"":404.57)"
^XMB(3.9,140,2,319,0)="""RTN"",""SDWLRQ2"",60,0)"
^XMB(3.9,140,2,320,0)=" K DIR,DIC,DR"
^XMB(3.9,140,2,321,0)="""RTN"",""SDWLRQ2"",61,0)"
^XMB(3.9,140,2,322,0)=" S ^TMP(""SDWLRQ2"",$J,""CT1"")=X_""^""_SDWLF"
^XMB(3.9,140,2,323,0)="""RTN"",""SDWLRQ2"",62,0)"
^XMB(3.9,140,2,324,0)=" S DIC(""A"")=SDWLX"
^XMB(3.9,140,2,325,0)="""RTN"",""SDWLRQ2"",63,0)"
^XMB(3.9,140,2,326,0)=" I SDWLF=404.51 D"
^XMB(3.9,140,2,327,0)="""RTN"",""SDWLRQ2"",64,0)"
^XMB(3.9,140,2,328,0)=" .S DIC(""S"")=""I $$ACTIVE^SDWLRQ2(Y),SDWLINST[+$P($G(^SCTM(404.51,+Y,0)),""""^"""",7)"""
^XMB(3.9,140,2,329,0)="""RTN"",""SDWLRQ2"",65,0)"
^XMB(3.9,140,2,330,0)="CT1 W ! S DIC(0)=""QEMNZA"",DIC=SDWLF D ^DIC"
^XMB(3.9,140,2,331,0)="""RTN"",""SDWLRQ2"",66,0)"
^XMB(3.9,140,2,332,0)=" I X=""^"" S SDWLERR=1 Q"
^XMB(3.9,140,2,333,0)="""RTN"",""SDWLRQ2"",67,0)"
^XMB(3.9,140,2,334,0)=" I Y<1,SDWLCAT="""" S ^TMP(""SDWLRQ2"",$J,""CT2"")=""ALL"" G CT3"
^XMB(3.9,140,2,335,0)="""RTN"",""SDWLRQ2"",68,0)"
^XMB(3.9,140,2,336,0)=" I Y<0,'$D(^TMP(""SDWLRQ2"",$J,""CT1"")) W !,""This Entry is Required."" G CAT"
^XMB(3.9,140,2,337,0)="""RTN"",""SDWLRQ2"",69,0)"
^XMB(3.9,140,2,338,0)=" G CT2:Y<0"
^XMB(3.9,140,2,339,0)="""RTN"",""SDWLRQ2"",70,0)"
^XMB(3.9,140,2,340,0)=" S SDWLCAT=SDWLCAT_Y_"";"",DIC(""A"")=""Another ""_$P(SDWLX,"":"",1)_"": "",SDWLE=1 G CT1"
^XMB(3.9,140,2,341,0)="""RTN"",""SDWLRQ2"",71,0)"
^XMB(3.9,140,2,342,0)="CT2 G CT1:'$D(SDWLCAT) S ^TMP(""SDWLRQ2"",$J,""CT2"")=SDWLCAT"
^XMB(3.9,140,2,343,0)="""RTN"",""SDWLRQ2"",72,0)"
^XMB(3.9,140,2,344,0)="CT3 Q"
^XMB(3.9,140,2,345,0)="""RTN"",""SDWLRQ2"",73,0)"
^XMB(3.9,140,2,346,0)="OPEN ;OPEN Wait List Entries  "
^XMB(3.9,140,2,347,0)="""RTN"",""SDWLRQ2"",74,0)"
^XMB(3.9,140,2,348,0)=" S %=1 W !!,""Do you want only 'OPEN' Wait List Entries "" D YN^DICN"
^XMB(3.9,140,2,349,0)="""RTN"",""SDWLRQ2"",75,0)"
^XMB(3.9,140,2,350,0)=" I '% W *7,""Must Enter 'YES' or 'NO'."" G OPEN"
^XMB(3.9,140,2,351,0)="""RTN"",""SDWLRQ2"",76,0)"
^XMB(3.9,140,2,352,0)=" I %=-1 S SDWLERR=1"
^XMB(3.9,140,2,353,0)="""RTN"",""SDWLRQ2"",77,0)"
^XMB(3.9,140,2,354,0)=" S ^TMP(""SDWLRQ2"",$J,""OPEN"")=$S(%=1:""O"",1:""C"")"
^XMB(3.9,140,2,355,0)="""RTN"",""SDWLRQ2"",78,0)"
^XMB(3.9,140,2,356,0)=" Q"
^XMB(3.9,140,2,357,0)="""RTN"",""SDWLRQ2"",79,0)"
^XMB(3.9,140,2,358,0)="FORM ;Report Format"
^XMB(3.9,140,2,359,0)="""RTN"",""SDWLRQ2"",80,0)"
^XMB(3.9,140,2,360,0)=" S SDWLERR=0,DIR(0)=""SO^1:Detailed;2:Summary"",DIR(""L"",2)=""     1. Detailed"""
^XMB(3.9,140,2,361,0)="""RTN"",""SDWLRQ2"",81,0)"
^XMB(3.9,140,2,362,0)=" S DIR(""L"")=""     2. Summary"",DIR(""L"",1)=""Select One of the Following: """
^XMB(3.9,140,2,363,0)="""RTN"",""SDWLRQ2"",82,0)"
^XMB(3.9,140,2,364,0)=" D ^DIR"
^XMB(3.9,140,2,365,0)="""RTN"",""SDWLRQ2"",83,0)"
^XMB(3.9,140,2,366,0)=" I X=""^"" S DUOUT=1 Q"
^XMB(3.9,140,2,367,0)="""RTN"",""SDWLRQ2"",84,0)"
^XMB(3.9,140,2,368,0)=" S X=$S(X[""S"":""S"",X[""s"":""S"",X[""D"":""D"",X[""d"":""D"",X=1:""D"",X=2:""S"",1:"""")"
^XMB(3.9,140,2,369,0)="""RTN"",""SDWLRQ2"",85,0)"
^XMB(3.9,140,2,370,0)=" I X="""" W *7,"" Invalid Response"" G FORM"
^XMB(3.9,140,2,371,0)="""RTN"",""SDWLRQ2"",86,0)"
^XMB(3.9,140,2,372,0)=" S ^TMP(""SDWLRQ2"",$J,""FORM"")=X"
^XMB(3.9,140,2,373,0)="""RTN"",""SDWLRQ2"",87,0)"
^XMB(3.9,140,2,374,0)=" Q"
^XMB(3.9,140,2,375,0)="""RTN"",""SDWLRQ2"",88,0)"
^XMB(3.9,140,2,376,0)="DIS ;Display Parameters"
^XMB(3.9,140,2,377,0)="""RTN"",""SDWLRQ2"",89,0)"
^XMB(3.9,140,2,378,0)=" S SDWLERR=0 W !!,?80-$L(""*** Selected Report Parameters ***"")\2,""*** Selected Report Parameters ***"",!"
^XMB(3.9,140,2,379,0)="""RTN"",""SDWLRQ2"",90,0)"
^XMB(3.9,140,2,380,0)=" F SDWLI=""INS"",""CT1"",""CT2"",""FORM"",""OPEN"" D"
^XMB(3.9,140,2,381,0)="""RTN"",""SDWLRQ2"",91,0)"
^XMB(3.9,140,2,382,0)=" .S X=""SDWL""_SDWLI,@X=$G(^TMP(""SDWLRQ2"",$J,SDWLI))"
^XMB(3.9,140,2,383,0)="""RTN"",""SDWLRQ2"",92,0)"
^XMB(3.9,140,2,384,0)=" F SDWLTAG=""IS"",""CT"",""OP"",""PR"" D @SDWLTAG"
^XMB(3.9,140,2,385,0)="""RTN"",""SDWLRQ2"",93,0)"
^XMB(3.9,140,2,386,0)=" Q"
^XMB(3.9,140,2,387,0)="""RTN"",""SDWLRQ2"",94,0)"
^XMB(3.9,140,2,388,0)="IS I SDWLINS'[""ALL"" D"
^XMB(3.9,140,2,389,0)="""RTN"",""SDWLRQ2"",95,0)"
^XMB(3.9,140,2,390,0)=" .K SDWLY F I=1:1 S SDWLY=$P($P(SDWLINS,"";"",I),U,1) Q:SDWLY=""""  S SDWLY(I)=SDWLY"
^XMB(3.9,140,2,391,0)="""RTN"",""SDWLRQ2"",96,0)"
^XMB(3.9,140,2,392,0)=" .W !,?20,""Institution: """
^XMB(3.9,140,2,393,0)="""RTN"",""SDWLRQ2"",97,0)"
^XMB(3.9,140,2,394,0)=" .I $D(SDWLY) S I="""" F  S I=$O(SDWLY(I)) Q:I=""""  W:I>1 !,?33 W $P($G(^DIC(4,SDWLY(I),0)),U,1)"
^XMB(3.9,140,2,395,0)="""RTN"",""SDWLRQ2"",98,0)"
^XMB(3.9,140,2,396,0)=" .K SDWLY"
^XMB(3.9,140,2,397,0)="""RTN"",""SDWLRQ2"",99,0)"
^XMB(3.9,140,2,398,0)=" I SDWLINS[""ALL"" W !,?20,""Institution: ALL """
^XMB(3.9,140,2,399,0)="""RTN"",""SDWLRQ2"",100,0)"
^XMB(3.9,140,2,400,0)=" Q"
^XMB(3.9,140,2,401,0)="""RTN"",""SDWLRQ2"",101,0)"
^XMB(3.9,140,2,402,0)="CT I SDWLCT2'[""ALL"" D"
^XMB(3.9,140,2,403,0)="""RTN"",""SDWLRQ2"",102,0)"
^XMB(3.9,140,2,404,0)=" .S SDWLF=$P(SDWLCT1,U,2)"
^XMB(3.9,140,2,405,0)="""RTN"",""SDWLRQ2"",103,0)"
^XMB(3.9,140,2,406,0)=" .K SDWLY F I=1:1 S SDWLY=$P($P(SDWLCT2,"";"",I),U,2) Q:SDWLY=""""  S SDWLY(I)=SDWLY"
^XMB(3.9,140,2,407,0)="""RTN"",""SDWLRQ2"",104,0)"
^XMB(3.9,140,2,408,0)=" .W !,?16,""Report Category: "" W $S(SDWLCT1[""T"":""Team"",1:""Position""),!,?36 I @X=""ALL"" W ""All """
^XMB(3.9,140,2,409,0)="""RTN"",""SDWLRQ2"",105,0)"
^XMB(3.9,140,2,410,0)=" .I $D(SDWLY) S I="""" F   S I=$O(SDWLY(I)) Q:I=""""  W:I>1 !,?35 W $$EXTERNAL^DILFD(SDWLF,.01,,SDWLY(I))"
^XMB(3.9,140,2,411,0)="""RTN"",""SDWLRQ2"",106,0)"
^XMB(3.9,140,2,412,0)=" I SDWLCT2[""ALL"" W !,?16,""Report Category: "" W $S(SDWLCT1[""T"":""Team"",1:""Position""),!,?36 W ""ALL """
^XMB(3.9,140,2,413,0)="""RTN"",""SDWLRQ2"",107,0)"
^XMB(3.9,140,2,414,0)=" Q"
^XMB(3.9,140,2,415,0)="""RTN"",""SDWLRQ2"",108,0)"
^XMB(3.9,140,2,416,0)="OP W !,?18,""Output Format: "",$S(SDWLFORM=""D"":"" Detailed"",1:"" Summary"")"
^XMB(3.9,140,2,417,0)="""RTN"",""SDWLRQ2"",109,0)"
^XMB(3.9,140,2,418,0)=" Q"
^XMB(3.9,140,2,419,0)="""RTN"",""SDWLRQ2"",110,0)"
^XMB(3.9,140,2,420,0)="PR I SDWLOPEN=""O"" W !,?25,""Printing 'OPEN' Entries Only."""
^XMB(3.9,140,2,421,0)="""RTN"",""SDWLRQ2"",111,0)"
^XMB(3.9,140,2,422,0)=" E  W !,?25,""Printing ALL Entries."""
^XMB(3.9,140,2,423,0)="""RTN"",""SDWLRQ2"",112,0)"
^XMB(3.9,140,2,424,0)=" S %=1 W !!,""Are these Parameters Correct "" D YN^DICN I %=2 S SDWLERR=1 W !,""  This Report will NOT be queued to print."""
^XMB(3.9,140,2,425,0)="""RTN"",""SDWLRQ2"",113,0)"
^XMB(3.9,140,2,426,0)=" I SDWLERR S DIR(0)=""E"" D ^DIR I X[""^"" S SDWLERR=2"
^XMB(3.9,140,2,427,0)="""RTN"",""SDWLRQ2"",114,0)"
^XMB(3.9,140,2,428,0)=" Q"
^XMB(3.9,140,2,429,0)="""RTN"",""SDWLRQ2"",115,0)"
^XMB(3.9,140,2,430,0)="ACTIVE(Y) ;Active Team"
^XMB(3.9,140,2,431,0)="""RTN"",""SDWLRQ2"",116,0)"
^XMB(3.9,140,2,432,0)=" S SDTEAM="""",SDHIST="""",SDACTIVE="""""
^XMB(3.9,140,2,433,0)="""RTN"",""SDWLRQ2"",117,0)"
^XMB(3.9,140,2,434,0)=" I SDWLF=""404.51"" D"
^XMB(3.9,140,2,435,0)="""RTN"",""SDWLRQ2"",118,0)"
^XMB(3.9,140,2,436,0)=" .S SDHIST=$O(^SCTM(404.58,""B"",+Y,SDHIST),-1)"
^XMB(3.9,140,2,437,0)="""RTN"",""SDWLRQ2"",119,0)"
^XMB(3.9,140,2,438,0)=" .S SDACTIVE=$P($G(^SCTM(404.58,+SDHIST,0)),""^"",3)"
^XMB(3.9,140,2,439,0)="""RTN"",""SDWLRQ2"",120,0)"
^XMB(3.9,140,2,440,0)=" Q +SDACTIVE"
^XMB(3.9,140,2,441,0)="""RTN"",""SDWLRQ2"",121,0)"
^XMB(3.9,140,2,442,0)="QUE ;Queue Report"
^XMB(3.9,140,2,443,0)="""RTN"",""SDWLRQ2"",122,0)"
^XMB(3.9,140,2,444,0)=" N ZTQUEUED,POP"
^XMB(3.9,140,2,445,0)="""RTN"",""SDWLRQ2"",123,0)"
^XMB(3.9,140,2,446,0)=" K %ZIS,IOP,IOC,ZTIO,SDWLSPT S %ZIS=""MQ"" D ^%ZIS G:POP QUE1"
^XMB(3.9,140,2,447,0)="""RTN"",""SDWLRQ2"",124,0)"
^XMB(3.9,140,2,448,0)=" S ZTRTN=$S(SDWLFORM=""D"":""EN^SDWLRPT2"",1:""EN^SDWLRPS2""),ZTDTH=$H,ZTDESC=""WAIT LIST REPORT FORMAT 2"""
^XMB(3.9,140,2,449,0)="""RTN"",""SDWLRQ2"",125,0)"
^XMB(3.9,140,2,450,0)=" S SDWLTASK="""" F  S SDWLTASK=$O(^TMP(""SDWLRQ2"",$J,SDWLTASK)) Q:SDWLTASK=""""  D"
^XMB(3.9,140,2,451,0)="""RTN"",""SDWLRQ2"",126,0)"
^XMB(3.9,140,2,452,0)=" .S SDWLTK=$G(^TMP(""SDWLRQ2"",$J,SDWLTASK))"
^XMB(3.9,140,2,453,0)="""RTN"",""SDWLRQ2"",127,0)"
^XMB(3.9,140,2,454,0)=" .S ZTSAVE(SDWLTASK)=SDWLTK"
^XMB(3.9,140,2,455,0)="""RTN"",""SDWLRQ2"",128,0)"
^XMB(3.9,140,2,456,0)=" I $D(IO(""Q"")) K IO(""Q"") D ^%ZTLOAD W !,""REQUEST QUEUED"" G END"
^XMB(3.9,140,2,457,0)="""RTN"",""SDWLRQ2"",129,0)"
^XMB(3.9,140,2,458,0)="QUE1 S:$E(IOST,1,2)=""C-"" SDWLSPT=1 I $D(ZTRTN) U IO D @ZTRTN K SDWLSPT"
^XMB(3.9,140,2,459,0)="""RTN"",""SDWLRQ2"",130,0)"
^XMB(3.9,140,2,460,0)=" ;"
^XMB(3.9,140,2,461,0)="""RTN"",""SDWLRQ2"",131,0)"
^XMB(3.9,140,2,462,0)="END K SDWLTASK,SDWLY,SDWLED,WDWLBD,SDWLOPEN,SDWLDATE,SDWLFORM,SDWLPRI"
^XMB(3.9,140,2,463,0)="""RTN"",""SDWLRQ2"",132,0)"
^XMB(3.9,140,2,464,0)=" K DIR,DIC,DR,DIE,SDWLSPT,I"
^XMB(3.9,140,2,465,0)="""RTN"",""SDWLRQ2"",133,0)"
^XMB(3.9,140,2,466,0)=" D ^%ZISC S:$D(ZTQUEUED) ZTREQ=""@"""
^XMB(3.9,140,2,467,0)="""RTN"",""SDWLRQ2"",134,0)"
^XMB(3.9,140,2,468,0)=" Q"
^XMB(3.9,140,2,469,0)="""RTN"",""SDWLRQ2"",135,0)"
^XMB(3.9,140,2,470,0)="HD W:$D(IOF) @IOF W !,?80-$L(""Primary Care Team/Position Assignment Wait List Report"")\2,""Primary Care Team/Position Assignment Wait List Report"""
^XMB(3.9,140,2,471,0)="""VER"")"
^XMB(3.9,140,2,472,0)="8.0^22.0"
^XMB(3.9,140,2,473,0)="""BLD"",6774,6)"
^XMB(3.9,140,2,474,0)="^391"
^XMB(3.9,140,2,475,0)="$END KID SD*5.3*482"
^XMB(3.9,140,6,0)="^3.911A^2^2"
^XMB(3.9,140,6,1,0)="POSTMASTER"
^XMB(3.9,140,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,140,6,"B","POSTMASTER",1)=""
^XMB(3.9,140,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,141,0)="SD-5P3_SEQ-392_PAT-461.KID^.5^3061008.015742^^^^K"
^XMB(3.9,141,.6)="3061008"
^XMB(3.9,141,1,0)="^3.91A^2^2"
^XMB(3.9,141,1,1,0)=".5^0^3061008.015742^^^^^^^3061008.015742"
^XMB(3.9,141,1,2,0)="1^0^3061008.022743^^^^^^^3061008.022743"
^XMB(3.9,141,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,141,1,"C",.5,1)=""
^XMB(3.9,141,1,"C",1,2)=""
^XMB(3.9,141,2,0)="^^487^487^3061008"
^XMB(3.9,141,2,1,0)="$TXT Released SD*5.3*461 SEQ #392"
^XMB(3.9,141,2,2,0)="Extracted from mail message"
^XMB(3.9,141,2,3,0)="$END TXT"
^XMB(3.9,141,2,4,0)="$KID SD*5.3*461"
^XMB(3.9,141,2,5,0)="**INSTALL NAME**"
^XMB(3.9,141,2,6,0)="SD*5.3*461"
^XMB(3.9,141,2,7,0)="""BLD"",6419,0)"
^XMB(3.9,141,2,8,0)="SD*5.3*461^SCHEDULING^0^3060628^y"
^XMB(3.9,141,2,9,0)="""BLD"",6419,1,0)"
^XMB(3.9,141,2,10,0)="^^1^1^3051017^"
^XMB(3.9,141,2,11,0)="""BLD"",6419,1,1,0)"
^XMB(3.9,141,2,12,0)="Fix problem with ACRP Ad Hoc Report."
^XMB(3.9,141,2,13,0)="""BLD"",6419,4,0)"
^XMB(3.9,141,2,14,0)="^9.64PA^^"
^XMB(3.9,141,2,15,0)="""BLD"",6419,""ABPKG"")"
^XMB(3.9,141,2,16,0)="n"
^XMB(3.9,141,2,17,0)="""BLD"",6419,""KRN"",0)"
^XMB(3.9,141,2,18,0)="^9.67PA^8989.52^19"
^XMB(3.9,141,2,19,0)="""BLD"",6419,""KRN"",.4,0)"
^XMB(3.9,141,2,20,0)=".4"
^XMB(3.9,141,2,21,0)="""BLD"",6419,""KRN"",.401,0)"
^XMB(3.9,141,2,22,0)=".401"
^XMB(3.9,141,2,23,0)="""BLD"",6419,""KRN"",.402,0)"
^XMB(3.9,141,2,24,0)=".402"
^XMB(3.9,141,2,25,0)="""BLD"",6419,""KRN"",.403,0)"
^XMB(3.9,141,2,26,0)=".403"
^XMB(3.9,141,2,27,0)="""BLD"",6419,""KRN"",.5,0)"
^XMB(3.9,141,2,28,0)=".5"
^XMB(3.9,141,2,29,0)="""BLD"",6419,""KRN"",.84,0)"
^XMB(3.9,141,2,30,0)=".84"
^XMB(3.9,141,2,31,0)="""BLD"",6419,""KRN"",3.6,0)"
^XMB(3.9,141,2,32,0)="3.6"
^XMB(3.9,141,2,33,0)="""BLD"",6419,""KRN"",3.8,0)"
^XMB(3.9,141,2,34,0)="3.8"
^XMB(3.9,141,2,35,0)="""BLD"",6419,""KRN"",9.2,0)"
^XMB(3.9,141,2,36,0)="9.2"
^XMB(3.9,141,2,37,0)="""BLD"",6419,""KRN"",9.8,0)"
^XMB(3.9,141,2,38,0)="9.8"
^XMB(3.9,141,2,39,0)="""BLD"",6419,""KRN"",9.8,""NM"",0)"
^XMB(3.9,141,2,40,0)="^9.68A^1^1"
^XMB(3.9,141,2,41,0)="""BLD"",6419,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,141,2,42,0)="SCRPW26^^0^B65015009"
^XMB(3.9,141,2,43,0)="""BLD"",6419,""KRN"",9.8,""NM"",""B"",""SCRPW26"",1)"
^XMB(3.9,141,2,44,0)=""
^XMB(3.9,141,2,45,0)="""BLD"",6419,""KRN"",19,0)"
^XMB(3.9,141,2,46,0)="19"
^XMB(3.9,141,2,47,0)="""BLD"",6419,""KRN"",19.1,0)"
^XMB(3.9,141,2,48,0)="19.1"
^XMB(3.9,141,2,49,0)="""BLD"",6419,""KRN"",101,0)"
^XMB(3.9,141,2,50,0)="101"
^XMB(3.9,141,2,51,0)="""BLD"",6419,""KRN"",409.61,0)"
^XMB(3.9,141,2,52,0)="409.61"
^XMB(3.9,141,2,53,0)="""BLD"",6419,""KRN"",771,0)"
^XMB(3.9,141,2,54,0)="771"
^XMB(3.9,141,2,55,0)="""BLD"",6419,""KRN"",870,0)"
^XMB(3.9,141,2,56,0)="870"
^XMB(3.9,141,2,57,0)="""BLD"",6419,""KRN"",8989.51,0)"
^XMB(3.9,141,2,58,0)="8989.51"
^XMB(3.9,141,2,59,0)="""BLD"",6419,""KRN"",8989.52,0)"
^XMB(3.9,141,2,60,0)="8989.52"
^XMB(3.9,141,2,61,0)="""BLD"",6419,""KRN"",8994,0)"
^XMB(3.9,141,2,62,0)="8994"
^XMB(3.9,141,2,63,0)="""BLD"",6419,""KRN"",""B"",.4,.4)"
^XMB(3.9,141,2,64,0)=""
^XMB(3.9,141,2,65,0)="""BLD"",6419,""KRN"",""B"",.401,.401)"
^XMB(3.9,141,2,66,0)=""
^XMB(3.9,141,2,67,0)="""BLD"",6419,""KRN"",""B"",.402,.402)"
^XMB(3.9,141,2,68,0)=""
^XMB(3.9,141,2,69,0)="""BLD"",6419,""KRN"",""B"",.403,.403)"
^XMB(3.9,141,2,70,0)=""
^XMB(3.9,141,2,71,0)="""BLD"",6419,""KRN"",""B"",.5,.5)"
^XMB(3.9,141,2,72,0)=""
^XMB(3.9,141,2,73,0)="""BLD"",6419,""KRN"",""B"",.84,.84)"
^XMB(3.9,141,2,74,0)=""
^XMB(3.9,141,2,75,0)="""BLD"",6419,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,141,2,76,0)=""
^XMB(3.9,141,2,77,0)="""BLD"",6419,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,141,2,78,0)=""
^XMB(3.9,141,2,79,0)="""BLD"",6419,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,141,2,80,0)=""
^XMB(3.9,141,2,81,0)="""BLD"",6419,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,141,2,82,0)=""
^XMB(3.9,141,2,83,0)="""BLD"",6419,""KRN"",""B"",19,19)"
^XMB(3.9,141,2,84,0)=""
^XMB(3.9,141,2,85,0)="""BLD"",6419,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,141,2,86,0)=""
^XMB(3.9,141,2,87,0)="""BLD"",6419,""KRN"",""B"",101,101)"
^XMB(3.9,141,2,88,0)=""
^XMB(3.9,141,2,89,0)="""BLD"",6419,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,141,2,90,0)=""
^XMB(3.9,141,2,91,0)="""BLD"",6419,""KRN"",""B"",771,771)"
^XMB(3.9,141,2,92,0)=""
^XMB(3.9,141,2,93,0)="""BLD"",6419,""KRN"",""B"",870,870)"
^XMB(3.9,141,2,94,0)=""
^XMB(3.9,141,2,95,0)="""BLD"",6419,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,141,2,96,0)=""
^XMB(3.9,141,2,97,0)="""BLD"",6419,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,141,2,98,0)=""
^XMB(3.9,141,2,99,0)="""BLD"",6419,""KRN"",""B"",8994,8994)"
^XMB(3.9,141,2,100,0)=""
^XMB(3.9,141,2,101,0)="""BLD"",6419,""QUES"",0)"
^XMB(3.9,141,2,102,0)="^9.62^^"
^XMB(3.9,141,2,103,0)="""BLD"",6419,""REQB"",0)"
^XMB(3.9,141,2,104,0)="^9.611^1^1"
^XMB(3.9,141,2,105,0)="""BLD"",6419,""REQB"",1,0)"
^XMB(3.9,141,2,106,0)="SD*5.3*370^1"
^XMB(3.9,141,2,107,0)="""BLD"",6419,""REQB"",""B"",""SD*5.3*370"",1)"
^XMB(3.9,141,2,108,0)=""
^XMB(3.9,141,2,109,0)="""MBREQ"")"
^XMB(3.9,141,2,110,0)="0"
^XMB(3.9,141,2,111,0)="""PKG"",16,-1)"
^XMB(3.9,141,2,112,0)="1^1"
^XMB(3.9,141,2,113,0)="""PKG"",16,0)"
^XMB(3.9,141,2,114,0)="SCHEDULING^SD^APPOINTMENTS,PROFILES,LETTERS,AMIS REPORTS"
^XMB(3.9,141,2,115,0)="""PKG"",16,20,0)"
^XMB(3.9,141,2,116,0)="^9.402P^^"
^XMB(3.9,141,2,117,0)="""PKG"",16,22,0)"
^XMB(3.9,141,2,118,0)="^9.49I^1^1"
^XMB(3.9,141,2,119,0)="""PKG"",16,22,1,0)"
^XMB(3.9,141,2,120,0)="5.3^2930813"
^XMB(3.9,141,2,121,0)="""PKG"",16,22,1,""PAH"",1,0)"
^XMB(3.9,141,2,122,0)="461^3060628"
^XMB(3.9,141,2,123,0)="""PKG"",16,22,1,""PAH"",1,1,0)"
^XMB(3.9,141,2,124,0)="^^1^1^3060628"
^XMB(3.9,141,2,125,0)="""PKG"",16,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,141,2,126,0)="Fix problem with ACRP Ad Hoc Report."
^XMB(3.9,141,2,127,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,141,2,128,0)="Y"
^XMB(3.9,141,2,129,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,141,2,130,0)="^D REP^XPDH"
^XMB(3.9,141,2,131,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,141,2,132,0)="Shall I write over your |FLAG| File"
^XMB(3.9,141,2,133,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,141,2,134,0)="YES"
^XMB(3.9,141,2,135,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,141,2,136,0)="D XPF1^XPDIQ"
^XMB(3.9,141,2,137,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,141,2,138,0)="Y"
^XMB(3.9,141,2,139,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,141,2,140,0)="^D DTA^XPDH"
^XMB(3.9,141,2,141,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,141,2,142,0)="Want my data |FLAG| yours"
^XMB(3.9,141,2,143,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,141,2,144,0)="YES"
^XMB(3.9,141,2,145,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,141,2,146,0)="D XPF2^XPDIQ"
^XMB(3.9,141,2,147,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,141,2,148,0)="YO"
^XMB(3.9,141,2,149,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,141,2,150,0)="^D INHIBIT^XPDH"
^XMB(3.9,141,2,151,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,141,2,152,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,141,2,153,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,141,2,154,0)="YES"
^XMB(3.9,141,2,155,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,141,2,156,0)="D XPI1^XPDIQ"
^XMB(3.9,141,2,157,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,141,2,158,0)="PO^VA(200,:EM"
^XMB(3.9,141,2,159,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,141,2,160,0)="^D MG^XPDH"
^XMB(3.9,141,2,161,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,141,2,162,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,141,2,163,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,141,2,164,0)=""
^XMB(3.9,141,2,165,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,141,2,166,0)="D XPM1^XPDIQ"
^XMB(3.9,141,2,167,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,141,2,168,0)="Y"
^XMB(3.9,141,2,169,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,141,2,170,0)="^D MENU^XPDH"
^XMB(3.9,141,2,171,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,141,2,172,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,141,2,173,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,141,2,174,0)="YES"
^XMB(3.9,141,2,175,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,141,2,176,0)="D XPO1^XPDIQ"
^XMB(3.9,141,2,177,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,141,2,178,0)="Y"
^XMB(3.9,141,2,179,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,141,2,180,0)="^D OPT^XPDH"
^XMB(3.9,141,2,181,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,141,2,182,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,141,2,183,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,141,2,184,0)="YES"
^XMB(3.9,141,2,185,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,141,2,186,0)="D XPZ1^XPDIQ"
^XMB(3.9,141,2,187,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,141,2,188,0)="Y"
^XMB(3.9,141,2,189,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,141,2,190,0)="^D RTN^XPDH"
^XMB(3.9,141,2,191,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,141,2,192,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,141,2,193,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,141,2,194,0)="NO"
^XMB(3.9,141,2,195,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,141,2,196,0)="D XPZ2^XPDIQ"
^XMB(3.9,141,2,197,0)="""RTN"")"
^XMB(3.9,141,2,198,0)="1"
^XMB(3.9,141,2,199,0)="""RTN"",""SCRPW26"")"
^XMB(3.9,141,2,200,0)="0^1^B65015009^B56921248"
^XMB(3.9,141,2,201,0)="""RTN"",""SCRPW26"",1,0)"
^XMB(3.9,141,2,202,0)="SCRPW26 ;RENO/KEITH - ACRP Ad Hoc Report (cont.) ; 18 Nov 98  3:31 PM"
^XMB(3.9,141,2,203,0)="""RTN"",""SCRPW26"",2,0)"
^XMB(3.9,141,2,204,0)=" ;;5.3;Scheduling;**144,166,370,461**;AUG 13, 1993"
^XMB(3.9,141,2,205,0)="""RTN"",""SCRPW26"",3,0)"
^XMB(3.9,141,2,206,0)="RPT I '$D(ZTQUEUED),$E(IOST)=""C"" D WAIT^DICD"
^XMB(3.9,141,2,207,0)="""RTN"",""SCRPW26"",4,0)"
^XMB(3.9,141,2,208,0)=" D BLD^SCRPW21 S SDXY=^%ZOSF(""XY"")"
^XMB(3.9,141,2,209,0)="""RTN"",""SCRPW26"",5,0)"
^XMB(3.9,141,2,210,0)=" F SDI=""DSV"",""M1"",""MASTER"",""TOT"",""RPT"",""DET"",""RPTAP"",""RPTDX"",""RPTTAP"",""RPTTDX"" K ^TMP(""SCRPW"",$J,SDI)"
^XMB(3.9,141,2,211,0)="""RTN"",""SCRPW26"",6,0)"
^XMB(3.9,141,2,212,0)=" S T=""~"",(SDSTOP,SDOUT)=0,SDT=$P(SDPAR(""L"",1),U),SDO(1)=$P(SDPAR(""O"",1),U) F SDI=1:1:6 S SDF(SDI)=$P($G(SDPAR(""F"",SDI)),U)"
^XMB(3.9,141,2,213,0)="""RTN"",""SCRPW26"",7,0)"
^XMB(3.9,141,2,214,0)=" S SDI=2 F  S SDI=$O(SDPAR(""L"",SDI)) Q:'SDI  S SDX=$P(SDPAR(""L"",SDI),U)_$P(SDPAR(""L"",SDI,1),U),SDPAR(""LPX"",SDX,SDI)="""""
^XMB(3.9,141,2,215,0)="""RTN"",""SCRPW26"",8,0)"
^XMB(3.9,141,2,216,0)=" S SDYR=1,SDEDT=$P(SDPAR(""L"",2),U)+.999999 D R0 G:SDOUT RX"
^XMB(3.9,141,2,217,0)="""RTN"",""SCRPW26"",9,0)"
^XMB(3.9,141,2,218,0)=" I SDF(2) S SDT=$P(SDPAR(""L"",1),U)-10000,SDEDT=SDEDT-10000,SDYR=2 D R0 G:SDOUT RX"
^XMB(3.9,141,2,219,0)="""RTN"",""SCRPW26"",10,0)"
^XMB(3.9,141,2,220,0)=" I SDF(5)>0 D R6 G:SDOUT RX"
^XMB(3.9,141,2,221,0)="""RTN"",""SCRPW26"",11,0)"
^XMB(3.9,141,2,222,0)=" F SDI=""TOT"",""RPT"" Q:SDOUT  D R7,STOP"
^XMB(3.9,141,2,223,0)="""RTN"",""SCRPW26"",12,0)"
^XMB(3.9,141,2,224,0)=" G:SDOUT RX D R8,STOP G:SDOUT RX G PRT^SCRPW27"
^XMB(3.9,141,2,225,0)="""RTN"",""SCRPW26"",13,0)"
^XMB(3.9,141,2,226,0)=" ;"
^XMB(3.9,141,2,227,0)="""RTN"",""SCRPW26"",14,0)"
^XMB(3.9,141,2,228,0)="RX G EXIT^SCRPW27"
^XMB(3.9,141,2,229,0)="""RTN"",""SCRPW26"",15,0)"
^XMB(3.9,141,2,230,0)=" ;"
^XMB(3.9,141,2,231,0)="""RTN"",""SCRPW26"",16,0)"
^XMB(3.9,141,2,232,0)="STOP ;Check for stop task request"
^XMB(3.9,141,2,233,0)="""RTN"",""SCRPW26"",17,0)"
^XMB(3.9,141,2,234,0)=" S:$D(ZTQUEUED) (SDOUT,ZTSTOP)=$S($$S^%ZTLOAD:1,1:0) Q"
^XMB(3.9,141,2,235,0)="""RTN"",""SCRPW26"",18,0)"
^XMB(3.9,141,2,236,0)=" ;"
^XMB(3.9,141,2,237,0)="""RTN"",""SCRPW26"",19,0)"
^XMB(3.9,141,2,238,0)="R0 F  S SDT=$O(^SCE(""B"",SDT)) Q:'SDT!(SDT>SDEDT)!SDOUT  S SDOE=0 F  S SDOE=$O(^SCE(""B"",SDT,SDOE)) Q:'SDOE!SDOUT  S SDOE0=$$GETOE^SDOE(SDOE) I $P(SDOE0,U,2),$P(SDOE0,U,4),'$P(SDOE0,U,6) D R1"
^XMB(3.9,141,2,239,0)="""RTN"",""SCRPW26"",20,0)"
^XMB(3.9,141,2,240,0)=" Q"
^XMB(3.9,141,2,241,0)="""RTN"",""SCRPW26"",21,0)"
^XMB(3.9,141,2,242,0)="R1 ;Evaluate perspective"
^XMB(3.9,141,2,243,0)="""RTN"",""SCRPW26"",22,0)"
^XMB(3.9,141,2,244,0)=" S SDSTOP=SDSTOP+1 D:SDSTOP#3000=0 STOP Q:SDOUT"
^XMB(3.9,141,2,245,0)="""RTN"",""SCRPW26"",23,0)"
^XMB(3.9,141,2,246,0)=" ;CHECK FOR TEST PATIENT"
^XMB(3.9,141,2,247,0)="""RTN"",""SCRPW26"",24,0)"
^XMB(3.9,141,2,248,0)=" I $D(^DPT(""ATEST"",$P(SDOE0,U,2))) Q"
^XMB(3.9,141,2,249,0)="""RTN"",""SCRPW26"",25,0)"
^XMB(3.9,141,2,250,0)=" K SDPER Q:'$$EVAL(""P"",1)  M SDPER=SDX"
^XMB(3.9,141,2,251,0)="""RTN"",""SCRPW26"",26,0)"
^XMB(3.9,141,2,252,0)="R2 ;Evaluate limitations"
^XMB(3.9,141,2,253,0)="""RTN"",""SCRPW26"",27,0)"
^XMB(3.9,141,2,254,0)=" ; SD*5.3*461 following code replaces original code"
^XMB(3.9,141,2,255,0)="""RTN"",""SCRPW26"",28,0)"
^XMB(3.9,141,2,256,0)=" N SDXPAR,SDNN,SDFLAG,SDSAVE"
^XMB(3.9,141,2,257,0)="""RTN"",""SCRPW26"",29,0)"
^XMB(3.9,141,2,258,0)=" S SDXPAR="""",SDNN=2,SDFLAG=1,SDSAVE=0"
^XMB(3.9,141,2,259,0)="""RTN"",""SCRPW26"",30,0)"
^XMB(3.9,141,2,260,0)=" I $O(SDPAR(""L"",SDNN)) S SDNN=$O(SDPAR(""L"",SDNN)),SDXPAR=$G(SDPAR(""L"",SDNN))"
^XMB(3.9,141,2,261,0)="""RTN"",""SCRPW26"",31,0)"
^XMB(3.9,141,2,262,0)=" S SDFOUND=1,SDS2=2 F  S SDS2=$O(SDPAR(""L"",SDS2)) Q:'SDS2  D"
^XMB(3.9,141,2,263,0)="""RTN"",""SCRPW26"",32,0)"
^XMB(3.9,141,2,264,0)=" . I $D(SDXPAR) S:SDXPAR'=$G(SDPAR(""L"",SDS2)) SDFLAG=0"
^XMB(3.9,141,2,265,0)="""RTN"",""SCRPW26"",33,0)"
^XMB(3.9,141,2,266,0)=" . S:SDFLAG SDFOUND=1"
^XMB(3.9,141,2,267,0)="""RTN"",""SCRPW26"",34,0)"
^XMB(3.9,141,2,268,0)=" . S:'$$EVAL(""L"",SDS2) SDFOUND=0"
^XMB(3.9,141,2,269,0)="""RTN"",""SCRPW26"",35,0)"
^XMB(3.9,141,2,270,0)=" . I SDFOUND I SDFLAG S SDSAVE=1"
^XMB(3.9,141,2,271,0)="""RTN"",""SCRPW26"",36,0)"
^XMB(3.9,141,2,272,0)=" . I 'SDFLAG I 'SDFOUND S SDSAVE=0"
^XMB(3.9,141,2,273,0)="""RTN"",""SCRPW26"",37,0)"
^XMB(3.9,141,2,274,0)=" S:SDSAVE SDFOUND=SDSAVE"
^XMB(3.9,141,2,275,0)="""RTN"",""SCRPW26"",38,0)"
^XMB(3.9,141,2,276,0)=" Q:'SDFOUND  S (SDTOT,SDI)=0 F  S SDI=$O(SDPER(SDI)) Q:'SDI  S SDPER=SDPER(SDI) S:$G(SDPAR(""P"",1,6))=""D"" SDPER=$P(SDPER,U,2)_U_$P(SDPER,U) D R3"
^XMB(3.9,141,2,277,0)="""RTN"",""SCRPW26"",39,0)"
^XMB(3.9,141,2,278,0)=" Q"
^XMB(3.9,141,2,279,0)="""RTN"",""SCRPW26"",40,0)"
^XMB(3.9,141,2,280,0)=" ;"
^XMB(3.9,141,2,281,0)="""RTN"",""SCRPW26"",41,0)"
^XMB(3.9,141,2,282,0)="R3 S DFN=$P(SDOE0,U,2)"
^XMB(3.9,141,2,283,0)="""RTN"",""SCRPW26"",42,0)"
^XMB(3.9,141,2,284,0)=" S:'SDTOT ^TMP(""SCRPW"",$J,""TOT"",SDYR,1,1,DFN,$P(SDT,"".""))="""",^TMP(""SCRPW"",$J,""TOT"",SDYR,1,1,""ENC"")=$G(^TMP(""SCRPW"",$J,""TOT"",SDYR,1,1,""ENC""))+1,SDTOT=1"
^XMB(3.9,141,2,285,0)="""RTN"",""SCRPW26"",43,0)"
^XMB(3.9,141,2,286,0)=" S ^TMP(""SCRPW"",$J,""M1"",$P(SDPER,U,2),$P(SDPER,U))="""""
^XMB(3.9,141,2,287,0)="""RTN"",""SCRPW26"",44,0)"
^XMB(3.9,141,2,288,0)=" S ^TMP(""SCRPW"",$J,""RPT"",SDYR,$P(SDPER,U,2),$P(SDPER,U),DFN,$P(SDT,"".""))="""",^TMP(""SCRPW"",$J,""RPT"",SDYR,$P(SDPER,U,2),$P(SDPER,U),""ENC"")=$G(^TMP(""SCRPW"",$J,""RPT"",SDYR,$P(SDPER,U,2),$P(SDPER,U),""ENC""))+1"
^XMB(3.9,141,2,289,0)="""RTN"",""SCRPW26"",45,0)"
^XMB(3.9,141,2,290,0)=" I $L(SDF(3)),""EB""[SDF(3) S SDPNAM=$P($G(^DPT(DFN,0)),U) I $L(SDPNAM) S ^TMP(""SCRPW"",$J,""DET"",$$DSV(SDPER),SDPNAM,DFN,$P(SDT,"".""),SDT,SDOE)=$P(SDOE0,U,4)"
^XMB(3.9,141,2,291,0)="""RTN"",""SCRPW26"",46,0)"
^XMB(3.9,141,2,292,0)=" Q:(SDF(5)<1)!(SDYR=2)"
^XMB(3.9,141,2,293,0)="""RTN"",""SCRPW26"",47,0)"
^XMB(3.9,141,2,294,0)=" D APAC^SCRPW24(.SDX) S SDII=0 F  S SDII=$O(SDX(SDII)) Q:'SDII  D R4"
^XMB(3.9,141,2,295,0)="""RTN"",""SCRPW26"",48,0)"
^XMB(3.9,141,2,296,0)=" D DXPD^SCRPW24(.SDX) S SDII=0 F  S SDII=$O(SDX(SDII)) Q:'SDII  D R5(1)"
^XMB(3.9,141,2,297,0)="""RTN"",""SCRPW26"",49,0)"
^XMB(3.9,141,2,298,0)=" D DXSD^SCRPW24(.SDX) S SDII=0 F  S SDII=$O(SDX(SDII)) Q:'SDII  D R5(2)"
^XMB(3.9,141,2,299,0)="""RTN"",""SCRPW26"",50,0)"
^XMB(3.9,141,2,300,0)=" Q"
^XMB(3.9,141,2,301,0)="""RTN"",""SCRPW26"",51,0)"
^XMB(3.9,141,2,302,0)=" ;"
^XMB(3.9,141,2,303,0)="""RTN"",""SCRPW26"",52,0)"
^XMB(3.9,141,2,304,0)="R4 S SDX=SDX(SDII) Q:$P(SDX,U)=""~~~NONE~~~""  S SDQT=$P(SDX,U,3) S:'SDQT SDQT=1"
^XMB(3.9,141,2,305,0)="""RTN"",""SCRPW26"",53,0)"
^XMB(3.9,141,2,306,0)=" S ^TMP(""SCRPW"",$J,""RPTAP"",SDYR,$P(SDPER,U,2),$P(SDPER,U),$P(SDX,U,2))=$G(^TMP(""SCRPW"",$J,""RPTAP"",SDYR,$P(SDPER,U,2),$P(SDPER,U),$P(SDX,U,2)))+SDQT Q"
^XMB(3.9,141,2,307,0)="""RTN"",""SCRPW26"",54,0)"
^XMB(3.9,141,2,308,0)=" ;"
^XMB(3.9,141,2,309,0)="""RTN"",""SCRPW26"",55,0)"
^XMB(3.9,141,2,310,0)="R5(SDZ) S SDX=SDX(SDII) Q:$P(SDX,U)=""~~~NONE~~~"""
^XMB(3.9,141,2,311,0)="""RTN"",""SCRPW26"",56,0)"
^XMB(3.9,141,2,312,0)=" F SDIII=SDZ,3 S $P(^TMP(""SCRPW"",$J,""RPTDX"",SDYR,$P(SDPER,U,2),$P(SDPER,U),$P(SDX,U,2)),U,SDIII)=$P($G(^TMP(""SCRPW"",$J,""RPTDX"",SDYR,$P(SDPER,U,2),$P(SDPER,U),$P(SDX,U,2))),U,SDIII)+1"
^XMB(3.9,141,2,313,0)="""RTN"",""SCRPW26"",57,0)"
^XMB(3.9,141,2,314,0)=" Q"
^XMB(3.9,141,2,315,0)="""RTN"",""SCRPW26"",58,0)"
^XMB(3.9,141,2,316,0)=" ;"
^XMB(3.9,141,2,317,0)="""RTN"",""SCRPW26"",59,0)"
^XMB(3.9,141,2,318,0)="DSV(SDPER) ;Encrypt detail sort values"
^XMB(3.9,141,2,319,0)="""RTN"",""SCRPW26"",60,0)"
^XMB(3.9,141,2,320,0)=" N SDX S SDX=$G(^TMP(""SCRPW"",$J,""DSV"",$P(SDPER,U,2),$P(SDPER,U))) Q:SDX SDX"
^XMB(3.9,141,2,321,0)="""RTN"",""SCRPW26"",61,0)"
^XMB(3.9,141,2,322,0)=" S (SDX,^TMP(""SCRPW"",$J,""DSV"",0))=$G(^TMP(""SCRPW"",$J,""DSV"",0))+1"
^XMB(3.9,141,2,323,0)="""RTN"",""SCRPW26"",62,0)"
^XMB(3.9,141,2,324,0)=" S ^TMP(""SCRPW"",$J,""DSV"",$P(SDPER,U,2),$P(SDPER,U))=SDX Q SDX"
^XMB(3.9,141,2,325,0)="""RTN"",""SCRPW26"",63,0)"
^XMB(3.9,141,2,326,0)=" ;"
^XMB(3.9,141,2,327,0)="""RTN"",""SCRPW26"",64,0)"
^XMB(3.9,141,2,328,0)="R6 S SDS1="""" F  S SDS1=$O(^TMP(""SCRPW"",$J,""RPTAP"",SDS1)) Q:SDS1=""""  S SDS2="""" F  S SDS2=$O(^TMP(""SCRPW"",$J,""RPTAP"",SDS1,SDS2)) Q:SDS2=""""  D R6A"
^XMB(3.9,141,2,329,0)="""RTN"",""SCRPW26"",65,0)"
^XMB(3.9,141,2,330,0)=" D STOP Q:SDOUT"
^XMB(3.9,141,2,331,0)="""RTN"",""SCRPW26"",66,0)"
^XMB(3.9,141,2,332,0)=" S SDS1="""" F  S SDS1=$O(^TMP(""SCRPW"",$J,""RPTDX"",SDS1)) Q:SDS1=""""  S SDS2="""" F  S SDS2=$O(^TMP(""SCRPW"",$J,""RPTDX"",SDS1,SDS2)) Q:SDS2=""""  D R6B"
^XMB(3.9,141,2,333,0)="""RTN"",""SCRPW26"",67,0)"
^XMB(3.9,141,2,334,0)=" D STOP Q"
^XMB(3.9,141,2,335,0)="""RTN"",""SCRPW26"",68,0)"
^XMB(3.9,141,2,336,0)=" ;"
^XMB(3.9,141,2,337,0)="""RTN"",""SCRPW26"",69,0)"
^XMB(3.9,141,2,338,0)="R6A S SDS3="""" F  S SDS3=$O(^TMP(""SCRPW"",$J,""RPTAP"",SDS1,SDS2,SDS3)) Q:SDS3=""""  S SDS4="""" F  S SDS4=$O(^TMP(""SCRPW"",$J,""RPTAP"",SDS1,SDS2,SDS3,SDS4)) Q:SDS4=""""  D R6AS"
^XMB(3.9,141,2,339,0)="""RTN"",""SCRPW26"",70,0)"
^XMB(3.9,141,2,340,0)=" Q"
^XMB(3.9,141,2,341,0)="""RTN"",""SCRPW26"",71,0)"
^XMB(3.9,141,2,342,0)="R6AS S SDQT=^TMP(""SCRPW"",$J,""RPTAP"",SDS1,SDS2,SDS3,SDS4),^TMP(""SCRPW"",$J,""RPTTAP"",SDS1,SDS2,SDS3,SDQT,SDS4)="""""
^XMB(3.9,141,2,343,0)="""RTN"",""SCRPW26"",72,0)"
^XMB(3.9,141,2,344,0)=" Q"
^XMB(3.9,141,2,345,0)="""RTN"",""SCRPW26"",73,0)"
^XMB(3.9,141,2,346,0)=" ;"
^XMB(3.9,141,2,347,0)="""RTN"",""SCRPW26"",74,0)"
^XMB(3.9,141,2,348,0)="R6B S SDS3="""" F  S SDS3=$O(^TMP(""SCRPW"",$J,""RPTDX"",SDS1,SDS2,SDS3)) Q:SDS3=""""  S SDS4="""" F  S SDS4=$O(^TMP(""SCRPW"",$J,""RPTDX"",SDS1,SDS2,SDS3,SDS4)) Q:SDS4=""""  D R6BS"
^XMB(3.9,141,2,349,0)="""RTN"",""SCRPW26"",75,0)"
^XMB(3.9,141,2,350,0)=" Q"
^XMB(3.9,141,2,351,0)="""RTN"",""SCRPW26"",76,0)"
^XMB(3.9,141,2,352,0)="R6BS S SDQT=$P(^TMP(""SCRPW"",$J,""RPTDX"",SDS1,SDS2,SDS3,SDS4),U,3),^TMP(""SCRPW"",$J,""RPTTDX"",SDS1,SDS2,SDS3,SDQT,SDS4)="""""
^XMB(3.9,141,2,353,0)="""RTN"",""SCRPW26"",77,0)"
^XMB(3.9,141,2,354,0)=" Q"
^XMB(3.9,141,2,355,0)="""RTN"",""SCRPW26"",78,0)"
^XMB(3.9,141,2,356,0)=" ;"
^XMB(3.9,141,2,357,0)="""RTN"",""SCRPW26"",79,0)"
^XMB(3.9,141,2,358,0)="R7 S SDYR=0 F  S SDYR=$O(^TMP(""SCRPW"",$J,SDI,SDYR)) Q:'SDYR  S SDS1="""" F  S SDS1=$O(^TMP(""SCRPW"",$J,SDI,SDYR,SDS1)) Q:SDS1=""""  S SDS2="""" F  S SDS2=$O(^TMP(""SCRPW"",$J,SDI,SDYR,SDS1,SDS2)) Q:SDS2=""""  D R7A"
^XMB(3.9,141,2,359,0)="""RTN"",""SCRPW26"",80,0)"
^XMB(3.9,141,2,360,0)=" Q"
^XMB(3.9,141,2,361,0)="""RTN"",""SCRPW26"",81,0)"
^XMB(3.9,141,2,362,0)=" ;"
^XMB(3.9,141,2,363,0)="""RTN"",""SCRPW26"",82,0)"
^XMB(3.9,141,2,364,0)="R7A S DFN=0 F  S DFN=$O(^TMP(""SCRPW"",$J,SDI,SDYR,SDS1,SDS2,DFN)) Q:'DFN  S ^TMP(""SCRPW"",$J,SDI,SDYR,SDS1,SDS2,""UNI"")=$G(^TMP(""SCRPW"",$J,SDI,SDYR,SDS1,SDS2,""UNI""))+1 D R7B"
^XMB(3.9,141,2,365,0)="""RTN"",""SCRPW26"",83,0)"
^XMB(3.9,141,2,366,0)=" Q"
^XMB(3.9,141,2,367,0)="""RTN"",""SCRPW26"",84,0)"
^XMB(3.9,141,2,368,0)=" ;"
^XMB(3.9,141,2,369,0)="""RTN"",""SCRPW26"",85,0)"
^XMB(3.9,141,2,370,0)="R7B S SDT=0 F  S SDT=$O(^TMP(""SCRPW"",$J,SDI,SDYR,SDS1,SDS2,DFN,SDT)) Q:'SDT  S ^TMP(""SCRPW"",$J,SDI,SDYR,SDS1,SDS2,""VIS"")=$G(^TMP(""SCRPW"",$J,SDI,SDYR,SDS1,SDS2,""VIS""))+1"
^XMB(3.9,141,2,371,0)="""RTN"",""SCRPW26"",86,0)"
^XMB(3.9,141,2,372,0)=" Q"
^XMB(3.9,141,2,373,0)="""RTN"",""SCRPW26"",87,0)"
^XMB(3.9,141,2,374,0)=" ;"
^XMB(3.9,141,2,375,0)="""RTN"",""SCRPW26"",88,0)"
^XMB(3.9,141,2,376,0)="R8 S SDORD=$E($P(SDPAR(""O"",1),U,2),1,3),SDS1="""" F  S SDS1=$O(^TMP(""SCRPW"",$J,""M1"",SDS1)) Q:SDS1=""""  S SDS2="""" F  S SDS2=$O(^TMP(""SCRPW"",$J,""M1"",SDS1,SDS2)) Q:SDS2=""""  D R8A"
^XMB(3.9,141,2,377,0)="""RTN"",""SCRPW26"",89,0)"
^XMB(3.9,141,2,378,0)=" Q"
^XMB(3.9,141,2,379,0)="""RTN"",""SCRPW26"",90,0)"
^XMB(3.9,141,2,380,0)="R8A S SDORDV=$S(SDORD=""ALP"":SDS1,1:+$G(^TMP(""SCRPW"",$J,""RPT"",1,SDS1,SDS2,SDORD))),^TMP(""SCRPW"",$J,""MASTER"",SDORDV,SDS1,SDS2)="""" Q"
^XMB(3.9,141,2,381,0)="""RTN"",""SCRPW26"",91,0)"
^XMB(3.9,141,2,382,0)=" ;"
^XMB(3.9,141,2,383,0)="""RTN"",""SCRPW26"",92,0)"
^XMB(3.9,141,2,384,0)="EVAL(SDS1,SDS2) ;Evaluate item"
^XMB(3.9,141,2,385,0)="""RTN"",""SCRPW26"",93,0)"
^XMB(3.9,141,2,386,0)=" D GID(SDS1,SDS2) K SDX X $P(SD(1),T,7)"
^XMB(3.9,141,2,387,0)="""RTN"",""SCRPW26"",94,0)"
^XMB(3.9,141,2,388,0)=" I SDS1=""P"",SDF(1)=""S"" D EVIL Q $D(SDX)>1"
^XMB(3.9,141,2,389,0)="""RTN"",""SCRPW26"",95,0)"
^XMB(3.9,141,2,390,0)=" D EV0(SDS1,SDS2) D:SDS1=""P"" EVIL"
^XMB(3.9,141,2,391,0)="""RTN"",""SCRPW26"",96,0)"
^XMB(3.9,141,2,392,0)=" Q $D(SDX)>1"
^XMB(3.9,141,2,393,0)="""RTN"",""SCRPW26"",97,0)"
^XMB(3.9,141,2,394,0)=" ;"
^XMB(3.9,141,2,395,0)="""RTN"",""SCRPW26"",98,0)"
^XMB(3.9,141,2,396,0)="EV0(SDS1,SDS2) N X,Y,SDR1,SDR2,SDZ S SDZ=SD(3)=""E"",SDI=0 F  S SDI=$O(SDX(SDI)) Q:'SDI  S X=$P(SDX(SDI),U) D EV1"
^XMB(3.9,141,2,397,0)="""RTN"",""SCRPW26"",99,0)"
^XMB(3.9,141,2,398,0)=" Q"
^XMB(3.9,141,2,399,0)="""RTN"",""SCRPW26"",100,0)"
^XMB(3.9,141,2,400,0)=" ;"
^XMB(3.9,141,2,401,0)="""RTN"",""SCRPW26"",101,0)"
^XMB(3.9,141,2,402,0)="EV1 I ""LN""[SD(2) K:('SDZ&'$D(SDPAR(SDS1,SDS2,5,X))) SDX(SDI) K:(SDZ&$D(SDPAR(SDS1,SDS2,5,X))) SDX Q"
^XMB(3.9,141,2,403,0)="""RTN"",""SCRPW26"",102,0)"
^XMB(3.9,141,2,404,0)=" S Y=$S(SD(6)=""D"":1,+$P(SDX(SDI),U,2)=$P(SDX(SDI),U,2):1,1:0),SDR1=$O(SDPAR(SDS1,SDS2,(4+Y),"""")),SDR2=$O(SDPAR(SDS1,SDS2,(4+Y),""""),-1)"
^XMB(3.9,141,2,405,0)="""RTN"",""SCRPW26"",103,0)"
^XMB(3.9,141,2,406,0)=" I Y S:(SD(6)=""D""&(SDR2#1=0)) SDR2=SDR2+.9999 K:('SDZ&(X<SDR1!(X>SDR2))) SDX(SDI) K:(SDZ&(X'<SDR1&(X'>SDR2))) SDX Q"
^XMB(3.9,141,2,407,0)="""RTN"",""SCRPW26"",104,0)"
^XMB(3.9,141,2,408,0)=" I S0=""DXAD"" S X=$P(SDX(SDI),U,2) D DXRNGE Q  ;SD*5.3*461"
^XMB(3.9,141,2,409,0)="""RTN"",""SCRPW26"",105,0)"
^XMB(3.9,141,2,410,0)=" S X=$P(SDX(SDI),U,2) K:('SDZ&(SDR1]X!(X]SDR2))) SDX(SDI) K:(SDZ&(SDR1']X&(X']SDR2))) SDX Q"
^XMB(3.9,141,2,411,0)="""RTN"",""SCRPW26"",106,0)"
^XMB(3.9,141,2,412,0)=" ;"
^XMB(3.9,141,2,413,0)="""RTN"",""SCRPW26"",107,0)"
^XMB(3.9,141,2,414,0)="EVIL ;Evaluate item limitations"
^XMB(3.9,141,2,415,0)="""RTN"",""SCRPW26"",108,0)"
^XMB(3.9,141,2,416,0)=" N SDS2 I $D(SDX)>1 S S1=SD(0),S2=$P(SD(1),T,10) F S0=S1,S2 I $L(S0) S SDS2=0 F  S SDS2=$O(SDPAR(""LPX"",S0,SDS2)) Q:'SDS2  D GID(""L"",SDS2),EV0(""L"",SDS2)"
^XMB(3.9,141,2,417,0)="""RTN"",""SCRPW26"",109,0)"
^XMB(3.9,141,2,418,0)=" Q"
^XMB(3.9,141,2,419,0)="""RTN"",""SCRPW26"",110,0)"
^XMB(3.9,141,2,420,0)=" ;"
^XMB(3.9,141,2,421,0)="""RTN"",""SCRPW26"",111,0)"
^XMB(3.9,141,2,422,0)="GID(SDS1,SDS2) ;Get item data"
^XMB(3.9,141,2,423,0)="""RTN"",""SCRPW26"",112,0)"
^XMB(3.9,141,2,424,0)=" ;Required input: SDS1,SDS2=subscript values in SDPAR array."
^XMB(3.9,141,2,425,0)="""RTN"",""SCRPW26"",113,0)"
^XMB(3.9,141,2,426,0)=" K SD"
^XMB(3.9,141,2,427,0)="""RTN"",""SCRPW26"",114,0)"
^XMB(3.9,141,2,428,0)=" S SD(0)=$P(SDPAR(SDS1,SDS2),U)_$P(SDPAR(SDS1,SDS2,1),U),SD(1)=^TMP(""SCRPW"",$J,""ACT"",SD(0))"
^XMB(3.9,141,2,429,0)="""RTN"",""SCRPW26"",115,0)"
^XMB(3.9,141,2,430,0)=" F SDI=2,3,6 S SD(SDI)=$P($G(SDPAR(SDS1,SDS2,SDI)),U)"
^XMB(3.9,141,2,431,0)="""RTN"",""SCRPW26"",116,0)"
^XMB(3.9,141,2,432,0)=" Q"
^XMB(3.9,141,2,433,0)="""RTN"",""SCRPW26"",117,0)"
^XMB(3.9,141,2,434,0)=" ;"
^XMB(3.9,141,2,435,0)="""RTN"",""SCRPW26"",118,0)"
^XMB(3.9,141,2,436,0)="DXRNGE ; added per SD*5.3*461"
^XMB(3.9,141,2,437,0)="""RTN"",""SCRPW26"",119,0)"
^XMB(3.9,141,2,438,0)=" N SDFLG1"
^XMB(3.9,141,2,439,0)="""RTN"",""SCRPW26"",120,0)"
^XMB(3.9,141,2,440,0)=" S SDFLG1=0"
^XMB(3.9,141,2,441,0)="""RTN"",""SCRPW26"",121,0)"
^XMB(3.9,141,2,442,0)=" S SDS22=2"
^XMB(3.9,141,2,443,0)="""RTN"",""SCRPW26"",122,0)"
^XMB(3.9,141,2,444,0)=" F  S SDS22=$O(SDPAR(SDS1,SDS22)) Q:'SDS22  D"
^XMB(3.9,141,2,445,0)="""RTN"",""SCRPW26"",123,0)"
^XMB(3.9,141,2,446,0)=" .S SDR1=$O(SDPAR(SDS1,SDS22,(4+Y),"""")),SDR2=$O(SDPAR(SDS1,SDS22,(4+Y),""""),-1)"
^XMB(3.9,141,2,447,0)="""RTN"",""SCRPW26"",124,0)"
^XMB(3.9,141,2,448,0)=" .I ('SDZ&(SDR1']X&(X']SDR2))) S SDFLG1=1"
^XMB(3.9,141,2,449,0)="""RTN"",""SCRPW26"",125,0)"
^XMB(3.9,141,2,450,0)=" K:'SDFLG1 SDX(SDI)"
^XMB(3.9,141,2,451,0)="""RTN"",""SCRPW26"",126,0)"
^XMB(3.9,141,2,452,0)=" Q"
^XMB(3.9,141,2,453,0)="""RTN"",""SCRPW26"",127,0)"
^XMB(3.9,141,2,454,0)=" ;"
^XMB(3.9,141,2,455,0)="""RTN"",""SCRPW26"",128,0)"
^XMB(3.9,141,2,456,0)="TEST K DIC,DIR D BLD^SCRPW21 S DIC=""^SCE("",DIC(0)=""AEMQZ"" D ^DIC Q:$D(DTOUT)!$D(DUOUT)  Q:'Y  S SDOE=+Y,SDOE0=Y(0),T=""~"",DIR(0)=""E"""
^XMB(3.9,141,2,457,0)="""RTN"",""SCRPW26"",129,0)"
^XMB(3.9,141,2,458,0)=" S SDI="""" F  S SDI=$O(^TMP(""SCRPW"",$J,""ACT"",SDI)) Q:SDI=""""  S SDA=^TMP(""SCRPW"",$J,""ACT"",SDI) W !!,$P(SDA,T) D TEST1 W ! ;D ^DIR Q:'Y"
^XMB(3.9,141,2,459,0)="""RTN"",""SCRPW26"",130,0)"
^XMB(3.9,141,2,460,0)=" D R1"
^XMB(3.9,141,2,461,0)="""RTN"",""SCRPW26"",131,0)"
^XMB(3.9,141,2,462,0)=" Q"
^XMB(3.9,141,2,463,0)="""RTN"",""SCRPW26"",132,0)"
^XMB(3.9,141,2,464,0)="TEST1 X $P(SDA,T,7) S SDII="""" F  S SDII=$O(SDX(SDII)) Q:'SDII  W !?5,SDX(SDII)"
^XMB(3.9,141,2,465,0)="""RTN"",""SCRPW26"",133,0)"
^XMB(3.9,141,2,466,0)=" Q"
^XMB(3.9,141,2,467,0)="""RTN"",""SCRPW26"",134,0)"
^XMB(3.9,141,2,468,0)=" ;"
^XMB(3.9,141,2,469,0)="""RTN"",""SCRPW26"",135,0)"
^XMB(3.9,141,2,470,0)="INTRO ;Intro. text"
^XMB(3.9,141,2,471,0)="""RTN"",""SCRPW26"",136,0)"
^XMB(3.9,141,2,472,0)=" W !!?10,""This report can be used to produce information from the ACRP"",!?10,""databases in a variety of ways.  Parameter selection will"",!?10,""determine how to count and screen the information."""
^XMB(3.9,141,2,473,0)="""RTN"",""SCRPW26"",137,0)"
^XMB(3.9,141,2,474,0)=" W !!?10,""The report user is prompted for report parameters in the"",!?10,""following categories:"",!!?10,$$XY^SCRPW20(IORVON),""FORMAT"",$$XY^SCRPW20(IORVOFF),"" - determines the style of report to be printed."""
^XMB(3.9,141,2,475,0)="""RTN"",""SCRPW26"",138,0)"
^XMB(3.9,141,2,476,0)=" W !!?10,$$XY^SCRPW20(IORVON),""PERSPECTIVE"",$$XY^SCRPW20(IORVOFF),"" - the element that the report will be organized"",!?10,""and sub-totaled by."""
^XMB(3.9,141,2,477,0)="""RTN"",""SCRPW26"",139,0)"
^XMB(3.9,141,2,478,0)=" W !!?10,$$XY^SCRPW20(IORVON),""LIMITATIONS"",$$XY^SCRPW20(IORVOFF),"" - elements that can be used to narrow the scope"""
^XMB(3.9,141,2,479,0)="""RTN"",""SCRPW26"",140,0)"
^XMB(3.9,141,2,480,0)=" W !?10,""of the report to only include (or exclude) specified data."",!!?10,$$XY^SCRPW20(IORVON),""OUTPUT ORDER, PRINT FIELDS"",$$XY^SCRPW20(IORVOFF),"" - determines the order of output;"""
^XMB(3.9,141,2,481,0)="""RTN"",""SCRPW26"",141,0)"
^XMB(3.9,141,2,482,0)=" W !?10,""allows selection of print fields for detailed patient lists."" Q"
^XMB(3.9,141,2,483,0)="""VER"")"
^XMB(3.9,141,2,484,0)="8.0^22.0"
^XMB(3.9,141,2,485,0)="""BLD"",6419,6)"
^XMB(3.9,141,2,486,0)="^392"
^XMB(3.9,141,2,487,0)="$END KID SD*5.3*461"
^XMB(3.9,141,6,0)="^3.911A^2^2"
^XMB(3.9,141,6,1,0)="POSTMASTER"
^XMB(3.9,141,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,141,6,"B","POSTMASTER",1)=""
^XMB(3.9,141,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,142,0)="SD-5P3_SEQ-393_PAT-487.KID^.5^3061008.015742^^^^K"
^XMB(3.9,142,.6)="3061008"
^XMB(3.9,142,1,0)="^3.91A^2^2"
^XMB(3.9,142,1,1,0)=".5^0^3061008.015742^^^^^^^3061008.015742"
^XMB(3.9,142,1,2,0)="1^0^3061008.022748^^^^^^^3061008.022748"
^XMB(3.9,142,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,142,1,"C",.5,1)=""
^XMB(3.9,142,1,"C",1,2)=""
^XMB(3.9,142,2,0)="^^1363^1363^3061008"
^XMB(3.9,142,2,1,0)="$TXT Released SD*5.3*487 SEQ #393"
^XMB(3.9,142,2,2,0)="Extracted from mail message"
^XMB(3.9,142,2,3,0)="$END TXT"
^XMB(3.9,142,2,4,0)="$KID SD*5.3*487"
^XMB(3.9,142,2,5,0)="**INSTALL NAME**"
^XMB(3.9,142,2,6,0)="SD*5.3*487"
^XMB(3.9,142,2,7,0)="""BLD"",6770,0)"
^XMB(3.9,142,2,8,0)="SD*5.3*487^SCHEDULING^0^3060809^y"
^XMB(3.9,142,2,9,0)="""BLD"",6770,1,0)"
^XMB(3.9,142,2,10,0)="^^1^1^3050304^"
^XMB(3.9,142,2,11,0)="""BLD"",6770,1,1,0)"
^XMB(3.9,142,2,12,0)="Correct creation of ASDCN xref."
^XMB(3.9,142,2,13,0)="""BLD"",6770,4,0)"
^XMB(3.9,142,2,14,0)="^9.64PA^^"
^XMB(3.9,142,2,15,0)="""BLD"",6770,""ABPKG"")"
^XMB(3.9,142,2,16,0)="n"
^XMB(3.9,142,2,17,0)="""BLD"",6770,""INIT"")"
^XMB(3.9,142,2,18,0)="ASDCN^SD53P487"
^XMB(3.9,142,2,19,0)="""BLD"",6770,""KRN"",0)"
^XMB(3.9,142,2,20,0)="^9.67PA^8989.52^19"
^XMB(3.9,142,2,21,0)="""BLD"",6770,""KRN"",.4,0)"
^XMB(3.9,142,2,22,0)=".4"
^XMB(3.9,142,2,23,0)="""BLD"",6770,""KRN"",.401,0)"
^XMB(3.9,142,2,24,0)=".401"
^XMB(3.9,142,2,25,0)="""BLD"",6770,""KRN"",.402,0)"
^XMB(3.9,142,2,26,0)=".402"
^XMB(3.9,142,2,27,0)="""BLD"",6770,""KRN"",.403,0)"
^XMB(3.9,142,2,28,0)=".403"
^XMB(3.9,142,2,29,0)="""BLD"",6770,""KRN"",.5,0)"
^XMB(3.9,142,2,30,0)=".5"
^XMB(3.9,142,2,31,0)="""BLD"",6770,""KRN"",.84,0)"
^XMB(3.9,142,2,32,0)=".84"
^XMB(3.9,142,2,33,0)="""BLD"",6770,""KRN"",3.6,0)"
^XMB(3.9,142,2,34,0)="3.6"
^XMB(3.9,142,2,35,0)="""BLD"",6770,""KRN"",3.8,0)"
^XMB(3.9,142,2,36,0)="3.8"
^XMB(3.9,142,2,37,0)="""BLD"",6770,""KRN"",9.2,0)"
^XMB(3.9,142,2,38,0)="9.2"
^XMB(3.9,142,2,39,0)="""BLD"",6770,""KRN"",9.8,0)"
^XMB(3.9,142,2,40,0)="9.8"
^XMB(3.9,142,2,41,0)="""BLD"",6770,""KRN"",9.8,""NM"",0)"
^XMB(3.9,142,2,42,0)="^9.68A^9^8"
^XMB(3.9,142,2,43,0)="""BLD"",6770,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,142,2,44,0)="SD53P487^^0^B2096509"
^XMB(3.9,142,2,45,0)="""BLD"",6770,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,142,2,46,0)="SDAMOC^^0^B21770282"
^XMB(3.9,142,2,47,0)="""BLD"",6770,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,142,2,48,0)="SDAMOC0^^0^B4630788"
^XMB(3.9,142,2,49,0)="""BLD"",6770,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,142,2,50,0)="SDAMOCC^^0^B5703858"
^XMB(3.9,142,2,51,0)="""BLD"",6770,""KRN"",9.8,""NM"",6,0)"
^XMB(3.9,142,2,52,0)="SDAMOCP^^0^B13982690"
^XMB(3.9,142,2,53,0)="""BLD"",6770,""KRN"",9.8,""NM"",7,0)"
^XMB(3.9,142,2,54,0)="SDAMOCP1^^0^B17836724"
^XMB(3.9,142,2,55,0)="""BLD"",6770,""KRN"",9.8,""NM"",8,0)"
^XMB(3.9,142,2,56,0)="SDC^^0^B24948807"
^XMB(3.9,142,2,57,0)="""BLD"",6770,""KRN"",9.8,""NM"",9,0)"
^XMB(3.9,142,2,58,0)="SDCAN^^0^B837101"
^XMB(3.9,142,2,59,0)="""BLD"",6770,""KRN"",9.8,""NM"",""B"",""SD53P487"",2)"
^XMB(3.9,142,2,60,0)=""
^XMB(3.9,142,2,61,0)="""BLD"",6770,""KRN"",9.8,""NM"",""B"",""SDAMOC"",3)"
^XMB(3.9,142,2,62,0)=""
^XMB(3.9,142,2,63,0)="""BLD"",6770,""KRN"",9.8,""NM"",""B"",""SDAMOC0"",4)"
^XMB(3.9,142,2,64,0)=""
^XMB(3.9,142,2,65,0)="""BLD"",6770,""KRN"",9.8,""NM"",""B"",""SDAMOCC"",5)"
^XMB(3.9,142,2,66,0)=""
^XMB(3.9,142,2,67,0)="""BLD"",6770,""KRN"",9.8,""NM"",""B"",""SDAMOCP"",6)"
^XMB(3.9,142,2,68,0)=""
^XMB(3.9,142,2,69,0)="""BLD"",6770,""KRN"",9.8,""NM"",""B"",""SDAMOCP1"",7)"
^XMB(3.9,142,2,70,0)=""
^XMB(3.9,142,2,71,0)="""BLD"",6770,""KRN"",9.8,""NM"",""B"",""SDC"",8)"
^XMB(3.9,142,2,72,0)=""
^XMB(3.9,142,2,73,0)="""BLD"",6770,""KRN"",9.8,""NM"",""B"",""SDCAN"",9)"
^XMB(3.9,142,2,74,0)=""
^XMB(3.9,142,2,75,0)="""BLD"",6770,""KRN"",19,0)"
^XMB(3.9,142,2,76,0)="19"
^XMB(3.9,142,2,77,0)="""BLD"",6770,""KRN"",19,""NM"",0)"
^XMB(3.9,142,2,78,0)="^9.68A^2^2"
^XMB(3.9,142,2,79,0)="""BLD"",6770,""KRN"",19,""NM"",1,0)"
^XMB(3.9,142,2,80,0)="SDAM CANCELLED CLINIC RPT^^0"
^XMB(3.9,142,2,81,0)="""BLD"",6770,""KRN"",19,""NM"",2,0)"
^XMB(3.9,142,2,82,0)="SDOUTPUT^^3"
^XMB(3.9,142,2,83,0)="""BLD"",6770,""KRN"",19,""NM"",""B"",""SDAM CANCELLED CLINIC RPT"",1)"
^XMB(3.9,142,2,84,0)=""
^XMB(3.9,142,2,85,0)="""BLD"",6770,""KRN"",19,""NM"",""B"",""SDOUTPUT"",2)"
^XMB(3.9,142,2,86,0)=""
^XMB(3.9,142,2,87,0)="""BLD"",6770,""KRN"",19.1,0)"
^XMB(3.9,142,2,88,0)="19.1"
^XMB(3.9,142,2,89,0)="""BLD"",6770,""KRN"",101,0)"
^XMB(3.9,142,2,90,0)="101"
^XMB(3.9,142,2,91,0)="""BLD"",6770,""KRN"",409.61,0)"
^XMB(3.9,142,2,92,0)="409.61"
^XMB(3.9,142,2,93,0)="""BLD"",6770,""KRN"",771,0)"
^XMB(3.9,142,2,94,0)="771"
^XMB(3.9,142,2,95,0)="""BLD"",6770,""KRN"",870,0)"
^XMB(3.9,142,2,96,0)="870"
^XMB(3.9,142,2,97,0)="""BLD"",6770,""KRN"",8989.51,0)"
^XMB(3.9,142,2,98,0)="8989.51"
^XMB(3.9,142,2,99,0)="""BLD"",6770,""KRN"",8989.52,0)"
^XMB(3.9,142,2,100,0)="8989.52"
^XMB(3.9,142,2,101,0)="""BLD"",6770,""KRN"",8994,0)"
^XMB(3.9,142,2,102,0)="8994"
^XMB(3.9,142,2,103,0)="""BLD"",6770,""KRN"",""B"",.4,.4)"
^XMB(3.9,142,2,104,0)=""
^XMB(3.9,142,2,105,0)="""BLD"",6770,""KRN"",""B"",.401,.401)"
^XMB(3.9,142,2,106,0)=""
^XMB(3.9,142,2,107,0)="""BLD"",6770,""KRN"",""B"",.402,.402)"
^XMB(3.9,142,2,108,0)=""
^XMB(3.9,142,2,109,0)="""BLD"",6770,""KRN"",""B"",.403,.403)"
^XMB(3.9,142,2,110,0)=""
^XMB(3.9,142,2,111,0)="""BLD"",6770,""KRN"",""B"",.5,.5)"
^XMB(3.9,142,2,112,0)=""
^XMB(3.9,142,2,113,0)="""BLD"",6770,""KRN"",""B"",.84,.84)"
^XMB(3.9,142,2,114,0)=""
^XMB(3.9,142,2,115,0)="""BLD"",6770,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,142,2,116,0)=""
^XMB(3.9,142,2,117,0)="""BLD"",6770,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,142,2,118,0)=""
^XMB(3.9,142,2,119,0)="""BLD"",6770,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,142,2,120,0)=""
^XMB(3.9,142,2,121,0)="""BLD"",6770,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,142,2,122,0)=""
^XMB(3.9,142,2,123,0)="""BLD"",6770,""KRN"",""B"",19,19)"
^XMB(3.9,142,2,124,0)=""
^XMB(3.9,142,2,125,0)="""BLD"",6770,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,142,2,126,0)=""
^XMB(3.9,142,2,127,0)="""BLD"",6770,""KRN"",""B"",101,101)"
^XMB(3.9,142,2,128,0)=""
^XMB(3.9,142,2,129,0)="""BLD"",6770,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,142,2,130,0)=""
^XMB(3.9,142,2,131,0)="""BLD"",6770,""KRN"",""B"",771,771)"
^XMB(3.9,142,2,132,0)=""
^XMB(3.9,142,2,133,0)="""BLD"",6770,""KRN"",""B"",870,870)"
^XMB(3.9,142,2,134,0)=""
^XMB(3.9,142,2,135,0)="""BLD"",6770,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,142,2,136,0)=""
^XMB(3.9,142,2,137,0)="""BLD"",6770,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,142,2,138,0)=""
^XMB(3.9,142,2,139,0)="""BLD"",6770,""KRN"",""B"",8994,8994)"
^XMB(3.9,142,2,140,0)=""
^XMB(3.9,142,2,141,0)="""BLD"",6770,""QUES"",0)"
^XMB(3.9,142,2,142,0)="^9.62^^"
^XMB(3.9,142,2,143,0)="""BLD"",6770,""REQB"",0)"
^XMB(3.9,142,2,144,0)="^9.611^2^2"
^XMB(3.9,142,2,145,0)="""BLD"",6770,""REQB"",1,0)"
^XMB(3.9,142,2,146,0)="SD*5.3*167^2"
^XMB(3.9,142,2,147,0)="""BLD"",6770,""REQB"",2,0)"
^XMB(3.9,142,2,148,0)="SD*5.3*478^2"
^XMB(3.9,142,2,149,0)="""BLD"",6770,""REQB"",""B"",""SD*5.3*167"",1)"
^XMB(3.9,142,2,150,0)=""
^XMB(3.9,142,2,151,0)="""BLD"",6770,""REQB"",""B"",""SD*5.3*478"",2)"
^XMB(3.9,142,2,152,0)=""
^XMB(3.9,142,2,153,0)="""INIT"")"
^XMB(3.9,142,2,154,0)="ASDCN^SD53P487"
^XMB(3.9,142,2,155,0)="""KRN"",19,242,-1)"
^XMB(3.9,142,2,156,0)="3^2"
^XMB(3.9,142,2,157,0)="""KRN"",19,242,0)"
^XMB(3.9,142,2,158,0)="SDOUTPUT^Outputs^^M^^^^^^^^SCHEDULING"
^XMB(3.9,142,2,159,0)="""KRN"",19,242,1,0)"
^XMB(3.9,142,2,160,0)="^19.06^2^2^3040401^^^^"
^XMB(3.9,142,2,161,0)="""KRN"",19,242,1,1,0)"
^XMB(3.9,142,2,162,0)="This is the primary menu option which allows the user access to all"
^XMB(3.9,142,2,163,0)="""KRN"",19,242,1,2,0)"
^XMB(3.9,142,2,164,0)="output options of the scheduling module."
^XMB(3.9,142,2,165,0)="""KRN"",19,242,10,0)"
^XMB(3.9,142,2,166,0)="^19.01IP^32^23"
^XMB(3.9,142,2,167,0)="""KRN"",19,242,10,31,0)"
^XMB(3.9,142,2,168,0)="12064"
^XMB(3.9,142,2,169,0)="""KRN"",19,242,10,31,""^"")"
^XMB(3.9,142,2,170,0)="SDAM CANCELLED CLINIC RPT"
^XMB(3.9,142,2,171,0)="""KRN"",19,242,99)"
^XMB(3.9,142,2,172,0)="60387,48219"
^XMB(3.9,142,2,173,0)="""KRN"",19,242,""U"")"
^XMB(3.9,142,2,174,0)="OUTPUTS"
^XMB(3.9,142,2,175,0)="""KRN"",19,12064,-1)"
^XMB(3.9,142,2,176,0)="0^1"
^XMB(3.9,142,2,177,0)="""KRN"",19,12064,0)"
^XMB(3.9,142,2,178,0)="SDAM CANCELLED CLINIC RPT^Cancelled Clinic Report^^A^^^^^^^^^^1"
^XMB(3.9,142,2,179,0)="""KRN"",19,12064,20)"
^XMB(3.9,142,2,180,0)="D EN^SDAMOCC"
^XMB(3.9,142,2,181,0)="""KRN"",19,12064,25)"
^XMB(3.9,142,2,182,0)=""
^XMB(3.9,142,2,183,0)="""KRN"",19,12064,""U"")"
^XMB(3.9,142,2,184,0)="CANCELLED CLINIC REPORT"
^XMB(3.9,142,2,185,0)="""MBREQ"")"
^XMB(3.9,142,2,186,0)="0"
^XMB(3.9,142,2,187,0)="""ORD"",18,19)"
^XMB(3.9,142,2,188,0)="19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA"
^XMB(3.9,142,2,189,0)="""ORD"",18,19,0)"
^XMB(3.9,142,2,190,0)="OPTION"
^XMB(3.9,142,2,191,0)="""PKG"",16,-1)"
^XMB(3.9,142,2,192,0)="1^1"
^XMB(3.9,142,2,193,0)="""PKG"",16,0)"
^XMB(3.9,142,2,194,0)="SCHEDULING^SD^APPOINTMENTS,PROFILES,LETTERS,AMIS REPORTS"
^XMB(3.9,142,2,195,0)="""PKG"",16,20,0)"
^XMB(3.9,142,2,196,0)="^9.402P^^"
^XMB(3.9,142,2,197,0)="""PKG"",16,22,0)"
^XMB(3.9,142,2,198,0)="^9.49I^1^1"
^XMB(3.9,142,2,199,0)="""PKG"",16,22,1,0)"
^XMB(3.9,142,2,200,0)="5.3^2930813"
^XMB(3.9,142,2,201,0)="""PKG"",16,22,1,""PAH"",1,0)"
^XMB(3.9,142,2,202,0)="487^3060809"
^XMB(3.9,142,2,203,0)="""PKG"",16,22,1,""PAH"",1,1,0)"
^XMB(3.9,142,2,204,0)="^^1^1^3060809"
^XMB(3.9,142,2,205,0)="""PKG"",16,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,142,2,206,0)="Correct creation of ASDCN xref."
^XMB(3.9,142,2,207,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,142,2,208,0)="Y"
^XMB(3.9,142,2,209,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,142,2,210,0)="^D REP^XPDH"
^XMB(3.9,142,2,211,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,142,2,212,0)="Shall I write over your |FLAG| File"
^XMB(3.9,142,2,213,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,142,2,214,0)="YES"
^XMB(3.9,142,2,215,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,142,2,216,0)="D XPF1^XPDIQ"
^XMB(3.9,142,2,217,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,142,2,218,0)="Y"
^XMB(3.9,142,2,219,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,142,2,220,0)="^D DTA^XPDH"
^XMB(3.9,142,2,221,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,142,2,222,0)="Want my data |FLAG| yours"
^XMB(3.9,142,2,223,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,142,2,224,0)="YES"
^XMB(3.9,142,2,225,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,142,2,226,0)="D XPF2^XPDIQ"
^XMB(3.9,142,2,227,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,142,2,228,0)="YO"
^XMB(3.9,142,2,229,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,142,2,230,0)="^D INHIBIT^XPDH"
^XMB(3.9,142,2,231,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,142,2,232,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,142,2,233,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,142,2,234,0)="YES"
^XMB(3.9,142,2,235,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,142,2,236,0)="D XPI1^XPDIQ"
^XMB(3.9,142,2,237,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,142,2,238,0)="PO^VA(200,:EM"
^XMB(3.9,142,2,239,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,142,2,240,0)="^D MG^XPDH"
^XMB(3.9,142,2,241,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,142,2,242,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,142,2,243,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,142,2,244,0)=""
^XMB(3.9,142,2,245,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,142,2,246,0)="D XPM1^XPDIQ"
^XMB(3.9,142,2,247,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,142,2,248,0)="Y"
^XMB(3.9,142,2,249,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,142,2,250,0)="^D MENU^XPDH"
^XMB(3.9,142,2,251,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,142,2,252,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,142,2,253,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,142,2,254,0)="YES"
^XMB(3.9,142,2,255,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,142,2,256,0)="D XPO1^XPDIQ"
^XMB(3.9,142,2,257,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,142,2,258,0)="Y"
^XMB(3.9,142,2,259,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,142,2,260,0)="^D OPT^XPDH"
^XMB(3.9,142,2,261,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,142,2,262,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,142,2,263,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,142,2,264,0)="YES"
^XMB(3.9,142,2,265,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,142,2,266,0)="D XPZ1^XPDIQ"
^XMB(3.9,142,2,267,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,142,2,268,0)="Y"
^XMB(3.9,142,2,269,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,142,2,270,0)="^D RTN^XPDH"
^XMB(3.9,142,2,271,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,142,2,272,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,142,2,273,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,142,2,274,0)="NO"
^XMB(3.9,142,2,275,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,142,2,276,0)="D XPZ2^XPDIQ"
^XMB(3.9,142,2,277,0)="""RTN"")"
^XMB(3.9,142,2,278,0)="8"
^XMB(3.9,142,2,279,0)="""RTN"",""SD53P487"")"
^XMB(3.9,142,2,280,0)="0^2^B2096509^n/a"
^XMB(3.9,142,2,281,0)="""RTN"",""SD53P487"",1,0)"
^XMB(3.9,142,2,282,0)="SD53P487 ;;BP OIFO/RJV Fix ASDCN xref."
^XMB(3.9,142,2,283,0)="""RTN"",""SD53P487"",2,0)"
^XMB(3.9,142,2,284,0)=" ;;5.3;Scheduling;**487**;Aug 13, 1993"
^XMB(3.9,142,2,285,0)="""RTN"",""SD53P487"",3,0)"
^XMB(3.9,142,2,286,0)=" ;"
^XMB(3.9,142,2,287,0)="""RTN"",""SD53P487"",4,0)"
^XMB(3.9,142,2,288,0)=" ;Routine to loop thru appointments and if no xref for"
^XMB(3.9,142,2,289,0)="""RTN"",""SD53P487"",5,0)"
^XMB(3.9,142,2,290,0)=" ;cancelled, create it."
^XMB(3.9,142,2,291,0)="""RTN"",""SD53P487"",6,0)"
^XMB(3.9,142,2,292,0)=" ;"
^XMB(3.9,142,2,293,0)="""RTN"",""SD53P487"",7,0)"
^XMB(3.9,142,2,294,0)=" Q"
^XMB(3.9,142,2,295,0)="""RTN"",""SD53P487"",8,0)"
^XMB(3.9,142,2,296,0)="CHK ;"
^XMB(3.9,142,2,297,0)="""RTN"",""SD53P487"",9,0)"
^XMB(3.9,142,2,298,0)=" N STATUS,SC,SDDFN,SDAPDTE"
^XMB(3.9,142,2,299,0)="""RTN"",""SD53P487"",10,0)"
^XMB(3.9,142,2,300,0)=" S SDDFN=0,STATUS="""",SC="""""
^XMB(3.9,142,2,301,0)="""RTN"",""SD53P487"",11,0)"
^XMB(3.9,142,2,302,0)=" F  S SDDFN=$O(^DPT(SDDFN)) Q:+SDDFN=0  D"
^XMB(3.9,142,2,303,0)="""RTN"",""SD53P487"",12,0)"
^XMB(3.9,142,2,304,0)=" .S SDAPDTE=0 F  S SDAPDTE=$O(^DPT(SDDFN,""S"",SDAPDTE)) Q:SDAPDTE=""""  D"
^XMB(3.9,142,2,305,0)="""RTN"",""SD53P487"",13,0)"
^XMB(3.9,142,2,306,0)=" ..S SC=$P(^DPT(SDDFN,""S"",SDAPDTE,0),""^"",1)"
^XMB(3.9,142,2,307,0)="""RTN"",""SD53P487"",14,0)"
^XMB(3.9,142,2,308,0)=" ..S STATUS=$P(^DPT(SDDFN,""S"",SDAPDTE,0),""^"",2)"
^XMB(3.9,142,2,309,0)="""RTN"",""SD53P487"",15,0)"
^XMB(3.9,142,2,310,0)=" ..I STATUS[""C"",'$D(^DPT(""ASDCN"",SC,SDAPDTE,SDDFN)) D"
^XMB(3.9,142,2,311,0)="""RTN"",""SD53P487"",16,0)"
^XMB(3.9,142,2,312,0)=" ...W !,SDDFN_"" - ""_SDAPDTE_"" - ""_SC"
^XMB(3.9,142,2,313,0)="""RTN"",""SD53P487"",17,0)"
^XMB(3.9,142,2,314,0)=" Q"
^XMB(3.9,142,2,315,0)="""RTN"",""SD53P487"",18,0)"
^XMB(3.9,142,2,316,0)="ASDCN ;"
^XMB(3.9,142,2,317,0)="""RTN"",""SD53P487"",19,0)"
^XMB(3.9,142,2,318,0)=" N STATUS,SC,SDDFN,SDAPDTE"
^XMB(3.9,142,2,319,0)="""RTN"",""SD53P487"",20,0)"
^XMB(3.9,142,2,320,0)=" S SDDFN=0,STATUS="""",SC="""""
^XMB(3.9,142,2,321,0)="""RTN"",""SD53P487"",21,0)"
^XMB(3.9,142,2,322,0)=" F  S SDDFN=$O(^DPT(SDDFN)) Q:+SDDFN=0  D"
^XMB(3.9,142,2,323,0)="""RTN"",""SD53P487"",22,0)"
^XMB(3.9,142,2,324,0)=" .S SDAPDTE=0 F  S SDAPDTE=$O(^DPT(SDDFN,""S"",SDAPDTE)) Q:SDAPDTE=""""  D"
^XMB(3.9,142,2,325,0)="""RTN"",""SD53P487"",23,0)"
^XMB(3.9,142,2,326,0)=" ..I $P($G(^DPT(SDDFN,""S"",SDAPDTE,0)),""^"",1)="""" Q"
^XMB(3.9,142,2,327,0)="""RTN"",""SD53P487"",24,0)"
^XMB(3.9,142,2,328,0)=" ..S SC=$P(^DPT(SDDFN,""S"",SDAPDTE,0),""^"",1)"
^XMB(3.9,142,2,329,0)="""RTN"",""SD53P487"",25,0)"
^XMB(3.9,142,2,330,0)=" ..S STATUS=$P($G(^DPT(SDDFN,""S"",SDAPDTE,0)),""^"",2)"
^XMB(3.9,142,2,331,0)="""RTN"",""SD53P487"",26,0)"
^XMB(3.9,142,2,332,0)=" ..I STATUS[""C"",'$D(^DPT(""ASDCN"",SC,SDAPDTE,SDDFN)) D"
^XMB(3.9,142,2,333,0)="""RTN"",""SD53P487"",27,0)"
^XMB(3.9,142,2,334,0)=" ...S ^DPT(""ASDCN"",SC,SDAPDTE,SDDFN)=$S(STATUS[""P"":1,1:"""")"
^XMB(3.9,142,2,335,0)="""RTN"",""SD53P487"",28,0)"
^XMB(3.9,142,2,336,0)=" Q"
^XMB(3.9,142,2,337,0)="""RTN"",""SDAMOC"")"
^XMB(3.9,142,2,338,0)="0^3^B21770282^B21770282"
^XMB(3.9,142,2,339,0)="""RTN"",""SDAMOC"",1,0)"
^XMB(3.9,142,2,340,0)="SDAMOC ;IOFIO - BAY PINES/TEH - Statistical Report for Cancelled Appointments;4/15/92"
^XMB(3.9,142,2,341,0)="""RTN"",""SDAMOC"",2,0)"
^XMB(3.9,142,2,342,0)=" ;;5.3;Scheduling;**487**;Aug 13, 1993"
^XMB(3.9,142,2,343,0)="""RTN"",""SDAMOC"",3,0)"
^XMB(3.9,142,2,344,0)=" ;SCK - 5/18/93 MODS FOR APP CLININCS AND STOP CODES"
^XMB(3.9,142,2,345,0)="""RTN"",""SDAMOC"",4,0)"
^XMB(3.9,142,2,346,0)="STATS ;"
^XMB(3.9,142,2,347,0)="""RTN"",""SDAMOC"",5,0)"
^XMB(3.9,142,2,348,0)=" K ^TMP(""SDAMC""),^TMP(""SDAMCD"")"
^XMB(3.9,142,2,349,0)="""RTN"",""SDAMOC"",6,0)"
^XMB(3.9,142,2,350,0)=" N POP,%,%ZIS,ZTSAVE"
^XMB(3.9,142,2,351,0)="""RTN"",""SDAMOC"",7,0)"
^XMB(3.9,142,2,352,0)=" S SDFIN=0,SDSORT=SDSEL"
^XMB(3.9,142,2,353,0)="""RTN"",""SDAMOC"",8,0)"
^XMB(3.9,142,2,354,0)=" S FMT=$$OPTION()"
^XMB(3.9,142,2,355,0)="""RTN"",""SDAMOC"",9,0)"
^XMB(3.9,142,2,356,0)=" I '$$DIV^SDAMO G STATSQ"
^XMB(3.9,142,2,357,0)="""RTN"",""SDAMOC"",10,0)"
^XMB(3.9,142,2,358,0)=" I SDSEL=6 S VAUTC=1 G STATS1"
^XMB(3.9,142,2,359,0)="""RTN"",""SDAMOC"",11,0)"
^XMB(3.9,142,2,360,0)=" I SDSEL=5 S OPT=""GETCLN"" D @OPT G:SDFIN STATSQ"
^XMB(3.9,142,2,361,0)="""RTN"",""SDAMOC"",12,0)"
^XMB(3.9,142,2,362,0)="STATS1 ;"
^XMB(3.9,142,2,363,0)="""RTN"",""SDAMOC"",13,0)"
^XMB(3.9,142,2,364,0)=" I '$$COMPL G ^SDAMOCC"
^XMB(3.9,142,2,365,0)="""RTN"",""SDAMOC"",14,0)"
^XMB(3.9,142,2,366,0)=" W !!,$$LINE^SDAMOCC(""Device Selection"")"
^XMB(3.9,142,2,367,0)="""RTN"",""SDAMOC"",15,0)"
^XMB(3.9,142,2,368,0)=" W !!,""This output requires 132 columns."",!!"
^XMB(3.9,142,2,369,0)="""RTN"",""SDAMOC"",16,0)"
^XMB(3.9,142,2,370,0)=" S %ZIS=""PQM"" D ^%ZIS G STATSQ:POP"
^XMB(3.9,142,2,371,0)="""RTN"",""SDAMOC"",17,0)"
^XMB(3.9,142,2,372,0)=" I $D(IO(""Q"")) D QUE G STATSQ"
^XMB(3.9,142,2,373,0)="""RTN"",""SDAMOC"",18,0)"
^XMB(3.9,142,2,374,0)=" W ! D WAIT^DICD"
^XMB(3.9,142,2,375,0)="""RTN"",""SDAMOC"",19,0)"
^XMB(3.9,142,2,376,0)=" D START^SDAMOC"
^XMB(3.9,142,2,377,0)="""RTN"",""SDAMOC"",20,0)"
^XMB(3.9,142,2,378,0)="STATSQ ;"
^XMB(3.9,142,2,379,0)="""RTN"",""SDAMOC"",21,0)"
^XMB(3.9,142,2,380,0)=" D:'$D(ZTQUEUED) ^%ZISC"
^XMB(3.9,142,2,381,0)="""RTN"",""SDAMOC"",22,0)"
^XMB(3.9,142,2,382,0)=" K SDAMDD,SDAPPT,SDASH,SDAT,SDATA,SDAT,SDCL,SDCLC,SDCLI,SDCLIN,SDCOL,SDDATE,SDDIV,SDDV,SDFLG,SDI,SDLEN,SDNXT,SDPAGE,SDPAT,SDSTAT,SDSTOP,SDTDASH"
^XMB(3.9,142,2,383,0)="""RTN"",""SDAMOC"",23,0)"
^XMB(3.9,142,2,384,0)=" K ^TMP(""SDAMS"",$J),SDSEL,FMT,SDFIN,SDRUN,SCTOT,BLD,VAUTC,VAUTD,SDBEG,SDEND,VAUTNI,VAUTSTR,VAUTVB,SDSORT,DIC,DTOUT,DUOUT,DIROUT"
^XMB(3.9,142,2,385,0)="""RTN"",""SDAMOC"",24,0)"
^XMB(3.9,142,2,386,0)=" K SDCI,SDDFN,SDASH,SDAT,SDBEG,SDCL,SDDV,SDDVNM,SDDVNM,SDEND,SDFLG,SDNXT"
^XMB(3.9,142,2,387,0)="""RTN"",""SDAMOC"",25,0)"
^XMB(3.9,142,2,388,0)=" K SDPAGE,SDSTOP,SDTAB,SDTDASH,SDTOTT,SDY,Y"
^XMB(3.9,142,2,389,0)="""RTN"",""SDAMOC"",26,0)"
^XMB(3.9,142,2,390,0)=" K OPT,SDFIN,SDDFN,SDNAME,X,Y"
^XMB(3.9,142,2,391,0)="""RTN"",""SDAMOC"",27,0)"
^XMB(3.9,142,2,392,0)=" Q"
^XMB(3.9,142,2,393,0)="""RTN"",""SDAMOC"",28,0)"
^XMB(3.9,142,2,394,0)=" ;"
^XMB(3.9,142,2,395,0)="""RTN"",""SDAMOC"",29,0)"
^XMB(3.9,142,2,396,0)="START ;"
^XMB(3.9,142,2,397,0)="""RTN"",""SDAMOC"",30,0)"
^XMB(3.9,142,2,398,0)=" U IO"
^XMB(3.9,142,2,399,0)="""RTN"",""SDAMOC"",31,0)"
^XMB(3.9,142,2,400,0)=" K ^TMP(""SDAMC"",$J)"
^XMB(3.9,142,2,401,0)="""RTN"",""SDAMOC"",32,0)"
^XMB(3.9,142,2,402,0)=" S SDLEN=25,SDPAGE=1,$P(SDASH,""-"",IOM+1)="""",$P(SDTDASH,""="",IOM+1)="""",SDAMDD=$P(^DD(2.98,3,0),U,3)"
^XMB(3.9,142,2,403,0)="""RTN"",""SDAMOC"",33,0)"
^XMB(3.9,142,2,404,0)=" D EN"
^XMB(3.9,142,2,405,0)="""RTN"",""SDAMOC"",34,0)"
^XMB(3.9,142,2,406,0)=" I '$D(^TMP(""SDAMC"",$J)) D NOREP G STATSQ"
^XMB(3.9,142,2,407,0)="""RTN"",""SDAMOC"",35,0)"
^XMB(3.9,142,2,408,0)=" I FMT=1 D BLD^SDAMOCP"
^XMB(3.9,142,2,409,0)="""RTN"",""SDAMOC"",36,0)"
^XMB(3.9,142,2,410,0)=" I FMT'=1 D BLD^SDAMOCP1"
^XMB(3.9,142,2,411,0)="""RTN"",""SDAMOC"",37,0)"
^XMB(3.9,142,2,412,0)=" D STATSQ Q"
^XMB(3.9,142,2,413,0)="""RTN"",""SDAMOC"",38,0)"
^XMB(3.9,142,2,414,0)=" ;"
^XMB(3.9,142,2,415,0)="""RTN"",""SDAMOC"",39,0)"
^XMB(3.9,142,2,416,0)="EN ; build ^TMP global"
^XMB(3.9,142,2,417,0)="""RTN"",""SDAMOC"",40,0)"
^XMB(3.9,142,2,418,0)=" I FMT=1 D BLD1^SDAMOC"
^XMB(3.9,142,2,419,0)="""RTN"",""SDAMOC"",41,0)"
^XMB(3.9,142,2,420,0)=" I FMT'=1 D BLD1^SDAMOC"
^XMB(3.9,142,2,421,0)="""RTN"",""SDAMOC"",42,0)"
^XMB(3.9,142,2,422,0)="ENQ Q"
^XMB(3.9,142,2,423,0)="""RTN"",""SDAMOC"",43,0)"
^XMB(3.9,142,2,424,0)=" ;"
^XMB(3.9,142,2,425,0)="""RTN"",""SDAMOC"",44,0)"
^XMB(3.9,142,2,426,0)="BLD1 ;"
^XMB(3.9,142,2,427,0)="""RTN"",""SDAMOC"",45,0)"
^XMB(3.9,142,2,428,0)=" I VAUTD=1 S SDDIV=0 D CLINIC"
^XMB(3.9,142,2,429,0)="""RTN"",""SDAMOC"",46,0)"
^XMB(3.9,142,2,430,0)=" S SDDV=0 F  S SDDV=$O(VAUTD(SDDV)) Q:'SDDV  S SDDIV=SDDV D CLINIC"
^XMB(3.9,142,2,431,0)="""RTN"",""SDAMOC"",47,0)"
^XMB(3.9,142,2,432,0)=" Q"
^XMB(3.9,142,2,433,0)="""RTN"",""SDAMOC"",48,0)"
^XMB(3.9,142,2,434,0)=" ;"
^XMB(3.9,142,2,435,0)="""RTN"",""SDAMOC"",49,0)"
^XMB(3.9,142,2,436,0)="CLINIC ;all clinic or specific clinic"
^XMB(3.9,142,2,437,0)="""RTN"",""SDAMOC"",50,0)"
^XMB(3.9,142,2,438,0)=" ;"
^XMB(3.9,142,2,439,0)="""RTN"",""SDAMOC"",51,0)"
^XMB(3.9,142,2,440,0)=" ;all divisions and all clinics selected"
^XMB(3.9,142,2,441,0)="""RTN"",""SDAMOC"",52,0)"
^XMB(3.9,142,2,442,0)=" I VAUTD=1&(VAUTC=1) D"
^XMB(3.9,142,2,443,0)="""RTN"",""SDAMOC"",53,0)"
^XMB(3.9,142,2,444,0)=" .S SDCLIN=0 F  S SDCLIN=$O(^SC(SDCLIN)) Q:'SDCLIN  I $$CLINIC^SDAMU(SDCLIN) S SDCLC=$G(^SC(SDCLIN,0)) D PATIENT"
^XMB(3.9,142,2,445,0)="""RTN"",""SDAMOC"",54,0)"
^XMB(3.9,142,2,446,0)=" ;specific division and all clinics selected"
^XMB(3.9,142,2,447,0)="""RTN"",""SDAMOC"",55,0)"
^XMB(3.9,142,2,448,0)=" I SDDIV&(VAUTC=1) D"
^XMB(3.9,142,2,449,0)="""RTN"",""SDAMOC"",56,0)"
^XMB(3.9,142,2,450,0)=" .S SDCLIN=0 F  S SDCLIN=$O(^SC(SDCLIN)) Q:'SDCLIN  I $$CLINIC^SDAMU(SDCLIN) D"
^XMB(3.9,142,2,451,0)="""RTN"",""SDAMOC"",57,0)"
^XMB(3.9,142,2,452,0)=" ..S SDCLC=$G(^SC(SDCLIN,0)) I SDDIV=$$DIV^SDAMU(.SDCLIN,.VAUTD,.SDNAME,.SDLEN) D PATIENT"
^XMB(3.9,142,2,453,0)="""RTN"",""SDAMOC"",58,0)"
^XMB(3.9,142,2,454,0)=" ;all or specific division(s) and specific clinic(s) selected"
^XMB(3.9,142,2,455,0)="""RTN"",""SDAMOC"",59,0)"
^XMB(3.9,142,2,456,0)=" I VAUTC=0 D"
^XMB(3.9,142,2,457,0)="""RTN"",""SDAMOC"",60,0)"
^XMB(3.9,142,2,458,0)=" .S SDCLIN=0 F  S SDCLIN=$O(VAUTC(SDCLIN)) Q:'SDCLIN  S SDCLC=$G(^SC(+SDCLIN,0)) D:VAUTD!(SDDIV=$$DIV^SDAMU(.SDCLIN,.VAUTD,.SDNAME,.SDLEN)) PATIENT"
^XMB(3.9,142,2,459,0)="""RTN"",""SDAMOC"",61,0)"
^XMB(3.9,142,2,460,0)=" Q"
^XMB(3.9,142,2,461,0)="""RTN"",""SDAMOC"",62,0)"
^XMB(3.9,142,2,462,0)=" ;"
^XMB(3.9,142,2,463,0)="""RTN"",""SDAMOC"",63,0)"
^XMB(3.9,142,2,464,0)="PATIENT ;loop through appointments - find status of appt."
^XMB(3.9,142,2,465,0)="""RTN"",""SDAMOC"",64,0)"
^XMB(3.9,142,2,466,0)=" ;"
^XMB(3.9,142,2,467,0)="""RTN"",""SDAMOC"",65,0)"
^XMB(3.9,142,2,468,0)=" S SDDATE=SDBEG-.1 N SDCTYP"
^XMB(3.9,142,2,469,0)="""RTN"",""SDAMOC"",66,0)"
^XMB(3.9,142,2,470,0)=" F SDDATE=SDDATE:0 S SDDATE=$O(^DPT(""ASDCN"",SDCLIN,SDDATE)) Q:'SDDATE!(SDDATE>(SDEND_"".9""))  D"
^XMB(3.9,142,2,471,0)="""RTN"",""SDAMOC"",67,0)"
^XMB(3.9,142,2,472,0)=" .S SDDFN=0 F  S SDDFN=$O(^DPT(""ASDCN"",SDCLIN,SDDATE,SDDFN)) Q:SDDFN=""""  D SET"
^XMB(3.9,142,2,473,0)="""RTN"",""SDAMOC"",68,0)"
^XMB(3.9,142,2,474,0)=" Q"
^XMB(3.9,142,2,475,0)="""RTN"",""SDAMOC"",69,0)"
^XMB(3.9,142,2,476,0)=" ;"
^XMB(3.9,142,2,477,0)="""RTN"",""SDAMOC"",70,0)"
^XMB(3.9,142,2,478,0)="SET ;Set in ^TMP(""SDAMC"",$J,Division,Clinic Name,Clinic)"
^XMB(3.9,142,2,479,0)="""RTN"",""SDAMOC"",71,0)"
^XMB(3.9,142,2,480,0)=" ;"
^XMB(3.9,142,2,481,0)="""RTN"",""SDAMOC"",72,0)"
^XMB(3.9,142,2,482,0)=" S SDDV=$$DIV^SDAMU(.SDCLIN,.VAUTD,.SDNAME,.SDLEN)"
^XMB(3.9,142,2,483,0)="""RTN"",""SDAMOC"",73,0)"
^XMB(3.9,142,2,484,0)=" S SDATA=$G(^DPT(SDDFN,""S"",SDDATE,0)) I 'SDATA G SETQ"
^XMB(3.9,142,2,485,0)="""RTN"",""SDAMOC"",74,0)"
^XMB(3.9,142,2,486,0)=" S SDCTYP=$P(SDATA,U,2) I SDCTYP="""" G SETQ"
^XMB(3.9,142,2,487,0)="""RTN"",""SDAMOC"",75,0)"
^XMB(3.9,142,2,488,0)=" I SDCTYP=""N""!(SDCTYP=""NT"")!(SDCTYP=""NA"")!(SDCTYP=""I"") G SETQ"
^XMB(3.9,142,2,489,0)="""RTN"",""SDAMOC"",76,0)"
^XMB(3.9,142,2,490,0)=" S SDCTYP=$S(SDCTYP=""C"":1,SDCTYP=""CA"":2,SDCTYP=""PC"":3,SDCTYP=""PCA"":4,1:1)"
^XMB(3.9,142,2,491,0)="""RTN"",""SDAMOC"",77,0)"
^XMB(3.9,142,2,492,0)=" S ^TMP(""SDAMC"",$J,SDDV,SDCLIN,SDCTYP)=$G(^TMP(""SDAMC"",$J,SDDV,SDCLIN,SDCTYP))+1"
^XMB(3.9,142,2,493,0)="""RTN"",""SDAMOC"",78,0)"
^XMB(3.9,142,2,494,0)=" S ^TMP(""SDAMCD"",$J,SDDV,$P(SDATA,""^"",2),SDCLIN,SDDATE,SDDFN)=SDATA_"";""_SDDATE"
^XMB(3.9,142,2,495,0)="""RTN"",""SDAMOC"",79,0)"
^XMB(3.9,142,2,496,0)="SETQ Q"
^XMB(3.9,142,2,497,0)="""RTN"",""SDAMOC"",80,0)"
^XMB(3.9,142,2,498,0)=" ;"
^XMB(3.9,142,2,499,0)="""RTN"",""SDAMOC"",81,0)"
^XMB(3.9,142,2,500,0)="GETCLN S SDFIN='$$CLINIC^SDAMO Q"
^XMB(3.9,142,2,501,0)="""RTN"",""SDAMOC"",82,0)"
^XMB(3.9,142,2,502,0)=" ;"
^XMB(3.9,142,2,503,0)="""RTN"",""SDAMOC"",83,0)"
^XMB(3.9,142,2,504,0)="GETSC S SDFIN='$$STOP Q"
^XMB(3.9,142,2,505,0)="""RTN"",""SDAMOC"",84,0)"
^XMB(3.9,142,2,506,0)=" ;"
^XMB(3.9,142,2,507,0)="""RTN"",""SDAMOC"",85,0)"
^XMB(3.9,142,2,508,0)="NOREP ;report if no data in TMP global"
^XMB(3.9,142,2,509,0)="""RTN"",""SDAMOC"",86,0)"
^XMB(3.9,142,2,510,0)=" W !!,?29,""Cancelled Clinic Report"""
^XMB(3.9,142,2,511,0)="""RTN"",""SDAMOC"",87,0)"
^XMB(3.9,142,2,512,0)=" W !,?20,""Date Range "",$$FDATE^VALM1(SDBEG)_"" to ""_$$FDATE^VALM1(SDEND)"
^XMB(3.9,142,2,513,0)="""RTN"",""SDAMOC"",88,0)"
^XMB(3.9,142,2,514,0)=" D NOW^%DTC W !,?20,""Run Date: "",$E($$FDTTM^VALM1(%),1,14),?50,""Page: 1"""
^XMB(3.9,142,2,515,0)="""RTN"",""SDAMOC"",89,0)"
^XMB(3.9,142,2,516,0)=" W !,SDASH"
^XMB(3.9,142,2,517,0)="""RTN"",""SDAMOC"",90,0)"
^XMB(3.9,142,2,518,0)=" W !!?20,""No data found matching sort parameters"""
^XMB(3.9,142,2,519,0)="""RTN"",""SDAMOC"",91,0)"
^XMB(3.9,142,2,520,0)=" Q"
^XMB(3.9,142,2,521,0)="""RTN"",""SDAMOC"",92,0)"
^XMB(3.9,142,2,522,0)=" ;"
^XMB(3.9,142,2,523,0)="""RTN"",""SDAMOC"",93,0)"
^XMB(3.9,142,2,524,0)="OPTION(CHECK) ;"
^XMB(3.9,142,2,525,0)="""RTN"",""SDAMOC"",94,0)"
^XMB(3.9,142,2,526,0)=" S X=""S^"""
^XMB(3.9,142,2,527,0)="""RTN"",""SDAMOC"",95,0)"
^XMB(3.9,142,2,528,0)=" S X=X_""1:Summary;"""
^XMB(3.9,142,2,529,0)="""RTN"",""SDAMOC"",96,0)"
^XMB(3.9,142,2,530,0)=" S X=X_""2:Detail"""
^XMB(3.9,142,2,531,0)="""RTN"",""SDAMOC"",97,0)"
^XMB(3.9,142,2,532,0)=" S DIR(0)=X,DIR(""A"")=""Select Report Format"",DIR(""?"")=""Select format for printed report"",DIR(""B"")=""Summary"""
^XMB(3.9,142,2,533,0)="""RTN"",""SDAMOC"",98,0)"
^XMB(3.9,142,2,534,0)=" D ^DIR K DIR"
^XMB(3.9,142,2,535,0)="""RTN"",""SDAMOC"",99,0)"
^XMB(3.9,142,2,536,0)=" Q (+Y)"
^XMB(3.9,142,2,537,0)="""RTN"",""SDAMOC"",100,0)"
^XMB(3.9,142,2,538,0)="QUE ;"
^XMB(3.9,142,2,539,0)="""RTN"",""SDAMOC"",101,0)"
^XMB(3.9,142,2,540,0)=" S ZTRTN=""START^SDAMOC"",ZTDESC=""Cancelled Clinic Report"""
^XMB(3.9,142,2,541,0)="""RTN"",""SDAMOC"",102,0)"
^XMB(3.9,142,2,542,0)=" F X=""FMT"",""VAUTC("",""VAUTD("",""SDSORT"",""SDSEL"",""SDBEG"",""SDEND"",""VAUTD"",""VAUTC"" S ZTSAVE(X)="""""
^XMB(3.9,142,2,543,0)="""RTN"",""SDAMOC"",103,0)"
^XMB(3.9,142,2,544,0)=" D ^%ZTLOAD W:$D(ZTSK) !,""Task #"",ZTSK,"" Started."""
^XMB(3.9,142,2,545,0)="""RTN"",""SDAMOC"",104,0)"
^XMB(3.9,142,2,546,0)=" D HOME^%ZIS K IO(""Q""),ZTSK,ZTDESC,ZTQUEUED,ZTRTN"
^XMB(3.9,142,2,547,0)="""RTN"",""SDAMOC"",105,0)"
^XMB(3.9,142,2,548,0)=" Q"
^XMB(3.9,142,2,549,0)="""RTN"",""SDAMOC"",106,0)"
^XMB(3.9,142,2,550,0)="STOP() ;"
^XMB(3.9,142,2,551,0)="""RTN"",""SDAMOC"",107,0)"
^XMB(3.9,142,2,552,0)=" W !!,$$LINE^SDAMO(""Stop Code Selection"")"
^XMB(3.9,142,2,553,0)="""RTN"",""SDAMOC"",108,0)"
^XMB(3.9,142,2,554,0)=" S DIC=""^DIC(40.7,"",VAUTSTR=""Stop Code"",VAUTVB=""VAUTC"",VAUTNI=2"
^XMB(3.9,142,2,555,0)="""RTN"",""SDAMOC"",109,0)"
^XMB(3.9,142,2,556,0)=" D FIRST^VAUTOMA"
^XMB(3.9,142,2,557,0)="""RTN"",""SDAMOC"",110,0)"
^XMB(3.9,142,2,558,0)=" I Y<0 K VAUTC"
^XMB(3.9,142,2,559,0)="""RTN"",""SDAMOC"",111,0)"
^XMB(3.9,142,2,560,0)=" Q $D(VAUTC)>0"
^XMB(3.9,142,2,561,0)="""RTN"",""SDAMOC"",112,0)"
^XMB(3.9,142,2,562,0)=" ;"
^XMB(3.9,142,2,563,0)="""RTN"",""SDAMOC"",113,0)"
^XMB(3.9,142,2,564,0)="COMPL() ;"
^XMB(3.9,142,2,565,0)="""RTN"",""SDAMOC"",114,0)"
^XMB(3.9,142,2,566,0)=" I '$$DISP^SDAMOC0 S Y=0 G COMPLQ"
^XMB(3.9,142,2,567,0)="""RTN"",""SDAMOC"",115,0)"
^XMB(3.9,142,2,568,0)=" S DIR(0)=""Y"",DIR(""A"")=""Continue"",DIR(""?"")=""Enter 'Y'es or 'N'o."",DIR(""B"")=""YES"""
^XMB(3.9,142,2,569,0)="""RTN"",""SDAMOC"",116,0)"
^XMB(3.9,142,2,570,0)=" D ^DIR K DIR I $D(DTOUT) S Y=0"
^XMB(3.9,142,2,571,0)="""RTN"",""SDAMOC"",117,0)"
^XMB(3.9,142,2,572,0)="COMPLQ Q (Y)"
^XMB(3.9,142,2,573,0)="""RTN"",""SDAMOC0"")"
^XMB(3.9,142,2,574,0)="0^4^B4630788^B4630788"
^XMB(3.9,142,2,575,0)="""RTN"",""SDAMOC0"",1,0)"
^XMB(3.9,142,2,576,0)="SDAMOC0 ;OIFO BAY PINES/TEH - AM MGT REPORTS STATISTICS BUILD GLOBAL ;5/25/93"
^XMB(3.9,142,2,577,0)="""RTN"",""SDAMOC0"",2,0)"
^XMB(3.9,142,2,578,0)=" ;;5.3;Scheduling;**487**;Aug 13, 1993"
^XMB(3.9,142,2,579,0)="""RTN"",""SDAMOC0"",3,0)"
^XMB(3.9,142,2,580,0)=" ;"
^XMB(3.9,142,2,581,0)="""RTN"",""SDAMOC0"",4,0)"
^XMB(3.9,142,2,582,0)="STOPC ;  build global of action counts from division/stopcode in TMP"
^XMB(3.9,142,2,583,0)="""RTN"",""SDAMOC0"",5,0)"
^XMB(3.9,142,2,584,0)=" S SDT=SDBEG F  S SDT=$O(^SCE(""B"",SDT)) Q:'SDT!(SDT>SDEND)  D"
^XMB(3.9,142,2,585,0)="""RTN"",""SDAMOC0"",6,0)"
^XMB(3.9,142,2,586,0)=" . S SDOE=0 F  S SDOE=$O(^SCE(""B"",SDT,SDOE)) Q:'SDOE  D"
^XMB(3.9,142,2,587,0)="""RTN"",""SDAMOC0"",7,0)"
^XMB(3.9,142,2,588,0)=" .. I '$D(^SCE(SDOE,0)) Q"
^XMB(3.9,142,2,589,0)="""RTN"",""SDAMOC0"",8,0)"
^XMB(3.9,142,2,590,0)=" .. S SDOEO=$G(^SCE(SDOE,0))"
^XMB(3.9,142,2,591,0)="""RTN"",""SDAMOC0"",9,0)"
^XMB(3.9,142,2,592,0)=" .. I '$$OKDIV(+$P($G(SDOEO),U,11))!('$$STCHK(+$P($G(SDOEO),U,3))) Q"
^XMB(3.9,142,2,593,0)="""RTN"",""SDAMOC0"",10,0)"
^XMB(3.9,142,2,594,0)=" .. S SDDIV=$P($G(^DG(40.8,+$P($G(SDOEO),U,11),0)),U)"
^XMB(3.9,142,2,595,0)="""RTN"",""SDAMOC0"",11,0)"
^XMB(3.9,142,2,596,0)=" .. S SDCODE=$P($G(^DIC(40.7,+$P(SDOEO,U,3),0)),U)"
^XMB(3.9,142,2,597,0)="""RTN"",""SDAMOC0"",12,0)"
^XMB(3.9,142,2,598,0)=" .. I $P($G(SDOEO),U,12)>0 S ^TMP(""SDAMS"",$J,SDDIV,SDCODE,+$P(SDOEO,U,12))=$G(^TMP(""SDAMS"",$J,SDDIV,SDCODE,+$P(SDOEO,U,12)))+1"
^XMB(3.9,142,2,599,0)="""RTN"",""SDAMOC0"",13,0)"
^XMB(3.9,142,2,600,0)=" K SDT,SDOE,SDOEO,SDDIV,SDCODE"
^XMB(3.9,142,2,601,0)="""RTN"",""SDAMOC0"",14,0)"
^XMB(3.9,142,2,602,0)=" Q"
^XMB(3.9,142,2,603,0)="""RTN"",""SDAMOC0"",15,0)"
^XMB(3.9,142,2,604,0)=" ;"
^XMB(3.9,142,2,605,0)="""RTN"",""SDAMOC0"",16,0)"
^XMB(3.9,142,2,606,0)="OKDIV(SDDV) ; check for division in list of valid divisions (vautd)"
^XMB(3.9,142,2,607,0)="""RTN"",""SDAMOC0"",17,0)"
^XMB(3.9,142,2,608,0)=" N Y S Y=0"
^XMB(3.9,142,2,609,0)="""RTN"",""SDAMOC0"",18,0)"
^XMB(3.9,142,2,610,0)=" I VAUTD S Y=1 G OKDIVQ"
^XMB(3.9,142,2,611,0)="""RTN"",""SDAMOC0"",19,0)"
^XMB(3.9,142,2,612,0)=" I $D(VAUTD(SDDV)) S Y=1"
^XMB(3.9,142,2,613,0)="""RTN"",""SDAMOC0"",20,0)"
^XMB(3.9,142,2,614,0)="OKDIVQ Q (+Y)"
^XMB(3.9,142,2,615,0)="""RTN"",""SDAMOC0"",21,0)"
^XMB(3.9,142,2,616,0)=" ;"
^XMB(3.9,142,2,617,0)="""RTN"",""SDAMOC0"",22,0)"
^XMB(3.9,142,2,618,0)="STCHK(SDSTC) ;  check for stopcode in list of valid stopcodes (vautc)"
^XMB(3.9,142,2,619,0)="""RTN"",""SDAMOC0"",23,0)"
^XMB(3.9,142,2,620,0)=" N Y S Y=0"
^XMB(3.9,142,2,621,0)="""RTN"",""SDAMOC0"",24,0)"
^XMB(3.9,142,2,622,0)=" I VAUTC S Y=1 G STCHKQ"
^XMB(3.9,142,2,623,0)="""RTN"",""SDAMOC0"",25,0)"
^XMB(3.9,142,2,624,0)=" I $D(VAUTC(SDSTC)) S Y=1"
^XMB(3.9,142,2,625,0)="""RTN"",""SDAMOC0"",26,0)"
^XMB(3.9,142,2,626,0)="STCHKQ Q (+Y)"
^XMB(3.9,142,2,627,0)="""RTN"",""SDAMOC0"",27,0)"
^XMB(3.9,142,2,628,0)=" ;"
^XMB(3.9,142,2,629,0)="""RTN"",""SDAMOC0"",28,0)"
^XMB(3.9,142,2,630,0)="DISP() ; -- display selection choices"
^XMB(3.9,142,2,631,0)="""RTN"",""SDAMOC0"",29,0)"
^XMB(3.9,142,2,632,0)=" N C,D,I"
^XMB(3.9,142,2,633,0)="""RTN"",""SDAMOC0"",30,0)"
^XMB(3.9,142,2,634,0)=" D HOME^%ZIS W @IOF,*13"
^XMB(3.9,142,2,635,0)="""RTN"",""SDAMOC0"",31,0)"
^XMB(3.9,142,2,636,0)=" W $$LINE^SDAMOCC(""Report Specifications"")"
^XMB(3.9,142,2,637,0)="""RTN"",""SDAMOC0"",32,0)"
^XMB(3.9,142,2,638,0)=" W !!,""   Encounter Dates: "",$$FDATE^VALM1(SDBEG),"" to "",$$FDATE^VALM1(SDEND)"
^XMB(3.9,142,2,639,0)="""RTN"",""SDAMOC0"",33,0)"
^XMB(3.9,142,2,640,0)=" W !,""     Report Format: "",""Appointment Clinics"""
^XMB(3.9,142,2,641,0)="""RTN"",""SDAMOC0"",34,0)"
^XMB(3.9,142,2,642,0)=" W !!?15,""Divisions"",?55,""Clinics"""
^XMB(3.9,142,2,643,0)="""RTN"",""SDAMOC0"",35,0)"
^XMB(3.9,142,2,644,0)=" W !?15,""---------"",?55,""----------"""
^XMB(3.9,142,2,645,0)="""RTN"",""SDAMOC0"",36,0)"
^XMB(3.9,142,2,646,0)=" S (D,C)=0"
^XMB(3.9,142,2,647,0)="""RTN"",""SDAMOC0"",37,0)"
^XMB(3.9,142,2,648,0)=" I VAUTD!VAUTC S D=$S(VAUTD:""All"",1:$O(VAUTD(0))),C=$S(VAUTC:""All"",1:$O(VAUTC(0))) W !?15,$S(D:VAUTD(D),1:D),?55,$S(C:VAUTC(C),1:C)"
^XMB(3.9,142,2,649,0)="""RTN"",""SDAMOC0"",38,0)"
^XMB(3.9,142,2,650,0)=" S D=+D,C=+C"
^XMB(3.9,142,2,651,0)="""RTN"",""SDAMOC0"",39,0)"
^XMB(3.9,142,2,652,0)=" F I=1:1 S:D'="""" D=$O(VAUTD(D)) S:C'="""" C=$O(VAUTC(C)) Q:'D&('C)  W ! W:D ?15,VAUTD(D) W:C ?55,VAUTC(C) I I>9 S I=0 D PAUSE^VALM1 I 'Y G DISPQ"
^XMB(3.9,142,2,653,0)="""RTN"",""SDAMOC0"",40,0)"
^XMB(3.9,142,2,654,0)=" W !,$$LINE^SDAMOCC("""")"
^XMB(3.9,142,2,655,0)="""RTN"",""SDAMOC0"",41,0)"
^XMB(3.9,142,2,656,0)=" S Y=1"
^XMB(3.9,142,2,657,0)="""RTN"",""SDAMOC0"",42,0)"
^XMB(3.9,142,2,658,0)="DISPQ Q Y"
^XMB(3.9,142,2,659,0)="""RTN"",""SDAMOCC"")"
^XMB(3.9,142,2,660,0)="0^5^B5703858^B5703858"
^XMB(3.9,142,2,661,0)="""RTN"",""SDAMOCC"",1,0)"
^XMB(3.9,142,2,662,0)="SDAMOCC ;IOFIO BAYPINES/TEH - AM Mgt Reports ; 12/1/91"
^XMB(3.9,142,2,663,0)="""RTN"",""SDAMOCC"",2,0)"
^XMB(3.9,142,2,664,0)=" ;;5.3;Scheduling;**487**;Aug 13, 1993"
^XMB(3.9,142,2,665,0)="""RTN"",""SDAMOCC"",3,0)"
^XMB(3.9,142,2,666,0)=" ;"
^XMB(3.9,142,2,667,0)="""RTN"",""SDAMOCC"",4,0)"
^XMB(3.9,142,2,668,0)="EN ; main entry point"
^XMB(3.9,142,2,669,0)="""RTN"",""SDAMOCC"",5,0)"
^XMB(3.9,142,2,670,0)=" N DIC,SDBEG,SDEND,SDSEL,VAUTD,VAUTC,SDSORT,SDAMLIST,Y,VAUTNI,VAUTSTR,VAUTVB,DIRUT"
^XMB(3.9,142,2,671,0)="""RTN"",""SDAMOCC"",6,0)"
^XMB(3.9,142,2,672,0)="EN1 I '$$INIT G ENQ"
^XMB(3.9,142,2,673,0)="""RTN"",""SDAMOCC"",7,0)"
^XMB(3.9,142,2,674,0)=" ;"
^XMB(3.9,142,2,675,0)="""RTN"",""SDAMOCC"",8,0)"
^XMB(3.9,142,2,676,0)="ASKBDT ;"
^XMB(3.9,142,2,677,0)="""RTN"",""SDAMOCC"",9,0)"
^XMB(3.9,142,2,678,0)=" W !!,$$LINE(""Date Range Selection""),!"
^XMB(3.9,142,2,679,0)="""RTN"",""SDAMOCC"",10,0)"
^XMB(3.9,142,2,680,0)=" S %DT=""AEX"",%DT(""A"")=""Select Beginning Date: """
^XMB(3.9,142,2,681,0)="""RTN"",""SDAMOCC"",11,0)"
^XMB(3.9,142,2,682,0)=" D ^%DT S SDBEG=Y"
^XMB(3.9,142,2,683,0)="""RTN"",""SDAMOCC"",12,0)"
^XMB(3.9,142,2,684,0)=" I X=""^"" Q"
^XMB(3.9,142,2,685,0)="""RTN"",""SDAMOCC"",13,0)"
^XMB(3.9,142,2,686,0)=" I Y=-1 W !!,""Invalid Date!"",! G ASKBDT"
^XMB(3.9,142,2,687,0)="""RTN"",""SDAMOCC"",14,0)"
^XMB(3.9,142,2,688,0)=" K %DT,Y"
^XMB(3.9,142,2,689,0)="""RTN"",""SDAMOCC"",15,0)"
^XMB(3.9,142,2,690,0)="ASKEDT ;"
^XMB(3.9,142,2,691,0)="""RTN"",""SDAMOCC"",16,0)"
^XMB(3.9,142,2,692,0)=" S %DT=""AEX"",%DT(""A"")=""Select Ending Date: """
^XMB(3.9,142,2,693,0)="""RTN"",""SDAMOCC"",17,0)"
^XMB(3.9,142,2,694,0)=" D ^%DT S SDEND=Y"
^XMB(3.9,142,2,695,0)="""RTN"",""SDAMOCC"",18,0)"
^XMB(3.9,142,2,696,0)=" I X=""^"" Q"
^XMB(3.9,142,2,697,0)="""RTN"",""SDAMOCC"",19,0)"
^XMB(3.9,142,2,698,0)=" I Y=-1 W !!,""Invalid Date!"",! G ASKEDT"
^XMB(3.9,142,2,699,0)="""RTN"",""SDAMOCC"",20,0)"
^XMB(3.9,142,2,700,0)=" I SDEND<SDBEG W !!,""Ending Date must be equal to or greater than Beginning Date."" G ASKEDT"
^XMB(3.9,142,2,701,0)="""RTN"",""SDAMOCC"",21,0)"
^XMB(3.9,142,2,702,0)=" K %DT,Y"
^XMB(3.9,142,2,703,0)="""RTN"",""SDAMOCC"",22,0)"
^XMB(3.9,142,2,704,0)=" ;I '$$RANGE G ENQ"
^XMB(3.9,142,2,705,0)="""RTN"",""SDAMOCC"",23,0)"
^XMB(3.9,142,2,706,0)=" S SDSEL=1"
^XMB(3.9,142,2,707,0)="""RTN"",""SDAMOCC"",24,0)"
^XMB(3.9,142,2,708,0)=" S SDSEL=SDSEL+4 ; for backwards compatibility"
^XMB(3.9,142,2,709,0)="""RTN"",""SDAMOCC"",25,0)"
^XMB(3.9,142,2,710,0)=" G STATS^SDAMOC"
^XMB(3.9,142,2,711,0)="""RTN"",""SDAMOCC"",26,0)"
^XMB(3.9,142,2,712,0)="ENQ Q"
^XMB(3.9,142,2,713,0)="""RTN"",""SDAMOCC"",27,0)"
^XMB(3.9,142,2,714,0)=" ;"
^XMB(3.9,142,2,715,0)="""RTN"",""SDAMOCC"",28,0)"
^XMB(3.9,142,2,716,0)="INIT() ; -- init vars"
^XMB(3.9,142,2,717,0)="""RTN"",""SDAMOCC"",29,0)"
^XMB(3.9,142,2,718,0)=" Q 1"
^XMB(3.9,142,2,719,0)="""RTN"",""SDAMOCC"",30,0)"
^XMB(3.9,142,2,720,0)=" ;"
^XMB(3.9,142,2,721,0)="""RTN"",""SDAMOCC"",31,0)"
^XMB(3.9,142,2,722,0)="RANGE() ; select date range"
^XMB(3.9,142,2,723,0)="""RTN"",""SDAMOCC"",32,0)"
^XMB(3.9,142,2,724,0)=" ;  input: none"
^XMB(3.9,142,2,725,0)="""RTN"",""SDAMOCC"",33,0)"
^XMB(3.9,142,2,726,0)=" ; output: SDBEG := begin date"
^XMB(3.9,142,2,727,0)="""RTN"",""SDAMOCC"",34,0)"
^XMB(3.9,142,2,728,0)=" ;         SDEND := end date"
^XMB(3.9,142,2,729,0)="""RTN"",""SDAMOCC"",35,0)"
^XMB(3.9,142,2,730,0)=" ; return: was selection made [ 1|yes   0|no]"
^XMB(3.9,142,2,731,0)="""RTN"",""SDAMOCC"",36,0)"
^XMB(3.9,142,2,732,0)=" ;"
^XMB(3.9,142,2,733,0)="""RTN"",""SDAMOCC"",37,0)"
^XMB(3.9,142,2,734,0)=" W !!,$$LINE(""Date Range Selection"")"
^XMB(3.9,142,2,735,0)="""RTN"",""SDAMOCC"",38,0)"
^XMB(3.9,142,2,736,0)=" Q $$RANGE^SDAMQ(.SDBEG,.SDEND)"
^XMB(3.9,142,2,737,0)="""RTN"",""SDAMOCC"",39,0)"
^XMB(3.9,142,2,738,0)=" ;"
^XMB(3.9,142,2,739,0)="""RTN"",""SDAMOCC"",40,0)"
^XMB(3.9,142,2,740,0)="SELECT() ; -- get selection criteria"
^XMB(3.9,142,2,741,0)="""RTN"",""SDAMOCC"",41,0)"
^XMB(3.9,142,2,742,0)=" ;  input: none"
^XMB(3.9,142,2,743,0)="""RTN"",""SDAMOCC"",42,0)"
^XMB(3.9,142,2,744,0)=" ; output: SDSEL := criteria selected"
^XMB(3.9,142,2,745,0)="""RTN"",""SDAMOCC"",43,0)"
^XMB(3.9,142,2,746,0)=" ; return: was selection made [ 1|yes   0|no]"
^XMB(3.9,142,2,747,0)="""RTN"",""SDAMOCC"",44,0)"
^XMB(3.9,142,2,748,0)=" ;"
^XMB(3.9,142,2,749,0)="""RTN"",""SDAMOCC"",45,0)"
^XMB(3.9,142,2,750,0)=" W !!,$$LINE(""Statisitcs Criteria"")"
^XMB(3.9,142,2,751,0)="""RTN"",""SDAMOCC"",46,0)"
^XMB(3.9,142,2,752,0)=" S X=""S^"""
^XMB(3.9,142,2,753,0)="""RTN"",""SDAMOCC"",47,0)"
^XMB(3.9,142,2,754,0)=" S X=X_""1:Statistics;"""
^XMB(3.9,142,2,755,0)="""RTN"",""SDAMOCC"",48,0)"
^XMB(3.9,142,2,756,0)=" S X=X_""2:Division(s) Only Statistics"""
^XMB(3.9,142,2,757,0)="""RTN"",""SDAMOCC"",49,0)"
^XMB(3.9,142,2,758,0)=" S DIR(0)=X,DIR(""A"")=""Which Visits"",DIR(""B"")=""Statistics"""
^XMB(3.9,142,2,759,0)="""RTN"",""SDAMOCC"",50,0)"
^XMB(3.9,142,2,760,0)=" D ^DIR K DIR S SDSEL=$S($D(DIRUT):0,1:+Y)"
^XMB(3.9,142,2,761,0)="""RTN"",""SDAMOCC"",51,0)"
^XMB(3.9,142,2,762,0)=" Q SDSEL>0"
^XMB(3.9,142,2,763,0)="""RTN"",""SDAMOCC"",52,0)"
^XMB(3.9,142,2,764,0)=" ;"
^XMB(3.9,142,2,765,0)="""RTN"",""SDAMOCC"",53,0)"
^XMB(3.9,142,2,766,0)="DIV() ; -- get division data"
^XMB(3.9,142,2,767,0)="""RTN"",""SDAMOCC"",54,0)"
^XMB(3.9,142,2,768,0)=" ;  input: none"
^XMB(3.9,142,2,769,0)="""RTN"",""SDAMOCC"",55,0)"
^XMB(3.9,142,2,770,0)=" ; output: VAUTD := divs selected (VAUTD=1 for all)"
^XMB(3.9,142,2,771,0)="""RTN"",""SDAMOCC"",56,0)"
^XMB(3.9,142,2,772,0)=" ; return: was selection made [ 1|yes   0|no]"
^XMB(3.9,142,2,773,0)="""RTN"",""SDAMOCC"",57,0)"
^XMB(3.9,142,2,774,0)=" ;"
^XMB(3.9,142,2,775,0)="""RTN"",""SDAMOCC"",58,0)"
^XMB(3.9,142,2,776,0)=" W:$P($G(^DG(43,1,""GL"")),U,2) !!,$$LINE(""Division Selection"")"
^XMB(3.9,142,2,777,0)="""RTN"",""SDAMOCC"",59,0)"
^XMB(3.9,142,2,778,0)=" D ASK2^SDDIV I Y<0 K VAUTD"
^XMB(3.9,142,2,779,0)="""RTN"",""SDAMOCC"",60,0)"
^XMB(3.9,142,2,780,0)=" Q $D(VAUTD)>0"
^XMB(3.9,142,2,781,0)="""RTN"",""SDAMOCC"",61,0)"
^XMB(3.9,142,2,782,0)=" ;"
^XMB(3.9,142,2,783,0)="""RTN"",""SDAMOCC"",62,0)"
^XMB(3.9,142,2,784,0)="CLINIC() ; -- get clinic data"
^XMB(3.9,142,2,785,0)="""RTN"",""SDAMOCC"",63,0)"
^XMB(3.9,142,2,786,0)=" ;  input: VAUTD  := divisions selected"
^XMB(3.9,142,2,787,0)="""RTN"",""SDAMOCC"",64,0)"
^XMB(3.9,142,2,788,0)=" ; output: VAUTC := clinic selected (VAUTC=1 for all)"
^XMB(3.9,142,2,789,0)="""RTN"",""SDAMOCC"",65,0)"
^XMB(3.9,142,2,790,0)=" ; return: was selection made [ 1|yes   0|no]"
^XMB(3.9,142,2,791,0)="""RTN"",""SDAMOCC"",66,0)"
^XMB(3.9,142,2,792,0)=" ;"
^XMB(3.9,142,2,793,0)="""RTN"",""SDAMOCC"",67,0)"
^XMB(3.9,142,2,794,0)=" W !!,$$LINE(""Clinic Selection"")"
^XMB(3.9,142,2,795,0)="""RTN"",""SDAMOCC"",68,0)"
^XMB(3.9,142,2,796,0)=" D CLINIC^SDAMO0"
^XMB(3.9,142,2,797,0)="""RTN"",""SDAMOCC"",69,0)"
^XMB(3.9,142,2,798,0)=" I Y<0 K VAUTC"
^XMB(3.9,142,2,799,0)="""RTN"",""SDAMOCC"",70,0)"
^XMB(3.9,142,2,800,0)="CLINICQ Q $D(VAUTC)>0"
^XMB(3.9,142,2,801,0)="""RTN"",""SDAMOCC"",71,0)"
^XMB(3.9,142,2,802,0)=" ;"
^XMB(3.9,142,2,803,0)="""RTN"",""SDAMOCC"",72,0)"
^XMB(3.9,142,2,804,0)="STOP() ; -- get stop code data"
^XMB(3.9,142,2,805,0)="""RTN"",""SDAMOCC"",73,0)"
^XMB(3.9,142,2,806,0)=" ; output: VAUTC := stop codes selected (VAUTC=1 for all)"
^XMB(3.9,142,2,807,0)="""RTN"",""SDAMOCC"",74,0)"
^XMB(3.9,142,2,808,0)=" ; return: was selection made [ 1|yes   0|no]"
^XMB(3.9,142,2,809,0)="""RTN"",""SDAMOCC"",75,0)"
^XMB(3.9,142,2,810,0)=" ;"
^XMB(3.9,142,2,811,0)="""RTN"",""SDAMOCC"",76,0)"
^XMB(3.9,142,2,812,0)=" W !!,$$LINE(""Stop Codes Selection"")"
^XMB(3.9,142,2,813,0)="""RTN"",""SDAMOCC"",77,0)"
^XMB(3.9,142,2,814,0)=" S DIC=""^DIC(40.7,"",VAUTSTR=""stop code"",VAUTVB=""VAUTC"",VAUTNI=2"
^XMB(3.9,142,2,815,0)="""RTN"",""SDAMOCC"",78,0)"
^XMB(3.9,142,2,816,0)=" D FIRST^VAUTOMA"
^XMB(3.9,142,2,817,0)="""RTN"",""SDAMOCC"",79,0)"
^XMB(3.9,142,2,818,0)=" I Y<0 K VAUTC"
^XMB(3.9,142,2,819,0)="""RTN"",""SDAMOCC"",80,0)"
^XMB(3.9,142,2,820,0)="STOPQ Q $D(VAUTC)>0"
^XMB(3.9,142,2,821,0)="""RTN"",""SDAMOCC"",81,0)"
^XMB(3.9,142,2,822,0)=" ;"
^XMB(3.9,142,2,823,0)="""RTN"",""SDAMOCC"",82,0)"
^XMB(3.9,142,2,824,0)=" ;"
^XMB(3.9,142,2,825,0)="""RTN"",""SDAMOCC"",83,0)"
^XMB(3.9,142,2,826,0)="LINE(STR) ; -- print line"
^XMB(3.9,142,2,827,0)="""RTN"",""SDAMOCC"",84,0)"
^XMB(3.9,142,2,828,0)=" ;  input: STR := text to insert"
^XMB(3.9,142,2,829,0)="""RTN"",""SDAMOCC"",85,0)"
^XMB(3.9,142,2,830,0)=" ; output: none"
^XMB(3.9,142,2,831,0)="""RTN"",""SDAMOCC"",86,0)"
^XMB(3.9,142,2,832,0)=" ; return: text to use"
^XMB(3.9,142,2,833,0)="""RTN"",""SDAMOCC"",87,0)"
^XMB(3.9,142,2,834,0)=" ;"
^XMB(3.9,142,2,835,0)="""RTN"",""SDAMOCC"",88,0)"
^XMB(3.9,142,2,836,0)=" N X"
^XMB(3.9,142,2,837,0)="""RTN"",""SDAMOCC"",89,0)"
^XMB(3.9,142,2,838,0)=" S:STR]"""" STR="" ""_STR_"" """
^XMB(3.9,142,2,839,0)="""RTN"",""SDAMOCC"",90,0)"
^XMB(3.9,142,2,840,0)=" S $P(X,""_"",(IOM/2)-($L(STR)/2))="""""
^XMB(3.9,142,2,841,0)="""RTN"",""SDAMOCC"",91,0)"
^XMB(3.9,142,2,842,0)=" Q X_STR_X"
^XMB(3.9,142,2,843,0)="""RTN"",""SDAMOCC"",92,0)"
^XMB(3.9,142,2,844,0)=" ;"
^XMB(3.9,142,2,845,0)="""RTN"",""SDAMOCP"")"
^XMB(3.9,142,2,846,0)="0^6^B13982690^B13982690"
^XMB(3.9,142,2,847,0)="""RTN"",""SDAMOCP"",1,0)"
^XMB(3.9,142,2,848,0)="SDAMOCP ;IOFO BAY PINES/TEH - Print for Cancelled Statistics;4/15/92"
^XMB(3.9,142,2,849,0)="""RTN"",""SDAMOCP"",2,0)"
^XMB(3.9,142,2,850,0)=" ;;5.3;Scheduling;**487**;Aug 13, 1993"
^XMB(3.9,142,2,851,0)="""RTN"",""SDAMOCP"",3,0)"
^XMB(3.9,142,2,852,0)=" ;"
^XMB(3.9,142,2,853,0)="""RTN"",""SDAMOCP"",4,0)"
^XMB(3.9,142,2,854,0)="HDR ;Report Header"
^XMB(3.9,142,2,855,0)="""RTN"",""SDAMOCP"",5,0)"
^XMB(3.9,142,2,856,0)=" ;"
^XMB(3.9,142,2,857,0)="""RTN"",""SDAMOCP"",6,0)"
^XMB(3.9,142,2,858,0)=" N SDSTOP,%"
^XMB(3.9,142,2,859,0)="""RTN"",""SDAMOCP"",7,0)"
^XMB(3.9,142,2,860,0)=" I SDPAGE>1,$E(IOST,1,2)=""C-"" D PAUSE^VALM1 I 'Y S SDSTOP=1 Q"
^XMB(3.9,142,2,861,0)="""RTN"",""SDAMOCP"",8,0)"
^XMB(3.9,142,2,862,0)="HDR1 W @IOF"
^XMB(3.9,142,2,863,0)="""RTN"",""SDAMOCP"",9,0)"
^XMB(3.9,142,2,864,0)=" W !,?50,""Cancelled Clinic Report - Summary"""
^XMB(3.9,142,2,865,0)="""RTN"",""SDAMOCP"",10,0)"
^XMB(3.9,142,2,866,0)=" W !,?50,""Date Range: "",$$FDATE^VALM1(SDBEG)_"" to ""_$$FDATE^VALM1(SDEND)"
^XMB(3.9,142,2,867,0)="""RTN"",""SDAMOCP"",11,0)"
^XMB(3.9,142,2,868,0)=" D NOW^%DTC"
^XMB(3.9,142,2,869,0)="""RTN"",""SDAMOCP"",12,0)"
^XMB(3.9,142,2,870,0)=" W !,?54,""Run Date: "",$E($$FDTTM^VALM1(%),1,14)"
^XMB(3.9,142,2,871,0)="""RTN"",""SDAMOCP"",13,0)"
^XMB(3.9,142,2,872,0)=" W !,?62,""Page: "",SDPAGE S SDPAGE=SDPAGE+1"
^XMB(3.9,142,2,873,0)="""RTN"",""SDAMOCP"",14,0)"
^XMB(3.9,142,2,874,0)=" W !!,""Division"""
^XMB(3.9,142,2,875,0)="""RTN"",""SDAMOCP"",15,0)"
^XMB(3.9,142,2,876,0)=" W ?34,""Can'd by Clinic"",?52,""Can'd by Clinic RB"",?73,""Can'd by Patient"",?92,""Can'd by Patient RB"",?114,""Total"""
^XMB(3.9,142,2,877,0)="""RTN"",""SDAMOCP"",16,0)"
^XMB(3.9,142,2,878,0)=" W !,SDASH"
^XMB(3.9,142,2,879,0)="""RTN"",""SDAMOCP"",17,0)"
^XMB(3.9,142,2,880,0)=" Q"
^XMB(3.9,142,2,881,0)="""RTN"",""SDAMOCP"",18,0)"
^XMB(3.9,142,2,882,0)=" ;"
^XMB(3.9,142,2,883,0)="""RTN"",""SDAMOCP"",19,0)"
^XMB(3.9,142,2,884,0)="BLD ;Build output from ^TMP global"
^XMB(3.9,142,2,885,0)="""RTN"",""SDAMOCP"",20,0)"
^XMB(3.9,142,2,886,0)=" ;"
^XMB(3.9,142,2,887,0)="""RTN"",""SDAMOCP"",21,0)"
^XMB(3.9,142,2,888,0)=" N SDCTYP,SDTOTS,SDTOTN,SDCI,SDCL,SDDV,SDDVNM,SDFLG,SDNXT,SDTAB"
^XMB(3.9,142,2,889,0)="""RTN"",""SDAMOCP"",22,0)"
^XMB(3.9,142,2,890,0)=" N SDTOTT,SDY"
^XMB(3.9,142,2,891,0)="""RTN"",""SDAMOCP"",23,0)"
^XMB(3.9,142,2,892,0)=" S (SDSTOP,SDTOT,SDTOTT,SDFLG)=0,SDDV="""" F  S SDDV=$O(^TMP(""SDAMC"",$J,SDDV)) Q:SDDV=""""!(SDSTOP)  D CHK D"
^XMB(3.9,142,2,893,0)="""RTN"",""SDAMOCP"",24,0)"
^XMB(3.9,142,2,894,0)=" .S SDDVNM=$P($G(^DG(40.8,SDDV,0)),U) W !,SDDVNM"
^XMB(3.9,142,2,895,0)="""RTN"",""SDAMOCP"",25,0)"
^XMB(3.9,142,2,896,0)=" .S SDCL="""" F  S SDCL=$O(^TMP(""SDAMC"",$J,SDDV,SDCL)) Q:SDCL=""""  D"
^XMB(3.9,142,2,897,0)="""RTN"",""SDAMOCP"",26,0)"
^XMB(3.9,142,2,898,0)=" ..K SDTOT,SDTOTS W !,?12,$P($G(^SC(SDCL,0)),U) S SDTOT=0,SDTOT(SDCL)=0 F SDTOTN=1:1:4 S SDTOTS(SDTOTN)=0"
^XMB(3.9,142,2,899,0)="""RTN"",""SDAMOCP"",27,0)"
^XMB(3.9,142,2,900,0)=" ..S SDCTYP="""" F  S SDCTYP=$O(^TMP(""SDAMC"",$J,SDDV,SDCL,SDCTYP)) Q:SDCTYP=""""  D"
^XMB(3.9,142,2,901,0)="""RTN"",""SDAMOCP"",28,0)"
^XMB(3.9,142,2,902,0)=" ...S SDTOT=$G(^TMP(""SDAMC"",$J,SDDV,SDCL,SDCTYP)),SDTOTT=SDTOTT+SDTOT,SDTOTS(SDCTYP)=SDTOT,SDTOT(SDCL)=SDTOT(SDCL)+SDTOT"
^XMB(3.9,142,2,903,0)="""RTN"",""SDAMOCP"",29,0)"
^XMB(3.9,142,2,904,0)=" ..F SDTOTN=1:1:4 S SDTAB=$S(SDTOTN=1:41,SDTOTN=2:58,SDTOTN=3:79,SDTOTN=4:98,1:0) W ?SDTAB,$J(SDTOTS(SDTOTN),3)"
^XMB(3.9,142,2,905,0)="""RTN"",""SDAMOCP"",30,0)"
^XMB(3.9,142,2,906,0)=" ..W ?116,$J(SDTOT(SDCL),3)"
^XMB(3.9,142,2,907,0)="""RTN"",""SDAMOCP"",31,0)"
^XMB(3.9,142,2,908,0)=" W !,?114,""-----"",!,?90,""Total Cancellations:"",?116,$J(SDTOTT,3)"
^XMB(3.9,142,2,909,0)="""RTN"",""SDAMOCP"",32,0)"
^XMB(3.9,142,2,910,0)=" W !!,""End of Report!"""
^XMB(3.9,142,2,911,0)="""RTN"",""SDAMOCP"",33,0)"
^XMB(3.9,142,2,912,0)="BLDQ Q"
^XMB(3.9,142,2,913,0)="""RTN"",""SDAMOCP"",34,0)"
^XMB(3.9,142,2,914,0)=" ;"
^XMB(3.9,142,2,915,0)="""RTN"",""SDAMOCP"",35,0)"
^XMB(3.9,142,2,916,0)="MCTOT ;"
^XMB(3.9,142,2,917,0)="""RTN"",""SDAMOCP"",36,0)"
^XMB(3.9,142,2,918,0)=" N SDAT"
^XMB(3.9,142,2,919,0)="""RTN"",""SDAMOCP"",37,0)"
^XMB(3.9,142,2,920,0)=" S SDFLG=1,SDDV="""" D HDR F  S SDDV=$O(^TMP(""SDAMS"",$J,SDDV)) Q:SDDV=""""  D  Q:SDSTOP"
^XMB(3.9,142,2,921,0)="""RTN"",""SDAMOCP"",38,0)"
^XMB(3.9,142,2,922,0)=" .W !,$P($G(^DG(40.8,SDDV,0)),U)"
^XMB(3.9,142,2,923,0)="""RTN"",""SDAMOCP"",39,0)"
^XMB(3.9,142,2,924,0)=" .K SDTOT,SDCNT D TOTAL"
^XMB(3.9,142,2,925,0)="""RTN"",""SDAMOCP"",40,0)"
^XMB(3.9,142,2,926,0)=" .W ?124,$J(SDTOT,8)"
^XMB(3.9,142,2,927,0)="""RTN"",""SDAMOCP"",41,0)"
^XMB(3.9,142,2,928,0)=" .D CHK Q:SDSTOP"
^XMB(3.9,142,2,929,0)="""RTN"",""SDAMOCP"",42,0)"
^XMB(3.9,142,2,930,0)=" .S SDNXT=$O(^TMP(""SDAMS"",$J,SDDV)) W:SDNXT'="""" !,SDASH"
^XMB(3.9,142,2,931,0)="""RTN"",""SDAMOCP"",43,0)"
^XMB(3.9,142,2,932,0)=" .K SDTOT,SDCNT"
^XMB(3.9,142,2,933,0)="""RTN"",""SDAMOCP"",44,0)"
^XMB(3.9,142,2,934,0)=" W !,SDTDASH,!,""TOTAL"" F SDI=1:1:11 S SDCNT(SDI)=+$G(SDAT(""SDAMS"",$J,SDI)),SDTOT=$G(SDTOT)+$G(SDCNT(SDI))"
^XMB(3.9,142,2,935,0)="""RTN"",""SDAMOCP"",45,0)"
^XMB(3.9,142,2,936,0)=" D CNT"
^XMB(3.9,142,2,937,0)="""RTN"",""SDAMOCP"",46,0)"
^XMB(3.9,142,2,938,0)=" W ?124,$J(SDTOT,8) K SDTOT,SDCNT D CHK I SDSTOP G MCTOTQ"
^XMB(3.9,142,2,939,0)="""RTN"",""SDAMOCP"",47,0)"
^XMB(3.9,142,2,940,0)=" W !! D LEGEND"
^XMB(3.9,142,2,941,0)="""RTN"",""SDAMOCP"",48,0)"
^XMB(3.9,142,2,942,0)="MCTOTQ Q"
^XMB(3.9,142,2,943,0)="""RTN"",""SDAMOCP"",49,0)"
^XMB(3.9,142,2,944,0)="CNT ;Place no-show/no-show auto rebook & cancel/cancel auto-rebook together"
^XMB(3.9,142,2,945,0)="""RTN"",""SDAMOCP"",50,0)"
^XMB(3.9,142,2,946,0)=" S SDCNT(4)=+$G(SDCNT(4))+(+$G(SDCNT(6))),SDCNT(13)=+$G(SDCI(+SDCL,4))+(+$G(SDCI(+SDCL,6)))"
^XMB(3.9,142,2,947,0)="""RTN"",""SDAMOCP"",51,0)"
^XMB(3.9,142,2,948,0)=" S SDCNT(5)=+$G(SDCNT(5))+(+$G(SDCNT(7))),SDCNT(14)=+$G(SDCI(+SDCL,5))+(+$G(SDCI(+SDCL,7)))"
^XMB(3.9,142,2,949,0)="""RTN"",""SDAMOCP"",52,0)"
^XMB(3.9,142,2,950,0)=" F SDI=1,2,3,4,13,6,5,14,7,8 D"
^XMB(3.9,142,2,951,0)="""RTN"",""SDAMOCP"",53,0)"
^XMB(3.9,142,2,952,0)=" .W ?$$COL(SDI),$J($S($D(SDCNT(SDI)):SDCNT(SDI),1:0),$$LEN(SDI))"
^XMB(3.9,142,2,953,0)="""RTN"",""SDAMOCP"",54,0)"
^XMB(3.9,142,2,954,0)=" Q"
^XMB(3.9,142,2,955,0)="""RTN"",""SDAMOCP"",55,0)"
^XMB(3.9,142,2,956,0)=" ;"
^XMB(3.9,142,2,957,0)="""RTN"",""SDAMOCP"",56,0)"
^XMB(3.9,142,2,958,0)="CHK ;Check to pause on screen"
^XMB(3.9,142,2,959,0)="""RTN"",""SDAMOCP"",57,0)"
^XMB(3.9,142,2,960,0)=" I $E(IOST,1,2)=""C-"",($Y+8)>IOSL D PAUSE^VALM1"
^XMB(3.9,142,2,961,0)="""RTN"",""SDAMOCP"",58,0)"
^XMB(3.9,142,2,962,0)=" S SDY=FMT D:SDY HDR1 I 'SDY S SDSTOP=1 Q"
^XMB(3.9,142,2,963,0)="""RTN"",""SDAMOCP"",59,0)"
^XMB(3.9,142,2,964,0)=" I ($Y+8)>IOSL D HDR1"
^XMB(3.9,142,2,965,0)="""RTN"",""SDAMOCP"",60,0)"
^XMB(3.9,142,2,966,0)=" Q"
^XMB(3.9,142,2,967,0)="""RTN"",""SDAMOCP"",61,0)"
^XMB(3.9,142,2,968,0)="TOTAL ;Totals"
^XMB(3.9,142,2,969,0)="""RTN"",""SDAMOCP"",62,0)"
^XMB(3.9,142,2,970,0)=" F SDI=1:1:11 S SDCNT(SDI)=+$G(SDCL(""SDAMS"",$J,SDDV,SDI)),SDTOT=$G(SDTOT)+$G(SDCNT(SDI))"
^XMB(3.9,142,2,971,0)="""RTN"",""SDAMOCP"",63,0)"
^XMB(3.9,142,2,972,0)=" D CNT"
^XMB(3.9,142,2,973,0)="""RTN"",""SDAMOCP"",64,0)"
^XMB(3.9,142,2,974,0)=" K SDCNT"
^XMB(3.9,142,2,975,0)="""RTN"",""SDAMOCP"",65,0)"
^XMB(3.9,142,2,976,0)=" Q"
^XMB(3.9,142,2,977,0)="""RTN"",""SDAMOCP"",66,0)"
^XMB(3.9,142,2,978,0)=" ;"
^XMB(3.9,142,2,979,0)="""RTN"",""SDAMOCP"",67,0)"
^XMB(3.9,142,2,980,0)="LEGEND ;Legend on bottom of output"
^XMB(3.9,142,2,981,0)="""RTN"",""SDAMOCP"",68,0)"
^XMB(3.9,142,2,982,0)=" ;"
^XMB(3.9,142,2,983,0)="""RTN"",""SDAMOCP"",69,0)"
^XMB(3.9,142,2,984,0)=" W !,?5,""o CI=Checked In ; RB=Rebooked"""
^XMB(3.9,142,2,985,0)="""RTN"",""SDAMOCP"",70,0)"
^XMB(3.9,142,2,986,0)=" W !,?5,""o 'Cancelled' appointments only reflect appointments cancelled using 'Cancel Clinic Availability'."""
^XMB(3.9,142,2,987,0)="""RTN"",""SDAMOCP"",71,0)"
^XMB(3.9,142,2,988,0)=" W !,?5,""o 'Checked-In' does not include no-shows or cancelled appointments that have been checked in."""
^XMB(3.9,142,2,989,0)="""RTN"",""SDAMOCP"",72,0)"
^XMB(3.9,142,2,990,0)=" Q"
^XMB(3.9,142,2,991,0)="""RTN"",""SDAMOCP"",73,0)"
^XMB(3.9,142,2,992,0)=" ;"
^XMB(3.9,142,2,993,0)="""RTN"",""SDAMOCP"",74,0)"
^XMB(3.9,142,2,994,0)="COL(SDI) ;Column placement of appt. status"
^XMB(3.9,142,2,995,0)="""RTN"",""SDAMOCP"",75,0)"
^XMB(3.9,142,2,996,0)=" ;"
^XMB(3.9,142,2,997,0)="""RTN"",""SDAMOCP"",76,0)"
^XMB(3.9,142,2,998,0)=" ;input - SDI (appt. type)"
^XMB(3.9,142,2,999,0)="""RTN"",""SDAMOCP"",77,0)"
^XMB(3.9,142,2,1000,0)=" ;output - column placement"
^XMB(3.9,142,2,1001,0)="""RTN"",""SDAMOCP"",78,0)"
^XMB(3.9,142,2,1002,0)=" Q $S(SDI=1:34,SDI=2:48,SDI=3:63,SDI=4:81,SDI=5:97,SDI=6:92,SDI=7:108,SDI=8:114,SDI=13:87,SDI=14:103)"
^XMB(3.9,142,2,1003,0)="""RTN"",""SDAMOCP"",79,0)"
^XMB(3.9,142,2,1004,0)=" ;"
^XMB(3.9,142,2,1005,0)="""RTN"",""SDAMOCP"",80,0)"
^XMB(3.9,142,2,1006,0)="LEN(SDI) ;Length of column"
^XMB(3.9,142,2,1007,0)="""RTN"",""SDAMOCP"",81,0)"
^XMB(3.9,142,2,1008,0)=" ;"
^XMB(3.9,142,2,1009,0)="""RTN"",""SDAMOCP"",82,0)"
^XMB(3.9,142,2,1010,0)=" ;input - SDI (appt. type)"
^XMB(3.9,142,2,1011,0)="""RTN"",""SDAMOCP"",83,0)"
^XMB(3.9,142,2,1012,0)=" ;output - length of column"
^XMB(3.9,142,2,1013,0)="""RTN"",""SDAMOCP"",84,0)"
^XMB(3.9,142,2,1014,0)=" Q $S(SDI=1:10,SDI=2:11,SDI=3:15,SDI=4:5,SDI=6:4,SDI=5:5,SDI=7:4,SDI=8:9,SDI=13:4,SDI=14:4)"
^XMB(3.9,142,2,1015,0)="""RTN"",""SDAMOCP"",85,0)"
^XMB(3.9,142,2,1016,0)=" ;"
^XMB(3.9,142,2,1017,0)="""RTN"",""SDAMOCP1"")"
^XMB(3.9,142,2,1018,0)="0^7^B17836724^B17836724"
^XMB(3.9,142,2,1019,0)="""RTN"",""SDAMOCP1"",1,0)"
^XMB(3.9,142,2,1020,0)="SDAMOCP1 ;IOFO BAY PINES/TEH - Detail Print for Cancelled Statistics;4/15/92"
^XMB(3.9,142,2,1021,0)="""RTN"",""SDAMOCP1"",2,0)"
^XMB(3.9,142,2,1022,0)=" ;;5.3;Scheduling;**487**;Aug 13, 1993"
^XMB(3.9,142,2,1023,0)="""RTN"",""SDAMOCP1"",3,0)"
^XMB(3.9,142,2,1024,0)=" ;"
^XMB(3.9,142,2,1025,0)="""RTN"",""SDAMOCP1"",4,0)"
^XMB(3.9,142,2,1026,0)="HDR ;Report Header"
^XMB(3.9,142,2,1027,0)="""RTN"",""SDAMOCP1"",5,0)"
^XMB(3.9,142,2,1028,0)=" ;"
^XMB(3.9,142,2,1029,0)="""RTN"",""SDAMOCP1"",6,0)"
^XMB(3.9,142,2,1030,0)=" N SDSTOP"
^XMB(3.9,142,2,1031,0)="""RTN"",""SDAMOCP1"",7,0)"
^XMB(3.9,142,2,1032,0)=" I SDPAGE>1,$E(IOST,1,2)=""C-"" D PAUSE^VALM1 I 'Y S SDSTOP=1 Q"
^XMB(3.9,142,2,1033,0)="""RTN"",""SDAMOCP1"",8,0)"
^XMB(3.9,142,2,1034,0)="HDR1 W @IOF"
^XMB(3.9,142,2,1035,0)="""RTN"",""SDAMOCP1"",9,0)"
^XMB(3.9,142,2,1036,0)=" W !,?50,""Cancelled Clinic Report - Detail"""
^XMB(3.9,142,2,1037,0)="""RTN"",""SDAMOCP1"",10,0)"
^XMB(3.9,142,2,1038,0)=" W !,?50,""Date Range: "",$$FDATE^VALM1(SDBEG)_"" to ""_$$FDATE^VALM1(SDEND)"
^XMB(3.9,142,2,1039,0)="""RTN"",""SDAMOCP1"",11,0)"
^XMB(3.9,142,2,1040,0)=" D NOW^%DTC"
^XMB(3.9,142,2,1041,0)="""RTN"",""SDAMOCP1"",12,0)"
^XMB(3.9,142,2,1042,0)=" W !,?54,""Run Date: "",$E($$FDTTM^VALM1(%),1,14)"
^XMB(3.9,142,2,1043,0)="""RTN"",""SDAMOCP1"",13,0)"
^XMB(3.9,142,2,1044,0)=" W !,?62,""Page: "",SDPAGE S SDPAGE=SDPAGE+1"
^XMB(3.9,142,2,1045,0)="""RTN"",""SDAMOCP1"",14,0)"
^XMB(3.9,142,2,1046,0)=" W !,""Division"""
^XMB(3.9,142,2,1047,0)="""RTN"",""SDAMOCP1"",15,0)"
^XMB(3.9,142,2,1048,0)=" W !,SDASH,!"
^XMB(3.9,142,2,1049,0)="""RTN"",""SDAMOCP1"",16,0)"
^XMB(3.9,142,2,1050,0)=" W ""Status"",?8,""Patient"",?30,""SSN"",?39,""Appt Date"",?61,""Clinic"",?81,""Cancel Date"",?106,""User"",!"
^XMB(3.9,142,2,1051,0)="""RTN"",""SDAMOCP1"",17,0)"
^XMB(3.9,142,2,1052,0)=" W SDASH"
^XMB(3.9,142,2,1053,0)="""RTN"",""SDAMOCP1"",18,0)"
^XMB(3.9,142,2,1054,0)=" Q"
^XMB(3.9,142,2,1055,0)="""RTN"",""SDAMOCP1"",19,0)"
^XMB(3.9,142,2,1056,0)=" ;"
^XMB(3.9,142,2,1057,0)="""RTN"",""SDAMOCP1"",20,0)"
^XMB(3.9,142,2,1058,0)="BLD ;Build output from ^TMP global"
^XMB(3.9,142,2,1059,0)="""RTN"",""SDAMOCP1"",21,0)"
^XMB(3.9,142,2,1060,0)=" ;"
^XMB(3.9,142,2,1061,0)="""RTN"",""SDAMOCP1"",22,0)"
^XMB(3.9,142,2,1062,0)=" N SDTOT,SDTOTT,SDCL,SDDATE,SDUSER,SDCDT"
^XMB(3.9,142,2,1063,0)="""RTN"",""SDAMOCP1"",23,0)"
^XMB(3.9,142,2,1064,0)=" D HDR"
^XMB(3.9,142,2,1065,0)="""RTN"",""SDAMOCP1"",24,0)"
^XMB(3.9,142,2,1066,0)=" I IOST[""P-"" K DIRUT"
^XMB(3.9,142,2,1067,0)="""RTN"",""SDAMOCP1"",25,0)"
^XMB(3.9,142,2,1068,0)=" S (SDSTOP,SDTOTT,SDFLG)=0,SDDV="""" F  S SDDV=$O(^TMP(""SDAMCD"",$J,SDDV)) Q:SDDV=""""!(SDSTOP)  D CHK D"
^XMB(3.9,142,2,1069,0)="""RTN"",""SDAMOCP1"",26,0)"
^XMB(3.9,142,2,1070,0)=" .S SDDVNM=$P($G(^DG(40.8,SDDV,0)),U) W !,SDDVNM"
^XMB(3.9,142,2,1071,0)="""RTN"",""SDAMOCP1"",27,0)"
^XMB(3.9,142,2,1072,0)=" .S SDCR="""" F  S SDCR=$O(^TMP(""SDAMCD"",$J,SDDV,SDCR)) Q:SDCR=""""!($D(DIRUT))  S SDTOT(SDCR)=0 D  W !!,""SUBTOTAL:"",$J(SDTOT(SDCR),4),!"
^XMB(3.9,142,2,1073,0)="""RTN"",""SDAMOCP1"",28,0)"
^XMB(3.9,142,2,1074,0)=" ..S SDCL="""" F  S SDCL=$O(^TMP(""SDAMCD"",$J,SDDV,SDCR,SDCL)) Q:SDCL=""""!($D(DIRUT))  D "
^XMB(3.9,142,2,1075,0)="""RTN"",""SDAMOCP1"",29,0)"
^XMB(3.9,142,2,1076,0)=" ...S SDDATE="""" F  S SDDATE=$O(^TMP(""SDAMCD"",$J,SDDV,SDCR,SDCL,SDDATE)) Q:SDDATE=""""!($D(DIRUT))  D"
^XMB(3.9,142,2,1077,0)="""RTN"",""SDAMOCP1"",30,0)"
^XMB(3.9,142,2,1078,0)=" ....S SDDFN="""" F  S SDDFN=$O(^TMP(""SDAMCD"",$J,SDDV,SDCR,SDCL,SDDATE,SDDFN)) Q:SDDFN=""""!($D(DIRUT))  D"
^XMB(3.9,142,2,1079,0)="""RTN"",""SDAMOCP1"",31,0)"
^XMB(3.9,142,2,1080,0)=" .....S SDDATA=$G(^TMP(""SDAMCD"",$J,SDDV,SDCR,SDCL,SDDATE,SDDFN))"
^XMB(3.9,142,2,1081,0)="""RTN"",""SDAMOCP1"",32,0)"
^XMB(3.9,142,2,1082,0)=" .....S Y=$P(SDDATA,"";"",2) D DD^%DT S SDAPDT=Y"
^XMB(3.9,142,2,1083,0)="""RTN"",""SDAMOCP1"",33,0)"
^XMB(3.9,142,2,1084,0)=" .....D GETS^DIQ(2,SDDFN_"","","".01;.09"",,""SDRES"",""SDMES"") S SDNM=$E($G(SDRES(2,SDDFN_"","",.01)),1,20),SDSSN=$E($G(SDRES(2,SDDFN_"","",.09)),6,9)"
^XMB(3.9,142,2,1085,0)="""RTN"",""SDAMOCP1"",34,0)"
^XMB(3.9,142,2,1086,0)=" .....S Y=$P(SDDATA,U,14) D DD^%DT S SDCDT=Y S SDUSER=$P(SDDATA,U,12)"
^XMB(3.9,142,2,1087,0)="""RTN"",""SDAMOCP1"",35,0)"
^XMB(3.9,142,2,1088,0)=" .....S SDUSERNM=$$GET1^DIQ(200,SDUSER_"","",.01,,""SDRES"",""SDMES"")"
^XMB(3.9,142,2,1089,0)="""RTN"",""SDAMOCP1"",36,0)"
^XMB(3.9,142,2,1090,0)=" .....S SDCLNM=$$GET1^DIQ(44,SDCL_"","",.01,,""SDRES"",""SDMES"")"
^XMB(3.9,142,2,1091,0)="""RTN"",""SDAMOCP1"",37,0)"
^XMB(3.9,142,2,1092,0)=" .....W !,SDCR,?8,$E(SDNM,1,22),?30,SDSSN,?39,SDAPDT,?61,$E(SDCLNM,1,18),?81,SDCDT,?106,$E(SDUSERNM,1,26)"
^XMB(3.9,142,2,1093,0)="""RTN"",""SDAMOCP1"",38,0)"
^XMB(3.9,142,2,1094,0)=" .....D CHK I $D(DIRUT) Q "
^XMB(3.9,142,2,1095,0)="""RTN"",""SDAMOCP1"",39,0)"
^XMB(3.9,142,2,1096,0)=" .....S SDTOT(SDCR)=$G(SDTOT(SDCR))+1,SDTOTT=SDTOTT+1"
^XMB(3.9,142,2,1097,0)="""RTN"",""SDAMOCP1"",40,0)"
^XMB(3.9,142,2,1098,0)=" W !!,""TOTAL CANCELLATIONS:"",$J(SDTOTT,14)"
^XMB(3.9,142,2,1099,0)="""RTN"",""SDAMOCP1"",41,0)"
^XMB(3.9,142,2,1100,0)=" W !!,""End of Report!"""
^XMB(3.9,142,2,1101,0)="""RTN"",""SDAMOCP1"",42,0)"
^XMB(3.9,142,2,1102,0)=" K SDUSERNM,SDSSN,SDAPDT,SDCLNM,SDRES,SDNM,SDCR,SDDDATE,SDDFN,SDDATA,SDDVNM,SDCLNM"
^XMB(3.9,142,2,1103,0)="""RTN"",""SDAMOCP1"",43,0)"
^XMB(3.9,142,2,1104,0)=" I IOST[""P-"" S DIRUT=1"
^XMB(3.9,142,2,1105,0)="""RTN"",""SDAMOCP1"",44,0)"
^XMB(3.9,142,2,1106,0)="BLDQ Q"
^XMB(3.9,142,2,1107,0)="""RTN"",""SDAMOCP1"",45,0)"
^XMB(3.9,142,2,1108,0)=" ;"
^XMB(3.9,142,2,1109,0)="""RTN"",""SDAMOCP1"",46,0)"
^XMB(3.9,142,2,1110,0)="MCTOT ;"
^XMB(3.9,142,2,1111,0)="""RTN"",""SDAMOCP1"",47,0)"
^XMB(3.9,142,2,1112,0)=" N SDFLG,SDDV,SDNXT"
^XMB(3.9,142,2,1113,0)="""RTN"",""SDAMOCP1"",48,0)"
^XMB(3.9,142,2,1114,0)=" S SDFLG=1,SDDV="""" D HDR F  S SDDV=$O(^TMP(""SDAMS"",$J,SDDV)) Q:SDDV=""""  D  Q:SDSTOP"
^XMB(3.9,142,2,1115,0)="""RTN"",""SDAMOCP1"",49,0)"
^XMB(3.9,142,2,1116,0)=" .W !,$P($G(^DG(40.8,SDDV,0)),U)"
^XMB(3.9,142,2,1117,0)="""RTN"",""SDAMOCP1"",50,0)"
^XMB(3.9,142,2,1118,0)=" .K SDTOT,SDCNT D TOTAL"
^XMB(3.9,142,2,1119,0)="""RTN"",""SDAMOCP1"",51,0)"
^XMB(3.9,142,2,1120,0)=" .W ?124,$J(SDTOT,8)"
^XMB(3.9,142,2,1121,0)="""RTN"",""SDAMOCP1"",52,0)"
^XMB(3.9,142,2,1122,0)=" .D CHK Q:SDSTOP"
^XMB(3.9,142,2,1123,0)="""RTN"",""SDAMOCP1"",53,0)"
^XMB(3.9,142,2,1124,0)=" .S SDNXT=$O(^TMP(""SDAMS"",$J,SDDV)) W:SDNXT'="""" !,SDASH"
^XMB(3.9,142,2,1125,0)="""RTN"",""SDAMOCP1"",54,0)"
^XMB(3.9,142,2,1126,0)=" .K SDTOT,SDCNT"
^XMB(3.9,142,2,1127,0)="""RTN"",""SDAMOCP1"",55,0)"
^XMB(3.9,142,2,1128,0)=" W !,SDTDASH,!,""TOTAL"" F SDI=1:1:11 S SDCNT(SDI)=+$G(SDAT(""SDAMS"",$J,SDI)),SDTOT=$G(SDTOT)+$G(SDCNT(SDI))"
^XMB(3.9,142,2,1129,0)="""RTN"",""SDAMOCP1"",56,0)"
^XMB(3.9,142,2,1130,0)=" D CNT"
^XMB(3.9,142,2,1131,0)="""RTN"",""SDAMOCP1"",57,0)"
^XMB(3.9,142,2,1132,0)=" W ?124,$J(SDTOT,8) K SDTOT,SDCNT D CHK I SDSTOP G MCTOTQ"
^XMB(3.9,142,2,1133,0)="""RTN"",""SDAMOCP1"",58,0)"
^XMB(3.9,142,2,1134,0)=" W !! D LEGEND"
^XMB(3.9,142,2,1135,0)="""RTN"",""SDAMOCP1"",59,0)"
^XMB(3.9,142,2,1136,0)="MCTOTQ Q"
^XMB(3.9,142,2,1137,0)="""RTN"",""SDAMOCP1"",60,0)"
^XMB(3.9,142,2,1138,0)="CNT ;Place no-show/no-show auto rebook & cancel/cancel auto-rebook together"
^XMB(3.9,142,2,1139,0)="""RTN"",""SDAMOCP1"",61,0)"
^XMB(3.9,142,2,1140,0)=" S SDCNT(4)=+$G(SDCNT(4))+(+$G(SDCNT(6))),SDCNT(13)=+$G(SDCI(+SDCL,4))+(+$G(SDCI(+SDCL,6)))"
^XMB(3.9,142,2,1141,0)="""RTN"",""SDAMOCP1"",62,0)"
^XMB(3.9,142,2,1142,0)=" S SDCNT(5)=+$G(SDCNT(5))+(+$G(SDCNT(7))),SDCNT(14)=+$G(SDCI(+SDCL,5))+(+$G(SDCI(+SDCL,7)))"
^XMB(3.9,142,2,1143,0)="""RTN"",""SDAMOCP1"",63,0)"
^XMB(3.9,142,2,1144,0)=" F SDI=1,2,3,4,13,6,5,14,7,8 D"
^XMB(3.9,142,2,1145,0)="""RTN"",""SDAMOCP1"",64,0)"
^XMB(3.9,142,2,1146,0)=" .W ?$$COL(SDI),$J($S($D(SDCNT(SDI)):SDCNT(SDI),1:0),$$LEN(SDI))"
^XMB(3.9,142,2,1147,0)="""RTN"",""SDAMOCP1"",65,0)"
^XMB(3.9,142,2,1148,0)=" Q"
^XMB(3.9,142,2,1149,0)="""RTN"",""SDAMOCP1"",66,0)"
^XMB(3.9,142,2,1150,0)=" ;"
^XMB(3.9,142,2,1151,0)="""RTN"",""SDAMOCP1"",67,0)"
^XMB(3.9,142,2,1152,0)="CHK ;Check to pause on screen"
^XMB(3.9,142,2,1153,0)="""RTN"",""SDAMOCP1"",68,0)"
^XMB(3.9,142,2,1154,0)=" N SDY"
^XMB(3.9,142,2,1155,0)="""RTN"",""SDAMOCP1"",69,0)"
^XMB(3.9,142,2,1156,0)=" I $E(IOST,1,2)=""C-"",($Y+8)>IOSL D PAUSE^VALM1 S SDY=Y D:SDY HDR1 I 'SDY S SDSTOP=1 Q"
^XMB(3.9,142,2,1157,0)="""RTN"",""SDAMOCP1"",70,0)"
^XMB(3.9,142,2,1158,0)=" I ($Y+8)>IOSL D HDR1"
^XMB(3.9,142,2,1159,0)="""RTN"",""SDAMOCP1"",71,0)"
^XMB(3.9,142,2,1160,0)=" Q"
^XMB(3.9,142,2,1161,0)="""RTN"",""SDAMOCP1"",72,0)"
^XMB(3.9,142,2,1162,0)="TOTAL ;Totals"
^XMB(3.9,142,2,1163,0)="""RTN"",""SDAMOCP1"",73,0)"
^XMB(3.9,142,2,1164,0)=" F SDI=1:1:11 S SDCNT(SDI)=+$G(SDCL(""SDAMS"",$J,SDDV,SDI)),SDTOT=$G(SDTOT)+$G(SDCNT(SDI))"
^XMB(3.9,142,2,1165,0)="""RTN"",""SDAMOCP1"",74,0)"
^XMB(3.9,142,2,1166,0)=" D CNT"
^XMB(3.9,142,2,1167,0)="""RTN"",""SDAMOCP1"",75,0)"
^XMB(3.9,142,2,1168,0)=" K SDCNT"
^XMB(3.9,142,2,1169,0)="""RTN"",""SDAMOCP1"",76,0)"
^XMB(3.9,142,2,1170,0)=" Q"
^XMB(3.9,142,2,1171,0)="""RTN"",""SDAMOCP1"",77,0)"
^XMB(3.9,142,2,1172,0)=" ;"
^XMB(3.9,142,2,1173,0)="""RTN"",""SDAMOCP1"",78,0)"
^XMB(3.9,142,2,1174,0)="LEGEND ;Legend on bottom of output"
^XMB(3.9,142,2,1175,0)="""RTN"",""SDAMOCP1"",79,0)"
^XMB(3.9,142,2,1176,0)=" ;"
^XMB(3.9,142,2,1177,0)="""RTN"",""SDAMOCP1"",80,0)"
^XMB(3.9,142,2,1178,0)=" W !,?5,""o CI=Checked In ; RB=Rebooked"""
^XMB(3.9,142,2,1179,0)="""RTN"",""SDAMOCP1"",81,0)"
^XMB(3.9,142,2,1180,0)=" W !,?5,""o 'Cancelled' appointments only reflect appointments cancelled using 'Cancel Clinic Availability'."""
^XMB(3.9,142,2,1181,0)="""RTN"",""SDAMOCP1"",82,0)"
^XMB(3.9,142,2,1182,0)=" W !,?5,""o 'Checked-In' does not include no-shows or cancelled appointments that have been checked in."""
^XMB(3.9,142,2,1183,0)="""RTN"",""SDAMOCP1"",83,0)"
^XMB(3.9,142,2,1184,0)=" Q"
^XMB(3.9,142,2,1185,0)="""RTN"",""SDAMOCP1"",84,0)"
^XMB(3.9,142,2,1186,0)=" ;"
^XMB(3.9,142,2,1187,0)="""RTN"",""SDAMOCP1"",85,0)"
^XMB(3.9,142,2,1188,0)="COL(SDI) ;Column placement of appt. status"
^XMB(3.9,142,2,1189,0)="""RTN"",""SDAMOCP1"",86,0)"
^XMB(3.9,142,2,1190,0)=" ;"
^XMB(3.9,142,2,1191,0)="""RTN"",""SDAMOCP1"",87,0)"
^XMB(3.9,142,2,1192,0)=" ;input - SDI (appt. type)"
^XMB(3.9,142,2,1193,0)="""RTN"",""SDAMOCP1"",88,0)"
^XMB(3.9,142,2,1194,0)=" ;output - column placement"
^XMB(3.9,142,2,1195,0)="""RTN"",""SDAMOCP1"",89,0)"
^XMB(3.9,142,2,1196,0)=" Q $S(SDI=1:34,SDI=2:48,SDI=3:63,SDI=4:81,SDI=5:97,SDI=6:92,SDI=7:108,SDI=8:114,SDI=13:87,SDI=14:103)"
^XMB(3.9,142,2,1197,0)="""RTN"",""SDAMOCP1"",90,0)"
^XMB(3.9,142,2,1198,0)=" ;"
^XMB(3.9,142,2,1199,0)="""RTN"",""SDAMOCP1"",91,0)"
^XMB(3.9,142,2,1200,0)="LEN(SDI) ;Length of column"
^XMB(3.9,142,2,1201,0)="""RTN"",""SDAMOCP1"",92,0)"
^XMB(3.9,142,2,1202,0)=" ;"
^XMB(3.9,142,2,1203,0)="""RTN"",""SDAMOCP1"",93,0)"
^XMB(3.9,142,2,1204,0)=" ;input - SDI (appt. type)"
^XMB(3.9,142,2,1205,0)="""RTN"",""SDAMOCP1"",94,0)"
^XMB(3.9,142,2,1206,0)=" ;output - length of column"
^XMB(3.9,142,2,1207,0)="""RTN"",""SDAMOCP1"",95,0)"
^XMB(3.9,142,2,1208,0)=" Q $S(SDI=1:10,SDI=2:11,SDI=3:15,SDI=4:5,SDI=6:4,SDI=5:5,SDI=7:4,SDI=8:9,SDI=13:4,SDI=14:4)"
^XMB(3.9,142,2,1209,0)="""RTN"",""SDAMOCP1"",96,0)"
^XMB(3.9,142,2,1210,0)=" ;"
^XMB(3.9,142,2,1211,0)="""RTN"",""SDC"")"
^XMB(3.9,142,2,1212,0)="0^8^B24948807^B24772235"
^XMB(3.9,142,2,1213,0)="""RTN"",""SDC"",1,0)"
^XMB(3.9,142,2,1214,0)="SDC ;MAN/GRR,ALB/LDB - CANCEL A CLINIC'S AVAILABILITY ; 3/2/05 2:11pm"
^XMB(3.9,142,2,1215,0)="""RTN"",""SDC"",2,0)"
^XMB(3.9,142,2,1216,0)=" ;;5.3;Scheduling;**15,32,79,132,167,478,487**;Aug 13, 1993"
^XMB(3.9,142,2,1217,0)="""RTN"",""SDC"",3,0)"
^XMB(3.9,142,2,1218,0)=" N SDATA,SDCNHDL ; for evt dvr"
^XMB(3.9,142,2,1219,0)="""RTN"",""SDC"",4,0)"
^XMB(3.9,142,2,1220,0)="SDC1 K SDLT,SDCP S NOAP="""" D LO^DGUTL"
^XMB(3.9,142,2,1221,0)="""RTN"",""SDC"",5,0)"
^XMB(3.9,142,2,1222,0)=" S DIC=44,DIC(0)=""MEQA"",DIC(""S"")=""I $P(^(0),""""^"""",3)=""""C"""",'$G(^(""""OOS""""))"",DIC(""A"")=""Select CLINIC NAME: "" D ^DIC K DIC(""S""),DIC(""A"") G:'$D(^SC(+Y,""SL"")) END^SDC0"
^XMB(3.9,142,2,1223,0)="""RTN"",""SDC"",6,0)"
^XMB(3.9,142,2,1224,0)=" S SC=+Y,SL=^(""SL""),%DT=""AEXF"",%DT(""A"")=""CANCEL '""_$P(Y,U,2)_""' FOR WHAT DATE: "" D ^%DT K %DT G:Y<0 END^SDC0 ;NAKED REFERNCE - ^SC(IFN,""SL"")"
^XMB(3.9,142,2,1225,0)="""RTN"",""SDC"",7,0)"
^XMB(3.9,142,2,1226,0)=" S (SD,CDATE)=Y,%=$P(SL,U,6),SI=$S(%="""":4,%<3:4,%:%,1:4),%=$P(SL,U,3),STARTDAY=$S($L(%):%,1:8) D NOW^%DTC S SDTIME=%"
^XMB(3.9,142,2,1227,0)="""RTN"",""SDC"",8,0)"
^XMB(3.9,142,2,1228,0)=" K SDRE,SDIN,SDRE1 I $D(^SC(SC,""I"")) S SDIN=+^(""I""),SDRE=+$P(^(""I""),""^"",2),Y=SDRE D:Y DTS^SDUTL S SDRE1=$S(SDRE:"" to ""_Y,1:"""")"
^XMB(3.9,142,2,1229,0)="""RTN"",""SDC"",9,0)"
^XMB(3.9,142,2,1230,0)=" I $S('$D(SDIN):0,SDIN'>0!(SDIN>SD):0,SDRE'>SD&(SDRE):0,1:1) W !,*7,""Clinic is inactive "",$S('SDRE:""as of "",1:""from "") S Y=SDIN D DTS^SDUTL W Y,SDRE1 G SDC1"
^XMB(3.9,142,2,1231,0)="""RTN"",""SDC"",10,0)"
^XMB(3.9,142,2,1232,0)=" I '$D(^SC(SC,""ST"",SD,1)) S DH="""" D B S ^SC(SC,""ST"",SD,1)=$P(""SU^MO^TU^WE^TH^FR^SA"",U,DOW+1)_"" ""_$E(SD,6,7)_$J("""",SI+SI-6)_DH,^(0)=SD G N"
^XMB(3.9,142,2,1233,0)="""RTN"",""SDC"",11,0)"
^XMB(3.9,142,2,1234,0)=" I ^(1)[""CANCELLED"" W !,""APPOINTMENTS HAVE ALREADY BEEN CANCELLED"",!,*7 S ANS=""N"",SDTIME=""*"",SDV1=$S($P(^SC(SC,0),""^"",15):$P(^(0),""^"",15),1:+$O(^DG(40.8,0))) K SDX G ASKL^SDC0 ;NAKED REFERENCE - ^SC(IFN,""ST"",Date,1)"
^XMB(3.9,142,2,1235,0)="""RTN"",""SDC"",12,0)"
^XMB(3.9,142,2,1236,0)="N I '$F(^SC(SC,""ST"",SD,1),""["") K:^(1)?2U.E ^SC(SC,""ST"",SD) W !,*7,""CLINIC DOES NOT MEET ON THAT DAY"" G SDC1 ; KILLs node if not holiday"
^XMB(3.9,142,2,1237,0)="""RTN"",""SDC"",13,0)"
^XMB(3.9,142,2,1238,0)=" I $O(^SC(SC,""S"",SD))\1-SD W *7,!?5,""NO APPOINTMENTS SCHEDULED"" S NOAP=1 G W"
^XMB(3.9,142,2,1239,0)="""RTN"",""SDC"",14,0)"
^XMB(3.9,142,2,1240,0)=" W !,""FIRST, I'LL LIST THE EXISTING APPOINTMENTS"",!"
^XMB(3.9,142,2,1241,0)="""RTN"",""SDC"",15,0)"
^XMB(3.9,142,2,1242,0)=" K DUOUT,DTOUT D ^SDC1 I $D(DUOUT)!$D(DTOUT) D END^SDC0 Q"
^XMB(3.9,142,2,1243,0)="""RTN"",""SDC"",16,0)"
^XMB(3.9,142,2,1244,0)=" I ^SC(SC,""ST"",SD,1)[""X"" G ^SDC2"
^XMB(3.9,142,2,1245,0)="""RTN"",""SDC"",17,0)"
^XMB(3.9,142,2,1246,0)="W S DH=0,%="""" W !,""WANT TO CANCEL THE WHOLE DAY"" D YN^DICN I '% W !,""REPLY YES (Y) OR NO (N)"" G W"
^XMB(3.9,142,2,1247,0)="""RTN"",""SDC"",18,0)"
^XMB(3.9,142,2,1248,0)=" I %=1 G WP:$$COED^SDC4(SC,SD,SD+.2359,1),ALL"
^XMB(3.9,142,2,1249,0)="""RTN"",""SDC"",19,0)"
^XMB(3.9,142,2,1250,0)=" Q:%<1"
^XMB(3.9,142,2,1251,0)="""RTN"",""SDC"",20,0)"
^XMB(3.9,142,2,1252,0)="WP S %="""" W !,""WANT TO CANCEL PART OF THE DAY"" D YN^DICN I '% W !,""REPLY YES (Y) OR NO (N)"" G WP"
^XMB(3.9,142,2,1253,0)="""RTN"",""SDC"",21,0)"
^XMB(3.9,142,2,1254,0)=" Q:(%-1)"
^XMB(3.9,142,2,1255,0)="""RTN"",""SDC"",22,0)"
^XMB(3.9,142,2,1256,0)="F R !,""STARTING TIME: "",X:DTIME Q:U[X  D TC^SDC2 G F:Y<0 S FR=Y,ST=%"
^XMB(3.9,142,2,1257,0)="""RTN"",""SDC"",23,0)"
^XMB(3.9,142,2,1258,0)="T R !,""ENDING TIME: "",X:DTIME Q:U[X  D TC^SDC2 G T:Y<0 S SDHTO=X,TO=Y I TO'>FR W !,""Ending time must be greater than starting time"",*7 G T"
^XMB(3.9,142,2,1259,0)="""RTN"",""SDC"",24,0)"
^XMB(3.9,142,2,1260,0)=" I $$COED^SDC4(SC,FR,TO,1) K FR,SDHTO,TO,ST W ! G F"
^XMB(3.9,142,2,1261,0)="""RTN"",""SDC"",25,0)"
^XMB(3.9,142,2,1262,0)="ROPT R !,""Reason for cancellation:  "",I:DTIME I I?1""?"".E W !,""YOU MAY ENTER A MESSAGE CONCERNING THE CANCELLATION HERE"" G ROPT"
^XMB(3.9,142,2,1263,0)="""RTN"",""SDC"",26,0)"
^XMB(3.9,142,2,1264,0)=" N CANREM S CANREM=I"
^XMB(3.9,142,2,1265,0)="""RTN"",""SDC"",27,0)"
^XMB(3.9,142,2,1266,0)=" Q:I[""^""  I '$D(^SC(SC,""SDCAN"",0)) S ^SC(SC,""SDCAN"",0)=""^44.05D^""_FR_""^1"" G SKIP"
^XMB(3.9,142,2,1267,0)="""RTN"",""SDC"",28,0)"
^XMB(3.9,142,2,1268,0)=" S A=^SC(SC,""SDCAN"",0),SDCNT=$P(A,""^"",4),^SC(SC,""SDCAN"",0)=$P(A,""^"",1,2)_""^""_FR_""^""_(SDCNT+1)"
^XMB(3.9,142,2,1269,0)="""RTN"",""SDC"",29,0)"
^XMB(3.9,142,2,1270,0)="SKIP S ^SC(SC,""SDCAN"",FR,0)=FR_""^""_SDHTO"
^XMB(3.9,142,2,1271,0)="""RTN"",""SDC"",30,0)"
^XMB(3.9,142,2,1272,0)=" S NOAP=$S($O(^SC(SC,""S"",(FR-.0001)))'>0:1,$O(^SC(SC,""S"",(FR-.0001)))>TO:1,1:0) I 'NOAP S NOAP=$S($O(^SC(SC,""S"",+$O(^SC(SC,""S"",(FR-.0001))),0))=""MES"":1,1:0)"
^XMB(3.9,142,2,1273,0)="""RTN"",""SDC"",31,0)"
^XMB(3.9,142,2,1274,0)=" S ^SC(SC,""S"",FR,0)=FR,^(""MES"")=""CANCELLED UNTIL ""_X_$S(I?.P:"""",1:"" (""_I_"")"") D S S I=^(1),I=I_$J("""",%-$L(I)),Y="""""
^XMB(3.9,142,2,1275,0)="""RTN"",""SDC"",32,0)"
^XMB(3.9,142,2,1276,0)=" F X=0:2:% S DH=$E(I,X+SI+SI),P=$S(X<ST:DH_$E(I,X+1+SI+SI),X=%:$S(Y=""["":Y,1:DH)_$E(I,X+1+SI+SI),1:$S(Y=""[""&(X=ST):""]"",1:""X"")_""X""),Y=$S(DH=""]"":"""",DH=""["":DH,1:Y),I=$E(I,1,X-1+SI+SI)_P_$E(I,X+2+SI+SI,999)"
^XMB(3.9,142,2,1277,0)="""RTN"",""SDC"",33,0)"
^XMB(3.9,142,2,1278,0)=" S:'$F(I,""["") I5=$F(I,""X""),I=$E(I,1,(I5-2))_""[""_$E(I,I5,999) K I5"
^XMB(3.9,142,2,1279,0)="""RTN"",""SDC"",34,0)"
^XMB(3.9,142,2,1280,0)=" S DH=0,^(1)=I,FR=FR-.0001 G C ;NAKED REFERENCE - ^SC(IFN,""ST"",Date,1)"
^XMB(3.9,142,2,1281,0)="""RTN"",""SDC"",35,0)"
^XMB(3.9,142,2,1282,0)="S S ^(""CAN"")=^SC(SC,""ST"",SD,1) Q"
^XMB(3.9,142,2,1283,0)="""RTN"",""SDC"",36,0)"
^XMB(3.9,142,2,1284,0)=" ;"
^XMB(3.9,142,2,1285,0)="""RTN"",""SDC"",37,0)"
^XMB(3.9,142,2,1286,0)="ALL N CANREM"
^XMB(3.9,142,2,1287,0)="""RTN"",""SDC"",38,0)"
^XMB(3.9,142,2,1288,0)=" W !,""Reason for cancellation: "" R CANREM:DTIME I $L(CANREM)>160!($L(CANREM)<3) W !,*7,""Reason must be between 3 to 160 characters long"",! G ALL"
^XMB(3.9,142,2,1289,0)="""RTN"",""SDC"",39,0)"
^XMB(3.9,142,2,1290,0)=" D S S ^(1)=""   ""_$E(SD,6,7)_""    **CANCELLED**"",FR=SD,TO=SD+.9 ;NAKED REFERENCE - ^SC(IFN,""ST"",Date,1)"
^XMB(3.9,142,2,1291,0)="""RTN"",""SDC"",40,0)"
^XMB(3.9,142,2,1292,0)="C S FR=$O(^SC(SC,""S"",FR)) I FR<1!(FR'<TO) W !!,""CANCELLED!  "" K SDX G CHKEND^SDC0"
^XMB(3.9,142,2,1293,0)="""RTN"",""SDC"",41,0)"
^XMB(3.9,142,2,1294,0)=" N TDH,TMPD,DIE,DR"
^XMB(3.9,142,2,1295,0)="""RTN"",""SDC"",42,0)"
^XMB(3.9,142,2,1296,0)=" F I=0:0 S I=$O(^SC(SC,""S"",FR,1,I)) Q:I'>0  D"
^XMB(3.9,142,2,1297,0)="""RTN"",""SDC"",43,0)"
^XMB(3.9,142,2,1298,0)=" .S DFN=+^SC(SC,""S"",FR,1,I,0),SDCNHDL=$$HANDLE^SDAMEVT(1)"
^XMB(3.9,142,2,1299,0)="""RTN"",""SDC"",44,0)"
^XMB(3.9,142,2,1300,0)=" .D BEFORE^SDAMEVT(.SDATA,DFN,FR,SC,I,SDCNHDL)"
^XMB(3.9,142,2,1301,0)="""RTN"",""SDC"",45,0)"
^XMB(3.9,142,2,1302,0)=" .S $P(^SC(SC,""S"",FR,1,I,0),""^"",9)=""C"""
^XMB(3.9,142,2,1303,0)="""RTN"",""SDC"",46,0)"
^XMB(3.9,142,2,1304,0)=" .S ^DPT(""ASDCN"",SC,FR,DFN)="""""
^XMB(3.9,142,2,1305,0)="""RTN"",""SDC"",47,0)"
^XMB(3.9,142,2,1306,0)=" .S SDSC=SC,SDTTM=FR,SDPL=I,TDH=DH,TMPD=CANREM D CANCEL^SDCNSLT S DH=TDH ;SD/478"
^XMB(3.9,142,2,1307,0)="""RTN"",""SDC"",48,0)"
^XMB(3.9,142,2,1308,0)=" .I $D(^DPT(DFN,""S"",FR,0)),$P(^(0),""^"",2)'[""C"" S $P(^(0),""^"",2)=""C"",$P(^(0),""^"",12)=DUZ,$P(^(0),""^"",14)=SDTIME,DH=DH+1,TDH=DH,DIE=""^DPT(DFN,""_""""""S""""""_"","",DR=""17///^S X=CANREM"",DA=FR D ^DIE S DH=TDH D MORE"
^XMB(3.9,142,2,1309,0)="""RTN"",""SDC"",49,0)"
^XMB(3.9,142,2,1310,0)=" G C"
^XMB(3.9,142,2,1311,0)="""RTN"",""SDC"",50,0)"
^XMB(3.9,142,2,1312,0)=" ;"
^XMB(3.9,142,2,1313,0)="""RTN"",""SDC"",51,0)"
^XMB(3.9,142,2,1314,0)="B S X=SD D DOW^SDM0 S DOW=Y,SS=+$O(^SC(SC,""T""_Y,X)) I $D(^(SS,1)),^(1)]"""" S DH=^(1),DO=X+1,DA(1)=SC"
^XMB(3.9,142,2,1315,0)="""RTN"",""SDC"",52,0)"
^XMB(3.9,142,2,1316,0)=" Q"
^XMB(3.9,142,2,1317,0)="""RTN"",""SDC"",53,0)"
^XMB(3.9,142,2,1318,0)="MORE I $D(^SC(""ARAD"",SC,FR,DFN)) S ^(DFN)=""N"""
^XMB(3.9,142,2,1319,0)="""RTN"",""SDC"",54,0)"
^XMB(3.9,142,2,1320,0)=" S SDIV=$S($P(^SC(SC,0),""^"",15)]"""":$P(^(0),""^"",15),1:"" 1""),SDV1=$S(SDIV:SDIV,1:+$O(^DG(40.8,0))) I $D(^DPT(""ASDPSD"",""C"",SDIV,SC,FR,DFN)) K ^(DFN)"
^XMB(3.9,142,2,1321,0)="""RTN"",""SDC"",55,0)"
^XMB(3.9,142,2,1322,0)=" S SDH=DH,SDTTM=FR,SDSC=SC,SDPL=I,SDRT=""D"" D RT^SDUTL"
^XMB(3.9,142,2,1323,0)="""RTN"",""SDC"",56,0)"
^XMB(3.9,142,2,1324,0)=" S DH=SDH K SDH D CK1,EVT"
^XMB(3.9,142,2,1325,0)="""RTN"",""SDC"",57,0)"
^XMB(3.9,142,2,1326,0)=" K SD1,SDIV,SDPL,SDRT,SDSC,SDTTM,SDX Q"
^XMB(3.9,142,2,1327,0)="""RTN"",""SDC"",58,0)"
^XMB(3.9,142,2,1328,0)="CK1 S SDX=0 F SD1=FR\1:0 S SD1=$O(^DPT(DFN,""S"",SD1)) Q:'SD1!((SD1\1)'=(FR\1))  I $P(^(SD1,0),""^"",2)'[""C"",$P(^(0),""^"",2)'[""N"" S SDX=1 Q"
^XMB(3.9,142,2,1329,0)="""RTN"",""SDC"",59,0)"
^XMB(3.9,142,2,1330,0)=" Q:SDX  F SD1=2,4 I $D(^SC(""AAS"",SD1,FR\1,DFN)) S SDX=1 Q"
^XMB(3.9,142,2,1331,0)="""RTN"",""SDC"",60,0)"
^XMB(3.9,142,2,1332,0)=" Q:SDX  IF $D(^SCE(+$$EXAE^SDOE(DFN,FR\1,FR\1),0)) S SDX=1"
^XMB(3.9,142,2,1333,0)="""RTN"",""SDC"",61,0)"
^XMB(3.9,142,2,1334,0)=" Q:SDX  K ^DPT(""ASDPSD"",""B"",SDIV,FR\1,DFN) Q"
^XMB(3.9,142,2,1335,0)="""RTN"",""SDC"",62,0)"
^XMB(3.9,142,2,1336,0)=" ;"
^XMB(3.9,142,2,1337,0)="""RTN"",""SDC"",63,0)"
^XMB(3.9,142,2,1338,0)="EVT ; -- separate tag if need to NEW vars"
^XMB(3.9,142,2,1339,0)="""RTN"",""SDC"",64,0)"
^XMB(3.9,142,2,1340,0)=" ; -- cancel event"
^XMB(3.9,142,2,1341,0)="""RTN"",""SDC"",65,0)"
^XMB(3.9,142,2,1342,0)=" N FR,I,SDTIME,DH,SC"
^XMB(3.9,142,2,1343,0)="""RTN"",""SDC"",66,0)"
^XMB(3.9,142,2,1344,0)=" D CANCEL^SDAMEVT(.SDATA,DFN,SDTTM,SDSC,SDPL,0,SDCNHDL) K SDATA,SDCNHDL"
^XMB(3.9,142,2,1345,0)="""RTN"",""SDC"",67,0)"
^XMB(3.9,142,2,1346,0)=" Q"
^XMB(3.9,142,2,1347,0)="""RTN"",""SDCAN"")"
^XMB(3.9,142,2,1348,0)="0^9^B837101^B837101"
^XMB(3.9,142,2,1349,0)="""RTN"",""SDCAN"",1,0)"
^XMB(3.9,142,2,1350,0)="SDCAN ;ALB/LDB - CREATE INDIVIDUALLY CANCELLED APPT. NODES ;25-NOV-88@14:00"
^XMB(3.9,142,2,1351,0)="""RTN"",""SDCAN"",2,0)"
^XMB(3.9,142,2,1352,0)=" ;;5.3;Scheduling;**487**;Aug 13, 1993"
^XMB(3.9,142,2,1353,0)="""RTN"",""SDCAN"",3,0)"
^XMB(3.9,142,2,1354,0)=" K Q8 F Q7=0:0 S Q7=$O(^SC($P(^DPT(DA(1),""S"",DA,0),""^""),""S"",DA,1,Q7)) Q:Q7'>0  I $P(^(Q7,0),""^"")=DA(1),$P(^(0),""^"",9)[""C"" S Q8="""" Q"
^XMB(3.9,142,2,1355,0)="""RTN"",""SDCAN"",4,0)"
^XMB(3.9,142,2,1356,0)=" I '$D(Q8) S ^DPT(""ASDCN"",$P(^DPT(DA(1),""S"",DA,0),""^""),DA,DA(1))=$S($P(^DPT(DA(1),""S"",DA,0),""^"",2)[""P"":1,1:"""")"
^XMB(3.9,142,2,1357,0)="""RTN"",""SDCAN"",5,0)"
^XMB(3.9,142,2,1358,0)=" K Q7,Q8 Q"
^XMB(3.9,142,2,1359,0)="""VER"")"
^XMB(3.9,142,2,1360,0)="8.0^22.0"
^XMB(3.9,142,2,1361,0)="""BLD"",6770,6)"
^XMB(3.9,142,2,1362,0)="^393"
^XMB(3.9,142,2,1363,0)="$END KID SD*5.3*487"
^XMB(3.9,142,6,0)="^3.911A^2^2"
^XMB(3.9,142,6,1,0)="POSTMASTER"
^XMB(3.9,142,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,142,6,"B","POSTMASTER",1)=""
^XMB(3.9,142,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,143,0)="SR-3_SEQ-147_PAT-152.KID^.5^3061008.015742^^^^K"
^XMB(3.9,143,.6)="3061008"
^XMB(3.9,143,1,0)="^3.91A^2^2"
^XMB(3.9,143,1,1,0)=".5^0^3061008.015742^^^^^^^3061008.015742"
^XMB(3.9,143,1,2,0)="1^0^3061008.022754^^^^^^^3061008.022754"
^XMB(3.9,143,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,143,1,"C",.5,1)=""
^XMB(3.9,143,1,"C",1,2)=""
^XMB(3.9,143,2,0)="^^2947^2947^3061008"
^XMB(3.9,143,2,1,0)="$TXT Released SR*3*152 SEQ #147"
^XMB(3.9,143,2,2,0)="Extracted from mail message"
^XMB(3.9,143,2,3,0)="$END TXT"
^XMB(3.9,143,2,4,0)="$KID SR*3.0*152"
^XMB(3.9,143,2,5,0)="**INSTALL NAME**"
^XMB(3.9,143,2,6,0)="SR*3.0*152"
^XMB(3.9,143,2,7,0)="""BLD"",5643,0)"
^XMB(3.9,143,2,8,0)="SR*3.0*152^SURGERY^0^3060418^y"
^XMB(3.9,143,2,9,0)="""BLD"",5643,1,0)"
^XMB(3.9,143,2,10,0)="^^19^19^3060414^"
^XMB(3.9,143,2,11,0)="""BLD"",5643,1,1,0)"
^XMB(3.9,143,2,12,0)="Project 112/SHAD (Shipboard Hazard and Defense) is a new environmental "
^XMB(3.9,143,2,13,0)="""BLD"",5643,1,2,0)"
^XMB(3.9,143,2,14,0)="indicator added to VistA as part of the Enrollment System Redesign (ESR) "
^XMB(3.9,143,2,15,0)="""BLD"",5643,1,3,0)"
^XMB(3.9,143,2,16,0)="project."
^XMB(3.9,143,2,17,0)="""BLD"",5643,1,4,0)"
^XMB(3.9,143,2,18,0)=" "
^XMB(3.9,143,2,19,0)="""BLD"",5643,1,5,0)"
^XMB(3.9,143,2,20,0)="1. This patch provides the ability to enter and edit Project 112/SHAD"
^XMB(3.9,143,2,21,0)="""BLD"",5643,1,6,0)"
^XMB(3.9,143,2,22,0)="   Environmental Indicator information in the Surgery package. The "
^XMB(3.9,143,2,23,0)="""BLD"",5643,1,7,0)"
^XMB(3.9,143,2,24,0)="   patient's Project 112/SHAD enrollment status is displayed when creating"
^XMB(3.9,143,2,25,0)="""BLD"",5643,1,8,0)"
^XMB(3.9,143,2,26,0)="   or editing a surgical case, and the user will be prompted to answer the"
^XMB(3.9,143,2,27,0)="""BLD"",5643,1,9,0)"
^XMB(3.9,143,2,28,0)="   Project 112/SHAD questions with ""yes"" or ""no""."
^XMB(3.9,143,2,29,0)="""BLD"",5643,1,10,0)"
^XMB(3.9,143,2,30,0)=" "
^XMB(3.9,143,2,31,0)="""BLD"",5643,1,11,0)"
^XMB(3.9,143,2,32,0)="   The Project 112/SHAD information will be forwarded to Patient Care "
^XMB(3.9,143,2,33,0)="""BLD"",5643,1,12,0)"
^XMB(3.9,143,2,34,0)="   Encounter (PCE) as part of the normal case coding activities."
^XMB(3.9,143,2,35,0)="""BLD"",5643,1,13,0)"
^XMB(3.9,143,2,36,0)=" "
^XMB(3.9,143,2,37,0)="""BLD"",5643,1,14,0)"
^XMB(3.9,143,2,38,0)="2. This patch will prevent the PRIN PRE-OP ICD DIAGNOSIS CODE field"
^XMB(3.9,143,2,39,0)="""BLD"",5643,1,15,0)"
^XMB(3.9,143,2,40,0)="   (#32.5) of the SURGERY file (#130) from being sent to PCE."
^XMB(3.9,143,2,41,0)="""BLD"",5643,1,16,0)"
^XMB(3.9,143,2,42,0)="   "
^XMB(3.9,143,2,43,0)="""BLD"",5643,1,17,0)"
^XMB(3.9,143,2,44,0)="3. This patch adds the Alert Coder Regarding Coding Issues [SROA CODE "
^XMB(3.9,143,2,45,0)="""BLD"",5643,1,18,0)"
^XMB(3.9,143,2,46,0)="   ISSUE] option to the Surgery Risk Assessment Menu [SROA RISK "
^XMB(3.9,143,2,47,0)="""BLD"",5643,1,19,0)"
^XMB(3.9,143,2,48,0)="   ASSESSMENT] option."
^XMB(3.9,143,2,49,0)="""BLD"",5643,4,0)"
^XMB(3.9,143,2,50,0)="^9.64PA^133.8^3"
^XMB(3.9,143,2,51,0)="""BLD"",5643,4,130,0)"
^XMB(3.9,143,2,52,0)="130"
^XMB(3.9,143,2,53,0)="""BLD"",5643,4,130,2,0)"
^XMB(3.9,143,2,54,0)="^9.641^130.18^2"
^XMB(3.9,143,2,55,0)="""BLD"",5643,4,130,2,130,0)"
^XMB(3.9,143,2,56,0)="SURGERY  (File-top level)"
^XMB(3.9,143,2,57,0)="""BLD"",5643,4,130,2,130,1,0)"
^XMB(3.9,143,2,58,0)="^9.6411^.026^1"
^XMB(3.9,143,2,59,0)="""BLD"",5643,4,130,2,130,1,.026,0)"
^XMB(3.9,143,2,60,0)="PROJ 112/SHAD"
^XMB(3.9,143,2,61,0)="""BLD"",5643,4,130,2,130.18,0)"
^XMB(3.9,143,2,62,0)="OTHER POSTOP DIAGS  (sub-file)"
^XMB(3.9,143,2,63,0)="""BLD"",5643,4,130,2,130.18,1,0)"
^XMB(3.9,143,2,64,0)="^9.6411^11^2"
^XMB(3.9,143,2,65,0)="""BLD"",5643,4,130,2,130.18,1,.01,0)"
^XMB(3.9,143,2,66,0)="OTHER POSTOP DIAGS"
^XMB(3.9,143,2,67,0)="""BLD"",5643,4,130,2,130.18,1,11,0)"
^XMB(3.9,143,2,68,0)="PROJ 112/SHAD"
^XMB(3.9,143,2,69,0)="""BLD"",5643,4,130,222)"
^XMB(3.9,143,2,70,0)="y^n^p^^^^n^^n"
^XMB(3.9,143,2,71,0)="""BLD"",5643,4,130,224)"
^XMB(3.9,143,2,72,0)=""
^XMB(3.9,143,2,73,0)="""BLD"",5643,4,133.8,0)"
^XMB(3.9,143,2,74,0)="133.8"
^XMB(3.9,143,2,75,0)="""BLD"",5643,4,133.8,2,0)"
^XMB(3.9,143,2,76,0)="^9.641^133.801^1"
^XMB(3.9,143,2,77,0)="""BLD"",5643,4,133.8,2,133.801,0)"
^XMB(3.9,143,2,78,0)="PATIENT  (sub-file)"
^XMB(3.9,143,2,79,0)="""BLD"",5643,4,133.8,2,133.801,1,0)"
^XMB(3.9,143,2,80,0)="^9.6411^24^1"
^XMB(3.9,143,2,81,0)="""BLD"",5643,4,133.8,2,133.801,1,24,0)"
^XMB(3.9,143,2,82,0)="PROJ 112/SHAD"
^XMB(3.9,143,2,83,0)="""BLD"",5643,4,133.8,222)"
^XMB(3.9,143,2,84,0)="y^n^p^^^^n^^n"
^XMB(3.9,143,2,85,0)="""BLD"",5643,4,133.8,224)"
^XMB(3.9,143,2,86,0)=""
^XMB(3.9,143,2,87,0)="""BLD"",5643,4,136,0)"
^XMB(3.9,143,2,88,0)="136"
^XMB(3.9,143,2,89,0)="""BLD"",5643,4,136,2,0)"
^XMB(3.9,143,2,90,0)="^9.641^136.04^2"
^XMB(3.9,143,2,91,0)="""BLD"",5643,4,136,2,136,0)"
^XMB(3.9,143,2,92,0)="SURGERY PROCEDURE/DIAGNOSIS CODES  (File-top level)"
^XMB(3.9,143,2,93,0)="""BLD"",5643,4,136,2,136,1,0)"
^XMB(3.9,143,2,94,0)="^9.6411^.11^1"
^XMB(3.9,143,2,95,0)="""BLD"",5643,4,136,2,136,1,.11,0)"
^XMB(3.9,143,2,96,0)="PROJ 112/SHAD (PRIN)"
^XMB(3.9,143,2,97,0)="""BLD"",5643,4,136,2,136.04,0)"
^XMB(3.9,143,2,98,0)="OTHER POSTOP DIAGNOSIS CODES  (sub-file)"
^XMB(3.9,143,2,99,0)="""BLD"",5643,4,136,2,136.04,1,0)"
^XMB(3.9,143,2,100,0)="^9.6411^.09^2"
^XMB(3.9,143,2,101,0)="""BLD"",5643,4,136,2,136.04,1,.01,0)"
^XMB(3.9,143,2,102,0)="OTHER POSTOP DIAGNOSIS CODE"
^XMB(3.9,143,2,103,0)="""BLD"",5643,4,136,2,136.04,1,.09,0)"
^XMB(3.9,143,2,104,0)="PROJ 112/SHAD"
^XMB(3.9,143,2,105,0)="""BLD"",5643,4,136,222)"
^XMB(3.9,143,2,106,0)="y^n^p^^^^n^^n"
^XMB(3.9,143,2,107,0)="""BLD"",5643,4,136,224)"
^XMB(3.9,143,2,108,0)=""
^XMB(3.9,143,2,109,0)="""BLD"",5643,4,""APDD"",130,130)"
^XMB(3.9,143,2,110,0)=""
^XMB(3.9,143,2,111,0)="""BLD"",5643,4,""APDD"",130,130,.026)"
^XMB(3.9,143,2,112,0)=""
^XMB(3.9,143,2,113,0)="""BLD"",5643,4,""APDD"",130,130.18)"
^XMB(3.9,143,2,114,0)=""
^XMB(3.9,143,2,115,0)="""BLD"",5643,4,""APDD"",130,130.18,.01)"
^XMB(3.9,143,2,116,0)=""
^XMB(3.9,143,2,117,0)="""BLD"",5643,4,""APDD"",130,130.18,11)"
^XMB(3.9,143,2,118,0)=""
^XMB(3.9,143,2,119,0)="""BLD"",5643,4,""APDD"",133.8,133.801)"
^XMB(3.9,143,2,120,0)=""
^XMB(3.9,143,2,121,0)="""BLD"",5643,4,""APDD"",133.8,133.801,24)"
^XMB(3.9,143,2,122,0)=""
^XMB(3.9,143,2,123,0)="""BLD"",5643,4,""APDD"",136,136)"
^XMB(3.9,143,2,124,0)=""
^XMB(3.9,143,2,125,0)="""BLD"",5643,4,""APDD"",136,136,.11)"
^XMB(3.9,143,2,126,0)=""
^XMB(3.9,143,2,127,0)="""BLD"",5643,4,""APDD"",136,136.04)"
^XMB(3.9,143,2,128,0)=""
^XMB(3.9,143,2,129,0)="""BLD"",5643,4,""APDD"",136,136.04,.01)"
^XMB(3.9,143,2,130,0)=""
^XMB(3.9,143,2,131,0)="""BLD"",5643,4,""APDD"",136,136.04,.09)"
^XMB(3.9,143,2,132,0)=""
^XMB(3.9,143,2,133,0)="""BLD"",5643,4,""B"",130,130)"
^XMB(3.9,143,2,134,0)=""
^XMB(3.9,143,2,135,0)="""BLD"",5643,4,""B"",133.8,133.8)"
^XMB(3.9,143,2,136,0)=""
^XMB(3.9,143,2,137,0)="""BLD"",5643,4,""B"",136,136)"
^XMB(3.9,143,2,138,0)=""
^XMB(3.9,143,2,139,0)="""BLD"",5643,6)"
^XMB(3.9,143,2,140,0)="9^"
^XMB(3.9,143,2,141,0)="""BLD"",5643,""ABPKG"")"
^XMB(3.9,143,2,142,0)="n"
^XMB(3.9,143,2,143,0)="""BLD"",5643,""KRN"",0)"
^XMB(3.9,143,2,144,0)="^9.67PA^8989.52^19"
^XMB(3.9,143,2,145,0)="""BLD"",5643,""KRN"",.4,0)"
^XMB(3.9,143,2,146,0)=".4"
^XMB(3.9,143,2,147,0)="""BLD"",5643,""KRN"",.401,0)"
^XMB(3.9,143,2,148,0)=".401"
^XMB(3.9,143,2,149,0)="""BLD"",5643,""KRN"",.402,0)"
^XMB(3.9,143,2,150,0)=".402"
^XMB(3.9,143,2,151,0)="""BLD"",5643,""KRN"",.403,0)"
^XMB(3.9,143,2,152,0)=".403"
^XMB(3.9,143,2,153,0)="""BLD"",5643,""KRN"",.5,0)"
^XMB(3.9,143,2,154,0)=".5"
^XMB(3.9,143,2,155,0)="""BLD"",5643,""KRN"",.84,0)"
^XMB(3.9,143,2,156,0)=".84"
^XMB(3.9,143,2,157,0)="""BLD"",5643,""KRN"",3.6,0)"
^XMB(3.9,143,2,158,0)="3.6"
^XMB(3.9,143,2,159,0)="""BLD"",5643,""KRN"",3.8,0)"
^XMB(3.9,143,2,160,0)="3.8"
^XMB(3.9,143,2,161,0)="""BLD"",5643,""KRN"",9.2,0)"
^XMB(3.9,143,2,162,0)="9.2"
^XMB(3.9,143,2,163,0)="""BLD"",5643,""KRN"",9.8,0)"
^XMB(3.9,143,2,164,0)="9.8"
^XMB(3.9,143,2,165,0)="""BLD"",5643,""KRN"",9.8,""NM"",0)"
^XMB(3.9,143,2,166,0)="^9.68A^9^9"
^XMB(3.9,143,2,167,0)="""BLD"",5643,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,143,2,168,0)="SROPCE1^^0^B43635791"
^XMB(3.9,143,2,169,0)="""BLD"",5643,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,143,2,170,0)="SROCD^^0^B20439291"
^XMB(3.9,143,2,171,0)="""BLD"",5643,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,143,2,172,0)="SROCD0^^0^B60958065"
^XMB(3.9,143,2,173,0)="""BLD"",5643,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,143,2,174,0)="SROCD1^^0^B22252247"
^XMB(3.9,143,2,175,0)="""BLD"",5643,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,143,2,176,0)="SROCD3^^0^B25952719"
^XMB(3.9,143,2,177,0)="""BLD"",5643,""KRN"",9.8,""NM"",6,0)"
^XMB(3.9,143,2,178,0)="SROVER3^^0^B35709215"
^XMB(3.9,143,2,179,0)="""BLD"",5643,""KRN"",9.8,""NM"",7,0)"
^XMB(3.9,143,2,180,0)="SROPCEP^^0^B73728943"
^XMB(3.9,143,2,181,0)="""BLD"",5643,""KRN"",9.8,""NM"",8,0)"
^XMB(3.9,143,2,182,0)="SROACOD^^0^B16578804"
^XMB(3.9,143,2,183,0)="""BLD"",5643,""KRN"",9.8,""NM"",9,0)"
^XMB(3.9,143,2,184,0)="SROANEST^^0^B54722958"
^XMB(3.9,143,2,185,0)="""BLD"",5643,""KRN"",9.8,""NM"",""B"",""SROACOD"",8)"
^XMB(3.9,143,2,186,0)=""
^XMB(3.9,143,2,187,0)="""BLD"",5643,""KRN"",9.8,""NM"",""B"",""SROANEST"",9)"
^XMB(3.9,143,2,188,0)=""
^XMB(3.9,143,2,189,0)="""BLD"",5643,""KRN"",9.8,""NM"",""B"",""SROCD"",2)"
^XMB(3.9,143,2,190,0)=""
^XMB(3.9,143,2,191,0)="""BLD"",5643,""KRN"",9.8,""NM"",""B"",""SROCD0"",3)"
^XMB(3.9,143,2,192,0)=""
^XMB(3.9,143,2,193,0)="""BLD"",5643,""KRN"",9.8,""NM"",""B"",""SROCD1"",4)"
^XMB(3.9,143,2,194,0)=""
^XMB(3.9,143,2,195,0)="""BLD"",5643,""KRN"",9.8,""NM"",""B"",""SROCD3"",5)"
^XMB(3.9,143,2,196,0)=""
^XMB(3.9,143,2,197,0)="""BLD"",5643,""KRN"",9.8,""NM"",""B"",""SROPCE1"",1)"
^XMB(3.9,143,2,198,0)=""
^XMB(3.9,143,2,199,0)="""BLD"",5643,""KRN"",9.8,""NM"",""B"",""SROPCEP"",7)"
^XMB(3.9,143,2,200,0)=""
^XMB(3.9,143,2,201,0)="""BLD"",5643,""KRN"",9.8,""NM"",""B"",""SROVER3"",6)"
^XMB(3.9,143,2,202,0)=""
^XMB(3.9,143,2,203,0)="""BLD"",5643,""KRN"",19,0)"
^XMB(3.9,143,2,204,0)="19"
^XMB(3.9,143,2,205,0)="""BLD"",5643,""KRN"",19,""NM"",0)"
^XMB(3.9,143,2,206,0)="^9.68A^2^2"
^XMB(3.9,143,2,207,0)="""BLD"",5643,""KRN"",19,""NM"",1,0)"
^XMB(3.9,143,2,208,0)="SROA RISK ASSESSMENT^^2"
^XMB(3.9,143,2,209,0)="""BLD"",5643,""KRN"",19,""NM"",2,0)"
^XMB(3.9,143,2,210,0)="SROA CODE ISSUE^^0"
^XMB(3.9,143,2,211,0)="""BLD"",5643,""KRN"",19,""NM"",""B"",""SROA CODE ISSUE"",2)"
^XMB(3.9,143,2,212,0)=""
^XMB(3.9,143,2,213,0)="""BLD"",5643,""KRN"",19,""NM"",""B"",""SROA RISK ASSESSMENT"",1)"
^XMB(3.9,143,2,214,0)=""
^XMB(3.9,143,2,215,0)="""BLD"",5643,""KRN"",19.1,0)"
^XMB(3.9,143,2,216,0)="19.1"
^XMB(3.9,143,2,217,0)="""BLD"",5643,""KRN"",101,0)"
^XMB(3.9,143,2,218,0)="101"
^XMB(3.9,143,2,219,0)="""BLD"",5643,""KRN"",409.61,0)"
^XMB(3.9,143,2,220,0)="409.61"
^XMB(3.9,143,2,221,0)="""BLD"",5643,""KRN"",771,0)"
^XMB(3.9,143,2,222,0)="771"
^XMB(3.9,143,2,223,0)="""BLD"",5643,""KRN"",870,0)"
^XMB(3.9,143,2,224,0)="870"
^XMB(3.9,143,2,225,0)="""BLD"",5643,""KRN"",8989.51,0)"
^XMB(3.9,143,2,226,0)="8989.51"
^XMB(3.9,143,2,227,0)="""BLD"",5643,""KRN"",8989.52,0)"
^XMB(3.9,143,2,228,0)="8989.52"
^XMB(3.9,143,2,229,0)="""BLD"",5643,""KRN"",8994,0)"
^XMB(3.9,143,2,230,0)="8994"
^XMB(3.9,143,2,231,0)="""BLD"",5643,""KRN"",""B"",.4,.4)"
^XMB(3.9,143,2,232,0)=""
^XMB(3.9,143,2,233,0)="""BLD"",5643,""KRN"",""B"",.401,.401)"
^XMB(3.9,143,2,234,0)=""
^XMB(3.9,143,2,235,0)="""BLD"",5643,""KRN"",""B"",.402,.402)"
^XMB(3.9,143,2,236,0)=""
^XMB(3.9,143,2,237,0)="""BLD"",5643,""KRN"",""B"",.403,.403)"
^XMB(3.9,143,2,238,0)=""
^XMB(3.9,143,2,239,0)="""BLD"",5643,""KRN"",""B"",.5,.5)"
^XMB(3.9,143,2,240,0)=""
^XMB(3.9,143,2,241,0)="""BLD"",5643,""KRN"",""B"",.84,.84)"
^XMB(3.9,143,2,242,0)=""
^XMB(3.9,143,2,243,0)="""BLD"",5643,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,143,2,244,0)=""
^XMB(3.9,143,2,245,0)="""BLD"",5643,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,143,2,246,0)=""
^XMB(3.9,143,2,247,0)="""BLD"",5643,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,143,2,248,0)=""
^XMB(3.9,143,2,249,0)="""BLD"",5643,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,143,2,250,0)=""
^XMB(3.9,143,2,251,0)="""BLD"",5643,""KRN"",""B"",19,19)"
^XMB(3.9,143,2,252,0)=""
^XMB(3.9,143,2,253,0)="""BLD"",5643,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,143,2,254,0)=""
^XMB(3.9,143,2,255,0)="""BLD"",5643,""KRN"",""B"",101,101)"
^XMB(3.9,143,2,256,0)=""
^XMB(3.9,143,2,257,0)="""BLD"",5643,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,143,2,258,0)=""
^XMB(3.9,143,2,259,0)="""BLD"",5643,""KRN"",""B"",771,771)"
^XMB(3.9,143,2,260,0)=""
^XMB(3.9,143,2,261,0)="""BLD"",5643,""KRN"",""B"",870,870)"
^XMB(3.9,143,2,262,0)=""
^XMB(3.9,143,2,263,0)="""BLD"",5643,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,143,2,264,0)=""
^XMB(3.9,143,2,265,0)="""BLD"",5643,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,143,2,266,0)=""
^XMB(3.9,143,2,267,0)="""BLD"",5643,""KRN"",""B"",8994,8994)"
^XMB(3.9,143,2,268,0)=""
^XMB(3.9,143,2,269,0)="""BLD"",5643,""QUES"",0)"
^XMB(3.9,143,2,270,0)="^9.62^^"
^XMB(3.9,143,2,271,0)="""BLD"",5643,""REQB"",0)"
^XMB(3.9,143,2,272,0)="^9.611^2^1"
^XMB(3.9,143,2,273,0)="""BLD"",5643,""REQB"",2,0)"
^XMB(3.9,143,2,274,0)="SR*3.0*146^2"
^XMB(3.9,143,2,275,0)="""BLD"",5643,""REQB"",""B"",""SR*3.0*146"",2)"
^XMB(3.9,143,2,276,0)=""
^XMB(3.9,143,2,277,0)="""FIA"",130)"
^XMB(3.9,143,2,278,0)="SURGERY"
^XMB(3.9,143,2,279,0)="""FIA"",130,0)"
^XMB(3.9,143,2,280,0)="^SRF("
^XMB(3.9,143,2,281,0)="""FIA"",130,0,0)"
^XMB(3.9,143,2,282,0)="130IP"
^XMB(3.9,143,2,283,0)="""FIA"",130,0,1)"
^XMB(3.9,143,2,284,0)="y^n^p^^^^n^^n"
^XMB(3.9,143,2,285,0)="""FIA"",130,0,10)"
^XMB(3.9,143,2,286,0)=""
^XMB(3.9,143,2,287,0)="""FIA"",130,0,11)"
^XMB(3.9,143,2,288,0)=""
^XMB(3.9,143,2,289,0)="""FIA"",130,0,""RLRO"")"
^XMB(3.9,143,2,290,0)=""
^XMB(3.9,143,2,291,0)="""FIA"",130,0,""VR"")"
^XMB(3.9,143,2,292,0)="3.0^SR"
^XMB(3.9,143,2,293,0)="""FIA"",130,130)"
^XMB(3.9,143,2,294,0)="1"
^XMB(3.9,143,2,295,0)="""FIA"",130,130,.026)"
^XMB(3.9,143,2,296,0)=""
^XMB(3.9,143,2,297,0)="""FIA"",130,130,.74)"
^XMB(3.9,143,2,298,0)=""
^XMB(3.9,143,2,299,0)="""FIA"",130,130.18)"
^XMB(3.9,143,2,300,0)="1"
^XMB(3.9,143,2,301,0)="""FIA"",130,130.18,.01)"
^XMB(3.9,143,2,302,0)=""
^XMB(3.9,143,2,303,0)="""FIA"",130,130.18,11)"
^XMB(3.9,143,2,304,0)=""
^XMB(3.9,143,2,305,0)="""FIA"",133.8)"
^XMB(3.9,143,2,306,0)="SURGERY WAITING LIST"
^XMB(3.9,143,2,307,0)="""FIA"",133.8,0)"
^XMB(3.9,143,2,308,0)="^SRO(133.8,"
^XMB(3.9,143,2,309,0)="""FIA"",133.8,0,0)"
^XMB(3.9,143,2,310,0)="133.8IP"
^XMB(3.9,143,2,311,0)="""FIA"",133.8,0,1)"
^XMB(3.9,143,2,312,0)="y^n^p^^^^n^^n"
^XMB(3.9,143,2,313,0)="""FIA"",133.8,0,10)"
^XMB(3.9,143,2,314,0)=""
^XMB(3.9,143,2,315,0)="""FIA"",133.8,0,11)"
^XMB(3.9,143,2,316,0)=""
^XMB(3.9,143,2,317,0)="""FIA"",133.8,0,""RLRO"")"
^XMB(3.9,143,2,318,0)=""
^XMB(3.9,143,2,319,0)="""FIA"",133.8,0,""VR"")"
^XMB(3.9,143,2,320,0)="3.0^SR"
^XMB(3.9,143,2,321,0)="""FIA"",133.8,133.8)"
^XMB(3.9,143,2,322,0)="1"
^XMB(3.9,143,2,323,0)="""FIA"",133.8,133.801)"
^XMB(3.9,143,2,324,0)="1"
^XMB(3.9,143,2,325,0)="""FIA"",133.8,133.801,24)"
^XMB(3.9,143,2,326,0)=""
^XMB(3.9,143,2,327,0)="""FIA"",136)"
^XMB(3.9,143,2,328,0)="SURGERY PROCEDURE/DIAGNOSIS CODES"
^XMB(3.9,143,2,329,0)="""FIA"",136,0)"
^XMB(3.9,143,2,330,0)="^SRO(136,"
^XMB(3.9,143,2,331,0)="""FIA"",136,0,0)"
^XMB(3.9,143,2,332,0)="136P"
^XMB(3.9,143,2,333,0)="""FIA"",136,0,1)"
^XMB(3.9,143,2,334,0)="y^n^p^^^^n^^n"
^XMB(3.9,143,2,335,0)="""FIA"",136,0,10)"
^XMB(3.9,143,2,336,0)=""
^XMB(3.9,143,2,337,0)="""FIA"",136,0,11)"
^XMB(3.9,143,2,338,0)=""
^XMB(3.9,143,2,339,0)="""FIA"",136,0,""RLRO"")"
^XMB(3.9,143,2,340,0)=""
^XMB(3.9,143,2,341,0)="""FIA"",136,0,""VR"")"
^XMB(3.9,143,2,342,0)="3.0^SR"
^XMB(3.9,143,2,343,0)="""FIA"",136,136)"
^XMB(3.9,143,2,344,0)="1"
^XMB(3.9,143,2,345,0)="""FIA"",136,136,.11)"
^XMB(3.9,143,2,346,0)=""
^XMB(3.9,143,2,347,0)="""FIA"",136,136,4)"
^XMB(3.9,143,2,348,0)=""
^XMB(3.9,143,2,349,0)="""FIA"",136,136.04)"
^XMB(3.9,143,2,350,0)="1"
^XMB(3.9,143,2,351,0)="""FIA"",136,136.04,.01)"
^XMB(3.9,143,2,352,0)=""
^XMB(3.9,143,2,353,0)="""FIA"",136,136.04,.09)"
^XMB(3.9,143,2,354,0)=""
^XMB(3.9,143,2,355,0)="""KRN"",19,7296,-1)"
^XMB(3.9,143,2,356,0)="2^1"
^XMB(3.9,143,2,357,0)="""KRN"",19,7296,0)"
^XMB(3.9,143,2,358,0)="SROA RISK ASSESSMENT^Surgery Risk Assessment Menu^^M^517^SR RISK ASSESSMENT^^^^^^167^y^1^1^^1"
^XMB(3.9,143,2,359,0)="""KRN"",19,7296,10,0)"
^XMB(3.9,143,2,360,0)="^19.01IP^14^14"
^XMB(3.9,143,2,361,0)="""KRN"",19,7296,10,14,0)"
^XMB(3.9,143,2,362,0)="13003^CODE^13"
^XMB(3.9,143,2,363,0)="""KRN"",19,7296,10,14,""^"")"
^XMB(3.9,143,2,364,0)="SROA CODE ISSUE"
^XMB(3.9,143,2,365,0)="""KRN"",19,7296,""U"")"
^XMB(3.9,143,2,366,0)="SURGERY RISK ASSESSMENT MENU"
^XMB(3.9,143,2,367,0)="""KRN"",19,13003,-1)"
^XMB(3.9,143,2,368,0)="0^2"
^XMB(3.9,143,2,369,0)="""KRN"",19,13003,0)"
^XMB(3.9,143,2,370,0)="SROA CODE ISSUE^Alert Coder Regarding Coding Issues^^R^^^^^^^^^^1^1"
^XMB(3.9,143,2,371,0)="""KRN"",19,13003,1,0)"
^XMB(3.9,143,2,372,0)="^19.06^4^4^3060404^^"
^XMB(3.9,143,2,373,0)="""KRN"",19,13003,1,1,0)"
^XMB(3.9,143,2,374,0)="This option is used to provide the Risk Assessment Nurse Reviewers an"
^XMB(3.9,143,2,375,0)="""KRN"",19,13003,1,2,0)"
^XMB(3.9,143,2,376,0)="electronic method to notify coders of potential coding issues or concerns."
^XMB(3.9,143,2,377,0)="""KRN"",19,13003,1,3,0)"
^XMB(3.9,143,2,378,0)="The message sent will include the basic Surgery case information and"
^XMB(3.9,143,2,379,0)="""KRN"",19,13003,1,4,0)"
^XMB(3.9,143,2,380,0)="comments specifically added by the Nurse Reviewer."
^XMB(3.9,143,2,381,0)="""KRN"",19,13003,15)"
^XMB(3.9,143,2,382,0)="D EXIT^SROVAR"
^XMB(3.9,143,2,383,0)="""KRN"",19,13003,20)"
^XMB(3.9,143,2,384,0)="D ^SROVAR"
^XMB(3.9,143,2,385,0)="""KRN"",19,13003,22)"
^XMB(3.9,143,2,386,0)="Q"
^XMB(3.9,143,2,387,0)="""KRN"",19,13003,25)"
^XMB(3.9,143,2,388,0)="SROACOD"
^XMB(3.9,143,2,389,0)="""KRN"",19,13003,""U"")"
^XMB(3.9,143,2,390,0)="ALERT CODER REGARDING CODING I"
^XMB(3.9,143,2,391,0)="""MBREQ"")"
^XMB(3.9,143,2,392,0)="0"
^XMB(3.9,143,2,393,0)="""ORD"",18,19)"
^XMB(3.9,143,2,394,0)="19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA"
^XMB(3.9,143,2,395,0)="""ORD"",18,19,0)"
^XMB(3.9,143,2,396,0)="OPTION"
^XMB(3.9,143,2,397,0)="""PKG"",167,-1)"
^XMB(3.9,143,2,398,0)="1^1"
^XMB(3.9,143,2,399,0)="""PKG"",167,0)"
^XMB(3.9,143,2,400,0)="SURGERY^SR^SURGICAL DATA COLLECTION AND OPERATIONS SCHEDULING"
^XMB(3.9,143,2,401,0)="""PKG"",167,20,0)"
^XMB(3.9,143,2,402,0)="^9.402P^^"
^XMB(3.9,143,2,403,0)="""PKG"",167,22,0)"
^XMB(3.9,143,2,404,0)="^9.49I^1^1"
^XMB(3.9,143,2,405,0)="""PKG"",167,22,1,0)"
^XMB(3.9,143,2,406,0)="3.0^2930624^2930811"
^XMB(3.9,143,2,407,0)="""PKG"",167,22,1,""PAH"",1,0)"
^XMB(3.9,143,2,408,0)="152^3060418^517"
^XMB(3.9,143,2,409,0)="""PKG"",167,22,1,""PAH"",1,1,0)"
^XMB(3.9,143,2,410,0)="^^19^19^3060418"
^XMB(3.9,143,2,411,0)="""PKG"",167,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,143,2,412,0)="Project 112/SHAD (Shipboard Hazard and Defense) is a new environmental "
^XMB(3.9,143,2,413,0)="""PKG"",167,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,143,2,414,0)="indicator added to VistA as part of the Enrollment System Redesign (ESR) "
^XMB(3.9,143,2,415,0)="""PKG"",167,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,143,2,416,0)="project."
^XMB(3.9,143,2,417,0)="""PKG"",167,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,143,2,418,0)=" "
^XMB(3.9,143,2,419,0)="""PKG"",167,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,143,2,420,0)="1. This patch provides the ability to enter and edit Project 112/SHAD"
^XMB(3.9,143,2,421,0)="""PKG"",167,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,143,2,422,0)="   Environmental Indicator information in the Surgery package. The "
^XMB(3.9,143,2,423,0)="""PKG"",167,22,1,""PAH"",1,1,7,0)"
^XMB(3.9,143,2,424,0)="   patient's Project 112/SHAD enrollment status is displayed when creating"
^XMB(3.9,143,2,425,0)="""PKG"",167,22,1,""PAH"",1,1,8,0)"
^XMB(3.9,143,2,426,0)="   or editing a surgical case, and the user will be prompted to answer the"
^XMB(3.9,143,2,427,0)="""PKG"",167,22,1,""PAH"",1,1,9,0)"
^XMB(3.9,143,2,428,0)="   Project 112/SHAD questions with ""yes"" or ""no""."
^XMB(3.9,143,2,429,0)="""PKG"",167,22,1,""PAH"",1,1,10,0)"
^XMB(3.9,143,2,430,0)=" "
^XMB(3.9,143,2,431,0)="""PKG"",167,22,1,""PAH"",1,1,11,0)"
^XMB(3.9,143,2,432,0)="   The Project 112/SHAD information will be forwarded to Patient Care "
^XMB(3.9,143,2,433,0)="""PKG"",167,22,1,""PAH"",1,1,12,0)"
^XMB(3.9,143,2,434,0)="   Encounter (PCE) as part of the normal case coding activities."
^XMB(3.9,143,2,435,0)="""PKG"",167,22,1,""PAH"",1,1,13,0)"
^XMB(3.9,143,2,436,0)=" "
^XMB(3.9,143,2,437,0)="""PKG"",167,22,1,""PAH"",1,1,14,0)"
^XMB(3.9,143,2,438,0)="2. This patch will prevent the PRIN PRE-OP ICD DIAGNOSIS CODE field"
^XMB(3.9,143,2,439,0)="""PKG"",167,22,1,""PAH"",1,1,15,0)"
^XMB(3.9,143,2,440,0)="   (#32.5) of the SURGERY file (#130) from being sent to PCE."
^XMB(3.9,143,2,441,0)="""PKG"",167,22,1,""PAH"",1,1,16,0)"
^XMB(3.9,143,2,442,0)="   "
^XMB(3.9,143,2,443,0)="""PKG"",167,22,1,""PAH"",1,1,17,0)"
^XMB(3.9,143,2,444,0)="3. This patch adds the Alert Coder Regarding Coding Issues [SROA CODE "
^XMB(3.9,143,2,445,0)="""PKG"",167,22,1,""PAH"",1,1,18,0)"
^XMB(3.9,143,2,446,0)="   ISSUE] option to the Surgery Risk Assessment Menu [SROA RISK "
^XMB(3.9,143,2,447,0)="""PKG"",167,22,1,""PAH"",1,1,19,0)"
^XMB(3.9,143,2,448,0)="   ASSESSMENT] option."
^XMB(3.9,143,2,449,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,143,2,450,0)="Y"
^XMB(3.9,143,2,451,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,143,2,452,0)="^D REP^XPDH"
^XMB(3.9,143,2,453,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,143,2,454,0)="Shall I write over your |FLAG| File"
^XMB(3.9,143,2,455,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,143,2,456,0)="YES"
^XMB(3.9,143,2,457,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,143,2,458,0)="D XPF1^XPDIQ"
^XMB(3.9,143,2,459,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,143,2,460,0)="Y"
^XMB(3.9,143,2,461,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,143,2,462,0)="^D DTA^XPDH"
^XMB(3.9,143,2,463,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,143,2,464,0)="Want my data |FLAG| yours"
^XMB(3.9,143,2,465,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,143,2,466,0)="YES"
^XMB(3.9,143,2,467,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,143,2,468,0)="D XPF2^XPDIQ"
^XMB(3.9,143,2,469,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,143,2,470,0)="YO"
^XMB(3.9,143,2,471,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,143,2,472,0)="^D INHIBIT^XPDH"
^XMB(3.9,143,2,473,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,143,2,474,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,143,2,475,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,143,2,476,0)="YES"
^XMB(3.9,143,2,477,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,143,2,478,0)="D XPI1^XPDIQ"
^XMB(3.9,143,2,479,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,143,2,480,0)="PO^VA(200,:EM"
^XMB(3.9,143,2,481,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,143,2,482,0)="^D MG^XPDH"
^XMB(3.9,143,2,483,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,143,2,484,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,143,2,485,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,143,2,486,0)=""
^XMB(3.9,143,2,487,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,143,2,488,0)="D XPM1^XPDIQ"
^XMB(3.9,143,2,489,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,143,2,490,0)="Y"
^XMB(3.9,143,2,491,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,143,2,492,0)="^D MENU^XPDH"
^XMB(3.9,143,2,493,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,143,2,494,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,143,2,495,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,143,2,496,0)="YES"
^XMB(3.9,143,2,497,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,143,2,498,0)="D XPO1^XPDIQ"
^XMB(3.9,143,2,499,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,143,2,500,0)="Y"
^XMB(3.9,143,2,501,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,143,2,502,0)="^D OPT^XPDH"
^XMB(3.9,143,2,503,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,143,2,504,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,143,2,505,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,143,2,506,0)="YES"
^XMB(3.9,143,2,507,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,143,2,508,0)="D XPZ1^XPDIQ"
^XMB(3.9,143,2,509,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,143,2,510,0)="Y"
^XMB(3.9,143,2,511,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,143,2,512,0)="^D RTN^XPDH"
^XMB(3.9,143,2,513,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,143,2,514,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,143,2,515,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,143,2,516,0)="NO"
^XMB(3.9,143,2,517,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,143,2,518,0)="D XPZ2^XPDIQ"
^XMB(3.9,143,2,519,0)="""RTN"")"
^XMB(3.9,143,2,520,0)="9"
^XMB(3.9,143,2,521,0)="""RTN"",""SROACOD"")"
^XMB(3.9,143,2,522,0)="0^8^B16578804^B17209875"
^XMB(3.9,143,2,523,0)="""RTN"",""SROACOD"",1,0)"
^XMB(3.9,143,2,524,0)="SROACOD ;BIR/SJA - ALERT CODERS OF POTENTIAL CODING ISSUES ;04/18/06"
^XMB(3.9,143,2,525,0)="""RTN"",""SROACOD"",2,0)"
^XMB(3.9,143,2,526,0)=" ;;3.0; Surgery ;**146,152**;24 Jun 93"
^XMB(3.9,143,2,527,0)="""RTN"",""SROACOD"",3,0)"
^XMB(3.9,143,2,528,0)=" I '$D(SRTN) K SRNEWOP D ^SROPS G:'$D(SRTN) END S SRTN(""KILL"")=1"
^XMB(3.9,143,2,529,0)="""RTN"",""SROACOD"",4,0)"
^XMB(3.9,143,2,530,0)=" N I,J,SRCPTP,SRLN,SRNODE0,SRPOST,SRTXT,SRSOUT,SRSUPCPT,X,XX,Y"
^XMB(3.9,143,2,531,0)="""RTN"",""SROACOD"",5,0)"
^XMB(3.9,143,2,532,0)=" S SRSOUT=0,SRSUPCPT=1 D ^SROAUTL"
^XMB(3.9,143,2,533,0)="""RTN"",""SROACOD"",6,0)"
^XMB(3.9,143,2,534,0)="START G:SRSOUT END K SRAOTH"
^XMB(3.9,143,2,535,0)="""RTN"",""SROACOD"",7,0)"
^XMB(3.9,143,2,536,0)=" D HDR^SROAUTL"
^XMB(3.9,143,2,537,0)="""RTN"",""SROACOD"",8,0)"
^XMB(3.9,143,2,538,0)=" W !,""The following """"final"""" codes have been entered for the case."",!!"
^XMB(3.9,143,2,539,0)="""RTN"",""SROACOD"",9,0)"
^XMB(3.9,143,2,540,0)=" S X=$P($G(^SRO(136,SRTN,0)),""^"",2) I X S Y=$P($$CPT^ICPTCOD(X),""^"",2) D SSPRIN^SROCPT0 S X=Y"
^XMB(3.9,143,2,541,0)="""RTN"",""SROACOD"",10,0)"
^XMB(3.9,143,2,542,0)=" W ""Principal CPT Code: "",$S($L(X):X,1:""NOT ENTERED"") S SRCPTP=X"
^XMB(3.9,143,2,543,0)="""RTN"",""SROACOD"",11,0)"
^XMB(3.9,143,2,544,0)=" N SRPROC,K,SRL"
^XMB(3.9,143,2,545,0)="""RTN"",""SROACOD"",12,0)"
^XMB(3.9,143,2,546,0)=" S SRPROC(1)="""",SRL=60,K=1 D OTH^SROUTLN W !,""Other CPT Codes: ""_$S(SRPROC(1)="""":""   NOT ENTERED"",1:"""")"
^XMB(3.9,143,2,547,0)="""RTN"",""SROACOD"",13,0)"
^XMB(3.9,143,2,548,0)=" F I=1:1 Q:'$D(SRPROC(I))  W:I=1 ?20,$P(SRPROC(I),"", "",2,99),! W:I'=1 ?20,SRPROC(I),!"
^XMB(3.9,143,2,549,0)="""RTN"",""SROACOD"",14,0)"
^XMB(3.9,143,2,550,0)=" S X=$P($G(^SRO(136,SRTN,0)),""^"",3) S:X X=$$ICDDX^ICDCODE(X,$P($G(^SRF(SRTN,0)),""^"",9)),X=$P(X,""^"",2)_""   ""_$P(X,""^"",4)"
^XMB(3.9,143,2,551,0)="""RTN"",""SROACOD"",15,0)"
^XMB(3.9,143,2,552,0)=" W ""Postop Diagnosis Code (ICD9): "",$S(X'="""":X,1:""NOT ENTERED""),! S SRPOST=X"
^XMB(3.9,143,2,553,0)="""RTN"",""SROACOD"",16,0)"
^XMB(3.9,143,2,554,0)=" W !!,""If you believe that the information coded is not correct and would like to"",!,""alert the coders of the potential issue, enter a brief description of your"",!,""concern below."",!"
^XMB(3.9,143,2,555,0)="""RTN"",""SROACOD"",17,0)"
^XMB(3.9,143,2,556,0)=" D ASK G:SRSOUT END"
^XMB(3.9,143,2,557,0)="""RTN"",""SROACOD"",18,0)"
^XMB(3.9,143,2,558,0)=" K ^TMP($J,""SRC"")"
^XMB(3.9,143,2,559,0)="""RTN"",""SROACOD"",19,0)"
^XMB(3.9,143,2,560,0)="ED W ! S DIC=""^TMP($J,""""SRC"""","",DIWESUB=""Coding Discrepancy Comments"" D EN^DIWE"
^XMB(3.9,143,2,561,0)="""RTN"",""SROACOD"",20,0)"
^XMB(3.9,143,2,562,0)=" I '$D(^TMP($J,""SRC"")) W !,""NOTE:   You have exited the field without entering comments. "",!"
^XMB(3.9,143,2,563,0)="""RTN"",""SROACOD"",21,0)"
^XMB(3.9,143,2,564,0)=" W ! K DIR S DIR(""A"",1)=""1. Transmit Message"",DIR(""A"",2)=""2. Edit Text"",DIR(""A"",3)="""",DIR(""A"")=""Select Number: """
^XMB(3.9,143,2,565,0)="""RTN"",""SROACOD"",22,0)"
^XMB(3.9,143,2,566,0)=" S DIR(0)=""NA^1:2"",DIR(""B"")=1,DIR(""?"",1)=""Enter <RET> or '1' to Transmit Message,"""
^XMB(3.9,143,2,567,0)="""RTN"",""SROACOD"",23,0)"
^XMB(3.9,143,2,568,0)=" S DIR(""?"")=""enter '2' to Edit the text or enter '^' to exit."" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) G END"
^XMB(3.9,143,2,569,0)="""RTN"",""SROACOD"",24,0)"
^XMB(3.9,143,2,570,0)=" I Y=2 G ED"
^XMB(3.9,143,2,571,0)="""RTN"",""SROACOD"",25,0)"
^XMB(3.9,143,2,572,0)="MSG I '$P($G(^SRO(136,SRTN,10)),""^"")&('$P($G(^SRO(133,SRSITE,7)),""^"",2)) D ERR G END"
^XMB(3.9,143,2,573,0)="""RTN"",""SROACOD"",26,0)"
^XMB(3.9,143,2,574,0)=" K SR,XMY S SRNODE0=$G(^SRF(SRTN,0))"
^XMB(3.9,143,2,575,0)="""RTN"",""SROACOD"",27,0)"
^XMB(3.9,143,2,576,0)=" S SR(1)=""Patient: ""_$E(VADM(1),1,20)_$J("""",30-$L(VADM(1)))_"" Case #: ""_SRTN"
^XMB(3.9,143,2,577,0)="""RTN"",""SROACOD"",28,0)"
^XMB(3.9,143,2,578,0)=" S Y=$P(SRNODE0,""^"",9) D DD^%DT S SR(2)=""Operation Date: ""_Y"
^XMB(3.9,143,2,579,0)="""RTN"",""SROACOD"",29,0)"
^XMB(3.9,143,2,580,0)=" S SR(3)="""""
^XMB(3.9,143,2,581,0)="""RTN"",""SROACOD"",30,0)"
^XMB(3.9,143,2,582,0)=" S SR(4)=""The following """"final"""" codes have been entered for the case."""
^XMB(3.9,143,2,583,0)="""RTN"",""SROACOD"",31,0)"
^XMB(3.9,143,2,584,0)=" S DFN=$P(SRNODE0,""^"") D DEM^VADPT"
^XMB(3.9,143,2,585,0)="""RTN"",""SROACOD"",32,0)"
^XMB(3.9,143,2,586,0)=" S SR(5)="""""
^XMB(3.9,143,2,587,0)="""RTN"",""SROACOD"",33,0)"
^XMB(3.9,143,2,588,0)=" S SR(6)=""  Principal CPT Code: ""_SRCPTP"
^XMB(3.9,143,2,589,0)="""RTN"",""SROACOD"",34,0)"
^XMB(3.9,143,2,590,0)=" S SRLN=6 F I=1:1 Q:'$D(SRPROC(I))  S SRLN=SRLN+1 S:I=1 SR(SRLN)=""  Other CPT Codes: ""_$P(SRPROC(I),"", "",2,99) S:I>1 SR(SRLN)=$J(SRPROC(I),$L(SRPROC(I))+19)"
^XMB(3.9,143,2,591,0)="""RTN"",""SROACOD"",35,0)"
^XMB(3.9,143,2,592,0)=" S SRLN=SRLN+1,SR(SRLN)=""  Postop Diagnosis Code (ICD9): ""_SRPOST"
^XMB(3.9,143,2,593,0)="""RTN"",""SROACOD"",36,0)"
^XMB(3.9,143,2,594,0)=" S SRLN=SRLN+1,SR(SRLN)="""",SRLN=SRLN+1"
^XMB(3.9,143,2,595,0)="""RTN"",""SROACOD"",37,0)"
^XMB(3.9,143,2,596,0)=" S I=0 F  S I=$O(^TMP($J,""SRC"",I)) Q:'I  S SR(SRLN)=$G(^(I,0)),SRLN=SRLN+1"
^XMB(3.9,143,2,597,0)="""RTN"",""SROACOD"",38,0)"
^XMB(3.9,143,2,598,0)=" S I=0 F  S I=$O(^SRO(136,SRTN,11,I)) Q:'I  S XX=$G(^(I,0)) I $P(XX,""^"") S XMY($P(XX,""^""))="""""
^XMB(3.9,143,2,599,0)="""RTN"",""SROACOD"",39,0)"
^XMB(3.9,143,2,600,0)=" S XMY(DUZ)="""""
^XMB(3.9,143,2,601,0)="""RTN"",""SROACOD"",40,0)"
^XMB(3.9,143,2,602,0)=" S X=$P($G(^SRO(133,SRSITE,7)),""^"",2) I X S X=$$GET1^DIQ(3.8,X,.01) S:X]"""" XMY(""G.""_X)="""""
^XMB(3.9,143,2,603,0)="""RTN"",""SROACOD"",41,0)"
^XMB(3.9,143,2,604,0)=" S XMSUB=""Surgery Coding Issues"" D NOW^%DTC S Y=% X ^DD(""DD"")"
^XMB(3.9,143,2,605,0)="""RTN"",""SROACOD"",42,0)"
^XMB(3.9,143,2,606,0)=" S XMTEXT=""SR("" D ^XMD K XMTEXT,XMY,XMSUB,^TMP($J,""SRC"")"
^XMB(3.9,143,2,607,0)="""RTN"",""SROACOD"",43,0)"
^XMB(3.9,143,2,608,0)=" W !!,""Transmitting message..."""
^XMB(3.9,143,2,609,0)="""RTN"",""SROACOD"",44,0)"
^XMB(3.9,143,2,610,0)="END W @IOF D ^SRSKILL I $D(SRTN(""KILL"")) K SRTN"
^XMB(3.9,143,2,611,0)="""RTN"",""SROACOD"",45,0)"
^XMB(3.9,143,2,612,0)=" Q"
^XMB(3.9,143,2,613,0)="""RTN"",""SROACOD"",46,0)"
^XMB(3.9,143,2,614,0)="ASK K DIR S DIR(0)=""Y"",DIR(""A"")=""Do you want to alert the coders (Y/N)"",DIR(""B"")=""YES"" D ^DIR S:'Y SRSOUT=1"
^XMB(3.9,143,2,615,0)="""RTN"",""SROACOD"",47,0)"
^XMB(3.9,143,2,616,0)=" Q"
^XMB(3.9,143,2,617,0)="""RTN"",""SROACOD"",48,0)"
^XMB(3.9,143,2,618,0)="ERR ;The Coding Issue Alert cannot be created at this time"
^XMB(3.9,143,2,619,0)="""RTN"",""SROACOD"",49,0)"
^XMB(3.9,143,2,620,0)=" D EN^DDIOL(""The information needed to send a code issue mail message is"",,""!!"")"
^XMB(3.9,143,2,621,0)="""RTN"",""SROACOD"",50,0)"
^XMB(3.9,143,2,622,0)=" D EN^DDIOL(""not entered.  Because the coding is not completed, no coder"",,""!"")"
^XMB(3.9,143,2,623,0)="""RTN"",""SROACOD"",51,0)"
^XMB(3.9,143,2,624,0)=" D EN^DDIOL(""is identified. Also, there is no mail group identified in the"",,""!"")"
^XMB(3.9,143,2,625,0)="""RTN"",""SROACOD"",52,0)"
^XMB(3.9,143,2,626,0)=" D EN^DDIOL(""CODE ISSUE MAIL GROUP site parameter."",,""!"")"
^XMB(3.9,143,2,627,0)="""RTN"",""SROACOD"",53,0)"
^XMB(3.9,143,2,628,0)=" D EN^DDIOL(""To send a coding issue message the case must have either the"",,""!!"")"
^XMB(3.9,143,2,629,0)="""RTN"",""SROACOD"",54,0)"
^XMB(3.9,143,2,630,0)=" D EN^DDIOL(""coder or mail group identified."",,""!"")"
^XMB(3.9,143,2,631,0)="""RTN"",""SROACOD"",55,0)"
^XMB(3.9,143,2,632,0)=" W ! K DIR S DIR(0)=""FOA"",DIR(""A"")=""Press RETURN to continue  "" D ^DIR K DIR"
^XMB(3.9,143,2,633,0)="""RTN"",""SROACOD"",56,0)"
^XMB(3.9,143,2,634,0)=" Q"
^XMB(3.9,143,2,635,0)="""RTN"",""SROANEST"")"
^XMB(3.9,143,2,636,0)="0^9^B54722958^B53321835"
^XMB(3.9,143,2,637,0)="""RTN"",""SROANEST"",1,0)"
^XMB(3.9,143,2,638,0)="SROANEST ;BIR/TJH - ANESTHESIA ENTRY ;01 Jun 2003"
^XMB(3.9,143,2,639,0)="""RTN"",""SROANEST"",2,0)"
^XMB(3.9,143,2,640,0)=" ;;3.0;Surgery;**119,150,152**;24 Jun 93"
^XMB(3.9,143,2,641,0)="""RTN"",""SROANEST"",3,0)"
^XMB(3.9,143,2,642,0)="SINPUT ;"
^XMB(3.9,143,2,643,0)="""RTN"",""SROANEST"",4,0)"
^XMB(3.9,143,2,644,0)=" N SRSTART"
^XMB(3.9,143,2,645,0)="""RTN"",""SROANEST"",5,0)"
^XMB(3.9,143,2,646,0)=" S Z=$E($P(^SRF($S($D(SRTN):SRTN,1:DA(1)),0),""^"",9),1,7),X=$S(X?1.4N.A!(X?1.2N1"":""2N.A):Z_""@""_X,1:X) K %DT,Z S %DT=""RTX"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,143,2,647,0)="""RTN"",""SROANEST"",6,0)"
^XMB(3.9,143,2,648,0)=" I '$D(X),$G(SRFLAG)=1 D  K SRFLAG Q"
^XMB(3.9,143,2,649,0)="""RTN"",""SROANEST"",7,0)"
^XMB(3.9,143,2,650,0)=" .W !!,""Check date format."",!,""     Examples of Valid Dates:"",!,""       JAN 20 1957 or 20 JAN 57 or 1/20/57 or 012057"",!,""       T   (for TODAY),  T+1 (for TOMORROW),  T+2,  T+7,  etc."""
^XMB(3.9,143,2,651,0)="""RTN"",""SROANEST"",8,0)"
^XMB(3.9,143,2,652,0)=" .W !,""       T-1 (for YESTERDAY),  T-3W (for 3 WEEKS AGO), etc."",!,""     If the year is omitted, the computer uses CURRENT YEAR.  Two digit year"""
^XMB(3.9,143,2,653,0)="""RTN"",""SROANEST"",9,0)"
^XMB(3.9,143,2,654,0)=" .W !,""       assumes no more than 20 years in the future, or 80 years in the past."",!,""     If only the time is entered, the current date is assumed."""
^XMB(3.9,143,2,655,0)="""RTN"",""SROANEST"",10,0)"
^XMB(3.9,143,2,656,0)=" .W !,""     Follow the date with a time, such as JAN 20@10, T@10AM, 10:30, etc."",!,""     You may enter a time, such as NOON, MIDNIGHT or NOW."""
^XMB(3.9,143,2,657,0)="""RTN"",""SROANEST"",11,0)"
^XMB(3.9,143,2,658,0)=" .W !,""     You may enter   NOW+3'  (for current date and time Plus 3 minutes"",!,""       *Note--the Apostrophe following the number of minutes)"""
^XMB(3.9,143,2,659,0)="""RTN"",""SROANEST"",12,0)"
^XMB(3.9,143,2,660,0)=" .W !,""     Time is REQUIRED in this response."",!,""     Enter the time a member of the Anesthesia staff begins preparing the"",!,""     patient for surgery in the O.R. suite or if the care is interrupted, the"""
^XMB(3.9,143,2,661,0)="""RTN"",""SROANEST"",13,0)"
^XMB(3.9,143,2,662,0)=" .W !,""     time the care resumes."""
^XMB(3.9,143,2,663,0)="""RTN"",""SROANEST"",14,0)"
^XMB(3.9,143,2,664,0)=" Q:'$D(X)"
^XMB(3.9,143,2,665,0)="""RTN"",""SROANEST"",15,0)"
^XMB(3.9,143,2,666,0)=" S SRSTART=$P($G(^SRF($S($D(SRTN):SRTN,1:DA(1)),.2)),""^"",15)"
^XMB(3.9,143,2,667,0)="""RTN"",""SROANEST"",16,0)"
^XMB(3.9,143,2,668,0)=" I SRSTART="""" K SRFLAG Q"
^XMB(3.9,143,2,669,0)="""RTN"",""SROANEST"",17,0)"
^XMB(3.9,143,2,670,0)=" I X<SRSTART W !!,""The time entered is before the 'TIME PAT IN HOLD AREA'.  Please check the"",!,""DATE/TIME entered for this field."" H 2"
^XMB(3.9,143,2,671,0)="""RTN"",""SROANEST"",18,0)"
^XMB(3.9,143,2,672,0)=" K SRFLAG"
^XMB(3.9,143,2,673,0)="""RTN"",""SROANEST"",19,0)"
^XMB(3.9,143,2,674,0)=" Q"
^XMB(3.9,143,2,675,0)="""RTN"",""SROANEST"",20,0)"
^XMB(3.9,143,2,676,0)="STIME ;"
^XMB(3.9,143,2,677,0)="""RTN"",""SROANEST"",21,0)"
^XMB(3.9,143,2,678,0)=" I '$D(X) Q"
^XMB(3.9,143,2,679,0)="""RTN"",""SROANEST"",22,0)"
^XMB(3.9,143,2,680,0)=" N SRSPREC,SRPET,SRTIME,SRCRET"
^XMB(3.9,143,2,681,0)="""RTN"",""SROANEST"",23,0)"
^XMB(3.9,143,2,682,0)=" S SRCRET=$$GET1^DIQ(130.213,DA(2)_"",""_DA(1)_"","",1,""I"")"
^XMB(3.9,143,2,683,0)="""RTN"",""SROANEST"",24,0)"
^XMB(3.9,143,2,684,0)=" I SRCRET,(X>SRCRET) W !!,""Start time is after current end time. Please correct."" K X Q"
^XMB(3.9,143,2,685,0)="""RTN"",""SROANEST"",25,0)"
^XMB(3.9,143,2,686,0)=" S SRSPREC=$O(^SRF(DA(1),50,DA(2)),-1)"
^XMB(3.9,143,2,687,0)="""RTN"",""SROANEST"",26,0)"
^XMB(3.9,143,2,688,0)=" I SRSPREC'=0 D"
^XMB(3.9,143,2,689,0)="""RTN"",""SROANEST"",27,0)"
^XMB(3.9,143,2,690,0)=" .S SRPET=$$GET1^DIQ(130.213,SRSPREC_"",""_DA(1)_"","",1,""I"")"
^XMB(3.9,143,2,691,0)="""RTN"",""SROANEST"",28,0)"
^XMB(3.9,143,2,692,0)=" .I SRPET="""" W !!,""New start time entry not permitted until previous end time is entered."" K X Q"
^XMB(3.9,143,2,693,0)="""RTN"",""SROANEST"",29,0)"
^XMB(3.9,143,2,694,0)=" .I SRPET>X W !!,""Start time is prior to previous end time. Please correct."" K X"
^XMB(3.9,143,2,695,0)="""RTN"",""SROANEST"",30,0)"
^XMB(3.9,143,2,696,0)=" I $D(X),(DA(2)=1) S SRTIME(130,DA(1)_"","",.21)=X D FILE^DIE("""",""SRTIME"",""^TMP(""""SR"""",$J)"")"
^XMB(3.9,143,2,697,0)="""RTN"",""SROANEST"",31,0)"
^XMB(3.9,143,2,698,0)=" Q"
^XMB(3.9,143,2,699,0)="""RTN"",""SROANEST"",32,0)"
^XMB(3.9,143,2,700,0)="FINALT  ;"
^XMB(3.9,143,2,701,0)="""RTN"",""SROANEST"",33,0)"
^XMB(3.9,143,2,702,0)=" N SRCST,SRLET,SRYN,SRSNREC,SRFDA,SRTIME,SRLREC,SRCON"
^XMB(3.9,143,2,703,0)="""RTN"",""SROANEST"",34,0)"
^XMB(3.9,143,2,704,0)=" I $D(^SRF(DA(1),""CON"")),$P(^(""CON""),""^"") S SRCON=$P(^SRF(DA(1),""CON""),""^"")"
^XMB(3.9,143,2,705,0)="""RTN"",""SROANEST"",35,0)"
^XMB(3.9,143,2,706,0)=" S SRCST=$$GET1^DIQ(130.213,DA(2)_"",""_DA(1)_"","",.01,""I"")"
^XMB(3.9,143,2,707,0)="""RTN"",""SROANEST"",36,0)"
^XMB(3.9,143,2,708,0)=" I X<SRCST W !!,""End time prior to start time.  Please correct."" K X Q"
^XMB(3.9,143,2,709,0)="""RTN"",""SROANEST"",37,0)"
^XMB(3.9,143,2,710,0)=" S SRSNREC=$O(^SRF(DA(1),50,DA(2)))"
^XMB(3.9,143,2,711,0)="""RTN"",""SROANEST"",38,0)"
^XMB(3.9,143,2,712,0)=" I SRSNREC'=""B"" Q"
^XMB(3.9,143,2,713,0)="""RTN"",""SROANEST"",39,0)"
^XMB(3.9,143,2,714,0)="ASK W !!,""Does this entry complete all start and end times for this case?  (Y/N)//  "" R SRYN:DTIME I '$T!(SRYN[""^"") S SRYN=""N"" Q"
^XMB(3.9,143,2,715,0)="""RTN"",""SROANEST"",40,0)"
^XMB(3.9,143,2,716,0)=" S SRYN=$E(SRYN) I ""YyNn?""'[SRYN W !,""Invalid response, please enter Yes or No. Use ? for help."" G ASK"
^XMB(3.9,143,2,717,0)="""RTN"",""SROANEST"",41,0)"
^XMB(3.9,143,2,718,0)=" I ""?""[SRYN D HELP G ASK"
^XMB(3.9,143,2,719,0)="""RTN"",""SROANEST"",42,0)"
^XMB(3.9,143,2,720,0)=" I (""Nn""[SRYN) S SRFDA(130,DA(1)_"","",.214)=""@"" D FILE^DIE("""",""SRFDA"",""^TMP(""""SR"""",$J)"") K SRFDA Q"
^XMB(3.9,143,2,721,0)="""RTN"",""SROANEST"",43,0)"
^XMB(3.9,143,2,722,0)=" D CHKTIME"
^XMB(3.9,143,2,723,0)="""RTN"",""SROANEST"",44,0)"
^XMB(3.9,143,2,724,0)=" I SRAFLAG=1 K SRAFLAG Q"
^XMB(3.9,143,2,725,0)="""RTN"",""SROANEST"",45,0)"
^XMB(3.9,143,2,726,0)=" S SRLREC=$O(^SRF(DA(1),50,""B""),-1)"
^XMB(3.9,143,2,727,0)="""RTN"",""SROANEST"",46,0)"
^XMB(3.9,143,2,728,0)=" I SRLREC'=DA(2) S SRLET=$$GET1^DIQ(130.213,SRLREC_"",""_DA(1)_"","",1,""I"")"
^XMB(3.9,143,2,729,0)="""RTN"",""SROANEST"",47,0)"
^XMB(3.9,143,2,730,0)=" I SRLREC=DA(2) S SRLET=X"
^XMB(3.9,143,2,731,0)="""RTN"",""SROANEST"",48,0)"
^XMB(3.9,143,2,732,0)=" S SRTIME(130,DA(1)_"","",.24)=SRLET,SRTIME(130,DA(1)_"","",.214)=""1"" D FILE^DIE("""",""SRTIME"",""^TMP(""""SR"""",$J)"")"
^XMB(3.9,143,2,733,0)="""RTN"",""SROANEST"",49,0)"
^XMB(3.9,143,2,734,0)=" K SRAFLAG"
^XMB(3.9,143,2,735,0)="""RTN"",""SROANEST"",50,0)"
^XMB(3.9,143,2,736,0)=" Q:'$D(SRCON)"
^XMB(3.9,143,2,737,0)="""RTN"",""SROANEST"",51,0)"
^XMB(3.9,143,2,738,0)="ASK2 ;"
^XMB(3.9,143,2,739,0)="""RTN"",""SROANEST"",52,0)"
^XMB(3.9,143,2,740,0)=" W !,""Does this entry complete all start and end times for the concurrent"",!,""case? (Y/N)//  "" R SRYN:DTIME I '$T!(SRYN[""^"") S SRYN=""N"" Q"
^XMB(3.9,143,2,741,0)="""RTN"",""SROANEST"",53,0)"
^XMB(3.9,143,2,742,0)=" I ""?""[SRYN D HELP^SROCON D HELP G ASK2"
^XMB(3.9,143,2,743,0)="""RTN"",""SROANEST"",54,0)"
^XMB(3.9,143,2,744,0)=" S SRYN=$E(SRYN) I ""YyNn""'[SRYN W !,""Invalid response, please enter Yes or No. Use ? for help."" G ASK2"
^XMB(3.9,143,2,745,0)="""RTN"",""SROANEST"",55,0)"
^XMB(3.9,143,2,746,0)=" I (""Nn""[SRYN),(($P(^SRF(SRCON,.2),""^"",17)=1)) S SRFDA(130,SRCON_"","",.214)=""@"" D FILE^DIE("""",""SRFDA"",""^TMP(""""SR"""",$J)"") K SRFDA Q"
^XMB(3.9,143,2,747,0)="""RTN"",""SROANEST"",56,0)"
^XMB(3.9,143,2,748,0)=" S SRTIME(130,SRCON_"","",.214)=""1"" D FILE^DIE("""",""SRTIME"",""^TMP(""""SR"""",$J)"")"
^XMB(3.9,143,2,749,0)="""RTN"",""SROANEST"",57,0)"
^XMB(3.9,143,2,750,0)=" Q"
^XMB(3.9,143,2,751,0)="""RTN"",""SROANEST"",58,0)"
^XMB(3.9,143,2,752,0)="CHKTIME ;  verify blocks of time are valid"
^XMB(3.9,143,2,753,0)="""RTN"",""SROANEST"",59,0)"
^XMB(3.9,143,2,754,0)=" N SRSREC,SRCST,SRCET,SRAFLAG1,SRSNREC,SRNST,SRLREC"
^XMB(3.9,143,2,755,0)="""RTN"",""SROANEST"",60,0)"
^XMB(3.9,143,2,756,0)=" S SRAFLAG=0,SRSREC=0,SRAFLAG1=0"
^XMB(3.9,143,2,757,0)="""RTN"",""SROANEST"",61,0)"
^XMB(3.9,143,2,758,0)=" F  S SRSREC=$O(^SRF(DA(1),50,SRSREC)) Q:'SRSREC!(SRAFLAG1=1)  D "
^XMB(3.9,143,2,759,0)="""RTN"",""SROANEST"",62,0)"
^XMB(3.9,143,2,760,0)=" .S SRCST=$$GET1^DIQ(130.213,SRSREC_"",""_DA(1)_"","",.01,""I""),SRCET=$$GET1^DIQ(130.213,SRSREC_"",""_DA(1)_"","",1,""I"")"
^XMB(3.9,143,2,761,0)="""RTN"",""SROANEST"",63,0)"
^XMB(3.9,143,2,762,0)=" .S SRLREC=$O(^SRF(DA(1),50,""B""),-1)"
^XMB(3.9,143,2,763,0)="""RTN"",""SROANEST"",64,0)"
^XMB(3.9,143,2,764,0)=" .I (SRCET=""""),(SRSREC'=SRLREC) W !!,""One or more time entries missing end time.  Please correct."" S SRAFLAG=1,SRAFLAG1=1 Q"
^XMB(3.9,143,2,765,0)="""RTN"",""SROANEST"",65,0)"
^XMB(3.9,143,2,766,0)=" .S SRSNREC=$O(^SRF(DA(1),50,SRSREC))"
^XMB(3.9,143,2,767,0)="""RTN"",""SROANEST"",66,0)"
^XMB(3.9,143,2,768,0)=" .I SRSNREC=""B"" S SRAFLAG1=1 Q"
^XMB(3.9,143,2,769,0)="""RTN"",""SROANEST"",67,0)"
^XMB(3.9,143,2,770,0)=" .S SRNST=$$GET1^DIQ(130.213,SRSNREC_"",""_DA(1)_"","",.01,""I"")"
^XMB(3.9,143,2,771,0)="""RTN"",""SROANEST"",68,0)"
^XMB(3.9,143,2,772,0)=" .I SRNST<SRCET W !!,""Some time entries overlap.  Please correct."" S SRAFLAG=1,SRAFLAG1=1 Q"
^XMB(3.9,143,2,773,0)="""RTN"",""SROANEST"",69,0)"
^XMB(3.9,143,2,774,0)=" Q"
^XMB(3.9,143,2,775,0)="""RTN"",""SROANEST"",70,0)"
^XMB(3.9,143,2,776,0)="CSET ;  caled by set xref of mult anes start and end times used for concurrent case anes field stuffing"
^XMB(3.9,143,2,777,0)="""RTN"",""SROANEST"",71,0)"
^XMB(3.9,143,2,778,0)=" N SRSREC,SRCST,SRCET,SRTIME"
^XMB(3.9,143,2,779,0)="""RTN"",""SROANEST"",72,0)"
^XMB(3.9,143,2,780,0)=" I $$GET1^DIQ(130,DA(1),.214,""I"")'=1 Q"
^XMB(3.9,143,2,781,0)="""RTN"",""SROANEST"",73,0)"
^XMB(3.9,143,2,782,0)=" S SRSREC=0"
^XMB(3.9,143,2,783,0)="""RTN"",""SROANEST"",74,0)"
^XMB(3.9,143,2,784,0)=" F  S SRSREC=$O(^SRF(DA(1),50,SRSREC)) Q:'SRSREC  D"
^XMB(3.9,143,2,785,0)="""RTN"",""SROANEST"",75,0)"
^XMB(3.9,143,2,786,0)=" .S:'$D(SRCST) SRCST=$$GET1^DIQ(130.213,SRSREC_"",""_DA(1)_"","",.01,""I"")"
^XMB(3.9,143,2,787,0)="""RTN"",""SROANEST"",76,0)"
^XMB(3.9,143,2,788,0)=" .S SRCET=$$GET1^DIQ(130.213,SRSREC_"",""_DA(1)_"","",1,""I"")"
^XMB(3.9,143,2,789,0)="""RTN"",""SROANEST"",77,0)"
^XMB(3.9,143,2,790,0)=" S SRTIME(130,DA(1)_"","",.24)=SRCET,SRTIME(130,DA(1)_"","",.21)=SRCST D FILE^DIE("""",""SRTIME"",""^TMP(""""SR"""",$J)"")"
^XMB(3.9,143,2,791,0)="""RTN"",""SROANEST"",78,0)"
^XMB(3.9,143,2,792,0)=" Q"
^XMB(3.9,143,2,793,0)="""RTN"",""SROANEST"",79,0)"
^XMB(3.9,143,2,794,0)="DEL ; called by kill xref of mult anes start and end times"
^XMB(3.9,143,2,795,0)="""RTN"",""SROANEST"",80,0)"
^XMB(3.9,143,2,796,0)=" I '$D(DA(2)) Q"
^XMB(3.9,143,2,797,0)="""RTN"",""SROANEST"",81,0)"
^XMB(3.9,143,2,798,0)=" I (DA(2)=1),(D=.01) S SRFDA(130,DA(1)_"","",.21)=""@"" D FILE^DIE("""",""SRFDA"",""^TMP(""""SR"""",$J)"") K SRFDA"
^XMB(3.9,143,2,799,0)="""RTN"",""SROANEST"",82,0)"
^XMB(3.9,143,2,800,0)=" I ($O(^SRF(DA(1),50,DA(2)))=""B""),(D=1) S SRFDA(130,DA(1)_"","",.24)=""@"",SRFDA(130,DA(1)_"","",.214)=""@"" D FILE^DIE("""",""SRFDA"",""^TMP(""""SR"""",$J)"") K SRFDA"
^XMB(3.9,143,2,801,0)="""RTN"",""SROANEST"",83,0)"
^XMB(3.9,143,2,802,0)=" Q"
^XMB(3.9,143,2,803,0)="""RTN"",""SROANEST"",84,0)"
^XMB(3.9,143,2,804,0)="HELP ;"
^XMB(3.9,143,2,805,0)="""RTN"",""SROANEST"",85,0)"
^XMB(3.9,143,2,806,0)=" W !,""Enter """"Y"""" only if the block of time entered is the final block of time for"""
^XMB(3.9,143,2,807,0)="""RTN"",""SROANEST"",86,0)"
^XMB(3.9,143,2,808,0)=" W !,""this case.  If the block of time is not the final block, enter """"N""""."""
^XMB(3.9,143,2,809,0)="""RTN"",""SROANEST"",87,0)"
^XMB(3.9,143,2,810,0)=" Q"
^XMB(3.9,143,2,811,0)="""RTN"",""SROANEST"",88,0)"
^XMB(3.9,143,2,812,0)="BILLTIME() ;  calculate total minutes for mult anes start and end times"
^XMB(3.9,143,2,813,0)="""RTN"",""SROANEST"",89,0)"
^XMB(3.9,143,2,814,0)=" N SRSREC,SRCST,SRCET,SRTTIME"
^XMB(3.9,143,2,815,0)="""RTN"",""SROANEST"",90,0)"
^XMB(3.9,143,2,816,0)=" S SRSREC=0,SRTTIME=0"
^XMB(3.9,143,2,817,0)="""RTN"",""SROANEST"",91,0)"
^XMB(3.9,143,2,818,0)=" I $$GET1^DIQ(130,D0,.214,""I"")'=1 Q SRTTIME"
^XMB(3.9,143,2,819,0)="""RTN"",""SROANEST"",92,0)"
^XMB(3.9,143,2,820,0)=" I '$D(^SRF(D0,50)) Q SRTTIME"
^XMB(3.9,143,2,821,0)="""RTN"",""SROANEST"",93,0)"
^XMB(3.9,143,2,822,0)=" F  S SRSREC=$O(^SRF(D0,50,SRSREC)) Q:'SRSREC  D"
^XMB(3.9,143,2,823,0)="""RTN"",""SROANEST"",94,0)"
^XMB(3.9,143,2,824,0)=" .S SRCST=$$GET1^DIQ(130.213,SRSREC_"",""_D0_"","",.01,""I""),SRCET=$$GET1^DIQ(130.213,SRSREC_"",""_D0_"","",1,""I"")"
^XMB(3.9,143,2,825,0)="""RTN"",""SROANEST"",95,0)"
^XMB(3.9,143,2,826,0)=" .D CALC"
^XMB(3.9,143,2,827,0)="""RTN"",""SROANEST"",96,0)"
^XMB(3.9,143,2,828,0)=" Q SRTTIME"
^XMB(3.9,143,2,829,0)="""RTN"",""SROANEST"",97,0)"
^XMB(3.9,143,2,830,0)="CALC ; calculate minutes between start and end times"
^XMB(3.9,143,2,831,0)="""RTN"",""SROANEST"",98,0)"
^XMB(3.9,143,2,832,0)=" N SRETH,SRDHRS,SRSHR,SREHR,SRSMN,SREMN,SRSTH,X1,X2,Y,%H"
^XMB(3.9,143,2,833,0)="""RTN"",""SROANEST"",99,0)"
^XMB(3.9,143,2,834,0)=" S X1=SRCST,X2=0 D C^%DTC S SRSTH=%H"
^XMB(3.9,143,2,835,0)="""RTN"",""SROANEST"",100,0)"
^XMB(3.9,143,2,836,0)=" S X1=SRCET,X2=0 D C^%DTC S SRETH=%H"
^XMB(3.9,143,2,837,0)="""RTN"",""SROANEST"",101,0)"
^XMB(3.9,143,2,838,0)=" S SRDHRS=(SRETH-SRSTH)*24"
^XMB(3.9,143,2,839,0)="""RTN"",""SROANEST"",102,0)"
^XMB(3.9,143,2,840,0)=" S SRSHR=$E(($P(SRCST_""0"",""."",2)),1,2)"
^XMB(3.9,143,2,841,0)="""RTN"",""SROANEST"",103,0)"
^XMB(3.9,143,2,842,0)=" S SREHR=$E(($P(SRCET_""0"",""."",2)),1,2)"
^XMB(3.9,143,2,843,0)="""RTN"",""SROANEST"",104,0)"
^XMB(3.9,143,2,844,0)=" I SREHR<SRSHR S SREHR=SREHR+24,SRDHRS=SRDHRS-24"
^XMB(3.9,143,2,845,0)="""RTN"",""SROANEST"",105,0)"
^XMB(3.9,143,2,846,0)=" S SRSMN=$E(($P(SRCST_""00"",""."",2)),3,4)"
^XMB(3.9,143,2,847,0)="""RTN"",""SROANEST"",106,0)"
^XMB(3.9,143,2,848,0)=" S SREMN=$E(($P(SRCET_""00"",""."",2)),3,4)"
^XMB(3.9,143,2,849,0)="""RTN"",""SROANEST"",107,0)"
^XMB(3.9,143,2,850,0)=" I SREMN<SRSMN S SREMN=SREMN+60,SREHR=SREHR-1"
^XMB(3.9,143,2,851,0)="""RTN"",""SROANEST"",108,0)"
^XMB(3.9,143,2,852,0)=" S Y=(SRDHRS*60)+((SREHR-SRSHR)*60)+(SREMN-SRSMN)"
^XMB(3.9,143,2,853,0)="""RTN"",""SROANEST"",109,0)"
^XMB(3.9,143,2,854,0)=" S SRTTIME=SRTTIME+Y"
^XMB(3.9,143,2,855,0)="""RTN"",""SROANEST"",110,0)"
^XMB(3.9,143,2,856,0)=" Q"
^XMB(3.9,143,2,857,0)="""RTN"",""SROANEST"",111,0)"
^XMB(3.9,143,2,858,0)="ANESTIME(SRDFN,SRFDATE,SRTDATE) ; API to return multiple anesthesia records and times"
^XMB(3.9,143,2,859,0)="""RTN"",""SROANEST"",112,0)"
^XMB(3.9,143,2,860,0)=" N SRCASE,SRREC,SRCNT,SRNON,SRX,SRDATE,SRRES,SRSC,SRCV,SRQO,SRIR,SREC,SRMST,SRHNC,SRAO,SRSREC,SRCST,SRCET,SRTTIME,SR,SRDIAG,SRSHAD"
^XMB(3.9,143,2,861,0)="""RTN"",""SROANEST"",113,0)"
^XMB(3.9,143,2,862,0)=" S (SRREC,SRCNT,SRRES)=0"
^XMB(3.9,143,2,863,0)="""RTN"",""SROANEST"",114,0)"
^XMB(3.9,143,2,864,0)=" I '$D(SRDFN)!'$D(SRFDATE) Q -1"
^XMB(3.9,143,2,865,0)="""RTN"",""SROANEST"",115,0)"
^XMB(3.9,143,2,866,0)=" I '$D(SRTDATE) S SRTDATE=SRFDATE"
^XMB(3.9,143,2,867,0)="""RTN"",""SROANEST"",116,0)"
^XMB(3.9,143,2,868,0)=" I '$D(^SRF(""B"",SRDFN)) Q 0"
^XMB(3.9,143,2,869,0)="""RTN"",""SROANEST"",117,0)"
^XMB(3.9,143,2,870,0)=" S SRFDATE=$P(SRFDATE,"".""),SRTDATE=$P(SRTDATE,""."")"
^XMB(3.9,143,2,871,0)="""RTN"",""SROANEST"",118,0)"
^XMB(3.9,143,2,872,0)=" F  S SRREC=$O(^SRF(""B"",SRDFN,SRREC)) Q:'SRREC  S SRCNT=SRCNT+1,SRCASE(SRCNT)=SRREC"
^XMB(3.9,143,2,873,0)="""RTN"",""SROANEST"",119,0)"
^XMB(3.9,143,2,874,0)=" S SRREC=0"
^XMB(3.9,143,2,875,0)="""RTN"",""SROANEST"",120,0)"
^XMB(3.9,143,2,876,0)=" F  S SRREC=$O(SRCASE(SRREC)) Q:'SRREC  D"
^XMB(3.9,143,2,877,0)="""RTN"",""SROANEST"",121,0)"
^XMB(3.9,143,2,878,0)=" .S SRCASE=SRCASE(SRREC)"
^XMB(3.9,143,2,879,0)="""RTN"",""SROANEST"",122,0)"
^XMB(3.9,143,2,880,0)=" .S SRNON=$S($P($G(^SRF(SRCASE,""NON"")),""^"")=""Y"":1,1:0)"
^XMB(3.9,143,2,881,0)="""RTN"",""SROANEST"",123,0)"
^XMB(3.9,143,2,882,0)=" .I 'SRNON S SRX=$G(^SRF(SRCASE,.2)),SRDATE=$P(SRX,""^"",10)"
^XMB(3.9,143,2,883,0)="""RTN"",""SROANEST"",124,0)"
^XMB(3.9,143,2,884,0)=" .I SRNON S SRX=$G(^SRF(SRCASE,""NON"")),SRDATE=$P(SRX,""^"",4)"
^XMB(3.9,143,2,885,0)="""RTN"",""SROANEST"",125,0)"
^XMB(3.9,143,2,886,0)=" .S SRDATE=$P(SRDATE,""."")"
^XMB(3.9,143,2,887,0)="""RTN"",""SROANEST"",126,0)"
^XMB(3.9,143,2,888,0)=" .I (SRDATE<SRFDATE)!(SRDATE>SRTDATE) K SRCASE(SRREC) Q"
^XMB(3.9,143,2,889,0)="""RTN"",""SROANEST"",127,0)"
^XMB(3.9,143,2,890,0)=" S SRREC=0"
^XMB(3.9,143,2,891,0)="""RTN"",""SROANEST"",128,0)"
^XMB(3.9,143,2,892,0)=" F  S SRREC=$O(SRCASE(SRREC)) Q:'SRREC  D"
^XMB(3.9,143,2,893,0)="""RTN"",""SROANEST"",129,0)"
^XMB(3.9,143,2,894,0)=" .S SRCASE=SRCASE(SRREC)"
^XMB(3.9,143,2,895,0)="""RTN"",""SROANEST"",130,0)"
^XMB(3.9,143,2,896,0)=" .I $$GET1^DIQ(130,SRCASE,.214,""I"")'=1 S SRRES=-2 Q"
^XMB(3.9,143,2,897,0)="""RTN"",""SROANEST"",131,0)"
^XMB(3.9,143,2,898,0)=" .S SRDIAG=$P($G(^SRO(136,SRCASE,0)),""^"",3)"
^XMB(3.9,143,2,899,0)="""RTN"",""SROANEST"",132,0)"
^XMB(3.9,143,2,900,0)=" .I 'SRDIAG S SRDIAG=$P($G(^SRF(SRCASE,34)),""^"",2)"
^XMB(3.9,143,2,901,0)="""RTN"",""SROANEST"",133,0)"
^XMB(3.9,143,2,902,0)=" .S (SRAO,SREC,SRHNC,SRIR,SRMST,SRSHAD)=0"
^XMB(3.9,143,2,903,0)="""RTN"",""SROANEST"",134,0)"
^XMB(3.9,143,2,904,0)=" .S SR(0)=$G(^SRF(SRCASE,0))"
^XMB(3.9,143,2,905,0)="""RTN"",""SROANEST"",135,0)"
^XMB(3.9,143,2,906,0)=" .S SRSC=$P(SR(0),""^"",16),SRAO=$P(SR(0),""^"",17),SRIR=$P(SR(0),""^"",18),SREC=$P(SR(0),""^"",19),SRMST=$P(SR(0),""^"",22),SRHNC=$P(SR(0),""^"",23),SRCV=$P(SR(0),""^"",24),SRSHAD=$P(SR(0),""^"",25)"
^XMB(3.9,143,2,907,0)="""RTN"",""SROANEST"",136,0)"
^XMB(3.9,143,2,908,0)=" .I '$D(^SRF(SRCASE,50)) S:SRRES'=1 SRRES=-2 Q"
^XMB(3.9,143,2,909,0)="""RTN"",""SROANEST"",137,0)"
^XMB(3.9,143,2,910,0)=" .S SRRES=1,SRREC=0"
^XMB(3.9,143,2,911,0)="""RTN"",""SROANEST"",138,0)"
^XMB(3.9,143,2,912,0)=" .F  S SRREC=$O(^SRF(SRCASE,50,SRREC)) Q:(SRREC=""B"")!(SRREC="""")  D"
^XMB(3.9,143,2,913,0)="""RTN"",""SROANEST"",139,0)"
^XMB(3.9,143,2,914,0)=" ..S SRCST=$$GET1^DIQ(130.213,SRREC_"",""_SRCASE_"","",.01,""I""),SRCET=$$GET1^DIQ(130.213,SRREC_"",""_SRCASE_"","",1,""I"")"
^XMB(3.9,143,2,915,0)="""RTN"",""SROANEST"",140,0)"
^XMB(3.9,143,2,916,0)=" ..I 'SRCET K ^TMP(""SRANES"",$J,SRCASE) S SRRES=-2,SRREC="""" Q"
^XMB(3.9,143,2,917,0)="""RTN"",""SROANEST"",141,0)"
^XMB(3.9,143,2,918,0)=" ..S SRTTIME=0 D CALC"
^XMB(3.9,143,2,919,0)="""RTN"",""SROANEST"",142,0)"
^XMB(3.9,143,2,920,0)=" ..S ^TMP(""SRANES"",$J,SRCASE,SRCST,SRCET)=SRDFN_""^""_SRTTIME_""^""_SRDIAG_""^""_SRSC_""^""_SRCV_""^""_SRAO_""^""_SRIR_""^""_SREC_""^""_SRMST_""^""_SRHNC_""^""_SRSHAD"
^XMB(3.9,143,2,921,0)="""RTN"",""SROANEST"",143,0)"
^XMB(3.9,143,2,922,0)=" Q SRRES"
^XMB(3.9,143,2,923,0)="""RTN"",""SROCD"")"
^XMB(3.9,143,2,924,0)="0^2^B20439291^B18456751"
^XMB(3.9,143,2,925,0)="""RTN"",""SROCD"",1,0)"
^XMB(3.9,143,2,926,0)="SROCD ;BIR/ADM - CASE CODING IN SURGERY PROCEDURE/DIAGNOSIS CODES FILE ;10/20/05"
^XMB(3.9,143,2,927,0)="""RTN"",""SROCD"",2,0)"
^XMB(3.9,143,2,928,0)=" ;;3.0; Surgery ;**142,152**;24 Jun 93"
^XMB(3.9,143,2,929,0)="""RTN"",""SROCD"",3,0)"
^XMB(3.9,143,2,930,0)=" I '$D(SRSITE) D ^SROVAR I '$D(SRSITE) S XQUIT="""" Q"
^XMB(3.9,143,2,931,0)="""RTN"",""SROCD"",4,0)"
^XMB(3.9,143,2,932,0)=" I '$G(SRTN) D ^SROPS1 I '$D(SRTN) S XQUIT="""" Q"
^XMB(3.9,143,2,933,0)="""RTN"",""SROCD"",5,0)"
^XMB(3.9,143,2,934,0)="BEG N S,SR2,SRCMOD,SRDES,SRDX,SREDIT,SRHDR,SRMOD,SRNM,SRPROC,SRS,SRSEL,SRTXT"
^XMB(3.9,143,2,935,0)="""RTN"",""SROCD"",6,0)"
^XMB(3.9,143,2,936,0)=" S (SREDIT,SRMOD,SRSOUT,SRS,SR2)=0 I $P($G(^SRF(SRTN,.2)),""^"",3) S SRS=1"
^XMB(3.9,143,2,937,0)="""RTN"",""SROCD"",7,0)"
^XMB(3.9,143,2,938,0)=" S S(0)=^SRF(SRTN,0),Y=$P(S(0),""^"",9),SRDATE=Y D D^DIQ S SRSDATE=Y,DFN=$P(S(0),""^"") D DEM^VADPT S SRNM=VADM(1)_""  (""_VA(""PID"")_"")"""
^XMB(3.9,143,2,939,0)="""RTN"",""SROCD"",8,0)"
^XMB(3.9,143,2,940,0)=" S SRNON=$S($P($G(^SRF(SRTN,""NON"")),""^"")=""Y"":1,1:0)"
^XMB(3.9,143,2,941,0)="""RTN"",""SROCD"",9,0)"
^XMB(3.9,143,2,942,0)=" I '$D(^SRO(136,SRTN)) D ^SROCD1"
^XMB(3.9,143,2,943,0)="""RTN"",""SROCD"",10,0)"
^XMB(3.9,143,2,944,0)=" I $P($G(^SRO(136,SRTN,10)),""^"") D SURE I 'SREDIT Q"
^XMB(3.9,143,2,945,0)="""RTN"",""SROCD"",11,0)"
^XMB(3.9,143,2,946,0)="EDIT D ^SROCD2 I SRSOUT!SREDIT G END"
^XMB(3.9,143,2,947,0)="""RTN"",""SROCD"",12,0)"
^XMB(3.9,143,2,948,0)=" D EDIT"
^XMB(3.9,143,2,949,0)="""RTN"",""SROCD"",13,0)"
^XMB(3.9,143,2,950,0)=" Q"
^XMB(3.9,143,2,951,0)="""RTN"",""SROCD"",14,0)"
^XMB(3.9,143,2,952,0)="SURE D HDR K DIR"
^XMB(3.9,143,2,953,0)="""RTN"",""SROCD"",15,0)"
^XMB(3.9,143,2,954,0)=" S DIR(""A"",1)=""Coding for this case has been completed ""_$S($P(^SRF(SRTN,0),""^"",15):""and"",1:""but not"")_"" sent to PCE."""
^XMB(3.9,143,2,955,0)="""RTN"",""SROCD"",16,0)"
^XMB(3.9,143,2,956,0)=" S DIR(""A"",2)="""",DIR(""A"")=""Are you sure you want to edit this case"",DIR(0)=""Y"",DIR(""B"")=""NO"" D ^DIR K DIR"
^XMB(3.9,143,2,957,0)="""RTN"",""SROCD"",17,0)"
^XMB(3.9,143,2,958,0)=" I Y S SREDIT=1 M ^TMP(""SRED1"",$J,SRTN)=^SRO(136,SRTN) Q"
^XMB(3.9,143,2,959,0)="""RTN"",""SROCD"",18,0)"
^XMB(3.9,143,2,960,0)="END S SROERR=SRTN D ^SROERR0,^SRSKILL"
^XMB(3.9,143,2,961,0)="""RTN"",""SROCD"",19,0)"
^XMB(3.9,143,2,962,0)=" K ADCNT,SRCOMMA,SRDXCNT,SROCNTR,SROCPT2,SROERR,SROFLG,SRTMP,SRICD9,SRDIAGS,SRASDX,SRMSG,SRADX,SRPADX,SRODIR,REC,SRDIRX,SRADIAG,SRDX,SRDX1,SRDX2,SROICD,SUB4"
^XMB(3.9,143,2,963,0)="""RTN"",""SROCD"",20,0)"
^XMB(3.9,143,2,964,0)=" W @IOF K ^TMP(""SRED1"",$J)"
^XMB(3.9,143,2,965,0)="""RTN"",""SROCD"",21,0)"
^XMB(3.9,143,2,966,0)=" Q"
^XMB(3.9,143,2,967,0)="""RTN"",""SROCD"",22,0)"
^XMB(3.9,143,2,968,0)="HDR W @IOF,!,SRNM_""        Case #""_SRTN,!"
^XMB(3.9,143,2,969,0)="""RTN"",""SROCD"",23,0)"
^XMB(3.9,143,2,970,0)=" S SRPROC=$P(^SRF(SRTN,""OP""),""^"") D BRK W $P(SRSDATE,""@"")_""   ""_SRHDR(1)"
^XMB(3.9,143,2,971,0)="""RTN"",""SROCD"",24,0)"
^XMB(3.9,143,2,972,0)=" I $D(SRHDR(2)) W !,?15,SRHDR(2) I $D(SRHDR(3)) W !,?15,SRHDR(3)"
^XMB(3.9,143,2,973,0)="""RTN"",""SROCD"",25,0)"
^XMB(3.9,143,2,974,0)=" W ! F I=1:1:80 W ""-"""
^XMB(3.9,143,2,975,0)="""RTN"",""SROCD"",26,0)"
^XMB(3.9,143,2,976,0)=" Q"
^XMB(3.9,143,2,977,0)="""RTN"",""SROCD"",27,0)"
^XMB(3.9,143,2,978,0)="BRK ; break procedure if greater than 65 characters"
^XMB(3.9,143,2,979,0)="""RTN"",""SROCD"",28,0)"
^XMB(3.9,143,2,980,0)=" I $L(SRPROC)<66 S SRHDR(1)=SRPROC Q"
^XMB(3.9,143,2,981,0)="""RTN"",""SROCD"",29,0)"
^XMB(3.9,143,2,982,0)=" S X=SRPROC,K=1 F  D  I $L(X)<66 S SRHDR(K)=X Q"
^XMB(3.9,143,2,983,0)="""RTN"",""SROCD"",30,0)"
^XMB(3.9,143,2,984,0)=" .F I=0:1:64 S J=65-I,Y=$E(X,J) I Y="" "" S SRHDR(K)=$E(X,1,J-1),X=$E(X,J+1,$L(X)) S K=K+1 Q"
^XMB(3.9,143,2,985,0)="""RTN"",""SROCD"",31,0)"
^XMB(3.9,143,2,986,0)=" Q"
^XMB(3.9,143,2,987,0)="""RTN"",""SROCD"",32,0)"
^XMB(3.9,143,2,988,0)="OSCEI ; update SC/EI info on other diagnosis"
^XMB(3.9,143,2,989,0)="""RTN"",""SROCD"",33,0)"
^XMB(3.9,143,2,990,0)=" K DA,DIE,DR,DIR W !!,""Please supply the following required information related to this diagnosis:"",!"
^XMB(3.9,143,2,991,0)="""RTN"",""SROCD"",34,0)"
^XMB(3.9,143,2,992,0)=" S SRDR="""",SRQ=0 S DA=$P(SRSEL(SRDA),U),DA(1)=SRTN D  I SRQ Q"
^XMB(3.9,143,2,993,0)="""RTN"",""SROCD"",35,0)"
^XMB(3.9,143,2,994,0)=" .I $D(SRCL(3)) D SC I SRQ Q"
^XMB(3.9,143,2,995,0)="""RTN"",""SROCD"",36,0)"
^XMB(3.9,143,2,996,0)=" .I $D(SRCL(7)) D CV I SRQ Q"
^XMB(3.9,143,2,997,0)="""RTN"",""SROCD"",37,0)"
^XMB(3.9,143,2,998,0)=" .I $D(SRCL(1)) D AO I SRQ Q"
^XMB(3.9,143,2,999,0)="""RTN"",""SROCD"",38,0)"
^XMB(3.9,143,2,1000,0)=" .I $D(SRCL(2)) D IR I SRQ Q"
^XMB(3.9,143,2,1001,0)="""RTN"",""SROCD"",39,0)"
^XMB(3.9,143,2,1002,0)=" .I $D(SRCL(4)) D EC I SRQ Q"
^XMB(3.9,143,2,1003,0)="""RTN"",""SROCD"",40,0)"
^XMB(3.9,143,2,1004,0)=" .I $D(SRCL(8)) D PRJ I SRQ Q"
^XMB(3.9,143,2,1005,0)="""RTN"",""SROCD"",41,0)"
^XMB(3.9,143,2,1006,0)=" .I $D(SRCL(5)) D MST I SRQ Q"
^XMB(3.9,143,2,1007,0)="""RTN"",""SROCD"",42,0)"
^XMB(3.9,143,2,1008,0)=" .I $D(SRCL(6)) D HNC"
^XMB(3.9,143,2,1009,0)="""RTN"",""SROCD"",43,0)"
^XMB(3.9,143,2,1010,0)=" K DIR S DA=$P(SRSEL(SRDA),U),DA(1)=SRTN,DIE=""^SRO(136,SRTN,4,"",DR=SRDR D ^DIE K DA,DIE,DR,SRDR"
^XMB(3.9,143,2,1011,0)="""RTN"",""SROCD"",44,0)"
^XMB(3.9,143,2,1012,0)=" Q"
^XMB(3.9,143,2,1013,0)="""RTN"",""SROCD"",45,0)"
^XMB(3.9,143,2,1014,0)="SC S DIR(""A"")=""Treatment related to Service Connected condition (Y/N)"",DIR(0)=""136.04,.02"" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRQ=1 Q"
^XMB(3.9,143,2,1015,0)="""RTN"",""SROCD"",46,0)"
^XMB(3.9,143,2,1016,0)=" I X=""""!(X=""@"") W !,$C(7),?15,""Enter YES or NO."" G SC"
^XMB(3.9,143,2,1017,0)="""RTN"",""SROCD"",47,0)"
^XMB(3.9,143,2,1018,0)=" S SRCL(3)=Y,SRDR=$G(SRDR)_"".02////""_SRCL(3)_"";"""
^XMB(3.9,143,2,1019,0)="""RTN"",""SROCD"",48,0)"
^XMB(3.9,143,2,1020,0)=" Q"
^XMB(3.9,143,2,1021,0)="""RTN"",""SROCD"",49,0)"
^XMB(3.9,143,2,1022,0)="CV S DIR(""A"")=""Treatment related to Combat (Y/N)"",DIR(0)=""136.04,.08"" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRQ=1 Q"
^XMB(3.9,143,2,1023,0)="""RTN"",""SROCD"",50,0)"
^XMB(3.9,143,2,1024,0)=" I X=""""!(X=""@"") W !,$C(7),?15,""Enter YES or NO."" G CV"
^XMB(3.9,143,2,1025,0)="""RTN"",""SROCD"",51,0)"
^XMB(3.9,143,2,1026,0)=" S SRCL(7)=Y,SRDR=SRDR_"".08////""_SRCL(7)_"";"""
^XMB(3.9,143,2,1027,0)="""RTN"",""SROCD"",52,0)"
^XMB(3.9,143,2,1028,0)=" Q"
^XMB(3.9,143,2,1029,0)="""RTN"",""SROCD"",53,0)"
^XMB(3.9,143,2,1030,0)="AO S DIR(""A"")=""Treatment related to Agent Orange Exposure (Y/N)"",DIR(0)=""136.04,.03"" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRQ=1 Q"
^XMB(3.9,143,2,1031,0)="""RTN"",""SROCD"",54,0)"
^XMB(3.9,143,2,1032,0)=" I X=""""!(X=""@"") W !,$C(7),?15,""Enter YES or NO."" G AO"
^XMB(3.9,143,2,1033,0)="""RTN"",""SROCD"",55,0)"
^XMB(3.9,143,2,1034,0)=" S SRCL(1)=Y,SRDR=SRDR_"".03////""_SRCL(1)_"";"""
^XMB(3.9,143,2,1035,0)="""RTN"",""SROCD"",56,0)"
^XMB(3.9,143,2,1036,0)=" Q"
^XMB(3.9,143,2,1037,0)="""RTN"",""SROCD"",57,0)"
^XMB(3.9,143,2,1038,0)="IR S DIR(""A"")=""Treatment related to Ionizing Radiation Exposure (Y/N)"",DIR(0)=""136.04,.04"" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRQ=1 Q"
^XMB(3.9,143,2,1039,0)="""RTN"",""SROCD"",58,0)"
^XMB(3.9,143,2,1040,0)=" I X=""""!(X=""@"") W !,$C(7),?15,""Enter YES or NO."" G IR"
^XMB(3.9,143,2,1041,0)="""RTN"",""SROCD"",59,0)"
^XMB(3.9,143,2,1042,0)=" S SRCL(2)=Y,SRDR=SRDR_"".04////""_SRCL(2)_"";"""
^XMB(3.9,143,2,1043,0)="""RTN"",""SROCD"",60,0)"
^XMB(3.9,143,2,1044,0)=" Q"
^XMB(3.9,143,2,1045,0)="""RTN"",""SROCD"",61,0)"
^XMB(3.9,143,2,1046,0)="EC S DIR(""A"")=""Treatment related to Environmental Contaminant Exposure (Y/N)"",DIR(0)=""136.04,.07"" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRQ=1 Q"
^XMB(3.9,143,2,1047,0)="""RTN"",""SROCD"",62,0)"
^XMB(3.9,143,2,1048,0)=" I X=""""!(X=""@"") W !,$C(7),?15,""Enter YES or NO."" G EC"
^XMB(3.9,143,2,1049,0)="""RTN"",""SROCD"",63,0)"
^XMB(3.9,143,2,1050,0)=" S SRCL(4)=Y,SRDR=SRDR_"".07////""_SRCL(4)_"";"""
^XMB(3.9,143,2,1051,0)="""RTN"",""SROCD"",64,0)"
^XMB(3.9,143,2,1052,0)=" Q"
^XMB(3.9,143,2,1053,0)="""RTN"",""SROCD"",65,0)"
^XMB(3.9,143,2,1054,0)="PRJ S DIR(""A"")=""Treatment related to PROJ 112/SHAD (Y/N)"",DIR(0)=""136.04,.09"" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRQ=1 Q"
^XMB(3.9,143,2,1055,0)="""RTN"",""SROCD"",66,0)"
^XMB(3.9,143,2,1056,0)=" I X=""""!(X=""@"") W !,$C(7),?15,""Enter YES or NO."" G PRJ"
^XMB(3.9,143,2,1057,0)="""RTN"",""SROCD"",67,0)"
^XMB(3.9,143,2,1058,0)=" S SRCL(8)=Y,SRDR=SRDR_"".09////""_SRCL(8)_"";"""
^XMB(3.9,143,2,1059,0)="""RTN"",""SROCD"",68,0)"
^XMB(3.9,143,2,1060,0)=" Q"
^XMB(3.9,143,2,1061,0)="""RTN"",""SROCD"",69,0)"
^XMB(3.9,143,2,1062,0)="MST S DIR(""A"")=""Treatment related to Military Sexual Trauma (Y/N)"",DIR(0)=""136.04,.05"" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRQ=1 Q"
^XMB(3.9,143,2,1063,0)="""RTN"",""SROCD"",70,0)"
^XMB(3.9,143,2,1064,0)=" I X=""""!(X=""@"") W !,$C(7),?15,""Enter YES or NO."" G MST"
^XMB(3.9,143,2,1065,0)="""RTN"",""SROCD"",71,0)"
^XMB(3.9,143,2,1066,0)=" S SRCL(5)=Y,SRDR=SRDR_"".05////""_SRCL(5)_"";"""
^XMB(3.9,143,2,1067,0)="""RTN"",""SROCD"",72,0)"
^XMB(3.9,143,2,1068,0)=" Q"
^XMB(3.9,143,2,1069,0)="""RTN"",""SROCD"",73,0)"
^XMB(3.9,143,2,1070,0)="HNC S DIR(""A"")=""Treatment related to Head and/or Neck Cancer (Y/N)"",DIR(0)=""136.04,.06"" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRQ=1 Q"
^XMB(3.9,143,2,1071,0)="""RTN"",""SROCD"",74,0)"
^XMB(3.9,143,2,1072,0)=" I X=""""!(X=""@"") W !,$C(7),?15,""Enter YES or NO."" G HNC"
^XMB(3.9,143,2,1073,0)="""RTN"",""SROCD"",75,0)"
^XMB(3.9,143,2,1074,0)=" S SRCL(6)=Y,SRDR=SRDR_"".06////""_SRCL(6)_"";"""
^XMB(3.9,143,2,1075,0)="""RTN"",""SROCD"",76,0)"
^XMB(3.9,143,2,1076,0)=" Q"
^XMB(3.9,143,2,1077,0)="""RTN"",""SROCD0"")"
^XMB(3.9,143,2,1078,0)="0^3^B60958065^B58953825"
^XMB(3.9,143,2,1079,0)="""RTN"",""SROCD0"",1,0)"
^XMB(3.9,143,2,1080,0)="SROCD0 ;BIR/ADM - CASE CODING INPUT/EDIT ;08/01/05"
^XMB(3.9,143,2,1081,0)="""RTN"",""SROCD0"",2,0)"
^XMB(3.9,143,2,1082,0)=" ;;3.0; Surgery ;**142,152**;24 Jun 93"
^XMB(3.9,143,2,1083,0)="""RTN"",""SROCD0"",3,0)"
^XMB(3.9,143,2,1084,0)=" ;;"
^XMB(3.9,143,2,1085,0)="""RTN"",""SROCD0"",4,0)"
^XMB(3.9,143,2,1086,0)=" ; Reference to CL^SDCO21 supported by DBIA #406"
^XMB(3.9,143,2,1087,0)="""RTN"",""SROCD0"",5,0)"
^XMB(3.9,143,2,1088,0)=" ;;"
^XMB(3.9,143,2,1089,0)="""RTN"",""SROCD0"",6,0)"
^XMB(3.9,143,2,1090,0)="PRDX ; edit Principal Postop Diagnosis"
^XMB(3.9,143,2,1091,0)="""RTN"",""SROCD0"",7,0)"
^XMB(3.9,143,2,1092,0)=" N SRDUP,SRDXY,SRI,SROLD,ENVARR,SCEC,SRNEW,SRNUM S SCEC=$$SCEC()"
^XMB(3.9,143,2,1093,0)="""RTN"",""SROCD0"",8,0)"
^XMB(3.9,143,2,1094,0)=" S (SROLD,X)=$P(^SRO(136,SRTN,0),""^"",3),SRDIAG=""NOT ENTERED"" I 'X D PDXEN Q"
^XMB(3.9,143,2,1095,0)="""RTN"",""SROCD0"",9,0)"
^XMB(3.9,143,2,1096,0)=" I X S Y=$$ICDDX^ICDCODE(X,$P($G(^SRF(SRTN,0)),""^"",9)),SRNUM=$P(Y,U,2),SRDES=$P(Y,U,4),SRDIAG=SRNUM_""  ""_SRDES"
^XMB(3.9,143,2,1097,0)="""RTN"",""SROCD0"",10,0)"
^XMB(3.9,143,2,1098,0)=" W !,""Principal Postop Diagnosis:"",!!,?5,""ICD9 Code: ""_SRDIAG D:SCEC"
^XMB(3.9,143,2,1099,0)="""RTN"",""SROCD0"",11,0)"
^XMB(3.9,143,2,1100,0)=" .D GETS^DIQ(136,SRTN_"","","".04:.11"",""E"",""ENVARR"")"
^XMB(3.9,143,2,1101,0)="""RTN"",""SROCD0"",12,0)"
^XMB(3.9,143,2,1102,0)=" .I $D(ENVARR(136,SRTN_"","",.04,""E"")) D"
^XMB(3.9,143,2,1103,0)="""RTN"",""SROCD0"",13,0)"
^XMB(3.9,143,2,1104,0)=" ..N SRCOLSPN S SRCOLSPN=13 W !"
^XMB(3.9,143,2,1105,0)="""RTN"",""SROCD0"",14,0)"
^XMB(3.9,143,2,1106,0)=" ..I $D(SRCL(3)) W ?SRCOLSPN,""SC:"",$E(ENVARR(136,SRTN_"","",.04,""E"")) S SRCOLSPN=SRCOLSPN+8"
^XMB(3.9,143,2,1107,0)="""RTN"",""SROCD0"",15,0)"
^XMB(3.9,143,2,1108,0)=" ..I $D(SRCL(7)) W ?SRCOLSPN,""CV:"",$E(ENVARR(136,SRTN_"","",.1,""E"")) S SRCOLSPN=SRCOLSPN+8"
^XMB(3.9,143,2,1109,0)="""RTN"",""SROCD0"",16,0)"
^XMB(3.9,143,2,1110,0)=" ..I $D(SRCL(1)) W ?SRCOLSPN,""AO:"",$E(ENVARR(136,SRTN_"","",.05,""E"")) S SRCOLSPN=SRCOLSPN+8"
^XMB(3.9,143,2,1111,0)="""RTN"",""SROCD0"",17,0)"
^XMB(3.9,143,2,1112,0)=" ..I $D(SRCL(2)) W ?SRCOLSPN,""IR:"",$E(ENVARR(136,SRTN_"","",.06,""E"")) S SRCOLSPN=SRCOLSPN+8"
^XMB(3.9,143,2,1113,0)="""RTN"",""SROCD0"",18,0)"
^XMB(3.9,143,2,1114,0)=" ..I $D(SRCL(4)) W ?SRCOLSPN,""EC:"",$E(ENVARR(136,SRTN_"","",.07,""E"")) S SRCOLSPN=SRCOLSPN+8"
^XMB(3.9,143,2,1115,0)="""RTN"",""SROCD0"",19,0)"
^XMB(3.9,143,2,1116,0)=" ..I $D(SRCL(8)) W ?SRCOLSPN,""SHAD:"",$E(ENVARR(136,SRTN_"","",.11,""E"")) S SRCOLSPN=SRCOLSPN+8"
^XMB(3.9,143,2,1117,0)="""RTN"",""SROCD0"",20,0)"
^XMB(3.9,143,2,1118,0)=" ..I $D(SRCL(5)) W ?SRCOLSPN,""MST:"",$E(ENVARR(136,SRTN_"","",.08,""E"")) S SRCOLSPN=SRCOLSPN+8"
^XMB(3.9,143,2,1119,0)="""RTN"",""SROCD0"",21,0)"
^XMB(3.9,143,2,1120,0)=" ..I $D(SRCL(6)) W ?SRCOLSPN,""H&N:"",$E(ENVARR(136,SRTN_"","",.09,""E"")) S SRCOLSPN=SRCOLSPN+8"
^XMB(3.9,143,2,1121,0)="""RTN"",""SROCD0"",22,0)"
^XMB(3.9,143,2,1122,0)=" K DIR S DIR(0)=""SO^1:Update Principal Postop Diagnosis Code;2:Update Service Connected/Environmental Indicators only"""
^XMB(3.9,143,2,1123,0)="""RTN"",""SROCD0"",23,0)"
^XMB(3.9,143,2,1124,0)=" S DIR(""A"")=""Enter selection (1 or 2)"",DIR(""B"")=1 D ^DIR I $D(DTOUT)!$D(DUOUT)!'Y Q"
^XMB(3.9,143,2,1125,0)="""RTN"",""SROCD0"",24,0)"
^XMB(3.9,143,2,1126,0)=" S SRDXY=Y I SRDXY=1 D PDXEN Q"
^XMB(3.9,143,2,1127,0)="""RTN"",""SROCD0"",25,0)"
^XMB(3.9,143,2,1128,0)=" I SRDXY=2 D PSCEI"
^XMB(3.9,143,2,1129,0)="""RTN"",""SROCD0"",26,0)"
^XMB(3.9,143,2,1130,0)=" Q"
^XMB(3.9,143,2,1131,0)="""RTN"",""SROCD0"",27,0)"
^XMB(3.9,143,2,1132,0)="PRESS W ! K DIR S DIR(""A"")=""Press Enter/Return key to continue "",DIR(0)=""FOA"" D ^DIR K DIR"
^XMB(3.9,143,2,1133,0)="""RTN"",""SROCD0"",28,0)"
^XMB(3.9,143,2,1134,0)=" Q"
^XMB(3.9,143,2,1135,0)="""RTN"",""SROCD0"",29,0)"
^XMB(3.9,143,2,1136,0)="PDXEN W ! K DA,DIR S DIR(""A"")=""Principal Postop Diagnosis Code"",DIR(0)=""136,.03"",DIR(""B"")=$G(SRNUM) D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) Q"
^XMB(3.9,143,2,1137,0)="""RTN"",""SROCD0"",30,0)"
^XMB(3.9,143,2,1138,0)=" S SRNEW=+Y I X=""@"" W !!,"" Deletion of the Principal Postop Diagnosis Code is not allowed! ??"" G PDXEN"
^XMB(3.9,143,2,1139,0)="""RTN"",""SROCD0"",31,0)"
^XMB(3.9,143,2,1140,0)=" I X="""" W !,""This is a required entry."" G PDXEN"
^XMB(3.9,143,2,1141,0)="""RTN"",""SROCD0"",32,0)"
^XMB(3.9,143,2,1142,0)=" S (SRDUP,SRI)=0 I SRNEW=SROLD Q"
^XMB(3.9,143,2,1143,0)="""RTN"",""SROCD0"",33,0)"
^XMB(3.9,143,2,1144,0)=" I SRNEW,SRNEW'=SROLD F  S SRI=$O(SRADIAG(SRI)) Q:'SRI  I SRADIAG(SRI)=SRNEW S SRDUP=1 Q"
^XMB(3.9,143,2,1145,0)="""RTN"",""SROCD0"",34,0)"
^XMB(3.9,143,2,1146,0)=" I SRDUP D DUP,HDR^SROCD G PDXEN"
^XMB(3.9,143,2,1147,0)="""RTN"",""SROCD0"",35,0)"
^XMB(3.9,143,2,1148,0)=" K DR,DIE,DA S DIE=136,DA=SRTN,DR="".03////""_SRNEW D ^DIE K DR,DIE I $D(Y) Q"
^XMB(3.9,143,2,1149,0)="""RTN"",""SROCD0"",36,0)"
^XMB(3.9,143,2,1150,0)=" I SRNEW'=SROLD S X=SROLD D PRINASOD^SROCDX2"
^XMB(3.9,143,2,1151,0)="""RTN"",""SROCD0"",37,0)"
^XMB(3.9,143,2,1152,0)=" D REMIND"
^XMB(3.9,143,2,1153,0)="""RTN"",""SROCD0"",38,0)"
^XMB(3.9,143,2,1154,0)="PSCEI I $P(^SRO(136,SRTN,0),""^"",3) D"
^XMB(3.9,143,2,1155,0)="""RTN"",""SROCD0"",39,0)"
^XMB(3.9,143,2,1156,0)=" .I SCEC D SCEI^SROCD3 K SRCL Q"
^XMB(3.9,143,2,1157,0)="""RTN"",""SROCD0"",40,0)"
^XMB(3.9,143,2,1158,0)=" .W !!,""  >>>  No SC/EI information required for this patient.  <<<"" D PRESS"
^XMB(3.9,143,2,1159,0)="""RTN"",""SROCD0"",41,0)"
^XMB(3.9,143,2,1160,0)=" Q"
^XMB(3.9,143,2,1161,0)="""RTN"",""SROCD0"",42,0)"
^XMB(3.9,143,2,1162,0)="POTH W !,""Other Procedures:"",!"
^XMB(3.9,143,2,1163,0)="""RTN"",""SROCD0"",43,0)"
^XMB(3.9,143,2,1164,0)=" N SRSHT,SRNEW,SROLD,SRPOTH,CNT,OTHER,SROPY K SRSEL S CNT=1,OTH=0 F  S OTH=$O(^SRO(136,SRTN,3,OTH)) Q:'OTH!(SRSOUT)  D"
^XMB(3.9,143,2,1165,0)="""RTN"",""SROCD0"",44,0)"
^XMB(3.9,143,2,1166,0)=" .S X=$P($G(^SRO(136,SRTN,3,OTH,0)),U),CPT1="""""
^XMB(3.9,143,2,1167,0)="""RTN"",""SROCD0"",45,0)"
^XMB(3.9,143,2,1168,0)=" .I X S CPT1=X,Y=$$CPT^ICPTCOD(X,$P($G(^SRF(SRTN,0)),""^"",9)),SRCPT=$P(Y,U,2),SRSHT=$P(Y,U,3),Y=SRCPT,SRDA=OTH D SSOTH^SROCPT0 S SRCPT=Y,CPT=SRCPT_""  ""_SRSHT"
^XMB(3.9,143,2,1169,0)="""RTN"",""SROCD0"",46,0)"
^XMB(3.9,143,2,1170,0)=" .W !,CNT_"". CPT Code: ""_CPT"
^XMB(3.9,143,2,1171,0)="""RTN"",""SROCD0"",47,0)"
^XMB(3.9,143,2,1172,0)=" .S SRSEL(CNT)=OTH_""^CPT Code: ""_CPT_""^""_CPT1_""^""_SRCPT"
^XMB(3.9,143,2,1173,0)="""RTN"",""SROCD0"",48,0)"
^XMB(3.9,143,2,1174,0)=" .D OTHADXD^SROCDX1"
^XMB(3.9,143,2,1175,0)="""RTN"",""SROCD0"",49,0)"
^XMB(3.9,143,2,1176,0)=" .S CNT=CNT+1"
^XMB(3.9,143,2,1177,0)="""RTN"",""SROCD0"",50,0)"
^XMB(3.9,143,2,1178,0)=" W !,CNT_"". Enter NEW Other Procedure Code"",! K DIR S DIR(""A"")=""Enter selection"",DIR(0)=""NO^1:""_CNT D ^DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1 Q"
^XMB(3.9,143,2,1179,0)="""RTN"",""SROCD0"",51,0)"
^XMB(3.9,143,2,1180,0)=" I 'Y,$$ADCHK D DELWRN^SROCDX2,PRESS Q"
^XMB(3.9,143,2,1181,0)="""RTN"",""SROCD0"",52,0)"
^XMB(3.9,143,2,1182,0)=" Q:'Y  S (OTHCNT,SRDA)=Y W !! I SRDA<CNT D  G PH"
^XMB(3.9,143,2,1183,0)="""RTN"",""SROCD0"",53,0)"
^XMB(3.9,143,2,1184,0)=" .D HDR^SROCD,OTHCPTD^SROCDX,OTHADX^SROCDX1"
^XMB(3.9,143,2,1185,0)="""RTN"",""SROCD0"",54,0)"
^XMB(3.9,143,2,1186,0)=" .K DIR S DIR(0)=""SO^1:Update Other Procedure CPT Code;2:Update Associated Diagnoses"""
^XMB(3.9,143,2,1187,0)="""RTN"",""SROCD0"",55,0)"
^XMB(3.9,143,2,1188,0)=" .S DIR(""A"")=""Enter selection (1 or 2)"",DIR(""B"")=1 D ^DIR I $D(DTOUT)!$D(DUOUT)!'Y Q"
^XMB(3.9,143,2,1189,0)="""RTN"",""SROCD0"",56,0)"
^XMB(3.9,143,2,1190,0)=" .S SROPY=Y I SROPY=1 D OPEN Q"
^XMB(3.9,143,2,1191,0)="""RTN"",""SROCD0"",57,0)"
^XMB(3.9,143,2,1192,0)=" .I SROPY=2 D OASS"
^XMB(3.9,143,2,1193,0)="""RTN"",""SROCD0"",58,0)"
^XMB(3.9,143,2,1194,0)=" S SRDUP=0 K DIR S DIR(""A"")=""Enter new OTHER PROCEDURE CPT code"",DIR(0)=""136.03,.01"" D ^DIR K DIR S SRNEW=+Y I $D(DTOUT)!$D(DUOUT)!(Y="""") G PH"
^XMB(3.9,143,2,1195,0)="""RTN"",""SROCD0"",59,0)"
^XMB(3.9,143,2,1196,0)=" S SRX=0 F  S SRX=$O(^SRO(136,SRTN,3,SRX)) Q:'SRX  I $P($G(^SRO(136,SRTN,3,SRX,0)),U)=SRNEW S SRDUP=1 Q"
^XMB(3.9,143,2,1197,0)="""RTN"",""SROCD0"",60,0)"
^XMB(3.9,143,2,1198,0)=" K DD,DO S SRDICN=1,DIC=""^SRO(136,SRTN,3,"",X=SRNEW,DIC(0)=""L"" D FILE^DICN K DIC,DD,DO,SRDICN I +Y<0 Q"
^XMB(3.9,143,2,1199,0)="""RTN"",""SROCD0"",61,0)"
^XMB(3.9,143,2,1200,0)=" K DA S (SRPOTH,DA)=+Y,DA(1)=SRTN D OPROC^SROMOD0 K DA"
^XMB(3.9,143,2,1201,0)="""RTN"",""SROCD0"",62,0)"
^XMB(3.9,143,2,1202,0)=" S SRDA=CNT,OTHER=SRNEW D COTHADX^SROCDX"
^XMB(3.9,143,2,1203,0)="""RTN"",""SROCD0"",63,0)"
^XMB(3.9,143,2,1204,0)="PH D HDR^SROCD D POTH"
^XMB(3.9,143,2,1205,0)="""RTN"",""SROCD0"",64,0)"
^XMB(3.9,143,2,1206,0)=" Q"
^XMB(3.9,143,2,1207,0)="""RTN"",""SROCD0"",65,0)"
^XMB(3.9,143,2,1208,0)="OPEN N SRDIRED W ! S SROLD=$P(SRSEL(SRDA),U,3),SRDIE=1,SRDIRED=0 K DA,DIE,DIR,DR"
^XMB(3.9,143,2,1209,0)="""RTN"",""SROCD0"",66,0)"
^XMB(3.9,143,2,1210,0)=" S DA=$P(SRSEL(SRDA),U),DA(1)=SRTN,DIE=""^SRO(136,SRTN,3,"",DR="".01T"" D ^DIE K DIE,DR,SRDIE Q:$D(Y)"
^XMB(3.9,143,2,1211,0)="""RTN"",""SROCD0"",67,0)"
^XMB(3.9,143,2,1212,0)=" I 'SRDIRED K DA Q"
^XMB(3.9,143,2,1213,0)="""RTN"",""SROCD0"",68,0)"
^XMB(3.9,143,2,1214,0)=" D OPROC^SROMOD0"
^XMB(3.9,143,2,1215,0)="""RTN"",""SROCD0"",69,0)"
^XMB(3.9,143,2,1216,0)=" S X=$P($G(^SRO(136,SRTN,3,$P(SRSEL(SRDA),U),0)),""^"") I SROLD'=X D SADXO^SROCDX2 K DA"
^XMB(3.9,143,2,1217,0)="""RTN"",""SROCD0"",70,0)"
^XMB(3.9,143,2,1218,0)="OASS S SRPOTH=$P(SRSEL(SRDA),U) D COTHADX^SROCDX"
^XMB(3.9,143,2,1219,0)="""RTN"",""SROCD0"",71,0)"
^XMB(3.9,143,2,1220,0)=" Q"
^XMB(3.9,143,2,1221,0)="""RTN"",""SROCD0"",72,0)"
^XMB(3.9,143,2,1222,0)="DUP K DIR S DIR(""A"",1)="""",DIR(""A"",2)=""This code has already been selected. Please try again."",DIR(""A"",3)="""",DIR(""A"")=""Press the ENTER key to continue"",DIR(0)=""FO"" D ^DIR K DIR"
^XMB(3.9,143,2,1223,0)="""RTN"",""SROCD0"",73,0)"
^XMB(3.9,143,2,1224,0)=" Q"
^XMB(3.9,143,2,1225,0)="""RTN"",""SROCD0"",74,0)"
^XMB(3.9,143,2,1226,0)="DOTH W !,""Other Postop Diagnosis:"",!"
^XMB(3.9,143,2,1227,0)="""RTN"",""SROCD0"",75,0)"
^XMB(3.9,143,2,1228,0)=" N CNT,SRDUP,SRI,SRJ,SRNEW,SRX,SCEC,ENVARR,SRNUM S SCEC=$$SCEC()"
^XMB(3.9,143,2,1229,0)="""RTN"",""SROCD0"",76,0)"
^XMB(3.9,143,2,1230,0)=" K SRSEL S CNT=1,OTH=0 F  S OTH=$O(^SRO(136,SRTN,4,OTH)) Q:'OTH!(SRSOUT)  D"
^XMB(3.9,143,2,1231,0)="""RTN"",""SROCD0"",77,0)"
^XMB(3.9,143,2,1232,0)=" .S (SRX,X)=$P(^SRO(136,SRTN,4,OTH,0),U),SRDIAG=""NOT ENTERED"""
^XMB(3.9,143,2,1233,0)="""RTN"",""SROCD0"",78,0)"
^XMB(3.9,143,2,1234,0)=" .I X S Y=$$ICDDX^ICDCODE(X,$P($G(^SRF(SRTN,0)),""^"",9)),SRNUM=$P(Y,U,2),SRDES=$P(Y,U,4),SRDIAG=SRNUM_""  ""_SRDES"
^XMB(3.9,143,2,1235,0)="""RTN"",""SROCD0"",79,0)"
^XMB(3.9,143,2,1236,0)=" .W !,CNT_"". ICD9 Code: ""_SRDIAG S SRSEL(CNT)=OTH_""^ICD9 Code: ""_SRDIAG_""^""_SRNUM_""^""_SRX"
^XMB(3.9,143,2,1237,0)="""RTN"",""SROCD0"",80,0)"
^XMB(3.9,143,2,1238,0)=" .D:SCEC OIND"
^XMB(3.9,143,2,1239,0)="""RTN"",""SROCD0"",81,0)"
^XMB(3.9,143,2,1240,0)=" .S CNT=CNT+1 I 'SCEC W !"
^XMB(3.9,143,2,1241,0)="""RTN"",""SROCD0"",82,0)"
^XMB(3.9,143,2,1242,0)=" W !,CNT_"". Enter NEW Other Postop Diagnosis Code"",! K DIR S DIR(""A"")=""Enter selection"",DIR(0)=""NO^1:""_CNT D ^DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1 Q"
^XMB(3.9,143,2,1243,0)="""RTN"",""SROCD0"",83,0)"
^XMB(3.9,143,2,1244,0)=" Q:'Y  S SRDA=Y W !! I SRDA<CNT D  G DH"
^XMB(3.9,143,2,1245,0)="""RTN"",""SROCD0"",84,0)"
^XMB(3.9,143,2,1246,0)=" .D HDR^SROCD W !,""Other Postop Diagnosis:"",!!,SRDA_"". ""_$P(SRSEL(SRDA),U,2) I SCEC S OTH=$P(SRSEL(SRDA),""^"") D OIND"
^XMB(3.9,143,2,1247,0)="""RTN"",""SROCD0"",85,0)"
^XMB(3.9,143,2,1248,0)=" .K DIR S DIR(0)=""SO^1:Update Other Postop Diagnosis Code;2:Update Service Connected/Environmental Indicators only"""
^XMB(3.9,143,2,1249,0)="""RTN"",""SROCD0"",86,0)"
^XMB(3.9,143,2,1250,0)=" .S DIR(""A"")=""Enter selection (1 or 2)"",DIR(""B"")=1 D ^DIR I $D(DTOUT)!$D(DUOUT)!'Y Q"
^XMB(3.9,143,2,1251,0)="""RTN"",""SROCD0"",87,0)"
^XMB(3.9,143,2,1252,0)=" .S SRDXY=Y D:SRDXY=1 ODXEN D:SRDXY=2 OSCEI Q"
^XMB(3.9,143,2,1253,0)="""RTN"",""SROCD0"",88,0)"
^XMB(3.9,143,2,1254,0)=" K DIR,SRCL S DIR(""A"")=""Enter new OTHER POSTOP DIAGNOSIS Code"",DIR(0)=""136.04,.01"" D ^DIR K DIR S SRNEW=+Y I $D(DTOUT)!$D(DUOUT)!(Y="""") G DH"
^XMB(3.9,143,2,1255,0)="""RTN"",""SROCD0"",89,0)"
^XMB(3.9,143,2,1256,0)=" S (SRDUP,SRI)=0 F  S SRI=$O(SRADIAG(SRI)) Q:'SRI  I SRADIAG(SRI)=SRNEW S SRDUP=1 Q"
^XMB(3.9,143,2,1257,0)="""RTN"",""SROCD0"",90,0)"
^XMB(3.9,143,2,1258,0)=" I SRDUP D DUP G DH"
^XMB(3.9,143,2,1259,0)="""RTN"",""SROCD0"",91,0)"
^XMB(3.9,143,2,1260,0)=" S:'$D(DA(1)) DA(1)=SRTN"
^XMB(3.9,143,2,1261,0)="""RTN"",""SROCD0"",92,0)"
^XMB(3.9,143,2,1262,0)=" K DD,DO S DIC=""^SRO(136,SRTN,4,"",X=SRNEW,DIC(0)=""L"" D FILE^DICN K DA,DD,DIC,DO,DR"
^XMB(3.9,143,2,1263,0)="""RTN"",""SROCD0"",93,0)"
^XMB(3.9,143,2,1264,0)=" D REMIND"
^XMB(3.9,143,2,1265,0)="""RTN"",""SROCD0"",94,0)"
^XMB(3.9,143,2,1266,0)="DH D PASSDIAG^SROCDX1,ASSDIAG^SROCDX1,HDR^SROCD,DOTH"
^XMB(3.9,143,2,1267,0)="""RTN"",""SROCD0"",95,0)"
^XMB(3.9,143,2,1268,0)=" Q"
^XMB(3.9,143,2,1269,0)="""RTN"",""SROCD0"",96,0)"
^XMB(3.9,143,2,1270,0)="ODXEN W ! K DIR S SROLD=$P(SRSEL(SRDA),U,4),DIR(0)=""136.04,.01"",DIR(""B"")=$P(SRSEL(SRDA),U,3),DIR(""A"")=""Other Postop Diagnosis Code"""
^XMB(3.9,143,2,1271,0)="""RTN"",""SROCD0"",97,0)"
^XMB(3.9,143,2,1272,0)=" D ^DIR K DIR S SRNEW=+Y I $D(DTOUT)!$D(DUOUT) Q"
^XMB(3.9,143,2,1273,0)="""RTN"",""SROCD0"",98,0)"
^XMB(3.9,143,2,1274,0)=" I X=""@"" S SRSOUT=0 D  I SRSOUT S SRSOUT=0 Q"
^XMB(3.9,143,2,1275,0)="""RTN"",""SROCD0"",99,0)"
^XMB(3.9,143,2,1276,0)=" .K DIR S DIR(""A"")=""SURE YOU WANT TO DELETE THE ENTIRE OTHER POSTOP DIAGNOSIS CODE"",DIR(0)=""YO"",DIR(""B"")=""NO"""
^XMB(3.9,143,2,1277,0)="""RTN"",""SROCD0"",100,0)"
^XMB(3.9,143,2,1278,0)=" .D ^DIR K DIR I $D(DTOUT)!$D(DUOUT)!'Y S SRSOUT=1 Q"
^XMB(3.9,143,2,1279,0)="""RTN"",""SROCD0"",101,0)"
^XMB(3.9,143,2,1280,0)=" .K DA,DIE,DR S DA=$P(SRSEL(SRDA),U),DA(1)=SRTN,DIE=""^SRO(136,SRTN,4,"",DR="".01///@"" D ^DIE"
^XMB(3.9,143,2,1281,0)="""RTN"",""SROCD0"",102,0)"
^XMB(3.9,143,2,1282,0)=" .S X=$P(SRSEL(SRDA),U,4) D DELASOC^SROCDX2 K DA,DIE,DR,SRSEL(SRDA)"
^XMB(3.9,143,2,1283,0)="""RTN"",""SROCD0"",103,0)"
^XMB(3.9,143,2,1284,0)=" .D REMIND S SRSOUT=1"
^XMB(3.9,143,2,1285,0)="""RTN"",""SROCD0"",104,0)"
^XMB(3.9,143,2,1286,0)=" S (SRDUP,SRI)=0 F  S SRI=$O(SRADIAG(SRI)) Q:'SRI  I SRADIAG(SRI)=SRNEW,SROLD'=SRNEW S SRDUP=1 Q"
^XMB(3.9,143,2,1287,0)="""RTN"",""SROCD0"",105,0)"
^XMB(3.9,143,2,1288,0)=" I SRDUP D DUP Q"
^XMB(3.9,143,2,1289,0)="""RTN"",""SROCD0"",106,0)"
^XMB(3.9,143,2,1290,0)=" I SRNEW=SROLD Q"
^XMB(3.9,143,2,1291,0)="""RTN"",""SROCD0"",107,0)"
^XMB(3.9,143,2,1292,0)=" I SRNEW,SRNEW'=SROLD K DA,DIE,DIR S DA=$P(SRSEL(SRDA),U),DA(1)=SRTN,DIE=""^SRO(136,SRTN,4,"",DR="".01////""_SRNEW D ^DIE"
^XMB(3.9,143,2,1293,0)="""RTN"",""SROCD0"",108,0)"
^XMB(3.9,143,2,1294,0)=" S X=$P(SRSEL(SRDA),U,4) D DELASOC^SROCDX2 K DA,DIE,DR"
^XMB(3.9,143,2,1295,0)="""RTN"",""SROCD0"",109,0)"
^XMB(3.9,143,2,1296,0)=" D REMIND"
^XMB(3.9,143,2,1297,0)="""RTN"",""SROCD0"",110,0)"
^XMB(3.9,143,2,1298,0)="OSCEI I '$D(SRCL) W !!,""  >>>  No SC/EI information required for this patient.  <<<"" D PRESS Q"
^XMB(3.9,143,2,1299,0)="""RTN"",""SROCD0"",111,0)"
^XMB(3.9,143,2,1300,0)=" D OSCEI^SROCD"
^XMB(3.9,143,2,1301,0)="""RTN"",""SROCD0"",112,0)"
^XMB(3.9,143,2,1302,0)=" Q"
^XMB(3.9,143,2,1303,0)="""RTN"",""SROCD0"",113,0)"
^XMB(3.9,143,2,1304,0)="SCEC() N SRSDATE,DFN,SCEC S SRSDATE=$S($D(SRTN):$P(^SRF(SRTN,0),U,9),1:DT)"
^XMB(3.9,143,2,1305,0)="""RTN"",""SROCD0"",114,0)"
^XMB(3.9,143,2,1306,0)=" S DFN=$P(^SRF(SRTN,0),U) D CL^SDCO21(DFN,SRSDATE,,.SRCL)"
^XMB(3.9,143,2,1307,0)="""RTN"",""SROCD0"",115,0)"
^XMB(3.9,143,2,1308,0)=" S SCEC=$S($D(SRCL):1,1:0)"
^XMB(3.9,143,2,1309,0)="""RTN"",""SROCD0"",116,0)"
^XMB(3.9,143,2,1310,0)=" Q SCEC"
^XMB(3.9,143,2,1311,0)="""RTN"",""SROCD0"",117,0)"
^XMB(3.9,143,2,1312,0)="ADCHK() ; check for other procedures with no associated diagnosis"
^XMB(3.9,143,2,1313,0)="""RTN"",""SROCD0"",118,0)"
^XMB(3.9,143,2,1314,0)=" N SRADX,SROTH,SRQ S (SRADX,SROTH,SRQ)=0"
^XMB(3.9,143,2,1315,0)="""RTN"",""SROCD0"",119,0)"
^XMB(3.9,143,2,1316,0)=" F  S SROTH=$O(^SRO(136,SRTN,3,SROTH)) Q:'SROTH  I '$O(^SRO(136,SRTN,3,SROTH,2,0)) S SRADX=1 Q"
^XMB(3.9,143,2,1317,0)="""RTN"",""SROCD0"",120,0)"
^XMB(3.9,143,2,1318,0)=" Q SRADX"
^XMB(3.9,143,2,1319,0)="""RTN"",""SROCD0"",121,0)"
^XMB(3.9,143,2,1320,0)="REMIND ; display reminder to update procedure/diagnosis associations"
^XMB(3.9,143,2,1321,0)="""RTN"",""SROCD0"",122,0)"
^XMB(3.9,143,2,1322,0)=" K DIR W ! S DIR(""A"",1)=""Please review and update procedure associations for this diagnosis."""
^XMB(3.9,143,2,1323,0)="""RTN"",""SROCD0"",123,0)"
^XMB(3.9,143,2,1324,0)=" S DIR(""A"",2)="""",DIR(""A"")=""Press Enter/Return key to continue "",DIR(0)=""FOA"" D ^DIR K DIR"
^XMB(3.9,143,2,1325,0)="""RTN"",""SROCD0"",124,0)"
^XMB(3.9,143,2,1326,0)=" Q"
^XMB(3.9,143,2,1327,0)="""RTN"",""SROCD0"",125,0)"
^XMB(3.9,143,2,1328,0)="OIND D GETS^DIQ(136.04,OTH_"",""_SRTN_"","","".02:.09"",""E"",""ENVARR"")"
^XMB(3.9,143,2,1329,0)="""RTN"",""SROCD0"",126,0)"
^XMB(3.9,143,2,1330,0)=" I $D(ENVARR(136.04,OTH_"",""_SRTN_"","",.02,""E"")) D"
^XMB(3.9,143,2,1331,0)="""RTN"",""SROCD0"",127,0)"
^XMB(3.9,143,2,1332,0)=" .N SRCOLSPN S SRCOLSPN=13 W !"
^XMB(3.9,143,2,1333,0)="""RTN"",""SROCD0"",128,0)"
^XMB(3.9,143,2,1334,0)=" .I $D(SRCL(3)) W ?SRCOLSPN,""SC:"",$E(ENVARR(136.04,OTH_"",""_SRTN_"","",.02,""E"")) S SRCOLSPN=SRCOLSPN+8"
^XMB(3.9,143,2,1335,0)="""RTN"",""SROCD0"",129,0)"
^XMB(3.9,143,2,1336,0)=" .I $D(SRCL(7)) W ?SRCOLSPN,""CV:"",$E(ENVARR(136.04,OTH_"",""_SRTN_"","",.08,""E"")) S SRCOLSPN=SRCOLSPN+8"
^XMB(3.9,143,2,1337,0)="""RTN"",""SROCD0"",130,0)"
^XMB(3.9,143,2,1338,0)=" .I $D(SRCL(1)) W ?SRCOLSPN,""AO:"",$E(ENVARR(136.04,OTH_"",""_SRTN_"","",.03,""E"")) S SRCOLSPN=SRCOLSPN+8"
^XMB(3.9,143,2,1339,0)="""RTN"",""SROCD0"",131,0)"
^XMB(3.9,143,2,1340,0)=" .I $D(SRCL(2)) W ?SRCOLSPN,""IR:"",$E(ENVARR(136.04,OTH_"",""_SRTN_"","",.04,""E"")) S SRCOLSPN=SRCOLSPN+8"
^XMB(3.9,143,2,1341,0)="""RTN"",""SROCD0"",132,0)"
^XMB(3.9,143,2,1342,0)=" .I $D(SRCL(4)) W ?SRCOLSPN,""EC:"",$E(ENVARR(136.04,OTH_"",""_SRTN_"","",.07,""E"")) S SRCOLSPN=SRCOLSPN+8"
^XMB(3.9,143,2,1343,0)="""RTN"",""SROCD0"",133,0)"
^XMB(3.9,143,2,1344,0)=" .I $D(SRCL(8)) W ?SRCOLSPN,""SHAD:"",$E(ENVARR(136.04,OTH_"",""_SRTN_"","",.09,""E"")) S SRCOLSPN=SRCOLSPN+8"
^XMB(3.9,143,2,1345,0)="""RTN"",""SROCD0"",134,0)"
^XMB(3.9,143,2,1346,0)=" .I $D(SRCL(5)) W ?SRCOLSPN,""MST:"",$E(ENVARR(136.04,OTH_"",""_SRTN_"","",.05,""E"")) S SRCOLSPN=SRCOLSPN+8"
^XMB(3.9,143,2,1347,0)="""RTN"",""SROCD0"",135,0)"
^XMB(3.9,143,2,1348,0)=" .I $D(SRCL(6)) W ?SRCOLSPN,""H&N:"",$E(ENVARR(136.04,OTH_"",""_SRTN_"","",.06,""E"")) S SRCOLSPN=SRCOLSPN+8"
^XMB(3.9,143,2,1349,0)="""RTN"",""SROCD0"",136,0)"
^XMB(3.9,143,2,1350,0)=" Q"
^XMB(3.9,143,2,1351,0)="""RTN"",""SROCD1"")"
^XMB(3.9,143,2,1352,0)="0^4^B22252247^B21644302"
^XMB(3.9,143,2,1353,0)="""RTN"",""SROCD1"",1,0)"
^XMB(3.9,143,2,1354,0)="SROCD1 ;BIR/ADM - CREATE CODING RECORD ;05/16/05"
^XMB(3.9,143,2,1355,0)="""RTN"",""SROCD1"",2,0)"
^XMB(3.9,143,2,1356,0)=" ;;3.0; Surgery ;**142,152**;24 Jun 93"
^XMB(3.9,143,2,1357,0)="""RTN"",""SROCD1"",3,0)"
^XMB(3.9,143,2,1358,0)=" N SR,SRD,SRDX,SRDICN,SRIEN,SRM,SRMOD,SRN,SRO,SROTH,SRP,SRPD,SRX,SRY,X,Y"
^XMB(3.9,143,2,1359,0)="""RTN"",""SROCD1"",4,0)"
^XMB(3.9,143,2,1360,0)=" I $P($G(^SRO(136,SRTN,0)),""^"")'=SRTN D NEW"
^XMB(3.9,143,2,1361,0)="""RTN"",""SROCD1"",5,0)"
^XMB(3.9,143,2,1362,0)=" S SR(0)=$G(^SRF(SRTN,0))"
^XMB(3.9,143,2,1363,0)="""RTN"",""SROCD1"",6,0)"
^XMB(3.9,143,2,1364,0)=" S $P(^SRO(136,SRTN,0),""^"",2)=$P($G(^SRF(SRTN,""OP"")),""^"",2)"
^XMB(3.9,143,2,1365,0)="""RTN"",""SROCD1"",7,0)"
^XMB(3.9,143,2,1366,0)=" S $P(^SRO(136,SRTN,0),""^"",3)=$P($G(^SRF(SRTN,34)),""^"",2)"
^XMB(3.9,143,2,1367,0)="""RTN"",""SROCD1"",8,0)"
^XMB(3.9,143,2,1368,0)="SC S $P(^SRO(136,SRTN,0),""^"",4)=$P(SR(0),""^"",16)"
^XMB(3.9,143,2,1369,0)="""RTN"",""SROCD1"",9,0)"
^XMB(3.9,143,2,1370,0)="AO S $P(^SRO(136,SRTN,0),""^"",5)=$P(SR(0),""^"",17)"
^XMB(3.9,143,2,1371,0)="""RTN"",""SROCD1"",10,0)"
^XMB(3.9,143,2,1372,0)="IR S $P(^SRO(136,SRTN,0),""^"",6)=$P(SR(0),""^"",18)"
^XMB(3.9,143,2,1373,0)="""RTN"",""SROCD1"",11,0)"
^XMB(3.9,143,2,1374,0)="EC S $P(^SRO(136,SRTN,0),""^"",7)=$P(SR(0),""^"",19)"
^XMB(3.9,143,2,1375,0)="""RTN"",""SROCD1"",12,0)"
^XMB(3.9,143,2,1376,0)="MST S $P(^SRO(136,SRTN,0),""^"",8)=$P(SR(0),""^"",22)"
^XMB(3.9,143,2,1377,0)="""RTN"",""SROCD1"",13,0)"
^XMB(3.9,143,2,1378,0)="HNC S $P(^SRO(136,SRTN,0),""^"",9)=$P(SR(0),""^"",23)"
^XMB(3.9,143,2,1379,0)="""RTN"",""SROCD1"",14,0)"
^XMB(3.9,143,2,1380,0)="CV S $P(^SRO(136,SRTN,0),""^"",10)=$P(SR(0),""^"",24)"
^XMB(3.9,143,2,1381,0)="""RTN"",""SROCD1"",15,0)"
^XMB(3.9,143,2,1382,0)="PRJ S $P(^SRO(136,SRTN,0),""^"",11)=$P(SR(0),""^"",25)"
^XMB(3.9,143,2,1383,0)="""RTN"",""SROCD1"",16,0)"
^XMB(3.9,143,2,1384,0)="PMOD S SRM=0 F  S SRM=$O(^SRF(SRTN,""OPMOD"",SRM)) Q:'SRM  D"
^XMB(3.9,143,2,1385,0)="""RTN"",""SROCD1"",17,0)"
^XMB(3.9,143,2,1386,0)=" .S SRMOD=$P(^SRF(SRTN,""OPMOD"",SRM,0),""^"")"
^XMB(3.9,143,2,1387,0)="""RTN"",""SROCD1"",18,0)"
^XMB(3.9,143,2,1388,0)=" .S SRY(136.01,""+1,""_SRTN_"","",.01)=SRMOD D UPDATE^DIE("""",""SRY"") K SRY"
^XMB(3.9,143,2,1389,0)="""RTN"",""SROCD1"",19,0)"
^XMB(3.9,143,2,1390,0)="PDX S SRD=0 F  S SRD=$O(^SRF(SRTN,""PADX"",SRD)) Q:'SRD  D"
^XMB(3.9,143,2,1391,0)="""RTN"",""SROCD1"",20,0)"
^XMB(3.9,143,2,1392,0)=" .S SRX=$P(^SRF(SRTN,""PADX"",SRD,0),""^"")"
^XMB(3.9,143,2,1393,0)="""RTN"",""SROCD1"",21,0)"
^XMB(3.9,143,2,1394,0)=" .I SRX=0 S SRDX=$P($G(^SRF(SRTN,34)),""^"",2)"
^XMB(3.9,143,2,1395,0)="""RTN"",""SROCD1"",22,0)"
^XMB(3.9,143,2,1396,0)=" .E  S SRDX=$P($G(^SRF(SRTN,15,SRX,0)),""^"",3)"
^XMB(3.9,143,2,1397,0)="""RTN"",""SROCD1"",23,0)"
^XMB(3.9,143,2,1398,0)=" .I SRDX S SRY(136.02,""+1,""_SRTN_"","",.01)=SRDX D UPDATE^DIE("""",""SRY"") K SRY"
^XMB(3.9,143,2,1399,0)="""RTN"",""SROCD1"",24,0)"
^XMB(3.9,143,2,1400,0)="POTH S SRO=0 F  S SRO=$O(^SRF(SRTN,13,SRO)) Q:'SRO  D"
^XMB(3.9,143,2,1401,0)="""RTN"",""SROCD1"",25,0)"
^XMB(3.9,143,2,1402,0)=" .S SROTH=$P($G(^SRF(SRTN,13,SRO,2)),""^"") Q:'SROTH  S SRDICN=1"
^XMB(3.9,143,2,1403,0)="""RTN"",""SROCD1"",26,0)"
^XMB(3.9,143,2,1404,0)=" .K DD,DO,DIC S DIC=""^SRO(136,SRTN,3,"",DIC(0)=""L"",X=SROTH D FILE^DICN K DA,DD,DIC,DO,DR S SRIEN=+Y I SRIEN'>0 Q"
^XMB(3.9,143,2,1405,0)="""RTN"",""SROCD1"",27,0)"
^XMB(3.9,143,2,1406,0)=" .S SRM=0 F  S SRM=$O(^SRF(SRTN,13,SRO,""MOD"",SRM)) Q:'SRM  D"
^XMB(3.9,143,2,1407,0)="""RTN"",""SROCD1"",28,0)"
^XMB(3.9,143,2,1408,0)=" ..S SRMOD=$P(^SRF(SRTN,13,SRO,""MOD"",SRM,0),""^"")"
^XMB(3.9,143,2,1409,0)="""RTN"",""SROCD1"",29,0)"
^XMB(3.9,143,2,1410,0)=" ..S SRY(136.31,""+1,""_SRIEN_"",""_SRTN_"","",.01)=SRMOD D UPDATE^DIE("""",""SRY"") K SRY"
^XMB(3.9,143,2,1411,0)="""RTN"",""SROCD1"",30,0)"
^XMB(3.9,143,2,1412,0)=" .S SRD=0 F  S SRD=$O(^SRF(SRTN,13,SRO,""OADX"",SRD)) Q:'SRD  D"
^XMB(3.9,143,2,1413,0)="""RTN"",""SROCD1"",31,0)"
^XMB(3.9,143,2,1414,0)=" ..S SRX=$P(^SRF(SRTN,13,SRO,""OADX"",SRD,0),""^"")"
^XMB(3.9,143,2,1415,0)="""RTN"",""SROCD1"",32,0)"
^XMB(3.9,143,2,1416,0)=" ..I SRX=0 S SRDX=$P($G(^SRF(SRTN,34)),""^"",2)"
^XMB(3.9,143,2,1417,0)="""RTN"",""SROCD1"",33,0)"
^XMB(3.9,143,2,1418,0)=" ..E  S SRDX=$P($G(^SRF(SRTN,15,SRX,0)),""^"",3)"
^XMB(3.9,143,2,1419,0)="""RTN"",""SROCD1"",34,0)"
^XMB(3.9,143,2,1420,0)=" ..I SRDX S SRY(136.32,""+1,""_SRIEN_"",""_SRTN_"","",.01)=SRDX D UPDATE^DIE("""",""SRY"") K SRY"
^XMB(3.9,143,2,1421,0)="""RTN"",""SROCD1"",35,0)"
^XMB(3.9,143,2,1422,0)=" ; other diagnoses"
^XMB(3.9,143,2,1423,0)="""RTN"",""SROCD1"",36,0)"
^XMB(3.9,143,2,1424,0)=" S SRP=0 F  S SRP=$O(^SRF(SRTN,15,SRP)) Q:'SRP  D"
^XMB(3.9,143,2,1425,0)="""RTN"",""SROCD1"",37,0)"
^XMB(3.9,143,2,1426,0)=" .S SRPD=$P(^SRF(SRTN,15,SRP,0),""^"",3) Q:'SRPD  S SRIS=$G(^SRF(SRTN,15,SRP,2))"
^XMB(3.9,143,2,1427,0)="""RTN"",""SROCD1"",38,0)"
^XMB(3.9,143,2,1428,0)=" .S SRY(136.04,""+1,""_SRTN_"","",.01)=SRPD,SRY(136.04,""+1,""_SRTN_"","",.02)=$P(SRIS,""^"")"
^XMB(3.9,143,2,1429,0)="""RTN"",""SROCD1"",39,0)"
^XMB(3.9,143,2,1430,0)=" .S SRY(136.04,""+1,""_SRTN_"","",.03)=$P(SRIS,""^"",2),SRY(136.04,""+1,""_SRTN_"","",.04)=$P(SRIS,""^"",3)"
^XMB(3.9,143,2,1431,0)="""RTN"",""SROCD1"",40,0)"
^XMB(3.9,143,2,1432,0)=" .S SRY(136.04,""+1,""_SRTN_"","",.05)=$P(SRIS,""^"",4),SRY(136.04,""+1,""_SRTN_"","",.06)=$P(SRIS,""^"",5)"
^XMB(3.9,143,2,1433,0)="""RTN"",""SROCD1"",41,0)"
^XMB(3.9,143,2,1434,0)=" .S SRY(136.04,""+1,""_SRTN_"","",.07)=$P(SRIS,""^"",6),SRY(136.04,""+1,""_SRTN_"","",.08)=$P(SRIS,""^"",7)"
^XMB(3.9,143,2,1435,0)="""RTN"",""SROCD1"",42,0)"
^XMB(3.9,143,2,1436,0)=" .S SRY(136.04,""+1,""_SRTN_"","",.09)=$P(SRIS,""^"",8)"
^XMB(3.9,143,2,1437,0)="""RTN"",""SROCD1"",43,0)"
^XMB(3.9,143,2,1438,0)=" .D UPDATE^DIE("""",""SRY"") K SRIS,SRY"
^XMB(3.9,143,2,1439,0)="""RTN"",""SROCD1"",44,0)"
^XMB(3.9,143,2,1440,0)=" Q"
^XMB(3.9,143,2,1441,0)="""RTN"",""SROCD1"",45,0)"
^XMB(3.9,143,2,1442,0)="NEW K DA,DIC,DD,DO,DINUM S (DINUM,X)=SRTN,DIC=""^SRO(136,"",DIC(0)=""L"" D FILE^DICN K DD,DO,DIC,DINUM"
^XMB(3.9,143,2,1443,0)="""RTN"",""SROCD1"",46,0)"
^XMB(3.9,143,2,1444,0)=" Q"
^XMB(3.9,143,2,1445,0)="""RTN"",""SROCD1"",47,0)"
^XMB(3.9,143,2,1446,0)="CHNG() ; check for changes to data"
^XMB(3.9,143,2,1447,0)="""RTN"",""SROCD1"",48,0)"
^XMB(3.9,143,2,1448,0)=" N SRI,SRJ,SRK,SRS,SRCHNG S SRCHNG=0"
^XMB(3.9,143,2,1449,0)="""RTN"",""SROCD1"",49,0)"
^XMB(3.9,143,2,1450,0)=" M ^TMP(""SRED2"",$J,SRTN)=^SRO(136,SRTN)"
^XMB(3.9,143,2,1451,0)="""RTN"",""SROCD1"",50,0)"
^XMB(3.9,143,2,1452,0)=" I $G(^TMP(""SRED1"",$J,SRTN,0))'=$G(^TMP(""SRED2"",$J,SRTN,0)) Q 1"
^XMB(3.9,143,2,1453,0)="""RTN"",""SROCD1"",51,0)"
^XMB(3.9,143,2,1454,0)=" D COMP"
^XMB(3.9,143,2,1455,0)="""RTN"",""SROCD1"",52,0)"
^XMB(3.9,143,2,1456,0)=" Q SRCHNG"
^XMB(3.9,143,2,1457,0)="""RTN"",""SROCD1"",53,0)"
^XMB(3.9,143,2,1458,0)="COMP S SRI=0 F  S SRI=$O(^TMP(""SRED1"",$J,SRTN,1,SRI)) Q:'SRI!SRCHNG  I $G(^TMP(""SRED1"",$J,SRTN,1,SRI,0))'=$G(^TMP(""SRED2"",$J,SRTN,1,SRI,0)) S SRCHNG=1 Q"
^XMB(3.9,143,2,1459,0)="""RTN"",""SROCD1"",54,0)"
^XMB(3.9,143,2,1460,0)=" S SRI=0 F  S SRI=$O(^TMP(""SRED1"",$J,SRTN,2,SRI)) Q:'SRI!SRCHNG  I $G(^TMP(""SRED1"",$J,SRTN,2,SRI,0))'=$G(^TMP(""SRED2"",$J,SRTN,2,SRI,0)) S SRCHNG=1 Q"
^XMB(3.9,143,2,1461,0)="""RTN"",""SROCD1"",55,0)"
^XMB(3.9,143,2,1462,0)=" S SRI=0 F  S SRI=$O(^TMP(""SRED1"",$J,SRTN,3,SRI)) Q:'SRI!SRCHNG  D  Q:SRCHNG"
^XMB(3.9,143,2,1463,0)="""RTN"",""SROCD1"",56,0)"
^XMB(3.9,143,2,1464,0)=" .I $G(^TMP(""SRED1"",$J,SRTN,3,SRI,0))'=$G(^TMP(""SRED2"",$J,SRTN,3,SRI,0)) S SRCHNG=1 Q"
^XMB(3.9,143,2,1465,0)="""RTN"",""SROCD1"",57,0)"
^XMB(3.9,143,2,1466,0)=" .F SRS=1,2 S SRK=0 F  S SRK=$O(^TMP(""SRED1"",$J,SRTN,3,SRI,SRS,SRK)) Q:'SRK!SRCHNG  I $G(^TMP(""SRED1"",$J,SRTN,3,SRI,SRS,SRK,0))'=$G(^TMP(""SRED2"",$J,SRTN,3,SRI,SRS,SRK,0)) S SRCHNG=1 Q"
^XMB(3.9,143,2,1467,0)="""RTN"",""SROCD1"",58,0)"
^XMB(3.9,143,2,1468,0)=" S SRI=0 F  S SRI=$O(^TMP(""SRED1"",$J,SRTN,4,SRI)) Q:'SRI!SRCHNG  I $G(^TMP(""SRED1"",$J,SRTN,4,SRI,0))'=$G(^TMP(""SRED2"",$J,SRTN,4,SRI,0)) S SRCHNG=1 Q"
^XMB(3.9,143,2,1469,0)="""RTN"",""SROCD1"",59,0)"
^XMB(3.9,143,2,1470,0)=" S SRI=0 F  S SRI=$O(^TMP(""SRED2"",$J,SRTN,1,SRI)) Q:'SRI!SRCHNG  I $G(^TMP(""SRED2"",$J,SRTN,1,SRI,0))'=$G(^TMP(""SRED1"",$J,SRTN,1,SRI,0)) S SRCHNG=1 Q"
^XMB(3.9,143,2,1471,0)="""RTN"",""SROCD1"",60,0)"
^XMB(3.9,143,2,1472,0)=" S SRI=0 F  S SRI=$O(^TMP(""SRED2"",$J,SRTN,2,SRI)) Q:'SRI!SRCHNG  I $G(^TMP(""SRED2"",$J,SRTN,2,SRI,0))'=$G(^TMP(""SRED1"",$J,SRTN,2,SRI,0)) S SRCHNG=1 Q"
^XMB(3.9,143,2,1473,0)="""RTN"",""SROCD1"",61,0)"
^XMB(3.9,143,2,1474,0)=" S SRI=0 F  S SRI=$O(^TMP(""SRED2"",$J,SRTN,3,SRI)) Q:'SRI!SRCHNG  D  Q:SRCHNG"
^XMB(3.9,143,2,1475,0)="""RTN"",""SROCD1"",62,0)"
^XMB(3.9,143,2,1476,0)=" .I $G(^TMP(""SRED2"",$J,SRTN,3,SRI,0))'=$G(^TMP(""SRED1"",$J,SRTN,3,SRI,0)) S SRCHNG=1 Q"
^XMB(3.9,143,2,1477,0)="""RTN"",""SROCD1"",63,0)"
^XMB(3.9,143,2,1478,0)=" .F SRS=1,2 S SRK=0 F  S SRK=$O(^TMP(""SRED2"",$J,SRTN,3,SRI,SRS,SRK)) Q:'SRK!SRCHNG  I $G(^TMP(""SRED2"",$J,SRTN,3,SRI,SRS,SRK,0))'=$G(^TMP(""SRED1"",$J,SRTN,3,SRI,SRS,SRK,0)) S SRCHNG=1 Q"
^XMB(3.9,143,2,1479,0)="""RTN"",""SROCD1"",64,0)"
^XMB(3.9,143,2,1480,0)=" S SRI=0 F  S SRI=$O(^TMP(""SRED2"",$J,SRTN,4,SRI)) Q:'SRI!SRCHNG  I $G(^TMP(""SRED2"",$J,SRTN,4,SRI,0))'=$G(^TMP(""SRED1"",$J,SRTN,4,SRI,0)) S SRCHNG=1 Q"
^XMB(3.9,143,2,1481,0)="""RTN"",""SROCD1"",65,0)"
^XMB(3.9,143,2,1482,0)=" K ^TMP(""SRED1"",$J),^TMP(""SRED2"",$J)"
^XMB(3.9,143,2,1483,0)="""RTN"",""SROCD1"",66,0)"
^XMB(3.9,143,2,1484,0)=" Q"
^XMB(3.9,143,2,1485,0)="""RTN"",""SROCD3"")"
^XMB(3.9,143,2,1486,0)="0^5^B25952719^B22787848"
^XMB(3.9,143,2,1487,0)="""RTN"",""SROCD3"",1,0)"
^XMB(3.9,143,2,1488,0)="SROCD3 ;BIR/ADM - ASK SC/EI QUESTIONS FOR CODING ;10/17/05"
^XMB(3.9,143,2,1489,0)="""RTN"",""SROCD3"",2,0)"
^XMB(3.9,143,2,1490,0)=" ;;3.0; Surgery ;**142,152**;24 Jun 93"
^XMB(3.9,143,2,1491,0)="""RTN"",""SROCD3"",3,0)"
^XMB(3.9,143,2,1492,0)=" ;"
^XMB(3.9,143,2,1493,0)="""RTN"",""SROCD3"",4,0)"
^XMB(3.9,143,2,1494,0)=" ; Reference to DIS^DGRPDB supported by DBIA #700"
^XMB(3.9,143,2,1495,0)="""RTN"",""SROCD3"",5,0)"
^XMB(3.9,143,2,1496,0)=" ; Reference to Field #.322013 in File #2 supported by DBIA #3475"
^XMB(3.9,143,2,1497,0)="""RTN"",""SROCD3"",6,0)"
^XMB(3.9,143,2,1498,0)=" ;"
^XMB(3.9,143,2,1499,0)="""RTN"",""SROCD3"",7,0)"
^XMB(3.9,143,2,1500,0)="ASK W ! K DIR S DIR(""A"")=""Do you want to update classification information (Y/N)? "",DIR(""B"")=""NO"",DIR(0)=""YA"" D ^DIR K DIR I 'Y!$D(DTOUT)!$D(DUOUT) Q"
^XMB(3.9,143,2,1501,0)="""RTN"",""SROCD3"",8,0)"
^XMB(3.9,143,2,1502,0)="SCEI ; output of SC/EI conditions"
^XMB(3.9,143,2,1503,0)="""RTN"",""SROCD3"",9,0)"
^XMB(3.9,143,2,1504,0)=" N SRAO,SRCV,SRDR,SREC,SRELIG,SRHNC,SRIR,SRMST,SRPERC,SRQ,SREEQ,SRSC,SRPRJ,VADM,VAEL,VASV,SRY"
^XMB(3.9,143,2,1505,0)="""RTN"",""SROCD3"",10,0)"
^XMB(3.9,143,2,1506,0)=" D DEM^VADPT,ELIG^VADPT,SVC^VADPT"
^XMB(3.9,143,2,1507,0)="""RTN"",""SROCD3"",11,0)"
^XMB(3.9,143,2,1508,0)=" S SRELIG=$P(VAEL(1),""^"",2),SRSC=$P(VAEL(3),""^""),SRSC=$S(SRSC:""YES"",SRSC=0:""NO"",1:""""),SRPERC=$P(VAEL(3),""^"",2)"
^XMB(3.9,143,2,1509,0)="""RTN"",""SROCD3"",12,0)"
^XMB(3.9,143,2,1510,0)=" S SRAO=$S(VASV(2):""YES"",1:""NO""),SRIR=$S(VASV(3):""YES"",1:""NO""),SRCV=$S(VASV(10):""YES"",1:""NO""),SRPRJ=$S($G(VASV(11)):""YES"",1:""NO"")"
^XMB(3.9,143,2,1511,0)="""RTN"",""SROCD3"",13,0)"
^XMB(3.9,143,2,1512,0)=" S SRMST=$S($D(SRCL(5)):""YES"",1:""NO""),SRHNC=$S($D(SRCL(6)):""YES"",1:""NO"")"
^XMB(3.9,143,2,1513,0)="""RTN"",""SROCD3"",14,0)"
^XMB(3.9,143,2,1514,0)=" S DIC=2,DA=DFN,DR="".322013"",DIQ=""SRY"",DIQ(0)=""I"" D EN^DIQ1 K DA,DIC,DIQ,DR"
^XMB(3.9,143,2,1515,0)="""RTN"",""SROCD3"",15,0)"
^XMB(3.9,143,2,1516,0)=" S SREC=SRY(2,DFN,.322013,""I""),SREC=$S(SREC=""Y"":""YES"",1:""NO"")"
^XMB(3.9,143,2,1517,0)="""RTN"",""SROCD3"",16,0)"
^XMB(3.9,143,2,1518,0)=" W @IOF,!,VADM(1)_""  (""_VA(""PID"")_"")       "",$P(VAEL(6),""^"",2),!!,""   * * * Eligibility Information and Service Connected Conditions * * *"""
^XMB(3.9,143,2,1519,0)="""RTN"",""SROCD3"",17,0)"
^XMB(3.9,143,2,1520,0)=" W !!,?5,""Primary Eligibility: ""_SRELIG,!,?5,""Combat Vet: ""_SRCV,?22,""A/O Exp.: ""_SRAO,?39,""M/S Trauma: ""_SRMST"
^XMB(3.9,143,2,1521,0)="""RTN"",""SROCD3"",18,0)"
^XMB(3.9,143,2,1522,0)=" W !,?5,""ION Rad.: ""_SRIR,?22,""Env Contam: ""_SREC,?39,""H/N Cancer: ""_SRHNC"
^XMB(3.9,143,2,1523,0)="""RTN"",""SROCD3"",19,0)"
^XMB(3.9,143,2,1524,0)=" W !,?5,""PROJ 112/SHAD: ""_SRPRJ"
^XMB(3.9,143,2,1525,0)="""RTN"",""SROCD3"",20,0)"
^XMB(3.9,143,2,1526,0)=" D DIS^DGRPDB"
^XMB(3.9,143,2,1527,0)="""RTN"",""SROCD3"",21,0)"
^XMB(3.9,143,2,1528,0)=" W ! F I=1:1:79 W ""-"""
^XMB(3.9,143,2,1529,0)="""RTN"",""SROCD3"",22,0)"
^XMB(3.9,143,2,1530,0)="SUP S SRY=""operation"" I $D(SRTN),$P($G(^SRF(SRTN,""NON"")),""^"")=""Y"" S SRY=""procedure"""
^XMB(3.9,143,2,1531,0)="""RTN"",""SROCD3"",23,0)"
^XMB(3.9,143,2,1532,0)=" K DIR W !!,""Please supply the following required information about this ""_SRY_"":"",! S:$D(SRTN) DA=SRTN S SRDR="""" S:'$D(SRQ) SRQ=0 D  I SRQ G END"
^XMB(3.9,143,2,1533,0)="""RTN"",""SROCD3"",24,0)"
^XMB(3.9,143,2,1534,0)=" .I $D(SRCL(3)) D SC I SRQ Q"
^XMB(3.9,143,2,1535,0)="""RTN"",""SROCD3"",25,0)"
^XMB(3.9,143,2,1536,0)=" .I $D(SRCL(7)) D CV I SRQ Q"
^XMB(3.9,143,2,1537,0)="""RTN"",""SROCD3"",26,0)"
^XMB(3.9,143,2,1538,0)=" .I $D(SRCL(1)) D AO I SRQ Q"
^XMB(3.9,143,2,1539,0)="""RTN"",""SROCD3"",27,0)"
^XMB(3.9,143,2,1540,0)=" .I $D(SRCL(2)) D IR I SRQ Q"
^XMB(3.9,143,2,1541,0)="""RTN"",""SROCD3"",28,0)"
^XMB(3.9,143,2,1542,0)=" .I $D(SRCL(4)) D EC I SRQ Q"
^XMB(3.9,143,2,1543,0)="""RTN"",""SROCD3"",29,0)"
^XMB(3.9,143,2,1544,0)=" .I $D(SRCL(8)) D PRJ I SRQ Q"
^XMB(3.9,143,2,1545,0)="""RTN"",""SROCD3"",30,0)"
^XMB(3.9,143,2,1546,0)=" .I $D(SRCL(5)) D MST I SRQ Q"
^XMB(3.9,143,2,1547,0)="""RTN"",""SROCD3"",31,0)"
^XMB(3.9,143,2,1548,0)=" .I $D(SRCL(6)) D HNC"
^XMB(3.9,143,2,1549,0)="""RTN"",""SROCD3"",32,0)"
^XMB(3.9,143,2,1550,0)=" K DA,DIE,DR S:$D(SRTN) DA=SRTN,DIE=136,DR=SRDR D ^DIE"
^XMB(3.9,143,2,1551,0)="""RTN"",""SROCD3"",33,0)"
^XMB(3.9,143,2,1552,0)="UPDX I $O(^SRO(136,SRTN,4,0)) D"
^XMB(3.9,143,2,1553,0)="""RTN"",""SROCD3"",34,0)"
^XMB(3.9,143,2,1554,0)=" .W ! K DIR S DIR(""A"",1)=""Update all 'OTHER POSTOP DIAGNOSIS' Eligibility and Service Connected"",DIR(""A"")=""Conditions with these values (Y/N)"""
^XMB(3.9,143,2,1555,0)="""RTN"",""SROCD3"",35,0)"
^XMB(3.9,143,2,1556,0)=" .S DIR(""B"")=""NO"",DIR(0)=""Y"" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) Q"
^XMB(3.9,143,2,1557,0)="""RTN"",""SROCD3"",36,0)"
^XMB(3.9,143,2,1558,0)=" .I Y D UPDSC"
^XMB(3.9,143,2,1559,0)="""RTN"",""SROCD3"",37,0)"
^XMB(3.9,143,2,1560,0)="END K DA,DIE,DR,SRZ,X,Y"
^XMB(3.9,143,2,1561,0)="""RTN"",""SROCD3"",38,0)"
^XMB(3.9,143,2,1562,0)=" Q"
^XMB(3.9,143,2,1563,0)="""RTN"",""SROCD3"",39,0)"
^XMB(3.9,143,2,1564,0)="SC S DIR(""A"")=""Treatment related to Service Connected condition (Y/N)"",DIR(0)=""136,.04"" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRQ=1 Q"
^XMB(3.9,143,2,1565,0)="""RTN"",""SROCD3"",40,0)"
^XMB(3.9,143,2,1566,0)=" I X=""""!(X=""@"") W !,$C(7),?15,""Enter YES or NO."" G SC"
^XMB(3.9,143,2,1567,0)="""RTN"",""SROCD3"",41,0)"
^XMB(3.9,143,2,1568,0)=" S SRCL(3)=Y,SRDR=$G(SRDR)_"".04////""_SRCL(3)_"";"""
^XMB(3.9,143,2,1569,0)="""RTN"",""SROCD3"",42,0)"
^XMB(3.9,143,2,1570,0)=" S SRCL(3,""UPDATE"")=1"
^XMB(3.9,143,2,1571,0)="""RTN"",""SROCD3"",43,0)"
^XMB(3.9,143,2,1572,0)=" Q"
^XMB(3.9,143,2,1573,0)="""RTN"",""SROCD3"",44,0)"
^XMB(3.9,143,2,1574,0)="CV S DIR(""A"")=""Treatment related to Combat (Y/N)"",DIR(0)=""136,.1"" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRQ=1 Q"
^XMB(3.9,143,2,1575,0)="""RTN"",""SROCD3"",45,0)"
^XMB(3.9,143,2,1576,0)=" I X=""""!(X=""@"") W !,$C(7),?15,""Enter YES or NO."" G CV"
^XMB(3.9,143,2,1577,0)="""RTN"",""SROCD3"",46,0)"
^XMB(3.9,143,2,1578,0)=" S SRCL(7)=Y,SRDR=SRDR_"".1////""_SRCL(7)_"";"""
^XMB(3.9,143,2,1579,0)="""RTN"",""SROCD3"",47,0)"
^XMB(3.9,143,2,1580,0)=" S SRCL(7,""UPDATE"")=1"
^XMB(3.9,143,2,1581,0)="""RTN"",""SROCD3"",48,0)"
^XMB(3.9,143,2,1582,0)=" Q"
^XMB(3.9,143,2,1583,0)="""RTN"",""SROCD3"",49,0)"
^XMB(3.9,143,2,1584,0)="AO S DIR(""A"")=""Treatment related to Agent Orange Exposure (Y/N)"",DIR(0)=""136,.05"" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRQ=1 Q"
^XMB(3.9,143,2,1585,0)="""RTN"",""SROCD3"",50,0)"
^XMB(3.9,143,2,1586,0)=" I X=""""!(X=""@"") W !,$C(7),?15,""Enter YES or NO."" G AO"
^XMB(3.9,143,2,1587,0)="""RTN"",""SROCD3"",51,0)"
^XMB(3.9,143,2,1588,0)=" S SRCL(1)=Y,SRDR=SRDR_"".05////""_SRCL(1)_"";"""
^XMB(3.9,143,2,1589,0)="""RTN"",""SROCD3"",52,0)"
^XMB(3.9,143,2,1590,0)=" S SRCL(1,""UPDATE"")=1"
^XMB(3.9,143,2,1591,0)="""RTN"",""SROCD3"",53,0)"
^XMB(3.9,143,2,1592,0)=" Q"
^XMB(3.9,143,2,1593,0)="""RTN"",""SROCD3"",54,0)"
^XMB(3.9,143,2,1594,0)="IR S DIR(""A"")=""Treatment related to Ionizing Radiation Exposure (Y/N)"",DIR(0)=""136,.06"" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRQ=1 Q"
^XMB(3.9,143,2,1595,0)="""RTN"",""SROCD3"",55,0)"
^XMB(3.9,143,2,1596,0)=" I X=""""!(X=""@"") W !,$C(7),?15,""Enter YES or NO."" G IR"
^XMB(3.9,143,2,1597,0)="""RTN"",""SROCD3"",56,0)"
^XMB(3.9,143,2,1598,0)=" S SRCL(2)=Y,SRDR=SRDR_"".06////""_SRCL(2)_"";"""
^XMB(3.9,143,2,1599,0)="""RTN"",""SROCD3"",57,0)"
^XMB(3.9,143,2,1600,0)=" S SRCL(2,""UPDATE"")=1"
^XMB(3.9,143,2,1601,0)="""RTN"",""SROCD3"",58,0)"
^XMB(3.9,143,2,1602,0)=" Q"
^XMB(3.9,143,2,1603,0)="""RTN"",""SROCD3"",59,0)"
^XMB(3.9,143,2,1604,0)="EC S DIR(""A"")=""Treatment related to Environmental Contaminant Exposure (Y/N)"",DIR(0)=""136,.07"" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRQ=1 Q"
^XMB(3.9,143,2,1605,0)="""RTN"",""SROCD3"",60,0)"
^XMB(3.9,143,2,1606,0)=" I X=""""!(X=""@"") W !,$C(7),?15,""Enter YES or NO."" G EC"
^XMB(3.9,143,2,1607,0)="""RTN"",""SROCD3"",61,0)"
^XMB(3.9,143,2,1608,0)=" S SRCL(4)=Y,SRDR=SRDR_"".07////""_SRCL(4)_"";"""
^XMB(3.9,143,2,1609,0)="""RTN"",""SROCD3"",62,0)"
^XMB(3.9,143,2,1610,0)=" S SRCL(4,""UPDATE"")=1"
^XMB(3.9,143,2,1611,0)="""RTN"",""SROCD3"",63,0)"
^XMB(3.9,143,2,1612,0)=" Q"
^XMB(3.9,143,2,1613,0)="""RTN"",""SROCD3"",64,0)"
^XMB(3.9,143,2,1614,0)="PRJ S DIR(""A"")=""Treatment related to PROJ 112/SHAD (Y/N)"",DIR(0)=""136,.11"" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRQ=1 Q"
^XMB(3.9,143,2,1615,0)="""RTN"",""SROCD3"",65,0)"
^XMB(3.9,143,2,1616,0)=" I X=""""!(X=""@"") W !,$C(7),?15,""Enter YES or NO."" G PRJ"
^XMB(3.9,143,2,1617,0)="""RTN"",""SROCD3"",66,0)"
^XMB(3.9,143,2,1618,0)=" S SRCL(8)=Y,SRDR=SRDR_"".11////""_SRCL(8)_"";"""
^XMB(3.9,143,2,1619,0)="""RTN"",""SROCD3"",67,0)"
^XMB(3.9,143,2,1620,0)=" S SRCL(8,""UPDATE"")=1"
^XMB(3.9,143,2,1621,0)="""RTN"",""SROCD3"",68,0)"
^XMB(3.9,143,2,1622,0)=" Q"
^XMB(3.9,143,2,1623,0)="""RTN"",""SROCD3"",69,0)"
^XMB(3.9,143,2,1624,0)="MST S DIR(""A"")=""Treatment related to Military Sexual Trauma (Y/N)"",DIR(0)=""136,.08"" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRQ=1 Q"
^XMB(3.9,143,2,1625,0)="""RTN"",""SROCD3"",70,0)"
^XMB(3.9,143,2,1626,0)=" I X=""""!(X=""@"") W !,$C(7),?15,""Enter YES or NO."" G MST"
^XMB(3.9,143,2,1627,0)="""RTN"",""SROCD3"",71,0)"
^XMB(3.9,143,2,1628,0)=" S SRCL(5)=Y,SRDR=SRDR_"".08////""_SRCL(5)_"";"""
^XMB(3.9,143,2,1629,0)="""RTN"",""SROCD3"",72,0)"
^XMB(3.9,143,2,1630,0)=" S SRCL(5,""UPDATE"")=1"
^XMB(3.9,143,2,1631,0)="""RTN"",""SROCD3"",73,0)"
^XMB(3.9,143,2,1632,0)=" Q"
^XMB(3.9,143,2,1633,0)="""RTN"",""SROCD3"",74,0)"
^XMB(3.9,143,2,1634,0)="HNC S DIR(""A"")=""Treatment related to Head and/or Neck Cancer (Y/N)"",DIR(0)=""136,.09"" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRQ=1 Q"
^XMB(3.9,143,2,1635,0)="""RTN"",""SROCD3"",75,0)"
^XMB(3.9,143,2,1636,0)=" I X=""""!(X=""@"") W !,$C(7),?15,""Enter YES or NO."" G HNC"
^XMB(3.9,143,2,1637,0)="""RTN"",""SROCD3"",76,0)"
^XMB(3.9,143,2,1638,0)=" S SRCL(6)=Y,SRDR=SRDR_"".09////""_SRCL(6)_"";"""
^XMB(3.9,143,2,1639,0)="""RTN"",""SROCD3"",77,0)"
^XMB(3.9,143,2,1640,0)=" S SRCL(6,""UPDATE"")=1"
^XMB(3.9,143,2,1641,0)="""RTN"",""SROCD3"",78,0)"
^XMB(3.9,143,2,1642,0)=" Q"
^XMB(3.9,143,2,1643,0)="""RTN"",""SROCD3"",79,0)"
^XMB(3.9,143,2,1644,0)="PRESS W ! K DIR S DIR(""A"")=""Press RETURN to continue  "",DIR(0)=""FOA"" D ^DIR K DIR W @IOF"
^XMB(3.9,143,2,1645,0)="""RTN"",""SROCD3"",80,0)"
^XMB(3.9,143,2,1646,0)=" Q"
^XMB(3.9,143,2,1647,0)="""RTN"",""SROCD3"",81,0)"
^XMB(3.9,143,2,1648,0)="UPDSC ;Update existing DX to Service Connected/Environmental Indicators associations."
^XMB(3.9,143,2,1649,0)="""RTN"",""SROCD3"",82,0)"
^XMB(3.9,143,2,1650,0)=" K DA,DIE,DR"
^XMB(3.9,143,2,1651,0)="""RTN"",""SROCD3"",83,0)"
^XMB(3.9,143,2,1652,0)=" S (DA,I)=0,DA(1)=SRTN,DIE=""^SRO(136,""_SRTN_"",4,"""
^XMB(3.9,143,2,1653,0)="""RTN"",""SROCD3"",84,0)"
^XMB(3.9,143,2,1654,0)=" D:$D(SRCL(1,""UPDATE"")) BLDDR(.03,SRCL(1))"
^XMB(3.9,143,2,1655,0)="""RTN"",""SROCD3"",85,0)"
^XMB(3.9,143,2,1656,0)=" D:$D(SRCL(2,""UPDATE"")) BLDDR(.04,SRCL(2))"
^XMB(3.9,143,2,1657,0)="""RTN"",""SROCD3"",86,0)"
^XMB(3.9,143,2,1658,0)=" D:$D(SRCL(3,""UPDATE"")) BLDDR(.02,SRCL(3))"
^XMB(3.9,143,2,1659,0)="""RTN"",""SROCD3"",87,0)"
^XMB(3.9,143,2,1660,0)=" D:$D(SRCL(4,""UPDATE"")) BLDDR(.07,SRCL(4))"
^XMB(3.9,143,2,1661,0)="""RTN"",""SROCD3"",88,0)"
^XMB(3.9,143,2,1662,0)=" D:$D(SRCL(5,""UPDATE"")) BLDDR(.05,SRCL(5))"
^XMB(3.9,143,2,1663,0)="""RTN"",""SROCD3"",89,0)"
^XMB(3.9,143,2,1664,0)=" D:$D(SRCL(6,""UPDATE"")) BLDDR(.06,SRCL(6))"
^XMB(3.9,143,2,1665,0)="""RTN"",""SROCD3"",90,0)"
^XMB(3.9,143,2,1666,0)=" D:$D(SRCL(7,""UPDATE"")) BLDDR(.08,SRCL(7))"
^XMB(3.9,143,2,1667,0)="""RTN"",""SROCD3"",91,0)"
^XMB(3.9,143,2,1668,0)=" D:$D(SRCL(8,""UPDATE"")) BLDDR(.09,SRCL(8))"
^XMB(3.9,143,2,1669,0)="""RTN"",""SROCD3"",92,0)"
^XMB(3.9,143,2,1670,0)=" F I=1:1 S DA=$O(^SRO(136,SRTN,4,DA)) Q:DA=""""  D ^DIE"
^XMB(3.9,143,2,1671,0)="""RTN"",""SROCD3"",93,0)"
^XMB(3.9,143,2,1672,0)=" Q"
^XMB(3.9,143,2,1673,0)="""RTN"",""SROCD3"",94,0)"
^XMB(3.9,143,2,1674,0)="BLDDR(DXPIECE,NEWSC) ;Build the DR string for updating DX/Service Indicators associations"
^XMB(3.9,143,2,1675,0)="""RTN"",""SROCD3"",95,0)"
^XMB(3.9,143,2,1676,0)=" S:$D(DR) DR=DR_"";"""
^XMB(3.9,143,2,1677,0)="""RTN"",""SROCD3"",96,0)"
^XMB(3.9,143,2,1678,0)=" S:'$D(DR) DR="""""
^XMB(3.9,143,2,1679,0)="""RTN"",""SROCD3"",97,0)"
^XMB(3.9,143,2,1680,0)=" S DR=DR_DXPIECE_""///""_NEWSC"
^XMB(3.9,143,2,1681,0)="""RTN"",""SROCD3"",98,0)"
^XMB(3.9,143,2,1682,0)=" K DXPIECE,NEWSC"
^XMB(3.9,143,2,1683,0)="""RTN"",""SROCD3"",99,0)"
^XMB(3.9,143,2,1684,0)=" Q"
^XMB(3.9,143,2,1685,0)="""RTN"",""SROPCE1"")"
^XMB(3.9,143,2,1686,0)="0^1^B43635791^B39384156"
^XMB(3.9,143,2,1687,0)="""RTN"",""SROPCE1"",1,0)"
^XMB(3.9,143,2,1688,0)="SROPCE1 ;BIR/ADM - ASK SC/EI QUESTIONS FOR PCE AND CROSS REFERENCE LOGIC ;09/12/05 12:01pm"
^XMB(3.9,143,2,1689,0)="""RTN"",""SROPCE1"",2,0)"
^XMB(3.9,143,2,1690,0)=" ;;3.0; Surgery ;**58,105,119,150,152**;24 Jun 93"
^XMB(3.9,143,2,1691,0)="""RTN"",""SROPCE1"",3,0)"
^XMB(3.9,143,2,1692,0)=" ;"
^XMB(3.9,143,2,1693,0)="""RTN"",""SROPCE1"",4,0)"
^XMB(3.9,143,2,1694,0)=" ; Reference to CL^SDCO21 supported by DBIA #406"
^XMB(3.9,143,2,1695,0)="""RTN"",""SROPCE1"",5,0)"
^XMB(3.9,143,2,1696,0)=" ; Reference to DIS^DGRPDB supported by DBIA #700"
^XMB(3.9,143,2,1697,0)="""RTN"",""SROPCE1"",6,0)"
^XMB(3.9,143,2,1698,0)=" ; Reference to Field #.322013 in File #2 supported by DBIA #3475"
^XMB(3.9,143,2,1699,0)="""RTN"",""SROPCE1"",7,0)"
^XMB(3.9,143,2,1700,0)=" ;"
^XMB(3.9,143,2,1701,0)="""RTN"",""SROPCE1"",8,0)"
^XMB(3.9,143,2,1702,0)="EN1 I '$P(^SRO(133,SRSITE,0),""^"",16) Q"
^XMB(3.9,143,2,1703,0)="""RTN"",""SROPCE1"",9,0)"
^XMB(3.9,143,2,1704,0)=" N SRPDATE,SRSDATE S SRPDATE=$P(^SRO(133,SRSITE,0),""^"",17),SRSDATE=$S($D(SRTN):$P(^SRF(SRTN,0),""^"",9),$D(SRWLST):$P(^SRO(133.8,SRSS,1,SROFN,0),""^"",5),1:DT) I SRPDATE,SRSDATE<SRPDATE Q"
^XMB(3.9,143,2,1705,0)="""RTN"",""SROPCE1"",10,0)"
^XMB(3.9,143,2,1706,0)=" N SRAO,SRDR,SREC,SRELIG,SRIR,SRPERC,SRQ,SRSC,SRCL,SRX,VAEL,VASV,SRCV,SRMST,SRHNC,SRPRJ"
^XMB(3.9,143,2,1707,0)="""RTN"",""SROPCE1"",11,0)"
^XMB(3.9,143,2,1708,0)=" S SRQ=0 D  I SRQ=1 Q"
^XMB(3.9,143,2,1709,0)="""RTN"",""SROPCE1"",12,0)"
^XMB(3.9,143,2,1710,0)=" .I '$D(SRWLST) Q"
^XMB(3.9,143,2,1711,0)="""RTN"",""SROPCE1"",13,0)"
^XMB(3.9,143,2,1712,0)=" .I $D(SRWLST),'$P(^SRO(133.8,SRSS,1,SROFN,0),""^"",4) Q"
^XMB(3.9,143,2,1713,0)="""RTN"",""SROPCE1"",14,0)"
^XMB(3.9,143,2,1714,0)=" .S SRQ=1"
^XMB(3.9,143,2,1715,0)="""RTN"",""SROPCE1"",15,0)"
^XMB(3.9,143,2,1716,0)="CLASS ; build classification array"
^XMB(3.9,143,2,1717,0)="""RTN"",""SROPCE1"",16,0)"
^XMB(3.9,143,2,1718,0)=" S:$D(SRTN) DFN=$P(^SRF(SRTN,0),""^"") D CL^SDCO21(DFN,SRSDATE,,.SRCL)"
^XMB(3.9,143,2,1719,0)="""RTN"",""SROPCE1"",17,0)"
^XMB(3.9,143,2,1720,0)=" I '$D(SRCL) W !!,""No classification information is required for this patient."",! K DA,DIE,DR S:$D(SRTN) DA=SRTN,DIE=130,DR="".0155////1"" S:$D(SRWLST) DA(1)=SRSS,DA=SROFN,DIE=""^SRO(133.8,""_DA(1)_"",1,"",DR=""20////1"" D ^DIE G END"
^XMB(3.9,143,2,1721,0)="""RTN"",""SROPCE1"",18,0)"
^XMB(3.9,143,2,1722,0)=" I $D(SRTN),'$P(^SRF(SRTN,0),""^"",20) G ELIG"
^XMB(3.9,143,2,1723,0)="""RTN"",""SROPCE1"",19,0)"
^XMB(3.9,143,2,1724,0)=" I $D(SRWLST),'$P(^SRO(133.8,SRSS,1,SROFN,0),""^"",20) G ELIG"
^XMB(3.9,143,2,1725,0)="""RTN"",""SROPCE1"",20,0)"
^XMB(3.9,143,2,1726,0)="ASK W ! K DIR S DIR(""A"")=""Do you want to update classification information (Y/N)? "",DIR(""B"")=""NO"",DIR(0)=""YA"" D ^DIR K DIR I 'Y!$D(DTOUT)!$D(DUOUT) W:'$D(SRWLST) @IOF Q"
^XMB(3.9,143,2,1727,0)="""RTN"",""SROPCE1"",21,0)"
^XMB(3.9,143,2,1728,0)="ELIG ; output of eligibility and service connected conditions"
^XMB(3.9,143,2,1729,0)="""RTN"",""SROPCE1"",22,0)"
^XMB(3.9,143,2,1730,0)=" N SRY D DEM^VADPT,ELIG^VADPT,SVC^VADPT"
^XMB(3.9,143,2,1731,0)="""RTN"",""SROPCE1"",23,0)"
^XMB(3.9,143,2,1732,0)=" S SRELIG=$P(VAEL(1),""^"",2),SRSC=$P(VAEL(3),""^""),SRSC=$S(SRSC:""YES"",SRSC=0:""NO"",1:""""),SRPERC=$P(VAEL(3),""^"",2)"
^XMB(3.9,143,2,1733,0)="""RTN"",""SROPCE1"",24,0)"
^XMB(3.9,143,2,1734,0)=" S SRAO=$S(VASV(2):""YES"",1:""NO""),SRIR=$S(VASV(3):""YES"",1:""NO""),SRCV=$S(VASV(10):""YES"",1:""NO""),SRPRJ=$S($G(VASV(11)):""YES"",1:""NO"")"
^XMB(3.9,143,2,1735,0)="""RTN"",""SROPCE1"",25,0)"
^XMB(3.9,143,2,1736,0)=" S SRMST=$S($D(SRCL(5)):""YES"",1:""NO""),SRHNC=$S($D(SRCL(6)):""YES"",1:""NO"")"
^XMB(3.9,143,2,1737,0)="""RTN"",""SROPCE1"",26,0)"
^XMB(3.9,143,2,1738,0)=" S DIC=2,DA=DFN,DR="".322013"",DIQ=""SRY"",DIQ(0)=""I"" D EN^DIQ1 K DA,DIC,DIQ,DR"
^XMB(3.9,143,2,1739,0)="""RTN"",""SROPCE1"",27,0)"
^XMB(3.9,143,2,1740,0)=" S SREC=SRY(2,DFN,.322013,""I""),SREC=$S(SREC=""Y"":""YES"",1:""NO"")"
^XMB(3.9,143,2,1741,0)="""RTN"",""SROPCE1"",28,0)"
^XMB(3.9,143,2,1742,0)=" W @IOF,!,VADM(1)_""  (""_VA(""PID"")_"")       "",$P(VAEL(6),""^"",2),!!,""   * * * Eligibility Information and Service Connected Conditions * * *"""
^XMB(3.9,143,2,1743,0)="""RTN"",""SROPCE1"",29,0)"
^XMB(3.9,143,2,1744,0)=" W !!,?5,""Primary Eligibility: ""_SRELIG,!,?5,""Combat Vet: ""_SRCV,?22,""A/O Exp.: ""_SRAO,?39,""M/S Trauma: ""_SRMST"
^XMB(3.9,143,2,1745,0)="""RTN"",""SROPCE1"",30,0)"
^XMB(3.9,143,2,1746,0)=" W !,?5,""ION Rad.: ""_SRIR,?22,""Env Contam: ""_SREC,?39,""H/N Cancer: ""_SRHNC"
^XMB(3.9,143,2,1747,0)="""RTN"",""SROPCE1"",31,0)"
^XMB(3.9,143,2,1748,0)=" W !,?5,""PROJ 112/SHAD: ""_SRPRJ"
^XMB(3.9,143,2,1749,0)="""RTN"",""SROPCE1"",32,0)"
^XMB(3.9,143,2,1750,0)=" D DIS^DGRPDB"
^XMB(3.9,143,2,1751,0)="""RTN"",""SROPCE1"",33,0)"
^XMB(3.9,143,2,1752,0)=" W ! F I=1:1:79 W ""-"""
^XMB(3.9,143,2,1753,0)="""RTN"",""SROPCE1"",34,0)"
^XMB(3.9,143,2,1754,0)="SUP S SRY=""operation"" I $D(SRTN),$P($G(^SRF(SRTN,""NON"")),""^"")=""Y"" S SRY=""procedure"""
^XMB(3.9,143,2,1755,0)="""RTN"",""SROPCE1"",35,0)"
^XMB(3.9,143,2,1756,0)=" K DIR W !!,""Please supply the following required information about this ""_SRY_"":"",! S:$D(SRWLST) DA(1)=SRSS,DA=SROFN S:$D(SRTN) DA=SRTN S SRDR="""" S:'$D(SRQ) SRQ=0 D  I SRQ S:$D(SRWLST) SRSOUT=1 G END"
^XMB(3.9,143,2,1757,0)="""RTN"",""SROPCE1"",36,0)"
^XMB(3.9,143,2,1758,0)=" .I $D(SRCL(3)) D SC I SRQ Q"
^XMB(3.9,143,2,1759,0)="""RTN"",""SROPCE1"",37,0)"
^XMB(3.9,143,2,1760,0)=" .I $D(SRCL(7)) D CV I SRQ Q"
^XMB(3.9,143,2,1761,0)="""RTN"",""SROPCE1"",38,0)"
^XMB(3.9,143,2,1762,0)=" .I $D(SRCL(1)) D AO I SRQ Q"
^XMB(3.9,143,2,1763,0)="""RTN"",""SROPCE1"",39,0)"
^XMB(3.9,143,2,1764,0)=" .I $D(SRCL(2)) D IR I SRQ Q"
^XMB(3.9,143,2,1765,0)="""RTN"",""SROPCE1"",40,0)"
^XMB(3.9,143,2,1766,0)=" .I $D(SRCL(4)) D EC I SRQ Q"
^XMB(3.9,143,2,1767,0)="""RTN"",""SROPCE1"",41,0)"
^XMB(3.9,143,2,1768,0)=" .I $D(SRCL(8)) D PRJ I SRQ Q"
^XMB(3.9,143,2,1769,0)="""RTN"",""SROPCE1"",42,0)"
^XMB(3.9,143,2,1770,0)=" .I $D(SRCL(5)) D MST I SRQ Q"
^XMB(3.9,143,2,1771,0)="""RTN"",""SROPCE1"",43,0)"
^XMB(3.9,143,2,1772,0)=" .I $D(SRCL(6)) D HNC"
^XMB(3.9,143,2,1773,0)="""RTN"",""SROPCE1"",44,0)"
^XMB(3.9,143,2,1774,0)=" K DA,DIE,DR S:$D(SRTN) DA=SRTN,DIE=130,DR=SRDR_"".0155////1"" S:$D(SRWLST) DA(1)=SRSS,DA=SROFN,DIE=""^SRO(133.8,""_DA(1)_"",1,"",DR=SRDR_""20////1"""
^XMB(3.9,143,2,1775,0)="""RTN"",""SROPCE1"",45,0)"
^XMB(3.9,143,2,1776,0)=" D ^DIE"
^XMB(3.9,143,2,1777,0)="""RTN"",""SROPCE1"",46,0)"
^XMB(3.9,143,2,1778,0)="UPDX I $D(SRTN),X,$D(^SRF(SRTN,15)) D"
^XMB(3.9,143,2,1779,0)="""RTN"",""SROPCE1"",47,0)"
^XMB(3.9,143,2,1780,0)=" .R !!,""Update all 'OTHER POSTOP DIAGNOSIS' Eligibility and"",!,""Service Connected Conditions with these values?  Enter YES or NO. <NO>"",Z:DTIME S:'$T Z="""""
^XMB(3.9,143,2,1781,0)="""RTN"",""SROPCE1"",48,0)"
^XMB(3.9,143,2,1782,0)=" .D:(Z[""Y"")!(Z[""y"") UPDSC"
^XMB(3.9,143,2,1783,0)="""RTN"",""SROPCE1"",49,0)"
^XMB(3.9,143,2,1784,0)=" .I Z[""?"" D  G UPDX"
^XMB(3.9,143,2,1785,0)="""RTN"",""SROPCE1"",50,0)"
^XMB(3.9,143,2,1786,0)=" ..W !!,""Associate all of the existing OTHER POSTOP DIAGNOSIS for this surgical case with the new Eligibility and Service Connected Conditions?"""
^XMB(3.9,143,2,1787,0)="""RTN"",""SROPCE1"",51,0)"
^XMB(3.9,143,2,1788,0)=" ..W !,""To edit diagnoses classification status individually, please use the Physician's Verification or the CPT/ICD9 Coding screens"""
^XMB(3.9,143,2,1789,0)="""RTN"",""SROPCE1"",52,0)"
^XMB(3.9,143,2,1790,0)="END K DA,DIE,DR,SRZ,X,Y I 'SRQ,'$D(SRREQ),'$D(SRWLST) D PRESS"
^XMB(3.9,143,2,1791,0)="""RTN"",""SROPCE1"",53,0)"
^XMB(3.9,143,2,1792,0)=" Q"
^XMB(3.9,143,2,1793,0)="""RTN"",""SROPCE1"",54,0)"
^XMB(3.9,143,2,1794,0)="SC S DIR(""A"")=""Treatment related to Service Connected condition (Y/N)"",DIR(0)=$S($D(SRWLST):""133.801,16"",1:""130,.016"") D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRQ=1 Q"
^XMB(3.9,143,2,1795,0)="""RTN"",""SROPCE1"",55,0)"
^XMB(3.9,143,2,1796,0)=" I X=""""!(X=""@"") W !,$C(7),?15,""Enter YES or NO."" G SC"
^XMB(3.9,143,2,1797,0)="""RTN"",""SROPCE1"",56,0)"
^XMB(3.9,143,2,1798,0)=" S SRCL(3)=Y,SRDR=$G(SRDR)_$S($D(SRWLST):""16"",1:"".016"")_""////""_SRCL(3)_"";"""
^XMB(3.9,143,2,1799,0)="""RTN"",""SROPCE1"",57,0)"
^XMB(3.9,143,2,1800,0)=" S SRCL(3,""UPDATE"")=1"
^XMB(3.9,143,2,1801,0)="""RTN"",""SROPCE1"",58,0)"
^XMB(3.9,143,2,1802,0)=" Q"
^XMB(3.9,143,2,1803,0)="""RTN"",""SROPCE1"",59,0)"
^XMB(3.9,143,2,1804,0)="CV S DIR(""A"")=""Treatment related to Combat (Y/N)"",DIR(0)=$S($D(SRWLST):""133.801,23"",1:""130,.024"") D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRQ=1 Q"
^XMB(3.9,143,2,1805,0)="""RTN"",""SROPCE1"",60,0)"
^XMB(3.9,143,2,1806,0)=" I X=""""!(X=""@"") W !,$C(7),?15,""Enter YES or NO."" G CV"
^XMB(3.9,143,2,1807,0)="""RTN"",""SROPCE1"",61,0)"
^XMB(3.9,143,2,1808,0)=" S SRCL(7)=Y,SRDR=SRDR_$S($D(SRWLST):""23"",1:"".024"")_""////""_SRCL(7)_"";"""
^XMB(3.9,143,2,1809,0)="""RTN"",""SROPCE1"",62,0)"
^XMB(3.9,143,2,1810,0)=" S SRCL(7,""UPDATE"")=1"
^XMB(3.9,143,2,1811,0)="""RTN"",""SROPCE1"",63,0)"
^XMB(3.9,143,2,1812,0)=" Q"
^XMB(3.9,143,2,1813,0)="""RTN"",""SROPCE1"",64,0)"
^XMB(3.9,143,2,1814,0)="AO S DIR(""A"")=""Treatment related to Agent Orange Exposure (Y/N)"",DIR(0)=$S($D(SRWLST):""133.801,17"",1:""130,.017"") D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRQ=1 Q"
^XMB(3.9,143,2,1815,0)="""RTN"",""SROPCE1"",65,0)"
^XMB(3.9,143,2,1816,0)=" I X=""""!(X=""@"") W !,$C(7),?15,""Enter YES or NO."" G AO"
^XMB(3.9,143,2,1817,0)="""RTN"",""SROPCE1"",66,0)"
^XMB(3.9,143,2,1818,0)=" S SRCL(1)=Y,SRDR=SRDR_$S($D(SRWLST):""17"",1:"".017"")_""////""_SRCL(1)_"";"""
^XMB(3.9,143,2,1819,0)="""RTN"",""SROPCE1"",67,0)"
^XMB(3.9,143,2,1820,0)=" S SRCL(1,""UPDATE"")=1"
^XMB(3.9,143,2,1821,0)="""RTN"",""SROPCE1"",68,0)"
^XMB(3.9,143,2,1822,0)=" Q"
^XMB(3.9,143,2,1823,0)="""RTN"",""SROPCE1"",69,0)"
^XMB(3.9,143,2,1824,0)="IR S DIR(""A"")=""Treatment related to Ionizing Radiation Exposure (Y/N)"",DIR(0)=$S($D(SRWLST):""133.801,18"",1:""130,.018"") D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRQ=1 Q"
^XMB(3.9,143,2,1825,0)="""RTN"",""SROPCE1"",70,0)"
^XMB(3.9,143,2,1826,0)=" I X=""""!(X=""@"") W !,$C(7),?15,""Enter YES or NO."" G IR"
^XMB(3.9,143,2,1827,0)="""RTN"",""SROPCE1"",71,0)"
^XMB(3.9,143,2,1828,0)=" S SRCL(2)=Y,SRDR=SRDR_$S($D(SRWLST):""18"",1:"".018"")_""////""_SRCL(2)_"";"""
^XMB(3.9,143,2,1829,0)="""RTN"",""SROPCE1"",72,0)"
^XMB(3.9,143,2,1830,0)=" S SRCL(2,""UPDATE"")=1"
^XMB(3.9,143,2,1831,0)="""RTN"",""SROPCE1"",73,0)"
^XMB(3.9,143,2,1832,0)=" Q"
^XMB(3.9,143,2,1833,0)="""RTN"",""SROPCE1"",74,0)"
^XMB(3.9,143,2,1834,0)="EC S DIR(""A"")=""Treatment related to Environmental Contaminant Exposure (Y/N)"",DIR(0)=$S($D(SRWLST):""133.801,19"",1:""130,.019"") D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRQ=1 Q"
^XMB(3.9,143,2,1835,0)="""RTN"",""SROPCE1"",75,0)"
^XMB(3.9,143,2,1836,0)=" I X=""""!(X=""@"") W !,$C(7),?15,""Enter YES or NO."" G EC"
^XMB(3.9,143,2,1837,0)="""RTN"",""SROPCE1"",76,0)"
^XMB(3.9,143,2,1838,0)=" S SRCL(4)=Y,SRDR=SRDR_$S($D(SRWLST):""19"",1:"".019"")_""////""_SRCL(4)_"";"""
^XMB(3.9,143,2,1839,0)="""RTN"",""SROPCE1"",77,0)"
^XMB(3.9,143,2,1840,0)=" S SRCL(4,""UPDATE"")=1"
^XMB(3.9,143,2,1841,0)="""RTN"",""SROPCE1"",78,0)"
^XMB(3.9,143,2,1842,0)=" Q"
^XMB(3.9,143,2,1843,0)="""RTN"",""SROPCE1"",79,0)"
^XMB(3.9,143,2,1844,0)="PRJ S DIR(""A"")=""Treatment related to PROJ 112/SHAD (Y/N)"",DIR(0)=$S($D(SRWLST):""133.801,24"",1:""130,.026"") D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRQ=1 Q"
^XMB(3.9,143,2,1845,0)="""RTN"",""SROPCE1"",80,0)"
^XMB(3.9,143,2,1846,0)=" I X=""""!(X=""@"") W !,$C(7),?15,""Enter YES or NO."" G PRJ"
^XMB(3.9,143,2,1847,0)="""RTN"",""SROPCE1"",81,0)"
^XMB(3.9,143,2,1848,0)=" S SRCL(8)=Y,SRDR=SRDR_$S($D(SRWLST):""24"",1:"".026"")_""////""_SRCL(8)_"";"""
^XMB(3.9,143,2,1849,0)="""RTN"",""SROPCE1"",82,0)"
^XMB(3.9,143,2,1850,0)=" S SRCL(8,""UPDATE"")=1"
^XMB(3.9,143,2,1851,0)="""RTN"",""SROPCE1"",83,0)"
^XMB(3.9,143,2,1852,0)=" Q"
^XMB(3.9,143,2,1853,0)="""RTN"",""SROPCE1"",84,0)"
^XMB(3.9,143,2,1854,0)="MST S DIR(""A"")=""Treatment related to Military Sexual Trauma (Y/N)"",DIR(0)=$S($D(SRWLST):""133.801,21"",1:""130,.022"") D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRQ=1 Q"
^XMB(3.9,143,2,1855,0)="""RTN"",""SROPCE1"",85,0)"
^XMB(3.9,143,2,1856,0)=" I X=""""!(X=""@"") W !,$C(7),?15,""Enter YES or NO."" G MST"
^XMB(3.9,143,2,1857,0)="""RTN"",""SROPCE1"",86,0)"
^XMB(3.9,143,2,1858,0)=" S SRCL(5)=Y,SRDR=SRDR_$S($D(SRWLST):""21"",1:"".022"")_""////""_SRCL(5)_"";"""
^XMB(3.9,143,2,1859,0)="""RTN"",""SROPCE1"",87,0)"
^XMB(3.9,143,2,1860,0)=" S SRCL(5,""UPDATE"")=1"
^XMB(3.9,143,2,1861,0)="""RTN"",""SROPCE1"",88,0)"
^XMB(3.9,143,2,1862,0)=" Q"
^XMB(3.9,143,2,1863,0)="""RTN"",""SROPCE1"",89,0)"
^XMB(3.9,143,2,1864,0)="HNC S DIR(""A"")=""Treatment related to Head and/or Neck Cancer (Y/N)"",DIR(0)=$S($D(SRWLST):""133.801,22"",1:""130,.023"") D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRQ=1 Q"
^XMB(3.9,143,2,1865,0)="""RTN"",""SROPCE1"",90,0)"
^XMB(3.9,143,2,1866,0)=" I X=""""!(X=""@"") W !,$C(7),?15,""Enter YES or NO."" G HNC"
^XMB(3.9,143,2,1867,0)="""RTN"",""SROPCE1"",91,0)"
^XMB(3.9,143,2,1868,0)=" S SRCL(6)=Y,SRDR=SRDR_$S($D(SRWLST):""22"",1:"".023"")_""////""_SRCL(6)_"";"""
^XMB(3.9,143,2,1869,0)="""RTN"",""SROPCE1"",92,0)"
^XMB(3.9,143,2,1870,0)=" S SRCL(6,""UPDATE"")=1"
^XMB(3.9,143,2,1871,0)="""RTN"",""SROPCE1"",93,0)"
^XMB(3.9,143,2,1872,0)=" Q"
^XMB(3.9,143,2,1873,0)="""RTN"",""SROPCE1"",94,0)"
^XMB(3.9,143,2,1874,0)="WL ; entry from waiting list"
^XMB(3.9,143,2,1875,0)="""RTN"",""SROPCE1"",95,0)"
^XMB(3.9,143,2,1876,0)=" N SRWLST S SRWLST=1 G EN1"
^XMB(3.9,143,2,1877,0)="""RTN"",""SROPCE1"",96,0)"
^XMB(3.9,143,2,1878,0)=" Q"
^XMB(3.9,143,2,1879,0)="""RTN"",""SROPCE1"",97,0)"
^XMB(3.9,143,2,1880,0)="REQ ; entry from new request entry"
^XMB(3.9,143,2,1881,0)="""RTN"",""SROPCE1"",98,0)"
^XMB(3.9,143,2,1882,0)=" N SRREQ S SRREQ=1 G EN1"
^XMB(3.9,143,2,1883,0)="""RTN"",""SROPCE1"",99,0)"
^XMB(3.9,143,2,1884,0)="PRESS W ! K DIR S DIR(""A"")=""Press RETURN to continue  "",DIR(0)=""FOA"" D ^DIR K DIR W @IOF"
^XMB(3.9,143,2,1885,0)="""RTN"",""SROPCE1"",100,0)"
^XMB(3.9,143,2,1886,0)=" Q"
^XMB(3.9,143,2,1887,0)="""RTN"",""SROPCE1"",101,0)"
^XMB(3.9,143,2,1888,0)="UPDSC ;Update existing DX to Service Connected/Environmental Indicators associations."
^XMB(3.9,143,2,1889,0)="""RTN"",""SROPCE1"",102,0)"
^XMB(3.9,143,2,1890,0)=" K DA,DIE"
^XMB(3.9,143,2,1891,0)="""RTN"",""SROPCE1"",103,0)"
^XMB(3.9,143,2,1892,0)=" S (DA,I)=0,DA(1)=SRTN,DIE=""^SRF(""_SRTN_"",15,"""
^XMB(3.9,143,2,1893,0)="""RTN"",""SROPCE1"",104,0)"
^XMB(3.9,143,2,1894,0)=" K DR"
^XMB(3.9,143,2,1895,0)="""RTN"",""SROPCE1"",105,0)"
^XMB(3.9,143,2,1896,0)=" D:$D(SRCL(1,""UPDATE"")) BLDDR(5,SRCL(1))"
^XMB(3.9,143,2,1897,0)="""RTN"",""SROPCE1"",106,0)"
^XMB(3.9,143,2,1898,0)=" D:$D(SRCL(2,""UPDATE"")) BLDDR(6,SRCL(2))"
^XMB(3.9,143,2,1899,0)="""RTN"",""SROPCE1"",107,0)"
^XMB(3.9,143,2,1900,0)=" D:$D(SRCL(3,""UPDATE"")) BLDDR(4,SRCL(3))"
^XMB(3.9,143,2,1901,0)="""RTN"",""SROPCE1"",108,0)"
^XMB(3.9,143,2,1902,0)=" D:$D(SRCL(4,""UPDATE"")) BLDDR(9,SRCL(4))"
^XMB(3.9,143,2,1903,0)="""RTN"",""SROPCE1"",109,0)"
^XMB(3.9,143,2,1904,0)=" D:$D(SRCL(5,""UPDATE"")) BLDDR(7,SRCL(5))"
^XMB(3.9,143,2,1905,0)="""RTN"",""SROPCE1"",110,0)"
^XMB(3.9,143,2,1906,0)=" D:$D(SRCL(6,""UPDATE"")) BLDDR(8,SRCL(6))"
^XMB(3.9,143,2,1907,0)="""RTN"",""SROPCE1"",111,0)"
^XMB(3.9,143,2,1908,0)=" D:$D(SRCL(7,""UPDATE"")) BLDDR(10,SRCL(7))"
^XMB(3.9,143,2,1909,0)="""RTN"",""SROPCE1"",112,0)"
^XMB(3.9,143,2,1910,0)=" D:$D(SRCL(8,""UPDATE"")) BLDDR(11,SRCL(8))"
^XMB(3.9,143,2,1911,0)="""RTN"",""SROPCE1"",113,0)"
^XMB(3.9,143,2,1912,0)=" F I=1:1 S DA=$O(^SRF(SRTN,15,DA)) Q:DA=""""  D ^DIE"
^XMB(3.9,143,2,1913,0)="""RTN"",""SROPCE1"",114,0)"
^XMB(3.9,143,2,1914,0)=" Q"
^XMB(3.9,143,2,1915,0)="""RTN"",""SROPCE1"",115,0)"
^XMB(3.9,143,2,1916,0)="BLDDR(DXPIECE,NEWSC) ;Build the DR string for updating DX/Service Indicators associations"
^XMB(3.9,143,2,1917,0)="""RTN"",""SROPCE1"",116,0)"
^XMB(3.9,143,2,1918,0)=" S:$D(DR) DR=DR_"";"""
^XMB(3.9,143,2,1919,0)="""RTN"",""SROPCE1"",117,0)"
^XMB(3.9,143,2,1920,0)=" S:'$D(DR) DR="""""
^XMB(3.9,143,2,1921,0)="""RTN"",""SROPCE1"",118,0)"
^XMB(3.9,143,2,1922,0)=" S DR=DR_DXPIECE_""///""_NEWSC"
^XMB(3.9,143,2,1923,0)="""RTN"",""SROPCE1"",119,0)"
^XMB(3.9,143,2,1924,0)=" K DXPIECE,NEWSC"
^XMB(3.9,143,2,1925,0)="""RTN"",""SROPCE1"",120,0)"
^XMB(3.9,143,2,1926,0)=" Q"
^XMB(3.9,143,2,1927,0)="""RTN"",""SROPCEP"")"
^XMB(3.9,143,2,1928,0)="0^7^B73728943^B74884918"
^XMB(3.9,143,2,1929,0)="""RTN"",""SROPCEP"",1,0)"
^XMB(3.9,143,2,1930,0)="SROPCEP ;BIR/TJH - PCE UPDATES ;04/26/05  9:28 AM"
^XMB(3.9,143,2,1931,0)="""RTN"",""SROPCEP"",2,0)"
^XMB(3.9,143,2,1932,0)=" ;;3.0; Surgery ;**142,152**;24 Jun 93"
^XMB(3.9,143,2,1933,0)="""RTN"",""SROPCEP"",3,0)"
^XMB(3.9,143,2,1934,0)=" ;"
^XMB(3.9,143,2,1935,0)="""RTN"",""SROPCEP"",4,0)"
^XMB(3.9,143,2,1936,0)=" ; Reference to $$DATA2PCE^PXAPI supported by DBIA #1889"
^XMB(3.9,143,2,1937,0)="""RTN"",""SROPCEP"",5,0)"
^XMB(3.9,143,2,1938,0)=" ; Reference to $$DELVFILE^PXAPI supported by DBIA #1890"
^XMB(3.9,143,2,1939,0)="""RTN"",""SROPCEP"",6,0)"
^XMB(3.9,143,2,1940,0)=" ;"
^XMB(3.9,143,2,1941,0)="""RTN"",""SROPCEP"",7,0)"
^XMB(3.9,143,2,1942,0)=" Q"
^XMB(3.9,143,2,1943,0)="""RTN"",""SROPCEP"",8,0)"
^XMB(3.9,143,2,1944,0)="START ; entry for update to PCE with surgery & non-OR procedure data"
^XMB(3.9,143,2,1945,0)="""RTN"",""SROPCEP"",9,0)"
^XMB(3.9,143,2,1946,0)=" I '$D(SRTN) S SRTN=$G(DA)"
^XMB(3.9,143,2,1947,0)="""RTN"",""SROPCEP"",10,0)"
^XMB(3.9,143,2,1948,0)=" I SRTN="""" Q"
^XMB(3.9,143,2,1949,0)="""RTN"",""SROPCEP"",11,0)"
^XMB(3.9,143,2,1950,0)=" N DFN,SR,SRAO,SRATT,SRCHK,SRCPT,SRDATE,SRDIAG,SREC,SRHNC,SRIR,SRCV,SRPRJ,SRK,SRLOC,SRMST,SRNON,SROTH,SRPKG,SRPROV,SRS,SRSC,SRV,SRVSIT,SRX,SRX2"
^XMB(3.9,143,2,1951,0)="""RTN"",""SROPCEP"",12,0)"
^XMB(3.9,143,2,1952,0)=" N SRPLSC,SRPLAO,SRPLIR,SRPLEC,SRPLMST,SRPLHNC,SRPLCV,SRPLPRJ,SRADX,SRCNT,SRD,SRDX,SRRPROV,SRUP,SRINOUT,SRO"
^XMB(3.9,143,2,1953,0)="""RTN"",""SROPCEP"",13,0)"
^XMB(3.9,143,2,1954,0)=" N SRDP,SRDC,SRDI,SRDL,SRDIE,SRDG,SRDM,SRDR,SRDH,SRDK,SRDA,SRD0,SRDDER,SRDG,SRDIC,SRDIC1,SRDICRRE,SRDIEDA,SRDIG,SRDIH,SRDIIENS,SRDISL,SRDISYS,SRDIU,SRDIV,SRDIWT,SRDN,SRDQ,SRDX,SRDY"
^XMB(3.9,143,2,1955,0)="""RTN"",""SROPCEP"",14,0)"
^XMB(3.9,143,2,1956,0)=" D FM1 K DIC S DIC=9.4,DIC(0)=""XM"",X=""SURGERY"" D ^DIC K DIC D FM2 Q:Y=-1  S SRPKG=+Y"
^XMB(3.9,143,2,1957,0)="""RTN"",""SROPCEP"",15,0)"
^XMB(3.9,143,2,1958,0)=" S SRS=""SURGERY DATA"" K ^TMP(""SRPXAPI"",$J)"
^XMB(3.9,143,2,1959,0)="""RTN"",""SROPCEP"",16,0)"
^XMB(3.9,143,2,1960,0)=" D UTIL I 'SRK D PCE"
^XMB(3.9,143,2,1961,0)="""RTN"",""SROPCEP"",17,0)"
^XMB(3.9,143,2,1962,0)=" Q"
^XMB(3.9,143,2,1963,0)="""RTN"",""SROPCEP"",18,0)"
^XMB(3.9,143,2,1964,0)="DEL ; delete data from the Visit file and V files"
^XMB(3.9,143,2,1965,0)="""RTN"",""SROPCEP"",19,0)"
^XMB(3.9,143,2,1966,0)=" D FM1 K DA,DIE,DR S DA=SRTN,DIE=130,DR="".015///@"" D ^DIE K DA,DIE,DR D FM2"
^XMB(3.9,143,2,1967,0)="""RTN"",""SROPCEP"",20,0)"
^XMB(3.9,143,2,1968,0)=" D FM1 S SRV=$$DELVFILE^PXAPI(""ALL"",SRVSIT) K SRVSIT D FM2"
^XMB(3.9,143,2,1969,0)="""RTN"",""SROPCEP"",21,0)"
^XMB(3.9,143,2,1970,0)=" Q"
^XMB(3.9,143,2,1971,0)="""RTN"",""SROPCEP"",22,0)"
^XMB(3.9,143,2,1972,0)="UTIL ; set procedure variables"
^XMB(3.9,143,2,1973,0)="""RTN"",""SROPCEP"",23,0)"
^XMB(3.9,143,2,1974,0)=" N SRDIV,SRSITE,SRSR"
^XMB(3.9,143,2,1975,0)="""RTN"",""SROPCEP"",24,0)"
^XMB(3.9,143,2,1976,0)=" S SRSR="""",SRK=0,SRDIV=$P($G(^SRF(SRTN,8)),""^"") I SRDIV S SRSITE=$O(^SRO(133,""B"",SRDIV,0)),X=^SRO(133,SRSITE,0),SRUP=$P(X,""^"",15),SRSR=$P(X,""^"",19) I SRUP=""""!(SRUP=""N"") S SRK=1 Q"
^XMB(3.9,143,2,1977,0)="""RTN"",""SROPCEP"",25,0)"
^XMB(3.9,143,2,1978,0)=" S SRX=$P($G(^SRF(SRTN,0)),""^"",15) I SRX S SRVSIT=SRX D DEL I '$D(^SRF(SRTN,0)) S SRK=1 Q"
^XMB(3.9,143,2,1979,0)="""RTN"",""SROPCEP"",26,0)"
^XMB(3.9,143,2,1980,0)=" S SR(0)=$G(^SRF(SRTN,0)) I SR(0)=""""!$P($G(^SRF(SRTN,30)),""^"") S SRK=1 Q"
^XMB(3.9,143,2,1981,0)="""RTN"",""SROPCEP"",27,0)"
^XMB(3.9,143,2,1982,0)=" S DFN=$P(SR(0),""^"")"
^XMB(3.9,143,2,1983,0)="""RTN"",""SROPCEP"",28,0)"
^XMB(3.9,143,2,1984,0)=" S SRNON=$S($P($G(^SRF(SRTN,""NON"")),""^"")=""Y"":1,1:0),SRCPT=$P($G(^SRO(136,SRTN,0)),""^"",2) I 'SRCPT S SRK=1 Q"
^XMB(3.9,143,2,1985,0)="""RTN"",""SROPCEP"",29,0)"
^XMB(3.9,143,2,1986,0)=" Q:SRK  S SRDIAG=$P($G(^SRO(136,SRTN,0)),""^"",3) I 'SRDIAG S SRK=1 Q"
^XMB(3.9,143,2,1987,0)="""RTN"",""SROPCEP"",30,0)"
^XMB(3.9,143,2,1988,0)=" I 'SRNON D  I SRK Q"
^XMB(3.9,143,2,1989,0)="""RTN"",""SROPCEP"",31,0)"
^XMB(3.9,143,2,1990,0)=" .S SRX=$P(SR(0),""^"",21) I SRX S SRLOC=SRX"
^XMB(3.9,143,2,1991,0)="""RTN"",""SROPCEP"",32,0)"
^XMB(3.9,143,2,1992,0)=" .I 'SRX S SRX=$P(^SRO(137.45,$P(SR(0),""^"",4),0),""^"",5) I SRX S SRLOC=SRX"
^XMB(3.9,143,2,1993,0)="""RTN"",""SROPCEP"",33,0)"
^XMB(3.9,143,2,1994,0)=" .I 'SRX S SRX=$P(SR(0),""^"",2) S:SRX SRLOC=$P(^SRS(SRX,0),""^"") I 'SRX S SRK=1 Q"
^XMB(3.9,143,2,1995,0)="""RTN"",""SROPCEP"",34,0)"
^XMB(3.9,143,2,1996,0)=" .S SRX=$G(^SRF(SRTN,.2)),SRCHK=$P(SRX,""^"",12) I 'SRCHK S SRK=1 Q"
^XMB(3.9,143,2,1997,0)="""RTN"",""SROPCEP"",35,0)"
^XMB(3.9,143,2,1998,0)=" .S SRDATE=$P(SRX,""^"",10) I 'SRDATE S SRK=1 Q"
^XMB(3.9,143,2,1999,0)="""RTN"",""SROPCEP"",36,0)"
^XMB(3.9,143,2,2000,0)=" .S SRX=$G(^SRF(SRTN,.1)),SRPROV=$P(SRX,""^"",4),SRATT=$P(SRX,""^"",13) I 'SRPROV S SRK=1 Q"
^XMB(3.9,143,2,2001,0)="""RTN"",""SROPCEP"",37,0)"
^XMB(3.9,143,2,2002,0)=" .I SRSR'=0,'SRATT S SRK=1 Q"
^XMB(3.9,143,2,2003,0)="""RTN"",""SROPCEP"",38,0)"
^XMB(3.9,143,2,2004,0)=" I SRNON D  I SRK Q"
^XMB(3.9,143,2,2005,0)="""RTN"",""SROPCEP"",39,0)"
^XMB(3.9,143,2,2006,0)=" .S SRLOC=$P(SR(0),""^"",21)"
^XMB(3.9,143,2,2007,0)="""RTN"",""SROPCEP"",40,0)"
^XMB(3.9,143,2,2008,0)=" .S SRX=^SRF(SRTN,""NON""),SRCHK=$P(SRX,""^"",5) I 'SRCHK S SRK=1 Q"
^XMB(3.9,143,2,2009,0)="""RTN"",""SROPCEP"",41,0)"
^XMB(3.9,143,2,2010,0)=" .S SRDATE=$P(SRX,""^"",4) I 'SRDATE S SRK=1 Q"
^XMB(3.9,143,2,2011,0)="""RTN"",""SROPCEP"",42,0)"
^XMB(3.9,143,2,2012,0)=" .I 'SRLOC S SRLOC=$P(SRX,""^"",2) I 'SRLOC S SRK=1 Q"
^XMB(3.9,143,2,2013,0)="""RTN"",""SROPCEP"",43,0)"
^XMB(3.9,143,2,2014,0)=" .S SRPROV=$P(SRX,""^"",6),SRATT=$P(SRX,""^"",7) I 'SRPROV S SRK=1"
^XMB(3.9,143,2,2015,0)="""RTN"",""SROPCEP"",44,0)"
^XMB(3.9,143,2,2016,0)=" .I SRSR'=0,'SRATT S SRK=1"
^XMB(3.9,143,2,2017,0)="""RTN"",""SROPCEP"",45,0)"
^XMB(3.9,143,2,2018,0)=" S VAINDT=SRDATE"
^XMB(3.9,143,2,2019,0)="""RTN"",""SROPCEP"",46,0)"
^XMB(3.9,143,2,2020,0)=" D INP^VADPT"
^XMB(3.9,143,2,2021,0)="""RTN"",""SROPCEP"",47,0)"
^XMB(3.9,143,2,2022,0)=" I VAIN(1) S SRINOUT=""I"""
^XMB(3.9,143,2,2023,0)="""RTN"",""SROPCEP"",48,0)"
^XMB(3.9,143,2,2024,0)=" I 'VAIN(1) S SRINOUT=""O"""
^XMB(3.9,143,2,2025,0)="""RTN"",""SROPCEP"",49,0)"
^XMB(3.9,143,2,2026,0)=" K VAINDT,VAIN"
^XMB(3.9,143,2,2027,0)="""RTN"",""SROPCEP"",50,0)"
^XMB(3.9,143,2,2028,0)=" I '$$CLINIC^SROUTL(SRLOC,SRTN) S SRK=1 Q"
^XMB(3.9,143,2,2029,0)="""RTN"",""SROPCEP"",51,0)"
^XMB(3.9,143,2,2030,0)=" S SRX=0,SRX=$O(^SRO(136,SRTN,2,SRX)) I SRX="""" S SRK=1 Q"
^XMB(3.9,143,2,2031,0)="""RTN"",""SROPCEP"",52,0)"
^XMB(3.9,143,2,2032,0)=" S SRX=0 F  S SRX=$O(^SRO(136,SRTN,3,SRX)) Q:'SRX  S SRX2=0,SRX2=$O(^SRO(136,SRTN,3,SRX,2,SRX2)) I $D(^SRO(136,SRTN,3,SRX,0)),(SRX2="""") S SRK=1  Q:SRK"
^XMB(3.9,143,2,2033,0)="""RTN"",""SROPCEP"",53,0)"
^XMB(3.9,143,2,2034,0)=" S SRRPROV="""" I $D(^SRF(SRTN,18)) S SRX=0,SRX=$O(^SRF(SRTN,18,SRX)) I SRX S SRRPROV=$P($G(^SRF(SRTN,18,SRX,0)),""^"",7)"
^XMB(3.9,143,2,2035,0)="""RTN"",""SROPCEP"",54,0)"
^XMB(3.9,143,2,2036,0)=" S SRO(0)=$G(^SRO(136,SRTN,0))"
^XMB(3.9,143,2,2037,0)="""RTN"",""SROPCEP"",55,0)"
^XMB(3.9,143,2,2038,0)=" S (SRSC,SRAO,SREC,SRHNC,SRIR,SRMST,SRCV,SRPRJ)=0,SRSC=$P(SRO(0),""^"",4),SRAO=$P(SRO(0),""^"",5),SRIR=$P(SRO(0),""^"",6),SREC=$P(SRO(0),""^"",7),SRMST=$P(SRO(0),""^"",8),SRHNC=$P(SRO(0),""^"",9),SRCV=$P(SRO(0),""^"",10),SRPRJ=$P(SRO(0),""^"",11)"
^XMB(3.9,143,2,2039,0)="""RTN"",""SROPCEP"",56,0)"
^XMB(3.9,143,2,2040,0)=" Q"
^XMB(3.9,143,2,2041,0)="""RTN"",""SROPCEP"",57,0)"
^XMB(3.9,143,2,2042,0)="PCE ;"
^XMB(3.9,143,2,2043,0)="""RTN"",""SROPCEP"",58,0)"
^XMB(3.9,143,2,2044,0)=" N SRI,SRJ,SRCODE,SROTH D TMP"
^XMB(3.9,143,2,2045,0)="""RTN"",""SROPCEP"",59,0)"
^XMB(3.9,143,2,2046,0)="D2PCE ;"
^XMB(3.9,143,2,2047,0)="""RTN"",""SROPCEP"",60,0)"
^XMB(3.9,143,2,2048,0)=" D FM1 S SRV=$$DATA2PCE^PXAPI(""^TMP(""""SRPXAPI"""",$J)"",SRPKG,SRS,.SRVSIT) D FM2"
^XMB(3.9,143,2,2049,0)="""RTN"",""SROPCEP"",61,0)"
^XMB(3.9,143,2,2050,0)=" I SRVSIT D FM1 K DA,DIE,DR S DA=SRTN,DIE=130,DR="".015////""_SRVSIT D ^DIE K DA,DIE,DR D FM2"
^XMB(3.9,143,2,2051,0)="""RTN"",""SROPCEP"",62,0)"
^XMB(3.9,143,2,2052,0)=" K ^TMP(""SRPXAPI"",$J),SRVSIT"
^XMB(3.9,143,2,2053,0)="""RTN"",""SROPCEP"",63,0)"
^XMB(3.9,143,2,2054,0)=" Q"
^XMB(3.9,143,2,2055,0)="""RTN"",""SROPCEP"",64,0)"
^XMB(3.9,143,2,2056,0)="TMP ;"
^XMB(3.9,143,2,2057,0)="""RTN"",""SROPCEP"",65,0)"
^XMB(3.9,143,2,2058,0)="ENC S ^TMP(""SRPXAPI"",$J,""ENCOUNTER"",1,""ENC D/T"")=SRDATE"
^XMB(3.9,143,2,2059,0)="""RTN"",""SROPCEP"",66,0)"
^XMB(3.9,143,2,2060,0)=" S ^TMP(""SRPXAPI"",$J,""ENCOUNTER"",1,""PATIENT"")=DFN"
^XMB(3.9,143,2,2061,0)="""RTN"",""SROPCEP"",67,0)"
^XMB(3.9,143,2,2062,0)=" S ^TMP(""SRPXAPI"",$J,""ENCOUNTER"",1,""HOS LOC"")=SRLOC"
^XMB(3.9,143,2,2063,0)="""RTN"",""SROPCEP"",68,0)"
^XMB(3.9,143,2,2064,0)=" S ^TMP(""SRPXAPI"",$J,""ENCOUNTER"",1,""CHECKOUT D/T"")=SRCHK"
^XMB(3.9,143,2,2065,0)="""RTN"",""SROPCEP"",69,0)"
^XMB(3.9,143,2,2066,0)=" S ^TMP(""SRPXAPI"",$J,""ENCOUNTER"",1,""SERVICE CATEGORY"")=""S"""
^XMB(3.9,143,2,2067,0)="""RTN"",""SROPCEP"",70,0)"
^XMB(3.9,143,2,2068,0)=" S ^TMP(""SRPXAPI"",$J,""ENCOUNTER"",1,""ENCOUNTER TYPE"")=""P"""
^XMB(3.9,143,2,2069,0)="""RTN"",""SROPCEP"",71,0)"
^XMB(3.9,143,2,2070,0)=" S ^TMP(""SRPXAPI"",$J,""ENCOUNTER"",1,""APPT"")=9"
^XMB(3.9,143,2,2071,0)="""RTN"",""SROPCEP"",72,0)"
^XMB(3.9,143,2,2072,0)=" S ^TMP(""SRPXAPI"",$J,""ENCOUNTER"",1,""SC"")=SRSC"
^XMB(3.9,143,2,2073,0)="""RTN"",""SROPCEP"",73,0)"
^XMB(3.9,143,2,2074,0)=" S ^TMP(""SRPXAPI"",$J,""ENCOUNTER"",1,""AO"")=SRAO"
^XMB(3.9,143,2,2075,0)="""RTN"",""SROPCEP"",74,0)"
^XMB(3.9,143,2,2076,0)=" S ^TMP(""SRPXAPI"",$J,""ENCOUNTER"",1,""IR"")=SRIR"
^XMB(3.9,143,2,2077,0)="""RTN"",""SROPCEP"",75,0)"
^XMB(3.9,143,2,2078,0)=" S ^TMP(""SRPXAPI"",$J,""ENCOUNTER"",1,""EC"")=SREC"
^XMB(3.9,143,2,2079,0)="""RTN"",""SROPCEP"",76,0)"
^XMB(3.9,143,2,2080,0)=" S ^TMP(""SRPXAPI"",$J,""ENCOUNTER"",1,""MST"")=SRMST"
^XMB(3.9,143,2,2081,0)="""RTN"",""SROPCEP"",77,0)"
^XMB(3.9,143,2,2082,0)=" S ^TMP(""SRPXAPI"",$J,""ENCOUNTER"",1,""HNC"")=SRHNC"
^XMB(3.9,143,2,2083,0)="""RTN"",""SROPCEP"",78,0)"
^XMB(3.9,143,2,2084,0)=" S ^TMP(""SRPXAPI"",$J,""ENCOUNTER"",1,""CV"")=SRCV"
^XMB(3.9,143,2,2085,0)="""RTN"",""SROPCEP"",79,0)"
^XMB(3.9,143,2,2086,0)=" S ^TMP(""SRPXAPI"",$J,""ENCOUNTER"",1,""SHAD"")=SRPRJ"
^XMB(3.9,143,2,2087,0)="""RTN"",""SROPCEP"",80,0)"
^XMB(3.9,143,2,2088,0)="PROC S SRI=1,SRCODE=SRCPT D PMOD,CPT"
^XMB(3.9,143,2,2089,0)="""RTN"",""SROPCEP"",81,0)"
^XMB(3.9,143,2,2090,0)=" S SROTH=0 F  S SROTH=$O(^SRO(136,SRTN,3,SROTH)) Q:'SROTH  S SRCODE=$P($G(^SRO(136,SRTN,3,SROTH,0)),""^"") I SRCODE S SRI=SRI+1 D OMOD,CPT"
^XMB(3.9,143,2,2091,0)="""RTN"",""SROPCEP"",82,0)"
^XMB(3.9,143,2,2092,0)="PROV S ^TMP(""SRPXAPI"",$J,""PROVIDER"",1,""NAME"")=SRPROV"
^XMB(3.9,143,2,2093,0)="""RTN"",""SROPCEP"",83,0)"
^XMB(3.9,143,2,2094,0)=" S ^TMP(""SRPXAPI"",$J,""PROVIDER"",1,""PRIMARY"")=1"
^XMB(3.9,143,2,2095,0)="""RTN"",""SROPCEP"",84,0)"
^XMB(3.9,143,2,2096,0)=" I 'SRNON S ^TMP(""SRPXAPI"",$J,""PROVIDER"",1,""COMMENT"")=""Surgeon"""
^XMB(3.9,143,2,2097,0)="""RTN"",""SROPCEP"",85,0)"
^XMB(3.9,143,2,2098,0)=" I SRPROV=SRATT!'SRATT S ^TMP(""SRPXAPI"",$J,""PROVIDER"",1,""ATTENDING"")=1 G DIAG"
^XMB(3.9,143,2,2099,0)="""RTN"",""SROPCEP"",86,0)"
^XMB(3.9,143,2,2100,0)=" I 'SRATT G DIAG"
^XMB(3.9,143,2,2101,0)="""RTN"",""SROPCEP"",87,0)"
^XMB(3.9,143,2,2102,0)=" S ^TMP(""SRPXAPI"",$J,""PROVIDER"",2,""NAME"")=SRATT"
^XMB(3.9,143,2,2103,0)="""RTN"",""SROPCEP"",88,0)"
^XMB(3.9,143,2,2104,0)=" S ^TMP(""SRPXAPI"",$J,""PROVIDER"",2,""ATTENDING"")=1"
^XMB(3.9,143,2,2105,0)="""RTN"",""SROPCEP"",89,0)"
^XMB(3.9,143,2,2106,0)=" S ^TMP(""SRPXAPI"",$J,""PROVIDER"",2,""PRIMARY"")=0"
^XMB(3.9,143,2,2107,0)="""RTN"",""SROPCEP"",90,0)"
^XMB(3.9,143,2,2108,0)=" I 'SRNON S ^TMP(""SRPXAPI"",$J,""PROVIDER"",2,""COMMENT"")=""Attending Surgeon"""
^XMB(3.9,143,2,2109,0)="""RTN"",""SROPCEP"",91,0)"
^XMB(3.9,143,2,2110,0)="DIAG S SRI=1,SRDX=SRDIAG D DX"
^XMB(3.9,143,2,2111,0)="""RTN"",""SROPCEP"",92,0)"
^XMB(3.9,143,2,2112,0)=" S SRD=0 F  S SRD=$O(^SRO(136,SRTN,4,SRD)) Q:'SRD  S SRDX=$P(^SRO(136,SRTN,4,SRD,0),""^"") I SRDX D DX"
^XMB(3.9,143,2,2113,0)="""RTN"",""SROPCEP"",93,0)"
^XMB(3.9,143,2,2114,0)=" Q"
^XMB(3.9,143,2,2115,0)="""RTN"",""SROPCEP"",94,0)"
^XMB(3.9,143,2,2116,0)="DX S ^TMP(""SRPXAPI"",$J,""DX/PL"",SRI,""DIAGNOSIS"")=SRDX"
^XMB(3.9,143,2,2117,0)="""RTN"",""SROPCEP"",95,0)"
^XMB(3.9,143,2,2118,0)=" I SRI=1 D"
^XMB(3.9,143,2,2119,0)="""RTN"",""SROPCEP"",96,0)"
^XMB(3.9,143,2,2120,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",1,""PRIMARY"")=1"
^XMB(3.9,143,2,2121,0)="""RTN"",""SROPCEP"",97,0)"
^XMB(3.9,143,2,2122,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",1,""ORD/RES"")=""R"""
^XMB(3.9,143,2,2123,0)="""RTN"",""SROPCEP"",98,0)"
^XMB(3.9,143,2,2124,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",1,""PL SC"")=SRSC"
^XMB(3.9,143,2,2125,0)="""RTN"",""SROPCEP"",99,0)"
^XMB(3.9,143,2,2126,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",1,""PL AO"")=SRAO"
^XMB(3.9,143,2,2127,0)="""RTN"",""SROPCEP"",100,0)"
^XMB(3.9,143,2,2128,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",1,""PL IR"")=SRIR"
^XMB(3.9,143,2,2129,0)="""RTN"",""SROPCEP"",101,0)"
^XMB(3.9,143,2,2130,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",1,""PL EC"")=SREC"
^XMB(3.9,143,2,2131,0)="""RTN"",""SROPCEP"",102,0)"
^XMB(3.9,143,2,2132,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",1,""PL MST"")=SRMST"
^XMB(3.9,143,2,2133,0)="""RTN"",""SROPCEP"",103,0)"
^XMB(3.9,143,2,2134,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",1,""PL HNC"")=SRHNC"
^XMB(3.9,143,2,2135,0)="""RTN"",""SROPCEP"",104,0)"
^XMB(3.9,143,2,2136,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",1,""PL CV"")=SRCV"
^XMB(3.9,143,2,2137,0)="""RTN"",""SROPCEP"",105,0)"
^XMB(3.9,143,2,2138,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",1,""PL SHAD"")=SRPRJ"
^XMB(3.9,143,2,2139,0)="""RTN"",""SROPCEP"",106,0)"
^XMB(3.9,143,2,2140,0)=" I SRI'=1 D"
^XMB(3.9,143,2,2141,0)="""RTN"",""SROPCEP"",107,0)"
^XMB(3.9,143,2,2142,0)=" .S SR(4)=$G(^SRO(136,SRTN,4,SRD,0))"
^XMB(3.9,143,2,2143,0)="""RTN"",""SROPCEP"",108,0)"
^XMB(3.9,143,2,2144,0)=" .S (SRPLSC,SRPLAO,SRPLIR,SRPLEC,SRPLMST,SRPLHNC,SRPLCV,SRPLPRJ)=0,SRPLSC=$P(SR(4),""^"",2),SRPLAO=$P(SR(4),""^"",3)"
^XMB(3.9,143,2,2145,0)="""RTN"",""SROPCEP"",109,0)"
^XMB(3.9,143,2,2146,0)=" .S SRPLIR=$P(SR(4),""^"",4),SRPLMST=$P(SR(4),""^"",5),SRPLHNC=$P(SR(4),""^"",6),SRPLEC=$P(SR(4),""^"",7),SRPLCV=$P(SR(4),""^"",8),SRPLPRJ=$P(SR(4),""^"",9)"
^XMB(3.9,143,2,2147,0)="""RTN"",""SROPCEP"",110,0)"
^XMB(3.9,143,2,2148,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",SRI,""ORD/RES"")=""R"""
^XMB(3.9,143,2,2149,0)="""RTN"",""SROPCEP"",111,0)"
^XMB(3.9,143,2,2150,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",SRI,""PL SC"")=SRPLSC"
^XMB(3.9,143,2,2151,0)="""RTN"",""SROPCEP"",112,0)"
^XMB(3.9,143,2,2152,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",SRI,""PL AO"")=SRPLAO"
^XMB(3.9,143,2,2153,0)="""RTN"",""SROPCEP"",113,0)"
^XMB(3.9,143,2,2154,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",SRI,""PL IR"")=SRPLIR"
^XMB(3.9,143,2,2155,0)="""RTN"",""SROPCEP"",114,0)"
^XMB(3.9,143,2,2156,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",SRI,""PL EC"")=SRPLEC"
^XMB(3.9,143,2,2157,0)="""RTN"",""SROPCEP"",115,0)"
^XMB(3.9,143,2,2158,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",SRI,""PL MST"")=SRPLMST"
^XMB(3.9,143,2,2159,0)="""RTN"",""SROPCEP"",116,0)"
^XMB(3.9,143,2,2160,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",SRI,""PL HNC"")=SRPLHNC"
^XMB(3.9,143,2,2161,0)="""RTN"",""SROPCEP"",117,0)"
^XMB(3.9,143,2,2162,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",SRI,""PL CV"")=SRPLCV"
^XMB(3.9,143,2,2163,0)="""RTN"",""SROPCEP"",118,0)"
^XMB(3.9,143,2,2164,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",SRI,""PL SHAD"")=SRPLPRJ"
^XMB(3.9,143,2,2165,0)="""RTN"",""SROPCEP"",119,0)"
^XMB(3.9,143,2,2166,0)=" S SRI=SRI+1"
^XMB(3.9,143,2,2167,0)="""RTN"",""SROPCEP"",120,0)"
^XMB(3.9,143,2,2168,0)=" Q"
^XMB(3.9,143,2,2169,0)="""RTN"",""SROPCEP"",121,0)"
^XMB(3.9,143,2,2170,0)="CPT S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",SRI,""ENC PROVIDER"")=SRPROV"
^XMB(3.9,143,2,2171,0)="""RTN"",""SROPCEP"",122,0)"
^XMB(3.9,143,2,2172,0)=" S:SRRPROV'="""" ^TMP(""SRPXAPI"",$J,""PROCEDURE"",SRI,""ORD PROVIDER"")=SRRPROV"
^XMB(3.9,143,2,2173,0)="""RTN"",""SROPCEP"",123,0)"
^XMB(3.9,143,2,2174,0)=" S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",SRI,""EVENT D/T"")=SRDATE"
^XMB(3.9,143,2,2175,0)="""RTN"",""SROPCEP"",124,0)"
^XMB(3.9,143,2,2176,0)=" S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",SRI,""PROCEDURE"")=SRCODE"
^XMB(3.9,143,2,2177,0)="""RTN"",""SROPCEP"",125,0)"
^XMB(3.9,143,2,2178,0)=" S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",SRI,""QTY"")=1"
^XMB(3.9,143,2,2179,0)="""RTN"",""SROPCEP"",126,0)"
^XMB(3.9,143,2,2180,0)=" S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",SRI,""COMMENT"")=$S(SRI=1:""Principal Procedure"",1:""Other Procedure"")"
^XMB(3.9,143,2,2181,0)="""RTN"",""SROPCEP"",127,0)"
^XMB(3.9,143,2,2182,0)=" I SRI=1 D"
^XMB(3.9,143,2,2183,0)="""RTN"",""SROPCEP"",128,0)"
^XMB(3.9,143,2,2184,0)=" .S SRCNT=1,SRX=0 F  S SRX=$O(^SRO(136,SRTN,2,SRX)) Q:'SRX  D"
^XMB(3.9,143,2,2185,0)="""RTN"",""SROPCEP"",129,0)"
^XMB(3.9,143,2,2186,0)=" ..S SRADX=$P(^SRO(136,SRTN,2,SRX,0),""^"")"
^XMB(3.9,143,2,2187,0)="""RTN"",""SROPCEP"",130,0)"
^XMB(3.9,143,2,2188,0)=" ..I SRCNT=1 S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",1,""DIAGNOSIS"")=SRADX"
^XMB(3.9,143,2,2189,0)="""RTN"",""SROPCEP"",131,0)"
^XMB(3.9,143,2,2190,0)=" ..I SRCNT=2 S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",1,""DIAGNOSIS 2"")=SRADX"
^XMB(3.9,143,2,2191,0)="""RTN"",""SROPCEP"",132,0)"
^XMB(3.9,143,2,2192,0)=" ..I SRCNT=3 S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",1,""DIAGNOSIS 3"")=SRADX"
^XMB(3.9,143,2,2193,0)="""RTN"",""SROPCEP"",133,0)"
^XMB(3.9,143,2,2194,0)=" ..I SRCNT=4 S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",1,""DIAGNOSIS 4"")=SRADX"
^XMB(3.9,143,2,2195,0)="""RTN"",""SROPCEP"",134,0)"
^XMB(3.9,143,2,2196,0)=" ..I SRCNT=5 S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",1,""DIAGNOSIS 5"")=SRADX"
^XMB(3.9,143,2,2197,0)="""RTN"",""SROPCEP"",135,0)"
^XMB(3.9,143,2,2198,0)=" ..I SRCNT=6 S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",1,""DIAGNOSIS 6"")=SRADX"
^XMB(3.9,143,2,2199,0)="""RTN"",""SROPCEP"",136,0)"
^XMB(3.9,143,2,2200,0)=" ..I SRCNT=7 S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",1,""DIAGNOSIS 7"")=SRADX"
^XMB(3.9,143,2,2201,0)="""RTN"",""SROPCEP"",137,0)"
^XMB(3.9,143,2,2202,0)=" ..I SRCNT=8 S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",1,""DIAGNOSIS 8"")=SRADX"
^XMB(3.9,143,2,2203,0)="""RTN"",""SROPCEP"",138,0)"
^XMB(3.9,143,2,2204,0)=" ..S SRCNT=SRCNT+1"
^XMB(3.9,143,2,2205,0)="""RTN"",""SROPCEP"",139,0)"
^XMB(3.9,143,2,2206,0)=" I SRI'=1 D"
^XMB(3.9,143,2,2207,0)="""RTN"",""SROPCEP"",140,0)"
^XMB(3.9,143,2,2208,0)=" .S SRCNT=1,SRX=0 F  S SRX=$O(^SRO(136,SRTN,3,SROTH,2,SRX)) Q:'SRX  D"
^XMB(3.9,143,2,2209,0)="""RTN"",""SROPCEP"",141,0)"
^XMB(3.9,143,2,2210,0)=" ..S SRADX=$P(^SRO(136,SRTN,3,SROTH,2,SRX,0),""^"")"
^XMB(3.9,143,2,2211,0)="""RTN"",""SROPCEP"",142,0)"
^XMB(3.9,143,2,2212,0)=" ..I SRCNT=1 S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",SRI,""DIAGNOSIS"")=SRADX"
^XMB(3.9,143,2,2213,0)="""RTN"",""SROPCEP"",143,0)"
^XMB(3.9,143,2,2214,0)=" ..I SRCNT=2 S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",SRI,""DIAGNOSIS 2"")=SRADX"
^XMB(3.9,143,2,2215,0)="""RTN"",""SROPCEP"",144,0)"
^XMB(3.9,143,2,2216,0)=" ..I SRCNT=3 S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",SRI,""DIAGNOSIS 3"")=SRADX"
^XMB(3.9,143,2,2217,0)="""RTN"",""SROPCEP"",145,0)"
^XMB(3.9,143,2,2218,0)=" ..I SRCNT=4 S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",SRI,""DIAGNOSIS 4"")=SRADX"
^XMB(3.9,143,2,2219,0)="""RTN"",""SROPCEP"",146,0)"
^XMB(3.9,143,2,2220,0)=" ..I SRCNT=5 S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",SRI,""DIAGNOSIS 5"")=SRADX"
^XMB(3.9,143,2,2221,0)="""RTN"",""SROPCEP"",147,0)"
^XMB(3.9,143,2,2222,0)=" ..I SRCNT=6 S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",SRI,""DIAGNOSIS 6"")=SRADX"
^XMB(3.9,143,2,2223,0)="""RTN"",""SROPCEP"",148,0)"
^XMB(3.9,143,2,2224,0)=" ..I SRCNT=7 S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",SRI,""DIAGNOSIS 7"")=SRADX"
^XMB(3.9,143,2,2225,0)="""RTN"",""SROPCEP"",149,0)"
^XMB(3.9,143,2,2226,0)=" ..I SRCNT=8 S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",SRI,""DIAGNOSIS 8"")=SRADX"
^XMB(3.9,143,2,2227,0)="""RTN"",""SROPCEP"",150,0)"
^XMB(3.9,143,2,2228,0)=" ..S SRCNT=SRCNT+1"
^XMB(3.9,143,2,2229,0)="""RTN"",""SROPCEP"",151,0)"
^XMB(3.9,143,2,2230,0)=" Q"
^XMB(3.9,143,2,2231,0)="""RTN"",""SROPCEP"",152,0)"
^XMB(3.9,143,2,2232,0)="PMOD ;"
^XMB(3.9,143,2,2233,0)="""RTN"",""SROPCEP"",153,0)"
^XMB(3.9,143,2,2234,0)=" N SRM,SRMOD,X"
^XMB(3.9,143,2,2235,0)="""RTN"",""SROPCEP"",154,0)"
^XMB(3.9,143,2,2236,0)=" S SRM=0 F  S SRM=$O(^SRO(136,SRTN,1,SRM)) Q:'SRM  S X=$P(^SRO(136,SRTN,1,SRM,0),""^""),SRMOD=$P($$MOD^ICPTMOD(X,""I""),""^"",2),^TMP(""SRPXAPI"",$J,""PROCEDURE"",SRI,""MODIFIERS"",SRMOD)="""""
^XMB(3.9,143,2,2237,0)="""RTN"",""SROPCEP"",155,0)"
^XMB(3.9,143,2,2238,0)=" Q"
^XMB(3.9,143,2,2239,0)="""RTN"",""SROPCEP"",156,0)"
^XMB(3.9,143,2,2240,0)="OMOD ;"
^XMB(3.9,143,2,2241,0)="""RTN"",""SROPCEP"",157,0)"
^XMB(3.9,143,2,2242,0)=" N SRM,SRMOD,X"
^XMB(3.9,143,2,2243,0)="""RTN"",""SROPCEP"",158,0)"
^XMB(3.9,143,2,2244,0)=" S SRM=0 F  S SRM=$O(^SRO(136,SRTN,3,SROTH,1,SRM)) Q:'SRM  S X=$P(^SRO(136,SRTN,3,SROTH,1,SRM,0),""^""),SRMOD=$P($$MOD^ICPTMOD(X,""I""),""^"",2),^TMP(""SRPXAPI"",$J,""PROCEDURE"",SRI,""MODIFIERS"",SRMOD)="""""
^XMB(3.9,143,2,2245,0)="""RTN"",""SROPCEP"",159,0)"
^XMB(3.9,143,2,2246,0)=" Q"
^XMB(3.9,143,2,2247,0)="""RTN"",""SROPCEP"",160,0)"
^XMB(3.9,143,2,2248,0)="FM1 M SRDA=DA,SRDP=DP,SRDC=DC,SRDI=DI,SRDL=DL,SRDIE=DIE,SRDG=DG,SRDM=DM,SRDR=DR,SRDH=DH,SRDK=DK,SRD0=D0,SRDDER=DDER,SRDG=DG,SRDIC=DIC,SRDIC1=DIC1,SRDICRRE=DICRREC"
^XMB(3.9,143,2,2249,0)="""RTN"",""SROPCEP"",161,0)"
^XMB(3.9,143,2,2250,0)=" M SRDIEDA=DIEDA,SRDIG=DIG,SRDIH=DIH,SRDIIENS=DIIENS,SRDISL=DISL,SRDISYS=DISYS,SRDIU=DIU,SRDIV=DIV,SRDIWT=DIWT,SRDN=DN,SRDQ=DQ,SRDX=DX,SRDY=DY"
^XMB(3.9,143,2,2251,0)="""RTN"",""SROPCEP"",162,0)"
^XMB(3.9,143,2,2252,0)="FM2 M DA=SRDA,DP=SRDP,DC=SRDC,DI=SRDI,DL=SRDL,DIE=SRDIE,DG=SRDG,DM=SRDM,DR=SRDR,DH=SRDH,DK=SRDK,D0=SRD0,DDER=SRDDER,DG=SRDG,DIC=SRDIC,DIC1=SRDIC1,DICRREC=SRDICRRE"
^XMB(3.9,143,2,2253,0)="""RTN"",""SROPCEP"",163,0)"
^XMB(3.9,143,2,2254,0)=" M DIEDA=SRDIEDA,DIG=SRDIG,DIH=SRDIH,DIIENS=SRDIIENS,DISL=SRDISL,DISYS=SRDISYS,DIU=SRDIU,DIV=SRDIV,DIWT=SRDIWT,DN=SRDN,DQ=SRDQ,DX=SRDX,DY=SRDY"
^XMB(3.9,143,2,2255,0)="""RTN"",""SROVER3"")"
^XMB(3.9,143,2,2256,0)="0^6^B35709215^B34463738"
^XMB(3.9,143,2,2257,0)="""RTN"",""SROVER3"",1,0)"
^XMB(3.9,143,2,2258,0)="SROVER3 ;BIR/ADM - Case Coding and Verification ; 8/17/04 4:09pm"
^XMB(3.9,143,2,2259,0)="""RTN"",""SROVER3"",2,0)"
^XMB(3.9,143,2,2260,0)=" ;;3.0;Surgery;**86,88,127,119,152**;24 Jun 93"
^XMB(3.9,143,2,2261,0)="""RTN"",""SROVER3"",3,0)"
^XMB(3.9,143,2,2262,0)=" ;;"
^XMB(3.9,143,2,2263,0)="""RTN"",""SROVER3"",4,0)"
^XMB(3.9,143,2,2264,0)=" ; Reference to CL^SDCO21 supported by DBIA #406"
^XMB(3.9,143,2,2265,0)="""RTN"",""SROVER3"",5,0)"
^XMB(3.9,143,2,2266,0)=" ;;"
^XMB(3.9,143,2,2267,0)="""RTN"",""SROVER3"",6,0)"
^XMB(3.9,143,2,2268,0)=" S SROVER=1,SRAO(1)=26,SRAO(2)=27,SRAO(3)="""",SRAO(4)=$S(SRNON:33,1:34),SRAO(5)=66,SRAO(6)="""",SRAO(7)=32,SRAO(8)=32.5,SRMSG=""NO Assoc. DX ENTERED"""
^XMB(3.9,143,2,2269,0)="""RTN"",""SROVER3"",7,0)"
^XMB(3.9,143,2,2270,0)="ASK W ! K DIR S DIR(""A"")=""Select Information to Edit: "",DIR(0)=""FOA"",DIR(""?"",1)=""Enter the number corresponding to the information you want to update.  You may"""
^XMB(3.9,143,2,2271,0)="""RTN"",""SROVER3"",8,0)"
^XMB(3.9,143,2,2272,0)=" S DIR(""?"",2)=""enter 'ALL' to update all the information displayed on this screen, or a"",DIR(""?"")=""range of numbers separated by a ':' to update more than one item."" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1 Q"
^XMB(3.9,143,2,2273,0)="""RTN"",""SROVER3"",9,0)"
^XMB(3.9,143,2,2274,0)=" I X="""" S SREDIT=1 Q"
^XMB(3.9,143,2,2275,0)="""RTN"",""SROVER3"",10,0)"
^XMB(3.9,143,2,2276,0)=" S:$E(X)=""a"" X=""A"" I '$D(SRAO(X)),(X'?.N1"":"".N),($E(X)'=""A"") D HELP Q:SRSOUT  G ASK"
^XMB(3.9,143,2,2277,0)="""RTN"",""SROVER3"",11,0)"
^XMB(3.9,143,2,2278,0)=" I $E(X)=""A"" S X=""1:8"""
^XMB(3.9,143,2,2279,0)="""RTN"",""SROVER3"",12,0)"
^XMB(3.9,143,2,2280,0)=" I X?.N1"":"".N S Y=$E(X),Z=$P(X,"":"",2) I Y<1!(Z>8)!(Y>Z) D HELP Q:SRSOUT  G ASK"
^XMB(3.9,143,2,2281,0)="""RTN"",""SROVER3"",13,0)"
^XMB(3.9,143,2,2282,0)=" D HDR^SROVER2 I X?.N1"":"".N D RANGE Q"
^XMB(3.9,143,2,2283,0)="""RTN"",""SROVER3"",14,0)"
^XMB(3.9,143,2,2284,0)=" S EMILY=X D ONE Q"
^XMB(3.9,143,2,2285,0)="""RTN"",""SROVER3"",15,0)"
^XMB(3.9,143,2,2286,0)=" Q"
^XMB(3.9,143,2,2287,0)="""RTN"",""SROVER3"",16,0)"
^XMB(3.9,143,2,2288,0)="HELP W !!,""Enter the number corresponding to the information you want to update.  You may"",!,""enter 'ALL' to update all the information displayed on this screen, or a"""
^XMB(3.9,143,2,2289,0)="""RTN"",""SROVER3"",17,0)"
^XMB(3.9,143,2,2290,0)=" W !,""range of numbers separated by a ':' to update more than one item."""
^XMB(3.9,143,2,2291,0)="""RTN"",""SROVER3"",18,0)"
^XMB(3.9,143,2,2292,0)=" Q"
^XMB(3.9,143,2,2293,0)="""RTN"",""SROVER3"",19,0)"
^XMB(3.9,143,2,2294,0)="PRESS W ! K DIR S DIR(""A"")=""Press RETURN to continue "",DIR(0)=""FOA"" D ^DIR K DIR"
^XMB(3.9,143,2,2295,0)="""RTN"",""SROVER3"",20,0)"
^XMB(3.9,143,2,2296,0)=" Q"
^XMB(3.9,143,2,2297,0)="""RTN"",""SROVER3"",21,0)"
^XMB(3.9,143,2,2298,0)="RANGE ; range of numbers"
^XMB(3.9,143,2,2299,0)="""RTN"",""SROVER3"",22,0)"
^XMB(3.9,143,2,2300,0)=" S SHEMP=$P(X,"":""),CURLEY=$P(X,"":"",2) F EMILY=SHEMP:1:CURLEY Q:SRSOUT  W ! D ONE"
^XMB(3.9,143,2,2301,0)="""RTN"",""SROVER3"",23,0)"
^XMB(3.9,143,2,2302,0)=" Q"
^XMB(3.9,143,2,2303,0)="""RTN"",""SROVER3"",24,0)"
^XMB(3.9,143,2,2304,0)="ONE ; edit one item"
^XMB(3.9,143,2,2305,0)="""RTN"",""SROVER3"",25,0)"
^XMB(3.9,143,2,2306,0)=" I EMILY=3 D POTH Q"
^XMB(3.9,143,2,2307,0)="""RTN"",""SROVER3"",26,0)"
^XMB(3.9,143,2,2308,0)=" I EMILY=6 D DOTH Q"
^XMB(3.9,143,2,2309,0)="""RTN"",""SROVER3"",27,0)"
^XMB(3.9,143,2,2310,0)=" W ! K DR,DIE,DA S DIE=130,DA=SRTN,DR=SRAO(EMILY)_""T"" D ^DIE K DR,DIE I $D(Y) S SRSOUT=1"
^XMB(3.9,143,2,2311,0)="""RTN"",""SROVER3"",28,0)"
^XMB(3.9,143,2,2312,0)=" I EMILY=4&($$SCEC()) D ASK^SROPCE1 K SRCL"
^XMB(3.9,143,2,2313,0)="""RTN"",""SROVER3"",29,0)"
^XMB(3.9,143,2,2314,0)=" I EMILY=2 D CASDX^SROADX"
^XMB(3.9,143,2,2315,0)="""RTN"",""SROVER3"",30,0)"
^XMB(3.9,143,2,2316,0)=" Q"
^XMB(3.9,143,2,2317,0)="""RTN"",""SROVER3"",31,0)"
^XMB(3.9,143,2,2318,0)="POTH W !,""Other Procedures:"",!"
^XMB(3.9,143,2,2319,0)="""RTN"",""SROVER3"",32,0)"
^XMB(3.9,143,2,2320,0)=" N SRSHT K SRSEL S CNT=1,OTH=0 F  S OTH=$O(^SRF(SRTN,13,OTH)) Q:'OTH!(SRSOUT)  D"
^XMB(3.9,143,2,2321,0)="""RTN"",""SROVER3"",33,0)"
^XMB(3.9,143,2,2322,0)=" .S OTHER=$P(^SRF(SRTN,13,OTH,0),U),X=$P($G(^SRF(SRTN,13,OTH,2)),U),CPT=""NOT ENTERED"",CPT1="""""
^XMB(3.9,143,2,2323,0)="""RTN"",""SROVER3"",34,0)"
^XMB(3.9,143,2,2324,0)=" .I X S CPT1=X,Y=$$CPT^ICPTCOD(X,$P($G(^SRF(SRTN,0)),""^"",9)),SRCPT=$P(Y,U,2),SRSHT=$P(Y,U,3),Y=SRCPT,SRDA=OTH D SSOTH^SROCPT S SRCPT=Y,CPT=SRCPT_""  ""_SRSHT"
^XMB(3.9,143,2,2325,0)="""RTN"",""SROVER3"",35,0)"
^XMB(3.9,143,2,2326,0)=" .W !,CNT_"". ""_OTHER"
^XMB(3.9,143,2,2327,0)="""RTN"",""SROVER3"",36,0)"
^XMB(3.9,143,2,2328,0)=" .W !,?5,""CPT Code: ""_CPT"
^XMB(3.9,143,2,2329,0)="""RTN"",""SROVER3"",37,0)"
^XMB(3.9,143,2,2330,0)=" .S SRSEL(CNT)=OTH_""^""_OTHER_""^CPT Code: ""_CPT_""^""_CPT1"
^XMB(3.9,143,2,2331,0)="""RTN"",""SROVER3"",38,0)"
^XMB(3.9,143,2,2332,0)=" .D OTHADXD^SROADX1"
^XMB(3.9,143,2,2333,0)="""RTN"",""SROVER3"",39,0)"
^XMB(3.9,143,2,2334,0)=" .S CNT=CNT+1"
^XMB(3.9,143,2,2335,0)="""RTN"",""SROVER3"",40,0)"
^XMB(3.9,143,2,2336,0)=" W !,CNT_"". Enter NEW Other Procedure"",! K DIR S DIR(""A"")=""Enter selection"",DIR(0)=""NO^1:""_CNT D ^DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1 Q"
^XMB(3.9,143,2,2337,0)="""RTN"",""SROVER3"",41,0)"
^XMB(3.9,143,2,2338,0)=" Q:'Y  S SRDA=Y W !! I SRDA<CNT D  G PH"
^XMB(3.9,143,2,2339,0)="""RTN"",""SROVER3"",42,0)"
^XMB(3.9,143,2,2340,0)=" .D HDR^SROVER2"
^XMB(3.9,143,2,2341,0)="""RTN"",""SROVER3"",43,0)"
^XMB(3.9,143,2,2342,0)=" .W !,""Other Procedures:"",!"
^XMB(3.9,143,2,2343,0)="""RTN"",""SROVER3"",44,0)"
^XMB(3.9,143,2,2344,0)=" .W !,SRDA,""."""
^XMB(3.9,143,2,2345,0)="""RTN"",""SROVER3"",45,0)"
^XMB(3.9,143,2,2346,0)=" .W ?3,$P(SRSEL(SRDA),U,2),!,?5,$P(SRSEL(SRDA),U,3)"
^XMB(3.9,143,2,2347,0)="""RTN"",""SROVER3"",46,0)"
^XMB(3.9,143,2,2348,0)=" .S OTH=$P(SRSEL(SRDA),U) K SRDES S CPT1=$P(SRSEL(SRDA),U,4),X=$$CPTD^ICPTCOD(CPT1,""SRDES"",,$P($G(^SRF(SRTN,0)),""^"",9)) I $O(SRDES(0)) F I=1:1:X W !,?5,SRDES(I)"
^XMB(3.9,143,2,2349,0)="""RTN"",""SROVER3"",47,0)"
^XMB(3.9,143,2,2350,0)=" .K DA,DIE,DIR,DR W ! S DA=$P(SRSEL(SRDA),U),DA(1)=SRTN,DIE=""^SRF(SRTN,13,"",DR="".01;3"" D ^DIE D:$D(DA) COTHADX^SROADX K DA,DIE,DR Q:$D(Y)  D PRESS"
^XMB(3.9,143,2,2351,0)="""RTN"",""SROVER3"",48,0)"
^XMB(3.9,143,2,2352,0)=" K DIR S DIR(""A"")=""Enter new OTHER PROCEDURE"",DIR(0)=""130.16,.01"" D ^DIR K DIR S SRNEW=Y I $D(DTOUT)!$D(DUOUT)!(Y="""") G PH"
^XMB(3.9,143,2,2353,0)="""RTN"",""SROVER3"",49,0)"
^XMB(3.9,143,2,2354,0)=" K DD,DO S DIC=""^SRF(SRTN,13,"",X=SRNEW,DIC(0)=""L"",DIC(""P"")=$P(^DD(130,.42,0),U,2) D FILE^DICN K DIC,DD,DO I +Y<0 Q"
^XMB(3.9,143,2,2355,0)="""RTN"",""SROVER3"",50,0)"
^XMB(3.9,143,2,2356,0)=" K DA,DIE,DIR,DR S DA=+Y,DA(1)=SRTN,DIE=""^SRF(SRTN,13,"",DR=""3"" D ^DIE K DA,DIE,DR Q:$D(Y)  S SRDA=CNT,OTHER=SRNEW D COTHADX^SROADX D PRESS"
^XMB(3.9,143,2,2357,0)="""RTN"",""SROVER3"",51,0)"
^XMB(3.9,143,2,2358,0)="PH D HDR^SROVER2 D POTH"
^XMB(3.9,143,2,2359,0)="""RTN"",""SROVER3"",52,0)"
^XMB(3.9,143,2,2360,0)=" Q"
^XMB(3.9,143,2,2361,0)="""RTN"",""SROVER3"",53,0)"
^XMB(3.9,143,2,2362,0)="DOTH W !,""Other Postop Diagnosis:"",!"
^XMB(3.9,143,2,2363,0)="""RTN"",""SROVER3"",54,0)"
^XMB(3.9,143,2,2364,0)=" N SCEC,ENVARR S SCEC=$$SCEC()"
^XMB(3.9,143,2,2365,0)="""RTN"",""SROVER3"",55,0)"
^XMB(3.9,143,2,2366,0)=" K SRSEL S CNT=1,OTH=0 F  S OTH=$O(^SRF(SRTN,15,OTH)) Q:'OTH!(SRSOUT)  D"
^XMB(3.9,143,2,2367,0)="""RTN"",""SROVER3"",56,0)"
^XMB(3.9,143,2,2368,0)=" .S OTHER=$P(^SRF(SRTN,15,OTH,0),U),X=$P($G(^SRF(SRTN,15,OTH,0)),U,3),SRDIAG=""NOT ENTERED"""
^XMB(3.9,143,2,2369,0)="""RTN"",""SROVER3"",57,0)"
^XMB(3.9,143,2,2370,0)=" .I X S Y=$$ICDDX^ICDCODE(X,$P($G(^SRF(SRTN,9)),""^"",9)),SRNUM=$P(Y,U,2),SRDES=$P(Y,U,4),SRDIAG=SRNUM_""  ""_SRDES"
^XMB(3.9,143,2,2371,0)="""RTN"",""SROVER3"",58,0)"
^XMB(3.9,143,2,2372,0)=" .W !,CNT_"". ""_OTHER,!,?5,""ICD9 Code: ""_SRDIAG S SRSEL(CNT)=OTH_""^""_OTHER_""^ICD9 Code: ""_SRDIAG"
^XMB(3.9,143,2,2373,0)="""RTN"",""SROVER3"",59,0)"
^XMB(3.9,143,2,2374,0)=" .D:SCEC"
^XMB(3.9,143,2,2375,0)="""RTN"",""SROVER3"",60,0)"
^XMB(3.9,143,2,2376,0)=" ..D GETS^DIQ(130.18,OTH_"",""_SRTN_"","",""4:11"",""E"",""ENVARR"")"
^XMB(3.9,143,2,2377,0)="""RTN"",""SROVER3"",61,0)"
^XMB(3.9,143,2,2378,0)=" ..I $D(ENVARR(130.18,OTH_"",""_SRTN_"","",4,""E"")) D"
^XMB(3.9,143,2,2379,0)="""RTN"",""SROVER3"",62,0)"
^XMB(3.9,143,2,2380,0)=" ...N SRCOLSPN S SRCOLSPN=13 W !"
^XMB(3.9,143,2,2381,0)="""RTN"",""SROVER3"",63,0)"
^XMB(3.9,143,2,2382,0)=" ...I $D(SRCL(3)) W ?SRCOLSPN,""SC:"",$E(ENVARR(130.18,OTH_"",""_SRTN_"","",4,""E"")) S SRCOLSPN=SRCOLSPN+8"
^XMB(3.9,143,2,2383,0)="""RTN"",""SROVER3"",64,0)"
^XMB(3.9,143,2,2384,0)=" ...I $D(SRCL(7)) W ?SRCOLSPN,""CV:"",$E(ENVARR(130.18,OTH_"",""_SRTN_"","",10,""E"")) S SRCOLSPN=SRCOLSPN+8"
^XMB(3.9,143,2,2385,0)="""RTN"",""SROVER3"",65,0)"
^XMB(3.9,143,2,2386,0)=" ...I $D(SRCL(1)) W ?SRCOLSPN,""AO:"",$E(ENVARR(130.18,OTH_"",""_SRTN_"","",5,""E"")) S SRCOLSPN=SRCOLSPN+8"
^XMB(3.9,143,2,2387,0)="""RTN"",""SROVER3"",66,0)"
^XMB(3.9,143,2,2388,0)=" ...I $D(SRCL(2)) W ?SRCOLSPN,""IR:"",$E(ENVARR(130.18,OTH_"",""_SRTN_"","",6,""E"")) S SRCOLSPN=SRCOLSPN+8"
^XMB(3.9,143,2,2389,0)="""RTN"",""SROVER3"",67,0)"
^XMB(3.9,143,2,2390,0)=" ...I $D(SRCL(4)) W ?SRCOLSPN,""EC:"",$E(ENVARR(130.18,OTH_"",""_SRTN_"","",9,""E"")) S SRCOLSPN=SRCOLSPN+8"
^XMB(3.9,143,2,2391,0)="""RTN"",""SROVER3"",68,0)"
^XMB(3.9,143,2,2392,0)=" ...I $D(SRCL(8)) W ?SRCOLSPN,""SHAD:"",$E(ENVARR(130.18,OTH_"",""_SRTN_"","",11,""E"")) S SRCOLSPN=SRCOLSPN+8"
^XMB(3.9,143,2,2393,0)="""RTN"",""SROVER3"",69,0)"
^XMB(3.9,143,2,2394,0)=" ...I $D(SRCL(5)) W ?SRCOLSPN,""MST:"",$E(ENVARR(130.18,OTH_"",""_SRTN_"","",7,""E"")) S SRCOLSPN=SRCOLSPN+8"
^XMB(3.9,143,2,2395,0)="""RTN"",""SROVER3"",70,0)"
^XMB(3.9,143,2,2396,0)=" ...I $D(SRCL(6)) W ?SRCOLSPN,""H&N:"",$E(ENVARR(130.18,OTH_"",""_SRTN_"","",8,""E"")) S SRCOLSPN=SRCOLSPN+8"
^XMB(3.9,143,2,2397,0)="""RTN"",""SROVER3"",71,0)"
^XMB(3.9,143,2,2398,0)=" .S CNT=CNT+1"
^XMB(3.9,143,2,2399,0)="""RTN"",""SROVER3"",72,0)"
^XMB(3.9,143,2,2400,0)=" W !,CNT_"". Enter NEW Other Postop Diagnosis"",! K DIR S DIR(""A"")=""Enter selection"",DIR(0)=""NO^1:""_CNT D ^DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1 Q"
^XMB(3.9,143,2,2401,0)="""RTN"",""SROVER3"",73,0)"
^XMB(3.9,143,2,2402,0)=" Q:'Y  S SRDA=Y W !! I SRDA<CNT D  G DH"
^XMB(3.9,143,2,2403,0)="""RTN"",""SROVER3"",74,0)"
^XMB(3.9,143,2,2404,0)=" .W ?3,$P(SRSEL(SRDA),U,2),!,?5,$P(SRSEL(SRDA),U,3)"
^XMB(3.9,143,2,2405,0)="""RTN"",""SROVER3"",75,0)"
^XMB(3.9,143,2,2406,0)=" .K DA,DIE,DIR S DA=$P(SRSEL(SRDA),U),DA(1)=SRTN,DIE=""^SRF(SRTN,15,"",DR="".01;3;"""
^XMB(3.9,143,2,2407,0)="""RTN"",""SROVER3"",76,0)"
^XMB(3.9,143,2,2408,0)=" .S:$D(SRCL(3)) DR=DR_""4;"" S:$D(SRCL(7)) DR=DR_""10;"" S:$D(SRCL(1)) DR=DR_""5;"" S:$D(SRCL(2)) DR=DR_""6;"" S:$D(SRCL(4)) DR=DR_""9;"" S:$D(SRCL(5)) DR=DR_""7;"" S:$D(SRCL(6)) DR=DR_""8;"" S:$D(SRCL(8)) DR=DR_""11;"""
^XMB(3.9,143,2,2409,0)="""RTN"",""SROVER3"",77,0)"
^XMB(3.9,143,2,2410,0)=" .D ^DIE K DA,DIE,DIR,DR"
^XMB(3.9,143,2,2411,0)="""RTN"",""SROVER3"",78,0)"
^XMB(3.9,143,2,2412,0)=" K DIR,SRCL S DIR(""A"")=""Enter new OTHER POSTOP DIAGNOSIS"",DIR(0)=""130.18,.01"" D ^DIR K DIR S SRNEW=Y I $D(DTOUT)!$D(DUOUT)!(Y="""") G DH"
^XMB(3.9,143,2,2413,0)="""RTN"",""SROVER3"",79,0)"
^XMB(3.9,143,2,2414,0)=" S DIR(0)=""130.18,3"" D ^DIR K DIR S SRCODE=$P(Y,U) I $D(DTOUT)!$D(DUOUT) S SRSOUT=1 Q"
^XMB(3.9,143,2,2415,0)="""RTN"",""SROVER3"",80,0)"
^XMB(3.9,143,2,2416,0)=" S:'$D(DA(1)) DA(1)=SRTN"
^XMB(3.9,143,2,2417,0)="""RTN"",""SROVER3"",81,0)"
^XMB(3.9,143,2,2418,0)=" S SRCODE=Y K DD,DO S DIC=""^SRF(SRTN,15,"",X=SRNEW,DIC(0)=""L"",DIC(""DR"")=""3////""_$P(SRCODE,U),DIC(""P"")=$P(^DD(130,.74,0),U,2) D FILE^DICN K DA,DD,DIC,DO,DR"
^XMB(3.9,143,2,2419,0)="""RTN"",""SROVER3"",82,0)"
^XMB(3.9,143,2,2420,0)="DH D HDR^SROVER2 D DOTH"
^XMB(3.9,143,2,2421,0)="""RTN"",""SROVER3"",83,0)"
^XMB(3.9,143,2,2422,0)=" Q"
^XMB(3.9,143,2,2423,0)="""RTN"",""SROVER3"",84,0)"
^XMB(3.9,143,2,2424,0)="SCEC() N SRSDATE,DFN,SCEC S SRSDATE=$S($D(SRTN):$P(^SRF(SRTN,0),U,9),1:DT)"
^XMB(3.9,143,2,2425,0)="""RTN"",""SROVER3"",85,0)"
^XMB(3.9,143,2,2426,0)=" S DFN=$P(^SRF(SRTN,0),U) D CL^SDCO21(DFN,SRSDATE,,.SRCL)"
^XMB(3.9,143,2,2427,0)="""RTN"",""SROVER3"",86,0)"
^XMB(3.9,143,2,2428,0)=" S SCEC=$S($D(SRCL):1,1:0)"
^XMB(3.9,143,2,2429,0)="""RTN"",""SROVER3"",87,0)"
^XMB(3.9,143,2,2430,0)=" Q SCEC"
^XMB(3.9,143,2,2431,0)="""UP"",130,130.18,-1)"
^XMB(3.9,143,2,2432,0)="130^15"
^XMB(3.9,143,2,2433,0)="""UP"",130,130.18,0)"
^XMB(3.9,143,2,2434,0)="130.18"
^XMB(3.9,143,2,2435,0)="""UP"",133.8,133.801,-1)"
^XMB(3.9,143,2,2436,0)="133.8^1"
^XMB(3.9,143,2,2437,0)="""UP"",133.8,133.801,0)"
^XMB(3.9,143,2,2438,0)="133.801"
^XMB(3.9,143,2,2439,0)="""UP"",136,136.04,-1)"
^XMB(3.9,143,2,2440,0)="136^4"
^XMB(3.9,143,2,2441,0)="""UP"",136,136.04,0)"
^XMB(3.9,143,2,2442,0)="136.04"
^XMB(3.9,143,2,2443,0)="""VER"")"
^XMB(3.9,143,2,2444,0)="8.0^22.0"
^XMB(3.9,143,2,2445,0)="""^DD"",130,130,.026,0)"
^XMB(3.9,143,2,2446,0)="PROJ 112/SHAD^S^1:YES;0:NO;^0;25^Q"
^XMB(3.9,143,2,2447,0)="""^DD"",130,130,.026,1,0)"
^XMB(3.9,143,2,2448,0)="^.1"
^XMB(3.9,143,2,2449,0)="""^DD"",130,130,.026,1,1,0)"
^XMB(3.9,143,2,2450,0)="130^APCE28^MUMPS"
^XMB(3.9,143,2,2451,0)="""^DD"",130,130,.026,1,1,1)"
^XMB(3.9,143,2,2452,0)="D APCE^SROPCEX"
^XMB(3.9,143,2,2453,0)="""^DD"",130,130,.026,1,1,2)"
^XMB(3.9,143,2,2454,0)="Q"
^XMB(3.9,143,2,2455,0)="""^DD"",130,130,.026,1,1,""%D"",0)"
^XMB(3.9,143,2,2456,0)="^^1^1^3051117^"
^XMB(3.9,143,2,2457,0)="""^DD"",130,130,.026,1,1,""%D"",1,0)"
^XMB(3.9,143,2,2458,0)="This MUMPS cross reference updates PCE."
^XMB(3.9,143,2,2459,0)="""^DD"",130,130,.026,1,1,""DT"")"
^XMB(3.9,143,2,2460,0)="3051117"
^XMB(3.9,143,2,2461,0)="""^DD"",130,130,.026,3)"
^XMB(3.9,143,2,2462,0)="If this case is treating a problem related to PROJ 112/SHAD, enter YES."
^XMB(3.9,143,2,2463,0)="""^DD"",130,130,.026,21,0)"
^XMB(3.9,143,2,2464,0)="^.001^4^4^3051213^^^^"
^XMB(3.9,143,2,2465,0)="""^DD"",130,130,.026,21,1,0)"
^XMB(3.9,143,2,2466,0)="This field will be used to indicate if this surgery or non-OR procedure "
^XMB(3.9,143,2,2467,0)="""^DD"",130,130,.026,21,2,0)"
^XMB(3.9,143,2,2468,0)="is treating a VA patient for a problem that is related to PROJ 112/SHAD.  "
^XMB(3.9,143,2,2469,0)="""^DD"",130,130,.026,21,3,0)"
^XMB(3.9,143,2,2470,0)="This information may be passed to the VISIT file (#9000010) for use by "
^XMB(3.9,143,2,2471,0)="""^DD"",130,130,.026,21,4,0)"
^XMB(3.9,143,2,2472,0)="PCE."
^XMB(3.9,143,2,2473,0)="""^DD"",130,130,.026,""DT"")"
^XMB(3.9,143,2,2474,0)="3051117"
^XMB(3.9,143,2,2475,0)="""^DD"",130,130,.74,0)"
^XMB(3.9,143,2,2476,0)="OTHER POSTOP DIAGS^130.18A^^15;0"
^XMB(3.9,143,2,2477,0)="""^DD"",130,130,.74,.1)"
^XMB(3.9,143,2,2478,0)="Other Postoperative Diagnosis"
^XMB(3.9,143,2,2479,0)="""^DD"",130,130,.74,21,0)"
^XMB(3.9,143,2,2480,0)="^.001^3^3^3051117^^^^"
^XMB(3.9,143,2,2481,0)="""^DD"",130,130,.74,21,1,0)"
^XMB(3.9,143,2,2482,0)="This is information related to any postoperative diagnosis in addition"
^XMB(3.9,143,2,2483,0)="""^DD"",130,130,.74,21,2,0)"
^XMB(3.9,143,2,2484,0)="to the principal postoperative diagnosis."
^XMB(3.9,143,2,2485,0)="""^DD"",130,130,.74,21,3,0)"
^XMB(3.9,143,2,2486,0)=" "
^XMB(3.9,143,2,2487,0)="""^DD"",130,130,.74,""DT"")"
^XMB(3.9,143,2,2488,0)="2921026"
^XMB(3.9,143,2,2489,0)="""^DD"",130,130.18,0)"
^XMB(3.9,143,2,2490,0)="OTHER POSTOP DIAGS SUB-FIELD^NL^11^12"
^XMB(3.9,143,2,2491,0)="""^DD"",130,130.18,0,""NM"",""OTHER POSTOP DIAGS"")"
^XMB(3.9,143,2,2492,0)=""
^XMB(3.9,143,2,2493,0)="""^DD"",130,130.18,.01,0)"
^XMB(3.9,143,2,2494,0)="OTHER POSTOP DIAGS^MFX^^0;1^K:$L(X)>40!($L(X)<1) X D:$D(X) DIAG^SROUTL,PDXCHK^SROADX2(0) K:$G(X)="""" X"
^XMB(3.9,143,2,2495,0)="""^DD"",130,130.18,.01,.1)"
^XMB(3.9,143,2,2496,0)="Other Postoperative Diagnosis"
^XMB(3.9,143,2,2497,0)="""^DD"",130,130.18,.01,1,0)"
^XMB(3.9,143,2,2498,0)="^.1"
^XMB(3.9,143,2,2499,0)="""^DD"",130,130.18,.01,1,1,0)"
^XMB(3.9,143,2,2500,0)="^^TRIGGER^130.18^4"
^XMB(3.9,143,2,2501,0)="""^DD"",130,130.18,.01,1,1,1)"
^XMB(3.9,143,2,2502,0)="X ^DD(130.18,.01,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=$P(^SRF(DA(1),0),U,16) X ^DD(130.18,.01,1,1,1.4)"
^XMB(3.9,143,2,2503,0)="""^DD"",130,130.18,.01,1,1,1.3)"
^XMB(3.9,143,2,2504,0)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(130.18,4,0)),U,3),Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,1)_"":"",2),$C(59))="""""
^XMB(3.9,143,2,2505,0)="""^DD"",130,130.18,.01,1,1,1.4)"
^XMB(3.9,143,2,2506,0)="S DIH=$G(^SRF(DIV(0),15,DIV(1),2)),DIV=X S $P(^(2),U,1)=DIV,DIH=130.18,DIG=4 D ^DICR"
^XMB(3.9,143,2,2507,0)="""^DD"",130,130.18,.01,1,1,2)"
^XMB(3.9,143,2,2508,0)="Q"
^XMB(3.9,143,2,2509,0)="""^DD"",130,130.18,.01,1,1,""CREATE CONDITION"")"
^XMB(3.9,143,2,2510,0)="SERVICE CONNECTED="""""
^XMB(3.9,143,2,2511,0)="""^DD"",130,130.18,.01,1,1,""CREATE VALUE"")"
^XMB(3.9,143,2,2512,0)="S X=$P(^SRF(DA(1),0),U,16)"
^XMB(3.9,143,2,2513,0)="""^DD"",130,130.18,.01,1,1,""DELETE VALUE"")"
^XMB(3.9,143,2,2514,0)="NO EFFECT"
^XMB(3.9,143,2,2515,0)="""^DD"",130,130.18,.01,1,1,""DT"")"
^XMB(3.9,143,2,2516,0)="3030707"
^XMB(3.9,143,2,2517,0)="""^DD"",130,130.18,.01,1,1,""FIELD"")"
^XMB(3.9,143,2,2518,0)="SERVICE CONNECTED"
^XMB(3.9,143,2,2519,0)="""^DD"",130,130.18,.01,1,2,0)"
^XMB(3.9,143,2,2520,0)="^^TRIGGER^130.18^10"
^XMB(3.9,143,2,2521,0)="""^DD"",130,130.18,.01,1,2,1)"
^XMB(3.9,143,2,2522,0)="X ^DD(130.18,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=$P(^SRF(DA(1),0),U,24) X ^DD(130.18,.01,1,2,1.4)"
^XMB(3.9,143,2,2523,0)="""^DD"",130,130.18,.01,1,2,1.3)"
^XMB(3.9,143,2,2524,0)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(130.18,10,0)),U,3),Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,7)_"":"",2),$C(59))="""""
^XMB(3.9,143,2,2525,0)="""^DD"",130,130.18,.01,1,2,1.4)"
^XMB(3.9,143,2,2526,0)="S DIH=$G(^SRF(DIV(0),15,DIV(1),2)),DIV=X S $P(^(2),U,7)=DIV,DIH=130.18,DIG=10 D ^DICR"
^XMB(3.9,143,2,2527,0)="""^DD"",130,130.18,.01,1,2,2)"
^XMB(3.9,143,2,2528,0)="Q"
^XMB(3.9,143,2,2529,0)="""^DD"",130,130.18,.01,1,2,""CREATE CONDITION"")"
^XMB(3.9,143,2,2530,0)="COMBAT VET="""""
^XMB(3.9,143,2,2531,0)="""^DD"",130,130.18,.01,1,2,""CREATE VALUE"")"
^XMB(3.9,143,2,2532,0)="S X=$P(^SRF(DA(1),0),U,24)"
^XMB(3.9,143,2,2533,0)="""^DD"",130,130.18,.01,1,2,""DELETE VALUE"")"
^XMB(3.9,143,2,2534,0)="NO EFFECT"
^XMB(3.9,143,2,2535,0)="""^DD"",130,130.18,.01,1,2,""DT"")"
^XMB(3.9,143,2,2536,0)="3040318"
^XMB(3.9,143,2,2537,0)="""^DD"",130,130.18,.01,1,2,""FIELD"")"
^XMB(3.9,143,2,2538,0)="COMBAT VET"
^XMB(3.9,143,2,2539,0)="""^DD"",130,130.18,.01,1,3,0)"
^XMB(3.9,143,2,2540,0)="^^TRIGGER^130.18^5"
^XMB(3.9,143,2,2541,0)="""^DD"",130,130.18,.01,1,3,1)"
^XMB(3.9,143,2,2542,0)="X ^DD(130.18,.01,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$P(^SRF(DA(1),0),U,17) X ^DD(130.18,.01,1,3,1.4)"
^XMB(3.9,143,2,2543,0)="""^DD"",130,130.18,.01,1,3,1.3)"
^XMB(3.9,143,2,2544,0)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(130.18,5,0)),U,3),Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,2)_"":"",2),$C(59))="""""
^XMB(3.9,143,2,2545,0)="""^DD"",130,130.18,.01,1,3,1.4)"
^XMB(3.9,143,2,2546,0)="S DIH=$G(^SRF(DIV(0),15,DIV(1),2)),DIV=X S $P(^(2),U,2)=DIV,DIH=130.18,DIG=5 D ^DICR"
^XMB(3.9,143,2,2547,0)="""^DD"",130,130.18,.01,1,3,2)"
^XMB(3.9,143,2,2548,0)="Q"
^XMB(3.9,143,2,2549,0)="""^DD"",130,130.18,.01,1,3,""CREATE CONDITION"")"
^XMB(3.9,143,2,2550,0)="AGENT ORANGE="""""
^XMB(3.9,143,2,2551,0)="""^DD"",130,130.18,.01,1,3,""CREATE VALUE"")"
^XMB(3.9,143,2,2552,0)="S X=$P(^SRF(DA(1),0),U,17)"
^XMB(3.9,143,2,2553,0)="""^DD"",130,130.18,.01,1,3,""DELETE VALUE"")"
^XMB(3.9,143,2,2554,0)="NO EFFECT"
^XMB(3.9,143,2,2555,0)="""^DD"",130,130.18,.01,1,3,""DT"")"
^XMB(3.9,143,2,2556,0)="3051117"
^XMB(3.9,143,2,2557,0)="""^DD"",130,130.18,.01,1,3,""FIELD"")"
^XMB(3.9,143,2,2558,0)="AGENT"
^XMB(3.9,143,2,2559,0)="""^DD"",130,130.18,.01,1,4,0)"
^XMB(3.9,143,2,2560,0)="^^TRIGGER^130.18^6"
^XMB(3.9,143,2,2561,0)="""^DD"",130,130.18,.01,1,4,1)"
^XMB(3.9,143,2,2562,0)="X ^DD(130.18,.01,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$P(^SRF(DA(1),0),U,18) X ^DD(130.18,.01,1,4,1.4)"
^XMB(3.9,143,2,2563,0)="""^DD"",130,130.18,.01,1,4,1.3)"
^XMB(3.9,143,2,2564,0)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(130.18,6,0)),U,3),Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,3)_"":"",2),$C(59))="""""
^XMB(3.9,143,2,2565,0)="""^DD"",130,130.18,.01,1,4,1.4)"
^XMB(3.9,143,2,2566,0)="S DIH=$G(^SRF(DIV(0),15,DIV(1),2)),DIV=X S $P(^(2),U,3)=DIV,DIH=130.18,DIG=6 D ^DICR"
^XMB(3.9,143,2,2567,0)="""^DD"",130,130.18,.01,1,4,2)"
^XMB(3.9,143,2,2568,0)="Q"
^XMB(3.9,143,2,2569,0)="""^DD"",130,130.18,.01,1,4,""CREATE CONDITION"")"
^XMB(3.9,143,2,2570,0)="IONIZING RADIATION EXPOSURE="""""
^XMB(3.9,143,2,2571,0)="""^DD"",130,130.18,.01,1,4,""CREATE VALUE"")"
^XMB(3.9,143,2,2572,0)="S X=$P(^SRF(DA(1),0),U,18)"
^XMB(3.9,143,2,2573,0)="""^DD"",130,130.18,.01,1,4,""DELETE VALUE"")"
^XMB(3.9,143,2,2574,0)="NO EFFECT"
^XMB(3.9,143,2,2575,0)="""^DD"",130,130.18,.01,1,4,""DT"")"
^XMB(3.9,143,2,2576,0)="3051117"
^XMB(3.9,143,2,2577,0)="""^DD"",130,130.18,.01,1,4,""FIELD"")"
^XMB(3.9,143,2,2578,0)="IONIZI"
^XMB(3.9,143,2,2579,0)="""^DD"",130,130.18,.01,1,5,0)"
^XMB(3.9,143,2,2580,0)="^^TRIGGER^130.18^9"
^XMB(3.9,143,2,2581,0)="""^DD"",130,130.18,.01,1,5,1)"
^XMB(3.9,143,2,2582,0)="X ^DD(130.18,.01,1,5,1.3) I X S X=DIV S Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$P(^SRF(DA(1),0),U,19) X ^DD(130.18,.01,1,5,1.4)"
^XMB(3.9,143,2,2583,0)="""^DD"",130,130.18,.01,1,5,1.3)"
^XMB(3.9,143,2,2584,0)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(130.18,9,0)),U,3),Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,6)_"":"",2),$C(59))="""""
^XMB(3.9,143,2,2585,0)="""^DD"",130,130.18,.01,1,5,1.4)"
^XMB(3.9,143,2,2586,0)="S DIH=$G(^SRF(DIV(0),15,DIV(1),2)),DIV=X S $P(^(2),U,6)=DIV,DIH=130.18,DIG=9 D ^DICR"
^XMB(3.9,143,2,2587,0)="""^DD"",130,130.18,.01,1,5,2)"
^XMB(3.9,143,2,2588,0)="Q"
^XMB(3.9,143,2,2589,0)="""^DD"",130,130.18,.01,1,5,""CREATE CONDITION"")"
^XMB(3.9,143,2,2590,0)="ENVIRONMENTAL CONTAMINANTS="""""
^XMB(3.9,143,2,2591,0)="""^DD"",130,130.18,.01,1,5,""CREATE VALUE"")"
^XMB(3.9,143,2,2592,0)="S X=$P(^SRF(DA(1),0),U,19)"
^XMB(3.9,143,2,2593,0)="""^DD"",130,130.18,.01,1,5,""DELETE VALUE"")"
^XMB(3.9,143,2,2594,0)="NO EFFECT"
^XMB(3.9,143,2,2595,0)="""^DD"",130,130.18,.01,1,5,""DT"")"
^XMB(3.9,143,2,2596,0)="3051117"
^XMB(3.9,143,2,2597,0)="""^DD"",130,130.18,.01,1,5,""FIELD"")"
^XMB(3.9,143,2,2598,0)="ENVI"
^XMB(3.9,143,2,2599,0)="""^DD"",130,130.18,.01,1,6,0)"
^XMB(3.9,143,2,2600,0)="^^TRIGGER^130.18^7"
^XMB(3.9,143,2,2601,0)="""^DD"",130,130.18,.01,1,6,1)"
^XMB(3.9,143,2,2602,0)="X ^DD(130.18,.01,1,6,1.3) I X S X=DIV S Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=$P(^SRF(DA(1),0),U,22) X ^DD(130.18,.01,1,6,1.4)"
^XMB(3.9,143,2,2603,0)="""^DD"",130,130.18,.01,1,6,1.3)"
^XMB(3.9,143,2,2604,0)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(130.18,7,0)),U,3),Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,4)_"":"",2),$C(59))="""""
^XMB(3.9,143,2,2605,0)="""^DD"",130,130.18,.01,1,6,1.4)"
^XMB(3.9,143,2,2606,0)="S DIH=$G(^SRF(DIV(0),15,DIV(1),2)),DIV=X S $P(^(2),U,4)=DIV,DIH=130.18,DIG=7 D ^DICR"
^XMB(3.9,143,2,2607,0)="""^DD"",130,130.18,.01,1,6,2)"
^XMB(3.9,143,2,2608,0)="Q"
^XMB(3.9,143,2,2609,0)="""^DD"",130,130.18,.01,1,6,""CREATE CONDITION"")"
^XMB(3.9,143,2,2610,0)="MILITARY SEXUAL TRAUMA="""""
^XMB(3.9,143,2,2611,0)="""^DD"",130,130.18,.01,1,6,""CREATE VALUE"")"
^XMB(3.9,143,2,2612,0)="S X=$P(^SRF(DA(1),0),U,22)"
^XMB(3.9,143,2,2613,0)="""^DD"",130,130.18,.01,1,6,""DELETE VALUE"")"
^XMB(3.9,143,2,2614,0)="NO EFFECT"
^XMB(3.9,143,2,2615,0)="""^DD"",130,130.18,.01,1,6,""DT"")"
^XMB(3.9,143,2,2616,0)="3051117"
^XMB(3.9,143,2,2617,0)="""^DD"",130,130.18,.01,1,6,""FIELD"")"
^XMB(3.9,143,2,2618,0)="MILITARY"
^XMB(3.9,143,2,2619,0)="""^DD"",130,130.18,.01,1,7,0)"
^XMB(3.9,143,2,2620,0)="^^TRIGGER^130.18^8"
^XMB(3.9,143,2,2621,0)="""^DD"",130,130.18,.01,1,7,1)"
^XMB(3.9,143,2,2622,0)="X ^DD(130.18,.01,1,7,1.3) I X S X=DIV S Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=$P(^SRF(DA(1),0),U,23) X ^DD(130.18,.01,1,7,1.4)"
^XMB(3.9,143,2,2623,0)="""^DD"",130,130.18,.01,1,7,1.3)"
^XMB(3.9,143,2,2624,0)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(130.18,8,0)),U,3),Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,5)_"":"",2),$C(59))="""""
^XMB(3.9,143,2,2625,0)="""^DD"",130,130.18,.01,1,7,1.4)"
^XMB(3.9,143,2,2626,0)="S DIH=$G(^SRF(DIV(0),15,DIV(1),2)),DIV=X S $P(^(2),U,5)=DIV,DIH=130.18,DIG=8 D ^DICR"
^XMB(3.9,143,2,2627,0)="""^DD"",130,130.18,.01,1,7,2)"
^XMB(3.9,143,2,2628,0)="Q"
^XMB(3.9,143,2,2629,0)="""^DD"",130,130.18,.01,1,7,""CREATE CONDITION"")"
^XMB(3.9,143,2,2630,0)="HEAD AND/OR NECK CANCER="""""
^XMB(3.9,143,2,2631,0)="""^DD"",130,130.18,.01,1,7,""CREATE VALUE"")"
^XMB(3.9,143,2,2632,0)="S X=$P(^SRF(DA(1),0),U,23)"
^XMB(3.9,143,2,2633,0)="""^DD"",130,130.18,.01,1,7,""DELETE VALUE"")"
^XMB(3.9,143,2,2634,0)="NO EFFECT"
^XMB(3.9,143,2,2635,0)="""^DD"",130,130.18,.01,1,7,""DT"")"
^XMB(3.9,143,2,2636,0)="3051117"
^XMB(3.9,143,2,2637,0)="""^DD"",130,130.18,.01,1,7,""FIELD"")"
^XMB(3.9,143,2,2638,0)="HEAD"
^XMB(3.9,143,2,2639,0)="""^DD"",130,130.18,.01,1,8,0)"
^XMB(3.9,143,2,2640,0)="^^TRIGGER^130.18^11"
^XMB(3.9,143,2,2641,0)="""^DD"",130,130.18,.01,1,8,1)"
^XMB(3.9,143,2,2642,0)="X ^DD(130.18,.01,1,8,1.3) I X S X=DIV S Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$P(^SRF(DA(1),0),U,25) X ^DD(130.18,.01,1,8,1.4)"
^XMB(3.9,143,2,2643,0)="""^DD"",130,130.18,.01,1,8,1.3)"
^XMB(3.9,143,2,2644,0)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(130.18,11,0)),U,3),Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,8)_"":"",2),$C(59))="""""
^XMB(3.9,143,2,2645,0)="""^DD"",130,130.18,.01,1,8,1.4)"
^XMB(3.9,143,2,2646,0)="S DIH=$G(^SRF(DIV(0),15,DIV(1),2)),DIV=X S $P(^(2),U,8)=DIV,DIH=130.18,DIG=11 D ^DICR"
^XMB(3.9,143,2,2647,0)="""^DD"",130,130.18,.01,1,8,2)"
^XMB(3.9,143,2,2648,0)="Q"
^XMB(3.9,143,2,2649,0)="""^DD"",130,130.18,.01,1,8,""CREATE CONDITION"")"
^XMB(3.9,143,2,2650,0)="PROJ 112="""""
^XMB(3.9,143,2,2651,0)="""^DD"",130,130.18,.01,1,8,""CREATE VALUE"")"
^XMB(3.9,143,2,2652,0)="S X=$P(^SRF(DA(1),0),U,25)"
^XMB(3.9,143,2,2653,0)="""^DD"",130,130.18,.01,1,8,""DELETE VALUE"")"
^XMB(3.9,143,2,2654,0)="NO EFFECT"
^XMB(3.9,143,2,2655,0)="""^DD"",130,130.18,.01,1,8,""DT"")"
^XMB(3.9,143,2,2656,0)="3051117"
^XMB(3.9,143,2,2657,0)="""^DD"",130,130.18,.01,1,8,""FIELD"")"
^XMB(3.9,143,2,2658,0)="PRO"
^XMB(3.9,143,2,2659,0)="""^DD"",130,130.18,.01,1,9,0)"
^XMB(3.9,143,2,2660,0)="130.18^DADX1^MUMPS"
^XMB(3.9,143,2,2661,0)="""^DD"",130,130.18,.01,1,9,1)"
^XMB(3.9,143,2,2662,0)="Q"
^XMB(3.9,143,2,2663,0)="""^DD"",130,130.18,.01,1,9,2)"
^XMB(3.9,143,2,2664,0)="D DELASOC^SROADX2"
^XMB(3.9,143,2,2665,0)="""^DD"",130,130.18,.01,1,9,""%D"",0)"
^XMB(3.9,143,2,2666,0)="^^2^2^3051117^"
^XMB(3.9,143,2,2667,0)="""^DD"",130,130.18,.01,1,9,""%D"",1,0)"
^XMB(3.9,143,2,2668,0)="This MUMPS cross reference removes associations to procedures upon edits "
^XMB(3.9,143,2,2669,0)="""^DD"",130,130.18,.01,1,9,""%D"",2,0)"
^XMB(3.9,143,2,2670,0)="or deletes of the diagnosis."
^XMB(3.9,143,2,2671,0)="""^DD"",130,130.18,.01,1,9,""DT"")"
^XMB(3.9,143,2,2672,0)="3051117"
^XMB(3.9,143,2,2673,0)="""^DD"",130,130.18,.01,3)"
^XMB(3.9,143,2,2674,0)="Your answer must be 1 to 40 characters in length."
^XMB(3.9,143,2,2675,0)="""^DD"",130,130.18,.01,21,0)"
^XMB(3.9,143,2,2676,0)="^.001^3^3^3051117^^^^"
^XMB(3.9,143,2,2677,0)="""^DD"",130,130.18,.01,21,1,0)"
^XMB(3.9,143,2,2678,0)="This is the name of a postoperative diagnosis other than the principal"
^XMB(3.9,143,2,2679,0)="""^DD"",130,130.18,.01,21,2,0)"
^XMB(3.9,143,2,2680,0)="postoperative diagnosis."
^XMB(3.9,143,2,2681,0)="""^DD"",130,130.18,.01,21,3,0)"
^XMB(3.9,143,2,2682,0)=" "
^XMB(3.9,143,2,2683,0)="""^DD"",130,130.18,.01,""DT"")"
^XMB(3.9,143,2,2684,0)="3051117"
^XMB(3.9,143,2,2685,0)="""^DD"",130,130.18,11,0)"
^XMB(3.9,143,2,2686,0)="PROJ 112/SHAD^RS^0:NO;1:YES;^2;8^Q"
^XMB(3.9,143,2,2687,0)="""^DD"",130,130.18,11,.1)"
^XMB(3.9,143,2,2688,0)="Treatment related to PROJ 112/SHAD (Y/N)"
^XMB(3.9,143,2,2689,0)="""^DD"",130,130.18,11,3)"
^XMB(3.9,143,2,2690,0)="If this case is treating a problem related to PROJ 112/SHAD, enter YES."
^XMB(3.9,143,2,2691,0)="""^DD"",130,130.18,11,5,1,0)"
^XMB(3.9,143,2,2692,0)="130.18^.01^8"
^XMB(3.9,143,2,2693,0)="""^DD"",130,130.18,11,21,0)"
^XMB(3.9,143,2,2694,0)="^.001^4^4^3051117^^^^"
^XMB(3.9,143,2,2695,0)="""^DD"",130,130.18,11,21,1,0)"
^XMB(3.9,143,2,2696,0)="This field will be used to indicate if this surgery or non-OR procedure "
^XMB(3.9,143,2,2697,0)="""^DD"",130,130.18,11,21,2,0)"
^XMB(3.9,143,2,2698,0)="is treating a VA patient for a problem that is related to PROJ 112/SHAD.  "
^XMB(3.9,143,2,2699,0)="""^DD"",130,130.18,11,21,3,0)"
^XMB(3.9,143,2,2700,0)="This information may be passed to the VISIT file (#9000010) for use by "
^XMB(3.9,143,2,2701,0)="""^DD"",130,130.18,11,21,4,0)"
^XMB(3.9,143,2,2702,0)="PCE."
^XMB(3.9,143,2,2703,0)="""^DD"",130,130.18,11,""DT"")"
^XMB(3.9,143,2,2704,0)="3051117"
^XMB(3.9,143,2,2705,0)="""^DD"",133.8,133.801,24,0)"
^XMB(3.9,143,2,2706,0)="PROJ 112/SHAD^S^1:YES;0:NO;^0;24^Q"
^XMB(3.9,143,2,2707,0)="""^DD"",133.8,133.801,24,.1)"
^XMB(3.9,143,2,2708,0)="Treatment related to PROJECT 112/SHAD? (Y/N)"
^XMB(3.9,143,2,2709,0)="""^DD"",133.8,133.801,24,3)"
^XMB(3.9,143,2,2710,0)="If this case is treating a problem related to PROJECT 112/SHAD, enter YES."
^XMB(3.9,143,2,2711,0)="""^DD"",133.8,133.801,24,21,0)"
^XMB(3.9,143,2,2712,0)="^.001^4^4^3051117^^"
^XMB(3.9,143,2,2713,0)="""^DD"",133.8,133.801,24,21,1,0)"
^XMB(3.9,143,2,2714,0)="This field will be used to indicate if this surgery or non-OR procedure "
^XMB(3.9,143,2,2715,0)="""^DD"",133.8,133.801,24,21,2,0)"
^XMB(3.9,143,2,2716,0)="is treating a VA patient for a problem that is related to PROJECT "
^XMB(3.9,143,2,2717,0)="""^DD"",133.8,133.801,24,21,3,0)"
^XMB(3.9,143,2,2718,0)="112/SHAD.  This information may be passed to the VISIT file (#9000010) "
^XMB(3.9,143,2,2719,0)="""^DD"",133.8,133.801,24,21,4,0)"
^XMB(3.9,143,2,2720,0)="for use by PCE."
^XMB(3.9,143,2,2721,0)="""^DD"",133.8,133.801,24,""DT"")"
^XMB(3.9,143,2,2722,0)="3051117"
^XMB(3.9,143,2,2723,0)="""^DD"",136,136,.11,0)"
^XMB(3.9,143,2,2724,0)="PROJ 112/SHAD (PRIN)^S^1:YES;0:NO;^0;11^Q"
^XMB(3.9,143,2,2725,0)="""^DD"",136,136,.11,.1)"
^XMB(3.9,143,2,2726,0)="Treatment related to PROJ 112/SHAD (Y/N)"
^XMB(3.9,143,2,2727,0)="""^DD"",136,136,.11,3)"
^XMB(3.9,143,2,2728,0)="If the principal diagnosis is a problem related to PROJ 112/SHAD, enter YES."
^XMB(3.9,143,2,2729,0)="""^DD"",136,136,.11,21,0)"
^XMB(3.9,143,2,2730,0)="^.001^3^3^3051117^^"
^XMB(3.9,143,2,2731,0)="""^DD"",136,136,.11,21,1,0)"
^XMB(3.9,143,2,2732,0)="This field indicates if the principal diagnosis is a PROJ 112/SHAD "
^XMB(3.9,143,2,2733,0)="""^DD"",136,136,.11,21,2,0)"
^XMB(3.9,143,2,2734,0)="related problem. This information may be passed to the VISIT file "
^XMB(3.9,143,2,2735,0)="""^DD"",136,136,.11,21,3,0)"
^XMB(3.9,143,2,2736,0)="(#9000010) for use by PCE."
^XMB(3.9,143,2,2737,0)="""^DD"",136,136,.11,""DT"")"
^XMB(3.9,143,2,2738,0)="3051117"
^XMB(3.9,143,2,2739,0)="""^DD"",136,136,4,0)"
^XMB(3.9,143,2,2740,0)="OTHER POSTOP DIAGNOSIS CODES^136.04P^^4;0"
^XMB(3.9,143,2,2741,0)="""^DD"",136,136,4,""DT"")"
^XMB(3.9,143,2,2742,0)="3050112"
^XMB(3.9,143,2,2743,0)="""^DD"",136,136.04,0)"
^XMB(3.9,143,2,2744,0)="OTHER POSTOP DIAGNOSIS CODES SUB-FIELD^^.09^9"
^XMB(3.9,143,2,2745,0)="""^DD"",136,136.04,0,""NM"",""OTHER POSTOP DIAGNOSIS CODES"")"
^XMB(3.9,143,2,2746,0)=""
^XMB(3.9,143,2,2747,0)="""^DD"",136,136.04,.01,0)"
^XMB(3.9,143,2,2748,0)="OTHER POSTOP DIAGNOSIS CODE^M*P80'^ICD9(^0;1^S DIC(""S"")=""I $$ACTIV^SROICD($S($D(SRTN):SRTN,$D(DA(1)):DA(1),1:""""""""),+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^XMB(3.9,143,2,2749,0)="""^DD"",136,136.04,.01,.1)"
^XMB(3.9,143,2,2750,0)="Other Postop Diagnosis Code"
^XMB(3.9,143,2,2751,0)="""^DD"",136,136.04,.01,1,0)"
^XMB(3.9,143,2,2752,0)="^.1"
^XMB(3.9,143,2,2753,0)="""^DD"",136,136.04,.01,1,1,0)"
^XMB(3.9,143,2,2754,0)="^^TRIGGER^136.04^.02"
^XMB(3.9,143,2,2755,0)="""^DD"",136,136.04,.01,1,1,1)"
^XMB(3.9,143,2,2756,0)="X ^DD(136.04,.01,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$P(^SRO(136,DA(1),0),U,4) X ^DD(136.04,.01,1,1,1.4)"
^XMB(3.9,143,2,2757,0)="""^DD"",136,136.04,.01,1,1,1.3)"
^XMB(3.9,143,2,2758,0)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(136.04,.02,0)),U,3),Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,2)_"":"",2),$C(59))="""""
^XMB(3.9,143,2,2759,0)="""^DD"",136,136.04,.01,1,1,1.4)"
^XMB(3.9,143,2,2760,0)="S DIH=$G(^SRO(136,DIV(0),4,DIV(1),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=136.04,DIG=.02 D ^DICR"
^XMB(3.9,143,2,2761,0)="""^DD"",136,136.04,.01,1,1,2)"
^XMB(3.9,143,2,2762,0)="Q"
^XMB(3.9,143,2,2763,0)="""^DD"",136,136.04,.01,1,1,""CREATE CONDITION"")"
^XMB(3.9,143,2,2764,0)="SERVICE CONNECTED="""""
^XMB(3.9,143,2,2765,0)="""^DD"",136,136.04,.01,1,1,""CREATE VALUE"")"
^XMB(3.9,143,2,2766,0)="S X=$P(^SRO(136,DA(1),0),U,4)"
^XMB(3.9,143,2,2767,0)="""^DD"",136,136.04,.01,1,1,""DELETE VALUE"")"
^XMB(3.9,143,2,2768,0)="NO EFFECT"
^XMB(3.9,143,2,2769,0)="""^DD"",136,136.04,.01,1,1,""DT"")"
^XMB(3.9,143,2,2770,0)="3050112"
^XMB(3.9,143,2,2771,0)="""^DD"",136,136.04,.01,1,1,""FIELD"")"
^XMB(3.9,143,2,2772,0)="SERVICE CONNECTED"
^XMB(3.9,143,2,2773,0)="""^DD"",136,136.04,.01,1,2,0)"
^XMB(3.9,143,2,2774,0)="^^TRIGGER^136.04^.03"
^XMB(3.9,143,2,2775,0)="""^DD"",136,136.04,.01,1,2,1)"
^XMB(3.9,143,2,2776,0)="X ^DD(136.04,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$P(^SRO(136,DA(1),0),U,5) X ^DD(136.04,.01,1,2,1.4)"
^XMB(3.9,143,2,2777,0)="""^DD"",136,136.04,.01,1,2,1.3)"
^XMB(3.9,143,2,2778,0)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(136.04,.03,0)),U,3),Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,3)_"":"",2),$C(59))="""""
^XMB(3.9,143,2,2779,0)="""^DD"",136,136.04,.01,1,2,1.4)"
^XMB(3.9,143,2,2780,0)="S DIH=$G(^SRO(136,DIV(0),4,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=136.04,DIG=.03 D ^DICR"
^XMB(3.9,143,2,2781,0)="""^DD"",136,136.04,.01,1,2,2)"
^XMB(3.9,143,2,2782,0)="Q"
^XMB(3.9,143,2,2783,0)="""^DD"",136,136.04,.01,1,2,""CREATE CONDITION"")"
^XMB(3.9,143,2,2784,0)="AGENT ORANGE EXPOSURE="""""
^XMB(3.9,143,2,2785,0)="""^DD"",136,136.04,.01,1,2,""CREATE VALUE"")"
^XMB(3.9,143,2,2786,0)="S X=$P(^SRO(136,DA(1),0),U,5)"
^XMB(3.9,143,2,2787,0)="""^DD"",136,136.04,.01,1,2,""DELETE VALUE"")"
^XMB(3.9,143,2,2788,0)="NO EFFECT"
^XMB(3.9,143,2,2789,0)="""^DD"",136,136.04,.01,1,2,""DT"")"
^XMB(3.9,143,2,2790,0)="3050112"
^XMB(3.9,143,2,2791,0)="""^DD"",136,136.04,.01,1,2,""FIELD"")"
^XMB(3.9,143,2,2792,0)="AGENT ORANGE EXPOSURE"
^XMB(3.9,143,2,2793,0)="""^DD"",136,136.04,.01,1,3,0)"
^XMB(3.9,143,2,2794,0)="^^TRIGGER^136.04^.04"
^XMB(3.9,143,2,2795,0)="""^DD"",136,136.04,.01,1,3,1)"
^XMB(3.9,143,2,2796,0)="X ^DD(136.04,.01,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=$P(^SRO(136,DA(1),0),U,6) X ^DD(136.04,.01,1,3,1.4)"
^XMB(3.9,143,2,2797,0)="""^DD"",136,136.04,.01,1,3,1.3)"
^XMB(3.9,143,2,2798,0)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(136.04,.04,0)),U,3),Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,4)_"":"",2),$C(59))="""""
^XMB(3.9,143,2,2799,0)="""^DD"",136,136.04,.01,1,3,1.4)"
^XMB(3.9,143,2,2800,0)="S DIH=$G(^SRO(136,DIV(0),4,DIV(1),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=136.04,DIG=.04 D ^DICR"
^XMB(3.9,143,2,2801,0)="""^DD"",136,136.04,.01,1,3,2)"
^XMB(3.9,143,2,2802,0)="Q"
^XMB(3.9,143,2,2803,0)="""^DD"",136,136.04,.01,1,3,""CREATE CONDITION"")"
^XMB(3.9,143,2,2804,0)="IONIZING RADIATION EXPOSURE="""""
^XMB(3.9,143,2,2805,0)="""^DD"",136,136.04,.01,1,3,""CREATE VALUE"")"
^XMB(3.9,143,2,2806,0)="S X=$P(^SRO(136,DA(1),0),U,6)"
^XMB(3.9,143,2,2807,0)="""^DD"",136,136.04,.01,1,3,""DELETE VALUE"")"
^XMB(3.9,143,2,2808,0)="NO EFFECT"
^XMB(3.9,143,2,2809,0)="""^DD"",136,136.04,.01,1,3,""DT"")"
^XMB(3.9,143,2,2810,0)="3050112"
^XMB(3.9,143,2,2811,0)="""^DD"",136,136.04,.01,1,3,""FIELD"")"
^XMB(3.9,143,2,2812,0)="IONIZING RADIATION EXPOSURE"
^XMB(3.9,143,2,2813,0)="""^DD"",136,136.04,.01,1,4,0)"
^XMB(3.9,143,2,2814,0)="^^TRIGGER^136.04^.05"
^XMB(3.9,143,2,2815,0)="""^DD"",136,136.04,.01,1,4,1)"
^XMB(3.9,143,2,2816,0)="X ^DD(136.04,.01,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=$P(^SRO(136,DA(1),0),U,8) X ^DD(136.04,.01,1,4,1.4)"
^XMB(3.9,143,2,2817,0)="""^DD"",136,136.04,.01,1,4,1.3)"
^XMB(3.9,143,2,2818,0)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(136.04,.05,0)),U,3),Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,5)_"":"",2),$C(59))="""""
^XMB(3.9,143,2,2819,0)="""^DD"",136,136.04,.01,1,4,1.4)"
^XMB(3.9,143,2,2820,0)="S DIH=$G(^SRO(136,DIV(0),4,DIV(1),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=136.04,DIG=.05 D ^DICR"
^XMB(3.9,143,2,2821,0)="""^DD"",136,136.04,.01,1,4,2)"
^XMB(3.9,143,2,2822,0)="Q"
^XMB(3.9,143,2,2823,0)="""^DD"",136,136.04,.01,1,4,""CREATE CONDITION"")"
^XMB(3.9,143,2,2824,0)="MILITARY SEXUAL TRAUMA="""""
^XMB(3.9,143,2,2825,0)="""^DD"",136,136.04,.01,1,4,""CREATE VALUE"")"
^XMB(3.9,143,2,2826,0)="S X=$P(^SRO(136,DA(1),0),U,8)"
^XMB(3.9,143,2,2827,0)="""^DD"",136,136.04,.01,1,4,""DELETE VALUE"")"
^XMB(3.9,143,2,2828,0)="NO EFFECT"
^XMB(3.9,143,2,2829,0)="""^DD"",136,136.04,.01,1,4,""DT"")"
^XMB(3.9,143,2,2830,0)="3050112"
^XMB(3.9,143,2,2831,0)="""^DD"",136,136.04,.01,1,4,""FIELD"")"
^XMB(3.9,143,2,2832,0)="MILITARY SEXUAL TRAUMA"
^XMB(3.9,143,2,2833,0)="""^DD"",136,136.04,.01,1,5,0)"
^XMB(3.9,143,2,2834,0)="^^TRIGGER^136.04^.06"
^XMB(3.9,143,2,2835,0)="""^DD"",136,136.04,.01,1,5,1)"
^XMB(3.9,143,2,2836,0)="X ^DD(136.04,.01,1,5,1.3) I X S X=DIV S Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$P(^SRO(136,DA(1),0),U,9) X ^DD(136.04,.01,1,5,1.4)"
^XMB(3.9,143,2,2837,0)="""^DD"",136,136.04,.01,1,5,1.3)"
^XMB(3.9,143,2,2838,0)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(136.04,.06,0)),U,3),Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,6)_"":"",2),$C(59))="""""
^XMB(3.9,143,2,2839,0)="""^DD"",136,136.04,.01,1,5,1.4)"
^XMB(3.9,143,2,2840,0)="S DIH=$G(^SRO(136,DIV(0),4,DIV(1),0)),DIV=X S $P(^(0),U,6)=DIV,DIH=136.04,DIG=.06 D ^DICR"
^XMB(3.9,143,2,2841,0)="""^DD"",136,136.04,.01,1,5,2)"
^XMB(3.9,143,2,2842,0)="Q"
^XMB(3.9,143,2,2843,0)="""^DD"",136,136.04,.01,1,5,""CREATE CONDITION"")"
^XMB(3.9,143,2,2844,0)="HEAD AND/OR NECK CANCER="""""
^XMB(3.9,143,2,2845,0)="""^DD"",136,136.04,.01,1,5,""CREATE VALUE"")"
^XMB(3.9,143,2,2846,0)="S X=$P(^SRO(136,DA(1),0),U,9)"
^XMB(3.9,143,2,2847,0)="""^DD"",136,136.04,.01,1,5,""DELETE VALUE"")"
^XMB(3.9,143,2,2848,0)="NO EFFECT"
^XMB(3.9,143,2,2849,0)="""^DD"",136,136.04,.01,1,5,""DT"")"
^XMB(3.9,143,2,2850,0)="3050112"
^XMB(3.9,143,2,2851,0)="""^DD"",136,136.04,.01,1,5,""FIELD"")"
^XMB(3.9,143,2,2852,0)="HEAD AND/OR NECK CANCER"
^XMB(3.9,143,2,2853,0)="""^DD"",136,136.04,.01,1,6,0)"
^XMB(3.9,143,2,2854,0)="^^TRIGGER^136.04^.07"
^XMB(3.9,143,2,2855,0)="""^DD"",136,136.04,.01,1,6,1)"
^XMB(3.9,143,2,2856,0)="X ^DD(136.04,.01,1,6,1.3) I X S X=DIV S Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=$P(^SRO(136,DA(1),0),U,7) X ^DD(136.04,.01,1,6,1.4)"
^XMB(3.9,143,2,2857,0)="""^DD"",136,136.04,.01,1,6,1.3)"
^XMB(3.9,143,2,2858,0)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(136.04,.07,0)),U,3),Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,7)_"":"",2),$C(59))="""""
^XMB(3.9,143,2,2859,0)="""^DD"",136,136.04,.01,1,6,1.4)"
^XMB(3.9,143,2,2860,0)="S DIH=$G(^SRO(136,DIV(0),4,DIV(1),0)),DIV=X S $P(^(0),U,7)=DIV,DIH=136.04,DIG=.07 D ^DICR"
^XMB(3.9,143,2,2861,0)="""^DD"",136,136.04,.01,1,6,2)"
^XMB(3.9,143,2,2862,0)="Q"
^XMB(3.9,143,2,2863,0)="""^DD"",136,136.04,.01,1,6,""CREATE CONDITION"")"
^XMB(3.9,143,2,2864,0)="ENVIRONMENTAL CONTAMINANTS="""""
^XMB(3.9,143,2,2865,0)="""^DD"",136,136.04,.01,1,6,""CREATE VALUE"")"
^XMB(3.9,143,2,2866,0)="S X=$P(^SRO(136,DA(1),0),U,7)"
^XMB(3.9,143,2,2867,0)="""^DD"",136,136.04,.01,1,6,""DELETE VALUE"")"
^XMB(3.9,143,2,2868,0)="NO EFFECT"
^XMB(3.9,143,2,2869,0)="""^DD"",136,136.04,.01,1,6,""DT"")"
^XMB(3.9,143,2,2870,0)="3050112"
^XMB(3.9,143,2,2871,0)="""^DD"",136,136.04,.01,1,6,""FIELD"")"
^XMB(3.9,143,2,2872,0)="ENVIRONMENTAL CONTAMINANTS"
^XMB(3.9,143,2,2873,0)="""^DD"",136,136.04,.01,1,7,0)"
^XMB(3.9,143,2,2874,0)="^^TRIGGER^136.04^.08"
^XMB(3.9,143,2,2875,0)="""^DD"",136,136.04,.01,1,7,1)"
^XMB(3.9,143,2,2876,0)="X ^DD(136.04,.01,1,7,1.3) I X S X=DIV S Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$P(^SRO(136,DA(1),0),U,10) X ^DD(136.04,.01,1,7,1.4)"
^XMB(3.9,143,2,2877,0)="""^DD"",136,136.04,.01,1,7,1.3)"
^XMB(3.9,143,2,2878,0)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(136.04,.08,0)),U,3),Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,8)_"":"",2),$C(59))="""""
^XMB(3.9,143,2,2879,0)="""^DD"",136,136.04,.01,1,7,1.4)"
^XMB(3.9,143,2,2880,0)="S DIH=$G(^SRO(136,DIV(0),4,DIV(1),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=136.04,DIG=.08 D ^DICR"
^XMB(3.9,143,2,2881,0)="""^DD"",136,136.04,.01,1,7,2)"
^XMB(3.9,143,2,2882,0)="Q"
^XMB(3.9,143,2,2883,0)="""^DD"",136,136.04,.01,1,7,""CREATE CONDITION"")"
^XMB(3.9,143,2,2884,0)="COMBAT VET="""""
^XMB(3.9,143,2,2885,0)="""^DD"",136,136.04,.01,1,7,""CREATE VALUE"")"
^XMB(3.9,143,2,2886,0)="S X=$P(^SRO(136,DA(1),0),U,10)"
^XMB(3.9,143,2,2887,0)="""^DD"",136,136.04,.01,1,7,""DELETE VALUE"")"
^XMB(3.9,143,2,2888,0)="NO EFFECT"
^XMB(3.9,143,2,2889,0)="""^DD"",136,136.04,.01,1,7,""DT"")"
^XMB(3.9,143,2,2890,0)="3050112"
^XMB(3.9,143,2,2891,0)="""^DD"",136,136.04,.01,1,7,""FIELD"")"
^XMB(3.9,143,2,2892,0)="COMBAT VET"
^XMB(3.9,143,2,2893,0)="""^DD"",136,136.04,.01,1,8,0)"
^XMB(3.9,143,2,2894,0)="^^TRIGGER^136.04^.09"
^XMB(3.9,143,2,2895,0)="""^DD"",136,136.04,.01,1,8,1)"
^XMB(3.9,143,2,2896,0)="X ^DD(136.04,.01,1,8,1.3) I X S X=DIV S Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=$P(^SRO(136,DA(1),0),U,11) X ^DD(136.04,.01,1,8,1.4)"
^XMB(3.9,143,2,2897,0)="""^DD"",136,136.04,.01,1,8,1.3)"
^XMB(3.9,143,2,2898,0)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(136.04,.09,0)),U,3),Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,9)_"":"",2),$C(59))="""""
^XMB(3.9,143,2,2899,0)="""^DD"",136,136.04,.01,1,8,1.4)"
^XMB(3.9,143,2,2900,0)="S DIH=$G(^SRO(136,DIV(0),4,DIV(1),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=136.04,DIG=.09 D ^DICR"
^XMB(3.9,143,2,2901,0)="""^DD"",136,136.04,.01,1,8,2)"
^XMB(3.9,143,2,2902,0)="Q"
^XMB(3.9,143,2,2903,0)="""^DD"",136,136.04,.01,1,8,""CREATE CONDITION"")"
^XMB(3.9,143,2,2904,0)="PROJ 112/SHAD="""""
^XMB(3.9,143,2,2905,0)="""^DD"",136,136.04,.01,1,8,""CREATE VALUE"")"
^XMB(3.9,143,2,2906,0)="S X=$P(^SRO(136,DA(1),0),U,11)"
^XMB(3.9,143,2,2907,0)="""^DD"",136,136.04,.01,1,8,""DELETE VALUE"")"
^XMB(3.9,143,2,2908,0)="NO EFFECT"
^XMB(3.9,143,2,2909,0)="""^DD"",136,136.04,.01,1,8,""DT"")"
^XMB(3.9,143,2,2910,0)="3051117"
^XMB(3.9,143,2,2911,0)="""^DD"",136,136.04,.01,1,8,""FIELD"")"
^XMB(3.9,143,2,2912,0)="PROJ"
^XMB(3.9,143,2,2913,0)="""^DD"",136,136.04,.01,3)"
^XMB(3.9,143,2,2914,0)="Enter the ICD Diagnosis Code that corresponds to this diagnosis."
^XMB(3.9,143,2,2915,0)="""^DD"",136,136.04,.01,12)"
^XMB(3.9,143,2,2916,0)="Screen prevents selection of inactive diagnosis."
^XMB(3.9,143,2,2917,0)="""^DD"",136,136.04,.01,12.1)"
^XMB(3.9,143,2,2918,0)="S DIC(""S"")=""I $$ACTIV^SROICD($S($D(SRTN):SRTN,$D(DA(1)):DA(1),1:""""""""),+Y)"""
^XMB(3.9,143,2,2919,0)="""^DD"",136,136.04,.01,21,0)"
^XMB(3.9,143,2,2920,0)="^^2^2^3050112^"
^XMB(3.9,143,2,2921,0)="""^DD"",136,136.04,.01,21,1,0)"
^XMB(3.9,143,2,2922,0)="This is the ICD-9-CM code corresponding with this postoperative"
^XMB(3.9,143,2,2923,0)="""^DD"",136,136.04,.01,21,2,0)"
^XMB(3.9,143,2,2924,0)="diagnosis."
^XMB(3.9,143,2,2925,0)="""^DD"",136,136.04,.01,""DT"")"
^XMB(3.9,143,2,2926,0)="3051117"
^XMB(3.9,143,2,2927,0)="""^DD"",136,136.04,.09,0)"
^XMB(3.9,143,2,2928,0)="PROJ 112/SHAD^S^1:YES;0:NO;^0;9^Q"
^XMB(3.9,143,2,2929,0)="""^DD"",136,136.04,.09,.1)"
^XMB(3.9,143,2,2930,0)="Treatment related to PROJ 112/SHAD (Y/N)"
^XMB(3.9,143,2,2931,0)="""^DD"",136,136.04,.09,3)"
^XMB(3.9,143,2,2932,0)="If this diagnosis is related to PROJ 112/SHAD, enter YES."
^XMB(3.9,143,2,2933,0)="""^DD"",136,136.04,.09,5,1,0)"
^XMB(3.9,143,2,2934,0)="136.04^.01^8"
^XMB(3.9,143,2,2935,0)="""^DD"",136,136.04,.09,21,0)"
^XMB(3.9,143,2,2936,0)="^.001^3^3^3051117^^"
^XMB(3.9,143,2,2937,0)="""^DD"",136,136.04,.09,21,1,0)"
^XMB(3.9,143,2,2938,0)="This field indicates if this diagnosis is a PROJ 112/SHAD related "
^XMB(3.9,143,2,2939,0)="""^DD"",136,136.04,.09,21,2,0)"
^XMB(3.9,143,2,2940,0)="problem.  This information may be passed to the VISIT file (#9000010) for "
^XMB(3.9,143,2,2941,0)="""^DD"",136,136.04,.09,21,3,0)"
^XMB(3.9,143,2,2942,0)="use by PCE."
^XMB(3.9,143,2,2943,0)="""^DD"",136,136.04,.09,""DT"")"
^XMB(3.9,143,2,2944,0)="3051117"
^XMB(3.9,143,2,2945,0)="""BLD"",5643,6)"
^XMB(3.9,143,2,2946,0)="^147"
^XMB(3.9,143,2,2947,0)="$END KID SR*3.0*152"
^XMB(3.9,143,6,0)="^3.911A^2^2"
^XMB(3.9,143,6,1,0)="POSTMASTER"
^XMB(3.9,143,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,143,6,"B","POSTMASTER",1)=""
^XMB(3.9,143,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,144,0)="SR-3_SEQ-148_PAT-144.KID^.5^3061008.015742^^^^K"
^XMB(3.9,144,.6)="3061008"
^XMB(3.9,144,1,0)="^3.91A^2^2"
^XMB(3.9,144,1,1,0)=".5^0^3061008.015742^^^^^^^3061008.015742"
^XMB(3.9,144,1,2,0)="1^0^3061008.022758^^^^^^^3061008.022758"
^XMB(3.9,144,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,144,1,"C",.5,1)=""
^XMB(3.9,144,1,"C",1,2)=""
^XMB(3.9,144,2,0)="^^2739^2739^3061008"
^XMB(3.9,144,2,1,0)="$TXT Released SR*3*144 SEQ #148"
^XMB(3.9,144,2,2,0)="Extracted from mail message"
^XMB(3.9,144,2,3,0)="$END TXT"
^XMB(3.9,144,2,4,0)="$KID SR*3.0*144"
^XMB(3.9,144,2,5,0)="**INSTALL NAME**"
^XMB(3.9,144,2,6,0)="SR*3.0*144"
^XMB(3.9,144,2,7,0)="""BLD"",5296,0)"
^XMB(3.9,144,2,8,0)="SR*3.0*144^SURGERY^0^3060406^y"
^XMB(3.9,144,2,9,0)="""BLD"",5296,1,0)"
^XMB(3.9,144,2,10,0)="^^48^48^3060403^"
^XMB(3.9,144,2,11,0)="""BLD"",5296,1,1,0)"
^XMB(3.9,144,2,12,0)="This patch is part of the Patient Financial Services System (PFSS) "
^XMB(3.9,144,2,13,0)="""BLD"",5296,1,2,0)"
^XMB(3.9,144,2,14,0)="project. PFSS patches are being released on various schedules. Some patch"
^XMB(3.9,144,2,15,0)="""BLD"",5296,1,3,0)"
^XMB(3.9,144,2,16,0)="functionality will not be active until a new PFSS switch is activated"
^XMB(3.9,144,2,17,0)="""BLD"",5296,1,4,0)"
^XMB(3.9,144,2,18,0)="during final implementation. PFSS will initially be implemented at select"
^XMB(3.9,144,2,19,0)="""BLD"",5296,1,5,0)"
^XMB(3.9,144,2,20,0)="pilot sites ONLY."
^XMB(3.9,144,2,21,0)="""BLD"",5296,1,6,0)"
^XMB(3.9,144,2,22,0)=" "
^XMB(3.9,144,2,23,0)="""BLD"",5296,1,7,0)"
^XMB(3.9,144,2,24,0)="The purpose of the PFSS project is to prepare the Veterans Health "
^XMB(3.9,144,2,25,0)="""BLD"",5296,1,8,0)"
^XMB(3.9,144,2,26,0)="Information Systems and Technology Architecture (VistA) environment for "
^XMB(3.9,144,2,27,0)="""BLD"",5296,1,9,0)"
^XMB(3.9,144,2,28,0)="the implementation of a Commercial Off-The-Shelf (COTS) billing "
^XMB(3.9,144,2,29,0)="""BLD"",5296,1,10,0)"
^XMB(3.9,144,2,30,0)="replacement system. The project consists of the implementation of the "
^XMB(3.9,144,2,31,0)="""BLD"",5296,1,11,0)"
^XMB(3.9,144,2,32,0)="billing replacement system, business process improvements, and "
^XMB(3.9,144,2,33,0)="""BLD"",5296,1,12,0)"
^XMB(3.9,144,2,34,0)="enhancements to VistA to support integration with the COTS billing "
^XMB(3.9,144,2,35,0)="""BLD"",5296,1,13,0)"
^XMB(3.9,144,2,36,0)="replacement system. Significant changes to VistA legacy systems and "
^XMB(3.9,144,2,37,0)="""BLD"",5296,1,14,0)"
^XMB(3.9,144,2,38,0)="ancillary packages are necessary."
^XMB(3.9,144,2,39,0)="""BLD"",5296,1,15,0)"
^XMB(3.9,144,2,40,0)=" "
^XMB(3.9,144,2,41,0)="""BLD"",5296,1,16,0)"
^XMB(3.9,144,2,42,0)="Some of the PFSS software components are not operational until the PFSS "
^XMB(3.9,144,2,43,0)="""BLD"",5296,1,17,0)"
^XMB(3.9,144,2,44,0)="On/Off Switch, distributed with patch IB*2*260, is set to ""ON"". The "
^XMB(3.9,144,2,45,0)="""BLD"",5296,1,18,0)"
^XMB(3.9,144,2,46,0)="ability for the local site to set the switch to ""ON"" will be provided at "
^XMB(3.9,144,2,47,0)="""BLD"",5296,1,19,0)"
^XMB(3.9,144,2,48,0)="the appropriate time with the release of a subsequent Integrated Billing "
^XMB(3.9,144,2,49,0)="""BLD"",5296,1,20,0)"
^XMB(3.9,144,2,50,0)="patch."
^XMB(3.9,144,2,51,0)="""BLD"",5296,1,21,0)"
^XMB(3.9,144,2,52,0)=" "
^XMB(3.9,144,2,53,0)="""BLD"",5296,1,22,0)"
^XMB(3.9,144,2,54,0)="For more information about the PFSS project, review the documentation "
^XMB(3.9,144,2,55,0)="""BLD"",5296,1,23,0)"
^XMB(3.9,144,2,56,0)="accompanying this patch and refer to the following website: "
^XMB(3.9,144,2,57,0)="""BLD"",5296,1,24,0)"
^XMB(3.9,144,2,58,0)="http://vista.med.va.gov/billreplace/"
^XMB(3.9,144,2,59,0)="""BLD"",5296,1,25,0)"
^XMB(3.9,144,2,60,0)=" "
^XMB(3.9,144,2,61,0)="""BLD"",5296,1,26,0)"
^XMB(3.9,144,2,62,0)="Features of patch SR*3*144 are listed below:"
^XMB(3.9,144,2,63,0)="""BLD"",5296,1,27,0)"
^XMB(3.9,144,2,64,0)=" "
^XMB(3.9,144,2,65,0)="""BLD"",5296,1,28,0)"
^XMB(3.9,144,2,66,0)="1. The VistA Surgery software will be enhanced to request an account"
^XMB(3.9,144,2,67,0)="""BLD"",5296,1,29,0)"
^XMB(3.9,144,2,68,0)="   number for every Surgery Request Consult. This activity will support"
^XMB(3.9,144,2,69,0)="""BLD"",5296,1,30,0)"
^XMB(3.9,144,2,70,0)="   the Revenue Office's need to pre-certify with insurance companies the"
^XMB(3.9,144,2,71,0)="""BLD"",5296,1,31,0)"
^XMB(3.9,144,2,72,0)="   requested Surgery. A national guideline will be issued defining the"
^XMB(3.9,144,2,73,0)="""BLD"",5296,1,32,0)"
^XMB(3.9,144,2,74,0)="   minimum format for creating a Surgery Request Consult within the VistA"
^XMB(3.9,144,2,75,0)="""BLD"",5296,1,33,0)"
^XMB(3.9,144,2,76,0)="   Consults package that will collect the data required by PFSS. The"
^XMB(3.9,144,2,77,0)="""BLD"",5296,1,34,0)"
^XMB(3.9,144,2,78,0)="   Surgery Request Consult will not create a Surgery case. This guideline"
^XMB(3.9,144,2,79,0)="""BLD"",5296,1,35,0)"
^XMB(3.9,144,2,80,0)="   does not require that sites use the Consults package for creating"
^XMB(3.9,144,2,81,0)="""BLD"",5296,1,36,0)"
^XMB(3.9,144,2,82,0)="   Surgery requests. Sites using VistA Surgery Request options can"
^XMB(3.9,144,2,83,0)="""BLD"",5296,1,37,0)"
^XMB(3.9,144,2,84,0)="   continue to use that approach."
^XMB(3.9,144,2,85,0)="""BLD"",5296,1,38,0)"
^XMB(3.9,144,2,86,0)=" "
^XMB(3.9,144,2,87,0)="""BLD"",5296,1,39,0)"
^XMB(3.9,144,2,88,0)="   VistA Surgery will be enhanced to also request a PFSS ACCOUNT"
^XMB(3.9,144,2,89,0)="""BLD"",5296,1,40,0)"
^XMB(3.9,144,2,90,0)="   REFERENCE, and it will be stored in the PFSS ACCOUNT REFERENCE field"
^XMB(3.9,144,2,91,0)="""BLD"",5296,1,41,0)"
^XMB(3.9,144,2,92,0)="   (#500) of the SURGERY file (#130). The association to a PFSS ACCOUNT"
^XMB(3.9,144,2,93,0)="""BLD"",5296,1,42,0)"
^XMB(3.9,144,2,94,0)="   REFERENCE is obtained when the Surgery case is created and is sent to"
^XMB(3.9,144,2,95,0)="""BLD"",5296,1,43,0)"
^XMB(3.9,144,2,96,0)="   the PATIENT CARE ENCOUNTER (PCE) application upon completion of coding."
^XMB(3.9,144,2,97,0)="""BLD"",5296,1,44,0)"
^XMB(3.9,144,2,98,0)=" "
^XMB(3.9,144,2,99,0)="""BLD"",5296,1,45,0)"
^XMB(3.9,144,2,100,0)="2. This patch changes the List Completed Cases Missing CPT Codes [SRSCPT]"
^XMB(3.9,144,2,101,0)="""BLD"",5296,1,46,0)"
^XMB(3.9,144,2,102,0)="   option to list only those completed cases that do not have a final CPT "
^XMB(3.9,144,2,103,0)="""BLD"",5296,1,47,0)"
^XMB(3.9,144,2,104,0)="   code entered in the PRINCIPAL PROCEDURE CODE field (#.02) of the"
^XMB(3.9,144,2,105,0)="""BLD"",5296,1,48,0)"
^XMB(3.9,144,2,106,0)="   SURGERY PROCEDURE/DIAGNOSIS CODES file (#136)."
^XMB(3.9,144,2,107,0)="""BLD"",5296,4,0)"
^XMB(3.9,144,2,108,0)="^9.64PA^130^1"
^XMB(3.9,144,2,109,0)="""BLD"",5296,4,130,0)"
^XMB(3.9,144,2,110,0)="130"
^XMB(3.9,144,2,111,0)="""BLD"",5296,4,130,2,0)"
^XMB(3.9,144,2,112,0)="^9.641^130^1"
^XMB(3.9,144,2,113,0)="""BLD"",5296,4,130,2,130,0)"
^XMB(3.9,144,2,114,0)="SURGERY  (File-top level)"
^XMB(3.9,144,2,115,0)="""BLD"",5296,4,130,2,130,1,0)"
^XMB(3.9,144,2,116,0)="^9.6411^32^3"
^XMB(3.9,144,2,117,0)="""BLD"",5296,4,130,2,130,1,.09,0)"
^XMB(3.9,144,2,118,0)="DATE OF OPERATION"
^XMB(3.9,144,2,119,0)="""BLD"",5296,4,130,2,130,1,32,0)"
^XMB(3.9,144,2,120,0)="PRINCIPAL PRE-OP DIAGNOSIS"
^XMB(3.9,144,2,121,0)="""BLD"",5296,4,130,2,130,1,500,0)"
^XMB(3.9,144,2,122,0)="PFSS ACCOUNT REFERENCE"
^XMB(3.9,144,2,123,0)="""BLD"",5296,4,130,222)"
^XMB(3.9,144,2,124,0)="y^y^p^^^^n^^n"
^XMB(3.9,144,2,125,0)="""BLD"",5296,4,130,224)"
^XMB(3.9,144,2,126,0)=""
^XMB(3.9,144,2,127,0)="""BLD"",5296,4,""APDD"",130,130)"
^XMB(3.9,144,2,128,0)=""
^XMB(3.9,144,2,129,0)="""BLD"",5296,4,""APDD"",130,130,.09)"
^XMB(3.9,144,2,130,0)=""
^XMB(3.9,144,2,131,0)="""BLD"",5296,4,""APDD"",130,130,32)"
^XMB(3.9,144,2,132,0)=""
^XMB(3.9,144,2,133,0)="""BLD"",5296,4,""APDD"",130,130,500)"
^XMB(3.9,144,2,134,0)=""
^XMB(3.9,144,2,135,0)="""BLD"",5296,4,""B"",130,130)"
^XMB(3.9,144,2,136,0)=""
^XMB(3.9,144,2,137,0)="""BLD"",5296,6)"
^XMB(3.9,144,2,138,0)="5^"
^XMB(3.9,144,2,139,0)="""BLD"",5296,""KRN"",0)"
^XMB(3.9,144,2,140,0)="^9.67PA^8989.52^19"
^XMB(3.9,144,2,141,0)="""BLD"",5296,""KRN"",.4,0)"
^XMB(3.9,144,2,142,0)=".4"
^XMB(3.9,144,2,143,0)="""BLD"",5296,""KRN"",.401,0)"
^XMB(3.9,144,2,144,0)=".401"
^XMB(3.9,144,2,145,0)="""BLD"",5296,""KRN"",.402,0)"
^XMB(3.9,144,2,146,0)=".402"
^XMB(3.9,144,2,147,0)="""BLD"",5296,""KRN"",.402,""NM"",0)"
^XMB(3.9,144,2,148,0)="^9.68A^^0"
^XMB(3.9,144,2,149,0)="""BLD"",5296,""KRN"",.403,0)"
^XMB(3.9,144,2,150,0)=".403"
^XMB(3.9,144,2,151,0)="""BLD"",5296,""KRN"",.5,0)"
^XMB(3.9,144,2,152,0)=".5"
^XMB(3.9,144,2,153,0)="""BLD"",5296,""KRN"",.84,0)"
^XMB(3.9,144,2,154,0)=".84"
^XMB(3.9,144,2,155,0)="""BLD"",5296,""KRN"",3.6,0)"
^XMB(3.9,144,2,156,0)="3.6"
^XMB(3.9,144,2,157,0)="""BLD"",5296,""KRN"",3.8,0)"
^XMB(3.9,144,2,158,0)="3.8"
^XMB(3.9,144,2,159,0)="""BLD"",5296,""KRN"",3.8,""NM"",0)"
^XMB(3.9,144,2,160,0)="^9.68A^1^1"
^XMB(3.9,144,2,161,0)="""BLD"",5296,""KRN"",3.8,""NM"",1,0)"
^XMB(3.9,144,2,162,0)="SR CONSULT^^0"
^XMB(3.9,144,2,163,0)="""BLD"",5296,""KRN"",3.8,""NM"",""B"",""SR CONSULT"",1)"
^XMB(3.9,144,2,164,0)=""
^XMB(3.9,144,2,165,0)="""BLD"",5296,""KRN"",9.2,0)"
^XMB(3.9,144,2,166,0)="9.2"
^XMB(3.9,144,2,167,0)="""BLD"",5296,""KRN"",9.8,0)"
^XMB(3.9,144,2,168,0)="9.8"
^XMB(3.9,144,2,169,0)="""BLD"",5296,""KRN"",9.8,""NM"",0)"
^XMB(3.9,144,2,170,0)="^9.68A^15^14"
^XMB(3.9,144,2,171,0)="""BLD"",5296,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,144,2,172,0)="SRCHL7A^^0^B18837235"
^XMB(3.9,144,2,173,0)="""BLD"",5296,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,144,2,174,0)="SRCHL7U^^0^B3165191"
^XMB(3.9,144,2,175,0)="""BLD"",5296,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,144,2,176,0)="SROERR^^0^B34000236"
^XMB(3.9,144,2,177,0)="""BLD"",5296,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,144,2,178,0)="SROERR0^^0^B18120820"
^XMB(3.9,144,2,179,0)="""BLD"",5296,""KRN"",9.8,""NM"",6,0)"
^XMB(3.9,144,2,180,0)="SROVAR^^0^B31317243"
^XMB(3.9,144,2,181,0)="""BLD"",5296,""KRN"",9.8,""NM"",7,0)"
^XMB(3.9,144,2,182,0)="SRSCAN0^^0^B15578926"
^XMB(3.9,144,2,183,0)="""BLD"",5296,""KRN"",9.8,""NM"",8,0)"
^XMB(3.9,144,2,184,0)="SRONEW^^0^B31106190"
^XMB(3.9,144,2,185,0)="""BLD"",5296,""KRN"",9.8,""NM"",9,0)"
^XMB(3.9,144,2,186,0)="SROPFSS^^0^B8994664"
^XMB(3.9,144,2,187,0)="""BLD"",5296,""KRN"",9.8,""NM"",10,0)"
^XMB(3.9,144,2,188,0)="SRSCHUN^^0^B27018282"
^XMB(3.9,144,2,189,0)="""BLD"",5296,""KRN"",9.8,""NM"",11,0)"
^XMB(3.9,144,2,190,0)="SRSRQST^^0^B26274386"
^XMB(3.9,144,2,191,0)="""BLD"",5296,""KRN"",9.8,""NM"",12,0)"
^XMB(3.9,144,2,192,0)="SROPCEP^^0^B79067516"
^XMB(3.9,144,2,193,0)="""BLD"",5296,""KRN"",9.8,""NM"",13,0)"
^XMB(3.9,144,2,194,0)="SRSCAN2^^0^B12532535"
^XMB(3.9,144,2,195,0)="""BLD"",5296,""KRN"",9.8,""NM"",14,0)"
^XMB(3.9,144,2,196,0)="SRSCPT1^^0^B14019263"
^XMB(3.9,144,2,197,0)="""BLD"",5296,""KRN"",9.8,""NM"",15,0)"
^XMB(3.9,144,2,198,0)="SRSCPT2^^0^B15586528"
^XMB(3.9,144,2,199,0)="""BLD"",5296,""KRN"",9.8,""NM"",""B"",""SRCHL7A"",1)"
^XMB(3.9,144,2,200,0)=""
^XMB(3.9,144,2,201,0)="""BLD"",5296,""KRN"",9.8,""NM"",""B"",""SRCHL7U"",2)"
^XMB(3.9,144,2,202,0)=""
^XMB(3.9,144,2,203,0)="""BLD"",5296,""KRN"",9.8,""NM"",""B"",""SROERR"",3)"
^XMB(3.9,144,2,204,0)=""
^XMB(3.9,144,2,205,0)="""BLD"",5296,""KRN"",9.8,""NM"",""B"",""SROERR0"",4)"
^XMB(3.9,144,2,206,0)=""
^XMB(3.9,144,2,207,0)="""BLD"",5296,""KRN"",9.8,""NM"",""B"",""SRONEW"",8)"
^XMB(3.9,144,2,208,0)=""
^XMB(3.9,144,2,209,0)="""BLD"",5296,""KRN"",9.8,""NM"",""B"",""SROPCEP"",12)"
^XMB(3.9,144,2,210,0)=""
^XMB(3.9,144,2,211,0)="""BLD"",5296,""KRN"",9.8,""NM"",""B"",""SROPFSS"",9)"
^XMB(3.9,144,2,212,0)=""
^XMB(3.9,144,2,213,0)="""BLD"",5296,""KRN"",9.8,""NM"",""B"",""SROVAR"",6)"
^XMB(3.9,144,2,214,0)=""
^XMB(3.9,144,2,215,0)="""BLD"",5296,""KRN"",9.8,""NM"",""B"",""SRSCAN0"",7)"
^XMB(3.9,144,2,216,0)=""
^XMB(3.9,144,2,217,0)="""BLD"",5296,""KRN"",9.8,""NM"",""B"",""SRSCAN2"",13)"
^XMB(3.9,144,2,218,0)=""
^XMB(3.9,144,2,219,0)="""BLD"",5296,""KRN"",9.8,""NM"",""B"",""SRSCHUN"",10)"
^XMB(3.9,144,2,220,0)=""
^XMB(3.9,144,2,221,0)="""BLD"",5296,""KRN"",9.8,""NM"",""B"",""SRSCPT1"",14)"
^XMB(3.9,144,2,222,0)=""
^XMB(3.9,144,2,223,0)="""BLD"",5296,""KRN"",9.8,""NM"",""B"",""SRSCPT2"",15)"
^XMB(3.9,144,2,224,0)=""
^XMB(3.9,144,2,225,0)="""BLD"",5296,""KRN"",9.8,""NM"",""B"",""SRSRQST"",11)"
^XMB(3.9,144,2,226,0)=""
^XMB(3.9,144,2,227,0)="""BLD"",5296,""KRN"",19,0)"
^XMB(3.9,144,2,228,0)="19"
^XMB(3.9,144,2,229,0)="""BLD"",5296,""KRN"",19.1,0)"
^XMB(3.9,144,2,230,0)="19.1"
^XMB(3.9,144,2,231,0)="""BLD"",5296,""KRN"",101,0)"
^XMB(3.9,144,2,232,0)="101"
^XMB(3.9,144,2,233,0)="""BLD"",5296,""KRN"",101,""NM"",0)"
^XMB(3.9,144,2,234,0)="^9.68A^1^1"
^XMB(3.9,144,2,235,0)="""BLD"",5296,""KRN"",101,""NM"",1,0)"
^XMB(3.9,144,2,236,0)="SR RECEIVE^^0"
^XMB(3.9,144,2,237,0)="""BLD"",5296,""KRN"",101,""NM"",""B"",""SR RECEIVE"",1)"
^XMB(3.9,144,2,238,0)=""
^XMB(3.9,144,2,239,0)="""BLD"",5296,""KRN"",409.61,0)"
^XMB(3.9,144,2,240,0)="409.61"
^XMB(3.9,144,2,241,0)="""BLD"",5296,""KRN"",771,0)"
^XMB(3.9,144,2,242,0)="771"
^XMB(3.9,144,2,243,0)="""BLD"",5296,""KRN"",870,0)"
^XMB(3.9,144,2,244,0)="870"
^XMB(3.9,144,2,245,0)="""BLD"",5296,""KRN"",8989.51,0)"
^XMB(3.9,144,2,246,0)="8989.51"
^XMB(3.9,144,2,247,0)="""BLD"",5296,""KRN"",8989.52,0)"
^XMB(3.9,144,2,248,0)="8989.52"
^XMB(3.9,144,2,249,0)="""BLD"",5296,""KRN"",8994,0)"
^XMB(3.9,144,2,250,0)="8994"
^XMB(3.9,144,2,251,0)="""BLD"",5296,""KRN"",""B"",.4,.4)"
^XMB(3.9,144,2,252,0)=""
^XMB(3.9,144,2,253,0)="""BLD"",5296,""KRN"",""B"",.401,.401)"
^XMB(3.9,144,2,254,0)=""
^XMB(3.9,144,2,255,0)="""BLD"",5296,""KRN"",""B"",.402,.402)"
^XMB(3.9,144,2,256,0)=""
^XMB(3.9,144,2,257,0)="""BLD"",5296,""KRN"",""B"",.403,.403)"
^XMB(3.9,144,2,258,0)=""
^XMB(3.9,144,2,259,0)="""BLD"",5296,""KRN"",""B"",.5,.5)"
^XMB(3.9,144,2,260,0)=""
^XMB(3.9,144,2,261,0)="""BLD"",5296,""KRN"",""B"",.84,.84)"
^XMB(3.9,144,2,262,0)=""
^XMB(3.9,144,2,263,0)="""BLD"",5296,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,144,2,264,0)=""
^XMB(3.9,144,2,265,0)="""BLD"",5296,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,144,2,266,0)=""
^XMB(3.9,144,2,267,0)="""BLD"",5296,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,144,2,268,0)=""
^XMB(3.9,144,2,269,0)="""BLD"",5296,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,144,2,270,0)=""
^XMB(3.9,144,2,271,0)="""BLD"",5296,""KRN"",""B"",19,19)"
^XMB(3.9,144,2,272,0)=""
^XMB(3.9,144,2,273,0)="""BLD"",5296,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,144,2,274,0)=""
^XMB(3.9,144,2,275,0)="""BLD"",5296,""KRN"",""B"",101,101)"
^XMB(3.9,144,2,276,0)=""
^XMB(3.9,144,2,277,0)="""BLD"",5296,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,144,2,278,0)=""
^XMB(3.9,144,2,279,0)="""BLD"",5296,""KRN"",""B"",771,771)"
^XMB(3.9,144,2,280,0)=""
^XMB(3.9,144,2,281,0)="""BLD"",5296,""KRN"",""B"",870,870)"
^XMB(3.9,144,2,282,0)=""
^XMB(3.9,144,2,283,0)="""BLD"",5296,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,144,2,284,0)=""
^XMB(3.9,144,2,285,0)="""BLD"",5296,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,144,2,286,0)=""
^XMB(3.9,144,2,287,0)="""BLD"",5296,""KRN"",""B"",8994,8994)"
^XMB(3.9,144,2,288,0)=""
^XMB(3.9,144,2,289,0)="""BLD"",5296,""QUES"",0)"
^XMB(3.9,144,2,290,0)="^9.62^^"
^XMB(3.9,144,2,291,0)="""BLD"",5296,""REQB"",0)"
^XMB(3.9,144,2,292,0)="^9.611^5^3"
^XMB(3.9,144,2,293,0)="""BLD"",5296,""REQB"",3,0)"
^XMB(3.9,144,2,294,0)="IB*2.0*315^2"
^XMB(3.9,144,2,295,0)="""BLD"",5296,""REQB"",4,0)"
^XMB(3.9,144,2,296,0)="SR*3.0*147^2"
^XMB(3.9,144,2,297,0)="""BLD"",5296,""REQB"",5,0)"
^XMB(3.9,144,2,298,0)="SR*3.0*152^2"
^XMB(3.9,144,2,299,0)="""BLD"",5296,""REQB"",""B"",""IB*2.0*315"",3)"
^XMB(3.9,144,2,300,0)=""
^XMB(3.9,144,2,301,0)="""BLD"",5296,""REQB"",""B"",""SR*3.0*147"",4)"
^XMB(3.9,144,2,302,0)=""
^XMB(3.9,144,2,303,0)="""BLD"",5296,""REQB"",""B"",""SR*3.0*152"",5)"
^XMB(3.9,144,2,304,0)=""
^XMB(3.9,144,2,305,0)="""FIA"",130)"
^XMB(3.9,144,2,306,0)="SURGERY"
^XMB(3.9,144,2,307,0)="""FIA"",130,0)"
^XMB(3.9,144,2,308,0)="^SRF("
^XMB(3.9,144,2,309,0)="""FIA"",130,0,0)"
^XMB(3.9,144,2,310,0)="130IP"
^XMB(3.9,144,2,311,0)="""FIA"",130,0,1)"
^XMB(3.9,144,2,312,0)="y^y^p^^^^n^^n"
^XMB(3.9,144,2,313,0)="""FIA"",130,0,10)"
^XMB(3.9,144,2,314,0)=""
^XMB(3.9,144,2,315,0)="""FIA"",130,0,11)"
^XMB(3.9,144,2,316,0)=""
^XMB(3.9,144,2,317,0)="""FIA"",130,0,""RLRO"")"
^XMB(3.9,144,2,318,0)=""
^XMB(3.9,144,2,319,0)="""FIA"",130,0,""VR"")"
^XMB(3.9,144,2,320,0)="3.0^SR"
^XMB(3.9,144,2,321,0)="""FIA"",130,130)"
^XMB(3.9,144,2,322,0)="1"
^XMB(3.9,144,2,323,0)="""FIA"",130,130,.09)"
^XMB(3.9,144,2,324,0)=""
^XMB(3.9,144,2,325,0)="""FIA"",130,130,32)"
^XMB(3.9,144,2,326,0)=""
^XMB(3.9,144,2,327,0)="""FIA"",130,130,500)"
^XMB(3.9,144,2,328,0)=""
^XMB(3.9,144,2,329,0)="""IX"",130,130,""AD"",0)"
^XMB(3.9,144,2,330,0)="130^AD^CoreFLS fields monitor flag.^MU^^R^IR^I^130^^^^^A"
^XMB(3.9,144,2,331,0)="""IX"",130,130,""AD"",.1,0)"
^XMB(3.9,144,2,332,0)="^^2^2^3020822^"
^XMB(3.9,144,2,333,0)="""IX"",130,130,""AD"",.1,1,0)"
^XMB(3.9,144,2,334,0)="This cross-reference will be checked before sending a notification to"
^XMB(3.9,144,2,335,0)="""IX"",130,130,""AD"",.1,2,0)"
^XMB(3.9,144,2,336,0)="the CoreFLS software after editing any of these fields."
^XMB(3.9,144,2,337,0)="""IX"",130,130,""AD"",1)"
^XMB(3.9,144,2,338,0)="S ^TMP(""CSLSUR1"",$J)="""" Q"
^XMB(3.9,144,2,339,0)="""IX"",130,130,""AD"",1.4)"
^XMB(3.9,144,2,340,0)="N I S (X,I)=0 F  S I=$O(X1(I)) Q:'I  I X1(I)'=X2(I) S X=1 Q"
^XMB(3.9,144,2,341,0)="""IX"",130,130,""AD"",2)"
^XMB(3.9,144,2,342,0)="S ^TMP(""CSLSUR1"",$J)="""" Q"
^XMB(3.9,144,2,343,0)="""IX"",130,130,""AD"",2.4)"
^XMB(3.9,144,2,344,0)="N I S (X,I)=0 F  S I=$O(X1(I)) Q:'I  I X1(I)'=X2(I) S X=1 Q"
^XMB(3.9,144,2,345,0)="""IX"",130,130,""AD"",2.5)"
^XMB(3.9,144,2,346,0)="Q"
^XMB(3.9,144,2,347,0)="""IX"",130,130,""AD"",11.1,0)"
^XMB(3.9,144,2,348,0)="^.114IA^11^11"
^XMB(3.9,144,2,349,0)="""IX"",130,130,""AD"",11.1,1,0)"
^XMB(3.9,144,2,350,0)="1^F^130^.14^^^F"
^XMB(3.9,144,2,351,0)="""IX"",130,130,""AD"",11.1,2,0)"
^XMB(3.9,144,2,352,0)="2^F^130^27^^^F"
^XMB(3.9,144,2,353,0)="""IX"",130,130,""AD"",11.1,3,0)"
^XMB(3.9,144,2,354,0)="3^F^130^.02^^^F"
^XMB(3.9,144,2,355,0)="""IX"",130,130,""AD"",11.1,4,0)"
^XMB(3.9,144,2,356,0)="4^F^130^.04^^^F"
^XMB(3.9,144,2,357,0)="""IX"",130,130,""AD"",11.1,5,0)"
^XMB(3.9,144,2,358,0)="5^F^130^10^^^F"
^XMB(3.9,144,2,359,0)="""IX"",130,130,""AD"",11.1,6,0)"
^XMB(3.9,144,2,360,0)="6^F^130^11^^^F"
^XMB(3.9,144,2,361,0)="""IX"",130,130,""AD"",11.1,7,0)"
^XMB(3.9,144,2,362,0)="7^F^130^26^^^F"
^XMB(3.9,144,2,363,0)="""IX"",130,130,""AD"",11.1,8,0)"
^XMB(3.9,144,2,364,0)="8^F^130^.011^^^F"
^XMB(3.9,144,2,365,0)="""IX"",130,130,""AD"",11.1,9,0)"
^XMB(3.9,144,2,366,0)="9^F^130^.09^^^F"
^XMB(3.9,144,2,367,0)="""IX"",130,130,""AD"",11.1,10,0)"
^XMB(3.9,144,2,368,0)="10^F^130^35^^^F"
^XMB(3.9,144,2,369,0)="""IX"",130,130,""AD"",11.1,11,0)"
^XMB(3.9,144,2,370,0)="11^F^130^.164^^^F"
^XMB(3.9,144,2,371,0)="""IX"",130,130,""AES8"",0)"
^XMB(3.9,144,2,372,0)="130^AES8^Update TIU when Date of Operation is changed.^MU^^F^IR^I^130^^^^^A"
^XMB(3.9,144,2,373,0)="""IX"",130,130,""AES8"",.1,0)"
^XMB(3.9,144,2,374,0)="^^3^3^3020729^^"
^XMB(3.9,144,2,375,0)="""IX"",130,130,""AES8"",.1,1,0)"
^XMB(3.9,144,2,376,0)="This cross-reference is responsible for updating the REFERENCE DATE field "
^XMB(3.9,144,2,377,0)="""IX"",130,130,""AES8"",.1,2,0)"
^XMB(3.9,144,2,378,0)="(#1301) in the TIU DOCUMENT file (#8925) for all Reports when the "
^XMB(3.9,144,2,379,0)="""IX"",130,130,""AES8"",.1,3,0)"
^XMB(3.9,144,2,380,0)="DATE OF OPERATION field (#9) in the SURGERY file (#130) is edited."
^XMB(3.9,144,2,381,0)="""IX"",130,130,""AES8"",1)"
^XMB(3.9,144,2,382,0)="D AES8^SROESX0 Q"
^XMB(3.9,144,2,383,0)="""IX"",130,130,""AES8"",1.4)"
^XMB(3.9,144,2,384,0)="S X=((X1(1)'=X2(1))&(X2(1)'=""""))"
^XMB(3.9,144,2,385,0)="""IX"",130,130,""AES8"",2)"
^XMB(3.9,144,2,386,0)="Q"
^XMB(3.9,144,2,387,0)="""IX"",130,130,""AES8"",11.1,0)"
^XMB(3.9,144,2,388,0)="^.114IA^1^1"
^XMB(3.9,144,2,389,0)="""IX"",130,130,""AES8"",11.1,1,0)"
^XMB(3.9,144,2,390,0)="1^F^130^.09^^^F"
^XMB(3.9,144,2,391,0)="""IX"",130,130,""AK"",0)"
^XMB(3.9,144,2,392,0)="130^AK^PFSS field monitor flag.^MU^^F^IR^I^130^^^^^A"
^XMB(3.9,144,2,393,0)="""IX"",130,130,""AK"",.1,0)"
^XMB(3.9,144,2,394,0)="^^2^2^3051020^"
^XMB(3.9,144,2,395,0)="""IX"",130,130,""AK"",.1,1,0)"
^XMB(3.9,144,2,396,0)="This cross-reference will be checked before sending a notification to the"
^XMB(3.9,144,2,397,0)="""IX"",130,130,""AK"",.1,2,0)"
^XMB(3.9,144,2,398,0)="PFSS after editing the Date Of Operation field."
^XMB(3.9,144,2,399,0)="""IX"",130,130,""AK"",1)"
^XMB(3.9,144,2,400,0)="I ($P(X1(1),""."")'=$P(X2(1),"".""))&(X2(1)'="""") S ^TMP(""SRPFSS"",$J)="""" Q"
^XMB(3.9,144,2,401,0)="""IX"",130,130,""AK"",1.4)"
^XMB(3.9,144,2,402,0)="Q"
^XMB(3.9,144,2,403,0)="""IX"",130,130,""AK"",2)"
^XMB(3.9,144,2,404,0)="I ($P(X1(1),""."")'=$P(X2(1),"".""))&(X1(1)'="""") S ^TMP(""SRPFSS"",$J)="""" Q"
^XMB(3.9,144,2,405,0)="""IX"",130,130,""AK"",2.4)"
^XMB(3.9,144,2,406,0)="Q"
^XMB(3.9,144,2,407,0)="""IX"",130,130,""AK"",11.1,0)"
^XMB(3.9,144,2,408,0)="^.114IA^1^1"
^XMB(3.9,144,2,409,0)="""IX"",130,130,""AK"",11.1,1,0)"
^XMB(3.9,144,2,410,0)="1^F^130^.09^^^F"
^XMB(3.9,144,2,411,0)="""KRN"",3.8,315,-1)"
^XMB(3.9,144,2,412,0)="0^1"
^XMB(3.9,144,2,413,0)="""KRN"",3.8,315,0)"
^XMB(3.9,144,2,414,0)="SR CONSULT^PU^^^^^"
^XMB(3.9,144,2,415,0)="""KRN"",3.8,315,2,0)"
^XMB(3.9,144,2,416,0)="^3.801^3^3^3051028^^^^"
^XMB(3.9,144,2,417,0)="""KRN"",3.8,315,2,1,0)"
^XMB(3.9,144,2,418,0)="This mail group is intended to alert Surgery personnel that a Surgery "
^XMB(3.9,144,2,419,0)="""KRN"",3.8,315,2,2,0)"
^XMB(3.9,144,2,420,0)="Request Consultation has been entered and does not contain the minimum "
^XMB(3.9,144,2,421,0)="""KRN"",3.8,315,2,3,0)"
^XMB(3.9,144,2,422,0)="required elements to initiate a pre-certification."
^XMB(3.9,144,2,423,0)="""KRN"",3.8,315,3)"
^XMB(3.9,144,2,424,0)=""
^XMB(3.9,144,2,425,0)="""KRN"",101,5213,-1)"
^XMB(3.9,144,2,426,0)="0^1"
^XMB(3.9,144,2,427,0)="""KRN"",101,5213,0)"
^XMB(3.9,144,2,428,0)="SR RECEIVE^Surgery receives HL7 msgs^^A^^^^^^^^"
^XMB(3.9,144,2,429,0)="""KRN"",101,5213,20)"
^XMB(3.9,144,2,430,0)="D EN^SRCHL7A(.XQORMSG)"
^XMB(3.9,144,2,431,0)="""KRN"",101,5213,99)"
^XMB(3.9,144,2,432,0)="60312,45030"
^XMB(3.9,144,2,433,0)="""MBREQ"")"
^XMB(3.9,144,2,434,0)="0"
^XMB(3.9,144,2,435,0)="""ORD"",11,3.8)"
^XMB(3.9,144,2,436,0)="3.8;11;;;MAILG^XPDTA1;MAILGF1^XPDIA1;MAILGE1^XPDIA1;MAILGF2^XPDIA1;;MAILGDEL^XPDIA1(%)"
^XMB(3.9,144,2,437,0)="""ORD"",11,3.8,0)"
^XMB(3.9,144,2,438,0)="MAIL GROUP"
^XMB(3.9,144,2,439,0)="""ORD"",15,101)"
^XMB(3.9,144,2,440,0)="101;15;;;PRO^XPDTA;PROF1^XPDIA;PROE1^XPDIA;PROF2^XPDIA;;PRODEL^XPDIA"
^XMB(3.9,144,2,441,0)="""ORD"",15,101,0)"
^XMB(3.9,144,2,442,0)="PROTOCOL"
^XMB(3.9,144,2,443,0)="""PKG"",167,-1)"
^XMB(3.9,144,2,444,0)="1^1"
^XMB(3.9,144,2,445,0)="""PKG"",167,0)"
^XMB(3.9,144,2,446,0)="SURGERY^SR^SURGICAL DATA COLLECTION AND OPERATIONS SCHEDULING"
^XMB(3.9,144,2,447,0)="""PKG"",167,20,0)"
^XMB(3.9,144,2,448,0)="^9.402P^^"
^XMB(3.9,144,2,449,0)="""PKG"",167,22,0)"
^XMB(3.9,144,2,450,0)="^9.49I^1^1"
^XMB(3.9,144,2,451,0)="""PKG"",167,22,1,0)"
^XMB(3.9,144,2,452,0)="3.0^2930624^2930811"
^XMB(3.9,144,2,453,0)="""PKG"",167,22,1,""PAH"",1,0)"
^XMB(3.9,144,2,454,0)="144^3060406^100000000031"
^XMB(3.9,144,2,455,0)="""PKG"",167,22,1,""PAH"",1,1,0)"
^XMB(3.9,144,2,456,0)="^^48^48^3060406"
^XMB(3.9,144,2,457,0)="""PKG"",167,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,144,2,458,0)="This patch is part of the Patient Financial Services System (PFSS) "
^XMB(3.9,144,2,459,0)="""PKG"",167,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,144,2,460,0)="project. PFSS patches are being released on various schedules. Some patch"
^XMB(3.9,144,2,461,0)="""PKG"",167,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,144,2,462,0)="functionality will not be active until a new PFSS switch is activated"
^XMB(3.9,144,2,463,0)="""PKG"",167,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,144,2,464,0)="during final implementation. PFSS will initially be implemented at select"
^XMB(3.9,144,2,465,0)="""PKG"",167,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,144,2,466,0)="pilot sites ONLY."
^XMB(3.9,144,2,467,0)="""PKG"",167,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,144,2,468,0)=" "
^XMB(3.9,144,2,469,0)="""PKG"",167,22,1,""PAH"",1,1,7,0)"
^XMB(3.9,144,2,470,0)="The purpose of the PFSS project is to prepare the Veterans Health "
^XMB(3.9,144,2,471,0)="""PKG"",167,22,1,""PAH"",1,1,8,0)"
^XMB(3.9,144,2,472,0)="Information Systems and Technology Architecture (VistA) environment for "
^XMB(3.9,144,2,473,0)="""PKG"",167,22,1,""PAH"",1,1,9,0)"
^XMB(3.9,144,2,474,0)="the implementation of a Commercial Off-The-Shelf (COTS) billing "
^XMB(3.9,144,2,475,0)="""PKG"",167,22,1,""PAH"",1,1,10,0)"
^XMB(3.9,144,2,476,0)="replacement system. The project consists of the implementation of the "
^XMB(3.9,144,2,477,0)="""PKG"",167,22,1,""PAH"",1,1,11,0)"
^XMB(3.9,144,2,478,0)="billing replacement system, business process improvements, and "
^XMB(3.9,144,2,479,0)="""PKG"",167,22,1,""PAH"",1,1,12,0)"
^XMB(3.9,144,2,480,0)="enhancements to VistA to support integration with the COTS billing "
^XMB(3.9,144,2,481,0)="""PKG"",167,22,1,""PAH"",1,1,13,0)"
^XMB(3.9,144,2,482,0)="replacement system. Significant changes to VistA legacy systems and "
^XMB(3.9,144,2,483,0)="""PKG"",167,22,1,""PAH"",1,1,14,0)"
^XMB(3.9,144,2,484,0)="ancillary packages are necessary."
^XMB(3.9,144,2,485,0)="""PKG"",167,22,1,""PAH"",1,1,15,0)"
^XMB(3.9,144,2,486,0)=" "
^XMB(3.9,144,2,487,0)="""PKG"",167,22,1,""PAH"",1,1,16,0)"
^XMB(3.9,144,2,488,0)="Some of the PFSS software components are not operational until the PFSS "
^XMB(3.9,144,2,489,0)="""PKG"",167,22,1,""PAH"",1,1,17,0)"
^XMB(3.9,144,2,490,0)="On/Off Switch, distributed with patch IB*2*260, is set to ""ON"". The "
^XMB(3.9,144,2,491,0)="""PKG"",167,22,1,""PAH"",1,1,18,0)"
^XMB(3.9,144,2,492,0)="ability for the local site to set the switch to ""ON"" will be provided at "
^XMB(3.9,144,2,493,0)="""PKG"",167,22,1,""PAH"",1,1,19,0)"
^XMB(3.9,144,2,494,0)="the appropriate time with the release of a subsequent Integrated Billing "
^XMB(3.9,144,2,495,0)="""PKG"",167,22,1,""PAH"",1,1,20,0)"
^XMB(3.9,144,2,496,0)="patch."
^XMB(3.9,144,2,497,0)="""PKG"",167,22,1,""PAH"",1,1,21,0)"
^XMB(3.9,144,2,498,0)=" "
^XMB(3.9,144,2,499,0)="""PKG"",167,22,1,""PAH"",1,1,22,0)"
^XMB(3.9,144,2,500,0)="For more information about the PFSS project, review the documentation "
^XMB(3.9,144,2,501,0)="""PKG"",167,22,1,""PAH"",1,1,23,0)"
^XMB(3.9,144,2,502,0)="accompanying this patch and refer to the following website: "
^XMB(3.9,144,2,503,0)="""PKG"",167,22,1,""PAH"",1,1,24,0)"
^XMB(3.9,144,2,504,0)="http://vista.med.va.gov/billreplace/"
^XMB(3.9,144,2,505,0)="""PKG"",167,22,1,""PAH"",1,1,25,0)"
^XMB(3.9,144,2,506,0)=" "
^XMB(3.9,144,2,507,0)="""PKG"",167,22,1,""PAH"",1,1,26,0)"
^XMB(3.9,144,2,508,0)="Features of patch SR*3*144 are listed below:"
^XMB(3.9,144,2,509,0)="""PKG"",167,22,1,""PAH"",1,1,27,0)"
^XMB(3.9,144,2,510,0)=" "
^XMB(3.9,144,2,511,0)="""PKG"",167,22,1,""PAH"",1,1,28,0)"
^XMB(3.9,144,2,512,0)="1. The VistA Surgery software will be enhanced to request an account"
^XMB(3.9,144,2,513,0)="""PKG"",167,22,1,""PAH"",1,1,29,0)"
^XMB(3.9,144,2,514,0)="   number for every Surgery Request Consult. This activity will support"
^XMB(3.9,144,2,515,0)="""PKG"",167,22,1,""PAH"",1,1,30,0)"
^XMB(3.9,144,2,516,0)="   the Revenue Office's need to pre-certify with insurance companies the"
^XMB(3.9,144,2,517,0)="""PKG"",167,22,1,""PAH"",1,1,31,0)"
^XMB(3.9,144,2,518,0)="   requested Surgery. A national guideline will be issued defining the"
^XMB(3.9,144,2,519,0)="""PKG"",167,22,1,""PAH"",1,1,32,0)"
^XMB(3.9,144,2,520,0)="   minimum format for creating a Surgery Request Consult within the VistA"
^XMB(3.9,144,2,521,0)="""PKG"",167,22,1,""PAH"",1,1,33,0)"
^XMB(3.9,144,2,522,0)="   Consults package that will collect the data required by PFSS. The"
^XMB(3.9,144,2,523,0)="""PKG"",167,22,1,""PAH"",1,1,34,0)"
^XMB(3.9,144,2,524,0)="   Surgery Request Consult will not create a Surgery case. This guideline"
^XMB(3.9,144,2,525,0)="""PKG"",167,22,1,""PAH"",1,1,35,0)"
^XMB(3.9,144,2,526,0)="   does not require that sites use the Consults package for creating"
^XMB(3.9,144,2,527,0)="""PKG"",167,22,1,""PAH"",1,1,36,0)"
^XMB(3.9,144,2,528,0)="   Surgery requests. Sites using VistA Surgery Request options can"
^XMB(3.9,144,2,529,0)="""PKG"",167,22,1,""PAH"",1,1,37,0)"
^XMB(3.9,144,2,530,0)="   continue to use that approach."
^XMB(3.9,144,2,531,0)="""PKG"",167,22,1,""PAH"",1,1,38,0)"
^XMB(3.9,144,2,532,0)=" "
^XMB(3.9,144,2,533,0)="""PKG"",167,22,1,""PAH"",1,1,39,0)"
^XMB(3.9,144,2,534,0)="   VistA Surgery will be enhanced to also request a PFSS ACCOUNT"
^XMB(3.9,144,2,535,0)="""PKG"",167,22,1,""PAH"",1,1,40,0)"
^XMB(3.9,144,2,536,0)="   REFERENCE, and it will be stored in the PFSS ACCOUNT REFERENCE field"
^XMB(3.9,144,2,537,0)="""PKG"",167,22,1,""PAH"",1,1,41,0)"
^XMB(3.9,144,2,538,0)="   (#500) of the SURGERY file (#130). The association to a PFSS ACCOUNT"
^XMB(3.9,144,2,539,0)="""PKG"",167,22,1,""PAH"",1,1,42,0)"
^XMB(3.9,144,2,540,0)="   REFERENCE is obtained when the Surgery case is created and is sent to"
^XMB(3.9,144,2,541,0)="""PKG"",167,22,1,""PAH"",1,1,43,0)"
^XMB(3.9,144,2,542,0)="   the PATIENT CARE ENCOUNTER (PCE) application upon completion of coding."
^XMB(3.9,144,2,543,0)="""PKG"",167,22,1,""PAH"",1,1,44,0)"
^XMB(3.9,144,2,544,0)=" "
^XMB(3.9,144,2,545,0)="""PKG"",167,22,1,""PAH"",1,1,45,0)"
^XMB(3.9,144,2,546,0)="2. This patch changes the List Completed Cases Missing CPT Codes [SRSCPT]"
^XMB(3.9,144,2,547,0)="""PKG"",167,22,1,""PAH"",1,1,46,0)"
^XMB(3.9,144,2,548,0)="   option to list only those completed cases that do not have a final CPT "
^XMB(3.9,144,2,549,0)="""PKG"",167,22,1,""PAH"",1,1,47,0)"
^XMB(3.9,144,2,550,0)="   code entered in the PRINCIPAL PROCEDURE CODE field (#.02) of the"
^XMB(3.9,144,2,551,0)="""PKG"",167,22,1,""PAH"",1,1,48,0)"
^XMB(3.9,144,2,552,0)="   SURGERY PROCEDURE/DIAGNOSIS CODES file (#136)."
^XMB(3.9,144,2,553,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,144,2,554,0)="Y"
^XMB(3.9,144,2,555,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,144,2,556,0)="^D REP^XPDH"
^XMB(3.9,144,2,557,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,144,2,558,0)="Shall I write over your |FLAG| File"
^XMB(3.9,144,2,559,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,144,2,560,0)="YES"
^XMB(3.9,144,2,561,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,144,2,562,0)="D XPF1^XPDIQ"
^XMB(3.9,144,2,563,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,144,2,564,0)="Y"
^XMB(3.9,144,2,565,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,144,2,566,0)="^D DTA^XPDH"
^XMB(3.9,144,2,567,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,144,2,568,0)="Want my data |FLAG| yours"
^XMB(3.9,144,2,569,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,144,2,570,0)="YES"
^XMB(3.9,144,2,571,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,144,2,572,0)="D XPF2^XPDIQ"
^XMB(3.9,144,2,573,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,144,2,574,0)="YO"
^XMB(3.9,144,2,575,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,144,2,576,0)="^D INHIBIT^XPDH"
^XMB(3.9,144,2,577,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,144,2,578,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,144,2,579,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,144,2,580,0)="YES"
^XMB(3.9,144,2,581,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,144,2,582,0)="D XPI1^XPDIQ"
^XMB(3.9,144,2,583,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,144,2,584,0)="PO^VA(200,:EM"
^XMB(3.9,144,2,585,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,144,2,586,0)="^D MG^XPDH"
^XMB(3.9,144,2,587,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,144,2,588,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,144,2,589,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,144,2,590,0)=""
^XMB(3.9,144,2,591,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,144,2,592,0)="D XPM1^XPDIQ"
^XMB(3.9,144,2,593,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,144,2,594,0)="Y"
^XMB(3.9,144,2,595,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,144,2,596,0)="^D MENU^XPDH"
^XMB(3.9,144,2,597,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,144,2,598,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,144,2,599,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,144,2,600,0)="YES"
^XMB(3.9,144,2,601,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,144,2,602,0)="D XPO1^XPDIQ"
^XMB(3.9,144,2,603,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,144,2,604,0)="Y"
^XMB(3.9,144,2,605,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,144,2,606,0)="^D OPT^XPDH"
^XMB(3.9,144,2,607,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,144,2,608,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,144,2,609,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,144,2,610,0)="YES"
^XMB(3.9,144,2,611,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,144,2,612,0)="D XPZ1^XPDIQ"
^XMB(3.9,144,2,613,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,144,2,614,0)="Y"
^XMB(3.9,144,2,615,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,144,2,616,0)="^D RTN^XPDH"
^XMB(3.9,144,2,617,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,144,2,618,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,144,2,619,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,144,2,620,0)="NO"
^XMB(3.9,144,2,621,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,144,2,622,0)="D XPZ2^XPDIQ"
^XMB(3.9,144,2,623,0)="""RTN"")"
^XMB(3.9,144,2,624,0)="14"
^XMB(3.9,144,2,625,0)="""RTN"",""SRCHL7A"")"
^XMB(3.9,144,2,626,0)="0^1^B18837235"
^XMB(3.9,144,2,627,0)="""RTN"",""SRCHL7A"",1,0)"
^XMB(3.9,144,2,628,0)="SRCHL7A ;BIR/SJA - RECEIVE HL-7 CONSULTS MESSAGE, PARSE INTO COMPONENTS AND CALL PFSS GET ACCOUNT API ;12/17/04  05:10 PM"
^XMB(3.9,144,2,629,0)="""RTN"",""SRCHL7A"",2,0)"
^XMB(3.9,144,2,630,0)=" ;;3.0; Surgery ;**144**;24 Jun 93"
^XMB(3.9,144,2,631,0)="""RTN"",""SRCHL7A"",3,0)"
^XMB(3.9,144,2,632,0)=" ;"
^XMB(3.9,144,2,633,0)="""RTN"",""SRCHL7A"",4,0)"
^XMB(3.9,144,2,634,0)=" ; Reference to $$GETACCT^IBBAPI() is supported by DBIA #4664"
^XMB(3.9,144,2,635,0)="""RTN"",""SRCHL7A"",5,0)"
^XMB(3.9,144,2,636,0)=" ; Reference to ^GMR(123.5 is supported by DBIA #3861"
^XMB(3.9,144,2,637,0)="""RTN"",""SRCHL7A"",6,0)"
^XMB(3.9,144,2,638,0)=" ; Reference to ^DIC(40.7 is supported by DBIA #557"
^XMB(3.9,144,2,639,0)="""RTN"",""SRCHL7A"",7,0)"
^XMB(3.9,144,2,640,0)=" ; Reference to ^DG(40.8 is supported by DBIA #2817"
^XMB(3.9,144,2,641,0)="""RTN"",""SRCHL7A"",8,0)"
^XMB(3.9,144,2,642,0)=" Q"
^XMB(3.9,144,2,643,0)="""RTN"",""SRCHL7A"",9,0)"
^XMB(3.9,144,2,644,0)="ORC(SRCORC) ;Get fields from ORC segment."
^XMB(3.9,144,2,645,0)="""RTN"",""SRCHL7A"",10,0)"
^XMB(3.9,144,2,646,0)=" ;SRCTRLC=ORC control code"
^XMB(3.9,144,2,647,0)="""RTN"",""SRCHL7A"",11,0)"
^XMB(3.9,144,2,648,0)=" ;SRCORNP=provider"
^XMB(3.9,144,2,649,0)="""RTN"",""SRCHL7A"",12,0)"
^XMB(3.9,144,2,650,0)=" I $E(SRCMSG,1,6)'=""ORC|NW"" S SRCQT=1 Q"
^XMB(3.9,144,2,651,0)="""RTN"",""SRCHL7A"",13,0)"
^XMB(3.9,144,2,652,0)=" S SRCTRLC=$P(SRCORC,""|"",2)"
^XMB(3.9,144,2,653,0)="""RTN"",""SRCHL7A"",14,0)"
^XMB(3.9,144,2,654,0)=" S SRCORNP=$P(SRCORC,""|"",13)"
^XMB(3.9,144,2,655,0)="""RTN"",""SRCHL7A"",15,0)"
^XMB(3.9,144,2,656,0)=" S SRCODT=$P(SRCORC,""|"",16)"
^XMB(3.9,144,2,657,0)="""RTN"",""SRCHL7A"",16,0)"
^XMB(3.9,144,2,658,0)=" Q"
^XMB(3.9,144,2,659,0)="""RTN"",""SRCHL7A"",17,0)"
^XMB(3.9,144,2,660,0)="OBR(SRCOBR) ;Get fields from OBR segment."
^XMB(3.9,144,2,661,0)="""RTN"",""SRCHL7A"",18,0)"
^XMB(3.9,144,2,662,0)=" ;SRCSS=type of consult, field 9, 1-4 if NO, then not surgery"
^XMB(3.9,144,2,663,0)="""RTN"",""SRCHL7A"",19,0)"
^XMB(3.9,144,2,664,0)=" ;Must have 99CON in SRC99C."
^XMB(3.9,144,2,665,0)="""RTN"",""SRCHL7A"",20,0)"
^XMB(3.9,144,2,666,0)=" ;SRCODT=observation date/time"
^XMB(3.9,144,2,667,0)="""RTN"",""SRCHL7A"",21,0)"
^XMB(3.9,144,2,668,0)=" S SRC99C=$P($P(SRCOBR,""|"",5),""^"",6)"
^XMB(3.9,144,2,669,0)="""RTN"",""SRCHL7A"",22,0)"
^XMB(3.9,144,2,670,0)=" I SRC99C'=""99CON"" S SRCSS=""NO"",SRCQT=1 Q"
^XMB(3.9,144,2,671,0)="""RTN"",""SRCHL7A"",23,0)"
^XMB(3.9,144,2,672,0)=" S SRCSST=$P($P(SRCOBR,""|"",5),""^"",4)"
^XMB(3.9,144,2,673,0)="""RTN"",""SRCHL7A"",24,0)"
^XMB(3.9,144,2,674,0)=" S SRCSS=$$GET1^DIQ(123.5,SRCSST,.01) D"
^XMB(3.9,144,2,675,0)="""RTN"",""SRCHL7A"",25,0)"
^XMB(3.9,144,2,676,0)=" .I SRCSS[""SURGERY REQUEST"" S SRCSS=1 Q"
^XMB(3.9,144,2,677,0)="""RTN"",""SRCHL7A"",26,0)"
^XMB(3.9,144,2,678,0)=" .;then not surgery"
^XMB(3.9,144,2,679,0)="""RTN"",""SRCHL7A"",27,0)"
^XMB(3.9,144,2,680,0)=" .S SRCSS=""NO"""
^XMB(3.9,144,2,681,0)="""RTN"",""SRCHL7A"",28,0)"
^XMB(3.9,144,2,682,0)=" I SRCSS=""NO"" S SRCQT=1 Q"
^XMB(3.9,144,2,683,0)="""RTN"",""SRCHL7A"",29,0)"
^XMB(3.9,144,2,684,0)=" S SRCODT=$P(SRCOBR,""|"",7)"
^XMB(3.9,144,2,685,0)="""RTN"",""SRCHL7A"",30,0)"
^XMB(3.9,144,2,686,0)=" I SRCODT]"""" S SRCODT=$$FMDATE^SRCHL7U(SRCODT)"
^XMB(3.9,144,2,687,0)="""RTN"",""SRCHL7A"",31,0)"
^XMB(3.9,144,2,688,0)=" S SRCATN=$P(SRCOBR,""|"",20)"
^XMB(3.9,144,2,689,0)="""RTN"",""SRCHL7A"",32,0)"
^XMB(3.9,144,2,690,0)=" S SRCSTDT=$P(SRCOBR,""|"",23)"
^XMB(3.9,144,2,691,0)="""RTN"",""SRCHL7A"",33,0)"
^XMB(3.9,144,2,692,0)=" I SRCSTDT]"""" S SRCSTDT=$$FMDATE^SRCHL7U(SRCSTDT)"
^XMB(3.9,144,2,693,0)="""RTN"",""SRCHL7A"",34,0)"
^XMB(3.9,144,2,694,0)=" S SRCINTR=$P(SRCOBR,""|"",33)"
^XMB(3.9,144,2,695,0)="""RTN"",""SRCHL7A"",35,0)"
^XMB(3.9,144,2,696,0)=" Q"
^XMB(3.9,144,2,697,0)="""RTN"",""SRCHL7A"",36,0)"
^XMB(3.9,144,2,698,0)="ZSV(SRCZSV) ;Get service from ZSV segment"
^XMB(3.9,144,2,699,0)="""RTN"",""SRCHL7A"",37,0)"
^XMB(3.9,144,2,700,0)=" S SRCZSS=$P($P(SRCZSV,""|"",2),""^"",4)"
^XMB(3.9,144,2,701,0)="""RTN"",""SRCHL7A"",38,0)"
^XMB(3.9,144,2,702,0)=" ;Set the service if ZSV provided"
^XMB(3.9,144,2,703,0)="""RTN"",""SRCHL7A"",39,0)"
^XMB(3.9,144,2,704,0)=" I $L($P(SRCZSV,""|"",3)) S SRCOTXT=$P(SRCZSV,""|"",3) ;consult type"
^XMB(3.9,144,2,705,0)="""RTN"",""SRCHL7A"",40,0)"
^XMB(3.9,144,2,706,0)=" Q"
^XMB(3.9,144,2,707,0)="""RTN"",""SRCHL7A"",41,0)"
^XMB(3.9,144,2,708,0)="OBX(SRCOBX) ;Get fields from OBX segment and set into SRC variables"
^XMB(3.9,144,2,709,0)="""RTN"",""SRCHL7A"",42,0)"
^XMB(3.9,144,2,710,0)=" ;SRCOID=observation id identifying value in seg. 5"
^XMB(3.9,144,2,711,0)="""RTN"",""SRCHL7A"",43,0)"
^XMB(3.9,144,2,712,0)=" ;free text or code^free text^I9C"
^XMB(3.9,144,2,713,0)="""RTN"",""SRCHL7A"",44,0)"
^XMB(3.9,144,2,714,0)=" S SRCMSG=MSG(SRCOBX)"
^XMB(3.9,144,2,715,0)="""RTN"",""SRCHL7A"",45,0)"
^XMB(3.9,144,2,716,0)=" S SRCOID=$P($P(SRCMSG,""|"",4),""^"",2)"
^XMB(3.9,144,2,717,0)="""RTN"",""SRCHL7A"",46,0)"
^XMB(3.9,144,2,718,0)=" I SRCOID=""REASON FOR REQUEST"" D"
^XMB(3.9,144,2,719,0)="""RTN"",""SRCHL7A"",47,0)"
^XMB(3.9,144,2,720,0)=" .S LN=0 F  S LN=$O(MSG(SRCOBX,LN)) Q:LN=""""  S SRCRF(LN+1)=$G(MSG(SRCOBX,LN)),SRCRFL=SRCRF(LN+1),SRCRF=$$UP^XLFSTR($G(SRCRF(LN+1))) D"
^XMB(3.9,144,2,721,0)="""RTN"",""SRCHL7A"",48,0)"
^XMB(3.9,144,2,722,0)=" ..I SRCRF[""DATE OF OPERATION:"" S (SRDOP,X)=$P(SRCRFL,"": "",2),%DT=""XT"" D ^%DT S:Y>0 SRCPV2(8)=Y I Y'>0 D NOW^%DTC S SRCPV2(8)=X Q"
^XMB(3.9,144,2,723,0)="""RTN"",""SRCHL7A"",49,0)"
^XMB(3.9,144,2,724,0)=" ..I $P(SRCRF,"":"")=""SURGEON"" S SRCPV1(17)=$$FN($P(SRCRFL,"": "",2)) Q"
^XMB(3.9,144,2,725,0)="""RTN"",""SRCHL7A"",50,0)"
^XMB(3.9,144,2,726,0)=" ..I SRCRF[""ATTENDING SURGEON:"" S SRCPV1(7)=$$FN($P(SRCRFL,"": "",2)) Q"
^XMB(3.9,144,2,727,0)="""RTN"",""SRCHL7A"",51,0)"
^XMB(3.9,144,2,728,0)=" ..I SRCRF[""SURGICAL SPECIALTY:"" S SRX=$O(^SRO(137.45,""B1"",$P(SRCRFL,"": "",2),0)) Q"
^XMB(3.9,144,2,729,0)="""RTN"",""SRCHL7A"",52,0)"
^XMB(3.9,144,2,730,0)=" ..I SRCRF[""PRINCIPAL PREOPERATIVE DIAGNOSIS:"" D"
^XMB(3.9,144,2,731,0)="""RTN"",""SRCHL7A"",53,0)"
^XMB(3.9,144,2,732,0)=" ...S II=LN F  S II=$O(MSG(SRCOBX,II)) Q:MSG(SRCOBX,II)=""""!($L(SRCRF)>70)  S SRCRFL=SRCRFL_"" ""_$G(MSG(SRCOBX,II))"
^XMB(3.9,144,2,733,0)="""RTN"",""SRCHL7A"",54,0)"
^XMB(3.9,144,2,734,0)=" ...S SRCDG1(1,4)=$E($P(SRCRFL,"": "",2),1,40) Q"
^XMB(3.9,144,2,735,0)="""RTN"",""SRCHL7A"",55,0)"
^XMB(3.9,144,2,736,0)=" ..I SRCRF[""PRINCIPAL OPERATIVE PROCEDURE:"" D"
^XMB(3.9,144,2,737,0)="""RTN"",""SRCHL7A"",56,0)"
^XMB(3.9,144,2,738,0)=" ...S II=LN F  S II=$O(MSG(SRCOBX,II)) Q:MSG(SRCOBX,II)=""""!($L(SRCRF)>90)  S SRCRFL=SRCRFL_"" ""_$G(MSG(SRCOBX,II))"
^XMB(3.9,144,2,739,0)="""RTN"",""SRCHL7A"",57,0)"
^XMB(3.9,144,2,740,0)=" ...S SRCPR1(4)=$E($P(SRCRFL,"": "",2),1,60) Q"
^XMB(3.9,144,2,741,0)="""RTN"",""SRCHL7A"",58,0)"
^XMB(3.9,144,2,742,0)=" S SRCPV1(18)=$O(^DIC(40.7,""C"",429,0)) I SRX S SRCSURG(2)=$P($G(^SRO(137.45,SRX,0)),""^"",2),SRCPV1(3)=$P($G(^SRO(137.45,SRX,0)),""^"",5)"
^XMB(3.9,144,2,743,0)="""RTN"",""SRCHL7A"",59,0)"
^XMB(3.9,144,2,744,0)=" S SRCPV1(2)=""O"""
^XMB(3.9,144,2,745,0)="""RTN"",""SRCHL7A"",60,0)"
^XMB(3.9,144,2,746,0)=" Q"
^XMB(3.9,144,2,747,0)="""RTN"",""SRCHL7A"",61,0)"
^XMB(3.9,144,2,748,0)="EN(MSG) ;Entry point from protocol SR RECEIVE"
^XMB(3.9,144,2,749,0)="""RTN"",""SRCHL7A"",62,0)"
^XMB(3.9,144,2,750,0)=" Q:'+$$SWSTAT^IBBAPI()"
^XMB(3.9,144,2,751,0)="""RTN"",""SRCHL7A"",63,0)"
^XMB(3.9,144,2,752,0)=" ;MSG = local array which contains the HL7 segments"
^XMB(3.9,144,2,753,0)="""RTN"",""SRCHL7A"",64,0)"
^XMB(3.9,144,2,754,0)=" N LN,SRC99C,SRCARFN,SRCATN,SRCDG1,SRCDIV,SRCINTR,SRCMSG,SRCNOD"
^XMB(3.9,144,2,755,0)="""RTN"",""SRCHL7A"",65,0)"
^XMB(3.9,144,2,756,0)=" N SRCOBR,SRCOBX,SRCODT,SRCOID,SRCORNP,SRCOTXT,SRCPNM,SRCPR1,SRCPV2,SRCQT"
^XMB(3.9,144,2,757,0)="""RTN"",""SRCHL7A"",66,0)"
^XMB(3.9,144,2,758,0)=" N SRCRATSN,SRCRB,SRCRF,SRCRFL,SRCSEND,SRCSS,SRCSST,SRCSTDT,SRCSURG,SRX"
^XMB(3.9,144,2,759,0)="""RTN"",""SRCHL7A"",67,0)"
^XMB(3.9,144,2,760,0)=" N SRCTRLC,SRCZSS,SRDFN,SRDOP,Y"
^XMB(3.9,144,2,761,0)="""RTN"",""SRCHL7A"",68,0)"
^XMB(3.9,144,2,762,0)=" S SRCMSG="""",SRCNOD=0,SRCPV2(8)=0,(SRCPV1(7),SRCPV1(17),SRCSURG(2),SRCDG1(1,4),SRCPR1(4))="""""
^XMB(3.9,144,2,763,0)="""RTN"",""SRCHL7A"",69,0)"
^XMB(3.9,144,2,764,0)=" F  S SRCNOD=$O(MSG(SRCNOD)) Q:SRCNOD=""""  S SRCMSG=$G(MSG(SRCNOD)) I $E(SRCMSG,1,3)=""MSH"" D  Q"
^XMB(3.9,144,2,765,0)="""RTN"",""SRCHL7A"",70,0)"
^XMB(3.9,144,2,766,0)=" .S SRCSEND=$P(SRCMSG,""|"",3),SRCDIV=$O(^DG(40.8,""AD"",$P(SRCMSG,""|"",4),0))"
^XMB(3.9,144,2,767,0)="""RTN"",""SRCHL7A"",71,0)"
^XMB(3.9,144,2,768,0)=" ;SRCQT, stop flag in loop"
^XMB(3.9,144,2,769,0)="""RTN"",""SRCHL7A"",72,0)"
^XMB(3.9,144,2,770,0)=" S SRCMSG="""",SRCNOD=0,SRCQT=0"
^XMB(3.9,144,2,771,0)="""RTN"",""SRCHL7A"",73,0)"
^XMB(3.9,144,2,772,0)=" F  S SRCNOD=$O(MSG(SRCNOD)) Q:SRCNOD=""""  Q:SRCQT=1  S SRCMSG=$G(MSG(SRCNOD)) D"
^XMB(3.9,144,2,773,0)="""RTN"",""SRCHL7A"",74,0)"
^XMB(3.9,144,2,774,0)=" .I $E(SRCMSG,1,3)=""PID"" D PID^SRCHL7U(SRCMSG) Q"
^XMB(3.9,144,2,775,0)="""RTN"",""SRCHL7A"",75,0)"
^XMB(3.9,144,2,776,0)=" .;look at ORC|NW for new order"
^XMB(3.9,144,2,777,0)="""RTN"",""SRCHL7A"",76,0)"
^XMB(3.9,144,2,778,0)=" .I $E(SRCMSG,1,3)=""ORC"" D ORC(SRCMSG) Q"
^XMB(3.9,144,2,779,0)="""RTN"",""SRCHL7A"",77,0)"
^XMB(3.9,144,2,780,0)=" .I SRCQT=1 Q"
^XMB(3.9,144,2,781,0)="""RTN"",""SRCHL7A"",78,0)"
^XMB(3.9,144,2,782,0)=" .I $E(SRCMSG,1,3)=""OBR"" D OBR(SRCMSG) I SRCSS=""NO"" S SRCQT=1 Q"
^XMB(3.9,144,2,783,0)="""RTN"",""SRCHL7A"",79,0)"
^XMB(3.9,144,2,784,0)=" .I SRCQT=1 Q"
^XMB(3.9,144,2,785,0)="""RTN"",""SRCHL7A"",80,0)"
^XMB(3.9,144,2,786,0)=" .;look at ZSV for surgery (4)"
^XMB(3.9,144,2,787,0)="""RTN"",""SRCHL7A"",81,0)"
^XMB(3.9,144,2,788,0)=" .I $E(SRCMSG,1,3)=""ZSV"" D ZSV(SRCMSG) Q"
^XMB(3.9,144,2,789,0)="""RTN"",""SRCHL7A"",82,0)"
^XMB(3.9,144,2,790,0)=" .I $E(SRCMSG,1,3)=""OBX"" D OBX(SRCNOD) Q"
^XMB(3.9,144,2,791,0)="""RTN"",""SRCHL7A"",83,0)"
^XMB(3.9,144,2,792,0)=" I SRCSS=""NO"" Q  ;not surgery request"
^XMB(3.9,144,2,793,0)="""RTN"",""SRCHL7A"",84,0)"
^XMB(3.9,144,2,794,0)=" I SRCPV2(8)'>0!(SRCSURG(2)="""")!(SRCDG1(1,4)="""")!(SRCPR1(4)="""") D REJECT^SRCHL7U Q"
^XMB(3.9,144,2,795,0)="""RTN"",""SRCHL7A"",85,0)"
^XMB(3.9,144,2,796,0)=" ;check for new order, NW, and a surgery consult in SRCSS"
^XMB(3.9,144,2,797,0)="""RTN"",""SRCHL7A"",86,0)"
^XMB(3.9,144,2,798,0)=" I '$D(SRCTRLC)!(SRCTRLC'=""NW"")!('$D(SRCSS))!(SRCSS=""NO"") D EXIT^SRCHL7U Q"
^XMB(3.9,144,2,799,0)="""RTN"",""SRCHL7A"",87,0)"
^XMB(3.9,144,2,800,0)="ACCT S SRCARFN=+$$GETACCT^IBBAPI(SRDFN,"""",""A05"",""ACCT;SRCHL7A"",.SRCPV1,.SRCPV2,.SRCPR1,.SRCDG1,"""",SRCDIV,"""",.SRCSURG)"
^XMB(3.9,144,2,801,0)="""RTN"",""SRCHL7A"",88,0)"
^XMB(3.9,144,2,802,0)=" I '$G(SRCARFN) D REJECT^SRCHL7U Q"
^XMB(3.9,144,2,803,0)="""RTN"",""SRCHL7A"",89,0)"
^XMB(3.9,144,2,804,0)=" D EXIT^SRCHL7U"
^XMB(3.9,144,2,805,0)="""RTN"",""SRCHL7A"",90,0)"
^XMB(3.9,144,2,806,0)=" Q"
^XMB(3.9,144,2,807,0)="""RTN"",""SRCHL7A"",91,0)"
^XMB(3.9,144,2,808,0)="FN(X) ;Return New Person Code give Name from HL-7 segment"
^XMB(3.9,144,2,809,0)="""RTN"",""SRCHL7A"",92,0)"
^XMB(3.9,144,2,810,0)=" I X[""("" Q +$P(X,""("",2)"
^XMB(3.9,144,2,811,0)="""RTN"",""SRCHL7A"",93,0)"
^XMB(3.9,144,2,812,0)=" K DIC S DIC=""^VA(200,"",DIC(0)=""XM"" D ^DIC K DIC"
^XMB(3.9,144,2,813,0)="""RTN"",""SRCHL7A"",94,0)"
^XMB(3.9,144,2,814,0)=" Q $S(Y'=-1:+Y,1:"""")"
^XMB(3.9,144,2,815,0)="""RTN"",""SRCHL7U"")"
^XMB(3.9,144,2,816,0)="0^2^B3165191"
^XMB(3.9,144,2,817,0)="""RTN"",""SRCHL7U"",1,0)"
^XMB(3.9,144,2,818,0)="SRCHL7U ;BIR/SJA - Receive HL-7 Surgery Request Consults Message (continued) ;12/27/04  11:41 AM"
^XMB(3.9,144,2,819,0)="""RTN"",""SRCHL7U"",2,0)"
^XMB(3.9,144,2,820,0)=" ;;3.0; Surgery ;**144**;24 Jun 93"
^XMB(3.9,144,2,821,0)="""RTN"",""SRCHL7U"",3,0)"
^XMB(3.9,144,2,822,0)=" ;"
^XMB(3.9,144,2,823,0)="""RTN"",""SRCHL7U"",4,0)"
^XMB(3.9,144,2,824,0)=" Q"
^XMB(3.9,144,2,825,0)="""RTN"",""SRCHL7U"",5,0)"
^XMB(3.9,144,2,826,0)="PID(SRCPID) ;Get fields from PID segment."
^XMB(3.9,144,2,827,0)="""RTN"",""SRCHL7U"",6,0)"
^XMB(3.9,144,2,828,0)=" S SRDFN=$P(SRCPID,""|"",4),SRCPNM=$P(SRCPID,""|"",6)"
^XMB(3.9,144,2,829,0)="""RTN"",""SRCHL7U"",7,0)"
^XMB(3.9,144,2,830,0)=" Q"
^XMB(3.9,144,2,831,0)="""RTN"",""SRCHL7U"",8,0)"
^XMB(3.9,144,2,832,0)="REJECT ;can't be filed send reject message"
^XMB(3.9,144,2,833,0)="""RTN"",""SRCHL7U"",9,0)"
^XMB(3.9,144,2,834,0)=" ;send message to mail group SR CONSULT"
^XMB(3.9,144,2,835,0)="""RTN"",""SRCHL7U"",10,0)"
^XMB(3.9,144,2,836,0)=" S DFN=SRDFN D DEM^VADPT"
^XMB(3.9,144,2,837,0)="""RTN"",""SRCHL7U"",11,0)"
^XMB(3.9,144,2,838,0)=" K XMY S XMDUZ=""SURGERY PACKAGE"" D NOW^%DTC S Y=% X ^DD(""DD"")"
^XMB(3.9,144,2,839,0)="""RTN"",""SRCHL7U"",12,0)"
^XMB(3.9,144,2,840,0)=" S SRM(1)=""The Surgery Request Consult could not be processed for pre-certification."""
^XMB(3.9,144,2,841,0)="""RTN"",""SRCHL7U"",13,0)"
^XMB(3.9,144,2,842,0)=" S SRM(2)="""""
^XMB(3.9,144,2,843,0)="""RTN"",""SRCHL7U"",14,0)"
^XMB(3.9,144,2,844,0)=" S SRM(3)=""Patient: ""_$E(VADM(1),1,20)"
^XMB(3.9,144,2,845,0)="""RTN"",""SRCHL7U"",15,0)"
^XMB(3.9,144,2,846,0)=" S SRM(4)=""Date of Operation: ""_SRDOP"
^XMB(3.9,144,2,847,0)="""RTN"",""SRCHL7U"",16,0)"
^XMB(3.9,144,2,848,0)=" S SRM(5)=""Surgeon ID: ""_SRCPV1(17)"
^XMB(3.9,144,2,849,0)="""RTN"",""SRCHL7U"",17,0)"
^XMB(3.9,144,2,850,0)=" S SRM(6)=""Attending Surgeon ID: ""_SRCPV1(7)"
^XMB(3.9,144,2,851,0)="""RTN"",""SRCHL7U"",18,0)"
^XMB(3.9,144,2,852,0)=" S SRM(7)=""Surgical Specialty: ""_SRCSURG(2)"
^XMB(3.9,144,2,853,0)="""RTN"",""SRCHL7U"",19,0)"
^XMB(3.9,144,2,854,0)=" S SRM(8)=""Principal Pre-Op Diagnosis: ""_SRCDG1(1,4)"
^XMB(3.9,144,2,855,0)="""RTN"",""SRCHL7U"",20,0)"
^XMB(3.9,144,2,856,0)=" S SRM(9)=""Principal Operative Procedure: ""_SRCPR1(4)"
^XMB(3.9,144,2,857,0)="""RTN"",""SRCHL7U"",21,0)"
^XMB(3.9,144,2,858,0)=" S XMTEXT=""SRM("",XMSUB=""Surgery Consult Error Log"""
^XMB(3.9,144,2,859,0)="""RTN"",""SRCHL7U"",22,0)"
^XMB(3.9,144,2,860,0)=" S XMY(""G.SR CONSULT"")="""""
^XMB(3.9,144,2,861,0)="""RTN"",""SRCHL7U"",23,0)"
^XMB(3.9,144,2,862,0)=" D ^XMD K XMTEXT,XMY,XMSUB,SRM"
^XMB(3.9,144,2,863,0)="""RTN"",""SRCHL7U"",24,0)"
^XMB(3.9,144,2,864,0)="EXIT ;Kill variables and exit"
^XMB(3.9,144,2,865,0)="""RTN"",""SRCHL7U"",25,0)"
^XMB(3.9,144,2,866,0)=" K Y,SRDOP,SRCZSS,SRCTRLC,SRCSURG,SRCSTDT,SRCSST,SRCSS,SRCSEND"
^XMB(3.9,144,2,867,0)="""RTN"",""SRCHL7U"",26,0)"
^XMB(3.9,144,2,868,0)=" K SRX,SRCRF,SRCRFL,SRCRB,SRCRATSN,SRCQT,SRCPV2,SRCPR1,SRCPNM,SRCOTXT"
^XMB(3.9,144,2,869,0)="""RTN"",""SRCHL7U"",27,0)"
^XMB(3.9,144,2,870,0)=" K SRCORNP,SRCOID,SRCODT,SRCOCR,SRCOBX,SRCOBR,SRCNOD,SRCMSG,SRCINTR,SRCDIV"
^XMB(3.9,144,2,871,0)="""RTN"",""SRCHL7U"",28,0)"
^XMB(3.9,144,2,872,0)=" K SRCDG1,SRCATN,SRCARFN,SRC99C,SRDFN,LN"
^XMB(3.9,144,2,873,0)="""RTN"",""SRCHL7U"",29,0)"
^XMB(3.9,144,2,874,0)=" Q"
^XMB(3.9,144,2,875,0)="""RTN"",""SRCHL7U"",30,0)"
^XMB(3.9,144,2,876,0)="FMDATE(DATE) ;Convert HL-7 formatted date to a Fileman formatted date"
^XMB(3.9,144,2,877,0)="""RTN"",""SRCHL7U"",31,0)"
^XMB(3.9,144,2,878,0)=" N X S X=$$HL7TFM^XLFDT(DATE)"
^XMB(3.9,144,2,879,0)="""RTN"",""SRCHL7U"",32,0)"
^XMB(3.9,144,2,880,0)=" Q X"
^XMB(3.9,144,2,881,0)="""RTN"",""SROERR"")"
^XMB(3.9,144,2,882,0)="0^3^B34000236^B33489403"
^XMB(3.9,144,2,883,0)="""RTN"",""SROERR"",1,0)"
^XMB(3.9,144,2,884,0)="SROERR ;B'HAM ISC/MAM,ADM - ORDER ENTRY ROUTINE ;01/22/99  9:47 AM"
^XMB(3.9,144,2,885,0)="""RTN"",""SROERR"",2,0)"
^XMB(3.9,144,2,886,0)=" ;;3.0; Surgery ;**14,67,73,41,80,86,107,147,144**;24 Jun 93"
^XMB(3.9,144,2,887,0)="""RTN"",""SROERR"",3,0)"
^XMB(3.9,144,2,888,0)=" ;"
^XMB(3.9,144,2,889,0)="""RTN"",""SROERR"",4,0)"
^XMB(3.9,144,2,890,0)=" ; Reference to ^ORD(100.99 supported by DBIA #874"
^XMB(3.9,144,2,891,0)="""RTN"",""SROERR"",5,0)"
^XMB(3.9,144,2,892,0)=" ; Reference to FILE^ORX supported by DBIA #866"
^XMB(3.9,144,2,893,0)="""RTN"",""SROERR"",6,0)"
^XMB(3.9,144,2,894,0)=" ; Reference to ST^ORX supported by DBIA #866"
^XMB(3.9,144,2,895,0)="""RTN"",""SROERR"",7,0)"
^XMB(3.9,144,2,896,0)=" ; Reference to NEW^VPRSR supported by DBIA #4750"
^XMB(3.9,144,2,897,0)="""RTN"",""SROERR"",8,0)"
^XMB(3.9,144,2,898,0)=" ; Reference to DEL^VPRSR supported by DBIA #4750"
^XMB(3.9,144,2,899,0)="""RTN"",""SROERR"",9,0)"
^XMB(3.9,144,2,900,0)=" ;"
^XMB(3.9,144,2,901,0)="""RTN"",""SROERR"",10,0)"
^XMB(3.9,144,2,902,0)="CREATE ; create order in ORDER file (100)"
^XMB(3.9,144,2,903,0)="""RTN"",""SROERR"",11,0)"
^XMB(3.9,144,2,904,0)=" I $P($G(^SRO(133,SRSITE,0)),""^"",22)=""Y"" D"
^XMB(3.9,144,2,905,0)="""RTN"",""SROERR"",12,0)"
^XMB(3.9,144,2,906,0)=" .N SROP,SROPER,SRTYPE,DYNOTE"
^XMB(3.9,144,2,907,0)="""RTN"",""SROERR"",13,0)"
^XMB(3.9,144,2,908,0)=" .S SROP=SRTN,SROPER="""" D ^SROP1 S SRTYPE=1"
^XMB(3.9,144,2,909,0)="""RTN"",""SROERR"",14,0)"
^XMB(3.9,144,2,910,0)=" .I SROPER[""REQUESTED"" Q"
^XMB(3.9,144,2,911,0)="""RTN"",""SROERR"",15,0)"
^XMB(3.9,144,2,912,0)=" .I $P($G(^SRF(SRTN,""OP"")),""^"",2)']"""" D"
^XMB(3.9,144,2,913,0)="""RTN"",""SROERR"",16,0)"
^XMB(3.9,144,2,914,0)=" ..W !!,""  This Surgery case does not have a Planned Principal CPT Code entered. The "",!,""  information sent to SPD for creation of a case cart may not contain "",!,""  enough information for processing."""
^XMB(3.9,144,2,915,0)="""RTN"",""SROERR"",17,0)"
^XMB(3.9,144,2,916,0)=" .I SROPER[""SCHEDULED"" S SRTYPE=1"
^XMB(3.9,144,2,917,0)="""RTN"",""SROERR"",18,0)"
^XMB(3.9,144,2,918,0)=" .I SROPER[""NOT COMPLETE"",$P($G(^SRF(SRTN,.2)),""^"",10) S SRTYPE=1"
^XMB(3.9,144,2,919,0)="""RTN"",""SROERR"",19,0)"
^XMB(3.9,144,2,920,0)=" .D ST^SRSCOR(SRTN)"
^XMB(3.9,144,2,921,0)="""RTN"",""SROERR"",20,0)"
^XMB(3.9,144,2,922,0)=" D SERR^SROPFSS(SRTN,""SROERR"")"
^XMB(3.9,144,2,923,0)="""RTN"",""SROERR"",21,0)"
^XMB(3.9,144,2,924,0)=" N SREVENT S SREVENT=""S12"",SROERR=SRTN D STATUS^SROERR0,MSG^SRHLZIU(SRTN,SRSTATUS,SREVENT)"
^XMB(3.9,144,2,925,0)="""RTN"",""SROERR"",22,0)"
^XMB(3.9,144,2,926,0)=" I $L($T(NEW^VPRSR)) D NEW^VPRSR(SROERR,$G(DFN),SRSTATUS) Q  ;CPRS-R"
^XMB(3.9,144,2,927,0)="""RTN"",""SROERR"",23,0)"
^XMB(3.9,144,2,928,0)=" I +$$VERSION^XPDUTL(""ORDER ENTRY/RESULTS REPORTING"")>2.5 K SROERR Q"
^XMB(3.9,144,2,929,0)="""RTN"",""SROERR"",24,0)"
^XMB(3.9,144,2,930,0)=" I '$D(^ORD(100.99)) Q"
^XMB(3.9,144,2,931,0)="""RTN"",""SROERR"",25,0)"
^XMB(3.9,144,2,932,0)=" I '$D(ORPCL) K DIC S DIC=""^DIC(19,"",X=""SR SURGERY REQUEST"",DIC(0)="""" D ^DIC I Y'=-1 S ORPCL=+Y_"";DIC(19,"""
^XMB(3.9,144,2,933,0)="""RTN"",""SROERR"",26,0)"
^XMB(3.9,144,2,934,0)="REQ S ORNP=SRSDOC,ORPK=SRTN,ORSTRT=SRSDATE S:'$D(ORVP) ORVP=DFN_"";DPT("" D:'$D(ORL) LOC"
^XMB(3.9,144,2,935,0)="""RTN"",""SROERR"",27,0)"
^XMB(3.9,144,2,936,0)=" S:'$D(SROERR) SROERR=SRTN D STATUS^SROERR0 S ORTX=SRSOP_""|>> Case #""_SRTN_"" ""_SRSTATUS"
^XMB(3.9,144,2,937,0)="""RTN"",""SROERR"",28,0)"
^XMB(3.9,144,2,938,0)=" I DT<$E(ORSTRT,1,7) S X1=ORSTRT,X2=DT D ^%DTC S ORPURG=X+30"
^XMB(3.9,144,2,939,0)="""RTN"",""SROERR"",29,0)"
^XMB(3.9,144,2,940,0)=" D FILE^ORX K DIE,DA,DR S DA=SRTN,DIE=130,DR=""100////""_ORIFN D ^DIE K DA,DR,DIE,ORIFN,SROERR"
^XMB(3.9,144,2,941,0)="""RTN"",""SROERR"",30,0)"
^XMB(3.9,144,2,942,0)=" Q"
^XMB(3.9,144,2,943,0)="""RTN"",""SROERR"",31,0)"
^XMB(3.9,144,2,944,0)="LOC S SRL=$P($G(^DPT(DFN,.1)),""^"") I SRL'="""" K DIC S DIC=""^DIC(42,"",X=SRL D ^DIC K DIC S SRL=$S(Y'=-1:+Y,1:"""") S:SRL SRL=$P($G(^DIC(42,SRL,44)),""^"")"
^XMB(3.9,144,2,945,0)="""RTN"",""SROERR"",32,0)"
^XMB(3.9,144,2,946,0)=" S ORL=$S(SRL:SRL_"";SC("",1:"""")"
^XMB(3.9,144,2,947,0)="""RTN"",""SROERR"",33,0)"
^XMB(3.9,144,2,948,0)=" Q"
^XMB(3.9,144,2,949,0)="""RTN"",""SROERR"",34,0)"
^XMB(3.9,144,2,950,0)="EN ; entry for OE/RR, process order actions"
^XMB(3.9,144,2,951,0)="""RTN"",""SROERR"",35,0)"
^XMB(3.9,144,2,952,0)=" S:'$D(ORGY) ORGY="""" Q:'$D(ORACTION)!(ORGY=9)  I ORGY=10 S SROERR=ORPK D ^SROERR0 Q"
^XMB(3.9,144,2,953,0)="""RTN"",""SROERR"",36,0)"
^XMB(3.9,144,2,954,0)=" I ORACTION=7 D PURGE Q"
^XMB(3.9,144,2,955,0)="""RTN"",""SROERR"",37,0)"
^XMB(3.9,144,2,956,0)="8 I ORACTION=8 D DETAIL S:'$O(ORSLST(ORNXT)) OREND=1 Q"
^XMB(3.9,144,2,957,0)="""RTN"",""SROERR"",38,0)"
^XMB(3.9,144,2,958,0)=" I ""2345""[ORACTION W !!,""Not allowed on Surgical Requests !"" Q"
^XMB(3.9,144,2,959,0)="""RTN"",""SROERR"",39,0)"
^XMB(3.9,144,2,960,0)=" I ORACTION,ORSTS'=5 W !!,""Cannot update/delete case not in 'REQUESTED' status !"" Q"
^XMB(3.9,144,2,961,0)="""RTN"",""SROERR"",40,0)"
^XMB(3.9,144,2,962,0)=" I '$D(^XUSEC(""SROREQ"",DUZ)) W !!,""You must hold the 'SROREQ' key to perform this function !"" G PRESS"
^XMB(3.9,144,2,963,0)="""RTN"",""SROERR"",41,0)"
^XMB(3.9,144,2,964,0)=" D:'$D(SRSITE) ^SROVAR S DFN=+ORVP D DEM^VADPT I ORACTION=0 S ORPCL=XQORNOD D ADD Q"
^XMB(3.9,144,2,965,0)="""RTN"",""SROERR"",42,0)"
^XMB(3.9,144,2,966,0)=" I ORACTION=1 D DISPLAY,EDIT Q"
^XMB(3.9,144,2,967,0)="""RTN"",""SROERR"",43,0)"
^XMB(3.9,144,2,968,0)=" I ORACTION=6 D DISPLAY D DEL^SRSUPRQ G END"
^XMB(3.9,144,2,969,0)="""RTN"",""SROERR"",44,0)"
^XMB(3.9,144,2,970,0)=" Q"
^XMB(3.9,144,2,971,0)="""RTN"",""SROERR"",45,0)"
^XMB(3.9,144,2,972,0)="EDIT ; edit requested case"
^XMB(3.9,144,2,973,0)="""RTN"",""SROERR"",46,0)"
^XMB(3.9,144,2,974,0)=" W !!,""1. Delete"",!,""2. Update Request Information"",!,""3. Change the Request Date"",!!,""Select Number: "" R Z:DTIME S:'$T Z="""" G:""^""[Z END S:Z[""?"" Z=4"
^XMB(3.9,144,2,975,0)="""RTN"",""SROERR"",47,0)"
^XMB(3.9,144,2,976,0)=" I Z<1!(Z>3)!(+Z\1'=Z) W !!,""If you want to delete this request, enter '1'.  Enter '2' if you only want"",!,""to update the general information about this case, or '3' to change the date"",!,""for which this case is requested."" G EDIT"
^XMB(3.9,144,2,977,0)="""RTN"",""SROERR"",48,0)"
^XMB(3.9,144,2,978,0)=" I Z=1 D DEL^SRSUPRQ G END"
^XMB(3.9,144,2,979,0)="""RTN"",""SROERR"",49,0)"
^XMB(3.9,144,2,980,0)=" I Z=2 D UPDATE^SRSUPRQ G END"
^XMB(3.9,144,2,981,0)="""RTN"",""SROERR"",50,0)"
^XMB(3.9,144,2,982,0)=" I Z=3 D CHANGE^SRSDT"
^XMB(3.9,144,2,983,0)="""RTN"",""SROERR"",51,0)"
^XMB(3.9,144,2,984,0)="END K SRTN D ^SRSKILL"
^XMB(3.9,144,2,985,0)="""RTN"",""SROERR"",52,0)"
^XMB(3.9,144,2,986,0)=" Q"
^XMB(3.9,144,2,987,0)="""RTN"",""SROERR"",53,0)"
^XMB(3.9,144,2,988,0)="DISPLAY S SRDFN=+ORVP,SRNM=VADM(1),SRTN=ORPK,SRSDATE=$P(^SRF(SRTN,0),""^"",9)"
^XMB(3.9,144,2,989,0)="""RTN"",""SROERR"",54,0)"
^XMB(3.9,144,2,990,0)=" W @IOF,!,SRNM,"" ("",VA(""PID""),"")"" I $P($G(^DPT(DFN,.35)),""^"")'="""" S Y=$P(^(.35),""^"") D D^DIQ W ""   ** DIED: ""_Y_"" **"" G END"
^XMB(3.9,144,2,991,0)="""RTN"",""SROERR"",55,0)"
^XMB(3.9,144,2,992,0)=" S SRSDT=$E(SRSDATE,4,5)_""/""_$E(SRSDATE,6,7)_""/""_$E(SRSDATE,2,3) S SROPER=$P(^SRF(SRTN,""OP""),""^"")_"" (#""_SRTN_"")"""
^XMB(3.9,144,2,993,0)="""RTN"",""SROERR"",56,0)"
^XMB(3.9,144,2,994,0)=" K SROPS,MM,MMM S:$L(SROPER)<71 SROPS(1)=SROPER I $L(SROPER)>70 S SROPER=SROPER_""  "" F M=1:1 D LOOP Q:MMM="""""
^XMB(3.9,144,2,995,0)="""RTN"",""SROERR"",57,0)"
^XMB(3.9,144,2,996,0)=" W !!,SRSDT,?11,SROPS(1) I $D(SROPS(2)) W !,?11,SROPS(2) I $D(SROPS(3)) W !,?11,SROPS(3)"
^XMB(3.9,144,2,997,0)="""RTN"",""SROERR"",58,0)"
^XMB(3.9,144,2,998,0)=" Q"
^XMB(3.9,144,2,999,0)="""RTN"",""SROERR"",59,0)"
^XMB(3.9,144,2,1000,0)="LOOP ; break case information if longer than 70 characters"
^XMB(3.9,144,2,1001,0)="""RTN"",""SROERR"",60,0)"
^XMB(3.9,144,2,1002,0)=" S SROPS(M)="""" F LOOP=1:1 S MM=$P(SROPER,"" ""),MMM=$P(SROPER,"" "",2,200) Q:MMM=""""  Q:$L(SROPS(M))+$L(MM)'<70  S SROPS(M)=SROPS(M)_MM_"" "",SROPER=MMM"
^XMB(3.9,144,2,1003,0)="""RTN"",""SROERR"",61,0)"
^XMB(3.9,144,2,1004,0)=" Q"
^XMB(3.9,144,2,1005,0)="""RTN"",""SROERR"",62,0)"
^XMB(3.9,144,2,1006,0)="PRESS W !!,""Press RETURN to continue  "" R X:DTIME G:'$T END"
^XMB(3.9,144,2,1007,0)="""RTN"",""SROERR"",63,0)"
^XMB(3.9,144,2,1008,0)=" Q"
^XMB(3.9,144,2,1009,0)="""RTN"",""SROERR"",64,0)"
^XMB(3.9,144,2,1010,0)="DETAIL I $E(IOST)=""C"" W !!,""Press RETURN to review case information, or '^' to quit.  "" R X:DTIME I '$T!(X[""^"") S OREND=1 Q"
^XMB(3.9,144,2,1011,0)="""RTN"",""SROERR"",65,0)"
^XMB(3.9,144,2,1012,0)=" S SRTN=ORPK I $P($G(^SRF(SRTN,""NON"")),""^"")=""Y"" D ^SROERR2 G END"
^XMB(3.9,144,2,1013,0)="""RTN"",""SROERR"",66,0)"
^XMB(3.9,144,2,1014,0)=" D ^SROERR1,END"
^XMB(3.9,144,2,1015,0)="""RTN"",""SROERR"",67,0)"
^XMB(3.9,144,2,1016,0)=" Q"
^XMB(3.9,144,2,1017,0)="""RTN"",""SROERR"",68,0)"
^XMB(3.9,144,2,1018,0)="ADD ; add new requests to ORDER file (100)"
^XMB(3.9,144,2,1019,0)="""RTN"",""SROERR"",69,0)"
^XMB(3.9,144,2,1020,0)=" W @IOF,!,VADM(1),"" ("",VA(""PID""),"")"" I $P($G(^DPT(+ORVP,.35)),""^"")'="""" S Y=$P(^(.35),""^"") D D^DIQ W ""   ** DIED: ""_Y_"" **"""
^XMB(3.9,144,2,1021,0)="""RTN"",""SROERR"",70,0)"
^XMB(3.9,144,2,1022,0)=" W !!,""Add New Surgery Requests"",!!!,""1. Make Operation Requests"",!,""2. Make a Request from the Waiting List"",!,""3. Make a Request for Concurrent Cases"""
^XMB(3.9,144,2,1023,0)="""RTN"",""SROERR"",71,0)"
^XMB(3.9,144,2,1024,0)=" W !!,""Select Number: "" R Z:DTIME S:'$T Z="""" G:""^""[Z END S:Z[""?"" Z=4"
^XMB(3.9,144,2,1025,0)="""RTN"",""SROERR"",72,0)"
^XMB(3.9,144,2,1026,0)=" I Z<1!(Z>3)!(+Z\1'=Z) W !!,""If you want to make a new operation request, enter '1'.  Enter '2' if you want"",!,""to make a request from the surgery waiting list, or '3' to make a request for"",!,""concurrent cases."" D PRESS G ADD"
^XMB(3.9,144,2,1027,0)="""RTN"",""SROERR"",73,0)"
^XMB(3.9,144,2,1028,0)=" I Z=1 D ^SRSMREQ G END"
^XMB(3.9,144,2,1029,0)="""RTN"",""SROERR"",74,0)"
^XMB(3.9,144,2,1030,0)=" I Z=2 D ^SRSWREQ G END"
^XMB(3.9,144,2,1031,0)="""RTN"",""SROERR"",75,0)"
^XMB(3.9,144,2,1032,0)=" I Z=3 D ^SRSCONR G END"
^XMB(3.9,144,2,1033,0)="""RTN"",""SROERR"",76,0)"
^XMB(3.9,144,2,1034,0)=" Q"
^XMB(3.9,144,2,1035,0)="""RTN"",""SROERR"",77,0)"
^XMB(3.9,144,2,1036,0)="PURGE ; purge order from ORDER file"
^XMB(3.9,144,2,1037,0)="""RTN"",""SROERR"",78,0)"
^XMB(3.9,144,2,1038,0)=" N SREVENT,SRSTATUS S SREVENT=""S17"",SRSTATUS=""(DELETED)"" D MSG^SRHLZIU(ORPK,SRSTATUS,SREVENT)"
^XMB(3.9,144,2,1039,0)="""RTN"",""SROERR"",79,0)"
^XMB(3.9,144,2,1040,0)=" I $L($T(DEL^VPRSR)) D DEL^VPRSR(ORPK,$G(DFN)) Q  ;CPRS-R"
^XMB(3.9,144,2,1041,0)="""RTN"",""SROERR"",80,0)"
^XMB(3.9,144,2,1042,0)=" I +$$VERSION^XPDUTL(""ORDER ENTRY/RESULTS REPORTING"")>2.5 Q"
^XMB(3.9,144,2,1043,0)="""RTN"",""SROERR"",81,0)"
^XMB(3.9,144,2,1044,0)=" I ""589""'[ORSTS S:$D(^SRF(ORPK,0)) $P(^(0),""^"",14)="""" S ORSTS=""K"" D ST^ORX"
^XMB(3.9,144,2,1045,0)="""RTN"",""SROERR"",82,0)"
^XMB(3.9,144,2,1046,0)=" Q"
^XMB(3.9,144,2,1047,0)="""RTN"",""SROERR"",83,0)"
^XMB(3.9,144,2,1048,0)="DEL ; delete from ORDER file (100) and call CoreFLS API"
^XMB(3.9,144,2,1049,0)="""RTN"",""SROERR"",84,0)"
^XMB(3.9,144,2,1050,0)=" I $P($G(^SRO(133,SRSITE,0)),""^"",22)=""Y"" D"
^XMB(3.9,144,2,1051,0)="""RTN"",""SROERR"",85,0)"
^XMB(3.9,144,2,1052,0)=" .N SRDYNOTE,SRTYPE"
^XMB(3.9,144,2,1053,0)="""RTN"",""SROERR"",86,0)"
^XMB(3.9,144,2,1054,0)=" .S SRDYNOTE=$P($G(^SRF(SRTN,31)),""^"",10) Q:'SRDYNOTE"
^XMB(3.9,144,2,1055,0)="""RTN"",""SROERR"",87,0)"
^XMB(3.9,144,2,1056,0)=" .I SRDYNOTE S SRTYPE=4 D ST^SRSCOR(SRTN)"
^XMB(3.9,144,2,1057,0)="""RTN"",""SROERR"",88,0)"
^XMB(3.9,144,2,1058,0)=" N SREVENT,SRSTATUS S SREVENT=""S17"",SRSTATUS=""(DELETED)"" D MSG^SRHLZIU(SRTN,SRSTATUS,SREVENT)"
^XMB(3.9,144,2,1059,0)="""RTN"",""SROERR"",89,0)"
^XMB(3.9,144,2,1060,0)=" I $L($T(DEL^VPRSR)) D DEL^VPRSR(SRTN,$G(DFN)) Q  ;CPRS-R"
^XMB(3.9,144,2,1061,0)="""RTN"",""SROERR"",90,0)"
^XMB(3.9,144,2,1062,0)=" I +$$VERSION^XPDUTL(""ORDER ENTRY/RESULTS REPORTING"")>2.5 Q"
^XMB(3.9,144,2,1063,0)="""RTN"",""SROERR"",91,0)"
^XMB(3.9,144,2,1064,0)=" S:'$D(ORIFN) ORIFN=$P(^SRF(SRTN,0),""^"",14) I $D(ORIFN) S ORSTS=""K"" D ST^ORX K ORIFN"
^XMB(3.9,144,2,1065,0)="""RTN"",""SROERR"",92,0)"
^XMB(3.9,144,2,1066,0)=" Q"
^XMB(3.9,144,2,1067,0)="""RTN"",""SROERR0"")"
^XMB(3.9,144,2,1068,0)="0^4^B18120820^B17879401"
^XMB(3.9,144,2,1069,0)="""RTN"",""SROERR0"",1,0)"
^XMB(3.9,144,2,1070,0)="SROERR0 ;B'HAM ISC/ADM - ORDER ENTRY ROUTINE ;02/03/05"
^XMB(3.9,144,2,1071,0)="""RTN"",""SROERR0"",2,0)"
^XMB(3.9,144,2,1072,0)=" ;;3.0; Surgery ;**4,67,73,41,86,107,147,144**;24 Jun 93"
^XMB(3.9,144,2,1073,0)="""RTN"",""SROERR0"",3,0)"
^XMB(3.9,144,2,1074,0)=" ;"
^XMB(3.9,144,2,1075,0)="""RTN"",""SROERR0"",4,0)"
^XMB(3.9,144,2,1076,0)=" ; Reference to RETURN^ORX supported by DBIA #866"
^XMB(3.9,144,2,1077,0)="""RTN"",""SROERR0"",5,0)"
^XMB(3.9,144,2,1078,0)=" ; Reference to ^TMP(""CSLSUR1"" supported by DBIA #3498"
^XMB(3.9,144,2,1079,0)="""RTN"",""SROERR0"",6,0)"
^XMB(3.9,144,2,1080,0)=" ; Reference to UPD^VPRSR supported by DBIA #4750"
^XMB(3.9,144,2,1081,0)="""RTN"",""SROERR0"",7,0)"
^XMB(3.9,144,2,1082,0)=" ;"
^XMB(3.9,144,2,1083,0)="""RTN"",""SROERR0"",8,0)"
^XMB(3.9,144,2,1084,0)=" N SROP,SROPER,SRDYNOTE,SRTYPE S SRTYPE=0"
^XMB(3.9,144,2,1085,0)="""RTN"",""SROERR0"",9,0)"
^XMB(3.9,144,2,1086,0)=" I $P($G(^SRO(133,SRSITE,0)),""^"",22)=""Y"",$D(^TMP(""CSLSUR1"",$J)) D"
^XMB(3.9,144,2,1087,0)="""RTN"",""SROERR0"",10,0)"
^XMB(3.9,144,2,1088,0)=" .S SROP=SROERR,SROPER="""" D ^SROP1 S SRDYNOTE=$P($G(^SRF(SROERR,31)),""^"",10)"
^XMB(3.9,144,2,1089,0)="""RTN"",""SROERR0"",11,0)"
^XMB(3.9,144,2,1090,0)=" .I SROPER[""REQUESTED"",'SRDYNOTE Q"
^XMB(3.9,144,2,1091,0)="""RTN"",""SROERR0"",12,0)"
^XMB(3.9,144,2,1092,0)=" .I SROPER[""CANCELLED""!(SROPER[""ABORTED"") S SRTYPE=3"
^XMB(3.9,144,2,1093,0)="""RTN"",""SROERR0"",13,0)"
^XMB(3.9,144,2,1094,0)=" .I 'SRTYPE,'SRDYNOTE S SRTYPE=1"
^XMB(3.9,144,2,1095,0)="""RTN"",""SROERR0"",14,0)"
^XMB(3.9,144,2,1096,0)=" .I 'SRTYPE,SRDYNOTE=1 S SRTYPE=2"
^XMB(3.9,144,2,1097,0)="""RTN"",""SROERR0"",15,0)"
^XMB(3.9,144,2,1098,0)=" .I '$P($G(^SRF(SROERR,.2)),""^"",10),'$P($G(^SRF(SROERR,""OP"")),""^"",2) D"
^XMB(3.9,144,2,1099,0)="""RTN"",""SROERR0"",16,0)"
^XMB(3.9,144,2,1100,0)=" ..W !!,""  This Surgery case does not have a Principal CPT Code entered. The "",!,""  information sent to SPD for creation of a case cart may not contain "",!,""  enough information for processing."""
^XMB(3.9,144,2,1101,0)="""RTN"",""SROERR0"",17,0)"
^XMB(3.9,144,2,1102,0)=" .D ST^SRSCOR(SROERR)"
^XMB(3.9,144,2,1103,0)="""RTN"",""SROERR0"",18,0)"
^XMB(3.9,144,2,1104,0)=" D SERR^SROPFSS(SROERR,""SROERR0"")"
^XMB(3.9,144,2,1105,0)="""RTN"",""SROERR0"",19,0)"
^XMB(3.9,144,2,1106,0)=" D STATUS"
^XMB(3.9,144,2,1107,0)="""RTN"",""SROERR0"",20,0)"
^XMB(3.9,144,2,1108,0)=" I '$D(SREVENT) N SREVENT S SREVENT=$S(SRSTATUS=""(CANCELLED)"":""S15"",1:""S14"")"
^XMB(3.9,144,2,1109,0)="""RTN"",""SROERR0"",21,0)"
^XMB(3.9,144,2,1110,0)=" D MSG^SRHLZIU(SROERR,SRSTATUS,SREVENT)"
^XMB(3.9,144,2,1111,0)="""RTN"",""SROERR0"",22,0)"
^XMB(3.9,144,2,1112,0)=" I SRSTATUS=""(COMPLETED)""!(SRSTATUS=""(NOT COMPLETE)"")!(SRSTATUS=""(ABORTED)"") D MSG^SRHLOORU(SROERR,SRSTATUS,SREVENT)"
^XMB(3.9,144,2,1113,0)="""RTN"",""SROERR0"",23,0)"
^XMB(3.9,144,2,1114,0)=" I $L($T(UPD^VPRSR)) D UPD^VPRSR(SROERR,$G(DFN),SRSTATUS) Q  ;CPRS-R"
^XMB(3.9,144,2,1115,0)="""RTN"",""SROERR0"",24,0)"
^XMB(3.9,144,2,1116,0)=" I +$$VERSION^XPDUTL(""ORDER ENTRY/RESULTS REPORTING"")>2.5 D END Q"
^XMB(3.9,144,2,1117,0)="""RTN"",""SROERR0"",25,0)"
^XMB(3.9,144,2,1118,0)=" S:'$G(ORIFN) ORIFN=$P(^SRF(SROERR,0),""^"",14) I 'ORIFN K ORIFN D END Q"
^XMB(3.9,144,2,1119,0)="""RTN"",""SROERR0"",26,0)"
^XMB(3.9,144,2,1120,0)=" S ORNP=$S($P($G(^SRF(SROERR,""NON"")),""^"")=""Y"":$P(^(""NON""),""^"",6),1:$P(^(.1),""^"",4)),SRSOP=$P(^(""OP""),""^"")"
^XMB(3.9,144,2,1121,0)="""RTN"",""SROERR0"",27,0)"
^XMB(3.9,144,2,1122,0)=" S ORTX=SRSOP_""|>> Case #""_SROERR_"" ""_SRSTATUS,ORSTRT=$P(^SRF(SROERR,0),""^"",9)"
^XMB(3.9,144,2,1123,0)="""RTN"",""SROERR0"",28,0)"
^XMB(3.9,144,2,1124,0)=" I DT<$E(ORSTRT,1,7) S X1=ORSTRT,X2=DT D ^%DTC S ORPURG=X+30"
^XMB(3.9,144,2,1125,0)="""RTN"",""SROERR0"",29,0)"
^XMB(3.9,144,2,1126,0)=" D RETURN^ORX"
^XMB(3.9,144,2,1127,0)="""RTN"",""SROERR0"",30,0)"
^XMB(3.9,144,2,1128,0)="END K SROERR"
^XMB(3.9,144,2,1129,0)="""RTN"",""SROERR0"",31,0)"
^XMB(3.9,144,2,1130,0)=" Q"
^XMB(3.9,144,2,1131,0)="""RTN"",""SROERR0"",32,0)"
^XMB(3.9,144,2,1132,0)="STATUS ; case status"
^XMB(3.9,144,2,1133,0)="""RTN"",""SROERR0"",33,0)"
^XMB(3.9,144,2,1134,0)=" I $P($G(^SRF(SROERR,""NON"")),""^"")=""Y"" S:+$$VERSION^XPDUTL(""ORDER ENTRY/RESULTS REPORTING"")>2.5 ORSTS=2 S SRSTATUS=$S($P($G(^(30)),""^""):""(ABORTED)"",$P($G(^(""NON"")),""^"",5):""(COMPLETED)"",1:""(NOT COMPLETE)"") Q"
^XMB(3.9,144,2,1135,0)="""RTN"",""SROERR0"",34,0)"
^XMB(3.9,144,2,1136,0)=" I $P($G(^SRF(SROERR,30)),""^"")'="""" D CAN Q"
^XMB(3.9,144,2,1137,0)="""RTN"",""SROERR0"",35,0)"
^XMB(3.9,144,2,1138,0)=" I $P($G(^SRF(SROERR,31)),""^"",8)'="""" D CAN Q"
^XMB(3.9,144,2,1139,0)="""RTN"",""SROERR0"",36,0)"
^XMB(3.9,144,2,1140,0)=" I $P($G(^SRF(SROERR,.2)),""^"",12) S:+$$VERSION^XPDUTL(""ORDER ENTRY/RESULTS REPORTING"")>2.5 ORSTS=2 S SRSTATUS=""(COMPLETED)"" Q"
^XMB(3.9,144,2,1141,0)="""RTN"",""SROERR0"",37,0)"
^XMB(3.9,144,2,1142,0)=" I $D(^SRF(SROERR,.2)),$P(^(.2),""^"",12)="""" S SRSTAT=0 D SCH I SRST=0 D REQ Q:SRST  G NO"
^XMB(3.9,144,2,1143,0)="""RTN"",""SROERR0"",38,0)"
^XMB(3.9,144,2,1144,0)=" I '$D(^SRF(SROERR,.2)) S SRSTAT=0 D SCH I SRST=0 D REQ Q:SRST=1  G NO"
^XMB(3.9,144,2,1145,0)="""RTN"",""SROERR0"",39,0)"
^XMB(3.9,144,2,1146,0)=" Q"
^XMB(3.9,144,2,1147,0)="""RTN"",""SROERR0"",40,0)"
^XMB(3.9,144,2,1148,0)="NO ; not requested or scheduled"
^XMB(3.9,144,2,1149,0)="""RTN"",""SROERR0"",41,0)"
^XMB(3.9,144,2,1150,0)=" I +$$VERSION^XPDUTL(""ORDER ENTRY/RESULTS REPORTING"")>2.5 S ORSTS=9"
^XMB(3.9,144,2,1151,0)="""RTN"",""SROERR0"",42,0)"
^XMB(3.9,144,2,1152,0)=" S SRSTATUS=""(NOT COMPLETE)"""
^XMB(3.9,144,2,1153,0)="""RTN"",""SROERR0"",43,0)"
^XMB(3.9,144,2,1154,0)=" Q"
^XMB(3.9,144,2,1155,0)="""RTN"",""SROERR0"",44,0)"
^XMB(3.9,144,2,1156,0)="CAN ; cancelled or aborted"
^XMB(3.9,144,2,1157,0)="""RTN"",""SROERR0"",45,0)"
^XMB(3.9,144,2,1158,0)=" I +$$VERSION^XPDUTL(""ORDER ENTRY/RESULTS REPORTING"")>2.5 S ORSTS=1"
^XMB(3.9,144,2,1159,0)="""RTN"",""SROERR0"",46,0)"
^XMB(3.9,144,2,1160,0)=" S SR(.2)=$G(^SRF(SROERR,.2)) I $P(SR(.2),""^"")!($P(SR(.2),""^"",10)) S SRSTATUS=""(ABORTED)"" Q"
^XMB(3.9,144,2,1161,0)="""RTN"",""SROERR0"",47,0)"
^XMB(3.9,144,2,1162,0)=" S SRSTATUS=""(CANCELLED)"""
^XMB(3.9,144,2,1163,0)="""RTN"",""SROERR0"",48,0)"
^XMB(3.9,144,2,1164,0)=" Q"
^XMB(3.9,144,2,1165,0)="""RTN"",""SROERR0"",49,0)"
^XMB(3.9,144,2,1166,0)="SCH ; check to see if case is scheduled"
^XMB(3.9,144,2,1167,0)="""RTN"",""SROERR0"",50,0)"
^XMB(3.9,144,2,1168,0)=" I '$D(^SRF(SROERR,31)) S SRST=0 Q"
^XMB(3.9,144,2,1169,0)="""RTN"",""SROERR0"",51,0)"
^XMB(3.9,144,2,1170,0)=" I $P($G(^SRF(SROERR,31)),""^"",4)="""" S SRST=0 Q"
^XMB(3.9,144,2,1171,0)="""RTN"",""SROERR0"",52,0)"
^XMB(3.9,144,2,1172,0)=" I $P($G(^SRF(SROERR,31)),""^"",4) D:SRSTAT=0 TIM0 D:SRSTAT=1 TIM1 S SRST=1 Q"
^XMB(3.9,144,2,1173,0)="""RTN"",""SROERR0"",53,0)"
^XMB(3.9,144,2,1174,0)=" Q"
^XMB(3.9,144,2,1175,0)="""RTN"",""SROERR0"",54,0)"
^XMB(3.9,144,2,1176,0)="TIM0 I '$D(^SRF(SROERR,.2)) S:+$$VERSION^XPDUTL(""ORDER ENTRY/RESULTS REPORTING"")>2.5 ORSTS=8 S SRSTATUS=""(SCHEDULED)"" Q"
^XMB(3.9,144,2,1177,0)="""RTN"",""SROERR0"",55,0)"
^XMB(3.9,144,2,1178,0)=" I $P(^SRF(SROERR,.2),""^"",2) S:+$$VERSION^XPDUTL(""ORDER ENTRY/RESULTS REPORTING"")>2.5 ORSTS=9 S SRSTATUS=""(NOT COMPLETE)"" Q"
^XMB(3.9,144,2,1179,0)="""RTN"",""SROERR0"",56,0)"
^XMB(3.9,144,2,1180,0)=" I $P(^SRF(SROERR,.2),""^"",2)="""" S:+$$VERSION^XPDUTL(""ORDER ENTRY/RESULTS REPORTING"")>2.5 ORSTS=8 S SRSTATUS=""(SCHEDULED)"""
^XMB(3.9,144,2,1181,0)="""RTN"",""SROERR0"",57,0)"
^XMB(3.9,144,2,1182,0)=" Q"
^XMB(3.9,144,2,1183,0)="""RTN"",""SROERR0"",58,0)"
^XMB(3.9,144,2,1184,0)="TIM1 S:+$$VERSION^XPDUTL(""ORDER ENTRY/RESULTS REPORTING"")>2.5 ORSTS=8 S SRSTATUS=""(SCHEDULED)"" Q"
^XMB(3.9,144,2,1185,0)="""RTN"",""SROERR0"",59,0)"
^XMB(3.9,144,2,1186,0)="REQ ; check to see if case has been requested"
^XMB(3.9,144,2,1187,0)="""RTN"",""SROERR0"",60,0)"
^XMB(3.9,144,2,1188,0)=" I $P($G(^SRF(SROERR,""REQ"")),""^"")=1,'$D(^SRF(SROERR,.2)) S:+$$VERSION^XPDUTL(""ORDER ENTRY/RESULTS REPORTING"")>2.5 ORSTS=5 S SRSTATUS=""(REQUESTED)"",SRST=1 Q"
^XMB(3.9,144,2,1189,0)="""RTN"",""SROERR0"",61,0)"
^XMB(3.9,144,2,1190,0)=" I $P($G(^SRF(SROERR,""REQ"")),""^"")=1,$P($G(^(.2)),""^"",2)="""" S:+$$VERSION^XPDUTL(""ORDER ENTRY/RESULTS REPORTING"")>2.5 ORSTS=5 S SRSTATUS=""(REQUESTED)"",SRST=1"
^XMB(3.9,144,2,1191,0)="""RTN"",""SROERR0"",62,0)"
^XMB(3.9,144,2,1192,0)=" Q"
^XMB(3.9,144,2,1193,0)="""RTN"",""SRONEW"")"
^XMB(3.9,144,2,1194,0)="0^8^B31106190^B19521613"
^XMB(3.9,144,2,1195,0)="""RTN"",""SRONEW"",1,0)"
^XMB(3.9,144,2,1196,0)="SRONEW ;B'HAM ISC/MAM - ENTER A NEW CASE ;01/29/01  1:09 PM"
^XMB(3.9,144,2,1197,0)="""RTN"",""SRONEW"",2,0)"
^XMB(3.9,144,2,1198,0)=" ;;3.0; Surgery ;**3,23,26,30,47,58,48,67,107,100,144**;24 Jun 93"
^XMB(3.9,144,2,1199,0)="""RTN"",""SRONEW"",3,0)"
^XMB(3.9,144,2,1200,0)=" ;"
^XMB(3.9,144,2,1201,0)="""RTN"",""SRONEW"",4,0)"
^XMB(3.9,144,2,1202,0)=" ; Reference to ^TMP(""CSLSUR1"" supported by DBIA #3498"
^XMB(3.9,144,2,1203,0)="""RTN"",""SRONEW"",5,0)"
^XMB(3.9,144,2,1204,0)=" ;"
^XMB(3.9,144,2,1205,0)="""RTN"",""SRONEW"",6,0)"
^XMB(3.9,144,2,1206,0)="DEAD S SRSOUT=0,X=$P($G(VADM(6)),""^"") I X D  I SRSOUT D ^SRSKILL G ^SROP"
^XMB(3.9,144,2,1207,0)="""RTN"",""SRONEW"",7,0)"
^XMB(3.9,144,2,1208,0)=" .S SRDEATH=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W @IOF,!,?1,VADM(1)_""   ""_VA(""PID"")_""        * Died ""_SRDEATH_"" *"""
^XMB(3.9,144,2,1209,0)="""RTN"",""SRONEW"",8,0)"
^XMB(3.9,144,2,1210,0)=" .W !!,$C(7) K DIR S DIR(""A"",1)="">>> The patient you have selected died on ""_SRDEATH_""."""
^XMB(3.9,144,2,1211,0)="""RTN"",""SRONEW"",9,0)"
^XMB(3.9,144,2,1212,0)=" .S DIR(""A"")=""    Are you sure this is the correct patient ? "",DIR(""B"")=""NO"",DIR(0)=""YA"" D ^DIR K DIR"
^XMB(3.9,144,2,1213,0)="""RTN"",""SRONEW"",10,0)"
^XMB(3.9,144,2,1214,0)=" .W @IOF I 'Y!$D(DTOUT)!$D(DUOUT) S SRSOUT=1 Q"
^XMB(3.9,144,2,1215,0)="""RTN"",""SRONEW"",11,0)"
^XMB(3.9,144,2,1216,0)=" .W !,""Entering a new surgical case for ""_VADM(1)_""."",!!"
^XMB(3.9,144,2,1217,0)="""RTN"",""SRONEW"",12,0)"
^XMB(3.9,144,2,1218,0)="DATE K %DT W ! S %DT(""A"")=""Select the Date of Operation: "",%DT=""AEX"" D ^%DT I Y<0 W !!,""When entering a new surgery case, a date MUST be entered.  If you do not"",!,""know the date of operation, enter this patient on the Waiting List."""
^XMB(3.9,144,2,1219,0)="""RTN"",""SRONEW"",13,0)"
^XMB(3.9,144,2,1220,0)=" I Y<0 D CONT G:""Yy""'[SRYN END G DATE"
^XMB(3.9,144,2,1221,0)="""RTN"",""SRONEW"",14,0)"
^XMB(3.9,144,2,1222,0)=" G:Y'>0 END S SRSDATE=Y"
^XMB(3.9,144,2,1223,0)="""RTN"",""SRONEW"",15,0)"
^XMB(3.9,144,2,1224,0)=" S SRSC1=1 K SRCTN S SRSDPT=DFN,SRSCC="""" D CON G:SRSCC=""^"" END"
^XMB(3.9,144,2,1225,0)="""RTN"",""SRONEW"",16,0)"
^XMB(3.9,144,2,1226,0)="OP D ^SROPROC I SRSOUT G END"
^XMB(3.9,144,2,1227,0)="""RTN"",""SRONEW"",17,0)"
^XMB(3.9,144,2,1228,0)=" S SRPRIN=SRSOP"
^XMB(3.9,144,2,1229,0)="""RTN"",""SRONEW"",18,0)"
^XMB(3.9,144,2,1230,0)="OPD ; Principal Preoperative Diagnosis"
^XMB(3.9,144,2,1231,0)="""RTN"",""SRONEW"",19,0)"
^XMB(3.9,144,2,1232,0)=" K DIR S DIR(0)=""130,32"",DIR(""A"")=""Principal Preoperative Diagnosis"" D ^DIR K DIR I $D(DTOUT)!(X=""^"") S SRSOUT=1 G END"
^XMB(3.9,144,2,1233,0)="""RTN"",""SRONEW"",20,0)"
^XMB(3.9,144,2,1234,0)=" I Y=""""!(X[""^"") W !!,""A Principal Preoperative Diagnosis must be entered"",!,""when creating a new case. Enter '^' to exit."",! G OPD"
^XMB(3.9,144,2,1235,0)="""RTN"",""SRONEW"",21,0)"
^XMB(3.9,144,2,1236,0)=" I X["";"" W !,""The Principal Preoperative Diagnosis cannot contain a semicolon (;)."",!,""Please re-enter the Diagnosis, using commas in place of the semicolons."" G OPD"
^XMB(3.9,144,2,1237,0)="""RTN"",""SRONEW"",22,0)"
^XMB(3.9,144,2,1238,0)=" S SRSOPD=Y"
^XMB(3.9,144,2,1239,0)="""RTN"",""SRONEW"",23,0)"
^XMB(3.9,144,2,1240,0)=" W !!,""The information entered into the Principal Preoperative Diagnosis field"",!,""has been transferred into the Indications for Operation field."",!,""The Indications for Operation field can be updated later if necessary."",!"
^XMB(3.9,144,2,1241,0)="""RTN"",""SRONEW"",24,0)"
^XMB(3.9,144,2,1242,0)="DOC W ! S DIC(""A"")=""Select Surgeon: "",DIC=200,DIC(0)=""QEAM"",SRSDOC="""" D ^DIC K DIC(""A"") I $D(DTOUT)!(X=""^"") S SRSOUT=1 G END"
^XMB(3.9,144,2,1243,0)="""RTN"",""SRONEW"",25,0)"
^XMB(3.9,144,2,1244,0)=" I Y<0!(X[""^"") W !!,""A Surgeon must be entered when creating a case.  Enter '^' to exit."",! G DOC"
^XMB(3.9,144,2,1245,0)="""RTN"",""SRONEW"",26,0)"
^XMB(3.9,144,2,1246,0)=" S (DA,SRSDOC)=+Y"
^XMB(3.9,144,2,1247,0)="""RTN"",""SRONEW"",27,0)"
^XMB(3.9,144,2,1248,0)=" S RESTRICT=""130,.14"",Y=SRSDOC K SROK D KEY^SROXPR I '$D(SROK) W !!,""The person you selected does not have the appropriate keys necessary to be"",!,""entered as a surgeon.  Please make another selection."",! K SRSDOC,DA,DIC G DOC"
^XMB(3.9,144,2,1249,0)="""RTN"",""SRONEW"",28,0)"
^XMB(3.9,144,2,1250,0)="CASE ; create case in SURGERY file"
^XMB(3.9,144,2,1251,0)="""RTN"",""SRONEW"",29,0)"
^XMB(3.9,144,2,1252,0)=" K DA,DIC,DD,DO,DINUM,SRTN S X=DFN,DIC=""^SRF("",DIC(0)=""L"" D FILE^DICN K DIC S SRTN=+Y G:'$$LOCK^SROUTL(SRTN) DEL"
^XMB(3.9,144,2,1253,0)="""RTN"",""SRONEW"",30,0)"
^XMB(3.9,144,2,1254,0)=" S ^SRF(SRTN,8)=SRSITE(""DIV""),^SRF(SRTN,""OP"")="""""
^XMB(3.9,144,2,1255,0)="""RTN"",""SRONEW"",31,0)"
^XMB(3.9,144,2,1256,0)=" K DIE,DR S DA=SRTN,DIE=130,DR="".09////""_SRSDATE_"";26////""_SRPRIN_"";68////""_SRPRIN_"";.14////""_SRSDOC D ^DIE K DR"
^XMB(3.9,144,2,1257,0)="""RTN"",""SRONEW"",32,0)"
^XMB(3.9,144,2,1258,0)="ASURG ; attending surgeon"
^XMB(3.9,144,2,1259,0)="""RTN"",""SRONEW"",33,0)"
^XMB(3.9,144,2,1260,0)=" K DIR S DIR(0)=""130,.164"",DIR(""A"")=""Attending Surgeon"" D ^DIR K DIR I $D(DTOUT)!(X=""^"") S SRSOUT=1 G DEL"
^XMB(3.9,144,2,1261,0)="""RTN"",""SRONEW"",34,0)"
^XMB(3.9,144,2,1262,0)=" I Y=""""!(X[""^"") W !!,""An Attending Surgeon must be entered when creating a case. Enter '^' to exit."",! G ASURG"
^XMB(3.9,144,2,1263,0)="""RTN"",""SRONEW"",35,0)"
^XMB(3.9,144,2,1264,0)=" S SRATTND=+Y"
^XMB(3.9,144,2,1265,0)="""RTN"",""SRONEW"",36,0)"
^XMB(3.9,144,2,1266,0)="SPEC W ! K DIC S DIC=137.45,DIC(0)=""QEAMZ"",DIC(""A"")=""Select Surgical Specialty: "",DIC(""S"")=""I '$P(^(0),""""^"""",3)"" D ^DIC I $D(DTOUT)!(X=""^"") S SRSOUT=1 G DEL"
^XMB(3.9,144,2,1267,0)="""RTN"",""SRONEW"",37,0)"
^XMB(3.9,144,2,1268,0)=" I Y<0!(X[""^"") W !!,""To create a surgical case, a Surgical Specialty MUST be selected.  Enter '^'"",!,""to exit."",! G SPEC"
^XMB(3.9,144,2,1269,0)="""RTN"",""SRONEW"",38,0)"
^XMB(3.9,144,2,1270,0)=" S SRSS=+Y"
^XMB(3.9,144,2,1271,0)="""RTN"",""SRONEW"",39,0)"
^XMB(3.9,144,2,1272,0)="UPDATE ; update case in SURGERY file"
^XMB(3.9,144,2,1273,0)="""RTN"",""SRONEW"",40,0)"
^XMB(3.9,144,2,1274,0)=" S DA=SRTN,DIE=130,DR="".04////""_SRSS_"";.164////""_SRATTND_"";32////""_SRSOPD D ^DIE K DR"
^XMB(3.9,144,2,1275,0)="""RTN"",""SRONEW"",41,0)"
^XMB(3.9,144,2,1276,0)=" S SRSOPD(1)=SRSOPD D WP^DIE(130,SRTN_"","",55,""A"",""SRSOPD"")"
^XMB(3.9,144,2,1277,0)="""RTN"",""SRONEW"",42,0)"
^XMB(3.9,144,2,1278,0)=" ; Brief Clinical History"
^XMB(3.9,144,2,1279,0)="""RTN"",""SRONEW"",43,0)"
^XMB(3.9,144,2,1280,0)=" K DR S DR=""60T"",DA=SRTN,DIE=130 W ! D ^DIE"
^XMB(3.9,144,2,1281,0)="""RTN"",""SRONEW"",44,0)"
^XMB(3.9,144,2,1282,0)=" K DR,DA S DR=""[SRO-NOCOMP]"",DA=SRTN,DIE=130 D ^DIE K DR"
^XMB(3.9,144,2,1283,0)="""RTN"",""SRONEW"",45,0)"
^XMB(3.9,144,2,1284,0)=" S ^SRF(SRTN,8)=SRSITE(""DIV"") D ^SROXRET"
^XMB(3.9,144,2,1285,0)="""RTN"",""SRONEW"",46,0)"
^XMB(3.9,144,2,1286,0)="DIE D ^SROBLOD K DR,DIE,DA S DR=""38////""_BLOOD_"";40////""_CROSSM,DA=SRTN,DIE=130 D ^DIE K DR,DA,DIE"
^XMB(3.9,144,2,1287,0)="""RTN"",""SRONEW"",47,0)"
^XMB(3.9,144,2,1288,0)=" S DR=""[SRSRES1]"",DIE=130,DA=SRTN D ^DIE,RT S ST=""NEW SURGERY"" D EN2^SROVAR"
^XMB(3.9,144,2,1289,0)="""RTN"",""SRONEW"",48,0)"
^XMB(3.9,144,2,1290,0)=" S SPD=$$CHKS^SRSCOR(SRTN)"
^XMB(3.9,144,2,1291,0)="""RTN"",""SRONEW"",49,0)"
^XMB(3.9,144,2,1292,0)=" K DR S DR=""[SRSRES-ENTRY]"",DIE=130,DA=SRTN D ^SRCUSS,RISK^SROAUTL3,^SROPCE1"
^XMB(3.9,144,2,1293,0)="""RTN"",""SRONEW"",50,0)"
^XMB(3.9,144,2,1294,0)=" I SPD'=$$CHKS^SRSCOR(SRTN) S ^TMP(""CSLSUR1"",$J)="""""
^XMB(3.9,144,2,1295,0)="""RTN"",""SRONEW"",51,0)"
^XMB(3.9,144,2,1296,0)=" I $D(SRCTN) D"
^XMB(3.9,144,2,1297,0)="""RTN"",""SRONEW"",52,0)"
^XMB(3.9,144,2,1298,0)=" .S SRCTN(.02)=$P(^SRF(SRCTN,0),""^"",2),SRCTN(10)=$P($G(^SRF(SRCTN,31)),""^"",4),SRCTN(11)=$P($G(^SRF(SRCTN,31)),""^"",5)"
^XMB(3.9,144,2,1299,0)="""RTN"",""SRONEW"",53,0)"
^XMB(3.9,144,2,1300,0)=" .S DIE=130,DR="".02////""_SRCTN(.02)_"";10////""_SRCTN(10)_"";11////""_SRCTN(11)_"";35////""_SRCTN,DA=SRTN D ^DIE"
^XMB(3.9,144,2,1301,0)="""RTN"",""SRONEW"",54,0)"
^XMB(3.9,144,2,1302,0)=" .S DR=""35////""_SRTN,DA=SRCTN,DIE=130 D ^DIE"
^XMB(3.9,144,2,1303,0)="""RTN"",""SRONEW"",55,0)"
^XMB(3.9,144,2,1304,0)=" D UNLOCK^SROUTL(SRTN),^SROERR"
^XMB(3.9,144,2,1305,0)="""RTN"",""SRONEW"",56,0)"
^XMB(3.9,144,2,1306,0)=" Q"
^XMB(3.9,144,2,1307,0)="""RTN"",""SRONEW"",57,0)"
^XMB(3.9,144,2,1308,0)="DEL S DA=SRTN,DIK=""^SRF("" D ^DIK"
^XMB(3.9,144,2,1309,0)="""RTN"",""SRONEW"",58,0)"
^XMB(3.9,144,2,1310,0)="END K SRTN D ^SRSKILL"
^XMB(3.9,144,2,1311,0)="""RTN"",""SRONEW"",59,0)"
^XMB(3.9,144,2,1312,0)=" Q"
^XMB(3.9,144,2,1313,0)="""RTN"",""SRONEW"",60,0)"
^XMB(3.9,144,2,1314,0)="CONT ; continue new entry ?"
^XMB(3.9,144,2,1315,0)="""RTN"",""SRONEW"",61,0)"
^XMB(3.9,144,2,1316,0)=" W !!,""Do you want to continue  ?  YES//  "" R SRYN:DTIME I '$T S SRYN=""N"" Q"
^XMB(3.9,144,2,1317,0)="""RTN"",""SRONEW"",62,0)"
^XMB(3.9,144,2,1318,0)=" S SRYN=$E(SRYN) S:SRYN="""" SRYN=""Y"" I ""YyNn""'[SRYN W !!,""Enter RETURN if you want to re-enter a date and continue creating a new"",!,""case, or 'NO' to leave this option."" G CONT"
^XMB(3.9,144,2,1319,0)="""RTN"",""SRONEW"",63,0)"
^XMB(3.9,144,2,1320,0)=" Q"
^XMB(3.9,144,2,1321,0)="""RTN"",""SRONEW"",64,0)"
^XMB(3.9,144,2,1322,0)="RT ;start RT logging"
^XMB(3.9,144,2,1323,0)="""RTN"",""SRONEW"",65,0)"
^XMB(3.9,144,2,1324,0)=" I $D(XRTL) S XRTN=""SRONEW"" D T0^%ZOSV"
^XMB(3.9,144,2,1325,0)="""RTN"",""SRONEW"",66,0)"
^XMB(3.9,144,2,1326,0)=" Q"
^XMB(3.9,144,2,1327,0)="""RTN"",""SRONEW"",67,0)"
^XMB(3.9,144,2,1328,0)="CON ; check for concurrent case"
^XMB(3.9,144,2,1329,0)="""RTN"",""SRONEW"",68,0)"
^XMB(3.9,144,2,1330,0)=" S SRSCON=0,SRDT=SRSDATE-.0001 F  S SRDT=$O(^SRF(""AC"",SRDT)) Q:'SRDT!($E(SRDT,1,7)'=SRSDATE)!(SRSCON)  S (SRSCC,SRSCON)=0 F  S SRSCC=$O(^SRF(""AC"",SRDT,SRSCC)) Q:'SRSCC  D  Q:SRSCON"
^XMB(3.9,144,2,1331,0)="""RTN"",""SRONEW"",69,0)"
^XMB(3.9,144,2,1332,0)=" .I ^(SRSCC)=SRSDPT,'$P($G(^SRF(SRSCC,""CON"")),""^""),$P($G(^SRF(SRSCC,""NON"")),""^"")'=""Y"",'$P($G(^SRF(SRSCC,30)),""^""),'$P($G(^SRF(SRSCC,.2)),""^"",12),'$P($G(^SRF(SRSCC,""LOCK"")),""^"") S SRSCON=1"
^XMB(3.9,144,2,1333,0)="""RTN"",""SRONEW"",70,0)"
^XMB(3.9,144,2,1334,0)=" .I SRSCON D CC^SRSREQ I '$D(SRCTN) S SRSCON=0"
^XMB(3.9,144,2,1335,0)="""RTN"",""SRONEW"",71,0)"
^XMB(3.9,144,2,1336,0)=" Q"
^XMB(3.9,144,2,1337,0)="""RTN"",""SROPCEP"")"
^XMB(3.9,144,2,1338,0)="0^12^B79067516^B73728943"
^XMB(3.9,144,2,1339,0)="""RTN"",""SROPCEP"",1,0)"
^XMB(3.9,144,2,1340,0)="SROPCEP ;BIR/TJH - PCE UPDATES ;04/26/05  9:28 AM"
^XMB(3.9,144,2,1341,0)="""RTN"",""SROPCEP"",2,0)"
^XMB(3.9,144,2,1342,0)=" ;;3.0; Surgery ;**142,152,144**;24 Jun 93"
^XMB(3.9,144,2,1343,0)="""RTN"",""SROPCEP"",3,0)"
^XMB(3.9,144,2,1344,0)=" ;"
^XMB(3.9,144,2,1345,0)="""RTN"",""SROPCEP"",4,0)"
^XMB(3.9,144,2,1346,0)=" ; Reference to $$DATA2PCE^PXAPI supported by DBIA #1889"
^XMB(3.9,144,2,1347,0)="""RTN"",""SROPCEP"",5,0)"
^XMB(3.9,144,2,1348,0)=" ; Reference to $$DELVFILE^PXAPI supported by DBIA #1890"
^XMB(3.9,144,2,1349,0)="""RTN"",""SROPCEP"",6,0)"
^XMB(3.9,144,2,1350,0)=" ; Reference to ^DIC(45.3 is supported by DBIA #218"
^XMB(3.9,144,2,1351,0)="""RTN"",""SROPCEP"",7,0)"
^XMB(3.9,144,2,1352,0)=" ;"
^XMB(3.9,144,2,1353,0)="""RTN"",""SROPCEP"",8,0)"
^XMB(3.9,144,2,1354,0)=" Q"
^XMB(3.9,144,2,1355,0)="""RTN"",""SROPCEP"",9,0)"
^XMB(3.9,144,2,1356,0)="START ; entry for update to PCE with surgery & non-OR procedure data"
^XMB(3.9,144,2,1357,0)="""RTN"",""SROPCEP"",10,0)"
^XMB(3.9,144,2,1358,0)=" I '$D(SRTN) S SRTN=$G(DA)"
^XMB(3.9,144,2,1359,0)="""RTN"",""SROPCEP"",11,0)"
^XMB(3.9,144,2,1360,0)=" I SRTN="""" Q"
^XMB(3.9,144,2,1361,0)="""RTN"",""SROPCEP"",12,0)"
^XMB(3.9,144,2,1362,0)=" N DFN,SR,SRAO,SRATT,SRCHK,SRCPT,SRDATE,SRDIAG,SREC,SRHNC,SRIR,SRCV,SRPRJ,SRK,SRLOC,SRMST,SRNON,SROTH,SRPKG,SRPROV,SRS,SRSC,SRV,SRVSIT,SRX,SRX2"
^XMB(3.9,144,2,1363,0)="""RTN"",""SROPCEP"",13,0)"
^XMB(3.9,144,2,1364,0)=" N SRPLSC,SRPLAO,SRPLIR,SRPLEC,SRPLMST,SRPLHNC,SRPLCV,SRPLPRJ,SRADX,SRCNT,SRD,SRDX,SRRPROV,SRUP,SRINOUT,SRO,SRDEPC,SRPFSSAR"
^XMB(3.9,144,2,1365,0)="""RTN"",""SROPCEP"",14,0)"
^XMB(3.9,144,2,1366,0)=" N SRDP,SRDC,SRDI,SRDL,SRDIE,SRDG,SRDM,SRDR,SRDH,SRDK,SRDA,SRD0,SRDDER,SRDG,SRDIC,SRDIC1,SRDICRRE,SRDIEDA,SRDIG,SRDIH,SRDIIENS,SRDISL,SRDISYS,SRDIU,SRDIV,SRDIWT,SRDN,SRDQ,SRDX,SRDY"
^XMB(3.9,144,2,1367,0)="""RTN"",""SROPCEP"",15,0)"
^XMB(3.9,144,2,1368,0)=" D FM1 K DIC S DIC=9.4,DIC(0)=""XM"",X=""SURGERY"" D ^DIC K DIC D FM2 Q:Y=-1  S SRPKG=+Y"
^XMB(3.9,144,2,1369,0)="""RTN"",""SROPCEP"",16,0)"
^XMB(3.9,144,2,1370,0)=" S SRS=""SURGERY DATA"" K ^TMP(""SRPXAPI"",$J)"
^XMB(3.9,144,2,1371,0)="""RTN"",""SROPCEP"",17,0)"
^XMB(3.9,144,2,1372,0)=" D UTIL I 'SRK D PCE"
^XMB(3.9,144,2,1373,0)="""RTN"",""SROPCEP"",18,0)"
^XMB(3.9,144,2,1374,0)=" Q"
^XMB(3.9,144,2,1375,0)="""RTN"",""SROPCEP"",19,0)"
^XMB(3.9,144,2,1376,0)="DEL ; delete data from the Visit file and V files"
^XMB(3.9,144,2,1377,0)="""RTN"",""SROPCEP"",20,0)"
^XMB(3.9,144,2,1378,0)=" D FM1 K DA,DIE,DR S DA=SRTN,DIE=130,DR="".015///@"" D ^DIE K DA,DIE,DR D FM2"
^XMB(3.9,144,2,1379,0)="""RTN"",""SROPCEP"",21,0)"
^XMB(3.9,144,2,1380,0)=" D FM1 S SRV=$$DELVFILE^PXAPI(""ALL"",SRVSIT) K SRVSIT D FM2"
^XMB(3.9,144,2,1381,0)="""RTN"",""SROPCEP"",22,0)"
^XMB(3.9,144,2,1382,0)=" Q"
^XMB(3.9,144,2,1383,0)="""RTN"",""SROPCEP"",23,0)"
^XMB(3.9,144,2,1384,0)="UTIL ; set procedure variables"
^XMB(3.9,144,2,1385,0)="""RTN"",""SROPCEP"",24,0)"
^XMB(3.9,144,2,1386,0)=" N SRDIV,SRSITE,SRSR"
^XMB(3.9,144,2,1387,0)="""RTN"",""SROPCEP"",25,0)"
^XMB(3.9,144,2,1388,0)=" S SRSR="""",SRK=0,SRDIV=$P($G(^SRF(SRTN,8)),""^"") I SRDIV S SRSITE=$O(^SRO(133,""B"",SRDIV,0)),X=^SRO(133,SRSITE,0),SRUP=$P(X,""^"",15),SRSR=$P(X,""^"",19) I SRUP=""""!(SRUP=""N"") S SRK=1 Q"
^XMB(3.9,144,2,1389,0)="""RTN"",""SROPCEP"",26,0)"
^XMB(3.9,144,2,1390,0)=" S SRX=$P($G(^SRF(SRTN,0)),""^"",15) I SRX S SRVSIT=SRX D DEL I '$D(^SRF(SRTN,0)) S SRK=1 Q"
^XMB(3.9,144,2,1391,0)="""RTN"",""SROPCEP"",27,0)"
^XMB(3.9,144,2,1392,0)=" S SR(0)=$G(^SRF(SRTN,0)) I SR(0)=""""!$P($G(^SRF(SRTN,30)),""^"") S SRK=1 Q"
^XMB(3.9,144,2,1393,0)="""RTN"",""SROPCEP"",28,0)"
^XMB(3.9,144,2,1394,0)=" S DFN=$P(SR(0),""^"")"
^XMB(3.9,144,2,1395,0)="""RTN"",""SROPCEP"",29,0)"
^XMB(3.9,144,2,1396,0)=" S SRNON=$S($P($G(^SRF(SRTN,""NON"")),""^"")=""Y"":1,1:0),SRCPT=$P($G(^SRO(136,SRTN,0)),""^"",2) I 'SRCPT S SRK=1 Q"
^XMB(3.9,144,2,1397,0)="""RTN"",""SROPCEP"",30,0)"
^XMB(3.9,144,2,1398,0)=" Q:SRK  S SRDIAG=$P($G(^SRO(136,SRTN,0)),""^"",3) I 'SRDIAG S SRK=1 Q"
^XMB(3.9,144,2,1399,0)="""RTN"",""SROPCEP"",31,0)"
^XMB(3.9,144,2,1400,0)=" I 'SRNON D  I SRK Q"
^XMB(3.9,144,2,1401,0)="""RTN"",""SROPCEP"",32,0)"
^XMB(3.9,144,2,1402,0)=" .S SRX=$P(SR(0),""^"",21) I SRX S SRLOC=SRX"
^XMB(3.9,144,2,1403,0)="""RTN"",""SROPCEP"",33,0)"
^XMB(3.9,144,2,1404,0)=" .I 'SRX S SRX=$P(^SRO(137.45,$P(SR(0),""^"",4),0),""^"",5) I SRX S SRLOC=SRX"
^XMB(3.9,144,2,1405,0)="""RTN"",""SROPCEP"",34,0)"
^XMB(3.9,144,2,1406,0)=" .I 'SRX S SRX=$P(SR(0),""^"",2) S:SRX SRLOC=$P(^SRS(SRX,0),""^"") I 'SRX S SRK=1 Q"
^XMB(3.9,144,2,1407,0)="""RTN"",""SROPCEP"",35,0)"
^XMB(3.9,144,2,1408,0)=" .S SRX=$G(^SRF(SRTN,.2)),SRCHK=$P(SRX,""^"",12) I 'SRCHK S SRK=1 Q"
^XMB(3.9,144,2,1409,0)="""RTN"",""SROPCEP"",36,0)"
^XMB(3.9,144,2,1410,0)=" .S SRDATE=$P(SRX,""^"",10) I 'SRDATE S SRK=1 Q"
^XMB(3.9,144,2,1411,0)="""RTN"",""SROPCEP"",37,0)"
^XMB(3.9,144,2,1412,0)=" .S SRX=$G(^SRF(SRTN,.1)),SRPROV=$P(SRX,""^"",4),SRATT=$P(SRX,""^"",13) I 'SRPROV S SRK=1 Q"
^XMB(3.9,144,2,1413,0)="""RTN"",""SROPCEP"",38,0)"
^XMB(3.9,144,2,1414,0)=" .I SRSR'=0,'SRATT S SRK=1 Q"
^XMB(3.9,144,2,1415,0)="""RTN"",""SROPCEP"",39,0)"
^XMB(3.9,144,2,1416,0)=" I SRNON D  I SRK Q"
^XMB(3.9,144,2,1417,0)="""RTN"",""SROPCEP"",40,0)"
^XMB(3.9,144,2,1418,0)=" .S SRLOC=$P(SR(0),""^"",21)"
^XMB(3.9,144,2,1419,0)="""RTN"",""SROPCEP"",41,0)"
^XMB(3.9,144,2,1420,0)=" .S SRX=^SRF(SRTN,""NON""),SRCHK=$P(SRX,""^"",5) I 'SRCHK S SRK=1 Q"
^XMB(3.9,144,2,1421,0)="""RTN"",""SROPCEP"",42,0)"
^XMB(3.9,144,2,1422,0)=" .S SRDATE=$P(SRX,""^"",4) I 'SRDATE S SRK=1 Q"
^XMB(3.9,144,2,1423,0)="""RTN"",""SROPCEP"",43,0)"
^XMB(3.9,144,2,1424,0)=" .I 'SRLOC S SRLOC=$P(SRX,""^"",2) I 'SRLOC S SRK=1 Q"
^XMB(3.9,144,2,1425,0)="""RTN"",""SROPCEP"",44,0)"
^XMB(3.9,144,2,1426,0)=" .S SRPROV=$P(SRX,""^"",6),SRATT=$P(SRX,""^"",7) I 'SRPROV S SRK=1"
^XMB(3.9,144,2,1427,0)="""RTN"",""SROPCEP"",45,0)"
^XMB(3.9,144,2,1428,0)=" .I SRSR'=0,'SRATT S SRK=1"
^XMB(3.9,144,2,1429,0)="""RTN"",""SROPCEP"",46,0)"
^XMB(3.9,144,2,1430,0)=" S VAINDT=SRDATE"
^XMB(3.9,144,2,1431,0)="""RTN"",""SROPCEP"",47,0)"
^XMB(3.9,144,2,1432,0)=" D INP^VADPT"
^XMB(3.9,144,2,1433,0)="""RTN"",""SROPCEP"",48,0)"
^XMB(3.9,144,2,1434,0)=" I VAIN(1) S SRINOUT=""I"""
^XMB(3.9,144,2,1435,0)="""RTN"",""SROPCEP"",49,0)"
^XMB(3.9,144,2,1436,0)=" I 'VAIN(1) S SRINOUT=""O"""
^XMB(3.9,144,2,1437,0)="""RTN"",""SROPCEP"",50,0)"
^XMB(3.9,144,2,1438,0)=" K VAINDT,VAIN"
^XMB(3.9,144,2,1439,0)="""RTN"",""SROPCEP"",51,0)"
^XMB(3.9,144,2,1440,0)=" I '$$CLINIC^SROUTL(SRLOC,SRTN) S SRK=1 Q"
^XMB(3.9,144,2,1441,0)="""RTN"",""SROPCEP"",52,0)"
^XMB(3.9,144,2,1442,0)=" S SRX=0,SRX=$O(^SRO(136,SRTN,2,SRX)) I SRX="""" S SRK=1 Q"
^XMB(3.9,144,2,1443,0)="""RTN"",""SROPCEP"",53,0)"
^XMB(3.9,144,2,1444,0)=" S SRX=0 F  S SRX=$O(^SRO(136,SRTN,3,SRX)) Q:'SRX  S SRX2=0,SRX2=$O(^SRO(136,SRTN,3,SRX,2,SRX2)) I $D(^SRO(136,SRTN,3,SRX,0)),(SRX2="""") S SRK=1  Q:SRK"
^XMB(3.9,144,2,1445,0)="""RTN"",""SROPCEP"",54,0)"
^XMB(3.9,144,2,1446,0)=" S SRRPROV="""" I $D(^SRF(SRTN,18)) S SRX=0,SRX=$O(^SRF(SRTN,18,SRX)) I SRX S SRRPROV=$P($G(^SRF(SRTN,18,SRX,0)),""^"",7)"
^XMB(3.9,144,2,1447,0)="""RTN"",""SROPCEP"",55,0)"
^XMB(3.9,144,2,1448,0)=" S SRO(0)=$G(^SRO(136,SRTN,0))"
^XMB(3.9,144,2,1449,0)="""RTN"",""SROPCEP"",56,0)"
^XMB(3.9,144,2,1450,0)=" S (SRSC,SRAO,SREC,SRHNC,SRIR,SRMST,SRCV,SRPRJ)=0,SRSC=$P(SRO(0),""^"",4),SRAO=$P(SRO(0),""^"",5),SRIR=$P(SRO(0),""^"",6),SREC=$P(SRO(0),""^"",7),SRMST=$P(SRO(0),""^"",8),SRHNC=$P(SRO(0),""^"",9),SRCV=$P(SRO(0),""^"",10),SRPRJ=$P(SRO(0),""^"",11)"
^XMB(3.9,144,2,1451,0)="""RTN"",""SROPCEP"",57,0)"
^XMB(3.9,144,2,1452,0)=" I $$SWSTAT^IBBAPI(),'SRNON D"
^XMB(3.9,144,2,1453,0)="""RTN"",""SROPCEP"",58,0)"
^XMB(3.9,144,2,1454,0)=" .S SRX=$P(^SRO(137.45,$P(SR(0),""^"",4),0),""^"",2)"
^XMB(3.9,144,2,1455,0)="""RTN"",""SROPCEP"",59,0)"
^XMB(3.9,144,2,1456,0)=" .I SRX S SRDEPC=$$GET1^DIQ(45.3,SRX,2)"
^XMB(3.9,144,2,1457,0)="""RTN"",""SROPCEP"",60,0)"
^XMB(3.9,144,2,1458,0)=" Q"
^XMB(3.9,144,2,1459,0)="""RTN"",""SROPCEP"",61,0)"
^XMB(3.9,144,2,1460,0)="PCE ;"
^XMB(3.9,144,2,1461,0)="""RTN"",""SROPCEP"",62,0)"
^XMB(3.9,144,2,1462,0)=" N SRI,SRJ,SRCODE,SROTH D TMP"
^XMB(3.9,144,2,1463,0)="""RTN"",""SROPCEP"",63,0)"
^XMB(3.9,144,2,1464,0)="D2PCE ;"
^XMB(3.9,144,2,1465,0)="""RTN"",""SROPCEP"",64,0)"
^XMB(3.9,144,2,1466,0)=" S SRPFSSAR=$P($G(^SRF(SRTN,""PFSS"")),""^"")"
^XMB(3.9,144,2,1467,0)="""RTN"",""SROPCEP"",65,0)"
^XMB(3.9,144,2,1468,0)=" I $$SWSTAT^IBBAPI() D FM1 S SRV=$$DATA2PCE^PXAPI(""^TMP(""""SRPXAPI"""",$J)"",SRPKG,SRS,.SRVSIT,,,,,,.SRPFSSAR) D FM2"
^XMB(3.9,144,2,1469,0)="""RTN"",""SROPCEP"",66,0)"
^XMB(3.9,144,2,1470,0)=" I '$$SWSTAT^IBBAPI() D FM1 S SRV=$$DATA2PCE^PXAPI(""^TMP(""""SRPXAPI"""",$J)"",SRPKG,SRS,.SRVSIT) D FM2"
^XMB(3.9,144,2,1471,0)="""RTN"",""SROPCEP"",67,0)"
^XMB(3.9,144,2,1472,0)=" I SRVSIT D FM1 K DA,DIE,DR S DA=SRTN,DIE=130,DR="".015////""_SRVSIT D ^DIE K DA,DIE,DR D FM2"
^XMB(3.9,144,2,1473,0)="""RTN"",""SROPCEP"",68,0)"
^XMB(3.9,144,2,1474,0)=" K ^TMP(""SRPXAPI"",$J),SRVSIT"
^XMB(3.9,144,2,1475,0)="""RTN"",""SROPCEP"",69,0)"
^XMB(3.9,144,2,1476,0)=" Q"
^XMB(3.9,144,2,1477,0)="""RTN"",""SROPCEP"",70,0)"
^XMB(3.9,144,2,1478,0)="TMP ;"
^XMB(3.9,144,2,1479,0)="""RTN"",""SROPCEP"",71,0)"
^XMB(3.9,144,2,1480,0)="ENC S ^TMP(""SRPXAPI"",$J,""ENCOUNTER"",1,""ENC D/T"")=SRDATE"
^XMB(3.9,144,2,1481,0)="""RTN"",""SROPCEP"",72,0)"
^XMB(3.9,144,2,1482,0)=" S ^TMP(""SRPXAPI"",$J,""ENCOUNTER"",1,""PATIENT"")=DFN"
^XMB(3.9,144,2,1483,0)="""RTN"",""SROPCEP"",73,0)"
^XMB(3.9,144,2,1484,0)=" S ^TMP(""SRPXAPI"",$J,""ENCOUNTER"",1,""HOS LOC"")=SRLOC"
^XMB(3.9,144,2,1485,0)="""RTN"",""SROPCEP"",74,0)"
^XMB(3.9,144,2,1486,0)=" S ^TMP(""SRPXAPI"",$J,""ENCOUNTER"",1,""CHECKOUT D/T"")=SRCHK"
^XMB(3.9,144,2,1487,0)="""RTN"",""SROPCEP"",75,0)"
^XMB(3.9,144,2,1488,0)=" S ^TMP(""SRPXAPI"",$J,""ENCOUNTER"",1,""SERVICE CATEGORY"")=""S"""
^XMB(3.9,144,2,1489,0)="""RTN"",""SROPCEP"",76,0)"
^XMB(3.9,144,2,1490,0)=" S ^TMP(""SRPXAPI"",$J,""ENCOUNTER"",1,""ENCOUNTER TYPE"")=""P"""
^XMB(3.9,144,2,1491,0)="""RTN"",""SROPCEP"",77,0)"
^XMB(3.9,144,2,1492,0)=" S ^TMP(""SRPXAPI"",$J,""ENCOUNTER"",1,""APPT"")=9"
^XMB(3.9,144,2,1493,0)="""RTN"",""SROPCEP"",78,0)"
^XMB(3.9,144,2,1494,0)=" S ^TMP(""SRPXAPI"",$J,""ENCOUNTER"",1,""SC"")=SRSC"
^XMB(3.9,144,2,1495,0)="""RTN"",""SROPCEP"",79,0)"
^XMB(3.9,144,2,1496,0)=" S ^TMP(""SRPXAPI"",$J,""ENCOUNTER"",1,""AO"")=SRAO"
^XMB(3.9,144,2,1497,0)="""RTN"",""SROPCEP"",80,0)"
^XMB(3.9,144,2,1498,0)=" S ^TMP(""SRPXAPI"",$J,""ENCOUNTER"",1,""IR"")=SRIR"
^XMB(3.9,144,2,1499,0)="""RTN"",""SROPCEP"",81,0)"
^XMB(3.9,144,2,1500,0)=" S ^TMP(""SRPXAPI"",$J,""ENCOUNTER"",1,""EC"")=SREC"
^XMB(3.9,144,2,1501,0)="""RTN"",""SROPCEP"",82,0)"
^XMB(3.9,144,2,1502,0)=" S ^TMP(""SRPXAPI"",$J,""ENCOUNTER"",1,""MST"")=SRMST"
^XMB(3.9,144,2,1503,0)="""RTN"",""SROPCEP"",83,0)"
^XMB(3.9,144,2,1504,0)=" S ^TMP(""SRPXAPI"",$J,""ENCOUNTER"",1,""HNC"")=SRHNC"
^XMB(3.9,144,2,1505,0)="""RTN"",""SROPCEP"",84,0)"
^XMB(3.9,144,2,1506,0)=" S ^TMP(""SRPXAPI"",$J,""ENCOUNTER"",1,""CV"")=SRCV"
^XMB(3.9,144,2,1507,0)="""RTN"",""SROPCEP"",85,0)"
^XMB(3.9,144,2,1508,0)=" S ^TMP(""SRPXAPI"",$J,""ENCOUNTER"",1,""SHAD"")=SRPRJ"
^XMB(3.9,144,2,1509,0)="""RTN"",""SROPCEP"",86,0)"
^XMB(3.9,144,2,1510,0)="PROC S SRI=1,SRCODE=SRCPT D PMOD,CPT"
^XMB(3.9,144,2,1511,0)="""RTN"",""SROPCEP"",87,0)"
^XMB(3.9,144,2,1512,0)=" S SROTH=0 F  S SROTH=$O(^SRO(136,SRTN,3,SROTH)) Q:'SROTH  S SRCODE=$P($G(^SRO(136,SRTN,3,SROTH,0)),""^"") I SRCODE S SRI=SRI+1 D OMOD,CPT"
^XMB(3.9,144,2,1513,0)="""RTN"",""SROPCEP"",88,0)"
^XMB(3.9,144,2,1514,0)="PROV S ^TMP(""SRPXAPI"",$J,""PROVIDER"",1,""NAME"")=SRPROV"
^XMB(3.9,144,2,1515,0)="""RTN"",""SROPCEP"",89,0)"
^XMB(3.9,144,2,1516,0)=" S ^TMP(""SRPXAPI"",$J,""PROVIDER"",1,""PRIMARY"")=1"
^XMB(3.9,144,2,1517,0)="""RTN"",""SROPCEP"",90,0)"
^XMB(3.9,144,2,1518,0)=" I 'SRNON S ^TMP(""SRPXAPI"",$J,""PROVIDER"",1,""COMMENT"")=""Surgeon"""
^XMB(3.9,144,2,1519,0)="""RTN"",""SROPCEP"",91,0)"
^XMB(3.9,144,2,1520,0)=" I SRPROV=SRATT!'SRATT S ^TMP(""SRPXAPI"",$J,""PROVIDER"",1,""ATTENDING"")=1 G DIAG"
^XMB(3.9,144,2,1521,0)="""RTN"",""SROPCEP"",92,0)"
^XMB(3.9,144,2,1522,0)=" I 'SRATT G DIAG"
^XMB(3.9,144,2,1523,0)="""RTN"",""SROPCEP"",93,0)"
^XMB(3.9,144,2,1524,0)=" S ^TMP(""SRPXAPI"",$J,""PROVIDER"",2,""NAME"")=SRATT"
^XMB(3.9,144,2,1525,0)="""RTN"",""SROPCEP"",94,0)"
^XMB(3.9,144,2,1526,0)=" S ^TMP(""SRPXAPI"",$J,""PROVIDER"",2,""ATTENDING"")=1"
^XMB(3.9,144,2,1527,0)="""RTN"",""SROPCEP"",95,0)"
^XMB(3.9,144,2,1528,0)=" S ^TMP(""SRPXAPI"",$J,""PROVIDER"",2,""PRIMARY"")=0"
^XMB(3.9,144,2,1529,0)="""RTN"",""SROPCEP"",96,0)"
^XMB(3.9,144,2,1530,0)=" I 'SRNON S ^TMP(""SRPXAPI"",$J,""PROVIDER"",2,""COMMENT"")=""Attending Surgeon"""
^XMB(3.9,144,2,1531,0)="""RTN"",""SROPCEP"",97,0)"
^XMB(3.9,144,2,1532,0)="DIAG S SRI=1,SRDX=SRDIAG D DX"
^XMB(3.9,144,2,1533,0)="""RTN"",""SROPCEP"",98,0)"
^XMB(3.9,144,2,1534,0)=" S SRD=0 F  S SRD=$O(^SRO(136,SRTN,4,SRD)) Q:'SRD  S SRDX=$P(^SRO(136,SRTN,4,SRD,0),""^"") I SRDX D DX"
^XMB(3.9,144,2,1535,0)="""RTN"",""SROPCEP"",99,0)"
^XMB(3.9,144,2,1536,0)=" Q"
^XMB(3.9,144,2,1537,0)="""RTN"",""SROPCEP"",100,0)"
^XMB(3.9,144,2,1538,0)="DX S ^TMP(""SRPXAPI"",$J,""DX/PL"",SRI,""DIAGNOSIS"")=SRDX"
^XMB(3.9,144,2,1539,0)="""RTN"",""SROPCEP"",101,0)"
^XMB(3.9,144,2,1540,0)=" I SRI=1 D"
^XMB(3.9,144,2,1541,0)="""RTN"",""SROPCEP"",102,0)"
^XMB(3.9,144,2,1542,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",1,""PRIMARY"")=1"
^XMB(3.9,144,2,1543,0)="""RTN"",""SROPCEP"",103,0)"
^XMB(3.9,144,2,1544,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",1,""ORD/RES"")=""R"""
^XMB(3.9,144,2,1545,0)="""RTN"",""SROPCEP"",104,0)"
^XMB(3.9,144,2,1546,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",1,""PL SC"")=SRSC"
^XMB(3.9,144,2,1547,0)="""RTN"",""SROPCEP"",105,0)"
^XMB(3.9,144,2,1548,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",1,""PL AO"")=SRAO"
^XMB(3.9,144,2,1549,0)="""RTN"",""SROPCEP"",106,0)"
^XMB(3.9,144,2,1550,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",1,""PL IR"")=SRIR"
^XMB(3.9,144,2,1551,0)="""RTN"",""SROPCEP"",107,0)"
^XMB(3.9,144,2,1552,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",1,""PL EC"")=SREC"
^XMB(3.9,144,2,1553,0)="""RTN"",""SROPCEP"",108,0)"
^XMB(3.9,144,2,1554,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",1,""PL MST"")=SRMST"
^XMB(3.9,144,2,1555,0)="""RTN"",""SROPCEP"",109,0)"
^XMB(3.9,144,2,1556,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",1,""PL HNC"")=SRHNC"
^XMB(3.9,144,2,1557,0)="""RTN"",""SROPCEP"",110,0)"
^XMB(3.9,144,2,1558,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",1,""PL CV"")=SRCV"
^XMB(3.9,144,2,1559,0)="""RTN"",""SROPCEP"",111,0)"
^XMB(3.9,144,2,1560,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",1,""PL SHAD"")=SRPRJ"
^XMB(3.9,144,2,1561,0)="""RTN"",""SROPCEP"",112,0)"
^XMB(3.9,144,2,1562,0)=" I SRI'=1 D"
^XMB(3.9,144,2,1563,0)="""RTN"",""SROPCEP"",113,0)"
^XMB(3.9,144,2,1564,0)=" .S SR(4)=$G(^SRO(136,SRTN,4,SRD,0))"
^XMB(3.9,144,2,1565,0)="""RTN"",""SROPCEP"",114,0)"
^XMB(3.9,144,2,1566,0)=" .S (SRPLSC,SRPLAO,SRPLIR,SRPLEC,SRPLMST,SRPLHNC,SRPLCV,SRPLPRJ)=0,SRPLSC=$P(SR(4),""^"",2),SRPLAO=$P(SR(4),""^"",3)"
^XMB(3.9,144,2,1567,0)="""RTN"",""SROPCEP"",115,0)"
^XMB(3.9,144,2,1568,0)=" .S SRPLIR=$P(SR(4),""^"",4),SRPLMST=$P(SR(4),""^"",5),SRPLHNC=$P(SR(4),""^"",6),SRPLEC=$P(SR(4),""^"",7),SRPLCV=$P(SR(4),""^"",8),SRPLPRJ=$P(SR(4),""^"",9)"
^XMB(3.9,144,2,1569,0)="""RTN"",""SROPCEP"",116,0)"
^XMB(3.9,144,2,1570,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",SRI,""ORD/RES"")=""R"""
^XMB(3.9,144,2,1571,0)="""RTN"",""SROPCEP"",117,0)"
^XMB(3.9,144,2,1572,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",SRI,""PL SC"")=SRPLSC"
^XMB(3.9,144,2,1573,0)="""RTN"",""SROPCEP"",118,0)"
^XMB(3.9,144,2,1574,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",SRI,""PL AO"")=SRPLAO"
^XMB(3.9,144,2,1575,0)="""RTN"",""SROPCEP"",119,0)"
^XMB(3.9,144,2,1576,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",SRI,""PL IR"")=SRPLIR"
^XMB(3.9,144,2,1577,0)="""RTN"",""SROPCEP"",120,0)"
^XMB(3.9,144,2,1578,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",SRI,""PL EC"")=SRPLEC"
^XMB(3.9,144,2,1579,0)="""RTN"",""SROPCEP"",121,0)"
^XMB(3.9,144,2,1580,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",SRI,""PL MST"")=SRPLMST"
^XMB(3.9,144,2,1581,0)="""RTN"",""SROPCEP"",122,0)"
^XMB(3.9,144,2,1582,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",SRI,""PL HNC"")=SRPLHNC"
^XMB(3.9,144,2,1583,0)="""RTN"",""SROPCEP"",123,0)"
^XMB(3.9,144,2,1584,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",SRI,""PL CV"")=SRPLCV"
^XMB(3.9,144,2,1585,0)="""RTN"",""SROPCEP"",124,0)"
^XMB(3.9,144,2,1586,0)=" .S ^TMP(""SRPXAPI"",$J,""DX/PL"",SRI,""PL SHAD"")=SRPLPRJ"
^XMB(3.9,144,2,1587,0)="""RTN"",""SROPCEP"",125,0)"
^XMB(3.9,144,2,1588,0)=" S SRI=SRI+1"
^XMB(3.9,144,2,1589,0)="""RTN"",""SROPCEP"",126,0)"
^XMB(3.9,144,2,1590,0)=" Q"
^XMB(3.9,144,2,1591,0)="""RTN"",""SROPCEP"",127,0)"
^XMB(3.9,144,2,1592,0)="CPT S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",SRI,""ENC PROVIDER"")=SRPROV"
^XMB(3.9,144,2,1593,0)="""RTN"",""SROPCEP"",128,0)"
^XMB(3.9,144,2,1594,0)=" S:SRRPROV'="""" ^TMP(""SRPXAPI"",$J,""PROCEDURE"",SRI,""ORD PROVIDER"")=SRRPROV"
^XMB(3.9,144,2,1595,0)="""RTN"",""SROPCEP"",129,0)"
^XMB(3.9,144,2,1596,0)=" S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",SRI,""EVENT D/T"")=SRDATE"
^XMB(3.9,144,2,1597,0)="""RTN"",""SROPCEP"",130,0)"
^XMB(3.9,144,2,1598,0)=" S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",SRI,""PROCEDURE"")=SRCODE"
^XMB(3.9,144,2,1599,0)="""RTN"",""SROPCEP"",131,0)"
^XMB(3.9,144,2,1600,0)=" S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",SRI,""QTY"")=1"
^XMB(3.9,144,2,1601,0)="""RTN"",""SROPCEP"",132,0)"
^XMB(3.9,144,2,1602,0)=" S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",SRI,""COMMENT"")=$S(SRI=1:""Principal Procedure"",1:""Other Procedure"")"
^XMB(3.9,144,2,1603,0)="""RTN"",""SROPCEP"",133,0)"
^XMB(3.9,144,2,1604,0)=" I $G(SRDEPC) S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",SRI,""DEPARTMENT"")=SRDEPC"
^XMB(3.9,144,2,1605,0)="""RTN"",""SROPCEP"",134,0)"
^XMB(3.9,144,2,1606,0)=" I SRI=1 D"
^XMB(3.9,144,2,1607,0)="""RTN"",""SROPCEP"",135,0)"
^XMB(3.9,144,2,1608,0)=" .S SRCNT=1,SRX=0 F  S SRX=$O(^SRO(136,SRTN,2,SRX)) Q:'SRX  D"
^XMB(3.9,144,2,1609,0)="""RTN"",""SROPCEP"",136,0)"
^XMB(3.9,144,2,1610,0)=" ..S SRADX=$P(^SRO(136,SRTN,2,SRX,0),""^"")"
^XMB(3.9,144,2,1611,0)="""RTN"",""SROPCEP"",137,0)"
^XMB(3.9,144,2,1612,0)=" ..I SRCNT=1 S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",1,""DIAGNOSIS"")=SRADX"
^XMB(3.9,144,2,1613,0)="""RTN"",""SROPCEP"",138,0)"
^XMB(3.9,144,2,1614,0)=" ..I SRCNT=2 S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",1,""DIAGNOSIS 2"")=SRADX"
^XMB(3.9,144,2,1615,0)="""RTN"",""SROPCEP"",139,0)"
^XMB(3.9,144,2,1616,0)=" ..I SRCNT=3 S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",1,""DIAGNOSIS 3"")=SRADX"
^XMB(3.9,144,2,1617,0)="""RTN"",""SROPCEP"",140,0)"
^XMB(3.9,144,2,1618,0)=" ..I SRCNT=4 S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",1,""DIAGNOSIS 4"")=SRADX"
^XMB(3.9,144,2,1619,0)="""RTN"",""SROPCEP"",141,0)"
^XMB(3.9,144,2,1620,0)=" ..I SRCNT=5 S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",1,""DIAGNOSIS 5"")=SRADX"
^XMB(3.9,144,2,1621,0)="""RTN"",""SROPCEP"",142,0)"
^XMB(3.9,144,2,1622,0)=" ..I SRCNT=6 S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",1,""DIAGNOSIS 6"")=SRADX"
^XMB(3.9,144,2,1623,0)="""RTN"",""SROPCEP"",143,0)"
^XMB(3.9,144,2,1624,0)=" ..I SRCNT=7 S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",1,""DIAGNOSIS 7"")=SRADX"
^XMB(3.9,144,2,1625,0)="""RTN"",""SROPCEP"",144,0)"
^XMB(3.9,144,2,1626,0)=" ..I SRCNT=8 S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",1,""DIAGNOSIS 8"")=SRADX"
^XMB(3.9,144,2,1627,0)="""RTN"",""SROPCEP"",145,0)"
^XMB(3.9,144,2,1628,0)=" ..S SRCNT=SRCNT+1"
^XMB(3.9,144,2,1629,0)="""RTN"",""SROPCEP"",146,0)"
^XMB(3.9,144,2,1630,0)=" I SRI'=1 D"
^XMB(3.9,144,2,1631,0)="""RTN"",""SROPCEP"",147,0)"
^XMB(3.9,144,2,1632,0)=" .S SRCNT=1,SRX=0 F  S SRX=$O(^SRO(136,SRTN,3,SROTH,2,SRX)) Q:'SRX  D"
^XMB(3.9,144,2,1633,0)="""RTN"",""SROPCEP"",148,0)"
^XMB(3.9,144,2,1634,0)=" ..S SRADX=$P(^SRO(136,SRTN,3,SROTH,2,SRX,0),""^"")"
^XMB(3.9,144,2,1635,0)="""RTN"",""SROPCEP"",149,0)"
^XMB(3.9,144,2,1636,0)=" ..I SRCNT=1 S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",SRI,""DIAGNOSIS"")=SRADX"
^XMB(3.9,144,2,1637,0)="""RTN"",""SROPCEP"",150,0)"
^XMB(3.9,144,2,1638,0)=" ..I SRCNT=2 S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",SRI,""DIAGNOSIS 2"")=SRADX"
^XMB(3.9,144,2,1639,0)="""RTN"",""SROPCEP"",151,0)"
^XMB(3.9,144,2,1640,0)=" ..I SRCNT=3 S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",SRI,""DIAGNOSIS 3"")=SRADX"
^XMB(3.9,144,2,1641,0)="""RTN"",""SROPCEP"",152,0)"
^XMB(3.9,144,2,1642,0)=" ..I SRCNT=4 S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",SRI,""DIAGNOSIS 4"")=SRADX"
^XMB(3.9,144,2,1643,0)="""RTN"",""SROPCEP"",153,0)"
^XMB(3.9,144,2,1644,0)=" ..I SRCNT=5 S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",SRI,""DIAGNOSIS 5"")=SRADX"
^XMB(3.9,144,2,1645,0)="""RTN"",""SROPCEP"",154,0)"
^XMB(3.9,144,2,1646,0)=" ..I SRCNT=6 S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",SRI,""DIAGNOSIS 6"")=SRADX"
^XMB(3.9,144,2,1647,0)="""RTN"",""SROPCEP"",155,0)"
^XMB(3.9,144,2,1648,0)=" ..I SRCNT=7 S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",SRI,""DIAGNOSIS 7"")=SRADX"
^XMB(3.9,144,2,1649,0)="""RTN"",""SROPCEP"",156,0)"
^XMB(3.9,144,2,1650,0)=" ..I SRCNT=8 S ^TMP(""SRPXAPI"",$J,""PROCEDURE"",SRI,""DIAGNOSIS 8"")=SRADX"
^XMB(3.9,144,2,1651,0)="""RTN"",""SROPCEP"",157,0)"
^XMB(3.9,144,2,1652,0)=" ..S SRCNT=SRCNT+1"
^XMB(3.9,144,2,1653,0)="""RTN"",""SROPCEP"",158,0)"
^XMB(3.9,144,2,1654,0)=" Q"
^XMB(3.9,144,2,1655,0)="""RTN"",""SROPCEP"",159,0)"
^XMB(3.9,144,2,1656,0)="PMOD ;"
^XMB(3.9,144,2,1657,0)="""RTN"",""SROPCEP"",160,0)"
^XMB(3.9,144,2,1658,0)=" N SRM,SRMOD,X"
^XMB(3.9,144,2,1659,0)="""RTN"",""SROPCEP"",161,0)"
^XMB(3.9,144,2,1660,0)=" S SRM=0 F  S SRM=$O(^SRO(136,SRTN,1,SRM)) Q:'SRM  S X=$P(^SRO(136,SRTN,1,SRM,0),""^""),SRMOD=$P($$MOD^ICPTMOD(X,""I""),""^"",2),^TMP(""SRPXAPI"",$J,""PROCEDURE"",SRI,""MODIFIERS"",SRMOD)="""""
^XMB(3.9,144,2,1661,0)="""RTN"",""SROPCEP"",162,0)"
^XMB(3.9,144,2,1662,0)=" Q"
^XMB(3.9,144,2,1663,0)="""RTN"",""SROPCEP"",163,0)"
^XMB(3.9,144,2,1664,0)="OMOD ;"
^XMB(3.9,144,2,1665,0)="""RTN"",""SROPCEP"",164,0)"
^XMB(3.9,144,2,1666,0)=" N SRM,SRMOD,X"
^XMB(3.9,144,2,1667,0)="""RTN"",""SROPCEP"",165,0)"
^XMB(3.9,144,2,1668,0)=" S SRM=0 F  S SRM=$O(^SRO(136,SRTN,3,SROTH,1,SRM)) Q:'SRM  S X=$P(^SRO(136,SRTN,3,SROTH,1,SRM,0),""^""),SRMOD=$P($$MOD^ICPTMOD(X,""I""),""^"",2),^TMP(""SRPXAPI"",$J,""PROCEDURE"",SRI,""MODIFIERS"",SRMOD)="""""
^XMB(3.9,144,2,1669,0)="""RTN"",""SROPCEP"",166,0)"
^XMB(3.9,144,2,1670,0)=" Q"
^XMB(3.9,144,2,1671,0)="""RTN"",""SROPCEP"",167,0)"
^XMB(3.9,144,2,1672,0)="FM1 M SRDA=DA,SRDP=DP,SRDC=DC,SRDI=DI,SRDL=DL,SRDIE=DIE,SRDG=DG,SRDM=DM,SRDR=DR,SRDH=DH,SRDK=DK,SRD0=D0,SRDDER=DDER,SRDG=DG,SRDIC=DIC,SRDIC1=DIC1,SRDICRRE=DICRREC"
^XMB(3.9,144,2,1673,0)="""RTN"",""SROPCEP"",168,0)"
^XMB(3.9,144,2,1674,0)=" M SRDIEDA=DIEDA,SRDIG=DIG,SRDIH=DIH,SRDIIENS=DIIENS,SRDISL=DISL,SRDISYS=DISYS,SRDIU=DIU,SRDIV=DIV,SRDIWT=DIWT,SRDN=DN,SRDQ=DQ,SRDX=DX,SRDY=DY"
^XMB(3.9,144,2,1675,0)="""RTN"",""SROPCEP"",169,0)"
^XMB(3.9,144,2,1676,0)="FM2 M DA=SRDA,DP=SRDP,DC=SRDC,DI=SRDI,DL=SRDL,DIE=SRDIE,DG=SRDG,DM=SRDM,DR=SRDR,DH=SRDH,DK=SRDK,D0=SRD0,DDER=SRDDER,DG=SRDG,DIC=SRDIC,DIC1=SRDIC1,DICRREC=SRDICRRE"
^XMB(3.9,144,2,1677,0)="""RTN"",""SROPCEP"",170,0)"
^XMB(3.9,144,2,1678,0)=" M DIEDA=SRDIEDA,DIG=SRDIG,DIH=SRDIH,DIIENS=SRDIIENS,DISL=SRDISL,DISYS=SRDISYS,DIU=SRDIU,DIV=SRDIV,DIWT=SRDIWT,DN=SRDN,DQ=SRDQ,DX=SRDX,DY=SRDY"
^XMB(3.9,144,2,1679,0)="""RTN"",""SROPFSS"")"
^XMB(3.9,144,2,1680,0)="0^9^B8994664"
^XMB(3.9,144,2,1681,0)="""RTN"",""SROPFSS"",1,0)"
^XMB(3.9,144,2,1682,0)="SROPFSS ;BIR/SJA - Surgery/IBB GETACCOUNT API ;01/13/05  9:31 AM"
^XMB(3.9,144,2,1683,0)="""RTN"",""SROPFSS"",2,0)"
^XMB(3.9,144,2,1684,0)=" ;;3.0; Surgery ;**144**;24 Jun 93"
^XMB(3.9,144,2,1685,0)="""RTN"",""SROPFSS"",3,0)"
^XMB(3.9,144,2,1686,0)=" ;"
^XMB(3.9,144,2,1687,0)="""RTN"",""SROPFSS"",4,0)"
^XMB(3.9,144,2,1688,0)=" ; Reference to $$GETACCT^IBBAPI is supported by DBIA #4664"
^XMB(3.9,144,2,1689,0)="""RTN"",""SROPFSS"",5,0)"
^XMB(3.9,144,2,1690,0)=" ; Reference to ^DIC(40.7 is supported by DBIA #557"
^XMB(3.9,144,2,1691,0)="""RTN"",""SROPFSS"",6,0)"
^XMB(3.9,144,2,1692,0)=" ; Reference to ^DG(40.8 is supported by DBIA #2817"
^XMB(3.9,144,2,1693,0)="""RTN"",""SROPFSS"",7,0)"
^XMB(3.9,144,2,1694,0)=" ;"
^XMB(3.9,144,2,1695,0)="""RTN"",""SROPFSS"",8,0)"
^XMB(3.9,144,2,1696,0)="SERR(SRCASE,SRY) ; entry point for routine SROERR & SROERR0."
^XMB(3.9,144,2,1697,0)="""RTN"",""SROPFSS"",9,0)"
^XMB(3.9,144,2,1698,0)=" I 'SRCASE!('+$$SWSTAT^IBBAPI())!($P($G(^SRF(SRCASE,""NON"")),""^"")=""Y"") K ^TMP(""SRPFSS"",$J) Q"
^XMB(3.9,144,2,1699,0)="""RTN"",""SROPFSS"",10,0)"
^XMB(3.9,144,2,1700,0)=" S SROP=SRCASE,SROPER="""" D ^SROP1"
^XMB(3.9,144,2,1701,0)="""RTN"",""SROPFSS"",11,0)"
^XMB(3.9,144,2,1702,0)=" N SRCARFN,SRAPLR,SRDFN,SRDG1,SRDIV,SRGETACC,SRII,SRNODE0,SRPR1,SRPV1,SRPV2,SRRARFN,SRLSS,SRLSSC,SRSURG,SRTMP,SRTP,SRX"
^XMB(3.9,144,2,1703,0)="""RTN"",""SROPFSS"",12,0)"
^XMB(3.9,144,2,1704,0)=" S SRTP="""",SRGETACC=$P($G(^SRF(SRCASE,""PFSS"")),""^""),SRTMP=$D(^TMP(""SRPFSS"",$J)) D"
^XMB(3.9,144,2,1705,0)="""RTN"",""SROPFSS"",13,0)"
^XMB(3.9,144,2,1706,0)=" .I SRY=""SROERR0"" D"
^XMB(3.9,144,2,1707,0)="""RTN"",""SROPFSS"",14,0)"
^XMB(3.9,144,2,1708,0)=" ..I SROPER[""(REQUESTED)"",SRTMP S SRTP=$S(SRGETACC&$D(SRSCHST):""A11"",SRGETACC:""A08"",'SRGETACC:""A04"",1:"""") Q"
^XMB(3.9,144,2,1709,0)="""RTN"",""SROPFSS"",15,0)"
^XMB(3.9,144,2,1710,0)=" ..I SROPER[""(SCHEDULED)""!(SROPER[""(NOT COMPLETE)"")!(SROPER[""(COMPLETED)""),SRTMP S SRTP=$S('SRGETACC:""A04"",1:""A08"") Q"
^XMB(3.9,144,2,1711,0)="""RTN"",""SROPFSS"",16,0)"
^XMB(3.9,144,2,1712,0)=" ..I SROPER[""(CANCELLED)"",SRGETACC S SRTP=""A11"" Q"
^XMB(3.9,144,2,1713,0)="""RTN"",""SROPFSS"",17,0)"
^XMB(3.9,144,2,1714,0)=" .I SRY=""SROERR"" D"
^XMB(3.9,144,2,1715,0)="""RTN"",""SROPFSS"",18,0)"
^XMB(3.9,144,2,1716,0)=" ..I SROPER[""(SCHEDULED)"" S SRTP=$S('SRGETACC:""A04"",1:""A08"") Q"
^XMB(3.9,144,2,1717,0)="""RTN"",""SROPFSS"",19,0)"
^XMB(3.9,144,2,1718,0)=" ..I SROPER[""(REQUESTED)"" S SRTP=$S(SRGETACC:""A08"",'SRGETACC:""A04"",1:"""") Q"
^XMB(3.9,144,2,1719,0)="""RTN"",""SROPFSS"",20,0)"
^XMB(3.9,144,2,1720,0)=" ..I SROPER[""NOT COMPLETE"",'SRGETACC,SRTMP S SRTP=""A04"" Q  ;New case"
^XMB(3.9,144,2,1721,0)="""RTN"",""SROPFSS"",21,0)"
^XMB(3.9,144,2,1722,0)=" ;;;I SRY[""DEL""!(SROPER[""CANCELLED"")!(SROPER[""ABORTED"") S SRTP=""A11"" ;cancel"
^XMB(3.9,144,2,1723,0)="""RTN"",""SROPFSS"",22,0)"
^XMB(3.9,144,2,1724,0)="ST K ^TMP(""SRPFSS"",$J) I SRTP']"""" Q"
^XMB(3.9,144,2,1725,0)="""RTN"",""SROPFSS"",23,0)"
^XMB(3.9,144,2,1726,0)=" S SRNODE0=$G(^SRF(SRCASE,0))"
^XMB(3.9,144,2,1727,0)="""RTN"",""SROPFSS"",24,0)"
^XMB(3.9,144,2,1728,0)=" S SRDFN=$S($D(DFN):DFN,1:$P(SRNODE0,""^"")) ;Patient ID (DFN)"
^XMB(3.9,144,2,1729,0)="""RTN"",""SROPFSS"",25,0)"
^XMB(3.9,144,2,1730,0)=" S SRRARFN=$S((SRTP=""A11""!(SRTP=""A08"")):SRGETACC,1:"""") ;Account Reference Number "
^XMB(3.9,144,2,1731,0)="""RTN"",""SROPFSS"",26,0)"
^XMB(3.9,144,2,1732,0)=" S SRLSSC=+$P(SRNODE0,""^"",4),SRLSS=$G(^SRO(137.45,SRLSSC,0))"
^XMB(3.9,144,2,1733,0)="""RTN"",""SROPFSS"",27,0)"
^XMB(3.9,144,2,1734,0)=" S SRPV1(2)=$S($P(SRNODE0,""^"",12)=""I"":""I"",1:""O"") ;Patient Class; I(npatient) or O(utpatient)"
^XMB(3.9,144,2,1735,0)="""RTN"",""SROPFSS"",28,0)"
^XMB(3.9,144,2,1736,0)=" S SRPV1(3)=$S($P(SRNODE0,""^"",21)]"""":$P(SRNODE0,""^"",21),1:$P(SRLSS,""^"",5)) ;Patient Location"
^XMB(3.9,144,2,1737,0)="""RTN"",""SROPFSS"",29,0)"
^XMB(3.9,144,2,1738,0)=" S SRPV1(7)=$P($G(^SRF(SRCASE,.1)),""^"",13) ;Attending Surgeon"
^XMB(3.9,144,2,1739,0)="""RTN"",""SROPFSS"",30,0)"
^XMB(3.9,144,2,1740,0)=" S (SRPR1(11),SRPV1(17))=$P($G(^SRF(SRCASE,.1)),""^"",4) ;Surgeon"
^XMB(3.9,144,2,1741,0)="""RTN"",""SROPFSS"",31,0)"
^XMB(3.9,144,2,1742,0)=" S SRPV1(18)=$O(^DIC(40.7,""C"",429,0))"
^XMB(3.9,144,2,1743,0)="""RTN"",""SROPFSS"",32,0)"
^XMB(3.9,144,2,1744,0)=" S (SRPV1(44),SRPV2(8))=$P(SRNODE0,""^"",9) ;Admit Date/Time"
^XMB(3.9,144,2,1745,0)="""RTN"",""SROPFSS"",33,0)"
^XMB(3.9,144,2,1746,0)=" S SRPR1(4)=$E($P(^SRF(SRCASE,""OP""),""^""),1,60) ;Principal Procedure (free text)"
^XMB(3.9,144,2,1747,0)="""RTN"",""SROPFSS"",34,0)"
^XMB(3.9,144,2,1748,0)=" S SRSURG(1)=SRCASE"
^XMB(3.9,144,2,1749,0)="""RTN"",""SROPFSS"",35,0)"
^XMB(3.9,144,2,1750,0)=" S SRSURG(2)=$P(SRLSS,""^"",2)"
^XMB(3.9,144,2,1751,0)="""RTN"",""SROPFSS"",36,0)"
^XMB(3.9,144,2,1752,0)=" S SRDG1(1,4)=$E($P($G(^SRF(SRCASE,33)),""^""),1,40) ;Principal Pre-Op Diagnosis"
^XMB(3.9,144,2,1753,0)="""RTN"",""SROPFSS"",37,0)"
^XMB(3.9,144,2,1754,0)=" S SRII=$P($G(^SRF(SRCASE,8)),""^""),SRDIV=$O(^DG(40.8,""AD"",SRII,0)) ;Medical Center Division/Facility"
^XMB(3.9,144,2,1755,0)="""RTN"",""SROPFSS"",38,0)"
^XMB(3.9,144,2,1756,0)=" S SRAPLR=$S(SRTP=""A04"":""ACCT;SROPFSS"",1:"""")"
^XMB(3.9,144,2,1757,0)="""RTN"",""SROPFSS"",39,0)"
^XMB(3.9,144,2,1758,0)=" ;"
^XMB(3.9,144,2,1759,0)="""RTN"",""SROPFSS"",40,0)"
^XMB(3.9,144,2,1760,0)="ACCT ; Call IBB GETACCOUNT API to get a new Account Reference Number"
^XMB(3.9,144,2,1761,0)="""RTN"",""SROPFSS"",41,0)"
^XMB(3.9,144,2,1762,0)=" S SRCARFN=+$$GETACCT^IBBAPI(SRDFN,SRRARFN,SRTP,SRAPLR,.SRPV1,.SRPV2,.SRPR1,.SRDG1,"""",SRDIV,"""",.SRSURG)"
^XMB(3.9,144,2,1763,0)="""RTN"",""SROPFSS"",42,0)"
^XMB(3.9,144,2,1764,0)=" I $G(SRCARFN) S $P(^SRF(SRCASE,""PFSS""),""^"")=SRCARFN"
^XMB(3.9,144,2,1765,0)="""RTN"",""SROPFSS"",43,0)"
^XMB(3.9,144,2,1766,0)="EXIT K SRCARFN"
^XMB(3.9,144,2,1767,0)="""RTN"",""SROPFSS"",44,0)"
^XMB(3.9,144,2,1768,0)=" Q"
^XMB(3.9,144,2,1769,0)="""RTN"",""SROVAR"")"
^XMB(3.9,144,2,1770,0)="0^6^B31317243^B31841040"
^XMB(3.9,144,2,1771,0)="""RTN"",""SROVAR"",1,0)"
^XMB(3.9,144,2,1772,0)="SROVAR ;BIR/MAM,ADM - SITE PARAMETERS ;10/04/05"
^XMB(3.9,144,2,1773,0)="""RTN"",""SROVAR"",2,0)"
^XMB(3.9,144,2,1774,0)=" ;;3.0; Surgery ;**17,38,48,67,77,50,87,88,102,107,100,134,144**;24 Jun 93"
^XMB(3.9,144,2,1775,0)="""RTN"",""SROVAR"",3,0)"
^XMB(3.9,144,2,1776,0)=" ;"
^XMB(3.9,144,2,1777,0)="""RTN"",""SROVAR"",4,0)"
^XMB(3.9,144,2,1778,0)=" ; Reference to ^TMP(""CSLSUR1"" supported by DBIA #3498"
^XMB(3.9,144,2,1779,0)="""RTN"",""SROVAR"",5,0)"
^XMB(3.9,144,2,1780,0)=" ;"
^XMB(3.9,144,2,1781,0)="""RTN"",""SROVAR"",6,0)"
^XMB(3.9,144,2,1782,0)=" K ^TMP(""CSLSUR1"",$J),^TMP(""SRPFSS"",$J) D CLEAR"
^XMB(3.9,144,2,1783,0)="""RTN"",""SROVAR"",7,0)"
^XMB(3.9,144,2,1784,0)=" I $D(SRSITE) Q"
^XMB(3.9,144,2,1785,0)="""RTN"",""SROVAR"",8,0)"
^XMB(3.9,144,2,1786,0)=" D CPT"
^XMB(3.9,144,2,1787,0)="""RTN"",""SROVAR"",9,0)"
^XMB(3.9,144,2,1788,0)=" K SRL S (SRCNT,X)=0 F  S X=$O(^SRO(133,X)) Q:'X  I '$P($G(^SRO(133,X,0)),""^"",21) S SRCNT=SRCNT+1,SRL(SRCNT)=X"
^XMB(3.9,144,2,1789,0)="""RTN"",""SROVAR"",10,0)"
^XMB(3.9,144,2,1790,0)=" I SRCNT=1 S SRSITE=SRL(1) G SET"
^XMB(3.9,144,2,1791,0)="""RTN"",""SROVAR"",11,0)"
^XMB(3.9,144,2,1792,0)=" K XQUIT,DIR W ! I SRCNT>1 S DIR(""?"",1)=""  Because there is more than one division in the SURGERY SITE PARAMETERS"",DIR(""?"")=""  file, a division must be selected."""
^XMB(3.9,144,2,1793,0)="""RTN"",""SROVAR"",12,0)"
^XMB(3.9,144,2,1794,0)=" S DIR(0)=""P^133:EM"",DIR(""A"")=""Select Division"",DIR(""S"")=""I '$P(^SRO(133,+Y,0),U,21)"" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) D ^SRSKILL S XQUIT="""" Q"
^XMB(3.9,144,2,1795,0)="""RTN"",""SROVAR"",13,0)"
^XMB(3.9,144,2,1796,0)=" S SRSITE=+Y"
^XMB(3.9,144,2,1797,0)="""RTN"",""SROVAR"",14,0)"
^XMB(3.9,144,2,1798,0)="SET ; set site parameters"
^XMB(3.9,144,2,1799,0)="""RTN"",""SROVAR"",15,0)"
^XMB(3.9,144,2,1800,0)=" S S(0)=^SRO(133,SRSITE,0),SRSITE(""AML"")=$P(S(0),""^"",4),SRSITE(""REQ"")=$P(S(0),""^"",2) K:SRSITE(""REQ"")="""" SRSITE(""REQ"")"
^XMB(3.9,144,2,1801,0)="""RTN"",""SROVAR"",16,0)"
^XMB(3.9,144,2,1802,0)=" S SRSITE(""IV"")=$P(S(0),""^"",7) K:SRSITE(""IV"")="""" SRSITE(""IV"")"
^XMB(3.9,144,2,1803,0)="""RTN"",""SROVAR"",17,0)"
^XMB(3.9,144,2,1804,0)=" S SRSITE(""DIV"")=$P(S(0),""^""),SRSITE(""SITE"")=$$GET1^DIQ(4,SRSITE(""DIV""),.01)"
^XMB(3.9,144,2,1805,0)="""RTN"",""SROVAR"",18,0)"
^XMB(3.9,144,2,1806,0)=" S SRSITE(""NRPT"")=$P(S(0),""^"",6) I SRSITE(""NRPT"")="""" S SRSITE(""NRPT"")=1"
^XMB(3.9,144,2,1807,0)="""RTN"",""SROVAR"",19,0)"
^XMB(3.9,144,2,1808,0)=" I '$D(SRSITE(""OPTION"")),$D(XQY) S SRSITE(""OPTION"")=XQY"
^XMB(3.9,144,2,1809,0)="""RTN"",""SROVAR"",20,0)"
^XMB(3.9,144,2,1810,0)=" K S"
^XMB(3.9,144,2,1811,0)="""RTN"",""SROVAR"",21,0)"
^XMB(3.9,144,2,1812,0)=" Q"
^XMB(3.9,144,2,1813,0)="""RTN"",""SROVAR"",22,0)"
^XMB(3.9,144,2,1814,0)="CPT ; display CPT copyright notice"
^XMB(3.9,144,2,1815,0)="""RTN"",""SROVAR"",23,0)"
^XMB(3.9,144,2,1816,0)=" N SRCPT,SRDIV S (SRCPT,SRDIV)=0 F  S SRDIV=$O(^SRO(133,SRDIV)) Q:'SRDIV  I $D(^SRO(133,SRDIV,6,DT,1,DUZ)) S SRCPT=1 Q"
^XMB(3.9,144,2,1817,0)="""RTN"",""SROVAR"",24,0)"
^XMB(3.9,144,2,1818,0)=" Q:SRCPT  D COPY^ICPTAPIU I $G(IOST)'[""P-"" W ! K DIR S DIR(""A"")=""Press the 'Return' key to continue"",DIR(0)=""FOA"" D ^DIR K DIR"
^XMB(3.9,144,2,1819,0)="""RTN"",""SROVAR"",25,0)"
^XMB(3.9,144,2,1820,0)=" K DD,DO,DA,DIC S SRDIV=$O(^SRO(133,0))"
^XMB(3.9,144,2,1821,0)="""RTN"",""SROVAR"",26,0)"
^XMB(3.9,144,2,1822,0)=" I '$D(^SRO(133,SRDIV,6,DT,0)) S X=DT,DA(1)=SRDIV,DIC=""^SRO(133,SRDIV,6,"",DIC(""P"")=$P(^DD(133,36,0),""^"",2),DIC(0)=""L"",DINUM=X D FILE^DICN K DD,DO,DA,DIC I Y=-1 Q"
^XMB(3.9,144,2,1823,0)="""RTN"",""SROVAR"",27,0)"
^XMB(3.9,144,2,1824,0)=" S X=DUZ,DA(2)=SRDIV,DA(1)=DT,DIC=""^SRO(133,SRDIV,6,DT,1,"",DIC(""P"")=$P(^DD(133.036,1,0),""^"",2),DIC(0)=""L"",DINUM=X D FILE^DICN K DA,DD,DIC,DO"
^XMB(3.9,144,2,1825,0)="""RTN"",""SROVAR"",28,0)"
^XMB(3.9,144,2,1826,0)=" Q"
^XMB(3.9,144,2,1827,0)="""RTN"",""SROVAR"",29,0)"
^XMB(3.9,144,2,1828,0)="EN2 ; set view only and titles for screens"
^XMB(3.9,144,2,1829,0)="""RTN"",""SROVAR"",30,0)"
^XMB(3.9,144,2,1830,0)=" I '$D(^XUSEC(""SROEDIT"",DUZ)) S Q3(""VIEW"")="""""
^XMB(3.9,144,2,1831,0)="""RTN"",""SROVAR"",31,0)"
^XMB(3.9,144,2,1832,0)=" Q:'$D(SRTN)  Q:SRTN<1  S:'$D(ST) ST=""SCHEDULING"" S DFN=$P(^SRF(SRTN,0),""^"") D DEM^VADPT S SRN=$E(VADM(1),1,20),Q3(1)=""** ""_ST_"" **   CASE #""_SRTN_""  ""_SRN_"" """
^XMB(3.9,144,2,1833,0)="""RTN"",""SROVAR"",32,0)"
^XMB(3.9,144,2,1834,0)=" Q"
^XMB(3.9,144,2,1835,0)="""RTN"",""SROVAR"",33,0)"
^XMB(3.9,144,2,1836,0)="DEV S SRION=$S($D(ION):ION,1:""HOME"") K %ZIS S %ZIS=""QN"",IOP=X D ^%ZIS I POP S IOP=SRION D ^%ZIS K %ZIS,IOP,SRION,X Q"
^XMB(3.9,144,2,1837,0)="""RTN"",""SROVAR"",34,0)"
^XMB(3.9,144,2,1838,0)=" W $S(X=$E(ION,1,$L(X)):$E(ION,$L(X)+1,$L(ION)),1:""  ""_ION) S X=ION D ^%ZISC K %ZIS,SRION,IOP Q"
^XMB(3.9,144,2,1839,0)="""RTN"",""SROVAR"",35,0)"
^XMB(3.9,144,2,1840,0)=" Q"
^XMB(3.9,144,2,1841,0)="""RTN"",""SROVAR"",36,0)"
^XMB(3.9,144,2,1842,0)="TIME ; transform time to date of operation at that time"
^XMB(3.9,144,2,1843,0)="""RTN"",""SROVAR"",37,0)"
^XMB(3.9,144,2,1844,0)=" I $D(SRSMED) S DA=SRTN"
^XMB(3.9,144,2,1845,0)="""RTN"",""SROVAR"",38,0)"
^XMB(3.9,144,2,1846,0)=" S:$D(SRTN) SRTDA=DA,DA=SRTN S X=$S(X?1.4N.A!(X?1.2N1"":""2N.A):Z_""@""_X,1:X)"
^XMB(3.9,144,2,1847,0)="""RTN"",""SROVAR"",39,0)"
^XMB(3.9,144,2,1848,0)=" S %DT=""EPTXR"" D ^%DT S X=Y G:'$D(^SRF(DA,.2)) RESET I X>0 S SRSTART=$P(^SRF($S($D(SRTN):SRTN,1:DA),.2),""^"",15) I SRSTART'="""" D BEFORE"
^XMB(3.9,144,2,1849,0)="""RTN"",""SROVAR"",40,0)"
^XMB(3.9,144,2,1850,0)=" S:$D(SRTDA) DA=SRTDA Q"
^XMB(3.9,144,2,1851,0)="""RTN"",""SROVAR"",41,0)"
^XMB(3.9,144,2,1852,0)="BEFORE W:X<SRSTART !!,""The time entered is before the 'TIME PAT IN HOLD AREA'.  Please check the"",!,""DATE/TIME entered for this field."" H 2"
^XMB(3.9,144,2,1853,0)="""RTN"",""SROVAR"",42,0)"
^XMB(3.9,144,2,1854,0)=" Q"
^XMB(3.9,144,2,1855,0)="""RTN"",""SROVAR"",43,0)"
^XMB(3.9,144,2,1856,0)="RESET S:$D(SRTDA) DA=SRTDA Q"
^XMB(3.9,144,2,1857,0)="""RTN"",""SROVAR"",44,0)"
^XMB(3.9,144,2,1858,0)="INPUT ; input transfor for ASA CLASS"
^XMB(3.9,144,2,1859,0)="""RTN"",""SROVAR"",45,0)"
^XMB(3.9,144,2,1860,0)=" S:'$D(DA) DA=SRTN S SRFLD=1.13 I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") D ^SROCON Q"
^XMB(3.9,144,2,1861,0)="""RTN"",""SROVAR"",46,0)"
^XMB(3.9,144,2,1862,0)=" Q"
^XMB(3.9,144,2,1863,0)="""RTN"",""SROVAR"",47,0)"
^XMB(3.9,144,2,1864,0)="PARAM ; enter/edit site parameters"
^XMB(3.9,144,2,1865,0)="""RTN"",""SROVAR"",48,0)"
^XMB(3.9,144,2,1866,0)=" W @IOF K DIC,DINUM S DIC=133,DIC(0)=""QEAMZL"",DLAYGO=133,DIC(""A"")=""Edit Parameters for which Surgery Site: "" D ^DIC K DIC I Y<0 W @IOF Q"
^XMB(3.9,144,2,1867,0)="""RTN"",""SROVAR"",49,0)"
^XMB(3.9,144,2,1868,0)=" N SRDIV,SRN,SRNAME,SRNUM S SRDIV=+Y,SRN=+Y(0),SRNAME=Y(0,0),SRNUM=$$GET1^DIQ(4,SRN,99),Q3(1)="" ""_SRNAME_""  (""_SRNUM_"") """
^XMB(3.9,144,2,1869,0)="""RTN"",""SROVAR"",50,0)"
^XMB(3.9,144,2,1870,0)=" K DIE,DR,DA,Y S DA=SRDIV,DR=""[SRPARAM]"",DIE=133 D ^SRCUSS K DR,DIE,DA,ST W @IOF I $D(SRSITE) D SET"
^XMB(3.9,144,2,1871,0)="""RTN"",""SROVAR"",51,0)"
^XMB(3.9,144,2,1872,0)=" Q"
^XMB(3.9,144,2,1873,0)="""RTN"",""SROVAR"",52,0)"
^XMB(3.9,144,2,1874,0)="EXIT ; exit action for all Surgery options"
^XMB(3.9,144,2,1875,0)="""RTN"",""SROVAR"",53,0)"
^XMB(3.9,144,2,1876,0)=" I $D(XQY),$G(SRSITE(""OPTION""))=XQY K SRSITE,SRTN,^TMP(""SRCUSS"",$J)"
^XMB(3.9,144,2,1877,0)="""RTN"",""SROVAR"",54,0)"
^XMB(3.9,144,2,1878,0)=" D CLEAR"
^XMB(3.9,144,2,1879,0)="""RTN"",""SROVAR"",55,0)"
^XMB(3.9,144,2,1880,0)=" Q"
^XMB(3.9,144,2,1881,0)="""RTN"",""SROVAR"",56,0)"
^XMB(3.9,144,2,1882,0)="SITE() ; extrinsic call to output Institution file pointer (from Default Institution field in file 4.3)^Institution name^Station number"
^XMB(3.9,144,2,1883,0)="""RTN"",""SROVAR"",57,0)"
^XMB(3.9,144,2,1884,0)=" N SITE,SRI,SRX,SRY"
^XMB(3.9,144,2,1885,0)="""RTN"",""SROVAR"",58,0)"
^XMB(3.9,144,2,1886,0)=" S SITE=$$KSP^XUPARAM(""INST"") I 'SITE Q SITE"
^XMB(3.9,144,2,1887,0)="""RTN"",""SROVAR"",59,0)"
^XMB(3.9,144,2,1888,0)=" S SRX=SITE F SRI=.01,99 S SRY=$$GET1^DIQ(4,SRX,SRI),SITE=SITE_""^""_SRY"
^XMB(3.9,144,2,1889,0)="""RTN"",""SROVAR"",60,0)"
^XMB(3.9,144,2,1890,0)=" Q SITE"
^XMB(3.9,144,2,1891,0)="""RTN"",""SROVAR"",61,0)"
^XMB(3.9,144,2,1892,0)="OFF1 ; compare time off with time on"
^XMB(3.9,144,2,1893,0)="""RTN"",""SROVAR"",62,0)"
^XMB(3.9,144,2,1894,0)=" S Z=$E($P(^SRF($S($D(SRTN):SRTN,1:DA(1)),0),""^"",9),1,7),X=$S(X?1.4N.A!(X?1.2N1"":""2N.A):Z_""@""_X,1:X) K %DT,Z S %DT=""PTXR"" D ^%DT S X=Y I Y<1 D OUT Q"
^XMB(3.9,144,2,1895,0)="""RTN"",""SROVAR"",63,0)"
^XMB(3.9,144,2,1896,0)=" S SRSTART=$P(^SRF(DA(1),SRSUB,DA,0),""^"",SRP) D COMP"
^XMB(3.9,144,2,1897,0)="""RTN"",""SROVAR"",64,0)"
^XMB(3.9,144,2,1898,0)=" Q"
^XMB(3.9,144,2,1899,0)="""RTN"",""SROVAR"",65,0)"
^XMB(3.9,144,2,1900,0)="OFF2 ; compare time off with time on"
^XMB(3.9,144,2,1901,0)="""RTN"",""SROVAR"",66,0)"
^XMB(3.9,144,2,1902,0)=" S Z=$E($P(^SRF($S($D(SRTN):SRTN,1:DA(2)),0),""^"",9),1,7),X=$S(X?1.4N.A!(X?1.2N1"":""2N.A):Z_""@""_X,1:X) K %DT,Z S %DT=""PTXR"" D ^%DT S X=Y I Y<1 D OUT Q"
^XMB(3.9,144,2,1903,0)="""RTN"",""SROVAR"",67,0)"
^XMB(3.9,144,2,1904,0)=" S SRSTART=$P(^SRF(DA(2),SRSUB,DA(1),1,DA,0),""^"",SRP)"
^XMB(3.9,144,2,1905,0)="""RTN"",""SROVAR"",68,0)"
^XMB(3.9,144,2,1906,0)="COMP I X<SRSTART W !!,""Time Off should be later than Time On."",! S X=-1"
^XMB(3.9,144,2,1907,0)="""RTN"",""SROVAR"",69,0)"
^XMB(3.9,144,2,1908,0)="OUT K %DT,SR130,SRN,SRP,SRSTART,SRSUB"
^XMB(3.9,144,2,1909,0)="""RTN"",""SROVAR"",70,0)"
^XMB(3.9,144,2,1910,0)=" Q"
^XMB(3.9,144,2,1911,0)="""RTN"",""SROVAR"",71,0)"
^XMB(3.9,144,2,1912,0)="TERM ; compare stop time with start time"
^XMB(3.9,144,2,1913,0)="""RTN"",""SROVAR"",72,0)"
^XMB(3.9,144,2,1914,0)=" N SRINOR,SRSTART,SRV,SRY,T,Z"
^XMB(3.9,144,2,1915,0)="""RTN"",""SROVAR"",73,0)"
^XMB(3.9,144,2,1916,0)=" I $D(DA) S SRINOR=$S($P($G(^SRF(DA,""NON"")),""^"")=""Y"":$P($G(^SRF(DA,""NON"")),""^"",4),1:$P($G(^SRF(DA,.2)),""^"",10)) I 'SRINOR D  K X D OUT Q"
^XMB(3.9,144,2,1917,0)="""RTN"",""SROVAR"",74,0)"
^XMB(3.9,144,2,1918,0)=" .D EN^DDIOL("">>> Please enter 'TIME ""_$S($P($G(^SRF(DA,""NON"")),""^"")=""Y"":""PROCEDURE BEGAN"",1:""PAT IN OR"")_""' first !! <<<"","""",""!!?5"")"
^XMB(3.9,144,2,1919,0)="""RTN"",""SROVAR"",75,0)"
^XMB(3.9,144,2,1920,0)=" .D EN^DDIOL("""","""",""!"")"
^XMB(3.9,144,2,1921,0)="""RTN"",""SROVAR"",76,0)"
^XMB(3.9,144,2,1922,0)=" S Z=$E(SRINOR,1,7),X=$S(X?1.4N.A!(X?1.2N1"":""2N.A):Z_""@""_X,1:X)"
^XMB(3.9,144,2,1923,0)="""RTN"",""SROVAR"",77,0)"
^XMB(3.9,144,2,1924,0)=" K %DT,Z S %DT=""PTXR"" D ^%DT S X=Y I Y<1 D OUT Q"
^XMB(3.9,144,2,1925,0)="""RTN"",""SROVAR"",78,0)"
^XMB(3.9,144,2,1926,0)=" I $D(DA) S Z=$P($G(^SRF(DA,SRN)),""^"",SRP),SRSTART=$S(Z:Z,1:SRINOR),SRNULL=$S(Z:0,1:1) I X<SRSTART S Z=$P(SRINOR,"".""),T=$P(X,""."",2),X1=Z_"".""_T,X2=1 D C^%DTC D PLUS24 I '$D(X) D OUT Q"
^XMB(3.9,144,2,1927,0)="""RTN"",""SROVAR"",79,0)"
^XMB(3.9,144,2,1928,0)=" K %DT S %DT=""EPTXR"" D ^%DT S X=Y D OUT"
^XMB(3.9,144,2,1929,0)="""RTN"",""SROVAR"",80,0)"
^XMB(3.9,144,2,1930,0)=" Q"
^XMB(3.9,144,2,1931,0)="""RTN"",""SROVAR"",81,0)"
^XMB(3.9,144,2,1932,0)="PLUS24 S:SRNULL SR130=""TIME PAT IN OR"" S (SRV,Y)=X X ^DD(""DD"") S SRY=Y"
^XMB(3.9,144,2,1933,0)="""RTN"",""SROVAR"",82,0)"
^XMB(3.9,144,2,1934,0)=" K DIR S DIR(""A"",1)="""",DIR(""A"",2)=""The time you have entered is earlier than ""_SR130_""."",DIR(""A"")=""Do you mean ""_SRY_"" (Y/N) ? "",DIR(0)=""YA"" D ^DIR K DIR I 'Y!$D(DTOUT)!$D(DUOUT) K X Q"
^XMB(3.9,144,2,1935,0)="""RTN"",""SROVAR"",83,0)"
^XMB(3.9,144,2,1936,0)=" S X=SRV"
^XMB(3.9,144,2,1937,0)="""RTN"",""SROVAR"",84,0)"
^XMB(3.9,144,2,1938,0)=" Q"
^XMB(3.9,144,2,1939,0)="""RTN"",""SROVAR"",85,0)"
^XMB(3.9,144,2,1940,0)="CLEAR ; clean-up case edit/lock flags in ^XTMP"
^XMB(3.9,144,2,1941,0)="""RTN"",""SROVAR"",86,0)"
^XMB(3.9,144,2,1942,0)=" N SRC,SRJ,SRL,SRNOW,SRNOW1,SRZ S SRNOW=$$NOW^XLFDT"
^XMB(3.9,144,2,1943,0)="""RTN"",""SROVAR"",87,0)"
^XMB(3.9,144,2,1944,0)=" S SRC=""SRLOCK-0"" F  S SRC=$O(^XTMP(SRC)) Q:SRC'[""SRLOCK-""  D"
^XMB(3.9,144,2,1945,0)="""RTN"",""SROVAR"",88,0)"
^XMB(3.9,144,2,1946,0)=" .S SRJ=0 F  S SRJ=$O(^XTMP(SRC,DUZ,SRJ)) Q:'SRJ  D"
^XMB(3.9,144,2,1947,0)="""RTN"",""SROVAR"",89,0)"
^XMB(3.9,144,2,1948,0)=" ..I SRJ=$J L -^XTMP(SRC,DUZ,SRJ) K ^XTMP(SRC,DUZ,SRJ) I '$O(^XTMP(SRC,0)) L -^XTMP(SRC) K ^XTMP(SRC) Q"
^XMB(3.9,144,2,1949,0)="""RTN"",""SROVAR"",90,0)"
^XMB(3.9,144,2,1950,0)=" ..S SRNOW1=$P($G(^XTMP(SRC,0)),""^"") I SRNOW>SRNOW1 L -^XTMP(SRC) K ^XTMP(SRC)"
^XMB(3.9,144,2,1951,0)="""RTN"",""SROVAR"",91,0)"
^XMB(3.9,144,2,1952,0)=" Q"
^XMB(3.9,144,2,1953,0)="""RTN"",""SRSCAN0"")"
^XMB(3.9,144,2,1954,0)="0^7^B15578926^B15413492"
^XMB(3.9,144,2,1955,0)="""RTN"",""SRSCAN0"",1,0)"
^XMB(3.9,144,2,1956,0)="SRSCAN0 ;B'HAM ISC/MAM - CANCEL SCHEDULED OPERATIONS (CONT) ;03/21/02  10:24 PM"
^XMB(3.9,144,2,1957,0)="""RTN"",""SRSCAN0"",2,0)"
^XMB(3.9,144,2,1958,0)=" ;;3.0; Surgery ;**34,42,67,103,107,114,100,144**;24 Jun 93"
^XMB(3.9,144,2,1959,0)="""RTN"",""SRSCAN0"",3,0)"
^XMB(3.9,144,2,1960,0)=" ;"
^XMB(3.9,144,2,1961,0)="""RTN"",""SRSCAN0"",4,0)"
^XMB(3.9,144,2,1962,0)=" ; Reference to ^TMP(""CSLSUR1"" supported by DBIA #3498"
^XMB(3.9,144,2,1963,0)="""RTN"",""SRSCAN0"",5,0)"
^XMB(3.9,144,2,1964,0)=" ;"
^XMB(3.9,144,2,1965,0)="""RTN"",""SRSCAN0"",6,0)"
^XMB(3.9,144,2,1966,0)="CUT S X1=SRSDATE,X2=-1 D C^%DTC S SRSDT=X,X=$P($G(^SRO(133,SRSITE,0)),""^"",12) S SRTIME=SRSDT_"".""_$S(X'="""":X,1:1500)"
^XMB(3.9,144,2,1967,0)="""RTN"",""SRSCAN0"",7,0)"
^XMB(3.9,144,2,1968,0)=" S SRTYPE=$P(^SRF(SRTN,0),""^"",10) I SRTYPE=""S"" W !!,""Case schedule type is STANDBY. """
^XMB(3.9,144,2,1969,0)="""RTN"",""SRSCAN0"",8,0)"
^XMB(3.9,144,2,1970,0)=" D NOW^%DTC S SRN=+$E(%,1,12) I SRTYPE'=""S"",SRN'<SRTIME G SWAP"
^XMB(3.9,144,2,1971,0)="""RTN"",""SRSCAN0"",9,0)"
^XMB(3.9,144,2,1972,0)=" S SRBOTH=0 I $P($G(^SRF(SRTN,""CON"")),""^"") S SRBOTH=1"
^XMB(3.9,144,2,1973,0)="""RTN"",""SRSCAN0"",10,0)"
^XMB(3.9,144,2,1974,0)="REQ I 'SRBOTH D ^SRSCG"
^XMB(3.9,144,2,1975,0)="""RTN"",""SRSCAN0"",11,0)"
^XMB(3.9,144,2,1976,0)=" S SRSCHST=$P($G(^SRF(SRTN,31)),""^"",4) K:SRSCHST&SRSOR ^SRF(""AMM"",SRSOR,SRSCHST,SRTN)"
^XMB(3.9,144,2,1977,0)="""RTN"",""SRSCAN0"",12,0)"
^XMB(3.9,144,2,1978,0)=" S $P(^SRF(SRTN,31),""^"",4)="""",$P(^SRF(SRTN,31),""^"",5)="""",^SRF(SRTN,""REQ"")=1,^SRF(""AR"",SRSDATE,DFN,SRTN)="""",^TMP(""SRPFSS"",$J)="""""
^XMB(3.9,144,2,1979,0)="""RTN"",""SRSCAN0"",13,0)"
^XMB(3.9,144,2,1980,0)=" K DR S DA=SRTN,DR="".02///@"",DIE=130 D ^DIE K DR D OERR"
^XMB(3.9,144,2,1981,0)="""RTN"",""SRSCAN0"",14,0)"
^XMB(3.9,144,2,1982,0)=" I '$P($G(^SRF(SRTN,""1.0"")),""^"",11) D"
^XMB(3.9,144,2,1983,0)="""RTN"",""SRSCAN0"",15,0)"
^XMB(3.9,144,2,1984,0)=" .N SREQ"
^XMB(3.9,144,2,1985,0)="""RTN"",""SRSCAN0"",16,0)"
^XMB(3.9,144,2,1986,0)=" .S SREQ(130,SRTN_"","",1.098)=+SRN,SREQ(130,SRTN_"","",1.099)=DUZ"
^XMB(3.9,144,2,1987,0)="""RTN"",""SRSCAN0"",17,0)"
^XMB(3.9,144,2,1988,0)=" .D FILE^DIE("""",""SREQ"",""^TMP(""""SR"""",$J)"")"
^XMB(3.9,144,2,1989,0)="""RTN"",""SRSCAN0"",18,0)"
^XMB(3.9,144,2,1990,0)=" W !!,""Case #""_SRTN_"" has been removed from the schedule and changed to a request."""
^XMB(3.9,144,2,1991,0)="""RTN"",""SRSCAN0"",19,0)"
^XMB(3.9,144,2,1992,0)=" I SRBOTH G ASK"
^XMB(3.9,144,2,1993,0)="""RTN"",""SRSCAN0"",20,0)"
^XMB(3.9,144,2,1994,0)="PRESS W ! K DIR S DIR(0)=""E"" D ^DIR"
^XMB(3.9,144,2,1995,0)="""RTN"",""SRSCAN0"",21,0)"
^XMB(3.9,144,2,1996,0)=" Q"
^XMB(3.9,144,2,1997,0)="""RTN"",""SRSCAN0"",22,0)"
^XMB(3.9,144,2,1998,0)="ASK S SRBOTH=0 W !!,""There is a concurrent case associated with this operation.  Do you want to"",!,""remove it from the schedule also ? YES// "" R SRYN:DTIME I '$T!(SRYN[""^"") S SRYN=""N"""
^XMB(3.9,144,2,1999,0)="""RTN"",""SRSCAN0"",23,0)"
^XMB(3.9,144,2,2000,0)=" S SRYN=$E(SRYN) S:SRYN="""" SRYN=""Y"""
^XMB(3.9,144,2,2001,0)="""RTN"",""SRSCAN0"",24,0)"
^XMB(3.9,144,2,2002,0)=" I ""YyNn""'[SRYN W !!,""If you want to remove both cases from the schedule, enter 'YES'.  If you"",!,""answer 'NO', the cases will no longer be associated with each other."" G ASK"
^XMB(3.9,144,2,2003,0)="""RTN"",""SRSCAN0"",25,0)"
^XMB(3.9,144,2,2004,0)=" I ""Yy""[SRYN S SRTN=$P(^SRF(SRTN,""CON""),""^"") G REQ"
^XMB(3.9,144,2,2005,0)="""RTN"",""SRSCAN0"",26,0)"
^XMB(3.9,144,2,2006,0)="NOCC ; no longer concurrent cases"
^XMB(3.9,144,2,2007,0)="""RTN"",""SRSCAN0"",27,0)"
^XMB(3.9,144,2,2008,0)=" S DA=$P(^SRF(SRTN,""CON""),""^""),DIE=130,DR=""35///@"" D ^DIE S SROERR=DA D ^SROERR0 S DA=SRTN D ^DIE,OERR,UNLOCK^SROUTL(DA)"
^XMB(3.9,144,2,2009,0)="""RTN"",""SRSCAN0"",28,0)"
^XMB(3.9,144,2,2010,0)=" Q"
^XMB(3.9,144,2,2011,0)="""RTN"",""SRSCAN0"",29,0)"
^XMB(3.9,144,2,2012,0)="SWAP ; move data into a new entry and set up the cancel date in the old"
^XMB(3.9,144,2,2013,0)="""RTN"",""SRSCAN0"",30,0)"
^XMB(3.9,144,2,2014,0)=" W ! K DIR S DIR(0)=""130,18"",DIR(""A"")=""Cancellation Reason"" D ^DIR S SRSCAN=$P(Y,""^"") I $D(DIRUT) W !!,""Case NOT cancelled."" D PRESS G END"
^XMB(3.9,144,2,2015,0)="""RTN"",""SRSCAN0"",31,0)"
^XMB(3.9,144,2,2016,0)=" K DR S SRCON=0,DA=SRTN,DR="".02///@;102///@;235///@;284///@;323///@;18////""_SRSCAN_"";67T;70////""_DUZ,DIE=130 D ^DIE S:$D(DTOUT)!$D(DUOUT) SRSOUT=1"
^XMB(3.9,144,2,2017,0)="""RTN"",""SRSCAN0"",32,0)"
^XMB(3.9,144,2,2018,0)=" S SRSCHST=$P($G(^SRF(SRTN,31)),""^"",4),AVOID=$P(^(30),""^"",2)"
^XMB(3.9,144,2,2019,0)="""RTN"",""SRSCAN0"",33,0)"
^XMB(3.9,144,2,2020,0)=" I '$P($G(^SRF(SRTN,""CON"")),""^"") D ^SRSCG"
^XMB(3.9,144,2,2021,0)="""RTN"",""SRSCAN0"",34,0)"
^XMB(3.9,144,2,2022,0)=" S SRSDPT=$P(^SRF(SRTN,0),""^""),SRSOP=$P(^SRF(SRTN,""OP""),""^"")"
^XMB(3.9,144,2,2023,0)="""RTN"",""SRSCAN0"",35,0)"
^XMB(3.9,144,2,2024,0)=" S SRSSET=$P(^SRF(SRTN,31),""^"",5),$P(^SRF(SRTN,31),""^"",4)="""",$P(^SRF(SRTN,31),""^"",5)="""""
^XMB(3.9,144,2,2025,0)="""RTN"",""SRSCAN0"",36,0)"
^XMB(3.9,144,2,2026,0)="SWAP2 K:SRSCHST&SRSOR ^SRF(""AMM"",SRSOR,SRSCHST,SRTN) D NOW^%DTC S $P(^SRF(SRTN,30),""^"")=$E(%,1,12)"
^XMB(3.9,144,2,2027,0)="""RTN"",""SRSCAN0"",37,0)"
^XMB(3.9,144,2,2028,0)=" I '$P($G(^SRF(SRTN,""CON"")),""^"") D OERR"
^XMB(3.9,144,2,2029,0)="""RTN"",""SRSCAN0"",38,0)"
^XMB(3.9,144,2,2030,0)=" I SRSCAN'="""" G:$P(^SRO(135,SRSCAN,0),""^"",2)=""D"" CON"
^XMB(3.9,144,2,2031,0)="""RTN"",""SRSCAN0"",39,0)"
^XMB(3.9,144,2,2032,0)=" D:'SRSOUT ^SRSCAN2"
^XMB(3.9,144,2,2033,0)="""RTN"",""SRSCAN0"",40,0)"
^XMB(3.9,144,2,2034,0)="CON I '$D(SRSCC),$D(^SRF(SRTN,""CON"")),$P(^(""CON""),""^"")'="""" D CANCC^SRSUTL2 Q:SRBOTH=""^""!SRSOUT  I SRBOTH=1 G CON1"
^XMB(3.9,144,2,2035,0)="""RTN"",""SRSCAN0"",41,0)"
^XMB(3.9,144,2,2036,0)=" I SRCON'=0,SRTNEW'=SRCON K DR S DA=SRTNEW,DIE=130,DR=""35////""_SRCON D ^DIE S DA=SRCON,DR=""35////""_SRTNEW D ^DIE K DR S SROERR=SRCON D ^SROERR0"
^XMB(3.9,144,2,2037,0)="""RTN"",""SRSCAN0"",42,0)"
^XMB(3.9,144,2,2038,0)=" I $G(SRDEAD)=0,$G(SRBOTH)=1,$G(SRSCC)=1 S SROERR=$P(^SRF(SRTN,""CON""),""^"") D ^SROERR0 S SROERR=SRTN,^TMP(""CSLSUR1"",$J)="""" D ^SROERR0"
^XMB(3.9,144,2,2039,0)="""RTN"",""SRSCAN0"",43,0)"
^XMB(3.9,144,2,2040,0)="END D UNLOCK^SROUTL(SRTN),^SRSKILL K SRTN W @IOF"
^XMB(3.9,144,2,2041,0)="""RTN"",""SRSCAN0"",44,0)"
^XMB(3.9,144,2,2042,0)=" Q"
^XMB(3.9,144,2,2043,0)="""RTN"",""SRSCAN0"",45,0)"
^XMB(3.9,144,2,2044,0)="CON1 I SRDEAD=0 G SWAP2"
^XMB(3.9,144,2,2045,0)="""RTN"",""SRSCAN0"",46,0)"
^XMB(3.9,144,2,2046,0)=" K DR S DA=SRTN,DR="".02///@;102///@;235///@;284///@;323///@;18///""_$P(^SRO(135,SRSCAN,0),""^"")_"";67///""_AVOID_"";70////""_DUZ,DIE=130 D ^DIE"
^XMB(3.9,144,2,2047,0)="""RTN"",""SRSCAN0"",47,0)"
^XMB(3.9,144,2,2048,0)=" D NOW^%DTC S $P(^SRF(SRTN,30),""^"")=$E(%,1,12),$P(^SRF(SRTN,31),""^"",4)="""",$P(^SRF(SRTN,31),""^"",5)="""""
^XMB(3.9,144,2,2049,0)="""RTN"",""SRSCAN0"",48,0)"
^XMB(3.9,144,2,2050,0)="OERR ; update ORDER file (100)"
^XMB(3.9,144,2,2051,0)="""RTN"",""SRSCAN0"",49,0)"
^XMB(3.9,144,2,2052,0)=" S SROERR=SRTN K SRTX D ^SROERR0"
^XMB(3.9,144,2,2053,0)="""RTN"",""SRSCAN0"",50,0)"
^XMB(3.9,144,2,2054,0)=" Q"
^XMB(3.9,144,2,2055,0)="""RTN"",""SRSCAN2"")"
^XMB(3.9,144,2,2056,0)="0^13^B12532535^B12416665"
^XMB(3.9,144,2,2057,0)="""RTN"",""SRSCAN2"",1,0)"
^XMB(3.9,144,2,2058,0)="SRSCAN2 ;BIR/MAM - MAKE NEW REQUEST WHEN CANCELLED ; [ 06/14/01  9:57 AM ]"
^XMB(3.9,144,2,2059,0)="""RTN"",""SRSCAN2"",2,0)"
^XMB(3.9,144,2,2060,0)=" ;;3.0; Surgery ;**3,16,34,67,77,88,92,103,144**;24 Jun 93"
^XMB(3.9,144,2,2061,0)="""RTN"",""SRSCAN2"",3,0)"
^XMB(3.9,144,2,2062,0)="START W !!,""Do you want to create a new request for this cancelled case ??  YES// "" R SRYN:DTIME I '$T!(SRYN[""^"") Q"
^XMB(3.9,144,2,2063,0)="""RTN"",""SRSCAN2"",4,0)"
^XMB(3.9,144,2,2064,0)=" S SRYN=$E(SRYN) S:SRYN="""" SRYN=""Y"""
^XMB(3.9,144,2,2065,0)="""RTN"",""SRSCAN2"",5,0)"
^XMB(3.9,144,2,2066,0)=" I ""YyNn""'[SRYN W !!,""Enter 'YES' to automatically move the information contained in this scheduled"",!,""case to a new request, or 'NO' to not create a new request."" G START"
^XMB(3.9,144,2,2067,0)="""RTN"",""SRSCAN2"",6,0)"
^XMB(3.9,144,2,2068,0)=" I ""Yy""'[SRYN Q"
^XMB(3.9,144,2,2069,0)="""RTN"",""SRSCAN2"",7,0)"
^XMB(3.9,144,2,2070,0)=" D NEWDT"
^XMB(3.9,144,2,2071,0)="""RTN"",""SRSCAN2"",8,0)"
^XMB(3.9,144,2,2072,0)="DATE W ! K %DT S %DT=""AEFX"",%DT(""A"")=""Make the new request for which Date ?  "",%DT(""B"")=SRY D ^%DT I Y<0 S OK=1 D HELP Q:'OK  G DATE"
^XMB(3.9,144,2,2073,0)="""RTN"",""SRSCAN2"",9,0)"
^XMB(3.9,144,2,2074,0)=" S SRX=+Y D CHK G:$D(SRLATE) DATE S SRNEWDT=SRX W !!,""Creating the new request..."""
^XMB(3.9,144,2,2075,0)="""RTN"",""SRSCAN2"",10,0)"
^XMB(3.9,144,2,2076,0)=" K DA,DIC,DD,DO,DINUM S X=SRSDPT,DIC=""^SRF("",DIC(0)=""L"",DLAYGO=130 D FILE^DICN K DD,DO,DIC,DLAYGO S SRTNEW=+Y"
^XMB(3.9,144,2,2077,0)="""RTN"",""SRSCAN2"",11,0)"
^XMB(3.9,144,2,2078,0)=" S %X=""^SRF(""_SRTOLD_"","",%Y=""^SRF(""_SRTNEW_"","" D %XY^%RCR K ^SRF(SRTNEW,""PFSS"")"
^XMB(3.9,144,2,2079,0)="""RTN"",""SRSCAN2"",12,0)"
^XMB(3.9,144,2,2080,0)=" S SRSOP=$P(^SRF(SRTNEW,""OP""),""^""),SRSCPT=$P(^SRF(SRTNEW,""OP""),""^"",2),SRSDOC=$S($D(^SRF(SRTNEW,.1)):$P(^(.1),""^"",4),1:"""")"
^XMB(3.9,144,2,2081,0)="""RTN"",""SRSCAN2"",13,0)"
^XMB(3.9,144,2,2082,0)=" K ^SRF(SRTNEW,31),^SRF(SRTNEW,30) S $P(^SRF(SRTNEW,0),""^"",2)="""""
^XMB(3.9,144,2,2083,0)="""RTN"",""SRSCAN2"",14,0)"
^XMB(3.9,144,2,2084,0)=" N SREQ D NOW^%DTC S SREQ(130,SRTNEW_"","",1.098)=+$E(%,1,12),SREQ(130,SRTNEW_"","",1.099)=DUZ D FILE^DIE("""",""SREQ"",""^TMP(""""SR"""",$J)"")"
^XMB(3.9,144,2,2085,0)="""RTN"",""SRSCAN2"",15,0)"
^XMB(3.9,144,2,2086,0)=" S DR=""36////1;Q;.09////""_SRNEWDT_"";26////""_SRSOP,DA=SRTNEW,DIE=130 D ^DIE"
^XMB(3.9,144,2,2087,0)="""RTN"",""SRSCAN2"",16,0)"
^XMB(3.9,144,2,2088,0)=" K DR,DA S DR=""[SRO-NOCOMP]"",DA=SRTNEW,DIE=130 D ^DIE K DR"
^XMB(3.9,144,2,2089,0)="""RTN"",""SRSCAN2"",17,0)"
^XMB(3.9,144,2,2090,0)=" K DR S DIE=130,DA=SRTNEW,DR=""68////""_SRSOP D ^DIE K DR"
^XMB(3.9,144,2,2091,0)="""RTN"",""SRSCAN2"",18,0)"
^XMB(3.9,144,2,2092,0)=" S SRATT=$P($G(^SRF(SRTN,.1)),""^"",13)"
^XMB(3.9,144,2,2093,0)="""RTN"",""SRSCAN2"",19,0)"
^XMB(3.9,144,2,2094,0)=" K DIE,DR,DA S DIE=130,DA=SRTNEW,DR="".14////""_SRSDOC_"";.164////""_SRATT_"";.04////""_$P(^SRF(SRTN,0),""^"",4) D ^DIE K DR S SRTN=SRTNEW D ^SROXRET"
^XMB(3.9,144,2,2095,0)="""RTN"",""SRSCAN2"",20,0)"
^XMB(3.9,144,2,2096,0)=" I $D(^SRF(SRTNEW,""CON"")) S DA=SRTNEW,DIE=130,DR=""35///@"" D ^DIE K DR,DA"
^XMB(3.9,144,2,2097,0)="""RTN"",""SRSCAN2"",21,0)"
^XMB(3.9,144,2,2098,0)=" D NOW^%DTC S SRCAN=+$E(%,1,12),DA=SRTOLD,DIE=130,DR="".02///@;17////""_SRCAN D ^DIE K DR"
^XMB(3.9,144,2,2099,0)="""RTN"",""SRSCAN2"",22,0)"
^XMB(3.9,144,2,2100,0)=" S $P(^SRF(SRTOLD,31),""^"",4)="""",$P(^(31),""^"",5)="""""
^XMB(3.9,144,2,2101,0)="""RTN"",""SRSCAN2"",23,0)"
^XMB(3.9,144,2,2102,0)=" S SRTN=SRTNEW D ^SROERR S SRTN=SRTOLD"
^XMB(3.9,144,2,2103,0)="""RTN"",""SRSCAN2"",24,0)"
^XMB(3.9,144,2,2104,0)=" Q"
^XMB(3.9,144,2,2105,0)="""RTN"",""SRSCAN2"",25,0)"
^XMB(3.9,144,2,2106,0)="HELP W !!,""To make a new request, you must select a future date.  Do you want to select"",!,""another date ?  YES// "" R X:DTIME I '$T!(X[""^"") S OK=0 Q"
^XMB(3.9,144,2,2107,0)="""RTN"",""SRSCAN2"",26,0)"
^XMB(3.9,144,2,2108,0)=" S X=$E(X) I ""YyNn""'[X W !!,""Enter 'YES' to select another date, or 'NO' to bypass making a new request."" G HELP"
^XMB(3.9,144,2,2109,0)="""RTN"",""SRSCAN2"",27,0)"
^XMB(3.9,144,2,2110,0)=" I ""Yy""'[X S OK=0"
^XMB(3.9,144,2,2111,0)="""RTN"",""SRSCAN2"",28,0)"
^XMB(3.9,144,2,2112,0)=" Q"
^XMB(3.9,144,2,2113,0)="""RTN"",""SRSCAN2"",29,0)"
^XMB(3.9,144,2,2114,0)="NEWDT ; get six month default date for new request"
^XMB(3.9,144,2,2115,0)="""RTN"",""SRSCAN2"",30,0)"
^XMB(3.9,144,2,2116,0)=" S SRX1=$E($P(^SRF(SRTOLD,0),""^"",9),1,7),SRX2=182 K SRCHK D DAY S Y=SRX D D^DIQ S SRY=Y"
^XMB(3.9,144,2,2117,0)="""RTN"",""SRSCAN2"",31,0)"
^XMB(3.9,144,2,2118,0)=" Q"
^XMB(3.9,144,2,2119,0)="""RTN"",""SRSCAN2"",32,0)"
^XMB(3.9,144,2,2120,0)="CHK ; check for valid request date"
^XMB(3.9,144,2,2121,0)="""RTN"",""SRSCAN2"",33,0)"
^XMB(3.9,144,2,2122,0)=" N SRSDATE S SRSDATE=SRX K SRLATE D LATE^SRSREQ"
^XMB(3.9,144,2,2123,0)="""RTN"",""SRSCAN2"",34,0)"
^XMB(3.9,144,2,2124,0)=" Q"
^XMB(3.9,144,2,2125,0)="""RTN"",""SRSCAN2"",35,0)"
^XMB(3.9,144,2,2126,0)="DAY ; get valid default request date"
^XMB(3.9,144,2,2127,0)="""RTN"",""SRSCAN2"",36,0)"
^XMB(3.9,144,2,2128,0)=" S X1=SRX1,X2=SRX2 D C^%DTC I X<DT S SRX1=DT,SRX2=1 G DAY"
^XMB(3.9,144,2,2129,0)="""RTN"",""SRSCAN2"",37,0)"
^XMB(3.9,144,2,2130,0)=" S SRX=X K DIC S DIC=40.5,DIC(0)=""XM"" D ^DIC K DIC"
^XMB(3.9,144,2,2131,0)="""RTN"",""SRSCAN2"",38,0)"
^XMB(3.9,144,2,2132,0)=" I Y'=-1,'$D(^SRO(133,SRSITE,3,X,0)) S SRX2=SRX2+1 G DAY"
^XMB(3.9,144,2,2133,0)="""RTN"",""SRSCAN2"",39,0)"
^XMB(3.9,144,2,2134,0)=" S X=SRX D H^%DTC S SRDAY=%Y+1 S SRDL=$P($G(^SRO(133,SRSITE,2)),""^"",SRDAY) S:SRDL="""" SRDL=1 I 'SRDL S SRX2=SRX2+1 G DAY"
^XMB(3.9,144,2,2135,0)="""RTN"",""SRSCAN2"",40,0)"
^XMB(3.9,144,2,2136,0)=" Q:'$D(SRSITE(""REQ""))  S X1=SRX,X2=-SRDL D C^%DTC S SRDTL=X S DIC=40.5,DIC(0)=""XM"" D ^DIC K DIC I Y'=-1,'$D(^SRO(133,SRSITE,3,X,0)) S SRX2=SRX2+1 G DAY"
^XMB(3.9,144,2,2137,0)="""RTN"",""SRSCAN2"",41,0)"
^XMB(3.9,144,2,2138,0)=" S SRTCHK=SRDTL_"".""_SRSITE(""REQ"") D NOW^%DTC I %>SRTCHK S SRX2=SRX2+1 G DAY"
^XMB(3.9,144,2,2139,0)="""RTN"",""SRSCAN2"",42,0)"
^XMB(3.9,144,2,2140,0)=" Q"
^XMB(3.9,144,2,2141,0)="""RTN"",""SRSCHUN"")"
^XMB(3.9,144,2,2142,0)="0^10^B27018282^B18782437"
^XMB(3.9,144,2,2143,0)="""RTN"",""SRSCHUN"",1,0)"
^XMB(3.9,144,2,2144,0)="SRSCHUN ;BIR/ADM - MAKE UNREQUESTED OPERATION ;02/07/05"
^XMB(3.9,144,2,2145,0)="""RTN"",""SRSCHUN"",2,0)"
^XMB(3.9,144,2,2146,0)=" ;;3.0; Surgery ;**3,67,68,88,103,100,144**;24 Jun 93"
^XMB(3.9,144,2,2147,0)="""RTN"",""SRSCHUN"",3,0)"
^XMB(3.9,144,2,2148,0)="MUST S SRLINE="""" F I=1:1:80 S SRLINE=SRLINE_""="""
^XMB(3.9,144,2,2149,0)="""RTN"",""SRSCHUN"",4,0)"
^XMB(3.9,144,2,2150,0)=" W @IOF W:$D(SRCC) !,?29,$S(SRSCON=1:""FIRST"",1:""SECOND"")_"" CONCURRENT CASE"" W !,?14,""SCHEDULE UNREQUESTED OPERATION: REQUIRED INFORMATION"",!!,SRNM_"" (""_$G(SRSSN)_"")"",?65,SREQDT,!,SRLINE,!"
^XMB(3.9,144,2,2151,0)="""RTN"",""SRSCHUN"",5,0)"
^XMB(3.9,144,2,2152,0)="SURG ; surgeon"
^XMB(3.9,144,2,2153,0)="""RTN"",""SRSCHUN"",6,0)"
^XMB(3.9,144,2,2154,0)=" K DIR S DIR(0)=""130,.14"",DIR(""A"")=""Surgeon"" D ^DIR K DIR I $D(DTOUT)!(X=""^"") S SRSOUT=1 G END"
^XMB(3.9,144,2,2155,0)="""RTN"",""SRSCHUN"",7,0)"
^XMB(3.9,144,2,2156,0)=" I Y=""""!(X[""^"") W !!,""To create a surgical case, a surgeon MUST be selected.  Enter '^' to exit."",! G SURG"
^XMB(3.9,144,2,2157,0)="""RTN"",""SRSCHUN"",8,0)"
^XMB(3.9,144,2,2158,0)=" S SRSDOC=+Y"
^XMB(3.9,144,2,2159,0)="""RTN"",""SRSCHUN"",9,0)"
^XMB(3.9,144,2,2160,0)="CASE ; create case in SURGERY file"
^XMB(3.9,144,2,2161,0)="""RTN"",""SRSCHUN"",10,0)"
^XMB(3.9,144,2,2162,0)=" K DA,DIC,DD,DO,DINUM,SRTN S X=SRSDPT,DIC=""^SRF("",DIC(0)=""L"",DLAYGO=130 D FILE^DICN K DD,DO,DIC,DLAYGO S SRTN=+Y,SRLCK=$$LOCK^SROUTL(SRTN)"
^XMB(3.9,144,2,2163,0)="""RTN"",""SRSCHUN"",11,0)"
^XMB(3.9,144,2,2164,0)=" S ^SRF(SRTN,8)=SRSITE(""DIV""),^SRF(SRTN,""OP"")="""""
^XMB(3.9,144,2,2165,0)="""RTN"",""SRSCHUN"",12,0)"
^XMB(3.9,144,2,2166,0)=" D NOW^%DTC S SREQDAY=+$E(%,1,12),SRNOCON=1 K DR,DIE"
^XMB(3.9,144,2,2167,0)="""RTN"",""SRSCHUN"",13,0)"
^XMB(3.9,144,2,2168,0)=" S DA=SRTN,DIE=130,DR="".09////""_SRSDATE_"";.14////""_SRSDOC_"";1.098////""_+SREQDAY_"";1.099////""_DUZ_"";Q;.02////""_SRSOR_"";10////""_SRSDT1_"";11////""_SRSDT2 D ^DIE K DR"
^XMB(3.9,144,2,2169,0)="""RTN"",""SRSCHUN"",14,0)"
^XMB(3.9,144,2,2170,0)="ASURG ; attending surgeon"
^XMB(3.9,144,2,2171,0)="""RTN"",""SRSCHUN"",15,0)"
^XMB(3.9,144,2,2172,0)=" K DA,DIC,DIQ,DR,SRY S DIC=""^SRF("",DA=SRTN,DIQ=""SRY"",DIQ(0)=""E"",DR=.164 D EN^DIQ1 K DA,DIC,DIQ,DR"
^XMB(3.9,144,2,2173,0)="""RTN"",""SRSCHUN"",16,0)"
^XMB(3.9,144,2,2174,0)=" I $G(SRY(130,SRTN,.164,""E""))'="""" S SRATTND=SRY(130,SRTN,.164,""E"") W !,""Attending Surgeon: ""_SRATTND,! G SPEC"
^XMB(3.9,144,2,2175,0)="""RTN"",""SRSCHUN"",17,0)"
^XMB(3.9,144,2,2176,0)=" K DIR S DIR(0)=""130,.164"",DIR(""A"")=""Attending Surgeon"" D ^DIR K DIR I $D(DTOUT)!(X=""^"") S SRSOUT=1 G DEL"
^XMB(3.9,144,2,2177,0)="""RTN"",""SRSCHUN"",18,0)"
^XMB(3.9,144,2,2178,0)=" I Y=""""!(X[""^"") W !!,""An Attending Surgeon must be entered when creating a case. Enter '^' to exit."",! G ASURG"
^XMB(3.9,144,2,2179,0)="""RTN"",""SRSCHUN"",19,0)"
^XMB(3.9,144,2,2180,0)=" S SRATTND=+Y"
^XMB(3.9,144,2,2181,0)="""RTN"",""SRSCHUN"",20,0)"
^XMB(3.9,144,2,2182,0)="SPEC ; surgical specialty"
^XMB(3.9,144,2,2183,0)="""RTN"",""SRSCHUN"",21,0)"
^XMB(3.9,144,2,2184,0)=" K DIR S DIR(0)=""130,.04"",DIR(""A"")=""Surgical Specialty"" D ^DIR K DIR I $D(DTOUT)!(X=""^"") S SRSOUT=1 G DEL"
^XMB(3.9,144,2,2185,0)="""RTN"",""SRSCHUN"",22,0)"
^XMB(3.9,144,2,2186,0)=" I Y=""""!(X[""^"") W !!,""To create a surgical case, a surgical specialty MUST be selected.  Enter '^'"",!,""to exit."",! G SPEC"
^XMB(3.9,144,2,2187,0)="""RTN"",""SRSCHUN"",23,0)"
^XMB(3.9,144,2,2188,0)=" S SRSS=+Y"
^XMB(3.9,144,2,2189,0)="""RTN"",""SRSCHUN"",24,0)"
^XMB(3.9,144,2,2190,0)="OP ; principal operative procedure"
^XMB(3.9,144,2,2191,0)="""RTN"",""SRSCHUN"",25,0)"
^XMB(3.9,144,2,2192,0)=" K DIR S DIR(0)=""130,26"",DIR(""A"")=""Principal Operative Procedure"" D ^DIR K DIR I $D(DTOUT)!(X=""^"") S SRSOUT=1 G DEL"
^XMB(3.9,144,2,2193,0)="""RTN"",""SRSCHUN"",26,0)"
^XMB(3.9,144,2,2194,0)=" I X[""^"" W !!,""Principal procedure must not contain an up-arrow (^)."",! G OP"
^XMB(3.9,144,2,2195,0)="""RTN"",""SRSCHUN"",27,0)"
^XMB(3.9,144,2,2196,0)=" S SRSOP=Y I SRSOP="""" G OP"
^XMB(3.9,144,2,2197,0)="""RTN"",""SRSCHUN"",28,0)"
^XMB(3.9,144,2,2198,0)="OPD ; Principal Preoperative Diagnosis"
^XMB(3.9,144,2,2199,0)="""RTN"",""SRSCHUN"",29,0)"
^XMB(3.9,144,2,2200,0)=" K DIR S DIR(0)=""130,32"",DIR(""A"")=""Principal Preoperative Diagnosis"" D ^DIR K DIR I $D(DTOUT)!(X=""^"") S SRSOUT=1 G DEL"
^XMB(3.9,144,2,2201,0)="""RTN"",""SRSCHUN"",30,0)"
^XMB(3.9,144,2,2202,0)=" I Y=""""!(X[""^"") W !!,""A Principal Preoperative Diagnosis must be entered"",!,""when creating a new case. Enter '^' to exit."",! G OPD"
^XMB(3.9,144,2,2203,0)="""RTN"",""SRSCHUN"",31,0)"
^XMB(3.9,144,2,2204,0)=" I X["";"" W !,""The Principal Preoperative Diagnosis cannot contain a semicolon (;)."",!,""Please re-enter the Diagnosis, using commas in place of the semicolons."" G OPD"
^XMB(3.9,144,2,2205,0)="""RTN"",""SRSCHUN"",32,0)"
^XMB(3.9,144,2,2206,0)=" S SRSOPD=Y"
^XMB(3.9,144,2,2207,0)="""RTN"",""SRSCHUN"",33,0)"
^XMB(3.9,144,2,2208,0)=" W !!,""The information entered into the Principal Preoperative Diagnosis field"",!,""has been transferred into the Indications for Operation field."",!,""The Indications for Operation field can be updated later if necessary."",!"
^XMB(3.9,144,2,2209,0)="""RTN"",""SRSCHUN"",34,0)"
^XMB(3.9,144,2,2210,0)=" W !!,""Press RETURN to continue  "" R X:DTIME"
^XMB(3.9,144,2,2211,0)="""RTN"",""SRSCHUN"",35,0)"
^XMB(3.9,144,2,2212,0)="UPDATE ; update case in SURGERY file"
^XMB(3.9,144,2,2213,0)="""RTN"",""SRSCHUN"",36,0)"
^XMB(3.9,144,2,2214,0)=" S DA=SRTN,DIE=130,DR=""26////""_SRSOP_"";68////""_SRSOP_"";36////0;Q;.04////""_SRSS_"";.164////""_SRATTND_"";32////""_SRSOPD D ^DIE"
^XMB(3.9,144,2,2215,0)="""RTN"",""SRSCHUN"",37,0)"
^XMB(3.9,144,2,2216,0)=" K DR,DA S DR=""[SRO-NOCOMP]"",DA=SRTN,DIE=130 D ^DIE K DR"
^XMB(3.9,144,2,2217,0)="""RTN"",""SRSCHUN"",38,0)"
^XMB(3.9,144,2,2218,0)=" D ^SROXRET K SRNOCON"
^XMB(3.9,144,2,2219,0)="""RTN"",""SRSCHUN"",39,0)"
^XMB(3.9,144,2,2220,0)="OTHER ; other required fields"
^XMB(3.9,144,2,2221,0)="""RTN"",""SRSCHUN"",40,0)"
^XMB(3.9,144,2,2222,0)=" S SRFLD=0 F  S SRFLD=$O(^SRO(133,SRSITE,4,SRFLD)) Q:'SRFLD!(SRSOUT)  D OTHDIR Q:SRSOUT"
^XMB(3.9,144,2,2223,0)="""RTN"",""SRSCHUN"",41,0)"
^XMB(3.9,144,2,2224,0)=" I SRSOUT G DEL"
^XMB(3.9,144,2,2225,0)="""RTN"",""SRSCHUN"",42,0)"
^XMB(3.9,144,2,2226,0)=" S SRSOPD(1)=SRSOPD D WP^DIE(130,SRTN_"","",55,""A"",""SRSOPD"")"
^XMB(3.9,144,2,2227,0)="""RTN"",""SRSCHUN"",43,0)"
^XMB(3.9,144,2,2228,0)=" D:$G(SRLCK) UNLOCK^SROUTL(SRTN)"
^XMB(3.9,144,2,2229,0)="""RTN"",""SRSCHUN"",44,0)"
^XMB(3.9,144,2,2230,0)=" S SROERR=SRTN D ^SROERR I $D(SRDUOUT) S SRSOUT=1"
^XMB(3.9,144,2,2231,0)="""RTN"",""SRSCHUN"",45,0)"
^XMB(3.9,144,2,2232,0)=" I $D(SRCC),SRSCON=2 S DIE=130,DR=""35////""_SRSCON(1),DA=SRTN D ^DIE K DR S DR=""35////""_SRTN,DA=SRSCON(1),DIE=130 D ^DIE K DR,DA S SROERR=SRSCON(1) D ^SROERR0"
^XMB(3.9,144,2,2233,0)="""RTN"",""SRSCHUN"",46,0)"
^XMB(3.9,144,2,2234,0)=" Q"
^XMB(3.9,144,2,2235,0)="""RTN"",""SRSCHUN"",47,0)"
^XMB(3.9,144,2,2236,0)="DEL S DA=SRTN,DIK=""^SRF("" D ^DIK G END"
^XMB(3.9,144,2,2237,0)="""RTN"",""SRSCHUN"",48,0)"
^XMB(3.9,144,2,2238,0)="CON ; request concurrent case"
^XMB(3.9,144,2,2239,0)="""RTN"",""SRSCHUN"",49,0)"
^XMB(3.9,144,2,2240,0)=" D MUST Q:SRSOUT  S SRSCON(SRSCON,""DOC"")=$P(^VA(200,SRSDOC,0),""^""),SRSCON(SRSCON,""SS"")=$P(^SRO(137.45,SRSS,0),""^""),SRSCON(SRSCON,""OP"")=$P(^SRF(SRTN,""OP""),""^""),SRSCON(SRSCON)=SRTN K DA"
^XMB(3.9,144,2,2241,0)="""RTN"",""SRSCHUN"",50,0)"
^XMB(3.9,144,2,2242,0)=" Q"
^XMB(3.9,144,2,2243,0)="""RTN"",""SRSCHUN"",51,0)"
^XMB(3.9,144,2,2244,0)="OTHDIR ; call to reader for site specific required fields"
^XMB(3.9,144,2,2245,0)="""RTN"",""SRSCHUN"",52,0)"
^XMB(3.9,144,2,2246,0)=" K DIR,SREQ,SRY S FLD=$P(^SRO(133,SRSITE,4,SRFLD,0),""^"") D FIELD^DID(130,FLD,"""",""TITLE"",""SRY"") S DIR(0)=""130,""_FLD,DIR(""A"")=SRY(""TITLE"") D ^DIR I $D(DTOUT)!(X=""^"") S SRSOUT=1 Q"
^XMB(3.9,144,2,2247,0)="""RTN"",""SRSCHUN"",53,0)"
^XMB(3.9,144,2,2248,0)=" I Y=""""!(X[""^"") W !!,""It is mandatory that you provide this information before proceeding with this"",!,""option."",! D ASK Q:SRSOUT  G OTHDIR"
^XMB(3.9,144,2,2249,0)="""RTN"",""SRSCHUN"",54,0)"
^XMB(3.9,144,2,2250,0)=" S SREQ(130,SRTN_"","",FLD)=$P(Y,""^"") D FILE^DIE("""",""SREQ"",""^TMP(""""SR"""",$J)"")"
^XMB(3.9,144,2,2251,0)="""RTN"",""SRSCHUN"",55,0)"
^XMB(3.9,144,2,2252,0)=" Q"
^XMB(3.9,144,2,2253,0)="""RTN"",""SRSCHUN"",56,0)"
^XMB(3.9,144,2,2254,0)="ASK K DIR S DIR(0)=""Y"",DIR(""A"")=""Do you want to continue with this option "",DIR(""B"")=""YES"""
^XMB(3.9,144,2,2255,0)="""RTN"",""SRSCHUN"",57,0)"
^XMB(3.9,144,2,2256,0)=" S DIR(""?"")=""Enter RETURN to continue with this option, or 'NO' to discontinue this option."" D ^DIR S:'Y SRSOUT=1"
^XMB(3.9,144,2,2257,0)="""RTN"",""SRSCHUN"",58,0)"
^XMB(3.9,144,2,2258,0)=" Q"
^XMB(3.9,144,2,2259,0)="""RTN"",""SRSCHUN"",59,0)"
^XMB(3.9,144,2,2260,0)="END D:$G(SRLCK) UNLOCK^SROUTL(SRTN)"
^XMB(3.9,144,2,2261,0)="""RTN"",""SRSCHUN"",60,0)"
^XMB(3.9,144,2,2262,0)=" I '$D(SRCC),SRSOUT W !!,""No surgical case has been scheduled."",! S SRTN(""OR"")=SRSOR,SRTN(""START"")=SRSDT1,SRTN(""END"")=SRSDT2,SRSEDT=$E(SRSDT2,1,7) D ^SRSCG"
^XMB(3.9,144,2,2263,0)="""RTN"",""SRSCHUN"",61,0)"
^XMB(3.9,144,2,2264,0)=" Q"
^XMB(3.9,144,2,2265,0)="""RTN"",""SRSCPT1"")"
^XMB(3.9,144,2,2266,0)="0^14^B14019263^B15065442"
^XMB(3.9,144,2,2267,0)="""RTN"",""SRSCPT1"",1,0)"
^XMB(3.9,144,2,2268,0)="SRSCPT1 ;BIR/MAM - MISSING CPTS (1 SPECIALTY) ;03/29/06"
^XMB(3.9,144,2,2269,0)="""RTN"",""SRSCPT1"",2,0)"
^XMB(3.9,144,2,2270,0)=" ;;3.0; Surgery ;**59,50,88,142,144**;24 Jun 93"
^XMB(3.9,144,2,2271,0)="""RTN"",""SRSCPT1"",3,0)"
^XMB(3.9,144,2,2272,0)=" F  S SRSDT=$O(^SRF(""AC"",SRSDT)) Q:'SRSDT!(SRSDT>SRSEDT)  S SRTN=0 F  S SRTN=$O(^SRF(""AC"",SRSDT,SRTN)) Q:'SRTN  I $P($G(^SRF(SRTN,30)),""^"")="""",$D(^SRF(SRTN,0)),$$DIV^SROUTL0(SRTN) D UTIL"
^XMB(3.9,144,2,2273,0)="""RTN"",""SRSCPT1"",4,0)"
^XMB(3.9,144,2,2274,0)=" S STARTDT=$E(SDATE,4,5)_""/""_$E(SDATE,6,7)_""/""_$E(SDATE,2,3),ENDATE=$E(EDATE,4,5)_""/""_$E(EDATE,6,7)_""/""_$E(EDATE,2,3)"
^XMB(3.9,144,2,2275,0)="""RTN"",""SRSCPT1"",5,0)"
^XMB(3.9,144,2,2276,0)=" S (SRHDR,SRSOUT)=0 D HDR S SRHDR=1,SRSDT=0 F  S SRSDT=$O(^TMP(""SR"",$J,SRSDT)) Q:'SRSDT!(SRSOUT)  S SRTN=0 F  S SRTN=$O(^TMP(""SR"",$J,SRSDT,SRTN)) Q:'SRTN!(SRSOUT)  K SR,SROP D SET"
^XMB(3.9,144,2,2277,0)="""RTN"",""SRSCPT1"",6,0)"
^XMB(3.9,144,2,2278,0)=" I '$D(^TMP(""SR"",$J)) W $$NODATA^SROUTL0()"
^XMB(3.9,144,2,2279,0)="""RTN"",""SRSCPT1"",7,0)"
^XMB(3.9,144,2,2280,0)=" Q"
^XMB(3.9,144,2,2281,0)="""RTN"",""SRSCPT1"",8,0)"
^XMB(3.9,144,2,2282,0)="SET ; set variables & print info"
^XMB(3.9,144,2,2283,0)="""RTN"",""SRSCPT1"",9,0)"
^XMB(3.9,144,2,2284,0)=" I $Y+8>IOSL D HDR I SRSOUT Q"
^XMB(3.9,144,2,2285,0)="""RTN"",""SRSCPT1"",10,0)"
^XMB(3.9,144,2,2286,0)=" S SRNON=0 I $P($G(^SRF(SRTN,""NON"")),""^"")=""Y"" S SRNON=1"
^XMB(3.9,144,2,2287,0)="""RTN"",""SRSCPT1"",11,0)"
^XMB(3.9,144,2,2288,0)=" S SR(0)=^SRF(SRTN,0)"
^XMB(3.9,144,2,2289,0)="""RTN"",""SRSCPT1"",12,0)"
^XMB(3.9,144,2,2290,0)=" I SRFLG=1!(SRFLG=3&('SRNON)) Q:$P(SR(0),""^"",4)'=SRSPEC"
^XMB(3.9,144,2,2291,0)="""RTN"",""SRSCPT1"",13,0)"
^XMB(3.9,144,2,2292,0)=" I SRFLG=2!(SRFLG=3&(SRNON)) Q:$P($G(^SRF(SRTN,""NON"")),""^"",8)'=SRSPEC"
^XMB(3.9,144,2,2293,0)="""RTN"",""SRSCPT1"",14,0)"
^XMB(3.9,144,2,2294,0)=" S DFN=+SR(0) D DEM^VADPT S SRSNM=VADM(1),SRSSN=VA(""PID""),Y=$P(SR(0),""^"",9) D D^DIQ S SRSDATE=$E(Y,1,12) I $L(SRSNM)>23 S SRSNM=$P(VADM(1),"","")_"",""_$E($P(VADM(1),"","",2))_""."""
^XMB(3.9,144,2,2295,0)="""RTN"",""SRSCPT1"",15,0)"
^XMB(3.9,144,2,2296,0)=" S SROP(1)=$P(^SRF(SRTN,""OP""),""^"")"
^XMB(3.9,144,2,2297,0)="""RTN"",""SRSCPT1"",16,0)"
^XMB(3.9,144,2,2298,0)=" S CNT=1,OP=0 F  S OP=$O(^SRF(SRTN,13,OP)) Q:'OP  D"
^XMB(3.9,144,2,2299,0)="""RTN"",""SRSCPT1"",17,0)"
^XMB(3.9,144,2,2300,0)=" .S CNT=CNT+1,SROP(CNT)=$P(^SRF(SRTN,13,OP,0),""^"")"
^XMB(3.9,144,2,2301,0)="""RTN"",""SRSCPT1"",18,0)"
^XMB(3.9,144,2,2302,0)=" S SR(.1)=$S($D(^SRF(SRTN,.1)):^(.1),1:"""")"
^XMB(3.9,144,2,2303,0)="""RTN"",""SRSCPT1"",19,0)"
^XMB(3.9,144,2,2304,0)=" S SRSUR=$S(SRNON:$P(^SRF(SRTN,""NON""),""^"",6),1:$P(SR(.1),""^"",4)) S:SRSUR="""" SRSUR=""NOT ENTERED"" I SRSUR S SRSUR=$P(^VA(200,SRSUR,0),""^"") I $L(SRSUR)>19 S SRSUR=$P(SRSUR,"","")_"",""_$E($P(SRSUR,"","",2))_""."""
^XMB(3.9,144,2,2305,0)="""RTN"",""SRSCPT1"",20,0)"
^XMB(3.9,144,2,2306,0)=" W !,SRSDATE,?18,SRSNM_"" (""_VA(""PID"")_"")"",?60,SRSUR,!,SRTN W:SRFLG=3&(SRNON) !,""NON-O.R."""
^XMB(3.9,144,2,2307,0)="""RTN"",""SRSCPT1"",21,0)"
^XMB(3.9,144,2,2308,0)=" S CNT=0 F  S CNT=$O(SROP(CNT)) Q:'CNT  S SROPER=""* ""_SROP(CNT) D OPS"
^XMB(3.9,144,2,2309,0)="""RTN"",""SRSCPT1"",22,0)"
^XMB(3.9,144,2,2310,0)=" W ! F LINE=1:1:80 W ""-"""
^XMB(3.9,144,2,2311,0)="""RTN"",""SRSCPT1"",23,0)"
^XMB(3.9,144,2,2312,0)=" Q"
^XMB(3.9,144,2,2313,0)="""RTN"",""SRSCPT1"",24,0)"
^XMB(3.9,144,2,2314,0)="UTIL ; set ^TMP(""SR"",$J)"
^XMB(3.9,144,2,2315,0)="""RTN"",""SRSCPT1"",25,0)"
^XMB(3.9,144,2,2316,0)=" S SRNON=0 I $P($G(^SRF(SRTN,""NON"")),""^"")=""Y"" S SRNON=1"
^XMB(3.9,144,2,2317,0)="""RTN"",""SRSCPT1"",26,0)"
^XMB(3.9,144,2,2318,0)=" I SRFLG=1!(SRFLG=3&('SRNON)) Q:$P($G(^SRF(SRTN,.2)),""^"",12)="""""
^XMB(3.9,144,2,2319,0)="""RTN"",""SRSCPT1"",27,0)"
^XMB(3.9,144,2,2320,0)=" I SRFLG=2 Q:'SRNON"
^XMB(3.9,144,2,2321,0)="""RTN"",""SRSCPT1"",28,0)"
^XMB(3.9,144,2,2322,0)=" S SRMISS=0 I '$P($G(^SRO(136,SRTN,0)),""^"",2) S SRMISS=1"
^XMB(3.9,144,2,2323,0)="""RTN"",""SRSCPT1"",29,0)"
^XMB(3.9,144,2,2324,0)=" I 'SRMISS Q"
^XMB(3.9,144,2,2325,0)="""RTN"",""SRSCPT1"",30,0)"
^XMB(3.9,144,2,2326,0)="UT S ^TMP(""SR"",$J,SRSDT,SRTN)="""""
^XMB(3.9,144,2,2327,0)="""RTN"",""SRSCPT1"",31,0)"
^XMB(3.9,144,2,2328,0)=" Q"
^XMB(3.9,144,2,2329,0)="""RTN"",""SRSCPT1"",32,0)"
^XMB(3.9,144,2,2330,0)="HDR ; print heading"
^XMB(3.9,144,2,2331,0)="""RTN"",""SRSCPT1"",33,0)"
^XMB(3.9,144,2,2332,0)=" I $D(ZTQUEUED) D ^SROSTOP I SRHALT S SRSOUT=1 Q"
^XMB(3.9,144,2,2333,0)="""RTN"",""SRSCPT1"",34,0)"
^XMB(3.9,144,2,2334,0)=" I SRHDR,$E(IOST)'=""P"" W !!,""Press RETURN to continue, or '^' to quit:.  "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1 Q"
^XMB(3.9,144,2,2335,0)="""RTN"",""SRSCPT1"",35,0)"
^XMB(3.9,144,2,2336,0)=" S SRTITLE=$S(SRFLG=1:""O.R. Surgical Procedures"",SRFLG=2:""Non-O.R. Procedures"",1:""O.R. Surgical and Non-O.R. Procedures"")"
^XMB(3.9,144,2,2337,0)="""RTN"",""SRSCPT1"",36,0)"
^XMB(3.9,144,2,2338,0)=" W:$Y @IOF W !,?(80-$L(SRINST)\2),SRINST,!,?23,""Completed Cases Missing CPT Codes"",!,?(80-$L(SRTITLE)\2),SRTITLE,!,?(80-$L(SRFRTO)\2),SRFRTO"
^XMB(3.9,144,2,2339,0)="""RTN"",""SRSCPT1"",37,0)"
^XMB(3.9,144,2,2340,0)=" W !,?(80-$L(""Specialty: ""_SRSPECN)\2),""Specialty: ""_SRSPECN,!!,""Operation Date"",?18,""Patient (ID#)"",?60,""Surgeon/Provider"",!,""Case #"",! F LINE=1:1:80 W ""="""
^XMB(3.9,144,2,2341,0)="""RTN"",""SRSCPT1"",38,0)"
^XMB(3.9,144,2,2342,0)=" Q"
^XMB(3.9,144,2,2343,0)="""RTN"",""SRSCPT1"",39,0)"
^XMB(3.9,144,2,2344,0)="OPS ; print operations"
^XMB(3.9,144,2,2345,0)="""RTN"",""SRSCPT1"",40,0)"
^XMB(3.9,144,2,2346,0)=" K SROPS,MM,MMM S:$L(SROPER)<60 SROPS(1)=SROPER I $L(SROPER)>59 S SROPER=SROPER_""  "" F M=1:1 D LOOP Q:MMM="""""
^XMB(3.9,144,2,2347,0)="""RTN"",""SRSCPT1"",41,0)"
^XMB(3.9,144,2,2348,0)=" W !,?18,SROPS(1) I $D(SROPS(2)) W !,?18,SROPS(2) I $D(SROPS(3)) W !,?18,SROPS(3) I $D(SROPS(4)) W !,?18,SROPS(4)"
^XMB(3.9,144,2,2349,0)="""RTN"",""SRSCPT1"",42,0)"
^XMB(3.9,144,2,2350,0)=" Q"
^XMB(3.9,144,2,2351,0)="""RTN"",""SRSCPT1"",43,0)"
^XMB(3.9,144,2,2352,0)="LOOP ; break procedure if greater than 59 characters"
^XMB(3.9,144,2,2353,0)="""RTN"",""SRSCPT1"",44,0)"
^XMB(3.9,144,2,2354,0)=" S SROPS(M)="""" F LOOP=1:1 S MM=$P(SROPER,"" ""),MMM=$P(SROPER,"" "",2,200) Q:MMM=""""  Q:$L(SROPS(M))+$L(MM)'<60  S SROPS(M)=SROPS(M)_MM_"" "",SROPER=MMM"
^XMB(3.9,144,2,2355,0)="""RTN"",""SRSCPT1"",45,0)"
^XMB(3.9,144,2,2356,0)=" Q"
^XMB(3.9,144,2,2357,0)="""RTN"",""SRSCPT2"")"
^XMB(3.9,144,2,2358,0)="0^15^B15586528^B16666832"
^XMB(3.9,144,2,2359,0)="""RTN"",""SRSCPT2"",1,0)"
^XMB(3.9,144,2,2360,0)="SRSCPT2 ;BIR/MAM - MISSING CPTS (ALL SPECIALTIES) ;03/29/06"
^XMB(3.9,144,2,2361,0)="""RTN"",""SRSCPT2"",2,0)"
^XMB(3.9,144,2,2362,0)=" ;;3.0; Surgery ;**59,50,88,142,144**;24 Jun 93"
^XMB(3.9,144,2,2363,0)="""RTN"",""SRSCPT2"",3,0)"
^XMB(3.9,144,2,2364,0)=" ;"
^XMB(3.9,144,2,2365,0)="""RTN"",""SRSCPT2"",4,0)"
^XMB(3.9,144,2,2366,0)=" ; Reference to ^ECC(723 supported by DBIA #205"
^XMB(3.9,144,2,2367,0)="""RTN"",""SRSCPT2"",5,0)"
^XMB(3.9,144,2,2368,0)=" ;"
^XMB(3.9,144,2,2369,0)="""RTN"",""SRSCPT2"",6,0)"
^XMB(3.9,144,2,2370,0)=" F  S SRSDT=$O(^SRF(""AC"",SRSDT)) Q:'SRSDT!(SRSDT>SRSEDT)  S SRTN=0 F  S SRTN=$O(^SRF(""AC"",SRSDT,SRTN)) Q:'SRTN  I $P($G(^SRF(SRTN,30)),""^"")="""",$D(^SRF(SRTN,0)),$$DIV^SROUTL0(SRTN) D UTIL"
^XMB(3.9,144,2,2371,0)="""RTN"",""SRSCPT2"",7,0)"
^XMB(3.9,144,2,2372,0)=" S (SRSPEC,SRHDR,SRSOUT)=0 F  S SRSPEC=$O(^TMP(""SR"",$J,SRSPEC)) Q:SRSPEC=""""!(SRSOUT)  D HDR S SRHDR=1 S SRSDT=0 F  S SRSDT=$O(^TMP(""SR"",$J,SRSPEC,SRSDT)) Q:'SRSDT!(SRSOUT)  D CASE"
^XMB(3.9,144,2,2373,0)="""RTN"",""SRSCPT2"",8,0)"
^XMB(3.9,144,2,2374,0)=" I '$D(^TMP(""SR"",$J)) S SRSPEC="""" D HDR W $$NODATA^SROUTL0()"
^XMB(3.9,144,2,2375,0)="""RTN"",""SRSCPT2"",9,0)"
^XMB(3.9,144,2,2376,0)=" Q"
^XMB(3.9,144,2,2377,0)="""RTN"",""SRSCPT2"",10,0)"
^XMB(3.9,144,2,2378,0)="CASE ; get case number"
^XMB(3.9,144,2,2379,0)="""RTN"",""SRSCPT2"",11,0)"
^XMB(3.9,144,2,2380,0)=" S SRTN=0 F  S SRTN=$O(^TMP(""SR"",$J,SRSPEC,SRSDT,SRTN)) Q:'SRTN!(SRSOUT)  K SR,SROP D SET"
^XMB(3.9,144,2,2381,0)="""RTN"",""SRSCPT2"",12,0)"
^XMB(3.9,144,2,2382,0)=" Q"
^XMB(3.9,144,2,2383,0)="""RTN"",""SRSCPT2"",13,0)"
^XMB(3.9,144,2,2384,0)="SET ; set variables & print info"
^XMB(3.9,144,2,2385,0)="""RTN"",""SRSCPT2"",14,0)"
^XMB(3.9,144,2,2386,0)=" I $Y+8>IOSL D HDR I SRSOUT Q"
^XMB(3.9,144,2,2387,0)="""RTN"",""SRSCPT2"",15,0)"
^XMB(3.9,144,2,2388,0)=" S SRNON=0 I $P($G(^SRF(SRTN,""NON"")),""^"")=""Y"" S SRNON=1"
^XMB(3.9,144,2,2389,0)="""RTN"",""SRSCPT2"",16,0)"
^XMB(3.9,144,2,2390,0)=" S SR(0)=^SRF(SRTN,0),DFN=+SR(0) D DEM^VADPT S SRSNM=VADM(1),SRSSN=VA(""PID""),Y=$P(SR(0),""^"",9) D D^DIQ S SRSDATE=$E(Y,1,12) I $L(SRSNM)>23 S SRSNM=$P(VADM(1),"","")_"",""_$E($P(VADM(1),"","",2))_""."""
^XMB(3.9,144,2,2391,0)="""RTN"",""SRSCPT2"",17,0)"
^XMB(3.9,144,2,2392,0)=" S SROP(1)=$P(^SRF(SRTN,""OP""),""^"")"
^XMB(3.9,144,2,2393,0)="""RTN"",""SRSCPT2"",18,0)"
^XMB(3.9,144,2,2394,0)=" S CNT=1,OP=0 F  S OP=$O(^SRF(SRTN,13,OP)) Q:'OP  D"
^XMB(3.9,144,2,2395,0)="""RTN"",""SRSCPT2"",19,0)"
^XMB(3.9,144,2,2396,0)=" .S CNT=CNT+1,SROP(CNT)=$P(^SRF(SRTN,13,OP,0),""^"")"
^XMB(3.9,144,2,2397,0)="""RTN"",""SRSCPT2"",20,0)"
^XMB(3.9,144,2,2398,0)=" S SR(.1)=$S($D(^SRF(SRTN,.1)):^(.1),1:"""")"
^XMB(3.9,144,2,2399,0)="""RTN"",""SRSCPT2"",21,0)"
^XMB(3.9,144,2,2400,0)=" S SRSUR=$S(SRNON:$P(^SRF(SRTN,""NON""),""^"",6),1:$P(SR(.1),""^"",4)) S:SRSUR="""" SRSUR=""NOT ENTERED"" I SRSUR S SRSUR=$P(^VA(200,SRSUR,0),""^"") I $L(SRSUR)>19 S SRSUR=$P(SRSUR,"","")_"",""_$E($P(SRSUR,"","",2))_""."""
^XMB(3.9,144,2,2401,0)="""RTN"",""SRSCPT2"",22,0)"
^XMB(3.9,144,2,2402,0)=" W !,SRSDATE,?18,SRSNM_"" (""_VA(""PID"")_"")"",?60,SRSUR,!,SRTN W:SRFLG=3&(SRNON) !,""NON-O.R."""
^XMB(3.9,144,2,2403,0)="""RTN"",""SRSCPT2"",23,0)"
^XMB(3.9,144,2,2404,0)=" S CNT=0 F  S CNT=$O(SROP(CNT)) Q:'CNT  S SROPER=""* ""_SROP(CNT) D OPS"
^XMB(3.9,144,2,2405,0)="""RTN"",""SRSCPT2"",24,0)"
^XMB(3.9,144,2,2406,0)=" W ! F LINE=1:1:80 W ""-"""
^XMB(3.9,144,2,2407,0)="""RTN"",""SRSCPT2"",25,0)"
^XMB(3.9,144,2,2408,0)=" Q"
^XMB(3.9,144,2,2409,0)="""RTN"",""SRSCPT2"",26,0)"
^XMB(3.9,144,2,2410,0)="UTIL ; set ^TMP(""SR"",$J)"
^XMB(3.9,144,2,2411,0)="""RTN"",""SRSCPT2"",27,0)"
^XMB(3.9,144,2,2412,0)=" S SRNON=0 I $P($G(^SRF(SRTN,""NON"")),""^"")=""Y"" S SRNON=1"
^XMB(3.9,144,2,2413,0)="""RTN"",""SRSCPT2"",28,0)"
^XMB(3.9,144,2,2414,0)=" I SRFLG=1!(SRFLG=3&('SRNON)) Q:$P($G(^SRF(SRTN,.2)),""^"",12)="""""
^XMB(3.9,144,2,2415,0)="""RTN"",""SRSCPT2"",29,0)"
^XMB(3.9,144,2,2416,0)=" I SRFLG=2 Q:'SRNON"
^XMB(3.9,144,2,2417,0)="""RTN"",""SRSCPT2"",30,0)"
^XMB(3.9,144,2,2418,0)=" S SRMISS=0 I '$P($G(^SRO(136,SRTN,0)),""^"",2) S SRMISS=1"
^XMB(3.9,144,2,2419,0)="""RTN"",""SRSCPT2"",31,0)"
^XMB(3.9,144,2,2420,0)=" I 'SRMISS Q"
^XMB(3.9,144,2,2421,0)="""RTN"",""SRSCPT2"",32,0)"
^XMB(3.9,144,2,2422,0)="UT I SRNON S SRSPEC=$P(^SRF(SRTN,""NON""),""^"",8),SRSPECN=$S(SRSPEC:$P(^ECC(723,SRSPEC,0),""^""),1:""UNKNOWN"")"
^XMB(3.9,144,2,2423,0)="""RTN"",""SRSCPT2"",33,0)"
^XMB(3.9,144,2,2424,0)=" I 'SRNON S SRSPEC=$P(^SRF(SRTN,0),""^"",4),SRSPECN=$S('SRSPEC:""UNKNOWN"",1:$P(^SRO(137.45,SRSPEC,0),""^""))"
^XMB(3.9,144,2,2425,0)="""RTN"",""SRSCPT2"",34,0)"
^XMB(3.9,144,2,2426,0)=" S ^TMP(""SR"",$J,SRSPECN,SRSDT,SRTN)="""""
^XMB(3.9,144,2,2427,0)="""RTN"",""SRSCPT2"",35,0)"
^XMB(3.9,144,2,2428,0)=" Q"
^XMB(3.9,144,2,2429,0)="""RTN"",""SRSCPT2"",36,0)"
^XMB(3.9,144,2,2430,0)="HDR ; print heading"
^XMB(3.9,144,2,2431,0)="""RTN"",""SRSCPT2"",37,0)"
^XMB(3.9,144,2,2432,0)=" I $D(ZTQUEUED) D ^SROSTOP I SRHALT S SRSOUT=1 Q"
^XMB(3.9,144,2,2433,0)="""RTN"",""SRSCPT2"",38,0)"
^XMB(3.9,144,2,2434,0)=" I SRHDR,$E(IOST)'=""P"" W !!,""Press RETURN to continue, or '^' to quit:.  "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1 Q"
^XMB(3.9,144,2,2435,0)="""RTN"",""SRSCPT2"",39,0)"
^XMB(3.9,144,2,2436,0)=" S SRTITLE=$S(SRFLG=1:""O.R. Surgical Procedures"",SRFLG=2:""Non-O.R. Procedures"",1:""O.R. Surgical and Non-O.R. Procedures"")"
^XMB(3.9,144,2,2437,0)="""RTN"",""SRSCPT2"",40,0)"
^XMB(3.9,144,2,2438,0)=" W:$Y @IOF W !,?(80-$L(SRINST)\2),SRINST,!,?23,""Completed Cases Missing CPT Codes"",!,?(80-$L(SRTITLE)\2),SRTITLE,!,?(80-$L(SRFRTO)\2),SRFRTO"
^XMB(3.9,144,2,2439,0)="""RTN"",""SRSCPT2"",41,0)"
^XMB(3.9,144,2,2440,0)=" W:SRSPEC'="""" !,?(80-$L(""Specialty: ""_SRSPEC)\2),""Specialty: ""_SRSPEC W !!,""Operation Date"",?18,""Patient (ID#)"",?60,""Surgeon/Provider"",!,""Case #"",! F LINE=1:1:80 W ""="""
^XMB(3.9,144,2,2441,0)="""RTN"",""SRSCPT2"",42,0)"
^XMB(3.9,144,2,2442,0)=" Q"
^XMB(3.9,144,2,2443,0)="""RTN"",""SRSCPT2"",43,0)"
^XMB(3.9,144,2,2444,0)="OPS ; print operations"
^XMB(3.9,144,2,2445,0)="""RTN"",""SRSCPT2"",44,0)"
^XMB(3.9,144,2,2446,0)=" K SROPS,MM,MMM S:$L(SROPER)<60 SROPS(1)=SROPER I $L(SROPER)>59 S SROPER=SROPER_""  "" F M=1:1 D LOOP Q:MMM="""""
^XMB(3.9,144,2,2447,0)="""RTN"",""SRSCPT2"",45,0)"
^XMB(3.9,144,2,2448,0)=" W !,?18,SROPS(1) I $D(SROPS(2)) W !,?18,SROPS(2) I $D(SROPS(3)) W !,?18,SROPS(3) I $D(SROPS(4)) W !,?18,SROPS(4)"
^XMB(3.9,144,2,2449,0)="""RTN"",""SRSCPT2"",46,0)"
^XMB(3.9,144,2,2450,0)=" Q"
^XMB(3.9,144,2,2451,0)="""RTN"",""SRSCPT2"",47,0)"
^XMB(3.9,144,2,2452,0)="LOOP ; break procedure if greater than 59 characters"
^XMB(3.9,144,2,2453,0)="""RTN"",""SRSCPT2"",48,0)"
^XMB(3.9,144,2,2454,0)=" S SROPS(M)="""" F LOOP=1:1 S MM=$P(SROPER,"" ""),MMM=$P(SROPER,"" "",2,200) Q:MMM=""""  Q:$L(SROPS(M))+$L(MM)'<60  S SROPS(M)=SROPS(M)_MM_"" "",SROPER=MMM"
^XMB(3.9,144,2,2455,0)="""RTN"",""SRSCPT2"",49,0)"
^XMB(3.9,144,2,2456,0)=" Q"
^XMB(3.9,144,2,2457,0)="""RTN"",""SRSRQST"")"
^XMB(3.9,144,2,2458,0)="0^11^B26274386^B18734684"
^XMB(3.9,144,2,2459,0)="""RTN"",""SRSRQST"",1,0)"
^XMB(3.9,144,2,2460,0)="SRSRQST ;BIR/MAM,ADM - MAKE OPERATION REQUESTS ;11/01/01  9:40 AM"
^XMB(3.9,144,2,2461,0)="""RTN"",""SRSRQST"",2,0)"
^XMB(3.9,144,2,2462,0)=" ;;3.0; Surgery ;**3,58,67,88,103,105,100,144**;24 Jun 93"
^XMB(3.9,144,2,2463,0)="""RTN"",""SRSRQST"",3,0)"
^XMB(3.9,144,2,2464,0)="MUST S SRLINE="""" F I=1:1:80 S SRLINE=SRLINE_""="""
^XMB(3.9,144,2,2465,0)="""RTN"",""SRSRQST"",4,0)"
^XMB(3.9,144,2,2466,0)=" W @IOF W:$D(SRCC) !,?29,$S(SRSCON=1:""FIRST"",1:""SECOND"")_"" CONCURRENT CASE"" W !,?20,""OPERATION REQUEST: REQUIRED INFORMATION"",!!,SRNM_"" (""_SRSSN_"")"",?65,SREQDT,!,SRLINE,!"
^XMB(3.9,144,2,2467,0)="""RTN"",""SRSRQST"",5,0)"
^XMB(3.9,144,2,2468,0)="SURG ; surgeon"
^XMB(3.9,144,2,2469,0)="""RTN"",""SRSRQST"",6,0)"
^XMB(3.9,144,2,2470,0)=" K DIR S DIR(0)=""130,.14"",DIR(""A"")=""Surgeon"" D ^DIR K DIR I $D(DTOUT)!(X=""^"") S SRSOUT=1 G END"
^XMB(3.9,144,2,2471,0)="""RTN"",""SRSRQST"",7,0)"
^XMB(3.9,144,2,2472,0)=" I Y=""""!(X[""^"") W !!,""To make an operation request, a Surgeon MUST be selected.  Enter '^' to exit."",! G SURG"
^XMB(3.9,144,2,2473,0)="""RTN"",""SRSRQST"",8,0)"
^XMB(3.9,144,2,2474,0)=" S SRSDOC=+Y"
^XMB(3.9,144,2,2475,0)="""RTN"",""SRSRQST"",9,0)"
^XMB(3.9,144,2,2476,0)="CASE K DA,DIC,DD,DO,DINUM,SRTN S X=SRSDPT,DIC=""^SRF("",DIC(0)=""L"",DLAYGO=130 D FILE^DICN K DD,DO,DIC,DLAYGO S SRTN=+Y"
^XMB(3.9,144,2,2477,0)="""RTN"",""SRSRQST"",10,0)"
^XMB(3.9,144,2,2478,0)=" N SRLCK S SRLCK=$$LOCK^SROUTL(SRTN)"
^XMB(3.9,144,2,2479,0)="""RTN"",""SRSRQST"",11,0)"
^XMB(3.9,144,2,2480,0)=" S ^SRF(SRTN,8)=SRSITE(""DIV""),^SRF(SRTN,""OP"")="""""
^XMB(3.9,144,2,2481,0)="""RTN"",""SRSRQST"",12,0)"
^XMB(3.9,144,2,2482,0)=" D NOW^%DTC S SREQDAY=+$E(%,1,12),SRNOCON=1 K DR,DIE"
^XMB(3.9,144,2,2483,0)="""RTN"",""SRSRQST"",13,0)"
^XMB(3.9,144,2,2484,0)=" S DA=SRTN,DIE=130,DR=""36////1;Q;.09////""_SRSDATE_"";.14////""_SRSDOC_"";1.098////""_+SREQDAY_"";1.099////""_DUZ_"";Q"" D ^DIE K DR"
^XMB(3.9,144,2,2485,0)="""RTN"",""SRSRQST"",14,0)"
^XMB(3.9,144,2,2486,0)="ASURG ; attending surgeon"
^XMB(3.9,144,2,2487,0)="""RTN"",""SRSRQST"",15,0)"
^XMB(3.9,144,2,2488,0)=" K DIR S DIR(0)=""130,.164"",DIR(""A"")=""Attending Surgeon"" D ^DIR K DIR I $D(DTOUT)!(X=""^"") S SRSOUT=1 G DEL"
^XMB(3.9,144,2,2489,0)="""RTN"",""SRSRQST"",16,0)"
^XMB(3.9,144,2,2490,0)=" I Y=""""!(X[""^"") W !!,""To make an operation request, Attending Surgeon MUST be selected.  Enter '^' to exit."",! G ASURG"
^XMB(3.9,144,2,2491,0)="""RTN"",""SRSRQST"",17,0)"
^XMB(3.9,144,2,2492,0)=" S SRATTND=+Y"
^XMB(3.9,144,2,2493,0)="""RTN"",""SRSRQST"",18,0)"
^XMB(3.9,144,2,2494,0)="SPEC ; surgical specialty"
^XMB(3.9,144,2,2495,0)="""RTN"",""SRSRQST"",19,0)"
^XMB(3.9,144,2,2496,0)=" I SRWL W !,""Surgical Specialty: ""_$P(^SRO(137.45,SRSS,0),""^"") G OP"
^XMB(3.9,144,2,2497,0)="""RTN"",""SRSRQST"",20,0)"
^XMB(3.9,144,2,2498,0)=" K DIR S DIR(0)=""130,.04"",DIR(""A"")=""Surgical Specialty"" D ^DIR K DIR I $D(DTOUT)!(X=""^"") S SRSOUT=1 G DEL"
^XMB(3.9,144,2,2499,0)="""RTN"",""SRSRQST"",21,0)"
^XMB(3.9,144,2,2500,0)=" I Y=""""!(X[""^"") W !!,""To make an operation request, a Surgical Specialty MUST be selected.  Enter '^'"",!,""to exit."",! G SPEC"
^XMB(3.9,144,2,2501,0)="""RTN"",""SRSRQST"",22,0)"
^XMB(3.9,144,2,2502,0)=" S SRSS=+Y"
^XMB(3.9,144,2,2503,0)="""RTN"",""SRSRQST"",23,0)"
^XMB(3.9,144,2,2504,0)="OP ; principal operative procedure"
^XMB(3.9,144,2,2505,0)="""RTN"",""SRSRQST"",24,0)"
^XMB(3.9,144,2,2506,0)=" I SRWL W !,""Principal Operative Procedure: ""_SRSOP G OPD"
^XMB(3.9,144,2,2507,0)="""RTN"",""SRSRQST"",25,0)"
^XMB(3.9,144,2,2508,0)=" K DIR S DIR(0)=""130,26"",DIR(""A"")=""Principal Operative Procedure"" D ^DIR K DIR I $D(DTOUT)!(X=""^"") S SRSOUT=1 G DEL"
^XMB(3.9,144,2,2509,0)="""RTN"",""SRSRQST"",26,0)"
^XMB(3.9,144,2,2510,0)=" I X[""^"" W !!,""Principal procedure must not contain an up-arrow (^)."",! G OP"
^XMB(3.9,144,2,2511,0)="""RTN"",""SRSRQST"",27,0)"
^XMB(3.9,144,2,2512,0)=" S SRSOP=Y"
^XMB(3.9,144,2,2513,0)="""RTN"",""SRSRQST"",28,0)"
^XMB(3.9,144,2,2514,0)="OPD ; Principal Preoperative Diagnosis"
^XMB(3.9,144,2,2515,0)="""RTN"",""SRSRQST"",29,0)"
^XMB(3.9,144,2,2516,0)=" K DIR S DIR(0)=""130,32"",DIR(""A"")=""Principal Preoperative Diagnosis"" D ^DIR K DIR I $D(DTOUT)!(X=""^"") S SRSOUT=1 G DEL"
^XMB(3.9,144,2,2517,0)="""RTN"",""SRSRQST"",30,0)"
^XMB(3.9,144,2,2518,0)=" I Y=""""!(X[""^"") W !,""Principal Preoperative Diagnosis MUST be entered"",!,""before proceeding with this request. Enter '^' to exit."",! G OPD"
^XMB(3.9,144,2,2519,0)="""RTN"",""SRSRQST"",31,0)"
^XMB(3.9,144,2,2520,0)=" I X["";"" W !!,""The Principal Preoperative Diagnosis cannot contain a semicolon (;)."",!,""Please re-enter the Diagnosis, using commas in place of the semicolons."" G OPD"
^XMB(3.9,144,2,2521,0)="""RTN"",""SRSRQST"",32,0)"
^XMB(3.9,144,2,2522,0)=" S SRSOPD=Y"
^XMB(3.9,144,2,2523,0)="""RTN"",""SRSRQST"",33,0)"
^XMB(3.9,144,2,2524,0)=" W !!,""The information entered into the Principal Preoperative Diagnosis field"",!,""has been transferred into the Indications for Operation field."",!,""The Indications for Operation field can be updated later if necessary."",!"
^XMB(3.9,144,2,2525,0)="""RTN"",""SRSRQST"",34,0)"
^XMB(3.9,144,2,2526,0)=" W !!,""Press RETURN to continue  "" R X:DTIME"
^XMB(3.9,144,2,2527,0)="""RTN"",""SRSRQST"",35,0)"
^XMB(3.9,144,2,2528,0)="UPDATE S DA=SRTN,DIE=130,DR=""26////""_SRSOP_"";68////""_SRSOP_"";.04////""_SRSS_"";.164////""_SRATTND_"";32////""_SRSOPD D ^DIE"
^XMB(3.9,144,2,2529,0)="""RTN"",""SRSRQST"",36,0)"
^XMB(3.9,144,2,2530,0)=" I SRWL K DA,DIE,DR S DA=SRTN,DIE=130,DR="".016////""_SRCL(16)_"";.017////""_SRCL(17)_"";.018////""_SRCL(18)_"";.019////""_SRCL(19)_"";.0155////""_SRCL(20)_"";.022////""_SRCL(21)_"";.023////""_SRCL(22) D ^DIE"
^XMB(3.9,144,2,2531,0)="""RTN"",""SRSRQST"",37,0)"
^XMB(3.9,144,2,2532,0)=" K DR,DA S DR=""[SRO-NOCOMP]"",DA=SRTN,DIE=130 D ^DIE K DR"
^XMB(3.9,144,2,2533,0)="""RTN"",""SRSRQST"",38,0)"
^XMB(3.9,144,2,2534,0)=" S ^SRF(SRTN,8)=SRSITE(""DIV"") D ^SROXRET K SRNOCON"
^XMB(3.9,144,2,2535,0)="""RTN"",""SRSRQST"",39,0)"
^XMB(3.9,144,2,2536,0)="OTHER ; other required fields"
^XMB(3.9,144,2,2537,0)="""RTN"",""SRSRQST"",40,0)"
^XMB(3.9,144,2,2538,0)=" S SRFLD=0 F  S SRFLD=$O(^SRO(133,SRSITE,4,SRFLD)) Q:'SRFLD!(SRSOUT)  D OTHDIR Q:SRSOUT"
^XMB(3.9,144,2,2539,0)="""RTN"",""SRSRQST"",41,0)"
^XMB(3.9,144,2,2540,0)=" I SRSOUT G DEL"
^XMB(3.9,144,2,2541,0)="""RTN"",""SRSRQST"",42,0)"
^XMB(3.9,144,2,2542,0)=" S SRSOPD(1)=SRSOPD D WP^DIE(130,SRTN_"","",55,""A"",""SRSOPD"")"
^XMB(3.9,144,2,2543,0)="""RTN"",""SRSRQST"",43,0)"
^XMB(3.9,144,2,2544,0)=" I $D(SRCC),SRSCON=2 S DIE=130,DR=""35////""_SRSCON(1),DA=SRTN D ^DIE K DR S DR=""35////""_SRTN,DA=SRSCON(1),DIE=130 D ^DIE K DR,DA"
^XMB(3.9,144,2,2545,0)="""RTN"",""SRSRQST"",44,0)"
^XMB(3.9,144,2,2546,0)=" D ^SROERR I $D(SRDUOUT) S SRSOUT=1 Q"
^XMB(3.9,144,2,2547,0)="""RTN"",""SRSRQST"",45,0)"
^XMB(3.9,144,2,2548,0)=" I '$D(SRCC) D ^SRSRQST1"
^XMB(3.9,144,2,2549,0)="""RTN"",""SRSRQST"",46,0)"
^XMB(3.9,144,2,2550,0)=" D:$G(SRLCK) UNLOCK^SROUTL(SRTN)"
^XMB(3.9,144,2,2551,0)="""RTN"",""SRSRQST"",47,0)"
^XMB(3.9,144,2,2552,0)=" Q"
^XMB(3.9,144,2,2553,0)="""RTN"",""SRSRQST"",48,0)"
^XMB(3.9,144,2,2554,0)="DEL I SRSOUT S DA=SRTN,DIK=""^SRF("" D ^DIK"
^XMB(3.9,144,2,2555,0)="""RTN"",""SRSRQST"",49,0)"
^XMB(3.9,144,2,2556,0)="END D:$G(SRLCK) UNLOCK^SROUTL(SRTN)"
^XMB(3.9,144,2,2557,0)="""RTN"",""SRSRQST"",50,0)"
^XMB(3.9,144,2,2558,0)=" I SRSOUT W !!,""No request has been entered."",! S:'$D(SRCC) SRSOUT=0"
^XMB(3.9,144,2,2559,0)="""RTN"",""SRSRQST"",51,0)"
^XMB(3.9,144,2,2560,0)=" Q"
^XMB(3.9,144,2,2561,0)="""RTN"",""SRSRQST"",52,0)"
^XMB(3.9,144,2,2562,0)="CON ; request concurrent case"
^XMB(3.9,144,2,2563,0)="""RTN"",""SRSRQST"",53,0)"
^XMB(3.9,144,2,2564,0)=" D MUST Q:SRSOUT  S SRSCON(SRSCON,""DOC"")=$P(^VA(200,SRSDOC,0),""^""),SRSCON(SRSCON,""SS"")=$P(^SRO(137.45,SRSS,0),""^""),SRSCON(SRSCON,""OP"")=SRSOP,SRSCON(SRSCON)=SRTN K DA"
^XMB(3.9,144,2,2565,0)="""RTN"",""SRSRQST"",54,0)"
^XMB(3.9,144,2,2566,0)=" Q"
^XMB(3.9,144,2,2567,0)="""RTN"",""SRSRQST"",55,0)"
^XMB(3.9,144,2,2568,0)="OTHDIR ; call to reader for site specific required fields"
^XMB(3.9,144,2,2569,0)="""RTN"",""SRSRQST"",56,0)"
^XMB(3.9,144,2,2570,0)=" K DIR,SREQ,SRY S FLD=$P(^SRO(133,SRSITE,4,SRFLD,0),""^"") D FIELD^DID(130,FLD,"""",""TITLE"",""SRY"") S DIR(0)=""130,""_FLD,DIR(""A"")=SRY(""TITLE"") D ^DIR I $D(DTOUT)!(X=""^"") S SRSOUT=1 Q"
^XMB(3.9,144,2,2571,0)="""RTN"",""SRSRQST"",57,0)"
^XMB(3.9,144,2,2572,0)=" I Y=""""!(X[""^"") W !!,""It is mandatory that you provide this information before proceeding with this"",!,""request."",! D ASK Q:SRSOUT  G OTHDIR"
^XMB(3.9,144,2,2573,0)="""RTN"",""SRSRQST"",58,0)"
^XMB(3.9,144,2,2574,0)=" S SREQ(130,SRTN_"","",FLD)=$P(Y,""^"") D FILE^DIE("""",""SREQ"",""^TMP(""""SR"""",$J)"")"
^XMB(3.9,144,2,2575,0)="""RTN"",""SRSRQST"",59,0)"
^XMB(3.9,144,2,2576,0)=" Q"
^XMB(3.9,144,2,2577,0)="""RTN"",""SRSRQST"",60,0)"
^XMB(3.9,144,2,2578,0)="ASK K DIR S DIR(0)=""Y"",DIR(""A"")=""Do you want to continue with this request "",DIR(""B"")=""YES"""
^XMB(3.9,144,2,2579,0)="""RTN"",""SRSRQST"",61,0)"
^XMB(3.9,144,2,2580,0)=" S DIR(""?"")=""Enter RETURN to continue with this request, or 'NO' to discontinue this request."" D ^DIR S:'Y SRSOUT=1"
^XMB(3.9,144,2,2581,0)="""RTN"",""SRSRQST"",62,0)"
^XMB(3.9,144,2,2582,0)=" Q"
^XMB(3.9,144,2,2583,0)="""VER"")"
^XMB(3.9,144,2,2584,0)="8.0^22.0"
^XMB(3.9,144,2,2585,0)="""^DD"",130,130,.09,0)"
^XMB(3.9,144,2,2586,0)="DATE OF OPERATION^RDX^^0;9^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X I $D(X) D SCH^SRODATE"
^XMB(3.9,144,2,2587,0)="""^DD"",130,130,.09,.1)"
^XMB(3.9,144,2,2588,0)="Date of Operation"
^XMB(3.9,144,2,2589,0)="""^DD"",130,130,.09,1,0)"
^XMB(3.9,144,2,2590,0)="^.1"
^XMB(3.9,144,2,2591,0)="""^DD"",130,130,.09,1,1,0)"
^XMB(3.9,144,2,2592,0)="130^AC^MUMPS"
^XMB(3.9,144,2,2593,0)="""^DD"",130,130,.09,1,1,1)"
^XMB(3.9,144,2,2594,0)="S ^SRF(""AC"",X,DA)=$P(^SRF(DA,0),""^"")"
^XMB(3.9,144,2,2595,0)="""^DD"",130,130,.09,1,1,2)"
^XMB(3.9,144,2,2596,0)="K ^SRF(""AC"",X,DA)"
^XMB(3.9,144,2,2597,0)="""^DD"",130,130,.09,1,1,""%D"",0)"
^XMB(3.9,144,2,2598,0)="^^2^2^2930128^"
^XMB(3.9,144,2,2599,0)="""^DD"",130,130,.09,1,1,""%D"",1,0)"
^XMB(3.9,144,2,2600,0)="The AC cross reference on the DATE OF OPERATION field is used to sort"
^XMB(3.9,144,2,2601,0)="""^DD"",130,130,.09,1,1,""%D"",2,0)"
^XMB(3.9,144,2,2602,0)="entries by date of operation for reports."
^XMB(3.9,144,2,2603,0)="""^DD"",130,130,.09,1,2,0)"
^XMB(3.9,144,2,2604,0)="130^ADT^MUMPS"
^XMB(3.9,144,2,2605,0)="""^DD"",130,130,.09,1,2,1)"
^XMB(3.9,144,2,2606,0)="D ADT^SROXR2"
^XMB(3.9,144,2,2607,0)="""^DD"",130,130,.09,1,2,2)"
^XMB(3.9,144,2,2608,0)="D KADT^SROXR2"
^XMB(3.9,144,2,2609,0)="""^DD"",130,130,.09,1,2,""%D"",0)"
^XMB(3.9,144,2,2610,0)="^^3^3^2930128^^^"
^XMB(3.9,144,2,2611,0)="""^DD"",130,130,.09,1,2,""%D"",1,0)"
^XMB(3.9,144,2,2612,0)="The ADT cross reference on the DATE OF OPERATION field uses the 'inverse'"
^XMB(3.9,144,2,2613,0)="""^DD"",130,130,.09,1,2,""%D"",2,0)"
^XMB(3.9,144,2,2614,0)="date/time format to sort and to display cases by inverse chronological"
^XMB(3.9,144,2,2615,0)="""^DD"",130,130,.09,1,2,""%D"",3,0)"
^XMB(3.9,144,2,2616,0)="order."
^XMB(3.9,144,2,2617,0)="""^DD"",130,130,.09,1,3,0)"
^XMB(3.9,144,2,2618,0)="130^ASP1^MUMPS"
^XMB(3.9,144,2,2619,0)="""^DD"",130,130,.09,1,3,1)"
^XMB(3.9,144,2,2620,0)="D SP^SROXR1"
^XMB(3.9,144,2,2621,0)="""^DD"",130,130,.09,1,3,2)"
^XMB(3.9,144,2,2622,0)="D KSP^SROXR1"
^XMB(3.9,144,2,2623,0)="""^DD"",130,130,.09,1,3,""%D"",0)"
^XMB(3.9,144,2,2624,0)="^^2^2^2930128^^"
^XMB(3.9,144,2,2625,0)="""^DD"",130,130,.09,1,3,""%D"",1,0)"
^XMB(3.9,144,2,2626,0)="The ASP1 cross reference on the DATE OF OPERATION field updates the"
^XMB(3.9,144,2,2627,0)="""^DD"",130,130,.09,1,3,""%D"",2,0)"
^XMB(3.9,144,2,2628,0)="ASP and the AOR cross references when the date of operation is changed."
^XMB(3.9,144,2,2629,0)="""^DD"",130,130,.09,1,4,0)"
^XMB(3.9,144,2,2630,0)="130^AR^MUMPS"
^XMB(3.9,144,2,2631,0)="""^DD"",130,130,.09,1,4,1)"
^XMB(3.9,144,2,2632,0)="D AR^SROXR1"
^XMB(3.9,144,2,2633,0)="""^DD"",130,130,.09,1,4,2)"
^XMB(3.9,144,2,2634,0)="D KAR^SROXR1"
^XMB(3.9,144,2,2635,0)="""^DD"",130,130,.09,1,4,""%D"",0)"
^XMB(3.9,144,2,2636,0)="^^4^4^2930128^^^"
^XMB(3.9,144,2,2637,0)="""^DD"",130,130,.09,1,4,""%D"",1,0)"
^XMB(3.9,144,2,2638,0)="The AR cross reference on the DATE OF OPERATION field is used to sort"
^XMB(3.9,144,2,2639,0)="""^DD"",130,130,.09,1,4,""%D"",2,0)"
^XMB(3.9,144,2,2640,0)="and display requested cases.  This cross reference is created when a"
^XMB(3.9,144,2,2641,0)="""^DD"",130,130,.09,1,4,""%D"",3,0)"
^XMB(3.9,144,2,2642,0)="case is requested or when the request date is changed.  Upon scheduling"
^XMB(3.9,144,2,2643,0)="""^DD"",130,130,.09,1,4,""%D"",4,0)"
^XMB(3.9,144,2,2644,0)="the request, the AR cross reference for the case is deleted."
^XMB(3.9,144,2,2645,0)="""^DD"",130,130,.09,1,4,""DT"")"
^XMB(3.9,144,2,2646,0)="2911002"
^XMB(3.9,144,2,2647,0)="""^DD"",130,130,.09,3)"
^XMB(3.9,144,2,2648,0)="Enter the date that the principal operation was performed.  The patient may have more than principal operation (and operative record) on the same day."
^XMB(3.9,144,2,2649,0)="""^DD"",130,130,.09,5,1,0)"
^XMB(3.9,144,2,2650,0)="130^.205^1"
^XMB(3.9,144,2,2651,0)="""^DD"",130,130,.09,5,2,0)"
^XMB(3.9,144,2,2652,0)="130^120^1"
^XMB(3.9,144,2,2653,0)="""^DD"",130,130,.09,21,0)"
^XMB(3.9,144,2,2654,0)="^^2^2^2900104^"
^XMB(3.9,144,2,2655,0)="""^DD"",130,130,.09,21,1,0)"
^XMB(3.9,144,2,2656,0)="This is the date that the case was performed.  The date of operation"
^XMB(3.9,144,2,2657,0)="""^DD"",130,130,.09,21,2,0)"
^XMB(3.9,144,2,2658,0)="must be entered for all cases."
^XMB(3.9,144,2,2659,0)="""^DD"",130,130,.09,""DT"")"
^XMB(3.9,144,2,2660,0)="3051020"
^XMB(3.9,144,2,2661,0)="""^DD"",130,130,32,0)"
^XMB(3.9,144,2,2662,0)="PRINCIPAL PRE-OP DIAGNOSIS^FX^^33;1^K:$L(X)>40!($L(X)<1) X D:$D(X) DIAG^SROUTL,PRINASO^SROADX2(0)"
^XMB(3.9,144,2,2663,0)="""^DD"",130,130,32,.1)"
^XMB(3.9,144,2,2664,0)="Principal Preoperative Diagnosis"
^XMB(3.9,144,2,2665,0)="""^DD"",130,130,32,1,0)"
^XMB(3.9,144,2,2666,0)="^.1"
^XMB(3.9,144,2,2667,0)="""^DD"",130,130,32,1,1,0)"
^XMB(3.9,144,2,2668,0)="^^TRIGGER^130^34"
^XMB(3.9,144,2,2669,0)="""^DD"",130,130,32,1,1,1)"
^XMB(3.9,144,2,2670,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SRF(D0,34)):^(34),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(130,32,1,1,1.4)"
^XMB(3.9,144,2,2671,0)="""^DD"",130,130,32,1,1,1.4)"
^XMB(3.9,144,2,2672,0)="S DIH=$S($D(^SRF(DIV(0),34)):^(34),1:""""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(34)=DIV_$S(%]"""":U_%,1:""""),DIH=130,DIG=34 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,144,2,2673,0)="""^DD"",130,130,32,1,1,2)"
^XMB(3.9,144,2,2674,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SRF(D0,34)):^(34),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(130,32,1,1,2.1) X ^DD(130,32,1,1,2.4)"
^XMB(3.9,144,2,2675,0)="""^DD"",130,130,32,1,1,2.1)"
^XMB(3.9,144,2,2676,0)="S X=DIV S Y(1)=$S($D(^SRF(D0,33)):^(33),1:"""") S X=$P(Y(1),U,1)"
^XMB(3.9,144,2,2677,0)="""^DD"",130,130,32,1,1,2.4)"
^XMB(3.9,144,2,2678,0)="S DIH=$S($D(^SRF(DIV(0),34)):^(34),1:""""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(34)=DIV_$S(%]"""":U_%,1:""""),DIH=130,DIG=34 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,144,2,2679,0)="""^DD"",130,130,32,1,1,""%D"",0)"
^XMB(3.9,144,2,2680,0)="^.101^3^3^3031002^^^"
^XMB(3.9,144,2,2681,0)="""^DD"",130,130,32,1,1,""%D"",1,0)"
^XMB(3.9,144,2,2682,0)="This trigger on the PRINCIPAL PRE-OP DIAGNOSIS field stuffs the PRINCIPAL"
^XMB(3.9,144,2,2683,0)="""^DD"",130,130,32,1,1,""%D"",2,0)"
^XMB(3.9,144,2,2684,0)="POST-OP DIAGNOSIS field with what is entered as the PRINCIPAL PRE-OP"
^XMB(3.9,144,2,2685,0)="""^DD"",130,130,32,1,1,""%D"",3,0)"
^XMB(3.9,144,2,2686,0)="DIAGNOSIS."
^XMB(3.9,144,2,2687,0)="""^DD"",130,130,32,1,1,""CREATE VALUE"")"
^XMB(3.9,144,2,2688,0)="PRINCIPAL PRE"
^XMB(3.9,144,2,2689,0)="""^DD"",130,130,32,1,1,""DELETE VALUE"")"
^XMB(3.9,144,2,2690,0)="PRINCIPAL PRE"
^XMB(3.9,144,2,2691,0)="""^DD"",130,130,32,1,1,""FIELD"")"
^XMB(3.9,144,2,2692,0)="PRINCIPAL PO"
^XMB(3.9,144,2,2693,0)="""^DD"",130,130,32,1,2,0)"
^XMB(3.9,144,2,2694,0)="130^DADX1^MUMPS"
^XMB(3.9,144,2,2695,0)="""^DD"",130,130,32,1,2,1)"
^XMB(3.9,144,2,2696,0)="Q"
^XMB(3.9,144,2,2697,0)="""^DD"",130,130,32,1,2,2)"
^XMB(3.9,144,2,2698,0)="D DELASOC^SROADX2"
^XMB(3.9,144,2,2699,0)="""^DD"",130,130,32,1,2,""%D"",0)"
^XMB(3.9,144,2,2700,0)="^.101^1^1^3031014^^"
^XMB(3.9,144,2,2701,0)="""^DD"",130,130,32,1,2,""%D"",1,0)"
^XMB(3.9,144,2,2702,0)="This cross reference removes associations from diagnosis being deleted."
^XMB(3.9,144,2,2703,0)="""^DD"",130,130,32,1,2,""DT"")"
^XMB(3.9,144,2,2704,0)="3031001"
^XMB(3.9,144,2,2705,0)="""^DD"",130,130,32,3)"
^XMB(3.9,144,2,2706,0)="Your answer must be 1 to 40 characters in length."
^XMB(3.9,144,2,2707,0)="""^DD"",130,130,32,21,0)"
^XMB(3.9,144,2,2708,0)="^.001^2^2^3031014^^^^"
^XMB(3.9,144,2,2709,0)="""^DD"",130,130,32,21,1,0)"
^XMB(3.9,144,2,2710,0)="This is the preoperative diagnosis for which the surgical procedure"
^XMB(3.9,144,2,2711,0)="""^DD"",130,130,32,21,2,0)"
^XMB(3.9,144,2,2712,0)="is being performed."
^XMB(3.9,144,2,2713,0)="""^DD"",130,130,32,""DEL"",1,0)"
^XMB(3.9,144,2,2714,0)="I 1 D EN^DDIOL(""The PRINCIPAL PRE-OP DIAGNOSIS can't be deleted."",,""!!,?2"")"
^XMB(3.9,144,2,2715,0)="""^DD"",130,130,32,""DT"")"
^XMB(3.9,144,2,2716,0)="3031006"
^XMB(3.9,144,2,2717,0)="""^DD"",130,130,500,0)"
^XMB(3.9,144,2,2718,0)="PFSS ACCOUNT REFERENCE^P375'^IBBAA(375,^PFSS;1^Q"
^XMB(3.9,144,2,2719,0)="""^DD"",130,130,500,.1)"
^XMB(3.9,144,2,2720,0)="PFSS Account Reference"
^XMB(3.9,144,2,2721,0)="""^DD"",130,130,500,3)"
^XMB(3.9,144,2,2722,0)="Enter the PFSS Account Reference associated with this case."
^XMB(3.9,144,2,2723,0)="""^DD"",130,130,500,8.5)"
^XMB(3.9,144,2,2724,0)="^"
^XMB(3.9,144,2,2725,0)="""^DD"",130,130,500,9)"
^XMB(3.9,144,2,2726,0)="^"
^XMB(3.9,144,2,2727,0)="""^DD"",130,130,500,21,0)"
^XMB(3.9,144,2,2728,0)="^^3^3^3050606^^"
^XMB(3.9,144,2,2729,0)="""^DD"",130,130,500,21,1,0)"
^XMB(3.9,144,2,2730,0)="This is the PFSS Account Reference number by which Surgery will reference"
^XMB(3.9,144,2,2731,0)="""^DD"",130,130,500,21,2,0)"
^XMB(3.9,144,2,2732,0)="an external account number for purposes of attaching charges for 1st or"
^XMB(3.9,144,2,2733,0)="""^DD"",130,130,500,21,3,0)"
^XMB(3.9,144,2,2734,0)="3rd party billing."
^XMB(3.9,144,2,2735,0)="""^DD"",130,130,500,""DT"")"
^XMB(3.9,144,2,2736,0)="3050608"
^XMB(3.9,144,2,2737,0)="""BLD"",5296,6)"
^XMB(3.9,144,2,2738,0)="^148"
^XMB(3.9,144,2,2739,0)="$END KID SR*3.0*144"
^XMB(3.9,144,6,0)="^3.911A^2^2"
^XMB(3.9,144,6,1,0)="POSTMASTER"
^XMB(3.9,144,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,144,6,"B","POSTMASTER",1)=""
^XMB(3.9,144,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,145,0)="SR-3_SEQ-149_PAT-156.KID^.5^3061008.015742^^^^K"
^XMB(3.9,145,.6)="3061008"
^XMB(3.9,145,1,0)="^3.91A^2^2"
^XMB(3.9,145,1,1,0)=".5^0^3061008.015742^^^^^^^3061008.015742"
^XMB(3.9,145,1,2,0)="1^0^3061008.022802^^^^^^^3061008.022802"
^XMB(3.9,145,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,145,1,"C",.5,1)=""
^XMB(3.9,145,1,"C",1,2)=""
^XMB(3.9,145,2,0)="^^299^299^3061008"
^XMB(3.9,145,2,1,0)="$TXT Released SR*3*156 SEQ #149"
^XMB(3.9,145,2,2,0)="Extracted from mail message"
^XMB(3.9,145,2,3,0)="$END TXT"
^XMB(3.9,145,2,4,0)="$KID SR*3.0*156"
^XMB(3.9,145,2,5,0)="**INSTALL NAME**"
^XMB(3.9,145,2,6,0)="SR*3.0*156"
^XMB(3.9,145,2,7,0)="""BLD"",5805,0)"
^XMB(3.9,145,2,8,0)="SR*3.0*156^SURGERY^0^3060531^y"
^XMB(3.9,145,2,9,0)="""BLD"",5805,1,0)"
^XMB(3.9,145,2,10,0)="^^9^9^3060519^"
^XMB(3.9,145,2,11,0)="""BLD"",5805,1,1,0)"
^XMB(3.9,145,2,12,0)="1. The Print a Surgery Risk Assessment [SROA PRINT ASSESSMENT] option for"
^XMB(3.9,145,2,13,0)="""BLD"",5805,1,2,0)"
^XMB(3.9,145,2,14,0)="   Non-Cardiac assessments is corrected to display the PRIN POSTOP"
^XMB(3.9,145,2,15,0)="""BLD"",5805,1,3,0)"
^XMB(3.9,145,2,16,0)="   DIAGNOSIS CODE field (#.03) stored in the SURGERY PROCEDURE/DIAGNOSIS"
^XMB(3.9,145,2,17,0)="""BLD"",5805,1,4,0)"
^XMB(3.9,145,2,18,0)="   CODES file (#136)."
^XMB(3.9,145,2,19,0)="""BLD"",5805,1,5,0)"
^XMB(3.9,145,2,20,0)=" "
^XMB(3.9,145,2,21,0)="""BLD"",5805,1,6,0)"
^XMB(3.9,145,2,22,0)="2. The Print a Surgery Risk Assessment [SROA PRINT ASSESSMENT] option for"
^XMB(3.9,145,2,23,0)="""BLD"",5805,1,7,0)"
^XMB(3.9,145,2,24,0)="   Non-Cardiac assessments is corrected to display the PRINCIPAL PROCEDURE"
^XMB(3.9,145,2,25,0)="""BLD"",5805,1,8,0)"
^XMB(3.9,145,2,26,0)="   CODE field (#.02) stored in the SURGERY PROCEDURE/DIAGNOSIS CODES file"
^XMB(3.9,145,2,27,0)="""BLD"",5805,1,9,0)"
^XMB(3.9,145,2,28,0)="   (#136) when referencing CPT Codes for Returns within 30 Days."
^XMB(3.9,145,2,29,0)="""BLD"",5805,4,0)"
^XMB(3.9,145,2,30,0)="^9.64PA^^"
^XMB(3.9,145,2,31,0)="""BLD"",5805,6.3)"
^XMB(3.9,145,2,32,0)="3"
^XMB(3.9,145,2,33,0)="""BLD"",5805,""KRN"",0)"
^XMB(3.9,145,2,34,0)="^9.67PA^8989.52^19"
^XMB(3.9,145,2,35,0)="""BLD"",5805,""KRN"",.4,0)"
^XMB(3.9,145,2,36,0)=".4"
^XMB(3.9,145,2,37,0)="""BLD"",5805,""KRN"",.401,0)"
^XMB(3.9,145,2,38,0)=".401"
^XMB(3.9,145,2,39,0)="""BLD"",5805,""KRN"",.402,0)"
^XMB(3.9,145,2,40,0)=".402"
^XMB(3.9,145,2,41,0)="""BLD"",5805,""KRN"",.403,0)"
^XMB(3.9,145,2,42,0)=".403"
^XMB(3.9,145,2,43,0)="""BLD"",5805,""KRN"",.5,0)"
^XMB(3.9,145,2,44,0)=".5"
^XMB(3.9,145,2,45,0)="""BLD"",5805,""KRN"",.84,0)"
^XMB(3.9,145,2,46,0)=".84"
^XMB(3.9,145,2,47,0)="""BLD"",5805,""KRN"",3.6,0)"
^XMB(3.9,145,2,48,0)="3.6"
^XMB(3.9,145,2,49,0)="""BLD"",5805,""KRN"",3.8,0)"
^XMB(3.9,145,2,50,0)="3.8"
^XMB(3.9,145,2,51,0)="""BLD"",5805,""KRN"",9.2,0)"
^XMB(3.9,145,2,52,0)="9.2"
^XMB(3.9,145,2,53,0)="""BLD"",5805,""KRN"",9.8,0)"
^XMB(3.9,145,2,54,0)="9.8"
^XMB(3.9,145,2,55,0)="""BLD"",5805,""KRN"",9.8,""NM"",0)"
^XMB(3.9,145,2,56,0)="^9.68A^1^1"
^XMB(3.9,145,2,57,0)="""BLD"",5805,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,145,2,58,0)="SROAPRT6^^0^B6124927"
^XMB(3.9,145,2,59,0)="""BLD"",5805,""KRN"",9.8,""NM"",""B"",""SROAPRT6"",1)"
^XMB(3.9,145,2,60,0)=""
^XMB(3.9,145,2,61,0)="""BLD"",5805,""KRN"",19,0)"
^XMB(3.9,145,2,62,0)="19"
^XMB(3.9,145,2,63,0)="""BLD"",5805,""KRN"",19.1,0)"
^XMB(3.9,145,2,64,0)="19.1"
^XMB(3.9,145,2,65,0)="""BLD"",5805,""KRN"",101,0)"
^XMB(3.9,145,2,66,0)="101"
^XMB(3.9,145,2,67,0)="""BLD"",5805,""KRN"",409.61,0)"
^XMB(3.9,145,2,68,0)="409.61"
^XMB(3.9,145,2,69,0)="""BLD"",5805,""KRN"",771,0)"
^XMB(3.9,145,2,70,0)="771"
^XMB(3.9,145,2,71,0)="""BLD"",5805,""KRN"",870,0)"
^XMB(3.9,145,2,72,0)="870"
^XMB(3.9,145,2,73,0)="""BLD"",5805,""KRN"",8989.51,0)"
^XMB(3.9,145,2,74,0)="8989.51"
^XMB(3.9,145,2,75,0)="""BLD"",5805,""KRN"",8989.52,0)"
^XMB(3.9,145,2,76,0)="8989.52"
^XMB(3.9,145,2,77,0)="""BLD"",5805,""KRN"",8994,0)"
^XMB(3.9,145,2,78,0)="8994"
^XMB(3.9,145,2,79,0)="""BLD"",5805,""KRN"",""B"",.4,.4)"
^XMB(3.9,145,2,80,0)=""
^XMB(3.9,145,2,81,0)="""BLD"",5805,""KRN"",""B"",.401,.401)"
^XMB(3.9,145,2,82,0)=""
^XMB(3.9,145,2,83,0)="""BLD"",5805,""KRN"",""B"",.402,.402)"
^XMB(3.9,145,2,84,0)=""
^XMB(3.9,145,2,85,0)="""BLD"",5805,""KRN"",""B"",.403,.403)"
^XMB(3.9,145,2,86,0)=""
^XMB(3.9,145,2,87,0)="""BLD"",5805,""KRN"",""B"",.5,.5)"
^XMB(3.9,145,2,88,0)=""
^XMB(3.9,145,2,89,0)="""BLD"",5805,""KRN"",""B"",.84,.84)"
^XMB(3.9,145,2,90,0)=""
^XMB(3.9,145,2,91,0)="""BLD"",5805,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,145,2,92,0)=""
^XMB(3.9,145,2,93,0)="""BLD"",5805,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,145,2,94,0)=""
^XMB(3.9,145,2,95,0)="""BLD"",5805,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,145,2,96,0)=""
^XMB(3.9,145,2,97,0)="""BLD"",5805,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,145,2,98,0)=""
^XMB(3.9,145,2,99,0)="""BLD"",5805,""KRN"",""B"",19,19)"
^XMB(3.9,145,2,100,0)=""
^XMB(3.9,145,2,101,0)="""BLD"",5805,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,145,2,102,0)=""
^XMB(3.9,145,2,103,0)="""BLD"",5805,""KRN"",""B"",101,101)"
^XMB(3.9,145,2,104,0)=""
^XMB(3.9,145,2,105,0)="""BLD"",5805,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,145,2,106,0)=""
^XMB(3.9,145,2,107,0)="""BLD"",5805,""KRN"",""B"",771,771)"
^XMB(3.9,145,2,108,0)=""
^XMB(3.9,145,2,109,0)="""BLD"",5805,""KRN"",""B"",870,870)"
^XMB(3.9,145,2,110,0)=""
^XMB(3.9,145,2,111,0)="""BLD"",5805,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,145,2,112,0)=""
^XMB(3.9,145,2,113,0)="""BLD"",5805,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,145,2,114,0)=""
^XMB(3.9,145,2,115,0)="""BLD"",5805,""KRN"",""B"",8994,8994)"
^XMB(3.9,145,2,116,0)=""
^XMB(3.9,145,2,117,0)="""BLD"",5805,""QUES"",0)"
^XMB(3.9,145,2,118,0)="^9.62^^"
^XMB(3.9,145,2,119,0)="""BLD"",5805,""REQB"",0)"
^XMB(3.9,145,2,120,0)="^9.611^1^1"
^XMB(3.9,145,2,121,0)="""BLD"",5805,""REQB"",1,0)"
^XMB(3.9,145,2,122,0)="SR*3.0*142^2"
^XMB(3.9,145,2,123,0)="""BLD"",5805,""REQB"",""B"",""SR*3.0*142"",1)"
^XMB(3.9,145,2,124,0)=""
^XMB(3.9,145,2,125,0)="""MBREQ"")"
^XMB(3.9,145,2,126,0)="0"
^XMB(3.9,145,2,127,0)="""PKG"",167,-1)"
^XMB(3.9,145,2,128,0)="1^1"
^XMB(3.9,145,2,129,0)="""PKG"",167,0)"
^XMB(3.9,145,2,130,0)="SURGERY^SR^SURGICAL DATA COLLECTION AND OPERATIONS SCHEDULING"
^XMB(3.9,145,2,131,0)="""PKG"",167,20,0)"
^XMB(3.9,145,2,132,0)="^9.402P^^"
^XMB(3.9,145,2,133,0)="""PKG"",167,22,0)"
^XMB(3.9,145,2,134,0)="^9.49I^1^1"
^XMB(3.9,145,2,135,0)="""PKG"",167,22,1,0)"
^XMB(3.9,145,2,136,0)="3.0^2930624^2930811"
^XMB(3.9,145,2,137,0)="""PKG"",167,22,1,""PAH"",1,0)"
^XMB(3.9,145,2,138,0)="156^3060531"
^XMB(3.9,145,2,139,0)="""PKG"",167,22,1,""PAH"",1,1,0)"
^XMB(3.9,145,2,140,0)="^^9^9^3060531"
^XMB(3.9,145,2,141,0)="""PKG"",167,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,145,2,142,0)="1. The Print a Surgery Risk Assessment [SROA PRINT ASSESSMENT] option for"
^XMB(3.9,145,2,143,0)="""PKG"",167,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,145,2,144,0)="   Non-Cardiac assessments is corrected to display the PRIN POSTOP"
^XMB(3.9,145,2,145,0)="""PKG"",167,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,145,2,146,0)="   DIAGNOSIS CODE field (#.03) stored in the SURGERY PROCEDURE/DIAGNOSIS"
^XMB(3.9,145,2,147,0)="""PKG"",167,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,145,2,148,0)="   CODES file (#136)."
^XMB(3.9,145,2,149,0)="""PKG"",167,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,145,2,150,0)=" "
^XMB(3.9,145,2,151,0)="""PKG"",167,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,145,2,152,0)="2. The Print a Surgery Risk Assessment [SROA PRINT ASSESSMENT] option for"
^XMB(3.9,145,2,153,0)="""PKG"",167,22,1,""PAH"",1,1,7,0)"
^XMB(3.9,145,2,154,0)="   Non-Cardiac assessments is corrected to display the PRINCIPAL PROCEDURE"
^XMB(3.9,145,2,155,0)="""PKG"",167,22,1,""PAH"",1,1,8,0)"
^XMB(3.9,145,2,156,0)="   CODE field (#.02) stored in the SURGERY PROCEDURE/DIAGNOSIS CODES file"
^XMB(3.9,145,2,157,0)="""PKG"",167,22,1,""PAH"",1,1,9,0)"
^XMB(3.9,145,2,158,0)="   (#136) when referencing CPT Codes for Returns within 30 Days."
^XMB(3.9,145,2,159,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,145,2,160,0)="Y"
^XMB(3.9,145,2,161,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,145,2,162,0)="^D REP^XPDH"
^XMB(3.9,145,2,163,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,145,2,164,0)="Shall I write over your |FLAG| File"
^XMB(3.9,145,2,165,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,145,2,166,0)="YES"
^XMB(3.9,145,2,167,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,145,2,168,0)="D XPF1^XPDIQ"
^XMB(3.9,145,2,169,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,145,2,170,0)="Y"
^XMB(3.9,145,2,171,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,145,2,172,0)="^D DTA^XPDH"
^XMB(3.9,145,2,173,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,145,2,174,0)="Want my data |FLAG| yours"
^XMB(3.9,145,2,175,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,145,2,176,0)="YES"
^XMB(3.9,145,2,177,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,145,2,178,0)="D XPF2^XPDIQ"
^XMB(3.9,145,2,179,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,145,2,180,0)="YO"
^XMB(3.9,145,2,181,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,145,2,182,0)="^D INHIBIT^XPDH"
^XMB(3.9,145,2,183,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,145,2,184,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,145,2,185,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,145,2,186,0)="YES"
^XMB(3.9,145,2,187,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,145,2,188,0)="D XPI1^XPDIQ"
^XMB(3.9,145,2,189,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,145,2,190,0)="PO^VA(200,:EM"
^XMB(3.9,145,2,191,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,145,2,192,0)="^D MG^XPDH"
^XMB(3.9,145,2,193,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,145,2,194,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,145,2,195,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,145,2,196,0)=""
^XMB(3.9,145,2,197,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,145,2,198,0)="D XPM1^XPDIQ"
^XMB(3.9,145,2,199,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,145,2,200,0)="Y"
^XMB(3.9,145,2,201,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,145,2,202,0)="^D MENU^XPDH"
^XMB(3.9,145,2,203,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,145,2,204,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,145,2,205,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,145,2,206,0)="YES"
^XMB(3.9,145,2,207,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,145,2,208,0)="D XPO1^XPDIQ"
^XMB(3.9,145,2,209,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,145,2,210,0)="Y"
^XMB(3.9,145,2,211,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,145,2,212,0)="^D OPT^XPDH"
^XMB(3.9,145,2,213,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,145,2,214,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,145,2,215,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,145,2,216,0)="YES"
^XMB(3.9,145,2,217,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,145,2,218,0)="D XPZ1^XPDIQ"
^XMB(3.9,145,2,219,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,145,2,220,0)="Y"
^XMB(3.9,145,2,221,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,145,2,222,0)="^D RTN^XPDH"
^XMB(3.9,145,2,223,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,145,2,224,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,145,2,225,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,145,2,226,0)="NO"
^XMB(3.9,145,2,227,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,145,2,228,0)="D XPZ2^XPDIQ"
^XMB(3.9,145,2,229,0)="""RTN"")"
^XMB(3.9,145,2,230,0)="1"
^XMB(3.9,145,2,231,0)="""RTN"",""SROAPRT6"")"
^XMB(3.9,145,2,232,0)="0^1^B6124927^B6227160"
^XMB(3.9,145,2,233,0)="""RTN"",""SROAPRT6"",1,0)"
^XMB(3.9,145,2,234,0)="SROAPRT6 ;BIR/MAM - PRINT OUTCOME INFO ; [ 08/25/99  1:18 PM ]"
^XMB(3.9,145,2,235,0)="""RTN"",""SROAPRT6"",2,0)"
^XMB(3.9,145,2,236,0)=" ;;3.0; Surgery ;**38,47,88,127,156**;24 Jun 93;Build 3"
^XMB(3.9,145,2,237,0)="""RTN"",""SROAPRT6"",3,0)"
^XMB(3.9,145,2,238,0)=" K SRA S X=$P($G(^SRO(136,SRTN,0)),""^"",3) S:X X=$$ICDDX^ICDCODE(X,$P($G(^SRF(SRTN,0)),""^"",9)),X=$P(X,""^"",2)_""   ""_$P(X,""^"",4) S SRAO(1)=X_""^.03"""
^XMB(3.9,145,2,239,0)="""RTN"",""SROAPRT6"",4,0)"
^XMB(3.9,145,2,240,0)=" S SRA(205)=$G(^SRF(SRTN,205)),X=$P(SRA(205),""^"") I X'="""" S X=$S(X=""NA"":""NA"",1:X_"" DAYS"")"
^XMB(3.9,145,2,241,0)="""RTN"",""SROAPRT6"",5,0)"
^XMB(3.9,145,2,242,0)=" S SRAO(2)=X_""^247"""
^XMB(3.9,145,2,243,0)="""RTN"",""SROAPRT6"",6,0)"
^XMB(3.9,145,2,244,0)=" S Y=$P($G(^DPT(DFN,.35)),""^""),SRDEAD=Y I Y D D^DIQ S SRDEAD=Y"
^XMB(3.9,145,2,245,0)="""RTN"",""SROAPRT6"",7,0)"
^XMB(3.9,145,2,246,0)=" S SRAO(3)=SRDEAD,NYUK=""N"",SRET=0 K SRCPT"
^XMB(3.9,145,2,247,0)="""RTN"",""SROAPRT6"",8,0)"
^XMB(3.9,145,2,248,0)=" F  S SRET=$O(^SRF(SRTN,29,SRET)) Q:'SRET  S CASE=$P(^SRF(SRTN,29,SRET,0),""^""),SRC=$P($G(^SRO(136,CASE,0)),""^"",2) I $P($G(^SRF(CASE,.2)),""^"",10),SRC D"
^XMB(3.9,145,2,249,0)="""RTN"",""SROAPRT6"",9,0)"
^XMB(3.9,145,2,250,0)=" .S Y=$P($$CPT^ICPTCOD(SRC),""^"",2) D MOD"
^XMB(3.9,145,2,251,0)="""RTN"",""SROAPRT6"",10,0)"
^XMB(3.9,145,2,252,0)=" .S NYUK=""Y"",SRCPT(SRC)=Y"
^XMB(3.9,145,2,253,0)="""RTN"",""SROAPRT6"",11,0)"
^XMB(3.9,145,2,254,0)=" S $P(^SRF(SRTN,205),""^"",4)=NYUK D YN S SRAO(4)=SHEMP_""^262"" F I=""6A"",""6B"",""6C"",""6D"",""6E"",""6F"",""7A"",""7B"",""7C"",""7D"",""7E"",""7F"" S SRAO(I)="""""
^XMB(3.9,145,2,255,0)="""RTN"",""SROAPRT6"",12,0)"
^XMB(3.9,145,2,256,0)="DISP ;"
^XMB(3.9,145,2,257,0)="""RTN"",""SROAPRT6"",13,0)"
^XMB(3.9,145,2,258,0)=" W !,?27,""OUTCOME INFORMATION"""
^XMB(3.9,145,2,259,0)="""RTN"",""SROAPRT6"",14,0)"
^XMB(3.9,145,2,260,0)=" W !!,$J(""Postoperative Diagnosis Code (ICD9): "",39)_$P(SRAO(1),""^""),!,$J(""Length of Postoperative Hospital Stay: "",39)_$P(SRAO(2),""^"")"
^XMB(3.9,145,2,261,0)="""RTN"",""SROAPRT6"",15,0)"
^XMB(3.9,145,2,262,0)=" W !,$J(""Date of Death: "",39)_$P(SRAO(3),""^"")"
^XMB(3.9,145,2,263,0)="""RTN"",""SROAPRT6"",16,0)"
^XMB(3.9,145,2,264,0)=" I SRAO(3)'="""" S X1=$P(^SRF(SRTN,0),""^"",9),X2=90 D C^%DTC D"
^XMB(3.9,145,2,265,0)="""RTN"",""SROAPRT6"",17,0)"
^XMB(3.9,145,2,266,0)=" .I $P($G(^DPT(DFN,.35)),""^"")'>X W !,$J(""Death Unrelated/Related: "",39)_$S($P($G(^SRF(SRTN,.4)),""^"",7)=""R"":""RELATED"",$P($G(^SRF(SRTN,.4)),""^"",7)=""U"":""UNRELATED"",1:"""")"
^XMB(3.9,145,2,267,0)="""RTN"",""SROAPRT6"",18,0)"
^XMB(3.9,145,2,268,0)=" .I $P($G(^DPT(DFN,.35)),""^"")>X W !,$J(""Death Unrelated/Related: "",39)_""N/A"""
^XMB(3.9,145,2,269,0)="""RTN"",""SROAPRT6"",19,0)"
^XMB(3.9,145,2,270,0)=" W !,$J(""Return to OR Within 30 Days: "",39)_$P(SRAO(4),""^"")"
^XMB(3.9,145,2,271,0)="""RTN"",""SROAPRT6"",20,0)"
^XMB(3.9,145,2,272,0)=" D RET W:$E(IOST)=""P"" ! I $Y+24>IOSL D PAGE^SROAPAS I SRSOUT Q"
^XMB(3.9,145,2,273,0)="""RTN"",""SROAPRT6"",21,0)"
^XMB(3.9,145,2,274,0)=" D ^SROAPRT7"
^XMB(3.9,145,2,275,0)="""RTN"",""SROAPRT6"",22,0)"
^XMB(3.9,145,2,276,0)=" Q"
^XMB(3.9,145,2,277,0)="""RTN"",""SROAPRT6"",23,0)"
^XMB(3.9,145,2,278,0)="MOD ;; append CPT modifiers to CPT code"
^XMB(3.9,145,2,279,0)="""RTN"",""SROAPRT6"",24,0)"
^XMB(3.9,145,2,280,0)=" N SRTN S SRTN=CASE D SSPRIN^SROCPT0"
^XMB(3.9,145,2,281,0)="""RTN"",""SROAPRT6"",25,0)"
^XMB(3.9,145,2,282,0)=" Q"
^XMB(3.9,145,2,283,0)="""RTN"",""SROAPRT6"",26,0)"
^XMB(3.9,145,2,284,0)="YN ;"
^XMB(3.9,145,2,285,0)="""RTN"",""SROAPRT6"",27,0)"
^XMB(3.9,145,2,286,0)=" S SHEMP=$S(NYUK=""NS"":""NS"",NYUK=""N"":""NO"",NYUK=""Y"":""YES"",1:"""")"
^XMB(3.9,145,2,287,0)="""RTN"",""SROAPRT6"",28,0)"
^XMB(3.9,145,2,288,0)=" Q"
^XMB(3.9,145,2,289,0)="""RTN"",""SROAPRT6"",29,0)"
^XMB(3.9,145,2,290,0)="RET ; print returns"
^XMB(3.9,145,2,291,0)="""RTN"",""SROAPRT6"",30,0)"
^XMB(3.9,145,2,292,0)=" S X=0 F  S X=$O(SRCPT(X)) Q:'X  W !,?15,""CPT Code: ""_SRCPT(X)"
^XMB(3.9,145,2,293,0)="""RTN"",""SROAPRT6"",31,0)"
^XMB(3.9,145,2,294,0)=" Q"
^XMB(3.9,145,2,295,0)="""VER"")"
^XMB(3.9,145,2,296,0)="8.0^22.0"
^XMB(3.9,145,2,297,0)="""BLD"",5805,6)"
^XMB(3.9,145,2,298,0)="^149"
^XMB(3.9,145,2,299,0)="$END KID SR*3.0*156"
^XMB(3.9,145,6,0)="^3.911A^2^2"
^XMB(3.9,145,6,1,0)="POSTMASTER"
^XMB(3.9,145,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,145,6,"B","POSTMASTER",1)=""
^XMB(3.9,145,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,146,0)="SR-3_SEQ-150_PAT-154.KID^.5^3061008.015742^^^^K"
^XMB(3.9,146,.6)="3061008"
^XMB(3.9,146,1,0)="^3.91A^2^2"
^XMB(3.9,146,1,1,0)=".5^0^3061008.015742^^^^^^^3061008.015742"
^XMB(3.9,146,1,2,0)="1^0^3061008.022806^^^^^^^3061008.022806"
^XMB(3.9,146,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,146,1,"C",.5,1)=""
^XMB(3.9,146,1,"C",1,2)=""
^XMB(3.9,146,2,0)="^^441^441^3061008"
^XMB(3.9,146,2,1,0)="$TXT Released SR*3*154 SEQ #150"
^XMB(3.9,146,2,2,0)="Extracted from mail message"
^XMB(3.9,146,2,3,0)="$END TXT"
^XMB(3.9,146,2,4,0)="$KID SR*3.0*154"
^XMB(3.9,146,2,5,0)="**INSTALL NAME**"
^XMB(3.9,146,2,6,0)="SR*3.0*154"
^XMB(3.9,146,2,7,0)="""BLD"",6301,0)"
^XMB(3.9,146,2,8,0)="SR*3.0*154^SURGERY^0^3060504^y"
^XMB(3.9,146,2,9,0)="""BLD"",6301,1,0)"
^XMB(3.9,146,2,10,0)="^^3^3^3060131^"
^XMB(3.9,146,2,11,0)="""BLD"",6301,1,1,0)"
^XMB(3.9,146,2,12,0)="An undefined error occurs when two users attempt to access the "
^XMB(3.9,146,2,13,0)="""BLD"",6301,1,2,0)"
^XMB(3.9,146,2,14,0)="same record at the same time.  One user is creating a surgery request and "
^XMB(3.9,146,2,15,0)="""BLD"",6301,1,3,0)"
^XMB(3.9,146,2,16,0)="the other is attempting to delete that same user request."
^XMB(3.9,146,2,17,0)="""BLD"",6301,4,0)"
^XMB(3.9,146,2,18,0)="^9.64PA^^"
^XMB(3.9,146,2,19,0)="""BLD"",6301,""ABPKG"")"
^XMB(3.9,146,2,20,0)="n"
^XMB(3.9,146,2,21,0)="""BLD"",6301,""KRN"",0)"
^XMB(3.9,146,2,22,0)="^9.67PA^8989.52^19"
^XMB(3.9,146,2,23,0)="""BLD"",6301,""KRN"",.4,0)"
^XMB(3.9,146,2,24,0)=".4"
^XMB(3.9,146,2,25,0)="""BLD"",6301,""KRN"",.401,0)"
^XMB(3.9,146,2,26,0)=".401"
^XMB(3.9,146,2,27,0)="""BLD"",6301,""KRN"",.402,0)"
^XMB(3.9,146,2,28,0)=".402"
^XMB(3.9,146,2,29,0)="""BLD"",6301,""KRN"",.403,0)"
^XMB(3.9,146,2,30,0)=".403"
^XMB(3.9,146,2,31,0)="""BLD"",6301,""KRN"",.5,0)"
^XMB(3.9,146,2,32,0)=".5"
^XMB(3.9,146,2,33,0)="""BLD"",6301,""KRN"",.84,0)"
^XMB(3.9,146,2,34,0)=".84"
^XMB(3.9,146,2,35,0)="""BLD"",6301,""KRN"",3.6,0)"
^XMB(3.9,146,2,36,0)="3.6"
^XMB(3.9,146,2,37,0)="""BLD"",6301,""KRN"",3.8,0)"
^XMB(3.9,146,2,38,0)="3.8"
^XMB(3.9,146,2,39,0)="""BLD"",6301,""KRN"",9.2,0)"
^XMB(3.9,146,2,40,0)="9.2"
^XMB(3.9,146,2,41,0)="""BLD"",6301,""KRN"",9.8,0)"
^XMB(3.9,146,2,42,0)="9.8"
^XMB(3.9,146,2,43,0)="""BLD"",6301,""KRN"",9.8,""NM"",0)"
^XMB(3.9,146,2,44,0)="^9.68A^2^2"
^XMB(3.9,146,2,45,0)="""BLD"",6301,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,146,2,46,0)="SRSREQ^^0^B17620484"
^XMB(3.9,146,2,47,0)="""BLD"",6301,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,146,2,48,0)="SRSUPRQ^^0^B28797469"
^XMB(3.9,146,2,49,0)="""BLD"",6301,""KRN"",9.8,""NM"",""B"",""SRSREQ"",1)"
^XMB(3.9,146,2,50,0)=""
^XMB(3.9,146,2,51,0)="""BLD"",6301,""KRN"",9.8,""NM"",""B"",""SRSUPRQ"",2)"
^XMB(3.9,146,2,52,0)=""
^XMB(3.9,146,2,53,0)="""BLD"",6301,""KRN"",19,0)"
^XMB(3.9,146,2,54,0)="19"
^XMB(3.9,146,2,55,0)="""BLD"",6301,""KRN"",19,""NM"",0)"
^XMB(3.9,146,2,56,0)="^9.68A^^"
^XMB(3.9,146,2,57,0)="""BLD"",6301,""KRN"",19.1,0)"
^XMB(3.9,146,2,58,0)="19.1"
^XMB(3.9,146,2,59,0)="""BLD"",6301,""KRN"",101,0)"
^XMB(3.9,146,2,60,0)="101"
^XMB(3.9,146,2,61,0)="""BLD"",6301,""KRN"",409.61,0)"
^XMB(3.9,146,2,62,0)="409.61"
^XMB(3.9,146,2,63,0)="""BLD"",6301,""KRN"",771,0)"
^XMB(3.9,146,2,64,0)="771"
^XMB(3.9,146,2,65,0)="""BLD"",6301,""KRN"",870,0)"
^XMB(3.9,146,2,66,0)="870"
^XMB(3.9,146,2,67,0)="""BLD"",6301,""KRN"",8989.51,0)"
^XMB(3.9,146,2,68,0)="8989.51"
^XMB(3.9,146,2,69,0)="""BLD"",6301,""KRN"",8989.52,0)"
^XMB(3.9,146,2,70,0)="8989.52"
^XMB(3.9,146,2,71,0)="""BLD"",6301,""KRN"",8994,0)"
^XMB(3.9,146,2,72,0)="8994"
^XMB(3.9,146,2,73,0)="""BLD"",6301,""KRN"",""B"",.4,.4)"
^XMB(3.9,146,2,74,0)=""
^XMB(3.9,146,2,75,0)="""BLD"",6301,""KRN"",""B"",.401,.401)"
^XMB(3.9,146,2,76,0)=""
^XMB(3.9,146,2,77,0)="""BLD"",6301,""KRN"",""B"",.402,.402)"
^XMB(3.9,146,2,78,0)=""
^XMB(3.9,146,2,79,0)="""BLD"",6301,""KRN"",""B"",.403,.403)"
^XMB(3.9,146,2,80,0)=""
^XMB(3.9,146,2,81,0)="""BLD"",6301,""KRN"",""B"",.5,.5)"
^XMB(3.9,146,2,82,0)=""
^XMB(3.9,146,2,83,0)="""BLD"",6301,""KRN"",""B"",.84,.84)"
^XMB(3.9,146,2,84,0)=""
^XMB(3.9,146,2,85,0)="""BLD"",6301,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,146,2,86,0)=""
^XMB(3.9,146,2,87,0)="""BLD"",6301,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,146,2,88,0)=""
^XMB(3.9,146,2,89,0)="""BLD"",6301,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,146,2,90,0)=""
^XMB(3.9,146,2,91,0)="""BLD"",6301,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,146,2,92,0)=""
^XMB(3.9,146,2,93,0)="""BLD"",6301,""KRN"",""B"",19,19)"
^XMB(3.9,146,2,94,0)=""
^XMB(3.9,146,2,95,0)="""BLD"",6301,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,146,2,96,0)=""
^XMB(3.9,146,2,97,0)="""BLD"",6301,""KRN"",""B"",101,101)"
^XMB(3.9,146,2,98,0)=""
^XMB(3.9,146,2,99,0)="""BLD"",6301,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,146,2,100,0)=""
^XMB(3.9,146,2,101,0)="""BLD"",6301,""KRN"",""B"",771,771)"
^XMB(3.9,146,2,102,0)=""
^XMB(3.9,146,2,103,0)="""BLD"",6301,""KRN"",""B"",870,870)"
^XMB(3.9,146,2,104,0)=""
^XMB(3.9,146,2,105,0)="""BLD"",6301,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,146,2,106,0)=""
^XMB(3.9,146,2,107,0)="""BLD"",6301,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,146,2,108,0)=""
^XMB(3.9,146,2,109,0)="""BLD"",6301,""KRN"",""B"",8994,8994)"
^XMB(3.9,146,2,110,0)=""
^XMB(3.9,146,2,111,0)="""BLD"",6301,""QUES"",0)"
^XMB(3.9,146,2,112,0)="^9.62^^"
^XMB(3.9,146,2,113,0)="""BLD"",6301,""REQB"",0)"
^XMB(3.9,146,2,114,0)="^9.611^2^2"
^XMB(3.9,146,2,115,0)="""BLD"",6301,""REQB"",1,0)"
^XMB(3.9,146,2,116,0)="SR*3.0*100^2"
^XMB(3.9,146,2,117,0)="""BLD"",6301,""REQB"",2,0)"
^XMB(3.9,146,2,118,0)="SR*3.0*131^2"
^XMB(3.9,146,2,119,0)="""BLD"",6301,""REQB"",""B"",""SR*3.0*100"",1)"
^XMB(3.9,146,2,120,0)=""
^XMB(3.9,146,2,121,0)="""BLD"",6301,""REQB"",""B"",""SR*3.0*131"",2)"
^XMB(3.9,146,2,122,0)=""
^XMB(3.9,146,2,123,0)="""MBREQ"")"
^XMB(3.9,146,2,124,0)="0"
^XMB(3.9,146,2,125,0)="""PKG"",207,-1)"
^XMB(3.9,146,2,126,0)="1^1"
^XMB(3.9,146,2,127,0)="""PKG"",207,0)"
^XMB(3.9,146,2,128,0)="SURGERY^SR^SURGICAL DATA COLLECTION AND OPERATIONS SCHEDULING"
^XMB(3.9,146,2,129,0)="""PKG"",207,20,0)"
^XMB(3.9,146,2,130,0)="^9.402P^^"
^XMB(3.9,146,2,131,0)="""PKG"",207,22,0)"
^XMB(3.9,146,2,132,0)="^9.49I^1^1"
^XMB(3.9,146,2,133,0)="""PKG"",207,22,1,0)"
^XMB(3.9,146,2,134,0)="3.0^2930624^2931006"
^XMB(3.9,146,2,135,0)="""PKG"",207,22,1,""PAH"",1,0)"
^XMB(3.9,146,2,136,0)="154^3060504"
^XMB(3.9,146,2,137,0)="""PKG"",207,22,1,""PAH"",1,1,0)"
^XMB(3.9,146,2,138,0)="^^3^3^3060504"
^XMB(3.9,146,2,139,0)="""PKG"",207,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,146,2,140,0)="An undefined error occurs when two users attempt to access the "
^XMB(3.9,146,2,141,0)="""PKG"",207,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,146,2,142,0)="same record at the same time.  One user is creating a surgery request and "
^XMB(3.9,146,2,143,0)="""PKG"",207,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,146,2,144,0)="the other is attempting to delete that same user request."
^XMB(3.9,146,2,145,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,146,2,146,0)="Y"
^XMB(3.9,146,2,147,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,146,2,148,0)="^D REP^XPDH"
^XMB(3.9,146,2,149,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,146,2,150,0)="Shall I write over your |FLAG| File"
^XMB(3.9,146,2,151,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,146,2,152,0)="YES"
^XMB(3.9,146,2,153,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,146,2,154,0)="D XPF1^XPDIQ"
^XMB(3.9,146,2,155,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,146,2,156,0)="Y"
^XMB(3.9,146,2,157,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,146,2,158,0)="^D DTA^XPDH"
^XMB(3.9,146,2,159,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,146,2,160,0)="Want my data |FLAG| yours"
^XMB(3.9,146,2,161,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,146,2,162,0)="YES"
^XMB(3.9,146,2,163,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,146,2,164,0)="D XPF2^XPDIQ"
^XMB(3.9,146,2,165,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,146,2,166,0)="YO"
^XMB(3.9,146,2,167,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,146,2,168,0)="^D INHIBIT^XPDH"
^XMB(3.9,146,2,169,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,146,2,170,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,146,2,171,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,146,2,172,0)="YES"
^XMB(3.9,146,2,173,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,146,2,174,0)="D XPI1^XPDIQ"
^XMB(3.9,146,2,175,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,146,2,176,0)="PO^VA(200,:EM"
^XMB(3.9,146,2,177,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,146,2,178,0)="^D MG^XPDH"
^XMB(3.9,146,2,179,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,146,2,180,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,146,2,181,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,146,2,182,0)=""
^XMB(3.9,146,2,183,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,146,2,184,0)="D XPM1^XPDIQ"
^XMB(3.9,146,2,185,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,146,2,186,0)="Y"
^XMB(3.9,146,2,187,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,146,2,188,0)="^D MENU^XPDH"
^XMB(3.9,146,2,189,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,146,2,190,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,146,2,191,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,146,2,192,0)="YES"
^XMB(3.9,146,2,193,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,146,2,194,0)="D XPO1^XPDIQ"
^XMB(3.9,146,2,195,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,146,2,196,0)="Y"
^XMB(3.9,146,2,197,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,146,2,198,0)="^D OPT^XPDH"
^XMB(3.9,146,2,199,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,146,2,200,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,146,2,201,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,146,2,202,0)="YES"
^XMB(3.9,146,2,203,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,146,2,204,0)="D XPZ1^XPDIQ"
^XMB(3.9,146,2,205,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,146,2,206,0)="Y"
^XMB(3.9,146,2,207,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,146,2,208,0)="^D RTN^XPDH"
^XMB(3.9,146,2,209,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,146,2,210,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,146,2,211,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,146,2,212,0)="NO"
^XMB(3.9,146,2,213,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,146,2,214,0)="D XPZ2^XPDIQ"
^XMB(3.9,146,2,215,0)="""RTN"")"
^XMB(3.9,146,2,216,0)="2"
^XMB(3.9,146,2,217,0)="""RTN"",""SRSREQ"")"
^XMB(3.9,146,2,218,0)="0^1^B17620484^B17169804"
^XMB(3.9,146,2,219,0)="""RTN"",""SRSREQ"",1,0)"
^XMB(3.9,146,2,220,0)="SRSREQ ;BIR/MAM - MAKE REQUESTS ; [ 01/20/00  9:42 AM ]"
^XMB(3.9,146,2,221,0)="""RTN"",""SRSREQ"",2,0)"
^XMB(3.9,146,2,222,0)=" ;;3.0; Surgery ;**8,12,23,30,37,92,131,154**;24 Jun 93"
^XMB(3.9,146,2,223,0)="""RTN"",""SRSREQ"",3,0)"
^XMB(3.9,146,2,224,0)="LOOP ; break procedure if greater than 70 characters"
^XMB(3.9,146,2,225,0)="""RTN"",""SRSREQ"",4,0)"
^XMB(3.9,146,2,226,0)=" S SROPS(M)="""" F LOOP=1:1 S MM=$P(SROPER,"" ""),MMM=$P(SROPER,"" "",2,200) Q:MMM=""""  Q:$L(SROPS(M))+$L(MM)'<70  S SROPS(M)=SROPS(M)_MM_"" "",SROPER=MMM"
^XMB(3.9,146,2,227,0)="""RTN"",""SRSREQ"",5,0)"
^XMB(3.9,146,2,228,0)=" Q"
^XMB(3.9,146,2,229,0)="""RTN"",""SRSREQ"",6,0)"
^XMB(3.9,146,2,230,0)="CONCUR ; check for concurrent case"
^XMB(3.9,146,2,231,0)="""RTN"",""SRSREQ"",7,0)"
^XMB(3.9,146,2,232,0)=" S (SRSCC,SRSCON)=0 F  S SRSCC=$O(^SRF(""AC"",SRSDATE,SRSCC)) Q:'SRSCC  I ^(SRSCC)=SRSDPT,$D(^SRF(SRSCC,""REQ"")),$P(^(""REQ""),""^"")=1 S SRSCON=1 Q"
^XMB(3.9,146,2,233,0)="""RTN"",""SRSREQ"",8,0)"
^XMB(3.9,146,2,234,0)=" Q:SRSCON=0"
^XMB(3.9,146,2,235,0)="""RTN"",""SRSREQ"",9,0)"
^XMB(3.9,146,2,236,0)="CC K SROPS,MM,MMM S SRCTN=SRSCC,SROPER=$P(^SRF(SRCTN,""OP""),""^"") S:$L(SROPER)<70 SROPS(1)=SROPER I $L(SROPER)>69 S SROPER=SROPER_""  "" F M=1:1 D LOOP Q:MMM="""""
^XMB(3.9,146,2,237,0)="""RTN"",""SRSREQ"",10,0)"
^XMB(3.9,146,2,238,0)=" S DFN=SRSDPT D DEM^VADPT W !!,VADM(1)_"" has the following procedure already entered for this"",!,""date: "",!!,""CASE #""_SRCTN_""  ""_SROPS(1) I $D(SROPS(2)) W !,?9,SROPS(2) I $D(SROPS(3)) W !,?9,SROPS(3)"
^XMB(3.9,146,2,239,0)="""RTN"",""SRSREQ"",11,0)"
^XMB(3.9,146,2,240,0)="ASKCC K DIR W ! S DIR(""A"")=""Will this be a concurrent procedure "",DIR(""B"")=""NO"",DIR(0)=""Y"",DIR(""?"",1)=""If these procedures will be scheduled at the same time, in the same operating"",DIR(""?"")=""room, answer 'YES'."""
^XMB(3.9,146,2,241,0)="""RTN"",""SRSREQ"",12,0)"
^XMB(3.9,146,2,242,0)=" D ^DIR S SRSC=Y K DIR Q:$D(DUOUT)!$D(DTOUT)  I 'Y K SRCTN Q"
^XMB(3.9,146,2,243,0)="""RTN"",""SRSREQ"",13,0)"
^XMB(3.9,146,2,244,0)=" ;if concurrent and the case is locked"
^XMB(3.9,146,2,245,0)="""RTN"",""SRSREQ"",14,0)"
^XMB(3.9,146,2,246,0)=" I Y,$D(^XTMP(""SRLOCK-""_SRCTN)) D MSG^SRSUPRQ S SRSC=0 K SRCTN Q"
^XMB(3.9,146,2,247,0)="""RTN"",""SRSREQ"",15,0)"
^XMB(3.9,146,2,248,0)=" S SRSCON(SRSCON,""OP"")=$P(^SRF(SRCTN,""OP""),""^""),SRSCON(SRSCON,""DOC"")=$P(^VA(200,$P(^SRF(SRCTN,.1),""^"",4),0),""^""),SRSCON(SRSCON,""SS"")=$P(^SRO(137.45,$P(^SRF(SRCTN,0),""^"",4),0),""^""),SRSCON(SRSCON)=SRCTN"
^XMB(3.9,146,2,249,0)="""RTN"",""SRSREQ"",16,0)"
^XMB(3.9,146,2,250,0)=" Q"
^XMB(3.9,146,2,251,0)="""RTN"",""SRSREQ"",17,0)"
^XMB(3.9,146,2,252,0)="AVG ; update estimated case length"
^XMB(3.9,146,2,253,0)="""RTN"",""SRSREQ"",18,0)"
^XMB(3.9,146,2,254,0)=" S SRAVG="""",SRSPEC=$P(^SRF(SRTN,0),""^"",4),SRSCPT=$P(^SRF(SRTN,""OP""),""^"",2) D ^SRSAVG S SRLNTH=$P($G(^SRF(SRTN,.4)),""^"") I SRLNTH="""" S SRLNTH=SRAVG"
^XMB(3.9,146,2,255,0)="""RTN"",""SRSREQ"",19,0)"
^XMB(3.9,146,2,256,0)=" W ! K DIR S DIR(""A"")=""How long is this procedure ? (HOURS:MINUTES)  "",DIR(""B"")=SRLNTH,DIR(0)=""130,37A"" D ^DIR I $D(DUOUT)!$D(DTOUT) Q"
^XMB(3.9,146,2,257,0)="""RTN"",""SRSREQ"",20,0)"
^XMB(3.9,146,2,258,0)=" G:X[""^"" AVG I X=""@"" S Y=""@"""
^XMB(3.9,146,2,259,0)="""RTN"",""SRSREQ"",21,0)"
^XMB(3.9,146,2,260,0)=" S SRLNTH1=Y,DR=""37///""_SRLNTH1,DIE=130,DA=SRTN D ^DIE K DR"
^XMB(3.9,146,2,261,0)="""RTN"",""SRSREQ"",22,0)"
^XMB(3.9,146,2,262,0)=" Q"
^XMB(3.9,146,2,263,0)="""RTN"",""SRSREQ"",23,0)"
^XMB(3.9,146,2,264,0)="LATE ; check too see if it is too late to request"
^XMB(3.9,146,2,265,0)="""RTN"",""SRSREQ"",24,0)"
^XMB(3.9,146,2,266,0)=" I $D(^XUSEC(""SR REQ OVERRIDE"",DUZ)) Q"
^XMB(3.9,146,2,267,0)="""RTN"",""SRSREQ"",25,0)"
^XMB(3.9,146,2,268,0)=" N SRHOL,SRXDT S SRHOL="""",(SRXDT,X)=SRSDATE D H^%DTC S SRDAY=%Y+1 S SRDL=$P($G(^SRO(133,SRSITE,2)),""^"",SRDAY) S:SRDL="""" SRDL=1"
^XMB(3.9,146,2,269,0)="""RTN"",""SRSREQ"",26,0)"
^XMB(3.9,146,2,270,0)=" I 'SRDL W !!,""Surgery requests not allowed for ""_$S(SRDAY=1:""SUN"",SRDAY=2:""MON"",SRDAY=3:""TUES"",SRDAY=4:""WEDNES"",SRDAY=5:""THURS"",SRDAY=6:""FRI"",1:""SATUR"")_""DAY !!"",! D PRESS S SRLATE=1 Q"
^XMB(3.9,146,2,271,0)="""RTN"",""SRSREQ"",27,0)"
^XMB(3.9,146,2,272,0)=" K DIC S DIC=40.5,DIC(0)=""XM"",X=SRSDATE D ^DIC K DIC S SRHOL=$P(Y,""^"") I SRHOL>0,'$D(^SRO(133,SRSITE,3,SRSDATE,0)) D  S SRLATE=1 D PRESS Q"
^XMB(3.9,146,2,273,0)="""RTN"",""SRSREQ"",28,0)"
^XMB(3.9,146,2,274,0)=" .S DIC=40.5,DR=""2"",DA=SRHOL,DIQ=""SRY"",DIQ(0)=""E"" D EN^DIQ1 K DA,DIC,DIQ,DR"
^XMB(3.9,146,2,275,0)="""RTN"",""SRSREQ"",29,0)"
^XMB(3.9,146,2,276,0)=" .W !!,""Surgery requests not allowed for ""_SRY(40.5,SRHOL,2,""E"")_"" !!"""
^XMB(3.9,146,2,277,0)="""RTN"",""SRSREQ"",30,0)"
^XMB(3.9,146,2,278,0)=" I '$D(SRSITE(""REQ"")) Q"
^XMB(3.9,146,2,279,0)="""RTN"",""SRSREQ"",31,0)"
^XMB(3.9,146,2,280,0)=" F  S X1=SRXDT,X2=-SRDL D C^%DTC S SRDTL=X D  Q:SRHOL'>0!$D(^SRO(133,SRSITE,3,X,0))  D NEXT"
^XMB(3.9,146,2,281,0)="""RTN"",""SRSREQ"",32,0)"
^XMB(3.9,146,2,282,0)=" .K DIC S DIC=40.5,DIC(0)=""XM"" D ^DIC K DIC S SRHOL=$P(Y,""^"")"
^XMB(3.9,146,2,283,0)="""RTN"",""SRSREQ"",33,0)"
^XMB(3.9,146,2,284,0)=" S SRTCHK=SRDTL_"".""_SRSITE(""REQ"") D NOW^%DTC I %>SRTCHK S SRLATE=1"
^XMB(3.9,146,2,285,0)="""RTN"",""SRSREQ"",34,0)"
^XMB(3.9,146,2,286,0)=" I $D(SRLATE) D MESS"
^XMB(3.9,146,2,287,0)="""RTN"",""SRSREQ"",35,0)"
^XMB(3.9,146,2,288,0)=" Q"
^XMB(3.9,146,2,289,0)="""RTN"",""SRSREQ"",36,0)"
^XMB(3.9,146,2,290,0)="NEXT ; find request cutoff for previous day"
^XMB(3.9,146,2,291,0)="""RTN"",""SRSREQ"",37,0)"
^XMB(3.9,146,2,292,0)=" S X1=SRXDT,X2=-1 D C^%DTC S SRXDT=X D H^%DTC S SRDAY=%Y+1 S SRDL=$P($G(^SRO(133,SRSITE,2)),""^"",SRDAY) S:SRDL="""" SRDL=1 I SRDL=0 D NEXT"
^XMB(3.9,146,2,293,0)="""RTN"",""SRSREQ"",38,0)"
^XMB(3.9,146,2,294,0)=" Q"
^XMB(3.9,146,2,295,0)="""RTN"",""SRSREQ"",39,0)"
^XMB(3.9,146,2,296,0)="MESS ; print message"
^XMB(3.9,146,2,297,0)="""RTN"",""SRSREQ"",40,0)"
^XMB(3.9,146,2,298,0)=" W !!,""I'm sorry, but it is too late to make a request.  If this case must"",!,""be entered, use the option 'Schedule Unrequested Operations' under"",!,""the 'Schedule Operations Menu'."",!!"
^XMB(3.9,146,2,299,0)="""RTN"",""SRSREQ"",41,0)"
^XMB(3.9,146,2,300,0)="PRESS W ! K DIR S DIR(0)=""FOA"",DIR(""A"")=""Press RETURN to continue  "" D ^DIR K DIR"
^XMB(3.9,146,2,301,0)="""RTN"",""SRSREQ"",42,0)"
^XMB(3.9,146,2,302,0)=" Q"
^XMB(3.9,146,2,303,0)="""RTN"",""SRSUPRQ"")"
^XMB(3.9,146,2,304,0)="0^2^B28797469^B27812570"
^XMB(3.9,146,2,305,0)="""RTN"",""SRSUPRQ"",1,0)"
^XMB(3.9,146,2,306,0)="SRSUPRQ ;B'HAM ISC/MAM - UPDATE REQUESTED OPERATIONS; [ 08/29/01  9:04 AM ]"
^XMB(3.9,146,2,307,0)="""RTN"",""SRSUPRQ"",2,0)"
^XMB(3.9,146,2,308,0)=" ;;3.0; Surgery ;**7,47,58,67,107,114,100,154**;24 Jun 93"
^XMB(3.9,146,2,309,0)="""RTN"",""SRSUPRQ"",3,0)"
^XMB(3.9,146,2,310,0)=" ;"
^XMB(3.9,146,2,311,0)="""RTN"",""SRSUPRQ"",4,0)"
^XMB(3.9,146,2,312,0)=" ; Reference to ^TMP(""CSLSUR1"" supported by DBIA #3498"
^XMB(3.9,146,2,313,0)="""RTN"",""SRSUPRQ"",5,0)"
^XMB(3.9,146,2,314,0)=" ;"
^XMB(3.9,146,2,315,0)="""RTN"",""SRSUPRQ"",6,0)"
^XMB(3.9,146,2,316,0)=" K SRSCHED"
^XMB(3.9,146,2,317,0)="""RTN"",""SRSUPRQ"",7,0)"
^XMB(3.9,146,2,318,0)="ASK K DIC,SRCASE S SRSOUT=0,DIC=2,DIC(0)=""QEAMZ"",DIC(""A"")=""Select Patient: "" D ^DIC K DIC Q:Y<0  S SRDFN=+Y,SRNM=$P(Y(0),""^"")"
^XMB(3.9,146,2,319,0)="""RTN"",""SRSUPRQ"",8,0)"
^XMB(3.9,146,2,320,0)=" S (CNT,SRSDATE,SRTN)=0 F  S SRSDATE=$O(^SRF(""AR"",SRSDATE)) Q:'SRSDATE  F  S SRTN=$O(^SRF(""AR"",SRSDATE,SRDFN,SRTN)) Q:'SRTN  D SETUP"
^XMB(3.9,146,2,321,0)="""RTN"",""SRSUPRQ"",9,0)"
^XMB(3.9,146,2,322,0)=" I '$D(SRCASE(1)) W !!,""There are no requested cases for ""_SRNM_""."" G END"
^XMB(3.9,146,2,323,0)="""RTN"",""SRSUPRQ"",10,0)"
^XMB(3.9,146,2,324,0)=" S GRAMMER=$S($D(SRCASE(2)):""cases are"",1:""case is"") W @IOF,!,""The following ""_GRAMMER_"" requested for ""_SRNM_"":"",!"
^XMB(3.9,146,2,325,0)="""RTN"",""SRSUPRQ"",11,0)"
^XMB(3.9,146,2,326,0)=" S CNT=0 F  S CNT=$O(SRCASE(CNT)) Q:'CNT  D OPS W !,$P(SRCASE(CNT),""^"",2),?15,SROPS(1) I $D(SROPS(2)) W !,?15,SROPS(2) I $D(SROPS(3)) W !,?15,SROPS(3)"
^XMB(3.9,146,2,327,0)="""RTN"",""SRSUPRQ"",12,0)"
^XMB(3.9,146,2,328,0)="OPT S SREQ=1 I $D(SRCASE(2)) D MANY"
^XMB(3.9,146,2,329,0)="""RTN"",""SRSUPRQ"",13,0)"
^XMB(3.9,146,2,330,0)=" G:""^""[SREQ END S:'$D(SRCASE(2)) SRTN=$P(SRCASE(1),""^"") S SRSDATE=$E($P(^SRF(SRTN,0),""^"",9),1,7) I $P(^SRF(SRTN,0),""^"",4)="""" D SS^SRSCHUP I SRSOUT K SRTN"
^XMB(3.9,146,2,331,0)="""RTN"",""SRSUPRQ"",14,0)"
^XMB(3.9,146,2,332,0)=" Q:$D(SRSCHED)  G:'$D(SRTN) END W !!,""1. Delete"",!,""2. Update Request Information"",!,""3. Change the Request Date"""
^XMB(3.9,146,2,333,0)="""RTN"",""SRSUPRQ"",15,0)"
^XMB(3.9,146,2,334,0)="SEL W !!,""Select Number: "" R Z:DTIME S:'$T!(""^""[Z) SRSOUT=1 G:SRSOUT END S:Z[""?"" Z=4"
^XMB(3.9,146,2,335,0)="""RTN"",""SRSUPRQ"",16,0)"
^XMB(3.9,146,2,336,0)=" I Z<1!(Z>3)!(+Z\1'=Z) W !!,""If you want to delete this request, enter '1'.  Enter '2' if you only want"",!,""to update the general information about this case, or '3' to change the date"",!,""that this case is requested for."" G SEL"
^XMB(3.9,146,2,337,0)="""RTN"",""SRSUPRQ"",17,0)"
^XMB(3.9,146,2,338,0)=" I $D(^XTMP(""SRLOCK-""_SRTN)) D MSG G END"
^XMB(3.9,146,2,339,0)="""RTN"",""SRSUPRQ"",18,0)"
^XMB(3.9,146,2,340,0)=" I Z=1 D DEL G END"
^XMB(3.9,146,2,341,0)="""RTN"",""SRSUPRQ"",19,0)"
^XMB(3.9,146,2,342,0)=" I Z=2 D UPDATE S SRSOUT=1 G END"
^XMB(3.9,146,2,343,0)="""RTN"",""SRSUPRQ"",20,0)"
^XMB(3.9,146,2,344,0)=" I Z=3 D CHANGE^SRSDT"
^XMB(3.9,146,2,345,0)="""RTN"",""SRSUPRQ"",21,0)"
^XMB(3.9,146,2,346,0)="END I '$D(SRLATE) S SRLATE=0"
^XMB(3.9,146,2,347,0)="""RTN"",""SRSUPRQ"",22,0)"
^XMB(3.9,146,2,348,0)=" I 'SRLATE,'SRSOUT W !!,""Press RETURN to continue  "" R X:DTIME"
^XMB(3.9,146,2,349,0)="""RTN"",""SRSUPRQ"",23,0)"
^XMB(3.9,146,2,350,0)=" W @IOF D ^SRSKILL K SRTN,SRTN1,SRTNX"
^XMB(3.9,146,2,351,0)="""RTN"",""SRSUPRQ"",24,0)"
^XMB(3.9,146,2,352,0)=" Q"
^XMB(3.9,146,2,353,0)="""RTN"",""SRSUPRQ"",25,0)"
^XMB(3.9,146,2,354,0)="OPS S SROPER=$P(SRCASE(CNT),""^"",3) K SROPS,MM,MMM S:$L(SROPER)<60 SROPS(1)=SROPER I $L(SROPER)>59 S SROPER=SROPER_""  "" F M=1:1 D LOOP Q:MMM="""""
^XMB(3.9,146,2,355,0)="""RTN"",""SRSUPRQ"",26,0)"
^XMB(3.9,146,2,356,0)=" Q"
^XMB(3.9,146,2,357,0)="""RTN"",""SRSUPRQ"",27,0)"
^XMB(3.9,146,2,358,0)="LOOP ; break procedure if greater than 60 characters"
^XMB(3.9,146,2,359,0)="""RTN"",""SRSUPRQ"",28,0)"
^XMB(3.9,146,2,360,0)=" S SROPS(M)="""" F LOOP=1:1 S MM=$P(SROPER,"" ""),MMM=$P(SROPER,"" "",2,200) Q:MMM=""""  Q:$L(SROPS(M))+$L(MM)'<60  S SROPS(M)=SROPS(M)_MM_"" "",SROPER=MMM"
^XMB(3.9,146,2,361,0)="""RTN"",""SRSUPRQ"",29,0)"
^XMB(3.9,146,2,362,0)=" Q"
^XMB(3.9,146,2,363,0)="""RTN"",""SRSUPRQ"",30,0)"
^XMB(3.9,146,2,364,0)="MANY ; select requested case if more than one"
^XMB(3.9,146,2,365,0)="""RTN"",""SRSUPRQ"",31,0)"
^XMB(3.9,146,2,366,0)=" W !!,""Select Operation Request: "" R SREQ:DTIME S:'$T SREQ=""^"" Q:""^""[SREQ  I SREQ[""?""!'$D(SRCASE(SREQ)) W !!,""Enter the number corresponding to the request that will be updated or deleted. "" G MANY"
^XMB(3.9,146,2,367,0)="""RTN"",""SRSUPRQ"",32,0)"
^XMB(3.9,146,2,368,0)=" S SRTN=$P(SRCASE(SREQ),""^"")"
^XMB(3.9,146,2,369,0)="""RTN"",""SRSUPRQ"",33,0)"
^XMB(3.9,146,2,370,0)=" Q"
^XMB(3.9,146,2,371,0)="""RTN"",""SRSUPRQ"",34,0)"
^XMB(3.9,146,2,372,0)="SETUP ; set SRCASE array to list requested cases for this patient"
^XMB(3.9,146,2,373,0)="""RTN"",""SRSUPRQ"",35,0)"
^XMB(3.9,146,2,374,0)=" S CNT=CNT+1,SRSDT=$P(^SRF(SRTN,0),""^"",9),SRSDT=$E(SRSDT,4,5)_""-""_$E(SRSDT,6,7)_""-""_$E(SRSDT,2,3),SRCASE(CNT)=SRTN_""^""_CNT_"".  ""_SRSDT_""^""_$P(^SRF(SRTN,""OP""),""^"")"
^XMB(3.9,146,2,375,0)="""RTN"",""SRSUPRQ"",36,0)"
^XMB(3.9,146,2,376,0)=" Q"
^XMB(3.9,146,2,377,0)="""RTN"",""SRSUPRQ"",37,0)"
^XMB(3.9,146,2,378,0)="DEL ; delete request"
^XMB(3.9,146,2,379,0)="""RTN"",""SRSUPRQ"",38,0)"
^XMB(3.9,146,2,380,0)=" S SRBOTH=0 W !!,""Are you sure that you want to delete this request ?  YES// "" R X:DTIME S:'$T X=""N"" S:X="""" X=""Y"" I X[""?"" W !!,""Enter RETURN if this request is to be deleted, or NO to quit. "" G DEL"
^XMB(3.9,146,2,381,0)="""RTN"",""SRSUPRQ"",39,0)"
^XMB(3.9,146,2,382,0)=" S X=$E(X) Q:""Yy""'[X  I '$$LOCK^SROUTL(SRTN) Q"
^XMB(3.9,146,2,383,0)="""RTN"",""SRSUPRQ"",40,0)"
^XMB(3.9,146,2,384,0)=" K DIE,DR,DA S DA=SRTN,DIE=130,DR=""36///0;Q;.09///""_SRSDATE D ^DIE K DR,DA,DIE S SRSDOC=$P(^SRF(SRTN,.1),""^"",4)"
^XMB(3.9,146,2,385,0)="""RTN"",""SRSUPRQ"",41,0)"
^XMB(3.9,146,2,386,0)=" S SRCON=$P($G(^SRF(SRTN,""CON"")),""^"") I SRCON D CON I SRBOTH=""^"" G END"
^XMB(3.9,146,2,387,0)="""RTN"",""SRSUPRQ"",42,0)"
^XMB(3.9,146,2,388,0)="OPALSO ; delete from file 130"
^XMB(3.9,146,2,389,0)="""RTN"",""SRSUPRQ"",43,0)"
^XMB(3.9,146,2,390,0)=" S SROPCOM=""Operation ..."""
^XMB(3.9,146,2,391,0)="""RTN"",""SRSUPRQ"",44,0)"
^XMB(3.9,146,2,392,0)=" S DFN=SRDFN,SRCC="""",SRTNX=SRTN D KILL^SROPDEL,UNLOCK^SROUTL(SRTNX) S SRTN=SRTN1 I $D(SRCON) S SRC="""" G:""^""[SRBOTH END I SRBOTH=1 S SRTN=SRCON,SRCC=""Concurrent "" D KILL^SROPDEL,UNLOCK^SROUTL(SRCON)"
^XMB(3.9,146,2,393,0)="""RTN"",""SRSUPRQ"",45,0)"
^XMB(3.9,146,2,394,0)=" Q"
^XMB(3.9,146,2,395,0)="""RTN"",""SRSUPRQ"",46,0)"
^XMB(3.9,146,2,396,0)="CON S SRCON=^SRF(SRTN,""CON""),SRC=""the request for"" D CC Q:SRBOTH=""^""  I SRBOTH=1 K DIE,DR,DA S DA=SRCON,DIE=130,DR=""36///0;Q;.09///""_SRSDATE D ^DIE K DR,DIE,DA S SRSDOCC=$P(^SRF(SRCON,.1),""^"",4)"
^XMB(3.9,146,2,397,0)="""RTN"",""SRSUPRQ"",47,0)"
^XMB(3.9,146,2,398,0)=" Q"
^XMB(3.9,146,2,399,0)="""RTN"",""SRSUPRQ"",48,0)"
^XMB(3.9,146,2,400,0)="CC ; check to see if concurrent case should be deleted"
^XMB(3.9,146,2,401,0)="""RTN"",""SRSUPRQ"",49,0)"
^XMB(3.9,146,2,402,0)=" W !!,""A concurrent case has been requested for this operation.  Do you want to"",!,""delete ""_SRC_"" it also ?  YES// "" R SRBOTH:DTIME S:'$T SRBOTH=""^"" I SRBOTH[""?"" W !!,""Enter 'Y' if you want to delete ""_SRC_"" concurrent case."" G CC"
^XMB(3.9,146,2,403,0)="""RTN"",""SRSUPRQ"",50,0)"
^XMB(3.9,146,2,404,0)=" S:SRBOTH="""" SRBOTH=""Y"" S SRBOTH=$E(SRBOTH) I ""YyNn""'[SRBOTH W !!,""Enter RETURN if you want these case to remain concurrent."" G CC"
^XMB(3.9,146,2,405,0)="""RTN"",""SRSUPRQ"",51,0)"
^XMB(3.9,146,2,406,0)=" I SRBOTH[""Y"" S SRBOTH=1"
^XMB(3.9,146,2,407,0)="""RTN"",""SRSUPRQ"",52,0)"
^XMB(3.9,146,2,408,0)=" S DA=SRCON,DR=""35///@"",DIE=130 D ^DIE S SROERR=SRCON D ^SROERR0 S DA=SRTN,DR=""35///@"",DIE=130 D ^DIE"
^XMB(3.9,146,2,409,0)="""RTN"",""SRSUPRQ"",53,0)"
^XMB(3.9,146,2,410,0)=" I SRBOTH'=1 K SRCON"
^XMB(3.9,146,2,411,0)="""RTN"",""SRSUPRQ"",54,0)"
^XMB(3.9,146,2,412,0)=" Q"
^XMB(3.9,146,2,413,0)="""RTN"",""SRSUPRQ"",55,0)"
^XMB(3.9,146,2,414,0)="UPDATE ; update requested operation"
^XMB(3.9,146,2,415,0)="""RTN"",""SRSUPRQ"",56,0)"
^XMB(3.9,146,2,416,0)=" N SRLCK S SRLCK=$$LOCK^SROUTL(SRTN) Q:'SRLCK"
^XMB(3.9,146,2,417,0)="""RTN"",""SRSUPRQ"",57,0)"
^XMB(3.9,146,2,418,0)=" D AVG^SRSREQ D RT K SRLNTH,SRLNTH1,DR,X"
^XMB(3.9,146,2,419,0)="""RTN"",""SRSUPRQ"",58,0)"
^XMB(3.9,146,2,420,0)=" S ST=""UPDATE REQUEST"",DA=SRTN,DIE=130,DR=""[SRSRES-ENTRY]"" D EN2^SROVAR K Q3(""VIEW""),Y S SPD=$$CHKS^SRSCOR(SRTN) D ^SRCUSS I SPD'=$$CHKS^SRSCOR(SRTN) S ^TMP(""CSLSUR1"",$J)="""""
^XMB(3.9,146,2,421,0)="""RTN"",""SRSUPRQ"",59,0)"
^XMB(3.9,146,2,422,0)=" K DR D:$D(SRODR) ^SROCON1 D RISK^SROAUTL3,^SROPCE1"
^XMB(3.9,146,2,423,0)="""RTN"",""SRSUPRQ"",60,0)"
^XMB(3.9,146,2,424,0)=" S SROERR=SRTN K SRTX D ^SROERR0"
^XMB(3.9,146,2,425,0)="""RTN"",""SRSUPRQ"",61,0)"
^XMB(3.9,146,2,426,0)=" I $G(SRLCK) D UNLOCK^SROUTL(SRTN)"
^XMB(3.9,146,2,427,0)="""RTN"",""SRSUPRQ"",62,0)"
^XMB(3.9,146,2,428,0)=" Q"
^XMB(3.9,146,2,429,0)="""RTN"",""SRSUPRQ"",63,0)"
^XMB(3.9,146,2,430,0)="RT ; start RT logging"
^XMB(3.9,146,2,431,0)="""RTN"",""SRSUPRQ"",64,0)"
^XMB(3.9,146,2,432,0)=" I $D(XRTL) S XRTN=""SRSUPRQ"" D T0^%ZOSV"
^XMB(3.9,146,2,433,0)="""RTN"",""SRSUPRQ"",65,0)"
^XMB(3.9,146,2,434,0)=" Q"
^XMB(3.9,146,2,435,0)="""RTN"",""SRSUPRQ"",66,0)"
^XMB(3.9,146,2,436,0)="MSG W !!,""This case is currently being edited."",!,""Please try again later..."",!! Q"
^XMB(3.9,146,2,437,0)="""VER"")"
^XMB(3.9,146,2,438,0)="8.0^22.0"
^XMB(3.9,146,2,439,0)="""BLD"",6301,6)"
^XMB(3.9,146,2,440,0)="^150"
^XMB(3.9,146,2,441,0)="$END KID SR*3.0*154"
^XMB(3.9,146,6,0)="^3.911A^2^2"
^XMB(3.9,146,6,1,0)="POSTMASTER"
^XMB(3.9,146,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,146,6,"B","POSTMASTER",1)=""
^XMB(3.9,146,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,147,0)="SR-3_SEQ-151_PAT-158.KID^.5^3061008.015742^^^^K"
^XMB(3.9,147,.6)="3061008"
^XMB(3.9,147,1,0)="^3.91A^2^2"
^XMB(3.9,147,1,1,0)=".5^0^3061008.015742^^^^^^^3061008.015742"
^XMB(3.9,147,1,2,0)="1^0^3061008.034814^^^^^^^3061008.022811"
^XMB(3.9,147,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,147,1,"C",.5,1)=""
^XMB(3.9,147,1,"C",1,2)=""
^XMB(3.9,147,2,0)="^^397^397^3061008"
^XMB(3.9,147,2,1,0)="$TXT Released SR*3*158 SEQ #151"
^XMB(3.9,147,2,2,0)="Extracted from mail message"
^XMB(3.9,147,2,3,0)="$END TXT"
^XMB(3.9,147,2,4,0)="$KID SR*3.0*158"
^XMB(3.9,147,2,5,0)="**INSTALL NAME**"
^XMB(3.9,147,2,6,0)="SR*3.0*158"
^XMB(3.9,147,2,7,0)="""BLD"",5944,0)"
^XMB(3.9,147,2,8,0)="SR*3.0*158^SURGERY^0^3060622^y"
^XMB(3.9,147,2,9,0)="""BLD"",5944,1,0)"
^XMB(3.9,147,2,10,0)="^^12^12^3060622^"
^XMB(3.9,147,2,11,0)="""BLD"",5944,1,1,0)"
^XMB(3.9,147,2,12,0)="After installing patch SR*3*144, if the SURGICAL RESIDENTS (Y/N) field "
^XMB(3.9,147,2,13,0)="""BLD"",5944,1,2,0)"
^XMB(3.9,147,2,14,0)="(#33) in the SURGERY SITE PARAMETERS file (#133) is NO, surgical cases for"
^XMB(3.9,147,2,15,0)="""BLD"",5944,1,3,0)"
^XMB(3.9,147,2,16,0)="that division created using the Schedule Unrequested Operations [SROSRES]"
^XMB(3.9,147,2,17,0)="""BLD"",5944,1,4,0)"
^XMB(3.9,147,2,18,0)="option will contain the textual name of the attending surgeon instead of "
^XMB(3.9,147,2,19,0)="""BLD"",5944,1,5,0)"
^XMB(3.9,147,2,20,0)="the pointer value in the ATTEND SURG field (#.164) in the SURGERY file"
^XMB(3.9,147,2,21,0)="""BLD"",5944,1,6,0)"
^XMB(3.9,147,2,22,0)="(#130)."
^XMB(3.9,147,2,23,0)="""BLD"",5944,1,7,0)"
^XMB(3.9,147,2,24,0)=" "
^XMB(3.9,147,2,25,0)="""BLD"",5944,1,8,0)"
^XMB(3.9,147,2,26,0)="This patch modifies the Schedule Unrequested Operations [SROSRES] option "
^XMB(3.9,147,2,27,0)="""BLD"",5944,1,9,0)"
^XMB(3.9,147,2,28,0)="so that the ATTEND SURG field (#.164) in the SURGERY file (#130) is set"
^XMB(3.9,147,2,29,0)="""BLD"",5944,1,10,0)"
^XMB(3.9,147,2,30,0)="correctly. This patch includes a post-installation process that will check"
^XMB(3.9,147,2,31,0)="""BLD"",5944,1,11,0)"
^XMB(3.9,147,2,32,0)="each surgical case and correct any textual entries that may exist in the"
^XMB(3.9,147,2,33,0)="""BLD"",5944,1,12,0)"
^XMB(3.9,147,2,34,0)="ATTEND SURG field (#.164) in the SURGERY file (#130)."
^XMB(3.9,147,2,35,0)="""BLD"",5944,4,0)"
^XMB(3.9,147,2,36,0)="^9.64PA^^"
^XMB(3.9,147,2,37,0)="""BLD"",5944,6.3)"
^XMB(3.9,147,2,38,0)="2"
^XMB(3.9,147,2,39,0)="""BLD"",5944,""INID"")"
^XMB(3.9,147,2,40,0)="^y"
^XMB(3.9,147,2,41,0)="""BLD"",5944,""INIT"")"
^XMB(3.9,147,2,42,0)="POST^SR158UTL"
^XMB(3.9,147,2,43,0)="""BLD"",5944,""KRN"",0)"
^XMB(3.9,147,2,44,0)="^9.67PA^8989.52^19"
^XMB(3.9,147,2,45,0)="""BLD"",5944,""KRN"",.4,0)"
^XMB(3.9,147,2,46,0)=".4"
^XMB(3.9,147,2,47,0)="""BLD"",5944,""KRN"",.401,0)"
^XMB(3.9,147,2,48,0)=".401"
^XMB(3.9,147,2,49,0)="""BLD"",5944,""KRN"",.402,0)"
^XMB(3.9,147,2,50,0)=".402"
^XMB(3.9,147,2,51,0)="""BLD"",5944,""KRN"",.403,0)"
^XMB(3.9,147,2,52,0)=".403"
^XMB(3.9,147,2,53,0)="""BLD"",5944,""KRN"",.5,0)"
^XMB(3.9,147,2,54,0)=".5"
^XMB(3.9,147,2,55,0)="""BLD"",5944,""KRN"",.84,0)"
^XMB(3.9,147,2,56,0)=".84"
^XMB(3.9,147,2,57,0)="""BLD"",5944,""KRN"",3.6,0)"
^XMB(3.9,147,2,58,0)="3.6"
^XMB(3.9,147,2,59,0)="""BLD"",5944,""KRN"",3.8,0)"
^XMB(3.9,147,2,60,0)="3.8"
^XMB(3.9,147,2,61,0)="""BLD"",5944,""KRN"",9.2,0)"
^XMB(3.9,147,2,62,0)="9.2"
^XMB(3.9,147,2,63,0)="""BLD"",5944,""KRN"",9.8,0)"
^XMB(3.9,147,2,64,0)="9.8"
^XMB(3.9,147,2,65,0)="""BLD"",5944,""KRN"",9.8,""NM"",0)"
^XMB(3.9,147,2,66,0)="^9.68A^1^1"
^XMB(3.9,147,2,67,0)="""BLD"",5944,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,147,2,68,0)="SRSCHUN^^0^B27047120"
^XMB(3.9,147,2,69,0)="""BLD"",5944,""KRN"",9.8,""NM"",""B"",""SRSCHUN"",1)"
^XMB(3.9,147,2,70,0)=""
^XMB(3.9,147,2,71,0)="""BLD"",5944,""KRN"",19,0)"
^XMB(3.9,147,2,72,0)="19"
^XMB(3.9,147,2,73,0)="""BLD"",5944,""KRN"",19.1,0)"
^XMB(3.9,147,2,74,0)="19.1"
^XMB(3.9,147,2,75,0)="""BLD"",5944,""KRN"",101,0)"
^XMB(3.9,147,2,76,0)="101"
^XMB(3.9,147,2,77,0)="""BLD"",5944,""KRN"",409.61,0)"
^XMB(3.9,147,2,78,0)="409.61"
^XMB(3.9,147,2,79,0)="""BLD"",5944,""KRN"",771,0)"
^XMB(3.9,147,2,80,0)="771"
^XMB(3.9,147,2,81,0)="""BLD"",5944,""KRN"",870,0)"
^XMB(3.9,147,2,82,0)="870"
^XMB(3.9,147,2,83,0)="""BLD"",5944,""KRN"",8989.51,0)"
^XMB(3.9,147,2,84,0)="8989.51"
^XMB(3.9,147,2,85,0)="""BLD"",5944,""KRN"",8989.52,0)"
^XMB(3.9,147,2,86,0)="8989.52"
^XMB(3.9,147,2,87,0)="""BLD"",5944,""KRN"",8994,0)"
^XMB(3.9,147,2,88,0)="8994"
^XMB(3.9,147,2,89,0)="""BLD"",5944,""KRN"",""B"",.4,.4)"
^XMB(3.9,147,2,90,0)=""
^XMB(3.9,147,2,91,0)="""BLD"",5944,""KRN"",""B"",.401,.401)"
^XMB(3.9,147,2,92,0)=""
^XMB(3.9,147,2,93,0)="""BLD"",5944,""KRN"",""B"",.402,.402)"
^XMB(3.9,147,2,94,0)=""
^XMB(3.9,147,2,95,0)="""BLD"",5944,""KRN"",""B"",.403,.403)"
^XMB(3.9,147,2,96,0)=""
^XMB(3.9,147,2,97,0)="""BLD"",5944,""KRN"",""B"",.5,.5)"
^XMB(3.9,147,2,98,0)=""
^XMB(3.9,147,2,99,0)="""BLD"",5944,""KRN"",""B"",.84,.84)"
^XMB(3.9,147,2,100,0)=""
^XMB(3.9,147,2,101,0)="""BLD"",5944,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,147,2,102,0)=""
^XMB(3.9,147,2,103,0)="""BLD"",5944,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,147,2,104,0)=""
^XMB(3.9,147,2,105,0)="""BLD"",5944,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,147,2,106,0)=""
^XMB(3.9,147,2,107,0)="""BLD"",5944,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,147,2,108,0)=""
^XMB(3.9,147,2,109,0)="""BLD"",5944,""KRN"",""B"",19,19)"
^XMB(3.9,147,2,110,0)=""
^XMB(3.9,147,2,111,0)="""BLD"",5944,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,147,2,112,0)=""
^XMB(3.9,147,2,113,0)="""BLD"",5944,""KRN"",""B"",101,101)"
^XMB(3.9,147,2,114,0)=""
^XMB(3.9,147,2,115,0)="""BLD"",5944,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,147,2,116,0)=""
^XMB(3.9,147,2,117,0)="""BLD"",5944,""KRN"",""B"",771,771)"
^XMB(3.9,147,2,118,0)=""
^XMB(3.9,147,2,119,0)="""BLD"",5944,""KRN"",""B"",870,870)"
^XMB(3.9,147,2,120,0)=""
^XMB(3.9,147,2,121,0)="""BLD"",5944,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,147,2,122,0)=""
^XMB(3.9,147,2,123,0)="""BLD"",5944,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,147,2,124,0)=""
^XMB(3.9,147,2,125,0)="""BLD"",5944,""KRN"",""B"",8994,8994)"
^XMB(3.9,147,2,126,0)=""
^XMB(3.9,147,2,127,0)="""BLD"",5944,""QUES"",0)"
^XMB(3.9,147,2,128,0)="^9.62^^"
^XMB(3.9,147,2,129,0)="""BLD"",5944,""REQB"",0)"
^XMB(3.9,147,2,130,0)="^9.611^1^1"
^XMB(3.9,147,2,131,0)="""BLD"",5944,""REQB"",1,0)"
^XMB(3.9,147,2,132,0)="SR*3.0*144^1"
^XMB(3.9,147,2,133,0)="""BLD"",5944,""REQB"",""B"",""SR*3.0*144"",1)"
^XMB(3.9,147,2,134,0)=""
^XMB(3.9,147,2,135,0)="""INIT"")"
^XMB(3.9,147,2,136,0)="POST^SR158UTL"
^XMB(3.9,147,2,137,0)="""MBREQ"")"
^XMB(3.9,147,2,138,0)="0"
^XMB(3.9,147,2,139,0)="""PKG"",167,-1)"
^XMB(3.9,147,2,140,0)="1^1"
^XMB(3.9,147,2,141,0)="""PKG"",167,0)"
^XMB(3.9,147,2,142,0)="SURGERY^SR^SURGICAL DATA COLLECTION AND OPERATIONS SCHEDULING"
^XMB(3.9,147,2,143,0)="""PKG"",167,20,0)"
^XMB(3.9,147,2,144,0)="^9.402P^^"
^XMB(3.9,147,2,145,0)="""PKG"",167,22,0)"
^XMB(3.9,147,2,146,0)="^9.49I^1^1"
^XMB(3.9,147,2,147,0)="""PKG"",167,22,1,0)"
^XMB(3.9,147,2,148,0)="3.0^2930624^2930811"
^XMB(3.9,147,2,149,0)="""PKG"",167,22,1,""PAH"",1,0)"
^XMB(3.9,147,2,150,0)="158^3060622"
^XMB(3.9,147,2,151,0)="""PKG"",167,22,1,""PAH"",1,1,0)"
^XMB(3.9,147,2,152,0)="^^12^12^3060622"
^XMB(3.9,147,2,153,0)="""PKG"",167,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,147,2,154,0)="After installing patch SR*3*144, if the SURGICAL RESIDENTS (Y/N) field "
^XMB(3.9,147,2,155,0)="""PKG"",167,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,147,2,156,0)="(#33) in the SURGERY SITE PARAMETERS file (#133) is NO, surgical cases for"
^XMB(3.9,147,2,157,0)="""PKG"",167,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,147,2,158,0)="that division created using the Schedule Unrequested Operations [SROSRES]"
^XMB(3.9,147,2,159,0)="""PKG"",167,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,147,2,160,0)="option will contain the textual name of the attending surgeon instead of "
^XMB(3.9,147,2,161,0)="""PKG"",167,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,147,2,162,0)="the pointer value in the ATTEND SURG field (#.164) in the SURGERY file"
^XMB(3.9,147,2,163,0)="""PKG"",167,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,147,2,164,0)="(#130)."
^XMB(3.9,147,2,165,0)="""PKG"",167,22,1,""PAH"",1,1,7,0)"
^XMB(3.9,147,2,166,0)=" "
^XMB(3.9,147,2,167,0)="""PKG"",167,22,1,""PAH"",1,1,8,0)"
^XMB(3.9,147,2,168,0)="This patch modifies the Schedule Unrequested Operations [SROSRES] option "
^XMB(3.9,147,2,169,0)="""PKG"",167,22,1,""PAH"",1,1,9,0)"
^XMB(3.9,147,2,170,0)="so that the ATTEND SURG field (#.164) in the SURGERY file (#130) is set"
^XMB(3.9,147,2,171,0)="""PKG"",167,22,1,""PAH"",1,1,10,0)"
^XMB(3.9,147,2,172,0)="correctly. This patch includes a post-installation process that will check"
^XMB(3.9,147,2,173,0)="""PKG"",167,22,1,""PAH"",1,1,11,0)"
^XMB(3.9,147,2,174,0)="each surgical case and correct any textual entries that may exist in the"
^XMB(3.9,147,2,175,0)="""PKG"",167,22,1,""PAH"",1,1,12,0)"
^XMB(3.9,147,2,176,0)="ATTEND SURG field (#.164) in the SURGERY file (#130)."
^XMB(3.9,147,2,177,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,147,2,178,0)="Y"
^XMB(3.9,147,2,179,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,147,2,180,0)="^D REP^XPDH"
^XMB(3.9,147,2,181,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,147,2,182,0)="Shall I write over your |FLAG| File"
^XMB(3.9,147,2,183,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,147,2,184,0)="YES"
^XMB(3.9,147,2,185,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,147,2,186,0)="D XPF1^XPDIQ"
^XMB(3.9,147,2,187,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,147,2,188,0)="Y"
^XMB(3.9,147,2,189,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,147,2,190,0)="^D DTA^XPDH"
^XMB(3.9,147,2,191,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,147,2,192,0)="Want my data |FLAG| yours"
^XMB(3.9,147,2,193,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,147,2,194,0)="YES"
^XMB(3.9,147,2,195,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,147,2,196,0)="D XPF2^XPDIQ"
^XMB(3.9,147,2,197,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,147,2,198,0)="YO"
^XMB(3.9,147,2,199,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,147,2,200,0)="^D INHIBIT^XPDH"
^XMB(3.9,147,2,201,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,147,2,202,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,147,2,203,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,147,2,204,0)="YES"
^XMB(3.9,147,2,205,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,147,2,206,0)="D XPI1^XPDIQ"
^XMB(3.9,147,2,207,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,147,2,208,0)="PO^VA(200,:EM"
^XMB(3.9,147,2,209,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,147,2,210,0)="^D MG^XPDH"
^XMB(3.9,147,2,211,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,147,2,212,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,147,2,213,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,147,2,214,0)=""
^XMB(3.9,147,2,215,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,147,2,216,0)="D XPM1^XPDIQ"
^XMB(3.9,147,2,217,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,147,2,218,0)="Y"
^XMB(3.9,147,2,219,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,147,2,220,0)="^D MENU^XPDH"
^XMB(3.9,147,2,221,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,147,2,222,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,147,2,223,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,147,2,224,0)="YES"
^XMB(3.9,147,2,225,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,147,2,226,0)="D XPO1^XPDIQ"
^XMB(3.9,147,2,227,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,147,2,228,0)="Y"
^XMB(3.9,147,2,229,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,147,2,230,0)="^D OPT^XPDH"
^XMB(3.9,147,2,231,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,147,2,232,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,147,2,233,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,147,2,234,0)="YES"
^XMB(3.9,147,2,235,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,147,2,236,0)="D XPZ1^XPDIQ"
^XMB(3.9,147,2,237,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,147,2,238,0)="Y"
^XMB(3.9,147,2,239,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,147,2,240,0)="^D RTN^XPDH"
^XMB(3.9,147,2,241,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,147,2,242,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,147,2,243,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,147,2,244,0)="NO"
^XMB(3.9,147,2,245,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,147,2,246,0)="D XPZ2^XPDIQ"
^XMB(3.9,147,2,247,0)="""RTN"")"
^XMB(3.9,147,2,248,0)="2"
^XMB(3.9,147,2,249,0)="""RTN"",""SR158UTL"")"
^XMB(3.9,147,2,250,0)="0^^B666091^n/a"
^XMB(3.9,147,2,251,0)="""RTN"",""SR158UTL"",1,0)"
^XMB(3.9,147,2,252,0)="SR158UTL ;BIR/ADM - CONVERSION ROUTINE FOR SR*3*158 ;06/22/06"
^XMB(3.9,147,2,253,0)="""RTN"",""SR158UTL"",2,0)"
^XMB(3.9,147,2,254,0)=" ;;3.0; Surgery ;**158**;24 Jun 93;Build 2"
^XMB(3.9,147,2,255,0)="""RTN"",""SR158UTL"",3,0)"
^XMB(3.9,147,2,256,0)=" Q"
^XMB(3.9,147,2,257,0)="""RTN"",""SR158UTL"",4,0)"
^XMB(3.9,147,2,258,0)="POST ; post-install entry for patch SR*3*158"
^XMB(3.9,147,2,259,0)="""RTN"",""SR158UTL"",5,0)"
^XMB(3.9,147,2,260,0)=" N SRATT,SRCASE,SREQ,SRP1,X S SRCASE=0"
^XMB(3.9,147,2,261,0)="""RTN"",""SR158UTL"",6,0)"
^XMB(3.9,147,2,262,0)=" F  S SRCASE=$O(^SRF(SRCASE)) Q:'SRCASE  S SRP1=$G(^SRF(SRCASE,.1)) I SRP1'="""" D"
^XMB(3.9,147,2,263,0)="""RTN"",""SR158UTL"",7,0)"
^XMB(3.9,147,2,264,0)=" .S SRATT=$P(SRP1,""^"",13) I $L(SRATT),SRATT'=+SRATT S X=$P(SRP1,""^"",4) D"
^XMB(3.9,147,2,265,0)="""RTN"",""SR158UTL"",8,0)"
^XMB(3.9,147,2,266,0)=" ..S SREQ(130,SRCASE_"","",.164)=X D FILE^DIE("""",""SREQ"",""^TMP(""""SR"""",$J)"")"
^XMB(3.9,147,2,267,0)="""RTN"",""SR158UTL"",9,0)"
^XMB(3.9,147,2,268,0)=" Q"
^XMB(3.9,147,2,269,0)="""RTN"",""SRSCHUN"")"
^XMB(3.9,147,2,270,0)="0^1^B27047120^B27018282"
^XMB(3.9,147,2,271,0)="""RTN"",""SRSCHUN"",1,0)"
^XMB(3.9,147,2,272,0)="SRSCHUN ;BIR/ADM - MAKE UNREQUESTED OPERATION ;06/20/06"
^XMB(3.9,147,2,273,0)="""RTN"",""SRSCHUN"",2,0)"
^XMB(3.9,147,2,274,0)=" ;;3.0; Surgery ;**3,67,68,88,103,100,144,158**;24 Jun 93;Build 2"
^XMB(3.9,147,2,275,0)="""RTN"",""SRSCHUN"",3,0)"
^XMB(3.9,147,2,276,0)="MUST S SRLINE="""" F I=1:1:80 S SRLINE=SRLINE_""="""
^XMB(3.9,147,2,277,0)="""RTN"",""SRSCHUN"",4,0)"
^XMB(3.9,147,2,278,0)=" W @IOF W:$D(SRCC) !,?29,$S(SRSCON=1:""FIRST"",1:""SECOND"")_"" CONCURRENT CASE"" W !,?14,""SCHEDULE UNREQUESTED OPERATION: REQUIRED INFORMATION"",!!,SRNM_"" (""_$G(SRSSN)_"")"",?65,SREQDT,!,SRLINE,!"
^XMB(3.9,147,2,279,0)="""RTN"",""SRSCHUN"",5,0)"
^XMB(3.9,147,2,280,0)="SURG ; surgeon"
^XMB(3.9,147,2,281,0)="""RTN"",""SRSCHUN"",6,0)"
^XMB(3.9,147,2,282,0)=" K DIR S DIR(0)=""130,.14"",DIR(""A"")=""Surgeon"" D ^DIR K DIR I $D(DTOUT)!(X=""^"") S SRSOUT=1 G END"
^XMB(3.9,147,2,283,0)="""RTN"",""SRSCHUN"",7,0)"
^XMB(3.9,147,2,284,0)=" I Y=""""!(X[""^"") W !!,""To create a surgical case, a surgeon MUST be selected.  Enter '^' to exit."",! G SURG"
^XMB(3.9,147,2,285,0)="""RTN"",""SRSCHUN"",8,0)"
^XMB(3.9,147,2,286,0)=" S SRSDOC=+Y"
^XMB(3.9,147,2,287,0)="""RTN"",""SRSCHUN"",9,0)"
^XMB(3.9,147,2,288,0)="CASE ; create case in SURGERY file"
^XMB(3.9,147,2,289,0)="""RTN"",""SRSCHUN"",10,0)"
^XMB(3.9,147,2,290,0)=" K DA,DIC,DD,DO,DINUM,SRTN S X=SRSDPT,DIC=""^SRF("",DIC(0)=""L"",DLAYGO=130 D FILE^DICN K DD,DO,DIC,DLAYGO S SRTN=+Y,SRLCK=$$LOCK^SROUTL(SRTN)"
^XMB(3.9,147,2,291,0)="""RTN"",""SRSCHUN"",11,0)"
^XMB(3.9,147,2,292,0)=" S ^SRF(SRTN,8)=SRSITE(""DIV""),^SRF(SRTN,""OP"")="""""
^XMB(3.9,147,2,293,0)="""RTN"",""SRSCHUN"",12,0)"
^XMB(3.9,147,2,294,0)=" D NOW^%DTC S SREQDAY=+$E(%,1,12),SRNOCON=1 K DR,DIE"
^XMB(3.9,147,2,295,0)="""RTN"",""SRSCHUN"",13,0)"
^XMB(3.9,147,2,296,0)=" S DA=SRTN,DIE=130,DR="".09////""_SRSDATE_"";.14////""_SRSDOC_"";1.098////""_+SREQDAY_"";1.099////""_DUZ_"";Q;.02////""_SRSOR_"";10////""_SRSDT1_"";11////""_SRSDT2 D ^DIE K DR"
^XMB(3.9,147,2,297,0)="""RTN"",""SRSCHUN"",14,0)"
^XMB(3.9,147,2,298,0)="ASURG ; attending surgeon"
^XMB(3.9,147,2,299,0)="""RTN"",""SRSCHUN"",15,0)"
^XMB(3.9,147,2,300,0)=" K DA,DIC,DIQ,DR,SRY S DIC=""^SRF("",DA=SRTN,DIQ=""SRY"",DIQ(0)=""E"",DR=.164 D EN^DIQ1 K DA,DIC,DIQ,DR"
^XMB(3.9,147,2,301,0)="""RTN"",""SRSCHUN"",16,0)"
^XMB(3.9,147,2,302,0)=" I $G(SRY(130,SRTN,.164,""E""))'="""" S SRATTND=SRY(130,SRTN,.164,""E"") W !,""Attending Surgeon: ""_SRATTND,! G SPEC"
^XMB(3.9,147,2,303,0)="""RTN"",""SRSCHUN"",17,0)"
^XMB(3.9,147,2,304,0)=" K DIR S DIR(0)=""130,.164"",DIR(""A"")=""Attending Surgeon"" D ^DIR K DIR I $D(DTOUT)!(X=""^"") S SRSOUT=1 G DEL"
^XMB(3.9,147,2,305,0)="""RTN"",""SRSCHUN"",18,0)"
^XMB(3.9,147,2,306,0)=" I Y=""""!(X[""^"") W !!,""An Attending Surgeon must be entered when creating a case. Enter '^' to exit."",! G ASURG"
^XMB(3.9,147,2,307,0)="""RTN"",""SRSCHUN"",19,0)"
^XMB(3.9,147,2,308,0)=" S SRATTND=+Y,DA=SRTN,DIE=130,DR="".164////""_SRATTND D ^DIE K DA,DIE,DR"
^XMB(3.9,147,2,309,0)="""RTN"",""SRSCHUN"",20,0)"
^XMB(3.9,147,2,310,0)="SPEC ; surgical specialty"
^XMB(3.9,147,2,311,0)="""RTN"",""SRSCHUN"",21,0)"
^XMB(3.9,147,2,312,0)=" K DIR S DIR(0)=""130,.04"",DIR(""A"")=""Surgical Specialty"" D ^DIR K DIR I $D(DTOUT)!(X=""^"") S SRSOUT=1 G DEL"
^XMB(3.9,147,2,313,0)="""RTN"",""SRSCHUN"",22,0)"
^XMB(3.9,147,2,314,0)=" I Y=""""!(X[""^"") W !!,""To create a surgical case, a surgical specialty MUST be selected.  Enter '^'"",!,""to exit."",! G SPEC"
^XMB(3.9,147,2,315,0)="""RTN"",""SRSCHUN"",23,0)"
^XMB(3.9,147,2,316,0)=" S SRSS=+Y"
^XMB(3.9,147,2,317,0)="""RTN"",""SRSCHUN"",24,0)"
^XMB(3.9,147,2,318,0)="OP ; principal operative procedure"
^XMB(3.9,147,2,319,0)="""RTN"",""SRSCHUN"",25,0)"
^XMB(3.9,147,2,320,0)=" K DIR S DIR(0)=""130,26"",DIR(""A"")=""Principal Operative Procedure"" D ^DIR K DIR I $D(DTOUT)!(X=""^"") S SRSOUT=1 G DEL"
^XMB(3.9,147,2,321,0)="""RTN"",""SRSCHUN"",26,0)"
^XMB(3.9,147,2,322,0)=" I X[""^"" W !!,""Principal procedure must not contain an up-arrow (^)."",! G OP"
^XMB(3.9,147,2,323,0)="""RTN"",""SRSCHUN"",27,0)"
^XMB(3.9,147,2,324,0)=" S SRSOP=Y I SRSOP="""" G OP"
^XMB(3.9,147,2,325,0)="""RTN"",""SRSCHUN"",28,0)"
^XMB(3.9,147,2,326,0)="OPD ; Principal Preoperative Diagnosis"
^XMB(3.9,147,2,327,0)="""RTN"",""SRSCHUN"",29,0)"
^XMB(3.9,147,2,328,0)=" K DIR S DIR(0)=""130,32"",DIR(""A"")=""Principal Preoperative Diagnosis"" D ^DIR K DIR I $D(DTOUT)!(X=""^"") S SRSOUT=1 G DEL"
^XMB(3.9,147,2,329,0)="""RTN"",""SRSCHUN"",30,0)"
^XMB(3.9,147,2,330,0)=" I Y=""""!(X[""^"") W !!,""A Principal Preoperative Diagnosis must be entered"",!,""when creating a new case. Enter '^' to exit."",! G OPD"
^XMB(3.9,147,2,331,0)="""RTN"",""SRSCHUN"",31,0)"
^XMB(3.9,147,2,332,0)=" I X["";"" W !,""The Principal Preoperative Diagnosis cannot contain a semicolon (;)."",!,""Please re-enter the Diagnosis, using commas in place of the semicolons."" G OPD"
^XMB(3.9,147,2,333,0)="""RTN"",""SRSCHUN"",32,0)"
^XMB(3.9,147,2,334,0)=" S SRSOPD=Y"
^XMB(3.9,147,2,335,0)="""RTN"",""SRSCHUN"",33,0)"
^XMB(3.9,147,2,336,0)=" W !!,""The information entered into the Principal Preoperative Diagnosis field"",!,""has been transferred into the Indications for Operation field."",!,""The Indications for Operation field can be updated later if necessary."",!"
^XMB(3.9,147,2,337,0)="""RTN"",""SRSCHUN"",34,0)"
^XMB(3.9,147,2,338,0)=" W !!,""Press RETURN to continue  "" R X:DTIME"
^XMB(3.9,147,2,339,0)="""RTN"",""SRSCHUN"",35,0)"
^XMB(3.9,147,2,340,0)="UPDATE ; update case in SURGERY file"
^XMB(3.9,147,2,341,0)="""RTN"",""SRSCHUN"",36,0)"
^XMB(3.9,147,2,342,0)=" S DA=SRTN,DIE=130,DR=""26////""_SRSOP_"";68////""_SRSOP_"";36////0;Q;.04////""_SRSS_"";32////""_SRSOPD D ^DIE"
^XMB(3.9,147,2,343,0)="""RTN"",""SRSCHUN"",37,0)"
^XMB(3.9,147,2,344,0)=" K DR,DA S DR=""[SRO-NOCOMP]"",DA=SRTN,DIE=130 D ^DIE K DR"
^XMB(3.9,147,2,345,0)="""RTN"",""SRSCHUN"",38,0)"
^XMB(3.9,147,2,346,0)=" D ^SROXRET K SRNOCON"
^XMB(3.9,147,2,347,0)="""RTN"",""SRSCHUN"",39,0)"
^XMB(3.9,147,2,348,0)="OTHER ; other required fields"
^XMB(3.9,147,2,349,0)="""RTN"",""SRSCHUN"",40,0)"
^XMB(3.9,147,2,350,0)=" S SRFLD=0 F  S SRFLD=$O(^SRO(133,SRSITE,4,SRFLD)) Q:'SRFLD!(SRSOUT)  D OTHDIR Q:SRSOUT"
^XMB(3.9,147,2,351,0)="""RTN"",""SRSCHUN"",41,0)"
^XMB(3.9,147,2,352,0)=" I SRSOUT G DEL"
^XMB(3.9,147,2,353,0)="""RTN"",""SRSCHUN"",42,0)"
^XMB(3.9,147,2,354,0)=" S SRSOPD(1)=SRSOPD D WP^DIE(130,SRTN_"","",55,""A"",""SRSOPD"")"
^XMB(3.9,147,2,355,0)="""RTN"",""SRSCHUN"",43,0)"
^XMB(3.9,147,2,356,0)=" D:$G(SRLCK) UNLOCK^SROUTL(SRTN)"
^XMB(3.9,147,2,357,0)="""RTN"",""SRSCHUN"",44,0)"
^XMB(3.9,147,2,358,0)=" S SROERR=SRTN D ^SROERR I $D(SRDUOUT) S SRSOUT=1"
^XMB(3.9,147,2,359,0)="""RTN"",""SRSCHUN"",45,0)"
^XMB(3.9,147,2,360,0)=" I $D(SRCC),SRSCON=2 S DIE=130,DR=""35////""_SRSCON(1),DA=SRTN D ^DIE K DR S DR=""35////""_SRTN,DA=SRSCON(1),DIE=130 D ^DIE K DR,DA S SROERR=SRSCON(1) D ^SROERR0"
^XMB(3.9,147,2,361,0)="""RTN"",""SRSCHUN"",46,0)"
^XMB(3.9,147,2,362,0)=" Q"
^XMB(3.9,147,2,363,0)="""RTN"",""SRSCHUN"",47,0)"
^XMB(3.9,147,2,364,0)="DEL S DA=SRTN,DIK=""^SRF("" D ^DIK G END"
^XMB(3.9,147,2,365,0)="""RTN"",""SRSCHUN"",48,0)"
^XMB(3.9,147,2,366,0)="CON ; request concurrent case"
^XMB(3.9,147,2,367,0)="""RTN"",""SRSCHUN"",49,0)"
^XMB(3.9,147,2,368,0)=" D MUST Q:SRSOUT  S SRSCON(SRSCON,""DOC"")=$P(^VA(200,SRSDOC,0),""^""),SRSCON(SRSCON,""SS"")=$P(^SRO(137.45,SRSS,0),""^""),SRSCON(SRSCON,""OP"")=$P(^SRF(SRTN,""OP""),""^""),SRSCON(SRSCON)=SRTN K DA"
^XMB(3.9,147,2,369,0)="""RTN"",""SRSCHUN"",50,0)"
^XMB(3.9,147,2,370,0)=" Q"
^XMB(3.9,147,2,371,0)="""RTN"",""SRSCHUN"",51,0)"
^XMB(3.9,147,2,372,0)="OTHDIR ; call to reader for site specific required fields"
^XMB(3.9,147,2,373,0)="""RTN"",""SRSCHUN"",52,0)"
^XMB(3.9,147,2,374,0)=" K DIR,SREQ,SRY S FLD=$P(^SRO(133,SRSITE,4,SRFLD,0),""^"") D FIELD^DID(130,FLD,"""",""TITLE"",""SRY"") S DIR(0)=""130,""_FLD,DIR(""A"")=SRY(""TITLE"") D ^DIR I $D(DTOUT)!(X=""^"") S SRSOUT=1 Q"
^XMB(3.9,147,2,375,0)="""RTN"",""SRSCHUN"",53,0)"
^XMB(3.9,147,2,376,0)=" I Y=""""!(X[""^"") W !!,""It is mandatory that you provide this information before proceeding with this"",!,""option."",! D ASK Q:SRSOUT  G OTHDIR"
^XMB(3.9,147,2,377,0)="""RTN"",""SRSCHUN"",54,0)"
^XMB(3.9,147,2,378,0)=" S SREQ(130,SRTN_"","",FLD)=$P(Y,""^"") D FILE^DIE("""",""SREQ"",""^TMP(""""SR"""",$J)"")"
^XMB(3.9,147,2,379,0)="""RTN"",""SRSCHUN"",55,0)"
^XMB(3.9,147,2,380,0)=" Q"
^XMB(3.9,147,2,381,0)="""RTN"",""SRSCHUN"",56,0)"
^XMB(3.9,147,2,382,0)="ASK K DIR S DIR(0)=""Y"",DIR(""A"")=""Do you want to continue with this option "",DIR(""B"")=""YES"""
^XMB(3.9,147,2,383,0)="""RTN"",""SRSCHUN"",57,0)"
^XMB(3.9,147,2,384,0)=" S DIR(""?"")=""Enter RETURN to continue with this option, or 'NO' to discontinue this option."" D ^DIR S:'Y SRSOUT=1"
^XMB(3.9,147,2,385,0)="""RTN"",""SRSCHUN"",58,0)"
^XMB(3.9,147,2,386,0)=" Q"
^XMB(3.9,147,2,387,0)="""RTN"",""SRSCHUN"",59,0)"
^XMB(3.9,147,2,388,0)="END D:$G(SRLCK) UNLOCK^SROUTL(SRTN)"
^XMB(3.9,147,2,389,0)="""RTN"",""SRSCHUN"",60,0)"
^XMB(3.9,147,2,390,0)=" I '$D(SRCC),SRSOUT W !!,""No surgical case has been scheduled."",! S SRTN(""OR"")=SRSOR,SRTN(""START"")=SRSDT1,SRTN(""END"")=SRSDT2,SRSEDT=$E(SRSDT2,1,7) D ^SRSCG"
^XMB(3.9,147,2,391,0)="""RTN"",""SRSCHUN"",61,0)"
^XMB(3.9,147,2,392,0)=" Q"
^XMB(3.9,147,2,393,0)="""VER"")"
^XMB(3.9,147,2,394,0)="8.0^22.0"
^XMB(3.9,147,2,395,0)="""BLD"",5944,6)"
^XMB(3.9,147,2,396,0)="^151"
^XMB(3.9,147,2,397,0)="$END KID SR*3.0*158"
^XMB(3.9,147,6,0)="^3.911A^2^2"
^XMB(3.9,147,6,1,0)="POSTMASTER"
^XMB(3.9,147,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,147,6,"B","POSTMASTER",1)=""
^XMB(3.9,147,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,148,0)="SR-3_SEQ-152_PAT-153.KID^.5^3061008.015743^^^^K"
^XMB(3.9,148,.6)="3061008"
^XMB(3.9,148,1,0)="^3.91A^2^2"
^XMB(3.9,148,1,1,0)=".5^0^3061008.015743^^^^^^^3061008.015743"
^XMB(3.9,148,1,2,0)="1^0^3061008.022815^^^^^^^3061008.022815"
^XMB(3.9,148,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,148,1,"C",.5,1)=""
^XMB(3.9,148,1,"C",1,2)=""
^XMB(3.9,148,2,0)="^^17501^17501^3061008"
^XMB(3.9,148,2,1,0)="$TXT Released SR*3*153 SEQ #152"
^XMB(3.9,148,2,2,0)="Extracted from mail message"
^XMB(3.9,148,2,3,0)="$END TXT"
^XMB(3.9,148,2,4,0)="$KID SR*3.0*153"
^XMB(3.9,148,2,5,0)="**INSTALL NAME**"
^XMB(3.9,148,2,6,0)="SR*3.0*153"
^XMB(3.9,148,2,7,0)="""BLD"",5583,0)"
^XMB(3.9,148,2,8,0)="SR*3.0*153^SURGERY^0^3060717^y"
^XMB(3.9,148,2,9,0)="""BLD"",5583,1,0)"
^XMB(3.9,148,2,10,0)="^^123^123^3060516^"
^XMB(3.9,148,2,11,0)="""BLD"",5583,1,1,0)"
^XMB(3.9,148,2,12,0)="his patch updates the Surgery Risk Assessment software of the Veterans"
^XMB(3.9,148,2,13,0)="""BLD"",5583,1,2,0)"
^XMB(3.9,148,2,14,0)="Health Information Systems and Technology Architecture (VistA)"
^XMB(3.9,148,2,15,0)="""BLD"",5583,1,3,0)"
^XMB(3.9,148,2,16,0)="Surgery application as requested by the Executive Board of the National"
^XMB(3.9,148,2,17,0)="""BLD"",5583,1,4,0)"
^XMB(3.9,148,2,18,0)="Surgical Quality Improvement Program (NSQIP) and by the Cardiac Surgery"
^XMB(3.9,148,2,19,0)="""BLD"",5583,1,5,0)"
^XMB(3.9,148,2,20,0)="Consultants Board of the Continuous Improvement in Cardiac Surgery"
^XMB(3.9,148,2,21,0)="""BLD"",5583,1,6,0)"
^XMB(3.9,148,2,22,0)="Program (CICSP). These updates include the addition of new data fields,"
^XMB(3.9,148,2,23,0)="""BLD"",5583,1,7,0)"
^XMB(3.9,148,2,24,0)="changes to existing data fields, changes to data entry screens, changes"
^XMB(3.9,148,2,25,0)="""BLD"",5583,1,8,0)"
^XMB(3.9,148,2,26,0)="to reports used in Surgery Risk Assessment management process and changes"
^XMB(3.9,148,2,27,0)="""BLD"",5583,1,9,0)"
^XMB(3.9,148,2,28,0)="to the Surgery Risk Assessment transmissions."
^XMB(3.9,148,2,29,0)="""BLD"",5583,1,10,0)"
^XMB(3.9,148,2,30,0)=" "
^XMB(3.9,148,2,31,0)="""BLD"",5583,1,11,0)"
^XMB(3.9,148,2,32,0)="NOTE: All fields listed below are in the SURGERY file (#130) unless"
^XMB(3.9,148,2,33,0)="""BLD"",5583,1,12,0)"
^XMB(3.9,148,2,34,0)="otherwise indicated."
^XMB(3.9,148,2,35,0)="""BLD"",5583,1,13,0)"
^XMB(3.9,148,2,36,0)=" "
^XMB(3.9,148,2,37,0)="""BLD"",5583,1,14,0)"
^XMB(3.9,148,2,38,0)="Cardiac Risk Assessment Modifications"
^XMB(3.9,148,2,39,0)="""BLD"",5583,1,15,0)"
^XMB(3.9,148,2,40,0)="-------------------------------------"
^XMB(3.9,148,2,41,0)="""BLD"",5583,1,16,0)"
^XMB(3.9,148,2,42,0)=" o Modifications to the Clinical Information (Enter/Edit) [SROA CLINICAL"
^XMB(3.9,148,2,43,0)="""BLD"",5583,1,17,0)"
^XMB(3.9,148,2,44,0)="   INFORMATION] option"
^XMB(3.9,148,2,45,0)="""BLD"",5583,1,18,0)"
^XMB(3.9,148,2,46,0)="  - The software is modified to auto-populate the HEIGHT field (#236) and"
^XMB(3.9,148,2,47,0)="""BLD"",5583,1,19,0)"
^XMB(3.9,148,2,48,0)="    the WEIGHT field (#237) as documented in the Vitals software."
^XMB(3.9,148,2,49,0)="""BLD"",5583,1,20,0)"
^XMB(3.9,148,2,50,0)="  - The Current Smoker item under this option is modified to reference to"
^XMB(3.9,148,2,51,0)="""BLD"",5583,1,21,0)"
^XMB(3.9,148,2,52,0)="    the new CURRENT SMOKER (CARDIAC) field (#510) instead of the old field"
^XMB(3.9,148,2,53,0)="""BLD"",5583,1,22,0)"
^XMB(3.9,148,2,54,0)="    CURRENT SMOKER field (#202), which will be utilized by the NSQIP"
^XMB(3.9,148,2,55,0)="""BLD"",5583,1,23,0)"
^XMB(3.9,148,2,56,0)="    options."
^XMB(3.9,148,2,57,0)="""BLD"",5583,1,24,0)"
^XMB(3.9,148,2,58,0)=" "
^XMB(3.9,148,2,59,0)="""BLD"",5583,1,25,0)"
^XMB(3.9,148,2,60,0)=" o Modifications to the Laboratory Test Results (Enter/Edit) [SROA"
^XMB(3.9,148,2,61,0)="""BLD"",5583,1,26,0)"
^XMB(3.9,148,2,62,0)="   LAB-CARDIAC] option"
^XMB(3.9,148,2,63,0)="""BLD"",5583,1,27,0)"
^XMB(3.9,148,2,64,0)="  - The HEMOGLOBIN A1C field (#504) and the HEMOGLOBIN A1C, DATE field"
^XMB(3.9,148,2,65,0)="""BLD"",5583,1,28,0)"
^XMB(3.9,148,2,66,0)="    (#504.1) are added to the list of preoperative lab results."
^XMB(3.9,148,2,67,0)="""BLD"",5583,1,29,0)"
^XMB(3.9,148,2,68,0)="  - The software is modified to use a date range of 1000 days prior to the"
^XMB(3.9,148,2,69,0)="""BLD"",5583,1,30,0)"
^XMB(3.9,148,2,70,0)="    date of operation when searching for the most recent preoperative lab"
^XMB(3.9,148,2,71,0)="""BLD"",5583,1,31,0)"
^XMB(3.9,148,2,72,0)="    test result for the HDL (CARDIAC) field (#457), the LDL (CARDIAC)"
^XMB(3.9,148,2,73,0)="""BLD"",5583,1,32,0)"
^XMB(3.9,148,2,74,0)="    field (#461), the TOTAL CHOLESTEROL (CARDIAC) field (#462), the SERUM"
^XMB(3.9,148,2,75,0)="""BLD"",5583,1,33,0)"
^XMB(3.9,148,2,76,0)="    TRIGLYCERIDE (CARDIAC) field (#458), and the HEMOGLOBIN A1C field"
^XMB(3.9,148,2,77,0)="""BLD"",5583,1,34,0)"
^XMB(3.9,148,2,78,0)="    (#504)."
^XMB(3.9,148,2,79,0)="""BLD"",5583,1,35,0)"
^XMB(3.9,148,2,80,0)=" "
^XMB(3.9,148,2,81,0)="""BLD"",5583,1,36,0)"
^XMB(3.9,148,2,82,0)=" o The Enter Cardiac Catheterization & Angiographic Data [SROA CARDIAC"
^XMB(3.9,148,2,83,0)="""BLD"",5583,1,37,0)"
^XMB(3.9,148,2,84,0)="   PROCEDURES] option is modified to allow all fields to be"
^XMB(3.9,148,2,85,0)="""BLD"",5583,1,38,0)"
^XMB(3.9,148,2,86,0)="   auto-populated with 'NS' (NO STUDY) when 'NS' is entered in the"
^XMB(3.9,148,2,87,0)="""BLD"",5583,1,39,0)"
^XMB(3.9,148,2,88,0)="   PROCEDURE TYPE field (#476)."
^XMB(3.9,148,2,89,0)="""BLD"",5583,1,40,0)"
^XMB(3.9,148,2,90,0)=" "
^XMB(3.9,148,2,91,0)="""BLD"",5583,1,41,0)"
^XMB(3.9,148,2,92,0)=" o Modifications to the Cardiac Procedures Operative Data (Enter/Edit)"
^XMB(3.9,148,2,93,0)="""BLD"",5583,1,42,0)"
^XMB(3.9,148,2,94,0)="   [SROA CARDIAC PROCEDURES] option"
^XMB(3.9,148,2,95,0)="""BLD"",5583,1,43,0)"
^XMB(3.9,148,2,96,0)="  - The GREAT VESSEL REPAIR (Y/N) field (#372) is moved to screen #1 under"
^XMB(3.9,148,2,97,0)="""BLD"",5583,1,44,0)"
^XMB(3.9,148,2,98,0)="    this option as item #20."
^XMB(3.9,148,2,99,0)="""BLD"",5583,1,45,0)"
^XMB(3.9,148,2,100,0)="  - The ENDOVASCULAR REPAIR field (#505) is added in screen #1 as item"
^XMB(3.9,148,2,101,0)="""BLD"",5583,1,46,0)"
^XMB(3.9,148,2,102,0)="    #21."
^XMB(3.9,148,2,103,0)="""BLD"",5583,1,47,0)"
^XMB(3.9,148,2,104,0)="  - The OTHER CT PROCEDURE field (#484) in the first screen is now"
^XMB(3.9,148,2,105,0)="""BLD"",5583,1,48,0)"
^XMB(3.9,148,2,106,0)="    replaced by the OTHER CARDIAC PROCEDURES (Y/N) field (#502). If this"
^XMB(3.9,148,2,107,0)="""BLD"",5583,1,49,0)"
^XMB(3.9,148,2,108,0)="    field value is ""YES"" the software will prompt the user for the OTHER"
^XMB(3.9,148,2,109,0)="""BLD"",5583,1,50,0)"
^XMB(3.9,148,2,110,0)="    CARDIAC PROCEDURES-LIST field (#484)."
^XMB(3.9,148,2,111,0)="""BLD"",5583,1,51,0)"
^XMB(3.9,148,2,112,0)="  - The OTHER NON-CT PROCEDURES field (#491) is removed from the second"
^XMB(3.9,148,2,113,0)="""BLD"",5583,1,52,0)"
^XMB(3.9,148,2,114,0)="    screen and a blank line is added before ""Other Operative Data"
^XMB(3.9,148,2,115,0)="""BLD"",5583,1,53,0)"
^XMB(3.9,148,2,116,0)="    details"" header."
^XMB(3.9,148,2,117,0)="""BLD"",5583,1,54,0)"
^XMB(3.9,148,2,118,0)="  - The software is modified so that entering ""N"" for the VALVE REPAIR"
^XMB(3.9,148,2,119,0)="""BLD"",5583,1,55,0)"
^XMB(3.9,148,2,120,0)="    field (#370) shall result in ""5. None"". The existing N's will be"
^XMB(3.9,148,2,121,0)="""BLD"",5583,1,56,0)"
^XMB(3.9,148,2,122,0)="    converted to '5' upon patch installation."
^XMB(3.9,148,2,123,0)="""BLD"",5583,1,57,0)"
^XMB(3.9,148,2,124,0)="  - This option is updated to reference the new MAZE PROCEDURE field"
^XMB(3.9,148,2,125,0)="""BLD"",5583,1,58,0)"
^XMB(3.9,148,2,126,0)="    (#512) as item 13 in the first data entry screen."
^XMB(3.9,148,2,127,0)="""BLD"",5583,1,59,0)"
^XMB(3.9,148,2,128,0)=" "
^XMB(3.9,148,2,129,0)="""BLD"",5583,1,60,0)"
^XMB(3.9,148,2,130,0)=" o A new occurrence category REPEAT VENTILATOR SUPPORT W/IN 30 DAYS is"
^XMB(3.9,148,2,131,0)="""BLD"",5583,1,61,0)"
^XMB(3.9,148,2,132,0)="   created in the PERIOPERATIVE OCCURRENCE CATEGORY file (#136.5). This"
^XMB(3.9,148,2,133,0)="""BLD"",5583,1,62,0)"
^XMB(3.9,148,2,134,0)="   occurrence category will be selectable only for cardiac assessed cases."
^XMB(3.9,148,2,135,0)="""BLD"",5583,1,63,0)"
^XMB(3.9,148,2,136,0)=" "
^XMB(3.9,148,2,137,0)="""BLD"",5583,1,64,0)"
^XMB(3.9,148,2,138,0)=" o The following fields on the Resource Data [SROA CARDIAC RESOURCE]"
^XMB(3.9,148,2,139,0)="""BLD"",5583,1,65,0)"
^XMB(3.9,148,2,140,0)="   option are modified to assume a default of ""past date"" when no year is"
^XMB(3.9,148,2,141,0)="""BLD"",5583,1,66,0)"
^XMB(3.9,148,2,142,0)="   specified:"
^XMB(3.9,148,2,143,0)="""BLD"",5583,1,67,0)"
^XMB(3.9,148,2,144,0)="  - ESTIMATE OF MORTALITY, DATE field (#364.1)"
^XMB(3.9,148,2,145,0)="""BLD"",5583,1,68,0)"
^XMB(3.9,148,2,146,0)="  - D/T PATIENT EXTUBATED field (#470)"
^XMB(3.9,148,2,147,0)="""BLD"",5583,1,69,0)"
^XMB(3.9,148,2,148,0)="  - D/T PATIENT DISCH FROM ICU field (#471)"
^XMB(3.9,148,2,149,0)="""BLD"",5583,1,70,0)"
^XMB(3.9,148,2,150,0)=" "
^XMB(3.9,148,2,151,0)="""BLD"",5583,1,71,0)"
^XMB(3.9,148,2,152,0)=" o This patch will allow the retransmission of a cardiac risk assessment."
^XMB(3.9,148,2,153,0)="""BLD"",5583,1,72,0)"
^XMB(3.9,148,2,154,0)=" "
^XMB(3.9,148,2,155,0)="""BLD"",5583,1,73,0)"
^XMB(3.9,148,2,156,0)="Non-Cardiac Assessment Modifications"
^XMB(3.9,148,2,157,0)="""BLD"",5583,1,74,0)"
^XMB(3.9,148,2,158,0)="------------------------------------"
^XMB(3.9,148,2,159,0)="""BLD"",5583,1,75,0)"
^XMB(3.9,148,2,160,0)=" o Modifications to the Preoperative Information (Enter/Edit) [SROA PREOP"
^XMB(3.9,148,2,161,0)="""BLD"",5583,1,76,0)"
^XMB(3.9,148,2,162,0)="   DATA] option"
^XMB(3.9,148,2,163,0)="""BLD"",5583,1,77,0)"
^XMB(3.9,148,2,164,0)="  - The software is modified to auto-populate the HEIGHT field (#236) and"
^XMB(3.9,148,2,165,0)="""BLD"",5583,1,78,0)"
^XMB(3.9,148,2,166,0)="    the WEIGHT field (#237) as documented in the Vitals software."
^XMB(3.9,148,2,167,0)="""BLD"",5583,1,79,0)"
^XMB(3.9,148,2,168,0)="  - The PREGNANCY field (#269) is added to the NUTRITIONAL/IMMUNE/OTHER"
^XMB(3.9,148,2,169,0)="""BLD"",5583,1,80,0)"
^XMB(3.9,148,2,170,0)="    section."
^XMB(3.9,148,2,171,0)="""BLD"",5583,1,81,0)"
^XMB(3.9,148,2,172,0)=" "
^XMB(3.9,148,2,173,0)="""BLD"",5583,1,82,0)"
^XMB(3.9,148,2,174,0)=" o Modifications to the Laboratory Test Results (Enter/Edit) [SROA LAB]"
^XMB(3.9,148,2,175,0)="""BLD"",5583,1,83,0)"
^XMB(3.9,148,2,176,0)="   option"
^XMB(3.9,148,2,177,0)="""BLD"",5583,1,84,0)"
^XMB(3.9,148,2,178,0)="  - The PREOPERATIVE ANION GAP field (#444) and the PREOP ANION GAP, DATE"
^XMB(3.9,148,2,179,0)="""BLD"",5583,1,85,0)"
^XMB(3.9,148,2,180,0)="    field (#444.1) are added to the list of preoperative lab results."
^XMB(3.9,148,2,181,0)="""BLD"",5583,1,86,0)"
^XMB(3.9,148,2,182,0)="  - The HIGHEST ANION GAP field (#445) and the HIGH ANION GAP, DATE field"
^XMB(3.9,148,2,183,0)="""BLD"",5583,1,87,0)"
^XMB(3.9,148,2,184,0)="    (445.1) are added to the list of postoperative lab results."
^XMB(3.9,148,2,185,0)="""BLD"",5583,1,88,0)"
^XMB(3.9,148,2,186,0)=" "
^XMB(3.9,148,2,187,0)="""BLD"",5583,1,89,0)"
^XMB(3.9,148,2,188,0)=" o The Operation Information (Enter/Edit) [SROA OPERATION DATA] option is"
^XMB(3.9,148,2,189,0)="""BLD"",5583,1,90,0)"
^XMB(3.9,148,2,190,0)="   modified to add the INTRAOP DISSEMINATED CANCER field (#443)."
^XMB(3.9,148,2,191,0)="""BLD"",5583,1,91,0)"
^XMB(3.9,148,2,192,0)=" "
^XMB(3.9,148,2,193,0)="""BLD"",5583,1,92,0)"
^XMB(3.9,148,2,194,0)="Other Risk Assessment Modifications"
^XMB(3.9,148,2,195,0)="""BLD"",5583,1,93,0)"
^XMB(3.9,148,2,196,0)="-----------------------------------"
^XMB(3.9,148,2,197,0)="""BLD"",5583,1,94,0)"
^XMB(3.9,148,2,198,0)=" o The Print a Surgery Risk Assessment [SROA Print Assessment] option is"
^XMB(3.9,148,2,199,0)="""BLD"",5583,1,95,0)"
^XMB(3.9,148,2,200,0)="   modified to include the new data elements."
^XMB(3.9,148,2,201,0)="""BLD"",5583,1,96,0)"
^XMB(3.9,148,2,202,0)=" "
^XMB(3.9,148,2,203,0)="""BLD"",5583,1,97,0)"
^XMB(3.9,148,2,204,0)=" o The transmissions to the national databases are modified to include the"
^XMB(3.9,148,2,205,0)="""BLD"",5583,1,98,0)"
^XMB(3.9,148,2,206,0)="   new fields."
^XMB(3.9,148,2,207,0)="""BLD"",5583,1,99,0)"
^XMB(3.9,148,2,208,0)=" "
^XMB(3.9,148,2,209,0)="""BLD"",5583,1,100,0)"
^XMB(3.9,148,2,210,0)=" o Modification to some of the user entries of fields that allow text to"
^XMB(3.9,148,2,211,0)="""BLD"",5583,1,101,0)"
^XMB(3.9,148,2,212,0)="   be entered to accept lower case or all CAPS"
^XMB(3.9,148,2,213,0)="""BLD"",5583,1,102,0)"
^XMB(3.9,148,2,214,0)="  - The NUM OF PRIOR HEART SURGERIES field (#352) is modified to allow the"
^XMB(3.9,148,2,215,0)="""BLD"",5583,1,103,0)"
^XMB(3.9,148,2,216,0)="    entry of lowercase letter ""N"" to represent ""0 - NONE"". Any existing"
^XMB(3.9,148,2,217,0)="""BLD"",5583,1,104,0)"
^XMB(3.9,148,2,218,0)="    N's will be converted to '0' for NONE by he post install routine."
^XMB(3.9,148,2,219,0)="""BLD"",5583,1,105,0)"
^XMB(3.9,148,2,220,0)="  - The ESTIMATE OF MORTALITY field (#364) is modified to allow the entry"
^XMB(3.9,148,2,221,0)="""BLD"",5583,1,106,0)"
^XMB(3.9,148,2,222,0)="    of lowercase letter ""ns"" to represent ""NO STUDY""."
^XMB(3.9,148,2,223,0)="""BLD"",5583,1,107,0)"
^XMB(3.9,148,2,224,0)=" "
^XMB(3.9,148,2,225,0)="""BLD"",5583,1,108,0)"
^XMB(3.9,148,2,226,0)=" o Modifications to the List of Surgery Risk Assessments [SROA ASSESSMENT"
^XMB(3.9,148,2,227,0)="""BLD"",5583,1,109,0)"
^XMB(3.9,148,2,228,0)="   LIST] option"
^XMB(3.9,148,2,229,0)="""BLD"",5583,1,110,0)"
^XMB(3.9,148,2,230,0)="  - Each report is modified to display the final CPT codes from the case"
^XMB(3.9,148,2,231,0)="""BLD"",5583,1,111,0)"
^XMB(3.9,148,2,232,0)="    coding record in the SURGERY PROCEDURE/DIAGNOSIS CODES file (#136)."
^XMB(3.9,148,2,233,0)="""BLD"",5583,1,112,0)"
^XMB(3.9,148,2,234,0)="  - List of 1-Liner Cases Missing Information (list #8) is added."
^XMB(3.9,148,2,235,0)="""BLD"",5583,1,113,0)"
^XMB(3.9,148,2,236,0)=" "
^XMB(3.9,148,2,237,0)="""BLD"",5583,1,114,0)"
^XMB(3.9,148,2,238,0)="General Surgery Items"
^XMB(3.9,148,2,239,0)="""BLD"",5583,1,115,0)"
^XMB(3.9,148,2,240,0)="---------------------"
^XMB(3.9,148,2,241,0)="""BLD"",5583,1,116,0)"
^XMB(3.9,148,2,242,0)=" o The PREOP HAIR CLIPPING BY field (#.12) is renamed HAIR REMOVAL BY."
^XMB(3.9,148,2,243,0)="""BLD"",5583,1,117,0)"
^XMB(3.9,148,2,244,0)=" "
^XMB(3.9,148,2,245,0)="""BLD"",5583,1,118,0)"
^XMB(3.9,148,2,246,0)=" o The HAIR REMOVAL METHOD field (#506) and the HAIR REMOVAL COMMENTS"
^XMB(3.9,148,2,247,0)="""BLD"",5583,1,119,0)"
^XMB(3.9,148,2,248,0)="   field (#508) are added to the Operation Startup [SROMEN-START] option"
^XMB(3.9,148,2,249,0)="""BLD"",5583,1,120,0)"
^XMB(3.9,148,2,250,0)="   and the Operation (Short Screen) [SROMEN-OUT] option. Those two fields"
^XMB(3.9,148,2,251,0)="""BLD"",5583,1,121,0)"
^XMB(3.9,148,2,252,0)="   and the HAIR REMOVAL BY field (#.12) are added to the Nurse"
^XMB(3.9,148,2,253,0)="""BLD"",5583,1,122,0)"
^XMB(3.9,148,2,254,0)="   Intraoperative Report and became a mandatory documentation field to"
^XMB(3.9,148,2,255,0)="""BLD"",5583,1,123,0)"
^XMB(3.9,148,2,256,0)="   satisfy the record review process for quality measurement purposes."
^XMB(3.9,148,2,257,0)="""BLD"",5583,4,0)"
^XMB(3.9,148,2,258,0)="^9.64PA^130^2"
^XMB(3.9,148,2,259,0)="""BLD"",5583,4,130,0)"
^XMB(3.9,148,2,260,0)="130"
^XMB(3.9,148,2,261,0)="""BLD"",5583,4,130,2,0)"
^XMB(3.9,148,2,262,0)="^9.641^130.22^2"
^XMB(3.9,148,2,263,0)="""BLD"",5583,4,130,2,130,0)"
^XMB(3.9,148,2,264,0)="SURGERY  (File-top level)"
^XMB(3.9,148,2,265,0)="""BLD"",5583,4,130,2,130,1,0)"
^XMB(3.9,148,2,266,0)="^9.6411^218.1^54"
^XMB(3.9,148,2,267,0)="""BLD"",5583,4,130,2,130,1,.12,0)"
^XMB(3.9,148,2,268,0)="PREOP HAIR REMOVAL BY"
^XMB(3.9,148,2,269,0)="""BLD"",5583,4,130,2,130,1,1.09,0)"
^XMB(3.9,148,2,270,0)="WOUND CLASSIFICATION"
^XMB(3.9,148,2,271,0)="""BLD"",5583,4,130,2,130,1,102,0)"
^XMB(3.9,148,2,272,0)="REASON FOR NO ASSESSMENT"
^XMB(3.9,148,2,273,0)="""BLD"",5583,4,130,2,130,1,202,0)"
^XMB(3.9,148,2,274,0)="CURRENT SMOKER"
^XMB(3.9,148,2,275,0)="""BLD"",5583,4,130,2,130,1,211,0)"
^XMB(3.9,148,2,276,0)="CURRENTLY ON DIALYSIS"
^XMB(3.9,148,2,277,0)="""BLD"",5583,4,130,2,130,1,216,0)"
^XMB(3.9,148,2,278,0)="BLEEDING DISORDERS"
^XMB(3.9,148,2,279,0)="""BLD"",5583,4,130,2,130,1,218.1,0)"
^XMB(3.9,148,2,280,0)="PREOPERATIVE SEPSIS"
^XMB(3.9,148,2,281,0)="""BLD"",5583,4,130,2,130,1,220,0)"
^XMB(3.9,148,2,282,0)="PREVIOUS PCI"
^XMB(3.9,148,2,283,0)="""BLD"",5583,4,130,2,130,1,250,0)"
^XMB(3.9,148,2,284,0)="SYSTEMIC SEPSIS"
^XMB(3.9,148,2,285,0)="""BLD"",5583,4,130,2,130,1,254,0)"
^XMB(3.9,148,2,286,0)="ACUTE RENAL FAILURE"
^XMB(3.9,148,2,287,0)="""BLD"",5583,4,130,2,130,1,266,0)"
^XMB(3.9,148,2,288,0)="PREVIOUS CARDIAC SURGERY"
^XMB(3.9,148,2,289,0)="""BLD"",5583,4,130,2,130,1,269,0)"
^XMB(3.9,148,2,290,0)="PREGNANCY"
^XMB(3.9,148,2,291,0)="""BLD"",5583,4,130,2,130,1,285,0)"
^XMB(3.9,148,2,292,0)="ON VENTILATOR >48 HOURS"
^XMB(3.9,148,2,293,0)="""BLD"",5583,4,130,2,130,1,352,0)"
^XMB(3.9,148,2,294,0)="NUM OF PRIOR HEART SURGERIES"
^XMB(3.9,148,2,295,0)="""BLD"",5583,4,130,2,130,1,364,0)"
^XMB(3.9,148,2,296,0)="ESTIMATE OF MORTALITY"
^XMB(3.9,148,2,297,0)="""BLD"",5583,4,130,2,130,1,364.1,0)"
^XMB(3.9,148,2,298,0)="ESTIMATE OF MORTALITY, DATE"
^XMB(3.9,148,2,299,0)="""BLD"",5583,4,130,2,130,1,370,0)"
^XMB(3.9,148,2,300,0)="VALVE REPAIR"
^XMB(3.9,148,2,301,0)="""BLD"",5583,4,130,2,130,1,372,0)"
^XMB(3.9,148,2,302,0)="GREAT VESSEL REPAIR (Y/N)"
^XMB(3.9,148,2,303,0)="""BLD"",5583,4,130,2,130,1,373,0)"
^XMB(3.9,148,2,304,0)="CARDIAC TRANSPLANT"
^XMB(3.9,148,2,305,0)="""BLD"",5583,4,130,2,130,1,384,0)"
^XMB(3.9,148,2,306,0)="OPERATIVE DEATH"
^XMB(3.9,148,2,307,0)="""BLD"",5583,4,130,2,130,1,401,0)"
^XMB(3.9,148,2,308,0)="TUMOR INVOLVING CNS (Y/N)"
^XMB(3.9,148,2,309,0)="""BLD"",5583,4,130,2,130,1,410,0)"
^XMB(3.9,148,2,310,0)="COMA > 24 HOURS POSTOP"
^XMB(3.9,148,2,311,0)="""BLD"",5583,4,130,2,130,1,411,0)"
^XMB(3.9,148,2,312,0)="CARDIAC ARREST REQ CPR"
^XMB(3.9,148,2,313,0)="""BLD"",5583,4,130,2,130,1,430,0)"
^XMB(3.9,148,2,314,0)="CARDIAC RISK PREOP COMMENTS"
^XMB(3.9,148,2,315,0)="""BLD"",5583,4,130,2,130,1,431,0)"
^XMB(3.9,148,2,316,0)="CARDIAC RESOURCE DATA COMMENTS"
^XMB(3.9,148,2,317,0)="""BLD"",5583,4,130,2,130,1,443,0)"
^XMB(3.9,148,2,318,0)="INTRAOP DISSEMINATED CANCER"
^XMB(3.9,148,2,319,0)="""BLD"",5583,4,130,2,130,1,444,0)"
^XMB(3.9,148,2,320,0)="PREOPERATIVE ANION GAP"
^XMB(3.9,148,2,321,0)="""BLD"",5583,4,130,2,130,1,444.1,0)"
^XMB(3.9,148,2,322,0)="PREOP ANION GAP, DATE"
^XMB(3.9,148,2,323,0)="""BLD"",5583,4,130,2,130,1,445,0)"
^XMB(3.9,148,2,324,0)="HIGHEST ANION GAP"
^XMB(3.9,148,2,325,0)="""BLD"",5583,4,130,2,130,1,445.1,0)"
^XMB(3.9,148,2,326,0)="HIGH ANION GAP, DATE"
^XMB(3.9,148,2,327,0)="""BLD"",5583,4,130,2,130,1,457,0)"
^XMB(3.9,148,2,328,0)="HDL (CARDIAC)"
^XMB(3.9,148,2,329,0)="""BLD"",5583,4,130,2,130,1,457.1,0)"
^XMB(3.9,148,2,330,0)="HDL, DATE"
^XMB(3.9,148,2,331,0)="""BLD"",5583,4,130,2,130,1,458,0)"
^XMB(3.9,148,2,332,0)="SERUM TRIGLYCERIDE (CARDIAC)"
^XMB(3.9,148,2,333,0)="""BLD"",5583,4,130,2,130,1,458.1,0)"
^XMB(3.9,148,2,334,0)="SERUM TRIGLYCERIDE, DATE (CAR)"
^XMB(3.9,148,2,335,0)="""BLD"",5583,4,130,2,130,1,461,0)"
^XMB(3.9,148,2,336,0)="LDL (CARDIAC)"
^XMB(3.9,148,2,337,0)="""BLD"",5583,4,130,2,130,1,461.1,0)"
^XMB(3.9,148,2,338,0)="LDL, DATE (CARDIAC)"
^XMB(3.9,148,2,339,0)="""BLD"",5583,4,130,2,130,1,462,0)"
^XMB(3.9,148,2,340,0)="TOTAL CHOLESTEROL (CARDIAC)"
^XMB(3.9,148,2,341,0)="""BLD"",5583,4,130,2,130,1,462.1,0)"
^XMB(3.9,148,2,342,0)="TOTAL CHOLESTEROL, DATE"
^XMB(3.9,148,2,343,0)="""BLD"",5583,4,130,2,130,1,470,0)"
^XMB(3.9,148,2,344,0)="D/T PATIENT EXTUBATED"
^XMB(3.9,148,2,345,0)="""BLD"",5583,4,130,2,130,1,471,0)"
^XMB(3.9,148,2,346,0)="D/T PATIENT DISCH FROM ICU"
^XMB(3.9,148,2,347,0)="""BLD"",5583,4,130,2,130,1,475,0)"
^XMB(3.9,148,2,348,0)="DIABETES (CARDIAC)"
^XMB(3.9,148,2,349,0)="""BLD"",5583,4,130,2,130,1,477,0)"
^XMB(3.9,148,2,350,0)="AORTIC STENOSIS"
^XMB(3.9,148,2,351,0)="""BLD"",5583,4,130,2,130,1,481,0)"
^XMB(3.9,148,2,352,0)="BRIDGE TO TRANSPLANT/DEVICE"
^XMB(3.9,148,2,353,0)="""BLD"",5583,4,130,2,130,1,482,0)"
^XMB(3.9,148,2,354,0)="*MAZE PROCEDURE"
^XMB(3.9,148,2,355,0)="""BLD"",5583,4,130,2,130,1,484,0)"
^XMB(3.9,148,2,356,0)="OTHER CARDIAC PROCEDURES-LIST"
^XMB(3.9,148,2,357,0)="""BLD"",5583,4,130,2,130,1,487.1,0)"
^XMB(3.9,148,2,358,0)="PREOPERATIVE INR, DATE"
^XMB(3.9,148,2,359,0)="""BLD"",5583,4,130,2,130,1,502,0)"
^XMB(3.9,148,2,360,0)="OTHER CARDIAC PROCEDURES (Y/N)"
^XMB(3.9,148,2,361,0)="""BLD"",5583,4,130,2,130,1,504,0)"
^XMB(3.9,148,2,362,0)="HEMOGLOBIN A1C"
^XMB(3.9,148,2,363,0)="""BLD"",5583,4,130,2,130,1,504.1,0)"
^XMB(3.9,148,2,364,0)="HEMOGLOBIN A1C, DATE"
^XMB(3.9,148,2,365,0)="""BLD"",5583,4,130,2,130,1,505,0)"
^XMB(3.9,148,2,366,0)="ENDOVASCULAR REPAIR"
^XMB(3.9,148,2,367,0)="""BLD"",5583,4,130,2,130,1,506,0)"
^XMB(3.9,148,2,368,0)="HAIR REMOVAL METHOD"
^XMB(3.9,148,2,369,0)="""BLD"",5583,4,130,2,130,1,508,0)"
^XMB(3.9,148,2,370,0)="HAIR REMOVAL COMMENTS"
^XMB(3.9,148,2,371,0)="""BLD"",5583,4,130,2,130,1,510,0)"
^XMB(3.9,148,2,372,0)="CURRENT SMOKER (CARDIAC)"
^XMB(3.9,148,2,373,0)="""BLD"",5583,4,130,2,130,1,512,0)"
^XMB(3.9,148,2,374,0)="MAZE PROCEDURE"
^XMB(3.9,148,2,375,0)="""BLD"",5583,4,130,2,130.22,0)"
^XMB(3.9,148,2,376,0)="POSTOP OCCURRENCE  (sub-file)"
^XMB(3.9,148,2,377,0)="""BLD"",5583,4,130,2,130.22,1,0)"
^XMB(3.9,148,2,378,0)="^9.6411^8^2"
^XMB(3.9,148,2,379,0)="""BLD"",5583,4,130,2,130.22,1,7,0)"
^XMB(3.9,148,2,380,0)="SEPSIS CATEGORY"
^XMB(3.9,148,2,381,0)="""BLD"",5583,4,130,2,130.22,1,8,0)"
^XMB(3.9,148,2,382,0)="CPB STATUS"
^XMB(3.9,148,2,383,0)="""BLD"",5583,4,130,222)"
^XMB(3.9,148,2,384,0)="y^y^p^^^^n^^n"
^XMB(3.9,148,2,385,0)="""BLD"",5583,4,130,224)"
^XMB(3.9,148,2,386,0)=""
^XMB(3.9,148,2,387,0)="""BLD"",5583,4,136.5,0)"
^XMB(3.9,148,2,388,0)="136.5"
^XMB(3.9,148,2,389,0)="""BLD"",5583,4,136.5,222)"
^XMB(3.9,148,2,390,0)="y^y^f^^n^^y^o^n"
^XMB(3.9,148,2,391,0)="""BLD"",5583,4,""APDD"",130,130)"
^XMB(3.9,148,2,392,0)=""
^XMB(3.9,148,2,393,0)="""BLD"",5583,4,""APDD"",130,130,.12)"
^XMB(3.9,148,2,394,0)=""
^XMB(3.9,148,2,395,0)="""BLD"",5583,4,""APDD"",130,130,1.09)"
^XMB(3.9,148,2,396,0)=""
^XMB(3.9,148,2,397,0)="""BLD"",5583,4,""APDD"",130,130,102)"
^XMB(3.9,148,2,398,0)=""
^XMB(3.9,148,2,399,0)="""BLD"",5583,4,""APDD"",130,130,202)"
^XMB(3.9,148,2,400,0)=""
^XMB(3.9,148,2,401,0)="""BLD"",5583,4,""APDD"",130,130,211)"
^XMB(3.9,148,2,402,0)=""
^XMB(3.9,148,2,403,0)="""BLD"",5583,4,""APDD"",130,130,216)"
^XMB(3.9,148,2,404,0)=""
^XMB(3.9,148,2,405,0)="""BLD"",5583,4,""APDD"",130,130,218.1)"
^XMB(3.9,148,2,406,0)=""
^XMB(3.9,148,2,407,0)="""BLD"",5583,4,""APDD"",130,130,220)"
^XMB(3.9,148,2,408,0)=""
^XMB(3.9,148,2,409,0)="""BLD"",5583,4,""APDD"",130,130,250)"
^XMB(3.9,148,2,410,0)=""
^XMB(3.9,148,2,411,0)="""BLD"",5583,4,""APDD"",130,130,254)"
^XMB(3.9,148,2,412,0)=""
^XMB(3.9,148,2,413,0)="""BLD"",5583,4,""APDD"",130,130,266)"
^XMB(3.9,148,2,414,0)=""
^XMB(3.9,148,2,415,0)="""BLD"",5583,4,""APDD"",130,130,269)"
^XMB(3.9,148,2,416,0)=""
^XMB(3.9,148,2,417,0)="""BLD"",5583,4,""APDD"",130,130,285)"
^XMB(3.9,148,2,418,0)=""
^XMB(3.9,148,2,419,0)="""BLD"",5583,4,""APDD"",130,130,352)"
^XMB(3.9,148,2,420,0)=""
^XMB(3.9,148,2,421,0)="""BLD"",5583,4,""APDD"",130,130,364)"
^XMB(3.9,148,2,422,0)=""
^XMB(3.9,148,2,423,0)="""BLD"",5583,4,""APDD"",130,130,364.1)"
^XMB(3.9,148,2,424,0)=""
^XMB(3.9,148,2,425,0)="""BLD"",5583,4,""APDD"",130,130,370)"
^XMB(3.9,148,2,426,0)=""
^XMB(3.9,148,2,427,0)="""BLD"",5583,4,""APDD"",130,130,372)"
^XMB(3.9,148,2,428,0)=""
^XMB(3.9,148,2,429,0)="""BLD"",5583,4,""APDD"",130,130,373)"
^XMB(3.9,148,2,430,0)=""
^XMB(3.9,148,2,431,0)="""BLD"",5583,4,""APDD"",130,130,384)"
^XMB(3.9,148,2,432,0)=""
^XMB(3.9,148,2,433,0)="""BLD"",5583,4,""APDD"",130,130,401)"
^XMB(3.9,148,2,434,0)=""
^XMB(3.9,148,2,435,0)="""BLD"",5583,4,""APDD"",130,130,410)"
^XMB(3.9,148,2,436,0)=""
^XMB(3.9,148,2,437,0)="""BLD"",5583,4,""APDD"",130,130,411)"
^XMB(3.9,148,2,438,0)=""
^XMB(3.9,148,2,439,0)="""BLD"",5583,4,""APDD"",130,130,430)"
^XMB(3.9,148,2,440,0)=""
^XMB(3.9,148,2,441,0)="""BLD"",5583,4,""APDD"",130,130,431)"
^XMB(3.9,148,2,442,0)=""
^XMB(3.9,148,2,443,0)="""BLD"",5583,4,""APDD"",130,130,443)"
^XMB(3.9,148,2,444,0)=""
^XMB(3.9,148,2,445,0)="""BLD"",5583,4,""APDD"",130,130,444)"
^XMB(3.9,148,2,446,0)=""
^XMB(3.9,148,2,447,0)="""BLD"",5583,4,""APDD"",130,130,444.1)"
^XMB(3.9,148,2,448,0)=""
^XMB(3.9,148,2,449,0)="""BLD"",5583,4,""APDD"",130,130,445)"
^XMB(3.9,148,2,450,0)=""
^XMB(3.9,148,2,451,0)="""BLD"",5583,4,""APDD"",130,130,445.1)"
^XMB(3.9,148,2,452,0)=""
^XMB(3.9,148,2,453,0)="""BLD"",5583,4,""APDD"",130,130,457)"
^XMB(3.9,148,2,454,0)=""
^XMB(3.9,148,2,455,0)="""BLD"",5583,4,""APDD"",130,130,457.1)"
^XMB(3.9,148,2,456,0)=""
^XMB(3.9,148,2,457,0)="""BLD"",5583,4,""APDD"",130,130,458)"
^XMB(3.9,148,2,458,0)=""
^XMB(3.9,148,2,459,0)="""BLD"",5583,4,""APDD"",130,130,458.1)"
^XMB(3.9,148,2,460,0)=""
^XMB(3.9,148,2,461,0)="""BLD"",5583,4,""APDD"",130,130,461)"
^XMB(3.9,148,2,462,0)=""
^XMB(3.9,148,2,463,0)="""BLD"",5583,4,""APDD"",130,130,461.1)"
^XMB(3.9,148,2,464,0)=""
^XMB(3.9,148,2,465,0)="""BLD"",5583,4,""APDD"",130,130,462)"
^XMB(3.9,148,2,466,0)=""
^XMB(3.9,148,2,467,0)="""BLD"",5583,4,""APDD"",130,130,462.1)"
^XMB(3.9,148,2,468,0)=""
^XMB(3.9,148,2,469,0)="""BLD"",5583,4,""APDD"",130,130,470)"
^XMB(3.9,148,2,470,0)=""
^XMB(3.9,148,2,471,0)="""BLD"",5583,4,""APDD"",130,130,471)"
^XMB(3.9,148,2,472,0)=""
^XMB(3.9,148,2,473,0)="""BLD"",5583,4,""APDD"",130,130,475)"
^XMB(3.9,148,2,474,0)=""
^XMB(3.9,148,2,475,0)="""BLD"",5583,4,""APDD"",130,130,477)"
^XMB(3.9,148,2,476,0)=""
^XMB(3.9,148,2,477,0)="""BLD"",5583,4,""APDD"",130,130,481)"
^XMB(3.9,148,2,478,0)=""
^XMB(3.9,148,2,479,0)="""BLD"",5583,4,""APDD"",130,130,482)"
^XMB(3.9,148,2,480,0)=""
^XMB(3.9,148,2,481,0)="""BLD"",5583,4,""APDD"",130,130,484)"
^XMB(3.9,148,2,482,0)=""
^XMB(3.9,148,2,483,0)="""BLD"",5583,4,""APDD"",130,130,487.1)"
^XMB(3.9,148,2,484,0)=""
^XMB(3.9,148,2,485,0)="""BLD"",5583,4,""APDD"",130,130,502)"
^XMB(3.9,148,2,486,0)=""
^XMB(3.9,148,2,487,0)="""BLD"",5583,4,""APDD"",130,130,504)"
^XMB(3.9,148,2,488,0)=""
^XMB(3.9,148,2,489,0)="""BLD"",5583,4,""APDD"",130,130,504.1)"
^XMB(3.9,148,2,490,0)=""
^XMB(3.9,148,2,491,0)="""BLD"",5583,4,""APDD"",130,130,505)"
^XMB(3.9,148,2,492,0)=""
^XMB(3.9,148,2,493,0)="""BLD"",5583,4,""APDD"",130,130,506)"
^XMB(3.9,148,2,494,0)=""
^XMB(3.9,148,2,495,0)="""BLD"",5583,4,""APDD"",130,130,508)"
^XMB(3.9,148,2,496,0)=""
^XMB(3.9,148,2,497,0)="""BLD"",5583,4,""APDD"",130,130,510)"
^XMB(3.9,148,2,498,0)=""
^XMB(3.9,148,2,499,0)="""BLD"",5583,4,""APDD"",130,130,512)"
^XMB(3.9,148,2,500,0)=""
^XMB(3.9,148,2,501,0)="""BLD"",5583,4,""APDD"",130,130.22)"
^XMB(3.9,148,2,502,0)=""
^XMB(3.9,148,2,503,0)="""BLD"",5583,4,""APDD"",130,130.22,7)"
^XMB(3.9,148,2,504,0)=""
^XMB(3.9,148,2,505,0)="""BLD"",5583,4,""APDD"",130,130.22,8)"
^XMB(3.9,148,2,506,0)=""
^XMB(3.9,148,2,507,0)="""BLD"",5583,4,""B"",130,130)"
^XMB(3.9,148,2,508,0)=""
^XMB(3.9,148,2,509,0)="""BLD"",5583,4,""B"",136.5,136.5)"
^XMB(3.9,148,2,510,0)=""
^XMB(3.9,148,2,511,0)="""BLD"",5583,6.3)"
^XMB(3.9,148,2,512,0)="11"
^XMB(3.9,148,2,513,0)="""BLD"",5583,""INI"")"
^XMB(3.9,148,2,514,0)="PRE^SR153UTL"
^XMB(3.9,148,2,515,0)="""BLD"",5583,""INID"")"
^XMB(3.9,148,2,516,0)="^y^y"
^XMB(3.9,148,2,517,0)="""BLD"",5583,""INIT"")"
^XMB(3.9,148,2,518,0)="POST^SR153UTL"
^XMB(3.9,148,2,519,0)="""BLD"",5583,""KRN"",0)"
^XMB(3.9,148,2,520,0)="^9.67PA^8989.52^19"
^XMB(3.9,148,2,521,0)="""BLD"",5583,""KRN"",.4,0)"
^XMB(3.9,148,2,522,0)=".4"
^XMB(3.9,148,2,523,0)="""BLD"",5583,""KRN"",.401,0)"
^XMB(3.9,148,2,524,0)=".401"
^XMB(3.9,148,2,525,0)="""BLD"",5583,""KRN"",.402,0)"
^XMB(3.9,148,2,526,0)=".402"
^XMB(3.9,148,2,527,0)="""BLD"",5583,""KRN"",.402,""NM"",0)"
^XMB(3.9,148,2,528,0)="^9.68A^4^4"
^XMB(3.9,148,2,529,0)="""BLD"",5583,""KRN"",.402,""NM"",1,0)"
^XMB(3.9,148,2,530,0)="SRO-NOCOMP    FILE #130^130^0"
^XMB(3.9,148,2,531,0)="""BLD"",5583,""KRN"",.402,""NM"",2,0)"
^XMB(3.9,148,2,532,0)="SROMEN-OUT    FILE #130^130^0"
^XMB(3.9,148,2,533,0)="""BLD"",5583,""KRN"",.402,""NM"",3,0)"
^XMB(3.9,148,2,534,0)="SROMEN-START    FILE #130^130^0"
^XMB(3.9,148,2,535,0)="""BLD"",5583,""KRN"",.402,""NM"",4,0)"
^XMB(3.9,148,2,536,0)="SRONRPT    FILE #130^130^0"
^XMB(3.9,148,2,537,0)="""BLD"",5583,""KRN"",.402,""NM"",""B"",""SRO-NOCOMP    FILE #130"",1)"
^XMB(3.9,148,2,538,0)=""
^XMB(3.9,148,2,539,0)="""BLD"",5583,""KRN"",.402,""NM"",""B"",""SROMEN-OUT    FILE #130"",2)"
^XMB(3.9,148,2,540,0)=""
^XMB(3.9,148,2,541,0)="""BLD"",5583,""KRN"",.402,""NM"",""B"",""SROMEN-START    FILE #130"",3)"
^XMB(3.9,148,2,542,0)=""
^XMB(3.9,148,2,543,0)="""BLD"",5583,""KRN"",.402,""NM"",""B"",""SRONRPT    FILE #130"",4)"
^XMB(3.9,148,2,544,0)=""
^XMB(3.9,148,2,545,0)="""BLD"",5583,""KRN"",.403,0)"
^XMB(3.9,148,2,546,0)=".403"
^XMB(3.9,148,2,547,0)="""BLD"",5583,""KRN"",.5,0)"
^XMB(3.9,148,2,548,0)=".5"
^XMB(3.9,148,2,549,0)="""BLD"",5583,""KRN"",.84,0)"
^XMB(3.9,148,2,550,0)=".84"
^XMB(3.9,148,2,551,0)="""BLD"",5583,""KRN"",3.6,0)"
^XMB(3.9,148,2,552,0)="3.6"
^XMB(3.9,148,2,553,0)="""BLD"",5583,""KRN"",3.8,0)"
^XMB(3.9,148,2,554,0)="3.8"
^XMB(3.9,148,2,555,0)="""BLD"",5583,""KRN"",9.2,0)"
^XMB(3.9,148,2,556,0)="9.2"
^XMB(3.9,148,2,557,0)="""BLD"",5583,""KRN"",9.8,0)"
^XMB(3.9,148,2,558,0)="9.8"
^XMB(3.9,148,2,559,0)="""BLD"",5583,""KRN"",9.8,""NM"",0)"
^XMB(3.9,148,2,560,0)="^9.68A^103^100"
^XMB(3.9,148,2,561,0)="""BLD"",5583,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,148,2,562,0)="SROAPR2^^0^B10438353"
^XMB(3.9,148,2,563,0)="""BLD"",5583,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,148,2,564,0)="SROAPRE2^^0^B8990080"
^XMB(3.9,148,2,565,0)="""BLD"",5583,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,148,2,566,0)="SROAPS2^^0^B13745888"
^XMB(3.9,148,2,567,0)="""BLD"",5583,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,148,2,568,0)="SROAOP^^0^B18332752"
^XMB(3.9,148,2,569,0)="""BLD"",5583,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,148,2,570,0)="SROAOP1^^0^B10623526"
^XMB(3.9,148,2,571,0)="""BLD"",5583,""KRN"",9.8,""NM"",6,0)"
^XMB(3.9,148,2,572,0)="SROAUTL^^0^B40591108"
^XMB(3.9,148,2,573,0)="""BLD"",5583,""KRN"",9.8,""NM"",8,0)"
^XMB(3.9,148,2,574,0)="SROAEX^^0^B13592830"
^XMB(3.9,148,2,575,0)="""BLD"",5583,""KRN"",9.8,""NM"",9,0)"
^XMB(3.9,148,2,576,0)="SROAWL^^0^B32512298"
^XMB(3.9,148,2,577,0)="""BLD"",5583,""KRN"",9.8,""NM"",10,0)"
^XMB(3.9,148,2,578,0)="SROAWL1^^0^B32202367"
^XMB(3.9,148,2,579,0)="""BLD"",5583,""KRN"",9.8,""NM"",11,0)"
^XMB(3.9,148,2,580,0)="SROA30^^0^B24202198"
^XMB(3.9,148,2,581,0)="""BLD"",5583,""KRN"",9.8,""NM"",12,0)"
^XMB(3.9,148,2,582,0)="SROALET^^0^B21039720"
^XMB(3.9,148,2,583,0)="""BLD"",5583,""KRN"",9.8,""NM"",13,0)"
^XMB(3.9,148,2,584,0)="SROXR4^^0^B6379114"
^XMB(3.9,148,2,585,0)="""BLD"",5583,""KRN"",9.8,""NM"",14,0)"
^XMB(3.9,148,2,586,0)="SROAL1^^0^B22463945"
^XMB(3.9,148,2,587,0)="""BLD"",5583,""KRN"",9.8,""NM"",15,0)"
^XMB(3.9,148,2,588,0)="SROAL11^^0^B18235736"
^XMB(3.9,148,2,589,0)="""BLD"",5583,""KRN"",9.8,""NM"",16,0)"
^XMB(3.9,148,2,590,0)="SROAL2^^0^B18933004"
^XMB(3.9,148,2,591,0)="""BLD"",5583,""KRN"",9.8,""NM"",17,0)"
^XMB(3.9,148,2,592,0)="SROAL21^^0^B9664688"
^XMB(3.9,148,2,593,0)="""BLD"",5583,""KRN"",9.8,""NM"",18,0)"
^XMB(3.9,148,2,594,0)="SROALN1^^0^B8424056"
^XMB(3.9,148,2,595,0)="""BLD"",5583,""KRN"",9.8,""NM"",19,0)"
^XMB(3.9,148,2,596,0)="SROALN2^^0^B9184341"
^XMB(3.9,148,2,597,0)="""BLD"",5583,""KRN"",9.8,""NM"",20,0)"
^XMB(3.9,148,2,598,0)="SROALN3^^0^B12090037"
^XMB(3.9,148,2,599,0)="""BLD"",5583,""KRN"",9.8,""NM"",21,0)"
^XMB(3.9,148,2,600,0)="SROALEN^^0^B11769217"
^XMB(3.9,148,2,601,0)="""BLD"",5583,""KRN"",9.8,""NM"",22,0)"
^XMB(3.9,148,2,602,0)="SROALDP^^0^B3261436"
^XMB(3.9,148,2,603,0)="""BLD"",5583,""KRN"",9.8,""NM"",23,0)"
^XMB(3.9,148,2,604,0)="SROCMP^^0^B26995986"
^XMB(3.9,148,2,605,0)="""BLD"",5583,""KRN"",9.8,""NM"",24,0)"
^XMB(3.9,148,2,606,0)="SROCMP1^^0^B17735351"
^XMB(3.9,148,2,607,0)="""BLD"",5583,""KRN"",9.8,""NM"",25,0)"
^XMB(3.9,148,2,608,0)="SROCMP2^^0^B4362143"
^XMB(3.9,148,2,609,0)="""BLD"",5583,""KRN"",9.8,""NM"",27,0)"
^XMB(3.9,148,2,610,0)="SROALOG^^0^B16589351"
^XMB(3.9,148,2,611,0)="""BLD"",5583,""KRN"",9.8,""NM"",28,0)"
^XMB(3.9,148,2,612,0)="SROAUTL2^^0^B32578707"
^XMB(3.9,148,2,613,0)="""BLD"",5583,""KRN"",9.8,""NM"",29,0)"
^XMB(3.9,148,2,614,0)="SROAUTL1^^0^B18465226"
^XMB(3.9,148,2,615,0)="""BLD"",5583,""KRN"",9.8,""NM"",30,0)"
^XMB(3.9,148,2,616,0)="SROATMIT^^0^B7128937"
^XMB(3.9,148,2,617,0)="""BLD"",5583,""KRN"",9.8,""NM"",31,0)"
^XMB(3.9,148,2,618,0)="SROATM1^^0^B23786520"
^XMB(3.9,148,2,619,0)="""BLD"",5583,""KRN"",9.8,""NM"",32,0)"
^XMB(3.9,148,2,620,0)="SROATM2^^0^B33905156"
^XMB(3.9,148,2,621,0)="""BLD"",5583,""KRN"",9.8,""NM"",33,0)"
^XMB(3.9,148,2,622,0)="SROATM3^^0^B20814871"
^XMB(3.9,148,2,623,0)="""BLD"",5583,""KRN"",9.8,""NM"",34,0)"
^XMB(3.9,148,2,624,0)="SROATM4^^0^B8737618"
^XMB(3.9,148,2,625,0)="""BLD"",5583,""KRN"",9.8,""NM"",35,0)"
^XMB(3.9,148,2,626,0)="SROAPRT1^^0^B15011288"
^XMB(3.9,148,2,627,0)="""BLD"",5583,""KRN"",9.8,""NM"",36,0)"
^XMB(3.9,148,2,628,0)="SROAPRT2^^0^B11958785"
^XMB(3.9,148,2,629,0)="""BLD"",5583,""KRN"",9.8,""NM"",37,0)"
^XMB(3.9,148,2,630,0)="SROAPRT3^^0^B15633950"
^XMB(3.9,148,2,631,0)="""BLD"",5583,""KRN"",9.8,""NM"",38,0)"
^XMB(3.9,148,2,632,0)="SROAPRT4^^0^B5890683"
^XMB(3.9,148,2,633,0)="""BLD"",5583,""KRN"",9.8,""NM"",39,0)"
^XMB(3.9,148,2,634,0)="SROAPRT5^^0^B5810182"
^XMB(3.9,148,2,635,0)="""BLD"",5583,""KRN"",9.8,""NM"",40,0)"
^XMB(3.9,148,2,636,0)="SRO1L1^^0^B13673029"
^XMB(3.9,148,2,637,0)="""BLD"",5583,""KRN"",9.8,""NM"",41,0)"
^XMB(3.9,148,2,638,0)="SROCL1^^0^B10860164"
^XMB(3.9,148,2,639,0)="""BLD"",5583,""KRN"",9.8,""NM"",42,0)"
^XMB(3.9,148,2,640,0)="SROACAR^^0^B10623143"
^XMB(3.9,148,2,641,0)="""BLD"",5583,""KRN"",9.8,""NM"",43,0)"
^XMB(3.9,148,2,642,0)="SROACAT^^0^B19181546"
^XMB(3.9,148,2,643,0)="""BLD"",5583,""KRN"",9.8,""NM"",44,0)"
^XMB(3.9,148,2,644,0)="SROACL1^^0^B26895969"
^XMB(3.9,148,2,645,0)="""BLD"",5583,""KRN"",9.8,""NM"",45,0)"
^XMB(3.9,148,2,646,0)="SROACPM1^^0^B14126949"
^XMB(3.9,148,2,647,0)="""BLD"",5583,""KRN"",9.8,""NM"",46,0)"
^XMB(3.9,148,2,648,0)="SROACPM2^^0^B6018806"
^XMB(3.9,148,2,649,0)="""BLD"",5583,""KRN"",9.8,""NM"",47,0)"
^XMB(3.9,148,2,650,0)="SROACR1^^0^B19934044"
^XMB(3.9,148,2,651,0)="""BLD"",5583,""KRN"",9.8,""NM"",48,0)"
^XMB(3.9,148,2,652,0)="SROACR2^^0^B15125616"
^XMB(3.9,148,2,653,0)="""BLD"",5583,""KRN"",9.8,""NM"",49,0)"
^XMB(3.9,148,2,654,0)="SROAMEAS^^0^B451481"
^XMB(3.9,148,2,655,0)="""BLD"",5583,""KRN"",9.8,""NM"",50,0)"
^XMB(3.9,148,2,656,0)="SROAPCA^^0^B25381788"
^XMB(3.9,148,2,657,0)="""BLD"",5583,""KRN"",9.8,""NM"",51,0)"
^XMB(3.9,148,2,658,0)="SROAPCA1^^0^B30711274"
^XMB(3.9,148,2,659,0)="""BLD"",5583,""KRN"",9.8,""NM"",52,0)"
^XMB(3.9,148,2,660,0)="SROAPCA2^^0^B19366840"
^XMB(3.9,148,2,661,0)="""BLD"",5583,""KRN"",9.8,""NM"",53,0)"
^XMB(3.9,148,2,662,0)="SROAPCA4^^0^B14863488"
^XMB(3.9,148,2,663,0)="""BLD"",5583,""KRN"",9.8,""NM"",54,0)"
^XMB(3.9,148,2,664,0)="SROATCM^^0^B25329729"
^XMB(3.9,148,2,665,0)="""BLD"",5583,""KRN"",9.8,""NM"",55,0)"
^XMB(3.9,148,2,666,0)="SROATCM1^^0^B51278524"
^XMB(3.9,148,2,667,0)="""BLD"",5583,""KRN"",9.8,""NM"",56,0)"
^XMB(3.9,148,2,668,0)="SROAUTL4^^0^B38721061"
^XMB(3.9,148,2,669,0)="""BLD"",5583,""KRN"",9.8,""NM"",57,0)"
^XMB(3.9,148,2,670,0)="SROAUTLC^^0^B27492049"
^XMB(3.9,148,2,671,0)="""BLD"",5583,""KRN"",9.8,""NM"",58,0)"
^XMB(3.9,148,2,672,0)="SROCCAT^^0^B16152950"
^XMB(3.9,148,2,673,0)="""BLD"",5583,""KRN"",9.8,""NM"",59,0)"
^XMB(3.9,148,2,674,0)="SROUTC^^0^B16240379"
^XMB(3.9,148,2,675,0)="""BLD"",5583,""KRN"",9.8,""NM"",60,0)"
^XMB(3.9,148,2,676,0)="SROQ0^^0^B16257215"
^XMB(3.9,148,2,677,0)="""BLD"",5583,""KRN"",9.8,""NM"",61,0)"
^XMB(3.9,148,2,678,0)="SROAUTL0^^0^B17506140"
^XMB(3.9,148,2,679,0)="""BLD"",5583,""KRN"",9.8,""NM"",63,0)"
^XMB(3.9,148,2,680,0)="SROATMNO^^0^B26731177"
^XMB(3.9,148,2,681,0)="""BLD"",5583,""KRN"",9.8,""NM"",64,0)"
^XMB(3.9,148,2,682,0)="SROCMPED^^0^B27790437"
^XMB(3.9,148,2,683,0)="""BLD"",5583,""KRN"",9.8,""NM"",65,0)"
^XMB(3.9,148,2,684,0)="SROQT^^0^B29470128"
^XMB(3.9,148,2,685,0)="""BLD"",5583,""KRN"",9.8,""NM"",66,0)"
^XMB(3.9,148,2,686,0)="SROALSS^^0^B17218994"
^XMB(3.9,148,2,687,0)="""BLD"",5583,""KRN"",9.8,""NM"",67,0)"
^XMB(3.9,148,2,688,0)="SROALSSP^^0^B17029510"
^XMB(3.9,148,2,689,0)="""BLD"",5583,""KRN"",9.8,""NM"",68,0)"
^XMB(3.9,148,2,690,0)="SROALST^^0^B13569020"
^XMB(3.9,148,2,691,0)="""BLD"",5583,""KRN"",9.8,""NM"",69,0)"
^XMB(3.9,148,2,692,0)="SROALSTP^^0^B12052730"
^XMB(3.9,148,2,693,0)="""BLD"",5583,""KRN"",9.8,""NM"",70,0)"
^XMB(3.9,148,2,694,0)="SRENSCS^^0^B7706764"
^XMB(3.9,148,2,695,0)="""BLD"",5583,""KRN"",9.8,""NM"",71,0)"
^XMB(3.9,148,2,696,0)="SROAPS1^^0^B19811405"
^XMB(3.9,148,2,697,0)="""BLD"",5583,""KRN"",9.8,""NM"",72,0)"
^XMB(3.9,148,2,698,0)="SROATCM3^^0^B12262748"
^XMB(3.9,148,2,699,0)="""BLD"",5583,""KRN"",9.8,""NM"",73,0)"
^XMB(3.9,148,2,700,0)="SROESNR0^^0^B30368515"
^XMB(3.9,148,2,701,0)="""BLD"",5583,""KRN"",9.8,""NM"",74,0)"
^XMB(3.9,148,2,702,0)="SRONIN^^0^B64007780"
^XMB(3.9,148,2,703,0)="""BLD"",5583,""KRN"",9.8,""NM"",75,0)"
^XMB(3.9,148,2,704,0)="SRONRPT0^^0^B53211823"
^XMB(3.9,148,2,705,0)="""BLD"",5583,""KRN"",9.8,""NM"",76,0)"
^XMB(3.9,148,2,706,0)="SROATCM2^^0^B8920384"
^XMB(3.9,148,2,707,0)="""BLD"",5583,""KRN"",9.8,""NM"",77,0)"
^XMB(3.9,148,2,708,0)="SROQ1^^0^B34164530"
^XMB(3.9,148,2,709,0)="""BLD"",5583,""KRN"",9.8,""NM"",78,0)"
^XMB(3.9,148,2,710,0)="SROQ2^^0^B33278747"
^XMB(3.9,148,2,711,0)="""BLD"",5583,""KRN"",9.8,""NM"",79,0)"
^XMB(3.9,148,2,712,0)="SROANT^^0^B10789916"
^XMB(3.9,148,2,713,0)="""BLD"",5583,""KRN"",9.8,""NM"",80,0)"
^XMB(3.9,148,2,714,0)="SROANTS^^0^B12415292"
^XMB(3.9,148,2,715,0)="""BLD"",5583,""KRN"",9.8,""NM"",81,0)"
^XMB(3.9,148,2,716,0)="SROANTSP^^0^B12263907"
^XMB(3.9,148,2,717,0)="""BLD"",5583,""KRN"",9.8,""NM"",82,0)"
^XMB(3.9,148,2,718,0)="SROANTP^^0^B10996883"
^XMB(3.9,148,2,719,0)="""BLD"",5583,""KRN"",9.8,""NM"",83,0)"
^XMB(3.9,148,2,720,0)="SROALC^^0^B10589627"
^XMB(3.9,148,2,721,0)="""BLD"",5583,""KRN"",9.8,""NM"",84,0)"
^XMB(3.9,148,2,722,0)="SROALCS^^0^B13891688"
^XMB(3.9,148,2,723,0)="""BLD"",5583,""KRN"",9.8,""NM"",85,0)"
^XMB(3.9,148,2,724,0)="SROALCSP^^0^B12135710"
^XMB(3.9,148,2,725,0)="""BLD"",5583,""KRN"",9.8,""NM"",86,0)"
^XMB(3.9,148,2,726,0)="SROALCP^^0^B10000827"
^XMB(3.9,148,2,727,0)="""BLD"",5583,""KRN"",9.8,""NM"",87,0)"
^XMB(3.9,148,2,728,0)="SROALT^^0^B10482929"
^XMB(3.9,148,2,729,0)="""BLD"",5583,""KRN"",9.8,""NM"",88,0)"
^XMB(3.9,148,2,730,0)="SROALTS^^0^B12812472"
^XMB(3.9,148,2,731,0)="""BLD"",5583,""KRN"",9.8,""NM"",89,0)"
^XMB(3.9,148,2,732,0)="SROALTSP^^0^B11921098"
^XMB(3.9,148,2,733,0)="""BLD"",5583,""KRN"",9.8,""NM"",90,0)"
^XMB(3.9,148,2,734,0)="SROALTP^^0^B9843982"
^XMB(3.9,148,2,735,0)="""BLD"",5583,""KRN"",9.8,""NM"",91,0)"
^XMB(3.9,148,2,736,0)="SROALL^^0^B13021527"
^XMB(3.9,148,2,737,0)="""BLD"",5583,""KRN"",9.8,""NM"",92,0)"
^XMB(3.9,148,2,738,0)="SROALLS^^0^B19116558"
^XMB(3.9,148,2,739,0)="""BLD"",5583,""KRN"",9.8,""NM"",93,0)"
^XMB(3.9,148,2,740,0)="SROALLSP^^0^B20130210"
^XMB(3.9,148,2,741,0)="""BLD"",5583,""KRN"",9.8,""NM"",94,0)"
^XMB(3.9,148,2,742,0)="SROALLP^^0^B12596044"
^XMB(3.9,148,2,743,0)="""BLD"",5583,""KRN"",9.8,""NM"",95,0)"
^XMB(3.9,148,2,744,0)="SROALM^^0^B21272239"
^XMB(3.9,148,2,745,0)="""BLD"",5583,""KRN"",9.8,""NM"",96,0)"
^XMB(3.9,148,2,746,0)="SROALMN^^0^B23578732"
^XMB(3.9,148,2,747,0)="""BLD"",5583,""KRN"",9.8,""NM"",97,0)"
^XMB(3.9,148,2,748,0)="SROQM^^0^B18303106"
^XMB(3.9,148,2,749,0)="""BLD"",5583,""KRN"",9.8,""NM"",98,0)"
^XMB(3.9,148,2,750,0)="SROQM1^^0^B25626718"
^XMB(3.9,148,2,751,0)="""BLD"",5583,""KRN"",9.8,""NM"",99,0)"
^XMB(3.9,148,2,752,0)="SROACOP^^0^B19657223"
^XMB(3.9,148,2,753,0)="""BLD"",5583,""KRN"",9.8,""NM"",100,0)"
^XMB(3.9,148,2,754,0)="SROQ1A^^0^B30905519"
^XMB(3.9,148,2,755,0)="""BLD"",5583,""KRN"",9.8,""NM"",101,0)"
^XMB(3.9,148,2,756,0)="SROAPAS^^0^B27516322"
^XMB(3.9,148,2,757,0)="""BLD"",5583,""KRN"",9.8,""NM"",102,0)"
^XMB(3.9,148,2,758,0)="SROAOTH^^0^B6104912"
^XMB(3.9,148,2,759,0)="""BLD"",5583,""KRN"",9.8,""NM"",103,0)"
^XMB(3.9,148,2,760,0)="SROES^^0^B26256773"
^XMB(3.9,148,2,761,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SRENSCS"",70)"
^XMB(3.9,148,2,762,0)=""
^XMB(3.9,148,2,763,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SRO1L1"",40)"
^XMB(3.9,148,2,764,0)=""
^XMB(3.9,148,2,765,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROA30"",11)"
^XMB(3.9,148,2,766,0)=""
^XMB(3.9,148,2,767,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROACAR"",42)"
^XMB(3.9,148,2,768,0)=""
^XMB(3.9,148,2,769,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROACAT"",43)"
^XMB(3.9,148,2,770,0)=""
^XMB(3.9,148,2,771,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROACL1"",44)"
^XMB(3.9,148,2,772,0)=""
^XMB(3.9,148,2,773,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROACOP"",99)"
^XMB(3.9,148,2,774,0)=""
^XMB(3.9,148,2,775,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROACPM1"",45)"
^XMB(3.9,148,2,776,0)=""
^XMB(3.9,148,2,777,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROACPM2"",46)"
^XMB(3.9,148,2,778,0)=""
^XMB(3.9,148,2,779,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROACR1"",47)"
^XMB(3.9,148,2,780,0)=""
^XMB(3.9,148,2,781,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROACR2"",48)"
^XMB(3.9,148,2,782,0)=""
^XMB(3.9,148,2,783,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROAEX"",8)"
^XMB(3.9,148,2,784,0)=""
^XMB(3.9,148,2,785,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROAL1"",14)"
^XMB(3.9,148,2,786,0)=""
^XMB(3.9,148,2,787,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROAL11"",15)"
^XMB(3.9,148,2,788,0)=""
^XMB(3.9,148,2,789,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROAL2"",16)"
^XMB(3.9,148,2,790,0)=""
^XMB(3.9,148,2,791,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROAL21"",17)"
^XMB(3.9,148,2,792,0)=""
^XMB(3.9,148,2,793,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROALC"",83)"
^XMB(3.9,148,2,794,0)=""
^XMB(3.9,148,2,795,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROALCP"",86)"
^XMB(3.9,148,2,796,0)=""
^XMB(3.9,148,2,797,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROALCS"",84)"
^XMB(3.9,148,2,798,0)=""
^XMB(3.9,148,2,799,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROALCSP"",85)"
^XMB(3.9,148,2,800,0)=""
^XMB(3.9,148,2,801,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROALDP"",22)"
^XMB(3.9,148,2,802,0)=""
^XMB(3.9,148,2,803,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROALEN"",21)"
^XMB(3.9,148,2,804,0)=""
^XMB(3.9,148,2,805,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROALET"",12)"
^XMB(3.9,148,2,806,0)=""
^XMB(3.9,148,2,807,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROALL"",91)"
^XMB(3.9,148,2,808,0)=""
^XMB(3.9,148,2,809,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROALLP"",94)"
^XMB(3.9,148,2,810,0)=""
^XMB(3.9,148,2,811,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROALLS"",92)"
^XMB(3.9,148,2,812,0)=""
^XMB(3.9,148,2,813,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROALLSP"",93)"
^XMB(3.9,148,2,814,0)=""
^XMB(3.9,148,2,815,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROALM"",95)"
^XMB(3.9,148,2,816,0)=""
^XMB(3.9,148,2,817,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROALMN"",96)"
^XMB(3.9,148,2,818,0)=""
^XMB(3.9,148,2,819,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROALN1"",18)"
^XMB(3.9,148,2,820,0)=""
^XMB(3.9,148,2,821,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROALN2"",19)"
^XMB(3.9,148,2,822,0)=""
^XMB(3.9,148,2,823,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROALN3"",20)"
^XMB(3.9,148,2,824,0)=""
^XMB(3.9,148,2,825,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROALOG"",27)"
^XMB(3.9,148,2,826,0)=""
^XMB(3.9,148,2,827,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROALSS"",66)"
^XMB(3.9,148,2,828,0)=""
^XMB(3.9,148,2,829,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROALSSP"",67)"
^XMB(3.9,148,2,830,0)=""
^XMB(3.9,148,2,831,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROALST"",68)"
^XMB(3.9,148,2,832,0)=""
^XMB(3.9,148,2,833,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROALSTP"",69)"
^XMB(3.9,148,2,834,0)=""
^XMB(3.9,148,2,835,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROALT"",87)"
^XMB(3.9,148,2,836,0)=""
^XMB(3.9,148,2,837,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROALTP"",90)"
^XMB(3.9,148,2,838,0)=""
^XMB(3.9,148,2,839,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROALTS"",88)"
^XMB(3.9,148,2,840,0)=""
^XMB(3.9,148,2,841,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROALTSP"",89)"
^XMB(3.9,148,2,842,0)=""
^XMB(3.9,148,2,843,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROAMEAS"",49)"
^XMB(3.9,148,2,844,0)=""
^XMB(3.9,148,2,845,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROANT"",79)"
^XMB(3.9,148,2,846,0)=""
^XMB(3.9,148,2,847,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROANTP"",82)"
^XMB(3.9,148,2,848,0)=""
^XMB(3.9,148,2,849,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROANTS"",80)"
^XMB(3.9,148,2,850,0)=""
^XMB(3.9,148,2,851,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROANTSP"",81)"
^XMB(3.9,148,2,852,0)=""
^XMB(3.9,148,2,853,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROAOP"",4)"
^XMB(3.9,148,2,854,0)=""
^XMB(3.9,148,2,855,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROAOP1"",5)"
^XMB(3.9,148,2,856,0)=""
^XMB(3.9,148,2,857,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROAOTH"",102)"
^XMB(3.9,148,2,858,0)=""
^XMB(3.9,148,2,859,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROAPAS"",101)"
^XMB(3.9,148,2,860,0)=""
^XMB(3.9,148,2,861,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROAPCA"",50)"
^XMB(3.9,148,2,862,0)=""
^XMB(3.9,148,2,863,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROAPCA1"",51)"
^XMB(3.9,148,2,864,0)=""
^XMB(3.9,148,2,865,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROAPCA2"",52)"
^XMB(3.9,148,2,866,0)=""
^XMB(3.9,148,2,867,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROAPCA4"",53)"
^XMB(3.9,148,2,868,0)=""
^XMB(3.9,148,2,869,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROAPR2"",1)"
^XMB(3.9,148,2,870,0)=""
^XMB(3.9,148,2,871,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROAPRE2"",2)"
^XMB(3.9,148,2,872,0)=""
^XMB(3.9,148,2,873,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROAPRT1"",35)"
^XMB(3.9,148,2,874,0)=""
^XMB(3.9,148,2,875,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROAPRT2"",36)"
^XMB(3.9,148,2,876,0)=""
^XMB(3.9,148,2,877,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROAPRT3"",37)"
^XMB(3.9,148,2,878,0)=""
^XMB(3.9,148,2,879,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROAPRT4"",38)"
^XMB(3.9,148,2,880,0)=""
^XMB(3.9,148,2,881,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROAPRT5"",39)"
^XMB(3.9,148,2,882,0)=""
^XMB(3.9,148,2,883,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROAPS1"",71)"
^XMB(3.9,148,2,884,0)=""
^XMB(3.9,148,2,885,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROAPS2"",3)"
^XMB(3.9,148,2,886,0)=""
^XMB(3.9,148,2,887,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROATCM"",54)"
^XMB(3.9,148,2,888,0)=""
^XMB(3.9,148,2,889,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROATCM1"",55)"
^XMB(3.9,148,2,890,0)=""
^XMB(3.9,148,2,891,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROATCM2"",76)"
^XMB(3.9,148,2,892,0)=""
^XMB(3.9,148,2,893,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROATCM3"",72)"
^XMB(3.9,148,2,894,0)=""
^XMB(3.9,148,2,895,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROATM1"",31)"
^XMB(3.9,148,2,896,0)=""
^XMB(3.9,148,2,897,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROATM2"",32)"
^XMB(3.9,148,2,898,0)=""
^XMB(3.9,148,2,899,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROATM3"",33)"
^XMB(3.9,148,2,900,0)=""
^XMB(3.9,148,2,901,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROATM4"",34)"
^XMB(3.9,148,2,902,0)=""
^XMB(3.9,148,2,903,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROATMIT"",30)"
^XMB(3.9,148,2,904,0)=""
^XMB(3.9,148,2,905,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROATMNO"",63)"
^XMB(3.9,148,2,906,0)=""
^XMB(3.9,148,2,907,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROAUTL"",6)"
^XMB(3.9,148,2,908,0)=""
^XMB(3.9,148,2,909,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROAUTL0"",61)"
^XMB(3.9,148,2,910,0)=""
^XMB(3.9,148,2,911,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROAUTL1"",29)"
^XMB(3.9,148,2,912,0)=""
^XMB(3.9,148,2,913,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROAUTL2"",28)"
^XMB(3.9,148,2,914,0)=""
^XMB(3.9,148,2,915,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROAUTL4"",56)"
^XMB(3.9,148,2,916,0)=""
^XMB(3.9,148,2,917,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROAUTLC"",57)"
^XMB(3.9,148,2,918,0)=""
^XMB(3.9,148,2,919,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROAWL"",9)"
^XMB(3.9,148,2,920,0)=""
^XMB(3.9,148,2,921,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROAWL1"",10)"
^XMB(3.9,148,2,922,0)=""
^XMB(3.9,148,2,923,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROCCAT"",58)"
^XMB(3.9,148,2,924,0)=""
^XMB(3.9,148,2,925,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROCL1"",41)"
^XMB(3.9,148,2,926,0)=""
^XMB(3.9,148,2,927,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROCMP"",23)"
^XMB(3.9,148,2,928,0)=""
^XMB(3.9,148,2,929,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROCMP1"",24)"
^XMB(3.9,148,2,930,0)=""
^XMB(3.9,148,2,931,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROCMP2"",25)"
^XMB(3.9,148,2,932,0)=""
^XMB(3.9,148,2,933,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROCMPED"",64)"
^XMB(3.9,148,2,934,0)=""
^XMB(3.9,148,2,935,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROES"",103)"
^XMB(3.9,148,2,936,0)=""
^XMB(3.9,148,2,937,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROESNR0"",73)"
^XMB(3.9,148,2,938,0)=""
^XMB(3.9,148,2,939,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SRONIN"",74)"
^XMB(3.9,148,2,940,0)=""
^XMB(3.9,148,2,941,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SRONRPT0"",75)"
^XMB(3.9,148,2,942,0)=""
^XMB(3.9,148,2,943,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROQ0"",60)"
^XMB(3.9,148,2,944,0)=""
^XMB(3.9,148,2,945,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROQ1"",77)"
^XMB(3.9,148,2,946,0)=""
^XMB(3.9,148,2,947,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROQ1A"",100)"
^XMB(3.9,148,2,948,0)=""
^XMB(3.9,148,2,949,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROQ2"",78)"
^XMB(3.9,148,2,950,0)=""
^XMB(3.9,148,2,951,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROQM"",97)"
^XMB(3.9,148,2,952,0)=""
^XMB(3.9,148,2,953,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROQM1"",98)"
^XMB(3.9,148,2,954,0)=""
^XMB(3.9,148,2,955,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROQT"",65)"
^XMB(3.9,148,2,956,0)=""
^XMB(3.9,148,2,957,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROUTC"",59)"
^XMB(3.9,148,2,958,0)=""
^XMB(3.9,148,2,959,0)="""BLD"",5583,""KRN"",9.8,""NM"",""B"",""SROXR4"",13)"
^XMB(3.9,148,2,960,0)=""
^XMB(3.9,148,2,961,0)="""BLD"",5583,""KRN"",19,0)"
^XMB(3.9,148,2,962,0)="19"
^XMB(3.9,148,2,963,0)="""BLD"",5583,""KRN"",19,""NM"",0)"
^XMB(3.9,148,2,964,0)="^9.68A^^"
^XMB(3.9,148,2,965,0)="""BLD"",5583,""KRN"",19.1,0)"
^XMB(3.9,148,2,966,0)="19.1"
^XMB(3.9,148,2,967,0)="""BLD"",5583,""KRN"",101,0)"
^XMB(3.9,148,2,968,0)="101"
^XMB(3.9,148,2,969,0)="""BLD"",5583,""KRN"",409.61,0)"
^XMB(3.9,148,2,970,0)="409.61"
^XMB(3.9,148,2,971,0)="""BLD"",5583,""KRN"",771,0)"
^XMB(3.9,148,2,972,0)="771"
^XMB(3.9,148,2,973,0)="""BLD"",5583,""KRN"",870,0)"
^XMB(3.9,148,2,974,0)="870"
^XMB(3.9,148,2,975,0)="""BLD"",5583,""KRN"",8989.51,0)"
^XMB(3.9,148,2,976,0)="8989.51"
^XMB(3.9,148,2,977,0)="""BLD"",5583,""KRN"",8989.52,0)"
^XMB(3.9,148,2,978,0)="8989.52"
^XMB(3.9,148,2,979,0)="""BLD"",5583,""KRN"",8994,0)"
^XMB(3.9,148,2,980,0)="8994"
^XMB(3.9,148,2,981,0)="""BLD"",5583,""KRN"",""B"",.4,.4)"
^XMB(3.9,148,2,982,0)=""
^XMB(3.9,148,2,983,0)="""BLD"",5583,""KRN"",""B"",.401,.401)"
^XMB(3.9,148,2,984,0)=""
^XMB(3.9,148,2,985,0)="""BLD"",5583,""KRN"",""B"",.402,.402)"
^XMB(3.9,148,2,986,0)=""
^XMB(3.9,148,2,987,0)="""BLD"",5583,""KRN"",""B"",.403,.403)"
^XMB(3.9,148,2,988,0)=""
^XMB(3.9,148,2,989,0)="""BLD"",5583,""KRN"",""B"",.5,.5)"
^XMB(3.9,148,2,990,0)=""
^XMB(3.9,148,2,991,0)="""BLD"",5583,""KRN"",""B"",.84,.84)"
^XMB(3.9,148,2,992,0)=""
^XMB(3.9,148,2,993,0)="""BLD"",5583,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,148,2,994,0)=""
^XMB(3.9,148,2,995,0)="""BLD"",5583,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,148,2,996,0)=""
^XMB(3.9,148,2,997,0)="""BLD"",5583,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,148,2,998,0)=""
^XMB(3.9,148,2,999,0)="""BLD"",5583,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,148,2,1000,0)=""
^XMB(3.9,148,2,1001,0)="""BLD"",5583,""KRN"",""B"",19,19)"
^XMB(3.9,148,2,1002,0)=""
^XMB(3.9,148,2,1003,0)="""BLD"",5583,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,148,2,1004,0)=""
^XMB(3.9,148,2,1005,0)="""BLD"",5583,""KRN"",""B"",101,101)"
^XMB(3.9,148,2,1006,0)=""
^XMB(3.9,148,2,1007,0)="""BLD"",5583,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,148,2,1008,0)=""
^XMB(3.9,148,2,1009,0)="""BLD"",5583,""KRN"",""B"",771,771)"
^XMB(3.9,148,2,1010,0)=""
^XMB(3.9,148,2,1011,0)="""BLD"",5583,""KRN"",""B"",870,870)"
^XMB(3.9,148,2,1012,0)=""
^XMB(3.9,148,2,1013,0)="""BLD"",5583,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,148,2,1014,0)=""
^XMB(3.9,148,2,1015,0)="""BLD"",5583,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,148,2,1016,0)=""
^XMB(3.9,148,2,1017,0)="""BLD"",5583,""KRN"",""B"",8994,8994)"
^XMB(3.9,148,2,1018,0)=""
^XMB(3.9,148,2,1019,0)="""BLD"",5583,""QUES"",0)"
^XMB(3.9,148,2,1020,0)="^9.62^^"
^XMB(3.9,148,2,1021,0)="""BLD"",5583,""REQB"",0)"
^XMB(3.9,148,2,1022,0)="^9.611^8^6"
^XMB(3.9,148,2,1023,0)="""BLD"",5583,""REQB"",1,0)"
^XMB(3.9,148,2,1024,0)="SR*3.0*142^2"
^XMB(3.9,148,2,1025,0)="""BLD"",5583,""REQB"",2,0)"
^XMB(3.9,148,2,1026,0)="SR*3.0*113^2"
^XMB(3.9,148,2,1027,0)="""BLD"",5583,""REQB"",3,0)"
^XMB(3.9,148,2,1028,0)="SR*3.0*137^2"
^XMB(3.9,148,2,1029,0)="""BLD"",5583,""REQB"",6,0)"
^XMB(3.9,148,2,1030,0)="SR*3.0*138^2"
^XMB(3.9,148,2,1031,0)="""BLD"",5583,""REQB"",7,0)"
^XMB(3.9,148,2,1032,0)="SR*3.0*143^2"
^XMB(3.9,148,2,1033,0)="""BLD"",5583,""REQB"",8,0)"
^XMB(3.9,148,2,1034,0)="SR*3.0*147^2"
^XMB(3.9,148,2,1035,0)="""BLD"",5583,""REQB"",""B"",""SR*3.0*113"",2)"
^XMB(3.9,148,2,1036,0)=""
^XMB(3.9,148,2,1037,0)="""BLD"",5583,""REQB"",""B"",""SR*3.0*137"",3)"
^XMB(3.9,148,2,1038,0)=""
^XMB(3.9,148,2,1039,0)="""BLD"",5583,""REQB"",""B"",""SR*3.0*138"",6)"
^XMB(3.9,148,2,1040,0)=""
^XMB(3.9,148,2,1041,0)="""BLD"",5583,""REQB"",""B"",""SR*3.0*142"",1)"
^XMB(3.9,148,2,1042,0)=""
^XMB(3.9,148,2,1043,0)="""BLD"",5583,""REQB"",""B"",""SR*3.0*143"",7)"
^XMB(3.9,148,2,1044,0)=""
^XMB(3.9,148,2,1045,0)="""BLD"",5583,""REQB"",""B"",""SR*3.0*147"",8)"
^XMB(3.9,148,2,1046,0)=""
^XMB(3.9,148,2,1047,0)="""DATA"",136.5,1,0)"
^XMB(3.9,148,2,1048,0)="SUPERFICIAL INCISIONAL SSI"
^XMB(3.9,148,2,1049,0)="""DATA"",136.5,1,1,0)"
^XMB(3.9,148,2,1050,0)="^^22^22^3040318^"
^XMB(3.9,148,2,1051,0)="""DATA"",136.5,1,1,1,0)"
^XMB(3.9,148,2,1052,0)="NSQIP Definition (2004):"
^XMB(3.9,148,2,1053,0)="""DATA"",136.5,1,1,2,0)"
^XMB(3.9,148,2,1054,0)="Superficial incisional SSI is an infection that occurs within 30 days "
^XMB(3.9,148,2,1055,0)="""DATA"",136.5,1,1,3,0)"
^XMB(3.9,148,2,1056,0)="after the operation and infection involves only skin or subcutaneous "
^XMB(3.9,148,2,1057,0)="""DATA"",136.5,1,1,4,0)"
^XMB(3.9,148,2,1058,0)="tissue of the incision and at least one of the following:"
^XMB(3.9,148,2,1059,0)="""DATA"",136.5,1,1,5,0)"
^XMB(3.9,148,2,1060,0)=" "
^XMB(3.9,148,2,1061,0)="""DATA"",136.5,1,1,6,0)"
^XMB(3.9,148,2,1062,0)=" - Purulent drainage, with or without laboratory confirmation, from the"
^XMB(3.9,148,2,1063,0)="""DATA"",136.5,1,1,7,0)"
^XMB(3.9,148,2,1064,0)="   superficial incision."
^XMB(3.9,148,2,1065,0)="""DATA"",136.5,1,1,8,0)"
^XMB(3.9,148,2,1066,0)=" - Organisms isolated from an aseptically obtained culture of fluid or"
^XMB(3.9,148,2,1067,0)="""DATA"",136.5,1,1,9,0)"
^XMB(3.9,148,2,1068,0)="   tissue from the superficial incision. "
^XMB(3.9,148,2,1069,0)="""DATA"",136.5,1,1,10,0)"
^XMB(3.9,148,2,1070,0)=" - At least one of the following signs or symptoms of infection: pain"
^XMB(3.9,148,2,1071,0)="""DATA"",136.5,1,1,11,0)"
^XMB(3.9,148,2,1072,0)="   or tenderness, localized swelling, redness, or heat and superficial"
^XMB(3.9,148,2,1073,0)="""DATA"",136.5,1,1,12,0)"
^XMB(3.9,148,2,1074,0)="   incision is deliberately opened by the surgeon, unless incision is"
^XMB(3.9,148,2,1075,0)="""DATA"",136.5,1,1,13,0)"
^XMB(3.9,148,2,1076,0)="   culture-negative.  "
^XMB(3.9,148,2,1077,0)="""DATA"",136.5,1,1,14,0)"
^XMB(3.9,148,2,1078,0)=" - Diagnosis of superficial incisional SSI by the surgeon or attending"
^XMB(3.9,148,2,1079,0)="""DATA"",136.5,1,1,15,0)"
^XMB(3.9,148,2,1080,0)="   physician.  "
^XMB(3.9,148,2,1081,0)="""DATA"",136.5,1,1,16,0)"
^XMB(3.9,148,2,1082,0)=" "
^XMB(3.9,148,2,1083,0)="""DATA"",136.5,1,1,17,0)"
^XMB(3.9,148,2,1084,0)="Do not report the following conditions as SSI:"
^XMB(3.9,148,2,1085,0)="""DATA"",136.5,1,1,18,0)"
^XMB(3.9,148,2,1086,0)=" - Stitch abscess (minimal inflammation and discharge confined to the"
^XMB(3.9,148,2,1087,0)="""DATA"",136.5,1,1,19,0)"
^XMB(3.9,148,2,1088,0)="   points of suture penetration)."
^XMB(3.9,148,2,1089,0)="""DATA"",136.5,1,1,20,0)"
^XMB(3.9,148,2,1090,0)=" - Infected burn wound."
^XMB(3.9,148,2,1091,0)="""DATA"",136.5,1,1,21,0)"
^XMB(3.9,148,2,1092,0)=" - Incisional SSI that extends into the fascial and muscle layers (see"
^XMB(3.9,148,2,1093,0)="""DATA"",136.5,1,1,22,0)"
^XMB(3.9,148,2,1094,0)="   deep incisional SSI)."
^XMB(3.9,148,2,1095,0)="""DATA"",136.5,2,0)"
^XMB(3.9,148,2,1096,0)="DEEP INCISIONAL SSI"
^XMB(3.9,148,2,1097,0)="""DATA"",136.5,2,1,0)"
^XMB(3.9,148,2,1098,0)="^^23^23^3040318^"
^XMB(3.9,148,2,1099,0)="""DATA"",136.5,2,1,1,0)"
^XMB(3.9,148,2,1100,0)="NSQIP Definition (2004):"
^XMB(3.9,148,2,1101,0)="""DATA"",136.5,2,1,2,0)"
^XMB(3.9,148,2,1102,0)="Deep Incision SSI is an infection that occurs within 30 days after the "
^XMB(3.9,148,2,1103,0)="""DATA"",136.5,2,1,3,0)"
^XMB(3.9,148,2,1104,0)="operation and the infection appears to be related to the operation and "
^XMB(3.9,148,2,1105,0)="""DATA"",136.5,2,1,4,0)"
^XMB(3.9,148,2,1106,0)="infection involved deep soft tissues (e.g., fascial and muscle layers) "
^XMB(3.9,148,2,1107,0)="""DATA"",136.5,2,1,5,0)"
^XMB(3.9,148,2,1108,0)="of the incision and at least one of the following: "
^XMB(3.9,148,2,1109,0)="""DATA"",136.5,2,1,6,0)"
^XMB(3.9,148,2,1110,0)=" "
^XMB(3.9,148,2,1111,0)="""DATA"",136.5,2,1,7,0)"
^XMB(3.9,148,2,1112,0)=" - Purulent drainage from the deep incision but not from the "
^XMB(3.9,148,2,1113,0)="""DATA"",136.5,2,1,8,0)"
^XMB(3.9,148,2,1114,0)="   organ/space component of the surgical site."
^XMB(3.9,148,2,1115,0)="""DATA"",136.5,2,1,9,0)"
^XMB(3.9,148,2,1116,0)=" - A deep incision spontaneously dehisces or is deliberately opened by"
^XMB(3.9,148,2,1117,0)="""DATA"",136.5,2,1,10,0)"
^XMB(3.9,148,2,1118,0)="   a surgeon when the patient has at least one of the following signs"
^XMB(3.9,148,2,1119,0)="""DATA"",136.5,2,1,11,0)"
^XMB(3.9,148,2,1120,0)="   or symptoms: fever (>38 C), localized pain, or tenderness, unless"
^XMB(3.9,148,2,1121,0)="""DATA"",136.5,2,1,12,0)"
^XMB(3.9,148,2,1122,0)="   site is culture-negative."
^XMB(3.9,148,2,1123,0)="""DATA"",136.5,2,1,13,0)"
^XMB(3.9,148,2,1124,0)=" - An abscess or other evidence of infection involving the deep "
^XMB(3.9,148,2,1125,0)="""DATA"",136.5,2,1,14,0)"
^XMB(3.9,148,2,1126,0)="   incision is found on direct examination, during reoperation, or by "
^XMB(3.9,148,2,1127,0)="""DATA"",136.5,2,1,15,0)"
^XMB(3.9,148,2,1128,0)="   histopathologic or radiologic examination."
^XMB(3.9,148,2,1129,0)="""DATA"",136.5,2,1,16,0)"
^XMB(3.9,148,2,1130,0)=" - Diagnosis of a deep incision SSI by a surgeon or attending "
^XMB(3.9,148,2,1131,0)="""DATA"",136.5,2,1,17,0)"
^XMB(3.9,148,2,1132,0)="   physician. "
^XMB(3.9,148,2,1133,0)="""DATA"",136.5,2,1,18,0)"
^XMB(3.9,148,2,1134,0)=" "
^XMB(3.9,148,2,1135,0)="""DATA"",136.5,2,1,19,0)"
^XMB(3.9,148,2,1136,0)="Note:  "
^XMB(3.9,148,2,1137,0)="""DATA"",136.5,2,1,20,0)"
^XMB(3.9,148,2,1138,0)=" - Report infection that involves both superficial and deep incision"
^XMB(3.9,148,2,1139,0)="""DATA"",136.5,2,1,21,0)"
^XMB(3.9,148,2,1140,0)="   sites as deep incisional SSI."
^XMB(3.9,148,2,1141,0)="""DATA"",136.5,2,1,22,0)"
^XMB(3.9,148,2,1142,0)=" - Report an organ/space SSI that drains through the incision as a deep"
^XMB(3.9,148,2,1143,0)="""DATA"",136.5,2,1,23,0)"
^XMB(3.9,148,2,1144,0)="   incisional SSI."
^XMB(3.9,148,2,1145,0)="""DATA"",136.5,3,0)"
^XMB(3.9,148,2,1146,0)="SYSTEMIC SEPSIS"
^XMB(3.9,148,2,1147,0)="""DATA"",136.5,3,1,0)"
^XMB(3.9,148,2,1148,0)="^^62^62^3060717^"
^XMB(3.9,148,2,1149,0)="""DATA"",136.5,3,1,1,0)"
^XMB(3.9,148,2,1150,0)="NSQIP Definition (2006):"
^XMB(3.9,148,2,1151,0)="""DATA"",136.5,3,1,2,0)"
^XMB(3.9,148,2,1152,0)="Sepsis is a vast clinical entity that takes a variety of forms. The "
^XMB(3.9,148,2,1153,0)="""DATA"",136.5,3,1,3,0)"
^XMB(3.9,148,2,1154,0)="spectrum of disorders spans from relatively mild physiologic          "
^XMB(3.9,148,2,1155,0)="""DATA"",136.5,3,1,4,0)"
^XMB(3.9,148,2,1156,0)="abnormalities to septic shock. Please report the most significant level"
^XMB(3.9,148,2,1157,0)="""DATA"",136.5,3,1,5,0)"
^XMB(3.9,148,2,1158,0)="using the criteria below:"
^XMB(3.9,148,2,1159,0)="""DATA"",136.5,3,1,6,0)"
^XMB(3.9,148,2,1160,0)=" "
^XMB(3.9,148,2,1161,0)="""DATA"",136.5,3,1,7,0)"
^XMB(3.9,148,2,1162,0)="1. Sepsis: Sepsis is the systemic response to infection. Report this "
^XMB(3.9,148,2,1163,0)="""DATA"",136.5,3,1,8,0)"
^XMB(3.9,148,2,1164,0)="variable if the patient has clinical signs and symptoms of SIRS. SIRS "
^XMB(3.9,148,2,1165,0)="""DATA"",136.5,3,1,9,0)"
^XMB(3.9,148,2,1166,0)="is a widespread inflammatory response to a variety of severe clinical"
^XMB(3.9,148,2,1167,0)="""DATA"",136.5,3,1,10,0)"
^XMB(3.9,148,2,1168,0)="insults. This syndrome is clinically recognized by the presence of two "
^XMB(3.9,148,2,1169,0)="""DATA"",136.5,3,1,11,0)"
^XMB(3.9,148,2,1170,0)="or more of the following:"
^XMB(3.9,148,2,1171,0)="""DATA"",136.5,3,1,12,0)"
^XMB(3.9,148,2,1172,0)="   - Temp >38 degrees C or <36 degrees C"
^XMB(3.9,148,2,1173,0)="""DATA"",136.5,3,1,13,0)"
^XMB(3.9,148,2,1174,0)="   - HR >90 bpm"
^XMB(3.9,148,2,1175,0)="""DATA"",136.5,3,1,14,0)"
^XMB(3.9,148,2,1176,0)="   - RR >20 breaths/min or PaCO2 <32 mmHg(<4.3 kPa)"
^XMB(3.9,148,2,1177,0)="""DATA"",136.5,3,1,15,0)"
^XMB(3.9,148,2,1178,0)="   - WBC >12,000 cell/mm3, <4000 cells/mm3, or >10% immature (band) "
^XMB(3.9,148,2,1179,0)="""DATA"",136.5,3,1,16,0)"
^XMB(3.9,148,2,1180,0)="     forms"
^XMB(3.9,148,2,1181,0)="""DATA"",136.5,3,1,17,0)"
^XMB(3.9,148,2,1182,0)="   - Anion gap acidosis (this is defined by [sodium + potassium] -"
^XMB(3.9,148,2,1183,0)="""DATA"",136.5,3,1,18,0)"
^XMB(3.9,148,2,1184,0)="     [chloride + CO2]. If this number is greater than 12, then an anion"
^XMB(3.9,148,2,1185,0)="""DATA"",136.5,3,1,19,0)"
^XMB(3.9,148,2,1186,0)="     gap acidosis is present."
^XMB(3.9,148,2,1187,0)="""DATA"",136.5,3,1,20,0)"
^XMB(3.9,148,2,1188,0)=" "
^XMB(3.9,148,2,1189,0)="""DATA"",136.5,3,1,21,0)"
^XMB(3.9,148,2,1190,0)=" and one of the following:"
^XMB(3.9,148,2,1191,0)="""DATA"",136.5,3,1,22,0)"
^XMB(3.9,148,2,1192,0)="   - positive blood culture"
^XMB(3.9,148,2,1193,0)="""DATA"",136.5,3,1,23,0)"
^XMB(3.9,148,2,1194,0)="   - clinical documentation of purulence at any site thought to be "
^XMB(3.9,148,2,1195,0)="""DATA"",136.5,3,1,24,0)"
^XMB(3.9,148,2,1196,0)="     causative"
^XMB(3.9,148,2,1197,0)="""DATA"",136.5,3,1,25,0)"
^XMB(3.9,148,2,1198,0)=" "
^XMB(3.9,148,2,1199,0)="""DATA"",136.5,3,1,26,0)"
^XMB(3.9,148,2,1200,0)="2. Severe Sepsis/Septic Shock: Sepsis is considered severe when it is "
^XMB(3.9,148,2,1201,0)="""DATA"",136.5,3,1,27,0)"
^XMB(3.9,148,2,1202,0)="associated with organ and/or circulatory dysfunction. Report this "
^XMB(3.9,148,2,1203,0)="""DATA"",136.5,3,1,28,0)"
^XMB(3.9,148,2,1204,0)="variable if the patient has the clinical signs and symptoms of SIRS or "
^XMB(3.9,148,2,1205,0)="""DATA"",136.5,3,1,29,0)"
^XMB(3.9,148,2,1206,0)="sepsis AND documented organ and/or circulatory dysfunction. Examples of"
^XMB(3.9,148,2,1207,0)="""DATA"",136.5,3,1,30,0)"
^XMB(3.9,148,2,1208,0)="organ dysfunction include: oliguria, acute alteration in mental status,"
^XMB(3.9,148,2,1209,0)="""DATA"",136.5,3,1,31,0)"
^XMB(3.9,148,2,1210,0)="acute respiratory distress. Examples of circulatory dysfunction "
^XMB(3.9,148,2,1211,0)="""DATA"",136.5,3,1,32,0)"
^XMB(3.9,148,2,1212,0)="include: hypotension, requirement of inotropic or vasopressor agents."
^XMB(3.9,148,2,1213,0)="""DATA"",136.5,3,1,33,0)"
^XMB(3.9,148,2,1214,0)=" "
^XMB(3.9,148,2,1215,0)="""DATA"",136.5,3,1,34,0)"
^XMB(3.9,148,2,1216,0)="* For the patient that had sepsis preoperatively, worsening of any of "
^XMB(3.9,148,2,1217,0)="""DATA"",136.5,3,1,35,0)"
^XMB(3.9,148,2,1218,0)="the above signs postoperatively would be reported as a postoperative "
^XMB(3.9,148,2,1219,0)="""DATA"",136.5,3,1,36,0)"
^XMB(3.9,148,2,1220,0)="sepsis."
^XMB(3.9,148,2,1221,0)="""DATA"",136.5,3,1,37,0)"
^XMB(3.9,148,2,1222,0)=" "
^XMB(3.9,148,2,1223,0)="""DATA"",136.5,3,1,38,0)"
^XMB(3.9,148,2,1224,0)="Examples:"
^XMB(3.9,148,2,1225,0)="""DATA"",136.5,3,1,39,0)"
^XMB(3.9,148,2,1226,0)=" "
^XMB(3.9,148,2,1227,0)="""DATA"",136.5,3,1,40,0)"
^XMB(3.9,148,2,1228,0)="A patient comes into the emergency room with signs of sepsis - WBC 31, "
^XMB(3.9,148,2,1229,0)="""DATA"",136.5,3,1,41,0)"
^XMB(3.9,148,2,1230,0)="Temperature 104. CT shows an abdominal abscess. He is given antibiotics"
^XMB(3.9,148,2,1231,0)="""DATA"",136.5,3,1,42,0)"
^XMB(3.9,148,2,1232,0)="and is then taken emergently to the OR to drain the abscess. He "
^XMB(3.9,148,2,1233,0)="""DATA"",136.5,3,1,43,0)"
^XMB(3.9,148,2,1234,0)="receives antibiotics intraoperatively. Postoperatively his WBC and"
^XMB(3.9,148,2,1235,0)="""DATA"",136.5,3,1,44,0)"
^XMB(3.9,148,2,1236,0)="Temperature are trending down."
^XMB(3.9,148,2,1237,0)="""DATA"",136.5,3,1,45,0)"
^XMB(3.9,148,2,1238,0)="  POD#1 WBC 24, Temp 102 "
^XMB(3.9,148,2,1239,0)="""DATA"",136.5,3,1,46,0)"
^XMB(3.9,148,2,1240,0)="  POD#2 WBC 14, Temp 100 "
^XMB(3.9,148,2,1241,0)="""DATA"",136.5,3,1,47,0)"
^XMB(3.9,148,2,1242,0)="  POD#3 WBC 10, Temp 99 "
^XMB(3.9,148,2,1243,0)="""DATA"",136.5,3,1,48,0)"
^XMB(3.9,148,2,1244,0)="This patient does not have postoperative sepsis as his WBC and "
^XMB(3.9,148,2,1245,0)="""DATA"",136.5,3,1,49,0)"
^XMB(3.9,148,2,1246,0)="Temperature are improving each postoperative day. "
^XMB(3.9,148,2,1247,0)="""DATA"",136.5,3,1,50,0)"
^XMB(3.9,148,2,1248,0)=" "
^XMB(3.9,148,2,1249,0)="""DATA"",136.5,3,1,51,0)"
^XMB(3.9,148,2,1250,0)="Patient comes into the ER with s/s of sepsis - WBC 31, Temp 104. CT "
^XMB(3.9,148,2,1251,0)="""DATA"",136.5,3,1,52,0)"
^XMB(3.9,148,2,1252,0)="shows an abdominal abscess. He is given antibiotics and is taken "
^XMB(3.9,148,2,1253,0)="""DATA"",136.5,3,1,53,0)"
^XMB(3.9,148,2,1254,0)="emergently to the OR to drain the abscess. He receives antibiotics "
^XMB(3.9,148,2,1255,0)="""DATA"",136.5,3,1,54,0)"
^XMB(3.9,148,2,1256,0)="intraoperatively. Postoperatively his WBC and Temp are as follows:  "
^XMB(3.9,148,2,1257,0)="""DATA"",136.5,3,1,55,0)"
^XMB(3.9,148,2,1258,0)="  POD#1 WBC 28, Temp 103"
^XMB(3.9,148,2,1259,0)="""DATA"",136.5,3,1,56,0)"
^XMB(3.9,148,2,1260,0)="  POD#2 WBC 24, Temp 102.6 "
^XMB(3.9,148,2,1261,0)="""DATA"",136.5,3,1,57,0)"
^XMB(3.9,148,2,1262,0)="  POD#3 WBC 22, Temp 102 "
^XMB(3.9,148,2,1263,0)="""DATA"",136.5,3,1,58,0)"
^XMB(3.9,148,2,1264,0)="  POD#4 WBC 21, Temp 101.6"
^XMB(3.9,148,2,1265,0)="""DATA"",136.5,3,1,59,0)"
^XMB(3.9,148,2,1266,0)="  POD#5 WBC 30, Temp 104  "
^XMB(3.9,148,2,1267,0)="""DATA"",136.5,3,1,60,0)"
^XMB(3.9,148,2,1268,0)="This patient does have postoperative sepsis because on postoperative "
^XMB(3.9,148,2,1269,0)="""DATA"",136.5,3,1,61,0)"
^XMB(3.9,148,2,1270,0)="day #5, his WBC and Temperature increase. The patient is having"
^XMB(3.9,148,2,1271,0)="""DATA"",136.5,3,1,62,0)"
^XMB(3.9,148,2,1272,0)="worsening of the defined signs of sepsis."
^XMB(3.9,148,2,1273,0)="""DATA"",136.5,4,0)"
^XMB(3.9,148,2,1274,0)="PNEUMONIA"
^XMB(3.9,148,2,1275,0)="""DATA"",136.5,4,1,0)"
^XMB(3.9,148,2,1276,0)="^136.52^31^31^3040318^^"
^XMB(3.9,148,2,1277,0)="""DATA"",136.5,4,1,1,0)"
^XMB(3.9,148,2,1278,0)="NSQIP Definition (2004):"
^XMB(3.9,148,2,1279,0)="""DATA"",136.5,4,1,2,0)"
^XMB(3.9,148,2,1280,0)="Inflammation of the lungs caused primarily by bacteria, viruses, and/or"
^XMB(3.9,148,2,1281,0)="""DATA"",136.5,4,1,3,0)"
^XMB(3.9,148,2,1282,0)="chemical irritants, usually manifested by chills, fever, pain in the"
^XMB(3.9,148,2,1283,0)="""DATA"",136.5,4,1,4,0)"
^XMB(3.9,148,2,1284,0)="chest, cough, purulent, bloody sputum. Report as an occurrence if the"
^XMB(3.9,148,2,1285,0)="""DATA"",136.5,4,1,5,0)"
^XMB(3.9,148,2,1286,0)="patient has pneumonia meeting the definition of pneumonia below AND"
^XMB(3.9,148,2,1287,0)="""DATA"",136.5,4,1,6,0)"
^XMB(3.9,148,2,1288,0)="pneumonia not present preoperatively."
^XMB(3.9,148,2,1289,0)="""DATA"",136.5,4,1,7,0)"
^XMB(3.9,148,2,1290,0)=" "
^XMB(3.9,148,2,1291,0)="""DATA"",136.5,4,1,8,0)"
^XMB(3.9,148,2,1292,0)="Pneumonia must meet one of the following TWO criteria:"
^XMB(3.9,148,2,1293,0)="""DATA"",136.5,4,1,9,0)"
^XMB(3.9,148,2,1294,0)="Criterion 1."
^XMB(3.9,148,2,1295,0)="""DATA"",136.5,4,1,10,0)"
^XMB(3.9,148,2,1296,0)="  Rales or dullness to percussion on physical examination of chest AND"
^XMB(3.9,148,2,1297,0)="""DATA"",136.5,4,1,11,0)"
^XMB(3.9,148,2,1298,0)="  any of the following:"
^XMB(3.9,148,2,1299,0)="""DATA"",136.5,4,1,12,0)"
^XMB(3.9,148,2,1300,0)="  a. New onset of purulent sputum or change in character of sputum"
^XMB(3.9,148,2,1301,0)="""DATA"",136.5,4,1,13,0)"
^XMB(3.9,148,2,1302,0)="  b. Organism isolate from blood culture"
^XMB(3.9,148,2,1303,0)="""DATA"",136.5,4,1,14,0)"
^XMB(3.9,148,2,1304,0)="  c. Isolation of pathogen from specimen obtained by transtracheal"
^XMB(3.9,148,2,1305,0)="""DATA"",136.5,4,1,15,0)"
^XMB(3.9,148,2,1306,0)="     aspirate, bronchial brushing, or biopsy"
^XMB(3.9,148,2,1307,0)="""DATA"",136.5,4,1,16,0)"
^XMB(3.9,148,2,1308,0)=" "
^XMB(3.9,148,2,1309,0)="""DATA"",136.5,4,1,17,0)"
^XMB(3.9,148,2,1310,0)=" OR"
^XMB(3.9,148,2,1311,0)="""DATA"",136.5,4,1,18,0)"
^XMB(3.9,148,2,1312,0)=" "
^XMB(3.9,148,2,1313,0)="""DATA"",136.5,4,1,19,0)"
^XMB(3.9,148,2,1314,0)="Criterion 2."
^XMB(3.9,148,2,1315,0)="""DATA"",136.5,4,1,20,0)"
^XMB(3.9,148,2,1316,0)="  Chest radiographic examination shows new or progressive infiltrate, "
^XMB(3.9,148,2,1317,0)="""DATA"",136.5,4,1,21,0)"
^XMB(3.9,148,2,1318,0)="  consolidation, cavitation, or pleural effusion AND any of the "
^XMB(3.9,148,2,1319,0)="""DATA"",136.5,4,1,22,0)"
^XMB(3.9,148,2,1320,0)="  following:"
^XMB(3.9,148,2,1321,0)="""DATA"",136.5,4,1,23,0)"
^XMB(3.9,148,2,1322,0)="  a. New onset of purulent sputum or change in character of sputum"
^XMB(3.9,148,2,1323,0)="""DATA"",136.5,4,1,24,0)"
^XMB(3.9,148,2,1324,0)="  b. Organism isolated from the blood"
^XMB(3.9,148,2,1325,0)="""DATA"",136.5,4,1,25,0)"
^XMB(3.9,148,2,1326,0)="  c. Isolation of pathogen from specimen obtained by transtracheal    "
^XMB(3.9,148,2,1327,0)="""DATA"",136.5,4,1,26,0)"
^XMB(3.9,148,2,1328,0)="     aspirate, bronchial brushing, or biopsy"
^XMB(3.9,148,2,1329,0)="""DATA"",136.5,4,1,27,0)"
^XMB(3.9,148,2,1330,0)="  d. Isolation of virus or detection of viral antigen in respiratory"
^XMB(3.9,148,2,1331,0)="""DATA"",136.5,4,1,28,0)"
^XMB(3.9,148,2,1332,0)="     secretions"
^XMB(3.9,148,2,1333,0)="""DATA"",136.5,4,1,29,0)"
^XMB(3.9,148,2,1334,0)="  e. Diagnostic single antibody titer (IgM) or fourfold increase in"
^XMB(3.9,148,2,1335,0)="""DATA"",136.5,4,1,30,0)"
^XMB(3.9,148,2,1336,0)="     paired serum samples (IgG) for pathogen"
^XMB(3.9,148,2,1337,0)="""DATA"",136.5,4,1,31,0)"
^XMB(3.9,148,2,1338,0)="  f. Histopathologic evidence of pneumonia"
^XMB(3.9,148,2,1339,0)="""DATA"",136.5,5,0)"
^XMB(3.9,148,2,1340,0)="PULMONARY EMBOLISM"
^XMB(3.9,148,2,1341,0)="""DATA"",136.5,5,1,0)"
^XMB(3.9,148,2,1342,0)="^^11^11^3040318^"
^XMB(3.9,148,2,1343,0)="""DATA"",136.5,5,1,1,0)"
^XMB(3.9,148,2,1344,0)="NSQIP Definition (2004):"
^XMB(3.9,148,2,1345,0)="""DATA"",136.5,5,1,2,0)"
^XMB(3.9,148,2,1346,0)="Lodging of a blood clot in a pulmonary artery with subsequent "
^XMB(3.9,148,2,1347,0)="""DATA"",136.5,5,1,3,0)"
^XMB(3.9,148,2,1348,0)="obstruction of blood supply to the lung parenchyma. The blood clots "
^XMB(3.9,148,2,1349,0)="""DATA"",136.5,5,1,4,0)"
^XMB(3.9,148,2,1350,0)="usually originate from the deep leg veins or the pelvic venous system."
^XMB(3.9,148,2,1351,0)="""DATA"",136.5,5,1,5,0)"
^XMB(3.9,148,2,1352,0)="Report as an occurrence if the patient has a V-Q scan interpreted as"
^XMB(3.9,148,2,1353,0)="""DATA"",136.5,5,1,6,0)"
^XMB(3.9,148,2,1354,0)="high probability of pulmonary embolism or a positive pulmonary"
^XMB(3.9,148,2,1355,0)="""DATA"",136.5,5,1,7,0)"
^XMB(3.9,148,2,1356,0)="arteriogram or positive CT angiogram. Treatment usually consists of:"
^XMB(3.9,148,2,1357,0)="""DATA"",136.5,5,1,8,0)"
^XMB(3.9,148,2,1358,0)=" - Initiation of anticoagulation therapy"
^XMB(3.9,148,2,1359,0)="""DATA"",136.5,5,1,9,0)"
^XMB(3.9,148,2,1360,0)=" - Placement of mechanical interruption (e.g. Greenfield Filter), for"
^XMB(3.9,148,2,1361,0)="""DATA"",136.5,5,1,10,0)"
^XMB(3.9,148,2,1362,0)="   patients in whom anticoagulation is contraindicated or already "
^XMB(3.9,148,2,1363,0)="""DATA"",136.5,5,1,11,0)"
^XMB(3.9,148,2,1364,0)="   instituted."
^XMB(3.9,148,2,1365,0)="""DATA"",136.5,6,0)"
^XMB(3.9,148,2,1366,0)="ON VENTILATOR > 48 HOURS"
^XMB(3.9,148,2,1367,0)="""DATA"",136.5,6,1,0)"
^XMB(3.9,148,2,1368,0)="^^11^11^3060313^"
^XMB(3.9,148,2,1369,0)="""DATA"",136.5,6,1,1,0)"
^XMB(3.9,148,2,1370,0)="NSQIP Definition (2004):"
^XMB(3.9,148,2,1371,0)="""DATA"",136.5,6,1,2,0)"
^XMB(3.9,148,2,1372,0)="Total duration of ventilator-assisted respirations during postoperative"
^XMB(3.9,148,2,1373,0)="""DATA"",136.5,6,1,3,0)"
^XMB(3.9,148,2,1374,0)="hospitalization was >48 hours. This can occur at any time during the"
^XMB(3.9,148,2,1375,0)="""DATA"",136.5,6,1,4,0)"
^XMB(3.9,148,2,1376,0)="30-day period postoperatively. This time assessment is CUMULATIVE, not"
^XMB(3.9,148,2,1377,0)="""DATA"",136.5,6,1,5,0)"
^XMB(3.9,148,2,1378,0)="necessarily consecutive. Ventilator-assisted respirations can be via"
^XMB(3.9,148,2,1379,0)="""DATA"",136.5,6,1,6,0)"
^XMB(3.9,148,2,1380,0)="endotracheal tube, nasotracheal tube, or tracheostomy tube."
^XMB(3.9,148,2,1381,0)="""DATA"",136.5,6,1,7,0)"
^XMB(3.9,148,2,1382,0)=" "
^XMB(3.9,148,2,1383,0)="""DATA"",136.5,6,1,8,0)"
^XMB(3.9,148,2,1384,0)="CICSP Definition (2006)"
^XMB(3.9,148,2,1385,0)="""DATA"",136.5,6,1,9,0)"
^XMB(3.9,148,2,1386,0)="Indicate if the total duration of ventilator-assisted respiration "
^XMB(3.9,148,2,1387,0)="""DATA"",136.5,6,1,10,0)"
^XMB(3.9,148,2,1388,0)="during postoperative hospitalization within 30 days was greater than or"
^XMB(3.9,148,2,1389,0)="""DATA"",136.5,6,1,11,0)"
^XMB(3.9,148,2,1390,0)="equal to 48 hours."
^XMB(3.9,148,2,1391,0)="""DATA"",136.5,7,0)"
^XMB(3.9,148,2,1392,0)="UNPLANNED INTUBATION^^1"
^XMB(3.9,148,2,1393,0)="""DATA"",136.5,7,1,0)"
^XMB(3.9,148,2,1394,0)="^^9^9^3060313^"
^XMB(3.9,148,2,1395,0)="""DATA"",136.5,7,1,1,0)"
^XMB(3.9,148,2,1396,0)="NSQIP Definition (2004):"
^XMB(3.9,148,2,1397,0)="""DATA"",136.5,7,1,2,0)"
^XMB(3.9,148,2,1398,0)="Patient required placement of an endotracheal tube and mechanical or "
^XMB(3.9,148,2,1399,0)="""DATA"",136.5,7,1,3,0)"
^XMB(3.9,148,2,1400,0)="assisted ventilation because of the onset of respiratory or cardiac "
^XMB(3.9,148,2,1401,0)="""DATA"",136.5,7,1,4,0)"
^XMB(3.9,148,2,1402,0)="failure manifested by severe respiratory distress, hypoxia, "
^XMB(3.9,148,2,1403,0)="""DATA"",136.5,7,1,5,0)"
^XMB(3.9,148,2,1404,0)="hypercarbia, or respiratory acidosis. In patients who were intubated "
^XMB(3.9,148,2,1405,0)="""DATA"",136.5,7,1,6,0)"
^XMB(3.9,148,2,1406,0)="for their surgery, unplanned intubation occurs after they have been "
^XMB(3.9,148,2,1407,0)="""DATA"",136.5,7,1,7,0)"
^XMB(3.9,148,2,1408,0)="extubated after surgery. In patients who were not intubated during "
^XMB(3.9,148,2,1409,0)="""DATA"",136.5,7,1,8,0)"
^XMB(3.9,148,2,1410,0)="surgery, intubation at any time after their surgery is considered "
^XMB(3.9,148,2,1411,0)="""DATA"",136.5,7,1,9,0)"
^XMB(3.9,148,2,1412,0)="unplanned. "
^XMB(3.9,148,2,1413,0)="""DATA"",136.5,8,0)"
^XMB(3.9,148,2,1414,0)="RENAL INSUFFICIENCY"
^XMB(3.9,148,2,1415,0)="""DATA"",136.5,8,1,0)"
^XMB(3.9,148,2,1416,0)="^^4^4^3040318^"
^XMB(3.9,148,2,1417,0)="""DATA"",136.5,8,1,1,0)"
^XMB(3.9,148,2,1418,0)="NSQIP Definition (2004):"
^XMB(3.9,148,2,1419,0)="""DATA"",136.5,8,1,2,0)"
^XMB(3.9,148,2,1420,0)="The reduced capacity of the kidney to perform its function as evidenced"
^XMB(3.9,148,2,1421,0)="""DATA"",136.5,8,1,3,0)"
^XMB(3.9,148,2,1422,0)="by a rise in creatinine of >2 mg/dl from preoperative value, but with"
^XMB(3.9,148,2,1423,0)="""DATA"",136.5,8,1,4,0)"
^XMB(3.9,148,2,1424,0)="no requirement for dialysis."
^XMB(3.9,148,2,1425,0)="""DATA"",136.5,8,2,0)"
^XMB(3.9,148,2,1426,0)="^136.53^1^1"
^XMB(3.9,148,2,1427,0)="""DATA"",136.5,8,2,1,0)"
^XMB(3.9,148,2,1428,0)="PROGRESSIVE RENAL INSUFFICIENCY"
^XMB(3.9,148,2,1429,0)="""DATA"",136.5,9,0)"
^XMB(3.9,148,2,1430,0)="ACUTE RENAL FAILURE"
^XMB(3.9,148,2,1431,0)="""DATA"",136.5,9,1,0)"
^XMB(3.9,148,2,1432,0)="^^15^15^3060314^"
^XMB(3.9,148,2,1433,0)="""DATA"",136.5,9,1,1,0)"
^XMB(3.9,148,2,1434,0)="NSQIP Definition (2006):"
^XMB(3.9,148,2,1435,0)="""DATA"",136.5,9,1,2,0)"
^XMB(3.9,148,2,1436,0)="In a patient who did not require dialysis preoperatively, worsening of"
^XMB(3.9,148,2,1437,0)="""DATA"",136.5,9,1,3,0)"
^XMB(3.9,148,2,1438,0)="renal dysfunction (increase in serum creatinine to >2.0 and two times"
^XMB(3.9,148,2,1439,0)="""DATA"",136.5,9,1,4,0)"
^XMB(3.9,148,2,1440,0)="most recent preoperative creatinine level) and postoperatively "
^XMB(3.9,148,2,1441,0)="""DATA"",136.5,9,1,5,0)"
^XMB(3.9,148,2,1442,0)="requiring hemodialysis, peritoneal dialysis, hemofiltration,"
^XMB(3.9,148,2,1443,0)="""DATA"",136.5,9,1,6,0)"
^XMB(3.9,148,2,1444,0)="hemodiafiltration or ultrafiltration."
^XMB(3.9,148,2,1445,0)="""DATA"",136.5,9,1,7,0)"
^XMB(3.9,148,2,1446,0)=" "
^XMB(3.9,148,2,1447,0)="""DATA"",136.5,9,1,8,0)"
^XMB(3.9,148,2,1448,0)="TIP: If the patient refuses dialysis report as an occurrence because"
^XMB(3.9,148,2,1449,0)="""DATA"",136.5,9,1,9,0)"
^XMB(3.9,148,2,1450,0)="he/she did require dialysis."
^XMB(3.9,148,2,1451,0)="""DATA"",136.5,9,1,10,0)"
^XMB(3.9,148,2,1452,0)=" "
^XMB(3.9,148,2,1453,0)="""DATA"",136.5,9,1,11,0)"
^XMB(3.9,148,2,1454,0)="CICSP Definition (2004):"
^XMB(3.9,148,2,1455,0)="""DATA"",136.5,9,1,12,0)"
^XMB(3.9,148,2,1456,0)="Indicate if the patient developed new renal failure requiring dialysis "
^XMB(3.9,148,2,1457,0)="""DATA"",136.5,9,1,13,0)"
^XMB(3.9,148,2,1458,0)="or experienced an exacerbation of preoperative renal failure requiring "
^XMB(3.9,148,2,1459,0)="""DATA"",136.5,9,1,14,0)"
^XMB(3.9,148,2,1460,0)="initiation of dialysis (not on dialysis preoperatively) within 30 days "
^XMB(3.9,148,2,1461,0)="""DATA"",136.5,9,1,15,0)"
^XMB(3.9,148,2,1462,0)="postoperatively."
^XMB(3.9,148,2,1463,0)="""DATA"",136.5,9,2,0)"
^XMB(3.9,148,2,1464,0)="^136.53^1^1"
^XMB(3.9,148,2,1465,0)="""DATA"",136.5,9,2,1,0)"
^XMB(3.9,148,2,1466,0)="RENAL FAILURE"
^XMB(3.9,148,2,1467,0)="""DATA"",136.5,10,0)"
^XMB(3.9,148,2,1468,0)="URINARY TRACT INFECTION"
^XMB(3.9,148,2,1469,0)="""DATA"",136.5,10,1,0)"
^XMB(3.9,148,2,1470,0)="^^22^22^3040318^"
^XMB(3.9,148,2,1471,0)="""DATA"",136.5,10,1,1,0)"
^XMB(3.9,148,2,1472,0)="NSQIP Definition (2004):"
^XMB(3.9,148,2,1473,0)="""DATA"",136.5,10,1,2,0)"
^XMB(3.9,148,2,1474,0)="Postoperative symptomatic urinary tract infection must meet one of the "
^XMB(3.9,148,2,1475,0)="""DATA"",136.5,10,1,3,0)"
^XMB(3.9,148,2,1476,0)="following TWO criteria:"
^XMB(3.9,148,2,1477,0)="""DATA"",136.5,10,1,4,0)"
^XMB(3.9,148,2,1478,0)=" "
^XMB(3.9,148,2,1479,0)="""DATA"",136.5,10,1,5,0)"
^XMB(3.9,148,2,1480,0)="1. One of the following: fever (>38 degrees C), urgency, frequency,"
^XMB(3.9,148,2,1481,0)="""DATA"",136.5,10,1,6,0)"
^XMB(3.9,148,2,1482,0)="   dysuria, or suprapubic tenderness AND a urine culture of >100,000"
^XMB(3.9,148,2,1483,0)="""DATA"",136.5,10,1,7,0)"
^XMB(3.9,148,2,1484,0)="   colonies/ml urine with no more than two species of organisms"
^XMB(3.9,148,2,1485,0)="""DATA"",136.5,10,1,8,0)"
^XMB(3.9,148,2,1486,0)=" "
^XMB(3.9,148,2,1487,0)="""DATA"",136.5,10,1,9,0)"
^XMB(3.9,148,2,1488,0)="OR"
^XMB(3.9,148,2,1489,0)="""DATA"",136.5,10,1,10,0)"
^XMB(3.9,148,2,1490,0)=" "
^XMB(3.9,148,2,1491,0)="""DATA"",136.5,10,1,11,0)"
^XMB(3.9,148,2,1492,0)="2. Two of the following: fever (>38 degrees C), urgency, frequency,"
^XMB(3.9,148,2,1493,0)="""DATA"",136.5,10,1,12,0)"
^XMB(3.9,148,2,1494,0)="   dysuria, or suprapubic tenderness AND any of the following:"
^XMB(3.9,148,2,1495,0)="""DATA"",136.5,10,1,13,0)"
^XMB(3.9,148,2,1496,0)="   - Dipstick test positive for leukocyte esterase and/or nitrate"
^XMB(3.9,148,2,1497,0)="""DATA"",136.5,10,1,14,0)"
^XMB(3.9,148,2,1498,0)="   - Pyuria (>10 WBCs/cc or >3 WBC/hpf of unspun urine)"
^XMB(3.9,148,2,1499,0)="""DATA"",136.5,10,1,15,0)"
^XMB(3.9,148,2,1500,0)="   - Organisms seen on Gram stain of unspun urine"
^XMB(3.9,148,2,1501,0)="""DATA"",136.5,10,1,16,0)"
^XMB(3.9,148,2,1502,0)="   - Two urine cultures with repeated isolation of the same uropathogen"
^XMB(3.9,148,2,1503,0)="""DATA"",136.5,10,1,17,0)"
^XMB(3.9,148,2,1504,0)="     with >100 colonies/ml urine in non-voided specimen"
^XMB(3.9,148,2,1505,0)="""DATA"",136.5,10,1,18,0)"
^XMB(3.9,148,2,1506,0)="   - Urine culture with <100,000 colonies/ml urine of single"
^XMB(3.9,148,2,1507,0)="""DATA"",136.5,10,1,19,0)"
^XMB(3.9,148,2,1508,0)="     uropathogen in patient being treated with appropriate"
^XMB(3.9,148,2,1509,0)="""DATA"",136.5,10,1,20,0)"
^XMB(3.9,148,2,1510,0)="     antimicrobial therapy"
^XMB(3.9,148,2,1511,0)="""DATA"",136.5,10,1,21,0)"
^XMB(3.9,148,2,1512,0)="   - Physician's diagnosis"
^XMB(3.9,148,2,1513,0)="""DATA"",136.5,10,1,22,0)"
^XMB(3.9,148,2,1514,0)="   - Physician institutes appropriate antimicrobial therapy"
^XMB(3.9,148,2,1515,0)="""DATA"",136.5,10,2,0)"
^XMB(3.9,148,2,1516,0)="^136.53^1^1"
^XMB(3.9,148,2,1517,0)="""DATA"",136.5,10,2,1,0)"
^XMB(3.9,148,2,1518,0)="UTI"
^XMB(3.9,148,2,1519,0)="""DATA"",136.5,11,0)"
^XMB(3.9,148,2,1520,0)="PULMONARY EDEMA^1"
^XMB(3.9,148,2,1521,0)="""DATA"",136.5,11,1,0)"
^XMB(3.9,148,2,1522,0)="^136.52^2^2^3040318^^^^"
^XMB(3.9,148,2,1523,0)="""DATA"",136.5,11,1,1,0)"
^XMB(3.9,148,2,1524,0)="Postoperative distress requiring treatment and diagnosis of CHF or"
^XMB(3.9,148,2,1525,0)="""DATA"",136.5,11,1,2,0)"
^XMB(3.9,148,2,1526,0)="pulmonary edema or Adult Respiratory Distress Syndrome."
^XMB(3.9,148,2,1527,0)="""DATA"",136.5,12,0)"
^XMB(3.9,148,2,1528,0)="STROKE/CVA"
^XMB(3.9,148,2,1529,0)="""DATA"",136.5,12,1,0)"
^XMB(3.9,148,2,1530,0)="^^10^10^3040617^"
^XMB(3.9,148,2,1531,0)="""DATA"",136.5,12,1,1,0)"
^XMB(3.9,148,2,1532,0)="NSQIP Definition (2004):"
^XMB(3.9,148,2,1533,0)="""DATA"",136.5,12,1,2,0)"
^XMB(3.9,148,2,1534,0)="Patient develops an embolic, thrombotic, or hemorrhagic vascular "
^XMB(3.9,148,2,1535,0)="""DATA"",136.5,12,1,3,0)"
^XMB(3.9,148,2,1536,0)="accident or stroke with motor, sensory, or cognitive dysfunction (e.g.,"
^XMB(3.9,148,2,1537,0)="""DATA"",136.5,12,1,4,0)"
^XMB(3.9,148,2,1538,0)="hemiplegia, hemiparesis, aphasia, sensory deficit, impaired memory) "
^XMB(3.9,148,2,1539,0)="""DATA"",136.5,12,1,5,0)"
^XMB(3.9,148,2,1540,0)="that persist for 24 or more hours."
^XMB(3.9,148,2,1541,0)="""DATA"",136.5,12,1,6,0)"
^XMB(3.9,148,2,1542,0)=" "
^XMB(3.9,148,2,1543,0)="""DATA"",136.5,12,1,7,0)"
^XMB(3.9,148,2,1544,0)="CICSP Definition (2004):"
^XMB(3.9,148,2,1545,0)="""DATA"",136.5,12,1,8,0)"
^XMB(3.9,148,2,1546,0)="Indicate if there was any new objective neurologic deficit lasting >72"
^XMB(3.9,148,2,1547,0)="""DATA"",136.5,12,1,9,0)"
^XMB(3.9,148,2,1548,0)="hours with onset immediately post-operatively or occurring within the"
^XMB(3.9,148,2,1549,0)="""DATA"",136.5,12,1,10,0)"
^XMB(3.9,148,2,1550,0)="30 days after surgery."
^XMB(3.9,148,2,1551,0)="""DATA"",136.5,12,2,0)"
^XMB(3.9,148,2,1552,0)="^136.53^2^2"
^XMB(3.9,148,2,1553,0)="""DATA"",136.5,12,2,1,0)"
^XMB(3.9,148,2,1554,0)="CEREBRAL VASCULAR ACCIDENT"
^XMB(3.9,148,2,1555,0)="""DATA"",136.5,12,2,2,0)"
^XMB(3.9,148,2,1556,0)="CVA"
^XMB(3.9,148,2,1557,0)="""DATA"",136.5,13,0)"
^XMB(3.9,148,2,1558,0)="COMA > 24 HOURS"
^XMB(3.9,148,2,1559,0)="""DATA"",136.5,13,1,0)"
^XMB(3.9,148,2,1560,0)="^^12^12^3060321^"
^XMB(3.9,148,2,1561,0)="""DATA"",136.5,13,1,1,0)"
^XMB(3.9,148,2,1562,0)="NSQIP Definition (2004):"
^XMB(3.9,148,2,1563,0)="""DATA"",136.5,13,1,2,0)"
^XMB(3.9,148,2,1564,0)="Patient is unconscious, postures to painful stimuli, or is "
^XMB(3.9,148,2,1565,0)="""DATA"",136.5,13,1,3,0)"
^XMB(3.9,148,2,1566,0)="unresponsive to all stimuli (exclude transient disorientation or"
^XMB(3.9,148,2,1567,0)="""DATA"",136.5,13,1,4,0)"
^XMB(3.9,148,2,1568,0)="psychosis) for greater than 24 hours during postoperative"
^XMB(3.9,148,2,1569,0)="""DATA"",136.5,13,1,5,0)"
^XMB(3.9,148,2,1570,0)="hospitalization. Do not include drug-induced coma (e.g. Propofol"
^XMB(3.9,148,2,1571,0)="""DATA"",136.5,13,1,6,0)"
^XMB(3.9,148,2,1572,0)="drips, etc.)"
^XMB(3.9,148,2,1573,0)="""DATA"",136.5,13,1,7,0)"
^XMB(3.9,148,2,1574,0)=" "
^XMB(3.9,148,2,1575,0)="""DATA"",136.5,13,1,8,0)"
^XMB(3.9,148,2,1576,0)="CICSP Definition (2006):"
^XMB(3.9,148,2,1577,0)="""DATA"",136.5,13,1,9,0)"
^XMB(3.9,148,2,1578,0)="Indicate if postoperatively within 30 days of surgery there was a "
^XMB(3.9,148,2,1579,0)="""DATA"",136.5,13,1,10,0)"
^XMB(3.9,148,2,1580,0)="significantly decreased level of consciousness (exclude transient "
^XMB(3.9,148,2,1581,0)="""DATA"",136.5,13,1,11,0)"
^XMB(3.9,148,2,1582,0)="disorientation or psychosis) for greater than or equal to 24 hours"
^XMB(3.9,148,2,1583,0)="""DATA"",136.5,13,1,12,0)"
^XMB(3.9,148,2,1584,0)="as evidenced by lack of response to deep, painful stimuli."
^XMB(3.9,148,2,1585,0)="""DATA"",136.5,14,0)"
^XMB(3.9,148,2,1586,0)="PERIPHERAL NERVE INJURY"
^XMB(3.9,148,2,1587,0)="""DATA"",136.5,14,1,0)"
^XMB(3.9,148,2,1588,0)="^^6^6^3040318^"
^XMB(3.9,148,2,1589,0)="""DATA"",136.5,14,1,1,0)"
^XMB(3.9,148,2,1590,0)="NSQIP Definition (2004):"
^XMB(3.9,148,2,1591,0)="""DATA"",136.5,14,1,2,0)"
^XMB(3.9,148,2,1592,0)="Peripheral nerve damage may result from damage to the nerve fibers, "
^XMB(3.9,148,2,1593,0)="""DATA"",136.5,14,1,3,0)"
^XMB(3.9,148,2,1594,0)="cell body, or myelin sheath during surgery. Peripheral nerve injuries "
^XMB(3.9,148,2,1595,0)="""DATA"",136.5,14,1,4,0)"
^XMB(3.9,148,2,1596,0)="(e.g., motor, sensory, and mixed motor/sensory injury) to the cervical "
^XMB(3.9,148,2,1597,0)="""DATA"",136.5,14,1,5,0)"
^XMB(3.9,148,2,1598,0)="plexus, brachial plexus, ulnar plexus, lumbar-sacral plexus (sciatic "
^XMB(3.9,148,2,1599,0)="""DATA"",136.5,14,1,6,0)"
^XMB(3.9,148,2,1600,0)="nerve), peroneal nerve, and/or the femoral nerve should be included."
^XMB(3.9,148,2,1601,0)="""DATA"",136.5,15,0)"
^XMB(3.9,148,2,1602,0)="BLEEDING/TRANSFUSIONS"
^XMB(3.9,148,2,1603,0)="""DATA"",136.5,15,1,0)"
^XMB(3.9,148,2,1604,0)="^^9^9^3040318^"
^XMB(3.9,148,2,1605,0)="""DATA"",136.5,15,1,1,0)"
^XMB(3.9,148,2,1606,0)="NSQIP Definition (2004):"
^XMB(3.9,148,2,1607,0)="""DATA"",136.5,15,1,2,0)"
^XMB(3.9,148,2,1608,0)="Any transfusion (including autologous) of packed red blood cells or "
^XMB(3.9,148,2,1609,0)="""DATA"",136.5,15,1,3,0)"
^XMB(3.9,148,2,1610,0)="whole blood given from the time the patient leaves the operating room "
^XMB(3.9,148,2,1611,0)="""DATA"",136.5,15,1,4,0)"
^XMB(3.9,148,2,1612,0)="up to and including 72 hours postoperatively. Report as an occurrence"
^XMB(3.9,148,2,1613,0)="""DATA"",136.5,15,1,5,0)"
^XMB(3.9,148,2,1614,0)="for five or more units of packed red blood cell in the postoperative"
^XMB(3.9,148,2,1615,0)="""DATA"",136.5,15,1,6,0)"
^XMB(3.9,148,2,1616,0)="period including hanging blood from the OR that is finished outside"
^XMB(3.9,148,2,1617,0)="""DATA"",136.5,15,1,7,0)"
^XMB(3.9,148,2,1618,0)="of the OR. If the patient receives shed blood, autologous blood, cell"
^XMB(3.9,148,2,1619,0)="""DATA"",136.5,15,1,8,0)"
^XMB(3.9,148,2,1620,0)="saver blood or pleurovac postoperatively, this is counted if greater"
^XMB(3.9,148,2,1621,0)="""DATA"",136.5,15,1,9,0)"
^XMB(3.9,148,2,1622,0)="than four units. The blood may be given for any reason."
^XMB(3.9,148,2,1623,0)="""DATA"",136.5,16,0)"
^XMB(3.9,148,2,1624,0)="CARDIAC ARREST REQUIRING CPR^^1"
^XMB(3.9,148,2,1625,0)="""DATA"",136.5,16,1,0)"
^XMB(3.9,148,2,1626,0)="^^12^12^3060119^"
^XMB(3.9,148,2,1627,0)="""DATA"",136.5,16,1,1,0)"
^XMB(3.9,148,2,1628,0)="NSQIP Definition (2006):"
^XMB(3.9,148,2,1629,0)="""DATA"",136.5,16,1,2,0)"
^XMB(3.9,148,2,1630,0)="The absence of cardiac rhythm or presence of chaotic cardiac rhythm "
^XMB(3.9,148,2,1631,0)="""DATA"",136.5,16,1,3,0)"
^XMB(3.9,148,2,1632,0)="that results in loss of consciousness requiring the initiation of any "
^XMB(3.9,148,2,1633,0)="""DATA"",136.5,16,1,4,0)"
^XMB(3.9,148,2,1634,0)="component of basic and/or advanced cardiac life support. Patients with "
^XMB(3.9,148,2,1635,0)="""DATA"",136.5,16,1,5,0)"
^XMB(3.9,148,2,1636,0)="AICDs that fire but the patient does not lose consciousness should be "
^XMB(3.9,148,2,1637,0)="""DATA"",136.5,16,1,6,0)"
^XMB(3.9,148,2,1638,0)="excluded."
^XMB(3.9,148,2,1639,0)="""DATA"",136.5,16,1,7,0)"
^XMB(3.9,148,2,1640,0)=" "
^XMB(3.9,148,2,1641,0)="""DATA"",136.5,16,1,8,0)"
^XMB(3.9,148,2,1642,0)="CICSP Definition (2004):"
^XMB(3.9,148,2,1643,0)="""DATA"",136.5,16,1,9,0)"
^XMB(3.9,148,2,1644,0)="Indicate if there was any cardiac arrest requiring external or open "
^XMB(3.9,148,2,1645,0)="""DATA"",136.5,16,1,10,0)"
^XMB(3.9,148,2,1646,0)="cardiopulmonary resuscitation (CPR) occurring in the operating room, "
^XMB(3.9,148,2,1647,0)="""DATA"",136.5,16,1,11,0)"
^XMB(3.9,148,2,1648,0)="ICU, ward, or out-of-hospital after the chest had been completely "
^XMB(3.9,148,2,1649,0)="""DATA"",136.5,16,1,12,0)"
^XMB(3.9,148,2,1650,0)="closed and within 30 days of surgery."
^XMB(3.9,148,2,1651,0)="""DATA"",136.5,17,0)"
^XMB(3.9,148,2,1652,0)="MYOCARDIAL INFARCTION^^1"
^XMB(3.9,148,2,1653,0)="""DATA"",136.5,17,1,0)"
^XMB(3.9,148,2,1654,0)="^^33^33^3040617^"
^XMB(3.9,148,2,1655,0)="""DATA"",136.5,17,1,1,0)"
^XMB(3.9,148,2,1656,0)="NSQIP Definition (2004):"
^XMB(3.9,148,2,1657,0)="""DATA"",136.5,17,1,2,0)"
^XMB(3.9,148,2,1658,0)="A new transmural acute myocardial infarction occurring during surgery "
^XMB(3.9,148,2,1659,0)="""DATA"",136.5,17,1,3,0)"
^XMB(3.9,148,2,1660,0)="or within 30 days following surgery as manifested by new Q-waves on "
^XMB(3.9,148,2,1661,0)="""DATA"",136.5,17,1,4,0)"
^XMB(3.9,148,2,1662,0)="ECG. Non-Q-wave infarctions should be entered under ""OTHER""."
^XMB(3.9,148,2,1663,0)="""DATA"",136.5,17,1,5,0)"
^XMB(3.9,148,2,1664,0)=" "
^XMB(3.9,148,2,1665,0)="""DATA"",136.5,17,1,6,0)"
^XMB(3.9,148,2,1666,0)="CICSP Definition (2004):"
^XMB(3.9,148,2,1667,0)="""DATA"",136.5,17,1,7,0)"
^XMB(3.9,148,2,1668,0)="Indicate the presence of a peri-operative MI as documented by the "
^XMB(3.9,148,2,1669,0)="""DATA"",136.5,17,1,8,0)"
^XMB(3.9,148,2,1670,0)="following criteria: "
^XMB(3.9,148,2,1671,0)="""DATA"",136.5,17,1,9,0)"
^XMB(3.9,148,2,1672,0)=" 0-24 Hours Post-Op "
^XMB(3.9,148,2,1673,0)="""DATA"",136.5,17,1,10,0)"
^XMB(3.9,148,2,1674,0)="  The CK-MB (or CK if MB not available) must be greater than or equal"
^XMB(3.9,148,2,1675,0)="""DATA"",136.5,17,1,11,0)"
^XMB(3.9,148,2,1676,0)="  to 5-times the upper limit of normal, with or without new Q waves"
^XMB(3.9,148,2,1677,0)="""DATA"",136.5,17,1,12,0)"
^XMB(3.9,148,2,1678,0)="  present in two or more contiguous ECG leads.  No symptoms required."
^XMB(3.9,148,2,1679,0)="""DATA"",136.5,17,1,13,0)"
^XMB(3.9,148,2,1680,0)="  "
^XMB(3.9,148,2,1681,0)="""DATA"",136.5,17,1,14,0)"
^XMB(3.9,148,2,1682,0)=" >24 Hours Post-Op "
^XMB(3.9,148,2,1683,0)="""DATA"",136.5,17,1,15,0)"
^XMB(3.9,148,2,1684,0)="  Indicate the presence of a peri-operative MI (> 24 hours post-op) as"
^XMB(3.9,148,2,1685,0)="""DATA"",136.5,17,1,16,0)"
^XMB(3.9,148,2,1686,0)="  documented by at least one of the following criteria: "
^XMB(3.9,148,2,1687,0)="""DATA"",136.5,17,1,17,0)"
^XMB(3.9,148,2,1688,0)="  1. Evolutionary ST- segment elevations "
^XMB(3.9,148,2,1689,0)="""DATA"",136.5,17,1,18,0)"
^XMB(3.9,148,2,1690,0)="  2. Development of new Q-waves in two or more contiguous ECG leads "
^XMB(3.9,148,2,1691,0)="""DATA"",136.5,17,1,19,0)"
^XMB(3.9,148,2,1692,0)="  3. New or presumably new LBBB pattern on the ECG"
^XMB(3.9,148,2,1693,0)="""DATA"",136.5,17,1,20,0)"
^XMB(3.9,148,2,1694,0)="  4. The CK-MB (or CK if MB not available) must be greater than or"
^XMB(3.9,148,2,1695,0)="""DATA"",136.5,17,1,21,0)"
^XMB(3.9,148,2,1696,0)="     equal to 3 times the upper limit of normal."
^XMB(3.9,148,2,1697,0)="""DATA"",136.5,17,1,22,0)"
^XMB(3.9,148,2,1698,0)="  "
^XMB(3.9,148,2,1699,0)="""DATA"",136.5,17,1,23,0)"
^XMB(3.9,148,2,1700,0)="Because normal limits of certain blood tests may vary, please check"
^XMB(3.9,148,2,1701,0)="""DATA"",136.5,17,1,24,0)"
^XMB(3.9,148,2,1702,0)="with your lab for normal limits for CK-MB and total CK. Defining"
^XMB(3.9,148,2,1703,0)="""DATA"",136.5,17,1,25,0)"
^XMB(3.9,148,2,1704,0)="Reference Control Values (Upper Limit of Normal): Reference values must"
^XMB(3.9,148,2,1705,0)="""DATA"",136.5,17,1,26,0)"
^XMB(3.9,148,2,1706,0)="be determined in each laboratory by studies using specific assays with"
^XMB(3.9,148,2,1707,0)="""DATA"",136.5,17,1,27,0)"
^XMB(3.9,148,2,1708,0)="appropriate quality control, as reported in peer-reviewed journals."
^XMB(3.9,148,2,1709,0)="""DATA"",136.5,17,1,28,0)"
^XMB(3.9,148,2,1710,0)="Acceptable imprecision (coefficient of variation) at the 99th"
^XMB(3.9,148,2,1711,0)="""DATA"",136.5,17,1,29,0)"
^XMB(3.9,148,2,1712,0)="percentile for each assay should be defined as < or = to 10%. Each"
^XMB(3.9,148,2,1713,0)="""DATA"",136.5,17,1,30,0)"
^XMB(3.9,148,2,1714,0)="individual laboratory should confirm the range of reference values in"
^XMB(3.9,148,2,1715,0)="""DATA"",136.5,17,1,31,0)"
^XMB(3.9,148,2,1716,0)="their specific setting. This element should not be coded as an adverse"
^XMB(3.9,148,2,1717,0)="""DATA"",136.5,17,1,32,0)"
^XMB(3.9,148,2,1718,0)="event for evolving MI's unless their enzymes peak, fall, and then have"
^XMB(3.9,148,2,1719,0)="""DATA"",136.5,17,1,33,0)"
^XMB(3.9,148,2,1720,0)="a second peak."
^XMB(3.9,148,2,1721,0)="""DATA"",136.5,18,0)"
^XMB(3.9,148,2,1722,0)="ILEUS/BOWEL OBSTRUCTION^1"
^XMB(3.9,148,2,1723,0)="""DATA"",136.5,18,1,0)"
^XMB(3.9,148,2,1724,0)="^136.52^6^6^3040318^^^^"
^XMB(3.9,148,2,1725,0)="""DATA"",136.5,18,1,1,0)"
^XMB(3.9,148,2,1726,0)="This category includes prolonged ileus or bowel obstruction.  Ileus is"
^XMB(3.9,148,2,1727,0)="""DATA"",136.5,18,1,2,0)"
^XMB(3.9,148,2,1728,0)="obstruction of the intestines from a variety of causes including"
^XMB(3.9,148,2,1729,0)="""DATA"",136.5,18,1,3,0)"
^XMB(3.9,148,2,1730,0)="mechanical obstruction, peritonitis, adhesions, or post-surgically as a"
^XMB(3.9,148,2,1731,0)="""DATA"",136.5,18,1,4,0)"
^XMB(3.9,148,2,1732,0)="result of functional dysmotility by the bowel.  Bowel obstruction is any"
^XMB(3.9,148,2,1733,0)="""DATA"",136.5,18,1,5,0)"
^XMB(3.9,148,2,1734,0)="hindrance to the passage of the intestinal contents.  Prolonged ileus or"
^XMB(3.9,148,2,1735,0)="""DATA"",136.5,18,1,6,0)"
^XMB(3.9,148,2,1736,0)="obstruction is defined as longer than 5 days postoperatively."
^XMB(3.9,148,2,1737,0)="""DATA"",136.5,19,0)"
^XMB(3.9,148,2,1738,0)="GRAFT/PROSTHESIS/FLAP FAILURE"
^XMB(3.9,148,2,1739,0)="""DATA"",136.5,19,1,0)"
^XMB(3.9,148,2,1740,0)="^^4^4^3040318^"
^XMB(3.9,148,2,1741,0)="""DATA"",136.5,19,1,1,0)"
^XMB(3.9,148,2,1742,0)="NSQIP Definition (2004):"
^XMB(3.9,148,2,1743,0)="""DATA"",136.5,19,1,2,0)"
^XMB(3.9,148,2,1744,0)="Mechanical failure of an extracardiac graft/or prosthesis including "
^XMB(3.9,148,2,1745,0)="""DATA"",136.5,19,1,3,0)"
^XMB(3.9,148,2,1746,0)="myocutaneous flaps and skin grafts requiring return to the operating "
^XMB(3.9,148,2,1747,0)="""DATA"",136.5,19,1,4,0)"
^XMB(3.9,148,2,1748,0)="room, interventional radiology, or a balloon angioplasty."
^XMB(3.9,148,2,1749,0)="""DATA"",136.5,20,0)"
^XMB(3.9,148,2,1750,0)="DVT/THROMBOPHLEBITIS"
^XMB(3.9,148,2,1751,0)="""DATA"",136.5,20,1,0)"
^XMB(3.9,148,2,1752,0)="^^6^6^3040318^"
^XMB(3.9,148,2,1753,0)="""DATA"",136.5,20,1,1,0)"
^XMB(3.9,148,2,1754,0)="NSQIP Definition (2004):"
^XMB(3.9,148,2,1755,0)="""DATA"",136.5,20,1,2,0)"
^XMB(3.9,148,2,1756,0)="The identification of a new blood clot or thrombus within the venous "
^XMB(3.9,148,2,1757,0)="""DATA"",136.5,20,1,3,0)"
^XMB(3.9,148,2,1758,0)="system, which may be coupled with inflammation. This diagnosis is "
^XMB(3.9,148,2,1759,0)="""DATA"",136.5,20,1,4,0)"
^XMB(3.9,148,2,1760,0)="confirmed by a duplex, venogram or CT scan. The patient must be treated"
^XMB(3.9,148,2,1761,0)="""DATA"",136.5,20,1,5,0)"
^XMB(3.9,148,2,1762,0)="with anticoagulation therapy, and/or placement of a vena cava filter or"
^XMB(3.9,148,2,1763,0)="""DATA"",136.5,20,1,6,0)"
^XMB(3.9,148,2,1764,0)="clipping of the vena cava."
^XMB(3.9,148,2,1765,0)="""DATA"",136.5,20,2,0)"
^XMB(3.9,148,2,1766,0)="^136.53^2^2"
^XMB(3.9,148,2,1767,0)="""DATA"",136.5,20,2,1,0)"
^XMB(3.9,148,2,1768,0)="DEEP VEIN THROMBOSIS/THROMBOPHLEBITIS"
^XMB(3.9,148,2,1769,0)="""DATA"",136.5,20,2,2,0)"
^XMB(3.9,148,2,1770,0)="THROMBOPHLEBITIS"
^XMB(3.9,148,2,1771,0)="""DATA"",136.5,21,0)"
^XMB(3.9,148,2,1772,0)="OTHER OCCURRENCE^^1"
^XMB(3.9,148,2,1773,0)="""DATA"",136.5,21,1,0)"
^XMB(3.9,148,2,1774,0)="^^4^4^3040318^"
^XMB(3.9,148,2,1775,0)="""DATA"",136.5,21,1,1,0)"
^XMB(3.9,148,2,1776,0)="NSQIP Definition (2004):"
^XMB(3.9,148,2,1777,0)="""DATA"",136.5,21,1,2,0)"
^XMB(3.9,148,2,1778,0)="Enter any other surgical occurrences which you feel to be significant"
^XMB(3.9,148,2,1779,0)="""DATA"",136.5,21,1,3,0)"
^XMB(3.9,148,2,1780,0)="and that are not covered by the predefined occurrence categories. This "
^XMB(3.9,148,2,1781,0)="""DATA"",136.5,21,1,4,0)"
^XMB(3.9,148,2,1782,0)="occurrence category should have an accompanying ICD Diagnosis code."
^XMB(3.9,148,2,1783,0)="""DATA"",136.5,22,0)"
^XMB(3.9,148,2,1784,0)="WOUND DISRUPTION"
^XMB(3.9,148,2,1785,0)="""DATA"",136.5,22,1,0)"
^XMB(3.9,148,2,1786,0)="^^3^3^3040318^"
^XMB(3.9,148,2,1787,0)="""DATA"",136.5,22,1,1,0)"
^XMB(3.9,148,2,1788,0)="NSQIP Definition (2004):"
^XMB(3.9,148,2,1789,0)="""DATA"",136.5,22,1,2,0)"
^XMB(3.9,148,2,1790,0)="Separation of the layers of a surgical wound, which may be partial or "
^XMB(3.9,148,2,1791,0)="""DATA"",136.5,22,1,3,0)"
^XMB(3.9,148,2,1792,0)="complete, with disruption of the fascia. "
^XMB(3.9,148,2,1793,0)="""DATA"",136.5,23,0)"
^XMB(3.9,148,2,1794,0)="ENDOCARDITIS"
^XMB(3.9,148,2,1795,0)="""DATA"",136.5,23,1,0)"
^XMB(3.9,148,2,1796,0)="^136.52^9^9^3040721^^^"
^XMB(3.9,148,2,1797,0)="""DATA"",136.5,23,1,1,0)"
^XMB(3.9,148,2,1798,0)="CICSP Definition (2004):"
^XMB(3.9,148,2,1799,0)="""DATA"",136.5,23,1,2,0)"
^XMB(3.9,148,2,1800,0)="Indicate if the chart documents that active endocarditis was present "
^XMB(3.9,148,2,1801,0)="""DATA"",136.5,23,1,3,0)"
^XMB(3.9,148,2,1802,0)="within 30 days postoperatively. Endocarditis is defined as any "
^XMB(3.9,148,2,1803,0)="""DATA"",136.5,23,1,4,0)"
^XMB(3.9,148,2,1804,0)="postoperative intracardiac infection (usually on a valve) documented "
^XMB(3.9,148,2,1805,0)="""DATA"",136.5,23,1,5,0)"
^XMB(3.9,148,2,1806,0)="by two or more positive blood cultures with the same organism, and/or "
^XMB(3.9,148,2,1807,0)="""DATA"",136.5,23,1,6,0)"
^XMB(3.9,148,2,1808,0)="development of vegetations and valve destruction seen by echo or "
^XMB(3.9,148,2,1809,0)="""DATA"",136.5,23,1,7,0)"
^XMB(3.9,148,2,1810,0)="repeat surgery, and/or histologic evidence of infection at repeat "
^XMB(3.9,148,2,1811,0)="""DATA"",136.5,23,1,8,0)"
^XMB(3.9,148,2,1812,0)="surgery or autopsy. Patients with preoperative endocarditis who have "
^XMB(3.9,148,2,1813,0)="""DATA"",136.5,23,1,9,0)"
^XMB(3.9,148,2,1814,0)="the above evidence of persistent infection should be included."
^XMB(3.9,148,2,1815,0)="""DATA"",136.5,24,0)"
^XMB(3.9,148,2,1816,0)="LOW CARDIAC OUTPUT > 6 HOURS"
^XMB(3.9,148,2,1817,0)="""DATA"",136.5,24,1,0)"
^XMB(3.9,148,2,1818,0)="^136.52^4^4^3040318^^^^"
^XMB(3.9,148,2,1819,0)="""DATA"",136.5,24,1,1,0)"
^XMB(3.9,148,2,1820,0)="This includes patient's that have had a postoperative cardiac index of"
^XMB(3.9,148,2,1821,0)="""DATA"",136.5,24,1,2,0)"
^XMB(3.9,148,2,1822,0)="less than 2.0 L/min/M2 and/or peripheral manifestations (e.g. oliguria) of"
^XMB(3.9,148,2,1823,0)="""DATA"",136.5,24,1,3,0)"
^XMB(3.9,148,2,1824,0)="low cardiac output present for 6 or more hours following surgery requiring"
^XMB(3.9,148,2,1825,0)="""DATA"",136.5,24,1,4,0)"
^XMB(3.9,148,2,1826,0)="inotropic and/or intra-aortic ballon pump support."
^XMB(3.9,148,2,1827,0)="""DATA"",136.5,25,0)"
^XMB(3.9,148,2,1828,0)="MEDIASTINITIS"
^XMB(3.9,148,2,1829,0)="""DATA"",136.5,25,1,0)"
^XMB(3.9,148,2,1830,0)="^^4^4^3040809^"
^XMB(3.9,148,2,1831,0)="""DATA"",136.5,25,1,1,0)"
^XMB(3.9,148,2,1832,0)="CICSP Definition (2004):"
^XMB(3.9,148,2,1833,0)="""DATA"",136.5,25,1,2,0)"
^XMB(3.9,148,2,1834,0)="Indicate if the patient developed a bacterial infection involving the "
^XMB(3.9,148,2,1835,0)="""DATA"",136.5,25,1,3,0)"
^XMB(3.9,148,2,1836,0)="sternum or deep to the sternum requiring drainage and anti-microbial "
^XMB(3.9,148,2,1837,0)="""DATA"",136.5,25,1,4,0)"
^XMB(3.9,148,2,1838,0)="therapy diagnosed within 30 days after surgery."
^XMB(3.9,148,2,1839,0)="""DATA"",136.5,26,0)"
^XMB(3.9,148,2,1840,0)="REOPERATION FOR BLEEDING"
^XMB(3.9,148,2,1841,0)="""DATA"",136.5,26,1,0)"
^XMB(3.9,148,2,1842,0)="^^3^3^3040809^"
^XMB(3.9,148,2,1843,0)="""DATA"",136.5,26,1,1,0)"
^XMB(3.9,148,2,1844,0)="CICSP Definition (2004):"
^XMB(3.9,148,2,1845,0)="""DATA"",136.5,26,1,2,0)"
^XMB(3.9,148,2,1846,0)="Indicate if there was any re-exploration of the thorax for suspected "
^XMB(3.9,148,2,1847,0)="""DATA"",136.5,26,1,3,0)"
^XMB(3.9,148,2,1848,0)="bleeding within 30 days of surgery."
^XMB(3.9,148,2,1849,0)="""DATA"",136.5,27,0)"
^XMB(3.9,148,2,1850,0)="REPEAT CARDIAC SURGICAL PROCEDURE"
^XMB(3.9,148,2,1851,0)="""DATA"",136.5,27,1,0)"
^XMB(3.9,148,2,1852,0)="^136.52^17^17^3060302^^^"
^XMB(3.9,148,2,1853,0)="""DATA"",136.5,27,1,1,0)"
^XMB(3.9,148,2,1854,0)="CICSP Definition (2006):"
^XMB(3.9,148,2,1855,0)="""DATA"",136.5,27,1,2,0)"
^XMB(3.9,148,2,1856,0)="Indicate the CPB status if the patient underwent a repeat operation on "
^XMB(3.9,148,2,1857,0)="""DATA"",136.5,27,1,3,0)"
^XMB(3.9,148,2,1858,0)="the heart after the patient had left the operating room from the "
^XMB(3.9,148,2,1859,0)="""DATA"",136.5,27,1,4,0)"
^XMB(3.9,148,2,1860,0)="initial operation and within current hospitalization or within 30 days"
^XMB(3.9,148,2,1861,0)="""DATA"",136.5,27,1,5,0)"
^XMB(3.9,148,2,1862,0)="of the initial operation. Use the same criteria to define a cardiac"
^XMB(3.9,148,2,1863,0)="""DATA"",136.5,27,1,6,0)"
^XMB(3.9,148,2,1864,0)="surgery as listed on page 1 of the CICSP Instructions/Definitions. "
^XMB(3.9,148,2,1865,0)="""DATA"",136.5,27,1,7,0)"
^XMB(3.9,148,2,1866,0)="(Do NOT submit a separate second form for this second cardiac "
^XMB(3.9,148,2,1867,0)="""DATA"",136.5,27,1,8,0)"
^XMB(3.9,148,2,1868,0)="procedure if it occurs within 30 days post-operatively.) Indicate "
^XMB(3.9,148,2,1869,0)="""DATA"",136.5,27,1,9,0)"
^XMB(3.9,148,2,1870,0)="the one appropriate response:"
^XMB(3.9,148,2,1871,0)="""DATA"",136.5,27,1,10,0)"
^XMB(3.9,148,2,1872,0)=" "
^XMB(3.9,148,2,1873,0)="""DATA"",136.5,27,1,11,0)"
^XMB(3.9,148,2,1874,0)="None       - no repeat cardiac surgical procedure post-operatively "
^XMB(3.9,148,2,1875,0)="""DATA"",136.5,27,1,12,0)"
^XMB(3.9,148,2,1876,0)="             during index hospitalization or within 30 days of initial"
^XMB(3.9,148,2,1877,0)="""DATA"",136.5,27,1,13,0)"
^XMB(3.9,148,2,1878,0)="             operation."
^XMB(3.9,148,2,1879,0)="""DATA"",136.5,27,1,14,0)"
^XMB(3.9,148,2,1880,0)="On-bypass  - patient underwent a repeat cardiac surgical procedure "
^XMB(3.9,148,2,1881,0)="""DATA"",136.5,27,1,15,0)"
^XMB(3.9,148,2,1882,0)="             utilizing CPB."
^XMB(3.9,148,2,1883,0)="""DATA"",136.5,27,1,16,0)"
^XMB(3.9,148,2,1884,0)="Off-bypass - patient underwent a repeat cardiac surgical procedure not "
^XMB(3.9,148,2,1885,0)="""DATA"",136.5,27,1,17,0)"
^XMB(3.9,148,2,1886,0)="             utilizing CPB."
^XMB(3.9,148,2,1887,0)="""DATA"",136.5,28,0)"
^XMB(3.9,148,2,1888,0)="STROKE^1"
^XMB(3.9,148,2,1889,0)="""DATA"",136.5,28,1,0)"
^XMB(3.9,148,2,1890,0)="^136.52^3^3^3040202^^^^"
^XMB(3.9,148,2,1891,0)="""DATA"",136.5,28,1,1,0)"
^XMB(3.9,148,2,1892,0)="This includes any new objective neurologic deficit lasting 30 minutes or"
^XMB(3.9,148,2,1893,0)="""DATA"",136.5,28,1,2,0)"
^XMB(3.9,148,2,1894,0)="more with onset intraoperatively or occurring within 30 days following"
^XMB(3.9,148,2,1895,0)="""DATA"",136.5,28,1,3,0)"
^XMB(3.9,148,2,1896,0)="surgery."
^XMB(3.9,148,2,1897,0)="""DATA"",136.5,29,0)"
^XMB(3.9,148,2,1898,0)="OTHER RESPIRATORY OCCURRENCE"
^XMB(3.9,148,2,1899,0)="""DATA"",136.5,29,1,0)"
^XMB(3.9,148,2,1900,0)="^^5^5^3040318^"
^XMB(3.9,148,2,1901,0)="""DATA"",136.5,29,1,1,0)"
^XMB(3.9,148,2,1902,0)="NSQIP Definition (2004):"
^XMB(3.9,148,2,1903,0)="""DATA"",136.5,29,1,2,0)"
^XMB(3.9,148,2,1904,0)="Enter any other respiratory occurrences that you feel to be significant"
^XMB(3.9,148,2,1905,0)="""DATA"",136.5,29,1,3,0)"
^XMB(3.9,148,2,1906,0)="and that are not covered by the predefined respiratory occurrence"
^XMB(3.9,148,2,1907,0)="""DATA"",136.5,29,1,4,0)"
^XMB(3.9,148,2,1908,0)="categories. This occurrence category should have an accompanying ICD "
^XMB(3.9,148,2,1909,0)="""DATA"",136.5,29,1,5,0)"
^XMB(3.9,148,2,1910,0)="Diagnosis code."
^XMB(3.9,148,2,1911,0)="""DATA"",136.5,30,0)"
^XMB(3.9,148,2,1912,0)="OTHER CNS OCCURRENCE"
^XMB(3.9,148,2,1913,0)="""DATA"",136.5,30,1,0)"
^XMB(3.9,148,2,1914,0)="^^5^5^3040318^"
^XMB(3.9,148,2,1915,0)="""DATA"",136.5,30,1,1,0)"
^XMB(3.9,148,2,1916,0)="NSQIP Definition (2004):"
^XMB(3.9,148,2,1917,0)="""DATA"",136.5,30,1,2,0)"
^XMB(3.9,148,2,1918,0)="Enter any other neurologic related occurrences, which you feel to be "
^XMB(3.9,148,2,1919,0)="""DATA"",136.5,30,1,3,0)"
^XMB(3.9,148,2,1920,0)="significant and that are not covered by the predefined CNS occurrence"
^XMB(3.9,148,2,1921,0)="""DATA"",136.5,30,1,4,0)"
^XMB(3.9,148,2,1922,0)="categories. This occurrence category should have an accompanying ICD "
^XMB(3.9,148,2,1923,0)="""DATA"",136.5,30,1,5,0)"
^XMB(3.9,148,2,1924,0)="Diagnosis code."
^XMB(3.9,148,2,1925,0)="""DATA"",136.5,31,0)"
^XMB(3.9,148,2,1926,0)="OTHER URINARY TRACT OCCURRENCE"
^XMB(3.9,148,2,1927,0)="""DATA"",136.5,31,1,0)"
^XMB(3.9,148,2,1928,0)="^^5^5^3040318^"
^XMB(3.9,148,2,1929,0)="""DATA"",136.5,31,1,1,0)"
^XMB(3.9,148,2,1930,0)="NSQIP Definition (2004):"
^XMB(3.9,148,2,1931,0)="""DATA"",136.5,31,1,2,0)"
^XMB(3.9,148,2,1932,0)="Enter any other urinary occurrences which you feel to be significant "
^XMB(3.9,148,2,1933,0)="""DATA"",136.5,31,1,3,0)"
^XMB(3.9,148,2,1934,0)="and that are not covered by the predefined urinary tract occurrence"
^XMB(3.9,148,2,1935,0)="""DATA"",136.5,31,1,4,0)"
^XMB(3.9,148,2,1936,0)="categories. This occurrence category should have an accompanying ICD "
^XMB(3.9,148,2,1937,0)="""DATA"",136.5,31,1,5,0)"
^XMB(3.9,148,2,1938,0)="Diagnosis code."
^XMB(3.9,148,2,1939,0)="""DATA"",136.5,32,0)"
^XMB(3.9,148,2,1940,0)="OTHER CARDIAC OCCURRENCE"
^XMB(3.9,148,2,1941,0)="""DATA"",136.5,32,1,0)"
^XMB(3.9,148,2,1942,0)="^^5^5^3040318^"
^XMB(3.9,148,2,1943,0)="""DATA"",136.5,32,1,1,0)"
^XMB(3.9,148,2,1944,0)="NSQIP Definition (2004):"
^XMB(3.9,148,2,1945,0)="""DATA"",136.5,32,1,2,0)"
^XMB(3.9,148,2,1946,0)="Enter any other cardiac related surgical occurrences which you feel to "
^XMB(3.9,148,2,1947,0)="""DATA"",136.5,32,1,3,0)"
^XMB(3.9,148,2,1948,0)="be significant and that are not covered by the predefined cardiac"
^XMB(3.9,148,2,1949,0)="""DATA"",136.5,32,1,4,0)"
^XMB(3.9,148,2,1950,0)="occurrence categories. This occurrence category should have an "
^XMB(3.9,148,2,1951,0)="""DATA"",136.5,32,1,5,0)"
^XMB(3.9,148,2,1952,0)="accompanying ICD Diagnosis code."
^XMB(3.9,148,2,1953,0)="""DATA"",136.5,33,0)"
^XMB(3.9,148,2,1954,0)="TRACHEOSTOMY^^^Y"
^XMB(3.9,148,2,1955,0)="""DATA"",136.5,33,1,0)"
^XMB(3.9,148,2,1956,0)="^^4^4^3040809^"
^XMB(3.9,148,2,1957,0)="""DATA"",136.5,33,1,1,0)"
^XMB(3.9,148,2,1958,0)="CICSP Definition (2004):"
^XMB(3.9,148,2,1959,0)="""DATA"",136.5,33,1,2,0)"
^XMB(3.9,148,2,1960,0)="Indicate if a procedure to cut into the trachea and insert a tube to "
^XMB(3.9,148,2,1961,0)="""DATA"",136.5,33,1,3,0)"
^XMB(3.9,148,2,1962,0)="overcome tracheal obstruction or to facilitate extended mechanical "
^XMB(3.9,148,2,1963,0)="""DATA"",136.5,33,1,4,0)"
^XMB(3.9,148,2,1964,0)="ventilation was performed within 30 days of surgery."
^XMB(3.9,148,2,1965,0)="""DATA"",136.5,34,0)"
^XMB(3.9,148,2,1966,0)="NEW MECHANICAL CIRCULATORY SUPPORT^^1^Y"
^XMB(3.9,148,2,1967,0)="""DATA"",136.5,34,1,0)"
^XMB(3.9,148,2,1968,0)="^^20^20^3040721^"
^XMB(3.9,148,2,1969,0)="""DATA"",136.5,34,1,1,0)"
^XMB(3.9,148,2,1970,0)="CICSP Definition (2004):"
^XMB(3.9,148,2,1971,0)="""DATA"",136.5,34,1,2,0)"
^XMB(3.9,148,2,1972,0)="Indicate if the patient left the operating room suite with or required"
^XMB(3.9,148,2,1973,0)="""DATA"",136.5,34,1,3,0)"
^XMB(3.9,148,2,1974,0)="post-op placement of a new IABP, ECMO, or VAD for circulatory support"
^XMB(3.9,148,2,1975,0)="""DATA"",136.5,34,1,4,0)"
^XMB(3.9,148,2,1976,0)="within 30 days perioperatively. A ""yes"" response is appropriate even if"
^XMB(3.9,148,2,1977,0)="""DATA"",136.5,34,1,5,0)"
^XMB(3.9,148,2,1978,0)="the pump is only used for a short time perioperatively. A ""yes"""
^XMB(3.9,148,2,1979,0)="""DATA"",136.5,34,1,6,0)"
^XMB(3.9,148,2,1980,0)="response, however, is only correct if the patient did not enter the"
^XMB(3.9,148,2,1981,0)="""DATA"",136.5,34,1,7,0)"
^XMB(3.9,148,2,1982,0)="operating room with this same mechanical circulatory support, and the"
^XMB(3.9,148,2,1983,0)="""DATA"",136.5,34,1,8,0)"
^XMB(3.9,148,2,1984,0)="device insertion occurred AFTER the induction of anesthesia."
^XMB(3.9,148,2,1985,0)="""DATA"",136.5,34,1,9,0)"
^XMB(3.9,148,2,1986,0)=" "
^XMB(3.9,148,2,1987,0)="""DATA"",136.5,34,1,10,0)"
^XMB(3.9,148,2,1988,0)="If patient had/required new mechanical circulatory support, indicate "
^XMB(3.9,148,2,1989,0)="""DATA"",136.5,34,1,11,0)"
^XMB(3.9,148,2,1990,0)="whether the placement occurred intraoperatively or postoperatively.  "
^XMB(3.9,148,2,1991,0)="""DATA"",136.5,34,1,12,0)"
^XMB(3.9,148,2,1992,0)="Indicate the one appropriate response:"
^XMB(3.9,148,2,1993,0)="""DATA"",136.5,34,1,13,0)"
^XMB(3.9,148,2,1994,0)=" - intraoperatively: occurring while patient was in the operating room."
^XMB(3.9,148,2,1995,0)="""DATA"",136.5,34,1,14,0)"
^XMB(3.9,148,2,1996,0)=" - postoperatively:  occurring after patient left the operating room."
^XMB(3.9,148,2,1997,0)="""DATA"",136.5,34,1,15,0)"
^XMB(3.9,148,2,1998,0)=" "
^XMB(3.9,148,2,1999,0)="""DATA"",136.5,34,1,16,0)"
^XMB(3.9,148,2,2000,0)="A ""no"" response is appropriate if the circulatory support device was "
^XMB(3.9,148,2,2001,0)="""DATA"",136.5,34,1,17,0)"
^XMB(3.9,148,2,2002,0)="placed as a prophylaxis before the induction of anesthesia; however, if"
^XMB(3.9,148,2,2003,0)="""DATA"",136.5,34,1,18,0)"
^XMB(3.9,148,2,2004,0)="it was placed for any reason after the induction of anesthesia, then a"
^XMB(3.9,148,2,2005,0)="""DATA"",136.5,34,1,19,0)"
^XMB(3.9,148,2,2006,0)="""yes"" response is appropriate. A ""no"" response is also appropriate if"
^XMB(3.9,148,2,2007,0)="""DATA"",136.5,34,1,20,0)"
^XMB(3.9,148,2,2008,0)="the primary operation is to insert a ventricular assist device."
^XMB(3.9,148,2,2009,0)="""DATA"",136.5,35,0)"
^XMB(3.9,148,2,2010,0)="ORGAN/SPACE SSI"
^XMB(3.9,148,2,2011,0)="""DATA"",136.5,35,1,0)"
^XMB(3.9,148,2,2012,0)="^^32^32^3040318^"
^XMB(3.9,148,2,2013,0)="""DATA"",136.5,35,1,1,0)"
^XMB(3.9,148,2,2014,0)="NSQIP Definition (2004):"
^XMB(3.9,148,2,2015,0)="""DATA"",136.5,35,1,2,0)"
^XMB(3.9,148,2,2016,0)="Organ/Space SSI is an infection that occurs within 30 days after the "
^XMB(3.9,148,2,2017,0)="""DATA"",136.5,35,1,3,0)"
^XMB(3.9,148,2,2018,0)="operation and the infection appears to be related to the operation and "
^XMB(3.9,148,2,2019,0)="""DATA"",136.5,35,1,4,0)"
^XMB(3.9,148,2,2020,0)="the infection involves any part of the anatomy (e.g., organs or spaces), "
^XMB(3.9,148,2,2021,0)="""DATA"",136.5,35,1,5,0)"
^XMB(3.9,148,2,2022,0)="other than the incision, which was opened or manipulated during an "
^XMB(3.9,148,2,2023,0)="""DATA"",136.5,35,1,6,0)"
^XMB(3.9,148,2,2024,0)="operation and at least one of the following:"
^XMB(3.9,148,2,2025,0)="""DATA"",136.5,35,1,7,0)"
^XMB(3.9,148,2,2026,0)=" "
^XMB(3.9,148,2,2027,0)="""DATA"",136.5,35,1,8,0)"
^XMB(3.9,148,2,2028,0)="  - Purulent drainage from a drain that is placed through a stab wound "
^XMB(3.9,148,2,2029,0)="""DATA"",136.5,35,1,9,0)"
^XMB(3.9,148,2,2030,0)="    into the organ/space.  "
^XMB(3.9,148,2,2031,0)="""DATA"",136.5,35,1,10,0)"
^XMB(3.9,148,2,2032,0)="  - Organisms isolated from an aseptically obtained culture of fluid or "
^XMB(3.9,148,2,2033,0)="""DATA"",136.5,35,1,11,0)"
^XMB(3.9,148,2,2034,0)="    tissue in the organ/space.  "
^XMB(3.9,148,2,2035,0)="""DATA"",136.5,35,1,12,0)"
^XMB(3.9,148,2,2036,0)="  - An abscess or other evidence of infection involving the organ/space "
^XMB(3.9,148,2,2037,0)="""DATA"",136.5,35,1,13,0)"
^XMB(3.9,148,2,2038,0)="    that is found on direct examination, during reoperation, or by "
^XMB(3.9,148,2,2039,0)="""DATA"",136.5,35,1,14,0)"
^XMB(3.9,148,2,2040,0)="    histopathologic or radiologic examination.  "
^XMB(3.9,148,2,2041,0)="""DATA"",136.5,35,1,15,0)"
^XMB(3.9,148,2,2042,0)="  - Diagnosis of an organ/space SSI by a surgeon or attending physician.  "
^XMB(3.9,148,2,2043,0)="""DATA"",136.5,35,1,16,0)"
^XMB(3.9,148,2,2044,0)="   "
^XMB(3.9,148,2,2045,0)="""DATA"",136.5,35,1,17,0)"
^XMB(3.9,148,2,2046,0)="  Site-Specific Classifications of Organ/Space Surgical Site Infection"
^XMB(3.9,148,2,2047,0)="""DATA"",136.5,35,1,18,0)"
^XMB(3.9,148,2,2048,0)="  --------------------------------------------------------------------"
^XMB(3.9,148,2,2049,0)="""DATA"",136.5,35,1,19,0)"
^XMB(3.9,148,2,2050,0)="  Arterial or venous infection        Meningitis or ventriculitis"
^XMB(3.9,148,2,2051,0)="""DATA"",136.5,35,1,20,0)"
^XMB(3.9,148,2,2052,0)="  Breast abscess or mastitis          Myocarditis or pericarditis"
^XMB(3.9,148,2,2053,0)="""DATA"",136.5,35,1,21,0)"
^XMB(3.9,148,2,2054,0)="  Disc space                          Oral cavity (mouth, tongue, or"
^XMB(3.9,148,2,2055,0)="""DATA"",136.5,35,1,22,0)"
^XMB(3.9,148,2,2056,0)="  Ear, mastoid                         gums)"
^XMB(3.9,148,2,2057,0)="""DATA"",136.5,35,1,23,0)"
^XMB(3.9,148,2,2058,0)="  Endocarditis                        Osteomyelitis"
^XMB(3.9,148,2,2059,0)="""DATA"",136.5,35,1,24,0)"
^XMB(3.9,148,2,2060,0)="  Endometritis                        Other infections of the lower"
^XMB(3.9,148,2,2061,0)="""DATA"",136.5,35,1,25,0)"
^XMB(3.9,148,2,2062,0)="  Eye, other than conjunctivitis       respiratory tract (e.g. abscess"
^XMB(3.9,148,2,2063,0)="""DATA"",136.5,35,1,26,0)"
^XMB(3.9,148,2,2064,0)="  Gastrointestinal tract               or empyema)"
^XMB(3.9,148,2,2065,0)="""DATA"",136.5,35,1,27,0)"
^XMB(3.9,148,2,2066,0)="  Intra-abdominal, not specified      Other male or female reproductive"
^XMB(3.9,148,2,2067,0)="""DATA"",136.5,35,1,28,0)"
^XMB(3.9,148,2,2068,0)="   elsewhere                           tract"
^XMB(3.9,148,2,2069,0)="""DATA"",136.5,35,1,29,0)"
^XMB(3.9,148,2,2070,0)="  Intracranial, brain abscess or      Sinusitis"
^XMB(3.9,148,2,2071,0)="""DATA"",136.5,35,1,30,0)"
^XMB(3.9,148,2,2072,0)="   dura                               Spinal abscess without meningitis"
^XMB(3.9,148,2,2073,0)="""DATA"",136.5,35,1,31,0)"
^XMB(3.9,148,2,2074,0)="  Joint or bursa                      Upper respiratory tract"
^XMB(3.9,148,2,2075,0)="""DATA"",136.5,35,1,32,0)"
^XMB(3.9,148,2,2076,0)="  Mediastinitis                       Vaginal cuff"
^XMB(3.9,148,2,2077,0)="""DATA"",136.5,36,0)"
^XMB(3.9,148,2,2078,0)="OTHER WOUND OCCURRENCE"
^XMB(3.9,148,2,2079,0)="""DATA"",136.5,36,1,0)"
^XMB(3.9,148,2,2080,0)="^^5^5^3040318^"
^XMB(3.9,148,2,2081,0)="""DATA"",136.5,36,1,1,0)"
^XMB(3.9,148,2,2082,0)="NSQIP Definition (2004):"
^XMB(3.9,148,2,2083,0)="""DATA"",136.5,36,1,2,0)"
^XMB(3.9,148,2,2084,0)="Enter any other wound occurrences that you feel to be significant and "
^XMB(3.9,148,2,2085,0)="""DATA"",136.5,36,1,3,0)"
^XMB(3.9,148,2,2086,0)="that are not covered by the predefined wound occurrence categories. "
^XMB(3.9,148,2,2087,0)="""DATA"",136.5,36,1,4,0)"
^XMB(3.9,148,2,2088,0)="This occurrence category should have an accompanying ICD Diagnosis "
^XMB(3.9,148,2,2089,0)="""DATA"",136.5,36,1,5,0)"
^XMB(3.9,148,2,2090,0)="code."
^XMB(3.9,148,2,2091,0)="""DATA"",136.5,37,0)"
^XMB(3.9,148,2,2092,0)="REPEAT VENTILATOR SUPPORT W/IN 30 DAYS^^0^Y"
^XMB(3.9,148,2,2093,0)="""DATA"",136.5,37,1,0)"
^XMB(3.9,148,2,2094,0)="^136.52^8^8^3060313^^^^"
^XMB(3.9,148,2,2095,0)="""DATA"",136.5,37,1,1,0)"
^XMB(3.9,148,2,2096,0)="CICSP Definition (2006) "
^XMB(3.9,148,2,2097,0)="""DATA"",136.5,37,1,2,0)"
^XMB(3.9,148,2,2098,0)="Indicate if the patient was placed on ventilator support"
^XMB(3.9,148,2,2099,0)="""DATA"",136.5,37,1,3,0)"
^XMB(3.9,148,2,2100,0)="postoperatively for any reason within 30 days, AND this repeat"
^XMB(3.9,148,2,2101,0)="""DATA"",136.5,37,1,4,0)"
^XMB(3.9,148,2,2102,0)="ventilator support is related to the index operation AND occurred"
^XMB(3.9,148,2,2103,0)="""DATA"",136.5,37,1,5,0)"
^XMB(3.9,148,2,2104,0)="during the same admission in-hospital. (For example, the patient is "
^XMB(3.9,148,2,2105,0)="""DATA"",136.5,37,1,6,0)"
^XMB(3.9,148,2,2106,0)="on the ventilator intra-op and immediately post-op. Then patient is"
^XMB(3.9,148,2,2107,0)="""DATA"",136.5,37,1,7,0)"
^XMB(3.9,148,2,2108,0)="weaned and the ventilator is discontinued. Later, the patient gets"
^XMB(3.9,148,2,2109,0)="""DATA"",136.5,37,1,8,0)"
^XMB(3.9,148,2,2110,0)="into trouble and mechanical ventilation has to be reinstated.)"
^XMB(3.9,148,2,2111,0)="""FIA"",130)"
^XMB(3.9,148,2,2112,0)="SURGERY"
^XMB(3.9,148,2,2113,0)="""FIA"",130,0)"
^XMB(3.9,148,2,2114,0)="^SRF("
^XMB(3.9,148,2,2115,0)="""FIA"",130,0,0)"
^XMB(3.9,148,2,2116,0)="130IP"
^XMB(3.9,148,2,2117,0)="""FIA"",130,0,1)"
^XMB(3.9,148,2,2118,0)="y^y^p^^^^n^^n"
^XMB(3.9,148,2,2119,0)="""FIA"",130,0,10)"
^XMB(3.9,148,2,2120,0)=""
^XMB(3.9,148,2,2121,0)="""FIA"",130,0,11)"
^XMB(3.9,148,2,2122,0)=""
^XMB(3.9,148,2,2123,0)="""FIA"",130,0,""RLRO"")"
^XMB(3.9,148,2,2124,0)=""
^XMB(3.9,148,2,2125,0)="""FIA"",130,0,""VR"")"
^XMB(3.9,148,2,2126,0)="3.0^SR"
^XMB(3.9,148,2,2127,0)="""FIA"",130,130)"
^XMB(3.9,148,2,2128,0)="1"
^XMB(3.9,148,2,2129,0)="""FIA"",130,130,.12)"
^XMB(3.9,148,2,2130,0)=""
^XMB(3.9,148,2,2131,0)="""FIA"",130,130,1.09)"
^XMB(3.9,148,2,2132,0)=""
^XMB(3.9,148,2,2133,0)="""FIA"",130,130,102)"
^XMB(3.9,148,2,2134,0)=""
^XMB(3.9,148,2,2135,0)="""FIA"",130,130,202)"
^XMB(3.9,148,2,2136,0)=""
^XMB(3.9,148,2,2137,0)="""FIA"",130,130,211)"
^XMB(3.9,148,2,2138,0)=""
^XMB(3.9,148,2,2139,0)="""FIA"",130,130,216)"
^XMB(3.9,148,2,2140,0)=""
^XMB(3.9,148,2,2141,0)="""FIA"",130,130,218.1)"
^XMB(3.9,148,2,2142,0)=""
^XMB(3.9,148,2,2143,0)="""FIA"",130,130,220)"
^XMB(3.9,148,2,2144,0)=""
^XMB(3.9,148,2,2145,0)="""FIA"",130,130,250)"
^XMB(3.9,148,2,2146,0)=""
^XMB(3.9,148,2,2147,0)="""FIA"",130,130,254)"
^XMB(3.9,148,2,2148,0)=""
^XMB(3.9,148,2,2149,0)="""FIA"",130,130,266)"
^XMB(3.9,148,2,2150,0)=""
^XMB(3.9,148,2,2151,0)="""FIA"",130,130,269)"
^XMB(3.9,148,2,2152,0)=""
^XMB(3.9,148,2,2153,0)="""FIA"",130,130,285)"
^XMB(3.9,148,2,2154,0)=""
^XMB(3.9,148,2,2155,0)="""FIA"",130,130,352)"
^XMB(3.9,148,2,2156,0)=""
^XMB(3.9,148,2,2157,0)="""FIA"",130,130,364)"
^XMB(3.9,148,2,2158,0)=""
^XMB(3.9,148,2,2159,0)="""FIA"",130,130,364.1)"
^XMB(3.9,148,2,2160,0)=""
^XMB(3.9,148,2,2161,0)="""FIA"",130,130,370)"
^XMB(3.9,148,2,2162,0)=""
^XMB(3.9,148,2,2163,0)="""FIA"",130,130,372)"
^XMB(3.9,148,2,2164,0)=""
^XMB(3.9,148,2,2165,0)="""FIA"",130,130,373)"
^XMB(3.9,148,2,2166,0)=""
^XMB(3.9,148,2,2167,0)="""FIA"",130,130,384)"
^XMB(3.9,148,2,2168,0)=""
^XMB(3.9,148,2,2169,0)="""FIA"",130,130,401)"
^XMB(3.9,148,2,2170,0)=""
^XMB(3.9,148,2,2171,0)="""FIA"",130,130,410)"
^XMB(3.9,148,2,2172,0)=""
^XMB(3.9,148,2,2173,0)="""FIA"",130,130,411)"
^XMB(3.9,148,2,2174,0)=""
^XMB(3.9,148,2,2175,0)="""FIA"",130,130,430)"
^XMB(3.9,148,2,2176,0)=""
^XMB(3.9,148,2,2177,0)="""FIA"",130,130,431)"
^XMB(3.9,148,2,2178,0)=""
^XMB(3.9,148,2,2179,0)="""FIA"",130,130,443)"
^XMB(3.9,148,2,2180,0)=""
^XMB(3.9,148,2,2181,0)="""FIA"",130,130,444)"
^XMB(3.9,148,2,2182,0)=""
^XMB(3.9,148,2,2183,0)="""FIA"",130,130,444.1)"
^XMB(3.9,148,2,2184,0)=""
^XMB(3.9,148,2,2185,0)="""FIA"",130,130,445)"
^XMB(3.9,148,2,2186,0)=""
^XMB(3.9,148,2,2187,0)="""FIA"",130,130,445.1)"
^XMB(3.9,148,2,2188,0)=""
^XMB(3.9,148,2,2189,0)="""FIA"",130,130,457)"
^XMB(3.9,148,2,2190,0)=""
^XMB(3.9,148,2,2191,0)="""FIA"",130,130,457.1)"
^XMB(3.9,148,2,2192,0)=""
^XMB(3.9,148,2,2193,0)="""FIA"",130,130,458)"
^XMB(3.9,148,2,2194,0)=""
^XMB(3.9,148,2,2195,0)="""FIA"",130,130,458.1)"
^XMB(3.9,148,2,2196,0)=""
^XMB(3.9,148,2,2197,0)="""FIA"",130,130,461)"
^XMB(3.9,148,2,2198,0)=""
^XMB(3.9,148,2,2199,0)="""FIA"",130,130,461.1)"
^XMB(3.9,148,2,2200,0)=""
^XMB(3.9,148,2,2201,0)="""FIA"",130,130,462)"
^XMB(3.9,148,2,2202,0)=""
^XMB(3.9,148,2,2203,0)="""FIA"",130,130,462.1)"
^XMB(3.9,148,2,2204,0)=""
^XMB(3.9,148,2,2205,0)="""FIA"",130,130,470)"
^XMB(3.9,148,2,2206,0)=""
^XMB(3.9,148,2,2207,0)="""FIA"",130,130,471)"
^XMB(3.9,148,2,2208,0)=""
^XMB(3.9,148,2,2209,0)="""FIA"",130,130,475)"
^XMB(3.9,148,2,2210,0)=""
^XMB(3.9,148,2,2211,0)="""FIA"",130,130,477)"
^XMB(3.9,148,2,2212,0)=""
^XMB(3.9,148,2,2213,0)="""FIA"",130,130,481)"
^XMB(3.9,148,2,2214,0)=""
^XMB(3.9,148,2,2215,0)="""FIA"",130,130,482)"
^XMB(3.9,148,2,2216,0)=""
^XMB(3.9,148,2,2217,0)="""FIA"",130,130,484)"
^XMB(3.9,148,2,2218,0)=""
^XMB(3.9,148,2,2219,0)="""FIA"",130,130,487.1)"
^XMB(3.9,148,2,2220,0)=""
^XMB(3.9,148,2,2221,0)="""FIA"",130,130,502)"
^XMB(3.9,148,2,2222,0)=""
^XMB(3.9,148,2,2223,0)="""FIA"",130,130,504)"
^XMB(3.9,148,2,2224,0)=""
^XMB(3.9,148,2,2225,0)="""FIA"",130,130,504.1)"
^XMB(3.9,148,2,2226,0)=""
^XMB(3.9,148,2,2227,0)="""FIA"",130,130,505)"
^XMB(3.9,148,2,2228,0)=""
^XMB(3.9,148,2,2229,0)="""FIA"",130,130,506)"
^XMB(3.9,148,2,2230,0)=""
^XMB(3.9,148,2,2231,0)="""FIA"",130,130,508)"
^XMB(3.9,148,2,2232,0)=""
^XMB(3.9,148,2,2233,0)="""FIA"",130,130,510)"
^XMB(3.9,148,2,2234,0)=""
^XMB(3.9,148,2,2235,0)="""FIA"",130,130,512)"
^XMB(3.9,148,2,2236,0)=""
^XMB(3.9,148,2,2237,0)="""FIA"",130,130.0508)"
^XMB(3.9,148,2,2238,0)="0"
^XMB(3.9,148,2,2239,0)="""FIA"",130,130.22)"
^XMB(3.9,148,2,2240,0)="1"
^XMB(3.9,148,2,2241,0)="""FIA"",130,130.22,7)"
^XMB(3.9,148,2,2242,0)=""
^XMB(3.9,148,2,2243,0)="""FIA"",130,130.22,8)"
^XMB(3.9,148,2,2244,0)=""
^XMB(3.9,148,2,2245,0)="""FIA"",136.5)"
^XMB(3.9,148,2,2246,0)="PERIOPERATIVE OCCURRENCE CATEGORY"
^XMB(3.9,148,2,2247,0)="""FIA"",136.5,0)"
^XMB(3.9,148,2,2248,0)="^SRO(136.5,"
^XMB(3.9,148,2,2249,0)="""FIA"",136.5,0,0)"
^XMB(3.9,148,2,2250,0)="136.5I"
^XMB(3.9,148,2,2251,0)="""FIA"",136.5,0,1)"
^XMB(3.9,148,2,2252,0)="y^y^f^^n^^y^o^n"
^XMB(3.9,148,2,2253,0)="""FIA"",136.5,0,10)"
^XMB(3.9,148,2,2254,0)=""
^XMB(3.9,148,2,2255,0)="""FIA"",136.5,0,11)"
^XMB(3.9,148,2,2256,0)=""
^XMB(3.9,148,2,2257,0)="""FIA"",136.5,0,""RLRO"")"
^XMB(3.9,148,2,2258,0)=""
^XMB(3.9,148,2,2259,0)="""FIA"",136.5,0,""VR"")"
^XMB(3.9,148,2,2260,0)="3.0^SR"
^XMB(3.9,148,2,2261,0)="""FIA"",136.5,136.5)"
^XMB(3.9,148,2,2262,0)="0"
^XMB(3.9,148,2,2263,0)="""FIA"",136.5,136.52)"
^XMB(3.9,148,2,2264,0)="0"
^XMB(3.9,148,2,2265,0)="""FIA"",136.5,136.53)"
^XMB(3.9,148,2,2266,0)="0"
^XMB(3.9,148,2,2267,0)="""INI"")"
^XMB(3.9,148,2,2268,0)="PRE^SR153UTL"
^XMB(3.9,148,2,2269,0)="""INIT"")"
^XMB(3.9,148,2,2270,0)="POST^SR153UTL"
^XMB(3.9,148,2,2271,0)="""KRN"",.402,741,-1)"
^XMB(3.9,148,2,2272,0)="0^2"
^XMB(3.9,148,2,2273,0)="""KRN"",.402,741,0)"
^XMB(3.9,148,2,2274,0)="SROMEN-OUT^3060316.1036^^130^^^3060316"
^XMB(3.9,148,2,2275,0)="""KRN"",.402,741,""DIAB"",1,0,130,0)"
^XMB(3.9,148,2,2276,0)=".09;T"
^XMB(3.9,148,2,2277,0)="""KRN"",.402,741,""DIAB"",1,0,130,1)"
^XMB(3.9,148,2,2278,0)="1.13;T"
^XMB(3.9,148,2,2279,0)="""KRN"",.402,741,""DIAB"",1,1,130.042,0)"
^XMB(3.9,148,2,2280,0)=".01;T"
^XMB(3.9,148,2,2281,0)="""KRN"",.402,741,""DIAB"",1,1,130.06,0)"
^XMB(3.9,148,2,2282,0)=".01;T"
^XMB(3.9,148,2,2283,0)="""KRN"",.402,741,""DIAB"",1,1,130.16,0)"
^XMB(3.9,148,2,2284,0)=".01;T"
^XMB(3.9,148,2,2285,0)="""KRN"",.402,741,""DIAB"",1,1,130.17,0)"
^XMB(3.9,148,2,2286,0)=".01;T"
^XMB(3.9,148,2,2287,0)="""KRN"",.402,741,""DIAB"",1,1,130.213,0)"
^XMB(3.9,148,2,2288,0)=".01;T"
^XMB(3.9,148,2,2289,0)="""KRN"",.402,741,""DIAB"",1,1,130.28,0)"
^XMB(3.9,148,2,2290,0)=".01;T"
^XMB(3.9,148,2,2291,0)="""KRN"",.402,741,""DIAB"",1,1,130.36,0)"
^XMB(3.9,148,2,2292,0)=".01;T"
^XMB(3.9,148,2,2293,0)="""KRN"",.402,741,""DIAB"",1,2,130.29,0)"
^XMB(3.9,148,2,2294,0)=".01;T"
^XMB(3.9,148,2,2295,0)="""KRN"",.402,741,""DIAB"",1,2,130.37,0)"
^XMB(3.9,148,2,2296,0)=".01;T"
^XMB(3.9,148,2,2297,0)="""KRN"",.402,741,""DIAB"",1,2,130.47,0)"
^XMB(3.9,148,2,2298,0)=".01;T"
^XMB(3.9,148,2,2299,0)="""KRN"",.402,741,""DIAB"",2,0,130,0)"
^XMB(3.9,148,2,2300,0)=".011//OUT;T"
^XMB(3.9,148,2,2301,0)="""KRN"",.402,741,""DIAB"",2,0,130,1)"
^XMB(3.9,148,2,2302,0)=".31;T"
^XMB(3.9,148,2,2303,0)="""KRN"",.402,741,""DIAB"",2,1,130.042,0)"
^XMB(3.9,148,2,2304,0)="1;T"
^XMB(3.9,148,2,2305,0)="""KRN"",.402,741,""DIAB"",2,1,130.06,0)"
^XMB(3.9,148,2,2306,0)=".05//YES;T"
^XMB(3.9,148,2,2307,0)="""KRN"",.402,741,""DIAB"",2,1,130.16,0)"
^XMB(3.9,148,2,2308,0)="3;T"
^XMB(3.9,148,2,2309,0)="""KRN"",.402,741,""DIAB"",2,1,130.17,0)"
^XMB(3.9,148,2,2310,0)="2;T"
^XMB(3.9,148,2,2311,0)="""KRN"",.402,741,""DIAB"",2,1,130.213,0)"
^XMB(3.9,148,2,2312,0)="1;T"
^XMB(3.9,148,2,2313,0)="""KRN"",.402,741,""DIAB"",2,1,130.28,0)"
^XMB(3.9,148,2,2314,0)="2;T"
^XMB(3.9,148,2,2315,0)="""KRN"",.402,741,""DIAB"",2,1,130.36,0)"
^XMB(3.9,148,2,2316,0)="1;T"
^XMB(3.9,148,2,2317,0)="""KRN"",.402,741,""DIAB"",2,2,130.29,0)"
^XMB(3.9,148,2,2318,0)="1;T"
^XMB(3.9,148,2,2319,0)="""KRN"",.402,741,""DIAB"",2,2,130.37,0)"
^XMB(3.9,148,2,2320,0)="1;T"
^XMB(3.9,148,2,2321,0)="""KRN"",.402,741,""DIAB"",2,2,130.47,0)"
^XMB(3.9,148,2,2322,0)="1;T"
^XMB(3.9,148,2,2323,0)="""KRN"",.402,741,""DIAB"",3,0,130,0)"
^XMB(3.9,148,2,2324,0)=".14;T"
^XMB(3.9,148,2,2325,0)="""KRN"",.402,741,""DIAB"",3,0,130,1)"
^XMB(3.9,148,2,2326,0)=".37;T"
^XMB(3.9,148,2,2327,0)="""KRN"",.402,741,""DIAB"",3,1,130.042,0)"
^XMB(3.9,148,2,2328,0)="2;T"
^XMB(3.9,148,2,2329,0)="""KRN"",.402,741,""DIAB"",3,1,130.06,0)"
^XMB(3.9,148,2,2330,0)="24;T"
^XMB(3.9,148,2,2331,0)="""KRN"",.402,741,""DIAB"",3,1,130.28,0)"
^XMB(3.9,148,2,2332,0)="3;T"
^XMB(3.9,148,2,2333,0)="""KRN"",.402,741,""DIAB"",3,1,130.36,0)"
^XMB(3.9,148,2,2334,0)="3;T"
^XMB(3.9,148,2,2335,0)="""KRN"",.402,741,""DIAB"",3,2,130.29,0)"
^XMB(3.9,148,2,2336,0)="2;T"
^XMB(3.9,148,2,2337,0)="""KRN"",.402,741,""DIAB"",3,2,130.37,0)"
^XMB(3.9,148,2,2338,0)="2;T"
^XMB(3.9,148,2,2339,0)="""KRN"",.402,741,""DIAB"",4,0,130,0)"
^XMB(3.9,148,2,2340,0)="32;T"
^XMB(3.9,148,2,2341,0)="""KRN"",.402,741,""DIAB"",4,0,130,1)"
^XMB(3.9,148,2,2342,0)=".213;T"
^XMB(3.9,148,2,2343,0)="""KRN"",.402,741,""DIAB"",4,2,130.29,0)"
^XMB(3.9,148,2,2344,0)="3;T"
^XMB(3.9,148,2,2345,0)="""KRN"",.402,741,""DIAB"",4,2,130.37,0)"
^XMB(3.9,148,2,2346,0)="3;T"
^XMB(3.9,148,2,2347,0)="""KRN"",.402,741,""DIAB"",5,0,130,0)"
^XMB(3.9,148,2,2348,0)="32.5;T"
^XMB(3.9,148,2,2349,0)="""KRN"",.402,741,""DIAB"",5,0,130,1)"
^XMB(3.9,148,2,2350,0)="42;T"
^XMB(3.9,148,2,2351,0)="""KRN"",.402,741,""DIAB"",6,0,130,0)"
^XMB(3.9,148,2,2352,0)=".72;T"
^XMB(3.9,148,2,2353,0)="""KRN"",.402,741,""DIAB"",6,0,130,1)"
^XMB(3.9,148,2,2354,0)="17;T"
^XMB(3.9,148,2,2355,0)="""KRN"",.402,741,""DIAB"",7,0,130,0)"
^XMB(3.9,148,2,2356,0)="26;T"
^XMB(3.9,148,2,2357,0)="""KRN"",.402,741,""DIAB"",7,0,130,1)"
^XMB(3.9,148,2,2358,0)="18;T"
^XMB(3.9,148,2,2359,0)="""KRN"",.402,741,""DIAB"",8,0,130,0)"
^XMB(3.9,148,2,2360,0)="27;T"
^XMB(3.9,148,2,2361,0)="""KRN"",.402,741,""DIAB"",9,0,130,0)"
^XMB(3.9,148,2,2362,0)=".42;T"
^XMB(3.9,148,2,2363,0)="""KRN"",.402,741,""DIAB"",10,0,130,0)"
^XMB(3.9,148,2,2364,0)=".12;T"
^XMB(3.9,148,2,2365,0)="""KRN"",.402,741,""DIAB"",11,0,130,0)"
^XMB(3.9,148,2,2366,0)="506;T"
^XMB(3.9,148,2,2367,0)="""KRN"",.402,741,""DIAB"",12,0,130,0)"
^XMB(3.9,148,2,2368,0)="508;T"
^XMB(3.9,148,2,2369,0)="""KRN"",.402,741,""DIAB"",13,0,130,0)"
^XMB(3.9,148,2,2370,0)=".205;T"
^XMB(3.9,148,2,2371,0)="""KRN"",.402,741,""DIAB"",14,0,130,0)"
^XMB(3.9,148,2,2372,0)="73;T"
^XMB(3.9,148,2,2373,0)="""KRN"",.402,741,""DIAB"",15,0,130,0)"
^XMB(3.9,148,2,2374,0)="72;T"
^XMB(3.9,148,2,2375,0)="""KRN"",.402,741,""DIAB"",16,0,130,0)"
^XMB(3.9,148,2,2376,0)="71;T"
^XMB(3.9,148,2,2377,0)="""KRN"",.402,741,""DIAB"",17,0,130,0)"
^XMB(3.9,148,2,2378,0)="84;T"
^XMB(3.9,148,2,2379,0)="""KRN"",.402,741,""DIAB"",18,0,130,0)"
^XMB(3.9,148,2,2380,0)="83;T"
^XMB(3.9,148,2,2381,0)="""KRN"",.402,741,""DIAB"",19,0,130,0)"
^XMB(3.9,148,2,2382,0)="82;T"
^XMB(3.9,148,2,2383,0)="""KRN"",.402,741,""DIAB"",20,0,130,0)"
^XMB(3.9,148,2,2384,0)=".22;T"
^XMB(3.9,148,2,2385,0)="""KRN"",.402,741,""DIAB"",21,0,130,0)"
^XMB(3.9,148,2,2386,0)=".23;T"
^XMB(3.9,148,2,2387,0)="""KRN"",.402,741,""DIAB"",22,0,130,0)"
^XMB(3.9,148,2,2388,0)=".232;T"
^XMB(3.9,148,2,2389,0)="""KRN"",.402,741,""DIAB"",23,0,130,0)"
^XMB(3.9,148,2,2390,0)="63;T"
^XMB(3.9,148,2,2391,0)="""KRN"",.402,741,""DIAB"",24,0,130,0)"
^XMB(3.9,148,2,2392,0)=".111;T"
^XMB(3.9,148,2,2393,0)="""KRN"",.402,741,""DIAB"",25,0,130,0)"
^XMB(3.9,148,2,2394,0)=".112;T"
^XMB(3.9,148,2,2395,0)="""KRN"",.402,741,""DIAB"",26,0,130,0)"
^XMB(3.9,148,2,2396,0)=".02;T"
^XMB(3.9,148,2,2397,0)="""KRN"",.402,741,""DIAB"",27,0,130,0)"
^XMB(3.9,148,2,2398,0)=".15;T"
^XMB(3.9,148,2,2399,0)="""KRN"",.402,741,""DIAB"",28,0,130,0)"
^XMB(3.9,148,2,2400,0)="44;T"
^XMB(3.9,148,2,2401,0)="""KRN"",.402,741,""DIAB"",29,0,130,0)"
^XMB(3.9,148,2,2402,0)="45;T"
^XMB(3.9,148,2,2403,0)="""KRN"",.402,741,""DIAB"",30,0,130,0)"
^XMB(3.9,148,2,2404,0)="46;T"
^XMB(3.9,148,2,2405,0)="""KRN"",.402,741,""DIAB"",31,0,130,0)"
^XMB(3.9,148,2,2406,0)="47;T"
^XMB(3.9,148,2,2407,0)="""KRN"",.402,741,""DIAB"",32,0,130,0)"
^XMB(3.9,148,2,2408,0)="48;T"
^XMB(3.9,148,2,2409,0)="""KRN"",.402,741,""DIAB"",33,0,130,0)"
^XMB(3.9,148,2,2410,0)=".04;T"
^XMB(3.9,148,2,2411,0)="""KRN"",.402,741,""DIAB"",34,0,130,0)"
^XMB(3.9,148,2,2412,0)="1.09;T"
^XMB(3.9,148,2,2413,0)="""KRN"",.402,741,""DIAB"",35,0,130,0)"
^XMB(3.9,148,2,2414,0)=".164;T"
^XMB(3.9,148,2,2415,0)="""KRN"",.402,741,""DIAB"",36,0,130,0)"
^XMB(3.9,148,2,2416,0)=".166;T"
^XMB(3.9,148,2,2417,0)="""KRN"",.402,741,""DIAB"",37,0,130,0)"
^XMB(3.9,148,2,2418,0)="49;T"
^XMB(3.9,148,2,2419,0)="""KRN"",.402,741,""DIAB"",38,0,130,0)"
^XMB(3.9,148,2,2420,0)="64;T"
^XMB(3.9,148,2,2421,0)="""KRN"",.402,741,""DIAB"",39,0,130,0)"
^XMB(3.9,148,2,2422,0)=".29;T"
^XMB(3.9,148,2,2423,0)="""KRN"",.402,741,""DR"",1,130)"
^XMB(3.9,148,2,2424,0)=".09T~;.011T~//OUT;.14T~;32T~;32.5T~;.72T~;26T~;27T~;.42T~;.12T~;506T~;508T~;.205T~;73T~;72T~;71T~;84T~;83T~;82T~;.22T~;.23T~;.232T~;63T~;.111T~;.112T~;.02T~;.15T~;44T~;45T~;46T~;47T~;48T~;.04T~;1.09T~;.164T~;.166T~;49T~;64T~;.29T~;"
^XMB(3.9,148,2,2425,0)="""KRN"",.402,741,""DR"",1,130,1)"
^XMB(3.9,148,2,2426,0)="1.13T~;.31T~;.37T~;.213T~;42T~;17T~;18T~;"
^XMB(3.9,148,2,2427,0)="""KRN"",.402,741,""DR"",2,130.042)"
^XMB(3.9,148,2,2428,0)=".01T~;1T~;2T~;"
^XMB(3.9,148,2,2429,0)="""KRN"",.402,741,""DR"",2,130.06)"
^XMB(3.9,148,2,2430,0)=".01T~;.05T~//YES;24T~;"
^XMB(3.9,148,2,2431,0)="""KRN"",.402,741,""DR"",2,130.16)"
^XMB(3.9,148,2,2432,0)=".01T~;3T~;"
^XMB(3.9,148,2,2433,0)="""KRN"",.402,741,""DR"",2,130.17)"
^XMB(3.9,148,2,2434,0)=".01T~;2T~;"
^XMB(3.9,148,2,2435,0)="""KRN"",.402,741,""DR"",2,130.213)"
^XMB(3.9,148,2,2436,0)=".01T~;1T~;"
^XMB(3.9,148,2,2437,0)="""KRN"",.402,741,""DR"",2,130.28)"
^XMB(3.9,148,2,2438,0)=".01T~;2T~;3T~;"
^XMB(3.9,148,2,2439,0)="""KRN"",.402,741,""DR"",2,130.36)"
^XMB(3.9,148,2,2440,0)=".01T~;1T~;3T~;"
^XMB(3.9,148,2,2441,0)="""KRN"",.402,741,""DR"",3,130.29)"
^XMB(3.9,148,2,2442,0)=".01T~;1T~;2T~;3T~;"
^XMB(3.9,148,2,2443,0)="""KRN"",.402,741,""DR"",3,130.37)"
^XMB(3.9,148,2,2444,0)=".01T~;1T~;2T~;3T~;"
^XMB(3.9,148,2,2445,0)="""KRN"",.402,741,""DR"",3,130.47)"
^XMB(3.9,148,2,2446,0)=".01T~;1T~;"
^XMB(3.9,148,2,2447,0)="""KRN"",.402,755,-1)"
^XMB(3.9,148,2,2448,0)="0^3"
^XMB(3.9,148,2,2449,0)="""KRN"",.402,755,0)"
^XMB(3.9,148,2,2450,0)="SROMEN-START^3060316.1038^^130^^^3060316"
^XMB(3.9,148,2,2451,0)="""KRN"",.402,755,""DIAB"",1,0,130,0)"
^XMB(3.9,148,2,2452,0)=".09;T"
^XMB(3.9,148,2,2453,0)="""KRN"",.402,755,""DIAB"",1,1,130.042,0)"
^XMB(3.9,148,2,2454,0)=".01;T"
^XMB(3.9,148,2,2455,0)="""KRN"",.402,755,""DIAB"",1,1,130.065,0)"
^XMB(3.9,148,2,2456,0)=".01;T"
^XMB(3.9,148,2,2457,0)="""KRN"",.402,755,""DIAB"",1,1,130.17,0)"
^XMB(3.9,148,2,2458,0)=".01;T"
^XMB(3.9,148,2,2459,0)="""KRN"",.402,755,""DIAB"",1,1,130.31,0)"
^XMB(3.9,148,2,2460,0)=".01;T"
^XMB(3.9,148,2,2461,0)="""KRN"",.402,755,""DIAB"",2,0,130,0)"
^XMB(3.9,148,2,2462,0)="32;T"
^XMB(3.9,148,2,2463,0)="""KRN"",.402,755,""DIAB"",2,1,130.042,0)"
^XMB(3.9,148,2,2464,0)="1;T"
^XMB(3.9,148,2,2465,0)="""KRN"",.402,755,""DIAB"",2,1,130.065,0)"
^XMB(3.9,148,2,2466,0)="1;T"
^XMB(3.9,148,2,2467,0)="""KRN"",.402,755,""DIAB"",2,1,130.17,0)"
^XMB(3.9,148,2,2468,0)="3;T"
^XMB(3.9,148,2,2469,0)="""KRN"",.402,755,""DIAB"",2,1,130.31,0)"
^XMB(3.9,148,2,2470,0)="1;T"
^XMB(3.9,148,2,2471,0)="""KRN"",.402,755,""DIAB"",3,0,130,0)"
^XMB(3.9,148,2,2472,0)="32.5;T"
^XMB(3.9,148,2,2473,0)="""KRN"",.402,755,""DIAB"",3,1,130.042,0)"
^XMB(3.9,148,2,2474,0)="2;T"
^XMB(3.9,148,2,2475,0)="""KRN"",.402,755,""DIAB"",3,1,130.17,0)"
^XMB(3.9,148,2,2476,0)="2;T"
^XMB(3.9,148,2,2477,0)="""KRN"",.402,755,""DIAB"",4,0,130,0)"
^XMB(3.9,148,2,2478,0)=".72;T"
^XMB(3.9,148,2,2479,0)="""KRN"",.402,755,""DIAB"",5,0,130,0)"
^XMB(3.9,148,2,2480,0)=".02;T"
^XMB(3.9,148,2,2481,0)="""KRN"",.402,755,""DIAB"",6,0,130,0)"
^XMB(3.9,148,2,2482,0)=".04;T"
^XMB(3.9,148,2,2483,0)="""KRN"",.402,755,""DIAB"",7,0,130,0)"
^XMB(3.9,148,2,2484,0)=".03;T"
^XMB(3.9,148,2,2485,0)="""KRN"",.402,755,""DIAB"",8,0,130,0)"
^XMB(3.9,148,2,2486,0)=".43;T"
^XMB(3.9,148,2,2487,0)="""KRN"",.402,755,""DIAB"",9,0,130,0)"
^XMB(3.9,148,2,2488,0)=".035;T"
^XMB(3.9,148,2,2489,0)="""KRN"",.402,755,""DIAB"",10,0,130,0)"
^XMB(3.9,148,2,2490,0)="1.01;T"
^XMB(3.9,148,2,2491,0)="""KRN"",.402,755,""DIAB"",11,0,130,0)"
^XMB(3.9,148,2,2492,0)=".971;T"
^XMB(3.9,148,2,2493,0)="""KRN"",.402,755,""DIAB"",12,0,130,0)"
^XMB(3.9,148,2,2494,0)="17;T"
^XMB(3.9,148,2,2495,0)="""KRN"",.402,755,""DIAB"",13,0,130,0)"
^XMB(3.9,148,2,2496,0)="18;T"
^XMB(3.9,148,2,2497,0)="""KRN"",.402,755,""DIAB"",14,0,130,0)"
^XMB(3.9,148,2,2498,0)="67;T"
^XMB(3.9,148,2,2499,0)="""KRN"",.402,755,""DIAB"",15,0,130,0)"
^XMB(3.9,148,2,2500,0)="42;T"
^XMB(3.9,148,2,2501,0)="""KRN"",.402,755,""DIAB"",16,0,130,0)"
^XMB(3.9,148,2,2502,0)=".69;T"
^XMB(3.9,148,2,2503,0)="""KRN"",.402,755,""DIAB"",17,0,130,0)"
^XMB(3.9,148,2,2504,0)="73;T"
^XMB(3.9,148,2,2505,0)="""KRN"",.402,755,""DIAB"",18,0,130,0)"
^XMB(3.9,148,2,2506,0)="72;T"
^XMB(3.9,148,2,2507,0)="""KRN"",.402,755,""DIAB"",19,0,130,0)"
^XMB(3.9,148,2,2508,0)="71;T"
^XMB(3.9,148,2,2509,0)="""KRN"",.402,755,""DIAB"",20,0,130,0)"
^XMB(3.9,148,2,2510,0)="84;T"
^XMB(3.9,148,2,2511,0)="""KRN"",.402,755,""DIAB"",21,0,130,0)"
^XMB(3.9,148,2,2512,0)="83;T"
^XMB(3.9,148,2,2513,0)="""KRN"",.402,755,""DIAB"",22,0,130,0)"
^XMB(3.9,148,2,2514,0)="82;T"
^XMB(3.9,148,2,2515,0)="""KRN"",.402,755,""DIAB"",23,0,130,0)"
^XMB(3.9,148,2,2516,0)="1.13;T"
^XMB(3.9,148,2,2517,0)="""KRN"",.402,755,""DIAB"",24,0,130,0)"
^XMB(3.9,148,2,2518,0)=".19;T"
^XMB(3.9,148,2,2519,0)="""KRN"",.402,755,""DIAB"",25,0,130,0)"
^XMB(3.9,148,2,2520,0)=".196;T"
^XMB(3.9,148,2,2521,0)="""KRN"",.402,755,""DIAB"",26,0,130,0)"
^XMB(3.9,148,2,2522,0)=".07;T"
^XMB(3.9,148,2,2523,0)="""KRN"",.402,755,""DIAB"",27,0,130,0)"
^XMB(3.9,148,2,2524,0)=".11;T"
^XMB(3.9,148,2,2525,0)="""KRN"",.402,755,""DIAB"",28,0,130,0)"
^XMB(3.9,148,2,2526,0)=".12;T"
^XMB(3.9,148,2,2527,0)="""KRN"",.402,755,""DIAB"",29,0,130,0)"
^XMB(3.9,148,2,2528,0)="506;T"
^XMB(3.9,148,2,2529,0)="""KRN"",.402,755,""DIAB"",30,0,130,0)"
^XMB(3.9,148,2,2530,0)="508;T"
^XMB(3.9,148,2,2531,0)="""KRN"",.402,755,""DIAB"",31,0,130,0)"
^XMB(3.9,148,2,2532,0)=".18;T"
^XMB(3.9,148,2,2533,0)="""KRN"",.402,755,""DIAB"",32,0,130,0)"
^XMB(3.9,148,2,2534,0)="4;T"
^XMB(3.9,148,2,2535,0)="""KRN"",.402,755,""DIAB"",33,0,130,0)"
^XMB(3.9,148,2,2536,0)=".175;T"
^XMB(3.9,148,2,2537,0)="""KRN"",.402,755,""DIAB"",34,0,130,0)"
^XMB(3.9,148,2,2538,0)="8;T"
^XMB(3.9,148,2,2539,0)="""KRN"",.402,755,""DIAB"",35,0,130,0)"
^XMB(3.9,148,2,2540,0)="65;T"
^XMB(3.9,148,2,2541,0)="""KRN"",.402,755,""DIAB"",36,0,130,0)"
^XMB(3.9,148,2,2542,0)=".13;T"
^XMB(3.9,148,2,2543,0)="""KRN"",.402,755,""DIAB"",37,0,130,0)"
^XMB(3.9,148,2,2544,0)=".55;T"
^XMB(3.9,148,2,2545,0)="""KRN"",.402,755,""DIAB"",38,0,130,0)"
^XMB(3.9,148,2,2546,0)="6;T"
^XMB(3.9,148,2,2547,0)="""KRN"",.402,755,""DR"",1,130)"
^XMB(3.9,148,2,2548,0)=".09T~;32T~;32.5T~;.72T~;.02T~;.04T~;.03T~;.43T~;.035T~;1.01T~;.971T~;17T~;18T~;67T~;42T~;.69T~;73T~;72T~;71T~;84T~;83T~;82T~;1.13T~;.19T~;.196T~;.07T~;.11T~;.12T~;506T~;508T~;.18T~;4T~;.175T~;8T~;65T~;.13T~;.55T~;6T~;"
^XMB(3.9,148,2,2549,0)="""KRN"",.402,755,""DR"",2,130.042)"
^XMB(3.9,148,2,2550,0)=".01T~;1T~;2T~;"
^XMB(3.9,148,2,2551,0)="""KRN"",.402,755,""DR"",2,130.065)"
^XMB(3.9,148,2,2552,0)=".01T~;1T~;"
^XMB(3.9,148,2,2553,0)="""KRN"",.402,755,""DR"",2,130.17)"
^XMB(3.9,148,2,2554,0)=".01T~;3T~;2T~;"
^XMB(3.9,148,2,2555,0)="""KRN"",.402,755,""DR"",2,130.31)"
^XMB(3.9,148,2,2556,0)=".01T~;1T~;"
^XMB(3.9,148,2,2557,0)="""KRN"",.402,1409,-1)"
^XMB(3.9,148,2,2558,0)="0^1"
^XMB(3.9,148,2,2559,0)="""KRN"",.402,1409,0)"
^XMB(3.9,148,2,2560,0)="SRO-NOCOMP^3060313.1138^^130^^^3060706"
^XMB(3.9,148,2,2561,0)="""KRN"",.402,1409,""DR"",1,130)"
^XMB(3.9,148,2,2562,0)="403////N;248////N;249////N;404////N;488////N;318////N;251////N;412////N;490////N;252////N;285////N;319////N;409////N;254////N;255////N;320////N;256////N;410////N;287////N;321////N;411////N;258////N;322////N;257////N;261////N;"
^XMB(3.9,148,2,2563,0)="""KRN"",.402,1409,""DR"",1,130,1)"
^XMB(3.9,148,2,2564,0)="263////N;250////N;385////N;386////N;387////N;388////N;389////N;391////N;466////N;467////N;"
^XMB(3.9,148,2,2565,0)="""KRN"",.402,2107,-1)"
^XMB(3.9,148,2,2566,0)="0^4"
^XMB(3.9,148,2,2567,0)="""KRN"",.402,2107,0)"
^XMB(3.9,148,2,2568,0)="SRONRPT^3060403.1508^^130^^^3060403"
^XMB(3.9,148,2,2569,0)="""KRN"",.402,2107,""DIAB"",1,0,130,0)"
^XMB(3.9,148,2,2570,0)="44;T"
^XMB(3.9,148,2,2571,0)="""KRN"",.402,2107,""DIAB"",1,0,130,1)"
^XMB(3.9,148,2,2572,0)=".12;T"
^XMB(3.9,148,2,2573,0)="""KRN"",.402,2107,""DIAB"",1,1,130.01,0)"
^XMB(3.9,148,2,2574,0)=".01;T"
^XMB(3.9,148,2,2575,0)="""KRN"",.402,2107,""DIAB"",1,1,130.0129,0)"
^XMB(3.9,148,2,2576,0)=".01;T"
^XMB(3.9,148,2,2577,0)="""KRN"",.402,2107,""DIAB"",1,1,130.013,0)"
^XMB(3.9,148,2,2578,0)=".01;T"
^XMB(3.9,148,2,2579,0)="""KRN"",.402,2107,""DIAB"",1,1,130.02,0)"
^XMB(3.9,148,2,2580,0)=".01;T"
^XMB(3.9,148,2,2581,0)="""KRN"",.402,2107,""DIAB"",1,1,130.04,0)"
^XMB(3.9,148,2,2582,0)=".01;T"
^XMB(3.9,148,2,2583,0)="""KRN"",.402,2107,""DIAB"",1,1,130.06,0)"
^XMB(3.9,148,2,2584,0)=".01;T"
^XMB(3.9,148,2,2585,0)="""KRN"",.402,2107,""DIAB"",1,1,130.065,0)"
^XMB(3.9,148,2,2586,0)=".01;T"
^XMB(3.9,148,2,2587,0)="""KRN"",.402,2107,""DIAB"",1,1,130.08,0)"
^XMB(3.9,148,2,2588,0)=".01;T"
^XMB(3.9,148,2,2589,0)="""KRN"",.402,2107,""DIAB"",1,1,130.16,0)"
^XMB(3.9,148,2,2590,0)=".01;T"
^XMB(3.9,148,2,2591,0)="""KRN"",.402,2107,""DIAB"",1,1,130.23,0)"
^XMB(3.9,148,2,2592,0)=".01;T"
^XMB(3.9,148,2,2593,0)="""KRN"",.402,2107,""DIAB"",1,1,130.24,0)"
^XMB(3.9,148,2,2594,0)=".01;T"
^XMB(3.9,148,2,2595,0)="""KRN"",.402,2107,""DIAB"",1,1,130.28,0)"
^XMB(3.9,148,2,2596,0)=".01;T"
^XMB(3.9,148,2,2597,0)="""KRN"",.402,2107,""DIAB"",1,1,130.31,0)"
^XMB(3.9,148,2,2598,0)=".01;T"
^XMB(3.9,148,2,2599,0)="""KRN"",.402,2107,""DIAB"",1,1,130.32,0)"
^XMB(3.9,148,2,2600,0)=".01;T"
^XMB(3.9,148,2,2601,0)="""KRN"",.402,2107,""DIAB"",1,1,130.33,0)"
^XMB(3.9,148,2,2602,0)=".01;T"
^XMB(3.9,148,2,2603,0)="""KRN"",.402,2107,""DIAB"",1,1,130.36,0)"
^XMB(3.9,148,2,2604,0)=".01;T"
^XMB(3.9,148,2,2605,0)="""KRN"",.402,2107,""DIAB"",1,2,130.0134,0)"
^XMB(3.9,148,2,2606,0)=".01;T"
^XMB(3.9,148,2,2607,0)="""KRN"",.402,2107,""DIAB"",1,2,130.34,0)"
^XMB(3.9,148,2,2608,0)=".01;T"
^XMB(3.9,148,2,2609,0)="""KRN"",.402,2107,""DIAB"",1,2,130.39,0)"
^XMB(3.9,148,2,2610,0)=".01;T"
^XMB(3.9,148,2,2611,0)="""KRN"",.402,2107,""DIAB"",2,0,130,0)"
^XMB(3.9,148,2,2612,0)="45;T"
^XMB(3.9,148,2,2613,0)="""KRN"",.402,2107,""DIAB"",2,0,130,1)"
^XMB(3.9,148,2,2614,0)="506;T"
^XMB(3.9,148,2,2615,0)="""KRN"",.402,2107,""DIAB"",2,1,130.01,0)"
^XMB(3.9,148,2,2616,0)="1;T"
^XMB(3.9,148,2,2617,0)="""KRN"",.402,2107,""DIAB"",2,1,130.0129,0)"
^XMB(3.9,148,2,2618,0)="1;T"
^XMB(3.9,148,2,2619,0)="""KRN"",.402,2107,""DIAB"",2,1,130.013,0)"
^XMB(3.9,148,2,2620,0)="1;T"
^XMB(3.9,148,2,2621,0)="""KRN"",.402,2107,""DIAB"",2,1,130.02,0)"
^XMB(3.9,148,2,2622,0)="3;T"
^XMB(3.9,148,2,2623,0)="""KRN"",.402,2107,""DIAB"",2,1,130.04,0)"
^XMB(3.9,148,2,2624,0)="1;T"
^XMB(3.9,148,2,2625,0)="""KRN"",.402,2107,""DIAB"",2,1,130.065,0)"
^XMB(3.9,148,2,2626,0)="1;T"
^XMB(3.9,148,2,2627,0)="""KRN"",.402,2107,""DIAB"",2,1,130.08,0)"
^XMB(3.9,148,2,2628,0)="1;T"
^XMB(3.9,148,2,2629,0)="""KRN"",.402,2107,""DIAB"",2,1,130.23,0)"
^XMB(3.9,148,2,2630,0)="1;T"
^XMB(3.9,148,2,2631,0)="""KRN"",.402,2107,""DIAB"",2,1,130.24,0)"
^XMB(3.9,148,2,2632,0)="1;T"
^XMB(3.9,148,2,2633,0)="""KRN"",.402,2107,""DIAB"",2,1,130.28,0)"
^XMB(3.9,148,2,2634,0)="3;T"
^XMB(3.9,148,2,2635,0)="""KRN"",.402,2107,""DIAB"",2,1,130.31,0)"
^XMB(3.9,148,2,2636,0)="1;T"
^XMB(3.9,148,2,2637,0)="""KRN"",.402,2107,""DIAB"",2,1,130.32,0)"
^XMB(3.9,148,2,2638,0)="2;T"
^XMB(3.9,148,2,2639,0)="""KRN"",.402,2107,""DIAB"",2,1,130.33,0)"
^XMB(3.9,148,2,2640,0)="1;T"
^XMB(3.9,148,2,2641,0)="""KRN"",.402,2107,""DIAB"",2,1,130.36,0)"
^XMB(3.9,148,2,2642,0)="3;T"
^XMB(3.9,148,2,2643,0)="""KRN"",.402,2107,""DIAB"",2,2,130.0134,0)"
^XMB(3.9,148,2,2644,0)="1;T"
^XMB(3.9,148,2,2645,0)="""KRN"",.402,2107,""DIAB"",2,2,130.34,0)"
^XMB(3.9,148,2,2646,0)="1;T"
^XMB(3.9,148,2,2647,0)="""KRN"",.402,2107,""DIAB"",2,2,130.39,0)"
^XMB(3.9,148,2,2648,0)="1;T"
^XMB(3.9,148,2,2649,0)="""KRN"",.402,2107,""DIAB"",3,0,130,0)"
^XMB(3.9,148,2,2650,0)="46;T"
^XMB(3.9,148,2,2651,0)="""KRN"",.402,2107,""DIAB"",3,0,130,1)"
^XMB(3.9,148,2,2652,0)="508;T"
^XMB(3.9,148,2,2653,0)="""KRN"",.402,2107,""DIAB"",3,1,130.01,0)"
^XMB(3.9,148,2,2654,0)="2;T"
^XMB(3.9,148,2,2655,0)="""KRN"",.402,2107,""DIAB"",3,1,130.0129,0)"
^XMB(3.9,148,2,2656,0)="2;T"
^XMB(3.9,148,2,2657,0)="""KRN"",.402,2107,""DIAB"",3,1,130.013,0)"
^XMB(3.9,148,2,2658,0)="2;T"
^XMB(3.9,148,2,2659,0)="""KRN"",.402,2107,""DIAB"",3,1,130.02,0)"
^XMB(3.9,148,2,2660,0)="1;T"
^XMB(3.9,148,2,2661,0)="""KRN"",.402,2107,""DIAB"",3,1,130.04,0)"
^XMB(3.9,148,2,2662,0)="3;T"
^XMB(3.9,148,2,2663,0)="""KRN"",.402,2107,""DIAB"",3,1,130.31,0)"
^XMB(3.9,148,2,2664,0)="2;T"
^XMB(3.9,148,2,2665,0)="""KRN"",.402,2107,""DIAB"",3,1,130.32,0)"
^XMB(3.9,148,2,2666,0)="1;T"
^XMB(3.9,148,2,2667,0)="""KRN"",.402,2107,""DIAB"",3,2,130.0134,0)"
^XMB(3.9,148,2,2668,0)="2;T"
^XMB(3.9,148,2,2669,0)="""KRN"",.402,2107,""DIAB"",3,2,130.34,0)"
^XMB(3.9,148,2,2670,0)="2;T"
^XMB(3.9,148,2,2671,0)="""KRN"",.402,2107,""DIAB"",3,2,130.39,0)"
^XMB(3.9,148,2,2672,0)="2;T"
^XMB(3.9,148,2,2673,0)="""KRN"",.402,2107,""DIAB"",4,0,130,0)"
^XMB(3.9,148,2,2674,0)="47;T"
^XMB(3.9,148,2,2675,0)="""KRN"",.402,2107,""DIAB"",4,0,130,1)"
^XMB(3.9,148,2,2676,0)=".18;T"
^XMB(3.9,148,2,2677,0)="""KRN"",.402,2107,""DIAB"",4,1,130.01,0)"
^XMB(3.9,148,2,2678,0)="2.5;T"
^XMB(3.9,148,2,2679,0)="""KRN"",.402,2107,""DIAB"",4,1,130.0129,0)"
^XMB(3.9,148,2,2680,0)="4;T"
^XMB(3.9,148,2,2681,0)="""KRN"",.402,2107,""DIAB"",4,1,130.013,0)"
^XMB(3.9,148,2,2682,0)="3;T"
^XMB(3.9,148,2,2683,0)="""KRN"",.402,2107,""DIAB"",4,1,130.02,0)"
^XMB(3.9,148,2,2684,0)="4;T"
^XMB(3.9,148,2,2685,0)="""KRN"",.402,2107,""DIAB"",4,1,130.04,0)"
^XMB(3.9,148,2,2686,0)="4;T"
^XMB(3.9,148,2,2687,0)="""KRN"",.402,2107,""DIAB"",4,1,130.32,0)"
^XMB(3.9,148,2,2688,0)="3;T"
^XMB(3.9,148,2,2689,0)="""KRN"",.402,2107,""DIAB"",4,2,130.34,0)"
^XMB(3.9,148,2,2690,0)="3;T"
^XMB(3.9,148,2,2691,0)="""KRN"",.402,2107,""DIAB"",5,0,130,0)"
^XMB(3.9,148,2,2692,0)="48;T"
^XMB(3.9,148,2,2693,0)="""KRN"",.402,2107,""DIAB"",5,0,130,1)"
^XMB(3.9,148,2,2694,0)="4;T"
^XMB(3.9,148,2,2695,0)="""KRN"",.402,2107,""DIAB"",5,1,130.01,0)"
^XMB(3.9,148,2,2696,0)="5;T"
^XMB(3.9,148,2,2697,0)="""KRN"",.402,2107,""DIAB"",5,1,130.0129,0)"
^XMB(3.9,148,2,2698,0)="3;T"
^XMB(3.9,148,2,2699,0)="""KRN"",.402,2107,""DIAB"",5,1,130.013,0)"
^XMB(3.9,148,2,2700,0)="4;T"
^XMB(3.9,148,2,2701,0)="""KRN"",.402,2107,""DIAB"",5,1,130.02,0)"
^XMB(3.9,148,2,2702,0)="2;T"
^XMB(3.9,148,2,2703,0)="""KRN"",.402,2107,""DIAB"",5,1,130.04,0)"
^XMB(3.9,148,2,2704,0)="5;T"
^XMB(3.9,148,2,2705,0)="""KRN"",.402,2107,""DIAB"",5,2,130.34,0)"
^XMB(3.9,148,2,2706,0)="4;T"
^XMB(3.9,148,2,2707,0)="""KRN"",.402,2107,""DIAB"",6,0,130,0)"
^XMB(3.9,148,2,2708,0)=".203;T"
^XMB(3.9,148,2,2709,0)="""KRN"",.402,2107,""DIAB"",6,0,130,1)"
^XMB(3.9,148,2,2710,0)=".175;T"
^XMB(3.9,148,2,2711,0)="""KRN"",.402,2107,""DIAB"",6,1,130.01,0)"
^XMB(3.9,148,2,2712,0)="6;T"
^XMB(3.9,148,2,2713,0)="""KRN"",.402,2107,""DIAB"",6,1,130.0129,0)"
^XMB(3.9,148,2,2714,0)="5;T"
^XMB(3.9,148,2,2715,0)="""KRN"",.402,2107,""DIAB"",6,1,130.013,0)"
^XMB(3.9,148,2,2716,0)="5;T"
^XMB(3.9,148,2,2717,0)="""KRN"",.402,2107,""DIAB"",6,2,130.34,0)"
^XMB(3.9,148,2,2718,0)="5;T"
^XMB(3.9,148,2,2719,0)="""KRN"",.402,2107,""DIAB"",7,0,130,0)"
^XMB(3.9,148,2,2720,0)=".205;T"
^XMB(3.9,148,2,2721,0)="""KRN"",.402,2107,""DIAB"",7,0,130,1)"
^XMB(3.9,148,2,2722,0)="8;T"
^XMB(3.9,148,2,2723,0)="""KRN"",.402,2107,""DIAB"",7,1,130.01,0)"
^XMB(3.9,148,2,2724,0)="7;T"
^XMB(3.9,148,2,2725,0)="""KRN"",.402,2107,""DIAB"",8,0,130,0)"
^XMB(3.9,148,2,2726,0)="73;T"
^XMB(3.9,148,2,2727,0)="""KRN"",.402,2107,""DIAB"",8,0,130,1)"
^XMB(3.9,148,2,2728,0)="65;T"
^XMB(3.9,148,2,2729,0)="""KRN"",.402,2107,""DIAB"",9,0,130,0)"
^XMB(3.9,148,2,2730,0)="72;T"
^XMB(3.9,148,2,2731,0)="""KRN"",.402,2107,""DIAB"",9,0,130,1)"
^XMB(3.9,148,2,2732,0)=".13;T"
^XMB(3.9,148,2,2733,0)="""KRN"",.402,2107,""DIAB"",10,0,130,0)"
^XMB(3.9,148,2,2734,0)="71;T"
^XMB(3.9,148,2,2735,0)="""KRN"",.402,2107,""DIAB"",10,0,130,1)"
^XMB(3.9,148,2,2736,0)=".75;T"
^XMB(3.9,148,2,2737,0)="""KRN"",.402,2107,""DIAB"",11,0,130,0)"
^XMB(3.9,148,2,2738,0)="84;T"
^XMB(3.9,148,2,2739,0)="""KRN"",.402,2107,""DIAB"",11,0,130,1)"
^XMB(3.9,148,2,2740,0)="57;T"
^XMB(3.9,148,2,2741,0)="""KRN"",.402,2107,""DIAB"",12,0,130,0)"
^XMB(3.9,148,2,2742,0)="83;T"
^XMB(3.9,148,2,2743,0)="""KRN"",.402,2107,""DIAB"",12,0,130,1)"
^XMB(3.9,148,2,2744,0)="58;T"
^XMB(3.9,148,2,2745,0)="""KRN"",.402,2107,""DIAB"",13,0,130,0)"
^XMB(3.9,148,2,2746,0)="82;T"
^XMB(3.9,148,2,2747,0)="""KRN"",.402,2107,""DIAB"",13,0,130,1)"
^XMB(3.9,148,2,2748,0)=".55;T"
^XMB(3.9,148,2,2749,0)="""KRN"",.402,2107,""DIAB"",14,0,130,0)"
^XMB(3.9,148,2,2750,0)=".22;T"
^XMB(3.9,148,2,2751,0)="""KRN"",.402,2107,""DIAB"",14,0,130,1)"
^XMB(3.9,148,2,2752,0)="6;T"
^XMB(3.9,148,2,2753,0)="""KRN"",.402,2107,""DIAB"",15,0,130,0)"
^XMB(3.9,148,2,2754,0)=".23;T"
^XMB(3.9,148,2,2755,0)="""KRN"",.402,2107,""DIAB"",15,0,130,1)"
^XMB(3.9,148,2,2756,0)="49;T"
^XMB(3.9,148,2,2757,0)="""KRN"",.402,2107,""DIAB"",16,0,130,0)"
^XMB(3.9,148,2,2758,0)=".206;T"
^XMB(3.9,148,2,2759,0)="""KRN"",.402,2107,""DIAB"",16,0,130,1)"
^XMB(3.9,148,2,2760,0)="64;T"
^XMB(3.9,148,2,2761,0)="""KRN"",.402,2107,""DIAB"",17,0,130,0)"
^XMB(3.9,148,2,2762,0)=".232;T"
^XMB(3.9,148,2,2763,0)="""KRN"",.402,2107,""DIAB"",17,0,130,1)"
^XMB(3.9,148,2,2764,0)=".37;T"
^XMB(3.9,148,2,2765,0)="""KRN"",.402,2107,""DIAB"",18,0,130,0)"
^XMB(3.9,148,2,2766,0)="26;T"
^XMB(3.9,148,2,2767,0)="""KRN"",.402,2107,""DIAB"",18,0,130,1)"
^XMB(3.9,148,2,2768,0)="22;T"
^XMB(3.9,148,2,2769,0)="""KRN"",.402,2107,""DIAB"",19,0,130,0)"
^XMB(3.9,148,2,2770,0)=".42;T"
^XMB(3.9,148,2,2771,0)="""KRN"",.402,2107,""DIAB"",19,0,130,1)"
^XMB(3.9,148,2,2772,0)=".48;T"
^XMB(3.9,148,2,2773,0)="""KRN"",.402,2107,""DIAB"",20,0,130,0)"
^XMB(3.9,148,2,2774,0)="1.09;T"
^XMB(3.9,148,2,2775,0)="""KRN"",.402,2107,""DIAB"",20,0,130,1)"
^XMB(3.9,148,2,2776,0)=".757;T"
^XMB(3.9,148,2,2777,0)="""KRN"",.402,2107,""DIAB"",21,0,130,0)"
^XMB(3.9,148,2,2778,0)=".46;T"
^XMB(3.9,148,2,2779,0)="""KRN"",.402,2107,""DIAB"",21,0,130,1)"
^XMB(3.9,148,2,2780,0)=".47;T"
^XMB(3.9,148,2,2781,0)="""KRN"",.402,2107,""DIAB"",22,0,130,0)"
^XMB(3.9,148,2,2782,0)=".03;T"
^XMB(3.9,148,2,2783,0)="""KRN"",.402,2107,""DIAB"",22,0,130,1)"
^XMB(3.9,148,2,2784,0)=".375;T"
^XMB(3.9,148,2,2785,0)="""KRN"",.402,2107,""DIAB"",23,0,130,0)"
^XMB(3.9,148,2,2786,0)=".02;T"
^XMB(3.9,148,2,2787,0)="""KRN"",.402,2107,""DIAB"",23,0,130,1)"
^XMB(3.9,148,2,2788,0)=".39;T"
^XMB(3.9,148,2,2789,0)="""KRN"",.402,2107,""DIAB"",24,0,130,0)"
^XMB(3.9,148,2,2790,0)=".035;T"
^XMB(3.9,148,2,2791,0)="""KRN"",.402,2107,""DIAB"",24,0,130,1)"
^XMB(3.9,148,2,2792,0)=".27;T"
^XMB(3.9,148,2,2793,0)="""KRN"",.402,2107,""DIAB"",25,0,130,0)"
^XMB(3.9,148,2,2794,0)=".14;T"
^XMB(3.9,148,2,2795,0)="""KRN"",.402,2107,""DIAB"",25,0,130,1)"
^XMB(3.9,148,2,2796,0)="41;T"
^XMB(3.9,148,2,2797,0)="""KRN"",.402,2107,""DIAB"",26,0,130,0)"
^XMB(3.9,148,2,2798,0)=".164;T"
^XMB(3.9,148,2,2799,0)="""KRN"",.402,2107,""DIAB"",26,0,130,1)"
^XMB(3.9,148,2,2800,0)=".875;T"
^XMB(3.9,148,2,2801,0)="""KRN"",.402,2107,""DIAB"",27,0,130,0)"
^XMB(3.9,148,2,2802,0)=".15;T"
^XMB(3.9,148,2,2803,0)="""KRN"",.402,2107,""DIAB"",27,0,130,1)"
^XMB(3.9,148,2,2804,0)=".25;T"
^XMB(3.9,148,2,2805,0)="""KRN"",.402,2107,""DIAB"",28,0,130,0)"
^XMB(3.9,148,2,2806,0)=".16;T"
^XMB(3.9,148,2,2807,0)="""KRN"",.402,2107,""DIAB"",28,0,130,1)"
^XMB(3.9,148,2,2808,0)=".255;T"
^XMB(3.9,148,2,2809,0)="""KRN"",.402,2107,""DIAB"",29,0,130,0)"
^XMB(3.9,148,2,2810,0)=".31;T"
^XMB(3.9,148,2,2811,0)="""KRN"",.402,2107,""DIAB"",29,0,130,1)"
^XMB(3.9,148,2,2812,0)=".81;T"
^XMB(3.9,148,2,2813,0)="""KRN"",.402,2107,""DIAB"",30,0,130,0)"
^XMB(3.9,148,2,2814,0)=".33;T"
^XMB(3.9,148,2,2815,0)="""KRN"",.402,2107,""DIAB"",30,0,130,1)"
^XMB(3.9,148,2,2816,0)=".821;T"
^XMB(3.9,148,2,2817,0)="""KRN"",.402,2107,""DIAB"",31,0,130,0)"
^XMB(3.9,148,2,2818,0)="30;T"
^XMB(3.9,148,2,2819,0)="""KRN"",.402,2107,""DIAB"",31,0,130,1)"
^XMB(3.9,148,2,2820,0)=".76;T"
^XMB(3.9,148,2,2821,0)="""KRN"",.402,2107,""DIAB"",32,0,130,0)"
^XMB(3.9,148,2,2822,0)=".112;T"
^XMB(3.9,148,2,2823,0)="""KRN"",.402,2107,""DIAB"",32,0,130,1)"
^XMB(3.9,148,2,2824,0)=".77;T"
^XMB(3.9,148,2,2825,0)="""KRN"",.402,2107,""DIAB"",33,0,130,0)"
^XMB(3.9,148,2,2826,0)=".111;T"
^XMB(3.9,148,2,2827,0)="""KRN"",.402,2107,""DIAB"",33,0,130,1)"
^XMB(3.9,148,2,2828,0)="129;T"
^XMB(3.9,148,2,2829,0)="""KRN"",.402,2107,""DIAB"",34,0,130,0)"
^XMB(3.9,148,2,2830,0)="31;T"
^XMB(3.9,148,2,2831,0)="""KRN"",.402,2107,""DIAB"",34,0,130,1)"
^XMB(3.9,148,2,2832,0)="127;T"
^XMB(3.9,148,2,2833,0)="""KRN"",.402,2107,""DIAB"",35,0,130,0)"
^XMB(3.9,148,2,2834,0)=".19;T"
^XMB(3.9,148,2,2835,0)="""KRN"",.402,2107,""DIAB"",35,0,130,1)"
^XMB(3.9,148,2,2836,0)="25;T"
^XMB(3.9,148,2,2837,0)="""KRN"",.402,2107,""DIAB"",36,0,130,0)"
^XMB(3.9,148,2,2838,0)=".196;T"
^XMB(3.9,148,2,2839,0)="""KRN"",.402,2107,""DIAB"",36,0,130,1)"
^XMB(3.9,148,2,2840,0)="130;T"
^XMB(3.9,148,2,2841,0)="""KRN"",.402,2107,""DIAB"",37,0,130,0)"
^XMB(3.9,148,2,2842,0)=".07;T"
^XMB(3.9,148,2,2843,0)="""KRN"",.402,2107,""DIAB"",37,0,130,1)"
^XMB(3.9,148,2,2844,0)="131;T"
^XMB(3.9,148,2,2845,0)="""KRN"",.402,2107,""DIAB"",38,0,130,0)"
^XMB(3.9,148,2,2846,0)=".195;T"
^XMB(3.9,148,2,2847,0)="""KRN"",.402,2107,""DIAB"",38,0,130,1)"
^XMB(3.9,148,2,2848,0)=".29;T"
^XMB(3.9,148,2,2849,0)="""KRN"",.402,2107,""DIAB"",39,0,130,0)"
^XMB(3.9,148,2,2850,0)=".69;T"
^XMB(3.9,148,2,2851,0)="""KRN"",.402,2107,""DR"",1,130)"
^XMB(3.9,148,2,2852,0)="44T~;45T~;46T~;47T~;48T~;.203T~;.205T~;73T~;72T~;71T~;84T~;83T~;82T~;.22T~;.23T~;.206T~;.232T~;26T~;.42T~;1.09T~;.46T~;.03T~;.02T~;.035T~;.14T~;.164T~;.15T~;.16T~;.31T~;.33T~;30T~;.112T~;.111T~;31T~;.19T~;.196T~;.07T~;.195T~;.69T~;"
^XMB(3.9,148,2,2853,0)="""KRN"",.402,2107,""DR"",1,130,1)"
^XMB(3.9,148,2,2854,0)=".12T~;506T~;508T~;.18T~;4T~;.175T~;8T~;65T~;.13T~;.75T~;57T~;58T~;.55T~;6T~;49T~;64T~;.37T~;22T~;.48T~;.757T~;.47T~;.375T~;.39T~;.27T~;41T~;.875T~;.25T~;.255T~;.81T~;.821T~;.76T~;.77T~;129T~;127T~;25T~;130T~;131T~;.29T~;"
^XMB(3.9,148,2,2855,0)="""KRN"",.402,2107,""DR"",2,130.01)"
^XMB(3.9,148,2,2856,0)=".01T~;1T~;2T~;2.5T~;5T~;6T~;7T~;"
^XMB(3.9,148,2,2857,0)="""KRN"",.402,2107,""DR"",2,130.0129)"
^XMB(3.9,148,2,2858,0)=".01T~;1T~;2T~;4T~;3T~;5T~;"
^XMB(3.9,148,2,2859,0)="""KRN"",.402,2107,""DR"",2,130.013)"
^XMB(3.9,148,2,2860,0)=".01T~;1T~;2T~;3T~;4T~;5T~;"
^XMB(3.9,148,2,2861,0)="""KRN"",.402,2107,""DR"",2,130.02)"
^XMB(3.9,148,2,2862,0)=".01T~;3T~;1T~;4T~;2T~;"
^XMB(3.9,148,2,2863,0)="""KRN"",.402,2107,""DR"",2,130.04)"
^XMB(3.9,148,2,2864,0)=".01T~;1T~;3T~;4T~;5T~;"
^XMB(3.9,148,2,2865,0)="""KRN"",.402,2107,""DR"",2,130.06)"
^XMB(3.9,148,2,2866,0)=".01T~;"
^XMB(3.9,148,2,2867,0)="""KRN"",.402,2107,""DR"",2,130.065)"
^XMB(3.9,148,2,2868,0)=".01T~;1T~;"
^XMB(3.9,148,2,2869,0)="""KRN"",.402,2107,""DR"",2,130.08)"
^XMB(3.9,148,2,2870,0)=".01T~;1T~;"
^XMB(3.9,148,2,2871,0)="""KRN"",.402,2107,""DR"",2,130.16)"
^XMB(3.9,148,2,2872,0)=".01T~;"
^XMB(3.9,148,2,2873,0)="""KRN"",.402,2107,""DR"",2,130.23)"
^XMB(3.9,148,2,2874,0)=".01T~;1T~;"
^XMB(3.9,148,2,2875,0)="""KRN"",.402,2107,""DR"",2,130.24)"
^XMB(3.9,148,2,2876,0)=".01T~;1T~;"
^XMB(3.9,148,2,2877,0)="""KRN"",.402,2107,""DR"",2,130.28)"
^XMB(3.9,148,2,2878,0)=".01T~;3T~;"
^XMB(3.9,148,2,2879,0)="""KRN"",.402,2107,""DR"",2,130.31)"
^XMB(3.9,148,2,2880,0)=".01T~;1T~;2T~;"
^XMB(3.9,148,2,2881,0)="""KRN"",.402,2107,""DR"",2,130.32)"
^XMB(3.9,148,2,2882,0)=".01T~;2T~;1T~;3T~;"
^XMB(3.9,148,2,2883,0)="""KRN"",.402,2107,""DR"",2,130.33)"
^XMB(3.9,148,2,2884,0)=".01T~;1T~;"
^XMB(3.9,148,2,2885,0)="""KRN"",.402,2107,""DR"",2,130.36)"
^XMB(3.9,148,2,2886,0)=".01T~;3T~;"
^XMB(3.9,148,2,2887,0)="""KRN"",.402,2107,""DR"",3,130.0134)"
^XMB(3.9,148,2,2888,0)=".01T~;1T~;2T~;"
^XMB(3.9,148,2,2889,0)="""KRN"",.402,2107,""DR"",3,130.34)"
^XMB(3.9,148,2,2890,0)=".01T~;1T~;2T~;3T~;4T~;5T~;"
^XMB(3.9,148,2,2891,0)="""KRN"",.402,2107,""DR"",3,130.39)"
^XMB(3.9,148,2,2892,0)=".01T~;1T~;2T~;"
^XMB(3.9,148,2,2893,0)="""MBREQ"")"
^XMB(3.9,148,2,2894,0)="0"
^XMB(3.9,148,2,2895,0)="""ORD"",7,.402)"
^XMB(3.9,148,2,2896,0)=".402;7;;;EDEOUT^DIFROMSO(.402,DA,"""",XPDA);FPRE^DIFROMSI(.402,"""",XPDA);EPRE^DIFROMSI(.402,DA,$E(""N"",$G(XPDNEW)),XPDA,"""",OLDA);;EPOST^DIFROMSI(.402,DA,"""",XPDA);DEL^DIFROMSK(.402,"""",%)"
^XMB(3.9,148,2,2897,0)="""ORD"",7,.402,0)"
^XMB(3.9,148,2,2898,0)="INPUT TEMPLATE"
^XMB(3.9,148,2,2899,0)="""PKG"",167,-1)"
^XMB(3.9,148,2,2900,0)="1^1"
^XMB(3.9,148,2,2901,0)="""PKG"",167,0)"
^XMB(3.9,148,2,2902,0)="SURGERY^SR^SURGICAL DATA COLLECTION AND OPERATIONS SCHEDULING"
^XMB(3.9,148,2,2903,0)="""PKG"",167,20,0)"
^XMB(3.9,148,2,2904,0)="^9.402P^^"
^XMB(3.9,148,2,2905,0)="""PKG"",167,22,0)"
^XMB(3.9,148,2,2906,0)="^9.49I^1^1"
^XMB(3.9,148,2,2907,0)="""PKG"",167,22,1,0)"
^XMB(3.9,148,2,2908,0)="3.0^2930624^2930811"
^XMB(3.9,148,2,2909,0)="""PKG"",167,22,1,""PAH"",1,0)"
^XMB(3.9,148,2,2910,0)="153^3060717"
^XMB(3.9,148,2,2911,0)="""PKG"",167,22,1,""PAH"",1,1,0)"
^XMB(3.9,148,2,2912,0)="^^123^123^3060717"
^XMB(3.9,148,2,2913,0)="""PKG"",167,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,148,2,2914,0)="his patch updates the Surgery Risk Assessment software of the Veterans"
^XMB(3.9,148,2,2915,0)="""PKG"",167,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,148,2,2916,0)="Health Information Systems and Technology Architecture (VistA)"
^XMB(3.9,148,2,2917,0)="""PKG"",167,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,148,2,2918,0)="Surgery application as requested by the Executive Board of the National"
^XMB(3.9,148,2,2919,0)="""PKG"",167,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,148,2,2920,0)="Surgical Quality Improvement Program (NSQIP) and by the Cardiac Surgery"
^XMB(3.9,148,2,2921,0)="""PKG"",167,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,148,2,2922,0)="Consultants Board of the Continuous Improvement in Cardiac Surgery"
^XMB(3.9,148,2,2923,0)="""PKG"",167,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,148,2,2924,0)="Program (CICSP). These updates include the addition of new data fields,"
^XMB(3.9,148,2,2925,0)="""PKG"",167,22,1,""PAH"",1,1,7,0)"
^XMB(3.9,148,2,2926,0)="changes to existing data fields, changes to data entry screens, changes"
^XMB(3.9,148,2,2927,0)="""PKG"",167,22,1,""PAH"",1,1,8,0)"
^XMB(3.9,148,2,2928,0)="to reports used in Surgery Risk Assessment management process and changes"
^XMB(3.9,148,2,2929,0)="""PKG"",167,22,1,""PAH"",1,1,9,0)"
^XMB(3.9,148,2,2930,0)="to the Surgery Risk Assessment transmissions."
^XMB(3.9,148,2,2931,0)="""PKG"",167,22,1,""PAH"",1,1,10,0)"
^XMB(3.9,148,2,2932,0)=" "
^XMB(3.9,148,2,2933,0)="""PKG"",167,22,1,""PAH"",1,1,11,0)"
^XMB(3.9,148,2,2934,0)="NOTE: All fields listed below are in the SURGERY file (#130) unless"
^XMB(3.9,148,2,2935,0)="""PKG"",167,22,1,""PAH"",1,1,12,0)"
^XMB(3.9,148,2,2936,0)="otherwise indicated."
^XMB(3.9,148,2,2937,0)="""PKG"",167,22,1,""PAH"",1,1,13,0)"
^XMB(3.9,148,2,2938,0)=" "
^XMB(3.9,148,2,2939,0)="""PKG"",167,22,1,""PAH"",1,1,14,0)"
^XMB(3.9,148,2,2940,0)="Cardiac Risk Assessment Modifications"
^XMB(3.9,148,2,2941,0)="""PKG"",167,22,1,""PAH"",1,1,15,0)"
^XMB(3.9,148,2,2942,0)="-------------------------------------"
^XMB(3.9,148,2,2943,0)="""PKG"",167,22,1,""PAH"",1,1,16,0)"
^XMB(3.9,148,2,2944,0)=" o Modifications to the Clinical Information (Enter/Edit) [SROA CLINICAL"
^XMB(3.9,148,2,2945,0)="""PKG"",167,22,1,""PAH"",1,1,17,0)"
^XMB(3.9,148,2,2946,0)="   INFORMATION] option"
^XMB(3.9,148,2,2947,0)="""PKG"",167,22,1,""PAH"",1,1,18,0)"
^XMB(3.9,148,2,2948,0)="  - The software is modified to auto-populate the HEIGHT field (#236) and"
^XMB(3.9,148,2,2949,0)="""PKG"",167,22,1,""PAH"",1,1,19,0)"
^XMB(3.9,148,2,2950,0)="    the WEIGHT field (#237) as documented in the Vitals software."
^XMB(3.9,148,2,2951,0)="""PKG"",167,22,1,""PAH"",1,1,20,0)"
^XMB(3.9,148,2,2952,0)="  - The Current Smoker item under this option is modified to reference to"
^XMB(3.9,148,2,2953,0)="""PKG"",167,22,1,""PAH"",1,1,21,0)"
^XMB(3.9,148,2,2954,0)="    the new CURRENT SMOKER (CARDIAC) field (#510) instead of the old field"
^XMB(3.9,148,2,2955,0)="""PKG"",167,22,1,""PAH"",1,1,22,0)"
^XMB(3.9,148,2,2956,0)="    CURRENT SMOKER field (#202), which will be utilized by the NSQIP"
^XMB(3.9,148,2,2957,0)="""PKG"",167,22,1,""PAH"",1,1,23,0)"
^XMB(3.9,148,2,2958,0)="    options."
^XMB(3.9,148,2,2959,0)="""PKG"",167,22,1,""PAH"",1,1,24,0)"
^XMB(3.9,148,2,2960,0)=" "
^XMB(3.9,148,2,2961,0)="""PKG"",167,22,1,""PAH"",1,1,25,0)"
^XMB(3.9,148,2,2962,0)=" o Modifications to the Laboratory Test Results (Enter/Edit) [SROA"
^XMB(3.9,148,2,2963,0)="""PKG"",167,22,1,""PAH"",1,1,26,0)"
^XMB(3.9,148,2,2964,0)="   LAB-CARDIAC] option"
^XMB(3.9,148,2,2965,0)="""PKG"",167,22,1,""PAH"",1,1,27,0)"
^XMB(3.9,148,2,2966,0)="  - The HEMOGLOBIN A1C field (#504) and the HEMOGLOBIN A1C, DATE field"
^XMB(3.9,148,2,2967,0)="""PKG"",167,22,1,""PAH"",1,1,28,0)"
^XMB(3.9,148,2,2968,0)="    (#504.1) are added to the list of preoperative lab results."
^XMB(3.9,148,2,2969,0)="""PKG"",167,22,1,""PAH"",1,1,29,0)"
^XMB(3.9,148,2,2970,0)="  - The software is modified to use a date range of 1000 days prior to the"
^XMB(3.9,148,2,2971,0)="""PKG"",167,22,1,""PAH"",1,1,30,0)"
^XMB(3.9,148,2,2972,0)="    date of operation when searching for the most recent preoperative lab"
^XMB(3.9,148,2,2973,0)="""PKG"",167,22,1,""PAH"",1,1,31,0)"
^XMB(3.9,148,2,2974,0)="    test result for the HDL (CARDIAC) field (#457), the LDL (CARDIAC)"
^XMB(3.9,148,2,2975,0)="""PKG"",167,22,1,""PAH"",1,1,32,0)"
^XMB(3.9,148,2,2976,0)="    field (#461), the TOTAL CHOLESTEROL (CARDIAC) field (#462), the SERUM"
^XMB(3.9,148,2,2977,0)="""PKG"",167,22,1,""PAH"",1,1,33,0)"
^XMB(3.9,148,2,2978,0)="    TRIGLYCERIDE (CARDIAC) field (#458), and the HEMOGLOBIN A1C field"
^XMB(3.9,148,2,2979,0)="""PKG"",167,22,1,""PAH"",1,1,34,0)"
^XMB(3.9,148,2,2980,0)="    (#504)."
^XMB(3.9,148,2,2981,0)="""PKG"",167,22,1,""PAH"",1,1,35,0)"
^XMB(3.9,148,2,2982,0)=" "
^XMB(3.9,148,2,2983,0)="""PKG"",167,22,1,""PAH"",1,1,36,0)"
^XMB(3.9,148,2,2984,0)=" o The Enter Cardiac Catheterization & Angiographic Data [SROA CARDIAC"
^XMB(3.9,148,2,2985,0)="""PKG"",167,22,1,""PAH"",1,1,37,0)"
^XMB(3.9,148,2,2986,0)="   PROCEDURES] option is modified to allow all fields to be"
^XMB(3.9,148,2,2987,0)="""PKG"",167,22,1,""PAH"",1,1,38,0)"
^XMB(3.9,148,2,2988,0)="   auto-populated with 'NS' (NO STUDY) when 'NS' is entered in the"
^XMB(3.9,148,2,2989,0)="""PKG"",167,22,1,""PAH"",1,1,39,0)"
^XMB(3.9,148,2,2990,0)="   PROCEDURE TYPE field (#476)."
^XMB(3.9,148,2,2991,0)="""PKG"",167,22,1,""PAH"",1,1,40,0)"
^XMB(3.9,148,2,2992,0)=" "
^XMB(3.9,148,2,2993,0)="""PKG"",167,22,1,""PAH"",1,1,41,0)"
^XMB(3.9,148,2,2994,0)=" o Modifications to the Cardiac Procedures Operative Data (Enter/Edit)"
^XMB(3.9,148,2,2995,0)="""PKG"",167,22,1,""PAH"",1,1,42,0)"
^XMB(3.9,148,2,2996,0)="   [SROA CARDIAC PROCEDURES] option"
^XMB(3.9,148,2,2997,0)="""PKG"",167,22,1,""PAH"",1,1,43,0)"
^XMB(3.9,148,2,2998,0)="  - The GREAT VESSEL REPAIR (Y/N) field (#372) is moved to screen #1 under"
^XMB(3.9,148,2,2999,0)="""PKG"",167,22,1,""PAH"",1,1,44,0)"
^XMB(3.9,148,2,3000,0)="    this option as item #20."
^XMB(3.9,148,2,3001,0)="""PKG"",167,22,1,""PAH"",1,1,45,0)"
^XMB(3.9,148,2,3002,0)="  - The ENDOVASCULAR REPAIR field (#505) is added in screen #1 as item"
^XMB(3.9,148,2,3003,0)="""PKG"",167,22,1,""PAH"",1,1,46,0)"
^XMB(3.9,148,2,3004,0)="    #21."
^XMB(3.9,148,2,3005,0)="""PKG"",167,22,1,""PAH"",1,1,47,0)"
^XMB(3.9,148,2,3006,0)="  - The OTHER CT PROCEDURE field (#484) in the first screen is now"
^XMB(3.9,148,2,3007,0)="""PKG"",167,22,1,""PAH"",1,1,48,0)"
^XMB(3.9,148,2,3008,0)="    replaced by the OTHER CARDIAC PROCEDURES (Y/N) field (#502). If this"
^XMB(3.9,148,2,3009,0)="""PKG"",167,22,1,""PAH"",1,1,49,0)"
^XMB(3.9,148,2,3010,0)="    field value is ""YES"" the software will prompt the user for the OTHER"
^XMB(3.9,148,2,3011,0)="""PKG"",167,22,1,""PAH"",1,1,50,0)"
^XMB(3.9,148,2,3012,0)="    CARDIAC PROCEDURES-LIST field (#484)."
^XMB(3.9,148,2,3013,0)="""PKG"",167,22,1,""PAH"",1,1,51,0)"
^XMB(3.9,148,2,3014,0)="  - The OTHER NON-CT PROCEDURES field (#491) is removed from the second"
^XMB(3.9,148,2,3015,0)="""PKG"",167,22,1,""PAH"",1,1,52,0)"
^XMB(3.9,148,2,3016,0)="    screen and a blank line is added before ""Other Operative Data"
^XMB(3.9,148,2,3017,0)="""PKG"",167,22,1,""PAH"",1,1,53,0)"
^XMB(3.9,148,2,3018,0)="    details"" header."
^XMB(3.9,148,2,3019,0)="""PKG"",167,22,1,""PAH"",1,1,54,0)"
^XMB(3.9,148,2,3020,0)="  - The software is modified so that entering ""N"" for the VALVE REPAIR"
^XMB(3.9,148,2,3021,0)="""PKG"",167,22,1,""PAH"",1,1,55,0)"
^XMB(3.9,148,2,3022,0)="    field (#370) shall result in ""5. None"". The existing N's will be"
^XMB(3.9,148,2,3023,0)="""PKG"",167,22,1,""PAH"",1,1,56,0)"
^XMB(3.9,148,2,3024,0)="    converted to '5' upon patch installation."
^XMB(3.9,148,2,3025,0)="""PKG"",167,22,1,""PAH"",1,1,57,0)"
^XMB(3.9,148,2,3026,0)="  - This option is updated to reference the new MAZE PROCEDURE field"
^XMB(3.9,148,2,3027,0)="""PKG"",167,22,1,""PAH"",1,1,58,0)"
^XMB(3.9,148,2,3028,0)="    (#512) as item 13 in the first data entry screen."
^XMB(3.9,148,2,3029,0)="""PKG"",167,22,1,""PAH"",1,1,59,0)"
^XMB(3.9,148,2,3030,0)=" "
^XMB(3.9,148,2,3031,0)="""PKG"",167,22,1,""PAH"",1,1,60,0)"
^XMB(3.9,148,2,3032,0)=" o A new occurrence category REPEAT VENTILATOR SUPPORT W/IN 30 DAYS is"
^XMB(3.9,148,2,3033,0)="""PKG"",167,22,1,""PAH"",1,1,61,0)"
^XMB(3.9,148,2,3034,0)="   created in the PERIOPERATIVE OCCURRENCE CATEGORY file (#136.5). This"
^XMB(3.9,148,2,3035,0)="""PKG"",167,22,1,""PAH"",1,1,62,0)"
^XMB(3.9,148,2,3036,0)="   occurrence category will be selectable only for cardiac assessed cases."
^XMB(3.9,148,2,3037,0)="""PKG"",167,22,1,""PAH"",1,1,63,0)"
^XMB(3.9,148,2,3038,0)=" "
^XMB(3.9,148,2,3039,0)="""PKG"",167,22,1,""PAH"",1,1,64,0)"
^XMB(3.9,148,2,3040,0)=" o The following fields on the Resource Data [SROA CARDIAC RESOURCE]"
^XMB(3.9,148,2,3041,0)="""PKG"",167,22,1,""PAH"",1,1,65,0)"
^XMB(3.9,148,2,3042,0)="   option are modified to assume a default of ""past date"" when no year is"
^XMB(3.9,148,2,3043,0)="""PKG"",167,22,1,""PAH"",1,1,66,0)"
^XMB(3.9,148,2,3044,0)="   specified:"
^XMB(3.9,148,2,3045,0)="""PKG"",167,22,1,""PAH"",1,1,67,0)"
^XMB(3.9,148,2,3046,0)="  - ESTIMATE OF MORTALITY, DATE field (#364.1)"
^XMB(3.9,148,2,3047,0)="""PKG"",167,22,1,""PAH"",1,1,68,0)"
^XMB(3.9,148,2,3048,0)="  - D/T PATIENT EXTUBATED field (#470)"
^XMB(3.9,148,2,3049,0)="""PKG"",167,22,1,""PAH"",1,1,69,0)"
^XMB(3.9,148,2,3050,0)="  - D/T PATIENT DISCH FROM ICU field (#471)"
^XMB(3.9,148,2,3051,0)="""PKG"",167,22,1,""PAH"",1,1,70,0)"
^XMB(3.9,148,2,3052,0)=" "
^XMB(3.9,148,2,3053,0)="""PKG"",167,22,1,""PAH"",1,1,71,0)"
^XMB(3.9,148,2,3054,0)=" o This patch will allow the retransmission of a cardiac risk assessment."
^XMB(3.9,148,2,3055,0)="""PKG"",167,22,1,""PAH"",1,1,72,0)"
^XMB(3.9,148,2,3056,0)=" "
^XMB(3.9,148,2,3057,0)="""PKG"",167,22,1,""PAH"",1,1,73,0)"
^XMB(3.9,148,2,3058,0)="Non-Cardiac Assessment Modifications"
^XMB(3.9,148,2,3059,0)="""PKG"",167,22,1,""PAH"",1,1,74,0)"
^XMB(3.9,148,2,3060,0)="------------------------------------"
^XMB(3.9,148,2,3061,0)="""PKG"",167,22,1,""PAH"",1,1,75,0)"
^XMB(3.9,148,2,3062,0)=" o Modifications to the Preoperative Information (Enter/Edit) [SROA PREOP"
^XMB(3.9,148,2,3063,0)="""PKG"",167,22,1,""PAH"",1,1,76,0)"
^XMB(3.9,148,2,3064,0)="   DATA] option"
^XMB(3.9,148,2,3065,0)="""PKG"",167,22,1,""PAH"",1,1,77,0)"
^XMB(3.9,148,2,3066,0)="  - The software is modified to auto-populate the HEIGHT field (#236) and"
^XMB(3.9,148,2,3067,0)="""PKG"",167,22,1,""PAH"",1,1,78,0)"
^XMB(3.9,148,2,3068,0)="    the WEIGHT field (#237) as documented in the Vitals software."
^XMB(3.9,148,2,3069,0)="""PKG"",167,22,1,""PAH"",1,1,79,0)"
^XMB(3.9,148,2,3070,0)="  - The PREGNANCY field (#269) is added to the NUTRITIONAL/IMMUNE/OTHER"
^XMB(3.9,148,2,3071,0)="""PKG"",167,22,1,""PAH"",1,1,80,0)"
^XMB(3.9,148,2,3072,0)="    section."
^XMB(3.9,148,2,3073,0)="""PKG"",167,22,1,""PAH"",1,1,81,0)"
^XMB(3.9,148,2,3074,0)=" "
^XMB(3.9,148,2,3075,0)="""PKG"",167,22,1,""PAH"",1,1,82,0)"
^XMB(3.9,148,2,3076,0)=" o Modifications to the Laboratory Test Results (Enter/Edit) [SROA LAB]"
^XMB(3.9,148,2,3077,0)="""PKG"",167,22,1,""PAH"",1,1,83,0)"
^XMB(3.9,148,2,3078,0)="   option"
^XMB(3.9,148,2,3079,0)="""PKG"",167,22,1,""PAH"",1,1,84,0)"
^XMB(3.9,148,2,3080,0)="  - The PREOPERATIVE ANION GAP field (#444) and the PREOP ANION GAP, DATE"
^XMB(3.9,148,2,3081,0)="""PKG"",167,22,1,""PAH"",1,1,85,0)"
^XMB(3.9,148,2,3082,0)="    field (#444.1) are added to the list of preoperative lab results."
^XMB(3.9,148,2,3083,0)="""PKG"",167,22,1,""PAH"",1,1,86,0)"
^XMB(3.9,148,2,3084,0)="  - The HIGHEST ANION GAP field (#445) and the HIGH ANION GAP, DATE field"
^XMB(3.9,148,2,3085,0)="""PKG"",167,22,1,""PAH"",1,1,87,0)"
^XMB(3.9,148,2,3086,0)="    (445.1) are added to the list of postoperative lab results."
^XMB(3.9,148,2,3087,0)="""PKG"",167,22,1,""PAH"",1,1,88,0)"
^XMB(3.9,148,2,3088,0)=" "
^XMB(3.9,148,2,3089,0)="""PKG"",167,22,1,""PAH"",1,1,89,0)"
^XMB(3.9,148,2,3090,0)=" o The Operation Information (Enter/Edit) [SROA OPERATION DATA] option is"
^XMB(3.9,148,2,3091,0)="""PKG"",167,22,1,""PAH"",1,1,90,0)"
^XMB(3.9,148,2,3092,0)="   modified to add the INTRAOP DISSEMINATED CANCER field (#443)."
^XMB(3.9,148,2,3093,0)="""PKG"",167,22,1,""PAH"",1,1,91,0)"
^XMB(3.9,148,2,3094,0)=" "
^XMB(3.9,148,2,3095,0)="""PKG"",167,22,1,""PAH"",1,1,92,0)"
^XMB(3.9,148,2,3096,0)="Other Risk Assessment Modifications"
^XMB(3.9,148,2,3097,0)="""PKG"",167,22,1,""PAH"",1,1,93,0)"
^XMB(3.9,148,2,3098,0)="-----------------------------------"
^XMB(3.9,148,2,3099,0)="""PKG"",167,22,1,""PAH"",1,1,94,0)"
^XMB(3.9,148,2,3100,0)=" o The Print a Surgery Risk Assessment [SROA Print Assessment] option is"
^XMB(3.9,148,2,3101,0)="""PKG"",167,22,1,""PAH"",1,1,95,0)"
^XMB(3.9,148,2,3102,0)="   modified to include the new data elements."
^XMB(3.9,148,2,3103,0)="""PKG"",167,22,1,""PAH"",1,1,96,0)"
^XMB(3.9,148,2,3104,0)=" "
^XMB(3.9,148,2,3105,0)="""PKG"",167,22,1,""PAH"",1,1,97,0)"
^XMB(3.9,148,2,3106,0)=" o The transmissions to the national databases are modified to include the"
^XMB(3.9,148,2,3107,0)="""PKG"",167,22,1,""PAH"",1,1,98,0)"
^XMB(3.9,148,2,3108,0)="   new fields."
^XMB(3.9,148,2,3109,0)="""PKG"",167,22,1,""PAH"",1,1,99,0)"
^XMB(3.9,148,2,3110,0)=" "
^XMB(3.9,148,2,3111,0)="""PKG"",167,22,1,""PAH"",1,1,100,0)"
^XMB(3.9,148,2,3112,0)=" o Modification to some of the user entries of fields that allow text to"
^XMB(3.9,148,2,3113,0)="""PKG"",167,22,1,""PAH"",1,1,101,0)"
^XMB(3.9,148,2,3114,0)="   be entered to accept lower case or all CAPS"
^XMB(3.9,148,2,3115,0)="""PKG"",167,22,1,""PAH"",1,1,102,0)"
^XMB(3.9,148,2,3116,0)="  - The NUM OF PRIOR HEART SURGERIES field (#352) is modified to allow the"
^XMB(3.9,148,2,3117,0)="""PKG"",167,22,1,""PAH"",1,1,103,0)"
^XMB(3.9,148,2,3118,0)="    entry of lowercase letter ""N"" to represent ""0 - NONE"". Any existing"
^XMB(3.9,148,2,3119,0)="""PKG"",167,22,1,""PAH"",1,1,104,0)"
^XMB(3.9,148,2,3120,0)="    N's will be converted to '0' for NONE by he post install routine."
^XMB(3.9,148,2,3121,0)="""PKG"",167,22,1,""PAH"",1,1,105,0)"
^XMB(3.9,148,2,3122,0)="  - The ESTIMATE OF MORTALITY field (#364) is modified to allow the entry"
^XMB(3.9,148,2,3123,0)="""PKG"",167,22,1,""PAH"",1,1,106,0)"
^XMB(3.9,148,2,3124,0)="    of lowercase letter ""ns"" to represent ""NO STUDY""."
^XMB(3.9,148,2,3125,0)="""PKG"",167,22,1,""PAH"",1,1,107,0)"
^XMB(3.9,148,2,3126,0)=" "
^XMB(3.9,148,2,3127,0)="""PKG"",167,22,1,""PAH"",1,1,108,0)"
^XMB(3.9,148,2,3128,0)=" o Modifications to the List of Surgery Risk Assessments [SROA ASSESSMENT"
^XMB(3.9,148,2,3129,0)="""PKG"",167,22,1,""PAH"",1,1,109,0)"
^XMB(3.9,148,2,3130,0)="   LIST] option"
^XMB(3.9,148,2,3131,0)="""PKG"",167,22,1,""PAH"",1,1,110,0)"
^XMB(3.9,148,2,3132,0)="  - Each report is modified to display the final CPT codes from the case"
^XMB(3.9,148,2,3133,0)="""PKG"",167,22,1,""PAH"",1,1,111,0)"
^XMB(3.9,148,2,3134,0)="    coding record in the SURGERY PROCEDURE/DIAGNOSIS CODES file (#136)."
^XMB(3.9,148,2,3135,0)="""PKG"",167,22,1,""PAH"",1,1,112,0)"
^XMB(3.9,148,2,3136,0)="  - List of 1-Liner Cases Missing Information (list #8) is added."
^XMB(3.9,148,2,3137,0)="""PKG"",167,22,1,""PAH"",1,1,113,0)"
^XMB(3.9,148,2,3138,0)=" "
^XMB(3.9,148,2,3139,0)="""PKG"",167,22,1,""PAH"",1,1,114,0)"
^XMB(3.9,148,2,3140,0)="General Surgery Items"
^XMB(3.9,148,2,3141,0)="""PKG"",167,22,1,""PAH"",1,1,115,0)"
^XMB(3.9,148,2,3142,0)="---------------------"
^XMB(3.9,148,2,3143,0)="""PKG"",167,22,1,""PAH"",1,1,116,0)"
^XMB(3.9,148,2,3144,0)=" o The PREOP HAIR CLIPPING BY field (#.12) is renamed HAIR REMOVAL BY."
^XMB(3.9,148,2,3145,0)="""PKG"",167,22,1,""PAH"",1,1,117,0)"
^XMB(3.9,148,2,3146,0)=" "
^XMB(3.9,148,2,3147,0)="""PKG"",167,22,1,""PAH"",1,1,118,0)"
^XMB(3.9,148,2,3148,0)=" o The HAIR REMOVAL METHOD field (#506) and the HAIR REMOVAL COMMENTS"
^XMB(3.9,148,2,3149,0)="""PKG"",167,22,1,""PAH"",1,1,119,0)"
^XMB(3.9,148,2,3150,0)="   field (#508) are added to the Operation Startup [SROMEN-START] option"
^XMB(3.9,148,2,3151,0)="""PKG"",167,22,1,""PAH"",1,1,120,0)"
^XMB(3.9,148,2,3152,0)="   and the Operation (Short Screen) [SROMEN-OUT] option. Those two fields"
^XMB(3.9,148,2,3153,0)="""PKG"",167,22,1,""PAH"",1,1,121,0)"
^XMB(3.9,148,2,3154,0)="   and the HAIR REMOVAL BY field (#.12) are added to the Nurse"
^XMB(3.9,148,2,3155,0)="""PKG"",167,22,1,""PAH"",1,1,122,0)"
^XMB(3.9,148,2,3156,0)="   Intraoperative Report and became a mandatory documentation field to"
^XMB(3.9,148,2,3157,0)="""PKG"",167,22,1,""PAH"",1,1,123,0)"
^XMB(3.9,148,2,3158,0)="   satisfy the record review process for quality measurement purposes."
^XMB(3.9,148,2,3159,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,148,2,3160,0)="Y"
^XMB(3.9,148,2,3161,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,148,2,3162,0)="^D REP^XPDH"
^XMB(3.9,148,2,3163,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,148,2,3164,0)="Shall I write over your |FLAG| File"
^XMB(3.9,148,2,3165,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,148,2,3166,0)="YES"
^XMB(3.9,148,2,3167,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,148,2,3168,0)="D XPF1^XPDIQ"
^XMB(3.9,148,2,3169,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,148,2,3170,0)="Y"
^XMB(3.9,148,2,3171,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,148,2,3172,0)="^D DTA^XPDH"
^XMB(3.9,148,2,3173,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,148,2,3174,0)="Want my data |FLAG| yours"
^XMB(3.9,148,2,3175,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,148,2,3176,0)="YES"
^XMB(3.9,148,2,3177,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,148,2,3178,0)="D XPF2^XPDIQ"
^XMB(3.9,148,2,3179,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,148,2,3180,0)="YO"
^XMB(3.9,148,2,3181,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,148,2,3182,0)="^D INHIBIT^XPDH"
^XMB(3.9,148,2,3183,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,148,2,3184,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,148,2,3185,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,148,2,3186,0)="YES"
^XMB(3.9,148,2,3187,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,148,2,3188,0)="D XPI1^XPDIQ"
^XMB(3.9,148,2,3189,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,148,2,3190,0)="PO^VA(200,:EM"
^XMB(3.9,148,2,3191,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,148,2,3192,0)="^D MG^XPDH"
^XMB(3.9,148,2,3193,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,148,2,3194,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,148,2,3195,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,148,2,3196,0)=""
^XMB(3.9,148,2,3197,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,148,2,3198,0)="D XPM1^XPDIQ"
^XMB(3.9,148,2,3199,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,148,2,3200,0)="Y"
^XMB(3.9,148,2,3201,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,148,2,3202,0)="^D MENU^XPDH"
^XMB(3.9,148,2,3203,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,148,2,3204,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,148,2,3205,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,148,2,3206,0)="YES"
^XMB(3.9,148,2,3207,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,148,2,3208,0)="D XPO1^XPDIQ"
^XMB(3.9,148,2,3209,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,148,2,3210,0)="Y"
^XMB(3.9,148,2,3211,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,148,2,3212,0)="^D OPT^XPDH"
^XMB(3.9,148,2,3213,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,148,2,3214,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,148,2,3215,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,148,2,3216,0)="YES"
^XMB(3.9,148,2,3217,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,148,2,3218,0)="D XPZ1^XPDIQ"
^XMB(3.9,148,2,3219,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,148,2,3220,0)="Y"
^XMB(3.9,148,2,3221,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,148,2,3222,0)="^D RTN^XPDH"
^XMB(3.9,148,2,3223,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,148,2,3224,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,148,2,3225,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,148,2,3226,0)="NO"
^XMB(3.9,148,2,3227,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,148,2,3228,0)="D XPZ2^XPDIQ"
^XMB(3.9,148,2,3229,0)="""RTN"")"
^XMB(3.9,148,2,3230,0)="101"
^XMB(3.9,148,2,3231,0)="""RTN"",""SR153UTL"")"
^XMB(3.9,148,2,3232,0)="0^^B2199460^n/a"
^XMB(3.9,148,2,3233,0)="""RTN"",""SR153UTL"",1,0)"
^XMB(3.9,148,2,3234,0)="SR153UTL ;BIR/ADM - SR*3*153 UTILITY ROUTINE ;02/24/06"
^XMB(3.9,148,2,3235,0)="""RTN"",""SR153UTL"",2,0)"
^XMB(3.9,148,2,3236,0)=" ;;3.0; Surgery ;**153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,3237,0)="""RTN"",""SR153UTL"",3,0)"
^XMB(3.9,148,2,3238,0)=" Q"
^XMB(3.9,148,2,3239,0)="""RTN"",""SR153UTL"",4,0)"
^XMB(3.9,148,2,3240,0)="PRE ; pre-install action for SR*3*153"
^XMB(3.9,148,2,3241,0)="""RTN"",""SR153UTL"",5,0)"
^XMB(3.9,148,2,3242,0)=" ;"
^XMB(3.9,148,2,3243,0)="""RTN"",""SR153UTL"",6,0)"
^XMB(3.9,148,2,3244,0)=" ; delete data from file 136.5  and re-initialize file"
^XMB(3.9,148,2,3245,0)="""RTN"",""SR153UTL"",7,0)"
^XMB(3.9,148,2,3246,0)=" K ^SRO(136.5) S ^SRO(136.5,0)=""PERIOPERATIVE OCCURRENCE CATEGORY^136.5I^^"""
^XMB(3.9,148,2,3247,0)="""RTN"",""SR153UTL"",8,0)"
^XMB(3.9,148,2,3248,0)=" ;delete DD for modified field #202"
^XMB(3.9,148,2,3249,0)="""RTN"",""SR153UTL"",9,0)"
^XMB(3.9,148,2,3250,0)=" S DIK=""^DD(130,"",DA=202,DA(1)=130 D ^DIK"
^XMB(3.9,148,2,3251,0)="""RTN"",""SR153UTL"",10,0)"
^XMB(3.9,148,2,3252,0)=" Q"
^XMB(3.9,148,2,3253,0)="""RTN"",""SR153UTL"",11,0)"
^XMB(3.9,148,2,3254,0)="POST ; add ANION GAP to file 139.2"
^XMB(3.9,148,2,3255,0)="""RTN"",""SR153UTL"",12,0)"
^XMB(3.9,148,2,3256,0)=" N SRI"
^XMB(3.9,148,2,3257,0)="""RTN"",""SR153UTL"",13,0)"
^XMB(3.9,148,2,3258,0)=" I $G(^SRO(139.2,26,0))'=""ANION GAP"" D"
^XMB(3.9,148,2,3259,0)="""RTN"",""SR153UTL"",14,0)"
^XMB(3.9,148,2,3260,0)=" .S DA=26,DIK=""^SRO(139.2,"" D ^DIK"
^XMB(3.9,148,2,3261,0)="""RTN"",""SR153UTL"",15,0)"
^XMB(3.9,148,2,3262,0)=" .S ^SRO(139.2,26,0)=""ANION GAP"",^SRO(139.2,26,2)=72"
^XMB(3.9,148,2,3263,0)="""RTN"",""SR153UTL"",16,0)"
^XMB(3.9,148,2,3264,0)=" .S DIK=""^SRO(139.2,"",DIK(1)="".01"" D ENALL^DIK K DA,DIK"
^XMB(3.9,148,2,3265,0)="""RTN"",""SR153UTL"",17,0)"
^XMB(3.9,148,2,3266,0)=" ; add HEMOGLOBIN A1C to file 139.2"
^XMB(3.9,148,2,3267,0)="""RTN"",""SR153UTL"",18,0)"
^XMB(3.9,148,2,3268,0)=" I $G(^SRO(139.2,27,0))'=""HEMOGLOBIN A1C"" D"
^XMB(3.9,148,2,3269,0)="""RTN"",""SR153UTL"",19,0)"
^XMB(3.9,148,2,3270,0)=" .S DA=27,DIK=""^SRO(139.2,"" D ^DIK"
^XMB(3.9,148,2,3271,0)="""RTN"",""SR153UTL"",20,0)"
^XMB(3.9,148,2,3272,0)=" .S ^SRO(139.2,27,0)=""HEMOGLOBIN A1C"",^SRO(139.2,27,2)=70"
^XMB(3.9,148,2,3273,0)="""RTN"",""SR153UTL"",21,0)"
^XMB(3.9,148,2,3274,0)=" .S DIK=""^SRO(139.2,"",DIK(1)="".01"" D ENALL^DIK K DA,DIK"
^XMB(3.9,148,2,3275,0)="""RTN"",""SR153UTL"",22,0)"
^XMB(3.9,148,2,3276,0)=" ;"
^XMB(3.9,148,2,3277,0)="""RTN"",""SR153UTL"",23,0)"
^XMB(3.9,148,2,3278,0)=" ;VALVE REPAIR field (#370), convert any existing N's to '5' for NONE"
^XMB(3.9,148,2,3279,0)="""RTN"",""SR153UTL"",24,0)"
^XMB(3.9,148,2,3280,0)=" ;NUM OF PRIOR HEART SURGERIES (#352), convert any existing N's to '0' for NONE"
^XMB(3.9,148,2,3281,0)="""RTN"",""SR153UTL"",25,0)"
^XMB(3.9,148,2,3282,0)=" ;CURRENT SMOKER field (#202), existing data for CICSP in this field will be placed in CURRENT SMOKER (CARDIAC) field (#510)"
^XMB(3.9,148,2,3283,0)="""RTN"",""SR153UTL"",26,0)"
^XMB(3.9,148,2,3284,0)=" S SRTN=0 F  S SRTN=$O(^SRF(SRTN)) Q:'SRTN  D"
^XMB(3.9,148,2,3285,0)="""RTN"",""SR153UTL"",27,0)"
^XMB(3.9,148,2,3286,0)=" .I $P($G(^SRF(SRTN,207)),""^"",6)=""N"" S $P(^(207),""^"",6)=5"
^XMB(3.9,148,2,3287,0)="""RTN"",""SR153UTL"",28,0)"
^XMB(3.9,148,2,3288,0)=" .I $P($G(^SRF(SRTN,206)),""^"",15)=""N"" S $P(^(206),""^"",15)=0"
^XMB(3.9,148,2,3289,0)="""RTN"",""SR153UTL"",29,0)"
^XMB(3.9,148,2,3290,0)=" .S SRI=$P($G(^SRF(SRTN,200)),""^"",3) I SRI>0 S $P(^SRF(SRTN,200.1),""^"",5)=SRI,$P(^SRF(SRTN,200),""^"",3)="""""
^XMB(3.9,148,2,3291,0)="""RTN"",""SR153UTL"",30,0)"
^XMB(3.9,148,2,3292,0)=" Q"
^XMB(3.9,148,2,3293,0)="""RTN"",""SRENSCS"")"
^XMB(3.9,148,2,3294,0)="0^70^B7706764^B3397077"
^XMB(3.9,148,2,3295,0)="""RTN"",""SRENSCS"",1,0)"
^XMB(3.9,148,2,3296,0)="SRENSCS ;BIR/SJA - ENSURING CORRECT SURGERY ;04/26/04"
^XMB(3.9,148,2,3297,0)="""RTN"",""SRENSCS"",2,0)"
^XMB(3.9,148,2,3298,0)=" ;;3.0; Surgery ;**129,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,3299,0)="""RTN"",""SRENSCS"",3,0)"
^XMB(3.9,148,2,3300,0)=" ;"
^XMB(3.9,148,2,3301,0)="""RTN"",""SRENSCS"",4,0)"
^XMB(3.9,148,2,3302,0)=" ; entry point called by 'AIN' x-ref of the correct surgery fields"
^XMB(3.9,148,2,3303,0)="""RTN"",""SRENSCS"",5,0)"
^XMB(3.9,148,2,3304,0)="IN I X'=""N""!(X'=Y) Q"
^XMB(3.9,148,2,3305,0)="""RTN"",""SRENSCS"",6,0)"
^XMB(3.9,148,2,3306,0)=" N SRJ,SRK,SRTN1,SRYN S SRTN1=$S($D(SRTN):SRTN,1:DA) Q:'SRTN1"
^XMB(3.9,148,2,3307,0)="""RTN"",""SRENSCS"",7,0)"
^XMB(3.9,148,2,3308,0)=" S SRJ=$S(+DI=71:""3;82"",+DI=72:""4;83"",1:""5;84"")"
^XMB(3.9,148,2,3309,0)="""RTN"",""SRENSCS"",8,0)"
^XMB(3.9,148,2,3310,0)="ASK D EN^DDIOL(""Correct Surgery Comments should be entered when a """"NO"""" response is entered."",,""!!"")"
^XMB(3.9,148,2,3311,0)="""RTN"",""SRENSCS"",9,0)"
^XMB(3.9,148,2,3312,0)=" D FIELD^DID(""130.0""_$P(SRJ,"";"",2),.01,"""",""TITLE"",""SRK"")"
^XMB(3.9,148,2,3313,0)="""RTN"",""SRENSCS"",10,0)"
^XMB(3.9,148,2,3314,0)=" D EN^DDIOL(""Do you want to enter ""_SRK(""TITLE"")_"" ?  YES// "",,""!"")"
^XMB(3.9,148,2,3315,0)="""RTN"",""SRENSCS"",11,0)"
^XMB(3.9,148,2,3316,0)=" R SRYN:DTIME I '$T!(SRYN[""^"") Q"
^XMB(3.9,148,2,3317,0)="""RTN"",""SRENSCS"",12,0)"
^XMB(3.9,148,2,3318,0)=" S SRYN=$E(SRYN) S:SRYN="""" SRYN=""Y"" I SRYN[""?"" D HELP G ASK"
^XMB(3.9,148,2,3319,0)="""RTN"",""SRENSCS"",13,0)"
^XMB(3.9,148,2,3320,0)=" I ""YyNn""'[SRYN D EN^DDIOL(""Enter 'YES' to enter correct surgery comments now, 'NO' to quit, or '?' for more help."",,""!!"") G ASK"
^XMB(3.9,148,2,3321,0)="""RTN"",""SRENSCS"",14,0)"
^XMB(3.9,148,2,3322,0)=" I ""Nn""[SRYN Q"
^XMB(3.9,148,2,3323,0)="""RTN"",""SRENSCS"",15,0)"
^XMB(3.9,148,2,3324,0)=" ; edit the associated comments fields"
^XMB(3.9,148,2,3325,0)="""RTN"",""SRENSCS"",16,0)"
^XMB(3.9,148,2,3326,0)=" N DR,DIE,DA,DP,DC,DL,DE,DI,DIEL,DIETMP,DIFLD,DIP,DK,DM,DP,DQ,DU,DV,DW"
^XMB(3.9,148,2,3327,0)="""RTN"",""SRENSCS"",17,0)"
^XMB(3.9,148,2,3328,0)=" W ! S DIE=130,DA=SRTN1,DR=$P(SRJ,"";"",2)_""T"" D ^DIE"
^XMB(3.9,148,2,3329,0)="""RTN"",""SRENSCS"",18,0)"
^XMB(3.9,148,2,3330,0)=" Q"
^XMB(3.9,148,2,3331,0)="""RTN"",""SRENSCS"",19,0)"
^XMB(3.9,148,2,3332,0)="HELP D EN^DDIOL(""Enter 'YES' to enter correct surgery comments.  Enter 'NO' to quit without entering correct surgery comments."",,""!!"")"
^XMB(3.9,148,2,3333,0)="""RTN"",""SRENSCS"",20,0)"
^XMB(3.9,148,2,3334,0)=" Q"
^XMB(3.9,148,2,3335,0)="""RTN"",""SRENSCS"",21,0)"
^XMB(3.9,148,2,3336,0)="HR ;entry point called by 'AN' x-ref of the Sur Site Hair Removal Method field"
^XMB(3.9,148,2,3337,0)="""RTN"",""SRENSCS"",22,0)"
^XMB(3.9,148,2,3338,0)=" I X'=""S""&(X'=""O"") Q"
^XMB(3.9,148,2,3339,0)="""RTN"",""SRENSCS"",23,0)"
^XMB(3.9,148,2,3340,0)=" N SRTN1,SRYN,SRSEL S SRSEL=X,SRTN1=$S($D(SRTN):SRTN,1:DA) Q:'SRTN1"
^XMB(3.9,148,2,3341,0)="""RTN"",""SRENSCS"",24,0)"
^XMB(3.9,148,2,3342,0)="HRASK I SRSEL=""O"" D  G HRC"
^XMB(3.9,148,2,3343,0)="""RTN"",""SRENSCS"",25,0)"
^XMB(3.9,148,2,3344,0)=" .D EN^DDIOL(""Because OTHER has been selected, information must be entered into the comments"",,""!!"")"
^XMB(3.9,148,2,3345,0)="""RTN"",""SRENSCS"",26,0)"
^XMB(3.9,148,2,3346,0)=" .D EN^DDIOL(""field explaining the other technique."",,""!"")"
^XMB(3.9,148,2,3347,0)="""RTN"",""SRENSCS"",27,0)"
^XMB(3.9,148,2,3348,0)="SH D EN^DDIOL(""It has been determined that shaving the surgical site results in a greater"",,""!!"")"
^XMB(3.9,148,2,3349,0)="""RTN"",""SRENSCS"",28,0)"
^XMB(3.9,148,2,3350,0)=" D EN^DDIOL(""likelihood of infection. Current best practices suggest that clippers should"",,""!"")"
^XMB(3.9,148,2,3351,0)="""RTN"",""SRENSCS"",29,0)"
^XMB(3.9,148,2,3352,0)=" D EN^DDIOL(""be used instead of shaving. Whenever hair is removed by shaving, a comment must"",,""!"")"
^XMB(3.9,148,2,3353,0)="""RTN"",""SRENSCS"",30,0)"
^XMB(3.9,148,2,3354,0)=" D EN^DDIOL(""be entered explaining why this process was used instead of safer techniques."",,""!"")"
^XMB(3.9,148,2,3355,0)="""RTN"",""SRENSCS"",31,0)"
^XMB(3.9,148,2,3356,0)="HRC ; edit the associated comments fields"
^XMB(3.9,148,2,3357,0)="""RTN"",""SRENSCS"",32,0)"
^XMB(3.9,148,2,3358,0)=" N DR,DIE,DA,DP,DC,DL,DE,DI,DIEL,DIETMP,DIFLD,DIP,DK,DM,DP,DQ,DU,DV,DW"
^XMB(3.9,148,2,3359,0)="""RTN"",""SRENSCS"",33,0)"
^XMB(3.9,148,2,3360,0)=" W ! S DIE=130,DA=SRTN1,DR=508_""T"" D ^DIE"
^XMB(3.9,148,2,3361,0)="""RTN"",""SRENSCS"",34,0)"
^XMB(3.9,148,2,3362,0)=" Q"
^XMB(3.9,148,2,3363,0)="""RTN"",""SRO1L1"")"
^XMB(3.9,148,2,3364,0)="0^40^B13673029^B16661168"
^XMB(3.9,148,2,3365,0)="""RTN"",""SRO1L1"",1,0)"
^XMB(3.9,148,2,3366,0)="SRO1L1 ;BIR/ADM - UPDATE 1-LINER CASE, CONTINUED ;03/24/06"
^XMB(3.9,148,2,3367,0)="""RTN"",""SRO1L1"",2,0)"
^XMB(3.9,148,2,3368,0)=" ;;3.0; Surgery ;**86,88,100,129,142,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,3369,0)="""RTN"",""SRO1L1"",3,0)"
^XMB(3.9,148,2,3370,0)=" S SRSOUT=0,SRSUPCPT=2 D NCODE^SROAUTL"
^XMB(3.9,148,2,3371,0)="""RTN"",""SRO1L1"",4,0)"
^XMB(3.9,148,2,3372,0)=" N SRLCK S SRLCK=$$LOCK^SROUTL(SRTN) I 'SRLCK Q"
^XMB(3.9,148,2,3373,0)="""RTN"",""SRO1L1"",5,0)"
^XMB(3.9,148,2,3374,0)=" D SRA^SROES"
^XMB(3.9,148,2,3375,0)="""RTN"",""SRO1L1"",6,0)"
^XMB(3.9,148,2,3376,0)="EDIT S SRA=$G(^SRF(SRTN,""RA"")) I $P(SRA,""^"",2)=""N"",$P(SRA,""^"",6)=""N"",$P(SRA,""^"",7)'="""" D ^SROAEX,END Q"
^XMB(3.9,148,2,3377,0)="""RTN"",""SRO1L1"",7,0)"
^XMB(3.9,148,2,3378,0)=" S SRR=0 D TSTAT,HDR^SROAUTL D TECH^SROPRIN"
^XMB(3.9,148,2,3379,0)="""RTN"",""SRO1L1"",8,0)"
^XMB(3.9,148,2,3380,0)=" S X=$P(^SRF(SRTN,""OP""),""^"",2) I X S Y=$P($$CPT^ICPTCOD(X),""^"",2) D SSPRIN^SROCPT S SRCPT=Y"
^XMB(3.9,148,2,3381,0)="""RTN"",""SRO1L1"",9,0)"
^XMB(3.9,148,2,3382,0)=" S SRQ=0,SRDR="".011;.03;.04;.035;.166;1.09;1.13"""
^XMB(3.9,148,2,3383,0)="""RTN"",""SRO1L1"",10,0)"
^XMB(3.9,148,2,3384,0)=" S SRAO(1)=""In/Out-Patient Status^.011"",SRAO(2)=""Major or Minor^.03"",SRAO(3)=""Surgical Specialty^.04"",SRAO(4)=""Surgical Priority^.035"",SRAO(5)=""Attending Code^.166"""
^XMB(3.9,148,2,3385,0)="""RTN"",""SRO1L1"",11,0)"
^XMB(3.9,148,2,3386,0)=" S SRAO(6)=""ASA Class^1.13"",SRAO(7)=""Wound Classification^1.09"",SRAO(8)=""Anesthesia Technique^.37"",SRAO(9)=""CPT Codes (view only)^"",SRAO(10)=""Other Procedures^.42"""
^XMB(3.9,148,2,3387,0)="""RTN"",""SRO1L1"",12,0)"
^XMB(3.9,148,2,3388,0)=" K DA,DIC,DIQ,DR,SRY S DIC=""^SRF("",DA=SRTN,DIQ=""SRY"",DIQ(0)=""E"",DR=SRDR D EN^DIQ1 K DA,DIC,DIQ,DR"
^XMB(3.9,148,2,3389,0)="""RTN"",""SRO1L1"",13,0)"
^XMB(3.9,148,2,3390,0)=" S SRY(130,SRTN,.37,""E"")=SRTECH,SRY(130,SRTN,.42,""E"")=$S($O(^SRF(SRTN,13,0)):""***INFORMATION ENTERED***"",1:""***NONE ENTERED***""),SRY(130,SRTN,27,""E"")=SRCPT"
^XMB(3.9,148,2,3391,0)="""RTN"",""SRO1L1"",14,0)"
^XMB(3.9,148,2,3392,0)=" F I=1:1:10 W !,$J(I,2)_"". ""_$P(SRAO(I),""^"")_"":"" D"
^XMB(3.9,148,2,3393,0)="""RTN"",""SRO1L1"",15,0)"
^XMB(3.9,148,2,3394,0)=" .I I=9 D PROC Q"
^XMB(3.9,148,2,3395,0)="""RTN"",""SRO1L1"",16,0)"
^XMB(3.9,148,2,3396,0)=" .S SREXT(1)=SRY(130,SRTN,$P(SRAO(I),""^"",2),""E"") I $L(SREXT(1))>48 D"
^XMB(3.9,148,2,3397,0)="""RTN"",""SRO1L1"",17,0)"
^XMB(3.9,148,2,3398,0)=" ..N I,J,X,Y S X=SREXT(1) F I=0:1:47 S J=48-I,Y=$E(X,J) I Y="" "" S SREXT(1)=$E(X,1,J-1),SREXT(2)=$E(X,J+1,$L(X)) Q"
^XMB(3.9,148,2,3399,0)="""RTN"",""SRO1L1"",18,0)"
^XMB(3.9,148,2,3400,0)=" .W ?32,SREXT(1) W:$D(SREXT(2)) !,?32,SREXT(2) K SREXT"
^XMB(3.9,148,2,3401,0)="""RTN"",""SRO1L1"",19,0)"
^XMB(3.9,148,2,3402,0)=" W !! F I=1:1:80 W ""-"""
^XMB(3.9,148,2,3403,0)="""RTN"",""SRO1L1"",20,0)"
^XMB(3.9,148,2,3404,0)=" S SRX=10 D SEL"
^XMB(3.9,148,2,3405,0)="""RTN"",""SRO1L1"",21,0)"
^XMB(3.9,148,2,3406,0)=" K DA,DIK S DIK=""^SRF("",DIK(1)="".232^AQ"",DA=SRTN D EN1^DIK K DA,DIK"
^XMB(3.9,148,2,3407,0)="""RTN"",""SRO1L1"",22,0)"
^XMB(3.9,148,2,3408,0)=" G:SRR=1 EDIT"
^XMB(3.9,148,2,3409,0)="""RTN"",""SRO1L1"",23,0)"
^XMB(3.9,148,2,3410,0)="END D EXIT^SROES D:$G(SRLCK) UNLOCK^SROUTL(SRTN)"
^XMB(3.9,148,2,3411,0)="""RTN"",""SRO1L1"",24,0)"
^XMB(3.9,148,2,3412,0)=" Q"
^XMB(3.9,148,2,3413,0)="""RTN"",""SRO1L1"",25,0)"
^XMB(3.9,148,2,3414,0)="PROC N I,SRPROC,SRL S SRL=48 D CPTS^SROAUTL0"
^XMB(3.9,148,2,3415,0)="""RTN"",""SRO1L1"",26,0)"
^XMB(3.9,148,2,3416,0)=" F I=1:1 Q:'$D(SRPROC(I))  W:I=1 ?32,SRPROC(I) W:I'=1 !,?32,SRPROC(I)"
^XMB(3.9,148,2,3417,0)="""RTN"",""SRO1L1"",27,0)"
^XMB(3.9,148,2,3418,0)=" Q"
^XMB(3.9,148,2,3419,0)="""RTN"",""SRO1L1"",28,0)"
^XMB(3.9,148,2,3420,0)="SEL W !!,""Select number of item to edit: "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1 Q"
^XMB(3.9,148,2,3421,0)="""RTN"",""SRO1L1"",29,0)"
^XMB(3.9,148,2,3422,0)=" Q:X=""""  S:X=""a"" X=""A"" I '$D(SRAO(X)),(X'?.N1"":"".N),(X'=""A"") D HELP S SRR=1 Q"
^XMB(3.9,148,2,3423,0)="""RTN"",""SRO1L1"",30,0)"
^XMB(3.9,148,2,3424,0)=" I X?1.2N1"":""1.2N S Y=$P(X,"":""),Z=$P(X,"":"",2) I Y<1!(Z>SRX)!(Y>Z) D HELP S SRR=1 Q"
^XMB(3.9,148,2,3425,0)="""RTN"",""SRO1L1"",31,0)"
^XMB(3.9,148,2,3426,0)=" I X=""A"" S X=""1:""_SRX"
^XMB(3.9,148,2,3427,0)="""RTN"",""SRO1L1"",32,0)"
^XMB(3.9,148,2,3428,0)=" I X?1.2N1"":""1.2N D RANGE S SRR=1 Q"
^XMB(3.9,148,2,3429,0)="""RTN"",""SRO1L1"",33,0)"
^XMB(3.9,148,2,3430,0)=" I $D(SRAO(X)) S EMILY=X W !! D ONE S SRR=1"
^XMB(3.9,148,2,3431,0)="""RTN"",""SRO1L1"",34,0)"
^XMB(3.9,148,2,3432,0)=" Q"
^XMB(3.9,148,2,3433,0)="""RTN"",""SRO1L1"",35,0)"
^XMB(3.9,148,2,3434,0)="HELP W @IOF,!!!!,""Enter the number or range of numbers you want to edit. Examples of proper"""
^XMB(3.9,148,2,3435,0)="""RTN"",""SRO1L1"",36,0)"
^XMB(3.9,148,2,3436,0)=" W !,""responses are listed below."",!!,""1. Enter 'A' to update all items."""
^XMB(3.9,148,2,3437,0)="""RTN"",""SRO1L1"",37,0)"
^XMB(3.9,148,2,3438,0)=" W !!,""2. Enter a number (1-""_SRX_"") to update an individual item. (For example,"""
^XMB(3.9,148,2,3439,0)="""RTN"",""SRO1L1"",38,0)"
^XMB(3.9,148,2,3440,0)=" W !,""   enter '1' to update ""_$P(SRAO(1),""^"")_"")"""
^XMB(3.9,148,2,3441,0)="""RTN"",""SRO1L1"",39,0)"
^XMB(3.9,148,2,3442,0)=" W !!,""3. Enter a range of numbers (1-""_SRX_"") separated by a ':' to enter a range"""
^XMB(3.9,148,2,3443,0)="""RTN"",""SRO1L1"",40,0)"
^XMB(3.9,148,2,3444,0)=" W !,""   of items. (For example, enter '1:4' to update items 1, 2, 3 and 4.)"",!"
^XMB(3.9,148,2,3445,0)="""RTN"",""SRO1L1"",41,0)"
^XMB(3.9,148,2,3446,0)="PRESS W ! K DIR S DIR(0)=""E"" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1"
^XMB(3.9,148,2,3447,0)="""RTN"",""SRO1L1"",42,0)"
^XMB(3.9,148,2,3448,0)=" Q"
^XMB(3.9,148,2,3449,0)="""RTN"",""SRO1L1"",43,0)"
^XMB(3.9,148,2,3450,0)="RANGE ; range of numbers"
^XMB(3.9,148,2,3451,0)="""RTN"",""SRO1L1"",44,0)"
^XMB(3.9,148,2,3452,0)=" S SHEMP=$P(X,"":""),CURLEY=$P(X,"":"",2) F EMILY=SHEMP:1:CURLEY Q:SRSOUT  D ONE"
^XMB(3.9,148,2,3453,0)="""RTN"",""SRO1L1"",45,0)"
^XMB(3.9,148,2,3454,0)=" Q"
^XMB(3.9,148,2,3455,0)="""RTN"",""SRO1L1"",46,0)"
^XMB(3.9,148,2,3456,0)="ONE ; edit one item"
^XMB(3.9,148,2,3457,0)="""RTN"",""SRO1L1"",47,0)"
^XMB(3.9,148,2,3458,0)=" I EMILY=8 D UPANES Q"
^XMB(3.9,148,2,3459,0)="""RTN"",""SRO1L1"",48,0)"
^XMB(3.9,148,2,3460,0)=" I EMILY=9 D DISP^SROAUTL0 Q"
^XMB(3.9,148,2,3461,0)="""RTN"",""SRO1L1"",49,0)"
^XMB(3.9,148,2,3462,0)=" I EMILY=10 D ^SROTHER Q"
^XMB(3.9,148,2,3463,0)="""RTN"",""SRO1L1"",50,0)"
^XMB(3.9,148,2,3464,0)=" K DR,DIE S DA=SRTN,DR=$P(SRAO(EMILY),""^"",2)_""T"",DIE=130 D ^DIE K DR I $D(Y) S SRSOUT=1"
^XMB(3.9,148,2,3465,0)="""RTN"",""SRO1L1"",51,0)"
^XMB(3.9,148,2,3466,0)=" Q"
^XMB(3.9,148,2,3467,0)="""RTN"",""SRO1L1"",52,0)"
^XMB(3.9,148,2,3468,0)="UPANES K DR,DIE,DA S DA=SRTN,DR=.37,DR(2,130.06)="".01T;.05T;42T"",DIE=130 D ^DIE K DR"
^XMB(3.9,148,2,3469,0)="""RTN"",""SRO1L1"",53,0)"
^XMB(3.9,148,2,3470,0)=" Q"
^XMB(3.9,148,2,3471,0)="""RTN"",""SRO1L1"",54,0)"
^XMB(3.9,148,2,3472,0)="TSTAT ; transmission status"
^XMB(3.9,148,2,3473,0)="""RTN"",""SRO1L1"",55,0)"
^XMB(3.9,148,2,3474,0)=" N SR905 S SR905=$P($G(^SRF(SRTN,.4)),""^"",2)"
^XMB(3.9,148,2,3475,0)="""RTN"",""SRO1L1"",56,0)"
^XMB(3.9,148,2,3476,0)=" S SRHDR(.5)=""Transmission Status: ""_$S(SR905=""T"":""TRANSMITTED"",SR905=""R"":""QUEUED TO TRANSMIT"",1:""NOT QUEUED"")"
^XMB(3.9,148,2,3477,0)="""RTN"",""SRO1L1"",57,0)"
^XMB(3.9,148,2,3478,0)=" Q"
^XMB(3.9,148,2,3479,0)="""RTN"",""SROA30"")"
^XMB(3.9,148,2,3480,0)="0^11^B24202198^B24129006"
^XMB(3.9,148,2,3481,0)="""RTN"",""SROA30"",1,0)"
^XMB(3.9,148,2,3482,0)="SROA30 ;BIR/MAM - 30 DAY LETTERS AND MAIL MESSAGE ;01/26/06"
^XMB(3.9,148,2,3483,0)="""RTN"",""SROA30"",2,0)"
^XMB(3.9,148,2,3484,0)=" ;;3.0; Surgery ;**7,18,31,38,95,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,3485,0)="""RTN"",""SROA30"",3,0)"
^XMB(3.9,148,2,3486,0)=" S SRSOUT=0 W @IOF K DIR S DIR(""A"")=""Do you want to edit the text of the letter"",DIR(""B"")=""NO"",DIR(0)=""Y"" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) G END"
^XMB(3.9,148,2,3487,0)="""RTN"",""SROA30"",4,0)"
^XMB(3.9,148,2,3488,0)=" I Y S X=""Division: ""_SRSITE(""SITE"")_""  (""_SRSITE(""DIV"")_"")"" W @IOF,!,?(80-$L(X)\2),X,! K DA,DIE,DR S DA=SRSITE,DR=""31"",DIE=133 D ^DIE K DA,DIE,DR"
^XMB(3.9,148,2,3489,0)="""RTN"",""SROA30"",5,0)"
^XMB(3.9,148,2,3490,0)="ONE G:SRSOUT END W @IOF S DIR(""?"",1)=""Enter <RET> to select a patient and print the letter for a specific risk"",DIR(""?"")=""assessment, or 'NO' to print letters for a date range."""
^XMB(3.9,148,2,3491,0)="""RTN"",""SROA30"",6,0)"
^XMB(3.9,148,2,3492,0)=" S DIR(""A"")=""Do you want to print the letter for a specific assessment"",DIR(""B"")=""YES"",DIR(0)=""Y"" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1 G END"
^XMB(3.9,148,2,3493,0)="""RTN"",""SROA30"",7,0)"
^XMB(3.9,148,2,3494,0)=" I Y D ^SROASS S:'$D(SRTN) SRSOUT=1 G:SRSOUT END G IO"
^XMB(3.9,148,2,3495,0)="""RTN"",""SROA30"",8,0)"
^XMB(3.9,148,2,3496,0)=" S SRAMAN=1"
^XMB(3.9,148,2,3497,0)="""RTN"",""SROA30"",9,0)"
^XMB(3.9,148,2,3498,0)=" W !!,""This option will allow you to reprint the 30 day follow up letters for the date"",!,""that they were originally printed.  When printed automatically, the letters"",!,""print 25 days after the date of operation."""
^XMB(3.9,148,2,3499,0)="""RTN"",""SROA30"",10,0)"
^XMB(3.9,148,2,3500,0)="SDATE W !!,""Print letters for BEGINNING date: TODAY// "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1 G END"
^XMB(3.9,148,2,3501,0)="""RTN"",""SROA30"",11,0)"
^XMB(3.9,148,2,3502,0)=" I X[""?"" W !,""Enter the EARLIEST date for which you want letters printed."" S X=""?"",%DT=""E"" D ^%DT G SDATE"
^XMB(3.9,148,2,3503,0)="""RTN"",""SROA30"",12,0)"
^XMB(3.9,148,2,3504,0)=" S:X="""" X=""T"" S %DT=""E"" D ^%DT G SDATE:Y<1 S X1=Y,X2=-25 D C^%DTC S SRSTART=X"
^XMB(3.9,148,2,3505,0)="""RTN"",""SROA30"",13,0)"
^XMB(3.9,148,2,3506,0)="EDATE W !,""Print letters for ENDING date: TODAY// "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1 G END"
^XMB(3.9,148,2,3507,0)="""RTN"",""SROA30"",14,0)"
^XMB(3.9,148,2,3508,0)=" I X[""?"" W !,""Enter the LATEST date for which you want letters printed."" S X=""?"",%DT=""E"" D ^%DT G EDATE"
^XMB(3.9,148,2,3509,0)="""RTN"",""SROA30"",15,0)"
^XMB(3.9,148,2,3510,0)=" S:X="""" X=""T"" S %DT=""E"" D ^%DT G EDATE:Y<1 S X1=Y,X2=-25 D C^%DTC S SREND=X"
^XMB(3.9,148,2,3511,0)="""RTN"",""SROA30"",16,0)"
^XMB(3.9,148,2,3512,0)=" I SRSTART>SREND W !!,""The ENDING date must be later than the BEGINNING date.  Please try again."" G SDATE"
^XMB(3.9,148,2,3513,0)="""RTN"",""SROA30"",17,0)"
^XMB(3.9,148,2,3514,0)="IO I $D(SRTN),$P($G(^SRF(SRTN,30)),""^"") W !!,""The 30 Day Letter will not print because the case selected has been cancelled."",!!,""Press <RET> to continue "" R X:DTIME G END"
^XMB(3.9,148,2,3515,0)="""RTN"",""SROA30"",18,0)"
^XMB(3.9,148,2,3516,0)=" I $D(SRTN),'$P($G(^SRF(SRTN,.2)),""^"",12) W !!,""The 30 Day Letter will not print because for the case selected,"",!,""the field, TIME PATIENT OUT OF OR, has not been filled in."",!!,""Press <RET> to continue "" R X:DTIME G END"
^XMB(3.9,148,2,3517,0)="""RTN"",""SROA30"",19,0)"
^XMB(3.9,148,2,3518,0)=" I $D(SRTN),$P($G(^DPT(DFN,.35)),""^"") W !!,""The 30 Day Letter will not print because the patient has a date of death."",!!,""Press <RET> to continue "" R X:DTIME G END"
^XMB(3.9,148,2,3519,0)="""RTN"",""SROA30"",20,0)"
^XMB(3.9,148,2,3520,0)=" W ! K %ZIS,IO(""Q""),POP S %ZIS(""A"")=""Print 30 Day Letters on which Device: "",%ZIS=""Q"" D ^%ZIS I POP S SRSOUT=1 G END"
^XMB(3.9,148,2,3521,0)="""RTN"",""SROA30"",21,0)"
^XMB(3.9,148,2,3522,0)=" I $D(IO(""Q"")) K IO(""Q"") S ZTDESC=""Risk Assessment 30 Day Letters"",ZTSAVE(""SR*"")="""",ZTRTN=""BEG^SROA30"" D ^%ZTLOAD S SRSOUT=1 G END"
^XMB(3.9,148,2,3523,0)="""RTN"",""SROA30"",22,0)"
^XMB(3.9,148,2,3524,0)="BEG ; Entry point when manually queued"
^XMB(3.9,148,2,3525,0)="""RTN"",""SROA30"",23,0)"
^XMB(3.9,148,2,3526,0)=" U IO I $D(SRTN) D ^SROALET G END"
^XMB(3.9,148,2,3527,0)="""RTN"",""SROA30"",24,0)"
^XMB(3.9,148,2,3528,0)=" S SRSOUT=0,SRSDATE=SRSTART-.0001,SREND=SREND_"".9999"" F  S SRSDATE=$O(^SRF(""AC"",SRSDATE)) Q:'SRSDATE!(SRSDATE>SREND)!(SRSOUT)  D"
^XMB(3.9,148,2,3529,0)="""RTN"",""SROA30"",25,0)"
^XMB(3.9,148,2,3530,0)=" .S SRTN=0 F  S SRTN=$O(^SRF(""AC"",SRSDATE,SRTN)) Q:'SRTN  I $$DIV^SROUTL0(SRTN) D ^SROALET I '$D(SRAMAN),$D(VADM(1)) D MSG"
^XMB(3.9,148,2,3531,0)="""RTN"",""SROA30"",26,0)"
^XMB(3.9,148,2,3532,0)=" G END"
^XMB(3.9,148,2,3533,0)="""RTN"",""SROA30"",27,0)"
^XMB(3.9,148,2,3534,0)="EN ; Entry point when tasked daily"
^XMB(3.9,148,2,3535,0)="""RTN"",""SROA30"",28,0)"
^XMB(3.9,148,2,3536,0)=" Q:$G(IO)=""""  U IO S (SRSOUT,SRYN)=0"
^XMB(3.9,148,2,3537,0)="""RTN"",""SROA30"",29,0)"
^XMB(3.9,148,2,3538,0)=" S X1=DT,X2=-25 D C^%DTC S SRSDATE=X-.0001,SREND=X_"".9999"" F  S SRSDATE=$O(^SRF(""AC"",SRSDATE)) Q:'SRSDATE!(SRSDATE>SREND)!(SRSOUT)  D SRTN"
^XMB(3.9,148,2,3539,0)="""RTN"",""SROA30"",30,0)"
^XMB(3.9,148,2,3540,0)=" G END"
^XMB(3.9,148,2,3541,0)="""RTN"",""SROA30"",31,0)"
^XMB(3.9,148,2,3542,0)="SRTN I $D(ZTQUEUED) D ^SROSTOP I SRHALT S SRSOUT=1 Q"
^XMB(3.9,148,2,3543,0)="""RTN"",""SROA30"",32,0)"
^XMB(3.9,148,2,3544,0)=" S SRTN=0 F  S SRTN=$O(^SRF(""AC"",SRSDATE,SRTN)) Q:'SRTN  D ^SROALET I '$D(SRAMAN),$D(VADM(1)) D MSG"
^XMB(3.9,148,2,3545,0)="""RTN"",""SROA30"",33,0)"
^XMB(3.9,148,2,3546,0)=" Q"
^XMB(3.9,148,2,3547,0)="""RTN"",""SROA30"",34,0)"
^XMB(3.9,148,2,3548,0)="MSG S XMSUB=""RISK ASSESSMENT 30 DAY REMINDER FOR ""_VADM(1),XMDUZ=""SURGICAL CLINICAL NURSE REVIEWER"""
^XMB(3.9,148,2,3549,0)="""RTN"",""SROA30"",35,0)"
^XMB(3.9,148,2,3550,0)=" S Y=$P(^SRF(SRTN,0),""^"",9),SRADATE=$E(Y,4,5)_""/""_$E(Y,6,7)_""/""_$E(Y,2,3)"
^XMB(3.9,148,2,3551,0)="""RTN"",""SROA30"",36,0)"
^XMB(3.9,148,2,3552,0)=" S XMY(""G.RISK ASSESSMENT@""_^XMB(""NETNAME""))="""""
^XMB(3.9,148,2,3553,0)="""RTN"",""SROA30"",37,0)"
^XMB(3.9,148,2,3554,0)=" K SRAMSG S SRAMSG(1,0)="" "",SRAMSG(2,0)=""Assesment Number: ""_SRTN_""      Date of Operation: ""_SRADATE,SRAMSG(3,0)=""  "",SRAMSG(4,0)=SRNM,SRAMSG(5,0)=VAPA(1),SRCNT=6 I VAPA(2)'="""" D ADD"
^XMB(3.9,148,2,3555,0)="""RTN"",""SROA30"",38,0)"
^XMB(3.9,148,2,3556,0)=" S SRAMSG(SRCNT,0)=VAPA(4)_"", ""_STATE_"" ""_VAPA(6),SRCNT=SRCNT+1"
^XMB(3.9,148,2,3557,0)="""RTN"",""SROA30"",39,0)"
^XMB(3.9,148,2,3558,0)=" F I=SRCNT:1:SRCNT+3 S SRAMSG(I,0)=""   """
^XMB(3.9,148,2,3559,0)="""RTN"",""SROA30"",40,0)"
^XMB(3.9,148,2,3560,0)=" S SEX=$P(VADM(5),""^"")"
^XMB(3.9,148,2,3561,0)="""RTN"",""SROA30"",41,0)"
^XMB(3.9,148,2,3562,0)=" S SRAMSG(SRCNT+4,0)=""It has been 25 days since ""_SRNM_"" had ""_$S(SEX=""M"":""his"",SEX=""F"":""her"",1:""his"")_"" operation.  A follow-up "",SRAMSG(SRCNT+5,0)=""letter has been printed."""
^XMB(3.9,148,2,3563,0)="""RTN"",""SROA30"",42,0)"
^XMB(3.9,148,2,3564,0)=" S XMTEXT=""SRAMSG("" N I D ^XMD"
^XMB(3.9,148,2,3565,0)="""RTN"",""SROA30"",43,0)"
^XMB(3.9,148,2,3566,0)=" Q"
^XMB(3.9,148,2,3567,0)="""RTN"",""SROA30"",44,0)"
^XMB(3.9,148,2,3568,0)="END S SRPRINT=0 I $E(IOST)=""P"" S SRPRINT=1"
^XMB(3.9,148,2,3569,0)="""RTN"",""SROA30"",45,0)"
^XMB(3.9,148,2,3570,0)=" W:SRPRINT @IOF I $D(ZTQUEUED) Q:$G(ZTSTOP)  S ZTREQ=""@"" Q"
^XMB(3.9,148,2,3571,0)="""RTN"",""SROA30"",46,0)"
^XMB(3.9,148,2,3572,0)=" D ^%ZISC W @IOF D ^SRSKILL K SRTN,VAIN,VAINDT"
^XMB(3.9,148,2,3573,0)="""RTN"",""SROA30"",47,0)"
^XMB(3.9,148,2,3574,0)=" Q"
^XMB(3.9,148,2,3575,0)="""RTN"",""SROA30"",48,0)"
^XMB(3.9,148,2,3576,0)="ADD ; Lines 2 and 3 of street address"
^XMB(3.9,148,2,3577,0)="""RTN"",""SROA30"",49,0)"
^XMB(3.9,148,2,3578,0)=" S SRAMSG(6,0)=VAPA(2),SRCNT=7"
^XMB(3.9,148,2,3579,0)="""RTN"",""SROA30"",50,0)"
^XMB(3.9,148,2,3580,0)=" I VAPA(3)'="""" S SRAMSG(7,0)=VAPA(3),SRCNT=8"
^XMB(3.9,148,2,3581,0)="""RTN"",""SROA30"",51,0)"
^XMB(3.9,148,2,3582,0)=" Q"
^XMB(3.9,148,2,3583,0)="""RTN"",""SROACAR"")"
^XMB(3.9,148,2,3584,0)="0^42^B10623143^B10098864"
^XMB(3.9,148,2,3585,0)="""RTN"",""SROACAR"",1,0)"
^XMB(3.9,148,2,3586,0)="SROACAR ;BIR/MAM - OPEATIVE DATA ;03/29/06"
^XMB(3.9,148,2,3587,0)="""RTN"",""SROACAR"",2,0)"
^XMB(3.9,148,2,3588,0)=" ;;3.0; Surgery ;**38,71,93,95,100,125,142,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,3589,0)="""RTN"",""SROACAR"",3,0)"
^XMB(3.9,148,2,3590,0)=" I '$D(SRTN) W !!,""A Surgery Risk Assessment must be selected prior to using this option."",!!,""Press <RET> to continue  "" R X:DTIME G END"
^XMB(3.9,148,2,3591,0)="""RTN"",""SROACAR"",4,0)"
^XMB(3.9,148,2,3592,0)=" S SRACLR=0,SRSOUT=0,SRSUPCPT=1 D ^SROAUTL"
^XMB(3.9,148,2,3593,0)="""RTN"",""SROACAR"",5,0)"
^XMB(3.9,148,2,3594,0)="START D:SRACLR RET G:SRSOUT END S SRACLR=0 K SRA,SRAO D ^SROACR1"
^XMB(3.9,148,2,3595,0)="""RTN"",""SROACAR"",6,0)"
^XMB(3.9,148,2,3596,0)="ASK W !,""Select Operative Information to Edit: "" R X:DTIME I '$T!(""^""[X) G END"
^XMB(3.9,148,2,3597,0)="""RTN"",""SROACAR"",7,0)"
^XMB(3.9,148,2,3598,0)=" S:X=""a"" X=""A"" I '$D(SRAO(X)),(X'?.N1"":"".N),(X'=""A"") D HELP G:SRSOUT END G START"
^XMB(3.9,148,2,3599,0)="""RTN"",""SROACAR"",8,0)"
^XMB(3.9,148,2,3600,0)=" I X=""A"" S X=""1:22"""
^XMB(3.9,148,2,3601,0)="""RTN"",""SROACAR"",9,0)"
^XMB(3.9,148,2,3602,0)=" I X?.N1"":"".N S Y=$E(X),Z=$P(X,"":"",2) I Y<1!(Z>22)!(Y>Z) D HELP G:SRSOUT END G START"
^XMB(3.9,148,2,3603,0)="""RTN"",""SROACAR"",10,0)"
^XMB(3.9,148,2,3604,0)=" D HDR^SROAUTL"
^XMB(3.9,148,2,3605,0)="""RTN"",""SROACAR"",11,0)"
^XMB(3.9,148,2,3606,0)=" I X?.N1"":"".N D RANGE G START"
^XMB(3.9,148,2,3607,0)="""RTN"",""SROACAR"",12,0)"
^XMB(3.9,148,2,3608,0)=" I $D(SRAO(X)),+X=X S EMILY=X D  G START"
^XMB(3.9,148,2,3609,0)="""RTN"",""SROACAR"",13,0)"
^XMB(3.9,148,2,3610,0)=" .I $$LOCK^SROUTL(SRTN) W ! D ONE,UNLOCK^SROUTL(SRTN)"
^XMB(3.9,148,2,3611,0)="""RTN"",""SROACAR"",14,0)"
^XMB(3.9,148,2,3612,0)=" I $D(SRAO(X)) W ! S EMILY=X D  G START"
^XMB(3.9,148,2,3613,0)="""RTN"",""SROACAR"",15,0)"
^XMB(3.9,148,2,3614,0)=" .I $$LOCK^SROUTL(SRTN) D ONE,UNLOCK^SROUTL(SRTN)"
^XMB(3.9,148,2,3615,0)="""RTN"",""SROACAR"",16,0)"
^XMB(3.9,148,2,3616,0)="END I 'SRSOUT D ^SROACR2"
^XMB(3.9,148,2,3617,0)="""RTN"",""SROACAR"",17,0)"
^XMB(3.9,148,2,3618,0)=" W @IOF D ^SRSKILL"
^XMB(3.9,148,2,3619,0)="""RTN"",""SROACAR"",18,0)"
^XMB(3.9,148,2,3620,0)=" Q"
^XMB(3.9,148,2,3621,0)="""RTN"",""SROACAR"",19,0)"
^XMB(3.9,148,2,3622,0)="HELP W @IOF,!!!!,""Enter the number or range of numbers you want to edit.  Examples of proper"",!,""responses are listed below."""
^XMB(3.9,148,2,3623,0)="""RTN"",""SROACAR"",20,0)"
^XMB(3.9,148,2,3624,0)=" W !!,""1. Enter 'A' to update all information."",!!,""2. Enter a number (1-22) to update the information in that field.  (For"",!,""   example, enter '9' to update Valve Repair.)"""
^XMB(3.9,148,2,3625,0)="""RTN"",""SROACAR"",21,0)"
^XMB(3.9,148,2,3626,0)=" W !!,""3. Enter a range of numbers (1-22) separated by a ':' to enter a range of"",!,""   information.  (For example, enter '6:8' to enter Aortic Valve"",!,""   Replacement, Mitral Valve Replacement, and Tricuspid Valve Replacement.)"""
^XMB(3.9,148,2,3627,0)="""RTN"",""SROACAR"",22,0)"
^XMB(3.9,148,2,3628,0)=" D RET"
^XMB(3.9,148,2,3629,0)="""RTN"",""SROACAR"",23,0)"
^XMB(3.9,148,2,3630,0)=" Q"
^XMB(3.9,148,2,3631,0)="""RTN"",""SROACAR"",24,0)"
^XMB(3.9,148,2,3632,0)="RANGE ; range of numbers"
^XMB(3.9,148,2,3633,0)="""RTN"",""SROACAR"",25,0)"
^XMB(3.9,148,2,3634,0)=" I $$LOCK^SROUTL(SRTN) D  D UNLOCK^SROUTL(SRTN)"
^XMB(3.9,148,2,3635,0)="""RTN"",""SROACAR"",26,0)"
^XMB(3.9,148,2,3636,0)=" .W ! S SHEMP=$P(X,"":""),CURLEY=$P(X,"":"",2) F EMILY=SHEMP:1:CURLEY Q:SRSOUT  D ONE"
^XMB(3.9,148,2,3637,0)="""RTN"",""SROACAR"",27,0)"
^XMB(3.9,148,2,3638,0)=" Q"
^XMB(3.9,148,2,3639,0)="""RTN"",""SROACAR"",28,0)"
^XMB(3.9,148,2,3640,0)="ONE ; edit one item"
^XMB(3.9,148,2,3641,0)="""RTN"",""SROACAR"",29,0)"
^XMB(3.9,148,2,3642,0)=" ;I EMILY=16 D MIS^SROACR1 Q"
^XMB(3.9,148,2,3643,0)="""RTN"",""SROACAR"",30,0)"
^XMB(3.9,148,2,3644,0)=" I EMILY=22 D OPS Q"
^XMB(3.9,148,2,3645,0)="""RTN"",""SROACAR"",31,0)"
^XMB(3.9,148,2,3646,0)=" K DR,DIE S DA=SRTN,DR=$P(SRAO(EMILY),""^"",2)_""T"",DIE=130 D ^DIE K DR I $D(Y) S SRSOUT=1"
^XMB(3.9,148,2,3647,0)="""RTN"",""SROACAR"",32,0)"
^XMB(3.9,148,2,3648,0)=" I 'SRSOUT,EMILY=12!(EMILY=13) D OK"
^XMB(3.9,148,2,3649,0)="""RTN"",""SROACAR"",33,0)"
^XMB(3.9,148,2,3650,0)=" Q"
^XMB(3.9,148,2,3651,0)="""RTN"",""SROACAR"",34,0)"
^XMB(3.9,148,2,3652,0)="OK N SRISCH,SRCPB S X=$G(^SRF(SRTN,206)),SRISCH=$P(X,""^"",36),SRCPB=$P(X,""^"",37)"
^XMB(3.9,148,2,3653,0)="""RTN"",""SROACAR"",35,0)"
^XMB(3.9,148,2,3654,0)=" I SRISCH,SRCPB,SRISCH>SRCPB W !!,""  ***  NOTE: Ischemic Time is greater than CPB Time!!  Please check.  ***"",! D RET W !"
^XMB(3.9,148,2,3655,0)="""RTN"",""SROACAR"",36,0)"
^XMB(3.9,148,2,3656,0)=" Q"
^XMB(3.9,148,2,3657,0)="""RTN"",""SROACAR"",37,0)"
^XMB(3.9,148,2,3658,0)="RET Q:SRSOUT  W ! K DIR S DIR(0)=""E"" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1"
^XMB(3.9,148,2,3659,0)="""RTN"",""SROACAR"",38,0)"
^XMB(3.9,148,2,3660,0)=" Q"
^XMB(3.9,148,2,3661,0)="""RTN"",""SROACAR"",39,0)"
^XMB(3.9,148,2,3662,0)="OPS ; enter other cardiac procedures, specify"
^XMB(3.9,148,2,3663,0)="""RTN"",""SROACAR"",40,0)"
^XMB(3.9,148,2,3664,0)=" S DIE=130,DA=SRTN,DR=""502T"" D ^DIE K DR Q:$D(Y)"
^XMB(3.9,148,2,3665,0)="""RTN"",""SROACAR"",41,0)"
^XMB(3.9,148,2,3666,0)=" I X'=""Y"" K ^SRF(SRTN,209.1) Q"
^XMB(3.9,148,2,3667,0)="""RTN"",""SROACAR"",42,0)"
^XMB(3.9,148,2,3668,0)=" S DIE=130,DA=SRTN,DR=""484T"" D ^DIE K DR"
^XMB(3.9,148,2,3669,0)="""RTN"",""SROACAR"",43,0)"
^XMB(3.9,148,2,3670,0)=" Q"
^XMB(3.9,148,2,3671,0)="""RTN"",""SROACAT"")"
^XMB(3.9,148,2,3672,0)="0^43^B19181546^B8695359"
^XMB(3.9,148,2,3673,0)="""RTN"",""SROACAT"",1,0)"
^XMB(3.9,148,2,3674,0)="SROACAT ;BIR/MAM - CARDIAC CATH INFO ;04/13/04  3:00 PM"
^XMB(3.9,148,2,3675,0)="""RTN"",""SROACAT"",2,0)"
^XMB(3.9,148,2,3676,0)=" ;;3.0; Surgery ;**38,47,100,125,142,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,3677,0)="""RTN"",""SROACAT"",3,0)"
^XMB(3.9,148,2,3678,0)=" I '$D(SRTN) W !!,""A Surgery Risk Assessment must be selected prior to using this option."",!!,""Press <RET> to continue  "" R X:DTIME G END"
^XMB(3.9,148,2,3679,0)="""RTN"",""SROACAT"",4,0)"
^XMB(3.9,148,2,3680,0)=" S SRACLR=0,SRSOUT=0,SRSUPCPT=1 D ^SROAUTL"
^XMB(3.9,148,2,3681,0)="""RTN"",""SROACAT"",5,0)"
^XMB(3.9,148,2,3682,0)="START D:SRACLR RET G:SRSOUT END S SRACLR=0 D ^SROACTH"
^XMB(3.9,148,2,3683,0)="""RTN"",""SROACAT"",6,0)"
^XMB(3.9,148,2,3684,0)="ASK W !!,""Select Cardiac Catheterization and Angiographic Information to Edit: "" R X:DTIME I '$T!(""^""[X) G END"
^XMB(3.9,148,2,3685,0)="""RTN"",""SROACAT"",7,0)"
^XMB(3.9,148,2,3686,0)=" S:X=""a"" X=""A"" I '$D(SRAO(X)),(X'?.N1"":"".N),(X'=""A"") D HELP G:SRSOUT END G START"
^XMB(3.9,148,2,3687,0)="""RTN"",""SROACAT"",8,0)"
^XMB(3.9,148,2,3688,0)=" I X=""A"" S X=""1:8"""
^XMB(3.9,148,2,3689,0)="""RTN"",""SROACAT"",9,0)"
^XMB(3.9,148,2,3690,0)=" I X?.N1"":"".N S Y=$E(X),Z=$P(X,"":"",2) I Y<1!(Z>8)!(Y>Z) D HELP G:SRSOUT END G START"
^XMB(3.9,148,2,3691,0)="""RTN"",""SROACAT"",10,0)"
^XMB(3.9,148,2,3692,0)=" D HDR^SROAUTL"
^XMB(3.9,148,2,3693,0)="""RTN"",""SROACAT"",11,0)"
^XMB(3.9,148,2,3694,0)=" I X?.N1"":"".N D RANGE G START"
^XMB(3.9,148,2,3695,0)="""RTN"",""SROACAT"",12,0)"
^XMB(3.9,148,2,3696,0)=" I $D(SRAO(X)) S EMILY=X D  G START"
^XMB(3.9,148,2,3697,0)="""RTN"",""SROACAT"",13,0)"
^XMB(3.9,148,2,3698,0)=" .I $$LOCK^SROUTL(SRTN) W !! D ONE,UNLOCK^SROUTL(SRTN)"
^XMB(3.9,148,2,3699,0)="""RTN"",""SROACAT"",14,0)"
^XMB(3.9,148,2,3700,0)="END I 'SRSOUT D ^SROACTH1"
^XMB(3.9,148,2,3701,0)="""RTN"",""SROACAT"",15,0)"
^XMB(3.9,148,2,3702,0)=" I '$D(SREQST) W @IOF D ^SRSKILL"
^XMB(3.9,148,2,3703,0)="""RTN"",""SROACAT"",16,0)"
^XMB(3.9,148,2,3704,0)=" Q"
^XMB(3.9,148,2,3705,0)="""RTN"",""SROACAT"",17,0)"
^XMB(3.9,148,2,3706,0)="HELP W @IOF,!!!!,""Enter the number or range of numbers you want to edit.  Examples of proper"",!,""responses are listed below."""
^XMB(3.9,148,2,3707,0)="""RTN"",""SROACAT"",18,0)"
^XMB(3.9,148,2,3708,0)=" W !!,""1. Enter 'A' to update all information."",!!,""2. Enter a number (1-8) to update the information in that field.  (For"",!,""   example, enter '3' to update Aortic Systolic Pressure.)"""
^XMB(3.9,148,2,3709,0)="""RTN"",""SROACAT"",19,0)"
^XMB(3.9,148,2,3710,0)=" W !!,""3. Enter a range of numbers (1-8) separated by a ':' to enter a range of"",!,""   information.  (For example, enter '1:3' to update Procedure, LVEDP"",!,""   and Aortic Systolic Pressure.)"""
^XMB(3.9,148,2,3711,0)="""RTN"",""SROACAT"",20,0)"
^XMB(3.9,148,2,3712,0)=" W !!,""Press <RET> to continue, or '^' to quit  "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1"
^XMB(3.9,148,2,3713,0)="""RTN"",""SROACAT"",21,0)"
^XMB(3.9,148,2,3714,0)=" Q"
^XMB(3.9,148,2,3715,0)="""RTN"",""SROACAT"",22,0)"
^XMB(3.9,148,2,3716,0)="RANGE ; range of numbers"
^XMB(3.9,148,2,3717,0)="""RTN"",""SROACAT"",23,0)"
^XMB(3.9,148,2,3718,0)=" I $$LOCK^SROUTL(SRTN) D  D UNLOCK^SROUTL(SRTN)"
^XMB(3.9,148,2,3719,0)="""RTN"",""SROACAT"",24,0)"
^XMB(3.9,148,2,3720,0)=" .W !! S SHEMP=$P(X,"":""),CURLEY=$P(X,"":"",2) F EMILY=SHEMP:1:CURLEY Q:SRSOUT  D ONE"
^XMB(3.9,148,2,3721,0)="""RTN"",""SROACAT"",25,0)"
^XMB(3.9,148,2,3722,0)=" Q"
^XMB(3.9,148,2,3723,0)="""RTN"",""SROACAT"",26,0)"
^XMB(3.9,148,2,3724,0)="ONE ; edit one item"
^XMB(3.9,148,2,3725,0)="""RTN"",""SROACAT"",27,0)"
^XMB(3.9,148,2,3726,0)=" N SRB S:EMILY=1 SRB=$P($G(^SRF(SRTN,209)),""^"",4)"
^XMB(3.9,148,2,3727,0)="""RTN"",""SROACAT"",28,0)"
^XMB(3.9,148,2,3728,0)=" K DR,DIE S DA=SRTN,DR=$P(SRAO(EMILY),""^"",2)_""T"",DIE=130 D ^DIE K DR I $D(Y)!$D(DTOUT) S SRSOUT=1 Q"
^XMB(3.9,148,2,3729,0)="""RTN"",""SROACAT"",29,0)"
^XMB(3.9,148,2,3730,0)=" I EMILY=1 I SRB=""NS""&($P($G(^SRF(SRTN,209)),""^"",4)'=""NS"") D KAA"
^XMB(3.9,148,2,3731,0)="""RTN"",""SROACAT"",30,0)"
^XMB(3.9,148,2,3732,0)=" I EMILY=1 I ($P($G(^SRF(SRTN,209)),""^"",4)=""NS"") D ALL"
^XMB(3.9,148,2,3733,0)="""RTN"",""SROACAT"",31,0)"
^XMB(3.9,148,2,3734,0)=" Q"
^XMB(3.9,148,2,3735,0)="""RTN"",""SROACAT"",32,0)"
^XMB(3.9,148,2,3736,0)="RET Q:SRSOUT  W !!,""Press <RET> to continue, or '^' to quit  "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1 Q"
^XMB(3.9,148,2,3737,0)="""RTN"",""SROACAT"",33,0)"
^XMB(3.9,148,2,3738,0)=" Q"
^XMB(3.9,148,2,3739,0)="""RTN"",""SROACAT"",34,0)"
^XMB(3.9,148,2,3740,0)="ALL ; Entering NS for the procedure field should make all other fields in this Cath section default to NS also "
^XMB(3.9,148,2,3741,0)="""RTN"",""SROACAT"",35,0)"
^XMB(3.9,148,2,3742,0)=" K DIR S DIR(""A"")=""Do you want to automatically enter 'NS' for NO STUDY for all other fields within  this option "",DIR(""B"")=""YES"""
^XMB(3.9,148,2,3743,0)="""RTN"",""SROACAT"",36,0)"
^XMB(3.9,148,2,3744,0)=" S DIR(0)=""Y"",DIR(""?"",1)=""Enter """"YES"""" to allow the software to automatically enter 'NS' on all fields within  this option."",DIR(""?"")=""Enter """"NO"""" to only enter 'NS' in the Procedure Type field."""
^XMB(3.9,148,2,3745,0)="""RTN"",""SROACAT"",37,0)"
^XMB(3.9,148,2,3746,0)=" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT)!('Y) Q"
^XMB(3.9,148,2,3747,0)="""RTN"",""SROACAT"",38,0)"
^XMB(3.9,148,2,3748,0)=" K DIE,DR S DA=SRTN,DIE=130,DR=""357////""_""NS""_"";358////""_""NS""_"";359////""_""NS""_"";360////""_""NS""_"";363////""_""NS""_"";415////""_""NS""_"";477////""_""NS"""
^XMB(3.9,148,2,3749,0)="""RTN"",""SROACAT"",39,0)"
^XMB(3.9,148,2,3750,0)=" S DR=DR_"";361////""_""NS""_"";362.1////""_""NS""_"";362.2////""_""NS""_"";362.3////""_""NS""_"";478////""_""NS""_"";479////""_""NS""_"";480////""_""NS"""
^XMB(3.9,148,2,3751,0)="""RTN"",""SROACAT"",40,0)"
^XMB(3.9,148,2,3752,0)=" D ^DIE K DR"
^XMB(3.9,148,2,3753,0)="""RTN"",""SROACAT"",41,0)"
^XMB(3.9,148,2,3754,0)=" Q"
^XMB(3.9,148,2,3755,0)="""RTN"",""SROACAT"",42,0)"
^XMB(3.9,148,2,3756,0)="KAA ; if the value of the procedure type field is changed from NS to somthing else then prompt the user to delete the rest of the fields "
^XMB(3.9,148,2,3757,0)="""RTN"",""SROACAT"",43,0)"
^XMB(3.9,148,2,3758,0)=" N SRI K DIR W !,""You have changed the answer from """"NS""""."""
^XMB(3.9,148,2,3759,0)="""RTN"",""SROACAT"",44,0)"
^XMB(3.9,148,2,3760,0)=" S DIR(""A"")=""Do you want to clear 'NS' from all other fields within this option "",DIR(""B"")=""NO"""
^XMB(3.9,148,2,3761,0)="""RTN"",""SROACAT"",45,0)"
^XMB(3.9,148,2,3762,0)=" S DIR(0)=""Y"",DIR(""?"",1)=""Enter """"YES"""" to allow the software to automatically clear 'NS' from all fields within this option."",DIR(""?"")=""Enter """"NO"""" to only delete 'NS' in the Procedure Type field."""
^XMB(3.9,148,2,3763,0)="""RTN"",""SROACAT"",46,0)"
^XMB(3.9,148,2,3764,0)=" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT)!('Y) Q"
^XMB(3.9,148,2,3765,0)="""RTN"",""SROACAT"",47,0)"
^XMB(3.9,148,2,3766,0)=" K DIE,DR S DR="""",DA=SRTN F SRI=357,358,359,360,363,415,477,361,362.1,362.2,362.3,478,479,480 I $$GET1^DIQ(130,SRTN,SRI,""I"")=""NS"" S DR=DR_"";""_SRI_""///@"""
^XMB(3.9,148,2,3767,0)="""RTN"",""SROACAT"",48,0)"
^XMB(3.9,148,2,3768,0)=" S DR=$P(DR,"";"",2,20) I $L(DR)=0 K DR Q"
^XMB(3.9,148,2,3769,0)="""RTN"",""SROACAT"",49,0)"
^XMB(3.9,148,2,3770,0)=" S DIE=130 D ^DIE K DR"
^XMB(3.9,148,2,3771,0)="""RTN"",""SROACAT"",50,0)"
^XMB(3.9,148,2,3772,0)=" Q"
^XMB(3.9,148,2,3773,0)="""RTN"",""SROACL1"")"
^XMB(3.9,148,2,3774,0)="0^44^B26895969^B19221450"
^XMB(3.9,148,2,3775,0)="""RTN"",""SROACL1"",1,0)"
^XMB(3.9,148,2,3776,0)="SROACL1 ;BIR/MAM - CARDIAC PREOP CLINICAL DATA ;06/13/06"
^XMB(3.9,148,2,3777,0)="""RTN"",""SROACL1"",2,0)"
^XMB(3.9,148,2,3778,0)=" ;;3.0; Surgery ;**38,71,95,125,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,3779,0)="""RTN"",""SROACL1"",3,0)"
^XMB(3.9,148,2,3780,0)=" ;"
^XMB(3.9,148,2,3781,0)="""RTN"",""SROACL1"",4,0)"
^XMB(3.9,148,2,3782,0)=" ; Reference to EN1^GMRVUT0 supported by DBIA #1446"
^XMB(3.9,148,2,3783,0)="""RTN"",""SROACL1"",5,0)"
^XMB(3.9,148,2,3784,0)=" ;"
^XMB(3.9,148,2,3785,0)="""RTN"",""SROACL1"",6,0)"
^XMB(3.9,148,2,3786,0)=" F I=0,200,202,205,206,206.1,208,209,200.1 S SRA(I)=$G(^SRF(SRTN,I))"
^XMB(3.9,148,2,3787,0)="""RTN"",""SROACL1"",7,0)"
^XMB(3.9,148,2,3788,0)="HT N SRSD,SRED S SRED=$P(SRA(0),""^"",9)"
^XMB(3.9,148,2,3789,0)="""RTN"",""SROACL1"",8,0)"
^XMB(3.9,148,2,3790,0)=" I $P(SRA(206),""^"")="""" S SRSD=$$FMADD^XLFDT(SRED,-365),NYUK=$$HW(SRSD,SRED,""HT"") D"
^XMB(3.9,148,2,3791,0)="""RTN"",""SROACL1"",9,0)"
^XMB(3.9,148,2,3792,0)=" .I NYUK'="""" S NYUK=NYUK+.5\1,$P(^SRF(SRTN,206),""^"")=NYUK,SRA(206)=$G(^SRF(SRTN,206))"
^XMB(3.9,148,2,3793,0)="""RTN"",""SROACL1"",10,0)"
^XMB(3.9,148,2,3794,0)=" S NYUK=$P(SRA(206),""^"") S:NYUK'="""" NYUK=$S(NYUK[""C""!(NYUK[""c""):+NYUK_"" cm"",+NYUK=NYUK:+NYUK_"" in"",NYUK=""NS"":"" NS"",1:NYUK) S SRAO(1)=NYUK_""^236"""
^XMB(3.9,148,2,3795,0)="""RTN"",""SROACL1"",11,0)"
^XMB(3.9,148,2,3796,0)="WT I $P(SRA(206),""^"",2)="""" S SRSD=$$FMADD^XLFDT(SRED,-30),NYUK=$$HW(SRSD,SRED,""WT"") D"
^XMB(3.9,148,2,3797,0)="""RTN"",""SROACL1"",12,0)"
^XMB(3.9,148,2,3798,0)=" .I NYUK'="""" S NYUK=NYUK+.5\1,$P(^SRF(SRTN,206),""^"",2)=NYUK,SRA(206)=$G(^SRF(SRTN,206))"
^XMB(3.9,148,2,3799,0)="""RTN"",""SROACL1"",13,0)"
^XMB(3.9,148,2,3800,0)=" S NYUK=$P(SRA(206),""^"",2) S:NYUK'="""" NYUK=$S(NYUK[""K""!(NYUK[""k""):+NYUK_"" kg"",+NYUK=NYUK:+NYUK_"" lb"",NYUK=""NS"":"" NS"",1:NYUK) S SRAO(2)=NYUK_""^237"""
^XMB(3.9,148,2,3801,0)="""RTN"",""SROACL1"",14,0)"
^XMB(3.9,148,2,3802,0)=" K SRA(0) S NYUK=$P(SRA(209),""^"",3),SRAO(3)=$S(NYUK=""N"":""   NO"",NYUK=""D"":""  DIET"",NYUK=""O"":""  ORAL"",NYUK=""I"":"" INSULIN"",1:"""")_""^475"",NYUK=$P(SRA(200),""^"",11) D YN S SRAO(4)=SHEMP_""^203"""
^XMB(3.9,148,2,3803,0)="""RTN"",""SROACL1"",15,0)"
^XMB(3.9,148,2,3804,0)=" S SRAO(5)=$P(SRA(206),""^"",5)_""^347"",NYUK=$P(SRA(206),""^"",6) D YN S SRAO(6)=SHEMP_""^209"",NYUK=$P(SRA(206),""^"",7) D YN S SRAO(7)=SHEMP_""^348"""
^XMB(3.9,148,2,3805,0)="""RTN"",""SROACL1"",16,0)"
^XMB(3.9,148,2,3806,0)=" S Y=$P(SRA(200.1),""^"",5),C=$P(^DD(130,510,0),""^"",2) D Y^DIQ S SRAO(8)=$S(Y[""-"":$E($P(Y,""-"",2),1,19),1:$E(Y,1,19))_""^510"""
^XMB(3.9,148,2,3807,0)="""RTN"",""SROACL1"",17,0)"
^XMB(3.9,148,2,3808,0)=" S NYUK=$P(SRA(206),""^"",10) D YN S SRAO(9)=SHEMP_""^349"""
^XMB(3.9,148,2,3809,0)="""RTN"",""SROACL1"",18,0)"
^XMB(3.9,148,2,3810,0)=" S NYUK=$P(SRA(206),""^"",11) D YN S SRAO(10)=SHEMP_""^350"",NYUK=$P(SRA(200),""^"",8),SRAO(11)=$S(NYUK=1:""INDEPENDENT"",NYUK=2:""PARTIAL DEPENDENT"",NYUK=3:""TOTALLY DEPENDENT"",NYUK=""NS"":""NO STUDY"",1:"""")_""^240"""
^XMB(3.9,148,2,3811,0)="""RTN"",""SROACL1"",19,0)"
^XMB(3.9,148,2,3812,0)=" S NYUK=$P(SRA(206),""^"",13),SRAO(12)=$S(NYUK=0:""NONE    "",NYUK=1:""NONE RECENT"",NYUK=2:""12-72 HRS"",NYUK=3:""<12 hrs  "",NYUK=12:""12 - 72 hrs"",NYUK=72:"">72 hrs - 7 days"",NYUK=7:"">7 days  "",NYUK=""NS"":""NO STUDY"",1:"""")_""^351"""
^XMB(3.9,148,2,3813,0)="""RTN"",""SROACL1"",20,0)"
^XMB(3.9,148,2,3814,0)=" S NYUK=$P(SRA(206),""^"",14),SRAO(13)=$S(NYUK=0:""NONE"",NYUK=1:""< OR = 7 DAYS"",NYUK=2:""> 7 DAYS"",1:"""")_""^205"""
^XMB(3.9,148,2,3815,0)="""RTN"",""SROACL1"",21,0)"
^XMB(3.9,148,2,3816,0)=" S NYUK=$P(SRA(206),""^"",15) S SRAO(14)=$S(NYUK=0:""NONE"",NYUK="">"":"">3"",NYUK=""Y"":""YES"",NYUK=""N"":""NO"",1:NYUK)_""^352"""
^XMB(3.9,148,2,3817,0)="""RTN"",""SROACL1"",22,0)"
^XMB(3.9,148,2,3818,0)=" S SRAO(15)=$P(SRA(206),""^"",42)_""^485"""
^XMB(3.9,148,2,3819,0)="""RTN"",""SROACL1"",23,0)"
^XMB(3.9,148,2,3820,0)=" S NYUK=$P(SRA(206),""^"",16) D YN S SRAO(16)=SHEMP_""^265"",NYUK=$P(SRA(206),""^"",17) D YN S SRAO(17)=SHEMP_""^264"""
^XMB(3.9,148,2,3821,0)="""RTN"",""SROACL1"",24,0)"
^XMB(3.9,148,2,3822,0)=" S SRAO(18)=$P(SRA(206),""^"",18)_""^267"",SRAO(19)=$P(SRA(206),""^"",19)_""^207"",NYUK=$P(SRA(206),""^"",20) D YN S SRAO(20)=SHEMP_""^353"",NYUK=$P(SRA(206),""^"",21) D YN S SRAO(21)=SHEMP_""^354"""
^XMB(3.9,148,2,3823,0)="""RTN"",""SROACL1"",25,0)"
^XMB(3.9,148,2,3824,0)=" S NYUK=$P(SRA(206),""^"",22) D YN S SRAO(22)=SHEMP_""^355"""
^XMB(3.9,148,2,3825,0)="""RTN"",""SROACL1"",26,0)"
^XMB(3.9,148,2,3826,0)=" S NYUK=$P(SRA(209),""^"",2),SRAO(23)=$S(NYUK=""N"":""NONE"",NYUK=""I"":""IABP"",NYUK=""V"":""VAD"",NYUK=""O"":""OTHER"",1:"""")_""^474"""
^XMB(3.9,148,2,3827,0)="""RTN"",""SROACL1"",27,0)"
^XMB(3.9,148,2,3828,0)=" S NYUK=$P(SRA(206),""^"",38) D YN S SRAO(24)=SHEMP_""^463"""
^XMB(3.9,148,2,3829,0)="""RTN"",""SROACL1"",28,0)"
^XMB(3.9,148,2,3830,0)="DISP ; display fields"
^XMB(3.9,148,2,3831,0)="""RTN"",""SROACL1"",29,0)"
^XMB(3.9,148,2,3832,0)=" S SRPAGE=""PAGE: 1"" D HDR^SROAUTL"
^XMB(3.9,148,2,3833,0)="""RTN"",""SROACL1"",30,0)"
^XMB(3.9,148,2,3834,0)=" W !,"" 1. Height:"",?29,$P(SRAO(1),""^""),?41,""13. Prior MI: "",$J($P(SRAO(13),""^""),24)"
^XMB(3.9,148,2,3835,0)="""RTN"",""SROACL1"",31,0)"
^XMB(3.9,148,2,3836,0)=" W !,"" 2. Weight:"",?29,$P(SRAO(2),""^""),?41,""14. Number prior heart surgeries: "",?70,$P(SRAO(14),""^"")"
^XMB(3.9,148,2,3837,0)="""RTN"",""SROACL1"",32,0)"
^XMB(3.9,148,2,3838,0)=" W !,"" 3. Diabetes:"",?27,$P(SRAO(3),""^""),?41,""15. Prior heart surgeries:"" D H485"
^XMB(3.9,148,2,3839,0)="""RTN"",""SROACL1"",33,0)"
^XMB(3.9,148,2,3840,0)=" W !,"" 4. COPD:"",?30,$P(SRAO(4),""^""),?41,""16. Peripheral Vascular Disease:"",?75,$P(SRAO(16),""^"")"
^XMB(3.9,148,2,3841,0)="""RTN"",""SROACL1"",34,0)"
^XMB(3.9,148,2,3842,0)=" W !,"" 5. FEV1:"",?($S($P(SRAO(5),""^"")=""NS"":30,1:27)),$P(SRAO(5),""^"")_$S($P(SRAO(5),""^"")="""":"""",$P(SRAO(5),""^"")=""NS"":"""",1:"" liters""),?41,""17. Cerebral Vascular Disease:"",?75,$P(SRAO(17),""^"")"
^XMB(3.9,148,2,3843,0)="""RTN"",""SROACL1"",35,0)"
^XMB(3.9,148,2,3844,0)=" W !,"" 6. Cardiomegaly (X-ray):"",?30,$P(SRAO(6),""^""),?41,""18. Angina (use CCS Class):"",?75,$P(SRAO(18),""^"")"
^XMB(3.9,148,2,3845,0)="""RTN"",""SROACL1"",36,0)"
^XMB(3.9,148,2,3846,0)=" W !,"" 7. Pulmonary Rales:"",?30,$P(SRAO(7),""^""),?41,""19. CHF (use NYHA Class):"",?75,$P(SRAO(19),""^"")"
^XMB(3.9,148,2,3847,0)="""RTN"",""SROACL1"",37,0)"
^XMB(3.9,148,2,3848,0)=" W !,"" 8. Current Smoker: "",$J($P(SRAO(8),""^""),19),?41,""20. Current Diuretic Use:"",?75,$P(SRAO(20),""^"")"
^XMB(3.9,148,2,3849,0)="""RTN"",""SROACL1"",38,0)"
^XMB(3.9,148,2,3850,0)=" W !,"" 9. Active Endocarditis:"",?30,$P(SRAO(9),""^""),?41,""21. Current Digoxin Use:"",?75,$P(SRAO(21),""^"")"
^XMB(3.9,148,2,3851,0)="""RTN"",""SROACL1"",39,0)"
^XMB(3.9,148,2,3852,0)=" W !,""10. Resting ST Depression:"",?30,$P(SRAO(10),""^""),?41,""22. IV NTG within 48 Hours:"",?75,$P(SRAO(22),""^"")"
^XMB(3.9,148,2,3853,0)="""RTN"",""SROACL1"",40,0)"
^XMB(3.9,148,2,3854,0)=" W !,""11. Functional Status: "",$J($P(SRAO(11),""^""),17),?41,""23. Preop circulatory Device:"",?75,$P(SRAO(23),""^"")"
^XMB(3.9,148,2,3855,0)="""RTN"",""SROACL1"",41,0)"
^XMB(3.9,148,2,3856,0)=" W !,""12. PCI: "",$J($P(SRAO(12),""^""),29),?41,""24. Hypertension (Y/N):"",?75,$P(SRAO(24),""^"")"
^XMB(3.9,148,2,3857,0)="""RTN"",""SROACL1"",42,0)"
^XMB(3.9,148,2,3858,0)=" W !! F MOE=1:1:80 W ""-"""
^XMB(3.9,148,2,3859,0)="""RTN"",""SROACL1"",43,0)"
^XMB(3.9,148,2,3860,0)=" Q"
^XMB(3.9,148,2,3861,0)="""RTN"",""SROACL1"",44,0)"
^XMB(3.9,148,2,3862,0)="YN ; store answer"
^XMB(3.9,148,2,3863,0)="""RTN"",""SROACL1"",45,0)"
^XMB(3.9,148,2,3864,0)=" S SHEMP=$S(NYUK=""NS"":""NS"",NYUK=""N"":""NO"",NYUK=""Y"":""YES"",1:"""")"
^XMB(3.9,148,2,3865,0)="""RTN"",""SROACL1"",46,0)"
^XMB(3.9,148,2,3866,0)=" Q"
^XMB(3.9,148,2,3867,0)="""RTN"",""SROACL1"",47,0)"
^XMB(3.9,148,2,3868,0)="H485 S SHEMP="""",X=$P(SRAO(15),""^"") F I=1:1:$L(X,"","") D"
^XMB(3.9,148,2,3869,0)="""RTN"",""SROACL1"",48,0)"
^XMB(3.9,148,2,3870,0)=" .S C=$P(X,"","",I) S:I>1 SHEMP=SHEMP_"", "" S SHEMP=SHEMP_$S(C=0:""NONE"",C=1:""CABG-ONLY"",C=2:""VALVE-ONLY"",C=3:""CABG/VALVE"",C=4:""OTHER"",C=5:""CABG/OTHER"",1:"""")"
^XMB(3.9,148,2,3871,0)="""RTN"",""SROACL1"",49,0)"
^XMB(3.9,148,2,3872,0)=" ;"
^XMB(3.9,148,2,3873,0)="""RTN"",""SROACL1"",50,0)"
^XMB(3.9,148,2,3874,0)=" S X=SHEMP I $L(X)<12 W ?68,$J(X,11) Q"
^XMB(3.9,148,2,3875,0)="""RTN"",""SROACL1"",51,0)"
^XMB(3.9,148,2,3876,0)=" W ?68,$J($P(X,"","")_"","",11) I $L($P(X,"", "",2,9))<36 W !,?44,$P(X,"", "",2,9) Q"
^XMB(3.9,148,2,3877,0)="""RTN"",""SROACL1"",52,0)"
^XMB(3.9,148,2,3878,0)=" W !,?44,$P(X,"", "",2,4)_"","",!,?44,$P(X,"", "",5,9)"
^XMB(3.9,148,2,3879,0)="""RTN"",""SROACL1"",53,0)"
^XMB(3.9,148,2,3880,0)=" Q"
^XMB(3.9,148,2,3881,0)="""RTN"",""SROACL1"",54,0)"
^XMB(3.9,148,2,3882,0)="HW(SRSD,SRED,SVTYPE) ; get weight & height from Vitals"
^XMB(3.9,148,2,3883,0)="""RTN"",""SROACL1"",55,0)"
^XMB(3.9,148,2,3884,0)=" N GMRVSTR,SRTYPE,SRBCNT,SRBRDT,SRBIEN,SRBDATA,RESULTS"
^XMB(3.9,148,2,3885,0)="""RTN"",""SROACL1"",56,0)"
^XMB(3.9,148,2,3886,0)=" K ^UTILITY($J,""GMRVD""),RESULTS S GMRVSTR=SVTYPE,GMRVSTR(0)=SRSD_""^""_SRED_""^^"""
^XMB(3.9,148,2,3887,0)="""RTN"",""SROACL1"",57,0)"
^XMB(3.9,148,2,3888,0)=" D EN1^GMRVUT0 Q:'$D(^UTILITY($J,""GMRVD"")) """""
^XMB(3.9,148,2,3889,0)="""RTN"",""SROACL1"",58,0)"
^XMB(3.9,148,2,3890,0)=" S SRTYPE="""",SRBCNT=1 F  S SRTYPE=$O(^UTILITY($J,""GMRVD"",SRTYPE)) Q:SRTYPE=""""  D"
^XMB(3.9,148,2,3891,0)="""RTN"",""SROACL1"",59,0)"
^XMB(3.9,148,2,3892,0)=" .S SRBRDT=0 F  S SRBRDT=$O(^UTILITY($J,""GMRVD"",SRTYPE,SRBRDT)) Q:'SRBRDT  D"
^XMB(3.9,148,2,3893,0)="""RTN"",""SROACL1"",60,0)"
^XMB(3.9,148,2,3894,0)=" ..S SRBIEN=0 F  S SRBIEN=$O(^UTILITY($J,""GMRVD"",SRTYPE,SRBRDT,SRBIEN)) Q:'SRBIEN  D"
^XMB(3.9,148,2,3895,0)="""RTN"",""SROACL1"",61,0)"
^XMB(3.9,148,2,3896,0)=" ...S SRBDATA=$G(^UTILITY($J,""GMRVD"",SRTYPE,SRBRDT,SRBIEN))"
^XMB(3.9,148,2,3897,0)="""RTN"",""SROACL1"",62,0)"
^XMB(3.9,148,2,3898,0)=" ...S RESULTS(SRTYPE,SRBRDT)=$P(SRBDATA,""^"",1,2)_""^""_$P(SRBDATA,""^"",8),SRBCNT=SRBCNT+1"
^XMB(3.9,148,2,3899,0)="""RTN"",""SROACL1"",63,0)"
^XMB(3.9,148,2,3900,0)=" I $D(RESULTS(SVTYPE)) S SRI=$O(RESULTS(SVTYPE,0)) Q $P(RESULTS(SVTYPE,SRI),""^"",3)"
^XMB(3.9,148,2,3901,0)="""RTN"",""SROACL1"",64,0)"
^XMB(3.9,148,2,3902,0)=" Q """""
^XMB(3.9,148,2,3903,0)="""RTN"",""SROACOP"")"
^XMB(3.9,148,2,3904,0)="0^99^B19657223^B19945734"
^XMB(3.9,148,2,3905,0)="""RTN"",""SROACOP"",1,0)"
^XMB(3.9,148,2,3906,0)="SROACOP ;BIR/MAM - CARDIAC OPERATIVE RISK SUMMARY ;03/24/06"
^XMB(3.9,148,2,3907,0)="""RTN"",""SROACOP"",2,0)"
^XMB(3.9,148,2,3908,0)=" ;;3.0; Surgery ;**38,47,71,88,95,107,100,125,142,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,3909,0)="""RTN"",""SROACOP"",3,0)"
^XMB(3.9,148,2,3910,0)=" I '$D(SRTN) W !!,""A Surgery Risk Assessment must be selected prior to using this option."",!!,""Press <RET> to continue  "" R X:DTIME G END"
^XMB(3.9,148,2,3911,0)="""RTN"",""SROACOP"",4,0)"
^XMB(3.9,148,2,3912,0)=" S SRACLR=0,SRSOUT=0,SRSUPCPT=1 D ^SROAUTL"
^XMB(3.9,148,2,3913,0)="""RTN"",""SROACOP"",5,0)"
^XMB(3.9,148,2,3914,0)="START D:SRACLR RET G:SRSOUT END S SRACLR=0 K SRA,SRAO"
^XMB(3.9,148,2,3915,0)="""RTN"",""SROACOP"",6,0)"
^XMB(3.9,148,2,3916,0)=" F I=206,206.1,208 S SRA(I)=$G(^SRF(SRTN,I))"
^XMB(3.9,148,2,3917,0)="""RTN"",""SROACOP"",7,0)"
^XMB(3.9,148,2,3918,0)=" I $P(SRA(206),""^"",41)="""" K DA,DIE,DR S DA=SRTN,DIE=130,DR=""472////N"" D ^DIE K DA,DIE,DR S SRA(206)=$G(^SRF(SRTN,206))"
^XMB(3.9,148,2,3919,0)="""RTN"",""SROACOP"",8,0)"
^XMB(3.9,148,2,3920,0)=" S Y=$P($G(^SRF(SRTN,1.1)),""^"",3),C=$P(^DD(130,1.13,0),""^"",2) D:Y'="""" Y^DIQ S SRAO(2)=Y_""^1.13"""
^XMB(3.9,148,2,3921,0)="""RTN"",""SROACOP"",9,0)"
^XMB(3.9,148,2,3922,0)=" S SRAO(1)=$P(SRA(206),""^"",31)_""^364"",SRAO(3)=$P(SRA(208),""^"",12)_""^414"""
^XMB(3.9,148,2,3923,0)="""RTN"",""SROACOP"",10,0)"
^XMB(3.9,148,2,3924,0)=" S Y=$P(SRA(206),""^"",32) D DT S SRAO(""1A"")=X_""^364.1"""
^XMB(3.9,148,2,3925,0)="""RTN"",""SROACOP"",11,0)"
^XMB(3.9,148,2,3926,0)=" S Y=$P(SRAO(3),""^"") I Y'="""" S C=$P(^DD(130,414,0),""^"",2) D Y^DIQ S $P(SRAO(3),""^"")=Y"
^XMB(3.9,148,2,3927,0)="""RTN"",""SROACOP"",12,0)"
^XMB(3.9,148,2,3928,0)=" S Y=$P(SRA(208),""^"",13) D DT S SRAO(""3A"")=X_""^414.1"""
^XMB(3.9,148,2,3929,0)="""RTN"",""SROACOP"",13,0)"
^XMB(3.9,148,2,3930,0)=" S Y=$P($G(^SRF(SRTN,.2)),""^"",2) D DT S SRAO(4)=X_""^.22"""
^XMB(3.9,148,2,3931,0)="""RTN"",""SROACOP"",14,0)"
^XMB(3.9,148,2,3932,0)=" S Y=$P($G(^SRF(SRTN,.2)),""^"",3) D DT S SRAO(5)=X_""^.23"""
^XMB(3.9,148,2,3933,0)="""RTN"",""SROACOP"",15,0)"
^XMB(3.9,148,2,3934,0)=" S SRAO(6)=SRA(206.1)_""^430"""
^XMB(3.9,148,2,3935,0)="""RTN"",""SROACOP"",16,0)"
^XMB(3.9,148,2,3936,0)=" S SRPAGE=""PAGE: 1"" D HDR^SROAUTL S SRAO(7)="""""
^XMB(3.9,148,2,3937,0)="""RTN"",""SROACOP"",17,0)"
^XMB(3.9,148,2,3938,0)=" S X=$P(SRAO(1),""^""),X=$S(X?1.3N:X_""%"",1:X) W !,"" 1. Physician's Preoperative Estimate of Operative Mortality: ""_X"
^XMB(3.9,148,2,3939,0)="""RTN"",""SROACOP"",18,0)"
^XMB(3.9,148,2,3940,0)=" S X=$P(SRAO(""1A""),""^"") I X'="""" W !,?3,"" A. Date/Time Collected:    ""_X"
^XMB(3.9,148,2,3941,0)="""RTN"",""SROACOP"",19,0)"
^XMB(3.9,148,2,3942,0)=" W !,"" 2. ASA Classification:"",?31,$P(SRAO(2),""^""),!,"" 3. Surgical Priority:"",?31,$P(SRAO(3),""^"")"
^XMB(3.9,148,2,3943,0)="""RTN"",""SROACOP"",20,0)"
^XMB(3.9,148,2,3944,0)=" S X=$P(SRAO(""3A""),""^"") I X'="""" W !,?3,"" A. Date/Time Collected:    ""_X"
^XMB(3.9,148,2,3945,0)="""RTN"",""SROACOP"",21,0)"
^XMB(3.9,148,2,3946,0)=" W !,"" 4. Date/Time Operation Began:"",?31,$P(SRAO(4),""^""),!,"" 5. Date/Time Operation Ended:"",?31,$P(SRAO(5),""^"")"
^XMB(3.9,148,2,3947,0)="""RTN"",""SROACOP"",22,0)"
^XMB(3.9,148,2,3948,0)=" W !,"" 6. Preoperative Risk Factors: """
^XMB(3.9,148,2,3949,0)="""RTN"",""SROACOP"",23,0)"
^XMB(3.9,148,2,3950,0)=" I $P(SRAO(6),""^"")'="""" S SRQ=0 S X=$P(SRAO(6),""^"") W:$L(X)<49 X,! I $L(X)>48 S Z=$L(X) D"
^XMB(3.9,148,2,3951,0)="""RTN"",""SROACOP"",24,0)"
^XMB(3.9,148,2,3952,0)=" .I X'["" "" W ?25,X Q"
^XMB(3.9,148,2,3953,0)="""RTN"",""SROACOP"",25,0)"
^XMB(3.9,148,2,3954,0)=" .S I=0,LINE=1 F  S SRL=$S(LINE=1:48,1:80) D  Q:SRQ"
^XMB(3.9,148,2,3955,0)="""RTN"",""SROACOP"",26,0)"
^XMB(3.9,148,2,3956,0)=" ..I $E(X,1,SRL)'["" "" W X,! S SRQ=1 Q"
^XMB(3.9,148,2,3957,0)="""RTN"",""SROACOP"",27,0)"
^XMB(3.9,148,2,3958,0)=" ..S J=SRL-I,Y=$E(X,J),I=I+1 I Y="" "" W $E(X,1,J-1),! S X=$E(X,J+1,Z),Z=$L(X),I=0,LINE=LINE+1 I Z<SRL W X S SRQ=1 Q"
^XMB(3.9,148,2,3959,0)="""RTN"",""SROACOP"",28,0)"
^XMB(3.9,148,2,3960,0)=" N SRPROC,SRL S SRL=49 D CPTS^SROAUTL0 W !,"" 7. CPT Codes (view only):"""
^XMB(3.9,148,2,3961,0)="""RTN"",""SROACOP"",29,0)"
^XMB(3.9,148,2,3962,0)=" F I=1:1 Q:'$D(SRPROC(I))  W:I=1 ?31,SRPROC(I) W:I'=1 !,?31,SRPROC(I)"
^XMB(3.9,148,2,3963,0)="""RTN"",""SROACOP"",30,0)"
^XMB(3.9,148,2,3964,0)=" W !! F MOE=1:1:80 W ""-"""
^XMB(3.9,148,2,3965,0)="""RTN"",""SROACOP"",31,0)"
^XMB(3.9,148,2,3966,0)="ASK W !,""Select Operative Risk Summary Information to Edit: "" R X:DTIME I '$T!(""^""[X) G END"
^XMB(3.9,148,2,3967,0)="""RTN"",""SROACOP"",32,0)"
^XMB(3.9,148,2,3968,0)=" S:X=""a"" X=""A"" I '$D(SRAO(X)),(X'?.N1"":"".N),(X'=""A"") D HELP G:SRSOUT END G START"
^XMB(3.9,148,2,3969,0)="""RTN"",""SROACOP"",33,0)"
^XMB(3.9,148,2,3970,0)=" I X=""A"" S X=""1:7"""
^XMB(3.9,148,2,3971,0)="""RTN"",""SROACOP"",34,0)"
^XMB(3.9,148,2,3972,0)=" I X?.N1"":"".N S Y=$E(X),Z=$P(X,"":"",2) I Y<1!(Z>7)!(Y>Z) D HELP G:SRSOUT END G START"
^XMB(3.9,148,2,3973,0)="""RTN"",""SROACOP"",35,0)"
^XMB(3.9,148,2,3974,0)=" I X'=7 D HDR^SROAUTL"
^XMB(3.9,148,2,3975,0)="""RTN"",""SROACOP"",36,0)"
^XMB(3.9,148,2,3976,0)=" I X?.N1"":"".N D RANGE S SROERR=SRTN D ^SROERR0 G START"
^XMB(3.9,148,2,3977,0)="""RTN"",""SROACOP"",37,0)"
^XMB(3.9,148,2,3978,0)=" I $D(SRAO(X))!(X=6) S EMILY=X D  S SROERR=SRTN D ^SROERR0 G START"
^XMB(3.9,148,2,3979,0)="""RTN"",""SROACOP"",38,0)"
^XMB(3.9,148,2,3980,0)=" .I $$LOCK^SROUTL(SRTN) W !! D ONE,UNLOCK^SROUTL(SRTN)"
^XMB(3.9,148,2,3981,0)="""RTN"",""SROACOP"",39,0)"
^XMB(3.9,148,2,3982,0)="END I '$D(SREQST) W @IOF D ^SRSKILL"
^XMB(3.9,148,2,3983,0)="""RTN"",""SROACOP"",40,0)"
^XMB(3.9,148,2,3984,0)=" Q"
^XMB(3.9,148,2,3985,0)="""RTN"",""SROACOP"",41,0)"
^XMB(3.9,148,2,3986,0)="DT I 'Y S X="""" Q"
^XMB(3.9,148,2,3987,0)="""RTN"",""SROACOP"",42,0)"
^XMB(3.9,148,2,3988,0)=" X ^DD(""DD"") S X=$P(Y,""@"")_"" ""_$P(Y,""@"",2)"
^XMB(3.9,148,2,3989,0)="""RTN"",""SROACOP"",43,0)"
^XMB(3.9,148,2,3990,0)=" Q"
^XMB(3.9,148,2,3991,0)="""RTN"",""SROACOP"",44,0)"
^XMB(3.9,148,2,3992,0)="HELP W @IOF,!!!!,""Enter the number or range of numbers you want to edit.  Examples of proper"",!,""responses are listed below."""
^XMB(3.9,148,2,3993,0)="""RTN"",""SROACOP"",45,0)"
^XMB(3.9,148,2,3994,0)=" W !!,""1. Enter 'A' to update all information."",!!,""2. Enter the corresponding number to update the information in a particular"",!,""   field.  (For example, enter '3' to update Surgical Priority)"""
^XMB(3.9,148,2,3995,0)="""RTN"",""SROACOP"",46,0)"
^XMB(3.9,148,2,3996,0)=" W !!,""3. Enter two numbers separated by a ':' to enter a range of information."",!,""   (For example, enter '1:2' to update Physician's Preoperative Estimate of"",!,""   Mortality and ASA Classification.)"""
^XMB(3.9,148,2,3997,0)="""RTN"",""SROACOP"",47,0)"
^XMB(3.9,148,2,3998,0)=" W !!,""Press ENTER to continue, or '^' to quit  "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1"
^XMB(3.9,148,2,3999,0)="""RTN"",""SROACOP"",48,0)"
^XMB(3.9,148,2,4000,0)=" Q"
^XMB(3.9,148,2,4001,0)="""RTN"",""SROACOP"",49,0)"
^XMB(3.9,148,2,4002,0)="RANGE ; range of numbers"
^XMB(3.9,148,2,4003,0)="""RTN"",""SROACOP"",50,0)"
^XMB(3.9,148,2,4004,0)=" I $$LOCK^SROUTL(SRTN) D  D UNLOCK^SROUTL(SRTN)"
^XMB(3.9,148,2,4005,0)="""RTN"",""SROACOP"",51,0)"
^XMB(3.9,148,2,4006,0)=" .W !! S SHEMP=$P(X,"":""),CURLEY=$P(X,"":"",2) F EMILY=SHEMP:1:CURLEY Q:SRSOUT  D ONE"
^XMB(3.9,148,2,4007,0)="""RTN"",""SROACOP"",52,0)"
^XMB(3.9,148,2,4008,0)=" Q"
^XMB(3.9,148,2,4009,0)="""RTN"",""SROACOP"",53,0)"
^XMB(3.9,148,2,4010,0)="ONE ; edit one item"
^XMB(3.9,148,2,4011,0)="""RTN"",""SROACOP"",54,0)"
^XMB(3.9,148,2,4012,0)=" I EMILY=7 D DISP^SROAUTL0 Q"
^XMB(3.9,148,2,4013,0)="""RTN"",""SROACOP"",55,0)"
^XMB(3.9,148,2,4014,0)=" K DR,DIE S DA=SRTN,DIE=130,DR=$P(SRAO(EMILY),""^"",2)"
^XMB(3.9,148,2,4015,0)="""RTN"",""SROACOP"",56,0)"
^XMB(3.9,148,2,4016,0)=" S DR=DR_""T"",DIE=130 S DR=DR_$S(EMILY=1:"";364.1T"",EMILY=3:"";414.1T"",1:"""") D ^DIE K DR I $D(Y) S SRSOUT=1"
^XMB(3.9,148,2,4017,0)="""RTN"",""SROACOP"",57,0)"
^XMB(3.9,148,2,4018,0)=" Q"
^XMB(3.9,148,2,4019,0)="""RTN"",""SROACOP"",58,0)"
^XMB(3.9,148,2,4020,0)="RET Q:SRSOUT  W !!,""Press ENTER to continue, or '^' to quit  "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1 Q"
^XMB(3.9,148,2,4021,0)="""RTN"",""SROACOP"",59,0)"
^XMB(3.9,148,2,4022,0)=" Q"
^XMB(3.9,148,2,4023,0)="""RTN"",""SROACOP"",60,0)"
^XMB(3.9,148,2,4024,0)="NOW ; update date/time of estimate of mortality"
^XMB(3.9,148,2,4025,0)="""RTN"",""SROACOP"",61,0)"
^XMB(3.9,148,2,4026,0)=" N X D NOW^%DTC S $P(^SRF(DA,206),""^"",32)=$E(%,1,12)"
^XMB(3.9,148,2,4027,0)="""RTN"",""SROACOP"",62,0)"
^XMB(3.9,148,2,4028,0)=" Q"
^XMB(3.9,148,2,4029,0)="""RTN"",""SROACOP"",63,0)"
^XMB(3.9,148,2,4030,0)="KNOW ; delete date/time of estimate of mortality"
^XMB(3.9,148,2,4031,0)="""RTN"",""SROACOP"",64,0)"
^XMB(3.9,148,2,4032,0)=" S $P(^SRF(DA,206),""^"",32)="""""
^XMB(3.9,148,2,4033,0)="""RTN"",""SROACOP"",65,0)"
^XMB(3.9,148,2,4034,0)=" Q"
^XMB(3.9,148,2,4035,0)="""RTN"",""SROACOP"",66,0)"
^XMB(3.9,148,2,4036,0)="YN ; store answer"
^XMB(3.9,148,2,4037,0)="""RTN"",""SROACOP"",67,0)"
^XMB(3.9,148,2,4038,0)=" S SHEMP=$S(NYUK=""NS"":""Unknown"",NYUK=""N"":""NO"",NYUK=""Y"":""YES"",1:"""")"
^XMB(3.9,148,2,4039,0)="""RTN"",""SROACOP"",68,0)"
^XMB(3.9,148,2,4040,0)=" Q"
^XMB(3.9,148,2,4041,0)="""RTN"",""SROACPM1"")"
^XMB(3.9,148,2,4042,0)="0^45^B14126949^B13730377"
^XMB(3.9,148,2,4043,0)="""RTN"",""SROACPM1"",1,0)"
^XMB(3.9,148,2,4044,0)="SROACPM1 ;BIR/SJA - LAB INFO ;05/04/06"
^XMB(3.9,148,2,4045,0)="""RTN"",""SROACPM1"",2,0)"
^XMB(3.9,148,2,4046,0)=" ;;3.0; Surgery ;**125,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,4047,0)="""RTN"",""SROACPM1"",3,0)"
^XMB(3.9,148,2,4048,0)=" I '$D(SRTN) W !!,""A Surgery Risk Assessment must be selected prior to using this option."",!!,""Press <RET> to continue  "" R X:DTIME G END"
^XMB(3.9,148,2,4049,0)="""RTN"",""SROACPM1"",4,0)"
^XMB(3.9,148,2,4050,0)=" S SRSOUT=0 D ^SROAUTL"
^XMB(3.9,148,2,4051,0)="""RTN"",""SROACPM1"",5,0)"
^XMB(3.9,148,2,4052,0)="START G:SRSOUT END K SRA,SRAO D ^SROACPM2,DISP"
^XMB(3.9,148,2,4053,0)="""RTN"",""SROACPM1"",6,0)"
^XMB(3.9,148,2,4054,0)="ASK W !!,""Select Laboratory Information to Edit: "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1 D CONCC G END"
^XMB(3.9,148,2,4055,0)="""RTN"",""SROACPM1"",7,0)"
^XMB(3.9,148,2,4056,0)=" I X="""" D CONCC G END"
^XMB(3.9,148,2,4057,0)="""RTN"",""SROACPM1"",8,0)"
^XMB(3.9,148,2,4058,0)=" S:X=""a"" X=""A"" I '$D(SRAO(X)),(X'?.N1"":"".N),(X'=""A"") D HELP G:SRSOUT END G START"
^XMB(3.9,148,2,4059,0)="""RTN"",""SROACPM1"",9,0)"
^XMB(3.9,148,2,4060,0)=" I X=""A"" S X=""1:10"""
^XMB(3.9,148,2,4061,0)="""RTN"",""SROACPM1"",10,0)"
^XMB(3.9,148,2,4062,0)=" I X?.N1"":"".N S Y=$E(X),Z=$P(X,"":"",2) I Y<1!(Z>10)!(Y>Z) D HELP G:SRSOUT END G START"
^XMB(3.9,148,2,4063,0)="""RTN"",""SROACPM1"",11,0)"
^XMB(3.9,148,2,4064,0)=" S SRPAGE="""" D HDR^SROAUTL"
^XMB(3.9,148,2,4065,0)="""RTN"",""SROACPM1"",12,0)"
^XMB(3.9,148,2,4066,0)=" I X?.N1"":"".N D RANGE G START"
^XMB(3.9,148,2,4067,0)="""RTN"",""SROACPM1"",13,0)"
^XMB(3.9,148,2,4068,0)=" I $D(SRAO(X)) S EMILY=X D ONE G START"
^XMB(3.9,148,2,4069,0)="""RTN"",""SROACPM1"",14,0)"
^XMB(3.9,148,2,4070,0)="END W @IOF"
^XMB(3.9,148,2,4071,0)="""RTN"",""SROACPM1"",15,0)"
^XMB(3.9,148,2,4072,0)=" Q"
^XMB(3.9,148,2,4073,0)="""RTN"",""SROACPM1"",16,0)"
^XMB(3.9,148,2,4074,0)="HELP W @IOF,!!!!,""Enter the number or range of numbers you want to edit.  Examples of proper"",!,""responses are listed below."""
^XMB(3.9,148,2,4075,0)="""RTN"",""SROACPM1"",17,0)"
^XMB(3.9,148,2,4076,0)=" W !!,""1. Enter 'A' to update all information."",!!,""2. Enter a number (1-10) to update the information in that field.  (For"",!,""   example, enter '7' to update Serum Creatinine)"""
^XMB(3.9,148,2,4077,0)="""RTN"",""SROACPM1"",18,0)"
^XMB(3.9,148,2,4078,0)=" W !!,""3. Enter a range of numbers (1-10) separated by a ':' to enter a range of"",!,""   information.  (For example, enter '5:7' to update Serum Potassium,"",!,""   Serum Bilirubin, and Serum Creatinine)"""
^XMB(3.9,148,2,4079,0)="""RTN"",""SROACPM1"",19,0)"
^XMB(3.9,148,2,4080,0)=" W !!,""Press <RET> to continue, or '^' to quit  "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1"
^XMB(3.9,148,2,4081,0)="""RTN"",""SROACPM1"",20,0)"
^XMB(3.9,148,2,4082,0)=" Q"
^XMB(3.9,148,2,4083,0)="""RTN"",""SROACPM1"",21,0)"
^XMB(3.9,148,2,4084,0)="RANGE ; range of numbers"
^XMB(3.9,148,2,4085,0)="""RTN"",""SROACPM1"",22,0)"
^XMB(3.9,148,2,4086,0)=" S SRNOMORE=0,SHEMP=$P(X,"":""),CURLEY=$P(X,"":"",2) F EMILY=SHEMP:1:CURLEY Q:SRNOMORE  D ONE"
^XMB(3.9,148,2,4087,0)="""RTN"",""SROACPM1"",23,0)"
^XMB(3.9,148,2,4088,0)=" Q"
^XMB(3.9,148,2,4089,0)="""RTN"",""SROACPM1"",24,0)"
^XMB(3.9,148,2,4090,0)="ONE ; edit one item"
^XMB(3.9,148,2,4091,0)="""RTN"",""SROACPM1"",25,0)"
^XMB(3.9,148,2,4092,0)=" K DR,DIE S DA=SRTN,DR=$P(SRAO(EMILY),""^"",3)_""T;""_$P(SRAO(EMILY),""^"",4)_""T"",DIE=130 D ^DIE S:$D(Y) SRNOMORE=1 K DR"
^XMB(3.9,148,2,4093,0)="""RTN"",""SROACPM1"",26,0)"
^XMB(3.9,148,2,4094,0)=" Q"
^XMB(3.9,148,2,4095,0)="""RTN"",""SROACPM1"",27,0)"
^XMB(3.9,148,2,4096,0)="RET Q:SRSOUT  W !!,""Press <RET> to continue, or '^' to quit  "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1 Q"
^XMB(3.9,148,2,4097,0)="""RTN"",""SROACPM1"",28,0)"
^XMB(3.9,148,2,4098,0)=" Q"
^XMB(3.9,148,2,4099,0)="""RTN"",""SROACPM1"",29,0)"
^XMB(3.9,148,2,4100,0)="DISP S SRPAGE=""PAGE: 1"",SRHDR(.5)=""PREOPERATIVE LABORATORY RESULTS"" D HDR^SROAUTL"
^XMB(3.9,148,2,4101,0)="""RTN"",""SROACPM1"",30,0)"
^XMB(3.9,148,2,4102,0)=" W !,"" 1. HDL:"",?25,$J($P(SRAO(1),""^""),6),?35,$P(SRAO(1),""^"",2)"
^XMB(3.9,148,2,4103,0)="""RTN"",""SROACPM1"",31,0)"
^XMB(3.9,148,2,4104,0)=" W !,"" 2. LDL:"",?25,$J($P(SRAO(2),""^""),6),?35,$P(SRAO(2),""^"",2)"
^XMB(3.9,148,2,4105,0)="""RTN"",""SROACPM1"",32,0)"
^XMB(3.9,148,2,4106,0)=" W !,"" 3. Total Cholesterol:"",?25,$J($P(SRAO(3),""^""),6),?35,$P(SRAO(3),""^"",2)"
^XMB(3.9,148,2,4107,0)="""RTN"",""SROACPM1"",33,0)"
^XMB(3.9,148,2,4108,0)=" W !,"" 4. Serum Triglyceride:"",?25,$J($P(SRAO(4),""^""),6),?35,$P(SRAO(4),""^"",2)"
^XMB(3.9,148,2,4109,0)="""RTN"",""SROACPM1"",34,0)"
^XMB(3.9,148,2,4110,0)=" W !,"" 5. Serum Potassium:"",?25,$J($P(SRAO(5),""^""),6),?35,$P(SRAO(5),""^"",2)"
^XMB(3.9,148,2,4111,0)="""RTN"",""SROACPM1"",35,0)"
^XMB(3.9,148,2,4112,0)=" W !,"" 6. Serum Bilirubin:"",?25,$J($P(SRAO(6),""^""),6),?35,$P(SRAO(6),""^"",2)"
^XMB(3.9,148,2,4113,0)="""RTN"",""SROACPM1"",36,0)"
^XMB(3.9,148,2,4114,0)=" W !,"" 7. Serum Creatinine:"",?25,$J($P(SRAO(7),""^""),6),?35,$P(SRAO(7),""^"",2)"
^XMB(3.9,148,2,4115,0)="""RTN"",""SROACPM1"",37,0)"
^XMB(3.9,148,2,4116,0)=" W !,"" 8. Serum Albumin:"",?25,$J($P(SRAO(8),""^""),6),?35,$P(SRAO(8),""^"",2)"
^XMB(3.9,148,2,4117,0)="""RTN"",""SROACPM1"",38,0)"
^XMB(3.9,148,2,4118,0)=" W !,"" 9. Hemoglobin:"",?25,$J($P(SRAO(9),""^""),6),?35,$P(SRAO(9),""^"",2)"
^XMB(3.9,148,2,4119,0)="""RTN"",""SROACPM1"",39,0)"
^XMB(3.9,148,2,4120,0)=" W !,""10. Hemoglobin A1c:"",?25,$J($P(SRAO(10),""^""),6),?35,$P(SRAO(10),""^"",2)"
^XMB(3.9,148,2,4121,0)="""RTN"",""SROACPM1"",40,0)"
^XMB(3.9,148,2,4122,0)=" W !! F MOE=1:1:80 W ""-"""
^XMB(3.9,148,2,4123,0)="""RTN"",""SROACPM1"",41,0)"
^XMB(3.9,148,2,4124,0)=" Q"
^XMB(3.9,148,2,4125,0)="""RTN"",""SROACPM1"",42,0)"
^XMB(3.9,148,2,4126,0)="CONCC ; check for concurrent case and update if one exists"
^XMB(3.9,148,2,4127,0)="""RTN"",""SROACPM1"",43,0)"
^XMB(3.9,148,2,4128,0)=" S SRCON=$P($G(^SRF(SRTN,""CON"")),""^"") Q:'SRCON"
^XMB(3.9,148,2,4129,0)="""RTN"",""SROACPM1"",44,0)"
^XMB(3.9,148,2,4130,0)=" S SRI="""" F  S SRI=$O(SRAO(SRI)) Q:SRI=""""  S S1=$P(SRAO(SRI),""^"",3),S2=$P(SRAO(SRI),""^"",4) K DA,DIC,DIQ,DR,SRY D"
^XMB(3.9,148,2,4131,0)="""RTN"",""SROACPM1"",45,0)"
^XMB(3.9,148,2,4132,0)=" .S DA=SRTN,DR=S1_"";""_S2,DIC=""^SRF("",DIQ=""SRY"",DIQ(0)=""I"" D EN^DIQ1 S P1=SRY(130,SRTN,S1,""I"") S:P1="""" P1=""@"" S P2=SRY(130,SRTN,S2,""I"") S:P2="""" P2=""@"""
^XMB(3.9,148,2,4133,0)="""RTN"",""SROACPM1"",46,0)"
^XMB(3.9,148,2,4134,0)=" .K DA,DIE,DR S DA=SRCON,DIE=130,DR=S1_""////""_P1_"";""_S2_""////""_P2 D ^DIE K DR"
^XMB(3.9,148,2,4135,0)="""RTN"",""SROACPM1"",47,0)"
^XMB(3.9,148,2,4136,0)=" Q"
^XMB(3.9,148,2,4137,0)="""RTN"",""SROACPM2"")"
^XMB(3.9,148,2,4138,0)="0^46^B6018806^B5317991"
^XMB(3.9,148,2,4139,0)="""RTN"",""SROACPM2"",1,0)"
^XMB(3.9,148,2,4140,0)="SROACPM2 ;BIR/MAM - LAB INFO ;03/29/04"
^XMB(3.9,148,2,4141,0)="""RTN"",""SROACPM2"",2,0)"
^XMB(3.9,148,2,4142,0)=" ;;3.0; Surgery ;**125,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,4143,0)="""RTN"",""SROACPM2"",3,0)"
^XMB(3.9,148,2,4144,0)=" F SHEMP=201,202,202.1 S SRA(SHEMP)=$G(^SRF(SRTN,SHEMP))"
^XMB(3.9,148,2,4145,0)="""RTN"",""SROACPM2"",4,0)"
^XMB(3.9,148,2,4146,0)=" S SHEMP=$P(SRA(201),""^"",21),SRAO(1)=SHEMP_""^^457^457.1"" S X=$P(SRA(202),""^"",21) I X=""NS"" S $P(SRAO(1),""^"",2)=""NS"""
^XMB(3.9,148,2,4147,0)="""RTN"",""SROACPM2"",5,0)"
^XMB(3.9,148,2,4148,0)=" I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(1),""^"",2)=SHEMP"
^XMB(3.9,148,2,4149,0)="""RTN"",""SROACPM2"",6,0)"
^XMB(3.9,148,2,4150,0)=" S SHEMP=$P(SRA(201),""^"",25),SRAO(2)=SHEMP_""^^461^461.1"" S X=$P(SRA(202),""^"",25) I X=""NS"" S $P(SRAO(2),""^"",2)=""NS"""
^XMB(3.9,148,2,4151,0)="""RTN"",""SROACPM2"",7,0)"
^XMB(3.9,148,2,4152,0)=" I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(2),""^"",2)=SHEMP"
^XMB(3.9,148,2,4153,0)="""RTN"",""SROACPM2"",8,0)"
^XMB(3.9,148,2,4154,0)=" S SHEMP=$P(SRA(201),""^"",26),SRAO(3)=SHEMP_""^^462^462.1"" S X=$P(SRA(202),""^"",26) I X=""NS"" S $P(SRAO(3),""^"",2)=""NS"""
^XMB(3.9,148,2,4155,0)="""RTN"",""SROACPM2"",9,0)"
^XMB(3.9,148,2,4156,0)=" I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(3),""^"",2)=SHEMP"
^XMB(3.9,148,2,4157,0)="""RTN"",""SROACPM2"",10,0)"
^XMB(3.9,148,2,4158,0)=" S SHEMP=$P(SRA(201),""^"",22),SRAO(4)=SHEMP_""^^458^458.1"" S X=$P(SRA(202),""^"",22) I X=""NS"" S $P(SRAO(4),""^"",2)=""NS"""
^XMB(3.9,148,2,4159,0)="""RTN"",""SROACPM2"",11,0)"
^XMB(3.9,148,2,4160,0)=" I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(4),""^"",2)=SHEMP"
^XMB(3.9,148,2,4161,0)="""RTN"",""SROACPM2"",12,0)"
^XMB(3.9,148,2,4162,0)=" S SHEMP=$P(SRA(201),""^"",23),SRAO(5)=SHEMP_""^^459^459.1"" S X=$P(SRA(202),""^"",23) I X=""NS"" S $P(SRAO(5),""^"",2)=""NS"""
^XMB(3.9,148,2,4163,0)="""RTN"",""SROACPM2"",13,0)"
^XMB(3.9,148,2,4164,0)=" I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(5),""^"",2)=SHEMP"
^XMB(3.9,148,2,4165,0)="""RTN"",""SROACPM2"",14,0)"
^XMB(3.9,148,2,4166,0)=" S SHEMP=$P(SRA(201),""^"",24),SRAO(6)=SHEMP_""^^460^460.1"" S X=$P(SRA(202),""^"",24) I X=""NS"" S $P(SRAO(6),""^"",2)=""NS"""
^XMB(3.9,148,2,4167,0)="""RTN"",""SROACPM2"",15,0)"
^XMB(3.9,148,2,4168,0)=" I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(6),""^"",2)=SHEMP"
^XMB(3.9,148,2,4169,0)="""RTN"",""SROACPM2"",16,0)"
^XMB(3.9,148,2,4170,0)=" S SHEMP=$P(SRA(201),""^"",4),SRAO(7)=SHEMP_""^^223^290"" S X=$P(SRA(202),""^"",4) I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(7),""^"",2)=SHEMP"
^XMB(3.9,148,2,4171,0)="""RTN"",""SROACPM2"",17,0)"
^XMB(3.9,148,2,4172,0)=" S SHEMP=$P(SRA(201),""^"",8),SRAO(8)=SHEMP_""^^225^292"" S X=$P(SRA(202),""^"",8) I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(8),""^"",2)=SHEMP"
^XMB(3.9,148,2,4173,0)="""RTN"",""SROACPM2"",18,0)"
^XMB(3.9,148,2,4174,0)=" S SHEMP=$P(SRA(201),""^"",20),SRAO(9)=SHEMP_""^^219^239"" S X=$P(SRA(202),""^"",20) I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(9),""^"",2)=SHEMP"
^XMB(3.9,148,2,4175,0)="""RTN"",""SROACPM2"",19,0)"
^XMB(3.9,148,2,4176,0)=" S SHEMP=$P(SRA(201),""^"",28),SRAO(10)=SHEMP_""^^504^504.1"" S X=$P(SRA(202.1),""^"") I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(10),""^"",2)=SHEMP"
^XMB(3.9,148,2,4177,0)="""RTN"",""SROACPM2"",20,0)"
^XMB(3.9,148,2,4178,0)=" K SRA"
^XMB(3.9,148,2,4179,0)="""RTN"",""SROACPM2"",21,0)"
^XMB(3.9,148,2,4180,0)=" Q"
^XMB(3.9,148,2,4181,0)="""RTN"",""SROACPM2"",22,0)"
^XMB(3.9,148,2,4182,0)="DATE S Y=X X ^DD(""DD"")"
^XMB(3.9,148,2,4183,0)="""RTN"",""SROACPM2"",23,0)"
^XMB(3.9,148,2,4184,0)=" Q"
^XMB(3.9,148,2,4185,0)="""RTN"",""SROACR1"")"
^XMB(3.9,148,2,4186,0)="0^47^B19934044^B21202350"
^XMB(3.9,148,2,4187,0)="""RTN"",""SROACR1"",1,0)"
^XMB(3.9,148,2,4188,0)="SROACR1 ;BIR/MAM - OPERATIVE DATA, PAGE 1 ;06/28/06"
^XMB(3.9,148,2,4189,0)="""RTN"",""SROACR1"",2,0)"
^XMB(3.9,148,2,4190,0)=" ;;3.0; Surgery ;**38,71,93,95,99,125,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,4191,0)="""RTN"",""SROACR1"",3,0)"
^XMB(3.9,148,2,4192,0)=" ;"
^XMB(3.9,148,2,4193,0)="""RTN"",""SROACR1"",4,0)"
^XMB(3.9,148,2,4194,0)=" S SRA(206)=$G(^SRF(SRTN,206)),SRA(209)=$G(^SRF(SRTN,209))"
^XMB(3.9,148,2,4195,0)="""RTN"",""SROACR1"",5,0)"
^XMB(3.9,148,2,4196,0)=" S SRA(207)=$G(^SRF(SRTN,207)),SRA(207.1)=$G(^SRF(SRTN,207.1)) I $P(SRA(207),""^"",27)="""" K DA,DIE,DR S DA=SRTN,DIE=130,DR=""469////5"" D ^DIE K DA,DIE,DR S SRA(207)=$G(^SRF(SRTN,207))"
^XMB(3.9,148,2,4197,0)="""RTN"",""SROACR1"",6,0)"
^XMB(3.9,148,2,4198,0)=" S SRAO(1)=$P(SRA(207),""^"")_""^365"",SRAO(2)=$P(SRA(207),""^"",2)_""^366"",SRAO(3)=$P(SRA(207),""^"",24)_""^464"",SRAO(4)=$P(SRA(207),""^"",25)_""^465"",SRAO(5)=$P(SRA(207),""^"",20)_""^416"""
^XMB(3.9,148,2,4199,0)="""RTN"",""SROACR1"",7,0)"
^XMB(3.9,148,2,4200,0)=" S NYUK=$P(SRA(207),""^"",3) D YN S SRAO(6)=SHEMP_""^367"",NYUK=$P(SRA(207),""^"",4) D YN S SRAO(7)=SHEMP_""^368"",NYUK=$P(SRA(207),""^"",5) D YN S SRAO(8)=SHEMP_""^369"""
^XMB(3.9,148,2,4201,0)="""RTN"",""SROACR1"",8,0)"
^XMB(3.9,148,2,4202,0)=" S NYUK=$P(SRA(207),""^"",6) S SRAO(9)=$S(NYUK=""Y"":""YES"",NYUK=""N"":""NO"",NYUK=1:""AORTIC"",NYUK=2:""MITRAL"",NYUK=3:""TRICUSPID"",NYUK=4:""OTHER/COMBINATION"",NYUK=5:""NONE"",1:"""")_""^370"""
^XMB(3.9,148,2,4203,0)="""RTN"",""SROACR1"",9,0)"
^XMB(3.9,148,2,4204,0)=" S NYUK=$P(SRA(207),""^"",7) D YN S SRAO(10)=SHEMP_""^371"",NYUK=$P(SRA(209),""^"",9) D YN S SRAO(11)=SHEMP_""^481"""
^XMB(3.9,148,2,4205,0)="""RTN"",""SROACR1"",10,0)"
^XMB(3.9,148,2,4206,0)=" S NYUK=$P(SRA(209),""^"",11) D YN S SRAO(12)=SHEMP_""^483"""
^XMB(3.9,148,2,4207,0)="""RTN"",""SROACR1"",11,0)"
^XMB(3.9,148,2,4208,0)=" S NYUK=$P(SRA(209),""^"",14) S SHEMP=$S(NYUK=""F"":""FULL MAZE"",NYUK=""N"":""NO MAZE PERFORMED"",NYUK=""M"":""MINI MAZE"",1:"""") S SRAO(13)=SHEMP_""^512"""
^XMB(3.9,148,2,4209,0)="""RTN"",""SROACR1"",12,0)"
^XMB(3.9,148,2,4210,0)=" S NYUK=$P(SRA(207),""^"",12) D YN S SRAO(14)=SHEMP_""^376"""
^XMB(3.9,148,2,4211,0)="""RTN"",""SROACR1"",13,0)"
^XMB(3.9,148,2,4212,0)=" S NYUK=$P(SRA(207),""^"",13) D YN S SRAO(15)=SHEMP_""^380"""
^XMB(3.9,148,2,4213,0)="""RTN"",""SROACR1"",14,0)"
^XMB(3.9,148,2,4214,0)=" S NYUK=$P(SRA(207),""^"",16) D YN S SRAO(16)=SHEMP_""^378"""
^XMB(3.9,148,2,4215,0)="""RTN"",""SROACR1"",15,0)"
^XMB(3.9,148,2,4216,0)=" S NYUK=$P(SRA(207),""^"",14) D YN S SRAO(17)=SHEMP_""^377"""
^XMB(3.9,148,2,4217,0)="""RTN"",""SROACR1"",16,0)"
^XMB(3.9,148,2,4218,0)=" S NYUK=$P(SRA(207),""^"",18) D YN S SRAO(18)=SHEMP_""^379"""
^XMB(3.9,148,2,4219,0)="""RTN"",""SROACR1"",17,0)"
^XMB(3.9,148,2,4220,0)=" S NYUK=$P(SRA(207),""^"",9) D YN S SRAO(19)=SHEMP_""^373"""
^XMB(3.9,148,2,4221,0)="""RTN"",""SROACR1"",18,0)"
^XMB(3.9,148,2,4222,0)=" S NYUK=$P(SRA(207),""^"",8) D YN S SRAO(20)=SHEMP_""^372"""
^XMB(3.9,148,2,4223,0)="""RTN"",""SROACR1"",19,0)"
^XMB(3.9,148,2,4224,0)=" S NYUK=$P(SRA(207.1),""^"",2) D YN S SRAO(21)=SHEMP_""^505"""
^XMB(3.9,148,2,4225,0)="""RTN"",""SROACR1"",20,0)"
^XMB(3.9,148,2,4226,0)=" S SRAO(22)=$P($G(^SRF(SRTN,209)),""^"",13)_""^502"""
^XMB(3.9,148,2,4227,0)="""RTN"",""SROACR1"",21,0)"
^XMB(3.9,148,2,4228,0)=" ;"
^XMB(3.9,148,2,4229,0)="""RTN"",""SROACR1"",22,0)"
^XMB(3.9,148,2,4230,0)="DISP S SRPAGE=""PAGE: 1 OF 2"" D HDR^SROAUTL"
^XMB(3.9,148,2,4231,0)="""RTN"",""SROACR1"",23,0)"
^XMB(3.9,148,2,4232,0)=" W ""Cardiac surgical procedures with or without cardiopulmonary bypass """
^XMB(3.9,148,2,4233,0)="""RTN"",""SROACR1"",24,0)"
^XMB(3.9,148,2,4234,0)=" ;W ! F MOE=1:1:80 W ""-"""
^XMB(3.9,148,2,4235,0)="""RTN"",""SROACR1"",25,0)"
^XMB(3.9,148,2,4236,0)=" W !,""CABG distal anastomoses:"",?40,""11. Bridge to transplant/Device:"",?75,$P(SRAO(11),""^"")"
^XMB(3.9,148,2,4237,0)="""RTN"",""SROACR1"",26,0)"
^XMB(3.9,148,2,4238,0)=" W !,"" 1. Number with vein:"",?34,$P(SRAO(1),""^""),?40,""12. TMR:"",?75,$P(SRAO(12),""^"")"
^XMB(3.9,148,2,4239,0)="""RTN"",""SROACR1"",27,0)"
^XMB(3.9,148,2,4240,0)=" W !,"" 2. Number with IMA:"",?34,$P(SRAO(2),""^""),?40,""13. Maze procedure:"",?61,$J($P(SRAO(13),""^""),17)"
^XMB(3.9,148,2,4241,0)="""RTN"",""SROACR1"",28,0)"
^XMB(3.9,148,2,4242,0)=" W !,"" 3. Number with Radial Artery:"",?34,$P(SRAO(3),""^""),?40,""14. ASD repair:"",?75,$P(SRAO(14),""^"")"
^XMB(3.9,148,2,4243,0)="""RTN"",""SROACR1"",29,0)"
^XMB(3.9,148,2,4244,0)=" W !,"" 4. Number with Other Artery:"",?34,$P(SRAO(4),""^""),?40,""15. VSD repair:"",?75,$P(SRAO(15),""^"")"
^XMB(3.9,148,2,4245,0)="""RTN"",""SROACR1"",30,0)"
^XMB(3.9,148,2,4246,0)=" W !,"" 5. Number with Other Conduit:"",?34,$P(SRAO(5),""^""),?40,""16. Myectomy for IHSS:"",?75,$P(SRAO(16),""^"")"
^XMB(3.9,148,2,4247,0)="""RTN"",""SROACR1"",31,0)"
^XMB(3.9,148,2,4248,0)=" W !,?40,""17. Myxoma resection:"",?75,$P(SRAO(17),""^"")"
^XMB(3.9,148,2,4249,0)="""RTN"",""SROACR1"",32,0)"
^XMB(3.9,148,2,4250,0)=" W !,"" 6. Aortic Valve Replacement:"",?34,$P(SRAO(6),""^""),?40,""18. Other tumor resection:"",?75,$P(SRAO(18),""^"")"
^XMB(3.9,148,2,4251,0)="""RTN"",""SROACR1"",33,0)"
^XMB(3.9,148,2,4252,0)=" W !,"" 7. Mitral Valve Replacement:"",?34,$P(SRAO(7),""^""),?40,""19. Cardiac transplant:"",?75,$P(SRAO(19),""^"")"
^XMB(3.9,148,2,4253,0)="""RTN"",""SROACR1"",34,0)"
^XMB(3.9,148,2,4254,0)=" W !,"" 8. Tricuspid Valve Replacement:"",?34,$P(SRAO(8),""^""),?40,""20. Great Vessel Repair:"",?75,$P(SRAO(20),""^"")"
^XMB(3.9,148,2,4255,0)="""RTN"",""SROACR1"",35,0)"
^XMB(3.9,148,2,4256,0)=" W !,"" 9. Valve Repair:  "",$J($P(SRAO(9),""^""),18),?40,""21. Endovascular Repair:"",?75,$P(SRAO(21),""^"")"
^XMB(3.9,148,2,4257,0)="""RTN"",""SROACR1"",36,0)"
^XMB(3.9,148,2,4258,0)=" W !,""10. LV Aneurysmectomy:"",?34,$P(SRAO(10),""^""),?40,""22. Other cardiac procedures:"" S X=$P(SRAO(22),""^"") W ?75,$S(X=""N"":""NO"",X=""Y"":""YES"",1:""""),!"
^XMB(3.9,148,2,4259,0)="""RTN"",""SROACR1"",37,0)"
^XMB(3.9,148,2,4260,0)=" S X=""IORVON;IORVOFF"" D ENDR^%ZISS"
^XMB(3.9,148,2,4261,0)="""RTN"",""SROACR1"",38,0)"
^XMB(3.9,148,2,4262,0)=" S X=$P($G(^SRF(SRTN,209.1)),""^"") I X'="""",X'=""NS"" S SRQ=0 W !,IORVON_""* Other cardiac procedures (specify): "" W:$L(X)<56 X,! I $L(X)>55 S Z=$L(X) D"
^XMB(3.9,148,2,4263,0)="""RTN"",""SROACR1"",39,0)"
^XMB(3.9,148,2,4264,0)=" .I X'["" "" W ?27,X Q"
^XMB(3.9,148,2,4265,0)="""RTN"",""SROACR1"",40,0)"
^XMB(3.9,148,2,4266,0)=" .S I=0,LINE=1 F  S SRL=$S(LINE=1:39,1:80) D  Q:SRQ"
^XMB(3.9,148,2,4267,0)="""RTN"",""SROACR1"",41,0)"
^XMB(3.9,148,2,4268,0)=" ..I $E(X,1,SRL)'["" "" W X,! S SRQ=1 Q"
^XMB(3.9,148,2,4269,0)="""RTN"",""SROACR1"",42,0)"
^XMB(3.9,148,2,4270,0)=" ..S J=SRL-I,Y=$E(X,J),I=I+1 I Y="" "" W $E(X,1,J-1),! S X=$E(X,J+1,Z),Z=$L(X),I=0,LINE=LINE+1 I Z<SRL W X,! S SRQ=1 Q"
^XMB(3.9,148,2,4271,0)="""RTN"",""SROACR1"",43,0)"
^XMB(3.9,148,2,4272,0)=" W IORVOFF"
^XMB(3.9,148,2,4273,0)="""RTN"",""SROACR1"",44,0)"
^XMB(3.9,148,2,4274,0)=" W ! F MOE=1:1:80 W ""-"""
^XMB(3.9,148,2,4275,0)="""RTN"",""SROACR1"",45,0)"
^XMB(3.9,148,2,4276,0)=" Q"
^XMB(3.9,148,2,4277,0)="""RTN"",""SROACR1"",46,0)"
^XMB(3.9,148,2,4278,0)="CHCK ; compare ischemic time to CPB time"
^XMB(3.9,148,2,4279,0)="""RTN"",""SROACR1"",47,0)"
^XMB(3.9,148,2,4280,0)=" I '$D(IORVON) S X=""IORVON;IORVOFF"" D ENDR^%ZISS"
^XMB(3.9,148,2,4281,0)="""RTN"",""SROACR1"",48,0)"
^XMB(3.9,148,2,4282,0)=" N SRISCH,SRCPB S SRISCH=$P(SRA(206),""^"",36),SRCPB=$P(SRA(206),""^"",37)"
^XMB(3.9,148,2,4283,0)="""RTN"",""SROACR1"",49,0)"
^XMB(3.9,148,2,4284,0)=" I SRISCH,SRCPB,SRISCH>SRCPB W !,IORVON_""***  NOTE: Ischemic Time is greater than CPB Time!!  Please check.  ***""_IORVOFF,!"
^XMB(3.9,148,2,4285,0)="""RTN"",""SROACR1"",50,0)"
^XMB(3.9,148,2,4286,0)=" F MOE=1:1:80 W ""-"""
^XMB(3.9,148,2,4287,0)="""RTN"",""SROACR1"",51,0)"
^XMB(3.9,148,2,4288,0)=" Q"
^XMB(3.9,148,2,4289,0)="""RTN"",""SROACR1"",52,0)"
^XMB(3.9,148,2,4290,0)="YN ; store answer"
^XMB(3.9,148,2,4291,0)="""RTN"",""SROACR1"",53,0)"
^XMB(3.9,148,2,4292,0)=" S SHEMP=$S(NYUK=""NS"":""NS"",NYUK=""N"":""NO"",NYUK=""Y"":""YES"",1:"""")"
^XMB(3.9,148,2,4293,0)="""RTN"",""SROACR1"",54,0)"
^XMB(3.9,148,2,4294,0)=" Q"
^XMB(3.9,148,2,4295,0)="""RTN"",""SROACR1"",55,0)"
^XMB(3.9,148,2,4296,0)="SURE W ! K DIR S DIR(""A"")=""   Sure you want to delete all Misc. Cardiac Procedures information ? "",DIR(""B"")=""NO"",DIR(0)=""YA"" D ^DIR W ! K DIR S SRYN=Y I $D(DTOUT)!$D(DUOUT) S SRSOUT=1"
^XMB(3.9,148,2,4297,0)="""RTN"",""SROACR1"",56,0)"
^XMB(3.9,148,2,4298,0)=" Q"
^XMB(3.9,148,2,4299,0)="""RTN"",""SROACR2"")"
^XMB(3.9,148,2,4300,0)="0^48^B15125616^B18870197"
^XMB(3.9,148,2,4301,0)="""RTN"",""SROACR2"",1,0)"
^XMB(3.9,148,2,4302,0)="SROACR2 ;BIR/SJA - OPERATIVE DATA, PAGE 2 ;04/12/06"
^XMB(3.9,148,2,4303,0)="""RTN"",""SROACR2"",2,0)"
^XMB(3.9,148,2,4304,0)=" ;;3.0; Surgery ;**125,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,4305,0)="""RTN"",""SROACR2"",3,0)"
^XMB(3.9,148,2,4306,0)=" ;"
^XMB(3.9,148,2,4307,0)="""RTN"",""SROACR2"",4,0)"
^XMB(3.9,148,2,4308,0)=" I '$D(SRTN) W !!,""A Surgery Risk Assessment must be selected prior to using this option."",!!,""Press <RET> to continue  "" R X:DTIME G END"
^XMB(3.9,148,2,4309,0)="""RTN"",""SROACR2"",5,0)"
^XMB(3.9,148,2,4310,0)=" S SRSOUT=0 D ^SROAUTL"
^XMB(3.9,148,2,4311,0)="""RTN"",""SROACR2"",6,0)"
^XMB(3.9,148,2,4312,0)="START G:SRSOUT END"
^XMB(3.9,148,2,4313,0)="""RTN"",""SROACR2"",7,0)"
^XMB(3.9,148,2,4314,0)=" ;"
^XMB(3.9,148,2,4315,0)="""RTN"",""SROACR2"",8,0)"
^XMB(3.9,148,2,4316,0)="EDIT S SRR=0 S SRPAGE=""PAGE: 2 OF 2"" D HDR^SROAUTL W ""Indicate other cardiac procedures only if done with cardiopulmonary bypass"",! F K=1:1:80 W ""-"""
^XMB(3.9,148,2,4317,0)="""RTN"",""SROACR2"",9,0)"
^XMB(3.9,148,2,4318,0)=" ;"
^XMB(3.9,148,2,4319,0)="""RTN"",""SROACR2"",10,0)"
^XMB(3.9,148,2,4320,0)=" K DR S SRQ=0,(DR,SRDR)=""381;382;451;450;468;469"""
^XMB(3.9,148,2,4321,0)="""RTN"",""SROACR2"",11,0)"
^XMB(3.9,148,2,4322,0)=" K DA,DIC,DIQ,SRY S DIC=""^SRF("",DA=SRTN,DIQ=""SRY"",DIQ(0)=""IE"",DR=SRDR D EN^DIQ1 K DA,DIC,DIQ,DR"
^XMB(3.9,148,2,4323,0)="""RTN"",""SROACR2"",12,0)"
^XMB(3.9,148,2,4324,0)=" K SRX S SRX=0 F M=1:1 S I=$P(SRDR,"";"",M)  Q:'I  D"
^XMB(3.9,148,2,4325,0)="""RTN"",""SROACR2"",13,0)"
^XMB(3.9,148,2,4326,0)=" .K SREXT D TR,GET"
^XMB(3.9,148,2,4327,0)="""RTN"",""SROACR2"",14,0)"
^XMB(3.9,148,2,4328,0)=" .S SRX=SRX+1,Y=$P(X,"";;"",2),SRFLD=$P(Y,""^""),(Z,SRX(SRX))=$P(Y,""^"",2)_""^""_SRFLD,SREXT=SRY(130,SRTN,SRFLD,""E"")"
^XMB(3.9,148,2,4329,0)="""RTN"",""SROACR2"",15,0)"
^XMB(3.9,148,2,4330,0)=" .I SRFLD=451 W !,""Other Operative Data details:"",!,""------------------------------"""
^XMB(3.9,148,2,4331,0)="""RTN"",""SROACR2"",16,0)"
^XMB(3.9,148,2,4332,0)=" .W !,$J(SRX,2)_"". ""_$P(Z,""^"")_"":"" D EXT"
^XMB(3.9,148,2,4333,0)="""RTN"",""SROACR2"",17,0)"
^XMB(3.9,148,2,4334,0)=" .W:SRFLD=382 !"
^XMB(3.9,148,2,4335,0)="""RTN"",""SROACR2"",18,0)"
^XMB(3.9,148,2,4336,0)=" D CHCK W ! F K=1:1:80 W ""-"""
^XMB(3.9,148,2,4337,0)="""RTN"",""SROACR2"",19,0)"
^XMB(3.9,148,2,4338,0)=" D SEL G:SRR=1 EDIT"
^XMB(3.9,148,2,4339,0)="""RTN"",""SROACR2"",20,0)"
^XMB(3.9,148,2,4340,0)=" S SRSOUT=1 G END"
^XMB(3.9,148,2,4341,0)="""RTN"",""SROACR2"",21,0)"
^XMB(3.9,148,2,4342,0)=" Q"
^XMB(3.9,148,2,4343,0)="""RTN"",""SROACR2"",22,0)"
^XMB(3.9,148,2,4344,0)="SEL S SRSOUT=0 W !!,""Select Operative Information to Edit: "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1 Q"
^XMB(3.9,148,2,4345,0)="""RTN"",""SROACR2"",23,0)"
^XMB(3.9,148,2,4346,0)=" Q:X=""""  S:X=""a"" X=""A"" I '$D(SRFLG),'$D(SRX(X)),(X'?1.2N1"":""1.2N),X'=""A"" D HELP S SRR=1 Q"
^XMB(3.9,148,2,4347,0)="""RTN"",""SROACR2"",24,0)"
^XMB(3.9,148,2,4348,0)=" I X?1.2N1"":""1.2N S Y=$P(X,"":""),Z=$P(X,"":"",2) I Y<1!(Z>SRX)!(Y>Z) D HELP S SRR=1 Q"
^XMB(3.9,148,2,4349,0)="""RTN"",""SROACR2"",25,0)"
^XMB(3.9,148,2,4350,0)=" I X=""A"" S X=""1:""_SRX"
^XMB(3.9,148,2,4351,0)="""RTN"",""SROACR2"",26,0)"
^XMB(3.9,148,2,4352,0)=" I X?1.2N1"":""1.2N D RANGE S SRR=1 K SREXT Q"
^XMB(3.9,148,2,4353,0)="""RTN"",""SROACR2"",27,0)"
^XMB(3.9,148,2,4354,0)=" I $D(SRX(X)),+X=X S EMILY=X D  S SRR=1"
^XMB(3.9,148,2,4355,0)="""RTN"",""SROACR2"",28,0)"
^XMB(3.9,148,2,4356,0)=" .I $$LOCK^SROUTL(SRTN) W ! D ONE,UNLOCK^SROUTL(SRTN)"
^XMB(3.9,148,2,4357,0)="""RTN"",""SROACR2"",29,0)"
^XMB(3.9,148,2,4358,0)=" Q"
^XMB(3.9,148,2,4359,0)="""RTN"",""SROACR2"",30,0)"
^XMB(3.9,148,2,4360,0)="EXT W ?30,SREXT"
^XMB(3.9,148,2,4361,0)="""RTN"",""SROACR2"",31,0)"
^XMB(3.9,148,2,4362,0)=" Q"
^XMB(3.9,148,2,4363,0)="""RTN"",""SROACR2"",32,0)"
^XMB(3.9,148,2,4364,0)="HELP W @IOF,!!!!,""Enter the number or range of numbers you want to edit.  Examples of proper"",!,""responses are listed below."""
^XMB(3.9,148,2,4365,0)="""RTN"",""SROACR2"",33,0)"
^XMB(3.9,148,2,4366,0)=" W !!,""1. Enter 'A' to update all information."",!!,""2. Enter a number (1-6) to update the information in that field.  (For"",!,""   example, enter '5' to update Incision Type.)"""
^XMB(3.9,148,2,4367,0)="""RTN"",""SROACR2"",34,0)"
^XMB(3.9,148,2,4368,0)=" W !!,""3. Enter a range of numbers (1-6) separated by a ':' to enter a range of"",!,""   information.  (For example, enter '3:5' to enter Total CPB time,"",!,""   Total Ischemic time, and Incision Type.)"""
^XMB(3.9,148,2,4369,0)="""RTN"",""SROACR2"",35,0)"
^XMB(3.9,148,2,4370,0)=" D RET"
^XMB(3.9,148,2,4371,0)="""RTN"",""SROACR2"",36,0)"
^XMB(3.9,148,2,4372,0)=" Q"
^XMB(3.9,148,2,4373,0)="""RTN"",""SROACR2"",37,0)"
^XMB(3.9,148,2,4374,0)="CHCK ; compare ischemic time to CPB time"
^XMB(3.9,148,2,4375,0)="""RTN"",""SROACR2"",38,0)"
^XMB(3.9,148,2,4376,0)=" I '$D(IORVON) S X=""IORVON;IORVOFF"" D ENDR^%ZISS"
^XMB(3.9,148,2,4377,0)="""RTN"",""SROACR2"",39,0)"
^XMB(3.9,148,2,4378,0)=" N SRISCH,SRCPB S SRISCH=SRY(130,SRTN,450,""E""),SRCPB=SRY(130,SRTN,451,""E"")"
^XMB(3.9,148,2,4379,0)="""RTN"",""SROACR2"",40,0)"
^XMB(3.9,148,2,4380,0)=" I SRISCH,SRCPB,SRISCH>SRCPB W !,IORVON_""***  NOTE: Ischemic Time is greater than CPB Time!!  Please check.  ***""_IORVOFF"
^XMB(3.9,148,2,4381,0)="""RTN"",""SROACR2"",41,0)"
^XMB(3.9,148,2,4382,0)=" Q"
^XMB(3.9,148,2,4383,0)="""RTN"",""SROACR2"",42,0)"
^XMB(3.9,148,2,4384,0)="RET Q:SRSOUT  W ! K DIR S DIR(0)=""E"" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1"
^XMB(3.9,148,2,4385,0)="""RTN"",""SROACR2"",43,0)"
^XMB(3.9,148,2,4386,0)=" Q"
^XMB(3.9,148,2,4387,0)="""RTN"",""SROACR2"",44,0)"
^XMB(3.9,148,2,4388,0)="RANGE ; range of numbers"
^XMB(3.9,148,2,4389,0)="""RTN"",""SROACR2"",45,0)"
^XMB(3.9,148,2,4390,0)=" I $$LOCK^SROUTL(SRTN) D  D UNLOCK^SROUTL(SRTN)"
^XMB(3.9,148,2,4391,0)="""RTN"",""SROACR2"",46,0)"
^XMB(3.9,148,2,4392,0)=" .W ! S SHEMP=$P(X,"":""),CURLEY=$P(X,"":"",2) F EMILY=SHEMP:1:CURLEY Q:SRSOUT  D ONE"
^XMB(3.9,148,2,4393,0)="""RTN"",""SROACR2"",47,0)"
^XMB(3.9,148,2,4394,0)=" Q"
^XMB(3.9,148,2,4395,0)="""RTN"",""SROACR2"",48,0)"
^XMB(3.9,148,2,4396,0)="ONE ; edit one item"
^XMB(3.9,148,2,4397,0)="""RTN"",""SROACR2"",49,0)"
^XMB(3.9,148,2,4398,0)=" K DR,DA,DIE S DR=$P(SRX(EMILY),""^"",2)_""T"",DA=SRTN,DIE=130,SRDT=$P(SRX(EMILY),""^"",3) S:SRDT DR=DR_"";""_SRDT_""T"" D ^DIE K DR,DA I $D(Y) S SRSOUT=1"
^XMB(3.9,148,2,4399,0)="""RTN"",""SROACR2"",50,0)"
^XMB(3.9,148,2,4400,0)=" Q"
^XMB(3.9,148,2,4401,0)="""RTN"",""SROACR2"",51,0)"
^XMB(3.9,148,2,4402,0)="TR S J=I,J=$TR(J,""1234567890."",""ABCDEFGHIJP"")"
^XMB(3.9,148,2,4403,0)="""RTN"",""SROACR2"",52,0)"
^XMB(3.9,148,2,4404,0)=" Q"
^XMB(3.9,148,2,4405,0)="""RTN"",""SROACR2"",53,0)"
^XMB(3.9,148,2,4406,0)="GET S X=$T(@J)"
^XMB(3.9,148,2,4407,0)="""RTN"",""SROACR2"",54,0)"
^XMB(3.9,148,2,4408,0)=" Q"
^XMB(3.9,148,2,4409,0)="""RTN"",""SROACR2"",55,0)"
^XMB(3.9,148,2,4410,0)="END W @IOF D ^SRSKILL"
^XMB(3.9,148,2,4411,0)="""RTN"",""SROACR2"",56,0)"
^XMB(3.9,148,2,4412,0)=" Q"
^XMB(3.9,148,2,4413,0)="""RTN"",""SROACR2"",57,0)"
^XMB(3.9,148,2,4414,0)="CHA ;;381^Foreign Body Removal"
^XMB(3.9,148,2,4415,0)="""RTN"",""SROACR2"",58,0)"
^XMB(3.9,148,2,4416,0)="CHB ;;382^Pericardiectomy"
^XMB(3.9,148,2,4417,0)="""RTN"",""SROACR2"",59,0)"
^XMB(3.9,148,2,4418,0)="DEA ;;451^Total CPB Time"
^XMB(3.9,148,2,4419,0)="""RTN"",""SROACR2"",60,0)"
^XMB(3.9,148,2,4420,0)="DEJ ;;450^Total Ischemic Time"
^XMB(3.9,148,2,4421,0)="""RTN"",""SROACR2"",61,0)"
^XMB(3.9,148,2,4422,0)="DFH ;;468^Incision Type"
^XMB(3.9,148,2,4423,0)="""RTN"",""SROACR2"",62,0)"
^XMB(3.9,148,2,4424,0)="DFI ;;469^Convert Off Pump to CPB"
^XMB(3.9,148,2,4425,0)="""RTN"",""SROAEX"")"
^XMB(3.9,148,2,4426,0)="0^8^B13592830^B17035378"
^XMB(3.9,148,2,4427,0)="""RTN"",""SROAEX"",1,0)"
^XMB(3.9,148,2,4428,0)="SROAEX ;BIR/MAM - EXCLUSION CRITERIA ;03/24/06"
^XMB(3.9,148,2,4429,0)="""RTN"",""SROAEX"",2,0)"
^XMB(3.9,148,2,4430,0)=" ;;3.0; Surgery ;**38,47,63,88,142,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,4431,0)="""RTN"",""SROAEX"",3,0)"
^XMB(3.9,148,2,4432,0)=" S SRACLR=0,SRSOUT=0 D NCODE^SROAUTL"
^XMB(3.9,148,2,4433,0)="""RTN"",""SROAEX"",4,0)"
^XMB(3.9,148,2,4434,0)="START D:SRACLR RET G:SRSOUT END S SRACLR=0 K SRA,SRAO S SRAO(4)="""""
^XMB(3.9,148,2,4435,0)="""RTN"",""SROAEX"",5,0)"
^XMB(3.9,148,2,4436,0)=" S SR(0)=^SRF(SRTN,0),Y=$P($G(^SRF(SRTN,""RA"")),""^"",7) D CRITERIA S SRAO(1)=NYUK_""^102"""
^XMB(3.9,148,2,4437,0)="""RTN"",""SROAEX"",6,0)"
^XMB(3.9,148,2,4438,0)=" S SRAO(2)=$P(SR(0),""^"",10)_""^.035"",X=$P(SRAO(2),""^"") I X'="""" S $P(SRAO(2),""^"")=$S(X=""EL"":""ELECTIVE"",X=""EM"":""EMERGENT"",X=""U"":""URGENT"",X=""A"":""ADD ON TODAY (NONEMERGENT)"",X=""S"":""STANDBY"",1:"""")"
^XMB(3.9,148,2,4439,0)="""RTN"",""SROAEX"",7,0)"
^XMB(3.9,148,2,4440,0)=" S SHEMP=$P(SR(0),""^"",4) S:SHEMP SHEMP=$P(^SRO(137.45,SHEMP,0),""^""),SRAO(3)=SHEMP_""^.04"""
^XMB(3.9,148,2,4441,0)="""RTN"",""SROAEX"",8,0)"
^XMB(3.9,148,2,4442,0)=" D TECH^SROPRIN S:SRTECH=""NOT ENTERED"" SRTECH="""" S SRAO(5)=SRTECH"
^XMB(3.9,148,2,4443,0)="""RTN"",""SROAEX"",9,0)"
^XMB(3.9,148,2,4444,0)=" S X=$P(SR(0),""^"",3),X=$S(X=""J"":""MAJOR"",X=""N"":""MINOR"",1:""""),SRAO(6)=X_""^.03"""
^XMB(3.9,148,2,4445,0)="""RTN"",""SROAEX"",10,0)"
^XMB(3.9,148,2,4446,0)=" D TSTAT^SRO1L1,HDR^SROAUTL"
^XMB(3.9,148,2,4447,0)="""RTN"",""SROAEX"",11,0)"
^XMB(3.9,148,2,4448,0)=" W !,""1. Exclusion Criteria: "",?35,$P(SRAO(1),""^""),!,""2. Surgical Priority:"",?35,$P(SRAO(2),""^""),!,""3. Surgical Specialty:"",?35,$P(SRAO(3),""^"")"
^XMB(3.9,148,2,4449,0)="""RTN"",""SROAEX"",12,0)"
^XMB(3.9,148,2,4450,0)=" N SRPROC,SRL S SRL=45 D CPTS^SROAUTL0 W !,""4. CPT Codes (view only):"""
^XMB(3.9,148,2,4451,0)="""RTN"",""SROAEX"",13,0)"
^XMB(3.9,148,2,4452,0)=" F I=1:1 Q:'$D(SRPROC(I))  W:I=1 ?35,SRPROC(I) W:I'=1 !,?35,SRPROC(I)"
^XMB(3.9,148,2,4453,0)="""RTN"",""SROAEX"",14,0)"
^XMB(3.9,148,2,4454,0)=" W !,""5. Principal Anesthesia Technique: ""_$P(SRAO(5),""^""),!,""6. Major or Minor:"",?35,$P(SRAO(6),""^""),!! F LINE=1:1:80 W ""-"""
^XMB(3.9,148,2,4455,0)="""RTN"",""SROAEX"",15,0)"
^XMB(3.9,148,2,4456,0)="ASK W !!,""Select Excluded Case Information to Edit: "" R X:DTIME I '$T!(""^""[X) G END"
^XMB(3.9,148,2,4457,0)="""RTN"",""SROAEX"",16,0)"
^XMB(3.9,148,2,4458,0)=" S:X=""a"" X=""A"" I '$D(SRAO(X)),(X'?.N1"":"".N),(X'=""A"") D HELP G:SRSOUT END G START"
^XMB(3.9,148,2,4459,0)="""RTN"",""SROAEX"",17,0)"
^XMB(3.9,148,2,4460,0)=" I X=""A"" S X=""1:6"""
^XMB(3.9,148,2,4461,0)="""RTN"",""SROAEX"",18,0)"
^XMB(3.9,148,2,4462,0)=" I X?.N1"":"".N S Y=$E(X),Z=$P(X,"":"",2) I Y<1!(Z>6)!(Y>Z) D HELP G:SRSOUT END G START"
^XMB(3.9,148,2,4463,0)="""RTN"",""SROAEX"",19,0)"
^XMB(3.9,148,2,4464,0)=" D TSTAT^SRO1L1,HDR^SROAUTL"
^XMB(3.9,148,2,4465,0)="""RTN"",""SROAEX"",20,0)"
^XMB(3.9,148,2,4466,0)=" I X?.N1"":"".N D RANGE,AQ G START"
^XMB(3.9,148,2,4467,0)="""RTN"",""SROAEX"",21,0)"
^XMB(3.9,148,2,4468,0)=" I $D(SRAO(X)) S EMILY=X W !! D ONE,AQ G START"
^XMB(3.9,148,2,4469,0)="""RTN"",""SROAEX"",22,0)"
^XMB(3.9,148,2,4470,0)="END D AQ W @IOF D ^SRSKILL"
^XMB(3.9,148,2,4471,0)="""RTN"",""SROAEX"",23,0)"
^XMB(3.9,148,2,4472,0)=" Q"
^XMB(3.9,148,2,4473,0)="""RTN"",""SROAEX"",24,0)"
^XMB(3.9,148,2,4474,0)="HELP W @IOF,!!!!,""Enter the number or range of numbers you want to edit. Examples of proper"""
^XMB(3.9,148,2,4475,0)="""RTN"",""SROAEX"",25,0)"
^XMB(3.9,148,2,4476,0)=" W !,""responses are listed below."",!!,""1. Enter 'A' to update all information."""
^XMB(3.9,148,2,4477,0)="""RTN"",""SROAEX"",26,0)"
^XMB(3.9,148,2,4478,0)=" W !!,""2. Enter a number (1-6) to update the information in that field. (For"""
^XMB(3.9,148,2,4479,0)="""RTN"",""SROAEX"",27,0)"
^XMB(3.9,148,2,4480,0)=" W !,""   example, enter '2' to update Surgical Priority)"""
^XMB(3.9,148,2,4481,0)="""RTN"",""SROAEX"",28,0)"
^XMB(3.9,148,2,4482,0)=" W !!,""3. Enter a range of numbers (1-6) separated by a ':' to enter a range of"""
^XMB(3.9,148,2,4483,0)="""RTN"",""SROAEX"",29,0)"
^XMB(3.9,148,2,4484,0)=" W !,""   information. (For example, enter '1:2' to update the Exclusion Criteria """
^XMB(3.9,148,2,4485,0)="""RTN"",""SROAEX"",30,0)"
^XMB(3.9,148,2,4486,0)=" W !,""   and Surgical Priority)"" D RET"
^XMB(3.9,148,2,4487,0)="""RTN"",""SROAEX"",31,0)"
^XMB(3.9,148,2,4488,0)=" Q"
^XMB(3.9,148,2,4489,0)="""RTN"",""SROAEX"",32,0)"
^XMB(3.9,148,2,4490,0)="AQ ; update transmission status"
^XMB(3.9,148,2,4491,0)="""RTN"",""SROAEX"",33,0)"
^XMB(3.9,148,2,4492,0)=" K DA,DIK S DIK=""^SRF("",DIK(1)="".232^AQ"",DA=SRTN D EN1^DIK K DA,DIK"
^XMB(3.9,148,2,4493,0)="""RTN"",""SROAEX"",34,0)"
^XMB(3.9,148,2,4494,0)=" Q"
^XMB(3.9,148,2,4495,0)="""RTN"",""SROAEX"",35,0)"
^XMB(3.9,148,2,4496,0)="RANGE ; range of numbers"
^XMB(3.9,148,2,4497,0)="""RTN"",""SROAEX"",36,0)"
^XMB(3.9,148,2,4498,0)=" W !! S SHEMP=$P(X,"":""),CURLEY=$P(X,"":"",2) F EMILY=SHEMP:1:CURLEY Q:SRSOUT  D ONE I EMILY=4 D HDR^SROAUTL"
^XMB(3.9,148,2,4499,0)="""RTN"",""SROAEX"",37,0)"
^XMB(3.9,148,2,4500,0)=" Q"
^XMB(3.9,148,2,4501,0)="""RTN"",""SROAEX"",38,0)"
^XMB(3.9,148,2,4502,0)="ONE ; edit one item"
^XMB(3.9,148,2,4503,0)="""RTN"",""SROAEX"",39,0)"
^XMB(3.9,148,2,4504,0)=" I EMILY=1 D REASON Q"
^XMB(3.9,148,2,4505,0)="""RTN"",""SROAEX"",40,0)"
^XMB(3.9,148,2,4506,0)=" I EMILY=4 D DISP^SROAUTL0 Q"
^XMB(3.9,148,2,4507,0)="""RTN"",""SROAEX"",41,0)"
^XMB(3.9,148,2,4508,0)=" I EMILY=5 D UPANES Q"
^XMB(3.9,148,2,4509,0)="""RTN"",""SROAEX"",42,0)"
^XMB(3.9,148,2,4510,0)=" K DR,DIE S DA=SRTN,DR=$P(SRAO(EMILY),""^"",2)_""T"",DIE=130 D ^DIE K DR I $D(Y) S SRSOUT=1"
^XMB(3.9,148,2,4511,0)="""RTN"",""SROAEX"",43,0)"
^XMB(3.9,148,2,4512,0)=" Q"
^XMB(3.9,148,2,4513,0)="""RTN"",""SROAEX"",44,0)"
^XMB(3.9,148,2,4514,0)="RET Q:SRSOUT  W ! K DIR S DIR(0)=""E"" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1"
^XMB(3.9,148,2,4515,0)="""RTN"",""SROAEX"",45,0)"
^XMB(3.9,148,2,4516,0)=" Q"
^XMB(3.9,148,2,4517,0)="""RTN"",""SROAEX"",46,0)"
^XMB(3.9,148,2,4518,0)="CRITERIA ; expand set of codes for exclusion criteria"
^XMB(3.9,148,2,4519,0)="""RTN"",""SROAEX"",47,0)"
^XMB(3.9,148,2,4520,0)=" S C=$P(^DD(130,102,0),""^"",2) D Y^DIQ S NYUK=Y"
^XMB(3.9,148,2,4521,0)="""RTN"",""SROAEX"",48,0)"
^XMB(3.9,148,2,4522,0)=" S SHEMP=$P(^SRF(SRTN,0),""^"",10),MOE=$S(SHEMP=""E"":""ELECTIVE"",SHEMP=""M"":""EMERGENCY"",SHEMP=""U"":""URGENT"",1:"""")"
^XMB(3.9,148,2,4523,0)="""RTN"",""SROAEX"",49,0)"
^XMB(3.9,148,2,4524,0)=" Q"
^XMB(3.9,148,2,4525,0)="""RTN"",""SROAEX"",50,0)"
^XMB(3.9,148,2,4526,0)="UPANES K DR,DIE,DA S DA=SRTN,DR=.37,DR(2,130.06)="".01T;.05T;42T"",DIE=130 D ^DIE K DR"
^XMB(3.9,148,2,4527,0)="""RTN"",""SROAEX"",51,0)"
^XMB(3.9,148,2,4528,0)=" Q"
^XMB(3.9,148,2,4529,0)="""RTN"",""SROAEX"",52,0)"
^XMB(3.9,148,2,4530,0)="REASON W ! K DIR S DIR(0)=""130,102"",DIR(""A"")=""Reason for not Creating an Assessment"",DIR(""B"")=$P(SRAO(1),""^"") D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1 Q"
^XMB(3.9,148,2,4531,0)="""RTN"",""SROAEX"",53,0)"
^XMB(3.9,148,2,4532,0)=" I X=""@"" D DELETE^SRONASS S SRSOUT=1 Q"
^XMB(3.9,148,2,4533,0)="""RTN"",""SROAEX"",54,0)"
^XMB(3.9,148,2,4534,0)=" I Y K DR,DIE,DA S DA=SRTN,DIE=130,DR=""102////""_Y D ^DIE K DA,DIE,DR"
^XMB(3.9,148,2,4535,0)="""RTN"",""SROAEX"",55,0)"
^XMB(3.9,148,2,4536,0)=" Q"
^XMB(3.9,148,2,4537,0)="""RTN"",""SROAL1"")"
^XMB(3.9,148,2,4538,0)="0^14^B22463945^B21156803"
^XMB(3.9,148,2,4539,0)="""RTN"",""SROAL1"",1,0)"
^XMB(3.9,148,2,4540,0)="SROAL1 ;BIR/ADM - LOAD PREOPERATIVE LAB DATA ;06/27/06"
^XMB(3.9,148,2,4541,0)="""RTN"",""SROAL1"",2,0)"
^XMB(3.9,148,2,4542,0)=" ;;3.0; Surgery ;**18,38,47,54,65,71,81,88,100,125,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,4543,0)="""RTN"",""SROAL1"",3,0)"
^XMB(3.9,148,2,4544,0)=" ;"
^XMB(3.9,148,2,4545,0)="""RTN"",""SROAL1"",4,0)"
^XMB(3.9,148,2,4546,0)=" ; Reference to ^LR( supported by DBIA #194"
^XMB(3.9,148,2,4547,0)="""RTN"",""SROAL1"",5,0)"
^XMB(3.9,148,2,4548,0)=" ;"
^XMB(3.9,148,2,4549,0)="""RTN"",""SROAL1"",6,0)"
^XMB(3.9,148,2,4550,0)=" Q:'$D(SRTN)  K SRAD,SRAT S SRSOUT=0"
^XMB(3.9,148,2,4551,0)="""RTN"",""SROAL1"",7,0)"
^XMB(3.9,148,2,4552,0)=" W !!,""This selection loads the most recent lab data for tests performed"",!,""within 90 days before the operation unless otherwise specified."""
^XMB(3.9,148,2,4553,0)="""RTN"",""SROAL1"",8,0)"
^XMB(3.9,148,2,4554,0)="YEP W !!,""Do you want to automatically load preoperative lab data ?  YES//  "" R SRYN:DTIME G:'$T!(SRYN[""^"") END"
^XMB(3.9,148,2,4555,0)="""RTN"",""SROAL1"",9,0)"
^XMB(3.9,148,2,4556,0)=" S SRYN=$E(SRYN) I ""YyNn""'[SRYN W !!,""Enter <RET> to automatically load preoperative lab data from the patient's lab record, or 'NO' to return to the menu."" G YEP"
^XMB(3.9,148,2,4557,0)="""RTN"",""SROAL1"",10,0)"
^XMB(3.9,148,2,4558,0)=" I ""Yy""'[SRYN W !!,""Lab data NOT loaded."" G END"
^XMB(3.9,148,2,4559,0)="""RTN"",""SROAL1"",11,0)"
^XMB(3.9,148,2,4560,0)="START S SRALR=$S($D(^DPT($P(^SRF(SRTN,0),""^""),""LR"")):$P(^(""LR""),""^""),1:"""")"
^XMB(3.9,148,2,4561,0)="""RTN"",""SROAL1"",12,0)"
^XMB(3.9,148,2,4562,0)=" S SRAOP=$P($G(^SRF(SRTN,.2)),""^"",2) I 'SRAOP W !!,""The 'Time the Operation Began' must be entered before continuing."" D TMCHK G:SRSOUT END"
^XMB(3.9,148,2,4563,0)="""RTN"",""SROAL1"",13,0)"
^XMB(3.9,148,2,4564,0)=" S SRST=9999999-SRAOP,X1=SRAOP,X2=-90 D C^%DTC S SREND=9999999-X"
^XMB(3.9,148,2,4565,0)="""RTN"",""SROAL1"",14,0)"
^XMB(3.9,148,2,4566,0)="SRAT ; Get test and data name(s) for test from file 139.2."
^XMB(3.9,148,2,4567,0)="""RTN"",""SROAL1"",15,0)"
^XMB(3.9,148,2,4568,0)=" W !!,""..Searching lab record for latest preoperative test data...."""
^XMB(3.9,148,2,4569,0)="""RTN"",""SROAL1"",16,0)"
^XMB(3.9,148,2,4570,0)=" K DIC S DIC=61,DIC(0)="""",X=""SERUM"" D ^DIC S SRSER=+Y K DIC S DIC=61,DIC(0)="""",X=""PLASMA"" D ^DIC K DIC S SRP=+Y"
^XMB(3.9,148,2,4571,0)="""RTN"",""SROAL1"",17,0)"
^XMB(3.9,148,2,4572,0)=" F SRAT=1,4,7,8,11,13:1:20,25 D SP"
^XMB(3.9,148,2,4573,0)="""RTN"",""SROAL1"",18,0)"
^XMB(3.9,148,2,4574,0)=" S SRAT=26,X1=SRAOP,X2=-2 D C^%DTC S SREND=9999999-X D SP"
^XMB(3.9,148,2,4575,0)="""RTN"",""SROAL1"",19,0)"
^XMB(3.9,148,2,4576,0)=" I $$LOCK^SROUTL(SRTN) D ^SROAL11 S SRCON=$P($G(^SRF(SRTN,""CON"")),""^"") D:SRCON CONCC D UNLOCK^SROUTL(SRTN)"
^XMB(3.9,148,2,4577,0)="""RTN"",""SROAL1"",20,0)"
^XMB(3.9,148,2,4578,0)="END I 'SRSOUT W !!,""Press <RET> to continue  "" R X:DTIME"
^XMB(3.9,148,2,4579,0)="""RTN"",""SROAL1"",21,0)"
^XMB(3.9,148,2,4580,0)=" W @IOF"
^XMB(3.9,148,2,4581,0)="""RTN"",""SROAL1"",22,0)"
^XMB(3.9,148,2,4582,0)=" Q"
^XMB(3.9,148,2,4583,0)="""RTN"",""SROAL1"",23,0)"
^XMB(3.9,148,2,4584,0)="CONCC ; update concurrent case"
^XMB(3.9,148,2,4585,0)="""RTN"",""SROAL1"",24,0)"
^XMB(3.9,148,2,4586,0)=" S SRTN1=SRTN,SRTN=SRCON D N4^SROAL11 S SRTN=SRTN1"
^XMB(3.9,148,2,4587,0)="""RTN"",""SROAL1"",25,0)"
^XMB(3.9,148,2,4588,0)=" Q"
^XMB(3.9,148,2,4589,0)="""RTN"",""SROAL1"",26,0)"
^XMB(3.9,148,2,4590,0)="SP S SRASP=$P(^SRO(139.2,SRAT,2),""^"") K SRADT F SRADN=0:0 S SRADN=$O(^SRO(139.2,SRAT,1,SRADN)) Q:SRADN'>0  S SRATN=$P(^(SRADN,0),""^"") D LABCHK"
^XMB(3.9,148,2,4591,0)="""RTN"",""SROAL1"",27,0)"
^XMB(3.9,148,2,4592,0)=" D NS"
^XMB(3.9,148,2,4593,0)="""RTN"",""SROAL1"",28,0)"
^XMB(3.9,148,2,4594,0)=" Q"
^XMB(3.9,148,2,4595,0)="""RTN"",""SROAL1"",29,0)"
^XMB(3.9,148,2,4596,0)="LABCHK ; Get latest test values from patient's lab record."
^XMB(3.9,148,2,4597,0)="""RTN"",""SROAL1"",30,0)"
^XMB(3.9,148,2,4598,0)=" I SRALR F SRAIDT=SRST:0 S SRAIDT=$O(^LR(SRALR,""CH"",SRAIDT)) Q:SRAIDT'>0!(SRAIDT>SREND)  I $D(^(SRAIDT,SRATN)) S SRSP=$P(^(0),""^"",5) D"
^XMB(3.9,148,2,4599,0)="""RTN"",""SROAL1"",31,0)"
^XMB(3.9,148,2,4600,0)=" .I (SRAT>1&(SRAT<16))!(SRAT=26)!(SRAT>20&(SRAT<25)),SRSP=SRSER!(SRSP=SRP) D COMP Q"
^XMB(3.9,148,2,4601,0)="""RTN"",""SROAL1"",32,0)"
^XMB(3.9,148,2,4602,0)=" .I SRSP=SRASP D COMP"
^XMB(3.9,148,2,4603,0)="""RTN"",""SROAL1"",33,0)"
^XMB(3.9,148,2,4604,0)=" Q"
^XMB(3.9,148,2,4605,0)="""RTN"",""SROAL1"",34,0)"
^XMB(3.9,148,2,4606,0)="NS ; check for no sample"
^XMB(3.9,148,2,4607,0)="""RTN"",""SROAL1"",35,0)"
^XMB(3.9,148,2,4608,0)=" I '$D(SRAT(SRAT)) S SRAT(SRAT)=""NS"",SRAD(SRAT)="""""
^XMB(3.9,148,2,4609,0)="""RTN"",""SROAL1"",36,0)"
^XMB(3.9,148,2,4610,0)=" Q"
^XMB(3.9,148,2,4611,0)="""RTN"",""SROAL1"",37,0)"
^XMB(3.9,148,2,4612,0)="COMP S SRX=$P(^LR(SRALR,""CH"",SRAIDT,SRATN),""^"") I $P(^LR(SRALR,""CH"",SRAIDT,0),""^"",3)'="""",""canccommentpending""'[SRX,SRX'[""CANC"" D DATA"
^XMB(3.9,148,2,4613,0)="""RTN"",""SROAL1"",38,0)"
^XMB(3.9,148,2,4614,0)=" Q"
^XMB(3.9,148,2,4615,0)="""RTN"",""SROAL1"",39,0)"
^XMB(3.9,148,2,4616,0)="DATA I $D(SRADT),SRAIDT>SRADT Q"
^XMB(3.9,148,2,4617,0)="""RTN"",""SROAL1"",40,0)"
^XMB(3.9,148,2,4618,0)=" I +SRX'=SRX D"
^XMB(3.9,148,2,4619,0)="""RTN"",""SROAL1"",41,0)"
^XMB(3.9,148,2,4620,0)=" .N X1,X2 S SRZ="""" I "" <>""[$E(SRX) S SRZ=$E(SRX),SRX=$E(SRX,2,99)"
^XMB(3.9,148,2,4621,0)="""RTN"",""SROAL1"",42,0)"
^XMB(3.9,148,2,4622,0)=" .I SRX?.N0.1""."".N D  Q"
^XMB(3.9,148,2,4623,0)="""RTN"",""SROAL1"",43,0)"
^XMB(3.9,148,2,4624,0)=" ..S X1=$P(SRX,"".""),X1=+X1 S:X1=0 X1="""""
^XMB(3.9,148,2,4625,0)="""RTN"",""SROAL1"",44,0)"
^XMB(3.9,148,2,4626,0)=" ..S X2="".""_$P(SRX,""."",2),X2=+X2 S:X2=0 X2="""""
^XMB(3.9,148,2,4627,0)="""RTN"",""SROAL1"",45,0)"
^XMB(3.9,148,2,4628,0)=" ..S SRX=X1_X2,SRX=+SRX,SRX=SRZ_SRX"
^XMB(3.9,148,2,4629,0)="""RTN"",""SROAL1"",46,0)"
^XMB(3.9,148,2,4630,0)=" .S SRX=""*"""
^XMB(3.9,148,2,4631,0)="""RTN"",""SROAL1"",47,0)"
^XMB(3.9,148,2,4632,0)=" S SRAT(SRAT)=SRX D:SRAT(SRAT)[""."" DEC S SRAD(SRAT)=$E($P(^LR(SRALR,""CH"",SRAIDT,0),""^""),1,7),SRADT=SRAIDT"
^XMB(3.9,148,2,4633,0)="""RTN"",""SROAL1"",48,0)"
^XMB(3.9,148,2,4634,0)=" Q"
^XMB(3.9,148,2,4635,0)="""RTN"",""SROAL1"",49,0)"
^XMB(3.9,148,2,4636,0)="TMCHK W !!,""Do you want to enter 'Time the Operation Began' at this time ?  YES//  "" R SRYN:DTIME I '$T!(SRYN[""^"") S SRSOUT=1 Q"
^XMB(3.9,148,2,4637,0)="""RTN"",""SROAL1"",50,0)"
^XMB(3.9,148,2,4638,0)=" S SRYN=$E(SRYN)"
^XMB(3.9,148,2,4639,0)="""RTN"",""SROAL1"",51,0)"
^XMB(3.9,148,2,4640,0)=" I ""YyNn""'[SRYN W !!,""The time that the operation began must be entered prior to capturing the"",!,""preoperative lab data.  Enter 'YES' to input 'Time the Operation Began',"",!,""or 'NO' to return to the menu."" G TMCHK"
^XMB(3.9,148,2,4641,0)="""RTN"",""SROAL1"",52,0)"
^XMB(3.9,148,2,4642,0)=" I ""Yy""'[SRYN S SRSOUT=1 Q"
^XMB(3.9,148,2,4643,0)="""RTN"",""SROAL1"",53,0)"
^XMB(3.9,148,2,4644,0)=" I $$LOCK^SROUTL(SRTN) D  D UNLOCK^SROUTL(SRTN)"
^XMB(3.9,148,2,4645,0)="""RTN"",""SROAL1"",54,0)"
^XMB(3.9,148,2,4646,0)=" .W ! K DR S DR="".22T"",DA=SRTN,DIE=130 D ^DIE K DR"
^XMB(3.9,148,2,4647,0)="""RTN"",""SROAL1"",55,0)"
^XMB(3.9,148,2,4648,0)=" S SRAOP=$P($G(^SRF(SRTN,.2)),""^"",2) I 'SRAOP S SRSOUT=1"
^XMB(3.9,148,2,4649,0)="""RTN"",""SROAL1"",56,0)"
^XMB(3.9,148,2,4650,0)=" Q"
^XMB(3.9,148,2,4651,0)="""RTN"",""SROAL1"",57,0)"
^XMB(3.9,148,2,4652,0)="DEC ; convert to proper decimal place"
^XMB(3.9,148,2,4653,0)="""RTN"",""SROAL1"",58,0)"
^XMB(3.9,148,2,4654,0)=" I +SRAT(SRAT)=SRAT(SRAT)  S SRAT(SRAT)=SRAT(SRAT)+.005\.01*.01 Q"
^XMB(3.9,148,2,4655,0)="""RTN"",""SROAL1"",59,0)"
^XMB(3.9,148,2,4656,0)=" S SR1=$E(SRAT(SRAT)),SR2=$E(SRAT(SRAT),2,99),SR2=SR2+.005\.01*.01,SRAT(SRAT)=SR1_SR2"
^XMB(3.9,148,2,4657,0)="""RTN"",""SROAL1"",60,0)"
^XMB(3.9,148,2,4658,0)=" Q"
^XMB(3.9,148,2,4659,0)="""RTN"",""SROAL1"",61,0)"
^XMB(3.9,148,2,4660,0)="CREAT ; from SROACL1 for creatinine"
^XMB(3.9,148,2,4661,0)="""RTN"",""SROAL1"",62,0)"
^XMB(3.9,148,2,4662,0)=" N SRSER,SRP K DIC S DIC=61,DIC(0)="""",X=""SERUM"" D ^DIC S SRSER=+Y K DIC S DIC=61,DIC(0)="""",X=""PLASMA"" D ^DIC K DIC S SRP=+Y"
^XMB(3.9,148,2,4663,0)="""RTN"",""SROAL1"",63,0)"
^XMB(3.9,148,2,4664,0)=" S SRLB=0 F SRLB=4,8,20 D"
^XMB(3.9,148,2,4665,0)="""RTN"",""SROAL1"",64,0)"
^XMB(3.9,148,2,4666,0)=" .S VALUE=$P($G(^SRF(SRTN,201)),""^"",SRLB),SRAOPDT=$P(^SRF(SRTN,0),""^"",9) I DT>SRAOPDT,VALUE Q"
^XMB(3.9,148,2,4667,0)="""RTN"",""SROAL1"",65,0)"
^XMB(3.9,148,2,4668,0)=" .S SRSOUT=0,SRALR=$S($D(^DPT($P(^SRF(SRTN,0),""^""),""LR"")):$P(^(""LR""),""^""),1:"""")"
^XMB(3.9,148,2,4669,0)="""RTN"",""SROAL1"",66,0)"
^XMB(3.9,148,2,4670,0)=" .S SRAOP=SRAOPDT,SRST=9999999-SRAOP,X1=SRAOP,X2=-30 D C^%DTC S SREND=9999999-X"
^XMB(3.9,148,2,4671,0)="""RTN"",""SROAL1"",67,0)"
^XMB(3.9,148,2,4672,0)=" .S SRAT=$S(SRLB=4:7,SRLB=8:11,1:1),SRASP=$P(^SRO(139.2,SRAT,2),""^"") K SRADT F SRADN=0:0 S SRADN=$O(^SRO(139.2,SRAT,1,SRADN)) Q:'SRADN  S SRATN=$P(^(SRADN,0),""^"") D LABCHK"
^XMB(3.9,148,2,4673,0)="""RTN"",""SROAL1"",68,0)"
^XMB(3.9,148,2,4674,0)=" .I $D(SRAT(SRAT)),$$LOCK^SROUTL(SRTN) S $P(^SRF(SRTN,201),""^"",SRLB)=SRAT(SRAT),$P(^(202),""^"",SRLB)=SRAD(SRAT) D UNLOCK^SROUTL(SRTN)"
^XMB(3.9,148,2,4675,0)="""RTN"",""SROAL1"",69,0)"
^XMB(3.9,148,2,4676,0)=" K SRLB"
^XMB(3.9,148,2,4677,0)="""RTN"",""SROAL1"",70,0)"
^XMB(3.9,148,2,4678,0)=" Q"
^XMB(3.9,148,2,4679,0)="""RTN"",""SROAL11"")"
^XMB(3.9,148,2,4680,0)="0^15^B18235736^B16645671"
^XMB(3.9,148,2,4681,0)="""RTN"",""SROAL11"",1,0)"
^XMB(3.9,148,2,4682,0)="SROAL11 ;BIR/ADM - LOAD PREOP LAB DATA (CONTINUED) ;06/27/06"
^XMB(3.9,148,2,4683,0)="""RTN"",""SROAL11"",2,0)"
^XMB(3.9,148,2,4684,0)=" ;;3.0; Surgery ;**38,47,65,95,125,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,4685,0)="""RTN"",""SROAL11"",3,0)"
^XMB(3.9,148,2,4686,0)="STUFF ; Transfer test data from array to file 130"
^XMB(3.9,148,2,4687,0)="""RTN"",""SROAL11"",4,0)"
^XMB(3.9,148,2,4688,0)=" W !!,""..Moving preoperative lab test data to Surgery Risk Assessment file...."""
^XMB(3.9,148,2,4689,0)="""RTN"",""SROAL11"",5,0)"
^XMB(3.9,148,2,4690,0)="N4 I $D(SRAT(4)) S X=SRAT(4),SRL=1,SRH=5 D INPUT S $P(^SRF(SRTN,201),""^"")=X S $P(^(202),""^"")=$S(X'="""":SRAD(4),1:"""") ; Sodium"
^XMB(3.9,148,2,4691,0)="""RTN"",""SROAL11"",6,0)"
^XMB(3.9,148,2,4692,0)="N7 I $D(SRAT(7)) S X=SRAT(7),SRL=1,SRH=4 D INPUT S $P(^SRF(SRTN,201),""^"",4)=X,$P(^(202),""^"",4)=$S(X'="""":SRAD(7),1:"""") ; Creatinine"
^XMB(3.9,148,2,4693,0)="""RTN"",""SROAL11"",7,0)"
^XMB(3.9,148,2,4694,0)="N8 I $D(SRAT(8)) S X=SRAT(8),SRL=1,SRH=5 D INPUT S $P(^SRF(SRTN,201),""^"",5)=X,$P(^(202),""^"",5)=$S(X'="""":SRAD(8),1:"""") ; BUN"
^XMB(3.9,148,2,4695,0)="""RTN"",""SROAL11"",8,0)"
^XMB(3.9,148,2,4696,0)="N11 I $D(SRAT(11)) S X=SRAT(11),SRL=1,SRH=4 D INPUT S $P(^SRF(SRTN,201),""^"",8)=X,$P(^(202),""^"",8)=$S(X'="""":SRAD(11),1:"""") ; Albumin"
^XMB(3.9,148,2,4697,0)="""RTN"",""SROAL11"",9,0)"
^XMB(3.9,148,2,4698,0)="N13 I $D(SRAT(13)) S X=SRAT(13),SRL=1,SRH=5 D INPUT S $P(^SRF(SRTN,201),""^"",11)=X,$P(^(202),""^"",11)=$S(X'="""":SRAD(13),1:"""") ; SGOT"
^XMB(3.9,148,2,4699,0)="""RTN"",""SROAL11"",10,0)"
^XMB(3.9,148,2,4700,0)="N14 I $D(SRAT(14)) S X=SRAT(14),SRL=1,SRH=5 D INPUT S $P(^SRF(SRTN,201),""^"",9)=X,$P(^(202),""^"",9)=$S(X'="""":SRAD(14),1:"""") ; Total Bilirubin"
^XMB(3.9,148,2,4701,0)="""RTN"",""SROAL11"",11,0)"
^XMB(3.9,148,2,4702,0)="N15 I $D(SRAT(15)) S X=SRAT(15),SRL=1,SRH=5 D INPUT S $P(^SRF(SRTN,201),""^"",12)=X,$P(^(202),""^"",12)=$S(X'="""":SRAD(15),1:"""") ; Alkaline Phosphatase"
^XMB(3.9,148,2,4703,0)="""RTN"",""SROAL11"",12,0)"
^XMB(3.9,148,2,4704,0)="N16 I $D(SRAT(16)) S X=SRAT(16),SRL=1,SRH=4 D INPUT S $P(^SRF(SRTN,201),""^"",13)=X,$P(^(202),""^"",13)=$S(X'="""":SRAD(16),1:"""") ; White Blood Count"
^XMB(3.9,148,2,4705,0)="""RTN"",""SROAL11"",13,0)"
^XMB(3.9,148,2,4706,0)="N17 I $D(SRAT(17)) S X=SRAT(17),SRL=1,SRH=4 D INPUT S $P(^SRF(SRTN,201),""^"",14)=X,$P(^(202),""^"",14)=$S(X'="""":SRAD(17),1:"""") ; Hematocrit"
^XMB(3.9,148,2,4707,0)="""RTN"",""SROAL11"",14,0)"
^XMB(3.9,148,2,4708,0)="N18 I $D(SRAT(18)) S X=SRAT(18),SRL=1,SRH=5 D INPUT S $P(^SRF(SRTN,201),""^"",15)=X,$P(^(202),""^"",15)=$S(X'="""":SRAD(18),1:"""") ; Platelet Count"
^XMB(3.9,148,2,4709,0)="""RTN"",""SROAL11"",15,0)"
^XMB(3.9,148,2,4710,0)="N19 I $D(SRAT(19)) S X=SRAT(19),SRL=1,SRH=4 D INPUT S $P(^SRF(SRTN,201),""^"",17)=X,$P(^(202),""^"",17)=$S(X'="""":SRAD(19),1:"""") ; PT"
^XMB(3.9,148,2,4711,0)="""RTN"",""SROAL11"",16,0)"
^XMB(3.9,148,2,4712,0)="N20 I $D(SRAT(20)) S X=SRAT(20),SRL=1,SRH=5 D INPUT S $P(^SRF(SRTN,201),""^"",16)=X,$P(^(202),""^"",16)=$S(X'="""":SRAD(20),1:"""") ; PTT"
^XMB(3.9,148,2,4713,0)="""RTN"",""SROAL11"",17,0)"
^XMB(3.9,148,2,4714,0)="N25 I $D(SRAT(25)) S X=SRAT(25),SRL=1,SRH=5 D INPUT S $P(^SRF(SRTN,201),""^"",27)=X,$P(^(202),""^"",27)=$S(X'="""":SRAD(25),1:"""") ; INR"
^XMB(3.9,148,2,4715,0)="""RTN"",""SROAL11"",18,0)"
^XMB(3.9,148,2,4716,0)="N26 I $D(SRAT(26)) S X=SRAT(26),SRL=1,SRH=5 D INPUT S $P(^SRF(SRTN,203),""^"",15)=X,$P(^(204),""^"",15)=$S(X'="""":SRAD(26),1:"""") ; ANION GAP"
^XMB(3.9,148,2,4717,0)="""RTN"",""SROAL11"",19,0)"
^XMB(3.9,148,2,4718,0)=" Q"
^XMB(3.9,148,2,4719,0)="""RTN"",""SROAL11"",20,0)"
^XMB(3.9,148,2,4720,0)="CARDIAC ; LOAD CARDIAC LAB DATA (CONTINUED)"
^XMB(3.9,148,2,4721,0)="""RTN"",""SROAL11"",21,0)"
^XMB(3.9,148,2,4722,0)=" N SRCRD"
^XMB(3.9,148,2,4723,0)="""RTN"",""SROAL11"",22,0)"
^XMB(3.9,148,2,4724,0)="C1 I $D(SRAT(1)) S X=SRAT(1),SRL=1,SRH=7,SRCRD=1 D INPUT S $P(^SRF(SRTN,201),""^"",20)=X,$P(^(202),""^"",20)=$S(X'="""":SRAD(1),1:"""") ; Hemoglobin"
^XMB(3.9,148,2,4725,0)="""RTN"",""SROAL11"",23,0)"
^XMB(3.9,148,2,4726,0)="C5 I $D(SRAT(5)) S X=SRAT(5),SRL=1,SRH=6 D INPUT S $P(^SRF(SRTN,201),""^"",23)=X,$P(^(202),""^"",23)=$S(X'="""":SRAD(5),1:"""") ; Potassium (Cardiac)"
^XMB(3.9,148,2,4727,0)="""RTN"",""SROAL11"",24,0)"
^XMB(3.9,148,2,4728,0)="C7 I $D(SRAT(7)) S X=SRAT(7),SRL=1,SRH=4,SRCRD=1 D INPUT S $P(^SRF(SRTN,201),""^"",4)=X,$P(^(202),""^"",4)=$S(X'="""":SRAD(7),1:"""") ; Creatinine"
^XMB(3.9,148,2,4729,0)="""RTN"",""SROAL11"",25,0)"
^XMB(3.9,148,2,4730,0)="C11 I $D(SRAT(11)) S X=SRAT(11),SRL=1,SRH=4 D INPUT S $P(^SRF(SRTN,201),""^"",8)=X,$P(^(202),""^"",8)=$S(X'="""":SRAD(11),1:"""") ; Albumin"
^XMB(3.9,148,2,4731,0)="""RTN"",""SROAL11"",26,0)"
^XMB(3.9,148,2,4732,0)="C14 I $D(SRAT(14)) S X=SRAT(14),SRL=1,SRH=6 D INPUT S $P(^SRF(SRTN,201),""^"",24)=X,$P(^(202),""^"",24)=$S(X'="""":SRAD(14),1:"""") ; Total Bilirubin (Cardiac)"
^XMB(3.9,148,2,4733,0)="""RTN"",""SROAL11"",27,0)"
^XMB(3.9,148,2,4734,0)="C21 I $D(SRAT(21)) S X=SRAT(21),SRL=1,SRH=6 D INPUT S $P(^SRF(SRTN,201),""^"",21)=X,$P(^(202),""^"",21)=$S(X'="""":SRAD(21),1:"""") ; HDL"
^XMB(3.9,148,2,4735,0)="""RTN"",""SROAL11"",28,0)"
^XMB(3.9,148,2,4736,0)="C22 I $D(SRAT(22)) S X=SRAT(22),SRL=1,SRH=6 D INPUT S $P(^SRF(SRTN,201),""^"",22)=X,$P(^(202),""^"",22)=$S(X'="""":SRAD(22),1:"""") ; Triglyceride"
^XMB(3.9,148,2,4737,0)="""RTN"",""SROAL11"",29,0)"
^XMB(3.9,148,2,4738,0)="C23 I $D(SRAT(23)) S X=SRAT(23),SRL=1,SRH=6 D INPUT S $P(^SRF(SRTN,201),""^"",25)=X,$P(^(202),""^"",25)=$S(X'="""":SRAD(23),1:"""") ; LDL"
^XMB(3.9,148,2,4739,0)="""RTN"",""SROAL11"",30,0)"
^XMB(3.9,148,2,4740,0)="C24 I $D(SRAT(24)) S X=SRAT(24),SRL=1,SRH=6 D INPUT S $P(^SRF(SRTN,201),""^"",26)=X,$P(^(202),""^"",26)=$S(X'="""":SRAD(24),1:"""") ; Cholesterol"
^XMB(3.9,148,2,4741,0)="""RTN"",""SROAL11"",31,0)"
^XMB(3.9,148,2,4742,0)="C27 I $D(SRAT(27)) S X=SRAT(27),SRL=1,SRH=6 D INPUT S $P(^SRF(SRTN,201),""^"",28)=X,$P(^(202.1),""^"")=$S(X'="""":SRAD(27),1:"""") ; HEMOGLOBIN A1C"
^XMB(3.9,148,2,4743,0)="""RTN"",""SROAL11"",32,0)"
^XMB(3.9,148,2,4744,0)=" Q"
^XMB(3.9,148,2,4745,0)="""RTN"",""SROAL11"",33,0)"
^XMB(3.9,148,2,4746,0)="INPUT ; input checking"
^XMB(3.9,148,2,4747,0)="""RTN"",""SROAL11"",34,0)"
^XMB(3.9,148,2,4748,0)=" N SRX,SRY I $D(SRCRD),X=""NS"" S X="""""
^XMB(3.9,148,2,4749,0)="""RTN"",""SROAL11"",35,0)"
^XMB(3.9,148,2,4750,0)=" K SRCRD I X=""NS""!(X="""") Q"
^XMB(3.9,148,2,4751,0)="""RTN"",""SROAL11"",36,0)"
^XMB(3.9,148,2,4752,0)=" I $L(X)<SRL S X="""" Q"
^XMB(3.9,148,2,4753,0)="""RTN"",""SROAL11"",37,0)"
^XMB(3.9,148,2,4754,0)=" S SRX=X,SRY="""" S:"" <>""[$E(X) SRY=$E(X),SRX=$E(X,2,99)"
^XMB(3.9,148,2,4755,0)="""RTN"",""SROAL11"",38,0)"
^XMB(3.9,148,2,4756,0)=" I +SRX'=SRX S X="""" Q"
^XMB(3.9,148,2,4757,0)="""RTN"",""SROAL11"",39,0)"
^XMB(3.9,148,2,4758,0)=" I $L(X)>SRH D"
^XMB(3.9,148,2,4759,0)="""RTN"",""SROAL11"",40,0)"
^XMB(3.9,148,2,4760,0)=" .I SRX[""."" S SRX=SRX+.05\.1*.1,X=SRY_SRX I $L(X)>SRH S SRX=SRX+.5\1,X=SRY_SRX"
^XMB(3.9,148,2,4761,0)="""RTN"",""SROAL11"",41,0)"
^XMB(3.9,148,2,4762,0)=" .I $L(X)>SRH S X="""""
^XMB(3.9,148,2,4763,0)="""RTN"",""SROAL11"",42,0)"
^XMB(3.9,148,2,4764,0)=" Q"
^XMB(3.9,148,2,4765,0)="""RTN"",""SROAL2"")"
^XMB(3.9,148,2,4766,0)="0^16^B18933004^B18847403"
^XMB(3.9,148,2,4767,0)="""RTN"",""SROAL2"",1,0)"
^XMB(3.9,148,2,4768,0)="SROAL2 ;BIR/ADM - LOAD POSTOPERATIVE LAB DATA ;06/27/06"
^XMB(3.9,148,2,4769,0)="""RTN"",""SROAL2"",2,0)"
^XMB(3.9,148,2,4770,0)=" ;;3.0; Surgery ;**18,38,47,54,65,71,88,100,125,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,4771,0)="""RTN"",""SROAL2"",3,0)"
^XMB(3.9,148,2,4772,0)=" ;"
^XMB(3.9,148,2,4773,0)="""RTN"",""SROAL2"",4,0)"
^XMB(3.9,148,2,4774,0)=" ; Reference to ^LR( supported by DBIA #194"
^XMB(3.9,148,2,4775,0)="""RTN"",""SROAL2"",5,0)"
^XMB(3.9,148,2,4776,0)=" ;"
^XMB(3.9,148,2,4777,0)="""RTN"",""SROAL2"",6,0)"
^XMB(3.9,148,2,4778,0)=" Q:'$D(SRTN)  K SRAD,SRAT S SRSOUT=0"
^XMB(3.9,148,2,4779,0)="""RTN"",""SROAL2"",7,0)"
^XMB(3.9,148,2,4780,0)=" W !!,""This selection loads highest or lowest lab data for tests performed within"",!,""30 days after the operation."""
^XMB(3.9,148,2,4781,0)="""RTN"",""SROAL2"",8,0)"
^XMB(3.9,148,2,4782,0)="YEP W !!,""Do you want to automatically load postoperative lab data ?  YES//  "" R SRYN:DTIME G:'$T!(SRYN[""^"") END"
^XMB(3.9,148,2,4783,0)="""RTN"",""SROAL2"",9,0)"
^XMB(3.9,148,2,4784,0)=" S SRYN=$E(SRYN) I ""YyNn""'[SRYN W !!,""Enter <RET> to automatically load postoperative lab data from the patient's lab record, or 'NO' to return to the menu."" G YEP"
^XMB(3.9,148,2,4785,0)="""RTN"",""SROAL2"",10,0)"
^XMB(3.9,148,2,4786,0)=" I ""Yy""'[SRYN W !!,""Lab data NOT loaded."" G END"
^XMB(3.9,148,2,4787,0)="""RTN"",""SROAL2"",11,0)"
^XMB(3.9,148,2,4788,0)="START S SRALR=$S($D(^DPT($P(^SRF(SRTN,0),""^""),""LR"")):$P(^(""LR""),""^""),1:"""")"
^XMB(3.9,148,2,4789,0)="""RTN"",""SROAL2"",12,0)"
^XMB(3.9,148,2,4790,0)=" S SRAOP=$P($G(^SRF(SRTN,.2)),""^"",3) I 'SRAOP W !!,""'Time the Operation Ends' must be entered before continuing."" D TMCHK G:SRSOUT END"
^XMB(3.9,148,2,4791,0)="""RTN"",""SROAL2"",13,0)"
^XMB(3.9,148,2,4792,0)=" S SREND=9999999-SRAOP,X1=SRAOP,X2=30 D C^%DTC S SRST=9999999-X"
^XMB(3.9,148,2,4793,0)="""RTN"",""SROAL2"",14,0)"
^XMB(3.9,148,2,4794,0)="SRAT ; Get test from file 139.2."
^XMB(3.9,148,2,4795,0)="""RTN"",""SROAL2"",15,0)"
^XMB(3.9,148,2,4796,0)=" W !!,""..Searching lab record for postoperative lab test data...."""
^XMB(3.9,148,2,4797,0)="""RTN"",""SROAL2"",16,0)"
^XMB(3.9,148,2,4798,0)=" K DIC S DIC=61,DIC(0)="""",X=""SERUM"" D ^DIC S SRSER=+Y K DIC S DIC=61,DIC(0)="""",X=""PLASMA"" D ^DIC K DIC S SRP=+Y"
^XMB(3.9,148,2,4799,0)="""RTN"",""SROAL2"",17,0)"
^XMB(3.9,148,2,4800,0)=" S SRFLG=""H"" F SRAT=2,3,4,5,7,9,10,14,16,26 S SRASP=$P(^SRO(139.2,SRAT,2),""^"") D SRADN,NS"
^XMB(3.9,148,2,4801,0)="""RTN"",""SROAL2"",18,0)"
^XMB(3.9,148,2,4802,0)=" S SRFLG=""L"" F SRAT=4,5,17 S SRASP=$P(^SRO(139.2,SRAT,2),""^"") D SRADN,NS"
^XMB(3.9,148,2,4803,0)="""RTN"",""SROAL2"",19,0)"
^XMB(3.9,148,2,4804,0)=" I $$LOCK^SROUTL(SRTN) D ^SROAL21,UNLOCK^SROUTL(SRTN)"
^XMB(3.9,148,2,4805,0)="""RTN"",""SROAL2"",20,0)"
^XMB(3.9,148,2,4806,0)="END I 'SRSOUT W !!,""Press <RET> to continue  "" R X:DTIME"
^XMB(3.9,148,2,4807,0)="""RTN"",""SROAL2"",21,0)"
^XMB(3.9,148,2,4808,0)=" W @IOF"
^XMB(3.9,148,2,4809,0)="""RTN"",""SROAL2"",22,0)"
^XMB(3.9,148,2,4810,0)=" Q"
^XMB(3.9,148,2,4811,0)="""RTN"",""SROAL2"",23,0)"
^XMB(3.9,148,2,4812,0)="SRADN ; Get data name(s) for test, make call to check lab record."
^XMB(3.9,148,2,4813,0)="""RTN"",""SROAL2"",24,0)"
^XMB(3.9,148,2,4814,0)=" F SRADN=0:0 S SRADN=$O(^SRO(139.2,SRAT,1,SRADN)) Q:SRADN'>0  S SRATN=$P(^(SRADN,0),""^"") D LABCHK"
^XMB(3.9,148,2,4815,0)="""RTN"",""SROAL2"",25,0)"
^XMB(3.9,148,2,4816,0)=" Q"
^XMB(3.9,148,2,4817,0)="""RTN"",""SROAL2"",26,0)"
^XMB(3.9,148,2,4818,0)="LABCHK ; Get test values from patient's lab record."
^XMB(3.9,148,2,4819,0)="""RTN"",""SROAL2"",27,0)"
^XMB(3.9,148,2,4820,0)=" S SRX="""" I SRALR F SRAIDT=SRST:0 S SRAIDT=$O(^LR(SRALR,""CH"",SRAIDT)) Q:SRAIDT'>0!(SRAIDT>SREND)  I $D(^(SRAIDT,SRATN)) S SRSP=$P(^(0),""^"",5) D  Q:(SRFLG=""H""&(SRX["">""))!(SRFLG=""L""&(SRX[""<""))  I SRX=""*"" D STAR"
^XMB(3.9,148,2,4821,0)="""RTN"",""SROAL2"",28,0)"
^XMB(3.9,148,2,4822,0)=" .I (SRAT>1&(SRAT<16))!(SRAT=26),SRSP=SRSER!(SRSP=SRP) D COMP Q"
^XMB(3.9,148,2,4823,0)="""RTN"",""SROAL2"",29,0)"
^XMB(3.9,148,2,4824,0)=" .I SRSP=SRASP D COMP Q"
^XMB(3.9,148,2,4825,0)="""RTN"",""SROAL2"",30,0)"
^XMB(3.9,148,2,4826,0)=" Q"
^XMB(3.9,148,2,4827,0)="""RTN"",""SROAL2"",31,0)"
^XMB(3.9,148,2,4828,0)="COMP S SRAVAL=$P(^LR(SRALR,""CH"",SRAIDT,SRATN),""^"") I $P(^LR(SRALR,""CH"",SRAIDT,0),""^"",3)'="""",""canccommentpending""'[SRAVAL,SRAVAL'[""CANC"" D DATA"
^XMB(3.9,148,2,4829,0)="""RTN"",""SROAL2"",32,0)"
^XMB(3.9,148,2,4830,0)=" I $D(SRAT(SRFLG,SRAT)),SRAT(SRFLG,SRAT)[""."" D"
^XMB(3.9,148,2,4831,0)="""RTN"",""SROAL2"",33,0)"
^XMB(3.9,148,2,4832,0)=" .I SRAT(SRFLG,SRAT)=+SRAT(SRFLG,SRAT) S SRAT(SRFLG,SRAT)=SRAT(SRFLG,SRAT)+.005\.01*.01 Q"
^XMB(3.9,148,2,4833,0)="""RTN"",""SROAL2"",34,0)"
^XMB(3.9,148,2,4834,0)=" .S SR1=$E(SRAT(SRFLG,SRAT)),SR2=$E(SRAT(SRFLG,SRAT),2,99),SR2=SR2+.005\.01*.01,SRAT(SRFLG,SRAT)=SR1_SR2"
^XMB(3.9,148,2,4835,0)="""RTN"",""SROAL2"",35,0)"
^XMB(3.9,148,2,4836,0)=" Q"
^XMB(3.9,148,2,4837,0)="""RTN"",""SROAL2"",36,0)"
^XMB(3.9,148,2,4838,0)="NS ; check for no sample"
^XMB(3.9,148,2,4839,0)="""RTN"",""SROAL2"",37,0)"
^XMB(3.9,148,2,4840,0)=" I '$D(SRAT(SRFLG,SRAT)) S SRAT(SRFLG,SRAT)=""NS"",SRAD(SRFLG,SRAT)="""""
^XMB(3.9,148,2,4841,0)="""RTN"",""SROAL2"",38,0)"
^XMB(3.9,148,2,4842,0)=" Q"
^XMB(3.9,148,2,4843,0)="""RTN"",""SROAL2"",39,0)"
^XMB(3.9,148,2,4844,0)="STAR ; questional result, require manual input"
^XMB(3.9,148,2,4845,0)="""RTN"",""SROAL2"",40,0)"
^XMB(3.9,148,2,4846,0)=" S (SRAT(SRFLG,SRAT),SRAD(SRFLG,SRAT))="""""
^XMB(3.9,148,2,4847,0)="""RTN"",""SROAL2"",41,0)"
^XMB(3.9,148,2,4848,0)=" Q"
^XMB(3.9,148,2,4849,0)="""RTN"",""SROAL2"",42,0)"
^XMB(3.9,148,2,4850,0)="DATA ; Decide to save test result or not"
^XMB(3.9,148,2,4851,0)="""RTN"",""SROAL2"",43,0)"
^XMB(3.9,148,2,4852,0)=" N SRSWAP,SRVAL S SRSWAP=0"
^XMB(3.9,148,2,4853,0)="""RTN"",""SROAL2"",44,0)"
^XMB(3.9,148,2,4854,0)=" S (SRT,SRX)=SRAVAL I +SRAVAL'=SRAVAL D CONV Q:SRX=""*""  S (SRT,SRAVAL)=SRZ_SRX"
^XMB(3.9,148,2,4855,0)="""RTN"",""SROAL2"",45,0)"
^XMB(3.9,148,2,4856,0)=" I $D(SRAT(SRFLG,SRAT)) S SRT1=SRAT(SRFLG,SRAT) D  I SRSWAP S SRAT(SRFLG,SRAT)=SRAVAL,SRAD(SRFLG,SRAT)=$E($P(^LR(SRALR,""CH"",SRAIDT,0),""^""),1,7) Q"
^XMB(3.9,148,2,4857,0)="""RTN"",""SROAL2"",46,0)"
^XMB(3.9,148,2,4858,0)=" .I SRFLG=""H"" Q:SRT1["">""  D"
^XMB(3.9,148,2,4859,0)="""RTN"",""SROAL2"",47,0)"
^XMB(3.9,148,2,4860,0)=" ..I SRT["">"" S SRSWAP=1 Q"
^XMB(3.9,148,2,4861,0)="""RTN"",""SROAL2"",48,0)"
^XMB(3.9,148,2,4862,0)=" ..S SRVAL=SRX,SRX=SRT1 D CONV I SRVAL>SRX S SRSWAP=1 Q"
^XMB(3.9,148,2,4863,0)="""RTN"",""SROAL2"",49,0)"
^XMB(3.9,148,2,4864,0)=" .I SRFLG=""L"" Q:SRT1[""<""  D"
^XMB(3.9,148,2,4865,0)="""RTN"",""SROAL2"",50,0)"
^XMB(3.9,148,2,4866,0)=" ..I SRT[""<"" S SRSWAP=1 Q"
^XMB(3.9,148,2,4867,0)="""RTN"",""SROAL2"",51,0)"
^XMB(3.9,148,2,4868,0)=" ..S SRVAL=SRX,SRX=SRT1 D CONV I SRVAL<SRX S SRSWAP=1 Q"
^XMB(3.9,148,2,4869,0)="""RTN"",""SROAL2"",52,0)"
^XMB(3.9,148,2,4870,0)=" I '$D(SRAT(SRFLG,SRAT)) S SRAT(SRFLG,SRAT)=SRAVAL,SRAD(SRFLG,SRAT)=$E($P(^LR(SRALR,""CH"",SRAIDT,0),""^""),1,7)"
^XMB(3.9,148,2,4871,0)="""RTN"",""SROAL2"",53,0)"
^XMB(3.9,148,2,4872,0)=" Q"
^XMB(3.9,148,2,4873,0)="""RTN"",""SROAL2"",54,0)"
^XMB(3.9,148,2,4874,0)="TMCHK W !!,""Do you want to enter the time that the operation was completed at "",!,""this time ?  YES//  "" R SRYN:DTIME I '$T!(SRYN[""^"") S SRSOUT=1 Q"
^XMB(3.9,148,2,4875,0)="""RTN"",""SROAL2"",55,0)"
^XMB(3.9,148,2,4876,0)=" S SRYN=$E(SRYN) I ""YyNn""'[SRYN W !!,""Enter 'YES' to input 'Time the Operation Ends' or "",!,""'NO' to return to the menu."" G TMCHK"
^XMB(3.9,148,2,4877,0)="""RTN"",""SROAL2"",56,0)"
^XMB(3.9,148,2,4878,0)=" I ""Yy""'[SRYN S SRSOUT=1 Q"
^XMB(3.9,148,2,4879,0)="""RTN"",""SROAL2"",57,0)"
^XMB(3.9,148,2,4880,0)=" I $$LOCK^SROUTL(SRTN) D  D UNLOCK^SROUTL(SRTN)"
^XMB(3.9,148,2,4881,0)="""RTN"",""SROAL2"",58,0)"
^XMB(3.9,148,2,4882,0)=" .W ! K DR S DR="".23T"",DA=SRTN,DIE=130 D ^DIE K DR S SRAOP=$P($G(^SRF(SRTN,.2)),""^"",3) I 'SRAOP S SRSOUT=1"
^XMB(3.9,148,2,4883,0)="""RTN"",""SROAL2"",59,0)"
^XMB(3.9,148,2,4884,0)=" Q"
^XMB(3.9,148,2,4885,0)="""RTN"",""SROAL2"",60,0)"
^XMB(3.9,148,2,4886,0)="CONV ; convert value to numeric for comparison"
^XMB(3.9,148,2,4887,0)="""RTN"",""SROAL2"",61,0)"
^XMB(3.9,148,2,4888,0)=" N SRELSE,X1,X2 S SRZ="""" I "" <>""[$E(SRX) S SRZ=$E(SRX),SRX=$E(SRX,2,99)"
^XMB(3.9,148,2,4889,0)="""RTN"",""SROAL2"",62,0)"
^XMB(3.9,148,2,4890,0)=" I SRX?.N0.1""."".N D  Q"
^XMB(3.9,148,2,4891,0)="""RTN"",""SROAL2"",63,0)"
^XMB(3.9,148,2,4892,0)=" .I SRX'[""."" S SRX=+SRX Q"
^XMB(3.9,148,2,4893,0)="""RTN"",""SROAL2"",64,0)"
^XMB(3.9,148,2,4894,0)=" .S X1=$P(SRX,"".""),X1=+X1 S:X1=0 X1="""""
^XMB(3.9,148,2,4895,0)="""RTN"",""SROAL2"",65,0)"
^XMB(3.9,148,2,4896,0)=" .S X2="".""_$P(SRX,""."",2),X2=+X2 S:X2=0 X2="""""
^XMB(3.9,148,2,4897,0)="""RTN"",""SROAL2"",66,0)"
^XMB(3.9,148,2,4898,0)=" .S SRX=X1_X2,SRX=+SRX"
^XMB(3.9,148,2,4899,0)="""RTN"",""SROAL2"",67,0)"
^XMB(3.9,148,2,4900,0)=" S SRX=""*"""
^XMB(3.9,148,2,4901,0)="""RTN"",""SROAL2"",68,0)"
^XMB(3.9,148,2,4902,0)=" Q"
^XMB(3.9,148,2,4903,0)="""RTN"",""SROAL21"")"
^XMB(3.9,148,2,4904,0)="0^17^B9664688^B8949324"
^XMB(3.9,148,2,4905,0)="""RTN"",""SROAL21"",1,0)"
^XMB(3.9,148,2,4906,0)="SROAL21 ;BIR/ADM - LOAD POSTOPERATIVE LAB DATA (CONTINUED) ;06/27/06"
^XMB(3.9,148,2,4907,0)="""RTN"",""SROAL21"",2,0)"
^XMB(3.9,148,2,4908,0)=" ;;3.0; Surgery ;**38,47,65,88,125,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,4909,0)="""RTN"",""SROAL21"",3,0)"
^XMB(3.9,148,2,4910,0)="STUFF ; Transfer data from arrays to file 130."
^XMB(3.9,148,2,4911,0)="""RTN"",""SROAL21"",4,0)"
^XMB(3.9,148,2,4912,0)=" W !!,""..Moving postoperative lab data to Surgery Risk Assessment file...."""
^XMB(3.9,148,2,4913,0)="""RTN"",""SROAL21"",5,0)"
^XMB(3.9,148,2,4914,0)="SRAT2 I $D(SRAT(""H"",2)) S X=SRAT(""H"",2) S SRL=1,SRH=5 D INPUT S $P(^SRF(SRTN,203),""^"",13)=X,$P(^(204),""^"",13)=$S(X'="""":SRAD(""H"",2),1:"""")"
^XMB(3.9,148,2,4915,0)="""RTN"",""SROAL21"",6,0)"
^XMB(3.9,148,2,4916,0)="SRAT3 I $D(SRAT(""H"",3)) S X=SRAT(""H"",3) S SRL=1,SRH=5 D INPUT S $P(^SRF(SRTN,203),""^"",14)=X,$P(^(204),""^"",14)=$S(X'="""":SRAD(""H"",3),1:"""")"
^XMB(3.9,148,2,4917,0)="""RTN"",""SROAL21"",7,0)"
^XMB(3.9,148,2,4918,0)="SRAT4 I $D(SRAT(""H"",4)) S X=SRAT(""H"",4) S SRL=1,SRH=5 D INPUT S $P(^SRF(SRTN,203),""^"")=X,$P(^(204),""^"")=$S(X'="""":SRAD(""H"",4),1:"""")"
^XMB(3.9,148,2,4919,0)="""RTN"",""SROAL21"",8,0)"
^XMB(3.9,148,2,4920,0)="SRAT5 I $D(SRAT(""H"",5)) S X=SRAT(""H"",5) S SRL=1,SRH=3 D INPUT S $P(^SRF(SRTN,203),""^"",3)=X,$P(^(204),""^"",3)=$S(X'="""":SRAD(""H"",5),1:"""")"
^XMB(3.9,148,2,4921,0)="""RTN"",""SROAL21"",9,0)"
^XMB(3.9,148,2,4922,0)="SRAT7 I $D(SRAT(""H"",7)) S X=SRAT(""H"",7) S SRL=1,SRH=4 D INPUT S $P(^SRF(SRTN,203),""^"",6)=X,$P(^(204),""^"",6)=$S(X'="""":SRAD(""H"",7),1:"""")"
^XMB(3.9,148,2,4923,0)="""RTN"",""SROAL21"",10,0)"
^XMB(3.9,148,2,4924,0)="SRAT9 I $D(SRAT(""H"",9)) S X=SRAT(""H"",9) S SRL=1,SRH=6 D INPUT S $P(^SRF(SRTN,203),""^"",7)=X,$P(^(204),""^"",7)=$S(X'="""":SRAD(""H"",9),1:"""")"
^XMB(3.9,148,2,4925,0)="""RTN"",""SROAL21"",11,0)"
^XMB(3.9,148,2,4926,0)="SRAT10 I $D(SRAT(""H"",10)) S X=SRAT(""H"",10) S SRL=1,SRH=4 D INPUT S $P(^SRF(SRTN,203),""^"",8)=X,$P(^(204),""^"",8)=$S(X'="""":SRAD(""H"",10),1:"""")"
^XMB(3.9,148,2,4927,0)="""RTN"",""SROAL21"",12,0)"
^XMB(3.9,148,2,4928,0)="SRAT14 I $D(SRAT(""H"",14)) S X=SRAT(""H"",14) S SRL=1,SRH=5 D INPUT S $P(^SRF(SRTN,203),""^"",9)=X,$P(^(204),""^"",9)=$S(X'="""":SRAD(""H"",14),1:"""")"
^XMB(3.9,148,2,4929,0)="""RTN"",""SROAL21"",13,0)"
^XMB(3.9,148,2,4930,0)="SRAT16 I $D(SRAT(""H"",16)) S X=SRAT(""H"",16) S SRL=1,SRH=4 D INPUT S $P(^SRF(SRTN,203),""^"",10)=X,$P(^(204),""^"",10)=$S(X'="""":SRAD(""H"",16),1:"""")"
^XMB(3.9,148,2,4931,0)="""RTN"",""SROAL21"",14,0)"
^XMB(3.9,148,2,4932,0)="SRAT17 I $D(SRAT(""L"",17)) S X=SRAT(""L"",17) S SRL=1,SRH=4 D INPUT S $P(^SRF(SRTN,203),""^"",12)=X,$P(^(204),""^"",12)=$S(X'="""":SRAD(""L"",17),1:"""")"
^XMB(3.9,148,2,4933,0)="""RTN"",""SROAL21"",15,0)"
^XMB(3.9,148,2,4934,0)="SRAT26 I $D(SRAT(""H"",26)) S X=SRAT(""H"",26) S SRL=1,SRH=5 D INPUT S $P(^SRF(SRTN,203),""^"",16)=X,$P(^(204),""^"",16)=$S(X'="""":SRAD(""H"",26),1:"""")"
^XMB(3.9,148,2,4935,0)="""RTN"",""SROAL21"",16,0)"
^XMB(3.9,148,2,4936,0)="SRAT4L I $D(SRAT(""L"",4)) S X=SRAT(""L"",4) S SRL=1,SRH=5 D INPUT S $P(^SRF(SRTN,203),""^"",2)=X,$P(^(204),""^"",2)=$S(X'="""":SRAD(""L"",4),1:"""")"
^XMB(3.9,148,2,4937,0)="""RTN"",""SROAL21"",17,0)"
^XMB(3.9,148,2,4938,0)="SRAT5L I $D(SRAT(""L"",5)) S X=SRAT(""L"",5) S SRL=1,SRH=3 D INPUT S $P(^SRF(SRTN,203),""^"",4)=X,$P(^(204),""^"",4)=$S(X'="""":SRAD(""L"",5),1:"""")"
^XMB(3.9,148,2,4939,0)="""RTN"",""SROAL21"",18,0)"
^XMB(3.9,148,2,4940,0)=" Q"
^XMB(3.9,148,2,4941,0)="""RTN"",""SROAL21"",19,0)"
^XMB(3.9,148,2,4942,0)="NUM ; input transform logic for lab tests  "
^XMB(3.9,148,2,4943,0)="""RTN"",""SROAL21"",20,0)"
^XMB(3.9,148,2,4944,0)=" N SRX I X=""NS""!(X=""ns"") S X=""NS"" D:$D(SRCICSP) CARDNS Q"
^XMB(3.9,148,2,4945,0)="""RTN"",""SROAL21"",21,0)"
^XMB(3.9,148,2,4946,0)=" S SRX=X S:""<>""[$E(X) SRX=$E(X,2,99)"
^XMB(3.9,148,2,4947,0)="""RTN"",""SROAL21"",22,0)"
^XMB(3.9,148,2,4948,0)=" I +SRX'=SRX K X Q"
^XMB(3.9,148,2,4949,0)="""RTN"",""SROAL21"",23,0)"
^XMB(3.9,148,2,4950,0)=" Q"
^XMB(3.9,148,2,4951,0)="""RTN"",""SROAL21"",24,0)"
^XMB(3.9,148,2,4952,0)="INPUT ; capture input check"
^XMB(3.9,148,2,4953,0)="""RTN"",""SROAL21"",25,0)"
^XMB(3.9,148,2,4954,0)=" N SRX,SRY I X=""NS""!(X="""") Q"
^XMB(3.9,148,2,4955,0)="""RTN"",""SROAL21"",26,0)"
^XMB(3.9,148,2,4956,0)=" I $L(X)<SRL S X="""" Q"
^XMB(3.9,148,2,4957,0)="""RTN"",""SROAL21"",27,0)"
^XMB(3.9,148,2,4958,0)=" S SRX=X,SRY="""" S:"" <>""[$E(X) SRY=$E(X),SRX=$E(X,2,99)"
^XMB(3.9,148,2,4959,0)="""RTN"",""SROAL21"",28,0)"
^XMB(3.9,148,2,4960,0)=" I +SRX'=SRX S X="""""
^XMB(3.9,148,2,4961,0)="""RTN"",""SROAL21"",29,0)"
^XMB(3.9,148,2,4962,0)=" I $L(X)>SRH D"
^XMB(3.9,148,2,4963,0)="""RTN"",""SROAL21"",30,0)"
^XMB(3.9,148,2,4964,0)=" .I SRX[""."" S SRX=SRX+.05\.1*.1,X=SRY_SRX I $L(X)>SRH S SRX=SRX+.5\1,X=SRY_SRX"
^XMB(3.9,148,2,4965,0)="""RTN"",""SROAL21"",31,0)"
^XMB(3.9,148,2,4966,0)=" .I $L(X)>SRH S X="""""
^XMB(3.9,148,2,4967,0)="""RTN"",""SROAL21"",32,0)"
^XMB(3.9,148,2,4968,0)=" Q"
^XMB(3.9,148,2,4969,0)="""RTN"",""SROAL21"",33,0)"
^XMB(3.9,148,2,4970,0)="CARDNS ; if cardiac, NS not allowed"
^XMB(3.9,148,2,4971,0)="""RTN"",""SROAL21"",34,0)"
^XMB(3.9,148,2,4972,0)=" N SRTYPE,SRXX"
^XMB(3.9,148,2,4973,0)="""RTN"",""SROAL21"",35,0)"
^XMB(3.9,148,2,4974,0)=" S SRXX=$S($D(SRTN):SRTN,$D(DA):DA,1:"""") Q:'SRXX"
^XMB(3.9,148,2,4975,0)="""RTN"",""SROAL21"",36,0)"
^XMB(3.9,148,2,4976,0)=" S SRTYPE=$P($G(^SRF(SRXX,""RA"")),""^"",2)"
^XMB(3.9,148,2,4977,0)="""RTN"",""SROAL21"",37,0)"
^XMB(3.9,148,2,4978,0)=" I SRTYPE=""C"" K X"
^XMB(3.9,148,2,4979,0)="""RTN"",""SROAL21"",38,0)"
^XMB(3.9,148,2,4980,0)=" K SRCICSP"
^XMB(3.9,148,2,4981,0)="""RTN"",""SROAL21"",39,0)"
^XMB(3.9,148,2,4982,0)=" Q"
^XMB(3.9,148,2,4983,0)="""RTN"",""SROALC"")"
^XMB(3.9,148,2,4984,0)="0^83^B10589627^B10924370"
^XMB(3.9,148,2,4985,0)="""RTN"",""SROALC"",1,0)"
^XMB(3.9,148,2,4986,0)="SROALC ;BIR/MAM - COMPLETE ASSESSMENTS ;03/24/06"
^XMB(3.9,148,2,4987,0)="""RTN"",""SROALC"",2,0)"
^XMB(3.9,148,2,4988,0)=" ;;3.0; Surgery ;**38,50,142,153**;24 Jun 93 ;Build 11"
^XMB(3.9,148,2,4989,0)="""RTN"",""SROALC"",3,0)"
^XMB(3.9,148,2,4990,0)=" I $E(IOST)=""P"" D ^SROALCP Q"
^XMB(3.9,148,2,4991,0)="""RTN"",""SROALC"",4,0)"
^XMB(3.9,148,2,4992,0)=" S SRSOUT=0 D HDR"
^XMB(3.9,148,2,4993,0)="""RTN"",""SROALC"",5,0)"
^XMB(3.9,148,2,4994,0)=" F  S SRSD=$O(^SRF(""AC"",SRSD)) Q:'SRSD!(SRSD>SRED)!SRSOUT  S SRTN=0 F  S SRTN=$O(^SRF(""AC"",SRSD,SRTN)) Q:'SRTN!SRSOUT  S SR(""RA"")=$G(^SRF(SRTN,""RA"")) I $P(SR(""RA""),""^"")=""C"",$D(^SRF(SRTN,0)),$$DIV^SROUTL0(SRTN) D SET"
^XMB(3.9,148,2,4995,0)="""RTN"",""SROALC"",6,0)"
^XMB(3.9,148,2,4996,0)=" Q"
^XMB(3.9,148,2,4997,0)="""RTN"",""SROALC"",7,0)"
^XMB(3.9,148,2,4998,0)="SET ; print assessments"
^XMB(3.9,148,2,4999,0)="""RTN"",""SROALC"",8,0)"
^XMB(3.9,148,2,5000,0)=" K SRCPTT S SRCPTT=""NOT ENTERED"""
^XMB(3.9,148,2,5001,0)="""RTN"",""SROALC"",9,0)"
^XMB(3.9,148,2,5002,0)=" I $P(SR(""RA""),""^"",6)=""N"" Q"
^XMB(3.9,148,2,5003,0)="""RTN"",""SROALC"",10,0)"
^XMB(3.9,148,2,5004,0)=" I $Y+5>IOSL D PAGE I SRSOUT Q"
^XMB(3.9,148,2,5005,0)="""RTN"",""SROALC"",11,0)"
^XMB(3.9,148,2,5006,0)=" S SRA(0)=^SRF(SRTN,0),DFN=$P(SRA(0),""^"") N I D DEM^VADPT S SRANM=VADM(1),SRASSN=VA(""PID"") K VADM"
^XMB(3.9,148,2,5007,0)="""RTN"",""SROALC"",12,0)"
^XMB(3.9,148,2,5008,0)=" I $L(SRANM)>19 S SRANM=$P(SRANM,"","")_"",""_$E($P(SRANM,"","",2))_""."""
^XMB(3.9,148,2,5009,0)="""RTN"",""SROALC"",13,0)"
^XMB(3.9,148,2,5010,0)=" S SROPER=$P(^SRF(SRTN,""OP""),""^"") I $O(^SRF(SRTN,13,0)) S SROTHER=0 F I=0:0 S SROTHER=$O(^SRF(SRTN,13,SROTHER)) Q:'SROTHER  D OTHER"
^XMB(3.9,148,2,5011,0)="""RTN"",""SROALC"",14,0)"
^XMB(3.9,148,2,5012,0)=" S X=$P($G(^SRF(SRTN,""RA"")),""^"",2) I X=""C"" S SROPER=""* ""_SROPER"
^XMB(3.9,148,2,5013,0)="""RTN"",""SROALC"",15,0)"
^XMB(3.9,148,2,5014,0)=" K SROPS,MM,MMM S:$L(SROPER)<34 SROPS(1)=SROPER I $L(SROPER)>33 S SROPER=SROPER_""  "" F M=1:1 D LOOP Q:MMM="""""
^XMB(3.9,148,2,5015,0)="""RTN"",""SROALC"",16,0)"
^XMB(3.9,148,2,5016,0)=" S SRSS=$P(SRA(0),""^"",4),SRSS=$S(SRSS:$P(^SRO(137.45,SRSS,0),""^""),1:""SPECIALTY NOT ENTERED"")"
^XMB(3.9,148,2,5017,0)="""RTN"",""SROALC"",17,0)"
^XMB(3.9,148,2,5018,0)=" D TECH^SROPRIN"
^XMB(3.9,148,2,5019,0)="""RTN"",""SROALC"",18,0)"
^XMB(3.9,148,2,5020,0)=" S Y=$P(SRA(0),""^"",9) D D^DIQ S SRDT=$P(Y,""@"")"
^XMB(3.9,148,2,5021,0)="""RTN"",""SROALC"",19,0)"
^XMB(3.9,148,2,5022,0)=" W !,SRTN,?20,SRANM_"" ""_VA(""PID""),?55,$P(SRSS,""(""),!,SRDT,?20,SROPS(1),?55,SRTECH I $D(SROPS(2)) W !,?20,SROPS(2) I $D(SROPS(3)) W !,?20,SROPS(3)"
^XMB(3.9,148,2,5023,0)="""RTN"",""SROALC"",20,0)"
^XMB(3.9,148,2,5024,0)=" N I,SRPROC,SRL S SRL=48 D CPTS^SROAUTL0 W !,?20,""CPT Codes: """
^XMB(3.9,148,2,5025,0)="""RTN"",""SROALC"",21,0)"
^XMB(3.9,148,2,5026,0)=" F I=1:1 Q:'$D(SRPROC(I))  W:I=1 ?31,SRPROC(I) W:I'=1 !,?31,SRPROC(I)"
^XMB(3.9,148,2,5027,0)="""RTN"",""SROALC"",22,0)"
^XMB(3.9,148,2,5028,0)=" W ! F LINE=1:1:80 W ""-"""
^XMB(3.9,148,2,5029,0)="""RTN"",""SROALC"",23,0)"
^XMB(3.9,148,2,5030,0)=" Q"
^XMB(3.9,148,2,5031,0)="""RTN"",""SROALC"",24,0)"
^XMB(3.9,148,2,5032,0)="OTHER ; other operations"
^XMB(3.9,148,2,5033,0)="""RTN"",""SROALC"",25,0)"
^XMB(3.9,148,2,5034,0)=" S SRLONG=1 I $L(SROPER)+$L($P(^SRF(SRTN,13,SROTHER,0),""^""))>125 S SRLONG=0,SROTHER=999,SROPERS="" ..."""
^XMB(3.9,148,2,5035,0)="""RTN"",""SROALC"",26,0)"
^XMB(3.9,148,2,5036,0)=" I SRLONG S SROPERS=$P(^SRF(SRTN,13,SROTHER,0),""^"")"
^XMB(3.9,148,2,5037,0)="""RTN"",""SROALC"",27,0)"
^XMB(3.9,148,2,5038,0)=" S SROPER=SROPER_$S(SROPERS'="" ..."":"", ""_SROPERS,1:SROPERS)"
^XMB(3.9,148,2,5039,0)="""RTN"",""SROALC"",28,0)"
^XMB(3.9,148,2,5040,0)=" Q"
^XMB(3.9,148,2,5041,0)="""RTN"",""SROALC"",29,0)"
^XMB(3.9,148,2,5042,0)="LOOP ; break procedures"
^XMB(3.9,148,2,5043,0)="""RTN"",""SROALC"",30,0)"
^XMB(3.9,148,2,5044,0)=" S SROPS(M)="""" F LOOP=1:1 S MM=$P(SROPER,"" ""),MMM=$P(SROPER,"" "",2,200) Q:MMM=""""  Q:$L(SROPS(M))+$L(MM)'<34  S SROPS(M)=SROPS(M)_MM_"" "",SROPER=MMM"
^XMB(3.9,148,2,5045,0)="""RTN"",""SROALC"",31,0)"
^XMB(3.9,148,2,5046,0)=" Q"
^XMB(3.9,148,2,5047,0)="""RTN"",""SROALC"",32,0)"
^XMB(3.9,148,2,5048,0)="PAGE W !!,""Press <RET> to continue, or '^' to quit  "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1 Q"
^XMB(3.9,148,2,5049,0)="""RTN"",""SROALC"",33,0)"
^XMB(3.9,148,2,5050,0)=" I X[""?"" W !!,""If you want to continue listing incomplete assessments, enter <RET>.  Enter"",!,""'^' to return to the menu."" G PAGE"
^XMB(3.9,148,2,5051,0)="""RTN"",""SROALC"",34,0)"
^XMB(3.9,148,2,5052,0)="HDR W @IOF,!,?27,""COMPLETED RISK ASSESSMENTS"",!,?(80-$L(SRFRTO)\2),SRFRTO,!!,""ASSESSMENT #"",?20,""PATIENT"",?55,""SURGICAL SPECIALTY"",!,""OPERATION DATE"",?20,""OPERATION(S)"",?55,""ANESTHESIA TECHNIQUE"",! F LINE=1:1:80 W ""="""
^XMB(3.9,148,2,5053,0)="""RTN"",""SROALC"",35,0)"
^XMB(3.9,148,2,5054,0)=" Q"
^XMB(3.9,148,2,5055,0)="""RTN"",""SROALCP"")"
^XMB(3.9,148,2,5056,0)="0^86^B10000827^B10263576"
^XMB(3.9,148,2,5057,0)="""RTN"",""SROALCP"",1,0)"
^XMB(3.9,148,2,5058,0)="SROALCP ;BIR/MAM - COMPLETE ASSESSMENTS (PRINTER) ;03/24/06"
^XMB(3.9,148,2,5059,0)="""RTN"",""SROALCP"",2,0)"
^XMB(3.9,148,2,5060,0)=" ;;3.0; Surgery ;**32,50,142,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,5061,0)="""RTN"",""SROALCP"",3,0)"
^XMB(3.9,148,2,5062,0)=" S SRPAGE=1,(SRSOUT,SRDFN)=0 D HDR Q:SRSOUT"
^XMB(3.9,148,2,5063,0)="""RTN"",""SROALCP"",4,0)"
^XMB(3.9,148,2,5064,0)=" F  S SRSD=$O(^SRF(""AC"",SRSD)) Q:'SRSD!(SRSD>SRED)!SRSOUT  S SRTN=0 F  S SRTN=$O(^SRF(""AC"",SRSD,SRTN)) Q:'SRTN!SRSOUT  S SR(""RA"")=$G(^SRF(SRTN,""RA"")) I $P(SR(""RA""),""^"")=""C"",$D(^SRF(SRTN,0)),$$DIV^SROUTL0(SRTN) D SET"
^XMB(3.9,148,2,5065,0)="""RTN"",""SROALCP"",5,0)"
^XMB(3.9,148,2,5066,0)=" Q"
^XMB(3.9,148,2,5067,0)="""RTN"",""SROALCP"",6,0)"
^XMB(3.9,148,2,5068,0)="SET ; print assessments"
^XMB(3.9,148,2,5069,0)="""RTN"",""SROALCP"",7,0)"
^XMB(3.9,148,2,5070,0)=" K SRCPTT S SRCPTT=""NOT ENTERED"""
^XMB(3.9,148,2,5071,0)="""RTN"",""SROALCP"",8,0)"
^XMB(3.9,148,2,5072,0)=" I $P(SR(""RA""),""^"",6)=""N"" Q"
^XMB(3.9,148,2,5073,0)="""RTN"",""SROALCP"",9,0)"
^XMB(3.9,148,2,5074,0)=" I $Y+5>IOSL S SRPAGE=SRPAGE+1 D HDR I SRSOUT Q"
^XMB(3.9,148,2,5075,0)="""RTN"",""SROALCP"",10,0)"
^XMB(3.9,148,2,5076,0)=" S SRA(0)=^SRF(SRTN,0),DFN=$P(SRA(0),""^"") N I D DEM^VADPT S SRANM=VADM(1),SRASSN=VA(""PID"") K VADM"
^XMB(3.9,148,2,5077,0)="""RTN"",""SROALCP"",11,0)"
^XMB(3.9,148,2,5078,0)=" S SROPER=$P(^SRF(SRTN,""OP""),""^"") I $O(^SRF(SRTN,13,0)) S SROTHER=0 F I=0:0 S SROTHER=$O(^SRF(SRTN,13,SROTHER)) Q:'SROTHER  D OTHER"
^XMB(3.9,148,2,5079,0)="""RTN"",""SROALCP"",12,0)"
^XMB(3.9,148,2,5080,0)=" S X=$P($G(^SRF(SRTN,""RA"")),""^"",2) I X=""C"" S SROPER=""* ""_SROPER"
^XMB(3.9,148,2,5081,0)="""RTN"",""SROALCP"",13,0)"
^XMB(3.9,148,2,5082,0)=" K SROPS,MM,MMM S:$L(SROPER)<81 SROPS(1)=SROPER I $L(SROPER)>80 S SROPER=SROPER_""  "" F M=1:1 D LOOP Q:MMM="""""
^XMB(3.9,148,2,5083,0)="""RTN"",""SROALCP"",14,0)"
^XMB(3.9,148,2,5084,0)=" S SRSS=$P(SRA(0),""^"",4),SRSS=$S(SRSS:$P(^SRO(137.45,SRSS,0),""^""),1:""SPECIALTY NOT ENTERED"")"
^XMB(3.9,148,2,5085,0)="""RTN"",""SROALCP"",15,0)"
^XMB(3.9,148,2,5086,0)=" S TYPE=$P(SR(""RA""),""^"",2) I SRSS=""SPECIALTY NOT ENTERED"",TYPE=""C"" S SRSS=""N/A"""
^XMB(3.9,148,2,5087,0)="""RTN"",""SROALCP"",16,0)"
^XMB(3.9,148,2,5088,0)=" D TECH^SROPRIN"
^XMB(3.9,148,2,5089,0)="""RTN"",""SROALCP"",17,0)"
^XMB(3.9,148,2,5090,0)=" S Y=$P(SRA(0),""^"",9) D D^DIQ S SRDT=$P(Y,""@"")"
^XMB(3.9,148,2,5091,0)="""RTN"",""SROALCP"",18,0)"
^XMB(3.9,148,2,5092,0)=" W !,SRTN,?20,SRANM_"" ""_VA(""PID""),?67,$P(SRSS,""(""),?107,SRTECH,!,SRDT,?20,SROPS(1) I $D(SROPS(2)) W !,?20,SROPS(2) I $D(SROPS(3)) W !,?20,SROPS(3) I $D(SROPS(4)) W !,?20,SROPS(4)"
^XMB(3.9,148,2,5093,0)="""RTN"",""SROALCP"",19,0)"
^XMB(3.9,148,2,5094,0)=" N I,SRPROC,SRL S SRL=100 D CPTS^SROAUTL0 W !,?20,""CPT Codes: """
^XMB(3.9,148,2,5095,0)="""RTN"",""SROALCP"",20,0)"
^XMB(3.9,148,2,5096,0)=" F I=1:1 Q:'$D(SRPROC(I))  W:I=1 ?31,SRPROC(I) W:I'=1 !,?31,SRPROC(I)"
^XMB(3.9,148,2,5097,0)="""RTN"",""SROALCP"",21,0)"
^XMB(3.9,148,2,5098,0)=" W ! F LINE=1:1:132 W ""-"""
^XMB(3.9,148,2,5099,0)="""RTN"",""SROALCP"",22,0)"
^XMB(3.9,148,2,5100,0)=" Q"
^XMB(3.9,148,2,5101,0)="""RTN"",""SROALCP"",23,0)"
^XMB(3.9,148,2,5102,0)="OTHER ; other operations"
^XMB(3.9,148,2,5103,0)="""RTN"",""SROALCP"",24,0)"
^XMB(3.9,148,2,5104,0)=" S SRLONG=1 I $L(SROPER)+$L($P(^SRF(SRTN,13,SROTHER,0),""^""))>165 S SRLONG=0,SROTHER=999,SROPERS="" ..."""
^XMB(3.9,148,2,5105,0)="""RTN"",""SROALCP"",25,0)"
^XMB(3.9,148,2,5106,0)=" I SRLONG S SROPERS=$P(^SRF(SRTN,13,SROTHER,0),""^"")"
^XMB(3.9,148,2,5107,0)="""RTN"",""SROALCP"",26,0)"
^XMB(3.9,148,2,5108,0)=" S SROPER=SROPER_$S(SROPERS'="" ..."":"", ""_SROPERS,1:SROPERS)"
^XMB(3.9,148,2,5109,0)="""RTN"",""SROALCP"",27,0)"
^XMB(3.9,148,2,5110,0)=" Q"
^XMB(3.9,148,2,5111,0)="""RTN"",""SROALCP"",28,0)"
^XMB(3.9,148,2,5112,0)="LOOP ; break procedures"
^XMB(3.9,148,2,5113,0)="""RTN"",""SROALCP"",29,0)"
^XMB(3.9,148,2,5114,0)=" S SROPS(M)="""" F LOOP=1:1 S MM=$P(SROPER,"" ""),MMM=$P(SROPER,"" "",2,200) Q:MMM=""""  Q:$L(SROPS(M))+$L(MM)'<81  S SROPS(M)=SROPS(M)_MM_"" "",SROPER=MMM"
^XMB(3.9,148,2,5115,0)="""RTN"",""SROALCP"",30,0)"
^XMB(3.9,148,2,5116,0)=" Q"
^XMB(3.9,148,2,5117,0)="""RTN"",""SROALCP"",31,0)"
^XMB(3.9,148,2,5118,0)="HDR ; print heading"
^XMB(3.9,148,2,5119,0)="""RTN"",""SROALCP"",32,0)"
^XMB(3.9,148,2,5120,0)=" I $D(ZTQUEUED) D ^SROSTOP I SRHALT S SRSOUT=1 Q"
^XMB(3.9,148,2,5121,0)="""RTN"",""SROALCP"",33,0)"
^XMB(3.9,148,2,5122,0)=" W:$Y @IOF W !,?53,""COMPLETED RISK ASSESSMENTS"",?120,""PAGE ""_SRPAGE,!,?(132-$L(SRINST)\2),SRINST,!,?58,""SURGERY SERVICE"",?100,""DATE REVIEWED:"""
^XMB(3.9,148,2,5123,0)="""RTN"",""SROALCP"",34,0)"
^XMB(3.9,148,2,5124,0)=" W !,?(132-$L(SRFRTO)\2),SRFRTO,?100,""REVIEWED BY:"""
^XMB(3.9,148,2,5125,0)="""RTN"",""SROALCP"",35,0)"
^XMB(3.9,148,2,5126,0)=" W !!,""ASSESSMENT #"",?20,""PATIENT"",?67,""SURGICAL SPECIALTY"",?107,""ANESTHESIA TECHNIQUE"",!,""OPERATION DATE"",?20,""OPERATIVE PROCEDURE(S)"",! F LINE=1:1:132 W ""="""
^XMB(3.9,148,2,5127,0)="""RTN"",""SROALCP"",36,0)"
^XMB(3.9,148,2,5128,0)=" Q"
^XMB(3.9,148,2,5129,0)="""RTN"",""SROALCS"")"
^XMB(3.9,148,2,5130,0)="0^84^B13891688^B14237632"
^XMB(3.9,148,2,5131,0)="""RTN"",""SROALCS"",1,0)"
^XMB(3.9,148,2,5132,0)="SROALCS ;BIR/MAM - COMPLETE ASSESSMENTS ;03/24/06"
^XMB(3.9,148,2,5133,0)="""RTN"",""SROALCS"",2,0)"
^XMB(3.9,148,2,5134,0)=" ;;3.0; Surgery ;**38,50,142,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,5135,0)="""RTN"",""SROALCS"",3,0)"
^XMB(3.9,148,2,5136,0)=" I $E(IOST)=""P"" D ^SROALCSP Q"
^XMB(3.9,148,2,5137,0)="""RTN"",""SROALCS"",4,0)"
^XMB(3.9,148,2,5138,0)=" K ^TMP(""SRA"",$J)"
^XMB(3.9,148,2,5139,0)="""RTN"",""SROALCS"",5,0)"
^XMB(3.9,148,2,5140,0)=" S SRSOUT=0 D HDR"
^XMB(3.9,148,2,5141,0)="""RTN"",""SROALCS"",6,0)"
^XMB(3.9,148,2,5142,0)=" F  S SRSD=$O(^SRF(""AC"",SRSD)) Q:'SRSD!(SRSD>SRED)!SRSOUT  S SRTN=0 F  S SRTN=$O(^SRF(""AC"",SRSD,SRTN)) Q:'SRTN!SRSOUT  S SR(""RA"")=$G(^SRF(SRTN,""RA"")) I $P(SR(""RA""),""^"")=""C"",$D(^SRF(SRTN,0)),$$DIV^SROUTL0(SRTN) D UTL"
^XMB(3.9,148,2,5143,0)="""RTN"",""SROALCS"",7,0)"
^XMB(3.9,148,2,5144,0)=" S SRSS="""" F  S SRSS=$O(^TMP(""SRA"",$J,SRSS)) Q:SRSS=""""!SRSOUT  D SS S SRTN=0 F  S SRTN=$O(^TMP(""SRA"",$J,SRSS,SRTN)) Q:'SRTN!SRSOUT  D SET"
^XMB(3.9,148,2,5145,0)="""RTN"",""SROALCS"",8,0)"
^XMB(3.9,148,2,5146,0)=" I '$D(^TMP(""SRA"",$J)) W $$NODATA^SROUTL0()"
^XMB(3.9,148,2,5147,0)="""RTN"",""SROALCS"",9,0)"
^XMB(3.9,148,2,5148,0)=" Q"
^XMB(3.9,148,2,5149,0)="""RTN"",""SROALCS"",10,0)"
^XMB(3.9,148,2,5150,0)="UTL ; write to ^TMP(""SRA"",$J)"
^XMB(3.9,148,2,5151,0)="""RTN"",""SROALCS"",11,0)"
^XMB(3.9,148,2,5152,0)=" I $P(SR(""RA""),""^"",6)=""N"" Q"
^XMB(3.9,148,2,5153,0)="""RTN"",""SROALCS"",12,0)"
^XMB(3.9,148,2,5154,0)=" I SRFLG,$P(^SRF(SRTN,0),""^"",4)'=SRASP Q"
^XMB(3.9,148,2,5155,0)="""RTN"",""SROALCS"",13,0)"
^XMB(3.9,148,2,5156,0)=" S SRSS=$P(^SRF(SRTN,0),""^"",4),SRSS=$S(SRSS:$P(^SRO(137.45,SRSS,0),""^""),1:""SPECIALTY NOT ENTERED"")"
^XMB(3.9,148,2,5157,0)="""RTN"",""SROALCS"",14,0)"
^XMB(3.9,148,2,5158,0)=" S ^TMP(""SRA"",$J,SRSS,SRTN)="""""
^XMB(3.9,148,2,5159,0)="""RTN"",""SROALCS"",15,0)"
^XMB(3.9,148,2,5160,0)=" Q"
^XMB(3.9,148,2,5161,0)="""RTN"",""SROALCS"",16,0)"
^XMB(3.9,148,2,5162,0)="SET ; print assessments"
^XMB(3.9,148,2,5163,0)="""RTN"",""SROALCS"",17,0)"
^XMB(3.9,148,2,5164,0)=" K SRCPTT S SRCPTT=""NOT ENTERED"""
^XMB(3.9,148,2,5165,0)="""RTN"",""SROALCS"",18,0)"
^XMB(3.9,148,2,5166,0)=" I $Y+5>IOSL D PAGE I SRSOUT Q"
^XMB(3.9,148,2,5167,0)="""RTN"",""SROALCS"",19,0)"
^XMB(3.9,148,2,5168,0)=" S SRA(0)=^SRF(SRTN,0),SR(""RA"")=^SRF(SRTN,""RA""),DFN=$P(SRA(0),""^"") N I D DEM^VADPT S SRANM=VADM(1),SRASSN=VA(""PID"") K VADM"
^XMB(3.9,148,2,5169,0)="""RTN"",""SROALCS"",20,0)"
^XMB(3.9,148,2,5170,0)=" I $L(SRANM)>19 S SRANM=$P(SRANM,"","")_"",""_$E($P(SRANM,"","",2))_""."""
^XMB(3.9,148,2,5171,0)="""RTN"",""SROALCS"",21,0)"
^XMB(3.9,148,2,5172,0)=" S SRC="""",Y=$E($P(SR(""RA""),""^"",5),1,7) I Y D D^DIQ S SRC=Y"
^XMB(3.9,148,2,5173,0)="""RTN"",""SROALCS"",22,0)"
^XMB(3.9,148,2,5174,0)=" S SROPER=$P(^SRF(SRTN,""OP""),""^"") I $O(^SRF(SRTN,13,0)) S SROTHER=0 F I=0:0 S SROTHER=$O(^SRF(SRTN,13,SROTHER)) Q:'SROTHER  D OTHER"
^XMB(3.9,148,2,5175,0)="""RTN"",""SROALCS"",23,0)"
^XMB(3.9,148,2,5176,0)=" S X=$P($G(^SRF(SRTN,""RA"")),""^"",2) I X=""C"" S SROPER=""* ""_SROPER"
^XMB(3.9,148,2,5177,0)="""RTN"",""SROALCS"",24,0)"
^XMB(3.9,148,2,5178,0)=" K SROPS,MM,MMM S:$L(SROPER)<34 SROPS(1)=SROPER I $L(SROPER)>33 S SROPER=SROPER_""  "" F M=1:1 D LOOP Q:MMM="""""
^XMB(3.9,148,2,5179,0)="""RTN"",""SROALCS"",25,0)"
^XMB(3.9,148,2,5180,0)=" S SRSS=$P(SRA(0),""^"",4),SRSS=$S(SRSS:$P(^SRO(137.45,SRSS,0),""^""),1:""SPECIALTY NOT ENTERED"")"
^XMB(3.9,148,2,5181,0)="""RTN"",""SROALCS"",26,0)"
^XMB(3.9,148,2,5182,0)=" S TYPE=$P(SR(""RA""),""^"",2) I SRSS=""SPECIALTY NOT ENTERED"",TYPE=""C"" S SRSS=""N/A"""
^XMB(3.9,148,2,5183,0)="""RTN"",""SROALCS"",27,0)"
^XMB(3.9,148,2,5184,0)=" D TECH^SROPRIN"
^XMB(3.9,148,2,5185,0)="""RTN"",""SROALCS"",28,0)"
^XMB(3.9,148,2,5186,0)=" S Y=$P(SRA(0),""^"",9) D D^DIQ S SRDT=$P(Y,""@"")"
^XMB(3.9,148,2,5187,0)="""RTN"",""SROALCS"",29,0)"
^XMB(3.9,148,2,5188,0)=" W !,SRTN,?20,SRANM_"" ""_VA(""PID""),?55,SRC,!,SRDT,?20,SROPS(1),?55,SRTECH S SRAO=1 F  S SRAO=$O(SROPS(SRAO)) Q:'SRAO  W !,?20,SROPS(SRAO)"
^XMB(3.9,148,2,5189,0)="""RTN"",""SROALCS"",30,0)"
^XMB(3.9,148,2,5190,0)=" N I,SRPROC,SRL S SRL=48 D CPTS^SROAUTL0 W !,?20,""CPT Codes: """
^XMB(3.9,148,2,5191,0)="""RTN"",""SROALCS"",31,0)"
^XMB(3.9,148,2,5192,0)=" F I=1:1 Q:'$D(SRPROC(I))  W:I=1 ?31,SRPROC(I) W:I'=1 !,?31,SRPROC(I)"
^XMB(3.9,148,2,5193,0)="""RTN"",""SROALCS"",32,0)"
^XMB(3.9,148,2,5194,0)=" W ! F LINE=1:1:80 W ""-"""
^XMB(3.9,148,2,5195,0)="""RTN"",""SROALCS"",33,0)"
^XMB(3.9,148,2,5196,0)=" Q"
^XMB(3.9,148,2,5197,0)="""RTN"",""SROALCS"",34,0)"
^XMB(3.9,148,2,5198,0)="OTHER ; other operations"
^XMB(3.9,148,2,5199,0)="""RTN"",""SROALCS"",35,0)"
^XMB(3.9,148,2,5200,0)=" S SRLONG=1 I $L(SROPER)+$L($P(^SRF(SRTN,13,SROTHER,0),""^""))>125 S SRLONG=0,SROTHER=999,SROPERS="" ..."""
^XMB(3.9,148,2,5201,0)="""RTN"",""SROALCS"",36,0)"
^XMB(3.9,148,2,5202,0)=" I SRLONG S SROPERS=$P(^SRF(SRTN,13,SROTHER,0),""^"")"
^XMB(3.9,148,2,5203,0)="""RTN"",""SROALCS"",37,0)"
^XMB(3.9,148,2,5204,0)=" S SROPER=SROPER_$S(SROPERS'="" ..."":"", ""_SROPERS,1:SROPERS)"
^XMB(3.9,148,2,5205,0)="""RTN"",""SROALCS"",38,0)"
^XMB(3.9,148,2,5206,0)=" Q"
^XMB(3.9,148,2,5207,0)="""RTN"",""SROALCS"",39,0)"
^XMB(3.9,148,2,5208,0)="LOOP ; break procedures"
^XMB(3.9,148,2,5209,0)="""RTN"",""SROALCS"",40,0)"
^XMB(3.9,148,2,5210,0)=" S SROPS(M)="""" F LOOP=1:1 S MM=$P(SROPER,"" ""),MMM=$P(SROPER,"" "",2,200) Q:MMM=""""  Q:$L(SROPS(M))+$L(MM)'<34  S SROPS(M)=SROPS(M)_MM_"" "",SROPER=MMM"
^XMB(3.9,148,2,5211,0)="""RTN"",""SROALCS"",41,0)"
^XMB(3.9,148,2,5212,0)=" Q"
^XMB(3.9,148,2,5213,0)="""RTN"",""SROALCS"",42,0)"
^XMB(3.9,148,2,5214,0)="PAGE W !!,""Press <RET> to continue, or '^' to quit  "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1 Q"
^XMB(3.9,148,2,5215,0)="""RTN"",""SROALCS"",43,0)"
^XMB(3.9,148,2,5216,0)=" I X[""?"" W !!,""If you want to continue listing incomplete assessments, enter <RET>.  Enter"",!,""'^' to return to the menu."" G PAGE"
^XMB(3.9,148,2,5217,0)="""RTN"",""SROALCS"",44,0)"
^XMB(3.9,148,2,5218,0)="HDR W @IOF,!,?27,""COMPLETED RISK ASSESSMENTS"",!,?(80-$L(SRFRTO)\2),SRFRTO,!!,""ASSESSMENT #"",?20,""PATIENT"",?55,""DATE COMPLETED"",!,""OPERATION DATE"",?20,""OPERATION(S)"",?55,""ANESTHESIA TECHNIQUE"",! F LINE=1:1:80 W ""="""
^XMB(3.9,148,2,5219,0)="""RTN"",""SROALCS"",45,0)"
^XMB(3.9,148,2,5220,0)=" Q"
^XMB(3.9,148,2,5221,0)="""RTN"",""SROALCS"",46,0)"
^XMB(3.9,148,2,5222,0)="SS ; print surgical specialty"
^XMB(3.9,148,2,5223,0)="""RTN"",""SROALCS"",47,0)"
^XMB(3.9,148,2,5224,0)=" I $Y+5>IOSL D PAGE Q:SRSOUT"
^XMB(3.9,148,2,5225,0)="""RTN"",""SROALCS"",48,0)"
^XMB(3.9,148,2,5226,0)=" W !!,""** SURGICAL SPECIALTY: "",SRSS,"" **"",!"
^XMB(3.9,148,2,5227,0)="""RTN"",""SROALCS"",49,0)"
^XMB(3.9,148,2,5228,0)=" Q"
^XMB(3.9,148,2,5229,0)="""RTN"",""SROALCSP"")"
^XMB(3.9,148,2,5230,0)="0^85^B12135710^B12507398"
^XMB(3.9,148,2,5231,0)="""RTN"",""SROALCSP"",1,0)"
^XMB(3.9,148,2,5232,0)="SROALCSP ;BIR/MAM - COMPLETE ASSESSMENTS (PRINTER) ;03/24/06"
^XMB(3.9,148,2,5233,0)="""RTN"",""SROALCSP"",2,0)"
^XMB(3.9,148,2,5234,0)=" ;;3.0; Surgery ;**32,50,142,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,5235,0)="""RTN"",""SROALCSP"",3,0)"
^XMB(3.9,148,2,5236,0)=" K ^TMP(""SRA"",$J) S SRPAGE=0,(SRSOUT,SRDFN)=0 D HDR Q:SRSOUT"
^XMB(3.9,148,2,5237,0)="""RTN"",""SROALCSP"",4,0)"
^XMB(3.9,148,2,5238,0)=" F  S SRSD=$O(^SRF(""AC"",SRSD)) Q:'SRSD!(SRSD>SRED)!SRSOUT  S SRTN=0 F  S SRTN=$O(^SRF(""AC"",SRSD,SRTN)) Q:'SRTN!SRSOUT  S SR(""RA"")=$G(^SRF(SRTN,""RA"")) I $P(SR(""RA""),""^"")=""C"",$D(^SRF(SRTN,0)),$$DIV^SROUTL0(SRTN) D UTL"
^XMB(3.9,148,2,5239,0)="""RTN"",""SROALCSP"",5,0)"
^XMB(3.9,148,2,5240,0)=" S SRSS="""" F  S SRSS=$O(^TMP(""SRA"",$J,SRSS)) Q:SRSS=""""!SRSOUT  D SS S SRTN=0 F  S SRTN=$O(^TMP(""SRA"",$J,SRSS,SRTN)) Q:'SRTN!SRSOUT  D SET"
^XMB(3.9,148,2,5241,0)="""RTN"",""SROALCSP"",6,0)"
^XMB(3.9,148,2,5242,0)=" I '$D(^TMP(""SRA"",$J)) W $$NODATA^SROUTL0()"
^XMB(3.9,148,2,5243,0)="""RTN"",""SROALCSP"",7,0)"
^XMB(3.9,148,2,5244,0)=" Q"
^XMB(3.9,148,2,5245,0)="""RTN"",""SROALCSP"",8,0)"
^XMB(3.9,148,2,5246,0)="UTL ; write to ^TMP(""SRA"",$J)"
^XMB(3.9,148,2,5247,0)="""RTN"",""SROALCSP"",9,0)"
^XMB(3.9,148,2,5248,0)=" I $P(SR(""RA""),""^"",6)=""N"" Q"
^XMB(3.9,148,2,5249,0)="""RTN"",""SROALCSP"",10,0)"
^XMB(3.9,148,2,5250,0)=" I SRFLG,$P(^SRF(SRTN,0),""^"",4)'=SRASP Q"
^XMB(3.9,148,2,5251,0)="""RTN"",""SROALCSP"",11,0)"
^XMB(3.9,148,2,5252,0)=" S SRSS=$P(^SRF(SRTN,0),""^"",4),SRSS=$S(SRSS:$P(^SRO(137.45,SRSS,0),""^""),1:""SPECIALTY NOT ENTERED"")"
^XMB(3.9,148,2,5253,0)="""RTN"",""SROALCSP"",12,0)"
^XMB(3.9,148,2,5254,0)=" S TYPE=$P(SR(""RA""),""^"",2) I SRSS=""SPECIALTY NOT ENTERED"",TYPE=""C"" S SRSS=""N/A"""
^XMB(3.9,148,2,5255,0)="""RTN"",""SROALCSP"",13,0)"
^XMB(3.9,148,2,5256,0)=" S ^TMP(""SRA"",$J,SRSS,SRTN)="""""
^XMB(3.9,148,2,5257,0)="""RTN"",""SROALCSP"",14,0)"
^XMB(3.9,148,2,5258,0)=" Q"
^XMB(3.9,148,2,5259,0)="""RTN"",""SROALCSP"",15,0)"
^XMB(3.9,148,2,5260,0)="SET ; print assessments"
^XMB(3.9,148,2,5261,0)="""RTN"",""SROALCSP"",16,0)"
^XMB(3.9,148,2,5262,0)=" K SRCPTT S SRCPTT=""NOT ENTERED"""
^XMB(3.9,148,2,5263,0)="""RTN"",""SROALCSP"",17,0)"
^XMB(3.9,148,2,5264,0)=" I $Y+5>IOSL D HDR I SRSOUT Q"
^XMB(3.9,148,2,5265,0)="""RTN"",""SROALCSP"",18,0)"
^XMB(3.9,148,2,5266,0)=" S SRA(0)=^SRF(SRTN,0),SR(""RA"")=^SRF(SRTN,""RA""),DFN=$P(SRA(0),""^"") N I D DEM^VADPT S SRANM=VADM(1),SRASSN=VA(""PID"") K VADM"
^XMB(3.9,148,2,5267,0)="""RTN"",""SROALCSP"",19,0)"
^XMB(3.9,148,2,5268,0)=" S SRC="""",Y=$E($P(SR(""RA""),""^"",5),1,7) I Y D D^DIQ S SRC=Y"
^XMB(3.9,148,2,5269,0)="""RTN"",""SROALCSP"",20,0)"
^XMB(3.9,148,2,5270,0)=" S SROPER=$P(^SRF(SRTN,""OP""),""^"") I $O(^SRF(SRTN,13,0)) S SROTHER=0 F I=0:0 S SROTHER=$O(^SRF(SRTN,13,SROTHER)) Q:'SROTHER  D OTHER"
^XMB(3.9,148,2,5271,0)="""RTN"",""SROALCSP"",21,0)"
^XMB(3.9,148,2,5272,0)=" S X=$P($G(^SRF(SRTN,""RA"")),""^"",2) I X=""C"" S SROPER=""* ""_SROPER"
^XMB(3.9,148,2,5273,0)="""RTN"",""SROALCSP"",22,0)"
^XMB(3.9,148,2,5274,0)=" K SROPS,MM,MMM S:$L(SROPER)<81 SROPS(1)=SROPER I $L(SROPER)>80 S SROPER=SROPER_""  "" F M=1:1 D LOOP Q:MMM="""""
^XMB(3.9,148,2,5275,0)="""RTN"",""SROALCSP"",23,0)"
^XMB(3.9,148,2,5276,0)=" D TECH^SROPRIN"
^XMB(3.9,148,2,5277,0)="""RTN"",""SROALCSP"",24,0)"
^XMB(3.9,148,2,5278,0)=" S Y=$P(SRA(0),""^"",9) D D^DIQ S SRDT=$P(Y,""@"")"
^XMB(3.9,148,2,5279,0)="""RTN"",""SROALCSP"",25,0)"
^XMB(3.9,148,2,5280,0)=" W !,SRTN,?20,SRANM_"" ""_VA(""PID""),?67,SRC,?107,SRTECH,!,SRDT,?20,SROPS(1) S SRAO=1 F I=0:0 S SRAO=$O(SROPS(SRAO)) Q:'SRAO  W !,?20,SROPS(SRAO)"
^XMB(3.9,148,2,5281,0)="""RTN"",""SROALCSP"",26,0)"
^XMB(3.9,148,2,5282,0)=" N I,SRPROC,SRL S SRL=100 D CPTS^SROAUTL0 W !,?20,""CPT Codes: """
^XMB(3.9,148,2,5283,0)="""RTN"",""SROALCSP"",27,0)"
^XMB(3.9,148,2,5284,0)=" F I=1:1 Q:'$D(SRPROC(I))  W:I=1 ?31,SRPROC(I) W:I'=1 !,?31,SRPROC(I)"
^XMB(3.9,148,2,5285,0)="""RTN"",""SROALCSP"",28,0)"
^XMB(3.9,148,2,5286,0)=" D LINE"
^XMB(3.9,148,2,5287,0)="""RTN"",""SROALCSP"",29,0)"
^XMB(3.9,148,2,5288,0)=" Q"
^XMB(3.9,148,2,5289,0)="""RTN"",""SROALCSP"",30,0)"
^XMB(3.9,148,2,5290,0)="OTHER ; other operations"
^XMB(3.9,148,2,5291,0)="""RTN"",""SROALCSP"",31,0)"
^XMB(3.9,148,2,5292,0)=" S SRLONG=1 I $L(SROPER)+$L($P(^SRF(SRTN,13,SROTHER,0),""^""))>165 S SRLONG=0,SROTHER=999,SROPERS="" ..."""
^XMB(3.9,148,2,5293,0)="""RTN"",""SROALCSP"",32,0)"
^XMB(3.9,148,2,5294,0)=" I SRLONG S SROPERS=$P(^SRF(SRTN,13,SROTHER,0),""^"")"
^XMB(3.9,148,2,5295,0)="""RTN"",""SROALCSP"",33,0)"
^XMB(3.9,148,2,5296,0)=" S SROPER=SROPER_$S(SROPERS'="" ..."":"", ""_SROPERS,1:SROPERS)"
^XMB(3.9,148,2,5297,0)="""RTN"",""SROALCSP"",34,0)"
^XMB(3.9,148,2,5298,0)=" Q"
^XMB(3.9,148,2,5299,0)="""RTN"",""SROALCSP"",35,0)"
^XMB(3.9,148,2,5300,0)="LOOP ; break procedures"
^XMB(3.9,148,2,5301,0)="""RTN"",""SROALCSP"",36,0)"
^XMB(3.9,148,2,5302,0)=" S SROPS(M)="""" F LOOP=1:1 S MM=$P(SROPER,"" ""),MMM=$P(SROPER,"" "",2,200) Q:MMM=""""  Q:$L(SROPS(M))+$L(MM)'<44  S SROPS(M)=SROPS(M)_MM_"" "",SROPER=MMM"
^XMB(3.9,148,2,5303,0)="""RTN"",""SROALCSP"",37,0)"
^XMB(3.9,148,2,5304,0)=" Q"
^XMB(3.9,148,2,5305,0)="""RTN"",""SROALCSP"",38,0)"
^XMB(3.9,148,2,5306,0)="HDR ; print heading"
^XMB(3.9,148,2,5307,0)="""RTN"",""SROALCSP"",39,0)"
^XMB(3.9,148,2,5308,0)=" I $D(ZTQUEUED) D ^SROSTOP I SRHALT S SRSOUT=1 Q"
^XMB(3.9,148,2,5309,0)="""RTN"",""SROALCSP"",40,0)"
^XMB(3.9,148,2,5310,0)=" S SRPAGE=SRPAGE+1 W:$Y @IOF W !,?53,""COMPLETED RISK ASSESSMENTS"",?120,""PAGE ""_SRPAGE,!,?(132-$L(SRINST)\2),SRINST,!,?58,""SURGERY SERVICE"",?100,""DATE REVIEWED:"""
^XMB(3.9,148,2,5311,0)="""RTN"",""SROALCSP"",41,0)"
^XMB(3.9,148,2,5312,0)=" W !,?(132-$L(SRFRTO)\2),SRFRTO,?100,""REVIEWED BY:"""
^XMB(3.9,148,2,5313,0)="""RTN"",""SROALCSP"",42,0)"
^XMB(3.9,148,2,5314,0)=" W !!,""ASSESSMENT #"",?20,""PATIENT"",?67,""DATE COMPLETED"",?107,""ANESTHESIA TECHNIQUE"",!,""OPERATION DATE"",?20,""OPERATIVE PROCEDURE(S)"",! F LINE=1:1:132 W ""="""
^XMB(3.9,148,2,5315,0)="""RTN"",""SROALCSP"",43,0)"
^XMB(3.9,148,2,5316,0)=" Q"
^XMB(3.9,148,2,5317,0)="""RTN"",""SROALCSP"",44,0)"
^XMB(3.9,148,2,5318,0)="SS ; print surgical specialty"
^XMB(3.9,148,2,5319,0)="""RTN"",""SROALCSP"",45,0)"
^XMB(3.9,148,2,5320,0)=" I $Y+5>IOSL D HDR"
^XMB(3.9,148,2,5321,0)="""RTN"",""SROALCSP"",46,0)"
^XMB(3.9,148,2,5322,0)=" W !!,""** SURGICAL SPECIALTY: "",SRSS,"" **"",!"
^XMB(3.9,148,2,5323,0)="""RTN"",""SROALCSP"",47,0)"
^XMB(3.9,148,2,5324,0)=" Q"
^XMB(3.9,148,2,5325,0)="""RTN"",""SROALCSP"",48,0)"
^XMB(3.9,148,2,5326,0)="LINE W ! F L=1:1:132 W ""-"""
^XMB(3.9,148,2,5327,0)="""RTN"",""SROALCSP"",49,0)"
^XMB(3.9,148,2,5328,0)=" Q"
^XMB(3.9,148,2,5329,0)="""RTN"",""SROALDP"")"
^XMB(3.9,148,2,5330,0)="0^22^B3261436^B3823974"
^XMB(3.9,148,2,5331,0)="""RTN"",""SROALDP"",1,0)"
^XMB(3.9,148,2,5332,0)="SROALDP ;BIR/MAM - DISPLAY PREOP LABS ;06/27/06"
^XMB(3.9,148,2,5333,0)="""RTN"",""SROALDP"",2,0)"
^XMB(3.9,148,2,5334,0)=" ;;3.0; Surgery ;**38,47,81,125,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,5335,0)="""RTN"",""SROALDP"",3,0)"
^XMB(3.9,148,2,5336,0)=" S SRPAGE=""PAGE: 1 OF 2"",SRHDR(.5)=""LATEST PREOP LAB RESULTS IN 90 DAYS PRIOR TO SURGERY UNLESS OTHERWISE SPECIFIED"" D HDR^SROAUTL"
^XMB(3.9,148,2,5337,0)="""RTN"",""SROALDP"",4,0)"
^XMB(3.9,148,2,5338,0)=" W !,"" 1. Anion Gap (in 48 hrs.):"",?28,$J($P(SRAO(1),""^""),6),?38,$P(SRAO(1),""^"",2)"
^XMB(3.9,148,2,5339,0)="""RTN"",""SROALDP"",5,0)"
^XMB(3.9,148,2,5340,0)=" W !,"" 2. Serum Sodium: "",?28,$J($P(SRAO(2),""^""),6),?38,$P(SRAO(2),""^"",2)"
^XMB(3.9,148,2,5341,0)="""RTN"",""SROALDP"",6,0)"
^XMB(3.9,148,2,5342,0)=" W !,"" 3. BUN:"",?28,$J($P(SRAO(3),""^""),6),?38,$P(SRAO(3),""^"",2)"
^XMB(3.9,148,2,5343,0)="""RTN"",""SROALDP"",7,0)"
^XMB(3.9,148,2,5344,0)=" W !,"" 4. Serum Creatinine: "",?28,$J($P(SRAO(4),""^""),6),?38,$P(SRAO(4),""^"",2)"
^XMB(3.9,148,2,5345,0)="""RTN"",""SROALDP"",8,0)"
^XMB(3.9,148,2,5346,0)=" W !,"" 5. Serum Albumin:"",?28,$J($P(SRAO(5),""^""),6),?38,$P(SRAO(5),""^"",2)"
^XMB(3.9,148,2,5347,0)="""RTN"",""SROALDP"",9,0)"
^XMB(3.9,148,2,5348,0)=" W !,"" 6. Total Bilirubin:"",?28,$J($P(SRAO(6),""^""),6),?38,$P(SRAO(6),""^"",2)"
^XMB(3.9,148,2,5349,0)="""RTN"",""SROALDP"",10,0)"
^XMB(3.9,148,2,5350,0)=" W !,"" 7. SGOT:"",?28,$J($P(SRAO(7),""^""),6),?38,$P(SRAO(7),""^"",2)"
^XMB(3.9,148,2,5351,0)="""RTN"",""SROALDP"",11,0)"
^XMB(3.9,148,2,5352,0)=" W !,"" 8. Alkaline Phosphatase:"",?28,$J($P(SRAO(8),""^""),6),?38,$P(SRAO(8),""^"",2)"
^XMB(3.9,148,2,5353,0)="""RTN"",""SROALDP"",12,0)"
^XMB(3.9,148,2,5354,0)=" W !,"" 9. WBC:"",?28,$J($P(SRAO(9),""^""),6),?38,$P(SRAO(9),""^"",2)"
^XMB(3.9,148,2,5355,0)="""RTN"",""SROALDP"",13,0)"
^XMB(3.9,148,2,5356,0)=" W !,""10. Hematocrit:"",?28,$J($P(SRAO(10),""^""),6),?38,$P(SRAO(10),""^"",2)"
^XMB(3.9,148,2,5357,0)="""RTN"",""SROALDP"",14,0)"
^XMB(3.9,148,2,5358,0)=" W !,""11. Platelet Count:"",?28,$J($P(SRAO(11),""^""),6),?38,$P(SRAO(11),""^"",2)"
^XMB(3.9,148,2,5359,0)="""RTN"",""SROALDP"",15,0)"
^XMB(3.9,148,2,5360,0)=" W !,""12. PTT: "",?28,$J($P(SRAO(12),""^""),6),?38,$P(SRAO(12),""^"",2)"
^XMB(3.9,148,2,5361,0)="""RTN"",""SROALDP"",16,0)"
^XMB(3.9,148,2,5362,0)=" W !,""13. PT: "",?28,$J($P(SRAO(13),""^""),6),?38,$P(SRAO(13),""^"",2)"
^XMB(3.9,148,2,5363,0)="""RTN"",""SROALDP"",17,0)"
^XMB(3.9,148,2,5364,0)=" W !,""14. INR: "",?28,$J($P(SRAO(14),""^""),6),?38,$P(SRAO(14),""^"",2)"
^XMB(3.9,148,2,5365,0)="""RTN"",""SROALDP"",18,0)"
^XMB(3.9,148,2,5366,0)=" W !! F MOE=1:1:80 W ""-"""
^XMB(3.9,148,2,5367,0)="""RTN"",""SROALDP"",19,0)"
^XMB(3.9,148,2,5368,0)=" Q"
^XMB(3.9,148,2,5369,0)="""RTN"",""SROALEN"")"
^XMB(3.9,148,2,5370,0)="0^21^B11769217^B11768487"
^XMB(3.9,148,2,5371,0)="""RTN"",""SROALEN"",1,0)"
^XMB(3.9,148,2,5372,0)="SROALEN ;BIR/MAM - LAB INFO ;01/27/06"
^XMB(3.9,148,2,5373,0)="""RTN"",""SROALEN"",2,0)"
^XMB(3.9,148,2,5374,0)=" ;;3.0; Surgery ;**38,100,125,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,5375,0)="""RTN"",""SROALEN"",3,0)"
^XMB(3.9,148,2,5376,0)=" I '$D(SRTN) W !!,""A Surgery Risk Assessment must be selected prior to using this option."",!!,""Press <RET> to continue  "" R X:DTIME G END"
^XMB(3.9,148,2,5377,0)="""RTN"",""SROALEN"",4,0)"
^XMB(3.9,148,2,5378,0)=" S SRSOUT=0 D ^SROAUTL"
^XMB(3.9,148,2,5379,0)="""RTN"",""SROALEN"",5,0)"
^XMB(3.9,148,2,5380,0)="START G:SRSOUT END K SRA,SRAO D ^SROALN1,^SROALDP"
^XMB(3.9,148,2,5381,0)="""RTN"",""SROALEN"",6,0)"
^XMB(3.9,148,2,5382,0)="ASK W !!,""Select Preoperative Laboratory Information to Edit: "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1 D CONCC G END"
^XMB(3.9,148,2,5383,0)="""RTN"",""SROALEN"",7,0)"
^XMB(3.9,148,2,5384,0)=" I X="""" D CONCC,^SROALN2 G END"
^XMB(3.9,148,2,5385,0)="""RTN"",""SROALEN"",8,0)"
^XMB(3.9,148,2,5386,0)=" S:X=""a"" X=""A"" I '$D(SRAO(X)),(X'?.N1"":"".N),(X'=""A"") D HELP G:SRSOUT END G START"
^XMB(3.9,148,2,5387,0)="""RTN"",""SROALEN"",9,0)"
^XMB(3.9,148,2,5388,0)=" I X=""A"" S X=""1:14"""
^XMB(3.9,148,2,5389,0)="""RTN"",""SROALEN"",10,0)"
^XMB(3.9,148,2,5390,0)=" I X?.N1"":"".N S Y=$E(X),Z=$P(X,"":"",2) I Y<1!(Z>14)!(Y>Z) D HELP G:SRSOUT END G START"
^XMB(3.9,148,2,5391,0)="""RTN"",""SROALEN"",11,0)"
^XMB(3.9,148,2,5392,0)=" S SRPAGE="""" D HDR^SROAUTL"
^XMB(3.9,148,2,5393,0)="""RTN"",""SROALEN"",12,0)"
^XMB(3.9,148,2,5394,0)=" I X?.N1"":"".N D RANGE G START"
^XMB(3.9,148,2,5395,0)="""RTN"",""SROALEN"",13,0)"
^XMB(3.9,148,2,5396,0)=" I $D(SRAO(X)) S EMILY=X D  G START"
^XMB(3.9,148,2,5397,0)="""RTN"",""SROALEN"",14,0)"
^XMB(3.9,148,2,5398,0)=" .I $$LOCK^SROUTL(SRTN) D ONE,UNLOCK^SROUTL(SRTN)"
^XMB(3.9,148,2,5399,0)="""RTN"",""SROALEN"",15,0)"
^XMB(3.9,148,2,5400,0)="END W @IOF"
^XMB(3.9,148,2,5401,0)="""RTN"",""SROALEN"",16,0)"
^XMB(3.9,148,2,5402,0)=" Q"
^XMB(3.9,148,2,5403,0)="""RTN"",""SROALEN"",17,0)"
^XMB(3.9,148,2,5404,0)="HELP W @IOF,!!!!,""Enter the number or range of numbers you want to edit.  Examples of proper"",!,""responses are listed below."""
^XMB(3.9,148,2,5405,0)="""RTN"",""SROALEN"",18,0)"
^XMB(3.9,148,2,5406,0)=" W !!,""1. Enter 'A' to update all information."",!!,""2. Enter a number (1-14) to update the information in that field.  (For"",!,""   example, enter '3' to update Preoperative BUN)"""
^XMB(3.9,148,2,5407,0)="""RTN"",""SROALEN"",19,0)"
^XMB(3.9,148,2,5408,0)=" W !!,""3. Enter a range of numbers (1-14) separated by a ':' to enter a range of"",!,""   information.  (For example, enter '2:4' to update Serum Sodium,"",!,""   BUN, and Serum Creatinine)"""
^XMB(3.9,148,2,5409,0)="""RTN"",""SROALEN"",20,0)"
^XMB(3.9,148,2,5410,0)=" W !!,""Press <RET> to continue, or '^' to quit  "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1"
^XMB(3.9,148,2,5411,0)="""RTN"",""SROALEN"",21,0)"
^XMB(3.9,148,2,5412,0)=" Q"
^XMB(3.9,148,2,5413,0)="""RTN"",""SROALEN"",22,0)"
^XMB(3.9,148,2,5414,0)="RANGE ; range of numbers"
^XMB(3.9,148,2,5415,0)="""RTN"",""SROALEN"",23,0)"
^XMB(3.9,148,2,5416,0)=" I $$LOCK^SROUTL(SRTN) D  D UNLOCK^SROUTL(SRTN)"
^XMB(3.9,148,2,5417,0)="""RTN"",""SROALEN"",24,0)"
^XMB(3.9,148,2,5418,0)=" .S SRNOMORE=0,SHEMP=$P(X,"":""),CURLEY=$P(X,"":"",2) F EMILY=SHEMP:1:CURLEY Q:SRNOMORE  D ONE"
^XMB(3.9,148,2,5419,0)="""RTN"",""SROALEN"",25,0)"
^XMB(3.9,148,2,5420,0)=" Q"
^XMB(3.9,148,2,5421,0)="""RTN"",""SROALEN"",26,0)"
^XMB(3.9,148,2,5422,0)="ONE ; edit one item"
^XMB(3.9,148,2,5423,0)="""RTN"",""SROALEN"",27,0)"
^XMB(3.9,148,2,5424,0)=" I EMILY>14 K DR,DIE S DA=SRTN,DR=$P(SRAO(EMILY),""^"",4)_""T;""_$P(SRAO(EMILY),""^"",5)_""T;""_$P(SRAO(EMILY),""^"",6)_""T"",DIE=130 D ^DIE S:$D(Y) SRNOMORE=1 K DR Q"
^XMB(3.9,148,2,5425,0)="""RTN"",""SROALEN"",28,0)"
^XMB(3.9,148,2,5426,0)=" K DR,DIE S DA=SRTN,DR=$P(SRAO(EMILY),""^"",3)_""T;""_$P(SRAO(EMILY),""^"",4)_""T"",DIE=130 D ^DIE S:$D(Y) SRNOMORE=1 K DR"
^XMB(3.9,148,2,5427,0)="""RTN"",""SROALEN"",29,0)"
^XMB(3.9,148,2,5428,0)=" Q"
^XMB(3.9,148,2,5429,0)="""RTN"",""SROALEN"",30,0)"
^XMB(3.9,148,2,5430,0)="RET Q:SRSOUT  W !!,""Press <RET> to continue, or '^' to quit  "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1 Q"
^XMB(3.9,148,2,5431,0)="""RTN"",""SROALEN"",31,0)"
^XMB(3.9,148,2,5432,0)=" Q"
^XMB(3.9,148,2,5433,0)="""RTN"",""SROALEN"",32,0)"
^XMB(3.9,148,2,5434,0)="CONCC ; check for concurrent case and update if one exists"
^XMB(3.9,148,2,5435,0)="""RTN"",""SROALEN"",33,0)"
^XMB(3.9,148,2,5436,0)=" Q:'$$LOCK^SROUTL(SRTN)"
^XMB(3.9,148,2,5437,0)="""RTN"",""SROALEN"",34,0)"
^XMB(3.9,148,2,5438,0)=" S SRCON=$P($G(^SRF(SRTN,""CON"")),""^"") Q:'SRCON"
^XMB(3.9,148,2,5439,0)="""RTN"",""SROALEN"",35,0)"
^XMB(3.9,148,2,5440,0)=" S SRI="""" F  S SRI=$O(SRAO(SRI)) Q:SRI=""""  S S1=$P(SRAO(SRI),""^"",3),S2=$P(SRAO(SRI),""^"",4) K DA,DIC,DIQ,DR,SRY D"
^XMB(3.9,148,2,5441,0)="""RTN"",""SROALEN"",36,0)"
^XMB(3.9,148,2,5442,0)=" .S DA=SRTN,DR=S1_"";""_S2,DIC=""^SRF("",DIQ=""SRY"",DIQ(0)=""I"" D EN^DIQ1 S P1=SRY(130,SRTN,S1,""I"") S:P1="""" P1=""@"" S P2=SRY(130,SRTN,S2,""I"") S:P2="""" P2=""@"""
^XMB(3.9,148,2,5443,0)="""RTN"",""SROALEN"",37,0)"
^XMB(3.9,148,2,5444,0)=" .K DA,DIE,DR S DA=SRCON,DIE=130,DR=S1_""////""_P1_"";""_S2_""////""_P2 D ^DIE K DR"
^XMB(3.9,148,2,5445,0)="""RTN"",""SROALEN"",38,0)"
^XMB(3.9,148,2,5446,0)=" D UNLOCK^SROUTL(SRTN)"
^XMB(3.9,148,2,5447,0)="""RTN"",""SROALEN"",39,0)"
^XMB(3.9,148,2,5448,0)=" Q"
^XMB(3.9,148,2,5449,0)="""RTN"",""SROALET"")"
^XMB(3.9,148,2,5450,0)="0^12^B21039720^B20305580"
^XMB(3.9,148,2,5451,0)="""RTN"",""SROALET"",1,0)"
^XMB(3.9,148,2,5452,0)="SROALET ;BIR/MAM - PRINT 30 DAY LETTER ;01/26/06"
^XMB(3.9,148,2,5453,0)="""RTN"",""SROALET"",2,0)"
^XMB(3.9,148,2,5454,0)=" ;;3.0; Surgery ;**38,63,95,98,113,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,5455,0)="""RTN"",""SROALET"",3,0)"
^XMB(3.9,148,2,5456,0)=" K VADM,VAPA I $P($G(^SRF(SRTN,30)),""^"")!'$P($G(^SRF(SRTN,.2)),""^"",12) Q"
^XMB(3.9,148,2,5457,0)="""RTN"",""SROALET"",4,0)"
^XMB(3.9,148,2,5458,0)=" S SR(""RA"")=$G(^SRF(SRTN,""RA"")) I $P(SR(""RA""),""^"",6)[""N"" Q"
^XMB(3.9,148,2,5459,0)="""RTN"",""SROALET"",5,0)"
^XMB(3.9,148,2,5460,0)=" I $P(SR(""RA""),""^"")="""" Q"
^XMB(3.9,148,2,5461,0)="""RTN"",""SROALET"",6,0)"
^XMB(3.9,148,2,5462,0)=" S DFN=$P(^SRF(SRTN,0),""^"") S X=$G(^DPT(DFN,.35)) Q:$P(X,""^"")'=""""  ; no letter if deceased"
^XMB(3.9,148,2,5463,0)="""RTN"",""SROALET"",7,0)"
^XMB(3.9,148,2,5464,0)=" S VAINDT=""NOW"" D INP^VADPT I $G(VAIN(1)) Q  ; no letter if inpatient"
^XMB(3.9,148,2,5465,0)="""RTN"",""SROALET"",8,0)"
^XMB(3.9,148,2,5466,0)=" D DEM^VADPT,ADD^VADPT"
^XMB(3.9,148,2,5467,0)="""RTN"",""SROALET"",9,0)"
^XMB(3.9,148,2,5468,0)=" S SRANAME=$P(VADM(1),""^""),X=$P(SRANAME,"","") D"
^XMB(3.9,148,2,5469,0)="""RTN"",""SROALET"",10,0)"
^XMB(3.9,148,2,5470,0)=" .I X[""-"" N SRNM,J,Z D  Q"
^XMB(3.9,148,2,5471,0)="""RTN"",""SROALET"",11,0)"
^XMB(3.9,148,2,5472,0)=" ..F J=1:1 S Z=$P(X,""-"",J) Q:Z=""""  S SRNM(J)=$E(Z)_$TR($E(Z,2,$L(Z)),""ABCDEFGHIJKLMNOPQRSTUVWXYZ"",""abcdefghijklmnopqrstuvwxyz"")"
^XMB(3.9,148,2,5473,0)="""RTN"",""SROALET"",12,0)"
^XMB(3.9,148,2,5474,0)=" ..S Y=SRNM(1) F J=2:1 Q:'$D(SRNM(J))  S Y=Y_""-""_SRNM(J)"
^XMB(3.9,148,2,5475,0)="""RTN"",""SROALET"",13,0)"
^XMB(3.9,148,2,5476,0)=" .S Y=$E(X)_$TR($E(X,2,$L(X)),""ABCDEFGHIJKLMNOPQRSTUVWXYZ"",""abcdefghijklmnopqrstuvwxyz"")"
^XMB(3.9,148,2,5477,0)="""RTN"",""SROALET"",14,0)"
^XMB(3.9,148,2,5478,0)=" S TITLE=$S($P(VADM(5),""^"")=""F"":""Ms. "",1:""Mr. ""),SRANAME=TITLE_Y"
^XMB(3.9,148,2,5479,0)="""RTN"",""SROALET"",15,0)"
^XMB(3.9,148,2,5480,0)=" S SRADATE=$E(SRSDATE,4,5)_""/""_$E(SRSDATE,6,7)_""/""_$E(SRSDATE,2,3)"
^XMB(3.9,148,2,5481,0)="""RTN"",""SROALET"",16,0)"
^XMB(3.9,148,2,5482,0)=" S Y=DT D D^DIQ S SRDT=Y"
^XMB(3.9,148,2,5483,0)="""RTN"",""SROALET"",17,0)"
^XMB(3.9,148,2,5484,0)=" S SEX=$P(VADM(5),""^"")"
^XMB(3.9,148,2,5485,0)="""RTN"",""SROALET"",18,0)"
^XMB(3.9,148,2,5486,0)=" S SRNM=$P(VADM(1),"","",2)_"" ""_$P(VADM(1),"","")"
^XMB(3.9,148,2,5487,0)="""RTN"",""SROALET"",19,0)"
^XMB(3.9,148,2,5488,0)=" W:$Y @IOF W !!!!!!!!!!,?4,SRNM,?60,SRDT"
^XMB(3.9,148,2,5489,0)="""RTN"",""SROALET"",20,0)"
^XMB(3.9,148,2,5490,0)=" N SRCCADD S SRCCADD=0 D CCADD"
^XMB(3.9,148,2,5491,0)="""RTN"",""SROALET"",21,0)"
^XMB(3.9,148,2,5492,0)=" I 'SRCCADD S STATE="""" I VAPA(5) S STATE=$P(^DIC(5,$P(VAPA(5),""^""),0),""^"",2)"
^XMB(3.9,148,2,5493,0)="""RTN"",""SROALET"",22,0)"
^XMB(3.9,148,2,5494,0)=" I 'SRCCADD W !,?4,VAPA(1) W:$G(VAPA(2))'="""" !,?4,VAPA(2) W:$G(VAPA(3))'="""" !,?4,VAPA(3) W:VAPA(4)'="""" !,?4,VAPA(4)_"", ""_STATE_"" ""_VAPA(6)"
^XMB(3.9,148,2,5495,0)="""RTN"",""SROALET"",23,0)"
^XMB(3.9,148,2,5496,0)=" W !!!,?4,""Dear ""_SRANAME_"","""
^XMB(3.9,148,2,5497,0)="""RTN"",""SROALET"",24,0)"
^XMB(3.9,148,2,5498,0)="MM ;"
^XMB(3.9,148,2,5499,0)="""RTN"",""SROALET"",25,0)"
^XMB(3.9,148,2,5500,0)=" N SRDIV S SRDIV=$$SITE^SROUTL0(SRTN) I 'SRDIV D DFLT Q"
^XMB(3.9,148,2,5501,0)="""RTN"",""SROALET"",26,0)"
^XMB(3.9,148,2,5502,0)=" I '$O(^SRO(133,SRDIV,5,0)) D DFLT Q"
^XMB(3.9,148,2,5503,0)="""RTN"",""SROALET"",27,0)"
^XMB(3.9,148,2,5504,0)=" W ! S SRLINE=0 F  S SRLINE=$O(^SRO(133,SRDIV,5,SRLINE)) Q:'SRLINE  W !,?4,^SRO(133,SRDIV,5,SRLINE,0)"
^XMB(3.9,148,2,5505,0)="""RTN"",""SROALET"",28,0)"
^XMB(3.9,148,2,5506,0)=" Q"
^XMB(3.9,148,2,5507,0)="""RTN"",""SROALET"",29,0)"
^XMB(3.9,148,2,5508,0)="DFLT W !!,?4,""One month ago, you had an operation at the VA Medical Center.  We are"",!,?4,""interested in how you feel.  Have you had any health problems since your"",!,?4,""operation ?  We would like to hear from you.  Please take a few minutes"""
^XMB(3.9,148,2,5509,0)="""RTN"",""SROALET"",30,0)"
^XMB(3.9,148,2,5510,0)=" W !,?4,""to answer these questions and return this letter in the self-addressed"",!,?4,""stamped envelope."""
^XMB(3.9,148,2,5511,0)="""RTN"",""SROALET"",31,0)"
^XMB(3.9,148,2,5512,0)=" W !!,?4,""Have you been to a hospital or seen a doctor for any reason since your"",!,?4,""operation ?   ___ Yes  ___ No"""
^XMB(3.9,148,2,5513,0)="""RTN"",""SROALET"",32,0)"
^XMB(3.9,148,2,5514,0)=" W !!,?4,""If you answered NO, you do not need to answer any more questions.  Please"",!,?4,""return this sheet in the self-addressed stamped envelope."""
^XMB(3.9,148,2,5515,0)="""RTN"",""SROALET"",33,0)"
^XMB(3.9,148,2,5516,0)=" W !!,?4,""If you have answered YES, please answer the following questions."",!!,?7,""1) Have you been seen in an outpatient clinic or doctor's office ? """
^XMB(3.9,148,2,5517,0)="""RTN"",""SROALET"",34,0)"
^XMB(3.9,148,2,5518,0)=" W !,?10,""___ Yes  ___ No"",!!,?10,""Why did you go to the clinic or doctor's office ? ________________"""
^XMB(3.9,148,2,5519,0)="""RTN"",""SROALET"",35,0)"
^XMB(3.9,148,2,5520,0)=" W !!,?10,""Where ? (name and location) _____________________  Date ? ________"""
^XMB(3.9,148,2,5521,0)="""RTN"",""SROALET"",36,0)"
^XMB(3.9,148,2,5522,0)=" W !!,?10,""Who was your doctor ? ____________________________________________"""
^XMB(3.9,148,2,5523,0)="""RTN"",""SROALET"",37,0)"
^XMB(3.9,148,2,5524,0)=" W !!!,?7,""2) Were you admitted to a hospital ?  ___ Yes  ___ No"",!!,?10,""Why did you go to the hospital ? _________________________________"""
^XMB(3.9,148,2,5525,0)="""RTN"",""SROALET"",38,0)"
^XMB(3.9,148,2,5526,0)=" W !!,?10,""Where ? (name and location) _____________________  Date ? ________"""
^XMB(3.9,148,2,5527,0)="""RTN"",""SROALET"",39,0)"
^XMB(3.9,148,2,5528,0)=" W !!,?10,""Who was your doctor ? ____________________________________________"""
^XMB(3.9,148,2,5529,0)="""RTN"",""SROALET"",40,0)"
^XMB(3.9,148,2,5530,0)=" W !!!,?4,""Please return this letter whether or not you have had any medical problems."",!,?4,""Your health and opinion are important to us.  Thank You."",!!,?4,""Sincerely,"",!!!,?4,""Surgical Clinical Nurse Reviewer"""
^XMB(3.9,148,2,5531,0)="""RTN"",""SROALET"",41,0)"
^XMB(3.9,148,2,5532,0)=" Q"
^XMB(3.9,148,2,5533,0)="""RTN"",""SROALET"",42,0)"
^XMB(3.9,148,2,5534,0)=" ;"
^XMB(3.9,148,2,5535,0)="""RTN"",""SROALET"",43,0)"
^XMB(3.9,148,2,5536,0)="CCADD ; Get Confidential Correspondence Address if one is active"
^XMB(3.9,148,2,5537,0)="""RTN"",""SROALET"",44,0)"
^XMB(3.9,148,2,5538,0)=" ; and has the category ""all other""."
^XMB(3.9,148,2,5539,0)="""RTN"",""SROALET"",45,0)"
^XMB(3.9,148,2,5540,0)=" ;"
^XMB(3.9,148,2,5541,0)="""RTN"",""SROALET"",46,0)"
^XMB(3.9,148,2,5542,0)=" N NSTATE S NSTATE="""""
^XMB(3.9,148,2,5543,0)="""RTN"",""SROALET"",47,0)"
^XMB(3.9,148,2,5544,0)=" ; See if CC address exists"
^XMB(3.9,148,2,5545,0)="""RTN"",""SROALET"",48,0)"
^XMB(3.9,148,2,5546,0)=" I '$G(VAPA(12)) Q"
^XMB(3.9,148,2,5547,0)="""RTN"",""SROALET"",49,0)"
^XMB(3.9,148,2,5548,0)=" ; code to check the CC category in the variable array VAPA(22)"
^XMB(3.9,148,2,5549,0)="""RTN"",""SROALET"",50,0)"
^XMB(3.9,148,2,5550,0)=" I $P($G(VAPA(22,5)),""^"",3)'=""Y"" Q"
^XMB(3.9,148,2,5551,0)="""RTN"",""SROALET"",51,0)"
^XMB(3.9,148,2,5552,0)=" ; if the category ""All Other"" is active, set SRCCADD=1 and print the CC address"
^XMB(3.9,148,2,5553,0)="""RTN"",""SROALET"",52,0)"
^XMB(3.9,148,2,5554,0)=" S SRCCADD=1"
^XMB(3.9,148,2,5555,0)="""RTN"",""SROALET"",53,0)"
^XMB(3.9,148,2,5556,0)=" S:$G(VAPA(17)) NSTATE=$P(^DIC(5,$P(VAPA(17),""^""),0),""^"",2)"
^XMB(3.9,148,2,5557,0)="""RTN"",""SROALET"",54,0)"
^XMB(3.9,148,2,5558,0)=" W:$G(VAPA(13))'="""" !,?4,VAPA(13) W:$G(VAPA(14))'="""" !,?4,VAPA(14) W:$G(VAPA(15))'="""" !,?4,VAPA(15) W:$G(VAPA(16))'="""" !,?4,VAPA(16)_"", ""_NSTATE_"" ""_$P(VAPA(18),""^"",2)"
^XMB(3.9,148,2,5559,0)="""RTN"",""SROALET"",55,0)"
^XMB(3.9,148,2,5560,0)=" Q"
^XMB(3.9,148,2,5561,0)="""RTN"",""SROALL"")"
^XMB(3.9,148,2,5562,0)="0^91^B13021527^B14403320"
^XMB(3.9,148,2,5563,0)="""RTN"",""SROALL"",1,0)"
^XMB(3.9,148,2,5564,0)="SROALL ;BIR/MAM - ALL ASSESSMENTS ;03/27/06"
^XMB(3.9,148,2,5565,0)="""RTN"",""SROALL"",2,0)"
^XMB(3.9,148,2,5566,0)=" ;;3.0; Surgery ;**32,38,47,55,50,88,142,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,5567,0)="""RTN"",""SROALL"",3,0)"
^XMB(3.9,148,2,5568,0)=" I $E(IOST)=""P"" D ^SROALLP Q"
^XMB(3.9,148,2,5569,0)="""RTN"",""SROALL"",4,0)"
^XMB(3.9,148,2,5570,0)=" S SRSOUT=0 D HDR F  S SRSD=$O(^SRF(""AC"",SRSD)) Q:'SRSD!(SRSD>SRED)!SRSOUT  S SRTN=0 F  S SRTN=$O(^SRF(""AC"",SRSD,SRTN)) Q:'SRTN!SRSOUT  I $D(^SRF(SRTN,0)),$$DIV^SROUTL0(SRTN) D SET"
^XMB(3.9,148,2,5571,0)="""RTN"",""SROALL"",5,0)"
^XMB(3.9,148,2,5572,0)=" Q"
^XMB(3.9,148,2,5573,0)="""RTN"",""SROALL"",6,0)"
^XMB(3.9,148,2,5574,0)="SET ; print assessments"
^XMB(3.9,148,2,5575,0)="""RTN"",""SROALL"",7,0)"
^XMB(3.9,148,2,5576,0)=" I $Y+5>IOSL D PAGE I SRSOUT Q"
^XMB(3.9,148,2,5577,0)="""RTN"",""SROALL"",8,0)"
^XMB(3.9,148,2,5578,0)=" S SRA(0)=^SRF(SRTN,0) I $P(SRA(0),""^"",3)'=""J"" Q"
^XMB(3.9,148,2,5579,0)="""RTN"",""SROALL"",9,0)"
^XMB(3.9,148,2,5580,0)=" I $G(SRMNA),($P($G(^SRF(SRTN,""RA"")),""^"",2))'="""" Q"
^XMB(3.9,148,2,5581,0)="""RTN"",""SROALL"",10,0)"
^XMB(3.9,148,2,5582,0)=" S CAN=$P($G(^SRF(SRTN,30)),""^"") I CAN Q"
^XMB(3.9,148,2,5583,0)="""RTN"",""SROALL"",11,0)"
^XMB(3.9,148,2,5584,0)=" S CAN=$P($G(^SRF(SRTN,31)),""^"",8) I CAN'="""" Q"
^XMB(3.9,148,2,5585,0)="""RTN"",""SROALL"",12,0)"
^XMB(3.9,148,2,5586,0)=" I '$P($G(^SRF(SRTN,.2)),""^"",12) Q:'$G(SRMNA)  I '$P($G(^SRF(SRTN,.2)),""^"",3) Q"
^XMB(3.9,148,2,5587,0)="""RTN"",""SROALL"",13,0)"
^XMB(3.9,148,2,5588,0)=" S DFN=$P(SRA(0),""^"") N I D DEM^VADPT S SRANM=VADM(1),SRASSN=VA(""PID"") K VADM"
^XMB(3.9,148,2,5589,0)="""RTN"",""SROALL"",14,0)"
^XMB(3.9,148,2,5590,0)=" I $L(SRANM)>19 S SRANM=$P(SRANM,"","")_"",""_$E($P(SRANM,"","",2))_""."""
^XMB(3.9,148,2,5591,0)="""RTN"",""SROALL"",15,0)"
^XMB(3.9,148,2,5592,0)=" S SREXCL="""" I '$G(SRMNA) D"
^XMB(3.9,148,2,5593,0)="""RTN"",""SROALL"",16,0)"
^XMB(3.9,148,2,5594,0)=" .S SRA(""RA"")=$G(^SRF(SRTN,""RA"")),X=$P(SRA(""RA""),""^""),STATUS=$S(X=""I"":""INCOMPLETE"",X=""C"":""COMPLETED"",X=""T"":""TRANSMITTED"",1:""NO ASSESSMENT"")"
^XMB(3.9,148,2,5595,0)="""RTN"",""SROALL"",17,0)"
^XMB(3.9,148,2,5596,0)=" .S (SREXCL,Y)=$P(SRA(""RA""),""^"",7),C=$P(^DD(130,102,0),""^"",2) D Y^DIQ S SREXCL=Y"
^XMB(3.9,148,2,5597,0)="""RTN"",""SROALL"",18,0)"
^XMB(3.9,148,2,5598,0)=" S SROPER=$P(^SRF(SRTN,""OP""),""^"") I $O(^SRF(SRTN,13,0)) S SROTHER=0 F I=0:0 S SROTHER=$O(^SRF(SRTN,13,SROTHER)) Q:'SROTHER  D OTHER"
^XMB(3.9,148,2,5599,0)="""RTN"",""SROALL"",19,0)"
^XMB(3.9,148,2,5600,0)=" I '$G(SRMNA) S X=$P($G(^SRF(SRTN,""RA"")),""^"",2) I X=""C"" S SROPER=""* ""_SROPER"
^XMB(3.9,148,2,5601,0)="""RTN"",""SROALL"",20,0)"
^XMB(3.9,148,2,5602,0)=" K SROPS,MM,MMM S:$L(SROPER)<34 SROPS(1)=SROPER I $L(SROPER)>33 S SROPER=SROPER_""  "" F M=1:1 D LOOP Q:MMM="""""
^XMB(3.9,148,2,5603,0)="""RTN"",""SROALL"",21,0)"
^XMB(3.9,148,2,5604,0)=" S SRSS=$P(SRA(0),""^"",4),SRSS=$S(SRSS:$P(^SRO(137.45,SRSS,0),""^""),1:""SPECIALTY NOT ENTERED"")"
^XMB(3.9,148,2,5605,0)="""RTN"",""SROALL"",22,0)"
^XMB(3.9,148,2,5606,0)=" D TECH^SROPRIN"
^XMB(3.9,148,2,5607,0)="""RTN"",""SROALL"",23,0)"
^XMB(3.9,148,2,5608,0)=" S Y=$P(SRA(0),""^"",9) D D^DIQ S SRDT=$P(Y,""@"")"
^XMB(3.9,148,2,5609,0)="""RTN"",""SROALL"",24,0)"
^XMB(3.9,148,2,5610,0)=" W !,SRTN,?20,SRANM_"" ""_VA(""PID""),?55,$P(SRSS,""(""),!,SRDT,?20,SROPS(1),?55,SRTECH"
^XMB(3.9,148,2,5611,0)="""RTN"",""SROALL"",25,0)"
^XMB(3.9,148,2,5612,0)=" I $G(SRMNA),$D(SROPS(2)) W !,?20,SROPS(2)"
^XMB(3.9,148,2,5613,0)="""RTN"",""SROALL"",26,0)"
^XMB(3.9,148,2,5614,0)=" I '$G(SRMNA) W !,$S('$G(SRMNA):STATUS,1:"""") W:$D(SROPS(2)) ?20,SROPS(2) I SREXCL'="""" W ?55,SREXCL"
^XMB(3.9,148,2,5615,0)="""RTN"",""SROALL"",27,0)"
^XMB(3.9,148,2,5616,0)=" I $D(SROPS(3)) W !,?20,SROPS(3) I $D(SROPS(4)) W !,?20,SROPS(4)"
^XMB(3.9,148,2,5617,0)="""RTN"",""SROALL"",28,0)"
^XMB(3.9,148,2,5618,0)=" I SREXCL="""",$D(SROPS(3)) W !,?20,SROPS(3) I $D(SROPS(4)) W !,?20,SROPS(4)"
^XMB(3.9,148,2,5619,0)="""RTN"",""SROALL"",29,0)"
^XMB(3.9,148,2,5620,0)=" N I,SRPROC,SRL S SRL=48 D CPTS^SROAUTL0 W !,?20,""CPT Codes: """
^XMB(3.9,148,2,5621,0)="""RTN"",""SROALL"",30,0)"
^XMB(3.9,148,2,5622,0)=" F I=1:1 Q:'$D(SRPROC(I))  W:I=1 ?31,SRPROC(I) W:I'=1 !,?31,SRPROC(I)"
^XMB(3.9,148,2,5623,0)="""RTN"",""SROALL"",31,0)"
^XMB(3.9,148,2,5624,0)=" W ! F LINE=1:1:80 W ""-"""
^XMB(3.9,148,2,5625,0)="""RTN"",""SROALL"",32,0)"
^XMB(3.9,148,2,5626,0)=" Q"
^XMB(3.9,148,2,5627,0)="""RTN"",""SROALL"",33,0)"
^XMB(3.9,148,2,5628,0)="OTHER ; other operations"
^XMB(3.9,148,2,5629,0)="""RTN"",""SROALL"",34,0)"
^XMB(3.9,148,2,5630,0)=" S SRLONG=1 I $L(SROPER)+$L($P(^SRF(SRTN,13,SROTHER,0),""^""))>125 S SRLONG=0,SROTHER=999,SROPERS="" ..."""
^XMB(3.9,148,2,5631,0)="""RTN"",""SROALL"",35,0)"
^XMB(3.9,148,2,5632,0)=" I SRLONG S SROPERS=$P(^SRF(SRTN,13,SROTHER,0),""^"")"
^XMB(3.9,148,2,5633,0)="""RTN"",""SROALL"",36,0)"
^XMB(3.9,148,2,5634,0)=" S SROPER=SROPER_$S(SROPERS'="" ..."":"", ""_SROPERS,1:SROPERS)"
^XMB(3.9,148,2,5635,0)="""RTN"",""SROALL"",37,0)"
^XMB(3.9,148,2,5636,0)=" Q"
^XMB(3.9,148,2,5637,0)="""RTN"",""SROALL"",38,0)"
^XMB(3.9,148,2,5638,0)="LOOP ; break procedures"
^XMB(3.9,148,2,5639,0)="""RTN"",""SROALL"",39,0)"
^XMB(3.9,148,2,5640,0)=" S SROPS(M)="""" F LOOP=1:1 S MM=$P(SROPER,"" ""),MMM=$P(SROPER,"" "",2,200) Q:MMM=""""  Q:$L(SROPS(M))+$L(MM)'<34  S SROPS(M)=SROPS(M)_MM_"" "",SROPER=MMM"
^XMB(3.9,148,2,5641,0)="""RTN"",""SROALL"",40,0)"
^XMB(3.9,148,2,5642,0)=" Q"
^XMB(3.9,148,2,5643,0)="""RTN"",""SROALL"",41,0)"
^XMB(3.9,148,2,5644,0)="PAGE W !!,""Press <RET> to continue, or '^' to quit  "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1 Q"
^XMB(3.9,148,2,5645,0)="""RTN"",""SROALL"",42,0)"
^XMB(3.9,148,2,5646,0)=" I X[""?"" W !!,""If you want to continue listing incomplete assessments, enter <RET>.  Enter"",!,""'^' to return to the menu."" G PAGE"
^XMB(3.9,148,2,5647,0)="""RTN"",""SROALL"",43,0)"
^XMB(3.9,148,2,5648,0)="HDR S SRHD=$S($G(SRMNA):""NON-ASSESSED MAJOR SURGICAL CASES"",1:""ALL MAJOR SURGICAL CASES"")"
^XMB(3.9,148,2,5649,0)="""RTN"",""SROALL"",44,0)"
^XMB(3.9,148,2,5650,0)=" W @IOF,!,?(80-$L(SRHD)\2),SRHD,!,?(80-$L(SRFRTO)\2),SRFRTO"
^XMB(3.9,148,2,5651,0)="""RTN"",""SROALL"",45,0)"
^XMB(3.9,148,2,5652,0)=" W !!,""CASE #"",?20,""PATIENT"",?55,""SURGICAL SPECIALTY"",!,""OPERATION DATE"",?20,""OPERATIVE PROCEDURE(S)"",?55,""ANESTHESIA TECHNIQUE"""
^XMB(3.9,148,2,5653,0)="""RTN"",""SROALL"",46,0)"
^XMB(3.9,148,2,5654,0)=" I '$G(SRMNA) W !,""ASSESSMENT STATUS"",?55,""EXCLUSION CRITERIA"""
^XMB(3.9,148,2,5655,0)="""RTN"",""SROALL"",47,0)"
^XMB(3.9,148,2,5656,0)=" W ! F LINE=1:1:80 W ""="""
^XMB(3.9,148,2,5657,0)="""RTN"",""SROALL"",48,0)"
^XMB(3.9,148,2,5658,0)=" Q"
^XMB(3.9,148,2,5659,0)="""RTN"",""SROALLP"")"
^XMB(3.9,148,2,5660,0)="0^94^B12596044^B12421048"
^XMB(3.9,148,2,5661,0)="""RTN"",""SROALLP"",1,0)"
^XMB(3.9,148,2,5662,0)="SROALLP ;BIR/MAM - MAJOR CASES ;04/03/06"
^XMB(3.9,148,2,5663,0)="""RTN"",""SROALLP"",2,0)"
^XMB(3.9,148,2,5664,0)=" ;;3.0; Surgery ;**32,47,55,50,88,142,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,5665,0)="""RTN"",""SROALLP"",3,0)"
^XMB(3.9,148,2,5666,0)=" S SRPAGE=1,(SRSOUT,SRDFN)=0 D HDR Q:SRSOUT"
^XMB(3.9,148,2,5667,0)="""RTN"",""SROALLP"",4,0)"
^XMB(3.9,148,2,5668,0)=" F  S SRSD=$O(^SRF(""AC"",SRSD)) Q:'SRSD!(SRSD>SRED)!SRSOUT  S SRTN=0 F  S SRTN=$O(^SRF(""AC"",SRSD,SRTN)) Q:'SRTN!SRSOUT  I $D(^SRF(SRTN,0)),$$DIV^SROUTL0(SRTN) D SET"
^XMB(3.9,148,2,5669,0)="""RTN"",""SROALLP"",5,0)"
^XMB(3.9,148,2,5670,0)=" Q"
^XMB(3.9,148,2,5671,0)="""RTN"",""SROALLP"",6,0)"
^XMB(3.9,148,2,5672,0)="SET ; print assessments"
^XMB(3.9,148,2,5673,0)="""RTN"",""SROALLP"",7,0)"
^XMB(3.9,148,2,5674,0)=" I $Y+5>IOSL S SRPAGE=SRPAGE+1 D HDR I SRSOUT Q"
^XMB(3.9,148,2,5675,0)="""RTN"",""SROALLP"",8,0)"
^XMB(3.9,148,2,5676,0)=" S SRA(0)=^SRF(SRTN,0),DFN=$P(SRA(0),""^"") N I D DEM^VADPT S SRANM=VADM(1),SRASSN=VA(""PID"") K VADM"
^XMB(3.9,148,2,5677,0)="""RTN"",""SROALLP"",9,0)"
^XMB(3.9,148,2,5678,0)=" I $P(SRA(0),""^"",3)'=""J"" Q"
^XMB(3.9,148,2,5679,0)="""RTN"",""SROALLP"",10,0)"
^XMB(3.9,148,2,5680,0)=" I $G(SRMNA),($P($G(^SRF(SRTN,""RA"")),""^"",2))'="""" Q"
^XMB(3.9,148,2,5681,0)="""RTN"",""SROALLP"",11,0)"
^XMB(3.9,148,2,5682,0)=" S CAN=$P($G(^SRF(SRTN,30)),""^"") I CAN Q"
^XMB(3.9,148,2,5683,0)="""RTN"",""SROALLP"",12,0)"
^XMB(3.9,148,2,5684,0)=" S CAN=$P($G(^SRF(SRTN,31)),""^"",8) I CAN'="""" Q"
^XMB(3.9,148,2,5685,0)="""RTN"",""SROALLP"",13,0)"
^XMB(3.9,148,2,5686,0)=" I '$P($G(^SRF(SRTN,.2)),""^"",12) Q:'$G(SRMNA)  I '$P($G(^SRF(SRTN,.2)),""^"",3) Q"
^XMB(3.9,148,2,5687,0)="""RTN"",""SROALLP"",14,0)"
^XMB(3.9,148,2,5688,0)=" S SREXCL="""" I '$G(SRMNA) D"
^XMB(3.9,148,2,5689,0)="""RTN"",""SROALLP"",15,0)"
^XMB(3.9,148,2,5690,0)=" .S SRA(""RA"")=$G(^SRF(SRTN,""RA"")),X=$P(SRA(""RA""),""^""),STATUS=$S(X=""I"":""INCOMPLETE"",X=""C"":""COMPLETED"",X=""T"":""TRANSMITTED"",1:""NO ASSESSMENT"")"
^XMB(3.9,148,2,5691,0)="""RTN"",""SROALLP"",16,0)"
^XMB(3.9,148,2,5692,0)=" .S (SREXCL,Y)=$P(SRA(""RA""),""^"",7),C=$P(^DD(130,102,0),""^"",2) D Y^DIQ S SREXCL=Y"
^XMB(3.9,148,2,5693,0)="""RTN"",""SROALLP"",17,0)"
^XMB(3.9,148,2,5694,0)=" S SROPER=$P(^SRF(SRTN,""OP""),""^"") I $O(^SRF(SRTN,13,0)) S SROTHER=0 F I=0:0 S SROTHER=$O(^SRF(SRTN,13,SROTHER)) Q:'SROTHER  D OTHER"
^XMB(3.9,148,2,5695,0)="""RTN"",""SROALLP"",18,0)"
^XMB(3.9,148,2,5696,0)=" I '$G(SRMNA) S X=$P($G(^SRF(SRTN,""RA"")),""^"",2) I X=""C"" S SROPER=""* ""_SROPER"
^XMB(3.9,148,2,5697,0)="""RTN"",""SROALLP"",19,0)"
^XMB(3.9,148,2,5698,0)=" K SROPS,MM,MMM S:$L(SROPER)<34 SROPS(1)=SROPER I $L(SROPER)>33 S SROPER=SROPER_""  "" F M=1:1 D LOOP Q:MMM="""""
^XMB(3.9,148,2,5699,0)="""RTN"",""SROALLP"",20,0)"
^XMB(3.9,148,2,5700,0)=" S SRSS=$P(SRA(0),""^"",4),SRSS=$S(SRSS:$P(^SRO(137.45,SRSS,0),""^""),1:""SPECIALTY NOT ENTERED"")"
^XMB(3.9,148,2,5701,0)="""RTN"",""SROALLP"",21,0)"
^XMB(3.9,148,2,5702,0)=" D TECH^SROPRIN"
^XMB(3.9,148,2,5703,0)="""RTN"",""SROALLP"",22,0)"
^XMB(3.9,148,2,5704,0)=" S (SRDOC,Y)=$P($G(^SRF(SRTN,.1)),""^"",4),C=$P(^DD(130,.14,0),""^"",2) D:Y'="""" Y^DIQ I $L(Y)>24 S Z=$P(Y,"","")_"",""_$E($P(Y,"","",2))_""."",Y=Z"
^XMB(3.9,148,2,5705,0)="""RTN"",""SROALLP"",23,0)"
^XMB(3.9,148,2,5706,0)=" S SRDOC=Y"
^XMB(3.9,148,2,5707,0)="""RTN"",""SROALLP"",24,0)"
^XMB(3.9,148,2,5708,0)=" S Y=$P(SRA(0),""^"",9) D D^DIQ S SRDT=$P(Y,""@"")"
^XMB(3.9,148,2,5709,0)="""RTN"",""SROALLP"",25,0)"
^XMB(3.9,148,2,5710,0)=" W !,SRTN,?20,SRANM_"" ""_VA(""PID""),?67,$P(SRSS,""(""),?107,SRTECH,!,SRDT,?20,SROPS(1)"
^XMB(3.9,148,2,5711,0)="""RTN"",""SROALLP"",26,0)"
^XMB(3.9,148,2,5712,0)=" I '$G(SRMNA) W ?67,STATUS,?107,SREXCL"
^XMB(3.9,148,2,5713,0)="""RTN"",""SROALLP"",27,0)"
^XMB(3.9,148,2,5714,0)=" I $G(SRMNA) W ?67,SRDOC"
^XMB(3.9,148,2,5715,0)="""RTN"",""SROALLP"",28,0)"
^XMB(3.9,148,2,5716,0)=" I $D(SROPS(2)) W !,?20,SROPS(2) I $D(SROPS(3)) W !,?20,SROPS(3) I $D(SROPS(4)) W !,?20,SROPS(4)"
^XMB(3.9,148,2,5717,0)="""RTN"",""SROALLP"",29,0)"
^XMB(3.9,148,2,5718,0)=" N I,SRPROC,SRL S SRL=100 D CPTS^SROAUTL0 W !,?20,""CPT Codes: """
^XMB(3.9,148,2,5719,0)="""RTN"",""SROALLP"",30,0)"
^XMB(3.9,148,2,5720,0)=" F I=1:1 Q:'$D(SRPROC(I))  W:I=1 ?31,SRPROC(I) W:I'=1 !,?31,SRPROC(I)"
^XMB(3.9,148,2,5721,0)="""RTN"",""SROALLP"",31,0)"
^XMB(3.9,148,2,5722,0)=" W ! F LINE=1:1:132 W ""-"""
^XMB(3.9,148,2,5723,0)="""RTN"",""SROALLP"",32,0)"
^XMB(3.9,148,2,5724,0)=" Q"
^XMB(3.9,148,2,5725,0)="""RTN"",""SROALLP"",33,0)"
^XMB(3.9,148,2,5726,0)="OTHER ; other operations"
^XMB(3.9,148,2,5727,0)="""RTN"",""SROALLP"",34,0)"
^XMB(3.9,148,2,5728,0)=" S SRLONG=1 I $L(SROPER)+$L($P(^SRF(SRTN,13,SROTHER,0),""^""))>165 S SRLONG=0,SROTHER=999,SROPERS="" ..."""
^XMB(3.9,148,2,5729,0)="""RTN"",""SROALLP"",35,0)"
^XMB(3.9,148,2,5730,0)=" I SRLONG S SROPERS=$P(^SRF(SRTN,13,SROTHER,0),""^"")"
^XMB(3.9,148,2,5731,0)="""RTN"",""SROALLP"",36,0)"
^XMB(3.9,148,2,5732,0)=" S SROPER=SROPER_$S(SROPERS'="" ..."":"", ""_SROPERS,1:SROPERS)"
^XMB(3.9,148,2,5733,0)="""RTN"",""SROALLP"",37,0)"
^XMB(3.9,148,2,5734,0)=" Q"
^XMB(3.9,148,2,5735,0)="""RTN"",""SROALLP"",38,0)"
^XMB(3.9,148,2,5736,0)="LOOP ; break procedures"
^XMB(3.9,148,2,5737,0)="""RTN"",""SROALLP"",39,0)"
^XMB(3.9,148,2,5738,0)=" S SROPS(M)="""" F LOOP=1:1 S MM=$P(SROPER,"" ""),MMM=$P(SROPER,"" "",2,200) Q:MMM=""""  Q:$L(SROPS(M))+$L(MM)'<44  S SROPS(M)=SROPS(M)_MM_"" "",SROPER=MMM"
^XMB(3.9,148,2,5739,0)="""RTN"",""SROALLP"",40,0)"
^XMB(3.9,148,2,5740,0)=" Q"
^XMB(3.9,148,2,5741,0)="""RTN"",""SROALLP"",41,0)"
^XMB(3.9,148,2,5742,0)="HDR ; print heading"
^XMB(3.9,148,2,5743,0)="""RTN"",""SROALLP"",42,0)"
^XMB(3.9,148,2,5744,0)=" I $D(ZTQUEUED) D ^SROSTOP I SRHALT S SRSOUT=1 Q"
^XMB(3.9,148,2,5745,0)="""RTN"",""SROALLP"",43,0)"
^XMB(3.9,148,2,5746,0)=" S SRTITLE=$S($G(SRMNA):""NON-ASSESSED MAJOR SURGICAL CASES"",1:""ALL MAJOR SURGICAL CASES"")"
^XMB(3.9,148,2,5747,0)="""RTN"",""SROALLP"",44,0)"
^XMB(3.9,148,2,5748,0)=" W:$Y @IOF W !,?(132-$L(SRTITLE)\2),SRTITLE,?120,""PAGE ""_SRPAGE,!,?(132-$L(SRINST)\2),SRINST,!,?58,""SURGERY SERVICE"",?100,""DATE REVIEWED:"""
^XMB(3.9,148,2,5749,0)="""RTN"",""SROALLP"",45,0)"
^XMB(3.9,148,2,5750,0)=" W !,?(132-$L(SRFRTO)\2),SRFRTO,?100,""REVIEWED BY:"""
^XMB(3.9,148,2,5751,0)="""RTN"",""SROALLP"",46,0)"
^XMB(3.9,148,2,5752,0)=" W !!,""CASE #"",?20,""PATIENT"",?67,""SURGICAL SPECIALTY"",?107,""ANESTHESIA TECHNIQUE"",!,""OPERATION DATE"",?20,""OPERATIVE PROCEDURE(S)"""
^XMB(3.9,148,2,5753,0)="""RTN"",""SROALLP"",47,0)"
^XMB(3.9,148,2,5754,0)=" I '$G(SRMNA) W ?67,""ASSESSMENT STATUS"",?107,""EXCLUSION CRITERIA"""
^XMB(3.9,148,2,5755,0)="""RTN"",""SROALLP"",48,0)"
^XMB(3.9,148,2,5756,0)=" E  W ?67,""SURGEON"""
^XMB(3.9,148,2,5757,0)="""RTN"",""SROALLP"",49,0)"
^XMB(3.9,148,2,5758,0)=" W ! F LINE=1:1:132 W ""="""
^XMB(3.9,148,2,5759,0)="""RTN"",""SROALLP"",50,0)"
^XMB(3.9,148,2,5760,0)=" Q"
^XMB(3.9,148,2,5761,0)="""RTN"",""SROALLS"")"
^XMB(3.9,148,2,5762,0)="0^92^B19116558^B18743963"
^XMB(3.9,148,2,5763,0)="""RTN"",""SROALLS"",1,0)"
^XMB(3.9,148,2,5764,0)="SROALLS ;BIR/ADM - MAJOR CASES BY SPECIALTY ;04/03/06"
^XMB(3.9,148,2,5765,0)="""RTN"",""SROALLS"",2,0)"
^XMB(3.9,148,2,5766,0)=" ;;3.0; Surgery ;**32,38,47,55,50,88,142,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,5767,0)="""RTN"",""SROALLS"",3,0)"
^XMB(3.9,148,2,5768,0)=" I $E(IOST)=""P"" D ^SROALLSP Q"
^XMB(3.9,148,2,5769,0)="""RTN"",""SROALLS"",4,0)"
^XMB(3.9,148,2,5770,0)="START S SRSOUT=0 K ^TMP(""SRA"",$J)"
^XMB(3.9,148,2,5771,0)="""RTN"",""SROALLS"",5,0)"
^XMB(3.9,148,2,5772,0)=" F  S SRSD=$O(^SRF(""AC"",SRSD)) Q:'SRSD!(SRSD>SRED)!SRSOUT  S SRTN=0 F  S SRTN=$O(^SRF(""AC"",SRSD,SRTN)) Q:'SRTN!SRSOUT  I $D(^SRF(SRTN,0)),$$DIV^SROUTL0(SRTN) D UTL"
^XMB(3.9,148,2,5773,0)="""RTN"",""SROALLS"",6,0)"
^XMB(3.9,148,2,5774,0)=" D PRINT Q"
^XMB(3.9,148,2,5775,0)="""RTN"",""SROALLS"",7,0)"
^XMB(3.9,148,2,5776,0)="UTL ; write to ^TMP(""SRA,$J)"
^XMB(3.9,148,2,5777,0)="""RTN"",""SROALLS"",8,0)"
^XMB(3.9,148,2,5778,0)=" S SRA(0)=^SRF(SRTN,0) I $P(SRA(0),""^"",3)'=""J"" Q"
^XMB(3.9,148,2,5779,0)="""RTN"",""SROALLS"",9,0)"
^XMB(3.9,148,2,5780,0)=" I $G(SRMNA),($P($G(^SRF(SRTN,""RA"")),""^"",2))'="""" Q"
^XMB(3.9,148,2,5781,0)="""RTN"",""SROALLS"",10,0)"
^XMB(3.9,148,2,5782,0)=" S CAN=$P($G(^SRF(SRTN,30)),""^"") I CAN Q"
^XMB(3.9,148,2,5783,0)="""RTN"",""SROALLS"",11,0)"
^XMB(3.9,148,2,5784,0)=" S CAN=$P($G(^SRF(SRTN,31)),""^"",8) I CAN'="""" Q"
^XMB(3.9,148,2,5785,0)="""RTN"",""SROALLS"",12,0)"
^XMB(3.9,148,2,5786,0)=" I '$P($G(^SRF(SRTN,.2)),""^"",12) Q:'$G(SRMNA)  I '$P($G(^SRF(SRTN,.2)),""^"",3) Q"
^XMB(3.9,148,2,5787,0)="""RTN"",""SROALLS"",13,0)"
^XMB(3.9,148,2,5788,0)=" I SRFLG,$P(^SRF(SRTN,0),""^"",4)'=SRASP Q"
^XMB(3.9,148,2,5789,0)="""RTN"",""SROALLS"",14,0)"
^XMB(3.9,148,2,5790,0)=" S SRSS=$P(^SRF(SRTN,0),""^"",4),SRSS=$S(SRSS:$P(^SRO(137.45,SRSS,0),""^""),1:""SPECIALTY NOT ENTERED"")"
^XMB(3.9,148,2,5791,0)="""RTN"",""SROALLS"",15,0)"
^XMB(3.9,148,2,5792,0)=" S ^TMP(""SRA"",$J,SRSS,SRTN)="""""
^XMB(3.9,148,2,5793,0)="""RTN"",""SROALLS"",16,0)"
^XMB(3.9,148,2,5794,0)=" Q"
^XMB(3.9,148,2,5795,0)="""RTN"",""SROALLS"",17,0)"
^XMB(3.9,148,2,5796,0)="SET ; set variables"
^XMB(3.9,148,2,5797,0)="""RTN"",""SROALLS"",18,0)"
^XMB(3.9,148,2,5798,0)=" S SREXCL="""" I '$G(SRMNA) D"
^XMB(3.9,148,2,5799,0)="""RTN"",""SROALLS"",19,0)"
^XMB(3.9,148,2,5800,0)=" .S SRA(""RA"")=$G(^SRF(SRTN,""RA"")),X=$P(SRA(""RA""),""^""),STATUS=$S(X=""I"":""INCOMPLETE"",X=""C"":""COMPLETED"",X=""T"":""TRANSMITTED"",1:""NO ASSESSMENT"")"
^XMB(3.9,148,2,5801,0)="""RTN"",""SROALLS"",20,0)"
^XMB(3.9,148,2,5802,0)=" .S (SREXCL,Y)=$P(SRA(""RA""),""^"",7),C=$P(^DD(130,102,0),""^"",2) D Y^DIQ S SREXCL=Y"
^XMB(3.9,148,2,5803,0)="""RTN"",""SROALLS"",21,0)"
^XMB(3.9,148,2,5804,0)=" S SRA(0)=^SRF(SRTN,0),DFN=$P(SRA(0),""^"") N I D DEM^VADPT S SRANM=VADM(1),SRASSN=VA(""PID"") K VADM"
^XMB(3.9,148,2,5805,0)="""RTN"",""SROALLS"",22,0)"
^XMB(3.9,148,2,5806,0)=" I $L(SRANM)>19 S SRANM=$P(SRANM,"","")_"",""_$E($P(SRANM,"","",2))_""."""
^XMB(3.9,148,2,5807,0)="""RTN"",""SROALLS"",23,0)"
^XMB(3.9,148,2,5808,0)=" S SROPER=$P(^SRF(SRTN,""OP""),""^"") I $O(^SRF(SRTN,13,0)) S SROTHER=0 F I=0:0 S SROTHER=$O(^SRF(SRTN,13,SROTHER)) Q:'SROTHER  D OTHER"
^XMB(3.9,148,2,5809,0)="""RTN"",""SROALLS"",24,0)"
^XMB(3.9,148,2,5810,0)=" I '$G(SRMNA) S X=$P($G(^SRF(SRTN,""RA"")),""^"",2) I X=""C"" S SROPER=""* ""_SROPER"
^XMB(3.9,148,2,5811,0)="""RTN"",""SROALLS"",25,0)"
^XMB(3.9,148,2,5812,0)=" K SROPS,MM,MMM S:$L(SROPER)<34 SROPS(1)=SROPER I $L(SROPER)>33 S SROPER=SROPER_""  "" F M=1:1 D LOOP Q:MMM="""""
^XMB(3.9,148,2,5813,0)="""RTN"",""SROALLS"",26,0)"
^XMB(3.9,148,2,5814,0)=" S SRSS=$P(SRA(0),""^"",4),SRSS=$S(SRSS:$P(^SRO(137.45,SRSS,0),""^""),1:""SPECIALTY NOT ENTERED"")"
^XMB(3.9,148,2,5815,0)="""RTN"",""SROALLS"",27,0)"
^XMB(3.9,148,2,5816,0)=" D TECH^SROPRIN"
^XMB(3.9,148,2,5817,0)="""RTN"",""SROALLS"",28,0)"
^XMB(3.9,148,2,5818,0)=" S (SRDOC,Y)=$P($G(^SRF(SRTN,.1)),""^"",4),C=$P(^DD(130,.14,0),""^"",2) D:Y'="""" Y^DIQ I $L(Y)>18 S Z=$P(Y,"","")_"",""_$E($P(Y,"","",2))_""."",Y=Z"
^XMB(3.9,148,2,5819,0)="""RTN"",""SROALLS"",29,0)"
^XMB(3.9,148,2,5820,0)=" S SRDOC=Y"
^XMB(3.9,148,2,5821,0)="""RTN"",""SROALLS"",30,0)"
^XMB(3.9,148,2,5822,0)=" S Y=$P(SRA(0),""^"",9) D D^DIQ S SRDT=$P(Y,""@"")"
^XMB(3.9,148,2,5823,0)="""RTN"",""SROALLS"",31,0)"
^XMB(3.9,148,2,5824,0)=" Q"
^XMB(3.9,148,2,5825,0)="""RTN"",""SROALLS"",32,0)"
^XMB(3.9,148,2,5826,0)="PRINT ;"
^XMB(3.9,148,2,5827,0)="""RTN"",""SROALLS"",33,0)"
^XMB(3.9,148,2,5828,0)=" U IO S SRSS="""",SRTC=0 D HDR"
^XMB(3.9,148,2,5829,0)="""RTN"",""SROALLS"",34,0)"
^XMB(3.9,148,2,5830,0)=" F  S SRSS=$O(^TMP(""SRA"",$J,SRSS)) Q:SRSS=""""!SRSOUT  S SRC=0 D SS S SRTN=0 F  S SRTN=$O(^TMP(""SRA"",$J,SRSS,SRTN)) D:'SRTN SSCT Q:'SRTN!SRSOUT  D SET,CASE Q:SRSOUT"
^XMB(3.9,148,2,5831,0)="""RTN"",""SROALLS"",35,0)"
^XMB(3.9,148,2,5832,0)=" Q:SRSOUT!SRFLG  I $Y+5>IOSL D PAGE Q:SRSOUT"
^XMB(3.9,148,2,5833,0)="""RTN"",""SROALLS"",36,0)"
^XMB(3.9,148,2,5834,0)=" W !!,""TOTAL MAJOR CASES FOR ALL SPECIALTIES: "",SRTC"
^XMB(3.9,148,2,5835,0)="""RTN"",""SROALLS"",37,0)"
^XMB(3.9,148,2,5836,0)=" Q"
^XMB(3.9,148,2,5837,0)="""RTN"",""SROALLS"",38,0)"
^XMB(3.9,148,2,5838,0)="CASE ; print a case"
^XMB(3.9,148,2,5839,0)="""RTN"",""SROALLS"",39,0)"
^XMB(3.9,148,2,5840,0)=" S SRC=SRC+1,SRTC=SRTC+1"
^XMB(3.9,148,2,5841,0)="""RTN"",""SROALLS"",40,0)"
^XMB(3.9,148,2,5842,0)=" I $Y+5>IOSL D PAGE Q:SRSOUT"
^XMB(3.9,148,2,5843,0)="""RTN"",""SROALLS"",41,0)"
^XMB(3.9,148,2,5844,0)=" W !,SRTN,?20,SRANM_""  ""_VA(""PID""),?55,SRTECH"
^XMB(3.9,148,2,5845,0)="""RTN"",""SROALLS"",42,0)"
^XMB(3.9,148,2,5846,0)=" W !,SRDT,?20,SROPS(1) I $G(SRMNA) W ?55,SRDOC"
^XMB(3.9,148,2,5847,0)="""RTN"",""SROALLS"",43,0)"
^XMB(3.9,148,2,5848,0)=" I '$G(SRMNA) W ?55,STATUS"
^XMB(3.9,148,2,5849,0)="""RTN"",""SROALLS"",44,0)"
^XMB(3.9,148,2,5850,0)=" I '$G(SRMNA),(SREXCL'="""") W ! W:$D(SROPS(2)) ?20,SROPS(2) W ?55,SREXCL I $D(SROPS(3)) W !,?20,SROPS(3) I $D(SROPS(4)) W !,?20,SROPS(4)"
^XMB(3.9,148,2,5851,0)="""RTN"",""SROALLS"",45,0)"
^XMB(3.9,148,2,5852,0)=" I SREXCL="""",$D(SROPS(2)) W !,?20,SROPS(2) I $D(SROPS(3)) W !,?20,SROPS(3) I $D(SROPS(4)) W !,?20,SROPS(4)"
^XMB(3.9,148,2,5853,0)="""RTN"",""SROALLS"",46,0)"
^XMB(3.9,148,2,5854,0)=" N I,SRPROC,SRL S SRL=48 D CPTS^SROAUTL0 W !,?20,""CPT Codes: """
^XMB(3.9,148,2,5855,0)="""RTN"",""SROALLS"",47,0)"
^XMB(3.9,148,2,5856,0)=" F I=1:1 Q:'$D(SRPROC(I))  W:I=1 ?31,SRPROC(I) W:I'=1 !,?31,SRPROC(I)"
^XMB(3.9,148,2,5857,0)="""RTN"",""SROALLS"",48,0)"
^XMB(3.9,148,2,5858,0)=" W ! F LINE=1:1:80 W ""-"""
^XMB(3.9,148,2,5859,0)="""RTN"",""SROALLS"",49,0)"
^XMB(3.9,148,2,5860,0)=" Q"
^XMB(3.9,148,2,5861,0)="""RTN"",""SROALLS"",50,0)"
^XMB(3.9,148,2,5862,0)="SS ; print surgical specialty"
^XMB(3.9,148,2,5863,0)="""RTN"",""SROALLS"",51,0)"
^XMB(3.9,148,2,5864,0)=" I $Y+5>IOSL D PAGE Q:SRSOUT"
^XMB(3.9,148,2,5865,0)="""RTN"",""SROALLS"",52,0)"
^XMB(3.9,148,2,5866,0)=" W !,""** SURGICAL SPECIALTY: "",SRSS,"" **"",! Q"
^XMB(3.9,148,2,5867,0)="""RTN"",""SROALLS"",53,0)"
^XMB(3.9,148,2,5868,0)="PAGE W !!,""Press <RET> to continue, or '^' to quit  "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1 Q"
^XMB(3.9,148,2,5869,0)="""RTN"",""SROALLS"",54,0)"
^XMB(3.9,148,2,5870,0)=" I X[""?"" W !!,""If you want to continue listing assessments, enter <RET>.  Enter '^' to"",!,""return to the menu."" G PAGE"
^XMB(3.9,148,2,5871,0)="""RTN"",""SROALLS"",55,0)"
^XMB(3.9,148,2,5872,0)="HDR ; print heading"
^XMB(3.9,148,2,5873,0)="""RTN"",""SROALLS"",56,0)"
^XMB(3.9,148,2,5874,0)=" S SRHD=$S($G(SRMNA):""NON-ASSESSED MAJOR SURGICAL CASES BY SURGICAL SPECIALTY"",1:""ALL MAJOR SURGICAL CASES BY SURGICAL SPECIALTY"")"
^XMB(3.9,148,2,5875,0)="""RTN"",""SROALLS"",57,0)"
^XMB(3.9,148,2,5876,0)=" W @IOF,!,?(80-$L(SRHD)\2),SRHD,!,?(80-$L(SRFRTO)\2),SRFRTO"
^XMB(3.9,148,2,5877,0)="""RTN"",""SROALLS"",58,0)"
^XMB(3.9,148,2,5878,0)=" W !!,""CASE #"",?20,""PATIENT"",?55,""ANESTHESIA TECHNIQUE"""
^XMB(3.9,148,2,5879,0)="""RTN"",""SROALLS"",59,0)"
^XMB(3.9,148,2,5880,0)=" W !,""OPERATION DATE"",?20,""OPERATIVE PROCEDURE(S)"""
^XMB(3.9,148,2,5881,0)="""RTN"",""SROALLS"",60,0)"
^XMB(3.9,148,2,5882,0)=" I '$G(SRMNA) W ?55,""ASSESSMENT STATUS"""
^XMB(3.9,148,2,5883,0)="""RTN"",""SROALLS"",61,0)"
^XMB(3.9,148,2,5884,0)=" E  W ?55,""SURGEON"""
^XMB(3.9,148,2,5885,0)="""RTN"",""SROALLS"",62,0)"
^XMB(3.9,148,2,5886,0)=" I '$G(SRMNA) W !,?55,""EXCLUSION CRITERIA"""
^XMB(3.9,148,2,5887,0)="""RTN"",""SROALLS"",63,0)"
^XMB(3.9,148,2,5888,0)=" W ! F L=1:1:80 W ""="""
^XMB(3.9,148,2,5889,0)="""RTN"",""SROALLS"",64,0)"
^XMB(3.9,148,2,5890,0)=" W ! Q"
^XMB(3.9,148,2,5891,0)="""RTN"",""SROALLS"",65,0)"
^XMB(3.9,148,2,5892,0)="OTHER ; other operations"
^XMB(3.9,148,2,5893,0)="""RTN"",""SROALLS"",66,0)"
^XMB(3.9,148,2,5894,0)=" S SRLONG=1 I $L(SROPER)+$L($P(^SRF(SRTN,13,SROTHER,0),""^""))>125 S SRLONG=0,OPER=999,SROPERS="" ..."""
^XMB(3.9,148,2,5895,0)="""RTN"",""SROALLS"",67,0)"
^XMB(3.9,148,2,5896,0)=" I SRLONG S SROPERS=$P(^SRF(SRTN,13,SROTHER,0),""^"")"
^XMB(3.9,148,2,5897,0)="""RTN"",""SROALLS"",68,0)"
^XMB(3.9,148,2,5898,0)=" S SROPER=SROPER_$S(SROPERS'="" ..."":"", ""_SROPERS,1:SROPERS)"
^XMB(3.9,148,2,5899,0)="""RTN"",""SROALLS"",69,0)"
^XMB(3.9,148,2,5900,0)=" Q"
^XMB(3.9,148,2,5901,0)="""RTN"",""SROALLS"",70,0)"
^XMB(3.9,148,2,5902,0)="LOOP ; break procedures"
^XMB(3.9,148,2,5903,0)="""RTN"",""SROALLS"",71,0)"
^XMB(3.9,148,2,5904,0)=" S SROPS(M)="""" F LOOP=1:1 S MM=$P(SROPER,"" ""),MMM=$P(SROPER,"" "",2,200) Q:MMM=""""  Q:$L(SROPS(M))+$L(MM)'<34  S SROPS(M)=SROPS(M)_MM_"" "",SROPER=MMM"
^XMB(3.9,148,2,5905,0)="""RTN"",""SROALLS"",72,0)"
^XMB(3.9,148,2,5906,0)=" Q"
^XMB(3.9,148,2,5907,0)="""RTN"",""SROALLS"",73,0)"
^XMB(3.9,148,2,5908,0)="SSCT ; write specialty count"
^XMB(3.9,148,2,5909,0)="""RTN"",""SROALLS"",74,0)"
^XMB(3.9,148,2,5910,0)=" I $Y+5>IOSL D PAGE Q:SRSOUT"
^XMB(3.9,148,2,5911,0)="""RTN"",""SROALLS"",75,0)"
^XMB(3.9,148,2,5912,0)=" W !,""TOTAL "",SRSS,"": "",SRC,! F L=1:1:80 W ""-"""
^XMB(3.9,148,2,5913,0)="""RTN"",""SROALLS"",76,0)"
^XMB(3.9,148,2,5914,0)=" Q"
^XMB(3.9,148,2,5915,0)="""RTN"",""SROALLSP"")"
^XMB(3.9,148,2,5916,0)="0^93^B20130210^B18389897"
^XMB(3.9,148,2,5917,0)="""RTN"",""SROALLSP"",1,0)"
^XMB(3.9,148,2,5918,0)="SROALLSP ;BIR/ADM - ASSESSMENTS BY SPECIALTY (PRINTER) ;04/03/06"
^XMB(3.9,148,2,5919,0)="""RTN"",""SROALLSP"",2,0)"
^XMB(3.9,148,2,5920,0)=" ;;3.0; Surgery ;**32,47,55,50,88,142,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,5921,0)="""RTN"",""SROALLSP"",3,0)"
^XMB(3.9,148,2,5922,0)="START S SRSOUT=0 K ^TMP(""SRA"",$J)"
^XMB(3.9,148,2,5923,0)="""RTN"",""SROALLSP"",4,0)"
^XMB(3.9,148,2,5924,0)=" F  S SRSD=$O(^SRF(""AC"",SRSD)) Q:'SRSD!(SRSD>SRED)  S SRTN=0 F  S SRTN=$O(^SRF(""AC"",SRSD,SRTN)) Q:'SRTN  I $D(^SRF(SRTN,0)),$$DIV^SROUTL0(SRTN) D UTL"
^XMB(3.9,148,2,5925,0)="""RTN"",""SROALLSP"",5,0)"
^XMB(3.9,148,2,5926,0)=" D PRINT Q"
^XMB(3.9,148,2,5927,0)="""RTN"",""SROALLSP"",6,0)"
^XMB(3.9,148,2,5928,0)="UTL ; write to ^TMP(""SRA,$J)"
^XMB(3.9,148,2,5929,0)="""RTN"",""SROALLSP"",7,0)"
^XMB(3.9,148,2,5930,0)=" S SRA(0)=^SRF(SRTN,0) I $P(SRA(0),""^"",3)'=""J"" Q"
^XMB(3.9,148,2,5931,0)="""RTN"",""SROALLSP"",8,0)"
^XMB(3.9,148,2,5932,0)=" I $G(SRMNA),($P($G(^SRF(SRTN,""RA"")),""^"",2))'="""" Q"
^XMB(3.9,148,2,5933,0)="""RTN"",""SROALLSP"",9,0)"
^XMB(3.9,148,2,5934,0)=" S CAN=$P($G(^SRF(SRTN,30)),""^"") I CAN Q"
^XMB(3.9,148,2,5935,0)="""RTN"",""SROALLSP"",10,0)"
^XMB(3.9,148,2,5936,0)=" S CAN=$P($G(^SRF(SRTN,31)),""^"",8) I CAN'="""" Q"
^XMB(3.9,148,2,5937,0)="""RTN"",""SROALLSP"",11,0)"
^XMB(3.9,148,2,5938,0)=" I '$P($G(^SRF(SRTN,.2)),""^"",12) Q:'$G(SRMNA)  I '$P($G(^SRF(SRTN,.2)),""^"",3) Q"
^XMB(3.9,148,2,5939,0)="""RTN"",""SROALLSP"",12,0)"
^XMB(3.9,148,2,5940,0)=" I SRFLG,$P(^SRF(SRTN,0),""^"",4)'=SRASP Q"
^XMB(3.9,148,2,5941,0)="""RTN"",""SROALLSP"",13,0)"
^XMB(3.9,148,2,5942,0)=" S SRSS=$P(^SRF(SRTN,0),""^"",4),SRSS=$S(SRSS:$P(^SRO(137.45,SRSS,0),""^""),1:""SPECIALTY NOT ENTERED"")"
^XMB(3.9,148,2,5943,0)="""RTN"",""SROALLSP"",14,0)"
^XMB(3.9,148,2,5944,0)=" S TYPE=$P($G(^SRF(SRTN,""RA"")),""^"",2) I SRSS=""SPECIALTY NOT ENTERED"",TYPE=""C"" S SRSS=""N/A"""
^XMB(3.9,148,2,5945,0)="""RTN"",""SROALLSP"",15,0)"
^XMB(3.9,148,2,5946,0)=" S ^TMP(""SRA"",$J,SRSS,SRTN)="""""
^XMB(3.9,148,2,5947,0)="""RTN"",""SROALLSP"",16,0)"
^XMB(3.9,148,2,5948,0)=" Q"
^XMB(3.9,148,2,5949,0)="""RTN"",""SROALLSP"",17,0)"
^XMB(3.9,148,2,5950,0)="SET ; set variables"
^XMB(3.9,148,2,5951,0)="""RTN"",""SROALLSP"",18,0)"
^XMB(3.9,148,2,5952,0)=" S SREXCL="""" I '$G(SRMNA) D"
^XMB(3.9,148,2,5953,0)="""RTN"",""SROALLSP"",19,0)"
^XMB(3.9,148,2,5954,0)=" .S SRA(""RA"")=$G(^SRF(SRTN,""RA"")),X=$P(SRA(""RA""),""^""),STATUS=$S(X=""I"":""INCOMPLETE"",X=""C"":""COMPLETED"",X=""T"":""TRANSMITTED"",1:""NO ASSESSMENT"")"
^XMB(3.9,148,2,5955,0)="""RTN"",""SROALLSP"",20,0)"
^XMB(3.9,148,2,5956,0)=" .S (SREXCL,Y)=$P(SRA(""RA""),""^"",7),C=$P(^DD(130,102,0),""^"",2) D Y^DIQ S SREXCL=Y"
^XMB(3.9,148,2,5957,0)="""RTN"",""SROALLSP"",21,0)"
^XMB(3.9,148,2,5958,0)=" S SRA(0)=^SRF(SRTN,0),DFN=$P(SRA(0),""^"") N I D DEM^VADPT S SRANM=VADM(1),SRASSN=VA(""PID"") K VADM"
^XMB(3.9,148,2,5959,0)="""RTN"",""SROALLSP"",22,0)"
^XMB(3.9,148,2,5960,0)=" S SROPER=$P(^SRF(SRTN,""OP""),""^"") I $O(^SRF(SRTN,13,0)) S SROTHER=0 F I=0:0 S SROTHER=$O(^SRF(SRTN,13,SROTHER)) Q:'SROTHER  D OTHER"
^XMB(3.9,148,2,5961,0)="""RTN"",""SROALLSP"",23,0)"
^XMB(3.9,148,2,5962,0)=" I '$G(SRMNA) S X=$P($G(^SRF(SRTN,""RA"")),""^"",2) I X=""C"" S SROPER=""* ""_SROPER"
^XMB(3.9,148,2,5963,0)="""RTN"",""SROALLSP"",24,0)"
^XMB(3.9,148,2,5964,0)=" K SROPS,MM,MMM"
^XMB(3.9,148,2,5965,0)="""RTN"",""SROALLSP"",25,0)"
^XMB(3.9,148,2,5966,0)=" I $G(SRMNA) S:$L(SROPER)<85 SROPS(1)=SROPER I $L(SROPER)>84 S SROPER=SROPER_""  "" F M=1:1 D LOOP Q:MMM="""""
^XMB(3.9,148,2,5967,0)="""RTN"",""SROALLSP"",26,0)"
^XMB(3.9,148,2,5968,0)=" I '$G(SRMNA) S:$L(SROPER)<44 SROPS(1)=SROPER I $L(SROPER)>43 S SROPER=SROPER_""  "" F M=1:1 D LOOP Q:MMM="""""
^XMB(3.9,148,2,5969,0)="""RTN"",""SROALLSP"",27,0)"
^XMB(3.9,148,2,5970,0)=" S SRSS=$P(SRA(0),""^"",4),SRSS=$S(SRSS:$P(^SRO(137.45,SRSS,0),""^""),1:""SPECIALTY NOT ENTERED"")"
^XMB(3.9,148,2,5971,0)="""RTN"",""SROALLSP"",28,0)"
^XMB(3.9,148,2,5972,0)=" D TECH^SROPRIN"
^XMB(3.9,148,2,5973,0)="""RTN"",""SROALLSP"",29,0)"
^XMB(3.9,148,2,5974,0)=" S (SRDOC,Y)=$P($G(^SRF(SRTN,.1)),""^"",4),C=$P(^DD(130,.14,0),""^"",2) D:Y'="""" Y^DIQ I $L(Y)>24 S Z=$P(Y,"","")_"",""_$E($P(Y,"","",2))_""."",Y=Z"
^XMB(3.9,148,2,5975,0)="""RTN"",""SROALLSP"",30,0)"
^XMB(3.9,148,2,5976,0)=" S SRDOC=Y"
^XMB(3.9,148,2,5977,0)="""RTN"",""SROALLSP"",31,0)"
^XMB(3.9,148,2,5978,0)=" S Y=$P(SRA(0),""^"",9) D D^DIQ S SRDT=$P(Y,""@"")"
^XMB(3.9,148,2,5979,0)="""RTN"",""SROALLSP"",32,0)"
^XMB(3.9,148,2,5980,0)=" Q"
^XMB(3.9,148,2,5981,0)="""RTN"",""SROALLSP"",33,0)"
^XMB(3.9,148,2,5982,0)="PRINT ;"
^XMB(3.9,148,2,5983,0)="""RTN"",""SROALLSP"",34,0)"
^XMB(3.9,148,2,5984,0)=" U IO S SRSS="""",(SRTC,SRPAGE)=0 D HDR Q:SRSOUT"
^XMB(3.9,148,2,5985,0)="""RTN"",""SROALLSP"",35,0)"
^XMB(3.9,148,2,5986,0)=" F  S SRSS=$O(^TMP(""SRA"",$J,SRSS)) Q:SRSS=""""!SRSOUT  S SRC=0 D SS S SRTN=0 F  S SRTN=$O(^TMP(""SRA"",$J,SRSS,SRTN)) D:'SRTN SSCT Q:'SRTN!SRSOUT  D SET,CASE"
^XMB(3.9,148,2,5987,0)="""RTN"",""SROALLSP"",36,0)"
^XMB(3.9,148,2,5988,0)=" Q:SRFLG  I $Y+5>IOSL D HDR Q:SRSOUT"
^XMB(3.9,148,2,5989,0)="""RTN"",""SROALLSP"",37,0)"
^XMB(3.9,148,2,5990,0)=" W !!,""TOTAL CASES FOR ALL SPECIALTIES: "",SRTC"
^XMB(3.9,148,2,5991,0)="""RTN"",""SROALLSP"",38,0)"
^XMB(3.9,148,2,5992,0)=" Q"
^XMB(3.9,148,2,5993,0)="""RTN"",""SROALLSP"",39,0)"
^XMB(3.9,148,2,5994,0)="CASE ; print a case"
^XMB(3.9,148,2,5995,0)="""RTN"",""SROALLSP"",40,0)"
^XMB(3.9,148,2,5996,0)=" S SRC=SRC+1,SRTC=SRTC+1"
^XMB(3.9,148,2,5997,0)="""RTN"",""SROALLSP"",41,0)"
^XMB(3.9,148,2,5998,0)=" I $Y+5>IOSL D HDR Q:SRSOUT  W !,""** SURGICAL SPECIALTY: "",SRSS,"" **"",!"
^XMB(3.9,148,2,5999,0)="""RTN"",""SROALLSP"",42,0)"
^XMB(3.9,148,2,6000,0)=" W !,SRTN,?20,SRANM_""  ""_VA(""PID"") I '$G(SRMNA) W ?67,STATUS"
^XMB(3.9,148,2,6001,0)="""RTN"",""SROALLSP"",43,0)"
^XMB(3.9,148,2,6002,0)=" W ?107,SRTECH,!,SRDT,?20,SROPS(1) I '$G(SRMNA),(SREXCL'="""") W ?67,SREXCL"
^XMB(3.9,148,2,6003,0)="""RTN"",""SROALLSP"",44,0)"
^XMB(3.9,148,2,6004,0)=" W ?107,SRDOC"
^XMB(3.9,148,2,6005,0)="""RTN"",""SROALLSP"",45,0)"
^XMB(3.9,148,2,6006,0)=" I $D(SROPS(2)) W !,?20,SROPS(2) I $D(SROPS(3)) W !,?20,SROPS(3) I $D(SROPS(4)) W !,?20,SROPS(4)"
^XMB(3.9,148,2,6007,0)="""RTN"",""SROALLSP"",46,0)"
^XMB(3.9,148,2,6008,0)=" N I,SRPROC,SRL S SRL=100 D CPTS^SROAUTL0 W !,?20,""CPT Codes: """
^XMB(3.9,148,2,6009,0)="""RTN"",""SROALLSP"",47,0)"
^XMB(3.9,148,2,6010,0)=" F I=1:1 Q:'$D(SRPROC(I))  W:I=1 ?31,SRPROC(I) W:I'=1 !,?31,SRPROC(I)"
^XMB(3.9,148,2,6011,0)="""RTN"",""SROALLSP"",48,0)"
^XMB(3.9,148,2,6012,0)=" W ! F LINE=1:1:132 W ""-"""
^XMB(3.9,148,2,6013,0)="""RTN"",""SROALLSP"",49,0)"
^XMB(3.9,148,2,6014,0)=" Q"
^XMB(3.9,148,2,6015,0)="""RTN"",""SROALLSP"",50,0)"
^XMB(3.9,148,2,6016,0)="SS ; print surgical specialty"
^XMB(3.9,148,2,6017,0)="""RTN"",""SROALLSP"",51,0)"
^XMB(3.9,148,2,6018,0)=" I $Y+5>IOSL D HDR Q:SRSOUT"
^XMB(3.9,148,2,6019,0)="""RTN"",""SROALLSP"",52,0)"
^XMB(3.9,148,2,6020,0)=" W !,""** SURGICAL SPECIALTY: "",SRSS,"" **"",!"
^XMB(3.9,148,2,6021,0)="""RTN"",""SROALLSP"",53,0)"
^XMB(3.9,148,2,6022,0)=" Q"
^XMB(3.9,148,2,6023,0)="""RTN"",""SROALLSP"",54,0)"
^XMB(3.9,148,2,6024,0)="HDR ; print heading"
^XMB(3.9,148,2,6025,0)="""RTN"",""SROALLSP"",55,0)"
^XMB(3.9,148,2,6026,0)=" I $D(ZTQUEUED) D ^SROSTOP I SRHALT S SRSOUT=1 Q"
^XMB(3.9,148,2,6027,0)="""RTN"",""SROALLSP"",56,0)"
^XMB(3.9,148,2,6028,0)=" S SRHD=$S($G(SRMNA):""NON-ASSESSED MAJOR SURGICAL CASES BY SURGICAL SPECIALTY"",1:""ALL MAJOR SURGICAL CASES BY SURGICAL SPECIALTY""),SRPAGE=SRPAGE+1"
^XMB(3.9,148,2,6029,0)="""RTN"",""SROALLSP"",57,0)"
^XMB(3.9,148,2,6030,0)=" W:$Y @IOF W !,?(132-$L(SRHD)\2),SRHD,?120,""PAGE ""_SRPAGE,!,?(132-$L(SRINST)\2),SRINST,!,?58,""SURGERY SERVICE"",?100,""DATE REVIEWED:"""
^XMB(3.9,148,2,6031,0)="""RTN"",""SROALLSP"",58,0)"
^XMB(3.9,148,2,6032,0)=" W !,?(132-$L(SRFRTO)\2),SRFRTO,?100,""REVIEWED BY:"""
^XMB(3.9,148,2,6033,0)="""RTN"",""SROALLSP"",59,0)"
^XMB(3.9,148,2,6034,0)=" W !!,""CASE #"",?20,""PATIENT"" I '$G(SRMNA) W ?67,""ASSESSMENT STATUS"""
^XMB(3.9,148,2,6035,0)="""RTN"",""SROALLSP"",60,0)"
^XMB(3.9,148,2,6036,0)=" W ?107,""ANESTHESIA TECHNIQUE"",!,""OPERATION DATE"",?20,""OPERATIVE PROCEDURE(S)"""
^XMB(3.9,148,2,6037,0)="""RTN"",""SROALLSP"",61,0)"
^XMB(3.9,148,2,6038,0)=" W:'$G(SRMNA) ?67,""EXCLUSION CRITERIA"" W ?107,""SURGEON"""
^XMB(3.9,148,2,6039,0)="""RTN"",""SROALLSP"",62,0)"
^XMB(3.9,148,2,6040,0)=" W ! F L=1:1:132 W ""="""
^XMB(3.9,148,2,6041,0)="""RTN"",""SROALLSP"",63,0)"
^XMB(3.9,148,2,6042,0)=" Q"
^XMB(3.9,148,2,6043,0)="""RTN"",""SROALLSP"",64,0)"
^XMB(3.9,148,2,6044,0)="OTHER ; other operations"
^XMB(3.9,148,2,6045,0)="""RTN"",""SROALLSP"",65,0)"
^XMB(3.9,148,2,6046,0)=" S SRLONG=1 I $L(SROPER)+$L($P(^SRF(SRTN,13,SROTHER,0),""^""))>165 S SRLONG=0,OPER=999,SROPERS="" ..."""
^XMB(3.9,148,2,6047,0)="""RTN"",""SROALLSP"",66,0)"
^XMB(3.9,148,2,6048,0)=" I SRLONG S SROPERS=$P(^SRF(SRTN,13,SROTHER,0),""^"")"
^XMB(3.9,148,2,6049,0)="""RTN"",""SROALLSP"",67,0)"
^XMB(3.9,148,2,6050,0)=" S SROPER=SROPER_$S(SROPERS'="" ..."":"", ""_SROPERS,1:SROPERS)"
^XMB(3.9,148,2,6051,0)="""RTN"",""SROALLSP"",68,0)"
^XMB(3.9,148,2,6052,0)=" Q"
^XMB(3.9,148,2,6053,0)="""RTN"",""SROALLSP"",69,0)"
^XMB(3.9,148,2,6054,0)="LOOP ; break procedures"
^XMB(3.9,148,2,6055,0)="""RTN"",""SROALLSP"",70,0)"
^XMB(3.9,148,2,6056,0)=" S SROPS(M)="""""
^XMB(3.9,148,2,6057,0)="""RTN"",""SROALLSP"",71,0)"
^XMB(3.9,148,2,6058,0)=" I $G(SRMNA) F LOOP=1:1 S MM=$P(SROPER,"" ""),MMM=$P(SROPER,"" "",2,200) Q:MMM=""""  Q:$L(SROPS(M))+$L(MM)'<85  S SROPS(M)=SROPS(M)_MM_"" "",SROPER=MMM"
^XMB(3.9,148,2,6059,0)="""RTN"",""SROALLSP"",72,0)"
^XMB(3.9,148,2,6060,0)=" I '$G(SRMNA) F LOOP=1:1 S MM=$P(SROPER,"" ""),MMM=$P(SROPER,"" "",2,200) Q:MMM=""""  Q:$L(SROPS(M))+$L(MM)'<44  S SROPS(M)=SROPS(M)_MM_"" "",SROPER=MMM"
^XMB(3.9,148,2,6061,0)="""RTN"",""SROALLSP"",73,0)"
^XMB(3.9,148,2,6062,0)=" Q"
^XMB(3.9,148,2,6063,0)="""RTN"",""SROALLSP"",74,0)"
^XMB(3.9,148,2,6064,0)="SSCT ; write specialty count"
^XMB(3.9,148,2,6065,0)="""RTN"",""SROALLSP"",75,0)"
^XMB(3.9,148,2,6066,0)=" I $Y+5>IOSL D HDR Q:SRSOUT"
^XMB(3.9,148,2,6067,0)="""RTN"",""SROALLSP"",76,0)"
^XMB(3.9,148,2,6068,0)=" W !,"" >>> TOTAL "",SRSS,"": "",SRC,! F L=1:1:132 W ""-"""
^XMB(3.9,148,2,6069,0)="""RTN"",""SROALLSP"",77,0)"
^XMB(3.9,148,2,6070,0)=" Q"
^XMB(3.9,148,2,6071,0)="""RTN"",""SROALM"")"
^XMB(3.9,148,2,6072,0)="0^95^B21272239^B21479758"
^XMB(3.9,148,2,6073,0)="""RTN"",""SROALM"",1,0)"
^XMB(3.9,148,2,6074,0)="SROALM ;BIR/ADM - LIST OF ASSESSMENTS MISSING INFORMATION ;03/24/06"
^XMB(3.9,148,2,6075,0)="""RTN"",""SROALM"",2,0)"
^XMB(3.9,148,2,6076,0)=" ;;3.0; Surgery ;**38,50,88,142,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,6077,0)="""RTN"",""SROALM"",3,0)"
^XMB(3.9,148,2,6078,0)=" S (GRAND,SRNEW,SRSOUT,TOT)=0,(SRHDR,SRPAGE)=1,SRTITLE=""COMPLETED/TRANSMITTED ASSESSMENTS MISSING INFORMATION"" K ^TMP(""SRA"",$J)"
^XMB(3.9,148,2,6079,0)="""RTN"",""SROALM"",4,0)"
^XMB(3.9,148,2,6080,0)=" I SRFLG,SRASP S SRSPEC=$P(^SRO(137.45,SRASP,0),""^"")"
^XMB(3.9,148,2,6081,0)="""RTN"",""SROALM"",5,0)"
^XMB(3.9,148,2,6082,0)=" F  S SRSD=$O(^SRF(""AC"",SRSD)) Q:'SRSD!(SRSD>SRED)!SRSOUT  S SRTN=0 F  S SRTN=$O(^SRF(""AC"",SRSD,SRTN)) Q:'SRTN!SRSOUT  D"
^XMB(3.9,148,2,6083,0)="""RTN"",""SROALM"",6,0)"
^XMB(3.9,148,2,6084,0)=" .S SR(""RA"")=$G(^SRF(SRTN,""RA"")) I $P(SR(""RA""),""^"")=""C""!($P(SR(""RA""),""^"")=""T""),$D(^SRF(SRTN,0)),$$DIV^SROUTL0(SRTN) D UTL"
^XMB(3.9,148,2,6085,0)="""RTN"",""SROALM"",7,0)"
^XMB(3.9,148,2,6086,0)=" I SRSP S SRSS="""" F  S SRSS=$O(^TMP(""SRA"",$J,SRSS)) Q:SRSS=""""  D SRSD Q:SRSOUT  D:TOT TOT"
^XMB(3.9,148,2,6087,0)="""RTN"",""SROALM"",8,0)"
^XMB(3.9,148,2,6088,0)=" I 'SRSP S SRNEW=1,(SRSD,TOT)=0 F  S SRSD=$O(^TMP(""SRA"",$J,SRSD)) Q:'SRSD!SRSOUT  S SRTN=0 F  S SRTN=$O(^TMP(""SRA"",$J,SRSD,SRTN)) Q:'SRTN  S SRA=^(SRTN) D CASE Q:SRSOUT"
^XMB(3.9,148,2,6089,0)="""RTN"",""SROALM"",9,0)"
^XMB(3.9,148,2,6090,0)=" Q:SRSOUT  I SRSP,'SRFLG,GRAND D GRAND"
^XMB(3.9,148,2,6091,0)="""RTN"",""SROALM"",10,0)"
^XMB(3.9,148,2,6092,0)=" I SRFLG,'GRAND S SRSS=SRSPEC D HDR,GRAND"
^XMB(3.9,148,2,6093,0)="""RTN"",""SROALM"",11,0)"
^XMB(3.9,148,2,6094,0)=" I SRSP,'SRFLG,'GRAND S SRSS="""" D HDR,GRAND"
^XMB(3.9,148,2,6095,0)="""RTN"",""SROALM"",12,0)"
^XMB(3.9,148,2,6096,0)=" I 'SRSP,'GRAND S SRSS="""" D HDR,GRAND"
^XMB(3.9,148,2,6097,0)="""RTN"",""SROALM"",13,0)"
^XMB(3.9,148,2,6098,0)=" I 'SRSP,GRAND S SRSS="""" D GRAND"
^XMB(3.9,148,2,6099,0)="""RTN"",""SROALM"",14,0)"
^XMB(3.9,148,2,6100,0)=" Q"
^XMB(3.9,148,2,6101,0)="""RTN"",""SROALM"",15,0)"
^XMB(3.9,148,2,6102,0)="UTL ; set up TMP global"
^XMB(3.9,148,2,6103,0)="""RTN"",""SROALM"",16,0)"
^XMB(3.9,148,2,6104,0)=" I SRFLG,$P(^SRF(SRTN,0),""^"",4)'=SRASP Q"
^XMB(3.9,148,2,6105,0)="""RTN"",""SROALM"",17,0)"
^XMB(3.9,148,2,6106,0)=" I SRSP S SRSS=$P(^SRF(SRTN,0),""^"",4),SRSS=$S(SRSS:$P(^SRO(137.45,SRSS,0),""^""),1:""SPECIALTY NOT ENTERED""),^TMP(""SRA"",$J,SRSS,SRSD,SRTN)=SR(""RA"") Q"
^XMB(3.9,148,2,6107,0)="""RTN"",""SROALM"",18,0)"
^XMB(3.9,148,2,6108,0)=" S ^TMP(""SRA"",$J,SRSD,SRTN)=SR(""RA"")"
^XMB(3.9,148,2,6109,0)="""RTN"",""SROALM"",19,0)"
^XMB(3.9,148,2,6110,0)=" Q"
^XMB(3.9,148,2,6111,0)="""RTN"",""SROALM"",20,0)"
^XMB(3.9,148,2,6112,0)="SRSD S SRNEW=1,(SRSD,TOT)=0 F  S SRSD=$O(^TMP(""SRA"",$J,SRSS,SRSD)) Q:'SRSD!SRSOUT  S SRTN=0 F  S SRTN=$O(^TMP(""SRA"",$J,SRSS,SRSD,SRTN)) Q:'SRTN  S SRA=^(SRTN) D CASE Q:SRSOUT"
^XMB(3.9,148,2,6113,0)="""RTN"",""SROALM"",21,0)"
^XMB(3.9,148,2,6114,0)=" Q"
^XMB(3.9,148,2,6115,0)="""RTN"",""SROALM"",22,0)"
^XMB(3.9,148,2,6116,0)="CASE I $P(SRA,""^"",2)=""N"",$P(SRA,""^"",6)=""Y"" S SRATYPE=""NON-CARDIAC"" D CHK^SROAUTL"
^XMB(3.9,148,2,6117,0)="""RTN"",""SROALM"",23,0)"
^XMB(3.9,148,2,6118,0)=" I $P(SRA,""^"",2)=""N"",$P(SRA,""^"",6)=""N"" S SRATYPE=""EXCLUDED"" D CHK^SROAUTL3"
^XMB(3.9,148,2,6119,0)="""RTN"",""SROALM"",24,0)"
^XMB(3.9,148,2,6120,0)=" I $P(SRA,""^"",2)=""C"" S SRATYPE=""CARDIAC"" D CHK^SROAUTLC"
^XMB(3.9,148,2,6121,0)="""RTN"",""SROALM"",25,0)"
^XMB(3.9,148,2,6122,0)=" S SRFLD="""" I $O(SRX(SRFLD))'="""" S TOT=TOT+1,GRAND=GRAND+1 D PRINT"
^XMB(3.9,148,2,6123,0)="""RTN"",""SROALM"",26,0)"
^XMB(3.9,148,2,6124,0)=" Q"
^XMB(3.9,148,2,6125,0)="""RTN"",""SROALM"",27,0)"
^XMB(3.9,148,2,6126,0)="PRINT ; print assessments"
^XMB(3.9,148,2,6127,0)="""RTN"",""SROALM"",28,0)"
^XMB(3.9,148,2,6128,0)=" K SRCPTT S SRCPTT=""NOT ENTERED"""
^XMB(3.9,148,2,6129,0)="""RTN"",""SROALM"",29,0)"
^XMB(3.9,148,2,6130,0)=" I $Y+5>IOSL!SRNEW D PAGE I SRSOUT Q"
^XMB(3.9,148,2,6131,0)="""RTN"",""SROALM"",30,0)"
^XMB(3.9,148,2,6132,0)=" S SRA(0)=^SRF(SRTN,0),DFN=$P(SRA(0),""^"") N I D DEM^VADPT S SRANM=VADM(1),SRASSN=VA(""PID"") K VADM"
^XMB(3.9,148,2,6133,0)="""RTN"",""SROALM"",31,0)"
^XMB(3.9,148,2,6134,0)=" I $L(SRANM)>19 S SRANM=$P(SRANM,"","")_"",""_$E($P(SRANM,"","",2))_""."""
^XMB(3.9,148,2,6135,0)="""RTN"",""SROALM"",32,0)"
^XMB(3.9,148,2,6136,0)=" S SROPER=$P(^SRF(SRTN,""OP""),""^"") I $O(^SRF(SRTN,13,0)) S SROTHER=0 F I=0:0 S SROTHER=$O(^SRF(SRTN,13,SROTHER)) Q:'SROTHER  D OTHER"
^XMB(3.9,148,2,6137,0)="""RTN"",""SROALM"",33,0)"
^XMB(3.9,148,2,6138,0)=" K SROPS,MM,MMM S:$L(SROPER)<63 SROPS(1)=SROPER I $L(SROPER)>62 S SROPER=SROPER_""  "" F M=1:1 D LOOP Q:MMM="""""
^XMB(3.9,148,2,6139,0)="""RTN"",""SROALM"",34,0)"
^XMB(3.9,148,2,6140,0)=" S SRSTATUS=$S($P(SRA,""^"")=""T"":""TRANSMITTED"",1:""COMPLETE""),Y=SRSD D D^DIQ S SRDT=$P(Y,""@"")"
^XMB(3.9,148,2,6141,0)="""RTN"",""SROALM"",35,0)"
^XMB(3.9,148,2,6142,0)=" I $Y+5>IOSL D PAGE I SRSOUT Q"
^XMB(3.9,148,2,6143,0)="""RTN"",""SROALM"",36,0)"
^XMB(3.9,148,2,6144,0)=" W !,SRTN,?18,SRANM_"" ""_VA(""PID""),?53,SRATYPE,?68,SRSTATUS,!,SRDT F I=1:1 Q:'$D(SROPS(I))  W ?18,SROPS(I),!"
^XMB(3.9,148,2,6145,0)="""RTN"",""SROALM"",37,0)"
^XMB(3.9,148,2,6146,0)=" N I,SRPROC,SRL S SRL=100 D CPTS^SROAUTL0 W ?18,""CPT Codes: """
^XMB(3.9,148,2,6147,0)="""RTN"",""SROALM"",38,0)"
^XMB(3.9,148,2,6148,0)=" F I=1:1 Q:'$D(SRPROC(I))  W:I=1 ?29,SRPROC(I) W:I'=1 !,?29,SRPROC(I)"
^XMB(3.9,148,2,6149,0)="""RTN"",""SROALM"",39,0)"
^XMB(3.9,148,2,6150,0)=" S CNT=1 W !,?5,""Missing information:"""
^XMB(3.9,148,2,6151,0)="""RTN"",""SROALM"",40,0)"
^XMB(3.9,148,2,6152,0)=" I '$P($G(^SRO(136,SRTN,10)),""^"")!('$P($G(^SRO(136,SRTN,0)),""^"",2))!('$P($G(^SRO(136,SRTN,0)),""^"",3)) W !,$J(CNT_"". "",8),""The final coding for Procedure and Diagnosis is not complete."" S CNT=CNT+1"
^XMB(3.9,148,2,6153,0)="""RTN"",""SROALM"",41,0)"
^XMB(3.9,148,2,6154,0)=" F  S SRFLD=$O(SRX(SRFLD)) Q:SRFLD=""""  D:$Y+5>IOSL PAGE Q:SRSOUT  W !,$J(CNT_"". "",8),SRX(SRFLD) S CNT=CNT+1"
^XMB(3.9,148,2,6155,0)="""RTN"",""SROALM"",42,0)"
^XMB(3.9,148,2,6156,0)=" I 'SRSOUT W ! F LINE=1:1:80 W ""-"""
^XMB(3.9,148,2,6157,0)="""RTN"",""SROALM"",43,0)"
^XMB(3.9,148,2,6158,0)=" Q"
^XMB(3.9,148,2,6159,0)="""RTN"",""SROALM"",44,0)"
^XMB(3.9,148,2,6160,0)="OTHER ; other operations"
^XMB(3.9,148,2,6161,0)="""RTN"",""SROALM"",45,0)"
^XMB(3.9,148,2,6162,0)=" S SRLONG=1 I $L(SROPER)+$L($P(^SRF(SRTN,13,SROTHER,0),""^""))>125 S SRLONG=0,SROTHER=999,SROPERS="" ..."""
^XMB(3.9,148,2,6163,0)="""RTN"",""SROALM"",46,0)"
^XMB(3.9,148,2,6164,0)=" I SRLONG S SROPERS=$P(^SRF(SRTN,13,SROTHER,0),""^"")"
^XMB(3.9,148,2,6165,0)="""RTN"",""SROALM"",47,0)"
^XMB(3.9,148,2,6166,0)=" S SROPER=SROPER_$S(SROPERS'="" ..."":"", ""_SROPERS,1:SROPERS)"
^XMB(3.9,148,2,6167,0)="""RTN"",""SROALM"",48,0)"
^XMB(3.9,148,2,6168,0)=" Q"
^XMB(3.9,148,2,6169,0)="""RTN"",""SROALM"",49,0)"
^XMB(3.9,148,2,6170,0)="LOOP ; break procedures"
^XMB(3.9,148,2,6171,0)="""RTN"",""SROALM"",50,0)"
^XMB(3.9,148,2,6172,0)=" S SROPS(M)="""" F LOOP=1:1 S MM=$P(SROPER,"" ""),MMM=$P(SROPER,"" "",2,200) Q:MMM=""""  Q:$L(SROPS(M))+$L(MM)'<63  S SROPS(M)=SROPS(M)_MM_"" "",SROPER=MMM"
^XMB(3.9,148,2,6173,0)="""RTN"",""SROALM"",51,0)"
^XMB(3.9,148,2,6174,0)=" Q"
^XMB(3.9,148,2,6175,0)="""RTN"",""SROALM"",52,0)"
^XMB(3.9,148,2,6176,0)="PAGE I $E(IOST)=""P""!SRHDR G HDR"
^XMB(3.9,148,2,6177,0)="""RTN"",""SROALM"",53,0)"
^XMB(3.9,148,2,6178,0)=" W !!,""Press <RET> to continue, or '^' to quit  "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1 Q"
^XMB(3.9,148,2,6179,0)="""RTN"",""SROALM"",54,0)"
^XMB(3.9,148,2,6180,0)=" I X[""?"" W !!,""If you want to continue listing incomplete assessments, enter <RET>.  Enter"",!,""'^' to return to the menu."" G PAGE"
^XMB(3.9,148,2,6181,0)="""RTN"",""SROALM"",55,0)"
^XMB(3.9,148,2,6182,0)="HDR ; print heading"
^XMB(3.9,148,2,6183,0)="""RTN"",""SROALM"",56,0)"
^XMB(3.9,148,2,6184,0)=" W @IOF,!,?(80-$L(SRTITLE)\2),SRTITLE,?70,$J(""PAGE ""_SRPAGE,9) W:$E(IOST)=""P"" !,?(80-$L(SRINST)\2),SRINST W !,?(80-$L(SRFRTO)\2),SRFRTO"
^XMB(3.9,148,2,6185,0)="""RTN"",""SROALM"",57,0)"
^XMB(3.9,148,2,6186,0)=" W:$E(IOST)=""P"" !,?(80-$L(SRPRINT)\2),SRPRINT I SRSP,SRSS'="""" W !!,""** ""_SRSS"
^XMB(3.9,148,2,6187,0)="""RTN"",""SROALM"",58,0)"
^XMB(3.9,148,2,6188,0)=" W !!,""ASSESSMENT #"",?18,""PATIENT"",?53,""TYPE"",?68,""STATUS"",!,""OPERATION DATE"",?18,""OPERATION(S)"",! F LINE=1:1:80 W ""="""
^XMB(3.9,148,2,6189,0)="""RTN"",""SROALM"",59,0)"
^XMB(3.9,148,2,6190,0)=" S SRHDR=0,SRNEW=0,SRPAGE=SRPAGE+1"
^XMB(3.9,148,2,6191,0)="""RTN"",""SROALM"",60,0)"
^XMB(3.9,148,2,6192,0)=" Q"
^XMB(3.9,148,2,6193,0)="""RTN"",""SROALM"",61,0)"
^XMB(3.9,148,2,6194,0)="TOT W !!,""TOTAL FOR ""_SRSS_"": "",TOT"
^XMB(3.9,148,2,6195,0)="""RTN"",""SROALM"",62,0)"
^XMB(3.9,148,2,6196,0)=" Q"
^XMB(3.9,148,2,6197,0)="""RTN"",""SROALM"",63,0)"
^XMB(3.9,148,2,6198,0)="GRAND I 'SRSP W !!,""TOTAL: "",GRAND Q"
^XMB(3.9,148,2,6199,0)="""RTN"",""SROALM"",64,0)"
^XMB(3.9,148,2,6200,0)=" I SRSP,'SRFLG W !!,""TOTAL FOR ALL SPECIALTIES: "",GRAND Q"
^XMB(3.9,148,2,6201,0)="""RTN"",""SROALM"",65,0)"
^XMB(3.9,148,2,6202,0)=" I SRSP,SRFLG S SRSS=SRSPEC D TOT"
^XMB(3.9,148,2,6203,0)="""RTN"",""SROALM"",66,0)"
^XMB(3.9,148,2,6204,0)=" Q"
^XMB(3.9,148,2,6205,0)="""RTN"",""SROALMN"")"
^XMB(3.9,148,2,6206,0)="0^96^B23578732^n/a"
^XMB(3.9,148,2,6207,0)="""RTN"",""SROALMN"",1,0)"
^XMB(3.9,148,2,6208,0)="SROALMN ;BIR/ADM - LIST OF 1-LINER CASES WITH MISSING INFO ;05/09/06"
^XMB(3.9,148,2,6209,0)="""RTN"",""SROALMN"",2,0)"
^XMB(3.9,148,2,6210,0)=" ;;3.0; Surgery ;**153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,6211,0)="""RTN"",""SROALMN"",3,0)"
^XMB(3.9,148,2,6212,0)=" S (GRAND,SRNEW,SRSOUT,TOT)=0,(SRHDR,SRPAGE)=1,SRTITLE=""1-LINER CASES MISSING INFORMATION"" K ^TMP(""SRA"",$J)"
^XMB(3.9,148,2,6213,0)="""RTN"",""SROALMN"",4,0)"
^XMB(3.9,148,2,6214,0)=" I SRFLG,SRASP S SRSPEC=$P(^SRO(137.45,SRASP,0),""^"")"
^XMB(3.9,148,2,6215,0)="""RTN"",""SROALMN"",5,0)"
^XMB(3.9,148,2,6216,0)=" F  S SRSD=$O(^SRF(""AC"",SRSD)) Q:'SRSD!(SRSD>SRED)!SRSOUT  S SRTN=0 F  S SRTN=$O(^SRF(""AC"",SRSD,SRTN)) Q:'SRTN!SRSOUT  I $D(^SRF(SRTN,0)),$$DIV^SROUTL0(SRTN) D UTL"
^XMB(3.9,148,2,6217,0)="""RTN"",""SROALMN"",6,0)"
^XMB(3.9,148,2,6218,0)=" I SRSP S SRSS="""" F  S SRSS=$O(^TMP(""SRA"",$J,SRSS)) Q:SRSS=""""  D SRSD Q:SRSOUT  D:TOT TOT"
^XMB(3.9,148,2,6219,0)="""RTN"",""SROALMN"",7,0)"
^XMB(3.9,148,2,6220,0)=" I 'SRSP S SRNEW=1,(SRSD,TOT)=0 F  S SRSD=$O(^TMP(""SRA"",$J,SRSD)) Q:'SRSD!SRSOUT  S SRTN=0 F  S SRTN=$O(^TMP(""SRA"",$J,SRSD,SRTN)) Q:'SRTN  S SRA=^(SRTN) D CASE Q:SRSOUT"
^XMB(3.9,148,2,6221,0)="""RTN"",""SROALMN"",8,0)"
^XMB(3.9,148,2,6222,0)=" Q:SRSOUT  I SRSP,'SRFLG,GRAND D GRAND"
^XMB(3.9,148,2,6223,0)="""RTN"",""SROALMN"",9,0)"
^XMB(3.9,148,2,6224,0)=" I SRFLG,'GRAND S SRSS=SRSPEC D HDR,GRAND"
^XMB(3.9,148,2,6225,0)="""RTN"",""SROALMN"",10,0)"
^XMB(3.9,148,2,6226,0)=" I SRSP,'SRFLG,'GRAND S SRSS="""" D HDR,GRAND"
^XMB(3.9,148,2,6227,0)="""RTN"",""SROALMN"",11,0)"
^XMB(3.9,148,2,6228,0)=" I 'SRSP,'GRAND S SRSS="""" D HDR,GRAND"
^XMB(3.9,148,2,6229,0)="""RTN"",""SROALMN"",12,0)"
^XMB(3.9,148,2,6230,0)=" I 'SRSP,GRAND S SRSS="""" D GRAND"
^XMB(3.9,148,2,6231,0)="""RTN"",""SROALMN"",13,0)"
^XMB(3.9,148,2,6232,0)=" Q"
^XMB(3.9,148,2,6233,0)="""RTN"",""SROALMN"",14,0)"
^XMB(3.9,148,2,6234,0)="UTL ; set up TMP global"
^XMB(3.9,148,2,6235,0)="""RTN"",""SROALMN"",15,0)"
^XMB(3.9,148,2,6236,0)=" I '$P($G(^SRF(SRTN,.2)),""^"",3)&'$P($G(^SRF(SRTN,.2)),""^"",12) Q"
^XMB(3.9,148,2,6237,0)="""RTN"",""SROALMN"",16,0)"
^XMB(3.9,148,2,6238,0)=" I $P($G(^SRF(SRTN,30)),""^"") Q"
^XMB(3.9,148,2,6239,0)="""RTN"",""SROALMN"",17,0)"
^XMB(3.9,148,2,6240,0)=" S SRA=$G(^SRF(SRTN,""RA"")) I $P(SRA,""^"",2)=""N"",$P(SRA,""^"",6)=""Y"" Q"
^XMB(3.9,148,2,6241,0)="""RTN"",""SROALMN"",18,0)"
^XMB(3.9,148,2,6242,0)=" I SRFLG,$P(^SRF(SRTN,0),""^"",4)'=SRASP Q"
^XMB(3.9,148,2,6243,0)="""RTN"",""SROALMN"",19,0)"
^XMB(3.9,148,2,6244,0)=" I SRSP S SRSS=$P(^SRF(SRTN,0),""^"",4),SRSS=$S(SRSS:$P(^SRO(137.45,SRSS,0),""^""),1:""SPECIALTY NOT ENTERED""),^TMP(""SRA"",$J,SRSS,SRSD,SRTN)=SRA Q"
^XMB(3.9,148,2,6245,0)="""RTN"",""SROALMN"",20,0)"
^XMB(3.9,148,2,6246,0)=" S ^TMP(""SRA"",$J,SRSD,SRTN)=SRA"
^XMB(3.9,148,2,6247,0)="""RTN"",""SROALMN"",21,0)"
^XMB(3.9,148,2,6248,0)=" Q"
^XMB(3.9,148,2,6249,0)="""RTN"",""SROALMN"",22,0)"
^XMB(3.9,148,2,6250,0)="SRSD S SRNEW=1,(SRSD,TOT)=0 F  S SRSD=$O(^TMP(""SRA"",$J,SRSS,SRSD)) Q:'SRSD!SRSOUT  S SRTN=0 F  S SRTN=$O(^TMP(""SRA"",$J,SRSS,SRSD,SRTN)) Q:'SRTN  S SRA=^(SRTN) D CASE Q:SRSOUT"
^XMB(3.9,148,2,6251,0)="""RTN"",""SROALMN"",23,0)"
^XMB(3.9,148,2,6252,0)=" Q"
^XMB(3.9,148,2,6253,0)="""RTN"",""SROALMN"",24,0)"
^XMB(3.9,148,2,6254,0)="CASE I $P(SRA,""^"",2)=""N"",$P(SRA,""^"",6)=""N"" S SRATYPE=""EXCLUDED"""
^XMB(3.9,148,2,6255,0)="""RTN"",""SROALMN"",25,0)"
^XMB(3.9,148,2,6256,0)=" S:$P(SRA,""^"",2)=""C"" SRATYPE=""CARDIAC"" S:$P(SRA,""^"",2)="""" SRATYPE=""NON-ASSESSED"" D LNR"
^XMB(3.9,148,2,6257,0)="""RTN"",""SROALMN"",26,0)"
^XMB(3.9,148,2,6258,0)=" S SRFLD="""" I $O(SRX(SRFLD))'="""" S TOT=TOT+1,GRAND=GRAND+1 D PRINT"
^XMB(3.9,148,2,6259,0)="""RTN"",""SROALMN"",27,0)"
^XMB(3.9,148,2,6260,0)=" Q"
^XMB(3.9,148,2,6261,0)="""RTN"",""SROALMN"",28,0)"
^XMB(3.9,148,2,6262,0)="LNR ; check for missing 1-liner information"
^XMB(3.9,148,2,6263,0)="""RTN"",""SROALMN"",29,0)"
^XMB(3.9,148,2,6264,0)=" K SRX,DA,DIC,DIQ,DR,SRY S DIC=""^SRF("",DA=SRTN,DIQ=""SRY"",DIQ(0)=""I"""
^XMB(3.9,148,2,6265,0)="""RTN"",""SROALMN"",30,0)"
^XMB(3.9,148,2,6266,0)=" I SRATYPE'=""EXCLUDED"" S DR="".011;.03;.04;.035;.166;1.09;1.13"""
^XMB(3.9,148,2,6267,0)="""RTN"",""SROALMN"",31,0)"
^XMB(3.9,148,2,6268,0)=" I SRATYPE=""EXCLUDED"" S DR="".03;.35;102"""
^XMB(3.9,148,2,6269,0)="""RTN"",""SROALMN"",32,0)"
^XMB(3.9,148,2,6270,0)=" D EN^DIQ1 D ^SROAUTL2 K DA,DIC,DIQ,DR,SRY,SRZ"
^XMB(3.9,148,2,6271,0)="""RTN"",""SROALMN"",33,0)"
^XMB(3.9,148,2,6272,0)=" D TECH^SROPRIN I SRTECH=""NOT ENTERED"" S SRX(""ANESTHESIA TECHNIQUE"")=""Anesthesia Technique"""
^XMB(3.9,148,2,6273,0)="""RTN"",""SROALMN"",34,0)"
^XMB(3.9,148,2,6274,0)=" Q"
^XMB(3.9,148,2,6275,0)="""RTN"",""SROALMN"",35,0)"
^XMB(3.9,148,2,6276,0)="PRINT ; print assessments"
^XMB(3.9,148,2,6277,0)="""RTN"",""SROALMN"",36,0)"
^XMB(3.9,148,2,6278,0)=" K SRCPTT S SRCPTT=""NOT ENTERED"""
^XMB(3.9,148,2,6279,0)="""RTN"",""SROALMN"",37,0)"
^XMB(3.9,148,2,6280,0)=" I $Y+5>IOSL!SRNEW D PAGE I SRSOUT Q"
^XMB(3.9,148,2,6281,0)="""RTN"",""SROALMN"",38,0)"
^XMB(3.9,148,2,6282,0)=" S SRA(0)=^SRF(SRTN,0),DFN=$P(SRA(0),""^"") N I D DEM^VADPT S SRANM=VADM(1),SRASSN=VA(""PID"") K VADM"
^XMB(3.9,148,2,6283,0)="""RTN"",""SROALMN"",39,0)"
^XMB(3.9,148,2,6284,0)=" I $L(SRANM)>19 S SRANM=$P(SRANM,"","")_"",""_$E($P(SRANM,"","",2))_""."""
^XMB(3.9,148,2,6285,0)="""RTN"",""SROALMN"",40,0)"
^XMB(3.9,148,2,6286,0)=" S SROPER=$P(^SRF(SRTN,""OP""),""^"") I $O(^SRF(SRTN,13,0)) S SROTHER=0 F I=0:0 S SROTHER=$O(^SRF(SRTN,13,SROTHER)) Q:'SROTHER  D OTHER"
^XMB(3.9,148,2,6287,0)="""RTN"",""SROALMN"",41,0)"
^XMB(3.9,148,2,6288,0)=" K SROPS,MM,MMM S:$L(SROPER)<63 SROPS(1)=SROPER I $L(SROPER)>62 S SROPER=SROPER_""  "" F M=1:1 D LOOP Q:MMM="""""
^XMB(3.9,148,2,6289,0)="""RTN"",""SROALMN"",42,0)"
^XMB(3.9,148,2,6290,0)=" S SRSTATUS=$S($P(SRA,""^"")=""T"":""TRANSMITTED"",1:""COMPLETE""),Y=SRSD D D^DIQ S SRDT=$P(Y,""@"")"
^XMB(3.9,148,2,6291,0)="""RTN"",""SROALMN"",43,0)"
^XMB(3.9,148,2,6292,0)=" I $Y+5>IOSL D PAGE I SRSOUT Q"
^XMB(3.9,148,2,6293,0)="""RTN"",""SROALMN"",44,0)"
^XMB(3.9,148,2,6294,0)=" W !,SRTN,?18,SRANM_"" ""_VA(""PID""),?53,SRATYPE,?68,SRSTATUS,!,SRDT F I=1:1 Q:'$D(SROPS(I))  W ?18,SROPS(I),!"
^XMB(3.9,148,2,6295,0)="""RTN"",""SROALMN"",45,0)"
^XMB(3.9,148,2,6296,0)=" N I,SRPROC,SRL S SRL=100 D CPTS^SROAUTL0 W ?18,""CPT Codes: """
^XMB(3.9,148,2,6297,0)="""RTN"",""SROALMN"",46,0)"
^XMB(3.9,148,2,6298,0)=" F I=1:1 Q:'$D(SRPROC(I))  W:I=1 ?29,SRPROC(I) W:I'=1 !,?29,SRPROC(I)"
^XMB(3.9,148,2,6299,0)="""RTN"",""SROALMN"",47,0)"
^XMB(3.9,148,2,6300,0)=" S CNT=1 W !,?5,""Missing information:"""
^XMB(3.9,148,2,6301,0)="""RTN"",""SROALMN"",48,0)"
^XMB(3.9,148,2,6302,0)=" I '$P($G(^SRO(136,SRTN,10)),""^"")!('$P($G(^SRO(136,SRTN,0)),""^"",2))!('$P($G(^SRO(136,SRTN,0)),""^"",3)) W !,$J(CNT_"". "",8),""The final coding for Procedure and Diagnosis is not complete."" S CNT=CNT+1"
^XMB(3.9,148,2,6303,0)="""RTN"",""SROALMN"",49,0)"
^XMB(3.9,148,2,6304,0)=" F  S SRFLD=$O(SRX(SRFLD)) Q:SRFLD=""""  D:$Y+5>IOSL PAGE Q:SRSOUT  W !,$J(CNT_"". "",8),SRX(SRFLD) S CNT=CNT+1"
^XMB(3.9,148,2,6305,0)="""RTN"",""SROALMN"",50,0)"
^XMB(3.9,148,2,6306,0)=" I 'SRSOUT W ! F LINE=1:1:80 W ""-"""
^XMB(3.9,148,2,6307,0)="""RTN"",""SROALMN"",51,0)"
^XMB(3.9,148,2,6308,0)=" Q"
^XMB(3.9,148,2,6309,0)="""RTN"",""SROALMN"",52,0)"
^XMB(3.9,148,2,6310,0)="OTHER ; other operations"
^XMB(3.9,148,2,6311,0)="""RTN"",""SROALMN"",53,0)"
^XMB(3.9,148,2,6312,0)=" S SRLONG=1 I $L(SROPER)+$L($P(^SRF(SRTN,13,SROTHER,0),""^""))>125 S SRLONG=0,SROTHER=999,SROPERS="" ..."""
^XMB(3.9,148,2,6313,0)="""RTN"",""SROALMN"",54,0)"
^XMB(3.9,148,2,6314,0)=" I SRLONG S SROPERS=$P(^SRF(SRTN,13,SROTHER,0),""^"")"
^XMB(3.9,148,2,6315,0)="""RTN"",""SROALMN"",55,0)"
^XMB(3.9,148,2,6316,0)=" S SROPER=SROPER_$S(SROPERS'="" ..."":"", ""_SROPERS,1:SROPERS)"
^XMB(3.9,148,2,6317,0)="""RTN"",""SROALMN"",56,0)"
^XMB(3.9,148,2,6318,0)=" Q"
^XMB(3.9,148,2,6319,0)="""RTN"",""SROALMN"",57,0)"
^XMB(3.9,148,2,6320,0)="LOOP ; break procedures"
^XMB(3.9,148,2,6321,0)="""RTN"",""SROALMN"",58,0)"
^XMB(3.9,148,2,6322,0)=" S SROPS(M)="""" F LOOP=1:1 S MM=$P(SROPER,"" ""),MMM=$P(SROPER,"" "",2,200) Q:MMM=""""  Q:$L(SROPS(M))+$L(MM)'<63  S SROPS(M)=SROPS(M)_MM_"" "",SROPER=MMM"
^XMB(3.9,148,2,6323,0)="""RTN"",""SROALMN"",59,0)"
^XMB(3.9,148,2,6324,0)=" Q"
^XMB(3.9,148,2,6325,0)="""RTN"",""SROALMN"",60,0)"
^XMB(3.9,148,2,6326,0)="PAGE I $E(IOST)=""P""!SRHDR G HDR"
^XMB(3.9,148,2,6327,0)="""RTN"",""SROALMN"",61,0)"
^XMB(3.9,148,2,6328,0)=" W !!,""Press <RET> to continue, or '^' to quit  "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1 Q"
^XMB(3.9,148,2,6329,0)="""RTN"",""SROALMN"",62,0)"
^XMB(3.9,148,2,6330,0)=" I X[""?"" W !!,""If you want to continue listing incomplete assessments, enter <RET>.  Enter"",!,""'^' to return to the menu."" G PAGE"
^XMB(3.9,148,2,6331,0)="""RTN"",""SROALMN"",63,0)"
^XMB(3.9,148,2,6332,0)="HDR ; print heading"
^XMB(3.9,148,2,6333,0)="""RTN"",""SROALMN"",64,0)"
^XMB(3.9,148,2,6334,0)=" W @IOF,!,?(80-$L(SRTITLE)\2),SRTITLE,?70,$J(""PAGE ""_SRPAGE,9) W:$E(IOST)=""P"" !,?(80-$L(SRINST)\2),SRINST W !,?(80-$L(SRFRTO)\2),SRFRTO"
^XMB(3.9,148,2,6335,0)="""RTN"",""SROALMN"",65,0)"
^XMB(3.9,148,2,6336,0)=" W:$E(IOST)=""P"" !,?(80-$L(SRPRINT)\2),SRPRINT I SRSP,SRSS'="""" W !!,""** ""_SRSS"
^XMB(3.9,148,2,6337,0)="""RTN"",""SROALMN"",66,0)"
^XMB(3.9,148,2,6338,0)=" W !!,""CASE #"",?18,""PATIENT"",?53,""TYPE"",?68,""STATUS"",!,""OP DATE"",?18,""OPERATION(S)"",! F LINE=1:1:80 W ""="""
^XMB(3.9,148,2,6339,0)="""RTN"",""SROALMN"",67,0)"
^XMB(3.9,148,2,6340,0)=" S SRHDR=0,SRNEW=0,SRPAGE=SRPAGE+1"
^XMB(3.9,148,2,6341,0)="""RTN"",""SROALMN"",68,0)"
^XMB(3.9,148,2,6342,0)=" Q"
^XMB(3.9,148,2,6343,0)="""RTN"",""SROALMN"",69,0)"
^XMB(3.9,148,2,6344,0)="TOT W !!,""TOTAL FOR ""_SRSS_"": "",TOT"
^XMB(3.9,148,2,6345,0)="""RTN"",""SROALMN"",70,0)"
^XMB(3.9,148,2,6346,0)=" Q"
^XMB(3.9,148,2,6347,0)="""RTN"",""SROALMN"",71,0)"
^XMB(3.9,148,2,6348,0)="GRAND I 'SRSP W !!,""TOTAL: "",GRAND Q"
^XMB(3.9,148,2,6349,0)="""RTN"",""SROALMN"",72,0)"
^XMB(3.9,148,2,6350,0)=" I SRSP,'SRFLG W !!,""TOTAL FOR ALL SPECIALTIES: "",GRAND Q"
^XMB(3.9,148,2,6351,0)="""RTN"",""SROALMN"",73,0)"
^XMB(3.9,148,2,6352,0)=" I SRSP,SRFLG S SRSS=SRSPEC D TOT"
^XMB(3.9,148,2,6353,0)="""RTN"",""SROALMN"",74,0)"
^XMB(3.9,148,2,6354,0)=" Q"
^XMB(3.9,148,2,6355,0)="""RTN"",""SROALN1"")"
^XMB(3.9,148,2,6356,0)="0^18^B8424056^B7744706"
^XMB(3.9,148,2,6357,0)="""RTN"",""SROALN1"",1,0)"
^XMB(3.9,148,2,6358,0)="SROALN1 ;BIR/MAM - LAB INFO ;01/27/06"
^XMB(3.9,148,2,6359,0)="""RTN"",""SROALN1"",2,0)"
^XMB(3.9,148,2,6360,0)=" ;;3.0; Surgery ;**38,125,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,6361,0)="""RTN"",""SROALN1"",3,0)"
^XMB(3.9,148,2,6362,0)=" F SHEMP=201:1:204 S SRA(SHEMP)=$G(^SRF(SRTN,SHEMP))"
^XMB(3.9,148,2,6363,0)="""RTN"",""SROALN1"",4,0)"
^XMB(3.9,148,2,6364,0)=" S SHEMP=$P(SRA(203),""^"",15),SRAO(1)=SHEMP_""^^444^444.1"" S X=$P(SRA(204),""^"",15) I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(1),""^"",2)=SHEMP"
^XMB(3.9,148,2,6365,0)="""RTN"",""SROALN1"",5,0)"
^XMB(3.9,148,2,6366,0)=" S SHEMP=$P(SRA(201),""^""),SRAO(2)=SHEMP_""^^270^304"" S X=$P(SRA(202),""^"") I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(2),""^"",2)=SHEMP"
^XMB(3.9,148,2,6367,0)="""RTN"",""SROALN1"",6,0)"
^XMB(3.9,148,2,6368,0)=" S SHEMP=$P(SRA(201),""^"",5),SRAO(3)=SHEMP_""^^224^291"" S X=$P(SRA(202),""^"",5) I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(3),""^"",2)=SHEMP"
^XMB(3.9,148,2,6369,0)="""RTN"",""SROALN1"",7,0)"
^XMB(3.9,148,2,6370,0)=" S SHEMP=$P(SRA(201),""^"",4),SRAO(4)=SHEMP_""^^223^290"" S X=$P(SRA(202),""^"",4) I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(4),""^"",2)=SHEMP"
^XMB(3.9,148,2,6371,0)="""RTN"",""SROALN1"",8,0)"
^XMB(3.9,148,2,6372,0)=" S SHEMP=$P(SRA(201),""^"",8),SRAO(5)=SHEMP_""^^225^292"" S X=$P(SRA(202),""^"",8) I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(5),""^"",2)=SHEMP"
^XMB(3.9,148,2,6373,0)="""RTN"",""SROALN1"",9,0)"
^XMB(3.9,148,2,6374,0)=" S SHEMP=$P(SRA(201),""^"",9),SRAO(6)=SHEMP_""^^228^295"" S X=$P(SRA(202),""^"",9) I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(6),""^"",2)=SHEMP"
^XMB(3.9,148,2,6375,0)="""RTN"",""SROALN1"",10,0)"
^XMB(3.9,148,2,6376,0)=" S SHEMP=$P(SRA(201),""^"",11),SRAO(7)=SHEMP_""^^227^294"" S X=$P(SRA(202),""^"",11) I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(7),""^"",2)=SHEMP"
^XMB(3.9,148,2,6377,0)="""RTN"",""SROALN1"",11,0)"
^XMB(3.9,148,2,6378,0)=" S SHEMP=$P(SRA(201),""^"",12),SRAO(8)=SHEMP_""^^229^296"" S X=$P(SRA(202),""^"",12) I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(8),""^"",2)=SHEMP"
^XMB(3.9,148,2,6379,0)="""RTN"",""SROALN1"",12,0)"
^XMB(3.9,148,2,6380,0)=" S SHEMP=$P(SRA(201),""^"",13),SRAO(9)=SHEMP_""^^230^297"" S X=$P(SRA(202),""^"",13) I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(9),""^"",2)=SHEMP"
^XMB(3.9,148,2,6381,0)="""RTN"",""SROALN1"",13,0)"
^XMB(3.9,148,2,6382,0)=" S SHEMP=$P(SRA(201),""^"",14),SRAO(10)=SHEMP_""^^234^301"" S X=$P(SRA(202),""^"",14) I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(10),""^"",2)=SHEMP"
^XMB(3.9,148,2,6383,0)="""RTN"",""SROALN1"",14,0)"
^XMB(3.9,148,2,6384,0)=" S SHEMP=$P(SRA(201),""^"",15),SRAO(11)=SHEMP_""^^231^298"" S X=$P(SRA(202),""^"",15) I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(11),""^"",2)=SHEMP"
^XMB(3.9,148,2,6385,0)="""RTN"",""SROALN1"",15,0)"
^XMB(3.9,148,2,6386,0)=" S SHEMP=$P(SRA(201),""^"",16),SRAO(12)=SHEMP_""^^233^300"" S X=$P(SRA(202),""^"",16) I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(12),""^"",2)=SHEMP"
^XMB(3.9,148,2,6387,0)="""RTN"",""SROALN1"",16,0)"
^XMB(3.9,148,2,6388,0)=" S SHEMP=$P(SRA(201),""^"",17),SRAO(13)=SHEMP_""^^232^299"" S X=$P(SRA(202),""^"",17) I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(13),""^"",2)=SHEMP"
^XMB(3.9,148,2,6389,0)="""RTN"",""SROALN1"",17,0)"
^XMB(3.9,148,2,6390,0)=" S SHEMP=$P(SRA(201),""^"",27),SRAO(14)=SHEMP_""^^487^487.1"" S X=$P(SRA(202),""^"",27) I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(14),""^"",2)=SHEMP"
^XMB(3.9,148,2,6391,0)="""RTN"",""SROALN1"",18,0)"
^XMB(3.9,148,2,6392,0)=" K SRA"
^XMB(3.9,148,2,6393,0)="""RTN"",""SROALN1"",19,0)"
^XMB(3.9,148,2,6394,0)=" Q"
^XMB(3.9,148,2,6395,0)="""RTN"",""SROALN1"",20,0)"
^XMB(3.9,148,2,6396,0)="DATE S Y=X X ^DD(""DD"")"
^XMB(3.9,148,2,6397,0)="""RTN"",""SROALN1"",21,0)"
^XMB(3.9,148,2,6398,0)=" Q"
^XMB(3.9,148,2,6399,0)="""RTN"",""SROALN2"")"
^XMB(3.9,148,2,6400,0)="0^19^B9184341^B9183649"
^XMB(3.9,148,2,6401,0)="""RTN"",""SROALN2"",1,0)"
^XMB(3.9,148,2,6402,0)="SROALN2 ;BIR/MAM - LAB INFO ;01/27/06"
^XMB(3.9,148,2,6403,0)="""RTN"",""SROALN2"",2,0)"
^XMB(3.9,148,2,6404,0)=" ;;3.0; Surgery ;**38,88,100,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,6405,0)="""RTN"",""SROALN2"",3,0)"
^XMB(3.9,148,2,6406,0)=" S SRSOUT=0 I '$D(SRTN) W !!,""A Surgery Risk Assessment must be selected prior to using this option."",!!,""Press <RET> to continue  "" R X:DTIME G END"
^XMB(3.9,148,2,6407,0)="""RTN"",""SROALN2"",4,0)"
^XMB(3.9,148,2,6408,0)=" D ^SROAUTL"
^XMB(3.9,148,2,6409,0)="""RTN"",""SROALN2"",5,0)"
^XMB(3.9,148,2,6410,0)="START G:SRSOUT END K SRA,SRAO D ^SROALN3"
^XMB(3.9,148,2,6411,0)="""RTN"",""SROALN2"",6,0)"
^XMB(3.9,148,2,6412,0)="ASK W !!,""Select Postoperative Laboratory Information to Edit: "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1 G END"
^XMB(3.9,148,2,6413,0)="""RTN"",""SROALN2"",7,0)"
^XMB(3.9,148,2,6414,0)=" I X="""" Q"
^XMB(3.9,148,2,6415,0)="""RTN"",""SROALN2"",8,0)"
^XMB(3.9,148,2,6416,0)=" S:X=""a"" X=""A"" I '$D(SRAO(X)),(X'?.N1"":"".N),(X'=""A"") D HELP G:SRSOUT END G START"
^XMB(3.9,148,2,6417,0)="""RTN"",""SROALN2"",9,0)"
^XMB(3.9,148,2,6418,0)=" I X=""A"" S X=""1:13"""
^XMB(3.9,148,2,6419,0)="""RTN"",""SROALN2"",10,0)"
^XMB(3.9,148,2,6420,0)=" I X?.N1"":"".N S Y=$E(X),Z=$P(X,"":"",2) I Y<1!(Z>13)!(Y>Z) D HELP G:SRSOUT END G START"
^XMB(3.9,148,2,6421,0)="""RTN"",""SROALN2"",11,0)"
^XMB(3.9,148,2,6422,0)=" S SRPAGE="""" D HDR^SROAUTL"
^XMB(3.9,148,2,6423,0)="""RTN"",""SROALN2"",12,0)"
^XMB(3.9,148,2,6424,0)=" I X?.N1"":"".N D RANGE G START"
^XMB(3.9,148,2,6425,0)="""RTN"",""SROALN2"",13,0)"
^XMB(3.9,148,2,6426,0)=" I $D(SRAO(X)) S EMILY=X D  G START"
^XMB(3.9,148,2,6427,0)="""RTN"",""SROALN2"",14,0)"
^XMB(3.9,148,2,6428,0)=" .I $$LOCK^SROUTL(SRTN) D ONE,UNLOCK^SROUTL(SRTN)"
^XMB(3.9,148,2,6429,0)="""RTN"",""SROALN2"",15,0)"
^XMB(3.9,148,2,6430,0)="END W @IOF"
^XMB(3.9,148,2,6431,0)="""RTN"",""SROALN2"",16,0)"
^XMB(3.9,148,2,6432,0)=" Q"
^XMB(3.9,148,2,6433,0)="""RTN"",""SROALN2"",17,0)"
^XMB(3.9,148,2,6434,0)="HELP W @IOF,!!!!,""Enter the number or range of numbers you want to edit.  Examples of proper"",!,""responses are listed below."""
^XMB(3.9,148,2,6435,0)="""RTN"",""SROALN2"",18,0)"
^XMB(3.9,148,2,6436,0)=" W !!,""1. Enter 'A' to update all information."",!!,""2. Enter a number (1-13) to update the information in that field.  (For"",!,""   example, enter '6' to update Highest Serum Creatinine)"""
^XMB(3.9,148,2,6437,0)="""RTN"",""SROALN2"",19,0)"
^XMB(3.9,148,2,6438,0)=" W !!,""3. Enter a range of numbers (1-13) separated by a ':' to enter a range of"",!,""   information.  (For example, enter '2:4' to update Highest Serum Sodium,"",!,""   Lowest Serum Sodium, and Highest Potassium)"""
^XMB(3.9,148,2,6439,0)="""RTN"",""SROALN2"",20,0)"
^XMB(3.9,148,2,6440,0)=" W !!,""Press <RET> to continue, or '^' to quit  "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1"
^XMB(3.9,148,2,6441,0)="""RTN"",""SROALN2"",21,0)"
^XMB(3.9,148,2,6442,0)=" Q"
^XMB(3.9,148,2,6443,0)="""RTN"",""SROALN2"",22,0)"
^XMB(3.9,148,2,6444,0)="RANGE ; range of numbers"
^XMB(3.9,148,2,6445,0)="""RTN"",""SROALN2"",23,0)"
^XMB(3.9,148,2,6446,0)=" I $$LOCK^SROUTL(SRTN) D  D UNLOCK^SROUTL(SRTN)"
^XMB(3.9,148,2,6447,0)="""RTN"",""SROALN2"",24,0)"
^XMB(3.9,148,2,6448,0)=" .S SRNOMORE=0,SHEMP=$P(X,"":""),CURLEY=$P(X,"":"",2) F EMILY=SHEMP:1:CURLEY Q:SRNOMORE  D ONE"
^XMB(3.9,148,2,6449,0)="""RTN"",""SROALN2"",25,0)"
^XMB(3.9,148,2,6450,0)=" Q"
^XMB(3.9,148,2,6451,0)="""RTN"",""SROALN2"",26,0)"
^XMB(3.9,148,2,6452,0)="ONE ; edit one item"
^XMB(3.9,148,2,6453,0)="""RTN"",""SROALN2"",27,0)"
^XMB(3.9,148,2,6454,0)=" K DR,DIE S DA=SRTN,DR=$P(SRAO(EMILY),""^"",3)_""T;""_$P(SRAO(EMILY),""^"",4)_""T"",DIE=130 D ^DIE S:$D(Y) SRNOMORE=1 K DR"
^XMB(3.9,148,2,6455,0)="""RTN"",""SROALN2"",28,0)"
^XMB(3.9,148,2,6456,0)=" Q"
^XMB(3.9,148,2,6457,0)="""RTN"",""SROALN2"",29,0)"
^XMB(3.9,148,2,6458,0)="RET Q:SRSOUT  W !!,""Press <RET> to continue, or '^' to quit  "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1 Q"
^XMB(3.9,148,2,6459,0)="""RTN"",""SROALN2"",30,0)"
^XMB(3.9,148,2,6460,0)=" Q"
^XMB(3.9,148,2,6461,0)="""RTN"",""SROALN3"")"
^XMB(3.9,148,2,6462,0)="0^20^B12090037^B12613397"
^XMB(3.9,148,2,6463,0)="""RTN"",""SROALN3"",1,0)"
^XMB(3.9,148,2,6464,0)="SROALN3 ;BIR/MAM - LAB INFO ;06/27/06"
^XMB(3.9,148,2,6465,0)="""RTN"",""SROALN3"",2,0)"
^XMB(3.9,148,2,6466,0)=" ;;3.0; Surgery ;**38,47,88,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,6467,0)="""RTN"",""SROALN3"",3,0)"
^XMB(3.9,148,2,6468,0)=" F SHEMP=203,204 S SRA(SHEMP)=$G(^SRF(SRTN,SHEMP))"
^XMB(3.9,148,2,6469,0)="""RTN"",""SROALN3"",4,0)"
^XMB(3.9,148,2,6470,0)=" S SHEMP=$P(SRA(203),""^"",16),SRAO(1)=SHEMP_""^^445^445.1"" S X=$P(SRA(204),""^"",16) I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(1),""^"",2)=SHEMP"
^XMB(3.9,148,2,6471,0)="""RTN"",""SROALN3"",5,0)"
^XMB(3.9,148,2,6472,0)=" S SHEMP=$P(SRA(203),""^""),SRAO(2)=SHEMP_""^^274^305"" S X=$P(SRA(204),""^"") I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(2),""^"",2)=SHEMP"
^XMB(3.9,148,2,6473,0)="""RTN"",""SROALN3"",6,0)"
^XMB(3.9,148,2,6474,0)=" S SHEMP=$P(SRA(203),""^"",2),SRAO(3)=SHEMP_""^^405^407"" S X=$P(SRA(204),""^"",2) I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(3),""^"",2)=SHEMP"
^XMB(3.9,148,2,6475,0)="""RTN"",""SROALN3"",7,0)"
^XMB(3.9,148,2,6476,0)=" S SHEMP=$P(SRA(203),""^"",3),SRAO(4)=SHEMP_""^^275^306"" S X=$P(SRA(204),""^"",3) I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(4),""^"",2)=SHEMP"
^XMB(3.9,148,2,6477,0)="""RTN"",""SROALN3"",8,0)"
^XMB(3.9,148,2,6478,0)=" S SHEMP=$P(SRA(203),""^"",4),SRAO(5)=SHEMP_""^^406^408"" S X=$P(SRA(204),""^"",4) I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(5),""^"",2)=SHEMP"
^XMB(3.9,148,2,6479,0)="""RTN"",""SROALN3"",9,0)"
^XMB(3.9,148,2,6480,0)=" S SHEMP=$P(SRA(203),""^"",6),SRAO(6)=SHEMP_""^^277^308"" S X=$P(SRA(204),""^"",6) I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(6),""^"",2)=SHEMP"
^XMB(3.9,148,2,6481,0)="""RTN"",""SROALN3"",10,0)"
^XMB(3.9,148,2,6482,0)=" S SHEMP=$P(SRA(203),""^"",7),SRAO(7)=SHEMP_""^^278^309"" S X=$P(SRA(204),""^"",7) I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(7),""^"",2)=SHEMP"
^XMB(3.9,148,2,6483,0)="""RTN"",""SROALN3"",11,0)"
^XMB(3.9,148,2,6484,0)=" S SHEMP=$P(SRA(203),""^"",8),SRAO(8)=SHEMP_""^^279^310"" S X=$P(SRA(204),""^"",8) I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(8),""^"",2)=SHEMP"
^XMB(3.9,148,2,6485,0)="""RTN"",""SROALN3"",12,0)"
^XMB(3.9,148,2,6486,0)=" S SHEMP=$P(SRA(203),""^"",9),SRAO(9)=SHEMP_""^^280^311"" S X=$P(SRA(204),""^"",9) I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(9),""^"",2)=SHEMP"
^XMB(3.9,148,2,6487,0)="""RTN"",""SROALN3"",13,0)"
^XMB(3.9,148,2,6488,0)=" S SHEMP=$P(SRA(203),""^"",10),SRAO(10)=SHEMP_""^^281^312"" S X=$P(SRA(204),""^"",10) I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(10),""^"",2)=SHEMP"
^XMB(3.9,148,2,6489,0)="""RTN"",""SROALN3"",14,0)"
^XMB(3.9,148,2,6490,0)=" S SHEMP=$P(SRA(203),""^"",12),SRAO(11)=SHEMP_""^^283^314"" S X=$P(SRA(204),""^"",12) I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(11),""^"",2)=SHEMP"
^XMB(3.9,148,2,6491,0)="""RTN"",""SROALN3"",15,0)"
^XMB(3.9,148,2,6492,0)=" S SHEMP=$P(SRA(203),""^"",13),SRAO(12)=SHEMP_""^^455^455.1"" S X=$P(SRA(204),""^"",13) I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(12),""^"",2)=SHEMP"
^XMB(3.9,148,2,6493,0)="""RTN"",""SROALN3"",16,0)"
^XMB(3.9,148,2,6494,0)=" S SHEMP=$P(SRA(203),""^"",14),SRAO(13)=SHEMP_""^^456^456.1"" S X=$P(SRA(204),""^"",14) I X D DATE S SHEMP=""(""_Y_"")"",$P(SRAO(13),""^"",2)=SHEMP"
^XMB(3.9,148,2,6495,0)="""RTN"",""SROALN3"",17,0)"
^XMB(3.9,148,2,6496,0)=" S SRPAGE=""PAGE: 2 OF 2"",SRHDR(.5)=""POSTOP LAB RESULTS WITHIN 30 DAYS AFTER SURGERY"" D HDR^SROAUTL"
^XMB(3.9,148,2,6497,0)="""RTN"",""SROALN3"",18,0)"
^XMB(3.9,148,2,6498,0)=" W !,"" 1. Highest Anion Gap:"",?30,$J($P(SRAO(1),""^""),6),?40,$P(SRAO(1),""^"",2)"
^XMB(3.9,148,2,6499,0)="""RTN"",""SROALN3"",19,0)"
^XMB(3.9,148,2,6500,0)=" W !,"" 2. Highest Serum Sodium:"",?30,$J($P(SRAO(2),""^""),6),?40,$P(SRAO(2),""^"",2)"
^XMB(3.9,148,2,6501,0)="""RTN"",""SROALN3"",20,0)"
^XMB(3.9,148,2,6502,0)=" W !,"" 3. Lowest Serum Sodium:"",?30,$J($P(SRAO(3),""^""),6),?40,$P(SRAO(3),""^"",2)"
^XMB(3.9,148,2,6503,0)="""RTN"",""SROALN3"",21,0)"
^XMB(3.9,148,2,6504,0)=" W !,"" 4. Highest Potassium:"",?30,$J($P(SRAO(4),""^""),6),?40,$P(SRAO(4),""^"",2)"
^XMB(3.9,148,2,6505,0)="""RTN"",""SROALN3"",22,0)"
^XMB(3.9,148,2,6506,0)=" W !,"" 5. Lowest Potassium:"",?30,$J($P(SRAO(5),""^""),6),?40,$P(SRAO(5),""^"",2)"
^XMB(3.9,148,2,6507,0)="""RTN"",""SROALN3"",23,0)"
^XMB(3.9,148,2,6508,0)=" W !,"" 6. Highest Serum Creatinine: "",?30,$J($P(SRAO(6),""^""),6),?40,$P(SRAO(6),""^"",2)"
^XMB(3.9,148,2,6509,0)="""RTN"",""SROALN3"",24,0)"
^XMB(3.9,148,2,6510,0)=" W !,"" 7. Highest CPK: "",?30,$J($P(SRAO(7),""^""),6),?40,$P(SRAO(7),""^"",2)"
^XMB(3.9,148,2,6511,0)="""RTN"",""SROALN3"",25,0)"
^XMB(3.9,148,2,6512,0)=" W !,"" 8. Highest CPK-MB Band: "",?30,$J($P(SRAO(8),""^""),6),?40,$P(SRAO(8),""^"",2)"
^XMB(3.9,148,2,6513,0)="""RTN"",""SROALN3"",26,0)"
^XMB(3.9,148,2,6514,0)=" W !,"" 9. Highest Total Bilirubin: "",?30,$J($P(SRAO(9),""^""),6),?40,$P(SRAO(9),""^"",2)"
^XMB(3.9,148,2,6515,0)="""RTN"",""SROALN3"",27,0)"
^XMB(3.9,148,2,6516,0)=" W !,""10. Highest WBC:"",?30,$J($P(SRAO(10),""^""),6),?40,$P(SRAO(10),""^"",2)"
^XMB(3.9,148,2,6517,0)="""RTN"",""SROALN3"",28,0)"
^XMB(3.9,148,2,6518,0)=" W !,""11. Lowest Hematocrit:"",?30,$J($P(SRAO(11),""^""),6),?40,$P(SRAO(11),""^"",2)"
^XMB(3.9,148,2,6519,0)="""RTN"",""SROALN3"",29,0)"
^XMB(3.9,148,2,6520,0)=" W !,""12. Highest Troponin I:"",?30,$J($P(SRAO(12),""^""),6),?40,$P(SRAO(12),""^"",2)"
^XMB(3.9,148,2,6521,0)="""RTN"",""SROALN3"",30,0)"
^XMB(3.9,148,2,6522,0)=" W !,""13. Highest Troponin T:"",?30,$J($P(SRAO(13),""^""),6),?40,$P(SRAO(13),""^"",2)"
^XMB(3.9,148,2,6523,0)="""RTN"",""SROALN3"",31,0)"
^XMB(3.9,148,2,6524,0)=" W !! F MOE=1:1:80 W ""-"""
^XMB(3.9,148,2,6525,0)="""RTN"",""SROALN3"",32,0)"
^XMB(3.9,148,2,6526,0)=" Q"
^XMB(3.9,148,2,6527,0)="""RTN"",""SROALN3"",33,0)"
^XMB(3.9,148,2,6528,0)="DATE S Y=X X ^DD(""DD"")"
^XMB(3.9,148,2,6529,0)="""RTN"",""SROALN3"",34,0)"
^XMB(3.9,148,2,6530,0)=" Q"
^XMB(3.9,148,2,6531,0)="""RTN"",""SROALOG"")"
^XMB(3.9,148,2,6532,0)="0^27^B16589351^B17382134"
^XMB(3.9,148,2,6533,0)="""RTN"",""SROALOG"",1,0)"
^XMB(3.9,148,2,6534,0)="SROALOG ;BIR/MAM - ASSESSMENT LOG ;03/24/06"
^XMB(3.9,148,2,6535,0)="""RTN"",""SROALOG"",2,0)"
^XMB(3.9,148,2,6536,0)=" ;;3.0; Surgery ;**38,55,62,77,50,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,6537,0)="""RTN"",""SROALOG"",3,0)"
^XMB(3.9,148,2,6538,0)=" K SRMNA S (SRSOUT,SRFLG,SRSP)=0"
^XMB(3.9,148,2,6539,0)="""RTN"",""SROALOG"",4,0)"
^XMB(3.9,148,2,6540,0)="START G:SRSOUT END W @IOF,!,""List of Surgery Risk Assessments"",!!,""  1. List of Incomplete Assessments"""
^XMB(3.9,148,2,6541,0)="""RTN"",""SROALOG"",5,0)"
^XMB(3.9,148,2,6542,0)=" W !,""  2. List of Completed Assessments"",!,""  3. List of Transmitted Assessments"""
^XMB(3.9,148,2,6543,0)="""RTN"",""SROALOG"",6,0)"
^XMB(3.9,148,2,6544,0)=" W !,""  4. List of Non-Assessed Major Surgical Cases"",!,""  5. List of All Major Surgical Cases"""
^XMB(3.9,148,2,6545,0)="""RTN"",""SROALOG"",7,0)"
^XMB(3.9,148,2,6546,0)=" W !,""  6. List of All Surgical Cases"",!,""  7. List of Completed/Transmitted Assessments Missing Information"""
^XMB(3.9,148,2,6547,0)="""RTN"",""SROALOG"",8,0)"
^XMB(3.9,148,2,6548,0)=" W !,""  8. List of 1-Liner Cases Missing Information"""
^XMB(3.9,148,2,6549,0)="""RTN"",""SROALOG"",9,0)"
^XMB(3.9,148,2,6550,0)=" W !!,""Select the Number of the Report Desired: "" R X:DTIME I '$T!(""^""[X) S SRSOUT=1 G END"
^XMB(3.9,148,2,6551,0)="""RTN"",""SROALOG"",10,0)"
^XMB(3.9,148,2,6552,0)=" I X<1!(X>8)!(X\1'=X) D HELP G START"
^XMB(3.9,148,2,6553,0)="""RTN"",""SROALOG"",11,0)"
^XMB(3.9,148,2,6554,0)=" S SREPORT=X"
^XMB(3.9,148,2,6555,0)="""RTN"",""SROALOG"",12,0)"
^XMB(3.9,148,2,6556,0)="DATE D DATE^SROUTL(.SRSD,.SRED,.SRSOUT) G:SRSOUT END"
^XMB(3.9,148,2,6557,0)="""RTN"",""SROALOG"",13,0)"
^XMB(3.9,148,2,6558,0)=" D SEL G:SRSOUT END"
^XMB(3.9,148,2,6559,0)="""RTN"",""SROALOG"",14,0)"
^XMB(3.9,148,2,6560,0)=" I SREPORT<7 W @IOF,!,""This report is designed to print to your terminal screen or a printer.  When"",!,""using a printer, a 132 column format is used."",!"
^XMB(3.9,148,2,6561,0)="""RTN"",""SROALOG"",15,0)"
^XMB(3.9,148,2,6562,0)=" K IOP,%ZIS,POP,IO(""Q"") S %ZIS(""A"")=""Print the List of Assessments to which Device: "",%ZIS=""QM"" D ^%ZIS I POP S SRSOUT=1 G END"
^XMB(3.9,148,2,6563,0)="""RTN"",""SROALOG"",16,0)"
^XMB(3.9,148,2,6564,0)=" I $D(IO(""Q"")) K IO(""Q"") S ZTRTN=""EN^SROALOG"",ZTDESC=""List of Surgery Risk Assessments"",(ZTSAVE(""SRSD""),ZTSAVE(""SRED""),ZTSAVE(""SREPORT""),ZTSAVE(""SRASP""),ZTSAVE(""SRFLG""),ZTSAVE(""SRSP""),ZTSAVE(""SRSITE*""))="""",ZTREQ=""@"" D ^%ZTLOAD G END"
^XMB(3.9,148,2,6565,0)="""RTN"",""SROALOG"",17,0)"
^XMB(3.9,148,2,6566,0)="EN ; entry when queued"
^XMB(3.9,148,2,6567,0)="""RTN"",""SROALOG"",18,0)"
^XMB(3.9,148,2,6568,0)=" N SRFRTO S Y=SRSD X ^DD(""DD"") S SRFRTO=""FROM: ""_Y_""  TO: "",Y=SRED X ^DD(""DD"") S SRFRTO=SRFRTO_Y"
^XMB(3.9,148,2,6569,0)="""RTN"",""SROALOG"",19,0)"
^XMB(3.9,148,2,6570,0)=" U IO S SRSD=SRSD-.0001,SRED=SRED_"".9999"",Y=DT X ^DD(""DD"") S SRPRINT=""DATE PRINTED: ""_Y"
^XMB(3.9,148,2,6571,0)="""RTN"",""SROALOG"",20,0)"
^XMB(3.9,148,2,6572,0)=" S SRINST=SRSITE(""SITE""),SRINSTP=SRSITE(""DIV"")"
^XMB(3.9,148,2,6573,0)="""RTN"",""SROALOG"",21,0)"
^XMB(3.9,148,2,6574,0)=" I SREPORT=1 D:SRSP ^SROANTS D:'SRSP ^SROANT G END"
^XMB(3.9,148,2,6575,0)="""RTN"",""SROALOG"",22,0)"
^XMB(3.9,148,2,6576,0)=" I SREPORT=2 D:SRSP ^SROALCS D:'SRSP ^SROALC G END"
^XMB(3.9,148,2,6577,0)="""RTN"",""SROALOG"",23,0)"
^XMB(3.9,148,2,6578,0)=" I SREPORT=3 D:SRSP ^SROALTS D:'SRSP ^SROALT G END"
^XMB(3.9,148,2,6579,0)="""RTN"",""SROALOG"",24,0)"
^XMB(3.9,148,2,6580,0)=" I SREPORT=4 S SRMNA=1 D:SRSP ^SROALLS D:'SRSP ^SROALL G END"
^XMB(3.9,148,2,6581,0)="""RTN"",""SROALOG"",25,0)"
^XMB(3.9,148,2,6582,0)=" I SREPORT=5 D:SRSP ^SROALLS D:'SRSP ^SROALL G END"
^XMB(3.9,148,2,6583,0)="""RTN"",""SROALOG"",26,0)"
^XMB(3.9,148,2,6584,0)=" I SREPORT=7 D ^SROALM G END"
^XMB(3.9,148,2,6585,0)="""RTN"",""SROALOG"",27,0)"
^XMB(3.9,148,2,6586,0)=" I SREPORT=8 D ^SROALMN G END"
^XMB(3.9,148,2,6587,0)="""RTN"",""SROALOG"",28,0)"
^XMB(3.9,148,2,6588,0)=" D:SRSP ^SROALSS D:'SRSP ^SROALST"
^XMB(3.9,148,2,6589,0)="""RTN"",""SROALOG"",29,0)"
^XMB(3.9,148,2,6590,0)="END I 'SRSOUT,$E(IOST)'=""P"" W !!,""Press <RET> to continue  "" R X:DTIME"
^XMB(3.9,148,2,6591,0)="""RTN"",""SROALOG"",30,0)"
^XMB(3.9,148,2,6592,0)=" W:$E(IOST)=""P"" @IOF K ^TMP(""SRA"",$J) I $D(ZTQUEUED) Q:$G(ZTSTOP)  S ZTREQ=""@"" Q"
^XMB(3.9,148,2,6593,0)="""RTN"",""SROALOG"",31,0)"
^XMB(3.9,148,2,6594,0)=" D ^%ZISC K SRTN W @IOF D ^SRSKILL"
^XMB(3.9,148,2,6595,0)="""RTN"",""SROALOG"",32,0)"
^XMB(3.9,148,2,6596,0)=" Q"
^XMB(3.9,148,2,6597,0)="""RTN"",""SROALOG"",33,0)"
^XMB(3.9,148,2,6598,0)="HELP W !!,""Select the number corresponding to the type of report you want to print."",!!,""Press <RET> to continue  "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1"
^XMB(3.9,148,2,6599,0)="""RTN"",""SROALOG"",34,0)"
^XMB(3.9,148,2,6600,0)=" Q"
^XMB(3.9,148,2,6601,0)="""RTN"",""SROALOG"",35,0)"
^XMB(3.9,148,2,6602,0)="SEL ; select specialty"
^XMB(3.9,148,2,6603,0)="""RTN"",""SROALOG"",36,0)"
^XMB(3.9,148,2,6604,0)=" W !!,""Print by Surgical Specialty ?  YES// "" R X:DTIME S:'$T X=""^"" I X=""^"" S SRSOUT=1 Q"
^XMB(3.9,148,2,6605,0)="""RTN"",""SROALOG"",37,0)"
^XMB(3.9,148,2,6606,0)=" S X=$E(X) I ""YyNn""'[X W !!,""Enter <RET> to print the report by surgical specialty, or 'N' to print"",!,""the report listing all surgical cases."" G SEL"
^XMB(3.9,148,2,6607,0)="""RTN"",""SROALOG"",38,0)"
^XMB(3.9,148,2,6608,0)=" Q:""Yy""'[X"
^XMB(3.9,148,2,6609,0)="""RTN"",""SROALOG"",39,0)"
^XMB(3.9,148,2,6610,0)="SEL1 S SRSP=1 W !!,""Print report for ALL specialties ?  YES// "" R X:DTIME S:'$T X=""^"" I X=""^"" S SRSOUT=1 Q"
^XMB(3.9,148,2,6611,0)="""RTN"",""SROALOG"",40,0)"
^XMB(3.9,148,2,6612,0)=" S X=$E(X) I ""YyNn""'[X W !!,""Enter <RET> to print the report for all surgical specialties, or 'N' to "",!,""print the report for a specific surgical specialty."" G SEL1"
^XMB(3.9,148,2,6613,0)="""RTN"",""SROALOG"",41,0)"
^XMB(3.9,148,2,6614,0)=" I ""Yy""'[X W ! S DIC(""S"")=""I '$P(^(0),""""^"""",3)"",DIC(""A"")=""Print the Report for which Surgical Specialty: "",DIC=137.45,DIC(0)=""QEAMZ"" D ^DIC K DIC I Y>0 S SRASP=+Y,SRFLG=1 Q"
^XMB(3.9,148,2,6615,0)="""RTN"",""SROALOG"",42,0)"
^XMB(3.9,148,2,6616,0)=" I Y'>0 S SRSOUT=1 Q"
^XMB(3.9,148,2,6617,0)="""RTN"",""SROALOG"",43,0)"
^XMB(3.9,148,2,6618,0)=" Q"
^XMB(3.9,148,2,6619,0)="""RTN"",""SROALSS"")"
^XMB(3.9,148,2,6620,0)="0^66^B17218994^B17249054"
^XMB(3.9,148,2,6621,0)="""RTN"",""SROALSS"",1,0)"
^XMB(3.9,148,2,6622,0)="SROALSS ;BIR/ADM - ALL CASES BY SPECIALTY ;03/16/06"
^XMB(3.9,148,2,6623,0)="""RTN"",""SROALSS"",2,0)"
^XMB(3.9,148,2,6624,0)=" ;;3.0; Surgery ;**38,47,50,100,142,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,6625,0)="""RTN"",""SROALSS"",3,0)"
^XMB(3.9,148,2,6626,0)=" I $E(IOST)=""P"" D ^SROALSSP Q"
^XMB(3.9,148,2,6627,0)="""RTN"",""SROALSS"",4,0)"
^XMB(3.9,148,2,6628,0)="START S SRSOUT=0 K ^TMP(""SRA"",$J)"
^XMB(3.9,148,2,6629,0)="""RTN"",""SROALSS"",5,0)"
^XMB(3.9,148,2,6630,0)=" F  S SRSD=$O(^SRF(""AC"",SRSD)) Q:'SRSD!(SRSD>SRED)!SRSOUT  S SRTN=0 F  S SRTN=$O(^SRF(""AC"",SRSD,SRTN)) Q:'SRTN!SRSOUT  I $D(^SRF(SRTN,0)),$$DIV^SROUTL0(SRTN) D UTL"
^XMB(3.9,148,2,6631,0)="""RTN"",""SROALSS"",6,0)"
^XMB(3.9,148,2,6632,0)=" D PRINT Q"
^XMB(3.9,148,2,6633,0)="""RTN"",""SROALSS"",7,0)"
^XMB(3.9,148,2,6634,0)="UTL ; write to ^TMP(""SRA,$J)"
^XMB(3.9,148,2,6635,0)="""RTN"",""SROALSS"",8,0)"
^XMB(3.9,148,2,6636,0)=" S SRA(0)=^SRF(SRTN,0)"
^XMB(3.9,148,2,6637,0)="""RTN"",""SROALSS"",9,0)"
^XMB(3.9,148,2,6638,0)=" S CAN=$P($G(^SRF(SRTN,30)),""^"") I CAN Q"
^XMB(3.9,148,2,6639,0)="""RTN"",""SROALSS"",10,0)"
^XMB(3.9,148,2,6640,0)=" S CAN=$P($G(^SRF(SRTN,31)),""^"",8) I CAN'="""" Q"
^XMB(3.9,148,2,6641,0)="""RTN"",""SROALSS"",11,0)"
^XMB(3.9,148,2,6642,0)=" S X=$P($G(^SRF(SRTN,.2)),""^"",12) I 'X Q"
^XMB(3.9,148,2,6643,0)="""RTN"",""SROALSS"",12,0)"
^XMB(3.9,148,2,6644,0)=" I SRFLG,$P(^SRF(SRTN,0),""^"",4)'=SRASP Q"
^XMB(3.9,148,2,6645,0)="""RTN"",""SROALSS"",13,0)"
^XMB(3.9,148,2,6646,0)=" S SRSS=$P(^SRF(SRTN,0),""^"",4),SRSS=$S(SRSS:$P(^SRO(137.45,SRSS,0),""^""),1:""SPECIALTY NOT ENTERED"")"
^XMB(3.9,148,2,6647,0)="""RTN"",""SROALSS"",14,0)"
^XMB(3.9,148,2,6648,0)=" S ^TMP(""SRA"",$J,SRSS,SRTN)="""""
^XMB(3.9,148,2,6649,0)="""RTN"",""SROALSS"",15,0)"
^XMB(3.9,148,2,6650,0)=" Q"
^XMB(3.9,148,2,6651,0)="""RTN"",""SROALSS"",16,0)"
^XMB(3.9,148,2,6652,0)="SET ; set variables"
^XMB(3.9,148,2,6653,0)="""RTN"",""SROALSS"",17,0)"
^XMB(3.9,148,2,6654,0)=" K SRCPTT S SRCPTT=""NOT ENTERED"""
^XMB(3.9,148,2,6655,0)="""RTN"",""SROALSS"",18,0)"
^XMB(3.9,148,2,6656,0)=" S SRA(""RA"")=$G(^SRF(SRTN,""RA"")),X=$P(SRA(""RA""),""^""),STATUS=$S(X=""I"":""INCOMPLETE"",X=""C"":""COMPLETED"",X=""T"":""TRANSMITTED"",1:""EXCLUSION"")"
^XMB(3.9,148,2,6657,0)="""RTN"",""SROALSS"",19,0)"
^XMB(3.9,148,2,6658,0)=" S (SREXCL,Y)=$P(SRA(""RA""),""^"",7),C=$P(^DD(130,102,0),""^"",2) D Y^DIQ S SREXCL=Y"
^XMB(3.9,148,2,6659,0)="""RTN"",""SROALSS"",20,0)"
^XMB(3.9,148,2,6660,0)=" I SREXCL="""",STATUS=""EXCLUSION"" S STATUS=""NO ASSESSMENT"""
^XMB(3.9,148,2,6661,0)="""RTN"",""SROALSS"",21,0)"
^XMB(3.9,148,2,6662,0)=" S SRA(0)=^SRF(SRTN,0),DFN=$P(SRA(0),""^"") N I D DEM^VADPT S SRANM=VADM(1),SRASSN=VA(""PID"") K VADM"
^XMB(3.9,148,2,6663,0)="""RTN"",""SROALSS"",22,0)"
^XMB(3.9,148,2,6664,0)=" I $L(SRANM)>19 S SRANM=$P(SRANM,"","")_"",""_$E($P(SRANM,"","",2))_""."""
^XMB(3.9,148,2,6665,0)="""RTN"",""SROALSS"",23,0)"
^XMB(3.9,148,2,6666,0)=" S X=^SRF(SRTN,""OP""),SROPER=$P(X,""^"")"
^XMB(3.9,148,2,6667,0)="""RTN"",""SROALSS"",24,0)"
^XMB(3.9,148,2,6668,0)=" I $O(^SRF(SRTN,13,0)) S SROTHER=0 F I=0:0 S SROTHER=$O(^SRF(SRTN,13,SROTHER)) Q:'SROTHER  D OTHER"
^XMB(3.9,148,2,6669,0)="""RTN"",""SROALSS"",25,0)"
^XMB(3.9,148,2,6670,0)=" S X=$P($G(^SRF(SRTN,""RA"")),""^"",2) I X=""C"" S SROPER=""* ""_SROPER"
^XMB(3.9,148,2,6671,0)="""RTN"",""SROALSS"",26,0)"
^XMB(3.9,148,2,6672,0)=" K SROPS,MM,MMM S:$L(SROPER)<34 SROPS(1)=SROPER I $L(SROPER)>33 S SROPER=SROPER_""  "" F M=1:1 D LOOP Q:MMM="""""
^XMB(3.9,148,2,6673,0)="""RTN"",""SROALSS"",27,0)"
^XMB(3.9,148,2,6674,0)=" S SRSS=$P(SRA(0),""^"",4),SRSS=$S(SRSS:$P(^SRO(137.45,SRSS,0),""^""),1:""SPECIALTY NOT ENTERED"")"
^XMB(3.9,148,2,6675,0)="""RTN"",""SROALSS"",28,0)"
^XMB(3.9,148,2,6676,0)=" D TECH^SROPRIN"
^XMB(3.9,148,2,6677,0)="""RTN"",""SROALSS"",29,0)"
^XMB(3.9,148,2,6678,0)=" S Y=$P(SRA(0),""^"",9) D D^DIQ S SRDT=$P(Y,""@"")"
^XMB(3.9,148,2,6679,0)="""RTN"",""SROALSS"",30,0)"
^XMB(3.9,148,2,6680,0)=" S (SRDOC,Y)=$P($G(^SRF(SRTN,.1)),""^"",4),C=$P(^DD(130,.14,0),""^"",2) D:Y'="""" Y^DIQ I $L(Y)>18 S Z=$P(Y,"","")_"",""_$E($P(Y,"","",2))_""."",Y=Z"
^XMB(3.9,148,2,6681,0)="""RTN"",""SROALSS"",31,0)"
^XMB(3.9,148,2,6682,0)=" S SRDOC=Y"
^XMB(3.9,148,2,6683,0)="""RTN"",""SROALSS"",32,0)"
^XMB(3.9,148,2,6684,0)=" Q"
^XMB(3.9,148,2,6685,0)="""RTN"",""SROALSS"",33,0)"
^XMB(3.9,148,2,6686,0)="PRINT ;"
^XMB(3.9,148,2,6687,0)="""RTN"",""SROALSS"",34,0)"
^XMB(3.9,148,2,6688,0)=" U IO S SRSS="""",SRTC=0 D HDR"
^XMB(3.9,148,2,6689,0)="""RTN"",""SROALSS"",35,0)"
^XMB(3.9,148,2,6690,0)=" F  S SRSS=$O(^TMP(""SRA"",$J,SRSS)) Q:SRSS=""""!SRSOUT  S SRC=0 D SS S SRTN=0 F  S SRTN=$O(^TMP(""SRA"",$J,SRSS,SRTN)) D:'SRTN SSCT Q:'SRTN!SRSOUT  D SET,CASE"
^XMB(3.9,148,2,6691,0)="""RTN"",""SROALSS"",36,0)"
^XMB(3.9,148,2,6692,0)=" Q:SRSOUT!SRFLG  I $Y+5>IOSL D PAGE Q:SRSOUT  D HDR"
^XMB(3.9,148,2,6693,0)="""RTN"",""SROALSS"",37,0)"
^XMB(3.9,148,2,6694,0)=" W !!,""TOTAL CASES FOR ALL SPECIALTIES: "",SRTC"
^XMB(3.9,148,2,6695,0)="""RTN"",""SROALSS"",38,0)"
^XMB(3.9,148,2,6696,0)=" Q"
^XMB(3.9,148,2,6697,0)="""RTN"",""SROALSS"",39,0)"
^XMB(3.9,148,2,6698,0)="CASE ; print a case"
^XMB(3.9,148,2,6699,0)="""RTN"",""SROALSS"",40,0)"
^XMB(3.9,148,2,6700,0)=" S SRC=SRC+1,SRTC=SRTC+1"
^XMB(3.9,148,2,6701,0)="""RTN"",""SROALSS"",41,0)"
^XMB(3.9,148,2,6702,0)=" I $Y+5>IOSL D PAGE Q:SRSOUT"
^XMB(3.9,148,2,6703,0)="""RTN"",""SROALSS"",42,0)"
^XMB(3.9,148,2,6704,0)=" W !,SRTN,?20,SRANM_""  ""_VA(""PID""),?55,STATUS,!,SRDT,?20,SROPS(1),?55,SRTECH"
^XMB(3.9,148,2,6705,0)="""RTN"",""SROALSS"",43,0)"
^XMB(3.9,148,2,6706,0)=" W !,SRDOC W:$D(SROPS(2)) ?20,SROPS(2) W ?55,SREXCL"
^XMB(3.9,148,2,6707,0)="""RTN"",""SROALSS"",44,0)"
^XMB(3.9,148,2,6708,0)=" I $D(SROPS(3)) W !,?20,SROPS(3) I $D(SROPS(4)) W !,?20,SROPS(4)"
^XMB(3.9,148,2,6709,0)="""RTN"",""SROALSS"",45,0)"
^XMB(3.9,148,2,6710,0)=" N I,SRPROC,SRL S SRL=48 D CPTS^SROAUTL0 W !,?20,""CPT Codes: """
^XMB(3.9,148,2,6711,0)="""RTN"",""SROALSS"",46,0)"
^XMB(3.9,148,2,6712,0)=" F I=1:1 Q:'$D(SRPROC(I))  W:I=1 ?31,SRPROC(I) W:I'=1 !,?31,SRPROC(I)"
^XMB(3.9,148,2,6713,0)="""RTN"",""SROALSS"",47,0)"
^XMB(3.9,148,2,6714,0)=" W ! F LINE=1:1:80 W ""-"""
^XMB(3.9,148,2,6715,0)="""RTN"",""SROALSS"",48,0)"
^XMB(3.9,148,2,6716,0)=" Q"
^XMB(3.9,148,2,6717,0)="""RTN"",""SROALSS"",49,0)"
^XMB(3.9,148,2,6718,0)="SS ; print surgical specialty"
^XMB(3.9,148,2,6719,0)="""RTN"",""SROALSS"",50,0)"
^XMB(3.9,148,2,6720,0)=" I $Y+5>IOSL D PAGE Q:SRSOUT"
^XMB(3.9,148,2,6721,0)="""RTN"",""SROALSS"",51,0)"
^XMB(3.9,148,2,6722,0)=" W !,""** SURGICAL SPECIALTY: "",SRSS,"" **"",! Q"
^XMB(3.9,148,2,6723,0)="""RTN"",""SROALSS"",52,0)"
^XMB(3.9,148,2,6724,0)="PAGE W !!,""Press <RET> to continue, or '^' to quit  "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1 Q"
^XMB(3.9,148,2,6725,0)="""RTN"",""SROALSS"",53,0)"
^XMB(3.9,148,2,6726,0)=" I X[""?"" W !!,""If you want to continue listing assessments, enter <RET>.  Enter '^' to"",!,""return to the menu."" G PAGE"
^XMB(3.9,148,2,6727,0)="""RTN"",""SROALSS"",54,0)"
^XMB(3.9,148,2,6728,0)="HDR ; print heading"
^XMB(3.9,148,2,6729,0)="""RTN"",""SROALSS"",55,0)"
^XMB(3.9,148,2,6730,0)=" S SRHD=""ALL SURGICAL CASES BY SURGICAL SPECIALTY"""
^XMB(3.9,148,2,6731,0)="""RTN"",""SROALSS"",56,0)"
^XMB(3.9,148,2,6732,0)=" W @IOF,!,?(80-$L(SRHD)\2),SRHD,!,?(80-$L(SRFRTO)\2),SRFRTO"
^XMB(3.9,148,2,6733,0)="""RTN"",""SROALSS"",57,0)"
^XMB(3.9,148,2,6734,0)=" W !!,""CASE #"",?20,""PATIENT"",?55,""ASSESSMENT STATUS"",!,""OPERATION DATE"",?20,""PRINCIPAL OPERATIVE PROCEDURE"",?55,""ANESTHESIA TECHNIQUE"",!,""SURGEON"",?55,""EXCLUSION CRITERIA"",! F L=1:1:80 W ""="""
^XMB(3.9,148,2,6735,0)="""RTN"",""SROALSS"",58,0)"
^XMB(3.9,148,2,6736,0)=" W ! Q"
^XMB(3.9,148,2,6737,0)="""RTN"",""SROALSS"",59,0)"
^XMB(3.9,148,2,6738,0)="OTHER ; other operations"
^XMB(3.9,148,2,6739,0)="""RTN"",""SROALSS"",60,0)"
^XMB(3.9,148,2,6740,0)=" S SRLONG=1 I $L(SROPER)+$L($P(^SRF(SRTN,13,SROTHER,0),""^""))>125 S SRLONG=0,OPER=999,SROPERS="" ..."""
^XMB(3.9,148,2,6741,0)="""RTN"",""SROALSS"",61,0)"
^XMB(3.9,148,2,6742,0)=" I SRLONG S SROPERS=$P(^SRF(SRTN,13,SROTHER,0),""^"")"
^XMB(3.9,148,2,6743,0)="""RTN"",""SROALSS"",62,0)"
^XMB(3.9,148,2,6744,0)=" S SROPER=SROPER_$S(SROPERS'="" ..."":"", ""_SROPERS,1:SROPERS)"
^XMB(3.9,148,2,6745,0)="""RTN"",""SROALSS"",63,0)"
^XMB(3.9,148,2,6746,0)=" Q"
^XMB(3.9,148,2,6747,0)="""RTN"",""SROALSS"",64,0)"
^XMB(3.9,148,2,6748,0)="LOOP ; break procedures"
^XMB(3.9,148,2,6749,0)="""RTN"",""SROALSS"",65,0)"
^XMB(3.9,148,2,6750,0)=" S SROPS(M)="""" F LOOP=1:1 S MM=$P(SROPER,"" ""),MMM=$P(SROPER,"" "",2,200) Q:MMM=""""  Q:$L(SROPS(M))+$L(MM)'<34  S SROPS(M)=SROPS(M)_MM_"" "",SROPER=MMM"
^XMB(3.9,148,2,6751,0)="""RTN"",""SROALSS"",66,0)"
^XMB(3.9,148,2,6752,0)=" Q"
^XMB(3.9,148,2,6753,0)="""RTN"",""SROALSS"",67,0)"
^XMB(3.9,148,2,6754,0)="SSCT ; write specialty count"
^XMB(3.9,148,2,6755,0)="""RTN"",""SROALSS"",68,0)"
^XMB(3.9,148,2,6756,0)=" I $Y+5>IOSL D PAGE Q:SRSOUT"
^XMB(3.9,148,2,6757,0)="""RTN"",""SROALSS"",69,0)"
^XMB(3.9,148,2,6758,0)=" W !,""TOTAL "",SRSS,"": "",SRC,! F L=1:1:80 W ""-"""
^XMB(3.9,148,2,6759,0)="""RTN"",""SROALSS"",70,0)"
^XMB(3.9,148,2,6760,0)=" Q"
^XMB(3.9,148,2,6761,0)="""RTN"",""SROALSSP"")"
^XMB(3.9,148,2,6762,0)="0^67^B17029510^B17066208"
^XMB(3.9,148,2,6763,0)="""RTN"",""SROALSSP"",1,0)"
^XMB(3.9,148,2,6764,0)="SROALSSP ;BIR/ADM - ASSESSMENTS BY SPECIALTY (PRINTER) ;03/16/06"
^XMB(3.9,148,2,6765,0)="""RTN"",""SROALSSP"",2,0)"
^XMB(3.9,148,2,6766,0)=" ;;3.0; Surgery ;**32,47,50,100,142,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,6767,0)="""RTN"",""SROALSSP"",3,0)"
^XMB(3.9,148,2,6768,0)="START S SRSOUT=0 K ^TMP(""SRA"",$J)"
^XMB(3.9,148,2,6769,0)="""RTN"",""SROALSSP"",4,0)"
^XMB(3.9,148,2,6770,0)=" F  S SRSD=$O(^SRF(""AC"",SRSD)) Q:'SRSD!(SRSD>SRED)  S SRTN=0 F  S SRTN=$O(^SRF(""AC"",SRSD,SRTN)) Q:'SRTN  I $D(^SRF(SRTN,0)),$$DIV^SROUTL0(SRTN) D UTL"
^XMB(3.9,148,2,6771,0)="""RTN"",""SROALSSP"",5,0)"
^XMB(3.9,148,2,6772,0)=" D PRINT Q"
^XMB(3.9,148,2,6773,0)="""RTN"",""SROALSSP"",6,0)"
^XMB(3.9,148,2,6774,0)="UTL ; write to ^TMP(""SRA,$J)"
^XMB(3.9,148,2,6775,0)="""RTN"",""SROALSSP"",7,0)"
^XMB(3.9,148,2,6776,0)=" S SRA(0)=^SRF(SRTN,0)"
^XMB(3.9,148,2,6777,0)="""RTN"",""SROALSSP"",8,0)"
^XMB(3.9,148,2,6778,0)=" S CAN=$P($G(^SRF(SRTN,30)),""^"") I CAN Q"
^XMB(3.9,148,2,6779,0)="""RTN"",""SROALSSP"",9,0)"
^XMB(3.9,148,2,6780,0)=" S CAN=$P($G(^SRF(SRTN,31)),""^"",8) I CAN'="""" Q"
^XMB(3.9,148,2,6781,0)="""RTN"",""SROALSSP"",10,0)"
^XMB(3.9,148,2,6782,0)=" S X=$P($G(^SRF(SRTN,.2)),""^"",12) I 'X Q"
^XMB(3.9,148,2,6783,0)="""RTN"",""SROALSSP"",11,0)"
^XMB(3.9,148,2,6784,0)=" I SRFLG,$P(^SRF(SRTN,0),""^"",4)'=SRASP Q"
^XMB(3.9,148,2,6785,0)="""RTN"",""SROALSSP"",12,0)"
^XMB(3.9,148,2,6786,0)=" S SRSS=$P(^SRF(SRTN,0),""^"",4),SRSS=$S(SRSS:$P(^SRO(137.45,SRSS,0),""^""),1:""SPECIALTY NOT ENTERED"")"
^XMB(3.9,148,2,6787,0)="""RTN"",""SROALSSP"",13,0)"
^XMB(3.9,148,2,6788,0)=" S TYPE=$P($G(^SRF(SRTN,""RA"")),""^"",2) I SRSS=""SPECIALTY NOT ENTERED"",TYPE=""C"" S SRSS=""N/A"""
^XMB(3.9,148,2,6789,0)="""RTN"",""SROALSSP"",14,0)"
^XMB(3.9,148,2,6790,0)=" S ^TMP(""SRA"",$J,SRSS,SRTN)="""""
^XMB(3.9,148,2,6791,0)="""RTN"",""SROALSSP"",15,0)"
^XMB(3.9,148,2,6792,0)=" Q"
^XMB(3.9,148,2,6793,0)="""RTN"",""SROALSSP"",16,0)"
^XMB(3.9,148,2,6794,0)="SET ; set variables"
^XMB(3.9,148,2,6795,0)="""RTN"",""SROALSSP"",17,0)"
^XMB(3.9,148,2,6796,0)=" K SRCPTT S SRCPTT=""NOT ENTERED"""
^XMB(3.9,148,2,6797,0)="""RTN"",""SROALSSP"",18,0)"
^XMB(3.9,148,2,6798,0)=" S SRA(""RA"")=$G(^SRF(SRTN,""RA"")),X=$P(SRA(""RA""),""^""),STATUS=$S(X=""I"":""INCOMPLETE"",X=""C"":""COMPLETED"",X=""T"":""TRANSMITTED"",1:""EXCLUSION"")"
^XMB(3.9,148,2,6799,0)="""RTN"",""SROALSSP"",19,0)"
^XMB(3.9,148,2,6800,0)=" S (SREXCL,Y)=$P(SRA(""RA""),""^"",7),C=$P(^DD(130,102,0),""^"",2) D Y^DIQ S SREXCL=Y"
^XMB(3.9,148,2,6801,0)="""RTN"",""SROALSSP"",20,0)"
^XMB(3.9,148,2,6802,0)=" I SREXCL="""",STATUS=""EXCLUSION"" S STATUS=""NO ASSESSMENT"""
^XMB(3.9,148,2,6803,0)="""RTN"",""SROALSSP"",21,0)"
^XMB(3.9,148,2,6804,0)=" S SRA(0)=^SRF(SRTN,0),DFN=$P(SRA(0),""^"") N I D DEM^VADPT S SRANM=VADM(1),SRASSN=VA(""PID"") K VADM"
^XMB(3.9,148,2,6805,0)="""RTN"",""SROALSSP"",22,0)"
^XMB(3.9,148,2,6806,0)=" S X=^SRF(SRTN,""OP""),SROPER=$P(X,""^"")"
^XMB(3.9,148,2,6807,0)="""RTN"",""SROALSSP"",23,0)"
^XMB(3.9,148,2,6808,0)=" I $O(^SRF(SRTN,13,0)) S SROTHER=0 F I=0:0 S SROTHER=$O(^SRF(SRTN,13,SROTHER)) Q:'SROTHER  D OTHER"
^XMB(3.9,148,2,6809,0)="""RTN"",""SROALSSP"",24,0)"
^XMB(3.9,148,2,6810,0)=" S X=$P($G(^SRF(SRTN,""RA"")),""^"",2) I X=""C"" S SROPER=""* ""_SROPER"
^XMB(3.9,148,2,6811,0)="""RTN"",""SROALSSP"",25,0)"
^XMB(3.9,148,2,6812,0)=" K SROPS,MM,MMM S:$L(SROPER)<34 SROPS(1)=SROPER I $L(SROPER)>33 S SROPER=SROPER_""  "" F M=1:1 D LOOP Q:MMM="""""
^XMB(3.9,148,2,6813,0)="""RTN"",""SROALSSP"",26,0)"
^XMB(3.9,148,2,6814,0)=" S SRSS=$P(SRA(0),""^"",4),SRSS=$S(SRSS:$P(^SRO(137.45,SRSS,0),""^""),1:""SPECIALTY NOT ENTERED"")"
^XMB(3.9,148,2,6815,0)="""RTN"",""SROALSSP"",27,0)"
^XMB(3.9,148,2,6816,0)=" D TECH^SROPRIN"
^XMB(3.9,148,2,6817,0)="""RTN"",""SROALSSP"",28,0)"
^XMB(3.9,148,2,6818,0)=" S Y=$P(SRA(0),""^"",9) D D^DIQ S SRDT=$P(Y,""@"")"
^XMB(3.9,148,2,6819,0)="""RTN"",""SROALSSP"",29,0)"
^XMB(3.9,148,2,6820,0)=" S (SRDOC,Y)=$P($G(^SRF(SRTN,.1)),""^"",4),C=$P(^DD(130,.14,0),""^"",2) D:Y'="""" Y^DIQ I $L(Y)>23 S Z=$P(Y,"","")_"",""_$E($P(Y,"","",2))_""."",Y=Z"
^XMB(3.9,148,2,6821,0)="""RTN"",""SROALSSP"",30,0)"
^XMB(3.9,148,2,6822,0)=" S SRDOC=Y"
^XMB(3.9,148,2,6823,0)="""RTN"",""SROALSSP"",31,0)"
^XMB(3.9,148,2,6824,0)=" Q"
^XMB(3.9,148,2,6825,0)="""RTN"",""SROALSSP"",32,0)"
^XMB(3.9,148,2,6826,0)="PRINT ;"
^XMB(3.9,148,2,6827,0)="""RTN"",""SROALSSP"",33,0)"
^XMB(3.9,148,2,6828,0)=" U IO S SRSS="""",(SRTC,SRPAGE)=0 D HDR Q:SRSOUT"
^XMB(3.9,148,2,6829,0)="""RTN"",""SROALSSP"",34,0)"
^XMB(3.9,148,2,6830,0)=" F  S SRSS=$O(^TMP(""SRA"",$J,SRSS)) Q:SRSS=""""!SRSOUT  S SRC=0 D SS S SRTN=0 F  S SRTN=$O(^TMP(""SRA"",$J,SRSS,SRTN)) D:'SRTN SSCT Q:'SRTN!SRSOUT  D SET,CASE"
^XMB(3.9,148,2,6831,0)="""RTN"",""SROALSSP"",35,0)"
^XMB(3.9,148,2,6832,0)=" Q:SRFLG  I $Y+5>IOSL D HDR Q:SRSOUT"
^XMB(3.9,148,2,6833,0)="""RTN"",""SROALSSP"",36,0)"
^XMB(3.9,148,2,6834,0)=" W !!,""TOTAL MAJOR CASES FOR ALL SPECIALTIES: "",SRTC"
^XMB(3.9,148,2,6835,0)="""RTN"",""SROALSSP"",37,0)"
^XMB(3.9,148,2,6836,0)=" Q"
^XMB(3.9,148,2,6837,0)="""RTN"",""SROALSSP"",38,0)"
^XMB(3.9,148,2,6838,0)="CASE ; print a case"
^XMB(3.9,148,2,6839,0)="""RTN"",""SROALSSP"",39,0)"
^XMB(3.9,148,2,6840,0)=" S SRC=SRC+1,SRTC=SRTC+1"
^XMB(3.9,148,2,6841,0)="""RTN"",""SROALSSP"",40,0)"
^XMB(3.9,148,2,6842,0)=" I $Y+5>IOSL D HDR Q:SRSOUT  W !!,""SURGICAL SPECIALTY: "",SRSS,!"
^XMB(3.9,148,2,6843,0)="""RTN"",""SROALSSP"",41,0)"
^XMB(3.9,148,2,6844,0)=" W !,SRTN,?20,SRANM_""  ""_VA(""PID""),?67,STATUS,?107,SRTECH,!,SRDT,?20,SROPS(1),?67,SREXCL W ?107,SRDOC"
^XMB(3.9,148,2,6845,0)="""RTN"",""SROALSSP"",42,0)"
^XMB(3.9,148,2,6846,0)=" I $D(SROPS(2)) W !,?20,SROPS(2) I $D(SROPS(3)) W !,?20,SROPS(3) I $D(SROPS(4)) W !,?20,SROPS(4)"
^XMB(3.9,148,2,6847,0)="""RTN"",""SROALSSP"",43,0)"
^XMB(3.9,148,2,6848,0)=" N I,SRPROC,SRL S SRL=100 D CPTS^SROAUTL0 W !,?20,""CPT Codes: """
^XMB(3.9,148,2,6849,0)="""RTN"",""SROALSSP"",44,0)"
^XMB(3.9,148,2,6850,0)=" F I=1:1 Q:'$D(SRPROC(I))  W:I=1 ?31,SRPROC(I) W:I'=1 !,?31,SRPROC(I)"
^XMB(3.9,148,2,6851,0)="""RTN"",""SROALSSP"",45,0)"
^XMB(3.9,148,2,6852,0)=" W ! F LINE=1:1:132 W ""-"""
^XMB(3.9,148,2,6853,0)="""RTN"",""SROALSSP"",46,0)"
^XMB(3.9,148,2,6854,0)=" Q"
^XMB(3.9,148,2,6855,0)="""RTN"",""SROALSSP"",47,0)"
^XMB(3.9,148,2,6856,0)="SS ; print surgical specialty"
^XMB(3.9,148,2,6857,0)="""RTN"",""SROALSSP"",48,0)"
^XMB(3.9,148,2,6858,0)=" I $Y+5>IOSL D HDR Q:SRSOUT"
^XMB(3.9,148,2,6859,0)="""RTN"",""SROALSSP"",49,0)"
^XMB(3.9,148,2,6860,0)=" W !!,""SURGICAL SPECIALTY: "",SRSS,! Q"
^XMB(3.9,148,2,6861,0)="""RTN"",""SROALSSP"",50,0)"
^XMB(3.9,148,2,6862,0)="HDR ; print heading"
^XMB(3.9,148,2,6863,0)="""RTN"",""SROALSSP"",51,0)"
^XMB(3.9,148,2,6864,0)=" I $D(ZTQUEUED) D ^SROSTOP I SRHALT S SRSOUT=1 Q"
^XMB(3.9,148,2,6865,0)="""RTN"",""SROALSSP"",52,0)"
^XMB(3.9,148,2,6866,0)=" S SRHD=""ALL SURGICAL CASES BY SURGICAL SPECIALTY"",SRPAGE=SRPAGE+1"
^XMB(3.9,148,2,6867,0)="""RTN"",""SROALSSP"",53,0)"
^XMB(3.9,148,2,6868,0)=" W:$Y @IOF W !,?(132-$L(SRHD)\2),SRHD,?120,""PAGE ""_SRPAGE,!,?(132-$L(SRINST)\2),SRINST,!,?58,""SURGERY SERVICE"",?100,""DATE REVIEWED:"""
^XMB(3.9,148,2,6869,0)="""RTN"",""SROALSSP"",54,0)"
^XMB(3.9,148,2,6870,0)=" W !,?(132-$L(SRFRTO)\2),SRFRTO,?100,""REVIEWED BY:"""
^XMB(3.9,148,2,6871,0)="""RTN"",""SROALSSP"",55,0)"
^XMB(3.9,148,2,6872,0)=" W !!,""CASE #"",?20,""PATIENT"",?67,""ASSESSMENT STATUS"",?107,""ANESTHESIA TECHNIQUE"",!,""OPERATION DATE"",?20,""PRINCIPAL OPERATIVE PROCEDURE"",?67,""EXCLUSION CRITERIA"",?107,""SURGEON"",! F L=1:1:132 W ""="""
^XMB(3.9,148,2,6873,0)="""RTN"",""SROALSSP"",56,0)"
^XMB(3.9,148,2,6874,0)=" Q"
^XMB(3.9,148,2,6875,0)="""RTN"",""SROALSSP"",57,0)"
^XMB(3.9,148,2,6876,0)="OTHER ; other operations"
^XMB(3.9,148,2,6877,0)="""RTN"",""SROALSSP"",58,0)"
^XMB(3.9,148,2,6878,0)=" S SRLONG=1 I $L(SROPER)+$L($P(^SRF(SRTN,13,SROTHER,0),""^""))>165 S SRLONG=0,OPER=999,SROPERS="" ..."""
^XMB(3.9,148,2,6879,0)="""RTN"",""SROALSSP"",59,0)"
^XMB(3.9,148,2,6880,0)=" I SRLONG S SROPERS=$P(^SRF(SRTN,13,SROTHER,0),""^"")"
^XMB(3.9,148,2,6881,0)="""RTN"",""SROALSSP"",60,0)"
^XMB(3.9,148,2,6882,0)=" S SROPER=SROPER_$S(SROPERS'="" ..."":"", ""_SROPERS,1:SROPERS)"
^XMB(3.9,148,2,6883,0)="""RTN"",""SROALSSP"",61,0)"
^XMB(3.9,148,2,6884,0)=" Q"
^XMB(3.9,148,2,6885,0)="""RTN"",""SROALSSP"",62,0)"
^XMB(3.9,148,2,6886,0)="LOOP ; break procedures"
^XMB(3.9,148,2,6887,0)="""RTN"",""SROALSSP"",63,0)"
^XMB(3.9,148,2,6888,0)=" S SROPS(M)="""" F LOOP=1:1 S MM=$P(SROPER,"" ""),MMM=$P(SROPER,"" "",2,200) Q:MMM=""""  Q:$L(SROPS(M))+$L(MM)'<44  S SROPS(M)=SROPS(M)_MM_"" "",SROPER=MMM"
^XMB(3.9,148,2,6889,0)="""RTN"",""SROALSSP"",64,0)"
^XMB(3.9,148,2,6890,0)=" Q"
^XMB(3.9,148,2,6891,0)="""RTN"",""SROALSSP"",65,0)"
^XMB(3.9,148,2,6892,0)="SSCT ; write specialty count"
^XMB(3.9,148,2,6893,0)="""RTN"",""SROALSSP"",66,0)"
^XMB(3.9,148,2,6894,0)=" I $Y+5>IOSL D HDR Q:SRSOUT"
^XMB(3.9,148,2,6895,0)="""RTN"",""SROALSSP"",67,0)"
^XMB(3.9,148,2,6896,0)=" W !!,""TOTAL "",SRSS,"": "",SRC,! F L=1:1:132 W ""-"""
^XMB(3.9,148,2,6897,0)="""RTN"",""SROALSSP"",68,0)"
^XMB(3.9,148,2,6898,0)=" Q"
^XMB(3.9,148,2,6899,0)="""RTN"",""SROALST"")"
^XMB(3.9,148,2,6900,0)="0^68^B13569020^B13078748"
^XMB(3.9,148,2,6901,0)="""RTN"",""SROALST"",1,0)"
^XMB(3.9,148,2,6902,0)="SROALST ;BIR/MAM - ALL ASSESSMENTS ;03/16/06"
^XMB(3.9,148,2,6903,0)="""RTN"",""SROALST"",2,0)"
^XMB(3.9,148,2,6904,0)=" ;;3.0; Surgery ;**38,47,50,100,142,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,6905,0)="""RTN"",""SROALST"",3,0)"
^XMB(3.9,148,2,6906,0)=" I $E(IOST)=""P"" D ^SROALSTP Q"
^XMB(3.9,148,2,6907,0)="""RTN"",""SROALST"",4,0)"
^XMB(3.9,148,2,6908,0)=" S SRSOUT=0 D HDR F  S SRSD=$O(^SRF(""AC"",SRSD)) Q:'SRSD!(SRSD>SRED)!SRSOUT  S SRTN=0 F  S SRTN=$O(^SRF(""AC"",SRSD,SRTN)) Q:'SRTN!SRSOUT  I $D(^SRF(SRTN,0)),$$DIV^SROUTL0(SRTN) D SET"
^XMB(3.9,148,2,6909,0)="""RTN"",""SROALST"",5,0)"
^XMB(3.9,148,2,6910,0)=" Q"
^XMB(3.9,148,2,6911,0)="""RTN"",""SROALST"",6,0)"
^XMB(3.9,148,2,6912,0)="SET ; print assessments"
^XMB(3.9,148,2,6913,0)="""RTN"",""SROALST"",7,0)"
^XMB(3.9,148,2,6914,0)=" K SRCPTT S SRCPTT=""NOT ENTERED"""
^XMB(3.9,148,2,6915,0)="""RTN"",""SROALST"",8,0)"
^XMB(3.9,148,2,6916,0)=" I $Y+5>IOSL D PAGE I SRSOUT Q"
^XMB(3.9,148,2,6917,0)="""RTN"",""SROALST"",9,0)"
^XMB(3.9,148,2,6918,0)=" S SRA(0)=^SRF(SRTN,0)"
^XMB(3.9,148,2,6919,0)="""RTN"",""SROALST"",10,0)"
^XMB(3.9,148,2,6920,0)=" S CAN=$P($G(^SRF(SRTN,30)),""^"") I CAN Q"
^XMB(3.9,148,2,6921,0)="""RTN"",""SROALST"",11,0)"
^XMB(3.9,148,2,6922,0)=" S CAN=$P($G(^SRF(SRTN,31)),""^"",8) I CAN'="""" Q"
^XMB(3.9,148,2,6923,0)="""RTN"",""SROALST"",12,0)"
^XMB(3.9,148,2,6924,0)=" S X=$P($G(^SRF(SRTN,.2)),""^"",12) I 'X Q"
^XMB(3.9,148,2,6925,0)="""RTN"",""SROALST"",13,0)"
^XMB(3.9,148,2,6926,0)=" S DFN=$P(SRA(0),""^"") N I D DEM^VADPT S SRANM=VADM(1),SRASSN=VA(""PID"") K VADM"
^XMB(3.9,148,2,6927,0)="""RTN"",""SROALST"",14,0)"
^XMB(3.9,148,2,6928,0)=" S SRA(""RA"")=$G(^SRF(SRTN,""RA"")),X=$P(SRA(""RA""),""^""),STATUS=$S(X=""I"":""INCOMPLETE"",X=""C"":""COMPLETED"",X=""T"":""TRANSMITTED"",1:""EXCLUSION"")"
^XMB(3.9,148,2,6929,0)="""RTN"",""SROALST"",15,0)"
^XMB(3.9,148,2,6930,0)=" S (SREXCL,Y)=$P(SRA(""RA""),""^"",7),C=$P(^DD(130,102,0),""^"",2) D Y^DIQ S SREXCL=Y"
^XMB(3.9,148,2,6931,0)="""RTN"",""SROALST"",16,0)"
^XMB(3.9,148,2,6932,0)=" I SREXCL="""",STATUS=""EXCLUSION"" S STATUS=""NO ASSESSMENT"""
^XMB(3.9,148,2,6933,0)="""RTN"",""SROALST"",17,0)"
^XMB(3.9,148,2,6934,0)=" S X=^SRF(SRTN,""OP""),SROPER=$P(X,""^"")"
^XMB(3.9,148,2,6935,0)="""RTN"",""SROALST"",18,0)"
^XMB(3.9,148,2,6936,0)=" I $O(^SRF(SRTN,13,0)) S SROTHER=0 F I=0:0 S SROTHER=$O(^SRF(SRTN,13,SROTHER)) Q:'SROTHER  D OTHER"
^XMB(3.9,148,2,6937,0)="""RTN"",""SROALST"",19,0)"
^XMB(3.9,148,2,6938,0)=" S X=$P($G(^SRF(SRTN,""RA"")),""^"",2) I X=""C"" S SROPER=""* ""_SROPER"
^XMB(3.9,148,2,6939,0)="""RTN"",""SROALST"",20,0)"
^XMB(3.9,148,2,6940,0)=" K SROPS,MM,MMM S:$L(SROPER)<34 SROPS(1)=SROPER I $L(SROPER)>33 S SROPER=SROPER_""  "" F M=1:1 D LOOP Q:MMM="""""
^XMB(3.9,148,2,6941,0)="""RTN"",""SROALST"",21,0)"
^XMB(3.9,148,2,6942,0)=" S SRSS=$P(SRA(0),""^"",4),SRSS=$S(SRSS:$P(^SRO(137.45,SRSS,0),""^""),1:""SPECIALTY NOT ENTERED"")"
^XMB(3.9,148,2,6943,0)="""RTN"",""SROALST"",22,0)"
^XMB(3.9,148,2,6944,0)=" D TECH^SROPRIN"
^XMB(3.9,148,2,6945,0)="""RTN"",""SROALST"",23,0)"
^XMB(3.9,148,2,6946,0)=" S Y=$P(SRA(0),""^"",9) D D^DIQ S SRDT=$P(Y,""@"")"
^XMB(3.9,148,2,6947,0)="""RTN"",""SROALST"",24,0)"
^XMB(3.9,148,2,6948,0)=" S (SRDOC,Y)=$P($G(^SRF(SRTN,.1)),""^"",4),C=$P(^DD(130,.14,0),""^"",2) D:Y'="""" Y^DIQ I $L(Y)>18 S Z=$P(Y,"","")_"",""_$E($P(Y,"","",2))_""."",Y=Z"
^XMB(3.9,148,2,6949,0)="""RTN"",""SROALST"",25,0)"
^XMB(3.9,148,2,6950,0)=" S SRDOC=Y"
^XMB(3.9,148,2,6951,0)="""RTN"",""SROALST"",26,0)"
^XMB(3.9,148,2,6952,0)=" S X=$P($G(^SRO(136,SRTN,0)),""^"",2) I X S Y=$S(X:$P($$CPT^ICPTCOD(X),""^"",2),1:"""") D SSPRIN^SROCPT0 I $L(Y) S SRCPTT=Y"
^XMB(3.9,148,2,6953,0)="""RTN"",""SROALST"",27,0)"
^XMB(3.9,148,2,6954,0)=" W !,SRTN,?20,SRANM_"" ""_VA(""PID""),?55,$P(SRSS,""(""),!,SRDT,?20,SROPS(1),?55,SRTECH,!,STATUS W:$D(SROPS(2)) ?20,SROPS(2) W ?55,SREXCL"
^XMB(3.9,148,2,6955,0)="""RTN"",""SROALST"",28,0)"
^XMB(3.9,148,2,6956,0)=" W !,SRDOC I $D(SROPS(3)) W ?20,SROPS(3) I $D(SROPS(4)) W !,?20,SROPS(4)"
^XMB(3.9,148,2,6957,0)="""RTN"",""SROALST"",29,0)"
^XMB(3.9,148,2,6958,0)=" N I,SRPROC,SRL S SRL=48 D CPTS^SROAUTL0 W !,?20,""CPT Codes: """
^XMB(3.9,148,2,6959,0)="""RTN"",""SROALST"",30,0)"
^XMB(3.9,148,2,6960,0)=" F I=1:1 Q:'$D(SRPROC(I))  W:I=1 ?31,SRPROC(I) W:I'=1 !,?31,SRPROC(I)"
^XMB(3.9,148,2,6961,0)="""RTN"",""SROALST"",31,0)"
^XMB(3.9,148,2,6962,0)=" W ! F LINE=1:1:80 W ""-"""
^XMB(3.9,148,2,6963,0)="""RTN"",""SROALST"",32,0)"
^XMB(3.9,148,2,6964,0)=" Q"
^XMB(3.9,148,2,6965,0)="""RTN"",""SROALST"",33,0)"
^XMB(3.9,148,2,6966,0)="OTHER ; other operations"
^XMB(3.9,148,2,6967,0)="""RTN"",""SROALST"",34,0)"
^XMB(3.9,148,2,6968,0)=" S SRLONG=1 I $L(SROPER)+$L($P(^SRF(SRTN,13,SROTHER,0),""^""))>125 S SRLONG=0,SROTHER=999,SROPERS="" ..."""
^XMB(3.9,148,2,6969,0)="""RTN"",""SROALST"",35,0)"
^XMB(3.9,148,2,6970,0)=" I SRLONG S SROPERS=$P(^SRF(SRTN,13,SROTHER,0),""^"")"
^XMB(3.9,148,2,6971,0)="""RTN"",""SROALST"",36,0)"
^XMB(3.9,148,2,6972,0)=" S SROPER=SROPER_$S(SROPERS'="" ..."":"", ""_SROPERS,1:SROPERS)"
^XMB(3.9,148,2,6973,0)="""RTN"",""SROALST"",37,0)"
^XMB(3.9,148,2,6974,0)=" Q"
^XMB(3.9,148,2,6975,0)="""RTN"",""SROALST"",38,0)"
^XMB(3.9,148,2,6976,0)="LOOP ; break procedures"
^XMB(3.9,148,2,6977,0)="""RTN"",""SROALST"",39,0)"
^XMB(3.9,148,2,6978,0)=" S SROPS(M)="""" F LOOP=1:1 S MM=$P(SROPER,"" ""),MMM=$P(SROPER,"" "",2,200) Q:MMM=""""  Q:$L(SROPS(M))+$L(MM)'<34  S SROPS(M)=SROPS(M)_MM_"" "",SROPER=MMM"
^XMB(3.9,148,2,6979,0)="""RTN"",""SROALST"",40,0)"
^XMB(3.9,148,2,6980,0)=" Q"
^XMB(3.9,148,2,6981,0)="""RTN"",""SROALST"",41,0)"
^XMB(3.9,148,2,6982,0)="PAGE W !!,""Press <RET> to continue, or '^' to quit  "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1 Q"
^XMB(3.9,148,2,6983,0)="""RTN"",""SROALST"",42,0)"
^XMB(3.9,148,2,6984,0)=" I X[""?"" W !!,""If you want to continue listing incomplete assessments, enter <RET>.  Enter"",!,""'^' to return to the menu."" G PAGE"
^XMB(3.9,148,2,6985,0)="""RTN"",""SROALST"",43,0)"
^XMB(3.9,148,2,6986,0)="HDR S SRHD=""ALL SURGICAL CASES"""
^XMB(3.9,148,2,6987,0)="""RTN"",""SROALST"",44,0)"
^XMB(3.9,148,2,6988,0)=" W @IOF,!,?(80-$L(SRHD)\2),SRHD,!,?(80-$L(SRFRTO)\2),SRFRTO"
^XMB(3.9,148,2,6989,0)="""RTN"",""SROALST"",45,0)"
^XMB(3.9,148,2,6990,0)=" W !!,""CASE #"",?20,""PATIENT"",?55,""SURGICAL SPECIALTY"",!,""OPERATION DATE"",?20,""PRINCIPAL OPERATION"",?55,""ANESTHESIA TECHNIQUE"",!,""ASSESSMENT STATUS"",?55,""EXCLUSION CRITERIA"",!,""SURGEON"",! F LINE=1:1:80 W ""="""
^XMB(3.9,148,2,6991,0)="""RTN"",""SROALST"",46,0)"
^XMB(3.9,148,2,6992,0)=" Q"
^XMB(3.9,148,2,6993,0)="""RTN"",""SROALSTP"")"
^XMB(3.9,148,2,6994,0)="0^69^B12052730^B12197759"
^XMB(3.9,148,2,6995,0)="""RTN"",""SROALSTP"",1,0)"
^XMB(3.9,148,2,6996,0)="SROALSTP ;BIR/MAM - ALL CASES ;03/16/06"
^XMB(3.9,148,2,6997,0)="""RTN"",""SROALSTP"",2,0)"
^XMB(3.9,148,2,6998,0)=" ;;3.0; Surgery ;**32,47,50,100,142,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,6999,0)="""RTN"",""SROALSTP"",3,0)"
^XMB(3.9,148,2,7000,0)=" S SRPAGE=1,(SRSOUT,SRDFN)=0 D HDR Q:SRSOUT"
^XMB(3.9,148,2,7001,0)="""RTN"",""SROALSTP"",4,0)"
^XMB(3.9,148,2,7002,0)=" F  S SRSD=$O(^SRF(""AC"",SRSD)) Q:'SRSD!(SRSD>SRED)!SRSOUT  S SRTN=0 F  S SRTN=$O(^SRF(""AC"",SRSD,SRTN)) Q:'SRTN!SRSOUT  I $D(^SRF(SRTN,0)),$$DIV^SROUTL0(SRTN) D SET"
^XMB(3.9,148,2,7003,0)="""RTN"",""SROALSTP"",5,0)"
^XMB(3.9,148,2,7004,0)=" Q"
^XMB(3.9,148,2,7005,0)="""RTN"",""SROALSTP"",6,0)"
^XMB(3.9,148,2,7006,0)="SET ; print assessments"
^XMB(3.9,148,2,7007,0)="""RTN"",""SROALSTP"",7,0)"
^XMB(3.9,148,2,7008,0)=" K SRCPTT S SRCPTT=""NOT ENTERED"""
^XMB(3.9,148,2,7009,0)="""RTN"",""SROALSTP"",8,0)"
^XMB(3.9,148,2,7010,0)=" I $Y+5>IOSL S SRPAGE=SRPAGE+1 D HDR I SRSOUT Q"
^XMB(3.9,148,2,7011,0)="""RTN"",""SROALSTP"",9,0)"
^XMB(3.9,148,2,7012,0)=" S SRA(0)=^SRF(SRTN,0),DFN=$P(SRA(0),""^"") N I D DEM^VADPT S SRANM=VADM(1),SRASSN=VA(""PID"") K VADM"
^XMB(3.9,148,2,7013,0)="""RTN"",""SROALSTP"",10,0)"
^XMB(3.9,148,2,7014,0)=" S CAN=$P($G(^SRF(SRTN,30)),""^"") I CAN Q"
^XMB(3.9,148,2,7015,0)="""RTN"",""SROALSTP"",11,0)"
^XMB(3.9,148,2,7016,0)=" S CAN=$P($G(^SRF(SRTN,31)),""^"",8) I CAN'="""" Q"
^XMB(3.9,148,2,7017,0)="""RTN"",""SROALSTP"",12,0)"
^XMB(3.9,148,2,7018,0)=" S X=$P($G(^SRF(SRTN,.2)),""^"",12) I 'X Q"
^XMB(3.9,148,2,7019,0)="""RTN"",""SROALSTP"",13,0)"
^XMB(3.9,148,2,7020,0)=" S SRA(""RA"")=$G(^SRF(SRTN,""RA"")),X=$P(SRA(""RA""),""^""),STATUS=$S(X=""I"":""INCOMPLETE"",X=""C"":""COMPLETED"",X=""T"":""TRANSMITTED"",1:""EXCLUSION"")"
^XMB(3.9,148,2,7021,0)="""RTN"",""SROALSTP"",14,0)"
^XMB(3.9,148,2,7022,0)=" S (SREXCL,Y)=$P(SRA(""RA""),""^"",7),C=$P(^DD(130,102,0),""^"",2) D Y^DIQ S SREXCL=Y"
^XMB(3.9,148,2,7023,0)="""RTN"",""SROALSTP"",15,0)"
^XMB(3.9,148,2,7024,0)=" I SREXCL="""",STATUS=""EXCLUSION"" S STATUS=""NO ASSESSMENT"""
^XMB(3.9,148,2,7025,0)="""RTN"",""SROALSTP"",16,0)"
^XMB(3.9,148,2,7026,0)=" S X=^SRF(SRTN,""OP""),SROPER=$P(X,""^"")"
^XMB(3.9,148,2,7027,0)="""RTN"",""SROALSTP"",17,0)"
^XMB(3.9,148,2,7028,0)=" I $O(^SRF(SRTN,13,0)) S SROTHER=0 F I=0:0 S SROTHER=$O(^SRF(SRTN,13,SROTHER)) Q:'SROTHER  D OTHER"
^XMB(3.9,148,2,7029,0)="""RTN"",""SROALSTP"",18,0)"
^XMB(3.9,148,2,7030,0)=" S X=$P($G(^SRF(SRTN,""RA"")),""^"",2) I X=""C"" S SROPER=""* ""_SROPER"
^XMB(3.9,148,2,7031,0)="""RTN"",""SROALSTP"",19,0)"
^XMB(3.9,148,2,7032,0)=" K SROPS,MM,MMM S:$L(SROPER)<34 SROPS(1)=SROPER I $L(SROPER)>33 S SROPER=SROPER_""  "" F M=1:1 D LOOP Q:MMM="""""
^XMB(3.9,148,2,7033,0)="""RTN"",""SROALSTP"",20,0)"
^XMB(3.9,148,2,7034,0)=" S SRSS=$P(SRA(0),""^"",4),SRSS=$S(SRSS:$P(^SRO(137.45,SRSS,0),""^""),1:""SPECIALTY NOT ENTERED"")"
^XMB(3.9,148,2,7035,0)="""RTN"",""SROALSTP"",21,0)"
^XMB(3.9,148,2,7036,0)=" D TECH^SROPRIN"
^XMB(3.9,148,2,7037,0)="""RTN"",""SROALSTP"",22,0)"
^XMB(3.9,148,2,7038,0)=" S Y=$P(SRA(0),""^"",9) D D^DIQ S SRDT=$P(Y,""@"")"
^XMB(3.9,148,2,7039,0)="""RTN"",""SROALSTP"",23,0)"
^XMB(3.9,148,2,7040,0)=" S (SRDOC,Y)=$P($G(^SRF(SRTN,.1)),""^"",4),C=$P(^DD(130,.14,0),""^"",2) D:Y'="""" Y^DIQ I $L(Y)>23 S Z=$P(Y,"","")_"",""_$E($P(Y,"","",2))_""."",Y=Z"
^XMB(3.9,148,2,7041,0)="""RTN"",""SROALSTP"",24,0)"
^XMB(3.9,148,2,7042,0)=" S SRDOC=Y"
^XMB(3.9,148,2,7043,0)="""RTN"",""SROALSTP"",25,0)"
^XMB(3.9,148,2,7044,0)=" W !,SRTN,?20,SRANM_"" ""_VA(""PID""),?67,$P(SRSS,""(""),?107,SRTECH,!,SRDT,?20,SROPS(1),?67,STATUS,?107,SREXCL,!"
^XMB(3.9,148,2,7045,0)="""RTN"",""SROALSTP"",26,0)"
^XMB(3.9,148,2,7046,0)=" W:$D(SROPS(2)) ?20,SROPS(2) W ?107,SRDOC"
^XMB(3.9,148,2,7047,0)="""RTN"",""SROALSTP"",27,0)"
^XMB(3.9,148,2,7048,0)=" I $D(SROPS(3)) W !,?20,SROPS(3) I $D(SROPS(4)) W !,?20,SROPS(4)"
^XMB(3.9,148,2,7049,0)="""RTN"",""SROALSTP"",28,0)"
^XMB(3.9,148,2,7050,0)=" N I,SRPROC,SRL S SRL=100 D CPTS^SROAUTL0 W !,?20,""CPT Codes: """
^XMB(3.9,148,2,7051,0)="""RTN"",""SROALSTP"",29,0)"
^XMB(3.9,148,2,7052,0)=" F I=1:1 Q:'$D(SRPROC(I))  W:I=1 ?31,SRPROC(I) W:I'=1 !,?31,SRPROC(I)"
^XMB(3.9,148,2,7053,0)="""RTN"",""SROALSTP"",30,0)"
^XMB(3.9,148,2,7054,0)=" W ! F LINE=1:1:132 W ""-"""
^XMB(3.9,148,2,7055,0)="""RTN"",""SROALSTP"",31,0)"
^XMB(3.9,148,2,7056,0)=" Q"
^XMB(3.9,148,2,7057,0)="""RTN"",""SROALSTP"",32,0)"
^XMB(3.9,148,2,7058,0)="OTHER ; other operations"
^XMB(3.9,148,2,7059,0)="""RTN"",""SROALSTP"",33,0)"
^XMB(3.9,148,2,7060,0)=" S SRLONG=1 I $L(SROPER)+$L($P(^SRF(SRTN,13,SROTHER,0),""^""))>165 S SRLONG=0,SROTHER=999,SROPERS="" ..."""
^XMB(3.9,148,2,7061,0)="""RTN"",""SROALSTP"",34,0)"
^XMB(3.9,148,2,7062,0)=" I SRLONG S SROPERS=$P(^SRF(SRTN,13,SROTHER,0),""^"")"
^XMB(3.9,148,2,7063,0)="""RTN"",""SROALSTP"",35,0)"
^XMB(3.9,148,2,7064,0)=" S SROPER=SROPER_$S(SROPERS'="" ..."":"", ""_SROPERS,1:SROPERS)"
^XMB(3.9,148,2,7065,0)="""RTN"",""SROALSTP"",36,0)"
^XMB(3.9,148,2,7066,0)=" Q"
^XMB(3.9,148,2,7067,0)="""RTN"",""SROALSTP"",37,0)"
^XMB(3.9,148,2,7068,0)="LOOP ; break procedures"
^XMB(3.9,148,2,7069,0)="""RTN"",""SROALSTP"",38,0)"
^XMB(3.9,148,2,7070,0)=" S SROPS(M)="""" F LOOP=1:1 S MM=$P(SROPER,"" ""),MMM=$P(SROPER,"" "",2,200) Q:MMM=""""  Q:$L(SROPS(M))+$L(MM)'<44  S SROPS(M)=SROPS(M)_MM_"" "",SROPER=MMM"
^XMB(3.9,148,2,7071,0)="""RTN"",""SROALSTP"",39,0)"
^XMB(3.9,148,2,7072,0)=" Q"
^XMB(3.9,148,2,7073,0)="""RTN"",""SROALSTP"",40,0)"
^XMB(3.9,148,2,7074,0)="HDR ; print heading"
^XMB(3.9,148,2,7075,0)="""RTN"",""SROALSTP"",41,0)"
^XMB(3.9,148,2,7076,0)=" I $D(ZTQUEUED) D ^SROSTOP I SRHALT S SRSOUT=1 Q"
^XMB(3.9,148,2,7077,0)="""RTN"",""SROALSTP"",42,0)"
^XMB(3.9,148,2,7078,0)=" W:$Y @IOF W !,?56,""ALL SURGICAL CASES"",?120,""PAGE ""_SRPAGE,!,?(132-$L(SRINST)\2),SRINST,!,?58,""SURGERY SERVICE"",?100,""DATE REVIEWED:"""
^XMB(3.9,148,2,7079,0)="""RTN"",""SROALSTP"",43,0)"
^XMB(3.9,148,2,7080,0)=" W !,?(132-$L(SRFRTO)\2),SRFRTO,?100,""REVIEWED BY:"""
^XMB(3.9,148,2,7081,0)="""RTN"",""SROALSTP"",44,0)"
^XMB(3.9,148,2,7082,0)=" W !!,""CASE #"",?20,""PATIENT"",?67,""SURGICAL SPECIALTY"",?107,""ANESTHESIA TECHNIQUE"",!,""OPERATION DATE"",?20,""PRINCIPAL OPERATIVE PROCEDURE"",?67,""ASSESSMENT STATUS"",?107,""EXCLUSION CRITERIA"",!,?107,""SURGEON"",!"
^XMB(3.9,148,2,7083,0)="""RTN"",""SROALSTP"",45,0)"
^XMB(3.9,148,2,7084,0)=" F LINE=1:1:132 W ""="""
^XMB(3.9,148,2,7085,0)="""RTN"",""SROALSTP"",46,0)"
^XMB(3.9,148,2,7086,0)=" Q"
^XMB(3.9,148,2,7087,0)="""RTN"",""SROALT"")"
^XMB(3.9,148,2,7088,0)="0^87^B10482929^B10817407"
^XMB(3.9,148,2,7089,0)="""RTN"",""SROALT"",1,0)"
^XMB(3.9,148,2,7090,0)="SROALT ;BIR/MAM - TRANSMITTED ASSESSMENTS ;03/24/06"
^XMB(3.9,148,2,7091,0)="""RTN"",""SROALT"",2,0)"
^XMB(3.9,148,2,7092,0)=" ;;3.0; Surgery ;**38,50,142,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,7093,0)="""RTN"",""SROALT"",3,0)"
^XMB(3.9,148,2,7094,0)=" I $E(IOST)=""P"" D ^SROALTP Q"
^XMB(3.9,148,2,7095,0)="""RTN"",""SROALT"",4,0)"
^XMB(3.9,148,2,7096,0)=" S SRSOUT=0 D HDR"
^XMB(3.9,148,2,7097,0)="""RTN"",""SROALT"",5,0)"
^XMB(3.9,148,2,7098,0)=" F  S SRSD=$O(^SRF(""AC"",SRSD)) Q:'SRSD!(SRSD>SRED)!SRSOUT  S SRTN=0 F  S SRTN=$O(^SRF(""AC"",SRSD,SRTN)) Q:'SRTN!SRSOUT  S SR(""RA"")=$G(^SRF(SRTN,""RA"")) I $P(SR(""RA""),""^"")=""T"",$D(^SRF(SRTN,0)),$$DIV^SROUTL0(SRTN) D SET"
^XMB(3.9,148,2,7099,0)="""RTN"",""SROALT"",6,0)"
^XMB(3.9,148,2,7100,0)=" Q"
^XMB(3.9,148,2,7101,0)="""RTN"",""SROALT"",7,0)"
^XMB(3.9,148,2,7102,0)="SET ; print assessments"
^XMB(3.9,148,2,7103,0)="""RTN"",""SROALT"",8,0)"
^XMB(3.9,148,2,7104,0)=" K SRCPTT S SRCPTT=""NOT ENTERED"""
^XMB(3.9,148,2,7105,0)="""RTN"",""SROALT"",9,0)"
^XMB(3.9,148,2,7106,0)=" I $Y+5>IOSL D PAGE I SRSOUT Q"
^XMB(3.9,148,2,7107,0)="""RTN"",""SROALT"",10,0)"
^XMB(3.9,148,2,7108,0)=" S SRA(0)=^SRF(SRTN,0),DFN=$P(SRA(0),""^"") N I D DEM^VADPT S SRANM=VADM(1),SRASSN=VA(""PID"") K VADM"
^XMB(3.9,148,2,7109,0)="""RTN"",""SROALT"",11,0)"
^XMB(3.9,148,2,7110,0)=" I $L(SRANM)>19 S SRANM=$P(SRANM,"","")_"",""_$E($P(SRANM,"","",2))_""."""
^XMB(3.9,148,2,7111,0)="""RTN"",""SROALT"",12,0)"
^XMB(3.9,148,2,7112,0)=" S SROPER=$P(^SRF(SRTN,""OP""),""^"") I $O(^SRF(SRTN,13,0)) S SROTHER=0 F I=0:0 S SROTHER=$O(^SRF(SRTN,13,SROTHER)) Q:'SROTHER  D OTHER"
^XMB(3.9,148,2,7113,0)="""RTN"",""SROALT"",13,0)"
^XMB(3.9,148,2,7114,0)=" S X=$P($G(^SRF(SRTN,""RA"")),""^"",2) I X=""C"" S SROPER=""* ""_SROPER"
^XMB(3.9,148,2,7115,0)="""RTN"",""SROALT"",14,0)"
^XMB(3.9,148,2,7116,0)=" K SROPS,MM,MMM S:$L(SROPER)<34 SROPS(1)=SROPER I $L(SROPER)>33 S SROPER=SROPER_""  "" F M=1:1 D LOOP Q:MMM="""""
^XMB(3.9,148,2,7117,0)="""RTN"",""SROALT"",15,0)"
^XMB(3.9,148,2,7118,0)=" S SRSS=$P(SRA(0),""^"",4),SRSS=$S(SRSS:$P(^SRO(137.45,SRSS,0),""^""),1:""SPECIALTY NOT ENTERED"")"
^XMB(3.9,148,2,7119,0)="""RTN"",""SROALT"",16,0)"
^XMB(3.9,148,2,7120,0)=" D TECH^SROPRIN"
^XMB(3.9,148,2,7121,0)="""RTN"",""SROALT"",17,0)"
^XMB(3.9,148,2,7122,0)=" S Y=$P(SRA(0),""^"",9) D D^DIQ S SRDT=$P(Y,""@"")"
^XMB(3.9,148,2,7123,0)="""RTN"",""SROALT"",18,0)"
^XMB(3.9,148,2,7124,0)=" W !,SRTN,?20,SRANM_"" ""_VA(""PID""),?55,$P(SRSS,""(""),!,SRDT,?20,SROPS(1),?55,SRTECH I $D(SROPS(2)) W !,?20,SROPS(2) I $D(SROPS(3)) W !,?20,SROPS(3)"
^XMB(3.9,148,2,7125,0)="""RTN"",""SROALT"",19,0)"
^XMB(3.9,148,2,7126,0)=" N I,SRPROC,SRL S SRL=48 D CPTS^SROAUTL0 W !,?20,""CPT Codes: """
^XMB(3.9,148,2,7127,0)="""RTN"",""SROALT"",20,0)"
^XMB(3.9,148,2,7128,0)=" F I=1:1 Q:'$D(SRPROC(I))  W:I=1 ?31,SRPROC(I) W:I'=1 !,?31,SRPROC(I)"
^XMB(3.9,148,2,7129,0)="""RTN"",""SROALT"",21,0)"
^XMB(3.9,148,2,7130,0)=" W ! F LINE=1:1:80 W ""-"""
^XMB(3.9,148,2,7131,0)="""RTN"",""SROALT"",22,0)"
^XMB(3.9,148,2,7132,0)=" Q"
^XMB(3.9,148,2,7133,0)="""RTN"",""SROALT"",23,0)"
^XMB(3.9,148,2,7134,0)="OTHER ; other operations"
^XMB(3.9,148,2,7135,0)="""RTN"",""SROALT"",24,0)"
^XMB(3.9,148,2,7136,0)=" S SRLONG=1 I $L(SROPER)+$L($P(^SRF(SRTN,13,SROTHER,0),""^""))>125 S SRLONG=0,SROTHER=999,SROPERS="" ..."""
^XMB(3.9,148,2,7137,0)="""RTN"",""SROALT"",25,0)"
^XMB(3.9,148,2,7138,0)=" I SRLONG S SROPERS=$P(^SRF(SRTN,13,SROTHER,0),""^"")"
^XMB(3.9,148,2,7139,0)="""RTN"",""SROALT"",26,0)"
^XMB(3.9,148,2,7140,0)=" S SROPER=SROPER_$S(SROPERS'="" ..."":"", ""_SROPERS,1:SROPERS)"
^XMB(3.9,148,2,7141,0)="""RTN"",""SROALT"",27,0)"
^XMB(3.9,148,2,7142,0)=" Q"
^XMB(3.9,148,2,7143,0)="""RTN"",""SROALT"",28,0)"
^XMB(3.9,148,2,7144,0)="LOOP ; break procedures"
^XMB(3.9,148,2,7145,0)="""RTN"",""SROALT"",29,0)"
^XMB(3.9,148,2,7146,0)=" S SROPS(M)="""" F LOOP=1:1 S MM=$P(SROPER,"" ""),MMM=$P(SROPER,"" "",2,200) Q:MMM=""""  Q:$L(SROPS(M))+$L(MM)'<34  S SROPS(M)=SROPS(M)_MM_"" "",SROPER=MMM"
^XMB(3.9,148,2,7147,0)="""RTN"",""SROALT"",30,0)"
^XMB(3.9,148,2,7148,0)=" Q"
^XMB(3.9,148,2,7149,0)="""RTN"",""SROALT"",31,0)"
^XMB(3.9,148,2,7150,0)="PAGE W !!,""Press <RET> to continue, or '^' to quit  "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1 Q"
^XMB(3.9,148,2,7151,0)="""RTN"",""SROALT"",32,0)"
^XMB(3.9,148,2,7152,0)=" I X[""?"" W !!,""If you want to continue listing incomplete assessments, enter <RET>.  Enter"",!,""'^' to return to the menu."" G PAGE"
^XMB(3.9,148,2,7153,0)="""RTN"",""SROALT"",33,0)"
^XMB(3.9,148,2,7154,0)="HDR W @IOF,!,?26,""TRANSMITTED RISK ASSESSMENTS"",!,?(80-$L(SRFRTO)\2),SRFRTO,!!,""ASSESSMENT #"",?20,""PATIENT"",?55,""SURGICAL SPECIALTY"",!,""OPERATION DATE"",?20,""OPERATION(S)"",?55,""ANESTHESIA TECHNIQUE"",! F LINE=1:1:80 W ""="""
^XMB(3.9,148,2,7155,0)="""RTN"",""SROALT"",34,0)"
^XMB(3.9,148,2,7156,0)=" Q"
^XMB(3.9,148,2,7157,0)="""RTN"",""SROALTP"")"
^XMB(3.9,148,2,7158,0)="0^90^B9843982^B10106538"
^XMB(3.9,148,2,7159,0)="""RTN"",""SROALTP"",1,0)"
^XMB(3.9,148,2,7160,0)="SROALTP ;BIR/MAM - TRANSMITTED ASSESSMENTS (PRINTER) ;03/24/06"
^XMB(3.9,148,2,7161,0)="""RTN"",""SROALTP"",2,0)"
^XMB(3.9,148,2,7162,0)=" ;;3.0; Surgery ;**32,50,142,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,7163,0)="""RTN"",""SROALTP"",3,0)"
^XMB(3.9,148,2,7164,0)=" S SRPAGE=1,(SRSOUT,SRDFN)=0 D HDR Q:SRSOUT"
^XMB(3.9,148,2,7165,0)="""RTN"",""SROALTP"",4,0)"
^XMB(3.9,148,2,7166,0)=" F  S SRSD=$O(^SRF(""AC"",SRSD)) Q:'SRSD!(SRSD>SRED)!SRSOUT  S SRTN=0 F  S SRTN=$O(^SRF(""AC"",SRSD,SRTN)) Q:'SRTN!SRSOUT  S SR(""RA"")=$G(^SRF(SRTN,""RA"")) I $P(SR(""RA""),""^"")=""T"",$D(^SRF(SRTN,0)),$$DIV^SROUTL0(SRTN) D SET"
^XMB(3.9,148,2,7167,0)="""RTN"",""SROALTP"",5,0)"
^XMB(3.9,148,2,7168,0)=" Q"
^XMB(3.9,148,2,7169,0)="""RTN"",""SROALTP"",6,0)"
^XMB(3.9,148,2,7170,0)="SET ; print assessments"
^XMB(3.9,148,2,7171,0)="""RTN"",""SROALTP"",7,0)"
^XMB(3.9,148,2,7172,0)=" K SRCPTT S SRCPTT=""NOT ENTERED"""
^XMB(3.9,148,2,7173,0)="""RTN"",""SROALTP"",8,0)"
^XMB(3.9,148,2,7174,0)=" I $Y+5>IOSL S SRPAGE=SRPAGE+1 D HDR I SRSOUT Q"
^XMB(3.9,148,2,7175,0)="""RTN"",""SROALTP"",9,0)"
^XMB(3.9,148,2,7176,0)=" S SRA(0)=^SRF(SRTN,0),DFN=$P(SRA(0),""^"") N I D DEM^VADPT S SRANM=VADM(1),SRASSN=VA(""PID"") K VADM"
^XMB(3.9,148,2,7177,0)="""RTN"",""SROALTP"",10,0)"
^XMB(3.9,148,2,7178,0)=" S SROPER=$P(^SRF(SRTN,""OP""),""^"") I $O(^SRF(SRTN,13,0)) S SROTHER=0 F  S SROTHER=$O(^SRF(SRTN,13,SROTHER)) Q:'SROTHER  D OTHER"
^XMB(3.9,148,2,7179,0)="""RTN"",""SROALTP"",11,0)"
^XMB(3.9,148,2,7180,0)=" S X=$P($G(^SRF(SRTN,""RA"")),""^"",2) I X=""C"" S SROPER=""* ""_SROPER"
^XMB(3.9,148,2,7181,0)="""RTN"",""SROALTP"",12,0)"
^XMB(3.9,148,2,7182,0)=" K SROPS,MM,MMM S:$L(SROPER)<81 SROPS(1)=SROPER I $L(SROPER)>80 S SROPER=SROPER_""  "" F M=1:1 D LOOP Q:MMM="""""
^XMB(3.9,148,2,7183,0)="""RTN"",""SROALTP"",13,0)"
^XMB(3.9,148,2,7184,0)=" S SRSS=$P(SRA(0),""^"",4),SRSS=$S(SRSS:$P(^SRO(137.45,SRSS,0),""^""),1:""SPECIALTY NOT ENTERED"")"
^XMB(3.9,148,2,7185,0)="""RTN"",""SROALTP"",14,0)"
^XMB(3.9,148,2,7186,0)=" S TYPE=$P(SR(""RA""),""^"",2) I SRSS=""SPECIALTY NOT ENTERED"",TYPE=""C"" S SRSS=""N/A"""
^XMB(3.9,148,2,7187,0)="""RTN"",""SROALTP"",15,0)"
^XMB(3.9,148,2,7188,0)=" D TECH^SROPRIN"
^XMB(3.9,148,2,7189,0)="""RTN"",""SROALTP"",16,0)"
^XMB(3.9,148,2,7190,0)=" S Y=$P(SRA(0),""^"",9) D D^DIQ S SRDT=$P(Y,""@"")"
^XMB(3.9,148,2,7191,0)="""RTN"",""SROALTP"",17,0)"
^XMB(3.9,148,2,7192,0)=" W !,SRTN,?20,SRANM_"" ""_VA(""PID""),?67,$P(SRSS,""(""),?107,SRTECH,!,SRDT,?20,SROPS(1) I $D(SROPS(2)) W !,?20,SROPS(2) I $D(SROPS(3)) W !,?20,SROPS(3) I $D(SROPS(4)) W !,?20,SROPS(4)"
^XMB(3.9,148,2,7193,0)="""RTN"",""SROALTP"",18,0)"
^XMB(3.9,148,2,7194,0)=" N I,SRPROC,SRL S SRL=100 D CPTS^SROAUTL0 W !,?20,""CPT Codes: """
^XMB(3.9,148,2,7195,0)="""RTN"",""SROALTP"",19,0)"
^XMB(3.9,148,2,7196,0)=" F I=1:1 Q:'$D(SRPROC(I))  W:I=1 ?31,SRPROC(I) W:I'=1 !,?31,SRPROC(I)"
^XMB(3.9,148,2,7197,0)="""RTN"",""SROALTP"",20,0)"
^XMB(3.9,148,2,7198,0)=" W ! F LINE=1:1:132 W ""-"""
^XMB(3.9,148,2,7199,0)="""RTN"",""SROALTP"",21,0)"
^XMB(3.9,148,2,7200,0)=" Q"
^XMB(3.9,148,2,7201,0)="""RTN"",""SROALTP"",22,0)"
^XMB(3.9,148,2,7202,0)="OTHER ; other operations"
^XMB(3.9,148,2,7203,0)="""RTN"",""SROALTP"",23,0)"
^XMB(3.9,148,2,7204,0)=" S SRLONG=1 I $L(SROPER)+$L($P(^SRF(SRTN,13,SROTHER,0),""^""))>165 S SRLONG=0,SROTHER=999,SROPERS="" ..."""
^XMB(3.9,148,2,7205,0)="""RTN"",""SROALTP"",24,0)"
^XMB(3.9,148,2,7206,0)=" I SRLONG S SROPERS=$P(^SRF(SRTN,13,SROTHER,0),""^"")"
^XMB(3.9,148,2,7207,0)="""RTN"",""SROALTP"",25,0)"
^XMB(3.9,148,2,7208,0)=" S SROPER=SROPER_$S(SROPERS'="" ..."":"", ""_SROPERS,1:SROPERS)"
^XMB(3.9,148,2,7209,0)="""RTN"",""SROALTP"",26,0)"
^XMB(3.9,148,2,7210,0)=" Q"
^XMB(3.9,148,2,7211,0)="""RTN"",""SROALTP"",27,0)"
^XMB(3.9,148,2,7212,0)="LOOP ; break procedures"
^XMB(3.9,148,2,7213,0)="""RTN"",""SROALTP"",28,0)"
^XMB(3.9,148,2,7214,0)=" S SROPS(M)="""" F LOOP=1:1 S MM=$P(SROPER,"" ""),MMM=$P(SROPER,"" "",2,200) Q:MMM=""""  Q:$L(SROPS(M))+$L(MM)'<44  S SROPS(M)=SROPS(M)_MM_"" "",SROPER=MMM"
^XMB(3.9,148,2,7215,0)="""RTN"",""SROALTP"",29,0)"
^XMB(3.9,148,2,7216,0)=" Q"
^XMB(3.9,148,2,7217,0)="""RTN"",""SROALTP"",30,0)"
^XMB(3.9,148,2,7218,0)="HDR ; print heading"
^XMB(3.9,148,2,7219,0)="""RTN"",""SROALTP"",31,0)"
^XMB(3.9,148,2,7220,0)=" I $D(ZTQUEUED) D ^SROSTOP I SRHALT S SRSOUT=1 Q"
^XMB(3.9,148,2,7221,0)="""RTN"",""SROALTP"",32,0)"
^XMB(3.9,148,2,7222,0)=" W:$Y @IOF W !,?52,""TRANSMITTED RISK ASSESSMENTS"",?120,""PAGE ""_SRPAGE,!,?(132-$L(SRINST)\2),SRINST,!,?58,""SURGERY SERVICE"",?100,""DATE REVIEWED:"""
^XMB(3.9,148,2,7223,0)="""RTN"",""SROALTP"",33,0)"
^XMB(3.9,148,2,7224,0)=" W !,?(132-$L(SRFRTO)\2),SRFRTO,?100,""REVIEWED BY:"""
^XMB(3.9,148,2,7225,0)="""RTN"",""SROALTP"",34,0)"
^XMB(3.9,148,2,7226,0)=" W !!,""ASSESSMENT #"",?20,""PATIENT"",?67,""SURGICAL SPECIALTY"",?107,""ANESTHESIA TECHNIQUE"",!,""OPERATION DATE"",?20,""OPERATIVE PROCEDURE(S)"",! F LINE=1:1:132 W ""="""
^XMB(3.9,148,2,7227,0)="""RTN"",""SROALTP"",35,0)"
^XMB(3.9,148,2,7228,0)=" Q"
^XMB(3.9,148,2,7229,0)="""RTN"",""SROALTS"")"
^XMB(3.9,148,2,7230,0)="0^88^B12812472^B13156100"
^XMB(3.9,148,2,7231,0)="""RTN"",""SROALTS"",1,0)"
^XMB(3.9,148,2,7232,0)="SROALTS ;BIR/MAM - TRANSMITTED ASSESSMENTS ;03/24/06"
^XMB(3.9,148,2,7233,0)="""RTN"",""SROALTS"",2,0)"
^XMB(3.9,148,2,7234,0)=" ;;3.0; Surgery ;**38,50,142,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,7235,0)="""RTN"",""SROALTS"",3,0)"
^XMB(3.9,148,2,7236,0)=" I $E(IOST)=""P"" D ^SROALTSP Q"
^XMB(3.9,148,2,7237,0)="""RTN"",""SROALTS"",4,0)"
^XMB(3.9,148,2,7238,0)=" S SRSOUT=0 D HDR"
^XMB(3.9,148,2,7239,0)="""RTN"",""SROALTS"",5,0)"
^XMB(3.9,148,2,7240,0)=" F  S SRSD=$O(^SRF(""AC"",SRSD)) Q:'SRSD!(SRSD>SRED)!SRSOUT  S SRTN=0 F  S SRTN=$O(^SRF(""AC"",SRSD,SRTN)) Q:'SRTN!SRSOUT  S SR(""RA"")=$G(^SRF(SRTN,""RA"")) I $P(SR(""RA""),""^"")=""T"",$D(^SRF(SRTN,0)),$$DIV^SROUTL0(SRTN) D UTL"
^XMB(3.9,148,2,7241,0)="""RTN"",""SROALTS"",6,0)"
^XMB(3.9,148,2,7242,0)=" S SRSS="""" F  S SRSS=$O(^TMP(""SRA"",$J,SRSS)) Q:SRSS=""""!SRSOUT  D SS S SRTN=0 F J=0:0 S SRTN=$O(^TMP(""SRA"",$J,SRSS,SRTN)) Q:'SRTN!SRSOUT  D SET"
^XMB(3.9,148,2,7243,0)="""RTN"",""SROALTS"",7,0)"
^XMB(3.9,148,2,7244,0)=" I '$D(^TMP(""SRA"",$J)) W $$NODATA^SROUTL0()"
^XMB(3.9,148,2,7245,0)="""RTN"",""SROALTS"",8,0)"
^XMB(3.9,148,2,7246,0)=" Q"
^XMB(3.9,148,2,7247,0)="""RTN"",""SROALTS"",9,0)"
^XMB(3.9,148,2,7248,0)="UTL ; write to ^TMP(""SRA"",$J)"
^XMB(3.9,148,2,7249,0)="""RTN"",""SROALTS"",10,0)"
^XMB(3.9,148,2,7250,0)=" I SRFLG,$P(^SRF(SRTN,0),""^"",4)'=SRASP Q"
^XMB(3.9,148,2,7251,0)="""RTN"",""SROALTS"",11,0)"
^XMB(3.9,148,2,7252,0)=" S SRSS=$P(^SRF(SRTN,0),""^"",4),SRSS=$S(SRSS:$P(^SRO(137.45,SRSS,0),""^""),1:""SPECIALTY NOT ENTERED"")"
^XMB(3.9,148,2,7253,0)="""RTN"",""SROALTS"",12,0)"
^XMB(3.9,148,2,7254,0)=" S ^TMP(""SRA"",$J,SRSS,SRTN)="""""
^XMB(3.9,148,2,7255,0)="""RTN"",""SROALTS"",13,0)"
^XMB(3.9,148,2,7256,0)=" Q"
^XMB(3.9,148,2,7257,0)="""RTN"",""SROALTS"",14,0)"
^XMB(3.9,148,2,7258,0)="SET ; print assessments"
^XMB(3.9,148,2,7259,0)="""RTN"",""SROALTS"",15,0)"
^XMB(3.9,148,2,7260,0)=" K SRCPTT S SRCPTT=""NOT ENTERED"""
^XMB(3.9,148,2,7261,0)="""RTN"",""SROALTS"",16,0)"
^XMB(3.9,148,2,7262,0)=" I $Y+5>IOSL D PAGE I SRSOUT Q"
^XMB(3.9,148,2,7263,0)="""RTN"",""SROALTS"",17,0)"
^XMB(3.9,148,2,7264,0)=" S SR(""RA"")=^SRF(SRTN,""RA""),SRAT="""",Y=$E($P(SR(""RA""),""^"",4),1,7) I Y D D^DIQ S SRAT=Y"
^XMB(3.9,148,2,7265,0)="""RTN"",""SROALTS"",18,0)"
^XMB(3.9,148,2,7266,0)=" S SRA(0)=^SRF(SRTN,0),DFN=$P(SRA(0),""^"") N I D DEM^VADPT S SRANM=VADM(1),SRASSN=VA(""PID"") K VADM"
^XMB(3.9,148,2,7267,0)="""RTN"",""SROALTS"",19,0)"
^XMB(3.9,148,2,7268,0)=" I $L(SRANM)>19 S SRANM=$P(SRANM,"","")_"",""_$E($P(SRANM,"","",2))_""."""
^XMB(3.9,148,2,7269,0)="""RTN"",""SROALTS"",20,0)"
^XMB(3.9,148,2,7270,0)=" S SROPER=$P(^SRF(SRTN,""OP""),""^"") I $O(^SRF(SRTN,13,0)) S SROTHER=0 F I=0:0 S SROTHER=$O(^SRF(SRTN,13,SROTHER)) Q:'SROTHER  D OTHER"
^XMB(3.9,148,2,7271,0)="""RTN"",""SROALTS"",21,0)"
^XMB(3.9,148,2,7272,0)=" S X=$P($G(^SRF(SRTN,""RA"")),""^"",2) I X=""C"" S SROPER=""* ""_SROPER"
^XMB(3.9,148,2,7273,0)="""RTN"",""SROALTS"",22,0)"
^XMB(3.9,148,2,7274,0)=" K SROPS,MM,MMM S:$L(SROPER)<34 SROPS(1)=SROPER I $L(SROPER)>33 S SROPER=SROPER_""  "" F M=1:1 D LOOP Q:MMM="""""
^XMB(3.9,148,2,7275,0)="""RTN"",""SROALTS"",23,0)"
^XMB(3.9,148,2,7276,0)=" D TECH^SROPRIN"
^XMB(3.9,148,2,7277,0)="""RTN"",""SROALTS"",24,0)"
^XMB(3.9,148,2,7278,0)=" S Y=$P(SRA(0),""^"",9) D D^DIQ S SRDT=$P(Y,""@"")"
^XMB(3.9,148,2,7279,0)="""RTN"",""SROALTS"",25,0)"
^XMB(3.9,148,2,7280,0)=" W !,SRTN,?20,SRANM_"" ""_VA(""PID""),?55,SRAT,!,SRDT,?20,SROPS(1),?55,SRTECH S SRAO=1 F I=0:0 S SRAO=$O(SROPS(SRAO)) Q:'SRAO  W !,?20,SROPS(SRAO)"
^XMB(3.9,148,2,7281,0)="""RTN"",""SROALTS"",26,0)"
^XMB(3.9,148,2,7282,0)=" N I,SRPROC,SRL S SRL=48 D CPTS^SROAUTL0 W !,?20,""CPT Codes: """
^XMB(3.9,148,2,7283,0)="""RTN"",""SROALTS"",27,0)"
^XMB(3.9,148,2,7284,0)=" F I=1:1 Q:'$D(SRPROC(I))  W:I=1 ?31,SRPROC(I) W:I'=1 !,?31,SRPROC(I)"
^XMB(3.9,148,2,7285,0)="""RTN"",""SROALTS"",28,0)"
^XMB(3.9,148,2,7286,0)=" W ! F LINE=1:1:80 W ""-"""
^XMB(3.9,148,2,7287,0)="""RTN"",""SROALTS"",29,0)"
^XMB(3.9,148,2,7288,0)=" Q"
^XMB(3.9,148,2,7289,0)="""RTN"",""SROALTS"",30,0)"
^XMB(3.9,148,2,7290,0)="OTHER ; other operations"
^XMB(3.9,148,2,7291,0)="""RTN"",""SROALTS"",31,0)"
^XMB(3.9,148,2,7292,0)=" S SRLONG=1 I $L(SROPER)+$L($P(^SRF(SRTN,13,SROTHER,0),""^""))>125 S SRLONG=0,SROTHER=999,SROPERS="" ..."""
^XMB(3.9,148,2,7293,0)="""RTN"",""SROALTS"",32,0)"
^XMB(3.9,148,2,7294,0)=" I SRLONG S SROPERS=$P(^SRF(SRTN,13,SROTHER,0),""^"")"
^XMB(3.9,148,2,7295,0)="""RTN"",""SROALTS"",33,0)"
^XMB(3.9,148,2,7296,0)=" S SROPER=SROPER_$S(SROPERS'="" ..."":"", ""_SROPERS,1:SROPERS)"
^XMB(3.9,148,2,7297,0)="""RTN"",""SROALTS"",34,0)"
^XMB(3.9,148,2,7298,0)=" Q"
^XMB(3.9,148,2,7299,0)="""RTN"",""SROALTS"",35,0)"
^XMB(3.9,148,2,7300,0)="LOOP ; break procedures"
^XMB(3.9,148,2,7301,0)="""RTN"",""SROALTS"",36,0)"
^XMB(3.9,148,2,7302,0)=" S SROPS(M)="""" F LOOP=1:1 S MM=$P(SROPER,"" ""),MMM=$P(SROPER,"" "",2,200) Q:MMM=""""  Q:$L(SROPS(M))+$L(MM)'<34  S SROPS(M)=SROPS(M)_MM_"" "",SROPER=MMM"
^XMB(3.9,148,2,7303,0)="""RTN"",""SROALTS"",37,0)"
^XMB(3.9,148,2,7304,0)=" Q"
^XMB(3.9,148,2,7305,0)="""RTN"",""SROALTS"",38,0)"
^XMB(3.9,148,2,7306,0)="PAGE W !!,""Press <RET> to continue, or '^' to quit  "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1 Q"
^XMB(3.9,148,2,7307,0)="""RTN"",""SROALTS"",39,0)"
^XMB(3.9,148,2,7308,0)=" I X[""?"" W !!,""If you want to continue listing incomplete assessments, enter <RET>.  Enter"",!,""'^' to return to the menu."" G PAGE"
^XMB(3.9,148,2,7309,0)="""RTN"",""SROALTS"",40,0)"
^XMB(3.9,148,2,7310,0)="HDR W @IOF,!,?26,""TRANSMITTED RISK ASSESSMENTS"",!,?(80-$L(SRFRTO)\2),SRFRTO,!!,""ASSESSMENT #"",?20,""PATIENT"",?55,""TRANSMISSION DATE"",!,""OPERATION DATE"",?20,""OPERATION(S)"",?55,""ANESTHESIA TECHNIQUE"",! F LINE=1:1:80 W ""="""
^XMB(3.9,148,2,7311,0)="""RTN"",""SROALTS"",41,0)"
^XMB(3.9,148,2,7312,0)=" Q"
^XMB(3.9,148,2,7313,0)="""RTN"",""SROALTS"",42,0)"
^XMB(3.9,148,2,7314,0)="SS ; print surgical specialty"
^XMB(3.9,148,2,7315,0)="""RTN"",""SROALTS"",43,0)"
^XMB(3.9,148,2,7316,0)=" I $Y+5>IOSL D PAGE Q:SRSOUT"
^XMB(3.9,148,2,7317,0)="""RTN"",""SROALTS"",44,0)"
^XMB(3.9,148,2,7318,0)=" W !!,""** SURGICAL SPECIALTY: "",SRSS,"" **"",!"
^XMB(3.9,148,2,7319,0)="""RTN"",""SROALTS"",45,0)"
^XMB(3.9,148,2,7320,0)=" Q"
^XMB(3.9,148,2,7321,0)="""RTN"",""SROALTSP"")"
^XMB(3.9,148,2,7322,0)="0^89^B11921098^B12292692"
^XMB(3.9,148,2,7323,0)="""RTN"",""SROALTSP"",1,0)"
^XMB(3.9,148,2,7324,0)="SROALTSP ;BIR/MAM - TRANSMITTED ASSESSMENTS (PRINTER) ;03/24/06"
^XMB(3.9,148,2,7325,0)="""RTN"",""SROALTSP"",2,0)"
^XMB(3.9,148,2,7326,0)=" ;;3.0; Surgery ;**32,50,142,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,7327,0)="""RTN"",""SROALTSP"",3,0)"
^XMB(3.9,148,2,7328,0)=" K ^TMP(""SRA"",$J) S SRPAGE=0,(SRSOUT,SRDFN)=0 D HDR Q:SRSOUT"
^XMB(3.9,148,2,7329,0)="""RTN"",""SROALTSP"",4,0)"
^XMB(3.9,148,2,7330,0)=" F  S SRSD=$O(^SRF(""AC"",SRSD)) Q:'SRSD!(SRSD>SRED)!SRSOUT  S SRTN=0 F  S SRTN=$O(^SRF(""AC"",SRSD,SRTN)) Q:'SRTN!SRSOUT  S SR(""RA"")=$G(^SRF(SRTN,""RA"")) I $P(SR(""RA""),""^"")=""T"",$D(^SRF(SRTN,0)),$$DIV^SROUTL0(SRTN) D UTL"
^XMB(3.9,148,2,7331,0)="""RTN"",""SROALTSP"",5,0)"
^XMB(3.9,148,2,7332,0)=" S SRSS="""" F  S SRSS=$O(^TMP(""SRA"",$J,SRSS)) Q:SRSS=""""!SRSOUT  D SS S SRTN=0 F  S SRTN=$O(^TMP(""SRA"",$J,SRSS,SRTN)) Q:'SRTN!SRSOUT  D SET"
^XMB(3.9,148,2,7333,0)="""RTN"",""SROALTSP"",6,0)"
^XMB(3.9,148,2,7334,0)=" I '$D(^TMP(""SRA"",$J)) W $$NODATA^SROUTL0()"
^XMB(3.9,148,2,7335,0)="""RTN"",""SROALTSP"",7,0)"
^XMB(3.9,148,2,7336,0)=" Q"
^XMB(3.9,148,2,7337,0)="""RTN"",""SROALTSP"",8,0)"
^XMB(3.9,148,2,7338,0)="UTL ; write to ^TMP(""SRA"",$J)"
^XMB(3.9,148,2,7339,0)="""RTN"",""SROALTSP"",9,0)"
^XMB(3.9,148,2,7340,0)=" I SRFLG,$P(^SRF(SRTN,0),""^"",4)'=SRASP Q"
^XMB(3.9,148,2,7341,0)="""RTN"",""SROALTSP"",10,0)"
^XMB(3.9,148,2,7342,0)=" S SRSS=$P(^SRF(SRTN,0),""^"",4),SRSS=$S(SRSS:$P(^SRO(137.45,SRSS,0),""^""),1:""SPECIALTY NOT ENTERED"")"
^XMB(3.9,148,2,7343,0)="""RTN"",""SROALTSP"",11,0)"
^XMB(3.9,148,2,7344,0)=" S TYPE=$P(SR(""RA""),""^"",2) I SRSS=""SPECIALTY NOT ENTERED"",TYPE=""C"" S SRSS=""N/A"""
^XMB(3.9,148,2,7345,0)="""RTN"",""SROALTSP"",12,0)"
^XMB(3.9,148,2,7346,0)=" S ^TMP(""SRA"",$J,SRSS,SRTN)="""""
^XMB(3.9,148,2,7347,0)="""RTN"",""SROALTSP"",13,0)"
^XMB(3.9,148,2,7348,0)=" Q"
^XMB(3.9,148,2,7349,0)="""RTN"",""SROALTSP"",14,0)"
^XMB(3.9,148,2,7350,0)="SET ; print assessments"
^XMB(3.9,148,2,7351,0)="""RTN"",""SROALTSP"",15,0)"
^XMB(3.9,148,2,7352,0)=" K SRCPTT S SRCPTT=""NOT ENTERED"""
^XMB(3.9,148,2,7353,0)="""RTN"",""SROALTSP"",16,0)"
^XMB(3.9,148,2,7354,0)=" I $Y+5>IOSL D HDR I SRSOUT Q"
^XMB(3.9,148,2,7355,0)="""RTN"",""SROALTSP"",17,0)"
^XMB(3.9,148,2,7356,0)=" S SR(""RA"")=^SRF(SRTN,""RA""),SRAT="""",Y=$E($P(SR(""RA""),""^"",4),1,7) I Y D D^DIQ S SRAT=Y"
^XMB(3.9,148,2,7357,0)="""RTN"",""SROALTSP"",18,0)"
^XMB(3.9,148,2,7358,0)=" S SRA(0)=^SRF(SRTN,0),DFN=$P(SRA(0),""^"") N I D DEM^VADPT S SRANM=VADM(1),SRASSN=VA(""PID"") K VADM"
^XMB(3.9,148,2,7359,0)="""RTN"",""SROALTSP"",19,0)"
^XMB(3.9,148,2,7360,0)=" S SROPER=$P(^SRF(SRTN,""OP""),""^"") I $O(^SRF(SRTN,13,0)) S SROTHER=0 F  S SROTHER=$O(^SRF(SRTN,13,SROTHER)) Q:'SROTHER  D OTHER"
^XMB(3.9,148,2,7361,0)="""RTN"",""SROALTSP"",20,0)"
^XMB(3.9,148,2,7362,0)=" S X=$P($G(^SRF(SRTN,""RA"")),""^"",2) I X=""C"" S SROPER=""* ""_SROPER"
^XMB(3.9,148,2,7363,0)="""RTN"",""SROALTSP"",21,0)"
^XMB(3.9,148,2,7364,0)=" K SROPS,MM,MMM S:$L(SROPER)<81 SROPS(1)=SROPER I $L(SROPER)>80 S SROPER=SROPER_""  "" F M=1:1 D LOOP Q:MMM="""""
^XMB(3.9,148,2,7365,0)="""RTN"",""SROALTSP"",22,0)"
^XMB(3.9,148,2,7366,0)=" D TECH^SROPRIN"
^XMB(3.9,148,2,7367,0)="""RTN"",""SROALTSP"",23,0)"
^XMB(3.9,148,2,7368,0)=" S Y=$P(SRA(0),""^"",9) D D^DIQ S SRDT=$P(Y,""@"")"
^XMB(3.9,148,2,7369,0)="""RTN"",""SROALTSP"",24,0)"
^XMB(3.9,148,2,7370,0)=" W !,SRTN,?20,SRANM_"" ""_VA(""PID""),?67,SRAT,?107,SRTECH,!,SRDT,?20,SROPS(1) S SRAO=1 F  S SRAO=$O(SROPS(SRAO)) Q:'SRAO  W !,?20,SROPS(SRAO)"
^XMB(3.9,148,2,7371,0)="""RTN"",""SROALTSP"",25,0)"
^XMB(3.9,148,2,7372,0)=" N I,SRPROC,SRL S SRL=100 D CPTS^SROAUTL0 W !,?20,""CPT Codes: """
^XMB(3.9,148,2,7373,0)="""RTN"",""SROALTSP"",26,0)"
^XMB(3.9,148,2,7374,0)=" F I=1:1 Q:'$D(SRPROC(I))  W:I=1 ?31,SRPROC(I) W:I'=1 !,?31,SRPROC(I)"
^XMB(3.9,148,2,7375,0)="""RTN"",""SROALTSP"",27,0)"
^XMB(3.9,148,2,7376,0)=" D LINE"
^XMB(3.9,148,2,7377,0)="""RTN"",""SROALTSP"",28,0)"
^XMB(3.9,148,2,7378,0)=" Q"
^XMB(3.9,148,2,7379,0)="""RTN"",""SROALTSP"",29,0)"
^XMB(3.9,148,2,7380,0)="OTHER ; other operations"
^XMB(3.9,148,2,7381,0)="""RTN"",""SROALTSP"",30,0)"
^XMB(3.9,148,2,7382,0)=" S SRLONG=1 I $L(SROPER)+$L($P(^SRF(SRTN,13,SROTHER,0),""^""))>165 S SRLONG=0,SROTHER=999,SROPERS="" ..."""
^XMB(3.9,148,2,7383,0)="""RTN"",""SROALTSP"",31,0)"
^XMB(3.9,148,2,7384,0)=" I SRLONG S SROPERS=$P(^SRF(SRTN,13,SROTHER,0),""^"")"
^XMB(3.9,148,2,7385,0)="""RTN"",""SROALTSP"",32,0)"
^XMB(3.9,148,2,7386,0)=" S SROPER=SROPER_$S(SROPERS'="" ..."":"", ""_SROPERS,1:SROPERS)"
^XMB(3.9,148,2,7387,0)="""RTN"",""SROALTSP"",33,0)"
^XMB(3.9,148,2,7388,0)=" Q"
^XMB(3.9,148,2,7389,0)="""RTN"",""SROALTSP"",34,0)"
^XMB(3.9,148,2,7390,0)="LOOP ; break procedures"
^XMB(3.9,148,2,7391,0)="""RTN"",""SROALTSP"",35,0)"
^XMB(3.9,148,2,7392,0)=" S SROPS(M)="""" F LOOP=1:1 S MM=$P(SROPER,"" ""),MMM=$P(SROPER,"" "",2,200) Q:MMM=""""  Q:$L(SROPS(M))+$L(MM)'<44  S SROPS(M)=SROPS(M)_MM_"" "",SROPER=MMM"
^XMB(3.9,148,2,7393,0)="""RTN"",""SROALTSP"",36,0)"
^XMB(3.9,148,2,7394,0)=" Q"
^XMB(3.9,148,2,7395,0)="""RTN"",""SROALTSP"",37,0)"
^XMB(3.9,148,2,7396,0)="HDR ; print heading"
^XMB(3.9,148,2,7397,0)="""RTN"",""SROALTSP"",38,0)"
^XMB(3.9,148,2,7398,0)=" I $D(ZTQUEUED) D ^SROSTOP I SRHALT S SRSOUT=1 Q"
^XMB(3.9,148,2,7399,0)="""RTN"",""SROALTSP"",39,0)"
^XMB(3.9,148,2,7400,0)=" S SRPAGE=SRPAGE+1 W:$Y @IOF W !,?52,""TRANSMITTED RISK ASSESSMENTS"",?120,""PAGE ""_SRPAGE,!,?(132-$L(SRINST)\2),SRINST,!,?58,""SURGERY SERVICE"",?100,""DATE REVIEWED:"""
^XMB(3.9,148,2,7401,0)="""RTN"",""SROALTSP"",40,0)"
^XMB(3.9,148,2,7402,0)=" W !,?(132-$L(SRFRTO)\2),SRFRTO,?100,""REVIEWED BY:"""
^XMB(3.9,148,2,7403,0)="""RTN"",""SROALTSP"",41,0)"
^XMB(3.9,148,2,7404,0)=" W !!,""ASSESSMENT #"",?20,""PATIENT"",?67,""TRANSMISSION DATE"",?107,""ANESTHESIA TECHNIQUE"",!,""OPERATION DATE"",?20,""OPERATIVE PROCEDURE(S)"",! F LINE=1:1:132 W ""="""
^XMB(3.9,148,2,7405,0)="""RTN"",""SROALTSP"",42,0)"
^XMB(3.9,148,2,7406,0)=" Q"
^XMB(3.9,148,2,7407,0)="""RTN"",""SROALTSP"",43,0)"
^XMB(3.9,148,2,7408,0)="SS ;print surgical specialty"
^XMB(3.9,148,2,7409,0)="""RTN"",""SROALTSP"",44,0)"
^XMB(3.9,148,2,7410,0)=" I $Y+5>IOSL D HDR"
^XMB(3.9,148,2,7411,0)="""RTN"",""SROALTSP"",45,0)"
^XMB(3.9,148,2,7412,0)=" W !!,""** SURGICAL SPECIALTY: "",SRSS,"" **"",!"
^XMB(3.9,148,2,7413,0)="""RTN"",""SROALTSP"",46,0)"
^XMB(3.9,148,2,7414,0)=" Q"
^XMB(3.9,148,2,7415,0)="""RTN"",""SROALTSP"",47,0)"
^XMB(3.9,148,2,7416,0)="LINE W ! F L=1:1:132 W ""-"""
^XMB(3.9,148,2,7417,0)="""RTN"",""SROALTSP"",48,0)"
^XMB(3.9,148,2,7418,0)=" Q"
^XMB(3.9,148,2,7419,0)="""RTN"",""SROAMEAS"")"
^XMB(3.9,148,2,7420,0)="0^49^B451481^B341409"
^XMB(3.9,148,2,7421,0)="""RTN"",""SROAMEAS"",1,0)"
^XMB(3.9,148,2,7422,0)="SROAMEAS ;BIR/MAM - INPUT TRANSFORMS, HEIGHT & WEIGHT ;03/20/06"
^XMB(3.9,148,2,7423,0)="""RTN"",""SROAMEAS"",2,0)"
^XMB(3.9,148,2,7424,0)=" ;;3.0; Surgery ;**38,125,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,7425,0)="""RTN"",""SROAMEAS"",3,0)"
^XMB(3.9,148,2,7426,0)="H Q:'$D(X)  I X'?.N1""C""&(X'?.N1""c""),(+X'=X) K X Q"
^XMB(3.9,148,2,7427,0)="""RTN"",""SROAMEAS"",4,0)"
^XMB(3.9,148,2,7428,0)=" I +X=X S X=X+.5\1 I X'>47.9!(X'<86.1) K X Q"
^XMB(3.9,148,2,7429,0)="""RTN"",""SROAMEAS"",5,0)"
^XMB(3.9,148,2,7430,0)=" S:X[""c"" X=+X_""C"""
^XMB(3.9,148,2,7431,0)="""RTN"",""SROAMEAS"",6,0)"
^XMB(3.9,148,2,7432,0)=" I X?.N1""C"",(X'>121.9!(X'<218.1)) K X"
^XMB(3.9,148,2,7433,0)="""RTN"",""SROAMEAS"",7,0)"
^XMB(3.9,148,2,7434,0)=" Q"
^XMB(3.9,148,2,7435,0)="""RTN"",""SROAMEAS"",8,0)"
^XMB(3.9,148,2,7436,0)="W Q:'$D(X)  I +X'=X,(X'?.N1""K"")&(X'?.N1""k"") K X Q"
^XMB(3.9,148,2,7437,0)="""RTN"",""SROAMEAS"",9,0)"
^XMB(3.9,148,2,7438,0)=" I +X=X S X=X+.5\1 I X'>49.9!(X'<700.1) K X Q"
^XMB(3.9,148,2,7439,0)="""RTN"",""SROAMEAS"",10,0)"
^XMB(3.9,148,2,7440,0)=" S:X[""k"" X=+X_""K"""
^XMB(3.9,148,2,7441,0)="""RTN"",""SROAMEAS"",11,0)"
^XMB(3.9,148,2,7442,0)=" I X?.N1""K"",(X'>22.9!(X'<318.1)) K X"
^XMB(3.9,148,2,7443,0)="""RTN"",""SROAMEAS"",12,0)"
^XMB(3.9,148,2,7444,0)=" Q"
^XMB(3.9,148,2,7445,0)="""RTN"",""SROANT"")"
^XMB(3.9,148,2,7446,0)="0^79^B10789916^B11065524"
^XMB(3.9,148,2,7447,0)="""RTN"",""SROANT"",1,0)"
^XMB(3.9,148,2,7448,0)="SROANT ;BIR/MAM - INCOMPLETE ASSESSMENTS ;03/24/06"
^XMB(3.9,148,2,7449,0)="""RTN"",""SROANT"",2,0)"
^XMB(3.9,148,2,7450,0)=" ;;3.0; Surgery ;**38,50,100,142,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,7451,0)="""RTN"",""SROANT"",3,0)"
^XMB(3.9,148,2,7452,0)=" I $E(IOST)=""P"" D ^SROANTP Q"
^XMB(3.9,148,2,7453,0)="""RTN"",""SROANT"",4,0)"
^XMB(3.9,148,2,7454,0)=" S SRSOUT=0 D HDR"
^XMB(3.9,148,2,7455,0)="""RTN"",""SROANT"",5,0)"
^XMB(3.9,148,2,7456,0)=" F  S SRSD=$O(^SRF(""AC"",SRSD)) Q:'SRSD!(SRSD>SRED)!SRSOUT  S SRTN=0 F  S SRTN=$O(^SRF(""AC"",SRSD,SRTN)) Q:'SRTN!SRSOUT  S SR(""RA"")=$G(^SRF(SRTN,""RA"")) I $P(SR(""RA""),""^"")=""I"",$D(^SRF(SRTN,0)),$$DIV^SROUTL0(SRTN) D SET"
^XMB(3.9,148,2,7457,0)="""RTN"",""SROANT"",6,0)"
^XMB(3.9,148,2,7458,0)=" Q"
^XMB(3.9,148,2,7459,0)="""RTN"",""SROANT"",7,0)"
^XMB(3.9,148,2,7460,0)="SET ; print assessments"
^XMB(3.9,148,2,7461,0)="""RTN"",""SROANT"",8,0)"
^XMB(3.9,148,2,7462,0)=" I $P(SR(""RA""),""^"",6)=""N"" Q"
^XMB(3.9,148,2,7463,0)="""RTN"",""SROANT"",9,0)"
^XMB(3.9,148,2,7464,0)=" I $Y+5>IOSL D PAGE I SRSOUT Q"
^XMB(3.9,148,2,7465,0)="""RTN"",""SROANT"",10,0)"
^XMB(3.9,148,2,7466,0)=" K SRCPTT S SRCPTT=""NOT ENTERED"""
^XMB(3.9,148,2,7467,0)="""RTN"",""SROANT"",11,0)"
^XMB(3.9,148,2,7468,0)=" S SRA(0)=^SRF(SRTN,0),DFN=$P(SRA(0),""^"") N I D DEM^VADPT S SRANM=VADM(1),SRASSN=VA(""PID"") K VADM"
^XMB(3.9,148,2,7469,0)="""RTN"",""SROANT"",12,0)"
^XMB(3.9,148,2,7470,0)=" I $L(SRANM)>19 S SRANM=$P(SRANM,"","")_"",""_$E($P(SRANM,"","",2))_""."""
^XMB(3.9,148,2,7471,0)="""RTN"",""SROANT"",13,0)"
^XMB(3.9,148,2,7472,0)=" S X=^SRF(SRTN,""OP""),SROPER=$P(X,""^"")"
^XMB(3.9,148,2,7473,0)="""RTN"",""SROANT"",14,0)"
^XMB(3.9,148,2,7474,0)=" I $O(^SRF(SRTN,13,0)) S SROTHER=0 F  S SROTHER=$O(^SRF(SRTN,13,SROTHER)) Q:'SROTHER  D OTHER"
^XMB(3.9,148,2,7475,0)="""RTN"",""SROANT"",15,0)"
^XMB(3.9,148,2,7476,0)=" S X=$P($G(^SRF(SRTN,""RA"")),""^"",2) I X=""C"" S SROPER=""* ""_SROPER"
^XMB(3.9,148,2,7477,0)="""RTN"",""SROANT"",16,0)"
^XMB(3.9,148,2,7478,0)=" K SROPS,MM,MMM S:$L(SROPER)<34 SROPS(1)=SROPER I $L(SROPER)>33 S SROPER=SROPER_""  "" F M=1:1 D LOOP Q:MMM="""""
^XMB(3.9,148,2,7479,0)="""RTN"",""SROANT"",17,0)"
^XMB(3.9,148,2,7480,0)=" S SRSS=$P(SRA(0),""^"",4),SRSS=$S(SRSS:$P(^SRO(137.45,SRSS,0),""^""),1:""SPECIALTY NOT ENTERED"")"
^XMB(3.9,148,2,7481,0)="""RTN"",""SROANT"",18,0)"
^XMB(3.9,148,2,7482,0)=" D TECH^SROPRIN"
^XMB(3.9,148,2,7483,0)="""RTN"",""SROANT"",19,0)"
^XMB(3.9,148,2,7484,0)=" S Y=$P(SRA(0),""^"",9) D D^DIQ S SRDT=$P(Y,""@"")"
^XMB(3.9,148,2,7485,0)="""RTN"",""SROANT"",20,0)"
^XMB(3.9,148,2,7486,0)=" S (SRDOC,Y)=$P($G(^SRF(SRTN,.1)),""^"",4),C=$P(^DD(130,.14,0),""^"",2) D:Y'="""" Y^DIQ I $L(Y)>18 S Z=$P(Y,"","")_"",""_$E($P(Y,"","",2))_""."",Y=Z"
^XMB(3.9,148,2,7487,0)="""RTN"",""SROANT"",21,0)"
^XMB(3.9,148,2,7488,0)=" S SRDOC=Y"
^XMB(3.9,148,2,7489,0)="""RTN"",""SROANT"",22,0)"
^XMB(3.9,148,2,7490,0)=" W !,SRTN,?20,SRANM_"" ""_VA(""PID""),?55,$P(SRSS,""(""),!,SRDT,?20,SROPS(1),?55,SRTECH,!,SRDOC I $D(SROPS(2)) W !,?20,SROPS(2) I $D(SROPS(3)) W !,?20,SROPS(3)"
^XMB(3.9,148,2,7491,0)="""RTN"",""SROANT"",23,0)"
^XMB(3.9,148,2,7492,0)=" N I,SRPROC,SRL S SRL=48 D CPTS^SROAUTL0 W !,?20,""CPT Codes: """
^XMB(3.9,148,2,7493,0)="""RTN"",""SROANT"",24,0)"
^XMB(3.9,148,2,7494,0)=" F I=1:1 Q:'$D(SRPROC(I))  W:I=1 ?31,SRPROC(I) W:I'=1 !,?31,SRPROC(I)"
^XMB(3.9,148,2,7495,0)="""RTN"",""SROANT"",25,0)"
^XMB(3.9,148,2,7496,0)=" W ! F LINE=1:1:80 W ""-"""
^XMB(3.9,148,2,7497,0)="""RTN"",""SROANT"",26,0)"
^XMB(3.9,148,2,7498,0)=" Q"
^XMB(3.9,148,2,7499,0)="""RTN"",""SROANT"",27,0)"
^XMB(3.9,148,2,7500,0)="OTHER ; other operations"
^XMB(3.9,148,2,7501,0)="""RTN"",""SROANT"",28,0)"
^XMB(3.9,148,2,7502,0)=" S SRLONG=1 I $L(SROPER)+$L($P(^SRF(SRTN,13,SROTHER,0),""^""))>125 S SRLONG=0,SROTHER=999,SROPERS="" ..."""
^XMB(3.9,148,2,7503,0)="""RTN"",""SROANT"",29,0)"
^XMB(3.9,148,2,7504,0)=" I SRLONG S SROPERS=$P(^SRF(SRTN,13,SROTHER,0),""^"")"
^XMB(3.9,148,2,7505,0)="""RTN"",""SROANT"",30,0)"
^XMB(3.9,148,2,7506,0)=" S SROPER=SROPER_$S(SROPERS'="" ..."":"", ""_SROPERS,1:SROPERS)"
^XMB(3.9,148,2,7507,0)="""RTN"",""SROANT"",31,0)"
^XMB(3.9,148,2,7508,0)=" Q"
^XMB(3.9,148,2,7509,0)="""RTN"",""SROANT"",32,0)"
^XMB(3.9,148,2,7510,0)="LOOP ; break procedures"
^XMB(3.9,148,2,7511,0)="""RTN"",""SROANT"",33,0)"
^XMB(3.9,148,2,7512,0)=" S SROPS(M)="""" F LOOP=1:1 S MM=$P(SROPER,"" ""),MMM=$P(SROPER,"" "",2,200) Q:MMM=""""  Q:$L(SROPS(M))+$L(MM)'<34  S SROPS(M)=SROPS(M)_MM_"" "",SROPER=MMM"
^XMB(3.9,148,2,7513,0)="""RTN"",""SROANT"",34,0)"
^XMB(3.9,148,2,7514,0)=" Q"
^XMB(3.9,148,2,7515,0)="""RTN"",""SROANT"",35,0)"
^XMB(3.9,148,2,7516,0)="PAGE W !!,""Press <RET> to continue, or '^' to quit  "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1 Q"
^XMB(3.9,148,2,7517,0)="""RTN"",""SROANT"",36,0)"
^XMB(3.9,148,2,7518,0)=" I X[""?"" W !!,""If you want to continue listing incomplete assessments, enter <RET>.  Enter"",!,""'^' to return to the menu."" G PAGE"
^XMB(3.9,148,2,7519,0)="""RTN"",""SROANT"",37,0)"
^XMB(3.9,148,2,7520,0)="HDR W @IOF,!,?26,""INCOMPLETE RISK ASSESSMENTS"",!,?(80-$L(SRFRTO)\2),SRFRTO,!!,""ASSESSMENT #"",?20,""PATIENT"",?55,""SURGICAL SPECIALTY"""
^XMB(3.9,148,2,7521,0)="""RTN"",""SROANT"",38,0)"
^XMB(3.9,148,2,7522,0)=" W !,""OPERATION DATE"",?20,""OPERATION(S)"",?55,""ANESTHESIA TECHNIQUE"",!,""SURGEON"",! F LINE=1:1:80 W ""="""
^XMB(3.9,148,2,7523,0)="""RTN"",""SROANT"",39,0)"
^XMB(3.9,148,2,7524,0)=" Q"
^XMB(3.9,148,2,7525,0)="""RTN"",""SROANTP"")"
^XMB(3.9,148,2,7526,0)="0^82^B10996883^B11267319"
^XMB(3.9,148,2,7527,0)="""RTN"",""SROANTP"",1,0)"
^XMB(3.9,148,2,7528,0)="SROANTP ;BIR/MAM - INCOMPLETE ASSESSMENTS (PRINTER) ;03/24/06"
^XMB(3.9,148,2,7529,0)="""RTN"",""SROANTP"",2,0)"
^XMB(3.9,148,2,7530,0)=" ;;3.0; Surgery ;**32,50,100,142,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,7531,0)="""RTN"",""SROANTP"",3,0)"
^XMB(3.9,148,2,7532,0)=" S SRPAGE=1,(SRSOUT,SRDFN)=0 D HDR Q:SRSOUT"
^XMB(3.9,148,2,7533,0)="""RTN"",""SROANTP"",4,0)"
^XMB(3.9,148,2,7534,0)=" F  S SRSD=$O(^SRF(""AC"",SRSD)) Q:'SRSD!(SRSD>SRED)!SRSOUT  S SRTN=0 F  S SRTN=$O(^SRF(""AC"",SRSD,SRTN)) Q:'SRTN!SRSOUT  S SR(""RA"")=$G(^SRF(SRTN,""RA"")) I $P(SR(""RA""),""^"")=""I"",$D(^SRF(SRTN,0)),$$DIV^SROUTL0(SRTN) D SET"
^XMB(3.9,148,2,7535,0)="""RTN"",""SROANTP"",5,0)"
^XMB(3.9,148,2,7536,0)=" Q"
^XMB(3.9,148,2,7537,0)="""RTN"",""SROANTP"",6,0)"
^XMB(3.9,148,2,7538,0)="SET ; print assessments"
^XMB(3.9,148,2,7539,0)="""RTN"",""SROANTP"",7,0)"
^XMB(3.9,148,2,7540,0)=" I $P(SR(""RA""),""^"",6)=""N"" Q"
^XMB(3.9,148,2,7541,0)="""RTN"",""SROANTP"",8,0)"
^XMB(3.9,148,2,7542,0)=" I $Y+5>IOSL S SRPAGE=SRPAGE+1 D HDR I SRSOUT Q"
^XMB(3.9,148,2,7543,0)="""RTN"",""SROANTP"",9,0)"
^XMB(3.9,148,2,7544,0)=" K SRCPTT S SRCPTT=""NOT ENTERED"""
^XMB(3.9,148,2,7545,0)="""RTN"",""SROANTP"",10,0)"
^XMB(3.9,148,2,7546,0)=" S SRA(0)=^SRF(SRTN,0),DFN=$P(SRA(0),""^"") N I D DEM^VADPT S SRANM=VADM(1),SRASSN=VA(""PID"") K VADM"
^XMB(3.9,148,2,7547,0)="""RTN"",""SROANTP"",11,0)"
^XMB(3.9,148,2,7548,0)=" S X=^SRF(SRTN,""OP""),SROPER=$P(X,""^"")"
^XMB(3.9,148,2,7549,0)="""RTN"",""SROANTP"",12,0)"
^XMB(3.9,148,2,7550,0)=" I $O(^SRF(SRTN,13,0)) S SROTHER=0 F  S SROTHER=$O(^SRF(SRTN,13,SROTHER)) Q:'SROTHER  D OTHER"
^XMB(3.9,148,2,7551,0)="""RTN"",""SROANTP"",13,0)"
^XMB(3.9,148,2,7552,0)=" S X=$P($G(^SRF(SRTN,""RA"")),""^"",2) I X=""C"" S SROPER=""* ""_SROPER"
^XMB(3.9,148,2,7553,0)="""RTN"",""SROANTP"",14,0)"
^XMB(3.9,148,2,7554,0)=" K SROPS,MM,MMM S:$L(SROPER)<81 SROPS(1)=SROPER I $L(SROPER)>80 S SROPER=SROPER_""  "" F M=1:1 D LOOP Q:MMM="""""
^XMB(3.9,148,2,7555,0)="""RTN"",""SROANTP"",15,0)"
^XMB(3.9,148,2,7556,0)=" S SRSS=$P(SRA(0),""^"",4),SRSS=$S(SRSS:$P(^SRO(137.45,SRSS,0),""^""),1:""SPECIALTY NOT ENTERED"")"
^XMB(3.9,148,2,7557,0)="""RTN"",""SROANTP"",16,0)"
^XMB(3.9,148,2,7558,0)=" S TYPE=$P(SR(""RA""),""^"",2) I SRSS=""SPECIALTY NOT ENTERED"",TYPE=""C"" S SRSS=""N/A"""
^XMB(3.9,148,2,7559,0)="""RTN"",""SROANTP"",17,0)"
^XMB(3.9,148,2,7560,0)=" D TECH^SROPRIN"
^XMB(3.9,148,2,7561,0)="""RTN"",""SROANTP"",18,0)"
^XMB(3.9,148,2,7562,0)=" S Y=$P(SRA(0),""^"",9) D D^DIQ S SRDT=$P(Y,""@"")"
^XMB(3.9,148,2,7563,0)="""RTN"",""SROANTP"",19,0)"
^XMB(3.9,148,2,7564,0)=" S (SRDOC,Y)=$P($G(^SRF(SRTN,.1)),""^"",4),C=$P(^DD(130,.14,0),""^"",2) D:Y'="""" Y^DIQ I $L(Y)>23 S Z=$P(Y,"","")_"",""_$E($P(Y,"","",2))_""."",Y=Z"
^XMB(3.9,148,2,7565,0)="""RTN"",""SROANTP"",20,0)"
^XMB(3.9,148,2,7566,0)=" S SRDOC=Y"
^XMB(3.9,148,2,7567,0)="""RTN"",""SROANTP"",21,0)"
^XMB(3.9,148,2,7568,0)=" W !,SRTN,?20,SRANM_"" ""_VA(""PID""),?67,$P(SRSS,""(""),?107,SRTECH,!,SRDT,?20,SROPS(1),?107,SRDOC I $D(SROPS(2)) W !,?20,SROPS(2) I $D(SROPS(3)) W !,?20,SROPS(3) I $D(SROPS(4)) W !,?20,SROPS(4)"
^XMB(3.9,148,2,7569,0)="""RTN"",""SROANTP"",22,0)"
^XMB(3.9,148,2,7570,0)=" N I,SRPROC,SRL S SRL=100 D CPTS^SROAUTL0 W !,?20,""CPT Codes: """
^XMB(3.9,148,2,7571,0)="""RTN"",""SROANTP"",23,0)"
^XMB(3.9,148,2,7572,0)=" F I=1:1 Q:'$D(SRPROC(I))  W:I=1 ?31,SRPROC(I) W:I'=1 !,?31,SRPROC(I)"
^XMB(3.9,148,2,7573,0)="""RTN"",""SROANTP"",24,0)"
^XMB(3.9,148,2,7574,0)=" W ! F LINE=1:1:132 W ""-"""
^XMB(3.9,148,2,7575,0)="""RTN"",""SROANTP"",25,0)"
^XMB(3.9,148,2,7576,0)=" Q"
^XMB(3.9,148,2,7577,0)="""RTN"",""SROANTP"",26,0)"
^XMB(3.9,148,2,7578,0)="OTHER ; other operations"
^XMB(3.9,148,2,7579,0)="""RTN"",""SROANTP"",27,0)"
^XMB(3.9,148,2,7580,0)=" S SRLONG=1 I $L(SROPER)+$L($P(^SRF(SRTN,13,SROTHER,0),""^""))>165 S SRLONG=0,SROTHER=999,SROPERS="" ..."""
^XMB(3.9,148,2,7581,0)="""RTN"",""SROANTP"",28,0)"
^XMB(3.9,148,2,7582,0)=" I SRLONG S SROPERS=$P(^SRF(SRTN,13,SROTHER,0),""^"")"
^XMB(3.9,148,2,7583,0)="""RTN"",""SROANTP"",29,0)"
^XMB(3.9,148,2,7584,0)=" S SROPER=SROPER_$S(SROPERS'="" ..."":"", ""_SROPERS,1:SROPERS)"
^XMB(3.9,148,2,7585,0)="""RTN"",""SROANTP"",30,0)"
^XMB(3.9,148,2,7586,0)=" Q"
^XMB(3.9,148,2,7587,0)="""RTN"",""SROANTP"",31,0)"
^XMB(3.9,148,2,7588,0)="LOOP ; break procedures"
^XMB(3.9,148,2,7589,0)="""RTN"",""SROANTP"",32,0)"
^XMB(3.9,148,2,7590,0)=" S SROPS(M)="""" F LOOP=1:1 S MM=$P(SROPER,"" ""),MMM=$P(SROPER,"" "",2,200) Q:MMM=""""  Q:$L(SROPS(M))+$L(MM)'<81  S SROPS(M)=SROPS(M)_MM_"" "",SROPER=MMM"
^XMB(3.9,148,2,7591,0)="""RTN"",""SROANTP"",33,0)"
^XMB(3.9,148,2,7592,0)=" Q"
^XMB(3.9,148,2,7593,0)="""RTN"",""SROANTP"",34,0)"
^XMB(3.9,148,2,7594,0)="HDR ; print heading"
^XMB(3.9,148,2,7595,0)="""RTN"",""SROANTP"",35,0)"
^XMB(3.9,148,2,7596,0)=" I $D(ZTQUEUED) D ^SROSTOP I SRHALT S SRSOUT=1 Q"
^XMB(3.9,148,2,7597,0)="""RTN"",""SROANTP"",36,0)"
^XMB(3.9,148,2,7598,0)=" W:$Y @IOF W !,?53,""INCOMPLETE RISK ASSESSMENTS"",?120,""PAGE ""_SRPAGE,!,?(132-$L(SRINST)\2),SRINST,!,?58,""SURGERY SERVICE"",?100,""DATE REVIEWED:"""
^XMB(3.9,148,2,7599,0)="""RTN"",""SROANTP"",37,0)"
^XMB(3.9,148,2,7600,0)=" W !,?(132-$L(SRFRTO)\2),SRFRTO,?100,""REVIEWED BY:"""
^XMB(3.9,148,2,7601,0)="""RTN"",""SROANTP"",38,0)"
^XMB(3.9,148,2,7602,0)=" W !!,""ASSESSMENT #"",?20,""PATIENT"",?67,""SURGICAL SPECIALTY"",?107,""ANESTHESIA TECHNIQUE"",!,""OPERATION DATE"",?20,""OPERATIVE PROCEDURE(S)"",?107,""SURGEON"",! F LINE=1:1:132 W ""="""
^XMB(3.9,148,2,7603,0)="""RTN"",""SROANTP"",39,0)"
^XMB(3.9,148,2,7604,0)=" Q"
^XMB(3.9,148,2,7605,0)="""RTN"",""SROANTS"")"
^XMB(3.9,148,2,7606,0)="0^80^B12415292^B13577952"
^XMB(3.9,148,2,7607,0)="""RTN"",""SROANTS"",1,0)"
^XMB(3.9,148,2,7608,0)="SROANTS ;BIR/MAM - INCOMPLETE ASSESSMENTS ;03/24/06"
^XMB(3.9,148,2,7609,0)="""RTN"",""SROANTS"",2,0)"
^XMB(3.9,148,2,7610,0)=" ;;3.0; Surgery ;**38,50,100,142,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,7611,0)="""RTN"",""SROANTS"",3,0)"
^XMB(3.9,148,2,7612,0)=" I $E(IOST)=""P"" D ^SROANTSP Q"
^XMB(3.9,148,2,7613,0)="""RTN"",""SROANTS"",4,0)"
^XMB(3.9,148,2,7614,0)=" K ^TMP(""SRA"",$J)"
^XMB(3.9,148,2,7615,0)="""RTN"",""SROANTS"",5,0)"
^XMB(3.9,148,2,7616,0)=" S SRSOUT=0 D HDR"
^XMB(3.9,148,2,7617,0)="""RTN"",""SROANTS"",6,0)"
^XMB(3.9,148,2,7618,0)=" F  S SRSD=$O(^SRF(""AC"",SRSD)) Q:'SRSD!(SRSD>SRED)!SRSOUT  S SRTN=0 F  S SRTN=$O(^SRF(""AC"",SRSD,SRTN)) Q:'SRTN!SRSOUT  S SR(""RA"")=$G(^SRF(SRTN,""RA"")) I $P(SR(""RA""),""^"")=""I"",$D(^SRF(SRTN,0)),$$DIV^SROUTL0(SRTN) D UTL"
^XMB(3.9,148,2,7619,0)="""RTN"",""SROANTS"",7,0)"
^XMB(3.9,148,2,7620,0)=" S SRSS="""" F  S SRSS=$O(^TMP(""SRA"",$J,SRSS)) Q:SRSS=""""!SRSOUT  D SS S SRTN=0 F  S SRTN=$O(^TMP(""SRA"",$J,SRSS,SRTN)) Q:'SRTN!SRSOUT  D SET"
^XMB(3.9,148,2,7621,0)="""RTN"",""SROANTS"",8,0)"
^XMB(3.9,148,2,7622,0)=" I '$D(^TMP(""SRA"",$J)) W $$NODATA^SROUTL0()"
^XMB(3.9,148,2,7623,0)="""RTN"",""SROANTS"",9,0)"
^XMB(3.9,148,2,7624,0)=" Q"
^XMB(3.9,148,2,7625,0)="""RTN"",""SROANTS"",10,0)"
^XMB(3.9,148,2,7626,0)="UTL ; write to ^TMP(""SRA"",$J)"
^XMB(3.9,148,2,7627,0)="""RTN"",""SROANTS"",11,0)"
^XMB(3.9,148,2,7628,0)=" I $P(SR(""RA""),""^"",6)=""N"" Q"
^XMB(3.9,148,2,7629,0)="""RTN"",""SROANTS"",12,0)"
^XMB(3.9,148,2,7630,0)=" I SRFLG,$P(^SRF(SRTN,0),""^"",4)'=SRASP Q"
^XMB(3.9,148,2,7631,0)="""RTN"",""SROANTS"",13,0)"
^XMB(3.9,148,2,7632,0)=" S SRSS=$P(^SRF(SRTN,0),""^"",4),SRSS=$S(SRSS:$P(^SRO(137.45,SRSS,0),""^""),1:""SPECIALTY NOT ENTERED"")"
^XMB(3.9,148,2,7633,0)="""RTN"",""SROANTS"",14,0)"
^XMB(3.9,148,2,7634,0)=" S ^TMP(""SRA"",$J,SRSS,SRTN)="""""
^XMB(3.9,148,2,7635,0)="""RTN"",""SROANTS"",15,0)"
^XMB(3.9,148,2,7636,0)=" Q"
^XMB(3.9,148,2,7637,0)="""RTN"",""SROANTS"",16,0)"
^XMB(3.9,148,2,7638,0)="SET ; print assessments"
^XMB(3.9,148,2,7639,0)="""RTN"",""SROANTS"",17,0)"
^XMB(3.9,148,2,7640,0)=" K SRCPTT S SRCPTT=""NOT ENTERED"""
^XMB(3.9,148,2,7641,0)="""RTN"",""SROANTS"",18,0)"
^XMB(3.9,148,2,7642,0)=" I $Y+5>IOSL D PAGE I SRSOUT Q"
^XMB(3.9,148,2,7643,0)="""RTN"",""SROANTS"",19,0)"
^XMB(3.9,148,2,7644,0)=" S SRA(0)=^SRF(SRTN,0),DFN=$P(SRA(0),""^"") N I D DEM^VADPT S SRANM=VADM(1),SRASSN=VA(""PID"") K VADM"
^XMB(3.9,148,2,7645,0)="""RTN"",""SROANTS"",20,0)"
^XMB(3.9,148,2,7646,0)=" I $L(SRANM)>19 S SRANM=$P(SRANM,"","")_"",""_$E($P(SRANM,"","",2))_""."""
^XMB(3.9,148,2,7647,0)="""RTN"",""SROANTS"",21,0)"
^XMB(3.9,148,2,7648,0)=" S X=^SRF(SRTN,""OP""),SROPER=$P(X,""^"")"
^XMB(3.9,148,2,7649,0)="""RTN"",""SROANTS"",22,0)"
^XMB(3.9,148,2,7650,0)=" I $O(^SRF(SRTN,13,0)) S SROTHER=0 F I=0:0 S SROTHER=$O(^SRF(SRTN,13,SROTHER)) Q:'SROTHER  D OTHER"
^XMB(3.9,148,2,7651,0)="""RTN"",""SROANTS"",23,0)"
^XMB(3.9,148,2,7652,0)=" S X=$P($G(^SRF(SRTN,""RA"")),""^"",2) I X=""C"" S SROPER=""* ""_SROPER"
^XMB(3.9,148,2,7653,0)="""RTN"",""SROANTS"",24,0)"
^XMB(3.9,148,2,7654,0)=" K SROPS,MM,MMM S:$L(SROPER)<34 SROPS(1)=SROPER I $L(SROPER)>33 S SROPER=SROPER_""  "" F M=1:1 D LOOP Q:MMM="""""
^XMB(3.9,148,2,7655,0)="""RTN"",""SROANTS"",25,0)"
^XMB(3.9,148,2,7656,0)=" D TECH^SROPRIN"
^XMB(3.9,148,2,7657,0)="""RTN"",""SROANTS"",26,0)"
^XMB(3.9,148,2,7658,0)=" S Y=$P(SRA(0),""^"",9) D D^DIQ S SRDT=$P(Y,""@"")"
^XMB(3.9,148,2,7659,0)="""RTN"",""SROANTS"",27,0)"
^XMB(3.9,148,2,7660,0)=" S (SRDOC,Y)=$P($G(^SRF(SRTN,.1)),""^"",4),C=$P(^DD(130,.14,0),""^"",2) D:Y'="""" Y^DIQ I $L(Y)>23 S Z=$P(Y,"","")_"",""_$E($P(Y,"","",2))_""."",Y=Z"
^XMB(3.9,148,2,7661,0)="""RTN"",""SROANTS"",28,0)"
^XMB(3.9,148,2,7662,0)=" S SRDOC=Y"
^XMB(3.9,148,2,7663,0)="""RTN"",""SROANTS"",29,0)"
^XMB(3.9,148,2,7664,0)=" W !,SRTN,?20,SRANM_"" ""_VA(""PID""),?55,SRTECH,!,SRDT,?20,SROPS(1),?55,SRDOC S SRAO=1 F  S SRAO=$O(SROPS(SRAO)) Q:'SRAO  W !,?20,SROPS(SRAO)"
^XMB(3.9,148,2,7665,0)="""RTN"",""SROANTS"",30,0)"
^XMB(3.9,148,2,7666,0)=" N I,SRPROC,SRL S SRL=48 D CPTS^SROAUTL0 W !,?20,""CPT Codes: """
^XMB(3.9,148,2,7667,0)="""RTN"",""SROANTS"",31,0)"
^XMB(3.9,148,2,7668,0)=" F I=1:1 Q:'$D(SRPROC(I))  W:I=1 ?31,SRPROC(I) W:I'=1 !,?31,SRPROC(I)"
^XMB(3.9,148,2,7669,0)="""RTN"",""SROANTS"",32,0)"
^XMB(3.9,148,2,7670,0)=" W ! F LINE=1:1:80 W ""-"""
^XMB(3.9,148,2,7671,0)="""RTN"",""SROANTS"",33,0)"
^XMB(3.9,148,2,7672,0)=" Q"
^XMB(3.9,148,2,7673,0)="""RTN"",""SROANTS"",34,0)"
^XMB(3.9,148,2,7674,0)="OTHER ; other operations"
^XMB(3.9,148,2,7675,0)="""RTN"",""SROANTS"",35,0)"
^XMB(3.9,148,2,7676,0)=" S SRLONG=1 I $L(SROPER)+$L($P(^SRF(SRTN,13,SROTHER,0),""^""))>125 S SRLONG=0,SROTHER=999,SROPERS="" ..."""
^XMB(3.9,148,2,7677,0)="""RTN"",""SROANTS"",36,0)"
^XMB(3.9,148,2,7678,0)=" I SRLONG S SROPERS=$P(^SRF(SRTN,13,SROTHER,0),""^"")"
^XMB(3.9,148,2,7679,0)="""RTN"",""SROANTS"",37,0)"
^XMB(3.9,148,2,7680,0)=" S SROPER=SROPER_$S(SROPERS'="" ..."":"", ""_SROPERS,1:SROPERS)"
^XMB(3.9,148,2,7681,0)="""RTN"",""SROANTS"",38,0)"
^XMB(3.9,148,2,7682,0)=" Q"
^XMB(3.9,148,2,7683,0)="""RTN"",""SROANTS"",39,0)"
^XMB(3.9,148,2,7684,0)="LOOP ; break procedures"
^XMB(3.9,148,2,7685,0)="""RTN"",""SROANTS"",40,0)"
^XMB(3.9,148,2,7686,0)=" S SROPS(M)="""" F LOOP=1:1 S MM=$P(SROPER,"" ""),MMM=$P(SROPER,"" "",2,200) Q:MMM=""""  Q:$L(SROPS(M))+$L(MM)'<34  S SROPS(M)=SROPS(M)_MM_"" "",SROPER=MMM"
^XMB(3.9,148,2,7687,0)="""RTN"",""SROANTS"",41,0)"
^XMB(3.9,148,2,7688,0)=" Q"
^XMB(3.9,148,2,7689,0)="""RTN"",""SROANTS"",42,0)"
^XMB(3.9,148,2,7690,0)="PAGE W !!,""Press <RET> to continue, or '^' to quit  "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1 Q"
^XMB(3.9,148,2,7691,0)="""RTN"",""SROANTS"",43,0)"
^XMB(3.9,148,2,7692,0)=" I X[""?"" W !!,""If you want to continue listing incomplete assessments, enter <RET>.  Enter"",!,""'^' to return to the menu."" G PAGE"
^XMB(3.9,148,2,7693,0)="""RTN"",""SROANTS"",44,0)"
^XMB(3.9,148,2,7694,0)="HDR W @IOF,!!,?26,""INCOMPLETE RISK ASSESSMENTS"",!,?(80-$L(SRFRTO)\2),SRFRTO"
^XMB(3.9,148,2,7695,0)="""RTN"",""SROANTS"",45,0)"
^XMB(3.9,148,2,7696,0)=" W !!,""ASSESSMENT #"",?20,""PATIENT"",?55,""ANESTHESIA TECHNIQUE"""
^XMB(3.9,148,2,7697,0)="""RTN"",""SROANTS"",46,0)"
^XMB(3.9,148,2,7698,0)=" W !,""OPERATION DATE"",?20,""OPERATION(S)"",?55,""SURGEON"",! F LINE=1:1:80 W ""="""
^XMB(3.9,148,2,7699,0)="""RTN"",""SROANTS"",47,0)"
^XMB(3.9,148,2,7700,0)=" Q"
^XMB(3.9,148,2,7701,0)="""RTN"",""SROANTS"",48,0)"
^XMB(3.9,148,2,7702,0)="SS ; print surgical specialty"
^XMB(3.9,148,2,7703,0)="""RTN"",""SROANTS"",49,0)"
^XMB(3.9,148,2,7704,0)=" I $Y+8>IOSL D PAGE Q:SRSOUT"
^XMB(3.9,148,2,7705,0)="""RTN"",""SROANTS"",50,0)"
^XMB(3.9,148,2,7706,0)=" W !!,""** SURGICAL SPECIALTY: "",SRSS,"" **"",!"
^XMB(3.9,148,2,7707,0)="""RTN"",""SROANTS"",51,0)"
^XMB(3.9,148,2,7708,0)=" Q"
^XMB(3.9,148,2,7709,0)="""RTN"",""SROANTSP"")"
^XMB(3.9,148,2,7710,0)="0^81^B12263907^B12522927"
^XMB(3.9,148,2,7711,0)="""RTN"",""SROANTSP"",1,0)"
^XMB(3.9,148,2,7712,0)="SROANTSP ;BIR/MAM - INCOMPLETE ASSESSMENTS (PRINTER) ;03/24/06"
^XMB(3.9,148,2,7713,0)="""RTN"",""SROANTSP"",2,0)"
^XMB(3.9,148,2,7714,0)=" ;;3.0; Surgery ;**32,50,100,142,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,7715,0)="""RTN"",""SROANTSP"",3,0)"
^XMB(3.9,148,2,7716,0)=" K ^TMP(""SRA"",$J) S SRPAGE=0,(SRSOUT,SRDFN)=0 D HDR Q:SRSOUT"
^XMB(3.9,148,2,7717,0)="""RTN"",""SROANTSP"",4,0)"
^XMB(3.9,148,2,7718,0)=" F  S SRSD=$O(^SRF(""AC"",SRSD)) Q:'SRSD!(SRSD>SRED)!SRSOUT  S SRTN=0 F  S SRTN=$O(^SRF(""AC"",SRSD,SRTN)) Q:'SRTN!SRSOUT  S SR(""RA"")=$G(^SRF(SRTN,""RA"")) I $P(SR(""RA""),""^"")=""I"",$D(^SRF(SRTN,0)),$$DIV^SROUTL0(SRTN) D UTL"
^XMB(3.9,148,2,7719,0)="""RTN"",""SROANTSP"",5,0)"
^XMB(3.9,148,2,7720,0)=" S SRSS="""" F  S SRSS=$O(^TMP(""SRA"",$J,SRSS)) Q:SRSS=""""!SRSOUT  D SS S SRTN=0 F  S SRTN=$O(^TMP(""SRA"",$J,SRSS,SRTN)) D:'SRTN LINE Q:'SRTN!SRSOUT  D SET"
^XMB(3.9,148,2,7721,0)="""RTN"",""SROANTSP"",6,0)"
^XMB(3.9,148,2,7722,0)=" Q"
^XMB(3.9,148,2,7723,0)="""RTN"",""SROANTSP"",7,0)"
^XMB(3.9,148,2,7724,0)="UTL ; write to ^TMP(""SRA"",$J)"
^XMB(3.9,148,2,7725,0)="""RTN"",""SROANTSP"",8,0)"
^XMB(3.9,148,2,7726,0)=" I $P(SR(""RA""),""^"",6)=""N"" Q"
^XMB(3.9,148,2,7727,0)="""RTN"",""SROANTSP"",9,0)"
^XMB(3.9,148,2,7728,0)=" I SRFLG,$P(^SRF(SRTN,0),""^"",4)'=SRASP Q"
^XMB(3.9,148,2,7729,0)="""RTN"",""SROANTSP"",10,0)"
^XMB(3.9,148,2,7730,0)=" S SRSS=$P(^SRF(SRTN,0),""^"",4),SRSS=$S(SRSS:$P(^SRO(137.45,SRSS,0),""^""),1:""SRECIALTY NOT ENTERED"")"
^XMB(3.9,148,2,7731,0)="""RTN"",""SROANTSP"",11,0)"
^XMB(3.9,148,2,7732,0)=" S ^TMP(""SRA"",$J,SRSS,SRTN)="""""
^XMB(3.9,148,2,7733,0)="""RTN"",""SROANTSP"",12,0)"
^XMB(3.9,148,2,7734,0)=" Q"
^XMB(3.9,148,2,7735,0)="""RTN"",""SROANTSP"",13,0)"
^XMB(3.9,148,2,7736,0)="SET ; print assessments"
^XMB(3.9,148,2,7737,0)="""RTN"",""SROANTSP"",14,0)"
^XMB(3.9,148,2,7738,0)=" K SRCPTT S SRCPTT=""NOT ENTERED"""
^XMB(3.9,148,2,7739,0)="""RTN"",""SROANTSP"",15,0)"
^XMB(3.9,148,2,7740,0)=" I $Y+5>IOSL D HDR I SRSOUT Q"
^XMB(3.9,148,2,7741,0)="""RTN"",""SROANTSP"",16,0)"
^XMB(3.9,148,2,7742,0)=" S SRA(0)=^SRF(SRTN,0),DFN=$P(SRA(0),""^"") N I D DEM^VADPT S SRANM=VADM(1),SRASSN=VA(""PID"") K VADM"
^XMB(3.9,148,2,7743,0)="""RTN"",""SROANTSP"",17,0)"
^XMB(3.9,148,2,7744,0)=" S X=^SRF(SRTN,""OP""),SROPER=$P(X,""^"")"
^XMB(3.9,148,2,7745,0)="""RTN"",""SROANTSP"",18,0)"
^XMB(3.9,148,2,7746,0)=" I $O(^SRF(SRTN,13,0)) S SROTHER=0 F I=0:0 S SROTHER=$O(^SRF(SRTN,13,SROTHER)) Q:'SROTHER  D OTHER"
^XMB(3.9,148,2,7747,0)="""RTN"",""SROANTSP"",19,0)"
^XMB(3.9,148,2,7748,0)=" S X=$P($G(^SRF(SRTN,""RA"")),""^"",2) I X=""C"" S SROPER=""* ""_SROPER"
^XMB(3.9,148,2,7749,0)="""RTN"",""SROANTSP"",20,0)"
^XMB(3.9,148,2,7750,0)=" K SROPS,MM,MMM S:$L(SROPER)<36 SROPS(1)=SROPER I $L(SROPER)>35 S SROPER=SROPER_""  "" F M=1:1 D LOOP Q:MMM="""""
^XMB(3.9,148,2,7751,0)="""RTN"",""SROANTSP"",21,0)"
^XMB(3.9,148,2,7752,0)=" D TECH^SROPRIN"
^XMB(3.9,148,2,7753,0)="""RTN"",""SROANTSP"",22,0)"
^XMB(3.9,148,2,7754,0)=" S Y=$P(SRA(0),""^"",9) D D^DIQ S SRDT=$P(Y,""@"")"
^XMB(3.9,148,2,7755,0)="""RTN"",""SROANTSP"",23,0)"
^XMB(3.9,148,2,7756,0)=" S (SRDOC,Y)=$P($G(^SRF(SRTN,.1)),""^"",4),C=$P(^DD(130,.14,0),""^"",2) D:Y'="""" Y^DIQ I $L(Y)>23 S Z=$P(Y,"","")_"",""_$E($P(Y,"","",2))_""."",Y=Z"
^XMB(3.9,148,2,7757,0)="""RTN"",""SROANTSP"",24,0)"
^XMB(3.9,148,2,7758,0)=" S SRDOC=Y"
^XMB(3.9,148,2,7759,0)="""RTN"",""SROANTSP"",25,0)"
^XMB(3.9,148,2,7760,0)=" W !,SRTN,?20,SRANM_"" ""_VA(""PID""),?67,SROPS(1),?107,SRTECH,!,SRDT W:$D(SROPS(2)) ?67,SROPS(2) W ?107,SRDOC S SRAO=2 F  S SRAO=$O(SROPS(SRAO)) Q:'SRAO  W !,?67,SROPS(SRAO)"
^XMB(3.9,148,2,7761,0)="""RTN"",""SROANTSP"",26,0)"
^XMB(3.9,148,2,7762,0)=" N I,SRPROC,SRL S SRL=53 D CPTS^SROAUTL0 W !,?67,""CPT Codes: """
^XMB(3.9,148,2,7763,0)="""RTN"",""SROANTSP"",27,0)"
^XMB(3.9,148,2,7764,0)=" F I=1:1 Q:'$D(SRPROC(I))  W:I=1 ?78,SRPROC(I) W:I'=1 !,?78,SRPROC(I)"
^XMB(3.9,148,2,7765,0)="""RTN"",""SROANTSP"",28,0)"
^XMB(3.9,148,2,7766,0)=" W ! F LINE=1:1:132 W ""-"""
^XMB(3.9,148,2,7767,0)="""RTN"",""SROANTSP"",29,0)"
^XMB(3.9,148,2,7768,0)=" Q"
^XMB(3.9,148,2,7769,0)="""RTN"",""SROANTSP"",30,0)"
^XMB(3.9,148,2,7770,0)="OTHER ; other operations"
^XMB(3.9,148,2,7771,0)="""RTN"",""SROANTSP"",31,0)"
^XMB(3.9,148,2,7772,0)=" S SRLONG=1 I $L(SROPER)+$L($P(^SRF(SRTN,13,SROTHER,0),""^""))>125 S SRLONG=0,SROTHER=999,SROPERS="" ..."""
^XMB(3.9,148,2,7773,0)="""RTN"",""SROANTSP"",32,0)"
^XMB(3.9,148,2,7774,0)=" I SRLONG S SROPERS=$P(^SRF(SRTN,13,SROTHER,0),""^"")"
^XMB(3.9,148,2,7775,0)="""RTN"",""SROANTSP"",33,0)"
^XMB(3.9,148,2,7776,0)=" S SROPER=SROPER_$S(SROPERS'="" ..."":"", ""_SROPERS,1:SROPERS)"
^XMB(3.9,148,2,7777,0)="""RTN"",""SROANTSP"",34,0)"
^XMB(3.9,148,2,7778,0)=" Q"
^XMB(3.9,148,2,7779,0)="""RTN"",""SROANTSP"",35,0)"
^XMB(3.9,148,2,7780,0)="LOOP ; break procedures"
^XMB(3.9,148,2,7781,0)="""RTN"",""SROANTSP"",36,0)"
^XMB(3.9,148,2,7782,0)=" S SROPS(M)="""" F LOOP=1:1 S MM=$P(SROPER,"" ""),MMM=$P(SROPER,"" "",2,200) Q:MMM=""""  Q:$L(SROPS(M))+$L(MM)'<35  S SROPS(M)=SROPS(M)_MM_"" "",SROPER=MMM"
^XMB(3.9,148,2,7783,0)="""RTN"",""SROANTSP"",37,0)"
^XMB(3.9,148,2,7784,0)=" Q"
^XMB(3.9,148,2,7785,0)="""RTN"",""SROANTSP"",38,0)"
^XMB(3.9,148,2,7786,0)="HDR ; print heading"
^XMB(3.9,148,2,7787,0)="""RTN"",""SROANTSP"",39,0)"
^XMB(3.9,148,2,7788,0)=" I $D(ZTQUEUED) D ^SROSTOP I SRHALT S SRSOUT=1 Q"
^XMB(3.9,148,2,7789,0)="""RTN"",""SROANTSP"",40,0)"
^XMB(3.9,148,2,7790,0)=" S SRPAGE=SRPAGE+1 W:$Y @IOF W !,?53,""INCOMPLETE RISK ASSESSMENTS"",?120,""PAGE ""_SRPAGE,!,?(132-$L(SRINST)\2),SRINST,!,?58,""SURGERY SERVICE"",?100,""DATE REVIEWED:"""
^XMB(3.9,148,2,7791,0)="""RTN"",""SROANTSP"",41,0)"
^XMB(3.9,148,2,7792,0)=" W !,?(132-$L(SRFRTO)\2),SRFRTO,?100,""REVIEWED BY:"""
^XMB(3.9,148,2,7793,0)="""RTN"",""SROANTSP"",42,0)"
^XMB(3.9,148,2,7794,0)=" W !!,""ASSESSMENT #"",?20,""PATIENT"",?67,""OPERATIVE PROCEDURE(S)"",?107,""ANESTHESIA TECHNIQUE"",!,""OPERATION DATE"",?107,""SURGEON"",! F LINE=1:1:132 W ""="""
^XMB(3.9,148,2,7795,0)="""RTN"",""SROANTSP"",43,0)"
^XMB(3.9,148,2,7796,0)=" Q"
^XMB(3.9,148,2,7797,0)="""RTN"",""SROANTSP"",44,0)"
^XMB(3.9,148,2,7798,0)="SS ; print surgical specialty"
^XMB(3.9,148,2,7799,0)="""RTN"",""SROANTSP"",45,0)"
^XMB(3.9,148,2,7800,0)=" I $Y+5>IOSL D HDR"
^XMB(3.9,148,2,7801,0)="""RTN"",""SROANTSP"",46,0)"
^XMB(3.9,148,2,7802,0)=" W !!,""** SURGICAL SPECIALTY: "",SRSS,"" **"",!"
^XMB(3.9,148,2,7803,0)="""RTN"",""SROANTSP"",47,0)"
^XMB(3.9,148,2,7804,0)=" Q"
^XMB(3.9,148,2,7805,0)="""RTN"",""SROANTSP"",48,0)"
^XMB(3.9,148,2,7806,0)="LINE W ! F L=1:1:132 W ""-"""
^XMB(3.9,148,2,7807,0)="""RTN"",""SROANTSP"",49,0)"
^XMB(3.9,148,2,7808,0)=" Q"
^XMB(3.9,148,2,7809,0)="""RTN"",""SROAOP"")"
^XMB(3.9,148,2,7810,0)="0^4^B18332752^B20148443"
^XMB(3.9,148,2,7811,0)="""RTN"",""SROAOP"",1,0)"
^XMB(3.9,148,2,7812,0)="SROAOP ;BIR/MAM - ENTER OPERATION INFO ;06/07/06"
^XMB(3.9,148,2,7813,0)="""RTN"",""SROAOP"",2,0)"
^XMB(3.9,148,2,7814,0)=" ;;3.0; Surgery ;**19,38,47,63,67,81,86,97,100,125,142,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,7815,0)="""RTN"",""SROAOP"",3,0)"
^XMB(3.9,148,2,7816,0)=" I '$D(SRTN) W !!,""A Surgery Risk Assessment must be selected prior to using this option."",!!,""Press <RET> to continue  "" R X:DTIME G END"
^XMB(3.9,148,2,7817,0)="""RTN"",""SROAOP"",4,0)"
^XMB(3.9,148,2,7818,0)=" S SRSOUT=0,SRSUPCPT=1 D ^SROAUTL"
^XMB(3.9,148,2,7819,0)="""RTN"",""SROAOP"",5,0)"
^XMB(3.9,148,2,7820,0)="START G:SRSOUT END K SRAOTH,SRACON D ^SROAOP1"
^XMB(3.9,148,2,7821,0)="""RTN"",""SROAOP"",6,0)"
^XMB(3.9,148,2,7822,0)="ASK W !!,""Select Operative Information to Edit: "" R SRASEL:DTIME I '$T!(SRASEL[""^"") S SRSOUT=1 G END"
^XMB(3.9,148,2,7823,0)="""RTN"",""SROAOP"",7,0)"
^XMB(3.9,148,2,7824,0)=" I SRASEL="""" G END"
^XMB(3.9,148,2,7825,0)="""RTN"",""SROAOP"",8,0)"
^XMB(3.9,148,2,7826,0)=" S SRN=13 S:SRASEL=""a"" SRASEL=""A"" I '$D(SRAO(SRASEL)),(SRASEL'?.N1"":"".N),(SRASEL'=""A"") D HELP G:SRSOUT END G START"
^XMB(3.9,148,2,7827,0)="""RTN"",""SROAOP"",9,0)"
^XMB(3.9,148,2,7828,0)=" I SRASEL=""A"" S SRASEL=""1:""_SRN"
^XMB(3.9,148,2,7829,0)="""RTN"",""SROAOP"",10,0)"
^XMB(3.9,148,2,7830,0)=" I SRASEL?.N1"":"".N S Y=$E(SRASEL),Z=$P(SRASEL,"":"",2) I Y<1!(Z>SRN)!(Y>Z) D HELP G:SRSOUT END G START"
^XMB(3.9,148,2,7831,0)="""RTN"",""SROAOP"",11,0)"
^XMB(3.9,148,2,7832,0)=" S MM=$E(SRASEL) I MM'=3,(MM'=4),(MM'=5) S SRHDR(.5)=SRDOC D HDR^SROAUTL"
^XMB(3.9,148,2,7833,0)="""RTN"",""SROAOP"",12,0)"
^XMB(3.9,148,2,7834,0)=" I SRASEL?.N1"":"".N D RANGE G START"
^XMB(3.9,148,2,7835,0)="""RTN"",""SROAOP"",13,0)"
^XMB(3.9,148,2,7836,0)=" Q:'$D(SRAO(SRASEL))"
^XMB(3.9,148,2,7837,0)="""RTN"",""SROAOP"",14,0)"
^XMB(3.9,148,2,7838,0)=" S EMILY=SRASEL D  G START"
^XMB(3.9,148,2,7839,0)="""RTN"",""SROAOP"",15,0)"
^XMB(3.9,148,2,7840,0)=" .I $$LOCK^SROUTL(SRTN) D ONE,UNLOCK^SROUTL(SRTN)"
^XMB(3.9,148,2,7841,0)="""RTN"",""SROAOP"",16,0)"
^XMB(3.9,148,2,7842,0)="END I $D(SRSOUT),'SRSOUT D ^SROAOP2"
^XMB(3.9,148,2,7843,0)="""RTN"",""SROAOP"",17,0)"
^XMB(3.9,148,2,7844,0)=" I $D(SRTN) S SROERR=SRTN D ^SROERR0"
^XMB(3.9,148,2,7845,0)="""RTN"",""SROAOP"",18,0)"
^XMB(3.9,148,2,7846,0)=" W @IOF D ^SRSKILL"
^XMB(3.9,148,2,7847,0)="""RTN"",""SROAOP"",19,0)"
^XMB(3.9,148,2,7848,0)=" Q"
^XMB(3.9,148,2,7849,0)="""RTN"",""SROAOP"",20,0)"
^XMB(3.9,148,2,7850,0)="HELP W @IOF,!!!!,""Enter the number or range of numbers you want to edit. Examples of proper"""
^XMB(3.9,148,2,7851,0)="""RTN"",""SROAOP"",21,0)"
^XMB(3.9,148,2,7852,0)=" W !,""responses are listed below."",!!,""1. Enter 'A' to update all information."""
^XMB(3.9,148,2,7853,0)="""RTN"",""SROAOP"",22,0)"
^XMB(3.9,148,2,7854,0)=" W !!,""2. Enter a number (1-""_SRN_"") to update the information in that field. (For"""
^XMB(3.9,148,2,7855,0)="""RTN"",""SROAOP"",23,0)"
^XMB(3.9,148,2,7856,0)=" W !,""   example, enter '2' to update Principal Operation.)"""
^XMB(3.9,148,2,7857,0)="""RTN"",""SROAOP"",24,0)"
^XMB(3.9,148,2,7858,0)=" W !!,""3. Enter a range of numbers (1-""_SRN_"") separated by a ':' to enter a range of"""
^XMB(3.9,148,2,7859,0)="""RTN"",""SROAOP"",25,0)"
^XMB(3.9,148,2,7860,0)=" W !,""   information. (For example, enter '6:8' to update PGY of Primary Surgeon,"""
^XMB(3.9,148,2,7861,0)="""RTN"",""SROAOP"",26,0)"
^XMB(3.9,148,2,7862,0)=" W !,""   Surgical Priority and Wound Classification.)"",!"
^XMB(3.9,148,2,7863,0)="""RTN"",""SROAOP"",27,0)"
^XMB(3.9,148,2,7864,0)="PRESS K DIR S DIR(0)=""E"" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1"
^XMB(3.9,148,2,7865,0)="""RTN"",""SROAOP"",28,0)"
^XMB(3.9,148,2,7866,0)=" Q"
^XMB(3.9,148,2,7867,0)="""RTN"",""SROAOP"",29,0)"
^XMB(3.9,148,2,7868,0)="RANGE ; range of numbers"
^XMB(3.9,148,2,7869,0)="""RTN"",""SROAOP"",30,0)"
^XMB(3.9,148,2,7870,0)=" I $$LOCK^SROUTL(SRTN) D  D UNLOCK^SROUTL(SRTN)"
^XMB(3.9,148,2,7871,0)="""RTN"",""SROAOP"",31,0)"
^XMB(3.9,148,2,7872,0)=" .S SHEMP=$P(SRASEL,"":""),CURLEY=$P(SRASEL,"":"",2) F EMILY=SHEMP:1:CURLEY Q:SRSOUT  D ONE"
^XMB(3.9,148,2,7873,0)="""RTN"",""SROAOP"",32,0)"
^XMB(3.9,148,2,7874,0)=" Q"
^XMB(3.9,148,2,7875,0)="""RTN"",""SROAOP"",33,0)"
^XMB(3.9,148,2,7876,0)="ONE ; edit one item"
^XMB(3.9,148,2,7877,0)="""RTN"",""SROAOP"",34,0)"
^XMB(3.9,148,2,7878,0)=" I EMILY=3 D DISP^SROAUTL0 Q"
^XMB(3.9,148,2,7879,0)="""RTN"",""SROAOP"",35,0)"
^XMB(3.9,148,2,7880,0)=" I EMILY=10 D ANES Q"
^XMB(3.9,148,2,7881,0)="""RTN"",""SROAOP"",36,0)"
^XMB(3.9,148,2,7882,0)=" I EMILY=4 D ^SROTHER Q"
^XMB(3.9,148,2,7883,0)="""RTN"",""SROAOP"",37,0)"
^XMB(3.9,148,2,7884,0)=" I EMILY=5 D CONCUR Q"
^XMB(3.9,148,2,7885,0)="""RTN"",""SROAOP"",38,0)"
^XMB(3.9,148,2,7886,0)=" ;I EMILY=4!(EMILY=5) D:EMILY=4 ^SROTHER D:EMILY=5 CONCUR Q"
^XMB(3.9,148,2,7887,0)="""RTN"",""SROAOP"",39,0)"
^XMB(3.9,148,2,7888,0)=" I EMILY=6,SRASEL["":"",($P(SRASEL,"":"")'=6) S SRPAGE="""" S SRHDR(.5)=SRDOC D HDR^SROAUTL"
^XMB(3.9,148,2,7889,0)="""RTN"",""SROAOP"",40,0)"
^XMB(3.9,148,2,7890,0)=" K DR,DIE S DA=SRTN,DR=$P(SRAO(EMILY),""^"",2)_""T"",DIE=130 D ^DIE K DR I $D(Y) S SRSOUT=1"
^XMB(3.9,148,2,7891,0)="""RTN"",""SROAOP"",41,0)"
^XMB(3.9,148,2,7892,0)=" I EMILY=2 D ^SROAUTL"
^XMB(3.9,148,2,7893,0)="""RTN"",""SROAOP"",42,0)"
^XMB(3.9,148,2,7894,0)=" Q"
^XMB(3.9,148,2,7895,0)="""RTN"",""SROAOP"",43,0)"
^XMB(3.9,148,2,7896,0)="RET Q:SRSOUT  W !!,""Press ENTER to continue, or '^' to quit  "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1 Q"
^XMB(3.9,148,2,7897,0)="""RTN"",""SROAOP"",44,0)"
^XMB(3.9,148,2,7898,0)=" Q"
^XMB(3.9,148,2,7899,0)="""RTN"",""SROAOP"",45,0)"
^XMB(3.9,148,2,7900,0)="CONCUR ; concurrent case information"
^XMB(3.9,148,2,7901,0)="""RTN"",""SROAOP"",46,0)"
^XMB(3.9,148,2,7902,0)=" S SRLINE="""" F I=1:1:80 S SRLINE=SRLINE_""-"""
^XMB(3.9,148,2,7903,0)="""RTN"",""SROAOP"",47,0)"
^XMB(3.9,148,2,7904,0)=" S CON=$P($G(^SRF(SRTN,""CON"")),""^"") I CON,($P($G(^SRF(CON,30)),""^"")!($P($G(^SRF(CON,31)),""^"",8))) S CON="""""
^XMB(3.9,148,2,7905,0)="""RTN"",""SROAOP"",48,0)"
^XMB(3.9,148,2,7906,0)=" S SRPAGE="""" D HDR^SROAUTL"
^XMB(3.9,148,2,7907,0)="""RTN"",""SROAOP"",49,0)"
^XMB(3.9,148,2,7908,0)=" W !,""Concurrent case information cannot be updated using the Risk Assessment"",!,""Module. To update the CPT code of a concurrent case, please use an option"",!,""contained within the Operation Menu."""
^XMB(3.9,148,2,7909,0)="""RTN"",""SROAOP"",50,0)"
^XMB(3.9,148,2,7910,0)=" I CON D CC W !!,""Concurrent Procedure: "",?25,SROPS(1) I $D(SROPS(2)) W !,?25,SROPS(2) I $D(SROPS(3)) W !,?25,SROPS(3) I $D(SROPS(4)) W !,?25,SROPS(4)"
^XMB(3.9,148,2,7911,0)="""RTN"",""SROAOP"",51,0)"
^XMB(3.9,148,2,7912,0)=" W !!,""Press ENTER to continue "" R X:DTIME"
^XMB(3.9,148,2,7913,0)="""RTN"",""SROAOP"",52,0)"
^XMB(3.9,148,2,7914,0)=" Q"
^XMB(3.9,148,2,7915,0)="""RTN"",""SROAOP"",53,0)"
^XMB(3.9,148,2,7916,0)="CC ; list concurrent procedure"
^XMB(3.9,148,2,7917,0)="""RTN"",""SROAOP"",54,0)"
^XMB(3.9,148,2,7918,0)=" S SROPER=$P(^SRF(CON,""OP""),""^"") I $P(^(""OP""),""^"",2) S SROPER=SROPER_"" (""_$P(^(""OP""),""^"",2)_"")"""
^XMB(3.9,148,2,7919,0)="""RTN"",""SROAOP"",55,0)"
^XMB(3.9,148,2,7920,0)=" K SROPS,MM,MMM S:$L(SROPER)<45 SROPS(1)=SROPER"
^XMB(3.9,148,2,7921,0)="""RTN"",""SROAOP"",56,0)"
^XMB(3.9,148,2,7922,0)=" I $L(SROPER)>44 S SROPER=SROPER_""  "" F M=1:1 D LOOP Q:MMM="""""
^XMB(3.9,148,2,7923,0)="""RTN"",""SROAOP"",57,0)"
^XMB(3.9,148,2,7924,0)=" Q"
^XMB(3.9,148,2,7925,0)="""RTN"",""SROAOP"",58,0)"
^XMB(3.9,148,2,7926,0)="LOOP ; break procedures"
^XMB(3.9,148,2,7927,0)="""RTN"",""SROAOP"",59,0)"
^XMB(3.9,148,2,7928,0)=" S SROPS(M)="""" F LOOP=1:1 S MM=$P(SROPER,"" ""),MMM=$P(SROPER,"" "",2,200) Q:MMM=""""  Q:$L(SROPS(M))+$L(MM)'<45  S SROPS(M)=SROPS(M)_MM_"" "",SROPER=MMM"
^XMB(3.9,148,2,7929,0)="""RTN"",""SROAOP"",60,0)"
^XMB(3.9,148,2,7930,0)=" Q"
^XMB(3.9,148,2,7931,0)="""RTN"",""SROAOP"",61,0)"
^XMB(3.9,148,2,7932,0)="ANES K DR,DIE,DA S DA=SRTN,DR="".37T;901.1T"",DR(2,130.06)="".01T;.05T;42T;12T"",DIE=130 D ^DIE K DR"
^XMB(3.9,148,2,7933,0)="""RTN"",""SROAOP"",62,0)"
^XMB(3.9,148,2,7934,0)=" Q"
^XMB(3.9,148,2,7935,0)="""RTN"",""SROAOP"",63,0)"
^XMB(3.9,148,2,7936,0)="TRAUMA ; airway trauma"
^XMB(3.9,148,2,7937,0)="""RTN"",""SROAOP"",64,0)"
^XMB(3.9,148,2,7938,0)=" N SRTECH,SRT,SRZ S SRT=0 F  S SRT=$O(^SRF(SRTN,6,SRT)) Q:'SRT  D ^SROPRIN Q:$D(SRZ)"
^XMB(3.9,148,2,7939,0)="""RTN"",""SROAOP"",65,0)"
^XMB(3.9,148,2,7940,0)=" I '$G(SRT) W !!,""Enter Principal Anesthesia Technique first!"",! H 2 D ANES Q"
^XMB(3.9,148,2,7941,0)="""RTN"",""SROAOP"",66,0)"
^XMB(3.9,148,2,7942,0)=" I $G(SRT) K DA,DR,DIE S DIE=""^SRF(""_SRTN_"",6,"",DA(1)=SRTN,DA=SRT,DR=""12"" D ^DIE K DA,DR,DIE"
^XMB(3.9,148,2,7943,0)="""RTN"",""SROAOP"",67,0)"
^XMB(3.9,148,2,7944,0)=" Q"
^XMB(3.9,148,2,7945,0)="""RTN"",""SROAOP1"")"
^XMB(3.9,148,2,7946,0)="0^5^B10623526^B18659468"
^XMB(3.9,148,2,7947,0)="""RTN"",""SROAOP1"",1,0)"
^XMB(3.9,148,2,7948,0)="SROAOP1 ;BIR/MAM - SET OPERATION INFO ;04/03/06"
^XMB(3.9,148,2,7949,0)="""RTN"",""SROAOP1"",2,0)"
^XMB(3.9,148,2,7950,0)=" ;;3.0; Surgery ;**38,47,63,81,88,95,97,125,142,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,7951,0)="""RTN"",""SROAOP1"",3,0)"
^XMB(3.9,148,2,7952,0)=" K SRA,SRAO F I=0,200,""OP"" S SRA(I)=$G(^SRF(SRTN,I))"
^XMB(3.9,148,2,7953,0)="""RTN"",""SROAOP1"",4,0)"
^XMB(3.9,148,2,7954,0)=" S SRDOC=""Surgeon: ""_$P(^VA(200,$P(^SRF(SRTN,.1),""^"",4),0),""^"") F I=3,4,5 S SRAO(I)="""""
^XMB(3.9,148,2,7955,0)="""RTN"",""SROAOP1"",5,0)"
^XMB(3.9,148,2,7956,0)=" K SROPS S SROPER=$P(SRA(""OP""),""^"")"
^XMB(3.9,148,2,7957,0)="""RTN"",""SROAOP1"",6,0)"
^XMB(3.9,148,2,7958,0)=" S SRAO(2)=""^26"""
^XMB(3.9,148,2,7959,0)="""RTN"",""SROAOP1"",7,0)"
^XMB(3.9,148,2,7960,0)=" S:$L(SROPER)<49 SROPS(1)=SROPER K M,MM,MMM I $L(SROPER)>48 S SROPER=SROPER_""  "" F M=1:1 D LOOP Q:MMM="""""
^XMB(3.9,148,2,7961,0)="""RTN"",""SROAOP1"",8,0)"
^XMB(3.9,148,2,7962,0)=" S X=$P(SRA(0),""^"",4) S:X X=$P(^SRO(137.45,X,0),""^"",1) S SRAO(1)=X_""^.04"""
^XMB(3.9,148,2,7963,0)="""RTN"",""SROAOP1"",9,0)"
^XMB(3.9,148,2,7964,0)=" S X=$P(SRA(0),""^"",3) S:X'="""" X=$S(X=""J"":""MAJOR"",1:""MINOR"") S SRAO(12)=X_""^.03"""
^XMB(3.9,148,2,7965,0)="""RTN"",""SROAOP1"",10,0)"
^XMB(3.9,148,2,7966,0)=" S SRHDR(.5)=SRDOC,SRPAGE=""PAGE: 1 OF 2"" D HDR^SROAUTL"
^XMB(3.9,148,2,7967,0)="""RTN"",""SROAOP1"",11,0)"
^XMB(3.9,148,2,7968,0)=" S X=$P($G(^SRO(136,SRTN,0)),""^"",3) S:X X=$$ICDDX^ICDCODE(X,$P($G(^SRF(SRTN,0)),""^"",9)),X=$P(X,""^"",2)_""   ""_$P(X,""^"",4)"
^XMB(3.9,148,2,7969,0)="""RTN"",""SROAOP1"",12,0)"
^XMB(3.9,148,2,7970,0)=" W ""Postop Diagnosis Code (ICD9): "",$S(X'="""":X,1:""NOT ENTERED""),!"
^XMB(3.9,148,2,7971,0)="""RTN"",""SROAOP1"",13,0)"
^XMB(3.9,148,2,7972,0)=" W !,"" 1. Surgical Specialty: "",?33,$P(SRAO(1),""^""),!,"" 2. Principal Operation: "",?33,SROPS(1) I $D(SROPS(2)) W !,?33,SROPS(2) I $D(SROPS(3)) W !,?33,SROPS(3) I $D(SROPS(4)) W !,?33,SROPS(4)"
^XMB(3.9,148,2,7973,0)="""RTN"",""SROAOP1"",14,0)"
^XMB(3.9,148,2,7974,0)=" N SRPROC,SRL S SRL=49 D CPTS^SROAUTL0 W !,"" 3. CPT Codes (view only):"" I SRPROC(1)="""" S SRPROC(1)=""NOT ENTERED"""
^XMB(3.9,148,2,7975,0)="""RTN"",""SROAOP1"",15,0)"
^XMB(3.9,148,2,7976,0)=" F I=1:1 Q:'$D(SRPROC(I))  W:I=1 ?33,SRPROC(I) W:I'=1 !,?33,SRPROC(I)"
^XMB(3.9,148,2,7977,0)="""RTN"",""SROAOP1"",16,0)"
^XMB(3.9,148,2,7978,0)=" W !,"" 4. Other Procedures:"" W:$O(^SRF(SRTN,13,0)) ?33,""***INFORMATION ENTERED***"""
^XMB(3.9,148,2,7979,0)="""RTN"",""SROAOP1"",17,0)"
^XMB(3.9,148,2,7980,0)=" W !,"" 5. Concurrent Procedure:"" S CON=$P($G(^SRF(SRTN,""CON"")),""^"") I CON,'($P($G(^SRF(CON,30)),""^"")!($P($G(^SRF(CON,31)),""^"",8))) W ?33,""***INFORMATION ENTERED***"""
^XMB(3.9,148,2,7981,0)="""RTN"",""SROAOP1"",18,0)"
^XMB(3.9,148,2,7982,0)=" S X=$P(SRA(200),""^"",52),SRAO(6)=X_""^214"",NYUK=$P(SRA(0),""^"",10) D EMERG S SRAO(7)=SHEMP_""^.035"""
^XMB(3.9,148,2,7983,0)="""RTN"",""SROAOP1"",19,0)"
^XMB(3.9,148,2,7984,0)=" S Y=$P($G(^SRF(SRTN,""1.0"")),""^"",8),C=$P(^DD(130,1.09,0),""^"",2) D:Y'="""" Y^DIQ S SRAO(8)=Y_""^1.09"""
^XMB(3.9,148,2,7985,0)="""RTN"",""SROAOP1"",20,0)"
^XMB(3.9,148,2,7986,0)=" S Y=$P($G(^SRF(SRTN,1.1)),""^"",3),C=$P(^DD(130,1.13,0),""^"",2) D:Y'="""" Y^DIQ S SRAO(9)=Y_""^1.13"""
^XMB(3.9,148,2,7987,0)="""RTN"",""SROAOP1"",21,0)"
^XMB(3.9,148,2,7988,0)=" D TECH^SROPRIN S SRAO(10)=SRTECH"
^XMB(3.9,148,2,7989,0)="""RTN"",""SROAOP1"",22,0)"
^XMB(3.9,148,2,7990,0)=" S X=$P(SRA(200),""^"",54),SRAO(11)=X_""^340"" K SRA(.2)"
^XMB(3.9,148,2,7991,0)="""RTN"",""SROAOP1"",23,0)"
^XMB(3.9,148,2,7992,0)=" S Y=$P($G(^SRF(SRTN,200.1)),""^"",4),C=$P(^DD(130,443,0),""^"",2) D:Y'="""" Y^DIQ S SRAO(13)=Y_""^443"""
^XMB(3.9,148,2,7993,0)="""RTN"",""SROAOP1"",24,0)"
^XMB(3.9,148,2,7994,0)=" W !,"" 6. PGY of Primary Surgeon:"",?33,$P(SRAO(6),""^""),!,"" 7. Surgical Priority:"",?33,$P(SRAO(7),""^""),!,"" 8. Wound Classification: "",?33,$P(SRAO(8),""^"")"
^XMB(3.9,148,2,7995,0)="""RTN"",""SROAOP1"",25,0)"
^XMB(3.9,148,2,7996,0)=" W !,"" 9. ASA Classification:"",?33,$P(SRAO(9),""^"")"
^XMB(3.9,148,2,7997,0)="""RTN"",""SROAOP1"",26,0)"
^XMB(3.9,148,2,7998,0)=" W !,""10. Princ. Anesthesia Technique: "",$P(SRAO(10),""^"")"
^XMB(3.9,148,2,7999,0)="""RTN"",""SROAOP1"",27,0)"
^XMB(3.9,148,2,8000,0)=" W !,""11. RBC Units Transfused:"",?33,$P(SRAO(11),""^"")"
^XMB(3.9,148,2,8001,0)="""RTN"",""SROAOP1"",28,0)"
^XMB(3.9,148,2,8002,0)=" W !,""12. Major or Minor:"",?33,$P(SRAO(12),""^"")"
^XMB(3.9,148,2,8003,0)="""RTN"",""SROAOP1"",29,0)"
^XMB(3.9,148,2,8004,0)=" W !,""13. Intraop Disseminated Cancer:"",?33,$P(SRAO(13),""^"")"
^XMB(3.9,148,2,8005,0)="""RTN"",""SROAOP1"",30,0)"
^XMB(3.9,148,2,8006,0)=" W ! F LINE=1:1:80 W ""-"""
^XMB(3.9,148,2,8007,0)="""RTN"",""SROAOP1"",31,0)"
^XMB(3.9,148,2,8008,0)=" Q"
^XMB(3.9,148,2,8009,0)="""RTN"",""SROAOP1"",32,0)"
^XMB(3.9,148,2,8010,0)="YN S SHEMP=$S(NYUK=""NS"":""NS"",NYUK=""N"":""NO"",NYUK=""Y"":""YES"",1:"""")"
^XMB(3.9,148,2,8011,0)="""RTN"",""SROAOP1"",33,0)"
^XMB(3.9,148,2,8012,0)=" Q"
^XMB(3.9,148,2,8013,0)="""RTN"",""SROAOP1"",34,0)"
^XMB(3.9,148,2,8014,0)="LOOP ; break procedures"
^XMB(3.9,148,2,8015,0)="""RTN"",""SROAOP1"",35,0)"
^XMB(3.9,148,2,8016,0)=" S SROPS(M)="""" F LOOP=1:1 S MM=$P(SROPER,"" ""),MMM=$P(SROPER,"" "",2,200) Q:MMM=""""  Q:$L(SROPS(M))+$L(MM)'<49  S SROPS(M)=SROPS(M)_MM_"" "",SROPER=MMM"
^XMB(3.9,148,2,8017,0)="""RTN"",""SROAOP1"",36,0)"
^XMB(3.9,148,2,8018,0)=" Q"
^XMB(3.9,148,2,8019,0)="""RTN"",""SROAOP1"",37,0)"
^XMB(3.9,148,2,8020,0)="EMERG ; surgical priority"
^XMB(3.9,148,2,8021,0)="""RTN"",""SROAOP1"",38,0)"
^XMB(3.9,148,2,8022,0)=" I NYUK="""" S SHEMP="""" Q"
^XMB(3.9,148,2,8023,0)="""RTN"",""SROAOP1"",39,0)"
^XMB(3.9,148,2,8024,0)=" S Y=NYUK,C=$P(^DD(130,.035,0),""^"",2) D Y^DIQ S SHEMP=Y"
^XMB(3.9,148,2,8025,0)="""RTN"",""SROAOP1"",40,0)"
^XMB(3.9,148,2,8026,0)=" Q"
^XMB(3.9,148,2,8027,0)="""RTN"",""SROAOTH"")"
^XMB(3.9,148,2,8028,0)="0^102^B6104912^B5861466"
^XMB(3.9,148,2,8029,0)="""RTN"",""SROAOTH"",1,0)"
^XMB(3.9,148,2,8030,0)="SROAOTH ;BIR/MAM - PRINT OTHER PROCEDURES ;04/11/06"
^XMB(3.9,148,2,8031,0)="""RTN"",""SROAOTH"",2,0)"
^XMB(3.9,148,2,8032,0)=" ;;3.0; Surgery ;**34,88,97,142,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,8033,0)="""RTN"",""SROAOTH"",3,0)"
^XMB(3.9,148,2,8034,0)=" N CPTT"
^XMB(3.9,148,2,8035,0)="""RTN"",""SROAOTH"",4,0)"
^XMB(3.9,148,2,8036,0)=" W ! S (CNT,OTH)=0,CPTT="""" F  S OTH=$O(^SRF(SRTN,13,OTH)) Q:'OTH  S CNT=CNT+1,OPER=$P(^SRF(SRTN,13,OTH,0),""^""),CPT=$P($G(^SRF(SRTN,13,OTH,2)),""^"") D LIST"
^XMB(3.9,148,2,8037,0)="""RTN"",""SROAOTH"",5,0)"
^XMB(3.9,148,2,8038,0)=" S X=$P($G(^SRO(136,SRTN,0)),""^"",2) I X S Y=$S(X:$P($$CPT^ICPTCOD(X),""^"",2),1:"""") D SSPRIN^SROCPT0 S CPTT=Y I $L(Y),$O(^SRO(136,SRTN,3,0)) D"
^XMB(3.9,148,2,8039,0)="""RTN"",""SROAOTH"",6,0)"
^XMB(3.9,148,2,8040,0)=" .S OTH=0 F  S OTH=$O(^SRO(136,SRTN,3,OTH)) Q:'OTH  S OPER=$P($G(^SRO(136,SRTN,3,OTH,0)),""^""),CPT=$P($G(^SRO(136,SRTN,3,OTH,0)),""^"") D"
^XMB(3.9,148,2,8041,0)="""RTN"",""SROAOTH"",7,0)"
^XMB(3.9,148,2,8042,0)=" ..I CPT S Y=$P($$CPT^ICPTCOD(CPT),""^"",2),SRDA=OTH D SSOTH^SROCPT0 S CPT=Y I $L(CPT) S CPTT=CPTT_"", ""_CPT"
^XMB(3.9,148,2,8043,0)="""RTN"",""SROAOTH"",8,0)"
^XMB(3.9,148,2,8044,0)=" W !!,$J(""Procedure CPT Codes: "",39)_CPTT"
^XMB(3.9,148,2,8045,0)="""RTN"",""SROAOTH"",9,0)"
^XMB(3.9,148,2,8046,0)=" K OTH,CPT,CNT,OPER,SROPS S SROPS(1)="""""
^XMB(3.9,148,2,8047,0)="""RTN"",""SROAOTH"",10,0)"
^XMB(3.9,148,2,8048,0)=" S CPT="""",CON=$P($G(^SRF(SRTN,""CON"")),""^"") I CON,($P($G(^SRF(CON,30)),""^"")!($P($G(^SRF(CON,31)),""^"",8))) S CON="""""
^XMB(3.9,148,2,8049,0)="""RTN"",""SROAOTH"",11,0)"
^XMB(3.9,148,2,8050,0)=" I CON S SROPER=$P(^SRF(CON,""OP""),""^""),CPT=$P($G(^SRO(136,CON,0)),""^"",2) D"
^XMB(3.9,148,2,8051,0)="""RTN"",""SROAOTH"",12,0)"
^XMB(3.9,148,2,8052,0)=" .K SROPS,MM,MMM S:$L(SROPER)<49 SROPS(1)=SROPER I $L(SROPER)>48 S SROPER=SROPER_""  "" F M=1:1 D LOOP Q:MMM="""""
^XMB(3.9,148,2,8053,0)="""RTN"",""SROAOTH"",13,0)"
^XMB(3.9,148,2,8054,0)=" .I CPT S Y=$P($$CPT^ICPTCOD(CPT),""^"",2) D CON"
^XMB(3.9,148,2,8055,0)="""RTN"",""SROAOTH"",14,0)"
^XMB(3.9,148,2,8056,0)=" .S:CPT="""" CPT=""MISSING"""
^XMB(3.9,148,2,8057,0)="""RTN"",""SROAOTH"",15,0)"
^XMB(3.9,148,2,8058,0)=" W !!,$J(""Concurrent Procedure: "",39)_$S(SROPS(1)="""":""N/A"",1:SROPS(1)) I $D(SROPS(2)) W !,?39,SROPS(2) I $D(SROPS(3)) W !,?39,SROPS(3)"
^XMB(3.9,148,2,8059,0)="""RTN"",""SROAOTH"",16,0)"
^XMB(3.9,148,2,8060,0)=" W !,$J(""CPT Code: "",39)_$S(CPT="""":""N/A"",1:CPT)"
^XMB(3.9,148,2,8061,0)="""RTN"",""SROAOTH"",17,0)"
^XMB(3.9,148,2,8062,0)=" Q"
^XMB(3.9,148,2,8063,0)="""RTN"",""SROAOTH"",18,0)"
^XMB(3.9,148,2,8064,0)="CON ; get CPT modifiers for concurrent procedure"
^XMB(3.9,148,2,8065,0)="""RTN"",""SROAOTH"",19,0)"
^XMB(3.9,148,2,8066,0)=" N SRTN S SRTN=CON D SSPRIN^SROCPT0 S CPT=Y"
^XMB(3.9,148,2,8067,0)="""RTN"",""SROAOTH"",20,0)"
^XMB(3.9,148,2,8068,0)=" Q"
^XMB(3.9,148,2,8069,0)="""RTN"",""SROAOTH"",21,0)"
^XMB(3.9,148,2,8070,0)="LIST I CPT S Y=$P($$CPT^ICPTCOD(CPT),""^"",2),SRDA=OTH D SSOTH^SROCPT S CPT=Y"
^XMB(3.9,148,2,8071,0)="""RTN"",""SROAOTH"",22,0)"
^XMB(3.9,148,2,8072,0)=" S:CPT="""" CPT=""MISSING"""
^XMB(3.9,148,2,8073,0)="""RTN"",""SROAOTH"",23,0)"
^XMB(3.9,148,2,8074,0)=" W !,$J(""Other Procedure (""_CNT_""): "",39)_OPER"
^XMB(3.9,148,2,8075,0)="""RTN"",""SROAOTH"",24,0)"
^XMB(3.9,148,2,8076,0)=" Q"
^XMB(3.9,148,2,8077,0)="""RTN"",""SROAOTH"",25,0)"
^XMB(3.9,148,2,8078,0)="LOOP ; break procedures"
^XMB(3.9,148,2,8079,0)="""RTN"",""SROAOTH"",26,0)"
^XMB(3.9,148,2,8080,0)=" S SROPS(M)="""" F LOOP=1:1 S MM=$P(SROPER,"" ""),MMM=$P(SROPER,"" "",2,200) Q:MMM=""""  Q:$L(SROPS(M))+$L(MM)'<49  S SROPS(M)=SROPS(M)_MM_"" "",SROPER=MMM"
^XMB(3.9,148,2,8081,0)="""RTN"",""SROAOTH"",27,0)"
^XMB(3.9,148,2,8082,0)=" Q"
^XMB(3.9,148,2,8083,0)="""RTN"",""SROAPAS"")"
^XMB(3.9,148,2,8084,0)="0^101^B27516322^B27479579"
^XMB(3.9,148,2,8085,0)="""RTN"",""SROAPAS"",1,0)"
^XMB(3.9,148,2,8086,0)="SROAPAS ;BIR/MAM - PRINT A COMPLETE ASSESSMENT ; [ 04/13/04  2:50 PM ]"
^XMB(3.9,148,2,8087,0)="""RTN"",""SROAPAS"",2,0)"
^XMB(3.9,148,2,8088,0)=" ;;3.0; Surgery ;**38,47,81,88,111,112,100,125,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,8089,0)="""RTN"",""SROAPAS"",3,0)"
^XMB(3.9,148,2,8090,0)=" S SRSOUT=0,SRPG=0,SR(""RA"")=$G(^SRF(SRTN,""RA"")),SRATYPE=$P(SR(""RA""),""^"",2) F I=200:1:208,200.1 S SRA(I)=$G(^SRF(SRTN,I))"
^XMB(3.9,148,2,8091,0)="""RTN"",""SROAPAS"",4,0)"
^XMB(3.9,148,2,8092,0)=" S SRA(""OP"")=^SRF(SRTN,""OP""),SRA(""CON"")=$G(^SRF(SRTN,""CON""))"
^XMB(3.9,148,2,8093,0)="""RTN"",""SROAPAS"",5,0)"
^XMB(3.9,148,2,8094,0)=" S SR(0)=^SRF(SRTN,0),DFN=$P(SR(0),""^""),SRSDATE=$P(SR(0),""^"",9) D DEM^VADPT S SRANM=VADM(1)_""  ""_VA(""PID""),Z=$P(VADM(3),""^""),Y=$E(SRSDATE,1,7),AGE=$E(Y,1,3)-$E(Z,1,3)-($E(Y,4,7)<$E(Z,4,7))"
^XMB(3.9,148,2,8095,0)="""RTN"",""SROAPAS"",6,0)"
^XMB(3.9,148,2,8096,0)=" I $P(SR(""RA""),""^"",2)=""C"" D ^SROAPCA G END"
^XMB(3.9,148,2,8097,0)="""RTN"",""SROAPAS"",7,0)"
^XMB(3.9,148,2,8098,0)=" W:$E(IOST)'=""P"" @IOF D HDR G:SRSOUT END"
^XMB(3.9,148,2,8099,0)="""RTN"",""SROAPAS"",8,0)"
^XMB(3.9,148,2,8100,0)=" W !,""Medical Center: ""_SRSITE(""SITE"")"
^XMB(3.9,148,2,8101,0)="""RTN"",""SROAPAS"",9,0)"
^XMB(3.9,148,2,8102,0)=" W !,""Age: "",?16,AGE S Y=SRSDATE D D^DIQ W ?40,""Operation Date: "",?59,$P(Y,""@"")"
^XMB(3.9,148,2,8103,0)="""RTN"",""SROAPAS"",10,0)"
^XMB(3.9,148,2,8104,0)=" S Y=$P($G(^SRF(SRTN,208)),""^"",10),C=$P(^DD(130,417,0),""^"",2) D Y^DIQ S X=$S(Y'="""":Y,1:""NOT ENTERED"")"
^XMB(3.9,148,2,8105,0)="""RTN"",""SROAPAS"",11,0)"
^XMB(3.9,148,2,8106,0)=" ;"
^XMB(3.9,148,2,8107,0)="""RTN"",""SROAPAS"",12,0)"
^XMB(3.9,148,2,8108,0)=" D DEM^VADPT"
^XMB(3.9,148,2,8109,0)="""RTN"",""SROAPAS"",13,0)"
^XMB(3.9,148,2,8110,0)=" ;Find patient's ethnicity"
^XMB(3.9,148,2,8111,0)="""RTN"",""SROAPAS"",14,0)"
^XMB(3.9,148,2,8112,0)=" S SROETH="""""
^XMB(3.9,148,2,8113,0)="""RTN"",""SROAPAS"",15,0)"
^XMB(3.9,148,2,8114,0)=" I $G(VADM(11)) S SROETH=$P(VADM(11,1),U,2)"
^XMB(3.9,148,2,8115,0)="""RTN"",""SROAPAS"",16,0)"
^XMB(3.9,148,2,8116,0)=" I '$G(VADM(11)) S SROETH=""UNANSWERED"""
^XMB(3.9,148,2,8117,0)="""RTN"",""SROAPAS"",17,0)"
^XMB(3.9,148,2,8118,0)=" ;"
^XMB(3.9,148,2,8119,0)="""RTN"",""SROAPAS"",18,0)"
^XMB(3.9,148,2,8120,0)=" ;Find all race entries and place into a string with commas inbetween"
^XMB(3.9,148,2,8121,0)="""RTN"",""SROAPAS"",19,0)"
^XMB(3.9,148,2,8122,0)=" S SRORC=0,C=1,SRORACE="""",SROLINE="""",N=1,SROL="""""
^XMB(3.9,148,2,8123,0)="""RTN"",""SROAPAS"",20,0)"
^XMB(3.9,148,2,8124,0)=" F  S SRORC=$O(VADM(12,SRORC)) Q:SRORC=""""  Q:C=11  D"
^XMB(3.9,148,2,8125,0)="""RTN"",""SROAPAS"",21,0)"
^XMB(3.9,148,2,8126,0)=" .I $G(VADM(12,SRORC)) S SRORACE(C)=$P(VADM(12,SRORC),U,2)"
^XMB(3.9,148,2,8127,0)="""RTN"",""SROAPAS"",22,0)"
^XMB(3.9,148,2,8128,0)=" .I SROLINE'="""" S SROLINE=SROLINE_"", ""_SRORACE(C)"
^XMB(3.9,148,2,8129,0)="""RTN"",""SROAPAS"",23,0)"
^XMB(3.9,148,2,8130,0)=" .I SROLINE="""" S SROLINE=SRORACE(C)"
^XMB(3.9,148,2,8131,0)="""RTN"",""SROAPAS"",24,0)"
^XMB(3.9,148,2,8132,0)=" .S C=C+1"
^XMB(3.9,148,2,8133,0)="""RTN"",""SROAPAS"",25,0)"
^XMB(3.9,148,2,8134,0)=" ;"
^XMB(3.9,148,2,8135,0)="""RTN"",""SROAPAS"",26,0)"
^XMB(3.9,148,2,8136,0)=" ;Find total length of 'race' string and wrap the text if necessary"
^XMB(3.9,148,2,8137,0)="""RTN"",""SROAPAS"",27,0)"
^XMB(3.9,148,2,8138,0)=" I $L(SROLINE)=29!$L(SROLINE)<29 S SROL(N)=SROLINE,SRNUM1=2"
^XMB(3.9,148,2,8139,0)="""RTN"",""SROAPAS"",28,0)"
^XMB(3.9,148,2,8140,0)=" I $L(SROLINE)>29 D WRAP"
^XMB(3.9,148,2,8141,0)="""RTN"",""SROAPAS"",29,0)"
^XMB(3.9,148,2,8142,0)=" ;"
^XMB(3.9,148,2,8143,0)="""RTN"",""SROAPAS"",30,0)"
^XMB(3.9,148,2,8144,0)=" W !,""Sex: "",?16,$P(VADM(5),""^"",2),?40,""Ethnicity:"",?51,SROETH"
^XMB(3.9,148,2,8145,0)="""RTN"",""SROAPAS"",31,0)"
^XMB(3.9,148,2,8146,0)=" W !,?40,""Race:"""
^XMB(3.9,148,2,8147,0)="""RTN"",""SROAPAS"",32,0)"
^XMB(3.9,148,2,8148,0)=" I $G(VADM(12)) F D=1:1:SRNUM1-1 D"
^XMB(3.9,148,2,8149,0)="""RTN"",""SROAPAS"",33,0)"
^XMB(3.9,148,2,8150,0)=" .W:D=1 ?51,SROL(D)"
^XMB(3.9,148,2,8151,0)="""RTN"",""SROAPAS"",34,0)"
^XMB(3.9,148,2,8152,0)=" .W:D'=1 !,?51,SROL(D)"
^XMB(3.9,148,2,8153,0)="""RTN"",""SROAPAS"",35,0)"
^XMB(3.9,148,2,8154,0)=" I '$G(VADM(12)) W ?51,""UNANSWERED"""
^XMB(3.9,148,2,8155,0)="""RTN"",""SROAPAS"",36,0)"
^XMB(3.9,148,2,8156,0)=" ;"
^XMB(3.9,148,2,8157,0)="""RTN"",""SROAPAS"",37,0)"
^XMB(3.9,148,2,8158,0)=" K SROL,SROLINE,SRORC,SRORACE,SROLN,SROLN1,SROWRAP,SRNUM1"
^XMB(3.9,148,2,8159,0)="""RTN"",""SROAPAS"",38,0)"
^XMB(3.9,148,2,8160,0)=" ;"
^XMB(3.9,148,2,8161,0)="""RTN"",""SROAPAS"",39,0)"
^XMB(3.9,148,2,8162,0)=" S Y=$P($G(^SRF(SRTN,208)),""^"",11),C=$P(^DD(130,413,0),""^"",2) D Y^DIQ S X=$S(Y'="""":Y,1:""NOT ENTERED"") W !,""Transfer Status: "",X"
^XMB(3.9,148,2,8163,0)="""RTN"",""SROAPAS"",40,0)"
^XMB(3.9,148,2,8164,0)=" F J=1,2,3 S Y=$P($G(^SRF(SRTN,208.1)),""^"",J) D"
^XMB(3.9,148,2,8165,0)="""RTN"",""SROAPAS"",41,0)"
^XMB(3.9,148,2,8166,0)=" .I J'=3 X:Y ^DD(""DD"") S Z=$P(Y,""@"")_""  ""_$E($P(Y,""@"",2),1,5)"
^XMB(3.9,148,2,8167,0)="""RTN"",""SROAPAS"",42,0)"
^XMB(3.9,148,2,8168,0)=" .I J=3 S C=$P(^DD(130,454,0),""^"",2) D Y^DIQ S Z=Y"
^XMB(3.9,148,2,8169,0)="""RTN"",""SROAPAS"",43,0)"
^XMB(3.9,148,2,8170,0)=" .W !,""Observation ""_$S(J=1:""Admission Date:"",J=2:""Discharge Date:"",1:""Treating Specialty:""),?47,Z"
^XMB(3.9,148,2,8171,0)="""RTN"",""SROAPAS"",44,0)"
^XMB(3.9,148,2,8172,0)=" F J=14:1:17 S Y=$P($G(^SRF(SRTN,208)),""^"",J) X ^DD(""DD"") S SRPTMODT(J)=Y"
^XMB(3.9,148,2,8173,0)="""RTN"",""SROAPAS"",45,0)"
^XMB(3.9,148,2,8174,0)=" S (X,Z)=SRPTMODT(14) S:X'="""" Z=$P(X,""@"")_""  ""_$E($P(X,""@"",2),1,5) W !,""Hospital Admission Date:"",?47,Z"
^XMB(3.9,148,2,8175,0)="""RTN"",""SROAPAS"",46,0)"
^XMB(3.9,148,2,8176,0)=" S (X,Z)=SRPTMODT(15) S:X'="""" Z=$P(X,""@"")_""  ""_$E($P(X,""@"",2),1,5) W !,""Hospital Discharge Date:"",?47,Z"
^XMB(3.9,148,2,8177,0)="""RTN"",""SROAPAS"",47,0)"
^XMB(3.9,148,2,8178,0)=" S (X,Z)=SRPTMODT(16) S:X'="""" Z=$P(X,""@"")_""  ""_$E($P(X,""@"",2),1,5) W !,""Admitted/Transferred to Surgical Service:"",?47,Z"
^XMB(3.9,148,2,8179,0)="""RTN"",""SROAPAS"",48,0)"
^XMB(3.9,148,2,8180,0)=" S (X,Z)=SRPTMODT(17) S:X'="""" Z=$P(X,""@"")_""  ""_$E($P(X,""@"",2),1,5) W !,""Discharged/Transferred to Chronic Care:"",?47,Z"
^XMB(3.9,148,2,8181,0)="""RTN"",""SROAPAS"",49,0)"
^XMB(3.9,148,2,8182,0)=" W !,""In/Out-Patient Status:"",?47,$S($P($G(^SRF(SRTN,0)),""^"",12)=""I"":""INPATIENT"",$P($G(^SRF(SRTN,0)),""^"",12)=""O"":""OUTPATIENT"",1:"""")"
^XMB(3.9,148,2,8183,0)="""RTN"",""SROAPAS"",50,0)"
^XMB(3.9,148,2,8184,0)=" I $E(IOST)=""P"" W ! F MOE=1:1:80 W ""-"""
^XMB(3.9,148,2,8185,0)="""RTN"",""SROAPAS"",51,0)"
^XMB(3.9,148,2,8186,0)=" I $E(IOST)'=""P"" D PAGE I SRSOUT G END"
^XMB(3.9,148,2,8187,0)="""RTN"",""SROAPAS"",52,0)"
^XMB(3.9,148,2,8188,0)=" D ^SROAPRT1 G:SRSOUT END I $Y+20>IOSL D PAGE I SRSOUT G END"
^XMB(3.9,148,2,8189,0)="""RTN"",""SROAPAS"",53,0)"
^XMB(3.9,148,2,8190,0)=" D ^SROAPRT2 G:SRSOUT END I $Y+20>IOSL D PAGE I SRSOUT G END"
^XMB(3.9,148,2,8191,0)="""RTN"",""SROAPAS"",54,0)"
^XMB(3.9,148,2,8192,0)=" D OPTIMES^SROAPRT3 G:SRSOUT END I $Y+20>IOSL D PAGE I SRSOUT G END"
^XMB(3.9,148,2,8193,0)="""RTN"",""SROAPAS"",55,0)"
^XMB(3.9,148,2,8194,0)=" D ^SROAPRT3 G:SRSOUT END I $Y+24>IOSL D PAGE I SRSOUT G END"
^XMB(3.9,148,2,8195,0)="""RTN"",""SROAPAS"",56,0)"
^XMB(3.9,148,2,8196,0)=" D ^SROAPRT4 G:SRSOUT END I $Y+20>IOSL D PAGE I SRSOUT G END"
^XMB(3.9,148,2,8197,0)="""RTN"",""SROAPAS"",57,0)"
^XMB(3.9,148,2,8198,0)=" D ^SROAPRT5 G:SRSOUT END I $Y+20>IOSL D PAGE I SRSOUT G END"
^XMB(3.9,148,2,8199,0)="""RTN"",""SROAPAS"",58,0)"
^XMB(3.9,148,2,8200,0)=" D ^SROAPRT6"
^XMB(3.9,148,2,8201,0)="""RTN"",""SROAPAS"",59,0)"
^XMB(3.9,148,2,8202,0)="END Q:$D(SRABATCH)  I 'SRSOUT,$E(IOST)'=""P"" W !!,""Press <RET> to continue  "" R X:DTIME"
^XMB(3.9,148,2,8203,0)="""RTN"",""SROAPAS"",60,0)"
^XMB(3.9,148,2,8204,0)=" W:$E(IOST)=""P"" @IOF I $D(ZTQUEUED) Q:$G(ZTSTOP)  S ZTREQ=""@"" Q"
^XMB(3.9,148,2,8205,0)="""RTN"",""SROAPAS"",61,0)"
^XMB(3.9,148,2,8206,0)=" D ^%ZISC K SRTN W @IOF D ^SRSKILL"
^XMB(3.9,148,2,8207,0)="""RTN"",""SROAPAS"",62,0)"
^XMB(3.9,148,2,8208,0)=" Q"
^XMB(3.9,148,2,8209,0)="""RTN"",""SROAPAS"",63,0)"
^XMB(3.9,148,2,8210,0)=" ;"
^XMB(3.9,148,2,8211,0)="""RTN"",""SROAPAS"",64,0)"
^XMB(3.9,148,2,8212,0)="WRAP ;Wrap multiple race entries so that wrapped line"
^XMB(3.9,148,2,8213,0)="""RTN"",""SROAPAS"",65,0)"
^XMB(3.9,148,2,8214,0)=" ;does not break in the middle of a word"
^XMB(3.9,148,2,8215,0)="""RTN"",""SROAPAS"",66,0)"
^XMB(3.9,148,2,8216,0)=" ;"
^XMB(3.9,148,2,8217,0)="""RTN"",""SROAPAS"",67,0)"
^XMB(3.9,148,2,8218,0)=" S SROLNGTH=$L(SROLINE),E=29,SROWRAP="""",SROLN="""",SROLN1="""",SROL="""""
^XMB(3.9,148,2,8219,0)="""RTN"",""SROAPAS"",68,0)"
^XMB(3.9,148,2,8220,0)=" F I=1:29:SROLNGTH S SROLN(I)=SROWRAP_$E(SROLINE,I,E) D"
^XMB(3.9,148,2,8221,0)="""RTN"",""SROAPAS"",69,0)"
^XMB(3.9,148,2,8222,0)=" .F K=29:-1:1 I $E(SROLN(I),K)["" "" D  Q    ;Break lines at space"
^XMB(3.9,148,2,8223,0)="""RTN"",""SROAPAS"",70,0)"
^XMB(3.9,148,2,8224,0)=" ..S SROLN1(I)=$E(SROLN(I),1,K-1)"
^XMB(3.9,148,2,8225,0)="""RTN"",""SROAPAS"",71,0)"
^XMB(3.9,148,2,8226,0)=" ..S SROWRAP=$E(SROLN(I),K+1,E)"
^XMB(3.9,148,2,8227,0)="""RTN"",""SROAPAS"",72,0)"
^XMB(3.9,148,2,8228,0)=" .S E=E+29"
^XMB(3.9,148,2,8229,0)="""RTN"",""SROAPAS"",73,0)"
^XMB(3.9,148,2,8230,0)=" ;"
^XMB(3.9,148,2,8231,0)="""RTN"",""SROAPAS"",74,0)"
^XMB(3.9,148,2,8232,0)=" S:'$D(SROLN1(I)) SROLN1(I)=SROLN(I),SROWRAP="""""
^XMB(3.9,148,2,8233,0)="""RTN"",""SROAPAS"",75,0)"
^XMB(3.9,148,2,8234,0)=" I $L(SROLN1(I))+$L(SROWRAP)>28 S SROLN1(I+1)=SROWRAP   ;Last line"
^XMB(3.9,148,2,8235,0)="""RTN"",""SROAPAS"",76,0)"
^XMB(3.9,148,2,8236,0)=" I $L(SROLN1(I))+$L(SROWRAP)'>28 S SROLN1(I)=SROLN1(I)_"" ""_SROWRAP"
^XMB(3.9,148,2,8237,0)="""RTN"",""SROAPAS"",77,0)"
^XMB(3.9,148,2,8238,0)=" ;"
^XMB(3.9,148,2,8239,0)="""RTN"",""SROAPAS"",78,0)"
^XMB(3.9,148,2,8240,0)=" ;Renumber the SROLN1 array to be in numeric order"
^XMB(3.9,148,2,8241,0)="""RTN"",""SROAPAS"",79,0)"
^XMB(3.9,148,2,8242,0)=" S SRNUM=0,SRNUM1=1"
^XMB(3.9,148,2,8243,0)="""RTN"",""SROAPAS"",80,0)"
^XMB(3.9,148,2,8244,0)=" F  S SRNUM=$O(SROLN1(SRNUM)) Q:SRNUM=""""  D"
^XMB(3.9,148,2,8245,0)="""RTN"",""SROAPAS"",81,0)"
^XMB(3.9,148,2,8246,0)=" .S SROL(SRNUM1)=SROLN1(SRNUM)"
^XMB(3.9,148,2,8247,0)="""RTN"",""SROAPAS"",82,0)"
^XMB(3.9,148,2,8248,0)=" .S SRNUM1=SRNUM1+1"
^XMB(3.9,148,2,8249,0)="""RTN"",""SROAPAS"",83,0)"
^XMB(3.9,148,2,8250,0)=" Q"
^XMB(3.9,148,2,8251,0)="""RTN"",""SROAPAS"",84,0)"
^XMB(3.9,148,2,8252,0)=" ;"
^XMB(3.9,148,2,8253,0)="""RTN"",""SROAPAS"",85,0)"
^XMB(3.9,148,2,8254,0)="LOOP ; break procedures"
^XMB(3.9,148,2,8255,0)="""RTN"",""SROAPAS"",86,0)"
^XMB(3.9,148,2,8256,0)=" S SROPS(M)="""" F LOOP=1:1 S MM=$P(SROPER,"" ""),MMM=$P(SROPER,"" "",2,200) Q:MMM=""""  Q:$L(SROPS(M))+$L(MM)'<55  S SROPS(M)=SROPS(M)_MM_"" "",SROPER=MMM"
^XMB(3.9,148,2,8257,0)="""RTN"",""SROAPAS"",87,0)"
^XMB(3.9,148,2,8258,0)=" Q"
^XMB(3.9,148,2,8259,0)="""RTN"",""SROAPAS"",88,0)"
^XMB(3.9,148,2,8260,0)="PAGE I $E(IOST)'=""P"" W !!,""Press <RET> to continue, or '^' to quit  "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1 Q"
^XMB(3.9,148,2,8261,0)="""RTN"",""SROAPAS"",89,0)"
^XMB(3.9,148,2,8262,0)=" I X[""?"" W !!,""Enter <RET> to continue printing the remaining pages of this assessment, or"",!,""'^' to exit this option."" G PAGE"
^XMB(3.9,148,2,8263,0)="""RTN"",""SROAPAS"",90,0)"
^XMB(3.9,148,2,8264,0)=" W @IOF"
^XMB(3.9,148,2,8265,0)="""RTN"",""SROAPAS"",91,0)"
^XMB(3.9,148,2,8266,0)="HDR ; print heading"
^XMB(3.9,148,2,8267,0)="""RTN"",""SROAPAS"",92,0)"
^XMB(3.9,148,2,8268,0)=" I $D(ZTQUEUED) D ^SROSTOP I SRHALT S SRSOUT=1 Q"
^XMB(3.9,148,2,8269,0)="""RTN"",""SROAPAS"",93,0)"
^XMB(3.9,148,2,8270,0)=" S SRPG=SRPG+1"
^XMB(3.9,148,2,8271,0)="""RTN"",""SROAPAS"",94,0)"
^XMB(3.9,148,2,8272,0)=" I $Y'=0 W @IOF"
^XMB(3.9,148,2,8273,0)="""RTN"",""SROAPAS"",95,0)"
^XMB(3.9,148,2,8274,0)=" I SRATYPE=""C"" W !,""VA CARDIAC RISK ASSESSMENT"",?70,""PAGE ""_SRPG"
^XMB(3.9,148,2,8275,0)="""RTN"",""SROAPAS"",96,0)"
^XMB(3.9,148,2,8276,0)=" I SRATYPE=""N"" W !,""VA NON-CARDIAC RISK ASSESSMENT             Assessment: ""_SRTN,?69,""PAGE ""_SRPG"
^XMB(3.9,148,2,8277,0)="""RTN"",""SROAPAS"",97,0)"
^XMB(3.9,148,2,8278,0)=" W !,""FOR ""_SRANM S X=$P(SR(""RA""),""^"") W "" (""_$S(X=""I"":""INCOMPLETE"",X=""C"":""COMPLETED"",X=""T"":""TRANSMITTED"",1:""NO ASSESSMENT"") I X=""T"" S Y=$P(SR(""RA""),""^"",4) W "" ""_$E(Y,4,5)_""/""_$E(Y,6,7)_""/""_$E(Y,2,3)"
^XMB(3.9,148,2,8279,0)="""RTN"",""SROAPAS"",98,0)"
^XMB(3.9,148,2,8280,0)=" W "")"",! F LINE=1:1:80 W ""="""
^XMB(3.9,148,2,8281,0)="""RTN"",""SROAPAS"",99,0)"
^XMB(3.9,148,2,8282,0)=" W !"
^XMB(3.9,148,2,8283,0)="""RTN"",""SROAPAS"",100,0)"
^XMB(3.9,148,2,8284,0)=" Q"
^XMB(3.9,148,2,8285,0)="""RTN"",""SROAPAS"",101,0)"
^XMB(3.9,148,2,8286,0)="CODE ; print CPT Code"
^XMB(3.9,148,2,8287,0)="""RTN"",""SROAPAS"",102,0)"
^XMB(3.9,148,2,8288,0)=" S X=$P(^SRF(SRTN,13,SR,0),""^"",2) I X W ""  (""_$P($$CPT^ICPTCOD(X),""^"",2)_"")"""
^XMB(3.9,148,2,8289,0)="""RTN"",""SROAPAS"",103,0)"
^XMB(3.9,148,2,8290,0)=" Q"
^XMB(3.9,148,2,8291,0)="""RTN"",""SROAPCA"")"
^XMB(3.9,148,2,8292,0)="0^50^B25381788^B24951681"
^XMB(3.9,148,2,8293,0)="""RTN"",""SROAPCA"",1,0)"
^XMB(3.9,148,2,8294,0)="SROAPCA ;BIR/MAM - PRINT CLINICAL DATA ;09/27/04"
^XMB(3.9,148,2,8295,0)="""RTN"",""SROAPCA"",2,0)"
^XMB(3.9,148,2,8296,0)=" ;;3.0; Surgery ;**38,47,71,95,125,134,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,8297,0)="""RTN"",""SROAPCA"",3,0)"
^XMB(3.9,148,2,8298,0)=" F I=0,206,207,208,200.1 S SRA(I)=$G(^SRF(SRTN,I)),$P(LN,""-"",79)="""""
^XMB(3.9,148,2,8299,0)="""RTN"",""SROAPCA"",4,0)"
^XMB(3.9,148,2,8300,0)=" S X=$P(SRA(0),""^"",9),SRADATE=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3)"
^XMB(3.9,148,2,8301,0)="""RTN"",""SROAPCA"",5,0)"
^XMB(3.9,148,2,8302,0)=" W:$Y @IOF W !,?5,""VA CONTINUOUS IMPROVEMENT IN CARDIAC SURGERY PROGRAM (CICSP/CICSP-X)"",!"
^XMB(3.9,148,2,8303,0)="""RTN"",""SROAPCA"",6,0)"
^XMB(3.9,148,2,8304,0)=" W ! F MOE=1:1:80 W ""="""
^XMB(3.9,148,2,8305,0)="""RTN"",""SROAPCA"",7,0)"
^XMB(3.9,148,2,8306,0)=" W !,""I. IDENTIFYING DATA"",?60,""Case #: ""_SRTN"
^XMB(3.9,148,2,8307,0)="""RTN"",""SROAPCA"",8,0)"
^XMB(3.9,148,2,8308,0)=" N SRSPH1,SRZIP S (SRSPH1,SRZIP)="""""
^XMB(3.9,148,2,8309,0)="""RTN"",""SROAPCA"",9,0)"
^XMB(3.9,148,2,8310,0)=" S STATNUM=+$P($$SITE^SROVAR,""^"",3) D ADD^VADPT"
^XMB(3.9,148,2,8311,0)="""RTN"",""SROAPCA"",10,0)"
^XMB(3.9,148,2,8312,0)=" W !,""Patient: ""_SRANM,?60,""Fac./Div. #: ""_STATNUM"
^XMB(3.9,148,2,8313,0)="""RTN"",""SROAPCA"",11,0)"
^XMB(3.9,148,2,8314,0)=" W !,""Surgery Date: ""_SRADATE,?25,""Address: ""_VAPA(1)"
^XMB(3.9,148,2,8315,0)="""RTN"",""SROAPCA"",12,0)"
^XMB(3.9,148,2,8316,0)=" S SRSPH1=VAPA(8) S:SRSPH1="""" SRSPH1=""NS/Unknown"" S SRZIP=$S(VAPA(11)'="""":$P(VAPA(11),""^"",2),1:VAPA(6)) S:SRZIP="""" SRZIP=""NS/Unknown"""
^XMB(3.9,148,2,8317,0)="""RTN"",""SROAPCA"",13,0)"
^XMB(3.9,148,2,8318,0)=" W !,""Phone: ""_SRSPH1,?25,""Zip Code: ""_SRZIP"
^XMB(3.9,148,2,8319,0)="""RTN"",""SROAPCA"",14,0)"
^XMB(3.9,148,2,8320,0)=" S X=VADM(3) W ?53,""Date of Birth: "",$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3)"
^XMB(3.9,148,2,8321,0)="""RTN"",""SROAPCA"",15,0)"
^XMB(3.9,148,2,8322,0)=" S SRAO(1)=SRADATE,NYUK=$P(SRA(0),""^"",4),SRAO(2)=$P(VADM(5),""^"",2)"
^XMB(3.9,148,2,8323,0)="""RTN"",""SROAPCA"",16,0)"
^XMB(3.9,148,2,8324,0)=" S SRAO(3)=AGE,NYUK=$P(SRA(206),""^"") S:NYUK'="""" NYUK=$S(NYUK[""C""!(NYUK[""c""):+NYUK_"" cm"",1:+NYUK_"" in"") S SRAO(4)=NYUK_""^236"""
^XMB(3.9,148,2,8325,0)="""RTN"",""SROAPCA"",17,0)"
^XMB(3.9,148,2,8326,0)=" S NYUK=$P(SRA(206),""^"",2) S:NYUK'="""" NYUK=$S(NYUK[""K""!(NYUK[""k""):+NYUK_"" kg"",1:+NYUK_"" lb"") S SRAO(5)=NYUK_""^237"""
^XMB(3.9,148,2,8327,0)="""RTN"",""SROAPCA"",18,0)"
^XMB(3.9,148,2,8328,0)=" S SRA(200)=$G(^SRF(SRTN,200)),SRA(209)=$G(^SRF(SRTN,209))"
^XMB(3.9,148,2,8329,0)="""RTN"",""SROAPCA"",19,0)"
^XMB(3.9,148,2,8330,0)=" S NYUK=$P(SRA(209),""^"",3),SRAO(6)=$S(NYUK=""N"":""NO"",NYUK=""O"":""ORAL"",NYUK=""D"":""DIET"",NYUK=""I"":""INSULIN"",1:"""")_""^475"",NYUK=$P(SRA(200),""^"",11) D YN S SRAO(7)=SHEMP_""^203"""
^XMB(3.9,148,2,8331,0)="""RTN"",""SROAPCA"",20,0)"
^XMB(3.9,148,2,8332,0)=" S SRAO(8)=$P(SRA(206),""^"",5)_""^347"",NYUK=$P(SRA(206),""^"",6) D YN S SRAO(9)=SHEMP_""^209"",NYUK=$P(SRA(206),""^"",7) D YN S SRAO(10)=SHEMP_""^348"""
^XMB(3.9,148,2,8333,0)="""RTN"",""SROAPCA"",21,0)"
^XMB(3.9,148,2,8334,0)=" S Y=$P(SRA(200.1),""^"",5),C=$P(^DD(130,510,0),""^"",2) D Y^DIQ S SRAO(11)=$S(Y[""-"":$E($P(Y,""-"",2),1,22),1:$E(Y,1,22))_""^510"""
^XMB(3.9,148,2,8335,0)="""RTN"",""SROAPCA"",22,0)"
^XMB(3.9,148,2,8336,0)=" S NYUK=$P(SRA(206),""^"",11) D YN S SRAO(14)=SHEMP_""^350"",NYUK=$P(SRA(200),""^"",8),SRAO(15)=$S(NYUK=1:""INDEPENDENT"",NYUK=2:""PARTIAL DEPENDENT"",NYUK=3:""TOTALLY DEPENDENT"",NYUK=""NS"":""NS"",1:"""")_""^240"""
^XMB(3.9,148,2,8337,0)="""RTN"",""SROAPCA"",23,0)"
^XMB(3.9,148,2,8338,0)=" S NYUK=$P(SRA(206),""^"",13),SRAO(16)=$S(NYUK=0:""None"",NYUK=1:""NONE RECENT"",NYUK=2:""12-72 HRS"",NYUK=3:""<12 hrs"",NYUK=12:""12 - 72 hrs"",NYUK=72:"">72 hrs - 7 days"",NYUK=7:"">7 days"",NYUK=""NS"":""NO STUDY"",1:"""")_""^351"""
^XMB(3.9,148,2,8339,0)="""RTN"",""SROAPCA"",24,0)"
^XMB(3.9,148,2,8340,0)=" S NYUK=$P(SRA(206),""^"",14),SRAO(17)=$S(NYUK=0:""NONE"",NYUK=1:""< OR = 7 DAYS OF SURG"",NYUK=2:""> 7 DAYS OF SURG"",NYUK=""NS"":""NS"",1:"""")_""^205"""
^XMB(3.9,148,2,8341,0)="""RTN"",""SROAPCA"",25,0)"
^XMB(3.9,148,2,8342,0)=" S NYUK=$P(SRA(206),""^"",15) S SHEMP=$S(NYUK=0:""NONE"",NYUK="">"":"">3"",NYUK=""NS"":""NS"",NYUK=""N"":""NO"",NYUK=""Y"":""YES"",1:NYUK) S SRAO(18)=SHEMP_""^352"""
^XMB(3.9,148,2,8343,0)="""RTN"",""SROAPCA"",26,0)"
^XMB(3.9,148,2,8344,0)=" S NYUK=$P(SRA(206),""^"",42)"
^XMB(3.9,148,2,8345,0)="""RTN"",""SROAPCA"",27,0)"
^XMB(3.9,148,2,8346,0)=" S NYUK=$P(SRA(206),""^"",16) D YN S SRAO(19)=SHEMP_""^265"",NYUK=$P(SRA(206),""^"",17) D YN S SRAO(20)=SHEMP_""^264"""
^XMB(3.9,148,2,8347,0)="""RTN"",""SROAPCA"",28,0)"
^XMB(3.9,148,2,8348,0)=" S SRAO(21)=$P(SRA(206),""^"",18)_""^267"",SRAO(22)=$P(SRA(206),""^"",19)_""^207"",NYUK=$P(SRA(206),""^"",20) D YN S SRAO(23)=SHEMP_""^353"",NYUK=$P(SRA(206),""^"",21) D YN S SRAO(24)=SHEMP_""^354"""
^XMB(3.9,148,2,8349,0)="""RTN"",""SROAPCA"",29,0)"
^XMB(3.9,148,2,8350,0)=" S NYUK=$P(SRA(206),""^"",22) D YN S SRAO(25)=SHEMP_""^355"""
^XMB(3.9,148,2,8351,0)="""RTN"",""SROAPCA"",30,0)"
^XMB(3.9,148,2,8352,0)=" S NYUK=$P(SRA(209),""^"",2),SRAO(26)=$S(NYUK=""N"":""NONE"",NYUK=""I"":""IABP"",NYUK=""V"":""VAD"",NYUK=""O"":""OTHER"",1:NYUK)_""^474"""
^XMB(3.9,148,2,8353,0)="""RTN"",""SROAPCA"",31,0)"
^XMB(3.9,148,2,8354,0)=" S NYUK=$P(SRA(206),""^"",38) D YN S SRAO(27)=SHEMP_""^463"""
^XMB(3.9,148,2,8355,0)="""RTN"",""SROAPCA"",32,0)"
^XMB(3.9,148,2,8356,0)=" S NYUK=$P(SRA(206),""^"",10) D YN S SRAO(29)=SHEMP_""^349"""
^XMB(3.9,148,2,8357,0)="""RTN"",""SROAPCA"",33,0)"
^XMB(3.9,148,2,8358,0)="DISP ; display fields"
^XMB(3.9,148,2,8359,0)="""RTN"",""SROAPCA"",34,0)"
^XMB(3.9,148,2,8360,0)=" W ! F MOE=1:1:80 W ""="""
^XMB(3.9,148,2,8361,0)="""RTN"",""SROAPCA"",35,0)"
^XMB(3.9,148,2,8362,0)=" W !,""II. CLINICAL DATA"""
^XMB(3.9,148,2,8363,0)="""RTN"",""SROAPCA"",36,0)"
^XMB(3.9,148,2,8364,0)=" W !,""Gender:"",?26,$P(SRAO(2),""^""),?40,""PCI: "",$J($P(SRAO(16),""^""),34)"
^XMB(3.9,148,2,8365,0)="""RTN"",""SROAPCA"",37,0)"
^XMB(3.9,148,2,8366,0)=" W !,""Age:"",?26,SRAO(3),?40,""Prior MI:"",$J($P(SRAO(17),""^""),30)"
^XMB(3.9,148,2,8367,0)="""RTN"",""SROAPCA"",38,0)"
^XMB(3.9,148,2,8368,0)=" W !,""Height:"",?26,$P(SRAO(4),""^""),?40,""# of prior heart surgeries:"",?75,$P(SRAO(18),""^"")"
^XMB(3.9,148,2,8369,0)="""RTN"",""SROAPCA"",39,0)"
^XMB(3.9,148,2,8370,0)=" W !,""Weight:"",?26,$P(SRAO(5),""^""),?40,""Prior heart surgeries: "" D H485"
^XMB(3.9,148,2,8371,0)="""RTN"",""SROAPCA"",40,0)"
^XMB(3.9,148,2,8372,0)=" W !,""Diabetes:"",?26,$P(SRAO(6),""^""),?40,""Peripheral Vascular Disease:"",?75,$P(SRAO(19),""^"")"
^XMB(3.9,148,2,8373,0)="""RTN"",""SROAPCA"",41,0)"
^XMB(3.9,148,2,8374,0)=" W !,""COPD:"",?26,$P(SRAO(7),""^""),?40,""Cerebral Vascular Disease:"",?75,$P(SRAO(20),""^"")"
^XMB(3.9,148,2,8375,0)="""RTN"",""SROAPCA"",42,0)"
^XMB(3.9,148,2,8376,0)=" W !,""FEV1:"",?26,$P(SRAO(8),""^"")_$S($P(SRAO(8),""^"")="""":"""",$P(SRAO(8),""^"")=""NS"":"""",1:"" liters""),?40,""Angina (use CCS Class):"",?75,$P(SRAO(21),""^"")"
^XMB(3.9,148,2,8377,0)="""RTN"",""SROAPCA"",43,0)"
^XMB(3.9,148,2,8378,0)=" W !,""Cardiomegaly (X-ray): "",?26,$P(SRAO(9),""^""),?40,""CHF (use NYHA Class):"",?75,$P(SRAO(22),""^"")"
^XMB(3.9,148,2,8379,0)="""RTN"",""SROAPCA"",44,0)"
^XMB(3.9,148,2,8380,0)=" W !,""Pulmonary Rales:"",?26,$P(SRAO(10),""^""),?40,""Current Diuretic Use:"",?75,$P(SRAO(23),""^"")"
^XMB(3.9,148,2,8381,0)="""RTN"",""SROAPCA"",45,0)"
^XMB(3.9,148,2,8382,0)=" W !,""Current Smoker: "",$J($P(SRAO(11),""^""),22),?40,""Current Digoxin Use:"",?75,$P(SRAO(24),""^"")"
^XMB(3.9,148,2,8383,0)="""RTN"",""SROAPCA"",46,0)"
^XMB(3.9,148,2,8384,0)=" W !,""Active Endocarditis:"",?26,$P(SRAO(29),""^""),?40,""IV NTG 48 Hours Preceding Surgery:"",?75,$P(SRAO(25),""^"")"
^XMB(3.9,148,2,8385,0)="""RTN"",""SROAPCA"",47,0)"
^XMB(3.9,148,2,8386,0)=" W !,""Resting ST Depression:"",?26,$P(SRAO(14),""^""),?40,""Preop circulatory Device:"",?74,$P(SRAO(26),""^"")"
^XMB(3.9,148,2,8387,0)="""RTN"",""SROAPCA"",48,0)"
^XMB(3.9,148,2,8388,0)=" W !,""Functional Status: "",$J($P(SRAO(15),""^""),18),?40,""Hypertension:"",?75,$P(SRAO(27),""^"")"
^XMB(3.9,148,2,8389,0)="""RTN"",""SROAPCA"",49,0)"
^XMB(3.9,148,2,8390,0)=" K SRA,SRAO D ^SROAPCA1"
^XMB(3.9,148,2,8391,0)="""RTN"",""SROAPCA"",50,0)"
^XMB(3.9,148,2,8392,0)=" Q"
^XMB(3.9,148,2,8393,0)="""RTN"",""SROAPCA"",51,0)"
^XMB(3.9,148,2,8394,0)="YN ; store answer"
^XMB(3.9,148,2,8395,0)="""RTN"",""SROAPCA"",52,0)"
^XMB(3.9,148,2,8396,0)=" S SHEMP=$S(NYUK=""NS"":""NS"",NYUK=""N"":""NO"",NYUK=""Y"":""YES"",1:"""")"
^XMB(3.9,148,2,8397,0)="""RTN"",""SROAPCA"",53,0)"
^XMB(3.9,148,2,8398,0)=" Q"
^XMB(3.9,148,2,8399,0)="""RTN"",""SROAPCA"",54,0)"
^XMB(3.9,148,2,8400,0)="PAGE I $E(IOST)'=""P"" W !!,""Press <RET> to continue, or '^' to quit  "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1 Q"
^XMB(3.9,148,2,8401,0)="""RTN"",""SROAPCA"",55,0)"
^XMB(3.9,148,2,8402,0)=" I $D(ZTQUEUED) D ^SROSTOP I SRHALT S SRSOUT=1 Q"
^XMB(3.9,148,2,8403,0)="""RTN"",""SROAPCA"",56,0)"
^XMB(3.9,148,2,8404,0)=" W @IOF,!,SRANM,! F MOE=1:1:80 W ""="""
^XMB(3.9,148,2,8405,0)="""RTN"",""SROAPCA"",57,0)"
^XMB(3.9,148,2,8406,0)=" Q"
^XMB(3.9,148,2,8407,0)="""RTN"",""SROAPCA"",58,0)"
^XMB(3.9,148,2,8408,0)="H485 S SHEMP="""",X=$P(SRA(206),""^"",42) F I=1:1:$L(X,"","") D"
^XMB(3.9,148,2,8409,0)="""RTN"",""SROAPCA"",59,0)"
^XMB(3.9,148,2,8410,0)=" .S C=$P(X,"","",I) S:I>1 SHEMP=SHEMP_"", "" S SHEMP=SHEMP_$S(C=0:""None"",C=1:""CABG-only"",C=2:""Valve-only"",C=3:""CABG/valve"",C=4:""Other"",C=5:""CABG/Other"",1:"""")"
^XMB(3.9,148,2,8411,0)="""RTN"",""SROAPCA"",60,0)"
^XMB(3.9,148,2,8412,0)=" S X=SHEMP I $L(X)<17 W $J(X,16) Q"
^XMB(3.9,148,2,8413,0)="""RTN"",""SROAPCA"",61,0)"
^XMB(3.9,148,2,8414,0)=" W $J($P(X,"","")_"","",16) I $L($P(X,"", "",2,9))<40 W !,?41,$P(X,"", "",2,9) Q"
^XMB(3.9,148,2,8415,0)="""RTN"",""SROAPCA"",62,0)"
^XMB(3.9,148,2,8416,0)=" W !,?41,$P(X,"", "",2,4)_"","",!,?41,$P(X,"", "",5,9)"
^XMB(3.9,148,2,8417,0)="""RTN"",""SROAPCA"",63,0)"
^XMB(3.9,148,2,8418,0)=" Q"
^XMB(3.9,148,2,8419,0)="""RTN"",""SROAPCA1"")"
^XMB(3.9,148,2,8420,0)="0^51^B30711274^B30690413"
^XMB(3.9,148,2,8421,0)="""RTN"",""SROAPCA1"",1,0)"
^XMB(3.9,148,2,8422,0)="SROAPCA1 ;BIR/MAM - PRINT CARDIAC CATH INFO ;04/05/04"
^XMB(3.9,148,2,8423,0)="""RTN"",""SROAPCA1"",2,0)"
^XMB(3.9,148,2,8424,0)=" ;;3.0; Surgery ;**38,63,71,88,95,125,142,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,8425,0)="""RTN"",""SROAPCA1"",3,0)"
^XMB(3.9,148,2,8426,0)=" N SRX F I=200:1:202,206,208,209,202.1 S SRA(I)=$G(^SRF(SRTN,I))"
^XMB(3.9,148,2,8427,0)="""RTN"",""SROAPCA1"",4,0)"
^XMB(3.9,148,2,8428,0)=" I $Y+14>IOSL D PAGE^SROAPCA I SRSOUT Q"
^XMB(3.9,148,2,8429,0)="""RTN"",""SROAPCA1"",5,0)"
^XMB(3.9,148,2,8430,0)=" D LAB^SROAPCA4"
^XMB(3.9,148,2,8431,0)="""RTN"",""SROAPCA1"",6,0)"
^XMB(3.9,148,2,8432,0)=" I $Y+16>IOSL D PAGE^SROAPCA I SRSOUT Q"
^XMB(3.9,148,2,8433,0)="""RTN"",""SROAPCA1"",7,0)"
^XMB(3.9,148,2,8434,0)=" S Y=$P(SRA(209),""^"",4),SRAO(1)=$S(Y=""C"":""CATH"",Y=""I"":""IVUS"",Y=""B"":""BOTH"",Y=""NS"":"" NS"",1:"""")_""^476"""
^XMB(3.9,148,2,8435,0)="""RTN"",""SROAPCA1"",8,0)"
^XMB(3.9,148,2,8436,0)=" S Y=$P(SRA(206),""^"",24),SRX=357,SRAO(2)=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,8437,0)="""RTN"",""SROAPCA1"",9,0)"
^XMB(3.9,148,2,8438,0)=" S Y=$P(SRA(206),""^"",25),SRX=358,SRAO(3)=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,8439,0)="""RTN"",""SROAPCA1"",10,0)"
^XMB(3.9,148,2,8440,0)=" S Y=$P(SRA(206),""^"",26),SRX=359,SRAO(4)=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,8441,0)="""RTN"",""SROAPCA1"",11,0)"
^XMB(3.9,148,2,8442,0)=" S Y=$P(SRA(206),""^"",27),SRX=360,SRAO(5)=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,8443,0)="""RTN"",""SROAPCA1"",12,0)"
^XMB(3.9,148,2,8444,0)=" S NYUK=$P(SRA(206),""^"",30) D LV S SRAO(6)=SHEMP_""^363"""
^XMB(3.9,148,2,8445,0)="""RTN"",""SROAPCA1"",13,0)"
^XMB(3.9,148,2,8446,0)=" S Y=$P(SRA(206),""^"",9),SRX=415,SRAO(7)=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,8447,0)="""RTN"",""SROAPCA1"",14,0)"
^XMB(3.9,148,2,8448,0)=" S Y=$P(SRA(209),""^"",5),SRX=477,SRAO(8)=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,8449,0)="""RTN"",""SROAPCA1"",15,0)"
^XMB(3.9,148,2,8450,0)=" S Y=$P(SRA(206),""^"",28),SRX=361,SRAO(9)=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,8451,0)="""RTN"",""SROAPCA1"",16,0)"
^XMB(3.9,148,2,8452,0)=" S Y=$P(SRA(206),""^"",33),SRX=362.1,SRAO(10)=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,8453,0)="""RTN"",""SROAPCA1"",17,0)"
^XMB(3.9,148,2,8454,0)=" S Y=$P(SRA(206),""^"",34),SRX=362.2,SRAO(11)=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,8455,0)="""RTN"",""SROAPCA1"",18,0)"
^XMB(3.9,148,2,8456,0)=" S Y=$P(SRA(206),""^"",35),SRX=362.3,SRAO(12)=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,8457,0)="""RTN"",""SROAPCA1"",19,0)"
^XMB(3.9,148,2,8458,0)=" S Y=$P(SRA(209),""^"",6),SRX=478,SRAO(13)=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,8459,0)="""RTN"",""SROAPCA1"",20,0)"
^XMB(3.9,148,2,8460,0)=" S Y=$P(SRA(209),""^"",7),SRX=479,SRAO(14)=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,8461,0)="""RTN"",""SROAPCA1"",21,0)"
^XMB(3.9,148,2,8462,0)=" S Y=$P(SRA(209),""^"",8),SRX=480,SRAO(15)=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,8463,0)="""RTN"",""SROAPCA1"",22,0)"
^XMB(3.9,148,2,8464,0)=" W !!,""IV. CARDIAC CATHETERIZATION AND ANGIOGRAPHIC DATA"""
^XMB(3.9,148,2,8465,0)="""RTN"",""SROAPCA1"",23,0)"
^XMB(3.9,148,2,8466,0)=" S Y=$P($G(^SRF(SRTN,207)),""^"",21) I Y>1 D DT S Y=X"
^XMB(3.9,148,2,8467,0)="""RTN"",""SROAPCA1"",24,0)"
^XMB(3.9,148,2,8468,0)=" D NS W !,""Cardiac Catheterization Date: "",$E(Y,1,8)"
^XMB(3.9,148,2,8469,0)="""RTN"",""SROAPCA1"",25,0)"
^XMB(3.9,148,2,8470,0)=" W !,""Procedure:"",?26,$P(SRAO(1),""^""),?41,""Native Coronaries:"""
^XMB(3.9,148,2,8471,0)="""RTN"",""SROAPCA1"",26,0)"
^XMB(3.9,148,2,8472,0)=" S SRX=$P(SRAO(2),""^"") W !,""LVEDP:"",?26,$J(SRX,3) D MMHG"
^XMB(3.9,148,2,8473,0)="""RTN"",""SROAPCA1"",27,0)"
^XMB(3.9,148,2,8474,0)=" S SRX=$P(SRAO(9),""^"") W ?41,""Left Main Stenosis:"",?71,$J(SRX,3) I SRX?1.3N W ""%"""
^XMB(3.9,148,2,8475,0)="""RTN"",""SROAPCA1"",28,0)"
^XMB(3.9,148,2,8476,0)=" S SRX=$P(SRAO(3),""^"") W !,""Aortic Systolic Pressure:"",?26,$J(SRX,3) D MMHG"
^XMB(3.9,148,2,8477,0)="""RTN"",""SROAPCA1"",29,0)"
^XMB(3.9,148,2,8478,0)=" S SRX=$P(SRAO(10),""^"") W ?41,""LAD Stenosis:"",?71,$J(SRX,3) I SRX?1.3N W ""%"""
^XMB(3.9,148,2,8479,0)="""RTN"",""SROAPCA1"",30,0)"
^XMB(3.9,148,2,8480,0)=" S SRX=$P(SRAO(11),""^"") W !,?41,""Right Coronary Stenosis:"",?71,$J(SRX,3) I SRX?1.3N W ""%"""
^XMB(3.9,148,2,8481,0)="""RTN"",""SROAPCA1"",31,0)"
^XMB(3.9,148,2,8482,0)=" W !,""For patients having right heart cath:"" S SRX=$P(SRAO(12),""^"") W ?41,""Circumflex Stenosis:"",?71,$J(SRX,3) I SRX?1.3N W ""%"""
^XMB(3.9,148,2,8483,0)="""RTN"",""SROAPCA1"",32,0)"
^XMB(3.9,148,2,8484,0)=" ;"
^XMB(3.9,148,2,8485,0)="""RTN"",""SROAPCA1"",33,0)"
^XMB(3.9,148,2,8486,0)=" S SRX=$P(SRAO(4),""^"") W !,""PA Systolic Pressure:"",?26,$J(SRX,3) D MMHG"
^XMB(3.9,148,2,8487,0)="""RTN"",""SROAPCA1"",34,0)"
^XMB(3.9,148,2,8488,0)=" S SRX=$P(SRAO(5),""^"") W !,""PAW Mean Pressure:"",?26,$J(SRX,3) D MMHG"
^XMB(3.9,148,2,8489,0)="""RTN"",""SROAPCA1"",35,0)"
^XMB(3.9,148,2,8490,0)=" W ?41,""If a Re-do, indicate stenosis"",!,?44,"" in graft to:"""
^XMB(3.9,148,2,8491,0)="""RTN"",""SROAPCA1"",36,0)"
^XMB(3.9,148,2,8492,0)=" S SRX=$P(SRAO(13),""^"") W !,?41,""LAD:"",?71,$J(SRX,3) I SRX?1.3N W ""%"""
^XMB(3.9,148,2,8493,0)="""RTN"",""SROAPCA1"",37,0)"
^XMB(3.9,148,2,8494,0)=" S SRX=$P(SRAO(14),""^"") W !,?41,""Right coronary (include PDA): "",$J(SRX,3) I SRX?1.3N W ""%"""
^XMB(3.9,148,2,8495,0)="""RTN"",""SROAPCA1"",38,0)"
^XMB(3.9,148,2,8496,0)=" S SRX=$P(SRAO(15),""^"") W !,?41,""Circumflex:"",?71,$J(SRX,3) I SRX?1.3N W ""%"""
^XMB(3.9,148,2,8497,0)="""RTN"",""SROAPCA1"",39,0)"
^XMB(3.9,148,2,8498,0)=" W !,LN"
^XMB(3.9,148,2,8499,0)="""RTN"",""SROAPCA1"",40,0)"
^XMB(3.9,148,2,8500,0)=" W !,""LV Contraction Grade (from contrast or radionuclide angiogram or 2D Echo):"",!,?7,""Grade"",?17,""Ejection Fraction Range"",?51,""Definition"""
^XMB(3.9,148,2,8501,0)="""RTN"",""SROAPCA1"",41,0)"
^XMB(3.9,148,2,8502,0)=" W !,?8,$P(SRAO(6),""^"")"
^XMB(3.9,148,2,8503,0)="""RTN"",""SROAPCA1"",42,0)"
^XMB(3.9,148,2,8504,0)=" W !,LN,!,""Mitral Regurgitation:"",?26,$P(SRAO(7),""^"")"
^XMB(3.9,148,2,8505,0)="""RTN"",""SROAPCA1"",43,0)"
^XMB(3.9,148,2,8506,0)=" W !,""Aortic stenosis:"",?26,$P(SRAO(8),""^"")"
^XMB(3.9,148,2,8507,0)="""RTN"",""SROAPCA1"",44,0)"
^XMB(3.9,148,2,8508,0)=" I $Y+14>IOSL D PAGE^SROAPCA I SRSOUT Q"
^XMB(3.9,148,2,8509,0)="""RTN"",""SROAPCA1"",45,0)"
^XMB(3.9,148,2,8510,0)=" K SRAO S Y=$P(SRA(206),""^"",31),SRX=364,SRAO(1)=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,8511,0)="""RTN"",""SROAPCA1"",46,0)"
^XMB(3.9,148,2,8512,0)=" S Y=$P($G(^SRF(SRTN,1.1)),""^"",3),SRX=1.13,SRAO(2)=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,8513,0)="""RTN"",""SROAPCA1"",47,0)"
^XMB(3.9,148,2,8514,0)=" S Y=$P(SRA(208),""^"",12),SRX=414,SRAO(3)=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,8515,0)="""RTN"",""SROAPCA1"",48,0)"
^XMB(3.9,148,2,8516,0)=" S Y=$P(SRA(206),""^"",32),SRX=364.1,SRAO(""1A"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,8517,0)="""RTN"",""SROAPCA1"",49,0)"
^XMB(3.9,148,2,8518,0)=" S Y=$P(SRA(208),""^"",13),SRX=414.1,SRAO(""3A"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,8519,0)="""RTN"",""SROAPCA1"",50,0)"
^XMB(3.9,148,2,8520,0)=" S Y=$P($G(^SRF(SRTN,.2)),""^"",2),SRX=.22,SRAO(0)=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,8521,0)="""RTN"",""SROAPCA1"",51,0)"
^XMB(3.9,148,2,8522,0)=" W !!,""V. OPERATIVE RISK SUMMARY DATA"" S X=$P(SRAO(0),""^"") I X'="""" W ?40,""(Operation Began: ""_X_"")"""
^XMB(3.9,148,2,8523,0)="""RTN"",""SROAPCA1"",52,0)"
^XMB(3.9,148,2,8524,0)=" W !,?5,""Physician's Preoperative"" S Y=$P($G(^SRF(SRTN,.2)),""^"",3) I Y'="""" D DT W ?40,""(Operation Ended: ""_X_"")"""
^XMB(3.9,148,2,8525,0)="""RTN"",""SROAPCA1"",53,0)"
^XMB(3.9,148,2,8526,0)=" W !,?7,""Estimate of Operative Mortality: ""_$P(SRAO(1),""^"") I $P(SRAO(1),""^"")'=""""&($P(SRAO(1),""^"")'=""NS"") W ""%"""
^XMB(3.9,148,2,8527,0)="""RTN"",""SROAPCA1"",54,0)"
^XMB(3.9,148,2,8528,0)=" S X=$P(SRAO(""1A""),""^"") I X'="""" W ?57,""(""_X_"")"""
^XMB(3.9,148,2,8529,0)="""RTN"",""SROAPCA1"",55,0)"
^XMB(3.9,148,2,8530,0)=" W !,?5,""ASA Classification:"",?35,$P(SRAO(2),""^""),!,?5,""Surgical Priority:"",?35,$P(SRAO(3),""^"") S X=$P(SRAO(""3A""),""^"") I X'="""" W ?57,""(""_X_"")"""
^XMB(3.9,148,2,8531,0)="""RTN"",""SROAPCA1"",56,0)"
^XMB(3.9,148,2,8532,0)=" S X=$P($G(^SRO(136,SRTN,0)),""^"",2) I X S Y=$P($$CPT^ICPTCOD(X),""^"",2) D SSPRIN^SROCPT0 S X=Y"
^XMB(3.9,148,2,8533,0)="""RTN"",""SROAPCA1"",57,0)"
^XMB(3.9,148,2,8534,0)=" S X=$S(X'="""":X,1:""CPT Code Missing"")"
^XMB(3.9,148,2,8535,0)="""RTN"",""SROAPCA1"",58,0)"
^XMB(3.9,148,2,8536,0)=" W !,?5,""Principal CPT Code:"",?35,X,!,?5,""Other Procedures CPT Codes: """
^XMB(3.9,148,2,8537,0)="""RTN"",""SROAPCA1"",59,0)"
^XMB(3.9,148,2,8538,0)=" S CNT=32,OTH=0 F  S OTH=$O(^SRO(136,SRTN,3,OTH)) Q:'OTH  S CPT=$P($G(^SRO(136,SRTN,3,OTH,0)),""^"") D"
^XMB(3.9,148,2,8539,0)="""RTN"",""SROAPCA1"",60,0)"
^XMB(3.9,148,2,8540,0)=" .I CPT S Y=$P($$CPT^ICPTCOD(CPT),""^"",2) S SRDA=OTH D SSOTH^SROCPT0 S CPT=Y"
^XMB(3.9,148,2,8541,0)="""RTN"",""SROAPCA1"",61,0)"
^XMB(3.9,148,2,8542,0)=" .S:CPT="""" CPT=""NONE"" S CNT=CNT+3"
^XMB(3.9,148,2,8543,0)="""RTN"",""SROAPCA1"",62,0)"
^XMB(3.9,148,2,8544,0)=" .I CNT+$L(CPT)'>80 W:CNT>35 "";"" W ?(CNT),CPT S CNT=CNT+$L(CPT) Q"
^XMB(3.9,148,2,8545,0)="""RTN"",""SROAPCA1"",63,0)"
^XMB(3.9,148,2,8546,0)=" .W !,?35,CPT S CNT=35+$L(CPT)"
^XMB(3.9,148,2,8547,0)="""RTN"",""SROAPCA1"",64,0)"
^XMB(3.9,148,2,8548,0)=" W !,?5,""Preoperative Risk Factors: """
^XMB(3.9,148,2,8549,0)="""RTN"",""SROAPCA1"",65,0)"
^XMB(3.9,148,2,8550,0)=" I $G(^SRF(SRTN,206.1))'="""" S SRQ=0 S X=$G(^SRF(SRTN,206.1)) W:$L(X)<49 X,! I $L(X)>48 S Z=$L(X) D"
^XMB(3.9,148,2,8551,0)="""RTN"",""SROAPCA1"",66,0)"
^XMB(3.9,148,2,8552,0)=" .I X'["" "" W ?25,X Q"
^XMB(3.9,148,2,8553,0)="""RTN"",""SROAPCA1"",67,0)"
^XMB(3.9,148,2,8554,0)=" .S I=0,LINE=1 F  S SRL=$S(LINE=1:48,1:80) D  Q:SRQ"
^XMB(3.9,148,2,8555,0)="""RTN"",""SROAPCA1"",68,0)"
^XMB(3.9,148,2,8556,0)=" ..I $E(X,1,SRL)'["" "" W X,! S SRQ=1 Q"
^XMB(3.9,148,2,8557,0)="""RTN"",""SROAPCA1"",69,0)"
^XMB(3.9,148,2,8558,0)=" ..S J=SRL-I,Y=$E(X,J),I=I+1 I Y="" "" W $E(X,1,J-1),!,?5 S X=$E(X,J+1,Z),Z=$L(X),I=0,LINE=LINE+1 I Z<SRL W X S SRQ=1 Q"
^XMB(3.9,148,2,8559,0)="""RTN"",""SROAPCA1"",70,0)"
^XMB(3.9,148,2,8560,0)=" I $Y+20>IOSL D PAGE^SROAPCA I SRSOUT Q"
^XMB(3.9,148,2,8561,0)="""RTN"",""SROAPCA1"",71,0)"
^XMB(3.9,148,2,8562,0)=" K SRA,SRAO D ^SROAPCA2"
^XMB(3.9,148,2,8563,0)="""RTN"",""SROAPCA1"",72,0)"
^XMB(3.9,148,2,8564,0)=" Q"
^XMB(3.9,148,2,8565,0)="""RTN"",""SROAPCA1"",73,0)"
^XMB(3.9,148,2,8566,0)="YN ; store answer"
^XMB(3.9,148,2,8567,0)="""RTN"",""SROAPCA1"",74,0)"
^XMB(3.9,148,2,8568,0)=" S SHEMP=$S(NYUK=""NS"":""NS"",NYUK=""N"":""NO"",NYUK=""Y"":""YES"",1:"""")"
^XMB(3.9,148,2,8569,0)="""RTN"",""SROAPCA1"",75,0)"
^XMB(3.9,148,2,8570,0)=" Q"
^XMB(3.9,148,2,8571,0)="""RTN"",""SROAPCA1"",76,0)"
^XMB(3.9,148,2,8572,0)="DT I 'Y S X="""" Q"
^XMB(3.9,148,2,8573,0)="""RTN"",""SROAPCA1"",77,0)"
^XMB(3.9,148,2,8574,0)=" S Z=$E($P(Y,""."",2),1,4),Z=Z_""0000"",Z=$E(Z,1,4),X=$E(Y,4,5)_""/""_$E(Y,6,7)_""/""_$E(Y,2,3)_"" ""_$E(Z,1,2)_"":""_$E(Z,3,4)"
^XMB(3.9,148,2,8575,0)="""RTN"",""SROAPCA1"",78,0)"
^XMB(3.9,148,2,8576,0)=" Q"
^XMB(3.9,148,2,8577,0)="""RTN"",""SROAPCA1"",79,0)"
^XMB(3.9,148,2,8578,0)="OUT(SRFLD,SRY) ; get data in output form"
^XMB(3.9,148,2,8579,0)="""RTN"",""SROAPCA1"",80,0)"
^XMB(3.9,148,2,8580,0)=" N C,Y"
^XMB(3.9,148,2,8581,0)="""RTN"",""SROAPCA1"",81,0)"
^XMB(3.9,148,2,8582,0)=" S Y=SRY,C=$P(^DD(130,SRFLD,0),""^"",2) D:Y'="""" Y^DIQ"
^XMB(3.9,148,2,8583,0)="""RTN"",""SROAPCA1"",82,0)"
^XMB(3.9,148,2,8584,0)=" I Y=""NO STUDY"" S Y=""NS"" Q Y"
^XMB(3.9,148,2,8585,0)="""RTN"",""SROAPCA1"",83,0)"
^XMB(3.9,148,2,8586,0)=" Q Y"
^XMB(3.9,148,2,8587,0)="""RTN"",""SROAPCA1"",84,0)"
^XMB(3.9,148,2,8588,0)="MMHG I SRX=""NO STUDY""!(SRX=""NS"") Q"
^XMB(3.9,148,2,8589,0)="""RTN"",""SROAPCA1"",85,0)"
^XMB(3.9,148,2,8590,0)=" W "" mm Hg"""
^XMB(3.9,148,2,8591,0)="""RTN"",""SROAPCA1"",86,0)"
^XMB(3.9,148,2,8592,0)=" Q"
^XMB(3.9,148,2,8593,0)="""RTN"",""SROAPCA1"",87,0)"
^XMB(3.9,148,2,8594,0)="NS S Y=$S(Y=""NS"":""NO STUDY"",1:Y)"
^XMB(3.9,148,2,8595,0)="""RTN"",""SROAPCA1"",88,0)"
^XMB(3.9,148,2,8596,0)=" Q"
^XMB(3.9,148,2,8597,0)="""RTN"",""SROAPCA1"",89,0)"
^XMB(3.9,148,2,8598,0)="LV K SHEMP S SHEMP=$S(NYUK=""I"":"" I          > or = 0.55                    NORMAL"",NYUK=""II"":""II             0.45-0.54                   MILD DYSFUNCTION"",1:NYUK)"
^XMB(3.9,148,2,8599,0)="""RTN"",""SROAPCA1"",90,0)"
^XMB(3.9,148,2,8600,0)=" Q:SHEMP'=NYUK  S SHEMP=$S(NYUK=""III"":""III           0.35-0.44                    MODERATE DYSFUNCTION"",1:NYUK)"
^XMB(3.9,148,2,8601,0)="""RTN"",""SROAPCA1"",91,0)"
^XMB(3.9,148,2,8602,0)=" Q:SHEMP'=NYUK  S SHEMP=$S(NYUK=""IIIa"":""IIIa          0.40-0.44                    MODERATE DYSFUNCTION A"",1:NYUK)"
^XMB(3.9,148,2,8603,0)="""RTN"",""SROAPCA1"",92,0)"
^XMB(3.9,148,2,8604,0)=" Q:SHEMP'=NYUK  S SHEMP=$S(NYUK=""IIIb"":""IIIb          0.35-0.39                    MODERATE DYSFUNCTION B"",1:NYUK)"
^XMB(3.9,148,2,8605,0)="""RTN"",""SROAPCA1"",93,0)"
^XMB(3.9,148,2,8606,0)=" Q:SHEMP'=NYUK  S SHEMP=$S(NYUK=""IV"":""IV            0.25-0.34                    SEVERE DYSFUNCTION"",NYUK=""V"":"" V             <0.25                       VERY SEVERE DYSFUNCTION"",NYUK=""NS"":""NO LV STUDY"",1:"""")"
^XMB(3.9,148,2,8607,0)="""RTN"",""SROAPCA1"",94,0)"
^XMB(3.9,148,2,8608,0)=" Q"
^XMB(3.9,148,2,8609,0)="""RTN"",""SROAPCA2"")"
^XMB(3.9,148,2,8610,0)="0^52^B19366840^B20501034"
^XMB(3.9,148,2,8611,0)="""RTN"",""SROAPCA2"",1,0)"
^XMB(3.9,148,2,8612,0)="SROAPCA2 ;BIR/MAM - PRINT OPERATIVE DATA ;06/28/06"
^XMB(3.9,148,2,8613,0)="""RTN"",""SROAPCA2"",2,0)"
^XMB(3.9,148,2,8614,0)=" ;;3.0; Surgery ;**38,71,95,125,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,8615,0)="""RTN"",""SROAPCA2"",3,0)"
^XMB(3.9,148,2,8616,0)=" S SRA(206)=$G(^SRF(SRTN,206)),SRA(207)=$G(^SRF(SRTN,207)),SRA(209)=$G(^SRF(SRTN,209)),SRA(207.1)=$G(^SRF(SRTN,207.1))"
^XMB(3.9,148,2,8617,0)="""RTN"",""SROAPCA2"",4,0)"
^XMB(3.9,148,2,8618,0)=" S SRAO(1)=$P(SRA(207),""^"")_""^365"""
^XMB(3.9,148,2,8619,0)="""RTN"",""SROAPCA2"",5,0)"
^XMB(3.9,148,2,8620,0)=" S SRAO(2)=$P(SRA(207),""^"",2)_""^366"""
^XMB(3.9,148,2,8621,0)="""RTN"",""SROAPCA2"",6,0)"
^XMB(3.9,148,2,8622,0)=" S SRAO(3)=$P(SRA(207),""^"",24)_""^464"""
^XMB(3.9,148,2,8623,0)="""RTN"",""SROAPCA2"",7,0)"
^XMB(3.9,148,2,8624,0)=" S SRAO(4)=$P(SRA(207),""^"",25)_""^465"""
^XMB(3.9,148,2,8625,0)="""RTN"",""SROAPCA2"",8,0)"
^XMB(3.9,148,2,8626,0)=" S SRAO(5)=$P(SRA(207),""^"",20)_""^416"""
^XMB(3.9,148,2,8627,0)="""RTN"",""SROAPCA2"",9,0)"
^XMB(3.9,148,2,8628,0)=" S NYUK=$P(SRA(207),""^"",3) D YN S SRAO(6)=SHEMP_""^367"""
^XMB(3.9,148,2,8629,0)="""RTN"",""SROAPCA2"",10,0)"
^XMB(3.9,148,2,8630,0)=" S NYUK=$P(SRA(207),""^"",4) D YN S SRAO(7)=SHEMP_""^368"""
^XMB(3.9,148,2,8631,0)="""RTN"",""SROAPCA2"",11,0)"
^XMB(3.9,148,2,8632,0)=" S NYUK=$P(SRA(207),""^"",5) D YN S SRAO(8)=SHEMP_""^369"""
^XMB(3.9,148,2,8633,0)="""RTN"",""SROAPCA2"",12,0)"
^XMB(3.9,148,2,8634,0)=" S NYUK=$P(SRA(207),""^"",6) S SRAO(9)=$S(NYUK=""Y"":""YES"",NYUK=""N"":""NO"",NYUK=1:""AORTIC"",NYUK=2:""MITRAL"",NYUK=3:""TRICUSPID"",NYUK=4:""OTHER/COMBINATION"",NYUK=5:""NONE"",1:"""")_""^370"""
^XMB(3.9,148,2,8635,0)="""RTN"",""SROAPCA2"",13,0)"
^XMB(3.9,148,2,8636,0)=" S NYUK=$P(SRA(207),""^"",7) D YN S SRAO(10)=SHEMP_""^371"""
^XMB(3.9,148,2,8637,0)="""RTN"",""SROAPCA2"",14,0)"
^XMB(3.9,148,2,8638,0)=" S NYUK=$P(SRA(209),""^"",9) D YN S SRAO(11)=SHEMP_""^481"""
^XMB(3.9,148,2,8639,0)="""RTN"",""SROAPCA2"",15,0)"
^XMB(3.9,148,2,8640,0)=" S NYUK=$P(SRA(209),""^"",11) D YN S SRAO(12)=SHEMP_""^483"""
^XMB(3.9,148,2,8641,0)="""RTN"",""SROAPCA2"",16,0)"
^XMB(3.9,148,2,8642,0)=" S NYUK=$P(SRA(209),""^"",14) S SHEMP=$S(NYUK=""F"":""FULL MAZE"",NYUK=""N"":""NO MAZE PERFORMED"",NYUK=""M"":""MINI MAZE"",1:"""") S SRAO(13)=SHEMP_""^512"""
^XMB(3.9,148,2,8643,0)="""RTN"",""SROAPCA2"",17,0)"
^XMB(3.9,148,2,8644,0)=" S NYUK=$P(SRA(207),""^"",12) D YN S SRAO(14)=SHEMP_""^376"""
^XMB(3.9,148,2,8645,0)="""RTN"",""SROAPCA2"",18,0)"
^XMB(3.9,148,2,8646,0)=" S NYUK=$P(SRA(207),""^"",13) D YN S SRAO(15)=SHEMP_""^380"""
^XMB(3.9,148,2,8647,0)="""RTN"",""SROAPCA2"",19,0)"
^XMB(3.9,148,2,8648,0)=" S NYUK=$P(SRA(207),""^"",16) D YN S SRAO(16)=SHEMP_""^378"""
^XMB(3.9,148,2,8649,0)="""RTN"",""SROAPCA2"",20,0)"
^XMB(3.9,148,2,8650,0)=" S NYUK=$P(SRA(207),""^"",14) D YN S SRAO(17)=SHEMP_""^377"""
^XMB(3.9,148,2,8651,0)="""RTN"",""SROAPCA2"",21,0)"
^XMB(3.9,148,2,8652,0)=" S NYUK=$P(SRA(207),""^"",18) D YN S SRAO(18)=SHEMP_""^379"""
^XMB(3.9,148,2,8653,0)="""RTN"",""SROAPCA2"",22,0)"
^XMB(3.9,148,2,8654,0)=" S NYUK=$P(SRA(207),""^"",9) D YN S SRAO(19)=SHEMP_""^373"""
^XMB(3.9,148,2,8655,0)="""RTN"",""SROAPCA2"",23,0)"
^XMB(3.9,148,2,8656,0)=" S NYUK=$P($G(^SRF(SRTN,209.1)),""^"") S SRAO(20)=$S(NYUK=""NS"":""NS"",1:NYUK)_""^484"""
^XMB(3.9,148,2,8657,0)="""RTN"",""SROAPCA2"",24,0)"
^XMB(3.9,148,2,8658,0)=" S NYUK=$P(SRA(207),""^"",8) D YN S SRAO(21)=SHEMP_""^372"""
^XMB(3.9,148,2,8659,0)="""RTN"",""SROAPCA2"",25,0)"
^XMB(3.9,148,2,8660,0)=" S NYUK=$P(SRA(207.1),""^"",2) D YN S SRAO(""21H"")=SHEMP_""^505"""
^XMB(3.9,148,2,8661,0)="""RTN"",""SROAPCA2"",26,0)"
^XMB(3.9,148,2,8662,0)=" S NYUK=$P(SRA(207),""^"",15) D YN S SRAO(22)=SHEMP_""^381"""
^XMB(3.9,148,2,8663,0)="""RTN"",""SROAPCA2"",27,0)"
^XMB(3.9,148,2,8664,0)=" S NYUK=$P(SRA(207),""^"",17) D YN S SRAO(23)=SHEMP_""^382"""
^XMB(3.9,148,2,8665,0)="""RTN"",""SROAPCA2"",28,0)"
^XMB(3.9,148,2,8666,0)=" S SRAO(24)=$P(SRA(206),""^"",37)_""^451"""
^XMB(3.9,148,2,8667,0)="""RTN"",""SROAPCA2"",29,0)"
^XMB(3.9,148,2,8668,0)=" S SRAO(25)=$P(SRA(206),""^"",36)_""^450"""
^XMB(3.9,148,2,8669,0)="""RTN"",""SROAPCA2"",30,0)"
^XMB(3.9,148,2,8670,0)=" S Y=$P(SRA(207),""^"",26),C=$P(^DD(130,468,0),""^"",2) D:Y'="""" Y^DIQ S SRAO(26)=Y_""^468"""
^XMB(3.9,148,2,8671,0)="""RTN"",""SROAPCA2"",31,0)"
^XMB(3.9,148,2,8672,0)=" S Y=$P(SRA(207),""^"",27),C=$P(^DD(130,469,0),""^"",2) D:Y'="""" Y^DIQ S SRAO(27)=Y_""^469"""
^XMB(3.9,148,2,8673,0)="""RTN"",""SROAPCA2"",32,0)"
^XMB(3.9,148,2,8674,0)=" S NYUK=$P(SRA(209),""^"",13) D YN S SRAO(29)=SHEMP_""^502"""
^XMB(3.9,148,2,8675,0)="""RTN"",""SROAPCA2"",33,0)"
^XMB(3.9,148,2,8676,0)=" W !!,""VI. OPERATIVE DATA"""
^XMB(3.9,148,2,8677,0)="""RTN"",""SROAPCA2"",34,0)"
^XMB(3.9,148,2,8678,0)=" W !,""Cardiac surgical procedures with or without cardiopulmonary bypass"",!,""CABG distal anastomoses:"",?40,""Bridge to transplant/Device:"",?75,$P(SRAO(11),""^"")"
^XMB(3.9,148,2,8679,0)="""RTN"",""SROAPCA2"",35,0)"
^XMB(3.9,148,2,8680,0)=" W !,?2,""Number with Vein:"",?33,$P(SRAO(1),""^""),?40,""TMR:"",?75,$P(SRAO(12),""^"")"
^XMB(3.9,148,2,8681,0)="""RTN"",""SROAPCA2"",36,0)"
^XMB(3.9,148,2,8682,0)=" W !,?2,""Number with IMA:"",?33,$P(SRAO(2),""^""),?40,""Maze procedure:"",?61,$J($P(SRAO(13),""^""),17)"
^XMB(3.9,148,2,8683,0)="""RTN"",""SROAPCA2"",37,0)"
^XMB(3.9,148,2,8684,0)=" W !,?2,""Number with Radial Artery:"",?33,$P(SRAO(3),""^""),?40,""ASD repair:"",?75,$P(SRAO(14),""^"")"
^XMB(3.9,148,2,8685,0)="""RTN"",""SROAPCA2"",38,0)"
^XMB(3.9,148,2,8686,0)=" W !,?2,""Number with Other Artery:"",?33,$P(SRAO(4),""^""),?40,""VSD repair:"",?75,$P(SRAO(15),""^"")"
^XMB(3.9,148,2,8687,0)="""RTN"",""SROAPCA2"",39,0)"
^XMB(3.9,148,2,8688,0)=" W !,?2,""Number with Other Conduit:"",?33,$P(SRAO(5),""^""),?40,""Myectomy for IHSS:"",?75,$P(SRAO(16),""^"")"
^XMB(3.9,148,2,8689,0)="""RTN"",""SROAPCA2"",40,0)"
^XMB(3.9,148,2,8690,0)=" W !,""Aortic Valve Replacement:"",?33,$P(SRAO(6),""^""),?40,""Myxoma resection:"",?75,$P(SRAO(17),""^"")"
^XMB(3.9,148,2,8691,0)="""RTN"",""SROAPCA2"",41,0)"
^XMB(3.9,148,2,8692,0)=" W !,""Mitral Valve Replacement:"",?33,$P(SRAO(7),""^""),?40,""Other tumor resection:"",?75,$P(SRAO(18),""^"")"
^XMB(3.9,148,2,8693,0)="""RTN"",""SROAPCA2"",42,0)"
^XMB(3.9,148,2,8694,0)=" W !,""Tricuspid Valve Replacement:"",?33,$P(SRAO(8),""^""),?40,""Cardiac transplant:"",?75,$P(SRAO(19),""^"")"
^XMB(3.9,148,2,8695,0)="""RTN"",""SROAPCA2"",43,0)"
^XMB(3.9,148,2,8696,0)=" W !,""Valve Repair:"",?33,$P(SRAO(9),""^""),?40,""Great Vessel Repair:"",?75,$P(SRAO(21),""^"")"
^XMB(3.9,148,2,8697,0)="""RTN"",""SROAPCA2"",44,0)"
^XMB(3.9,148,2,8698,0)=" W !,""LV Aneurysmectomy:"",?33,$P(SRAO(10),""^""),?40,""Endovascular Repair:"",?75,$P(SRAO(""21H""),""^"")"
^XMB(3.9,148,2,8699,0)="""RTN"",""SROAPCA2"",45,0)"
^XMB(3.9,148,2,8700,0)=" W !,?40,""Other Cardiac procedure(s):"",?75,$P(SRAO(29),""^"")"
^XMB(3.9,148,2,8701,0)="""RTN"",""SROAPCA2"",46,0)"
^XMB(3.9,148,2,8702,0)=" W !,""* Other Cardiac procedures (Specify): "" I $P(SRAO(20),""^"")'="""" S SRQ=0 S X=$P(SRAO(20),""^"") W:$L(X)<49 X,! I $L(X)>48 S Z=$L(X) D"
^XMB(3.9,148,2,8703,0)="""RTN"",""SROAPCA2"",47,0)"
^XMB(3.9,148,2,8704,0)=" .I X'["" "" W ?29,X Q"
^XMB(3.9,148,2,8705,0)="""RTN"",""SROAPCA2"",48,0)"
^XMB(3.9,148,2,8706,0)=" .S I=0,LINE=1 F  S SRL=$S(LINE=1:48,1:80) D  Q:SRQ"
^XMB(3.9,148,2,8707,0)="""RTN"",""SROAPCA2"",49,0)"
^XMB(3.9,148,2,8708,0)=" ..I $E(X,1,SRL)'["" "" W X,! S SRQ=1 Q"
^XMB(3.9,148,2,8709,0)="""RTN"",""SROAPCA2"",50,0)"
^XMB(3.9,148,2,8710,0)=" ..S J=SRL-I,Y=$E(X,J),I=I+1 I Y="" "" W $E(X,1,J-1),! S X=$E(X,J+1,Z),Z=$L(X),I=0,LINE=LINE+1 I Z<SRL W X S SRQ=1 Q"
^XMB(3.9,148,2,8711,0)="""RTN"",""SROAPCA2"",51,0)"
^XMB(3.9,148,2,8712,0)=" W !!,""Indicate other cardiac procedures only if done with cardiopulmonary bypass"""
^XMB(3.9,148,2,8713,0)="""RTN"",""SROAPCA2"",52,0)"
^XMB(3.9,148,2,8714,0)=" W !,""Foreign body removal:"",?33,$P(SRAO(22),""^"")"
^XMB(3.9,148,2,8715,0)="""RTN"",""SROAPCA2"",53,0)"
^XMB(3.9,148,2,8716,0)=" W !,""Pericardiectomy:"",?33,$P(SRAO(23),""^"")"
^XMB(3.9,148,2,8717,0)="""RTN"",""SROAPCA2"",54,0)"
^XMB(3.9,148,2,8718,0)=" W !!,""Other Operative Data details"""
^XMB(3.9,148,2,8719,0)="""RTN"",""SROAPCA2"",55,0)"
^XMB(3.9,148,2,8720,0)=" W !,""Total CPB Time: "",?20,$P(SRAO(24),""^"")_"" min"",?42,""Total Ischemic Time: "",$P(SRAO(25),""^"")_"" min"""
^XMB(3.9,148,2,8721,0)="""RTN"",""SROAPCA2"",56,0)"
^XMB(3.9,148,2,8722,0)=" W !,""Incision Type: "",?25,$P(SRAO(26),""^"")"
^XMB(3.9,148,2,8723,0)="""RTN"",""SROAPCA2"",57,0)"
^XMB(3.9,148,2,8724,0)=" W !,""Conversion Off Pump to CPB: "",$P(SRAO(27),""^"")"
^XMB(3.9,148,2,8725,0)="""RTN"",""SROAPCA2"",58,0)"
^XMB(3.9,148,2,8726,0)=" I $Y+6>IOSL D PAGE^SROAPCA I SRSOUT Q"
^XMB(3.9,148,2,8727,0)="""RTN"",""SROAPCA2"",59,0)"
^XMB(3.9,148,2,8728,0)=" K SRA,SRAO D ^SROAPCA3"
^XMB(3.9,148,2,8729,0)="""RTN"",""SROAPCA2"",60,0)"
^XMB(3.9,148,2,8730,0)=" Q"
^XMB(3.9,148,2,8731,0)="""RTN"",""SROAPCA2"",61,0)"
^XMB(3.9,148,2,8732,0)="YN ; store answer"
^XMB(3.9,148,2,8733,0)="""RTN"",""SROAPCA2"",62,0)"
^XMB(3.9,148,2,8734,0)=" S SHEMP=$S(NYUK=""NS"":""NS"",NYUK=""N"":""NO"",NYUK=""Y"":""YES"",1:"""")"
^XMB(3.9,148,2,8735,0)="""RTN"",""SROAPCA2"",63,0)"
^XMB(3.9,148,2,8736,0)=" Q"
^XMB(3.9,148,2,8737,0)="""RTN"",""SROAPCA4"")"
^XMB(3.9,148,2,8738,0)="0^53^B14863488^B14056741"
^XMB(3.9,148,2,8739,0)="""RTN"",""SROAPCA4"",1,0)"
^XMB(3.9,148,2,8740,0)="SROAPCA4 ;BIR/SJA - CARDIAC COMPLIANCE DATA ;07/05/06"
^XMB(3.9,148,2,8741,0)="""RTN"",""SROAPCA4"",2,0)"
^XMB(3.9,148,2,8742,0)=" ;;3.0; Surgery ;**95,125,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,8743,0)="""RTN"",""SROAPCA4"",3,0)"
^XMB(3.9,148,2,8744,0)=" ;"
^XMB(3.9,148,2,8745,0)="""RTN"",""SROAPCA4"",4,0)"
^XMB(3.9,148,2,8746,0)=" ; Reference to ^DGPM(""APTT1"" supported by DBIA #565"
^XMB(3.9,148,2,8747,0)="""RTN"",""SROAPCA4"",5,0)"
^XMB(3.9,148,2,8748,0)=" ; Reference to File #405 supported by DBIA #3029"
^XMB(3.9,148,2,8749,0)="""RTN"",""SROAPCA4"",6,0)"
^XMB(3.9,148,2,8750,0)=" ; Reference to Field #27.02 in File #2 supported by DBIA #1850"
^XMB(3.9,148,2,8751,0)="""RTN"",""SROAPCA4"",7,0)"
^XMB(3.9,148,2,8752,0)=" ;"
^XMB(3.9,148,2,8753,0)="""RTN"",""SROAPCA4"",8,0)"
^XMB(3.9,148,2,8754,0)=" S SRA(201)=$G(^SRF(SRTN,201)),SRA(202)=$G(^SRF(SRTN,202)),SRA(208)=$G(^SRF(SRTN,208)),SRA(0)=$G(^SRF(SRTN,0)),SRA(202.1)=$G(^SRF(SRTN,202.1))"
^XMB(3.9,148,2,8755,0)="""RTN"",""SROAPCA4"",9,0)"
^XMB(3.9,148,2,8756,0)=" N SRPREF,SRREF,SRREFP,SRFOL,SRFOLP,SRSOUT,SRY S (SRPREF,SRREF,SRREFP,SRFOL,SRFOLP)="""",SRSOUT=0,(VAIP(""D""),SRSDATE)=$P(SRA(0),""^"",9) D IN5^VADPT"
^XMB(3.9,148,2,8757,0)="""RTN"",""SROAPCA4"",10,0)"
^XMB(3.9,148,2,8758,0)=" I 'VAIP(13) S X1=$P($G(^SRF(SRTN,.2)),""^"",12),X2=1 D C^%DTC S SR24=X,SRDT=$O(^DGPM(""APTT1"",DFN,SRSDATE)) G:'SRDT!(SRDT>SR24) TS S VAIP(""D"")=SRDT D IN5^VADPT"
^XMB(3.9,148,2,8759,0)="""RTN"",""SROAPCA4"",11,0)"
^XMB(3.9,148,2,8760,0)="TS I VAIP(13) K DA,DIC,DIQ,DR S DIC=405,DR=.05,DA=VAIP(13),DIQ=""SRY"",DIQ(0)=""IE"" D EN^DIQ1 S SRREF=SRY(405,VAIP(13),.05,""E""),SRREFP=SRY(405,VAIP(13),.05,""I"") I SRREFP S SRREFP=$$GET1^DIQ(4,SRREFP,99)"
^XMB(3.9,148,2,8761,0)="""RTN"",""SROAPCA4"",12,0)"
^XMB(3.9,148,2,8762,0)=" I VAIP(17) K DA,DIC,DIQ,DR,SRY S DIC=405,DR=.05,DA=VAIP(17),DIQ=""SRY"",DIQ(0)=""IE"" D EN^DIQ1 S SRFOL=SRY(405,VAIP(17),.05,""E""),SRFOLP=SRY(405,VAIP(17),.05,""I"") I SRFOLP S SRFOLP=$$GET1^DIQ(4,SRFOLP,99)"
^XMB(3.9,148,2,8763,0)="""RTN"",""SROAPCA4"",13,0)"
^XMB(3.9,148,2,8764,0)=" K DA,DIC,DIQ,DR,SRY S DIC=""^DPT("",DIQ=""SRY"",DIQ(0)=""I"",DA=DFN,DR=27.02 D EN^DIQ1 S X=$G(SRY(2,DFN,27.02,""I"")) I X S SRPREF=$$GET1^DIQ(4,X,99)"
^XMB(3.9,148,2,8765,0)="""RTN"",""SROAPCA4"",14,0)"
^XMB(3.9,148,2,8766,0)=" I $Y+7>IOSL D PAGE^SROAPCA I SRSOUT Q"
^XMB(3.9,148,2,8767,0)="""RTN"",""SROAPCA4"",15,0)"
^XMB(3.9,148,2,8768,0)=" D DD"
^XMB(3.9,148,2,8769,0)="""RTN"",""SROAPCA4"",16,0)"
^XMB(3.9,148,2,8770,0)=" Q"
^XMB(3.9,148,2,8771,0)="""RTN"",""SROAPCA4"",17,0)"
^XMB(3.9,148,2,8772,0)="LAB ;D PAGE^SROAPCA I SRSOUT Q"
^XMB(3.9,148,2,8773,0)="""RTN"",""SROAPCA4"",18,0)"
^XMB(3.9,148,2,8774,0)=" W !!,""III. DETAILED LABORATORY INFO - PREOPERATIVE VALUES"""
^XMB(3.9,148,2,8775,0)="""RTN"",""SROAPCA4"",19,0)"
^XMB(3.9,148,2,8776,0)=" N SROUN S SROUN="" mg/dl"""
^XMB(3.9,148,2,8777,0)="""RTN"",""SROAPCA4"",20,0)"
^XMB(3.9,148,2,8778,0)=" W !,""Creatinine:"",?14,$J($P(SRA(201),U,4),4),SROUN S Y=$P(SRA(202),""^"",4) D DT W ?25,""(""_$E(X,1,8)_"")"""
^XMB(3.9,148,2,8779,0)="""RTN"",""SROAPCA4"",21,0)"
^XMB(3.9,148,2,8780,0)=" W ?41,""T. Bilirubin:"",?57,$J($P(SRA(201),U,24),4),SROUN S Y=$P(SRA(202),""^"",24) D DT W ?68,""(""_$E(X,1,8)_"")"""
^XMB(3.9,148,2,8781,0)="""RTN"",""SROAPCA4"",22,0)"
^XMB(3.9,148,2,8782,0)=" W !,""Hemoglobin:"",?14,$J($P(SRA(201),U,20),4),SROUN S Y=$P(SRA(202),""^"",20) D DT W ?25,""(""_$E(X,1,8)_"")"""
^XMB(3.9,148,2,8783,0)="""RTN"",""SROAPCA4"",23,0)"
^XMB(3.9,148,2,8784,0)=" W ?41,""T. Cholesterol:"",?57,$J($P(SRA(201),U,26),4),SROUN S Y=$P(SRA(202),""^"",26) D DT W ?68,""(""_$E(X,1,8)_"")"""
^XMB(3.9,148,2,8785,0)="""RTN"",""SROAPCA4"",24,0)"
^XMB(3.9,148,2,8786,0)=" W !,""Albumin:"",?14,$J($P(SRA(201),U,8),4),"" g/dl"" S Y=$P(SRA(202),""^"",8) D DT W ?25,""(""_$E(X,1,8)_"")"""
^XMB(3.9,148,2,8787,0)="""RTN"",""SROAPCA4"",25,0)"
^XMB(3.9,148,2,8788,0)=" W ?41,""HDL:"",?57,$J($P(SRA(201),U,21),4),SROUN S Y=$P(SRA(202),""^"",22) D DT W ?68,""(""_$E(X,1,8)_"")"""
^XMB(3.9,148,2,8789,0)="""RTN"",""SROAPCA4"",26,0)"
^XMB(3.9,148,2,8790,0)=" W !,""Triglyceride:"",?14,$J($P(SRA(201),U,22),4),SROUN S Y=$P(SRA(202),""^"",22) D DT W ?25,""(""_$E(X,1,8)_"")"""
^XMB(3.9,148,2,8791,0)="""RTN"",""SROAPCA4"",27,0)"
^XMB(3.9,148,2,8792,0)=" W ?41,""LDL:"",?57,$J($P(SRA(201),U,25),4),SROUN S Y=$P(SRA(202),""^"",25) D DT W ?68,""(""_$E(X,1,8)_"")"""
^XMB(3.9,148,2,8793,0)="""RTN"",""SROAPCA4"",28,0)"
^XMB(3.9,148,2,8794,0)=" W !,""Potassium:"",?14,$J($P(SRA(201),U,23),4),"" mg/L"" S Y=$P(SRA(202),""^"",23) D DT W ?25,""(""_$E(X,1,8)_"")"""
^XMB(3.9,148,2,8795,0)="""RTN"",""SROAPCA4"",29,0)"
^XMB(3.9,148,2,8796,0)=" W ?41,""Hemoglobin A1c:"",?57,$J($P(SRA(201),U,28),4),"" %"" S Y=$P(SRA(202.1),""^"") D DT W ?68,""(""_$E(X,1,8)_"")"""
^XMB(3.9,148,2,8797,0)="""RTN"",""SROAPCA4"",30,0)"
^XMB(3.9,148,2,8798,0)=" Q"
^XMB(3.9,148,2,8799,0)="""RTN"",""SROAPCA4"",31,0)"
^XMB(3.9,148,2,8800,0)="DD ;Detailed Discharge Information"
^XMB(3.9,148,2,8801,0)="""RTN"",""SROAPCA4"",32,0)"
^XMB(3.9,148,2,8802,0)=" N VAINDT,SRPTF,SRRES"
^XMB(3.9,148,2,8803,0)="""RTN"",""SROAPCA4"",33,0)"
^XMB(3.9,148,2,8804,0)=" S X=$P(SRA(208),""^"",15) I X S X=X-.0001"
^XMB(3.9,148,2,8805,0)="""RTN"",""SROAPCA4"",34,0)"
^XMB(3.9,148,2,8806,0)=" S VAINDT=X D INP^VADPT S SRPTF=VAIN(10)"
^XMB(3.9,148,2,8807,0)="""RTN"",""SROAPCA4"",35,0)"
^XMB(3.9,148,2,8808,0)=" S SRRES="""" D RPC^DGPTFAPI(.SRRES,SRPTF)"
^XMB(3.9,148,2,8809,0)="""RTN"",""SROAPCA4"",36,0)"
^XMB(3.9,148,2,8810,0)=" I $Y+9>IOSL D PAGE^SROAPCA I SRSOUT Q"
^XMB(3.9,148,2,8811,0)="""RTN"",""SROAPCA4"",37,0)"
^XMB(3.9,148,2,8812,0)=" W !!,""X. DETAILED DISCHARGE INFORMATION"",!,""   Discharge ICD-9 Codes: "" I $G(SRRES(0))>0 S SRRES="""" D"
^XMB(3.9,148,2,8813,0)="""RTN"",""SROAPCA4"",38,0)"
^XMB(3.9,148,2,8814,0)=" .S SRRES=$P(SRRES(1),U,3)_""  "" I $D(SRRES(2)) F I=1:1:9 S:$P(SRRES(2),""^"",I)'="""" SRRES=SRRES_$P(SRRES(2),""^"",I)_""  "" I $L(SRRES)>45 W SRRES S SRRES="""""
^XMB(3.9,148,2,8815,0)="""RTN"",""SROAPCA4"",39,0)"
^XMB(3.9,148,2,8816,0)=" .W:$D(SRRES) !,?26,SRRES"
^XMB(3.9,148,2,8817,0)="""RTN"",""SROAPCA4"",40,0)"
^XMB(3.9,148,2,8818,0)=" W !!,""Type of Disposition: "",$P($G(SRRES(1)),U,1)"
^XMB(3.9,148,2,8819,0)="""RTN"",""SROAPCA4"",41,0)"
^XMB(3.9,148,2,8820,0)=" W !,""Place of Disposition: "",$P($G(SRRES(1)),U,2)"
^XMB(3.9,148,2,8821,0)="""RTN"",""SROAPCA4"",42,0)"
^XMB(3.9,148,2,8822,0)=" W !,""Preferred VAMC identification code: "",SRPREF"
^XMB(3.9,148,2,8823,0)="""RTN"",""SROAPCA4"",43,0)"
^XMB(3.9,148,2,8824,0)=" W !,""Primary care or referral VAMC identification code: "",SRREFP"
^XMB(3.9,148,2,8825,0)="""RTN"",""SROAPCA4"",44,0)"
^XMB(3.9,148,2,8826,0)=" W !,""Follow-up VAMC identification code: "",SRFOLP"
^XMB(3.9,148,2,8827,0)="""RTN"",""SROAPCA4"",45,0)"
^XMB(3.9,148,2,8828,0)=" Q"
^XMB(3.9,148,2,8829,0)="""RTN"",""SROAPCA4"",46,0)"
^XMB(3.9,148,2,8830,0)="YN ; store answer"
^XMB(3.9,148,2,8831,0)="""RTN"",""SROAPCA4"",47,0)"
^XMB(3.9,148,2,8832,0)=" S SHEMP=$S(NYUK=""NS"":""NS"",NYUK=""N"":""NO"",NYUK=""Y"":""YES"",1:"""")"
^XMB(3.9,148,2,8833,0)="""RTN"",""SROAPCA4"",48,0)"
^XMB(3.9,148,2,8834,0)=" Q"
^XMB(3.9,148,2,8835,0)="""RTN"",""SROAPCA4"",49,0)"
^XMB(3.9,148,2,8836,0)="DT S X=""NS"" I Y>1 D DT^SROAPCA1"
^XMB(3.9,148,2,8837,0)="""RTN"",""SROAPCA4"",50,0)"
^XMB(3.9,148,2,8838,0)=" Q"
^XMB(3.9,148,2,8839,0)="""RTN"",""SROAPR2"")"
^XMB(3.9,148,2,8840,0)="0^1^B10438353^B10438227"
^XMB(3.9,148,2,8841,0)="""RTN"",""SROAPR2"",1,0)"
^XMB(3.9,148,2,8842,0)="SROAPR2 ;BIR/MAM - PAGE 2 PREOP SCREEN ;01/19/06"
^XMB(3.9,148,2,8843,0)="""RTN"",""SROAPR2"",2,0)"
^XMB(3.9,148,2,8844,0)=" ;;3.0; Surgery ;**38,100,125,142,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,8845,0)="""RTN"",""SROAPR2"",3,0)"
^XMB(3.9,148,2,8846,0)=" K SRA,SRAO"
^XMB(3.9,148,2,8847,0)="""RTN"",""SROAPR2"",4,0)"
^XMB(3.9,148,2,8848,0)="START Q:SRSOUT  D:SRACLR RET S SRACLR=0 K SRA,SRAO D ^SROAPS2"
^XMB(3.9,148,2,8849,0)="""RTN"",""SROAPR2"",5,0)"
^XMB(3.9,148,2,8850,0)="ASK W !!,""Select Preoperative Information to Edit: "" R X:DTIME I '$T!(""^""[X) D CONCC^SROAPRE S SRSOUT=1 Q"
^XMB(3.9,148,2,8851,0)="""RTN"",""SROAPR2"",6,0)"
^XMB(3.9,148,2,8852,0)=" S:X=""a"" X=""A"" S:X=""n"" X=""N"""
^XMB(3.9,148,2,8853,0)="""RTN"",""SROAPR2"",7,0)"
^XMB(3.9,148,2,8854,0)=" I $L(X)=2,'$D(SRAO(X)),X?1N1A S Z=$E(X,2),Z=$TR(Z,""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ"") I $D(SRAO($E(X)_Z)) S X=$E(X)_Z"
^XMB(3.9,148,2,8855,0)="""RTN"",""SROAPR2"",8,0)"
^XMB(3.9,148,2,8856,0)=" I '$D(SRAO(X)),(X'?1N1"":""1N),(X'=""A""),(X'=""N"") D HELP Q:SRSOUT  G START"
^XMB(3.9,148,2,8857,0)="""RTN"",""SROAPR2"",9,0)"
^XMB(3.9,148,2,8858,0)=" I X=""A"" S X=""1:3"""
^XMB(3.9,148,2,8859,0)="""RTN"",""SROAPR2"",10,0)"
^XMB(3.9,148,2,8860,0)=" I X?1N1"":""1N S Y=$E(X),Z=$P(X,"":"",2) I Y<1!(Z>3)!(Y>Z) D HELP Q:SRSOUT  G START"
^XMB(3.9,148,2,8861,0)="""RTN"",""SROAPR2"",11,0)"
^XMB(3.9,148,2,8862,0)=" I X=""N"" D  G START"
^XMB(3.9,148,2,8863,0)="""RTN"",""SROAPR2"",12,0)"
^XMB(3.9,148,2,8864,0)=" .W ! K DIR S DIR(0)=""Y"",DIR(""B"")=""NO"",DIR(""A"")=""Are you sure you want to set all fields on this page to NO"""
^XMB(3.9,148,2,8865,0)="""RTN"",""SROAPR2"",13,0)"
^XMB(3.9,148,2,8866,0)=" .D ^DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1 Q"
^XMB(3.9,148,2,8867,0)="""RTN"",""SROAPR2"",14,0)"
^XMB(3.9,148,2,8868,0)=" .I Y D NO2ALL^SROAPRE2"
^XMB(3.9,148,2,8869,0)="""RTN"",""SROAPR2"",15,0)"
^XMB(3.9,148,2,8870,0)=" S SRPAGE="""" D HDR^SROAUTL"
^XMB(3.9,148,2,8871,0)="""RTN"",""SROAPR2"",16,0)"
^XMB(3.9,148,2,8872,0)=" I X?1N1"":""1N D RANGE G START"
^XMB(3.9,148,2,8873,0)="""RTN"",""SROAPR2"",17,0)"
^XMB(3.9,148,2,8874,0)=" I $D(SRAO(X)),+X=X S EMILY=X D  G START"
^XMB(3.9,148,2,8875,0)="""RTN"",""SROAPR2"",18,0)"
^XMB(3.9,148,2,8876,0)=" .I $$LOCK^SROUTL(SRTN) D ^SROAPRE2,UNLOCK^SROUTL(SRTN)"
^XMB(3.9,148,2,8877,0)="""RTN"",""SROAPR2"",19,0)"
^XMB(3.9,148,2,8878,0)=" I $D(SRAO(X)) D  G START"
^XMB(3.9,148,2,8879,0)="""RTN"",""SROAPR2"",20,0)"
^XMB(3.9,148,2,8880,0)=" .I $$LOCK^SROUTL(SRTN) W !! S DA=SRTN,DIE=130,DR=$P(SRAO(X),""^"",2)_""T"" D ^DIE K DA,DIE,DR D UNLOCK^SROUTL(SRTN)"
^XMB(3.9,148,2,8881,0)="""RTN"",""SROAPR2"",21,0)"
^XMB(3.9,148,2,8882,0)=" S SRSOUT=1 Q"
^XMB(3.9,148,2,8883,0)="""RTN"",""SROAPR2"",22,0)"
^XMB(3.9,148,2,8884,0)="HELP W @IOF,!!!!,""Enter the number, number/letter combination, or range of numbers you want to"",!,""edit.  Examples of proper responses are listed below."""
^XMB(3.9,148,2,8885,0)="""RTN"",""SROAPR2"",23,0)"
^XMB(3.9,148,2,8886,0)=" W !!,""1. Enter 'A' to update all information."",!!,""2. Enter 'N' to set all fields on this page to NO."""
^XMB(3.9,148,2,8887,0)="""RTN"",""SROAPR2"",24,0)"
^XMB(3.9,148,2,8888,0)=" W !!,""3. Enter a number (1-3) to update the information in that group.  (For"",!,""   example, enter '2' to update all Central Nervous System information)"""
^XMB(3.9,148,2,8889,0)="""RTN"",""SROAPR2"",25,0)"
^XMB(3.9,148,2,8890,0)=" W !!,""4. Enter a number/letter combination to update a specific occurrence. (To "",!,""   update Impaired Sensorium, enter '2A')"""
^XMB(3.9,148,2,8891,0)="""RTN"",""SROAPR2"",26,0)"
^XMB(3.9,148,2,8892,0)=" W !!,""5. Enter a range of numbers (2-3) separated by a ':' to enter all"",!,""   Central Nervous System and Nutritional/Immune/Other information."""
^XMB(3.9,148,2,8893,0)="""RTN"",""SROAPR2"",27,0)"
^XMB(3.9,148,2,8894,0)=" W !!,""Press <RET> to continue, or '^' to quit  "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1"
^XMB(3.9,148,2,8895,0)="""RTN"",""SROAPR2"",28,0)"
^XMB(3.9,148,2,8896,0)=" Q"
^XMB(3.9,148,2,8897,0)="""RTN"",""SROAPR2"",29,0)"
^XMB(3.9,148,2,8898,0)="RANGE ; range of numbers"
^XMB(3.9,148,2,8899,0)="""RTN"",""SROAPR2"",30,0)"
^XMB(3.9,148,2,8900,0)=" I $$LOCK^SROUTL(SRTN) D  D UNLOCK^SROUTL(SRTN)"
^XMB(3.9,148,2,8901,0)="""RTN"",""SROAPR2"",31,0)"
^XMB(3.9,148,2,8902,0)=" .F EMILY=1,2,3 D ^SROAPRE2 Q:SRSOUT"
^XMB(3.9,148,2,8903,0)="""RTN"",""SROAPR2"",32,0)"
^XMB(3.9,148,2,8904,0)=" Q"
^XMB(3.9,148,2,8905,0)="""RTN"",""SROAPR2"",33,0)"
^XMB(3.9,148,2,8906,0)="RET Q:SRSOUT  W !!,""Press <RET> to continue, or '^' to quit  "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1 Q"
^XMB(3.9,148,2,8907,0)="""RTN"",""SROAPR2"",34,0)"
^XMB(3.9,148,2,8908,0)=" Q"
^XMB(3.9,148,2,8909,0)="""RTN"",""SROAPRE2"")"
^XMB(3.9,148,2,8910,0)="0^2^B8990080^B8368374"
^XMB(3.9,148,2,8911,0)="""RTN"",""SROAPRE2"",1,0)"
^XMB(3.9,148,2,8912,0)="SROAPRE2 ;BIR/MAM - EDIT PAGE 2 PREOP ;06/27/06"
^XMB(3.9,148,2,8913,0)="""RTN"",""SROAPRE2"",2,0)"
^XMB(3.9,148,2,8914,0)=" ;;3.0; Surgery ;**38,47,125,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,8915,0)="""RTN"",""SROAPRE2"",3,0)"
^XMB(3.9,148,2,8916,0)=" D @EMILY Q"
^XMB(3.9,148,2,8917,0)="""RTN"",""SROAPRE2"",4,0)"
^XMB(3.9,148,2,8918,0)="1 ; edit renal information"
^XMB(3.9,148,2,8919,0)="""RTN"",""SROAPRE2"",5,0)"
^XMB(3.9,148,2,8920,0)=" W ! K DIR S X=$P(SRAO(1),""^"") I X'="""" S DIR(""B"")=X"
^XMB(3.9,148,2,8921,0)="""RTN"",""SROAPRE2"",6,0)"
^XMB(3.9,148,2,8922,0)=" S DIR(0)=""130,243"",DIR(""A"")=""RENAL"" D ^DIR K DIR I $D(DUOUT) S SRSOUT=1 Q"
^XMB(3.9,148,2,8923,0)="""RTN"",""SROAPRE2"",7,0)"
^XMB(3.9,148,2,8924,0)=" I X=""@"" S SRCAT=""Renal"" D SURE Q:SRSOUT  G:'SRYN 1 S $P(^SRF(SRTN,200),""^"",37)="""" S (SRAX,X)="""" D NOREN Q"
^XMB(3.9,148,2,8925,0)="""RTN"",""SROAPRE2"",8,0)"
^XMB(3.9,148,2,8926,0)=" S SRAX=Y,$P(^SRF(SRTN,200),""^"",37)=SRAX I Y[""N"" D NOREN Q"
^XMB(3.9,148,2,8927,0)="""RTN"",""SROAPRE2"",9,0)"
^XMB(3.9,148,2,8928,0)=" I Y[""Y"" D REN"
^XMB(3.9,148,2,8929,0)="""RTN"",""SROAPRE2"",10,0)"
^XMB(3.9,148,2,8930,0)=" Q"
^XMB(3.9,148,2,8931,0)="""RTN"",""SROAPRE2"",11,0)"
^XMB(3.9,148,2,8932,0)="2 ; edit CNS information"
^XMB(3.9,148,2,8933,0)="""RTN"",""SROAPRE2"",12,0)"
^XMB(3.9,148,2,8934,0)=" W ! K DIR S X=$P(SRAO(2),""^"") I X'="""" S DIR(""B"")=X"
^XMB(3.9,148,2,8935,0)="""RTN"",""SROAPRE2"",13,0)"
^XMB(3.9,148,2,8936,0)=" S DIR(0)=""130,210"",DIR(""A"")=""CENTRAL NERVOUS SYSTEM"" D ^DIR K DIR I $D(DUOUT) S SRSOUT=1 Q"
^XMB(3.9,148,2,8937,0)="""RTN"",""SROAPRE2"",14,0)"
^XMB(3.9,148,2,8938,0)=" I X=""@"" S SRCAT=""Central Nervous System"" D SURE Q:SRSOUT  G:'SRYN 2 S $P(^SRF(SRTN,200),""^"",18)="""" S (SRAX,X)="""" D NOCNS Q"
^XMB(3.9,148,2,8939,0)="""RTN"",""SROAPRE2"",15,0)"
^XMB(3.9,148,2,8940,0)=" S SRAX=Y,$P(^SRF(SRTN,200),""^"",18)=SRAX I Y[""N"" D NOCNS Q"
^XMB(3.9,148,2,8941,0)="""RTN"",""SROAPRE2"",16,0)"
^XMB(3.9,148,2,8942,0)=" I Y[""Y"" D CNS"
^XMB(3.9,148,2,8943,0)="""RTN"",""SROAPRE2"",17,0)"
^XMB(3.9,148,2,8944,0)=" Q"
^XMB(3.9,148,2,8945,0)="""RTN"",""SROAPRE2"",18,0)"
^XMB(3.9,148,2,8946,0)="3 ; edit nutritional/immune/other info"
^XMB(3.9,148,2,8947,0)="""RTN"",""SROAPRE2"",19,0)"
^XMB(3.9,148,2,8948,0)=" W ! K DIR S X=$P(SRAO(3),""^"") I X'="""" S DIR(""B"")=X"
^XMB(3.9,148,2,8949,0)="""RTN"",""SROAPRE2"",20,0)"
^XMB(3.9,148,2,8950,0)=" S DIR(0)=""130,245"",DIR(""A"")=""NUTRITIONAL/IMMUNE/OTHER"" D ^DIR K DIR I $D(DUOUT) S SRSOUT=1 Q"
^XMB(3.9,148,2,8951,0)="""RTN"",""SROAPRE2"",21,0)"
^XMB(3.9,148,2,8952,0)=" I X=""@"" S SRCAT=""Nutritional/Immune/Other"" D SURE Q:SRSOUT  G:'SRYN 3 S $P(^SRF(SRTN,200),""^"",44)="""" S (SRAX,X)="""" D NONUT Q"
^XMB(3.9,148,2,8953,0)="""RTN"",""SROAPRE2"",22,0)"
^XMB(3.9,148,2,8954,0)=" S SRAX=Y,$P(^SRF(SRTN,200),""^"",44)=SRAX I Y[""N"" D NONUT Q"
^XMB(3.9,148,2,8955,0)="""RTN"",""SROAPRE2"",23,0)"
^XMB(3.9,148,2,8956,0)=" I Y[""Y"" D NUT"
^XMB(3.9,148,2,8957,0)="""RTN"",""SROAPRE2"",24,0)"
^XMB(3.9,148,2,8958,0)=" Q"
^XMB(3.9,148,2,8959,0)="""RTN"",""SROAPRE2"",25,0)"
^XMB(3.9,148,2,8960,0)="REN ; renal"
^XMB(3.9,148,2,8961,0)="""RTN"",""SROAPRE2"",26,0)"
^XMB(3.9,148,2,8962,0)=" W ! K DR,DIE S DA=SRTN,DIE=130,DR=""328T;211T"" D ^DIE K DR"
^XMB(3.9,148,2,8963,0)="""RTN"",""SROAPRE2"",27,0)"
^XMB(3.9,148,2,8964,0)=" S SRACLR=0"
^XMB(3.9,148,2,8965,0)="""RTN"",""SROAPRE2"",28,0)"
^XMB(3.9,148,2,8966,0)=" Q"
^XMB(3.9,148,2,8967,0)="""RTN"",""SROAPRE2"",29,0)"
^XMB(3.9,148,2,8968,0)="NOREN ; no renal problems"
^XMB(3.9,148,2,8969,0)="""RTN"",""SROAPRE2"",30,0)"
^XMB(3.9,148,2,8970,0)=" F I=38,39 S $P(^SRF(SRTN,200),""^"",I)=SRAX"
^XMB(3.9,148,2,8971,0)="""RTN"",""SROAPRE2"",31,0)"
^XMB(3.9,148,2,8972,0)=" Q"
^XMB(3.9,148,2,8973,0)="""RTN"",""SROAPRE2"",32,0)"
^XMB(3.9,148,2,8974,0)="CNS ; cns"
^XMB(3.9,148,2,8975,0)="""RTN"",""SROAPRE2"",33,0)"
^XMB(3.9,148,2,8976,0)=" W ! K DR,DIE S DIE=130,DA=SRTN,DR=""332T;333T;400T;334T;335T;336T;401T;399T;398T;"" D ^DIE K DR,DIE"
^XMB(3.9,148,2,8977,0)="""RTN"",""SROAPRE2"",34,0)"
^XMB(3.9,148,2,8978,0)=" S SRACLR=0"
^XMB(3.9,148,2,8979,0)="""RTN"",""SROAPRE2"",35,0)"
^XMB(3.9,148,2,8980,0)=" Q"
^XMB(3.9,148,2,8981,0)="""RTN"",""SROAPRE2"",36,0)"
^XMB(3.9,148,2,8982,0)="NOCNS ; no CNS problems"
^XMB(3.9,148,2,8983,0)="""RTN"",""SROAPRE2"",37,0)"
^XMB(3.9,148,2,8984,0)=" F I=19,21:1:27,29 S $P(^SRF(SRTN,200),""^"",I)=SRAX"
^XMB(3.9,148,2,8985,0)="""RTN"",""SROAPRE2"",38,0)"
^XMB(3.9,148,2,8986,0)=" Q"
^XMB(3.9,148,2,8987,0)="""RTN"",""SROAPRE2"",39,0)"
^XMB(3.9,148,2,8988,0)="NUT ; nutritional/immune/other"
^XMB(3.9,148,2,8989,0)="""RTN"",""SROAPRE2"",40,0)"
^XMB(3.9,148,2,8990,0)=" W ! K DR,DIE S DIE=130,DA=SRTN,DR=""338T;218T;339T;215T;216T;217T;338.1T;338.2T;218.1T;269T"" D ^DIE K DA,DIE,DR"
^XMB(3.9,148,2,8991,0)="""RTN"",""SROAPRE2"",41,0)"
^XMB(3.9,148,2,8992,0)=" S SRACLR=0"
^XMB(3.9,148,2,8993,0)="""RTN"",""SROAPRE2"",42,0)"
^XMB(3.9,148,2,8994,0)=" Q"
^XMB(3.9,148,2,8995,0)="""RTN"",""SROAPRE2"",43,0)"
^XMB(3.9,148,2,8996,0)="NONUT ; no nutritional/immune/other"
^XMB(3.9,148,2,8997,0)="""RTN"",""SROAPRE2"",44,0)"
^XMB(3.9,148,2,8998,0)=" F I=45:1:50 S $P(^SRF(SRTN,200),""^"",I)=SRAX"
^XMB(3.9,148,2,8999,0)="""RTN"",""SROAPRE2"",45,0)"
^XMB(3.9,148,2,9000,0)=" F I=3,4,8 S $P(^SRF(SRTN,206),""^"",I)=SRAX"
^XMB(3.9,148,2,9001,0)="""RTN"",""SROAPRE2"",46,0)"
^XMB(3.9,148,2,9002,0)=" S:SRAX=""N"" $P(^SRF(SRTN,200.1),""^"",3)=$S($P($G(VADM(5)),""^"")=""M"":""NA"",1:""NO"")"
^XMB(3.9,148,2,9003,0)="""RTN"",""SROAPRE2"",47,0)"
^XMB(3.9,148,2,9004,0)=" S:SRAX="""" $P(^SRF(SRTN,200.1),""^"",3)="""""
^XMB(3.9,148,2,9005,0)="""RTN"",""SROAPRE2"",48,0)"
^XMB(3.9,148,2,9006,0)=" Q"
^XMB(3.9,148,2,9007,0)="""RTN"",""SROAPRE2"",49,0)"
^XMB(3.9,148,2,9008,0)="RET W !! K DIR S DIR(0)=""E"" D ^DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1"
^XMB(3.9,148,2,9009,0)="""RTN"",""SROAPRE2"",50,0)"
^XMB(3.9,148,2,9010,0)=" Q"
^XMB(3.9,148,2,9011,0)="""RTN"",""SROAPRE2"",51,0)"
^XMB(3.9,148,2,9012,0)="SURE W ! K DIR S DIR(""A"")=""   Sure you want to delete all ""_SRCAT_"" information ? "",DIR(""B"")=""NO"",DIR(0)=""YA"" D ^DIR K DIR S SRYN=Y I $D(DTOUT)!$D(DUOUT) S SRSOUT=1"
^XMB(3.9,148,2,9013,0)="""RTN"",""SROAPRE2"",52,0)"
^XMB(3.9,148,2,9014,0)=" Q"
^XMB(3.9,148,2,9015,0)="""RTN"",""SROAPRE2"",53,0)"
^XMB(3.9,148,2,9016,0)="DEL W !!,?10,""Deleting all ""_SRCAT_"" information...  """
^XMB(3.9,148,2,9017,0)="""RTN"",""SROAPRE2"",54,0)"
^XMB(3.9,148,2,9018,0)=" Q"
^XMB(3.9,148,2,9019,0)="""RTN"",""SROAPRE2"",55,0)"
^XMB(3.9,148,2,9020,0)="NO2ALL ; set all fields to NO"
^XMB(3.9,148,2,9021,0)="""RTN"",""SROAPRE2"",56,0)"
^XMB(3.9,148,2,9022,0)=" S SRAX=""N"",$P(^SRF(SRTN,200),""^"",37)=SRAX D NOREN"
^XMB(3.9,148,2,9023,0)="""RTN"",""SROAPRE2"",57,0)"
^XMB(3.9,148,2,9024,0)=" S $P(^SRF(SRTN,200),""^"",18)=SRAX D NOCNS"
^XMB(3.9,148,2,9025,0)="""RTN"",""SROAPRE2"",58,0)"
^XMB(3.9,148,2,9026,0)=" S $P(^SRF(SRTN,200),""^"",44)=SRAX D NONUT"
^XMB(3.9,148,2,9027,0)="""RTN"",""SROAPRE2"",59,0)"
^XMB(3.9,148,2,9028,0)=" Q"
^XMB(3.9,148,2,9029,0)="""RTN"",""SROAPRT1"")"
^XMB(3.9,148,2,9030,0)="0^35^B15011288^B15019125"
^XMB(3.9,148,2,9031,0)="""RTN"",""SROAPRT1"",1,0)"
^XMB(3.9,148,2,9032,0)="SROAPRT1 ;BIR/MAM - PREOP INFO (PAGE 1) ;02/23/06"
^XMB(3.9,148,2,9033,0)="""RTN"",""SROAPRT1"",2,0)"
^XMB(3.9,148,2,9034,0)=" ;;3.0; Surgery ;**38,47,125,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,9035,0)="""RTN"",""SROAPRT1"",3,0)"
^XMB(3.9,148,2,9036,0)=" N SRX,Y F I=200,206 S SRA(I)=$G(^SRF(SRTN,I))"
^XMB(3.9,148,2,9037,0)="""RTN"",""SROAPRT1"",4,0)"
^XMB(3.9,148,2,9038,0)=" S Y=$P(SRA(200),""^""),SRX=402,SRAO(1)=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9039,0)="""RTN"",""SROAPRT1"",5,0)"
^XMB(3.9,148,2,9040,0)=" S Y=$P(SRA(206),""^""),SRX=236,SRAO(""1A"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9041,0)="""RTN"",""SROAPRT1"",6,0)"
^XMB(3.9,148,2,9042,0)=" S Y=$P(SRA(206),""^"",2),SRX=237,SRAO(""1B"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9043,0)="""RTN"",""SROAPRT1"",7,0)"
^XMB(3.9,148,2,9044,0)=" S Y=$P(SRA(200),""^"",2),SRX=346,SRAO(""1C"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9045,0)="""RTN"",""SROAPRT1"",8,0)"
^XMB(3.9,148,2,9046,0)=" S Y=$P(SRA(200),""^"",3),SRX=202,SRAO(""1D"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9047,0)="""RTN"",""SROAPRT1"",9,0)"
^XMB(3.9,148,2,9048,0)=" S Y=$P($G(^SRF(SRTN,208)),""^"",9),SRX=202.1,SRAO(""1E"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9049,0)="""RTN"",""SROAPRT1"",10,0)"
^XMB(3.9,148,2,9050,0)=" S Y=$P(SRA(200),""^"",4),SRX=246,SRAO(""1F"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9051,0)="""RTN"",""SROAPRT1"",11,0)"
^XMB(3.9,148,2,9052,0)=" S Y=$P(SRA(200),""^"",6),SRX=325,SRAO(""1G"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9053,0)="""RTN"",""SROAPRT1"",12,0)"
^XMB(3.9,148,2,9054,0)=" S Y=$P(SRA(200),""^"",7),SRX=238,SRAO(""1H"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9055,0)="""RTN"",""SROAPRT1"",13,0)"
^XMB(3.9,148,2,9056,0)=" S Y=$P(SRA(200),""^"",8),SRX=240,SRAO(""1I"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9057,0)="""RTN"",""SROAPRT1"",14,0)"
^XMB(3.9,148,2,9058,0)=" S Y=$P($G(^SRF(SRTN,200.1)),""^"",2),SRX=492,SRAO(""1J"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9059,0)="""RTN"",""SROAPRT1"",15,0)"
^XMB(3.9,148,2,9060,0)=" S Y=$P(SRA(200),""^"",9),SRX=241,SRAO(2)=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9061,0)="""RTN"",""SROAPRT1"",16,0)"
^XMB(3.9,148,2,9062,0)=" S Y=$P(SRA(200),""^"",10),SRX=204,SRAO(""2A"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9063,0)="""RTN"",""SROAPRT1"",17,0)"
^XMB(3.9,148,2,9064,0)=" S Y=$P(SRA(200),""^"",11),SRX=203,SRAO(""2B"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9065,0)="""RTN"",""SROAPRT1"",18,0)"
^XMB(3.9,148,2,9066,0)=" S Y=$P(SRA(200),""^"",12),SRX=326,SRAO(""2C"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9067,0)="""RTN"",""SROAPRT1"",19,0)"
^XMB(3.9,148,2,9068,0)=" S Y=$P(SRA(200),""^"",13),SRX=244,SRAO(3)=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9069,0)="""RTN"",""SROAPRT1"",20,0)"
^XMB(3.9,148,2,9070,0)=" S Y=$P(SRA(200),""^"",15),SRX=212,SRAO(""3A"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9071,0)="""RTN"",""SROAPRT1"",21,0)"
^XMB(3.9,148,2,9072,0)=" S Y=$P($G(^SRF(SRTN,200.1)),""^""),SRX=486,SRAO(4)=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9073,0)="""RTN"",""SROAPRT1"",22,0)"
^XMB(3.9,148,2,9074,0)=" S Y=$P(SRA(200),""^"",16),SRX=213,SRAO(""4A"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9075,0)="""RTN"",""SROAPRT1"",23,0)"
^XMB(3.9,148,2,9076,0)=" S Y=$P(SRA(200),""^"",30),SRX=242,SRAO(5)=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9077,0)="""RTN"",""SROAPRT1"",24,0)"
^XMB(3.9,148,2,9078,0)=" S Y=$P(SRA(200),""^"",35),SRX=396,SRAO(""5A"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9079,0)="""RTN"",""SROAPRT1"",25,0)"
^XMB(3.9,148,2,9080,0)=" S Y=$P(SRA(200),""^"",31),SRX=394,SRAO(""5B"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9081,0)="""RTN"",""SROAPRT1"",26,0)"
^XMB(3.9,148,2,9082,0)=" S Y=$P(SRA(200),""^"",32),SRX=220,SRAO(""5C"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9083,0)="""RTN"",""SROAPRT1"",27,0)"
^XMB(3.9,148,2,9084,0)=" S Y=$P(SRA(200),""^"",33),SRX=266,SRAO(""5D"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9085,0)="""RTN"",""SROAPRT1"",28,0)"
^XMB(3.9,148,2,9086,0)=" S Y=$P(SRA(200),""^"",34),SRX=395,SRAO(""5E"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9087,0)="""RTN"",""SROAPRT1"",29,0)"
^XMB(3.9,148,2,9088,0)=" S Y=$P(SRA(200),""^"",36),SRX=208,SRAO(""5F"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9089,0)="""RTN"",""SROAPRT1"",30,0)"
^XMB(3.9,148,2,9090,0)=" S Y=$P(SRA(200),""^"",40),SRX=206,SRAO(6)=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9091,0)="""RTN"",""SROAPRT1"",31,0)"
^XMB(3.9,148,2,9092,0)=" S Y=$P(SRA(200),""^"",41),SRX=329,SRAO(""6A"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9093,0)="""RTN"",""SROAPRT1"",32,0)"
^XMB(3.9,148,2,9094,0)=" S Y=$P(SRA(200),""^"",42),SRX=330,SRAO(""6B"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9095,0)="""RTN"",""SROAPRT1"",33,0)"
^XMB(3.9,148,2,9096,0)=" W:$E(IOST)=""P"" ! W !,?28,""PREOPERATIVE INFORMATION"",!!"
^XMB(3.9,148,2,9097,0)="""RTN"",""SROAPRT1"",34,0)"
^XMB(3.9,148,2,9098,0)=" W ""GENERAL:"",?31,$P(SRAO(1),""^""),?40,""HEPATOBILIARY:"",?72,$P(SRAO(3),""^"")"
^XMB(3.9,148,2,9099,0)="""RTN"",""SROAPRT1"",35,0)"
^XMB(3.9,148,2,9100,0)=" W !,""Height: "",?22,$J($P(SRAO(""1A""),""^""),15),?40,""Ascites:"",?72,$P(SRAO(""3A""),""^"")"
^XMB(3.9,148,2,9101,0)="""RTN"",""SROAPRT1"",36,0)"
^XMB(3.9,148,2,9102,0)=" W !,""Weight:"",?22,$J($P(SRAO(""1B""),""^""),15)"
^XMB(3.9,148,2,9103,0)="""RTN"",""SROAPRT1"",37,0)"
^XMB(3.9,148,2,9104,0)=" W !,""Diabetes Mellitus:"",?31,$P(SRAO(""1C""),""^""),?40,""GASTROINTESTINAL:"",?72,$P(SRAO(4),""^"")"
^XMB(3.9,148,2,9105,0)="""RTN"",""SROAPRT1"",38,0)"
^XMB(3.9,148,2,9106,0)=" W !,""Current Smoker W/I 1 Year:"",?31,$P(SRAO(""1D""),""^""),?40,""Esophageal Varices:"",?72,$P(SRAO(""4A""),""^"")"
^XMB(3.9,148,2,9107,0)="""RTN"",""SROAPRT1"",39,0)"
^XMB(3.9,148,2,9108,0)=" W !,""Pack/Years:"",?31,$P(SRAO(""1E""),""^"")"
^XMB(3.9,148,2,9109,0)="""RTN"",""SROAPRT1"",40,0)"
^XMB(3.9,148,2,9110,0)=" W !,""ETOH > 2 Drinks/Day:"",?31,$P(SRAO(""1F""),""^""),?40,""CARDIAC:"",?72,$P(SRAO(5),""^"")"
^XMB(3.9,148,2,9111,0)="""RTN"",""SROAPRT1"",41,0)"
^XMB(3.9,148,2,9112,0)=" W !,""Dyspnea: "",?13,$J($P(SRAO(""1G""),""^""),25),?40,""CHF Within 1 Month:"",?72,$P(SRAO(""5A""),""^"")"
^XMB(3.9,148,2,9113,0)="""RTN"",""SROAPRT1"",42,0)"
^XMB(3.9,148,2,9114,0)=" W !,""DNR Status: "",?31,$P(SRAO(""1H""),""^""),?40,""MI Within 6 Months:"",?72,$P(SRAO(""5B""),""^"")"
^XMB(3.9,148,2,9115,0)="""RTN"",""SROAPRT1"",43,0)"
^XMB(3.9,148,2,9116,0)=" W !,""Pre-illness Funct"",?40,""Previous PCI:"",?72,$P(SRAO(""5C""),""^"")"
^XMB(3.9,148,2,9117,0)="""RTN"",""SROAPRT1"",44,0)"
^XMB(3.9,148,2,9118,0)=" W !,?12,""Status: "",$J($P(SRAO(""1I""),""^""),17),?40,""Previous Cardiac Surgery:"",?72,$P(SRAO(""5D""),""^"")"
^XMB(3.9,148,2,9119,0)="""RTN"",""SROAPRT1"",45,0)"
^XMB(3.9,148,2,9120,0)=" W !,""Preop Funct Status: "",$J($P(SRAO(""1J""),""^""),17),?40,""Angina Within 1 Month:"",?72,$P(SRAO(""5E""),""^"")"
^XMB(3.9,148,2,9121,0)="""RTN"",""SROAPRT1"",46,0)"
^XMB(3.9,148,2,9122,0)=" W !,?40,""Hypertension Requiring Meds:"",?72,$P(SRAO(""5F""),""^"")"
^XMB(3.9,148,2,9123,0)="""RTN"",""SROAPRT1"",47,0)"
^XMB(3.9,148,2,9124,0)=" W !,""PULMONARY:"",?31,$P(SRAO(2),""^"")"
^XMB(3.9,148,2,9125,0)="""RTN"",""SROAPRT1"",48,0)"
^XMB(3.9,148,2,9126,0)=" W !,""Ventilator Dependent:"",?31,$P(SRAO(""2A""),""^""),?40,""VASCULAR:"",?72,$P(SRAO(6),""^"")"
^XMB(3.9,148,2,9127,0)="""RTN"",""SROAPRT1"",49,0)"
^XMB(3.9,148,2,9128,0)=" W !,""History of Severe COPD:"",?31,$P(SRAO(""2B""),""^""),?40,""Revascularization/Amputation:"",?72,$P(SRAO(""6A""),""^"")"
^XMB(3.9,148,2,9129,0)="""RTN"",""SROAPRT1"",50,0)"
^XMB(3.9,148,2,9130,0)=" W !,""Current Pneumonia:"",?31,$P(SRAO(""2C""),""^""),?40,""Rest Pain/Gangrene:"",?72,$P(SRAO(""6B""),""^"")"
^XMB(3.9,148,2,9131,0)="""RTN"",""SROAPRT1"",51,0)"
^XMB(3.9,148,2,9132,0)=" Q"
^XMB(3.9,148,2,9133,0)="""RTN"",""SROAPRT1"",52,0)"
^XMB(3.9,148,2,9134,0)="OUT(SRFLD,SRY) ; get data in output form"
^XMB(3.9,148,2,9135,0)="""RTN"",""SROAPRT1"",53,0)"
^XMB(3.9,148,2,9136,0)=" N C,Y"
^XMB(3.9,148,2,9137,0)="""RTN"",""SROAPRT1"",54,0)"
^XMB(3.9,148,2,9138,0)=" S Y=SRY,C=$P(^DD(130,SRFLD,0),""^"",2) D:Y'="""" Y^DIQ"
^XMB(3.9,148,2,9139,0)="""RTN"",""SROAPRT1"",55,0)"
^XMB(3.9,148,2,9140,0)=" I Y=""NO STUDY"" S Y=""NS"""
^XMB(3.9,148,2,9141,0)="""RTN"",""SROAPRT1"",56,0)"
^XMB(3.9,148,2,9142,0)=" I SRFLD=236!(SRFLD=237)!(SRFLD=346) S Y=$E(Y,1,15)"
^XMB(3.9,148,2,9143,0)="""RTN"",""SROAPRT1"",57,0)"
^XMB(3.9,148,2,9144,0)=" I SRFLD=240!(SRFLD=492) D"
^XMB(3.9,148,2,9145,0)="""RTN"",""SROAPRT1"",58,0)"
^XMB(3.9,148,2,9146,0)=" .I SRY=2 S Y=""PARTIAL DEPENDENT"" Q"
^XMB(3.9,148,2,9147,0)="""RTN"",""SROAPRT1"",59,0)"
^XMB(3.9,148,2,9148,0)=" .I SRY=4 S Y=Y_""  """
^XMB(3.9,148,2,9149,0)="""RTN"",""SROAPRT1"",60,0)"
^XMB(3.9,148,2,9150,0)=" I SRFLD=325,$L(Y)=2 S Y=Y_""     """
^XMB(3.9,148,2,9151,0)="""RTN"",""SROAPRT1"",61,0)"
^XMB(3.9,148,2,9152,0)=" Q Y"
^XMB(3.9,148,2,9153,0)="""RTN"",""SROAPRT2"")"
^XMB(3.9,148,2,9154,0)="0^36^B11958785^B11069450"
^XMB(3.9,148,2,9155,0)="""RTN"",""SROAPRT2"",1,0)"
^XMB(3.9,148,2,9156,0)="SROAPRT2 ;BIR/MAM - PRINT PREOP INFO (PAGE 2) ;02/23/06"
^XMB(3.9,148,2,9157,0)="""RTN"",""SROAPRT2"",2,0)"
^XMB(3.9,148,2,9158,0)=" ;;3.0; Surgery ;**38,125,137,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,9159,0)="""RTN"",""SROAPRT2"",3,0)"
^XMB(3.9,148,2,9160,0)=" I $E(IOST)'=""P"" W !,?28,""PREOPERATIVE INFORMATION"""
^XMB(3.9,148,2,9161,0)="""RTN"",""SROAPRT2"",4,0)"
^XMB(3.9,148,2,9162,0)=" N SRX,Y S SRA(200)=$G(^SRF(SRTN,200)),SRA(206)=$G(^SRF(SRTN,206))"
^XMB(3.9,148,2,9163,0)="""RTN"",""SROAPRT2"",5,0)"
^XMB(3.9,148,2,9164,0)=" S Y=$P(SRA(200),""^"",37),SRX=243,SRAO(1)=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9165,0)="""RTN"",""SROAPRT2"",6,0)"
^XMB(3.9,148,2,9166,0)=" S Y=$P(SRA(200),""^"",38),SRX=328,SRAO(""1A"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9167,0)="""RTN"",""SROAPRT2"",7,0)"
^XMB(3.9,148,2,9168,0)=" S Y=$P(SRA(200),""^"",39),SRX=211,SRAO(""1B"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9169,0)="""RTN"",""SROAPRT2"",8,0)"
^XMB(3.9,148,2,9170,0)=" S Y=$P(SRA(200),""^"",18),SRX=210,SRAO(2)=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9171,0)="""RTN"",""SROAPRT2"",9,0)"
^XMB(3.9,148,2,9172,0)=" S Y=$P(SRA(200),""^"",44),SRX=245,SRAO(3)=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9173,0)="""RTN"",""SROAPRT2"",10,0)"
^XMB(3.9,148,2,9174,0)=" S Y=$P(SRA(200),""^"",19),SRX=332,SRAO(""2A"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9175,0)="""RTN"",""SROAPRT2"",11,0)"
^XMB(3.9,148,2,9176,0)=" S Y=$P(SRA(200),""^"",21),SRX=333,SRAO(""2B"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9177,0)="""RTN"",""SROAPRT2"",12,0)"
^XMB(3.9,148,2,9178,0)=" S Y=$P(SRA(200),""^"",22),SRX=398,SRAO(""2I"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9179,0)="""RTN"",""SROAPRT2"",13,0)"
^XMB(3.9,148,2,9180,0)=" S Y=$P(SRA(200),""^"",23),SRX=399,SRAO(""2H"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9181,0)="""RTN"",""SROAPRT2"",14,0)"
^XMB(3.9,148,2,9182,0)=" S Y=$P(SRA(200),""^"",24),SRX=400,SRAO(""2C"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9183,0)="""RTN"",""SROAPRT2"",15,0)"
^XMB(3.9,148,2,9184,0)=" S Y=$P(SRA(200),""^"",25),SRX=334,SRAO(""2D"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9185,0)="""RTN"",""SROAPRT2"",16,0)"
^XMB(3.9,148,2,9186,0)=" S Y=$P(SRA(200),""^"",26),SRX=335,SRAO(""2E"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9187,0)="""RTN"",""SROAPRT2"",17,0)"
^XMB(3.9,148,2,9188,0)=" S Y=$P(SRA(200),""^"",27),SRX=336,SRAO(""2F"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9189,0)="""RTN"",""SROAPRT2"",18,0)"
^XMB(3.9,148,2,9190,0)=" S Y=$P(SRA(200),""^"",29),SRX=401,SRAO(""2G"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9191,0)="""RTN"",""SROAPRT2"",19,0)"
^XMB(3.9,148,2,9192,0)=" S Y=$P(SRA(200),""^"",45),SRX=338,SRAO(""3A"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9193,0)="""RTN"",""SROAPRT2"",20,0)"
^XMB(3.9,148,2,9194,0)=" S Y=$P(SRA(200),""^"",46),SRX=218,SRAO(""3B"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9195,0)="""RTN"",""SROAPRT2"",21,0)"
^XMB(3.9,148,2,9196,0)=" S Y=$P(SRA(200),""^"",47),SRX=339,SRAO(""3C"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9197,0)="""RTN"",""SROAPRT2"",22,0)"
^XMB(3.9,148,2,9198,0)=" S Y=$P(SRA(200),""^"",48),SRX=215,SRAO(""3D"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9199,0)="""RTN"",""SROAPRT2"",23,0)"
^XMB(3.9,148,2,9200,0)=" S Y=$P(SRA(200),""^"",49),SRX=216,SRAO(""3E"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9201,0)="""RTN"",""SROAPRT2"",24,0)"
^XMB(3.9,148,2,9202,0)=" S Y=$P(SRA(200),""^"",50),SRX=217,SRAO(""3F"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9203,0)="""RTN"",""SROAPRT2"",25,0)"
^XMB(3.9,148,2,9204,0)=" S Y=$P(SRA(206),""^"",3),SRX=338.1,SRAO(""3G"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9205,0)="""RTN"",""SROAPRT2"",26,0)"
^XMB(3.9,148,2,9206,0)=" S Y=$P(SRA(206),""^"",4),SRX=338.2,SRAO(""3H"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9207,0)="""RTN"",""SROAPRT2"",27,0)"
^XMB(3.9,148,2,9208,0)=" S Y=$P(SRA(206),""^"",8),SRX=218.1,SRAO(""3I"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9209,0)="""RTN"",""SROAPRT2"",28,0)"
^XMB(3.9,148,2,9210,0)=" S Y=$P($G(^SRF(SRTN,200.1)),""^"",3),SRX=269,SRAO(""3J"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9211,0)="""RTN"",""SROAPRT2"",29,0)"
^XMB(3.9,148,2,9212,0)=" W !!,""RENAL:"",?31,$P(SRAO(1),""^""),?40,""NUTRITIONAL/IMMUNE/OTHER:"",?72,$P(SRAO(3),""^"")"
^XMB(3.9,148,2,9213,0)="""RTN"",""SROAPRT2"",30,0)"
^XMB(3.9,148,2,9214,0)=" W !,""Acute Renal Failure:"",?31,$P(SRAO(""1A""),""^""),?40,""Disseminated Cancer:"",?72,$P(SRAO(""3A""),""^"")"
^XMB(3.9,148,2,9215,0)="""RTN"",""SROAPRT2"",31,0)"
^XMB(3.9,148,2,9216,0)=" W !,""Currently on Dialysis:"",?31,$P(SRAO(""1B""),""^""),?40,""Open Wound:"",?72,$P(SRAO(""3B""),""^"")"
^XMB(3.9,148,2,9217,0)="""RTN"",""SROAPRT2"",32,0)"
^XMB(3.9,148,2,9218,0)=" W !,?40,""Steroid Use for Chronic Cond.:"",?72,$P(SRAO(""3C""),""^"")"
^XMB(3.9,148,2,9219,0)="""RTN"",""SROAPRT2"",33,0)"
^XMB(3.9,148,2,9220,0)=" W !,""CENTRAL NERVOUS SYSTEM:"",?31,$P(SRAO(2),""^""),?40,""Weight Loss > 10%:"",?72,$P(SRAO(""3D""),""^"")"
^XMB(3.9,148,2,9221,0)="""RTN"",""SROAPRT2"",34,0)"
^XMB(3.9,148,2,9222,0)=" W !,""Impaired Sensorium: "",?31,$P(SRAO(""2A""),""^""),?40,""Bleeding Disorders:"",?72,$P(SRAO(""3E""),""^"")"
^XMB(3.9,148,2,9223,0)="""RTN"",""SROAPRT2"",35,0)"
^XMB(3.9,148,2,9224,0)=" W !,""Coma:"",?31,$P(SRAO(""2B""),""^""),?40,""Transfusion > 4 RBC Units:"",?72,$P(SRAO(""3F""),""^"")"
^XMB(3.9,148,2,9225,0)="""RTN"",""SROAPRT2"",36,0)"
^XMB(3.9,148,2,9226,0)=" W !,""Hemiplegia:"",?31,$P(SRAO(""2C""),""^""),?40,""Chemotherapy W/I 30 Days:"",?72,$P(SRAO(""3G""),""^"")"
^XMB(3.9,148,2,9227,0)="""RTN"",""SROAPRT2"",37,0)"
^XMB(3.9,148,2,9228,0)=" W !,""History of TIAs:"",?31,$P(SRAO(""2D""),""^""),?40,""Radiotherapy W/I 90 Days:"",?72,$P(SRAO(""3H""),""^"")"
^XMB(3.9,148,2,9229,0)="""RTN"",""SROAPRT2"",38,0)"
^XMB(3.9,148,2,9230,0)=" W !,""CVA/Stroke w. Neuro Deficit:"",?31,$P(SRAO(""2E""),""^""),?40,""Preoperative Sepsis:"",?(75-$L($P(SRAO(""3I""),""^""))),$P(SRAO(""3I""),""^"")"
^XMB(3.9,148,2,9231,0)="""RTN"",""SROAPRT2"",39,0)"
^XMB(3.9,148,2,9232,0)=" W !,""CVA/Stroke w/o Neuro Deficit:"",?31,$P(SRAO(""2F""),""^""),?40,""Pregnancy:"",?(75-$L($P(SRAO(""3J""),""^""))),$P(SRAO(""3J""),""^"")"
^XMB(3.9,148,2,9233,0)="""RTN"",""SROAPRT2"",40,0)"
^XMB(3.9,148,2,9234,0)=" W !,""Tumor Involving CNS:"",?31,$P(SRAO(""2G""),""^"")"
^XMB(3.9,148,2,9235,0)="""RTN"",""SROAPRT2"",41,0)"
^XMB(3.9,148,2,9236,0)=" W !,""Paraplegia:"",?31,$P(SRAO(""2H""),""^"")"
^XMB(3.9,148,2,9237,0)="""RTN"",""SROAPRT2"",42,0)"
^XMB(3.9,148,2,9238,0)=" W !,""Quadriplegia:"",?31,$P(SRAO(""2I""),""^"")"
^XMB(3.9,148,2,9239,0)="""RTN"",""SROAPRT2"",43,0)"
^XMB(3.9,148,2,9240,0)=" I $E(IOST)=""P"" W !"
^XMB(3.9,148,2,9241,0)="""RTN"",""SROAPRT2"",44,0)"
^XMB(3.9,148,2,9242,0)=" Q"
^XMB(3.9,148,2,9243,0)="""RTN"",""SROAPRT2"",45,0)"
^XMB(3.9,148,2,9244,0)="OUT(SRFLD,SRY) ; get data in output form"
^XMB(3.9,148,2,9245,0)="""RTN"",""SROAPRT2"",46,0)"
^XMB(3.9,148,2,9246,0)=" N C,Y"
^XMB(3.9,148,2,9247,0)="""RTN"",""SROAPRT2"",47,0)"
^XMB(3.9,148,2,9248,0)=" S Y=SRY,C=$P(^DD(130,SRFLD,0),""^"",2) D:Y'="""" Y^DIQ"
^XMB(3.9,148,2,9249,0)="""RTN"",""SROAPRT2"",48,0)"
^XMB(3.9,148,2,9250,0)=" I Y=""NO STUDY"" S Y=""NS """
^XMB(3.9,148,2,9251,0)="""RTN"",""SROAPRT2"",49,0)"
^XMB(3.9,148,2,9252,0)=" Q Y"
^XMB(3.9,148,2,9253,0)="""RTN"",""SROAPRT3"")"
^XMB(3.9,148,2,9254,0)="0^37^B15633950^B14821883"
^XMB(3.9,148,2,9255,0)="""RTN"",""SROAPRT3"",1,0)"
^XMB(3.9,148,2,9256,0)="SROAPRT3 ;BIR/MAM - PRINT OPERATION INFO ;02/23/06"
^XMB(3.9,148,2,9257,0)="""RTN"",""SROAPRT3"",2,0)"
^XMB(3.9,148,2,9258,0)=" ;;3.0; Surgery ;**38,47,63,81,88,95,125,142,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,9259,0)="""RTN"",""SROAPRT3"",3,0)"
^XMB(3.9,148,2,9260,0)=" K SRAO S (SRAO(7),SRAO(8))="""",SRA(""OP"")=^SRF(SRTN,""OP"")"
^XMB(3.9,148,2,9261,0)="""RTN"",""SROAPRT3"",4,0)"
^XMB(3.9,148,2,9262,0)=" S SRAO(2)=""^1"" K SROPS S SROPER=$P(SRA(""OP""),""^"")"
^XMB(3.9,148,2,9263,0)="""RTN"",""SROAPRT3"",5,0)"
^XMB(3.9,148,2,9264,0)=" S:$L(SROPER)<49 SROPS(1)=SROPER K M,MM,MMM I $L(SROPER)>48 S SROPER=SROPER_""  "" F M=1:1 D LOOP Q:MMM="""""
^XMB(3.9,148,2,9265,0)="""RTN"",""SROAPRT3"",6,0)"
^XMB(3.9,148,2,9266,0)=" S SRA(0)=^SRF(SRTN,0),X=$P(SRA(0),""^"",4) S:X X=$P(^SRO(137.45,X,0),""^"") S SRAO(2)=X_""^.04"""
^XMB(3.9,148,2,9267,0)="""RTN"",""SROAPRT3"",7,0)"
^XMB(3.9,148,2,9268,0)=" W !,?29,""OPERATIVE INFORMATION"",!!,$J(""Surgical Specialty: "",39)_$P(SRAO(2),""^"")"
^XMB(3.9,148,2,9269,0)="""RTN"",""SROAPRT3"",8,0)"
^XMB(3.9,148,2,9270,0)=" W !!,$J(""Principal Operation: "",39)_SROPS(1) I $D(SROPS(2)) W !,?40,SROPS(2) I $D(SROPS(3)) W !,?40,SROPS(3)"
^XMB(3.9,148,2,9271,0)="""RTN"",""SROAPRT3"",9,0)"
^XMB(3.9,148,2,9272,0)=" D ^SROAOTH"
^XMB(3.9,148,2,9273,0)="""RTN"",""SROAPRT3"",10,0)"
^XMB(3.9,148,2,9274,0)=" S X=$P(SRA(200),""^"",52),SRAO(9)=X_""^214"",NYUK=$P(SRA(0),""^"",10),NYUK=$S(NYUK=""EM"":""YES"",1:""NO"") S SRAO(10)=NYUK_""^.035"""
^XMB(3.9,148,2,9275,0)="""RTN"",""SROAPRT3"",11,0)"
^XMB(3.9,148,2,9276,0)=" S Y=$P($G(^SRF(SRTN,""1.0"")),""^"",8),C=$P(^DD(130,1.09,0),""^"",2) D:Y'="""" Y^DIQ S SRAO(11)=Y_""^1.09"""
^XMB(3.9,148,2,9277,0)="""RTN"",""SROAPRT3"",12,0)"
^XMB(3.9,148,2,9278,0)=" S NYUK=$P(SRA(200),""^"",53) D YN S SRAO(12)=SHEMP_""^201"""
^XMB(3.9,148,2,9279,0)="""RTN"",""SROAPRT3"",13,0)"
^XMB(3.9,148,2,9280,0)=" S Y=$P($G(^SRF(SRTN,1.1)),""^"",3),C=$P(^DD(130,1.13,0),""^"",2) D:Y'="""" Y^DIQ S SRAO(13)=Y_""^1.13"""
^XMB(3.9,148,2,9281,0)="""RTN"",""SROAPRT3"",14,0)"
^XMB(3.9,148,2,9282,0)=" D TECH^SROPRIN S SRAO(14)=SRTECH D TRAUMA S SRAO(14.1)=SRTRAUMA K SRTRAUMA"
^XMB(3.9,148,2,9283,0)="""RTN"",""SROAPRT3"",15,0)"
^XMB(3.9,148,2,9284,0)=" S SRI=$P($G(^SRF(SRTN,.3)),""^"",9) D  S SRAO(14.2)=SRI"
^XMB(3.9,148,2,9285,0)="""RTN"",""SROAPRT3"",16,0)"
^XMB(3.9,148,2,9286,0)=" .I 'SRI S SRI=""NOT ENTERED"" Q"
^XMB(3.9,148,2,9287,0)="""RTN"",""SROAPRT3"",17,0)"
^XMB(3.9,148,2,9288,0)=" .K DA,DIC,DIQ,SRY S DIC=""^SRF("",DA=SRTN,DIQ=""SRY"",DIQ(0)=""E"",DR=901 D EN^DIQ1 S SRI=SRY(130,SRTN,901,""E"") K DA,DIC,DIQ,DR,SRY"
^XMB(3.9,148,2,9289,0)="""RTN"",""SROAPRT3"",18,0)"
^XMB(3.9,148,2,9290,0)=" S X=$P(SRA(200),""^"",54),SRAO(15)=X_""^340"""
^XMB(3.9,148,2,9291,0)="""RTN"",""SROAPRT3"",19,0)"
^XMB(3.9,148,2,9292,0)=" S Y=$P($G(^SRF(SRTN,.3)),""^"",11),C=$P(^DD(130,901.1,0),""^"",2) D:Y'="""" Y^DIQ S:Y="""" Y=""NOT ENTERED"" S SRAO(16)=Y_""^901.1"""
^XMB(3.9,148,2,9293,0)="""RTN"",""SROAPRT3"",20,0)"
^XMB(3.9,148,2,9294,0)=" S Y=$P($G(^SRF(SRTN,200.1)),""^"",4),C=$P(^DD(130,443,0),""^"",2) D:Y'="""" Y^DIQ S SRAO(5)=Y_""^443"""
^XMB(3.9,148,2,9295,0)="""RTN"",""SROAPRT3"",21,0)"
^XMB(3.9,148,2,9296,0)=" I $E(IOST)'=""P"" D PAGE^SROAPAS Q:SRSOUT  W !,?29,""OPERATIVE INFORMATION"",!"
^XMB(3.9,148,2,9297,0)="""RTN"",""SROAPRT3"",22,0)"
^XMB(3.9,148,2,9298,0)=" W !,$J(""PGY of Primary Surgeon: "",39)_$P(SRAO(9),""^"") W !,$J(""Emergency Case (Y/N): "",39)_$P(SRAO(10),""^"")"
^XMB(3.9,148,2,9299,0)="""RTN"",""SROAPRT3"",23,0)"
^XMB(3.9,148,2,9300,0)=" S X=$P(SRA(0),""^"",3),X=$S(X=""J"":""MAJOR"",X=""N"":""MINOR"",1:""""),SRAO(12)=X_""^.03"" W !,$J(""Major or Minor: "",39)_$P(SRAO(12),""^"")"
^XMB(3.9,148,2,9301,0)="""RTN"",""SROAPRT3"",24,0)"
^XMB(3.9,148,2,9302,0)=" W !,$J(""Wound Classification: "",39)_$P(SRAO(11),""^"")"
^XMB(3.9,148,2,9303,0)="""RTN"",""SROAPRT3"",25,0)"
^XMB(3.9,148,2,9304,0)=" W !,$J(""ASA Classification: "",39)_$P(SRAO(13),""^"")"
^XMB(3.9,148,2,9305,0)="""RTN"",""SROAPRT3"",26,0)"
^XMB(3.9,148,2,9306,0)=" W !,$J(""Airway Trauma: "",39)_$P(SRAO(14.1),""^"")"
^XMB(3.9,148,2,9307,0)="""RTN"",""SROAPRT3"",27,0)"
^XMB(3.9,148,2,9308,0)=" W !,$J(""Mallampati Scale: "",39)_$P(SRAO(16),""^"")"
^XMB(3.9,148,2,9309,0)="""RTN"",""SROAPRT3"",28,0)"
^XMB(3.9,148,2,9310,0)=" W !,$J(""Principal Anesthesia Technique: "",39)_$P(SRAO(14),""^"")"
^XMB(3.9,148,2,9311,0)="""RTN"",""SROAPRT3"",29,0)"
^XMB(3.9,148,2,9312,0)=" W !,$J(""Airway Index: "",39)_$P(SRAO(14.2),""^"")"
^XMB(3.9,148,2,9313,0)="""RTN"",""SROAPRT3"",30,0)"
^XMB(3.9,148,2,9314,0)=" W !,$J(""RBC Units Transfused: "",39)_$P(SRAO(15),""^"")"
^XMB(3.9,148,2,9315,0)="""RTN"",""SROAPRT3"",31,0)"
^XMB(3.9,148,2,9316,0)=" W !,$J(""Intraop Disseminated Cancer: "",39)_$P(SRAO(5),""^"")"
^XMB(3.9,148,2,9317,0)="""RTN"",""SROAPRT3"",32,0)"
^XMB(3.9,148,2,9318,0)=" I $E(IOST)=""P"" W !!"
^XMB(3.9,148,2,9319,0)="""RTN"",""SROAPRT3"",33,0)"
^XMB(3.9,148,2,9320,0)=" Q"
^XMB(3.9,148,2,9321,0)="""RTN"",""SROAPRT3"",34,0)"
^XMB(3.9,148,2,9322,0)="YN S SHEMP=$S(NYUK=""NS"":""NS"",NYUK=""N"":""NO"",NYUK=""Y"":""YES"",1:"""")"
^XMB(3.9,148,2,9323,0)="""RTN"",""SROAPRT3"",35,0)"
^XMB(3.9,148,2,9324,0)=" Q"
^XMB(3.9,148,2,9325,0)="""RTN"",""SROAPRT3"",36,0)"
^XMB(3.9,148,2,9326,0)="LOOP ; break procedures"
^XMB(3.9,148,2,9327,0)="""RTN"",""SROAPRT3"",37,0)"
^XMB(3.9,148,2,9328,0)=" S SROPS(M)="""" F LOOP=1:1 S MM=$P(SROPER,"" ""),MMM=$P(SROPER,"" "",2,200) Q:MMM=""""  Q:$L(SROPS(M))+$L(MM)'<49  S SROPS(M)=SROPS(M)_MM_"" "",SROPER=MMM"
^XMB(3.9,148,2,9329,0)="""RTN"",""SROAPRT3"",38,0)"
^XMB(3.9,148,2,9330,0)=" Q"
^XMB(3.9,148,2,9331,0)="""RTN"",""SROAPRT3"",39,0)"
^XMB(3.9,148,2,9332,0)="TRAUMA ; trauma related to anesthesia airway management"
^XMB(3.9,148,2,9333,0)="""RTN"",""SROAPRT3"",40,0)"
^XMB(3.9,148,2,9334,0)=" S SRTRAUMA="""" S:SRT SRTRAUMA=$P(^SRF(SRTN,6,SRT,0),""^"",14) I SRTRAUMA="""" S SRTRAUMA=""NOT ENTERED"" Q"
^XMB(3.9,148,2,9335,0)="""RTN"",""SROAPRT3"",41,0)"
^XMB(3.9,148,2,9336,0)=" S Y=SRTRAUMA,C=$P(^DD(130.06,12,0),""^"",2) D Y^DIQ S SRTRAUMA=Y"
^XMB(3.9,148,2,9337,0)="""RTN"",""SROAPRT3"",42,0)"
^XMB(3.9,148,2,9338,0)=" Q"
^XMB(3.9,148,2,9339,0)="""RTN"",""SROAPRT3"",43,0)"
^XMB(3.9,148,2,9340,0)="OPTIMES ; print operation times"
^XMB(3.9,148,2,9341,0)="""RTN"",""SROAPRT3"",44,0)"
^XMB(3.9,148,2,9342,0)=" K SRAO F I=1:1:7 S SRAO(I)="""""
^XMB(3.9,148,2,9343,0)="""RTN"",""SROAPRT3"",45,0)"
^XMB(3.9,148,2,9344,0)=" W !,?24,""OPERATION DATE/TIMES INFORMATION"""
^XMB(3.9,148,2,9345,0)="""RTN"",""SROAPRT3"",46,0)"
^XMB(3.9,148,2,9346,0)=" S X=$G(^SRF(SRTN,.2)),SRAO(1)=$P(X,""^"",10),SRAO(2)=$P(X,""^"",2),SRAO(3)=$P(X,""^"",3),SRAO(4)=$P(X,""^"",12),SRAO(5)=$P(X,""^""),SRAO(6)=$P(X,""^"",4),SRAO(7)=$P($G(^SRF(SRTN,1.1)),""^"",8)"
^XMB(3.9,148,2,9347,0)="""RTN"",""SROAPRT3"",47,0)"
^XMB(3.9,148,2,9348,0)=" F SRI=1:1:7 S Y=SRAO(SRI) I Y X ^DD(""DD"") S X=$P(Y,""@"")_""  ""_$P(Y,""@"",2),SRAO(SRI)=X"
^XMB(3.9,148,2,9349,0)="""RTN"",""SROAPRT3"",48,0)"
^XMB(3.9,148,2,9350,0)=" W !!,$J(""Patient in Room (PIR): "",39)_SRAO(1),!,$J(""Procedure/Surgery Start Time (PST): "",39)_SRAO(2),!,$J(""Procedure/Surgery Finish (PF): "",39)_SRAO(3)"
^XMB(3.9,148,2,9351,0)="""RTN"",""SROAPRT3"",49,0)"
^XMB(3.9,148,2,9352,0)=" W !,$J(""Patient Out of Room (POR): "",39)_SRAO(4),!,$J(""Anesthesia Start (AS): "",39)_SRAO(5),!,$J(""Anesthesia Finish (AF): "",39)_SRAO(6),!,$J(""Discharge from PACU (DPACU): "",39)_SRAO(7)"
^XMB(3.9,148,2,9353,0)="""RTN"",""SROAPRT3"",50,0)"
^XMB(3.9,148,2,9354,0)=" I $E(IOST)=""P"" W !"
^XMB(3.9,148,2,9355,0)="""RTN"",""SROAPRT3"",51,0)"
^XMB(3.9,148,2,9356,0)=" Q"
^XMB(3.9,148,2,9357,0)="""RTN"",""SROAPRT4"")"
^XMB(3.9,148,2,9358,0)="0^38^B5890683^B5327392"
^XMB(3.9,148,2,9359,0)="""RTN"",""SROAPRT4"",1,0)"
^XMB(3.9,148,2,9360,0)="SROAPRT4 ;BIR/MAM - PRINT ASSESSMENT (CONT.) ;06/28/06"
^XMB(3.9,148,2,9361,0)="""RTN"",""SROAPRT4"",2,0)"
^XMB(3.9,148,2,9362,0)=" ;;3.0; Surgery ;**38,125,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,9363,0)="""RTN"",""SROAPRT4"",3,0)"
^XMB(3.9,148,2,9364,0)=" ;K SRA S SRA(201)=$G(^SRF(SRTN,201)),SRA(202)=$G(^SRF(SRTN,202))"
^XMB(3.9,148,2,9365,0)="""RTN"",""SROAPRT4"",4,0)"
^XMB(3.9,148,2,9366,0)=" K SRA F I=201,202,203,204 S SRA(I)=$G(^SRF(SRTN,I))"
^XMB(3.9,148,2,9367,0)="""RTN"",""SROAPRT4"",5,0)"
^XMB(3.9,148,2,9368,0)=" W !,?20,""PREOPERATIVE LABORATORY TEST RESULTS"""
^XMB(3.9,148,2,9369,0)="""RTN"",""SROAPRT4"",6,0)"
^XMB(3.9,148,2,9370,0)=" W !!,$J(""Anion Gap (in 48 hrs.): "",39) S X=$P(SRA(203),""^"",15) W X S X=$P(SRA(204),""^"",15) I X D DATE W ?48,""(""_Y_"")"""
^XMB(3.9,148,2,9371,0)="""RTN"",""SROAPRT4"",7,0)"
^XMB(3.9,148,2,9372,0)=" W !,$J(""Serum Sodium: "",39) S X=$P(SRA(201),""^"") W X S X=$P(SRA(202),""^"") I X D DATE W ?48,""(""_Y_"")"""
^XMB(3.9,148,2,9373,0)="""RTN"",""SROAPRT4"",8,0)"
^XMB(3.9,148,2,9374,0)=" W !,$J(""Serum Creatinine: "",39) S X=$P(SRA(201),""^"",4) W X S X=$P(SRA(202),""^"",4) I X D DATE W ?48,""(""_Y_"")"""
^XMB(3.9,148,2,9375,0)="""RTN"",""SROAPRT4"",9,0)"
^XMB(3.9,148,2,9376,0)=" W !,$J(""BUN: "",39) S X=$P(SRA(201),""^"",5) W X I X S X=$P(SRA(202),""^"",5) I X D DATE W ?48,""(""_Y_"")"""
^XMB(3.9,148,2,9377,0)="""RTN"",""SROAPRT4"",10,0)"
^XMB(3.9,148,2,9378,0)=" W !,$J(""Serum Albumin: "",39) S X=$P(SRA(201),""^"",8) W X I X S X=$P(SRA(202),""^"",8) I X D DATE W ?48,""(""_Y_"")"""
^XMB(3.9,148,2,9379,0)="""RTN"",""SROAPRT4"",11,0)"
^XMB(3.9,148,2,9380,0)=" W !,$J(""Total Bilirubin: "",39) S X=$P(SRA(201),""^"",9) W X S X=$P(SRA(202),""^"",9) I X D DATE W ?48,""(""_Y_"")"""
^XMB(3.9,148,2,9381,0)="""RTN"",""SROAPRT4"",12,0)"
^XMB(3.9,148,2,9382,0)=" W !,$J(""SGOT: "",39) S X=$P(SRA(201),""^"",11) W X I X S X=$P(SRA(202),""^"",11) I X D DATE W ?48,""(""_Y_"")"""
^XMB(3.9,148,2,9383,0)="""RTN"",""SROAPRT4"",13,0)"
^XMB(3.9,148,2,9384,0)=" W !,$J(""Alkaline Phosphatase: "",39) S X=$P(SRA(201),""^"",12) W X I X S X=$P(SRA(202),""^"",12) I X D DATE W ?48,""(""_Y_"")"""
^XMB(3.9,148,2,9385,0)="""RTN"",""SROAPRT4"",14,0)"
^XMB(3.9,148,2,9386,0)=" W !,$J(""White Blood Count: "",39) S X=$P(SRA(201),""^"",13) W X S X=$P(SRA(202),""^"",13) I X D DATE W ?48,""(""_Y_"")"""
^XMB(3.9,148,2,9387,0)="""RTN"",""SROAPRT4"",15,0)"
^XMB(3.9,148,2,9388,0)=" W !,$J(""Hematocrit: "",39) S X=$P(SRA(201),""^"",14) W X I X S X=$P(SRA(202),""^"",14) I X D DATE W ?48,""(""_Y_"")"""
^XMB(3.9,148,2,9389,0)="""RTN"",""SROAPRT4"",16,0)"
^XMB(3.9,148,2,9390,0)=" W !,$J(""Platelet Count: "",39) S X=$P(SRA(201),""^"",15) W X S X=$P(SRA(202),""^"",15) I X D DATE W ?48,""(""_Y_"")"""
^XMB(3.9,148,2,9391,0)="""RTN"",""SROAPRT4"",17,0)"
^XMB(3.9,148,2,9392,0)=" W !,$J(""PTT: "",39) S X=$P(SRA(201),""^"",16) W X S X=$P(SRA(202),""^"",16) I X D DATE W ?48,""(""_Y_"")"""
^XMB(3.9,148,2,9393,0)="""RTN"",""SROAPRT4"",18,0)"
^XMB(3.9,148,2,9394,0)=" W !,$J(""PT: "",39) S X=$P(SRA(201),""^"",17) W X I X S X=$P(SRA(202),""^"",17) I X D DATE W ?48,""(""_Y_"")"""
^XMB(3.9,148,2,9395,0)="""RTN"",""SROAPRT4"",19,0)"
^XMB(3.9,148,2,9396,0)=" W !,$J(""INR: "",39) S X=$P(SRA(201),""^"",27) W X I X S X=$P(SRA(202),""^"",27) I X D DATE W ?48,""(""_Y_"")"""
^XMB(3.9,148,2,9397,0)="""RTN"",""SROAPRT4"",20,0)"
^XMB(3.9,148,2,9398,0)=" I $E(IOST)=""P"" W !!"
^XMB(3.9,148,2,9399,0)="""RTN"",""SROAPRT4"",21,0)"
^XMB(3.9,148,2,9400,0)=" Q"
^XMB(3.9,148,2,9401,0)="""RTN"",""SROAPRT4"",22,0)"
^XMB(3.9,148,2,9402,0)="DATE S Y=X X ^DD(""DD"")"
^XMB(3.9,148,2,9403,0)="""RTN"",""SROAPRT4"",23,0)"
^XMB(3.9,148,2,9404,0)=" Q"
^XMB(3.9,148,2,9405,0)="""RTN"",""SROAPRT5"")"
^XMB(3.9,148,2,9406,0)="0^39^B5810182^B5379666"
^XMB(3.9,148,2,9407,0)="""RTN"",""SROAPRT5"",1,0)"
^XMB(3.9,148,2,9408,0)="SROAPRT5 ;BIR/MAM - PRINT ASSESSMENT (CONT) ;06/28/06"
^XMB(3.9,148,2,9409,0)="""RTN"",""SROAPRT5"",2,0)"
^XMB(3.9,148,2,9410,0)=" ;;3.0; Surgery ;**38,88,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,9411,0)="""RTN"",""SROAPRT5"",3,0)"
^XMB(3.9,148,2,9412,0)=" K SRA S SRA(203)=$G(^SRF(SRTN,203)),SRA(204)=$G(^SRF(SRTN,204))"
^XMB(3.9,148,2,9413,0)="""RTN"",""SROAPRT5"",4,0)"
^XMB(3.9,148,2,9414,0)=" W:$E(IOST)=""P"" ! W !,?22,""POSTOPERATIVE LABORATORY RESULTS"",!!,?29,"" * Highest Value"",!,?29,""** Lowest Value"""
^XMB(3.9,148,2,9415,0)="""RTN"",""SROAPRT5"",5,0)"
^XMB(3.9,148,2,9416,0)=" W !!,$J(""* Anion Gap: "",39) S X=$P(SRA(203),""^"",16) W X S X=$P(SRA(204),""^"",16) I X D DATE W ?48,""(""_Y_"")"""
^XMB(3.9,148,2,9417,0)="""RTN"",""SROAPRT5"",6,0)"
^XMB(3.9,148,2,9418,0)=" W !,$J(""* Serum Sodium: "",39) S X=$P(SRA(203),""^"") W X S X=$P(SRA(204),""^"") I X D DATE W ?48,""(""_Y_"")"""
^XMB(3.9,148,2,9419,0)="""RTN"",""SROAPRT5"",7,0)"
^XMB(3.9,148,2,9420,0)=" W !,$J(""** Serum Sodium: "",39) S X=$P(SRA(203),""^"",2) W X S X=$P(SRA(204),""^"",2) I X D DATE W ?48,""(""_Y_"")"""
^XMB(3.9,148,2,9421,0)="""RTN"",""SROAPRT5"",8,0)"
^XMB(3.9,148,2,9422,0)=" W !,$J(""* Potassium: "",39) S X=$P(SRA(203),""^"",3) W X S X=$P(SRA(204),""^"",3) I X D DATE W ?48,""(""_Y_"")"""
^XMB(3.9,148,2,9423,0)="""RTN"",""SROAPRT5"",9,0)"
^XMB(3.9,148,2,9424,0)=" W !,$J(""** Potassium: "",39) S X=$P(SRA(203),""^"",4) W X S X=$P(SRA(204),""^"",4) I X D DATE W ?48,""(""_Y_"")"""
^XMB(3.9,148,2,9425,0)="""RTN"",""SROAPRT5"",10,0)"
^XMB(3.9,148,2,9426,0)=" W !,$J(""* Serum Creatinine: "",39) S X=$P(SRA(203),""^"",6) W X S X=$P(SRA(204),""^"",6) I X D DATE W ?48,""(""_Y_"")"""
^XMB(3.9,148,2,9427,0)="""RTN"",""SROAPRT5"",11,0)"
^XMB(3.9,148,2,9428,0)=" W !,$J(""* CPK: "",39) S X=$P(SRA(203),""^"",7) W X I X S X=$P(SRA(204),""^"",7) I X D DATE W ?48,""(""_Y_"")"""
^XMB(3.9,148,2,9429,0)="""RTN"",""SROAPRT5"",12,0)"
^XMB(3.9,148,2,9430,0)=" W !,$J(""* CPK-MB Band: "",39) S X=$P(SRA(203),""^"",8) W X S X=$P(SRA(204),""^"",8) I X D DATE W ?48,""(""_Y_"")"""
^XMB(3.9,148,2,9431,0)="""RTN"",""SROAPRT5"",13,0)"
^XMB(3.9,148,2,9432,0)=" W !,$J(""* Total Bilirubin: "",39) S X=$P(SRA(203),""^"",9) W X I X S X=$P(SRA(204),""^"",9) I X D DATE W ?48,""(""_Y_"")"""
^XMB(3.9,148,2,9433,0)="""RTN"",""SROAPRT5"",14,0)"
^XMB(3.9,148,2,9434,0)=" W !,$J(""* White Blood Count: "",39) S X=$P(SRA(203),""^"",10) W X S X=$P(SRA(204),""^"",10) I X D DATE W ?48,""(""_Y_"")"""
^XMB(3.9,148,2,9435,0)="""RTN"",""SROAPRT5"",15,0)"
^XMB(3.9,148,2,9436,0)=" W !,$J(""** Hematocrit: "",39) S X=$P(SRA(203),""^"",12) W X S X=$P(SRA(204),""^"",12) I X D DATE W ?48,""(""_Y_"")"""
^XMB(3.9,148,2,9437,0)="""RTN"",""SROAPRT5"",16,0)"
^XMB(3.9,148,2,9438,0)=" W !,$J(""* Troponin I: "",39) S X=$P(SRA(203),""^"",13) W X S X=$P(SRA(204),""^"",13) I X D DATE W ?48,""(""_Y_"")"""
^XMB(3.9,148,2,9439,0)="""RTN"",""SROAPRT5"",17,0)"
^XMB(3.9,148,2,9440,0)=" W !,$J(""* Troponin T: "",39) S X=$P(SRA(203),""^"",14) W X S X=$P(SRA(204),""^"",14) I X D DATE W ?48,""(""_Y_"")"""
^XMB(3.9,148,2,9441,0)="""RTN"",""SROAPRT5"",18,0)"
^XMB(3.9,148,2,9442,0)=" I $E(IOST)=""P"" W !!"
^XMB(3.9,148,2,9443,0)="""RTN"",""SROAPRT5"",19,0)"
^XMB(3.9,148,2,9444,0)=" Q"
^XMB(3.9,148,2,9445,0)="""RTN"",""SROAPRT5"",20,0)"
^XMB(3.9,148,2,9446,0)="DATE S Y=X X ^DD(""DD"")"
^XMB(3.9,148,2,9447,0)="""RTN"",""SROAPRT5"",21,0)"
^XMB(3.9,148,2,9448,0)=" Q"
^XMB(3.9,148,2,9449,0)="""RTN"",""SROAPS1"")"
^XMB(3.9,148,2,9450,0)="0^71^B19811405^B16884597"
^XMB(3.9,148,2,9451,0)="""RTN"",""SROAPS1"",1,0)"
^XMB(3.9,148,2,9452,0)="SROAPS1 ;BIR/MAM - PREOP INFO (PAGE 1) ;06/08/06"
^XMB(3.9,148,2,9453,0)="""RTN"",""SROAPS1"",2,0)"
^XMB(3.9,148,2,9454,0)=" ;;3.0; Surgery ;**38,47,125,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,9455,0)="""RTN"",""SROAPS1"",3,0)"
^XMB(3.9,148,2,9456,0)=" N I S SRPAGE=""PAGE: 1 OF 2"" D HDR^SROAUTL,PRE1"
^XMB(3.9,148,2,9457,0)="""RTN"",""SROAPS1"",4,0)"
^XMB(3.9,148,2,9458,0)=" W ! F I=1:1:80 W ""-"""
^XMB(3.9,148,2,9459,0)="""RTN"",""SROAPS1"",5,0)"
^XMB(3.9,148,2,9460,0)=" Q"
^XMB(3.9,148,2,9461,0)="""RTN"",""SROAPS1"",6,0)"
^XMB(3.9,148,2,9462,0)="PRE1 N SRX,Y D HW F I=200,206 S SRA(I)=$G(^SRF(SRTN,I))"
^XMB(3.9,148,2,9463,0)="""RTN"",""SROAPS1"",7,0)"
^XMB(3.9,148,2,9464,0)=" S Y=$P(SRA(200),""^""),SRX=402,SRAO(1)=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9465,0)="""RTN"",""SROAPS1"",8,0)"
^XMB(3.9,148,2,9466,0)=" S Y=$P(SRA(206),""^""),SRX=236,SRAO(""1A"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9467,0)="""RTN"",""SROAPS1"",9,0)"
^XMB(3.9,148,2,9468,0)=" S Y=$P(SRA(206),""^"",2),SRX=237,SRAO(""1B"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9469,0)="""RTN"",""SROAPS1"",10,0)"
^XMB(3.9,148,2,9470,0)=" S Y=$P(SRA(200),""^"",2),SRX=346,SRAO(""1C"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9471,0)="""RTN"",""SROAPS1"",11,0)"
^XMB(3.9,148,2,9472,0)=" S Y=$P(SRA(200),""^"",3),SRX=202,SRAO(""1D"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9473,0)="""RTN"",""SROAPS1"",12,0)"
^XMB(3.9,148,2,9474,0)=" S Y=$P($G(^SRF(SRTN,208)),""^"",9),SRX=202.1,SRAO(""1E"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9475,0)="""RTN"",""SROAPS1"",13,0)"
^XMB(3.9,148,2,9476,0)=" S Y=$P(SRA(200),""^"",4),SRX=246,SRAO(""1F"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9477,0)="""RTN"",""SROAPS1"",14,0)"
^XMB(3.9,148,2,9478,0)=" S Y=$P(SRA(200),""^"",6),SRX=325,SRAO(""1G"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9479,0)="""RTN"",""SROAPS1"",15,0)"
^XMB(3.9,148,2,9480,0)=" S Y=$P(SRA(200),""^"",7),SRX=238,SRAO(""1H"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9481,0)="""RTN"",""SROAPS1"",16,0)"
^XMB(3.9,148,2,9482,0)=" S Y=$P(SRA(200),""^"",8),SRX=240,SRAO(""1I"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9483,0)="""RTN"",""SROAPS1"",17,0)"
^XMB(3.9,148,2,9484,0)=" S Y=$P($G(^SRF(SRTN,200.1)),""^"",2),SRX=492,SRAO(""1J"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9485,0)="""RTN"",""SROAPS1"",18,0)"
^XMB(3.9,148,2,9486,0)=" S Y=$P(SRA(200),""^"",9),SRX=241,SRAO(2)=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9487,0)="""RTN"",""SROAPS1"",19,0)"
^XMB(3.9,148,2,9488,0)=" S Y=$P(SRA(200),""^"",10),SRX=204,SRAO(""2A"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9489,0)="""RTN"",""SROAPS1"",20,0)"
^XMB(3.9,148,2,9490,0)=" S Y=$P(SRA(200),""^"",11),SRX=203,SRAO(""2B"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9491,0)="""RTN"",""SROAPS1"",21,0)"
^XMB(3.9,148,2,9492,0)=" S Y=$P(SRA(200),""^"",12),SRX=326,SRAO(""2C"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9493,0)="""RTN"",""SROAPS1"",22,0)"
^XMB(3.9,148,2,9494,0)=" S Y=$P(SRA(200),""^"",13),SRX=244,SRAO(3)=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9495,0)="""RTN"",""SROAPS1"",23,0)"
^XMB(3.9,148,2,9496,0)=" S Y=$P(SRA(200),""^"",15),SRX=212,SRAO(""3A"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9497,0)="""RTN"",""SROAPS1"",24,0)"
^XMB(3.9,148,2,9498,0)=" S Y=$P($G(^SRF(SRTN,200.1)),""^""),SRX=486,SRAO(4)=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9499,0)="""RTN"",""SROAPS1"",25,0)"
^XMB(3.9,148,2,9500,0)=" S Y=$P(SRA(200),""^"",16),SRX=213,SRAO(""4A"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9501,0)="""RTN"",""SROAPS1"",26,0)"
^XMB(3.9,148,2,9502,0)=" S Y=$P(SRA(200),""^"",30),SRX=242,SRAO(5)=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9503,0)="""RTN"",""SROAPS1"",27,0)"
^XMB(3.9,148,2,9504,0)=" S Y=$P(SRA(200),""^"",35),SRX=396,SRAO(""5A"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9505,0)="""RTN"",""SROAPS1"",28,0)"
^XMB(3.9,148,2,9506,0)=" S Y=$P(SRA(200),""^"",31),SRX=394,SRAO(""5B"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9507,0)="""RTN"",""SROAPS1"",29,0)"
^XMB(3.9,148,2,9508,0)=" S Y=$P(SRA(200),""^"",32),SRX=220,SRAO(""5C"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9509,0)="""RTN"",""SROAPS1"",30,0)"
^XMB(3.9,148,2,9510,0)=" S Y=$P(SRA(200),""^"",33),SRX=266,SRAO(""5D"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9511,0)="""RTN"",""SROAPS1"",31,0)"
^XMB(3.9,148,2,9512,0)=" S Y=$P(SRA(200),""^"",34),SRX=395,SRAO(""5E"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9513,0)="""RTN"",""SROAPS1"",32,0)"
^XMB(3.9,148,2,9514,0)=" S Y=$P(SRA(200),""^"",36),SRX=208,SRAO(""5F"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9515,0)="""RTN"",""SROAPS1"",33,0)"
^XMB(3.9,148,2,9516,0)=" S Y=$P(SRA(200),""^"",40),SRX=206,SRAO(6)=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9517,0)="""RTN"",""SROAPS1"",34,0)"
^XMB(3.9,148,2,9518,0)=" S Y=$P(SRA(200),""^"",41),SRX=329,SRAO(""6A"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9519,0)="""RTN"",""SROAPS1"",35,0)"
^XMB(3.9,148,2,9520,0)=" S Y=$P(SRA(200),""^"",42),SRX=330,SRAO(""6B"")=$$OUT(SRX,Y)_""^""_SRX K SRA"
^XMB(3.9,148,2,9521,0)="""RTN"",""SROAPS1"",36,0)"
^XMB(3.9,148,2,9522,0)=" W ""1. GENERAL:"",?32,$P(SRAO(1),""^""),?41,""3. HEPATOBILIARY:"",?76,$P(SRAO(3),""^"")"
^XMB(3.9,148,2,9523,0)="""RTN"",""SROAPS1"",37,0)"
^XMB(3.9,148,2,9524,0)=" W !,""  A. Height:"" S Y=$P(SRAO(""1A""),""^"") W ?($S(Y=""NS"":19,1:24)),$J($P(Y,""^""),15),?43,""A. Ascites:"",?76,$P(SRAO(""3A""),""^"")"
^XMB(3.9,148,2,9525,0)="""RTN"",""SROAPS1"",38,0)"
^XMB(3.9,148,2,9526,0)=" W !,""  B. Weight:"" S Y=$P(SRAO(""1B""),""^"") W ?($S(Y=""NS"":19,1:24)),$J(Y,15)"
^XMB(3.9,148,2,9527,0)="""RTN"",""SROAPS1"",39,0)"
^XMB(3.9,148,2,9528,0)=" W !,""  C. Diabetes Mellitus:"",?32,$P(SRAO(""1C""),""^""),?41,""4. GASTROINTESTINAL:"",?76,$P(SRAO(4),""^"")"
^XMB(3.9,148,2,9529,0)="""RTN"",""SROAPS1"",40,0)"
^XMB(3.9,148,2,9530,0)=" W !,""  D. Current Smoker W/I 1 Year:"",?32,$P(SRAO(""1D""),""^""),?43,""A. Esophageal Varices:"",?76,$P(SRAO(""4A""),""^"")"
^XMB(3.9,148,2,9531,0)="""RTN"",""SROAPS1"",41,0)"
^XMB(3.9,148,2,9532,0)=" W !,""  E. Pack/Years:"",?32,$P(SRAO(""1E""),""^"")"
^XMB(3.9,148,2,9533,0)="""RTN"",""SROAPS1"",42,0)"
^XMB(3.9,148,2,9534,0)=" W !,""  F. ETOH > 2 Drinks/Day:"",?32,$P(SRAO(""1F""),""^""),?41,""5. CARDIAC:"",?76,$P(SRAO(5),""^"")"
^XMB(3.9,148,2,9535,0)="""RTN"",""SROAPS1"",43,0)"
^XMB(3.9,148,2,9536,0)=" W !,""  G. Dyspnea: "",?14,$J($P(SRAO(""1G""),""^""),25),?43,""A. CHF Within 1 Month:"",?76,$P(SRAO(""5A""),""^"")"
^XMB(3.9,148,2,9537,0)="""RTN"",""SROAPS1"",44,0)"
^XMB(3.9,148,2,9538,0)=" W !,""  H. DNR Status: "",?32,$P(SRAO(""1H""),""^""),?43,""B. MI Within 6 Months:"",?76,$P(SRAO(""5B""),""^"")"
^XMB(3.9,148,2,9539,0)="""RTN"",""SROAPS1"",45,0)"
^XMB(3.9,148,2,9540,0)=" W !,""  I. Pre-illness Funct"",?43,""C. Previous PCI:"",?76,$P(SRAO(""5C""),""^"")"
^XMB(3.9,148,2,9541,0)="""RTN"",""SROAPS1"",46,0)"
^XMB(3.9,148,2,9542,0)=" W !,?17,""Status: "",$J($P(SRAO(""1I""),""^""),17),?43,""D. Previous Cardiac Surgery:"",?76,$P(SRAO(""5D""),""^"")"
^XMB(3.9,148,2,9543,0)="""RTN"",""SROAPS1"",47,0)"
^XMB(3.9,148,2,9544,0)=" W !,""  J. Preop Funct Status: "",$J($P(SRAO(""1J""),""^""),17),?43,""E. Angina Within 1 Month:"",?76,$P(SRAO(""5E""),""^"")"
^XMB(3.9,148,2,9545,0)="""RTN"",""SROAPS1"",48,0)"
^XMB(3.9,148,2,9546,0)=" W !,?43,""F. Hypertension Requiring Meds:"",?76,$P(SRAO(""5F""),""^"")"
^XMB(3.9,148,2,9547,0)="""RTN"",""SROAPS1"",49,0)"
^XMB(3.9,148,2,9548,0)=" W !,""2. PULMONARY:"",?32,$P(SRAO(2),""^"")"
^XMB(3.9,148,2,9549,0)="""RTN"",""SROAPS1"",50,0)"
^XMB(3.9,148,2,9550,0)=" W !,""  A. Ventilator Dependent:"",?32,$P(SRAO(""2A""),""^""),?41,""6. VASCULAR:"",?76,$P(SRAO(6),""^"")"
^XMB(3.9,148,2,9551,0)="""RTN"",""SROAPS1"",51,0)"
^XMB(3.9,148,2,9552,0)=" W !,""  B. History of Severe COPD:"",?32,$P(SRAO(""2B""),""^""),?43,""A. Revascularization/Amputation:"",?76,$P(SRAO(""6A""),""^"")"
^XMB(3.9,148,2,9553,0)="""RTN"",""SROAPS1"",52,0)"
^XMB(3.9,148,2,9554,0)=" W !,""  C. Current Pneumonia:"",?32,$P(SRAO(""2C""),""^""),?43,""B. Rest Pain/Gangrene:"",?76,$P(SRAO(""6B""),""^"")"
^XMB(3.9,148,2,9555,0)="""RTN"",""SROAPS1"",53,0)"
^XMB(3.9,148,2,9556,0)=" Q"
^XMB(3.9,148,2,9557,0)="""RTN"",""SROAPS1"",54,0)"
^XMB(3.9,148,2,9558,0)="OUT(SRFLD,SRY) ; get data in output form"
^XMB(3.9,148,2,9559,0)="""RTN"",""SROAPS1"",55,0)"
^XMB(3.9,148,2,9560,0)=" N C,Y"
^XMB(3.9,148,2,9561,0)="""RTN"",""SROAPS1"",56,0)"
^XMB(3.9,148,2,9562,0)=" S Y=SRY,C=$P(^DD(130,SRFLD,0),""^"",2) D:Y'="""" Y^DIQ"
^XMB(3.9,148,2,9563,0)="""RTN"",""SROAPS1"",57,0)"
^XMB(3.9,148,2,9564,0)=" I Y=""NO STUDY"" S Y=""NS"""
^XMB(3.9,148,2,9565,0)="""RTN"",""SROAPS1"",58,0)"
^XMB(3.9,148,2,9566,0)=" I SRFLD=236!(SRFLD=237)!(SRFLD=346) S Y=$E(Y,1,15)"
^XMB(3.9,148,2,9567,0)="""RTN"",""SROAPS1"",59,0)"
^XMB(3.9,148,2,9568,0)=" I SRFLD=240!(SRFLD=492) D"
^XMB(3.9,148,2,9569,0)="""RTN"",""SROAPS1"",60,0)"
^XMB(3.9,148,2,9570,0)=" .I SRY=2 S Y=""PARTIAL DEPENDENT"" Q"
^XMB(3.9,148,2,9571,0)="""RTN"",""SROAPS1"",61,0)"
^XMB(3.9,148,2,9572,0)=" .I SRY=1 S Y=Y_""    "" Q"
^XMB(3.9,148,2,9573,0)="""RTN"",""SROAPS1"",62,0)"
^XMB(3.9,148,2,9574,0)=" .I SRY=4 S Y=Y_""      """
^XMB(3.9,148,2,9575,0)="""RTN"",""SROAPS1"",63,0)"
^XMB(3.9,148,2,9576,0)=" I SRFLD=325,$L(Y)=2 S Y=Y_""     """
^XMB(3.9,148,2,9577,0)="""RTN"",""SROAPS1"",64,0)"
^XMB(3.9,148,2,9578,0)=" Q Y"
^XMB(3.9,148,2,9579,0)="""RTN"",""SROAPS1"",65,0)"
^XMB(3.9,148,2,9580,0)="HW ; get weight & height from Vitals"
^XMB(3.9,148,2,9581,0)="""RTN"",""SROAPS1"",66,0)"
^XMB(3.9,148,2,9582,0)=" N SREND,SREX,SRSTRT"
^XMB(3.9,148,2,9583,0)="""RTN"",""SROAPS1"",67,0)"
^XMB(3.9,148,2,9584,0)="WT I $P($G(^SRF(SRTN,206)),""^"",2)="""" D"
^XMB(3.9,148,2,9585,0)="""RTN"",""SROAPS1"",68,0)"
^XMB(3.9,148,2,9586,0)=" .S SREND=$P($G(^SRF(SRTN,0)),""^"",9),SRSTRT=$$FMADD^XLFDT(SREND,-30),SREX=$$HW^SROACL1(SRSTRT,SREND,""WT"")"
^XMB(3.9,148,2,9587,0)="""RTN"",""SROAPS1"",69,0)"
^XMB(3.9,148,2,9588,0)=" .I SREX'="""" S SREX=SREX+.5\1,$P(^SRF(SRTN,206),""^"",2)=SREX"
^XMB(3.9,148,2,9589,0)="""RTN"",""SROAPS1"",70,0)"
^XMB(3.9,148,2,9590,0)="HT I $P($G(^SRF(SRTN,206)),""^"")="""" D"
^XMB(3.9,148,2,9591,0)="""RTN"",""SROAPS1"",71,0)"
^XMB(3.9,148,2,9592,0)=" .S SREND=$P($G(^SRF(SRTN,0)),""^"",9),SRSTRT=$$FMADD^XLFDT(SREND,-365),SREX=$$HW^SROACL1(SRSTRT,SREND,""HT"")"
^XMB(3.9,148,2,9593,0)="""RTN"",""SROAPS1"",72,0)"
^XMB(3.9,148,2,9594,0)=" .I SREX'="""" S SREX=SREX+.5\1,$P(^SRF(SRTN,206),""^"")=SREX"
^XMB(3.9,148,2,9595,0)="""RTN"",""SROAPS1"",73,0)"
^XMB(3.9,148,2,9596,0)=" Q"
^XMB(3.9,148,2,9597,0)="""RTN"",""SROAPS2"")"
^XMB(3.9,148,2,9598,0)="0^3^B13745888^B12184598"
^XMB(3.9,148,2,9599,0)="""RTN"",""SROAPS2"",1,0)"
^XMB(3.9,148,2,9600,0)="SROAPS2 ;BIR/MAM - PREOP INFO (PAGE 2) ;04/11/06"
^XMB(3.9,148,2,9601,0)="""RTN"",""SROAPS2"",2,0)"
^XMB(3.9,148,2,9602,0)=" ;;3.0; Surgery ;**38,47,125,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,9603,0)="""RTN"",""SROAPS2"",3,0)"
^XMB(3.9,148,2,9604,0)=" S SRPAGE=""PAGE: 2 OF 2"" D HDR^SROAUTL,PRE2"
^XMB(3.9,148,2,9605,0)="""RTN"",""SROAPS2"",4,0)"
^XMB(3.9,148,2,9606,0)=" W !! F I=1:1:80 W ""-"""
^XMB(3.9,148,2,9607,0)="""RTN"",""SROAPS2"",5,0)"
^XMB(3.9,148,2,9608,0)=" Q"
^XMB(3.9,148,2,9609,0)="""RTN"",""SROAPS2"",6,0)"
^XMB(3.9,148,2,9610,0)="PRE2 N SRX,Y S Y=$P($G(^SRF(SRTN,200.1)),""^"",3) I Y="""",$P(VADM(5),""^"")=""M"" S $P(^SRF(SRTN,200.1),""^"",3)=""NA"""
^XMB(3.9,148,2,9611,0)="""RTN"",""SROAPS2"",7,0)"
^XMB(3.9,148,2,9612,0)=" S SRA(200)=$G(^SRF(SRTN,200)),SRA(206)=$G(^SRF(SRTN,206)),SRA(200.1)=$G(^SRF(SRTN,200.1))"
^XMB(3.9,148,2,9613,0)="""RTN"",""SROAPS2"",8,0)"
^XMB(3.9,148,2,9614,0)=" S Y=$P(SRA(200),""^"",37),SRX=243,SRAO(1)=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9615,0)="""RTN"",""SROAPS2"",9,0)"
^XMB(3.9,148,2,9616,0)=" S Y=$P(SRA(200),""^"",38),SRX=328,SRAO(""1A"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9617,0)="""RTN"",""SROAPS2"",10,0)"
^XMB(3.9,148,2,9618,0)=" S Y=$P(SRA(200),""^"",39),SRX=211,SRAO(""1B"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9619,0)="""RTN"",""SROAPS2"",11,0)"
^XMB(3.9,148,2,9620,0)=" S Y=$P(SRA(200),""^"",18),SRX=210,SRAO(2)=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9621,0)="""RTN"",""SROAPS2"",12,0)"
^XMB(3.9,148,2,9622,0)=" S Y=$P(SRA(200),""^"",44),SRX=245,SRAO(3)=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9623,0)="""RTN"",""SROAPS2"",13,0)"
^XMB(3.9,148,2,9624,0)=" S Y=$P(SRA(200),""^"",19),SRX=332,SRAO(""2A"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9625,0)="""RTN"",""SROAPS2"",14,0)"
^XMB(3.9,148,2,9626,0)=" S Y=$P(SRA(200),""^"",21),SRX=333,SRAO(""2B"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9627,0)="""RTN"",""SROAPS2"",15,0)"
^XMB(3.9,148,2,9628,0)=" S Y=$P(SRA(200),""^"",22),SRX=398,SRAO(""2I"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9629,0)="""RTN"",""SROAPS2"",16,0)"
^XMB(3.9,148,2,9630,0)=" S Y=$P(SRA(200),""^"",23),SRX=399,SRAO(""2H"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9631,0)="""RTN"",""SROAPS2"",17,0)"
^XMB(3.9,148,2,9632,0)=" S Y=$P(SRA(200),""^"",24),SRX=400,SRAO(""2C"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9633,0)="""RTN"",""SROAPS2"",18,0)"
^XMB(3.9,148,2,9634,0)=" S Y=$P(SRA(200),""^"",25),SRX=334,SRAO(""2D"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9635,0)="""RTN"",""SROAPS2"",19,0)"
^XMB(3.9,148,2,9636,0)=" S Y=$P(SRA(200),""^"",26),SRX=335,SRAO(""2E"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9637,0)="""RTN"",""SROAPS2"",20,0)"
^XMB(3.9,148,2,9638,0)=" S Y=$P(SRA(200),""^"",27),SRX=336,SRAO(""2F"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9639,0)="""RTN"",""SROAPS2"",21,0)"
^XMB(3.9,148,2,9640,0)=" S Y=$P(SRA(200),""^"",29),SRX=401,SRAO(""2G"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9641,0)="""RTN"",""SROAPS2"",22,0)"
^XMB(3.9,148,2,9642,0)=" S Y=$P(SRA(200),""^"",45),SRX=338,SRAO(""3A"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9643,0)="""RTN"",""SROAPS2"",23,0)"
^XMB(3.9,148,2,9644,0)=" S Y=$P(SRA(200),""^"",46),SRX=218,SRAO(""3B"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9645,0)="""RTN"",""SROAPS2"",24,0)"
^XMB(3.9,148,2,9646,0)=" S Y=$P(SRA(200),""^"",47),SRX=339,SRAO(""3C"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9647,0)="""RTN"",""SROAPS2"",25,0)"
^XMB(3.9,148,2,9648,0)=" S Y=$P(SRA(200),""^"",48),SRX=215,SRAO(""3D"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9649,0)="""RTN"",""SROAPS2"",26,0)"
^XMB(3.9,148,2,9650,0)=" S Y=$P(SRA(200),""^"",49),SRX=216,SRAO(""3E"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9651,0)="""RTN"",""SROAPS2"",27,0)"
^XMB(3.9,148,2,9652,0)=" S Y=$P(SRA(200),""^"",50),SRX=217,SRAO(""3F"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9653,0)="""RTN"",""SROAPS2"",28,0)"
^XMB(3.9,148,2,9654,0)=" S Y=$P(SRA(206),""^"",3),SRX=338.1,SRAO(""3G"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9655,0)="""RTN"",""SROAPS2"",29,0)"
^XMB(3.9,148,2,9656,0)=" S Y=$P(SRA(206),""^"",4),SRX=338.2,SRAO(""3H"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9657,0)="""RTN"",""SROAPS2"",30,0)"
^XMB(3.9,148,2,9658,0)=" S Y=$P(SRA(206),""^"",8),SRX=218.1,SRAO(""3I"")=$$OUT(SRX,Y)_""^""_SRX"
^XMB(3.9,148,2,9659,0)="""RTN"",""SROAPS2"",31,0)"
^XMB(3.9,148,2,9660,0)=" S Y=$P(SRA(200.1),""^"",3),SRX=269,SRAO(""3J"")=$$OUT(SRX,Y)_""^""_SRX K SRA"
^XMB(3.9,148,2,9661,0)="""RTN"",""SROAPS2"",32,0)"
^XMB(3.9,148,2,9662,0)=" W !,""1. RENAL:"",?35,$P(SRAO(1),""^""),?40,""3. NUTRITIONAL/IMMUNE/OTHER:"",?76,$P(SRAO(3),""^"")"
^XMB(3.9,148,2,9663,0)="""RTN"",""SROAPS2"",33,0)"
^XMB(3.9,148,2,9664,0)=" W !,""  A. Acute Renal Failure:"",?35,$P(SRAO(""1A""),""^""),?40,""  A. Disseminated Cancer:"",?76,$P(SRAO(""3A""),""^"")"
^XMB(3.9,148,2,9665,0)="""RTN"",""SROAPS2"",34,0)"
^XMB(3.9,148,2,9666,0)=" W !,""  B. Currently on Dialysis:"",?35,$P(SRAO(""1B""),""^""),?40,""  B. Open Wound:"",?76,$P(SRAO(""3B""),""^"")"
^XMB(3.9,148,2,9667,0)="""RTN"",""SROAPS2"",35,0)"
^XMB(3.9,148,2,9668,0)=" W !,?40,""  C. Steroid Use for Chronic Cond.:"",?76,$P(SRAO(""3C""),""^"")"
^XMB(3.9,148,2,9669,0)="""RTN"",""SROAPS2"",36,0)"
^XMB(3.9,148,2,9670,0)=" W !,""2. CENTRAL NERVOUS SYSTEM:"",?35,$P(SRAO(2),""^""),?40,""  D. Weight Loss > 10%:"",?76,$P(SRAO(""3D""),""^"")"
^XMB(3.9,148,2,9671,0)="""RTN"",""SROAPS2"",37,0)"
^XMB(3.9,148,2,9672,0)=" W !,""  A. Impaired Sensorium: "",?35,$P(SRAO(""2A""),""^""),?40,""  E. Bleeding Disorders:"",?76,$P(SRAO(""3E""),""^"")"
^XMB(3.9,148,2,9673,0)="""RTN"",""SROAPS2"",38,0)"
^XMB(3.9,148,2,9674,0)=" W !,""  B. Coma:"",?35,$P(SRAO(""2B""),""^""),?40,""  F. Transfusion > 4 RBC Units:"",?76,$P(SRAO(""3F""),""^"")"
^XMB(3.9,148,2,9675,0)="""RTN"",""SROAPS2"",39,0)"
^XMB(3.9,148,2,9676,0)=" W !,""  C. Hemiplegia:"",?35,$P(SRAO(""2C""),""^""),?40,""  G. Chemotherapy W/I 30 Days:"",?76,$P(SRAO(""3G""),""^"")"
^XMB(3.9,148,2,9677,0)="""RTN"",""SROAPS2"",40,0)"
^XMB(3.9,148,2,9678,0)=" W !,""  D. History of TIAs:"",?35,$P(SRAO(""2D""),""^""),?40,""  H. Radiotherapy W/I 90 Days:"",?76,$P(SRAO(""3H""),""^"")"
^XMB(3.9,148,2,9679,0)="""RTN"",""SROAPS2"",41,0)"
^XMB(3.9,148,2,9680,0)=" W !,""  E. CVA/Stroke w. Neuro Deficit:"",?35,$P(SRAO(""2E""),""^""),?40,""  I. Preoperative Sepsis:"",?(79-$L($P(SRAO(""3I""),""^""))),$P(SRAO(""3I""),""^"")"
^XMB(3.9,148,2,9681,0)="""RTN"",""SROAPS2"",42,0)"
^XMB(3.9,148,2,9682,0)=" W !,""  F. CVA/Stroke w/o Neuro Deficit:"",?35,$P(SRAO(""2F""),""^""),?40,""  J. Pregnancy:"",?(79-$L($P(SRAO(""3J""),""^""))),$P(SRAO(""3J""),""^"")"
^XMB(3.9,148,2,9683,0)="""RTN"",""SROAPS2"",43,0)"
^XMB(3.9,148,2,9684,0)=" W !,""  G. Tumor Involving CNS:"",?35,$P(SRAO(""2G""),""^"")"
^XMB(3.9,148,2,9685,0)="""RTN"",""SROAPS2"",44,0)"
^XMB(3.9,148,2,9686,0)=" W !,""  H. Paraplegia:"",?35,$P(SRAO(""2H""),""^"")"
^XMB(3.9,148,2,9687,0)="""RTN"",""SROAPS2"",45,0)"
^XMB(3.9,148,2,9688,0)=" W !,""  I. Quadriplegia:"",?35,$P(SRAO(""2I""),""^"")"
^XMB(3.9,148,2,9689,0)="""RTN"",""SROAPS2"",46,0)"
^XMB(3.9,148,2,9690,0)=" Q"
^XMB(3.9,148,2,9691,0)="""RTN"",""SROAPS2"",47,0)"
^XMB(3.9,148,2,9692,0)="OUT(SRFLD,SRY) ; get data in output form"
^XMB(3.9,148,2,9693,0)="""RTN"",""SROAPS2"",48,0)"
^XMB(3.9,148,2,9694,0)=" N C,Y"
^XMB(3.9,148,2,9695,0)="""RTN"",""SROAPS2"",49,0)"
^XMB(3.9,148,2,9696,0)=" S Y=SRY,C=$P(^DD(130,SRFLD,0),""^"",2) D:Y'="""" Y^DIQ"
^XMB(3.9,148,2,9697,0)="""RTN"",""SROAPS2"",50,0)"
^XMB(3.9,148,2,9698,0)=" I Y=""NO STUDY"" S Y=""NS """
^XMB(3.9,148,2,9699,0)="""RTN"",""SROAPS2"",51,0)"
^XMB(3.9,148,2,9700,0)=" Q Y"
^XMB(3.9,148,2,9701,0)="""RTN"",""SROATCM"")"
^XMB(3.9,148,2,9702,0)="0^54^B25329729^B25457402"
^XMB(3.9,148,2,9703,0)="""RTN"",""SROATCM"",1,0)"
^XMB(3.9,148,2,9704,0)="SROATCM ;BIR/MAM - TRANSMIT CARDIAC ASSESSMENTS ;03/02/06"
^XMB(3.9,148,2,9705,0)="""RTN"",""SROATCM"",2,0)"
^XMB(3.9,148,2,9706,0)=" ;;3.0; Surgery ;**38,55,68,90,93,95,99,125,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,9707,0)="""RTN"",""SROATCM"",3,0)"
^XMB(3.9,148,2,9708,0)=" ;"
^XMB(3.9,148,2,9709,0)="""RTN"",""SROATCM"",4,0)"
^XMB(3.9,148,2,9710,0)=" ; Reference to ^DGPM(""APTT1"" supported by DBIA #565"
^XMB(3.9,148,2,9711,0)="""RTN"",""SROATCM"",5,0)"
^XMB(3.9,148,2,9712,0)=" ; Reference to File #405 supported by DBIA #3029"
^XMB(3.9,148,2,9713,0)="""RTN"",""SROATCM"",6,0)"
^XMB(3.9,148,2,9714,0)=" ; Reference to Field #27.02 in File #2 supported by DBIA #1850"
^XMB(3.9,148,2,9715,0)="""RTN"",""SROATCM"",7,0)"
^XMB(3.9,148,2,9716,0)=" ;"
^XMB(3.9,148,2,9717,0)="""RTN"",""SROATCM"",8,0)"
^XMB(3.9,148,2,9718,0)=" K ^TMP(""SRA"",$J) S SRATOT=0,SRASITE=+$P($$SITE^SROVAR,""^"",3),(SRAMNUM,SRACNT)=1"
^XMB(3.9,148,2,9719,0)="""RTN"",""SROATCM"",9,0)"
^XMB(3.9,148,2,9720,0)=" S SRADFN=0 F  S SRADFN=$O(^SRF(""ARS"",""C"",""C"",SRADFN)) Q:'SRADFN  S SRTN=0 F  S SRTN=$O(^SRF(""ARS"",""C"",""C"",SRADFN,SRTN)) Q:'SRTN  D STUFF"
^XMB(3.9,148,2,9721,0)="""RTN"",""SROATCM"",10,0)"
^XMB(3.9,148,2,9722,0)=" S SRATOTM=SRAMNUM D ^SROATCM2"
^XMB(3.9,148,2,9723,0)="""RTN"",""SROATCM"",11,0)"
^XMB(3.9,148,2,9724,0)=" Q"
^XMB(3.9,148,2,9725,0)="""RTN"",""SROATCM"",12,0)"
^XMB(3.9,148,2,9726,0)="STUFF ; stuff entries into ^TMP(""SRA"",$J"
^XMB(3.9,148,2,9727,0)="""RTN"",""SROATCM"",13,0)"
^XMB(3.9,148,2,9728,0)=" ; check for fouled up ARS x ref"
^XMB(3.9,148,2,9729,0)="""RTN"",""SROATCM"",14,0)"
^XMB(3.9,148,2,9730,0)=" I $P(^SRF(SRTN,""RA""),""^"",2)=""N"" K ^SRF(""ARS"",""C"",""C"",SRADFN,SRTN) K DR S DIE=130,DR=""235///C"",DA=SRTN D ^DIE K DR Q"
^XMB(3.9,148,2,9731,0)="""RTN"",""SROATCM"",15,0)"
^XMB(3.9,148,2,9732,0)=" ; the next line is commented out to allow re-transmissions"
^XMB(3.9,148,2,9733,0)="""RTN"",""SROATCM"",16,0)"
^XMB(3.9,148,2,9734,0)=" ;S SRART=$P(^SRF(SRTN,""RA""),""^"",3) I SRART S DIE=130,DR=""235///T"",DA=SRTN D ^DIE K DR,DA,DIE Q"
^XMB(3.9,148,2,9735,0)="""RTN"",""SROATCM"",17,0)"
^XMB(3.9,148,2,9736,0)=" I $P(^SRF(SRTN,""RA""),""^"",2)'=""C"" Q"
^XMB(3.9,148,2,9737,0)="""RTN"",""SROATCM"",18,0)"
^XMB(3.9,148,2,9738,0)=" I SRACNT>100 S SRACNT=1,SRAMNUM=SRAMNUM+1"
^XMB(3.9,148,2,9739,0)="""RTN"",""SROATCM"",19,0)"
^XMB(3.9,148,2,9740,0)=" S SRATOT=SRATOT+1 K SRA,VADM"
^XMB(3.9,148,2,9741,0)="""RTN"",""SROATCM"",20,0)"
^XMB(3.9,148,2,9742,0)=" F I=0,200,205:1:208 S SRA(I)=$G(SRF(SRTN,I))"
^XMB(3.9,148,2,9743,0)="""RTN"",""SROATCM"",21,0)"
^XMB(3.9,148,2,9744,0)=" D ^SROATCM1,P93"
^XMB(3.9,148,2,9745,0)="""RTN"",""SROATCM"",22,0)"
^XMB(3.9,148,2,9746,0)=" K SHEMP,SRA,VADM,VAPA"
^XMB(3.9,148,2,9747,0)="""RTN"",""SROATCM"",23,0)"
^XMB(3.9,148,2,9748,0)=" S X=$E($P(^SRF(SRTN,0),""^"",9),1,5)_""00"",^TMP(""SRWL"",$J,X)="""""
^XMB(3.9,148,2,9749,0)="""RTN"",""SROATCM"",24,0)"
^XMB(3.9,148,2,9750,0)=" Q"
^XMB(3.9,148,2,9751,0)="""RTN"",""SROATCM"",25,0)"
^XMB(3.9,148,2,9752,0)="P93 ; referring & follow-up sites, patient address & phone number"
^XMB(3.9,148,2,9753,0)="""RTN"",""SROATCM"",26,0)"
^XMB(3.9,148,2,9754,0)=" N SRPREF,SRREF,SRREFP,SRFOL,SRFOLP,SRSOUT,SRY S (SRPREF,SRREF,SRREFP,SRFOL,SRFOLP)="""",SRSOUT=0,(VAIP(""D""),SRSDATE)=$P(SRA(0),""^"",9) D IN5^VADPT"
^XMB(3.9,148,2,9755,0)="""RTN"",""SROATCM"",27,0)"
^XMB(3.9,148,2,9756,0)=" ; if not admitted before surgery, look for admission within 24 hours of leaving OR"
^XMB(3.9,148,2,9757,0)="""RTN"",""SROATCM"",28,0)"
^XMB(3.9,148,2,9758,0)=" I 'VAIP(13) S X1=$P($G(^SRF(SRTN,.2)),""^"",12),X2=1 D C^%DTC S SR24=X,SRDT=$O(^DGPM(""APTT1"",DFN,SRSDATE)) G:'SRDT!(SRDT>SR24) TS S VAIP(""D"")=SRDT D IN5^VADPT"
^XMB(3.9,148,2,9759,0)="""RTN"",""SROATCM"",29,0)"
^XMB(3.9,148,2,9760,0)="TS I VAIP(13) K DA,DIC,DIQ,DR S DIC=405,DR=.05,DA=VAIP(13),DIQ=""SRY"",DIQ(0)=""IE"" D EN^DIQ1 S SRREF=SRY(405,VAIP(13),.05,""E""),SRREFP=SRY(405,VAIP(13),.05,""I"") I SRREFP S SRREFP=$$GET1^DIQ(4,SRREFP,99)"
^XMB(3.9,148,2,9761,0)="""RTN"",""SROATCM"",30,0)"
^XMB(3.9,148,2,9762,0)=" I VAIP(17) K DA,DIC,DIQ,DR,SRY S DIC=405,DR=.05,DA=VAIP(17),DIQ=""SRY"",DIQ(0)=""IE"" D EN^DIQ1 S SRFOL=SRY(405,VAIP(17),.05,""E""),SRFOLP=SRY(405,VAIP(17),.05,""I"") I SRFOLP S SRFOLP=$$GET1^DIQ(4,SRFOLP,99)"
^XMB(3.9,148,2,9763,0)="""RTN"",""SROATCM"",31,0)"
^XMB(3.9,148,2,9764,0)=" S SHEMP=$E(SHEMP,1,11)_"" 18""_$J(VAPA(1),35)_$J(VAPA(2),30),^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SRACNT=SRACNT+1"
^XMB(3.9,148,2,9765,0)="""RTN"",""SROATCM"",32,0)"
^XMB(3.9,148,2,9766,0)=" S SHEMP=$E(SHEMP,1,11)_"" 19""_$J(VAPA(3),30)_$J(VAPA(4),15)"
^XMB(3.9,148,2,9767,0)="""RTN"",""SROATCM"",33,0)"
^XMB(3.9,148,2,9768,0)=" K DA,DIC,DIQ,DR,SRY S X=$P(VAPA(5),""^"") I X S DIC=5,DA=X,DR=1,DIQ=""SRY"",DIQ(0)=""E"" D EN^DIQ1 S X=SRY(5,$P(VAPA(5),""^""),1,""E"")"
^XMB(3.9,148,2,9769,0)="""RTN"",""SROATCM"",34,0)"
^XMB(3.9,148,2,9770,0)=" S SHEMP=SHEMP_$J(X,5),^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SRACNT=SRACNT+1,SHEMP=$E(SHEMP,1,11)_"" 20""_$J(VAPA(8),20)_$J($TR(SRREF,"","","" ""),30)_$J(SRREFP,6)"
^XMB(3.9,148,2,9771,0)="""RTN"",""SROATCM"",35,0)"
^XMB(3.9,148,2,9772,0)=" K DA,DIC,DIQ,DR,SRY S DIC=""^DPT("",DIQ=""SRY"",DIQ(0)=""I"",DA=DFN,DR=27.02 D EN^DIQ1 S X=$G(SRY(2,DFN,27.02,""I"")) I X S SRPREF=$$GET1^DIQ(4,X,99)"
^XMB(3.9,148,2,9773,0)="""RTN"",""SROATCM"",36,0)"
^XMB(3.9,148,2,9774,0)=" S SHEMP=SHEMP_$J(SRPREF,6)"
^XMB(3.9,148,2,9775,0)="""RTN"",""SROATCM"",37,0)"
^XMB(3.9,148,2,9776,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SRACNT=SRACNT+1,SHEMP=$E(SHEMP,1,11)_"" 21""_$J($TR(SRFOL,"","","" ""),30)_$J(SRFOLP,6)"
^XMB(3.9,148,2,9777,0)="""RTN"",""SROATCM"",38,0)"
^XMB(3.9,148,2,9778,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SRACNT=SRACNT+1"
^XMB(3.9,148,2,9779,0)="""RTN"",""SROATCM"",39,0)"
^XMB(3.9,148,2,9780,0)=" S SHEMP=$E(SHEMP,1,11)_"" 22""_$J($P(SRA(201),""^"",21),6)_$J($P(SRA(202),""^"",21),7)_$J($P(SRA(201),""^"",22),6)_$J($P(SRA(202),""^"",22),7)"
^XMB(3.9,148,2,9781,0)="""RTN"",""SROATCM"",40,0)"
^XMB(3.9,148,2,9782,0)=" S SHEMP=SHEMP_$J($P(SRA(201),""^"",23),6)_$J($P(SRA(202),""^"",23),7)_$J($P(SRA(201),""^"",24),6)_$J($P(SRA(202),""^"",24),7)"
^XMB(3.9,148,2,9783,0)="""RTN"",""SROATCM"",41,0)"
^XMB(3.9,148,2,9784,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SRACNT=SRACNT+1"
^XMB(3.9,148,2,9785,0)="""RTN"",""SROATCM"",42,0)"
^XMB(3.9,148,2,9786,0)=" ;"
^XMB(3.9,148,2,9787,0)="""RTN"",""SROATCM"",43,0)"
^XMB(3.9,148,2,9788,0)=" S DFN=$P(^SRF(SRTN,0),""^"") D DEM^VADPT S SHEMP=$E(SHEMP,1,11)_"" 23""_$J($P(SRA(201),""^"",25),6)_$J($P(SRA(202),""^"",25),7)_$J($P(SRA(201),""^"",26),6)_$J($P(SRA(202),""^"",26),7)_$J($P(VADM(3),""^""),7) K VADM"
^XMB(3.9,148,2,9789,0)="""RTN"",""SROATCM"",44,0)"
^XMB(3.9,148,2,9790,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SRACNT=SRACNT+1"
^XMB(3.9,148,2,9791,0)="""RTN"",""SROATCM"",45,0)"
^XMB(3.9,148,2,9792,0)=" S SHEMP=$E(SHEMP,1,11)_"" 24""_$J($P(SRA(208),""^"",10),2)_$J($P(SRA(206),""^"",38),2)_$J($P(SRA(207),""^"",24),2)_$J($P(SRA(207),""^"",25),2)_$J($P(SRA(206),""^"",39),2)"
^XMB(3.9,148,2,9793,0)="""RTN"",""SROATCM"",46,0)"
^XMB(3.9,148,2,9794,0)=" N SR22,SR23 S SR22=$P(SRA(208),""^"",22),SR23=$P(SRA(208),""^"",23)"
^XMB(3.9,148,2,9795,0)="""RTN"",""SROATCM"",47,0)"
^XMB(3.9,148,2,9796,0)=" D NMCS S SHEMP=SHEMP_$J(SRIP,2)_$J("" "",2)_$S(SR22:$J(SR22,12,4),1:$J(SR22,12))_$S(SR23:$J(SR23,12,4),1:$J(SR23,12))_$J($P(SRA(206),""^"",41),2)"
^XMB(3.9,148,2,9797,0)="""RTN"",""SROATCM"",48,0)"
^XMB(3.9,148,2,9798,0)=" S SHEMP=SHEMP_$J($P(SRA(207),""^"",26),3)"
^XMB(3.9,148,2,9799,0)="""RTN"",""SROATCM"",49,0)"
^XMB(3.9,148,2,9800,0)=" ;"
^XMB(3.9,148,2,9801,0)="""RTN"",""SROATCM"",50,0)"
^XMB(3.9,148,2,9802,0)=" N VAINDT,SRPTF,SRRES,SRDISTYP"
^XMB(3.9,148,2,9803,0)="""RTN"",""SROATCM"",51,0)"
^XMB(3.9,148,2,9804,0)=" S VAINDT=$P(SRA(208),""^"",15)-.0001 D INP^VADPT S SRPTF=VAIN(10)"
^XMB(3.9,148,2,9805,0)="""RTN"",""SROATCM"",52,0)"
^XMB(3.9,148,2,9806,0)=" S SRRES="""" D RPC^DGPTFAPI(.SRRES,SRPTF)"
^XMB(3.9,148,2,9807,0)="""RTN"",""SROATCM"",53,0)"
^XMB(3.9,148,2,9808,0)=" S SRRES(0)=$G(SRRES(0)),SRRES(1)=$G(SRRES(1)),SRRES(2)=$G(SRRES(2))"
^XMB(3.9,148,2,9809,0)="""RTN"",""SROATCM"",54,0)"
^XMB(3.9,148,2,9810,0)=" S SRDISTYP=$P(SRRES(1),U)"
^XMB(3.9,148,2,9811,0)="""RTN"",""SROATCM"",55,0)"
^XMB(3.9,148,2,9812,0)=" I SRDISTYP]"""" S SRDISTYP=$S(SRDISTYP=""REGULAR"":1,SRDISTYP=""NBC OR WHILE ASIH"":2,SRDISTYP=""EXPIRATION 6 MONTH LIMIT"":3,SRDISTYP=""IRREGULAR"":4,SRDISTYP=""TRANSFER"":5,SRDISTYP=""DEATH WITH AUTOPSY"":6,SRDISTYP=""DEATH WITHOUT AUTOPSY"":7,1:"""")"
^XMB(3.9,148,2,9813,0)="""RTN"",""SROATCM"",56,0)"
^XMB(3.9,148,2,9814,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP_$J($P(SRRES(1),U,3),7),SRACNT=SRACNT+1"
^XMB(3.9,148,2,9815,0)="""RTN"",""SROATCM"",57,0)"
^XMB(3.9,148,2,9816,0)=" S SHEMP=$E(SHEMP,1,11)_"" 25""_$J(SRDISTYP,2) I $D(SRRES(2)) F I=1:1:9 S SHEMP=SHEMP_$J($P(SRRES(2),""^"",I),7)"
^XMB(3.9,148,2,9817,0)="""RTN"",""SROATCM"",58,0)"
^XMB(3.9,148,2,9818,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SRACNT=SRACNT+1"
^XMB(3.9,148,2,9819,0)="""RTN"",""SROATCM"",59,0)"
^XMB(3.9,148,2,9820,0)=" D ^SROATCM3"
^XMB(3.9,148,2,9821,0)="""RTN"",""SROATCM"",60,0)"
^XMB(3.9,148,2,9822,0)=" Q"
^XMB(3.9,148,2,9823,0)="""RTN"",""SROATCM"",61,0)"
^XMB(3.9,148,2,9824,0)="NMCS S SRIP=$P(SRA(206),""^"",40) I SRIP'=""Y"" Q"
^XMB(3.9,148,2,9825,0)="""RTN"",""SROATCM"",62,0)"
^XMB(3.9,148,2,9826,0)=" N SROCC S SROCC=0 F  S SROCC=$O(^SRF(SRTN,10,SROCC)) Q:'SROCC  I $P(^SRF(SRTN,10,SROCC,0),""^"",2)=34 S SRIP=""I"" Q"
^XMB(3.9,148,2,9827,0)="""RTN"",""SROATCM"",63,0)"
^XMB(3.9,148,2,9828,0)=" I SRIP=""Y"" S SROCC=0 F  S SROCC=$O(^SRF(SRTN,16,SROCC)) Q:'SROCC  I $P(^SRF(SRTN,16,SROCC,0),""^"",2)=34 S SRIP=""P"" Q"
^XMB(3.9,148,2,9829,0)="""RTN"",""SROATCM"",64,0)"
^XMB(3.9,148,2,9830,0)=" Q"
^XMB(3.9,148,2,9831,0)="""RTN"",""SROATCM1"")"
^XMB(3.9,148,2,9832,0)="0^55^B51278524^B51869518"
^XMB(3.9,148,2,9833,0)="""RTN"",""SROATCM1"",1,0)"
^XMB(3.9,148,2,9834,0)="SROATCM1 ;BIR/MAM - STUFF TRANMISSION IN ^TMP ;06/08/06"
^XMB(3.9,148,2,9835,0)="""RTN"",""SROATCM1"",2,0)"
^XMB(3.9,148,2,9836,0)=" ;;3.0; Surgery ;**38,71,79,90,88,93,95,111,125,135,134,142,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,9837,0)="""RTN"",""SROATCM1"",3,0)"
^XMB(3.9,148,2,9838,0)=" K SRA F I=0,.2,200,201,202,205:1:208,207.1,209,202.1,200.1 S SRA(I)=$G(^SRF(SRTN,I))"
^XMB(3.9,148,2,9839,0)="""RTN"",""SROATCM1"",4,0)"
^XMB(3.9,148,2,9840,0)=" S DFN=$P(SRA(0),""^"") N I D DEM^VADPT S SRANAME=VADM(1),SEX=$P(VADM(5),""^""),Z=$P(VADM(3),""^""),SRSDATE=$P(SRA(0),""^"",9),Y=$E(SRSDATE,1,7),AGE=$E(Y,1,3)-$E(Z,1,3)-($E(Y,4,7)<$E(Z,4,7))"
^XMB(3.9,148,2,9841,0)="""RTN"",""SROATCM1"",5,0)"
^XMB(3.9,148,2,9842,0)=" S SHEMP=""~""_$J(SRASITE,3)_$J(SRTN,7)_"" 1 ""_DT_$J(AGE,3)_$J(SEX,1)_$J(SRSDATE,12,4)_VA(""PID"")"
^XMB(3.9,148,2,9843,0)="""RTN"",""SROATCM1"",6,0)"
^XMB(3.9,148,2,9844,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SHEMP=$E(SHEMP,1,11)_"" 2 "",SRACNT=SRACNT+1"
^XMB(3.9,148,2,9845,0)="""RTN"",""SROATCM1"",7,0)"
^XMB(3.9,148,2,9846,0)=" S SRHD=$P(SRA(206),""^"")"
^XMB(3.9,148,2,9847,0)="""RTN"",""SROATCM1"",8,0)"
^XMB(3.9,148,2,9848,0)=" I SRHD[""C"" S SRH=""C"",SRHD=$E(SRHD,1,$L(SRHD)-1)"
^XMB(3.9,148,2,9849,0)="""RTN"",""SROATCM1"",9,0)"
^XMB(3.9,148,2,9850,0)=" E  S SRH="" """
^XMB(3.9,148,2,9851,0)="""RTN"",""SROATCM1"",10,0)"
^XMB(3.9,148,2,9852,0)=" S SRWD=$P(SRA(206),""^"",2)"
^XMB(3.9,148,2,9853,0)="""RTN"",""SROATCM1"",11,0)"
^XMB(3.9,148,2,9854,0)=" I SRWD[""K"" S SRW=""K"",SRWD=$E(SRWD,1,$L(SRWD)-1)"
^XMB(3.9,148,2,9855,0)="""RTN"",""SROATCM1"",12,0)"
^XMB(3.9,148,2,9856,0)=" E  S SRW="" """
^XMB(3.9,148,2,9857,0)="""RTN"",""SROATCM1"",13,0)"
^XMB(3.9,148,2,9858,0)=" S SHEMP=SHEMP_$J(SRHD,3)_SRH_$J(SRWD,3)_SRW_$J($P(SRA(200),""^"",2),2)_$J($P(SRA(200),""^"",11),2)_$J($P(SRA(206),""^"",5),3)_$J($P(SRA(206),""^"",6),2)_$J($P(SRA(206),""^"",7),2)"
^XMB(3.9,148,2,9859,0)="""RTN"",""SROATCM1"",14,0)"
^XMB(3.9,148,2,9860,0)=" S SRCT=$P($G(^SRF(SRTN,201)),""^"",4) S:SRCT[""NS"" SRCT="""""
^XMB(3.9,148,2,9861,0)="""RTN"",""SROATCM1"",15,0)"
^XMB(3.9,148,2,9862,0)=" S SHEMP=SHEMP_$J($P(SRA(200.1),""^"",5),2)_$J(SRCT,4)_$J($P(SRA(206),""^"",10),2)_$J($P(SRA(206),""^"",11),2)_$J($P(SRA(200),""^"",8),2)_$J("" "",2)_$J($P(SRA(206),""^"",14),2)_$J("" "",2)"
^XMB(3.9,148,2,9863,0)="""RTN"",""SROATCM1"",16,0)"
^XMB(3.9,148,2,9864,0)=" S SHEMP=SHEMP_$J($P(SRA(206),""^"",16),2)_$J($P(SRA(206),""^"",17),2)_$J($P(SRA(206),""^"",18),3)_$J($P(SRA(206),""^"",19),3)_$J($P(SRA(206),""^"",20),2)_$J($P(SRA(206),""^"",21),2)_$J($P(SRA(206),""^"",22),2)_$J($P(SRA(206),""^"",23),2)"
^XMB(3.9,148,2,9865,0)="""RTN"",""SROATCM1"",17,0)"
^XMB(3.9,148,2,9866,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SHEMP=$E(SHEMP,1,11)_"" 3 "",SRACNT=SRACNT+1"
^XMB(3.9,148,2,9867,0)="""RTN"",""SROATCM1"",18,0)"
^XMB(3.9,148,2,9868,0)=" S SHEMP=SHEMP_$J($P(SRA(206),""^"",24),2)_$J($P(SRA(206),""^"",25),3)_$J($P(SRA(206),""^"",26),3)_$J($P(SRA(206),""^"",27),3)"
^XMB(3.9,148,2,9869,0)="""RTN"",""SROATCM1"",19,0)"
^XMB(3.9,148,2,9870,0)=" ; Left Main (node 3 pos 26-28), LAD (node 3 pos 29-31), Right Coronary (node 3 pos 32-34) & Circumflex Stenosis (node 3 pos 35-37)"
^XMB(3.9,148,2,9871,0)="""RTN"",""SROATCM1"",20,0)"
^XMB(3.9,148,2,9872,0)=" S SHEMP=SHEMP_$J($P(SRA(206),""^"",28),3)_$J($P($G(SRA(206)),""^"",33),3)_$J($P($G(SRA(206)),""^"",34),3)_$J($P($G(SRA(206)),""^"",35),3)"
^XMB(3.9,148,2,9873,0)="""RTN"",""SROATCM1"",21,0)"
^XMB(3.9,148,2,9874,0)=" ; LV Cont Grade (node 3 pos 39-40) & Mitral Regurgitation(node 3 pos 41-42)"
^XMB(3.9,148,2,9875,0)="""RTN"",""SROATCM1"",22,0)"
^XMB(3.9,148,2,9876,0)=" N SROLV S SROLV=$P(SRA(206),""^"",30)"
^XMB(3.9,148,2,9877,0)="""RTN"",""SROATCM1"",23,0)"
^XMB(3.9,148,2,9878,0)=" S SHEMP=SHEMP_$J($S(SROLV=""IIIa"":""3A"",SROLV=""IIIb"":""3B"",1:SROLV),3)_$J($P($G(SRA(206)),""^"",9),2)"
^XMB(3.9,148,2,9879,0)="""RTN"",""SROATCM1"",24,0)"
^XMB(3.9,148,2,9880,0)=" ; Estimate of Mortality and ASA Class are changed to not transmit ""NS"""
^XMB(3.9,148,2,9881,0)="""RTN"",""SROATCM1"",25,0)"
^XMB(3.9,148,2,9882,0)=" S SREMDATE=$P($G(SRA(206)),""^"",32)"
^XMB(3.9,148,2,9883,0)="""RTN"",""SROATCM1"",26,0)"
^XMB(3.9,148,2,9884,0)=" S SREMO=$P($G(^SRF(SRTN,206)),""^"",31) S:SREMO[""NS"" SREMDATE="""""
^XMB(3.9,148,2,9885,0)="""RTN"",""SROATCM1"",27,0)"
^XMB(3.9,148,2,9886,0)=" ; Estimate of Mortality (node 3 pos 43-45) & date (node 3 pos 46-57)"
^XMB(3.9,148,2,9887,0)="""RTN"",""SROATCM1"",28,0)"
^XMB(3.9,148,2,9888,0)=" S SHEMP=SHEMP_$J(SREMO,3)"
^XMB(3.9,148,2,9889,0)="""RTN"",""SROATCM1"",29,0)"
^XMB(3.9,148,2,9890,0)=" S SHEMP=SHEMP_$S(SREMDATE="""":$J(SREMDATE,12),1:$J(SREMDATE,12,4))"
^XMB(3.9,148,2,9891,0)="""RTN"",""SROATCM1"",30,0)"
^XMB(3.9,148,2,9892,0)=" S X="""",Y=$P($G(^SRF(SRTN,1.1)),""^"",3) S:Y X=$P($P($G(^SRO(132.8,Y,0)),""^""),""-"") S X=$E(X) S:X[""N"" X="""""
^XMB(3.9,148,2,9893,0)="""RTN"",""SROATCM1"",31,0)"
^XMB(3.9,148,2,9894,0)=" S SHEMP=SHEMP_$J(X,1)"
^XMB(3.9,148,2,9895,0)="""RTN"",""SROATCM1"",32,0)"
^XMB(3.9,148,2,9896,0)=" ; Cardiac Est. of Surg. Priority(node 3 pos 59) & date(node 3 pos 60-71)"
^XMB(3.9,148,2,9897,0)="""RTN"",""SROATCM1"",33,0)"
^XMB(3.9,148,2,9898,0)=" S SHEMP=SHEMP_$J($P($G(SRA(208)),""^"",12),1)"
^XMB(3.9,148,2,9899,0)="""RTN"",""SROATCM1"",34,0)"
^XMB(3.9,148,2,9900,0)=" N SREMSPDT S SREMSPDT=$P($G(SRA(208)),""^"",13)"
^XMB(3.9,148,2,9901,0)="""RTN"",""SROATCM1"",35,0)"
^XMB(3.9,148,2,9902,0)=" S SHEMP=SHEMP_$S(SREMSPDT="""":$J(SREMSPDT,12),1:$J(SREMSPDT,12,4))"
^XMB(3.9,148,2,9903,0)="""RTN"",""SROATCM1"",36,0)"
^XMB(3.9,148,2,9904,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SHEMP=$E(SHEMP,1,11)_"" 4 "",SRACNT=SRACNT+1"
^XMB(3.9,148,2,9905,0)="""RTN"",""SROATCM1"",37,0)"
^XMB(3.9,148,2,9906,0)=" S SHEMP=SHEMP_$J($P(SRA(207),""^""),2)_$J($P(SRA(207),""^"",2),2)_$J($P(SRA(207),""^"",3),2)_$J($P(SRA(207),""^"",4),2)_$J($P(SRA(207),""^"",5),2)_$J("" "",2)_$J($P(SRA(207),""^"",7),2)"
^XMB(3.9,148,2,9907,0)="""RTN"",""SROATCM1"",38,0)"
^XMB(3.9,148,2,9908,0)=" S SHEMP=SHEMP_$J($P(SRA(207),""^"",8),2)_$J($P(SRA(207),""^"",9),2)_$J($P(SRA(207),""^"",10),2)_$J($P(SRA(207),""^"",12),2)_$J($P(SRA(207),""^"",13),2)_$J($P(SRA(207),""^"",14),2)_$J($P(SRA(207),""^"",15),2)"
^XMB(3.9,148,2,9909,0)="""RTN"",""SROATCM1"",39,0)"
^XMB(3.9,148,2,9910,0)=" S SHEMP=SHEMP_$J($P(SRA(207),""^"",16),2)_$J($P(SRA(207),""^"",17),2)_$J($P(SRA(207),""^"",18),2)_""  """
^XMB(3.9,148,2,9911,0)="""RTN"",""SROATCM1"",40,0)"
^XMB(3.9,148,2,9912,0)=" S SRDEATH=$P($G(SRA(208)),""^""),SRDDATE=$E($P($G(^DPT(DFN,.35)),""^""),1,12) I SRDDATE'="""" S SRDDATE=$$LJ^XLFSTR(SRDDATE,12,0)"
^XMB(3.9,148,2,9913,0)="""RTN"",""SROATCM1"",41,0)"
^XMB(3.9,148,2,9914,0)=" S SHEMP=SHEMP_$J(SRDEATH,2)_$J(SRDDATE,12)"
^XMB(3.9,148,2,9915,0)="""RTN"",""SROATCM1"",42,0)"
^XMB(3.9,148,2,9916,0)=" S SHEMP=SHEMP_$P(SRA(207),""^"",20)"
^XMB(3.9,148,2,9917,0)="""RTN"",""SROATCM1"",43,0)"
^XMB(3.9,148,2,9918,0)=" ; transmit no data in node 5"
^XMB(3.9,148,2,9919,0)="""RTN"",""SROATCM1"",44,0)"
^XMB(3.9,148,2,9920,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SHEMP=$E(SHEMP,1,11)_"" 5 "",SRACNT=SRACNT+1"
^XMB(3.9,148,2,9921,0)="""RTN"",""SROATCM1"",45,0)"
^XMB(3.9,148,2,9922,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SHEMP=$E(SHEMP,1,11)_"" 6 "",SRACNT=SRACNT+1"
^XMB(3.9,148,2,9923,0)="""RTN"",""SROATCM1"",46,0)"
^XMB(3.9,148,2,9924,0)=" S SHEMP=SHEMP_$J($P(SRA(208),""^"",2),2)_$J($P(SRA(208),""^"",3),2)_$J($P(SRA(205),""^"",17),2)_$J($P(SRA(208),""^"",4),2)_$J($P(SRA(208),""^"",5),2)_$J($P(SRA(205),""^"",28),2)_$J($P(SRA(208),""^"",6),2)"
^XMB(3.9,148,2,9925,0)="""RTN"",""SROATCM1"",47,0)"
^XMB(3.9,148,2,9926,0)=" N SRRCS D RCSP S SHEMP=SHEMP_$J($P(SRA(205),""^"",13),2)_$J(SRRCS,2)_$J($P(SRA(205),""^"",22),2)_$J($P(SRA(205),""^"",21),2)"
^XMB(3.9,148,2,9927,0)="""RTN"",""SROATCM1"",48,0)"
^XMB(3.9,148,2,9928,0)=" N SRIP D CPR S SHEMP=SHEMP_$J(SRIP,2)"
^XMB(3.9,148,2,9929,0)="""RTN"",""SROATCM1"",49,0)"
^XMB(3.9,148,2,9930,0)=" ;"
^XMB(3.9,148,2,9931,0)="""RTN"",""SROATCM1"",50,0)"
^XMB(3.9,148,2,9932,0)=" ;Ethnicity contained in VADM(11)"
^XMB(3.9,148,2,9933,0)="""RTN"",""SROATCM1"",51,0)"
^XMB(3.9,148,2,9934,0)=" N SROETCD,SROPTF S SROETCD="""",SROPTF="""""
^XMB(3.9,148,2,9935,0)="""RTN"",""SROATCM1"",52,0)"
^XMB(3.9,148,2,9936,0)=" S SROETCD=$P($G(VADM(11,1)),U,1)            ;Ethnicity code"
^XMB(3.9,148,2,9937,0)="""RTN"",""SROATCM1"",53,0)"
^XMB(3.9,148,2,9938,0)=" S SROPTF=$$PTR2CODE^DGUTL4(SROETCD,2,4)     ;PTF Ethnicity code"
^XMB(3.9,148,2,9939,0)="""RTN"",""SROATCM1"",54,0)"
^XMB(3.9,148,2,9940,0)=" S SHEMP=SHEMP_$J($G(SROPTF),1)   ;Ethnicity"
^XMB(3.9,148,2,9941,0)="""RTN"",""SROATCM1"",55,0)"
^XMB(3.9,148,2,9942,0)=" ;"
^XMB(3.9,148,2,9943,0)="""RTN"",""SROATCM1"",56,0)"
^XMB(3.9,148,2,9944,0)=" ;Multiple races contained in VADM(12)"
^XMB(3.9,148,2,9945,0)="""RTN"",""SROATCM1"",57,0)"
^XMB(3.9,148,2,9946,0)=" N SRORAC,SRORCD,SRORCE S SRORCE=0,SRORAC="""",SRORACE="""",SRORCD="""""
^XMB(3.9,148,2,9947,0)="""RTN"",""SROATCM1"",58,0)"
^XMB(3.9,148,2,9948,0)=" F  S SRORCE=$O(VADM(12,SRORCE)) Q:SRORCE=""""  D"
^XMB(3.9,148,2,9949,0)="""RTN"",""SROATCM1"",59,0)"
^XMB(3.9,148,2,9950,0)=" .S SRORAC=$P($G(VADM(12,SRORCE)),U,1)        ;Race code"
^XMB(3.9,148,2,9951,0)="""RTN"",""SROATCM1"",60,0)"
^XMB(3.9,148,2,9952,0)=" .S SRORCD=$$PTR2CODE^DGUTL4(SRORAC,1,4)     ;PTF race code"
^XMB(3.9,148,2,9953,0)="""RTN"",""SROATCM1"",61,0)"
^XMB(3.9,148,2,9954,0)=" .S SRORACE=SRORACE_$J(SRORCD,1)"
^XMB(3.9,148,2,9955,0)="""RTN"",""SROATCM1"",62,0)"
^XMB(3.9,148,2,9956,0)=" ;"
^XMB(3.9,148,2,9957,0)="""RTN"",""SROATCM1"",63,0)"
^XMB(3.9,148,2,9958,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP_SRORACE  ;Eth, race added"
^XMB(3.9,148,2,9959,0)="""RTN"",""SROATCM1"",64,0)"
^XMB(3.9,148,2,9960,0)=" ;"
^XMB(3.9,148,2,9961,0)="""RTN"",""SROATCM1"",65,0)"
^XMB(3.9,148,2,9962,0)=" S SHEMP=$E(SHEMP,1,11)_"" 7 "",SRACNT=SRACNT+1"
^XMB(3.9,148,2,9963,0)="""RTN"",""SROATCM1"",66,0)"
^XMB(3.9,148,2,9964,0)=" S SHEMP=SHEMP_$TR(SRANAME,"","","" "")"
^XMB(3.9,148,2,9965,0)="""RTN"",""SROATCM1"",67,0)"
^XMB(3.9,148,2,9966,0)=" I $P($G(^SRF(SRTN,""RA"")),""^"",3)=1 S SHEMP=SHEMP_$J(""***RE-TRANSMISSION"",38)"
^XMB(3.9,148,2,9967,0)="""RTN"",""SROATCM1"",68,0)"
^XMB(3.9,148,2,9968,0)=" ; zip code, employ status, hemoglobin, hemo date, serum albumin, albumin date, creatitine date, total ischemic time, min invasive, total cpb time, total pre,post ICU & step down unit LOS,"
^XMB(3.9,148,2,9969,0)="""RTN"",""SROATCM1"",69,0)"
^XMB(3.9,148,2,9970,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SHEMP=$E(SHEMP,1,11)_"" 8 "",SRACNT=SRACNT+1"
^XMB(3.9,148,2,9971,0)="""RTN"",""SROATCM1"",70,0)"
^XMB(3.9,148,2,9972,0)=" K VADM D ADD^VADPT S X=$S($P(VAPA(11),""^"",2)'="""":$P(VAPA(11),""^"",2),1:VAPA(6))"
^XMB(3.9,148,2,9973,0)="""RTN"",""SROATCM1"",71,0)"
^XMB(3.9,148,2,9974,0)=" S SHEMP=SHEMP_$J(X,10)_$J($P(SRA(208),""^"",18),1)_$J($P(SRA(201),""^"",20),7)_$J($P(SRA(202),""^"",20),7)_$J($P(SRA(201),""^"",8),4)_$J($P(SRA(202),""^"",8),7)_$J($P(SRA(202),""^"",4),7)_$J($P(SRA(206),""^"",36),4)"
^XMB(3.9,148,2,9975,0)="""RTN"",""SROATCM1"",72,0)"
^XMB(3.9,148,2,9976,0)=" S SHEMP=SHEMP_$J($P(SRA(207),""^"",22),1)_$J($P(SRA(206),""^"",37),4)_$J($P(SRA(207),""^"",23),2)"
^XMB(3.9,148,2,9977,0)="""RTN"",""SROATCM1"",73,0)"
^XMB(3.9,148,2,9978,0)=" ; cpt codes"
^XMB(3.9,148,2,9979,0)="""RTN"",""SROATCM1"",74,0)"
^XMB(3.9,148,2,9980,0)="NODE9 S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SHEMP=$E(SHEMP,1,11)_"" 9 "",SRACNT=SRACNT+1"
^XMB(3.9,148,2,9981,0)="""RTN"",""SROATCM1"",75,0)"
^XMB(3.9,148,2,9982,0)=" S SRPMOD="""",SR10SP=""          "",CPT=$P($G(^SRO(136,SRTN,0)),""^"",2) D"
^XMB(3.9,148,2,9983,0)="""RTN"",""SROATCM1"",76,0)"
^XMB(3.9,148,2,9984,0)=" .I CPT S CPT=$P($$CPT^ICPTCOD(CPT),""^"",2),SRCASE=SRTN D MOD^SROATM3 S SRPMOD=SRM"
^XMB(3.9,148,2,9985,0)="""RTN"",""SROATCM1"",77,0)"
^XMB(3.9,148,2,9986,0)=" .S SHEMP=SHEMP_$J(CPT,5),SRPMOD=SRPMOD_SR10SP"
^XMB(3.9,148,2,9987,0)="""RTN"",""SROATCM1"",78,0)"
^XMB(3.9,148,2,9988,0)=" K CPT F I=1:1:10 S (CPT(I),SRMOD(I))="""""
^XMB(3.9,148,2,9989,0)="""RTN"",""SROATCM1"",79,0)"
^XMB(3.9,148,2,9990,0)=" S (OPS,CNT)=0 F  S OPS=$O(^SRO(136,SRTN,3,OPS)) Q:'OPS!(CNT=10)  S CNT=CNT+1,X=$P($G(^SRO(136,SRTN,3,OPS,0)),""^"") I X S CPT(CNT)=$P($$CPT^ICPTCOD(X),""^"",2) D OTH^SROATM3"
^XMB(3.9,148,2,9991,0)="""RTN"",""SROATCM1"",80,0)"
^XMB(3.9,148,2,9992,0)=" S SHEMP=SHEMP_$J(CPT(1),5)_$J(CPT(2),5)_$J(CPT(3),5)_$J(CPT(4),5)_$J(CPT(5),5)_$J(CPT(6),5)_$J(CPT(7),5)_$J(CPT(8),5)_$J(CPT(9),5)_$J(CPT(10),5)"
^XMB(3.9,148,2,9993,0)="""RTN"",""SROATCM1"",81,0)"
^XMB(3.9,148,2,9994,0)=" ; card cath date, admission date/time, hospital discharge date/time, anesthesia start & end date/times"
^XMB(3.9,148,2,9995,0)="""RTN"",""SROATCM1"",82,0)"
^XMB(3.9,148,2,9996,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SHEMP=$E(SHEMP,1,11)_"" 10"",SRACNT=SRACNT+1"
^XMB(3.9,148,2,9997,0)="""RTN"",""SROATCM1"",83,0)"
^XMB(3.9,148,2,9998,0)=" I $P(SRA(207),""^"",21)'="""" D"
^XMB(3.9,148,2,9999,0)="""RTN"",""SROATCM1"",84,0)"
^XMB(3.9,148,2,10000,0)=" .I $E($P(SRA(207),""^"",21),8)=""."" Q"
^XMB(3.9,148,2,10001,0)="""RTN"",""SROATCM1"",85,0)"
^XMB(3.9,148,2,10002,0)=" .E  S $P(SRA(207),""^"",21)=$P(SRA(207),""^"",21)_""."""
^XMB(3.9,148,2,10003,0)="""RTN"",""SROATCM1"",86,0)"
^XMB(3.9,148,2,10004,0)=" S $P(SRA(207),""^"",21)=$$LJ^XLFSTR($P(SRA(207),""^"",21),12,0)"
^XMB(3.9,148,2,10005,0)="""RTN"",""SROATCM1"",87,0)"
^XMB(3.9,148,2,10006,0)=" S SHEMP=SHEMP_$J($E($P(SRA(207),""^"",21),1,12),12)"
^XMB(3.9,148,2,10007,0)="""RTN"",""SROATCM1"",88,0)"
^XMB(3.9,148,2,10008,0)=" S (SRDATE,SRI)="""" F SRI=14,15 S SRDATE=$E($P($G(SRA(208)),""^"",SRI),1,12) S SRDATE=$$LJ^XLFSTR(SRDATE,12,0) S SHEMP=SHEMP_SRDATE"
^XMB(3.9,148,2,10009,0)="""RTN"",""SROATCM1"",89,0)"
^XMB(3.9,148,2,10010,0)=" S (SRDATE,SRI)="""" F SRI=1,4 S SRDATE=$P(SRA(.2),""^"",SRI) S SRDATE=$$LJ^XLFSTR(SRDATE,12,0) S SHEMP=SHEMP_SRDATE"
^XMB(3.9,148,2,10011,0)="""RTN"",""SROATCM1"",90,0)"
^XMB(3.9,148,2,10012,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SHEMP=$E(SHEMP,1,11)_"" 11"",SRACNT=SRACNT+1"
^XMB(3.9,148,2,10013,0)="""RTN"",""SROATCM1"",91,0)"
^XMB(3.9,148,2,10014,0)=" S (SRDATE,SRI)="""" F SRI=10,12,2,3 S SRDATE=$P(SRA(.2),""^"",SRI),SRDATE=$$LJ^XLFSTR(SRDATE,12,0) S SHEMP=SHEMP_SRDATE"
^XMB(3.9,148,2,10015,0)="""RTN"",""SROATCM1"",92,0)"
^XMB(3.9,148,2,10016,0)=" ; preop risk factors comments"
^XMB(3.9,148,2,10017,0)="""RTN"",""SROATCM1"",93,0)"
^XMB(3.9,148,2,10018,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SHEMP=$E(SHEMP,1,11)_"" 12"",SRACNT=SRACNT+1 S SHEMP=SHEMP_$TR($E($G(^SRF(SRTN,206.1)),1,65),"","",""^"")"
^XMB(3.9,148,2,10019,0)="""RTN"",""SROATCM1"",94,0)"
^XMB(3.9,148,2,10020,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SHEMP=$E(SHEMP,1,11)_"" 13"",SRACNT=SRACNT+1 S SHEMP=SHEMP_$TR($E($G(^SRF(SRTN,206.1)),66,130),"","",""^"")"
^XMB(3.9,148,2,10021,0)="""RTN"",""SROATCM1"",95,0)"
^XMB(3.9,148,2,10022,0)=" ; resource data comments"
^XMB(3.9,148,2,10023,0)="""RTN"",""SROATCM1"",96,0)"
^XMB(3.9,148,2,10024,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SHEMP=$E(SHEMP,1,11)_"" 14"",SRACNT=SRACNT+1 S SHEMP=SHEMP_$TR($E($G(^SRF(SRTN,206.2)),1,65),"","",""^"")"
^XMB(3.9,148,2,10025,0)="""RTN"",""SROATCM1"",97,0)"
^XMB(3.9,148,2,10026,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SHEMP=$E(SHEMP,1,11)_"" 15"",SRACNT=SRACNT+1 S SHEMP=SHEMP_$TR($E($G(^SRF(SRTN,206.2)),66,130),"","",""^"")"
^XMB(3.9,148,2,10027,0)="""RTN"",""SROATCM1"",98,0)"
^XMB(3.9,148,2,10028,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SRACNT=SRACNT+1,SHEMP=$E(SHEMP,1,11)_"" 16""_$E(SRPMOD,1,10) F I=1:1:5 S SHEMP=SHEMP_$E(SRMOD(I)_SR10SP,1,10)"
^XMB(3.9,148,2,10029,0)="""RTN"",""SROATCM1"",99,0)"
^XMB(3.9,148,2,10030,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SRACNT=SRACNT+1,SHEMP=$E(SHEMP,1,11)_"" 17"" F I=6:1:10 S SHEMP=SHEMP_$E(SRMOD(I)_SR10SP,1,10)"
^XMB(3.9,148,2,10031,0)="""RTN"",""SROATCM1"",100,0)"
^XMB(3.9,148,2,10032,0)=" S X=$$SITE^SROUTL0(SRTN),SRDIV=$S(X:$P(^SRO(133,X,0),""^""),1:""""),SRDIV=$S(SRDIV:$$GET1^DIQ(4,SRDIV,99),1:SRASITE),SHEMP=SHEMP_$J(SRDIV,6)"
^XMB(3.9,148,2,10033,0)="""RTN"",""SROATCM1"",101,0)"
^XMB(3.9,148,2,10034,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SRACNT=SRACNT+1"
^XMB(3.9,148,2,10035,0)="""RTN"",""SROATCM1"",102,0)"
^XMB(3.9,148,2,10036,0)=" Q"
^XMB(3.9,148,2,10037,0)="""RTN"",""SROATCM1"",103,0)"
^XMB(3.9,148,2,10038,0)="RCSP S SRRCS=0,X=$P(SRA(208),""^"",7) I X=""N"" Q"
^XMB(3.9,148,2,10039,0)="""RTN"",""SROATCM1"",104,0)"
^XMB(3.9,148,2,10040,0)=" N SROCC S SROCC=0 F  S SROCC=$O(^SRF(SRTN,16,SROCC)) Q:'SROCC  I $P(^SRF(SRTN,16,SROCC,0),""^"",2)=27 S X=$P(^SRF(SRTN,16,SROCC,0),""^"",5) S:X'="""" SRRCS=X Q"
^XMB(3.9,148,2,10041,0)="""RTN"",""SROATCM1"",105,0)"
^XMB(3.9,148,2,10042,0)=" Q"
^XMB(3.9,148,2,10043,0)="""RTN"",""SROATCM1"",106,0)"
^XMB(3.9,148,2,10044,0)="CPR S SRIP=$P(SRA(205),""^"",26) I SRIP'=""Y"" Q"
^XMB(3.9,148,2,10045,0)="""RTN"",""SROATCM1"",107,0)"
^XMB(3.9,148,2,10046,0)=" N SROCC S SROCC=0 F  S SROCC=$O(^SRF(SRTN,10,SROCC)) Q:'SROCC  I $P(^SRF(SRTN,10,SROCC,0),""^"",2)=16 S SRIP=""I"" Q"
^XMB(3.9,148,2,10047,0)="""RTN"",""SROATCM1"",108,0)"
^XMB(3.9,148,2,10048,0)=" I SRIP=""Y"" S SROCC=0 F  S SROCC=$O(^SRF(SRTN,16,SROCC)) Q:'SROCC  I $P(^SRF(SRTN,16,SROCC,0),""^"",2)=16 S SRIP=""P"" Q"
^XMB(3.9,148,2,10049,0)="""RTN"",""SROATCM1"",109,0)"
^XMB(3.9,148,2,10050,0)=" Q"
^XMB(3.9,148,2,10051,0)="""RTN"",""SROATCM2"")"
^XMB(3.9,148,2,10052,0)="0^76^B8920384^B9160554"
^XMB(3.9,148,2,10053,0)="""RTN"",""SROATCM2"",1,0)"
^XMB(3.9,148,2,10054,0)="SROATCM2 ;BIR/MAM - CREATE MESSAGES ;03/22/06"
^XMB(3.9,148,2,10055,0)="""RTN"",""SROATCM2"",2,0)"
^XMB(3.9,148,2,10056,0)=" ;;3.0; Surgery ;**27,38,90,93,125,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,10057,0)="""RTN"",""SROATCM2"",3,0)"
^XMB(3.9,148,2,10058,0)=" S SHEMP=3,SRAMNUM=0 F I=0:0 S SRAMNUM=$O(^TMP(""SRA"",$J,SRAMNUM)) Q:'SRAMNUM  D MSG"
^XMB(3.9,148,2,10059,0)="""RTN"",""SROATCM2"",4,0)"
^XMB(3.9,148,2,10060,0)="STATUS ; update status"
^XMB(3.9,148,2,10061,0)="""RTN"",""SROATCM2"",5,0)"
^XMB(3.9,148,2,10062,0)=" S (SRAMNUM,SRASS)=0"
^XMB(3.9,148,2,10063,0)="""RTN"",""SROATCM2"",6,0)"
^XMB(3.9,148,2,10064,0)=" F I=0:0 S SRAMNUM=$O(^TMP(""SRA"",$J,SRAMNUM)) Q:'SRAMNUM  S SRACNT=0 F I=0:0 S SRACNT=$O(^TMP(""SRA"",$J,SRAMNUM,SRACNT)) Q:'SRACNT  S CURLEY=$E(^TMP(""SRA"",$J,SRAMNUM,SRACNT,0),13,14) I +CURLEY=1 D UPDATE"
^XMB(3.9,148,2,10065,0)="""RTN"",""SROATCM2"",7,0)"
^XMB(3.9,148,2,10066,0)=" I 'SRASS G END"
^XMB(3.9,148,2,10067,0)="""RTN"",""SROATCM2"",8,0)"
^XMB(3.9,148,2,10068,0)=" S X=$$ACTIVE^XUSER(DUZ) I '+X S XMDUZ=.5"
^XMB(3.9,148,2,10069,0)="""RTN"",""SROATCM2"",9,0)"
^XMB(3.9,148,2,10070,0)=" S XMSUB=""CARDIAC ASSESSMENT TRANSMISSION COMPLETE"""
^XMB(3.9,148,2,10071,0)="""RTN"",""SROATCM2"",10,0)"
^XMB(3.9,148,2,10072,0)=" S XMY(""G.RISK ASSESSMENT@""_^XMB(""NETNAME""))="""""
^XMB(3.9,148,2,10073,0)="""RTN"",""SROATCM2"",11,0)"
^XMB(3.9,148,2,10074,0)=" D NOW^%DTC S Y=% D D^DIQ S SRATIME=$E($P(Y,""@"",2),1,5)"
^XMB(3.9,148,2,10075,0)="""RTN"",""SROATCM2"",12,0)"
^XMB(3.9,148,2,10076,0)=" S ^TMP(""SRAMSG"",$J,1,0)=""The Cardiac Surgery Risk Assessment Transmission was completed at ""_SRATIME_""."",^TMP(""SRAMSG"",$J,2,0)=""A total of ""_SRASS_$S(SRASS=1:"" assessment was sent."",1:"" assessments were sent."")"
^XMB(3.9,148,2,10077,0)="""RTN"",""SROATCM2"",13,0)"
^XMB(3.9,148,2,10078,0)=" S ^TMP(""SRAMSG"",$J,3,0)=""  """
^XMB(3.9,148,2,10079,0)="""RTN"",""SROATCM2"",14,0)"
^XMB(3.9,148,2,10080,0)=" S XMTEXT=""^TMP(""""SRAMSG"""",$J,"" N I D ^XMD"
^XMB(3.9,148,2,10081,0)="""RTN"",""SROATCM2"",15,0)"
^XMB(3.9,148,2,10082,0)="END K ^TMP(""SRA"",$J),^TMP(""SRAMSG"",$J) D ^SRSKILL"
^XMB(3.9,148,2,10083,0)="""RTN"",""SROATCM2"",16,0)"
^XMB(3.9,148,2,10084,0)=" Q"
^XMB(3.9,148,2,10085,0)="""RTN"",""SROATCM2"",17,0)"
^XMB(3.9,148,2,10086,0)="MSG ; send message to G.CARDIAC RISK ASSESSMENTS at Denver"
^XMB(3.9,148,2,10087,0)="""RTN"",""SROATCM2"",18,0)"
^XMB(3.9,148,2,10088,0)=" S ISC=0,NAME=$G(^XMB(""NETNAME"")) I NAME[""FORUM""!(NAME[""ISC-"")!($E(NAME,1,3)=""ISC"")!(NAME[""ISC."")!(NAME[""TST"")!(NAME[""FO-"") S ISC=1"
^XMB(3.9,148,2,10089,0)="""RTN"",""SROATCM2"",19,0)"
^XMB(3.9,148,2,10090,0)=" I ISC S XMY(""G.RISK ASSESSMENT@""_^XMB(""NETNAME""))="""""
^XMB(3.9,148,2,10091,0)="""RTN"",""SROATCM2"",20,0)"
^XMB(3.9,148,2,10092,0)=" I 'ISC S (XMY(""G.CARDIAC RISK ASSESSMENTS@DENVER.VA.GOV""),XMY(""G.SRCARDIAC@ISC-CHICAGO.VA.GOV""))="""""
^XMB(3.9,148,2,10093,0)="""RTN"",""SROATCM2"",21,0)"
^XMB(3.9,148,2,10094,0)=" S SRATDATE=$E(DT,4,5)_""/""_$E(DT,6,7)_""/""_$E(DT,2,3)"
^XMB(3.9,148,2,10095,0)="""RTN"",""SROATCM2"",22,0)"
^XMB(3.9,148,2,10096,0)=" S X=$$ACTIVE^XUSER(DUZ) I '+X S XMDUZ=.5"
^XMB(3.9,148,2,10097,0)="""RTN"",""SROATCM2"",23,0)"
^XMB(3.9,148,2,10098,0)=" S XMSUB=$P($$SITE^SROVAR,""^"",2)_"": CICSP (""_SRAMNUM_"" OF ""_SRATOTM_"")  ""_SRATDATE,XMTEXT=""^TMP(""""SRA"""",$J,""_SRAMNUM_"","" N I D ^XMD"
^XMB(3.9,148,2,10099,0)="""RTN"",""SROATCM2"",24,0)"
^XMB(3.9,148,2,10100,0)=" Q"
^XMB(3.9,148,2,10101,0)="""RTN"",""SROATCM2"",25,0)"
^XMB(3.9,148,2,10102,0)="UPDATE ; change status to 'T'"
^XMB(3.9,148,2,10103,0)="""RTN"",""SROATCM2"",26,0)"
^XMB(3.9,148,2,10104,0)=" S MM=$E(^TMP(""SRA"",$J,SRAMNUM,SRACNT,0),5,11) F X=1:1 S EMILY=$P(MM,"" "",X) Q:EMILY"
^XMB(3.9,148,2,10105,0)="""RTN"",""SROATCM2"",27,0)"
^XMB(3.9,148,2,10106,0)=" N I D NOW^%DTC S SRNOW=$E(%,1,7)"
^XMB(3.9,148,2,10107,0)="""RTN"",""SROATCM2"",28,0)"
^XMB(3.9,148,2,10108,0)=" K DR S DA=EMILY,DR=""260////""_SRNOW_"";235///T"",DIE=130 N I D ^DIE"
^XMB(3.9,148,2,10109,0)="""RTN"",""SROATCM2"",29,0)"
^XMB(3.9,148,2,10110,0)=" S SRASS=SRASS+1"
^XMB(3.9,148,2,10111,0)="""RTN"",""SROATCM2"",30,0)"
^XMB(3.9,148,2,10112,0)=" S DFN=$P(^SRF(EMILY,0),""^"") D DEM^VADPT S SRANAME=$P(VADM(1),""^"") K VADM S X=$P(^SRF(EMILY,0),""^"",9),SRADT=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3)"
^XMB(3.9,148,2,10113,0)="""RTN"",""SROATCM2"",31,0)"
^XMB(3.9,148,2,10114,0)=" S SHEMP=SHEMP+1,^TMP(""SRAMSG"",$J,SHEMP,0)=""ASSESSMENT: ""_EMILY_""   ""_$J(SRANAME,20)_""        OPERATION DATE: ""_SRADT"
^XMB(3.9,148,2,10115,0)="""RTN"",""SROATCM2"",32,0)"
^XMB(3.9,148,2,10116,0)=" Q"
^XMB(3.9,148,2,10117,0)="""RTN"",""SROATCM3"")"
^XMB(3.9,148,2,10118,0)="0^72^B12262748^B11697552"
^XMB(3.9,148,2,10119,0)="""RTN"",""SROATCM3"",1,0)"
^XMB(3.9,148,2,10120,0)="SROATCM3 ;BIR/SJA - STUFF TRANMISSION IN ^TMP ;04/10/06"
^XMB(3.9,148,2,10121,0)="""RTN"",""SROATCM3"",2,0)"
^XMB(3.9,148,2,10122,0)=" ;;3.0; Surgery ;**125,135,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,10123,0)="""RTN"",""SROATCM3"",3,0)"
^XMB(3.9,148,2,10124,0)=" N SRDISP,NYUK S SRDISP="""",NYUK=$P(SRRES(1),U,2),SRA(209.1)=$G(^SRF(SRTN,209.1)),SRA(207.1)=$G(^SRF(SRTN,207.1))"
^XMB(3.9,148,2,10125,0)="""RTN"",""SROATCM3"",4,0)"
^XMB(3.9,148,2,10126,0)=" I NYUK'="""" D"
^XMB(3.9,148,2,10127,0)="""RTN"",""SROATCM3"",5,0)"
^XMB(3.9,148,2,10128,0)=" .S SRDISP=$S(NYUK=""BOARDING HOUSE"":16,NYUK=""COMMUNITY HOSPITAL"":6,NYUK=""COMMUNITY NURSING HOME"":8,NYUK=""FOSTER HOME"":14,NYUK=""HALFWAY HOUSE"":15,NYUK=""HOME-BASED PRIMARY CARE (HBPC)"":20,1:NYUK)"
^XMB(3.9,148,2,10129,0)="""RTN"",""SROATCM3"",6,0)"
^XMB(3.9,148,2,10130,0)=" .Q:SRDISP'=NYUK  S SRDISP=$S(NYUK=""HOSPICE CARE"":22,NYUK=""MILITARY HOSPITAL"":3,NYUK=""NURSE CARE CONTD ANOTHER COMM "":10,NYUK=""NURSING CARE CONT AT SAME NURS"":9,NYUK=""OTHER FEDERAL HOSPITAL"":4,1:NYUK)"
^XMB(3.9,148,2,10131,0)="""RTN"",""SROATCM3"",7,0)"
^XMB(3.9,148,2,10132,0)=" .Q:SRDISP'=NYUK  S SRDISP=$S(NYUK=""OTHER GOVERNMENT HOSPITAL"":5,NYUK=""OTHER PLACEMENT/UNKNOWN (NOT S"":19,NYUK=""PENAL INSTITUTION"":17,NYUK=""REFER MEDICARE HOME HEALTH CAR"":25,NYUK=""REFER OTHER AGENCY-PD HOME HEA"":26,1:NYUK)"
^XMB(3.9,148,2,10133,0)="""RTN"",""SROATCM3"",8,0)"
^XMB(3.9,148,2,10134,0)=" .Q:SRDISP'=NYUK  S SRDISP=$S(NYUK=""REFER VA-PD HOME/COMMUNITY HEA"":24,NYUK=""RESIDENTIAL HOTEL/RESIDENT (IE"":18,NYUK=""RESPITE CARE"":23,NYUK=""RETURN TO COMMUNITY-INDEPENDEN"":1,NYUK=""SPINAL CORD INJURY-VACO APPROV"":21,1:NYUK)"
^XMB(3.9,148,2,10135,0)="""RTN"",""SROATCM3"",9,0)"
^XMB(3.9,148,2,10136,0)=" .Q:SRDISP'=NYUK  S SRDISP=$S(NYUK=""STATE HOME"":11,NYUK=""STATE HOME"":13,NYUK=""VA DOMICILLARY"":12,NYUK=""VA MEDICAL CENTER"":2,NYUK=""VA NURSING HOME CARE UNIT (NHC"":7,1:"""")"
^XMB(3.9,148,2,10137,0)="""RTN"",""SROATCM3"",10,0)"
^XMB(3.9,148,2,10138,0)=" ;"
^XMB(3.9,148,2,10139,0)="""RTN"",""SROATCM3"",11,0)"
^XMB(3.9,148,2,10140,0)="LN26 S SHEMP=$E(SHEMP,1,11)_"" 26""_$J(SRDISP,2)_$J($P(SRA(206),""^"",13),2)_$J($P(SRA(206),""^"",15),2)_$J($P(SRA(207),""^"",6),2)_$J($P(SRA(207),""^"",27),2)_$J($P(SRA(209),""^""),2)_$J($P(SRA(209),""^"",2),2)"
^XMB(3.9,148,2,10141,0)="""RTN"",""SROATCM3"",12,0)"
^XMB(3.9,148,2,10142,0)=" S SHEMP=SHEMP_$J($P(SRA(209),""^"",3),2)_$J($P(SRA(209),""^"",4),2)_$J($P(SRA(209),""^"",5),2)_$J($P(SRA(209),""^"",6),3)_$J($P(SRA(209),""^"",7),3)_$J($P(SRA(209),""^"",8),3)_$J($P(SRA(209),""^"",9),2)_$J($P(SRA(209),""^"",10),2)"
^XMB(3.9,148,2,10143,0)="""RTN"",""SROATCM3"",13,0)"
^XMB(3.9,148,2,10144,0)=" S X=$P(SRA(206),""^"",42),Y="""" F I=1:1:5 S Y=Y_$P(X,"","",I)"
^XMB(3.9,148,2,10145,0)="""RTN"",""SROATCM3"",14,0)"
^XMB(3.9,148,2,10146,0)=" S SHEMP=SHEMP_$J($P(SRA(209),""^"",11),2)_$J(Y,5)"
^XMB(3.9,148,2,10147,0)="""RTN"",""SROATCM3"",15,0)"
^XMB(3.9,148,2,10148,0)=" S X=$P(SRA(209),""^"",12) S:X="""" X=""N"" S SHEMP=SHEMP_$J(X,2)"
^XMB(3.9,148,2,10149,0)="""RTN"",""SROATCM3"",16,0)"
^XMB(3.9,148,2,10150,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SRACNT=SRACNT+1"
^XMB(3.9,148,2,10151,0)="""RTN"",""SROATCM3"",17,0)"
^XMB(3.9,148,2,10152,0)="LN27 ;Line #27 - Other Cardiac Procedures"
^XMB(3.9,148,2,10153,0)="""RTN"",""SROATCM3"",18,0)"
^XMB(3.9,148,2,10154,0)=" S SHEMP=$E(SHEMP,1,11)_"" 27""_$TR($E($G(SRA(209.1)),1,65),"","",""^"")"
^XMB(3.9,148,2,10155,0)="""RTN"",""SROATCM3"",19,0)"
^XMB(3.9,148,2,10156,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SRACNT=SRACNT+1"
^XMB(3.9,148,2,10157,0)="""RTN"",""SROATCM3"",20,0)"
^XMB(3.9,148,2,10158,0)="LN28 ;Lines 28 - New fields added in 2006 update"
^XMB(3.9,148,2,10159,0)="""RTN"",""SROATCM3"",21,0)"
^XMB(3.9,148,2,10160,0)=" S SHEMP=$E(SHEMP,1,11)_"" 28""_$J($P(SRA(209),""^"",13),2)_$J($P(SRA(209),""^"",14),2)_$J($P(SRA(207.1),""^"",2),2)_$J($P(SRA(201),""^"",28),6)_$J($P(SRA(202.1),""^""),7)"
^XMB(3.9,148,2,10161,0)="""RTN"",""SROATCM3"",22,0)"
^XMB(3.9,148,2,10162,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SRACNT=SRACNT+1"
^XMB(3.9,148,2,10163,0)="""RTN"",""SROATCM3"",23,0)"
^XMB(3.9,148,2,10164,0)=" Q"
^XMB(3.9,148,2,10165,0)="""RTN"",""SROATM1"")"
^XMB(3.9,148,2,10166,0)="0^31^B23786520^B23076488"
^XMB(3.9,148,2,10167,0)="""RTN"",""SROATM1"",1,0)"
^XMB(3.9,148,2,10168,0)="SROATM1 ;BIR/MAM - NON CARDIAC TRANSMISSION ;03/30/06"
^XMB(3.9,148,2,10169,0)="""RTN"",""SROATM1"",2,0)"
^XMB(3.9,148,2,10170,0)=" ;;3.0; Surgery ;**27,38,47,60,62,81,88,93,95,125,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,10171,0)="""RTN"",""SROATM1"",3,0)"
^XMB(3.9,148,2,10172,0)=" ;** NOTICE: This routine is part of an implementation of a nationally"
^XMB(3.9,148,2,10173,0)="""RTN"",""SROATM1"",4,0)"
^XMB(3.9,148,2,10174,0)=" ;**         controlled procedure. Local modifications to this routine"
^XMB(3.9,148,2,10175,0)="""RTN"",""SROATM1"",5,0)"
^XMB(3.9,148,2,10176,0)=" ;**         are prohibited."
^XMB(3.9,148,2,10177,0)="""RTN"",""SROATM1"",6,0)"
^XMB(3.9,148,2,10178,0)=" ;"
^XMB(3.9,148,2,10179,0)="""RTN"",""SROATM1"",7,0)"
^XMB(3.9,148,2,10180,0)=" ; Reference to ^DIC(45.3 supported by DBIA #218"
^XMB(3.9,148,2,10181,0)="""RTN"",""SROATM1"",8,0)"
^XMB(3.9,148,2,10182,0)=" ;"
^XMB(3.9,148,2,10183,0)="""RTN"",""SROATM1"",9,0)"
^XMB(3.9,148,2,10184,0)=" N SRINTUB F I=0,200,200.1,206 S SRA(I)=$G(^SRF(SRTN,I))"
^XMB(3.9,148,2,10185,0)="""RTN"",""SROATM1"",10,0)"
^XMB(3.9,148,2,10186,0)=" S DFN=$P(SRA(0),""^"") N I D DEM^VADPT S SRANAME=VADM(1),SEX=$P(VADM(5),""^""),Z=$P(VADM(3),""^""),SRSDATE=$E($P(SRA(0),""^"",9),1,12),Y=$E(SRSDATE,1,7),AGE=$E(Y,1,3)-$E(Z,1,3)-($E(Y,4,7)<$E(Z,4,7))"
^XMB(3.9,148,2,10187,0)="""RTN"",""SROATM1"",11,0)"
^XMB(3.9,148,2,10188,0)=" S X=$$SITE^SROUTL0(SRTN),SRDIV=$S(X:$P(^SRO(133,X,0),""^""),1:""""),SRDIV=$S(SRDIV:$$GET1^DIQ(4,SRDIV,99),1:SRASITE)"
^XMB(3.9,148,2,10189,0)="""RTN"",""SROATM1"",12,0)"
^XMB(3.9,148,2,10190,0)=" S SHEMP=""!""_$J(SRASITE,3)_$J(SRTN,7)_""  1""_DT_$J(AGE,3)_$J(SEX,1)_$J(SRSDATE,12)_$J(VA(""PID""),20)_$J(SRDIV,6)"
^XMB(3.9,148,2,10191,0)="""RTN"",""SROATM1"",13,0)"
^XMB(3.9,148,2,10192,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SHEMP=$E(SHEMP,1,11)_""  2"",SRACNT=SRACNT+1"
^XMB(3.9,148,2,10193,0)="""RTN"",""SROATM1"",14,0)"
^XMB(3.9,148,2,10194,0)=" S NYUK=$P(SRA(200),""^"",2) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(200),""^"",3) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(200),""^"",4) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(200.1),""^"",2) D ONE S SHEMP=SHEMP_MOE"
^XMB(3.9,148,2,10195,0)="""RTN"",""SROATM1"",15,0)"
^XMB(3.9,148,2,10196,0)=" S NYUK=$P(SRA(200),""^"",6) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(200),""^"",7) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(200),""^"",8) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(200),""^"",10) D ONE S SHEMP=SHEMP_MOE"
^XMB(3.9,148,2,10197,0)="""RTN"",""SROATM1"",16,0)"
^XMB(3.9,148,2,10198,0)=" S NYUK=$P(SRA(200),""^"",11) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(200),""^"",12) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(200),""^"",14) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(200),""^"",15) D ONE S SHEMP=SHEMP_MOE"
^XMB(3.9,148,2,10199,0)="""RTN"",""SROATM1"",17,0)"
^XMB(3.9,148,2,10200,0)=" S NYUK=$P(SRA(200),""^"",16) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(200),""^"",17) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(200),""^"",31) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(200),""^"",32) D ONE S SHEMP=SHEMP_MOE"
^XMB(3.9,148,2,10201,0)="""RTN"",""SROATM1"",18,0)"
^XMB(3.9,148,2,10202,0)=" S NYUK=$P(SRA(200),""^"",33) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(200),""^"",34) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(200),""^"",35) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(200),""^"",36) D ONE S SHEMP=SHEMP_MOE"
^XMB(3.9,148,2,10203,0)="""RTN"",""SROATM1"",19,0)"
^XMB(3.9,148,2,10204,0)=" S NYUK=$P(SRA(200),""^"",38) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(200),""^"",39) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(200),""^"",41) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(200),""^"",42) D ONE S SHEMP=SHEMP_MOE"
^XMB(3.9,148,2,10205,0)="""RTN"",""SROATM1"",20,0)"
^XMB(3.9,148,2,10206,0)=" S NYUK=$P(SRA(200),""^"",43) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(200),""^"",19) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(200),""^"",20) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(200),""^"",21) D ONE S SHEMP=SHEMP_MOE"
^XMB(3.9,148,2,10207,0)="""RTN"",""SROATM1"",21,0)"
^XMB(3.9,148,2,10208,0)=" S NYUK=$P(SRA(200),""^"",22) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(200),""^"",23) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(200),""^"",24) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(200),""^"",25) D ONE S SHEMP=SHEMP_MOE"
^XMB(3.9,148,2,10209,0)="""RTN"",""SROATM1"",22,0)"
^XMB(3.9,148,2,10210,0)=" S NYUK=$P(SRA(200),""^"",26) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(200),""^"",27) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(200),""^"",28) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(200),""^"",29) D ONE S SHEMP=SHEMP_MOE"
^XMB(3.9,148,2,10211,0)="""RTN"",""SROATM1"",23,0)"
^XMB(3.9,148,2,10212,0)=" S NYUK=$P(SRA(200),""^"",45) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(200),""^"",46) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(200),""^"",47) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(200),""^"",48) D ONE S SHEMP=SHEMP_MOE"
^XMB(3.9,148,2,10213,0)="""RTN"",""SROATM1"",24,0)"
^XMB(3.9,148,2,10214,0)=" S NYUK=$P(SRA(200),""^"",49) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(200),""^"",50) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(200.1),""^"",3),SHEMP=SHEMP_$J(NYUK,2)"
^XMB(3.9,148,2,10215,0)="""RTN"",""SROATM1"",25,0)"
^XMB(3.9,148,2,10216,0)=" S NYUK=$P(SRA(0),""^"",4) S:NYUK NYUK=$E($P(^DIC(45.3,$P(^SRO(137.45,NYUK,0),""^"",2),0),""^""),1,3) S SHEMP=SHEMP_$J(NYUK,3)"
^XMB(3.9,148,2,10217,0)="""RTN"",""SROATM1"",26,0)"
^XMB(3.9,148,2,10218,0)=" S NYUK=$P(SRA(200),""^"",52),SHEMP=SHEMP_$J(NYUK,2),X=$P(SRA(0),""^"",10),NYUK=$S(X=""EM"":""Y"",1:""N"") D ONE S SHEMP=SHEMP_MOE"
^XMB(3.9,148,2,10219,0)="""RTN"",""SROATM1"",27,0)"
^XMB(3.9,148,2,10220,0)=" S NYUK=$P($G(^SRF(SRTN,""1.0"")),""^"",8),SHEMP=SHEMP_$J(NYUK,2),NYUK=$P(SRA(200),""^"",53) D ONE S SHEMP=SHEMP_MOE"
^XMB(3.9,148,2,10221,0)="""RTN"",""SROATM1"",28,0)"
^XMB(3.9,148,2,10222,0)=" S SRASA="""",Y=$P($G(^SRF(SRTN,1.1)),""^"",3) S:Y X=$P($P($G(^SRO(132.8,Y,0)),""^""),""-""),SRASA=X S NYUK=$E(SRASA,1,1) D ONE S SHEMP=SHEMP_MOE"
^XMB(3.9,148,2,10223,0)="""RTN"",""SROATM1"",29,0)"
^XMB(3.9,148,2,10224,0)=" K SRTECH,SRZ,SRTRAUMA S SRT=0 F  S SRT=$O(^SRF(SRTN,6,SRT)) Q:'SRT  D ^SROPRIN Q:$D(SRZ)"
^XMB(3.9,148,2,10225,0)="""RTN"",""SROATM1"",30,0)"
^XMB(3.9,148,2,10226,0)=" I $D(SRTECH) S SRTRAUMA=$P(^SRF(SRTN,6,SRT,0),""^"",14),SRINTUB=$P($G(^SRF(SRTN,6,SRT,8)),""^"",2)"
^XMB(3.9,148,2,10227,0)="""RTN"",""SROATM1"",31,0)"
^XMB(3.9,148,2,10228,0)=" I '$D(SRTECH) S (SRTECH,SRTRAUMA,SRINTUB)="""""
^XMB(3.9,148,2,10229,0)="""RTN"",""SROATM1"",32,0)"
^XMB(3.9,148,2,10230,0)=" S SHEMP=SHEMP_$J(SRTECH,1)_$J($E(SRASA,2),1)_$J(SRINTUB,1)"
^XMB(3.9,148,2,10231,0)="""RTN"",""SROATM1"",33,0)"
^XMB(3.9,148,2,10232,0)=" S NYUK=$P($G(^SRF(SRTN,.3)),""^"",11),SHEMP=SHEMP_$J(NYUK,1),NYUK=$P(SRA(206),""^""),SHEMP=SHEMP_$J(NYUK,4),NYUK=$P(SRA(206),""^"",2),SHEMP=SHEMP_$J(NYUK,4)"
^XMB(3.9,148,2,10233,0)="""RTN"",""SROATM1"",34,0)"
^XMB(3.9,148,2,10234,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SHEMP=$E(SHEMP,1,11)_""  3"",SRACNT=SRACNT+1"
^XMB(3.9,148,2,10235,0)="""RTN"",""SROATM1"",35,0)"
^XMB(3.9,148,2,10236,0)=" D ^SROATM2"
^XMB(3.9,148,2,10237,0)="""RTN"",""SROATM1"",36,0)"
^XMB(3.9,148,2,10238,0)=" Q"
^XMB(3.9,148,2,10239,0)="""RTN"",""SROATM1"",37,0)"
^XMB(3.9,148,2,10240,0)="ONE S MOE=$S(NYUK=""NS"":""S"",NYUK="""":"" "",1:NYUK)"
^XMB(3.9,148,2,10241,0)="""RTN"",""SROATM1"",38,0)"
^XMB(3.9,148,2,10242,0)=" Q"
^XMB(3.9,148,2,10243,0)="""RTN"",""SROATM2"")"
^XMB(3.9,148,2,10244,0)="0^32^B33905156^B33399568"
^XMB(3.9,148,2,10245,0)="""RTN"",""SROATM2"",1,0)"
^XMB(3.9,148,2,10246,0)="SROATM2 ;BIR/MAM - NON CARDIAC TRANSMISSION (CONT) ;03/21/06"
^XMB(3.9,148,2,10247,0)="""RTN"",""SROATM2"",2,0)"
^XMB(3.9,148,2,10248,0)=" ;;3.0; Surgery ;**38,39,45,47,57,60,62,68,81,88,97,129,125,142,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,10249,0)="""RTN"",""SROATM2"",3,0)"
^XMB(3.9,148,2,10250,0)=" ;** NOTICE: This routine is part of an implementation of a nationally"
^XMB(3.9,148,2,10251,0)="""RTN"",""SROATM2"",4,0)"
^XMB(3.9,148,2,10252,0)=" ;**         controlled procedure. Local modifications to this routine"
^XMB(3.9,148,2,10253,0)="""RTN"",""SROATM2"",5,0)"
^XMB(3.9,148,2,10254,0)=" ;**         are prohibited."
^XMB(3.9,148,2,10255,0)="""RTN"",""SROATM2"",6,0)"
^XMB(3.9,148,2,10256,0)=" ;"
^XMB(3.9,148,2,10257,0)="""RTN"",""SROATM2"",7,0)"
^XMB(3.9,148,2,10258,0)=" K SRA F I=.2,.3,1.1,200.1,201:1:208,208.1 S SRA(I)=$G(^SRF(SRTN,I))"
^XMB(3.9,148,2,10259,0)="""RTN"",""SROATM2"",8,0)"
^XMB(3.9,148,2,10260,0)=" S SRA(""CON"")=$P($G(^SRF(SRTN,""CON"")),""^"") I SRA(""CON""),$P($G(^SRF(SRA(""CON""),30)),""^"")!($P($G(^SRF(SRA(""CON""),31)),""^"",8)) S SRA(""CON"")="""""
^XMB(3.9,148,2,10261,0)="""RTN"",""SROATM2"",9,0)"
^XMB(3.9,148,2,10262,0)=" D RS"
^XMB(3.9,148,2,10263,0)="""RTN"",""SROATM2"",10,0)"
^XMB(3.9,148,2,10264,0)=" S SHEMP=SHEMP_$J($E($P(SRA(.2),""^"",2),1,12),12)_$J($E($P(SRA(.2),""^"",3),1,12),12)_$J(SRATT,2)_$J($P(SRA(200.1),""^"",4),2)_$J($P($G(^SRF(SRTN,200)),""^"",54),2)"
^XMB(3.9,148,2,10265,0)="""RTN"",""SROATM2"",11,0)"
^XMB(3.9,148,2,10266,0)=" S SRICD=$P($G(^SRO(136,SRTN,0)),""^"",3) S:SRICD SRICD=$P(^ICD9(SRICD,0),""^"") S SHEMP=SHEMP_$J(SRICD,6)_$J($P(SRA(205),""^""),4)_$J($E($P(SRA(205),""^"",2)),1)"
^XMB(3.9,148,2,10267,0)="""RTN"",""SROATM2"",12,0)"
^XMB(3.9,148,2,10268,0)=" S NYUK=$P($G(^DPT(DFN,.35)),""^""),NYUK=$E(NYUK,1,7),SHEMP=SHEMP_$J(NYUK,7)"
^XMB(3.9,148,2,10269,0)="""RTN"",""SROATM2"",13,0)"
^XMB(3.9,148,2,10270,0)=" S NYUK=""N"",SRET=0 F  S SRET=$O(^SRF(SRTN,29,SRET)) Q:'SRET  S CASE=$P(^SRF(SRTN,29,SRET,0),""^"") I $P($G(^SRF(CASE,.2)),""^"",10) S NYUK=""Y"" Q"
^XMB(3.9,148,2,10271,0)="""RTN"",""SROATM2"",14,0)"
^XMB(3.9,148,2,10272,0)=" S SHEMP=SHEMP_NYUK_$J($P($G(^SRF(SRTN,.4)),""^"",7),1)_$J($E($P($G(^SRF(SRTN,0)),""^"",12)),1)_$J($P($G(^SRF(SRTN,0)),""^"",3),1)"
^XMB(3.9,148,2,10273,0)="""RTN"",""SROATM2"",15,0)"
^XMB(3.9,148,2,10274,0)=" S (SRADMIT,SRADMT)=0 I $P($G(^SRF(SRTN,0)),""^"",12)=""O"" D ADM^SROQ0A S SRADMIT=$S(SRADMT=0:""0"",1:""1"")"
^XMB(3.9,148,2,10275,0)="""RTN"",""SROATM2"",16,0)"
^XMB(3.9,148,2,10276,0)=" S SHEMP=SHEMP_"" ""_SRADMIT D OCC^SROATMNO S SHEMP=SHEMP_SRTMP_$J(SROCTYPE,1)_$J(SROC(35),2)_$J(SROC(36),2) K SROC,SROCTYPE"
^XMB(3.9,148,2,10277,0)="""RTN"",""SROATM2"",17,0)"
^XMB(3.9,148,2,10278,0)=" S NYUK=$E($P(VADM(3),""^""),1,7),SHEMP=SHEMP_$J(NYUK,7) ; date of birth"
^XMB(3.9,148,2,10279,0)="""RTN"",""SROATM2"",18,0)"
^XMB(3.9,148,2,10280,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SHEMP=$E(SHEMP,1,11)_""  4"",SRACNT=SRACNT+1"
^XMB(3.9,148,2,10281,0)="""RTN"",""SROATM2"",19,0)"
^XMB(3.9,148,2,10282,0)=" F MOE=1:1:6 S CPT(MOE)="""""
^XMB(3.9,148,2,10283,0)="""RTN"",""SROATM2"",20,0)"
^XMB(3.9,148,2,10284,0)=" S (X,CNT)=0 F  S X=$O(^SRF(SRTN,29,X)) Q:'X!(CNT=6)  I $P(^SRF(SRTN,29,X,0),""^"",3)=""R"" S NYUK=$P(^SRF(SRTN,29,X,0),""^"") D RETURN"
^XMB(3.9,148,2,10285,0)="""RTN"",""SROATM2"",21,0)"
^XMB(3.9,148,2,10286,0)=" S SHEMP=SHEMP_$J(CNT,2)"
^XMB(3.9,148,2,10287,0)="""RTN"",""SROATM2"",22,0)"
^XMB(3.9,148,2,10288,0)=" S SHEMP=SHEMP_$J(CPT(1),5)_$J(CPT(2),5)_$J(CPT(3),5)_$J(CPT(4),5)_$J(CPT(5),5)_$J(CPT(6),5)"
^XMB(3.9,148,2,10289,0)="""RTN"",""SROATM2"",23,0)"
^XMB(3.9,148,2,10290,0)=" F MOE=1:1:6 S CPT(MOE)="""""
^XMB(3.9,148,2,10291,0)="""RTN"",""SROATM2"",24,0)"
^XMB(3.9,148,2,10292,0)=" S (X,CNT)=0 F  S X=$O(^SRF(SRTN,29,X)) Q:'X!(CNT=6)  I $P(^SRF(SRTN,29,X,0),""^"",3)'=""R"" S NYUK=$P(^SRF(SRTN,29,X,0),""^"") D RETURN"
^XMB(3.9,148,2,10293,0)="""RTN"",""SROATM2"",25,0)"
^XMB(3.9,148,2,10294,0)=" S SHEMP=SHEMP_$J(CNT,2)"
^XMB(3.9,148,2,10295,0)="""RTN"",""SROATM2"",26,0)"
^XMB(3.9,148,2,10296,0)=" S SHEMP=SHEMP_$J(CPT(1),5)_$J(CPT(2),5)_$J(CPT(3),5)_$J(CPT(4),5)_$J(CPT(5),5)_$J(CPT(6),5)"
^XMB(3.9,148,2,10297,0)="""RTN"",""SROATM2"",27,0)"
^XMB(3.9,148,2,10298,0)=" S SRSDATE=$P(^SRF(SRTN,0),""^"",9) K SRSEP D OCC^SROAUTL0 S:'$D(SRO) SRO="""",$P(SRO,"" "",198)="""" S SHEMP=SHEMP_$E(SRO,1,112)"
^XMB(3.9,148,2,10299,0)="""RTN"",""SROATM2"",28,0)"
^XMB(3.9,148,2,10300,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SHEMP=$E(SHEMP,1,11)_""  5"",SRACNT=SRACNT+1"
^XMB(3.9,148,2,10301,0)="""RTN"",""SROATM2"",29,0)"
^XMB(3.9,148,2,10302,0)=" S NYUK=$P(SRA(205),""^"",6) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(205),""^"",7) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(205),""^"",8) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(205),""^"",10) D ONE S SHEMP=SHEMP_MOE"
^XMB(3.9,148,2,10303,0)="""RTN"",""SROATM2"",30,0)"
^XMB(3.9,148,2,10304,0)=" S NYUK=""N"" I $P(SRA(205),""^"",11)=""Y""!($P(SRA(205),""^"",28)=""Y"") S NYUK=""Y"""
^XMB(3.9,148,2,10305,0)="""RTN"",""SROATM2"",31,0)"
^XMB(3.9,148,2,10306,0)=" D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(205),""^"",12) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(205),""^"",13) D ONE S SHEMP=SHEMP_MOE,NYUK=$P($G(SROOC(29)),U)"
^XMB(3.9,148,2,10307,0)="""RTN"",""SROATM2"",32,0)"
^XMB(3.9,148,2,10308,0)=" D IFELSE"
^XMB(3.9,148,2,10309,0)="""RTN"",""SROATM2"",33,0)"
^XMB(3.9,148,2,10310,0)=" S NYUK=$P(SRA(205),""^"",16) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(205),""^"",17) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(205),""^"",18) D ONE S SHEMP=SHEMP_MOE,NYUK=$P($G(SROOC(31)),U)"
^XMB(3.9,148,2,10311,0)="""RTN"",""SROATM2"",34,0)"
^XMB(3.9,148,2,10312,0)=" D IFELSE"
^XMB(3.9,148,2,10313,0)="""RTN"",""SROATM2"",35,0)"
^XMB(3.9,148,2,10314,0)=" S NYUK=""N"",SRCVA=$P(SRA(205),""^"",21),SRST=$P(SRA(208),""^"",8) I SRCVA=""Y""!(SRST=""Y"") S NYUK=""Y"""
^XMB(3.9,148,2,10315,0)="""RTN"",""SROATM2"",36,0)"
^XMB(3.9,148,2,10316,0)=" D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(205),""^"",22) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(205),""^"",23) D ONE S SHEMP=SHEMP_MOE,NYUK=$P($G(SROOC(30)),U)"
^XMB(3.9,148,2,10317,0)="""RTN"",""SROATM2"",37,0)"
^XMB(3.9,148,2,10318,0)=" D IFELSE"
^XMB(3.9,148,2,10319,0)="""RTN"",""SROATM2"",38,0)"
^XMB(3.9,148,2,10320,0)=" S NYUK=$P(SRA(205),""^"",26) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(205),""^"",27) D ONE S SHEMP=SHEMP_MOE_"" "" S NYUK=$P($G(SROOC(32)),U)"
^XMB(3.9,148,2,10321,0)="""RTN"",""SROATM2"",39,0)"
^XMB(3.9,148,2,10322,0)=" D IFELSE"
^XMB(3.9,148,2,10323,0)="""RTN"",""SROATM2"",40,0)"
^XMB(3.9,148,2,10324,0)=" S NYUK=$P(SRA(205),""^"",31) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(205),""^"",32) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(205),""^"",33) D ONE S SHEMP=SHEMP_MOE,NYUK=$P(SRA(205),""^"",34) D ONE S SHEMP=SHEMP_MOE"
^XMB(3.9,148,2,10325,0)="""RTN"",""SROATM2"",41,0)"
^XMB(3.9,148,2,10326,0)=" S NYUK=$P(SRA(205),""^"",35) D ONE S SHEMP=SHEMP_MOE,NYUK=$P($G(SROOC(21)),U) D IFELSE"
^XMB(3.9,148,2,10327,0)="""RTN"",""SROATM2"",42,0)"
^XMB(3.9,148,2,10328,0)=" S SHEMP=SHEMP_$E(SRO,113,196),NYUK=$P(SRA(205),""^"",37) D ONE S SHEMP=SHEMP_MOE,NYUK=$P($G(SROOC(36)),U) D IFELSE"
^XMB(3.9,148,2,10329,0)="""RTN"",""SROATM2"",43,0)"
^XMB(3.9,148,2,10330,0)=" S SHEMP=SHEMP_$E(SRO,197)"
^XMB(3.9,148,2,10331,0)="""RTN"",""SROATM2"",44,0)"
^XMB(3.9,148,2,10332,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SHEMP=$E(SHEMP,1,11)_""  6"",SRACNT=SRACNT+1"
^XMB(3.9,148,2,10333,0)="""RTN"",""SROATM2"",45,0)"
^XMB(3.9,148,2,10334,0)=" S SHEMP=SHEMP_$J($P(SRA(201),""^""),5)_$J($P(SRA(202),""^""),7)_$J($P(SRA(201),""^"",8),4)_$J($P(SRA(202),""^"",8),7)_$J($P(SRA(201),""^"",9),5)_$J($P(SRA(202),""^"",9),7)_$J($P(SRA(201),""^"",5),5)_$J($P(SRA(202),""^"",5),7)"
^XMB(3.9,148,2,10335,0)="""RTN"",""SROATM2"",46,0)"
^XMB(3.9,148,2,10336,0)=" S SHEMP=SHEMP_$J($P(SRA(201),""^"",4),4)_$J($P(SRA(202),""^"",4),7)"
^XMB(3.9,148,2,10337,0)="""RTN"",""SROATM2"",47,0)"
^XMB(3.9,148,2,10338,0)=" S SHEMP=SHEMP_$J($P(SRA(201),""^"",27),5)_$J($P(SRA(202),""^"",27),7)"
^XMB(3.9,148,2,10339,0)="""RTN"",""SROATM2"",48,0)"
^XMB(3.9,148,2,10340,0)=" S SHEMP=SHEMP_$J($P(SRA(203),""^"",15),5)_$J($P(SRA(204),""^"",15),7)"
^XMB(3.9,148,2,10341,0)="""RTN"",""SROATM2"",49,0)"
^XMB(3.9,148,2,10342,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SHEMP=$E(SHEMP,1,11)_""  7"",SRACNT=SRACNT+1"
^XMB(3.9,148,2,10343,0)="""RTN"",""SROATM2"",50,0)"
^XMB(3.9,148,2,10344,0)=" S SHEMP=SHEMP_$J($E($P(SRA(208),""^"",14),1,12),12)_""  ""_$J($P($G(SRA(208)),""^"",11),2)_$J($P($G(SRA(208)),""^"",10),2)_$J($E($P($G(SRA(208)),""^"",9),1,4),4)"
^XMB(3.9,148,2,10345,0)="""RTN"",""SROATM2"",51,0)"
^XMB(3.9,148,2,10346,0)=" S SHEMP=SHEMP_$J($E($P(SRA(208),""^"",15),1,12),12)_""  ""_$J($P($G(SRA(.3)),""^"",9),2)_$J($P($G(SRA(206)),""^"",3),2)_$J($P($G(SRA(206)),""^"",4),2)_$J($P($G(SRA(206)),""^"",8),2)_$J($G(SRTRAUMA),2)"
^XMB(3.9,148,2,10347,0)="""RTN"",""SROATM2"",52,0)"
^XMB(3.9,148,2,10348,0)=" S SHEMP=SHEMP_$J($E($P(SRA(208),""^"",16),1,12),12)_$J($E($P(SRA(208),""^"",17),1,12),12)_$J($E($P(SRA(.2),""^"",12),1,12),12)_$J($E($P(SRA(.2),""^""),1,12),12)"
^XMB(3.9,148,2,10349,0)="""RTN"",""SROATM2"",53,0)"
^XMB(3.9,148,2,10350,0)=" S SHEMP=SHEMP_$J($E($P(SRA(1.1),""^"",8),1,12),12)_$J($E($P(SRA(208.1),""^""),1,12),12)_$J($E($P(SRA(208.1),""^"",2),1,12),12)_$J($E($P(SRA(208.1),""^"",3),1,3),3)_$J(SRA(""CON""),10)_$J($E($P(SRA(.2),""^"",4),1,12),12)"
^XMB(3.9,148,2,10351,0)="""RTN"",""SROATM2"",54,0)"
^XMB(3.9,148,2,10352,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SHEMP=$E(SHEMP,1,11)_""  8"",SRACNT=SRACNT+1"
^XMB(3.9,148,2,10353,0)="""RTN"",""SROATM2"",55,0)"
^XMB(3.9,148,2,10354,0)=" S SHEMP=SHEMP_$J($P(SRA(201),""^"",11),5)_$J($P(SRA(202),""^"",11),7)_$J($P(SRA(201),""^"",12),5)_$J($P(SRA(202),""^"",12),7)_$J($P(SRA(201),""^"",13),4)_$J($P(SRA(202),""^"",13),7)_$J($P(SRA(201),""^"",14),4)_$J($P(SRA(202),""^"",14),7)"
^XMB(3.9,148,2,10355,0)="""RTN"",""SROATM2"",56,0)"
^XMB(3.9,148,2,10356,0)=" S SHEMP=SHEMP_$J($P(SRA(201),""^"",15),5)_$J($P(SRA(202),""^"",15),7)"
^XMB(3.9,148,2,10357,0)="""RTN"",""SROATM2"",57,0)"
^XMB(3.9,148,2,10358,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SHEMP=$E(SHEMP,1,11)_""  9"",SRACNT=SRACNT+1"
^XMB(3.9,148,2,10359,0)="""RTN"",""SROATM2"",58,0)"
^XMB(3.9,148,2,10360,0)=" D ^SROATM3"
^XMB(3.9,148,2,10361,0)="""RTN"",""SROATM2"",59,0)"
^XMB(3.9,148,2,10362,0)=" Q"
^XMB(3.9,148,2,10363,0)="""RTN"",""SROATM2"",60,0)"
^XMB(3.9,148,2,10364,0)="ONE S MOE=$S(NYUK=""NS"":""S"",NYUK="""":"" "",1:NYUK)"
^XMB(3.9,148,2,10365,0)="""RTN"",""SROATM2"",61,0)"
^XMB(3.9,148,2,10366,0)=" Q"
^XMB(3.9,148,2,10367,0)="""RTN"",""SROATM2"",62,0)"
^XMB(3.9,148,2,10368,0)="IFELSE I NYUK[""NO ICD9"" S SHEMP=SHEMP_$J("" "",6)"
^XMB(3.9,148,2,10369,0)="""RTN"",""SROATM2"",63,0)"
^XMB(3.9,148,2,10370,0)=" E  S SHEMP=SHEMP_$J(NYUK,6)"
^XMB(3.9,148,2,10371,0)="""RTN"",""SROATM2"",64,0)"
^XMB(3.9,148,2,10372,0)=" Q"
^XMB(3.9,148,2,10373,0)="""RTN"",""SROATM2"",65,0)"
^XMB(3.9,148,2,10374,0)="RS ; resident supervision (attending code)"
^XMB(3.9,148,2,10375,0)="""RTN"",""SROATM2"",66,0)"
^XMB(3.9,148,2,10376,0)=" N SRSR,SRX S (SRATT,SRSR)="""",SRX=$G(^SRF(SRTN,.1)) D SRES"
^XMB(3.9,148,2,10377,0)="""RTN"",""SROATM2"",67,0)"
^XMB(3.9,148,2,10378,0)=" S SRATT=$P(SRX,""^"",10) I SRATT="""" D"
^XMB(3.9,148,2,10379,0)="""RTN"",""SROATM2"",68,0)"
^XMB(3.9,148,2,10380,0)=" .I SRSR=0 S SRATT=$S($P(^SRF(SRTN,0),""^"",9)<3040401:1,1:9) Q"
^XMB(3.9,148,2,10381,0)="""RTN"",""SROATM2"",69,0)"
^XMB(3.9,148,2,10382,0)=" .S SRATT=99"
^XMB(3.9,148,2,10383,0)="""RTN"",""SROATM2"",70,0)"
^XMB(3.9,148,2,10384,0)=" Q"
^XMB(3.9,148,2,10385,0)="""RTN"",""SROATM2"",71,0)"
^XMB(3.9,148,2,10386,0)="SRES ; does site have residents?"
^XMB(3.9,148,2,10387,0)="""RTN"",""SROATM2"",72,0)"
^XMB(3.9,148,2,10388,0)=" N SRDIV,SRSITE,Y S SRDIV=$P($G(^SRF(SRTN,8)),""^"") I SRDIV S SRSITE=$O(^SRO(133,""B"",SRDIV,0)),SRSR=$P(^SRO(133,SRSITE,0),""^"",19)"
^XMB(3.9,148,2,10389,0)="""RTN"",""SROATM2"",73,0)"
^XMB(3.9,148,2,10390,0)=" Q"
^XMB(3.9,148,2,10391,0)="""RTN"",""SROATM2"",74,0)"
^XMB(3.9,148,2,10392,0)="RETURN ; CPT of Returns"
^XMB(3.9,148,2,10393,0)="""RTN"",""SROATM2"",75,0)"
^XMB(3.9,148,2,10394,0)=" S Y=$P($G(^SRO(136,NYUK,0)),""^"",2) I Y S CNT=CNT+1,CPT(CNT)=$P($$CPT^ICPTCOD(Y),""^"",2)"
^XMB(3.9,148,2,10395,0)="""RTN"",""SROATM2"",76,0)"
^XMB(3.9,148,2,10396,0)=" Q"
^XMB(3.9,148,2,10397,0)="""RTN"",""SROATM3"")"
^XMB(3.9,148,2,10398,0)="0^33^B20814871^B19436720"
^XMB(3.9,148,2,10399,0)="""RTN"",""SROATM3"",1,0)"
^XMB(3.9,148,2,10400,0)="SROATM3 ;BIR/MAM - NON CARDIAC TRANSMISSION (CONT) ;02/08/06"
^XMB(3.9,148,2,10401,0)="""RTN"",""SROATM3"",2,0)"
^XMB(3.9,148,2,10402,0)=" ;;3.0; Surgery ;**27,38,62,88,97,111,142,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,10403,0)="""RTN"",""SROATM3"",3,0)"
^XMB(3.9,148,2,10404,0)=" ;** NOTICE: This routine is part of an implementation of a nationally"
^XMB(3.9,148,2,10405,0)="""RTN"",""SROATM3"",4,0)"
^XMB(3.9,148,2,10406,0)=" ;**         controlled procedure. Local modifications to this routine"
^XMB(3.9,148,2,10407,0)="""RTN"",""SROATM3"",5,0)"
^XMB(3.9,148,2,10408,0)=" ;**         are prohibited."
^XMB(3.9,148,2,10409,0)="""RTN"",""SROATM3"",6,0)"
^XMB(3.9,148,2,10410,0)=" ;;"
^XMB(3.9,148,2,10411,0)="""RTN"",""SROATM3"",7,0)"
^XMB(3.9,148,2,10412,0)=" N SRCONMOD,SRMOD,SRPMOD,SR10SP"
^XMB(3.9,148,2,10413,0)="""RTN"",""SROATM3"",8,0)"
^XMB(3.9,148,2,10414,0)=" S SHEMP=SHEMP_$J($P(SRA(201),""^"",16),5)_$J($P(SRA(202),""^"",16),7)_$J($P(SRA(201),""^"",17),4)_$J($P(SRA(202),""^"",17),7)_$J($P(SRA(203),""^""),5)_$J($P(SRA(204),""^""),7)_$J($P(SRA(203),""^"",2),5)_$J($P(SRA(204),""^"",2),7)"
^XMB(3.9,148,2,10415,0)="""RTN"",""SROATM3"",9,0)"
^XMB(3.9,148,2,10416,0)=" S SHEMP=SHEMP_$J($P(SRA(203),""^"",16),5)_$J($P(SRA(204),""^"",16),7)"
^XMB(3.9,148,2,10417,0)="""RTN"",""SROATM3"",10,0)"
^XMB(3.9,148,2,10418,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SHEMP=$E(SHEMP,1,11)_"" 10"",SRACNT=SRACNT+1"
^XMB(3.9,148,2,10419,0)="""RTN"",""SROATM3"",11,0)"
^XMB(3.9,148,2,10420,0)=" S SHEMP=SHEMP_$J($P(SRA(203),""^"",3),3)_$J($P(SRA(204),""^"",3),7)_$J($P(SRA(203),""^"",4),3)_$J($P(SRA(204),""^"",4),7)_$J($P(SRA(203),""^"",6),4)_$J($P(SRA(204),""^"",6),7)"
^XMB(3.9,148,2,10421,0)="""RTN"",""SROATM3"",12,0)"
^XMB(3.9,148,2,10422,0)=" S SHEMP=SHEMP_$J($P(SRA(203),""^"",7),6)_$J($P(SRA(204),""^"",7),7)"
^XMB(3.9,148,2,10423,0)="""RTN"",""SROATM3"",13,0)"
^XMB(3.9,148,2,10424,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SHEMP=$E(SHEMP,1,11)_"" 11"",SRACNT=SRACNT+1"
^XMB(3.9,148,2,10425,0)="""RTN"",""SROATM3"",14,0)"
^XMB(3.9,148,2,10426,0)=" S SHEMP=SHEMP_$J($P(SRA(203),""^"",8),4)_$J($P(SRA(204),""^"",8),7)_$J($P(SRA(203),""^"",9),5)_$J($P(SRA(204),""^"",9),7)_$J($P(SRA(203),""^"",10),4)_$J($P(SRA(204),""^"",10),7)"
^XMB(3.9,148,2,10427,0)="""RTN"",""SROATM3"",15,0)"
^XMB(3.9,148,2,10428,0)=" S SHEMP=SHEMP_$J($P(SRA(203),""^"",12),4)_$J($P(SRA(204),""^"",12),7)_$J($P(SRA(203),""^"",13),5)_$J($P(SRA(204),""^"",13),7)_$J($P(SRA(203),""^"",14),5)_$J($P(SRA(204),""^"",14),7)"
^XMB(3.9,148,2,10429,0)="""RTN"",""SROATM3"",16,0)"
^XMB(3.9,148,2,10430,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SHEMP=$E(SHEMP,1,11)_"" 12"",SRACNT=SRACNT+1"
^XMB(3.9,148,2,10431,0)="""RTN"",""SROATM3"",17,0)"
^XMB(3.9,148,2,10432,0)=" S (SRPMOD,SRCONMOD)="""",SR10SP=""          "" F I=""OP"",""CON"" S SRA(I)=$G(^SRF(SRTN,I))"
^XMB(3.9,148,2,10433,0)="""RTN"",""SROATM3"",18,0)"
^XMB(3.9,148,2,10434,0)=" S CPT=$P($G(^SRO(136,SRTN,0)),""^"",2) D"
^XMB(3.9,148,2,10435,0)="""RTN"",""SROATM3"",19,0)"
^XMB(3.9,148,2,10436,0)=" .I SRA(""CON""),$P($G(^SRF(SRA(""CON""),30)),""^"")!($P($G(^SRF(SRA(""CON""),31)),""^"",8)) S SRA(""CON"")="""""
^XMB(3.9,148,2,10437,0)="""RTN"",""SROATM3"",20,0)"
^XMB(3.9,148,2,10438,0)=" .I CPT S CPT=$P($$CPT^ICPTCOD(CPT),""^"",2),SRCASE=SRTN D MOD S SRPMOD=SRM"
^XMB(3.9,148,2,10439,0)="""RTN"",""SROATM3"",21,0)"
^XMB(3.9,148,2,10440,0)=" .S SHEMP=SHEMP_$J(CPT,5),SRPMOD=SRPMOD_SR10SP"
^XMB(3.9,148,2,10441,0)="""RTN"",""SROATM3"",22,0)"
^XMB(3.9,148,2,10442,0)=" S CPT="""",CON=$P(SRA(""CON""),""^"") S:CON CPT=$P($G(^SRO(136,CON,0)),""^"",2) D"
^XMB(3.9,148,2,10443,0)="""RTN"",""SROATM3"",23,0)"
^XMB(3.9,148,2,10444,0)=" .I CPT S CPT=$P($$CPT^ICPTCOD(CPT),""^"",2),SRCASE=CON D MOD S SRCONMOD=SRM"
^XMB(3.9,148,2,10445,0)="""RTN"",""SROATM3"",24,0)"
^XMB(3.9,148,2,10446,0)=" .S SHEMP=SHEMP_$J(CPT,5),SRCONMOD=SRCONMOD_SR10SP"
^XMB(3.9,148,2,10447,0)="""RTN"",""SROATM3"",25,0)"
^XMB(3.9,148,2,10448,0)=" S CPT="""",SHEMP=SHEMP_$J(CPT,5)"
^XMB(3.9,148,2,10449,0)="""RTN"",""SROATM3"",26,0)"
^XMB(3.9,148,2,10450,0)=" K CPT F I=1:1:10 S (CPT(I),SRMOD(I))="""""
^XMB(3.9,148,2,10451,0)="""RTN"",""SROATM3"",27,0)"
^XMB(3.9,148,2,10452,0)=" S (OPS,CNT)=0 F  S OPS=$O(^SRO(136,SRTN,3,OPS)) Q:'OPS!(CNT=10)  S CNT=CNT+1,X=$P($G(^SRO(136,SRTN,3,OPS,0)),""^"") I X S CPT(CNT)=$P($$CPT^ICPTCOD(X),""^"",2) D OTH"
^XMB(3.9,148,2,10453,0)="""RTN"",""SROATM3"",28,0)"
^XMB(3.9,148,2,10454,0)=" S SHEMP=SHEMP_$J(CPT(1),5)_$J(CPT(2),5)_$J(CPT(3),5)_$J(CPT(4),5)_$J(CPT(5),5)_$J(CPT(6),5)_$J(CPT(7),5)_$J(CPT(8),5)_$J(CPT(9),5)_$J(CPT(10),5)"
^XMB(3.9,148,2,10455,0)="""RTN"",""SROATM3"",29,0)"
^XMB(3.9,148,2,10456,0)=" S SHEMP=SHEMP_$E(SRPMOD,1,10)_$E(SRCONMOD,1,10) F I=1:1:10 S SHEMP=SHEMP_$E(SRMOD(I)_SR10SP,1,10)"
^XMB(3.9,148,2,10457,0)="""RTN"",""SROATM3"",30,0)"
^XMB(3.9,148,2,10458,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SRACNT=SRACNT+1"
^XMB(3.9,148,2,10459,0)="""RTN"",""SROATM3"",31,0)"
^XMB(3.9,148,2,10460,0)=" ;"
^XMB(3.9,148,2,10461,0)="""RTN"",""SROATM3"",32,0)"
^XMB(3.9,148,2,10462,0)=" ;Ethnicity contained in VADM(11)"
^XMB(3.9,148,2,10463,0)="""RTN"",""SROATM3"",33,0)"
^XMB(3.9,148,2,10464,0)=" N SROETCD,SROPTF S SHEMP=$E(SHEMP,1,11)_"" 13"""
^XMB(3.9,148,2,10465,0)="""RTN"",""SROATM3"",34,0)"
^XMB(3.9,148,2,10466,0)=" S SROETCD="""",SROPTF="""""
^XMB(3.9,148,2,10467,0)="""RTN"",""SROATM3"",35,0)"
^XMB(3.9,148,2,10468,0)=" S SROETCD=$P($G(VADM(11,1)),U,1)            ;Ethnicity code"
^XMB(3.9,148,2,10469,0)="""RTN"",""SROATM3"",36,0)"
^XMB(3.9,148,2,10470,0)=" S SROPTF=$$PTR2CODE^DGUTL4(SROETCD,2,4)     ;PTF Ethnicity code"
^XMB(3.9,148,2,10471,0)="""RTN"",""SROATM3"",37,0)"
^XMB(3.9,148,2,10472,0)=" S SHEMP=SHEMP_$J($G(SROPTF),1)   ;Ethnicity"
^XMB(3.9,148,2,10473,0)="""RTN"",""SROATM3"",38,0)"
^XMB(3.9,148,2,10474,0)=" ;"
^XMB(3.9,148,2,10475,0)="""RTN"",""SROATM3"",39,0)"
^XMB(3.9,148,2,10476,0)=" ;Multiple races contained in VADM(12)"
^XMB(3.9,148,2,10477,0)="""RTN"",""SROATM3"",40,0)"
^XMB(3.9,148,2,10478,0)=" N SRORAC,SRORCD,SRORCE S SRORCE=0,SRORAC="""",SRORACE="""",SRORCD="""""
^XMB(3.9,148,2,10479,0)="""RTN"",""SROATM3"",41,0)"
^XMB(3.9,148,2,10480,0)=" F  S SRORCE=$O(VADM(12,SRORCE)) Q:SRORCE=""""  D"
^XMB(3.9,148,2,10481,0)="""RTN"",""SROATM3"",42,0)"
^XMB(3.9,148,2,10482,0)=" .S SRORAC=$P($G(VADM(12,SRORCE)),U,1)       ;Race code"
^XMB(3.9,148,2,10483,0)="""RTN"",""SROATM3"",43,0)"
^XMB(3.9,148,2,10484,0)=" .S SRORCD=$$PTR2CODE^DGUTL4(SRORAC,1,4)     ;PTF race code"
^XMB(3.9,148,2,10485,0)="""RTN"",""SROATM3"",44,0)"
^XMB(3.9,148,2,10486,0)=" .S SRORACE=SRORACE_$J(SRORCD,1)"
^XMB(3.9,148,2,10487,0)="""RTN"",""SROATM3"",45,0)"
^XMB(3.9,148,2,10488,0)=" ;"
^XMB(3.9,148,2,10489,0)="""RTN"",""SROATM3"",46,0)"
^XMB(3.9,148,2,10490,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP_SRORACE   ;Line 13"
^XMB(3.9,148,2,10491,0)="""RTN"",""SROATM3"",47,0)"
^XMB(3.9,148,2,10492,0)=" S SRACNT=SRACNT+1"
^XMB(3.9,148,2,10493,0)="""RTN"",""SROATM3"",48,0)"
^XMB(3.9,148,2,10494,0)=" ;"
^XMB(3.9,148,2,10495,0)="""RTN"",""SROATM3"",49,0)"
^XMB(3.9,148,2,10496,0)=" S SHEMP=$E(SHEMP,1,11)_"" A1"""
^XMB(3.9,148,2,10497,0)="""RTN"",""SROATM3"",50,0)"
^XMB(3.9,148,2,10498,0)=" S SHEMP=SHEMP_SRANAME,^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SHEMP=$E(SHEMP,1,11)_"" A2"",SRACNT=SRACNT+1"
^XMB(3.9,148,2,10499,0)="""RTN"",""SROATM3"",51,0)"
^XMB(3.9,148,2,10500,0)=" S SRA(0)=^SRF(SRTN,0),DFN=$P(SRA(0),""^"") K SRA,VADM D ADD^VADPT"
^XMB(3.9,148,2,10501,0)="""RTN"",""SROATM3"",52,0)"
^XMB(3.9,148,2,10502,0)=" S SHEMP=SHEMP_VAPA(1),^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SHEMP=$E(SHEMP,1,11)_"" A3"",SRACNT=SRACNT+1"
^XMB(3.9,148,2,10503,0)="""RTN"",""SROATM3"",53,0)"
^XMB(3.9,148,2,10504,0)=" S SHEMP=SHEMP_VAPA(2),^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SHEMP=$E(SHEMP,1,11)_"" A4"",SRACNT=SRACNT+1"
^XMB(3.9,148,2,10505,0)="""RTN"",""SROATM3"",54,0)"
^XMB(3.9,148,2,10506,0)=" S SHEMP=SHEMP_VAPA(3),^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SHEMP=$E(SHEMP,1,11)_"" A5"",SRACNT=SRACNT+1"
^XMB(3.9,148,2,10507,0)="""RTN"",""SROATM3"",55,0)"
^XMB(3.9,148,2,10508,0)=" S SHEMP=SHEMP_VAPA(4),^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SHEMP=$E(SHEMP,1,11)_"" A6"",SRACNT=SRACNT+1"
^XMB(3.9,148,2,10509,0)="""RTN"",""SROATM3"",56,0)"
^XMB(3.9,148,2,10510,0)=" S SHEMP=SHEMP_$P(VAPA(5),""^"",2),^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SHEMP=$E(SHEMP,1,11)_"" A7"",SRACNT=SRACNT+1"
^XMB(3.9,148,2,10511,0)="""RTN"",""SROATM3"",57,0)"
^XMB(3.9,148,2,10512,0)=" S SHEMP=SHEMP_VAPA(6),^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SHEMP=$E(SHEMP,1,11)_"" A8"",SRACNT=SRACNT+1"
^XMB(3.9,148,2,10513,0)="""RTN"",""SROATM3"",58,0)"
^XMB(3.9,148,2,10514,0)=" S SHEMP=SHEMP_VAPA(8),^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SHEMP,SRACNT=SRACNT+1"
^XMB(3.9,148,2,10515,0)="""RTN"",""SROATM3"",59,0)"
^XMB(3.9,148,2,10516,0)=" Q"
^XMB(3.9,148,2,10517,0)="""RTN"",""SROATM3"",60,0)"
^XMB(3.9,148,2,10518,0)="MOD ; get principal CPT modifiers"
^XMB(3.9,148,2,10519,0)="""RTN"",""SROATM3"",61,0)"
^XMB(3.9,148,2,10520,0)=" S SRI=0,SRCNT=1,SRM="""" F  S SRI=$O(^SRO(136,SRCASE,1,SRI)) Q:'SRI  D  Q:SRCNT>5"
^XMB(3.9,148,2,10521,0)="""RTN"",""SROATM3"",62,0)"
^XMB(3.9,148,2,10522,0)=" .S X=$P(^SRO(136,SRCASE,1,SRI,0),""^""),Y=$P($$MOD^ICPTMOD(X,""I""),""^"",2)"
^XMB(3.9,148,2,10523,0)="""RTN"",""SROATM3"",63,0)"
^XMB(3.9,148,2,10524,0)=" .I Y'="""" S SRM=SRM_Y,SRCNT=SRCNT+1"
^XMB(3.9,148,2,10525,0)="""RTN"",""SROATM3"",64,0)"
^XMB(3.9,148,2,10526,0)=" Q"
^XMB(3.9,148,2,10527,0)="""RTN"",""SROATM3"",65,0)"
^XMB(3.9,148,2,10528,0)="OTH ; get other procedure CPT modifiers"
^XMB(3.9,148,2,10529,0)="""RTN"",""SROATM3"",66,0)"
^XMB(3.9,148,2,10530,0)=" S SRI=0,SRCNT=1 F  S SRI=$O(^SRO(136,SRTN,3,OPS,1,SRI)) Q:'SRI  D  Q:SRCNT>5"
^XMB(3.9,148,2,10531,0)="""RTN"",""SROATM3"",67,0)"
^XMB(3.9,148,2,10532,0)=" .S X=$P(^SRO(136,SRTN,3,OPS,1,SRI,0),""^""),Y=$P($$MOD^ICPTMOD(X,""I""),""^"",2)"
^XMB(3.9,148,2,10533,0)="""RTN"",""SROATM3"",68,0)"
^XMB(3.9,148,2,10534,0)=" .I Y'="""" S SRMOD(CNT)=SRMOD(CNT)_Y,SRCNT=SRCNT+1"
^XMB(3.9,148,2,10535,0)="""RTN"",""SROATM3"",69,0)"
^XMB(3.9,148,2,10536,0)=" Q"
^XMB(3.9,148,2,10537,0)="""RTN"",""SROATM4"")"
^XMB(3.9,148,2,10538,0)="0^34^B8737618^B8977211"
^XMB(3.9,148,2,10539,0)="""RTN"",""SROATM4"",1,0)"
^XMB(3.9,148,2,10540,0)="SROATM4 ;BIR/MAM - CREATE MESSAGES ;03/22/06"
^XMB(3.9,148,2,10541,0)="""RTN"",""SROATM4"",2,0)"
^XMB(3.9,148,2,10542,0)=" ;;3.0; Surgery ;**27,38,62,125,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,10543,0)="""RTN"",""SROATM4"",3,0)"
^XMB(3.9,148,2,10544,0)=" ;** NOTICE: This routine is part of an implementation of a nationally"
^XMB(3.9,148,2,10545,0)="""RTN"",""SROATM4"",4,0)"
^XMB(3.9,148,2,10546,0)=" ;**         controlled procedure. Local modifications to this routine"
^XMB(3.9,148,2,10547,0)="""RTN"",""SROATM4"",5,0)"
^XMB(3.9,148,2,10548,0)=" ;**         are prohibited."
^XMB(3.9,148,2,10549,0)="""RTN"",""SROATM4"",6,0)"
^XMB(3.9,148,2,10550,0)=" ;"
^XMB(3.9,148,2,10551,0)="""RTN"",""SROATM4"",7,0)"
^XMB(3.9,148,2,10552,0)=" S SHEMP=3,SRAMNUM=0 F I=0:0 S SRAMNUM=$O(^TMP(""SRA"",$J,SRAMNUM)) Q:'SRAMNUM  D MSG"
^XMB(3.9,148,2,10553,0)="""RTN"",""SROATM4"",8,0)"
^XMB(3.9,148,2,10554,0)="STATUS ; update status"
^XMB(3.9,148,2,10555,0)="""RTN"",""SROATM4"",9,0)"
^XMB(3.9,148,2,10556,0)=" S (SRAMNUM,SRASS)=0"
^XMB(3.9,148,2,10557,0)="""RTN"",""SROATM4"",10,0)"
^XMB(3.9,148,2,10558,0)=" F  S SRAMNUM=$O(^TMP(""SRA"",$J,SRAMNUM)) Q:'SRAMNUM  S SRACNT=0 F  S SRACNT=$O(^TMP(""SRA"",$J,SRAMNUM,SRACNT)) Q:'SRACNT  S CURLEY=$E(^TMP(""SRA"",$J,SRAMNUM,SRACNT,0),12,14),CURLEY=$P(CURLEY,"" "",3) I +CURLEY=1 D UPDATE"
^XMB(3.9,148,2,10559,0)="""RTN"",""SROATM4"",11,0)"
^XMB(3.9,148,2,10560,0)=" I 'SRASS G END"
^XMB(3.9,148,2,10561,0)="""RTN"",""SROATM4"",12,0)"
^XMB(3.9,148,2,10562,0)=" S X=$$ACTIVE^XUSER(DUZ) I '+X S XMDUZ=.5"
^XMB(3.9,148,2,10563,0)="""RTN"",""SROATM4"",13,0)"
^XMB(3.9,148,2,10564,0)=" S XMSUB=""RISK ASSESSMENT TRANSMISSION COMPLETE"""
^XMB(3.9,148,2,10565,0)="""RTN"",""SROATM4"",14,0)"
^XMB(3.9,148,2,10566,0)=" S XMY(""G.RISK ASSESSMENT@""_^XMB(""NETNAME""))="""""
^XMB(3.9,148,2,10567,0)="""RTN"",""SROATM4"",15,0)"
^XMB(3.9,148,2,10568,0)=" D NOW^%DTC S Y=% D D^DIQ S SRATIME=$E($P(Y,""@"",2),1,5)"
^XMB(3.9,148,2,10569,0)="""RTN"",""SROATM4"",16,0)"
^XMB(3.9,148,2,10570,0)=" S ^TMP(""SRAMSG"",$J,1,0)=""The Surgery Risk Assessment Transmission was completed at ""_SRATIME_"".  A total"",^TMP(""SRAMSG"",$J,2,0)=""of ""_SRASS_$S(SRASS=1:"" assessment was "",1:"" assessments were "")_""sent."""
^XMB(3.9,148,2,10571,0)="""RTN"",""SROATM4"",17,0)"
^XMB(3.9,148,2,10572,0)=" S ^TMP(""SRAMSG"",$J,3,0)=""  """
^XMB(3.9,148,2,10573,0)="""RTN"",""SROATM4"",18,0)"
^XMB(3.9,148,2,10574,0)=" S XMTEXT=""^TMP(""""SRAMSG"""",$J,"" N I D ^XMD"
^XMB(3.9,148,2,10575,0)="""RTN"",""SROATM4"",19,0)"
^XMB(3.9,148,2,10576,0)="END K ^TMP(""SRA"",$J),^TMP(""SRAMSG"",$J),SRTN D ^SRSKILL"
^XMB(3.9,148,2,10577,0)="""RTN"",""SROATM4"",20,0)"
^XMB(3.9,148,2,10578,0)=" Q"
^XMB(3.9,148,2,10579,0)="""RTN"",""SROATM4"",21,0)"
^XMB(3.9,148,2,10580,0)="MSG ; send message to G.SURGERY RISK at Hines"
^XMB(3.9,148,2,10581,0)="""RTN"",""SROATM4"",22,0)"
^XMB(3.9,148,2,10582,0)=" S ISC=0,NAME=$G(^XMB(""NETNAME"")) I NAME[""FORUM""!(NAME[""ISC-"")!($E(NAME,1,3)=""ISC"")!(NAME[""ISC."")!(NAME[""TST"")!(NAME[""FO-"") S ISC=1"
^XMB(3.9,148,2,10583,0)="""RTN"",""SROATM4"",23,0)"
^XMB(3.9,148,2,10584,0)=" I ISC S XMY(""G.RISK ASSESSMENT@""_^XMB(""NETNAME""))="""""
^XMB(3.9,148,2,10585,0)="""RTN"",""SROATM4"",24,0)"
^XMB(3.9,148,2,10586,0)=" I 'ISC S XMY(""G.RISK ASSESSMENT@FO-HINES.MED.VA.GOV"")="""""
^XMB(3.9,148,2,10587,0)="""RTN"",""SROATM4"",25,0)"
^XMB(3.9,148,2,10588,0)=" S SRATDATE=$E(DT,4,5)_""/""_$E(DT,6,7)_""/""_$E(DT,2,3)"
^XMB(3.9,148,2,10589,0)="""RTN"",""SROATM4"",26,0)"
^XMB(3.9,148,2,10590,0)=" S X=$$ACTIVE^XUSER(DUZ) I '+X S XMDUZ=.5"
^XMB(3.9,148,2,10591,0)="""RTN"",""SROATM4"",27,0)"
^XMB(3.9,148,2,10592,0)=" S XMSUB=$P($$SITE^SROVAR,""^"",2)_"": NSQIP (""_SRAMNUM_"" OF ""_SRATOTM_"")  ""_SRATDATE,XMTEXT=""^TMP(""""SRA"""",$J,""_SRAMNUM_"","" N I D ^XMD"
^XMB(3.9,148,2,10593,0)="""RTN"",""SROATM4"",28,0)"
^XMB(3.9,148,2,10594,0)=" Q"
^XMB(3.9,148,2,10595,0)="""RTN"",""SROATM4"",29,0)"
^XMB(3.9,148,2,10596,0)="UPDATE ; Updating is done by the server SROASITE after acknowledgement message is received at the site from the National Database"
^XMB(3.9,148,2,10597,0)="""RTN"",""SROATM4"",30,0)"
^XMB(3.9,148,2,10598,0)=" ; Notification message of assessments transmitted is built below"
^XMB(3.9,148,2,10599,0)="""RTN"",""SROATM4"",31,0)"
^XMB(3.9,148,2,10600,0)=" S MM=$E(^TMP(""SRA"",$J,SRAMNUM,SRACNT,0),5,11) F X=1:1 S EMILY=$P(MM,"" "",X) Q:EMILY"
^XMB(3.9,148,2,10601,0)="""RTN"",""SROATM4"",32,0)"
^XMB(3.9,148,2,10602,0)=" S SRASS=SRASS+1"
^XMB(3.9,148,2,10603,0)="""RTN"",""SROATM4"",33,0)"
^XMB(3.9,148,2,10604,0)=" S DFN=$P(^SRF(EMILY,0),""^"") D DEM^VADPT S SRANAME=$P(VADM(1),""^"") K VADM S X=$P(^SRF(EMILY,0),""^"",9),SRADT=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3)"
^XMB(3.9,148,2,10605,0)="""RTN"",""SROATM4"",34,0)"
^XMB(3.9,148,2,10606,0)=" S SHEMP=SHEMP+1,^TMP(""SRAMSG"",$J,SHEMP,0)=""ASSESSMENT: ""_EMILY_""   ""_$J(SRANAME,20)_""        OPERATION DATE: ""_SRADT"
^XMB(3.9,148,2,10607,0)="""RTN"",""SROATM4"",35,0)"
^XMB(3.9,148,2,10608,0)=" Q"
^XMB(3.9,148,2,10609,0)="""RTN"",""SROATMIT"")"
^XMB(3.9,148,2,10610,0)="0^30^B7128937^B6639642"
^XMB(3.9,148,2,10611,0)="""RTN"",""SROATMIT"",1,0)"
^XMB(3.9,148,2,10612,0)="SROATMIT ;BIR/MAM - STUFF TRANMISSION IN ^TMP ;03/22/06"
^XMB(3.9,148,2,10613,0)="""RTN"",""SROATMIT"",2,0)"
^XMB(3.9,148,2,10614,0)=" ;;3.0; Surgery ;**18,27,38,55,62,68,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,10615,0)="""RTN"",""SROATMIT"",3,0)"
^XMB(3.9,148,2,10616,0)=" ;** NOTICE: This routine is part of an implementation of a nationally"
^XMB(3.9,148,2,10617,0)="""RTN"",""SROATMIT"",4,0)"
^XMB(3.9,148,2,10618,0)=" ;**         controlled procedure. Local modifications to this routine"
^XMB(3.9,148,2,10619,0)="""RTN"",""SROATMIT"",5,0)"
^XMB(3.9,148,2,10620,0)=" ;**         are prohibited."
^XMB(3.9,148,2,10621,0)="""RTN"",""SROATMIT"",6,0)"
^XMB(3.9,148,2,10622,0)=" ;"
^XMB(3.9,148,2,10623,0)="""RTN"",""SROATMIT"",7,0)"
^XMB(3.9,148,2,10624,0)=" K ^TMP(""SRA"",$J),^TMP(""SRAMSG"",$J),^TMP(""SRWL"",$J) S SRATOT=0,SRASITE=+$P($$SITE^SROVAR,""^"",3),(SRAMNUM,SRACNT)=1"
^XMB(3.9,148,2,10625,0)="""RTN"",""SROATMIT"",8,0)"
^XMB(3.9,148,2,10626,0)=" S SRADFN=0 F  S SRADFN=$O(^SRF(""ARS"",""N"",""I"",SRADFN)) Q:'SRADFN  S SRTN=0 F  S SRTN=$O(^SRF(""ARS"",""N"",""I"",SRADFN,SRTN)) Q:'SRTN  S SR(""RA"")=$G(^SRF(SRTN,""RA"")) I $P(SR(""RA""),""^"",2)=""N"" D CANCHK"
^XMB(3.9,148,2,10627,0)="""RTN"",""SROATMIT"",9,0)"
^XMB(3.9,148,2,10628,0)=" S SRADFN=0 F  S SRADFN=$O(^SRF(""ARS"",""C"",""I"",SRADFN)) Q:'SRADFN  S SRTN=0 F  S SRTN=$O(^SRF(""ARS"",""C"",""I"",SRADFN,SRTN)) Q:'SRTN  S SR(""RA"")=$G(^SRF(SRTN,""RA"")) D CANCHK"
^XMB(3.9,148,2,10629,0)="""RTN"",""SROATMIT"",10,0)"
^XMB(3.9,148,2,10630,0)=" S SRADFN=0 F  S SRADFN=$O(^SRF(""ARS"",""N"",""C"",SRADFN)) Q:'SRADFN  S SRTN=0 F  S SRTN=$O(^SRF(""ARS"",""N"",""C"",SRADFN,SRTN)) Q:'SRTN  S SR(""RA"")=$G(^SRF(SRTN,""RA"")) D STUFF"
^XMB(3.9,148,2,10631,0)="""RTN"",""SROATMIT"",11,0)"
^XMB(3.9,148,2,10632,0)=" S SRATOTM=SRAMNUM D ^SROATM4"
^XMB(3.9,148,2,10633,0)="""RTN"",""SROATMIT"",12,0)"
^XMB(3.9,148,2,10634,0)=" D ^SROATCM"
^XMB(3.9,148,2,10635,0)="""RTN"",""SROATMIT"",13,0)"
^XMB(3.9,148,2,10636,0)=" D ^SROATMNO"
^XMB(3.9,148,2,10637,0)="""RTN"",""SROATMIT"",14,0)"
^XMB(3.9,148,2,10638,0)=" D WL"
^XMB(3.9,148,2,10639,0)="""RTN"",""SROATMIT"",15,0)"
^XMB(3.9,148,2,10640,0)=" I $D(ZTQUEUED) S ZTREQ=""@"""
^XMB(3.9,148,2,10641,0)="""RTN"",""SROATMIT"",16,0)"
^XMB(3.9,148,2,10642,0)=" Q"
^XMB(3.9,148,2,10643,0)="""RTN"",""SROATMIT"",17,0)"
^XMB(3.9,148,2,10644,0)="STUFF ; stuff entries into ^TMP(""SRA"""
^XMB(3.9,148,2,10645,0)="""RTN"",""SROATMIT"",18,0)"
^XMB(3.9,148,2,10646,0)=" ; check ARS cross-reference"
^XMB(3.9,148,2,10647,0)="""RTN"",""SROATMIT"",19,0)"
^XMB(3.9,148,2,10648,0)=" I $P(^SRF(SRTN,""RA""),""^"",2)=""C"" K ^SRF(""ARS"",""N"",""C"",SRADFN,SRTN) K DR S DIE=130,DR=""235///C"",DA=SRTN D ^DIE K DR Q"
^XMB(3.9,148,2,10649,0)="""RTN"",""SROATMIT"",20,0)"
^XMB(3.9,148,2,10650,0)=" I $P(SR(""RA""),""^"",2)'=""N"" Q"
^XMB(3.9,148,2,10651,0)="""RTN"",""SROATMIT"",21,0)"
^XMB(3.9,148,2,10652,0)=" D CANCHK I 'OK Q"
^XMB(3.9,148,2,10653,0)="""RTN"",""SROATMIT"",22,0)"
^XMB(3.9,148,2,10654,0)=" I $P(SR(""RA""),""^"",6)=""N"" S ^SRF(""ARS"",""N"",""C"",SRADFN,SRTN)=1 Q"
^XMB(3.9,148,2,10655,0)="""RTN"",""SROATMIT"",23,0)"
^XMB(3.9,148,2,10656,0)=" I SRACNT+15>100 S SRACNT=1,SRAMNUM=SRAMNUM+1"
^XMB(3.9,148,2,10657,0)="""RTN"",""SROATMIT"",24,0)"
^XMB(3.9,148,2,10658,0)=" S SRATOT=SRATOT+1,X=$E($P(^SRF(SRTN,0),""^"",9),1,5)_""00"",^TMP(""SRWL"",$J,X)="""""
^XMB(3.9,148,2,10659,0)="""RTN"",""SROATMIT"",25,0)"
^XMB(3.9,148,2,10660,0)=" K SRA,VADM D ^SROATM1 K SHEMP,VADM,SRA"
^XMB(3.9,148,2,10661,0)="""RTN"",""SROATMIT"",26,0)"
^XMB(3.9,148,2,10662,0)=" Q"
^XMB(3.9,148,2,10663,0)="""RTN"",""SROATMIT"",27,0)"
^XMB(3.9,148,2,10664,0)="CANCHK ; check to see if case has been cancelled"
^XMB(3.9,148,2,10665,0)="""RTN"",""SROATMIT"",28,0)"
^XMB(3.9,148,2,10666,0)=" S OK=1,X=$P($G(^SRF(SRTN,30)),""^"") I X S OK=0"
^XMB(3.9,148,2,10667,0)="""RTN"",""SROATMIT"",29,0)"
^XMB(3.9,148,2,10668,0)=" S X=$P($G(^SRF(SRTN,31)),""^"",8) I X'="""" S OK=0"
^XMB(3.9,148,2,10669,0)="""RTN"",""SROATMIT"",30,0)"
^XMB(3.9,148,2,10670,0)=" I 'OK K DA,DIE,DR S DA=SRTN,DIE=130,DR=""102///@;235///@;284///@;323///@"" D ^DIE K DR,DA,DIE"
^XMB(3.9,148,2,10671,0)="""RTN"",""SROATMIT"",31,0)"
^XMB(3.9,148,2,10672,0)=" Q"
^XMB(3.9,148,2,10673,0)="""RTN"",""SROATMIT"",32,0)"
^XMB(3.9,148,2,10674,0)="WL ; send workload updates"
^XMB(3.9,148,2,10675,0)="""RTN"",""SROATMIT"",33,0)"
^XMB(3.9,148,2,10676,0)=" N SRSEL S SRP=0,SRT=1,X=$$SITE^SROVAR,SRINST=$P(X,""^"",2),SRSTATN=+$P(X,""^"",3),SRDT=0,SRNOACK=1 D DTCHK"
^XMB(3.9,148,2,10677,0)="""RTN"",""SROATMIT"",34,0)"
^XMB(3.9,148,2,10678,0)=" F  S SRDT=$O(^TMP(""SRWL"",$J,SRDT)) Q:'SRDT  I SRDT>SRLO S SRSEL=1 D ^SROAWL1"
^XMB(3.9,148,2,10679,0)="""RTN"",""SROATMIT"",35,0)"
^XMB(3.9,148,2,10680,0)=" K ^TMP(""SRWL"",$J),SRLO"
^XMB(3.9,148,2,10681,0)="""RTN"",""SROATMIT"",36,0)"
^XMB(3.9,148,2,10682,0)=" Q"
^XMB(3.9,148,2,10683,0)="""RTN"",""SROATMIT"",37,0)"
^XMB(3.9,148,2,10684,0)="DTCHK N X,Y"
^XMB(3.9,148,2,10685,0)="""RTN"",""SROATMIT"",38,0)"
^XMB(3.9,148,2,10686,0)=" S X=$E(DT,1,3),Y=+$E(DT,4,7),SRLO=$S(Y<1000:X-2,1:X-1)_""0900"""
^XMB(3.9,148,2,10687,0)="""RTN"",""SROATMIT"",39,0)"
^XMB(3.9,148,2,10688,0)=" Q"
^XMB(3.9,148,2,10689,0)="""RTN"",""SROATMNO"")"
^XMB(3.9,148,2,10690,0)="0^63^B26731177^B25963736"
^XMB(3.9,148,2,10691,0)="""RTN"",""SROATMNO"",1,0)"
^XMB(3.9,148,2,10692,0)="SROATMNO ;BIR/MAM - TRANSMIT NO ASSESSMENT ;04/19/06"
^XMB(3.9,148,2,10693,0)="""RTN"",""SROATMNO"",2,0)"
^XMB(3.9,148,2,10694,0)=" ;;3.0; Surgery ;**27,38,47,62,68,79,83,81,88,93,95,97,129,125,142,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,10695,0)="""RTN"",""SROATMNO"",3,0)"
^XMB(3.9,148,2,10696,0)=" ;** NOTICE: This routine is part of an implementation of a nationally"
^XMB(3.9,148,2,10697,0)="""RTN"",""SROATMNO"",4,0)"
^XMB(3.9,148,2,10698,0)=" ;**         controlled procedure. Local modifications to this routine"
^XMB(3.9,148,2,10699,0)="""RTN"",""SROATMNO"",5,0)"
^XMB(3.9,148,2,10700,0)=" ;**         are prohibited."
^XMB(3.9,148,2,10701,0)="""RTN"",""SROATMNO"",6,0)"
^XMB(3.9,148,2,10702,0)=" ;"
^XMB(3.9,148,2,10703,0)="""RTN"",""SROATMNO"",7,0)"
^XMB(3.9,148,2,10704,0)=" ; Reference to ^DIC(45.3 supported by DBIA #218"
^XMB(3.9,148,2,10705,0)="""RTN"",""SROATMNO"",8,0)"
^XMB(3.9,148,2,10706,0)=" ;"
^XMB(3.9,148,2,10707,0)="""RTN"",""SROATMNO"",9,0)"
^XMB(3.9,148,2,10708,0)=" N SR10SP,SRINTUB,SR95PO,SRLO,TDATE K ^TMP(""SRA"",$J) S SRATOT=0,SRASITE=+$P($$SITE^SROVAR,""^"",3),(SRAMNUM,SRACNT)=1"
^XMB(3.9,148,2,10709,0)="""RTN"",""SROATMNO"",10,0)"
^XMB(3.9,148,2,10710,0)=" S Z=$E(DT,1,3)-1,SRLO=Z_""0214"""
^XMB(3.9,148,2,10711,0)="""RTN"",""SROATMNO"",11,0)"
^XMB(3.9,148,2,10712,0)=" S TDATE=0 F  S TDATE=$O(^SRF(""AQ"",TDATE)) Q:TDATE=""""  I DT'<TDATE S SRTN=0 F  S SRTN=$O(^SRF(""AQ"",TDATE,SRTN)) Q:'SRTN  D SET"
^XMB(3.9,148,2,10713,0)="""RTN"",""SROATMNO"",12,0)"
^XMB(3.9,148,2,10714,0)=" S SRATOTM=SRAMNUM D ^SROATM4"
^XMB(3.9,148,2,10715,0)="""RTN"",""SROATMNO"",13,0)"
^XMB(3.9,148,2,10716,0)=" Q"
^XMB(3.9,148,2,10717,0)="""RTN"",""SROATMNO"",14,0)"
^XMB(3.9,148,2,10718,0)="SET I $P($G(^SRF(SRTN,.4)),""^"",2)=""T""!(TDATE<SRLO) K ^SRF(""AQ"",TDATE,SRTN) Q"
^XMB(3.9,148,2,10719,0)="""RTN"",""SROATMNO"",15,0)"
^XMB(3.9,148,2,10720,0)=" I $P($G(^SRF(SRTN,30)),""^"")!$P($G(^SRF(SRTN,31)),""^"",8)!'$P($G(^SRF(SRTN,.2)),""^"",12)!($P($G(^SRF(SRTN,""NON"")),""^"")=""Y"") K ^SRF(""AQ"",TDATE,SRTN) S $P(^SRF(SRTN,.4),""^"",2)="""" Q"
^XMB(3.9,148,2,10721,0)="""RTN"",""SROATMNO"",16,0)"
^XMB(3.9,148,2,10722,0)=" I $P($G(^SRF(SRTN,""RA"")),""^"",6)=""Y"",$P($G(^SRF(SRTN,""RA"")),""^"",2)=""N"" K ^SRF(""AQ"",TDATE,SRTN) Q"
^XMB(3.9,148,2,10723,0)="""RTN"",""SROATMNO"",17,0)"
^XMB(3.9,148,2,10724,0)=" S SR10SP=""          "" K DA,DIE,DR S DA=SRTN,DIE=130,DR=""905///R"" D ^DIE K DR,DA,DIE"
^XMB(3.9,148,2,10725,0)="""RTN"",""SROATMNO"",18,0)"
^XMB(3.9,148,2,10726,0)=" S SRA(0)=^SRF(SRTN,0),DATE=$E($P(SRA(0),""^"",9),1,7),SPEC=$P(SRA(0),""^"",4) S:SPEC SPEC=$P(^DIC(45.3,$P(^SRO(137.45,SPEC,0),""^"",2),0),""^"")"
^XMB(3.9,148,2,10727,0)="""RTN"",""SROATMNO"",19,0)"
^XMB(3.9,148,2,10728,0)=" S EMERG=$P(SRA(0),""^"",10),EMERG=$S(EMERG=""EM"":""Y"",1:""N"")"
^XMB(3.9,148,2,10729,0)="""RTN"",""SROATMNO"",20,0)"
^XMB(3.9,148,2,10730,0)=" K SRTECH,SRZ S SRT=0 F  S SRT=$O(^SRF(SRTN,6,SRT)) Q:'SRT  D ^SROPRIN Q:$D(SRZ)"
^XMB(3.9,148,2,10731,0)="""RTN"",""SROATMNO"",21,0)"
^XMB(3.9,148,2,10732,0)=" I $D(SRTECH) S SRINTUB=$P($G(^SRF(SRTN,6,SRT,8)),""^"",2)"
^XMB(3.9,148,2,10733,0)="""RTN"",""SROATMNO"",22,0)"
^XMB(3.9,148,2,10734,0)=" I '$D(SRTECH) S (SRTECH,SRINTUB)="""""
^XMB(3.9,148,2,10735,0)="""RTN"",""SROATMNO"",23,0)"
^XMB(3.9,148,2,10736,0)=" S CPT=$P($G(^SRO(136,SRTN,0)),""^"",2),SRPMOD="""" I CPT S CPT=$P($$CPT^ICPTCOD(CPT),""^"",2) D"
^XMB(3.9,148,2,10737,0)="""RTN"",""SROATMNO"",24,0)"
^XMB(3.9,148,2,10738,0)=" .S SRM=0,SRCNT=1 F  S SRM=$O(^SRO(136,SRTN,1,SRM)) Q:'SRM  D  Q:SRCNT>5"
^XMB(3.9,148,2,10739,0)="""RTN"",""SROATMNO"",25,0)"
^XMB(3.9,148,2,10740,0)=" ..S X=$P(^SRO(136,SRTN,1,SRM,0),""^"") I X S Y=$P($$MOD^ICPTMOD(X,""I""),""^"",2),SRPMOD=SRPMOD_Y,SRCNT=SRCNT+1"
^XMB(3.9,148,2,10741,0)="""RTN"",""SROATMNO"",26,0)"
^XMB(3.9,148,2,10742,0)=" S DFN=$P(SRA(0),""^"") N I D DEM^VADPT S SRDOB=$E($P(VADM(3),""^""),1,7)"
^XMB(3.9,148,2,10743,0)="""RTN"",""SROATMNO"",27,0)"
^XMB(3.9,148,2,10744,0)=" S X=$$SITE^SROUTL0(SRTN),SRDIV=$S(X:$P(^SRO(133,X,0),""^""),1:""""),SRDIV=$S(SRDIV:$$GET1^DIQ(4,SRDIV,99),1:SRASITE)"
^XMB(3.9,148,2,10745,0)="""RTN"",""SROATMNO"",28,0)"
^XMB(3.9,148,2,10746,0)=" D RS^SROATM2"
^XMB(3.9,148,2,10747,0)="""RTN"",""SROATMNO"",29,0)"
^XMB(3.9,148,2,10748,0)=" S SRMAJMIN=$E($P($G(^SRF(SRTN,0)),U,3),1)"
^XMB(3.9,148,2,10749,0)="""RTN"",""SROATMNO"",30,0)"
^XMB(3.9,148,2,10750,0)=" S SRDEATH=$E($P($G(^DPT(DFN,.35)),U),1,7)"
^XMB(3.9,148,2,10751,0)="""RTN"",""SROATMNO"",31,0)"
^XMB(3.9,148,2,10752,0)=" S SRDTHUR=$E($P($G(^SRF(SRTN,.4)),U,7),1)"
^XMB(3.9,148,2,10753,0)="""RTN"",""SROATMNO"",32,0)"
^XMB(3.9,148,2,10754,0)=" S SRSTATUS=$E($P($G(^SRF(SRTN,0)),U,12),1) I SRSTATUS'=""I""&(SRSTATUS'=""O"") S VAIP(""D"")=$P(SRA(0),""^"",9) D IN5^VADPT S SRSTATUS=$S(VAIP(13):""I"",1:""O"") K VAIP"
^XMB(3.9,148,2,10755,0)="""RTN"",""SROATMNO"",33,0)"
^XMB(3.9,148,2,10756,0)=" S SRAGE="""" I $P(VADM(3),""^"") S SRAGE=$E(DATE,1,3)-$E($P(VADM(3),""^""),1,3)-($E(DATE,4,7)<$E($P(VADM(3),""^""),4,7))"
^XMB(3.9,148,2,10757,0)="""RTN"",""SROATMNO"",34,0)"
^XMB(3.9,148,2,10758,0)=" S SRASA="""",Y=$P($G(^SRF(SRTN,1.1)),""^"",3) S:Y X=$P($P($G(^SRO(132.8,Y,0)),""^""),""-""),SRASA=$E(X,1,2)"
^XMB(3.9,148,2,10759,0)="""RTN"",""SROATMNO"",35,0)"
^XMB(3.9,148,2,10760,0)=" ; Admission wi 14 days following outpatient surgery due to an Occurrence "
^XMB(3.9,148,2,10761,0)="""RTN"",""SROATMNO"",36,0)"
^XMB(3.9,148,2,10762,0)=" S (SRADMIT,SRADMT)=0 I SRSTATUS=""O"" D ADM^SROQ0A S SRADMIT=$S(SRADMT=0:""0"",1:""1"")"
^XMB(3.9,148,2,10763,0)="""RTN"",""SROATMNO"",37,0)"
^XMB(3.9,148,2,10764,0)=" S EXC=$P($G(^SRF(SRTN,""RA"")),""^"",7),SRWOUND=$P($G(^SRF(SRTN,""1.0"")),""^"",8)"
^XMB(3.9,148,2,10765,0)="""RTN"",""SROATMNO"",38,0)"
^XMB(3.9,148,2,10766,0)=" D OCC"
^XMB(3.9,148,2,10767,0)="""RTN"",""SROATMNO"",39,0)"
^XMB(3.9,148,2,10768,0)=" S SRNODE=""  X"" S:$P($G(^SRF(SRTN,""RA"")),U,6)=""N"" SRNODE=""  *"" S:$P($G(^SRF(SRTN,""RA"")),U,2)=""C"" SRNODE=""  C"""
^XMB(3.9,148,2,10769,0)="""RTN"",""SROATMNO"",40,0)"
^XMB(3.9,148,2,10770,0)=" S SRTEMP=""_""_$J(SRASITE,3)_$J(SRTN,7)_SRNODE_DATE_$J(SRTECH,3)_$J(EMERG,1)_$J(SPEC,3)_$J(CPT,5)_$J(EXC,1)_$J(VA(""PID""),20)_$J(SRDIV,6)_"" """
^XMB(3.9,148,2,10771,0)="""RTN"",""SROATMNO"",41,0)"
^XMB(3.9,148,2,10772,0)=" S SRTEMP=SRTEMP_$J(SRMAJMIN,1)_$J(SRDEATH,7)_$J(SRDTHUR,1)_$J(SRSTATUS,1)_$J(SRAGE,3)_$J(SRASA,2)_$J(SRADMIT,1)_SRTMP"
^XMB(3.9,148,2,10773,0)="""RTN"",""SROATMNO"",42,0)"
^XMB(3.9,148,2,10774,0)=" K CPT,SRMOD F SRZ=1:1:10 S (CPT(SRZ),SRMOD(SRZ))="""""
^XMB(3.9,148,2,10775,0)="""RTN"",""SROATMNO"",43,0)"
^XMB(3.9,148,2,10776,0)=" S (OPS,CNT)=0 F  S OPS=$O(^SRO(136,SRTN,3,OPS)) Q:'OPS!(CNT=10)  S CNT=CNT+1,X=$P($G(^SRO(136,SRTN,3,OPS,0)),""^"") I X S CPT(CNT)=$P($$CPT^ICPTCOD(X),""^"",2) D MOD"
^XMB(3.9,148,2,10777,0)="""RTN"",""SROATMNO"",44,0)"
^XMB(3.9,148,2,10778,0)=" S SRCC=$P($G(^SRF(SRTN,""CON"")),""^""),SRBLANK=""          """
^XMB(3.9,148,2,10779,0)="""RTN"",""SROATMNO"",45,0)"
^XMB(3.9,148,2,10780,0)=" I SRCC,$P($G(^SRF(SRCC,30)),""^"")!($P($G(^SRF(SRCC,31)),""^"",8)) S SRCC="""""
^XMB(3.9,148,2,10781,0)="""RTN"",""SROATMNO"",46,0)"
^XMB(3.9,148,2,10782,0)=" S SRTEMP=SRTEMP_$J(CPT(1),5)_$J(CPT(2),5)_$J(CPT(3),5)_$J(CPT(4),5)_$J(CPT(5),5)_$J(CPT(6),5)_$J(CPT(7),5)_$J(CPT(8),5)_$J(CPT(9),5)_$J(CPT(10),5)_$J(SRWOUND,2)_$J(SROCTYPE,1)_SRBLANK_$J(SRCC,10)"
^XMB(3.9,148,2,10783,0)="""RTN"",""SROATMNO"",47,0)"
^XMB(3.9,148,2,10784,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SRTEMP,SRACNT=SRACNT+1"
^XMB(3.9,148,2,10785,0)="""RTN"",""SROATMNO"",48,0)"
^XMB(3.9,148,2,10786,0)=" S SRICD=$P($G(^SRO(136,SRTN,0)),""^"",3) S:SRICD SRICD=$P(^ICD9(SRICD,0),""^"")"
^XMB(3.9,148,2,10787,0)="""RTN"",""SROATMNO"",49,0)"
^XMB(3.9,148,2,10788,0)=" S SRA(.2)=$G(^SRF(SRTN,.2))"
^XMB(3.9,148,2,10789,0)="""RTN"",""SROATMNO"",50,0)"
^XMB(3.9,148,2,10790,0)=" S SRTEMP=""_""_$J(SRASITE,3)_$J(SRTN,7)_""  B""_$J($E($P(SRA(.2),""^""),1,12),12)_$J($E($P(SRA(.2),""^"",4),1,12),12)_$E(SRPMOD_SR10SP,1,10)"
^XMB(3.9,148,2,10791,0)="""RTN"",""SROATMNO"",51,0)"
^XMB(3.9,148,2,10792,0)=" F I=1:1:10 S SRTEMP=SRTEMP_$E(SRMOD(I)_SR10SP,1,10)"
^XMB(3.9,148,2,10793,0)="""RTN"",""SROATMNO"",52,0)"
^XMB(3.9,148,2,10794,0)=" S ^TMP(""SRA"",$J,SRAMNUM,SRACNT,0)=SRTEMP_$J(SRINTUB,1)_SR95PO_$J(SRATT,2)_$J(SRDOB,7)_$J(SRICD,6),SRACNT=SRACNT+1"
^XMB(3.9,148,2,10795,0)="""RTN"",""SROATMNO"",53,0)"
^XMB(3.9,148,2,10796,0)=" I SRACNT>100 S SRACNT=1,SRAMNUM=SRAMNUM+1"
^XMB(3.9,148,2,10797,0)="""RTN"",""SROATMNO"",54,0)"
^XMB(3.9,148,2,10798,0)=" S SRATOT=SRATOT+1"
^XMB(3.9,148,2,10799,0)="""RTN"",""SROATMNO"",55,0)"
^XMB(3.9,148,2,10800,0)=" S X=$E($P(^SRF(SRTN,0),""^"",9),1,5)_""00"",^TMP(""SRWL"",$J,X)="""""
^XMB(3.9,148,2,10801,0)="""RTN"",""SROATMNO"",56,0)"
^XMB(3.9,148,2,10802,0)=" K DATE,ANES,EMERG,EXC,SPEC,SRADMIT,SRADMT,SRATT,SRBLANK,SRCC,SRDIV,SRDOB,SRDTHUR,SRICD,SRIO,SRMAJMIN,SROCTYPE,SRTEMP,SRTMP,SRWOUND,SRZ,SR14,CPT"
^XMB(3.9,148,2,10803,0)="""RTN"",""SROATMNO"",57,0)"
^XMB(3.9,148,2,10804,0)=" Q"
^XMB(3.9,148,2,10805,0)="""RTN"",""SROATMNO"",58,0)"
^XMB(3.9,148,2,10806,0)="OCC ; total of each occurrence by category"
^XMB(3.9,148,2,10807,0)="""RTN"",""SROATMNO"",59,0)"
^XMB(3.9,148,2,10808,0)=" N SRIOFLAG,SRPOFLAG"
^XMB(3.9,148,2,10809,0)="""RTN"",""SROATMNO"",60,0)"
^XMB(3.9,148,2,10810,0)=" F SRK=1:1:37 S SROC(SRK)="""""
^XMB(3.9,148,2,10811,0)="""RTN"",""SROATMNO"",61,0)"
^XMB(3.9,148,2,10812,0)=" S (SRPO,SRIOFLAG)=0 F  S SRPO=$O(^SRF(SRTN,10,SRPO)) Q:'SRPO  S SRSUB=$P(^SRF(SRTN,10,SRPO,0),U,2) I SRSUB'="""" D"
^XMB(3.9,148,2,10813,0)="""RTN"",""SROATMNO"",62,0)"
^XMB(3.9,148,2,10814,0)=" .S SROC(SRSUB)=SROC(SRSUB)+1,SRIOFLAG=1"
^XMB(3.9,148,2,10815,0)="""RTN"",""SROATMNO"",63,0)"
^XMB(3.9,148,2,10816,0)=" S (SRPO,SRPOFLAG)=0 F  S SRPO=$O(^SRF(SRTN,16,SRPO)) Q:'SRPO  S SRSUB=$P(^SRF(SRTN,16,SRPO,0),U,2) I SRSUB'="""" D"
^XMB(3.9,148,2,10817,0)="""RTN"",""SROATMNO"",64,0)"
^XMB(3.9,148,2,10818,0)=" .S SROC(SRSUB)=SROC(SRSUB)+1,SRPOFLAG=1"
^XMB(3.9,148,2,10819,0)="""RTN"",""SROATMNO"",65,0)"
^XMB(3.9,148,2,10820,0)=" S (SROCTYPE,SRTMP)="""" F SRK=1:1:10 S SRTMP=SRTMP_$J(SROC(SRK),2)"
^XMB(3.9,148,2,10821,0)="""RTN"",""SROATMNO"",66,0)"
^XMB(3.9,148,2,10822,0)=" S SRTMP=SRTMP_$J(SROC(37),2) F SRK=12:1:32 S SRTMP=SRTMP_$J(SROC(SRK),2)"
^XMB(3.9,148,2,10823,0)="""RTN"",""SROATMNO"",67,0)"
^XMB(3.9,148,2,10824,0)=" S SR95PO=$J(SROC(33),2)_$J(SROC(34),2)_$J(SROC(35),2)_$J(SROC(36),2)"
^XMB(3.9,148,2,10825,0)="""RTN"",""SROATMNO"",68,0)"
^XMB(3.9,148,2,10826,0)=" I SRIOFLAG=1,(SRPOFLAG=0) S SROCTYPE=""I"""
^XMB(3.9,148,2,10827,0)="""RTN"",""SROATMNO"",69,0)"
^XMB(3.9,148,2,10828,0)=" I SRIOFLAG=0,(SRPOFLAG=1) S SROCTYPE=""P"""
^XMB(3.9,148,2,10829,0)="""RTN"",""SROATMNO"",70,0)"
^XMB(3.9,148,2,10830,0)=" I SRIOFLAG=1,(SRPOFLAG=1) S SROCTYPE=""B"""
^XMB(3.9,148,2,10831,0)="""RTN"",""SROATMNO"",71,0)"
^XMB(3.9,148,2,10832,0)=" I SRIOFLAG=0,(SRPOFLAG=0) S SROCTYPE="""""
^XMB(3.9,148,2,10833,0)="""RTN"",""SROATMNO"",72,0)"
^XMB(3.9,148,2,10834,0)=" Q"
^XMB(3.9,148,2,10835,0)="""RTN"",""SROATMNO"",73,0)"
^XMB(3.9,148,2,10836,0)="MOD N SRM S SRM=0,SRCNT=1 F  S SRM=$O(^SRO(136,SRTN,3,OPS,1,SRM)) Q:'SRM  D  Q:SRCNT>5"
^XMB(3.9,148,2,10837,0)="""RTN"",""SROATMNO"",74,0)"
^XMB(3.9,148,2,10838,0)=" .S X=$P(^SRO(136,SRTN,3,OPS,1,SRM,0),""^""),Y=$P($$MOD^ICPTMOD(X,""I""),""^"",2)"
^XMB(3.9,148,2,10839,0)="""RTN"",""SROATMNO"",75,0)"
^XMB(3.9,148,2,10840,0)=" .I Y'="""" S SRMOD(CNT)=SRMOD(CNT)_Y,SRCNT=SRCNT+1"
^XMB(3.9,148,2,10841,0)="""RTN"",""SROATMNO"",76,0)"
^XMB(3.9,148,2,10842,0)=" Q"
^XMB(3.9,148,2,10843,0)="""RTN"",""SROAUTL"")"
^XMB(3.9,148,2,10844,0)="0^6^B40591108^B41539294"
^XMB(3.9,148,2,10845,0)="""RTN"",""SROAUTL"",1,0)"
^XMB(3.9,148,2,10846,0)="SROAUTL ;BIR/ADM - RISK ASSESSMENT UTILITY ;02/24/06"
^XMB(3.9,148,2,10847,0)="""RTN"",""SROAUTL"",2,0)"
^XMB(3.9,148,2,10848,0)=" ;;3.0; Surgery ;**38,46,47,63,81,88,95,112,100,125,134,142,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,10849,0)="""RTN"",""SROAUTL"",3,0)"
^XMB(3.9,148,2,10850,0)=" I $G(SRSUPCPT)=2 G NCODE"
^XMB(3.9,148,2,10851,0)="""RTN"",""SROAUTL"",4,0)"
^XMB(3.9,148,2,10852,0)=" N SRCMOD,SRCOMMA,X K SRHDR S DFN=$P(^SRF(SRTN,0),""^"") D DEM^VADPT S SRHDR=VADM(1)_"" (""_VA(""PID"")_"")        Case #""_SRTN,Y=$E($P(^SRF(SRTN,0),""^"",9),1,7) X ^DD(""DD"") S SRSDATE=Y"
^XMB(3.9,148,2,10853,0)="""RTN"",""SROAUTL"",5,0)"
^XMB(3.9,148,2,10854,0)=" S X=^SRF(SRTN,""OP""),SROPER=$P(X,""^""),Y=$P(X,""^"",2),SRCPT=$S(Y:$P($$CPT^ICPTCOD(Y),""^"",2),1:""CPT MISSING"") I SRCPT,$O(^SRF(SRTN,""OPMOD"",0)) D"
^XMB(3.9,148,2,10855,0)="""RTN"",""SROAUTL"",6,0)"
^XMB(3.9,148,2,10856,0)=" .S (SRCOMMA,SRI)=0,SRCMOD="""",SRCPT=SRCPT_""-"" F  S SRI=$O(^SRF(SRTN,""OPMOD"",SRI)) Q:'SRI  D"
^XMB(3.9,148,2,10857,0)="""RTN"",""SROAUTL"",7,0)"
^XMB(3.9,148,2,10858,0)=" ..S SRM=$P(^SRF(SRTN,""OPMOD"",SRI,0),""^""),SRCMOD=$P($$MOD^ICPTMOD(SRM,""I""),""^"",2)"
^XMB(3.9,148,2,10859,0)="""RTN"",""SROAUTL"",8,0)"
^XMB(3.9,148,2,10860,0)=" ..S SRCPT=SRCPT_$S(SRCOMMA:"","",1:"""")_SRCMOD,SRCOMMA=1"
^XMB(3.9,148,2,10861,0)="""RTN"",""SROAUTL"",9,0)"
^XMB(3.9,148,2,10862,0)=" S SRCPT=$S($G(SRSUPCPT)=1:"""",1:""(""_SRCPT_"")"")"
^XMB(3.9,148,2,10863,0)="""RTN"",""SROAUTL"",10,0)"
^XMB(3.9,148,2,10864,0)=" S SROPER=SROPER_"" ""_SRCPT D LOOP S SRHDR(1)=SRSDATE_""   ""_SRHDR(1)"
^XMB(3.9,148,2,10865,0)="""RTN"",""SROAUTL"",11,0)"
^XMB(3.9,148,2,10866,0)=" Q"
^XMB(3.9,148,2,10867,0)="""RTN"",""SROAUTL"",12,0)"
^XMB(3.9,148,2,10868,0)="NCODE N SRCMOD,SRCOMMA,X K SRHDR S DFN=$P(^SRF(SRTN,0),""^"") D DEM^VADPT S SRHDR=VADM(1)_"" (""_VA(""PID"")_"")        Case #""_SRTN"
^XMB(3.9,148,2,10869,0)="""RTN"",""SROAUTL"",13,0)"
^XMB(3.9,148,2,10870,0)=" S Y=$E($P(^SRF(SRTN,0),""^"",9),1,7) X ^DD(""DD"") S SRSDATE=Y"
^XMB(3.9,148,2,10871,0)="""RTN"",""SROAUTL"",14,0)"
^XMB(3.9,148,2,10872,0)=" S X=^SRF(SRTN,""OP""),SROPER=$P(X,""^""),Y=$P($G(^SRO(136,SRTN,0)),""^"",2),SRCPT=$S(Y:$P($$CPT^ICPTCOD(Y),""^"",2),1:""CPT MISSING"") I SRCPT,$O(^SRO(136,SRTN,1,0)) D"
^XMB(3.9,148,2,10873,0)="""RTN"",""SROAUTL"",15,0)"
^XMB(3.9,148,2,10874,0)=" .S (SRCOMMA,SRI)=0,SRCMOD="""",SRCPT=SRCPT_""-"" F  S SRI=$O(^SRO(136,SRTN,1,SRI)) Q:'SRI  D"
^XMB(3.9,148,2,10875,0)="""RTN"",""SROAUTL"",16,0)"
^XMB(3.9,148,2,10876,0)=" ..S SRM=$P(^SRO(136,SRTN,1,SRI,0),""^""),SRCMOD=$P($$MOD^ICPTMOD(SRM,""I""),""^"",2)"
^XMB(3.9,148,2,10877,0)="""RTN"",""SROAUTL"",17,0)"
^XMB(3.9,148,2,10878,0)=" ..S SRCPT=SRCPT_$S(SRCOMMA:"","",1:"""")_SRCMOD,SRCOMMA=1"
^XMB(3.9,148,2,10879,0)="""RTN"",""SROAUTL"",18,0)"
^XMB(3.9,148,2,10880,0)=" S SRCPT=""(CPT Code: ""_SRCPT_"")"""
^XMB(3.9,148,2,10881,0)="""RTN"",""SROAUTL"",19,0)"
^XMB(3.9,148,2,10882,0)=" S SROPER=SROPER_"" ""_SRCPT D LOOP S SRHDR(1)=SRSDATE_""   ""_SRHDR(1)"
^XMB(3.9,148,2,10883,0)="""RTN"",""SROAUTL"",20,0)"
^XMB(3.9,148,2,10884,0)=" Q"
^XMB(3.9,148,2,10885,0)="""RTN"",""SROAUTL"",21,0)"
^XMB(3.9,148,2,10886,0)="LOOP I $L(SROPER)<68 S SRHDR(1)=SROPER Q"
^XMB(3.9,148,2,10887,0)="""RTN"",""SROAUTL"",22,0)"
^XMB(3.9,148,2,10888,0)=" I $L(SROPER)>67 S X=SROPER,K=1 F  D  I $L(X)<68 S SRHDR(K)=X Q"
^XMB(3.9,148,2,10889,0)="""RTN"",""SROAUTL"",23,0)"
^XMB(3.9,148,2,10890,0)=" .F I=0:1:66 S J=67-I,Y=$E(X,J) I Y="" "" S SRHDR(K)=$E(X,1,J-1),X=$E(X,J+1,$L(X)) S K=K+1 Q"
^XMB(3.9,148,2,10891,0)="""RTN"",""SROAUTL"",24,0)"
^XMB(3.9,148,2,10892,0)=" Q"
^XMB(3.9,148,2,10893,0)="""RTN"",""SROAUTL"",25,0)"
^XMB(3.9,148,2,10894,0)="HDR ; print screen header"
^XMB(3.9,148,2,10895,0)="""RTN"",""SROAUTL"",26,0)"
^XMB(3.9,148,2,10896,0)=" W @IOF,!,SRHDR W:$D(SRPAGE) ?(79-$L(SRPAGE)),SRPAGE"
^XMB(3.9,148,2,10897,0)="""RTN"",""SROAUTL"",27,0)"
^XMB(3.9,148,2,10898,0)=" S I=0 F  S I=$O(SRHDR(I)) Q:'I  W !,SRHDR(I)"
^XMB(3.9,148,2,10899,0)="""RTN"",""SROAUTL"",28,0)"
^XMB(3.9,148,2,10900,0)=" K SRHDR(.5),SRPAGE W ! F I=1:1:80 W ""-"""
^XMB(3.9,148,2,10901,0)="""RTN"",""SROAUTL"",29,0)"
^XMB(3.9,148,2,10902,0)=" W !"
^XMB(3.9,148,2,10903,0)="""RTN"",""SROAUTL"",30,0)"
^XMB(3.9,148,2,10904,0)=" Q"
^XMB(3.9,148,2,10905,0)="""RTN"",""SROAUTL"",31,0)"
^XMB(3.9,148,2,10906,0)="FUNCT() ; called by screen on functional health status field (#240)"
^XMB(3.9,148,2,10907,0)="""RTN"",""SROAUTL"",32,0)"
^XMB(3.9,148,2,10908,0)=" N SRSCR S SRSCR=""I 1"""
^XMB(3.9,148,2,10909,0)="""RTN"",""SROAUTL"",33,0)"
^XMB(3.9,148,2,10910,0)=" I $$CARD S SRSCR=""I Y'=4"""
^XMB(3.9,148,2,10911,0)="""RTN"",""SROAUTL"",34,0)"
^XMB(3.9,148,2,10912,0)=" Q SRSCR"
^XMB(3.9,148,2,10913,0)="""RTN"",""SROAUTL"",35,0)"
^XMB(3.9,148,2,10914,0)="CARD() ; is this a cardiac assessed case?"
^XMB(3.9,148,2,10915,0)="""RTN"",""SROAUTL"",36,0)"
^XMB(3.9,148,2,10916,0)=" N SRX S SRX=$S($D(SRTN):SRTN,$D(DA):DA,1:"""") I 'SRX Q 0"
^XMB(3.9,148,2,10917,0)="""RTN"",""SROAUTL"",37,0)"
^XMB(3.9,148,2,10918,0)=" I $P($G(^SRF(SRX,""RA"")),""^"",2)=""C"" Q 1"
^XMB(3.9,148,2,10919,0)="""RTN"",""SROAUTL"",38,0)"
^XMB(3.9,148,2,10920,0)=" Q 0"
^XMB(3.9,148,2,10921,0)="""RTN"",""SROAUTL"",39,0)"
^XMB(3.9,148,2,10922,0)="NC ; called from input transform to kill X if case is cardiac assessed"
^XMB(3.9,148,2,10923,0)="""RTN"",""SROAUTL"",40,0)"
^XMB(3.9,148,2,10924,0)=" I $$CARD,X=""NA""!(X=""NS"") K X"
^XMB(3.9,148,2,10925,0)="""RTN"",""SROAUTL"",41,0)"
^XMB(3.9,148,2,10926,0)=" Q"
^XMB(3.9,148,2,10927,0)="""RTN"",""SROAUTL"",42,0)"
^XMB(3.9,148,2,10928,0)="DATE ; called by output transmform on several date fields"
^XMB(3.9,148,2,10929,0)="""RTN"",""SROAUTL"",43,0)"
^XMB(3.9,148,2,10930,0)=" I $D(Y),Y=""NA""!(Y=""NS"") Q"
^XMB(3.9,148,2,10931,0)="""RTN"",""SROAUTL"",44,0)"
^XMB(3.9,148,2,10932,0)=" N SRY S SRY=Y D DD^%DT"
^XMB(3.9,148,2,10933,0)="""RTN"",""SROAUTL"",45,0)"
^XMB(3.9,148,2,10934,0)=" Q"
^XMB(3.9,148,2,10935,0)="""RTN"",""SROAUTL"",46,0)"
^XMB(3.9,148,2,10936,0)="INDX ; set airway index"
^XMB(3.9,148,2,10937,0)="""RTN"",""SROAUTL"",47,0)"
^XMB(3.9,148,2,10938,0)=" S SRY=$S(SRI>4:5,SRI>3:4,SRI>2:3,SRI>0:2,1:1),$P(^SRF(DA,.3),""^"",9)=SRY"
^XMB(3.9,148,2,10939,0)="""RTN"",""SROAUTL"",48,0)"
^XMB(3.9,148,2,10940,0)=" K SRI,SRMS,SROP,SRY"
^XMB(3.9,148,2,10941,0)="""RTN"",""SROAUTL"",49,0)"
^XMB(3.9,148,2,10942,0)=" Q"
^XMB(3.9,148,2,10943,0)="""RTN"",""SROAUTL"",50,0)"
^XMB(3.9,148,2,10944,0)="OP ; set logic for AOP cross reference on Oral-Pharyngeal field (901.1)"
^XMB(3.9,148,2,10945,0)="""RTN"",""SROAUTL"",51,0)"
^XMB(3.9,148,2,10946,0)=" N SRI,SRMS,SRY S SRMS=$P(^SRF(DA,.3),""^"",12) I SRMS'="""" S SRMS=SRMS*.1,SRI=2.5*X-SRMS D INDX"
^XMB(3.9,148,2,10947,0)="""RTN"",""SROAUTL"",52,0)"
^XMB(3.9,148,2,10948,0)=" Q"
^XMB(3.9,148,2,10949,0)="""RTN"",""SROAUTL"",53,0)"
^XMB(3.9,148,2,10950,0)="MS ; set logic for AMS cross reference on Mandibular Space field (901.2)"
^XMB(3.9,148,2,10951,0)="""RTN"",""SROAUTL"",54,0)"
^XMB(3.9,148,2,10952,0)=" N SRI,SRY,SRMS,SROP S SROP=$P(^SRF(DA,.3),""^"",11) I SROP'="""" S SRMS=X*.1,SRI=2.5*SROP-SRMS D INDX"
^XMB(3.9,148,2,10953,0)="""RTN"",""SROAUTL"",55,0)"
^XMB(3.9,148,2,10954,0)=" Q"
^XMB(3.9,148,2,10955,0)="""RTN"",""SROAUTL"",56,0)"
^XMB(3.9,148,2,10956,0)="K901 ; kill logic for AOP and AMS cross references"
^XMB(3.9,148,2,10957,0)="""RTN"",""SROAUTL"",57,0)"
^XMB(3.9,148,2,10958,0)=" S $P(^SRF(DA,.3),""^"",9)="""""
^XMB(3.9,148,2,10959,0)="""RTN"",""SROAUTL"",58,0)"
^XMB(3.9,148,2,10960,0)=" Q"
^XMB(3.9,148,2,10961,0)="""RTN"",""SROAUTL"",59,0)"
^XMB(3.9,148,2,10962,0)="DUP ; duplicate preop information from prior operation within 60 days"
^XMB(3.9,148,2,10963,0)="""RTN"",""SROAUTL"",60,0)"
^XMB(3.9,148,2,10964,0)=" S SR200=$G(^SRF(SRTN,200)) S NOGO="""" F I=1,9,13,18,30,37,44 S X=$P(SR200,""^"",I) I X'="""" S NOGO=1 K SR200 Q"
^XMB(3.9,148,2,10965,0)="""RTN"",""SROAUTL"",61,0)"
^XMB(3.9,148,2,10966,0)=" S X=$P($G(^SRF(SRTN,200.1)),""^"") I X'="""" S NOGO=1"
^XMB(3.9,148,2,10967,0)="""RTN"",""SROAUTL"",62,0)"
^XMB(3.9,148,2,10968,0)=" I NOGO K NOGO Q"
^XMB(3.9,148,2,10969,0)="""RTN"",""SROAUTL"",63,0)"
^XMB(3.9,148,2,10970,0)=" K SRCASE S SR=^SRF(SRTN,0),DFN=$P(SR,""^""),(SRSDATE,X1)=$P(SR,""^"",9),X2=-60 D C^%DTC S SRENDT=X,SRCASE=0 F  S SRCASE=$O(^SRF(""B"",DFN,SRCASE)) Q:'SRCASE  I SRCASE,SRCASE'=SRTN D"
^XMB(3.9,148,2,10971,0)="""RTN"",""SROAUTL"",64,0)"
^XMB(3.9,148,2,10972,0)=" .S SRX=$P(^SRF(SRCASE,0),""^"",9) I SRX>SRSDATE!(SRX<SRENDT) Q"
^XMB(3.9,148,2,10973,0)="""RTN"",""SROAUTL"",65,0)"
^XMB(3.9,148,2,10974,0)=" .Q:$P($G(^SRF(SRCASE,""NON"")),""^"")=""Y""!$P($G(^SRF(SRCASE,30)),""^"")!$P($G(^SRF(SRCASE,31)),""^"",8)!($P($G(^SRF(SRCASE,""CON"")),""^"")=SRTN)!'$P($G(^SRF(SRCASE,.2)),""^"",12)"
^XMB(3.9,148,2,10975,0)="""RTN"",""SROAUTL"",66,0)"
^XMB(3.9,148,2,10976,0)=" .S SRX=9999999-SRX,SRCASE(SRX,SRCASE)="""""
^XMB(3.9,148,2,10977,0)="""RTN"",""SROAUTL"",67,0)"
^XMB(3.9,148,2,10978,0)=" K SRDT S (SRX,Y)=0 F  S SRX=$O(SRCASE(SRX)) Q:'SRX!$D(SRDT)  S SRCASE="""" F  S SRCASE=$O(SRCASE(SRX,SRCASE)) Q:'SRCASE  S SR=$G(^SRF(SRCASE,""RA"")) I $P(SR,""^"",2)=""N"",$P(SR,""^"",6)=""Y"" D  Q"
^XMB(3.9,148,2,10979,0)="""RTN"",""SROAUTL"",68,0)"
^XMB(3.9,148,2,10980,0)=" .S Y=$P(^SRF(SRCASE,0),""^"",9) X ^DD(""DD"") S SRDT=Y K DIR"
^XMB(3.9,148,2,10981,0)="""RTN"",""SROAUTL"",69,0)"
^XMB(3.9,148,2,10982,0)=" .W !! S DIR(""A"",1)=""This patient had a previous non-cardiac operation on ""_SRDT_""."",DIR(""A"",2)="""",DIR(""A"",3)=""Case #""_SRCASE_""  ""_$P(^SRF(SRCASE,""OP""),""^"")"
^XMB(3.9,148,2,10983,0)="""RTN"",""SROAUTL"",70,0)"
^XMB(3.9,148,2,10984,0)=" .S DIR(""A"",4)="""",DIR(""A"",5)=""Do you want to duplicate the preoperative information from the earlier"",DIR(""A"")=""assessment in this assessment? """
^XMB(3.9,148,2,10985,0)="""RTN"",""SROAUTL"",71,0)"
^XMB(3.9,148,2,10986,0)=" .S DIR(""B"")=""YES"",DIR(0)=""YA"" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1 Q"
^XMB(3.9,148,2,10987,0)="""RTN"",""SROAUTL"",72,0)"
^XMB(3.9,148,2,10988,0)=" .D:Y STUFF"
^XMB(3.9,148,2,10989,0)="""RTN"",""SROAUTL"",73,0)"
^XMB(3.9,148,2,10990,0)=" Q"
^XMB(3.9,148,2,10991,0)="""RTN"",""SROAUTL"",74,0)"
^XMB(3.9,148,2,10992,0)="STUFF ; stuff preop information from previous case"
^XMB(3.9,148,2,10993,0)="""RTN"",""SROAUTL"",75,0)"
^XMB(3.9,148,2,10994,0)=" I $$LOCK^SROUTL(SRCASE) D  D UNLOCK^SROUTL(SRCASE)"
^XMB(3.9,148,2,10995,0)="""RTN"",""SROAUTL"",76,0)"
^XMB(3.9,148,2,10996,0)=" .K DA,DIC,DIQ,DR,SRY S DIC=""^SRF("",DA=SRCASE,DIQ=""SRY"",DIQ(0)=""I"" D PREHD D EN^DIQ1 K DA,DIC,DIQ,DR"
^XMB(3.9,148,2,10997,0)="""RTN"",""SROAUTL"",77,0)"
^XMB(3.9,148,2,10998,0)=" .S SRZ=0 F  S SRZ=$O(SRY(130,SRCASE,SRZ)) Q:'SRZ  S DIE=130,DA=SRTN,DR=SRZ_""////""_SRY(130,SRCASE,SRZ,""I"") D ^DIE K DA,DIE,DR"
^XMB(3.9,148,2,10999,0)="""RTN"",""SROAUTL"",78,0)"
^XMB(3.9,148,2,11000,0)=" Q"
^XMB(3.9,148,2,11001,0)="""RTN"",""SROAUTL"",79,0)"
^XMB(3.9,148,2,11002,0)="CHK ; check for missing non-cardiac assessment data items"
^XMB(3.9,148,2,11003,0)="""RTN"",""SROAUTL"",80,0)"
^XMB(3.9,148,2,11004,0)=" N SRSEP K SRX"
^XMB(3.9,148,2,11005,0)="""RTN"",""SROAUTL"",81,0)"
^XMB(3.9,148,2,11006,0)=" F SRC=""PREOP"",""DEM"" K DA,DIC,DIQ,DR,SRY S DIC=""^SRF("",DA=SRTN,DIQ=""SRY"",DIQ(0)=""I"" D @SRC D EN^DIQ1 D ^SROAUTL1"
^XMB(3.9,148,2,11007,0)="""RTN"",""SROAUTL"",82,0)"
^XMB(3.9,148,2,11008,0)=" F SRC=""LAB"",""REM"" K DA,DIC,DIQ,DR,SRY S DIC=""^SRF("",DA=SRTN,DIQ=""SRY"",DIQ(0)=""I"" D @SRC D EN^DIQ1 D ^SROAUTL2"
^XMB(3.9,148,2,11009,0)="""RTN"",""SROAUTL"",83,0)"
^XMB(3.9,148,2,11010,0)="OTH K DA,DIC,DIQ,DR,SRY,SRZ D TECH^SROPRIN I SRTECH=""NOT ENTERED"" S SRX(""ANESTHESIA TECHNIQUE"")=""Anesthesia Technique"""
^XMB(3.9,148,2,11011,0)="""RTN"",""SROAUTL"",84,0)"
^XMB(3.9,148,2,11012,0)=" ;D RELATE^SROAUTL2"
^XMB(3.9,148,2,11013,0)="""RTN"",""SROAUTL"",85,0)"
^XMB(3.9,148,2,11014,0)="OCC D EN^SROCCAT S SRSDATE=$E($P(^SRF(SRTN,0),""^"",9),1,7) K ^TMP(""SROCC"",$J),SRO"
^XMB(3.9,148,2,11015,0)="""RTN"",""SROAUTL"",86,0)"
^XMB(3.9,148,2,11016,0)=" S SRPO=0 F  S SRPO=$O(^SRF(SRTN,10,SRPO)) Q:'SRPO  S ^TMP(""SROCC"",$J,$P(^SRF(SRTN,10,SRPO,0),""^"",2),SRSDATE)="""""
^XMB(3.9,148,2,11017,0)="""RTN"",""SROAUTL"",87,0)"
^XMB(3.9,148,2,11018,0)=" S SRPO=0 F  S SRPO=$O(^SRF(SRTN,16,SRPO)) Q:'SRPO  S SRDATE=$E($P(^SRF(SRTN,16,SRPO,0),""^"",7),1,7) D"
^XMB(3.9,148,2,11019,0)="""RTN"",""SROAUTL"",88,0)"
^XMB(3.9,148,2,11020,0)=" .S SRSEP=$P(^SRF(SRTN,16,SRPO,0),""^"",4)"
^XMB(3.9,148,2,11021,0)="""RTN"",""SROAUTL"",89,0)"
^XMB(3.9,148,2,11022,0)=" .I '$G(SRDATE) S SRDATE=""NO DATE"""
^XMB(3.9,148,2,11023,0)="""RTN"",""SROAUTL"",90,0)"
^XMB(3.9,148,2,11024,0)=" .S ^TMP(""SROCC"",$J,$P(^SRF(SRTN,16,SRPO,0),""^"",2),SRDATE)=SRSEP"
^XMB(3.9,148,2,11025,0)="""RTN"",""SROAUTL"",91,0)"
^XMB(3.9,148,2,11026,0)=" I '$D(^TMP(""SROCC"",$J)) D OCCEND Q"
^XMB(3.9,148,2,11027,0)="""RTN"",""SROAUTL"",92,0)"
^XMB(3.9,148,2,11028,0)=" S SRPO=0 F  S SRPO=$O(^TMP(""SROCC"",$J,SRPO)) Q:'SRPO  S SRDATE="""" F  S SRDATE=$O(^TMP(""SROCC"",$J,SRPO,SRDATE)) Q:SRDATE  S SRX(""POSTOP OCCURRENCE DATE""_SRPO)=""Date Noted on ""_$P(^SRO(136.5,SRPO,0),""^"")_"" (Postop Occurrence)"" Q"
^XMB(3.9,148,2,11029,0)="""RTN"",""SROAUTL"",93,0)"
^XMB(3.9,148,2,11030,0)=" S SRDATE="""",SRDATE=$O(^TMP(""SROCC"",$J,3,SRDATE)) Q:SRDATE=""""  I ^TMP(""SROCC"",$J,3,SRDATE)="""" S SRX(""SEPSIS CATEGORY"")=""SEPSIS CATEGORY on SYSTEMIC SEPSIS (Postop Occurrence)"""
^XMB(3.9,148,2,11031,0)="""RTN"",""SROAUTL"",94,0)"
^XMB(3.9,148,2,11032,0)="OCCEND K ^TMP(""SROCC"",$J)"
^XMB(3.9,148,2,11033,0)="""RTN"",""SROAUTL"",95,0)"
^XMB(3.9,148,2,11034,0)=" Q"
^XMB(3.9,148,2,11035,0)="""RTN"",""SROAUTL"",96,0)"
^XMB(3.9,148,2,11036,0)="PREOP S DR=""236;237;346;202;202.1;246;325;238;240;492;204;203;326;212;213;396;394;220;266;395;208;329;330;328;211;332;333;398;399;400;334;335;336;401;338;218;339;215;216;217;338.1;338.2;218.1;269"""
^XMB(3.9,148,2,11037,0)="""RTN"",""SROAUTL"",97,0)"
^XMB(3.9,148,2,11038,0)=" Q"
^XMB(3.9,148,2,11039,0)="""RTN"",""SROAUTL"",98,0)"
^XMB(3.9,148,2,11040,0)="DEM S DR=""413;.011;247;418;419;420;421;452;453;454"""
^XMB(3.9,148,2,11041,0)="""RTN"",""SROAUTL"",99,0)"
^XMB(3.9,148,2,11042,0)=" Q"
^XMB(3.9,148,2,11043,0)="""RTN"",""SROAUTL"",100,0)"
^XMB(3.9,148,2,11044,0)="LAB S DR=""270;304;224;291;223;290;225;292;228;295;227;294;229;296;230;297;234;301;231;298;233;300;232;299;487;487.1;274;305;405;407;275;306;406;408;277;308;278;309;279;310;280;311;281;312;283;314;455;455.1;456;456.1;444;444.1;445;445.1"""
^XMB(3.9,148,2,11045,0)="""RTN"",""SROAUTL"",101,0)"
^XMB(3.9,148,2,11046,0)=" Q"
^XMB(3.9,148,2,11047,0)="""RTN"",""SROAUTL"",102,0)"
^XMB(3.9,148,2,11048,0)="REM S DR="".03;214;.035;1.09;1.13;.22;.23;340;443"""
^XMB(3.9,148,2,11049,0)="""RTN"",""SROAUTL"",103,0)"
^XMB(3.9,148,2,11050,0)=" Q"
^XMB(3.9,148,2,11051,0)="""RTN"",""SROAUTL"",104,0)"
^XMB(3.9,148,2,11052,0)="PREHD D PREOP S DR=DR_"";402;241;244;242;243;210;245"""
^XMB(3.9,148,2,11053,0)="""RTN"",""SROAUTL"",105,0)"
^XMB(3.9,148,2,11054,0)=" Q"
^XMB(3.9,148,2,11055,0)="""RTN"",""SROAUTL0"")"
^XMB(3.9,148,2,11056,0)="0^61^B17506140^B23028000"
^XMB(3.9,148,2,11057,0)="""RTN"",""SROAUTL0"",1,0)"
^XMB(3.9,148,2,11058,0)="SROAUTL0 ;BIR/ADM/SLM - RISK ASSESSMENT UTILITY ;03/30/06"
^XMB(3.9,148,2,11059,0)="""RTN"",""SROAUTL0"",2,0)"
^XMB(3.9,148,2,11060,0)=" ;;3.0; Surgery ;**38,47,57,60,61,63,81,125,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,11061,0)="""RTN"",""SROAUTL0"",3,0)"
^XMB(3.9,148,2,11062,0)="PREOP K DR S SRQ=1,DR=""325;238;240;204;203;396;332;333;338;339;215;217"""
^XMB(3.9,148,2,11063,0)="""RTN"",""SROAUTL0"",4,0)"
^XMB(3.9,148,2,11064,0)=" Q"
^XMB(3.9,148,2,11065,0)="""RTN"",""SROAUTL0"",5,0)"
^XMB(3.9,148,2,11066,0)="PREMD K DR S SRQ=1,DR="".011;247;413;417;418;419;420;421;452;453;454"""
^XMB(3.9,148,2,11067,0)="""RTN"",""SROAUTL0"",6,0)"
^XMB(3.9,148,2,11068,0)=" Q"
^XMB(3.9,148,2,11069,0)="""RTN"",""SROAUTL0"",7,0)"
^XMB(3.9,148,2,11070,0)="OPER K DR S SRQ=0,DR="".03;.04;26;27;214;.42;.035;1.09;1.13;.37;.22;.23;340;66"""
^XMB(3.9,148,2,11071,0)="""RTN"",""SROAUTL0"",8,0)"
^XMB(3.9,148,2,11072,0)=" Q"
^XMB(3.9,148,2,11073,0)="""RTN"",""SROAUTL0"",9,0)"
^XMB(3.9,148,2,11074,0)="LR K DR S SRQ=0,DR=""225;292;228;295;224;291;234;301;230;297;227;294"""
^XMB(3.9,148,2,11075,0)="""RTN"",""SROAUTL0"",10,0)"
^XMB(3.9,148,2,11076,0)=" Q"
^XMB(3.9,148,2,11077,0)="""RTN"",""SROAUTL0"",11,0)"
^XMB(3.9,148,2,11078,0)="OUT1 ; man preop edit scr"
^XMB(3.9,148,2,11079,0)="""RTN"",""SROAUTL0"",12,0)"
^XMB(3.9,148,2,11080,0)=" Q"
^XMB(3.9,148,2,11081,0)="""RTN"",""SROAUTL0"",13,0)"
^XMB(3.9,148,2,11082,0)="LAB ; man lab edit scrn"
^XMB(3.9,148,2,11083,0)="""RTN"",""SROAUTL0"",14,0)"
^XMB(3.9,148,2,11084,0)=" Q"
^XMB(3.9,148,2,11085,0)="""RTN"",""SROAUTL0"",15,0)"
^XMB(3.9,148,2,11086,0)="CPTS ; put CPT codes in array for display"
^XMB(3.9,148,2,11087,0)="""RTN"",""SROAUTL0"",16,0)"
^XMB(3.9,148,2,11088,0)=" N SRDA,K,X,XX,Y K SRPROC S K=1,Y=$P($G(^SRO(136,SRTN,0)),""^"",2),Y=$S(Y:$P($$CPT^ICPTCOD(Y),""^"",2),1:"""")"
^XMB(3.9,148,2,11089,0)="""RTN"",""SROAUTL0"",17,0)"
^XMB(3.9,148,2,11090,0)=" I $L(Y) D SSPRIN^SROCPT0"
^XMB(3.9,148,2,11091,0)="""RTN"",""SROAUTL0"",18,0)"
^XMB(3.9,148,2,11092,0)=" S SRPROC(K)=$S($L(Y):Y,1:""NO PRIN CODE"")"
^XMB(3.9,148,2,11093,0)="""RTN"",""SROAUTL0"",19,0)"
^XMB(3.9,148,2,11094,0)=" S SRDA=0 F  S SRDA=$O(^SRO(136,SRTN,3,SRDA)) Q:'SRDA  D"
^XMB(3.9,148,2,11095,0)="""RTN"",""SROAUTL0"",20,0)"
^XMB(3.9,148,2,11096,0)=" .S Y=$P($G(^SRO(136,SRTN,3,SRDA,0)),""^""),Y=$S(Y:$P($$CPT^ICPTCOD(Y),""^"",2),1:"""")"
^XMB(3.9,148,2,11097,0)="""RTN"",""SROAUTL0"",21,0)"
^XMB(3.9,148,2,11098,0)=" .I $L(Y) D SSOTH^SROCPT0"
^XMB(3.9,148,2,11099,0)="""RTN"",""SROAUTL0"",22,0)"
^XMB(3.9,148,2,11100,0)=" .I $L(Y)+$L(SRPROC(K))'>SRL S SRPROC(K)=SRPROC(K)_"", ""_Y Q"
^XMB(3.9,148,2,11101,0)="""RTN"",""SROAUTL0"",23,0)"
^XMB(3.9,148,2,11102,0)=" .S K=K+1,SRPROC(K)=Y"
^XMB(3.9,148,2,11103,0)="""RTN"",""SROAUTL0"",24,0)"
^XMB(3.9,148,2,11104,0)=" I SRPROC(1)=""""!(SRPROC(1)=""NO PRIN CODE"") S SRPROC(1)=""NOT ENTERED"""
^XMB(3.9,148,2,11105,0)="""RTN"",""SROAUTL0"",25,0)"
^XMB(3.9,148,2,11106,0)=" Q"
^XMB(3.9,148,2,11107,0)="""RTN"",""SROAUTL0"",26,0)"
^XMB(3.9,148,2,11108,0)="DISP ; display CPT code info"
^XMB(3.9,148,2,11109,0)="""RTN"",""SROAUTL0"",27,0)"
^XMB(3.9,148,2,11110,0)=" N SRFIRST,SRMO,SRMOD S SRPAGE="""" D HDR^SROAUTL S SRFIRST=0,SRW=""NOT ENTERED"""
^XMB(3.9,148,2,11111,0)="""RTN"",""SROAUTL0"",28,0)"
^XMB(3.9,148,2,11112,0)=" S Y=$P($G(^SRO(136,SRTN,0)),""^"",2) I Y S Y=$P($$CPT^ICPTCOD(Y),""^"",2) D DES^SROCPT0"
^XMB(3.9,148,2,11113,0)="""RTN"",""SROAUTL0"",29,0)"
^XMB(3.9,148,2,11114,0)=" W ""Principal CPT Code: ""_SRW I $G(SRDES(1))'="""" F I=1:1 Q:$L(SRDES(I))'>1  W !,?5,SRDES(I)"
^XMB(3.9,148,2,11115,0)="""RTN"",""SROAUTL0"",30,0)"
^XMB(3.9,148,2,11116,0)=" I $O(^SRO(136,SRTN,1,0)) W !,?3,""Modifier: "" D"
^XMB(3.9,148,2,11117,0)="""RTN"",""SROAUTL0"",31,0)"
^XMB(3.9,148,2,11118,0)=" .S SRMOD=0 F  S SRMOD=$O(^SRO(136,SRTN,1,SRMOD)) Q:'SRMOD  D"
^XMB(3.9,148,2,11119,0)="""RTN"",""SROAUTL0"",32,0)"
^XMB(3.9,148,2,11120,0)=" ..S SRMO=$P(^SRO(136,SRTN,1,SRMOD,0),""^"")"
^XMB(3.9,148,2,11121,0)="""RTN"",""SROAUTL0"",33,0)"
^XMB(3.9,148,2,11122,0)=" ..W:SRFIRST !,?13 W $P($$MOD^ICPTMOD(SRMO,""I""),""^"",2),""-"",$P($$MOD^ICPTMOD(SRMO,""I""),""^"",3)"
^XMB(3.9,148,2,11123,0)="""RTN"",""SROAUTL0"",34,0)"
^XMB(3.9,148,2,11124,0)=" ..S SRFIRST=1"
^XMB(3.9,148,2,11125,0)="""RTN"",""SROAUTL0"",35,0)"
^XMB(3.9,148,2,11126,0)=" K SRDES W !"
^XMB(3.9,148,2,11127,0)="""RTN"",""SROAUTL0"",36,0)"
^XMB(3.9,148,2,11128,0)="OTH S SROTH=0 F  S SROTH=$O(^SRO(136,SRTN,3,SROTH)) Q:'SROTH  D  K SRDES W !"
^XMB(3.9,148,2,11129,0)="""RTN"",""SROAUTL0"",37,0)"
^XMB(3.9,148,2,11130,0)=" .S Y=$P($G(^SRO(136,SRTN,3,SROTH,0)),""^""),Y=$S(Y:$P($$CPT^ICPTCOD(Y),""^"",2),1:"""") D DES^SROCPT0"
^XMB(3.9,148,2,11131,0)="""RTN"",""SROAUTL0"",38,0)"
^XMB(3.9,148,2,11132,0)=" .W !,""Other CPT Code:     ""_SRW I $G(SRDES(1))'="""" F I=1:1 Q:$L(SRDES(I))'>1  W !,?5,SRDES(I)"
^XMB(3.9,148,2,11133,0)="""RTN"",""SROAUTL0"",39,0)"
^XMB(3.9,148,2,11134,0)=" .I $O(^SRO(136,SRTN,3,SROTH,1,0)) S SRFIRST=0 W !,?3,""Modifier: "" D"
^XMB(3.9,148,2,11135,0)="""RTN"",""SROAUTL0"",40,0)"
^XMB(3.9,148,2,11136,0)=" ..S SRMOD=0 F  S SRMOD=$O(^SRO(136,SRTN,3,SROTH,1,SRMOD)) Q:'SRMOD  D"
^XMB(3.9,148,2,11137,0)="""RTN"",""SROAUTL0"",41,0)"
^XMB(3.9,148,2,11138,0)=" ...S SRMO=$P(^SRO(136,SRTN,3,SROTH,1,SRMOD,0),""^"")"
^XMB(3.9,148,2,11139,0)="""RTN"",""SROAUTL0"",42,0)"
^XMB(3.9,148,2,11140,0)=" ...W:SRFIRST !,?13 W $P($$MOD^ICPTMOD(SRMO,""I""),""^"",2),""-"",$P($$MOD^ICPTMOD(SRMO,""I""),""^"",3)"
^XMB(3.9,148,2,11141,0)="""RTN"",""SROAUTL0"",43,0)"
^XMB(3.9,148,2,11142,0)=" ...S SRFIRST=1"
^XMB(3.9,148,2,11143,0)="""RTN"",""SROAUTL0"",44,0)"
^XMB(3.9,148,2,11144,0)="PRESS K DIR S DIR(0)=""FOA"",DIR(""A"")=""Press ENTER to continue."" D ^DIR K DIR"
^XMB(3.9,148,2,11145,0)="""RTN"",""SROAUTL0"",45,0)"
^XMB(3.9,148,2,11146,0)=" Q"
^XMB(3.9,148,2,11147,0)="""RTN"",""SROAUTL0"",46,0)"
^XMB(3.9,148,2,11148,0)="OCC ; occur data"
^XMB(3.9,148,2,11149,0)="""RTN"",""SROAUTL0"",47,0)"
^XMB(3.9,148,2,11150,0)=" D EN^SROCCAT K ^TMP(""SROCC"",$J),SRO,SROC,SROOC"
^XMB(3.9,148,2,11151,0)="""RTN"",""SROAUTL0"",48,0)"
^XMB(3.9,148,2,11152,0)=" F SRK=1:1:37 S SROC(SRK)=""       """
^XMB(3.9,148,2,11153,0)="""RTN"",""SROAUTL0"",49,0)"
^XMB(3.9,148,2,11154,0)=" S (SRFLG,SRIO,SRPO)=0 F  S SRIO=$O(^SRF(SRTN,10,SRIO)) Q:'SRIO  D"
^XMB(3.9,148,2,11155,0)="""RTN"",""SROAUTL0"",50,0)"
^XMB(3.9,148,2,11156,0)=" .S SROCC=$P(^SRF(SRTN,10,SRIO,0),U,2) Q:'SROCC"
^XMB(3.9,148,2,11157,0)="""RTN"",""SROAUTL0"",51,0)"
^XMB(3.9,148,2,11158,0)=" .S ^TMP(""SROCC"",$J,SROCC,$E($P(^SRF(SRTN,0),U,9),1,7),10)=SRIO"
^XMB(3.9,148,2,11159,0)="""RTN"",""SROAUTL0"",52,0)"
^XMB(3.9,148,2,11160,0)=" F  S SRPO=$O(^SRF(SRTN,16,SRPO)) Q:'SRPO  D"
^XMB(3.9,148,2,11161,0)="""RTN"",""SROAUTL0"",53,0)"
^XMB(3.9,148,2,11162,0)=" .S SRDATE=$E($P(^SRF(SRTN,16,SRPO,0),U,7),1,7)"
^XMB(3.9,148,2,11163,0)="""RTN"",""SROAUTL0"",54,0)"
^XMB(3.9,148,2,11164,0)=" .S X1=$E(SRSDATE,1,7),X2=30 D C^%DTC"
^XMB(3.9,148,2,11165,0)="""RTN"",""SROAUTL0"",55,0)"
^XMB(3.9,148,2,11166,0)=" .I SRDATE>X Q"
^XMB(3.9,148,2,11167,0)="""RTN"",""SROAUTL0"",56,0)"
^XMB(3.9,148,2,11168,0)=" .I '$G(SRDATE) S SRDATE=""       """
^XMB(3.9,148,2,11169,0)="""RTN"",""SROAUTL0"",57,0)"
^XMB(3.9,148,2,11170,0)=" .S SROCC=$P(^SRF(SRTN,16,SRPO,0),U,2) Q:'SROCC"
^XMB(3.9,148,2,11171,0)="""RTN"",""SROAUTL0"",58,0)"
^XMB(3.9,148,2,11172,0)=" .S ^TMP(""SROCC"",$J,SROCC,SRDATE,16)=SRPO"
^XMB(3.9,148,2,11173,0)="""RTN"",""SROAUTL0"",59,0)"
^XMB(3.9,148,2,11174,0)=" I '$D(^TMP(""SROCC"",$J)) D OCCEND Q"
^XMB(3.9,148,2,11175,0)="""RTN"",""SROAUTL0"",60,0)"
^XMB(3.9,148,2,11176,0)=" ;remove multiples"
^XMB(3.9,148,2,11177,0)="""RTN"",""SROAUTL0"",61,0)"
^XMB(3.9,148,2,11178,0)=" S SROCC=0 F  S SROCC=$O(^TMP(""SROCC"",$J,SROCC)) Q:'SROCC  S SROCCDT=$O(^TMP(""SROCC"",$J,SROCC,0)),SRTYPE=$O(^TMP(""SROCC"",$J,SROCC,SROCCDT,0)) D"
^XMB(3.9,148,2,11179,0)="""RTN"",""SROAUTL0"",62,0)"
^XMB(3.9,148,2,11180,0)=" .I SROCC=21!(SROCC>28&(SROCC<33))!(SROCC=36) D"
^XMB(3.9,148,2,11181,0)="""RTN"",""SROAUTL0"",63,0)"
^XMB(3.9,148,2,11182,0)=" ..S SRDA=^TMP(""SROCC"",$J,SROCC,SROCCDT,SRTYPE),SRICD=$P(^SRF(SRTN,SRTYPE,SRDA,0),U,3)"
^XMB(3.9,148,2,11183,0)="""RTN"",""SROAUTL0"",64,0)"
^XMB(3.9,148,2,11184,0)=" ..I SRICD S SROOC(SROCC)=$P(^ICD9(SRICD,0),U)_""^""_$P(^SRF(SRTN,SRTYPE,SRDA,0),U)"
^XMB(3.9,148,2,11185,0)="""RTN"",""SROAUTL0"",65,0)"
^XMB(3.9,148,2,11186,0)=" ..E  S SROOC(SROCC)=""NO ICD9 CODE ENTERED"""
^XMB(3.9,148,2,11187,0)="""RTN"",""SROAUTL0"",66,0)"
^XMB(3.9,148,2,11188,0)=" .S ^TMP(""SROCC"",$J,""SR"",SROCC,SROCCDT)="""""
^XMB(3.9,148,2,11189,0)="""RTN"",""SROAUTL0"",67,0)"
^XMB(3.9,148,2,11190,0)=" S SRK=1,SRO="""",SROCC=0 F  S SROCC=$O(^TMP(""SROCC"",$J,""SR"",SROCC)) Q:'SROCC  S SROCCDT="""" F  S SROCCDT=$O(^TMP(""SROCC"",$J,""SR"",SROCC,SROCCDT)) Q:SROCCDT=""""  D"
^XMB(3.9,148,2,11191,0)="""RTN"",""SROAUTL0"",68,0)"
^XMB(3.9,148,2,11192,0)=" .I SROCC=3 S SRPO=^TMP(""SROCC"",$J,SROCC,SROCCDT,16) I SRPO S X=$P(^SRF(SRTN,16,SRPO,0),""^"",4) S:X SRSEP=X"
^XMB(3.9,148,2,11193,0)="""RTN"",""SROAUTL0"",69,0)"
^XMB(3.9,148,2,11194,0)=" .S SROC(SROCC)=SROCCDT"
^XMB(3.9,148,2,11195,0)="""RTN"",""SROAUTL0"",70,0)"
^XMB(3.9,148,2,11196,0)=" F I=1:1:22,29:1:32,35,36 S SRO=SRO_$J(SROC(I),7)"
^XMB(3.9,148,2,11197,0)="""RTN"",""SROAUTL0"",71,0)"
^XMB(3.9,148,2,11198,0)=" S X=$G(SRSEP),SRO=SRO_X I X S SRSEP=$S(X=2:""SEPSIS"",X=3:""SEPTIC SHOCK"",1:""SIRS"")"
^XMB(3.9,148,2,11199,0)="""RTN"",""SROAUTL0"",72,0)"
^XMB(3.9,148,2,11200,0)="OCCEND K ^TMP(""SROCC"",$J),SRPOCC,SRPOCCD,SRSDATE,SRTYPE,SRDATE,SRDA,SRFLG,SRICD,SRJ,SRK,SROCC,SROCCDT,SRPO,X1,X2"
^XMB(3.9,148,2,11201,0)="""RTN"",""SROAUTL0"",73,0)"
^XMB(3.9,148,2,11202,0)=" Q"
^XMB(3.9,148,2,11203,0)="""RTN"",""SROAUTL1"")"
^XMB(3.9,148,2,11204,0)="0^29^B18465226^B18184832"
^XMB(3.9,148,2,11205,0)="""RTN"",""SROAUTL1"",1,0)"
^XMB(3.9,148,2,11206,0)="SROAUTL1 ;BIR/ADM - RISK ASSESSMENT UTILITY ;02/07/06"
^XMB(3.9,148,2,11207,0)="""RTN"",""SROAUTL1"",2,0)"
^XMB(3.9,148,2,11208,0)=" ;;3.0; Surgery ;**38,47,81,125,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,11209,0)="""RTN"",""SROAUTL1"",3,0)"
^XMB(3.9,148,2,11210,0)=" S SRZ=0 F  S SRZ=$O(SRY(130,SRTN,SRZ)) Q:'SRZ  I SRY(130,SRTN,SRZ,""I"")="""" D TR S X=$T(@SRP),SRFLD=$P(X,"";;"",2),SRX(SRZ)=$P(SRFLD,""^"",2)"
^XMB(3.9,148,2,11211,0)="""RTN"",""SROAUTL1"",4,0)"
^XMB(3.9,148,2,11212,0)=" Q"
^XMB(3.9,148,2,11213,0)="""RTN"",""SROAUTL1"",5,0)"
^XMB(3.9,148,2,11214,0)="TR S SRP=SRZ,SRP=$TR(SRP,""1234567890."",""ABCDEFGHIJP"")"
^XMB(3.9,148,2,11215,0)="""RTN"",""SROAUTL1"",6,0)"
^XMB(3.9,148,2,11216,0)=" Q"
^XMB(3.9,148,2,11217,0)="""RTN"",""SROAUTL1"",7,0)"
^XMB(3.9,148,2,11218,0)="GET S X=$T(@J)"
^XMB(3.9,148,2,11219,0)="""RTN"",""SROAUTL1"",8,0)"
^XMB(3.9,148,2,11220,0)=" Q"
^XMB(3.9,148,2,11221,0)="""RTN"",""SROAUTL1"",9,0)"
^XMB(3.9,148,2,11222,0)="BJH ;;208^History of Hypertension Requiring Medication (Y/N)^Hypertension Requiring Meds^"
^XMB(3.9,148,2,11223,0)="""RTN"",""SROAUTL1"",10,0)"
^XMB(3.9,148,2,11224,0)="BAC ;;213^Esophageal Varices (Y/N)^Esophogeal Varices^"
^XMB(3.9,148,2,11225,0)="""RTN"",""SROAUTL1"",11,0)"
^XMB(3.9,148,2,11226,0)="BBJ ;;220^Previous PCI (Y/N)^Previous PCI^"
^XMB(3.9,148,2,11227,0)="""RTN"",""SROAUTL1"",12,0)"
^XMB(3.9,148,2,11228,0)="BFF ;;266^Previous Cardiac Surgery (Y/N)^Previous Cardiac Surgery^"
^XMB(3.9,148,2,11229,0)="""RTN"",""SROAUTL1"",13,0)"
^XMB(3.9,148,2,11230,0)="CBI ;;329^History of Revascularization/Amputation for PVD (Y/N)^Revascularization/Amputation^"
^XMB(3.9,148,2,11231,0)="""RTN"",""SROAUTL1"",14,0)"
^XMB(3.9,148,2,11232,0)="CCJ ;;330^Rest Pain/Gangrene (Y/N)^Rest Pain/Gangrene^"
^XMB(3.9,148,2,11233,0)="""RTN"",""SROAUTL1"",15,0)"
^XMB(3.9,148,2,11234,0)="CID ;;394^History of MI Within Past 6 Months (Y/N)^MI Within 6 Months^"
^XMB(3.9,148,2,11235,0)="""RTN"",""SROAUTL1"",16,0)"
^XMB(3.9,148,2,11236,0)="CIE ;;395^Angina within One Month Preceding Surgery (Y/N)^Angina Within 1 Month^"
^XMB(3.9,148,2,11237,0)="""RTN"",""SROAUTL1"",17,0)"
^XMB(3.9,148,2,11238,0)="CIH ;;398^Quadriplegia (Y/N)^Quadriplegia^"
^XMB(3.9,148,2,11239,0)="""RTN"",""SROAUTL1"",18,0)"
^XMB(3.9,148,2,11240,0)="CII ;;399^Paraplegia (Y/N)^Paraplegia^"
^XMB(3.9,148,2,11241,0)="""RTN"",""SROAUTL1"",19,0)"
^XMB(3.9,148,2,11242,0)="BCF ;;236^Patient's Height^Height^"
^XMB(3.9,148,2,11243,0)="""RTN"",""SROAUTL1"",20,0)"
^XMB(3.9,148,2,11244,0)="BCG ;;237^Patient's Weight^Weight^"
^XMB(3.9,148,2,11245,0)="""RTN"",""SROAUTL1"",21,0)"
^XMB(3.9,148,2,11246,0)="CDF ;;346^Diabetes^Diabetes Mellitus^"
^XMB(3.9,148,2,11247,0)="""RTN"",""SROAUTL1"",22,0)"
^XMB(3.9,148,2,11248,0)="BJB ;;202^Current Smoker within 1 Year prior to Surgery (Y/N)^Current SmokerW/I 1 Year^"
^XMB(3.9,148,2,11249,0)="""RTN"",""SROAUTL1"",23,0)"
^XMB(3.9,148,2,11250,0)="BJBPA ;;202.1^Pack/Years^Pack/Years^"
^XMB(3.9,148,2,11251,0)="""RTN"",""SROAUTL1"",24,0)"
^XMB(3.9,148,2,11252,0)="BDF ;;246^ETOH Greater than 2 Drinks/Day (Y/N)^ETOH > 2 Drinks/Day^"
^XMB(3.9,148,2,11253,0)="""RTN"",""SROAUTL1"",25,0)"
^XMB(3.9,148,2,11254,0)="CBE ;;325^Dyspnea^Dyspnea^"
^XMB(3.9,148,2,11255,0)="""RTN"",""SROAUTL1"",26,0)"
^XMB(3.9,148,2,11256,0)="BCH ;;238^DNR Status (Y/N)^DNR Status^"
^XMB(3.9,148,2,11257,0)="""RTN"",""SROAUTL1"",27,0)"
^XMB(3.9,148,2,11258,0)="BDJ ;;240^Functional Health Status Prior to Current Illness^Pre-Illness Functional Status^"
^XMB(3.9,148,2,11259,0)="""RTN"",""SROAUTL1"",28,0)"
^XMB(3.9,148,2,11260,0)="DIB ;;492^Functional Health Status at Evaluation for Surgery^Preop Functional Status"
^XMB(3.9,148,2,11261,0)="""RTN"",""SROAUTL1"",29,0)"
^XMB(3.9,148,2,11262,0)="BJD ;;204^Ventilator Dependent Greater than 48 Hrs (Y/N)^Ventilator Dependent^"
^XMB(3.9,148,2,11263,0)="""RTN"",""SROAUTL1"",30,0)"
^XMB(3.9,148,2,11264,0)="BJC ;;203^History of COPD (Y/N)^History of Severe COPD^"
^XMB(3.9,148,2,11265,0)="""RTN"",""SROAUTL1"",31,0)"
^XMB(3.9,148,2,11266,0)="CBF ;;326^Current Pneumonia (Y/N)^Current Pneumonia^"
^XMB(3.9,148,2,11267,0)="""RTN"",""SROAUTL1"",32,0)"
^XMB(3.9,148,2,11268,0)="BAB ;;212^Ascites (Y/N)^Ascites^"
^XMB(3.9,148,2,11269,0)="""RTN"",""SROAUTL1"",33,0)"
^XMB(3.9,148,2,11270,0)="CIF ;;396^CHF within One Month Preceding Surgery (Y/N)^CHF Within 1 Month^"
^XMB(3.9,148,2,11271,0)="""RTN"",""SROAUTL1"",34,0)"
^XMB(3.9,148,2,11272,0)="CBH ;;328^Acute Renal Failure (Y/N)^Acute Renal Failure^"
^XMB(3.9,148,2,11273,0)="""RTN"",""SROAUTL1"",35,0)"
^XMB(3.9,148,2,11274,0)="BAA ;;211^Currently on Dialysis (Y/N)^Currently on Dialysis^"
^XMB(3.9,148,2,11275,0)="""RTN"",""SROAUTL1"",36,0)"
^XMB(3.9,148,2,11276,0)="CCB ;;332^Impaired Sensorium (Y/N)^Impaired Sensorium^"
^XMB(3.9,148,2,11277,0)="""RTN"",""SROAUTL1"",37,0)"
^XMB(3.9,148,2,11278,0)="CCC ;;333^Coma (Y/N)^Coma^"
^XMB(3.9,148,2,11279,0)="""RTN"",""SROAUTL1"",38,0)"
^XMB(3.9,148,2,11280,0)="DJJ ;;400^Hemiplegia (Y/N)^Hemiplegia^"
^XMB(3.9,148,2,11281,0)="""RTN"",""SROAUTL1"",39,0)"
^XMB(3.9,148,2,11282,0)="CCD ;;334^History of TIAs (Y/N)^History of TIAs^"
^XMB(3.9,148,2,11283,0)="""RTN"",""SROAUTL1"",40,0)"
^XMB(3.9,148,2,11284,0)="CCE ;;335^CVA/Residual Neurologic Deficit (Y/N)^CVA/Residual Neuro Deficit^"
^XMB(3.9,148,2,11285,0)="""RTN"",""SROAUTL1"",41,0)"
^XMB(3.9,148,2,11286,0)="CCF ;;336^CVA/No Neurologic Deficit (Y/N)^CVA/No Neuro Deficit^"
^XMB(3.9,148,2,11287,0)="""RTN"",""SROAUTL1"",42,0)"
^XMB(3.9,148,2,11288,0)="DJA ;;401^Tumor Involving CNS (Y/N)^Tumor Involving CNS^"
^XMB(3.9,148,2,11289,0)="""RTN"",""SROAUTL1"",43,0)"
^XMB(3.9,148,2,11290,0)="CCH ;;338^Disseminated Cancer (Y/N)^Disseminated Cancer^"
^XMB(3.9,148,2,11291,0)="""RTN"",""SROAUTL1"",44,0)"
^XMB(3.9,148,2,11292,0)="BAH ;;218^Open Wound or Skin Infection (Y/N)^Open Wound or Infection^"
^XMB(3.9,148,2,11293,0)="""RTN"",""SROAUTL1"",45,0)"
^XMB(3.9,148,2,11294,0)="CCI ;;339^Steroid Use for Chronic Condition (Y/N)^Steroid Use for Chronic Cond.^"
^XMB(3.9,148,2,11295,0)="""RTN"",""SROAUTL1"",46,0)"
^XMB(3.9,148,2,11296,0)="BAE ;;215^Weight Loss > 10% of Usual Body Weight (Y/N)^Weight Loss > 10%^"
^XMB(3.9,148,2,11297,0)="""RTN"",""SROAUTL1"",47,0)"
^XMB(3.9,148,2,11298,0)="BAF ;;216^History of Bleeding Disorders (Y/N)^Bleeding Disorders^"
^XMB(3.9,148,2,11299,0)="""RTN"",""SROAUTL1"",48,0)"
^XMB(3.9,148,2,11300,0)="BAG ;;217^Transfusion Greater than 4 RBC Units this Admission (Y/N)^Transfusion > 4 RBC Units^"
^XMB(3.9,148,2,11301,0)="""RTN"",""SROAUTL1"",49,0)"
^XMB(3.9,148,2,11302,0)="CCHPA ;;338.1^Chemotherapy Within Last 30 Days (Y/N)^Chemotherapy W/I 30 Days^"
^XMB(3.9,148,2,11303,0)="""RTN"",""SROAUTL1"",50,0)"
^XMB(3.9,148,2,11304,0)="CCHPB ;;338.2^Radiotherapy Within Last 90 Days (Y/N)^Radiotherapy W/I 90 Days^"
^XMB(3.9,148,2,11305,0)="""RTN"",""SROAUTL1"",51,0)"
^XMB(3.9,148,2,11306,0)="BAHPA ;;218.1^Preoperative Sepsis (Y/N)^Preoperative Sepsis^"
^XMB(3.9,148,2,11307,0)="""RTN"",""SROAUTL1"",52,0)"
^XMB(3.9,148,2,11308,0)="BFI ;;269^Pregnancy Status^Pregnancy Status^"
^XMB(3.9,148,2,11309,0)="""RTN"",""SROAUTL1"",53,0)"
^XMB(3.9,148,2,11310,0)="DAC ;;413^Transfer Status^Transfer Status^"
^XMB(3.9,148,2,11311,0)="""RTN"",""SROAUTL1"",54,0)"
^XMB(3.9,148,2,11312,0)="PJAA ;;.011^In/Out-Patient Status"
^XMB(3.9,148,2,11313,0)="""RTN"",""SROAUTL1"",55,0)"
^XMB(3.9,148,2,11314,0)="BDG ;;247^Length of Postoperative Hospital Stay"
^XMB(3.9,148,2,11315,0)="""RTN"",""SROAUTL1"",56,0)"
^XMB(3.9,148,2,11316,0)="DAG ;;417^Patient's Race"
^XMB(3.9,148,2,11317,0)="""RTN"",""SROAUTL1"",57,0)"
^XMB(3.9,148,2,11318,0)="DAH ;;418^Hospital Admission Date"
^XMB(3.9,148,2,11319,0)="""RTN"",""SROAUTL1"",58,0)"
^XMB(3.9,148,2,11320,0)="DAI ;;419^Hospital Discharge Date"
^XMB(3.9,148,2,11321,0)="""RTN"",""SROAUTL1"",59,0)"
^XMB(3.9,148,2,11322,0)="DBJ ;;420^Admitted/Transferred to Surgical Service"
^XMB(3.9,148,2,11323,0)="""RTN"",""SROAUTL1"",60,0)"
^XMB(3.9,148,2,11324,0)="DBA ;;421^Discharged/Transferred to Chronic Care"
^XMB(3.9,148,2,11325,0)="""RTN"",""SROAUTL1"",61,0)"
^XMB(3.9,148,2,11326,0)="DEB ;;452^Observation Admission Date/Time"
^XMB(3.9,148,2,11327,0)="""RTN"",""SROAUTL1"",62,0)"
^XMB(3.9,148,2,11328,0)="DEC ;;453^Observation Discharge Date/Time"
^XMB(3.9,148,2,11329,0)="""RTN"",""SROAUTL1"",63,0)"
^XMB(3.9,148,2,11330,0)="DED ;;454^Observation Treating Specialty"
^XMB(3.9,148,2,11331,0)="""RTN"",""SROAUTL2"")"
^XMB(3.9,148,2,11332,0)="0^28^B32578707^B27226324"
^XMB(3.9,148,2,11333,0)="""RTN"",""SROAUTL2"",1,0)"
^XMB(3.9,148,2,11334,0)="SROAUTL2 ;BIR/ADM - RISK ASSESSMENT UTILITY ;02/07/06"
^XMB(3.9,148,2,11335,0)="""RTN"",""SROAUTL2"",2,0)"
^XMB(3.9,148,2,11336,0)=" ;;3.0; Surgery ;**38,47,63,88,125,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,11337,0)="""RTN"",""SROAUTL2"",3,0)"
^XMB(3.9,148,2,11338,0)=" S SRZ=0 F  S SRZ=$O(SRY(130,SRTN,SRZ)) Q:'SRZ  D"
^XMB(3.9,148,2,11339,0)="""RTN"",""SROAUTL2"",4,0)"
^XMB(3.9,148,2,11340,0)=" .I SRY(130,SRTN,SRZ,""I"")="""" D TR S X=$T(@SRP),SRFLD=$P(X,"";;"",2),SRX(SRZ)=$P(SRFLD,""^"",2)"
^XMB(3.9,148,2,11341,0)="""RTN"",""SROAUTL2"",5,0)"
^XMB(3.9,148,2,11342,0)=" .I SRY(130,SRTN,SRZ,""I"")=""NS"" D TR S X=$T(@SRP),SRFLD=$P(X,"";;"",2),SRDT=$P(SRFLD,""^"",4) S:SRDT'="""" SRLR(SRDT)="""""
^XMB(3.9,148,2,11343,0)="""RTN"",""SROAUTL2"",6,0)"
^XMB(3.9,148,2,11344,0)=" S SRDT=0 F  S SRDT=$O(SRLR(SRDT)) Q:'SRDT  K SRX(SRDT)"
^XMB(3.9,148,2,11345,0)="""RTN"",""SROAUTL2"",7,0)"
^XMB(3.9,148,2,11346,0)=" Q"
^XMB(3.9,148,2,11347,0)="""RTN"",""SROAUTL2"",8,0)"
^XMB(3.9,148,2,11348,0)="RELATE S DFN=$P(^SRF(SRTN,0),""^""),SRDEATH=$P($G(^DPT(DFN,.35)),""^"") I 'SRDEATH Q"
^XMB(3.9,148,2,11349,0)="""RTN"",""SROAUTL2"",9,0)"
^XMB(3.9,148,2,11350,0)=" S X2=$P(^SRF(SRTN,0),""^"",9),X1=SRDEATH D ^%DTC I X>90 Q"
^XMB(3.9,148,2,11351,0)="""RTN"",""SROAUTL2"",10,0)"
^XMB(3.9,148,2,11352,0)=" S X=$P($G(^SRF(SRTN,.4)),""^"",7) I X="""" S SRX(903)=""Death Unrelated/Related"""
^XMB(3.9,148,2,11353,0)="""RTN"",""SROAUTL2"",11,0)"
^XMB(3.9,148,2,11354,0)=" Q"
^XMB(3.9,148,2,11355,0)="""RTN"",""SROAUTL2"",12,0)"
^XMB(3.9,148,2,11356,0)="TR S SRP=SRZ,SRP=$TR(SRP,""1234567890."",""ABCDEFGHIJP"")"
^XMB(3.9,148,2,11357,0)="""RTN"",""SROAUTL2"",13,0)"
^XMB(3.9,148,2,11358,0)=" Q"
^XMB(3.9,148,2,11359,0)="""RTN"",""SROAUTL2"",14,0)"
^XMB(3.9,148,2,11360,0)="GET S X=$T(@J)"
^XMB(3.9,148,2,11361,0)="""RTN"",""SROAUTL2"",15,0)"
^XMB(3.9,148,2,11362,0)=" Q"
^XMB(3.9,148,2,11363,0)="""RTN"",""SROAUTL2"",16,0)"
^XMB(3.9,148,2,11364,0)="PJC ;;.03^Major or Minor^Major or Minor^"
^XMB(3.9,148,2,11365,0)="""RTN"",""SROAUTL2"",17,0)"
^XMB(3.9,148,2,11366,0)="PDB ;;.42^Other Procedures^^"
^XMB(3.9,148,2,11367,0)="""RTN"",""SROAUTL2"",18,0)"
^XMB(3.9,148,2,11368,0)="PCG ;;.37^Anesthesia Technique^^"
^XMB(3.9,148,2,11369,0)="""RTN"",""SROAUTL2"",19,0)"
^XMB(3.9,148,2,11370,0)="CE ;;35^Concurrent Case^Concurrent Case^"
^XMB(3.9,148,2,11371,0)="""RTN"",""SROAUTL2"",20,0)"
^XMB(3.9,148,2,11372,0)="PJD ;;.04^Surgery Specialty^Surgical Specialty^"
^XMB(3.9,148,2,11373,0)="""RTN"",""SROAUTL2"",21,0)"
^XMB(3.9,148,2,11374,0)="BF ;;26^Principal Procedure^Principal Operation^"
^XMB(3.9,148,2,11375,0)="""RTN"",""SROAUTL2"",22,0)"
^XMB(3.9,148,2,11376,0)="BGJ ;;270^Preoperative Serum Sodium^Serum Sodium^304"
^XMB(3.9,148,2,11377,0)="""RTN"",""SROAUTL2"",23,0)"
^XMB(3.9,148,2,11378,0)="CJD ;;304^Date Preoperative Serum Sodium was Performed^^"
^XMB(3.9,148,2,11379,0)="""RTN"",""SROAUTL2"",24,0)"
^XMB(3.9,148,2,11380,0)="BBD ;;224^Preoperative BUN (mg/dl)^BUN^291"
^XMB(3.9,148,2,11381,0)="""RTN"",""SROAUTL2"",25,0)"
^XMB(3.9,148,2,11382,0)="BIA ;;291^Date Preoperative BUN was Performed^^"
^XMB(3.9,148,2,11383,0)="""RTN"",""SROAUTL2"",26,0)"
^XMB(3.9,148,2,11384,0)="BBC ;;223^Preoperative Serum Creatinine (mg/dl)^Serum Creatinine^290"
^XMB(3.9,148,2,11385,0)="""RTN"",""SROAUTL2"",27,0)"
^XMB(3.9,148,2,11386,0)="BIJ ;;290^Date Preoperative Serum Creatinine was Performed^^"
^XMB(3.9,148,2,11387,0)="""RTN"",""SROAUTL2"",28,0)"
^XMB(3.9,148,2,11388,0)="BBE ;;225^Preoperative Serum Albumin (g/dl)^Serum Albumin^292"
^XMB(3.9,148,2,11389,0)="""RTN"",""SROAUTL2"",29,0)"
^XMB(3.9,148,2,11390,0)="BIB ;;292^Date Preoperative Serum Albumin was Performed^^"
^XMB(3.9,148,2,11391,0)="""RTN"",""SROAUTL2"",30,0)"
^XMB(3.9,148,2,11392,0)="BBH ;;228^Preoperative Total Bilirubin (mg/dl)^Total Bilirubin^295"
^XMB(3.9,148,2,11393,0)="""RTN"",""SROAUTL2"",31,0)"
^XMB(3.9,148,2,11394,0)="BIE ;;295^Date Preoperative Total Bilrubin was Performed^^"
^XMB(3.9,148,2,11395,0)="""RTN"",""SROAUTL2"",32,0)"
^XMB(3.9,148,2,11396,0)="BBG ;;227^Preoperative SGOT (mU/ml)^SGOT^294"
^XMB(3.9,148,2,11397,0)="""RTN"",""SROAUTL2"",33,0)"
^XMB(3.9,148,2,11398,0)="BID ;;294^Date Preoperative SGOT was Performed^^"
^XMB(3.9,148,2,11399,0)="""RTN"",""SROAUTL2"",34,0)"
^XMB(3.9,148,2,11400,0)="BBI ;;229^Preoperative Alkaline Phosphatase (mU/ml)^Alkaline Phosphatase^296"
^XMB(3.9,148,2,11401,0)="""RTN"",""SROAUTL2"",35,0)"
^XMB(3.9,148,2,11402,0)="BIF ;;296^Date Preoperative Alkaline Phosphatase was Performed^^"
^XMB(3.9,148,2,11403,0)="""RTN"",""SROAUTL2"",36,0)"
^XMB(3.9,148,2,11404,0)="BCJ ;;230^Preoperative WBC (X 1000/mm3)^WBC^297"
^XMB(3.9,148,2,11405,0)="""RTN"",""SROAUTL2"",37,0)"
^XMB(3.9,148,2,11406,0)="BIG ;;297^Date Preoperative WBC was Performed"
^XMB(3.9,148,2,11407,0)="""RTN"",""SROAUTL2"",38,0)"
^XMB(3.9,148,2,11408,0)="BCD ;;234^Preoperative Hematocrit^Hematocrit^301"
^XMB(3.9,148,2,11409,0)="""RTN"",""SROAUTL2"",39,0)"
^XMB(3.9,148,2,11410,0)="CJA ;;301^Date Preoperative Hematocrit was Performed^^"
^XMB(3.9,148,2,11411,0)="""RTN"",""SROAUTL2"",40,0)"
^XMB(3.9,148,2,11412,0)="BCA ;;231^Preoperative Platelet Count (X 1000/mm3)^Platelet Count^298"
^XMB(3.9,148,2,11413,0)="""RTN"",""SROAUTL2"",41,0)"
^XMB(3.9,148,2,11414,0)="BIH ;;298^Date Preoperative Platelet Count was Performed^^"
^XMB(3.9,148,2,11415,0)="""RTN"",""SROAUTL2"",42,0)"
^XMB(3.9,148,2,11416,0)="BCC ;;233^Preoperative PTT (seconds)^PTT^300"
^XMB(3.9,148,2,11417,0)="""RTN"",""SROAUTL2"",43,0)"
^XMB(3.9,148,2,11418,0)="CJJ ;;300^Date Preoperative PTT was Performed^^"
^XMB(3.9,148,2,11419,0)="""RTN"",""SROAUTL2"",44,0)"
^XMB(3.9,148,2,11420,0)="BCB ;;232^Preoperative PT (seconds)^PT^299"
^XMB(3.9,148,2,11421,0)="""RTN"",""SROAUTL2"",45,0)"
^XMB(3.9,148,2,11422,0)="BII ;;299^Date Preoperative PT was Performed^^"
^XMB(3.9,148,2,11423,0)="""RTN"",""SROAUTL2"",46,0)"
^XMB(3.9,148,2,11424,0)="BGD ;;274^Highest Postoperative Serum Sodium^Highest Serum Sodium^305"
^XMB(3.9,148,2,11425,0)="""RTN"",""SROAUTL2"",47,0)"
^XMB(3.9,148,2,11426,0)="CJE ;;305^Date Highest Serum Sodium was Recorded^^"
^XMB(3.9,148,2,11427,0)="""RTN"",""SROAUTL2"",48,0)"
^XMB(3.9,148,2,11428,0)="DJE ;;405^Lowest Serum Sodium^Lowest Serum Sodium^407"
^XMB(3.9,148,2,11429,0)="""RTN"",""SROAUTL2"",49,0)"
^XMB(3.9,148,2,11430,0)="DJG ;;407^Date of Lowest Serum Sodium^^"
^XMB(3.9,148,2,11431,0)="""RTN"",""SROAUTL2"",50,0)"
^XMB(3.9,148,2,11432,0)="BGE ;;275^Highest Postoperative Potassium^Highest Potassium^306"
^XMB(3.9,148,2,11433,0)="""RTN"",""SROAUTL2"",51,0)"
^XMB(3.9,148,2,11434,0)="CJF ;;306^Date Highest Potassium was Recorded^^"
^XMB(3.9,148,2,11435,0)="""RTN"",""SROAUTL2"",52,0)"
^XMB(3.9,148,2,11436,0)="DJF ;;406^Lowest Postoperative Potassium^Lowest Potassium^408"
^XMB(3.9,148,2,11437,0)="""RTN"",""SROAUTL2"",53,0)"
^XMB(3.9,148,2,11438,0)="DJH ;;408^Date of Lowest Postoperative Potassium^^"
^XMB(3.9,148,2,11439,0)="""RTN"",""SROAUTL2"",54,0)"
^XMB(3.9,148,2,11440,0)="BGG ;;277^Highest Postoperative Serum Creatinine^Highest Serum Creatinine^308"
^XMB(3.9,148,2,11441,0)="""RTN"",""SROAUTL2"",55,0)"
^XMB(3.9,148,2,11442,0)="CJH ;;308^Date Highest Serum Creatinine was Recorded^^"
^XMB(3.9,148,2,11443,0)="""RTN"",""SROAUTL2"",56,0)"
^XMB(3.9,148,2,11444,0)="BGH ;;278^Highest Postoperative CPK^Highest CPK^309"
^XMB(3.9,148,2,11445,0)="""RTN"",""SROAUTL2"",57,0)"
^XMB(3.9,148,2,11446,0)="CJI ;;309^Date Highest CPK was Recorded^^"
^XMB(3.9,148,2,11447,0)="""RTN"",""SROAUTL2"",58,0)"
^XMB(3.9,148,2,11448,0)="BGI ;;279^Highest Postoperative CPK-MB^Highest CPK-MB^310"
^XMB(3.9,148,2,11449,0)="""RTN"",""SROAUTL2"",59,0)"
^XMB(3.9,148,2,11450,0)="CAJ ;;310^Date Highest CPK-MB Band was Recorded^^"
^XMB(3.9,148,2,11451,0)="""RTN"",""SROAUTL2"",60,0)"
^XMB(3.9,148,2,11452,0)="BHJ ;;280^Highest Postoperative Total Bilirubin^Highest Total Bilirubin^311"
^XMB(3.9,148,2,11453,0)="""RTN"",""SROAUTL2"",61,0)"
^XMB(3.9,148,2,11454,0)="CAA ;;311^Date Highest Total Bilirubin was Recorded^^"
^XMB(3.9,148,2,11455,0)="""RTN"",""SROAUTL2"",62,0)"
^XMB(3.9,148,2,11456,0)="BHA ;;281^Highest Postoperative WBC^Highest WBC^312"
^XMB(3.9,148,2,11457,0)="""RTN"",""SROAUTL2"",63,0)"
^XMB(3.9,148,2,11458,0)="CAB ;;312^Date Highest WBC was Recorded^^"
^XMB(3.9,148,2,11459,0)="""RTN"",""SROAUTL2"",64,0)"
^XMB(3.9,148,2,11460,0)="BHC ;;283^Lowest Postoperative Hematocrit^Lowest Hematocrit^314"
^XMB(3.9,148,2,11461,0)="""RTN"",""SROAUTL2"",65,0)"
^XMB(3.9,148,2,11462,0)="CAD ;;314^Date Lowest Hematocrit was Recorded^^"
^XMB(3.9,148,2,11463,0)="""RTN"",""SROAUTL2"",66,0)"
^XMB(3.9,148,2,11464,0)="DEE ;;455^Highest Postoperative Serum Troponin I^Highest Troponin I^455.1"
^XMB(3.9,148,2,11465,0)="""RTN"",""SROAUTL2"",67,0)"
^XMB(3.9,148,2,11466,0)="DEEPA ;;455.1^Date of Highest Postop Troponin I^^"
^XMB(3.9,148,2,11467,0)="""RTN"",""SROAUTL2"",68,0)"
^XMB(3.9,148,2,11468,0)="DEF ;;456^Highest Postoperative Serum Troponin T^Highest Troponin T^456.1"
^XMB(3.9,148,2,11469,0)="""RTN"",""SROAUTL2"",69,0)"
^XMB(3.9,148,2,11470,0)="DEFPA ;;456.1^Date of Highest Postop Troponin T^^"
^XMB(3.9,148,2,11471,0)="""RTN"",""SROAUTL2"",70,0)"
^XMB(3.9,148,2,11472,0)="DHG ;;487^Preoperative INR^INR^487.1"
^XMB(3.9,148,2,11473,0)="""RTN"",""SROAUTL2"",71,0)"
^XMB(3.9,148,2,11474,0)="DHGPA ;;487.1^Date Preoperative INR was Performed^^"
^XMB(3.9,148,2,11475,0)="""RTN"",""SROAUTL2"",72,0)"
^XMB(3.9,148,2,11476,0)="DDD ;;444^Preoperative Anion Gap^Anion Gap^444.1"
^XMB(3.9,148,2,11477,0)="""RTN"",""SROAUTL2"",73,0)"
^XMB(3.9,148,2,11478,0)="DDDPA ;;444.1^Date Preoperative Anion Gap was Recorded^^"
^XMB(3.9,148,2,11479,0)="""RTN"",""SROAUTL2"",74,0)"
^XMB(3.9,148,2,11480,0)="DDE ;;445^Highest Postoperative Anion Gap^Highest Anion Gap^445.1"
^XMB(3.9,148,2,11481,0)="""RTN"",""SROAUTL2"",75,0)"
^XMB(3.9,148,2,11482,0)="DDEPA ;;445.1^Date Highest Anion Gap was Recorded^^"
^XMB(3.9,148,2,11483,0)="""RTN"",""SROAUTL2"",76,0)"
^XMB(3.9,148,2,11484,0)="BG ;;27^Principal Procedure Code (CPT)^Principal CPT Code^"
^XMB(3.9,148,2,11485,0)="""RTN"",""SROAUTL2"",77,0)"
^XMB(3.9,148,2,11486,0)="BAD ;;214^PGY of Primary Surgeon ('0' for Staff Surgeon)^PGY of Primary Surgeon^"
^XMB(3.9,148,2,11487,0)="""RTN"",""SROAUTL2"",78,0)"
^XMB(3.9,148,2,11488,0)="PJCE ;;.035^Case Schedule Type^Surgical Priority^"
^XMB(3.9,148,2,11489,0)="""RTN"",""SROAUTL2"",79,0)"
^XMB(3.9,148,2,11490,0)="APJI ;;1.09^Wound Classification^Wound Classification^"
^XMB(3.9,148,2,11491,0)="""RTN"",""SROAUTL2"",80,0)"
^XMB(3.9,148,2,11492,0)="APAC ;;1.13^ASA Class^ASA Classification^"
^XMB(3.9,148,2,11493,0)="""RTN"",""SROAUTL2"",81,0)"
^XMB(3.9,148,2,11494,0)="PBB ;;.22^Time the Operation Began^Date/Time Operation Began^"
^XMB(3.9,148,2,11495,0)="""RTN"",""SROAUTL2"",82,0)"
^XMB(3.9,148,2,11496,0)="PBC ;;.23^Time the Operation Ends^Date/Time Operation Ended^"
^XMB(3.9,148,2,11497,0)="""RTN"",""SROAUTL2"",83,0)"
^XMB(3.9,148,2,11498,0)="CDJ ;;340^Number of RBC Units Transfused^RBC Units Transfused^"
^XMB(3.9,148,2,11499,0)="""RTN"",""SROAUTL2"",84,0)"
^XMB(3.9,148,2,11500,0)="DDC ;;443^Intraoperative Disseminated Cancer (Y/N)^Intraoperative Disseminated Cancer^"
^XMB(3.9,148,2,11501,0)="""RTN"",""SROAUTL2"",85,0)"
^XMB(3.9,148,2,11502,0)="FF ;;66^Principal Diagnosis Code (ICD9)^Postop Diagnosis Code (ICD9)^"
^XMB(3.9,148,2,11503,0)="""RTN"",""SROAUTL2"",86,0)"
^XMB(3.9,148,2,11504,0)="BDG ;;247^Length of Postoperative Stay^Length of Postoperative Hospital Stay^"
^XMB(3.9,148,2,11505,0)="""RTN"",""SROAUTL2"",87,0)"
^XMB(3.9,148,2,11506,0)="AJB ;;102^Reason for not Creating an Assessment^Exclusion Criteria^"
^XMB(3.9,148,2,11507,0)="""RTN"",""SROAUTL2"",88,0)"
^XMB(3.9,148,2,11508,0)="PJAA ;;.011^In/Out-Patient Status^Hospital Admission Status^"
^XMB(3.9,148,2,11509,0)="""RTN"",""SROAUTL2"",89,0)"
^XMB(3.9,148,2,11510,0)="PAFF ;;.166^Attending Code^Attending Code"
^XMB(3.9,148,2,11511,0)="""RTN"",""SROAUTL2"",90,0)"
^XMB(3.9,148,2,11512,0)="PBA ;;.21^Anesthesia Care Start Time^Anesthesia Start^"
^XMB(3.9,148,2,11513,0)="""RTN"",""SROAUTL2"",91,0)"
^XMB(3.9,148,2,11514,0)="PBD ;;.24^Anesthesia Care End Time^Anesthesia Finish^"
^XMB(3.9,148,2,11515,0)="""RTN"",""SROAUTL4"")"
^XMB(3.9,148,2,11516,0)="0^56^B38721061^B38454869"
^XMB(3.9,148,2,11517,0)="""RTN"",""SROAUTL4"",1,0)"
^XMB(3.9,148,2,11518,0)="SROAUTL4 ;BIR/ADM - RISK ASSESSMENT UTILITY ;05/31/06"
^XMB(3.9,148,2,11519,0)="""RTN"",""SROAUTL4"",2,0)"
^XMB(3.9,148,2,11520,0)=" ;;3.0; Surgery ;**38,71,95,125,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,11521,0)="""RTN"",""SROAUTL4"",3,0)"
^XMB(3.9,148,2,11522,0)=" S SRZ=0 F  S SRZ=$O(SRY(130,SRTN,SRZ)) Q:'SRZ  D"
^XMB(3.9,148,2,11523,0)="""RTN"",""SROAUTL4"",4,0)"
^XMB(3.9,148,2,11524,0)=" .I SRY(130,SRTN,SRZ,""I"")="""" D TR S X=$T(@SRP),SRFLD=$P(X,"";;"",2),SRX(SRZ)=$P(SRFLD,""^"",2)"
^XMB(3.9,148,2,11525,0)="""RTN"",""SROAUTL4"",5,0)"
^XMB(3.9,148,2,11526,0)=" .I SRY(130,SRTN,SRZ,""I"")=""NS"" D TR S X=$T(@SRP),SRFLD=$P(X,"";;"",2),SRDT=$P(SRFLD,""^"",4) S:SRDT'="""" SRLR(SRDT)="""""
^XMB(3.9,148,2,11527,0)="""RTN"",""SROAUTL4"",6,0)"
^XMB(3.9,148,2,11528,0)=" S SRDT=0 F  S SRDT=$O(SRLR(SRDT)) Q:'SRDT  K SRX(SRDT)"
^XMB(3.9,148,2,11529,0)="""RTN"",""SROAUTL4"",7,0)"
^XMB(3.9,148,2,11530,0)=" Q"
^XMB(3.9,148,2,11531,0)="""RTN"",""SROAUTL4"",8,0)"
^XMB(3.9,148,2,11532,0)="TR S SRP=SRZ,SRP=$TR(SRP,""1234567890."",""ABCDEFGHIJP"")"
^XMB(3.9,148,2,11533,0)="""RTN"",""SROAUTL4"",9,0)"
^XMB(3.9,148,2,11534,0)=" Q"
^XMB(3.9,148,2,11535,0)="""RTN"",""SROAUTL4"",10,0)"
^XMB(3.9,148,2,11536,0)="GET S X=$T(@J)"
^XMB(3.9,148,2,11537,0)="""RTN"",""SROAUTL4"",11,0)"
^XMB(3.9,148,2,11538,0)=" Q"
^XMB(3.9,148,2,11539,0)="""RTN"",""SROAUTL4"",12,0)"
^XMB(3.9,148,2,11540,0)="PBB ;;.22^Time the Operation Began^Date/Time Operation Began^"
^XMB(3.9,148,2,11541,0)="""RTN"",""SROAUTL4"",13,0)"
^XMB(3.9,148,2,11542,0)="PBC ;;.23^Time the Operation Ended^Date/Time Operation Ended^"
^XMB(3.9,148,2,11543,0)="""RTN"",""SROAUTL4"",14,0)"
^XMB(3.9,148,2,11544,0)="BCF ;;236^Patient's Height^Height^"
^XMB(3.9,148,2,11545,0)="""RTN"",""SROAUTL4"",15,0)"
^XMB(3.9,148,2,11546,0)="BCG ;;237^Patient's Weight^Weight^"
^XMB(3.9,148,2,11547,0)="""RTN"",""SROAUTL4"",16,0)"
^XMB(3.9,148,2,11548,0)="CDF ;;346^Diabetes^Diabetes^"
^XMB(3.9,148,2,11549,0)="""RTN"",""SROAUTL4"",17,0)"
^XMB(3.9,148,2,11550,0)="BJC ;;203^History of COPD (Y/N)^COPD^"
^XMB(3.9,148,2,11551,0)="""RTN"",""SROAUTL4"",18,0)"
^XMB(3.9,148,2,11552,0)="CDG ;;347^FEV1^FEV1^"
^XMB(3.9,148,2,11553,0)="""RTN"",""SROAUTL4"",19,0)"
^XMB(3.9,148,2,11554,0)="BJI ;;209^Cardiomegaly on Chest X-Ray (Y/N)^Cardiomegaly (X-ray)^"
^XMB(3.9,148,2,11555,0)="""RTN"",""SROAUTL4"",20,0)"
^XMB(3.9,148,2,11556,0)="CDH ;;348^Pulmonary Rales (Y/N)^Pulmonary Rales^"
^XMB(3.9,148,2,11557,0)="""RTN"",""SROAUTL4"",21,0)"
^XMB(3.9,148,2,11558,0)="EAJ ;;510^Current Smoker^Current Smoker^"
^XMB(3.9,148,2,11559,0)="""RTN"",""SROAUTL4"",22,0)"
^XMB(3.9,148,2,11560,0)="BBC ;;223^Preoperative Serum Creatinine^Creatinine^290"
^XMB(3.9,148,2,11561,0)="""RTN"",""SROAUTL4"",23,0)"
^XMB(3.9,148,2,11562,0)="CDI ;;349^Active Endocarditis (Y/N)^Active Endocarditis^"
^XMB(3.9,148,2,11563,0)="""RTN"",""SROAUTL4"",24,0)"
^XMB(3.9,148,2,11564,0)="CEJ ;;350^Resting ST Depression (Y/N)^Resting ST Depression^"
^XMB(3.9,148,2,11565,0)="""RTN"",""SROAUTL4"",25,0)"
^XMB(3.9,148,2,11566,0)="BDJ ;;240^Functional Health Status^Functional Status^"
^XMB(3.9,148,2,11567,0)="""RTN"",""SROAUTL4"",26,0)"
^XMB(3.9,148,2,11568,0)="CEA ;;351^PCI Status^PCI^"
^XMB(3.9,148,2,11569,0)="""RTN"",""SROAUTL4"",27,0)"
^XMB(3.9,148,2,11570,0)="BJE ;;205^Prior Myocardial Infarction^Prior MI^"
^XMB(3.9,148,2,11571,0)="""RTN"",""SROAUTL4"",28,0)"
^XMB(3.9,148,2,11572,0)="CEB ;;352^Prior Heart Surgery (Y/N)^Prior Heart Surgery^"
^XMB(3.9,148,2,11573,0)="""RTN"",""SROAUTL4"",29,0)"
^XMB(3.9,148,2,11574,0)="BFE ;;265^Peripheral Vascular Disease (Y/N)^Peripheral Vascular Disease^"
^XMB(3.9,148,2,11575,0)="""RTN"",""SROAUTL4"",30,0)"
^XMB(3.9,148,2,11576,0)="BFD ;;264^Cerebral Vascular Disease (Y/N)^Cerebral Vascular Disease^"
^XMB(3.9,148,2,11577,0)="""RTN"",""SROAUTL4"",31,0)"
^XMB(3.9,148,2,11578,0)="BFG ;;267^Angina (use NYHA Functional Class)^Angina (use CCS Class)^"
^XMB(3.9,148,2,11579,0)="""RTN"",""SROAUTL4"",32,0)"
^XMB(3.9,148,2,11580,0)="BJG ;;207^Congestive Heart Failure (use NYHA Functional Class)^CHF (use NYHA Class)^"
^XMB(3.9,148,2,11581,0)="""RTN"",""SROAUTL4"",33,0)"
^XMB(3.9,148,2,11582,0)="CEC ;;353^Current Diuretic Use (Y/N)^Current Diuretic Use^"
^XMB(3.9,148,2,11583,0)="""RTN"",""SROAUTL4"",34,0)"
^XMB(3.9,148,2,11584,0)="CED ;;354^Current Digoxin Use (Y/N)^Current Digoxin Use^"
^XMB(3.9,148,2,11585,0)="""RTN"",""SROAUTL4"",35,0)"
^XMB(3.9,148,2,11586,0)="CEE ;;355^IV NTG within 48 Hours Preceding Surgery (Y/N)^IV NTG within 48 Hours^"
^XMB(3.9,148,2,11587,0)="""RTN"",""SROAUTL4"",36,0)"
^XMB(3.9,148,2,11588,0)="CEF ;;356^Preoperative use of IABP (Y/N)^Preop Use of IABP^"
^XMB(3.9,148,2,11589,0)="""RTN"",""SROAUTL4"",37,0)"
^XMB(3.9,148,2,11590,0)="CEG ;;357^Left Ventricular End-Diastolic Pressure^LVEDP^"
^XMB(3.9,148,2,11591,0)="""RTN"",""SROAUTL4"",38,0)"
^XMB(3.9,148,2,11592,0)="CEH ;;358^Aortic Systolic Pressure^Aortic Systolic Pressure^"
^XMB(3.9,148,2,11593,0)="""RTN"",""SROAUTL4"",39,0)"
^XMB(3.9,148,2,11594,0)="CEI ;;359^PA Systolic Pressure^*PA Systolic Pressure^"
^XMB(3.9,148,2,11595,0)="""RTN"",""SROAUTL4"",40,0)"
^XMB(3.9,148,2,11596,0)="CFJ ;;360^PAW Mean Pressure^*PAW Mean Pressure^"
^XMB(3.9,148,2,11597,0)="""RTN"",""SROAUTL4"",41,0)"
^XMB(3.9,148,2,11598,0)="CFA ;;361^Left Main Stenosis^Left Main Stenosis^"
^XMB(3.9,148,2,11599,0)="""RTN"",""SROAUTL4"",42,0)"
^XMB(3.9,148,2,11600,0)="CFBPA ;;362.1^Left Anterior Descending (LAD) Stenosis^LAD Stenosis^"
^XMB(3.9,148,2,11601,0)="""RTN"",""SROAUTL4"",43,0)"
^XMB(3.9,148,2,11602,0)="CFBPB ;;362.2^Right Coronary Artery Stenosis^Right Coronary Stenosis^"
^XMB(3.9,148,2,11603,0)="""RTN"",""SROAUTL4"",44,0)"
^XMB(3.9,148,2,11604,0)="CFBPC ;;362.3^Circumflex Coronary Artery Stenosis^Circumflex Stenosis^"
^XMB(3.9,148,2,11605,0)="""RTN"",""SROAUTL4"",45,0)"
^XMB(3.9,148,2,11606,0)="CFC ;;363^LV Contraction Grade^LV Contraction Grade  (from contrast or radionuclide angiogram or 2D echo^"
^XMB(3.9,148,2,11607,0)="""RTN"",""SROAUTL4"",46,0)"
^XMB(3.9,148,2,11608,0)="DAE ;;415^Mitral Regurgitation^Mitral Regurgitation^"
^XMB(3.9,148,2,11609,0)="""RTN"",""SROAUTL4"",47,0)"
^XMB(3.9,148,2,11610,0)="CFD ;;364^Physician's Preoperative Estimate of Operative Mortality^Physician's Preoperative Estimate of Operative Mortality^"
^XMB(3.9,148,2,11611,0)="""RTN"",""SROAUTL4"",48,0)"
^XMB(3.9,148,2,11612,0)="CFDPA ;;364.1^Date/Time of Estimate of Operative Mortality^Date/Time of Estimate of Operative Mortality^"
^XMB(3.9,148,2,11613,0)="""RTN"",""SROAUTL4"",49,0)"
^XMB(3.9,148,2,11614,0)="APAC ;;1.13^ASA Class^ASA Classification^"
^XMB(3.9,148,2,11615,0)="""RTN"",""SROAUTL4"",50,0)"
^XMB(3.9,148,2,11616,0)="DAD ;;414^Cardiac Surgical Priority^Surgical Priority^"
^XMB(3.9,148,2,11617,0)="""RTN"",""SROAUTL4"",51,0)"
^XMB(3.9,148,2,11618,0)="DADPA ;;414.1^Date/Time of Cardiac Surgical Priority^Date/Time of Cardiac Surgical Priority^"
^XMB(3.9,148,2,11619,0)="""RTN"",""SROAUTL4"",52,0)"
^XMB(3.9,148,2,11620,0)="CHD ;;384^Operative Death (Y/N)^Operative Death^"
^XMB(3.9,148,2,11621,0)="""RTN"",""SROAUTL4"",53,0)"
^XMB(3.9,148,2,11622,0)="CFE ;;365^CABG Distal Anastomoses with Vein^^"
^XMB(3.9,148,2,11623,0)="""RTN"",""SROAUTL4"",54,0)"
^XMB(3.9,148,2,11624,0)="CFF ;;366^CABG Distal Anastomoses with IMA^^"
^XMB(3.9,148,2,11625,0)="""RTN"",""SROAUTL4"",55,0)"
^XMB(3.9,148,2,11626,0)="CFG ;;367^Aortic Valve Replacement (Y/N)^Aortic Valve Replacement^"
^XMB(3.9,148,2,11627,0)="""RTN"",""SROAUTL4"",56,0)"
^XMB(3.9,148,2,11628,0)="CFH ;;368^Mitral Valve Replacement (Y/N)^Mitral Valve Replacement^"
^XMB(3.9,148,2,11629,0)="""RTN"",""SROAUTL4"",57,0)"
^XMB(3.9,148,2,11630,0)="CFI ;;369^Tricuspid Valve Replacement (Y/N)^Tricuspid Valve Replacement^"
^XMB(3.9,148,2,11631,0)="""RTN"",""SROAUTL4"",58,0)"
^XMB(3.9,148,2,11632,0)="CGJ ;;370^Valve Repair (Y/N)^Valve Repair^"
^XMB(3.9,148,2,11633,0)="""RTN"",""SROAUTL4"",59,0)"
^XMB(3.9,148,2,11634,0)="CGA ;;371^LV Aneurysmectomy (Y/N)^LV Aneurysmectomy^"
^XMB(3.9,148,2,11635,0)="""RTN"",""SROAUTL4"",60,0)"
^XMB(3.9,148,2,11636,0)="CGB ;;372^Great Vessel Repair(Y/N)^Great Vessel Repair^"
^XMB(3.9,148,2,11637,0)="""RTN"",""SROAUTL4"",61,0)"
^XMB(3.9,148,2,11638,0)="EJE ;;505^Endovascular Repair of Descending Thoracic Aorta (Y/N)^Endovascular Repair"
^XMB(3.9,148,2,11639,0)="""RTN"",""SROAUTL4"",62,0)"
^XMB(3.9,148,2,11640,0)="CGC ;;373^Cardiac Transplant (Y/N)^Cardiac Transplant^"
^XMB(3.9,148,2,11641,0)="""RTN"",""SROAUTL4"",63,0)"
^XMB(3.9,148,2,11642,0)="CGF ;;376^ASD Repair (Y/N)^ASD Repair^"
^XMB(3.9,148,2,11643,0)="""RTN"",""SROAUTL4"",64,0)"
^XMB(3.9,148,2,11644,0)="CHJ ;;380^VSD Repair (Y/N)^VSD Repair^"
^XMB(3.9,148,2,11645,0)="""RTN"",""SROAUTL4"",65,0)"
^XMB(3.9,148,2,11646,0)="CGG ;;377^Myxoma Resection (Y/N)^Myxoma Resection^"
^XMB(3.9,148,2,11647,0)="""RTN"",""SROAUTL4"",66,0)"
^XMB(3.9,148,2,11648,0)="CHA ;;381^Foreign Body Removal (Y/N)^Foreign Body Removal^"
^XMB(3.9,148,2,11649,0)="""RTN"",""SROAUTL4"",67,0)"
^XMB(3.9,148,2,11650,0)="CGH ;;378^Myectomy for IHSS (Y/N)^Myectomy for IHSS^"
^XMB(3.9,148,2,11651,0)="""RTN"",""SROAUTL4"",68,0)"
^XMB(3.9,148,2,11652,0)="CHB ;;382^Pericardiectomy (Y/N)^Pericardiectomy^"
^XMB(3.9,148,2,11653,0)="""RTN"",""SROAUTL4"",69,0)"
^XMB(3.9,148,2,11654,0)="CGI ;;379^Other Tumor Resection (Y/N)^Other Tumor Resection^"
^XMB(3.9,148,2,11655,0)="""RTN"",""SROAUTL4"",70,0)"
^XMB(3.9,148,2,11656,0)="DAF ;;416^CABG Distal Anastomoses with Other Conduit^^"
^XMB(3.9,148,2,11657,0)="""RTN"",""SROAUTL4"",71,0)"
^XMB(3.9,148,2,11658,0)="DDB ;;442^Employment Status"
^XMB(3.9,148,2,11659,0)="""RTN"",""SROAUTL4"",72,0)"
^XMB(3.9,148,2,11660,0)="BAI ;;219^Preoperative Hemoglobin^^239"
^XMB(3.9,148,2,11661,0)="""RTN"",""SROAUTL4"",73,0)"
^XMB(3.9,148,2,11662,0)="BCI ;;239^Preoperative Hemoglobin Date"
^XMB(3.9,148,2,11663,0)="""RTN"",""SROAUTL4"",74,0)"
^XMB(3.9,148,2,11664,0)="BBE ;;225^Preoperative Serum Albumin^^292"
^XMB(3.9,148,2,11665,0)="""RTN"",""SROAUTL4"",75,0)"
^XMB(3.9,148,2,11666,0)="BIB ;;292^Preoperative Serum Albumin Date"
^XMB(3.9,148,2,11667,0)="""RTN"",""SROAUTL4"",76,0)"
^XMB(3.9,148,2,11668,0)="BIJ ;;290^Creatinine Date"
^XMB(3.9,148,2,11669,0)="""RTN"",""SROAUTL4"",77,0)"
^XMB(3.9,148,2,11670,0)="DEJ ;;450^Total Ischemic Time"
^XMB(3.9,148,2,11671,0)="""RTN"",""SROAUTL4"",78,0)"
^XMB(3.9,148,2,11672,0)="DEA ;;451^Total CPB Time"
^XMB(3.9,148,2,11673,0)="""RTN"",""SROAUTL4"",79,0)"
^XMB(3.9,148,2,11674,0)="DDJ ;;440^Cardiac Catheterization Date"
^XMB(3.9,148,2,11675,0)="""RTN"",""SROAUTL4"",80,0)"
^XMB(3.9,148,2,11676,0)="DAH ;;418^Hospital Admission Date And Time"
^XMB(3.9,148,2,11677,0)="""RTN"",""SROAUTL4"",81,0)"
^XMB(3.9,148,2,11678,0)="DAI ;;419^Hospital Discharge Date And Time"
^XMB(3.9,148,2,11679,0)="""RTN"",""SROAUTL4"",82,0)"
^XMB(3.9,148,2,11680,0)="DFC ;;463^Hypertension^"
^XMB(3.9,148,2,11681,0)="""RTN"",""SROAUTL4"",83,0)"
^XMB(3.9,148,2,11682,0)="DFD ;;464^Number with Radial Artery^"
^XMB(3.9,148,2,11683,0)="""RTN"",""SROAUTL4"",84,0)"
^XMB(3.9,148,2,11684,0)="DFE ;;465^Number with Other Artery^"
^XMB(3.9,148,2,11685,0)="""RTN"",""SROAUTL4"",85,0)"
^XMB(3.9,148,2,11686,0)="DFH ;;468^Incision Type^"
^XMB(3.9,148,2,11687,0)="""RTN"",""SROAUTL4"",86,0)"
^XMB(3.9,148,2,11688,0)="DFI ;;469^Covert From Off Pump to CPB"
^XMB(3.9,148,2,11689,0)="""RTN"",""SROAUTL4"",87,0)"
^XMB(3.9,148,2,11690,0)="DGJ ;;470^Date and Time Patient Extubated"
^XMB(3.9,148,2,11691,0)="""RTN"",""SROAUTL4"",88,0)"
^XMB(3.9,148,2,11692,0)="DGA ;;471^Date and Time Patient Discharged from ICU"
^XMB(3.9,148,2,11693,0)="""RTN"",""SROAUTL4"",89,0)"
^XMB(3.9,148,2,11694,0)="DGB ;;472^Cardiac Surgery to NON-VA Facility"
^XMB(3.9,148,2,11695,0)="""RTN"",""SROAUTL4"",90,0)"
^XMB(3.9,148,2,11696,0)="PBJE ;;.205^Time Patient In OR"
^XMB(3.9,148,2,11697,0)="""RTN"",""SROAUTL4"",91,0)"
^XMB(3.9,148,2,11698,0)="PBCB ;;.232^Time Patient Out OR"
^XMB(3.9,148,2,11699,0)="""RTN"",""SROAUTL4"",92,0)"
^XMB(3.9,148,2,11700,0)="DEG ;;457^HDL^^457.1"
^XMB(3.9,148,2,11701,0)="""RTN"",""SROAUTL4"",93,0)"
^XMB(3.9,148,2,11702,0)="DEGPA ;;457.1^HDL, Date"
^XMB(3.9,148,2,11703,0)="""RTN"",""SROAUTL4"",94,0)"
^XMB(3.9,148,2,11704,0)="DEH ;;458^Serum Triglyceride^^458.1"
^XMB(3.9,148,2,11705,0)="""RTN"",""SROAUTL4"",95,0)"
^XMB(3.9,148,2,11706,0)="DEHPA ;;458.1^Serum Triglyceride, Date"
^XMB(3.9,148,2,11707,0)="""RTN"",""SROAUTL4"",96,0)"
^XMB(3.9,148,2,11708,0)="DEI ;;459^Serum Potassium^^459.1"
^XMB(3.9,148,2,11709,0)="""RTN"",""SROAUTL4"",97,0)"
^XMB(3.9,148,2,11710,0)="DEIPA ;;459.1^Serum Potassium, Date"
^XMB(3.9,148,2,11711,0)="""RTN"",""SROAUTL4"",98,0)"
^XMB(3.9,148,2,11712,0)="DFJ ;;460^Serum Total Bilirubin^^460.1"
^XMB(3.9,148,2,11713,0)="""RTN"",""SROAUTL4"",99,0)"
^XMB(3.9,148,2,11714,0)="DFJPA ;;460.1^Serum Total Bilirubin, Date"
^XMB(3.9,148,2,11715,0)="""RTN"",""SROAUTL4"",100,0)"
^XMB(3.9,148,2,11716,0)="DFA ;;461^LDL^^461.1"
^XMB(3.9,148,2,11717,0)="""RTN"",""SROAUTL4"",101,0)"
^XMB(3.9,148,2,11718,0)="DFAPA ;;461.1^LDL, Date"
^XMB(3.9,148,2,11719,0)="""RTN"",""SROAUTL4"",102,0)"
^XMB(3.9,148,2,11720,0)="DFB ;;462^Total Cholesterol^^462.1"
^XMB(3.9,148,2,11721,0)="""RTN"",""SROAUTL4"",103,0)"
^XMB(3.9,148,2,11722,0)="DFBPA ;;462.1^Total Cholesterol, Date"
^XMB(3.9,148,2,11723,0)="""RTN"",""SROAUTL4"",104,0)"
^XMB(3.9,148,2,11724,0)="EJD ;;504^Hemoglobin A1c^^504.1"
^XMB(3.9,148,2,11725,0)="""RTN"",""SROAUTL4"",105,0)"
^XMB(3.9,148,2,11726,0)="EJDPA ;;504.1^Hemoglobin A1c, Date"
^XMB(3.9,148,2,11727,0)="""RTN"",""SROAUTL4"",106,0)"
^XMB(3.9,148,2,11728,0)="DGE ;;475^Diabetes (Cardiac)"
^XMB(3.9,148,2,11729,0)="""RTN"",""SROAUTL4"",107,0)"
^XMB(3.9,148,2,11730,0)="DGD ;;474^Preop use of circulatory Device"
^XMB(3.9,148,2,11731,0)="""RTN"",""SROAUTL4"",108,0)"
^XMB(3.9,148,2,11732,0)="DGF ;;476^Procedure Type"
^XMB(3.9,148,2,11733,0)="""RTN"",""SROAUTL4"",109,0)"
^XMB(3.9,148,2,11734,0)="DGG ;;477^Aortic Stenosis"
^XMB(3.9,148,2,11735,0)="""RTN"",""SROAUTL4"",110,0)"
^XMB(3.9,148,2,11736,0)="DGH ;;478^Re-Do Lad Stenosis"
^XMB(3.9,148,2,11737,0)="""RTN"",""SROAUTL4"",111,0)"
^XMB(3.9,148,2,11738,0)="DGI ;;479^Re-Do Right Coronary Stenosis"
^XMB(3.9,148,2,11739,0)="""RTN"",""SROAUTL4"",112,0)"
^XMB(3.9,148,2,11740,0)="DHJ ;;480^Re-Do Circumflex Stenosis"
^XMB(3.9,148,2,11741,0)="""RTN"",""SROAUTL4"",113,0)"
^XMB(3.9,148,2,11742,0)="DHA ;;481^Bridge to transplant/Device"
^XMB(3.9,148,2,11743,0)="""RTN"",""SROAUTL4"",114,0)"
^XMB(3.9,148,2,11744,0)="EAB ;;512^Maze Procedure"
^XMB(3.9,148,2,11745,0)="""RTN"",""SROAUTL4"",115,0)"
^XMB(3.9,148,2,11746,0)="DHC ;;483^Transmyocardial Laser Revascularization"
^XMB(3.9,148,2,11747,0)="""RTN"",""SROAUTL4"",116,0)"
^XMB(3.9,148,2,11748,0)="EJB ;;502^Other Cardiac Procedures (Y/N)"
^XMB(3.9,148,2,11749,0)="""RTN"",""SROAUTL4"",117,0)"
^XMB(3.9,148,2,11750,0)="DHD ;;484^Other cardiac procedures (specify)"
^XMB(3.9,148,2,11751,0)="""RTN"",""SROAUTL4"",118,0)"
^XMB(3.9,148,2,11752,0)="DHE ;;485^Prior Heart Surgeries"
^XMB(3.9,148,2,11753,0)="""RTN"",""SROAUTLC"")"
^XMB(3.9,148,2,11754,0)="0^57^B27492049^B27254291"
^XMB(3.9,148,2,11755,0)="""RTN"",""SROAUTLC"",1,0)"
^XMB(3.9,148,2,11756,0)="SROAUTLC ;BIR/ADM - CARDIAC RISK ASSESSMENT UTILITY ;05/03/04"
^XMB(3.9,148,2,11757,0)="""RTN"",""SROAUTLC"",2,0)"
^XMB(3.9,148,2,11758,0)=" ;;3.0; Surgery ;**38,71,90,88,95,97,102,96,125,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,11759,0)="""RTN"",""SROAUTLC"",3,0)"
^XMB(3.9,148,2,11760,0)=" ;"
^XMB(3.9,148,2,11761,0)="""RTN"",""SROAUTLC"",4,0)"
^XMB(3.9,148,2,11762,0)=" ; Reference to ^DIC(45.3 supported by DBIA #218"
^XMB(3.9,148,2,11763,0)="""RTN"",""SROAUTLC"",5,0)"
^XMB(3.9,148,2,11764,0)=" ;"
^XMB(3.9,148,2,11765,0)="""RTN"",""SROAUTLC"",6,0)"
^XMB(3.9,148,2,11766,0)="SITE ; determine if site is a cardiac facility"
^XMB(3.9,148,2,11767,0)="""RTN"",""SROAUTLC"",7,0)"
^XMB(3.9,148,2,11768,0)=" I $$CARD Q"
^XMB(3.9,148,2,11769,0)="""RTN"",""SROAUTLC"",8,0)"
^XMB(3.9,148,2,11770,0)=" W @IOF,!,""The SURGERY SITE PARAMETERS file indicates this site/division does not use "",!,""the Cardiac Risk Assessment module. Therefore, this option is not available"",!,""for use."",!"
^XMB(3.9,148,2,11771,0)="""RTN"",""SROAUTLC"",9,0)"
^XMB(3.9,148,2,11772,0)=" S XQUIT="""" W !!,""Press RETURN to continue  "" R X:DTIME W @IOF"
^XMB(3.9,148,2,11773,0)="""RTN"",""SROAUTLC"",10,0)"
^XMB(3.9,148,2,11774,0)=" Q"
^XMB(3.9,148,2,11775,0)="""RTN"",""SROAUTLC"",11,0)"
^XMB(3.9,148,2,11776,0)="CARD() ; extrinsic call to determine if site is cardiac facility"
^XMB(3.9,148,2,11777,0)="""RTN"",""SROAUTLC"",12,0)"
^XMB(3.9,148,2,11778,0)=" N CARD S CARD=0 Q:'$G(SRSITE) CARD"
^XMB(3.9,148,2,11779,0)="""RTN"",""SROAUTLC"",13,0)"
^XMB(3.9,148,2,11780,0)=" I $P($G(^SRO(133,SRSITE,0)),""^"",5)=""Y"" S CARD=1"
^XMB(3.9,148,2,11781,0)="""RTN"",""SROAUTLC"",14,0)"
^XMB(3.9,148,2,11782,0)=" Q CARD"
^XMB(3.9,148,2,11783,0)="""RTN"",""SROAUTLC"",15,0)"
^XMB(3.9,148,2,11784,0)="NOW ; update date/time of surgical priority entry"
^XMB(3.9,148,2,11785,0)="""RTN"",""SROAUTLC"",16,0)"
^XMB(3.9,148,2,11786,0)=" N X I $$CARD,$P($G(^SRF(DA,208)),""^"",12)'="""" D NOW^%DTC S $P(^SRF(DA,208),""^"",13)=$E(%,1,12)"
^XMB(3.9,148,2,11787,0)="""RTN"",""SROAUTLC"",17,0)"
^XMB(3.9,148,2,11788,0)=" Q"
^XMB(3.9,148,2,11789,0)="""RTN"",""SROAUTLC"",18,0)"
^XMB(3.9,148,2,11790,0)="KNOW ; delete date/time of surgical priority entry"
^XMB(3.9,148,2,11791,0)="""RTN"",""SROAUTLC"",19,0)"
^XMB(3.9,148,2,11792,0)=" I $D(^SRF(DA,208)) S $P(^SRF(DA,208),""^"",13)=""^"""
^XMB(3.9,148,2,11793,0)="""RTN"",""SROAUTLC"",20,0)"
^XMB(3.9,148,2,11794,0)=" Q"
^XMB(3.9,148,2,11795,0)="""RTN"",""SROAUTLC"",21,0)"
^XMB(3.9,148,2,11796,0)="EM ; input transform logic on Case Schedule Type field (.035)"
^XMB(3.9,148,2,11797,0)="""RTN"",""SROAUTLC"",22,0)"
^XMB(3.9,148,2,11798,0)=" Q:'$$CARD  N DIR,SREM,SRNOT,SRQ,SRSP"
^XMB(3.9,148,2,11799,0)="""RTN"",""SROAUTLC"",23,0)"
^XMB(3.9,148,2,11800,0)=" I X'=""EM"" S:X=""U"" $P(^SRF(DA,208),""^"",12)=2 S:X'=""U"" $P(^SRF(DA,208),""^"",12)=1 D NOW Q"
^XMB(3.9,148,2,11801,0)="""RTN"",""SROAUTLC"",24,0)"
^XMB(3.9,148,2,11802,0)=" S SRQ=0,SRSP=$P(^DIC(45.3,$P(^SRO(137.45,$P(^SRF(DA,0),""^"",4),0),""^"",2),0),""^"") Q:SRSP'=500&(SRSP'=58)  D:SRSP=58 YN Q:SRQ"
^XMB(3.9,148,2,11803,0)="""RTN"",""SROAUTLC"",25,0)"
^XMB(3.9,148,2,11804,0)=" D CAT"
^XMB(3.9,148,2,11805,0)="""RTN"",""SROAUTLC"",26,0)"
^XMB(3.9,148,2,11806,0)=" Q"
^XMB(3.9,148,2,11807,0)="""RTN"",""SROAUTLC"",27,0)"
^XMB(3.9,148,2,11808,0)="CAT N X K DIR S DIR(""A"",1)="""",DIR(""A"",2)=""     Enter category of emergency."",DIR(""A"",3)=""     1. Emergent (ongoing ischemia)"",DIR(""A"",4)=""     2. Emergent (hemodynamic compromise)"",DIR(""A"",5)=""     3. Emergent (arrest with CPR)"""
^XMB(3.9,148,2,11809,0)="""RTN"",""SROAUTLC"",28,0)"
^XMB(3.9,148,2,11810,0)=" S DIR(""A"",6)="""",DIR(""A"")=""     Enter number (1, 2 or 3): "",DIR(0)=""NA^1:3"",DIR(""?"")=""^D HELP^SROAUTLC"" D ^DIR I $D(DTOUT)!$D(DUOUT) Q"
^XMB(3.9,148,2,11811,0)="""RTN"",""SROAUTLC"",29,0)"
^XMB(3.9,148,2,11812,0)=" S SREM=Y,$P(^SRF(DA,208),""^"",12)=SREM+2 D NOW"
^XMB(3.9,148,2,11813,0)="""RTN"",""SROAUTLC"",30,0)"
^XMB(3.9,148,2,11814,0)=" Q"
^XMB(3.9,148,2,11815,0)="""RTN"",""SROAUTLC"",31,0)"
^XMB(3.9,148,2,11816,0)="YN N X K DIR S DIR(""A"",1)="""",DIR(""A"",2)=""     Is this emergency case a cardiac procedure requiring cardiopulmonary"",DIR(""A"")=""     bypass (Y/N)? "",DIR(0)=""YA"" D ^DIR I $D(DTOUT)!$D(DUOUT) S SRQ=1 Q"
^XMB(3.9,148,2,11817,0)="""RTN"",""SROAUTLC"",32,0)"
^XMB(3.9,148,2,11818,0)=" I 'Y S SRQ=1"
^XMB(3.9,148,2,11819,0)="""RTN"",""SROAUTLC"",33,0)"
^XMB(3.9,148,2,11820,0)=" Q"
^XMB(3.9,148,2,11821,0)="""RTN"",""SROAUTLC"",34,0)"
^XMB(3.9,148,2,11822,0)="HELP K SRHLP S SRHLP(1)=""This is the category of emergency reflecting the patient's cardiovascular"",SRHLP(2)=""condition at the time of transport to the operating room:"",SRHLP(3)="""""
^XMB(3.9,148,2,11823,0)="""RTN"",""SROAUTLC"",35,0)"
^XMB(3.9,148,2,11824,0)=" S SRHLP(4)=""1. Emergent (ongoing ischemia) - Clinical condition mandates immediate"",SRHLP(5)=""surgery usually on day of catheterization because of ischemia despite"""
^XMB(3.9,148,2,11825,0)="""RTN"",""SROAUTLC"",36,0)"
^XMB(3.9,148,2,11826,0)=" S SRHLP(6)=""medical therapy, such as intravenous nitroglycerine.  Ischemia should"",SRHLP(7)=""be manifested as chest pain and/or ST-segment depression."""
^XMB(3.9,148,2,11827,0)="""RTN"",""SROAUTLC"",37,0)"
^XMB(3.9,148,2,11828,0)=" S SRHLP(8)="""",SRHLP(9)=""2. Emergent (hemodynamic compromise) - Persistent hypotension (arterial"",SRHLP(10)=""systolic pressure < 80 mm Hg) and/or low cardiac output (cardiac index"""
^XMB(3.9,148,2,11829,0)="""RTN"",""SROAUTLC"",38,0)"
^XMB(3.9,148,2,11830,0)=" S SRHLP(11)=""< 2.0 L/min/MxM) despite iontropic and/or mechanical circulatory"",SRHLP(12)=""support mandates immediates surgery within hours of the cardiac"",SRHLP(13)=""catheterization."""
^XMB(3.9,148,2,11831,0)="""RTN"",""SROAUTLC"",39,0)"
^XMB(3.9,148,2,11832,0)=" S SRHLP(14)="""",SRHLP(15)=""3. Emergent (arrest with CPR) - Patient is taken to the operating room in"",SRHLP(16)=""full cardiac arrest with the circulation supported by cardiopulmonary"""
^XMB(3.9,148,2,11833,0)="""RTN"",""SROAUTLC"",40,0)"
^XMB(3.9,148,2,11834,0)=" S SRHLP(17)=""resuscitation (excludes patients being adequately perfused by a"",SRHLP(18)=""cardiopulmonary support system)."",SRHLP(19)="""""
^XMB(3.9,148,2,11835,0)="""RTN"",""SROAUTLC"",41,0)"
^XMB(3.9,148,2,11836,0)=" S SRHLP(20)=""Enter the appropriate number to designate the category of emergency."",SRHLP(21)="""",SRHLP(22)="""" D EN^DDIOL(.SRHLP) K SRHLP"
^XMB(3.9,148,2,11837,0)="""RTN"",""SROAUTLC"",42,0)"
^XMB(3.9,148,2,11838,0)=" N DIR S DIR(0)=""FOA"",DIR(""A"")=""Enter RETURN to continue: "" D ^DIR I $D(DTOUT)!$D(DUOUT) S SRQ=1 Q"
^XMB(3.9,148,2,11839,0)="""RTN"",""SROAUTLC"",43,0)"
^XMB(3.9,148,2,11840,0)=" Q"
^XMB(3.9,148,2,11841,0)="""RTN"",""SROAUTLC"",44,0)"
^XMB(3.9,148,2,11842,0)="CHK ; check for missing cardiac assessment information"
^XMB(3.9,148,2,11843,0)="""RTN"",""SROAUTLC"",45,0)"
^XMB(3.9,148,2,11844,0)=" K SRX F SRC=""CLIN"",""COC"",""CP"",""CLR"" K DA,DIC,DIQ,DR,SRY S DIC=""^SRF("",DA=SRTN,DIQ=""SRY"",DIQ(0)=""I"" D @SRC D EN^DIQ1 D ^SROAUTL4"
^XMB(3.9,148,2,11845,0)="""RTN"",""SROAUTLC"",46,0)"
^XMB(3.9,148,2,11846,0)=" Q"
^XMB(3.9,148,2,11847,0)="""RTN"",""SROAUTLC"",47,0)"
^XMB(3.9,148,2,11848,0)="CLIN S DR=""236;237;475;203;347;209;348;510;223;290;219;239;225;292;349;350;240;351;205;352;485;265;264;267;207;353;354;355;463;474"""
^XMB(3.9,148,2,11849,0)="""RTN"",""SROAUTLC"",48,0)"
^XMB(3.9,148,2,11850,0)=" Q"
^XMB(3.9,148,2,11851,0)="""RTN"",""SROAUTLC"",49,0)"
^XMB(3.9,148,2,11852,0)="COC S DR=""476;477;357;358;359;360;361;362.1;362.2;362.3;363;415;474;364;364.1;1.13;414;414.1;384;.22;.23;472;478;479;480"""
^XMB(3.9,148,2,11853,0)="""RTN"",""SROAUTLC"",50,0)"
^XMB(3.9,148,2,11854,0)=" Q"
^XMB(3.9,148,2,11855,0)="""RTN"",""SROAUTLC"",51,0)"
^XMB(3.9,148,2,11856,0)="CP S DR=""365;366;464;465;416;367;368;369;370;371;372;505;450;451;373;376;380;377;381;378;382;379;468;469;.205;.232;470;471;418;419;440;481;512;483;502"""
^XMB(3.9,148,2,11857,0)="""RTN"",""SROAUTLC"",52,0)"
^XMB(3.9,148,2,11858,0)=" I $P($G(^SRF(SRTN,209)),""^"",13)=""Y""!($P($G(^SRF(SRTN,209)),""^"",13)="""") S DR=DR_"";484"""
^XMB(3.9,148,2,11859,0)="""RTN"",""SROAUTLC"",53,0)"
^XMB(3.9,148,2,11860,0)=" Q"
^XMB(3.9,148,2,11861,0)="""RTN"",""SROAUTLC"",54,0)"
^XMB(3.9,148,2,11862,0)="CLR S DR=""457;457.1;458;458.1;459;459.1;460;460.1;461;461.1;462;462.1;504;504.1"""
^XMB(3.9,148,2,11863,0)="""RTN"",""SROAUTLC"",55,0)"
^XMB(3.9,148,2,11864,0)=" Q"
^XMB(3.9,148,2,11865,0)="""RTN"",""SROAWL"")"
^XMB(3.9,148,2,11866,0)="0^9^B32512298^B25459866"
^XMB(3.9,148,2,11867,0)="""RTN"",""SROAWL"",1,0)"
^XMB(3.9,148,2,11868,0)="SROAWL ;BIR/ADM - REPORT OF MONTHLY CASE WORKLOAD TOTALS ;06/13/06"
^XMB(3.9,148,2,11869,0)="""RTN"",""SROAWL"",2,0)"
^XMB(3.9,148,2,11870,0)=" ;;3.0; Surgery ;**38,47,50,86,141,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,11871,0)="""RTN"",""SROAWL"",3,0)"
^XMB(3.9,148,2,11872,0)=" N SRINSTP,SRSEL S (SRSOUT,SRT)=0,SRP=1,SRINST=SRSITE(""SITE""),SRINSTP=SRSITE(""DIV"")"
^XMB(3.9,148,2,11873,0)="""RTN"",""SROAWL"",4,0)"
^XMB(3.9,148,2,11874,0)="START G:SRSOUT END W @IOF,!,""Report of Monthly Case Workload Totals"",!!"
^XMB(3.9,148,2,11875,0)="""RTN"",""SROAWL"",5,0)"
^XMB(3.9,148,2,11876,0)=" K DIR S DIR(""A"",1)=""Print which report?"",DIR(""A"",2)="""",DIR(""A"",3)=""1. Report for Single Month"""
^XMB(3.9,148,2,11877,0)="""RTN"",""SROAWL"",6,0)"
^XMB(3.9,148,2,11878,0)=" S DIR(""A"",4)=""2. Report for Range of Months"",DIR(""A"",5)="""",DIR(""A"")=""Select Number (1 or 2): "",DIR(""B"")=""1"""
^XMB(3.9,148,2,11879,0)="""RTN"",""SROAWL"",7,0)"
^XMB(3.9,148,2,11880,0)=" S DIR(0)=""NA^1:2:0"" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1 G END"
^XMB(3.9,148,2,11881,0)="""RTN"",""SROAWL"",8,0)"
^XMB(3.9,148,2,11882,0)=" S SRSEL=Y I SRSEL=2 D TWO Q"
^XMB(3.9,148,2,11883,0)="""RTN"",""SROAWL"",9,0)"
^XMB(3.9,148,2,11884,0)=" W @IOF,""This option provides a report of the monthly risk assessment surgical case"",!,""workload totals which include the following categories:"",!"
^XMB(3.9,148,2,11885,0)="""RTN"",""SROAWL"",10,0)"
^XMB(3.9,148,2,11886,0)=" W ?5,""1. All cases performed"",!,?5,""2. Excluded cases"",!,?5,""3. Assessed cases"",!,?5,""4. Not logged major cases"",!,?5,""5. Cardiac cases"",!,?5,""6. Non-cardiac cases"",!,?5,""7. Assessed cases per day (based on 20 days/month)"""
^XMB(3.9,148,2,11887,0)="""RTN"",""SROAWL"",11,0)"
^XMB(3.9,148,2,11888,0)=" W !!,""The second part of this report provides the total number of incomplete"",!,""assessments remaining for the month selected and the prior 12 months."""
^XMB(3.9,148,2,11889,0)="""RTN"",""SROAWL"",12,0)"
^XMB(3.9,148,2,11890,0)="DATE D GETDT W ! K DIR S DIR(""A"")=""Compile workload totals for which month and year? "",DIR(0)=""DA^::MX"",DIR(""B"")=SRM_"" ""_SRY,DIR(""?"",1)=""Enter the month and year for which to run this report,"""
^XMB(3.9,148,2,11891,0)="""RTN"",""SROAWL"",13,0)"
^XMB(3.9,148,2,11892,0)=" S DIR(""?"")=""for example, 'MAY 94', 'MAY 1994', '5/94' or '5 94'."" D ^DIR I $D(DTOUT)!$D(DUOUT)!'Y S SRSOUT=1 G END"
^XMB(3.9,148,2,11893,0)="""RTN"",""SROAWL"",14,0)"
^XMB(3.9,148,2,11894,0)=" S SRDT=Y D  G:SRSOUT END G:'$D(SRDT) DATE S SRDT=$E(SRDT,1,5)_""00"""
^XMB(3.9,148,2,11895,0)="""RTN"",""SROAWL"",15,0)"
^XMB(3.9,148,2,11896,0)=" .Q:SRDT=SRD  S SRY=$E(Y,1,3)+1700,Z=+$E(Y,4,5) D MONTH"
^XMB(3.9,148,2,11897,0)="""RTN"",""SROAWL"",16,0)"
^XMB(3.9,148,2,11898,0)=" .W !! K DIR S DIR(""A"")=""Compile totals for ""_SRM_"" ""_SRY,DIR(0)=""Y"",DIR(""B"")=""YES"" D ^DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1 Q"
^XMB(3.9,148,2,11899,0)="""RTN"",""SROAWL"",17,0)"
^XMB(3.9,148,2,11900,0)=" .I 'Y K SRDT"
^XMB(3.9,148,2,11901,0)="""RTN"",""SROAWL"",18,0)"
^XMB(3.9,148,2,11902,0)="DIV S (SRCNT,X)=0 F  S X=$O(^SRO(133,X)) Q:'X  I '$P(^SRO(133,X,0),""^"",21) S SRCNT=SRCNT+1"
^XMB(3.9,148,2,11903,0)="""RTN"",""SROAWL"",19,0)"
^XMB(3.9,148,2,11904,0)=" I SRCNT=1,SRSEL=1 G TRAN"
^XMB(3.9,148,2,11905,0)="""RTN"",""SROAWL"",20,0)"
^XMB(3.9,148,2,11906,0)=" S SRINST=$$INST^SROUTL0() G:SRINST=""^"" END S SRINSTP=$P(SRINST,""^""),SRINST=$S(SRINST[""ALL DIVISIONS"":SRINST,1:$P(SRINST,""^"",2))"
^XMB(3.9,148,2,11907,0)="""RTN"",""SROAWL"",21,0)"
^XMB(3.9,148,2,11908,0)=" I SRINST'[""ALL DIVISIONS""!(SRSEL=2) G IO"
^XMB(3.9,148,2,11909,0)="""RTN"",""SROAWL"",22,0)"
^XMB(3.9,148,2,11910,0)="TRAN W ! K DIR S DIR(""A"",1)=""This report may be printed and/or transmitted to the national database."",DIR(""A"",2)="""""
^XMB(3.9,148,2,11911,0)="""RTN"",""SROAWL"",23,0)"
^XMB(3.9,148,2,11912,0)=" S DIR(""A"")=""Do you want this report to be transmitted to the central database"",DIR(""B"")=""NO"",DIR(""?"",1)=""Enter YES to have this report automatically transmitted to the central"""
^XMB(3.9,148,2,11913,0)="""RTN"",""SROAWL"",24,0)"
^XMB(3.9,148,2,11914,0)=" S DIR(""?"")=""database.  Enter NO if you do NOT want this report transmitted."",DIR(0)=""Y"" D ^DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1 G END"
^XMB(3.9,148,2,11915,0)="""RTN"",""SROAWL"",25,0)"
^XMB(3.9,148,2,11916,0)=" I 'Y G IO"
^XMB(3.9,148,2,11917,0)="""RTN"",""SROAWL"",26,0)"
^XMB(3.9,148,2,11918,0)="PRT S SRT=1,SRP=0 W ! K DIR S DIR(""A"")=""Do you also want to print this report"",DIR(""B"")=""YES"",DIR(""?"",1)=""Enter NO if you want to have this report transmitted, but do not want to"""
^XMB(3.9,148,2,11919,0)="""RTN"",""SROAWL"",27,0)"
^XMB(3.9,148,2,11920,0)=" S DIR(""?"",2)=""have it printed.  Enter YES if you do want to print the report as well as"",DIR(""?"")=""have it transmitted."",DIR(0)=""Y"" D ^DIR S:Y SRP=1 I $D(DTOUT)!$D(DUOUT) S SRSOUT=1 G END"
^XMB(3.9,148,2,11921,0)="""RTN"",""SROAWL"",28,0)"
^XMB(3.9,148,2,11922,0)=" I 'SRP G QUE"
^XMB(3.9,148,2,11923,0)="""RTN"",""SROAWL"",29,0)"
^XMB(3.9,148,2,11924,0)="IO W ! K %ZIS,IO(""Q""),POP S %ZIS(""A"")=""Print report on which Device: "",%ZIS=""Q"" D ^%ZIS I POP S SRSOUT=1 G END"
^XMB(3.9,148,2,11925,0)="""RTN"",""SROAWL"",30,0)"
^XMB(3.9,148,2,11926,0)=" I $D(IO(""Q"")) K IO(""Q"") S ZTDESC=""Report of Surgical Case Workload"" D  S ZTRTN=""RUN^SROAWL"" D ^%ZTLOAD S SRSOUT=1 G END"
^XMB(3.9,148,2,11927,0)="""RTN"",""SROAWL"",31,0)"
^XMB(3.9,148,2,11928,0)=" .S (ZTSAVE(""SRDT""),ZTSAVE(""SRP""),ZTSAVE(""SRT""),ZTSAVE(""SRINST""),ZTSAVE(""SRINSTP""),ZTSAVE(""SRSEL""))="""""
^XMB(3.9,148,2,11929,0)="""RTN"",""SROAWL"",32,0)"
^XMB(3.9,148,2,11930,0)=" .I SRSEL=2 S ZTSAVE(""SREDT"")="""""
^XMB(3.9,148,2,11931,0)="""RTN"",""SROAWL"",33,0)"
^XMB(3.9,148,2,11932,0)="RUN ; entry point when queued"
^XMB(3.9,148,2,11933,0)="""RTN"",""SROAWL"",34,0)"
^XMB(3.9,148,2,11934,0)=" D ^SROAWL1"
^XMB(3.9,148,2,11935,0)="""RTN"",""SROAWL"",35,0)"
^XMB(3.9,148,2,11936,0)="END I 'SRSOUT,$E(IOST)=""C"" W !! K DIR S DIR(0)=""FOA"",DIR(""A"")=""Press RETURN to continue"" D ^DIR"
^XMB(3.9,148,2,11937,0)="""RTN"",""SROAWL"",36,0)"
^XMB(3.9,148,2,11938,0)=" W:$E(IOST)=""P"" @IOF K ^TMP(""SRM"",$J) I $D(ZTQUEUED) Q:$G(ZTSTOP)  S ZTREQ=""@"" Q"
^XMB(3.9,148,2,11939,0)="""RTN"",""SROAWL"",37,0)"
^XMB(3.9,148,2,11940,0)=" D ^%ZISC K SRTN W @IOF D ^SRSKILL"
^XMB(3.9,148,2,11941,0)="""RTN"",""SROAWL"",38,0)"
^XMB(3.9,148,2,11942,0)=" Q"
^XMB(3.9,148,2,11943,0)="""RTN"",""SROAWL"",39,0)"
^XMB(3.9,148,2,11944,0)="TWO S X=$E(DT,1,3)-1,SRD=X_""1000"",SRY=X+1700,SRM=""OCT ""_SRY"
^XMB(3.9,148,2,11945,0)="""RTN"",""SROAWL"",40,0)"
^XMB(3.9,148,2,11946,0)=" W ! K DIR S DIR(""A"")=""Start with which month and year? """
^XMB(3.9,148,2,11947,0)="""RTN"",""SROAWL"",41,0)"
^XMB(3.9,148,2,11948,0)=" S DIR(0)=""DA^::EMX"",DIR(""B"")=SRM,DIR(""?"",1)=""Enter the starting month and year for this report, for example,"""
^XMB(3.9,148,2,11949,0)="""RTN"",""SROAWL"",42,0)"
^XMB(3.9,148,2,11950,0)=" S DIR(""?"")=""'OCT 2005', 'OCT 05', '10/05' or '10 05'."" D ^DIR I $D(DTOUT)!$D(DUOUT)!'Y S SRSOUT=1 G END"
^XMB(3.9,148,2,11951,0)="""RTN"",""SROAWL"",43,0)"
^XMB(3.9,148,2,11952,0)=" S SRDT=Y D GETDT"
^XMB(3.9,148,2,11953,0)="""RTN"",""SROAWL"",44,0)"
^XMB(3.9,148,2,11954,0)="DT2 W ! K DIR S DIR(""A"")=""End with which month and year? "",DIR(0)=""DA^::EMX"",DIR(""B"")=SRM_"" ""_SRY"
^XMB(3.9,148,2,11955,0)="""RTN"",""SROAWL"",45,0)"
^XMB(3.9,148,2,11956,0)=" S DIR(""?"",1)=""Enter the ending month and year for this report, for example,"""
^XMB(3.9,148,2,11957,0)="""RTN"",""SROAWL"",46,0)"
^XMB(3.9,148,2,11958,0)=" S DIR(""?"")=""'OCT 2005', 'OCT 05', '10/05' or '10 05'."" D ^DIR I $D(DTOUT)!$D(DUOUT)!'Y S SRSOUT=1 G END"
^XMB(3.9,148,2,11959,0)="""RTN"",""SROAWL"",47,0)"
^XMB(3.9,148,2,11960,0)=" S SREDT=Y G:'$G(SREDT) DT2 S SREDT=$E(SREDT,1,5)_""00"""
^XMB(3.9,148,2,11961,0)="""RTN"",""SROAWL"",48,0)"
^XMB(3.9,148,2,11962,0)=" I SREDT<SRDT W !!,""Ending date must not be earlier than starting date!"" K SREDT G TWO"
^XMB(3.9,148,2,11963,0)="""RTN"",""SROAWL"",49,0)"
^XMB(3.9,148,2,11964,0)=" G DIV"
^XMB(3.9,148,2,11965,0)="""RTN"",""SROAWL"",50,0)"
^XMB(3.9,148,2,11966,0)=" Q"
^XMB(3.9,148,2,11967,0)="""RTN"",""SROAWL"",51,0)"
^XMB(3.9,148,2,11968,0)="GETDT S X=+$E(DT,4,5) S:X'=1 Z=X-1 S:X=1 Z=12 D MONTH S X=$E(DT,1,3) S:Z=12 X=X-1 S Z=$S($L(Z)=1:""0""_Z,1:Z) S SRY=X+1700,SRD=X_Z_""00"""
^XMB(3.9,148,2,11969,0)="""RTN"",""SROAWL"",52,0)"
^XMB(3.9,148,2,11970,0)=" Q"
^XMB(3.9,148,2,11971,0)="""RTN"",""SROAWL"",53,0)"
^XMB(3.9,148,2,11972,0)="MONTH ; get name of month"
^XMB(3.9,148,2,11973,0)="""RTN"",""SROAWL"",54,0)"
^XMB(3.9,148,2,11974,0)=" S SRM=$S(Z=2:""FEB"",Z=3:""MAR"",Z=4:""APR"",Z=5:""MAY"",Z=6:""JUN"",Z=7:""JUL"",Z=8:""AUG"",Z=9:""SEP"",Z=10:""OCT"",Z=11:""NOV"",Z=12:""DEC"",1:""JAN"")"
^XMB(3.9,148,2,11975,0)="""RTN"",""SROAWL"",55,0)"
^XMB(3.9,148,2,11976,0)=" Q"
^XMB(3.9,148,2,11977,0)="""RTN"",""SROAWL"",56,0)"
^XMB(3.9,148,2,11978,0)="QUE ; queue transmission of report to national database"
^XMB(3.9,148,2,11979,0)="""RTN"",""SROAWL"",57,0)"
^XMB(3.9,148,2,11980,0)=" W ! K %DT S %DT(""A"")=""Queue report to run at what date/time? "",%DT(0)=""NOW"",%DT(""B"")=""NOW"",%DT=""AEFXT"" D ^%DT I 'Y S SRSOUT=1 G END"
^XMB(3.9,148,2,11981,0)="""RTN"",""SROAWL"",58,0)"
^XMB(3.9,148,2,11982,0)=" S ZTDTH=Y,ZTIO="""",ZTDESC=""Report of Surgical Case Workload"",(ZTSAVE(""SRDT""),ZTSAVE(""SRP""),ZTSAVE(""SRT""),ZTSAVE(""SRINST""),ZTSAVE(""SRINSTP""),ZTSAVE(""SRSTATN""),ZTSAVE(""SRSEL""))="""",ZTRTN=""RUN^SROAWL"" D ^%ZTLOAD G END"
^XMB(3.9,148,2,11983,0)="""RTN"",""SROAWL"",59,0)"
^XMB(3.9,148,2,11984,0)=" Q"
^XMB(3.9,148,2,11985,0)="""RTN"",""SROAWL"",60,0)"
^XMB(3.9,148,2,11986,0)="TASK ; automatic transmission of workload report called by nightly process"
^XMB(3.9,148,2,11987,0)="""RTN"",""SROAWL"",61,0)"
^XMB(3.9,148,2,11988,0)=" D NOW^%DTC Q:+%I(2)<9  S SRDAY=+%I(2),SRNOW=$E(%,1,12) D GETDT S SRDT=SRD"
^XMB(3.9,148,2,11989,0)="""RTN"",""SROAWL"",62,0)"
^XMB(3.9,148,2,11990,0)=" S SRS=$O(^SRO(133,0)) Q:'SRS  S SRL=$P(^SRO(133,SRS,0),""^"",13) I SRL=SRD G STOP"
^XMB(3.9,148,2,11991,0)="""RTN"",""SROAWL"",63,0)"
^XMB(3.9,148,2,11992,0)=" S SRP=0,SRT=1,X=$$SITE^SROVAR,SRINST=$P(X,""^"",2),SRINSTP=""ALL DIVISIONS"",SRSEL=1"
^XMB(3.9,148,2,11993,0)="""RTN"",""SROAWL"",64,0)"
^XMB(3.9,148,2,11994,0)=" D ^SROAWL1 S SRS=$O(^SRO(133,0)),$P(^SRO(133,SRS,0),""^"",13)=SRDT"
^XMB(3.9,148,2,11995,0)="""RTN"",""SROAWL"",65,0)"
^XMB(3.9,148,2,11996,0)="STOP D ^SRSKILL K SRTN"
^XMB(3.9,148,2,11997,0)="""RTN"",""SROAWL"",66,0)"
^XMB(3.9,148,2,11998,0)=" Q"
^XMB(3.9,148,2,11999,0)="""RTN"",""SROAWL1"")"
^XMB(3.9,148,2,12000,0)="0^10^B32202367^B30717268"
^XMB(3.9,148,2,12001,0)="""RTN"",""SROAWL1"",1,0)"
^XMB(3.9,148,2,12002,0)="SROAWL1 ;BIR/ADM - REPORT OF CASE WORKLOAD TOTALS (CONTINUED) ;03/22/06"
^XMB(3.9,148,2,12003,0)="""RTN"",""SROAWL1"",2,0)"
^XMB(3.9,148,2,12004,0)=" ;;3.0; Surgery ;**38,47,60,62,68,50,86,88,92,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,12005,0)="""RTN"",""SROAWL1"",3,0)"
^XMB(3.9,148,2,12006,0)=" ; SRTOTAL(1) = total of all cases completed (excluding aborted cases)"
^XMB(3.9,148,2,12007,0)="""RTN"",""SROAWL1"",4,0)"
^XMB(3.9,148,2,12008,0)=" ; SRTOTAL(2) = excluded cases"
^XMB(3.9,148,2,12009,0)="""RTN"",""SROAWL1"",5,0)"
^XMB(3.9,148,2,12010,0)=" ; SRTOTAL(3) = assessed cases"
^XMB(3.9,148,2,12011,0)="""RTN"",""SROAWL1"",6,0)"
^XMB(3.9,148,2,12012,0)=" ; SRTOTAL(4) = not logged major cases"
^XMB(3.9,148,2,12013,0)="""RTN"",""SROAWL1"",7,0)"
^XMB(3.9,148,2,12014,0)=" ; SRTOTAL(5) = cardiac cases"
^XMB(3.9,148,2,12015,0)="""RTN"",""SROAWL1"",8,0)"
^XMB(3.9,148,2,12016,0)=" ; SRTOTAL(6) = non-cardiac cases"
^XMB(3.9,148,2,12017,0)="""RTN"",""SROAWL1"",9,0)"
^XMB(3.9,148,2,12018,0)=" ; SRTOTAL(7) = assessed cases per day (at 20 days per month)"
^XMB(3.9,148,2,12019,0)="""RTN"",""SROAWL1"",10,0)"
^XMB(3.9,148,2,12020,0)=" ; SRTOTAL(8) = total major cases"
^XMB(3.9,148,2,12021,0)="""RTN"",""SROAWL1"",11,0)"
^XMB(3.9,148,2,12022,0)=" ; SRTOTAL(9) = total minor cases"
^XMB(3.9,148,2,12023,0)="""RTN"",""SROAWL1"",12,0)"
^XMB(3.9,148,2,12024,0)=" ;"
^XMB(3.9,148,2,12025,0)="""RTN"",""SROAWL1"",13,0)"
^XMB(3.9,148,2,12026,0)=" I SRP U IO"
^XMB(3.9,148,2,12027,0)="""RTN"",""SROAWL1"",14,0)"
^XMB(3.9,148,2,12028,0)=" N SRDIV,SRMULT S (SRDIV,SRMULT,SRSOUT)=0"
^XMB(3.9,148,2,12029,0)="""RTN"",""SROAWL1"",15,0)"
^XMB(3.9,148,2,12030,0)=" I SRT S (SRCNT,X)=0 D"
^XMB(3.9,148,2,12031,0)="""RTN"",""SROAWL1"",16,0)"
^XMB(3.9,148,2,12032,0)=" .F  S X=$O(^SRO(133,X)) Q:'X  I '$P($G(^SRO(133,X,0)),""^"",21) S SRCNT=SRCNT+1,SRDIV(X)=$P(^SRO(133,X,0),""^"")"
^XMB(3.9,148,2,12033,0)="""RTN"",""SROAWL1"",17,0)"
^XMB(3.9,148,2,12034,0)=" .I SRCNT>1 S SRMULT=1"
^XMB(3.9,148,2,12035,0)="""RTN"",""SROAWL1"",18,0)"
^XMB(3.9,148,2,12036,0)="BEG S SRSDATE=SRDT I SRSEL=1 S X=+$E(SRDT,4,5),X=$S(X'=12:X+1,1:1),Y=$E(SRDT,1,3),Y=$S(X>1:Y,1:Y+1),SRED=Y_$S($L(X)=1:""0""_X,1:X)_""00"""
^XMB(3.9,148,2,12037,0)="""RTN"",""SROAWL1"",19,0)"
^XMB(3.9,148,2,12038,0)=" I SRSEL=2 S X=$E(SREDT,1,5),SRED=X_""99"""
^XMB(3.9,148,2,12039,0)="""RTN"",""SROAWL1"",20,0)"
^XMB(3.9,148,2,12040,0)=" K SRTOTAL F I=1:1:9 S SRTOTAL(I)=0"
^XMB(3.9,148,2,12041,0)="""RTN"",""SROAWL1"",21,0)"
^XMB(3.9,148,2,12042,0)=" N SREXCL F I=0:1:9 S SREXCL(I)=0"
^XMB(3.9,148,2,12043,0)="""RTN"",""SROAWL1"",22,0)"
^XMB(3.9,148,2,12044,0)=" S:'$D(SRINSTP) SRINSTP=""ALL DIVISIONS"""
^XMB(3.9,148,2,12045,0)="""RTN"",""SROAWL1"",23,0)"
^XMB(3.9,148,2,12046,0)=" I SRSEL=1 D MOS S Y=SRDT X ^DD(""DD"") S SRM=""FOR ""_Y,SRTITLE=""REPORT OF MONTHLY SURGICAL CASE WORKLOAD"""
^XMB(3.9,148,2,12047,0)="""RTN"",""SROAWL1"",24,0)"
^XMB(3.9,148,2,12048,0)=" I SRSEL=2 S SRTITLE=""REPORT OF SURGICAL CASE WORKLOAD"" D"
^XMB(3.9,148,2,12049,0)="""RTN"",""SROAWL1"",25,0)"
^XMB(3.9,148,2,12050,0)=" .S Y=SRDT X ^DD(""DD"") S SRM=""FOR ""_Y_"" THROUGH "" S Y=SREDT X ^DD(""DD"") S SRM=SRM_Y"
^XMB(3.9,148,2,12051,0)="""RTN"",""SROAWL1"",26,0)"
^XMB(3.9,148,2,12052,0)=" F  S SRSDATE=$O(^SRF(""AC"",SRSDATE)) Q:SRSDATE>SRED!'SRSDATE  S SRTN=0 F  S SRTN=$O(^SRF(""AC"",SRSDATE,SRTN)) Q:'SRTN  I $D(^SRF(SRTN,0)),$$MANDIV^SROUTL0(SRINSTP,SRTN) D CASE"
^XMB(3.9,148,2,12053,0)="""RTN"",""SROAWL1"",27,0)"
^XMB(3.9,148,2,12054,0)=" F K=""C"",""N"" S SRDFN=0 F  S SRDFN=$O(^SRF(""ARS"",K,""I"",SRDFN)) Q:'SRDFN  S SRTN=0 F  S SRTN=$O(^SRF(""ARS"",K,""I"",SRDFN,SRTN)) Q:'SRTN  I $D(^SRF(SRTN,0)),$$MANDIV^SROUTL0(SRINSTP,SRTN) D OPDATE"
^XMB(3.9,148,2,12055,0)="""RTN"",""SROAWL1"",28,0)"
^XMB(3.9,148,2,12056,0)=" I SRSEL=1 S SRTOTAL(7)=SRTOTAL(3)/20 D:'SRP INC D:SRP OUT G:SRSOUT END D:SRT TMIT"
^XMB(3.9,148,2,12057,0)="""RTN"",""SROAWL1"",29,0)"
^XMB(3.9,148,2,12058,0)=" I SRSEL=2 D OUT"
^XMB(3.9,148,2,12059,0)="""RTN"",""SROAWL1"",30,0)"
^XMB(3.9,148,2,12060,0)="END K SRINSTP,SRTOTAL,^TMP(""SRM"",$J) I SRT,SRMULT S SRP=0 S SRDIV=$O(SRDIV(SRDIV)) Q:'SRDIV  D SITE,BEG"
^XMB(3.9,148,2,12061,0)="""RTN"",""SROAWL1"",31,0)"
^XMB(3.9,148,2,12062,0)=" Q"
^XMB(3.9,148,2,12063,0)="""RTN"",""SROAWL1"",32,0)"
^XMB(3.9,148,2,12064,0)="CASE ; examine case"
^XMB(3.9,148,2,12065,0)="""RTN"",""SROAWL1"",33,0)"
^XMB(3.9,148,2,12066,0)=" Q:$P($G(^SRF(SRTN,30)),""^"")!$P($G(^SRF(SRTN,31)),""^"",8)!'($P($G(^SRF(SRTN,.2)),""^"",12)!($P($G(^SRF(SRTN,.2)),""^"",3)))"
^XMB(3.9,148,2,12067,0)="""RTN"",""SROAWL1"",34,0)"
^XMB(3.9,148,2,12068,0)=" S SRTOTAL(1)=SRTOTAL(1)+1,SRMAJ=$S($P(^SRF(SRTN,0),""^"",3)=""J"":1,1:0) S:SRMAJ SRTOTAL(8)=SRTOTAL(8)+1 I 'SRMAJ S SRTOTAL(9)=SRTOTAL(9)+1"
^XMB(3.9,148,2,12069,0)="""RTN"",""SROAWL1"",35,0)"
^XMB(3.9,148,2,12070,0)=" S SRA=$G(^SRF(SRTN,""RA"")),SRTYPE=$P(SRA,""^"",2) S:SRTYPE=""""&SRMAJ SRTOTAL(4)=SRTOTAL(4)+1 S:SRTYPE=""C"" SRTOTAL(5)=SRTOTAL(5)+1"
^XMB(3.9,148,2,12071,0)="""RTN"",""SROAWL1"",36,0)"
^XMB(3.9,148,2,12072,0)=" S SRASS=$P(SRA,""^"",6) D"
^XMB(3.9,148,2,12073,0)="""RTN"",""SROAWL1"",37,0)"
^XMB(3.9,148,2,12074,0)=" .I SRASS=""N"" S SRTOTAL(2)=SRTOTAL(2)+1,X=$P(SRA,""^"",7) S:X SREXCL(X)=SREXCL(X)+1"
^XMB(3.9,148,2,12075,0)="""RTN"",""SROAWL1"",38,0)"
^XMB(3.9,148,2,12076,0)=" .I SRASS=""Y"" S SRTOTAL(3)=SRTOTAL(3)+1"
^XMB(3.9,148,2,12077,0)="""RTN"",""SROAWL1"",39,0)"
^XMB(3.9,148,2,12078,0)=" I SRTYPE=""N"",SRASS=""Y"" S SRTOTAL(6)=SRTOTAL(6)+1"
^XMB(3.9,148,2,12079,0)="""RTN"",""SROAWL1"",40,0)"
^XMB(3.9,148,2,12080,0)=" Q"
^XMB(3.9,148,2,12081,0)="""RTN"",""SROAWL1"",41,0)"
^XMB(3.9,148,2,12082,0)="OPDATE ; get date of operation"
^XMB(3.9,148,2,12083,0)="""RTN"",""SROAWL1"",42,0)"
^XMB(3.9,148,2,12084,0)=" S SRA=$G(^SRF(SRTN,""RA"")) I $P(SRA,""^"")'=""I"" K ^SRF(""ARS"",K,""I"",SRDFN,SRTN) Q"
^XMB(3.9,148,2,12085,0)="""RTN"",""SROAWL1"",43,0)"
^XMB(3.9,148,2,12086,0)=" S SRTYPE=$P(SRA,""^"",2) I SRTYPE'=K K ^SRF(""ARS"",K,""I"",SRDFN,SRTN) Q"
^XMB(3.9,148,2,12087,0)="""RTN"",""SROAWL1"",44,0)"
^XMB(3.9,148,2,12088,0)=" I SRSEL=1 S SRMONTH=$E($P(^SRF(SRTN,0),""^"",9),1,5)_""00"" I $D(^TMP(""SRM"",$J,SRMONTH,K)) S ^TMP(""SRM"",$J,SRMONTH,K)=^TMP(""SRM"",$J,SRMONTH,K)+1"
^XMB(3.9,148,2,12089,0)="""RTN"",""SROAWL1"",45,0)"
^XMB(3.9,148,2,12090,0)=" Q"
^XMB(3.9,148,2,12091,0)="""RTN"",""SROAWL1"",46,0)"
^XMB(3.9,148,2,12092,0)="OUT ; print report"
^XMB(3.9,148,2,12093,0)="""RTN"",""SROAWL1"",47,0)"
^XMB(3.9,148,2,12094,0)=" W:$Y @IOF W !,?(80-$L(SRINST)\2),SRINST,!,?(80-$L(SRTITLE)\2),SRTITLE,!,?(80-$L(SRM)\2),SRM,!,?15 F I=1:1:50 W ""-"""
^XMB(3.9,148,2,12095,0)="""RTN"",""SROAWL1"",48,0)"
^XMB(3.9,148,2,12096,0)=" W !,?20,""TOTAL CASES PERFORMED"",?54,""="",$J(SRTOTAL(1),6),!,?24,""TOTAL MAJOR CASES"",?54,""="",$J(SRTOTAL(8),6)"
^XMB(3.9,148,2,12097,0)="""RTN"",""SROAWL1"",49,0)"
^XMB(3.9,148,2,12098,0)=" W !,?24,""TOTAL MINOR CASES"",?54,""="",$J(SRTOTAL(9),6),!,?20,""CASES MEETING EXCLUSION CRITERIA"",?54,""="",$J(SRTOTAL(2),6)"
^XMB(3.9,148,2,12099,0)="""RTN"",""SROAWL1"",50,0)"
^XMB(3.9,148,2,12100,0)=" W !,?24,""NON-SURGEON CASE"",?54,""="",$J(SREXCL(0),6),!,?24,""ANESTHESIA TYPE"",?54,""="",$J(SREXCL(1),6)"
^XMB(3.9,148,2,12101,0)="""RTN"",""SROAWL1"",51,0)"
^XMB(3.9,148,2,12102,0)=" W !,?24,""EXCEEDS MAX. ASSESSMENTS"",?54,""="",$J(SREXCL(2),6),!,?24,""EXCEEDS MAXIMUM TURPS"",?54,""="",$J(SREXCL(3),6)"
^XMB(3.9,148,2,12103,0)="""RTN"",""SROAWL1"",52,0)"
^XMB(3.9,148,2,12104,0)=" W !,?24,""STUDY CRITERIA"",?54,""="",$J(SREXCL(4),6),!,?24,""SCNR WAS ON A/L"",?54,""="",$J(SREXCL(6),6)"
^XMB(3.9,148,2,12105,0)="""RTN"",""SROAWL1"",53,0)"
^XMB(3.9,148,2,12106,0)=" W !,?24,""CONCURRENT CASE"",?54,""="",$J(SREXCL(8),6),!,?24,""EXCEEDS MAXIMUM HERNIAS"",?54,""="",$J(SREXCL(9),6)"
^XMB(3.9,148,2,12107,0)="""RTN"",""SROAWL1"",54,0)"
^XMB(3.9,148,2,12108,0)=" W !,?20,""ASSESSED CASES"",?54,""="",$J(SRTOTAL(3),6),!,?20,""NOT LOGGED MAJOR CASES"",?54,""="",$J(SRTOTAL(4),6)"
^XMB(3.9,148,2,12109,0)="""RTN"",""SROAWL1"",55,0)"
^XMB(3.9,148,2,12110,0)=" W !,?20,""CARDIAC CASES"",?54,""="",$J(SRTOTAL(5),6),!,?20,""NON-CARDIAC CASES"",?54,""="",$J(SRTOTAL(6),6)"
^XMB(3.9,148,2,12111,0)="""RTN"",""SROAWL1"",56,0)"
^XMB(3.9,148,2,12112,0)=" W:SRSEL=1 !,?20,""ASSESSED CASES PER DAY"",?54,""="",$J(SRTOTAL(7),9,2) W !,?15 F I=1:1:50 W ""-"""
^XMB(3.9,148,2,12113,0)="""RTN"",""SROAWL1"",57,0)"
^XMB(3.9,148,2,12114,0)=" Q:SRSEL=2  I $E(IOST)=""C"" D PRESS Q:SRSOUT  W @IOF"
^XMB(3.9,148,2,12115,0)="""RTN"",""SROAWL1"",58,0)"
^XMB(3.9,148,2,12116,0)="INC S (SRCT,SRT1,SRTC)=0 W:SRP !!!!,?12,""NUMBER OF INCOMPLETE ASSESSMENTS REMAINING FOR PAST YEAR"",!!,?29,""CARDIAC"",?40,""NON-CARDIAC"",?56,""TOTAL"",!,?29,""-------"",?40,""-----------"",?56,""-----"""
^XMB(3.9,148,2,12117,0)="""RTN"",""SROAWL1"",59,0)"
^XMB(3.9,148,2,12118,0)=" S SRMONTH=0,SRSST="""" F  S SRMONTH=$O(^TMP(""SRM"",$J,SRMONTH)) Q:'SRMONTH  D"
^XMB(3.9,148,2,12119,0)="""RTN"",""SROAWL1"",60,0)"
^XMB(3.9,148,2,12120,0)=" .I SRP S Y=SRMONTH X ^DD(""DD"") W !,?19,Y"
^XMB(3.9,148,2,12121,0)="""RTN"",""SROAWL1"",61,0)"
^XMB(3.9,148,2,12122,0)=" .S SRC=^TMP(""SRM"",$J,SRMONTH,""C""),SRN=^TMP(""SRM"",$J,SRMONTH,""N""),SRTO=SRC+SRN,SRCT=SRCT+SRC,SRT1=SRT1+SRN,SRTC=SRTC+SRTO,SRSST=SRSST_SRMONTH_""^""_SRC_""^""_SRN_""^"""
^XMB(3.9,148,2,12123,0)="""RTN"",""SROAWL1"",62,0)"
^XMB(3.9,148,2,12124,0)=" .W:SRP ?30,$J(SRC,5),?43,$J(SRN,5),?55,$J(SRTO,5)"
^XMB(3.9,148,2,12125,0)="""RTN"",""SROAWL1"",63,0)"
^XMB(3.9,148,2,12126,0)=" W:SRP !,?29,""-------"",?40,""-----------"",?56,""-----"",!,?30,$J(SRCT,5),?43,$J(SRT1,5),?55,$J(SRTC,5)"
^XMB(3.9,148,2,12127,0)="""RTN"",""SROAWL1"",64,0)"
^XMB(3.9,148,2,12128,0)=" Q"
^XMB(3.9,148,2,12129,0)="""RTN"",""SROAWL1"",65,0)"
^XMB(3.9,148,2,12130,0)="TMIT ; transmit report to national database"
^XMB(3.9,148,2,12131,0)="""RTN"",""SROAWL1"",66,0)"
^XMB(3.9,148,2,12132,0)=" S ISC=0,SRD=^XMB(""NETNAME"") I $E(SRD,1,3)=""FO-""!(SRD[""ISC-"")!(SRD[""ISC."")!(SRD[""FORUM"")!(SRD[""TST"")!(SRD["".FO-"") S ISC=1"
^XMB(3.9,148,2,12133,0)="""RTN"",""SROAWL1"",67,0)"
^XMB(3.9,148,2,12134,0)=" K SRMSG S SRSTATN=$P($$SITE^SROVAR,""^"",3)_$S(SRDIV:""-""_SRDIV,1:""""),SRMSG(1)=SRSTATN_""^""_SRDT_""^""_DT F I=1:1:9 S SRMSG(1)=SRMSG(1)_""^""_SRTOTAL(I)"
^XMB(3.9,148,2,12135,0)="""RTN"",""SROAWL1"",68,0)"
^XMB(3.9,148,2,12136,0)=" F I=1,2,3,4,6,8,9 S SRMSG(1)=SRMSG(1)_""^""_SREXCL(I)"
^XMB(3.9,148,2,12137,0)="""RTN"",""SROAWL1"",69,0)"
^XMB(3.9,148,2,12138,0)=" I SRDIV S SRMSG(1)=SRMSG(1)_""^""_SRINST_""^""_$$GET1^DIQ(4,SRINSTP,99)"
^XMB(3.9,148,2,12139,0)="""RTN"",""SROAWL1"",70,0)"
^XMB(3.9,148,2,12140,0)=" S SRMSG(2)=SRSTATN_""^""_SRSST"
^XMB(3.9,148,2,12141,0)="""RTN"",""SROAWL1"",71,0)"
^XMB(3.9,148,2,12142,0)=" I $D(SRNOACK) S SRMSG(3)=SRSTATN_""^""_SRNOACK"
^XMB(3.9,148,2,12143,0)="""RTN"",""SROAWL1"",72,0)"
^XMB(3.9,148,2,12144,0)=" S X=$$ACTIVE^XUSER(DUZ) I '+X S XMDUZ=.5"
^XMB(3.9,148,2,12145,0)="""RTN"",""SROAWL1"",73,0)"
^XMB(3.9,148,2,12146,0)=" S XMSUB=""SURGERY WORKLOAD ""_SRM"
^XMB(3.9,148,2,12147,0)="""RTN"",""SROAWL1"",74,0)"
^XMB(3.9,148,2,12148,0)=" I ISC S XMY(""G.RISK ASSESSMENT"")="""""
^XMB(3.9,148,2,12149,0)="""RTN"",""SROAWL1"",75,0)"
^XMB(3.9,148,2,12150,0)=" I 'ISC S (XMY(""S.SRAWSERV@FO-HINES.MED.VA.GOV""),XMY(""G.SRCOSERV@FO-HINES.MED.VA.GOV""))="""""
^XMB(3.9,148,2,12151,0)="""RTN"",""SROAWL1"",76,0)"
^XMB(3.9,148,2,12152,0)=" S XMTEXT=""SRMSG("" D ^XMD K XMSUB,XMY,XMDUZ,XMTEXT"
^XMB(3.9,148,2,12153,0)="""RTN"",""SROAWL1"",77,0)"
^XMB(3.9,148,2,12154,0)=" Q"
^XMB(3.9,148,2,12155,0)="""RTN"",""SROAWL1"",78,0)"
^XMB(3.9,148,2,12156,0)="MOS ; set up array for past 12 months"
^XMB(3.9,148,2,12157,0)="""RTN"",""SROAWL1"",79,0)"
^XMB(3.9,148,2,12158,0)=" K SRMONTH S SRYR=$E(SRDT,1,3),SRMONTH=+$E(SRDT,4,5)"
^XMB(3.9,148,2,12159,0)="""RTN"",""SROAWL1"",80,0)"
^XMB(3.9,148,2,12160,0)=" S J=1 F  S:$L(SRMONTH)=1 SRMONTH=""0""_SRMONTH S SRMONTH(J)=SRYR_SRMONTH_""00"" S SRMONTH=+SRMONTH,SRMONTH=$S(SRMONTH=1:12,1:SRMONTH-1),SRYR=$S(SRMONTH=12:SRYR-1,1:SRYR),J=J+1 Q:J>13"
^XMB(3.9,148,2,12161,0)="""RTN"",""SROAWL1"",81,0)"
^XMB(3.9,148,2,12162,0)=" K ^TMP(""SRM"",$J) F I=1:1:13 F J=""C"",""N"" S ^TMP(""SRM"",$J,SRMONTH(I),J)=0"
^XMB(3.9,148,2,12163,0)="""RTN"",""SROAWL1"",82,0)"
^XMB(3.9,148,2,12164,0)=" Q"
^XMB(3.9,148,2,12165,0)="""RTN"",""SROAWL1"",83,0)"
^XMB(3.9,148,2,12166,0)="PRESS Q:$E(IOST)'=""C""  W ! K DIR S DIR(0)=""E"" D ^DIR K DIR I 'Y S SRSOUT=1"
^XMB(3.9,148,2,12167,0)="""RTN"",""SROAWL1"",84,0)"
^XMB(3.9,148,2,12168,0)=" Q"
^XMB(3.9,148,2,12169,0)="""RTN"",""SROAWL1"",85,0)"
^XMB(3.9,148,2,12170,0)="SITE S SRINSTP=SRDIV(SRDIV),SRINST=$$GET1^DIQ(4,SRINSTP,.01)"
^XMB(3.9,148,2,12171,0)="""RTN"",""SROAWL1"",86,0)"
^XMB(3.9,148,2,12172,0)=" Q"
^XMB(3.9,148,2,12173,0)="""RTN"",""SROCCAT"")"
^XMB(3.9,148,2,12174,0)="0^58^B16152950^B15686629"
^XMB(3.9,148,2,12175,0)="""RTN"",""SROCCAT"",1,0)"
^XMB(3.9,148,2,12176,0)="SROCCAT ;BIR/MAM - PERIOPERATIVE OCCURRENCE UPDATE (Y/N) FIELDS ;03/13/06"
^XMB(3.9,148,2,12177,0)="""RTN"",""SROCCAT"",2,0)"
^XMB(3.9,148,2,12178,0)=" ;;3.0; Surgery ;**38,47,95,138,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,12179,0)="""RTN"",""SROCCAT"",3,0)"
^XMB(3.9,148,2,12180,0)=" S ZTDTH=$H,ZTIO="""",ZTRTN=""EN^SROCCAT"",ZTSAVE(""SRTN"")="""",ZTDESC=""Update Perioperative Occurrences for Individual Patient"" D ^%ZTLOAD"
^XMB(3.9,148,2,12181,0)="""RTN"",""SROCCAT"",4,0)"
^XMB(3.9,148,2,12182,0)=" Q"
^XMB(3.9,148,2,12183,0)="""RTN"",""SROCCAT"",5,0)"
^XMB(3.9,148,2,12184,0)="EN ; entry when queued"
^XMB(3.9,148,2,12185,0)="""RTN"",""SROCCAT"",6,0)"
^XMB(3.9,148,2,12186,0)=" K SRCOMPS S (CNT,CMP)=0 F  S CMP=$O(^SRF(SRTN,10,CMP)) Q:'CMP  S COMP=$P(^SRF(SRTN,10,CMP,0),""^"",2) I COMP S CNT=CNT+1,SRCOMPS(CNT)=COMP_""^""_$P(^(0),""^"",3)"
^XMB(3.9,148,2,12187,0)="""RTN"",""SROCCAT"",7,0)"
^XMB(3.9,148,2,12188,0)=" S CMP=0 F  S CMP=$O(^SRF(SRTN,16,CMP)) Q:'CMP  S COMP=$P(^SRF(SRTN,16,CMP,0),""^"",2) I COMP S SRDATE="""" D"
^XMB(3.9,148,2,12189,0)="""RTN"",""SROCCAT"",8,0)"
^XMB(3.9,148,2,12190,0)=" .S SRDATE=$E($P(^SRF(SRTN,16,CMP,0),""^"",7),1,7) I SRDATE S X1=$E($P(^SRF(SRTN,0),""^"",9),1,7),X2=30 D C^%DTC I SRDATE>X Q"
^XMB(3.9,148,2,12191,0)="""RTN"",""SROCCAT"",9,0)"
^XMB(3.9,148,2,12192,0)=" .S CNT=CNT+1,SRCOMPS(CNT)=COMP_""^""_$P(^SRF(SRTN,16,CMP,0),""^"",3)"
^XMB(3.9,148,2,12193,0)="""RTN"",""SROCCAT"",10,0)"
^XMB(3.9,148,2,12194,0)=" K DR,DIE,DA S DA=SRTN,DIE=130,DR=""[SRO-NOCOMP]"" D ^DIE K DR,DA"
^XMB(3.9,148,2,12195,0)="""RTN"",""SROCCAT"",11,0)"
^XMB(3.9,148,2,12196,0)=" I '$D(SRCOMPS(1)) S ZTREQ=""@"" Q"
^XMB(3.9,148,2,12197,0)="""RTN"",""SROCCAT"",12,0)"
^XMB(3.9,148,2,12198,0)=" S CNT=0 F  S CNT=$O(SRCOMPS(CNT)) Q:'CNT  S COMPL=$P(SRCOMPS(CNT),""^"") D UPDATE"
^XMB(3.9,148,2,12199,0)="""RTN"",""SROCCAT"",13,0)"
^XMB(3.9,148,2,12200,0)=" S ZTREQ=""@"""
^XMB(3.9,148,2,12201,0)="""RTN"",""SROCCAT"",14,0)"
^XMB(3.9,148,2,12202,0)=" Q"
^XMB(3.9,148,2,12203,0)="""RTN"",""SROCCAT"",15,0)"
^XMB(3.9,148,2,12204,0)="UPDATE ; update Y/N questions"
^XMB(3.9,148,2,12205,0)="""RTN"",""SROCCAT"",16,0)"
^XMB(3.9,148,2,12206,0)=" I COMPL=1 K DA,DR,DIE S DA=SRTN,DIE=130,DR=""403////Y;248////Y"" D ^DIE K DR,DA,DIE Q"
^XMB(3.9,148,2,12207,0)="""RTN"",""SROCCAT"",17,0)"
^XMB(3.9,148,2,12208,0)=" I COMPL=2 K DA,DR,DIE S DA=SRTN,DIE=130,DR=""403////Y;249////Y"" D ^DIE K DR,DA,DIE Q"
^XMB(3.9,148,2,12209,0)="""RTN"",""SROCCAT"",18,0)"
^XMB(3.9,148,2,12210,0)=" I COMPL=3 K DA,DR,DIE S DA=SRTN,DIE=130,DR=""322////Y;250////Y"" D ^DIE K DR,DA,DIE Q"
^XMB(3.9,148,2,12211,0)="""RTN"",""SROCCAT"",19,0)"
^XMB(3.9,148,2,12212,0)=" I COMPL=4 K DA,DR,DIE S DA=SRTN,DIE=130,DR=""318////Y;251////Y"" D ^DIE K DR,DA,DIE Q"
^XMB(3.9,148,2,12213,0)="""RTN"",""SROCCAT"",20,0)"
^XMB(3.9,148,2,12214,0)=" I COMPL=5 K DA,DR,DIE S DA=SRTN,DIE=130,DR=""318////Y;252///Y"" D ^DIE K DR,DA,DIE Q"
^XMB(3.9,148,2,12215,0)="""RTN"",""SROCCAT"",21,0)"
^XMB(3.9,148,2,12216,0)=" I COMPL=6 K DA,DR,DIE S DA=SRTN,DIE=130,DR=""318////Y;285///Y"" D ^DIE K DR,DA,DIE Q"
^XMB(3.9,148,2,12217,0)="""RTN"",""SROCCAT"",22,0)"
^XMB(3.9,148,2,12218,0)=" I COMPL=7 K DA,DR,DIE S DA=SRTN,DIE=130,DR=""318////Y;412///Y"" D ^DIE K DR,DA,DIE Q"
^XMB(3.9,148,2,12219,0)="""RTN"",""SROCCAT"",23,0)"
^XMB(3.9,148,2,12220,0)=" I COMPL=8 K DA,DR,DIE S DA=SRTN,DIE=130,DR=""319////Y;409///Y"" D ^DIE K DR,DA,DIE Q"
^XMB(3.9,148,2,12221,0)="""RTN"",""SROCCAT"",24,0)"
^XMB(3.9,148,2,12222,0)=" I COMPL=9 K DA,DR,DIE S DA=SRTN,DIE=130,DR=""319////Y;254///Y"" D ^DIE K DR,DA,DIE Q"
^XMB(3.9,148,2,12223,0)="""RTN"",""SROCCAT"",25,0)"
^XMB(3.9,148,2,12224,0)=" I COMPL=10 K DA,DR,DIE S DA=SRTN,DIE=130,DR=""319////Y;255///Y"" D ^DIE K DR,DA,DIE Q"
^XMB(3.9,148,2,12225,0)="""RTN"",""SROCCAT"",26,0)"
^XMB(3.9,148,2,12226,0)=" I COMPL=11 K DA,DR,DIE S DA=SRTN,DIE=130,DR=""321////Y;259///Y"" D ^DIE K DR,DA,DIE Q"
^XMB(3.9,148,2,12227,0)="""RTN"",""SROCCAT"",27,0)"
^XMB(3.9,148,2,12228,0)=" I COMPL=12!(COMPL=28) K DA,DR,DIE S DA=SRTN,DIE=130,DR=""320////Y;256///Y"" D ^DIE K DR,DA,DIE Q"
^XMB(3.9,148,2,12229,0)="""RTN"",""SROCCAT"",28,0)"
^XMB(3.9,148,2,12230,0)=" I COMPL=13 K DA,DR,DIE S DA=SRTN,DIE=130,DR=""320////Y;410///Y"" D ^DIE K DR,DA,DIE Q"
^XMB(3.9,148,2,12231,0)="""RTN"",""SROCCAT"",29,0)"
^XMB(3.9,148,2,12232,0)=" I COMPL=14 K DA,DR,DIE S DA=SRTN,DIE=130,DR=""320////Y;287///Y"" D ^DIE K DR,DA,DIE Q"
^XMB(3.9,148,2,12233,0)="""RTN"",""SROCCAT"",30,0)"
^XMB(3.9,148,2,12234,0)=" I COMPL=15 K DA,DR,DIE S DA=SRTN,DIE=130,DR=""322////Y;257///Y"" D ^DIE K DR,DA,DIE Q"
^XMB(3.9,148,2,12235,0)="""RTN"",""SROCCAT"",31,0)"
^XMB(3.9,148,2,12236,0)=" I COMPL=16 K DA,DR,DIE S DA=SRTN,DIE=130,DR=""321////Y;411///Y"" D ^DIE K DR,DA,DIE Q"
^XMB(3.9,148,2,12237,0)="""RTN"",""SROCCAT"",32,0)"
^XMB(3.9,148,2,12238,0)=" I COMPL=17 K DA,DR,DIE S DA=SRTN,DIE=130,DR=""385///Y;321////Y;258///Y"" D ^DIE K DR,DA,DIE Q"
^XMB(3.9,148,2,12239,0)="""RTN"",""SROCCAT"",33,0)"
^XMB(3.9,148,2,12240,0)=" I COMPL=18 K DA,DR,DIE S DA=SRTN,DIE=130,DR=""322////Y;345///Y"" D ^DIE K DR,DA,DIE Q"
^XMB(3.9,148,2,12241,0)="""RTN"",""SROCCAT"",34,0)"
^XMB(3.9,148,2,12242,0)=" I COMPL=19 K DA,DR,DIE S DA=SRTN,DIE=130,DR=""322////Y;261///Y"" D ^DIE K DR,DA,DIE Q"
^XMB(3.9,148,2,12243,0)="""RTN"",""SROCCAT"",35,0)"
^XMB(3.9,148,2,12244,0)=" I COMPL=20 K DA,DR,DIE S DA=SRTN,DIE=130,DR=""322////Y;263///Y"" D ^DIE K DR,DA,DIE Q"
^XMB(3.9,148,2,12245,0)="""RTN"",""SROCCAT"",36,0)"
^XMB(3.9,148,2,12246,0)=" I COMPL=21 K DA,DR,DIE S DA=SRTN,DIE=130,DR=""322////Y"" D ^DIE K DR,DA,DIE Q"
^XMB(3.9,148,2,12247,0)="""RTN"",""SROCCAT"",37,0)"
^XMB(3.9,148,2,12248,0)=" I COMPL=22 K DA,DR,DIE S DA=SRTN,DIE=130,DR=""403////Y;404///Y"" D ^DIE K DR,DA,DIE Q"
^XMB(3.9,148,2,12249,0)="""RTN"",""SROCCAT"",38,0)"
^XMB(3.9,148,2,12250,0)=" I COMPL=23 K DA,DR,DIE S DA=SRTN,DIE=130,DR=""386////Y"" D ^DIE K DR,DIE,DA Q"
^XMB(3.9,148,2,12251,0)="""RTN"",""SROCCAT"",39,0)"
^XMB(3.9,148,2,12252,0)=" I COMPL=24 K DA,DR,DIE S DA=SRTN,DIE=130,DR=""387////Y"" D ^DIE K DR,DIE,DA Q"
^XMB(3.9,148,2,12253,0)="""RTN"",""SROCCAT"",40,0)"
^XMB(3.9,148,2,12254,0)=" I COMPL=25 K DA,DR,DIE S DA=SRTN,DIE=130,DR=""388////Y"" D ^DIE K DR,DIE,DA Q"
^XMB(3.9,148,2,12255,0)="""RTN"",""SROCCAT"",41,0)"
^XMB(3.9,148,2,12256,0)=" I COMPL=26 K DA,DR,DIE S DA=SRTN,DIE=130,DR=""389////Y"" D ^DIE K DR,DIE,DA Q"
^XMB(3.9,148,2,12257,0)="""RTN"",""SROCCAT"",42,0)"
^XMB(3.9,148,2,12258,0)=" I COMPL=27 K DA,DR,DIE S DA=SRTN,DIE=130,DR=""391////Y"" D ^DIE K DR,DIE,DA Q"
^XMB(3.9,148,2,12259,0)="""RTN"",""SROCCAT"",43,0)"
^XMB(3.9,148,2,12260,0)=" I COMPL=29 K DA,DR,DIE S DA=SRTN,DIE=130,DR=""318////Y"" D ^DIE K DR,DA,DIE Q"
^XMB(3.9,148,2,12261,0)="""RTN"",""SROCCAT"",44,0)"
^XMB(3.9,148,2,12262,0)=" I COMPL=30 K DA,DR,DIE S DA=SRTN,DIE=130,DR=""320////Y"" D ^DIE K DR,DA,DIE Q"
^XMB(3.9,148,2,12263,0)="""RTN"",""SROCCAT"",45,0)"
^XMB(3.9,148,2,12264,0)=" I COMPL=31 K DA,DR,DIE S DA=SRTN,DIE=130,DR=""319////Y"" D ^DIE K DR,DA,DIE Q"
^XMB(3.9,148,2,12265,0)="""RTN"",""SROCCAT"",46,0)"
^XMB(3.9,148,2,12266,0)=" I COMPL=32 K DA,DR,DIE S DA=SRTN,DIE=130,DR=""321////Y"" D ^DIE K DR,DA,DIE Q"
^XMB(3.9,148,2,12267,0)="""RTN"",""SROCCAT"",47,0)"
^XMB(3.9,148,2,12268,0)=" I COMPL=33 K DA,DR,DIE S DA=SRTN,DIE=130,DR=""466////Y"" D ^DIE K DR,DIE,DA Q"
^XMB(3.9,148,2,12269,0)="""RTN"",""SROCCAT"",48,0)"
^XMB(3.9,148,2,12270,0)=" I COMPL=34 K DA,DR,DIE S DA=SRTN,DIE=130,DR=""467////Y"" D ^DIE K DR,DIE,DA Q"
^XMB(3.9,148,2,12271,0)="""RTN"",""SROCCAT"",49,0)"
^XMB(3.9,148,2,12272,0)=" I COMPL=35 K DA,DR,DIE S DA=SRTN,DIE=130,DR=""322////Y;488////Y"" D ^DIE K DR,DIE,DA Q"
^XMB(3.9,148,2,12273,0)="""RTN"",""SROCCAT"",50,0)"
^XMB(3.9,148,2,12274,0)=" I COMPL=36 K DA,DR,DIE S DA=SRTN,DIE=130,DR=""403////Y"" D ^DIE K DR,DIE,DA Q"
^XMB(3.9,148,2,12275,0)="""RTN"",""SROCCAT"",51,0)"
^XMB(3.9,148,2,12276,0)=" I COMPL=37 K DA,DR,DIE S DA=SRTN,DIE=130,DR=""318////Y;490///Y"" D ^DIE K DR,DA,DIE Q"
^XMB(3.9,148,2,12277,0)="""RTN"",""SROCCAT"",52,0)"
^XMB(3.9,148,2,12278,0)=" Q"
^XMB(3.9,148,2,12279,0)="""RTN"",""SROCL1"")"
^XMB(3.9,148,2,12280,0)="0^41^B10860164^B10392468"
^XMB(3.9,148,2,12281,0)="""RTN"",""SROCL1"",1,0)"
^XMB(3.9,148,2,12282,0)="SROCL1 ;BIR/SJA - LOAD CARDIAC LAB DATA ;03/16/06"
^XMB(3.9,148,2,12283,0)="""RTN"",""SROCL1"",2,0)"
^XMB(3.9,148,2,12284,0)=" ;;3.0; Surgery ;**95,125,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,12285,0)="""RTN"",""SROCL1"",3,0)"
^XMB(3.9,148,2,12286,0)=" ;"
^XMB(3.9,148,2,12287,0)="""RTN"",""SROCL1"",4,0)"
^XMB(3.9,148,2,12288,0)=" ; Reference to ^LR( supported by DBIA #194"
^XMB(3.9,148,2,12289,0)="""RTN"",""SROCL1"",5,0)"
^XMB(3.9,148,2,12290,0)=" ;"
^XMB(3.9,148,2,12291,0)="""RTN"",""SROCL1"",6,0)"
^XMB(3.9,148,2,12292,0)=" Q:'$D(SRTN)  K SRAD,SRAT S SRSOUT=0"
^XMB(3.9,148,2,12293,0)="""RTN"",""SROCL1"",7,0)"
^XMB(3.9,148,2,12294,0)=" W !!,""This selection loads the most recent cardiac lab data for tests performed"",!,""preoperatively."""
^XMB(3.9,148,2,12295,0)="""RTN"",""SROCL1"",8,0)"
^XMB(3.9,148,2,12296,0)="YEP W !!,""Do you want to automatically load cardiac lab data ?  YES//"" R SRYN:DTIME G:'$T!(SRYN[""^"") END"
^XMB(3.9,148,2,12297,0)="""RTN"",""SROCL1"",9,0)"
^XMB(3.9,148,2,12298,0)=" S SRYN=$E(SRYN) I ""YyNn""'[SRYN W !!,""Enter <RET> to automatically load cardiac lab data from the patient's lab"",!,""record, or 'NO' to return to the menu."" G YEP"
^XMB(3.9,148,2,12299,0)="""RTN"",""SROCL1"",10,0)"
^XMB(3.9,148,2,12300,0)=" I ""Yy""'[SRYN W !!,""Lab data NOT loaded."" G END"
^XMB(3.9,148,2,12301,0)="""RTN"",""SROCL1"",11,0)"
^XMB(3.9,148,2,12302,0)="START S SRALR=$S($D(^DPT($P(^SRF(SRTN,0),""^""),""LR"")):$P(^(""LR""),""^""),1:"""")"
^XMB(3.9,148,2,12303,0)="""RTN"",""SROCL1"",12,0)"
^XMB(3.9,148,2,12304,0)=" S SRAOP=$P($G(^SRF(SRTN,.2)),U,2) I 'SRAOP S SRAOP=$P($G(^(0)),U,9) I 'SRAOP S SRSOUT=1 W !!,""No Date of Operation found !"" G END"
^XMB(3.9,148,2,12305,0)="""RTN"",""SROCL1"",13,0)"
^XMB(3.9,148,2,12306,0)=" N SREND0,SREND1,SREND1 S SRST=9999999-SRAOP,X1=SRAOP,X2=-90 D C^%DTC S SREND0=9999999-X"
^XMB(3.9,148,2,12307,0)="""RTN"",""SROCL1"",14,0)"
^XMB(3.9,148,2,12308,0)=" S X1=SRAOP,X2=-30 D C^%DTC S SREND1=9999999-X"
^XMB(3.9,148,2,12309,0)="""RTN"",""SROCL1"",15,0)"
^XMB(3.9,148,2,12310,0)=" S X1=SRAOP,X2=-1000 D C^%DTC S SREND2=9999999-X"
^XMB(3.9,148,2,12311,0)="""RTN"",""SROCL1"",16,0)"
^XMB(3.9,148,2,12312,0)="SRAT ; Get test and data name(s) for test from file 139.2."
^XMB(3.9,148,2,12313,0)="""RTN"",""SROCL1"",17,0)"
^XMB(3.9,148,2,12314,0)=" W !!,""..Searching lab record for latest test data...."""
^XMB(3.9,148,2,12315,0)="""RTN"",""SROCL1"",18,0)"
^XMB(3.9,148,2,12316,0)=" K DIC S DIC=61,DIC(0)="""",X=""SERUM"" D ^DIC S SRSER=+Y K DIC S DIC=61,DIC(0)="""",X=""PLASMA"" D ^DIC K DIC S SRP=+Y"
^XMB(3.9,148,2,12317,0)="""RTN"",""SROCL1"",19,0)"
^XMB(3.9,148,2,12318,0)=" F SRAT=1,5,7,11,14,21:1:24,27 S SREND=$S(""117""[SRAT:SREND1,SRAT>20:SREND2,1:SREND0) D SP^SROAL1"
^XMB(3.9,148,2,12319,0)="""RTN"",""SROCL1"",20,0)"
^XMB(3.9,148,2,12320,0)=" D CARDIAC^SROAL11 S SRCON=$P($G(^SRF(SRTN,""CON"")),""^"") I SRCON D CONCC"
^XMB(3.9,148,2,12321,0)="""RTN"",""SROCL1"",21,0)"
^XMB(3.9,148,2,12322,0)="END I 'SRSOUT W !!,""Press <RET> to continue  "" R X:DTIME"
^XMB(3.9,148,2,12323,0)="""RTN"",""SROCL1"",22,0)"
^XMB(3.9,148,2,12324,0)=" W @IOF"
^XMB(3.9,148,2,12325,0)="""RTN"",""SROCL1"",23,0)"
^XMB(3.9,148,2,12326,0)=" Q"
^XMB(3.9,148,2,12327,0)="""RTN"",""SROCL1"",24,0)"
^XMB(3.9,148,2,12328,0)="CONCC ; update concurrent case"
^XMB(3.9,148,2,12329,0)="""RTN"",""SROCL1"",25,0)"
^XMB(3.9,148,2,12330,0)=" S SRTN1=SRTN,SRTN=SRCON D CARDIAC^SROAL11 S SRTN=SRTN1"
^XMB(3.9,148,2,12331,0)="""RTN"",""SROCL1"",26,0)"
^XMB(3.9,148,2,12332,0)=" Q"
^XMB(3.9,148,2,12333,0)="""RTN"",""SROCL1"",27,0)"
^XMB(3.9,148,2,12334,0)="SP S SRASP=$P(^SRO(139.2,II,2),""^"") K SRADT F SRADN=0:0 S SRADN=$O(^SRO(139.2,II,1,SRADN)) Q:SRADN'>0  S SRATN=$P(^(SRADN,0),""^"") D LABCHK"
^XMB(3.9,148,2,12335,0)="""RTN"",""SROCL1"",28,0)"
^XMB(3.9,148,2,12336,0)=" Q"
^XMB(3.9,148,2,12337,0)="""RTN"",""SROCL1"",29,0)"
^XMB(3.9,148,2,12338,0)="LABCHK ; Get latest test values from patient's lab record."
^XMB(3.9,148,2,12339,0)="""RTN"",""SROCL1"",30,0)"
^XMB(3.9,148,2,12340,0)=" I SRALR F SRAIDT=SRST:0 S SRAIDT=$O(^LR(SRALR,""CH"",SRAIDT)) Q:SRAIDT'>0!(SRAIDT>SREND)  I $D(^(SRAIDT,SRATN)) S SRSP=$P(^(0),""^"",5) D"
^XMB(3.9,148,2,12341,0)="""RTN"",""SROCL1"",31,0)"
^XMB(3.9,148,2,12342,0)=" .I SRSP=SRSER!(SRSP=SRP) D COMP Q"
^XMB(3.9,148,2,12343,0)="""RTN"",""SROCL1"",32,0)"
^XMB(3.9,148,2,12344,0)=" I '$D(SRAT(SRAT)) S SRAT(SRAT)=""NS"",SRAD(SRAT)="""""
^XMB(3.9,148,2,12345,0)="""RTN"",""SROCL1"",33,0)"
^XMB(3.9,148,2,12346,0)=" Q"
^XMB(3.9,148,2,12347,0)="""RTN"",""SROCL1"",34,0)"
^XMB(3.9,148,2,12348,0)="COMP S SRX=$P(^LR(SRALR,""CH"",SRAIDT,SRATN),""^"") I $P(^LR(SRALR,""CH"",SRAIDT,0),""^"",3)'="""",""canccommentpending""'[SRX,SRX'[""CANC"" D DATA"
^XMB(3.9,148,2,12349,0)="""RTN"",""SROCL1"",35,0)"
^XMB(3.9,148,2,12350,0)=" Q"
^XMB(3.9,148,2,12351,0)="""RTN"",""SROCL1"",36,0)"
^XMB(3.9,148,2,12352,0)="DATA I $D(SRADT),SRAIDT>SRADT Q"
^XMB(3.9,148,2,12353,0)="""RTN"",""SROCL1"",37,0)"
^XMB(3.9,148,2,12354,0)=" I +SRX'=SRX D"
^XMB(3.9,148,2,12355,0)="""RTN"",""SROCL1"",38,0)"
^XMB(3.9,148,2,12356,0)=" .N X1,X2 S SRZ="""" I ""<>""[$E(SRX) S SRZ=$E(SRX),SRX=$E(SRX,2,99)"
^XMB(3.9,148,2,12357,0)="""RTN"",""SROCL1"",39,0)"
^XMB(3.9,148,2,12358,0)=" .I SRX?.N0.1""."".N D  Q"
^XMB(3.9,148,2,12359,0)="""RTN"",""SROCL1"",40,0)"
^XMB(3.9,148,2,12360,0)=" ..S X1=$P(SRX,"".""),X1=+X1 S:X1=0 X1="""""
^XMB(3.9,148,2,12361,0)="""RTN"",""SROCL1"",41,0)"
^XMB(3.9,148,2,12362,0)=" ..S X2="".""_$P(SRX,""."",2),X2=+X2 S:X2=0 X2="""""
^XMB(3.9,148,2,12363,0)="""RTN"",""SROCL1"",42,0)"
^XMB(3.9,148,2,12364,0)=" ..S SRX=X1_X2,SRX=+SRX,SRX=SRZ_SRX"
^XMB(3.9,148,2,12365,0)="""RTN"",""SROCL1"",43,0)"
^XMB(3.9,148,2,12366,0)=" .S SRX=""*"""
^XMB(3.9,148,2,12367,0)="""RTN"",""SROCL1"",44,0)"
^XMB(3.9,148,2,12368,0)=" S SRAT(SRAT)=SRX D:SRAT(SRAT)[""."" DEC S SRAD(SRAT)=$E($P(^LR(SRALR,""CH"",SRAIDT,0),""^""),1,7),SRADT=SRAIDT"
^XMB(3.9,148,2,12369,0)="""RTN"",""SROCL1"",45,0)"
^XMB(3.9,148,2,12370,0)=" Q"
^XMB(3.9,148,2,12371,0)="""RTN"",""SROCL1"",46,0)"
^XMB(3.9,148,2,12372,0)="DEC ; convert to proper decimal place"
^XMB(3.9,148,2,12373,0)="""RTN"",""SROCL1"",47,0)"
^XMB(3.9,148,2,12374,0)=" I +SRAT(SRAT)=SRAT(SRAT)  S SRAT(SRAT)=SRAT(SRAT)+.05\.1*.1 Q"
^XMB(3.9,148,2,12375,0)="""RTN"",""SROCL1"",48,0)"
^XMB(3.9,148,2,12376,0)=" S SR1=$E(SRAT(SRAT)),SR2=$E(SRAT(SRAT),2,99),SR2=SR2+.05\.1*.1,SRAT(SRAT)=SR1_SR2"
^XMB(3.9,148,2,12377,0)="""RTN"",""SROCL1"",49,0)"
^XMB(3.9,148,2,12378,0)=" Q"
^XMB(3.9,148,2,12379,0)="""RTN"",""SROCMP"")"
^XMB(3.9,148,2,12380,0)="0^23^B26995986^B18244220"
^XMB(3.9,148,2,12381,0)="""RTN"",""SROCMP"",1,0)"
^XMB(3.9,148,2,12382,0)="SROCMP ;BIR/MAM - PERIOPERATIVE OCCURRENCES ;05/15/06"
^XMB(3.9,148,2,12383,0)="""RTN"",""SROCMP"",2,0)"
^XMB(3.9,148,2,12384,0)=" ;;3.0; Surgery ;**22,26,29,38,50,143,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,12385,0)="""RTN"",""SROCMP"",3,0)"
^XMB(3.9,148,2,12386,0)="BEG U IO S SRSOUT=0,PAGE=1 K ^TMP(""SR"",$J) S Y=DT X ^DD(""DD"") S SRPRINT=""DATE PRINTED: ""_Y,SRSDT=SRSD-.0001,SREDT=SRED+.9999"
^XMB(3.9,148,2,12387,0)="""RTN"",""SROCMP"",4,0)"
^XMB(3.9,148,2,12388,0)=" N SRFRTO S Y=SRSD X ^DD(""DD"") S SRFRTO=""FROM: ""_Y_""  TO: "",Y=SRED X ^DD(""DD"") S SRFRTO=SRFRTO_Y"
^XMB(3.9,148,2,12389,0)="""RTN"",""SROCMP"",5,0)"
^XMB(3.9,148,2,12390,0)=" F  S SRSDT=$O(^SRF(""AC"",SRSDT)) Q:SRSDT>SREDT!('SRSDT)!(SRSOUT)  S SRTN=0 F  S SRTN=$O(^SRF(""AC"",SRSDT,SRTN)) Q:'SRTN!(SRSOUT)  I $O(^SRF(SRTN,10,0))!$O(^SRF(SRTN,16,0)),$D(^SRF(SRTN,0)),$$MANDIV^SROUTL0(SRINSTP,SRTN) D UTIL"
^XMB(3.9,148,2,12391,0)="""RTN"",""SROCMP"",6,0)"
^XMB(3.9,148,2,12392,0)=" S (SRSS,SRHDR)=0 F  S SRSS=$O(^TMP(""SR"",$J,SRSS)) Q:SRSS=""""!(SRSOUT)  D HDR^SROCMP2 S SRSDATE=0 F  S SRSDATE=$O(^TMP(""SR"",$J,SRSS,SRSDATE)) Q:'SRSDATE!(SRSOUT)  D MORE"
^XMB(3.9,148,2,12393,0)="""RTN"",""SROCMP"",7,0)"
^XMB(3.9,148,2,12394,0)=" G:SRSOUT END"
^XMB(3.9,148,2,12395,0)="""RTN"",""SROCMP"",8,0)"
^XMB(3.9,148,2,12396,0)=" I '$D(^TMP(""SR"",$J)) D HDR^SROCMP2 G:SRSOUT END W !!,""There are no perioperative occurrences recorded for the selected date range."""
^XMB(3.9,148,2,12397,0)="""RTN"",""SROCMP"",9,0)"
^XMB(3.9,148,2,12398,0)=" F I=$Y:1:IOSL-9 W !"
^XMB(3.9,148,2,12399,0)="""RTN"",""SROCMP"",10,0)"
^XMB(3.9,148,2,12400,0)=" S X="""" D FOOT^SROCMP2"
^XMB(3.9,148,2,12401,0)="""RTN"",""SROCMP"",11,0)"
^XMB(3.9,148,2,12402,0)=" I SRBOTH S SRSOUT=0 D BEG^SROMORT S SRSOUT=1"
^XMB(3.9,148,2,12403,0)="""RTN"",""SROCMP"",12,0)"
^XMB(3.9,148,2,12404,0)="END W:$E(IOST)=""P"" @IOF I $D(ZTQUEUED) K ^TMP(""SR"",$J) Q:$G(ZTSTOP)  S ZTREQ=""@"" Q"
^XMB(3.9,148,2,12405,0)="""RTN"",""SROCMP"",13,0)"
^XMB(3.9,148,2,12406,0)=" D ^%ZISC,^SRSKILL K SRTN W @IOF"
^XMB(3.9,148,2,12407,0)="""RTN"",""SROCMP"",14,0)"
^XMB(3.9,148,2,12408,0)=" Q"
^XMB(3.9,148,2,12409,0)="""RTN"",""SROCMP"",15,0)"
^XMB(3.9,148,2,12410,0)="MORE S SRTN=0 F  S SRTN=$O(^TMP(""SR"",$J,SRSS,SRSDATE,SRTN)) Q:'SRTN  D SET"
^XMB(3.9,148,2,12411,0)="""RTN"",""SROCMP"",16,0)"
^XMB(3.9,148,2,12412,0)=" Q"
^XMB(3.9,148,2,12413,0)="""RTN"",""SROCMP"",17,0)"
^XMB(3.9,148,2,12414,0)="ATT N SRDIV,SRY S SRY=$P($G(^SRF(SRTN,.1)),""^"",13) I SRY D"
^XMB(3.9,148,2,12415,0)="""RTN"",""SROCMP"",18,0)"
^XMB(3.9,148,2,12416,0)=" .S Y=SRY,C=$P(^DD(130,.164,0),""^"",2) D Y^DIQ S SRSS=Y"
^XMB(3.9,148,2,12417,0)="""RTN"",""SROCMP"",19,0)"
^XMB(3.9,148,2,12418,0)=" I SRY="""" S SRDIV=$$SITE^SROUTL0(SRTN) I SRDIV,'$P(^SRO(133,SRDIV,0),""^"",19) D"
^XMB(3.9,148,2,12419,0)="""RTN"",""SROCMP"",20,0)"
^XMB(3.9,148,2,12420,0)=" .S SRY=$P($G(^SRF(SRTN,.1)),""^"",4) I SRY D"
^XMB(3.9,148,2,12421,0)="""RTN"",""SROCMP"",21,0)"
^XMB(3.9,148,2,12422,0)=" ..S Y=SRY,C=$P(^DD(130,.14,0),""^"",2) D Y^DIQ S SRSS=Y"
^XMB(3.9,148,2,12423,0)="""RTN"",""SROCMP"",22,0)"
^XMB(3.9,148,2,12424,0)=" S:'SRY SRY=""ZZ"" I SRSP,'$D(SRSP(SRY)) Q"
^XMB(3.9,148,2,12425,0)="""RTN"",""SROCMP"",23,0)"
^XMB(3.9,148,2,12426,0)=" S:'SRY SRSS=""ATTENDING SURGEON NOT ENTERED"""
^XMB(3.9,148,2,12427,0)="""RTN"",""SROCMP"",24,0)"
^XMB(3.9,148,2,12428,0)=" S ^TMP(""SR"",$J,SRSS,SRSDT,SRTN)="""""
^XMB(3.9,148,2,12429,0)="""RTN"",""SROCMP"",25,0)"
^XMB(3.9,148,2,12430,0)=" Q"
^XMB(3.9,148,2,12431,0)="""RTN"",""SROCMP"",26,0)"
^XMB(3.9,148,2,12432,0)="UTIL ; set ^TMP"
^XMB(3.9,148,2,12433,0)="""RTN"",""SROCMP"",27,0)"
^XMB(3.9,148,2,12434,0)=" I SRSEL=1 D  Q"
^XMB(3.9,148,2,12435,0)="""RTN"",""SROCMP"",28,0)"
^XMB(3.9,148,2,12436,0)=" .S Y=$P(^SRF(SRTN,0),""^"",4) S:'Y Y=""ZZ"" I SRSP,'$D(SRSP(Y)) Q"
^XMB(3.9,148,2,12437,0)="""RTN"",""SROCMP"",29,0)"
^XMB(3.9,148,2,12438,0)=" .S SRSS=$S(Y:$P(^SRO(137.45,Y,0),""^""),1:""SURGICAL SPECIALTY NOT ENTERED"")"
^XMB(3.9,148,2,12439,0)="""RTN"",""SROCMP"",30,0)"
^XMB(3.9,148,2,12440,0)=" .S ^TMP(""SR"",$J,SRSS,SRSDT,SRTN)="""""
^XMB(3.9,148,2,12441,0)="""RTN"",""SROCMP"",31,0)"
^XMB(3.9,148,2,12442,0)=" I SRSEL=2 D ATT Q"
^XMB(3.9,148,2,12443,0)="""RTN"",""SROCMP"",32,0)"
^XMB(3.9,148,2,12444,0)=" I SRSEL=3 F SRI=10,16 S SROCC=0 F  S SROCC=$O(^SRF(SRTN,SRI,SROCC)) Q:'SROCC  S Y=$P(^SRF(SRTN,SRI,SROCC,0),""^"",2) D:Y"
^XMB(3.9,148,2,12445,0)="""RTN"",""SROCMP"",33,0)"
^XMB(3.9,148,2,12446,0)=" .I SRSP,'$D(SRSP(Y)) Q"
^XMB(3.9,148,2,12447,0)="""RTN"",""SROCMP"",34,0)"
^XMB(3.9,148,2,12448,0)=" .S SRSS=$S(Y:$P(^SRO(136.5,Y,0),""^""),1:""OCCURRENCE CATEGORY NOT ENTERED"")"
^XMB(3.9,148,2,12449,0)="""RTN"",""SROCMP"",35,0)"
^XMB(3.9,148,2,12450,0)=" .S ^TMP(""SR"",$J,SRSS,SRSDT,SRTN)="""""
^XMB(3.9,148,2,12451,0)="""RTN"",""SROCMP"",36,0)"
^XMB(3.9,148,2,12452,0)=" Q"
^XMB(3.9,148,2,12453,0)="""RTN"",""SROCMP"",37,0)"
^XMB(3.9,148,2,12454,0)="SET ; set variables to print"
^XMB(3.9,148,2,12455,0)="""RTN"",""SROCMP"",38,0)"
^XMB(3.9,148,2,12456,0)=" K SRC S DFN=$P(^SRF(SRTN,0),""^"") D DEM^VADPT S SRNM=VADM(1),SRSSN=VA(""PID""),Y=$P(^SRF(SRTN,0),""^"",9) D D^DIQ S SROD=$E(Y,1,18)"
^XMB(3.9,148,2,12457,0)="""RTN"",""SROCMP"",39,0)"
^XMB(3.9,148,2,12458,0)="OPS S SROPER=$P(^SRF(SRTN,""OP""),""^""),OPER=0 F  S OPER=$O(^SRF(SRTN,13,OPER)) Q:OPER=""""  D OTHER"
^XMB(3.9,148,2,12459,0)="""RTN"",""SROCMP"",40,0)"
^XMB(3.9,148,2,12460,0)=" K SRP,Z S:$L(SROPER)<50 SRP(1)=SROPER I $L(SROPER)>49 S SROPER=SROPER_""  "" F M=1:1 D OPER Q:Z="""""
^XMB(3.9,148,2,12461,0)="""RTN"",""SROCMP"",41,0)"
^XMB(3.9,148,2,12462,0)=" S SRATT="""",Y=$P($G(^SRF(SRTN,.1)),""^"",13) I Y S C=$P(^DD(130,.164,0),""^"",2) D Y^DIQ S SRATT=Y"
^XMB(3.9,148,2,12463,0)="""RTN"",""SROCMP"",42,0)"
^XMB(3.9,148,2,12464,0)=" I SRATT="""" S SRDIV=$$SITE^SROUTL0(SRTN) I SRDIV,'$P(^SRO(133,SRDIV,0),""^"",19) D"
^XMB(3.9,148,2,12465,0)="""RTN"",""SROCMP"",43,0)"
^XMB(3.9,148,2,12466,0)=" .S Y=$P($G(^SRF(SRTN,.1)),""^"",4),C=$P(^DD(130,.14,0),""^"",2) D Y^DIQ S SRATT=Y"
^XMB(3.9,148,2,12467,0)="""RTN"",""SROCMP"",44,0)"
^XMB(3.9,148,2,12468,0)=" I SRATT="""" S SRATT=""ATTENDING SURGEON NOT ENTERED"""
^XMB(3.9,148,2,12469,0)="""RTN"",""SROCMP"",45,0)"
^XMB(3.9,148,2,12470,0)=" S Y=$P(^SRF(SRTN,0),""^"",4),SRSPEC=$S(Y:$P(^SRO(137.45,Y,0),""^""),1:""SURGICAL SPECIALTY NOT ENTERED"")"
^XMB(3.9,148,2,12471,0)="""RTN"",""SROCMP"",46,0)"
^XMB(3.9,148,2,12472,0)="COMP ; perioperative occurrences"
^XMB(3.9,148,2,12473,0)="""RTN"",""SROCMP"",47,0)"
^XMB(3.9,148,2,12474,0)=" S (SRFG,SRIC,SRPC)=0 F  S SRIC=$O(^SRF(SRTN,10,SRIC)) Q:SRIC=""""  S SRFG=SRFG+1,SRC(SRFG)=$P(^(SRIC,0),""^"")_""^""_$P(^(0),""^"",6)_""^^""_$S($D(^SRF(SRTN,10,SRIC,2)):$P(^(2),""^""),1:"""")_""^10^""_SRIC"
^XMB(3.9,148,2,12475,0)="""RTN"",""SROCMP"",48,0)"
^XMB(3.9,148,2,12476,0)=" S SRPC=0 F  S SRPC=$O(^SRF(SRTN,16,SRPC)) Q:SRPC=""""  D"
^XMB(3.9,148,2,12477,0)="""RTN"",""SROCMP"",49,0)"
^XMB(3.9,148,2,12478,0)=" .S SRFG=SRFG+1,SRC(SRFG)=$P(^SRF(SRTN,16,SRPC,0),""^"")_"" *^""_$P(^(0),""^"",6)_""^""_$P(^(0),""^"",7)_""^""_$S($D(^SRF(SRTN,16,SRPC,2)):$P(^(2),""^""),1:"""")_""^16^""_SRPC"
^XMB(3.9,148,2,12479,0)="""RTN"",""SROCMP"",50,0)"
^XMB(3.9,148,2,12480,0)=" .I $P(^SRF(SRTN,16,SRPC,0),""^"",2)=3 S SRC(SRFG)=SRC(SRFG)_""^""_$P(^SRF(SRTN,16,SRPC,0),""^"",4)"
^XMB(3.9,148,2,12481,0)="""RTN"",""SROCMP"",51,0)"
^XMB(3.9,148,2,12482,0)="PRINT ; print perioperative occurrence information"
^XMB(3.9,148,2,12483,0)="""RTN"",""SROCMP"",52,0)"
^XMB(3.9,148,2,12484,0)=" I $Y+10>IOSL D HDR^SROCMP2 I SRSOUT Q"
^XMB(3.9,148,2,12485,0)="""RTN"",""SROCMP"",53,0)"
^XMB(3.9,148,2,12486,0)=" S SRHDR=1 W !!,SRNM,?29,$S(SRSEL=2:SRSPEC,1:SRATT) S SRC=$O(SRC(0)) W ?80,$P(SRC(SRC),""^"") D DATE W ?129,$P(SRC(SRC),""^"",2)"
^XMB(3.9,148,2,12487,0)="""RTN"",""SROCMP"",54,0)"
^XMB(3.9,148,2,12488,0)=" I SRSEL=3 D PRNT3 Q"
^XMB(3.9,148,2,12489,0)="""RTN"",""SROCMP"",55,0)"
^XMB(3.9,148,2,12490,0)=" W !,VA(""PID""),?29,SRP(1),?80,$P(SRC(SRC),""^"",4)"
^XMB(3.9,148,2,12491,0)="""RTN"",""SROCMP"",56,0)"
^XMB(3.9,148,2,12492,0)=" W !,SROD W:$D(SRP(2)) ?29,SRP(2) D TEXT W:$D(SRP(3))!SRT ! W:$D(SRP(3)) ?29,SRP(3) D:SRT WP"
^XMB(3.9,148,2,12493,0)="""RTN"",""SROCMP"",57,0)"
^XMB(3.9,148,2,12494,0)="SRC I SRC F  S SRC=$O(SRC(SRC)) Q:'SRC!SRSOUT  D"
^XMB(3.9,148,2,12495,0)="""RTN"",""SROCMP"",58,0)"
^XMB(3.9,148,2,12496,0)=" .I $Y+10>IOSL D HDR^SROCMP2 I SRSOUT Q"
^XMB(3.9,148,2,12497,0)="""RTN"",""SROCMP"",59,0)"
^XMB(3.9,148,2,12498,0)=" .W !,?80,$P(SRC(SRC),""^"") D DATE W ?129,$P(SRC(SRC),""^"",2),!,?80,$P(SRC(SRC),""^"",4),! D TEXT I SRT W ! D WP"
^XMB(3.9,148,2,12499,0)="""RTN"",""SROCMP"",60,0)"
^XMB(3.9,148,2,12500,0)=" Q"
^XMB(3.9,148,2,12501,0)="""RTN"",""SROCMP"",61,0)"
^XMB(3.9,148,2,12502,0)="PRNT3 W !,VA(""PID""),?29,SRSPEC,?80,$P(SRC(SRC),""^"",4)"
^XMB(3.9,148,2,12503,0)="""RTN"",""SROCMP"",62,0)"
^XMB(3.9,148,2,12504,0)=" W !,SROD W ?29,SRP(1) D TEXT W:$D(SRP(2))!SRT ! W:$D(SRP(2)) ?29,SRP(2) D:SRT WP"
^XMB(3.9,148,2,12505,0)="""RTN"",""SROCMP"",63,0)"
^XMB(3.9,148,2,12506,0)=" D SRC"
^XMB(3.9,148,2,12507,0)="""RTN"",""SROCMP"",64,0)"
^XMB(3.9,148,2,12508,0)=" Q"
^XMB(3.9,148,2,12509,0)="""RTN"",""SROCMP"",65,0)"
^XMB(3.9,148,2,12510,0)="WP ; print perioperative occurrence comments"
^XMB(3.9,148,2,12511,0)="""RTN"",""SROCMP"",66,0)"
^XMB(3.9,148,2,12512,0)=" K ^UTILITY($J,""W"") S CM=0 F  S CM=$O(^SRF(SRTN,SRX,SRY,1,CM)) Q:'CM  S X=^SRF(SRTN,SRX,SRY,1,CM,0),DIWL=81,DIWR=132 D ^DIWP"
^XMB(3.9,148,2,12513,0)="""RTN"",""SROCMP"",67,0)"
^XMB(3.9,148,2,12514,0)=" I $D(^UTILITY($J,""W"")) F J=1:1:^UTILITY($J,""W"",81) D"
^XMB(3.9,148,2,12515,0)="""RTN"",""SROCMP"",68,0)"
^XMB(3.9,148,2,12516,0)=" .I $Y+7>IOSL D HDR^SROCMP2 W ! I SRSOUT Q"
^XMB(3.9,148,2,12517,0)="""RTN"",""SROCMP"",69,0)"
^XMB(3.9,148,2,12518,0)=" .W ?81,^UTILITY($J,""W"",81,J,0),!"
^XMB(3.9,148,2,12519,0)="""RTN"",""SROCMP"",70,0)"
^XMB(3.9,148,2,12520,0)=" Q"
^XMB(3.9,148,2,12521,0)="""RTN"",""SROCMP"",71,0)"
^XMB(3.9,148,2,12522,0)="TEXT ; check for comments"
^XMB(3.9,148,2,12523,0)="""RTN"",""SROCMP"",72,0)"
^XMB(3.9,148,2,12524,0)=" S SRT=0,SRX=$P(SRC(SRC),""^"",5),SRY=$P(SRC(SRC),""^"",6) I $O(^SRF(SRTN,SRX,SRY,1,0)) S SRT=1 I SRT W ?80,"">>> Comments:"""
^XMB(3.9,148,2,12525,0)="""RTN"",""SROCMP"",73,0)"
^XMB(3.9,148,2,12526,0)=" Q"
^XMB(3.9,148,2,12527,0)="""RTN"",""SROCMP"",74,0)"
^XMB(3.9,148,2,12528,0)="OTHER ; other operations"
^XMB(3.9,148,2,12529,0)="""RTN"",""SROCMP"",75,0)"
^XMB(3.9,148,2,12530,0)=" S SRLONG=1 I $L(SROPER)+$L($P(^SRF(SRTN,13,OPER,0),""^""))>250 S SRLONG=0,OPER=999,SROPERS="" ..."""
^XMB(3.9,148,2,12531,0)="""RTN"",""SROCMP"",76,0)"
^XMB(3.9,148,2,12532,0)=" I SRLONG S SROPERS=$P(^SRF(SRTN,13,OPER,0),""^"")"
^XMB(3.9,148,2,12533,0)="""RTN"",""SROCMP"",77,0)"
^XMB(3.9,148,2,12534,0)=" S SROPER=SROPER_$S(SROPERS="" ..."":SROPERS,1:"", ""_SROPERS)"
^XMB(3.9,148,2,12535,0)="""RTN"",""SROCMP"",78,0)"
^XMB(3.9,148,2,12536,0)=" Q"
^XMB(3.9,148,2,12537,0)="""RTN"",""SROCMP"",79,0)"
^XMB(3.9,148,2,12538,0)="OPER ; break procedure if greater than 50 characters"
^XMB(3.9,148,2,12539,0)="""RTN"",""SROCMP"",80,0)"
^XMB(3.9,148,2,12540,0)=" S SRP(M)="""" F LOOP=1:1 S Z=$P(SROPER,"" "") Q:Z=""""  Q:$L(SRP(M))+$L(Z)'<50  S SRP(M)=SRP(M)_Z_"" "",SROPER=$P(SROPER,"" "",2,200)"
^XMB(3.9,148,2,12541,0)="""RTN"",""SROCMP"",81,0)"
^XMB(3.9,148,2,12542,0)=" Q"
^XMB(3.9,148,2,12543,0)="""RTN"",""SROCMP"",82,0)"
^XMB(3.9,148,2,12544,0)="DATE N SRSEP"
^XMB(3.9,148,2,12545,0)="""RTN"",""SROCMP"",83,0)"
^XMB(3.9,148,2,12546,0)=" S X=$P(SRC(SRC),""^"",7) I X S SRSEP=$S(X=2:""SEPSIS"",X=3:""SEPTIC SHOCK"",1:""SIRS"") W "" /""_SRSEP"
^XMB(3.9,148,2,12547,0)="""RTN"",""SROCMP"",84,0)"
^XMB(3.9,148,2,12548,0)=" I $P(SRC(SRC),""^"",3)'="""" S SRDT=$P(SRC(SRC),""^"",3) I SRDT W ""  (""_$E(SRDT,4,5)_""/""_$E(SRDT,6,7)_""/""_$E(SRDT,2,3)_"")"""
^XMB(3.9,148,2,12549,0)="""RTN"",""SROCMP"",85,0)"
^XMB(3.9,148,2,12550,0)=" Q"
^XMB(3.9,148,2,12551,0)="""RTN"",""SROCMP1"")"
^XMB(3.9,148,2,12552,0)="0^24^B17735351^B6872580"
^XMB(3.9,148,2,12553,0)="""RTN"",""SROCMP1"",1,0)"
^XMB(3.9,148,2,12554,0)="SROCMP1 ;BIR/MAM - PERIOPERATIVE OCCURRENCES ;02/02/06"
^XMB(3.9,148,2,12555,0)="""RTN"",""SROCMP1"",2,0)"
^XMB(3.9,148,2,12556,0)=" ;;3.0; Surgery ;**38,50,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,12557,0)="""RTN"",""SROCMP1"",3,0)"
^XMB(3.9,148,2,12558,0)="EN ; entry point"
^XMB(3.9,148,2,12559,0)="""RTN"",""SROCMP1"",4,0)"
^XMB(3.9,148,2,12560,0)=" N SRSEL S (SRATT,SRSOUT,SRSP)=0,SRSEL=1 G:SRBOTH DEV"
^XMB(3.9,148,2,12561,0)="""RTN"",""SROCMP1"",5,0)"
^XMB(3.9,148,2,12562,0)="BY W @IOF K DIR S DIR(0)=""N^1:3"",DIR(""A"",1)=""Print report by"",DIR(""A"",2)="" 1. Surgical Specialty"""
^XMB(3.9,148,2,12563,0)="""RTN"",""SROCMP1"",6,0)"
^XMB(3.9,148,2,12564,0)=" S DIR(""A"",3)="" 2. Attending Surgeon"",DIR(""A"",4)="" 3. Occurrence Category"",DIR(""A"",5)="""",DIR(""A"")=""Select 1, 2 or 3"",DIR(""B"")=1"
^XMB(3.9,148,2,12565,0)="""RTN"",""SROCMP1"",7,0)"
^XMB(3.9,148,2,12566,0)=" S DIR(""?"")=""Select a number"" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1 D END Q"
^XMB(3.9,148,2,12567,0)="""RTN"",""SROCMP1"",8,0)"
^XMB(3.9,148,2,12568,0)=" S SRSEL=Y"
^XMB(3.9,148,2,12569,0)="""RTN"",""SROCMP1"",9,0)"
^XMB(3.9,148,2,12570,0)=" I SRSEL=2 D ATTND Q"
^XMB(3.9,148,2,12571,0)="""RTN"",""SROCMP1"",10,0)"
^XMB(3.9,148,2,12572,0)=" I SRSEL=3 D OCC Q"
^XMB(3.9,148,2,12573,0)="""RTN"",""SROCMP1"",11,0)"
^XMB(3.9,148,2,12574,0)="SPEC W @IOF K DIR S DIR(""A"")=""Do you want to print this report for all Surgical Specialties "",DIR(""B"")=""YES"",DIR(0)=""Y"""
^XMB(3.9,148,2,12575,0)="""RTN"",""SROCMP1"",12,0)"
^XMB(3.9,148,2,12576,0)=" S DIR(""?"",1)=""  Press ENTER to print this report for all surgical specialties, or"""
^XMB(3.9,148,2,12577,0)="""RTN"",""SROCMP1"",13,0)"
^XMB(3.9,148,2,12578,0)=" S DIR(""?"")=""  enter NO to select a specific specialty."""
^XMB(3.9,148,2,12579,0)="""RTN"",""SROCMP1"",14,0)"
^XMB(3.9,148,2,12580,0)=" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1 D END Q"
^XMB(3.9,148,2,12581,0)="""RTN"",""SROCMP1"",15,0)"
^XMB(3.9,148,2,12582,0)=" I 'Y D SP I SRSOUT D END Q"
^XMB(3.9,148,2,12583,0)="""RTN"",""SROCMP1"",16,0)"
^XMB(3.9,148,2,12584,0)="DEV S SRGRAMM=$S(SRBOTH:""These reports are "",1:""This report is "")"
^XMB(3.9,148,2,12585,0)="""RTN"",""SROCMP1"",17,0)"
^XMB(3.9,148,2,12586,0)=" K IOP,%ZIS,POP,IO(""Q"") S %ZIS(""A"")=""Print the Report on which Device: "",%ZIS=""QM"" W !!,SRGRAMM_""designed to use a 132 column format."",! D ^%ZIS I POP S SRSOUT=1 G END"
^XMB(3.9,148,2,12587,0)="""RTN"",""SROCMP1"",18,0)"
^XMB(3.9,148,2,12588,0)=" I $D(IO(""Q"")) K IO(""Q"") S ZTDESC=""PERIOPERATIVE OCCURRENCES"",ZTRTN=""BEG^SROCMP"",(ZTSAVE(""SRBOTH""),ZTSAVE(""SRED""),ZTSAVE(""SRSD""),ZTSAVE(""SRINST""),ZTSAVE(""SRINSTP""),ZTSAVE(""SRSP*""),ZTSAVE(""SRSEL""))="""" D ^%ZTLOAD G END"
^XMB(3.9,148,2,12589,0)="""RTN"",""SROCMP1"",19,0)"
^XMB(3.9,148,2,12590,0)=" D BEG^SROCMP"
^XMB(3.9,148,2,12591,0)="""RTN"",""SROCMP1"",20,0)"
^XMB(3.9,148,2,12592,0)="END ;"
^XMB(3.9,148,2,12593,0)="""RTN"",""SROCMP1"",21,0)"
^XMB(3.9,148,2,12594,0)=" Q:'$D(SRSOUT)  I 'SRSOUT W !!,""Press RETURN to continue  "" R X:DTIME"
^XMB(3.9,148,2,12595,0)="""RTN"",""SROCMP1"",22,0)"
^XMB(3.9,148,2,12596,0)=" D ^%ZISC,^SRSKILL K SRTN W @IOF"
^XMB(3.9,148,2,12597,0)="""RTN"",""SROCMP1"",23,0)"
^XMB(3.9,148,2,12598,0)=" Q"
^XMB(3.9,148,2,12599,0)="""RTN"",""SROCMP1"",24,0)"
^XMB(3.9,148,2,12600,0)="ATTND W @IOF K DIR S DIR(""A"")=""Do you want to print this report for all Attending Surgeons "",DIR(""B"")=""YES"",DIR(0)=""Y"""
^XMB(3.9,148,2,12601,0)="""RTN"",""SROCMP1"",25,0)"
^XMB(3.9,148,2,12602,0)=" S DIR(""?"",1)=""  Press ENTER to print this report for all attending surgeons, or"""
^XMB(3.9,148,2,12603,0)="""RTN"",""SROCMP1"",26,0)"
^XMB(3.9,148,2,12604,0)=" S DIR(""?"")=""  enter NO to select a specific attending surgeon."""
^XMB(3.9,148,2,12605,0)="""RTN"",""SROCMP1"",27,0)"
^XMB(3.9,148,2,12606,0)=" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1 D END Q"
^XMB(3.9,148,2,12607,0)="""RTN"",""SROCMP1"",28,0)"
^XMB(3.9,148,2,12608,0)=" I 'Y D ATSUR I SRSOUT D END Q"
^XMB(3.9,148,2,12609,0)="""RTN"",""SROCMP1"",29,0)"
^XMB(3.9,148,2,12610,0)=" D DEV"
^XMB(3.9,148,2,12611,0)="""RTN"",""SROCMP1"",30,0)"
^XMB(3.9,148,2,12612,0)=" Q"
^XMB(3.9,148,2,12613,0)="""RTN"",""SROCMP1"",31,0)"
^XMB(3.9,148,2,12614,0)="ATSUR W !! S SRSP=1 K DIR S DIR(0)=""130,.164AO"",DIR(""A"")=""Print the report for which Attending Surgeon ? """
^XMB(3.9,148,2,12615,0)="""RTN"",""SROCMP1"",32,0)"
^XMB(3.9,148,2,12616,0)=" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT)!(+Y'>0) S SRSOUT=1 Q"
^XMB(3.9,148,2,12617,0)="""RTN"",""SROCMP1"",33,0)"
^XMB(3.9,148,2,12618,0)=" S SRCT=+Y,SRSP(SRCT)=+Y"
^XMB(3.9,148,2,12619,0)="""RTN"",""SROCMP1"",34,0)"
^XMB(3.9,148,2,12620,0)="MOAT ; ask for more attending surgeons"
^XMB(3.9,148,2,12621,0)="""RTN"",""SROCMP1"",35,0)"
^XMB(3.9,148,2,12622,0)=" K DIR S DIR(0)=""130,.164AO"",DIR(""A"")=""Select an Additional Attending Surgeon: """
^XMB(3.9,148,2,12623,0)="""RTN"",""SROCMP1"",36,0)"
^XMB(3.9,148,2,12624,0)=" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT)!'+Y Q"
^XMB(3.9,148,2,12625,0)="""RTN"",""SROCMP1"",37,0)"
^XMB(3.9,148,2,12626,0)=" S SRCT=+Y,SRSP(SRCT)=+Y G MOAT"
^XMB(3.9,148,2,12627,0)="""RTN"",""SROCMP1"",38,0)"
^XMB(3.9,148,2,12628,0)=" Q"
^XMB(3.9,148,2,12629,0)="""RTN"",""SROCMP1"",39,0)"
^XMB(3.9,148,2,12630,0)="OCC W @IOF K DIR S DIR(""A"")=""Do you want to print this report for all Occurrence Categories"",DIR(""B"")=""YES"",DIR(0)=""Y"""
^XMB(3.9,148,2,12631,0)="""RTN"",""SROCMP1"",40,0)"
^XMB(3.9,148,2,12632,0)=" S DIR(""?"",1)=""  Press ENTER to print this report for all occurrence categoies, or"""
^XMB(3.9,148,2,12633,0)="""RTN"",""SROCMP1"",41,0)"
^XMB(3.9,148,2,12634,0)=" S DIR(""?"")=""  enter NO to select an ocurrence category."""
^XMB(3.9,148,2,12635,0)="""RTN"",""SROCMP1"",42,0)"
^XMB(3.9,148,2,12636,0)=" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1 D END Q"
^XMB(3.9,148,2,12637,0)="""RTN"",""SROCMP1"",43,0)"
^XMB(3.9,148,2,12638,0)=" I 'Y D CAT I SRSOUT D END Q"
^XMB(3.9,148,2,12639,0)="""RTN"",""SROCMP1"",44,0)"
^XMB(3.9,148,2,12640,0)=" D DEV"
^XMB(3.9,148,2,12641,0)="""RTN"",""SROCMP1"",45,0)"
^XMB(3.9,148,2,12642,0)=" Q"
^XMB(3.9,148,2,12643,0)="""RTN"",""SROCMP1"",46,0)"
^XMB(3.9,148,2,12644,0)="CAT W !! S SRSP=1 K DIR S DIR(0)=""PAO^136.5:QEM"",DIR(""A"")=""Print the report for which Occurrence Category ? """
^XMB(3.9,148,2,12645,0)="""RTN"",""SROCMP1"",47,0)"
^XMB(3.9,148,2,12646,0)=" S DIR(""S"")=""I '$P(^(0),U,2)"" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT)!(+Y'>0) S SRSOUT=1 Q"
^XMB(3.9,148,2,12647,0)="""RTN"",""SROCMP1"",48,0)"
^XMB(3.9,148,2,12648,0)=" S SRCT=+Y,SRSP(SRCT)=+Y"
^XMB(3.9,148,2,12649,0)="""RTN"",""SROCMP1"",49,0)"
^XMB(3.9,148,2,12650,0)="MOCAT ; ask for more occurrence categories"
^XMB(3.9,148,2,12651,0)="""RTN"",""SROCMP1"",50,0)"
^XMB(3.9,148,2,12652,0)=" K DIR S DIR(0)=""PAO^136.5:QEM"",DIR(""A"")=""Select an Additional Occurrence Category: """
^XMB(3.9,148,2,12653,0)="""RTN"",""SROCMP1"",51,0)"
^XMB(3.9,148,2,12654,0)=" S DIR(""S"")=""I '$P(^(0),U,2)"" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT)!(+Y'>0) Q"
^XMB(3.9,148,2,12655,0)="""RTN"",""SROCMP1"",52,0)"
^XMB(3.9,148,2,12656,0)=" S SRCT=+Y,SRSP(SRCT)=+Y G MOCAT"
^XMB(3.9,148,2,12657,0)="""RTN"",""SROCMP1"",53,0)"
^XMB(3.9,148,2,12658,0)=" Q"
^XMB(3.9,148,2,12659,0)="""RTN"",""SROCMP1"",54,0)"
^XMB(3.9,148,2,12660,0)="SP W !! S SRSP=1 K DIC S DIC(""S"")=""I '$P(^(0),""""^"""",3)"",DIC=137.45,DIC(0)=""QEAMZ"",DIC(""A"")=""Print the report for which Specialty ?  "" D ^DIC I Y<0 S SRSOUT=1 Q"
^XMB(3.9,148,2,12661,0)="""RTN"",""SROCMP1"",55,0)"
^XMB(3.9,148,2,12662,0)=" S SRCT=+Y,SRSP(SRCT)=+Y"
^XMB(3.9,148,2,12663,0)="""RTN"",""SROCMP1"",56,0)"
^XMB(3.9,148,2,12664,0)="MORE ; ask for more surgical specialties"
^XMB(3.9,148,2,12665,0)="""RTN"",""SROCMP1"",57,0)"
^XMB(3.9,148,2,12666,0)=" K DIC S DIC(""S"")=""I '$P(^(0),""""^"""",3)"",DIC=137.45,DIC(0)=""QEAMZ"",DIC(""A"")=""Select an Additional Specialty:  "" D ^DIC I Y>0 S SRCT=+Y,SRSP(SRCT)=+Y G MORE"
^XMB(3.9,148,2,12667,0)="""RTN"",""SROCMP1"",58,0)"
^XMB(3.9,148,2,12668,0)=" Q"
^XMB(3.9,148,2,12669,0)="""RTN"",""SROCMP2"")"
^XMB(3.9,148,2,12670,0)="0^25^B4362143^B3226308"
^XMB(3.9,148,2,12671,0)="""RTN"",""SROCMP2"",1,0)"
^XMB(3.9,148,2,12672,0)="SROCMP2 ;BIR/MAM - PERIOPERATIVE OCCURRENCES REPORT ;02/02/06"
^XMB(3.9,148,2,12673,0)="""RTN"",""SROCMP2"",2,0)"
^XMB(3.9,148,2,12674,0)=" ;;3.0; Surgery ;**38,50,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,12675,0)="""RTN"",""SROCMP2"",3,0)"
^XMB(3.9,148,2,12676,0)="HDR ; print heading"
^XMB(3.9,148,2,12677,0)="""RTN"",""SROCMP2"",4,0)"
^XMB(3.9,148,2,12678,0)=" I $D(ZTQUEUED) D ^SROSTOP I SRHALT S SRSOUT=1 Q"
^XMB(3.9,148,2,12679,0)="""RTN"",""SROCMP2"",5,0)"
^XMB(3.9,148,2,12680,0)=" I SRHDR D HDR2 Q:SRSOUT  S SRHDR=0"
^XMB(3.9,148,2,12681,0)="""RTN"",""SROCMP2"",6,0)"
^XMB(3.9,148,2,12682,0)=" W:$Y @IOF W !,?(132-$L(SRINST)\2),SRINST,?120,""PAGE "",PAGE,!,?58,""SURGICAL SERVICE"",?100,""REVIEWED BY: "",!,?53,""PERIOPERATIVE OCCURRENCES"",?100,""DATE REVIEWED: """
^XMB(3.9,148,2,12683,0)="""RTN"",""SROCMP2"",7,0)"
^XMB(3.9,148,2,12684,0)=" W !,?(132-$L(SRFRTO)\2),SRFRTO,?100,SRPRINT"
^XMB(3.9,148,2,12685,0)="""RTN"",""SROCMP2"",8,0)"
^XMB(3.9,148,2,12686,0)=" W !!!,?1,""PATIENT"",?29,$S(SRSEL=2:""SURGICAL SPECIALTY"",1:""ATTENDING SURGEON""),?80,""OCCURRENCE(S) - (DATE)"",?125,""OUTCOME"""
^XMB(3.9,148,2,12687,0)="""RTN"",""SROCMP2"",9,0)"
^XMB(3.9,148,2,12688,0)=" W !,?3,""ID#"",?29,$S(SRSEL=3:""SURGICAL SPECIALTY"",1:""PRINCIPAL OPERATION""),?80,""TREATMENT"",!,""OPERATION DATE"",?29,$S(SRSEL=3:""PRINCIPAL OPERATION"",1:""""),!"
^XMB(3.9,148,2,12689,0)="""RTN"",""SROCMP2"",10,0)"
^XMB(3.9,148,2,12690,0)=" F I=1:1:132 W ""="""
^XMB(3.9,148,2,12691,0)="""RTN"",""SROCMP2"",11,0)"
^XMB(3.9,148,2,12692,0)=" S PAGE=PAGE+1 I '$D(^TMP(""SR"",$J)) Q"
^XMB(3.9,148,2,12693,0)="""RTN"",""SROCMP2"",12,0)"
^XMB(3.9,148,2,12694,0)=" N SRY S SRY=$S(SRSEL=2:""ATTENDING"",SRSEL=3:""CATEGORY"",1:""SPECIALTY"")_"": ""_SRSS W !,?(132-$L(SRY)\2),SRY,! F LINE=1:1:132 W ""-"""
^XMB(3.9,148,2,12695,0)="""RTN"",""SROCMP2"",13,0)"
^XMB(3.9,148,2,12696,0)=" Q"
^XMB(3.9,148,2,12697,0)="""RTN"",""SROCMP2"",14,0)"
^XMB(3.9,148,2,12698,0)="HDR2 ; more heading"
^XMB(3.9,148,2,12699,0)="""RTN"",""SROCMP2"",15,0)"
^XMB(3.9,148,2,12700,0)=" F I=$Y:1:IOSL-9 W !"
^XMB(3.9,148,2,12701,0)="""RTN"",""SROCMP2"",16,0)"
^XMB(3.9,148,2,12702,0)="FOOT ; print footer"
^XMB(3.9,148,2,12703,0)="""RTN"",""SROCMP2"",17,0)"
^XMB(3.9,148,2,12704,0)=" W ! F LINE=1:1:IOM W ""-"""
^XMB(3.9,148,2,12705,0)="""RTN"",""SROCMP2"",18,0)"
^XMB(3.9,148,2,12706,0)=" W !,""OUTCOMES:  U - UNRESOLVED, I - IMPROVED, W - WORSE, D - DEATH"""
^XMB(3.9,148,2,12707,0)="""RTN"",""SROCMP2"",19,0)"
^XMB(3.9,148,2,12708,0)=" W !,?11,""'*' Represents Postoperative Occurrences"",! F LINE=1:1:IOM W ""-"""
^XMB(3.9,148,2,12709,0)="""RTN"",""SROCMP2"",20,0)"
^XMB(3.9,148,2,12710,0)=" S SRHDR=0 I $E(IOST)'=""P"" W !!,""Press RETURN to continue, or '^' to quit:  "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1 Q"
^XMB(3.9,148,2,12711,0)="""RTN"",""SROCMP2"",21,0)"
^XMB(3.9,148,2,12712,0)=" Q"
^XMB(3.9,148,2,12713,0)="""RTN"",""SROCMPED"")"
^XMB(3.9,148,2,12714,0)="0^64^B27790437^B34799560"
^XMB(3.9,148,2,12715,0)="""RTN"",""SROCMPED"",1,0)"
^XMB(3.9,148,2,12716,0)="SROCMPED ;BIR/MAM - ENTER/EDIT OCCURRENCES ;03/14/06"
^XMB(3.9,148,2,12717,0)="""RTN"",""SROCMPED"",2,0)"
^XMB(3.9,148,2,12718,0)=" ;;3.0; Surgery ;**26,38,47,125,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,12719,0)="""RTN"",""SROCMPED"",3,0)"
^XMB(3.9,148,2,12720,0)=" I '$P(^SRF(SRTN,SRTYPE,SRENTRY,0),""^"",2) D NOCAT I SRSOUT S SRSOUT=0 Q"
^XMB(3.9,148,2,12721,0)="""RTN"",""SROCMPED"",4,0)"
^XMB(3.9,148,2,12722,0)=" I '$D(^SRF(SRTN,SRTYPE,SRENTRY,0)) K SRENTRY S SRSOUT=0 Q"
^XMB(3.9,148,2,12723,0)="""RTN"",""SROCMPED"",5,0)"
^XMB(3.9,148,2,12724,0)="START I '$D(^SRF(SRTN,SRTYPE,SRENTRY)) K SRENTRY S SRSOUT=0 Q"
^XMB(3.9,148,2,12725,0)="""RTN"",""SROCMPED"",6,0)"
^XMB(3.9,148,2,12726,0)=" S SRSOUT=0,SR=^SRF(SRTN,SRTYPE,SRENTRY,0)"
^XMB(3.9,148,2,12727,0)="""RTN"",""SROCMPED"",7,0)"
^XMB(3.9,148,2,12728,0)=" I $G(SRNEW),$P(SR,""^"",2)=3,SRTYPE=16 D SEPSIS G:SRSOUT END G START"
^XMB(3.9,148,2,12729,0)="""RTN"",""SROCMPED"",8,0)"
^XMB(3.9,148,2,12730,0)=" I $G(SRNEW),$P(SR,""^"",2)=27,SRTYPE=16,$P($G(^SRF(SRTN,""RA"")),""^"",2)=""C"" D RCP G:SRSOUT END G START"
^XMB(3.9,148,2,12731,0)="""RTN"",""SROCMPED"",9,0)"
^XMB(3.9,148,2,12732,0)=" D HDR^SROAUTL W !"
^XMB(3.9,148,2,12733,0)="""RTN"",""SROCMPED"",10,0)"
^XMB(3.9,148,2,12734,0)=" S SRO(1)=$P(SR,""^"")_""^.01"",X=$P(SR,""^"",2),SRO(2)=X_""^""_$S(SRTYPE=10:3,1:5) I X S $P(SRO(2),""^"")=$P(^SRO(136.5,X,0),""^"")"
^XMB(3.9,148,2,12735,0)="""RTN"",""SROCMPED"",11,0)"
^XMB(3.9,148,2,12736,0)=" I $P(SR,""^"",2)=3 S Y=$P(SR,""^"",4),C=$P(^DD(130.22,7,0),""^"",2) D:Y'="""" Y^DIQ S SRO(3)=Y_""^7"""
^XMB(3.9,148,2,12737,0)="""RTN"",""SROCMPED"",12,0)"
^XMB(3.9,148,2,12738,0)=" I $P(SR,""^"",2)'=3 D"
^XMB(3.9,148,2,12739,0)="""RTN"",""SROCMPED"",13,0)"
^XMB(3.9,148,2,12740,0)=" .I $P(SR,""^"",2)=27,$P($G(^SRF(SRTN,""RA"")),""^"",2)=""C"" S Y=$P(SR,""^"",5),C=$P(^DD(130.22,8,0),""^"",2) D:Y'="""" Y^DIQ S SRO(3)=Y_""^8"" Q"
^XMB(3.9,148,2,12741,0)="""RTN"",""SROCMPED"",14,0)"
^XMB(3.9,148,2,12742,0)=" .S X=$P(SR,""^"",3) S:X X=$P(^ICD9(X,0),""^"")_""  ""_$P(^(0),""^"",2) S SRO(3)=X_""^""_$S(SRTYPE=10:4,1:6)"
^XMB(3.9,148,2,12743,0)="""RTN"",""SROCMPED"",15,0)"
^XMB(3.9,148,2,12744,0)=" S SR(2)=$G(^SRF(SRTN,SRTYPE,SRENTRY,2)),SRO(4)=$P(SR(2),""^"")_""^""_$S(SRTYPE=10:2,1:3)"
^XMB(3.9,148,2,12745,0)="""RTN"",""SROCMPED"",16,0)"
^XMB(3.9,148,2,12746,0)=" S X=$P(SR,""^"",6),SHEMP=$S(X=""U"":""UNRESOLVED"",X=""I"":""IMPROVED"",X=""D"":""DEATH"",X=""W"":""WORSE"",1:""""),SRO(5)=SHEMP_""^.05"""
^XMB(3.9,148,2,12747,0)="""RTN"",""SROCMPED"",17,0)"
^XMB(3.9,148,2,12748,0)=" K SRO(6) I SRTYPE=16 S X=$P(SR,""^"",7) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S SRO(6)=X_""^2"""
^XMB(3.9,148,2,12749,0)="""RTN"",""SROCMPED"",18,0)"
^XMB(3.9,148,2,12750,0)="DISP W !,""1. Occurrence: "",?26,$P(SRO(1),""^""),!,""2. Occurrence Category: "",?26,$P(SRO(2),""^"")"
^XMB(3.9,148,2,12751,0)="""RTN"",""SROCMPED"",19,0)"
^XMB(3.9,148,2,12752,0)=" W !,""3. ""_$S($P(SR,""^"",2)=3:""Sepsis Type"",$P(SR,""^"",2)=27&($P($G(^SRF(SRTN,""RA"")),""^"",2)=""C""):""CPB Status"",1:""ICD Diagnosis Code"")_"":"",?26,$P(SRO(3),""^"")"
^XMB(3.9,148,2,12753,0)="""RTN"",""SROCMPED"",20,0)"
^XMB(3.9,148,2,12754,0)=" W !,""4. Treatment Instituted:"",?26,$P(SRO(4),""^""),!,""5. Outcome to Date:"",?26,$P(SRO(5),""^"")"
^XMB(3.9,148,2,12755,0)="""RTN"",""SROCMPED"",21,0)"
^XMB(3.9,148,2,12756,0)=" I $D(SRO(6)) W !,""6. Date Noted: "",?26,$P(SRO(6),""^"")"
^XMB(3.9,148,2,12757,0)="""RTN"",""SROCMPED"",22,0)"
^XMB(3.9,148,2,12758,0)=" S SRX=$S(SRTYPE=10:6,1:7),SRO(SRX)=""^"" I $O(^SRF(SRTN,SRTYPE,SRENTRY,1,0)) S SRO(SRX)=""*** INFORMATION ENTERED ***""_SRO(SRX)"
^XMB(3.9,148,2,12759,0)="""RTN"",""SROCMPED"",23,0)"
^XMB(3.9,148,2,12760,0)=" S X=$S(SRTYPE=10:1,1:4),SRO(SRX)=SRO(SRX)_X,SRMAX=SRX"
^XMB(3.9,148,2,12761,0)="""RTN"",""SROCMPED"",24,0)"
^XMB(3.9,148,2,12762,0)=" W !,SRX_"". Occurrence Comments: "",?26,$P(SRO(SRX),""^"")"
^XMB(3.9,148,2,12763,0)="""RTN"",""SROCMPED"",25,0)"
^XMB(3.9,148,2,12764,0)=" W !!,SRLINE"
^XMB(3.9,148,2,12765,0)="""RTN"",""SROCMPED"",26,0)"
^XMB(3.9,148,2,12766,0)=" W !!,""Select Occurrence Information: "" R X:DTIME I '$T!(""^""[X) S:X[""^"" SRSOUT=1 G END"
^XMB(3.9,148,2,12767,0)="""RTN"",""SROCMPED"",27,0)"
^XMB(3.9,148,2,12768,0)=" I ""Aa""[X S X=""1:""_SRMAX"
^XMB(3.9,148,2,12769,0)="""RTN"",""SROCMPED"",28,0)"
^XMB(3.9,148,2,12770,0)=" I X'?.N1"":"".N,'$D(SRO(X)) D HELP G:SRSOUT END W @IOF G START"
^XMB(3.9,148,2,12771,0)="""RTN"",""SROCMPED"",29,0)"
^XMB(3.9,148,2,12772,0)=" I X?.N1"":"".N S Y=$E(X),Z=$P(X,"":"",2) I Y<1!(Z>SRMAX)!(Y>Z) D HELP G:SRSOUT END W @IOF G START"
^XMB(3.9,148,2,12773,0)="""RTN"",""SROCMPED"",30,0)"
^XMB(3.9,148,2,12774,0)=" D HDR^SROAUTL W !"
^XMB(3.9,148,2,12775,0)="""RTN"",""SROCMPED"",31,0)"
^XMB(3.9,148,2,12776,0)=" I X?.N1"":"".N D RANGE G START"
^XMB(3.9,148,2,12777,0)="""RTN"",""SROCMPED"",32,0)"
^XMB(3.9,148,2,12778,0)=" I $$LOCK^SROUTL(SRTN) D  D UNLOCK^SROUTL(SRTN) D:SRZ=2 PRESS"
^XMB(3.9,148,2,12779,0)="""RTN"",""SROCMPED"",33,0)"
^XMB(3.9,148,2,12780,0)=" .S SRZ=X K DIE,DA,DR S DA(1)=SRTN,DA=SRENTRY,DIE=""^SRF(""_SRTN_"",""_SRTYPE_"","",DR=$P(SRO(X),""^"",2)_""T"" D ^DIE K DR,DA"
^XMB(3.9,148,2,12781,0)="""RTN"",""SROCMPED"",34,0)"
^XMB(3.9,148,2,12782,0)=" G START"
^XMB(3.9,148,2,12783,0)="""RTN"",""SROCMPED"",35,0)"
^XMB(3.9,148,2,12784,0)=" Q"
^XMB(3.9,148,2,12785,0)="""RTN"",""SROCMPED"",36,0)"
^XMB(3.9,148,2,12786,0)="HELP W @IOF,!!!!,""Enter the number, or range of numbers you want to edit.  Examples of proper"",!,""responses are listed below."""
^XMB(3.9,148,2,12787,0)="""RTN"",""SROCMPED"",37,0)"
^XMB(3.9,148,2,12788,0)=" W !!,""1. Enter 'A' to update all occurrence information."""
^XMB(3.9,148,2,12789,0)="""RTN"",""SROCMPED"",38,0)"
^XMB(3.9,148,2,12790,0)=" S RANGE=""(1-""_SRMAX_"")"""
^XMB(3.9,148,2,12791,0)="""RTN"",""SROCMPED"",39,0)"
^XMB(3.9,148,2,12792,0)=" W !!,""2. Enter a number ""_RANGE_"" to update a specific occurrence element.  (For"",!,""   example, enter '2' to update the occurrence category)"""
^XMB(3.9,148,2,12793,0)="""RTN"",""SROCMPED"",40,0)"
^XMB(3.9,148,2,12794,0)=" W !!,""3. Enter a range of numbers ""_RANGE_"" separated by a ':' to enter a range of"",!,""   elements.  (For example, enter '1:3' to enter occurrence, occurrence"",!,""   category, and ICD diagnosis code)"""
^XMB(3.9,148,2,12795,0)="""RTN"",""SROCMPED"",41,0)"
^XMB(3.9,148,2,12796,0)=" W ! D PRESS"
^XMB(3.9,148,2,12797,0)="""RTN"",""SROCMPED"",42,0)"
^XMB(3.9,148,2,12798,0)=" Q"
^XMB(3.9,148,2,12799,0)="""RTN"",""SROCMPED"",43,0)"
^XMB(3.9,148,2,12800,0)="RANGE ; range of numbers"
^XMB(3.9,148,2,12801,0)="""RTN"",""SROCMPED"",44,0)"
^XMB(3.9,148,2,12802,0)=" I $$LOCK^SROUTL(SRTN) D  D UNLOCK^SROUTL(SRTN)"
^XMB(3.9,148,2,12803,0)="""RTN"",""SROCMPED"",45,0)"
^XMB(3.9,148,2,12804,0)=" .S SHEMP=$P(X,"":""),CURLEY=$P(X,"":"",2) F EMILY=SHEMP:1:CURLEY Q:SRSOUT  D ONE"
^XMB(3.9,148,2,12805,0)="""RTN"",""SROCMPED"",46,0)"
^XMB(3.9,148,2,12806,0)=" I CURLEY=2 D PRESS"
^XMB(3.9,148,2,12807,0)="""RTN"",""SROCMPED"",47,0)"
^XMB(3.9,148,2,12808,0)=" Q"
^XMB(3.9,148,2,12809,0)="""RTN"",""SROCMPED"",48,0)"
^XMB(3.9,148,2,12810,0)="ONE ; edit one item"
^XMB(3.9,148,2,12811,0)="""RTN"",""SROCMPED"",49,0)"
^XMB(3.9,148,2,12812,0)=" K DR,DA,DIE S DR=$P(SRO(EMILY),""^"",2)_""T"",DA=SRENTRY,DA(1)=SRTN,DIE=""^SRF(""_SRTN_"",""_SRTYPE_"","" D ^DIE K DR,DA I '$D(^SRF(SRTN,SRTYPE,SRENTRY))!$D(DTOUT)!$D(Y) S SRSOUT=1"
^XMB(3.9,148,2,12813,0)="""RTN"",""SROCMPED"",50,0)"
^XMB(3.9,148,2,12814,0)=" Q"
^XMB(3.9,148,2,12815,0)="""RTN"",""SROCMPED"",51,0)"
^XMB(3.9,148,2,12816,0)="END K SRO,SR,X,DA,DIE,DR,Y"
^XMB(3.9,148,2,12817,0)="""RTN"",""SROCMPED"",52,0)"
^XMB(3.9,148,2,12818,0)=" Q"
^XMB(3.9,148,2,12819,0)="""RTN"",""SROCMPED"",53,0)"
^XMB(3.9,148,2,12820,0)="SEPSIS D HDR^SROAUTL K DA,DIE,DR"
^XMB(3.9,148,2,12821,0)="""RTN"",""SROCMPED"",54,0)"
^XMB(3.9,148,2,12822,0)=" S DA=SRENTRY,DA(1)=SRTN,DR=""7T"",DIE=""^SRF(""_SRTN_"",""_SRTYPE_"","" D ^DIE K DR,DA"
^XMB(3.9,148,2,12823,0)="""RTN"",""SROCMPED"",55,0)"
^XMB(3.9,148,2,12824,0)=" K DA,DIE,DR S SRNEW=0 I $D(DTOUT)!$D(Y) S SRSOUT=1 Q"
^XMB(3.9,148,2,12825,0)="""RTN"",""SROCMPED"",56,0)"
^XMB(3.9,148,2,12826,0)=" Q"
^XMB(3.9,148,2,12827,0)="""RTN"",""SROCMPED"",57,0)"
^XMB(3.9,148,2,12828,0)="RCP D HDR^SROAUTL K DA,DIE,DR"
^XMB(3.9,148,2,12829,0)="""RTN"",""SROCMPED"",58,0)"
^XMB(3.9,148,2,12830,0)=" S DA=SRENTRY,DA(1)=SRTN,DR=""8T"",DIE=""^SRF(""_SRTN_"",""_SRTYPE_"","" D ^DIE K DR,DA"
^XMB(3.9,148,2,12831,0)="""RTN"",""SROCMPED"",59,0)"
^XMB(3.9,148,2,12832,0)=" K DA,DIE,DR S SRNEW=0 I $D(DTOUT)!$D(Y) S SRSOUT=1 Q"
^XMB(3.9,148,2,12833,0)="""RTN"",""SROCMPED"",60,0)"
^XMB(3.9,148,2,12834,0)=" Q"
^XMB(3.9,148,2,12835,0)="""RTN"",""SROCMPED"",61,0)"
^XMB(3.9,148,2,12836,0)="NOCAT W @IOF,!,""The occurrence selected does not have a corresponding category.  A category"",!,""must be selected at this time, or the occurrence will be deleted."",!"
^XMB(3.9,148,2,12837,0)="""RTN"",""SROCMPED"",62,0)"
^XMB(3.9,148,2,12838,0)=" K DIE,DIC,X,Y,SRCAT"
^XMB(3.9,148,2,12839,0)="""RTN"",""SROCMPED"",63,0)"
^XMB(3.9,148,2,12840,0)=" S DIC=136.5,DIC(0)=""QEAMZ"",DIC(""A"")=""Select Occurrence Category: "",DIC(""S"")=""I '$P(^(0),U,2)"" S:SRTYPE=10 DIC(""S"")=DIC(""S"")_"",$P(^(0),U,3)"" D ^DIC"
^XMB(3.9,148,2,12841,0)="""RTN"",""SROCMPED"",64,0)"
^XMB(3.9,148,2,12842,0)=" I +Y>0 S SRCAT=+Y K DIE,DR,DA S DA(1)=SRTN,DA=SRENTRY,DIE=""^SRF(""_DA_"",""_SRTYPE_"","",DR=$S(SRTYPE=10:3,1:5)_""////""_SRCAT D ^DIE K DR,DA"
^XMB(3.9,148,2,12843,0)="""RTN"",""SROCMPED"",65,0)"
^XMB(3.9,148,2,12844,0)=" I $D(SRCAT) K SRCAT Q"
^XMB(3.9,148,2,12845,0)="""RTN"",""SROCMPED"",66,0)"
^XMB(3.9,148,2,12846,0)="DEL W !!,""Are you sure that you want to delete this occurrence ? NO// "" R SRYN:DTIME I '$T!(SRYN[""^"") D YUP S SRSOUT=1 Q"
^XMB(3.9,148,2,12847,0)="""RTN"",""SROCMPED"",67,0)"
^XMB(3.9,148,2,12848,0)=" I ""YyNn""'[SRYN W !!,""Enter 'YES' to delete this occurrence from the patient's record.  Enter 'NO'"",!,""to backup and enter a category for this occurrence."" G DEL"
^XMB(3.9,148,2,12849,0)="""RTN"",""SROCMPED"",68,0)"
^XMB(3.9,148,2,12850,0)=" I ""Nn""[SRYN G NOCAT"
^XMB(3.9,148,2,12851,0)="""RTN"",""SROCMPED"",69,0)"
^XMB(3.9,148,2,12852,0)="YUP ; delete occurrence"
^XMB(3.9,148,2,12853,0)="""RTN"",""SROCMPED"",70,0)"
^XMB(3.9,148,2,12854,0)=" K DIK,DA S DA=SRENTRY,DA(1)=SRTN,DIK=""^SRF(""_SRTN_"",""_SRTYPE_"","" D ^DIK S SRSOUT=1"
^XMB(3.9,148,2,12855,0)="""RTN"",""SROCMPED"",71,0)"
^XMB(3.9,148,2,12856,0)=" Q"
^XMB(3.9,148,2,12857,0)="""RTN"",""SROCMPED"",72,0)"
^XMB(3.9,148,2,12858,0)="PRESS W ! K DIR S DIR(0)=""E"" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1"
^XMB(3.9,148,2,12859,0)="""RTN"",""SROCMPED"",73,0)"
^XMB(3.9,148,2,12860,0)=" Q"
^XMB(3.9,148,2,12861,0)="""RTN"",""SROES"")"
^XMB(3.9,148,2,12862,0)="0^103^B26256773^B26203884"
^XMB(3.9,148,2,12863,0)="""RTN"",""SROES"",1,0)"
^XMB(3.9,148,2,12864,0)="SROES ;BIR/ADM - SURGERY E-SIG UTILITY ;06/07/06"
^XMB(3.9,148,2,12865,0)="""RTN"",""SROES"",2,0)"
^XMB(3.9,148,2,12866,0)=" ;;3.0; Surgery ;**100,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,12867,0)="""RTN"",""SROES"",3,0)"
^XMB(3.9,148,2,12868,0)=" ;"
^XMB(3.9,148,2,12869,0)="""RTN"",""SROES"",4,0)"
^XMB(3.9,148,2,12870,0)=" ;** NOTICE: This routine is part of an implementation of a nationally"
^XMB(3.9,148,2,12871,0)="""RTN"",""SROES"",5,0)"
^XMB(3.9,148,2,12872,0)=" ;**         controlled procedure.  Local modifications to this routine"
^XMB(3.9,148,2,12873,0)="""RTN"",""SROES"",6,0)"
^XMB(3.9,148,2,12874,0)=" ;**         are prohibited."
^XMB(3.9,148,2,12875,0)="""RTN"",""SROES"",7,0)"
^XMB(3.9,148,2,12876,0)=" ;"
^XMB(3.9,148,2,12877,0)="""RTN"",""SROES"",8,0)"
^XMB(3.9,148,2,12878,0)=" ; Reference to EXTRACT^TIULQ supported by DBIA #2693"
^XMB(3.9,148,2,12879,0)="""RTN"",""SROES"",9,0)"
^XMB(3.9,148,2,12880,0)=" ;"
^XMB(3.9,148,2,12881,0)="""RTN"",""SROES"",10,0)"
^XMB(3.9,148,2,12882,0)="SRA N SRRISK S SRRISK=1"
^XMB(3.9,148,2,12883,0)="""RTN"",""SROES"",11,0)"
^XMB(3.9,148,2,12884,0)="ENTER Q:'$G(SRTN)"
^XMB(3.9,148,2,12885,0)="""RTN"",""SROES"",12,0)"
^XMB(3.9,148,2,12886,0)=" N SRSOUT D CHECK I $G(SRSOUT) K SRSOUT S XQUIT="""""
^XMB(3.9,148,2,12887,0)="""RTN"",""SROES"",13,0)"
^XMB(3.9,148,2,12888,0)=" Q"
^XMB(3.9,148,2,12889,0)="""RTN"",""SROES"",14,0)"
^XMB(3.9,148,2,12890,0)="CHECK ; pre-edit capture of nurse and anesthesia reports for addenda"
^XMB(3.9,148,2,12891,0)="""RTN"",""SROES"",15,0)"
^XMB(3.9,148,2,12892,0)=" N I,SRA,SRAUDIT,SRCCASE,SRESAR,SRESNR,SRN,SROP,SRSIGN,SRTIU,SRX,SRY,X S (SRAUDIT,SRSOUT)=0"
^XMB(3.9,148,2,12893,0)="""RTN"",""SROES"",16,0)"
^XMB(3.9,148,2,12894,0)=" S (SRA(SRTN),SRAUDIT(SRTN),SRN(SRTN))=0,SRTIU=$G(^SRF(SRTN,""TIU"")),SRESNR=$P(SRTIU,""^"",2),SRESAR=$P(SRTIU,""^"",4),SROP=SRTN D DOCS"
^XMB(3.9,148,2,12895,0)="""RTN"",""SROES"",17,0)"
^XMB(3.9,148,2,12896,0)=" S SRCCASE=$P($G(^SRF(SRTN,""CON"")),""^"") I SRCCASE S (SRA(SRCCASE),SRAUDIT(SRCCASE),SRN(SRCCASE))=0,SRTIU=$G(^SRF(SRCCASE,""TIU"")),SRESNR=$P(SRTIU,""^"",2),SRESAR=$P(SRTIU,""^"",4),SROP=SRCCASE D DOCS"
^XMB(3.9,148,2,12897,0)="""RTN"",""SROES"",18,0)"
^XMB(3.9,148,2,12898,0)=" S X=0 F  S X=$O(SRAUDIT(X)) Q:'X  I SRAUDIT(X) S SRAUDIT=1 Q"
^XMB(3.9,148,2,12899,0)="""RTN"",""SROES"",19,0)"
^XMB(3.9,148,2,12900,0)=" Q:'SRAUDIT"
^XMB(3.9,148,2,12901,0)="""RTN"",""SROES"",20,0)"
^XMB(3.9,148,2,12902,0)=" D:'$G(SRRISK) WARN I SRSOUT Q"
^XMB(3.9,148,2,12903,0)="""RTN"",""SROES"",21,0)"
^XMB(3.9,148,2,12904,0)=" D KTMP"
^XMB(3.9,148,2,12905,0)="""RTN"",""SROES"",22,0)"
^XMB(3.9,148,2,12906,0)=" N SRLCK S SRLCK=$$LOCK^SROUTL(SRTN) I 'SRLCK S XQUIT="""",SRSOUT=1 Q"
^XMB(3.9,148,2,12907,0)="""RTN"",""SROES"",23,0)"
^XMB(3.9,148,2,12908,0)=" S SROP=0 F  S SROP=$O(SRAUDIT(SROP)) Q:'SROP  D PRE"
^XMB(3.9,148,2,12909,0)="""RTN"",""SROES"",24,0)"
^XMB(3.9,148,2,12910,0)=" Q"
^XMB(3.9,148,2,12911,0)="""RTN"",""SROES"",25,0)"
^XMB(3.9,148,2,12912,0)="KTMP ; kill TMP globals"
^XMB(3.9,148,2,12913,0)="""RTN"",""SROES"",26,0)"
^XMB(3.9,148,2,12914,0)=" F I=""SRADDEND"",""SRAR"",""SRNR"",""SRASAVE"",""SRNSAVE"" K ^TMP(I,$J)"
^XMB(3.9,148,2,12915,0)="""RTN"",""SROES"",27,0)"
^XMB(3.9,148,2,12916,0)=" F I=1,2 F J=""SRAD"",""SRADM"",""SRARAD"",""SRARMULT"",""SRNRAD"",""SRNRMULT"" K ^TMP(J_I,$J)"
^XMB(3.9,148,2,12917,0)="""RTN"",""SROES"",28,0)"
^XMB(3.9,148,2,12918,0)=" Q"
^XMB(3.9,148,2,12919,0)="""RTN"",""SROES"",29,0)"
^XMB(3.9,148,2,12920,0)="DOCS ; determine if signed"
^XMB(3.9,148,2,12921,0)="""RTN"",""SROES"",30,0)"
^XMB(3.9,148,2,12922,0)=" I SRESNR S SRX=SRESNR,SRSIGN=0 D SIGNED I SRSIGN S SRN(SROP)=1"
^XMB(3.9,148,2,12923,0)="""RTN"",""SROES"",31,0)"
^XMB(3.9,148,2,12924,0)=" I SRESAR S SRX=SRESAR,SRSIGN=0 D SIGNED I SRSIGN S SRA(SROP)=1"
^XMB(3.9,148,2,12925,0)="""RTN"",""SROES"",32,0)"
^XMB(3.9,148,2,12926,0)=" Q"
^XMB(3.9,148,2,12927,0)="""RTN"",""SROES"",33,0)"
^XMB(3.9,148,2,12928,0)="SIGNED I SRX N SRERR D EXTRACT^TIULQ(SRX,""SRY"",.SRERR,"".05"") I SRY(SRX,.05,""I"")=7 S SRSIGN=1,SRAUDIT(SROP)=1"
^XMB(3.9,148,2,12929,0)="""RTN"",""SROES"",34,0)"
^XMB(3.9,148,2,12930,0)=" K SRY"
^XMB(3.9,148,2,12931,0)="""RTN"",""SROES"",35,0)"
^XMB(3.9,148,2,12932,0)=" Q"
^XMB(3.9,148,2,12933,0)="""RTN"",""SROES"",36,0)"
^XMB(3.9,148,2,12934,0)="PRE ; save pr-edit copy of case data"
^XMB(3.9,148,2,12935,0)="""RTN"",""SROES"",37,0)"
^XMB(3.9,148,2,12936,0)=" N SRTN S SRTN=SROP"
^XMB(3.9,148,2,12937,0)="""RTN"",""SROES"",38,0)"
^XMB(3.9,148,2,12938,0)=" D:SRN(SRTN)=1 IN^SROESNR D:SRA(SRTN)=1 IN^SROESAR"
^XMB(3.9,148,2,12939,0)="""RTN"",""SROES"",39,0)"
^XMB(3.9,148,2,12940,0)=" Q"
^XMB(3.9,148,2,12941,0)="""RTN"",""SROES"",40,0)"
^XMB(3.9,148,2,12942,0)="WARN ; warning message that addendum may be required"
^XMB(3.9,148,2,12943,0)="""RTN"",""SROES"",41,0)"
^XMB(3.9,148,2,12944,0)=" D HDR W !!!,?30,"">>>  WARNING  <<<"""
^XMB(3.9,148,2,12945,0)="""RTN"",""SROES"",42,0)"
^XMB(3.9,148,2,12946,0)=" W !!,""   Electronically signed reports are associated with this case.  Editing"",!,""   of data that appear on electronically signed reports will require the"",!,""   creation of addenda to the signed reports."",!!!"
^XMB(3.9,148,2,12947,0)="""RTN"",""SROES"",43,0)"
^XMB(3.9,148,2,12948,0)=" K DIR S DIR(0)=""E"" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1"
^XMB(3.9,148,2,12949,0)="""RTN"",""SROES"",44,0)"
^XMB(3.9,148,2,12950,0)=" Q"
^XMB(3.9,148,2,12951,0)="""RTN"",""SROES"",45,0)"
^XMB(3.9,148,2,12952,0)="HDR S DFN=$P(^SRF(SRTN,0),""^"") D DEM^VADPT S Y=$E($P(^SRF(SRTN,0),""^"",9),1,7) X ^DD(""DD"") S SRSDATE=Y"
^XMB(3.9,148,2,12953,0)="""RTN"",""SROES"",46,0)"
^XMB(3.9,148,2,12954,0)=" W @IOF,!,"" ""_VADM(1)_"" (""_VA(""PID"")_"")   Case #""_SRTN_"" - ""_SRSDATE"
^XMB(3.9,148,2,12955,0)="""RTN"",""SROES"",47,0)"
^XMB(3.9,148,2,12956,0)=" Q"
^XMB(3.9,148,2,12957,0)="""RTN"",""SROES"",48,0)"
^XMB(3.9,148,2,12958,0)="EXIT ; post-edit check to see if addenda to nurse/anes. reports are required"
^XMB(3.9,148,2,12959,0)="""RTN"",""SROES"",49,0)"
^XMB(3.9,148,2,12960,0)=" Q:'$D(SRTN)  D WAIT^DICD"
^XMB(3.9,148,2,12961,0)="""RTN"",""SROES"",50,0)"
^XMB(3.9,148,2,12962,0)=" D:$D(^TMP(""SRNRAD1"",$J,SRTN)) EX^SROESNR"
^XMB(3.9,148,2,12963,0)="""RTN"",""SROES"",51,0)"
^XMB(3.9,148,2,12964,0)=" D:$D(^TMP(""SRARAD1"",$J,SRTN)) EX^SROESAR"
^XMB(3.9,148,2,12965,0)="""RTN"",""SROES"",52,0)"
^XMB(3.9,148,2,12966,0)=" I $D(^TMP(""SRNRAD1"",$J,SRTN))!$D(^TMP(""SRARAD1"",$J,SRTN))!$D(^TMP(""SRNRAD2"",$J,SRTN))!$D(^TMP(""SRARAD2"",$J,SRTN)) D ^SROESAD1"
^XMB(3.9,148,2,12967,0)="""RTN"",""SROES"",53,0)"
^XMB(3.9,148,2,12968,0)=" N SRCCASE,SRTN1 S SRCCASE=$P($G(^SRF(SRTN,""CON"")),""^"") I SRCCASE S SRTN1=SRTN S SRTN=SRCCASE D"
^XMB(3.9,148,2,12969,0)="""RTN"",""SROES"",54,0)"
^XMB(3.9,148,2,12970,0)=" .D:$D(^TMP(""SRNRAD1"",$J,SRTN)) EX^SROESNR"
^XMB(3.9,148,2,12971,0)="""RTN"",""SROES"",55,0)"
^XMB(3.9,148,2,12972,0)=" .D:$D(^TMP(""SRARAD1"",$J,SRTN)) EX^SROESAR"
^XMB(3.9,148,2,12973,0)="""RTN"",""SROES"",56,0)"
^XMB(3.9,148,2,12974,0)=" .I $D(^TMP(""SRNRAD1"",$J,SRTN))!$D(^TMP(""SRARAD1"",$J,SRTN)) D ^SROESAD1"
^XMB(3.9,148,2,12975,0)="""RTN"",""SROES"",57,0)"
^XMB(3.9,148,2,12976,0)=" .S SRTN=SRTN1"
^XMB(3.9,148,2,12977,0)="""RTN"",""SROES"",58,0)"
^XMB(3.9,148,2,12978,0)="DOC N SRADOC,SRDOC,SRNDOC S (SRADOC,SRDOC,SRNDOC)=0"
^XMB(3.9,148,2,12979,0)="""RTN"",""SROES"",59,0)"
^XMB(3.9,148,2,12980,0)=" I $O(^TMP(""SRNR"",$J,SRTN,0)) S SRNDOC=SRNDOC+1,SRDOC=SRDOC+1,SRNDOC(SRTN)=""Nurse Intraoperative Report - Case #""_SRTN"
^XMB(3.9,148,2,12981,0)="""RTN"",""SROES"",60,0)"
^XMB(3.9,148,2,12982,0)=" I SRCCASE,$O(^TMP(""SRNR"",$J,SRCCASE,0)) S SRNDOC=SRNDOC+1,SRDOC=SRDOC+1,SRNDOC(SRCCASE)=""Nurse Intraoperative Report - Concurrent Case #""_SRCCASE"
^XMB(3.9,148,2,12983,0)="""RTN"",""SROES"",61,0)"
^XMB(3.9,148,2,12984,0)=" I $O(^TMP(""SRAR"",$J,SRTN,0)) S SRADOC=SRADOC+1,SRDOC=SRDOC+1,SRADOC(SRTN)=""Anesthesia Report - Case #""_SRTN"
^XMB(3.9,148,2,12985,0)="""RTN"",""SROES"",62,0)"
^XMB(3.9,148,2,12986,0)=" I SRCCASE,$O(^TMP(""SRAR"",$J,SRCCASE,0)) S SRADOC=SRADOC+1,SRDOC=SRDOC+1,SRADOC(SRCCASE)=""Anesthesia Report - Concurrent Case #""_SRCCASE"
^XMB(3.9,148,2,12987,0)="""RTN"",""SROES"",63,0)"
^XMB(3.9,148,2,12988,0)=" I 'SRDOC Q"
^XMB(3.9,148,2,12989,0)="""RTN"",""SROES"",64,0)"
^XMB(3.9,148,2,12990,0)=" D HDR W !!,""An addendum to each of the following electronically signed document(s) is"",!,""required:"",!"
^XMB(3.9,148,2,12991,0)="""RTN"",""SROES"",65,0)"
^XMB(3.9,148,2,12992,0)=" S X=0 F  S X=$O(SRNDOC(X)) Q:'X  W !,?10,SRNDOC(X)"
^XMB(3.9,148,2,12993,0)="""RTN"",""SROES"",66,0)"
^XMB(3.9,148,2,12994,0)=" S X=0 F  S X=$O(SRADOC(X)) Q:'X  W !,?10,SRADOC(X)"
^XMB(3.9,148,2,12995,0)="""RTN"",""SROES"",67,0)"
^XMB(3.9,148,2,12996,0)=" W !!,""If you choose not to create an addendum, the original data will be restored"",!,""to the modified fields appearing on the signed reports."",!!"
^XMB(3.9,148,2,12997,0)="""RTN"",""SROES"",68,0)"
^XMB(3.9,148,2,12998,0)=" N SRESNOT S SRESNOT=0 K DIR S DIR(0)=""Y"",DIR(""A"")=""Create addendum"",DIR(""B"")=""YES"" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT)!'Y S SRESNOT=1 D ALLREV Q"
^XMB(3.9,148,2,12999,0)="""RTN"",""SROES"",69,0)"
^XMB(3.9,148,2,13000,0)=" D ^SROESAD I SRESNOT D REVRS,PRESS"
^XMB(3.9,148,2,13001,0)="""RTN"",""SROES"",70,0)"
^XMB(3.9,148,2,13002,0)=" I SRCCASE S SRTN1=SRTN,SRTN=SRCCASE,SRESNOT=0 D ^SROESAD D:SRESNOT REVRS,PRESS S SRTN=SRTN1"
^XMB(3.9,148,2,13003,0)="""RTN"",""SROES"",71,0)"
^XMB(3.9,148,2,13004,0)="UNLOCK D UNLOCK^SROUTL(SRTN),KTMP"
^XMB(3.9,148,2,13005,0)="""RTN"",""SROES"",72,0)"
^XMB(3.9,148,2,13006,0)=" Q"
^XMB(3.9,148,2,13007,0)="""RTN"",""SROES"",73,0)"
^XMB(3.9,148,2,13008,0)="PRESS W ! K DIR S DIR(0)=""FOA"",DIR(""A"")=""Press RETURN to continue... "" D ^DIR K DIR"
^XMB(3.9,148,2,13009,0)="""RTN"",""SROES"",74,0)"
^XMB(3.9,148,2,13010,0)=" Q"
^XMB(3.9,148,2,13011,0)="""RTN"",""SROES"",75,0)"
^XMB(3.9,148,2,13012,0)="ALLREV ; restore modified fields for both concurrent cases"
^XMB(3.9,148,2,13013,0)="""RTN"",""SROES"",76,0)"
^XMB(3.9,148,2,13014,0)=" W !!,""No addendum created.  Original data will be restored."",!!"
^XMB(3.9,148,2,13015,0)="""RTN"",""SROES"",77,0)"
^XMB(3.9,148,2,13016,0)=" D REVRS S SRCCASE=$P($G(^SRF(SRTN,""CON"")),""^"") I SRCCASE S SRTN1=SRTN,SRTN=SRCCASE D REVRS S SRTN=SRTN1"
^XMB(3.9,148,2,13017,0)="""RTN"",""SROES"",78,0)"
^XMB(3.9,148,2,13018,0)=" D UNLOCK,PRESS"
^XMB(3.9,148,2,13019,0)="""RTN"",""SROES"",79,0)"
^XMB(3.9,148,2,13020,0)=" Q"
^XMB(3.9,148,2,13021,0)="""RTN"",""SROES"",80,0)"
^XMB(3.9,148,2,13022,0)="REVRS ; restore modified fields on signed reports"
^XMB(3.9,148,2,13023,0)="""RTN"",""SROES"",81,0)"
^XMB(3.9,148,2,13024,0)=" D REVRS^SROESNR0,REVRS^SROESAR0"
^XMB(3.9,148,2,13025,0)="""RTN"",""SROES"",82,0)"
^XMB(3.9,148,2,13026,0)=" S SROERR=SRTN D ^SROERR0"
^XMB(3.9,148,2,13027,0)="""RTN"",""SROES"",83,0)"
^XMB(3.9,148,2,13028,0)=" Q"
^XMB(3.9,148,2,13029,0)="""RTN"",""SROESNR0"")"
^XMB(3.9,148,2,13030,0)="0^73^B30368515^B29620281"
^XMB(3.9,148,2,13031,0)="""RTN"",""SROESNR0"",1,0)"
^XMB(3.9,148,2,13032,0)="SROESNR0 ;BIR/ADM - NURSE REPORT E-SIG UTILITY ;02/27/04"
^XMB(3.9,148,2,13033,0)="""RTN"",""SROESNR0"",2,0)"
^XMB(3.9,148,2,13034,0)=" ;;3.0; Surgery ;**100,129,147,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,13035,0)="""RTN"",""SROESNR0"",3,0)"
^XMB(3.9,148,2,13036,0)=" ;** NOTICE: This routine is part of an implementation of a nationally"
^XMB(3.9,148,2,13037,0)="""RTN"",""SROESNR0"",4,0)"
^XMB(3.9,148,2,13038,0)=" ;**         controlled procedure. Local modifications to this routine"
^XMB(3.9,148,2,13039,0)="""RTN"",""SROESNR0"",5,0)"
^XMB(3.9,148,2,13040,0)=" ;**         are prohibited."
^XMB(3.9,148,2,13041,0)="""RTN"",""SROESNR0"",6,0)"
^XMB(3.9,148,2,13042,0)=" ;"
^XMB(3.9,148,2,13043,0)="""RTN"",""SROESNR0"",7,0)"
^XMB(3.9,148,2,13044,0)=" ; Reference to ^TMP(""CSLSUR1"" supported by DBIA #3498"
^XMB(3.9,148,2,13045,0)="""RTN"",""SROESNR0"",8,0)"
^XMB(3.9,148,2,13046,0)=" ;"
^XMB(3.9,148,2,13047,0)="""RTN"",""SROESNR0"",9,0)"
^XMB(3.9,148,2,13048,0)="VIEW N SRJ,SRCAT,SRFIELD,SRFLD,SRFILE,SRLN,SRNP,SRN,SRP,SRSUB,SRW,X,Y"
^XMB(3.9,148,2,13049,0)="""RTN"",""SROESNR0"",10,0)"
^XMB(3.9,148,2,13050,0)=" F SRJ=1:1 S SRFLD=$P($T(FIELD+SRJ),"";;"",2) Q:SRFLD=""""  D"
^XMB(3.9,148,2,13051,0)="""RTN"",""SROESNR0"",11,0)"
^XMB(3.9,148,2,13052,0)=" .S SRNP=$P(SRFLD,""^"",3),SRN=$P(SRNP,"";""),SRP=$P(SRNP,"";"",2)"
^XMB(3.9,148,2,13053,0)="""RTN"",""SROESNR0"",12,0)"
^XMB(3.9,148,2,13054,0)=" .S (SRSUB,X)=$P(SRFLD,""^"",2),Y=$P(X,""-"",2),SRFILE=$P(Y,"",""),SRFIELD=$P(Y,"","",2)"
^XMB(3.9,148,2,13055,0)="""RTN"",""SROESNR0"",13,0)"
^XMB(3.9,148,2,13056,0)=" .I SRFIELD=27 Q:'$P($G(^SRF(SRTN,""TIU"")),""^"",6)"
^XMB(3.9,148,2,13057,0)="""RTN"",""SROESNR0"",14,0)"
^XMB(3.9,148,2,13058,0)=" .I SRFIELD=66 Q:'$P($G(^SRF(SRTN,""TIU"")),""^"",7)"
^XMB(3.9,148,2,13059,0)="""RTN"",""SROESNR0"",15,0)"
^XMB(3.9,148,2,13060,0)=" .S SRCAT=$P(SRFLD,""^"") S SRCAT=$S(SRCAT="""":SRFILE,1:SRCAT)"
^XMB(3.9,148,2,13061,0)="""RTN"",""SROESNR0"",16,0)"
^XMB(3.9,148,2,13062,0)=" .S SRW=$S($P(Y,"";"",2)[""W"":1,1:0) I SRW D  Q"
^XMB(3.9,148,2,13063,0)="""RTN"",""SROESNR0"",17,0)"
^XMB(3.9,148,2,13064,0)=" ..S ^TMP(""SRNRAD""_SRS,$J,SRTN,SRCAT,SRSUB,0)=$G(^SRF(SRTN,SRN,0))"
^XMB(3.9,148,2,13065,0)="""RTN"",""SROESNR0"",18,0)"
^XMB(3.9,148,2,13066,0)=" ..I SRS=1 S ^TMP(""SRNSAVE"",$J,SRTN,SRCAT,SRSUB,0)=$G(^SRF(SRTN,SRN,0))"
^XMB(3.9,148,2,13067,0)="""RTN"",""SROESNR0"",19,0)"
^XMB(3.9,148,2,13068,0)=" ..S SRLN=0 F  S SRLN=$O(^SRF(SRTN,SRN,SRLN)) Q:'SRLN  S ^TMP(""SRNRAD""_SRS,$J,SRTN,SRCAT,SRSUB,SRLN)=$G(^SRF(SRTN,SRN,SRLN,0)) I SRS=1 S ^TMP(""SRNSAVE"",$J,SRTN,SRCAT,SRSUB,SRLN)=$G(^SRF(SRTN,SRN,SRLN,0))"
^XMB(3.9,148,2,13069,0)="""RTN"",""SROESNR0"",20,0)"
^XMB(3.9,148,2,13070,0)=" .S ^TMP(""SRNRAD""_SRS,$J,SRTN,SRCAT,SRSUB)=$P($G(^SRF(SRTN,SRN)),""^"",SRP)"
^XMB(3.9,148,2,13071,0)="""RTN"",""SROESNR0"",21,0)"
^XMB(3.9,148,2,13072,0)=" .I SRS=1 S ^TMP(""SRNSAVE"",$J,SRTN,SRCAT,SRSUB)=$P($G(^SRF(SRTN,SRN)),""^"",SRP)"
^XMB(3.9,148,2,13073,0)="""RTN"",""SROESNR0"",22,0)"
^XMB(3.9,148,2,13074,0)=" Q"
^XMB(3.9,148,2,13075,0)="""RTN"",""SROESNR0"",23,0)"
^XMB(3.9,148,2,13076,0)="REVRS ; restore before-edit data"
^XMB(3.9,148,2,13077,0)="""RTN"",""SROESNR0"",24,0)"
^XMB(3.9,148,2,13078,0)=" N I,SRCAT,SRCNT,SRE,SRE1,SRFF,SRFIELD,SRFILE,SRFLD,SRI,SRIEN,SRJ,SRK,SRL,SRLN,SRN,SRNP,SRP,SRSUB,SRVAL,SRW,X,Y"
^XMB(3.9,148,2,13079,0)="""RTN"",""SROESNR0"",25,0)"
^XMB(3.9,148,2,13080,0)=" F SRJ=1:1 S SRFLD=$P($T(FIELD+SRJ),"";;"",2) Q:SRFLD=""""  D"
^XMB(3.9,148,2,13081,0)="""RTN"",""SROESNR0"",26,0)"
^XMB(3.9,148,2,13082,0)=" .S SRNP=$P(SRFLD,""^"",3),SRN=$P(SRNP,"";""),SRP=$P(SRNP,"";"",2)"
^XMB(3.9,148,2,13083,0)="""RTN"",""SROESNR0"",27,0)"
^XMB(3.9,148,2,13084,0)=" .S (SRSUB,X)=$P(SRFLD,""^"",2),Y=$P(X,""-"",2),SRFILE=$P(Y,"",""),SRFIELD=$P(Y,"","",2)"
^XMB(3.9,148,2,13085,0)="""RTN"",""SROESNR0"",28,0)"
^XMB(3.9,148,2,13086,0)=" .S SRCAT=$P(SRFLD,""^"") S SRCAT=$S(SRCAT="""":SRFILE,1:SRCAT)"
^XMB(3.9,148,2,13087,0)="""RTN"",""SROESNR0"",29,0)"
^XMB(3.9,148,2,13088,0)=" .Q:'$D(^TMP(""SRNRAD1"",$J,SRTN,130,SRSUB))"
^XMB(3.9,148,2,13089,0)="""RTN"",""SROESNR0"",30,0)"
^XMB(3.9,148,2,13090,0)=" .S SRW=$S($P(Y,"";"",2)[""W"":1,1:0) I SRW D  Q"
^XMB(3.9,148,2,13091,0)="""RTN"",""SROESNR0"",31,0)"
^XMB(3.9,148,2,13092,0)=" ..K ^SRF(SRTN,SRN) S ^SRF(SRTN,SRN,0)=$G(^TMP(""SRNSAVE"",$J,SRTN,130,SRSUB,0))"
^XMB(3.9,148,2,13093,0)="""RTN"",""SROESNR0"",32,0)"
^XMB(3.9,148,2,13094,0)=" ..S SRLN=0 F  S SRLN=$O(^TMP(""SRNSAVE"",$J,SRTN,130,SRSUB,SRLN)) Q:'SRLN  S ^SRF(SRTN,SRN,SRLN,0)=$G(^TMP(""SRNSAVE"",$J,SRTN,130,SRSUB,SRLN))"
^XMB(3.9,148,2,13095,0)="""RTN"",""SROESNR0"",33,0)"
^XMB(3.9,148,2,13096,0)=" .S SRVAL=$G(^TMP(""SRNSAVE"",$J,SRTN,130,SRSUB)) I SRFIELD=27 D  Q"
^XMB(3.9,148,2,13097,0)="""RTN"",""SROESNR0"",34,0)"
^XMB(3.9,148,2,13098,0)=" ..S $P(^SRF(SRTN,""OP""),""^"",2)=SRVAL K DA,DIK S DA=SRTN,DIK=""^SRF("",DIK(1)=""27"" D EN^DIK K DA,DIK"
^XMB(3.9,148,2,13099,0)="""RTN"",""SROESNR0"",35,0)"
^XMB(3.9,148,2,13100,0)=" ..;Set ^TMP(""CSLSUR1"",$J) in order to send an update trans. via Surgery/CoreFLS interface"
^XMB(3.9,148,2,13101,0)="""RTN"",""SROESNR0"",36,0)"
^XMB(3.9,148,2,13102,0)=" ..S ^TMP(""CSLSUR1"",$J)="""""
^XMB(3.9,148,2,13103,0)="""RTN"",""SROESNR0"",37,0)"
^XMB(3.9,148,2,13104,0)=" .I SRVAL="""" S SRVAL=""@"""
^XMB(3.9,148,2,13105,0)="""RTN"",""SROESNR0"",38,0)"
^XMB(3.9,148,2,13106,0)=" .K DA,DIE,DR S DA=SRTN,DIE=130,DR=SRFIELD_""////^S X=SRVAL"" D ^DIE K DA,DIE,DR"
^XMB(3.9,148,2,13107,0)="""RTN"",""SROESNR0"",39,0)"
^XMB(3.9,148,2,13108,0)=" D REVRS^SROESNRA"
^XMB(3.9,148,2,13109,0)="""RTN"",""SROESNR0"",40,0)"
^XMB(3.9,148,2,13110,0)=" Q"
^XMB(3.9,148,2,13111,0)="""RTN"",""SROESNR0"",41,0)"
^XMB(3.9,148,2,13112,0)="TR S SRP=SRI,SRP=$TR(SRP,""1234567890.,"",""ABCDEFGHIJPK"")"
^XMB(3.9,148,2,13113,0)="""RTN"",""SROESNR0"",42,0)"
^XMB(3.9,148,2,13114,0)=" Q"
^XMB(3.9,148,2,13115,0)="""RTN"",""SROESNR0"",43,0)"
^XMB(3.9,148,2,13116,0)="FIELD ; list of fields (^field name on report-file,field^node;piece)"
^XMB(3.9,148,2,13117,0)="""RTN"",""SROESNR0"",44,0)"
^XMB(3.9,148,2,13118,0)="KPJB ;;^Operating Room-130,.02^0;2"
^XMB(3.9,148,2,13119,0)="""RTN"",""SROESNR0"",45,0)"
^XMB(3.9,148,2,13120,0)="KPJCE ;;^Surgical Priority-130,.035^0;10"
^XMB(3.9,148,2,13121,0)="""RTN"",""SROESNR0"",46,0)"
^XMB(3.9,148,2,13122,0)="KPBJC ;;^Time Patient Arrived in Holding Area-130,.203^.2;15"
^XMB(3.9,148,2,13123,0)="""RTN"",""SROESNR0"",47,0)"
^XMB(3.9,148,2,13124,0)="KPBJE ;;^Time Patient In the O.R.-130,.205^.2;10"
^XMB(3.9,148,2,13125,0)="""RTN"",""SROESNR0"",48,0)"
^XMB(3.9,148,2,13126,0)="KPBB ;;^Time the Operation Began-130,.22^.2;2"
^XMB(3.9,148,2,13127,0)="""RTN"",""SROESNR0"",49,0)"
^XMB(3.9,148,2,13128,0)="KPBC ;;^Time the Operation Ends-130,.23^.2;3"
^XMB(3.9,148,2,13129,0)="""RTN"",""SROESNR0"",50,0)"
^XMB(3.9,148,2,13130,0)="KPBJF ;;^Surgeon Present Time-130,.206^.2;9"
^XMB(3.9,148,2,13131,0)="""RTN"",""SROESNR0"",51,0)"
^XMB(3.9,148,2,13132,0)="KPBCB ;;^Time Patient Out of the O.R.-130,.232^.2;12"
^XMB(3.9,148,2,13133,0)="""RTN"",""SROESNR0"",52,0)"
^XMB(3.9,148,2,13134,0)="KPAD ;;^Surgeon-130,.14^.1;4"
^XMB(3.9,148,2,13135,0)="""RTN"",""SROESNR0"",53,0)"
^XMB(3.9,148,2,13136,0)="KPAE ;;^First Assistant-130,.15^.1;5"
^XMB(3.9,148,2,13137,0)="""RTN"",""SROESNR0"",54,0)"
^XMB(3.9,148,2,13138,0)="KPAFD ;;^Attending Surgeon-130,.164^.1;13"
^XMB(3.9,148,2,13139,0)="""RTN"",""SROESNR0"",55,0)"
^XMB(3.9,148,2,13140,0)="KPAF ;;^Second Assistant-130,.16^.1;6"
^XMB(3.9,148,2,13141,0)="""RTN"",""SROESNR0"",56,0)"
^XMB(3.9,148,2,13142,0)="KPCA ;;^Principal Anesthetist-130,.31^.3;1"
^XMB(3.9,148,2,13143,0)="""RTN"",""SROESNR0"",57,0)"
^XMB(3.9,148,2,13144,0)="KPCC ;;^Assistant Anesthetist-130,.33^.3;3"
^XMB(3.9,148,2,13145,0)="""RTN"",""SROESNR0"",58,0)"
^XMB(3.9,148,2,13146,0)="KPAI ;;^Preoperative Mood-130,.19^.1;9"
^XMB(3.9,148,2,13147,0)="""RTN"",""SROESNR0"",59,0)"
^XMB(3.9,148,2,13148,0)="KPAIF ;;^Preoperative Consciousness-130,.196^.1;15"
^XMB(3.9,148,2,13149,0)="""RTN"",""SROESNR0"",60,0)"
^XMB(3.9,148,2,13150,0)="KPJG ;;^Preoperative Skin Integrity-130,.07^0;7"
^XMB(3.9,148,2,13151,0)="""RTN"",""SROESNR0"",61,0)"
^XMB(3.9,148,2,13152,0)="KPAIE ;;^Preoperative Conversation-130,.195^.1;14"
^XMB(3.9,148,2,13153,0)="""RTN"",""SROESNR0"",62,0)"
^XMB(3.9,148,2,13154,0)="KPFI ;;^Person Confirming ID Band and Valid Consent-130,.69^.6;9"
^XMB(3.9,148,2,13155,0)="""RTN"",""SROESNR0"",63,0)"
^XMB(3.9,148,2,13156,0)="KGA ;;^Time Out Verification Completed (Y/N)-130,71^VER;3"
^XMB(3.9,148,2,13157,0)="""RTN"",""SROESNR0"",64,0)"
^XMB(3.9,148,2,13158,0)="KGB ;;^Preoperative Imaging Confirmed-130,72^VER;4"
^XMB(3.9,148,2,13159,0)="""RTN"",""SROESNR0"",65,0)"
^XMB(3.9,148,2,13160,0)="KGC ;;^Mark on Surgical Site Confirmed-130,73^VER;5"
^XMB(3.9,148,2,13161,0)="""RTN"",""SROESNR0"",66,0)"
^XMB(3.9,148,2,13162,0)="KGD ;;^Correct Surgery Comments-130,74;W^74;0"
^XMB(3.9,148,2,13163,0)="""RTN"",""SROESNR0"",67,0)"
^XMB(3.9,148,2,13164,0)="KHB ;;^Time Out Verified Comments-130,82;W^82;0"
^XMB(3.9,148,2,13165,0)="""RTN"",""SROESNR0"",68,0)"
^XMB(3.9,148,2,13166,0)="KHC ;;^Imaging Confirmed Comments-130,83;W^83;0"
^XMB(3.9,148,2,13167,0)="""RTN"",""SROESNR0"",69,0)"
^XMB(3.9,148,2,13168,0)="KHD ;;^Marked Site Comments-130,84;W^84;0"
^XMB(3.9,148,2,13169,0)="""RTN"",""SROESNR0"",70,0)"
^XMB(3.9,148,2,13170,0)="KPAH ;;^Skin Prepped By-130,.18^.1;8"
^XMB(3.9,148,2,13171,0)="""RTN"",""SROESNR0"",71,0)"
^XMB(3.9,148,2,13172,0)="KPAGE ;;^Skin Preparation Agent-130,.175^.1;7"
^XMB(3.9,148,2,13173,0)="""RTN"",""SROESNR0"",72,0)"
^XMB(3.9,148,2,13174,0)="KD ;;^Skin Prepped By (2)-130,4^.1;12"
^XMB(3.9,148,2,13175,0)="""RTN"",""SROESNR0"",73,0)"
^XMB(3.9,148,2,13176,0)="KH ;;^Second Skin Preparation Agent-130,8^31;2"
^XMB(3.9,148,2,13177,0)="""RTN"",""SROESNR0"",74,0)"
^XMB(3.9,148,2,13178,0)="KPAB ;;^Preop Hair Removal by-130,.12^.1;2"
^XMB(3.9,148,2,13179,0)="""RTN"",""SROESNR0"",75,0)"
^XMB(3.9,148,2,13180,0)="KEJF ;;^Hair Removal Method-130,506^VER;6"
^XMB(3.9,148,2,13181,0)="""RTN"",""SROESNR0"",76,0)"
^XMB(3.9,148,2,13182,0)="KEJH ;;^Hair Removal Comments-130,508;W^49;0"
^XMB(3.9,148,2,13183,0)="""RTN"",""SROESNR0"",77,0)"
^XMB(3.9,148,2,13184,0)="KPGE ;;^Electrocautery Unit-130,.75^.7;5"
^XMB(3.9,148,2,13185,0)="""RTN"",""SROESNR0"",78,0)"
^XMB(3.9,148,2,13186,0)="KPEE ;;^Electroground Placement-130,.55^.5;4"
^XMB(3.9,148,2,13187,0)="""RTN"",""SROESNR0"",79,0)"
^XMB(3.9,148,2,13188,0)="KF ;;^Electroground Position (2)-130,6^.5;13"
^XMB(3.9,148,2,13189,0)="""RTN"",""SROESNR0"",80,0)"
^XMB(3.9,148,2,13190,0)="KEG ;;^ESU Coagulation Range-130,57^.7;1"
^XMB(3.9,148,2,13191,0)="""RTN"",""SROESNR0"",81,0)"
^XMB(3.9,148,2,13192,0)="KEGC ;;^ESU Cutting Range-130,58^.7;2"
^XMB(3.9,148,2,13193,0)="""RTN"",""SROESNR0"",82,0)"
^XMB(3.9,148,2,13194,0)="KPJC ;;^Major or Minor-130,.03^0;3"
^XMB(3.9,148,2,13195,0)="""RTN"",""SROESNR0"",83,0)"
^XMB(3.9,148,2,13196,0)="KBF ;;^Principal Procedure-130,26^OP;1"
^XMB(3.9,148,2,13197,0)="""RTN"",""SROESNR0"",84,0)"
^XMB(3.9,148,2,13198,0)="KBG ;;^Principal CPT Code-130,27^OP;2"
^XMB(3.9,148,2,13199,0)="""RTN"",""SROESNR0"",85,0)"
^XMB(3.9,148,2,13200,0)="KFF ;;^Principal Diagnosis Code-130,66^34;2"
^XMB(3.9,148,2,13201,0)="""RTN"",""SROESNR0"",86,0)"
^XMB(3.9,148,2,13202,0)="KBB ;;^Tubes and Drains-130,22^3;1"
^XMB(3.9,148,2,13203,0)="""RTN"",""SROESNR0"",87,0)"
^XMB(3.9,148,2,13204,0)="KDD ;;^Final Sponge Count Correct (Y/N)-130,44^25;1"
^XMB(3.9,148,2,13205,0)="""RTN"",""SROESNR0"",88,0)"
^XMB(3.9,148,2,13206,0)="KDE ;;^Final Sharps Count Correct (Y/N)-130,45^25;2"
^XMB(3.9,148,2,13207,0)="""RTN"",""SROESNR0"",89,0)"
^XMB(3.9,148,2,13208,0)="KDF ;;^Final Instrument Count Correct (Y/N)-130,46^25;3"
^XMB(3.9,148,2,13209,0)="""RTN"",""SROESNR0"",90,0)"
^XMB(3.9,148,2,13210,0)="KDG ;;^Person Responsible for Final Counts-130,47^25;4"
^XMB(3.9,148,2,13211,0)="""RTN"",""SROESNR0"",91,0)"
^XMB(3.9,148,2,13212,0)="KDH ;;^Count Verifier-130,48^25;5"
^XMB(3.9,148,2,13213,0)="""RTN"",""SROESNR0"",92,0)"
^XMB(3.9,148,2,13214,0)="KDA ;;^Dressing(s)-130,41^35;1"
^XMB(3.9,148,2,13215,0)="""RTN"",""SROESNR0"",93,0)"
^XMB(3.9,148,2,13216,0)="KPHGE ;;^Packing Type-130,.875^.8;11"
^XMB(3.9,148,2,13217,0)="""RTN"",""SROESNR0"",94,0)"
^XMB(3.9,148,2,13218,0)="KPBE ;;^Intraoperative Blood Loss (ml)-130,.25^.2;5"
^XMB(3.9,148,2,13219,0)="""RTN"",""SROESNR0"",95,0)"
^XMB(3.9,148,2,13220,0)="KPBEE ;;^Total Urine Output (ml)-130,.255^.2;16"
^XMB(3.9,148,2,13221,0)="""RTN"",""SROESNR0"",96,0)"
^XMB(3.9,148,2,13222,0)="KPHA ;;^Postoperative Mood-130,.81^.8;1"
^XMB(3.9,148,2,13223,0)="""RTN"",""SROESNR0"",97,0)"
^XMB(3.9,148,2,13224,0)="KPHBA ;;^Postoperative Consciousness-130,.821^.8;10"
^XMB(3.9,148,2,13225,0)="""RTN"",""SROESNR0"",98,0)"
^XMB(3.9,148,2,13226,0)="KPGF ;;^Postoperative Skin Integrity-130,.76^.7;6"
^XMB(3.9,148,2,13227,0)="""RTN"",""SROESNR0"",99,0)"
^XMB(3.9,148,2,13228,0)="KPGG ;;^Postoperative Skin Color-130,.77^.7;7"
^XMB(3.9,148,2,13229,0)="""RTN"",""SROESNR0"",100,0)"
^XMB(3.9,148,2,13230,0)="KABH ;;^Type of Laser-130,128^.7;8"
^XMB(3.9,148,2,13231,0)="""RTN"",""SROESNR0"",101,0)"
^XMB(3.9,148,2,13232,0)="KABG ;;^Sequential Compression Device (Y/N)-130,127^.7;3"
^XMB(3.9,148,2,13233,0)="""RTN"",""SROESNR0"",102,0)"
^XMB(3.9,148,2,13234,0)="KAPJI ;;^Wound Classification-130,1.09^1.0;8"
^XMB(3.9,148,2,13235,0)="""RTN"",""SROESNR0"",103,0)"
^XMB(3.9,148,2,13236,0)="KPDF ;;^Postoperative Disposition-130,.46^.4;6"
^XMB(3.9,148,2,13237,0)="""RTN"",""SROESNR0"",104,0)"
^XMB(3.9,148,2,13238,0)="KBE ;;^Patient Discharged Via-130,25^.7;4"
^XMB(3.9,148,2,13239,0)="""RTN"",""SROESNR0"",105,0)"
^XMB(3.9,148,2,13240,0)="KACA ;;^Device(s)-130,131^46;1"
^XMB(3.9,148,2,13241,0)="""RTN"",""SROESNR0"",106,0)"
^XMB(3.9,148,2,13242,0)="KDI ;;^Specimens-130,49;W^9;0"
^XMB(3.9,148,2,13243,0)="""RTN"",""SROESNR0"",107,0)"
^XMB(3.9,148,2,13244,0)="KFD ;;^Cultures-130,64;W^41;0"
^XMB(3.9,148,2,13245,0)="""RTN"",""SROESNR0"",108,0)"
^XMB(3.9,148,2,13246,0)="KPBI ;;^Nursing Care Comments-130,.29;W^7;0"
^XMB(3.9,148,2,13247,0)="""RTN"",""SRONIN"")"
^XMB(3.9,148,2,13248,0)="0^74^B64007780^B60628354"
^XMB(3.9,148,2,13249,0)="""RTN"",""SRONIN"",1,0)"
^XMB(3.9,148,2,13250,0)="SRONIN ;BIR/MAM,ADM - NURSE INTRAOPERATIVE REPORT ;05/30/06"
^XMB(3.9,148,2,13251,0)="""RTN"",""SRONIN"",2,0)"
^XMB(3.9,148,2,13252,0)=" ;;3.0; Surgery ;**68,50,100,129,134,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,13253,0)="""RTN"",""SRONIN"",3,0)"
^XMB(3.9,148,2,13254,0)=" ;** NOTICE: This routine is part of an implementation of a nationally"
^XMB(3.9,148,2,13255,0)="""RTN"",""SRONIN"",4,0)"
^XMB(3.9,148,2,13256,0)=" ;**         controlled procedure. Local modifications to this routine"
^XMB(3.9,148,2,13257,0)="""RTN"",""SRONIN"",5,0)"
^XMB(3.9,148,2,13258,0)=" ;**         are prohibited."
^XMB(3.9,148,2,13259,0)="""RTN"",""SRONIN"",6,0)"
^XMB(3.9,148,2,13260,0)=" ;"
^XMB(3.9,148,2,13261,0)="""RTN"",""SRONIN"",7,0)"
^XMB(3.9,148,2,13262,0)=" ; Reference to UPDATE^TIUSRVP supported by DBIA #3535"
^XMB(3.9,148,2,13263,0)="""RTN"",""SRONIN"",8,0)"
^XMB(3.9,148,2,13264,0)=" ; Reference to ES^TIUSROI supported by DBIA #3537"
^XMB(3.9,148,2,13265,0)="""RTN"",""SRONIN"",9,0)"
^XMB(3.9,148,2,13266,0)=" ; Reference to EXTRACT^TIULQ supported by DBIA #2693"
^XMB(3.9,148,2,13267,0)="""RTN"",""SRONIN"",10,0)"
^XMB(3.9,148,2,13268,0)=" ;"
^XMB(3.9,148,2,13269,0)="""RTN"",""SRONIN"",11,0)"
^XMB(3.9,148,2,13270,0)=" I '$D(SRSITE) D ^SROVAR G:'$D(SRSITE) END S SRSITE(""KILL"")=1"
^XMB(3.9,148,2,13271,0)="""RTN"",""SRONIN"",12,0)"
^XMB(3.9,148,2,13272,0)=" I '$D(SRTN) K SRNEWOP D ^SROPS G:'$D(SRTN) END S SRTN(""KILL"")=1"
^XMB(3.9,148,2,13273,0)="""RTN"",""SRONIN"",13,0)"
^XMB(3.9,148,2,13274,0)=" N SRAGE,SRDIV,SRDIVNM,SRDO,SRFUNCT,SRHDR,SRINUSE,SRLEAVE,SRLOC,SRPARAM,SRPRINT,SRSEL,SRSINED,SRDTITL,SRTIU,SRSTAT,SRXX"
^XMB(3.9,148,2,13275,0)="""RTN"",""SRONIN"",14,0)"
^XMB(3.9,148,2,13276,0)=" S SRDTITL=""Nurse Intraoperative Report"""
^XMB(3.9,148,2,13277,0)="""RTN"",""SRONIN"",15,0)"
^XMB(3.9,148,2,13278,0)=" S (SRFUNCT,SRLEAVE,SRSINED)=0,SRTIU=$P($G(^SRF(SRTN,""TIU"")),""^"",2)"
^XMB(3.9,148,2,13279,0)="""RTN"",""SRONIN"",16,0)"
^XMB(3.9,148,2,13280,0)=" I SRTIU,$$STATUS^SROESUTL(SRTIU)=7 S SRSINED=1"
^XMB(3.9,148,2,13281,0)="""RTN"",""SRONIN"",17,0)"
^XMB(3.9,148,2,13282,0)=" D:SRSINED FUNCT D:'SRSINED EN"
^XMB(3.9,148,2,13283,0)="""RTN"",""SRONIN"",18,0)"
^XMB(3.9,148,2,13284,0)="ENF I 'SRLEAVE,SRFUNCT S SRSEL="""" D FUNCT"
^XMB(3.9,148,2,13285,0)="""RTN"",""SRONIN"",19,0)"
^XMB(3.9,148,2,13286,0)=" D END"
^XMB(3.9,148,2,13287,0)="""RTN"",""SRONIN"",20,0)"
^XMB(3.9,148,2,13288,0)=" Q"
^XMB(3.9,148,2,13289,0)="""RTN"",""SRONIN"",21,0)"
^XMB(3.9,148,2,13290,0)="DISPLY I SRSINED S SRTIU=$P($G(^SRF(SRTN,""TIU"")),""^"",2) I SRTIU D PRNT^SROESPR(SRTN,SRTIU,SRDTITL) S SRLEAVE=1 Q"
^XMB(3.9,148,2,13291,0)="""RTN"",""SRONIN"",22,0)"
^XMB(3.9,148,2,13292,0)=" K %ZIS,IO(""Q"") S %ZIS=""Q"" D ^%ZIS I POP S SRLEAVE=1 Q"
^XMB(3.9,148,2,13293,0)="""RTN"",""SRONIN"",23,0)"
^XMB(3.9,148,2,13294,0)=" I $D(IO(""Q"")) K IO(""Q"") N ZTRTN,ZTDESC,ZTSAVE,ZTQUEUED S ZTRTN=""PRNT^SRONIN"",ZTDESC=SRDTITL,(ZTSAVE(""SRTN""),ZTSAVE(""SRSITE*""))="""" D ^%ZTLOAD,^%ZISC Q"
^XMB(3.9,148,2,13295,0)="""RTN"",""SRONIN"",24,0)"
^XMB(3.9,148,2,13296,0)="EN D RPT^SRONRPT(SRTN) S DFN=$P(^SRF(SRTN,0),""^""),VAINDT=$P(^SRF(SRTN,0),""^"",9)"
^XMB(3.9,148,2,13297,0)="""RTN"",""SRONIN"",25,0)"
^XMB(3.9,148,2,13298,0)=" S Y=$E(VAINDT,1,7) D D^DIQ S SRSDATE=Y D OERR^VADPT"
^XMB(3.9,148,2,13299,0)="""RTN"",""SRONIN"",26,0)"
^XMB(3.9,148,2,13300,0)=" S SRHDR="" ""_VADM(1)_"" (""_VA(""PID"")_"")   Case #""_SRTN_"" - ""_SRSDATE"
^XMB(3.9,148,2,13301,0)="""RTN"",""SRONIN"",27,0)"
^XMB(3.9,148,2,13302,0)=" S Y=$E($$NOW^XLFDT,1,12) D DD^%DT S SRPRINT=""Printed: ""_Y"
^XMB(3.9,148,2,13303,0)="""RTN"",""SRONIN"",28,0)"
^XMB(3.9,148,2,13304,0)=" S SRLOC="" Pt Loc: ""_$P(VAIN(4),""^"",2)_""  ""_VAIN(5)"
^XMB(3.9,148,2,13305,0)="""RTN"",""SRONIN"",29,0)"
^XMB(3.9,148,2,13306,0)=" S SRAGE="""",Z=$P(VADM(3),""^"") I Z S X=$E($P(^SRF(SRTN,0),""^"",9),1,12),Y=$E(X,1,7),SRAGE=$E(Y,1,3)-$E(Z,1,3)-($E(Y,4,7)<$E(Z,4,7))"
^XMB(3.9,148,2,13307,0)="""RTN"",""SRONIN"",30,0)"
^XMB(3.9,148,2,13308,0)=" S SRDIV=$$SITE^SROUTL0(SRTN),SRDIVNM="""" I SRDIV S X=$P(^SRO(133,SRDIV,0),""^""),SRDIVNM=$$EXTERNAL^DILFD(133,.01,"""",X)"
^XMB(3.9,148,2,13309,0)="""RTN"",""SRONIN"",31,0)"
^XMB(3.9,148,2,13310,0)=" S SRDIVNM=$S(SRDIVNM'="""":SRDIVNM,1:SRSITE(""SITE""))"
^XMB(3.9,148,2,13311,0)="""RTN"",""SRONIN"",32,0)"
^XMB(3.9,148,2,13312,0)=" U IO S (SRPAGE,SRSOUT)=0,$P(SRLINE,""-"",80)="""" D HDR"
^XMB(3.9,148,2,13313,0)="""RTN"",""SRONIN"",33,0)"
^XMB(3.9,148,2,13314,0)=" S SRI=0 F  S SRI=$O(^TMP(""SRNIR"",$J,SRTN,SRI)) Q:'SRI  D  Q:SRSOUT"
^XMB(3.9,148,2,13315,0)="""RTN"",""SRONIN"",34,0)"
^XMB(3.9,148,2,13316,0)=" .I $E(IOST)=""P"",$Y+11>IOSL D FOOT Q:SRSOUT  D HDR"
^XMB(3.9,148,2,13317,0)="""RTN"",""SRONIN"",35,0)"
^XMB(3.9,148,2,13318,0)=" .I $E(IOST)'=""P"",$Y+4>IOSL D FOOT Q:SRSOUT  D HDR"
^XMB(3.9,148,2,13319,0)="""RTN"",""SRONIN"",36,0)"
^XMB(3.9,148,2,13320,0)=" .W !,^TMP(""SRNIR"",$J,SRTN,SRI)"
^XMB(3.9,148,2,13321,0)="""RTN"",""SRONIN"",37,0)"
^XMB(3.9,148,2,13322,0)=" I SRSOUT D ^%ZISC Q "
^XMB(3.9,148,2,13323,0)="""RTN"",""SRONIN"",38,0)"
^XMB(3.9,148,2,13324,0)=" D FOOT D  D ^%ZISC"
^XMB(3.9,148,2,13325,0)="""RTN"",""SRONIN"",39,0)"
^XMB(3.9,148,2,13326,0)=" .I $D(SRALRT) S SRFUNCT=1 Q"
^XMB(3.9,148,2,13327,0)="""RTN"",""SRONIN"",40,0)"
^XMB(3.9,148,2,13328,0)=" .I '$G(SRFUNCT) S SRLEAVE=1"
^XMB(3.9,148,2,13329,0)="""RTN"",""SRONIN"",41,0)"
^XMB(3.9,148,2,13330,0)=" Q"
^XMB(3.9,148,2,13331,0)="""RTN"",""SRONIN"",42,0)"
^XMB(3.9,148,2,13332,0)="SRHDR S DFN=$P(^SRF(SRTN,0),""^"") D DEM^VADPT"
^XMB(3.9,148,2,13333,0)="""RTN"",""SRONIN"",43,0)"
^XMB(3.9,148,2,13334,0)=" S Y=$E($P(^SRF(SRTN,0),""^"",9),1,7) D D^DIQ S SRSDATE=Y"
^XMB(3.9,148,2,13335,0)="""RTN"",""SRONIN"",44,0)"
^XMB(3.9,148,2,13336,0)=" S SRHDR="" ""_VADM(1)_"" (""_VA(""PID"")_"")   Case #""_SRTN_"" - ""_SRSDATE"
^XMB(3.9,148,2,13337,0)="""RTN"",""SRONIN"",45,0)"
^XMB(3.9,148,2,13338,0)=" Q"
^XMB(3.9,148,2,13339,0)="""RTN"",""SRONIN"",46,0)"
^XMB(3.9,148,2,13340,0)="PRNT N SRDIV,SRFUNCT,SRLEAVE D EN"
^XMB(3.9,148,2,13341,0)="""RTN"",""SRONIN"",47,0)"
^XMB(3.9,148,2,13342,0)="END K ^TMP(""SRNIR"",$J)"
^XMB(3.9,148,2,13343,0)="""RTN"",""SRONIN"",48,0)"
^XMB(3.9,148,2,13344,0)=" W @IOF I $D(ZTQUEUED) Q:$G(ZTSTOP)  S ZTREQ=""@"" Q"
^XMB(3.9,148,2,13345,0)="""RTN"",""SRONIN"",49,0)"
^XMB(3.9,148,2,13346,0)=" D ^SRSKILL K VAIN,VAINDT I $D(SRSITE(""KILL"")) K SRSITE"
^XMB(3.9,148,2,13347,0)="""RTN"",""SRONIN"",50,0)"
^XMB(3.9,148,2,13348,0)=" I $D(SRTN(""KILL"")) K SRTN"
^XMB(3.9,148,2,13349,0)="""RTN"",""SRONIN"",51,0)"
^XMB(3.9,148,2,13350,0)=" Q"
^XMB(3.9,148,2,13351,0)="""RTN"",""SRONIN"",52,0)"
^XMB(3.9,148,2,13352,0)="PAGE I $D(SRNOEDIT) D LAST Q"
^XMB(3.9,148,2,13353,0)="""RTN"",""SRONIN"",53,0)"
^XMB(3.9,148,2,13354,0)=" S (SRFUNCT,SRSOUT)=0"
^XMB(3.9,148,2,13355,0)="""RTN"",""SRONIN"",54,0)"
^XMB(3.9,148,2,13356,0)=" W ! K DIR S DIR(0)=""FOA"",DIR(""A"",1)="" Press <return> to continue, 'A' to access Nurse Intraoperative Report"",DIR(""A"")="" functions, or '^' to exit: "" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S (SRLEAVE,SRSOUT)=1 Q"
^XMB(3.9,148,2,13357,0)="""RTN"",""SRONIN"",55,0)"
^XMB(3.9,148,2,13358,0)=" I X=""A""!(X=""a"") S (SRFUNCT,SRSOUT)=1"
^XMB(3.9,148,2,13359,0)="""RTN"",""SRONIN"",56,0)"
^XMB(3.9,148,2,13360,0)=" Q"
^XMB(3.9,148,2,13361,0)="""RTN"",""SRONIN"",57,0)"
^XMB(3.9,148,2,13362,0)="LAST W ! K DIR S DIR(0)=""E"" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1"
^XMB(3.9,148,2,13363,0)="""RTN"",""SRONIN"",58,0)"
^XMB(3.9,148,2,13364,0)=" Q"
^XMB(3.9,148,2,13365,0)="""RTN"",""SRONIN"",59,0)"
^XMB(3.9,148,2,13366,0)="FOOT ; print footer"
^XMB(3.9,148,2,13367,0)="""RTN"",""SRONIN"",60,0)"
^XMB(3.9,148,2,13368,0)=" Q:SRSOUT  I $E(IOST)'=""P"" D PAGE Q"
^XMB(3.9,148,2,13369,0)="""RTN"",""SRONIN"",61,0)"
^XMB(3.9,148,2,13370,0)=" I IOSL-9>$Y F X=$Y:1:(IOSL-10) W !"
^XMB(3.9,148,2,13371,0)="""RTN"",""SRONIN"",62,0)"
^XMB(3.9,148,2,13372,0)=" W !,SRLINE,!,VADM(1),?50,SRPRINT,!,VA(""PID"")_""  Age: ""_SRAGE,?50,SRLOC,!,SRDIVNM,?59,""Vice SF 509"",!,SRLINE"
^XMB(3.9,148,2,13373,0)="""RTN"",""SRONIN"",63,0)"
^XMB(3.9,148,2,13374,0)=" Q"
^XMB(3.9,148,2,13375,0)="""RTN"",""SRONIN"",64,0)"
^XMB(3.9,148,2,13376,0)="HDR ; heading"
^XMB(3.9,148,2,13377,0)="""RTN"",""SRONIN"",65,0)"
^XMB(3.9,148,2,13378,0)=" I $D(ZTQUEUED) D ^SROSTOP I SRHALT S SRSOUT=1 Q"
^XMB(3.9,148,2,13379,0)="""RTN"",""SRONIN"",66,0)"
^XMB(3.9,148,2,13380,0)=" S SRPAGE=SRPAGE+1 I $Y'=0 W @IOF"
^XMB(3.9,148,2,13381,0)="""RTN"",""SRONIN"",67,0)"
^XMB(3.9,148,2,13382,0)=" I $E(IOST)'=""P"",SRPAGE=1 S DFN=$P(^SRF(SRTN,0),""^"") D DEM^VADPT S SRXX=VADM(1)_"" (""_VA(""PID"")_"")"" W !,?(80-$L(SRXX)\2),SRXX"
^XMB(3.9,148,2,13383,0)="""RTN"",""SRONIN"",68,0)"
^XMB(3.9,148,2,13384,0)=" W:$E(IOST)=""P"" !!!!,SRLINE W !,?3,""MEDICAL RECORD       NURSE INTRAOPERATIVE REPORT - CASE #""_SRTN,?(79-$L(""PAGE ""_SRPAGE)),""PAGE ""_SRPAGE,!"
^XMB(3.9,148,2,13385,0)="""RTN"",""SRONIN"",69,0)"
^XMB(3.9,148,2,13386,0)=" W:$E(IOST)=""P"" SRLINE,!"
^XMB(3.9,148,2,13387,0)="""RTN"",""SRONIN"",70,0)"
^XMB(3.9,148,2,13388,0)=" Q"
^XMB(3.9,148,2,13389,0)="""RTN"",""SRONIN"",71,0)"
^XMB(3.9,148,2,13390,0)="FUNCT ; nurse intraop report functions"
^XMB(3.9,148,2,13391,0)="""RTN"",""SRONIN"",72,0)"
^XMB(3.9,148,2,13392,0)=" K SRALRT"
^XMB(3.9,148,2,13393,0)="""RTN"",""SRONIN"",73,0)"
^XMB(3.9,148,2,13394,0)=" D:'$D(SRHDR) SRHDR S SRSOUT=0,SRTIU=$P($G(^SRF(SRTN,""TIU"")),""^"",2)"
^XMB(3.9,148,2,13395,0)="""RTN"",""SRONIN"",74,0)"
^XMB(3.9,148,2,13396,0)=" I 'SRSINED,SRTIU,$$STATUS^SROESUTL(SRTIU)=7 S SRSINED=1"
^XMB(3.9,148,2,13397,0)="""RTN"",""SRONIN"",75,0)"
^XMB(3.9,148,2,13398,0)=" W @IOF,!,SRHDR I SRSINED W !!,"" * * The Nurse Intraoperative Report has been electronically signed. * *"""
^XMB(3.9,148,2,13399,0)="""RTN"",""SRONIN"",76,0)"
^XMB(3.9,148,2,13400,0)=" W !!,"" Nurse Intraoperative Report Functions:"",!"
^XMB(3.9,148,2,13401,0)="""RTN"",""SRONIN"",77,0)"
^XMB(3.9,148,2,13402,0)=" S DIR(""A"",1)=""  1. Edit report information"",DIR(""A"",2)=""  2. Print/View report from beginning"""
^XMB(3.9,148,2,13403,0)="""RTN"",""SRONIN"",78,0)"
^XMB(3.9,148,2,13404,0)=" S DIR(""A"",3)=$S('SRTIU:"""",'SRSINED:""  3. Sign the report electronically"",1:"""") I SRTIU,'SRSINED S DIR(""A"",4)="""""
^XMB(3.9,148,2,13405,0)="""RTN"",""SRONIN"",79,0)"
^XMB(3.9,148,2,13406,0)=" S DIR(""A"")=""Select number: "",DIR(""B"")=2,DIR(0)=""SAM^1:Edit report information;2:Print/View report from beginning""_$S(('SRSINED&SRTIU):"";3:Sign the report electronically"",1:"""")"
^XMB(3.9,148,2,13407,0)="""RTN"",""SRONIN"",80,0)"
^XMB(3.9,148,2,13408,0)=" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S (SRLEAVE,SRSOUT)=1 D END Q"
^XMB(3.9,148,2,13409,0)="""RTN"",""SRONIN"",81,0)"
^XMB(3.9,148,2,13410,0)=" S SRSEL=Y,SRDO=$S(SRSEL=1:""EDIT"",SRSEL=3:""SIGN"",1:""DISPLY"")"
^XMB(3.9,148,2,13411,0)="""RTN"",""SRONIN"",82,0)"
^XMB(3.9,148,2,13412,0)=" D @SRDO D UNLOCK^SROUTL(SRTN)"
^XMB(3.9,148,2,13413,0)="""RTN"",""SRONIN"",83,0)"
^XMB(3.9,148,2,13414,0)=" S SRSOUT=0,SRFUNCT=1 D ENF"
^XMB(3.9,148,2,13415,0)="""RTN"",""SRONIN"",84,0)"
^XMB(3.9,148,2,13416,0)=" Q"
^XMB(3.9,148,2,13417,0)="""RTN"",""SRONIN"",85,0)"
^XMB(3.9,148,2,13418,0)="EDIT ; edit report data fields"
^XMB(3.9,148,2,13419,0)="""RTN"",""SRONIN"",86,0)"
^XMB(3.9,148,2,13420,0)=" D CHECK^SROES I SRSOUT Q"
^XMB(3.9,148,2,13421,0)="""RTN"",""SRONIN"",87,0)"
^XMB(3.9,148,2,13422,0)=" N SROLOCK,SRX,SRZ D ^SROLOCK I SROLOCK S Q3(""VIEW"")="""""
^XMB(3.9,148,2,13423,0)="""RTN"",""SRONIN"",88,0)"
^XMB(3.9,148,2,13424,0)=" N SRLCK S SRLCK=$$LOCK^SROUTL(SRTN) I 'SRLCK Q"
^XMB(3.9,148,2,13425,0)="""RTN"",""SRONIN"",89,0)"
^XMB(3.9,148,2,13426,0)=" K DA,DR,DIE S SRDTIME=DTIME,DTIME=3600,DIE=130,DA=SRTN,DR=""[SRONRPT]"",ST=""NURSE INTRAOP""_$S(SROLOCK:"" **LOCKED"",1:"""") D EN2^SROVAR,^SRCUSS S DTIME=SRDTIME K Q3(""VIEW"")"
^XMB(3.9,148,2,13427,0)="""RTN"",""SRONIN"",90,0)"
^XMB(3.9,148,2,13428,0)=" I '$P(^SRF(SRTN,0),""^"",20) D ^SROPCE1"
^XMB(3.9,148,2,13429,0)="""RTN"",""SRONIN"",91,0)"
^XMB(3.9,148,2,13430,0)=" I $D(SRODR) D ^SROCON1"
^XMB(3.9,148,2,13431,0)="""RTN"",""SRONIN"",92,0)"
^XMB(3.9,148,2,13432,0)=" S SROERR=SRTN D ^SROERR0"
^XMB(3.9,148,2,13433,0)="""RTN"",""SRONIN"",93,0)"
^XMB(3.9,148,2,13434,0)=" D EXIT^SROES"
^XMB(3.9,148,2,13435,0)="""RTN"",""SRONIN"",94,0)"
^XMB(3.9,148,2,13436,0)=" Q"
^XMB(3.9,148,2,13437,0)="""RTN"",""SRONIN"",95,0)"
^XMB(3.9,148,2,13438,0)="SIGN ; sign report if appropriate user"
^XMB(3.9,148,2,13439,0)="""RTN"",""SRONIN"",96,0)"
^XMB(3.9,148,2,13440,0)=" N SRLCK,SRESIG S SRESIG=1,SRLCK=$$LOCK^SROUTL(SRTN) I 'SRLCK Q"
^XMB(3.9,148,2,13441,0)="""RTN"",""SRONIN"",97,0)"
^XMB(3.9,148,2,13442,0)=" N SRMISS,SRNUR,SROK,SRA,SRII,SRJ,Y S SRII=$P($G(^SRF(SRTN,""TIU"")),""^"",2)"
^XMB(3.9,148,2,13443,0)="""RTN"",""SRONIN"",98,0)"
^XMB(3.9,148,2,13444,0)=" S (SROK,SRNUR,SRJ)=0 F  S SRNUR=$O(^SRF(SRTN,19,SRNUR)) Q:'SRNUR  S SRJ=1 I $P(^SRF(SRTN,19,SRNUR,0),""^"")=DUZ S SROK=1 Q"
^XMB(3.9,148,2,13445,0)="""RTN"",""SRONIN"",99,0)"
^XMB(3.9,148,2,13446,0)=" I $D(^XUSEC(""SROCHIEF"",DUZ)) S SROK=1"
^XMB(3.9,148,2,13447,0)="""RTN"",""SRONIN"",100,0)"
^XMB(3.9,148,2,13448,0)=" I 'SROK,'SRJ,SRII D EXTRACT^TIULQ(SRII,""SRA"",.SRERR,""1302"") I +$G(SRA(SRII,1302,""I""))=DUZ S SROK=1"
^XMB(3.9,148,2,13449,0)="""RTN"",""SRONIN"",101,0)"
^XMB(3.9,148,2,13450,0)=" I 'SROK W !!,""Sorry, you are not authorized to sign this report."" H 2 Q"
^XMB(3.9,148,2,13451,0)="""RTN"",""SRONIN"",102,0)"
^XMB(3.9,148,2,13452,0)=" S SRMISS=0 D ALLIN Q:SRSOUT!SRMISS"
^XMB(3.9,148,2,13453,0)="""RTN"",""SRONIN"",103,0)"
^XMB(3.9,148,2,13454,0)="ES D RPT^SRONRPT(SRTN) N SRAY,SRERR,SRI,SRP,SRSIG,SRTIU,X1"
^XMB(3.9,148,2,13455,0)="""RTN"",""SRONIN"",104,0)"
^XMB(3.9,148,2,13456,0)=" S SRTIU=$P($G(^SRF(SRTN,""TIU"")),""^"",2)"
^XMB(3.9,148,2,13457,0)="""RTN"",""SRONIN"",105,0)"
^XMB(3.9,148,2,13458,0)=" D SIG^XUSESIG I X1="""" W !!,""Signature failed."" H 2 Q"
^XMB(3.9,148,2,13459,0)="""RTN"",""SRONIN"",106,0)"
^XMB(3.9,148,2,13460,0)=" F I=1:1 Q:'$D(^TMP(""SRNIR"",$J,SRTN,I))  S SRAY(""TEXT"",I,0)=^TMP(""SRNIR"",$J,SRTN,I)"
^XMB(3.9,148,2,13461,0)="""RTN"",""SRONIN"",107,0)"
^XMB(3.9,148,2,13462,0)=" S SRAY(.05)=5 D UPDATE^TIUSRVP(.SRERR,SRTIU,.SRAY,1) K SRAY"
^XMB(3.9,148,2,13463,0)="""RTN"",""SRONIN"",108,0)"
^XMB(3.9,148,2,13464,0)=" I +SRERR S SRSINED=1 D"
^XMB(3.9,148,2,13465,0)="""RTN"",""SRONIN"",109,0)"
^XMB(3.9,148,2,13466,0)=" .D ES^TIUSROI(SRTIU,DUZ)"
^XMB(3.9,148,2,13467,0)="""RTN"",""SRONIN"",110,0)"
^XMB(3.9,148,2,13468,0)=" .S XQAID=""SRNIR-""_SRTN,XQAKILL=0 D DELETEA^XQALERT"
^XMB(3.9,148,2,13469,0)="""RTN"",""SRONIN"",111,0)"
^XMB(3.9,148,2,13470,0)=" W ! K DIR S DIR(0)=""FOA"",DIR(""A"")=""Press RETURN to continue... "" D ^DIR K DIR"
^XMB(3.9,148,2,13471,0)="""RTN"",""SRONIN"",112,0)"
^XMB(3.9,148,2,13472,0)=" Q"
^XMB(3.9,148,2,13473,0)="""RTN"",""SRONIN"",113,0)"
^XMB(3.9,148,2,13474,0)="ALLIN N SRFLD,SRI,SRJJ,SRJK,SRMISS1,SRMISS2,SRMISS82,SRMISS83,SRMISS84,SRMIS508,SRP,SRX,SRY,SRZ"
^XMB(3.9,148,2,13475,0)="""RTN"",""SRONIN"",114,0)"
^XMB(3.9,148,2,13476,0)=" K DA,DIC,DIQ,DR S (SREDIT,SRMISS,SRMISS1,SRMISS2,SRMISS3,SRMISS82,SRMISS83,SRMISS84,SRMIS508,SRSOUT)=0"
^XMB(3.9,148,2,13477,0)="""RTN"",""SRONIN"",115,0)"
^XMB(3.9,148,2,13478,0)=" S DIC=""^SRF("",DA=SRTN,DIQ=""SRY"",DIQ(0)=""I"",DR="".205;.232;44;45;46;47;48;71;72;73;506"" D EN^DIQ1"
^XMB(3.9,148,2,13479,0)="""RTN"",""SRONIN"",116,0)"
^XMB(3.9,148,2,13480,0)=" F SRJJ=82,83,84,49 I '$O(^SRF(SRTN,SRJJ,0)) S SRJK=$S(SRJJ=49:508,1:SRJJ),SRY(130,SRTN,SRJK,""I"")="""""
^XMB(3.9,148,2,13481,0)="""RTN"",""SRONIN"",117,0)"
^XMB(3.9,148,2,13482,0)=" K DA,DIC,DIQ,DR D LIST"
^XMB(3.9,148,2,13483,0)="""RTN"",""SRONIN"",118,0)"
^XMB(3.9,148,2,13484,0)=" I $G(SRX(.205))'=""""!($G(SRX(.232))'="""")!($G(SRX(71))'="""")!($G(SRX(72))'="""")!($G(SRX(73))'="""")!($G(SRX(506))'="""") S SRMISS1=1"
^XMB(3.9,148,2,13485,0)="""RTN"",""SRONIN"",119,0)"
^XMB(3.9,148,2,13486,0)=" F SRJJ=71,72,73 I (SRY(130,SRTN,SRJJ,""I"")=""N"")!(SRY(130,SRTN,SRJJ,""I"")=""""),('$O(^SRF(SRTN,SRJJ+11,0))) S @(""SRMISS""_(SRJJ+11))=1"
^XMB(3.9,148,2,13487,0)="""RTN"",""SRONIN"",120,0)"
^XMB(3.9,148,2,13488,0)=" I SRY(130,SRTN,506,""I"")=""S""!(SRY(130,SRTN,506,""I"")=""O""),('$O(^SRF(SRTN,49,0))) S SRMIS508=1"
^XMB(3.9,148,2,13489,0)="""RTN"",""SRONIN"",121,0)"
^XMB(3.9,148,2,13490,0)=" I $G(SRX(48))="""" F SRZ=44,45,46,47 I $G(SRX(SRZ))'="""" S SRMISS2=1 Q"
^XMB(3.9,148,2,13491,0)="""RTN"",""SRONIN"",122,0)"
^XMB(3.9,148,2,13492,0)=" I SRMISS1!SRMISS2!$G(SRMISS82)!$G(SRMISS83)!$G(SRMISS84)!$G(SRMIS508) S SRMISS=1 D MESS Q:SRSOUT  I SREDIT D EDIT Q"
^XMB(3.9,148,2,13493,0)="""RTN"",""SRONIN"",123,0)"
^XMB(3.9,148,2,13494,0)=" Q"
^XMB(3.9,148,2,13495,0)="""RTN"",""SRONIN"",124,0)"
^XMB(3.9,148,2,13496,0)="MESS ; display list of missing items"
^XMB(3.9,148,2,13497,0)="""RTN"",""SRONIN"",125,0)"
^XMB(3.9,148,2,13498,0)=" W @IOF,!,""The following information is required before this report may be signed:"",!"
^XMB(3.9,148,2,13499,0)="""RTN"",""SRONIN"",126,0)"
^XMB(3.9,148,2,13500,0)=" I SRMISS1 F SRZ=.205,.232,71,72,73,506 I $G(SRX(SRZ))'="""" W !,?5,SRX(SRZ)"
^XMB(3.9,148,2,13501,0)="""RTN"",""SRONIN"",127,0)"
^XMB(3.9,148,2,13502,0)=" I SRMISS2 F SRZ=44:1:47 I $G(SRX(SRZ))'="""" W !,?5,SRX(SRZ)"
^XMB(3.9,148,2,13503,0)="""RTN"",""SRONIN"",128,0)"
^XMB(3.9,148,2,13504,0)=" F SRJJ=82,83,84 I $G(@(""SRMISS""_SRJJ)),$G(SRX(SRJJ))'="""" W !,?5,SRX(SRJJ)"
^XMB(3.9,148,2,13505,0)="""RTN"",""SRONIN"",129,0)"
^XMB(3.9,148,2,13506,0)=" I $G(SRMIS508),$G(SRX(508))'="""" W !,?5,SRX(508)"
^XMB(3.9,148,2,13507,0)="""RTN"",""SRONIN"",130,0)"
^XMB(3.9,148,2,13508,0)=" W ! K DIR S DIR(""A"")=""Do you want to enter this information"",DIR(""B"")=""YES"",DIR(0)=""Y"" D ^DIR K DIR,SRX I $D(DTOUT)!$D(DUOUT) S SRSOUT=1 Q"
^XMB(3.9,148,2,13509,0)="""RTN"",""SRONIN"",131,0)"
^XMB(3.9,148,2,13510,0)=" I Y S SREDIT=1"
^XMB(3.9,148,2,13511,0)="""RTN"",""SRONIN"",132,0)"
^XMB(3.9,148,2,13512,0)=" Q"
^XMB(3.9,148,2,13513,0)="""RTN"",""SRONIN"",133,0)"
^XMB(3.9,148,2,13514,0)="CODE ; entry point from coding menu"
^XMB(3.9,148,2,13515,0)="""RTN"",""SRONIN"",134,0)"
^XMB(3.9,148,2,13516,0)=" N SRAGE,SRDIV,SRDIVNM,SRDO,SRFUNCT,SRHDR,SRINUSE,SRLEAVE,SRLOC,SRNOEDIT,SRPARAM,SRPRINT,SRSEL,SRSINED,SRDTITL,SRTIU,SRSTAT,SRXX"
^XMB(3.9,148,2,13517,0)="""RTN"",""SRONIN"",135,0)"
^XMB(3.9,148,2,13518,0)=" S SRNOEDIT=1,SRDTITL=""Nurse Intraoperative Report"""
^XMB(3.9,148,2,13519,0)="""RTN"",""SRONIN"",136,0)"
^XMB(3.9,148,2,13520,0)=" S (SRFUNCT,SRLEAVE,SRSINED)=0,SRTIU=$P($G(^SRF(SRTN,""TIU"")),""^"",2)"
^XMB(3.9,148,2,13521,0)="""RTN"",""SRONIN"",137,0)"
^XMB(3.9,148,2,13522,0)=" I SRTIU,$$STATUS^SROESUTL(SRTIU)=7 S SRSINED=1"
^XMB(3.9,148,2,13523,0)="""RTN"",""SRONIN"",138,0)"
^XMB(3.9,148,2,13524,0)=" D DISPLY,END"
^XMB(3.9,148,2,13525,0)="""RTN"",""SRONIN"",139,0)"
^XMB(3.9,148,2,13526,0)=" Q"
^XMB(3.9,148,2,13527,0)="""RTN"",""SRONIN"",140,0)"
^XMB(3.9,148,2,13528,0)="LIST S SRZ=0 F  S SRZ=$O(SRY(130,SRTN,SRZ)) Q:'SRZ  I SRY(130,SRTN,SRZ,""I"")="""" D TR S X=$T(@SRP),SRFLD=$P(X,"";;"",2),SRX(SRZ)=$P(SRFLD,""^"",2)"
^XMB(3.9,148,2,13529,0)="""RTN"",""SRONIN"",141,0)"
^XMB(3.9,148,2,13530,0)=" Q"
^XMB(3.9,148,2,13531,0)="""RTN"",""SRONIN"",142,0)"
^XMB(3.9,148,2,13532,0)="TR S SRP=SRZ,SRP=$TR(SRP,""1234567890."",""ABCDEFGHIJP"")"
^XMB(3.9,148,2,13533,0)="""RTN"",""SRONIN"",143,0)"
^XMB(3.9,148,2,13534,0)=" Q"
^XMB(3.9,148,2,13535,0)="""RTN"",""SRONIN"",144,0)"
^XMB(3.9,148,2,13536,0)="PBJE ;;.205^TIME PAT IN OR"
^XMB(3.9,148,2,13537,0)="""RTN"",""SRONIN"",145,0)"
^XMB(3.9,148,2,13538,0)="PBCB ;;.232^TIME PAT OUT OR"
^XMB(3.9,148,2,13539,0)="""RTN"",""SRONIN"",146,0)"
^XMB(3.9,148,2,13540,0)="DD ;;44^SPONGE COUNT CORRECT (Y/N)"
^XMB(3.9,148,2,13541,0)="""RTN"",""SRONIN"",147,0)"
^XMB(3.9,148,2,13542,0)="DE ;;45^SHARPS COUNT CORRECT (Y/N)"
^XMB(3.9,148,2,13543,0)="""RTN"",""SRONIN"",148,0)"
^XMB(3.9,148,2,13544,0)="DF ;;46^INSTRUMENT COUNT CORRECT (Y/N)"
^XMB(3.9,148,2,13545,0)="""RTN"",""SRONIN"",149,0)"
^XMB(3.9,148,2,13546,0)="DG ;;47^SPONGE, SHARPS, & INST COUNTER"
^XMB(3.9,148,2,13547,0)="""RTN"",""SRONIN"",150,0)"
^XMB(3.9,148,2,13548,0)="DH ;;48^COUNT VERIFIER"
^XMB(3.9,148,2,13549,0)="""RTN"",""SRONIN"",151,0)"
^XMB(3.9,148,2,13550,0)="GA ;;71^TIME OUT VERIFIED"
^XMB(3.9,148,2,13551,0)="""RTN"",""SRONIN"",152,0)"
^XMB(3.9,148,2,13552,0)="GB ;;72^PREOPERATIVE IMAGING CONFIRMED"
^XMB(3.9,148,2,13553,0)="""RTN"",""SRONIN"",153,0)"
^XMB(3.9,148,2,13554,0)="GC ;;73^MARKED SITE CONFIRMED"
^XMB(3.9,148,2,13555,0)="""RTN"",""SRONIN"",154,0)"
^XMB(3.9,148,2,13556,0)="HB ;;82^TIME OUT VERIFY COMMENTS"
^XMB(3.9,148,2,13557,0)="""RTN"",""SRONIN"",155,0)"
^XMB(3.9,148,2,13558,0)="HC ;;83^IMAGING CONFIRMED COMMENTS"
^XMB(3.9,148,2,13559,0)="""RTN"",""SRONIN"",156,0)"
^XMB(3.9,148,2,13560,0)="HD ;;84^MARKED SITE COMMENTS"
^XMB(3.9,148,2,13561,0)="""RTN"",""SRONIN"",157,0)"
^XMB(3.9,148,2,13562,0)="EJF ;;506^HAIR REMOVAL METHOD"
^XMB(3.9,148,2,13563,0)="""RTN"",""SRONIN"",158,0)"
^XMB(3.9,148,2,13564,0)="EJH ;;508^HAIR REMOVAL COMMENTS"
^XMB(3.9,148,2,13565,0)="""RTN"",""SRONRPT0"")"
^XMB(3.9,148,2,13566,0)="0^75^B53211823^B48530067"
^XMB(3.9,148,2,13567,0)="""RTN"",""SRONRPT0"",1,0)"
^XMB(3.9,148,2,13568,0)="SRONRPT0 ;BIR/ADM - NURSE INTRAOP REPORT ;05/31/06"
^XMB(3.9,148,2,13569,0)="""RTN"",""SRONRPT0"",2,0)"
^XMB(3.9,148,2,13570,0)=" ;;3.0; Surgery ;**100,129,147,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,13571,0)="""RTN"",""SRONRPT0"",3,0)"
^XMB(3.9,148,2,13572,0)=" ;** NOTICE: This routine is part of an implementation of a nationally"
^XMB(3.9,148,2,13573,0)="""RTN"",""SRONRPT0"",4,0)"
^XMB(3.9,148,2,13574,0)=" ;**         controlled procedure. Local modifications to this routine"
^XMB(3.9,148,2,13575,0)="""RTN"",""SRONRPT0"",5,0)"
^XMB(3.9,148,2,13576,0)=" ;**         are prohibited."
^XMB(3.9,148,2,13577,0)="""RTN"",""SRONRPT0"",6,0)"
^XMB(3.9,148,2,13578,0)=" ;"
^XMB(3.9,148,2,13579,0)="""RTN"",""SRONRPT0"",7,0)"
^XMB(3.9,148,2,13580,0)=" D LINE(2) S @SRG@(SRI)=""OR Support Personnel:"" D LINE(1) S @SRG@(SRI)=""  Scrubbed"",@SRG@(SRI)=@SRG@(SRI)_$$SPACE(40)_""Circulating"" D NURSE"
^XMB(3.9,148,2,13581,0)="""RTN"",""SRONRPT0"",8,0)"
^XMB(3.9,148,2,13582,0)=" S SRLF=1,SRLINE=""Other Persons in OR: "" I '$O(^SRF(SRTN,32,0)),SRALL D LINE(1) S @SRG@(SRI)=SRLINE_""N/A"""
^XMB(3.9,148,2,13583,0)="""RTN"",""SRONRPT0"",9,0)"
^XMB(3.9,148,2,13584,0)=" I $O(^SRF(SRTN,32,0)) D LINE(1) S @SRG@(SRI)=SRLINE D"
^XMB(3.9,148,2,13585,0)="""RTN"",""SRONRPT0"",10,0)"
^XMB(3.9,148,2,13586,0)=" .S OTH=0 F  S OTH=$O(^SRF(SRTN,32,OTH)) Q:'OTH  D"
^XMB(3.9,148,2,13587,0)="""RTN"",""SRONRPT0"",11,0)"
^XMB(3.9,148,2,13588,0)=" ..S X=^SRF(SRTN,32,OTH,0),SRLINE=""  ""_$P(X,""^"")"
^XMB(3.9,148,2,13589,0)="""RTN"",""SRONRPT0"",12,0)"
^XMB(3.9,148,2,13590,0)=" ..S Y=$P(X,""^"",2) S:Y'="""" SRLINE=SRLINE_"" (""_Y_"")"""
^XMB(3.9,148,2,13591,0)="""RTN"",""SRONRPT0"",13,0)"
^XMB(3.9,148,2,13592,0)=" ..D LINE(1) S @SRG@(SRI)=SRLINE"
^XMB(3.9,148,2,13593,0)="""RTN"",""SRONRPT0"",14,0)"
^XMB(3.9,148,2,13594,0)=" S SRLF=1"
^XMB(3.9,148,2,13595,0)="""RTN"",""SRONRPT0"",15,0)"
^XMB(3.9,148,2,13596,0)=" S X=$P(SR(.1),""^"",9),SRMOOD=$S(X:$E($P(^SRO(135.3,X,0),""^""),1,20),1:""N/A"")"
^XMB(3.9,148,2,13597,0)="""RTN"",""SRONRPT0"",16,0)"
^XMB(3.9,148,2,13598,0)=" S X=$P(SR(.1),""^"",15),SRCONS=$S(X:$E($P(^SRO(135.4,X,0),""^""),1,24),1:""N/A"")"
^XMB(3.9,148,2,13599,0)="""RTN"",""SRONRPT0"",17,0)"
^XMB(3.9,148,2,13600,0)=" S X=$P(SR(0),""^"",7),SRSKIN=$S(X:$E($P(^SRO(135.2,X,0),""^""),1,20),1:""N/A"")"
^XMB(3.9,148,2,13601,0)="""RTN"",""SRONRPT0"",18,0)"
^XMB(3.9,148,2,13602,0)=" S Y=$P(SR(.1),""^"",14),C=$P(^DD(130,.195,0),""^"",2) D:Y'="""" Y^DIQ S SRCONV=$S(Y'="""":Y,1:""N/A"")"
^XMB(3.9,148,2,13603,0)="""RTN"",""SRONRPT0"",19,0)"
^XMB(3.9,148,2,13604,0)=" I 'SRALL,SRMOOD=""N/A"",SRCONS=""N/A"" G SKIN"
^XMB(3.9,148,2,13605,0)="""RTN"",""SRONRPT0"",20,0)"
^XMB(3.9,148,2,13606,0)=" D LINE(1) S @SRG@(SRI)=""Preop Mood:"",@SRG@(SRI)=@SRG@(SRI)_$$SPACE(18)_SRMOOD,@SRG@(SRI)=@SRG@(SRI)_$$SPACE(40)_""Preop Consc:"",@SRG@(SRI)=@SRG@(SRI)_$$SPACE(56)_SRCONS"
^XMB(3.9,148,2,13607,0)="""RTN"",""SRONRPT0"",21,0)"
^XMB(3.9,148,2,13608,0)="SKIN I 'SRALL,SRSKIN=""N/A"",SRCONV=""N/A"" G VAL"
^XMB(3.9,148,2,13609,0)="""RTN"",""SRONRPT0"",22,0)"
^XMB(3.9,148,2,13610,0)=" D LINE(1) S @SRG@(SRI)=""Preop Skin Integ: ""_SRSKIN,@SRG@(SRI)=@SRG@(SRI)_$$SPACE(40)_""Preop Converse: ""_SRCONV"
^XMB(3.9,148,2,13611,0)="""RTN"",""SRONRPT0"",23,0)"
^XMB(3.9,148,2,13612,0)="VAL S SRLF=1,Y=$P(SR(.6),""^"",9),C=$P(^DD(130,.69,0),""^"",2) D:Y'="""" Y^DIQ S SRUSER=$S(Y="""":""N/A"",1:Y)"
^XMB(3.9,148,2,13613,0)="""RTN"",""SRONRPT0"",24,0)"
^XMB(3.9,148,2,13614,0)=" I 'SRALL,SRUSER=""N/A"" G VER"
^XMB(3.9,148,2,13615,0)="""RTN"",""SRONRPT0"",25,0)"
^XMB(3.9,148,2,13616,0)=" D LINE(1) S @SRG@(SRI)=""Valid Consent/ID Band Confirmed By: ""_SRUSER"
^XMB(3.9,148,2,13617,0)="""RTN"",""SRONRPT0"",26,0)"
^XMB(3.9,148,2,13618,0)=" ;"
^XMB(3.9,148,2,13619,0)="""RTN"",""SRONRPT0"",27,0)"
^XMB(3.9,148,2,13620,0)="VER N II,SROIM,SROUT,SROIN,SRHRM"
^XMB(3.9,148,2,13621,0)="""RTN"",""SRONRPT0"",28,0)"
^XMB(3.9,148,2,13622,0)=" S Y=$P(SR(""VER""),""^"",5),SROIN=$S(Y=""Y"":""YES"",Y=""M"":""MARKING NOT REQUIRED FOR THIS PROCEDURE"",Y=""N"":""NO - MARKING REQUIRED BUT NOT DONE (see CORRECT SURGERY COMMENTS)"",1:""* NOT ENTERED *"")"
^XMB(3.9,148,2,13623,0)="""RTN"",""SRONRPT0"",29,0)"
^XMB(3.9,148,2,13624,0)=" D LINE(1) S @SRG@(SRI)=""Mark on Surgical Site Confirmed: ""_$S($L(SROIN)>43:"""",1:SROIN)"
^XMB(3.9,148,2,13625,0)="""RTN"",""SRONRPT0"",30,0)"
^XMB(3.9,148,2,13626,0)=" I $L(SROIN)>43 D LINE(1) S @SRG@(SRI)=$$SPACE(2)_SROIN"
^XMB(3.9,148,2,13627,0)="""RTN"",""SRONRPT0"",31,0)"
^XMB(3.9,148,2,13628,0)=" S II=84 D ENSC,LINE(1)"
^XMB(3.9,148,2,13629,0)="""RTN"",""SRONRPT0"",32,0)"
^XMB(3.9,148,2,13630,0)=" S Y=$P(SR(""VER""),""^"",4),SROIM=$S(Y=""Y"":""YES"",Y=""I"":""IMAGING NOT REQUIRED FOR THIS PROCEDURE"",Y=""N"":""IMAGING REQUIRED BUT NOT VIEWED (see CORRECT SURGERY COMMENTS)"",1:""* NOT ENTERED *"")"
^XMB(3.9,148,2,13631,0)="""RTN"",""SRONRPT0"",33,0)"
^XMB(3.9,148,2,13632,0)=" D LINE(1) S @SRG@(SRI)=""Preoperative Imaging Confirmed:  ""_$S($L(SROIM)>43:"""",1:SROIM)"
^XMB(3.9,148,2,13633,0)="""RTN"",""SRONRPT0"",34,0)"
^XMB(3.9,148,2,13634,0)=" I $L(SROIM)>43 D LINE(1) S @SRG@(SRI)=$$SPACE(2)_SROIM"
^XMB(3.9,148,2,13635,0)="""RTN"",""SRONRPT0"",35,0)"
^XMB(3.9,148,2,13636,0)=" S II=83 D ENSC,LINE(1)"
^XMB(3.9,148,2,13637,0)="""RTN"",""SRONRPT0"",36,0)"
^XMB(3.9,148,2,13638,0)=" S Y=$P(SR(""VER""),""^"",3),SROUT=$S(Y=""Y"":""YES"",Y=""N"":""NO (see SEE CORRECT SURGERY COMMENTS)"",1:""* NOT ENTERED *"")"
^XMB(3.9,148,2,13639,0)="""RTN"",""SRONRPT0"",37,0)"
^XMB(3.9,148,2,13640,0)=" D LINE(1) S @SRG@(SRI)=""Time Out Verification Completed: ""_$S($L(SROUT)>43:"""",1:SROUT)"
^XMB(3.9,148,2,13641,0)="""RTN"",""SRONRPT0"",38,0)"
^XMB(3.9,148,2,13642,0)=" S II=82 D ENSC"
^XMB(3.9,148,2,13643,0)="""RTN"",""SRONRPT0"",39,0)"
^XMB(3.9,148,2,13644,0)=" S SRLF=1"
^XMB(3.9,148,2,13645,0)="""RTN"",""SRONRPT0"",40,0)"
^XMB(3.9,148,2,13646,0)=" ;"
^XMB(3.9,148,2,13647,0)="""RTN"",""SRONRPT0"",41,0)"
^XMB(3.9,148,2,13648,0)="PREP N SRSKIP S SRSKIP=0"
^XMB(3.9,148,2,13649,0)="""RTN"",""SRONRPT0"",42,0)"
^XMB(3.9,148,2,13650,0)=" S Y=$P(SR(.1),""^"",8),C=$P(^DD(130,.18,0),""^"",2) D:Y'="""" Y^DIQ,N(25) S SRUSER=$S(Y="""":""N/A"",1:Y)"
^XMB(3.9,148,2,13651,0)="""RTN"",""SRONRPT0"",43,0)"
^XMB(3.9,148,2,13652,0)=" S Y=$P(SR(.1),""^"",7),C=$P(^DD(130,.175,0),""^"",2) D:Y'="""" Y^DIQ S SRAGNT=$S(Y="""":""N/A"",1:$E(Y,1,22))"
^XMB(3.9,148,2,13653,0)="""RTN"",""SRONRPT0"",44,0)"
^XMB(3.9,148,2,13654,0)=" I 'SRALL,SRUSER=""N/A"",SRAGNT=""N/A"" G PREP2"
^XMB(3.9,148,2,13655,0)="""RTN"",""SRONRPT0"",45,0)"
^XMB(3.9,148,2,13656,0)=" D LINE(1) S @SRG@(SRI)=""Skin Prep By: ""_SRUSER,@SRG@(SRI)=@SRG@(SRI)_$$SPACE(40)_""Skin Prep Agent: ""_SRAGNT"
^XMB(3.9,148,2,13657,0)="""RTN"",""SRONRPT0"",46,0)"
^XMB(3.9,148,2,13658,0)=" S SRSKIP=1"
^XMB(3.9,148,2,13659,0)="""RTN"",""SRONRPT0"",47,0)"
^XMB(3.9,148,2,13660,0)="PREP2 S Y=$P(SR(.1),""^"",12),C=$P(^DD(130,4,0),""^"",2) D:Y'="""" Y^DIQ,N(21) S SRUSER=$S(Y="""":""N/A"",1:Y)"
^XMB(3.9,148,2,13661,0)="""RTN"",""SRONRPT0"",48,0)"
^XMB(3.9,148,2,13662,0)=" S Y=$P(SR(31),""^"",2),C=$P(^DD(130,8,0),""^"",2) D:Y'="""" Y^DIQ S SRAGNT=$S(Y="""":""N/A"",1:$E(Y,1,18))"
^XMB(3.9,148,2,13663,0)="""RTN"",""SRONRPT0"",49,0)"
^XMB(3.9,148,2,13664,0)=" I 'SRALL,SRUSER=""N/A"",SRAGNT=""N/A"" G PREOP"
^XMB(3.9,148,2,13665,0)="""RTN"",""SRONRPT0"",50,0)"
^XMB(3.9,148,2,13666,0)=" D LINE(1) S @SRG@(SRI)=""Skin Prep By (2): ""_SRUSER,@SRG@(SRI)=@SRG@(SRI)_$$SPACE(40)_""2nd Skin Prep Agent: ""_SRAGNT"
^XMB(3.9,148,2,13667,0)="""RTN"",""SRONRPT0"",51,0)"
^XMB(3.9,148,2,13668,0)=" S SRSKIP=0 D LINE(1)"
^XMB(3.9,148,2,13669,0)="""RTN"",""SRONRPT0"",52,0)"
^XMB(3.9,148,2,13670,0)="PREOP S Y=$P(SR(.1),""^"",2),C=$P(^DD(130,.12,0),""^"",2) D:Y'="""" Y^DIQ S SRUSER=$S(Y="""":""N/A"",1:Y)"
^XMB(3.9,148,2,13671,0)="""RTN"",""SRONRPT0"",53,0)"
^XMB(3.9,148,2,13672,0)=" D:SRSKIP LINE(1) D LINE(1) S @SRG@(SRI)=""Preop Surgical Site Hair Removal by: ""_SRUSER"
^XMB(3.9,148,2,13673,0)="""RTN"",""SRONRPT0"",54,0)"
^XMB(3.9,148,2,13674,0)=" S Y=$P(SR(""VER""),""^"",6),C=$P(^DD(130,506,0),""^"",2) D:Y'="""" Y^DIQ S SRHRM=$S(Y="""":""* NOT ENTERED *"",1:Y)"
^XMB(3.9,148,2,13675,0)="""RTN"",""SRONRPT0"",55,0)"
^XMB(3.9,148,2,13676,0)=" D LINE(1) S @SRG@(SRI)=""Surgical Site Hair Removal Method: ""_$S($L(SRHRM)>43:"""",1:SRHRM)"
^XMB(3.9,148,2,13677,0)="""RTN"",""SRONRPT0"",56,0)"
^XMB(3.9,148,2,13678,0)=" I $L(SRHRM)>43 D LINE(1) S @SRG@(SRI)=$$SPACE(2)_SRHRM"
^XMB(3.9,148,2,13679,0)="""RTN"",""SRONRPT0"",57,0)"
^XMB(3.9,148,2,13680,0)=" S II=49 D ENSC"
^XMB(3.9,148,2,13681,0)="""RTN"",""SRONRPT0"",58,0)"
^XMB(3.9,148,2,13682,0)=" ;"
^XMB(3.9,148,2,13683,0)="""RTN"",""SRONRPT0"",59,0)"
^XMB(3.9,148,2,13684,0)="POS S SRLF=1,SRLINE=""Surgery Position(s): "" I '$O(^SRF(SRTN,42,0)),SRALL D LINE(1) S @SRG@(SRI)=SRLINE_""N/A"""
^XMB(3.9,148,2,13685,0)="""RTN"",""SRONRPT0"",60,0)"
^XMB(3.9,148,2,13686,0)=" I $O(^SRF(SRTN,42,0)) D LINE(1) S @SRG@(SRI)=SRLINE D"
^XMB(3.9,148,2,13687,0)="""RTN"",""SRONRPT0"",61,0)"
^XMB(3.9,148,2,13688,0)=" .S SRP=0 F  S SRP=$O(^SRF(SRTN,42,SRP)) Q:'SRP  S X=^SRF(SRTN,42,SRP,0),Z=$P(X,""^""),Y=$P(X,""^"",2) D"
^XMB(3.9,148,2,13689,0)="""RTN"",""SRONRPT0"",62,0)"
^XMB(3.9,148,2,13690,0)=" ..S SRPOS=$P(^SRO(132,Z,0),""^"") D:Y D^DIQ S SRTIME=$S(Y'="""":$P(Y,""@"")_""  ""_$P(Y,""@"",2),1:""N/A"")"
^XMB(3.9,148,2,13691,0)="""RTN"",""SRONRPT0"",63,0)"
^XMB(3.9,148,2,13692,0)=" ..D LINE(1) S @SRG@(SRI)=""  ""_SRPOS,@SRG@(SRI)=@SRG@(SRI)_$$SPACE(40)_""Placed: ""_SRTIME"
^XMB(3.9,148,2,13693,0)="""RTN"",""SRONRPT0"",64,0)"
^XMB(3.9,148,2,13694,0)=" S SRLF=1,SRLINE=""Restraints and Position Aids: """
^XMB(3.9,148,2,13695,0)="""RTN"",""SRONRPT0"",65,0)"
^XMB(3.9,148,2,13696,0)=" I '$O(^SRF(SRTN,20,0)),SRALL D LINE(1) S @SRG@(SRI)=SRLINE_""N/A"""
^XMB(3.9,148,2,13697,0)="""RTN"",""SRONRPT0"",66,0)"
^XMB(3.9,148,2,13698,0)=" I $O(^SRF(SRTN,20,0)) N SRRP D LINE(1) S @SRG@(SRI)=SRLINE,(SRRP,CNT)=0 F  S SRRP=$O(^SRF(SRTN,20,SRRP)) Q:'SRRP  S CNT=CNT+1,X=^SRF(SRTN,20,SRRP,0),Z=$P(X,""^""),Y=$P(X,""^"",2),W=$P(X,""^"",3) D"
^XMB(3.9,148,2,13699,0)="""RTN"",""SRONRPT0"",67,0)"
^XMB(3.9,148,2,13700,0)=" .S SREST=$P(^SRO(132.05,Z,0),""^""),C=$P(^DD(130.31,1,0),""^"",2) D:Y'="""" Y^DIQ,N(31) S:Y="""" Y=""N/A"""
^XMB(3.9,148,2,13701,0)="""RTN"",""SRONRPT0"",68,0)"
^XMB(3.9,148,2,13702,0)=" .D LINE(1) S @SRG@(SRI)=""  ""_SREST,@SRG@(SRI)=@SRG@(SRI)_$$SPACE(36)_""Applied By: ""_Y"
^XMB(3.9,148,2,13703,0)="""RTN"",""SRONRPT0"",69,0)"
^XMB(3.9,148,2,13704,0)=" .I W'="""" D LINE(1) S @SRG@(SRI)=""      Comments: ""_W"
^XMB(3.9,148,2,13705,0)="""RTN"",""SRONRPT0"",70,0)"
^XMB(3.9,148,2,13706,0)=" S SRLF=1,X=$P(SR(.7),""^"",5),SREL=$S(X'="""":X,1:""N/A"")"
^XMB(3.9,148,2,13707,0)="""RTN"",""SRONRPT0"",71,0)"
^XMB(3.9,148,2,13708,0)=" S X=$P(SR(.5),""^"",4),SRELP=$S(X:$P(^SRO(138,X,0),""^""),1:""N/A"")"
^XMB(3.9,148,2,13709,0)="""RTN"",""SRONRPT0"",72,0)"
^XMB(3.9,148,2,13710,0)=" S X=$P(SR(.5),""^"",13),SRELP2=$S(X:$P(^SRO(138,X,0),""^""),1:"""")"
^XMB(3.9,148,2,13711,0)="""RTN"",""SRONRPT0"",73,0)"
^XMB(3.9,148,2,13712,0)=" S X=$P(SR(.7),""^""),SRC=$S(X'="""":X,1:""N/A""),X=$P(SR(.7),""^"",2),SRCT=$S(X'="""":X,1:""N/A"")"
^XMB(3.9,148,2,13713,0)="""RTN"",""SRONRPT0"",74,0)"
^XMB(3.9,148,2,13714,0)=" I 'SRALL,SREL=""N/A"",SRELP=""N/A"",SRELP2="""" G LAB"
^XMB(3.9,148,2,13715,0)="""RTN"",""SRONRPT0"",75,0)"
^XMB(3.9,148,2,13716,0)=" D LINE(1) S @SRG@(SRI)=""Electrocautery Unit:       ""_SREL"
^XMB(3.9,148,2,13717,0)="""RTN"",""SRONRPT0"",76,0)"
^XMB(3.9,148,2,13718,0)=" D LINE(1) S @SRG@(SRI)=""ESU Coagulation Range:     ""_SRC"
^XMB(3.9,148,2,13719,0)="""RTN"",""SRONRPT0"",77,0)"
^XMB(3.9,148,2,13720,0)=" D LINE(1) S @SRG@(SRI)=""ESU Cutting Range:         ""_SRCT"
^XMB(3.9,148,2,13721,0)="""RTN"",""SRONRPT0"",78,0)"
^XMB(3.9,148,2,13722,0)=" D LINE(1) S @SRG@(SRI)=""Electroground Position(s): ""_SRELP"
^XMB(3.9,148,2,13723,0)="""RTN"",""SRONRPT0"",79,0)"
^XMB(3.9,148,2,13724,0)=" I SRELP2'="""" D LINE(1) S @SRG@(SRI)=$$SPACE(27)_SRELP2"
^XMB(3.9,148,2,13725,0)="""RTN"",""SRONRPT0"",80,0)"
^XMB(3.9,148,2,13726,0)="LAB S SRLF=1 I $O(^SRF(SRTN,9,0))!SRALL D LAB1"
^XMB(3.9,148,2,13727,0)="""RTN"",""SRONRPT0"",81,0)"
^XMB(3.9,148,2,13728,0)=" S SRLF=1 I $O(^SRF(SRTN,6,0)) D LINE(1) S @SRG@(SRI)=""Anesthesia Technique(s):"" S ANE=0 F  S ANE=$O(^SRF(SRTN,6,ANE)) Q:'ANE  D ANE"
^XMB(3.9,148,2,13729,0)="""RTN"",""SRONRPT0"",82,0)"
^XMB(3.9,148,2,13730,0)=" I '$O(^SRF(SRTN,6,0)),SRALL D LINE(1) S @SRG@(SRI)=""Anesthesia Technique(s): N/A"""
^XMB(3.9,148,2,13731,0)="""RTN"",""SRONRPT0"",83,0)"
^XMB(3.9,148,2,13732,0)=" D ^SRONRPT1"
^XMB(3.9,148,2,13733,0)="""RTN"",""SRONRPT0"",84,0)"
^XMB(3.9,148,2,13734,0)=" Q"
^XMB(3.9,148,2,13735,0)="""RTN"",""SRONRPT0"",85,0)"
^XMB(3.9,148,2,13736,0)="NURSE ; nurse info"
^XMB(3.9,148,2,13737,0)="""RTN"",""SRONRPT0"",86,0)"
^XMB(3.9,148,2,13738,0)=" N CNT,CIRC,I,NURSE,SCRU,X,Y,Z"
^XMB(3.9,148,2,13739,0)="""RTN"",""SRONRPT0"",87,0)"
^XMB(3.9,148,2,13740,0)=" S (CNT,CIRC)=0 F  S CIRC=$O(^SRF(SRTN,19,CIRC)) Q:'CIRC  S CNT=CNT+1 D"
^XMB(3.9,148,2,13741,0)="""RTN"",""SRONRPT0"",88,0)"
^XMB(3.9,148,2,13742,0)=" .S Z=^SRF(SRTN,19,CIRC,0),Y=$P(Z,""^""),C=$P(^DD(130.28,.01,0),""^"",2) D Y^DIQ,N(21) S SRX=Y"
^XMB(3.9,148,2,13743,0)="""RTN"",""SRONRPT0"",89,0)"
^XMB(3.9,148,2,13744,0)=" .S Y=$P(Z,""^"",3),C=$P(^DD(130.28,3,0),""^"",2) D:Y'="""" Y^DIQ S CIRC(CNT)=SRX_"" (""_Y_"")"""
^XMB(3.9,148,2,13745,0)="""RTN"",""SRONRPT0"",90,0)"
^XMB(3.9,148,2,13746,0)=" S (CNT,SCRU)=0 F  S SCRU=$O(^SRF(SRTN,23,SCRU)) Q:'SCRU  S CNT=CNT+1 D"
^XMB(3.9,148,2,13747,0)="""RTN"",""SRONRPT0"",91,0)"
^XMB(3.9,148,2,13748,0)=" .S Z=^SRF(SRTN,23,SCRU,0),Y=$P(Z,""^""),C=$P(^DD(130.36,.01,0),""^"",2) D Y^DIQ,N(21) S SRX=Y"
^XMB(3.9,148,2,13749,0)="""RTN"",""SRONRPT0"",92,0)"
^XMB(3.9,148,2,13750,0)=" .S Y=$P(Z,""^"",3),C=$P(^DD(130.36,3,0),""^"",2) D:Y'="""" Y^DIQ S SCRU(CNT)=SRX_"" (""_Y_"")"""
^XMB(3.9,148,2,13751,0)="""RTN"",""SRONRPT0"",93,0)"
^XMB(3.9,148,2,13752,0)=" S:'$D(SCRU(1)) SCRU(1)=""N/A"" S:'$D(CIRC(1)) CIRC(1)=""N/A"""
^XMB(3.9,148,2,13753,0)="""RTN"",""SRONRPT0"",94,0)"
^XMB(3.9,148,2,13754,0)=" F I=1:1 Q:('$D(SCRU(I))&'$D(CIRC(I)))  S NURSE(I)=$S($D(SCRU(I)):SCRU(I),1:"""")_""^""_$S($D(CIRC(I)):CIRC(I),1:"""")"
^XMB(3.9,148,2,13755,0)="""RTN"",""SRONRPT0"",95,0)"
^XMB(3.9,148,2,13756,0)=" S I=0 F  S I=$O(NURSE(I)) Q:'I  D LINE(1) S @SRG@(SRI)=$$SPACE(2)_$P(NURSE(I),""^"") S @SRG@(SRI)=@SRG@(SRI)_$$SPACE(40)_$P(NURSE(I),""^"",2)"
^XMB(3.9,148,2,13757,0)="""RTN"",""SRONRPT0"",96,0)"
^XMB(3.9,148,2,13758,0)=" Q"
^XMB(3.9,148,2,13759,0)="""RTN"",""SRONRPT0"",97,0)"
^XMB(3.9,148,2,13760,0)="LAB1 N SRSP S SRLF=1 D LINE(1) S @SRG@(SRI)=""Material Sent to Laboratory for Analysis: """
^XMB(3.9,148,2,13761,0)="""RTN"",""SRONRPT0"",98,0)"
^XMB(3.9,148,2,13762,0)=" I 'SRALL,'$O(^SRF(SRTN,9,0)),'$O(^SRF(SRTN,41,0)) S @SRG@(SRI)=@SRG@(SRI)_""N/A"" Q"
^XMB(3.9,148,2,13763,0)="""RTN"",""SRONRPT0"",99,0)"
^XMB(3.9,148,2,13764,0)=" D LINE(1) S @SRG@(SRI)=""Specimens: "" D"
^XMB(3.9,148,2,13765,0)="""RTN"",""SRONRPT0"",100,0)"
^XMB(3.9,148,2,13766,0)=" .I '$O(^SRF(SRTN,9,0)) S @SRG@(SRI)=@SRG@(SRI)_""N/A"" Q"
^XMB(3.9,148,2,13767,0)="""RTN"",""SRONRPT0"",101,0)"
^XMB(3.9,148,2,13768,0)=" .S SRSP=0 F  S SRSP=$O(^SRF(SRTN,9,SRSP)) Q:'SRSP  D LINE(1) S @SRG@(SRI)=$$SPACE(2)_^SRF(SRTN,9,SRSP,0)"
^XMB(3.9,148,2,13769,0)="""RTN"",""SRONRPT0"",102,0)"
^XMB(3.9,148,2,13770,0)=" D LINE(1) S @SRG@(SRI)=""Cultures:  "" D"
^XMB(3.9,148,2,13771,0)="""RTN"",""SRONRPT0"",103,0)"
^XMB(3.9,148,2,13772,0)=" .I '$O(^SRF(SRTN,41,0)) S @SRG@(SRI)=@SRG@(SRI)_""N/A"" Q"
^XMB(3.9,148,2,13773,0)="""RTN"",""SRONRPT0"",104,0)"
^XMB(3.9,148,2,13774,0)=" .S SRSP=0 F  S SRSP=$O(^SRF(SRTN,41,SRSP)) Q:'SRSP  D LINE(1) S @SRG@(SRI)=$$SPACE(2)_^SRF(SRTN,41,SRSP,0)"
^XMB(3.9,148,2,13775,0)="""RTN"",""SRONRPT0"",105,0)"
^XMB(3.9,148,2,13776,0)=" Q"
^XMB(3.9,148,2,13777,0)="""RTN"",""SRONRPT0"",106,0)"
^XMB(3.9,148,2,13778,0)="N(SRL) N SRN I $L(Y)>SRL S SRN=$P(Y,"","")_"",""_$E($P(Y,"","",2))_""."",Y=SRN"
^XMB(3.9,148,2,13779,0)="""RTN"",""SRONRPT0"",107,0)"
^XMB(3.9,148,2,13780,0)=" Q"
^XMB(3.9,148,2,13781,0)="""RTN"",""SRONRPT0"",108,0)"
^XMB(3.9,148,2,13782,0)="SPACE(NUM) ; create spaces"
^XMB(3.9,148,2,13783,0)="""RTN"",""SRONRPT0"",109,0)"
^XMB(3.9,148,2,13784,0)=" ;pass in position returns number of needed spaces"
^XMB(3.9,148,2,13785,0)="""RTN"",""SRONRPT0"",110,0)"
^XMB(3.9,148,2,13786,0)=" I '$D(@SRG@(SRI)) S @SRG@(SRI)="""""
^XMB(3.9,148,2,13787,0)="""RTN"",""SRONRPT0"",111,0)"
^XMB(3.9,148,2,13788,0)=" Q $J("""",NUM-$L(@SRG@(SRI)))"
^XMB(3.9,148,2,13789,0)="""RTN"",""SRONRPT0"",112,0)"
^XMB(3.9,148,2,13790,0)="LINE(NUM) ; create carriage returns"
^XMB(3.9,148,2,13791,0)="""RTN"",""SRONRPT0"",113,0)"
^XMB(3.9,148,2,13792,0)=" I $G(SRLF) S NUM=NUM+1,SRLF=0"
^XMB(3.9,148,2,13793,0)="""RTN"",""SRONRPT0"",114,0)"
^XMB(3.9,148,2,13794,0)=" F J=1:1:NUM S SRI=SRI+1,@SRG@(SRI)="""""
^XMB(3.9,148,2,13795,0)="""RTN"",""SRONRPT0"",115,0)"
^XMB(3.9,148,2,13796,0)=" Q"
^XMB(3.9,148,2,13797,0)="""RTN"",""SRONRPT0"",116,0)"
^XMB(3.9,148,2,13798,0)="ANE ; print anesthesia technique"
^XMB(3.9,148,2,13799,0)="""RTN"",""SRONRPT0"",117,0)"
^XMB(3.9,148,2,13800,0)=" N A,AGNT,C,CNT,DRUG"
^XMB(3.9,148,2,13801,0)="""RTN"",""SRONRPT0"",118,0)"
^XMB(3.9,148,2,13802,0)=" S A=^SRF(SRTN,6,ANE,0),Y=$P(A,""^""),C=$P(^DD(130.06,.01,0),""^"",2) D:Y'="""" Y^DIQ D LINE(1) S Y=Y_$S($P(A,""^"",3)=""Y"":""  (PRINCIPAL)"",1:""""),@SRG@(SRI)=$$SPACE(2)_Y"
^XMB(3.9,148,2,13803,0)="""RTN"",""SRONRPT0"",119,0)"
^XMB(3.9,148,2,13804,0)=" Q"
^XMB(3.9,148,2,13805,0)="""RTN"",""SRONRPT0"",120,0)"
^XMB(3.9,148,2,13806,0)="ENSC N X,SRLINE"
^XMB(3.9,148,2,13807,0)="""RTN"",""SRONRPT0"",121,0)"
^XMB(3.9,148,2,13808,0)=" D LINE(1) S @SRG@(SRI)=""  ""_$S(II=82:""Time Out Verified Comments: "",II=83:""Imaging Confirmed Comments: "",II=84:""Marked Site Comments: "",II=49:""Hair Removal Comments: "",1:"""") D"
^XMB(3.9,148,2,13809,0)="""RTN"",""SRONRPT0"",122,0)"
^XMB(3.9,148,2,13810,0)=" .I '$O(^SRF(SRTN,II,0)) S @SRG@(SRI)=@SRG@(SRI)_""NO COMMENTS ENTERED"" Q"
^XMB(3.9,148,2,13811,0)="""RTN"",""SRONRPT0"",123,0)"
^XMB(3.9,148,2,13812,0)=" .S SRLINE=0 F  S SRLINE=$O(^SRF(SRTN,II,SRLINE)) Q:'SRLINE  S X=^SRF(SRTN,II,SRLINE,0) D COMM^SRONRPT3(X,3)"
^XMB(3.9,148,2,13813,0)="""RTN"",""SRONRPT0"",124,0)"
^XMB(3.9,148,2,13814,0)=" Q"
^XMB(3.9,148,2,13815,0)="""RTN"",""SROQ0"")"
^XMB(3.9,148,2,13816,0)="0^60^B16257215^B26738234"
^XMB(3.9,148,2,13817,0)="""RTN"",""SROQ0"",1,0)"
^XMB(3.9,148,2,13818,0)="SROQ0 ;BIR/ADM - QUARTERLY REPORT (CONTINUED) ;03/21/06"
^XMB(3.9,148,2,13819,0)="""RTN"",""SROQ0"",2,0)"
^XMB(3.9,148,2,13820,0)=" ;;3.0; Surgery ;**62,70,77,50,95,123,129,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,13821,0)="""RTN"",""SROQ0"",3,0)"
^XMB(3.9,148,2,13822,0)=" ;** NOTICE: This routine is part of an implementation of a nationally"
^XMB(3.9,148,2,13823,0)="""RTN"",""SROQ0"",4,0)"
^XMB(3.9,148,2,13824,0)=" ;**         controlled procedure. Local modifications to this routine"
^XMB(3.9,148,2,13825,0)="""RTN"",""SROQ0"",5,0)"
^XMB(3.9,148,2,13826,0)=" ;**         are prohibited."
^XMB(3.9,148,2,13827,0)="""RTN"",""SROQ0"",6,0)"
^XMB(3.9,148,2,13828,0)=" ;"
^XMB(3.9,148,2,13829,0)="""RTN"",""SROQ0"",7,0)"
^XMB(3.9,148,2,13830,0)=" ; Reference to ^DIC(45.3 supported by DBIA #218"
^XMB(3.9,148,2,13831,0)="""RTN"",""SROQ0"",8,0)"
^XMB(3.9,148,2,13832,0)=" ;"
^XMB(3.9,148,2,13833,0)="""RTN"",""SROQ0"",9,0)"
^XMB(3.9,148,2,13834,0)=" S SR(0)=^SRF(SRTN,0),DFN=$P(SR(0),""^"") I '$D(^TMP(""SRDPT"",$J,DFN)) S ^TMP(""SRDPT"",$J,DFN)="""",SRDPT=SRDPT+1"
^XMB(3.9,148,2,13835,0)="""RTN"",""SROQ0"",10,0)"
^XMB(3.9,148,2,13836,0)=" D DEM^VADPT S X1=SRSD,X2=$P(VADM(3),""^""),SRAGE=$E(X1,1,3)-$E(X2,1,3)-($E(X1,4,7)<$E(X2,4,7)) I SRAGE>60 S SR60=SR60+1"
^XMB(3.9,148,2,13837,0)="""RTN"",""SROQ0"",11,0)"
^XMB(3.9,148,2,13838,0)=" S SRDEATH=0,SRREL="""" I $P(VADM(6),""^""),SRSD<$P(VADM(6),""^"") S X1=SRSD,X2=30 D C^%DTC I $P(VADM(6),""^"")'>X S SRDEATH=1"
^XMB(3.9,148,2,13839,0)="""RTN"",""SROQ0"",12,0)"
^XMB(3.9,148,2,13840,0)=" I SRDEATH S ^TMP(""SRDTH"",$J,DFN)="""""
^XMB(3.9,148,2,13841,0)="""RTN"",""SROQ0"",13,0)"
^XMB(3.9,148,2,13842,0)=" S SRMM=$P(SR(0),""^"",3) I SRMM=""J"" S SRMAJOR=SRMAJOR+1"
^XMB(3.9,148,2,13843,0)="""RTN"",""SROQ0"",14,0)"
^XMB(3.9,148,2,13844,0)=" S SRIOSTAT=$P(SR(0),""^"",12) I SRIOSTAT'=""I""&(SRIOSTAT'=""O"") S VAIP(""D"")=SRSD D IN5^VADPT S SRIOSTAT=$S(VAIP(13):""I"",1:""O"") K VAIP"
^XMB(3.9,148,2,13845,0)="""RTN"",""SROQ0"",15,0)"
^XMB(3.9,148,2,13846,0)=" I SRIOSTAT=""I"" S SRINPAT=SRINPAT+1"
^XMB(3.9,148,2,13847,0)="""RTN"",""SROQ0"",16,0)"
^XMB(3.9,148,2,13848,0)=" S Y=$P($G(^SRF(SRTN,1.1)),""^"",3),C=$P(^DD(130,1.13,0),""^"",2) D:Y'="""" Y^DIQ S SRASA=$P(Y,""-"")"
^XMB(3.9,148,2,13849,0)="""RTN"",""SROQ0"",17,0)"
^XMB(3.9,148,2,13850,0)=" S SREM=$P(SR(0),""^"",10) I SREM=""EM""!(SRASA[""E"") S SREMERG=SREMERG+1"
^XMB(3.9,148,2,13851,0)="""RTN"",""SROQ0"",18,0)"
^XMB(3.9,148,2,13852,0)="COMP ; check for post-op complications"
^XMB(3.9,148,2,13853,0)="""RTN"",""SROQ0"",19,0)"
^XMB(3.9,148,2,13854,0)=" S SRPOC=0 I $O(^SRF(SRTN,16,0)) S SRPOC=1,SRCOMP=SRCOMP+1"
^XMB(3.9,148,2,13855,0)="""RTN"",""SROQ0"",20,0)"
^XMB(3.9,148,2,13856,0)="ASA ; find ASA class for major procedures"
^XMB(3.9,148,2,13857,0)="""RTN"",""SROQ0"",21,0)"
^XMB(3.9,148,2,13858,0)=" I SRMM=""J"" S Z=$E(SRASA) S:Z="""" Z=7 S SRASA(Z)=SRASA(Z)+1"
^XMB(3.9,148,2,13859,0)="""RTN"",""SROQ0"",22,0)"
^XMB(3.9,148,2,13860,0)="SP ; find specialty data"
^XMB(3.9,148,2,13861,0)="""RTN"",""SROQ0"",23,0)"
^XMB(3.9,148,2,13862,0)=" S X=$P(SR(0),""^"",4),Y=$S(X:$P(^SRO(137.45,X,0),""^"",2),1:""ZZ"") S SRSS=$S(Y:$P(^DIC(45.3,Y,0),""^""),1:Y) I '$D(SRSPEC(SRSS)) S SRSS=""ZZ"""
^XMB(3.9,148,2,13863,0)="""RTN"",""SROQ0"",24,0)"
^XMB(3.9,148,2,13864,0)=" F I=1:1:4 S SRP(I)=$P(^TMP(""SRSS"",$J,SRSS),""^"",I)"
^XMB(3.9,148,2,13865,0)="""RTN"",""SROQ0"",25,0)"
^XMB(3.9,148,2,13866,0)=" I '$D(^TMP(""SRDPT"",$J,DFN,SRSS)) S ^TMP(""SRDPT"",$J,DFN,SRSS)="""",SRP(1)=SRP(1)+1"
^XMB(3.9,148,2,13867,0)="""RTN"",""SROQ0"",26,0)"
^XMB(3.9,148,2,13868,0)=" S SRP(2)=SRP(2)+1 S:SRMM=""J"" SRP(3)=SRP(3)+1 S:SRMM'=""J"" SRP(4)=SRP(4)+1"
^XMB(3.9,148,2,13869,0)="""RTN"",""SROQ0"",27,0)"
^XMB(3.9,148,2,13870,0)=" S ^TMP(""SRSS"",$J,SRSS)=SRP(1)_""^""_SRP(2)_""^""_SRP(3)_""^""_SRP(4) K SRP"
^XMB(3.9,148,2,13871,0)="""RTN"",""SROQ0"",28,0)"
^XMB(3.9,148,2,13872,0)=" D ^SROQ0A"
^XMB(3.9,148,2,13873,0)="""RTN"",""SROQ0"",29,0)"
^XMB(3.9,148,2,13874,0)="WC ; clean wound ?"
^XMB(3.9,148,2,13875,0)="""RTN"",""SROQ0"",30,0)"
^XMB(3.9,148,2,13876,0)=" S SRCLEAN=0 I $P($G(^SRF(SRTN,""1.0"")),""^"",8)=""C"" S SRWC=SRWC+1,SRCLEAN=1"
^XMB(3.9,148,2,13877,0)="""RTN"",""SROQ0"",31,0)"
^XMB(3.9,148,2,13878,0)="CAT ; complication categories"
^XMB(3.9,148,2,13879,0)="""RTN"",""SROQ0"",32,0)"
^XMB(3.9,148,2,13880,0)=" S SRW=0"
^XMB(3.9,148,2,13881,0)="""RTN"",""SROQ0"",33,0)"
^XMB(3.9,148,2,13882,0)=" I SRPOC S SRC=0 F  S SRC=$O(^SRF(SRTN,16,SRC)) Q:'SRC  S SRCAT=$P(^SRF(SRTN,16,SRC,0),""^"",2) I SRCAT D"
^XMB(3.9,148,2,13883,0)="""RTN"",""SROQ0"",34,0)"
^XMB(3.9,148,2,13884,0)=" .S SRC(SRCAT)=SRC(SRCAT)+1 I SRCLEAN,(SRCAT=1!(SRCAT=2)) S SRW=1"
^XMB(3.9,148,2,13885,0)="""RTN"",""SROQ0"",35,0)"
^XMB(3.9,148,2,13886,0)=" I $O(^SRF(SRTN,10,0)) S SRC=0 F  S SRC=$O(^SRF(SRTN,10,SRC)) Q:'SRC  S SRCAT=$P(^SRF(SRTN,10,SRC,0),""^"",2) I SRCAT D"
^XMB(3.9,148,2,13887,0)="""RTN"",""SROQ0"",36,0)"
^XMB(3.9,148,2,13888,0)=" .S SRC(SRCAT)=SRC(SRCAT)+1 I SRCLEAN,(SRCAT=1!(SRCAT=2)) S SRW=1"
^XMB(3.9,148,2,13889,0)="""RTN"",""SROQ0"",37,0)"
^XMB(3.9,148,2,13890,0)=" I SRW S SRIN=SRIN+1"
^XMB(3.9,148,2,13891,0)="""RTN"",""SROQ0"",38,0)"
^XMB(3.9,148,2,13892,0)="ENSURE ; check ensuring correct surgery compliance"
^XMB(3.9,148,2,13893,0)="""RTN"",""SROQ0"",39,0)"
^XMB(3.9,148,2,13894,0)=" S SRVER=$G(^SRF(SRTN,""VER""))"
^XMB(3.9,148,2,13895,0)="""RTN"",""SROQ0"",40,0)"
^XMB(3.9,148,2,13896,0)="TOV ; process time out verified field"
^XMB(3.9,148,2,13897,0)="""RTN"",""SROQ0"",41,0)"
^XMB(3.9,148,2,13898,0)=" S SR71=$P(SRVER,""^"",3) D"
^XMB(3.9,148,2,13899,0)="""RTN"",""SROQ0"",42,0)"
^XMB(3.9,148,2,13900,0)=" .I SR71=""Y"" S SRTOV=SRTOV+1 Q"
^XMB(3.9,148,2,13901,0)="""RTN"",""SROQ0"",43,0)"
^XMB(3.9,148,2,13902,0)=" .I SR71=""N"" S SRTONO=SRTONO+1 Q"
^XMB(3.9,148,2,13903,0)="""RTN"",""SROQ0"",44,0)"
^XMB(3.9,148,2,13904,0)=" .S SRTONE=SRTONE+1"
^XMB(3.9,148,2,13905,0)="""RTN"",""SROQ0"",45,0)"
^XMB(3.9,148,2,13906,0)="IC ; process imaging confirmed field"
^XMB(3.9,148,2,13907,0)="""RTN"",""SROQ0"",46,0)"
^XMB(3.9,148,2,13908,0)=" S SR72=$P(SRVER,""^"",4) D"
^XMB(3.9,148,2,13909,0)="""RTN"",""SROQ0"",47,0)"
^XMB(3.9,148,2,13910,0)=" .I SR72=""Y"" S SRICY=SRICY+1 Q"
^XMB(3.9,148,2,13911,0)="""RTN"",""SROQ0"",48,0)"
^XMB(3.9,148,2,13912,0)=" .I SR72=""I"" S SRICNR=SRICNR+1 Q"
^XMB(3.9,148,2,13913,0)="""RTN"",""SROQ0"",49,0)"
^XMB(3.9,148,2,13914,0)=" .I SR72=""N"" S SRICNO=SRICNO+1 Q"
^XMB(3.9,148,2,13915,0)="""RTN"",""SROQ0"",50,0)"
^XMB(3.9,148,2,13916,0)=" .S SRICNE=SRICNE+1"
^XMB(3.9,148,2,13917,0)="""RTN"",""SROQ0"",51,0)"
^XMB(3.9,148,2,13918,0)="MRK ; process mark on surgical site confirmed field"
^XMB(3.9,148,2,13919,0)="""RTN"",""SROQ0"",52,0)"
^XMB(3.9,148,2,13920,0)=" S SR73=$P(SRVER,""^"",5) D"
^XMB(3.9,148,2,13921,0)="""RTN"",""SROQ0"",53,0)"
^XMB(3.9,148,2,13922,0)=" .I SR73=""Y"" S SRSCY=SRSCY+1 Q"
^XMB(3.9,148,2,13923,0)="""RTN"",""SROQ0"",54,0)"
^XMB(3.9,148,2,13924,0)=" .I SR73=""M"" S SRSCNR=SRSCNR+1 Q"
^XMB(3.9,148,2,13925,0)="""RTN"",""SROQ0"",55,0)"
^XMB(3.9,148,2,13926,0)=" .I SR73=""N"" S SRSCNO=SRSCNO+1 Q"
^XMB(3.9,148,2,13927,0)="""RTN"",""SROQ0"",56,0)"
^XMB(3.9,148,2,13928,0)=" .S SRSCNE=SRSCNE+1"
^XMB(3.9,148,2,13929,0)="""RTN"",""SROQ0"",57,0)"
^XMB(3.9,148,2,13930,0)="HAIR ; process hair removal method"
^XMB(3.9,148,2,13931,0)="""RTN"",""SROQ0"",58,0)"
^XMB(3.9,148,2,13932,0)=" S X=$P(SRVER,""^"",6) I X="""" S X=""ZZ"""
^XMB(3.9,148,2,13933,0)="""RTN"",""SROQ0"",59,0)"
^XMB(3.9,148,2,13934,0)=" I $D(SRHAIR(X)) S SRHAIR(X)=SRHAIR(X)+1 Q"
^XMB(3.9,148,2,13935,0)="""RTN"",""SROQ0"",60,0)"
^XMB(3.9,148,2,13936,0)=" S SRHAIR(""ZZ"")=SRHAIR(""ZZ"")+1"
^XMB(3.9,148,2,13937,0)="""RTN"",""SROQ0"",61,0)"
^XMB(3.9,148,2,13938,0)=" Q"
^XMB(3.9,148,2,13939,0)="""RTN"",""SROQ0"",62,0)"
^XMB(3.9,148,2,13940,0)="HDR ; print page header"
^XMB(3.9,148,2,13941,0)="""RTN"",""SROQ0"",63,0)"
^XMB(3.9,148,2,13942,0)=" I $D(ZTQUEUED) D ^SROSTOP I SRHALT S SRSOUT=1 Q"
^XMB(3.9,148,2,13943,0)="""RTN"",""SROQ0"",64,0)"
^XMB(3.9,148,2,13944,0)=" I SRHDR,$E(IOST,1,2)=""C-"" W !!,""Press RETURN to continue, or '^' to quit: "" R X:DTIME I '$T!(X[""^"") S SRSOUT=1 Q"
^XMB(3.9,148,2,13945,0)="""RTN"",""SROQ0"",65,0)"
^XMB(3.9,148,2,13946,0)=" S SRHDR=1 I $E(IOST)'=""P"" W @IOF Q"
^XMB(3.9,148,2,13947,0)="""RTN"",""SROQ0"",66,0)"
^XMB(3.9,148,2,13948,0)=" S SRPAGE=SRPAGE+1 I 'SRFLG D HDR1 Q"
^XMB(3.9,148,2,13949,0)="""RTN"",""SROQ0"",67,0)"
^XMB(3.9,148,2,13950,0)=" W:$Y @IOF W !,?23,""QUARTERLY REPORT - SURGICAL SERVICE"",?76,""PAGE"",!,?35,""VERSION 3.0"",?78,SRPAGE"
^XMB(3.9,148,2,13951,0)="""RTN"",""SROQ0"",68,0)"
^XMB(3.9,148,2,13952,0)=" I SRINST[""ALL DIV"" W !!,?(80-$L(""Hospital: ""_SRINST)\2),""Hospital: "",SRINST,!,?30,""Station Number: "",SRSTATN"
^XMB(3.9,148,2,13953,0)="""RTN"",""SROQ0"",69,0)"
^XMB(3.9,148,2,13954,0)=" I SRINST'[""ALL DIV"" W !!,?3,""Hospital: "",SRINST,?55,""Station Number: "",SRSTATN"
^XMB(3.9,148,2,13955,0)="""RTN"",""SROQ0"",70,0)"
^XMB(3.9,148,2,13956,0)=" W !,?3,""For Dates: "",SRSD,?32,""to: "",SRED,?55,""Fiscal Year: "",SRYR,! F I=1:1:80 W ""="""
^XMB(3.9,148,2,13957,0)="""RTN"",""SROQ0"",71,0)"
^XMB(3.9,148,2,13958,0)=" Q"
^XMB(3.9,148,2,13959,0)="""RTN"",""SROQ0"",72,0)"
^XMB(3.9,148,2,13960,0)="HDR1 ; print header if not quarterly report"
^XMB(3.9,148,2,13961,0)="""RTN"",""SROQ0"",73,0)"
^XMB(3.9,148,2,13962,0)=" I $D(ZTQUEUED) D ^SROSTOP I SRHALT S SRSOUT=1 Q"
^XMB(3.9,148,2,13963,0)="""RTN"",""SROQ0"",74,0)"
^XMB(3.9,148,2,13964,0)=" W:$Y @IOF W !,?24,""SUMMARY REPORT - SURGICAL SERVICE"",?76,""PAGE"",!,?35,""VERSION 3.0"",?78,SRPAGE"
^XMB(3.9,148,2,13965,0)="""RTN"",""SROQ0"",75,0)"
^XMB(3.9,148,2,13966,0)=" W !!,?(80-$L(""Hospital: ""_SRINST)\2),""Hospital: "",SRINST,!,?30,""Station Number: "",SRSTATN"
^XMB(3.9,148,2,13967,0)="""RTN"",""SROQ0"",76,0)"
^XMB(3.9,148,2,13968,0)=" W !,?20,""For Dates: "",SRSD,""  to: "",SRED I $E(IOST)=""P"" W ! F I=1:1:80 W ""="""
^XMB(3.9,148,2,13969,0)="""RTN"",""SROQ0"",77,0)"
^XMB(3.9,148,2,13970,0)=" Q"
^XMB(3.9,148,2,13971,0)="""RTN"",""SROQ1"")"
^XMB(3.9,148,2,13972,0)="0^77^B34164530^B26613314"
^XMB(3.9,148,2,13973,0)="""RTN"",""SROQ1"",1,0)"
^XMB(3.9,148,2,13974,0)="SROQ1 ;BIR/ADM - QUARTERLY REPORT (CONTINUED) ;04/03/06"
^XMB(3.9,148,2,13975,0)="""RTN"",""SROQ1"",2,0)"
^XMB(3.9,148,2,13976,0)=" ;;3.0; Surgery ;**38,62,70,50,95,123,126,129,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,13977,0)="""RTN"",""SROQ1"",3,0)"
^XMB(3.9,148,2,13978,0)=" ;** NOTICE: This routine is part of an implementation of a nationally"
^XMB(3.9,148,2,13979,0)="""RTN"",""SROQ1"",4,0)"
^XMB(3.9,148,2,13980,0)=" ;**         controlled procedure. Local modifications to this routine"
^XMB(3.9,148,2,13981,0)="""RTN"",""SROQ1"",5,0)"
^XMB(3.9,148,2,13982,0)=" ;**         are prohibited."
^XMB(3.9,148,2,13983,0)="""RTN"",""SROQ1"",6,0)"
^XMB(3.9,148,2,13984,0)=" ;"
^XMB(3.9,148,2,13985,0)="""RTN"",""SROQ1"",7,0)"
^XMB(3.9,148,2,13986,0)=" Q:SRSOUT  U IO S (SRHDR,SRPAGE)=0 D HDR^SROQ0 Q:SRSOUT"
^XMB(3.9,148,2,13987,0)="""RTN"",""SROQ1"",8,0)"
^XMB(3.9,148,2,13988,0)="TOT W !!,?35,""Total Cases"",?55,""% of Total"",!,?35,""-----------"",?55,""----------"""
^XMB(3.9,148,2,13989,0)="""RTN"",""SROQ1"",9,0)"
^XMB(3.9,148,2,13990,0)=" W !,?5,""Surgical Cases"",?37,$J(SRCASES,6) W:SRCASES ?57,""100.0"" S SRALL=SRCASES I 'SRALL S SRALL=1"
^XMB(3.9,148,2,13991,0)="""RTN"",""SROQ1"",10,0)"
^XMB(3.9,148,2,13992,0)=" W !,?5,""Major Procedures"",?37,$J(SRMAJOR,6),?57,$J(((SRMAJOR/SRALL)*100),5,1) S SRMAJ=SRMAJOR I 'SRMAJOR S SRMAJ=1"
^XMB(3.9,148,2,13993,0)="""RTN"",""SROQ1"",11,0)"
^XMB(3.9,148,2,13994,0)="ASA F I=1:1:6 W !,?9,""ASA Class (""_I_"")"",?37,$J(SRASA(I),6),?57,$J(((SRASA(I)/SRMAJ)*100),5,1)"
^XMB(3.9,148,2,13995,0)="""RTN"",""SROQ1"",12,0)"
^XMB(3.9,148,2,13996,0)=" I SRASA(7) W !,?9,""ASA Class (Not Entered)"",?37,$J(SRASA(7),6),?57,$J(((SRASA(7)/SRMAJ)*100),5,1)"
^XMB(3.9,148,2,13997,0)="""RTN"",""SROQ1"",13,0)"
^XMB(3.9,148,2,13998,0)=" W !,?5,""Postoperative Deaths"",?37,$J(SRMORT,6),?57,$J(((SRMORT/SRALL)*100),5,1),!,?9,""Ambulatory: ""_SROPD"
^XMB(3.9,148,2,13999,0)="""RTN"",""SROQ1"",14,0)"
^XMB(3.9,148,2,14000,0)=" W !,?5,""Postoperative Occurrences"",?37,$J(SRCOMP,6),?57,$J(((SRCOMP/SRALL)*100),5,1)"
^XMB(3.9,148,2,14001,0)="""RTN"",""SROQ1"",15,0)"
^XMB(3.9,148,2,14002,0)=" W !,?5,""Ambulatory Procedures"",?37,$J((SRCASES-SRINPAT),6),?57,$J((((SRCASES-SRINPAT)/SRALL)*100),5,1)"
^XMB(3.9,148,2,14003,0)="""RTN"",""SROQ1"",16,0)"
^XMB(3.9,148,2,14004,0)=" W !,?9,""Admitted Within 14 Days: ""_SRADMT"
^XMB(3.9,148,2,14005,0)="""RTN"",""SROQ1"",17,0)"
^XMB(3.9,148,2,14006,0)=" W !,?9,""Invasive Diagnostic: ""_SRINV(""O"")"
^XMB(3.9,148,2,14007,0)="""RTN"",""SROQ1"",18,0)"
^XMB(3.9,148,2,14008,0)=" W !,?5,""Inpatient Procedures"",?37,$J(SRINPAT,6),?57,$J(((SRINPAT/SRALL)*100),5,1)"
^XMB(3.9,148,2,14009,0)="""RTN"",""SROQ1"",19,0)"
^XMB(3.9,148,2,14010,0)=" W !,?5,""Emergency Procedures"",?37,$J(SREMERG,6),?57,$J(((SREMERG/SRALL)*100),5,1)"
^XMB(3.9,148,2,14011,0)="""RTN"",""SROQ1"",20,0)"
^XMB(3.9,148,2,14012,0)=" W !,?5,""Age>60 Years"",?37,$J(SR60,6),?57,$J(((SR60/SRALL)*100),5,1)"
^XMB(3.9,148,2,14013,0)="""RTN"",""SROQ1"",21,0)"
^XMB(3.9,148,2,14014,0)="SP D:$E(IOST,1,2)=""C-"" HDR^SROQ0 Q:SRSOUT  W:$E(IOST,1,2)'=""C-"" !"
^XMB(3.9,148,2,14015,0)="""RTN"",""SROQ1"",22,0)"
^XMB(3.9,148,2,14016,0)=" W !!,?30,""SPECIALTY PROCEDURES"",!,?30,""--------------------"",!,?66,""---DEATHS---"""
^XMB(3.9,148,2,14017,0)="""RTN"",""SROQ1"",23,0)"
^XMB(3.9,148,2,14018,0)=" W !,?27,""PATIENTS   CASES    MAJOR    MINOR     TOTAL    %"""
^XMB(3.9,148,2,14019,0)="""RTN"",""SROQ1"",24,0)"
^XMB(3.9,148,2,14020,0)=" W !,?27,""--------   -----    -----    -----     -----   ----"""
^XMB(3.9,148,2,14021,0)="""RTN"",""SROQ1"",25,0)"
^XMB(3.9,148,2,14022,0)="SRSS ; print data for each specialty"
^XMB(3.9,148,2,14023,0)="""RTN"",""SROQ1"",26,0)"
^XMB(3.9,148,2,14024,0)=" S SRPTF=50,SRSP=""GENERAL"" D SPOUT"
^XMB(3.9,148,2,14025,0)="""RTN"",""SROQ1"",27,0)"
^XMB(3.9,148,2,14026,0)=" S SRPTF=51,SRSP=""GYNECOLOGY"" D SPOUT"
^XMB(3.9,148,2,14027,0)="""RTN"",""SROQ1"",28,0)"
^XMB(3.9,148,2,14028,0)=" S SRPTF=52,SRSP=""NEUROSURGERY"" D SPOUT"
^XMB(3.9,148,2,14029,0)="""RTN"",""SROQ1"",29,0)"
^XMB(3.9,148,2,14030,0)=" S SRPTF=53,SRSP=""OPHTHALMOLOGY"" D SPOUT"
^XMB(3.9,148,2,14031,0)="""RTN"",""SROQ1"",30,0)"
^XMB(3.9,148,2,14032,0)=" S SRPTF=54,SRSP=""ORTHOPEDICS"" D SPOUT"
^XMB(3.9,148,2,14033,0)="""RTN"",""SROQ1"",31,0)"
^XMB(3.9,148,2,14034,0)=" S SRPTF=55,SRSP=""OTORHINOLARYNGOLOGY"" D SPOUT"
^XMB(3.9,148,2,14035,0)="""RTN"",""SROQ1"",32,0)"
^XMB(3.9,148,2,14036,0)=" S SRPTF=56,SRSP=""PLASTIC SURGERY"" D SPOUT"
^XMB(3.9,148,2,14037,0)="""RTN"",""SROQ1"",33,0)"
^XMB(3.9,148,2,14038,0)=" S SRPTF=57,SRSP=""PROCTOLOGY"" D SPOUT"
^XMB(3.9,148,2,14039,0)="""RTN"",""SROQ1"",34,0)"
^XMB(3.9,148,2,14040,0)=" S SRPTF=58,SRSP=""THORACIC SURGERY"" D SPOUT"
^XMB(3.9,148,2,14041,0)="""RTN"",""SROQ1"",35,0)"
^XMB(3.9,148,2,14042,0)=" S SRPTF=59,SRSP=""UROLOGY"" D SPOUT"
^XMB(3.9,148,2,14043,0)="""RTN"",""SROQ1"",36,0)"
^XMB(3.9,148,2,14044,0)=" S SRPTF=60,SRSP=""ORAL SURGERY"" D SPOUT"
^XMB(3.9,148,2,14045,0)="""RTN"",""SROQ1"",37,0)"
^XMB(3.9,148,2,14046,0)=" S SRPTF=61,SRSP=""PODIATRY"" D SPOUT"
^XMB(3.9,148,2,14047,0)="""RTN"",""SROQ1"",38,0)"
^XMB(3.9,148,2,14048,0)=" S SRPTF=62,SRSP=""PERIPHERAL VASCULAR"" D SPOUT"
^XMB(3.9,148,2,14049,0)="""RTN"",""SROQ1"",39,0)"
^XMB(3.9,148,2,14050,0)=" S SRPTF=500,SRSP=""CARDIAC SURGERY"" D SPOUT"
^XMB(3.9,148,2,14051,0)="""RTN"",""SROQ1"",40,0)"
^XMB(3.9,148,2,14052,0)=" S SRPTF=501,SRSP=""TRANSPLANTATION"" D SPOUT"
^XMB(3.9,148,2,14053,0)="""RTN"",""SROQ1"",41,0)"
^XMB(3.9,148,2,14054,0)=" S SRPTF=502,SRSP=""ANESTHESIOLOGY"" D SPOUT"
^XMB(3.9,148,2,14055,0)="""RTN"",""SROQ1"",42,0)"
^XMB(3.9,148,2,14056,0)=" I +^TMP(""SRSS"",$J,""ZZ"") S SRPTF=""ZZ"",SRSP=""SPECIALTY NOT ENTERED"" D SPOUT"
^XMB(3.9,148,2,14057,0)="""RTN"",""SROQ1"",43,0)"
^XMB(3.9,148,2,14058,0)="RES ; resident supervision"
^XMB(3.9,148,2,14059,0)="""RTN"",""SROQ1"",44,0)"
^XMB(3.9,148,2,14060,0)=" I $E(IOST,1,2)=""C-"" D HDR^SROQ0 Q:SRSOUT"
^XMB(3.9,148,2,14061,0)="""RTN"",""SROQ1"",45,0)"
^XMB(3.9,148,2,14062,0)=" W !!!,?24,""LEVEL OF RESIDENT SUPERVISION (%)"",!,?24,""---------------------------------"",!,?42,""MAJOR     MINOR"""
^XMB(3.9,148,2,14063,0)="""RTN"",""SROQ1"",46,0)"
^XMB(3.9,148,2,14064,0)=" S SRIX=SRCASES-SRMAJOR,SRMAJ=SRMAJOR S:'SRIX SRIX=1 S:'SRMAJ SRMAJ=1"
^XMB(3.9,148,2,14065,0)="""RTN"",""SROQ1"",47,0)"
^XMB(3.9,148,2,14066,0)=" S I=0 F  S I=$O(SRATT(""J"",I)) Q:'I  D"
^XMB(3.9,148,2,14067,0)="""RTN"",""SROQ1"",48,0)"
^XMB(3.9,148,2,14068,0)=" .S SRL=$S(I=9:""A"",I=10:""B"",I=11:""C"",I=12:""D"",I=13:""E"",I=14:""F"",I=1:""0 (Old)"",I=2:""1 (Old)"",I=3:""2 (Old)"",I=4:""3 (Old)"",I=5:""0"",I=6:""1"",I=7:""2"",I=8:""3"",1:""Not Entered"")"
^XMB(3.9,148,2,14069,0)="""RTN"",""SROQ1"",49,0)"
^XMB(3.9,148,2,14070,0)=" .W !,?24,""Level "",SRL,?42,$J(((SRATT(""J"",I)/SRMAJ)*100),5,1),?52,$J(((SRATT(""N"",I)/SRIX)*100),5,1)"
^XMB(3.9,148,2,14071,0)="""RTN"",""SROQ1"",50,0)"
^XMB(3.9,148,2,14072,0)="NDEX ; print data for index procedures"
^XMB(3.9,148,2,14073,0)="""RTN"",""SROQ1"",51,0)"
^XMB(3.9,148,2,14074,0)=" D HDR^SROQ0 Q:SRSOUT"
^XMB(3.9,148,2,14075,0)="""RTN"",""SROQ1"",52,0)"
^XMB(3.9,148,2,14076,0)=" W !!,?32,""INDEX PROCEDURES"",!,?32,""----------------"""
^XMB(3.9,148,2,14077,0)="""RTN"",""SROQ1"",53,0)"
^XMB(3.9,148,2,14078,0)=" W !,?54,""CASES WITH"",!,?30,""CASES        DEATHS     OCCURRENCES"""
^XMB(3.9,148,2,14079,0)="""RTN"",""SROQ1"",54,0)"
^XMB(3.9,148,2,14080,0)=" W !,?30,""-----        -------    -----------"""
^XMB(3.9,148,2,14081,0)="""RTN"",""SROQ1"",55,0)"
^XMB(3.9,148,2,14082,0)=" F J=1:1:12 D IX"
^XMB(3.9,148,2,14083,0)="""RTN"",""SROQ1"",56,0)"
^XMB(3.9,148,2,14084,0)=" D ^SROQ1A"
^XMB(3.9,148,2,14085,0)="""RTN"",""SROQ1"",57,0)"
^XMB(3.9,148,2,14086,0)="ENSURE ; ensuring correct surgery compliance"
^XMB(3.9,148,2,14087,0)="""RTN"",""SROQ1"",58,0)"
^XMB(3.9,148,2,14088,0)=" D HDR^SROQ0 Q:SRSOUT"
^XMB(3.9,148,2,14089,0)="""RTN"",""SROQ1"",59,0)"
^XMB(3.9,148,2,14090,0)=" W !!,?17,""ENSURING CORRECT SURGERY - COMPLIANCE SUMMARY"",!,?17,""---------------------------------------------"""
^XMB(3.9,148,2,14091,0)="""RTN"",""SROQ1"",60,0)"
^XMB(3.9,148,2,14092,0)=" W !!,?42,""CASES    % OF TOTAL"",!,?42,""-----    ----------"""
^XMB(3.9,148,2,14093,0)="""RTN"",""SROQ1"",61,0)"
^XMB(3.9,148,2,14094,0)=" W !,?18,""TOTAL CASES PERFORMED:""_$J(SRCASES,6) W:SRCASES ?53,""100.0"""
^XMB(3.9,148,2,14095,0)="""RTN"",""SROQ1"",62,0)"
^XMB(3.9,148,2,14096,0)=" W !!,?22,""TIME OUT VERIFIED"",!,?36,""YES:""_$J(SRTOV,6) W:SRCASES ?53,$J(((SRTOV/SRCASES)*100),5,1)"
^XMB(3.9,148,2,14097,0)="""RTN"",""SROQ1"",63,0)"
^XMB(3.9,148,2,14098,0)=" W !,?37,""NO:""_$J(SRTONO,6) W:SRCASES ?53,$J(((SRTONO/SRCASES)*100),5,1)"
^XMB(3.9,148,2,14099,0)="""RTN"",""SROQ1"",64,0)"
^XMB(3.9,148,2,14100,0)=" W !,?28,""NOT ENTERED:""_$J(SRTONE,6) W:SRCASES ?53,$J(((SRTONE/SRCASES)*100),5,1)"
^XMB(3.9,148,2,14101,0)="""RTN"",""SROQ1"",65,0)"
^XMB(3.9,148,2,14102,0)=" W !!,?9,""PREOPERATIVE IMAGING CONFIRMED"",!,?36,""YES:""_$J(SRICY,6) W:SRCASES ?53,$J(((SRICY/SRCASES)*100),5,1)"
^XMB(3.9,148,2,14103,0)="""RTN"",""SROQ1"",66,0)"
^XMB(3.9,148,2,14104,0)=" W !,?19,""IMAGING NOT REQUIRED:""_$J(SRICNR,6) W:SRCASES ?53,$J(((SRICNR/SRCASES)*100),5,1)"
^XMB(3.9,148,2,14105,0)="""RTN"",""SROQ1"",67,0)"
^XMB(3.9,148,2,14106,0)=" W !,?37,""NO:""_$J(SRICNO,6) W:SRCASES ?53,$J(((SRICNO/SRCASES)*100),5,1)"
^XMB(3.9,148,2,14107,0)="""RTN"",""SROQ1"",68,0)"
^XMB(3.9,148,2,14108,0)=" W !,?28,""NOT ENTERED:""_$J(SRICNE,6) W:SRCASES ?53,$J(((SRICNE/SRCASES)*100),5,1)"
^XMB(3.9,148,2,14109,0)="""RTN"",""SROQ1"",69,0)"
^XMB(3.9,148,2,14110,0)=" I $E(IOST,1,2)=""C-"" D HDR^SROQ0 Q:SRSOUT  W !,?17,""ENSURING CORRECT SURGERY - COMPLIANCE SUMMARY (Continued)"""
^XMB(3.9,148,2,14111,0)="""RTN"",""SROQ1"",70,0)"
^XMB(3.9,148,2,14112,0)=" W !!,?8,""MARK ON SURGICAL SITE CONFIRMED"",!,?36,""YES:""_$J(SRSCY,6) W:SRCASES ?53,$J(((SRSCY/SRCASES)*100),5,1)"
^XMB(3.9,148,2,14113,0)="""RTN"",""SROQ1"",71,0)"
^XMB(3.9,148,2,14114,0)=" W !,?19,""MARKING NOT REQUIRED:""_$J(SRSCNR,6) W:SRCASES ?53,$J(((SRSCNR/SRCASES)*100),5,1)"
^XMB(3.9,148,2,14115,0)="""RTN"",""SROQ1"",72,0)"
^XMB(3.9,148,2,14116,0)=" W !,?37,""NO:""_$J(SRSCNO,6) W:SRCASES ?53,$J(((SRSCNO/SRCASES)*100),5,1)"
^XMB(3.9,148,2,14117,0)="""RTN"",""SROQ1"",73,0)"
^XMB(3.9,148,2,14118,0)=" W !,?28,""NOT ENTERED:""_$J(SRSCNE,6) W:SRCASES ?53,$J(((SRSCNE/SRCASES)*100),5,1)"
^XMB(3.9,148,2,14119,0)="""RTN"",""SROQ1"",74,0)"
^XMB(3.9,148,2,14120,0)=" W !!,?20,""OVERALL COMPLIANCE FOR THIS DATE RANGE"",!,?20,""--------------------------------------"""
^XMB(3.9,148,2,14121,0)="""RTN"",""SROQ1"",75,0)"
^XMB(3.9,148,2,14122,0)=" W !,?34,""TIME OUT VERIFIED: "" W:SRCASES $J(((SRTOV/SRCASES)*100),5,1),""%"""
^XMB(3.9,148,2,14123,0)="""RTN"",""SROQ1"",76,0)"
^XMB(3.9,148,2,14124,0)=" W !,?21,""PREOPERATIVE IMAGING CONFIRMED: "" W:SRCASES $J((((SRICY+SRICNR)/SRCASES)*100),5,1),""%"""
^XMB(3.9,148,2,14125,0)="""RTN"",""SROQ1"",77,0)"
^XMB(3.9,148,2,14126,0)=" W !,?20,""MARK ON SURGICAL SITE CONFIRMED: "" W:SRCASES $J((((SRSCY+SRSCNR)/SRCASES)*100),5,1),""%"""
^XMB(3.9,148,2,14127,0)="""RTN"",""SROQ1"",78,0)"
^XMB(3.9,148,2,14128,0)="HAIR ; print hair removal methods"
^XMB(3.9,148,2,14129,0)="""RTN"",""SROQ1"",79,0)"
^XMB(3.9,148,2,14130,0)=" D:$E(IOST,1,2)=""C-"" HDR^SROQ0 Q:SRSOUT  W:$E(IOST,1,2)'=""C-"" !"
^XMB(3.9,148,2,14131,0)="""RTN"",""SROQ1"",80,0)"
^XMB(3.9,148,2,14132,0)=" W !!,?19,""PREOPERATIVE HAIR REMOVAL METHODS SUMMARY"",!,?19,""-----------------------------------------"""
^XMB(3.9,148,2,14133,0)="""RTN"",""SROQ1"",81,0)"
^XMB(3.9,148,2,14134,0)=" W !!,?42,""CASES    % OF TOTAL"",!,?42,""-----    ----------"""
^XMB(3.9,148,2,14135,0)="""RTN"",""SROQ1"",82,0)"
^XMB(3.9,148,2,14136,0)=" W !,?18,""TOTAL CASES PERFORMED:""_$J(SRCASES,6) W:SRCASES ?53,""100.0"""
^XMB(3.9,148,2,14137,0)="""RTN"",""SROQ1"",83,0)"
^XMB(3.9,148,2,14138,0)=" W !!,?32,""CLIPPER:""_$J(SRHAIR(""C""),6) W:SRCASES ?53,$J(((SRHAIR(""C"")/SRCASES)*100),5,1)"
^XMB(3.9,148,2,14139,0)="""RTN"",""SROQ1"",84,0)"
^XMB(3.9,148,2,14140,0)=" W !,?29,""DEPILATORY:""_$J(SRHAIR(""D""),6) W:SRCASES ?53,$J(((SRHAIR(""D"")/SRCASES)*100),5,1)"
^XMB(3.9,148,2,14141,0)="""RTN"",""SROQ1"",85,0)"
^XMB(3.9,148,2,14142,0)=" W !,?24,""NO HAIR REMOVED:""_$J(SRHAIR(""N""),6) W:SRCASES ?53,$J(((SRHAIR(""N"")/SRCASES)*100),5,1)"
^XMB(3.9,148,2,14143,0)="""RTN"",""SROQ1"",86,0)"
^XMB(3.9,148,2,14144,0)=" W !,?15,""PATIENT REMOVED OWN HAIR:""_$J(SRHAIR(""P""),6) W:SRCASES ?53,$J(((SRHAIR(""P"")/SRCASES)*100),5,1)"
^XMB(3.9,148,2,14145,0)="""RTN"",""SROQ1"",87,0)"
^XMB(3.9,148,2,14146,0)=" W !,?32,""SHAVING:""_$J(SRHAIR(""S""),6) W:SRCASES ?53,$J(((SRHAIR(""S"")/SRCASES)*100),5,1)"
^XMB(3.9,148,2,14147,0)="""RTN"",""SROQ1"",88,0)"
^XMB(3.9,148,2,14148,0)=" N SRNDOC S SRNDOC=SRHAIR(""U"")+SRHAIR(""ZZ"")"
^XMB(3.9,148,2,14149,0)="""RTN"",""SROQ1"",89,0)"
^XMB(3.9,148,2,14150,0)=" W !,?25,""NOT DOCUMENTED:""_$J(SRNDOC,6) W:SRCASES ?53,$J(((SRNDOC/SRCASES)*100),5,1)"
^XMB(3.9,148,2,14151,0)="""RTN"",""SROQ1"",90,0)"
^XMB(3.9,148,2,14152,0)=" W !,?34,""OTHER:""_$J(SRHAIR(""O""),6) W:SRCASES ?53,$J(((SRHAIR(""O"")/SRCASES)*100),5,1)"
^XMB(3.9,148,2,14153,0)="""RTN"",""SROQ1"",91,0)"
^XMB(3.9,148,2,14154,0)=" Q"
^XMB(3.9,148,2,14155,0)="""RTN"",""SROQ1"",92,0)"
^XMB(3.9,148,2,14156,0)="IX ; break out index procedure data from ^TMP"
^XMB(3.9,148,2,14157,0)="""RTN"",""SROQ1"",93,0)"
^XMB(3.9,148,2,14158,0)=" F K=1:1:3 S SRP(K)=$P(^TMP(""SRPROC"",$J,J),""^"",K)"
^XMB(3.9,148,2,14159,0)="""RTN"",""SROQ1"",94,0)"
^XMB(3.9,148,2,14160,0)=" D IXOUT^SROQ0A D"
^XMB(3.9,148,2,14161,0)="""RTN"",""SROQ1"",95,0)"
^XMB(3.9,148,2,14162,0)=" .I SROP["","" W:J=7 !,?5,$P(SROP,"","") S SROP=$P(SROP,"","",2)"
^XMB(3.9,148,2,14163,0)="""RTN"",""SROQ1"",96,0)"
^XMB(3.9,148,2,14164,0)=" .W !,?5,SROP,?29,$J(SRP(1),6),?42,$J(SRP(3),6),?55,$J(SRP(2),6)"
^XMB(3.9,148,2,14165,0)="""RTN"",""SROQ1"",97,0)"
^XMB(3.9,148,2,14166,0)=" Q"
^XMB(3.9,148,2,14167,0)="""RTN"",""SROQ1"",98,0)"
^XMB(3.9,148,2,14168,0)="SPOUT ; break out data for each specialty from ^TMP"
^XMB(3.9,148,2,14169,0)="""RTN"",""SROQ1"",99,0)"
^XMB(3.9,148,2,14170,0)=" F K=1:1:5 S SRP(K)=$P(^TMP(""SRSS"",$J,SRPTF),""^"",K)"
^XMB(3.9,148,2,14171,0)="""RTN"",""SROQ1"",100,0)"
^XMB(3.9,148,2,14172,0)=" I SRPTF=""ZZ"" S SRPTF="""""
^XMB(3.9,148,2,14173,0)="""RTN"",""SROQ1"",101,0)"
^XMB(3.9,148,2,14174,0)=" W !,$J(SRPTF,3),?6,SRSP,?27,$J(SRP(1),6),?37,$J(SRP(2),6),?46,$J(SRP(3),6),?55,$J(SRP(4),6),?64,$J(SRP(5),6),?73,$J(((SRP(5)/$S(SRP(2):SRP(2),1:1))*100),5,1)"
^XMB(3.9,148,2,14175,0)="""RTN"",""SROQ1"",102,0)"
^XMB(3.9,148,2,14176,0)=" Q"
^XMB(3.9,148,2,14177,0)="""RTN"",""SROQ1A"")"
^XMB(3.9,148,2,14178,0)="0^100^B30905519^B30428909"
^XMB(3.9,148,2,14179,0)="""RTN"",""SROQ1A"",1,0)"
^XMB(3.9,148,2,14180,0)="SROQ1A ;BIR/ADM - QUARTERLY REPORT (CONTINUED) ;03/29/06"
^XMB(3.9,148,2,14181,0)="""RTN"",""SROQ1A"",2,0)"
^XMB(3.9,148,2,14182,0)=" ;;3.0; Surgery ;**38,62,50,129,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,14183,0)="""RTN"",""SROQ1A"",3,0)"
^XMB(3.9,148,2,14184,0)=" ;** NOTICE: This routine is part of an implementation of a nationally"
^XMB(3.9,148,2,14185,0)="""RTN"",""SROQ1A"",4,0)"
^XMB(3.9,148,2,14186,0)=" ;**         controlled procedure. Local modifications to this routine"
^XMB(3.9,148,2,14187,0)="""RTN"",""SROQ1A"",5,0)"
^XMB(3.9,148,2,14188,0)=" ;**         are prohibited."
^XMB(3.9,148,2,14189,0)="""RTN"",""SROQ1A"",6,0)"
^XMB(3.9,148,2,14190,0)=" ;"
^XMB(3.9,148,2,14191,0)="""RTN"",""SROQ1A"",7,0)"
^XMB(3.9,148,2,14192,0)=" ; Reference to ^DIC(45.3 supported by DBIA #218"
^XMB(3.9,148,2,14193,0)="""RTN"",""SROQ1A"",8,0)"
^XMB(3.9,148,2,14194,0)=" ;"
^XMB(3.9,148,2,14195,0)="""RTN"",""SROQ1A"",9,0)"
^XMB(3.9,148,2,14196,0)="CC ; occurrence categories"
^XMB(3.9,148,2,14197,0)="""RTN"",""SROQ1A"",10,0)"
^XMB(3.9,148,2,14198,0)=" I $E(IOST,1,2)=""C-"" D HDR^SROQ0 Q:SRSOUT"
^XMB(3.9,148,2,14199,0)="""RTN"",""SROQ1A"",11,0)"
^XMB(3.9,148,2,14200,0)=" W !!!,?21,""PERIOPERATIVE OCCURRENCE CATEGORIES"",!,?21,""-----------------------------------"",!"
^XMB(3.9,148,2,14201,0)="""RTN"",""SROQ1A"",12,0)"
^XMB(3.9,148,2,14202,0)="WC W !,?2,""Wound Occurrences"",?31,""Total"",?42,""Urinary Occurrences"",?71,""Total"""
^XMB(3.9,148,2,14203,0)="""RTN"",""SROQ1A"",13,0)"
^XMB(3.9,148,2,14204,0)=" W !,?2,""A. Superficial Incisional SSI"",?31,$J(SRC(1),5),?42,""A. Renal Insufficiency"",?71,$J(SRC(8),5)"
^XMB(3.9,148,2,14205,0)="""RTN"",""SROQ1A"",14,0)"
^XMB(3.9,148,2,14206,0)=" W !,?2,""B. Deep Incisional SSI"",?31,$J(SRC(2),5),?42,""B. Acute Renal Failure"",?71,$J(SRC(9),5)"
^XMB(3.9,148,2,14207,0)="""RTN"",""SROQ1A"",15,0)"
^XMB(3.9,148,2,14208,0)=" W !,?2,""C. Wound Disruption"",?31,$J(SRC(22),5),?42,""C. Urinary Tract Infection"",?71,$J(SRC(10),5)"
^XMB(3.9,148,2,14209,0)="""RTN"",""SROQ1A"",16,0)"
^XMB(3.9,148,2,14210,0)=" W !,?2,""D. Other"",?31,$J(SRC(36),5),?42,""D. Other"",?71,$J(SRC(31),5),!"
^XMB(3.9,148,2,14211,0)="""RTN"",""SROQ1A"",17,0)"
^XMB(3.9,148,2,14212,0)="RC W !,?2,""Respiratory Occurrences"",?31,""Total"",?42,""CNS Occurrences"",?71,""Total"""
^XMB(3.9,148,2,14213,0)="""RTN"",""SROQ1A"",18,0)"
^XMB(3.9,148,2,14214,0)=" W !,?2,""A. Pneumonia"",?31,$J(SRC(4),5),?42,""A. CVA/Stroke"",?71,$J((SRC(12)+SRC(28)),5)"
^XMB(3.9,148,2,14215,0)="""RTN"",""SROQ1A"",19,0)"
^XMB(3.9,148,2,14216,0)=" W !,?2,""B. Unplanned Intubation"",?31,$J((SRC(7)+SRC(11)),5),?42,""B. Coma >24 Hours"",?71,$J(SRC(13),5)"
^XMB(3.9,148,2,14217,0)="""RTN"",""SROQ1A"",20,0)"
^XMB(3.9,148,2,14218,0)=" W !,?2,""C. Pulmonary Embolism"",?31,$J(SRC(5),5),?42,""C. Peripheral Nerve Injury"",?71,$J(SRC(14),5)"
^XMB(3.9,148,2,14219,0)="""RTN"",""SROQ1A"",21,0)"
^XMB(3.9,148,2,14220,0)=" W !,?2,""D. On Ventilator >48 Hours"",?31,$J(SRC(6),5),?42,""D. Other"",?71,$J(SRC(30),5)"
^XMB(3.9,148,2,14221,0)="""RTN"",""SROQ1A"",22,0)"
^XMB(3.9,148,2,14222,0)=" W !,?2,""E. Tracheostomy"",?31,$J(SRC(33),5),!,?2,""F. Repeat Vent w/in 30 Days"",?31,$J(SRC(37),5)"
^XMB(3.9,148,2,14223,0)="""RTN"",""SROQ1A"",23,0)"
^XMB(3.9,148,2,14224,0)=" W !,?2,""G. Other"",?31,$J(SRC(29),5),!"
^XMB(3.9,148,2,14225,0)="""RTN"",""SROQ1A"",24,0)"
^XMB(3.9,148,2,14226,0)=" I $E(IOST,1,2)=""C-"" D HDR^SROQ0 Q:SRSOUT  W !,?15,""PERIOPERATIVE OCCURRENCE CATEGORIES (Continued)"",!"
^XMB(3.9,148,2,14227,0)="""RTN"",""SROQ1A"",25,0)"
^XMB(3.9,148,2,14228,0)="CARD W !,?2,""Cardiac Occurrences"",?31,""Total"",?42,""Other Occurrences"",?71,""Total"""
^XMB(3.9,148,2,14229,0)="""RTN"",""SROQ1A"",26,0)"
^XMB(3.9,148,2,14230,0)=" W !,?2,""A. Cardiac Arrest Req. CPR"",?31,$J(SRC(16),5),?42,""A. Organ/Space SSI"",?71,$J(SRC(35),5)"
^XMB(3.9,148,2,14231,0)="""RTN"",""SROQ1A"",27,0)"
^XMB(3.9,148,2,14232,0)=" W !,?2,""B. Myocardial Infarction"",?31,$J(SRC(17),5),?42,""B. Bleeding/Transfusions"",?71,$J(SRC(15),5)"
^XMB(3.9,148,2,14233,0)="""RTN"",""SROQ1A"",28,0)"
^XMB(3.9,148,2,14234,0)=" W !,?2,""C. Endocarditis"",?31,$J(SRC(23),5),?42,""C. Graft/Prosthesis/Flap"""
^XMB(3.9,148,2,14235,0)="""RTN"",""SROQ1A"",29,0)"
^XMB(3.9,148,2,14236,0)=" W !,?2,""D. Low Cardiac Output >6 Hrs."",?31,$J(SRC(24),5),?62,""Failure"",?71,$J(SRC(19),5)"
^XMB(3.9,148,2,14237,0)="""RTN"",""SROQ1A"",30,0)"
^XMB(3.9,148,2,14238,0)=" W !,?2,""E. Mediastinitis"",?31,$J(SRC(25),5),?42,""D. DVT/Thrombophlebitis"",?71,$J(SRC(20),5)"
^XMB(3.9,148,2,14239,0)="""RTN"",""SROQ1A"",31,0)"
^XMB(3.9,148,2,14240,0)=" W !,?2,""F. Repeat Card Surg Proc"",?31,$J(SRC(27),5),?42,""E. Systemic Sepsis"",?71,$J(SRC(3),5)"
^XMB(3.9,148,2,14241,0)="""RTN"",""SROQ1A"",32,0)"
^XMB(3.9,148,2,14242,0)=" W !,?2,""G. New Mech Circulatory Sup"",?31,$J(SRC(34),5),?42,""F. Reoperation for Bleeding"",?71,$J(SRC(26),5)"
^XMB(3.9,148,2,14243,0)="""RTN"",""SROQ1A"",33,0)"
^XMB(3.9,148,2,14244,0)=" W !,?2,""H. Other"",?31,$J(SRC(32),5),?42,""G. Other"",?71,$J(SRC(21),5)"
^XMB(3.9,148,2,14245,0)="""RTN"",""SROQ1A"",34,0)"
^XMB(3.9,148,2,14246,0)="CLEAN ; clean wounds"
^XMB(3.9,148,2,14247,0)="""RTN"",""SROQ1A"",35,0)"
^XMB(3.9,148,2,14248,0)=" S:'SRWC SRWC=1 W !!,?2,""Clean Wound Infection Rate: "",$J((SRIN/SRWC*100),5,1),""%"""
^XMB(3.9,148,2,14249,0)="""RTN"",""SROQ1A"",36,0)"
^XMB(3.9,148,2,14250,0)=" Q"
^XMB(3.9,148,2,14251,0)="""RTN"",""SROQ1A"",37,0)"
^XMB(3.9,148,2,14252,0)="BORD W !,?14 F I=1:1:51 W ""*"""
^XMB(3.9,148,2,14253,0)="""RTN"",""SROQ1A"",38,0)"
^XMB(3.9,148,2,14254,0)=" Q"
^XMB(3.9,148,2,14255,0)="""RTN"",""SROQ1A"",39,0)"
^XMB(3.9,148,2,14256,0)="ACTION ; alert action"
^XMB(3.9,148,2,14257,0)="""RTN"",""SROQ1A"",40,0)"
^XMB(3.9,148,2,14258,0)=" D CURRENT^SROQT W @IOF D BORD W !,?14,""*"",?64,""*"",!,?14,""*    The Surgical Service Quarterly Report for    *"",!,?14,""*    quarter #""_SRQTR_"" of fiscal year ""_(SRYR+1700)_"" is now due.   *"",!,?14,""*"",?64,""*"" D BORD"
^XMB(3.9,148,2,14259,0)="""RTN"",""SROQ1A"",41,0)"
^XMB(3.9,148,2,14260,0)=" W !!,""NOTE: The report will be transmitted automatically on ""_$S(SRQTR=1:""February 14"",SRQTR=2:""May 15"",SRQTR=3:""August 14"",1:""November 14"")_"" to the"",!,""      national database if not manually transmitted before then."""
^XMB(3.9,148,2,14261,0)="""RTN"",""SROQ1A"",42,0)"
^XMB(3.9,148,2,14262,0)=" K DIR S DIR(""?"",1)=""Choose the number matching your choice of action or press the return"",DIR(""?"")=""key to continue or '^' to exit."""
^XMB(3.9,148,2,14263,0)="""RTN"",""SROQ1A"",43,0)"
^XMB(3.9,148,2,14264,0)=" S DIR(0)=""SO^1:Print report only;2:Transmit report only;3:Both print and transmit report"" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT)!'Y D ^SRSKILL Q"
^XMB(3.9,148,2,14265,0)="""RTN"",""SROQ1A"",44,0)"
^XMB(3.9,148,2,14266,0)=" I Y=2 S DIR(""A"")=""Do you want to transmit the Quarterly Report now ? "",DIR(""B"")=""YES"",DIR(0)=""YA"" D ^DIR K DIR Q:$D(DTOUT)!$D(DUOUT)!'Y  D AUTO^SROQT Q"
^XMB(3.9,148,2,14267,0)="""RTN"",""SROQ1A"",45,0)"
^XMB(3.9,148,2,14268,0)=" I Y S SRT=$S(Y=3:1,1:0) D VAR^SROQT,IO^SROQ"
^XMB(3.9,148,2,14269,0)="""RTN"",""SROQ1A"",46,0)"
^XMB(3.9,148,2,14270,0)=" Q"
^XMB(3.9,148,2,14271,0)="""RTN"",""SROQ1A"",47,0)"
^XMB(3.9,148,2,14272,0)="ALERT ; send alert to SR-QUARTERLY mailgroup"
^XMB(3.9,148,2,14273,0)="""RTN"",""SROQ1A"",48,0)"
^XMB(3.9,148,2,14274,0)=" S XQAID=""SRQTR-""_SRFQ,XQAKILL=0 D DELETEA^XQALERT"
^XMB(3.9,148,2,14275,0)="""RTN"",""SROQ1A"",49,0)"
^XMB(3.9,148,2,14276,0)=" S XQA(""G.SR-QUARTERLY"")="""",XQAMSG=""The Quarterly Report to VHA HQ for fiscal quarter #""_SRQTR_"" is now due."",XQAROU=""ACTION^SROQ1A"",XQAID=""SRQTR-""_SRFQ D SETUP^XQALERT"
^XMB(3.9,148,2,14277,0)="""RTN"",""SROQ1A"",50,0)"
^XMB(3.9,148,2,14278,0)=" Q"
^XMB(3.9,148,2,14279,0)="""RTN"",""SROQ1A"",51,0)"
^XMB(3.9,148,2,14280,0)="MORT ; look for operations in next quarter"
^XMB(3.9,148,2,14281,0)="""RTN"",""SROQ1A"",52,0)"
^XMB(3.9,148,2,14282,0)=" S X1=SRSTART,X2=-30 D C^%DTC S SRSD1=9999999.999999-(X-.0001),X1=SREND,X2=30 D C^%DTC S SRED1=9999999.999999-(X+.9999)"
^XMB(3.9,148,2,14283,0)="""RTN"",""SROQ1A"",53,0)"
^XMB(3.9,148,2,14284,0)=" S DFN=0 F  S DFN=$O(^TMP(""SRDTH"",$J,DFN)) Q:'DFN  D DEM^VADPT S X1=$P(VADM(6),""^""),SRD=9999999.999999-X1,X2=-30 D C^%DTC S SRD1=(9999999.999999-X) D LATER"
^XMB(3.9,148,2,14285,0)="""RTN"",""SROQ1A"",54,0)"
^XMB(3.9,148,2,14286,0)=" Q"
^XMB(3.9,148,2,14287,0)="""RTN"",""SROQ1A"",55,0)"
^XMB(3.9,148,2,14288,0)="LATER ; gather cases performed within 30 days of death on death patients"
^XMB(3.9,148,2,14289,0)="""RTN"",""SROQ1A"",56,0)"
^XMB(3.9,148,2,14290,0)=" K ^TMP(""SRTN"",$J) S SRINV=SRED1 F  S SRINV=$O(^SRF(""ADT"",DFN,SRINV)) Q:'SRINV  I SRINV<SRSD1,SRINV<SRD1,SRINV>SRD S SRTN=0 F  S SRTN=$O(^SRF(""ADT"",DFN,SRINV,SRTN)) Q:'SRTN  D"
^XMB(3.9,148,2,14291,0)="""RTN"",""SROQ1A"",57,0)"
^XMB(3.9,148,2,14292,0)=" .Q:$P($G(^SRF(SRTN,30)),""^"")!'$P($G(^SRF(SRTN,.2)),""^"",12)!($P($G(^SRF(SRTN,""NON"")),""^"")=""Y"")"
^XMB(3.9,148,2,14293,0)="""RTN"",""SROQ1A"",58,0)"
^XMB(3.9,148,2,14294,0)=" .S ^TMP(""SRTN"",$J,$P(^SRF(SRTN,0),""^"",9),SRTN)="""""
^XMB(3.9,148,2,14295,0)="""RTN"",""SROQ1A"",59,0)"
^XMB(3.9,148,2,14296,0)=" S SRDT=0 F  S SRDT=$O(^TMP(""SRTN"",$J,SRDT)) Q:'SRDT  S SRTN=0 F  S SRTN=$O(^TMP(""SRTN"",$J,SRDT,SRTN)) Q:'SRTN  D CASE"
^XMB(3.9,148,2,14297,0)="""RTN"",""SROQ1A"",60,0)"
^XMB(3.9,148,2,14298,0)=" Q"
^XMB(3.9,148,2,14299,0)="""RTN"",""SROQ1A"",61,0)"
^XMB(3.9,148,2,14300,0)="CASE ; examine each case on death patients performed within 30 days of death"
^XMB(3.9,148,2,14301,0)="""RTN"",""SROQ1A"",62,0)"
^XMB(3.9,148,2,14302,0)=" S SR(0)=^SRF(SRTN,0),SRSS=$P(SR(0),""^"",4) S SRSS=$S(SRSS:$P(^SRO(137.45,SRSS,0),""^"",2),1:""ZZ"")"
^XMB(3.9,148,2,14303,0)="""RTN"",""SROQ1A"",63,0)"
^XMB(3.9,148,2,14304,0)=" S SR(0)=^SRF(SRTN,0),X=$P(SR(0),""^"",4),Y=$S(X:$P(^SRO(137.45,X,0),""^"",2),1:""ZZ"") S SRSS=$S(Y:$P(^DIC(45.3,Y,0),""^""),1:""ZZ"") I '$D(SRSPEC(SRSS)) S SRSS=""ZZ"""
^XMB(3.9,148,2,14305,0)="""RTN"",""SROQ1A"",64,0)"
^XMB(3.9,148,2,14306,0)=" S SRIOSTAT=$P(SR(0),""^"",12) I SRIOSTAT'=""I""&(SRIOSTAT'=""O"") S VAIP(""D"")=SRDT D IN5^VADPT S SRIOSTAT=$S(VAIP(13):""I"",1:""O"") K VAIP"
^XMB(3.9,148,2,14307,0)="""RTN"",""SROQ1A"",65,0)"
^XMB(3.9,148,2,14308,0)=" S SRREL=$P($G(^SRF(SRTN,.4)),""^"",7) I SRREL=""R"" S ^TMP(""SRSP"",$J,DFN,(9999999-SRDT))=SRSS,^TMP(""SRINOUT"",$J,DFN,(9999999-SRDT))=SRIOSTAT"
^XMB(3.9,148,2,14309,0)="""RTN"",""SROQ1A"",66,0)"
^XMB(3.9,148,2,14310,0)=" S ^TMP(""SREXP"",$J,DFN)=SRTN_""^""_SRSS,^TMP(""SRIOD"",$J,DFN)=SRTN_""^""_SRIOSTAT"
^XMB(3.9,148,2,14311,0)="""RTN"",""SROQ1A"",67,0)"
^XMB(3.9,148,2,14312,0)=" S SRFLAG=0 D NDEX^SROQ0A"
^XMB(3.9,148,2,14313,0)="""RTN"",""SROQ1A"",68,0)"
^XMB(3.9,148,2,14314,0)=" Q"
^XMB(3.9,148,2,14315,0)="""RTN"",""SROQ2"")"
^XMB(3.9,148,2,14316,0)="0^78^B33278747^B32844306"
^XMB(3.9,148,2,14317,0)="""RTN"",""SROQ2"",1,0)"
^XMB(3.9,148,2,14318,0)="SROQ2 ;BIR/ADM - SUMMARY REPORT ;03/29/06"
^XMB(3.9,148,2,14319,0)="""RTN"",""SROQ2"",2,0)"
^XMB(3.9,148,2,14320,0)=" ;;3.0; Surgery ;**38,62,70,50,95,123,129,134,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,14321,0)="""RTN"",""SROQ2"",3,0)"
^XMB(3.9,148,2,14322,0)=" ;** NOTICE: This routine is part of an implementation of a nationally"
^XMB(3.9,148,2,14323,0)="""RTN"",""SROQ2"",4,0)"
^XMB(3.9,148,2,14324,0)=" ;**         controlled procedure. Local modifications to this routine"
^XMB(3.9,148,2,14325,0)="""RTN"",""SROQ2"",5,0)"
^XMB(3.9,148,2,14326,0)=" ;**         are prohibited."
^XMB(3.9,148,2,14327,0)="""RTN"",""SROQ2"",6,0)"
^XMB(3.9,148,2,14328,0)=" ;"
^XMB(3.9,148,2,14329,0)="""RTN"",""SROQ2"",7,0)"
^XMB(3.9,148,2,14330,0)=" S SRSOUT=0 W @IOF,!,""SUMMARY REPORT FOR SURGICAL SERVICE"""
^XMB(3.9,148,2,14331,0)="""RTN"",""SROQ2"",8,0)"
^XMB(3.9,148,2,14332,0)=" W !!,""Enter date range for data to be included on report."""
^XMB(3.9,148,2,14333,0)="""RTN"",""SROQ2"",9,0)"
^XMB(3.9,148,2,14334,0)="SDATE ; enter starting date"
^XMB(3.9,148,2,14335,0)="""RTN"",""SROQ2"",10,0)"
^XMB(3.9,148,2,14336,0)=" W !,""Start with date:  "" R X:DTIME I '$T!(X[""^"")!(X="""") S SRSOUT=1 G END"
^XMB(3.9,148,2,14337,0)="""RTN"",""SROQ2"",11,0)"
^XMB(3.9,148,2,14338,0)=" I X[""?"" W !,""Enter the EARLIEST date for data to be included in this report."" S X=""?"",%DT=""EX"" D ^%DT G SDATE"
^XMB(3.9,148,2,14339,0)="""RTN"",""SROQ2"",12,0)"
^XMB(3.9,148,2,14340,0)=" S %DT=""EXP"" D ^%DT G SDATE:Y<1 S SRSTART=Y"
^XMB(3.9,148,2,14341,0)="""RTN"",""SROQ2"",13,0)"
^XMB(3.9,148,2,14342,0)=" I SRSTART>DT W !!,""Cannot report on operations for future dates !"",! G SDATE"
^XMB(3.9,148,2,14343,0)="""RTN"",""SROQ2"",14,0)"
^XMB(3.9,148,2,14344,0)=" S SRAC=$O(^SRF(""AC"",0)) I SRSTART<SRAC S Y=SRAC D DD^%DT S SRAC1=$E(Y,1,12) W !!,""NOTE: "",$S(SRAC:""No surgical case data exists before ""_SRAC1_""."",1:""There are no surgical cases on record !"")"
^XMB(3.9,148,2,14345,0)="""RTN"",""SROQ2"",15,0)"
^XMB(3.9,148,2,14346,0)="EDATE ; enter ending date"
^XMB(3.9,148,2,14347,0)="""RTN"",""SROQ2"",16,0)"
^XMB(3.9,148,2,14348,0)=" W !!,""End with date:  "" R X:DTIME I '$T!(X[""^"")!(X="""") S SRSOUT=1 G END"
^XMB(3.9,148,2,14349,0)="""RTN"",""SROQ2"",17,0)"
^XMB(3.9,148,2,14350,0)=" I X[""?"" W !,""Enter the LATEST date for data to be included in this report."" S X=""?"",%DT=""EX"" D ^%DT G EDATE"
^XMB(3.9,148,2,14351,0)="""RTN"",""SROQ2"",18,0)"
^XMB(3.9,148,2,14352,0)=" S %DT=""EXP"" D ^%DT G EDATE:Y<1 S SREND=Y"
^XMB(3.9,148,2,14353,0)="""RTN"",""SROQ2"",19,0)"
^XMB(3.9,148,2,14354,0)=" I SRSTART>SREND W !!,""The ENDING date must be later than the BEGINNING date.  Please try again."",! G SDATE"
^XMB(3.9,148,2,14355,0)="""RTN"",""SROQ2"",20,0)"
^XMB(3.9,148,2,14356,0)=" I SREND>DT W !!,""Cannot report on operations for future dates !"",! G EDATE"
^XMB(3.9,148,2,14357,0)="""RTN"",""SROQ2"",21,0)"
^XMB(3.9,148,2,14358,0)=" S SRFLG=0"
^XMB(3.9,148,2,14359,0)="""RTN"",""SROQ2"",22,0)"
^XMB(3.9,148,2,14360,0)=" N SRINSTP S SRINST=$$INST^SROUTL0() G:SRINST=""^"" END S SRINSTP=$P(SRINST,U),SRINST=$S(SRINST[""ALL DIVISIONS"":SRINST,1:$P(SRINST,U,2))"
^XMB(3.9,148,2,14361,0)="""RTN"",""SROQ2"",23,0)"
^XMB(3.9,148,2,14362,0)="IO W ! K %ZIS,IO(""Q""),POP S %ZIS(""A"")=""Print report on which Device: "",%ZIS=""Q"" D ^%ZIS I POP S SRSOUT=1 G END"
^XMB(3.9,148,2,14363,0)="""RTN"",""SROQ2"",24,0)"
^XMB(3.9,148,2,14364,0)=" I $D(IO(""Q"")) K IO(""Q"") S ZTDESC=""Summary Report - Surgical Service"",(ZTSAVE(""SRSTART""),ZTSAVE(""SRINSTP""),ZTSAVE(""SREND""),ZTSAVE(""SRFLG""))="""",ZTRTN=""EN^SROQ2"" D ^%ZTLOAD S SRSOUT=1 G END"
^XMB(3.9,148,2,14365,0)="""RTN"",""SROQ2"",25,0)"
^XMB(3.9,148,2,14366,0)="EN ; entry point when queued"
^XMB(3.9,148,2,14367,0)="""RTN"",""SROQ2"",26,0)"
^XMB(3.9,148,2,14368,0)=" D SET,^SROQ1,END"
^XMB(3.9,148,2,14369,0)="""RTN"",""SROQ2"",27,0)"
^XMB(3.9,148,2,14370,0)=" Q"
^XMB(3.9,148,2,14371,0)="""RTN"",""SROQ2"",28,0)"
^XMB(3.9,148,2,14372,0)="SET ; collect data"
^XMB(3.9,148,2,14373,0)="""RTN"",""SROQ2"",29,0)"
^XMB(3.9,148,2,14374,0)=" S SRSD=SRSTART-.0001,SRED=SREND+.9999 D ZERO"
^XMB(3.9,148,2,14375,0)="""RTN"",""SROQ2"",30,0)"
^XMB(3.9,148,2,14376,0)=" N SRXX S SRXX=$$SITE^SROVAR"
^XMB(3.9,148,2,14377,0)="""RTN"",""SROQ2"",31,0)"
^XMB(3.9,148,2,14378,0)=" I SRFLG=1 D"
^XMB(3.9,148,2,14379,0)="""RTN"",""SROQ2"",32,0)"
^XMB(3.9,148,2,14380,0)=" .I SRMULT D  Q"
^XMB(3.9,148,2,14381,0)="""RTN"",""SROQ2"",33,0)"
^XMB(3.9,148,2,14382,0)=" ..S:'SRIEN SRINST=$P(SRXX,""^"",2),SRSTATN=$P(SRXX,""^"",3)"
^XMB(3.9,148,2,14383,0)="""RTN"",""SROQ2"",34,0)"
^XMB(3.9,148,2,14384,0)=" ..S:'$D(SRINSTP) SRINSTP=""ALL DIVISIONS"",SRINST=SRINST_"" - ALL DIVISIONS"""
^XMB(3.9,148,2,14385,0)="""RTN"",""SROQ2"",35,0)"
^XMB(3.9,148,2,14386,0)=" .S SRINSTP=$P(SRXX,""^""),SRINST=$P(SRXX,""^"",2),SRSTATN=+$P(SRXX,""^"",3)"
^XMB(3.9,148,2,14387,0)="""RTN"",""SROQ2"",36,0)"
^XMB(3.9,148,2,14388,0)=" I 'SRFLG D"
^XMB(3.9,148,2,14389,0)="""RTN"",""SROQ2"",37,0)"
^XMB(3.9,148,2,14390,0)=" .I SRINSTP[""ALL DIV"" S SRINST=$P(SRXX,""^"",2)_"" - ALL DIVISIONS"",SRSTATN=$P(SRXX,""^"",3) Q"
^XMB(3.9,148,2,14391,0)="""RTN"",""SROQ2"",38,0)"
^XMB(3.9,148,2,14392,0)=" .S SRINST=$$GET1^DIQ(4,SRINSTP,.01),SRSTATN=$$GET1^DIQ(4,SRINSTP,99)"
^XMB(3.9,148,2,14393,0)="""RTN"",""SROQ2"",39,0)"
^XMB(3.9,148,2,14394,0)=" F  S SRSD=$O(^SRF(""AC"",SRSD)) Q:SRSD>SRED!('SRSD)  S SRTN=0 F  S SRTN=$O(^SRF(""AC"",SRSD,SRTN)) Q:'SRTN  I $D(^SRF(SRTN,0)),$$MANDIV^SROUTL0(SRINSTP,SRTN) D CASE"
^XMB(3.9,148,2,14395,0)="""RTN"",""SROQ2"",40,0)"
^XMB(3.9,148,2,14396,0)=" D MORT^SROQ1A,DEATH S Y=SRSTART D DD^%DT S SRSD=$E(Y,1,12) S Y=SREND D DD^%DT S SRED=$E(Y,1,12),SRYR=$E(Y,9,12) I SRFLG,$E(SRSTART,4,5)=10 S SRYR=SRYR+1"
^XMB(3.9,148,2,14397,0)="""RTN"",""SROQ2"",41,0)"
^XMB(3.9,148,2,14398,0)=" Q"
^XMB(3.9,148,2,14399,0)="""RTN"",""SROQ2"",42,0)"
^XMB(3.9,148,2,14400,0)="END W ! I 'SRSOUT,$E(IOST,1,2)=""C-"" W !!,""Press <RET> to continue  "" R X:DTIME"
^XMB(3.9,148,2,14401,0)="""RTN"",""SROQ2"",43,0)"
^XMB(3.9,148,2,14402,0)=" D KTMP W:$E(IOST)=""P"" @IOF I $D(ZTQUEUED) Q:$G(ZTSTOP)  S ZTREQ=""@"" Q"
^XMB(3.9,148,2,14403,0)="""RTN"",""SROQ2"",44,0)"
^XMB(3.9,148,2,14404,0)=" D ^SRSKILL"
^XMB(3.9,148,2,14405,0)="""RTN"",""SROQ2"",45,0)"
^XMB(3.9,148,2,14406,0)=" K SR14,SR71,SR72,SR73,SRADMT,SRHAIR,SRHOSP,SRICNR,SRICNE,SRICNO,SRICY,SRIDP,SRINSTP,SRINV,SRIOSTAT,SRTN,SRTONE,SRTONO,SRTOV,SRVER,SRSCY,SRSCNR,SRSCNO,SRSCNE"
^XMB(3.9,148,2,14407,0)="""RTN"",""SROQ2"",46,0)"
^XMB(3.9,148,2,14408,0)=" D ^%ZISC W @IOF"
^XMB(3.9,148,2,14409,0)="""RTN"",""SROQ2"",47,0)"
^XMB(3.9,148,2,14410,0)=" Q"
^XMB(3.9,148,2,14411,0)="""RTN"",""SROQ2"",48,0)"
^XMB(3.9,148,2,14412,0)="KTMP F I=""SRDEATH"",""SRDPT"",""SRDREL"",""SRDTH"",""SREXP"",""SRINOUT"",""SRIOD"",""SRP"",""SRPROC"",""SRREL"",""SRSP"",""SRSS"",""SRTN"" K ^TMP(I,$J)"
^XMB(3.9,148,2,14413,0)="""RTN"",""SROQ2"",49,0)"
^XMB(3.9,148,2,14414,0)=" Q"
^XMB(3.9,148,2,14415,0)="""RTN"",""SROQ2"",50,0)"
^XMB(3.9,148,2,14416,0)="CASE ;  examine case"
^XMB(3.9,148,2,14417,0)="""RTN"",""SROQ2"",51,0)"
^XMB(3.9,148,2,14418,0)=" Q:$P($G(^SRF(SRTN,30)),""^"")!'$P($G(^SRF(SRTN,.2)),""^"",12)!($P($G(^SRF(SRTN,""NON"")),""^"")=""Y"")"
^XMB(3.9,148,2,14419,0)="""RTN"",""SROQ2"",52,0)"
^XMB(3.9,148,2,14420,0)=" S SRCASES=SRCASES+1 D ^SROQ0"
^XMB(3.9,148,2,14421,0)="""RTN"",""SROQ2"",53,0)"
^XMB(3.9,148,2,14422,0)=" Q"
^XMB(3.9,148,2,14423,0)="""RTN"",""SROQ2"",54,0)"
^XMB(3.9,148,2,14424,0)="ZERO ; set counters to 0"
^XMB(3.9,148,2,14425,0)="""RTN"",""SROQ2"",55,0)"
^XMB(3.9,148,2,14426,0)=" S (SRTOV,SRTONO,SRTONE,SRICY,SRICNO,SRICNR,SRICNE,SRSCY,SRSCNR,SRSCNO,SRSCNE)=0"
^XMB(3.9,148,2,14427,0)="""RTN"",""SROQ2"",56,0)"
^XMB(3.9,148,2,14428,0)=" D KTMP S (SR60,SRADMT,SRCASES,SRCOMP,SRDPT,SREMERG,SRIN,SRINPAT,SRIX,SRMAJOR,SRMORT,SROPD,SRSOUT,SRWC)=0 F I=1:1:7 S SRASA(I)=0"
^XMB(3.9,148,2,14429,0)="""RTN"",""SROQ2"",57,0)"
^XMB(3.9,148,2,14430,0)=" S SRSS=0 F I=50:1:62,500,501,502 S SRSPEC(I)=I,^TMP(""SRSS"",$J,I)=""0^0^0^0"",SREXP(I)=0"
^XMB(3.9,148,2,14431,0)="""RTN"",""SROQ2"",58,0)"
^XMB(3.9,148,2,14432,0)=" S ^TMP(""SRSS"",$J,""ZZ"")=""0^0^0^0"",SREXP(""ZZ"")=0"
^XMB(3.9,148,2,14433,0)="""RTN"",""SROQ2"",59,0)"
^XMB(3.9,148,2,14434,0)=" K SRATT F I=9:1:14,99 S (SRATT(I),SRATT(""J"",I),SRATT(""N"",I))=0"
^XMB(3.9,148,2,14435,0)="""RTN"",""SROQ2"",60,0)"
^XMB(3.9,148,2,14436,0)=" F SRPROC=1:1:12 S ^TMP(""SRPROC"",$J,SRPROC)=""0^0"",SRDEATH(SRPROC)=0"
^XMB(3.9,148,2,14437,0)="""RTN"",""SROQ2"",61,0)"
^XMB(3.9,148,2,14438,0)=" S (SRINV(""I""),SRINV(""O""))=0 F I=1:1:37 S SRC(I)=0"
^XMB(3.9,148,2,14439,0)="""RTN"",""SROQ2"",62,0)"
^XMB(3.9,148,2,14440,0)=" F I=""C"",""D"",""N"",""P"",""S"",""U"",""O"",""ZZ"" S SRHAIR(I)=0"
^XMB(3.9,148,2,14441,0)="""RTN"",""SROQ2"",63,0)"
^XMB(3.9,148,2,14442,0)=" Q"
^XMB(3.9,148,2,14443,0)="""RTN"",""SROQ2"",64,0)"
^XMB(3.9,148,2,14444,0)="DEATH ; tabulate deaths"
^XMB(3.9,148,2,14445,0)="""RTN"",""SROQ2"",65,0)"
^XMB(3.9,148,2,14446,0)=" S SRED=SREND+.9999,SRSD=SRSTART-.0001,DFN=0 F  S DFN=$O(^TMP(""SREXP"",$J,DFN)) Q:'DFN  D SPEC"
^XMB(3.9,148,2,14447,0)="""RTN"",""SROQ2"",66,0)"
^XMB(3.9,148,2,14448,0)=" S SRSS=0 F  S SRSS=$O(SREXP(SRSS)) Q:SRSS=""""  S ^TMP(""SRSS"",$J,SRSS)=^TMP(""SRSS"",$J,SRSS)_""^""_SREXP(SRSS)"
^XMB(3.9,148,2,14449,0)="""RTN"",""SROQ2"",67,0)"
^XMB(3.9,148,2,14450,0)=" S DFN=0 F  S DFN=$O(^TMP(""SRDEATH"",$J,DFN)) Q:'DFN  D IP"
^XMB(3.9,148,2,14451,0)="""RTN"",""SROQ2"",68,0)"
^XMB(3.9,148,2,14452,0)=" F J=1:1:12 S ^TMP(""SRPROC"",$J,J)=^TMP(""SRPROC"",$J,J)_""^""_SRDEATH(J)"
^XMB(3.9,148,2,14453,0)="""RTN"",""SROQ2"",69,0)"
^XMB(3.9,148,2,14454,0)=" S DFN=0 F  S DFN=$O(^TMP(""SRIOD"",$J,DFN)) Q:'DFN  D INOUT"
^XMB(3.9,148,2,14455,0)="""RTN"",""SROQ2"",70,0)"
^XMB(3.9,148,2,14456,0)=" Q"
^XMB(3.9,148,2,14457,0)="""RTN"",""SROQ2"",71,0)"
^XMB(3.9,148,2,14458,0)="SPEC ; determine related specialty"
^XMB(3.9,148,2,14459,0)="""RTN"",""SROQ2"",72,0)"
^XMB(3.9,148,2,14460,0)=" I $O(^TMP(""SRSP"",$J,DFN,0))="""" S Y=^TMP(""SREXP"",$J,DFN),SRTN=$P(Y,""^""),SRSS=$P(Y,""^"",2),SRDT=$P(^SRF(SRTN,0),""^"",9) Q:SRDT>SRED!(SRDT<SRSD)  S SREXP(SRSS)=SREXP(SRSS)+1,SRMORT=SRMORT+1 Q"
^XMB(3.9,148,2,14461,0)="""RTN"",""SROQ2"",73,0)"
^XMB(3.9,148,2,14462,0)=" S SRDT=$O(^TMP(""SRSP"",$J,DFN,0)) I (9999999-SRDT)'>SRED&((9999999-SRDT)'<SRSD) S SRSS=^TMP(""SRSP"",$J,DFN,SRDT),SREXP(SRSS)=SREXP(SRSS)+1,SRMORT=SRMORT+1"
^XMB(3.9,148,2,14463,0)="""RTN"",""SROQ2"",74,0)"
^XMB(3.9,148,2,14464,0)=" Q"
^XMB(3.9,148,2,14465,0)="""RTN"",""SROQ2"",75,0)"
^XMB(3.9,148,2,14466,0)="IP ; determine related index procedure (if any)"
^XMB(3.9,148,2,14467,0)="""RTN"",""SROQ2"",76,0)"
^XMB(3.9,148,2,14468,0)=" I $O(^TMP(""SRP"",$J,DFN,0))="""" S Y=^TMP(""SRDEATH"",$J,DFN),SRTN=$P(Y,""^""),SRPROC=$P(Y,""^"",2),SRDT=$P(^SRF(SRTN,0),""^"",9) Q:SRDT>SRED!(SRDT<SRSD)  S SRDEATH(SRPROC)=SRDEATH(SRPROC)+1 Q"
^XMB(3.9,148,2,14469,0)="""RTN"",""SROQ2"",77,0)"
^XMB(3.9,148,2,14470,0)=" S SRDT=$O(^TMP(""SRP"",$J,DFN,0)) I (9999999-SRDT)'>SRED&((9999999-SRDT)'<SRSD) S SRPROC=^TMP(""SRP"",$J,DFN,SRDT),SRDEATH(SRPROC)=SRDEATH(SRPROC)+1"
^XMB(3.9,148,2,14471,0)="""RTN"",""SROQ2"",78,0)"
^XMB(3.9,148,2,14472,0)=" Q"
^XMB(3.9,148,2,14473,0)="""RTN"",""SROQ2"",79,0)"
^XMB(3.9,148,2,14474,0)="INOUT ; decide if death is in or out-pat surgery death"
^XMB(3.9,148,2,14475,0)="""RTN"",""SROQ2"",80,0)"
^XMB(3.9,148,2,14476,0)=" S SRIOSTAT="""" I $O(^TMP(""SRINOUT"",$J,DFN,0))="""" S Y=^TMP(""SRIOD"",$J,DFN),SRTN=$P(Y,""^""),SRIOSTAT=$P(Y,""^"",2),SRDT=$P(^SRF(SRTN,0),""^"",9) Q:SRDT>SRED!(SRDT<SRSD)!(SRIOSTAT'=""O"")  S SROPD=SROPD+1 Q"
^XMB(3.9,148,2,14477,0)="""RTN"",""SROQ2"",81,0)"
^XMB(3.9,148,2,14478,0)=" S SRDT=$O(^TMP(""SRINOUT"",$J,DFN,0)) S SRIOSTAT=^TMP(""SRINOUT"",$J,DFN,SRDT) I (9999999-SRDT)'>SRED&((9999999-SRDT)'<SRSD)&(SRIOSTAT=""O"") S SROPD=SROPD+1"
^XMB(3.9,148,2,14479,0)="""RTN"",""SROQ2"",82,0)"
^XMB(3.9,148,2,14480,0)=" Q"
^XMB(3.9,148,2,14481,0)="""RTN"",""SROQM"")"
^XMB(3.9,148,2,14482,0)="0^97^B18303106^B18105122"
^XMB(3.9,148,2,14483,0)="""RTN"",""SROQM"",1,0)"
^XMB(3.9,148,2,14484,0)="SROQM ;BIR/ADM - QUARTERLY REPORT (CONTINUED) ;03/22/06"
^XMB(3.9,148,2,14485,0)="""RTN"",""SROQM"",2,0)"
^XMB(3.9,148,2,14486,0)=" ;;3.0; Surgery ;**62,82,95,123,126,129,153**; Jun 93;Build 11"
^XMB(3.9,148,2,14487,0)="""RTN"",""SROQM"",3,0)"
^XMB(3.9,148,2,14488,0)=" ;** NOTICE: This routine is part of an implementation of a nationally"
^XMB(3.9,148,2,14489,0)="""RTN"",""SROQM"",4,0)"
^XMB(3.9,148,2,14490,0)=" ;**         controlled procedure. Local modifications to this routine"
^XMB(3.9,148,2,14491,0)="""RTN"",""SROQM"",5,0)"
^XMB(3.9,148,2,14492,0)=" ;**         are prohibited."
^XMB(3.9,148,2,14493,0)="""RTN"",""SROQM"",6,0)"
^XMB(3.9,148,2,14494,0)=" ;"
^XMB(3.9,148,2,14495,0)="""RTN"",""SROQM"",7,0)"
^XMB(3.9,148,2,14496,0)=" S (SRCNT,SRPAGE)=1 K ^TMP(""SRMSG"",$J) D HDR Q:SRSOUT  D ^SROQM0,HDR Q:SRSOUT  D ^SROQM1 Q:SRSOUT  F I=1:1:3 D BLANK"
^XMB(3.9,148,2,14497,0)="""RTN"",""SROQM"",8,0)"
^XMB(3.9,148,2,14498,0)=" D HDR,ENSURE,HAIR^SROQM1 K XMY"
^XMB(3.9,148,2,14499,0)="""RTN"",""SROQM"",9,0)"
^XMB(3.9,148,2,14500,0)=" S X=$$ACTIVE^XUSER(DUZ) I '+X S XMDUZ=.5"
^XMB(3.9,148,2,14501,0)="""RTN"",""SROQM"",10,0)"
^XMB(3.9,148,2,14502,0)=" S XMSUB=""QUARTERLY REPORT - SURGICAL SERVICE"""
^XMB(3.9,148,2,14503,0)="""RTN"",""SROQM"",11,0)"
^XMB(3.9,148,2,14504,0)=" S XMY(""G.SR-QUARTERLY@""_SRD)="""""
^XMB(3.9,148,2,14505,0)="""RTN"",""SROQM"",12,0)"
^XMB(3.9,148,2,14506,0)=" S XMTEXT=""^TMP(""""SRMSG"""",$J,"" N I D ^XMD"
^XMB(3.9,148,2,14507,0)="""RTN"",""SROQM"",13,0)"
^XMB(3.9,148,2,14508,0)=" K XMDUZ,XMY,^TMP(""SRMSG"",$J)"
^XMB(3.9,148,2,14509,0)="""RTN"",""SROQM"",14,0)"
^XMB(3.9,148,2,14510,0)=" Q"
^XMB(3.9,148,2,14511,0)="""RTN"",""SROQM"",15,0)"
^XMB(3.9,148,2,14512,0)="HDR ; write page header"
^XMB(3.9,148,2,14513,0)="""RTN"",""SROQM"",16,0)"
^XMB(3.9,148,2,14514,0)=" I $D(ZTQUEUED) D ^SROSTOP I SRHALT S SRSOUT=1 Q"
^XMB(3.9,148,2,14515,0)="""RTN"",""SROQM"",17,0)"
^XMB(3.9,148,2,14516,0)=" S SRBLANK="""" F I=1:1:22 S SRBLANK=SRBLANK_"" """
^XMB(3.9,148,2,14517,0)="""RTN"",""SROQM"",18,0)"
^XMB(3.9,148,2,14518,0)=" S SRLINE=SRBLANK_""QUARTERLY REPORT - SURGICAL SERVICE"",SRBLANK="""" F I=1:1:(75-$L(SRLINE)) S SRBLANK=SRBLANK_"" """
^XMB(3.9,148,2,14519,0)="""RTN"",""SROQM"",19,0)"
^XMB(3.9,148,2,14520,0)=" S SRLINE=SRLINE_SRBLANK_""PAGE"" D LINE"
^XMB(3.9,148,2,14521,0)="""RTN"",""SROQM"",20,0)"
^XMB(3.9,148,2,14522,0)=" S SRBLANK="""" F I=1:1:34 S SRBLANK=SRBLANK_"" """
^XMB(3.9,148,2,14523,0)="""RTN"",""SROQM"",21,0)"
^XMB(3.9,148,2,14524,0)=" S SRLINE=SRBLANK_""VERSION 3.0"",SRBLANK="""" F I=1:1:(77-$L(SRLINE)) S SRBLANK=SRBLANK_"" """
^XMB(3.9,148,2,14525,0)="""RTN"",""SROQM"",22,0)"
^XMB(3.9,148,2,14526,0)=" S SRLINE=SRLINE_SRBLANK_SRPAGE D LINE"
^XMB(3.9,148,2,14527,0)="""RTN"",""SROQM"",23,0)"
^XMB(3.9,148,2,14528,0)=" D BLANK S SRLINE="" Hospital: ""_$E(SRINST,1,44),SRBLANK="""" F I=1:1:(57-$L(SRLINE)) S SRBLANK=SRBLANK_"" """
^XMB(3.9,148,2,14529,0)="""RTN"",""SROQM"",24,0)"
^XMB(3.9,148,2,14530,0)=" S SRLINE=SRLINE_SRBLANK_""Station Number: ""_SRSTATN D LINE"
^XMB(3.9,148,2,14531,0)="""RTN"",""SROQM"",25,0)"
^XMB(3.9,148,2,14532,0)=" S SRLINE="" For Dates: ""_SRSD_""     to: ""_SRED_""            Fiscal Year: ""_SRYR D LINE"
^XMB(3.9,148,2,14533,0)="""RTN"",""SROQM"",26,0)"
^XMB(3.9,148,2,14534,0)=" S SRLINE="""" F I=1:1:79 S SRLINE=SRLINE_""="""
^XMB(3.9,148,2,14535,0)="""RTN"",""SROQM"",27,0)"
^XMB(3.9,148,2,14536,0)=" D LINE S SRPAGE=SRPAGE+1"
^XMB(3.9,148,2,14537,0)="""RTN"",""SROQM"",28,0)"
^XMB(3.9,148,2,14538,0)=" Q"
^XMB(3.9,148,2,14539,0)="""RTN"",""SROQM"",29,0)"
^XMB(3.9,148,2,14540,0)="BLANK ; blank line"
^XMB(3.9,148,2,14541,0)="""RTN"",""SROQM"",30,0)"
^XMB(3.9,148,2,14542,0)=" S ^TMP(""SRMSG"",$J,SRCNT)="""",SRCNT=SRCNT+1"
^XMB(3.9,148,2,14543,0)="""RTN"",""SROQM"",31,0)"
^XMB(3.9,148,2,14544,0)=" Q"
^XMB(3.9,148,2,14545,0)="""RTN"",""SROQM"",32,0)"
^XMB(3.9,148,2,14546,0)="LINE ; store line in ^TMP"
^XMB(3.9,148,2,14547,0)="""RTN"",""SROQM"",33,0)"
^XMB(3.9,148,2,14548,0)=" S ^TMP(""SRMSG"",$J,SRCNT)=SRLINE,SRCNT=SRCNT+1"
^XMB(3.9,148,2,14549,0)="""RTN"",""SROQM"",34,0)"
^XMB(3.9,148,2,14550,0)=" Q"
^XMB(3.9,148,2,14551,0)="""RTN"",""SROQM"",35,0)"
^XMB(3.9,148,2,14552,0)="ENSURE ; ensure correct surgery cpmpliance"
^XMB(3.9,148,2,14553,0)="""RTN"",""SROQM"",36,0)"
^XMB(3.9,148,2,14554,0)=" D BLANK S SRBLANK="""" F I=1:1:17 S SRBLANK=SRBLANK_"" """
^XMB(3.9,148,2,14555,0)="""RTN"",""SROQM"",37,0)"
^XMB(3.9,148,2,14556,0)=" S SRLINE=SRBLANK_""ENSURING CORRECT SURGERY - COMPLIANCE SUMMARY"" D LINE"
^XMB(3.9,148,2,14557,0)="""RTN"",""SROQM"",38,0)"
^XMB(3.9,148,2,14558,0)=" S SRLINE=SRBLANK_""---------------------------------------------"" D LINE"
^XMB(3.9,148,2,14559,0)="""RTN"",""SROQM"",39,0)"
^XMB(3.9,148,2,14560,0)=" D BLANK F I=1:1:25 S SRBLANK=SRBLANK_"" """
^XMB(3.9,148,2,14561,0)="""RTN"",""SROQM"",40,0)"
^XMB(3.9,148,2,14562,0)=" S SRLINE=SRBLANK_""CASES    % OF TOTAL"" D LINE"
^XMB(3.9,148,2,14563,0)="""RTN"",""SROQM"",41,0)"
^XMB(3.9,148,2,14564,0)=" S SRLINE=SRBLANK_""-----    ----------"" D LINE"
^XMB(3.9,148,2,14565,0)="""RTN"",""SROQM"",42,0)"
^XMB(3.9,148,2,14566,0)=" S SRBLANK="""" F I=1:1:18 S SRBLANK=SRBLANK_"" """
^XMB(3.9,148,2,14567,0)="""RTN"",""SROQM"",43,0)"
^XMB(3.9,148,2,14568,0)=" S SRLINE=SRBLANK_""TOTAL CASES PERFORMED:""_$J(SRCASES,6)_""       """
^XMB(3.9,148,2,14569,0)="""RTN"",""SROQM"",44,0)"
^XMB(3.9,148,2,14570,0)=" S:SRCASES SRLINE=SRLINE_""100.0"" D LINE,BLANK"
^XMB(3.9,148,2,14571,0)="""RTN"",""SROQM"",45,0)"
^XMB(3.9,148,2,14572,0)="ETOV S SRLINE=SRBLANK_""    TIME OUT VERIFIED"" D LINE"
^XMB(3.9,148,2,14573,0)="""RTN"",""SROQM"",46,0)"
^XMB(3.9,148,2,14574,0)=" S SRLINE=SRBLANK_SRBLANK_""YES:""_$J(SRTOV,6)_""       """
^XMB(3.9,148,2,14575,0)="""RTN"",""SROQM"",47,0)"
^XMB(3.9,148,2,14576,0)=" S:SRCASES SRLINE=SRLINE_$J(((SRTOV/SRCASES)*100),5,1) D LINE"
^XMB(3.9,148,2,14577,0)="""RTN"",""SROQM"",48,0)"
^XMB(3.9,148,2,14578,0)=" S SRLINE=SRBLANK_SRBLANK_"" NO:""_$J(SRTONO,6)_""       """
^XMB(3.9,148,2,14579,0)="""RTN"",""SROQM"",49,0)"
^XMB(3.9,148,2,14580,0)=" S:SRCASES SRLINE=SRLINE_$J(((SRTONO/SRCASES)*100),5,1) D LINE"
^XMB(3.9,148,2,14581,0)="""RTN"",""SROQM"",50,0)"
^XMB(3.9,148,2,14582,0)=" S SRLINE=SRBLANK_""          NOT ENTERED:""_$J(SRTONE,6)_""       """
^XMB(3.9,148,2,14583,0)="""RTN"",""SROQM"",51,0)"
^XMB(3.9,148,2,14584,0)=" S:SRCASES SRLINE=SRLINE_$J(((SRTONE/SRCASES)*100),5,1) D LINE,BLANK"
^XMB(3.9,148,2,14585,0)="""RTN"",""SROQM"",52,0)"
^XMB(3.9,148,2,14586,0)="EPRE S SRLINE=""         PREOPERATIVE IMAGING CONFIRMED"" D LINE"
^XMB(3.9,148,2,14587,0)="""RTN"",""SROQM"",53,0)"
^XMB(3.9,148,2,14588,0)=" S SRLINE=SRBLANK_SRBLANK_""YES:""_$J(SRICY,6)_""       """
^XMB(3.9,148,2,14589,0)="""RTN"",""SROQM"",54,0)"
^XMB(3.9,148,2,14590,0)=" S:SRCASES SRLINE=SRLINE_$J(((SRICY/SRCASES)*100),5,1) D LINE"
^XMB(3.9,148,2,14591,0)="""RTN"",""SROQM"",55,0)"
^XMB(3.9,148,2,14592,0)=" S SRLINE=SRBLANK_"" IMAGING NOT REQUIRED:""_$J(SRICNR,6)_""       """
^XMB(3.9,148,2,14593,0)="""RTN"",""SROQM"",56,0)"
^XMB(3.9,148,2,14594,0)=" S:SRCASES SRLINE=SRLINE_$J(((SRICNR/SRCASES)*100),5,1) D LINE"
^XMB(3.9,148,2,14595,0)="""RTN"",""SROQM"",57,0)"
^XMB(3.9,148,2,14596,0)=" S SRLINE=SRBLANK_SRBLANK_"" NO:""_$J(SRICNO,6)_""       """
^XMB(3.9,148,2,14597,0)="""RTN"",""SROQM"",58,0)"
^XMB(3.9,148,2,14598,0)=" S:SRCASES SRLINE=SRLINE_$J(((SRICNO/SRCASES)*100),5,1) D LINE"
^XMB(3.9,148,2,14599,0)="""RTN"",""SROQM"",59,0)"
^XMB(3.9,148,2,14600,0)=" S SRLINE=SRBLANK_""          NOT ENTERED:""_$J(SRICNE,6)_""       """
^XMB(3.9,148,2,14601,0)="""RTN"",""SROQM"",60,0)"
^XMB(3.9,148,2,14602,0)=" S:SRCASES SRLINE=SRLINE_$J(((SRICNE/SRCASES)*100),5,1) D LINE,BLANK"
^XMB(3.9,148,2,14603,0)="""RTN"",""SROQM"",61,0)"
^XMB(3.9,148,2,14604,0)="EMRK S SRLINE=""        MARK ON SURGICAL SITE CONFIRMED"" D LINE"
^XMB(3.9,148,2,14605,0)="""RTN"",""SROQM"",62,0)"
^XMB(3.9,148,2,14606,0)=" S SRLINE=SRBLANK_SRBLANK_""YES:""_$J(SRSCY,6)_""       """
^XMB(3.9,148,2,14607,0)="""RTN"",""SROQM"",63,0)"
^XMB(3.9,148,2,14608,0)=" S:SRCASES SRLINE=SRLINE_$J(((SRSCY/SRCASES)*100),5,1) D LINE"
^XMB(3.9,148,2,14609,0)="""RTN"",""SROQM"",64,0)"
^XMB(3.9,148,2,14610,0)=" S SRLINE=SRBLANK_"" MARKING NOT REQUIRED:""_$J(SRSCNR,6)_""       """
^XMB(3.9,148,2,14611,0)="""RTN"",""SROQM"",65,0)"
^XMB(3.9,148,2,14612,0)=" S:SRCASES SRLINE=SRLINE_$J(((SRSCNR/SRCASES)*100),5,1) D LINE"
^XMB(3.9,148,2,14613,0)="""RTN"",""SROQM"",66,0)"
^XMB(3.9,148,2,14614,0)=" S SRLINE=SRBLANK_SRBLANK_"" NO:""_$J(SRSCNO,6)_""       """
^XMB(3.9,148,2,14615,0)="""RTN"",""SROQM"",67,0)"
^XMB(3.9,148,2,14616,0)=" S:SRCASES SRLINE=SRLINE_$J(((SRSCNO/SRCASES)*100),5,1) D LINE"
^XMB(3.9,148,2,14617,0)="""RTN"",""SROQM"",68,0)"
^XMB(3.9,148,2,14618,0)=" S SRLINE=SRBLANK_""          NOT ENTERED:""_$J(SRSCNE,6)_""       """
^XMB(3.9,148,2,14619,0)="""RTN"",""SROQM"",69,0)"
^XMB(3.9,148,2,14620,0)=" S:SRCASES SRLINE=SRLINE_$J(((SRSCNE/SRCASES)*100),5,1) D LINE D BLANK"
^XMB(3.9,148,2,14621,0)="""RTN"",""SROQM"",70,0)"
^XMB(3.9,148,2,14622,0)=" ;"
^XMB(3.9,148,2,14623,0)="""RTN"",""SROQM"",71,0)"
^XMB(3.9,148,2,14624,0)=" S SRLINE=SRBLANK_""  OVERALL COMPLIANCE FOR THIS DATE RANGE"" D LINE"
^XMB(3.9,148,2,14625,0)="""RTN"",""SROQM"",72,0)"
^XMB(3.9,148,2,14626,0)=" S SRLINE=SRBLANK_""  --------------------------------------"" D LINE"
^XMB(3.9,148,2,14627,0)="""RTN"",""SROQM"",73,0)"
^XMB(3.9,148,2,14628,0)=" S SRBLANK="""" F I=1:1:17 S SRBLANK=SRBLANK_"" """
^XMB(3.9,148,2,14629,0)="""RTN"",""SROQM"",74,0)"
^XMB(3.9,148,2,14630,0)=" S SRLINE=SRBLANK_SRBLANK_""TIME OUT VERIFIED: """
^XMB(3.9,148,2,14631,0)="""RTN"",""SROQM"",75,0)"
^XMB(3.9,148,2,14632,0)=" S:SRCASES SRLINE=SRLINE_$J(((SRTOV/SRCASES)*100),5,1)_""%"" D LINE"
^XMB(3.9,148,2,14633,0)="""RTN"",""SROQM"",76,0)"
^XMB(3.9,148,2,14634,0)=" S SRLINE=SRBLANK_""    PREOPERATIVE IMAGING CONFIRMED: """
^XMB(3.9,148,2,14635,0)="""RTN"",""SROQM"",77,0)"
^XMB(3.9,148,2,14636,0)=" S:SRCASES SRLINE=SRLINE_$J((((SRICY+SRICNR)/SRCASES)*100),5,1)_""%"" D LINE"
^XMB(3.9,148,2,14637,0)="""RTN"",""SROQM"",78,0)"
^XMB(3.9,148,2,14638,0)=" S SRLINE=SRBLANK_""   MARK ON SURGICAL SITE CONFIRMED: """
^XMB(3.9,148,2,14639,0)="""RTN"",""SROQM"",79,0)"
^XMB(3.9,148,2,14640,0)=" S:SRCASES SRLINE=SRLINE_$J((((SRSCY+SRSCNR)/SRCASES)*100),5,1)_""%"" D LINE"
^XMB(3.9,148,2,14641,0)="""RTN"",""SROQM"",80,0)"
^XMB(3.9,148,2,14642,0)=" Q"
^XMB(3.9,148,2,14643,0)="""RTN"",""SROQM1"")"
^XMB(3.9,148,2,14644,0)="0^98^B25626718^B16158115"
^XMB(3.9,148,2,14645,0)="""RTN"",""SROQM1"",1,0)"
^XMB(3.9,148,2,14646,0)="SROQM1 ;BIR/ADM - QUARTERLY REPORT (CONTINUED) ;04/03/06"
^XMB(3.9,148,2,14647,0)="""RTN"",""SROQM1"",2,0)"
^XMB(3.9,148,2,14648,0)=" ;;3.0; Surgery ;**38,62,70,129,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,14649,0)="""RTN"",""SROQM1"",3,0)"
^XMB(3.9,148,2,14650,0)=" ;** NOTICE: This routine is part of an implementation of a nationally"
^XMB(3.9,148,2,14651,0)="""RTN"",""SROQM1"",4,0)"
^XMB(3.9,148,2,14652,0)=" ;**         controlled procedure. Local modifications to this routine"
^XMB(3.9,148,2,14653,0)="""RTN"",""SROQM1"",5,0)"
^XMB(3.9,148,2,14654,0)=" ;**         are prohibited."
^XMB(3.9,148,2,14655,0)="""RTN"",""SROQM1"",6,0)"
^XMB(3.9,148,2,14656,0)=" ;"
^XMB(3.9,148,2,14657,0)="""RTN"",""SROQM1"",7,0)"
^XMB(3.9,148,2,14658,0)="NDEX ; index procedures"
^XMB(3.9,148,2,14659,0)="""RTN"",""SROQM1"",8,0)"
^XMB(3.9,148,2,14660,0)=" D BLANK S SRBLANK="""" F I=1:1:31 S SRBLANK=SRBLANK_"" """
^XMB(3.9,148,2,14661,0)="""RTN"",""SROQM1"",9,0)"
^XMB(3.9,148,2,14662,0)=" S SRLINE=SRBLANK_""INDEX PROCEDURES"" D LINE S SRLINE=SRBLANK_""----------------"" D LINE"
^XMB(3.9,148,2,14663,0)="""RTN"",""SROQM1"",10,0)"
^XMB(3.9,148,2,14664,0)=" F I=1:1:22 S SRBLANK=SRBLANK_"" """
^XMB(3.9,148,2,14665,0)="""RTN"",""SROQM1"",11,0)"
^XMB(3.9,148,2,14666,0)=" S SRLINE=SRBLANK_""CASES WITH"" D LINE S SRBLANK="""" F I=1:1:29 S SRBLANK=SRBLANK_"" """
^XMB(3.9,148,2,14667,0)="""RTN"",""SROQM1"",12,0)"
^XMB(3.9,148,2,14668,0)=" S SRLINE=SRBLANK_""CASES        DEATHS     OCCURRENCES"" D LINE"
^XMB(3.9,148,2,14669,0)="""RTN"",""SROQM1"",13,0)"
^XMB(3.9,148,2,14670,0)=" S SRLINE=SRBLANK_""-----        ------     -----------"" D LINE"
^XMB(3.9,148,2,14671,0)="""RTN"",""SROQM1"",14,0)"
^XMB(3.9,148,2,14672,0)=" F J=1:1:12 D IXUT"
^XMB(3.9,148,2,14673,0)="""RTN"",""SROQM1"",15,0)"
^XMB(3.9,148,2,14674,0)="CC ; occurrence categories"
^XMB(3.9,148,2,14675,0)="""RTN"",""SROQM1"",16,0)"
^XMB(3.9,148,2,14676,0)=" D BLANK S SRBLANK="""" F I=1:1:21 S SRBLANK=SRBLANK_"" """
^XMB(3.9,148,2,14677,0)="""RTN"",""SROQM1"",17,0)"
^XMB(3.9,148,2,14678,0)=" S SRLINE=SRBLANK_""PERIOPERATIVE OCCURRENCE CATEGORIES"" D LINE S SRLINE=SRBLANK_""-----------------------------------"" D LINE"
^XMB(3.9,148,2,14679,0)="""RTN"",""SROQM1"",18,0)"
^XMB(3.9,148,2,14680,0)="WC D BLANK S SRLINE="" Wound Occurrences            Total      Urinary Occurrences          Total"" D LINE"
^XMB(3.9,148,2,14681,0)="""RTN"",""SROQM1"",19,0)"
^XMB(3.9,148,2,14682,0)=" S SRLINE="" A. Superficial Incisional SSI""_$J(SRC(1),5)_""      A. Renal Insufficiency       ""_$J(SRC(8),5) D LINE"
^XMB(3.9,148,2,14683,0)="""RTN"",""SROQM1"",20,0)"
^XMB(3.9,148,2,14684,0)=" S SRLINE="" B. Deep Incisional SSI       ""_$J(SRC(2),5)_""      B. Acute Renal Failure       ""_$J(SRC(9),5) D LINE"
^XMB(3.9,148,2,14685,0)="""RTN"",""SROQM1"",21,0)"
^XMB(3.9,148,2,14686,0)=" S SRLINE="" C. Wound Disruption          ""_$J(SRC(22),5)_""      C. Urinary Tract Infection   ""_$J(SRC(10),5) D LINE"
^XMB(3.9,148,2,14687,0)="""RTN"",""SROQM1"",22,0)"
^XMB(3.9,148,2,14688,0)=" S SRLINE="" D. Other                     ""_$J(SRC(36),5)_""      D. Other                     ""_$J(SRC(31),5) D LINE,BLANK"
^XMB(3.9,148,2,14689,0)="""RTN"",""SROQM1"",23,0)"
^XMB(3.9,148,2,14690,0)="RC S SRLINE="" Respiratory Occurrences      Total      CNS Occurrences              Total"" D LINE"
^XMB(3.9,148,2,14691,0)="""RTN"",""SROQM1"",24,0)"
^XMB(3.9,148,2,14692,0)=" S SRLINE="" A. Pneumonia                 ""_$J(SRC(4),5)_""      A. CVA/Stroke                ""_$J((SRC(12)+SRC(28)),5) D LINE"
^XMB(3.9,148,2,14693,0)="""RTN"",""SROQM1"",25,0)"
^XMB(3.9,148,2,14694,0)=" S SRLINE="" B. Unplanned Intubation      ""_$J((SRC(7)+SRC(11)),5)_""      B. Coma >24 Hours            ""_$J(SRC(13),5) D LINE"
^XMB(3.9,148,2,14695,0)="""RTN"",""SROQM1"",26,0)"
^XMB(3.9,148,2,14696,0)=" S SRLINE="" C. Pulmonary Embolism        ""_$J(SRC(5),5)_""      C. Peripheral Nerve Injury   ""_$J(SRC(14),5) D LINE"
^XMB(3.9,148,2,14697,0)="""RTN"",""SROQM1"",27,0)"
^XMB(3.9,148,2,14698,0)=" S SRLINE="" D. On Ventilator >48 Hours   ""_$J(SRC(6),5)_""      D. Other                     ""_$J(SRC(30),5) D LINE"
^XMB(3.9,148,2,14699,0)="""RTN"",""SROQM1"",28,0)"
^XMB(3.9,148,2,14700,0)=" S SRLINE="" E. Tracheostomy              ""_$J(SRC(33),5) D LINE"
^XMB(3.9,148,2,14701,0)="""RTN"",""SROQM1"",29,0)"
^XMB(3.9,148,2,14702,0)=" S SRLINE="" F. Repeat Vent w/in 30 Days  ""_$J(SRC(37),5) D LINE"
^XMB(3.9,148,2,14703,0)="""RTN"",""SROQM1"",30,0)"
^XMB(3.9,148,2,14704,0)=" S SRLINE="" G. Other                     ""_$J(SRC(29),5) D LINE"
^XMB(3.9,148,2,14705,0)="""RTN"",""SROQM1"",31,0)"
^XMB(3.9,148,2,14706,0)="CARD D BLANK S SRLINE="" Cardiac Occurrences          Total      Other Occurrences            Total"" D LINE"
^XMB(3.9,148,2,14707,0)="""RTN"",""SROQM1"",32,0)"
^XMB(3.9,148,2,14708,0)=" S SRLINE="" A. Cardiac Arrest Req. CPR   ""_$J(SRC(16),5)_""      A. Organ/Space SSI           ""_$J(SRC(35),5) D LINE"
^XMB(3.9,148,2,14709,0)="""RTN"",""SROQM1"",33,0)"
^XMB(3.9,148,2,14710,0)=" S SRLINE="" B. Myocardial Infarction     ""_$J(SRC(17),5)_""      B. Bleeding/Transfusions     ""_$J(SRC(15),5) D LINE"
^XMB(3.9,148,2,14711,0)="""RTN"",""SROQM1"",34,0)"
^XMB(3.9,148,2,14712,0)=" S SRLINE="" C. Endocarditis              ""_$J(SRC(23),5)_""      C. Graft/Prosthesis/Flap"" D LINE"
^XMB(3.9,148,2,14713,0)="""RTN"",""SROQM1"",35,0)"
^XMB(3.9,148,2,14714,0)=" S SRLINE="" D. Low Cardiac Output >6 Hrs.""_$J(SRC(24),5)_""                          Failure  ""_$J(SRC(19),5) D LINE"
^XMB(3.9,148,2,14715,0)="""RTN"",""SROQM1"",36,0)"
^XMB(3.9,148,2,14716,0)=" S SRLINE="" E. Mediastinitis             ""_$J(SRC(25),5)_""      D. DVT/Thrombophlebitis      ""_$J(SRC(20),5) D LINE"
^XMB(3.9,148,2,14717,0)="""RTN"",""SROQM1"",37,0)"
^XMB(3.9,148,2,14718,0)=" S SRLINE="" F. Repeat Card Surg Proc     ""_$J(SRC(27),5)_""      E. Systemic Sepsis           ""_$J(SRC(3),5) D LINE"
^XMB(3.9,148,2,14719,0)="""RTN"",""SROQM1"",38,0)"
^XMB(3.9,148,2,14720,0)=" S SRLINE="" G. New Mech Circulatory Sup  ""_$J(SRC(34),5)_""      F. Reoperation for Bleeding  ""_$J(SRC(26),5) D LINE"
^XMB(3.9,148,2,14721,0)="""RTN"",""SROQM1"",39,0)"
^XMB(3.9,148,2,14722,0)=" S SRLINE="" H. Other                     ""_$J(SRC(32),5)_""      G. Other                     ""_$J(SRC(21),5) D LINE,BLANK"
^XMB(3.9,148,2,14723,0)="""RTN"",""SROQM1"",40,0)"
^XMB(3.9,148,2,14724,0)=" S:'SRWC SRWC=1 S SRLINE="" Clean Wound Infection Rate: ""_$J((SRIN/SRWC*100),5,1)_""%"" D LINE"
^XMB(3.9,148,2,14725,0)="""RTN"",""SROQM1"",41,0)"
^XMB(3.9,148,2,14726,0)=" Q"
^XMB(3.9,148,2,14727,0)="""RTN"",""SROQM1"",42,0)"
^XMB(3.9,148,2,14728,0)="IXUT ; get index procedure data from ^TMP"
^XMB(3.9,148,2,14729,0)="""RTN"",""SROQM1"",43,0)"
^XMB(3.9,148,2,14730,0)=" F K=1:1:3 S SRP(K)=$P(^TMP(""SRPROC"",$J,J),""^"",K)"
^XMB(3.9,148,2,14731,0)="""RTN"",""SROQM1"",44,0)"
^XMB(3.9,148,2,14732,0)=" D IXOUT^SROQ0A D"
^XMB(3.9,148,2,14733,0)="""RTN"",""SROQM1"",45,0)"
^XMB(3.9,148,2,14734,0)=" .I SROP["","" D  S SROP=$P(SROP,"","",2)"
^XMB(3.9,148,2,14735,0)="""RTN"",""SROQM1"",46,0)"
^XMB(3.9,148,2,14736,0)=" ..I J=7 S SRLINE=""    ""_$P(SROP,"","") D LINE"
^XMB(3.9,148,2,14737,0)="""RTN"",""SROQM1"",47,0)"
^XMB(3.9,148,2,14738,0)=" .S SRLINE=""    ""_SROP S SRBLANK="""" F I=1:1:(28-$L(SRLINE)) S SRBLANK=SRBLANK_"" """
^XMB(3.9,148,2,14739,0)="""RTN"",""SROQM1"",48,0)"
^XMB(3.9,148,2,14740,0)=" S SRLINE=SRLINE_SRBLANK_$J(SRP(1),6)_""       ""_$J(SRP(3),6)_""       ""_$J(SRP(2),6) D LINE"
^XMB(3.9,148,2,14741,0)="""RTN"",""SROQM1"",49,0)"
^XMB(3.9,148,2,14742,0)=" Q"
^XMB(3.9,148,2,14743,0)="""RTN"",""SROQM1"",50,0)"
^XMB(3.9,148,2,14744,0)="BLANK ; blank line"
^XMB(3.9,148,2,14745,0)="""RTN"",""SROQM1"",51,0)"
^XMB(3.9,148,2,14746,0)=" S ^TMP(""SRMSG"",$J,SRCNT)="""",SRCNT=SRCNT+1"
^XMB(3.9,148,2,14747,0)="""RTN"",""SROQM1"",52,0)"
^XMB(3.9,148,2,14748,0)=" Q"
^XMB(3.9,148,2,14749,0)="""RTN"",""SROQM1"",53,0)"
^XMB(3.9,148,2,14750,0)="LINE ; store line in ^TMP"
^XMB(3.9,148,2,14751,0)="""RTN"",""SROQM1"",54,0)"
^XMB(3.9,148,2,14752,0)=" S ^TMP(""SRMSG"",$J,SRCNT)=SRLINE,SRCNT=SRCNT+1"
^XMB(3.9,148,2,14753,0)="""RTN"",""SROQM1"",55,0)"
^XMB(3.9,148,2,14754,0)=" Q"
^XMB(3.9,148,2,14755,0)="""RTN"",""SROQM1"",56,0)"
^XMB(3.9,148,2,14756,0)="HAIR ; hair removal methods"
^XMB(3.9,148,2,14757,0)="""RTN"",""SROQM1"",57,0)"
^XMB(3.9,148,2,14758,0)=" D BLANK,BLANK S SRBLANK="""" F I=1:1:19 S SRBLANK=SRBLANK_"" """
^XMB(3.9,148,2,14759,0)="""RTN"",""SROQM1"",58,0)"
^XMB(3.9,148,2,14760,0)=" S SRLINE=SRBLANK_""PREOPERATIVE HAIR REMOVAL METHODS SUMMARY"" D LINE"
^XMB(3.9,148,2,14761,0)="""RTN"",""SROQM1"",59,0)"
^XMB(3.9,148,2,14762,0)=" S SRLINE=SRBLANK_""-----------------------------------------"" D LINE"
^XMB(3.9,148,2,14763,0)="""RTN"",""SROQM1"",60,0)"
^XMB(3.9,148,2,14764,0)=" D BLANK F I=1:1:23 S SRBLANK=SRBLANK_"" """
^XMB(3.9,148,2,14765,0)="""RTN"",""SROQM1"",61,0)"
^XMB(3.9,148,2,14766,0)=" S SRLINE=SRBLANK_""CASES    % OF TOTAL"" D LINE"
^XMB(3.9,148,2,14767,0)="""RTN"",""SROQM1"",62,0)"
^XMB(3.9,148,2,14768,0)=" S SRLINE=SRBLANK_""-----    ----------"" D LINE"
^XMB(3.9,148,2,14769,0)="""RTN"",""SROQM1"",63,0)"
^XMB(3.9,148,2,14770,0)=" S SRBLANK="""" F I=1:1:15 S SRBLANK=SRBLANK_"" """
^XMB(3.9,148,2,14771,0)="""RTN"",""SROQM1"",64,0)"
^XMB(3.9,148,2,14772,0)=" S SRLINE=SRBLANK_""   TOTAL CASES PERFORMED:""_$J(SRCASES,6)_""       """
^XMB(3.9,148,2,14773,0)="""RTN"",""SROQM1"",65,0)"
^XMB(3.9,148,2,14774,0)=" S:SRCASES SRLINE=SRLINE_""100.0"" D LINE,BLANK"
^XMB(3.9,148,2,14775,0)="""RTN"",""SROQM1"",66,0)"
^XMB(3.9,148,2,14776,0)=" S SRLINE=SRBLANK_SRBLANK_""  CLIPPER:""_$J(SRHAIR(""C""),6)_""       """
^XMB(3.9,148,2,14777,0)="""RTN"",""SROQM1"",67,0)"
^XMB(3.9,148,2,14778,0)=" S:SRCASES SRLINE=SRLINE_$J(((SRHAIR(""C"")/SRCASES)*100),5,1) D LINE"
^XMB(3.9,148,2,14779,0)="""RTN"",""SROQM1"",68,0)"
^XMB(3.9,148,2,14780,0)=" S SRLINE=SRBLANK_""              DEPILATORY:""_$J(SRHAIR(""D""),6)_""       """
^XMB(3.9,148,2,14781,0)="""RTN"",""SROQM1"",69,0)"
^XMB(3.9,148,2,14782,0)=" S:SRCASES SRLINE=SRLINE_$J(((SRHAIR(""D"")/SRCASES)*100),5,1) D LINE"
^XMB(3.9,148,2,14783,0)="""RTN"",""SROQM1"",70,0)"
^XMB(3.9,148,2,14784,0)=" S SRLINE=SRBLANK_""         NO HAIR REMOVED:""_$J(SRHAIR(""N""),6)_""       """
^XMB(3.9,148,2,14785,0)="""RTN"",""SROQM1"",71,0)"
^XMB(3.9,148,2,14786,0)=" S:SRCASES SRLINE=SRLINE_$J(((SRHAIR(""N"")/SRCASES)*100),5,1) D LINE"
^XMB(3.9,148,2,14787,0)="""RTN"",""SROQM1"",72,0)"
^XMB(3.9,148,2,14788,0)=" S SRLINE=SRBLANK_""PATIENT REMOVED OWN HAIR:""_$J(SRHAIR(""P""),6)_""       """
^XMB(3.9,148,2,14789,0)="""RTN"",""SROQM1"",73,0)"
^XMB(3.9,148,2,14790,0)=" S:SRCASES SRLINE=SRLINE_$J(((SRHAIR(""P"")/SRCASES)*100),5,1) D LINE"
^XMB(3.9,148,2,14791,0)="""RTN"",""SROQM1"",74,0)"
^XMB(3.9,148,2,14792,0)=" S SRLINE=SRBLANK_SRBLANK_""  SHAVING:""_$J(SRHAIR(""S""),6)_""       """
^XMB(3.9,148,2,14793,0)="""RTN"",""SROQM1"",75,0)"
^XMB(3.9,148,2,14794,0)=" S:SRCASES SRLINE=SRLINE_$J(((SRHAIR(""S"")/SRCASES)*100),5,1) D LINE"
^XMB(3.9,148,2,14795,0)="""RTN"",""SROQM1"",76,0)"
^XMB(3.9,148,2,14796,0)=" N SRNDOC S SRNDOC=SRHAIR(""U"")+SRHAIR(""ZZ"")"
^XMB(3.9,148,2,14797,0)="""RTN"",""SROQM1"",77,0)"
^XMB(3.9,148,2,14798,0)=" S SRLINE=SRBLANK_""          NOT DOCUMENTED:""_$J(SRNDOC,6)_""       """
^XMB(3.9,148,2,14799,0)="""RTN"",""SROQM1"",78,0)"
^XMB(3.9,148,2,14800,0)=" S:SRCASES SRLINE=SRLINE_$J(((SRNDOC/SRCASES)*100),5,1) D LINE"
^XMB(3.9,148,2,14801,0)="""RTN"",""SROQM1"",79,0)"
^XMB(3.9,148,2,14802,0)=" S SRLINE=SRBLANK_SRBLANK_""    OTHER:""_$J(SRHAIR(""O""),6)_""       """
^XMB(3.9,148,2,14803,0)="""RTN"",""SROQM1"",80,0)"
^XMB(3.9,148,2,14804,0)=" S:SRCASES SRLINE=SRLINE_$J(((SRHAIR(""O"")/SRCASES)*100),5,1) D LINE"
^XMB(3.9,148,2,14805,0)="""RTN"",""SROQM1"",81,0)"
^XMB(3.9,148,2,14806,0)=" Q"
^XMB(3.9,148,2,14807,0)="""RTN"",""SROQT"")"
^XMB(3.9,148,2,14808,0)="0^65^B29470128^B28873374"
^XMB(3.9,148,2,14809,0)="""RTN"",""SROQT"",1,0)"
^XMB(3.9,148,2,14810,0)="SROQT ;BIR/ADM - QTRLY RPT MESSAGE TO SERVER ;03/29/06"
^XMB(3.9,148,2,14811,0)="""RTN"",""SROQT"",2,0)"
^XMB(3.9,148,2,14812,0)=" ;;3.0; Surgery ;**38,43,62,67,70,77,50,95,123,126,129,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,14813,0)="""RTN"",""SROQT"",3,0)"
^XMB(3.9,148,2,14814,0)=" ;** NOTICE: This routine is part of an implementation of a nationally"
^XMB(3.9,148,2,14815,0)="""RTN"",""SROQT"",4,0)"
^XMB(3.9,148,2,14816,0)=" ;**         controlled procedure. Local modifications to this routine"
^XMB(3.9,148,2,14817,0)="""RTN"",""SROQT"",5,0)"
^XMB(3.9,148,2,14818,0)=" ;**         are prohibited."
^XMB(3.9,148,2,14819,0)="""RTN"",""SROQT"",6,0)"
^XMB(3.9,148,2,14820,0)=" ;"
^XMB(3.9,148,2,14821,0)="""RTN"",""SROQT"",7,0)"
^XMB(3.9,148,2,14822,0)=" S SRD=^XMB(""NETNAME""),ISC=0 I $E(SRD,1,3)=""FO-""!(SRD[""ISC-"")!(SRD[""ISC."")!(SRD[""FORUM"")!(SRD[""TST"")!(SRD["".FO-"") S ISC=1"
^XMB(3.9,148,2,14823,0)="""RTN"",""SROQT"",8,0)"
^XMB(3.9,148,2,14824,0)=" K ^TMP(""SRQTR"",$J),^TMP(""SRATT"",$J) N SRDIV S SRDIV=$P($$SITE^SROVAR,""^"",3)_$S(SRIEN:""-""_SRIEN,1:"""")"
^XMB(3.9,148,2,14825,0)="""RTN"",""SROQT"",9,0)"
^XMB(3.9,148,2,14826,0)=" S SRSMO=$E(SRSTART,4,5),SRQTR=$S(SRSMO=10:1,SRSMO=""01"":2,SRSMO=""04"":3,1:4),SRFYR=$S(SRQTR=1:$E(SRSTART,1,3)+1,1:$E(SRSTART,1,3))+1700,SRFQ=SRFYR_SRQTR"
^XMB(3.9,148,2,14827,0)="""RTN"",""SROQT"",10,0)"
^XMB(3.9,148,2,14828,0)=" S SRNODE=SRDIV_""^1^""_SRFQ_""^""_DT_""^""_SRCASES_""^""_SRMAJOR_""^""_SRMORT_""^""_SRCOMP_""^""_SRINPAT_""^""_SREMERG_""^""_SR60 F I=1:1:7 S SRNODE=SRNODE_""^""_SRASA(I)"
^XMB(3.9,148,2,14829,0)="""RTN"",""SROQT"",11,0)"
^XMB(3.9,148,2,14830,0)=" S SRNODE=SRNODE_""^""_SROPD_""^""_SRINV(""O"")_""^""_SRINV(""I"")_""^""_SRADMT"
^XMB(3.9,148,2,14831,0)="""RTN"",""SROQT"",12,0)"
^XMB(3.9,148,2,14832,0)=" I SRIEN S SRNODE=SRNODE_""^""_SRINST_""^""_SRSTATN"
^XMB(3.9,148,2,14833,0)="""RTN"",""SROQT"",13,0)"
^XMB(3.9,148,2,14834,0)=" S ^TMP(""SRQTR"",$J,1)=SRNODE"
^XMB(3.9,148,2,14835,0)="""RTN"",""SROQT"",14,0)"
^XMB(3.9,148,2,14836,0)="SP S SRNODE=SRDIV_""^2"" F SRSS=50:1:55 S SRNODE=SRNODE_""^""_^TMP(""SRSS"",$J,SRSS)"
^XMB(3.9,148,2,14837,0)="""RTN"",""SROQT"",15,0)"
^XMB(3.9,148,2,14838,0)=" S ^TMP(""SRQTR"",$J,2)=SRNODE"
^XMB(3.9,148,2,14839,0)="""RTN"",""SROQT"",16,0)"
^XMB(3.9,148,2,14840,0)=" S SRNODE=SRDIV_""^3"" F SRSS=56:1:61 S SRNODE=SRNODE_""^""_^TMP(""SRSS"",$J,SRSS)"
^XMB(3.9,148,2,14841,0)="""RTN"",""SROQT"",17,0)"
^XMB(3.9,148,2,14842,0)=" S ^TMP(""SRQTR"",$J,3)=SRNODE"
^XMB(3.9,148,2,14843,0)="""RTN"",""SROQT"",18,0)"
^XMB(3.9,148,2,14844,0)=" S SRNODE=SRDIV_""^4"" F SRSS=62,500,501,502,""ZZ"" S SRNODE=SRNODE_""^""_^TMP(""SRSS"",$J,SRSS)"
^XMB(3.9,148,2,14845,0)="""RTN"",""SROQT"",19,0)"
^XMB(3.9,148,2,14846,0)=" S ^TMP(""SRQTR"",$J,4)=SRNODE"
^XMB(3.9,148,2,14847,0)="""RTN"",""SROQT"",20,0)"
^XMB(3.9,148,2,14848,0)="IX S SRNODE=SRDIV_""^5"" F J=1:1:6 D PROC"
^XMB(3.9,148,2,14849,0)="""RTN"",""SROQT"",21,0)"
^XMB(3.9,148,2,14850,0)=" S SRNODE=SRNODE_""^^^"" F J=9:1:12 D PROC"
^XMB(3.9,148,2,14851,0)="""RTN"",""SROQT"",22,0)"
^XMB(3.9,148,2,14852,0)=" S ^TMP(""SRQTR"",$J,5)=SRNODE"
^XMB(3.9,148,2,14853,0)="""RTN"",""SROQT"",23,0)"
^XMB(3.9,148,2,14854,0)="COMP S SRNODE=SRDIV_""^6"" F I=1:1:37 S SRNODE=SRNODE_""^""_SRC(I)"
^XMB(3.9,148,2,14855,0)="""RTN"",""SROQT"",24,0)"
^XMB(3.9,148,2,14856,0)=" S ^TMP(""SRQTR"",$J,6)=SRNODE"
^XMB(3.9,148,2,14857,0)="""RTN"",""SROQT"",25,0)"
^XMB(3.9,148,2,14858,0)="RES S X="""" F I=1:1:14,99 S X=X_$G(SRATT(I))_""^"""
^XMB(3.9,148,2,14859,0)="""RTN"",""SROQT"",26,0)"
^XMB(3.9,148,2,14860,0)=" S ^TMP(""SRATT"",$J,""TOTAL"")=X"
^XMB(3.9,148,2,14861,0)="""RTN"",""SROQT"",27,0)"
^XMB(3.9,148,2,14862,0)=" F K=""J"",""N"" S X="""" D"
^XMB(3.9,148,2,14863,0)="""RTN"",""SROQT"",28,0)"
^XMB(3.9,148,2,14864,0)=" .F I=1:1:14,99 S X=X_$G(SRATT(K,I))_""^"""
^XMB(3.9,148,2,14865,0)="""RTN"",""SROQT"",29,0)"
^XMB(3.9,148,2,14866,0)=" .S ^TMP(""SRATT"",$J,K)=X"
^XMB(3.9,148,2,14867,0)="""RTN"",""SROQT"",30,0)"
^XMB(3.9,148,2,14868,0)=" S SRNODE=SRDIV_""^7^""_SRWC_""^""_$P(^TMP(""SRATT"",$J,""TOTAL""),""^"",1,4)_""^""_$P(^TMP(""SRATT"",$J,""TOTAL""),""^"",15)"
^XMB(3.9,148,2,14869,0)="""RTN"",""SROQT"",31,0)"
^XMB(3.9,148,2,14870,0)=" S SRNODE=SRNODE_""^""_SRIN_""^""_$P(^TMP(""SRATT"",$J,""J""),""^"",1,4)_""^""_$P(^TMP(""SRATT"",$J,""J""),""^"",15)_""^""_$P(^TMP(""SRATT"",$J,""N""),""^"",1,4)_""^""_$P(^TMP(""SRATT"",$J,""N""),""^"",15)"
^XMB(3.9,148,2,14871,0)="""RTN"",""SROQT"",32,0)"
^XMB(3.9,148,2,14872,0)=" S SRNODE=SRNODE_""^""_$P(^TMP(""SRATT"",$J,""TOTAL""),""^"",5,8)_""^""_$P(^TMP(""SRATT"",$J,""J""),""^"",5,8)_""^""_$P(^TMP(""SRATT"",$J,""N""),""^"",5,8)"
^XMB(3.9,148,2,14873,0)="""RTN"",""SROQT"",33,0)"
^XMB(3.9,148,2,14874,0)=" S ^TMP(""SRQTR"",$J,7)=SRNODE"
^XMB(3.9,148,2,14875,0)="""RTN"",""SROQT"",34,0)"
^XMB(3.9,148,2,14876,0)="HIP S SRNODE=SRDIV_""^8"" F J=7,8 D PROC"
^XMB(3.9,148,2,14877,0)="""RTN"",""SROQT"",35,0)"
^XMB(3.9,148,2,14878,0)=" S SRNODE=SRNODE_""^""_SRTOV_""^""_SRTONO_""^""_SRTONE_""^""_SRICY_""^""_SRICNO_""^""_SRICNR_""^""_SRICNE_""^""_SRSCY_""^""_SRSCNO_""^""_SRSCNR_""^""_SRSCNE"
^XMB(3.9,148,2,14879,0)="""RTN"",""SROQT"",36,0)"
^XMB(3.9,148,2,14880,0)=" F I=""C"",""D"",""N"",""P"",""S"",""U"",""O"",""ZZ"" S SRNODE=SRNODE_""^""_SRHAIR(I)"
^XMB(3.9,148,2,14881,0)="""RTN"",""SROQT"",37,0)"
^XMB(3.9,148,2,14882,0)=" S ^TMP(""SRQTR"",$J,8)=SRNODE"
^XMB(3.9,148,2,14883,0)="""RTN"",""SROQT"",38,0)"
^XMB(3.9,148,2,14884,0)=" S SRNODE=SRDIV_""^9^""_$P(^TMP(""SRATT"",$J,""TOTAL""),""^"",9,14)_""^""_$P(^TMP(""SRATT"",$J,""J""),""^"",9,14)_""^""_$P(^TMP(""SRATT"",$J,""N""),""^"",9,14)"
^XMB(3.9,148,2,14885,0)="""RTN"",""SROQT"",39,0)"
^XMB(3.9,148,2,14886,0)=" S ^TMP(""SRQTR"",$J,9)=SRNODE"
^XMB(3.9,148,2,14887,0)="""RTN"",""SROQT"",40,0)"
^XMB(3.9,148,2,14888,0)="MSG ; create mail message to server"
^XMB(3.9,148,2,14889,0)="""RTN"",""SROQT"",41,0)"
^XMB(3.9,148,2,14890,0)=" S X=$$ACTIVE^XUSER(DUZ) I '+X S XMDUZ=.5"
^XMB(3.9,148,2,14891,0)="""RTN"",""SROQT"",42,0)"
^XMB(3.9,148,2,14892,0)=" S XMSUB=""QUARTERLY REPORT - SURGICAL SERVICE"""
^XMB(3.9,148,2,14893,0)="""RTN"",""SROQT"",43,0)"
^XMB(3.9,148,2,14894,0)=" K XMY I 'ISC S (XMY(""S.SRCOSERV@FO-HINES.MED.VA.GOV""),XMY(""G.SRCOSERV@FO-HINES.MED.VA.GOV""))="""""
^XMB(3.9,148,2,14895,0)="""RTN"",""SROQT"",44,0)"
^XMB(3.9,148,2,14896,0)=" I ISC S XMY(""G.SR-QUARTERLY@""_SRD)="""""
^XMB(3.9,148,2,14897,0)="""RTN"",""SROQT"",45,0)"
^XMB(3.9,148,2,14898,0)=" S XMTEXT=""^TMP(""""SRQTR"""",$J,"" N I D ^XMD K ^TMP(""SRQTR"",$J),XMY,XMTEXT"
^XMB(3.9,148,2,14899,0)="""RTN"",""SROQT"",46,0)"
^XMB(3.9,148,2,14900,0)=" Q:SRIEN"
^XMB(3.9,148,2,14901,0)="""RTN"",""SROQT"",47,0)"
^XMB(3.9,148,2,14902,0)="MSG1 S XMY(""G.SR-QUARTERLY@""_SRD)="""",XMSUB=""QUARTERLY REPORT TRANSMISSION"""
^XMB(3.9,148,2,14903,0)="""RTN"",""SROQT"",48,0)"
^XMB(3.9,148,2,14904,0)=" S SRMSG(1)=""The Quarterly Report for quarter #""_$E(SRFQ,5)_"" of fiscal year ""_$E(SRFQ,1,4)_"" has been"""
^XMB(3.9,148,2,14905,0)="""RTN"",""SROQT"",49,0)"
^XMB(3.9,148,2,14906,0)=" S SRMSG(2)=""transmitted to the central database of Surgical Service, VHA Headquarters."""
^XMB(3.9,148,2,14907,0)="""RTN"",""SROQT"",50,0)"
^XMB(3.9,148,2,14908,0)=" S XMTEXT=""SRMSG("" N I D ^XMD K XMY,XMTEXT"
^XMB(3.9,148,2,14909,0)="""RTN"",""SROQT"",51,0)"
^XMB(3.9,148,2,14910,0)=" D ^SROQM,SITE"
^XMB(3.9,148,2,14911,0)="""RTN"",""SROQT"",52,0)"
^XMB(3.9,148,2,14912,0)=" Q"
^XMB(3.9,148,2,14913,0)="""RTN"",""SROQT"",53,0)"
^XMB(3.9,148,2,14914,0)="PROC S X=^TMP(""SRPROC"",$J,J),SRNODE=SRNODE_""^""_$P(X,""^"")_""^""_$P(X,""^"",3)_""^""_$P(X,""^"",2)"
^XMB(3.9,148,2,14915,0)="""RTN"",""SROQT"",54,0)"
^XMB(3.9,148,2,14916,0)=" Q"
^XMB(3.9,148,2,14917,0)="""RTN"",""SROQT"",55,0)"
^XMB(3.9,148,2,14918,0)="QUE ; queue creation of report to central database"
^XMB(3.9,148,2,14919,0)="""RTN"",""SROQT"",56,0)"
^XMB(3.9,148,2,14920,0)=" W ! K %DT S %DT(""A"")=""Queue report to run at what date/time ? "",%DT(0)=""NOW"",%DT(""B"")=""NOW"",%DT=""AEFXT"" D ^%DT I Y=-1 S SRSOUT=1 G END^SROQ"
^XMB(3.9,148,2,14921,0)="""RTN"",""SROQT"",57,0)"
^XMB(3.9,148,2,14922,0)=" D TSK G END^SROQ"
^XMB(3.9,148,2,14923,0)="""RTN"",""SROQT"",58,0)"
^XMB(3.9,148,2,14924,0)="TSK S ZTDTH=Y,ZTIO="""",ZTDESC=""Surgery Quarterly Report"",(ZTSAVE(""SRSTART""),ZTSAVE(""SREND""),ZTSAVE(""SRFLG""),ZTSAVE(""SRT""))="""",ZTRTN=""EN^SROQT"" D ^%ZTLOAD"
^XMB(3.9,148,2,14925,0)="""RTN"",""SROQT"",59,0)"
^XMB(3.9,148,2,14926,0)=" Q"
^XMB(3.9,148,2,14927,0)="""RTN"",""SROQT"",60,0)"
^XMB(3.9,148,2,14928,0)="EN ; entry point when queued to generate mail report only"
^XMB(3.9,148,2,14929,0)="""RTN"",""SROQT"",61,0)"
^XMB(3.9,148,2,14930,0)=" K SRINSTP N SRDVSN,SRIEN,SRMULT S SRDVSN="""",(SRCOUNT,SRIEN,SRMULT,X)=0 D"
^XMB(3.9,148,2,14931,0)="""RTN"",""SROQT"",62,0)"
^XMB(3.9,148,2,14932,0)=" .F  S X=$O(^SRO(133,X)) Q:'X  I '$P($G(^SRO(133,X,0)),""^"",21) S SRCOUNT=SRCOUNT+1,SRDVSN(X)=$P(^SRO(133,X,0),""^"")"
^XMB(3.9,148,2,14933,0)="""RTN"",""SROQT"",63,0)"
^XMB(3.9,148,2,14934,0)=" .I SRCOUNT>1 S SRMULT=1"
^XMB(3.9,148,2,14935,0)="""RTN"",""SROQT"",64,0)"
^XMB(3.9,148,2,14936,0)=" D SET^SROQ2,SROQT I SRMULT D"
^XMB(3.9,148,2,14937,0)="""RTN"",""SROQT"",65,0)"
^XMB(3.9,148,2,14938,0)=" .S SRIEN=0 F  S SRIEN=$O(SRDVSN(SRIEN)) Q:'SRIEN  D"
^XMB(3.9,148,2,14939,0)="""RTN"",""SROQT"",66,0)"
^XMB(3.9,148,2,14940,0)=" ..S SRINSTP=SRDVSN(SRIEN),SRINST=$$GET1^DIQ(4,SRINSTP,.01),SRSTATN=$$GET1^DIQ(4,SRINSTP,99)"
^XMB(3.9,148,2,14941,0)="""RTN"",""SROQT"",67,0)"
^XMB(3.9,148,2,14942,0)=" ..D SET^SROQ2,SROQT"
^XMB(3.9,148,2,14943,0)="""RTN"",""SROQT"",68,0)"
^XMB(3.9,148,2,14944,0)=" F I=""SRATT"",""SRDEATH"",""SRDPT"",""SRDREL"",""SRDTH"",""SREXP"",""SRINOUT"",""SRIOD"",""SRP"",""SRPROC"",""SRREL"",""SRSP"",""SRSS"",""SRTN"" K ^TMP(I,$J)"
^XMB(3.9,148,2,14945,0)="""RTN"",""SROQT"",69,0)"
^XMB(3.9,148,2,14946,0)=" S ZTREQ=""@"""
^XMB(3.9,148,2,14947,0)="""RTN"",""SROQT"",70,0)"
^XMB(3.9,148,2,14948,0)=" Q"
^XMB(3.9,148,2,14949,0)="""RTN"",""SROQT"",71,0)"
^XMB(3.9,148,2,14950,0)="SITE ; update site parameters file"
^XMB(3.9,148,2,14951,0)="""RTN"",""SROQT"",72,0)"
^XMB(3.9,148,2,14952,0)=" S X=$E(SRSTART,4,7),Y=$S(X=""1001"":1,X=""0101"":2,X=""0401"":3,1:4),SRLATE=SRYR_Y"
^XMB(3.9,148,2,14953,0)="""RTN"",""SROQT"",73,0)"
^XMB(3.9,148,2,14954,0)=" S SRE=0 F  S SRE=$O(^SRO(133,SRE)) Q:'SRE  I $P(^SRO(133,SRE,0),""^"",18)<SRLATE S $P(^(0),""^"",18)=SRLATE"
^XMB(3.9,148,2,14955,0)="""RTN"",""SROQT"",74,0)"
^XMB(3.9,148,2,14956,0)="DALERT ; delete alert"
^XMB(3.9,148,2,14957,0)="""RTN"",""SROQT"",75,0)"
^XMB(3.9,148,2,14958,0)=" S XQAID=""SRQTR-""_SRLATE,XQAKILL=0 D DELETEA^XQALERT"
^XMB(3.9,148,2,14959,0)="""RTN"",""SROQT"",76,0)"
^XMB(3.9,148,2,14960,0)=" Q"
^XMB(3.9,148,2,14961,0)="""RTN"",""SROQT"",77,0)"
^XMB(3.9,148,2,14962,0)="NIGHT ; determine if current quarterly report has been transmitted"
^XMB(3.9,148,2,14963,0)="""RTN"",""SROQT"",78,0)"
^XMB(3.9,148,2,14964,0)=" D CURRENT S SRYR=SRYR+1700,SRFQ=SRYR_SRQTR,SRE=0 S SRE=$O(^SRO(133,SRE)) I $P(^SRO(133,SRE,0),""^"",18)'<SRFQ Q"
^XMB(3.9,148,2,14965,0)="""RTN"",""SROQT"",79,0)"
^XMB(3.9,148,2,14966,0)=" S SRALERT=0 I SRDAY>206&(SRDAY<214)!(SRDAY>507&(SRDAY<515))!(SRDAY>806&(SRDAY<814))!(SRDAY>1106&(SRDAY<1114)) S SRALERT=1"
^XMB(3.9,148,2,14967,0)="""RTN"",""SROQT"",80,0)"
^XMB(3.9,148,2,14968,0)=" D:SRALERT ALERT^SROQ1A D:'SRALERT AUTO"
^XMB(3.9,148,2,14969,0)="""RTN"",""SROQT"",81,0)"
^XMB(3.9,148,2,14970,0)=" Q"
^XMB(3.9,148,2,14971,0)="""RTN"",""SROQT"",82,0)"
^XMB(3.9,148,2,14972,0)="CURRENT ; get current reporting quarter"
^XMB(3.9,148,2,14973,0)="""RTN"",""SROQT"",83,0)"
^XMB(3.9,148,2,14974,0)=" S SRYR=$E(DT,1,3),SRDAY=$E(DT,4,7),SRQTR=4 I SRDAY>206 S SRQTR=$S(SRDAY<508:1,SRDAY<807:2,SRDAY<1107:3,1:4)"
^XMB(3.9,148,2,14975,0)="""RTN"",""SROQT"",84,0)"
^XMB(3.9,148,2,14976,0)=" I SRQTR=4,SRDAY<207 S SRYR=SRYR-1"
^XMB(3.9,148,2,14977,0)="""RTN"",""SROQT"",85,0)"
^XMB(3.9,148,2,14978,0)=" Q"
^XMB(3.9,148,2,14979,0)="""RTN"",""SROQT"",86,0)"
^XMB(3.9,148,2,14980,0)="DATES ; get start and end dates"
^XMB(3.9,148,2,14981,0)="""RTN"",""SROQT"",87,0)"
^XMB(3.9,148,2,14982,0)=" S SRSMO=$S(SRQTR=1:""1001"",SRQTR=2:""0101"",SRQTR=3:""0401"",1:""0701""),SREMO=$S(SRQTR=1:""1231"",SRQTR=2:""0331"",SRQTR=3:""0630"",1:""0930""),SRSTART=$S(SRQTR=1:SRYR-1,1:SRYR)_SRSMO,SREND=$S(SRQTR=1:SRYR-1,1:SRYR)_SREMO"
^XMB(3.9,148,2,14983,0)="""RTN"",""SROQT"",88,0)"
^XMB(3.9,148,2,14984,0)=" Q"
^XMB(3.9,148,2,14985,0)="""RTN"",""SROQT"",89,0)"
^XMB(3.9,148,2,14986,0)="VAR ; set report variables for non-interactive calls     "
^XMB(3.9,148,2,14987,0)="""RTN"",""SROQT"",90,0)"
^XMB(3.9,148,2,14988,0)=" D CURRENT,DATES S SRFLG=1"
^XMB(3.9,148,2,14989,0)="""RTN"",""SROQT"",91,0)"
^XMB(3.9,148,2,14990,0)=" Q"
^XMB(3.9,148,2,14991,0)="""RTN"",""SROQT"",92,0)"
^XMB(3.9,148,2,14992,0)="AUTO ; automatic transmission of report"
^XMB(3.9,148,2,14993,0)="""RTN"",""SROQT"",93,0)"
^XMB(3.9,148,2,14994,0)=" D VAR S (SRT,SRSOUT)=1 D NOW^%DTC S Y=$E(%,1,12) D TSK"
^XMB(3.9,148,2,14995,0)="""RTN"",""SROQT"",94,0)"
^XMB(3.9,148,2,14996,0)=" Q"
^XMB(3.9,148,2,14997,0)="""RTN"",""SROUTC"")"
^XMB(3.9,148,2,14998,0)="0^59^B16240379^B17003115"
^XMB(3.9,148,2,14999,0)="""RTN"",""SROUTC"",1,0)"
^XMB(3.9,148,2,15000,0)="SROUTC ;BIR/SJA - OUTCOMES DATA ;03/13/06"
^XMB(3.9,148,2,15001,0)="""RTN"",""SROUTC"",2,0)"
^XMB(3.9,148,2,15002,0)=" ;;3.0; Surgery ;**125,135,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,15003,0)="""RTN"",""SROUTC"",3,0)"
^XMB(3.9,148,2,15004,0)=" D UPDT490,EN^SROCCAT"
^XMB(3.9,148,2,15005,0)="""RTN"",""SROUTC"",4,0)"
^XMB(3.9,148,2,15006,0)=" F I=205,206,208,209 S SRA(I)=$G(^SRF(SRTN,I))"
^XMB(3.9,148,2,15007,0)="""RTN"",""SROUTC"",5,0)"
^XMB(3.9,148,2,15008,0)=" S NYUK=$P(SRA(208),""^"",2) D YN S SRAO(1)=SHEMP_""^385"",NYUK=$P(SRA(208),""^"",7) D YN S SRAO(8)=SHEMP_""^391"""
^XMB(3.9,148,2,15009,0)="""RTN"",""SROUTC"",6,0)"
^XMB(3.9,148,2,15010,0)=" S NYUK=$P(SRA(208),""^"",3) D YN S SRAO(2)=SHEMP_""^386"",NYUK=$P(SRA(206),""^"",39) D YN S SRAO(9)=SHEMP_""^466"""
^XMB(3.9,148,2,15011,0)="""RTN"",""SROUTC"",7,0)"
^XMB(3.9,148,2,15012,0)=" S NYUK=$P(SRA(205),""^"",17) D YN S SRAO(3)=SHEMP_""^254"",NYUK=$P(SRA(209),""^"",12) D YN S SRAO(10)=SHEMP_""^490"""
^XMB(3.9,148,2,15013,0)="""RTN"",""SROUTC"",8,0)"
^XMB(3.9,148,2,15014,0)=" S NYUK=$P(SRA(208),""^"",5) D YN S SRAO(4)=SHEMP_""^388"",NYUK=$P(SRA(205),""^"",21) D YN S SRAO(11)=SHEMP_""^256"""
^XMB(3.9,148,2,15015,0)="""RTN"",""SROUTC"",9,0)"
^XMB(3.9,148,2,15016,0)=" S NYUK=$P(SRA(205),""^"",26) D YN S SRAO(5)=SHEMP_""^411"",NYUK=$P(SRA(205),""^"",22) D YN S SRAO(12)=SHEMP_""^410"""
^XMB(3.9,148,2,15017,0)="""RTN"",""SROUTC"",10,0)"
^XMB(3.9,148,2,15018,0)=" S NYUK=$P(SRA(208),""^"",6) D YN S SRAO(6)=SHEMP_""^389"",NYUK=$P(SRA(206),""^"",40) D YN S SRAO(13)=SHEMP_""^467"""
^XMB(3.9,148,2,15019,0)="""RTN"",""SROUTC"",11,0)"
^XMB(3.9,148,2,15020,0)=" S NYUK=$P(SRA(205),""^"",13) D YN S SRAO(7)=SHEMP_""^285"",NYUK=$P(SRA(208),""^"") D YN S SRAO(0)=SHEMP_""^384"""
^XMB(3.9,148,2,15021,0)="""RTN"",""SROUTC"",12,0)"
^XMB(3.9,148,2,15022,0)=" ;"
^XMB(3.9,148,2,15023,0)="""RTN"",""SROUTC"",13,0)"
^XMB(3.9,148,2,15024,0)="DISP S SRPAGE=""PAGE: 1"",SRHDR(.5)=""OUTCOMES INFORMATION"" D HDR^SROAUTL"
^XMB(3.9,148,2,15025,0)="""RTN"",""SROUTC"",14,0)"
^XMB(3.9,148,2,15026,0)=" W !,""0. Operative Death: "",?35,$P(SRAO(0),""^"")"
^XMB(3.9,148,2,15027,0)="""RTN"",""SROUTC"",15,0)"
^XMB(3.9,148,2,15028,0)=" W !!,""Perioperative (30 day) Occurrences:"",!,""-----------------------------------"""
^XMB(3.9,148,2,15029,0)="""RTN"",""SROUTC"",16,0)"
^XMB(3.9,148,2,15030,0)=" W !,""1. Perioperative MI: "",?35,$P(SRAO(1),""^""),?40,"" 8. Repeat cardiac surg procedure: "",?76,$P(SRAO(8),""^"")"
^XMB(3.9,148,2,15031,0)="""RTN"",""SROUTC"",17,0)"
^XMB(3.9,148,2,15032,0)=" W !,""2. Endocarditis: "",?35,$P(SRAO(2),""^""),?40,"" 9. Tracheostomy: "",?76,$P(SRAO(9),""^"")"
^XMB(3.9,148,2,15033,0)="""RTN"",""SROUTC"",18,0)"
^XMB(3.9,148,2,15034,0)=" W !,""3. Renal failure require dialysis: "",$P(SRAO(3),""^""),?40,""10. Repeat ventilator w/in 30 days: "",?76,$P(SRAO(10),""^"")"
^XMB(3.9,148,2,15035,0)="""RTN"",""SROUTC"",19,0)"
^XMB(3.9,148,2,15036,0)=" W !,""4. Mediastinitis: "",?35,$P(SRAO(4),""^""),?40,""11. Stroke: "",?76,$P(SRAO(11),""^"")"
^XMB(3.9,148,2,15037,0)="""RTN"",""SROUTC"",20,0)"
^XMB(3.9,148,2,15038,0)=" W !,""5. Cardiac arrest requiring CPR: "",?35,$P(SRAO(5),""^""),?40,""12. Coma >= 24 hr: "",?76,$P(SRAO(12),""^"")"
^XMB(3.9,148,2,15039,0)="""RTN"",""SROUTC"",21,0)"
^XMB(3.9,148,2,15040,0)=" W !,""6. Reoperation for bleeding: "",?35,$P(SRAO(6),""^""),?40,""13. New Mech Circ Support: "",?76,$P(SRAO(13),""^"")"
^XMB(3.9,148,2,15041,0)="""RTN"",""SROUTC"",22,0)"
^XMB(3.9,148,2,15042,0)=" W !,""7. On ventilator >= 48 hr: "",?35,$P(SRAO(7),""^"")"
^XMB(3.9,148,2,15043,0)="""RTN"",""SROUTC"",23,0)"
^XMB(3.9,148,2,15044,0)=" W !! F MOE=1:1:80 W ""-"""
^XMB(3.9,148,2,15045,0)="""RTN"",""SROUTC"",24,0)"
^XMB(3.9,148,2,15046,0)=" Q"
^XMB(3.9,148,2,15047,0)="""RTN"",""SROUTC"",25,0)"
^XMB(3.9,148,2,15048,0)="YN ; store answer"
^XMB(3.9,148,2,15049,0)="""RTN"",""SROUTC"",26,0)"
^XMB(3.9,148,2,15050,0)=" S SHEMP=$S(NYUK=""NS"":""NS"",NYUK=""N"":""NO"",NYUK=""Y"":""YES"",1:"""")"
^XMB(3.9,148,2,15051,0)="""RTN"",""SROUTC"",27,0)"
^XMB(3.9,148,2,15052,0)=" Q"
^XMB(3.9,148,2,15053,0)="""RTN"",""SROUTC"",28,0)"
^XMB(3.9,148,2,15054,0)="UPDT490 ; update field 490"
^XMB(3.9,148,2,15055,0)="""RTN"",""SROUTC"",29,0)"
^XMB(3.9,148,2,15056,0)=" N SRX S SRX=$P($G(^SRF(SRTN,209)),""^"",12) S:SRX="""" SRX=""N"""
^XMB(3.9,148,2,15057,0)="""RTN"",""SROUTC"",30,0)"
^XMB(3.9,148,2,15058,0)=" K DA,DIE,DR S DIE=130,DA=SRTN,DR=""490////""_SRX D ^DIE K DA,DIE,DR"
^XMB(3.9,148,2,15059,0)="""RTN"",""SROUTC"",31,0)"
^XMB(3.9,148,2,15060,0)=" Q"
^XMB(3.9,148,2,15061,0)="""RTN"",""SROUTC"",32,0)"
^XMB(3.9,148,2,15062,0)="UPDATE N SRCMP,SROC,SRI,SRIF,SRQ,SRY D MAP"
^XMB(3.9,148,2,15063,0)="""RTN"",""SROUTC"",33,0)"
^XMB(3.9,148,2,15064,0)=" I EMILY=5!(EMILY=13) D IP Q"
^XMB(3.9,148,2,15065,0)="""RTN"",""SROUTC"",34,0)"
^XMB(3.9,148,2,15066,0)=" S X=$P(^SRO(136.5,SROC,0),""^""),DIC(0)=""L"",DLAYGO=""130.22"",DA(1)=SRTN,DIC=""^SRF(""_SRTN_"",16,"" D FILE^DICN"
^XMB(3.9,148,2,15067,0)="""RTN"",""SROUTC"",35,0)"
^XMB(3.9,148,2,15068,0)=" S $P(^SRF(SRTN,16,+Y,0),""^"",2)=SROC,SRY=+Y"
^XMB(3.9,148,2,15069,0)="""RTN"",""SROUTC"",36,0)"
^XMB(3.9,148,2,15070,0)="EM8 I EMILY=8 K DIR S DIR(0)=""130.22,8"",DIR(""A"")=""Cardiopulmonary Bypass Status"" D ^DIR G:X="""" EM8 D  K DR,DA,DIE"
^XMB(3.9,148,2,15071,0)="""RTN"",""SROUTC"",37,0)"
^XMB(3.9,148,2,15072,0)=" .K DA,DR,DIE,DIR I X[""^""!(X=""@"")!(Y=0) D DEL S DA=SRTN,DIE=130,DR=""391////N"" D ^DIE Q"
^XMB(3.9,148,2,15073,0)="""RTN"",""SROUTC"",38,0)"
^XMB(3.9,148,2,15074,0)=" .S DA=SRY,DR=""8///""_Y,DA(1)=SRTN,DIE=""^SRF(SRTN,16,"" D ^DIE"
^XMB(3.9,148,2,15075,0)="""RTN"",""SROUTC"",39,0)"
^XMB(3.9,148,2,15076,0)=" Q"
^XMB(3.9,148,2,15077,0)="""RTN"",""SROUTC"",40,0)"
^XMB(3.9,148,2,15078,0)="IP K DIR S DIR(""A"")=""Is this an Intraoperative occurrence? "",DIR(""B"")=""YES"",DIR(0)=""YA"" D ^DIR K DIR Q:$D(DTOUT)!$D(DUOUT)"
^XMB(3.9,148,2,15079,0)="""RTN"",""SROUTC"",41,0)"
^XMB(3.9,148,2,15080,0)=" S SRIF=Y"
^XMB(3.9,148,2,15081,0)="""RTN"",""SROUTC"",42,0)"
^XMB(3.9,148,2,15082,0)=" I SRIF=1 S X=$P(^SRO(136.5,SROC,0),""^""),DIC(0)=""L"",DLAYGO=""130.14"",DA(1)=SRTN,DIC=""^SRF(""_SRTN_"",10,"" D FILE^DICN S $P(^SRF(SRTN,10,+Y,0),""^"",2)=SROC Q"
^XMB(3.9,148,2,15083,0)="""RTN"",""SROUTC"",43,0)"
^XMB(3.9,148,2,15084,0)=" ;"
^XMB(3.9,148,2,15085,0)="""RTN"",""SROUTC"",44,0)"
^XMB(3.9,148,2,15086,0)=" I SRIF=0 S X=$P(^SRO(136.5,SROC,0),""^""),DIC(0)=""L"",DLAYGO=""130.22"",DA(1)=SRTN,DIC=""^SRF(""_SRTN_"",16,"" D FILE^DICN S $P(^SRF(SRTN,16,+Y,0),""^"",2)=SROC"
^XMB(3.9,148,2,15087,0)="""RTN"",""SROUTC"",45,0)"
^XMB(3.9,148,2,15088,0)=" Q"
^XMB(3.9,148,2,15089,0)="""RTN"",""SROUTC"",46,0)"
^XMB(3.9,148,2,15090,0)="DEL ; delete existing Post/Intraoperative occurrences."
^XMB(3.9,148,2,15091,0)="""RTN"",""SROUTC"",47,0)"
^XMB(3.9,148,2,15092,0)=" N II,SRII,SROC D MAP"
^XMB(3.9,148,2,15093,0)="""RTN"",""SROUTC"",48,0)"
^XMB(3.9,148,2,15094,0)=" S II=0 F  S II=$O(^SRF(SRTN,16,II)) Q:'II  S SRII=$G(^(II,0)) I $P(SRII,""^"",2)=SROC D  Q"
^XMB(3.9,148,2,15095,0)="""RTN"",""SROUTC"",49,0)"
^XMB(3.9,148,2,15096,0)=" .S DA(1)=SRTN,DA=II,DIK=""^SRF(""_SRTN_"",16,"" D ^DIK I '$O(^SRF(SRTN,16,0)) K ^SRF(SRTN,16,0)"
^XMB(3.9,148,2,15097,0)="""RTN"",""SROUTC"",50,0)"
^XMB(3.9,148,2,15098,0)=" ;"
^XMB(3.9,148,2,15099,0)="""RTN"",""SROUTC"",51,0)"
^XMB(3.9,148,2,15100,0)=" S II=0 F  S II=$O(^SRF(SRTN,10,II)) Q:'II  S SRII=$G(^(II,0)) I $P(SRII,""^"",2)=SROC D  Q"
^XMB(3.9,148,2,15101,0)="""RTN"",""SROUTC"",52,0)"
^XMB(3.9,148,2,15102,0)=" .S DA(1)=SRTN,DA=II,DIK=""^SRF(""_SRTN_"",10,"" D ^DIK I '$O(^SRF(SRTN,10,0)) K ^SRF(SRTN,10,0)"
^XMB(3.9,148,2,15103,0)="""RTN"",""SROUTC"",53,0)"
^XMB(3.9,148,2,15104,0)=" Q"
^XMB(3.9,148,2,15105,0)="""RTN"",""SROUTC"",54,0)"
^XMB(3.9,148,2,15106,0)="MAP S SROC=$S(EMILY=1:17,EMILY=2:23,EMILY=3:9,EMILY=4:25,EMILY=5:16,EMILY=6:26,EMILY=7:6,EMILY=8:27,EMILY=9:33,EMILY=10:37,EMILY=11:12,EMILY=12:13,1:34)"
^XMB(3.9,148,2,15107,0)="""RTN"",""SROUTC"",55,0)"
^XMB(3.9,148,2,15108,0)=" Q"
^XMB(3.9,148,2,15109,0)="""RTN"",""SROXR4"")"
^XMB(3.9,148,2,15110,0)="0^13^B6379114^B6069696"
^XMB(3.9,148,2,15111,0)="""RTN"",""SROXR4"",1,0)"
^XMB(3.9,148,2,15112,0)="SROXR4 ;BIR/MAM - CROSS REFERENCES ;03/15/06"
^XMB(3.9,148,2,15113,0)="""RTN"",""SROXR4"",2,0)"
^XMB(3.9,148,2,15114,0)=" ;;3.0; Surgery ;**62,83,100,153**;24 Jun 93;Build 11"
^XMB(3.9,148,2,15115,0)="""RTN"",""SROXR4"",3,0)"
^XMB(3.9,148,2,15116,0)=" Q"
^XMB(3.9,148,2,15117,0)="""RTN"",""SROXR4"",4,0)"
^XMB(3.9,148,2,15118,0)="PRO ; stuff default prosthesis info"
^XMB(3.9,148,2,15119,0)="""RTN"",""SROXR4"",5,0)"
^XMB(3.9,148,2,15120,0)=" I '$D(SRTN) Q"
^XMB(3.9,148,2,15121,0)="""RTN"",""SROXR4"",6,0)"
^XMB(3.9,148,2,15122,0)=" S ^SRF(SRTN,1,DA,0)=^SRF(SRTN,1,DA,0)_""^""_$P(^SRO(131.9,X,0),""^"",2,99)"
^XMB(3.9,148,2,15123,0)="""RTN"",""SROXR4"",7,0)"
^XMB(3.9,148,2,15124,0)=" I $D(^SRO(131.9,X,1)) S ^SRF(SRTN,1,DA,1)=^(1)"
^XMB(3.9,148,2,15125,0)="""RTN"",""SROXR4"",8,0)"
^XMB(3.9,148,2,15126,0)=" Q"
^XMB(3.9,148,2,15127,0)="""RTN"",""SROXR4"",9,0)"
^XMB(3.9,148,2,15128,0)="CAN ; 'SET' logic of the 'ACAN' x-ref on the 'CANCEL REASON'"
^XMB(3.9,148,2,15129,0)="""RTN"",""SROXR4"",10,0)"
^XMB(3.9,148,2,15130,0)=" ; field in the SURGERY file (130)"
^XMB(3.9,148,2,15131,0)="""RTN"",""SROXR4"",11,0)"
^XMB(3.9,148,2,15132,0)=" S $P(^SRF(DA,30),""^"",2)=$P(^SRO(135,X,0),""^"",3) I $P(^SRO(135,X,0),""^"",3)="""" S $P(^SRF(DA,30),""^"",2)=""Y"""
^XMB(3.9,148,2,15133,0)="""RTN"",""SROXR4"",12,0)"
^XMB(3.9,148,2,15134,0)=" I $P(^SRF(DA,30),""^"",3)="""" S $P(^SRF(DA,30),""^"",3)=DUZ"
^XMB(3.9,148,2,15135,0)="""RTN"",""SROXR4"",13,0)"
^XMB(3.9,148,2,15136,0)=" S SHEMP=$P($G(^SRF(DA,.2)),""^"",10) I SHEMP,$D(^SRF(DA,""RA"")) S ZTDESC=""Clean up Risk Assessment Information, Canceled Case"",ZTRTN=""RISK^SROXR4"",ZTDTH=$H,ZTSAVE(""DA"")="""" D ^%ZTLOAD"
^XMB(3.9,148,2,15137,0)="""RTN"",""SROXR4"",14,0)"
^XMB(3.9,148,2,15138,0)=" Q"
^XMB(3.9,148,2,15139,0)="""RTN"",""SROXR4"",15,0)"
^XMB(3.9,148,2,15140,0)="KCAN ; 'KILL' logic of the 'ACAN' x-ref on the 'CANCEL REASON'"
^XMB(3.9,148,2,15141,0)="""RTN"",""SROXR4"",16,0)"
^XMB(3.9,148,2,15142,0)=" ; field in the SURGERY file (130)"
^XMB(3.9,148,2,15143,0)="""RTN"",""SROXR4"",17,0)"
^XMB(3.9,148,2,15144,0)=" S $P(^SRF(DA,30),""^"",2)="""" I '$P($G(^SRF(DA,30)),""^"") S $P(^SRF(DA,30),""^"",3)="""""
^XMB(3.9,148,2,15145,0)="""RTN"",""SROXR4"",18,0)"
^XMB(3.9,148,2,15146,0)=" Q"
^XMB(3.9,148,2,15147,0)="""RTN"",""SROXR4"",19,0)"
^XMB(3.9,148,2,15148,0)="AS ; 'SET' logic of the 'AS' x-ref on the SCHEDULED START TIME"
^XMB(3.9,148,2,15149,0)="""RTN"",""SROXR4"",20,0)"
^XMB(3.9,148,2,15150,0)=" ; field in the SURGERY file (130)"
^XMB(3.9,148,2,15151,0)="""RTN"",""SROXR4"",21,0)"
^XMB(3.9,148,2,15152,0)=" S OR=$P(^SRF(DA,0),""^"",2) I 'OR Q"
^XMB(3.9,148,2,15153,0)="""RTN"",""SROXR4"",22,0)"
^XMB(3.9,148,2,15154,0)=" S ^SRF(""AS"",OR,X,DA)="""""
^XMB(3.9,148,2,15155,0)="""RTN"",""SROXR4"",23,0)"
^XMB(3.9,148,2,15156,0)=" Q"
^XMB(3.9,148,2,15157,0)="""RTN"",""SROXR4"",24,0)"
^XMB(3.9,148,2,15158,0)="KAS ; 'KILL' logic of the 'AS' x-ref on the SCHEDULED FINISH TIME"
^XMB(3.9,148,2,15159,0)="""RTN"",""SROXR4"",25,0)"
^XMB(3.9,148,2,15160,0)=" ; field in the SURGERY file (130)"
^XMB(3.9,148,2,15161,0)="""RTN"",""SROXR4"",26,0)"
^XMB(3.9,148,2,15162,0)=" S OR=$P(^SRF(DA,0),""^"",2) I 'OR Q"
^XMB(3.9,148,2,15163,0)="""RTN"",""SROXR4"",27,0)"
^XMB(3.9,148,2,15164,0)=" K ^SRF(""AS"",OR,X,DA)"
^XMB(3.9,148,2,15165,0)="""RTN"",""SROXR4"",28,0)"
^XMB(3.9,148,2,15166,0)=" Q"
^XMB(3.9,148,2,15167,0)="""RTN"",""SROXR4"",29,0)"
^XMB(3.9,148,2,15168,0)="SCH ; 'SET' logic of the 'AC' x-ref of the REQUIRED FIELDS FOR SCHEDULING"
^XMB(3.9,148,2,15169,0)="""RTN"",""SROXR4"",30,0)"
^XMB(3.9,148,2,15170,0)=" ; field in the SURGERY SITE PARAMETERS file (133)"
^XMB(3.9,148,2,15171,0)="""RTN"",""SROXR4"",31,0)"
^XMB(3.9,148,2,15172,0)=" S MM=$O(^DD(130,""B"",X,0)),$P(^SRO(133,DA(1),4,DA,0),""^"",2)=MM K MM"
^XMB(3.9,148,2,15173,0)="""RTN"",""SROXR4"",32,0)"
^XMB(3.9,148,2,15174,0)=" Q"
^XMB(3.9,148,2,15175,0)="""RTN"",""SROXR4"",33,0)"
^XMB(3.9,148,2,15176,0)="KSCH ; 'KILL' logic of the 'AC' x-ref of the REQUIRED FIELDS FOR SCHEDULING"
^XMB(3.9,148,2,15177,0)="""RTN"",""SROXR4"",34,0)"
^XMB(3.9,148,2,15178,0)=" ; field in the SURGERY SITE PARAMETERS file (133)"
^XMB(3.9,148,2,15179,0)="""RTN"",""SROXR4"",35,0)"
^XMB(3.9,148,2,15180,0)=" S $P(^SRO(133,DA(1),4,DA,0),""^"",2)="""""
^XMB(3.9,148,2,15181,0)="""RTN"",""SROXR4"",36,0)"
^XMB(3.9,148,2,15182,0)=" Q"
^XMB(3.9,148,2,15183,0)="""RTN"",""SROXR4"",37,0)"
^XMB(3.9,148,2,15184,0)="RISK ; clean up risk data for canceled cases"
^XMB(3.9,148,2,15185,0)="""RTN"",""SROXR4"",38,0)"
^XMB(3.9,148,2,15186,0)=" S DIE=130,DR=""102///@;235///@;284///@;323///@"" D ^DIE K DR,DA S ZTREQ=""@"""
^XMB(3.9,148,2,15187,0)="""RTN"",""SROXR4"",39,0)"
^XMB(3.9,148,2,15188,0)=" Q"
^XMB(3.9,148,2,15189,0)="""RTN"",""SROXR4"",40,0)"
^XMB(3.9,148,2,15190,0)="AQ ; set logic for AQ x-ref"
^XMB(3.9,148,2,15191,0)="""RTN"",""SROXR4"",41,0)"
^XMB(3.9,148,2,15192,0)=" N SRTD,SRLO D AQDT I SRTD'<SRLO S $P(^SRF(DA,.4),""^"",2)=""R"",^SRF(""AQ"",SRTD,DA)="""""
^XMB(3.9,148,2,15193,0)="""RTN"",""SROXR4"",42,0)"
^XMB(3.9,148,2,15194,0)=" Q"
^XMB(3.9,148,2,15195,0)="""RTN"",""SROXR4"",43,0)"
^XMB(3.9,148,2,15196,0)="KAQ ; kill logic for AQ x-ref"
^XMB(3.9,148,2,15197,0)="""RTN"",""SROXR4"",44,0)"
^XMB(3.9,148,2,15198,0)=" N SRTD,SRLO D AQDT S $P(^SRF(DA,.4),""^"",2)="""" K ^SRF(""AQ"",SRTD,DA)"
^XMB(3.9,148,2,15199,0)="""RTN"",""SROXR4"",45,0)"
^XMB(3.9,148,2,15200,0)=" Q"
^XMB(3.9,148,2,15201,0)="""RTN"",""SROXR4"",46,0)"
^XMB(3.9,148,2,15202,0)="AQDT ; get quarterly transmission date"
^XMB(3.9,148,2,15203,0)="""RTN"",""SROXR4"",47,0)"
^XMB(3.9,148,2,15204,0)=" N SRDAY,SRSDATE,SRQTR,SRX,SRYR S SRSDATE=$E($P(^SRF(DA,0),""^"",9),1,7)"
^XMB(3.9,148,2,15205,0)="""RTN"",""SROXR4"",48,0)"
^XMB(3.9,148,2,15206,0)=" S SRYR=$E(SRSDATE,1,3),SRDAY=$E(SRSDATE,4,7),SRQTR=$S(SRDAY<401:2,SRDAY<701:3,SRDAY<1001:4,1:1) I SRQTR=1 S SRYR=SRYR+1"
^XMB(3.9,148,2,15207,0)="""RTN"",""SROXR4"",49,0)"
^XMB(3.9,148,2,15208,0)=" S SRTD=SRYR_$S(SRQTR=1:""0214"",SRQTR=2:""0515"",SRQTR=3:""0814"",1:""1114"")"
^XMB(3.9,148,2,15209,0)="""RTN"",""SROXR4"",50,0)"
^XMB(3.9,148,2,15210,0)=" S SRX=$E(DT,1,3),SRLO=SRX-1_""0214"""
^XMB(3.9,148,2,15211,0)="""RTN"",""SROXR4"",51,0)"
^XMB(3.9,148,2,15212,0)=" Q"
^XMB(3.9,148,2,15213,0)="""RTN"",""SROXR4"",52,0)"
^XMB(3.9,148,2,15214,0)="AQ1 ; set logic for AQ1 x-ref"
^XMB(3.9,148,2,15215,0)="""RTN"",""SROXR4"",53,0)"
^XMB(3.9,148,2,15216,0)=" I X=""R"" N SRTD,SRLO D AQDT I SRTD'<SRLO S ^SRF(""AQ"",SRTD,DA)="""""
^XMB(3.9,148,2,15217,0)="""RTN"",""SROXR4"",54,0)"
^XMB(3.9,148,2,15218,0)=" Q"
^XMB(3.9,148,2,15219,0)="""RTN"",""SROXR4"",55,0)"
^XMB(3.9,148,2,15220,0)="KAQ1 ; kill logic for AQ1 x-ref"
^XMB(3.9,148,2,15221,0)="""RTN"",""SROXR4"",56,0)"
^XMB(3.9,148,2,15222,0)=" N SRTD,SRLO D AQDT K ^SRF(""AQ"",SRTD,DA)"
^XMB(3.9,148,2,15223,0)="""RTN"",""SROXR4"",57,0)"
^XMB(3.9,148,2,15224,0)=" Q"
^XMB(3.9,148,2,15225,0)="""UP"",130,130.0508,-1)"
^XMB(3.9,148,2,15226,0)="130^49"
^XMB(3.9,148,2,15227,0)="""UP"",130,130.0508,0)"
^XMB(3.9,148,2,15228,0)="130.0508"
^XMB(3.9,148,2,15229,0)="""UP"",130,130.22,-1)"
^XMB(3.9,148,2,15230,0)="130^16"
^XMB(3.9,148,2,15231,0)="""UP"",130,130.22,0)"
^XMB(3.9,148,2,15232,0)="130.22"
^XMB(3.9,148,2,15233,0)="""VER"")"
^XMB(3.9,148,2,15234,0)="8.0^22.0"
^XMB(3.9,148,2,15235,0)="""^DD"",130,130,.12,0)"
^XMB(3.9,148,2,15236,0)="HAIR REMOVAL BY^*P200'^VA(200,^.1;2^S DIC(""S"")=""S RESTRICT=""""130,.12"""" D KEY^SROXPR I $D(SROK)"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^XMB(3.9,148,2,15237,0)="""^DD"",130,130,.12,.1)"
^XMB(3.9,148,2,15238,0)="Preop Surgical Site Hair Removal by"
^XMB(3.9,148,2,15239,0)="""^DD"",130,130,.12,3)"
^XMB(3.9,148,2,15240,0)="If the patient had hair removed for the procedure, enter the name of the person responsible for removing the patient's hair. This field may be restricted based on locally defined keys."
^XMB(3.9,148,2,15241,0)="""^DD"",130,130,.12,12)"
^XMB(3.9,148,2,15242,0)="This field may be restricted based on locally defined keys."
^XMB(3.9,148,2,15243,0)="""^DD"",130,130,.12,12.1)"
^XMB(3.9,148,2,15244,0)="S DIC(""S"")=""S RESTRICT=""""130,.12"""" D KEY^SROXPR I $D(SROK)"""
^XMB(3.9,148,2,15245,0)="""^DD"",130,130,.12,21,0)"
^XMB(3.9,148,2,15246,0)="^^2^2^3060328^^"
^XMB(3.9,148,2,15247,0)="""^DD"",130,130,.12,21,1,0)"
^XMB(3.9,148,2,15248,0)="This is the person responsible for removing the patient's hair in "
^XMB(3.9,148,2,15249,0)="""^DD"",130,130,.12,21,2,0)"
^XMB(3.9,148,2,15250,0)="preparation for the operative procedure (if necessary)."
^XMB(3.9,148,2,15251,0)="""^DD"",130,130,.12,""DT"")"
^XMB(3.9,148,2,15252,0)="3060403"
^XMB(3.9,148,2,15253,0)="""^DD"",130,130,1.09,0)"
^XMB(3.9,148,2,15254,0)="WOUND CLASSIFICATION^SX^C:CLEAN;CC:CLEAN/CONTAMINATED;D:CONTAMINATED;I:DIRTY/INFECTED;^1.0;8^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=1.09 D ^SROCON Q"
^XMB(3.9,148,2,15255,0)="""^DD"",130,130,1.09,.1)"
^XMB(3.9,148,2,15256,0)="Wound Classification"
^XMB(3.9,148,2,15257,0)="""^DD"",130,130,1.09,3)"
^XMB(3.9,148,2,15258,0)="Enter the code corresponding to the classification of the wound in relationship to the contamination and increasing risk of infection at the time of completion of the surgical procedure."
^XMB(3.9,148,2,15259,0)="""^DD"",130,130,1.09,21,0)"
^XMB(3.9,148,2,15260,0)="^^105^105^3060421^"
^XMB(3.9,148,2,15261,0)="""^DD"",130,130,1.09,21,1,0)"
^XMB(3.9,148,2,15262,0)="NSQIP Definition (2006):"
^XMB(3.9,148,2,15263,0)="""^DD"",130,130,1.09,21,2,0)"
^XMB(3.9,148,2,15264,0)="Indicate whether the wound has been classified by the primary surgeon "
^XMB(3.9,148,2,15265,0)="""^DD"",130,130,1.09,21,3,0)"
^XMB(3.9,148,2,15266,0)="as:"
^XMB(3.9,148,2,15267,0)="""^DD"",130,130,1.09,21,4,0)"
^XMB(3.9,148,2,15268,0)=" "
^XMB(3.9,148,2,15269,0)="""^DD"",130,130,1.09,21,5,0)"
^XMB(3.9,148,2,15270,0)=">> Class 1 - Clean (C): "
^XMB(3.9,148,2,15271,0)="""^DD"",130,130,1.09,21,6,0)"
^XMB(3.9,148,2,15272,0)="An uninfected operative wound in which no inflammation is encountered"
^XMB(3.9,148,2,15273,0)="""^DD"",130,130,1.09,21,7,0)"
^XMB(3.9,148,2,15274,0)="and the respiratory, alimentary, genital, or uninfected urinary tract "
^XMB(3.9,148,2,15275,0)="""^DD"",130,130,1.09,21,8,0)"
^XMB(3.9,148,2,15276,0)="is not entered. In addition, clean wounds are primarily closed and, if"
^XMB(3.9,148,2,15277,0)="""^DD"",130,130,1.09,21,9,0)"
^XMB(3.9,148,2,15278,0)="necessary, drained with closed drainage. Surgical incisional wounds "
^XMB(3.9,148,2,15279,0)="""^DD"",130,130,1.09,21,10,0)"
^XMB(3.9,148,2,15280,0)="that occur with nonpenetrating (blunt) trauma should be included in"
^XMB(3.9,148,2,15281,0)="""^DD"",130,130,1.09,21,11,0)"
^XMB(3.9,148,2,15282,0)="this category if they meet the criteria."
^XMB(3.9,148,2,15283,0)="""^DD"",130,130,1.09,21,12,0)"
^XMB(3.9,148,2,15284,0)=" "
^XMB(3.9,148,2,15285,0)="""^DD"",130,130,1.09,21,13,0)"
^XMB(3.9,148,2,15286,0)="[No hollow organ (e.g. bladder, stomach, vagina, lung, etc.) is "
^XMB(3.9,148,2,15287,0)="""^DD"",130,130,1.09,21,14,0)"
^XMB(3.9,148,2,15288,0)="entered; no breaks in aseptic technique.]"
^XMB(3.9,148,2,15289,0)="""^DD"",130,130,1.09,21,15,0)"
^XMB(3.9,148,2,15290,0)=" "
^XMB(3.9,148,2,15291,0)="""^DD"",130,130,1.09,21,16,0)"
^XMB(3.9,148,2,15292,0)="Examples:"
^XMB(3.9,148,2,15293,0)="""^DD"",130,130,1.09,21,17,0)"
^XMB(3.9,148,2,15294,0)=" - Exploratory laparotomy "
^XMB(3.9,148,2,15295,0)="""^DD"",130,130,1.09,21,18,0)"
^XMB(3.9,148,2,15296,0)=" - Mastectomy or breast reduction "
^XMB(3.9,148,2,15297,0)="""^DD"",130,130,1.09,21,19,0)"
^XMB(3.9,148,2,15298,0)=" - Neck dissection"
^XMB(3.9,148,2,15299,0)="""^DD"",130,130,1.09,21,20,0)"
^XMB(3.9,148,2,15300,0)=" - Nonpenetrating blunt trauma"
^XMB(3.9,148,2,15301,0)="""^DD"",130,130,1.09,21,21,0)"
^XMB(3.9,148,2,15302,0)=" - Thyroidectomy"
^XMB(3.9,148,2,15303,0)="""^DD"",130,130,1.09,21,22,0)"
^XMB(3.9,148,2,15304,0)=" - Total hip replacement"
^XMB(3.9,148,2,15305,0)="""^DD"",130,130,1.09,21,23,0)"
^XMB(3.9,148,2,15306,0)=" - Vascular operations (e.g. AAA, AV fistula, TEA, aortoiliac bypass)"
^XMB(3.9,148,2,15307,0)="""^DD"",130,130,1.09,21,24,0)"
^XMB(3.9,148,2,15308,0)=" - Hernia repair"
^XMB(3.9,148,2,15309,0)="""^DD"",130,130,1.09,21,25,0)"
^XMB(3.9,148,2,15310,0)=" - CABG, AVR"
^XMB(3.9,148,2,15311,0)="""^DD"",130,130,1.09,21,26,0)"
^XMB(3.9,148,2,15312,0)=" - Craniotomy, majority neurosurgery"
^XMB(3.9,148,2,15313,0)="""^DD"",130,130,1.09,21,27,0)"
^XMB(3.9,148,2,15314,0)=" - Pleura biopsy"
^XMB(3.9,148,2,15315,0)="""^DD"",130,130,1.09,21,28,0)"
^XMB(3.9,148,2,15316,0)=" - Sternotomy"
^XMB(3.9,148,2,15317,0)="""^DD"",130,130,1.09,21,29,0)"
^XMB(3.9,148,2,15318,0)=" - Abdominoplasty, "
^XMB(3.9,148,2,15319,0)="""^DD"",130,130,1.09,21,30,0)"
^XMB(3.9,148,2,15320,0)=" - Bone anchored hearing aids (BAHA)"
^XMB(3.9,148,2,15321,0)="""^DD"",130,130,1.09,21,31,0)"
^XMB(3.9,148,2,15322,0)=" - Penile prosthesis placement"
^XMB(3.9,148,2,15323,0)="""^DD"",130,130,1.09,21,32,0)"
^XMB(3.9,148,2,15324,0)=" - Dupuytren's release, finger"
^XMB(3.9,148,2,15325,0)="""^DD"",130,130,1.09,21,33,0)"
^XMB(3.9,148,2,15326,0)=" - Liposuction"
^XMB(3.9,148,2,15327,0)="""^DD"",130,130,1.09,21,34,0)"
^XMB(3.9,148,2,15328,0)=" - Carpal tunnel release"
^XMB(3.9,148,2,15329,0)="""^DD"",130,130,1.09,21,35,0)"
^XMB(3.9,148,2,15330,0)=" - Hydrocele repair"
^XMB(3.9,148,2,15331,0)="""^DD"",130,130,1.09,21,36,0)"
^XMB(3.9,148,2,15332,0)=" "
^XMB(3.9,148,2,15333,0)="""^DD"",130,130,1.09,21,37,0)"
^XMB(3.9,148,2,15334,0)=">> Class 2 - Clean/Contaminated (CC): "
^XMB(3.9,148,2,15335,0)="""^DD"",130,130,1.09,21,38,0)"
^XMB(3.9,148,2,15336,0)="An operative wound in which the respiratory, alimentary, genital, or"
^XMB(3.9,148,2,15337,0)="""^DD"",130,130,1.09,21,39,0)"
^XMB(3.9,148,2,15338,0)="urinary tracts are entered under controlled conditions and without"
^XMB(3.9,148,2,15339,0)="""^DD"",130,130,1.09,21,40,0)"
^XMB(3.9,148,2,15340,0)="unusual contamination. Specifically, procedures involving the biliary"
^XMB(3.9,148,2,15341,0)="""^DD"",130,130,1.09,21,41,0)"
^XMB(3.9,148,2,15342,0)="tract, appendix, vagina, and oropharynx are included in this category,"
^XMB(3.9,148,2,15343,0)="""^DD"",130,130,1.09,21,42,0)"
^XMB(3.9,148,2,15344,0)="provided no evidence of infection or major break in technique is"
^XMB(3.9,148,2,15345,0)="""^DD"",130,130,1.09,21,43,0)"
^XMB(3.9,148,2,15346,0)="encountered."
^XMB(3.9,148,2,15347,0)="""^DD"",130,130,1.09,21,44,0)"
^XMB(3.9,148,2,15348,0)=" "
^XMB(3.9,148,2,15349,0)="""^DD"",130,130,1.09,21,45,0)"
^XMB(3.9,148,2,15350,0)="[Hollow organ entered but controlled; no inflammation; primary wound "
^XMB(3.9,148,2,15351,0)="""^DD"",130,130,1.09,21,46,0)"
^XMB(3.9,148,2,15352,0)="closure; minor break in aseptic technique; mechanical drain used.]"
^XMB(3.9,148,2,15353,0)="""^DD"",130,130,1.09,21,47,0)"
^XMB(3.9,148,2,15354,0)=" "
^XMB(3.9,148,2,15355,0)="""^DD"",130,130,1.09,21,48,0)"
^XMB(3.9,148,2,15356,0)="Examples:"
^XMB(3.9,148,2,15357,0)="""^DD"",130,130,1.09,21,49,0)"
^XMB(3.9,148,2,15358,0)=" - Bronchoscopy"
^XMB(3.9,148,2,15359,0)="""^DD"",130,130,1.09,21,50,0)"
^XMB(3.9,148,2,15360,0)=" - Routine appendectomy"
^XMB(3.9,148,2,15361,0)="""^DD"",130,130,1.09,21,51,0)"
^XMB(3.9,148,2,15362,0)=" - Cholecystectomy (e.g., any approach)"
^XMB(3.9,148,2,15363,0)="""^DD"",130,130,1.09,21,52,0)"
^XMB(3.9,148,2,15364,0)=" - Laryngectomy"
^XMB(3.9,148,2,15365,0)="""^DD"",130,130,1.09,21,53,0)"
^XMB(3.9,148,2,15366,0)=" - Small bowel resection"
^XMB(3.9,148,2,15367,0)="""^DD"",130,130,1.09,21,54,0)"
^XMB(3.9,148,2,15368,0)=" - Oropharynx entered"
^XMB(3.9,148,2,15369,0)="""^DD"",130,130,1.09,21,55,0)"
^XMB(3.9,148,2,15370,0)=" - GYN procedures"
^XMB(3.9,148,2,15371,0)="""^DD"",130,130,1.09,21,56,0)"
^XMB(3.9,148,2,15372,0)=" - Vagina entered"
^XMB(3.9,148,2,15373,0)="""^DD"",130,130,1.09,21,57,0)"
^XMB(3.9,148,2,15374,0)=" - Whipple pancreaticoduodenectomy"
^XMB(3.9,148,2,15375,0)="""^DD"",130,130,1.09,21,58,0)"
^XMB(3.9,148,2,15376,0)=" - Pulmonary resection"
^XMB(3.9,148,2,15377,0)="""^DD"",130,130,1.09,21,59,0)"
^XMB(3.9,148,2,15378,0)=" - Transurethral resection of prostate"
^XMB(3.9,148,2,15379,0)="""^DD"",130,130,1.09,21,60,0)"
^XMB(3.9,148,2,15380,0)=" - Head & Neck cancer operations (e.g., oropharynx)"
^XMB(3.9,148,2,15381,0)="""^DD"",130,130,1.09,21,61,0)"
^XMB(3.9,148,2,15382,0)=" - Sigmoid colectomy"
^XMB(3.9,148,2,15383,0)="""^DD"",130,130,1.09,21,62,0)"
^XMB(3.9,148,2,15384,0)=" - Minor break in technique"
^XMB(3.9,148,2,15385,0)="""^DD"",130,130,1.09,21,63,0)"
^XMB(3.9,148,2,15386,0)=" - Gastrointestinal or respiratory tract entered without significant"
^XMB(3.9,148,2,15387,0)="""^DD"",130,130,1.09,21,64,0)"
^XMB(3.9,148,2,15388,0)="   spillage"
^XMB(3.9,148,2,15389,0)="""^DD"",130,130,1.09,21,65,0)"
^XMB(3.9,148,2,15390,0)=" - Genitourinary tract entered in absence of infected urine"
^XMB(3.9,148,2,15391,0)="""^DD"",130,130,1.09,21,66,0)"
^XMB(3.9,148,2,15392,0)=" "
^XMB(3.9,148,2,15393,0)="""^DD"",130,130,1.09,21,67,0)"
^XMB(3.9,148,2,15394,0)=">> Class 3 - Contaminated (D): "
^XMB(3.9,148,2,15395,0)="""^DD"",130,130,1.09,21,68,0)"
^XMB(3.9,148,2,15396,0)="Open, fresh, accidental (e.g., traumatic) wounds. In addition, "
^XMB(3.9,148,2,15397,0)="""^DD"",130,130,1.09,21,69,0)"
^XMB(3.9,148,2,15398,0)="procedures that have major breaks in sterile technique (e.g., open "
^XMB(3.9,148,2,15399,0)="""^DD"",130,130,1.09,21,70,0)"
^XMB(3.9,148,2,15400,0)="cardiac massage) or gross spillage from the gastrointestinal tract, and"
^XMB(3.9,148,2,15401,0)="""^DD"",130,130,1.09,21,71,0)"
^XMB(3.9,148,2,15402,0)="incisions in which acute, nonpurulent inflammation is encountered,"
^XMB(3.9,148,2,15403,0)="""^DD"",130,130,1.09,21,72,0)"
^XMB(3.9,148,2,15404,0)="including necrotic tissue without evidence of purulent drainage (e.g."
^XMB(3.9,148,2,15405,0)="""^DD"",130,130,1.09,21,73,0)"
^XMB(3.9,148,2,15406,0)="dry gangrene) are included in this category."
^XMB(3.9,148,2,15407,0)="""^DD"",130,130,1.09,21,74,0)"
^XMB(3.9,148,2,15408,0)=" "
^XMB(3.9,148,2,15409,0)="""^DD"",130,130,1.09,21,75,0)"
^XMB(3.9,148,2,15410,0)="Examples:"
^XMB(3.9,148,2,15411,0)="""^DD"",130,130,1.09,21,76,0)"
^XMB(3.9,148,2,15412,0)=" - Appendectomy for gangrenous appendicitis"
^XMB(3.9,148,2,15413,0)="""^DD"",130,130,1.09,21,77,0)"
^XMB(3.9,148,2,15414,0)=" - Bile spillage during cholecystectomy"
^XMB(3.9,148,2,15415,0)="""^DD"",130,130,1.09,21,78,0)"
^XMB(3.9,148,2,15416,0)=" - Diverticulitis"
^XMB(3.9,148,2,15417,0)="""^DD"",130,130,1.09,21,79,0)"
^XMB(3.9,148,2,15418,0)=" - Laparotomy for penetrating injury with intestinal spillage"
^XMB(3.9,148,2,15419,0)="""^DD"",130,130,1.09,21,80,0)"
^XMB(3.9,148,2,15420,0)=" - Entrance of genitourinary or biliary tracts in presence of infected"
^XMB(3.9,148,2,15421,0)="""^DD"",130,130,1.09,21,81,0)"
^XMB(3.9,148,2,15422,0)="   urine or bile"
^XMB(3.9,148,2,15423,0)="""^DD"",130,130,1.09,21,82,0)"
^XMB(3.9,148,2,15424,0)=" "
^XMB(3.9,148,2,15425,0)="""^DD"",130,130,1.09,21,83,0)"
^XMB(3.9,148,2,15426,0)=">> Class 4 - Dirty/Infected (I): "
^XMB(3.9,148,2,15427,0)="""^DD"",130,130,1.09,21,84,0)"
^XMB(3.9,148,2,15428,0)="Old traumatic wounds that have retained devitalized tissue and those "
^XMB(3.9,148,2,15429,0)="""^DD"",130,130,1.09,21,85,0)"
^XMB(3.9,148,2,15430,0)="that involve existing clinical infection or perforated viscera. This"
^XMB(3.9,148,2,15431,0)="""^DD"",130,130,1.09,21,86,0)"
^XMB(3.9,148,2,15432,0)="definition suggests that the organisms causing postoperative infection"
^XMB(3.9,148,2,15433,0)="""^DD"",130,130,1.09,21,87,0)"
^XMB(3.9,148,2,15434,0)="were present in the operative field before the operation."
^XMB(3.9,148,2,15435,0)="""^DD"",130,130,1.09,21,88,0)"
^XMB(3.9,148,2,15436,0)=" "
^XMB(3.9,148,2,15437,0)="""^DD"",130,130,1.09,21,89,0)"
^XMB(3.9,148,2,15438,0)="[Untreated, uncontrolled spillage from an internal organ; pus in"
^XMB(3.9,148,2,15439,0)="""^DD"",130,130,1.09,21,90,0)"
^XMB(3.9,148,2,15440,0)="operative wound; open suppurative wound; severe inflammation.]"
^XMB(3.9,148,2,15441,0)="""^DD"",130,130,1.09,21,91,0)"
^XMB(3.9,148,2,15442,0)=" "
^XMB(3.9,148,2,15443,0)="""^DD"",130,130,1.09,21,92,0)"
^XMB(3.9,148,2,15444,0)="Examples:"
^XMB(3.9,148,2,15445,0)="""^DD"",130,130,1.09,21,93,0)"
^XMB(3.9,148,2,15446,0)=" - Excision and drainage of abscess "
^XMB(3.9,148,2,15447,0)="""^DD"",130,130,1.09,21,94,0)"
^XMB(3.9,148,2,15448,0)=" - Myringotomy for otitismedia "
^XMB(3.9,148,2,15449,0)="""^DD"",130,130,1.09,21,95,0)"
^XMB(3.9,148,2,15450,0)=" - Perforated bowel "
^XMB(3.9,148,2,15451,0)="""^DD"",130,130,1.09,21,96,0)"
^XMB(3.9,148,2,15452,0)=" - Peritonitis (abdominal exploration for acute bacterial peritonitis)"
^XMB(3.9,148,2,15453,0)="""^DD"",130,130,1.09,21,97,0)"
^XMB(3.9,148,2,15454,0)=" - Acute bacterial inflammation, without pus "
^XMB(3.9,148,2,15455,0)="""^DD"",130,130,1.09,21,98,0)"
^XMB(3.9,148,2,15456,0)=" - Transection of 'clean' tissue for the purpose of surgical access to a"
^XMB(3.9,148,2,15457,0)="""^DD"",130,130,1.09,21,99,0)"
^XMB(3.9,148,2,15458,0)="   collection of pus"
^XMB(3.9,148,2,15459,0)="""^DD"",130,130,1.09,21,100,0)"
^XMB(3.9,148,2,15460,0)=" - Traumatic wound with foreign bodies, fecal contamination, or delayed"
^XMB(3.9,148,2,15461,0)="""^DD"",130,130,1.09,21,101,0)"
^XMB(3.9,148,2,15462,0)="   treatment, or all of these; or from dirty source"
^XMB(3.9,148,2,15463,0)="""^DD"",130,130,1.09,21,102,0)"
^XMB(3.9,148,2,15464,0)=" "
^XMB(3.9,148,2,15465,0)="""^DD"",130,130,1.09,21,103,0)"
^XMB(3.9,148,2,15466,0)="This field should be verified and, if need be, edited postoperatively "
^XMB(3.9,148,2,15467,0)="""^DD"",130,130,1.09,21,104,0)"
^XMB(3.9,148,2,15468,0)="by the nurse reviewer in accordance with the official operating room "
^XMB(3.9,148,2,15469,0)="""^DD"",130,130,1.09,21,105,0)"
^XMB(3.9,148,2,15470,0)="log."
^XMB(3.9,148,2,15471,0)="""^DD"",130,130,1.09,""DT"")"
^XMB(3.9,148,2,15472,0)="3060421"
^XMB(3.9,148,2,15473,0)="""^DD"",130,130,102,0)"
^XMB(3.9,148,2,15474,0)="REASON FOR NO ASSESSMENT^*S^0:NON-SURGEON CASE;1:ANESTHESIA TYPE;2:EXCEEDS MAX ASSMNTS;3:EXCEEDS MAX TURPS;4:STUDY CRITERIA;5:PREVIOUS CASE;6:SCNR ON A/L;7:PRIOR INDEX PROC;8:CONCURRENT CASE;9:EXCEEDS MAX HERNIAS;^RA;7^Q"
^XMB(3.9,148,2,15475,0)="""^DD"",130,130,102,.1)"
^XMB(3.9,148,2,15476,0)="Reason for not Creating an Assessment"
^XMB(3.9,148,2,15477,0)="""^DD"",130,130,102,3)"
^XMB(3.9,148,2,15478,0)="Enter the reason why no assessment was done on this surgical case."
^XMB(3.9,148,2,15479,0)="""^DD"",130,130,102,12)"
^XMB(3.9,148,2,15480,0)="Screen prevents selection of pre-Phase III items."
^XMB(3.9,148,2,15481,0)="""^DD"",130,130,102,12.1)"
^XMB(3.9,148,2,15482,0)="S DIC(""S"")=""I """"57""""'[Y"""
^XMB(3.9,148,2,15483,0)="""^DD"",130,130,102,21,0)"
^XMB(3.9,148,2,15484,0)="^.001^14^14^3060126^^"
^XMB(3.9,148,2,15485,0)="""^DD"",130,130,102,21,1,0)"
^XMB(3.9,148,2,15486,0)="This is the reason why no assessment was entered for this particular"
^XMB(3.9,148,2,15487,0)="""^DD"",130,130,102,21,2,0)"
^XMB(3.9,148,2,15488,0)="surgical case. It should be entered if any major procedure was excluded"
^XMB(3.9,148,2,15489,0)="""^DD"",130,130,102,21,3,0)"
^XMB(3.9,148,2,15490,0)="from the risk assessment module."
^XMB(3.9,148,2,15491,0)="""^DD"",130,130,102,21,4,0)"
^XMB(3.9,148,2,15492,0)=" "
^XMB(3.9,148,2,15493,0)="""^DD"",130,130,102,21,5,0)"
^XMB(3.9,148,2,15494,0)=" 0 - Non-surgeon performed the procedure"
^XMB(3.9,148,2,15495,0)="""^DD"",130,130,102,21,6,0)"
^XMB(3.9,148,2,15496,0)=" 1 - Patient did NOT receive general, spinal, or epidural anesthesia"
^XMB(3.9,148,2,15497,0)="""^DD"",130,130,102,21,7,0)"
^XMB(3.9,148,2,15498,0)=" 2 - Number of surgical cases entered into the Surgical Risk Study "
^XMB(3.9,148,2,15499,0)="""^DD"",130,130,102,21,8,0)"
^XMB(3.9,148,2,15500,0)="     exceeded 36 over an 8 day time frame"
^XMB(3.9,148,2,15501,0)="""^DD"",130,130,102,21,9,0)"
^XMB(3.9,148,2,15502,0)=" 3 - Number of TURPs or TURBTs exceeded 5 cases over an 8 day time"
^XMB(3.9,148,2,15503,0)="""^DD"",130,130,102,21,10,0)"
^XMB(3.9,148,2,15504,0)="     frame"
^XMB(3.9,148,2,15505,0)="""^DD"",130,130,102,21,11,0)"
^XMB(3.9,148,2,15506,0)=" 4 - Study exclusion criteria prohibits patient entry"
^XMB(3.9,148,2,15507,0)="""^DD"",130,130,102,21,12,0)"
^XMB(3.9,148,2,15508,0)=" 6 - Surgical Clinical Nurse Reviewer was on Annual Leave"
^XMB(3.9,148,2,15509,0)="""^DD"",130,130,102,21,13,0)"
^XMB(3.9,148,2,15510,0)=" 8 - Case was a concurrent case, secondary to an assessed primary case"
^XMB(3.9,148,2,15511,0)="""^DD"",130,130,102,21,14,0)"
^XMB(3.9,148,2,15512,0)=" 9 - Number of hernias exceeded 5 cases over an 8 day time frame"
^XMB(3.9,148,2,15513,0)="""^DD"",130,130,102,""DT"")"
^XMB(3.9,148,2,15514,0)="3060126"
^XMB(3.9,148,2,15515,0)="""^DD"",130,130,202,0)"
^XMB(3.9,148,2,15516,0)="CURRENT SMOKER^S^Y:YES;N:NO;^200;3^Q"
^XMB(3.9,148,2,15517,0)="""^DD"",130,130,202,.1)"
^XMB(3.9,148,2,15518,0)="Current Smoker"
^XMB(3.9,148,2,15519,0)="""^DD"",130,130,202,3)"
^XMB(3.9,148,2,15520,0)="Enter the code (YES or NO) describing the patient's status as a smoker prior to surgery."
^XMB(3.9,148,2,15521,0)="""^DD"",130,130,202,21,0)"
^XMB(3.9,148,2,15522,0)="^^4^4^3060328^"
^XMB(3.9,148,2,15523,0)="""^DD"",130,130,202,21,1,0)"
^XMB(3.9,148,2,15524,0)="NSQIP Definition (2006):"
^XMB(3.9,148,2,15525,0)="""^DD"",130,130,202,21,2,0)"
^XMB(3.9,148,2,15526,0)="If the patient has smoked cigarettes in the year prior to admission for"
^XMB(3.9,148,2,15527,0)="""^DD"",130,130,202,21,3,0)"
^XMB(3.9,148,2,15528,0)="surgery enter YES. Do not include patients who smoke cigars or pipes or"
^XMB(3.9,148,2,15529,0)="""^DD"",130,130,202,21,4,0)"
^XMB(3.9,148,2,15530,0)="use chewing tobacco."
^XMB(3.9,148,2,15531,0)="""^DD"",130,130,202,""DT"")"
^XMB(3.9,148,2,15532,0)="3060328"
^XMB(3.9,148,2,15533,0)="""^DD"",130,130,211,0)"
^XMB(3.9,148,2,15534,0)="CURRENTLY ON DIALYSIS^S^Y:YES;N:NO;NS:NO STUDY;^200;39^Q"
^XMB(3.9,148,2,15535,0)="""^DD"",130,130,211,.1)"
^XMB(3.9,148,2,15536,0)="Currently Requiring or On Dialysis (Y/N)"
^XMB(3.9,148,2,15537,0)="""^DD"",130,130,211,3)"
^XMB(3.9,148,2,15538,0)="Enter YES if the patient is currently on dialysis."
^XMB(3.9,148,2,15539,0)="""^DD"",130,130,211,21,0)"
^XMB(3.9,148,2,15540,0)="^^4^4^3060117^"
^XMB(3.9,148,2,15541,0)="""^DD"",130,130,211,21,1,0)"
^XMB(3.9,148,2,15542,0)="NSQIP Definition (2006):"
^XMB(3.9,148,2,15543,0)="""^DD"",130,130,211,21,2,0)"
^XMB(3.9,148,2,15544,0)="Acute or chronic renal failure requiring periodic peritoneal dialysis, "
^XMB(3.9,148,2,15545,0)="""^DD"",130,130,211,21,3,0)"
^XMB(3.9,148,2,15546,0)="hemodialysis, hemofiltration, hemodiafiltration, or ultrafiltration "
^XMB(3.9,148,2,15547,0)="""^DD"",130,130,211,21,4,0)"
^XMB(3.9,148,2,15548,0)="within 2 weeks prior to surgery."
^XMB(3.9,148,2,15549,0)="""^DD"",130,130,211,""DT"")"
^XMB(3.9,148,2,15550,0)="3060117"
^XMB(3.9,148,2,15551,0)="""^DD"",130,130,216,0)"
^XMB(3.9,148,2,15552,0)="BLEEDING DISORDERS^S^Y:YES;N:NO;NS:NO STUDY;^200;49^Q"
^XMB(3.9,148,2,15553,0)="""^DD"",130,130,216,.1)"
^XMB(3.9,148,2,15554,0)="History of Bleeding Disorders (Y/N)"
^XMB(3.9,148,2,15555,0)="""^DD"",130,130,216,3)"
^XMB(3.9,148,2,15556,0)="Enter YES if the patient has a history of a bleeding disorder."
^XMB(3.9,148,2,15557,0)="""^DD"",130,130,216,21,0)"
^XMB(3.9,148,2,15558,0)="^^27^27^3060509^"
^XMB(3.9,148,2,15559,0)="""^DD"",130,130,216,21,1,0)"
^XMB(3.9,148,2,15560,0)="NSQIP Definition (2006):"
^XMB(3.9,148,2,15561,0)="""^DD"",130,130,216,21,2,0)"
^XMB(3.9,148,2,15562,0)="Any condition that places the patient at risk for excessive bleeding "
^XMB(3.9,148,2,15563,0)="""^DD"",130,130,216,21,3,0)"
^XMB(3.9,148,2,15564,0)="requiring hospitalization due to a deficiency of blood clotting "
^XMB(3.9,148,2,15565,0)="""^DD"",130,130,216,21,4,0)"
^XMB(3.9,148,2,15566,0)="elements (e.g., vitamin K deficiency, hemophilias, von Willebrands,"
^XMB(3.9,148,2,15567,0)="""^DD"",130,130,216,21,5,0)"
^XMB(3.9,148,2,15568,0)="thrombocytopenia, chronic anticoagulation therapy that has not been "
^XMB(3.9,148,2,15569,0)="""^DD"",130,130,216,21,6,0)"
^XMB(3.9,148,2,15570,0)="discontinued). Do not include the patient on chronic aspirin therapy."
^XMB(3.9,148,2,15571,0)="""^DD"",130,130,216,21,7,0)"
^XMB(3.9,148,2,15572,0)=" "
^XMB(3.9,148,2,15573,0)="""^DD"",130,130,216,21,8,0)"
^XMB(3.9,148,2,15574,0)="The time frame is 'up to and including' the day/hour written. If not "
^XMB(3.9,148,2,15575,0)="""^DD"",130,130,216,21,9,0)"
^XMB(3.9,148,2,15576,0)="documented, then assume it was not discontinued and answer 'yes' for "
^XMB(3.9,148,2,15577,0)="""^DD"",130,130,216,21,10,0)"
^XMB(3.9,148,2,15578,0)="bleeding disorder."
^XMB(3.9,148,2,15579,0)="""^DD"",130,130,216,21,11,0)"
^XMB(3.9,148,2,15580,0)=" "
^XMB(3.9,148,2,15581,0)="""^DD"",130,130,216,21,12,0)"
^XMB(3.9,148,2,15582,0)="Following is a list of medications that impact the patient's risk for "
^XMB(3.9,148,2,15583,0)="""^DD"",130,130,216,21,13,0)"
^XMB(3.9,148,2,15584,0)="bleeding.  Please utilize the associated time frames for discontinuation"
^XMB(3.9,148,2,15585,0)="""^DD"",130,130,216,21,14,0)"
^XMB(3.9,148,2,15586,0)="of medication to determine your answer to this variable."
^XMB(3.9,148,2,15587,0)="""^DD"",130,130,216,21,15,0)"
^XMB(3.9,148,2,15588,0)=" "
^XMB(3.9,148,2,15589,0)="""^DD"",130,130,216,21,16,0)"
^XMB(3.9,148,2,15590,0)="      Medication           Time Frame"
^XMB(3.9,148,2,15591,0)="""^DD"",130,130,216,21,17,0)"
^XMB(3.9,148,2,15592,0)="      ----------           ----------"
^XMB(3.9,148,2,15593,0)="""^DD"",130,130,216,21,18,0)"
^XMB(3.9,148,2,15594,0)=" Coumadin (Warfarin)         4 days"
^XMB(3.9,148,2,15595,0)="""^DD"",130,130,216,21,19,0)"
^XMB(3.9,148,2,15596,0)=" Heparin (IV only)           4 hours"
^XMB(3.9,148,2,15597,0)="""^DD"",130,130,216,21,20,0)"
^XMB(3.9,148,2,15598,0)=" Plavix (Clopidogrel)        7 days"
^XMB(3.9,148,2,15599,0)="""^DD"",130,130,216,21,21,0)"
^XMB(3.9,148,2,15600,0)=" Lovenox (Enoxaparin)       12 hours"
^XMB(3.9,148,2,15601,0)="""^DD"",130,130,216,21,22,0)"
^XMB(3.9,148,2,15602,0)=" Reopro (Abciximab)          9 days"
^XMB(3.9,148,2,15603,0)="""^DD"",130,130,216,21,23,0)"
^XMB(3.9,148,2,15604,0)=" Integrilin (Eptifibatide)   2 days"
^XMB(3.9,148,2,15605,0)="""^DD"",130,130,216,21,24,0)"
^XMB(3.9,148,2,15606,0)=" Agrylin (Anagrelide)        3 days"
^XMB(3.9,148,2,15607,0)="""^DD"",130,130,216,21,25,0)"
^XMB(3.9,148,2,15608,0)=" Fragmin (Dalteparin)       24 hours"
^XMB(3.9,148,2,15609,0)="""^DD"",130,130,216,21,26,0)"
^XMB(3.9,148,2,15610,0)=" Aggrastat (Tirofiban)       4 hours"
^XMB(3.9,148,2,15611,0)="""^DD"",130,130,216,21,27,0)"
^XMB(3.9,148,2,15612,0)=" Ticlopidine HCl (Ticlid)   10 days"
^XMB(3.9,148,2,15613,0)="""^DD"",130,130,216,""DT"")"
^XMB(3.9,148,2,15614,0)="3040317"
^XMB(3.9,148,2,15615,0)="""^DD"",130,130,218.1,0)"
^XMB(3.9,148,2,15616,0)="PREOPERATIVE SEPSIS^*S^Y:YES;N:NONE;1:SIRS;2:SEPSIS;3:SEPTIC SHOCK;NS:NO STUDY;^206;8^Q"
^XMB(3.9,148,2,15617,0)="""^DD"",130,130,218.1,.1)"
^XMB(3.9,148,2,15618,0)="Preoperative Sepsis in the 48 Hours Prior to Surgery"
^XMB(3.9,148,2,15619,0)="""^DD"",130,130,218.1,3)"
^XMB(3.9,148,2,15620,0)="Enter the patient's septic status in the 48 hours prior to surgery."
^XMB(3.9,148,2,15621,0)="""^DD"",130,130,218.1,12)"
^XMB(3.9,148,2,15622,0)="Screen prevents selection of retired codes."
^XMB(3.9,148,2,15623,0)="""^DD"",130,130,218.1,12.1)"
^XMB(3.9,148,2,15624,0)="S DIC(""S"")=""I Y'=""""Y"""""""
^XMB(3.9,148,2,15625,0)="""^DD"",130,130,218.1,21,0)"
^XMB(3.9,148,2,15626,0)="^^35^35^3060717^"
^XMB(3.9,148,2,15627,0)="""^DD"",130,130,218.1,21,1,0)"
^XMB(3.9,148,2,15628,0)="NSQIP Definition (2006):"
^XMB(3.9,148,2,15629,0)="""^DD"",130,130,218.1,21,2,0)"
^XMB(3.9,148,2,15630,0)="Sepsis is a vast clinical entity that takes a variety of forms. The "
^XMB(3.9,148,2,15631,0)="""^DD"",130,130,218.1,21,3,0)"
^XMB(3.9,148,2,15632,0)="spectrum of disorders spans from relatively mild physiologic "
^XMB(3.9,148,2,15633,0)="""^DD"",130,130,218.1,21,4,0)"
^XMB(3.9,148,2,15634,0)="abnormalities to septic shock. Please report the most significant level"
^XMB(3.9,148,2,15635,0)="""^DD"",130,130,218.1,21,5,0)"
^XMB(3.9,148,2,15636,0)="using the criteria below:"
^XMB(3.9,148,2,15637,0)="""^DD"",130,130,218.1,21,6,0)"
^XMB(3.9,148,2,15638,0)=" "
^XMB(3.9,148,2,15639,0)="""^DD"",130,130,218.1,21,7,0)"
^XMB(3.9,148,2,15640,0)="1. SIRS (Systemic Inflammatory Response Syndrome): SIRS is a widespread "
^XMB(3.9,148,2,15641,0)="""^DD"",130,130,218.1,21,8,0)"
^XMB(3.9,148,2,15642,0)="   inflammatory response to a variety of severe clinical insults. This "
^XMB(3.9,148,2,15643,0)="""^DD"",130,130,218.1,21,9,0)"
^XMB(3.9,148,2,15644,0)="   syndrome is clinically recognized by the presence of two or more of "
^XMB(3.9,148,2,15645,0)="""^DD"",130,130,218.1,21,10,0)"
^XMB(3.9,148,2,15646,0)="   the following:"
^XMB(3.9,148,2,15647,0)="""^DD"",130,130,218.1,21,11,0)"
^XMB(3.9,148,2,15648,0)=" "
^XMB(3.9,148,2,15649,0)="""^DD"",130,130,218.1,21,12,0)"
^XMB(3.9,148,2,15650,0)="      - Temp >38 degrees C or <36 degrees C"
^XMB(3.9,148,2,15651,0)="""^DD"",130,130,218.1,21,13,0)"
^XMB(3.9,148,2,15652,0)="      - HR >90 bpm"
^XMB(3.9,148,2,15653,0)="""^DD"",130,130,218.1,21,14,0)"
^XMB(3.9,148,2,15654,0)="      - RR >20 breaths/min or PaCO2 <32 mmHg(<4.3 kPa)"
^XMB(3.9,148,2,15655,0)="""^DD"",130,130,218.1,21,15,0)"
^XMB(3.9,148,2,15656,0)="      - WBC >12,000 cell/mm3, <4000 cells/mm3, or >10% immature (band) "
^XMB(3.9,148,2,15657,0)="""^DD"",130,130,218.1,21,16,0)"
^XMB(3.9,148,2,15658,0)="        forms"
^XMB(3.9,148,2,15659,0)="""^DD"",130,130,218.1,21,17,0)"
^XMB(3.9,148,2,15660,0)="      - Anion gap acidosis (this is defined by [sodium + potassium] - "
^XMB(3.9,148,2,15661,0)="""^DD"",130,130,218.1,21,18,0)"
^XMB(3.9,148,2,15662,0)="        [chloride + CO2]. If this number is greater than 12, then an "
^XMB(3.9,148,2,15663,0)="""^DD"",130,130,218.1,21,19,0)"
^XMB(3.9,148,2,15664,0)="        anion gap acidosis is present."
^XMB(3.9,148,2,15665,0)="""^DD"",130,130,218.1,21,20,0)"
^XMB(3.9,148,2,15666,0)=" "
^XMB(3.9,148,2,15667,0)="""^DD"",130,130,218.1,21,21,0)"
^XMB(3.9,148,2,15668,0)="2. Sepsis: Sepsis is the systemic response to infection. Report this "
^XMB(3.9,148,2,15669,0)="""^DD"",130,130,218.1,21,22,0)"
^XMB(3.9,148,2,15670,0)="   variable if the patient has clinical signs and symptoms of SIRS "
^XMB(3.9,148,2,15671,0)="""^DD"",130,130,218.1,21,23,0)"
^XMB(3.9,148,2,15672,0)="   listed above and one of the following:"
^XMB(3.9,148,2,15673,0)="""^DD"",130,130,218.1,21,24,0)"
^XMB(3.9,148,2,15674,0)="      - positive blood culture"
^XMB(3.9,148,2,15675,0)="""^DD"",130,130,218.1,21,25,0)"
^XMB(3.9,148,2,15676,0)="      - clinical documentation of purulence or positive culture from "
^XMB(3.9,148,2,15677,0)="""^DD"",130,130,218.1,21,26,0)"
^XMB(3.9,148,2,15678,0)="        any site thought to be causative"
^XMB(3.9,148,2,15679,0)="""^DD"",130,130,218.1,21,27,0)"
^XMB(3.9,148,2,15680,0)=" "
^XMB(3.9,148,2,15681,0)="""^DD"",130,130,218.1,21,28,0)"
^XMB(3.9,148,2,15682,0)="3. Severe Sepsis/Septic Shock: Sepsis is considered severe when it is"
^XMB(3.9,148,2,15683,0)="""^DD"",130,130,218.1,21,29,0)"
^XMB(3.9,148,2,15684,0)="   associated with organ and/or circulatory dysfunction. Report this "
^XMB(3.9,148,2,15685,0)="""^DD"",130,130,218.1,21,30,0)"
^XMB(3.9,148,2,15686,0)="   variable if the patient has the clinical signs and symptoms of SIRS "
^XMB(3.9,148,2,15687,0)="""^DD"",130,130,218.1,21,31,0)"
^XMB(3.9,148,2,15688,0)="   or sepsis AND documented organ and/or circulatory dysfunction."
^XMB(3.9,148,2,15689,0)="""^DD"",130,130,218.1,21,32,0)"
^XMB(3.9,148,2,15690,0)="   Examples of organ dysfunction include: oliguria, acute alteration in"
^XMB(3.9,148,2,15691,0)="""^DD"",130,130,218.1,21,33,0)"
^XMB(3.9,148,2,15692,0)="   mental status, acute respiratory distress. Examples of circulatory"
^XMB(3.9,148,2,15693,0)="""^DD"",130,130,218.1,21,34,0)"
^XMB(3.9,148,2,15694,0)="   dysfunction include: hypotension, requirement of inotropic or"
^XMB(3.9,148,2,15695,0)="""^DD"",130,130,218.1,21,35,0)"
^XMB(3.9,148,2,15696,0)="   vasopressor agents.  "
^XMB(3.9,148,2,15697,0)="""^DD"",130,130,218.1,""DT"")"
^XMB(3.9,148,2,15698,0)="3040323"
^XMB(3.9,148,2,15699,0)="""^DD"",130,130,220,0)"
^XMB(3.9,148,2,15700,0)="PREVIOUS PCI^S^Y:YES;N:NO;NS:NO STUDY;^200;32^Q"
^XMB(3.9,148,2,15701,0)="""^DD"",130,130,220,.1)"
^XMB(3.9,148,2,15702,0)="Previous PCI (Y/N)"
^XMB(3.9,148,2,15703,0)="""^DD"",130,130,220,3)"
^XMB(3.9,148,2,15704,0)="Enter 'Y' if this patient has undergone a percutaneous coronary intervention (PCI)."
^XMB(3.9,148,2,15705,0)="""^DD"",130,130,220,21,0)"
^XMB(3.9,148,2,15706,0)="^.001^5^5^3060411^^"
^XMB(3.9,148,2,15707,0)="""^DD"",130,130,220,21,1,0)"
^XMB(3.9,148,2,15708,0)="NSQIP Definition (2006):"
^XMB(3.9,148,2,15709,0)="""^DD"",130,130,220,21,2,0)"
^XMB(3.9,148,2,15710,0)="The patient has undergone a percutaneous coronary intervention (PCI) "
^XMB(3.9,148,2,15711,0)="""^DD"",130,130,220,21,3,0)"
^XMB(3.9,148,2,15712,0)="at any time or a PCI was attempted at any time. This includes either"
^XMB(3.9,148,2,15713,0)="""^DD"",130,130,220,21,4,0)"
^XMB(3.9,148,2,15714,0)="balloon dilatation or stent placement. This does not include "
^XMB(3.9,148,2,15715,0)="""^DD"",130,130,220,21,5,0)"
^XMB(3.9,148,2,15716,0)="valvuloplasty procedures. "
^XMB(3.9,148,2,15717,0)="""^DD"",130,130,220,""DT"")"
^XMB(3.9,148,2,15718,0)="3060117"
^XMB(3.9,148,2,15719,0)="""^DD"",130,130,250,0)"
^XMB(3.9,148,2,15720,0)="SYSTEMIC SEPSIS^S^Y:YES;N:NO;NS:NO STUDY;^205;35^Q"
^XMB(3.9,148,2,15721,0)="""^DD"",130,130,250,.1)"
^XMB(3.9,148,2,15722,0)="Systemic Sepsis"
^XMB(3.9,148,2,15723,0)="""^DD"",130,130,250,3)"
^XMB(3.9,148,2,15724,0)="Enter YES if the patient has been diagnosed as having postoperative systemic sepsis."
^XMB(3.9,148,2,15725,0)="""^DD"",130,130,250,21,0)"
^XMB(3.9,148,2,15726,0)="^^62^62^3060717^"
^XMB(3.9,148,2,15727,0)="""^DD"",130,130,250,21,1,0)"
^XMB(3.9,148,2,15728,0)="NSQIP Definition (2006):"
^XMB(3.9,148,2,15729,0)="""^DD"",130,130,250,21,2,0)"
^XMB(3.9,148,2,15730,0)="Sepsis is a vast clinical entity that takes a variety of forms. The "
^XMB(3.9,148,2,15731,0)="""^DD"",130,130,250,21,3,0)"
^XMB(3.9,148,2,15732,0)="spectrum of disorders spans from relatively mild physiologic "
^XMB(3.9,148,2,15733,0)="""^DD"",130,130,250,21,4,0)"
^XMB(3.9,148,2,15734,0)="abnormalities to septic shock. Please report the most significant level"
^XMB(3.9,148,2,15735,0)="""^DD"",130,130,250,21,5,0)"
^XMB(3.9,148,2,15736,0)="using the criteria below:"
^XMB(3.9,148,2,15737,0)="""^DD"",130,130,250,21,6,0)"
^XMB(3.9,148,2,15738,0)=" "
^XMB(3.9,148,2,15739,0)="""^DD"",130,130,250,21,7,0)"
^XMB(3.9,148,2,15740,0)="1. Sepsis: Sepsis is the systemic response to infection. Report this "
^XMB(3.9,148,2,15741,0)="""^DD"",130,130,250,21,8,0)"
^XMB(3.9,148,2,15742,0)="variable if the patient has clinical signs and symptoms of SIRS. SIRS "
^XMB(3.9,148,2,15743,0)="""^DD"",130,130,250,21,9,0)"
^XMB(3.9,148,2,15744,0)="is a widespread inflammatory response to a variety of severe clinical"
^XMB(3.9,148,2,15745,0)="""^DD"",130,130,250,21,10,0)"
^XMB(3.9,148,2,15746,0)="insults. This syndrome is clinically recognized by the presence of two "
^XMB(3.9,148,2,15747,0)="""^DD"",130,130,250,21,11,0)"
^XMB(3.9,148,2,15748,0)="or more of the following:"
^XMB(3.9,148,2,15749,0)="""^DD"",130,130,250,21,12,0)"
^XMB(3.9,148,2,15750,0)="   - Temp >38 degrees C or <36 degrees C"
^XMB(3.9,148,2,15751,0)="""^DD"",130,130,250,21,13,0)"
^XMB(3.9,148,2,15752,0)="   - HR >90 bpm"
^XMB(3.9,148,2,15753,0)="""^DD"",130,130,250,21,14,0)"
^XMB(3.9,148,2,15754,0)="   - RR >20 breaths/min or PaCO2 <32 mmHg(<4.3 kPa)"
^XMB(3.9,148,2,15755,0)="""^DD"",130,130,250,21,15,0)"
^XMB(3.9,148,2,15756,0)="   - WBC >12,000 cell/mm3, <4000 cells/mm3, or >10% immature (band) "
^XMB(3.9,148,2,15757,0)="""^DD"",130,130,250,21,16,0)"
^XMB(3.9,148,2,15758,0)="     forms"
^XMB(3.9,148,2,15759,0)="""^DD"",130,130,250,21,17,0)"
^XMB(3.9,148,2,15760,0)="   - Anion gap acidosis (this is defined by [sodium + potassium] -"
^XMB(3.9,148,2,15761,0)="""^DD"",130,130,250,21,18,0)"
^XMB(3.9,148,2,15762,0)="     [chloride + CO2]. If this number is greater than 12, then an anion"
^XMB(3.9,148,2,15763,0)="""^DD"",130,130,250,21,19,0)"
^XMB(3.9,148,2,15764,0)="     gap acidosis is present."
^XMB(3.9,148,2,15765,0)="""^DD"",130,130,250,21,20,0)"
^XMB(3.9,148,2,15766,0)=" "
^XMB(3.9,148,2,15767,0)="""^DD"",130,130,250,21,21,0)"
^XMB(3.9,148,2,15768,0)=" and one of the following:"
^XMB(3.9,148,2,15769,0)="""^DD"",130,130,250,21,22,0)"
^XMB(3.9,148,2,15770,0)="   - positive blood culture"
^XMB(3.9,148,2,15771,0)="""^DD"",130,130,250,21,23,0)"
^XMB(3.9,148,2,15772,0)="   - clinical documentation of purulence at any site thought to be "
^XMB(3.9,148,2,15773,0)="""^DD"",130,130,250,21,24,0)"
^XMB(3.9,148,2,15774,0)="     causative"
^XMB(3.9,148,2,15775,0)="""^DD"",130,130,250,21,25,0)"
^XMB(3.9,148,2,15776,0)=" "
^XMB(3.9,148,2,15777,0)="""^DD"",130,130,250,21,26,0)"
^XMB(3.9,148,2,15778,0)="2. Severe Sepsis/Septic Shock: Sepsis is considered severe when it is "
^XMB(3.9,148,2,15779,0)="""^DD"",130,130,250,21,27,0)"
^XMB(3.9,148,2,15780,0)="associated with organ and/or circulatory dysfunction. Report this "
^XMB(3.9,148,2,15781,0)="""^DD"",130,130,250,21,28,0)"
^XMB(3.9,148,2,15782,0)="variable if the patient has the clinical signs and symptoms of SIRS or "
^XMB(3.9,148,2,15783,0)="""^DD"",130,130,250,21,29,0)"
^XMB(3.9,148,2,15784,0)="sepsis AND documented organ and/or circulatory dysfunction. Examples of"
^XMB(3.9,148,2,15785,0)="""^DD"",130,130,250,21,30,0)"
^XMB(3.9,148,2,15786,0)="organ dysfunction include: oliguria, acute alteration in mental status,"
^XMB(3.9,148,2,15787,0)="""^DD"",130,130,250,21,31,0)"
^XMB(3.9,148,2,15788,0)="acute respiratory distress. Examples of circulatory dysfunction "
^XMB(3.9,148,2,15789,0)="""^DD"",130,130,250,21,32,0)"
^XMB(3.9,148,2,15790,0)="include: hypotension, requirement of inotropic or vasopressor agents."
^XMB(3.9,148,2,15791,0)="""^DD"",130,130,250,21,33,0)"
^XMB(3.9,148,2,15792,0)=" "
^XMB(3.9,148,2,15793,0)="""^DD"",130,130,250,21,34,0)"
^XMB(3.9,148,2,15794,0)="* For the patient that had sepsis preoperatively, worsening of any of "
^XMB(3.9,148,2,15795,0)="""^DD"",130,130,250,21,35,0)"
^XMB(3.9,148,2,15796,0)="the above signs postoperatively would be reported as a postoperative "
^XMB(3.9,148,2,15797,0)="""^DD"",130,130,250,21,36,0)"
^XMB(3.9,148,2,15798,0)="sepsis."
^XMB(3.9,148,2,15799,0)="""^DD"",130,130,250,21,37,0)"
^XMB(3.9,148,2,15800,0)=" "
^XMB(3.9,148,2,15801,0)="""^DD"",130,130,250,21,38,0)"
^XMB(3.9,148,2,15802,0)="Examples:"
^XMB(3.9,148,2,15803,0)="""^DD"",130,130,250,21,39,0)"
^XMB(3.9,148,2,15804,0)=" "
^XMB(3.9,148,2,15805,0)="""^DD"",130,130,250,21,40,0)"
^XMB(3.9,148,2,15806,0)="A patient comes into the emergency room with signs of sepsis - WBC 31, "
^XMB(3.9,148,2,15807,0)="""^DD"",130,130,250,21,41,0)"
^XMB(3.9,148,2,15808,0)="Temperature 104. CT shows an abdominal abscess. He is given antibiotics"
^XMB(3.9,148,2,15809,0)="""^DD"",130,130,250,21,42,0)"
^XMB(3.9,148,2,15810,0)="and is then taken emergently to the OR to drain the abscess. He "
^XMB(3.9,148,2,15811,0)="""^DD"",130,130,250,21,43,0)"
^XMB(3.9,148,2,15812,0)="receives antibiotics intraoperatively. Postoperatively his WBC and"
^XMB(3.9,148,2,15813,0)="""^DD"",130,130,250,21,44,0)"
^XMB(3.9,148,2,15814,0)="Temperature are trending down."
^XMB(3.9,148,2,15815,0)="""^DD"",130,130,250,21,45,0)"
^XMB(3.9,148,2,15816,0)="  POD#1 WBC 24, Temp 102 "
^XMB(3.9,148,2,15817,0)="""^DD"",130,130,250,21,46,0)"
^XMB(3.9,148,2,15818,0)="  POD#2 WBC 14, Temp 100 "
^XMB(3.9,148,2,15819,0)="""^DD"",130,130,250,21,47,0)"
^XMB(3.9,148,2,15820,0)="  POD#3 WBC 10, Temp 99 "
^XMB(3.9,148,2,15821,0)="""^DD"",130,130,250,21,48,0)"
^XMB(3.9,148,2,15822,0)="This patient does not have postoperative sepsis as his WBC and "
^XMB(3.9,148,2,15823,0)="""^DD"",130,130,250,21,49,0)"
^XMB(3.9,148,2,15824,0)="Temperature are improving each postoperative day. "
^XMB(3.9,148,2,15825,0)="""^DD"",130,130,250,21,50,0)"
^XMB(3.9,148,2,15826,0)=" "
^XMB(3.9,148,2,15827,0)="""^DD"",130,130,250,21,51,0)"
^XMB(3.9,148,2,15828,0)="Patient comes into the ER with s/s of sepsis - WBC 31, Temp 104. CT "
^XMB(3.9,148,2,15829,0)="""^DD"",130,130,250,21,52,0)"
^XMB(3.9,148,2,15830,0)="shows an abdominal abscess. He is given antibiotics and is taken "
^XMB(3.9,148,2,15831,0)="""^DD"",130,130,250,21,53,0)"
^XMB(3.9,148,2,15832,0)="emergently to the OR to drain the abscess. He receives antibiotics "
^XMB(3.9,148,2,15833,0)="""^DD"",130,130,250,21,54,0)"
^XMB(3.9,148,2,15834,0)="intraoperatively. Postoperatively his WBC and Temp are as follows:  "
^XMB(3.9,148,2,15835,0)="""^DD"",130,130,250,21,55,0)"
^XMB(3.9,148,2,15836,0)="  POD#1 WBC 28, Temp 103"
^XMB(3.9,148,2,15837,0)="""^DD"",130,130,250,21,56,0)"
^XMB(3.9,148,2,15838,0)="  POD#2 WBC 24, Temp 102.6 "
^XMB(3.9,148,2,15839,0)="""^DD"",130,130,250,21,57,0)"
^XMB(3.9,148,2,15840,0)="  POD#3 WBC 22, Temp 102 "
^XMB(3.9,148,2,15841,0)="""^DD"",130,130,250,21,58,0)"
^XMB(3.9,148,2,15842,0)="  POD#4 WBC 21, Temp 101.6"
^XMB(3.9,148,2,15843,0)="""^DD"",130,130,250,21,59,0)"
^XMB(3.9,148,2,15844,0)="  POD#5 WBC 30, Temp 104  "
^XMB(3.9,148,2,15845,0)="""^DD"",130,130,250,21,60,0)"
^XMB(3.9,148,2,15846,0)="This patient does have postoperative sepsis because on postoperative "
^XMB(3.9,148,2,15847,0)="""^DD"",130,130,250,21,61,0)"
^XMB(3.9,148,2,15848,0)="day #5, his WBC and Temperature increase. The patient is having"
^XMB(3.9,148,2,15849,0)="""^DD"",130,130,250,21,62,0)"
^XMB(3.9,148,2,15850,0)="worsening of the defined signs of sepsis."
^XMB(3.9,148,2,15851,0)="""^DD"",130,130,250,""DT"")"
^XMB(3.9,148,2,15852,0)="3040316"
^XMB(3.9,148,2,15853,0)="""^DD"",130,130,254,0)"
^XMB(3.9,148,2,15854,0)="ACUTE RENAL FAILURE^*S^Y:YES;N:NO;NS:NO STUDY;^205;17^Q"
^XMB(3.9,148,2,15855,0)="""^DD"",130,130,254,.1)"
^XMB(3.9,148,2,15856,0)="Acute Renal Failure Requiring Dialysis (Y/N)"
^XMB(3.9,148,2,15857,0)="""^DD"",130,130,254,3)"
^XMB(3.9,148,2,15858,0)="Enter YES if the patient has renal failure requiring the initiation of dialysis postoperatively."
^XMB(3.9,148,2,15859,0)="""^DD"",130,130,254,12)"
^XMB(3.9,148,2,15860,0)="Screen prevents selection of retired code."
^XMB(3.9,148,2,15861,0)="""^DD"",130,130,254,12.1)"
^XMB(3.9,148,2,15862,0)="S DIC(""S"")=""I Y'=""""NS"""""""
^XMB(3.9,148,2,15863,0)="""^DD"",130,130,254,21,0)"
^XMB(3.9,148,2,15864,0)="^^17^17^3060314^"
^XMB(3.9,148,2,15865,0)="""^DD"",130,130,254,21,1,0)"
^XMB(3.9,148,2,15866,0)="NSQIP Definition (2006):"
^XMB(3.9,148,2,15867,0)="""^DD"",130,130,254,21,2,0)"
^XMB(3.9,148,2,15868,0)="In a patient who did not require dialysis preoperatively, worsening of"
^XMB(3.9,148,2,15869,0)="""^DD"",130,130,254,21,3,0)"
^XMB(3.9,148,2,15870,0)="renal dysfunction (increase in serum creatinine to >2.0 and two times"
^XMB(3.9,148,2,15871,0)="""^DD"",130,130,254,21,4,0)"
^XMB(3.9,148,2,15872,0)="most recent preoperative creatinine level) and postoperatively "
^XMB(3.9,148,2,15873,0)="""^DD"",130,130,254,21,5,0)"
^XMB(3.9,148,2,15874,0)="requiring hemodialysis, peritoneal dialysis, hemofiltration,"
^XMB(3.9,148,2,15875,0)="""^DD"",130,130,254,21,6,0)"
^XMB(3.9,148,2,15876,0)="hemodiafiltration or ultrafiltration."
^XMB(3.9,148,2,15877,0)="""^DD"",130,130,254,21,7,0)"
^XMB(3.9,148,2,15878,0)=" "
^XMB(3.9,148,2,15879,0)="""^DD"",130,130,254,21,8,0)"
^XMB(3.9,148,2,15880,0)="TIP: If the patient refuses dialysis the answer is YES to this "
^XMB(3.9,148,2,15881,0)="""^DD"",130,130,254,21,9,0)"
^XMB(3.9,148,2,15882,0)="variable, because he/she did require dialysis."
^XMB(3.9,148,2,15883,0)="""^DD"",130,130,254,21,10,0)"
^XMB(3.9,148,2,15884,0)=" "
^XMB(3.9,148,2,15885,0)="""^DD"",130,130,254,21,11,0)"
^XMB(3.9,148,2,15886,0)="CICSP Definition (2004):"
^XMB(3.9,148,2,15887,0)="""^DD"",130,130,254,21,12,0)"
^XMB(3.9,148,2,15888,0)="Indicate if the patient developed new renal failure requiring dialysis"
^XMB(3.9,148,2,15889,0)="""^DD"",130,130,254,21,13,0)"
^XMB(3.9,148,2,15890,0)="or experienced an exacerbation of preoperative renal failure requiring"
^XMB(3.9,148,2,15891,0)="""^DD"",130,130,254,21,14,0)"
^XMB(3.9,148,2,15892,0)="initiation of dialysis (not on dialysis preoperatively) within 30 days"
^XMB(3.9,148,2,15893,0)="""^DD"",130,130,254,21,15,0)"
^XMB(3.9,148,2,15894,0)="postoperatively. (Dialysis includes continuous venous to venous "
^XMB(3.9,148,2,15895,0)="""^DD"",130,130,254,21,16,0)"
^XMB(3.9,148,2,15896,0)="hemodialysis [CVVHD], continuous venous to arterial hemodialysis "
^XMB(3.9,148,2,15897,0)="""^DD"",130,130,254,21,17,0)"
^XMB(3.9,148,2,15898,0)="[CVAHD], and peritoneal. It does not include ultrafiltration.)"
^XMB(3.9,148,2,15899,0)="""^DD"",130,130,254,""DT"")"
^XMB(3.9,148,2,15900,0)="3040721"
^XMB(3.9,148,2,15901,0)="""^DD"",130,130,266,0)"
^XMB(3.9,148,2,15902,0)="PREVIOUS CARDIAC SURGERY^S^Y:YES;N:NO;NS:NO STUDY;^200;33^Q"
^XMB(3.9,148,2,15903,0)="""^DD"",130,130,266,.1)"
^XMB(3.9,148,2,15904,0)="Previous Cardiac Surgery (Y/N)"
^XMB(3.9,148,2,15905,0)="""^DD"",130,130,266,3)"
^XMB(3.9,148,2,15906,0)="Enter 'YES' if this patient has had a previous cardiac surgery."
^XMB(3.9,148,2,15907,0)="""^DD"",130,130,266,21,0)"
^XMB(3.9,148,2,15908,0)="^^8^8^3060117^"
^XMB(3.9,148,2,15909,0)="""^DD"",130,130,266,21,1,0)"
^XMB(3.9,148,2,15910,0)="NSQIP Definition (2006):"
^XMB(3.9,148,2,15911,0)="""^DD"",130,130,266,21,2,0)"
^XMB(3.9,148,2,15912,0)="Any major cardiac surgical procedure (performed either as an 'off-pump'"
^XMB(3.9,148,2,15913,0)="""^DD"",130,130,266,21,3,0)"
^XMB(3.9,148,2,15914,0)="repair or utilizing cardiopulmonary bypass). This includes coronary"
^XMB(3.9,148,2,15915,0)="""^DD"",130,130,266,21,4,0)"
^XMB(3.9,148,2,15916,0)="artery bypass graft surgery, valve replacement or repair, repair of"
^XMB(3.9,148,2,15917,0)="""^DD"",130,130,266,21,5,0)"
^XMB(3.9,148,2,15918,0)="atrial or ventricular septal defects, great thoracic vessel repair,"
^XMB(3.9,148,2,15919,0)="""^DD"",130,130,266,21,6,0)"
^XMB(3.9,148,2,15920,0)="cardiac transplant, left ventricular aneurysmectomy, insertion of left"
^XMB(3.9,148,2,15921,0)="""^DD"",130,130,266,21,7,0)"
^XMB(3.9,148,2,15922,0)="ventricular assist devices, etc. Do not include pacemaker insertions or"
^XMB(3.9,148,2,15923,0)="""^DD"",130,130,266,21,8,0)"
^XMB(3.9,148,2,15924,0)="automatic implantable cardioverter-defibrillator (AICD) insertions."
^XMB(3.9,148,2,15925,0)="""^DD"",130,130,266,""DT"")"
^XMB(3.9,148,2,15926,0)="3040826"
^XMB(3.9,148,2,15927,0)="""^DD"",130,130,269,0)"
^XMB(3.9,148,2,15928,0)="PREGNANCY^S^NO:NOT PREGNANT;P1:1ST TRIMESTER;P2:2ND TRIMESTER;P3:3RD TRIMESTER;PU:UNKNOWN TIME FRAME;NA:NOT APPLICABLE;U:UNKNOWN;^200.1;3^Q"
^XMB(3.9,148,2,15929,0)="""^DD"",130,130,269,.1)"
^XMB(3.9,148,2,15930,0)="Pregnancy Status"
^XMB(3.9,148,2,15931,0)="""^DD"",130,130,269,3)"
^XMB(3.9,148,2,15932,0)="Enter the preoperative pregnancy status of this patient."
^XMB(3.9,148,2,15933,0)="""^DD"",130,130,269,21,0)"
^XMB(3.9,148,2,15934,0)="^.001^32^32^3060208^^^^"
^XMB(3.9,148,2,15935,0)="""^DD"",130,130,269,21,1,0)"
^XMB(3.9,148,2,15936,0)="NSQIP Definition (2006):"
^XMB(3.9,148,2,15937,0)="""^DD"",130,130,269,21,2,0)"
^XMB(3.9,148,2,15938,0)="Pregnancy is the process by which a woman carries a developing fetus in "
^XMB(3.9,148,2,15939,0)="""^DD"",130,130,269,21,3,0)"
^XMB(3.9,148,2,15940,0)="her uterus, beginning at conception and ending in birth, miscarriage, "
^XMB(3.9,148,2,15941,0)="""^DD"",130,130,269,21,4,0)"
^XMB(3.9,148,2,15942,0)="or abortion. Pregnancy is determined by one of the following:"
^XMB(3.9,148,2,15943,0)="""^DD"",130,130,269,21,5,0)"
^XMB(3.9,148,2,15944,0)="   - Administration of a blood or urine pregnancy test with a positive"
^XMB(3.9,148,2,15945,0)="""^DD"",130,130,269,21,6,0)"
^XMB(3.9,148,2,15946,0)="     result"
^XMB(3.9,148,2,15947,0)="""^DD"",130,130,269,21,7,0)"
^XMB(3.9,148,2,15948,0)="   - Visualization of the fetus by ultrasound"
^XMB(3.9,148,2,15949,0)="""^DD"",130,130,269,21,8,0)"
^XMB(3.9,148,2,15950,0)="   - Indication of fetal heart rate by ultrasound or fetal heart "
^XMB(3.9,148,2,15951,0)="""^DD"",130,130,269,21,9,0)"
^XMB(3.9,148,2,15952,0)="     monitoring"
^XMB(3.9,148,2,15953,0)="""^DD"",130,130,269,21,10,0)"
^XMB(3.9,148,2,15954,0)="Pregnancy takes approximately 40 weeks between the time of the last "
^XMB(3.9,148,2,15955,0)="""^DD"",130,130,269,21,11,0)"
^XMB(3.9,148,2,15956,0)="menstrual cycle and delivery. It is divided into three trimesters of "
^XMB(3.9,148,2,15957,0)="""^DD"",130,130,269,21,12,0)"
^XMB(3.9,148,2,15958,0)="three months duration each."
^XMB(3.9,148,2,15959,0)="""^DD"",130,130,269,21,13,0)"
^XMB(3.9,148,2,15960,0)=" "
^XMB(3.9,148,2,15961,0)="""^DD"",130,130,269,21,14,0)"
^XMB(3.9,148,2,15962,0)="Please select the most appropriate response from the following "
^XMB(3.9,148,2,15963,0)="""^DD"",130,130,269,21,15,0)"
^XMB(3.9,148,2,15964,0)="categories."
^XMB(3.9,148,2,15965,0)="""^DD"",130,130,269,21,16,0)"
^XMB(3.9,148,2,15966,0)=" o Not Pregnant: Within the last two weeks prior to surgery, as defined"
^XMB(3.9,148,2,15967,0)="""^DD"",130,130,269,21,17,0)"
^XMB(3.9,148,2,15968,0)="          by one of the following:"
^XMB(3.9,148,2,15969,0)="""^DD"",130,130,269,21,18,0)"
^XMB(3.9,148,2,15970,0)="           - Negative Urine or Blood Pregnancy Test"
^XMB(3.9,148,2,15971,0)="""^DD"",130,130,269,21,19,0)"
^XMB(3.9,148,2,15972,0)="           - Medical or Surgical Abortion"
^XMB(3.9,148,2,15973,0)="""^DD"",130,130,269,21,20,0)"
^XMB(3.9,148,2,15974,0)="           - Prior Hysterectomy"
^XMB(3.9,148,2,15975,0)="""^DD"",130,130,269,21,21,0)"
^XMB(3.9,148,2,15976,0)="           - Patient reports no sexual activity since last menstrual"
^XMB(3.9,148,2,15977,0)="""^DD"",130,130,269,21,22,0)"
^XMB(3.9,148,2,15978,0)="             period"
^XMB(3.9,148,2,15979,0)="""^DD"",130,130,269,21,23,0)"
^XMB(3.9,148,2,15980,0)=" o Pregnant - 1st trimester: Patient is pregnant and embryonic/fetal "
^XMB(3.9,148,2,15981,0)="""^DD"",130,130,269,21,24,0)"
^XMB(3.9,148,2,15982,0)="          development is between 0 and 13 weeks"
^XMB(3.9,148,2,15983,0)="""^DD"",130,130,269,21,25,0)"
^XMB(3.9,148,2,15984,0)=" o Pregnant - 2nd trimester: Patient is pregnant and fetal development"
^XMB(3.9,148,2,15985,0)="""^DD"",130,130,269,21,26,0)"
^XMB(3.9,148,2,15986,0)="          is between 14 and 26 weeks"
^XMB(3.9,148,2,15987,0)="""^DD"",130,130,269,21,27,0)"
^XMB(3.9,148,2,15988,0)=" o Pregnant - 3rd trimester: Patient is pregnant and fetal development"
^XMB(3.9,148,2,15989,0)="""^DD"",130,130,269,21,28,0)"
^XMB(3.9,148,2,15990,0)="          is between 27 weeks and birth."
^XMB(3.9,148,2,15991,0)="""^DD"",130,130,269,21,29,0)"
^XMB(3.9,148,2,15992,0)=" o Pregnant but unknown time frame: Patient is pregnant but time frame"
^XMB(3.9,148,2,15993,0)="""^DD"",130,130,269,21,30,0)"
^XMB(3.9,148,2,15994,0)="          is unknown or unavailable"
^XMB(3.9,148,2,15995,0)="""^DD"",130,130,269,21,31,0)"
^XMB(3.9,148,2,15996,0)=" o Not applicable: Applies to the male population"
^XMB(3.9,148,2,15997,0)="""^DD"",130,130,269,21,32,0)"
^XMB(3.9,148,2,15998,0)=" o Unknown: Does not meet any of the above criteria"
^XMB(3.9,148,2,15999,0)="""^DD"",130,130,269,""DT"")"
^XMB(3.9,148,2,16000,0)="3060117"
^XMB(3.9,148,2,16001,0)="""^DD"",130,130,285,0)"
^XMB(3.9,148,2,16002,0)="ON VENTILATOR >48 HOURS^*S^Y:YES;N:NO;NS:NO STUDY;^205;13^Q"
^XMB(3.9,148,2,16003,0)="""^DD"",130,130,285,.1)"
^XMB(3.9,148,2,16004,0)="On Ventilator > or = 48 Hours (Y/N)"
^XMB(3.9,148,2,16005,0)="""^DD"",130,130,285,3)"
^XMB(3.9,148,2,16006,0)="Enter YES if the total duration of ventilator-assisted respiration during the postoperative hospitalization was > or = 48 hours."
^XMB(3.9,148,2,16007,0)="""^DD"",130,130,285,12)"
^XMB(3.9,148,2,16008,0)="Screen prevents selection of retired code."
^XMB(3.9,148,2,16009,0)="""^DD"",130,130,285,12.1)"
^XMB(3.9,148,2,16010,0)="S DIC(""S"")=""I Y'=""""NS"""""""
^XMB(3.9,148,2,16011,0)="""^DD"",130,130,285,21,0)"
^XMB(3.9,148,2,16012,0)="^^11^11^3060118^"
^XMB(3.9,148,2,16013,0)="""^DD"",130,130,285,21,1,0)"
^XMB(3.9,148,2,16014,0)="NSQIP Definition (2004):"
^XMB(3.9,148,2,16015,0)="""^DD"",130,130,285,21,2,0)"
^XMB(3.9,148,2,16016,0)="Total duration of ventilator-assisted respirations during postoperative"
^XMB(3.9,148,2,16017,0)="""^DD"",130,130,285,21,3,0)"
^XMB(3.9,148,2,16018,0)="hospitalization was >48 hours. This can occur at any time during the"
^XMB(3.9,148,2,16019,0)="""^DD"",130,130,285,21,4,0)"
^XMB(3.9,148,2,16020,0)="30-day period postoperatively. This time assessment is CUMULATIVE, not"
^XMB(3.9,148,2,16021,0)="""^DD"",130,130,285,21,5,0)"
^XMB(3.9,148,2,16022,0)="necessarily consecutive. Ventilator-assisted respirations can be via"
^XMB(3.9,148,2,16023,0)="""^DD"",130,130,285,21,6,0)"
^XMB(3.9,148,2,16024,0)="endotracheal tube, nasotracheal tube, or tracheostomy tube."
^XMB(3.9,148,2,16025,0)="""^DD"",130,130,285,21,7,0)"
^XMB(3.9,148,2,16026,0)=" "
^XMB(3.9,148,2,16027,0)="""^DD"",130,130,285,21,8,0)"
^XMB(3.9,148,2,16028,0)="CICSP Definition (2006):"
^XMB(3.9,148,2,16029,0)="""^DD"",130,130,285,21,9,0)"
^XMB(3.9,148,2,16030,0)="Indicate if the total duration of ventilator-assisted respiration "
^XMB(3.9,148,2,16031,0)="""^DD"",130,130,285,21,10,0)"
^XMB(3.9,148,2,16032,0)="during postoperative hospitalization within 30 days was greater than "
^XMB(3.9,148,2,16033,0)="""^DD"",130,130,285,21,11,0)"
^XMB(3.9,148,2,16034,0)="or equal to 48 hours."
^XMB(3.9,148,2,16035,0)="""^DD"",130,130,285,""DT"")"
^XMB(3.9,148,2,16036,0)="3060118"
^XMB(3.9,148,2,16037,0)="""^DD"",130,130,352,0)"
^XMB(3.9,148,2,16038,0)="NUM OF PRIOR HEART SURGERIES^*S^Y:YES;0:NONE;1:1;2:2;3:3;>:>3;^206;15^Q"
^XMB(3.9,148,2,16039,0)="""^DD"",130,130,352,.1)"
^XMB(3.9,148,2,16040,0)="Number of Prior Heart Surgeries"
^XMB(3.9,148,2,16041,0)="""^DD"",130,130,352,3)"
^XMB(3.9,148,2,16042,0)="Enter number of prior heart surgeries during a separate preceding hospitalization."
^XMB(3.9,148,2,16043,0)="""^DD"",130,130,352,12)"
^XMB(3.9,148,2,16044,0)="Screen prevents selection of Y code"
^XMB(3.9,148,2,16045,0)="""^DD"",130,130,352,12.1)"
^XMB(3.9,148,2,16046,0)="S DIC(""S"")=""I """"Y""""'[Y"""
^XMB(3.9,148,2,16047,0)="""^DD"",130,130,352,21,0)"
^XMB(3.9,148,2,16048,0)="^^10^10^3060301^"
^XMB(3.9,148,2,16049,0)="""^DD"",130,130,352,21,1,0)"
^XMB(3.9,148,2,16050,0)="CICSP Definition (2006):"
^XMB(3.9,148,2,16051,0)="""^DD"",130,130,352,21,2,0)"
^XMB(3.9,148,2,16052,0)="Indicate the number of previous heart surgeries the patient has had "
^XMB(3.9,148,2,16053,0)="""^DD"",130,130,352,21,3,0)"
^XMB(3.9,148,2,16054,0)="upon current admission, by referencing the patient history. The prior"
^XMB(3.9,148,2,16055,0)="""^DD"",130,130,352,21,4,0)"
^XMB(3.9,148,2,16056,0)="heart surgery/ies would have occurred during a separate hospitalization"
^XMB(3.9,148,2,16057,0)="""^DD"",130,130,352,21,5,0)"
^XMB(3.9,148,2,16058,0)="(more than 30 days prior to current surgery).  Both on and off-pump"
^XMB(3.9,148,2,16059,0)="""^DD"",130,130,352,21,6,0)"
^XMB(3.9,148,2,16060,0)="cardiac surgical procedures should be considered.  Count all surgical"
^XMB(3.9,148,2,16061,0)="""^DD"",130,130,352,21,7,0)"
^XMB(3.9,148,2,16062,0)="procedures performed during separate hospital admissions (not the"
^XMB(3.9,148,2,16063,0)="""^DD"",130,130,352,21,8,0)"
^XMB(3.9,148,2,16064,0)="number of grafts, and not additional procedures performed during the "
^XMB(3.9,148,2,16065,0)="""^DD"",130,130,352,21,9,0)"
^XMB(3.9,148,2,16066,0)="same admission due to a postoperative occurrence).  Indicate the one"
^XMB(3.9,148,2,16067,0)="""^DD"",130,130,352,21,10,0)"
^XMB(3.9,148,2,16068,0)="appropriate response: 0, 1, 2, 3, >3."
^XMB(3.9,148,2,16069,0)="""^DD"",130,130,352,""DT"")"
^XMB(3.9,148,2,16070,0)="3040311"
^XMB(3.9,148,2,16071,0)="""^DD"",130,130,364,0)"
^XMB(3.9,148,2,16072,0)="ESTIMATE OF MORTALITY^NJ2,0X^^206;31^S NYUK=X K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X S:NYUK=""NS""!(NYUK=""ns"") X=""NS"" K NYUK"
^XMB(3.9,148,2,16073,0)="""^DD"",130,130,364,.1)"
^XMB(3.9,148,2,16074,0)="Physician's Preoperative Estimate of Operative Mortality"
^XMB(3.9,148,2,16075,0)="""^DD"",130,130,364,1,0)"
^XMB(3.9,148,2,16076,0)="^.1"
^XMB(3.9,148,2,16077,0)="""^DD"",130,130,364,1,1,0)"
^XMB(3.9,148,2,16078,0)="130^AE^MUMPS"
^XMB(3.9,148,2,16079,0)="""^DD"",130,130,364,1,1,1)"
^XMB(3.9,148,2,16080,0)="D NOW^SROACOP Q"
^XMB(3.9,148,2,16081,0)="""^DD"",130,130,364,1,1,2)"
^XMB(3.9,148,2,16082,0)="D KNOW^SROACOP Q"
^XMB(3.9,148,2,16083,0)="""^DD"",130,130,364,1,1,""%D"",0)"
^XMB(3.9,148,2,16084,0)="^^3^3^2950131^"
^XMB(3.9,148,2,16085,0)="""^DD"",130,130,364,1,1,""%D"",1,0)"
^XMB(3.9,148,2,16086,0)="This cross reference updates the Date/Time of Estimate of Operative"
^XMB(3.9,148,2,16087,0)="""^DD"",130,130,364,1,1,""%D"",2,0)"
^XMB(3.9,148,2,16088,0)="Mortality field (364.1) when the Physician's Preoperative Estimate of"
^XMB(3.9,148,2,16089,0)="""^DD"",130,130,364,1,1,""%D"",3,0)"
^XMB(3.9,148,2,16090,0)="Operative Mortality field (364) is edited."
^XMB(3.9,148,2,16091,0)="""^DD"",130,130,364,1,1,""DT"")"
^XMB(3.9,148,2,16092,0)="2950131"
^XMB(3.9,148,2,16093,0)="""^DD"",130,130,364,3)"
^XMB(3.9,148,2,16094,0)="Enter the physician's preoperative estimate of operative mortality."
^XMB(3.9,148,2,16095,0)="""^DD"",130,130,364,21,0)"
^XMB(3.9,148,2,16096,0)="^^6^6^3060302^"
^XMB(3.9,148,2,16097,0)="""^DD"",130,130,364,21,1,0)"
^XMB(3.9,148,2,16098,0)="CICSP Definition (2006):"
^XMB(3.9,148,2,16099,0)="""^DD"",130,130,364,21,2,0)"
^XMB(3.9,148,2,16100,0)="This is the physician's (cardiologist or cardiac surgeon) subjective"
^XMB(3.9,148,2,16101,0)="""^DD"",130,130,364,21,3,0)"
^XMB(3.9,148,2,16102,0)="estimate of operative mortality based on the assessment of the total"
^XMB(3.9,148,2,16103,0)="""^DD"",130,130,364,21,4,0)"
^XMB(3.9,148,2,16104,0)="clinical picture. (To avoid bias introduced by knowledge of outcome,"
^XMB(3.9,148,2,16105,0)="""^DD"",130,130,364,21,5,0)"
^XMB(3.9,148,2,16106,0)="this must be completed preoperatively.  Do not calculate from the"
^XMB(3.9,148,2,16107,0)="""^DD"",130,130,364,21,6,0)"
^XMB(3.9,148,2,16108,0)="computer program provided to you.)"
^XMB(3.9,148,2,16109,0)="""^DD"",130,130,364,""DT"")"
^XMB(3.9,148,2,16110,0)="3060302"
^XMB(3.9,148,2,16111,0)="""^DD"",130,130,364.1,0)"
^XMB(3.9,148,2,16112,0)="ESTIMATE OF MORTALITY, DATE^DX^^206;32^S %DT=""ETXRP"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,148,2,16113,0)="""^DD"",130,130,364.1,.1)"
^XMB(3.9,148,2,16114,0)="Date/Time of Estimate of Operative Mortality"
^XMB(3.9,148,2,16115,0)="""^DD"",130,130,364.1,3)"
^XMB(3.9,148,2,16116,0)="Enter the date and time that the estimate of operative mortality was documented."
^XMB(3.9,148,2,16117,0)="""^DD"",130,130,364.1,21,0)"
^XMB(3.9,148,2,16118,0)="^^2^2^2950208^"
^XMB(3.9,148,2,16119,0)="""^DD"",130,130,364.1,21,1,0)"
^XMB(3.9,148,2,16120,0)="This is the date and time that the estimate of mortality information was"
^XMB(3.9,148,2,16121,0)="""^DD"",130,130,364.1,21,2,0)"
^XMB(3.9,148,2,16122,0)="collected."
^XMB(3.9,148,2,16123,0)="""^DD"",130,130,364.1,""DT"")"
^XMB(3.9,148,2,16124,0)="3060314"
^XMB(3.9,148,2,16125,0)="""^DD"",130,130,370,0)"
^XMB(3.9,148,2,16126,0)="VALVE REPAIR^*S^Y:YES;1:AORTIC;2:MITRAL;3:TRICUSPID;4:OTHER/COMBINATION;5:NONE;^207;6^Q"
^XMB(3.9,148,2,16127,0)="""^DD"",130,130,370,.1)"
^XMB(3.9,148,2,16128,0)="Valve Repair"
^XMB(3.9,148,2,16129,0)="""^DD"",130,130,370,3)"
^XMB(3.9,148,2,16130,0)="Indicate whether/where patient had a reparative procedure to a native valve."
^XMB(3.9,148,2,16131,0)="""^DD"",130,130,370,12)"
^XMB(3.9,148,2,16132,0)="Screen prevents selection of Y entries."
^XMB(3.9,148,2,16133,0)="""^DD"",130,130,370,12.1)"
^XMB(3.9,148,2,16134,0)="S DIC(""S"")=""I """"Y""""'[Y"""
^XMB(3.9,148,2,16135,0)="""^DD"",130,130,370,21,0)"
^XMB(3.9,148,2,16136,0)="^^7^7^3060301^"
^XMB(3.9,148,2,16137,0)="""^DD"",130,130,370,21,1,0)"
^XMB(3.9,148,2,16138,0)="CICSP Definition (2006):"
^XMB(3.9,148,2,16139,0)="""^DD"",130,130,370,21,2,0)"
^XMB(3.9,148,2,16140,0)="Indicate if the patient has had any reparative procedure to a native"
^XMB(3.9,148,2,16141,0)="""^DD"",130,130,370,21,3,0)"
^XMB(3.9,148,2,16142,0)="valve, either with or without placing the patient on cardiopulmonary"
^XMB(3.9,148,2,16143,0)="""^DD"",130,130,370,21,4,0)"
^XMB(3.9,148,2,16144,0)="bypass. Valve repair is defined as a procedure performed on the native"
^XMB(3.9,148,2,16145,0)="""^DD"",130,130,370,21,5,0)"
^XMB(3.9,148,2,16146,0)="valve to relieve stenosis and/or correct regurgitation (annuloplasty,"
^XMB(3.9,148,2,16147,0)="""^DD"",130,130,370,21,6,0)"
^XMB(3.9,148,2,16148,0)="commissurotomy, etc.); the native valve remains in place. Indicate the"
^XMB(3.9,148,2,16149,0)="""^DD"",130,130,370,21,7,0)"
^XMB(3.9,148,2,16150,0)="one appropriate response."
^XMB(3.9,148,2,16151,0)="""^DD"",130,130,370,""DT"")"
^XMB(3.9,148,2,16152,0)="3060301"
^XMB(3.9,148,2,16153,0)="""^DD"",130,130,372,0)"
^XMB(3.9,148,2,16154,0)="GREAT VESSEL REPAIR (Y/N)^S^Y:YES;N:NO;^207;8^Q"
^XMB(3.9,148,2,16155,0)="""^DD"",130,130,372,.1)"
^XMB(3.9,148,2,16156,0)="Great Vessel Repair (Y/N)"
^XMB(3.9,148,2,16157,0)="""^DD"",130,130,372,3)"
^XMB(3.9,148,2,16158,0)="Enter 'YES' if the patient had a primary procedure to repair the aorta or other great vessels."
^XMB(3.9,148,2,16159,0)="""^DD"",130,130,372,21,0)"
^XMB(3.9,148,2,16160,0)="^^6^6^3060314^"
^XMB(3.9,148,2,16161,0)="""^DD"",130,130,372,21,1,0)"
^XMB(3.9,148,2,16162,0)="CICSP Definition (2006):"
^XMB(3.9,148,2,16163,0)="""^DD"",130,130,372,21,2,0)"
^XMB(3.9,148,2,16164,0)="Indicate if patient had a thoracic great vessel open repair of the "
^XMB(3.9,148,2,16165,0)="""^DD"",130,130,372,21,3,0)"
^XMB(3.9,148,2,16166,0)="aorta (ascending, transverse, and/or descending) or other great "
^XMB(3.9,148,2,16167,0)="""^DD"",130,130,372,21,4,0)"
^XMB(3.9,148,2,16168,0)="vessels, with or without cardiopulmonary bypass, with or without "
^XMB(3.9,148,2,16169,0)="""^DD"",130,130,372,21,5,0)"
^XMB(3.9,148,2,16170,0)="aortic valve replacement, CABG, or other procedure but excluding an"
^XMB(3.9,148,2,16171,0)="""^DD"",130,130,372,21,6,0)"
^XMB(3.9,148,2,16172,0)="endovascular repair of the descending thoracic aorta."
^XMB(3.9,148,2,16173,0)="""^DD"",130,130,372,""DT"")"
^XMB(3.9,148,2,16174,0)="3060314"
^XMB(3.9,148,2,16175,0)="""^DD"",130,130,373,0)"
^XMB(3.9,148,2,16176,0)="CARDIAC TRANSPLANT^S^Y:YES;N:NO;^207;9^Q"
^XMB(3.9,148,2,16177,0)="""^DD"",130,130,373,.1)"
^XMB(3.9,148,2,16178,0)="Cardiac Transplant (Y/N)"
^XMB(3.9,148,2,16179,0)="""^DD"",130,130,373,3)"
^XMB(3.9,148,2,16180,0)="Enter 'YES' if the patient had a cardiac transplant."
^XMB(3.9,148,2,16181,0)="""^DD"",130,130,373,21,0)"
^XMB(3.9,148,2,16182,0)="^^5^5^3060209^"
^XMB(3.9,148,2,16183,0)="""^DD"",130,130,373,21,1,0)"
^XMB(3.9,148,2,16184,0)="CICSP Definition (2006):"
^XMB(3.9,148,2,16185,0)="""^DD"",130,130,373,21,2,0)"
^XMB(3.9,148,2,16186,0)="Indicate if an orthotopic or heterotopic transplant was performed"
^XMB(3.9,148,2,16187,0)="""^DD"",130,130,373,21,3,0)"
^XMB(3.9,148,2,16188,0)="at this procedure either with or without placing the patient on"
^XMB(3.9,148,2,16189,0)="""^DD"",130,130,373,21,4,0)"
^XMB(3.9,148,2,16190,0)="cardiopulmonary bypass.  (YES/NO)  Heart-lung transplant should be"
^XMB(3.9,148,2,16191,0)="""^DD"",130,130,373,21,5,0)"
^XMB(3.9,148,2,16192,0)="listed under ""Other cardiac procedures."""
^XMB(3.9,148,2,16193,0)="""^DD"",130,130,373,""DT"")"
^XMB(3.9,148,2,16194,0)="3060209"
^XMB(3.9,148,2,16195,0)="""^DD"",130,130,384,0)"
^XMB(3.9,148,2,16196,0)="OPERATIVE DEATH^S^Y:YES;N:NO;^208;1^Q"
^XMB(3.9,148,2,16197,0)="""^DD"",130,130,384,.1)"
^XMB(3.9,148,2,16198,0)="Operative Death (Y/N)"
^XMB(3.9,148,2,16199,0)="""^DD"",130,130,384,3)"
^XMB(3.9,148,2,16200,0)="Enter 'YES' if the patient died. Enter ""??"" for the complete definition of OPERATIVE DEATH."
^XMB(3.9,148,2,16201,0)="""^DD"",130,130,384,21,0)"
^XMB(3.9,148,2,16202,0)="^.001^7^7^3060323^^"
^XMB(3.9,148,2,16203,0)="""^DD"",130,130,384,21,1,0)"
^XMB(3.9,148,2,16204,0)="CICSP Definition (2006):"
^XMB(3.9,148,2,16205,0)="""^DD"",130,130,384,21,2,0)"
^XMB(3.9,148,2,16206,0)="Indicate if the patient died within the 30 days after surgery in or "
^XMB(3.9,148,2,16207,0)="""^DD"",130,130,384,21,3,0)"
^XMB(3.9,148,2,16208,0)="out of the hospital regardless of cause; or within the index"
^XMB(3.9,148,2,16209,0)="""^DD"",130,130,384,21,4,0)"
^XMB(3.9,148,2,16210,0)="hospitalization regardless of cause; or patient died greater than "
^XMB(3.9,148,2,16211,0)="""^DD"",130,130,384,21,5,0)"
^XMB(3.9,148,2,16212,0)="30 days as a direct result of a perioperative occurrence of the "
^XMB(3.9,148,2,16213,0)="""^DD"",130,130,384,21,6,0)"
^XMB(3.9,148,2,16214,0)="surgery (e.g., mediastinitis).  (""Discharge"" can be noted when the "
^XMB(3.9,148,2,16215,0)="""^DD"",130,130,384,21,7,0)"
^XMB(3.9,148,2,16216,0)="patient leaves the Acute Care arena.)"
^XMB(3.9,148,2,16217,0)="""^DD"",130,130,384,""DT"")"
^XMB(3.9,148,2,16218,0)="3060328"
^XMB(3.9,148,2,16219,0)="""^DD"",130,130,401,0)"
^XMB(3.9,148,2,16220,0)="TUMOR INVOLVING CNS (Y/N)^S^Y:YES;N:NO;NS:NO STUDY;^200;29^Q"
^XMB(3.9,148,2,16221,0)="""^DD"",130,130,401,.1)"
^XMB(3.9,148,2,16222,0)="Tumor Involving CNS (Y/N)"
^XMB(3.9,148,2,16223,0)="""^DD"",130,130,401,3)"
^XMB(3.9,148,2,16224,0)="Enter YES if the patient has a tumor involving the central nervous system."
^XMB(3.9,148,2,16225,0)="""^DD"",130,130,401,21,0)"
^XMB(3.9,148,2,16226,0)="^^8^8^3060117^"
^XMB(3.9,148,2,16227,0)="""^DD"",130,130,401,21,1,0)"
^XMB(3.9,148,2,16228,0)="NSQIP Definition (2006):"
^XMB(3.9,148,2,16229,0)="""^DD"",130,130,401,21,2,0)"
^XMB(3.9,148,2,16230,0)="Space-occupying tumor of the brain and spinal cord, which may be benign "
^XMB(3.9,148,2,16231,0)="""^DD"",130,130,401,21,3,0)"
^XMB(3.9,148,2,16232,0)="(e.g., meningiomas, ependymoma, oligodendroglioma) or primary (e.g., "
^XMB(3.9,148,2,16233,0)="""^DD"",130,130,401,21,4,0)"
^XMB(3.9,148,2,16234,0)="astrocytoma, glioma, glioblastoma multiform) or secondary malignancies "
^XMB(3.9,148,2,16235,0)="""^DD"",130,130,401,21,5,0)"
^XMB(3.9,148,2,16236,0)="(e.g., metastatic lung, breast, malignant melanoma). Other tumors that "
^XMB(3.9,148,2,16237,0)="""^DD"",130,130,401,21,6,0)"
^XMB(3.9,148,2,16238,0)="may involve the CNS include lymphomas and sarcomas. Answer ""YES"" even if"
^XMB(3.9,148,2,16239,0)="""^DD"",130,130,401,21,7,0)"
^XMB(3.9,148,2,16240,0)="the tumor was not treated. A patient with metastatic cancer with boney"
^XMB(3.9,148,2,16241,0)="""^DD"",130,130,401,21,8,0)"
^XMB(3.9,148,2,16242,0)="mets to spine is a CNS tumor."
^XMB(3.9,148,2,16243,0)="""^DD"",130,130,401,""DT"")"
^XMB(3.9,148,2,16244,0)="3040316"
^XMB(3.9,148,2,16245,0)="""^DD"",130,130,410,0)"
^XMB(3.9,148,2,16246,0)="COMA > 24 HOURS POSTOP^*S^Y:YES;N:NO;NS:NO STUDY;^205;22^Q"
^XMB(3.9,148,2,16247,0)="""^DD"",130,130,410,.1)"
^XMB(3.9,148,2,16248,0)="Coma Greater than 24 Hours Postop (Y/N)"
^XMB(3.9,148,2,16249,0)="""^DD"",130,130,410,3)"
^XMB(3.9,148,2,16250,0)="Enter YES if the patient has significantly impaired level of consciousness > or = 24 hours postoperatively."
^XMB(3.9,148,2,16251,0)="""^DD"",130,130,410,12)"
^XMB(3.9,148,2,16252,0)="Screen prevents selection of retired code."
^XMB(3.9,148,2,16253,0)="""^DD"",130,130,410,12.1)"
^XMB(3.9,148,2,16254,0)="S DIC(""S"")=""I Y'=""""NS"""""""
^XMB(3.9,148,2,16255,0)="""^DD"",130,130,410,21,0)"
^XMB(3.9,148,2,16256,0)="^^12^12^3060209^"
^XMB(3.9,148,2,16257,0)="""^DD"",130,130,410,21,1,0)"
^XMB(3.9,148,2,16258,0)="NSQIP Definition (2006):"
^XMB(3.9,148,2,16259,0)="""^DD"",130,130,410,21,2,0)"
^XMB(3.9,148,2,16260,0)="Patient is unconscious, postures to painful stimuli, or is "
^XMB(3.9,148,2,16261,0)="""^DD"",130,130,410,21,3,0)"
^XMB(3.9,148,2,16262,0)="unresponsive to all stimuli (exclude transient disorientation or"
^XMB(3.9,148,2,16263,0)="""^DD"",130,130,410,21,4,0)"
^XMB(3.9,148,2,16264,0)="psychosis) for greater than 24 hours during postoperative "
^XMB(3.9,148,2,16265,0)="""^DD"",130,130,410,21,5,0)"
^XMB(3.9,148,2,16266,0)="hospitalization. Do not include drug-induced coma (e.g. Propofol "
^XMB(3.9,148,2,16267,0)="""^DD"",130,130,410,21,6,0)"
^XMB(3.9,148,2,16268,0)="drips, etc.)"
^XMB(3.9,148,2,16269,0)="""^DD"",130,130,410,21,7,0)"
^XMB(3.9,148,2,16270,0)=" "
^XMB(3.9,148,2,16271,0)="""^DD"",130,130,410,21,8,0)"
^XMB(3.9,148,2,16272,0)="CICSP Definition (2006):"
^XMB(3.9,148,2,16273,0)="""^DD"",130,130,410,21,9,0)"
^XMB(3.9,148,2,16274,0)="Indicate if postoperatively within 30 days of surgery there was a "
^XMB(3.9,148,2,16275,0)="""^DD"",130,130,410,21,10,0)"
^XMB(3.9,148,2,16276,0)="significantly decreased level of consciousness (exclude transient "
^XMB(3.9,148,2,16277,0)="""^DD"",130,130,410,21,11,0)"
^XMB(3.9,148,2,16278,0)="disorientation or psychosis) for greater than or equal to 24 hours"
^XMB(3.9,148,2,16279,0)="""^DD"",130,130,410,21,12,0)"
^XMB(3.9,148,2,16280,0)="as evidenced by lack of response to deep, painful stimuli."
^XMB(3.9,148,2,16281,0)="""^DD"",130,130,410,""DT"")"
^XMB(3.9,148,2,16282,0)="3060209"
^XMB(3.9,148,2,16283,0)="""^DD"",130,130,411,0)"
^XMB(3.9,148,2,16284,0)="CARDIAC ARREST REQ CPR^*S^Y:YES;N:NO;NS:NO STUDY;^205;26^Q"
^XMB(3.9,148,2,16285,0)="""^DD"",130,130,411,.1)"
^XMB(3.9,148,2,16286,0)="Cardiac Arrest Requiring CPR (Y/N)"
^XMB(3.9,148,2,16287,0)="""^DD"",130,130,411,3)"
^XMB(3.9,148,2,16288,0)="Enter YES if the patient has had postoperative cardiac arrest requiring CPR."
^XMB(3.9,148,2,16289,0)="""^DD"",130,130,411,12)"
^XMB(3.9,148,2,16290,0)="Screen prevents selection of retired code."
^XMB(3.9,148,2,16291,0)="""^DD"",130,130,411,12.1)"
^XMB(3.9,148,2,16292,0)="S DIC(""S"")=""I Y'=""""NS"""""""
^XMB(3.9,148,2,16293,0)="""^DD"",130,130,411,21,0)"
^XMB(3.9,148,2,16294,0)="^^18^18^3060118^"
^XMB(3.9,148,2,16295,0)="""^DD"",130,130,411,21,1,0)"
^XMB(3.9,148,2,16296,0)="CICSP Definition (2004):"
^XMB(3.9,148,2,16297,0)="""^DD"",130,130,411,21,2,0)"
^XMB(3.9,148,2,16298,0)="Indicate if there was any cardiac arrest requiring external or open "
^XMB(3.9,148,2,16299,0)="""^DD"",130,130,411,21,3,0)"
^XMB(3.9,148,2,16300,0)="cardiopulmonary resuscitation (CPR) occurring in the operating room, "
^XMB(3.9,148,2,16301,0)="""^DD"",130,130,411,21,4,0)"
^XMB(3.9,148,2,16302,0)="ICU, ward, or out-of-hospital after the chest had been completely "
^XMB(3.9,148,2,16303,0)="""^DD"",130,130,411,21,5,0)"
^XMB(3.9,148,2,16304,0)="closed and within 30 days of surgery. (YES/NO)"
^XMB(3.9,148,2,16305,0)="""^DD"",130,130,411,21,6,0)"
^XMB(3.9,148,2,16306,0)=" "
^XMB(3.9,148,2,16307,0)="""^DD"",130,130,411,21,7,0)"
^XMB(3.9,148,2,16308,0)="If patient had cardiac arrest requiring CPR, indicate whether the "
^XMB(3.9,148,2,16309,0)="""^DD"",130,130,411,21,8,0)"
^XMB(3.9,148,2,16310,0)="arrest occurred intraoperatively or postoperatively. Indicate the one "
^XMB(3.9,148,2,16311,0)="""^DD"",130,130,411,21,9,0)"
^XMB(3.9,148,2,16312,0)="appropriate response: "
^XMB(3.9,148,2,16313,0)="""^DD"",130,130,411,21,10,0)"
^XMB(3.9,148,2,16314,0)=" - intraoperatively: occurring while patient was in the operating room"
^XMB(3.9,148,2,16315,0)="""^DD"",130,130,411,21,11,0)"
^XMB(3.9,148,2,16316,0)=" - postoperatively:  occurring after patient left the operating room"
^XMB(3.9,148,2,16317,0)="""^DD"",130,130,411,21,12,0)"
^XMB(3.9,148,2,16318,0)=" "
^XMB(3.9,148,2,16319,0)="""^DD"",130,130,411,21,13,0)"
^XMB(3.9,148,2,16320,0)="NSQIP Definition (2006):"
^XMB(3.9,148,2,16321,0)="""^DD"",130,130,411,21,14,0)"
^XMB(3.9,148,2,16322,0)="The absence of cardiac rhythm or presence of chaotic cardiac rhythm "
^XMB(3.9,148,2,16323,0)="""^DD"",130,130,411,21,15,0)"
^XMB(3.9,148,2,16324,0)="that results in loss of consciousness requiring the initiation of any "
^XMB(3.9,148,2,16325,0)="""^DD"",130,130,411,21,16,0)"
^XMB(3.9,148,2,16326,0)="component of basic and/or advanced cardiac life support. Patients with "
^XMB(3.9,148,2,16327,0)="""^DD"",130,130,411,21,17,0)"
^XMB(3.9,148,2,16328,0)="AICDs that fire but the patient does not lose consciousness should be "
^XMB(3.9,148,2,16329,0)="""^DD"",130,130,411,21,18,0)"
^XMB(3.9,148,2,16330,0)="excluded."
^XMB(3.9,148,2,16331,0)="""^DD"",130,130,411,""DT"")"
^XMB(3.9,148,2,16332,0)="3040721"
^XMB(3.9,148,2,16333,0)="""^DD"",130,130,430,0)"
^XMB(3.9,148,2,16334,0)="CARDIAC RISK PREOP COMMENTS^F^^206.1;1^K:$L(X)>130!($L(X)<1) X"
^XMB(3.9,148,2,16335,0)="""^DD"",130,130,430,.1)"
^XMB(3.9,148,2,16336,0)="Preoperative Risk Summary Data"
^XMB(3.9,148,2,16337,0)="""^DD"",130,130,430,3)"
^XMB(3.9,148,2,16338,0)="Answer must be 1-130 characters in length."
^XMB(3.9,148,2,16339,0)="""^DD"",130,130,430,21,0)"
^XMB(3.9,148,2,16340,0)="^^5^5^3060209^^"
^XMB(3.9,148,2,16341,0)="""^DD"",130,130,430,21,1,0)"
^XMB(3.9,148,2,16342,0)="CICSP Definition (2006):"
^XMB(3.9,148,2,16343,0)="""^DD"",130,130,430,21,2,0)"
^XMB(3.9,148,2,16344,0)="Indicate in the comment field any preoperative patient risk factors"
^XMB(3.9,148,2,16345,0)="""^DD"",130,130,430,21,3,0)"
^XMB(3.9,148,2,16346,0)="(not previously entered above) that may contribute to this patient's "
^XMB(3.9,148,2,16347,0)="""^DD"",130,130,430,21,4,0)"
^XMB(3.9,148,2,16348,0)="risk of operative mortality. (The maximum length of this field is "
^XMB(3.9,148,2,16349,0)="""^DD"",130,130,430,21,5,0)"
^XMB(3.9,148,2,16350,0)="130 characters.)"
^XMB(3.9,148,2,16351,0)="""^DD"",130,130,430,""DT"")"
^XMB(3.9,148,2,16352,0)="3060209"
^XMB(3.9,148,2,16353,0)="""^DD"",130,130,431,0)"
^XMB(3.9,148,2,16354,0)="CARDIAC RESOURCE DATA COMMENTS^F^^206.2;1^K:$L(X)>130!($L(X)<1) X"
^XMB(3.9,148,2,16355,0)="""^DD"",130,130,431,3)"
^XMB(3.9,148,2,16356,0)="Answer must be 1-130 characters in length."
^XMB(3.9,148,2,16357,0)="""^DD"",130,130,431,21,0)"
^XMB(3.9,148,2,16358,0)="^^3^3^3060118^"
^XMB(3.9,148,2,16359,0)="""^DD"",130,130,431,21,1,0)"
^XMB(3.9,148,2,16360,0)="CICSP Definition (2006):"
^XMB(3.9,148,2,16361,0)="""^DD"",130,130,431,21,2,0)"
^XMB(3.9,148,2,16362,0)="Indicate additional comments related to this case prior to"
^XMB(3.9,148,2,16363,0)="""^DD"",130,130,431,21,3,0)"
^XMB(3.9,148,2,16364,0)="transmission to Denver by the SCNR/Data Manager (limit 130 characters)."
^XMB(3.9,148,2,16365,0)="""^DD"",130,130,431,""DT"")"
^XMB(3.9,148,2,16366,0)="3060118"
^XMB(3.9,148,2,16367,0)="""^DD"",130,130,443,0)"
^XMB(3.9,148,2,16368,0)="INTRAOP DISSEMINATED CANCER^S^Y:YES;N:NO;NS:NO STUDY;^200.1;4^Q"
^XMB(3.9,148,2,16369,0)="""^DD"",130,130,443,.1)"
^XMB(3.9,148,2,16370,0)="Intraoperative Disseminated Cancer (Y/N)"
^XMB(3.9,148,2,16371,0)="""^DD"",130,130,443,3)"
^XMB(3.9,148,2,16372,0)="Enter YES if cancer was found during the operative procedure."
^XMB(3.9,148,2,16373,0)="""^DD"",130,130,443,21,0)"
^XMB(3.9,148,2,16374,0)="^.001^37^37^3060208^^^^"
^XMB(3.9,148,2,16375,0)="""^DD"",130,130,443,21,1,0)"
^XMB(3.9,148,2,16376,0)="NSQIP Definition (2006):"
^XMB(3.9,148,2,16377,0)="""^DD"",130,130,443,21,2,0)"
^XMB(3.9,148,2,16378,0)="Patients who have cancer that was found during the operative procedure "
^XMB(3.9,148,2,16379,0)="""^DD"",130,130,443,21,3,0)"
^XMB(3.9,148,2,16380,0)="that:"
^XMB(3.9,148,2,16381,0)="""^DD"",130,130,443,21,4,0)"
^XMB(3.9,148,2,16382,0)=" (1) Has spread to one site or more sites in addition to the primary "
^XMB(3.9,148,2,16383,0)="""^DD"",130,130,443,21,5,0)"
^XMB(3.9,148,2,16384,0)="     site"
^XMB(3.9,148,2,16385,0)="""^DD"",130,130,443,21,6,0)"
^XMB(3.9,148,2,16386,0)="     "
^XMB(3.9,148,2,16387,0)="""^DD"",130,130,443,21,7,0)"
^XMB(3.9,148,2,16388,0)=" AND "
^XMB(3.9,148,2,16389,0)="""^DD"",130,130,443,21,8,0)"
^XMB(3.9,148,2,16390,0)=" "
^XMB(3.9,148,2,16391,0)="""^DD"",130,130,443,21,9,0)"
^XMB(3.9,148,2,16392,0)=" (2) In whom the presence of multiple metastases indicates the cancer is"
^XMB(3.9,148,2,16393,0)="""^DD"",130,130,443,21,10,0)"
^XMB(3.9,148,2,16394,0)="     widespread, fulminant, or near terminal. Other terms describing"
^XMB(3.9,148,2,16395,0)="""^DD"",130,130,443,21,11,0)"
^XMB(3.9,148,2,16396,0)="     disseminated cancer include ""diffuse,"" ""widely metastatic,"""
^XMB(3.9,148,2,16397,0)="""^DD"",130,130,443,21,12,0)"
^XMB(3.9,148,2,16398,0)="     ""widespread,"" or ""carcinomatosis"" or AJCC ""Stage IV"" cancer. Common"
^XMB(3.9,148,2,16399,0)="""^DD"",130,130,443,21,13,0)"
^XMB(3.9,148,2,16400,0)="     sites of metastases include major organs (e.g., brain, lung, liver,"
^XMB(3.9,148,2,16401,0)="""^DD"",130,130,443,21,14,0)"
^XMB(3.9,148,2,16402,0)="     meninges, abdomen, peritoneum, pleura, bone)."
^XMB(3.9,148,2,16403,0)="""^DD"",130,130,443,21,15,0)"
^XMB(3.9,148,2,16404,0)=" "
^XMB(3.9,148,2,16405,0)="""^DD"",130,130,443,21,16,0)"
^XMB(3.9,148,2,16406,0)="Example: A patient with a primary breast cancer with positive nodes in"
^XMB(3.9,148,2,16407,0)="""^DD"",130,130,443,21,17,0)"
^XMB(3.9,148,2,16408,0)="the axilla does NOT qualify for this definition. She has spread of the"
^XMB(3.9,148,2,16409,0)="""^DD"",130,130,443,21,18,0)"
^XMB(3.9,148,2,16410,0)="tumor to a site other than the primary site, but does not have"
^XMB(3.9,148,2,16411,0)="""^DD"",130,130,443,21,19,0)"
^XMB(3.9,148,2,16412,0)="widespread metastases. A patient with primary breast cancer with"
^XMB(3.9,148,2,16413,0)="""^DD"",130,130,443,21,20,0)"
^XMB(3.9,148,2,16414,0)="positive nodes in the axilla AND liver metastases does qualify, because"
^XMB(3.9,148,2,16415,0)="""^DD"",130,130,443,21,21,0)"
^XMB(3.9,148,2,16416,0)="she has both spread of the tumor to the axilla and other major organs."
^XMB(3.9,148,2,16417,0)="""^DD"",130,130,443,21,22,0)"
^XMB(3.9,148,2,16418,0)=" "
^XMB(3.9,148,2,16419,0)="""^DD"",130,130,443,21,23,0)"
^XMB(3.9,148,2,16420,0)="Example: A patient with colon cancer and no positive nodes or distant"
^XMB(3.9,148,2,16421,0)="""^DD"",130,130,443,21,24,0)"
^XMB(3.9,148,2,16422,0)="metastases does NOT qualify. A patient with colon cancer and several"
^XMB(3.9,148,2,16423,0)="""^DD"",130,130,443,21,25,0)"
^XMB(3.9,148,2,16424,0)="local lymph nodes positive for tumor, but no other evidence of"
^XMB(3.9,148,2,16425,0)="""^DD"",130,130,443,21,26,0)"
^XMB(3.9,148,2,16426,0)="metastatic disease does NOT qualify. A patient with colon cancer with"
^XMB(3.9,148,2,16427,0)="""^DD"",130,130,443,21,27,0)"
^XMB(3.9,148,2,16428,0)="liver metastases and/or peritoneal seeding with tumor does qualify."
^XMB(3.9,148,2,16429,0)="""^DD"",130,130,443,21,28,0)"
^XMB(3.9,148,2,16430,0)=" "
^XMB(3.9,148,2,16431,0)="""^DD"",130,130,443,21,29,0)"
^XMB(3.9,148,2,16432,0)="Example: A patient with adenocarcinoma of the prostate confined to the"
^XMB(3.9,148,2,16433,0)="""^DD"",130,130,443,21,30,0)"
^XMB(3.9,148,2,16434,0)="capsule does NOT qualify. A patient with prostate cancer that extends"
^XMB(3.9,148,2,16435,0)="""^DD"",130,130,443,21,31,0)"
^XMB(3.9,148,2,16436,0)="through the capsule of the prostate only does NOT qualify. A patient"
^XMB(3.9,148,2,16437,0)="""^DD"",130,130,443,21,32,0)"
^XMB(3.9,148,2,16438,0)="with prostate cancer with bony metastases DOES qualify."
^XMB(3.9,148,2,16439,0)="""^DD"",130,130,443,21,33,0)"
^XMB(3.9,148,2,16440,0)=" "
^XMB(3.9,148,2,16441,0)="""^DD"",130,130,443,21,34,0)"
^XMB(3.9,148,2,16442,0)=" * Report Acute Lymphocytic Leukemia (ALL) and Acute Myelogenous"
^XMB(3.9,148,2,16443,0)="""^DD"",130,130,443,21,35,0)"
^XMB(3.9,148,2,16444,0)="   Leukemia (AML) under this variable. Do not report Chronic Lymphocytic"
^XMB(3.9,148,2,16445,0)="""^DD"",130,130,443,21,36,0)"
^XMB(3.9,148,2,16446,0)="   Leukemia (CLL), Chronic Myelogenous Leukemia (CML) or Stage IV"
^XMB(3.9,148,2,16447,0)="""^DD"",130,130,443,21,37,0)"
^XMB(3.9,148,2,16448,0)="   lymphoma, as disseminated cancer."
^XMB(3.9,148,2,16449,0)="""^DD"",130,130,443,""DT"")"
^XMB(3.9,148,2,16450,0)="3060118"
^XMB(3.9,148,2,16451,0)="""^DD"",130,130,444,0)"
^XMB(3.9,148,2,16452,0)="PREOPERATIVE ANION GAP^FX^^203;15^K:$L(X)>5!($L(X)<1) X I $D(X) D NUM^SROAL21"
^XMB(3.9,148,2,16453,0)="""^DD"",130,130,444,.1)"
^XMB(3.9,148,2,16454,0)="Preoperative Anion Gap"
^XMB(3.9,148,2,16455,0)="""^DD"",130,130,444,3)"
^XMB(3.9,148,2,16456,0)="Answer must be 1-5 characters in length."
^XMB(3.9,148,2,16457,0)="""^DD"",130,130,444,21,0)"
^XMB(3.9,148,2,16458,0)="^.001^4^4^3060208^^^"
^XMB(3.9,148,2,16459,0)="""^DD"",130,130,444,21,1,0)"
^XMB(3.9,148,2,16460,0)="This is the result of the preoperative Anion Gap calculation. Data input"
^XMB(3.9,148,2,16461,0)="""^DD"",130,130,444,21,2,0)"
^XMB(3.9,148,2,16462,0)="must be 1 to 5 numeric characters in length which may include a prefix"
^XMB(3.9,148,2,16463,0)="""^DD"",130,130,444,21,3,0)"
^XMB(3.9,148,2,16464,0)="of a less than or greater than sign ""<"" or "">"". Entering ""NS"" for ""No"
^XMB(3.9,148,2,16465,0)="""^DD"",130,130,444,21,4,0)"
^XMB(3.9,148,2,16466,0)="Study"" is also allowed."
^XMB(3.9,148,2,16467,0)="""^DD"",130,130,444,""DT"")"
^XMB(3.9,148,2,16468,0)="3060127"
^XMB(3.9,148,2,16469,0)="""^DD"",130,130,444.1,0)"
^XMB(3.9,148,2,16470,0)="PREOP ANION GAP, DATE^D^^204;15^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,148,2,16471,0)="""^DD"",130,130,444.1,.1)"
^XMB(3.9,148,2,16472,0)="Date Preoperative Anion Gap was Recorded"
^XMB(3.9,148,2,16473,0)="""^DD"",130,130,444.1,3)"
^XMB(3.9,148,2,16474,0)="Enter the date the preoperative Anion Gap was recorded."
^XMB(3.9,148,2,16475,0)="""^DD"",130,130,444.1,21,0)"
^XMB(3.9,148,2,16476,0)="^.001^1^1^3060531^^^^"
^XMB(3.9,148,2,16477,0)="""^DD"",130,130,444.1,21,1,0)"
^XMB(3.9,148,2,16478,0)="This is the date the preoperative Anion Gap was recorded."
^XMB(3.9,148,2,16479,0)="""^DD"",130,130,444.1,""DT"")"
^XMB(3.9,148,2,16480,0)="3060127"
^XMB(3.9,148,2,16481,0)="""^DD"",130,130,445,0)"
^XMB(3.9,148,2,16482,0)="HIGHEST ANION GAP^FX^^203;16^K:$L(X)>5!($L(X)<1) X I $D(X) D NUM^SROAL21"
^XMB(3.9,148,2,16483,0)="""^DD"",130,130,445,.1)"
^XMB(3.9,148,2,16484,0)="Highest Postoperative Anion Gap"
^XMB(3.9,148,2,16485,0)="""^DD"",130,130,445,3)"
^XMB(3.9,148,2,16486,0)="Answer must be 1-5 characters in length."
^XMB(3.9,148,2,16487,0)="""^DD"",130,130,445,21,0)"
^XMB(3.9,148,2,16488,0)="^.001^4^4^3060405^^^^"
^XMB(3.9,148,2,16489,0)="""^DD"",130,130,445,21,1,0)"
^XMB(3.9,148,2,16490,0)="This is the result of the highest postoperative anion gap recorded. Data"
^XMB(3.9,148,2,16491,0)="""^DD"",130,130,445,21,2,0)"
^XMB(3.9,148,2,16492,0)="input must be 1 to 5 numeric characters in length which may include a"
^XMB(3.9,148,2,16493,0)="""^DD"",130,130,445,21,3,0)"
^XMB(3.9,148,2,16494,0)="prefix of a less than or greater than sign ""<"" or "">"". Entering ""NS"" for"
^XMB(3.9,148,2,16495,0)="""^DD"",130,130,445,21,4,0)"
^XMB(3.9,148,2,16496,0)="""No Study"" is also allowed."
^XMB(3.9,148,2,16497,0)="""^DD"",130,130,445,""DT"")"
^XMB(3.9,148,2,16498,0)="3060127"
^XMB(3.9,148,2,16499,0)="""^DD"",130,130,445.1,0)"
^XMB(3.9,148,2,16500,0)="HIGH ANION GAP, DATE^D^^204;16^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,148,2,16501,0)="""^DD"",130,130,445.1,.1)"
^XMB(3.9,148,2,16502,0)="Date Highest Anion Gap was Recorded"
^XMB(3.9,148,2,16503,0)="""^DD"",130,130,445.1,3)"
^XMB(3.9,148,2,16504,0)="Enter the date that the highest postop Anion Gap was recorded."
^XMB(3.9,148,2,16505,0)="""^DD"",130,130,445.1,21,0)"
^XMB(3.9,148,2,16506,0)="^.001^1^1^3060405^^"
^XMB(3.9,148,2,16507,0)="""^DD"",130,130,445.1,21,1,0)"
^XMB(3.9,148,2,16508,0)="This is the date that the highest postoperative Anion Gap was recorded."
^XMB(3.9,148,2,16509,0)="""^DD"",130,130,445.1,""DT"")"
^XMB(3.9,148,2,16510,0)="3060323"
^XMB(3.9,148,2,16511,0)="""^DD"",130,130,457,0)"
^XMB(3.9,148,2,16512,0)="HDL (CARDIAC)^FX^^201;21^K:$L(X)>6!($L(X)<1) X I $D(X) D NUM^SROAL21"
^XMB(3.9,148,2,16513,0)="""^DD"",130,130,457,.1)"
^XMB(3.9,148,2,16514,0)="HDL (mg/dl)"
^XMB(3.9,148,2,16515,0)="""^DD"",130,130,457,3)"
^XMB(3.9,148,2,16516,0)="Answer must be 1-6 characters in length."
^XMB(3.9,148,2,16517,0)="""^DD"",130,130,457,21,0)"
^XMB(3.9,148,2,16518,0)="^^3^3^3060222^"
^XMB(3.9,148,2,16519,0)="""^DD"",130,130,457,21,1,0)"
^XMB(3.9,148,2,16520,0)="CICSP Definition (2006):"
^XMB(3.9,148,2,16521,0)="""^DD"",130,130,457,21,2,0)"
^XMB(3.9,148,2,16522,0)="Indicate the HDL result (mg/dl) preoperatively evaluated closest to "
^XMB(3.9,148,2,16523,0)="""^DD"",130,130,457,21,3,0)"
^XMB(3.9,148,2,16524,0)="surgery. Entering ""NS"" for ""No Study"" is allowed."
^XMB(3.9,148,2,16525,0)="""^DD"",130,130,457,""DT"")"
^XMB(3.9,148,2,16526,0)="3060222"
^XMB(3.9,148,2,16527,0)="""^DD"",130,130,457.1,0)"
^XMB(3.9,148,2,16528,0)="HDL, DATE^FXO^^202;21^N SRX S SRX=X,%DT=""EX"" D ^%DT S X=Y K:Y<1 X S:SRX=""NS""!(SRX=""ns"") X=""NS"""
^XMB(3.9,148,2,16529,0)="""^DD"",130,130,457.1,.1)"
^XMB(3.9,148,2,16530,0)="HDL, Date"
^XMB(3.9,148,2,16531,0)="""^DD"",130,130,457.1,2)"
^XMB(3.9,148,2,16532,0)="S Y(0)=Y S Y(0)=Y D DATE^SROAUTL"
^XMB(3.9,148,2,16533,0)="""^DD"",130,130,457.1,2.1)"
^XMB(3.9,148,2,16534,0)="S Y(0)=Y D DATE^SROAUTL"
^XMB(3.9,148,2,16535,0)="""^DD"",130,130,457.1,3)"
^XMB(3.9,148,2,16536,0)="This is the date that the HDL was performed and must not be more than 1000 days before surgery."
^XMB(3.9,148,2,16537,0)="""^DD"",130,130,457.1,21,0)"
^XMB(3.9,148,2,16538,0)="^^3^3^3060705^"
^XMB(3.9,148,2,16539,0)="""^DD"",130,130,457.1,21,1,0)"
^XMB(3.9,148,2,16540,0)="CICSP Definition (2006):"
^XMB(3.9,148,2,16541,0)="""^DD"",130,130,457.1,21,2,0)"
^XMB(3.9,148,2,16542,0)="Indicate the date that the preoperative HDL value was assessed. Enter "
^XMB(3.9,148,2,16543,0)="""^DD"",130,130,457.1,21,3,0)"
^XMB(3.9,148,2,16544,0)="""NS"" for No Study if the HDL test was not performed."
^XMB(3.9,148,2,16545,0)="""^DD"",130,130,457.1,""DT"")"
^XMB(3.9,148,2,16546,0)="3060705"
^XMB(3.9,148,2,16547,0)="""^DD"",130,130,458,0)"
^XMB(3.9,148,2,16548,0)="SERUM TRIGLYCERIDE (CARDIAC)^FX^^201;22^S:X=""NS""!(X=""ns"") X=""NS"" Q:X=""NS""  K:$L(X)>6!($L(X)<1) X"
^XMB(3.9,148,2,16549,0)="""^DD"",130,130,458,.1)"
^XMB(3.9,148,2,16550,0)="Serum Triglyceride (mg/dl)"
^XMB(3.9,148,2,16551,0)="""^DD"",130,130,458,3)"
^XMB(3.9,148,2,16552,0)="Answer must be 1-6 characters in length"
^XMB(3.9,148,2,16553,0)="""^DD"",130,130,458,21,0)"
^XMB(3.9,148,2,16554,0)="^^3^3^3060705^"
^XMB(3.9,148,2,16555,0)="""^DD"",130,130,458,21,1,0)"
^XMB(3.9,148,2,16556,0)="CICSP Definition (2006):"
^XMB(3.9,148,2,16557,0)="""^DD"",130,130,458,21,2,0)"
^XMB(3.9,148,2,16558,0)="Indicate the Serum Triglyceride result (mg/dl) preoperatively          "
^XMB(3.9,148,2,16559,0)="""^DD"",130,130,458,21,3,0)"
^XMB(3.9,148,2,16560,0)="evaluated closest to surgery. Entering ""NS"" for ""No Study"" is allowed."
^XMB(3.9,148,2,16561,0)="""^DD"",130,130,458,""DT"")"
^XMB(3.9,148,2,16562,0)="3060222"
^XMB(3.9,148,2,16563,0)="""^DD"",130,130,458.1,0)"
^XMB(3.9,148,2,16564,0)="SERUM TRIGLYCERIDE, DATE (CAR)^FXO^^202;22^N SRX S SRX=X,%DT=""EX"" D ^%DT S X=Y K:Y<1 X S:SRX=""NS""!(SRX=""ns"") X=""NS"""
^XMB(3.9,148,2,16565,0)="""^DD"",130,130,458.1,.1)"
^XMB(3.9,148,2,16566,0)="Serum Triglyceride, Date"
^XMB(3.9,148,2,16567,0)="""^DD"",130,130,458.1,2)"
^XMB(3.9,148,2,16568,0)="S Y(0)=Y S Y(0)=Y D DATE^SROAUTL"
^XMB(3.9,148,2,16569,0)="""^DD"",130,130,458.1,2.1)"
^XMB(3.9,148,2,16570,0)="S Y(0)=Y D DATE^SROAUTL"
^XMB(3.9,148,2,16571,0)="""^DD"",130,130,458.1,3)"
^XMB(3.9,148,2,16572,0)="This is the date that the Serum Triglyceride was performed and must not be more than 1000 days before surgery."
^XMB(3.9,148,2,16573,0)="""^DD"",130,130,458.1,21,0)"
^XMB(3.9,148,2,16574,0)="^^4^4^3060705^"
^XMB(3.9,148,2,16575,0)="""^DD"",130,130,458.1,21,1,0)"
^XMB(3.9,148,2,16576,0)="CICSP Definition (2006):"
^XMB(3.9,148,2,16577,0)="""^DD"",130,130,458.1,21,2,0)"
^XMB(3.9,148,2,16578,0)="Indicate the date that the preoperative Serum Triglyceride value was "
^XMB(3.9,148,2,16579,0)="""^DD"",130,130,458.1,21,3,0)"
^XMB(3.9,148,2,16580,0)="assessed. Enter ""NS"" for No Study if the Serum Triglyceride test was"
^XMB(3.9,148,2,16581,0)="""^DD"",130,130,458.1,21,4,0)"
^XMB(3.9,148,2,16582,0)="not performed."
^XMB(3.9,148,2,16583,0)="""^DD"",130,130,458.1,""DT"")"
^XMB(3.9,148,2,16584,0)="3060222"
^XMB(3.9,148,2,16585,0)="""^DD"",130,130,461,0)"
^XMB(3.9,148,2,16586,0)="LDL (CARDIAC)^FX^^201;25^K:$L(X)>6!($L(X)<1) X I $D(X) D NUM^SROAL21"
^XMB(3.9,148,2,16587,0)="""^DD"",130,130,461,.1)"
^XMB(3.9,148,2,16588,0)="LDL (mg/dl)"
^XMB(3.9,148,2,16589,0)="""^DD"",130,130,461,3)"
^XMB(3.9,148,2,16590,0)="Answer must be 1-6 characters in length."
^XMB(3.9,148,2,16591,0)="""^DD"",130,130,461,21,0)"
^XMB(3.9,148,2,16592,0)="^^3^3^3060308^"
^XMB(3.9,148,2,16593,0)="""^DD"",130,130,461,21,1,0)"
^XMB(3.9,148,2,16594,0)="CICSP Definition (2006):"
^XMB(3.9,148,2,16595,0)="""^DD"",130,130,461,21,2,0)"
^XMB(3.9,148,2,16596,0)="Indicate the LDL result (mg/dl) preoperatively evaluated closest to "
^XMB(3.9,148,2,16597,0)="""^DD"",130,130,461,21,3,0)"
^XMB(3.9,148,2,16598,0)="surgery. Entering ""NS"" for ""No Study"" is allowed."
^XMB(3.9,148,2,16599,0)="""^DD"",130,130,461,""DT"")"
^XMB(3.9,148,2,16600,0)="3060308"
^XMB(3.9,148,2,16601,0)="""^DD"",130,130,461.1,0)"
^XMB(3.9,148,2,16602,0)="LDL, DATE (CARDIAC)^FXO^^202;25^N SRX S SRX=X,%DT=""EX"" D ^%DT S X=Y K:Y<1 X S:SRX=""NS""!(SRX=""ns"") X=""NS"""
^XMB(3.9,148,2,16603,0)="""^DD"",130,130,461.1,.1)"
^XMB(3.9,148,2,16604,0)="LDL, Date"
^XMB(3.9,148,2,16605,0)="""^DD"",130,130,461.1,2)"
^XMB(3.9,148,2,16606,0)="S Y(0)=Y S Y(0)=Y D DATE^SROAUTL"
^XMB(3.9,148,2,16607,0)="""^DD"",130,130,461.1,2.1)"
^XMB(3.9,148,2,16608,0)="S Y(0)=Y D DATE^SROAUTL"
^XMB(3.9,148,2,16609,0)="""^DD"",130,130,461.1,3)"
^XMB(3.9,148,2,16610,0)="This is the date that the LDL was performed and must not be more than 1000 days before surgery."
^XMB(3.9,148,2,16611,0)="""^DD"",130,130,461.1,21,0)"
^XMB(3.9,148,2,16612,0)="^^3^3^3060705^"
^XMB(3.9,148,2,16613,0)="""^DD"",130,130,461.1,21,1,0)"
^XMB(3.9,148,2,16614,0)="CICSP Definition (2006):"
^XMB(3.9,148,2,16615,0)="""^DD"",130,130,461.1,21,2,0)"
^XMB(3.9,148,2,16616,0)="Indicate the date that the preoperative LDL value was assessed. "
^XMB(3.9,148,2,16617,0)="""^DD"",130,130,461.1,21,3,0)"
^XMB(3.9,148,2,16618,0)="Enter ""NS"" for No Study if the LDL test was not performed."
^XMB(3.9,148,2,16619,0)="""^DD"",130,130,461.1,""DT"")"
^XMB(3.9,148,2,16620,0)="3060222"
^XMB(3.9,148,2,16621,0)="""^DD"",130,130,462,0)"
^XMB(3.9,148,2,16622,0)="TOTAL CHOLESTEROL (CARDIAC)^FX^^201;26^K:$L(X)>6!($L(X)<1) X I $D(X) D NUM^SROAL21"
^XMB(3.9,148,2,16623,0)="""^DD"",130,130,462,.1)"
^XMB(3.9,148,2,16624,0)="Total Cholesterol (mg/dl)"
^XMB(3.9,148,2,16625,0)="""^DD"",130,130,462,3)"
^XMB(3.9,148,2,16626,0)="Answer must be 1-6 characters in length."
^XMB(3.9,148,2,16627,0)="""^DD"",130,130,462,21,0)"
^XMB(3.9,148,2,16628,0)="^^3^3^3060705^"
^XMB(3.9,148,2,16629,0)="""^DD"",130,130,462,21,1,0)"
^XMB(3.9,148,2,16630,0)="CICSP Definition (2006):"
^XMB(3.9,148,2,16631,0)="""^DD"",130,130,462,21,2,0)"
^XMB(3.9,148,2,16632,0)="Indicate the Total Cholesterol result (mg/dl) preoperatively evaluated "
^XMB(3.9,148,2,16633,0)="""^DD"",130,130,462,21,3,0)"
^XMB(3.9,148,2,16634,0)="closest to surgery. Entering ""NS"" for ""No Study"" is allowed."
^XMB(3.9,148,2,16635,0)="""^DD"",130,130,462,""DT"")"
^XMB(3.9,148,2,16636,0)="3060222"
^XMB(3.9,148,2,16637,0)="""^DD"",130,130,462.1,0)"
^XMB(3.9,148,2,16638,0)="TOTAL CHOLESTEROL, DATE^FXO^^202;26^N SRX S SRX=X,%DT=""EX"" D ^%DT S X=Y K:Y<1 X S:SRX=""NS""!(SRX=""ns"") X=""NS"""
^XMB(3.9,148,2,16639,0)="""^DD"",130,130,462.1,.1)"
^XMB(3.9,148,2,16640,0)="Total Cholesterol, Date"
^XMB(3.9,148,2,16641,0)="""^DD"",130,130,462.1,2)"
^XMB(3.9,148,2,16642,0)="S Y(0)=Y S Y(0)=Y D DATE^SROAUTL"
^XMB(3.9,148,2,16643,0)="""^DD"",130,130,462.1,2.1)"
^XMB(3.9,148,2,16644,0)="S Y(0)=Y D DATE^SROAUTL"
^XMB(3.9,148,2,16645,0)="""^DD"",130,130,462.1,3)"
^XMB(3.9,148,2,16646,0)="This is the date that the Total Cholesterol was performed and must not be more than 1000 days before surgery."
^XMB(3.9,148,2,16647,0)="""^DD"",130,130,462.1,21,0)"
^XMB(3.9,148,2,16648,0)="^^4^4^3060705^"
^XMB(3.9,148,2,16649,0)="""^DD"",130,130,462.1,21,1,0)"
^XMB(3.9,148,2,16650,0)="CICSP Definition (2006):"
^XMB(3.9,148,2,16651,0)="""^DD"",130,130,462.1,21,2,0)"
^XMB(3.9,148,2,16652,0)="Indicate the date that the preoperative Total Cholesterol value was "
^XMB(3.9,148,2,16653,0)="""^DD"",130,130,462.1,21,3,0)"
^XMB(3.9,148,2,16654,0)="assessed. Enter ""NS"" for No Study if the Cholesterol test was not"
^XMB(3.9,148,2,16655,0)="""^DD"",130,130,462.1,21,4,0)"
^XMB(3.9,148,2,16656,0)="performed."
^XMB(3.9,148,2,16657,0)="""^DD"",130,130,462.1,""DT"")"
^XMB(3.9,148,2,16658,0)="3060222"
^XMB(3.9,148,2,16659,0)="""^DD"",130,130,470,0)"
^XMB(3.9,148,2,16660,0)="D/T PATIENT EXTUBATED^FXO^^208;22^N SRX S SRX=X,%DT=""ERTXP"" D ^%DT S X=Y K:Y<1 X S:SRX=""RI""!(SRX=""ri"") X=""RI"""
^XMB(3.9,148,2,16661,0)="""^DD"",130,130,470,.1)"
^XMB(3.9,148,2,16662,0)="Date and Time Patient Extubated"
^XMB(3.9,148,2,16663,0)="""^DD"",130,130,470,2)"
^XMB(3.9,148,2,16664,0)="S Y(0)=Y S Y(0)=Y D DATE^SROAUTL"
^XMB(3.9,148,2,16665,0)="""^DD"",130,130,470,2.1)"
^XMB(3.9,148,2,16666,0)="S Y(0)=Y D DATE^SROAUTL"
^XMB(3.9,148,2,16667,0)="""^DD"",130,130,470,3)"
^XMB(3.9,148,2,16668,0)="Enter the exact date and time that the endotracheal tube is pulled for the final time after the surgery."
^XMB(3.9,148,2,16669,0)="""^DD"",130,130,470,21,0)"
^XMB(3.9,148,2,16670,0)="^^10^10^3040721^"
^XMB(3.9,148,2,16671,0)="""^DD"",130,130,470,21,1,0)"
^XMB(3.9,148,2,16672,0)="CICSP Definition (2004): "
^XMB(3.9,148,2,16673,0)="""^DD"",130,130,470,21,2,0)"
^XMB(3.9,148,2,16674,0)="Indicate the date that the endotracheal tube is pulled for the first"
^XMB(3.9,148,2,16675,0)="""^DD"",130,130,470,21,3,0)"
^XMB(3.9,148,2,16676,0)="time after surgery. If a tracheostomy is performed to replace an oral"
^XMB(3.9,148,2,16677,0)="""^DD"",130,130,470,21,4,0)"
^XMB(3.9,148,2,16678,0)="intubation tube, intubation is considered continuous so the patient has"
^XMB(3.9,148,2,16679,0)="""^DD"",130,130,470,21,5,0)"
^XMB(3.9,148,2,16680,0)="not been extubated. If the patient dies while intubated, indicate the"
^XMB(3.9,148,2,16681,0)="""^DD"",130,130,470,21,6,0)"
^XMB(3.9,148,2,16682,0)="date of death for this data element. Indicate ""extubated prior to"
^XMB(3.9,148,2,16683,0)="""^DD"",130,130,470,21,7,0)"
^XMB(3.9,148,2,16684,0)="leaving the OR"" in the Resource Comment if patient is extubated prior"
^XMB(3.9,148,2,16685,0)="""^DD"",130,130,470,21,8,0)"
^XMB(3.9,148,2,16686,0)="to leaving the OR."
^XMB(3.9,148,2,16687,0)="""^DD"",130,130,470,21,9,0)"
^XMB(3.9,148,2,16688,0)=" "
^XMB(3.9,148,2,16689,0)="""^DD"",130,130,470,21,10,0)"
^XMB(3.9,148,2,16690,0)="RI - The patient remains intubated at 30 days after surgery."
^XMB(3.9,148,2,16691,0)="""^DD"",130,130,470,""DT"")"
^XMB(3.9,148,2,16692,0)="3060314"
^XMB(3.9,148,2,16693,0)="""^DD"",130,130,471,0)"
^XMB(3.9,148,2,16694,0)="D/T PATIENT DISCH FROM ICU^FXO^^208;23^N SRX S SRX=X,%DT=""ERTXP"" D ^%DT S X=Y K:Y<1 X S:SRX=""RI""!(SRX=""ri"") X=""RI"""
^XMB(3.9,148,2,16695,0)="""^DD"",130,130,471,.1)"
^XMB(3.9,148,2,16696,0)="Date and Time Patient Discharged from ICU"
^XMB(3.9,148,2,16697,0)="""^DD"",130,130,471,2)"
^XMB(3.9,148,2,16698,0)="S Y(0)=Y S Y(0)=Y D DATE^SROAUTL"
^XMB(3.9,148,2,16699,0)="""^DD"",130,130,471,2.1)"
^XMB(3.9,148,2,16700,0)="S Y(0)=Y D DATE^SROAUTL"
^XMB(3.9,148,2,16701,0)="""^DD"",130,130,471,3)"
^XMB(3.9,148,2,16702,0)="Enter the first date and time of the discharge from the intensive care unit (ICU). "
^XMB(3.9,148,2,16703,0)="""^DD"",130,130,471,21,0)"
^XMB(3.9,148,2,16704,0)="^^10^10^3040311^"
^XMB(3.9,148,2,16705,0)="""^DD"",130,130,471,21,1,0)"
^XMB(3.9,148,2,16706,0)="CICSP Definition (2004):"
^XMB(3.9,148,2,16707,0)="""^DD"",130,130,471,21,2,0)"
^XMB(3.9,148,2,16708,0)="This is the first date and time of the discharge from the intensive "
^XMB(3.9,148,2,16709,0)="""^DD"",130,130,471,21,3,0)"
^XMB(3.9,148,2,16710,0)="care unit (ICU). ICU is usually a surgical unit (SICU), although it "
^XMB(3.9,148,2,16711,0)="""^DD"",130,130,471,21,4,0)"
^XMB(3.9,148,2,16712,0)="may also include a post-anesthesia recovery unit off the operating room."
^XMB(3.9,148,2,16713,0)="""^DD"",130,130,471,21,5,0)"
^XMB(3.9,148,2,16714,0)="It may also be a general ICU in which medical patients are also managed"
^XMB(3.9,148,2,16715,0)="""^DD"",130,130,471,21,6,0)"
^XMB(3.9,148,2,16716,0)="(MICU, CCU). This will always be the unit into which the patient goes"
^XMB(3.9,148,2,16717,0)="""^DD"",130,130,471,21,7,0)"
^XMB(3.9,148,2,16718,0)="immediately after surgery and is stabilized, ventilated and ultimately"
^XMB(3.9,148,2,16719,0)="""^DD"",130,130,471,21,8,0)"
^XMB(3.9,148,2,16720,0)="extubated. Do not include lower acuity units where the patient goes"
^XMB(3.9,148,2,16721,0)="""^DD"",130,130,471,21,9,0)"
^XMB(3.9,148,2,16722,0)="subsequently (i.e. stepdown, transitional care, telemetry, etc.). Do "
^XMB(3.9,148,2,16723,0)="""^DD"",130,130,471,21,10,0)"
^XMB(3.9,148,2,16724,0)="not include subsequent readmissions to the ICU."
^XMB(3.9,148,2,16725,0)="""^DD"",130,130,471,""DT"")"
^XMB(3.9,148,2,16726,0)="3060314"
^XMB(3.9,148,2,16727,0)="""^DD"",130,130,475,0)"
^XMB(3.9,148,2,16728,0)="DIABETES (CARDIAC)^S^N:NO;D:DIET;O:ORAL;I:INSULIN;^209;3^Q"
^XMB(3.9,148,2,16729,0)="""^DD"",130,130,475,.1)"
^XMB(3.9,148,2,16730,0)="Diabetes"
^XMB(3.9,148,2,16731,0)="""^DD"",130,130,475,3)"
^XMB(3.9,148,2,16732,0)="Enter the patient's diabetes status."
^XMB(3.9,148,2,16733,0)="""^DD"",130,130,475,21,0)"
^XMB(3.9,148,2,16734,0)="^^16^16^3060308^"
^XMB(3.9,148,2,16735,0)="""^DD"",130,130,475,21,1,0)"
^XMB(3.9,148,2,16736,0)="CICSP Definition (2006):"
^XMB(3.9,148,2,16737,0)="""^DD"",130,130,475,21,2,0)"
^XMB(3.9,148,2,16738,0)="Indicate if the patient has diabetes treated with diet, oral, and/or "
^XMB(3.9,148,2,16739,0)="""^DD"",130,130,475,21,3,0)"
^XMB(3.9,148,2,16740,0)="insulin therapy. Diabetes is defined as a metabolic disorder of the "
^XMB(3.9,148,2,16741,0)="""^DD"",130,130,475,21,4,0)"
^XMB(3.9,148,2,16742,0)="pancreas whereby the individual requires daily dosages of exogenous "
^XMB(3.9,148,2,16743,0)="""^DD"",130,130,475,21,5,0)"
^XMB(3.9,148,2,16744,0)="parenteral insulin or an oral hypoglycemic agent to prevent a "
^XMB(3.9,148,2,16745,0)="""^DD"",130,130,475,21,6,0)"
^XMB(3.9,148,2,16746,0)="hyperglycemic/metabolic acidosis. If the patient is on both Oral and "
^XMB(3.9,148,2,16747,0)="""^DD"",130,130,475,21,7,0)"
^XMB(3.9,148,2,16748,0)="Insulin therapy, indicate Insulin therapy. Indicate the one most "
^XMB(3.9,148,2,16749,0)="""^DD"",130,130,475,21,8,0)"
^XMB(3.9,148,2,16750,0)="appropriate response."
^XMB(3.9,148,2,16751,0)="""^DD"",130,130,475,21,9,0)"
^XMB(3.9,148,2,16752,0)="No - no diagnosis of diabetes. "
^XMB(3.9,148,2,16753,0)="""^DD"",130,130,475,21,10,0)"
^XMB(3.9,148,2,16754,0)="Diet - a diagnosis of diabetes that is controlled by diet alone in the "
^XMB(3.9,148,2,16755,0)="""^DD"",130,130,475,21,11,0)"
^XMB(3.9,148,2,16756,0)="two weeks preceding surgery (the only prescribed treatment has been"
^XMB(3.9,148,2,16757,0)="""^DD"",130,130,475,21,12,0)"
^XMB(3.9,148,2,16758,0)="diabetic relief)."
^XMB(3.9,148,2,16759,0)="""^DD"",130,130,475,21,13,0)"
^XMB(3.9,148,2,16760,0)="Oral - a diagnosis of diabetes requiring therapy with an oral "
^XMB(3.9,148,2,16761,0)="""^DD"",130,130,475,21,14,0)"
^XMB(3.9,148,2,16762,0)="hypoglycemic agent in the two weeks preceding surgery."
^XMB(3.9,148,2,16763,0)="""^DD"",130,130,475,21,15,0)"
^XMB(3.9,148,2,16764,0)="Insulin - a diagnosis of diabetes requiring daily insulin therapy "
^XMB(3.9,148,2,16765,0)="""^DD"",130,130,475,21,16,0)"
^XMB(3.9,148,2,16766,0)="in the two weeks preceding surgery."
^XMB(3.9,148,2,16767,0)="""^DD"",130,130,475,""DT"")"
^XMB(3.9,148,2,16768,0)="3060308"
^XMB(3.9,148,2,16769,0)="""^DD"",130,130,477,0)"
^XMB(3.9,148,2,16770,0)="AORTIC STENOSIS^S^0:NONE/TRIVIAL;1:MILD;2:MODERATE;3:SEVERE;NS:NO STUDY;^209;5^Q"
^XMB(3.9,148,2,16771,0)="""^DD"",130,130,477,.1)"
^XMB(3.9,148,2,16772,0)="Aortic Stenosis"
^XMB(3.9,148,2,16773,0)="""^DD"",130,130,477,3)"
^XMB(3.9,148,2,16774,0)="Enter severity of aortic stenosis using LV angiogram or cardiac ultrasound."
^XMB(3.9,148,2,16775,0)="""^DD"",130,130,477,21,0)"
^XMB(3.9,148,2,16776,0)="^^30^30^3060112^"
^XMB(3.9,148,2,16777,0)="""^DD"",130,130,477,21,1,0)"
^XMB(3.9,148,2,16778,0)="CICSP Definition (2006):"
^XMB(3.9,148,2,16779,0)="""^DD"",130,130,477,21,2,0)"
^XMB(3.9,148,2,16780,0)="Indicate the severity of any aortic stenosis documented. This question"
^XMB(3.9,148,2,16781,0)="""^DD"",130,130,477,21,3,0)"
^XMB(3.9,148,2,16782,0)="should be answered using either the left ventricular angiogram"
^XMB(3.9,148,2,16783,0)="""^DD"",130,130,477,21,4,0)"
^XMB(3.9,148,2,16784,0)="(hemodynamic cath data) or the cardiac ultrasound examination. Numbers"
^XMB(3.9,148,2,16785,0)="""^DD"",130,130,477,21,5,0)"
^XMB(3.9,148,2,16786,0)="may be converted to describe the severity of the aortic stenosis"
^XMB(3.9,148,2,16787,0)="""^DD"",130,130,477,21,6,0)"
^XMB(3.9,148,2,16788,0)="on the cardiac cath report to the adjectives describing the severity:"
^XMB(3.9,148,2,16789,0)="""^DD"",130,130,477,21,7,0)"
^XMB(3.9,148,2,16790,0)="1+ = mild, 2 or 3+ = moderate, and 4+ = severe. Both transvalvular"
^XMB(3.9,148,2,16791,0)="""^DD"",130,130,477,21,8,0)"
^XMB(3.9,148,2,16792,0)="gradient and estimated valve orifice area are used to assess the "
^XMB(3.9,148,2,16793,0)="""^DD"",130,130,477,21,9,0)"
^XMB(3.9,148,2,16794,0)="severity of obstruction (stenosis) of a valve. The transvalvular"
^XMB(3.9,148,2,16795,0)="""^DD"",130,130,477,21,10,0)"
^XMB(3.9,148,2,16796,0)="pressure gradient is obtained by converting the velocity of blood flow"
^XMB(3.9,148,2,16797,0)="""^DD"",130,130,477,21,11,0)"
^XMB(3.9,148,2,16798,0)="across the valve measured by the Doppler principle to pressure drop "
^XMB(3.9,148,2,16799,0)="""^DD"",130,130,477,21,12,0)"
^XMB(3.9,148,2,16800,0)="using the Bernoulli equation. The pressure drop, which is dependent on"
^XMB(3.9,148,2,16801,0)="""^DD"",130,130,477,21,13,0)"
^XMB(3.9,148,2,16802,0)="flow, can be converted to estimated valve orifice area if flow is "
^XMB(3.9,148,2,16803,0)="""^DD"",130,130,477,21,14,0)"
^XMB(3.9,148,2,16804,0)="known. If the echo report uses an adjective to describe the severity of"
^XMB(3.9,148,2,16805,0)="""^DD"",130,130,477,21,15,0)"
^XMB(3.9,148,2,16806,0)="stenosis, indicate the corresponding adjective. Use the following to"
^XMB(3.9,148,2,16807,0)="""^DD"",130,130,477,21,16,0)"
^XMB(3.9,148,2,16808,0)="convert mean (not peak) transvalvular gradients, orifice areas, or "
^XMB(3.9,148,2,16809,0)="""^DD"",130,130,477,21,17,0)"
^XMB(3.9,148,2,16810,0)="both, to the descriptive categories. Indicate the one most appropriate"
^XMB(3.9,148,2,16811,0)="""^DD"",130,130,477,21,18,0)"
^XMB(3.9,148,2,16812,0)="response:"
^XMB(3.9,148,2,16813,0)="""^DD"",130,130,477,21,19,0)"
^XMB(3.9,148,2,16814,0)=" "
^XMB(3.9,148,2,16815,0)="""^DD"",130,130,477,21,20,0)"
^XMB(3.9,148,2,16816,0)="None/Trivial - The mean pressure gradient is < 5 mm Hg, and/or orifice "
^XMB(3.9,148,2,16817,0)="""^DD"",130,130,477,21,21,0)"
^XMB(3.9,148,2,16818,0)="    area is > 2.5 cm2, and/or the aortic valve leaflets or aortic flow "
^XMB(3.9,148,2,16819,0)="""^DD"",130,130,477,21,22,0)"
^XMB(3.9,148,2,16820,0)="    velocity is stated to be normal (< 1.0 M/sec)."
^XMB(3.9,148,2,16821,0)="""^DD"",130,130,477,21,23,0)"
^XMB(3.9,148,2,16822,0)="Mild - The mean pressure gradient is 5 - 20 mm Hg and/or the orifice "
^XMB(3.9,148,2,16823,0)="""^DD"",130,130,477,21,24,0)"
^XMB(3.9,148,2,16824,0)="    area is 1.7 - 2.5 cm2"
^XMB(3.9,148,2,16825,0)="""^DD"",130,130,477,21,25,0)"
^XMB(3.9,148,2,16826,0)="Moderate - The mean pressure gradient is >20 - 50 mm Hg and/or the "
^XMB(3.9,148,2,16827,0)="""^DD"",130,130,477,21,26,0)"
^XMB(3.9,148,2,16828,0)="    valve orifice area is 1.0 -1.5 cm2"
^XMB(3.9,148,2,16829,0)="""^DD"",130,130,477,21,27,0)"
^XMB(3.9,148,2,16830,0)="Severe - The mean pressure gradient is > 50 mm Hg and/or the valve "
^XMB(3.9,148,2,16831,0)="""^DD"",130,130,477,21,28,0)"
^XMB(3.9,148,2,16832,0)="    orifice area is < 1.0 cm2"
^XMB(3.9,148,2,16833,0)="""^DD"",130,130,477,21,29,0)"
^XMB(3.9,148,2,16834,0)="No Study - If no study was performed, entering ""NS"" for ""No "
^XMB(3.9,148,2,16835,0)="""^DD"",130,130,477,21,30,0)"
^XMB(3.9,148,2,16836,0)="    Study/Unknown"" is also allowed. "
^XMB(3.9,148,2,16837,0)="""^DD"",130,130,477,""DT"")"
^XMB(3.9,148,2,16838,0)="3060112"
^XMB(3.9,148,2,16839,0)="""^DD"",130,130,481,0)"
^XMB(3.9,148,2,16840,0)="BRIDGE TO TRANSPLANT/DEVICE^S^Y:YES;N:NO;^209;9^Q"
^XMB(3.9,148,2,16841,0)="""^DD"",130,130,481,.1)"
^XMB(3.9,148,2,16842,0)="Device for bridge to cardiac transplant / Destination therapy"
^XMB(3.9,148,2,16843,0)="""^DD"",130,130,481,3)"
^XMB(3.9,148,2,16844,0)="Enter 'YES' if patient received a mechanical support device as a bridge to cardiac transplant."
^XMB(3.9,148,2,16845,0)="""^DD"",130,130,481,21,0)"
^XMB(3.9,148,2,16846,0)="^^6^6^3060209^^"
^XMB(3.9,148,2,16847,0)="""^DD"",130,130,481,21,1,0)"
^XMB(3.9,148,2,16848,0)="CICSP Definition (2006):"
^XMB(3.9,148,2,16849,0)="""^DD"",130,130,481,21,2,0)"
^XMB(3.9,148,2,16850,0)="Indicate if patient received a mechanical support device "
^XMB(3.9,148,2,16851,0)="""^DD"",130,130,481,21,3,0)"
^XMB(3.9,148,2,16852,0)="(excluding IABP) as a bridge to cardiac transplant during the same"
^XMB(3.9,148,2,16853,0)="""^DD"",130,130,481,21,4,0)"
^XMB(3.9,148,2,16854,0)="admission as the transplant procedure; or patient received the device"
^XMB(3.9,148,2,16855,0)="""^DD"",130,130,481,21,5,0)"
^XMB(3.9,148,2,16856,0)="as destination therapy (does not intend to have a cardiac transplant),"
^XMB(3.9,148,2,16857,0)="""^DD"",130,130,481,21,6,0)"
^XMB(3.9,148,2,16858,0)="either with or without placing the patient on cardiopulmonary bypass."
^XMB(3.9,148,2,16859,0)="""^DD"",130,130,481,""DT"")"
^XMB(3.9,148,2,16860,0)="3060209"
^XMB(3.9,148,2,16861,0)="""^DD"",130,130,482,0)"
^XMB(3.9,148,2,16862,0)="*MAZE PROCEDURE^S^Y:YES;N:NO;^209;10^Q"
^XMB(3.9,148,2,16863,0)="""^DD"",130,130,482,.1)"
^XMB(3.9,148,2,16864,0)="*Maze Procedure"
^XMB(3.9,148,2,16865,0)="""^DD"",130,130,482,3)"
^XMB(3.9,148,2,16866,0)="Enter Yes if Maze procedure was done."
^XMB(3.9,148,2,16867,0)="""^DD"",130,130,482,21,0)"
^XMB(3.9,148,2,16868,0)="^^7^7^3060330^"
^XMB(3.9,148,2,16869,0)="""^DD"",130,130,482,21,1,0)"
^XMB(3.9,148,2,16870,0)="CICSP Definition (2004):"
^XMB(3.9,148,2,16871,0)="""^DD"",130,130,482,21,2,0)"
^XMB(3.9,148,2,16872,0)="Indicate if patient had a Maze procedure either with or without"
^XMB(3.9,148,2,16873,0)="""^DD"",130,130,482,21,3,0)"
^XMB(3.9,148,2,16874,0)="placing the patient on cardiopulmonary bypass. A Maze procedure is"
^XMB(3.9,148,2,16875,0)="""^DD"",130,130,482,21,4,0)"
^XMB(3.9,148,2,16876,0)="a surgical intervention used to interrupt atrial conduction pathways"
^XMB(3.9,148,2,16877,0)="""^DD"",130,130,482,21,5,0)"
^XMB(3.9,148,2,16878,0)="often associated with atrial fibrillation or atrial flutter. It may"
^XMB(3.9,148,2,16879,0)="""^DD"",130,130,482,21,6,0)"
^XMB(3.9,148,2,16880,0)="be performed alone or in combination with other cardiac procedures."
^XMB(3.9,148,2,16881,0)="""^DD"",130,130,482,21,7,0)"
^XMB(3.9,148,2,16882,0)="(YES/NO)."
^XMB(3.9,148,2,16883,0)="""^DD"",130,130,482,""DT"")"
^XMB(3.9,148,2,16884,0)="3060405"
^XMB(3.9,148,2,16885,0)="""^DD"",130,130,484,0)"
^XMB(3.9,148,2,16886,0)="OTHER CARDIAC PROCEDURES-LIST^FX^^209.1;1^S NYUK=X K:$L(X)>60!($L(X)<3) X S:NYUK=""NS""!(NYUK=""ns"") X=""NS"" K NYUK"
^XMB(3.9,148,2,16887,0)="""^DD"",130,130,484,.1)"
^XMB(3.9,148,2,16888,0)="Other cardiac procedures (specify)"
^XMB(3.9,148,2,16889,0)="""^DD"",130,130,484,3)"
^XMB(3.9,148,2,16890,0)="Answer must be 3-60 characters in length."
^XMB(3.9,148,2,16891,0)="""^DD"",130,130,484,21,0)"
^XMB(3.9,148,2,16892,0)="^.001^4^4^3060705^^"
^XMB(3.9,148,2,16893,0)="""^DD"",130,130,484,21,1,0)"
^XMB(3.9,148,2,16894,0)="CICSP Definition (2006):"
^XMB(3.9,148,2,16895,0)="""^DD"",130,130,484,21,2,0)"
^XMB(3.9,148,2,16896,0)="Specify if any cardiac surgical procedure (not listed above) was"
^XMB(3.9,148,2,16897,0)="""^DD"",130,130,484,21,3,0)"
^XMB(3.9,148,2,16898,0)="performed alone or in conjunction with the index procedure, either"
^XMB(3.9,148,2,16899,0)="""^DD"",130,130,484,21,4,0)"
^XMB(3.9,148,2,16900,0)="with or without placing the patient on cardiopulmonary bypass."
^XMB(3.9,148,2,16901,0)="""^DD"",130,130,484,""DT"")"
^XMB(3.9,148,2,16902,0)="3060404"
^XMB(3.9,148,2,16903,0)="""^DD"",130,130,487.1,0)"
^XMB(3.9,148,2,16904,0)="PREOPERATIVE INR, DATE^DX^^202;27^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,148,2,16905,0)="""^DD"",130,130,487.1,.1)"
^XMB(3.9,148,2,16906,0)="Date Preoperative INR was Performed"
^XMB(3.9,148,2,16907,0)="""^DD"",130,130,487.1,3)"
^XMB(3.9,148,2,16908,0)="Enter the date that the preoperative INR was performed."
^XMB(3.9,148,2,16909,0)="""^DD"",130,130,487.1,21,0)"
^XMB(3.9,148,2,16910,0)="^.001^1^1^3060127^^^"
^XMB(3.9,148,2,16911,0)="""^DD"",130,130,487.1,21,1,0)"
^XMB(3.9,148,2,16912,0)="This is the date that the preoperative INR was performed."
^XMB(3.9,148,2,16913,0)="""^DD"",130,130,487.1,""DT"")"
^XMB(3.9,148,2,16914,0)="3060127"
^XMB(3.9,148,2,16915,0)="""^DD"",130,130,502,0)"
^XMB(3.9,148,2,16916,0)="OTHER CARDIAC PROCEDURES (Y/N)^S^Y:YES;N:NO;^209;13^Q"
^XMB(3.9,148,2,16917,0)="""^DD"",130,130,502,.1)"
^XMB(3.9,148,2,16918,0)="Other Cardiac Procedures (Y/N)"
^XMB(3.9,148,2,16919,0)="""^DD"",130,130,502,3)"
^XMB(3.9,148,2,16920,0)="Enter 'YES' if there are other cardiac procedures. "
^XMB(3.9,148,2,16921,0)="""^DD"",130,130,502,21,0)"
^XMB(3.9,148,2,16922,0)="^^4^4^3060705^"
^XMB(3.9,148,2,16923,0)="""^DD"",130,130,502,21,1,0)"
^XMB(3.9,148,2,16924,0)="CICSP Definition (2006):"
^XMB(3.9,148,2,16925,0)="""^DD"",130,130,502,21,2,0)"
^XMB(3.9,148,2,16926,0)="Indicate if any cardiac surgical procedure (not listed above) was"
^XMB(3.9,148,2,16927,0)="""^DD"",130,130,502,21,3,0)"
^XMB(3.9,148,2,16928,0)="performed alone or in conjunction with the index procedure, either with"
^XMB(3.9,148,2,16929,0)="""^DD"",130,130,502,21,4,0)"
^XMB(3.9,148,2,16930,0)="or without placing the patient on cardiopulmonary bypass (YES/NO)."
^XMB(3.9,148,2,16931,0)="""^DD"",130,130,502,""DT"")"
^XMB(3.9,148,2,16932,0)="3060320"
^XMB(3.9,148,2,16933,0)="""^DD"",130,130,504,0)"
^XMB(3.9,148,2,16934,0)="HEMOGLOBIN A1C^FX^^201;28^S:X=""NS""!(X=""ns"") X=""NS"" Q:X=""NS""  K:$L(X)>6!($L(X)<1) X"
^XMB(3.9,148,2,16935,0)="""^DD"",130,130,504,.1)"
^XMB(3.9,148,2,16936,0)="Hemoglobin A1c"
^XMB(3.9,148,2,16937,0)="""^DD"",130,130,504,3)"
^XMB(3.9,148,2,16938,0)="Answer must be 1-6 characters in length."
^XMB(3.9,148,2,16939,0)="""^DD"",130,130,504,21,0)"
^XMB(3.9,148,2,16940,0)="^^3^3^3060705^"
^XMB(3.9,148,2,16941,0)="""^DD"",130,130,504,21,1,0)"
^XMB(3.9,148,2,16942,0)="CICSP Definition (2006):"
^XMB(3.9,148,2,16943,0)="""^DD"",130,130,504,21,2,0)"
^XMB(3.9,148,2,16944,0)="Indicate the Hemoglobin A1c result (%) preoperatively evaluated closest"
^XMB(3.9,148,2,16945,0)="""^DD"",130,130,504,21,3,0)"
^XMB(3.9,148,2,16946,0)="to surgery. Entering ""NS"" for ""No Study"" is allowed."
^XMB(3.9,148,2,16947,0)="""^DD"",130,130,504,""DT"")"
^XMB(3.9,148,2,16948,0)="3060411"
^XMB(3.9,148,2,16949,0)="""^DD"",130,130,504.1,0)"
^XMB(3.9,148,2,16950,0)="HEMOGLOBIN A1C, DATE^FXO^^202.1;1^N SRX S SRX=X,%DT=""EX"" D ^%DT S X=Y K:Y<1 X S:SRX=""NS""!(SRX=""ns"") X=""NS"""
^XMB(3.9,148,2,16951,0)="""^DD"",130,130,504.1,.1)"
^XMB(3.9,148,2,16952,0)="Hemoglobin A1c, Date"
^XMB(3.9,148,2,16953,0)="""^DD"",130,130,504.1,2)"
^XMB(3.9,148,2,16954,0)="S Y(0)=Y S Y(0)=Y D DATE^SROAUTL"
^XMB(3.9,148,2,16955,0)="""^DD"",130,130,504.1,2.1)"
^XMB(3.9,148,2,16956,0)="S Y(0)=Y D DATE^SROAUTL"
^XMB(3.9,148,2,16957,0)="""^DD"",130,130,504.1,3)"
^XMB(3.9,148,2,16958,0)="This is the date that the Hemoglobin A1c was performed and must not be more than 1000 days before surgery."
^XMB(3.9,148,2,16959,0)="""^DD"",130,130,504.1,21,0)"
^XMB(3.9,148,2,16960,0)="^^4^4^3060705^"
^XMB(3.9,148,2,16961,0)="""^DD"",130,130,504.1,21,1,0)"
^XMB(3.9,148,2,16962,0)="CICSP Definition (2006):"
^XMB(3.9,148,2,16963,0)="""^DD"",130,130,504.1,21,2,0)"
^XMB(3.9,148,2,16964,0)="Indicate the date that the preoperative Hemoglobin A1c value was "
^XMB(3.9,148,2,16965,0)="""^DD"",130,130,504.1,21,3,0)"
^XMB(3.9,148,2,16966,0)="assessed. Enter ""NS"" for No Study if the Hemoglobin A1c test was not"
^XMB(3.9,148,2,16967,0)="""^DD"",130,130,504.1,21,4,0)"
^XMB(3.9,148,2,16968,0)="performed."
^XMB(3.9,148,2,16969,0)="""^DD"",130,130,504.1,""DT"")"
^XMB(3.9,148,2,16970,0)="3060705"
^XMB(3.9,148,2,16971,0)="""^DD"",130,130,505,0)"
^XMB(3.9,148,2,16972,0)="ENDOVASCULAR REPAIR^S^Y:YES;N:NO;^207.1;2^Q"
^XMB(3.9,148,2,16973,0)="""^DD"",130,130,505,.1)"
^XMB(3.9,148,2,16974,0)="Endovascular Repair of Descending Thoracic Aorta"
^XMB(3.9,148,2,16975,0)="""^DD"",130,130,505,3)"
^XMB(3.9,148,2,16976,0)="Enter Yes if an endovascular repair of the descending thoracic aorta was done with a cardiothoracic surgeon attending."
^XMB(3.9,148,2,16977,0)="""^DD"",130,130,505,21,0)"
^XMB(3.9,148,2,16978,0)="^^12^12^3060314^"
^XMB(3.9,148,2,16979,0)="""^DD"",130,130,505,21,1,0)"
^XMB(3.9,148,2,16980,0)="CICSP Definition (2006): "
^XMB(3.9,148,2,16981,0)="""^DD"",130,130,505,21,2,0)"
^XMB(3.9,148,2,16982,0)="Indicate if the patient had an endovascular repair of the descending"
^XMB(3.9,148,2,16983,0)="""^DD"",130,130,505,21,3,0)"
^XMB(3.9,148,2,16984,0)="thoracic aorta (e.g., aneurysm, pseudoaneurysm, dissection, penetrating"
^XMB(3.9,148,2,16985,0)="""^DD"",130,130,505,21,4,0)"
^XMB(3.9,148,2,16986,0)="ulcer, intramural hematoma, or traumatic disruption) with or without"
^XMB(3.9,148,2,16987,0)="""^DD"",130,130,505,21,5,0)"
^XMB(3.9,148,2,16988,0)="involving coverage of left subclavian artery origin, initial"
^XMB(3.9,148,2,16989,0)="""^DD"",130,130,505,21,6,0)"
^XMB(3.9,148,2,16990,0)="endoprosthesis plus descending thoracic aortic extension(s), if"
^XMB(3.9,148,2,16991,0)="""^DD"",130,130,505,21,7,0)"
^XMB(3.9,148,2,16992,0)="required, to level of celiac artery origin, with or without"
^XMB(3.9,148,2,16993,0)="""^DD"",130,130,505,21,8,0)"
^XMB(3.9,148,2,16994,0)="cardiopulmonary bypass. To include in CICSP, an attending "
^XMB(3.9,148,2,16995,0)="""^DD"",130,130,505,21,9,0)"
^XMB(3.9,148,2,16996,0)="cardiothoracic surgeon must have been present and involved in the"
^XMB(3.9,148,2,16997,0)="""^DD"",130,130,505,21,10,0)"
^XMB(3.9,148,2,16998,0)="procedure. It is typically done under general anesthesia and may be "
^XMB(3.9,148,2,16999,0)="""^DD"",130,130,505,21,11,0)"
^XMB(3.9,148,2,17000,0)="performed in the operating room or interventional radiology operating "
^XMB(3.9,148,2,17001,0)="""^DD"",130,130,505,21,12,0)"
^XMB(3.9,148,2,17002,0)="area."
^XMB(3.9,148,2,17003,0)="""^DD"",130,130,505,""DT"")"
^XMB(3.9,148,2,17004,0)="3060314"
^XMB(3.9,148,2,17005,0)="""^DD"",130,130,506,0)"
^XMB(3.9,148,2,17006,0)="HAIR REMOVAL METHOD^S^C:CLIPPER;D:DEPILATORY;N:NO HAIR REMOVED;P:PATIENT REMOVED OWN HAIR;S:SHAVING;U:NOT DOCUMENTED;O:OTHER;^VER;6^Q"
^XMB(3.9,148,2,17007,0)="""^DD"",130,130,506,.1)"
^XMB(3.9,148,2,17008,0)="Surgical Site Hair Removal Method"
^XMB(3.9,148,2,17009,0)="""^DD"",130,130,506,1,0)"
^XMB(3.9,148,2,17010,0)="^.1"
^XMB(3.9,148,2,17011,0)="""^DD"",130,130,506,1,1,0)"
^XMB(3.9,148,2,17012,0)="130^AN^MUMPS"
^XMB(3.9,148,2,17013,0)="""^DD"",130,130,506,1,1,1)"
^XMB(3.9,148,2,17014,0)="D HR^SRENSCS"
^XMB(3.9,148,2,17015,0)="""^DD"",130,130,506,1,1,2)"
^XMB(3.9,148,2,17016,0)="Q"
^XMB(3.9,148,2,17017,0)="""^DD"",130,130,506,1,1,""%D"",0)"
^XMB(3.9,148,2,17018,0)="^^2^2^3060315^"
^XMB(3.9,148,2,17019,0)="""^DD"",130,130,506,1,1,""%D"",1,0)"
^XMB(3.9,148,2,17020,0)="This MUMPS cross reference maintains the Hair Removal Comments field "
^XMB(3.9,148,2,17021,0)="""^DD"",130,130,506,1,1,""%D"",2,0)"
^XMB(3.9,148,2,17022,0)="if this field is answered with ""S""."
^XMB(3.9,148,2,17023,0)="""^DD"",130,130,506,1,1,""DT"")"
^XMB(3.9,148,2,17024,0)="3060315"
^XMB(3.9,148,2,17025,0)="""^DD"",130,130,506,3)"
^XMB(3.9,148,2,17026,0)="Enter the method used to remove hair prior to Surgery."
^XMB(3.9,148,2,17027,0)="""^DD"",130,130,506,21,0)"
^XMB(3.9,148,2,17028,0)="^^5^5^3060320^"
^XMB(3.9,148,2,17029,0)="""^DD"",130,130,506,21,1,0)"
^XMB(3.9,148,2,17030,0)="This is the method used to remove hair prior to surgery.  Shaving is"
^XMB(3.9,148,2,17031,0)="""^DD"",130,130,506,21,2,0)"
^XMB(3.9,148,2,17032,0)="not a preferred method for hair removal. If SHAVING is selected, "
^XMB(3.9,148,2,17033,0)="""^DD"",130,130,506,21,3,0)"
^XMB(3.9,148,2,17034,0)="a comment must be entered in the HAIR REMOVAL COMMENTS field "
^XMB(3.9,148,2,17035,0)="""^DD"",130,130,506,21,4,0)"
^XMB(3.9,148,2,17036,0)="explaining why SHAVING was used. If OTHER is selected, comments must "
^XMB(3.9,148,2,17037,0)="""^DD"",130,130,506,21,5,0)"
^XMB(3.9,148,2,17038,0)="be entered explaining the method used."
^XMB(3.9,148,2,17039,0)="""^DD"",130,130,506,""DT"")"
^XMB(3.9,148,2,17040,0)="3060323"
^XMB(3.9,148,2,17041,0)="""^DD"",130,130,508,0)"
^XMB(3.9,148,2,17042,0)="HAIR REMOVAL COMMENTS^130.0508^^49;0"
^XMB(3.9,148,2,17043,0)="""^DD"",130,130,508,21,0)"
^XMB(3.9,148,2,17044,0)="^^4^4^3060320^"
^XMB(3.9,148,2,17045,0)="""^DD"",130,130,508,21,1,0)"
^XMB(3.9,148,2,17046,0)="If SHAVING is selected as the hair removal method, a comment must be "
^XMB(3.9,148,2,17047,0)="""^DD"",130,130,508,21,2,0)"
^XMB(3.9,148,2,17048,0)="entered explaining why SHAVING was used. "
^XMB(3.9,148,2,17049,0)="""^DD"",130,130,508,21,3,0)"
^XMB(3.9,148,2,17050,0)="If OTHER is selected as the hair removal method, comments must be "
^XMB(3.9,148,2,17051,0)="""^DD"",130,130,508,21,4,0)"
^XMB(3.9,148,2,17052,0)="entered explaining the method used."
^XMB(3.9,148,2,17053,0)="""^DD"",130,130,510,0)"
^XMB(3.9,148,2,17054,0)="CURRENT SMOKER (CARDIAC)^S^1:NEVER A SMOKER;2:WITHIN 2 WEEKS OF SURGERY;3:2 WEEKS TO 3 MONTHS PRIOR TO SURGERY;4:>3 MONTHS PRIOR TO SURGERY (REMOTE SMOKER);^200.1;5^Q"
^XMB(3.9,148,2,17055,0)="""^DD"",130,130,510,.1)"
^XMB(3.9,148,2,17056,0)="Current Smoker"
^XMB(3.9,148,2,17057,0)="""^DD"",130,130,510,3)"
^XMB(3.9,148,2,17058,0)="Enter the code describing the patient's status as a smoker prior to surgery."
^XMB(3.9,148,2,17059,0)="""^DD"",130,130,510,21,0)"
^XMB(3.9,148,2,17060,0)="^^11^11^3060328^"
^XMB(3.9,148,2,17061,0)="""^DD"",130,130,510,21,1,0)"
^XMB(3.9,148,2,17062,0)="CICSP Definition (2006): "
^XMB(3.9,148,2,17063,0)="""^DD"",130,130,510,21,2,0)"
^XMB(3.9,148,2,17064,0)="Indicate the patient's smoking status from information from the"
^XMB(3.9,148,2,17065,0)="""^DD"",130,130,510,21,3,0)"
^XMB(3.9,148,2,17066,0)="patient, or the chart, that best describes the patient's use of "
^XMB(3.9,148,2,17067,0)="""^DD"",130,130,510,21,4,0)"
^XMB(3.9,148,2,17068,0)="tobacco in any form (pipe, cigar, cigarette, tobacco chew). If more"
^XMB(3.9,148,2,17069,0)="""^DD"",130,130,510,21,5,0)"
^XMB(3.9,148,2,17070,0)="than one representation is found, please record according to the "
^XMB(3.9,148,2,17071,0)="""^DD"",130,130,510,21,6,0)"
^XMB(3.9,148,2,17072,0)="most conservative (most recent) quit date:"
^XMB(3.9,148,2,17073,0)="""^DD"",130,130,510,21,7,0)"
^XMB(3.9,148,2,17074,0)=" "
^XMB(3.9,148,2,17075,0)="""^DD"",130,130,510,21,8,0)"
^XMB(3.9,148,2,17076,0)="1 = never a smoker"
^XMB(3.9,148,2,17077,0)="""^DD"",130,130,510,21,9,0)"
^XMB(3.9,148,2,17078,0)="2 = smoking within two weeks prior to surgery "
^XMB(3.9,148,2,17079,0)="""^DD"",130,130,510,21,10,0)"
^XMB(3.9,148,2,17080,0)="3 = smoking within 2 weeks to 3 months prior to surgery "
^XMB(3.9,148,2,17081,0)="""^DD"",130,130,510,21,11,0)"
^XMB(3.9,148,2,17082,0)="4 = remote smoker (more than 3 months prior to surgery)"
^XMB(3.9,148,2,17083,0)="""^DD"",130,130,510,""DT"")"
^XMB(3.9,148,2,17084,0)="3060328"
^XMB(3.9,148,2,17085,0)="""^DD"",130,130,512,0)"
^XMB(3.9,148,2,17086,0)="MAZE PROCEDURE^S^N:NO MAZE PERFORMED;F:FULL MAZE;M:MINI MAZE;^209;14^Q"
^XMB(3.9,148,2,17087,0)="""^DD"",130,130,512,.1)"
^XMB(3.9,148,2,17088,0)="Maze Procedure"
^XMB(3.9,148,2,17089,0)="""^DD"",130,130,512,3)"
^XMB(3.9,148,2,17090,0)="Enter NO MAZE PERFORMED, FULL MAZE or MINI MAZE."
^XMB(3.9,148,2,17091,0)="""^DD"",130,130,512,21,0)"
^XMB(3.9,148,2,17092,0)="^.001^34^34^3060628^^"
^XMB(3.9,148,2,17093,0)="""^DD"",130,130,512,21,1,0)"
^XMB(3.9,148,2,17094,0)="CICSP Definition (2006):"
^XMB(3.9,148,2,17095,0)="""^DD"",130,130,512,21,2,0)"
^XMB(3.9,148,2,17096,0)="Indicate if patient had a Maze procedure either with or without placing"
^XMB(3.9,148,2,17097,0)="""^DD"",130,130,512,21,3,0)"
^XMB(3.9,148,2,17098,0)="the patient on cardiopulmonary bypass.  A Maze procedure is a surgical"
^XMB(3.9,148,2,17099,0)="""^DD"",130,130,512,21,4,0)"
^XMB(3.9,148,2,17100,0)="intervention used to interrupt abnormal atrial conduction pathways that"
^XMB(3.9,148,2,17101,0)="""^DD"",130,130,512,21,5,0)"
^XMB(3.9,148,2,17102,0)="cause atrial fibrillation or atrial flutter. It may be performed alone"
^XMB(3.9,148,2,17103,0)="""^DD"",130,130,512,21,6,0)"
^XMB(3.9,148,2,17104,0)="or in combination with other cardiac procedures. (A Maze does not"
^XMB(3.9,148,2,17105,0)="""^DD"",130,130,512,21,7,0)"
^XMB(3.9,148,2,17106,0)="include an amputation/resection of the atrial appendage as an isolated"
^XMB(3.9,148,2,17107,0)="""^DD"",130,130,512,21,8,0)"
^XMB(3.9,148,2,17108,0)="procedure; an intraoperative electrophysiologic mapping procedure; nor"
^XMB(3.9,148,2,17109,0)="""^DD"",130,130,512,21,9,0)"
^XMB(3.9,148,2,17110,0)="any surgical or ablation procedure conducted on the ventricle for"
^XMB(3.9,148,2,17111,0)="""^DD"",130,130,512,21,10,0)"
^XMB(3.9,148,2,17112,0)="control of ventricular arrhythmias.) Indicate the one most appropriate"
^XMB(3.9,148,2,17113,0)="""^DD"",130,130,512,21,11,0)"
^XMB(3.9,148,2,17114,0)="response:"
^XMB(3.9,148,2,17115,0)="""^DD"",130,130,512,21,12,0)"
^XMB(3.9,148,2,17116,0)=" "
^XMB(3.9,148,2,17117,0)="""^DD"",130,130,512,21,13,0)"
^XMB(3.9,148,2,17118,0)="No - No Maze performed"
^XMB(3.9,148,2,17119,0)="""^DD"",130,130,512,21,14,0)"
^XMB(3.9,148,2,17120,0)=" "
^XMB(3.9,148,2,17121,0)="""^DD"",130,130,512,21,15,0)"
^XMB(3.9,148,2,17122,0)="Full Maze - The procedure is most often performed on-bypass through"
^XMB(3.9,148,2,17123,0)="""^DD"",130,130,512,21,16,0)"
^XMB(3.9,148,2,17124,0)="a median sternotomy. A combination of incisions and thermal (cryo) or"
^XMB(3.9,148,2,17125,0)="""^DD"",130,130,512,21,17,0)"
^XMB(3.9,148,2,17126,0)="radiofrequency ablations of the atrial wall pathways are done,"
^XMB(3.9,148,2,17127,0)="""^DD"",130,130,512,21,18,0)"
^XMB(3.9,148,2,17128,0)="typically including amputation/resection of the one or both atrial"
^XMB(3.9,148,2,17129,0)="""^DD"",130,130,512,21,19,0)"
^XMB(3.9,148,2,17130,0)="appendices. The procedure thus creates a ""maze"" of electrical"
^XMB(3.9,148,2,17131,0)="""^DD"",130,130,512,21,20,0)"
^XMB(3.9,148,2,17132,0)="propogation roots involving the entire atrial myocardium with only"
^XMB(3.9,148,2,17133,0)="""^DD"",130,130,512,21,21,0)"
^XMB(3.9,148,2,17134,0)="one side of entrance (the sinus node) and one side of exit"
^XMB(3.9,148,2,17135,0)="""^DD"",130,130,512,21,22,0)"
^XMB(3.9,148,2,17136,0)="(the AV node)."
^XMB(3.9,148,2,17137,0)="""^DD"",130,130,512,21,23,0)"
^XMB(3.9,148,2,17138,0)=" "
^XMB(3.9,148,2,17139,0)="""^DD"",130,130,512,21,24,0)"
^XMB(3.9,148,2,17140,0)="Mini-Maze - A more limited and simpler procedure than the traditional"
^XMB(3.9,148,2,17141,0)="""^DD"",130,130,512,21,25,0)"
^XMB(3.9,148,2,17142,0)="full maze, the Mini-Maze is based on the finding that in most patients,"
^XMB(3.9,148,2,17143,0)="""^DD"",130,130,512,21,26,0)"
^XMB(3.9,148,2,17144,0)="ectopic foci located in the pulmonary veins are responsible for the"
^XMB(3.9,148,2,17145,0)="""^DD"",130,130,512,21,27,0)"
^XMB(3.9,148,2,17146,0)="initiation of atrial fib.  Radiofrequency or a cryo-ablation probe is"
^XMB(3.9,148,2,17147,0)="""^DD"",130,130,512,21,28,0)"
^XMB(3.9,148,2,17148,0)="used either inside or outside of the pulmonary vein ostia to destroy"
^XMB(3.9,148,2,17149,0)="""^DD"",130,130,512,21,29,0)"
^XMB(3.9,148,2,17150,0)="the foci.  It can be performed with or without resection of the atrial"
^XMB(3.9,148,2,17151,0)="""^DD"",130,130,512,21,30,0)"
^XMB(3.9,148,2,17152,0)="appendage and includes no incision or minimal incisions to the left"
^XMB(3.9,148,2,17153,0)="""^DD"",130,130,512,21,31,0)"
^XMB(3.9,148,2,17154,0)="atrium, rather than the extensive atrial surgical procedure conducted"
^XMB(3.9,148,2,17155,0)="""^DD"",130,130,512,21,32,0)"
^XMB(3.9,148,2,17156,0)="for the full Maze.  The Mini can be performed on or off bypass through"
^XMB(3.9,148,2,17157,0)="""^DD"",130,130,512,21,33,0)"
^XMB(3.9,148,2,17158,0)="a median sternotomy or performed thorascopically to the outside of the"
^XMB(3.9,148,2,17159,0)="""^DD"",130,130,512,21,34,0)"
^XMB(3.9,148,2,17160,0)="pulmonary veins."
^XMB(3.9,148,2,17161,0)="""^DD"",130,130,512,""DT"")"
^XMB(3.9,148,2,17162,0)="3060628"
^XMB(3.9,148,2,17163,0)="""^DD"",130,130.0508,0)"
^XMB(3.9,148,2,17164,0)="HAIR REMOVAL COMMENTS SUB-FIELD^^.01^1"
^XMB(3.9,148,2,17165,0)="""^DD"",130,130.0508,0,""DT"")"
^XMB(3.9,148,2,17166,0)="3060314"
^XMB(3.9,148,2,17167,0)="""^DD"",130,130.0508,0,""NM"",""HAIR REMOVAL COMMENTS"")"
^XMB(3.9,148,2,17168,0)=""
^XMB(3.9,148,2,17169,0)="""^DD"",130,130.0508,0,""UP"")"
^XMB(3.9,148,2,17170,0)="130"
^XMB(3.9,148,2,17171,0)="""^DD"",130,130.0508,.01,0)"
^XMB(3.9,148,2,17172,0)="HAIR REMOVAL COMMENTS^W^^0;1"
^XMB(3.9,148,2,17173,0)="""^DD"",130,130.0508,.01,.1)"
^XMB(3.9,148,2,17174,0)="Hair Removal Comments"
^XMB(3.9,148,2,17175,0)="""^DD"",130,130.0508,.01,21,0)"
^XMB(3.9,148,2,17176,0)="^^4^4^3060320^"
^XMB(3.9,148,2,17177,0)="""^DD"",130,130.0508,.01,21,1,0)"
^XMB(3.9,148,2,17178,0)="If SHAVING is selected as the hair removal method, a comment must be"
^XMB(3.9,148,2,17179,0)="""^DD"",130,130.0508,.01,21,2,0)"
^XMB(3.9,148,2,17180,0)="entered explaining why SHAVING was used."
^XMB(3.9,148,2,17181,0)="""^DD"",130,130.0508,.01,21,3,0)"
^XMB(3.9,148,2,17182,0)="If OTHER is selected as the hair removal method, comments must be"
^XMB(3.9,148,2,17183,0)="""^DD"",130,130.0508,.01,21,4,0)"
^XMB(3.9,148,2,17184,0)="entered explaining the method used."
^XMB(3.9,148,2,17185,0)="""^DD"",130,130.0508,.01,""DT"")"
^XMB(3.9,148,2,17186,0)="3060320"
^XMB(3.9,148,2,17187,0)="""^DD"",130,130.22,7,0)"
^XMB(3.9,148,2,17188,0)="SEPSIS CATEGORY^*S^1:SIRS;2:SEPSIS;3:SEPTIC SHOCK;^0;4^Q"
^XMB(3.9,148,2,17189,0)="""^DD"",130,130.22,7,.1)"
^XMB(3.9,148,2,17190,0)="Sepsis Category"
^XMB(3.9,148,2,17191,0)="""^DD"",130,130.22,7,3)"
^XMB(3.9,148,2,17192,0)="Select the appropriate category of sepsis for this occurrence."
^XMB(3.9,148,2,17193,0)="""^DD"",130,130.22,7,12)"
^XMB(3.9,148,2,17194,0)="Screen prevents selection of inactive code."
^XMB(3.9,148,2,17195,0)="""^DD"",130,130.22,7,12.1)"
^XMB(3.9,148,2,17196,0)="S DIC(""S"")=""I Y'=1"""
^XMB(3.9,148,2,17197,0)="""^DD"",130,130.22,7,21,0)"
^XMB(3.9,148,2,17198,0)="^^31^31^3060124^"
^XMB(3.9,148,2,17199,0)="""^DD"",130,130.22,7,21,1,0)"
^XMB(3.9,148,2,17200,0)="NSQIP Definition (2006):"
^XMB(3.9,148,2,17201,0)="""^DD"",130,130.22,7,21,2,0)"
^XMB(3.9,148,2,17202,0)="The body's response to insult can be documented as one of two levels "
^XMB(3.9,148,2,17203,0)="""^DD"",130,130.22,7,21,3,0)"
^XMB(3.9,148,2,17204,0)="with the successive level building on the previous level. You should "
^XMB(3.9,148,2,17205,0)="""^DD"",130,130.22,7,21,4,0)"
^XMB(3.9,148,2,17206,0)="only document the highest level identified using the criteria below. "
^XMB(3.9,148,2,17207,0)="""^DD"",130,130.22,7,21,5,0)"
^XMB(3.9,148,2,17208,0)=" "
^XMB(3.9,148,2,17209,0)="""^DD"",130,130.22,7,21,6,0)"
^XMB(3.9,148,2,17210,0)="1. Sepsis: Sepsis is the systemic response to infection. Report this "
^XMB(3.9,148,2,17211,0)="""^DD"",130,130.22,7,21,7,0)"
^XMB(3.9,148,2,17212,0)="variable if the patient has clinical signs and symptoms of SIRS. SIRS is"
^XMB(3.9,148,2,17213,0)="""^DD"",130,130.22,7,21,8,0)"
^XMB(3.9,148,2,17214,0)="a widespread inflammatory response to a variety of severe clinical "
^XMB(3.9,148,2,17215,0)="""^DD"",130,130.22,7,21,9,0)"
^XMB(3.9,148,2,17216,0)="insults. This syndrome is clinically recognized by the presence of two "
^XMB(3.9,148,2,17217,0)="""^DD"",130,130.22,7,21,10,0)"
^XMB(3.9,148,2,17218,0)="or more of the following:"
^XMB(3.9,148,2,17219,0)="""^DD"",130,130.22,7,21,11,0)"
^XMB(3.9,148,2,17220,0)="   - Temp >38 degrees C or <36 degrees C"
^XMB(3.9,148,2,17221,0)="""^DD"",130,130.22,7,21,12,0)"
^XMB(3.9,148,2,17222,0)="   - HR >90 bpm"
^XMB(3.9,148,2,17223,0)="""^DD"",130,130.22,7,21,13,0)"
^XMB(3.9,148,2,17224,0)="   - RR >20 breaths/min or PaCO2 <32 mmHg(<4.3 kPa)"
^XMB(3.9,148,2,17225,0)="""^DD"",130,130.22,7,21,14,0)"
^XMB(3.9,148,2,17226,0)="   - WBC >12,000 cell/mm3, <4000 cells/mm3, or >10% immature (band) "
^XMB(3.9,148,2,17227,0)="""^DD"",130,130.22,7,21,15,0)"
^XMB(3.9,148,2,17228,0)="     forms"
^XMB(3.9,148,2,17229,0)="""^DD"",130,130.22,7,21,16,0)"
^XMB(3.9,148,2,17230,0)="   - Anion gap acidosis (this is defined by [sodium + potassium] -"
^XMB(3.9,148,2,17231,0)="""^DD"",130,130.22,7,21,17,0)"
^XMB(3.9,148,2,17232,0)="     [chloride + CO2]. If this number is greater than 12, then an anion"
^XMB(3.9,148,2,17233,0)="""^DD"",130,130.22,7,21,18,0)"
^XMB(3.9,148,2,17234,0)="     gap acidosis is present."
^XMB(3.9,148,2,17235,0)="""^DD"",130,130.22,7,21,19,0)"
^XMB(3.9,148,2,17236,0)=" "
^XMB(3.9,148,2,17237,0)="""^DD"",130,130.22,7,21,20,0)"
^XMB(3.9,148,2,17238,0)=" and one of the following:"
^XMB(3.9,148,2,17239,0)="""^DD"",130,130.22,7,21,21,0)"
^XMB(3.9,148,2,17240,0)="   - positive blood culture"
^XMB(3.9,148,2,17241,0)="""^DD"",130,130.22,7,21,22,0)"
^XMB(3.9,148,2,17242,0)="   - clinical documentation of purulence at any site thought to be "
^XMB(3.9,148,2,17243,0)="""^DD"",130,130.22,7,21,23,0)"
^XMB(3.9,148,2,17244,0)="     causative"
^XMB(3.9,148,2,17245,0)="""^DD"",130,130.22,7,21,24,0)"
^XMB(3.9,148,2,17246,0)=" "
^XMB(3.9,148,2,17247,0)="""^DD"",130,130.22,7,21,25,0)"
^XMB(3.9,148,2,17248,0)="2. Severe Sepsis/Septic Shock: Sepsis is considered severe when it is "
^XMB(3.9,148,2,17249,0)="""^DD"",130,130.22,7,21,26,0)"
^XMB(3.9,148,2,17250,0)="associated with organ and/or circulatory dysfunction. Report this "
^XMB(3.9,148,2,17251,0)="""^DD"",130,130.22,7,21,27,0)"
^XMB(3.9,148,2,17252,0)="variable if the patient has the clinical signs and symptoms of SIRS or "
^XMB(3.9,148,2,17253,0)="""^DD"",130,130.22,7,21,28,0)"
^XMB(3.9,148,2,17254,0)="sepsis AND documented organ and/or circulatory dysfunction. Examples of"
^XMB(3.9,148,2,17255,0)="""^DD"",130,130.22,7,21,29,0)"
^XMB(3.9,148,2,17256,0)="organ dysfunction include: oliguria, acute alteration in mental status,"
^XMB(3.9,148,2,17257,0)="""^DD"",130,130.22,7,21,30,0)"
^XMB(3.9,148,2,17258,0)="acute respiratory distress. Examples of circulatory dysfunction include:"
^XMB(3.9,148,2,17259,0)="""^DD"",130,130.22,7,21,31,0)"
^XMB(3.9,148,2,17260,0)="hypotension, requirement of inotropic or vasopressor agents."
^XMB(3.9,148,2,17261,0)="""^DD"",130,130.22,7,""DT"")"
^XMB(3.9,148,2,17262,0)="3060124"
^XMB(3.9,148,2,17263,0)="""^DD"",130,130.22,8,0)"
^XMB(3.9,148,2,17264,0)="CPB STATUS^S^0:None;1:On-bypass;2:Off-bypass;^0;5^Q"
^XMB(3.9,148,2,17265,0)="""^DD"",130,130.22,8,.1)"
^XMB(3.9,148,2,17266,0)="Cardiopulmonary Bypass Status"
^XMB(3.9,148,2,17267,0)="""^DD"",130,130.22,8,3)"
^XMB(3.9,148,2,17268,0)="Enter NONE, ON BYPASS, or OFF BYPASS."
^XMB(3.9,148,2,17269,0)="""^DD"",130,130.22,8,21,0)"
^XMB(3.9,148,2,17270,0)="^^15^15^3060316^"
^XMB(3.9,148,2,17271,0)="""^DD"",130,130.22,8,21,1,0)"
^XMB(3.9,148,2,17272,0)="CICSP Definition (2006):"
^XMB(3.9,148,2,17273,0)="""^DD"",130,130.22,8,21,2,0)"
^XMB(3.9,148,2,17274,0)="Indicate the CPB status if the patient underwent a repeat operation on"
^XMB(3.9,148,2,17275,0)="""^DD"",130,130.22,8,21,3,0)"
^XMB(3.9,148,2,17276,0)="the heart after the patient had left the operating room from the initial"
^XMB(3.9,148,2,17277,0)="""^DD"",130,130.22,8,21,4,0)"
^XMB(3.9,148,2,17278,0)="operation and within current hospitalization or within 30 days of the"
^XMB(3.9,148,2,17279,0)="""^DD"",130,130.22,8,21,5,0)"
^XMB(3.9,148,2,17280,0)="initial operation. Use the same criteria to define a cardiac surgery as"
^XMB(3.9,148,2,17281,0)="""^DD"",130,130.22,8,21,6,0)"
^XMB(3.9,148,2,17282,0)="listed on page 1 of the CICSP Instructions/Definitions. (Do NOT submit a"
^XMB(3.9,148,2,17283,0)="""^DD"",130,130.22,8,21,7,0)"
^XMB(3.9,148,2,17284,0)="separate second form for this second cardiac procedure if it occurs"
^XMB(3.9,148,2,17285,0)="""^DD"",130,130.22,8,21,8,0)"
^XMB(3.9,148,2,17286,0)="within 30 days post-operatively.) Indicate the one appropriate response:"
^XMB(3.9,148,2,17287,0)="""^DD"",130,130.22,8,21,9,0)"
^XMB(3.9,148,2,17288,0)=" "
^XMB(3.9,148,2,17289,0)="""^DD"",130,130.22,8,21,10,0)"
^XMB(3.9,148,2,17290,0)="None - no repeat cardiac surgical procedure post-operatively during "
^XMB(3.9,148,2,17291,0)="""^DD"",130,130.22,8,21,11,0)"
^XMB(3.9,148,2,17292,0)="      index hospitalization or within 30 days of initial operation."
^XMB(3.9,148,2,17293,0)="""^DD"",130,130.22,8,21,12,0)"
^XMB(3.9,148,2,17294,0)="On-bypass - patient underwent a repeat cardiac surgical procedure "
^XMB(3.9,148,2,17295,0)="""^DD"",130,130.22,8,21,13,0)"
^XMB(3.9,148,2,17296,0)="      utilizing CPB."
^XMB(3.9,148,2,17297,0)="""^DD"",130,130.22,8,21,14,0)"
^XMB(3.9,148,2,17298,0)="Off-bypass - patient underwent a repeat cardiac surgical procedure "
^XMB(3.9,148,2,17299,0)="""^DD"",130,130.22,8,21,15,0)"
^XMB(3.9,148,2,17300,0)="      not utilizing CPB."
^XMB(3.9,148,2,17301,0)="""^DD"",130,130.22,8,""DT"")"
^XMB(3.9,148,2,17302,0)="3060301"
^XMB(3.9,148,2,17303,0)="""^DD"",136.5,136.5,0)"
^XMB(3.9,148,2,17304,0)="FIELD^^5^6"
^XMB(3.9,148,2,17305,0)="""^DD"",136.5,136.5,0,""DDA"")"
^XMB(3.9,148,2,17306,0)="N"
^XMB(3.9,148,2,17307,0)="""^DD"",136.5,136.5,0,""DT"")"
^XMB(3.9,148,2,17308,0)="2950309"
^XMB(3.9,148,2,17309,0)="""^DD"",136.5,136.5,0,""ID"",2)"
^XMB(3.9,148,2,17310,0)="D DESC^SROCMPS"
^XMB(3.9,148,2,17311,0)="""^DD"",136.5,136.5,0,""IX"",""B"",136.5,.01)"
^XMB(3.9,148,2,17312,0)=""
^XMB(3.9,148,2,17313,0)="""^DD"",136.5,136.5,0,""IX"",""C"",136.53,.01)"
^XMB(3.9,148,2,17314,0)=""
^XMB(3.9,148,2,17315,0)="""^DD"",136.5,136.5,0,""NM"",""PERIOPERATIVE OCCURRENCE CATEGORY"")"
^XMB(3.9,148,2,17316,0)=""
^XMB(3.9,148,2,17317,0)="""^DD"",136.5,136.5,0,""PT"",130.0126,5)"
^XMB(3.9,148,2,17318,0)=""
^XMB(3.9,148,2,17319,0)="""^DD"",136.5,136.5,0,""PT"",130.053,5)"
^XMB(3.9,148,2,17320,0)=""
^XMB(3.9,148,2,17321,0)="""^DD"",136.5,136.5,0,""PT"",130.13,3)"
^XMB(3.9,148,2,17322,0)=""
^XMB(3.9,148,2,17323,0)="""^DD"",136.5,136.5,0,""PT"",130.22,5)"
^XMB(3.9,148,2,17324,0)=""
^XMB(3.9,148,2,17325,0)="""^DD"",136.5,136.5,0,""PT"",139.046,.01)"
^XMB(3.9,148,2,17326,0)=""
^XMB(3.9,148,2,17327,0)="""^DD"",136.5,136.5,.01,0)"
^XMB(3.9,148,2,17328,0)="OCCURRENCE CATEGORY^RFI^^0;1^K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X"
^XMB(3.9,148,2,17329,0)="""^DD"",136.5,136.5,.01,.1)"
^XMB(3.9,148,2,17330,0)="Occurrence Category"
^XMB(3.9,148,2,17331,0)="""^DD"",136.5,136.5,.01,1,0)"
^XMB(3.9,148,2,17332,0)="^.1"
^XMB(3.9,148,2,17333,0)="""^DD"",136.5,136.5,.01,1,1,0)"
^XMB(3.9,148,2,17334,0)="136.5^B"
^XMB(3.9,148,2,17335,0)="""^DD"",136.5,136.5,.01,1,1,1)"
^XMB(3.9,148,2,17336,0)="S ^SRO(136.5,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,148,2,17337,0)="""^DD"",136.5,136.5,.01,1,1,2)"
^XMB(3.9,148,2,17338,0)="K ^SRO(136.5,""B"",$E(X,1,30),DA)"
^XMB(3.9,148,2,17339,0)="""^DD"",136.5,136.5,.01,3)"
^XMB(3.9,148,2,17340,0)="Your answer must be 3-60 characters in length."
^XMB(3.9,148,2,17341,0)="""^DD"",136.5,136.5,.01,9)"
^XMB(3.9,148,2,17342,0)="^"
^XMB(3.9,148,2,17343,0)="""^DD"",136.5,136.5,.01,21,0)"
^XMB(3.9,148,2,17344,0)="^^3^3^2950427^"
^XMB(3.9,148,2,17345,0)="""^DD"",136.5,136.5,.01,21,1,0)"
^XMB(3.9,148,2,17346,0)="This field contains the name of the perioperative occurrence category to"
^XMB(3.9,148,2,17347,0)="""^DD"",136.5,136.5,.01,21,2,0)"
^XMB(3.9,148,2,17348,0)="be used when categorizing surgical and anesthesia perioperative"
^XMB(3.9,148,2,17349,0)="""^DD"",136.5,136.5,.01,21,3,0)"
^XMB(3.9,148,2,17350,0)="occurrences."
^XMB(3.9,148,2,17351,0)="""^DD"",136.5,136.5,.01,""DT"")"
^XMB(3.9,148,2,17352,0)="2950427"
^XMB(3.9,148,2,17353,0)="""^DD"",136.5,136.5,.01,""LAYGO"",1,0)"
^XMB(3.9,148,2,17354,0)="W !,""Adding to the Perioperative Occurrence Category file is not allowed !!"",*7 I 0"
^XMB(3.9,148,2,17355,0)="""^DD"",136.5,136.5,1,0)"
^XMB(3.9,148,2,17356,0)="INACTIVE?^SI^1:YES;0:NO;^0;2^Q"
^XMB(3.9,148,2,17357,0)="""^DD"",136.5,136.5,1,.1)"
^XMB(3.9,148,2,17358,0)="Inactive? (Y/N)"
^XMB(3.9,148,2,17359,0)="""^DD"",136.5,136.5,1,3)"
^XMB(3.9,148,2,17360,0)="Enter YES to inactivate this perioperative occurrence category."
^XMB(3.9,148,2,17361,0)="""^DD"",136.5,136.5,1,9)"
^XMB(3.9,148,2,17362,0)="^"
^XMB(3.9,148,2,17363,0)="""^DD"",136.5,136.5,1,21,0)"
^XMB(3.9,148,2,17364,0)="^^2^2^2950224^"
^XMB(3.9,148,2,17365,0)="""^DD"",136.5,136.5,1,21,1,0)"
^XMB(3.9,148,2,17366,0)="If this perioperative occurrence category is no longer used, enter YES to"
^XMB(3.9,148,2,17367,0)="""^DD"",136.5,136.5,1,21,2,0)"
^XMB(3.9,148,2,17368,0)="flag this category as INACTIVE."
^XMB(3.9,148,2,17369,0)="""^DD"",136.5,136.5,1,""DT"")"
^XMB(3.9,148,2,17370,0)="2950224"
^XMB(3.9,148,2,17371,0)="""^DD"",136.5,136.5,2,0)"
^XMB(3.9,148,2,17372,0)="DESCRIPTION^136.52^^1;0"
^XMB(3.9,148,2,17373,0)="""^DD"",136.5,136.5,2,9)"
^XMB(3.9,148,2,17374,0)="^"
^XMB(3.9,148,2,17375,0)="""^DD"",136.5,136.5,2,20,0)"
^XMB(3.9,148,2,17376,0)="^.3LA^^0"
^XMB(3.9,148,2,17377,0)="""^DD"",136.5,136.5,2,21,0)"
^XMB(3.9,148,2,17378,0)="^^2^2^2950224^"
^XMB(3.9,148,2,17379,0)="""^DD"",136.5,136.5,2,21,1,0)"
^XMB(3.9,148,2,17380,0)="This is a description used to further define the perioperative occurrence"
^XMB(3.9,148,2,17381,0)="""^DD"",136.5,136.5,2,21,2,0)"
^XMB(3.9,148,2,17382,0)="type."
^XMB(3.9,148,2,17383,0)="""^DD"",136.5,136.5,3,0)"
^XMB(3.9,148,2,17384,0)="SYNONYM^136.53^^2;0"
^XMB(3.9,148,2,17385,0)="""^DD"",136.5,136.5,3,21,0)"
^XMB(3.9,148,2,17386,0)="^^1^1^2950315^"
^XMB(3.9,148,2,17387,0)="""^DD"",136.5,136.5,3,21,1,0)"
^XMB(3.9,148,2,17388,0)="This is another name for this perioperative occurrence category."
^XMB(3.9,148,2,17389,0)="""^DD"",136.5,136.5,4,0)"
^XMB(3.9,148,2,17390,0)="INTRAOPERATIVE ALLOWED^SI^1:YES;0:NO;^0;3^Q"
^XMB(3.9,148,2,17391,0)="""^DD"",136.5,136.5,4,.1)"
^XMB(3.9,148,2,17392,0)="Intraoperative Occurrence Allowed ?"
^XMB(3.9,148,2,17393,0)="""^DD"",136.5,136.5,4,3)"
^XMB(3.9,148,2,17394,0)="Enter YES if this may be an intraoperative occurrence."
^XMB(3.9,148,2,17395,0)="""^DD"",136.5,136.5,4,9)"
^XMB(3.9,148,2,17396,0)="^"
^XMB(3.9,148,2,17397,0)="""^DD"",136.5,136.5,4,21,0)"
^XMB(3.9,148,2,17398,0)="^^2^2^2951113^^"
^XMB(3.9,148,2,17399,0)="""^DD"",136.5,136.5,4,21,1,0)"
^XMB(3.9,148,2,17400,0)="If this occurrence category may be associated with an intraoperative"
^XMB(3.9,148,2,17401,0)="""^DD"",136.5,136.5,4,21,2,0)"
^XMB(3.9,148,2,17402,0)="occurrence, enter YES."
^XMB(3.9,148,2,17403,0)="""^DD"",136.5,136.5,4,""DT"")"
^XMB(3.9,148,2,17404,0)="2951113"
^XMB(3.9,148,2,17405,0)="""^DD"",136.5,136.5,5,0)"
^XMB(3.9,148,2,17406,0)="CARDIAC ONLY^S^Y:YES;N:NO;^0;4^Q"
^XMB(3.9,148,2,17407,0)="""^DD"",136.5,136.5,5,.1)"
^XMB(3.9,148,2,17408,0)="Cardiac Only"
^XMB(3.9,148,2,17409,0)="""^DD"",136.5,136.5,5,3)"
^XMB(3.9,148,2,17410,0)="Enter YES if the occurrence category is for a cardiac assessment case."
^XMB(3.9,148,2,17411,0)="""^DD"",136.5,136.5,5,9)"
^XMB(3.9,148,2,17412,0)="^"
^XMB(3.9,148,2,17413,0)="""^DD"",136.5,136.5,5,21,0)"
^XMB(3.9,148,2,17414,0)="^^2^2^3000822^"
^XMB(3.9,148,2,17415,0)="""^DD"",136.5,136.5,5,21,1,0)"
^XMB(3.9,148,2,17416,0)="If this occurrence category may be associated with a cardiac assessed case"
^XMB(3.9,148,2,17417,0)="""^DD"",136.5,136.5,5,21,2,0)"
^XMB(3.9,148,2,17418,0)="only, enter YES."
^XMB(3.9,148,2,17419,0)="""^DD"",136.5,136.5,5,""DT"")"
^XMB(3.9,148,2,17420,0)="3000713"
^XMB(3.9,148,2,17421,0)="""^DD"",136.5,136.52,0)"
^XMB(3.9,148,2,17422,0)="DESCRIPTION SUB-FIELD^^.01^1"
^XMB(3.9,148,2,17423,0)="""^DD"",136.5,136.52,0,""NM"",""DESCRIPTION"")"
^XMB(3.9,148,2,17424,0)=""
^XMB(3.9,148,2,17425,0)="""^DD"",136.5,136.52,0,""UP"")"
^XMB(3.9,148,2,17426,0)="136.5"
^XMB(3.9,148,2,17427,0)="""^DD"",136.5,136.52,.01,0)"
^XMB(3.9,148,2,17428,0)="DESCRIPTION^W^^0;1^Q"
^XMB(3.9,148,2,17429,0)="""^DD"",136.5,136.52,.01,.1)"
^XMB(3.9,148,2,17430,0)="Perioperative Occurrence Category Decsription"
^XMB(3.9,148,2,17431,0)="""^DD"",136.5,136.52,.01,3)"
^XMB(3.9,148,2,17432,0)="Enter a brief description further defining this perioperative occurrence type."
^XMB(3.9,148,2,17433,0)="""^DD"",136.5,136.52,.01,21,0)"
^XMB(3.9,148,2,17434,0)="^^2^2^2950224^"
^XMB(3.9,148,2,17435,0)="""^DD"",136.5,136.52,.01,21,1,0)"
^XMB(3.9,148,2,17436,0)="This is a description used to further define and clarify each"
^XMB(3.9,148,2,17437,0)="""^DD"",136.5,136.52,.01,21,2,0)"
^XMB(3.9,148,2,17438,0)="perioperative occurrence category."
^XMB(3.9,148,2,17439,0)="""^DD"",136.5,136.52,.01,21,3,0)"
^XMB(3.9,148,2,17440,0)=" "
^XMB(3.9,148,2,17441,0)="""^DD"",136.5,136.52,.01,""DT"")"
^XMB(3.9,148,2,17442,0)="2950224"
^XMB(3.9,148,2,17443,0)="""^DD"",136.5,136.53,0)"
^XMB(3.9,148,2,17444,0)="SYNONYM SUB-FIELD^^.01^1"
^XMB(3.9,148,2,17445,0)="""^DD"",136.5,136.53,0,""DT"")"
^XMB(3.9,148,2,17446,0)="2950309"
^XMB(3.9,148,2,17447,0)="""^DD"",136.5,136.53,0,""IX"",""B"",136.53,.01)"
^XMB(3.9,148,2,17448,0)=""
^XMB(3.9,148,2,17449,0)="""^DD"",136.5,136.53,0,""NM"",""SYNONYM"")"
^XMB(3.9,148,2,17450,0)=""
^XMB(3.9,148,2,17451,0)="""^DD"",136.5,136.53,0,""UP"")"
^XMB(3.9,148,2,17452,0)="136.5"
^XMB(3.9,148,2,17453,0)="""^DD"",136.5,136.53,.01,0)"
^XMB(3.9,148,2,17454,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<3) X"
^XMB(3.9,148,2,17455,0)="""^DD"",136.5,136.53,.01,.1)"
^XMB(3.9,148,2,17456,0)="Synonym"
^XMB(3.9,148,2,17457,0)="""^DD"",136.5,136.53,.01,1,0)"
^XMB(3.9,148,2,17458,0)="^.1"
^XMB(3.9,148,2,17459,0)="""^DD"",136.5,136.53,.01,1,1,0)"
^XMB(3.9,148,2,17460,0)="136.53^B"
^XMB(3.9,148,2,17461,0)="""^DD"",136.5,136.53,.01,1,1,1)"
^XMB(3.9,148,2,17462,0)="S ^SRO(136.5,DA(1),2,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,148,2,17463,0)="""^DD"",136.5,136.53,.01,1,1,2)"
^XMB(3.9,148,2,17464,0)="K ^SRO(136.5,DA(1),2,""B"",$E(X,1,30),DA)"
^XMB(3.9,148,2,17465,0)="""^DD"",136.5,136.53,.01,1,2,0)"
^XMB(3.9,148,2,17466,0)="136.5^C"
^XMB(3.9,148,2,17467,0)="""^DD"",136.5,136.53,.01,1,2,1)"
^XMB(3.9,148,2,17468,0)="S ^SRO(136.5,""C"",$E(X,1,30),DA(1),DA)="""""
^XMB(3.9,148,2,17469,0)="""^DD"",136.5,136.53,.01,1,2,2)"
^XMB(3.9,148,2,17470,0)="K ^SRO(136.5,""C"",$E(X,1,30),DA(1),DA)"
^XMB(3.9,148,2,17471,0)="""^DD"",136.5,136.53,.01,1,2,""DT"")"
^XMB(3.9,148,2,17472,0)="2950309"
^XMB(3.9,148,2,17473,0)="""^DD"",136.5,136.53,.01,3)"
^XMB(3.9,148,2,17474,0)="Answer must be 3-60 characters in length."
^XMB(3.9,148,2,17475,0)="""^DD"",136.5,136.53,.01,21,0)"
^XMB(3.9,148,2,17476,0)="^^1^1^2950315^"
^XMB(3.9,148,2,17477,0)="""^DD"",136.5,136.53,.01,21,1,0)"
^XMB(3.9,148,2,17478,0)="This is another name for this perioperative occurrence category."
^XMB(3.9,148,2,17479,0)="""^DD"",136.5,136.53,.01,""DT"")"
^XMB(3.9,148,2,17480,0)="2950309"
^XMB(3.9,148,2,17481,0)="""^DIC"",136.5,136.5,0)"
^XMB(3.9,148,2,17482,0)="PERIOPERATIVE OCCURRENCE CATEGORY^136.5I"
^XMB(3.9,148,2,17483,0)="""^DIC"",136.5,136.5,0,""GL"")"
^XMB(3.9,148,2,17484,0)="^SRO(136.5,"
^XMB(3.9,148,2,17485,0)="""^DIC"",136.5,136.5,""%D"",0)"
^XMB(3.9,148,2,17486,0)="^1.001^4^4^3060301^^^"
^XMB(3.9,148,2,17487,0)="""^DIC"",136.5,136.5,""%D"",1,0)"
^XMB(3.9,148,2,17488,0)="This file contains perioperative occurrence categories used within the"
^XMB(3.9,148,2,17489,0)="""^DIC"",136.5,136.5,""%D"",2,0)"
^XMB(3.9,148,2,17490,0)="DHCP Surgery package.  All perioperative occurrences entered must be"
^XMB(3.9,148,2,17491,0)="""^DIC"",136.5,136.5,""%D"",3,0)"
^XMB(3.9,148,2,17492,0)="grouped into one of the categories contained in this file.  The fields in"
^XMB(3.9,148,2,17493,0)="""^DIC"",136.5,136.5,""%D"",4,0)"
^XMB(3.9,148,2,17494,0)="this file are restricted so that entries cannot be altered."
^XMB(3.9,148,2,17495,0)="""^DIC"",136.5,136.5,""%D"",5,0)"
^XMB(3.9,148,2,17496,0)=" "
^XMB(3.9,148,2,17497,0)="""^DIC"",136.5,""B"",""PERIOPERATIVE OCCURRENCE CATEGORY"",136.5)"
^XMB(3.9,148,2,17498,0)=""
^XMB(3.9,148,2,17499,0)="""BLD"",5583,6)"
^XMB(3.9,148,2,17500,0)="^152"
^XMB(3.9,148,2,17501,0)="$END KID SR*3.0*153"
^XMB(3.9,148,6,0)="^3.911A^2^2"
^XMB(3.9,148,6,1,0)="POSTMASTER"
^XMB(3.9,148,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,148,6,"B","POSTMASTER",1)=""
^XMB(3.9,148,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,149,0)="TIU-1_SEQ-197_PAT-207.KID^.5^3061008.015743^^^^K"
^XMB(3.9,149,.6)="3061008"
^XMB(3.9,149,1,0)="^3.91A^2^2"
^XMB(3.9,149,1,1,0)=".5^0^3061008.015743^^^^^^^3061008.015743"
^XMB(3.9,149,1,2,0)="1^0^3061008.02282^^^^^^^3061008.02282"
^XMB(3.9,149,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,149,1,"C",.5,1)=""
^XMB(3.9,149,1,"C",1,2)=""
^XMB(3.9,149,2,0)="^^881^881^3061008"
^XMB(3.9,149,2,1,0)="$TXT Released TIU*1*207 SEQ #197"
^XMB(3.9,149,2,2,0)="Extracted from mail message"
^XMB(3.9,149,2,3,0)="$END TXT"
^XMB(3.9,149,2,4,0)="$KID TIU*1.0*207"
^XMB(3.9,149,2,5,0)="**INSTALL NAME**"
^XMB(3.9,149,2,6,0)="TIU*1.0*207"
^XMB(3.9,149,2,7,0)="""BLD"",6560,0)"
^XMB(3.9,149,2,8,0)="TIU*1.0*207^TEXT INTEGRATION UTILITIES^0^3060210^y"
^XMB(3.9,149,2,9,0)="""BLD"",6560,1,0)"
^XMB(3.9,149,2,10,0)="^^3^3^3060210^"
^XMB(3.9,149,2,11,0)="""BLD"",6560,1,1,0)"
^XMB(3.9,149,2,12,0)="Fix header display and prompts for TIU document display options and fix "
^XMB(3.9,149,2,13,0)="""BLD"",6560,1,2,0)"
^XMB(3.9,149,2,14,0)="prompt for option TIU REVIEW DS CLINICIAN."
^XMB(3.9,149,2,15,0)="""BLD"",6560,1,3,0)"
^XMB(3.9,149,2,16,0)="."
^XMB(3.9,149,2,17,0)="""BLD"",6560,4,0)"
^XMB(3.9,149,2,18,0)="^9.64PA^^"
^XMB(3.9,149,2,19,0)="""BLD"",6560,6)"
^XMB(3.9,149,2,20,0)="1^"
^XMB(3.9,149,2,21,0)="""BLD"",6560,""KRN"",0)"
^XMB(3.9,149,2,22,0)="^9.67PA^8989.52^19"
^XMB(3.9,149,2,23,0)="""BLD"",6560,""KRN"",.4,0)"
^XMB(3.9,149,2,24,0)=".4"
^XMB(3.9,149,2,25,0)="""BLD"",6560,""KRN"",.401,0)"
^XMB(3.9,149,2,26,0)=".401"
^XMB(3.9,149,2,27,0)="""BLD"",6560,""KRN"",.402,0)"
^XMB(3.9,149,2,28,0)=".402"
^XMB(3.9,149,2,29,0)="""BLD"",6560,""KRN"",.403,0)"
^XMB(3.9,149,2,30,0)=".403"
^XMB(3.9,149,2,31,0)="""BLD"",6560,""KRN"",.5,0)"
^XMB(3.9,149,2,32,0)=".5"
^XMB(3.9,149,2,33,0)="""BLD"",6560,""KRN"",.84,0)"
^XMB(3.9,149,2,34,0)=".84"
^XMB(3.9,149,2,35,0)="""BLD"",6560,""KRN"",3.6,0)"
^XMB(3.9,149,2,36,0)="3.6"
^XMB(3.9,149,2,37,0)="""BLD"",6560,""KRN"",3.8,0)"
^XMB(3.9,149,2,38,0)="3.8"
^XMB(3.9,149,2,39,0)="""BLD"",6560,""KRN"",9.2,0)"
^XMB(3.9,149,2,40,0)="9.2"
^XMB(3.9,149,2,41,0)="""BLD"",6560,""KRN"",9.8,0)"
^XMB(3.9,149,2,42,0)="9.8"
^XMB(3.9,149,2,43,0)="""BLD"",6560,""KRN"",9.8,""NM"",0)"
^XMB(3.9,149,2,44,0)="^9.68A^3^3"
^XMB(3.9,149,2,45,0)="""BLD"",6560,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,149,2,46,0)="TIULA1^^0^26285953"
^XMB(3.9,149,2,47,0)="""BLD"",6560,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,149,2,48,0)="TIUR^^0^39996639"
^XMB(3.9,149,2,49,0)="""BLD"",6560,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,149,2,50,0)="TIURH^^0^4359580"
^XMB(3.9,149,2,51,0)="""BLD"",6560,""KRN"",9.8,""NM"",""B"",""TIULA1"",1)"
^XMB(3.9,149,2,52,0)=""
^XMB(3.9,149,2,53,0)="""BLD"",6560,""KRN"",9.8,""NM"",""B"",""TIUR"",2)"
^XMB(3.9,149,2,54,0)=""
^XMB(3.9,149,2,55,0)="""BLD"",6560,""KRN"",9.8,""NM"",""B"",""TIURH"",3)"
^XMB(3.9,149,2,56,0)=""
^XMB(3.9,149,2,57,0)="""BLD"",6560,""KRN"",19,0)"
^XMB(3.9,149,2,58,0)="19"
^XMB(3.9,149,2,59,0)="""BLD"",6560,""KRN"",19.1,0)"
^XMB(3.9,149,2,60,0)="19.1"
^XMB(3.9,149,2,61,0)="""BLD"",6560,""KRN"",101,0)"
^XMB(3.9,149,2,62,0)="101"
^XMB(3.9,149,2,63,0)="""BLD"",6560,""KRN"",409.61,0)"
^XMB(3.9,149,2,64,0)="409.61"
^XMB(3.9,149,2,65,0)="""BLD"",6560,""KRN"",771,0)"
^XMB(3.9,149,2,66,0)="771"
^XMB(3.9,149,2,67,0)="""BLD"",6560,""KRN"",870,0)"
^XMB(3.9,149,2,68,0)="870"
^XMB(3.9,149,2,69,0)="""BLD"",6560,""KRN"",8989.51,0)"
^XMB(3.9,149,2,70,0)="8989.51"
^XMB(3.9,149,2,71,0)="""BLD"",6560,""KRN"",8989.52,0)"
^XMB(3.9,149,2,72,0)="8989.52"
^XMB(3.9,149,2,73,0)="""BLD"",6560,""KRN"",8994,0)"
^XMB(3.9,149,2,74,0)="8994"
^XMB(3.9,149,2,75,0)="""BLD"",6560,""KRN"",""B"",.4,.4)"
^XMB(3.9,149,2,76,0)=""
^XMB(3.9,149,2,77,0)="""BLD"",6560,""KRN"",""B"",.401,.401)"
^XMB(3.9,149,2,78,0)=""
^XMB(3.9,149,2,79,0)="""BLD"",6560,""KRN"",""B"",.402,.402)"
^XMB(3.9,149,2,80,0)=""
^XMB(3.9,149,2,81,0)="""BLD"",6560,""KRN"",""B"",.403,.403)"
^XMB(3.9,149,2,82,0)=""
^XMB(3.9,149,2,83,0)="""BLD"",6560,""KRN"",""B"",.5,.5)"
^XMB(3.9,149,2,84,0)=""
^XMB(3.9,149,2,85,0)="""BLD"",6560,""KRN"",""B"",.84,.84)"
^XMB(3.9,149,2,86,0)=""
^XMB(3.9,149,2,87,0)="""BLD"",6560,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,149,2,88,0)=""
^XMB(3.9,149,2,89,0)="""BLD"",6560,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,149,2,90,0)=""
^XMB(3.9,149,2,91,0)="""BLD"",6560,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,149,2,92,0)=""
^XMB(3.9,149,2,93,0)="""BLD"",6560,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,149,2,94,0)=""
^XMB(3.9,149,2,95,0)="""BLD"",6560,""KRN"",""B"",19,19)"
^XMB(3.9,149,2,96,0)=""
^XMB(3.9,149,2,97,0)="""BLD"",6560,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,149,2,98,0)=""
^XMB(3.9,149,2,99,0)="""BLD"",6560,""KRN"",""B"",101,101)"
^XMB(3.9,149,2,100,0)=""
^XMB(3.9,149,2,101,0)="""BLD"",6560,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,149,2,102,0)=""
^XMB(3.9,149,2,103,0)="""BLD"",6560,""KRN"",""B"",771,771)"
^XMB(3.9,149,2,104,0)=""
^XMB(3.9,149,2,105,0)="""BLD"",6560,""KRN"",""B"",870,870)"
^XMB(3.9,149,2,106,0)=""
^XMB(3.9,149,2,107,0)="""BLD"",6560,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,149,2,108,0)=""
^XMB(3.9,149,2,109,0)="""BLD"",6560,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,149,2,110,0)=""
^XMB(3.9,149,2,111,0)="""BLD"",6560,""KRN"",""B"",8994,8994)"
^XMB(3.9,149,2,112,0)=""
^XMB(3.9,149,2,113,0)="""BLD"",6560,""QUES"",0)"
^XMB(3.9,149,2,114,0)="^9.62^^"
^XMB(3.9,149,2,115,0)="""BLD"",6560,""REQB"",0)"
^XMB(3.9,149,2,116,0)="^9.611^2^2"
^XMB(3.9,149,2,117,0)="""BLD"",6560,""REQB"",1,0)"
^XMB(3.9,149,2,118,0)="TIU*1.0*112^2"
^XMB(3.9,149,2,119,0)="""BLD"",6560,""REQB"",2,0)"
^XMB(3.9,149,2,120,0)="TIU*1.0*113^2"
^XMB(3.9,149,2,121,0)="""BLD"",6560,""REQB"",""B"",""TIU*1.0*112"",1)"
^XMB(3.9,149,2,122,0)=""
^XMB(3.9,149,2,123,0)="""BLD"",6560,""REQB"",""B"",""TIU*1.0*113"",2)"
^XMB(3.9,149,2,124,0)=""
^XMB(3.9,149,2,125,0)="""MBREQ"")"
^XMB(3.9,149,2,126,0)="0"
^XMB(3.9,149,2,127,0)="""PKG"",506,-1)"
^XMB(3.9,149,2,128,0)="1^1"
^XMB(3.9,149,2,129,0)="""PKG"",506,0)"
^XMB(3.9,149,2,130,0)="TEXT INTEGRATION UTILITIES^TIU^Text Integration Utilities "
^XMB(3.9,149,2,131,0)="""PKG"",506,20,0)"
^XMB(3.9,149,2,132,0)="^9.402P^^"
^XMB(3.9,149,2,133,0)="""PKG"",506,22,0)"
^XMB(3.9,149,2,134,0)="^9.49I^1^1"
^XMB(3.9,149,2,135,0)="""PKG"",506,22,1,0)"
^XMB(3.9,149,2,136,0)="1.0^2970620^2970916^3316"
^XMB(3.9,149,2,137,0)="""PKG"",506,22,1,""PAH"",1,0)"
^XMB(3.9,149,2,138,0)="207^3060210^33252"
^XMB(3.9,149,2,139,0)="""PKG"",506,22,1,""PAH"",1,1,0)"
^XMB(3.9,149,2,140,0)="^^3^3^3060210"
^XMB(3.9,149,2,141,0)="""PKG"",506,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,149,2,142,0)="Fix header display and prompts for TIU document display options and fix "
^XMB(3.9,149,2,143,0)="""PKG"",506,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,149,2,144,0)="prompt for option TIU REVIEW DS CLINICIAN."
^XMB(3.9,149,2,145,0)="""PKG"",506,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,149,2,146,0)="."
^XMB(3.9,149,2,147,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,149,2,148,0)="Y"
^XMB(3.9,149,2,149,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,149,2,150,0)="^D REP^XPDH"
^XMB(3.9,149,2,151,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,149,2,152,0)="Shall I write over your |FLAG| File"
^XMB(3.9,149,2,153,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,149,2,154,0)="YES"
^XMB(3.9,149,2,155,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,149,2,156,0)="D XPF1^XPDIQ"
^XMB(3.9,149,2,157,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,149,2,158,0)="Y"
^XMB(3.9,149,2,159,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,149,2,160,0)="^D DTA^XPDH"
^XMB(3.9,149,2,161,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,149,2,162,0)="Want my data |FLAG| yours"
^XMB(3.9,149,2,163,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,149,2,164,0)="YES"
^XMB(3.9,149,2,165,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,149,2,166,0)="D XPF2^XPDIQ"
^XMB(3.9,149,2,167,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,149,2,168,0)="YO"
^XMB(3.9,149,2,169,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,149,2,170,0)="^D INHIBIT^XPDH"
^XMB(3.9,149,2,171,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,149,2,172,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,149,2,173,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,149,2,174,0)="YES"
^XMB(3.9,149,2,175,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,149,2,176,0)="D XPI1^XPDIQ"
^XMB(3.9,149,2,177,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,149,2,178,0)="PO^VA(200,:EM"
^XMB(3.9,149,2,179,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,149,2,180,0)="^D MG^XPDH"
^XMB(3.9,149,2,181,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,149,2,182,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,149,2,183,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,149,2,184,0)=""
^XMB(3.9,149,2,185,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,149,2,186,0)="D XPM1^XPDIQ"
^XMB(3.9,149,2,187,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,149,2,188,0)="Y"
^XMB(3.9,149,2,189,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,149,2,190,0)="^D MENU^XPDH"
^XMB(3.9,149,2,191,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,149,2,192,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,149,2,193,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,149,2,194,0)="YES"
^XMB(3.9,149,2,195,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,149,2,196,0)="D XPO1^XPDIQ"
^XMB(3.9,149,2,197,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,149,2,198,0)="Y"
^XMB(3.9,149,2,199,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,149,2,200,0)="^D OPT^XPDH"
^XMB(3.9,149,2,201,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,149,2,202,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,149,2,203,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,149,2,204,0)="YES"
^XMB(3.9,149,2,205,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,149,2,206,0)="D XPZ1^XPDIQ"
^XMB(3.9,149,2,207,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,149,2,208,0)="Y"
^XMB(3.9,149,2,209,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,149,2,210,0)="^D RTN^XPDH"
^XMB(3.9,149,2,211,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,149,2,212,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,149,2,213,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,149,2,214,0)="NO"
^XMB(3.9,149,2,215,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,149,2,216,0)="D XPZ2^XPDIQ"
^XMB(3.9,149,2,217,0)="""RTN"")"
^XMB(3.9,149,2,218,0)="3"
^XMB(3.9,149,2,219,0)="""RTN"",""TIULA1"")"
^XMB(3.9,149,2,220,0)="0^1^B26285953^B21656000"
^XMB(3.9,149,2,221,0)="""RTN"",""TIULA1"",1,0)"
^XMB(3.9,149,2,222,0)="TIULA1 ; SLC/JER - More interactive functions ;4/18/03"
^XMB(3.9,149,2,223,0)="""RTN"",""TIULA1"",2,0)"
^XMB(3.9,149,2,224,0)=" ;;1.0;TEXT INTEGRATION UTILITIES;**75,113,207**;Jun 20, 1997"
^XMB(3.9,149,2,225,0)="""RTN"",""TIULA1"",3,0)"
^XMB(3.9,149,2,226,0)="TRAVERSE(DA,RETURN,PARM,TYPE) ; Select Document Type(s)"
^XMB(3.9,149,2,227,0)="""RTN"",""TIULA1"",4,0)"
^XMB(3.9,149,2,228,0)=" N C,I,XQORM,Y N:'$D(LEVEL) LEVEL S LEVEL=+$G(LEVEL)+1"
^XMB(3.9,149,2,229,0)="""RTN"",""TIULA1"",5,0)"
^XMB(3.9,149,2,230,0)=" S:$G(TYPE)']"""" TYPE=""D"""
^XMB(3.9,149,2,231,0)="""RTN"",""TIULA1"",6,0)"
^XMB(3.9,149,2,232,0)=" S XQORM=DA_"";TIU(8925.1,"",XQORM(0)=$S($L($G(PARM)):PARM,1:""AD"")"
^XMB(3.9,149,2,233,0)="""RTN"",""TIULA1"",7,0)"
^XMB(3.9,149,2,234,0)=" I XQORM(0)[""D"" S XQORM(""H"")=""W !!,$$CENTER^TIULS(""""--- """"_$P(^TIU(8925.1,+DA,0),U,3)_"""" ---""""),!"""
^XMB(3.9,149,2,235,0)="""RTN"",""TIULA1"",8,0)"
^XMB(3.9,149,2,236,0)=" S XQORM(""B"")=$G(^DISV(DUZ,""XQORM"",DA_"";TIU(8925.1,"",1))"
^XMB(3.9,149,2,237,0)="""RTN"",""TIULA1"",9,0)"
^XMB(3.9,149,2,238,0)=" S XQORM(""A"")=""Select ""_$S(XQORM(0)[""D"":""Document"",1:$P(^TIU(8925.1,+DA,0),U,3))_$S(""CD""[$P(^TIU(8925.1,+DA,0),U,4):"" Component"",1:"" Type"")_$S(+XQORM(0)'=1:""(s)"",1:"""")_"": """
^XMB(3.9,149,2,239,0)="""RTN"",""TIULA1"",10,0)"
^XMB(3.9,149,2,240,0)=" D EN^XQORM"
^XMB(3.9,149,2,241,0)="""RTN"",""TIULA1"",11,0)"
^XMB(3.9,149,2,242,0)=" M RETURN(LEVEL)=Y"
^XMB(3.9,149,2,243,0)="""RTN"",""TIULA1"",12,0)"
^XMB(3.9,149,2,244,0)=" S I=0 F  S I=$O(Y(I)) Q:+I'>0  D"
^XMB(3.9,149,2,245,0)="""RTN"",""TIULA1"",13,0)"
^XMB(3.9,149,2,246,0)=" . S J=+$P(Y(I),U,2)"
^XMB(3.9,149,2,247,0)="""RTN"",""TIULA1"",14,0)"
^XMB(3.9,149,2,248,0)=" . I $P(^TIU(8925.1,+J,0),U,4)'=TYPE,$D(^TIU(8925.1,+J,10))'<10 D TRAVERSE(+J,.RETURN,$G(PARM))"
^XMB(3.9,149,2,249,0)="""RTN"",""TIULA1"",15,0)"
^XMB(3.9,149,2,250,0)=" Q"
^XMB(3.9,149,2,251,0)="""RTN"",""TIULA1"",16,0)"
^XMB(3.9,149,2,252,0)="ASKSIG() ; Prompt for ES, return encrypted data"
^XMB(3.9,149,2,253,0)="""RTN"",""TIULA1"",17,0)"
^XMB(3.9,149,2,254,0)=" N ESNAME,ESTITLE,Y S Y=0"
^XMB(3.9,149,2,255,0)="""RTN"",""TIULA1"",18,0)"
^XMB(3.9,149,2,256,0)=" D SIG^XUSESIG I X1']"""" S:'$D(X) X=0 D BADSIG^TIULG(X) G ASKX"
^XMB(3.9,149,2,257,0)="""RTN"",""TIULA1"",19,0)"
^XMB(3.9,149,2,258,0)=" S ESNAME=$P($G(^VA(200,DUZ,20)),U,2),ESTITLE=$P($G(^(20)),U,3)"
^XMB(3.9,149,2,259,0)="""RTN"",""TIULA1"",20,0)"
^XMB(3.9,149,2,260,0)=" S Y=1_U_ESNAME_U_ESTITLE"
^XMB(3.9,149,2,261,0)="""RTN"",""TIULA1"",21,0)"
^XMB(3.9,149,2,262,0)="ASKX Q Y"
^XMB(3.9,149,2,263,0)="""RTN"",""TIULA1"",22,0)"
^XMB(3.9,149,2,264,0)="ASKSUBJ() ; Handle query by subject"
^XMB(3.9,149,2,265,0)="""RTN"",""TIULA1"",23,0)"
^XMB(3.9,149,2,266,0)=" N Y"
^XMB(3.9,149,2,267,0)="""RTN"",""TIULA1"",24,0)"
^XMB(3.9,149,2,268,0)=" S Y=$$READ^TIUU(""FO"",""Where SUBJECT CONTAINS"")"
^XMB(3.9,149,2,269,0)="""RTN"",""TIULA1"",25,0)"
^XMB(3.9,149,2,270,0)=" Q $$UPPER^TIULS(Y)"
^XMB(3.9,149,2,271,0)="""RTN"",""TIULA1"",26,0)"
^XMB(3.9,149,2,272,0)="ASKLOC() ; Handle query by location"
^XMB(3.9,149,2,273,0)="""RTN"",""TIULA1"",27,0)"
^XMB(3.9,149,2,274,0)=" N Y"
^XMB(3.9,149,2,275,0)="""RTN"",""TIULA1"",28,0)"
^XMB(3.9,149,2,276,0)=" S Y=$$READ^TIUU(""P^44:AEMQ"",""Select HOSPITAL LOCATION"")"
^XMB(3.9,149,2,277,0)="""RTN"",""TIULA1"",29,0)"
^XMB(3.9,149,2,278,0)=" Q Y"
^XMB(3.9,149,2,279,0)="""RTN"",""TIULA1"",30,0)"
^XMB(3.9,149,2,280,0)="TYPMATCH(TYPE,CURTYP) ; Check for type match"
^XMB(3.9,149,2,281,0)="""RTN"",""TIULA1"",31,0)"
^XMB(3.9,149,2,282,0)=" N TIUI,TIUY S TIUY=0"
^XMB(3.9,149,2,283,0)="""RTN"",""TIULA1"",32,0)"
^XMB(3.9,149,2,284,0)=" I $L(TYPE,""!"")=1,TYPE=CURTYP S TIUY=1"
^XMB(3.9,149,2,285,0)="""RTN"",""TIULA1"",33,0)"
^XMB(3.9,149,2,286,0)=" E  F TIUI=1:1:$L(TYPE,""!"") I $P(TYPE,""!"",TIUI)=CURTYP S TIUY=1 Q"
^XMB(3.9,149,2,287,0)="""RTN"",""TIULA1"",34,0)"
^XMB(3.9,149,2,288,0)=" Q TIUY"
^XMB(3.9,149,2,289,0)="""RTN"",""TIULA1"",35,0)"
^XMB(3.9,149,2,290,0)="DOCLIST(CLASS,Y,PARM,DFLT) ; Get preferred documents for user"
^XMB(3.9,149,2,291,0)="""RTN"",""TIULA1"",36,0)"
^XMB(3.9,149,2,292,0)=" N TIUDA,XQORM,X"
^XMB(3.9,149,2,293,0)="""RTN"",""TIULA1"",37,0)"
^XMB(3.9,149,2,294,0)=" S TIUDA=+$O(^TIU(8925.98,""AC"",DUZ,CLASS,0)),XQORM=TIUDA_"";TIU(8925.98,"""
^XMB(3.9,149,2,295,0)="""RTN"",""TIULA1"",38,0)"
^XMB(3.9,149,2,296,0)=" I +TIUDA'>0!(+$O(^XUTL(""XQORM"",XQORM,0))'>0) S Y=-1 Q"
^XMB(3.9,149,2,297,0)="""RTN"",""TIULA1"",39,0)"
^XMB(3.9,149,2,298,0)=" I $G(DFLT)=""LAST"" D"
^XMB(3.9,149,2,299,0)="""RTN"",""TIULA1"",40,0)"
^XMB(3.9,149,2,300,0)=" . S DFLT=$O(^DISV(DUZ,""XQORM"",XQORM,0))"
^XMB(3.9,149,2,301,0)="""RTN"",""TIULA1"",41,0)"
^XMB(3.9,149,2,302,0)=" . S DFLT=$S(+DFLT:$G(^DISV(DUZ,""XQORM"",XQORM,DFLT)),1:"""")"
^XMB(3.9,149,2,303,0)="""RTN"",""TIULA1"",42,0)"
^XMB(3.9,149,2,304,0)=" S XQORM(0)=$S(+$P($G(^TIU(8925.98,+TIUDA,10,0)),U,3)=1:""F"",1:PARM)"
^XMB(3.9,149,2,305,0)="""RTN"",""TIULA1"",43,0)"
^XMB(3.9,149,2,306,0)=" S XQORM(""B"")=$S(+$P($G(^TIU(8925.98,+TIUDA,10,0)),U,3)=1:$P($G(^(0)),U,3),1:DFLT)"
^XMB(3.9,149,2,307,0)="""RTN"",""TIULA1"",44,0)"
^XMB(3.9,149,2,308,0)=" I XQORM(0)'[""A"" S X=XQORM(""B"")"
^XMB(3.9,149,2,309,0)="""RTN"",""TIULA1"",45,0)"
^XMB(3.9,149,2,310,0)=" S XQORM(""A"")=$S(CLASS=3:"""",1:""Select "")_$S(CLASS=3:""TITLE"",1:""Document"")_$S(+XQORM(0)'=1:""(s)"",1:"""")_"": """
^XMB(3.9,149,2,311,0)="""RTN"",""TIULA1"",46,0)"
^XMB(3.9,149,2,312,0)=" I XQORM(0)[""D"" D"
^XMB(3.9,149,2,313,0)="""RTN"",""TIULA1"",47,0)"
^XMB(3.9,149,2,314,0)=" . N LISTNAME,PERSNAME S LISTNAME=$$PNAME^TIULC1(CLASS)"
^XMB(3.9,149,2,315,0)="""RTN"",""TIULA1"",48,0)"
^XMB(3.9,149,2,316,0)=" . I $E(LISTNAME,$L(LISTNAME))=""Y"" D"
^XMB(3.9,149,2,317,0)="""RTN"",""TIULA1"",49,0)"
^XMB(3.9,149,2,318,0)=" . . S LISTNAME=$E(LISTNAME,1,($L(LISTNAME)-1))_""IES"""
^XMB(3.9,149,2,319,0)="""RTN"",""TIULA1"",50,0)"
^XMB(3.9,149,2,320,0)=" . I $E(LISTNAME,$L(LISTNAME))=""y"" D"
^XMB(3.9,149,2,321,0)="""RTN"",""TIULA1"",51,0)"
^XMB(3.9,149,2,322,0)=" . . S LISTNAME=$E(LISTNAME,1,($L(LISTNAME)-1))_""ies"""
^XMB(3.9,149,2,323,0)="""RTN"",""TIULA1"",52,0)"
^XMB(3.9,149,2,324,0)=" . S PERSNAME=$$PERSNAME^TIULC1(DUZ)"
^XMB(3.9,149,2,325,0)="""RTN"",""TIULA1"",53,0)"
^XMB(3.9,149,2,326,0)=" . S LISTNAME=""""""""_""--- ""_LISTNAME_"" for ""_PERSNAME_"" ---""_"""""""""
^XMB(3.9,149,2,327,0)="""RTN"",""TIULA1"",54,0)"
^XMB(3.9,149,2,328,0)=" . S XQORM(""H"")=""W !!,$$CENTER^TIULS(""_LISTNAME_""),!"""
^XMB(3.9,149,2,329,0)="""RTN"",""TIULA1"",55,0)"
^XMB(3.9,149,2,330,0)=" S XQORM(""S"")=""I $$CANPICK^TIULP(+$G(^TIU(8925.98,+DA(1),10,+DA,0)))"""
^XMB(3.9,149,2,331,0)="""RTN"",""TIULA1"",56,0)"
^XMB(3.9,149,2,332,0)=" D EN^XQORM"
^XMB(3.9,149,2,333,0)="""RTN"",""TIULA1"",57,0)"
^XMB(3.9,149,2,334,0)=" Q"
^XMB(3.9,149,2,335,0)="""RTN"",""TIULA1"",58,0)"
^XMB(3.9,149,2,336,0)="SELCAT(Y,PARM,DFLT,TIUOVER) ; Get preferred documents for user"
^XMB(3.9,149,2,337,0)="""RTN"",""TIULA1"",59,0)"
^XMB(3.9,149,2,338,0)=" N TIUI,TIUDA,CATREC,CATLOOK,CATSCRN,CATVAL,XQORM,X ;P75 newed CATVAL"
^XMB(3.9,149,2,339,0)="""RTN"",""TIULA1"",60,0)"
^XMB(3.9,149,2,340,0)=" N TIUT1,TIUT2,TIUTSTR,TIUHOLD"
^XMB(3.9,149,2,341,0)="""RTN"",""TIULA1"",61,0)"
^XMB(3.9,149,2,342,0)=" S TIUI=0"
^XMB(3.9,149,2,343,0)="""RTN"",""TIULA1"",62,0)"
^XMB(3.9,149,2,344,0)=" S XQORM=""1;TIU(8925.8,"""
^XMB(3.9,149,2,345,0)="""RTN"",""TIULA1"",63,0)"
^XMB(3.9,149,2,346,0)=" I $G(DFLT)=""LAST"" D"
^XMB(3.9,149,2,347,0)="""RTN"",""TIULA1"",64,0)"
^XMB(3.9,149,2,348,0)=" . S DFLT=$O(^DISV(DUZ,""XQORM"",XQORM,0))"
^XMB(3.9,149,2,349,0)="""RTN"",""TIULA1"",65,0)"
^XMB(3.9,149,2,350,0)=" . S DFLT=$S(+DFLT:$G(^DISV(DUZ,""XQORM"",XQORM,DFLT)),1:"""")"
^XMB(3.9,149,2,351,0)="""RTN"",""TIULA1"",66,0)"
^XMB(3.9,149,2,352,0)=" S XQORM(0)=$G(PARM,""1A"")"
^XMB(3.9,149,2,353,0)="""RTN"",""TIULA1"",67,0)"
^XMB(3.9,149,2,354,0)=" S XQORM(""B"")=$G(DFLT,""AUTHOR"")"
^XMB(3.9,149,2,355,0)="""RTN"",""TIULA1"",68,0)"
^XMB(3.9,149,2,356,0)=" I +$G(ORVP) S XQORM(""S"")=""I $G(^XUTL(""""XQORM"""",XQORM,+$O(^XUTL(""""XQORM"""",XQORM,""""B"""",DA,0)),0))'[""""Patient"""""""
^XMB(3.9,149,2,357,0)="""RTN"",""TIULA1"",69,0)"
^XMB(3.9,149,2,358,0)=" I XQORM(0)'[""A"" S X=XQORM(""B"")"
^XMB(3.9,149,2,359,0)="""RTN"",""TIULA1"",70,0)"
^XMB(3.9,149,2,360,0)=" S XQORM(""A"")=""Select SEARCH CATEGOR""_$S(+XQORM(0)'=1:""IES"",1:""Y"")_"": """
^XMB(3.9,149,2,361,0)="""RTN"",""TIULA1"",71,0)"
^XMB(3.9,149,2,362,0)=" I XQORM(0)[""D"" S XQORM(""H"")=""W !!,$$CENTER^TIULS(""""--- Search Categories ---""""),!"""
^XMB(3.9,149,2,363,0)="""RTN"",""TIULA1"",72,0)"
^XMB(3.9,149,2,364,0)=" D EN^XQORM"
^XMB(3.9,149,2,365,0)="""RTN"",""TIULA1"",73,0)"
^XMB(3.9,149,2,366,0)=" ; BEGIN TIU207"
^XMB(3.9,149,2,367,0)="""RTN"",""TIULA1"",74,0)"
^XMB(3.9,149,2,368,0)=" ; FLAG IF TITLE OR ALL CATEGORIES WERE SELECTED. NEEDED IN HDR^TIURH AS ^TMP(""TIUR"",""TIU OVERRIDE"")"
^XMB(3.9,149,2,369,0)="""RTN"",""TIULA1"",75,0)"
^XMB(3.9,149,2,370,0)=" S TIUT1="""",TIUTSTR="""""
^XMB(3.9,149,2,371,0)="""RTN"",""TIULA1"",76,0)"
^XMB(3.9,149,2,372,0)=" F  S TIUT1=$O(Y(TIUT1)) Q:TIUT1=""""  D"
^XMB(3.9,149,2,373,0)="""RTN"",""TIULA1"",77,0)"
^XMB(3.9,149,2,374,0)=" .I $P(Y(TIUT1),""^"",3)=""Title"" S TIUTSTR=TIUTSTR_""TITLE"""
^XMB(3.9,149,2,375,0)="""RTN"",""TIULA1"",78,0)"
^XMB(3.9,149,2,376,0)=" .I $P(Y(TIUT1),""^"",3)=""All Categories"" S TIUTSTR=TIUTSTR_""ALL"""
^XMB(3.9,149,2,377,0)="""RTN"",""TIULA1"",79,0)"
^XMB(3.9,149,2,378,0)=" I TIUTSTR[""TITLE"" S TIUOVER=TIUTSTR"
^XMB(3.9,149,2,379,0)="""RTN"",""TIULA1"",80,0)"
^XMB(3.9,149,2,380,0)=" ; IF SPECIFIC CATEGORY AND ALL CATEGORIES WHERE SELECTED THEN REMOVE ALL CATEGORIES."
^XMB(3.9,149,2,381,0)="""RTN"",""TIULA1"",81,0)"
^XMB(3.9,149,2,382,0)=" I $O(Y(""""),-1)>1,TIUTSTR[""ALL"" D"
^XMB(3.9,149,2,383,0)="""RTN"",""TIULA1"",82,0)"
^XMB(3.9,149,2,384,0)=" .M TIUHOLD=Y K Y"
^XMB(3.9,149,2,385,0)="""RTN"",""TIULA1"",83,0)"
^XMB(3.9,149,2,386,0)=" .S TIUT1="""",TIUT2=1"
^XMB(3.9,149,2,387,0)="""RTN"",""TIULA1"",84,0)"
^XMB(3.9,149,2,388,0)=" .F  S TIUT1=$O(TIUHOLD(TIUT1)) Q:TIUT1=""""  D"
^XMB(3.9,149,2,389,0)="""RTN"",""TIULA1"",85,0)"
^XMB(3.9,149,2,390,0)=" ..I $P(TIUHOLD(TIUT1),""^"",3)=""All Categories"" Q"
^XMB(3.9,149,2,391,0)="""RTN"",""TIULA1"",86,0)"
^XMB(3.9,149,2,392,0)=" ..S Y(TIUT2)=TIUHOLD(TIUT1)"
^XMB(3.9,149,2,393,0)="""RTN"",""TIULA1"",87,0)"
^XMB(3.9,149,2,394,0)=" ..S Y=TIUT2"
^XMB(3.9,149,2,395,0)="""RTN"",""TIULA1"",88,0)"
^XMB(3.9,149,2,396,0)=" ..S TIUT2=TIUT2+1"
^XMB(3.9,149,2,397,0)="""RTN"",""TIULA1"",89,0)"
^XMB(3.9,149,2,398,0)=" ; END TIU207"
^XMB(3.9,149,2,399,0)="""RTN"",""TIULA1"",90,0)"
^XMB(3.9,149,2,400,0)=" F  S TIUI=$O(Y(TIUI)) Q:+TIUI'>0  D"
^XMB(3.9,149,2,401,0)="""RTN"",""TIULA1"",91,0)"
^XMB(3.9,149,2,402,0)=" . S TIUDA=+$P(Y(TIUI),U,2)"
^XMB(3.9,149,2,403,0)="""RTN"",""TIULA1"",92,0)"
^XMB(3.9,149,2,404,0)=" . S CATREC=$G(^TIU(8925.8,TIUDA,0))"
^XMB(3.9,149,2,405,0)="""RTN"",""TIULA1"",93,0)"
^XMB(3.9,149,2,406,0)=" . S CATSCRN=$G(^TIU(8925.8,TIUDA,1))"
^XMB(3.9,149,2,407,0)="""RTN"",""TIULA1"",94,0)"
^XMB(3.9,149,2,408,0)=" . S CATLOOK=$G(^TIU(8925.8,TIUDA,2))"
^XMB(3.9,149,2,409,0)="""RTN"",""TIULA1"",95,0)"
^XMB(3.9,149,2,410,0)=" . S CATVAL=-1 ;P75"
^XMB(3.9,149,2,411,0)="""RTN"",""TIULA1"",96,0)"
^XMB(3.9,149,2,412,0)=" . I CATLOOK']"""",+$P(CATREC,U,4) S CATVAL=$$DICLOOK(CATREC,CATSCRN)"
^XMB(3.9,149,2,413,0)="""RTN"",""TIULA1"",97,0)"
^XMB(3.9,149,2,414,0)=" . I CATLOOK]"""" S CATVAL=$$LOOK(CATLOOK)"
^XMB(3.9,149,2,415,0)="""RTN"",""TIULA1"",98,0)"
^XMB(3.9,149,2,416,0)=" . I +CATVAL'=-1,$L(CATVAL) S Y(TIUI)=$P(CATREC,U,2)_U_CATVAL"
^XMB(3.9,149,2,417,0)="""RTN"",""TIULA1"",99,0)"
^XMB(3.9,149,2,418,0)=" . E  K Y(TIUI) S Y=+$G(Y)-1"
^XMB(3.9,149,2,419,0)="""RTN"",""TIULA1"",100,0)"
^XMB(3.9,149,2,420,0)=" Q"
^XMB(3.9,149,2,421,0)="""RTN"",""TIULA1"",101,0)"
^XMB(3.9,149,2,422,0)="DICLOOK(CATEGORY,SCREEN) ; Call ^DIC to get category value"
^XMB(3.9,149,2,423,0)="""RTN"",""TIULA1"",102,0)"
^XMB(3.9,149,2,424,0)=" N DIC,X,Y"
^XMB(3.9,149,2,425,0)="""RTN"",""TIULA1"",103,0)"
^XMB(3.9,149,2,426,0)=" S DIC=+$P(CATEGORY,U,4),DIC(0)=""AEMQZ"""
^XMB(3.9,149,2,427,0)="""RTN"",""TIULA1"",104,0)"
^XMB(3.9,149,2,428,0)=" S DIC(""A"")=""Select ""_$P(CATEGORY,U)_"": """
^XMB(3.9,149,2,429,0)="""RTN"",""TIULA1"",105,0)"
^XMB(3.9,149,2,430,0)=" I SCREEN]"""" X SCREEN"
^XMB(3.9,149,2,431,0)="""RTN"",""TIULA1"",106,0)"
^XMB(3.9,149,2,432,0)=" D ^DIC I +$G(DUOUT),(X=""^^"") S DIROUT=1"
^XMB(3.9,149,2,433,0)="""RTN"",""TIULA1"",107,0)"
^XMB(3.9,149,2,434,0)=" Q Y"
^XMB(3.9,149,2,435,0)="""RTN"",""TIULA1"",108,0)"
^XMB(3.9,149,2,436,0)="LOOK(LOOKUP) ; Execute LOOKUP CODE"
^XMB(3.9,149,2,437,0)="""RTN"",""TIULA1"",109,0)"
^XMB(3.9,149,2,438,0)=" N X,Y"
^XMB(3.9,149,2,439,0)="""RTN"",""TIULA1"",110,0)"
^XMB(3.9,149,2,440,0)=" X LOOKUP"
^XMB(3.9,149,2,441,0)="""RTN"",""TIULA1"",111,0)"
^XMB(3.9,149,2,442,0)=" Q Y"
^XMB(3.9,149,2,443,0)="""RTN"",""TIULA1"",112,0)"
^XMB(3.9,149,2,444,0)="GETVSIT(DFN) ; Visit selection code"
^XMB(3.9,149,2,445,0)="""RTN"",""TIULA1"",113,0)"
^XMB(3.9,149,2,446,0)=" N X,Y"
^XMB(3.9,149,2,447,0)="""RTN"",""TIULA1"",114,0)"
^XMB(3.9,149,2,448,0)=" I +$G(ORVP),'+$G(DFN) S DFN=+$G(ORVP)"
^XMB(3.9,149,2,449,0)="""RTN"",""TIULA1"",115,0)"
^XMB(3.9,149,2,450,0)=" D MAIN^TIUVISIT(.Y,$G(DFN))"
^XMB(3.9,149,2,451,0)="""RTN"",""TIULA1"",116,0)"
^XMB(3.9,149,2,452,0)=" S Y=$G(Y(""VISIT""))"
^XMB(3.9,149,2,453,0)="""RTN"",""TIULA1"",117,0)"
^XMB(3.9,149,2,454,0)=" I +Y,+$P(Y,U,2) S $P(Y,U,2)=$$DATE^TIULS($P(Y,U,2),""MM/DD/YY HR:MIN"")"
^XMB(3.9,149,2,455,0)="""RTN"",""TIULA1"",118,0)"
^XMB(3.9,149,2,456,0)=" Q Y"
^XMB(3.9,149,2,457,0)="""RTN"",""TIULA1"",119,0)"
^XMB(3.9,149,2,458,0)="GETTERM(X) ; Get Lexicon term"
^XMB(3.9,149,2,459,0)="""RTN"",""TIULA1"",120,0)"
^XMB(3.9,149,2,460,0)=" N DIC,USEX,Y"
^XMB(3.9,149,2,461,0)="""RTN"",""TIULA1"",121,0)"
^XMB(3.9,149,2,462,0)=" S DIC=757.01,DIC(0)=""AEMQZ"",DIC(""A"")=""Select PROBLEM: """
^XMB(3.9,149,2,463,0)="""RTN"",""TIULA1"",122,0)"
^XMB(3.9,149,2,464,0)=" D ^DIC"
^XMB(3.9,149,2,465,0)="""RTN"",""TIULA1"",123,0)"
^XMB(3.9,149,2,466,0)=" I +Y'>0,(X]""""),(X'="" ""),(X'[""^"") D"
^XMB(3.9,149,2,467,0)="""RTN"",""TIULA1"",124,0)"
^XMB(3.9,149,2,468,0)=" . S USEX=$$READ^TIUU(""Y"","">>>  Use ""_X,""Yes"")"
^XMB(3.9,149,2,469,0)="""RTN"",""TIULA1"",125,0)"
^XMB(3.9,149,2,470,0)=" . I +USEX S Y=1_U_X"
^XMB(3.9,149,2,471,0)="""RTN"",""TIULA1"",126,0)"
^XMB(3.9,149,2,472,0)=" Q Y"
^XMB(3.9,149,2,473,0)="""RTN"",""TIULA1"",127,0)"
^XMB(3.9,149,2,474,0)="GETDIV() ; Get Institution Number and Name"
^XMB(3.9,149,2,475,0)="""RTN"",""TIULA1"",128,0)"
^XMB(3.9,149,2,476,0)=" N TIUDIV,TIUSTN,Y"
^XMB(3.9,149,2,477,0)="""RTN"",""TIULA1"",129,0)"
^XMB(3.9,149,2,478,0)=" S TIUDIV=$S($P($G(^DG(43,1,""GL"")),U,2):$$MULTDIV,1:$$PRIM^VASITE)"
^XMB(3.9,149,2,479,0)="""RTN"",""TIULA1"",130,0)"
^XMB(3.9,149,2,480,0)=" S TIUSTN=$$SITE^VASITE(,TIUDIV)"
^XMB(3.9,149,2,481,0)="""RTN"",""TIULA1"",131,0)"
^XMB(3.9,149,2,482,0)=" I $P(TIUSTN,U)>0,($P(TIUSTN,U,2)]"""") D"
^XMB(3.9,149,2,483,0)="""RTN"",""TIULA1"",132,0)"
^XMB(3.9,149,2,484,0)=" . S Y=$P(TIUSTN,U)_U_$P(TIUSTN,U,2)"
^XMB(3.9,149,2,485,0)="""RTN"",""TIULA1"",133,0)"
^XMB(3.9,149,2,486,0)=" E  D"
^XMB(3.9,149,2,487,0)="""RTN"",""TIULA1"",134,0)"
^XMB(3.9,149,2,488,0)=" . S Y=-1"
^XMB(3.9,149,2,489,0)="""RTN"",""TIULA1"",135,0)"
^XMB(3.9,149,2,490,0)=" Q Y"
^XMB(3.9,149,2,491,0)="""RTN"",""TIULA1"",136,0)"
^XMB(3.9,149,2,492,0)="MULTDIV() ; User selects from active divisions"
^XMB(3.9,149,2,493,0)="""RTN"",""TIULA1"",137,0)"
^XMB(3.9,149,2,494,0)=" N DIR,X,Y"
^XMB(3.9,149,2,495,0)="""RTN"",""TIULA1"",138,0)"
^XMB(3.9,149,2,496,0)=" S DIR(0)=""PA^40.8:EM"""
^XMB(3.9,149,2,497,0)="""RTN"",""TIULA1"",139,0)"
^XMB(3.9,149,2,498,0)=" S DIR(""A"")=""Select DIVISION: """
^XMB(3.9,149,2,499,0)="""RTN"",""TIULA1"",140,0)"
^XMB(3.9,149,2,500,0)=" S DIR(""S"")=""I $$SITE^VASITE(,+Y)>0"""
^XMB(3.9,149,2,501,0)="""RTN"",""TIULA1"",141,0)"
^XMB(3.9,149,2,502,0)=" D ^DIR"
^XMB(3.9,149,2,503,0)="""RTN"",""TIULA1"",142,0)"
^XMB(3.9,149,2,504,0)=" Q +Y"
^XMB(3.9,149,2,505,0)="""RTN"",""TIUR"")"
^XMB(3.9,149,2,506,0)="0^2^B39996639^B36847949"
^XMB(3.9,149,2,507,0)="""RTN"",""TIUR"",1,0)"
^XMB(3.9,149,2,508,0)="TIUR ; SLC/JER - Integrated Document Review ;11/01/03"
^XMB(3.9,149,2,509,0)="""RTN"",""TIUR"",2,0)"
^XMB(3.9,149,2,510,0)=" ;;1.0;TEXT INTEGRATION UTILITIES;**74,79,58,100,113,112,207**;Jun 20, 1997"
^XMB(3.9,149,2,511,0)="""RTN"",""TIUR"",3,0)"
^XMB(3.9,149,2,512,0)=" ; 11/30/00 Moved PUTLIST & ADDELMNT to TIUR1"
^XMB(3.9,149,2,513,0)="""RTN"",""TIUR"",4,0)"
^XMB(3.9,149,2,514,0)="MAKELIST(TIUCLASS,TIUCHVW) ; Get Search Criteria"
^XMB(3.9,149,2,515,0)="""RTN"",""TIUR"",5,0)"
^XMB(3.9,149,2,516,0)=" N DIRUT,DTOUT,DUOUT,TIUI,SCREEN,STATUS,TIUTYP,TIUSTAT,TIUEDFLT,TIUDCL"
^XMB(3.9,149,2,517,0)="""RTN"",""TIUR"",6,0)"
^XMB(3.9,149,2,518,0)=" N TIUDPRMT,TIUPICT,TIUOUT,STATWORD,STATIFN,NOWFLAG,TIUSC207,TIU1DOC"
^XMB(3.9,149,2,519,0)="""RTN"",""TIUR"",7,0)"
^XMB(3.9,149,2,520,0)=" K DIROUT"
^XMB(3.9,149,2,521,0)="""RTN"",""TIUR"",8,0)"
^XMB(3.9,149,2,522,0)=" D INITRR^TIULRR(0)"
^XMB(3.9,149,2,523,0)="""RTN"",""TIUR"",9,0)"
^XMB(3.9,149,2,524,0)=" ;  TIURPN used in Order Entry 2.5, OR OE/RR MENU CLIN:"
^XMB(3.9,149,2,525,0)="""RTN"",""TIUR"",10,0)"
^XMB(3.9,149,2,526,0)=" I +$G(ORVP),(+$G(TIUCHVW)'>0) D EN^TIURPN(TIUCLASS,+ORVP) Q"
^XMB(3.9,149,2,527,0)="""RTN"",""TIUR"",11,0)"
^XMB(3.9,149,2,528,0)="STATUS S STATUS=$$STAT"
^XMB(3.9,149,2,529,0)="""RTN"",""TIUR"",12,0)"
^XMB(3.9,149,2,530,0)=" I +STATUS<0 S VALMQUIT=1 Q"
^XMB(3.9,149,2,531,0)="""RTN"",""TIUR"",13,0)"
^XMB(3.9,149,2,532,0)=" S TIUI=0"
^XMB(3.9,149,2,533,0)="""RTN"",""TIUR"",14,0)"
^XMB(3.9,149,2,534,0)=" F  S TIUI=$O(TIUSTAT(TIUI)) Q:'TIUI!(+$G(TIUOUT))  D"
^XMB(3.9,149,2,535,0)="""RTN"",""TIUR"",15,0)"
^XMB(3.9,149,2,536,0)=" . I $P($G(TIUSTAT(TIUI)),U,3)="""" S TIUOUT=1 Q"
^XMB(3.9,149,2,537,0)="""RTN"",""TIUR"",16,0)"
^XMB(3.9,149,2,538,0)=" . S STATIFN=$O(^TIU(8925.6,""B"",$$UPPER^TIULS($P(TIUSTAT(TIUI),U,3)),0))"
^XMB(3.9,149,2,539,0)="""RTN"",""TIUR"",17,0)"
^XMB(3.9,149,2,540,0)=" . Q:'STATIFN"
^XMB(3.9,149,2,541,0)="""RTN"",""TIUR"",18,0)"
^XMB(3.9,149,2,542,0)=" . S STATUS(""IFNS"")=$G(STATUS(""IFNS""))_STATIFN_"";"""
^XMB(3.9,149,2,543,0)="""RTN"",""TIUR"",19,0)"
^XMB(3.9,149,2,544,0)=" I +$G(TIUOUT) S VALMQUIT=1 Q"
^XMB(3.9,149,2,545,0)="""RTN"",""TIUR"",20,0)"
^XMB(3.9,149,2,546,0)=" S TIUI=1,STATWORD=$$UPPER^TIULS($P(TIUSTAT(1),U,3))"
^XMB(3.9,149,2,547,0)="""RTN"",""TIUR"",21,0)"
^XMB(3.9,149,2,548,0)=" I +$G(TIUSTAT(4))'>0 F  S TIUI=$O(TIUSTAT(TIUI)) Q:+TIUI'>0  D"
^XMB(3.9,149,2,549,0)="""RTN"",""TIUR"",22,0)"
^XMB(3.9,149,2,550,0)=" . S STATWORD=STATWORD_$S(TIUI=+TIUSTAT(1):"" & "",1:"", "")_$$UPPER^TIULS($P(TIUSTAT(TIUI),U,3))"
^XMB(3.9,149,2,551,0)="""RTN"",""TIUR"",23,0)"
^XMB(3.9,149,2,552,0)=" I +$G(TIUSTAT(4))>0 S STATWORD=$S($P(TIUSTAT(4),U,4)=""ALL"":""ALL"",1:STATWORD_"", OTHER"")"
^XMB(3.9,149,2,553,0)="""RTN"",""TIUR"",24,0)"
^XMB(3.9,149,2,554,0)=" S STATUS(""WORDS"")=STATWORD"
^XMB(3.9,149,2,555,0)="""RTN"",""TIUR"",25,0)"
^XMB(3.9,149,2,556,0)="DOCTYPE ; Select Document Type(s)"
^XMB(3.9,149,2,557,0)="""RTN"",""TIUR"",26,0)"
^XMB(3.9,149,2,558,0)=" ; TIU207-If only 1 docytyp and have been to screen prompt then go back another level to avoid loop with next prompt."
^XMB(3.9,149,2,559,0)="""RTN"",""TIUR"",27,0)"
^XMB(3.9,149,2,560,0)=" I $G(TIUSC207)=1,$G(TIU1DOC)=1 D  G STATUS"
^XMB(3.9,149,2,561,0)="""RTN"",""TIUR"",28,0)"
^XMB(3.9,149,2,562,0)=" .S (TIUSC207,TIU1DOC)=0"
^XMB(3.9,149,2,563,0)="""RTN"",""TIUR"",29,0)"
^XMB(3.9,149,2,564,0)=" S (TIUSC207,TIU1DOC)=0"
^XMB(3.9,149,2,565,0)="""RTN"",""TIUR"",30,0)"
^XMB(3.9,149,2,566,0)=" N TIUDCL K TIUPICT"
^XMB(3.9,149,2,567,0)="""RTN"",""TIUR"",31,0)"
^XMB(3.9,149,2,568,0)=" I $S(('$D(TIUQUIK)&'$D(ORVP)):1,($D(ORVP)&+$G(TIUCHVW)):1,1:0) D SELTYP^TIULA(TIUCLASS,.TIUTYP,""A"",""LAST"",""DOC"",0,.TIUDCL,.TIUPICT)"
^XMB(3.9,149,2,569,0)="""RTN"",""TIUR"",32,0)"
^XMB(3.9,149,2,570,0)=" S TIU1DOC=+$P($G(^TIU(8925.1,+TIUCLASS,10,0)),U,3)"
^XMB(3.9,149,2,571,0)="""RTN"",""TIUR"",33,0)"
^XMB(3.9,149,2,572,0)=" ; SELTYP sets array ^TMP(""TIUTYP"",$J);"
^XMB(3.9,149,2,573,0)="""RTN"",""TIUR"",34,0)"
^XMB(3.9,149,2,574,0)=" ; SELTYP used to set data into TIUTYP array"
^XMB(3.9,149,2,575,0)="""RTN"",""TIUR"",35,0)"
^XMB(3.9,149,2,576,0)=" ; Now TIUTYP just =""^TMP(""TIUTYP"",$J)"""
^XMB(3.9,149,2,577,0)="""RTN"",""TIUR"",36,0)"
^XMB(3.9,149,2,578,0)=" I $S($D(TIUQUIK):1,($D(ORVP)&'+$G(TIUCHVW)):1,1:0) D SELTYP^TIULA(TIUCLASS,.TIUTYP,""F"",""ALL"",""DOC"",0)"
^XMB(3.9,149,2,579,0)="""RTN"",""TIUR"",37,0)"
^XMB(3.9,149,2,580,0)=" I +$G(DIROUT) S VALMQUIT=1 Q"
^XMB(3.9,149,2,581,0)="""RTN"",""TIUR"",38,0)"
^XMB(3.9,149,2,582,0)=" I +$G(@TIUTYP)'>0,'$D(TIUQUIK) G STATUS"
^XMB(3.9,149,2,583,0)="""RTN"",""TIUR"",39,0)"
^XMB(3.9,149,2,584,0)="SCREEN ;"
^XMB(3.9,149,2,585,0)="""RTN"",""TIUR"",40,0)"
^XMB(3.9,149,2,586,0)=" S TIUSC207=1"
^XMB(3.9,149,2,587,0)="""RTN"",""TIUR"",41,0)"
^XMB(3.9,149,2,588,0)=" N TIUNAME,TIUOVER"
^XMB(3.9,149,2,589,0)="""RTN"",""TIUR"",42,0)"
^XMB(3.9,149,2,590,0)=" S TIUNAME=$P($G(^VA(200,+DUZ,0)),U)"
^XMB(3.9,149,2,591,0)="""RTN"",""TIUR"",43,0)"
^XMB(3.9,149,2,592,0)=" I $D(TIUQUIK) D  I 1 ; all my unsigned TIUQUIK=1"
^XMB(3.9,149,2,593,0)="""RTN"",""TIUR"",44,0)"
^XMB(3.9,149,2,594,0)=" . I $G(TIUQUIK)=3 S SCREEN(1)=""ALL^ANY"" Q"
^XMB(3.9,149,2,595,0)="""RTN"",""TIUR"",45,0)"
^XMB(3.9,149,2,596,0)=" . S SCREEN(1)=""AAU^""_DUZ_U_TIUNAME"
^XMB(3.9,149,2,597,0)="""RTN"",""TIUR"",46,0)"
^XMB(3.9,149,2,598,0)=" . S:$G(TIUQUIK)=1 SCREEN(2)=""ASUP^""_DUZ"
^XMB(3.9,149,2,599,0)="""RTN"",""TIUR"",47,0)"
^XMB(3.9,149,2,600,0)=" . S SCREEN=""ALL"""
^XMB(3.9,149,2,601,0)="""RTN"",""TIUR"",48,0)"
^XMB(3.9,149,2,602,0)=" E  I $D(ORVP),'+$G(TIUCHVW) S SCREEN(1)=""APT^""_+ORVP_U_$P($G(^DPT(+ORVP,0)),U) I 1"
^XMB(3.9,149,2,603,0)="""RTN"",""TIUR"",49,0)"
^XMB(3.9,149,2,604,0)=" S TIUOVER="""""
^XMB(3.9,149,2,605,0)="""RTN"",""TIUR"",50,0)"
^XMB(3.9,149,2,606,0)=" E  D SELCAT^TIULA1(.SCREEN,""A"",""AUTHOR"",.TIUOVER)"
^XMB(3.9,149,2,607,0)="""RTN"",""TIUR"",51,0)"
^XMB(3.9,149,2,608,0)=" I +$G(DIROUT) S VALMQUIT=1 Q"
^XMB(3.9,149,2,609,0)="""RTN"",""TIUR"",52,0)"
^XMB(3.9,149,2,610,0)=" I $D(SCREEN)'>9 K @TIUTYP G DOCTYPE"
^XMB(3.9,149,2,611,0)="""RTN"",""TIUR"",53,0)"
^XMB(3.9,149,2,612,0)=" I $D(@TIUTYP)'>9 W !,$C(7),""You must select one or more TITLES..."" G SCREEN"
^XMB(3.9,149,2,613,0)="""RTN"",""TIUR"",54,0)"
^XMB(3.9,149,2,614,0)=" I $G(SCREEN(1))=""ALL^ANY"",+$G(ORVP) S SCREEN(1)=""APT^""_+$G(ORVP)_U_$P($G(^DPT(+$G(ORVP),0)),U)"
^XMB(3.9,149,2,615,0)="""RTN"",""TIUR"",55,0)"
^XMB(3.9,149,2,616,0)=" D CHECKADD"
^XMB(3.9,149,2,617,0)="""RTN"",""TIUR"",56,0)"
^XMB(3.9,149,2,618,0)="ERLY S TIUEDFLT=$S(TIUCLASS=3:""T-2"",TIUCLASS=244:""T-30"",1:""T-7"")"
^XMB(3.9,149,2,619,0)="""RTN"",""TIUR"",57,0)"
^XMB(3.9,149,2,620,0)=" S TIUDPRMT=$S(TIUCLASS=244:""Discharge"",1:""Reference"")"
^XMB(3.9,149,2,621,0)="""RTN"",""TIUR"",58,0)"
^XMB(3.9,149,2,622,0)=" S TIUEDT=$S($D(TIUQUIK):1,$D(ORVP)&(+$G(TIUCHVW)'>0):$$FMADD^XLFDT(DT,$S($D(^DPT(+$G(ORVP),.1))'>0:-180,1:-30)),1:$P($$EDATE^TIULA(TIUDPRMT,"""",TIUEDFLT),U))"
^XMB(3.9,149,2,623,0)="""RTN"",""TIUR"",59,0)"
^XMB(3.9,149,2,624,0)=" I +$G(DIROUT) S VALMQUIT=1 Q"
^XMB(3.9,149,2,625,0)="""RTN"",""TIUR"",60,0)"
^XMB(3.9,149,2,626,0)=" I TIUEDT'>0 G SCREEN"
^XMB(3.9,149,2,627,0)="""RTN"",""TIUR"",61,0)"
^XMB(3.9,149,2,628,0)=" S TIULDT=$S($D(TIUQUIK):9999999,$D(ORVP)&(+$G(TIUCHVW)'>0):+$$NOW^XLFDT,1:$P($$LDATE^TIULA(TIUDPRMT),U))"
^XMB(3.9,149,2,629,0)="""RTN"",""TIUR"",62,0)"
^XMB(3.9,149,2,630,0)=" I +$G(DIROUT) S VALMQUIT=1 Q"
^XMB(3.9,149,2,631,0)="""RTN"",""TIUR"",63,0)"
^XMB(3.9,149,2,632,0)=" I TIULDT'>0 G ERLY"
^XMB(3.9,149,2,633,0)="""RTN"",""TIUR"",64,0)"
^XMB(3.9,149,2,634,0)=" I TIUEDT>TIULDT D SWAP(.TIUEDT,.TIULDT)"
^XMB(3.9,149,2,635,0)="""RTN"",""TIUR"",65,0)"
^XMB(3.9,149,2,636,0)=" I $L(TIULDT,""."")=1 D EXPRANGE(.TIUEDT,.TIULDT)"
^XMB(3.9,149,2,637,0)="""RTN"",""TIUR"",66,0)"
^XMB(3.9,149,2,638,0)=" ; -- Reset late date to NOW on rebuild:"
^XMB(3.9,149,2,639,0)="""RTN"",""TIUR"",67,0)"
^XMB(3.9,149,2,640,0)=" S NOWFLAG=$S(TIULDT-$$NOW^XLFDT<.0001:1,1:0)"
^XMB(3.9,149,2,641,0)="""RTN"",""TIUR"",68,0)"
^XMB(3.9,149,2,642,0)=" I '$G(TIURBLD) W !,""Searching for the documents."""
^XMB(3.9,149,2,643,0)="""RTN"",""TIUR"",69,0)"
^XMB(3.9,149,2,644,0)=" D BUILD(TIUCLASS,.STATUS,.SCREEN,TIUEDT,TIULDT,NOWFLAG) ;11/30/00 removed param TIUTYP since BUILD uses global now."
^XMB(3.9,149,2,645,0)="""RTN"",""TIUR"",70,0)"
^XMB(3.9,149,2,646,0)=" ; -- If attaching ID note & changed view,"
^XMB(3.9,149,2,647,0)="""RTN"",""TIUR"",71,0)"
^XMB(3.9,149,2,648,0)=" ;    update video for line to be attached: --"
^XMB(3.9,149,2,649,0)="""RTN"",""TIUR"",72,0)"
^XMB(3.9,149,2,650,0)=" I $G(TIUGLINK) D RESTOREG^TIULM(.TIUGLINK)"
^XMB(3.9,149,2,651,0)="""RTN"",""TIUR"",73,0)"
^XMB(3.9,149,2,652,0)=" ;K @TIUTYP ;11/30/00 keep ^TMP(""TIUTYP"",$J) for rebuild"
^XMB(3.9,149,2,653,0)="""RTN"",""TIUR"",74,0)"
^XMB(3.9,149,2,654,0)=" Q"
^XMB(3.9,149,2,655,0)="""RTN"",""TIUR"",75,0)"
^XMB(3.9,149,2,656,0)="STAT() ; Determine status"
^XMB(3.9,149,2,657,0)="""RTN"",""TIUR"",76,0)"
^XMB(3.9,149,2,658,0)=" N TIUY"
^XMB(3.9,149,2,659,0)="""RTN"",""TIUR"",77,0)"
^XMB(3.9,149,2,660,0)=" I +$G(TIUQUIK) D  G STATX"
^XMB(3.9,149,2,661,0)="""RTN"",""TIUR"",78,0)"
^XMB(3.9,149,2,662,0)=" . S TIUY=$$SELSTAT^TIULA(.TIUSTAT,""F"",$S(TIUQUIK=1:""UNSIGNED,UNCOSIGNED"",TIUQUIK>1:""UNDICTATED,UNTRANSCRIBED""))"
^XMB(3.9,149,2,663,0)="""RTN"",""TIUR"",79,0)"
^XMB(3.9,149,2,664,0)=" I $D(ORVP),'+$G(TIUCHVW) D  G STATX"
^XMB(3.9,149,2,665,0)="""RTN"",""TIUR"",80,0)"
^XMB(3.9,149,2,666,0)=" . S TIUY=$$SELSTAT^TIULA(.TIUSTAT,""F"",""COMPLETED"")"
^XMB(3.9,149,2,667,0)="""RTN"",""TIUR"",81,0)"
^XMB(3.9,149,2,668,0)=" S TIUY=$$SELSTAT^TIULA(.TIUSTAT,""A"",$$DFLTSTAT^TIURM(DUZ))"
^XMB(3.9,149,2,669,0)="""RTN"",""TIUR"",82,0)"
^XMB(3.9,149,2,670,0)="STATX Q TIUY"
^XMB(3.9,149,2,671,0)="""RTN"",""TIUR"",83,0)"
^XMB(3.9,149,2,672,0)="CHECKADD ; Checks whether Addendum is included in the list of types"
^XMB(3.9,149,2,673,0)="""RTN"",""TIUR"",84,0)"
^XMB(3.9,149,2,674,0)=" N TIUI,HIT,NUMTYPS"
^XMB(3.9,149,2,675,0)="""RTN"",""TIUR"",85,0)"
^XMB(3.9,149,2,676,0)=" S (TIUI,HIT)=0"
^XMB(3.9,149,2,677,0)="""RTN"",""TIUR"",86,0)"
^XMB(3.9,149,2,678,0)=" F  S TIUI=$O(^TMP(""TIUTYP"",$J,TIUI)) Q:+TIUI'>0!+HIT  I $$UP^XLFSTR(^TMP(""TIUTYP"",$J,TIUI))[""ADDENDUM"" S HIT=1"
^XMB(3.9,149,2,679,0)="""RTN"",""TIUR"",87,0)"
^XMB(3.9,149,2,680,0)=" S NUMTYPS=^TMP(""TIUTYP"",$J)"
^XMB(3.9,149,2,681,0)="""RTN"",""TIUR"",88,0)"
^XMB(3.9,149,2,682,0)=" I +HIT'>0 S ^TMP(""TIUTYP"",$J,NUMTYPS+1)=+^TMP(""TIUTYP"",$J,NUMTYPS)+1_U_""81^Addendum^NOT PICKED"",^TMP(""TIUTYP"",$J)=^TMP(""TIUTYP"",$J)+1"
^XMB(3.9,149,2,683,0)="""RTN"",""TIUR"",89,0)"
^XMB(3.9,149,2,684,0)=" Q"
^XMB(3.9,149,2,685,0)="""RTN"",""TIUR"",90,0)"
^XMB(3.9,149,2,686,0)=" ;"
^XMB(3.9,149,2,687,0)="""RTN"",""TIUR"",91,0)"
^XMB(3.9,149,2,688,0)="SWAP(TIUX,TIUY) ; Swap variables"
^XMB(3.9,149,2,689,0)="""RTN"",""TIUR"",92,0)"
^XMB(3.9,149,2,690,0)=" N TIUTMP S TIUTMP=TIUX,TIUX=TIUY,TIUY=TIUTMP"
^XMB(3.9,149,2,691,0)="""RTN"",""TIUR"",93,0)"
^XMB(3.9,149,2,692,0)=" Q"
^XMB(3.9,149,2,693,0)="""RTN"",""TIUR"",94,0)"
^XMB(3.9,149,2,694,0)="EXPRANGE(TIUX,TIUY) ; Expand late date to include time"
^XMB(3.9,149,2,695,0)="""RTN"",""TIUR"",95,0)"
^XMB(3.9,149,2,696,0)=" ;P74 If user entered date/time = T, then numerical date time is FIRST ^ PIECE ONLY of TIUX & TIUY."
^XMB(3.9,149,2,697,0)="""RTN"",""TIUR"",96,0)"
^XMB(3.9,149,2,698,0)=" I $P(TIUY,U)=DT S TIUY=$$NOW^XLFDT I 1"
^XMB(3.9,149,2,699,0)="""RTN"",""TIUR"",97,0)"
^XMB(3.9,149,2,700,0)=" E  S TIUY=$P(TIUY,U)_"".""_235959 ;P74 Add seconds"
^XMB(3.9,149,2,701,0)="""RTN"",""TIUR"",98,0)"
^XMB(3.9,149,2,702,0)=" Q"
^XMB(3.9,149,2,703,0)="""RTN"",""TIUR"",99,0)"
^XMB(3.9,149,2,704,0)="BUILD(TIUCLASS,STATUS,SCREEN,EARLY,LATE,NOWFLAG) ; Build List."
^XMB(3.9,149,2,705,0)="""RTN"",""TIUR"",100,0)"
^XMB(3.9,149,2,706,0)=" ;11/30/00 - removed param TYPES. 12/3 added param TIUCLASS"
^XMB(3.9,149,2,707,0)="""RTN"",""TIUR"",101,0)"
^XMB(3.9,149,2,708,0)=" ; BUILD (GATHER) uses docmt type info from ^TMP(""TIUTYP"",$J)"
^XMB(3.9,149,2,709,0)="""RTN"",""TIUR"",102,0)"
^XMB(3.9,149,2,710,0)=" N TIUDT,TIUI,TIUK"
^XMB(3.9,149,2,711,0)="""RTN"",""TIUR"",103,0)"
^XMB(3.9,149,2,712,0)=" N TIUT,TIUTP,XREF,TIUS,TIUPREF"
^XMB(3.9,149,2,713,0)="""RTN"",""TIUR"",104,0)"
^XMB(3.9,149,2,714,0)=" S TIUPREF=$$PERSPRF^TIULE(DUZ),(TIUK,VALMCNT)=0"
^XMB(3.9,149,2,715,0)="""RTN"",""TIUR"",105,0)"
^XMB(3.9,149,2,716,0)=" K ^TMP(""TIUR"",$J),^TMP(""TIURIDX"",$J),^TMP(""TIUI"",$J)"
^XMB(3.9,149,2,717,0)="""RTN"",""TIUR"",106,0)"
^XMB(3.9,149,2,718,0)=" ; If user entered NOW at first build, update NOW for rebuild;"
^XMB(3.9,149,2,719,0)="""RTN"",""TIUR"",107,0)"
^XMB(3.9,149,2,720,0)=" ; Save data in ^TMP(""TIURIDX"",$J,0) for rebuild:"
^XMB(3.9,149,2,721,0)="""RTN"",""TIUR"",108,0)"
^XMB(3.9,149,2,722,0)=" I $G(TIURBLD),$G(NOWFLAG) S LATE=$$NOW^XLFDT"
^XMB(3.9,149,2,723,0)="""RTN"",""TIUR"",109,0)"
^XMB(3.9,149,2,724,0)=" S ^TMP(""TIURIDX"",$J,0)=+EARLY_U_+LATE_U_$G(STATUS(""IFNS""))_U_NOWFLAG"
^XMB(3.9,149,2,725,0)="""RTN"",""TIUR"",110,0)"
^XMB(3.9,149,2,726,0)=" S ^TMP(""TIUR"",$J,""RTN"")=""TIUR"""
^XMB(3.9,149,2,727,0)="""RTN"",""TIUR"",111,0)"
^XMB(3.9,149,2,728,0)=" S ^TMP(""TIUR"",$J,""TITLE OVERRIDE"")=$G(TIUOVER)"
^XMB(3.9,149,2,729,0)="""RTN"",""TIUR"",112,0)"
^XMB(3.9,149,2,730,0)=" I '$D(TIUPRM0) D SETPARM^TIULE"
^XMB(3.9,149,2,731,0)="""RTN"",""TIUR"",113,0)"
^XMB(3.9,149,2,732,0)=" S EARLY=9999999-+$G(EARLY),LATE=9999999-$S(+$G(LATE):+$G(LATE),1:3333333)"
^XMB(3.9,149,2,733,0)="""RTN"",""TIUR"",114,0)"
^XMB(3.9,149,2,734,0)=" F  S TIUK=$O(SCREEN(TIUK)) Q:TIUK'>0  D"
^XMB(3.9,149,2,735,0)="""RTN"",""TIUR"",115,0)"
^XMB(3.9,149,2,736,0)=" . I $G(SCREEN)'=""ALL"" S SCREEN=$G(TIUK)"
^XMB(3.9,149,2,737,0)="""RTN"",""TIUR"",116,0)"
^XMB(3.9,149,2,738,0)=" . S XREF=$P(SCREEN(TIUK),U)"
^XMB(3.9,149,2,739,0)="""RTN"",""TIUR"",117,0)"
^XMB(3.9,149,2,740,0)=" . I XREF'=""ASUB"" D"
^XMB(3.9,149,2,741,0)="""RTN"",""TIUR"",118,0)"
^XMB(3.9,149,2,742,0)=" . . S TIUI=$S(XREF'=""APRB"":$P(SCREEN(TIUK),U,2),1:$$UPPER^TIULS($P(SCREEN(TIUK),U,3)))"
^XMB(3.9,149,2,743,0)="""RTN"",""TIUR"",119,0)"
^XMB(3.9,149,2,744,0)=" . . D GATHER^TIUR1(TIUI,TIUPREF,TIUCLASS,STATUS(""IFNS""),EARLY,LATE,XREF,SCREEN)"
^XMB(3.9,149,2,745,0)="""RTN"",""TIUR"",120,0)"
^XMB(3.9,149,2,746,0)=" . I XREF=""ASUB"" D"
^XMB(3.9,149,2,747,0)="""RTN"",""TIUR"",121,0)"
^XMB(3.9,149,2,748,0)=" . . S TIUI=$O(^TIU(8925,XREF,$P(SCREEN(TIUK),U,2)),-1)"
^XMB(3.9,149,2,749,0)="""RTN"",""TIUR"",122,0)"
^XMB(3.9,149,2,750,0)=" . . F  S TIUI=$O(^TIU(8925,XREF,TIUI)) Q:TIUI=""""!(TIUI'[$P(SCREEN(TIUK),U,2))  D GATHER^TIUR1(TIUI,TIUPREF,TIUCLASS,STATUS(""IFNS""),EARLY,LATE,XREF,SCREEN)"
^XMB(3.9,149,2,751,0)="""RTN"",""TIUR"",123,0)"
^XMB(3.9,149,2,752,0)=" D PUTLIST^TIUR2(TIUPREF,TIUCLASS,.STATUS,.SCREEN)"
^XMB(3.9,149,2,753,0)="""RTN"",""TIUR"",124,0)"
^XMB(3.9,149,2,754,0)=" K ^TMP(""TIUI"",$J)"
^XMB(3.9,149,2,755,0)="""RTN"",""TIUR"",125,0)"
^XMB(3.9,149,2,756,0)=" Q"
^XMB(3.9,149,2,757,0)="""RTN"",""TIUR"",126,0)"
^XMB(3.9,149,2,758,0)=" ;"
^XMB(3.9,149,2,759,0)="""RTN"",""TIUR"",127,0)"
^XMB(3.9,149,2,760,0)="CLEAN ; Clean up your mess!"
^XMB(3.9,149,2,761,0)="""RTN"",""TIUR"",128,0)"
^XMB(3.9,149,2,762,0)=" K ^TMP(""TIUR"",$J),^TMP(""TIURIDX"",$J) D CLEAN^VALM10,KILLRR^TIULRR"
^XMB(3.9,149,2,763,0)="""RTN"",""TIUR"",129,0)"
^XMB(3.9,149,2,764,0)=" K VALMY"
^XMB(3.9,149,2,765,0)="""RTN"",""TIUR"",130,0)"
^XMB(3.9,149,2,766,0)=" K ^TMP(""TIUTYP"",$J)"
^XMB(3.9,149,2,767,0)="""RTN"",""TIUR"",131,0)"
^XMB(3.9,149,2,768,0)=" Q"
^XMB(3.9,149,2,769,0)="""RTN"",""TIUR"",132,0)"
^XMB(3.9,149,2,770,0)=" ;"
^XMB(3.9,149,2,771,0)="""RTN"",""TIUR"",133,0)"
^XMB(3.9,149,2,772,0)="RBLD ; Rebuild list after actions 11/30/00"
^XMB(3.9,149,2,773,0)="""RTN"",""TIUR"",134,0)"
^XMB(3.9,149,2,774,0)=" N TIUEXP,TIUR0,TIURIDX0,TIUSCRN,TMP,TIUEDT,TIULDT,TIUSTAT"
^XMB(3.9,149,2,775,0)="""RTN"",""TIUR"",135,0)"
^XMB(3.9,149,2,776,0)=" N TIURBLD,TIUI,TIUCLASS,NOWFLAG"
^XMB(3.9,149,2,777,0)="""RTN"",""TIUR"",136,0)"
^XMB(3.9,149,2,778,0)=" S TIURBLD=1"
^XMB(3.9,149,2,779,0)="""RTN"",""TIUR"",137,0)"
^XMB(3.9,149,2,780,0)=" D FIXLSTNW^TIULM ;restore video for elements added to end of list"
^XMB(3.9,149,2,781,0)="""RTN"",""TIUR"",138,0)"
^XMB(3.9,149,2,782,0)=" I +$O(^TMP(""TIUR"",$J,""EXPAND"",0)) D"
^XMB(3.9,149,2,783,0)="""RTN"",""TIUR"",139,0)"
^XMB(3.9,149,2,784,0)=" . M TIUEXP=^TMP(""TIUR"",$J,""EXPAND"")"
^XMB(3.9,149,2,785,0)="""RTN"",""TIUR"",140,0)"
^XMB(3.9,149,2,786,0)=" S TIUR0=^TMP(""TIUR"",$J,0),TIURIDX0=^TMP(""TIURIDX"",$J,0)"
^XMB(3.9,149,2,787,0)="""RTN"",""TIUR"",141,0)"
^XMB(3.9,149,2,788,0)=" S TIUSCRN=$P(TIUR0,U,3,99),TIUCLASS=^TMP(""TIUR"",$J,""CLASS"")"
^XMB(3.9,149,2,789,0)="""RTN"",""TIUR"",142,0)"
^XMB(3.9,149,2,790,0)=" S TIUI=1"
^XMB(3.9,149,2,791,0)="""RTN"",""TIUR"",143,0)"
^XMB(3.9,149,2,792,0)=" F  S TMP=$P(TIUSCRN,"";"",TIUI) Q:TMP=""""  D"
^XMB(3.9,149,2,793,0)="""RTN"",""TIUR"",144,0)"
^XMB(3.9,149,2,794,0)=" . S TIUSCRN(TIUI)=TMP,TIUI=TIUI+1"
^XMB(3.9,149,2,795,0)="""RTN"",""TIUR"",145,0)"
^XMB(3.9,149,2,796,0)=" S TIUSCRN=$L(TIUSCRN,"";"")"
^XMB(3.9,149,2,797,0)="""RTN"",""TIUR"",146,0)"
^XMB(3.9,149,2,798,0)=" S STATUS(""WORDS"")=$P(TIUR0,U,2)"
^XMB(3.9,149,2,799,0)="""RTN"",""TIUR"",147,0)"
^XMB(3.9,149,2,800,0)=" S STATUS(""IFNS"")=$P(TIURIDX0,U,3)"
^XMB(3.9,149,2,801,0)="""RTN"",""TIUR"",148,0)"
^XMB(3.9,149,2,802,0)=" S TIUEDT=$P(TIURIDX0,U),TIULDT=$P(TIURIDX0,U,2),NOWFLAG=+$P(TIURIDX0,U,4)"
^XMB(3.9,149,2,803,0)="""RTN"",""TIUR"",149,0)"
^XMB(3.9,149,2,804,0)=" D BUILD(TIUCLASS,.STATUS,.TIUSCRN,TIUEDT,TIULDT,NOWFLAG)"
^XMB(3.9,149,2,805,0)="""RTN"",""TIUR"",150,0)"
^XMB(3.9,149,2,806,0)=" ; Reexpand previously expanded items:"
^XMB(3.9,149,2,807,0)="""RTN"",""TIUR"",151,0)"
^XMB(3.9,149,2,808,0)=" D RELOAD^TIUROR1(.TIUEXP)"
^XMB(3.9,149,2,809,0)="""RTN"",""TIUR"",152,0)"
^XMB(3.9,149,2,810,0)=" D BREATHE^TIUROR1(1)"
^XMB(3.9,149,2,811,0)="""RTN"",""TIUR"",153,0)"
^XMB(3.9,149,2,812,0)=" Q"
^XMB(3.9,149,2,813,0)="""RTN"",""TIURH"")"
^XMB(3.9,149,2,814,0)="0^3^B4359580^B3848537"
^XMB(3.9,149,2,815,0)="""RTN"",""TIURH"",1,0)"
^XMB(3.9,149,2,816,0)="TIURH ; SLC/JER - Review Screen Header ;5/7/03"
^XMB(3.9,149,2,817,0)="""RTN"",""TIURH"",2,0)"
^XMB(3.9,149,2,818,0)=" ;;1.0;TEXT INTEGRATION UTILITIES;**113,207**;Jun 20, 1997"
^XMB(3.9,149,2,819,0)="""RTN"",""TIURH"",3,0)"
^XMB(3.9,149,2,820,0)="HDR ; Initialize header for clinician's review screen"
^XMB(3.9,149,2,821,0)="""RTN"",""TIURH"",4,0)"
^XMB(3.9,149,2,822,0)=" N BY,TIUI,TIUX,SCREEN,STATUS,RANGE,TIUBY,TIUDOCS,XREF,TIUNAME"
^XMB(3.9,149,2,823,0)="""RTN"",""TIURH"",5,0)"
^XMB(3.9,149,2,824,0)=" S TIUX=$G(^TMP(""TIUR"",$J,0)),STATUS=$P(TIUX,U,2),SCREEN=$P(TIUX,U,3,99)"
^XMB(3.9,149,2,825,0)="""RTN"",""TIURH"",6,0)"
^XMB(3.9,149,2,826,0)=" S VALM(""TITLE"")=$S($L(STATUS,"","")>1:$S(VALM(""ENTITY"")=""Document"":""Clinical"",1:""""),1:STATUS)"
^XMB(3.9,149,2,827,0)="""RTN"",""TIURH"",7,0)"
^XMB(3.9,149,2,828,0)=" I $G(XQY0)[""MY UNSIGNED"" S VALM(""TITLE"")=""MY UNSIGNED"""
^XMB(3.9,149,2,829,0)="""RTN"",""TIURH"",8,0)"
^XMB(3.9,149,2,830,0)=" S:$L(VALM(""TITLE"")) VALM(""TITLE"")=VALM(""TITLE"")_"" """
^XMB(3.9,149,2,831,0)="""RTN"",""TIURH"",9,0)"
^XMB(3.9,149,2,832,0)=" S VALM(""TITLE"")=VALM(""TITLE"")_$S($L(VALM(""ENTITY"")):$$NTTNM(VALM(""ENTITY"")),1:""Document"")_""s"""
^XMB(3.9,149,2,833,0)="""RTN"",""TIURH"",10,0)"
^XMB(3.9,149,2,834,0)=" I +TIUEDT>1 S RANGE="" from ""_$$DATE^TIULS(TIUEDT,""MM/DD/YY"")_"" to ""_$$DATE^TIULS(TIULDT,""MM/DD/YY"")"
^XMB(3.9,149,2,835,0)="""RTN"",""TIURH"",11,0)"
^XMB(3.9,149,2,836,0)=" F TIUI=1:1:$L(SCREEN,"";"") D"
^XMB(3.9,149,2,837,0)="""RTN"",""TIURH"",12,0)"
^XMB(3.9,149,2,838,0)=" . S XREF=$P($P(SCREEN,"";"",TIUI),U),XREF=$O(^TIU(8925.8,""C"",XREF,0))"
^XMB(3.9,149,2,839,0)="""RTN"",""TIURH"",13,0)"
^XMB(3.9,149,2,840,0)=" . I $D(TIUQUIK) D"
^XMB(3.9,149,2,841,0)="""RTN"",""TIURH"",14,0)"
^XMB(3.9,149,2,842,0)=" . . S TIUBY=$G(TIUBY)_$S($G(TIUBY)]"""":"" or "",1:"""")"
^XMB(3.9,149,2,843,0)="""RTN"",""TIURH"",15,0)"
^XMB(3.9,149,2,844,0)=" . E  D"
^XMB(3.9,149,2,845,0)="""RTN"",""TIURH"",16,0)"
^XMB(3.9,149,2,846,0)=" . . S TIUBY=$G(TIUBY)_$S($G(TIUBY)]"""":"" and "",1:"""")"
^XMB(3.9,149,2,847,0)="""RTN"",""TIURH"",17,0)"
^XMB(3.9,149,2,848,0)=" . S TIUNAME=$P($G(^TIU(8925.8,+XREF,0)),U)"
^XMB(3.9,149,2,849,0)="""RTN"",""TIURH"",18,0)"
^XMB(3.9,149,2,850,0)=" . I TIUNAME=""ALL CATEGORIES"",$G(^TMP(""TIUR"",$J,""TITLE OVERRIDE""))[""TITLE"" S TIUNAME=""TITLE"""
^XMB(3.9,149,2,851,0)="""RTN"",""TIURH"",19,0)"
^XMB(3.9,149,2,852,0)=" . S TIUBY=$G(TIUBY)_TIUNAME"
^XMB(3.9,149,2,853,0)="""RTN"",""TIURH"",20,0)"
^XMB(3.9,149,2,854,0)=" . S:$P($P(SCREEN,"";"",TIUI),U,3)]"""" TIUBY=$G(TIUBY)_"" (""_$P($P(SCREEN,"";"",TIUI),U,3)_"")"""
^XMB(3.9,149,2,855,0)="""RTN"",""TIURH"",21,0)"
^XMB(3.9,149,2,856,0)=" S BY=""by ""_TIUBY"
^XMB(3.9,149,2,857,0)="""RTN"",""TIURH"",22,0)"
^XMB(3.9,149,2,858,0)=" ; I BY'[""ALL"",(BY'[""SUBJECT"") S BY=BY_"" for ""_$P($P(SCREEN,U,3),"";"")"
^XMB(3.9,149,2,859,0)="""RTN"",""TIURH"",23,0)"
^XMB(3.9,149,2,860,0)=" S VALMHDR(1)=$$CENTER^TIULS(BY_$S($L(SCREEN,"";"")=1:$G(RANGE),1:""""))"
^XMB(3.9,149,2,861,0)="""RTN"",""TIURH"",24,0)"
^XMB(3.9,149,2,862,0)=" S TIUDOCS=$J(+$G(^TMP(""TIUR"",$J,0)),4)_"" documents"""
^XMB(3.9,149,2,863,0)="""RTN"",""TIURH"",25,0)"
^XMB(3.9,149,2,864,0)=" S VALMHDR(1)=$$SETSTR^VALM1(TIUDOCS,VALMHDR(1),(IOM-$L(TIUDOCS)),$L(TIUDOCS))"
^XMB(3.9,149,2,865,0)="""RTN"",""TIURH"",26,0)"
^XMB(3.9,149,2,866,0)=" ; I $L($G(RANGE)) S VALMHDR(2)=$$CENTER^TIULS(RANGE)"
^XMB(3.9,149,2,867,0)="""RTN"",""TIURH"",27,0)"
^XMB(3.9,149,2,868,0)=" Q"
^XMB(3.9,149,2,869,0)="""RTN"",""TIURH"",28,0)"
^XMB(3.9,149,2,870,0)="NTTNM(NAME) ; Handle plural names appropriately"
^XMB(3.9,149,2,871,0)="""RTN"",""TIURH"",29,0)"
^XMB(3.9,149,2,872,0)=" I ""Yy""[$E(NAME,$L(NAME)) S NAME=$E(NAME,1,($L(NAME)-1))_""ie"""
^XMB(3.9,149,2,873,0)="""RTN"",""TIURH"",30,0)"
^XMB(3.9,149,2,874,0)=" I NAME=""Discharge Summarie"" S NAME=""Disch Summarie"""
^XMB(3.9,149,2,875,0)="""RTN"",""TIURH"",31,0)"
^XMB(3.9,149,2,876,0)=" Q NAME"
^XMB(3.9,149,2,877,0)="""VER"")"
^XMB(3.9,149,2,878,0)="8.0^22.0"
^XMB(3.9,149,2,879,0)="""BLD"",6560,6)"
^XMB(3.9,149,2,880,0)="^197"
^XMB(3.9,149,2,881,0)="$END KID TIU*1.0*207"
^XMB(3.9,149,6,0)="^3.911A^2^2"
^XMB(3.9,149,6,1,0)="POSTMASTER"
^XMB(3.9,149,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,149,6,"B","POSTMASTER",1)=""
^XMB(3.9,149,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,150,0)="TIU-1_SEQ-198_PAT-199.KID^.5^3061008.015743^^^^K"
^XMB(3.9,150,.6)="3061008"
^XMB(3.9,150,1,0)="^3.91A^2^2"
^XMB(3.9,150,1,1,0)=".5^0^3061008.015743^^^^^^^3061008.015743"
^XMB(3.9,150,1,2,0)="1^0^3061008.022828^^^^^^^3061008.022828"
^XMB(3.9,150,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,150,1,"C",.5,1)=""
^XMB(3.9,150,1,"C",1,2)=""
^XMB(3.9,150,2,0)="^^1015^1015^3061008"
^XMB(3.9,150,2,1,0)="$TXT Released TIU*1*199 SEQ #198"
^XMB(3.9,150,2,2,0)="Extracted from mail message"
^XMB(3.9,150,2,3,0)="$END TXT"
^XMB(3.9,150,2,4,0)="$KID TIU*1.0*199"
^XMB(3.9,150,2,5,0)="**INSTALL NAME**"
^XMB(3.9,150,2,6,0)="TIU*1.0*199"
^XMB(3.9,150,2,7,0)="""BLD"",6776,0)"
^XMB(3.9,150,2,8,0)="TIU*1.0*199^TEXT INTEGRATION UTILITIES^0^3060612^y"
^XMB(3.9,150,2,9,0)="""BLD"",6776,1,0)"
^XMB(3.9,150,2,10,0)="^^3^3^3050901^"
^XMB(3.9,150,2,11,0)="""BLD"",6776,1,1,0)"
^XMB(3.9,150,2,12,0)="Fix ACL cross reference for field .02 in file 8925.1. Add field ""SIGNED "
^XMB(3.9,150,2,13,0)="""BLD"",6776,1,2,0)"
^XMB(3.9,150,2,14,0)="BY SURROGATE to file 8925.7 and provide tool to set this field for notes "
^XMB(3.9,150,2,15,0)="""BLD"",6776,1,3,0)"
^XMB(3.9,150,2,16,0)="signed prior to this patch."
^XMB(3.9,150,2,17,0)="""BLD"",6776,4,0)"
^XMB(3.9,150,2,18,0)="^9.64PA^8925.7^1"
^XMB(3.9,150,2,19,0)="""BLD"",6776,4,8925.7,0)"
^XMB(3.9,150,2,20,0)="8925.7"
^XMB(3.9,150,2,21,0)="""BLD"",6776,4,8925.7,2,0)"
^XMB(3.9,150,2,22,0)="^9.641^8925.7^1"
^XMB(3.9,150,2,23,0)="""BLD"",6776,4,8925.7,2,8925.7,0)"
^XMB(3.9,150,2,24,0)="TIU MULTIPLE SIGNATURE  (File-top level)"
^XMB(3.9,150,2,25,0)="""BLD"",6776,4,8925.7,2,8925.7,1,0)"
^XMB(3.9,150,2,26,0)="^9.6411^.05^2"
^XMB(3.9,150,2,27,0)="""BLD"",6776,4,8925.7,2,8925.7,1,.05,0)"
^XMB(3.9,150,2,28,0)="ACTUAL COSIGNER"
^XMB(3.9,150,2,29,0)="""BLD"",6776,4,8925.7,2,8925.7,1,.09,0)"
^XMB(3.9,150,2,30,0)="SIGNED BY SURROGATE"
^XMB(3.9,150,2,31,0)="""BLD"",6776,4,8925.7,222)"
^XMB(3.9,150,2,32,0)="y^n^p^^^^n^^n"
^XMB(3.9,150,2,33,0)="""BLD"",6776,4,8925.7,224)"
^XMB(3.9,150,2,34,0)=" "
^XMB(3.9,150,2,35,0)="""BLD"",6776,4,""APDD"",8925.7,8925.7)"
^XMB(3.9,150,2,36,0)=" "
^XMB(3.9,150,2,37,0)="""BLD"",6776,4,""APDD"",8925.7,8925.7,.05)"
^XMB(3.9,150,2,38,0)=" "
^XMB(3.9,150,2,39,0)="""BLD"",6776,4,""APDD"",8925.7,8925.7,.09)"
^XMB(3.9,150,2,40,0)=" "
^XMB(3.9,150,2,41,0)="""BLD"",6776,4,""B"",8925.7,8925.7)"
^XMB(3.9,150,2,42,0)=" "
^XMB(3.9,150,2,43,0)="""BLD"",6776,6)"
^XMB(3.9,150,2,44,0)="2^"
^XMB(3.9,150,2,45,0)="""BLD"",6776,""ABPKG"")"
^XMB(3.9,150,2,46,0)="n"
^XMB(3.9,150,2,47,0)="""BLD"",6776,""INID"")"
^XMB(3.9,150,2,48,0)="^n"
^XMB(3.9,150,2,49,0)="""BLD"",6776,""INIT"")"
^XMB(3.9,150,2,50,0)="POST199^TIU199"
^XMB(3.9,150,2,51,0)="""BLD"",6776,""KRN"",0)"
^XMB(3.9,150,2,52,0)="^9.67PA^8989.52^19"
^XMB(3.9,150,2,53,0)="""BLD"",6776,""KRN"",.4,0)"
^XMB(3.9,150,2,54,0)=".4"
^XMB(3.9,150,2,55,0)="""BLD"",6776,""KRN"",.401,0)"
^XMB(3.9,150,2,56,0)=".401"
^XMB(3.9,150,2,57,0)="""BLD"",6776,""KRN"",.402,0)"
^XMB(3.9,150,2,58,0)=".402"
^XMB(3.9,150,2,59,0)="""BLD"",6776,""KRN"",.403,0)"
^XMB(3.9,150,2,60,0)=".403"
^XMB(3.9,150,2,61,0)="""BLD"",6776,""KRN"",.5,0)"
^XMB(3.9,150,2,62,0)=".5"
^XMB(3.9,150,2,63,0)="""BLD"",6776,""KRN"",.84,0)"
^XMB(3.9,150,2,64,0)=".84"
^XMB(3.9,150,2,65,0)="""BLD"",6776,""KRN"",3.6,0)"
^XMB(3.9,150,2,66,0)="3.6"
^XMB(3.9,150,2,67,0)="""BLD"",6776,""KRN"",3.8,0)"
^XMB(3.9,150,2,68,0)="3.8"
^XMB(3.9,150,2,69,0)="""BLD"",6776,""KRN"",9.2,0)"
^XMB(3.9,150,2,70,0)="9.2"
^XMB(3.9,150,2,71,0)="""BLD"",6776,""KRN"",9.8,0)"
^XMB(3.9,150,2,72,0)="9.8"
^XMB(3.9,150,2,73,0)="""BLD"",6776,""KRN"",9.8,""NM"",0)"
^XMB(3.9,150,2,74,0)="^9.68A^2^2"
^XMB(3.9,150,2,75,0)="""BLD"",6776,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,150,2,76,0)="TIU199^^0^B15288294"
^XMB(3.9,150,2,77,0)="""BLD"",6776,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,150,2,78,0)="TIUAL1^^0^B88079624"
^XMB(3.9,150,2,79,0)="""BLD"",6776,""KRN"",9.8,""NM"",""B"",""TIU199"",1)"
^XMB(3.9,150,2,80,0)=" "
^XMB(3.9,150,2,81,0)="""BLD"",6776,""KRN"",9.8,""NM"",""B"",""TIUAL1"",2)"
^XMB(3.9,150,2,82,0)=" "
^XMB(3.9,150,2,83,0)="""BLD"",6776,""KRN"",19,0)"
^XMB(3.9,150,2,84,0)="19"
^XMB(3.9,150,2,85,0)="""BLD"",6776,""KRN"",19,""NM"",0)"
^XMB(3.9,150,2,86,0)="^9.68A^2^2"
^XMB(3.9,150,2,87,0)="""BLD"",6776,""KRN"",19,""NM"",1,0)"
^XMB(3.9,150,2,88,0)="TIU MAIN MENU MGR^^2"
^XMB(3.9,150,2,89,0)="""BLD"",6776,""KRN"",19,""NM"",2,0)"
^XMB(3.9,150,2,90,0)="TIU MARK SIGNED BY SURROGATE^^0"
^XMB(3.9,150,2,91,0)="""BLD"",6776,""KRN"",19,""NM"",""B"",""TIU MAIN MENU MGR"",1)"
^XMB(3.9,150,2,92,0)=" "
^XMB(3.9,150,2,93,0)="""BLD"",6776,""KRN"",19,""NM"",""B"",""TIU MARK SIGNED BY SURROGATE"",2)"
^XMB(3.9,150,2,94,0)=" "
^XMB(3.9,150,2,95,0)="""BLD"",6776,""KRN"",19.1,0)"
^XMB(3.9,150,2,96,0)="19.1"
^XMB(3.9,150,2,97,0)="""BLD"",6776,""KRN"",101,0)"
^XMB(3.9,150,2,98,0)="101"
^XMB(3.9,150,2,99,0)="""BLD"",6776,""KRN"",409.61,0)"
^XMB(3.9,150,2,100,0)="409.61"
^XMB(3.9,150,2,101,0)="""BLD"",6776,""KRN"",771,0)"
^XMB(3.9,150,2,102,0)="771"
^XMB(3.9,150,2,103,0)="""BLD"",6776,""KRN"",870,0)"
^XMB(3.9,150,2,104,0)="870"
^XMB(3.9,150,2,105,0)="""BLD"",6776,""KRN"",8989.51,0)"
^XMB(3.9,150,2,106,0)="8989.51"
^XMB(3.9,150,2,107,0)="""BLD"",6776,""KRN"",8989.52,0)"
^XMB(3.9,150,2,108,0)="8989.52"
^XMB(3.9,150,2,109,0)="""BLD"",6776,""KRN"",8994,0)"
^XMB(3.9,150,2,110,0)="8994"
^XMB(3.9,150,2,111,0)="""BLD"",6776,""KRN"",""B"",.4,.4)"
^XMB(3.9,150,2,112,0)=" "
^XMB(3.9,150,2,113,0)="""BLD"",6776,""KRN"",""B"",.401,.401)"
^XMB(3.9,150,2,114,0)=" "
^XMB(3.9,150,2,115,0)="""BLD"",6776,""KRN"",""B"",.402,.402)"
^XMB(3.9,150,2,116,0)=" "
^XMB(3.9,150,2,117,0)="""BLD"",6776,""KRN"",""B"",.403,.403)"
^XMB(3.9,150,2,118,0)=" "
^XMB(3.9,150,2,119,0)="""BLD"",6776,""KRN"",""B"",.5,.5)"
^XMB(3.9,150,2,120,0)=" "
^XMB(3.9,150,2,121,0)="""BLD"",6776,""KRN"",""B"",.84,.84)"
^XMB(3.9,150,2,122,0)=" "
^XMB(3.9,150,2,123,0)="""BLD"",6776,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,150,2,124,0)=" "
^XMB(3.9,150,2,125,0)="""BLD"",6776,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,150,2,126,0)=" "
^XMB(3.9,150,2,127,0)="""BLD"",6776,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,150,2,128,0)=" "
^XMB(3.9,150,2,129,0)="""BLD"",6776,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,150,2,130,0)=" "
^XMB(3.9,150,2,131,0)="""BLD"",6776,""KRN"",""B"",19,19)"
^XMB(3.9,150,2,132,0)=" "
^XMB(3.9,150,2,133,0)="""BLD"",6776,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,150,2,134,0)=" "
^XMB(3.9,150,2,135,0)="""BLD"",6776,""KRN"",""B"",101,101)"
^XMB(3.9,150,2,136,0)=" "
^XMB(3.9,150,2,137,0)="""BLD"",6776,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,150,2,138,0)=" "
^XMB(3.9,150,2,139,0)="""BLD"",6776,""KRN"",""B"",771,771)"
^XMB(3.9,150,2,140,0)=" "
^XMB(3.9,150,2,141,0)="""BLD"",6776,""KRN"",""B"",870,870)"
^XMB(3.9,150,2,142,0)=" "
^XMB(3.9,150,2,143,0)="""BLD"",6776,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,150,2,144,0)=" "
^XMB(3.9,150,2,145,0)="""BLD"",6776,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,150,2,146,0)=" "
^XMB(3.9,150,2,147,0)="""BLD"",6776,""KRN"",""B"",8994,8994)"
^XMB(3.9,150,2,148,0)=" "
^XMB(3.9,150,2,149,0)="""BLD"",6776,""QUES"",0)"
^XMB(3.9,150,2,150,0)="^9.62^^"
^XMB(3.9,150,2,151,0)="""BLD"",6776,""REQB"",0)"
^XMB(3.9,150,2,152,0)="^9.611^1^1"
^XMB(3.9,150,2,153,0)="""BLD"",6776,""REQB"",1,0)"
^XMB(3.9,150,2,154,0)="TIU*1.0*158^2"
^XMB(3.9,150,2,155,0)="""BLD"",6776,""REQB"",""B"",""TIU*1.0*158"",1)"
^XMB(3.9,150,2,156,0)=" "
^XMB(3.9,150,2,157,0)="""FIA"",8925.7)"
^XMB(3.9,150,2,158,0)="TIU MULTIPLE SIGNATURE"
^XMB(3.9,150,2,159,0)="""FIA"",8925.7,0)"
^XMB(3.9,150,2,160,0)="^TIU(8925.7,"
^XMB(3.9,150,2,161,0)="""FIA"",8925.7,0,0)"
^XMB(3.9,150,2,162,0)="8925.7IP"
^XMB(3.9,150,2,163,0)="""FIA"",8925.7,0,1)"
^XMB(3.9,150,2,164,0)="y^n^p^^^^n^^n"
^XMB(3.9,150,2,165,0)="""FIA"",8925.7,0,10)"
^XMB(3.9,150,2,166,0)=" "
^XMB(3.9,150,2,167,0)="""FIA"",8925.7,0,11)"
^XMB(3.9,150,2,168,0)=" "
^XMB(3.9,150,2,169,0)="""FIA"",8925.7,0,""RLRO"")"
^XMB(3.9,150,2,170,0)=" "
^XMB(3.9,150,2,171,0)="""FIA"",8925.7,0,""VR"")"
^XMB(3.9,150,2,172,0)="1.0^TIU"
^XMB(3.9,150,2,173,0)="""FIA"",8925.7,8925.7)"
^XMB(3.9,150,2,174,0)="1"
^XMB(3.9,150,2,175,0)="""FIA"",8925.7,8925.7,.05)"
^XMB(3.9,150,2,176,0)=" "
^XMB(3.9,150,2,177,0)="""FIA"",8925.7,8925.7,.09)"
^XMB(3.9,150,2,178,0)=" "
^XMB(3.9,150,2,179,0)="""INIT"")"
^XMB(3.9,150,2,180,0)="POST199^TIU199"
^XMB(3.9,150,2,181,0)="""KRN"",19,10823,-1)"
^XMB(3.9,150,2,182,0)="2^1"
^XMB(3.9,150,2,183,0)="""KRN"",19,10823,0)"
^XMB(3.9,150,2,184,0)="TIU MAIN MENU MGR^Text Integration Utilities (MIS Manager)^^M^66481^^^^^^y^470^^1^^^1"
^XMB(3.9,150,2,185,0)="""KRN"",19,10823,10,0)"
^XMB(3.9,150,2,186,0)="^19.01IP^19^19"
^XMB(3.9,150,2,187,0)="""KRN"",19,10823,10,19,0)"
^XMB(3.9,150,2,188,0)="12890^12^12"
^XMB(3.9,150,2,189,0)="""KRN"",19,10823,10,19,""^"")"
^XMB(3.9,150,2,190,0)="TIU MARK SIGNED BY SURROGATE"
^XMB(3.9,150,2,191,0)="""KRN"",19,10823,""U"")"
^XMB(3.9,150,2,192,0)="TEXT INTEGRATION UTILITIES (MI"
^XMB(3.9,150,2,193,0)="""KRN"",19,12890,-1)"
^XMB(3.9,150,2,194,0)="0^2"
^XMB(3.9,150,2,195,0)="""KRN"",19,12890,0)"
^XMB(3.9,150,2,196,0)="TIU MARK SIGNED BY SURROGATE^Mark Document as 'Signed by Surrogate'^^R^^^^^^^y^TEXT INTEGRATION UTILITIES"
^XMB(3.9,150,2,197,0)="""KRN"",19,12890,1,0)"
^XMB(3.9,150,2,198,0)="^^4^4^3050718^"
^XMB(3.9,150,2,199,0)="""KRN"",19,12890,1,1,0)"
^XMB(3.9,150,2,200,0)="This option provides a way to mark a document as 'Signed by Surrogate'. "
^XMB(3.9,150,2,201,0)="""KRN"",19,12890,1,2,0)"
^XMB(3.9,150,2,202,0)="This will set the .09 field of file 8925.7 to 1 - meaning that the "
^XMB(3.9,150,2,203,0)="""KRN"",19,12890,1,3,0)"
^XMB(3.9,150,2,204,0)="signing for an Additional Signer was done by a surrogate of that "
^XMB(3.9,150,2,205,0)="""KRN"",19,12890,1,4,0)"
^XMB(3.9,150,2,206,0)="Additional Signer."
^XMB(3.9,150,2,207,0)="""KRN"",19,12890,25)"
^XMB(3.9,150,2,208,0)="EN^TIU199"
^XMB(3.9,150,2,209,0)="""KRN"",19,12890,""U"")"
^XMB(3.9,150,2,210,0)="MARK DOCUMENT AS 'SIGNED BY SU"
^XMB(3.9,150,2,211,0)="""MBREQ"")"
^XMB(3.9,150,2,212,0)="0"
^XMB(3.9,150,2,213,0)="""ORD"",18,19)"
^XMB(3.9,150,2,214,0)="19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA"
^XMB(3.9,150,2,215,0)="""ORD"",18,19,0)"
^XMB(3.9,150,2,216,0)="OPTION"
^XMB(3.9,150,2,217,0)="""PKG"",470,-1)"
^XMB(3.9,150,2,218,0)="1^1"
^XMB(3.9,150,2,219,0)="""PKG"",470,0)"
^XMB(3.9,150,2,220,0)="TEXT INTEGRATION UTILITIES^TIU^Text Integration Utilities "
^XMB(3.9,150,2,221,0)="""PKG"",470,20,0)"
^XMB(3.9,150,2,222,0)="^9.402P^^"
^XMB(3.9,150,2,223,0)="""PKG"",470,22,0)"
^XMB(3.9,150,2,224,0)="^9.49I^1^1"
^XMB(3.9,150,2,225,0)="""PKG"",470,22,1,0)"
^XMB(3.9,150,2,226,0)="1.0^3010801^3010806^66481"
^XMB(3.9,150,2,227,0)="""PKG"",470,22,1,""PAH"",1,0)"
^XMB(3.9,150,2,228,0)="199^3060612^101036"
^XMB(3.9,150,2,229,0)="""PKG"",470,22,1,""PAH"",1,1,0)"
^XMB(3.9,150,2,230,0)="^^3^3^3060612"
^XMB(3.9,150,2,231,0)="""PKG"",470,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,150,2,232,0)="Fix ACL cross reference for field .02 in file 8925.1. Add field ""SIGNED "
^XMB(3.9,150,2,233,0)="""PKG"",470,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,150,2,234,0)="BY SURROGATE to file 8925.7 and provide tool to set this field for notes "
^XMB(3.9,150,2,235,0)="""PKG"",470,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,150,2,236,0)="signed prior to this patch."
^XMB(3.9,150,2,237,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,150,2,238,0)="Y"
^XMB(3.9,150,2,239,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,150,2,240,0)="^D REP^XPDH"
^XMB(3.9,150,2,241,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,150,2,242,0)="Shall I write over your |FLAG| File"
^XMB(3.9,150,2,243,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,150,2,244,0)="YES"
^XMB(3.9,150,2,245,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,150,2,246,0)="D XPF1^XPDIQ"
^XMB(3.9,150,2,247,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,150,2,248,0)="Y"
^XMB(3.9,150,2,249,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,150,2,250,0)="^D DTA^XPDH"
^XMB(3.9,150,2,251,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,150,2,252,0)="Want my data |FLAG| yours"
^XMB(3.9,150,2,253,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,150,2,254,0)="YES"
^XMB(3.9,150,2,255,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,150,2,256,0)="D XPF2^XPDIQ"
^XMB(3.9,150,2,257,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,150,2,258,0)="YO"
^XMB(3.9,150,2,259,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,150,2,260,0)="^D INHIBIT^XPDH"
^XMB(3.9,150,2,261,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,150,2,262,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,150,2,263,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,150,2,264,0)="YES"
^XMB(3.9,150,2,265,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,150,2,266,0)="D XPI1^XPDIQ"
^XMB(3.9,150,2,267,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,150,2,268,0)="PO^VA(200,:EM"
^XMB(3.9,150,2,269,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,150,2,270,0)="^D MG^XPDH"
^XMB(3.9,150,2,271,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,150,2,272,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,150,2,273,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,150,2,274,0)=" "
^XMB(3.9,150,2,275,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,150,2,276,0)="D XPM1^XPDIQ"
^XMB(3.9,150,2,277,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,150,2,278,0)="Y"
^XMB(3.9,150,2,279,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,150,2,280,0)="^D MENU^XPDH"
^XMB(3.9,150,2,281,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,150,2,282,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,150,2,283,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,150,2,284,0)="YES"
^XMB(3.9,150,2,285,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,150,2,286,0)="D XPO1^XPDIQ"
^XMB(3.9,150,2,287,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,150,2,288,0)="Y"
^XMB(3.9,150,2,289,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,150,2,290,0)="^D OPT^XPDH"
^XMB(3.9,150,2,291,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,150,2,292,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,150,2,293,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,150,2,294,0)="YES"
^XMB(3.9,150,2,295,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,150,2,296,0)="D XPZ1^XPDIQ"
^XMB(3.9,150,2,297,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,150,2,298,0)="Y"
^XMB(3.9,150,2,299,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,150,2,300,0)="^D RTN^XPDH"
^XMB(3.9,150,2,301,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,150,2,302,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,150,2,303,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,150,2,304,0)="NO"
^XMB(3.9,150,2,305,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,150,2,306,0)="D XPZ2^XPDIQ"
^XMB(3.9,150,2,307,0)="""RTN"")"
^XMB(3.9,150,2,308,0)="2"
^XMB(3.9,150,2,309,0)="""RTN"",""TIU199"")"
^XMB(3.9,150,2,310,0)="0^1^B15288294"
^XMB(3.9,150,2,311,0)="""RTN"",""TIU199"",1,0)"
^XMB(3.9,150,2,312,0)="TIU199 ;BP/JML - TIU Alert Fix Tool ; 7/6/05 4:06pm"
^XMB(3.9,150,2,313,0)="""RTN"",""TIU199"",2,0)"
^XMB(3.9,150,2,314,0)=" ;;1.0;TEXT INTEGRATION UTILITIES;**199**;Jun 20, 1997"
^XMB(3.9,150,2,315,0)="""RTN"",""TIU199"",3,0)"
^XMB(3.9,150,2,316,0)=" ;"
^XMB(3.9,150,2,317,0)="""RTN"",""TIU199"",4,0)"
^XMB(3.9,150,2,318,0)=" Q"
^XMB(3.9,150,2,319,0)="""RTN"",""TIU199"",5,0)"
^XMB(3.9,150,2,320,0)="TRIGGER ; trigger code for the .05 field of file 8925.7"
^XMB(3.9,150,2,321,0)="""RTN"",""TIU199"",6,0)"
^XMB(3.9,150,2,322,0)=" ; note - do not ""NEW"" DA or X as these are passed in from FileMan"
^XMB(3.9,150,2,323,0)="""RTN"",""TIU199"",7,0)"
^XMB(3.9,150,2,324,0)=" N TIU0,TIUSET,TIUDOC,TIUEXP,FDA"
^XMB(3.9,150,2,325,0)="""RTN"",""TIU199"",8,0)"
^XMB(3.9,150,2,326,0)=" S TIUEXP=$P($G(^TIU(8925.7,DA,0)),""^"",3),TIUSET=0"
^XMB(3.9,150,2,327,0)="""RTN"",""TIU199"",9,0)"
^XMB(3.9,150,2,328,0)=" I $$ISSURFOR^TIUADSIG(X,TIUEXP) S TIUSET=1"
^XMB(3.9,150,2,329,0)="""RTN"",""TIU199"",10,0)"
^XMB(3.9,150,2,330,0)=" S FDA(8925.7,DA_"","",.09)=TIUSET"
^XMB(3.9,150,2,331,0)="""RTN"",""TIU199"",11,0)"
^XMB(3.9,150,2,332,0)=" D FILE^DIE("""",""FDA"",""TIUERR"")"
^XMB(3.9,150,2,333,0)="""RTN"",""TIU199"",12,0)"
^XMB(3.9,150,2,334,0)=" Q"
^XMB(3.9,150,2,335,0)="""RTN"",""TIU199"",13,0)"
^XMB(3.9,150,2,336,0)=" ;"
^XMB(3.9,150,2,337,0)="""RTN"",""TIU199"",14,0)"
^XMB(3.9,150,2,338,0)="EN ; MAIN DRIVER"
^XMB(3.9,150,2,339,0)="""RTN"",""TIU199"",15,0)"
^XMB(3.9,150,2,340,0)=" N DIC,TIUPERS,TIUDTS,TIUCSTAT,TIUQ,DTOUT,DUOUT,Y,TIUNAME"
^XMB(3.9,150,2,341,0)="""RTN"",""TIU199"",16,0)"
^XMB(3.9,150,2,342,0)=" D CLEAR^VALM1"
^XMB(3.9,150,2,343,0)="""RTN"",""TIU199"",17,0)"
^XMB(3.9,150,2,344,0)=" S DIC=""^VA(200,"",DIC(0)=""AEMQ"""
^XMB(3.9,150,2,345,0)="""RTN"",""TIU199"",18,0)"
^XMB(3.9,150,2,346,0)=" S DIC(""A"")=""Select ADDITIONAL SIGNER: """
^XMB(3.9,150,2,347,0)="""RTN"",""TIU199"",19,0)"
^XMB(3.9,150,2,348,0)=" D ^DIC S TIUPERS=+Y,TIUNAME=$P(Y,""^"",2)"
^XMB(3.9,150,2,349,0)="""RTN"",""TIU199"",20,0)"
^XMB(3.9,150,2,350,0)=" Q:$G(DTOUT)!($G(DUOUT))!(Y=-1)"
^XMB(3.9,150,2,351,0)="""RTN"",""TIU199"",21,0)"
^XMB(3.9,150,2,352,0)=" D DTRANGE^TIUADCL(.TIUDTS)"
^XMB(3.9,150,2,353,0)="""RTN"",""TIU199"",22,0)"
^XMB(3.9,150,2,354,0)=" Q:'$G(TIUDTS(""BEGDT""))!('$G(TIUDTS(""ENDDT"")))"
^XMB(3.9,150,2,355,0)="""RTN"",""TIU199"",23,0)"
^XMB(3.9,150,2,356,0)=" S TIUCSTAT=$O(^TIU(8925.6,""B"",""COMPLETED"",""""))"
^XMB(3.9,150,2,357,0)="""RTN"",""TIU199"",24,0)"
^XMB(3.9,150,2,358,0)=" D GATHER"
^XMB(3.9,150,2,359,0)="""RTN"",""TIU199"",25,0)"
^XMB(3.9,150,2,360,0)=" S TIUQ=0"
^XMB(3.9,150,2,361,0)="""RTN"",""TIU199"",26,0)"
^XMB(3.9,150,2,362,0)="LOOP ;"
^XMB(3.9,150,2,363,0)="""RTN"",""TIU199"",27,0)"
^XMB(3.9,150,2,364,0)=" I '$D(^TMP($J)) S TIUQ=$$NODATA()"
^XMB(3.9,150,2,365,0)="""RTN"",""TIU199"",28,0)"
^XMB(3.9,150,2,366,0)=" I $D(^TMP($J)) D"
^XMB(3.9,150,2,367,0)="""RTN"",""TIU199"",29,0)"
^XMB(3.9,150,2,368,0)=" .D PRINT"
^XMB(3.9,150,2,369,0)="""RTN"",""TIU199"",30,0)"
^XMB(3.9,150,2,370,0)=" .S TIUQ=$$PROMPT()"
^XMB(3.9,150,2,371,0)="""RTN"",""TIU199"",31,0)"
^XMB(3.9,150,2,372,0)=" ; TIUQ: 0=LOOP ON EXISTING BUILD, 2=CREATE NEW SEARCH/BUILD, 1=QUIT ENTIRELY"
^XMB(3.9,150,2,373,0)="""RTN"",""TIU199"",32,0)"
^XMB(3.9,150,2,374,0)=" I TIUQ=0 G LOOP"
^XMB(3.9,150,2,375,0)="""RTN"",""TIU199"",33,0)"
^XMB(3.9,150,2,376,0)=" I TIUQ=2 G EN"
^XMB(3.9,150,2,377,0)="""RTN"",""TIU199"",34,0)"
^XMB(3.9,150,2,378,0)=" K ^TMP($J)"
^XMB(3.9,150,2,379,0)="""RTN"",""TIU199"",35,0)"
^XMB(3.9,150,2,380,0)=" Q"
^XMB(3.9,150,2,381,0)="""RTN"",""TIU199"",36,0)"
^XMB(3.9,150,2,382,0)=" ;"
^XMB(3.9,150,2,383,0)="""RTN"",""TIU199"",37,0)"
^XMB(3.9,150,2,384,0)="GATHER ; COLLECT DATA BASED ON SEARCH CRITERIA"
^XMB(3.9,150,2,385,0)="""RTN"",""TIU199"",38,0)"
^XMB(3.9,150,2,386,0)=" N TIUNOTE,TIUCNT,TIUADD,TIUAIEN,TIUA0,TIU0,TIUSTAT,TIU13,TIURFDT,TIUDTYP,TIUDFN,TIUPAT"
^XMB(3.9,150,2,387,0)="""RTN"",""TIU199"",39,0)"
^XMB(3.9,150,2,388,0)=" K ^TMP($J)"
^XMB(3.9,150,2,389,0)="""RTN"",""TIU199"",40,0)"
^XMB(3.9,150,2,390,0)=" S TIUNOTE="""",TIUCNT=1"
^XMB(3.9,150,2,391,0)="""RTN"",""TIU199"",41,0)"
^XMB(3.9,150,2,392,0)=" F  S TIUNOTE=$O(^TIU(8925.7,""AE"",TIUNOTE)) Q:TIUNOTE=""""  D"
^XMB(3.9,150,2,393,0)="""RTN"",""TIU199"",42,0)"
^XMB(3.9,150,2,394,0)=" .S TIUADD="""""
^XMB(3.9,150,2,395,0)="""RTN"",""TIU199"",43,0)"
^XMB(3.9,150,2,396,0)=" .F  S TIUADD=$O(^TIU(8925.7,""AE"",TIUNOTE,TIUADD)) Q:TIUADD=""""  D"
^XMB(3.9,150,2,397,0)="""RTN"",""TIU199"",44,0)"
^XMB(3.9,150,2,398,0)=" ..Q:TIUPERS'=TIUADD"
^XMB(3.9,150,2,399,0)="""RTN"",""TIU199"",45,0)"
^XMB(3.9,150,2,400,0)=" ..S TIUAIEN="""""
^XMB(3.9,150,2,401,0)="""RTN"",""TIU199"",46,0)"
^XMB(3.9,150,2,402,0)=" ..F  S TIUAIEN=$O(^TIU(8925.7,""AE"",TIUNOTE,TIUADD,TIUAIEN)) Q:TIUAIEN=""""  D"
^XMB(3.9,150,2,403,0)="""RTN"",""TIU199"",47,0)"
^XMB(3.9,150,2,404,0)=" ...S TIUA0=$G(^TIU(8925.7,TIUAIEN,0))"
^XMB(3.9,150,2,405,0)="""RTN"",""TIU199"",48,0)"
^XMB(3.9,150,2,406,0)=" ...Q:$P(TIUA0,""^"",5)=""""  ; QUIT IF NOT SIGNED AT ALL"
^XMB(3.9,150,2,407,0)="""RTN"",""TIU199"",49,0)"
^XMB(3.9,150,2,408,0)=" ...Q:$P(TIUA0,""^"",3)=$P(TIUA0,""^"",5)  ; QUIT IF EXPECTED AND ACTUAL ARE SAME"
^XMB(3.9,150,2,409,0)="""RTN"",""TIU199"",50,0)"
^XMB(3.9,150,2,410,0)=" ...Q:+$P(TIUA0,""^"",9)=1  ; QUIT IF ALRADY MARKED AS 'SIGNED BY SURROGATE'"
^XMB(3.9,150,2,411,0)="""RTN"",""TIU199"",51,0)"
^XMB(3.9,150,2,412,0)=" ...S TIU0=$G(^TIU(8925,TIUNOTE,0))"
^XMB(3.9,150,2,413,0)="""RTN"",""TIU199"",52,0)"
^XMB(3.9,150,2,414,0)=" ...S TIUSTAT=$P(TIU0,""^"",5)"
^XMB(3.9,150,2,415,0)="""RTN"",""TIU199"",53,0)"
^XMB(3.9,150,2,416,0)=" ...Q:TIUSTAT'=TIUCSTAT  ; QUIT IF NOT IN COMPLETED STATUS"
^XMB(3.9,150,2,417,0)="""RTN"",""TIU199"",54,0)"
^XMB(3.9,150,2,418,0)=" ...S TIU13=$G(^TIU(8925,TIUNOTE,13))"
^XMB(3.9,150,2,419,0)="""RTN"",""TIU199"",55,0)"
^XMB(3.9,150,2,420,0)=" ...S TIURFDT=$P($P(TIU13,""^""),""."")"
^XMB(3.9,150,2,421,0)="""RTN"",""TIU199"",56,0)"
^XMB(3.9,150,2,422,0)=" ...Q:TIURFDT<TIUDTS(""BEGDT"")!(TIURFDT>TIUDTS(""ENDDT""))  ; QUIT IF NOT IN DT RANGE"
^XMB(3.9,150,2,423,0)="""RTN"",""TIU199"",57,0)"
^XMB(3.9,150,2,424,0)=" ...S TIUDTYP=$P(TIU0,""^""),TIUDFN=$P(TIU0,""^"",2)"
^XMB(3.9,150,2,425,0)="""RTN"",""TIU199"",58,0)"
^XMB(3.9,150,2,426,0)=" ...S TIUPAT=$$GETPAT(TIUDFN)"
^XMB(3.9,150,2,427,0)="""RTN"",""TIU199"",59,0)"
^XMB(3.9,150,2,428,0)=" ...S ^TMP($J,TIUCNT)=TIUAIEN_""^""_TIUPAT_""^""_TIUDTYP_""^""_TIURFDT"
^XMB(3.9,150,2,429,0)="""RTN"",""TIU199"",60,0)"
^XMB(3.9,150,2,430,0)=" ...S TIUCNT=TIUCNT+1"
^XMB(3.9,150,2,431,0)="""RTN"",""TIU199"",61,0)"
^XMB(3.9,150,2,432,0)=" Q"
^XMB(3.9,150,2,433,0)="""RTN"",""TIU199"",62,0)"
^XMB(3.9,150,2,434,0)=" ;"
^XMB(3.9,150,2,435,0)="""RTN"",""TIU199"",63,0)"
^XMB(3.9,150,2,436,0)="PRINT ;"
^XMB(3.9,150,2,437,0)="""RTN"",""TIU199"",64,0)"
^XMB(3.9,150,2,438,0)=" N TIUCNT,TIUDATA,TIUTYP,TIURFDT"
^XMB(3.9,150,2,439,0)="""RTN"",""TIU199"",65,0)"
^XMB(3.9,150,2,440,0)=" D HEAD"
^XMB(3.9,150,2,441,0)="""RTN"",""TIU199"",66,0)"
^XMB(3.9,150,2,442,0)=" S TIUCNT="""""
^XMB(3.9,150,2,443,0)="""RTN"",""TIU199"",67,0)"
^XMB(3.9,150,2,444,0)=" F  S TIUCNT=$O(^TMP($J,TIUCNT)) Q:TIUCNT=""""  D"
^XMB(3.9,150,2,445,0)="""RTN"",""TIU199"",68,0)"
^XMB(3.9,150,2,446,0)=" .S TIUDATA=^TMP($J,TIUCNT)"
^XMB(3.9,150,2,447,0)="""RTN"",""TIU199"",69,0)"
^XMB(3.9,150,2,448,0)=" .S TIUTYP=$P($G(^TIU(8925.1,$P(TIUDATA,""^"",4),0)),""^"")"
^XMB(3.9,150,2,449,0)="""RTN"",""TIU199"",70,0)"
^XMB(3.9,150,2,450,0)=" .S Y=$P(TIUDATA,""^"",5) D DD^%DT S TIURFDT=Y"
^XMB(3.9,150,2,451,0)="""RTN"",""TIU199"",71,0)"
^XMB(3.9,150,2,452,0)=" .W !,TIUCNT,?5,$E($P(TIUDATA,""^"",2),1,15),?22,""(""_$P(TIUDATA,""^"",3)_"")"",?31,$E(TIUTYP,1,25),?58,TIURFDT"
^XMB(3.9,150,2,453,0)="""RTN"",""TIU199"",72,0)"
^XMB(3.9,150,2,454,0)=" Q"
^XMB(3.9,150,2,455,0)="""RTN"",""TIU199"",73,0)"
^XMB(3.9,150,2,456,0)=" ;"
^XMB(3.9,150,2,457,0)="""RTN"",""TIU199"",74,0)"
^XMB(3.9,150,2,458,0)="PROMPT() ; PROMPT BASED ON DATA IN ^TMP($J) - QUIT VALUE DETERMINES FLOW IN LOOP/EN LINE TAGS"
^XMB(3.9,150,2,459,0)="""RTN"",""TIU199"",75,0)"
^XMB(3.9,150,2,460,0)=" N X,TIUAIEN,DIR,DIRUT,FDA"
^XMB(3.9,150,2,461,0)="""RTN"",""TIU199"",76,0)"
^XMB(3.9,150,2,462,0)=" W !"
^XMB(3.9,150,2,463,0)="""RTN"",""TIU199"",77,0)"
^XMB(3.9,150,2,464,0)=" S DIR(""A"")=""'NEW' FOR A NEW SEARCH OR '^' TO QUIT"""
^XMB(3.9,150,2,465,0)="""RTN"",""TIU199"",78,0)"
^XMB(3.9,150,2,466,0)=" S DIR(""A"",1)=""ENTER SEQUENCE # TO MARK AS 'SIGNED BY SURROGATE',"""
^XMB(3.9,150,2,467,0)="""RTN"",""TIU199"",79,0)"
^XMB(3.9,150,2,468,0)=" S DIR(0)=""F"""
^XMB(3.9,150,2,469,0)="""RTN"",""TIU199"",80,0)"
^XMB(3.9,150,2,470,0)=" D ^DIR"
^XMB(3.9,150,2,471,0)="""RTN"",""TIU199"",81,0)"
^XMB(3.9,150,2,472,0)=" ; QUIT CONDITIONS"
^XMB(3.9,150,2,473,0)="""RTN"",""TIU199"",82,0)"
^XMB(3.9,150,2,474,0)=" I $G(DIRUT) Q 1"
^XMB(3.9,150,2,475,0)="""RTN"",""TIU199"",83,0)"
^XMB(3.9,150,2,476,0)=" I X=""NEW"" Q 2"
^XMB(3.9,150,2,477,0)="""RTN"",""TIU199"",84,0)"
^XMB(3.9,150,2,478,0)=" I '$D(^TMP($J,X)) D  Q 0"
^XMB(3.9,150,2,479,0)="""RTN"",""TIU199"",85,0)"
^XMB(3.9,150,2,480,0)=" .W !!,""INVALID CHOICE"" D CLEAR^VALM1"
^XMB(3.9,150,2,481,0)="""RTN"",""TIU199"",86,0)"
^XMB(3.9,150,2,482,0)=" ; CHANGE VALUES AND KILL TMP"
^XMB(3.9,150,2,483,0)="""RTN"",""TIU199"",87,0)"
^XMB(3.9,150,2,484,0)=" S TIUAIEN=+^TMP($J,X)"
^XMB(3.9,150,2,485,0)="""RTN"",""TIU199"",88,0)"
^XMB(3.9,150,2,486,0)=" S FDA(8925.7,TIUAIEN_"","",.09)=1"
^XMB(3.9,150,2,487,0)="""RTN"",""TIU199"",89,0)"
^XMB(3.9,150,2,488,0)=" D FILE^DIE("""",""FDA"",""TIUERR"")"
^XMB(3.9,150,2,489,0)="""RTN"",""TIU199"",90,0)"
^XMB(3.9,150,2,490,0)=" K ^TMP($J,X)"
^XMB(3.9,150,2,491,0)="""RTN"",""TIU199"",91,0)"
^XMB(3.9,150,2,492,0)=" I '$D(^TMP($J)) Q 2"
^XMB(3.9,150,2,493,0)="""RTN"",""TIU199"",92,0)"
^XMB(3.9,150,2,494,0)=" Q 0"
^XMB(3.9,150,2,495,0)="""RTN"",""TIU199"",93,0)"
^XMB(3.9,150,2,496,0)=" ;"
^XMB(3.9,150,2,497,0)="""RTN"",""TIU199"",94,0)"
^XMB(3.9,150,2,498,0)="HEAD ;"
^XMB(3.9,150,2,499,0)="""RTN"",""TIU199"",95,0)"
^XMB(3.9,150,2,500,0)=" D CLEAR^VALM1"
^XMB(3.9,150,2,501,0)="""RTN"",""TIU199"",96,0)"
^XMB(3.9,150,2,502,0)=" W ""ADDITIONAL SIGNER: "",TIUNAME,!!"
^XMB(3.9,150,2,503,0)="""RTN"",""TIU199"",97,0)"
^XMB(3.9,150,2,504,0)=" W !,""SEQ"",?5,""PATIENT"",?31,""DOCUMENT TYPE"",?58,""REFERENCE DATE"""
^XMB(3.9,150,2,505,0)="""RTN"",""TIU199"",98,0)"
^XMB(3.9,150,2,506,0)=" W !,""---"",?5,""-------"",?31,""-------------"",?58,""--------------"""
^XMB(3.9,150,2,507,0)="""RTN"",""TIU199"",99,0)"
^XMB(3.9,150,2,508,0)=" Q"
^XMB(3.9,150,2,509,0)="""RTN"",""TIU199"",100,0)"
^XMB(3.9,150,2,510,0)=" ;"
^XMB(3.9,150,2,511,0)="""RTN"",""TIU199"",101,0)"
^XMB(3.9,150,2,512,0)="NODATA() ;"
^XMB(3.9,150,2,513,0)="""RTN"",""TIU199"",102,0)"
^XMB(3.9,150,2,514,0)=" D CLEAR^VALM1"
^XMB(3.9,150,2,515,0)="""RTN"",""TIU199"",103,0)"
^XMB(3.9,150,2,516,0)=" W !!,?15,""NO DATA TO REPORT FOR THIS SEARCH"""
^XMB(3.9,150,2,517,0)="""RTN"",""TIU199"",104,0)"
^XMB(3.9,150,2,518,0)=" N DIRUT,TIUND S TIUND=2"
^XMB(3.9,150,2,519,0)="""RTN"",""TIU199"",105,0)"
^XMB(3.9,150,2,520,0)=" D PAUSE^VALM1"
^XMB(3.9,150,2,521,0)="""RTN"",""TIU199"",106,0)"
^XMB(3.9,150,2,522,0)=" I $G(DIRUT) S TIUND=1"
^XMB(3.9,150,2,523,0)="""RTN"",""TIU199"",107,0)"
^XMB(3.9,150,2,524,0)=" Q TIUND"
^XMB(3.9,150,2,525,0)="""RTN"",""TIU199"",108,0)"
^XMB(3.9,150,2,526,0)=" ;"
^XMB(3.9,150,2,527,0)="""RTN"",""TIU199"",109,0)"
^XMB(3.9,150,2,528,0)="GETPAT(TIUDFN) ;"
^XMB(3.9,150,2,529,0)="""RTN"",""TIU199"",110,0)"
^XMB(3.9,150,2,530,0)=" N DFN,TIUSSN,TIUPN,VADM"
^XMB(3.9,150,2,531,0)="""RTN"",""TIU199"",111,0)"
^XMB(3.9,150,2,532,0)=" S DFN=TIUDFN"
^XMB(3.9,150,2,533,0)="""RTN"",""TIU199"",112,0)"
^XMB(3.9,150,2,534,0)=" D DEM^VADPT"
^XMB(3.9,150,2,535,0)="""RTN"",""TIU199"",113,0)"
^XMB(3.9,150,2,536,0)=" S TIUSSN=$P(VADM(2),""^"")"
^XMB(3.9,150,2,537,0)="""RTN"",""TIU199"",114,0)"
^XMB(3.9,150,2,538,0)=" S TIUPN=VADM(1)_""^""_$E(VADM(1))_$E(TIUSSN,6,$L(TIUSSN))"
^XMB(3.9,150,2,539,0)="""RTN"",""TIU199"",115,0)"
^XMB(3.9,150,2,540,0)=" Q TIUPN"
^XMB(3.9,150,2,541,0)="""RTN"",""TIU199"",116,0)"
^XMB(3.9,150,2,542,0)=" ;"
^XMB(3.9,150,2,543,0)="""RTN"",""TIU199"",117,0)"
^XMB(3.9,150,2,544,0)="POST199 ; REINDEX THE ABBREVIATION FIELD OF FILE 8925.1"
^XMB(3.9,150,2,545,0)="""RTN"",""TIU199"",118,0)"
^XMB(3.9,150,2,546,0)=" N DIK"
^XMB(3.9,150,2,547,0)="""RTN"",""TIU199"",119,0)"
^XMB(3.9,150,2,548,0)=" S DIK=""^TIU(8925.1,"",DIK(1)="".02"""
^XMB(3.9,150,2,549,0)="""RTN"",""TIU199"",120,0)"
^XMB(3.9,150,2,550,0)=" D ENALL^DIK"
^XMB(3.9,150,2,551,0)="""RTN"",""TIU199"",121,0)"
^XMB(3.9,150,2,552,0)=" Q"
^XMB(3.9,150,2,553,0)="""RTN"",""TIUAL1"")"
^XMB(3.9,150,2,554,0)="0^2^B88079624^B87325543"
^XMB(3.9,150,2,555,0)="""RTN"",""TIUAL1"",1,0)"
^XMB(3.9,150,2,556,0)="TIUAL1 ;SLC/AJB - TIU Alerts List Manager ; 7/6/05 4:06pm"
^XMB(3.9,150,2,557,0)="""RTN"",""TIUAL1"",2,0)"
^XMB(3.9,150,2,558,0)=" ;;1.0;TEXT INTEGRATION UTILITIES;**158,199**;Jun 20, 1997"
^XMB(3.9,150,2,559,0)="""RTN"",""TIUAL1"",3,0)"
^XMB(3.9,150,2,560,0)=" ;"
^XMB(3.9,150,2,561,0)="""RTN"",""TIUAL1"",4,0)"
^XMB(3.9,150,2,562,0)=" Q"
^XMB(3.9,150,2,563,0)="""RTN"",""TIUAL1"",5,0)"
^XMB(3.9,150,2,564,0)="CHNGSRCH ; allows user to change search parameters"
^XMB(3.9,150,2,565,0)="""RTN"",""TIUAL1"",6,0)"
^XMB(3.9,150,2,566,0)=" D FULL^VALM1"
^XMB(3.9,150,2,567,0)="""RTN"",""TIUAL1"",7,0)"
^XMB(3.9,150,2,568,0)=" W @IOF"
^XMB(3.9,150,2,569,0)="""RTN"",""TIUAL1"",8,0)"
^XMB(3.9,150,2,570,0)=" D SETUP^TIUALSET"
^XMB(3.9,150,2,571,0)="""RTN"",""TIUAL1"",9,0)"
^XMB(3.9,150,2,572,0)=" I $D(TIU(""QUIT"")) K TIU(""QUIT"") S VALMBCK=""R"" Q"
^XMB(3.9,150,2,573,0)="""RTN"",""TIUAL1"",10,0)"
^XMB(3.9,150,2,574,0)=" K ^TMP(""TIUDA"",$J),^TMP(""TIUDOC"",$J) D CLEAN^VALM10,INIT,HDR S VALMBG=1"
^XMB(3.9,150,2,575,0)="""RTN"",""TIUAL1"",11,0)"
^XMB(3.9,150,2,576,0)=" Q"
^XMB(3.9,150,2,577,0)="""RTN"",""TIUAL1"",12,0)"
^XMB(3.9,150,2,578,0)="EDIT ;"
^XMB(3.9,150,2,579,0)="""RTN"",""TIUAL1"",13,0)"
^XMB(3.9,150,2,580,0)=" N D,DIV,TIUDA,TIUCHNG,TIUDCSNR,TIUDIV1,TIUESNR,TIUNODE"
^XMB(3.9,150,2,581,0)="""RTN"",""TIUAL1"",14,0)"
^XMB(3.9,150,2,582,0)=" N TIUFPRIV,TIUPREF,TIUPRM0,TIUPRM1,TIURQCS,TIUS,TIUSEL,X,Y"
^XMB(3.9,150,2,583,0)="""RTN"",""TIUAL1"",15,0)"
^XMB(3.9,150,2,584,0)=" D FULL^VALM1"
^XMB(3.9,150,2,585,0)="""RTN"",""TIUAL1"",16,0)"
^XMB(3.9,150,2,586,0)=" I TIU(""CNT"")=0 W !,""No documents to select."" H 3 Q"
^XMB(3.9,150,2,587,0)="""RTN"",""TIUAL1"",17,0)"
^XMB(3.9,150,2,588,0)=" S TIUSEL=$P(XQORNOD(0),""="",2)"
^XMB(3.9,150,2,589,0)="""RTN"",""TIUAL1"",18,0)"
^XMB(3.9,150,2,590,0)=" I TIUSEL="""" D  Q:TIUSEL=U!($D(DIRUT))"
^XMB(3.9,150,2,591,0)="""RTN"",""TIUAL1"",19,0)"
^XMB(3.9,150,2,592,0)=" . N DIR,X,Y"
^XMB(3.9,150,2,593,0)="""RTN"",""TIUAL1"",20,0)"
^XMB(3.9,150,2,594,0)=" . S DIR(""A"")=""Select Document: (1-""_VALMLST_"") """
^XMB(3.9,150,2,595,0)="""RTN"",""TIUAL1"",21,0)"
^XMB(3.9,150,2,596,0)=" . S DIR(0)=""NA^1:""_VALMLST"
^XMB(3.9,150,2,597,0)="""RTN"",""TIUAL1"",22,0)"
^XMB(3.9,150,2,598,0)=" . D ^DIR S TIUSEL=Y"
^XMB(3.9,150,2,599,0)="""RTN"",""TIUAL1"",23,0)"
^XMB(3.9,150,2,600,0)=" I $A($E(TIUSEL,$L(TIUSEL)))<48!($A($E(TIUSEL,$L(TIUSEL)))>57) S TIUSEL=$E(TIUSEL,1,$L(TIUSEL)-1)"
^XMB(3.9,150,2,601,0)="""RTN"",""TIUAL1"",24,0)"
^XMB(3.9,150,2,602,0)=" F X=1:1  Q:$P(TIUSEL,"","",X)=""""  S TIUC($P(TIUSEL,"","",X))=$O(@VALMAR@(""IDX"",$P(TIUSEL,"","",X),""""))"
^XMB(3.9,150,2,603,0)="""RTN"",""TIUAL1"",25,0)"
^XMB(3.9,150,2,604,0)=" S TIUDA=TIUC(TIUSEL)"
^XMB(3.9,150,2,605,0)="""RTN"",""TIUAL1"",26,0)"
^XMB(3.9,150,2,606,0)=" D EDIT1^TIURA"
^XMB(3.9,150,2,607,0)="""RTN"",""TIUAL1"",27,0)"
^XMB(3.9,150,2,608,0)=" D UPDATE^TIUALSET"
^XMB(3.9,150,2,609,0)="""RTN"",""TIUAL1"",28,0)"
^XMB(3.9,150,2,610,0)=" Q"
^XMB(3.9,150,2,611,0)="""RTN"",""TIUAL1"",29,0)"
^XMB(3.9,150,2,612,0)="EN ; main entry point for TIU ALERTS"
^XMB(3.9,150,2,613,0)="""RTN"",""TIUAL1"",30,0)"
^XMB(3.9,150,2,614,0)=" N %DT,D0,POP,TIU,TIUC,TIUTMP,X,Y"
^XMB(3.9,150,2,615,0)="""RTN"",""TIUAL1"",31,0)"
^XMB(3.9,150,2,616,0)=" K ^TMP(""TIUDA"",$J),^TMP(""TIUDOC"",$J)"
^XMB(3.9,150,2,617,0)="""RTN"",""TIUAL1"",32,0)"
^XMB(3.9,150,2,618,0)=" D SETUP^TIUALSET Q:$D(TIU(""QUIT""))"
^XMB(3.9,150,2,619,0)="""RTN"",""TIUAL1"",33,0)"
^XMB(3.9,150,2,620,0)=" D EN^VALM(""TIU ALERTS"")"
^XMB(3.9,150,2,621,0)="""RTN"",""TIUAL1"",34,0)"
^XMB(3.9,150,2,622,0)=" K ^TMP(""TIUDA"",$J),^TMP(""TIUDOC"",$J)"
^XMB(3.9,150,2,623,0)="""RTN"",""TIUAL1"",35,0)"
^XMB(3.9,150,2,624,0)=" Q"
^XMB(3.9,150,2,625,0)="""RTN"",""TIUAL1"",36,0)"
^XMB(3.9,150,2,626,0)="EVAL(TIUDA) ;"
^XMB(3.9,150,2,627,0)="""RTN"",""TIUAL1"",37,0)"
^XMB(3.9,150,2,628,0)=" N TIUCHK,TIUCNT,TIUY"
^XMB(3.9,150,2,629,0)="""RTN"",""TIUAL1"",38,0)"
^XMB(3.9,150,2,630,0)=" S TIUCHK="""" F  S TIUCHK=$O(TIU(""S"",TIUCHK)) Q:TIUCHK=""""  I $P(TIUD0,U,5)=+TIU(""S"",TIUCHK),$P(TIUD13,U)'<TIU(""D"",1),$P(TIUD13,U)'>TIU(""D"",2) S TIUY=1"
^XMB(3.9,150,2,631,0)="""RTN"",""TIUAL1"",39,0)"
^XMB(3.9,150,2,632,0)=" I $G(TIUY),$P(TIUCAT,U)=""CA"",$P(TIUD12,U,2)=+TIU(""P"") Q 1"
^XMB(3.9,150,2,633,0)="""RTN"",""TIUAL1"",40,0)"
^XMB(3.9,150,2,634,0)=" I $G(TIUY),$P(TIUCAT,U)=""AE"",$D(^TIU(8925.7,""AE"",TIUDA,TIU(""P""))) Q 1"
^XMB(3.9,150,2,635,0)="""RTN"",""TIUAL1"",41,0)"
^XMB(3.9,150,2,636,0)=" I $G(TIUY),$P(TIUCAT,U)=""CS"",$P(TIUCAT,U,2)=""Expected Cosigner"",$P(TIUD12,U,8)=+TIU(""P"") Q 1"
^XMB(3.9,150,2,637,0)="""RTN"",""TIUAL1"",42,0)"
^XMB(3.9,150,2,638,0)=" I $G(TIUY),$P(TIUCAT,U)=""CS"",$P(TIUCAT,U,2)=""Attending Physician"",$P(TIUD12,U,9)=+TIU(""P"") Q 1"
^XMB(3.9,150,2,639,0)="""RTN"",""TIUAL1"",43,0)"
^XMB(3.9,150,2,640,0)=" I $G(TIUY),$P(TIUCAT,U)=""CS"",$P(TIUCAT,U,3)=""Attending Physician"",$P(TIUD12,U,9)=+TIU(""P"") Q 1"
^XMB(3.9,150,2,641,0)="""RTN"",""TIUAL1"",44,0)"
^XMB(3.9,150,2,642,0)=" Q +$G(TIUY)"
^XMB(3.9,150,2,643,0)="""RTN"",""TIUAL1"",45,0)"
^XMB(3.9,150,2,644,0)="EXIT ; exit code"
^XMB(3.9,150,2,645,0)="""RTN"",""TIUAL1"",46,0)"
^XMB(3.9,150,2,646,0)=" Q"
^XMB(3.9,150,2,647,0)="""RTN"",""TIUAL1"",47,0)"
^XMB(3.9,150,2,648,0)="EXPND ; expand code"
^XMB(3.9,150,2,649,0)="""RTN"",""TIUAL1"",48,0)"
^XMB(3.9,150,2,650,0)=" Q"
^XMB(3.9,150,2,651,0)="""RTN"",""TIUAL1"",49,0)"
^XMB(3.9,150,2,652,0)="FMTDT(DATE) ; formats date"
^XMB(3.9,150,2,653,0)="""RTN"",""TIUAL1"",50,0)"
^XMB(3.9,150,2,654,0)=" N TMPDATE"
^XMB(3.9,150,2,655,0)="""RTN"",""TIUAL1"",51,0)"
^XMB(3.9,150,2,656,0)=" S TMPDATE=$$FDATE^VALM1(DATE)"
^XMB(3.9,150,2,657,0)="""RTN"",""TIUAL1"",52,0)"
^XMB(3.9,150,2,658,0)=" I $P(TMPDATE,""/"")=""00"",$P(TMPDATE,""/"",2)=""00"" Q $$FMTE^XLFDT(DATE,""D"")"
^XMB(3.9,150,2,659,0)="""RTN"",""TIUAL1"",53,0)"
^XMB(3.9,150,2,660,0)=" I $P(TMPDATE,""/"",2)=""00"" S TMPDATE=$E(TMPDATE,1,3)_$E(TMPDATE,7,8)"
^XMB(3.9,150,2,661,0)="""RTN"",""TIUAL1"",54,0)"
^XMB(3.9,150,2,662,0)=" Q TMPDATE"
^XMB(3.9,150,2,663,0)="""RTN"",""TIUAL1"",55,0)"
^XMB(3.9,150,2,664,0)="HDR ; header code"
^XMB(3.9,150,2,665,0)="""RTN"",""TIUAL1"",56,0)"
^XMB(3.9,150,2,666,0)=" N HDRTITLE,X,Y"
^XMB(3.9,150,2,667,0)="""RTN"",""TIUAL1"",57,0)"
^XMB(3.9,150,2,668,0)=" S HDRTITLE(1)=$S(TIU(""S"")=1:$$UPPER^VALM1($P(TIU(""S"",1),U,3))_"" Documents"",1:""Clinical Documents"")"
^XMB(3.9,150,2,669,0)="""RTN"",""TIUAL1"",58,0)"
^XMB(3.9,150,2,670,0)=" S HDRTITLE(2)=TIU(""CNT"")_"" ""_$S(TIU(""CNT"")=1:""Document"",1:""Documents"")"
^XMB(3.9,150,2,671,0)="""RTN"",""TIUAL1"",59,0)"
^XMB(3.9,150,2,672,0)=" S HDRTITLE(3)=""for (""_$E($$GET1^DIQ(200,TIU(""P"")_"","",.01),1,35)_"")""_"" from ""_$$FMTDT(TIU(""D"",1))_"" to ""_$$FMTDT(TIU(""D"",2))"
^XMB(3.9,150,2,673,0)="""RTN"",""TIUAL1"",60,0)"
^XMB(3.9,150,2,674,0)=" S (X,Y)="""""
^XMB(3.9,150,2,675,0)="""RTN"",""TIUAL1"",61,0)"
^XMB(3.9,150,2,676,0)=" F  S X=$O(TIU(""C"",X)) Q:X=""""  S Y=Y_TIU(""C"",X)"
^XMB(3.9,150,2,677,0)="""RTN"",""TIUAL1"",62,0)"
^XMB(3.9,150,2,678,0)=" S Y=""by ""_""(""_$$UP^XLFSTR($TR($E(Y,2,67),U,"",""))_"")"""
^XMB(3.9,150,2,679,0)="""RTN"",""TIUAL1"",63,0)"
^XMB(3.9,150,2,680,0)=" S $P(HDRTITLE(1),"" "",IOM-($L(HDRTITLE(1))+$L(HDRTITLE(2))))="""",HDRTITLE(1)=HDRTITLE(1)_HDRTITLE(2)"
^XMB(3.9,150,2,681,0)="""RTN"",""TIUAL1"",64,0)"
^XMB(3.9,150,2,682,0)=" S VALMHDR(1)=HDRTITLE(1)"
^XMB(3.9,150,2,683,0)="""RTN"",""TIUAL1"",65,0)"
^XMB(3.9,150,2,684,0)=" S VALMHDR(2)=$$SETSTR^VALM1(Y,"""",(IOM-$L(Y))/2,$L(Y))"
^XMB(3.9,150,2,685,0)="""RTN"",""TIUAL1"",66,0)"
^XMB(3.9,150,2,686,0)=" S VALMHDR(3)=$$SETSTR^VALM1(HDRTITLE(3),"""",(IOM-$L(HDRTITLE(3)))/2,$L(HDRTITLE(3)))"
^XMB(3.9,150,2,687,0)="""RTN"",""TIUAL1"",67,0)"
^XMB(3.9,150,2,688,0)=" D XQORM"
^XMB(3.9,150,2,689,0)="""RTN"",""TIUAL1"",68,0)"
^XMB(3.9,150,2,690,0)=" Q"
^XMB(3.9,150,2,691,0)="""RTN"",""TIUAL1"",69,0)"
^XMB(3.9,150,2,692,0)="HELP ; help code"
^XMB(3.9,150,2,693,0)="""RTN"",""TIUAL1"",70,0)"
^XMB(3.9,150,2,694,0)=" N DIR"
^XMB(3.9,150,2,695,0)="""RTN"",""TIUAL1"",71,0)"
^XMB(3.9,150,2,696,0)=" I X=""?"" S DIR(""A"")=""Enter RETURN to continue or '^' to exit"",DIR(0)=""E"""
^XMB(3.9,150,2,697,0)="""RTN"",""TIUAL1"",72,0)"
^XMB(3.9,150,2,698,0)=" D FULL^VALM1"
^XMB(3.9,150,2,699,0)="""RTN"",""TIUAL1"",73,0)"
^XMB(3.9,150,2,700,0)=" W !!,""The following actions are available:"""
^XMB(3.9,150,2,701,0)="""RTN"",""TIUAL1"",74,0)"
^XMB(3.9,150,2,702,0)=" W !,""Browse a Document  - View a selected document (if authorized)"""
^XMB(3.9,150,2,703,0)="""RTN"",""TIUAL1"",75,0)"
^XMB(3.9,150,2,704,0)=" W !,""Change View        - Modify search criteria"""
^XMB(3.9,150,2,705,0)="""RTN"",""TIUAL1"",76,0)"
^XMB(3.9,150,2,706,0)=" W !,""Combination Alerts - Send alerts to expected signers and 3rd parties"""
^XMB(3.9,150,2,707,0)="""RTN"",""TIUAL1"",77,0)"
^XMB(3.9,150,2,708,0)=" W !,""Delete Alerts      - Delete a document's alerts"""
^XMB(3.9,150,2,709,0)="""RTN"",""TIUAL1"",78,0)"
^XMB(3.9,150,2,710,0)=" W !,""Detailed Display   - View detailed display of a document (if authorized)"""
^XMB(3.9,150,2,711,0)="""RTN"",""TIUAL1"",79,0)"
^XMB(3.9,150,2,712,0)=" W !,""Edit a Document    - Edit a selected document (if authorized)"""
^XMB(3.9,150,2,713,0)="""RTN"",""TIUAL1"",80,0)"
^XMB(3.9,150,2,714,0)=" W !,""Identify Signers   - Identify/Change Signers of a document (if authorized)"""
^XMB(3.9,150,2,715,0)="""RTN"",""TIUAL1"",81,0)"
^XMB(3.9,150,2,716,0)=" W !,""Resend Alerts      - Resend alerts to expected signers"""
^XMB(3.9,150,2,717,0)="""RTN"",""TIUAL1"",82,0)"
^XMB(3.9,150,2,718,0)=" W !,""Third Party Alerts - Send alerts to one or more 3rd parties"",!"
^XMB(3.9,150,2,719,0)="""RTN"",""TIUAL1"",83,0)"
^XMB(3.9,150,2,720,0)=" I $D(DIR(""A"")) D ^DIR"
^XMB(3.9,150,2,721,0)="""RTN"",""TIUAL1"",84,0)"
^XMB(3.9,150,2,722,0)=" S VALMBCK=""R"""
^XMB(3.9,150,2,723,0)="""RTN"",""TIUAL1"",85,0)"
^XMB(3.9,150,2,724,0)=" Q"
^XMB(3.9,150,2,725,0)="""RTN"",""TIUAL1"",86,0)"
^XMB(3.9,150,2,726,0)="INIT ; finds documents and prepares LM display"
^XMB(3.9,150,2,727,0)="""RTN"",""TIUAL1"",87,0)"
^XMB(3.9,150,2,728,0)=" N CNT,TIUCNT,TIUDA,TIUDOC,TIUDT,TIUTMP"
^XMB(3.9,150,2,729,0)="""RTN"",""TIUAL1"",88,0)"
^XMB(3.9,150,2,730,0)=" S CNT="""",(TIUCNT,TIU(""CNT""))=0"
^XMB(3.9,150,2,731,0)="""RTN"",""TIUAL1"",89,0)"
^XMB(3.9,150,2,732,0)=" S TIU(""IOCUOFF"")=$C(27)_""[?25l"",TIU(""IOCUON"")=$C(27)_""[?25h"""
^XMB(3.9,150,2,733,0)="""RTN"",""TIUAL1"",90,0)"
^XMB(3.9,150,2,734,0)=" W TIU(""IOCUOFF"")"
^XMB(3.9,150,2,735,0)="""RTN"",""TIUAL1"",91,0)"
^XMB(3.9,150,2,736,0)=" W !,""Searching for the documents."""
^XMB(3.9,150,2,737,0)="""RTN"",""TIUAL1"",92,0)"
^XMB(3.9,150,2,738,0)=" F  S CNT=$O(TIU(""C"",CNT)) Q:CNT=""""  D INIT2(CNT_TIU(""C"",CNT))"
^XMB(3.9,150,2,739,0)="""RTN"",""TIUAL1"",93,0)"
^XMB(3.9,150,2,740,0)=" S TIUTMP=0,(CNT,TIUDA,TIUDT)="""""
^XMB(3.9,150,2,741,0)="""RTN"",""TIUAL1"",94,0)"
^XMB(3.9,150,2,742,0)=" F  S TIUDT=$O(^TMP(""TIUDOC"",$J,TIUDT)) Q:TIUDT=""""  F  S CNT=$O(^TMP(""TIUDOC"",$J,TIUDT,CNT)) Q:CNT=""""  F  S TIUDA=$O(^TMP(""TIUDOC"",$J,TIUDT,CNT,TIUDA)) Q:TIUDA=""""  D"
^XMB(3.9,150,2,743,0)="""RTN"",""TIUAL1"",95,0)"
^XMB(3.9,150,2,744,0)=" . N TIUDISP,TIUNODE"
^XMB(3.9,150,2,745,0)="""RTN"",""TIUAL1"",96,0)"
^XMB(3.9,150,2,746,0)=" . S TIUTMP=TIUTMP+1"
^XMB(3.9,150,2,747,0)="""RTN"",""TIUAL1"",97,0)"
^XMB(3.9,150,2,748,0)=" . W:TIUTMP#3=0 ""."""
^XMB(3.9,150,2,749,0)="""RTN"",""TIUAL1"",98,0)"
^XMB(3.9,150,2,750,0)=" . S TIUDISP(""PATIENT"")=$P($P(^TMP(""TIUDOC"",$J,TIUDT,CNT,TIUDA),U,2),"","")_"",""_$E($P($P(^TMP(""TIUDOC"",$J,TIUDT,CNT,TIUDA),U,2),"","",2),1)"
^XMB(3.9,150,2,751,0)="""RTN"",""TIUAL1"",99,0)"
^XMB(3.9,150,2,752,0)=" . S TIUDISP(""L4"")=""(""_$E(TIUDISP(""PATIENT""))_$E($P($G(^DPT(+$P(^TIU(8925,TIUDA,0),U,2),0)),U,9),6,9)_"")"""
^XMB(3.9,150,2,753,0)="""RTN"",""TIUAL1"",100,0)"
^XMB(3.9,150,2,754,0)=" . S TIUNODE=^TMP(""TIUDOC"",$J,TIUDT,CNT,TIUDA)"
^XMB(3.9,150,2,755,0)="""RTN"",""TIUAL1"",101,0)"
^XMB(3.9,150,2,756,0)=" . S TIUDISP(""TITLE"")=$E($S(+TIUNODE>0:""_ ""_$P(TIUNODE,U,3),$P(TIUNODE,U)=""A"":""  |_""_$P(TIUNODE,U,3),1:$P(TIUNODE,U,3)),1,36)"
^XMB(3.9,150,2,757,0)="""RTN"",""TIUAL1"",102,0)"
^XMB(3.9,150,2,758,0)=" . S TIUDISP(""REFDT"")=$$FMTDT($P(^TMP(""TIUDOC"",$J,TIUDT,CNT,TIUDA),U,4))"
^XMB(3.9,150,2,759,0)="""RTN"",""TIUAL1"",103,0)"
^XMB(3.9,150,2,760,0)=" . S TIUDISP(""S"")=$P(^TMP(""TIUDOC"",$J,TIUDT,CNT,TIUDA),U,5)"
^XMB(3.9,150,2,761,0)="""RTN"",""TIUAL1"",104,0)"
^XMB(3.9,150,2,762,0)=" . S TIUDISP(""A/D"")=$$GET1^DIQ(8925,TIUDA,1202)"
^XMB(3.9,150,2,763,0)="""RTN"",""TIUAL1"",105,0)"
^XMB(3.9,150,2,764,0)=" . S TIUDISP(""EC"")=$$GET1^DIQ(8925,TIUDA,1208)"
^XMB(3.9,150,2,765,0)="""RTN"",""TIUAL1"",106,0)"
^XMB(3.9,150,2,766,0)=" . S TIUDISP(""ATT"")=$$GET1^DIQ(8925,TIUDA,1209)"
^XMB(3.9,150,2,767,0)="""RTN"",""TIUAL1"",107,0)"
^XMB(3.9,150,2,768,0)=" . S TIUDISP(""ADS"")=$$GET1^DIQ(8925.7,$P(TIUNODE,U,6),.03)"
^XMB(3.9,150,2,769,0)="""RTN"",""TIUAL1"",108,0)"
^XMB(3.9,150,2,770,0)=" . S TIUDISP=$$SETSTR^VALM1(TIUTMP,"""",1,5)"
^XMB(3.9,150,2,771,0)="""RTN"",""TIUAL1"",109,0)"
^XMB(3.9,150,2,772,0)=" . S TIUDISP=$$SETSTR^VALM1(TIUDISP(""PATIENT""),TIUDISP,6,26)"
^XMB(3.9,150,2,773,0)="""RTN"",""TIUAL1"",110,0)"
^XMB(3.9,150,2,774,0)=" . S TIUDISP=$$SETSTR^VALM1(TIUDISP(""L4""),TIUDISP,20,26)"
^XMB(3.9,150,2,775,0)="""RTN"",""TIUAL1"",111,0)"
^XMB(3.9,150,2,776,0)=" . S TIUDISP=$$SETSTR^VALM1($E(TIUDISP(""TITLE""),1,30),TIUDISP,28,58)"
^XMB(3.9,150,2,777,0)="""RTN"",""TIUAL1"",112,0)"
^XMB(3.9,150,2,778,0)=" . S TIUDISP=$$SETSTR^VALM1(TIUDISP(""REFDT""),TIUDISP,60,68)"
^XMB(3.9,150,2,779,0)="""RTN"",""TIUAL1"",113,0)"
^XMB(3.9,150,2,780,0)=" . S TIUDISP=$$SETSTR^VALM1($$LOW^XLFSTR(TIUDISP(""S"")),TIUDISP,70,80)"
^XMB(3.9,150,2,781,0)="""RTN"",""TIUAL1"",114,0)"
^XMB(3.9,150,2,782,0)=" . S TIUDISP=$$SETSTR^VALM1(TIUTMP,TIUDISP,81,86)"
^XMB(3.9,150,2,783,0)="""RTN"",""TIUAL1"",115,0)"
^XMB(3.9,150,2,784,0)=" . S TIUDISP=$$SETSTR^VALM1($E(TIUDISP(""A/D""),1,17),TIUDISP,88,105)"
^XMB(3.9,150,2,785,0)="""RTN"",""TIUAL1"",116,0)"
^XMB(3.9,150,2,786,0)=" . S TIUDISP=$$SETSTR^VALM1($E($G(TIUDISP(""EC"")),1,17),TIUDISP,107,124)"
^XMB(3.9,150,2,787,0)="""RTN"",""TIUAL1"",117,0)"
^XMB(3.9,150,2,788,0)=" . S TIUDISP=$$SETSTR^VALM1($E($G(TIUDISP(""ATT"")),1,17),TIUDISP,126,143)"
^XMB(3.9,150,2,789,0)="""RTN"",""TIUAL1"",118,0)"
^XMB(3.9,150,2,790,0)=" . S TIUDISP=$$SETSTR^VALM1($E($G(TIUDISP(""ADS"")),1,15),TIUDISP,145,160)"
^XMB(3.9,150,2,791,0)="""RTN"",""TIUAL1"",119,0)"
^XMB(3.9,150,2,792,0)=" . D SET^VALM10(TIUTMP,$E(TIUDISP,1,160),TIUDA)"
^XMB(3.9,150,2,793,0)="""RTN"",""TIUAL1"",120,0)"
^XMB(3.9,150,2,794,0)=" S VALMCNT=TIUTMP"
^XMB(3.9,150,2,795,0)="""RTN"",""TIUAL1"",121,0)"
^XMB(3.9,150,2,796,0)=" I VALMCNT=0 S VALMCNT=1 D"
^XMB(3.9,150,2,797,0)="""RTN"",""TIUAL1"",122,0)"
^XMB(3.9,150,2,798,0)=" . D SET^VALM10(1,"" "",0)"
^XMB(3.9,150,2,799,0)="""RTN"",""TIUAL1"",123,0)"
^XMB(3.9,150,2,800,0)=" . S TIUDOC=""No records found to satisfy search criteria."""
^XMB(3.9,150,2,801,0)="""RTN"",""TIUAL1"",124,0)"
^XMB(3.9,150,2,802,0)=" . S TIUDOC=$$SETSTR^VALM1(TIUDOC,"""",(IOM-$L(TIUDOC))/2,$L(TIUDOC))"
^XMB(3.9,150,2,803,0)="""RTN"",""TIUAL1"",125,0)"
^XMB(3.9,150,2,804,0)=" . D SET^VALM10(2,TIUDOC,0)"
^XMB(3.9,150,2,805,0)="""RTN"",""TIUAL1"",126,0)"
^XMB(3.9,150,2,806,0)=" W TIU(""IOCUON"")"
^XMB(3.9,150,2,807,0)="""RTN"",""TIUAL1"",127,0)"
^XMB(3.9,150,2,808,0)=" Q"
^XMB(3.9,150,2,809,0)="""RTN"",""TIUAL1"",128,0)"
^XMB(3.9,150,2,810,0)="INIT2(TIUCAT) ;"
^XMB(3.9,150,2,811,0)="""RTN"",""TIUAL1"",129,0)"
^XMB(3.9,150,2,812,0)=" S TIUDA="""""
^XMB(3.9,150,2,813,0)="""RTN"",""TIUAL1"",130,0)"
^XMB(3.9,150,2,814,0)=" I $P(TIUCAT,U)'=""AE"" F  S TIUDA=$O(^TIU(8925,$P(TIUCAT,U),TIU(""P""),TIUDA)) Q:TIUDA=""""  D"
^XMB(3.9,150,2,815,0)="""RTN"",""TIUAL1"",131,0)"
^XMB(3.9,150,2,816,0)=" . N TIUD0,TIUD12,TIUD13"
^XMB(3.9,150,2,817,0)="""RTN"",""TIUAL1"",132,0)"
^XMB(3.9,150,2,818,0)=" . S TIUD0=$G(^TIU(8925,TIUDA,0))"
^XMB(3.9,150,2,819,0)="""RTN"",""TIUAL1"",133,0)"
^XMB(3.9,150,2,820,0)=" . S TIUD12=$G(^TIU(8925,TIUDA,12))"
^XMB(3.9,150,2,821,0)="""RTN"",""TIUAL1"",134,0)"
^XMB(3.9,150,2,822,0)=" . S TIUD13=$G(^TIU(8925,TIUDA,13))"
^XMB(3.9,150,2,823,0)="""RTN"",""TIUAL1"",135,0)"
^XMB(3.9,150,2,824,0)=" . I TIUD0=""""!(TIUD12="""")!(TIUD13="""") Q"
^XMB(3.9,150,2,825,0)="""RTN"",""TIUAL1"",136,0)"
^XMB(3.9,150,2,826,0)=" . I $$EVAL(TIUDA) S ^TMP(""TIUDA"",$J,TIUDA)="""",TIU(""CNT"")=TIU(""CNT"")+1"
^XMB(3.9,150,2,827,0)="""RTN"",""TIUAL1"",137,0)"
^XMB(3.9,150,2,828,0)=" I $P(TIUCAT,U)=""AE"" F  S TIUDA=$O(^TIU(8925.7,""AE"",TIUDA)) Q:TIUDA=""""  I $D(^TIU(8925.7,""AE"",TIUDA,TIU(""P""))) D"
^XMB(3.9,150,2,829,0)="""RTN"",""TIUAL1"",138,0)"
^XMB(3.9,150,2,830,0)=" . S TIU(""AS"")="""",TIU(""AS"")=$O(^TIU(8925.7,""AE"",TIUDA,TIU(""P""),TIU(""AS"")))"
^XMB(3.9,150,2,831,0)="""RTN"",""TIUAL1"",139,0)"
^XMB(3.9,150,2,832,0)=" . I $P($G(^TIU(8925.7,TIU(""AS""),0)),U,4),$P($G(^TIU(8925.7,TIU(""AS""),0)),U,5)=TIU(""P"") Q"
^XMB(3.9,150,2,833,0)="""RTN"",""TIUAL1"",140,0)"
^XMB(3.9,150,2,834,0)=" . I TIU(""AS"")'="""",$P($G(^TIU(8925.7,TIU(""AS""),0)),""^"",9)=1 Q"
^XMB(3.9,150,2,835,0)="""RTN"",""TIUAL1"",141,0)"
^XMB(3.9,150,2,836,0)=" . N TIUD0,TIUD12,TIUD13"
^XMB(3.9,150,2,837,0)="""RTN"",""TIUAL1"",142,0)"
^XMB(3.9,150,2,838,0)=" . S TIUD0=$G(^TIU(8925,TIUDA,0))"
^XMB(3.9,150,2,839,0)="""RTN"",""TIUAL1"",143,0)"
^XMB(3.9,150,2,840,0)=" . S TIUD12=$G(^TIU(8925,TIUDA,12))"
^XMB(3.9,150,2,841,0)="""RTN"",""TIUAL1"",144,0)"
^XMB(3.9,150,2,842,0)=" . S TIUD13=$G(^TIU(8925,TIUDA,13))"
^XMB(3.9,150,2,843,0)="""RTN"",""TIUAL1"",145,0)"
^XMB(3.9,150,2,844,0)=" . I TIUD0=""""!(TIUD12="""")!(TIUD13="""") Q"
^XMB(3.9,150,2,845,0)="""RTN"",""TIUAL1"",146,0)"
^XMB(3.9,150,2,846,0)=" . I $$EVAL(TIUDA) S ^TMP(""TIUDA"",$J,TIUDA)=""""_U_""AE""_U_$G(TIU(""AS"")),TIU(""CNT"")=TIU(""CNT"")+1"
^XMB(3.9,150,2,847,0)="""RTN"",""TIUAL1"",147,0)"
^XMB(3.9,150,2,848,0)=" . K TIU(""AS"")"
^XMB(3.9,150,2,849,0)="""RTN"",""TIUAL1"",148,0)"
^XMB(3.9,150,2,850,0)=" F  S TIUDA=$O(^TMP(""TIUDA"",$J,TIUDA)) Q:TIUDA=""""  D"
^XMB(3.9,150,2,851,0)="""RTN"",""TIUAL1"",149,0)"
^XMB(3.9,150,2,852,0)=" . I +^TMP(""TIUDA"",$J,TIUDA)=1 Q"
^XMB(3.9,150,2,853,0)="""RTN"",""TIUAL1"",150,0)"
^XMB(3.9,150,2,854,0)=" . N TIUD0,TIUD12,TIUD13"
^XMB(3.9,150,2,855,0)="""RTN"",""TIUAL1"",151,0)"
^XMB(3.9,150,2,856,0)=" . S TIUD0=$G(^TIU(8925,TIUDA,0))"
^XMB(3.9,150,2,857,0)="""RTN"",""TIUAL1"",152,0)"
^XMB(3.9,150,2,858,0)=" . S TIUD12=$G(^TIU(8925,TIUDA,12))"
^XMB(3.9,150,2,859,0)="""RTN"",""TIUAL1"",153,0)"
^XMB(3.9,150,2,860,0)=" . S TIUD13=$G(^TIU(8925,TIUDA,13))"
^XMB(3.9,150,2,861,0)="""RTN"",""TIUAL1"",154,0)"
^XMB(3.9,150,2,862,0)=" . I TIUD0=""""!(TIUD12="""")!(TIUD13="""") Q"
^XMB(3.9,150,2,863,0)="""RTN"",""TIUAL1"",155,0)"
^XMB(3.9,150,2,864,0)=" . W:TIUCNT#3=0 ""."""
^XMB(3.9,150,2,865,0)="""RTN"",""TIUAL1"",156,0)"
^XMB(3.9,150,2,866,0)=" . I +$$HASKIDS^TIUSRVLI(TIUDA),$P(^TMP(""TIUDA"",$J,TIUDA),U,2)'=""AE"" D  Q"
^XMB(3.9,150,2,867,0)="""RTN"",""TIUAL1"",157,0)"
^XMB(3.9,150,2,868,0)=" . . N TMPCNT"
^XMB(3.9,150,2,869,0)="""RTN"",""TIUAL1"",158,0)"
^XMB(3.9,150,2,870,0)=" . . S TIUCNT=TIUCNT+1,TMPCNT=TIUCNT"
^XMB(3.9,150,2,871,0)="""RTN"",""TIUAL1"",159,0)"
^XMB(3.9,150,2,872,0)=" . . S ^TMP(""TIUDA"",$J,TIUDA)=1"
^XMB(3.9,150,2,873,0)="""RTN"",""TIUAL1"",160,0)"
^XMB(3.9,150,2,874,0)=" . . N CHILD,I,SEQUENCE,TIUI"
^XMB(3.9,150,2,875,0)="""RTN"",""TIUAL1"",161,0)"
^XMB(3.9,150,2,876,0)=" . . S CHILD=""CHILD"",(SEQUENCE,TIUI)="""""
^XMB(3.9,150,2,877,0)="""RTN"",""TIUAL1"",162,0)"
^XMB(3.9,150,2,878,0)=" . . D SETKIDS^TIUSRVLI(.CHILD,TIUDA,.TIUI) I $G(TIUI)="""" Q"
^XMB(3.9,150,2,879,0)="""RTN"",""TIUAL1"",163,0)"
^XMB(3.9,150,2,880,0)=" . . F I=1:1:TIUI I $D(^TMP(""TIUDA"",$J,+CHILD(I))),'+$G(^TMP(""TIUDA"",$J,+CHILD(I))) D"
^XMB(3.9,150,2,881,0)="""RTN"",""TIUAL1"",164,0)"
^XMB(3.9,150,2,882,0)=" . . . N TIUREFDT"
^XMB(3.9,150,2,883,0)="""RTN"",""TIUAL1"",165,0)"
^XMB(3.9,150,2,884,0)=" . . . S TIUCNT=TIUCNT+1"
^XMB(3.9,150,2,885,0)="""RTN"",""TIUAL1"",166,0)"
^XMB(3.9,150,2,886,0)=" . . . S ^TMP(""TIUDA"",$J,+CHILD(I))=1"
^XMB(3.9,150,2,887,0)="""RTN"",""TIUAL1"",167,0)"
^XMB(3.9,150,2,888,0)=" . . . S TIUREFDT=+^TIU(8925,+CHILD(I),13)"
^XMB(3.9,150,2,889,0)="""RTN"",""TIUAL1"",168,0)"
^XMB(3.9,150,2,890,0)=" . . . I $$GET1^DIQ(8925,+CHILD(I),.01)'[""Addendum"" S ^TMP(""TIUDOC"",$J,+TIUD13,TIUCNT,+CHILD(I))=""A""_U_$$GET1^DIQ(8925,TIUDA,.02)_U_$$GET1^DIQ(8925,+CHILD(I),.01)_U_TIUREFDT_U_$$GET1^DIQ(8925,+CHILD(I),.05)"
^XMB(3.9,150,2,891,0)="""RTN"",""TIUAL1"",169,0)"
^XMB(3.9,150,2,892,0)=" . . . E  S ^TMP(""TIUDOC"",$J,+TIUD13,TIUCNT,+CHILD(I))=""A""_U_$$GET1^DIQ(8925,TIUDA,.02)_U_""Addendum to ""_$$GET1^DIQ(8925,TIUDA,.01)_U_TIUREFDT_U_$$GET1^DIQ(8925,+CHILD(I),.05)"
^XMB(3.9,150,2,893,0)="""RTN"",""TIUAL1"",170,0)"
^XMB(3.9,150,2,894,0)=" . . S ^TMP(""TIUDOC"",$J,+TIUD13,TMPCNT,TIUDA)=(TIUCNT-TMPCNT)_U_$$GET1^DIQ(8925,TIUDA,.02)_U_$$GET1^DIQ(8925,TIUDA,.01)_U_+TIUD13_U_$$GET1^DIQ(8925,TIUDA,.05)"
^XMB(3.9,150,2,895,0)="""RTN"",""TIUAL1"",171,0)"
^XMB(3.9,150,2,896,0)=" . I $P(^TMP(""TIUDA"",$J,TIUDA),U,2)=""AE""!(+$$HASDAD^TIUSRVLI(TIUDA)) D  Q"
^XMB(3.9,150,2,897,0)="""RTN"",""TIUAL1"",172,0)"
^XMB(3.9,150,2,898,0)=" . . N TIUAS"
^XMB(3.9,150,2,899,0)="""RTN"",""TIUAL1"",173,0)"
^XMB(3.9,150,2,900,0)=" . . S TIUCNT=TIUCNT+1"
^XMB(3.9,150,2,901,0)="""RTN"",""TIUAL1"",174,0)"
^XMB(3.9,150,2,902,0)=" . . S $P(^TMP(""TIUDA"",$J,TIUDA),U)=1"
^XMB(3.9,150,2,903,0)="""RTN"",""TIUAL1"",175,0)"
^XMB(3.9,150,2,904,0)=" . . S TIUAS=$P(^TMP(""TIUDA"",$J,TIUDA),U,3)"
^XMB(3.9,150,2,905,0)="""RTN"",""TIUAL1"",176,0)"
^XMB(3.9,150,2,906,0)=" . . I $$GET1^DIQ(8925,TIUDA,.01)'[""Addendum"" S ^TMP(""TIUDOC"",$J,+TIUD13,TIUCNT,TIUDA)=U_$$GET1^DIQ(8925,TIUDA,.02)_U_$$GET1^DIQ(8925,TIUDA,.01)_U_+TIUD13_U_$$GET1^DIQ(8925,TIUDA,.05)_U_TIUAS"
^XMB(3.9,150,2,907,0)="""RTN"",""TIUAL1"",177,0)"
^XMB(3.9,150,2,908,0)=" . . E  D"
^XMB(3.9,150,2,909,0)="""RTN"",""TIUAL1"",178,0)"
^XMB(3.9,150,2,910,0)=" . . . N PARENT,SEQUENCE,TIUI"
^XMB(3.9,150,2,911,0)="""RTN"",""TIUAL1"",179,0)"
^XMB(3.9,150,2,912,0)=" . . . S PARENT=""PARENT"",(SEQUENCE,TIUI)="""""
^XMB(3.9,150,2,913,0)="""RTN"",""TIUAL1"",180,0)"
^XMB(3.9,150,2,914,0)=" . . . D SETDAD^TIUSRVLI(.PARENT,TIUDA,.TIUI) I $G(TIUI)="""" Q"
^XMB(3.9,150,2,915,0)="""RTN"",""TIUAL1"",181,0)"
^XMB(3.9,150,2,916,0)=" . . . S ^TMP(""TIUDOC"",$J,+TIUD13,TIUCNT,TIUDA)=U_$$GET1^DIQ(8925,TIUDA,.02)_U_""Addendum to ""_$$GET1^DIQ(8925,+PARENT(TIUI),.01)_U_$P(TIUD13,U)_U_$$GET1^DIQ(8925,TIUDA,.05)_U_TIUAS"
^XMB(3.9,150,2,917,0)="""RTN"",""TIUAL1"",182,0)"
^XMB(3.9,150,2,918,0)=" . I '+$$HASKIDS^TIUSRVLI(TIUDA),'+$$HASDAD^TIUSRVLI(TIUDA) D  Q"
^XMB(3.9,150,2,919,0)="""RTN"",""TIUAL1"",183,0)"
^XMB(3.9,150,2,920,0)=" . . S TIUCNT=TIUCNT+1"
^XMB(3.9,150,2,921,0)="""RTN"",""TIUAL1"",184,0)"
^XMB(3.9,150,2,922,0)=" . . S ^TMP(""TIUDA"",$J,TIUDA)=1"
^XMB(3.9,150,2,923,0)="""RTN"",""TIUAL1"",185,0)"
^XMB(3.9,150,2,924,0)=" . . S ^TMP(""TIUDOC"",$J,+TIUD13,TIUCNT,TIUDA)=U_$$GET1^DIQ(8925,TIUDA,.02)_U_$$GET1^DIQ(8925,TIUDA,.01)_U_$P(TIUD13,U)_U_$$GET1^DIQ(8925,TIUDA,.05)"
^XMB(3.9,150,2,925,0)="""RTN"",""TIUAL1"",186,0)"
^XMB(3.9,150,2,926,0)=" Q"
^XMB(3.9,150,2,927,0)="""RTN"",""TIUAL1"",187,0)"
^XMB(3.9,150,2,928,0)="LSEXIT ; exit code"
^XMB(3.9,150,2,929,0)="""RTN"",""TIUAL1"",188,0)"
^XMB(3.9,150,2,930,0)=" D XQORM"
^XMB(3.9,150,2,931,0)="""RTN"",""TIUAL1"",189,0)"
^XMB(3.9,150,2,932,0)=" Q"
^XMB(3.9,150,2,933,0)="""RTN"",""TIUAL1"",190,0)"
^XMB(3.9,150,2,934,0)="SELSTAT(Y,PARM,DEF,MENU) ; Select Signature status"
^XMB(3.9,150,2,935,0)="""RTN"",""TIUAL1"",191,0)"
^XMB(3.9,150,2,936,0)=" N I,XQORM,X,TIUY"
^XMB(3.9,150,2,937,0)="""RTN"",""TIUAL1"",192,0)"
^XMB(3.9,150,2,938,0)=" S XQORM=+$O(^ORD(101,""B"",MENU,0))_"";ORD(101,"""
^XMB(3.9,150,2,939,0)="""RTN"",""TIUAL1"",193,0)"
^XMB(3.9,150,2,940,0)=" I +XQORM'>0 W !,""Status selection unavailable."" S TIUY=-1 G STATX"
^XMB(3.9,150,2,941,0)="""RTN"",""TIUAL1"",194,0)"
^XMB(3.9,150,2,942,0)=" S XQORM(0)=$G(PARM),XQORM(""A"")=$S(MENU=""TIU STATUS MENU"":""Select DOCUMENT STATUS: "",1:""Select SEARCH CATEGORY: "")"
^XMB(3.9,150,2,943,0)="""RTN"",""TIUAL1"",195,0)"
^XMB(3.9,150,2,944,0)=" I $S(PARM=""F"":1,PARM=""R"":1,1:0) S X=DEF"
^XMB(3.9,150,2,945,0)="""RTN"",""TIUAL1"",196,0)"
^XMB(3.9,150,2,946,0)=" S XQORM(""B"")=DEF D EN^XQORM"
^XMB(3.9,150,2,947,0)="""RTN"",""TIUAL1"",197,0)"
^XMB(3.9,150,2,948,0)=" S TIUY=$G(Y)"
^XMB(3.9,150,2,949,0)="""RTN"",""TIUAL1"",198,0)"
^XMB(3.9,150,2,950,0)=" I MENU=""TIU STATUS MENU"",+$G(Y)=1,(+$G(Y(1))=7) S Y=2,Y(2)=""8^4843^amended^8"""
^XMB(3.9,150,2,951,0)="""RTN"",""TIUAL1"",199,0)"
^XMB(3.9,150,2,952,0)="STATX Q TIUY"
^XMB(3.9,150,2,953,0)="""RTN"",""TIUAL1"",200,0)"
^XMB(3.9,150,2,954,0)="XQORM ;"
^XMB(3.9,150,2,955,0)="""RTN"",""TIUAL1"",201,0)"
^XMB(3.9,150,2,956,0)=" S XQORM(""#"")=$O(^ORD(101,""B"",""TIU ALERTS SELECT"",0))_U_""1:""_VALMCNT"
^XMB(3.9,150,2,957,0)="""RTN"",""TIUAL1"",202,0)"
^XMB(3.9,150,2,958,0)=" Q"
^XMB(3.9,150,2,959,0)="""VER"")"
^XMB(3.9,150,2,960,0)="8.0^22.0"
^XMB(3.9,150,2,961,0)="""^DD"",8925.7,8925.7,.05,0)"
^XMB(3.9,150,2,962,0)="ACTUAL COSIGNER^P200'^VA(200,^0;5^Q"
^XMB(3.9,150,2,963,0)="""^DD"",8925.7,8925.7,.05,1,0)"
^XMB(3.9,150,2,964,0)="^.1"
^XMB(3.9,150,2,965,0)="""^DD"",8925.7,8925.7,.05,1,1,0)"
^XMB(3.9,150,2,966,0)="^^TRIGGER^8925.7^.09"
^XMB(3.9,150,2,967,0)="""^DD"",8925.7,8925.7,.05,1,1,1)"
^XMB(3.9,150,2,968,0)="D TRIGGER^TIU199"
^XMB(3.9,150,2,969,0)="""^DD"",8925.7,8925.7,.05,1,1,2)"
^XMB(3.9,150,2,970,0)="Q"
^XMB(3.9,150,2,971,0)="""^DD"",8925.7,8925.7,.05,1,1,""CREATE VALUE"")"
^XMB(3.9,150,2,972,0)="NO EFFECT"
^XMB(3.9,150,2,973,0)="""^DD"",8925.7,8925.7,.05,1,1,""DELETE VALUE"")"
^XMB(3.9,150,2,974,0)="NO EFFECT"
^XMB(3.9,150,2,975,0)="""^DD"",8925.7,8925.7,.05,1,1,""DT"")"
^XMB(3.9,150,2,976,0)="3050706"
^XMB(3.9,150,2,977,0)="""^DD"",8925.7,8925.7,.05,1,1,""FIELD"")"
^XMB(3.9,150,2,978,0)="SIGNED BY SURROGATE"
^XMB(3.9,150,2,979,0)="""^DD"",8925.7,8925.7,.05,3)"
^XMB(3.9,150,2,980,0)="Please indicate the user who actually cosigned the document."
^XMB(3.9,150,2,981,0)="""^DD"",8925.7,8925.7,.05,21,0)"
^XMB(3.9,150,2,982,0)="^.001^4^4^3050831^^"
^XMB(3.9,150,2,983,0)="""^DD"",8925.7,8925.7,.05,21,1,0)"
^XMB(3.9,150,2,984,0)="This field contains the person who actually signed for this Additional "
^XMB(3.9,150,2,985,0)="""^DD"",8925.7,8925.7,.05,21,2,0)"
^XMB(3.9,150,2,986,0)="Signer. This field will trigger field .09 (Signed by Surrogate). That "
^XMB(3.9,150,2,987,0)="""^DD"",8925.7,8925.7,.05,21,3,0)"
^XMB(3.9,150,2,988,0)="trigger will check if the Actual Co-signer is a surrogate for the Expected"
^XMB(3.9,150,2,989,0)="""^DD"",8925.7,8925.7,.05,21,4,0)"
^XMB(3.9,150,2,990,0)="Signer. If so the .09 field will be set to 1. If not it will be set to 0."
^XMB(3.9,150,2,991,0)="""^DD"",8925.7,8925.7,.05,""DT"")"
^XMB(3.9,150,2,992,0)="3050706"
^XMB(3.9,150,2,993,0)="""^DD"",8925.7,8925.7,.09,0)"
^XMB(3.9,150,2,994,0)="SIGNED BY SURROGATE^S^0:NO;1:YES;^0;9^Q"
^XMB(3.9,150,2,995,0)="""^DD"",8925.7,8925.7,.09,5,1,0)"
^XMB(3.9,150,2,996,0)="8925.7^.05^1"
^XMB(3.9,150,2,997,0)="""^DD"",8925.7,8925.7,.09,21,0)"
^XMB(3.9,150,2,998,0)="^^6^6^3050718^"
^XMB(3.9,150,2,999,0)="""^DD"",8925.7,8925.7,.09,21,1,0)"
^XMB(3.9,150,2,1000,0)="This field is set by a trigger on the .05 field (ACTUAL COSIGNER). The "
^XMB(3.9,150,2,1001,0)="""^DD"",8925.7,8925.7,.09,21,2,0)"
^XMB(3.9,150,2,1002,0)="trigger will check if the actual cosigner is a surrogate for the expected "
^XMB(3.9,150,2,1003,0)="""^DD"",8925.7,8925.7,.09,21,3,0)"
^XMB(3.9,150,2,1004,0)="signer at the time of signing. If so this field will be set to 1. If "
^XMB(3.9,150,2,1005,0)="""^DD"",8925.7,8925.7,.09,21,4,0)"
^XMB(3.9,150,2,1006,0)="not it will be set to 0. This will enable other processes to know if the "
^XMB(3.9,150,2,1007,0)="""^DD"",8925.7,8925.7,.09,21,5,0)"
^XMB(3.9,150,2,1008,0)="Additional Signer was signed by a surrogate as the assignment of the "
^XMB(3.9,150,2,1009,0)="""^DD"",8925.7,8925.7,.09,21,6,0)"
^XMB(3.9,150,2,1010,0)="surrogate is temporary and cannot be checked at a later date."
^XMB(3.9,150,2,1011,0)="""^DD"",8925.7,8925.7,.09,""DT"")"
^XMB(3.9,150,2,1012,0)="3050706"
^XMB(3.9,150,2,1013,0)="""BLD"",6776,6)"
^XMB(3.9,150,2,1014,0)="^198"
^XMB(3.9,150,2,1015,0)="$END KID TIU*1.0*199"
^XMB(3.9,150,6,0)="^3.911A^2^2"
^XMB(3.9,150,6,1,0)="POSTMASTER"
^XMB(3.9,150,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,150,6,"B","POSTMASTER",1)=""
^XMB(3.9,150,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,151,0)="TIU-1_SEQ-199_PAT-218.KID^.5^3061008.015743^^^^K"
^XMB(3.9,151,.6)="3061008"
^XMB(3.9,151,1,0)="^3.91A^2^2"
^XMB(3.9,151,1,1,0)=".5^0^3061008.015743^^^^^^^3061008.015743"
^XMB(3.9,151,1,2,0)="1^0^3061008.022831^^^^^^^3061008.022831"
^XMB(3.9,151,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,151,1,"C",.5,1)=""
^XMB(3.9,151,1,"C",1,2)=""
^XMB(3.9,151,2,0)="^^565^565^3061008"
^XMB(3.9,151,2,1,0)="$TXT Released TIU*1*218 SEQ #199"
^XMB(3.9,151,2,2,0)="Extracted from mail message"
^XMB(3.9,151,2,3,0)="$END TXT"
^XMB(3.9,151,2,4,0)="$KID TIU*1.0*218"
^XMB(3.9,151,2,5,0)="**INSTALL NAME**"
^XMB(3.9,151,2,6,0)="TIU*1.0*218"
^XMB(3.9,151,2,7,0)="""BLD"",6286,0)"
^XMB(3.9,151,2,8,0)="TIU*1.0*218^TEXT INTEGRATION UTILITIES^0^3060726^y"
^XMB(3.9,151,2,9,0)="""BLD"",6286,1,0)"
^XMB(3.9,151,2,10,0)="^^2^2^3060612^^"
^XMB(3.9,151,2,11,0)="""BLD"",6286,1,1,0)"
^XMB(3.9,151,2,12,0)="The description of this patch may be found in the national patch module "
^XMB(3.9,151,2,13,0)="""BLD"",6286,1,2,0)"
^XMB(3.9,151,2,14,0)="under patch TIU*1.0*218."
^XMB(3.9,151,2,15,0)="""BLD"",6286,4,0)"
^XMB(3.9,151,2,16,0)="^9.64PA^^"
^XMB(3.9,151,2,17,0)="""BLD"",6286,6.3)"
^XMB(3.9,151,2,18,0)="1"
^XMB(3.9,151,2,19,0)="""BLD"",6286,""KRN"",0)"
^XMB(3.9,151,2,20,0)="^9.67PA^8989.52^19"
^XMB(3.9,151,2,21,0)="""BLD"",6286,""KRN"",.4,0)"
^XMB(3.9,151,2,22,0)=".4"
^XMB(3.9,151,2,23,0)="""BLD"",6286,""KRN"",.401,0)"
^XMB(3.9,151,2,24,0)=".401"
^XMB(3.9,151,2,25,0)="""BLD"",6286,""KRN"",.402,0)"
^XMB(3.9,151,2,26,0)=".402"
^XMB(3.9,151,2,27,0)="""BLD"",6286,""KRN"",.403,0)"
^XMB(3.9,151,2,28,0)=".403"
^XMB(3.9,151,2,29,0)="""BLD"",6286,""KRN"",.5,0)"
^XMB(3.9,151,2,30,0)=".5"
^XMB(3.9,151,2,31,0)="""BLD"",6286,""KRN"",.84,0)"
^XMB(3.9,151,2,32,0)=".84"
^XMB(3.9,151,2,33,0)="""BLD"",6286,""KRN"",3.6,0)"
^XMB(3.9,151,2,34,0)="3.6"
^XMB(3.9,151,2,35,0)="""BLD"",6286,""KRN"",3.8,0)"
^XMB(3.9,151,2,36,0)="3.8"
^XMB(3.9,151,2,37,0)="""BLD"",6286,""KRN"",9.2,0)"
^XMB(3.9,151,2,38,0)="9.2"
^XMB(3.9,151,2,39,0)="""BLD"",6286,""KRN"",9.8,0)"
^XMB(3.9,151,2,40,0)="9.8"
^XMB(3.9,151,2,41,0)="""BLD"",6286,""KRN"",9.8,""NM"",0)"
^XMB(3.9,151,2,42,0)="^9.68A^1^1"
^XMB(3.9,151,2,43,0)="""BLD"",6286,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,151,2,44,0)="TIUPS209^^0^B67761530"
^XMB(3.9,151,2,45,0)="""BLD"",6286,""KRN"",9.8,""NM"",""B"",""TIUPS209"",1)"
^XMB(3.9,151,2,46,0)=""
^XMB(3.9,151,2,47,0)="""BLD"",6286,""KRN"",19,0)"
^XMB(3.9,151,2,48,0)="19"
^XMB(3.9,151,2,49,0)="""BLD"",6286,""KRN"",19,""NM"",0)"
^XMB(3.9,151,2,50,0)="^9.68A^2^2"
^XMB(3.9,151,2,51,0)="""BLD"",6286,""KRN"",19,""NM"",1,0)"
^XMB(3.9,151,2,52,0)="TIU ACTIVE TITLE CLEANUP^^0"
^XMB(3.9,151,2,53,0)="""BLD"",6286,""KRN"",19,""NM"",2,0)"
^XMB(3.9,151,2,54,0)="TIU IRM MAINTENANCE MENU^^2"
^XMB(3.9,151,2,55,0)="""BLD"",6286,""KRN"",19,""NM"",""B"",""TIU ACTIVE TITLE CLEANUP"",1)"
^XMB(3.9,151,2,56,0)=""
^XMB(3.9,151,2,57,0)="""BLD"",6286,""KRN"",19,""NM"",""B"",""TIU IRM MAINTENANCE MENU"",2)"
^XMB(3.9,151,2,58,0)=""
^XMB(3.9,151,2,59,0)="""BLD"",6286,""KRN"",19.1,0)"
^XMB(3.9,151,2,60,0)="19.1"
^XMB(3.9,151,2,61,0)="""BLD"",6286,""KRN"",101,0)"
^XMB(3.9,151,2,62,0)="101"
^XMB(3.9,151,2,63,0)="""BLD"",6286,""KRN"",409.61,0)"
^XMB(3.9,151,2,64,0)="409.61"
^XMB(3.9,151,2,65,0)="""BLD"",6286,""KRN"",771,0)"
^XMB(3.9,151,2,66,0)="771"
^XMB(3.9,151,2,67,0)="""BLD"",6286,""KRN"",870,0)"
^XMB(3.9,151,2,68,0)="870"
^XMB(3.9,151,2,69,0)="""BLD"",6286,""KRN"",8989.51,0)"
^XMB(3.9,151,2,70,0)="8989.51"
^XMB(3.9,151,2,71,0)="""BLD"",6286,""KRN"",8989.52,0)"
^XMB(3.9,151,2,72,0)="8989.52"
^XMB(3.9,151,2,73,0)="""BLD"",6286,""KRN"",8994,0)"
^XMB(3.9,151,2,74,0)="8994"
^XMB(3.9,151,2,75,0)="""BLD"",6286,""KRN"",""B"",.4,.4)"
^XMB(3.9,151,2,76,0)=""
^XMB(3.9,151,2,77,0)="""BLD"",6286,""KRN"",""B"",.401,.401)"
^XMB(3.9,151,2,78,0)=""
^XMB(3.9,151,2,79,0)="""BLD"",6286,""KRN"",""B"",.402,.402)"
^XMB(3.9,151,2,80,0)=""
^XMB(3.9,151,2,81,0)="""BLD"",6286,""KRN"",""B"",.403,.403)"
^XMB(3.9,151,2,82,0)=""
^XMB(3.9,151,2,83,0)="""BLD"",6286,""KRN"",""B"",.5,.5)"
^XMB(3.9,151,2,84,0)=""
^XMB(3.9,151,2,85,0)="""BLD"",6286,""KRN"",""B"",.84,.84)"
^XMB(3.9,151,2,86,0)=""
^XMB(3.9,151,2,87,0)="""BLD"",6286,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,151,2,88,0)=""
^XMB(3.9,151,2,89,0)="""BLD"",6286,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,151,2,90,0)=""
^XMB(3.9,151,2,91,0)="""BLD"",6286,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,151,2,92,0)=""
^XMB(3.9,151,2,93,0)="""BLD"",6286,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,151,2,94,0)=""
^XMB(3.9,151,2,95,0)="""BLD"",6286,""KRN"",""B"",19,19)"
^XMB(3.9,151,2,96,0)=""
^XMB(3.9,151,2,97,0)="""BLD"",6286,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,151,2,98,0)=""
^XMB(3.9,151,2,99,0)="""BLD"",6286,""KRN"",""B"",101,101)"
^XMB(3.9,151,2,100,0)=""
^XMB(3.9,151,2,101,0)="""BLD"",6286,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,151,2,102,0)=""
^XMB(3.9,151,2,103,0)="""BLD"",6286,""KRN"",""B"",771,771)"
^XMB(3.9,151,2,104,0)=""
^XMB(3.9,151,2,105,0)="""BLD"",6286,""KRN"",""B"",870,870)"
^XMB(3.9,151,2,106,0)=""
^XMB(3.9,151,2,107,0)="""BLD"",6286,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,151,2,108,0)=""
^XMB(3.9,151,2,109,0)="""BLD"",6286,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,151,2,110,0)=""
^XMB(3.9,151,2,111,0)="""BLD"",6286,""KRN"",""B"",8994,8994)"
^XMB(3.9,151,2,112,0)=""
^XMB(3.9,151,2,113,0)="""BLD"",6286,""QUES"",0)"
^XMB(3.9,151,2,114,0)="^9.62^^"
^XMB(3.9,151,2,115,0)="""BLD"",6286,""REQB"",0)"
^XMB(3.9,151,2,116,0)="^9.611^1^1"
^XMB(3.9,151,2,117,0)="""BLD"",6286,""REQB"",1,0)"
^XMB(3.9,151,2,118,0)="TEXT INTEGRATION UTILITIES 1.0^2"
^XMB(3.9,151,2,119,0)="""BLD"",6286,""REQB"",""B"",""TEXT INTEGRATION UTILITIES 1.0"",1)"
^XMB(3.9,151,2,120,0)=""
^XMB(3.9,151,2,121,0)="""KRN"",19,5287,-1)"
^XMB(3.9,151,2,122,0)="2^2"
^XMB(3.9,151,2,123,0)="""KRN"",19,5287,0)"
^XMB(3.9,151,2,124,0)="TIU IRM MAINTENANCE MENU^TIU Maintenance Menu^^M^123456789078^^^^^^^193^y^1^1"
^XMB(3.9,151,2,125,0)="""KRN"",19,5287,10,0)"
^XMB(3.9,151,2,126,0)="^19.01IP^12^12"
^XMB(3.9,151,2,127,0)="""KRN"",19,5287,10,11,0)"
^XMB(3.9,151,2,128,0)="10023^6^6"
^XMB(3.9,151,2,129,0)="""KRN"",19,5287,10,11,""^"")"
^XMB(3.9,151,2,130,0)="TIU ACTIVE TITLE CLEANUP"
^XMB(3.9,151,2,131,0)="""KRN"",19,5287,""U"")"
^XMB(3.9,151,2,132,0)="TIU MAINTENANCE MENU"
^XMB(3.9,151,2,133,0)="""KRN"",19,10023,-1)"
^XMB(3.9,151,2,134,0)="0^1"
^XMB(3.9,151,2,135,0)="""KRN"",19,10023,0)"
^XMB(3.9,151,2,136,0)="TIU ACTIVE TITLE CLEANUP^Active Title Cleanup Report^^R^^^^^^^^TEXT INTEGRATION UTILITIES"
^XMB(3.9,151,2,137,0)="""KRN"",19,10023,25)"
^XMB(3.9,151,2,138,0)="EN^TIUPS209"
^XMB(3.9,151,2,139,0)="""KRN"",19,10023,""U"")"
^XMB(3.9,151,2,140,0)="ACTIVE TITLE CLEANUP REPORT"
^XMB(3.9,151,2,141,0)="""MBREQ"")"
^XMB(3.9,151,2,142,0)="0"
^XMB(3.9,151,2,143,0)="""ORD"",18,19)"
^XMB(3.9,151,2,144,0)="19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA"
^XMB(3.9,151,2,145,0)="""ORD"",18,19,0)"
^XMB(3.9,151,2,146,0)="OPTION"
^XMB(3.9,151,2,147,0)="""PKG"",193,-1)"
^XMB(3.9,151,2,148,0)="1^1"
^XMB(3.9,151,2,149,0)="""PKG"",193,0)"
^XMB(3.9,151,2,150,0)="TEXT INTEGRATION UTILITIES^TIU^Text Integration Utilities "
^XMB(3.9,151,2,151,0)="""PKG"",193,20,0)"
^XMB(3.9,151,2,152,0)="^9.402P^^"
^XMB(3.9,151,2,153,0)="""PKG"",193,22,0)"
^XMB(3.9,151,2,154,0)="^9.49I^1^1"
^XMB(3.9,151,2,155,0)="""PKG"",193,22,1,0)"
^XMB(3.9,151,2,156,0)="1.0^3010321^3010321^11"
^XMB(3.9,151,2,157,0)="""PKG"",193,22,1,""PAH"",1,0)"
^XMB(3.9,151,2,158,0)="218^3060726^11"
^XMB(3.9,151,2,159,0)="""PKG"",193,22,1,""PAH"",1,1,0)"
^XMB(3.9,151,2,160,0)="^^2^2^3060726"
^XMB(3.9,151,2,161,0)="""PKG"",193,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,151,2,162,0)="The description of this patch may be found in the national patch module "
^XMB(3.9,151,2,163,0)="""PKG"",193,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,151,2,164,0)="under patch TIU*1.0*218."
^XMB(3.9,151,2,165,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,151,2,166,0)="Y"
^XMB(3.9,151,2,167,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,151,2,168,0)="^D REP^XPDH"
^XMB(3.9,151,2,169,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,151,2,170,0)="Shall I write over your |FLAG| File"
^XMB(3.9,151,2,171,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,151,2,172,0)="YES"
^XMB(3.9,151,2,173,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,151,2,174,0)="D XPF1^XPDIQ"
^XMB(3.9,151,2,175,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,151,2,176,0)="Y"
^XMB(3.9,151,2,177,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,151,2,178,0)="^D DTA^XPDH"
^XMB(3.9,151,2,179,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,151,2,180,0)="Want my data |FLAG| yours"
^XMB(3.9,151,2,181,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,151,2,182,0)="YES"
^XMB(3.9,151,2,183,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,151,2,184,0)="D XPF2^XPDIQ"
^XMB(3.9,151,2,185,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,151,2,186,0)="YO"
^XMB(3.9,151,2,187,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,151,2,188,0)="^D INHIBIT^XPDH"
^XMB(3.9,151,2,189,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,151,2,190,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,151,2,191,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,151,2,192,0)="YES"
^XMB(3.9,151,2,193,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,151,2,194,0)="D XPI1^XPDIQ"
^XMB(3.9,151,2,195,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,151,2,196,0)="PO^VA(200,:EM"
^XMB(3.9,151,2,197,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,151,2,198,0)="^D MG^XPDH"
^XMB(3.9,151,2,199,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,151,2,200,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,151,2,201,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,151,2,202,0)=""
^XMB(3.9,151,2,203,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,151,2,204,0)="D XPM1^XPDIQ"
^XMB(3.9,151,2,205,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,151,2,206,0)="Y"
^XMB(3.9,151,2,207,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,151,2,208,0)="^D MENU^XPDH"
^XMB(3.9,151,2,209,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,151,2,210,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,151,2,211,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,151,2,212,0)="YES"
^XMB(3.9,151,2,213,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,151,2,214,0)="D XPO1^XPDIQ"
^XMB(3.9,151,2,215,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,151,2,216,0)="Y"
^XMB(3.9,151,2,217,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,151,2,218,0)="^D OPT^XPDH"
^XMB(3.9,151,2,219,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,151,2,220,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,151,2,221,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,151,2,222,0)="YES"
^XMB(3.9,151,2,223,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,151,2,224,0)="D XPZ1^XPDIQ"
^XMB(3.9,151,2,225,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,151,2,226,0)="Y"
^XMB(3.9,151,2,227,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,151,2,228,0)="^D RTN^XPDH"
^XMB(3.9,151,2,229,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,151,2,230,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,151,2,231,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,151,2,232,0)="NO"
^XMB(3.9,151,2,233,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,151,2,234,0)="D XPZ2^XPDIQ"
^XMB(3.9,151,2,235,0)="""RTN"")"
^XMB(3.9,151,2,236,0)="1"
^XMB(3.9,151,2,237,0)="""RTN"",""TIUPS209"")"
^XMB(3.9,151,2,238,0)="0^1^B67761530^B52105626"
^XMB(3.9,151,2,239,0)="""RTN"",""TIUPS209"",1,0)"
^XMB(3.9,151,2,240,0)="TIUPS209 ; SLC/AJB - Active Titles Report & Cleanup v2; 06/01/06 ; 7/26/06 11:46am"
^XMB(3.9,151,2,241,0)="""RTN"",""TIUPS209"",2,0)"
^XMB(3.9,151,2,242,0)=" ;;1.0;TEXT INTEGRATION UTILITIES;**209,218**;Jun 20, 1997;Build 1"
^XMB(3.9,151,2,243,0)="""RTN"",""TIUPS209"",3,0)"
^XMB(3.9,151,2,244,0)=" ;"
^XMB(3.9,151,2,245,0)="""RTN"",""TIUPS209"",4,0)"
^XMB(3.9,151,2,246,0)=" Q"
^XMB(3.9,151,2,247,0)="""RTN"",""TIUPS209"",5,0)"
^XMB(3.9,151,2,248,0)="EN ; control segment"
^XMB(3.9,151,2,249,0)="""RTN"",""TIUPS209"",6,0)"
^XMB(3.9,151,2,250,0)=" N ANS,TIUOMIT"
^XMB(3.9,151,2,251,0)="""RTN"",""TIUPS209"",7,0)"
^XMB(3.9,151,2,252,0)=" W @IOF"
^XMB(3.9,151,2,253,0)="""RTN"",""TIUPS209"",8,0)"
^XMB(3.9,151,2,254,0)=" D ASKUSER(.ANS,""Inactivate the unused Document Titles at this time"") Q:$G(ANS(""EXIT""))=""YES"""
^XMB(3.9,151,2,255,0)="""RTN"",""TIUPS209"",9,0)"
^XMB(3.9,151,2,256,0)=" D"
^XMB(3.9,151,2,257,0)="""RTN"",""TIUPS209"",10,0)"
^XMB(3.9,151,2,258,0)=" .N POP,TIUDESC,TIURTN,TIUSAVE"
^XMB(3.9,151,2,259,0)="""RTN"",""TIUPS209"",11,0)"
^XMB(3.9,151,2,260,0)=" .S TIUDESC=""TIUPS209 Active Title Report & Cleanup"",TIURTN=""REPORT^TIUPS209"",TIUSAVE(""*"")="""""
^XMB(3.9,151,2,261,0)="""RTN"",""TIUPS209"",12,0)"
^XMB(3.9,151,2,262,0)=" .W ! D EN^XUTMDEVQ(TIURTN,TIUDESC,.TIUSAVE)"
^XMB(3.9,151,2,263,0)="""RTN"",""TIUPS209"",13,0)"
^XMB(3.9,151,2,264,0)=" Q"
^XMB(3.9,151,2,265,0)="""RTN"",""TIUPS209"",14,0)"
^XMB(3.9,151,2,266,0)="REPORT ;"
^XMB(3.9,151,2,267,0)="""RTN"",""TIUPS209"",15,0)"
^XMB(3.9,151,2,268,0)=" N CNT,ENDDT,ENDTIME,GBL,LINE,LINETXT,STRDT,STRTIME,TIUDA,TMP,TOTTIME,TIUX,TIUY"
^XMB(3.9,151,2,269,0)="""RTN"",""TIUPS209"",16,0)"
^XMB(3.9,151,2,270,0)=" S STRTIME=$$NOW^XLFDT ; start time of search"
^XMB(3.9,151,2,271,0)="""RTN"",""TIUPS209"",17,0)"
^XMB(3.9,151,2,272,0)="RESTART ;"
^XMB(3.9,151,2,273,0)="""RTN"",""TIUPS209"",18,0)"
^XMB(3.9,151,2,274,0)=" S CNT=$NA(CNT) ; counters"
^XMB(3.9,151,2,275,0)="""RTN"",""TIUPS209"",19,0)"
^XMB(3.9,151,2,276,0)=" S GBL=$NA(^TIU(8925.1,""B"")) ; global to be searched"
^XMB(3.9,151,2,277,0)="""RTN"",""TIUPS209"",20,0)"
^XMB(3.9,151,2,278,0)=" S TMP=$NA(^TMP(""TIUPS209"",$J)) ; sets temporary storage location"
^XMB(3.9,151,2,279,0)="""RTN"",""TIUPS209"",21,0)"
^XMB(3.9,151,2,280,0)=" S @CNT@(""T#8925.1"")=0 ; number of document titles in 8925.1"
^XMB(3.9,151,2,281,0)="""RTN"",""TIUPS209"",22,0)"
^XMB(3.9,151,2,282,0)=" S (TIUX,TIUY)=0 ; gets all document titles from 8925.1"
^XMB(3.9,151,2,283,0)="""RTN"",""TIUPS209"",23,0)"
^XMB(3.9,151,2,284,0)=" F  S TIUX=$O(@GBL@(TIUX)) Q:TIUX=""""  F  S TIUY=$O(@GBL@(TIUX,TIUY)) Q:'+TIUY  D"
^XMB(3.9,151,2,285,0)="""RTN"",""TIUPS209"",24,0)"
^XMB(3.9,151,2,286,0)=" . I $P($G(^TIU(8925.1,TIUY,0)),U,4)=""DOC"" S @TMP@(""B"",TIUY)=0,@CNT@(""T#8925.1"")=@CNT@(""T#8925.1"")+1"
^XMB(3.9,151,2,287,0)="""RTN"",""TIUPS209"",25,0)"
^XMB(3.9,151,2,288,0)=" S GBL=$NA(^TIU(8925,""F"")) ; global to be searched"
^XMB(3.9,151,2,289,0)="""RTN"",""TIUPS209"",26,0)"
^XMB(3.9,151,2,290,0)=" S STRDT=$P($$FMADD^XLFDT($$NOW^XLFDT,-365),""."") ; start date to search"
^XMB(3.9,151,2,291,0)="""RTN"",""TIUPS209"",27,0)"
^XMB(3.9,151,2,292,0)=" S ENDDT=$P($$NOW^XLFDT,""."")_"".24"" ; end date to search"
^XMB(3.9,151,2,293,0)="""RTN"",""TIUPS209"",28,0)"
^XMB(3.9,151,2,294,0)=" S @CNT@(""T#8925"")=0 ; number of documents searched in 8925"
^XMB(3.9,151,2,295,0)="""RTN"",""TIUPS209"",29,0)"
^XMB(3.9,151,2,296,0)=" S @CNT@(""T#M0NODE"")=0 ; number of documents with invalid .01 field"
^XMB(3.9,151,2,297,0)="""RTN"",""TIUPS209"",30,0)"
^XMB(3.9,151,2,298,0)=" S @CNT@(""T#WT8925.1"")=0 ; number of documents with incorrect .01 field (non title - 8925.1)"
^XMB(3.9,151,2,299,0)="""RTN"",""TIUPS209"",31,0)"
^XMB(3.9,151,2,300,0)=" S @CNT@(""T#ADD8925.1"")=0 ; number of document titles added due to wrong type"
^XMB(3.9,151,2,301,0)="""RTN"",""TIUPS209"",32,0)"
^XMB(3.9,151,2,302,0)=" S @CNT@(""T#GDOCS"")=0 ; number of documents"
^XMB(3.9,151,2,303,0)="""RTN"",""TIUPS209"",33,0)"
^XMB(3.9,151,2,304,0)=" S TIUDA=0"
^XMB(3.9,151,2,305,0)="""RTN"",""TIUPS209"",34,0)"
^XMB(3.9,151,2,306,0)=" F  S STRDT=$O(@GBL@(STRDT)) Q:'+STRDT!(STRDT>ENDDT)  F  S TIUDA=$O(@GBL@(STRDT,TIUDA)) Q:'+TIUDA  D"
^XMB(3.9,151,2,307,0)="""RTN"",""TIUPS209"",35,0)"
^XMB(3.9,151,2,308,0)=" . S @CNT@(""T#8925"")=@CNT@(""T#8925"")+1 ; count of documents searched"
^XMB(3.9,151,2,309,0)="""RTN"",""TIUPS209"",36,0)"
^XMB(3.9,151,2,310,0)=" . N TIUD0,TIUD12,TIUX S TIUD0=$G(^TIU(8925,TIUDA,0)),TIUD12=$G(^TIU(8925,TIUDA,12))"
^XMB(3.9,151,2,311,0)="""RTN"",""TIUPS209"",37,0)"
^XMB(3.9,151,2,312,0)=" . I '+TIUD0 S @TMP@(""UNK"",+TIUDA)="""",@CNT@(""T#M0NODE"")=@CNT@(""T#M0NODE"")+1 Q  ; track documents with invalid .01 field"
^XMB(3.9,151,2,313,0)="""RTN"",""TIUPS209"",38,0)"
^XMB(3.9,151,2,314,0)=" . I $P($G(^TIU(8925.1,+TIUD0,0)),U,4)'=""DOC"" S TIUX=1,@CNT@(""T#WT8925.1"")=@CNT@(""T#WT8925.1"")+1,@TMP@(""WRT"",+TIUD0)="""""
^XMB(3.9,151,2,315,0)="""RTN"",""TIUPS209"",39,0)"
^XMB(3.9,151,2,316,0)=" . I '+$D(@TMP@(""B"",+TIUD0)) S @TMP@(""B"",+TIUD0)=0,@CNT@(""T#ADD8925.1"")=@CNT@(""T#ADD8925.1"")+1"
^XMB(3.9,151,2,317,0)="""RTN"",""TIUPS209"",40,0)"
^XMB(3.9,151,2,318,0)=" . S @TMP@(""B"",+TIUD0)=(+@TMP@(""B"",+TIUD0)+1) S:'+$G(TIUX) @CNT@(""T#GDOCS"")=@CNT@(""T#GDOCS"")+1"
^XMB(3.9,151,2,319,0)="""RTN"",""TIUPS209"",41,0)"
^XMB(3.9,151,2,320,0)=" . S @TMP@(""B"",+TIUD0)=@TMP@(""B"",+TIUD0)_U_+$P(TIUD12,""."")_U_$P(TIUD12,U,2)_U_+TIUD0_U_$P(^TIU(8925.1,+TIUD0,0),U,7)"
^XMB(3.9,151,2,321,0)="""RTN"",""TIUPS209"",42,0)"
^XMB(3.9,151,2,322,0)=" S @CNT@(""T#ERR8925.1"")=0 ; number of errorneous document titles"
^XMB(3.9,151,2,323,0)="""RTN"",""TIUPS209"",43,0)"
^XMB(3.9,151,2,324,0)=" S @CNT@(""T#U8925.1"")=0 ; number of used document titles"
^XMB(3.9,151,2,325,0)="""RTN"",""TIUPS209"",44,0)"
^XMB(3.9,151,2,326,0)=" S @CNT@(""T#UN8925.1"")=0 ; number of unused document titles"
^XMB(3.9,151,2,327,0)="""RTN"",""TIUPS209"",45,0)"
^XMB(3.9,151,2,328,0)=" S TIUDA=0"
^XMB(3.9,151,2,329,0)="""RTN"",""TIUPS209"",46,0)"
^XMB(3.9,151,2,330,0)=" F  S TIUDA=$O(@TMP@(""B"",TIUDA)) Q:'+TIUDA  D"
^XMB(3.9,151,2,331,0)="""RTN"",""TIUPS209"",47,0)"
^XMB(3.9,151,2,332,0)=" . I +$L($P($G(^TIU(8925.1,TIUDA,0)),U))<3 S @CNT@(""T#ERR8925.1"")=@CNT@(""T#ERR8925.1"")+1,@TMP@(""B.1"",+TIUDA)="""" Q"
^XMB(3.9,151,2,333,0)="""RTN"",""TIUPS209"",48,0)"
^XMB(3.9,151,2,334,0)=" . I +@TMP@(""B"",TIUDA) S @CNT@(""T#U8925.1"")=@CNT@(""T#U8925.1"")+1,@TMP@(""RPT"",""USED"",$$GET1^DIQ(8925.1,+TIUDA,.01))=@TMP@(""B"",+TIUDA) Q"
^XMB(3.9,151,2,335,0)="""RTN"",""TIUPS209"",49,0)"
^XMB(3.9,151,2,336,0)=" . S @CNT@(""T#UN8925.1"")=@CNT@(""T#UN8925.1"")+1,@TMP@(""RPT"",""UNUSED"",$$GET1^DIQ(8925.1,+TIUDA,.01))=$$GETLAST(+TIUDA)"
^XMB(3.9,151,2,337,0)="""RTN"",""TIUPS209"",50,0)"
^XMB(3.9,151,2,338,0)=" S ENDTIME=$$NOW^XLFDT,TOTTIME=$FN($$FMDIFF^XLFDT(STRTIME,ENDTIME,2)/60,""-"")"
^XMB(3.9,151,2,339,0)="""RTN"",""TIUPS209"",51,0)"
^XMB(3.9,151,2,340,0)=" I $G(ANS(""INACT""))=""YES"" D UPDATE K @TMP S ANS(""INACT"")="""" G RESTART"
^XMB(3.9,151,2,341,0)="""RTN"",""TIUPS209"",52,0)"
^XMB(3.9,151,2,342,0)=" F LINE=1:1 S LINETXT=$P($T(RPT+LINE),"";;"",2) Q:LINETXT=""EOM""  W !,@LINETXT"
^XMB(3.9,151,2,343,0)="""RTN"",""TIUPS209"",53,0)"
^XMB(3.9,151,2,344,0)=" S TIUX="""""
^XMB(3.9,151,2,345,0)="""RTN"",""TIUPS209"",54,0)"
^XMB(3.9,151,2,346,0)=" F TIUY=""UNUSED"",""USED"" F  S TIUX=$O(@TMP@(""RPT"",TIUY,TIUX)) Q:TIUX=""""  D"
^XMB(3.9,151,2,347,0)="""RTN"",""TIUPS209"",55,0)"
^XMB(3.9,151,2,348,0)=" . N DATA,DISPLAY,STATUS,TITLE"
^XMB(3.9,151,2,349,0)="""RTN"",""TIUPS209"",56,0)"
^XMB(3.9,151,2,350,0)=" . S DATA=@TMP@(""RPT"",TIUY,TIUX)"
^XMB(3.9,151,2,351,0)="""RTN"",""TIUPS209"",57,0)"
^XMB(3.9,151,2,352,0)=" . I TIUY=""UNUSED"",$P(DATA,U,5)=13 Q  ; don't print unused/inactive titles"
^XMB(3.9,151,2,353,0)="""RTN"",""TIUPS209"",58,0)"
^XMB(3.9,151,2,354,0)=" . S STATUS=$S($P(DATA,U,5)=11:"""",$P(DATA,U,5)=13:"" [Inactive]"",1:"" [unknown]"")"
^XMB(3.9,151,2,355,0)="""RTN"",""TIUPS209"",59,0)"
^XMB(3.9,151,2,356,0)=" . S TITLE=TIUX_STATUS,TITLE=$$WRAP^TIULS(TITLE,38)"
^XMB(3.9,151,2,357,0)="""RTN"",""TIUPS209"",60,0)"
^XMB(3.9,151,2,358,0)=" . S DISPLAY=$$SETSTR^VALM1($P(TITLE,""|""),"""",1,38)"
^XMB(3.9,151,2,359,0)="""RTN"",""TIUPS209"",61,0)"
^XMB(3.9,151,2,360,0)=" . S DISPLAY=$$SETSTR^VALM1($$SPACER(+DATA,5,1),DISPLAY,40,5)"
^XMB(3.9,151,2,361,0)="""RTN"",""TIUPS209"",62,0)"
^XMB(3.9,151,2,362,0)=" . S DISPLAY=$$SETSTR^VALM1($$FMTE^XLFDT($P(DATA,U,2)),DISPLAY,47,12)"
^XMB(3.9,151,2,363,0)="""RTN"",""TIUPS209"",63,0)"
^XMB(3.9,151,2,364,0)=" . S DISPLAY=$$SETSTR^VALM1($S($P(DATA,U,3)=""N/A"":""N/A"",1:$$GET1^DIQ(200,+$P(DATA,U,3),.01)),DISPLAY,61,18)"
^XMB(3.9,151,2,365,0)="""RTN"",""TIUPS209"",64,0)"
^XMB(3.9,151,2,366,0)=" . W !,DISPLAY"
^XMB(3.9,151,2,367,0)="""RTN"",""TIUPS209"",65,0)"
^XMB(3.9,151,2,368,0)=" . I $L(TITLE,""|"")>1 F DATA=2:1:$L(TITLE,""|"") W !,?2,$P(TITLE,""|"",DATA)"
^XMB(3.9,151,2,369,0)="""RTN"",""TIUPS209"",66,0)"
^XMB(3.9,151,2,370,0)=" I +$D(@TMP@(""B.1"")) D"
^XMB(3.9,151,2,371,0)="""RTN"",""TIUPS209"",67,0)"
^XMB(3.9,151,2,372,0)=" . W !!,""The following IENs from File #8925.1 have an invalid #.01 Field."",!"
^XMB(3.9,151,2,373,0)="""RTN"",""TIUPS209"",68,0)"
^XMB(3.9,151,2,374,0)=" . S TIUDA=0 F  S TIUDA=$O(@TMP@(""B.1"",TIUDA)) Q:'+TIUDA  W !,TIUDA"
^XMB(3.9,151,2,375,0)="""RTN"",""TIUPS209"",69,0)"
^XMB(3.9,151,2,376,0)=" I +$D(@TMP@(""WRT"")) D"
^XMB(3.9,151,2,377,0)="""RTN"",""TIUPS209"",70,0)"
^XMB(3.9,151,2,378,0)=" . W !!,""The following IENs from File #8925.1 have an incorrect #.04 Field."",!"
^XMB(3.9,151,2,379,0)="""RTN"",""TIUPS209"",71,0)"
^XMB(3.9,151,2,380,0)=" . S TIUDA=0 F  S TIUDA=$O(@TMP@(""WRT"",TIUDA)) Q:'+TIUDA  D"
^XMB(3.9,151,2,381,0)="""RTN"",""TIUPS209"",72,0)"
^XMB(3.9,151,2,382,0)=" . . N DATA,TITLE S TITLE=$$GET1^DIQ(8925.1,TIUDA,.01),TITLE=$$WRAP^TIULS(TITLE,50)"
^XMB(3.9,151,2,383,0)="""RTN"",""TIUPS209"",73,0)"
^XMB(3.9,151,2,384,0)=" . . W !,$$SPACER(TIUDA,12)_$P(TITLE,""|"")_"" [""_$$GET1^DIQ(8925.1,TIUDA,.04)_""]"""
^XMB(3.9,151,2,385,0)="""RTN"",""TIUPS209"",74,0)"
^XMB(3.9,151,2,386,0)=" . . I $L(TITLE,""|"")>1 F DATA=2:1:$L(TITLE,""|"") W !,?14,$P(TITLE,""|"",DATA)"
^XMB(3.9,151,2,387,0)="""RTN"",""TIUPS209"",75,0)"
^XMB(3.9,151,2,388,0)=" I +$D(@TMP@(""UNK"")) D"
^XMB(3.9,151,2,389,0)="""RTN"",""TIUPS209"",76,0)"
^XMB(3.9,151,2,390,0)=" . W !!,""The following DOCUMENT IENs have an incorrect (null or zero) #.01 Field."",!"
^XMB(3.9,151,2,391,0)="""RTN"",""TIUPS209"",77,0)"
^XMB(3.9,151,2,392,0)=" . S TIUDA=0 F  S TIUDA=$O(@TMP@(""UNK"",TIUDA)) Q:'+TIUDA  W !,$$SPACER(TIUDA,12) ; I +@TMP@(""UNK"",TIUDA) W $$GET1^DIQ(8925.1,@TMP@(""UNK"",TIUDA),.01)"
^XMB(3.9,151,2,393,0)="""RTN"",""TIUPS209"",78,0)"
^XMB(3.9,151,2,394,0)=" K @TMP"
^XMB(3.9,151,2,395,0)="""RTN"",""TIUPS209"",79,0)"
^XMB(3.9,151,2,396,0)=" Q"
^XMB(3.9,151,2,397,0)="""RTN"",""TIUPS209"",80,0)"
^XMB(3.9,151,2,398,0)="RPT ;"
^XMB(3.9,151,2,399,0)="""RTN"",""TIUPS209"",81,0)"
^XMB(3.9,151,2,400,0)=" ;;""Elapsed Time:    ""_(TOTTIME\1)_"" minute(s) ""_($FN((TOTTIME#1)*60,""-"",0))_"" second(s)"""
^XMB(3.9,151,2,401,0)="""RTN"",""TIUPS209"",82,0)"
^XMB(3.9,151,2,402,0)=" ;;"""""
^XMB(3.9,151,2,403,0)="""RTN"",""TIUPS209"",83,0)"
^XMB(3.9,151,2,404,0)=" ;;""                 # of Used Titles  : ""_$$SPACER(@CNT@(""T#U8925.1""),10,1)"
^XMB(3.9,151,2,405,0)="""RTN"",""TIUPS209"",84,0)"
^XMB(3.9,151,2,406,0)=" ;;""               # of Unused Titles  : ""_$$SPACER(@CNT@(""T#UN8925.1""),10,1)"
^XMB(3.9,151,2,407,0)="""RTN"",""TIUPS209"",85,0)"
^XMB(3.9,151,2,408,0)=" ;;""              # of Invalid Titles  : ""_$$SPACER(@CNT@(""T#ERR8925.1""),10,1)_$S(+@CNT@(""T#ERR8925.1""):"" (See End of Report)"",1:"""")"
^XMB(3.9,151,2,409,0)="""RTN"",""TIUPS209"",86,0)"
^XMB(3.9,151,2,410,0)=" ;;""                                     ----------"""
^XMB(3.9,151,2,411,0)="""RTN"",""TIUPS209"",87,0)"
^XMB(3.9,151,2,412,0)=" ;;""                # of Total Titles  : ""_$$SPACER((@CNT@(""T#8925.1"")+@CNT@(""T#ADD8925.1"")),10,1)"
^XMB(3.9,151,2,413,0)="""RTN"",""TIUPS209"",88,0)"
^XMB(3.9,151,2,414,0)=" ;;"""""
^XMB(3.9,151,2,415,0)="""RTN"",""TIUPS209"",89,0)"
^XMB(3.9,151,2,416,0)=" ;;""                        # of Docs  : ""_$$SPACER(@CNT@(""T#GDOCS""),10,1)"
^XMB(3.9,151,2,417,0)="""RTN"",""TIUPS209"",90,0)"
^XMB(3.9,151,2,418,0)=" ;;""    # of Docs Incorrect .01 Field  : ""_$$SPACER(@CNT@(""T#WT8925.1""),10,1)_$S(+@CNT@(""T#WT8925.1""):"" (See End of Report)"",1:"""")"
^XMB(3.9,151,2,419,0)="""RTN"",""TIUPS209"",91,0)"
^XMB(3.9,151,2,420,0)=" ;;""    # of Docs Zero/Null .01 Field  : ""_$$SPACER(@CNT@(""T#M0NODE""),10,1)_$S(+@CNT@(""T#M0NODE""):"" (See End of Report)"",1:"""")"
^XMB(3.9,151,2,421,0)="""RTN"",""TIUPS209"",92,0)"
^XMB(3.9,151,2,422,0)=" ;;""                                     ----------"""
^XMB(3.9,151,2,423,0)="""RTN"",""TIUPS209"",93,0)"
^XMB(3.9,151,2,424,0)=" ;;""         # of Total Docs Searched  : ""_$$SPACER(@CNT@(""T#8925""),10,1)"
^XMB(3.9,151,2,425,0)="""RTN"",""TIUPS209"",94,0)"
^XMB(3.9,151,2,426,0)=" ;;"""""
^XMB(3.9,151,2,427,0)="""RTN"",""TIUPS209"",95,0)"
^XMB(3.9,151,2,428,0)=" ;;""       Current User:  ""_($$GET1^DIQ(200,+$G(DUZ),.01))"
^XMB(3.9,151,2,429,0)="""RTN"",""TIUPS209"",96,0)"
^XMB(3.9,151,2,430,0)=" ;;""       Current Date:  ""_($$HTE^XLFDT($H))"
^XMB(3.9,151,2,431,0)="""RTN"",""TIUPS209"",97,0)"
^XMB(3.9,151,2,432,0)=" ;;""Date range searched:  ""_($$FMTE^XLFDT($P($$FMADD^XLFDT($$NOW^XLFDT,-365),"".""),""D""))_"" - ""_($$FMTE^XLFDT(ENDDT,""D""))"
^XMB(3.9,151,2,433,0)="""RTN"",""TIUPS209"",98,0)"
^XMB(3.9,151,2,434,0)=" ;;"""""
^XMB(3.9,151,2,435,0)="""RTN"",""TIUPS209"",99,0)"
^XMB(3.9,151,2,436,0)=" ;;""                                        # of"""
^XMB(3.9,151,2,437,0)="""RTN"",""TIUPS209"",100,0)"
^XMB(3.9,151,2,438,0)=" ;;""Document Title                          Docs  Last DT Used  Author/Dictator"""
^XMB(3.9,151,2,439,0)="""RTN"",""TIUPS209"",101,0)"
^XMB(3.9,151,2,440,0)=" ;;""--------------                          ----  ------------  ---------------"""
^XMB(3.9,151,2,441,0)="""RTN"",""TIUPS209"",102,0)"
^XMB(3.9,151,2,442,0)=" ;;EOM"
^XMB(3.9,151,2,443,0)="""RTN"",""TIUPS209"",103,0)"
^XMB(3.9,151,2,444,0)=" Q"
^XMB(3.9,151,2,445,0)="""RTN"",""TIUPS209"",104,0)"
^XMB(3.9,151,2,446,0)="ASKUSER(ANS,DIR,TIUQUIT) ; ask the user if they want to update titles now"
^XMB(3.9,151,2,447,0)="""RTN"",""TIUPS209"",105,0)"
^XMB(3.9,151,2,448,0)=" I $G(ANS(""EXIT""))=""YES""!($G(ANS(""INACT""))=""NO"") Q"
^XMB(3.9,151,2,449,0)="""RTN"",""TIUPS209"",106,0)"
^XMB(3.9,151,2,450,0)=" N DIRUT,DTOUT,DUOUT,POP,X,Y"
^XMB(3.9,151,2,451,0)="""RTN"",""TIUPS209"",107,0)"
^XMB(3.9,151,2,452,0)=" S DIR(0)=""Y"""
^XMB(3.9,151,2,453,0)="""RTN"",""TIUPS209"",108,0)"
^XMB(3.9,151,2,454,0)=" S DIR(""A"")=DIR,DIR(""B"")=""NO"""
^XMB(3.9,151,2,455,0)="""RTN"",""TIUPS209"",109,0)"
^XMB(3.9,151,2,456,0)=" S DIR(""?"",1)=""Entering 'YES' will inactivate all titles unused in the past year;"""
^XMB(3.9,151,2,457,0)="""RTN"",""TIUPS209"",110,0)"
^XMB(3.9,151,2,458,0)=" S DIR(""?"",2)=""their STATUS will be changed to INACTIVE."",DIR(""?"",3)="""""
^XMB(3.9,151,2,459,0)="""RTN"",""TIUPS209"",111,0)"
^XMB(3.9,151,2,460,0)=" S DIR(""?"")=""Entering 'NO' will create the report without making any changes."""
^XMB(3.9,151,2,461,0)="""RTN"",""TIUPS209"",112,0)"
^XMB(3.9,151,2,462,0)=" D ^DIR I $D(DUOUT)!($D(DTOUT)) S ANS(""EXIT"")=""YES"" Q"
^XMB(3.9,151,2,463,0)="""RTN"",""TIUPS209"",113,0)"
^XMB(3.9,151,2,464,0)=" S ANS(""INACT"")=Y(0) Q:+$G(TIUQUIT)"
^XMB(3.9,151,2,465,0)="""RTN"",""TIUPS209"",114,0)"
^XMB(3.9,151,2,466,0)=" I ANS(""INACT"")=""YES"" D"
^XMB(3.9,151,2,467,0)="""RTN"",""TIUPS209"",115,0)"
^XMB(3.9,151,2,468,0)=" . W !!,""All active titles that have not been used in the previous 365 days"""
^XMB(3.9,151,2,469,0)="""RTN"",""TIUPS209"",116,0)"
^XMB(3.9,151,2,470,0)=" . W !,""will be set to INACTIVE."",!"
^XMB(3.9,151,2,471,0)="""RTN"",""TIUPS209"",117,0)"
^XMB(3.9,151,2,472,0)=" . W !,""You may select individual DOCUMENT TITLES that will NOT be set"""
^XMB(3.9,151,2,473,0)="""RTN"",""TIUPS209"",118,0)"
^XMB(3.9,151,2,474,0)=" . W !,""to INACTIVE by this cleanup."",!"
^XMB(3.9,151,2,475,0)="""RTN"",""TIUPS209"",119,0)"
^XMB(3.9,151,2,476,0)=" . D ASKUSER(.ANS,""Are you sure you want to change their status to INACTIVE"",1)"
^XMB(3.9,151,2,477,0)="""RTN"",""TIUPS209"",120,0)"
^XMB(3.9,151,2,478,0)=" . I ANS(""INACT"")=""YES"" D OMIT"
^XMB(3.9,151,2,479,0)="""RTN"",""TIUPS209"",121,0)"
^XMB(3.9,151,2,480,0)=" Q"
^XMB(3.9,151,2,481,0)="""RTN"",""TIUPS209"",122,0)"
^XMB(3.9,151,2,482,0)="GETLAST(TIUDA) ;"
^XMB(3.9,151,2,483,0)="""RTN"",""TIUPS209"",123,0)"
^XMB(3.9,151,2,484,0)=" N IEN,GBL,ST,TDT,TEMP,TIUY"
^XMB(3.9,151,2,485,0)="""RTN"",""TIUPS209"",124,0)"
^XMB(3.9,151,2,486,0)=" S GBL=$NA(^TIU(8925,""ALL"",""ANY"",TIUDA))"
^XMB(3.9,151,2,487,0)="""RTN"",""TIUPS209"",125,0)"
^XMB(3.9,151,2,488,0)=" S TIUY=""0^N/A^N/A""_U_TIUDA_U_$P($G(^TIU(8925.1,TIUDA,0)),U,7)"
^XMB(3.9,151,2,489,0)="""RTN"",""TIUPS209"",126,0)"
^XMB(3.9,151,2,490,0)=" S ST="""" F  S ST=$O(@GBL@(ST)) Q:'ST  S TDT="""",TDT=$O(@GBL@(+ST,TDT)),IEN="""",IEN=$O(@GBL@(+ST,+TDT,IEN)) S TEMP(TDT)=IEN"
^XMB(3.9,151,2,491,0)="""RTN"",""TIUPS209"",127,0)"
^XMB(3.9,151,2,492,0)=" S TDT="""",TDT=$O(TEMP(TDT)) I +$G(TEMP(+TDT)) S IEN=+TEMP(TDT) D"
^XMB(3.9,151,2,493,0)="""RTN"",""TIUPS209"",128,0)"
^XMB(3.9,151,2,494,0)=" . N TIUD0,TIUD12 S TIUD0=$G(^TIU(8925,IEN,0)),TIUD12=$G(^TIU(8925,IEN,12))"
^XMB(3.9,151,2,495,0)="""RTN"",""TIUPS209"",129,0)"
^XMB(3.9,151,2,496,0)=" . I '+TIUD0,'$D(@TMP@(""UNK"",+IEN)) S @TMP@(""UNK"",+IEN)="""",@CNT@(""T#M0NODE"")=@CNT@(""T#M0NODE"")+1,@CNT@(""T#8925"")=@CNT@(""T#8925"")+1"
^XMB(3.9,151,2,497,0)="""RTN"",""TIUPS209"",130,0)"
^XMB(3.9,151,2,498,0)=" . S $P(TIUY,U,2)=$P(+TIUD12,"".""),$P(TIUY,U,3)=$P(TIUD12,U,2)"
^XMB(3.9,151,2,499,0)="""RTN"",""TIUPS209"",131,0)"
^XMB(3.9,151,2,500,0)=" Q TIUY"
^XMB(3.9,151,2,501,0)="""RTN"",""TIUPS209"",132,0)"
^XMB(3.9,151,2,502,0)="OMIT ;"
^XMB(3.9,151,2,503,0)="""RTN"",""TIUPS209"",133,0)"
^XMB(3.9,151,2,504,0)=" N TIUCONT,TIUQUIT"
^XMB(3.9,151,2,505,0)="""RTN"",""TIUPS209"",134,0)"
^XMB(3.9,151,2,506,0)=" F  D  Q:$G(TIUQUIT)=1!($G(TIUCONT)=1)"
^XMB(3.9,151,2,507,0)="""RTN"",""TIUPS209"",135,0)"
^XMB(3.9,151,2,508,0)=" . N DIC,DIR,POP,TIUCNT,X,Y"
^XMB(3.9,151,2,509,0)="""RTN"",""TIUPS209"",136,0)"
^XMB(3.9,151,2,510,0)=" . W !!,""Enter the DOCUMENT TITLE(S) that will NOT be INACTIVATED"",!"
^XMB(3.9,151,2,511,0)="""RTN"",""TIUPS209"",137,0)"
^XMB(3.9,151,2,512,0)=" . W ""during the cleanup process."",!!"
^XMB(3.9,151,2,513,0)="""RTN"",""TIUPS209"",138,0)"
^XMB(3.9,151,2,514,0)=" . W ""Enter RETURN or '^' to finish selections."",!"
^XMB(3.9,151,2,515,0)="""RTN"",""TIUPS209"",139,0)"
^XMB(3.9,151,2,516,0)=" . S TIUCNT=0,DIC=""^TIU(8925.1,"",DIC(""S"")=""I $P(^(0),U,4)=""""DOC"""""""
^XMB(3.9,151,2,517,0)="""RTN"",""TIUPS209"",140,0)"
^XMB(3.9,151,2,518,0)=" . S DIC(0)=""AEMQ"",DIC(""A"")=""Enter DOCUMENT TITLE: """
^XMB(3.9,151,2,519,0)="""RTN"",""TIUPS209"",141,0)"
^XMB(3.9,151,2,520,0)=" . F  D ^DIC Q:Y=-1  D  Q:$G(TIUQUIT)=1"
^XMB(3.9,151,2,521,0)="""RTN"",""TIUPS209"",142,0)"
^XMB(3.9,151,2,522,0)=" . . S TIUCNT=TIUCNT+1,TIUOMIT(+Y)="""" S:TIUCNT=1 DIC(""A"")=""                 and  """
^XMB(3.9,151,2,523,0)="""RTN"",""TIUPS209"",143,0)"
^XMB(3.9,151,2,524,0)=" . Q:$G(TIUQUIT)=1"
^XMB(3.9,151,2,525,0)="""RTN"",""TIUPS209"",144,0)"
^XMB(3.9,151,2,526,0)=" . I TIUCNT=0 W !!,""No selections made."",! S DIR(""A"")=""Enter RETURN to continue or '^' to exit"",DIR(0)=""E"" D ^DIR S TIUQUIT=1 Q"
^XMB(3.9,151,2,527,0)="""RTN"",""TIUPS209"",145,0)"
^XMB(3.9,151,2,528,0)=" . W !!,$S(TIUCNT>1:""The following DOCUMENT TITLES will NOT be INACTIVATED: "",1:""The following DOCUMENT TITLE will NOT be INACTIVATED: ""),!!"
^XMB(3.9,151,2,529,0)="""RTN"",""TIUPS209"",146,0)"
^XMB(3.9,151,2,530,0)=" . S X="""" F  S X=$O(TIUOMIT(X)) Q:X=""""  W ?5,$$GET1^DIQ(8925.1,X_"","",.01),!"
^XMB(3.9,151,2,531,0)="""RTN"",""TIUPS209"",147,0)"
^XMB(3.9,151,2,532,0)=" . S DIR(0)=""Y"",DIR(""A"")=""Is this correct"",DIR(""B"")=""YES"""
^XMB(3.9,151,2,533,0)="""RTN"",""TIUPS209"",148,0)"
^XMB(3.9,151,2,534,0)=" . D ^DIR I +Y'=1 W !! K TIUOMIT S:Y=U TIUQUIT=1 Q"
^XMB(3.9,151,2,535,0)="""RTN"",""TIUPS209"",149,0)"
^XMB(3.9,151,2,536,0)=" . S TIUCONT=1"
^XMB(3.9,151,2,537,0)="""RTN"",""TIUPS209"",150,0)"
^XMB(3.9,151,2,538,0)=" Q"
^XMB(3.9,151,2,539,0)="""RTN"",""TIUPS209"",151,0)"
^XMB(3.9,151,2,540,0)="SPACER(TEXT,LENGTH,REV) ;"
^XMB(3.9,151,2,541,0)="""RTN"",""TIUPS209"",152,0)"
^XMB(3.9,151,2,542,0)=" N SPACER"
^XMB(3.9,151,2,543,0)="""RTN"",""TIUPS209"",153,0)"
^XMB(3.9,151,2,544,0)=" S SPACER="""""
^XMB(3.9,151,2,545,0)="""RTN"",""TIUPS209"",154,0)"
^XMB(3.9,151,2,546,0)=" S $P(SPACER,"" "",(LENGTH-$L(TEXT)))="" """
^XMB(3.9,151,2,547,0)="""RTN"",""TIUPS209"",155,0)"
^XMB(3.9,151,2,548,0)=" S:'$D(REV) TEXT=TEXT_SPACER"
^XMB(3.9,151,2,549,0)="""RTN"",""TIUPS209"",156,0)"
^XMB(3.9,151,2,550,0)=" S:$D(REV) TEXT=SPACER_TEXT"
^XMB(3.9,151,2,551,0)="""RTN"",""TIUPS209"",157,0)"
^XMB(3.9,151,2,552,0)=" Q TEXT"
^XMB(3.9,151,2,553,0)="""RTN"",""TIUPS209"",158,0)"
^XMB(3.9,151,2,554,0)="UPDATE ; updates status field of TIU Document Title to INACTIVE"
^XMB(3.9,151,2,555,0)="""RTN"",""TIUPS209"",159,0)"
^XMB(3.9,151,2,556,0)=" N TIUDA,TIUMSG,TIUUPDT"
^XMB(3.9,151,2,557,0)="""RTN"",""TIUPS209"",160,0)"
^XMB(3.9,151,2,558,0)=" S TIUDA=0 F  S TIUDA=$O(@TMP@(""B"",TIUDA)) Q:'+TIUDA  I '+@TMP@(""B"",TIUDA),'$D(TIUOMIT(TIUDA)) S TIUUPDT(8925.1,TIUDA_"","",.07)=13 D FILE^DIE("""",""TIUUPDT"",""TIUMSG"")"
^XMB(3.9,151,2,559,0)="""RTN"",""TIUPS209"",161,0)"
^XMB(3.9,151,2,560,0)=" Q"
^XMB(3.9,151,2,561,0)="""VER"")"
^XMB(3.9,151,2,562,0)="8.0^22.0"
^XMB(3.9,151,2,563,0)="""BLD"",6286,6)"
^XMB(3.9,151,2,564,0)="^199"
^XMB(3.9,151,2,565,0)="$END KID TIU*1.0*218"
^XMB(3.9,151,6,0)="^3.911A^2^2"
^XMB(3.9,151,6,1,0)="POSTMASTER"
^XMB(3.9,151,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,151,6,"B","POSTMASTER",1)=""
^XMB(3.9,151,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,152,0)="TIU-1_SEQ-200_PAT-204.KID^.5^3061008.015743^^^^K"
^XMB(3.9,152,.6)="3061008"
^XMB(3.9,152,1,0)="^3.91A^2^2"
^XMB(3.9,152,1,1,0)=".5^0^3061008.015743^^^^^^^3061008.015743"
^XMB(3.9,152,1,2,0)="1^0^3061008.022835^^^^^^^3061008.022835"
^XMB(3.9,152,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,152,1,"C",.5,1)=""
^XMB(3.9,152,1,"C",1,2)=""
^XMB(3.9,152,2,0)="^^921^921^3061008"
^XMB(3.9,152,2,1,0)="$TXT Released TIU*1*204 SEQ #200"
^XMB(3.9,152,2,2,0)="Extracted from mail message"
^XMB(3.9,152,2,3,0)="$END TXT"
^XMB(3.9,152,2,4,0)="$KID TIU*1.0*204"
^XMB(3.9,152,2,5,0)="**INSTALL NAME**"
^XMB(3.9,152,2,6,0)="TIU*1.0*204"
^XMB(3.9,152,2,7,0)="""BLD"",6601,0)"
^XMB(3.9,152,2,8,0)="TIU*1.0*204^TEXT INTEGRATION UTILITIES^0^3060208^y"
^XMB(3.9,152,2,9,0)="""BLD"",6601,1,0)"
^XMB(3.9,152,2,10,0)="^^3^3^3060206^"
^XMB(3.9,152,2,11,0)="""BLD"",6601,1,1,0)"
^XMB(3.9,152,2,12,0)="UNDEFINED ERROR IN TIUPUTS WHEN THERE IS NO DATE/TIME OUT OF OR.  TIU "
^XMB(3.9,152,2,13,0)="""BLD"",6601,1,2,0)"
^XMB(3.9,152,2,14,0)="VITALS OBJECTS (WEIGHT, HEIGHT AND TEMP) NOT WORKING PROPERLY WHEN "
^XMB(3.9,152,2,15,0)="""BLD"",6601,1,3,0)"
^XMB(3.9,152,2,16,0)="RESULTS ARE REFUSED, UNAVAILABLE OR PASS."
^XMB(3.9,152,2,17,0)="""BLD"",6601,4,0)"
^XMB(3.9,152,2,18,0)="^9.64PA^^"
^XMB(3.9,152,2,19,0)="""BLD"",6601,""KRN"",0)"
^XMB(3.9,152,2,20,0)="^9.67PA^8989.52^19"
^XMB(3.9,152,2,21,0)="""BLD"",6601,""KRN"",.4,0)"
^XMB(3.9,152,2,22,0)=".4"
^XMB(3.9,152,2,23,0)="""BLD"",6601,""KRN"",.401,0)"
^XMB(3.9,152,2,24,0)=".401"
^XMB(3.9,152,2,25,0)="""BLD"",6601,""KRN"",.402,0)"
^XMB(3.9,152,2,26,0)=".402"
^XMB(3.9,152,2,27,0)="""BLD"",6601,""KRN"",.403,0)"
^XMB(3.9,152,2,28,0)=".403"
^XMB(3.9,152,2,29,0)="""BLD"",6601,""KRN"",.5,0)"
^XMB(3.9,152,2,30,0)=".5"
^XMB(3.9,152,2,31,0)="""BLD"",6601,""KRN"",.84,0)"
^XMB(3.9,152,2,32,0)=".84"
^XMB(3.9,152,2,33,0)="""BLD"",6601,""KRN"",3.6,0)"
^XMB(3.9,152,2,34,0)="3.6"
^XMB(3.9,152,2,35,0)="""BLD"",6601,""KRN"",3.8,0)"
^XMB(3.9,152,2,36,0)="3.8"
^XMB(3.9,152,2,37,0)="""BLD"",6601,""KRN"",9.2,0)"
^XMB(3.9,152,2,38,0)="9.2"
^XMB(3.9,152,2,39,0)="""BLD"",6601,""KRN"",9.8,0)"
^XMB(3.9,152,2,40,0)="9.8"
^XMB(3.9,152,2,41,0)="""BLD"",6601,""KRN"",9.8,""NM"",0)"
^XMB(3.9,152,2,42,0)="^9.68A^2^2"
^XMB(3.9,152,2,43,0)="""BLD"",6601,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,152,2,44,0)="TIULO^^0^B50991778"
^XMB(3.9,152,2,45,0)="""BLD"",6601,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,152,2,46,0)="TIUPUTS^^0^B35578522"
^XMB(3.9,152,2,47,0)="""BLD"",6601,""KRN"",9.8,""NM"",""B"",""TIULO"",1)"
^XMB(3.9,152,2,48,0)=" "
^XMB(3.9,152,2,49,0)="""BLD"",6601,""KRN"",9.8,""NM"",""B"",""TIUPUTS"",2)"
^XMB(3.9,152,2,50,0)=" "
^XMB(3.9,152,2,51,0)="""BLD"",6601,""KRN"",19,0)"
^XMB(3.9,152,2,52,0)="19"
^XMB(3.9,152,2,53,0)="""BLD"",6601,""KRN"",19.1,0)"
^XMB(3.9,152,2,54,0)="19.1"
^XMB(3.9,152,2,55,0)="""BLD"",6601,""KRN"",101,0)"
^XMB(3.9,152,2,56,0)="101"
^XMB(3.9,152,2,57,0)="""BLD"",6601,""KRN"",409.61,0)"
^XMB(3.9,152,2,58,0)="409.61"
^XMB(3.9,152,2,59,0)="""BLD"",6601,""KRN"",771,0)"
^XMB(3.9,152,2,60,0)="771"
^XMB(3.9,152,2,61,0)="""BLD"",6601,""KRN"",870,0)"
^XMB(3.9,152,2,62,0)="870"
^XMB(3.9,152,2,63,0)="""BLD"",6601,""KRN"",8989.51,0)"
^XMB(3.9,152,2,64,0)="8989.51"
^XMB(3.9,152,2,65,0)="""BLD"",6601,""KRN"",8989.52,0)"
^XMB(3.9,152,2,66,0)="8989.52"
^XMB(3.9,152,2,67,0)="""BLD"",6601,""KRN"",8994,0)"
^XMB(3.9,152,2,68,0)="8994"
^XMB(3.9,152,2,69,0)="""BLD"",6601,""KRN"",""B"",.4,.4)"
^XMB(3.9,152,2,70,0)=" "
^XMB(3.9,152,2,71,0)="""BLD"",6601,""KRN"",""B"",.401,.401)"
^XMB(3.9,152,2,72,0)=" "
^XMB(3.9,152,2,73,0)="""BLD"",6601,""KRN"",""B"",.402,.402)"
^XMB(3.9,152,2,74,0)=" "
^XMB(3.9,152,2,75,0)="""BLD"",6601,""KRN"",""B"",.403,.403)"
^XMB(3.9,152,2,76,0)=" "
^XMB(3.9,152,2,77,0)="""BLD"",6601,""KRN"",""B"",.5,.5)"
^XMB(3.9,152,2,78,0)=" "
^XMB(3.9,152,2,79,0)="""BLD"",6601,""KRN"",""B"",.84,.84)"
^XMB(3.9,152,2,80,0)=" "
^XMB(3.9,152,2,81,0)="""BLD"",6601,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,152,2,82,0)=" "
^XMB(3.9,152,2,83,0)="""BLD"",6601,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,152,2,84,0)=" "
^XMB(3.9,152,2,85,0)="""BLD"",6601,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,152,2,86,0)=" "
^XMB(3.9,152,2,87,0)="""BLD"",6601,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,152,2,88,0)=" "
^XMB(3.9,152,2,89,0)="""BLD"",6601,""KRN"",""B"",19,19)"
^XMB(3.9,152,2,90,0)=" "
^XMB(3.9,152,2,91,0)="""BLD"",6601,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,152,2,92,0)=" "
^XMB(3.9,152,2,93,0)="""BLD"",6601,""KRN"",""B"",101,101)"
^XMB(3.9,152,2,94,0)=" "
^XMB(3.9,152,2,95,0)="""BLD"",6601,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,152,2,96,0)=" "
^XMB(3.9,152,2,97,0)="""BLD"",6601,""KRN"",""B"",771,771)"
^XMB(3.9,152,2,98,0)=" "
^XMB(3.9,152,2,99,0)="""BLD"",6601,""KRN"",""B"",870,870)"
^XMB(3.9,152,2,100,0)=" "
^XMB(3.9,152,2,101,0)="""BLD"",6601,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,152,2,102,0)=" "
^XMB(3.9,152,2,103,0)="""BLD"",6601,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,152,2,104,0)=" "
^XMB(3.9,152,2,105,0)="""BLD"",6601,""KRN"",""B"",8994,8994)"
^XMB(3.9,152,2,106,0)=" "
^XMB(3.9,152,2,107,0)="""BLD"",6601,""QUES"",0)"
^XMB(3.9,152,2,108,0)="^9.62^^"
^XMB(3.9,152,2,109,0)="""BLD"",6601,""REQB"",0)"
^XMB(3.9,152,2,110,0)="^9.611^2^2"
^XMB(3.9,152,2,111,0)="""BLD"",6601,""REQB"",1,0)"
^XMB(3.9,152,2,112,0)="TIU*1.0*148^1"
^XMB(3.9,152,2,113,0)="""BLD"",6601,""REQB"",2,0)"
^XMB(3.9,152,2,114,0)="TIU*1.0*195^1"
^XMB(3.9,152,2,115,0)="""BLD"",6601,""REQB"",""B"",""TIU*1.0*148"",1)"
^XMB(3.9,152,2,116,0)=" "
^XMB(3.9,152,2,117,0)="""BLD"",6601,""REQB"",""B"",""TIU*1.0*195"",2)"
^XMB(3.9,152,2,118,0)=" "
^XMB(3.9,152,2,119,0)="""MBREQ"")"
^XMB(3.9,152,2,120,0)="0"
^XMB(3.9,152,2,121,0)="""PKG"",470,-1)"
^XMB(3.9,152,2,122,0)="1^1"
^XMB(3.9,152,2,123,0)="""PKG"",470,0)"
^XMB(3.9,152,2,124,0)="TEXT INTEGRATION UTILITIES^TIU^Text Integration Utilities "
^XMB(3.9,152,2,125,0)="""PKG"",470,20,0)"
^XMB(3.9,152,2,126,0)="^9.402P^^"
^XMB(3.9,152,2,127,0)="""PKG"",470,22,0)"
^XMB(3.9,152,2,128,0)="^9.49I^1^1"
^XMB(3.9,152,2,129,0)="""PKG"",470,22,1,0)"
^XMB(3.9,152,2,130,0)="1.0^3010801^3010806^66481"
^XMB(3.9,152,2,131,0)="""PKG"",470,22,1,""PAH"",1,0)"
^XMB(3.9,152,2,132,0)="204^3060208"
^XMB(3.9,152,2,133,0)="""PKG"",470,22,1,""PAH"",1,1,0)"
^XMB(3.9,152,2,134,0)="^^3^3^3060208"
^XMB(3.9,152,2,135,0)="""PKG"",470,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,152,2,136,0)="UNDEFINED ERROR IN TIUPUTS WHEN THERE IS NO DATE/TIME OUT OF OR.  TIU "
^XMB(3.9,152,2,137,0)="""PKG"",470,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,152,2,138,0)="VITALS OBJECTS (WEIGHT, HEIGHT AND TEMP) NOT WORKING PROPERLY WHEN "
^XMB(3.9,152,2,139,0)="""PKG"",470,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,152,2,140,0)="RESULTS ARE REFUSED, UNAVAILABLE OR PASS."
^XMB(3.9,152,2,141,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,152,2,142,0)="Y"
^XMB(3.9,152,2,143,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,152,2,144,0)="^D REP^XPDH"
^XMB(3.9,152,2,145,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,152,2,146,0)="Shall I write over your |FLAG| File"
^XMB(3.9,152,2,147,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,152,2,148,0)="YES"
^XMB(3.9,152,2,149,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,152,2,150,0)="D XPF1^XPDIQ"
^XMB(3.9,152,2,151,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,152,2,152,0)="Y"
^XMB(3.9,152,2,153,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,152,2,154,0)="^D DTA^XPDH"
^XMB(3.9,152,2,155,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,152,2,156,0)="Want my data |FLAG| yours"
^XMB(3.9,152,2,157,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,152,2,158,0)="YES"
^XMB(3.9,152,2,159,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,152,2,160,0)="D XPF2^XPDIQ"
^XMB(3.9,152,2,161,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,152,2,162,0)="YO"
^XMB(3.9,152,2,163,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,152,2,164,0)="^D INHIBIT^XPDH"
^XMB(3.9,152,2,165,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,152,2,166,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,152,2,167,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,152,2,168,0)="YES"
^XMB(3.9,152,2,169,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,152,2,170,0)="D XPI1^XPDIQ"
^XMB(3.9,152,2,171,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,152,2,172,0)="PO^VA(200,:EM"
^XMB(3.9,152,2,173,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,152,2,174,0)="^D MG^XPDH"
^XMB(3.9,152,2,175,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,152,2,176,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,152,2,177,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,152,2,178,0)=" "
^XMB(3.9,152,2,179,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,152,2,180,0)="D XPM1^XPDIQ"
^XMB(3.9,152,2,181,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,152,2,182,0)="Y"
^XMB(3.9,152,2,183,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,152,2,184,0)="^D MENU^XPDH"
^XMB(3.9,152,2,185,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,152,2,186,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,152,2,187,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,152,2,188,0)="YES"
^XMB(3.9,152,2,189,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,152,2,190,0)="D XPO1^XPDIQ"
^XMB(3.9,152,2,191,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,152,2,192,0)="Y"
^XMB(3.9,152,2,193,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,152,2,194,0)="^D OPT^XPDH"
^XMB(3.9,152,2,195,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,152,2,196,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,152,2,197,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,152,2,198,0)="YES"
^XMB(3.9,152,2,199,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,152,2,200,0)="D XPZ1^XPDIQ"
^XMB(3.9,152,2,201,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,152,2,202,0)="Y"
^XMB(3.9,152,2,203,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,152,2,204,0)="^D RTN^XPDH"
^XMB(3.9,152,2,205,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,152,2,206,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,152,2,207,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,152,2,208,0)="NO"
^XMB(3.9,152,2,209,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,152,2,210,0)="D XPZ2^XPDIQ"
^XMB(3.9,152,2,211,0)="""RTN"")"
^XMB(3.9,152,2,212,0)="2"
^XMB(3.9,152,2,213,0)="""RTN"",""TIULO"")"
^XMB(3.9,152,2,214,0)="0^1^B50991778^B49931371"
^XMB(3.9,152,2,215,0)="""RTN"",""TIULO"",1,0)"
^XMB(3.9,152,2,216,0)="TIULO ; SLC/JER - Embedded Objects ;11/29/02"
^XMB(3.9,152,2,217,0)="""RTN"",""TIULO"",2,0)"
^XMB(3.9,152,2,218,0)=" ;;1.0;TEXT INTEGRATION UTILITIES;**34,70,101,148,204**;Jun 20, 1997"
^XMB(3.9,152,2,219,0)="""RTN"",""TIULO"",3,0)"
^XMB(3.9,152,2,220,0)="DEM(DFN,VADM) ; Calls DEM^VADPT"
^XMB(3.9,152,2,221,0)="""RTN"",""TIULO"",4,0)"
^XMB(3.9,152,2,222,0)=" D DEM^VADPT"
^XMB(3.9,152,2,223,0)="""RTN"",""TIULO"",5,0)"
^XMB(3.9,152,2,224,0)=" Q"
^XMB(3.9,152,2,225,0)="""RTN"",""TIULO"",6,0)"
^XMB(3.9,152,2,226,0)="NAME(DFN) ; Patient NAME"
^XMB(3.9,152,2,227,0)="""RTN"",""TIULO"",7,0)"
^XMB(3.9,152,2,228,0)=" I '$D(VADM(1)) D DEM(DFN,.VADM)"
^XMB(3.9,152,2,229,0)="""RTN"",""TIULO"",8,0)"
^XMB(3.9,152,2,230,0)=" Q $S(VADM(1)]"""":VADM(1),1:""NAME UNKNOWN"")"
^XMB(3.9,152,2,231,0)="""RTN"",""TIULO"",9,0)"
^XMB(3.9,152,2,232,0)="SSN(DFN) ; Patient SSN"
^XMB(3.9,152,2,233,0)="""RTN"",""TIULO"",10,0)"
^XMB(3.9,152,2,234,0)=" I '$D(VADM(2)) D DEM(DFN,.VADM)"
^XMB(3.9,152,2,235,0)="""RTN"",""TIULO"",11,0)"
^XMB(3.9,152,2,236,0)=" Q $S($P(VADM(2),U,2)]"""":$P(VADM(2),U,2),1:""SSN UNKNOWN"")"
^XMB(3.9,152,2,237,0)="""RTN"",""TIULO"",12,0)"
^XMB(3.9,152,2,238,0)="AGE(DFN) ; Patient AGE"
^XMB(3.9,152,2,239,0)="""RTN"",""TIULO"",13,0)"
^XMB(3.9,152,2,240,0)=" I '$D(VADM(4)) D DEM(DFN,.VADM)"
^XMB(3.9,152,2,241,0)="""RTN"",""TIULO"",14,0)"
^XMB(3.9,152,2,242,0)=" Q $S(VADM(4)]"""":VADM(4),1:""AGE UNKNOWN"")"
^XMB(3.9,152,2,243,0)="""RTN"",""TIULO"",15,0)"
^XMB(3.9,152,2,244,0)="DOB(DFN) ; Patient DATE OF BIRTH"
^XMB(3.9,152,2,245,0)="""RTN"",""TIULO"",16,0)"
^XMB(3.9,152,2,246,0)=" I '$D(VADM(3)) D DEM(DFN,.VADM)"
^XMB(3.9,152,2,247,0)="""RTN"",""TIULO"",17,0)"
^XMB(3.9,152,2,248,0)=" Q $S($P(VADM(3),U,2)]"""":$P(VADM(3),U,2),1:""DOB UNKNOWN"")"
^XMB(3.9,152,2,249,0)="""RTN"",""TIULO"",18,0)"
^XMB(3.9,152,2,250,0)="DOD(DFN) ; Patient DATE OF DEATH"
^XMB(3.9,152,2,251,0)="""RTN"",""TIULO"",19,0)"
^XMB(3.9,152,2,252,0)=" I '$D(VADM(6)) D DEM(DFN,.VADM)"
^XMB(3.9,152,2,253,0)="""RTN"",""TIULO"",20,0)"
^XMB(3.9,152,2,254,0)=" Q $S($P(VADM(6),U,2)]"""":$P(VADM(6),U,2),1:""DATE OF DEATH UNKNOWN"")"
^XMB(3.9,152,2,255,0)="""RTN"",""TIULO"",21,0)"
^XMB(3.9,152,2,256,0)="SEX(DFN) ; Patient SEX"
^XMB(3.9,152,2,257,0)="""RTN"",""TIULO"",22,0)"
^XMB(3.9,152,2,258,0)=" I '$D(VADM(5)) D DEM(DFN,.VADM)"
^XMB(3.9,152,2,259,0)="""RTN"",""TIULO"",23,0)"
^XMB(3.9,152,2,260,0)=" Q $S($P(VADM(5),U,2)]"""":$P(VADM(5),U,2),1:""SEX UNKNOWN"")"
^XMB(3.9,152,2,261,0)="""RTN"",""TIULO"",24,0)"
^XMB(3.9,152,2,262,0)="RACE(DFN) ; Patient RACE TIU*148"
^XMB(3.9,152,2,263,0)="""RTN"",""TIULO"",25,0)"
^XMB(3.9,152,2,264,0)=" N TIUI"
^XMB(3.9,152,2,265,0)="""RTN"",""TIULO"",26,0)"
^XMB(3.9,152,2,266,0)=" I '$D(VADM(12)) D DEM(DFN,.VADM)"
^XMB(3.9,152,2,267,0)="""RTN"",""TIULO"",27,0)"
^XMB(3.9,152,2,268,0)=" I +$G(VADM(12))=1 S X=$P($G(VADM(12,1)),U,2)"
^XMB(3.9,152,2,269,0)="""RTN"",""TIULO"",28,0)"
^XMB(3.9,152,2,270,0)=" I +$G(VADM(12))>1 D"
^XMB(3.9,152,2,271,0)="""RTN"",""TIULO"",29,0)"
^XMB(3.9,152,2,272,0)=" . S X=$P($G(VADM(12,1)),U,2) F TIUI=2:1:VADM(12) D"
^XMB(3.9,152,2,273,0)="""RTN"",""TIULO"",30,0)"
^XMB(3.9,152,2,274,0)=" . . S X=X_"", ""_$P($G(VADM(12,TIUI)),U,2)"
^XMB(3.9,152,2,275,0)="""RTN"",""TIULO"",31,0)"
^XMB(3.9,152,2,276,0)=" I +$G(VADM(12))=0,$P(VADM(8),U,2)="""" S X=""RACE UNKNOWN"""
^XMB(3.9,152,2,277,0)="""RTN"",""TIULO"",32,0)"
^XMB(3.9,152,2,278,0)=" I +$G(VADM(12))=0,$P(VADM(8),U,2)]"""" S X=$P(VADM(8),U,2)"
^XMB(3.9,152,2,279,0)="""RTN"",""TIULO"",33,0)"
^XMB(3.9,152,2,280,0)=" Q X"
^XMB(3.9,152,2,281,0)="""RTN"",""TIULO"",34,0)"
^XMB(3.9,152,2,282,0)="ETHNIC(DFN) ; Patient ETHNICITY  TIU*148"
^XMB(3.9,152,2,283,0)="""RTN"",""TIULO"",35,0)"
^XMB(3.9,152,2,284,0)=" N TIUI"
^XMB(3.9,152,2,285,0)="""RTN"",""TIULO"",36,0)"
^XMB(3.9,152,2,286,0)=" I '$D(VADM(11,1)) D DEM(DFN,.VADM)"
^XMB(3.9,152,2,287,0)="""RTN"",""TIULO"",37,0)"
^XMB(3.9,152,2,288,0)=" I +$G(VADM(11))=0 S X=""ETHNICITY UNKNOWN"""
^XMB(3.9,152,2,289,0)="""RTN"",""TIULO"",38,0)"
^XMB(3.9,152,2,290,0)=" I +$G(VADM(11))=1 S X=$P($G(VADM(11,1)),U,2)"
^XMB(3.9,152,2,291,0)="""RTN"",""TIULO"",39,0)"
^XMB(3.9,152,2,292,0)=" I +$G(VADM(11))>1 D"
^XMB(3.9,152,2,293,0)="""RTN"",""TIULO"",40,0)"
^XMB(3.9,152,2,294,0)=" . S X=$P($G(VADM(11,1)),U,2) F TIUI=2:1:VADM(11) D"
^XMB(3.9,152,2,295,0)="""RTN"",""TIULO"",41,0)"
^XMB(3.9,152,2,296,0)=" . . S X=X_"", ""_$P($G(VADM(11,TIUI)),U,2)"
^XMB(3.9,152,2,297,0)="""RTN"",""TIULO"",42,0)"
^XMB(3.9,152,2,298,0)=" I +$G(VADM(11))=0 S X=""ETHNICITY UNKNOWN"""
^XMB(3.9,152,2,299,0)="""RTN"",""TIULO"",43,0)"
^XMB(3.9,152,2,300,0)=" Q X"
^XMB(3.9,152,2,301,0)="""RTN"",""TIULO"",44,0)"
^XMB(3.9,152,2,302,0)="HEIGHT(DFN) ; Gets most recent Height from VITALS"
^XMB(3.9,152,2,303,0)="""RTN"",""TIULO"",45,0)"
^XMB(3.9,152,2,304,0)=" Q $$DOVITALS(DFN,""HT"")"
^XMB(3.9,152,2,305,0)="""RTN"",""TIULO"",46,0)"
^XMB(3.9,152,2,306,0)="WEIGHT(DFN) ; Gets most recent Weight from VITALS"
^XMB(3.9,152,2,307,0)="""RTN"",""TIULO"",47,0)"
^XMB(3.9,152,2,308,0)=" Q $$DOVITALS(DFN,""WT"")"
^XMB(3.9,152,2,309,0)="""RTN"",""TIULO"",48,0)"
^XMB(3.9,152,2,310,0)="TEMP(DFN) ; Gets most recent Temperature from VITALS"
^XMB(3.9,152,2,311,0)="""RTN"",""TIULO"",49,0)"
^XMB(3.9,152,2,312,0)=" Q $$DOVITALS(DFN,""T"")"
^XMB(3.9,152,2,313,0)="""RTN"",""TIULO"",50,0)"
^XMB(3.9,152,2,314,0)="PULSE(DFN) ; Gets most recent Pulse from VITALS"
^XMB(3.9,152,2,315,0)="""RTN"",""TIULO"",51,0)"
^XMB(3.9,152,2,316,0)=" Q $$DOVITALS(DFN,""P"")"
^XMB(3.9,152,2,317,0)="""RTN"",""TIULO"",52,0)"
^XMB(3.9,152,2,318,0)="RESP(DFN) ; Gets most recent Respiration from VITALS"
^XMB(3.9,152,2,319,0)="""RTN"",""TIULO"",53,0)"
^XMB(3.9,152,2,320,0)=" Q $$DOVITALS(DFN,""R"")"
^XMB(3.9,152,2,321,0)="""RTN"",""TIULO"",54,0)"
^XMB(3.9,152,2,322,0)="BP(DFN) ; Gets most recent Blood Pressure from VITALS"
^XMB(3.9,152,2,323,0)="""RTN"",""TIULO"",55,0)"
^XMB(3.9,152,2,324,0)=" Q $$DOVITALS(DFN,""BP"")"
^XMB(3.9,152,2,325,0)="""RTN"",""TIULO"",56,0)"
^XMB(3.9,152,2,326,0)="PAIN(DFN) ; Gets most recent Pain score from VITALS"
^XMB(3.9,152,2,327,0)="""RTN"",""TIULO"",57,0)"
^XMB(3.9,152,2,328,0)=" Q $$DOVITALS(DFN,""PN"")"
^XMB(3.9,152,2,329,0)="""RTN"",""TIULO"",58,0)"
^XMB(3.9,152,2,330,0)="DOVITALS(DFN,TIUVITC) ; INTERNAL ROUTINE TO GET SPECIFIED VITALS (**34**)"
^XMB(3.9,152,2,331,0)="""RTN"",""TIULO"",59,0)"
^XMB(3.9,152,2,332,0)=" N TIUVIT,TIUVT,TIUVDT,TIUVDA,TIUY,VDT,TIUI,TIUCWRAP,TIUMAXW"
^XMB(3.9,152,2,333,0)="""RTN"",""TIULO"",60,0)"
^XMB(3.9,152,2,334,0)=" N TIUVCNT,TIUVCNT2,TIUVDONE,TIUVDATE,TIUY1,TIUVTEMP,CONV"
^XMB(3.9,152,2,335,0)="""RTN"",""TIULO"",61,0)"
^XMB(3.9,152,2,336,0)=" D VITALS(.TIUVIT,DFN,TIUVITC)"
^XMB(3.9,152,2,337,0)="""RTN"",""TIULO"",62,0)"
^XMB(3.9,152,2,338,0)=" S (TIUVDT,TIUVDONE,TIUVCNT)=0"
^XMB(3.9,152,2,339,0)="""RTN"",""TIULO"",63,0)"
^XMB(3.9,152,2,340,0)=" F  S TIUVDT=$O(TIUVIT(TIUVITC,TIUVDT)) Q:+TIUVDT'>0!TIUVDONE  D"
^XMB(3.9,152,2,341,0)="""RTN"",""TIULO"",64,0)"
^XMB(3.9,152,2,342,0)=" . S TIUVDA=0"
^XMB(3.9,152,2,343,0)="""RTN"",""TIULO"",65,0)"
^XMB(3.9,152,2,344,0)=" . F  S TIUVDA=$O(TIUVIT(TIUVITC,TIUVDT,TIUVDA)) Q:+TIUVDA'>0!TIUVDONE  D"
^XMB(3.9,152,2,345,0)="""RTN"",""TIULO"",66,0)"
^XMB(3.9,152,2,346,0)=" . . I $D(TIUVDATE),TIUVDATE'=TIUVDT S TIUVDONE=1"
^XMB(3.9,152,2,347,0)="""RTN"",""TIULO"",67,0)"
^XMB(3.9,152,2,348,0)=" . . E  D"
^XMB(3.9,152,2,349,0)="""RTN"",""TIULO"",68,0)"
^XMB(3.9,152,2,350,0)=" . . . S TIUVDATE=TIUVDT,TIUVCNT=TIUVCNT+1"
^XMB(3.9,152,2,351,0)="""RTN"",""TIULO"",69,0)"
^XMB(3.9,152,2,352,0)=" . . . S TIUVTEMP=$G(TIUVIT(TIUVITC,TIUVDT,TIUVDA))"
^XMB(3.9,152,2,353,0)="""RTN"",""TIULO"",70,0)"
^XMB(3.9,152,2,354,0)=" . . . S VDT=$$DATE^TIULS($P(TIUVTEMP,U,1),""MM/DD/CCYY HR:MIN"")"
^XMB(3.9,152,2,355,0)="""RTN"",""TIULO"",71,0)"
^XMB(3.9,152,2,356,0)=" . . . S TIUY=$P(TIUVTEMP,U,8)"
^XMB(3.9,152,2,357,0)="""RTN"",""TIULO"",72,0)"
^XMB(3.9,152,2,358,0)=" . . . I TIUVITC=""WT"" D"
^XMB(3.9,152,2,359,0)="""RTN"",""TIULO"",73,0)"
^XMB(3.9,152,2,360,0)=" . . . . Q:+TIUY'>0"
^XMB(3.9,152,2,361,0)="""RTN"",""TIULO"",74,0)"
^XMB(3.9,152,2,362,0)=" . . . . S CONV=$J((+TIUY/2.2),3,1)"
^XMB(3.9,152,2,363,0)="""RTN"",""TIULO"",75,0)"
^XMB(3.9,152,2,364,0)=" . . . . S TIUY=TIUY_"" lb [""_CONV_"" kg]"""
^XMB(3.9,152,2,365,0)="""RTN"",""TIULO"",76,0)"
^XMB(3.9,152,2,366,0)=" . . . I TIUVITC=""HT"" D"
^XMB(3.9,152,2,367,0)="""RTN"",""TIULO"",77,0)"
^XMB(3.9,152,2,368,0)=" . . . . Q:+TIUY'>0"
^XMB(3.9,152,2,369,0)="""RTN"",""TIULO"",78,0)"
^XMB(3.9,152,2,370,0)=" . . . . S CONV=$J((+TIUY*2.54),3,1)"
^XMB(3.9,152,2,371,0)="""RTN"",""TIULO"",79,0)"
^XMB(3.9,152,2,372,0)=" . . . . S TIUY=TIUY_"" in [""_CONV_"" cm]"""
^XMB(3.9,152,2,373,0)="""RTN"",""TIULO"",80,0)"
^XMB(3.9,152,2,374,0)=" . . . I TIUVITC=""T"" D"
^XMB(3.9,152,2,375,0)="""RTN"",""TIULO"",81,0)"
^XMB(3.9,152,2,376,0)=" . . . . Q:+TIUY'>0"
^XMB(3.9,152,2,377,0)="""RTN"",""TIULO"",82,0)"
^XMB(3.9,152,2,378,0)=" . . . . S CONV=+TIUY-32"
^XMB(3.9,152,2,379,0)="""RTN"",""TIULO"",83,0)"
^XMB(3.9,152,2,380,0)=" . . . . S CONV=$J((CONV*(5/9)),3,1)"
^XMB(3.9,152,2,381,0)="""RTN"",""TIULO"",84,0)"
^XMB(3.9,152,2,382,0)=" . . . . S TIUY=TIUY_"" F [""_CONV_"" C]"""
^XMB(3.9,152,2,383,0)="""RTN"",""TIULO"",85,0)"
^XMB(3.9,152,2,384,0)=" . . . S TIUY=TIUY_"" (""_VDT"
^XMB(3.9,152,2,385,0)="""RTN"",""TIULO"",86,0)"
^XMB(3.9,152,2,386,0)=" . . . S TIUCWRAP=$L(TIUY)+17"
^XMB(3.9,152,2,387,0)="""RTN"",""TIULO"",87,0)"
^XMB(3.9,152,2,388,0)=" . . . I TIUVCNT=1 S TIUY1=TIUY_"")"",TIUMAXW=59"
^XMB(3.9,152,2,389,0)="""RTN"",""TIULO"",88,0)"
^XMB(3.9,152,2,390,0)=" . . . E  S TIUY=""               ""_TIUY,TIUMAXW=74"
^XMB(3.9,152,2,391,0)="""RTN"",""TIULO"",89,0)"
^XMB(3.9,152,2,392,0)=" . . . S TIUVTEMP=$P(TIUVTEMP,U,17)"
^XMB(3.9,152,2,393,0)="""RTN"",""TIULO"",90,0)"
^XMB(3.9,152,2,394,0)=" . . . I $L(TIUVTEMP)>0  D"
^XMB(3.9,152,2,395,0)="""RTN"",""TIULO"",91,0)"
^XMB(3.9,152,2,396,0)=" . . . . S TIUVTEMP="", ""_TIUVTEMP"
^XMB(3.9,152,2,397,0)="""RTN"",""TIULO"",92,0)"
^XMB(3.9,152,2,398,0)=" . . . . F  S TIUI=$F(TIUVTEMP,"";"") Q:TIUI'>0  D"
^XMB(3.9,152,2,399,0)="""RTN"",""TIULO"",93,0)"
^XMB(3.9,152,2,400,0)=" . . . . . S TIUVTEMP=$E(TIUVTEMP,1,TIUI-2)_"", ""_$E(TIUVTEMP,TIUI,999)"
^XMB(3.9,152,2,401,0)="""RTN"",""TIULO"",94,0)"
^XMB(3.9,152,2,402,0)=" . . . S TIUY=TIUY_TIUVTEMP_"")"""
^XMB(3.9,152,2,403,0)="""RTN"",""TIULO"",95,0)"
^XMB(3.9,152,2,404,0)=" . . . I $L(TIUY)<TIUMAXW S TIUVITMP(TIUVCNT,0)=TIUY"
^XMB(3.9,152,2,405,0)="""RTN"",""TIULO"",96,0)"
^XMB(3.9,152,2,406,0)=" . . . E  D  ; Wrap the line if it's too long"
^XMB(3.9,152,2,407,0)="""RTN"",""TIULO"",97,0)"
^XMB(3.9,152,2,408,0)=" . . . . S TIUVCNT2=0,TIUVTEMP="""",$P(TIUVTEMP,"" "",TIUCWRAP)="" """
^XMB(3.9,152,2,409,0)="""RTN"",""TIULO"",98,0)"
^XMB(3.9,152,2,410,0)=" . . . . F  Q:$L(TIUY)'>0  D"
^XMB(3.9,152,2,411,0)="""RTN"",""TIULO"",99,0)"
^XMB(3.9,152,2,412,0)=" . . . . . F TIUI=TIUMAXW:-1:1  Q:$E(TIUY,TIUI,TIUI+1)="", """
^XMB(3.9,152,2,413,0)="""RTN"",""TIULO"",100,0)"
^XMB(3.9,152,2,414,0)=" . . . . . I TIUI>1 D"
^XMB(3.9,152,2,415,0)="""RTN"",""TIULO"",101,0)"
^XMB(3.9,152,2,416,0)=" . . . . . . S TIUVITMP(TIUVCNT+TIUVCNT2,0)=$E(TIUY,1,TIUI)"
^XMB(3.9,152,2,417,0)="""RTN"",""TIULO"",102,0)"
^XMB(3.9,152,2,418,0)=" . . . . . . S TIUVCNT2=TIUVCNT2+.01"
^XMB(3.9,152,2,419,0)="""RTN"",""TIULO"",103,0)"
^XMB(3.9,152,2,420,0)=" . . . . . . S TIUY=TIUVTEMP_$E(TIUY,TIUI+2,999)"
^XMB(3.9,152,2,421,0)="""RTN"",""TIULO"",104,0)"
^XMB(3.9,152,2,422,0)=" . . . . . E  D"
^XMB(3.9,152,2,423,0)="""RTN"",""TIULO"",105,0)"
^XMB(3.9,152,2,424,0)=" . . . . . . S TIUVITMP(TIUVCNT+TIUVCNT2,0)=TIUY"
^XMB(3.9,152,2,425,0)="""RTN"",""TIULO"",106,0)"
^XMB(3.9,152,2,426,0)=" . . . . . . S TIUY="""""
^XMB(3.9,152,2,427,0)="""RTN"",""TIULO"",107,0)"
^XMB(3.9,152,2,428,0)=" I TIUVCNT<2 D"
^XMB(3.9,152,2,429,0)="""RTN"",""TIULO"",108,0)"
^XMB(3.9,152,2,430,0)=" . S TIUY=$G(TIUY1)"
^XMB(3.9,152,2,431,0)="""RTN"",""TIULO"",109,0)"
^XMB(3.9,152,2,432,0)=" . K TIUVITMP"
^XMB(3.9,152,2,433,0)="""RTN"",""TIULO"",110,0)"
^XMB(3.9,152,2,434,0)=" E  S TIUY=""~@TIUVITMP"""
^XMB(3.9,152,2,435,0)="""RTN"",""TIULO"",111,0)"
^XMB(3.9,152,2,436,0)=" Q $G(TIUY)"
^XMB(3.9,152,2,437,0)="""RTN"",""TIULO"",112,0)"
^XMB(3.9,152,2,438,0)="VITALS(TIUY,DFN,GMRVSTR,TIUEDT,TIULDT,TIUOCC) ; Vital measurements"
^XMB(3.9,152,2,439,0)="""RTN"",""TIULO"",113,0)"
^XMB(3.9,152,2,440,0)=" N TIUVT,TIUVDT,TIUVDA K ^UTILITY($J,""GMRVD"")"
^XMB(3.9,152,2,441,0)="""RTN"",""TIULO"",114,0)"
^XMB(3.9,152,2,442,0)=" S GMRVSTR(0)=$G(TIUEDT)_U_$G(TIULDT)_U_$G(TIUOCC,1)_""^0"""
^XMB(3.9,152,2,443,0)="""RTN"",""TIULO"",115,0)"
^XMB(3.9,152,2,444,0)=" I $L($T(EN1^GMRVUT0)) D EN1^GMRVUT0"
^XMB(3.9,152,2,445,0)="""RTN"",""TIULO"",116,0)"
^XMB(3.9,152,2,446,0)=" I +$D(^UTILITY($J,""GMRVD"")) D"
^XMB(3.9,152,2,447,0)="""RTN"",""TIULO"",117,0)"
^XMB(3.9,152,2,448,0)=" . S TIUVT="""""
^XMB(3.9,152,2,449,0)="""RTN"",""TIULO"",118,0)"
^XMB(3.9,152,2,450,0)=" . F  S TIUVT=$O(^UTILITY($J,""GMRVD"",TIUVT)) Q:TIUVT']""""  D"
^XMB(3.9,152,2,451,0)="""RTN"",""TIULO"",119,0)"
^XMB(3.9,152,2,452,0)=" . . S TIUVDT=0"
^XMB(3.9,152,2,453,0)="""RTN"",""TIULO"",120,0)"
^XMB(3.9,152,2,454,0)=" . . F  S TIUVDT=$O(^UTILITY($J,""GMRVD"",TIUVT,TIUVDT)) Q:+TIUVDT'>0  D"
^XMB(3.9,152,2,455,0)="""RTN"",""TIULO"",121,0)"
^XMB(3.9,152,2,456,0)=" . . . S TIUVDA=0"
^XMB(3.9,152,2,457,0)="""RTN"",""TIULO"",122,0)"
^XMB(3.9,152,2,458,0)=" . . . F  S TIUVDA=$O(^UTILITY($J,""GMRVD"",TIUVT,TIUVDT,TIUVDA)) Q:+TIUVDA'>0  D"
^XMB(3.9,152,2,459,0)="""RTN"",""TIULO"",123,0)"
^XMB(3.9,152,2,460,0)=" . . . . S TIUY(TIUVT,TIUVDT,TIUVDA)=$G(^UTILITY($J,""GMRVD"",TIUVT,TIUVDT,TIUVDA))"
^XMB(3.9,152,2,461,0)="""RTN"",""TIULO"",124,0)"
^XMB(3.9,152,2,462,0)=" K ^UTILITY($J,""GMRVD"")"
^XMB(3.9,152,2,463,0)="""RTN"",""TIULO"",125,0)"
^XMB(3.9,152,2,464,0)=" Q"
^XMB(3.9,152,2,465,0)="""RTN"",""TIULO"",126,0)"
^XMB(3.9,152,2,466,0)="LIPIDS(TIUY,DFN,TIUEDT,TIULDT) ; Get LIPID profile"
^XMB(3.9,152,2,467,0)="""RTN"",""TIULO"",127,0)"
^XMB(3.9,152,2,468,0)=" N TIUTST,TIUI,TIURY,TIUDT,TIULDT"
^XMB(3.9,152,2,469,0)="""RTN"",""TIULO"",128,0)"
^XMB(3.9,152,2,470,0)=" S TIUTST=$O(^LAB(60,""B"",""LIPID PROFILE"",0))"
^XMB(3.9,152,2,471,0)="""RTN"",""TIULO"",129,0)"
^XMB(3.9,152,2,472,0)=" I '+$G(TIUTST) Q"
^XMB(3.9,152,2,473,0)="""RTN"",""TIULO"",130,0)"
^XMB(3.9,152,2,474,0)=" D TEST^LR7OR2(.TIUY,DFN,"""",$G(TIUEDT),$G(TIULDT),"""",TIUTST)"
^XMB(3.9,152,2,475,0)="""RTN"",""TIULO"",131,0)"
^XMB(3.9,152,2,476,0)=" I '$D(TIUY)!($G(TIUY(1))=""No Lab Data"") Q"
^XMB(3.9,152,2,477,0)="""RTN"",""TIULO"",132,0)"
^XMB(3.9,152,2,478,0)=" S TIUI=0 F  S TIUI=$O(@TIUY@(TIUI)) Q:+TIUI'>0  D"
^XMB(3.9,152,2,479,0)="""RTN"",""TIULO"",133,0)"
^XMB(3.9,152,2,480,0)=" . S TIUTST=$$MAPPER($P(@TIUY@(TIUI),U,17)),TIUDT=+@TIUY@(TIUI)"
^XMB(3.9,152,2,481,0)="""RTN"",""TIULO"",134,0)"
^XMB(3.9,152,2,482,0)=" . S:TIUDT'=+$G(TIULDT) TIURY(""BASELINE LIPID PROFILES"",TIUDT)=$$DATE^TIULS(TIUDT,""MM/DD/YY"")"
^XMB(3.9,152,2,483,0)="""RTN"",""TIULO"",135,0)"
^XMB(3.9,152,2,484,0)=" . S TIURY(TIUTST,TIUDT)=$P(@TIUY@(TIUI),U,4)"
^XMB(3.9,152,2,485,0)="""RTN"",""TIULO"",136,0)"
^XMB(3.9,152,2,486,0)=" F TIUI=""CHYLOMI"",""TURBID"",""VLDL"" K TIURY(TIUI)"
^XMB(3.9,152,2,487,0)="""RTN"",""TIULO"",137,0)"
^XMB(3.9,152,2,488,0)=" K @TIUY"
^XMB(3.9,152,2,489,0)="""RTN"",""TIULO"",138,0)"
^XMB(3.9,152,2,490,0)=" I $D(TIURY) M TIUY=TIURY"
^XMB(3.9,152,2,491,0)="""RTN"",""TIULO"",139,0)"
^XMB(3.9,152,2,492,0)=" Q"
^XMB(3.9,152,2,493,0)="""RTN"",""TIULO"",140,0)"
^XMB(3.9,152,2,494,0)="MAPPER(TIUX,TIUI) ; Remap test names"
^XMB(3.9,152,2,495,0)="""RTN"",""TIULO"",141,0)"
^XMB(3.9,152,2,496,0)=" N TIUNM,Y S TIUNM(""CHOL"",""TOTAL CHOLESTEROL"")="""""
^XMB(3.9,152,2,497,0)="""RTN"",""TIULO"",142,0)"
^XMB(3.9,152,2,498,0)=" S (TIUNM(""HDL"",""HDL CHOLESTEROL""),TIUNM(""LDL"",""LDL CHOLESTEROL""))="""""
^XMB(3.9,152,2,499,0)="""RTN"",""TIULO"",143,0)"
^XMB(3.9,152,2,500,0)=" S TIUNM(""TRIGLYC"",""TRIGLYCERIDES"")="""""
^XMB(3.9,152,2,501,0)="""RTN"",""TIULO"",144,0)"
^XMB(3.9,152,2,502,0)=" S Y=$O(TIUNM(TIUX,"""")) I Y']"""" S Y=TIUX"
^XMB(3.9,152,2,503,0)="""RTN"",""TIULO"",145,0)"
^XMB(3.9,152,2,504,0)=" Q Y"
^XMB(3.9,152,2,505,0)="""RTN"",""TIULO"",146,0)"
^XMB(3.9,152,2,506,0)="TSHT4(DFN,TIUEDT,TIULDT) ; Get TSH/T4"
^XMB(3.9,152,2,507,0)="""RTN"",""TIULO"",147,0)"
^XMB(3.9,152,2,508,0)=" N TIUY,TIUTSH,TIUT4 S TIUTSH=+$O(^LAB(60,""B"",""TSH"",0))"
^XMB(3.9,152,2,509,0)="""RTN"",""TIULO"",148,0)"
^XMB(3.9,152,2,510,0)=" S TIUT4=+$O(^LAB(60,""B"",""T-4"",0))"
^XMB(3.9,152,2,511,0)="""RTN"",""TIULO"",149,0)"
^XMB(3.9,152,2,512,0)=" I '+$G(TIUTSH)!'+$G(TIUT4) G TSHX"
^XMB(3.9,152,2,513,0)="""RTN"",""TIULO"",150,0)"
^XMB(3.9,152,2,514,0)=" D TEST^LR7OR2(.TIUY,DFN,"""",$G(TIUEDT),$G(TIULDT),"""",TIUTSH)"
^XMB(3.9,152,2,515,0)="""RTN"",""TIULO"",151,0)"
^XMB(3.9,152,2,516,0)=" S TIUTSH=$S($D(TIUY)#2:$P($G(@TIUY@(1)),U,4),1:""____"")"
^XMB(3.9,152,2,517,0)="""RTN"",""TIULO"",152,0)"
^XMB(3.9,152,2,518,0)=" I $D(TIUY)#2 K @TIUY"
^XMB(3.9,152,2,519,0)="""RTN"",""TIULO"",153,0)"
^XMB(3.9,152,2,520,0)=" D TEST^LR7OR2(.TIUY,DFN,"""",$G(TIUEDT),$G(TIULDT),"""",TIUT4)"
^XMB(3.9,152,2,521,0)="""RTN"",""TIULO"",154,0)"
^XMB(3.9,152,2,522,0)=" S TIUT4=$S($D(TIUY)#2:$P($G(@TIUY@(1)),U,4),1:""____"")"
^XMB(3.9,152,2,523,0)="""RTN"",""TIULO"",155,0)"
^XMB(3.9,152,2,524,0)=" I $D(TIUY)#2 K @TIUY"
^XMB(3.9,152,2,525,0)="""RTN"",""TIULO"",156,0)"
^XMB(3.9,152,2,526,0)=" S TIUY=TIUTSH_""/""_TIUT4"
^XMB(3.9,152,2,527,0)="""RTN"",""TIULO"",157,0)"
^XMB(3.9,152,2,528,0)="TSHX Q $G(TIUY)"
^XMB(3.9,152,2,529,0)="""RTN"",""TIULO"",158,0)"
^XMB(3.9,152,2,530,0)="SGOT(DFN,TIUEDT,TIULDT) ; Get SGOT"
^XMB(3.9,152,2,531,0)="""RTN"",""TIULO"",159,0)"
^XMB(3.9,152,2,532,0)=" N TIUY,TIUSGOT S TIUSGOT=+$O(^LAB(60,""B"",""SGOT"",0))"
^XMB(3.9,152,2,533,0)="""RTN"",""TIULO"",160,0)"
^XMB(3.9,152,2,534,0)=" I '+$G(TIUSGOT) Q"
^XMB(3.9,152,2,535,0)="""RTN"",""TIULO"",161,0)"
^XMB(3.9,152,2,536,0)=" D TEST^LR7OR2(.TIUY,DFN,"""",$G(TIUEDT),$G(TIULDT),"""",TIUSGOT)"
^XMB(3.9,152,2,537,0)="""RTN"",""TIULO"",162,0)"
^XMB(3.9,152,2,538,0)=" S TIUSGOT=$S($D(TIUY)#2:$P($G(@TIUY@(1)),U,4),1:""____"")"
^XMB(3.9,152,2,539,0)="""RTN"",""TIULO"",163,0)"
^XMB(3.9,152,2,540,0)=" I $D(TIUY)#2 K @TIUY"
^XMB(3.9,152,2,541,0)="""RTN"",""TIULO"",164,0)"
^XMB(3.9,152,2,542,0)="SGOTX Q $G(TIUSGOT)"
^XMB(3.9,152,2,543,0)="""RTN"",""TIULO"",165,0)"
^XMB(3.9,152,2,544,0)="HGBA1C(DFN,TIUEDT,TIULDT) ; Get Hemoglobin A1C"
^XMB(3.9,152,2,545,0)="""RTN"",""TIULO"",166,0)"
^XMB(3.9,152,2,546,0)=" N TIUY,TIUHGB S TIUHGB=+$O(^LAB(60,""B"",""HEMOGLOBIN A1C"",0))"
^XMB(3.9,152,2,547,0)="""RTN"",""TIULO"",167,0)"
^XMB(3.9,152,2,548,0)=" I '+$G(TIUHGB) G HGBX"
^XMB(3.9,152,2,549,0)="""RTN"",""TIULO"",168,0)"
^XMB(3.9,152,2,550,0)=" D TEST^LR7OR2(.TIUY,DFN,"""",$G(TIUEDT),$G(TIULDT),"""",TIUHGB)"
^XMB(3.9,152,2,551,0)="""RTN"",""TIULO"",169,0)"
^XMB(3.9,152,2,552,0)=" S TIUHGB=$S($D(TIUY)#2:$P($G(@TIUY@(1)),U,4),1:""____"")"
^XMB(3.9,152,2,553,0)="""RTN"",""TIULO"",170,0)"
^XMB(3.9,152,2,554,0)=" I $D(TIUY)#2 K @TIUY"
^XMB(3.9,152,2,555,0)="""RTN"",""TIULO"",171,0)"
^XMB(3.9,152,2,556,0)="HGBX Q $G(TIUHGB)"
^XMB(3.9,152,2,557,0)="""RTN"",""TIULO"",172,0)"
^XMB(3.9,152,2,558,0)="URICACID(DFN,TIUEDT,TIULDT) ; Get Uric Acid"
^XMB(3.9,152,2,559,0)="""RTN"",""TIULO"",173,0)"
^XMB(3.9,152,2,560,0)=" N TIUY,TIUURIC S TIUURIC=+$O(^LAB(60,""B"",""URIC ACID"",0))"
^XMB(3.9,152,2,561,0)="""RTN"",""TIULO"",174,0)"
^XMB(3.9,152,2,562,0)=" I '+$G(TIUURIC) G URICX"
^XMB(3.9,152,2,563,0)="""RTN"",""TIULO"",175,0)"
^XMB(3.9,152,2,564,0)=" D TEST^LR7OR2(.TIUY,DFN,"""",$G(TIUEDT),$G(TIULDT),"""",TIUURIC)"
^XMB(3.9,152,2,565,0)="""RTN"",""TIULO"",176,0)"
^XMB(3.9,152,2,566,0)=" S TIUURIC=$S($D(TIUY)#2:$P($G(@TIUY@(1)),U,4),1:""____"")"
^XMB(3.9,152,2,567,0)="""RTN"",""TIULO"",177,0)"
^XMB(3.9,152,2,568,0)=" I $D(TIUY)#2 K @TIUY"
^XMB(3.9,152,2,569,0)="""RTN"",""TIULO"",178,0)"
^XMB(3.9,152,2,570,0)="URICX Q $G(TIUURIC)"
^XMB(3.9,152,2,571,0)="""RTN"",""TIULO"",179,0)"
^XMB(3.9,152,2,572,0)="FBG(DFN,TIUEDT,TIULDT) ; Get FBG"
^XMB(3.9,152,2,573,0)="""RTN"",""TIULO"",180,0)"
^XMB(3.9,152,2,574,0)=" N TIUY,TIUFBG S TIUFBG=+$O(^LAB(60,""B"",""FBS"",0))"
^XMB(3.9,152,2,575,0)="""RTN"",""TIULO"",181,0)"
^XMB(3.9,152,2,576,0)=" I '+$G(TIUFBG) G FBGX"
^XMB(3.9,152,2,577,0)="""RTN"",""TIULO"",182,0)"
^XMB(3.9,152,2,578,0)=" D TEST^LR7OR2(.TIUY,DFN,"""",$G(TIUEDT),$G(TIULDT),"""",TIUFBG)"
^XMB(3.9,152,2,579,0)="""RTN"",""TIULO"",183,0)"
^XMB(3.9,152,2,580,0)=" S TIUFBG=$S($D(TIUY)#2:$P($G(@TIUY@(1)),U,4),1:""____"")"
^XMB(3.9,152,2,581,0)="""RTN"",""TIULO"",184,0)"
^XMB(3.9,152,2,582,0)=" I $D(TIUY)#2 K @TIUY"
^XMB(3.9,152,2,583,0)="""RTN"",""TIULO"",185,0)"
^XMB(3.9,152,2,584,0)="FBGX Q $G(TIUFBG)"
^XMB(3.9,152,2,585,0)="""RTN"",""TIULO"",186,0)"
^XMB(3.9,152,2,586,0)="ADM(DFN) ;Current Admission Date/Time"
^XMB(3.9,152,2,587,0)="""RTN"",""TIULO"",187,0)"
^XMB(3.9,152,2,588,0)=" N VAIN,J"
^XMB(3.9,152,2,589,0)="""RTN"",""TIULO"",188,0)"
^XMB(3.9,152,2,590,0)=" D INP^VADPT"
^XMB(3.9,152,2,591,0)="""RTN"",""TIULO"",189,0)"
^XMB(3.9,152,2,592,0)=" S J=$P(VAIN(7),U,2),J(1)=$P(J,""@"",1),J(2)=$P(J,""@"",2),J(3)=$E(J(2),1,5),Y=J(1)_"" ""_J(3) K J"
^XMB(3.9,152,2,593,0)="""RTN"",""TIULO"",190,0)"
^XMB(3.9,152,2,594,0)="ADMX Q Y"
^XMB(3.9,152,2,595,0)="""RTN"",""TIULO"",191,0)"
^XMB(3.9,152,2,596,0)="TODAY() ;Today's Date"
^XMB(3.9,152,2,597,0)="""RTN"",""TIULO"",192,0)"
^XMB(3.9,152,2,598,0)=" N X,Y"
^XMB(3.9,152,2,599,0)="""RTN"",""TIULO"",193,0)"
^XMB(3.9,152,2,600,0)=" S X=$G(DT) I X'="""" S Y=X D DD^%DT"
^XMB(3.9,152,2,601,0)="""RTN"",""TIULO"",194,0)"
^XMB(3.9,152,2,602,0)="TODAYX Q Y"
^XMB(3.9,152,2,603,0)="""RTN"",""TIULO"",195,0)"
^XMB(3.9,152,2,604,0)="NOW() ;Current Date/Time"
^XMB(3.9,152,2,605,0)="""RTN"",""TIULO"",196,0)"
^XMB(3.9,152,2,606,0)="NOWX Q $$DATE^TIULS($$NOW^TIULC,""AMTH DD, CCYY HR:MIN"")"
^XMB(3.9,152,2,607,0)="""RTN"",""TIUPUTS"")"
^XMB(3.9,152,2,608,0)="0^2^B35578522^B35000705"
^XMB(3.9,152,2,609,0)="""RTN"",""TIUPUTS"",1,0)"
^XMB(3.9,152,2,610,0)="TIUPUTS ; SLC/JER - Surgery Look-up, etc. ; 04/19/2004"
^XMB(3.9,152,2,611,0)="""RTN"",""TIUPUTS"",2,0)"
^XMB(3.9,152,2,612,0)=" ;;1.0;TEXT INTEGRATION UTILITIES;**112,187,173,195,204**;Jun 20, 1997"
^XMB(3.9,152,2,613,0)="""RTN"",""TIUPUTS"",3,0)"
^XMB(3.9,152,2,614,0)="LOOKUP ; Look-up code used by router/filer"
^XMB(3.9,152,2,615,0)="""RTN"",""TIUPUTS"",4,0)"
^XMB(3.9,152,2,616,0)=" ; Required: TIUSRCN, TIUSDA, TIUSSN, TIUODT"
^XMB(3.9,152,2,617,0)="""RTN"",""TIUPUTS"",5,0)"
^XMB(3.9,152,2,618,0)=" N SRODT,DFN,TIUSR0,TIUD0,TIUDAD"
^XMB(3.9,152,2,619,0)="""RTN"",""TIUPUTS"",6,0)"
^XMB(3.9,152,2,620,0)=" I $S('$D(TIUSSN):1,$G(TIUSSN)?4N:1,$G(TIUSSN)']"""":1,+$G(TIUODT)'>0:1,1:0) S Y=-1 G LOOKUPX"
^XMB(3.9,152,2,621,0)="""RTN"",""TIUPUTS"",7,0)"
^XMB(3.9,152,2,622,0)=" I TIUSSN?3N1P2N1P4N.E S TIUSSN=$TR(TIUSSN,""-/"","""")"
^XMB(3.9,152,2,623,0)="""RTN"",""TIUPUTS"",8,0)"
^XMB(3.9,152,2,624,0)=" I TIUSSN[""?"" S Y=-1 G LOOKUPX"
^XMB(3.9,152,2,625,0)="""RTN"",""TIUPUTS"",9,0)"
^XMB(3.9,152,2,626,0)=" S DFN=+$$PATIENT^TIULA(TIUSSN)"
^XMB(3.9,152,2,627,0)="""RTN"",""TIUPUTS"",10,0)"
^XMB(3.9,152,2,628,0)=" I DFN'>0 S Y=-1 G LOOKUPX"
^XMB(3.9,152,2,629,0)="""RTN"",""TIUPUTS"",11,0)"
^XMB(3.9,152,2,630,0)=" I +$G(TIUSRCN)=0 S TIUSRCN=$$FINDCASE(DFN,+$$IDATE^TIULC(TIUODT))"
^XMB(3.9,152,2,631,0)="""RTN"",""TIUPUTS"",12,0)"
^XMB(3.9,152,2,632,0)=" I +$G(TIUSRCN)'>0 S Y=-1 G LOOKUPX"
^XMB(3.9,152,2,633,0)="""RTN"",""TIUPUTS"",13,0)"
^XMB(3.9,152,2,634,0)=" I +$G(TIUSDA)'>0,$D(^SRF(TIUSRCN,""TIU"")) S TIUSDA=$$GETSDA(TIUSRCN)"
^XMB(3.9,152,2,635,0)="""RTN"",""TIUPUTS"",14,0)"
^XMB(3.9,152,2,636,0)=" I +$G(TIUSDA)'>0 D  G LOOKUPX"
^XMB(3.9,152,2,637,0)="""RTN"",""TIUPUTS"",15,0)"
^XMB(3.9,152,2,638,0)=" . S Y=-1"
^XMB(3.9,152,2,639,0)="""RTN"",""TIUPUTS"",16,0)"
^XMB(3.9,152,2,640,0)=" . I '$D(^SRF(TIUSRCN,""TIU"")),'$D(ZTQUEUED) D"
^XMB(3.9,152,2,641,0)="""RTN"",""TIUPUTS"",17,0)"
^XMB(3.9,152,2,642,0)=" . . W !!,""Time Out of O.R. has not yet been entered for Surgical Case #"",TIUSRCN"
^XMB(3.9,152,2,643,0)="""RTN"",""TIUPUTS"",18,0)"
^XMB(3.9,152,2,644,0)=" . . W !,""the Surgical Service must complete this step before the Operation"""
^XMB(3.9,152,2,645,0)="""RTN"",""TIUPUTS"",19,0)"
^XMB(3.9,152,2,646,0)=" . . W !,""Report can be uploaded..."""
^XMB(3.9,152,2,647,0)="""RTN"",""TIUPUTS"",20,0)"
^XMB(3.9,152,2,648,0)=" K TIUHDR(.001),TIUHDR(.02),TIUHDR(.07),TIUHDR(1405)"
^XMB(3.9,152,2,649,0)="""RTN"",""TIUPUTS"",21,0)"
^XMB(3.9,152,2,650,0)=" S TIUD0=$G(^TIU(8925,TIUSDA,0)),TIUSR0=$G(^SRF(TIUSRCN,0))"
^XMB(3.9,152,2,651,0)="""RTN"",""TIUPUTS"",22,0)"
^XMB(3.9,152,2,652,0)=" ;Confirm that SURGICAL CASE is for correct patient"
^XMB(3.9,152,2,653,0)="""RTN"",""TIUPUTS"",23,0)"
^XMB(3.9,152,2,654,0)=" I +TIUSR0'=DFN S Y=-1 G LOOKUPX"
^XMB(3.9,152,2,655,0)="""RTN"",""TIUPUTS"",24,0)"
^XMB(3.9,152,2,656,0)=" ;Confirm that TIU DOCUMENT is for correct patient"
^XMB(3.9,152,2,657,0)="""RTN"",""TIUPUTS"",25,0)"
^XMB(3.9,152,2,658,0)=" I +$P(TIUD0,U,2)'=DFN S Y=-1 G LOOKUPX"
^XMB(3.9,152,2,659,0)="""RTN"",""TIUPUTS"",26,0)"
^XMB(3.9,152,2,660,0)=" ;Confirm that OPERATION DATE is correct"
^XMB(3.9,152,2,661,0)="""RTN"",""TIUPUTS"",27,0)"
^XMB(3.9,152,2,662,0)=" I +$$IDATE^TIULC(TIUODT)'=$P($P(TIUSR0,U,9),""."") S Y=-1 G LOOKUPX"
^XMB(3.9,152,2,663,0)="""RTN"",""TIUPUTS"",28,0)"
^XMB(3.9,152,2,664,0)=" S Y=$$CALLDIC(TIUSDA)"
^XMB(3.9,152,2,665,0)="""RTN"",""TIUPUTS"",29,0)"
^XMB(3.9,152,2,666,0)=" I '+$$CANEDIT(+Y) D"
^XMB(3.9,152,2,667,0)="""RTN"",""TIUPUTS"",30,0)"
^XMB(3.9,152,2,668,0)=" . W !,""Existing document may not be edited...Creating Addendum."""
^XMB(3.9,152,2,669,0)="""RTN"",""TIUPUTS"",31,0)"
^XMB(3.9,152,2,670,0)=" . S TIUDAD=+Y,Y=$$MAKEADD^TIUPUTU()"
^XMB(3.9,152,2,671,0)="""RTN"",""TIUPUTS"",32,0)"
^XMB(3.9,152,2,672,0)=" . D COPYDAD(Y,TIUDAD)"
^XMB(3.9,152,2,673,0)="""RTN"",""TIUPUTS"",33,0)"
^XMB(3.9,152,2,674,0)="LOOKUPX K TIUSRCN,TIUSDA"
^XMB(3.9,152,2,675,0)="""RTN"",""TIUPUTS"",34,0)"
^XMB(3.9,152,2,676,0)=" Q"
^XMB(3.9,152,2,677,0)="""RTN"",""TIUPUTS"",35,0)"
^XMB(3.9,152,2,678,0)="CANEDIT(DA) ; Check whether or not document is released"
^XMB(3.9,152,2,679,0)="""RTN"",""TIUPUTS"",36,0)"
^XMB(3.9,152,2,680,0)=" Q $S(+$P($G(^TIU(8925,+DA,0)),U,5)<4:1,1:0)"
^XMB(3.9,152,2,681,0)="""RTN"",""TIUPUTS"",37,0)"
^XMB(3.9,152,2,682,0)="COPYDAD(DA,PARENT) ; copy fixed field data for addenda"
^XMB(3.9,152,2,683,0)="""RTN"",""TIUPUTS"",38,0)"
^XMB(3.9,152,2,684,0)=" N FDA,FDARR,IENS,FLAGS,TIUMSG,TIUOPDT,TIURDT,TIUD0,TIUD12,TIUD14"
^XMB(3.9,152,2,685,0)="""RTN"",""TIUPUTS"",39,0)"
^XMB(3.9,152,2,686,0)=" S TIUD0=$G(^TIU(8925,+PARENT,0)),TIUD12=$G(^(12)),TIUD14=$G(^(14))"
^XMB(3.9,152,2,687,0)="""RTN"",""TIUPUTS"",40,0)"
^XMB(3.9,152,2,688,0)=" S IENS=""""""""_DA_"","""""",FDARR=""FDA(8925,""_IENS_"")"",FLAGS=""K"""
^XMB(3.9,152,2,689,0)="""RTN"",""TIUPUTS"",41,0)"
^XMB(3.9,152,2,690,0)=" S @FDARR@(.02)=$P(TIUD0,U,2)"
^XMB(3.9,152,2,691,0)="""RTN"",""TIUPUTS"",42,0)"
^XMB(3.9,152,2,692,0)=" S @FDARR@(.03)=$P(TIUD0,U,3),@FDARR@(.05)=3"
^XMB(3.9,152,2,693,0)="""RTN"",""TIUPUTS"",43,0)"
^XMB(3.9,152,2,694,0)=" S @FDARR@(.06)=PARENT,@FDARR@(.08)=$P(TIUD0,U,8)"
^XMB(3.9,152,2,695,0)="""RTN"",""TIUPUTS"",44,0)"
^XMB(3.9,152,2,696,0)=" S @FDARR@(1401)=$P(TIUD14,U)"
^XMB(3.9,152,2,697,0)="""RTN"",""TIUPUTS"",45,0)"
^XMB(3.9,152,2,698,0)=" S @FDARR@(1402)=$P(TIUD14,U,2)"
^XMB(3.9,152,2,699,0)="""RTN"",""TIUPUTS"",46,0)"
^XMB(3.9,152,2,700,0)=" S @FDARR@(1405)=TIUSRCN_"";SRF("""
^XMB(3.9,152,2,701,0)="""RTN"",""TIUPUTS"",47,0)"
^XMB(3.9,152,2,702,0)=" S @FDARR@(1201)=$$NOW^TIULC"
^XMB(3.9,152,2,703,0)="""RTN"",""TIUPUTS"",48,0)"
^XMB(3.9,152,2,704,0)=" S @FDARR@(1205)=$P(TIUD12,U,5)"
^XMB(3.9,152,2,705,0)="""RTN"",""TIUPUTS"",49,0)"
^XMB(3.9,152,2,706,0)=" S TIUOPDT=+$$IDATE^TIULC($G(TIUODT))"
^XMB(3.9,152,2,707,0)="""RTN"",""TIUPUTS"",50,0)"
^XMB(3.9,152,2,708,0)=" S TIURDT=$S(+$G(TIUOPDT)>0:+$G(TIUOPDT),1:+$$NOW^XLFDT)"
^XMB(3.9,152,2,709,0)="""RTN"",""TIUPUTS"",51,0)"
^XMB(3.9,152,2,710,0)=" S @FDARR@(1301)=TIURDT,@FDARR@(1303)=""U"""
^XMB(3.9,152,2,711,0)="""RTN"",""TIUPUTS"",52,0)"
^XMB(3.9,152,2,712,0)=" D FILE^DIE(FLAGS,""FDA"",""TIUMSG"") ; File record"
^XMB(3.9,152,2,713,0)="""RTN"",""TIUPUTS"",53,0)"
^XMB(3.9,152,2,714,0)=" Q"
^XMB(3.9,152,2,715,0)="""RTN"",""TIUPUTS"",54,0)"
^XMB(3.9,152,2,716,0)="FINDCASE(DFN,TIUODT) ; Find Surgical Case for Pt & Dt, if unique"
^XMB(3.9,152,2,717,0)="""RTN"",""TIUPUTS"",55,0)"
^XMB(3.9,152,2,718,0)=" N TIUY,TIUCN,TIUHIT,TIUPOP S TIUCN="""",(TIUY,TIUHIT,TIUPOP)=0"
^XMB(3.9,152,2,719,0)="""RTN"",""TIUPUTS"",56,0)"
^XMB(3.9,152,2,720,0)=" F  S TIUCN=$O(^SRF(""B"",DFN,TIUCN),-1) Q:TIUCN'>0!+TIUPOP  D"
^XMB(3.9,152,2,721,0)="""RTN"",""TIUPUTS"",57,0)"
^XMB(3.9,152,2,722,0)=" . N TIUSR0 S TIUSR0=$G(^SRF(TIUCN,0))"
^XMB(3.9,152,2,723,0)="""RTN"",""TIUPUTS"",58,0)"
^XMB(3.9,152,2,724,0)=" . I +$G(TIUODT)=$P($P(TIUSR0,U,9),""."") D"
^XMB(3.9,152,2,725,0)="""RTN"",""TIUPUTS"",59,0)"
^XMB(3.9,152,2,726,0)=" . . I +TIUHIT S TIUPOP=1 Q"
^XMB(3.9,152,2,727,0)="""RTN"",""TIUPUTS"",60,0)"
^XMB(3.9,152,2,728,0)=" . . S TIUHIT=TIUCN"
^XMB(3.9,152,2,729,0)="""RTN"",""TIUPUTS"",61,0)"
^XMB(3.9,152,2,730,0)=" I 'TIUPOP,TIUHIT S TIUY=TIUHIT"
^XMB(3.9,152,2,731,0)="""RTN"",""TIUPUTS"",62,0)"
^XMB(3.9,152,2,732,0)=" Q TIUY"
^XMB(3.9,152,2,733,0)="""RTN"",""TIUPUTS"",63,0)"
^XMB(3.9,152,2,734,0)="GETSDA(TIUSRCN) ; Get Op Report for Case"
^XMB(3.9,152,2,735,0)="""RTN"",""TIUPUTS"",64,0)"
^XMB(3.9,152,2,736,0)=" N TIUY S TIUY=+$P(^SRF(TIUSRCN,""TIU""),U)"
^XMB(3.9,152,2,737,0)="""RTN"",""TIUPUTS"",65,0)"
^XMB(3.9,152,2,738,0)=" I 'TIUY S TIUY=+$P(^SRF(TIUSRCN,""TIU""),U,3)"
^XMB(3.9,152,2,739,0)="""RTN"",""TIUPUTS"",66,0)"
^XMB(3.9,152,2,740,0)=" Q TIUY"
^XMB(3.9,152,2,741,0)="""RTN"",""TIUPUTS"",67,0)"
^XMB(3.9,152,2,742,0)="CALLDIC(TIUX) ; Call ^DIC to get the IEN for the TIU DOCUMENT"
^XMB(3.9,152,2,743,0)="""RTN"",""TIUPUTS"",68,0)"
^XMB(3.9,152,2,744,0)=" N DA,DIC,X,Y"
^XMB(3.9,152,2,745,0)="""RTN"",""TIUPUTS"",69,0)"
^XMB(3.9,152,2,746,0)=" S DIC=8925,DIC(0)=""NX"",X=""`""_TIUX D ^DIC"
^XMB(3.9,152,2,747,0)="""RTN"",""TIUPUTS"",70,0)"
^XMB(3.9,152,2,748,0)=" Q Y"
^XMB(3.9,152,2,749,0)="""RTN"",""TIUPUTS"",71,0)"
^XMB(3.9,152,2,750,0)="FOLLOWUP(TIUDA) ; Post-filing code for Operation Reports"
^XMB(3.9,152,2,751,0)="""RTN"",""TIUPUTS"",72,0)"
^XMB(3.9,152,2,752,0)=" N FDA,FDARR,IENS,FLAGS,TIUMSG,TIU"
^XMB(3.9,152,2,753,0)="""RTN"",""TIUPUTS"",73,0)"
^XMB(3.9,152,2,754,0)=" S IENS=""""""""_TIUDA_"","""""",FDARR=""FDA(8925,""_IENS_"")"",FLAGS=""K"""
^XMB(3.9,152,2,755,0)="""RTN"",""TIUPUTS"",74,0)"
^XMB(3.9,152,2,756,0)=" D GETTIU^TIULD(.TIU,TIUDA)"
^XMB(3.9,152,2,757,0)="""RTN"",""TIUPUTS"",75,0)"
^XMB(3.9,152,2,758,0)=" I $L($G(TIU(""EDT""))) S @FDARR@(.07)=$P($G(TIU(""EDT"")),U)"
^XMB(3.9,152,2,759,0)="""RTN"",""TIUPUTS"",76,0)"
^XMB(3.9,152,2,760,0)=" S @FDARR@(1204)=$$WHOSIGNS^TIULC1(TIUDA)"
^XMB(3.9,152,2,761,0)="""RTN"",""TIUPUTS"",77,0)"
^XMB(3.9,152,2,762,0)=" S @FDARR@(1208)=$$WHOCOSIG^TIULC1(TIUDA)"
^XMB(3.9,152,2,763,0)="""RTN"",""TIUPUTS"",78,0)"
^XMB(3.9,152,2,764,0)=" D FILE^DIE(FLAGS,""FDA"",""TIUMSG"")"
^XMB(3.9,152,2,765,0)="""RTN"",""TIUPUTS"",79,0)"
^XMB(3.9,152,2,766,0)=" I +$P($G(^TIU(8925,+TIUDA,12)),U,4)'=+$P($G(^(12)),U,9) D"
^XMB(3.9,152,2,767,0)="""RTN"",""TIUPUTS"",80,0)"
^XMB(3.9,152,2,768,0)=" . S @FDARR@(1506)=1 D FILE^DIE(FLAGS,""FDA"",""TIUMSG"")"
^XMB(3.9,152,2,769,0)="""RTN"",""TIUPUTS"",81,0)"
^XMB(3.9,152,2,770,0)=" D RELEASE^TIUT(TIUDA,1)"
^XMB(3.9,152,2,771,0)="""RTN"",""TIUPUTS"",82,0)"
^XMB(3.9,152,2,772,0)=" D AUDIT^TIUEDI1(TIUDA,0,$$CHKSUM^TIULC(""^TIU(8925,""_+TIUDA_"",""""TEXT"""")""))"
^XMB(3.9,152,2,773,0)="""RTN"",""TIUPUTS"",83,0)"
^XMB(3.9,152,2,774,0)=" Q"
^XMB(3.9,152,2,775,0)="""RTN"",""TIUPUTS"",84,0)"
^XMB(3.9,152,2,776,0)="FIX ; Filing error resolution code for Operation Reports"
^XMB(3.9,152,2,777,0)="""RTN"",""TIUPUTS"",85,0)"
^XMB(3.9,152,2,778,0)=" N TIUOUT,TIUDA,TIUD0,TIUX,TIUPRM0,TIUPRM1,SUCCESS,TIUBUF,TIUHIT"
^XMB(3.9,152,2,779,0)="""RTN"",""TIUPUTS"",86,0)"
^XMB(3.9,152,2,780,0)=" N TIUADD,TIUTYP,TIU,DUOUT,DTOUT"
^XMB(3.9,152,2,781,0)="""RTN"",""TIUPUTS"",87,0)"
^XMB(3.9,152,2,782,0)=" S TIUHIT=0"
^XMB(3.9,152,2,783,0)="""RTN"",""TIUPUTS"",88,0)"
^XMB(3.9,152,2,784,0)=" ; -- first, determine the correct TIU DOCUMENT record --"
^XMB(3.9,152,2,785,0)="""RTN"",""TIUPUTS"",89,0)"
^XMB(3.9,152,2,786,0)=" F  D  Q:$D(DUOUT)!$D(DIROUT)!+$G(TIUOUT)"
^XMB(3.9,152,2,787,0)="""RTN"",""TIUPUTS"",90,0)"
^XMB(3.9,152,2,788,0)=" . N D,D0,DK,DL,DIC,X,Y,DA,DX,A,S,TIUFPRIV"
^XMB(3.9,152,2,789,0)="""RTN"",""TIUPUTS"",91,0)"
^XMB(3.9,152,2,790,0)=" . S X=+$$PATIENT^TIULA"
^XMB(3.9,152,2,791,0)="""RTN"",""TIUPUTS"",92,0)"
^XMB(3.9,152,2,792,0)=" . I X'>0 D  Q"
^XMB(3.9,152,2,793,0)="""RTN"",""TIUPUTS"",93,0)"
^XMB(3.9,152,2,794,0)=" . . W !!,""Okay, no harm done..."",!"
^XMB(3.9,152,2,795,0)="""RTN"",""TIUPUTS"",94,0)"
^XMB(3.9,152,2,796,0)=" . . I $$READ^TIUU(""EA"",""Press RETURN to continue..."") ; pause"
^XMB(3.9,152,2,797,0)="""RTN"",""TIUPUTS"",95,0)"
^XMB(3.9,152,2,798,0)=" . . S TIUOUT=1"
^XMB(3.9,152,2,799,0)="""RTN"",""TIUPUTS"",96,0)"
^XMB(3.9,152,2,800,0)=" . S DIC=8925,DIC(0)=""UXEV"",D=""C"""
^XMB(3.9,152,2,801,0)="""RTN"",""TIUPUTS"",97,0)"
^XMB(3.9,152,2,802,0)=" . W !"
^XMB(3.9,152,2,803,0)="""RTN"",""TIUPUTS"",98,0)"
^XMB(3.9,152,2,804,0)=" . S DIC(""W"")=""D DICW^TIUPUTS(+Y)"""
^XMB(3.9,152,2,805,0)="""RTN"",""TIUPUTS"",99,0)"
^XMB(3.9,152,2,806,0)=" . S DIC(""S"")=""I +$$DICS^TIUPUTS(+Y)"""
^XMB(3.9,152,2,807,0)="""RTN"",""TIUPUTS"",100,0)"
^XMB(3.9,152,2,808,0)=" . D IX^DIC"
^XMB(3.9,152,2,809,0)="""RTN"",""TIUPUTS"",101,0)"
^XMB(3.9,152,2,810,0)=" . I +Y'>0 D  Q"
^XMB(3.9,152,2,811,0)="""RTN"",""TIUPUTS"",102,0)"
^XMB(3.9,152,2,812,0)=" . . W !!,$S(+$O(^TIU(8925,""C"",+X,0))'>0:""No OPERATION REPORTS Available to Update."",1:""No OPERATION REPORT Selected...""),!"
^XMB(3.9,152,2,813,0)="""RTN"",""TIUPUTS"",103,0)"
^XMB(3.9,152,2,814,0)=" . . I $$READ^TIUU(""EA"",""Press RETURN to continue..."") ; pause"
^XMB(3.9,152,2,815,0)="""RTN"",""TIUPUTS"",104,0)"
^XMB(3.9,152,2,816,0)=" . . S TIUOUT=1"
^XMB(3.9,152,2,817,0)="""RTN"",""TIUPUTS"",105,0)"
^XMB(3.9,152,2,818,0)=" . W ! S (DA,TIUHIT)=+Y D EN^DIQ"
^XMB(3.9,152,2,819,0)="""RTN"",""TIUPUTS"",106,0)"
^XMB(3.9,152,2,820,0)=" . S TIUOUT=$$READ^TIUU(""Y"",""... OK"",""YES"") W !"
^XMB(3.9,152,2,821,0)="""RTN"",""TIUPUTS"",107,0)"
^XMB(3.9,152,2,822,0)=" . I +TIUOUT S TIUDA=DA"
^XMB(3.9,152,2,823,0)="""RTN"",""TIUPUTS"",108,0)"
^XMB(3.9,152,2,824,0)=" Q:$D(DUOUT)!$D(DIROUT)!+$G(DTOUT)!'+$G(TIUDA)"
^XMB(3.9,152,2,825,0)="""RTN"",""TIUPUTS"",109,0)"
^XMB(3.9,152,2,826,0)=" ; -- next, load fields from upload buffer entry --"
^XMB(3.9,152,2,827,0)="""RTN"",""TIUPUTS"",110,0)"
^XMB(3.9,152,2,828,0)=" S TIUBUF=$S(+$G(XQADATA):+$G(XQADATA),+$G(BUFDA):+$G(BUFDA),1:"""")"
^XMB(3.9,152,2,829,0)="""RTN"",""TIUPUTS"",111,0)"
^XMB(3.9,152,2,830,0)=" ; -- if TIUDA may be edited, file data, else make addendum --"
^XMB(3.9,152,2,831,0)="""RTN"",""TIUPUTS"",112,0)"
^XMB(3.9,152,2,832,0)=" S TIUD0=$G(^TIU(8925,TIUDA,0)),TIUTYP=+TIUD0"
^XMB(3.9,152,2,833,0)="""RTN"",""TIUPUTS"",113,0)"
^XMB(3.9,152,2,834,0)=" I +$$CANEDIT(TIUDA)'>0 D  G FIXX"
^XMB(3.9,152,2,835,0)="""RTN"",""TIUPUTS"",114,0)"
^XMB(3.9,152,2,836,0)=" . W !!,""Existing document may not be edited...Creating Addendum."",!"
^XMB(3.9,152,2,837,0)="""RTN"",""TIUPUTS"",115,0)"
^XMB(3.9,152,2,838,0)=" . D MAKEADD^TIUPEFIX(.TIUADD,TIUDA,TIUBUF)"
^XMB(3.9,152,2,839,0)="""RTN"",""TIUPUTS"",116,0)"
^XMB(3.9,152,2,840,0)=" . S SUCCESS=TIUADD"
^XMB(3.9,152,2,841,0)="""RTN"",""TIUPUTS"",117,0)"
^XMB(3.9,152,2,842,0)=" ; -- Load the array TIUX from the buffer"
^XMB(3.9,152,2,843,0)="""RTN"",""TIUPUTS"",118,0)"
^XMB(3.9,152,2,844,0)=" D LOADTIUX^TIUPEFIX(.TIUX,TIUBUF)"
^XMB(3.9,152,2,845,0)="""RTN"",""TIUPUTS"",119,0)"
^XMB(3.9,152,2,846,0)=" ; -- finally, file data in TIU DOCUMENT file --"
^XMB(3.9,152,2,847,0)="""RTN"",""TIUPUTS"",120,0)"
^XMB(3.9,152,2,848,0)=" K ^TIU(8925,+TIUDA,""TEMP""),TIUX(.001),TIUX(.01),TIUX(.02),TIUX(.03),TIUX(.05)"
^XMB(3.9,152,2,849,0)="""RTN"",""TIUPUTS"",121,0)"
^XMB(3.9,152,2,850,0)=" K TIUX(.13),TIUX(1205),TIUX(1211),TIUX(1405)"
^XMB(3.9,152,2,851,0)="""RTN"",""TIUPUTS"",122,0)"
^XMB(3.9,152,2,852,0)=" M ^TIU(8925,+TIUDA,""TEMP"")=TIUX(""TEXT"") K TIUX(""TEXT"")"
^XMB(3.9,152,2,853,0)="""RTN"",""TIUPUTS"",123,0)"
^XMB(3.9,152,2,854,0)=" D FILE^TIUPEFIX(.SUCCESS,+TIUDA,.TIUX,TIUTYP)"
^XMB(3.9,152,2,855,0)="""RTN"",""TIUPUTS"",124,0)"
^XMB(3.9,152,2,856,0)=" D GETTIU^TIULD(.TIU,TIUDA)"
^XMB(3.9,152,2,857,0)="""RTN"",""TIUPUTS"",125,0)"
^XMB(3.9,152,2,858,0)=" D MERGTEXT^TIUEDI1(+TIUDA,.TIU) K ^TIU(8925,TIUDA,""TEMP"")"
^XMB(3.9,152,2,859,0)="""RTN"",""TIUPUTS"",126,0)"
^XMB(3.9,152,2,860,0)=" S TIUPOST=$$POSTFILE^TIULC1(TIUTYP)"
^XMB(3.9,152,2,861,0)="""RTN"",""TIUPUTS"",127,0)"
^XMB(3.9,152,2,862,0)=" S TIUREC(""#"")=TIUDA"
^XMB(3.9,152,2,863,0)="""RTN"",""TIUPUTS"",128,0)"
^XMB(3.9,152,2,864,0)=" I TIUPOST]"""" X TIUPOST"
^XMB(3.9,152,2,865,0)="""RTN"",""TIUPUTS"",129,0)"
^XMB(3.9,152,2,866,0)="FIXX D ALERTDEL^TIUPEVNT(+TIUBUF)"
^XMB(3.9,152,2,867,0)="""RTN"",""TIUPUTS"",130,0)"
^XMB(3.9,152,2,868,0)=" D RESOLVE^TIUPEVNT($S($D(XQADATA):+$P(XQADATA,"";"",3),1:$G(ERRDA)),1)"
^XMB(3.9,152,2,869,0)="""RTN"",""TIUPUTS"",131,0)"
^XMB(3.9,152,2,870,0)=" D BUFPURGE^TIUPUTC(+TIUBUF)"
^XMB(3.9,152,2,871,0)="""RTN"",""TIUPUTS"",132,0)"
^XMB(3.9,152,2,872,0)=" W ""Done."""
^XMB(3.9,152,2,873,0)="""RTN"",""TIUPUTS"",133,0)"
^XMB(3.9,152,2,874,0)=" S TIUDONE=1"
^XMB(3.9,152,2,875,0)="""RTN"",""TIUPUTS"",134,0)"
^XMB(3.9,152,2,876,0)=" Q"
^XMB(3.9,152,2,877,0)="""RTN"",""TIUPUTS"",135,0)"
^XMB(3.9,152,2,878,0)="DICW(TIUDA) ; Write identifiers"
^XMB(3.9,152,2,879,0)="""RTN"",""TIUPUTS"",136,0)"
^XMB(3.9,152,2,880,0)=" ;VMP OIFO BAY PINES;ELR;TIU*1.0*195;MODIFIED THIS TAG"
^XMB(3.9,152,2,881,0)="""RTN"",""TIUPUTS"",137,0)"
^XMB(3.9,152,2,882,0)=" N X,Y,VADM,VA,VAERR,TIUD0,TIUD12,TIUD13,TIUD14,TIUPRNM"
^XMB(3.9,152,2,883,0)="""RTN"",""TIUPUTS"",138,0)"
^XMB(3.9,152,2,884,0)=" S TIUD0=$G(^TIU(8925,+TIUDA,0)),TIUD12=$G(^(12)),TIUD13=$G(^(13)),TIUD14=$G(^(14))"
^XMB(3.9,152,2,885,0)="""RTN"",""TIUPUTS"",139,0)"
^XMB(3.9,152,2,886,0)=" W ?35,""Dated: "",$$DATE^TIULS(+TIUD13,""MM/DD/CCYY@HR:MIN""),?62,""By: "",$E($$NAME^TIULS($$PERSNAME^TIULC1(+$P(TIUD12,U,2)),""LAST,FI MI""),1,13)"
^XMB(3.9,152,2,887,0)="""RTN"",""TIUPUTS"",140,0)"
^XMB(3.9,152,2,888,0)=" ;VMP OIFO BAY PINES;ELR;TIU*1.0*195;ADDED FROM HERE DOWN"
^XMB(3.9,152,2,889,0)="""RTN"",""TIUPUTS"",141,0)"
^XMB(3.9,152,2,890,0)=" Q:$G(TIUCLASS)'=38"
^XMB(3.9,152,2,891,0)="""RTN"",""TIUPUTS"",142,0)"
^XMB(3.9,152,2,892,0)=" S TIUD14=+$P(TIUD14,U,5)"
^XMB(3.9,152,2,893,0)="""RTN"",""TIUPUTS"",143,0)"
^XMB(3.9,152,2,894,0)=" Q:$L(TIUD14)'>0"
^XMB(3.9,152,2,895,0)="""RTN"",""TIUPUTS"",144,0)"
^XMB(3.9,152,2,896,0)=" D ONE^SROESTV(.TIUPRNM,TIUD14)      ;IA 3533"
^XMB(3.9,152,2,897,0)="""RTN"",""TIUPUTS"",145,0)"
^XMB(3.9,152,2,898,0)=" N TIUS0 S TIUS0=$G(@TIUPRNM@(TIUD14))"
^XMB(3.9,152,2,899,0)="""RTN"",""TIUPUTS"",146,0)"
^XMB(3.9,152,2,900,0)=" Q:$L(TIUS0)'>0"
^XMB(3.9,152,2,901,0)="""RTN"",""TIUPUTS"",147,0)"
^XMB(3.9,152,2,902,0)=" W !?11,""Case #: "",TIUD14,""  "",$P(@TIUPRNM@(TIUD14),U,2)"
^XMB(3.9,152,2,903,0)="""RTN"",""TIUPUTS"",148,0)"
^XMB(3.9,152,2,904,0)=" Q"
^XMB(3.9,152,2,905,0)="""RTN"",""TIUPUTS"",149,0)"
^XMB(3.9,152,2,906,0)="DICS(TIUDA) ; Filter IX^DIC list"
^XMB(3.9,152,2,907,0)="""RTN"",""TIUPUTS"",150,0)"
^XMB(3.9,152,2,908,0)=" N TIUD0,TIUY S TIUY=0"
^XMB(3.9,152,2,909,0)="""RTN"",""TIUPUTS"",151,0)"
^XMB(3.9,152,2,910,0)=" S TIUD0=$G(^TIU(8925,TIUDA,0))"
^XMB(3.9,152,2,911,0)="""RTN"",""TIUPUTS"",152,0)"
^XMB(3.9,152,2,912,0)=" I +$$ISA^TIULX(+TIUD0,+$$CLASS^TIUSROI(""OPERATION REPORTS"")) S TIUY=1 I 1"
^XMB(3.9,152,2,913,0)="""RTN"",""TIUPUTS"",153,0)"
^XMB(3.9,152,2,914,0)=" E  I +$$ISA^TIULX(+TIUD0,+$$CLASS^TIUSROI(""PROCEDURE REPORT (NON-O.R.)"")) S TIUY=1"
^XMB(3.9,152,2,915,0)="""RTN"",""TIUPUTS"",154,0)"
^XMB(3.9,152,2,916,0)=" Q TIUY"
^XMB(3.9,152,2,917,0)="""VER"")"
^XMB(3.9,152,2,918,0)="8.0^22.0"
^XMB(3.9,152,2,919,0)="""BLD"",6601,6)"
^XMB(3.9,152,2,920,0)="^200"
^XMB(3.9,152,2,921,0)="$END KID TIU*1.0*204"
^XMB(3.9,152,6,0)="^3.911A^2^2"
^XMB(3.9,152,6,1,0)="POSTMASTER"
^XMB(3.9,152,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,152,6,"B","POSTMASTER",1)=""
^XMB(3.9,152,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,153,0)="TIU-1_SEQ-201_PAT-208.KID^.5^3061008.015743^^^^K"
^XMB(3.9,153,.6)="3061008"
^XMB(3.9,153,1,0)="^3.91A^2^2"
^XMB(3.9,153,1,1,0)=".5^0^3061008.015743^^^^^^^3061008.015743"
^XMB(3.9,153,1,2,0)="1^0^3061008.022839^^^^^^^3061008.022839"
^XMB(3.9,153,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,153,1,"C",.5,1)=""
^XMB(3.9,153,1,"C",1,2)=""
^XMB(3.9,153,2,0)="^^1239^1239^3061008"
^XMB(3.9,153,2,1,0)="$TXT Released TIU*1*208 SEQ #201"
^XMB(3.9,153,2,2,0)="Extracted from mail message"
^XMB(3.9,153,2,3,0)="$END TXT"
^XMB(3.9,153,2,4,0)="$KID TIU*1.0*208"
^XMB(3.9,153,2,5,0)="**INSTALL NAME**"
^XMB(3.9,153,2,6,0)="TIU*1.0*208"
^XMB(3.9,153,2,7,0)="""BLD"",6577,0)"
^XMB(3.9,153,2,8,0)="TIU*1.0*208^TEXT INTEGRATION UTILITIES^0^3060130^y"
^XMB(3.9,153,2,9,0)="""BLD"",6577,1,0)"
^XMB(3.9,153,2,10,0)="^^3^3^3051220^"
^XMB(3.9,153,2,11,0)="""BLD"",6577,1,1,0)"
^XMB(3.9,153,2,12,0)="Fix display of a long Author's name in the TIU BROWSE menu options and "
^XMB(3.9,153,2,13,0)="""BLD"",6577,1,2,0)"
^XMB(3.9,153,2,14,0)="fix the duplicate display of notes in the TIU SEARCH BY PATIENT/TITLE "
^XMB(3.9,153,2,15,0)="""BLD"",6577,1,3,0)"
^XMB(3.9,153,2,16,0)="option."
^XMB(3.9,153,2,17,0)="""BLD"",6577,4,0)"
^XMB(3.9,153,2,18,0)="^9.64PA^^"
^XMB(3.9,153,2,19,0)="""BLD"",6577,""ABPKG"")"
^XMB(3.9,153,2,20,0)="n"
^XMB(3.9,153,2,21,0)="""BLD"",6577,""KRN"",0)"
^XMB(3.9,153,2,22,0)="^9.67PA^8989.52^19"
^XMB(3.9,153,2,23,0)="""BLD"",6577,""KRN"",.4,0)"
^XMB(3.9,153,2,24,0)=".4"
^XMB(3.9,153,2,25,0)="""BLD"",6577,""KRN"",.401,0)"
^XMB(3.9,153,2,26,0)=".401"
^XMB(3.9,153,2,27,0)="""BLD"",6577,""KRN"",.402,0)"
^XMB(3.9,153,2,28,0)=".402"
^XMB(3.9,153,2,29,0)="""BLD"",6577,""KRN"",.403,0)"
^XMB(3.9,153,2,30,0)=".403"
^XMB(3.9,153,2,31,0)="""BLD"",6577,""KRN"",.5,0)"
^XMB(3.9,153,2,32,0)=".5"
^XMB(3.9,153,2,33,0)="""BLD"",6577,""KRN"",.84,0)"
^XMB(3.9,153,2,34,0)=".84"
^XMB(3.9,153,2,35,0)="""BLD"",6577,""KRN"",3.6,0)"
^XMB(3.9,153,2,36,0)="3.6"
^XMB(3.9,153,2,37,0)="""BLD"",6577,""KRN"",3.8,0)"
^XMB(3.9,153,2,38,0)="3.8"
^XMB(3.9,153,2,39,0)="""BLD"",6577,""KRN"",9.2,0)"
^XMB(3.9,153,2,40,0)="9.2"
^XMB(3.9,153,2,41,0)="""BLD"",6577,""KRN"",9.8,0)"
^XMB(3.9,153,2,42,0)="9.8"
^XMB(3.9,153,2,43,0)="""BLD"",6577,""KRN"",9.8,""NM"",0)"
^XMB(3.9,153,2,44,0)="^9.68A^3^3"
^XMB(3.9,153,2,45,0)="""BLD"",6577,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,153,2,46,0)="TIUBR^^0^45272783"
^XMB(3.9,153,2,47,0)="""BLD"",6577,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,153,2,48,0)="TIUR2^^0^64720639"
^XMB(3.9,153,2,49,0)="""BLD"",6577,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,153,2,50,0)="TIUSRVR1^^0^34950114"
^XMB(3.9,153,2,51,0)="""BLD"",6577,""KRN"",9.8,""NM"",""B"",""TIUBR"",1)"
^XMB(3.9,153,2,52,0)=""
^XMB(3.9,153,2,53,0)="""BLD"",6577,""KRN"",9.8,""NM"",""B"",""TIUR2"",2)"
^XMB(3.9,153,2,54,0)=""
^XMB(3.9,153,2,55,0)="""BLD"",6577,""KRN"",9.8,""NM"",""B"",""TIUSRVR1"",3)"
^XMB(3.9,153,2,56,0)=""
^XMB(3.9,153,2,57,0)="""BLD"",6577,""KRN"",19,0)"
^XMB(3.9,153,2,58,0)="19"
^XMB(3.9,153,2,59,0)="""BLD"",6577,""KRN"",19.1,0)"
^XMB(3.9,153,2,60,0)="19.1"
^XMB(3.9,153,2,61,0)="""BLD"",6577,""KRN"",101,0)"
^XMB(3.9,153,2,62,0)="101"
^XMB(3.9,153,2,63,0)="""BLD"",6577,""KRN"",409.61,0)"
^XMB(3.9,153,2,64,0)="409.61"
^XMB(3.9,153,2,65,0)="""BLD"",6577,""KRN"",771,0)"
^XMB(3.9,153,2,66,0)="771"
^XMB(3.9,153,2,67,0)="""BLD"",6577,""KRN"",870,0)"
^XMB(3.9,153,2,68,0)="870"
^XMB(3.9,153,2,69,0)="""BLD"",6577,""KRN"",8989.51,0)"
^XMB(3.9,153,2,70,0)="8989.51"
^XMB(3.9,153,2,71,0)="""BLD"",6577,""KRN"",8989.52,0)"
^XMB(3.9,153,2,72,0)="8989.52"
^XMB(3.9,153,2,73,0)="""BLD"",6577,""KRN"",8994,0)"
^XMB(3.9,153,2,74,0)="8994"
^XMB(3.9,153,2,75,0)="""BLD"",6577,""KRN"",""B"",.4,.4)"
^XMB(3.9,153,2,76,0)=""
^XMB(3.9,153,2,77,0)="""BLD"",6577,""KRN"",""B"",.401,.401)"
^XMB(3.9,153,2,78,0)=""
^XMB(3.9,153,2,79,0)="""BLD"",6577,""KRN"",""B"",.402,.402)"
^XMB(3.9,153,2,80,0)=""
^XMB(3.9,153,2,81,0)="""BLD"",6577,""KRN"",""B"",.403,.403)"
^XMB(3.9,153,2,82,0)=""
^XMB(3.9,153,2,83,0)="""BLD"",6577,""KRN"",""B"",.5,.5)"
^XMB(3.9,153,2,84,0)=""
^XMB(3.9,153,2,85,0)="""BLD"",6577,""KRN"",""B"",.84,.84)"
^XMB(3.9,153,2,86,0)=""
^XMB(3.9,153,2,87,0)="""BLD"",6577,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,153,2,88,0)=""
^XMB(3.9,153,2,89,0)="""BLD"",6577,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,153,2,90,0)=""
^XMB(3.9,153,2,91,0)="""BLD"",6577,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,153,2,92,0)=""
^XMB(3.9,153,2,93,0)="""BLD"",6577,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,153,2,94,0)=""
^XMB(3.9,153,2,95,0)="""BLD"",6577,""KRN"",""B"",19,19)"
^XMB(3.9,153,2,96,0)=""
^XMB(3.9,153,2,97,0)="""BLD"",6577,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,153,2,98,0)=""
^XMB(3.9,153,2,99,0)="""BLD"",6577,""KRN"",""B"",101,101)"
^XMB(3.9,153,2,100,0)=""
^XMB(3.9,153,2,101,0)="""BLD"",6577,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,153,2,102,0)=""
^XMB(3.9,153,2,103,0)="""BLD"",6577,""KRN"",""B"",771,771)"
^XMB(3.9,153,2,104,0)=""
^XMB(3.9,153,2,105,0)="""BLD"",6577,""KRN"",""B"",870,870)"
^XMB(3.9,153,2,106,0)=""
^XMB(3.9,153,2,107,0)="""BLD"",6577,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,153,2,108,0)=""
^XMB(3.9,153,2,109,0)="""BLD"",6577,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,153,2,110,0)=""
^XMB(3.9,153,2,111,0)="""BLD"",6577,""KRN"",""B"",8994,8994)"
^XMB(3.9,153,2,112,0)=""
^XMB(3.9,153,2,113,0)="""BLD"",6577,""QUES"",0)"
^XMB(3.9,153,2,114,0)="^9.62^^"
^XMB(3.9,153,2,115,0)="""BLD"",6577,""REQB"",0)"
^XMB(3.9,153,2,116,0)="^9.611^3^3"
^XMB(3.9,153,2,117,0)="""BLD"",6577,""REQB"",1,0)"
^XMB(3.9,153,2,118,0)="TIU*1.0*173^2"
^XMB(3.9,153,2,119,0)="""BLD"",6577,""REQB"",2,0)"
^XMB(3.9,153,2,120,0)="TIU*1.0*113^2"
^XMB(3.9,153,2,121,0)="""BLD"",6577,""REQB"",3,0)"
^XMB(3.9,153,2,122,0)="TIU*1.0*186^2"
^XMB(3.9,153,2,123,0)="""BLD"",6577,""REQB"",""B"",""TIU*1.0*113"",2)"
^XMB(3.9,153,2,124,0)=""
^XMB(3.9,153,2,125,0)="""BLD"",6577,""REQB"",""B"",""TIU*1.0*173"",1)"
^XMB(3.9,153,2,126,0)=""
^XMB(3.9,153,2,127,0)="""BLD"",6577,""REQB"",""B"",""TIU*1.0*186"",3)"
^XMB(3.9,153,2,128,0)=""
^XMB(3.9,153,2,129,0)="""MBREQ"")"
^XMB(3.9,153,2,130,0)="0"
^XMB(3.9,153,2,131,0)="""PKG"",506,-1)"
^XMB(3.9,153,2,132,0)="1^1"
^XMB(3.9,153,2,133,0)="""PKG"",506,0)"
^XMB(3.9,153,2,134,0)="TEXT INTEGRATION UTILITIES^TIU^Text Integration Utilities "
^XMB(3.9,153,2,135,0)="""PKG"",506,20,0)"
^XMB(3.9,153,2,136,0)="^9.402P^^"
^XMB(3.9,153,2,137,0)="""PKG"",506,22,0)"
^XMB(3.9,153,2,138,0)="^9.49I^1^1"
^XMB(3.9,153,2,139,0)="""PKG"",506,22,1,0)"
^XMB(3.9,153,2,140,0)="1.0^2970620^2970916^3316"
^XMB(3.9,153,2,141,0)="""PKG"",506,22,1,""PAH"",1,0)"
^XMB(3.9,153,2,142,0)="208^3060130"
^XMB(3.9,153,2,143,0)="""PKG"",506,22,1,""PAH"",1,1,0)"
^XMB(3.9,153,2,144,0)="^^3^3^3060130"
^XMB(3.9,153,2,145,0)="""PKG"",506,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,153,2,146,0)="Fix display of a long Author's name in the TIU BROWSE menu options and "
^XMB(3.9,153,2,147,0)="""PKG"",506,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,153,2,148,0)="fix the duplicate display of notes in the TIU SEARCH BY PATIENT/TITLE "
^XMB(3.9,153,2,149,0)="""PKG"",506,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,153,2,150,0)="option."
^XMB(3.9,153,2,151,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,153,2,152,0)="Y"
^XMB(3.9,153,2,153,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,153,2,154,0)="^D REP^XPDH"
^XMB(3.9,153,2,155,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,153,2,156,0)="Shall I write over your |FLAG| File"
^XMB(3.9,153,2,157,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,153,2,158,0)="YES"
^XMB(3.9,153,2,159,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,153,2,160,0)="D XPF1^XPDIQ"
^XMB(3.9,153,2,161,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,153,2,162,0)="Y"
^XMB(3.9,153,2,163,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,153,2,164,0)="^D DTA^XPDH"
^XMB(3.9,153,2,165,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,153,2,166,0)="Want my data |FLAG| yours"
^XMB(3.9,153,2,167,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,153,2,168,0)="YES"
^XMB(3.9,153,2,169,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,153,2,170,0)="D XPF2^XPDIQ"
^XMB(3.9,153,2,171,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,153,2,172,0)="YO"
^XMB(3.9,153,2,173,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,153,2,174,0)="^D INHIBIT^XPDH"
^XMB(3.9,153,2,175,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,153,2,176,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,153,2,177,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,153,2,178,0)="YES"
^XMB(3.9,153,2,179,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,153,2,180,0)="D XPI1^XPDIQ"
^XMB(3.9,153,2,181,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,153,2,182,0)="PO^VA(200,:EM"
^XMB(3.9,153,2,183,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,153,2,184,0)="^D MG^XPDH"
^XMB(3.9,153,2,185,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,153,2,186,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,153,2,187,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,153,2,188,0)=""
^XMB(3.9,153,2,189,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,153,2,190,0)="D XPM1^XPDIQ"
^XMB(3.9,153,2,191,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,153,2,192,0)="Y"
^XMB(3.9,153,2,193,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,153,2,194,0)="^D MENU^XPDH"
^XMB(3.9,153,2,195,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,153,2,196,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,153,2,197,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,153,2,198,0)="YES"
^XMB(3.9,153,2,199,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,153,2,200,0)="D XPO1^XPDIQ"
^XMB(3.9,153,2,201,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,153,2,202,0)="Y"
^XMB(3.9,153,2,203,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,153,2,204,0)="^D OPT^XPDH"
^XMB(3.9,153,2,205,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,153,2,206,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,153,2,207,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,153,2,208,0)="YES"
^XMB(3.9,153,2,209,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,153,2,210,0)="D XPZ1^XPDIQ"
^XMB(3.9,153,2,211,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,153,2,212,0)="Y"
^XMB(3.9,153,2,213,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,153,2,214,0)="^D RTN^XPDH"
^XMB(3.9,153,2,215,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,153,2,216,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,153,2,217,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,153,2,218,0)="NO"
^XMB(3.9,153,2,219,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,153,2,220,0)="D XPZ2^XPDIQ"
^XMB(3.9,153,2,221,0)="""RTN"")"
^XMB(3.9,153,2,222,0)="3"
^XMB(3.9,153,2,223,0)="""RTN"",""TIUBR"")"
^XMB(3.9,153,2,224,0)="0^1^B45272783^B45272130"
^XMB(3.9,153,2,225,0)="""RTN"",""TIUBR"",1,0)"
^XMB(3.9,153,2,226,0)="TIUBR ; SLC/JER - Browse Action Subroutines ;4/18/2001 16:36"
^XMB(3.9,153,2,227,0)="""RTN"",""TIUBR"",2,0)"
^XMB(3.9,153,2,228,0)=" ;;1.0;TEXT INTEGRATION UTILITIES;**32,87,93,58,100,162,112,173,208**;Jun 20, 1997"
^XMB(3.9,153,2,229,0)="""RTN"",""TIUBR"",3,0)"
^XMB(3.9,153,2,230,0)=" ; Move LOADSIG, XTRASIG, LOADFOR, LOADREC to TIUBR1."
^XMB(3.9,153,2,231,0)="""RTN"",""TIUBR"",4,0)"
^XMB(3.9,153,2,232,0)="EN ; Entry code for LM templates TIU BROWSE"
^XMB(3.9,153,2,233,0)="""RTN"",""TIUBR"",5,0)"
^XMB(3.9,153,2,234,0)=" N TIUY"
^XMB(3.9,153,2,235,0)="""RTN"",""TIUBR"",6,0)"
^XMB(3.9,153,2,236,0)=" ;Kill TIUGDATA in CLEAN; don't new it here"
^XMB(3.9,153,2,237,0)="""RTN"",""TIUBR"",7,0)"
^XMB(3.9,153,2,238,0)=" ; -- Set TIUGDATA, which describes the note originally"
^XMB(3.9,153,2,239,0)="""RTN"",""TIUBR"",8,0)"
^XMB(3.9,153,2,240,0)=" ;    selected to be browsed. --"
^XMB(3.9,153,2,241,0)="""RTN"",""TIUBR"",9,0)"
^XMB(3.9,153,2,242,0)=" ; TIUGDATA = 0 or"
^XMB(3.9,153,2,243,0)="""RTN"",""TIUBR"",10,0)"
^XMB(3.9,153,2,244,0)=" ;          = TIUDA^HASIDKID^TIUD21^PRMSORT, where"
^XMB(3.9,153,2,245,0)="""RTN"",""TIUBR"",11,0)"
^XMB(3.9,153,2,246,0)=" ;            PRMSORT = ""TITLE"" or ""REFDT"".  See 8925.95, fld .18"
^XMB(3.9,153,2,247,0)="""RTN"",""TIUBR"",12,0)"
^XMB(3.9,153,2,248,0)=" S TIUGDATA=$$IDDATA^TIURECL1(TIUDA)"
^XMB(3.9,153,2,249,0)="""RTN"",""TIUBR"",13,0)"
^XMB(3.9,153,2,250,0)=" D BLDTMP(TIUDA)"
^XMB(3.9,153,2,251,0)="""RTN"",""TIUBR"",14,0)"
^XMB(3.9,153,2,252,0)=" Q"
^XMB(3.9,153,2,253,0)="""RTN"",""TIUBR"",15,0)"
^XMB(3.9,153,2,254,0)="HDR ; Build Header"
^XMB(3.9,153,2,255,0)="""RTN"",""TIUBR"",16,0)"
^XMB(3.9,153,2,256,0)=" N TIUDTYP,DFN"
^XMB(3.9,153,2,257,0)="""RTN"",""TIUBR"",17,0)"
^XMB(3.9,153,2,258,0)=" I '$D(TIUPRM0)!'$D(TIUPRM1) D SETPARM^TIULE"
^XMB(3.9,153,2,259,0)="""RTN"",""TIUBR"",18,0)"
^XMB(3.9,153,2,260,0)=" D:$D(TIU)'>9 GETTIU^TIULD(.TIU,+TIUDA)"
^XMB(3.9,153,2,261,0)="""RTN"",""TIUBR"",19,0)"
^XMB(3.9,153,2,262,0)=" S VALMHDR(1)=$$CENTER^TIULS($P($G(TIU(""DOCTYP"")),U,2))"
^XMB(3.9,153,2,263,0)="""RTN"",""TIUBR"",20,0)"
^XMB(3.9,153,2,264,0)=" ;  Docmt header line Patname, SSN, [Location, Visit]:"
^XMB(3.9,153,2,265,0)="""RTN"",""TIUBR"",21,0)"
^XMB(3.9,153,2,266,0)=" S VALMHDR(2)=$$SETREC(TIUGDATA)"
^XMB(3.9,153,2,267,0)="""RTN"",""TIUBR"",22,0)"
^XMB(3.9,153,2,268,0)=" Q"
^XMB(3.9,153,2,269,0)="""RTN"",""TIUBR"",23,0)"
^XMB(3.9,153,2,270,0)="BLDTMP(TIUDA) ; Build ^TMP(""TIUVIEW"",$J,"
^XMB(3.9,153,2,271,0)="""RTN"",""TIUBR"",24,0)"
^XMB(3.9,153,2,272,0)=" ; Requires TIUDA = IFN of note selected to be browsed."
^XMB(3.9,153,2,273,0)="""RTN"",""TIUBR"",25,0)"
^XMB(3.9,153,2,274,0)=" ; Needs TIUGDATA, set in EN"
^XMB(3.9,153,2,275,0)="""RTN"",""TIUBR"",26,0)"
^XMB(3.9,153,2,276,0)=" N TIUI,TIUL,TIUREC,TIUDADD,ONBROWSE S (TIUDADD,TIUI)=0"
^XMB(3.9,153,2,277,0)="""RTN"",""TIUBR"",27,0)"
^XMB(3.9,153,2,278,0)=" N TIUNAME K ^TMP(""TIUVIEW"",$J),^TMP(""TIU FOCUS"",$J)"
^XMB(3.9,153,2,279,0)="""RTN"",""TIUBR"",28,0)"
^XMB(3.9,153,2,280,0)=" I '$D(^TIU(8925,+TIUDA,0)) S VALMQUIT=1 Q"
^XMB(3.9,153,2,281,0)="""RTN"",""TIUBR"",29,0)"
^XMB(3.9,153,2,282,0)=" S ^TMP(""TIU FOCUS"",$J)=TIUDA"
^XMB(3.9,153,2,283,0)="""RTN"",""TIUBR"",30,0)"
^XMB(3.9,153,2,284,0)=" D INQUIRE^TIUGBR(TIUDA,.TIUREC)"
^XMB(3.9,153,2,285,0)="""RTN"",""TIUBR"",31,0)"
^XMB(3.9,153,2,286,0)=" I $D(TIUREC)>9 W !!,""Opening ""_TIUREC(8925,+TIUDA,.01)_"" record for review..."""
^XMB(3.9,153,2,287,0)="""RTN"",""TIUBR"",32,0)"
^XMB(3.9,153,2,288,0)=" ; --- if the document has a browse action, execute it ---"
^XMB(3.9,153,2,289,0)="""RTN"",""TIUBR"",33,0)"
^XMB(3.9,153,2,290,0)=" S ONBROWSE=$$ONBROWSE^TIULC1(+$G(^TIU(8925,+TIUDA,0)))"
^XMB(3.9,153,2,291,0)="""RTN"",""TIUBR"",34,0)"
^XMB(3.9,153,2,292,0)=" I $L(ONBROWSE) D LOADSUPP(ONBROWSE,TIUDA,.TIUL)"
^XMB(3.9,153,2,293,0)="""RTN"",""TIUBR"",35,0)"
^XMB(3.9,153,2,294,0)=" ; ---- Load dictation, transcription data, etc.: ----"
^XMB(3.9,153,2,295,0)="""RTN"",""TIUBR"",36,0)"
^XMB(3.9,153,2,296,0)=" D LOADTOP(.TIUREC,TIUDA,.TIUL,TIUGDATA)"
^XMB(3.9,153,2,297,0)="""RTN"",""TIUBR"",37,0)"
^XMB(3.9,153,2,298,0)=" ; ---- Load the remainder of the record: ----"
^XMB(3.9,153,2,299,0)="""RTN"",""TIUBR"",38,0)"
^XMB(3.9,153,2,300,0)=" D LOADREC^TIUBR1(TIUDA,.TIUL,TIUGDATA)"
^XMB(3.9,153,2,301,0)="""RTN"",""TIUBR"",39,0)"
^XMB(3.9,153,2,302,0)=" K ^TMP(""TIU FOCUS"",$J)"
^XMB(3.9,153,2,303,0)="""RTN"",""TIUBR"",40,0)"
^XMB(3.9,153,2,304,0)=" S ^TMP(""TIUVIEW"",$J,0)=$G(^TIU(8925,+TIUDA,""TEXT"",0))"
^XMB(3.9,153,2,305,0)="""RTN"",""TIUBR"",41,0)"
^XMB(3.9,153,2,306,0)=" S $P(^TMP(""TIUVIEW"",$J,0),U,3,4)=$G(TIUL)_U_$G(TIUL),VALMCNT=+$G(TIUL)"
^XMB(3.9,153,2,307,0)="""RTN"",""TIUBR"",42,0)"
^XMB(3.9,153,2,308,0)=" Q"
^XMB(3.9,153,2,309,0)="""RTN"",""TIUBR"",43,0)"
^XMB(3.9,153,2,310,0)="LOADSUPP(METHOD,TIUDA,TIUL) ; Execute OnBrowse/Load Supplementary data"
^XMB(3.9,153,2,311,0)="""RTN"",""TIUBR"",44,0)"
^XMB(3.9,153,2,312,0)=" N TIUY,TIUI S TIUI=0"
^XMB(3.9,153,2,313,0)="""RTN"",""TIUBR"",45,0)"
^XMB(3.9,153,2,314,0)=" X METHOD I '$D(@TIUY) Q"
^XMB(3.9,153,2,315,0)="""RTN"",""TIUBR"",46,0)"
^XMB(3.9,153,2,316,0)=" F  S TIUI=$O(@TIUY@(TIUI)) Q:+TIUI'>0  D"
^XMB(3.9,153,2,317,0)="""RTN"",""TIUBR"",47,0)"
^XMB(3.9,153,2,318,0)=" . S TIUL=+$G(TIUL)+1,@VALMAR@(TIUL,0)=$G(@TIUY@(TIUI))"
^XMB(3.9,153,2,319,0)="""RTN"",""TIUBR"",48,0)"
^XMB(3.9,153,2,320,0)=" S TIUL=+$G(TIUL)+1,@VALMAR@(TIUL,0)="" """
^XMB(3.9,153,2,321,0)="""RTN"",""TIUBR"",49,0)"
^XMB(3.9,153,2,322,0)=" K @TIUY"
^XMB(3.9,153,2,323,0)="""RTN"",""TIUBR"",50,0)"
^XMB(3.9,153,2,324,0)=" Q"
^XMB(3.9,153,2,325,0)="""RTN"",""TIUBR"",51,0)"
^XMB(3.9,153,2,326,0)="LOADTOP(TIUREC,TIUDA,TIUL,TIUGDATA) ; Load dictation, transcription data, etc."
^XMB(3.9,153,2,327,0)="""RTN"",""TIUBR"",52,0)"
^XMB(3.9,153,2,328,0)=" ; Requires array TIUREC, TIUDA, array TIUL, TIUGDATA"
^XMB(3.9,153,2,329,0)="""RTN"",""TIUBR"",53,0)"
^XMB(3.9,153,2,330,0)=" N TIUY,SHORT,CURCHLD,CURPRNT,SELCHLD,SELPRNT"
^XMB(3.9,153,2,331,0)="""RTN"",""TIUBR"",54,0)"
^XMB(3.9,153,2,332,0)=" ; ---- For ID note, include Title, [Location, & Visit] with each"
^XMB(3.9,153,2,333,0)="""RTN"",""TIUBR"",55,0)"
^XMB(3.9,153,2,334,0)=" ;      entry, since they vary by entry."
^XMB(3.9,153,2,335,0)="""RTN"",""TIUBR"",56,0)"
^XMB(3.9,153,2,336,0)=" ; ---- Follow with Date, Author, etc."
^XMB(3.9,153,2,337,0)="""RTN"",""TIUBR"",57,0)"
^XMB(3.9,153,2,338,0)=" ; ---- For ID children in whole note display, shorten top info:"
^XMB(3.9,153,2,339,0)="""RTN"",""TIUBR"",58,0)"
^XMB(3.9,153,2,340,0)=" ;      Instead of Title, Location, Visit, Date, Author, etc.,"
^XMB(3.9,153,2,341,0)="""RTN"",""TIUBR"",59,0)"
^XMB(3.9,153,2,342,0)=" ;      use just Title, followed by just Date and Status:"
^XMB(3.9,153,2,343,0)="""RTN"",""TIUBR"",60,0)"
^XMB(3.9,153,2,344,0)=" S (SHORT,CURCHLD,CURPRNT,SELCHLD,SELPRNT)=0"
^XMB(3.9,153,2,345,0)="""RTN"",""TIUBR"",61,0)"
^XMB(3.9,153,2,346,0)=" I $P(TIUGDATA,U,3) S SELCHLD=1 ; Selected record was IDchild"
^XMB(3.9,153,2,347,0)="""RTN"",""TIUBR"",62,0)"
^XMB(3.9,153,2,348,0)=" I $P(TIUGDATA,U,2) S SELPRNT=1"
^XMB(3.9,153,2,349,0)="""RTN"",""TIUBR"",63,0)"
^XMB(3.9,153,2,350,0)=" I SELCHLD,TIUDA'=$P(TIUGDATA,U,3) S CURCHLD=1 ; Current rec is IDchild"
^XMB(3.9,153,2,351,0)="""RTN"",""TIUBR"",64,0)"
^XMB(3.9,153,2,352,0)=" I SELCHLD,TIUDA=$P(TIUGDATA,U,3) S CURPRNT=1"
^XMB(3.9,153,2,353,0)="""RTN"",""TIUBR"",65,0)"
^XMB(3.9,153,2,354,0)=" I SELPRNT,TIUDA=+TIUGDATA S CURPRNT=1"
^XMB(3.9,153,2,355,0)="""RTN"",""TIUBR"",66,0)"
^XMB(3.9,153,2,356,0)=" I SELPRNT,TIUDA'=+TIUGDATA S CURCHLD=1"
^XMB(3.9,153,2,357,0)="""RTN"",""TIUBR"",67,0)"
^XMB(3.9,153,2,358,0)=" I SELPRNT,CURCHLD S SHORT=1 ;Child in whole note: shorten top info"
^XMB(3.9,153,2,359,0)="""RTN"",""TIUBR"",68,0)"
^XMB(3.9,153,2,360,0)=" I SELCHLD,CURCHLD,$G(TIUGWHOL) S SHORT=1"
^XMB(3.9,153,2,361,0)="""RTN"",""TIUBR"",69,0)"
^XMB(3.9,153,2,362,0)=" I SELCHLD!SELPRNT D"
^XMB(3.9,153,2,363,0)="""RTN"",""TIUBR"",70,0)"
^XMB(3.9,153,2,364,0)=" . D IDTOP^TIUGBR(TIUDA,.TIUL,SHORT,CURPRNT)"
^XMB(3.9,153,2,365,0)="""RTN"",""TIUBR"",71,0)"
^XMB(3.9,153,2,366,0)=" S TIUL=+$G(TIUL)+1,TIUY="""""
^XMB(3.9,153,2,367,0)="""RTN"",""TIUBR"",72,0)"
^XMB(3.9,153,2,368,0)=" I SHORT D"
^XMB(3.9,153,2,369,0)="""RTN"",""TIUBR"",73,0)"
^XMB(3.9,153,2,370,0)=" . S TIUY=$$SETSTR^VALM1(""DATE OF NOTE: ""_TIUREC(8925,+TIUDA,1301),$G(TIUY),1,39)"
^XMB(3.9,153,2,371,0)="""RTN"",""TIUBR"",74,0)"
^XMB(3.9,153,2,372,0)=" . S TIUY=$$SETSTR^VALM1(""STATUS: ""_TIUREC(8925,+TIUDA,.05),$G(TIUY),42,38)"
^XMB(3.9,153,2,373,0)="""RTN"",""TIUBR"",75,0)"
^XMB(3.9,153,2,374,0)=" . S @VALMAR@(TIUL,0)=TIUY"
^XMB(3.9,153,2,375,0)="""RTN"",""TIUBR"",76,0)"
^XMB(3.9,153,2,376,0)=" I 'SHORT D"
^XMB(3.9,153,2,377,0)="""RTN"",""TIUBR"",77,0)"
^XMB(3.9,153,2,378,0)=" . I $L(TIUREC(8925,+TIUDA,1307)) D  I 1"
^XMB(3.9,153,2,379,0)="""RTN"",""TIUBR"",78,0)"
^XMB(3.9,153,2,380,0)=" . . S TIUY=$$SETSTR^VALM1(""DICT DATE: ""_TIUREC(8925,+TIUDA,1307),$G(TIUY),4,39)"
^XMB(3.9,153,2,381,0)="""RTN"",""TIUBR"",79,0)"
^XMB(3.9,153,2,382,0)=" . E  S TIUY=$$SETSTR^VALM1(""DATE OF NOTE: ""_TIUREC(8925,+TIUDA,1301),$G(TIUY),1,39)"
^XMB(3.9,153,2,383,0)="""RTN"",""TIUBR"",80,0)"
^XMB(3.9,153,2,384,0)=" . S TIUY=$$SETSTR^VALM1(""ENTRY DATE: ""_TIUREC(8925,+TIUDA,1201),$G(TIUY),38,39)"
^XMB(3.9,153,2,385,0)="""RTN"",""TIUBR"",81,0)"
^XMB(3.9,153,2,386,0)=" . S @VALMAR@(TIUL,0)=TIUY"
^XMB(3.9,153,2,387,0)="""RTN"",""TIUBR"",82,0)"
^XMB(3.9,153,2,388,0)=" . S TIUL=TIUL+1,TIUY="""""
^XMB(3.9,153,2,389,0)="""RTN"",""TIUBR"",83,0)"
^XMB(3.9,153,2,390,0)=" . I $L(TIUREC(8925,+TIUDA,1307)) D  I 1"
^XMB(3.9,153,2,391,0)="""RTN"",""TIUBR"",84,0)"
^XMB(3.9,153,2,392,0)=" . . I +$G(^TIU(8925,+TIUDA,0))=$$CHKFILE^TIUADCL(8925.1,""OPERATION REPORT"",""I $P(^(0),U,4)=""""DOC"""""") S TIUY=$$SETSTR^VALM1(""SURGEON: ""_TIUREC(8925,+TIUDA,1202),$G(TIUY),6,32) Q"
^XMB(3.9,153,2,393,0)="""RTN"",""TIUBR"",85,0)"
^XMB(3.9,153,2,394,0)=" . . S TIUY=$$SETSTR^VALM1(""DICTATED BY: ""_TIUREC(8925,+TIUDA,1202),$G(TIUY),2,32)"
^XMB(3.9,153,2,395,0)="""RTN"",""TIUBR"",86,0)"
^XMB(3.9,153,2,396,0)=" . E  D"
^XMB(3.9,153,2,397,0)="""RTN"",""TIUBR"",87,0)"
^XMB(3.9,153,2,398,0)=" . . S TIUY=$$SETSTR^VALM1(""AUTHOR: ""_TIUREC(8925,+TIUDA,1202),$G(TIUY),7,27)"
^XMB(3.9,153,2,399,0)="""RTN"",""TIUBR"",88,0)"
^XMB(3.9,153,2,400,0)=" . . I +$G(^TIU(8925,+TIUDA,0))=$$CHKFILE^TIUADCL(8925.1,""OPERATION REPORT"",""I $P(^(0),U,4)=""""DOC"""""") S TIUY=$$SETSTR^VALM1(""SURGEON: ""_TIUREC(8925,+TIUDA,1202),$G(TIUY),6,32)"
^XMB(3.9,153,2,401,0)="""RTN"",""TIUBR"",89,0)"
^XMB(3.9,153,2,402,0)=" . I $L(TIUREC(8925,+TIUDA,1209)) D  I 1"
^XMB(3.9,153,2,403,0)="""RTN"",""TIUBR"",90,0)"
^XMB(3.9,153,2,404,0)=" . . S TIUY=$$SETSTR^VALM1(""ATTENDING: ""_TIUREC(8925,+TIUDA,1209),$G(TIUY),39,40)"
^XMB(3.9,153,2,405,0)="""RTN"",""TIUBR"",91,0)"
^XMB(3.9,153,2,406,0)=" . E  S TIUY=$$SETSTR^VALM1(""EXP COSIGNER: ""_TIUREC(8925,+TIUDA,1208),$G(TIUY),36,40)"
^XMB(3.9,153,2,407,0)="""RTN"",""TIUBR"",92,0)"
^XMB(3.9,153,2,408,0)=" . S @VALMAR@(TIUL,0)=TIUY"
^XMB(3.9,153,2,409,0)="""RTN"",""TIUBR"",93,0)"
^XMB(3.9,153,2,410,0)=" . S TIUL=TIUL+1,TIUY="""""
^XMB(3.9,153,2,411,0)="""RTN"",""TIUBR"",94,0)"
^XMB(3.9,153,2,412,0)=" . S TIUY=$$SETSTR^VALM1(""URGENCY: ""_TIUREC(8925,+TIUDA,.09),$G(TIUY),6,36)"
^XMB(3.9,153,2,413,0)="""RTN"",""TIUBR"",95,0)"
^XMB(3.9,153,2,414,0)=" . S TIUY=$$SETSTR^VALM1(""STATUS: ""_TIUREC(8925,+TIUDA,.05),$G(TIUY),42,38)"
^XMB(3.9,153,2,415,0)="""RTN"",""TIUBR"",96,0)"
^XMB(3.9,153,2,416,0)=" . S @VALMAR@(TIUL,0)=TIUY"
^XMB(3.9,153,2,417,0)="""RTN"",""TIUBR"",97,0)"
^XMB(3.9,153,2,418,0)=" S TIUL=TIUL+1,TIUY="""""
^XMB(3.9,153,2,419,0)="""RTN"",""TIUBR"",98,0)"
^XMB(3.9,153,2,420,0)=" I '$L($G(^TIU(8925,+TIUDA,17))) S @VALMAR@(TIUL,0)=TIUY"
^XMB(3.9,153,2,421,0)="""RTN"",""TIUBR"",99,0)"
^XMB(3.9,153,2,422,0)=" E  D"
^XMB(3.9,153,2,423,0)="""RTN"",""TIUBR"",100,0)"
^XMB(3.9,153,2,424,0)=" . S TIUY=$$SETSTR^VALM1(""SUBJECT: ""_$G(^TIU(8925,+TIUDA,17)),$G(TIUY),6,74)"
^XMB(3.9,153,2,425,0)="""RTN"",""TIUBR"",101,0)"
^XMB(3.9,153,2,426,0)=" . S @VALMAR@(TIUL,0)=TIUY"
^XMB(3.9,153,2,427,0)="""RTN"",""TIUBR"",102,0)"
^XMB(3.9,153,2,428,0)=" . S TIUL=TIUL+1,TIUY="""",@VALMAR@(TIUL,0)=TIUY"
^XMB(3.9,153,2,429,0)="""RTN"",""TIUBR"",103,0)"
^XMB(3.9,153,2,430,0)=" I +$$HASADDEN^TIULC1(TIUDA) D"
^XMB(3.9,153,2,431,0)="""RTN"",""TIUBR"",104,0)"
^XMB(3.9,153,2,432,0)=" . S TIUY=""   *** ""_$$PNAME^TIULC1(+$G(^TIU(8925,TIUDA,0)))_"" Has ADDENDA ***"""
^XMB(3.9,153,2,433,0)="""RTN"",""TIUBR"",105,0)"
^XMB(3.9,153,2,434,0)=" . S TIUL=+$G(TIUL)+1,@VALMAR@(TIUL,0)=TIUY"
^XMB(3.9,153,2,435,0)="""RTN"",""TIUBR"",106,0)"
^XMB(3.9,153,2,436,0)=" . S TIUL=+$G(TIUL)+1,@VALMAR@(TIUL,0)="""""
^XMB(3.9,153,2,437,0)="""RTN"",""TIUBR"",107,0)"
^XMB(3.9,153,2,438,0)=" Q"
^XMB(3.9,153,2,439,0)="""RTN"",""TIUBR"",108,0)"
^XMB(3.9,153,2,440,0)=" ;"
^XMB(3.9,153,2,441,0)="""RTN"",""TIUBR"",109,0)"
^XMB(3.9,153,2,442,0)="LOADKIDS(TIUDA,TIUL,TIUGDATA,TIUGWHOL) ; Load ID kids of TIUDA"
^XMB(3.9,153,2,443,0)="""RTN"",""TIUBR"",110,0)"
^XMB(3.9,153,2,444,0)=" ; Requires TIUDA, array TIUL, TIUGDATA"
^XMB(3.9,153,2,445,0)="""RTN"",""TIUBR"",111,0)"
^XMB(3.9,153,2,446,0)=" N TIUK,PRMSORT,KIDDA,TIUD0,TIUD21"
^XMB(3.9,153,2,447,0)="""RTN"",""TIUBR"",112,0)"
^XMB(3.9,153,2,448,0)=" I $G(^TMP(""TIUR"",$J,""IDDATA"",TIUDA)) S PRMSORT=$P(^TMP(""TIUR"",$J,""IDDATA"",TIUDA),U,4)"
^XMB(3.9,153,2,449,0)="""RTN"",""TIUBR"",113,0)"
^XMB(3.9,153,2,450,0)=" E  S TIUD0=$G(^TIU(8925,TIUDA,0)),TIUD21=$G(^TIU(8925,TIUDA,21)),PRMSORT=$P($$IDDATA^TIURECL1(TIUDA,TIUD0,TIUD21),U,4)"
^XMB(3.9,153,2,451,0)="""RTN"",""TIUBR"",114,0)"
^XMB(3.9,153,2,452,0)=" D GETIDKID^TIURECL2(TIUDA,PRMSORT) ; sets array ^TMP(""TIUIDKID"",$J,"
^XMB(3.9,153,2,453,0)="""RTN"",""TIUBR"",115,0)"
^XMB(3.9,153,2,454,0)=" S TIUK=0"
^XMB(3.9,153,2,455,0)="""RTN"",""TIUBR"",116,0)"
^XMB(3.9,153,2,456,0)=" F  S TIUK=$O(^TMP(""TIUIDKID"",$J,TIUDA,TIUK)) Q:+TIUK'>0  D"
^XMB(3.9,153,2,457,0)="""RTN"",""TIUBR"",117,0)"
^XMB(3.9,153,2,458,0)=" . S KIDDA=^TMP(""TIUIDKID"",$J,TIUDA,TIUK)"
^XMB(3.9,153,2,459,0)="""RTN"",""TIUBR"",118,0)"
^XMB(3.9,153,2,460,0)=" . D LOADID^TIUGBR(KIDDA,.TIUL,TIUGDATA,$G(TIUGWHOL))"
^XMB(3.9,153,2,461,0)="""RTN"",""TIUBR"",119,0)"
^XMB(3.9,153,2,462,0)=" K ^TMP(""TIUIDKID"",$J)"
^XMB(3.9,153,2,463,0)="""RTN"",""TIUBR"",120,0)"
^XMB(3.9,153,2,464,0)=" Q"
^XMB(3.9,153,2,465,0)="""RTN"",""TIUBR"",121,0)"
^XMB(3.9,153,2,466,0)=" ;"
^XMB(3.9,153,2,467,0)="""RTN"",""TIUBR"",122,0)"
^XMB(3.9,153,2,468,0)="ISCOMP(DA) ; Evaluate whether a given record is a component"
^XMB(3.9,153,2,469,0)="""RTN"",""TIUBR"",123,0)"
^XMB(3.9,153,2,470,0)=" N TIUY,TIUTYP"
^XMB(3.9,153,2,471,0)="""RTN"",""TIUBR"",124,0)"
^XMB(3.9,153,2,472,0)=" S TIUTYP=+$G(^TIU(8925,DA,0))"
^XMB(3.9,153,2,473,0)="""RTN"",""TIUBR"",125,0)"
^XMB(3.9,153,2,474,0)=" S TIUY=$S($P($G(^TIU(8925.1,+TIUTYP,0)),U,4)=""CO"":1,1:0)"
^XMB(3.9,153,2,475,0)="""RTN"",""TIUBR"",126,0)"
^XMB(3.9,153,2,476,0)=" Q TIUY"
^XMB(3.9,153,2,477,0)="""RTN"",""TIUBR"",127,0)"
^XMB(3.9,153,2,478,0)="LOADADD(TIUDADD,TIUL) ; Load addenda"
^XMB(3.9,153,2,479,0)="""RTN"",""TIUBR"",128,0)"
^XMB(3.9,153,2,480,0)=" N TIUDADT,TIUJ,CANSEE"
^XMB(3.9,153,2,481,0)="""RTN"",""TIUBR"",129,0)"
^XMB(3.9,153,2,482,0)=" S CANSEE=$$CANDO^TIULP(+TIUDADD,""VIEW"")"
^XMB(3.9,153,2,483,0)="""RTN"",""TIUBR"",130,0)"
^XMB(3.9,153,2,484,0)=" S TIUJ=0,TIUL=+$G(TIUL)+1,@VALMAR@(TIUL,0)="" """
^XMB(3.9,153,2,485,0)="""RTN"",""TIUBR"",131,0)"
^XMB(3.9,153,2,486,0)=" S TIUDADT=$$DATE^TIULS($P($G(^TIU(8925,+TIUDADD,13)),U),""MM/DD/CCYY"")"
^XMB(3.9,153,2,487,0)="""RTN"",""TIUBR"",132,0)"
^XMB(3.9,153,2,488,0)=" S TIUL=TIUL+1,@VALMAR@(TIUL,0)=TIUDADT_"" ADDENDUM""_""                      STATUS: ""_$$STATUS^TIULF(TIUDADD) ;P162"
^XMB(3.9,153,2,489,0)="""RTN"",""TIUBR"",133,0)"
^XMB(3.9,153,2,490,0)=" I +CANSEE'>0 D  Q"
^XMB(3.9,153,2,491,0)="""RTN"",""TIUBR"",134,0)"
^XMB(3.9,153,2,492,0)=" . S TIUL=+$G(TIUL)+1"
^XMB(3.9,153,2,493,0)="""RTN"",""TIUBR"",135,0)"
^XMB(3.9,153,2,494,0)=" . S @VALMAR@(TIUL,0)=$P(CANSEE,U,2)"
^XMB(3.9,153,2,495,0)="""RTN"",""TIUBR"",136,0)"
^XMB(3.9,153,2,496,0)=" F  S TIUJ=$O(^TIU(8925,+TIUDADD,""TEXT"",TIUJ)) Q:+TIUJ'>0  D"
^XMB(3.9,153,2,497,0)="""RTN"",""TIUBR"",137,0)"
^XMB(3.9,153,2,498,0)=" . S TIUL=+$G(TIUL)+1"
^XMB(3.9,153,2,499,0)="""RTN"",""TIUBR"",138,0)"
^XMB(3.9,153,2,500,0)=" . S @VALMAR@(TIUL,0)=$G(^TIU(8925,+TIUDADD,""TEXT"",TIUJ,0))"
^XMB(3.9,153,2,501,0)="""RTN"",""TIUBR"",139,0)"
^XMB(3.9,153,2,502,0)=" D LOADSIG^TIUBR1(TIUDADD,.TIUL)"
^XMB(3.9,153,2,503,0)="""RTN"",""TIUBR"",140,0)"
^XMB(3.9,153,2,504,0)=" Q"
^XMB(3.9,153,2,505,0)="""RTN"",""TIUBR"",141,0)"
^XMB(3.9,153,2,506,0)=" ;"
^XMB(3.9,153,2,507,0)="""RTN"",""TIUBR"",142,0)"
^XMB(3.9,153,2,508,0)="SETREC(TIUGDATA) ; Sets docmt header line Patname, SSN, [Location, Visit]"
^XMB(3.9,153,2,509,0)="""RTN"",""TIUBR"",143,0)"
^XMB(3.9,153,2,510,0)=" ; Requires TIUGDATA"
^XMB(3.9,153,2,511,0)="""RTN"",""TIUBR"",144,0)"
^XMB(3.9,153,2,512,0)=" N Y"
^XMB(3.9,153,2,513,0)="""RTN"",""TIUBR"",145,0)"
^XMB(3.9,153,2,514,0)=" S Y=$$SETSTR^VALM1($$NAME^TIULS($G(TIU(""PNM"")),""LAST,FI MI""),$G(Y),1,15)"
^XMB(3.9,153,2,515,0)="""RTN"",""TIUBR"",146,0)"
^XMB(3.9,153,2,516,0)=" S Y=$$SETSTR^VALM1($G(TIU(""SSN"")),$G(Y),16,12)"
^XMB(3.9,153,2,517,0)="""RTN"",""TIUBR"",147,0)"
^XMB(3.9,153,2,518,0)=" ; ---- If TIUDA is an ID entry, write ID, ADDENDED? in header"
^XMB(3.9,153,2,519,0)="""RTN"",""TIUBR"",148,0)"
^XMB(3.9,153,2,520,0)=" ;      and leave out entry-specific info (Location, Visit)"
^XMB(3.9,153,2,521,0)="""RTN"",""TIUBR"",149,0)"
^XMB(3.9,153,2,522,0)=" ;      since that goes with each individual entry: ----"
^XMB(3.9,153,2,523,0)="""RTN"",""TIUBR"",150,0)"
^XMB(3.9,153,2,524,0)=" I $P(TIUGDATA,U,2)!$P(TIUGDATA,U,3) D  G SETRX"
^XMB(3.9,153,2,525,0)="""RTN"",""TIUBR"",151,0)"
^XMB(3.9,153,2,526,0)=" . S Y=$$SETSTR^VALM1(""Interdisciplinary ""_$S($P(TIUGDATA,U,2):""Note"",1:""Entry""),$G(Y),29,23)"
^XMB(3.9,153,2,527,0)="""RTN"",""TIUBR"",152,0)"
^XMB(3.9,153,2,528,0)=" . I $P(TIUGDATA,U,2) S Y=$$SETSTR^VALM1(""ADDENDED?""_$S($$HASADDEN^TIULC1(+TIUDA,1):"" Yes"",1:"" No""),$G(Y),66,13)"
^XMB(3.9,153,2,529,0)="""RTN"",""TIUBR"",153,0)"
^XMB(3.9,153,2,530,0)=" S Y=$$SETSTR^VALM1($P($G(TIU(""LOC"")),U,2),$G(Y),30,17)"
^XMB(3.9,153,2,531,0)="""RTN"",""TIUBR"",154,0)"
^XMB(3.9,153,2,532,0)=" I $L($G(TIU(""WARD""))) D"
^XMB(3.9,153,2,533,0)="""RTN"",""TIUBR"",155,0)"
^XMB(3.9,153,2,534,0)=" . S Y=$$SETSTR^VALM1(""Adm: ""_$$DATE^TIULS(+TIU(""EDT""),""MM/DD/CCYY""),$G(Y),48,15)"
^XMB(3.9,153,2,535,0)="""RTN"",""TIUBR"",156,0)"
^XMB(3.9,153,2,536,0)=" . S Y=$$SETSTR^VALM1(""Dis: ""_$$DATE^TIULS(+TIU(""LDT""),""MM/DD/CCYY""),$G(Y),65,15)"
^XMB(3.9,153,2,537,0)="""RTN"",""TIUBR"",157,0)"
^XMB(3.9,153,2,538,0)=" I '$L($G(TIU(""WARD""))) D"
^XMB(3.9,153,2,539,0)="""RTN"",""TIUBR"",158,0)"
^XMB(3.9,153,2,540,0)=" . S Y=$$SETSTR^VALM1(""Visit Date: ""_$$DATE^TIULS(+$G(TIU(""EDT"")),""MM/DD/CCYY HR:MIN""),$G(Y),51,28)"
^XMB(3.9,153,2,541,0)="""RTN"",""TIUBR"",159,0)"
^XMB(3.9,153,2,542,0)="SETRX Q Y"
^XMB(3.9,153,2,543,0)="""RTN"",""TIUBR"",160,0)"
^XMB(3.9,153,2,544,0)=" ;"
^XMB(3.9,153,2,545,0)="""RTN"",""TIUBR"",161,0)"
^XMB(3.9,153,2,546,0)="CLEAN ; Die, filthy spawn!!!"
^XMB(3.9,153,2,547,0)="""RTN"",""TIUBR"",162,0)"
^XMB(3.9,153,2,548,0)=" D CLEAN^VALM10 K VALMHDR,TIU,TIUPRM0,TIUPRM1,TIUGDATA"
^XMB(3.9,153,2,549,0)="""RTN"",""TIUBR"",163,0)"
^XMB(3.9,153,2,550,0)=" Q"
^XMB(3.9,153,2,551,0)="""RTN"",""TIUR2"")"
^XMB(3.9,153,2,552,0)="0^2^B64720639^B57493092"
^XMB(3.9,153,2,553,0)="""RTN"",""TIUR2"",1,0)"
^XMB(3.9,153,2,554,0)="TIUR2  ; SLC/JER - Integrated Document Review ;1/29/04"
^XMB(3.9,153,2,555,0)="""RTN"",""TIUR2"",2,0)"
^XMB(3.9,153,2,556,0)=" ;;1.0;TEXT INTEGRATION UTILITIES;**100,113,208**;Jun 20, 1997"
^XMB(3.9,153,2,557,0)="""RTN"",""TIUR2"",3,0)"
^XMB(3.9,153,2,558,0)=" ; 12/12/00 new rtn, from splitting TIUR1"
^XMB(3.9,153,2,559,0)="""RTN"",""TIUR2"",4,0)"
^XMB(3.9,153,2,560,0)="REPLACE(TIUDA,SORTVAL,SORTFLD,DATTIM,EXPAND,FORGETAD) ; Fix ^TMP(""TIUI"",$J)."
^XMB(3.9,153,2,561,0)="""RTN"",""TIUR2"",5,0)"
^XMB(3.9,153,2,562,0)=" ;Remove ID kid or addm records from ^TMP(""TIUI"",$J), and replace"
^XMB(3.9,153,2,563,0)="""RTN"",""TIUR2"",6,0)"
^XMB(3.9,153,2,564,0)=" ;with parent record instead."
^XMB(3.9,153,2,565,0)="""RTN"",""TIUR2"",7,0)"
^XMB(3.9,153,2,566,0)=" ; Requires TIUDA, SORTVAL, SORTFLD, DATTIM."
^XMB(3.9,153,2,567,0)="""RTN"",""TIUR2"",8,0)"
^XMB(3.9,153,2,568,0)=" ; Passes back opt array EXPAND, where EXPAND(IFN)="""""
^XMB(3.9,153,2,569,0)="""RTN"",""TIUR2"",9,0)"
^XMB(3.9,153,2,570,0)=" ; opt flag FORGETAD: don't expand parent for sake of addm"
^XMB(3.9,153,2,571,0)="""RTN"",""TIUR2"",10,0)"
^XMB(3.9,153,2,572,0)=" N IDPRNT,ADDMPRNT,ADDMGPNT,PVAL,GPVAL,PDATTIM,GPDATTIM,NODE"
^XMB(3.9,153,2,573,0)="""RTN"",""TIUR2"",11,0)"
^XMB(3.9,153,2,574,0)=" S IDPRNT=+$G(^TIU(8925,TIUDA,21)) ; ID parent"
^XMB(3.9,153,2,575,0)="""RTN"",""TIUR2"",12,0)"
^XMB(3.9,153,2,576,0)=" I '$D(^TIU(8925,IDPRNT,0)) S IDPRNT=0"
^XMB(3.9,153,2,577,0)="""RTN"",""TIUR2"",13,0)"
^XMB(3.9,153,2,578,0)=" I IDPRNT D"
^XMB(3.9,153,2,579,0)="""RTN"",""TIUR2"",14,0)"
^XMB(3.9,153,2,580,0)=" . S PVAL=$$RESOLVE^TIUR1(IDPRNT,SORTFLD)"
^XMB(3.9,153,2,581,0)="""RTN"",""TIUR2"",15,0)"
^XMB(3.9,153,2,582,0)=" . S PDATTIM=$S(^TMP(""TIUR"",$J,""RTN"")=""TIURM"":+$G(^TIU(8925,IDPRNT,12)),1:+$G(^TIU(8925,IDPRNT,13))) ; rtn TIURM uses ""F"" XREF, whose date is ENTRY DT."
^XMB(3.9,153,2,583,0)="""RTN"",""TIUR2"",16,0)"
^XMB(3.9,153,2,584,0)=" . S PDATTIM=9999999-PDATTIM"
^XMB(3.9,153,2,585,0)="""RTN"",""TIUR2"",17,0)"
^XMB(3.9,153,2,586,0)=" S ADDMPRNT=+$P($G(^TIU(8925,TIUDA,0)),U,6) ; assume TIUDA is not component"
^XMB(3.9,153,2,587,0)="""RTN"",""TIUR2"",18,0)"
^XMB(3.9,153,2,588,0)=" I '$D(^TIU(8925,ADDMPRNT,0)) S ADDMPRNT=0"
^XMB(3.9,153,2,589,0)="""RTN"",""TIUR2"",19,0)"
^XMB(3.9,153,2,590,0)=" I ADDMPRNT D"
^XMB(3.9,153,2,591,0)="""RTN"",""TIUR2"",20,0)"
^XMB(3.9,153,2,592,0)=" . S PVAL=$$RESOLVE^TIUR1(ADDMPRNT,SORTFLD)"
^XMB(3.9,153,2,593,0)="""RTN"",""TIUR2"",21,0)"
^XMB(3.9,153,2,594,0)=" . S PDATTIM=$S(^TMP(""TIUR"",$J,""RTN"")=""TIUR"":+$G(^TIU(8925,ADDMPRNT,13)),1:+$G(^TIU(8925,ADDMPRNT,12)))"
^XMB(3.9,153,2,595,0)="""RTN"",""TIUR2"",22,0)"
^XMB(3.9,153,2,596,0)=" . S PDATTIM=9999999-PDATTIM"
^XMB(3.9,153,2,597,0)="""RTN"",""TIUR2"",23,0)"
^XMB(3.9,153,2,598,0)=" S EXPAND=+$G(EXPAND)"
^XMB(3.9,153,2,599,0)="""RTN"",""TIUR2"",24,0)"
^XMB(3.9,153,2,600,0)=" ; -- If TIUDA is not an ID kid, not addm, just quit: --"
^XMB(3.9,153,2,601,0)="""RTN"",""TIUR2"",25,0)"
^XMB(3.9,153,2,602,0)=" I 'IDPRNT,'ADDMPRNT Q"
^XMB(3.9,153,2,603,0)="""RTN"",""TIUR2"",26,0)"
^XMB(3.9,153,2,604,0)=" ; -- Take kid or addm out of array:"
^XMB(3.9,153,2,605,0)="""RTN"",""TIUR2"",27,0)"
^XMB(3.9,153,2,606,0)=" S NODE=^TMP(""TIUI"",$J,SORTVAL,DATTIM,TIUDA)"
^XMB(3.9,153,2,607,0)="""RTN"",""TIUR2"",28,0)"
^XMB(3.9,153,2,608,0)=" K ^TMP(""TIUI"",$J,SORTVAL,DATTIM,TIUDA)"
^XMB(3.9,153,2,609,0)="""RTN"",""TIUR2"",29,0)"
^XMB(3.9,153,2,610,0)=" ; -- If TIUDA is an ID kid, put its parent in array:"
^XMB(3.9,153,2,611,0)="""RTN"",""TIUR2"",30,0)"
^XMB(3.9,153,2,612,0)=" I IDPRNT D  Q"
^XMB(3.9,153,2,613,0)="""RTN"",""TIUR2"",31,0)"
^XMB(3.9,153,2,614,0)=" . I '$D(EXPAND(IDPRNT)) S EXPAND(IDPRNT)="""",EXPAND=EXPAND+1"
^XMB(3.9,153,2,615,0)="""RTN"",""TIUR2"",32,0)"
^XMB(3.9,153,2,616,0)=" . Q:$$CHKPAR(IDPRNT)"
^XMB(3.9,153,2,617,0)="""RTN"",""TIUR2"",33,0)"
^XMB(3.9,153,2,618,0)=" . S ^TMP(""TIUI"",$J,PVAL,PDATTIM,IDPRNT)=NODE"
^XMB(3.9,153,2,619,0)="""RTN"",""TIUR2"",34,0)"
^XMB(3.9,153,2,620,0)=" ; -- If TIUDA is an addendum, put its (g)parent in array:"
^XMB(3.9,153,2,621,0)="""RTN"",""TIUR2"",35,0)"
^XMB(3.9,153,2,622,0)=" I ADDMPRNT D  Q"
^XMB(3.9,153,2,623,0)="""RTN"",""TIUR2"",36,0)"
^XMB(3.9,153,2,624,0)=" . I '$G(FORGETAD),'$D(EXPAND(ADDMPRNT)) S EXPAND(ADDMPRNT)="""",EXPAND=EXPAND+1"
^XMB(3.9,153,2,625,0)="""RTN"",""TIUR2"",37,0)"
^XMB(3.9,153,2,626,0)=" . S ADDMGPNT=+$G(^TIU(8925,ADDMPRNT,21))"
^XMB(3.9,153,2,627,0)="""RTN"",""TIUR2"",38,0)"
^XMB(3.9,153,2,628,0)=" . I '$D(^TIU(8925,ADDMGPNT,0)) S ADDMGPNT=0"
^XMB(3.9,153,2,629,0)="""RTN"",""TIUR2"",39,0)"
^XMB(3.9,153,2,630,0)=" . I ADDMGPNT D  I 1"
^XMB(3.9,153,2,631,0)="""RTN"",""TIUR2"",40,0)"
^XMB(3.9,153,2,632,0)=" . . S GPVAL=$$RESOLVE^TIUR1(ADDMGPNT,SORTFLD)"
^XMB(3.9,153,2,633,0)="""RTN"",""TIUR2"",41,0)"
^XMB(3.9,153,2,634,0)=" . . S GPDATTIM=$S(^TMP(""TIUR"",$J,""RTN"")=""TIUR"":+$G(^TIU(8925,ADDMGPNT,13)),1:+$G(^TIU(8925,ADDMGPNT,12)))"
^XMB(3.9,153,2,635,0)="""RTN"",""TIUR2"",42,0)"
^XMB(3.9,153,2,636,0)=" . . S GPDATTIM=9999999-GPDATTIM"
^XMB(3.9,153,2,637,0)="""RTN"",""TIUR2"",43,0)"
^XMB(3.9,153,2,638,0)=" . . I '$D(EXPAND(ADDMGPNT)) S EXPAND(ADDMGPNT)="""",EXPAND=EXPAND+1"
^XMB(3.9,153,2,639,0)="""RTN"",""TIUR2"",44,0)"
^XMB(3.9,153,2,640,0)=" . . Q:$$CHKPAR(ADDMGPNT)"
^XMB(3.9,153,2,641,0)="""RTN"",""TIUR2"",45,0)"
^XMB(3.9,153,2,642,0)=" . . S ^TMP(""TIUI"",$J,GPVAL,GPDATTIM,ADDMGPNT)=NODE"
^XMB(3.9,153,2,643,0)="""RTN"",""TIUR2"",46,0)"
^XMB(3.9,153,2,644,0)=" . E  D"
^XMB(3.9,153,2,645,0)="""RTN"",""TIUR2"",47,0)"
^XMB(3.9,153,2,646,0)=" . . Q:$$CHKPAR(ADDMPRNT)"
^XMB(3.9,153,2,647,0)="""RTN"",""TIUR2"",48,0)"
^XMB(3.9,153,2,648,0)=" . . S ^TMP(""TIUI"",$J,PVAL,PDATTIM,ADDMPRNT)=NODE"
^XMB(3.9,153,2,649,0)="""RTN"",""TIUR2"",49,0)"
^XMB(3.9,153,2,650,0)=" Q"
^XMB(3.9,153,2,651,0)="""RTN"",""TIUR2"",50,0)"
^XMB(3.9,153,2,652,0)=" ;"
^XMB(3.9,153,2,653,0)="""RTN"",""TIUR2"",51,0)"
^XMB(3.9,153,2,654,0)="CHKPAR(CHKDA) ;"
^XMB(3.9,153,2,655,0)="""RTN"",""TIUR2"",52,0)"
^XMB(3.9,153,2,656,0)=" N TIU1,TIU2,TIU3,TIURES"
^XMB(3.9,153,2,657,0)="""RTN"",""TIUR2"",53,0)"
^XMB(3.9,153,2,658,0)=" S TIU1="""",TIURES=0"
^XMB(3.9,153,2,659,0)="""RTN"",""TIUR2"",54,0)"
^XMB(3.9,153,2,660,0)=" F  S TIU1=$O(^TMP(""TIUI"",$J,TIU1)) Q:TIU1=""""!(TIURES)  D"
^XMB(3.9,153,2,661,0)="""RTN"",""TIUR2"",55,0)"
^XMB(3.9,153,2,662,0)=" . S TIU2="""""
^XMB(3.9,153,2,663,0)="""RTN"",""TIUR2"",56,0)"
^XMB(3.9,153,2,664,0)=" . F  S TIU2=$O(^TMP(""TIUI"",$J,TIU1,TIU2)) Q:TIU2=""""!(TIURES)  D"
^XMB(3.9,153,2,665,0)="""RTN"",""TIUR2"",57,0)"
^XMB(3.9,153,2,666,0)=" . . S TIU3="""""
^XMB(3.9,153,2,667,0)="""RTN"",""TIUR2"",58,0)"
^XMB(3.9,153,2,668,0)=" . . F  S TIU3=$O(^TMP(""TIUI"",$J,TIU1,TIU2,TIU3)) Q:TIU3=""""!(TIURES)  D"
^XMB(3.9,153,2,669,0)="""RTN"",""TIUR2"",59,0)"
^XMB(3.9,153,2,670,0)=" . . . I TIU3=ADDMPRNT S TIURES=1"
^XMB(3.9,153,2,671,0)="""RTN"",""TIUR2"",60,0)"
^XMB(3.9,153,2,672,0)=" Q TIURES"
^XMB(3.9,153,2,673,0)="""RTN"",""TIUR2"",61,0)"
^XMB(3.9,153,2,674,0)=" ;"
^XMB(3.9,153,2,675,0)="""RTN"",""TIUR2"",62,0)"
^XMB(3.9,153,2,676,0)="SETLIST(TIUORDER,VALMCNT,SCREEN) ; Set items from ^TMP(""TIUI"",$J) into"
^XMB(3.9,153,2,677,0)="""RTN"",""TIUR2"",63,0)"
^XMB(3.9,153,2,678,0)=" ;List Template list"
^XMB(3.9,153,2,679,0)="""RTN"",""TIUR2"",64,0)"
^XMB(3.9,153,2,680,0)=" N SORTVAL,TIUDTM,TIUDA"
^XMB(3.9,153,2,681,0)="""RTN"",""TIUR2"",65,0)"
^XMB(3.9,153,2,682,0)=" S SORTVAL="""""
^XMB(3.9,153,2,683,0)="""RTN"",""TIUR2"",66,0)"
^XMB(3.9,153,2,684,0)=" F  S SORTVAL=$O(^TMP(""TIUI"",$J,SORTVAL),TIUORDER) Q:SORTVAL=""""  D"
^XMB(3.9,153,2,685,0)="""RTN"",""TIUR2"",67,0)"
^XMB(3.9,153,2,686,0)=" . S TIUDTM=0"
^XMB(3.9,153,2,687,0)="""RTN"",""TIUR2"",68,0)"
^XMB(3.9,153,2,688,0)=" . F  S TIUDTM=$O(^TMP(""TIUI"",$J,SORTVAL,TIUDTM)) Q:'TIUDTM  D"
^XMB(3.9,153,2,689,0)="""RTN"",""TIUR2"",69,0)"
^XMB(3.9,153,2,690,0)=" . . S TIUDA=0"
^XMB(3.9,153,2,691,0)="""RTN"",""TIUR2"",70,0)"
^XMB(3.9,153,2,692,0)=" . . F  S TIUDA=$O(^TMP(""TIUI"",$J,SORTVAL,TIUDTM,TIUDA)) Q:'TIUDA  D"
^XMB(3.9,153,2,693,0)="""RTN"",""TIUR2"",71,0)"
^XMB(3.9,153,2,694,0)=" . . . ; D ADDELMNT(TIUDA,.VALMCNT) ; P113"
^XMB(3.9,153,2,695,0)="""RTN"",""TIUR2"",72,0)"
^XMB(3.9,153,2,696,0)=" . . . I SCREEN=1!(SCREEN=""ALL"") D ADDELMNT(TIUDA,.VALMCNT)"
^XMB(3.9,153,2,697,0)="""RTN"",""TIUR2"",73,0)"
^XMB(3.9,153,2,698,0)=" . . . I SCREEN>1,$G(^TMP(""TIUI"",$J,SORTVAL,TIUDTM,TIUDA))=SCREEN D ADDELMNT(TIUDA,.VALMCNT)"
^XMB(3.9,153,2,699,0)="""RTN"",""TIUR2"",74,0)"
^XMB(3.9,153,2,700,0)=" Q"
^XMB(3.9,153,2,701,0)="""RTN"",""TIUR2"",75,0)"
^XMB(3.9,153,2,702,0)=" ;"
^XMB(3.9,153,2,703,0)="""RTN"",""TIUR2"",76,0)"
^XMB(3.9,153,2,704,0)="PUTLIST(TIUPREF,TIUCLASS,STATUS,SCREEN) ; Puts elements in List Template list"
^XMB(3.9,153,2,705,0)="""RTN"",""TIUR2"",77,0)"
^XMB(3.9,153,2,706,0)=" N TIUJ,TIUQ,TIUDA,TIUPICK,TIUORDER,TIUEXPKD,TIUSFLD"
^XMB(3.9,153,2,707,0)="""RTN"",""TIUR2"",78,0)"
^XMB(3.9,153,2,708,0)=" S VALMCNT=0"
^XMB(3.9,153,2,709,0)="""RTN"",""TIUR2"",79,0)"
^XMB(3.9,153,2,710,0)=" S TIUSFLD=$P(TIUPREF,U,3)"
^XMB(3.9,153,2,711,0)="""RTN"",""TIUR2"",80,0)"
^XMB(3.9,153,2,712,0)=" S TIUSFLD=$S(TIUSFLD=""P"":"".02"",TIUSFLD=""D"":"".01"",TIUSFLD=""S"":"".05"",TIUSFLD=""C"":""1507"",TIUSFLD=""A"":""1202"",TIUSFLD=""E"":""1208"",1:""1301"")"
^XMB(3.9,153,2,713,0)="""RTN"",""TIUR2"",81,0)"
^XMB(3.9,153,2,714,0)=" S TIUORDER=$S($P(TIUPREF,U,4)=""A"":1,1:-1) ;A for ascending"
^XMB(3.9,153,2,715,0)="""RTN"",""TIUR2"",82,0)"
^XMB(3.9,153,2,716,0)=" S TIUPICK=+$O(^ORD(101,""B"",""TIU ACTION SELECT LIST ELEMENT"",0))"
^XMB(3.9,153,2,717,0)="""RTN"",""TIUR2"",83,0)"
^XMB(3.9,153,2,718,0)=" S TIUQ="""" F  S TIUQ=$O(^TMP(""TIUI"",$J,TIUQ)) Q:TIUQ']""""  D"
^XMB(3.9,153,2,719,0)="""RTN"",""TIUR2"",84,0)"
^XMB(3.9,153,2,720,0)=" . S TIUJ=0 F  S TIUJ=$O(^TMP(""TIUI"",$J,TIUQ,TIUJ)) Q:+TIUJ'>0  D"
^XMB(3.9,153,2,721,0)="""RTN"",""TIUR2"",85,0)"
^XMB(3.9,153,2,722,0)=" . . S TIUDA=0"
^XMB(3.9,153,2,723,0)="""RTN"",""TIUR2"",86,0)"
^XMB(3.9,153,2,724,0)=" . . F  S TIUDA=$O(^TMP(""TIUI"",$J,TIUQ,TIUJ,TIUDA)) Q:+TIUDA'>0  D"
^XMB(3.9,153,2,725,0)="""RTN"",""TIUR2"",87,0)"
^XMB(3.9,153,2,726,0)=" . . . D REPLACE(TIUDA,TIUQ,TIUSFLD,TIUJ,.TIUEXPKD)"
^XMB(3.9,153,2,727,0)="""RTN"",""TIUR2"",88,0)"
^XMB(3.9,153,2,728,0)=" D SETLIST(TIUORDER,.VALMCNT,SCREEN)"
^XMB(3.9,153,2,729,0)="""RTN"",""TIUR2"",89,0)"
^XMB(3.9,153,2,730,0)=" S ^TMP(""TIUR"",$J,0)=+$G(VALMCNT)_U_STATUS(""WORDS"")"
^XMB(3.9,153,2,731,0)="""RTN"",""TIUR2"",90,0)"
^XMB(3.9,153,2,732,0)=" S TIUJ=0,SCREEN="""" F  S TIUJ=$O(SCREEN(TIUJ)) Q:+TIUJ'>0  D"
^XMB(3.9,153,2,733,0)="""RTN"",""TIUR2"",91,0)"
^XMB(3.9,153,2,734,0)=" . S SCREEN=$G(SCREEN)_$S(TIUJ>1:"";"",1:U)_SCREEN(TIUJ)"
^XMB(3.9,153,2,735,0)="""RTN"",""TIUR2"",92,0)"
^XMB(3.9,153,2,736,0)=" S ^TMP(""TIUR"",$J,0)=^TMP(""TIUR"",$J,0)_$G(SCREEN)"
^XMB(3.9,153,2,737,0)="""RTN"",""TIUR2"",93,0)"
^XMB(3.9,153,2,738,0)=" S ^TMP(""TIUR"",$J,""CLASS"")=TIUCLASS"
^XMB(3.9,153,2,739,0)="""RTN"",""TIUR2"",94,0)"
^XMB(3.9,153,2,740,0)=" S ^TMP(""TIUR"",$J,""#"")=TIUPICK_""^1:""_+$G(VALMCNT)"
^XMB(3.9,153,2,741,0)="""RTN"",""TIUR2"",95,0)"
^XMB(3.9,153,2,742,0)=" I $D(VALMHDR)>9 D HDR^TIURH"
^XMB(3.9,153,2,743,0)="""RTN"",""TIUR2"",96,0)"
^XMB(3.9,153,2,744,0)=" I +$G(VALMCNT)'>0 D"
^XMB(3.9,153,2,745,0)="""RTN"",""TIUR2"",97,0)"
^XMB(3.9,153,2,746,0)=" . S ^TMP(""TIUR"",$J,1,0)="""",VALMCNT=2"
^XMB(3.9,153,2,747,0)="""RTN"",""TIUR2"",98,0)"
^XMB(3.9,153,2,748,0)=" . S ^TMP(""TIUR"",$J,2,0)=""     No records found to satisfy search criteria."""
^XMB(3.9,153,2,749,0)="""RTN"",""TIUR2"",99,0)"
^XMB(3.9,153,2,750,0)=" . S ^TMP(""TIUR"",$J,""IDX"",1,0)="""" ; User can't select lines 1 or 2"
^XMB(3.9,153,2,751,0)="""RTN"",""TIUR2"",100,0)"
^XMB(3.9,153,2,752,0)=" . S ^TMP(""TIUR"",$J,""IDX"",2,0)="""""
^XMB(3.9,153,2,753,0)="""RTN"",""TIUR2"",101,0)"
^XMB(3.9,153,2,754,0)=" I '$G(TIURBLD),$D(TIUEXPKD) D EXPANDKD(.TIUEXPKD,STATUS(""WORDS""))"
^XMB(3.9,153,2,755,0)="""RTN"",""TIUR2"",102,0)"
^XMB(3.9,153,2,756,0)=" Q"
^XMB(3.9,153,2,757,0)="""RTN"",""TIUR2"",103,0)"
^XMB(3.9,153,2,758,0)=" ;"
^XMB(3.9,153,2,759,0)="""RTN"",""TIUR2"",104,0)"
^XMB(3.9,153,2,760,0)="EXPANDKD(TIUEXPKD,STATWORD,CONTEXT) ; Expand items to show kids that meet"
^XMB(3.9,153,2,761,0)="""RTN"",""TIUR2"",105,0)"
^XMB(3.9,153,2,762,0)=" ;search criteria."
^XMB(3.9,153,2,763,0)="""RTN"",""TIUR2"",106,0)"
^XMB(3.9,153,2,764,0)=" ; Requires array TIUEXPKD, requires VALMCNT"
^XMB(3.9,153,2,765,0)="""RTN"",""TIUR2"",107,0)"
^XMB(3.9,153,2,766,0)=" ; Requires nonnull: STATWORD (from TIUR1) or CONTEXT (from TIUROR)."
^XMB(3.9,153,2,767,0)="""RTN"",""TIUR2"",108,0)"
^XMB(3.9,153,2,768,0)=" N TIUEXP2,YESEXPD,LINENO,HELP,TIUTWO"
^XMB(3.9,153,2,769,0)="""RTN"",""TIUR2"",109,0)"
^XMB(3.9,153,2,770,0)=" ; -- Expand only for status unsigned or uncosigned, & not for ""ALL"":"
^XMB(3.9,153,2,771,0)="""RTN"",""TIUR2"",110,0)"
^XMB(3.9,153,2,772,0)=" I STATWORD]"""" Q:((STATWORD[""ALL"")!((STATWORD'[""UNSIGNED"")&(STATWORD'[""UNCOSIGNED"")))"
^XMB(3.9,153,2,773,0)="""RTN"",""TIUR2"",111,0)"
^XMB(3.9,153,2,774,0)=" I $G(CONTEXT) Q:((CONTEXT'=2)&(CONTEXT'=3))  ;unsigned, uncosigned"
^XMB(3.9,153,2,775,0)="""RTN"",""TIUR2"",112,0)"
^XMB(3.9,153,2,776,0)=" I (5*TIUEXPKD+$G(VALMCNT))>50 D  Q:'YESEXPD"
^XMB(3.9,153,2,777,0)="""RTN"",""TIUR2"",113,0)"
^XMB(3.9,153,2,778,0)=" . W !!,""      There are "",TIUEXPKD,"" items (Interdisciplinary Notes, Addenda) to expand"",!,""        in a list of "",VALMCNT,"" items."""
^XMB(3.9,153,2,779,0)="""RTN"",""TIUR2"",114,0)"
^XMB(3.9,153,2,780,0)=" . S HELP=""NO saves time building the list, but 'hides' relevant items under their parent until you expand the parent yourself."""
^XMB(3.9,153,2,781,0)="""RTN"",""TIUR2"",115,0)"
^XMB(3.9,153,2,782,0)=" . S YESEXPD=$$READ^TIUU(""Y"",""  Shall I take the extra time to expand them before I list them"",""NO"",HELP)"
^XMB(3.9,153,2,783,0)="""RTN"",""TIUR2"",116,0)"
^XMB(3.9,153,2,784,0)=" D LOAD^TIUROR1(.TIUEXPKD,.TIUEXP2)"
^XMB(3.9,153,2,785,0)="""RTN"",""TIUR2"",117,0)"
^XMB(3.9,153,2,786,0)=" D BREATHE^TIUROR1(1)"
^XMB(3.9,153,2,787,0)="""RTN"",""TIUR2"",118,0)"
^XMB(3.9,153,2,788,0)=" ; Try again if not in list til expanded once:"
^XMB(3.9,153,2,789,0)="""RTN"",""TIUR2"",119,0)"
^XMB(3.9,153,2,790,0)=" ; (Can't use BREATHE^TIUROR1 again since it COLLAPSES now.)"
^XMB(3.9,153,2,791,0)="""RTN"",""TIUR2"",120,0)"
^XMB(3.9,153,2,792,0)=" Q:'$D(TIUEXP2)"
^XMB(3.9,153,2,793,0)="""RTN"",""TIUR2"",121,0)"
^XMB(3.9,153,2,794,0)=" S TIUDA=0"
^XMB(3.9,153,2,795,0)="""RTN"",""TIUR2"",122,0)"
^XMB(3.9,153,2,796,0)=" F  S TIUDA=$O(TIUEXP2(TIUDA)) Q:'TIUDA  D"
^XMB(3.9,153,2,797,0)="""RTN"",""TIUR2"",123,0)"
^XMB(3.9,153,2,798,0)=" . S LINENO=$O(^TMP(""TIUR"",$J,""IEN"",TIUDA,0))"
^XMB(3.9,153,2,799,0)="""RTN"",""TIUR2"",124,0)"
^XMB(3.9,153,2,800,0)=" . Q:'LINENO"
^XMB(3.9,153,2,801,0)="""RTN"",""TIUR2"",125,0)"
^XMB(3.9,153,2,802,0)=" . S TIUTWO(LINENO)="""""
^XMB(3.9,153,2,803,0)="""RTN"",""TIUR2"",126,0)"
^XMB(3.9,153,2,804,0)=" S LINENO=VALMCNT+1"
^XMB(3.9,153,2,805,0)="""RTN"",""TIUR2"",127,0)"
^XMB(3.9,153,2,806,0)=" F  S LINENO=$O(TIUTWO(LINENO),-1) Q:'LINENO  D"
^XMB(3.9,153,2,807,0)="""RTN"",""TIUR2"",128,0)"
^XMB(3.9,153,2,808,0)=" . D BREATHE^TIURL1(LINENO,1)"
^XMB(3.9,153,2,809,0)="""RTN"",""TIUR2"",129,0)"
^XMB(3.9,153,2,810,0)=" Q"
^XMB(3.9,153,2,811,0)="""RTN"",""TIUR2"",130,0)"
^XMB(3.9,153,2,812,0)=" ;"
^XMB(3.9,153,2,813,0)="""RTN"",""TIUR2"",131,0)"
^XMB(3.9,153,2,814,0)="ADDELMNT(TIUDA,TIUCNT,APPEND) ; Add each element to the list"
^XMB(3.9,153,2,815,0)="""RTN"",""TIUR2"",132,0)"
^XMB(3.9,153,2,816,0)=" N PT,ADT,DDT,AUT,AMD,EDT,SDT,XDT,TIULST4,INSTA,TIUSTN"
^XMB(3.9,153,2,817,0)="""RTN"",""TIUR2"",133,0)"
^XMB(3.9,153,2,818,0)=" N TIUREC,TIUD0,TIUD12,TIUD13,TIUD15,TIULI,STATX,DOC"
^XMB(3.9,153,2,819,0)="""RTN"",""TIUR2"",134,0)"
^XMB(3.9,153,2,820,0)=" N PREFIX,TIUGDATA"
^XMB(3.9,153,2,821,0)="""RTN"",""TIUR2"",135,0)"
^XMB(3.9,153,2,822,0)=" I '$D(^TIU(8925,TIUDA,0)) Q"
^XMB(3.9,153,2,823,0)="""RTN"",""TIUR2"",136,0)"
^XMB(3.9,153,2,824,0)=" I $G(^TMP(""TIUR"",$J,2,0))=""     No records found to satisfy search criteria."" D"
^XMB(3.9,153,2,825,0)="""RTN"",""TIUR2"",137,0)"
^XMB(3.9,153,2,826,0)=" . K ^TMP(""TIUR"",$J,2),^TMP(""TIUR"",$J,""IDX"",2),^TMP(""TIUR"",$J,""IDX"",1)"
^XMB(3.9,153,2,827,0)="""RTN"",""TIUR2"",138,0)"
^XMB(3.9,153,2,828,0)=" . S TIUCNT=0"
^XMB(3.9,153,2,829,0)="""RTN"",""TIUR2"",139,0)"
^XMB(3.9,153,2,830,0)=" S TIUD0=$G(^TIU(8925,TIUDA,0)),TIUD12=$G(^TIU(8925,TIUDA,12))"
^XMB(3.9,153,2,831,0)="""RTN"",""TIUR2"",140,0)"
^XMB(3.9,153,2,832,0)=" S TIUD13=$G(^TIU(8925,TIUDA,13)),TIUD15=$G(^TIU(8925,TIUDA,15))"
^XMB(3.9,153,2,833,0)="""RTN"",""TIUR2"",141,0)"
^XMB(3.9,153,2,834,0)=" S DOC=$$PNAME^TIULC1(+TIUD0)"
^XMB(3.9,153,2,835,0)="""RTN"",""TIUR2"",142,0)"
^XMB(3.9,153,2,836,0)=" I DOC=""Addendum"" S DOC=DOC_"" to ""_$$PNAME^TIULC1(+$G(^TIU(8925,+$P(TIUD0,U,6),0)))"
^XMB(3.9,153,2,837,0)="""RTN"",""TIUR2"",143,0)"
^XMB(3.9,153,2,838,0)=" S PREFIX=$$PREFIX^TIULA2(TIUDA,0)"
^XMB(3.9,153,2,839,0)="""RTN"",""TIUR2"",144,0)"
^XMB(3.9,153,2,840,0)=" S PT=$$NAME^TIULS($$PTNAME^TIULC1($P(TIUD0,U,2)),""LAST,FI MI"")"
^XMB(3.9,153,2,841,0)="""RTN"",""TIUR2"",145,0)"
^XMB(3.9,153,2,842,0)=" S TIULI=$E(PT)"
^XMB(3.9,153,2,843,0)="""RTN"",""TIUR2"",146,0)"
^XMB(3.9,153,2,844,0)=" S PT=PREFIX_PT"
^XMB(3.9,153,2,845,0)="""RTN"",""TIUR2"",147,0)"
^XMB(3.9,153,2,846,0)=" S TIULST4=$E($P($G(^DPT(+$P(TIUD0,U,2),0)),U,9),6,9)"
^XMB(3.9,153,2,847,0)="""RTN"",""TIUR2"",148,0)"
^XMB(3.9,153,2,848,0)=" S TIULST4=""(""_TIULI_TIULST4_"")"""
^XMB(3.9,153,2,849,0)="""RTN"",""TIUR2"",149,0)"
^XMB(3.9,153,2,850,0)=" S ADT=$$DATE^TIULS($P(TIUD0,U,7),""MM/DD/YY"")"
^XMB(3.9,153,2,851,0)="""RTN"",""TIUR2"",150,0)"
^XMB(3.9,153,2,852,0)=" S DDT=$$DATE^TIULS($P(TIUD0,U,8),""MM/DD/YY"")"
^XMB(3.9,153,2,853,0)="""RTN"",""TIUR2"",151,0)"
^XMB(3.9,153,2,854,0)=" S AMD=$$PERSNAME^TIULC1($P(TIUD12,U,8)) S:AMD=""UNKNOWN"" AMD="""""
^XMB(3.9,153,2,855,0)="""RTN"",""TIUR2"",152,0)"
^XMB(3.9,153,2,856,0)=" S AUT=$$PERSNAME^TIULC1($P(TIUD12,U,2)) S:AUT=""UNKNOWN"" AUT="""""
^XMB(3.9,153,2,857,0)="""RTN"",""TIUR2"",153,0)"
^XMB(3.9,153,2,858,0)=" S AMD=$$NAME^TIULS(AMD,""LAST, FI MI"")"
^XMB(3.9,153,2,859,0)="""RTN"",""TIUR2"",154,0)"
^XMB(3.9,153,2,860,0)=" S AUT=$$NAME^TIULS(AUT,""LAST, FI MI"")"
^XMB(3.9,153,2,861,0)="""RTN"",""TIUR2"",155,0)"
^XMB(3.9,153,2,862,0)=" S EDT=$$DATE^TIULS($P(TIUD13,U),""MM/DD/YY"")"
^XMB(3.9,153,2,863,0)="""RTN"",""TIUR2"",156,0)"
^XMB(3.9,153,2,864,0)=" S SDT=$S(+$P(TIUD15,U,7):+$P(TIUD15,U,7),+$P(TIUD0,U,5)'<7:+$P(TIUD15,U),1:"""")"
^XMB(3.9,153,2,865,0)="""RTN"",""TIUR2"",157,0)"
^XMB(3.9,153,2,866,0)=" S SDT=$$DATE^TIULS(SDT,""MM/DD/YY"")"
^XMB(3.9,153,2,867,0)="""RTN"",""TIUR2"",158,0)"
^XMB(3.9,153,2,868,0)=" S STATX=$P($G(^TIU(8925.6,+$P(TIUD0,U,5),0)),U)"
^XMB(3.9,153,2,869,0)="""RTN"",""TIUR2"",159,0)"
^XMB(3.9,153,2,870,0)=" S INSTA="""""
^XMB(3.9,153,2,871,0)="""RTN"",""TIUR2"",160,0)"
^XMB(3.9,153,2,872,0)=" I +$P(TIUD12,U,12)>0 D"
^XMB(3.9,153,2,873,0)="""RTN"",""TIUR2"",161,0)"
^XMB(3.9,153,2,874,0)=" . S TIUSTN=$$NS^XUAF4($P(TIUD12,U,12))"
^XMB(3.9,153,2,875,0)="""RTN"",""TIUR2"",162,0)"
^XMB(3.9,153,2,876,0)=" . I $P(TIUSTN,U,2)]"""" S INSTA=$P(TIUSTN,U,2)"
^XMB(3.9,153,2,877,0)="""RTN"",""TIUR2"",163,0)"
^XMB(3.9,153,2,878,0)=" S INSTA=$E(INSTA,1,8)"
^XMB(3.9,153,2,879,0)="""RTN"",""TIUR2"",164,0)"
^XMB(3.9,153,2,880,0)=" S TIUCNT=+$G(TIUCNT)+1"
^XMB(3.9,153,2,881,0)="""RTN"",""TIUR2"",165,0)"
^XMB(3.9,153,2,882,0)=" S TIUREC=$$SETFLD^VALM1(TIUCNT,"""",""NUMBER"")"
^XMB(3.9,153,2,883,0)="""RTN"",""TIUR2"",166,0)"
^XMB(3.9,153,2,884,0)=" S TIUREC=$$SETFLD^VALM1(PT,TIUREC,""PATIENT NAME"")"
^XMB(3.9,153,2,885,0)="""RTN"",""TIUR2"",167,0)"
^XMB(3.9,153,2,886,0)=" S TIUREC=$$SETFLD^VALM1(TIULST4,TIUREC,""LAST I/LAST 4"")"
^XMB(3.9,153,2,887,0)="""RTN"",""TIUR2"",168,0)"
^XMB(3.9,153,2,888,0)=" S TIUREC=$$SETFLD^VALM1(DOC,TIUREC,""DOCUMENT TYPE"")"
^XMB(3.9,153,2,889,0)="""RTN"",""TIUR2"",169,0)"
^XMB(3.9,153,2,890,0)=" S TIUREC=$$SETFLD^VALM1(EDT,TIUREC,""REF DATE"")"
^XMB(3.9,153,2,891,0)="""RTN"",""TIUR2"",170,0)"
^XMB(3.9,153,2,892,0)=" S TIUREC=$$SETFLD^VALM1($$LOWER^TIULS(STATX),TIUREC,""STATUS"")"
^XMB(3.9,153,2,893,0)="""RTN"",""TIUR2"",171,0)"
^XMB(3.9,153,2,894,0)=" S TIUREC=$$SETFLD^VALM1(SDT,TIUREC,""SIG DATE"")"
^XMB(3.9,153,2,895,0)="""RTN"",""TIUR2"",172,0)"
^XMB(3.9,153,2,896,0)=" S TIUREC=$$SETFLD^VALM1(AUT,TIUREC,""AUTHOR"")"
^XMB(3.9,153,2,897,0)="""RTN"",""TIUR2"",173,0)"
^XMB(3.9,153,2,898,0)=" S TIUREC=$$SETFLD^VALM1(AMD,TIUREC,""EXPECTED COSIGNER"")"
^XMB(3.9,153,2,899,0)="""RTN"",""TIUR2"",174,0)"
^XMB(3.9,153,2,900,0)=" S TIUREC=$$SETFLD^VALM1(INSTA,TIUREC,""DIVISION"")"
^XMB(3.9,153,2,901,0)="""RTN"",""TIUR2"",175,0)"
^XMB(3.9,153,2,902,0)=" S ^TMP(""TIUR"",$J,TIUCNT,0)=TIUREC"
^XMB(3.9,153,2,903,0)="""RTN"",""TIUR2"",176,0)"
^XMB(3.9,153,2,904,0)=" S ^TMP(""TIUR"",$J,""IDX"",TIUCNT,TIUCNT)="""" W:TIUCNT#10'>0 ""."""
^XMB(3.9,153,2,905,0)="""RTN"",""TIUR2"",177,0)"
^XMB(3.9,153,2,906,0)=" S ^TMP(""TIURIDX"",$J,TIUCNT)=TIUCNT_U_TIUDA_U_PREFIX"
^XMB(3.9,153,2,907,0)="""RTN"",""TIUR2"",178,0)"
^XMB(3.9,153,2,908,0)=" S ^TMP(""TIUR"",$J,""IEN"",TIUDA,TIUCNT)="""" ;MARGY 11/11/00"
^XMB(3.9,153,2,909,0)="""RTN"",""TIUR2"",179,0)"
^XMB(3.9,153,2,910,0)=" S TIUGDATA=$$IDDATA^TIURECL1(TIUDA,TIUD0)"
^XMB(3.9,153,2,911,0)="""RTN"",""TIUR2"",180,0)"
^XMB(3.9,153,2,912,0)=" I TIUGDATA S ^TMP(""TIUR"",$J,""IDDATA"",TIUDA)=TIUGDATA"
^XMB(3.9,153,2,913,0)="""RTN"",""TIUR2"",181,0)"
^XMB(3.9,153,2,914,0)=" I +$G(APPEND) D"
^XMB(3.9,153,2,915,0)="""RTN"",""TIUR2"",182,0)"
^XMB(3.9,153,2,916,0)=" . D RESTORE^VALM10(TIUCNT)"
^XMB(3.9,153,2,917,0)="""RTN"",""TIUR2"",183,0)"
^XMB(3.9,153,2,918,0)=" . D CNTRL^VALM10(TIUCNT,1,$G(VALM(""RM"")),IOINHI,IOINORM),HDR^TIURH"
^XMB(3.9,153,2,919,0)="""RTN"",""TIUR2"",184,0)"
^XMB(3.9,153,2,920,0)=" . S VALMSG=""** Item(s) #""_$$ITMLIST(TIUCNT,$G(VALMSG))_"" Added **"""
^XMB(3.9,153,2,921,0)="""RTN"",""TIUR2"",185,0)"
^XMB(3.9,153,2,922,0)=" . S $P(^TMP(""TIUR"",$J,0),U)=TIUCNT"
^XMB(3.9,153,2,923,0)="""RTN"",""TIUR2"",186,0)"
^XMB(3.9,153,2,924,0)=" . S $P(^TMP(""TIUR"",$J,""#""),"":"",2)=TIUCNT"
^XMB(3.9,153,2,925,0)="""RTN"",""TIUR2"",187,0)"
^XMB(3.9,153,2,926,0)=" . S VALMCNT=TIUCNT"
^XMB(3.9,153,2,927,0)="""RTN"",""TIUR2"",188,0)"
^XMB(3.9,153,2,928,0)=" . I $D(VALMHDR)>9 D HDR^TIURH"
^XMB(3.9,153,2,929,0)="""RTN"",""TIUR2"",189,0)"
^XMB(3.9,153,2,930,0)=" Q"
^XMB(3.9,153,2,931,0)="""RTN"",""TIUR2"",190,0)"
^XMB(3.9,153,2,932,0)="ITMLIST(TIUITM,TIUMSG) ; Add Message"
^XMB(3.9,153,2,933,0)="""RTN"",""TIUR2"",191,0)"
^XMB(3.9,153,2,934,0)=" N TIULIST"
^XMB(3.9,153,2,935,0)="""RTN"",""TIUR2"",192,0)"
^XMB(3.9,153,2,936,0)=" I $E($G(TIUMSG),1,7)'=""** Item"" S TIULIST=TIUITM G ITMLISTX"
^XMB(3.9,153,2,937,0)="""RTN"",""TIUR2"",193,0)"
^XMB(3.9,153,2,938,0)=" S TIULIST=$P($P($G(TIUMSG),"" Added **""),""#"",2)_"" & ""_TIUITM"
^XMB(3.9,153,2,939,0)="""RTN"",""TIUR2"",194,0)"
^XMB(3.9,153,2,940,0)="ITMLISTX Q $G(TIULIST)"
^XMB(3.9,153,2,941,0)="""RTN"",""TIUR2"",195,0)"
^XMB(3.9,153,2,942,0)=" Q"
^XMB(3.9,153,2,943,0)="""RTN"",""TIUSRVR1"")"
^XMB(3.9,153,2,944,0)="0^3^B34950114^B34949493"
^XMB(3.9,153,2,945,0)="""RTN"",""TIUSRVR1"",1,0)"
^XMB(3.9,153,2,946,0)="TIUSRVR1 ; SLC/JER - RPC for record-wise GET ; 01/22/2002 16:48"
^XMB(3.9,153,2,947,0)="""RTN"",""TIUSRVR1"",2,0)"
^XMB(3.9,153,2,948,0)=" ;;1.0;TEXT INTEGRATION UTILITIES;**19,32,87,89,100,109,112,173,186,208**;Jun 20, 1997"
^XMB(3.9,153,2,949,0)="""RTN"",""TIUSRVR1"",3,0)"
^XMB(3.9,153,2,950,0)="TGET(TIUY,TIUDA,ACTION) ; Build ^TMP(""TIUVIEW"",$J,"
^XMB(3.9,153,2,951,0)="""RTN"",""TIUSRVR1"",4,0)"
^XMB(3.9,153,2,952,0)=" N TIUL,TIUREC,TIUARR,TIUGDATA,TIUNAME,TIUPRM0,TIUPRM1,X,Y,TIUCPF,ONBROWSE"
^XMB(3.9,153,2,953,0)="""RTN"",""TIUSRVR1"",5,0)"
^XMB(3.9,153,2,954,0)=" K ^TMP(""TIUVIEW"",$J),^TMP(""TIU FOCUS"",$J)"
^XMB(3.9,153,2,955,0)="""RTN"",""TIUSRVR1"",6,0)"
^XMB(3.9,153,2,956,0)=" S ACTION=$G(ACTION,""VIEW""),TIUL=0"
^XMB(3.9,153,2,957,0)="""RTN"",""TIUSRVR1"",7,0)"
^XMB(3.9,153,2,958,0)=" D SETPARM^TIULE"
^XMB(3.9,153,2,959,0)="""RTN"",""TIUSRVR1"",8,0)"
^XMB(3.9,153,2,960,0)=" S TIUGDATA=$$SETGDATA(TIUDA)"
^XMB(3.9,153,2,961,0)="""RTN"",""TIUSRVR1"",9,0)"
^XMB(3.9,153,2,962,0)=" S TIUY=$NA(^TMP(""TIUVIEW"",$J))"
^XMB(3.9,153,2,963,0)="""RTN"",""TIUSRVR1"",10,0)"
^XMB(3.9,153,2,964,0)=" S TIUARR=""^TMP(""""TIUVIEW"""",$J)"""
^XMB(3.9,153,2,965,0)="""RTN"",""TIUSRVR1"",11,0)"
^XMB(3.9,153,2,966,0)=" I '$D(^TIU(8925,+TIUDA,0)) S VALMQUIT=1 Q"
^XMB(3.9,153,2,967,0)="""RTN"",""TIUSRVR1"",12,0)"
^XMB(3.9,153,2,968,0)=" ; Initialize ^TMP(""TIU FOCUS"",$J) to the entry that has focus"
^XMB(3.9,153,2,969,0)="""RTN"",""TIUSRVR1"",13,0)"
^XMB(3.9,153,2,970,0)=" S ^TMP(""TIU FOCUS"",$J)=TIUDA"
^XMB(3.9,153,2,971,0)="""RTN"",""TIUSRVR1"",14,0)"
^XMB(3.9,153,2,972,0)=" ; if the document has a browse action, execute it"
^XMB(3.9,153,2,973,0)="""RTN"",""TIUSRVR1"",15,0)"
^XMB(3.9,153,2,974,0)=" S ONBROWSE=$$ONBROWSE^TIULC1(+$G(^TIU(8925,+TIUDA,0)))"
^XMB(3.9,153,2,975,0)="""RTN"",""TIUSRVR1"",16,0)"
^XMB(3.9,153,2,976,0)=" I $L(ONBROWSE) D LOADSUPP(ONBROWSE,TIUDA,.TIUL)"
^XMB(3.9,153,2,977,0)="""RTN"",""TIUSRVR1"",17,0)"
^XMB(3.9,153,2,978,0)=" ; Call INQUIRE to get record"
^XMB(3.9,153,2,979,0)="""RTN"",""TIUSRVR1"",18,0)"
^XMB(3.9,153,2,980,0)=" ;Set a flag to indicate whether or not a Title is a memer of the"
^XMB(3.9,153,2,981,0)="""RTN"",""TIUSRVR1"",19,0)"
^XMB(3.9,153,2,982,0)=" ;Clinical Procedures Class (1=Yes and 0=No)"
^XMB(3.9,153,2,983,0)="""RTN"",""TIUSRVR1"",20,0)"
^XMB(3.9,153,2,984,0)=" S TIUCPF=+$$ISA^TIULX(+$G(^TIU(8925,TIUDA,0)),+$$CLASS^TIUCP)"
^XMB(3.9,153,2,985,0)="""RTN"",""TIUSRVR1"",21,0)"
^XMB(3.9,153,2,986,0)=" ; Call INQUIRE to get record"
^XMB(3.9,153,2,987,0)="""RTN"",""TIUSRVR1"",22,0)"
^XMB(3.9,153,2,988,0)=" D INQUIRE^TIUSRVR2(TIUDA,.TIUREC,TIUCPF)"
^XMB(3.9,153,2,989,0)="""RTN"",""TIUSRVR1"",23,0)"
^XMB(3.9,153,2,990,0)=" ; First, load dictation, transcription data, etc."
^XMB(3.9,153,2,991,0)="""RTN"",""TIUSRVR1"",24,0)"
^XMB(3.9,153,2,992,0)=" D LOADTOP(.TIUREC,TIUDA,.TIUL,TIUGDATA,TIUCPF)"
^XMB(3.9,153,2,993,0)="""RTN"",""TIUSRVR1"",25,0)"
^XMB(3.9,153,2,994,0)=" ; Next, load the remainder of the record"
^XMB(3.9,153,2,995,0)="""RTN"",""TIUSRVR1"",26,0)"
^XMB(3.9,153,2,996,0)=" D LOADREC^TIUSRVR2(TIUDA,.TIUL,TIUGDATA,0,ACTION)"
^XMB(3.9,153,2,997,0)="""RTN"",""TIUSRVR1"",27,0)"
^XMB(3.9,153,2,998,0)=" K ^TMP(""TIU FOCUS"",$J)"
^XMB(3.9,153,2,999,0)="""RTN"",""TIUSRVR1"",28,0)"
^XMB(3.9,153,2,1000,0)=" S VALMCNT=+$G(TIUL)"
^XMB(3.9,153,2,1001,0)="""RTN"",""TIUSRVR1"",29,0)"
^XMB(3.9,153,2,1002,0)=" Q"
^XMB(3.9,153,2,1003,0)="""RTN"",""TIUSRVR1"",30,0)"
^XMB(3.9,153,2,1004,0)="SETGDATA(TIUDA) ; Set TIUGDATA"
^XMB(3.9,153,2,1005,0)="""RTN"",""TIUSRVR1"",31,0)"
^XMB(3.9,153,2,1006,0)=" N TIUDPRM,TIUY,SORT S TIUY="""""
^XMB(3.9,153,2,1007,0)="""RTN"",""TIUSRVR1"",32,0)"
^XMB(3.9,153,2,1008,0)=" D DOCPRM^TIULC1(+$G(^TIU(8925,TIUDA,0)),.TIUDPRM,TIUDA)"
^XMB(3.9,153,2,1009,0)="""RTN"",""TIUSRVR1"",33,0)"
^XMB(3.9,153,2,1010,0)=" S SORT=$S(+$P(TIUDPRM(0),U,18):""TITLE"",1:""REFDT"")"
^XMB(3.9,153,2,1011,0)="""RTN"",""TIUSRVR1"",34,0)"
^XMB(3.9,153,2,1012,0)=" I +$G(^TIU(8925,TIUDA,21)) S TIUY=TIUDA_U_0_U_+$G(^(21))_U_SORT G SETGX"
^XMB(3.9,153,2,1013,0)="""RTN"",""TIUSRVR1"",35,0)"
^XMB(3.9,153,2,1014,0)=" I +$O(^TIU(8925,""GDAD"",TIUDA,0)) S TIUY=TIUDA_U_1_U_0_U_SORT"
^XMB(3.9,153,2,1015,0)="""RTN"",""TIUSRVR1"",36,0)"
^XMB(3.9,153,2,1016,0)="SETGX Q TIUY"
^XMB(3.9,153,2,1017,0)="""RTN"",""TIUSRVR1"",37,0)"
^XMB(3.9,153,2,1018,0)="LOADSUPP(METHOD,TIUDA,TIUL) ; Execute OnBrowse/Load Supplementary data"
^XMB(3.9,153,2,1019,0)="""RTN"",""TIUSRVR1"",38,0)"
^XMB(3.9,153,2,1020,0)=" N TIUY,TIUI S TIUI=0"
^XMB(3.9,153,2,1021,0)="""RTN"",""TIUSRVR1"",39,0)"
^XMB(3.9,153,2,1022,0)=" X METHOD I '$D(@TIUY) Q"
^XMB(3.9,153,2,1023,0)="""RTN"",""TIUSRVR1"",40,0)"
^XMB(3.9,153,2,1024,0)=" F  S TIUI=$O(@TIUY@(TIUI)) Q:+TIUI'>0  D"
^XMB(3.9,153,2,1025,0)="""RTN"",""TIUSRVR1"",41,0)"
^XMB(3.9,153,2,1026,0)=" . S TIUL=+$G(TIUL)+1,@TIUARR@(TIUL,0)=$G(@TIUY@(TIUI))"
^XMB(3.9,153,2,1027,0)="""RTN"",""TIUSRVR1"",42,0)"
^XMB(3.9,153,2,1028,0)=" S TIUL=+$G(TIUL)+1,@TIUARR@(TIUL,0)="" """
^XMB(3.9,153,2,1029,0)="""RTN"",""TIUSRVR1"",43,0)"
^XMB(3.9,153,2,1030,0)=" K @TIUY"
^XMB(3.9,153,2,1031,0)="""RTN"",""TIUSRVR1"",44,0)"
^XMB(3.9,153,2,1032,0)=" Q"
^XMB(3.9,153,2,1033,0)="""RTN"",""TIUSRVR1"",45,0)"
^XMB(3.9,153,2,1034,0)="LOADTOP(TIUREC,TIUDA,TIUL,TIUGDATA,TIUCPF) ; Load top information"
^XMB(3.9,153,2,1035,0)="""RTN"",""TIUSRVR1"",46,0)"
^XMB(3.9,153,2,1036,0)=" N TIUY,SHORT,CURCHLD,CURPRNT,SELCHLD,SELPRNT"
^XMB(3.9,153,2,1037,0)="""RTN"",""TIUSRVR1"",47,0)"
^XMB(3.9,153,2,1038,0)=" ; ---- For ID note, include Title, [Location, & Visit] with each"
^XMB(3.9,153,2,1039,0)="""RTN"",""TIUSRVR1"",48,0)"
^XMB(3.9,153,2,1040,0)=" ;      entry, since they vary by entry."
^XMB(3.9,153,2,1041,0)="""RTN"",""TIUSRVR1"",49,0)"
^XMB(3.9,153,2,1042,0)=" ; ---- Follow with Date, Author, etc."
^XMB(3.9,153,2,1043,0)="""RTN"",""TIUSRVR1"",50,0)"
^XMB(3.9,153,2,1044,0)=" ; ---- For ID children in whole note display, shorten top info:"
^XMB(3.9,153,2,1045,0)="""RTN"",""TIUSRVR1"",51,0)"
^XMB(3.9,153,2,1046,0)=" ;      Instead of Title, Location, Visit, Date, Author, etc.,"
^XMB(3.9,153,2,1047,0)="""RTN"",""TIUSRVR1"",52,0)"
^XMB(3.9,153,2,1048,0)=" ;      use just Title, followed by just Date and Status:"
^XMB(3.9,153,2,1049,0)="""RTN"",""TIUSRVR1"",53,0)"
^XMB(3.9,153,2,1050,0)=" S (SHORT,CURCHLD,CURPRNT,SELCHLD,SELPRNT)=0"
^XMB(3.9,153,2,1051,0)="""RTN"",""TIUSRVR1"",54,0)"
^XMB(3.9,153,2,1052,0)=" I $P(TIUGDATA,U,3) S SELCHLD=1 ; Selected record was IDchild"
^XMB(3.9,153,2,1053,0)="""RTN"",""TIUSRVR1"",55,0)"
^XMB(3.9,153,2,1054,0)=" I $P(TIUGDATA,U,2) S SELPRNT=1"
^XMB(3.9,153,2,1055,0)="""RTN"",""TIUSRVR1"",56,0)"
^XMB(3.9,153,2,1056,0)=" I SELCHLD,TIUDA'=$P(TIUGDATA,U,3) S CURCHLD=1 ; Current rec is IDchild"
^XMB(3.9,153,2,1057,0)="""RTN"",""TIUSRVR1"",57,0)"
^XMB(3.9,153,2,1058,0)=" I SELCHLD,TIUDA=$P(TIUGDATA,U,3) S CURPRNT=1"
^XMB(3.9,153,2,1059,0)="""RTN"",""TIUSRVR1"",58,0)"
^XMB(3.9,153,2,1060,0)=" I SELPRNT,TIUDA=+TIUGDATA S CURPRNT=1"
^XMB(3.9,153,2,1061,0)="""RTN"",""TIUSRVR1"",59,0)"
^XMB(3.9,153,2,1062,0)=" I SELPRNT,TIUDA'=+TIUGDATA S CURCHLD=1"
^XMB(3.9,153,2,1063,0)="""RTN"",""TIUSRVR1"",60,0)"
^XMB(3.9,153,2,1064,0)=" I SELPRNT,CURCHLD S SHORT=1 ;Child in whole note: shorten top info"
^XMB(3.9,153,2,1065,0)="""RTN"",""TIUSRVR1"",61,0)"
^XMB(3.9,153,2,1066,0)=" I SELCHLD,CURCHLD,$G(TIUGWHOL) S SHORT=1"
^XMB(3.9,153,2,1067,0)="""RTN"",""TIUSRVR1"",62,0)"
^XMB(3.9,153,2,1068,0)=" I SELCHLD!SELPRNT D IDTOP(TIUDA,.TIUL,SHORT,CURPRNT) I 1"
^XMB(3.9,153,2,1069,0)="""RTN"",""TIUSRVR1"",63,0)"
^XMB(3.9,153,2,1070,0)=" S TIUY="""""
^XMB(3.9,153,2,1071,0)="""RTN"",""TIUSRVR1"",64,0)"
^XMB(3.9,153,2,1072,0)=" E  I $L(TIUREC(8925,+TIUDA,.01)) D"
^XMB(3.9,153,2,1073,0)="""RTN"",""TIUSRVR1"",65,0)"
^XMB(3.9,153,2,1074,0)=" . S TIUY=$$SETSTR^VALM1(""TITLE: ""_TIUREC(8925,+TIUDA,.01),TIUY,8,64)"
^XMB(3.9,153,2,1075,0)="""RTN"",""TIUSRVR1"",66,0)"
^XMB(3.9,153,2,1076,0)=" . S TIUL=TIUL+1,@TIUARR@(TIUL)=TIUY"
^XMB(3.9,153,2,1077,0)="""RTN"",""TIUSRVR1"",67,0)"
^XMB(3.9,153,2,1078,0)=" S TIUY="""""
^XMB(3.9,153,2,1079,0)="""RTN"",""TIUSRVR1"",68,0)"
^XMB(3.9,153,2,1080,0)=" I SHORT D"
^XMB(3.9,153,2,1081,0)="""RTN"",""TIUSRVR1"",69,0)"
^XMB(3.9,153,2,1082,0)=" . S TIUY=$$SETSTR^VALM1(""DATE OF NOTE: ""_TIUREC(8925,+TIUDA,1301),TIUY,1,39)"
^XMB(3.9,153,2,1083,0)="""RTN"",""TIUSRVR1"",70,0)"
^XMB(3.9,153,2,1084,0)=" . S TIUY=$$SETSTR^VALM1(""STATUS: ""_TIUREC(8925,+TIUDA,.05),TIUY,42,38)"
^XMB(3.9,153,2,1085,0)="""RTN"",""TIUSRVR1"",71,0)"
^XMB(3.9,153,2,1086,0)=" . S TIUL=TIUL+1,@TIUARR@(TIUL)=TIUY"
^XMB(3.9,153,2,1087,0)="""RTN"",""TIUSRVR1"",72,0)"
^XMB(3.9,153,2,1088,0)=" S TIUY="""""
^XMB(3.9,153,2,1089,0)="""RTN"",""TIUSRVR1"",73,0)"
^XMB(3.9,153,2,1090,0)=" I 'SHORT D"
^XMB(3.9,153,2,1091,0)="""RTN"",""TIUSRVR1"",74,0)"
^XMB(3.9,153,2,1092,0)=" . I $L(TIUREC(8925,+TIUDA,1307)) D  I 1"
^XMB(3.9,153,2,1093,0)="""RTN"",""TIUSRVR1"",75,0)"
^XMB(3.9,153,2,1094,0)=" . . S TIUY=$$SETSTR^VALM1(""DICT DATE: ""_TIUREC(8925,+TIUDA,1307),TIUY,4,39)"
^XMB(3.9,153,2,1095,0)="""RTN"",""TIUSRVR1"",76,0)"
^XMB(3.9,153,2,1096,0)=" . E  S TIUY=$$SETSTR^VALM1(""DATE OF NOTE: ""_TIUREC(8925,+TIUDA,1301),TIUY,1,39)"
^XMB(3.9,153,2,1097,0)="""RTN"",""TIUSRVR1"",77,0)"
^XMB(3.9,153,2,1098,0)=" . S TIUY=$$SETSTR^VALM1(""ENTRY DATE: ""_TIUREC(8925,+TIUDA,1201),$G(TIUY),38,39)"
^XMB(3.9,153,2,1099,0)="""RTN"",""TIUSRVR1"",78,0)"
^XMB(3.9,153,2,1100,0)=" . S TIUL=TIUL+1,@TIUARR@(TIUL)=TIUY"
^XMB(3.9,153,2,1101,0)="""RTN"",""TIUSRVR1"",79,0)"
^XMB(3.9,153,2,1102,0)=" . S TIUY="""""
^XMB(3.9,153,2,1103,0)="""RTN"",""TIUSRVR1"",80,0)"
^XMB(3.9,153,2,1104,0)=" . I $L(TIUREC(8925,+TIUDA,1307)) D  I 1"
^XMB(3.9,153,2,1105,0)="""RTN"",""TIUSRVR1"",81,0)"
^XMB(3.9,153,2,1106,0)=" . . S TIUY=$$SETSTR^VALM1(""DICTATED BY: ""_TIUREC(8925,+TIUDA,1202),TIUY,2,32)"
^XMB(3.9,153,2,1107,0)="""RTN"",""TIUSRVR1"",82,0)"
^XMB(3.9,153,2,1108,0)=" . E  S TIUY=$$SETSTR^VALM1(""AUTHOR: ""_TIUREC(8925,+TIUDA,1202),TIUY,7,27)"
^XMB(3.9,153,2,1109,0)="""RTN"",""TIUSRVR1"",83,0)"
^XMB(3.9,153,2,1110,0)=" . I +$G(^TIU(8925,+TIUDA,0))=$$CHKFILE^TIUADCL(8925.1,""OPERATION REPORT"",""I $P(^(0),U,4)=""""DOC"""""") S TIUY=$$SETSTR^VALM1(""    SURGEON: ""_TIUREC(8925,+TIUDA,1202),TIUY,2,32)"
^XMB(3.9,153,2,1111,0)="""RTN"",""TIUSRVR1"",84,0)"
^XMB(3.9,153,2,1112,0)=" . I $L(TIUREC(8925,+TIUDA,1209)) D  I 1"
^XMB(3.9,153,2,1113,0)="""RTN"",""TIUSRVR1"",85,0)"
^XMB(3.9,153,2,1114,0)=" . . S TIUY=$$SETSTR^VALM1(""ATTENDING: ""_TIUREC(8925,+TIUDA,1209),TIUY,39,40)"
^XMB(3.9,153,2,1115,0)="""RTN"",""TIUSRVR1"",86,0)"
^XMB(3.9,153,2,1116,0)=" . E  S TIUY=$$SETSTR^VALM1(""EXP COSIGNER: ""_TIUREC(8925,+TIUDA,1208),TIUY,36,40)"
^XMB(3.9,153,2,1117,0)="""RTN"",""TIUSRVR1"",87,0)"
^XMB(3.9,153,2,1118,0)=" . S TIUL=TIUL+1,@TIUARR@(TIUL)=TIUY"
^XMB(3.9,153,2,1119,0)="""RTN"",""TIUSRVR1"",88,0)"
^XMB(3.9,153,2,1120,0)=" . S TIUY="""""
^XMB(3.9,153,2,1121,0)="""RTN"",""TIUSRVR1"",89,0)"
^XMB(3.9,153,2,1122,0)=" . S TIUY=$$SETSTR^VALM1(""URGENCY: ""_TIUREC(8925,+TIUDA,.09),TIUY,6,36)"
^XMB(3.9,153,2,1123,0)="""RTN"",""TIUSRVR1"",90,0)"
^XMB(3.9,153,2,1124,0)=" . S TIUY=$$SETSTR^VALM1(""STATUS: ""_TIUREC(8925,+TIUDA,.05),TIUY,42,38)"
^XMB(3.9,153,2,1125,0)="""RTN"",""TIUSRVR1"",91,0)"
^XMB(3.9,153,2,1126,0)=" . S TIUL=TIUL+1,@TIUARR@(TIUL)=TIUY"
^XMB(3.9,153,2,1127,0)="""RTN"",""TIUSRVR1"",92,0)"
^XMB(3.9,153,2,1128,0)=" ; * 173 "
^XMB(3.9,153,2,1129,0)="""RTN"",""TIUSRVR1"",93,0)"
^XMB(3.9,153,2,1130,0)=" I TIUREC(8925,+TIUDA,.05)=""UNCOSIGNED"" D"
^XMB(3.9,153,2,1131,0)="""RTN"",""TIUSRVR1"",94,0)"
^XMB(3.9,153,2,1132,0)=" . S TIUY="""",TIUL=TIUL+1,@TIUARR@(TIUL)=TIUY"
^XMB(3.9,153,2,1133,0)="""RTN"",""TIUSRVR1"",95,0)"
^XMB(3.9,153,2,1134,0)=" . S TIUY="""",TIUL=TIUL+1,TIUY=$$SETSTR^VALM1(""*** NOT YET COSIGNED ***"",TIUY,20,51),@TIUARR@(TIUL)=TIUY"
^XMB(3.9,153,2,1135,0)="""RTN"",""TIUSRVR1"",96,0)"
^XMB(3.9,153,2,1136,0)=" S TIUY="""""
^XMB(3.9,153,2,1137,0)="""RTN"",""TIUSRVR1"",97,0)"
^XMB(3.9,153,2,1138,0)=" I '$L($G(^TIU(8925,+TIUDA,17))) D  I 1"
^XMB(3.9,153,2,1139,0)="""RTN"",""TIUSRVR1"",98,0)"
^XMB(3.9,153,2,1140,0)=" . S TIUL=TIUL+1,@TIUARR@(TIUL)=TIUY"
^XMB(3.9,153,2,1141,0)="""RTN"",""TIUSRVR1"",99,0)"
^XMB(3.9,153,2,1142,0)=" E  D"
^XMB(3.9,153,2,1143,0)="""RTN"",""TIUSRVR1"",100,0)"
^XMB(3.9,153,2,1144,0)=" . S TIUY=$$SETSTR^VALM1(""SUBJECT: ""_$G(^TIU(8925,+TIUDA,17)),TIUY,6,74)"
^XMB(3.9,153,2,1145,0)="""RTN"",""TIUSRVR1"",101,0)"
^XMB(3.9,153,2,1146,0)=" . S TIUL=TIUL+1,@TIUARR@(TIUL)=TIUY"
^XMB(3.9,153,2,1147,0)="""RTN"",""TIUSRVR1"",102,0)"
^XMB(3.9,153,2,1148,0)=" . S TIUL=TIUL+1,@TIUARR@(TIUL)="""""
^XMB(3.9,153,2,1149,0)="""RTN"",""TIUSRVR1"",103,0)"
^XMB(3.9,153,2,1150,0)=" ;If the document is a member of the Clinical Procedures Class, include the"
^XMB(3.9,153,2,1151,0)="""RTN"",""TIUSRVR1"",104,0)"
^XMB(3.9,153,2,1152,0)=" ; Procedure Summary Code field and the Date/Time Performed field"
^XMB(3.9,153,2,1153,0)="""RTN"",""TIUSRVR1"",105,0)"
^XMB(3.9,153,2,1154,0)=" I $G(TIUCPF) D"
^XMB(3.9,153,2,1155,0)="""RTN"",""TIUSRVR1"",106,0)"
^XMB(3.9,153,2,1156,0)=" . S TIUL=TIUL+1,TIUY="""""
^XMB(3.9,153,2,1157,0)="""RTN"",""TIUSRVR1"",107,0)"
^XMB(3.9,153,2,1158,0)=" . S TIUY=$$SETSTR^VALM1(""PROCEDURE SUMMARY CODE: ""_TIUREC(8925,+TIUDA,70201),$G(TIUY),1,54)"
^XMB(3.9,153,2,1159,0)="""RTN"",""TIUSRVR1"",108,0)"
^XMB(3.9,153,2,1160,0)=" . S @TIUARR@(TIUL)=TIUY"
^XMB(3.9,153,2,1161,0)="""RTN"",""TIUSRVR1"",109,0)"
^XMB(3.9,153,2,1162,0)=" . S TIUL=TIUL+1,TIUY="""""
^XMB(3.9,153,2,1163,0)="""RTN"",""TIUSRVR1"",110,0)"
^XMB(3.9,153,2,1164,0)=" . S TIUY=$$SETSTR^VALM1(""DATE/TIME PERFORMED: ""_TIUREC(8925,+TIUDA,70202),$G(TIUY),1,41)"
^XMB(3.9,153,2,1165,0)="""RTN"",""TIUSRVR1"",111,0)"
^XMB(3.9,153,2,1166,0)=" . S @TIUARR@(TIUL)=TIUY"
^XMB(3.9,153,2,1167,0)="""RTN"",""TIUSRVR1"",112,0)"
^XMB(3.9,153,2,1168,0)=" . S TIUL=TIUL+1,TIUY="""",@TIUARR@(TIUL)=TIUY"
^XMB(3.9,153,2,1169,0)="""RTN"",""TIUSRVR1"",113,0)"
^XMB(3.9,153,2,1170,0)=" I +$$HASADDEN^TIULC1(TIUDA) D"
^XMB(3.9,153,2,1171,0)="""RTN"",""TIUSRVR1"",114,0)"
^XMB(3.9,153,2,1172,0)=" . S TIUY=""   *** ""_$$PNAME^TIULC1(+$G(^TIU(8925,TIUDA,0)))"
^XMB(3.9,153,2,1173,0)="""RTN"",""TIUSRVR1"",115,0)"
^XMB(3.9,153,2,1174,0)=" . S TIUY=TIUY_"" Has ADDENDA ***"""
^XMB(3.9,153,2,1175,0)="""RTN"",""TIUSRVR1"",116,0)"
^XMB(3.9,153,2,1176,0)=" . S TIUL=TIUL+1,@TIUARR@(TIUL)=TIUY"
^XMB(3.9,153,2,1177,0)="""RTN"",""TIUSRVR1"",117,0)"
^XMB(3.9,153,2,1178,0)=" . S TIUL=TIUL+1,@TIUARR@(TIUL)="""""
^XMB(3.9,153,2,1179,0)="""RTN"",""TIUSRVR1"",118,0)"
^XMB(3.9,153,2,1180,0)=" Q"
^XMB(3.9,153,2,1181,0)="""RTN"",""TIUSRVR1"",119,0)"
^XMB(3.9,153,2,1182,0)=" ;"
^XMB(3.9,153,2,1183,0)="""RTN"",""TIUSRVR1"",120,0)"
^XMB(3.9,153,2,1184,0)="ISCOMP(DA) ; Evaluate whether a given record is a component"
^XMB(3.9,153,2,1185,0)="""RTN"",""TIUSRVR1"",121,0)"
^XMB(3.9,153,2,1186,0)=" N TIUY,TIUTYP"
^XMB(3.9,153,2,1187,0)="""RTN"",""TIUSRVR1"",122,0)"
^XMB(3.9,153,2,1188,0)=" S TIUTYP=+$G(^TIU(8925,DA,0))"
^XMB(3.9,153,2,1189,0)="""RTN"",""TIUSRVR1"",123,0)"
^XMB(3.9,153,2,1190,0)=" S TIUY=$S($P($G(^TIU(8925.1,+TIUTYP,0)),U,4)=""CO"":1,1:0)"
^XMB(3.9,153,2,1191,0)="""RTN"",""TIUSRVR1"",124,0)"
^XMB(3.9,153,2,1192,0)=" Q TIUY"
^XMB(3.9,153,2,1193,0)="""RTN"",""TIUSRVR1"",125,0)"
^XMB(3.9,153,2,1194,0)="IDTOP(TIUDA,TIUL,SHORT,CURPRNT) ; Load entry-specific info:"
^XMB(3.9,153,2,1195,0)="""RTN"",""TIUSRVR1"",126,0)"
^XMB(3.9,153,2,1196,0)=" ;Title, [Location, Visit] for ID entry."
^XMB(3.9,153,2,1197,0)="""RTN"",""TIUSRVR1"",127,0)"
^XMB(3.9,153,2,1198,0)=" ; Called by LOADTOP"
^XMB(3.9,153,2,1199,0)="""RTN"",""TIUSRVR1"",128,0)"
^XMB(3.9,153,2,1200,0)=" N TIUY,TIUX,TIU"
^XMB(3.9,153,2,1201,0)="""RTN"",""TIUSRVR1"",129,0)"
^XMB(3.9,153,2,1202,0)=" I CURPRNT S TIUL=+$G(TIUL)+1,@TIUARR@(TIUL)=""                         << Interdisciplinary Note >>"""
^XMB(3.9,153,2,1203,0)="""RTN"",""TIUSRVR1"",130,0)"
^XMB(3.9,153,2,1204,0)=" I SHORT S TIUL=+$G(TIUL)+1,@TIUARR@(TIUL)=""                      << Interdisciplinary Note - Cont. >>"""
^XMB(3.9,153,2,1205,0)="""RTN"",""TIUSRVR1"",131,0)"
^XMB(3.9,153,2,1206,0)=" D GETTIU^TIULD(.TIU,+TIUDA)"
^XMB(3.9,153,2,1207,0)="""RTN"",""TIUSRVR1"",132,0)"
^XMB(3.9,153,2,1208,0)=" S TIUY="""",TIUX=""TITLE: ""_$P($G(TIU(""DOCTYP"")),U,2)"
^XMB(3.9,153,2,1209,0)="""RTN"",""TIUSRVR1"",133,0)"
^XMB(3.9,153,2,1210,0)=" S TIUY=$$SETSTR^VALM1(TIUX,TIUY,1,67)"
^XMB(3.9,153,2,1211,0)="""RTN"",""TIUSRVR1"",134,0)"
^XMB(3.9,153,2,1212,0)=" S TIUL=TIUL+1,@TIUARR@(TIUL)=TIUY"
^XMB(3.9,153,2,1213,0)="""RTN"",""TIUSRVR1"",135,0)"
^XMB(3.9,153,2,1214,0)=" Q:SHORT"
^XMB(3.9,153,2,1215,0)="""RTN"",""TIUSRVR1"",136,0)"
^XMB(3.9,153,2,1216,0)=" S TIUY="""",TIUX=""LOCATION: ""_$P($G(TIU(""LOC"")),U,2)"
^XMB(3.9,153,2,1217,0)="""RTN"",""TIUSRVR1"",137,0)"
^XMB(3.9,153,2,1218,0)=" S TIUY=$$SETSTR^VALM1(TIUX,TIUY,5,31)"
^XMB(3.9,153,2,1219,0)="""RTN"",""TIUSRVR1"",138,0)"
^XMB(3.9,153,2,1220,0)=" I $L($G(TIU(""WARD""))) D  I 1"
^XMB(3.9,153,2,1221,0)="""RTN"",""TIUSRVR1"",139,0)"
^XMB(3.9,153,2,1222,0)=" . S TIUX=""ADMISSION DATE: ""_$P($G(TIU(""EDT"")),U,2)"
^XMB(3.9,153,2,1223,0)="""RTN"",""TIUSRVR1"",140,0)"
^XMB(3.9,153,2,1224,0)=" . S TIUY=$$SETSTR^VALM1(TIUX,TIUY,34,37)"
^XMB(3.9,153,2,1225,0)="""RTN"",""TIUSRVR1"",141,0)"
^XMB(3.9,153,2,1226,0)=" E  D"
^XMB(3.9,153,2,1227,0)="""RTN"",""TIUSRVR1"",142,0)"
^XMB(3.9,153,2,1228,0)=" . S TIUX=""VISIT DATE: ""_$P($G(TIU(""EDT"")),U,2)"
^XMB(3.9,153,2,1229,0)="""RTN"",""TIUSRVR1"",143,0)"
^XMB(3.9,153,2,1230,0)=" . S TIUY=$$SETSTR^VALM1(TIUX,TIUY,38,33)"
^XMB(3.9,153,2,1231,0)="""RTN"",""TIUSRVR1"",144,0)"
^XMB(3.9,153,2,1232,0)=" S TIUL=TIUL+1,@TIUARR@(TIUL)=TIUY"
^XMB(3.9,153,2,1233,0)="""RTN"",""TIUSRVR1"",145,0)"
^XMB(3.9,153,2,1234,0)=" Q"
^XMB(3.9,153,2,1235,0)="""VER"")"
^XMB(3.9,153,2,1236,0)="8.0^22.0"
^XMB(3.9,153,2,1237,0)="""BLD"",6577,6)"
^XMB(3.9,153,2,1238,0)="^201"
^XMB(3.9,153,2,1239,0)="$END KID TIU*1.0*208"
^XMB(3.9,153,6,0)="^3.911A^2^2"
^XMB(3.9,153,6,1,0)="POSTMASTER"
^XMB(3.9,153,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,153,6,"B","POSTMASTER",1)=""
^XMB(3.9,153,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,154,0)="VALM-1_SEQ-8_PAT-8.KID^.5^3061008.015743^^^^K"
^XMB(3.9,154,.6)="3061008"
^XMB(3.9,154,1,0)="^3.91A^2^2"
^XMB(3.9,154,1,1,0)=".5^0^3061008.015743^^^^^^^3061008.015743"
^XMB(3.9,154,1,2,0)="1^0^3061008.022843^^^^^^^3061008.022843"
^XMB(3.9,154,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,154,1,"C",.5,1)=""
^XMB(3.9,154,1,"C",1,2)=""
^XMB(3.9,154,2,0)="^^713^713^3061008"
^XMB(3.9,154,2,1,0)="$TXT Released VALM*1*8 SEQ #8"
^XMB(3.9,154,2,2,0)="Extracted from mail message"
^XMB(3.9,154,2,3,0)="$END TXT"
^XMB(3.9,154,2,4,0)="$KID VALM*1.0*8"
^XMB(3.9,154,2,5,0)="**INSTALL NAME**"
^XMB(3.9,154,2,6,0)="VALM*1.0*8"
^XMB(3.9,154,2,7,0)="""BLD"",954,0)"
^XMB(3.9,154,2,8,0)="VALM*1.0*8^LIST MANAGER^0^3060703^y"
^XMB(3.9,154,2,9,0)="""BLD"",954,1,0)"
^XMB(3.9,154,2,10,0)="^^2^2^3060703^^^^"
^XMB(3.9,154,2,11,0)="""BLD"",954,1,1,0)"
^XMB(3.9,154,2,12,0)="See patch VALM*1*8 in the National Patch Module for complete"
^XMB(3.9,154,2,13,0)="""BLD"",954,1,2,0)"
^XMB(3.9,154,2,14,0)="information on this patch."
^XMB(3.9,154,2,15,0)="""BLD"",954,4,0)"
^XMB(3.9,154,2,16,0)="^9.64PA^^"
^XMB(3.9,154,2,17,0)="""BLD"",954,6.3)"
^XMB(3.9,154,2,18,0)="1"
^XMB(3.9,154,2,19,0)="""BLD"",954,""KRN"",0)"
^XMB(3.9,154,2,20,0)="^9.67PA^8989.52^19"
^XMB(3.9,154,2,21,0)="""BLD"",954,""KRN"",.4,0)"
^XMB(3.9,154,2,22,0)=".4"
^XMB(3.9,154,2,23,0)="""BLD"",954,""KRN"",.401,0)"
^XMB(3.9,154,2,24,0)=".401"
^XMB(3.9,154,2,25,0)="""BLD"",954,""KRN"",.402,0)"
^XMB(3.9,154,2,26,0)=".402"
^XMB(3.9,154,2,27,0)="""BLD"",954,""KRN"",.403,0)"
^XMB(3.9,154,2,28,0)=".403"
^XMB(3.9,154,2,29,0)="""BLD"",954,""KRN"",.5,0)"
^XMB(3.9,154,2,30,0)=".5"
^XMB(3.9,154,2,31,0)="""BLD"",954,""KRN"",.84,0)"
^XMB(3.9,154,2,32,0)=".84"
^XMB(3.9,154,2,33,0)="""BLD"",954,""KRN"",3.6,0)"
^XMB(3.9,154,2,34,0)="3.6"
^XMB(3.9,154,2,35,0)="""BLD"",954,""KRN"",3.8,0)"
^XMB(3.9,154,2,36,0)="3.8"
^XMB(3.9,154,2,37,0)="""BLD"",954,""KRN"",9.2,0)"
^XMB(3.9,154,2,38,0)="9.2"
^XMB(3.9,154,2,39,0)="""BLD"",954,""KRN"",9.8,0)"
^XMB(3.9,154,2,40,0)="9.8"
^XMB(3.9,154,2,41,0)="""BLD"",954,""KRN"",9.8,""NM"",0)"
^XMB(3.9,154,2,42,0)="^9.68A^2^2"
^XMB(3.9,154,2,43,0)="""BLD"",954,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,154,2,44,0)="VALM1^^0^B26058095"
^XMB(3.9,154,2,45,0)="""BLD"",954,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,154,2,46,0)="VALMD^^0^B16458760"
^XMB(3.9,154,2,47,0)="""BLD"",954,""KRN"",9.8,""NM"",""B"",""VALM1"",1)"
^XMB(3.9,154,2,48,0)=""
^XMB(3.9,154,2,49,0)="""BLD"",954,""KRN"",9.8,""NM"",""B"",""VALMD"",2)"
^XMB(3.9,154,2,50,0)=""
^XMB(3.9,154,2,51,0)="""BLD"",954,""KRN"",19,0)"
^XMB(3.9,154,2,52,0)="19"
^XMB(3.9,154,2,53,0)="""BLD"",954,""KRN"",19.1,0)"
^XMB(3.9,154,2,54,0)="19.1"
^XMB(3.9,154,2,55,0)="""BLD"",954,""KRN"",101,0)"
^XMB(3.9,154,2,56,0)="101"
^XMB(3.9,154,2,57,0)="""BLD"",954,""KRN"",409.61,0)"
^XMB(3.9,154,2,58,0)="409.61"
^XMB(3.9,154,2,59,0)="""BLD"",954,""KRN"",771,0)"
^XMB(3.9,154,2,60,0)="771"
^XMB(3.9,154,2,61,0)="""BLD"",954,""KRN"",870,0)"
^XMB(3.9,154,2,62,0)="870"
^XMB(3.9,154,2,63,0)="""BLD"",954,""KRN"",8989.51,0)"
^XMB(3.9,154,2,64,0)="8989.51"
^XMB(3.9,154,2,65,0)="""BLD"",954,""KRN"",8989.52,0)"
^XMB(3.9,154,2,66,0)="8989.52"
^XMB(3.9,154,2,67,0)="""BLD"",954,""KRN"",8994,0)"
^XMB(3.9,154,2,68,0)="8994"
^XMB(3.9,154,2,69,0)="""BLD"",954,""KRN"",""B"",.4,.4)"
^XMB(3.9,154,2,70,0)=""
^XMB(3.9,154,2,71,0)="""BLD"",954,""KRN"",""B"",.401,.401)"
^XMB(3.9,154,2,72,0)=""
^XMB(3.9,154,2,73,0)="""BLD"",954,""KRN"",""B"",.402,.402)"
^XMB(3.9,154,2,74,0)=""
^XMB(3.9,154,2,75,0)="""BLD"",954,""KRN"",""B"",.403,.403)"
^XMB(3.9,154,2,76,0)=""
^XMB(3.9,154,2,77,0)="""BLD"",954,""KRN"",""B"",.5,.5)"
^XMB(3.9,154,2,78,0)=""
^XMB(3.9,154,2,79,0)="""BLD"",954,""KRN"",""B"",.84,.84)"
^XMB(3.9,154,2,80,0)=""
^XMB(3.9,154,2,81,0)="""BLD"",954,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,154,2,82,0)=""
^XMB(3.9,154,2,83,0)="""BLD"",954,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,154,2,84,0)=""
^XMB(3.9,154,2,85,0)="""BLD"",954,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,154,2,86,0)=""
^XMB(3.9,154,2,87,0)="""BLD"",954,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,154,2,88,0)=""
^XMB(3.9,154,2,89,0)="""BLD"",954,""KRN"",""B"",19,19)"
^XMB(3.9,154,2,90,0)=""
^XMB(3.9,154,2,91,0)="""BLD"",954,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,154,2,92,0)=""
^XMB(3.9,154,2,93,0)="""BLD"",954,""KRN"",""B"",101,101)"
^XMB(3.9,154,2,94,0)=""
^XMB(3.9,154,2,95,0)="""BLD"",954,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,154,2,96,0)=""
^XMB(3.9,154,2,97,0)="""BLD"",954,""KRN"",""B"",771,771)"
^XMB(3.9,154,2,98,0)=""
^XMB(3.9,154,2,99,0)="""BLD"",954,""KRN"",""B"",870,870)"
^XMB(3.9,154,2,100,0)=""
^XMB(3.9,154,2,101,0)="""BLD"",954,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,154,2,102,0)=""
^XMB(3.9,154,2,103,0)="""BLD"",954,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,154,2,104,0)=""
^XMB(3.9,154,2,105,0)="""BLD"",954,""KRN"",""B"",8994,8994)"
^XMB(3.9,154,2,106,0)=""
^XMB(3.9,154,2,107,0)="""BLD"",954,""QUES"",0)"
^XMB(3.9,154,2,108,0)="^9.62^^"
^XMB(3.9,154,2,109,0)="""BLD"",954,""REQB"",0)"
^XMB(3.9,154,2,110,0)="^9.611^1^1"
^XMB(3.9,154,2,111,0)="""BLD"",954,""REQB"",1,0)"
^XMB(3.9,154,2,112,0)="VALM*1.0*6^1"
^XMB(3.9,154,2,113,0)="""BLD"",954,""REQB"",""B"",""VALM*1.0*6"",1)"
^XMB(3.9,154,2,114,0)=""
^XMB(3.9,154,2,115,0)="""MBREQ"")"
^XMB(3.9,154,2,116,0)="0"
^XMB(3.9,154,2,117,0)="""PKG"",58,-1)"
^XMB(3.9,154,2,118,0)="1^1"
^XMB(3.9,154,2,119,0)="""PKG"",58,0)"
^XMB(3.9,154,2,120,0)="LIST MANAGER^VALM^^"
^XMB(3.9,154,2,121,0)="""PKG"",58,22,0)"
^XMB(3.9,154,2,122,0)="^9.49I^1^1"
^XMB(3.9,154,2,123,0)="""PKG"",58,22,1,0)"
^XMB(3.9,154,2,124,0)="1.0"
^XMB(3.9,154,2,125,0)="""PKG"",58,22,1,""PAH"",1,0)"
^XMB(3.9,154,2,126,0)="8^3060703"
^XMB(3.9,154,2,127,0)="""PKG"",58,22,1,""PAH"",1,1,0)"
^XMB(3.9,154,2,128,0)="^^2^2^3060703"
^XMB(3.9,154,2,129,0)="""PKG"",58,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,154,2,130,0)="See patch VALM*1*8 in the National Patch Module for complete"
^XMB(3.9,154,2,131,0)="""PKG"",58,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,154,2,132,0)="information on this patch."
^XMB(3.9,154,2,133,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,154,2,134,0)="Y"
^XMB(3.9,154,2,135,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,154,2,136,0)="^D REP^XPDH"
^XMB(3.9,154,2,137,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,154,2,138,0)="Shall I write over your |FLAG| File"
^XMB(3.9,154,2,139,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,154,2,140,0)="YES"
^XMB(3.9,154,2,141,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,154,2,142,0)="D XPF1^XPDIQ"
^XMB(3.9,154,2,143,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,154,2,144,0)="Y"
^XMB(3.9,154,2,145,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,154,2,146,0)="^D DTA^XPDH"
^XMB(3.9,154,2,147,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,154,2,148,0)="Want my data |FLAG| yours"
^XMB(3.9,154,2,149,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,154,2,150,0)="YES"
^XMB(3.9,154,2,151,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,154,2,152,0)="D XPF2^XPDIQ"
^XMB(3.9,154,2,153,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,154,2,154,0)="YO"
^XMB(3.9,154,2,155,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,154,2,156,0)="^D INHIBIT^XPDH"
^XMB(3.9,154,2,157,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,154,2,158,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,154,2,159,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,154,2,160,0)="YES"
^XMB(3.9,154,2,161,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,154,2,162,0)="D XPI1^XPDIQ"
^XMB(3.9,154,2,163,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,154,2,164,0)="PO^VA(200,:EM"
^XMB(3.9,154,2,165,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,154,2,166,0)="^D MG^XPDH"
^XMB(3.9,154,2,167,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,154,2,168,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,154,2,169,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,154,2,170,0)=""
^XMB(3.9,154,2,171,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,154,2,172,0)="D XPM1^XPDIQ"
^XMB(3.9,154,2,173,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,154,2,174,0)="Y"
^XMB(3.9,154,2,175,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,154,2,176,0)="^D MENU^XPDH"
^XMB(3.9,154,2,177,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,154,2,178,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,154,2,179,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,154,2,180,0)="YES"
^XMB(3.9,154,2,181,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,154,2,182,0)="D XPO1^XPDIQ"
^XMB(3.9,154,2,183,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,154,2,184,0)="Y"
^XMB(3.9,154,2,185,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,154,2,186,0)="^D OPT^XPDH"
^XMB(3.9,154,2,187,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,154,2,188,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,154,2,189,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,154,2,190,0)="YES"
^XMB(3.9,154,2,191,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,154,2,192,0)="D XPZ1^XPDIQ"
^XMB(3.9,154,2,193,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,154,2,194,0)="Y"
^XMB(3.9,154,2,195,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,154,2,196,0)="^D RTN^XPDH"
^XMB(3.9,154,2,197,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,154,2,198,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,154,2,199,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,154,2,200,0)="NO"
^XMB(3.9,154,2,201,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,154,2,202,0)="D XPZ2^XPDIQ"
^XMB(3.9,154,2,203,0)="""RTN"")"
^XMB(3.9,154,2,204,0)="2"
^XMB(3.9,154,2,205,0)="""RTN"",""VALM1"")"
^XMB(3.9,154,2,206,0)="0^1^B26058095^B25912107"
^XMB(3.9,154,2,207,0)="""RTN"",""VALM1"",1,0)"
^XMB(3.9,154,2,208,0)="VALM1 ;ALB/MJK - Screen Manipulation Utilities ;06/27/2006"
^XMB(3.9,154,2,209,0)="""RTN"",""VALM1"",2,0)"
^XMB(3.9,154,2,210,0)=" ;;1.0;List Manager;**5,6,8**;Aug 13, 1993;Build 1"
^XMB(3.9,154,2,211,0)="""RTN"",""VALM1"",3,0)"
^XMB(3.9,154,2,212,0)="INSTR(STR,X,Y,LENGTH,ERASE) ; -- insert text"
^XMB(3.9,154,2,213,0)="""RTN"",""VALM1"",4,0)"
^XMB(3.9,154,2,214,0)=" ;    STR := string to insert"
^XMB(3.9,154,2,215,0)="""RTN"",""VALM1"",5,0)"
^XMB(3.9,154,2,216,0)=" ;      X := X coordinate"
^XMB(3.9,154,2,217,0)="""RTN"",""VALM1"",6,0)"
^XMB(3.9,154,2,218,0)=" ;      Y := Y coordinate"
^XMB(3.9,154,2,219,0)="""RTN"",""VALM1"",7,0)"
^XMB(3.9,154,2,220,0)=" ; LENGTH := clear # of characters"
^XMB(3.9,154,2,221,0)="""RTN"",""VALM1"",8,0)"
^XMB(3.9,154,2,222,0)=" ;  ERASE := erase chars first"
^XMB(3.9,154,2,223,0)="""RTN"",""VALM1"",9,0)"
^XMB(3.9,154,2,224,0)=" W IOSC"
^XMB(3.9,154,2,225,0)="""RTN"",""VALM1"",10,0)"
^XMB(3.9,154,2,226,0)=" I $G(ERASE) S DY=Y-1,DX=X-1 X IOXY W $J("""",LENGTH)"
^XMB(3.9,154,2,227,0)="""RTN"",""VALM1"",11,0)"
^XMB(3.9,154,2,228,0)=" S DY=Y-1,DX=X-1 X IOXY W STR"
^XMB(3.9,154,2,229,0)="""RTN"",""VALM1"",12,0)"
^XMB(3.9,154,2,230,0)=" W IORC"
^XMB(3.9,154,2,231,0)="""RTN"",""VALM1"",13,0)"
^XMB(3.9,154,2,232,0)=" Q"
^XMB(3.9,154,2,233,0)="""RTN"",""VALM1"",14,0)"
^XMB(3.9,154,2,234,0)="FLDUPD(STR,FLD,LINE,CON,COFF) ; -- update entry and field on screen"
^XMB(3.9,154,2,235,0)="""RTN"",""VALM1"",15,0)"
^XMB(3.9,154,2,236,0)=" ;    STR := string to insert"
^XMB(3.9,154,2,237,0)="""RTN"",""VALM1"",16,0)"
^XMB(3.9,154,2,238,0)=" ;    FLD := col name"
^XMB(3.9,154,2,239,0)="""RTN"",""VALM1"",17,0)"
^XMB(3.9,154,2,240,0)=" ;  LINE := entry # in list"
^XMB(3.9,154,2,241,0)="""RTN"",""VALM1"",18,0)"
^XMB(3.9,154,2,242,0)=" D INSTR(.STR,+$P(VALMDDF(FLD),U,2),LINE-VALMBG+VALM(""TM""),$P(VALMDDF(FLD),U,3),1)"
^XMB(3.9,154,2,243,0)="""RTN"",""VALM1"",19,0)"
^XMB(3.9,154,2,244,0)=" Q"
^XMB(3.9,154,2,245,0)="""RTN"",""VALM1"",20,0)"
^XMB(3.9,154,2,246,0)="SETFLD(STR,VAR,FLD) ; -- set field in var"
^XMB(3.9,154,2,247,0)="""RTN"",""VALM1"",21,0)"
^XMB(3.9,154,2,248,0)=" ; input: STR := string to insert"
^XMB(3.9,154,2,249,0)="""RTN"",""VALM1"",22,0)"
^XMB(3.9,154,2,250,0)=" ;        VAR := destination string"
^XMB(3.9,154,2,251,0)="""RTN"",""VALM1"",23,0)"
^XMB(3.9,154,2,252,0)=" ;        FLD := col name"
^XMB(3.9,154,2,253,0)="""RTN"",""VALM1"",24,0)"
^XMB(3.9,154,2,254,0)=" Q $$SETSTR(STR,VAR,+$P(VALMDDF(FLD),U,2),+$P(VALMDDF(FLD),U,3))"
^XMB(3.9,154,2,255,0)="""RTN"",""VALM1"",25,0)"
^XMB(3.9,154,2,256,0)="SETSTR(S,V,X,L) ; -- insert text(S) into variable(V)"
^XMB(3.9,154,2,257,0)="""RTN"",""VALM1"",26,0)"
^XMB(3.9,154,2,258,0)=" ;    S := string to insert"
^XMB(3.9,154,2,259,0)="""RTN"",""VALM1"",27,0)"
^XMB(3.9,154,2,260,0)=" ;    V := destination string"
^XMB(3.9,154,2,261,0)="""RTN"",""VALM1"",28,0)"
^XMB(3.9,154,2,262,0)=" ;    X := insert @ col X"
^XMB(3.9,154,2,263,0)="""RTN"",""VALM1"",29,0)"
^XMB(3.9,154,2,264,0)=" ;    L := clear # of chars (length)"
^XMB(3.9,154,2,265,0)="""RTN"",""VALM1"",30,0)"
^XMB(3.9,154,2,266,0)=" Q $E(V_$J("""",X-1),1,X-1)_$E(S_$J("""",L),1,L)_$E(V,X+L,999)"
^XMB(3.9,154,2,267,0)="""RTN"",""VALM1"",31,0)"
^XMB(3.9,154,2,268,0)="FULL ; set full scrolling region"
^XMB(3.9,154,2,269,0)="""RTN"",""VALM1"",32,0)"
^XMB(3.9,154,2,270,0)=" I '$D(IOSTBM) D TERM^VALM0"
^XMB(3.9,154,2,271,0)="""RTN"",""VALM1"",33,0)"
^XMB(3.9,154,2,272,0)=" I IOSTBM]"""" S IOTM=1,IOBM=IOSL W IOSC W @IOSTBM W IORC"
^XMB(3.9,154,2,273,0)="""RTN"",""VALM1"",34,0)"
^XMB(3.9,154,2,274,0)=" S X=VALMWD X ^%ZOSF(""RM"")"
^XMB(3.9,154,2,275,0)="""RTN"",""VALM1"",35,0)"
^XMB(3.9,154,2,276,0)=" Q"
^XMB(3.9,154,2,277,0)="""RTN"",""VALM1"",36,0)"
^XMB(3.9,154,2,278,0)="CLEAR ; -- clear screen"
^XMB(3.9,154,2,279,0)="""RTN"",""VALM1"",37,0)"
^XMB(3.9,154,2,280,0)=" D FULL,ERASE W @IOF"
^XMB(3.9,154,2,281,0)="""RTN"",""VALM1"",38,0)"
^XMB(3.9,154,2,282,0)=" Q"
^XMB(3.9,154,2,283,0)="""RTN"",""VALM1"",39,0)"
^XMB(3.9,154,2,284,0)="ERASE ;"
^XMB(3.9,154,2,285,0)="""RTN"",""VALM1"",40,0)"
^XMB(3.9,154,2,286,0)=" W $G(VALMSGR),$G(IOSGR0)"
^XMB(3.9,154,2,287,0)="""RTN"",""VALM1"",41,0)"
^XMB(3.9,154,2,288,0)=" Q"
^XMB(3.9,154,2,289,0)="""RTN"",""VALM1"",42,0)"
^XMB(3.9,154,2,290,0)="FDATE(Y) ; -- return formatted date"
^XMB(3.9,154,2,291,0)="""RTN"",""VALM1"",43,0)"
^XMB(3.9,154,2,292,0)=" ;   input:          Y := field name"
^XMB(3.9,154,2,293,0)="""RTN"",""VALM1"",44,0)"
^XMB(3.9,154,2,294,0)=" ;  output: [returned] := formatted date only"
^XMB(3.9,154,2,295,0)="""RTN"",""VALM1"",45,0)"
^XMB(3.9,154,2,296,0)=" Q $E(Y,4,5)_""/""_$E(Y,6,7)_""/""_$E(Y,2,3)"
^XMB(3.9,154,2,297,0)="""RTN"",""VALM1"",46,0)"
^XMB(3.9,154,2,298,0)="FTIME(Y) ; -- return formatted date/time"
^XMB(3.9,154,2,299,0)="""RTN"",""VALM1"",47,0)"
^XMB(3.9,154,2,300,0)=" ;   input:          Y := internal date/time"
^XMB(3.9,154,2,301,0)="""RTN"",""VALM1"",48,0)"
^XMB(3.9,154,2,302,0)=" ;  output: [returned] := formatted date and time"
^XMB(3.9,154,2,303,0)="""RTN"",""VALM1"",49,0)"
^XMB(3.9,154,2,304,0)=" D DD^%DT"
^XMB(3.9,154,2,305,0)="""RTN"",""VALM1"",50,0)"
^XMB(3.9,154,2,306,0)=" Q Y"
^XMB(3.9,154,2,307,0)="""RTN"",""VALM1"",51,0)"
^XMB(3.9,154,2,308,0)="FDTTM(Y) ; -- return formatted date/time"
^XMB(3.9,154,2,309,0)="""RTN"",""VALM1"",52,0)"
^XMB(3.9,154,2,310,0)=" ;   input:          Y := internal date/time"
^XMB(3.9,154,2,311,0)="""RTN"",""VALM1"",53,0)"
^XMB(3.9,154,2,312,0)=" ;  output: [returned] := formatted date and time"
^XMB(3.9,154,2,313,0)="""RTN"",""VALM1"",54,0)"
^XMB(3.9,154,2,314,0)=" N VALMY"
^XMB(3.9,154,2,315,0)="""RTN"",""VALM1"",55,0)"
^XMB(3.9,154,2,316,0)=" S VALMY=$E(Y,4,5)_""/""_$E(Y,6,7)_""/""_$E(Y,2,3)"
^XMB(3.9,154,2,317,0)="""RTN"",""VALM1"",56,0)"
^XMB(3.9,154,2,318,0)=" D DD^%DT"
^XMB(3.9,154,2,319,0)="""RTN"",""VALM1"",57,0)"
^XMB(3.9,154,2,320,0)=" Q VALMY_$S($P(Y,""@"",2)]"""":""@""_$P(Y,""@"",2),1:"""")"
^XMB(3.9,154,2,321,0)="""RTN"",""VALM1"",58,0)"
^XMB(3.9,154,2,322,0)="NOW() ; -- return now"
^XMB(3.9,154,2,323,0)="""RTN"",""VALM1"",59,0)"
^XMB(3.9,154,2,324,0)=" D NOW^%DTC"
^XMB(3.9,154,2,325,0)="""RTN"",""VALM1"",60,0)"
^XMB(3.9,154,2,326,0)=" Q $$FTIME(%)"
^XMB(3.9,154,2,327,0)="""RTN"",""VALM1"",61,0)"
^XMB(3.9,154,2,328,0)="RANGE ; -- change date range"
^XMB(3.9,154,2,329,0)="""RTN"",""VALM1"",62,0)"
^XMB(3.9,154,2,330,0)=" G RANGE^VALM11"
^XMB(3.9,154,2,331,0)="""RTN"",""VALM1"",63,0)"
^XMB(3.9,154,2,332,0)="WAIT ; ""Enter RETURN to continue"""
^XMB(3.9,154,2,333,0)="""RTN"",""VALM1"",64,0)"
^XMB(3.9,154,2,334,0)=" N DIR,X,Y,DIRUT,DUOUT,DTOUT,DIROUT"
^XMB(3.9,154,2,335,0)="""RTN"",""VALM1"",65,0)"
^XMB(3.9,154,2,336,0)=" W ! S DIR(0)=""E"" S DIR(""A"")=""Enter RETURN to continue"" D ^DIR W !"
^XMB(3.9,154,2,337,0)="""RTN"",""VALM1"",66,0)"
^XMB(3.9,154,2,338,0)=" Q"
^XMB(3.9,154,2,339,0)="""RTN"",""VALM1"",67,0)"
^XMB(3.9,154,2,340,0)="GOON() ; ""Enter RETURN to continue or '^' to exit"""
^XMB(3.9,154,2,341,0)="""RTN"",""VALM1"",68,0)"
^XMB(3.9,154,2,342,0)=" N DIR,X,Y,DIRUT,DUOUT,DTOUT,DIROUT"
^XMB(3.9,154,2,343,0)="""RTN"",""VALM1"",69,0)"
^XMB(3.9,154,2,344,0)=" W ! S DIR(0)=""E"" D ^DIR W !"
^XMB(3.9,154,2,345,0)="""RTN"",""VALM1"",70,0)"
^XMB(3.9,154,2,346,0)=" Q +Y"
^XMB(3.9,154,2,347,0)="""RTN"",""VALM1"",71,0)"
^XMB(3.9,154,2,348,0)="PAUSE ;"
^XMB(3.9,154,2,349,0)="""RTN"",""VALM1"",72,0)"
^XMB(3.9,154,2,350,0)=" W ! S DIR(0)=""E"" D ^DIR K DIR W !"
^XMB(3.9,154,2,351,0)="""RTN"",""VALM1"",73,0)"
^XMB(3.9,154,2,352,0)=" Q"
^XMB(3.9,154,2,353,0)="""RTN"",""VALM1"",74,0)"
^XMB(3.9,154,2,354,0)="PRT ; -- prt screen (PS)"
^XMB(3.9,154,2,355,0)="""RTN"",""VALM1"",75,0)"
^XMB(3.9,154,2,356,0)=" N VALMESC"
^XMB(3.9,154,2,357,0)="""RTN"",""VALM1"",76,0)"
^XMB(3.9,154,2,358,0)=" S VALMBCK=""R"""
^XMB(3.9,154,2,359,0)="""RTN"",""VALM1"",77,0)"
^XMB(3.9,154,2,360,0)=" D:VALMCC FULL"
^XMB(3.9,154,2,361,0)="""RTN"",""VALM1"",78,0)"
^XMB(3.9,154,2,362,0)=" S %ZIS=""Q"" D ^%ZIS G PRTQ:POP"
^XMB(3.9,154,2,363,0)="""RTN"",""VALM1"",79,0)"
^XMB(3.9,154,2,364,0)=" I $D(IO(""Q"")) D  G PRTQ"
^XMB(3.9,154,2,365,0)="""RTN"",""VALM1"",80,0)"
^XMB(3.9,154,2,366,0)=" . S ZTRTN=""PRTS^VALM1"",ZTDESC=""List Manager: Print Screen"""
^XMB(3.9,154,2,367,0)="""RTN"",""VALM1"",81,0)"
^XMB(3.9,154,2,368,0)=" . D SAVE,^%ZTLOAD"
^XMB(3.9,154,2,369,0)="""RTN"",""VALM1"",82,0)"
^XMB(3.9,154,2,370,0)=" I IO=IO(0) D CLEAR S X=0 X ^%ZOSF(""RM"")"
^XMB(3.9,154,2,371,0)="""RTN"",""VALM1"",83,0)"
^XMB(3.9,154,2,372,0)=" ; fall through"
^XMB(3.9,154,2,373,0)="""RTN"",""VALM1"",84,0)"
^XMB(3.9,154,2,374,0)="PRTS ;"
^XMB(3.9,154,2,375,0)="""RTN"",""VALM1"",85,0)"
^XMB(3.9,154,2,376,0)=" N VALMCC,VALMCAP"
^XMB(3.9,154,2,377,0)="""RTN"",""VALM1"",86,0)"
^XMB(3.9,154,2,378,0)=" I $D(ZTQUEUED) S ZTREQ=""@"""
^XMB(3.9,154,2,379,0)="""RTN"",""VALM1"",87,0)"
^XMB(3.9,154,2,380,0)=" S VALMCC=0,VALMCAP=$$CAPTION^VALM,VALMPG1=1"
^XMB(3.9,154,2,381,0)="""RTN"",""VALM1"",88,0)"
^XMB(3.9,154,2,382,0)=" U IO D HDR^VALM,TBAR^VALM,LIST^VALM,LBAR^VALM,FTR"
^XMB(3.9,154,2,383,0)="""RTN"",""VALM1"",89,0)"
^XMB(3.9,154,2,384,0)=" ; fall through"
^XMB(3.9,154,2,385,0)="""RTN"",""VALM1"",90,0)"
^XMB(3.9,154,2,386,0)="PRTQ ;"
^XMB(3.9,154,2,387,0)="""RTN"",""VALM1"",91,0)"
^XMB(3.9,154,2,388,0)=" D CHKLONG"
^XMB(3.9,154,2,389,0)="""RTN"",""VALM1"",92,0)"
^XMB(3.9,154,2,390,0)=" D:'$D(ZTQUEUED) ^%ZISC"
^XMB(3.9,154,2,391,0)="""RTN"",""VALM1"",93,0)"
^XMB(3.9,154,2,392,0)=" D TERM^VALM0 S X=0 X ^%ZOSF(""RM"")"
^XMB(3.9,154,2,393,0)="""RTN"",""VALM1"",94,0)"
^XMB(3.9,154,2,394,0)=" Q"
^XMB(3.9,154,2,395,0)="""RTN"",""VALM1"",95,0)"
^XMB(3.9,154,2,396,0)="SAVE ; -- save to queue"
^XMB(3.9,154,2,397,0)="""RTN"",""VALM1"",96,0)"
^XMB(3.9,154,2,398,0)=" F X=""VALMIOXY"",""VALMEVL"",""VALMLFT"",""VALMPGE"",""VALMWD"",""VALMCNT"",""VALMBG"",""VALMDDF("",""VALMHDR("",""VALM("" S ZTSAVE(X)="""""
^XMB(3.9,154,2,399,0)="""RTN"",""VALM1"",97,0)"
^XMB(3.9,154,2,400,0)=" F X=""VALMAR"",$S($E(VALMAR,$L(VALMAR))="")"":$E(VALMAR,1,$L(VALMAR)-1)_"","",1:VALMAR_""("") S ZTSAVE(X)="""""
^XMB(3.9,154,2,401,0)="""RTN"",""VALM1"",98,0)"
^XMB(3.9,154,2,402,0)=" Q"
^XMB(3.9,154,2,403,0)="""RTN"",""VALM1"",99,0)"
^XMB(3.9,154,2,404,0)="FTR ; -- footer to print"
^XMB(3.9,154,2,405,0)="""RTN"",""VALM1"",100,0)"
^XMB(3.9,154,2,406,0)=" S VALMESC="""""
^XMB(3.9,154,2,407,0)="""RTN"",""VALM1"",101,0)"
^XMB(3.9,154,2,408,0)=" I $E(IOST,1,2)=""C-"" S VALMESC='$$GOON"
^XMB(3.9,154,2,409,0)="""RTN"",""VALM1"",102,0)"
^XMB(3.9,154,2,410,0)=" Q"
^XMB(3.9,154,2,411,0)="""RTN"",""VALM1"",103,0)"
^XMB(3.9,154,2,412,0)="PRTL ; -- prt list (PL)"
^XMB(3.9,154,2,413,0)="""RTN"",""VALM1"",104,0)"
^XMB(3.9,154,2,414,0)=" I $G(VALM(""PRT""))]"""",$O(^ORD(101,""B"",VALM(""PRT""),0)) S X=$O(^(0))_"";ORD(101,"" D EN^XQOR G PRTQ"
^XMB(3.9,154,2,415,0)="""RTN"",""VALM1"",105,0)"
^XMB(3.9,154,2,416,0)=" N VALMESC"
^XMB(3.9,154,2,417,0)="""RTN"",""VALM1"",106,0)"
^XMB(3.9,154,2,418,0)=" S VALMBCK=""R"""
^XMB(3.9,154,2,419,0)="""RTN"",""VALM1"",107,0)"
^XMB(3.9,154,2,420,0)=" D:VALMCC FULL"
^XMB(3.9,154,2,421,0)="""RTN"",""VALM1"",108,0)"
^XMB(3.9,154,2,422,0)=" S %ZIS=""Q"" D ^%ZIS G PRTQ:POP"
^XMB(3.9,154,2,423,0)="""RTN"",""VALM1"",109,0)"
^XMB(3.9,154,2,424,0)=" I $D(IO(""Q"")) D  G PRTLQ"
^XMB(3.9,154,2,425,0)="""RTN"",""VALM1"",110,0)"
^XMB(3.9,154,2,426,0)=" . S ZTRTN=""PRTLS^VALM1"",ZTDESC=""List Manager: Print List"""
^XMB(3.9,154,2,427,0)="""RTN"",""VALM1"",111,0)"
^XMB(3.9,154,2,428,0)=" . D SAVE,^%ZTLOAD"
^XMB(3.9,154,2,429,0)="""RTN"",""VALM1"",112,0)"
^XMB(3.9,154,2,430,0)=" I IO=IO(0) D CLEAR S X=0 X ^%ZOSF(""RM"")"
^XMB(3.9,154,2,431,0)="""RTN"",""VALM1"",113,0)"
^XMB(3.9,154,2,432,0)=" ; fall through"
^XMB(3.9,154,2,433,0)="""RTN"",""VALM1"",114,0)"
^XMB(3.9,154,2,434,0)="PRTLS ;"
^XMB(3.9,154,2,435,0)="""RTN"",""VALM1"",115,0)"
^XMB(3.9,154,2,436,0)=" N VALMPGE,VALMESC,VALMCC,VALMI,VALMLNS,VALMCAP,VALMWD"
^XMB(3.9,154,2,437,0)="""RTN"",""VALM1"",116,0)"
^XMB(3.9,154,2,438,0)=" I $D(ZTQUEUED) S ZTREQ=""@"""
^XMB(3.9,154,2,439,0)="""RTN"",""VALM1"",117,0)"
^XMB(3.9,154,2,440,0)=" S VALMWD=IOM,VALMLNS=VALM(""LINES""),VALMPG1=1"
^XMB(3.9,154,2,441,0)="""RTN"",""VALM1"",118,0)"
^XMB(3.9,154,2,442,0)=" S VALM(""LINES"")=IOSL-(VALM(""TM"")+3),VALMCC=0,VALMPGE=1,VALMCAP=$$CAPTION^VALM"
^XMB(3.9,154,2,443,0)="""RTN"",""VALM1"",119,0)"
^XMB(3.9,154,2,444,0)=" U IO D HDR^VALM,TBAR^VALM"
^XMB(3.9,154,2,445,0)="""RTN"",""VALM1"",120,0)"
^XMB(3.9,154,2,446,0)=" F VALMI=1:1:VALMCNT S X=$G(@VALMAR@($$GET^VALM4(VALMI),0)) W !,X I IOSL<($Y+6) D FTR G PRTLQ:VALMESC S VALMPGE=VALMPGE+1 D HDR^VALM,TBAR^VALM"
^XMB(3.9,154,2,447,0)="""RTN"",""VALM1"",121,0)"
^XMB(3.9,154,2,448,0)=" D FTR"
^XMB(3.9,154,2,449,0)="""RTN"",""VALM1"",122,0)"
^XMB(3.9,154,2,450,0)=" ; fall through"
^XMB(3.9,154,2,451,0)="""RTN"",""VALM1"",123,0)"
^XMB(3.9,154,2,452,0)="PRTLQ ;"
^XMB(3.9,154,2,453,0)="""RTN"",""VALM1"",124,0)"
^XMB(3.9,154,2,454,0)=" D CHKLONG"
^XMB(3.9,154,2,455,0)="""RTN"",""VALM1"",125,0)"
^XMB(3.9,154,2,456,0)=" D:'$D(ZTQUEUED) ^%ZISC"
^XMB(3.9,154,2,457,0)="""RTN"",""VALM1"",126,0)"
^XMB(3.9,154,2,458,0)=" D TERM^VALM0 S X=0 X ^%ZOSF(""RM"")"
^XMB(3.9,154,2,459,0)="""RTN"",""VALM1"",127,0)"
^XMB(3.9,154,2,460,0)=" S:$D(VALMLNS) VALM(""LINES"")=VALMLNS"
^XMB(3.9,154,2,461,0)="""RTN"",""VALM1"",128,0)"
^XMB(3.9,154,2,462,0)=" Q"
^XMB(3.9,154,2,463,0)="""RTN"",""VALM1"",129,0)"
^XMB(3.9,154,2,464,0)="CHKLONG ;"
^XMB(3.9,154,2,465,0)="""RTN"",""VALM1"",130,0)"
^XMB(3.9,154,2,466,0)=" Q:'$$TOOLONG"
^XMB(3.9,154,2,467,0)="""RTN"",""VALM1"",131,0)"
^XMB(3.9,154,2,468,0)=" I '$D(ZTQUEUED) S VALMSG=""Some printed item lines may have been truncated."" Q:IO(0)=IO!$D(IO(""Q""))"
^XMB(3.9,154,2,469,0)="""RTN"",""VALM1"",132,0)"
^XMB(3.9,154,2,470,0)=" Q:$E(IOST,1,2)=""C-"""
^XMB(3.9,154,2,471,0)="""RTN"",""VALM1"",133,0)"
^XMB(3.9,154,2,472,0)=" I $Y+4>IOSL W @IOF"
^XMB(3.9,154,2,473,0)="""RTN"",""VALM1"",134,0)"
^XMB(3.9,154,2,474,0)=" E  W !"
^XMB(3.9,154,2,475,0)="""RTN"",""VALM1"",135,0)"
^XMB(3.9,154,2,476,0)=" W !,"">>> Warning: Some list items lines may have been truncated."""
^XMB(3.9,154,2,477,0)="""RTN"",""VALM1"",136,0)"
^XMB(3.9,154,2,478,0)=" W !,"">>> This list requires "",VALM(""RM""),"" characters/line."""
^XMB(3.9,154,2,479,0)="""RTN"",""VALM1"",137,0)"
^XMB(3.9,154,2,480,0)=" W !,"">>> This device supports "",IOM,"" characters/line."""
^XMB(3.9,154,2,481,0)="""RTN"",""VALM1"",138,0)"
^XMB(3.9,154,2,482,0)=" Q"
^XMB(3.9,154,2,483,0)="""RTN"",""VALM1"",139,0)"
^XMB(3.9,154,2,484,0)="TOOLONG() ; Is the line length too long for the device?"
^XMB(3.9,154,2,485,0)="""RTN"",""VALM1"",140,0)"
^XMB(3.9,154,2,486,0)=" Q:'$D(VALM(""RM"")) 0"
^XMB(3.9,154,2,487,0)="""RTN"",""VALM1"",141,0)"
^XMB(3.9,154,2,488,0)=" Q:'$D(IOM) 0"
^XMB(3.9,154,2,489,0)="""RTN"",""VALM1"",142,0)"
^XMB(3.9,154,2,490,0)=" Q $S(VALM(""RM"")>IOM:1,1:0)"
^XMB(3.9,154,2,491,0)="""RTN"",""VALM1"",143,0)"
^XMB(3.9,154,2,492,0)="UPPER(X) ; -- convert to uppercase"
^XMB(3.9,154,2,493,0)="""RTN"",""VALM1"",144,0)"
^XMB(3.9,154,2,494,0)=" Q $$UP^XLFSTR(X)"
^XMB(3.9,154,2,495,0)="""RTN"",""VALM1"",145,0)"
^XMB(3.9,154,2,496,0)="LOWER(X) ;"
^XMB(3.9,154,2,497,0)="""RTN"",""VALM1"",146,0)"
^XMB(3.9,154,2,498,0)=" N Y,C,Z,I"
^XMB(3.9,154,2,499,0)="""RTN"",""VALM1"",147,0)"
^XMB(3.9,154,2,500,0)=" S Y=$E(X)_$TR($E(X,2,999),""ABCDEFGHIJKLMNOPQRSTUVWXYZ@"",""abcdefghijklmnopqrstuvwxyz "")"
^XMB(3.9,154,2,501,0)="""RTN"",""VALM1"",148,0)"
^XMB(3.9,154,2,502,0)=" F C="" "","","",""/"" S I=0 F  S I=$F(Y,C,I) Q:'I  S Y=$E(Y,1,I-1)_$TR($E(Y,I),""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ"")_$E(Y,I+1,999)"
^XMB(3.9,154,2,503,0)="""RTN"",""VALM1"",149,0)"
^XMB(3.9,154,2,504,0)=" Q Y"
^XMB(3.9,154,2,505,0)="""RTN"",""VALMD"")"
^XMB(3.9,154,2,506,0)="0^2^B16458760^B16497952"
^XMB(3.9,154,2,507,0)="""RTN"",""VALMD"",1,0)"
^XMB(3.9,154,2,508,0)="VALMD ;MJK/ALB - List Manager Demo Routine; APR 2, 1992 ;06/26/2006"
^XMB(3.9,154,2,509,0)="""RTN"",""VALMD"",2,0)"
^XMB(3.9,154,2,510,0)=" ;;1.0;List Manager;**8**;Aug 13, 1993;Build 1"
^XMB(3.9,154,2,511,0)="""RTN"",""VALMD"",3,0)"
^XMB(3.9,154,2,512,0)=" ;"
^XMB(3.9,154,2,513,0)="""RTN"",""VALMD"",4,0)"
^XMB(3.9,154,2,514,0)="EN ; -- option entry point"
^XMB(3.9,154,2,515,0)="""RTN"",""VALMD"",5,0)"
^XMB(3.9,154,2,516,0)=" K XQORS,VALMEVL"
^XMB(3.9,154,2,517,0)="""RTN"",""VALMD"",6,0)"
^XMB(3.9,154,2,518,0)=" D EN^VALM(""VALM DEMO APPLICATION"")"
^XMB(3.9,154,2,519,0)="""RTN"",""VALMD"",7,0)"
^XMB(3.9,154,2,520,0)="ENQ Q"
^XMB(3.9,154,2,521,0)="""RTN"",""VALMD"",8,0)"
^XMB(3.9,154,2,522,0)=" ;"
^XMB(3.9,154,2,523,0)="""RTN"",""VALMD"",9,0)"
^XMB(3.9,154,2,524,0)=" ;"
^XMB(3.9,154,2,525,0)="""RTN"",""VALMD"",10,0)"
^XMB(3.9,154,2,526,0)="INIT ; -- build array"
^XMB(3.9,154,2,527,0)="""RTN"",""VALMD"",11,0)"
^XMB(3.9,154,2,528,0)=" W ! S DIC(""A"")=""Select Package: "",DIC=""^DIC(9.4,"",DIC(0)=""AEMQ"" D ^DIC K DIC"
^XMB(3.9,154,2,529,0)="""RTN"",""VALMD"",12,0)"
^XMB(3.9,154,2,530,0)=" I Y<0 S VALMQUIT="""" G INITQ"
^XMB(3.9,154,2,531,0)="""RTN"",""VALMD"",13,0)"
^XMB(3.9,154,2,532,0)="PKG ; -- entry pt if package known"
^XMB(3.9,154,2,533,0)="""RTN"",""VALMD"",14,0)"
^XMB(3.9,154,2,534,0)=" N VALMX,VALMCNTI,VALMPRO,VALMIFN,X,VALMPRE,Z"
^XMB(3.9,154,2,535,0)="""RTN"",""VALMD"",15,0)"
^XMB(3.9,154,2,536,0)=" S VALMPKG=+Y"
^XMB(3.9,154,2,537,0)="""RTN"",""VALMD"",16,0)"
^XMB(3.9,154,2,538,0)=" D CLEAN^VALM10"
^XMB(3.9,154,2,539,0)="""RTN"",""VALMD"",17,0)"
^XMB(3.9,154,2,540,0)=" S (VALMCNTI,VALMCNT)=0,(VALMPRE,VALMPRO)=$P($G(^DIC(9.4,VALMPKG,0)),U,2)"
^XMB(3.9,154,2,541,0)="""RTN"",""VALMD"",18,0)"
^XMB(3.9,154,2,542,0)=" F  S VALMPRO=$O(^ORD(101,""B"",VALMPRO)) Q:$E(VALMPRO,1,$L(VALMPRE))'=VALMPRE  S VALMIFN=0 F  S VALMIFN=$O(^ORD(101,""B"",VALMPRO,VALMIFN)) Q:'VALMIFN  I $D(^ORD(101,VALMIFN,0)) S VALMX=^(0) D"
^XMB(3.9,154,2,543,0)="""RTN"",""VALMD"",19,0)"
^XMB(3.9,154,2,544,0)=" .S VALMCNTI=VALMCNTI+1 W:(VALMCNTI#10)=0 ""."""
^XMB(3.9,154,2,545,0)="""RTN"",""VALMD"",20,0)"
^XMB(3.9,154,2,546,0)=" .S X=$$SETFLD^VALM1(VALMCNTI,"""",""NUMBER"")"
^XMB(3.9,154,2,547,0)="""RTN"",""VALMD"",21,0)"
^XMB(3.9,154,2,548,0)=" .S X=$$SETFLD^VALM1($P(VALMX,U),X,""NAME"")"
^XMB(3.9,154,2,549,0)="""RTN"",""VALMD"",22,0)"
^XMB(3.9,154,2,550,0)=" .S X=$$SETFLD^VALM1($P(VALMX,U,2),X,""TEXT"") K Z S $E(Z,$L(X)+1,240)="""""
^XMB(3.9,154,2,551,0)="""RTN"",""VALMD"",23,0)"
^XMB(3.9,154,2,552,0)=" .S VALMCNT=VALMCNT+1"
^XMB(3.9,154,2,553,0)="""RTN"",""VALMD"",24,0)"
^XMB(3.9,154,2,554,0)=" .D SET^VALM10(VALMCNT,$E(X_Z,1,240),VALMCNTI) ; set text"
^XMB(3.9,154,2,555,0)="""RTN"",""VALMD"",25,0)"
^XMB(3.9,154,2,556,0)=" .S ^TMP(""VALMZIDX"",$J,VALMCNTI)=VALMCNT_U_VALMIFN"
^XMB(3.9,154,2,557,0)="""RTN"",""VALMD"",26,0)"
^XMB(3.9,154,2,558,0)=" .D:'(VALMCNT#9) FLDCTRL^VALM10(VALMCNT)     ; defaults for all fields"
^XMB(3.9,154,2,559,0)="""RTN"",""VALMD"",27,0)"
^XMB(3.9,154,2,560,0)=" .D FLDCTRL^VALM10(VALMCNT,""NUMBER"")       ; default for 1 field"
^XMB(3.9,154,2,561,0)="""RTN"",""VALMD"",28,0)"
^XMB(3.9,154,2,562,0)=" .D:'(VALMCNT#5) FLDCTRL^VALM10(VALMCNT,""NAME"",IOUON,IOUOFF) ; adhoc"
^XMB(3.9,154,2,563,0)="""RTN"",""VALMD"",29,0)"
^XMB(3.9,154,2,564,0)=" D NUL:'VALMCNT"
^XMB(3.9,154,2,565,0)="""RTN"",""VALMD"",30,0)"
^XMB(3.9,154,2,566,0)="INITQ Q"
^XMB(3.9,154,2,567,0)="""RTN"",""VALMD"",31,0)"
^XMB(3.9,154,2,568,0)=" ;"
^XMB(3.9,154,2,569,0)="""RTN"",""VALMD"",32,0)"
^XMB(3.9,154,2,570,0)="HDR ; -- demo header"
^XMB(3.9,154,2,571,0)="""RTN"",""VALMD"",33,0)"
^XMB(3.9,154,2,572,0)=" N VALMX"
^XMB(3.9,154,2,573,0)="""RTN"",""VALMD"",34,0)"
^XMB(3.9,154,2,574,0)=" S VALMX=$G(^DIC(9.4,VALMPKG,0)),X=""    Package: ""_$P(VALMX,U)"
^XMB(3.9,154,2,575,0)="""RTN"",""VALMD"",35,0)"
^XMB(3.9,154,2,576,0)=" S VALMHDR(1)=$$SETSTR^VALM1(""Prefix: ""_$P(VALMX,U,2),X,63,15)"
^XMB(3.9,154,2,577,0)="""RTN"",""VALMD"",36,0)"
^XMB(3.9,154,2,578,0)=" S VALMHDR(2)=""Description: ""_$E($P(VALMX,U,3),1,65)"
^XMB(3.9,154,2,579,0)="""RTN"",""VALMD"",37,0)"
^XMB(3.9,154,2,580,0)=" Q"
^XMB(3.9,154,2,581,0)="""RTN"",""VALMD"",38,0)"
^XMB(3.9,154,2,582,0)=" ;"
^XMB(3.9,154,2,583,0)="""RTN"",""VALMD"",39,0)"
^XMB(3.9,154,2,584,0)="NUL ; -- set nul message"
^XMB(3.9,154,2,585,0)="""RTN"",""VALMD"",40,0)"
^XMB(3.9,154,2,586,0)=" I 'VALMCNT D"
^XMB(3.9,154,2,587,0)="""RTN"",""VALMD"",41,0)"
^XMB(3.9,154,2,588,0)=" .F X="" "",""    No protocols to list."" S VALMCNT=VALMCNT+1 D SET^VALM10(VALMCNT,X)"
^XMB(3.9,154,2,589,0)="""RTN"",""VALMD"",42,0)"
^XMB(3.9,154,2,590,0)=" .S ^TMP(""VALMZIDX"",$J,1)=1,^(2)=2"
^XMB(3.9,154,2,591,0)="""RTN"",""VALMD"",43,0)"
^XMB(3.9,154,2,592,0)=" Q"
^XMB(3.9,154,2,593,0)="""RTN"",""VALMD"",44,0)"
^XMB(3.9,154,2,594,0)=" ;"
^XMB(3.9,154,2,595,0)="""RTN"",""VALMD"",45,0)"
^XMB(3.9,154,2,596,0)="FNL ; -- clean up"
^XMB(3.9,154,2,597,0)="""RTN"",""VALMD"",46,0)"
^XMB(3.9,154,2,598,0)=" K DIE,DIC,DR,DA,DE,DQ,VALMY,VALMPKG,^TMP(""VALMZIDX"",$J)"
^XMB(3.9,154,2,599,0)="""RTN"",""VALMD"",47,0)"
^XMB(3.9,154,2,600,0)=" D CLEAN^VALM10"
^XMB(3.9,154,2,601,0)="""RTN"",""VALMD"",48,0)"
^XMB(3.9,154,2,602,0)=" Q"
^XMB(3.9,154,2,603,0)="""RTN"",""VALMD"",49,0)"
^XMB(3.9,154,2,604,0)=" ;"
^XMB(3.9,154,2,605,0)="""RTN"",""VALMD"",50,0)"
^XMB(3.9,154,2,606,0)="EXP ; -- expand action"
^XMB(3.9,154,2,607,0)="""RTN"",""VALMD"",51,0)"
^XMB(3.9,154,2,608,0)=" D FULL^VALM1"
^XMB(3.9,154,2,609,0)="""RTN"",""VALMD"",52,0)"
^XMB(3.9,154,2,610,0)=" N VALMI,VALMAT,VALMY"
^XMB(3.9,154,2,611,0)="""RTN"",""VALMD"",53,0)"
^XMB(3.9,154,2,612,0)=" D EN^VALM2(XQORNOD(0),""O"") S VALMI=0"
^XMB(3.9,154,2,613,0)="""RTN"",""VALMD"",54,0)"
^XMB(3.9,154,2,614,0)=" F  S VALMI=$O(VALMY(VALMI)) Q:'VALMI  D"
^XMB(3.9,154,2,615,0)="""RTN"",""VALMD"",55,0)"
^XMB(3.9,154,2,616,0)=" .S VALMAT=$G(^TMP(""VALMZIDX"",$J,VALMI))"
^XMB(3.9,154,2,617,0)="""RTN"",""VALMD"",56,0)"
^XMB(3.9,154,2,618,0)=" .W !!,@VALMAR@(+VALMAT,0),!"
^XMB(3.9,154,2,619,0)="""RTN"",""VALMD"",57,0)"
^XMB(3.9,154,2,620,0)=" .S DA=+$P(VALMAT,U,2),DIC=""^ORD(101,"",DR=""0"" D EN^DIQ,PAUSE^VALM1"
^XMB(3.9,154,2,621,0)="""RTN"",""VALMD"",58,0)"
^XMB(3.9,154,2,622,0)=" S VALMBCK=""R"",VALMSG=""'Expand' was last action picked."""
^XMB(3.9,154,2,623,0)="""RTN"",""VALMD"",59,0)"
^XMB(3.9,154,2,624,0)=" Q"
^XMB(3.9,154,2,625,0)="""RTN"",""VALMD"",60,0)"
^XMB(3.9,154,2,626,0)=" ;"
^XMB(3.9,154,2,627,0)="""RTN"",""VALMD"",61,0)"
^XMB(3.9,154,2,628,0)="EDIT ; -- edit action"
^XMB(3.9,154,2,629,0)="""RTN"",""VALMD"",62,0)"
^XMB(3.9,154,2,630,0)=" N VALMA,VALMP,VALMI,VALMAT,VALMY"
^XMB(3.9,154,2,631,0)="""RTN"",""VALMD"",63,0)"
^XMB(3.9,154,2,632,0)=" D MSG^VALM10(""'Edit' action..."")"
^XMB(3.9,154,2,633,0)="""RTN"",""VALMD"",64,0)"
^XMB(3.9,154,2,634,0)=" D EN^VALM2(XQORNOD(0),""O"") S VALMI=0 ; all the user to ""O""ptionally answer"
^XMB(3.9,154,2,635,0)="""RTN"",""VALMD"",65,0)"
^XMB(3.9,154,2,636,0)=" F  S VALMI=$O(VALMY(VALMI)) Q:'VALMI  D"
^XMB(3.9,154,2,637,0)="""RTN"",""VALMD"",66,0)"
^XMB(3.9,154,2,638,0)=" .D SELECT^VALM10(VALMI,1) ; -- 'select' line"
^XMB(3.9,154,2,639,0)="""RTN"",""VALMD"",67,0)"
^XMB(3.9,154,2,640,0)=" .S VALMAT=$G(^TMP(""VALMZIDX"",$J,VALMI))"
^XMB(3.9,154,2,641,0)="""RTN"",""VALMD"",68,0)"
^XMB(3.9,154,2,642,0)=" .W !!,@VALMAR@(+VALMAT,0)"
^XMB(3.9,154,2,643,0)="""RTN"",""VALMD"",69,0)"
^XMB(3.9,154,2,644,0)=" .S DA=+$P(VALMAT,U,2),VALMP=$G(^ORD(101,DA,0)),DIE=101,DR=""1"" D ^DIE K DIE,DR"
^XMB(3.9,154,2,645,0)="""RTN"",""VALMD"",70,0)"
^XMB(3.9,154,2,646,0)=" .S VALMA=$G(^ORD(101,DA,0))"
^XMB(3.9,154,2,647,0)="""RTN"",""VALMD"",71,0)"
^XMB(3.9,154,2,648,0)=" .I $P(VALMP,U,2)'=$P(VALMA,U,2) D UPD($P(VALMA,U,2),""TEXT"",.VALMAT)"
^XMB(3.9,154,2,649,0)="""RTN"",""VALMD"",72,0)"
^XMB(3.9,154,2,650,0)=" .D SELECT^VALM10(VALMI,0) ; -- 'de-select' line"
^XMB(3.9,154,2,651,0)="""RTN"",""VALMD"",73,0)"
^XMB(3.9,154,2,652,0)=" D MSG^VALM10("""")"
^XMB(3.9,154,2,653,0)="""RTN"",""VALMD"",74,0)"
^XMB(3.9,154,2,654,0)=" S VALMBCK=$S(VALMCC:"""",1:""R"")"
^XMB(3.9,154,2,655,0)="""RTN"",""VALMD"",75,0)"
^XMB(3.9,154,2,656,0)=" Q"
^XMB(3.9,154,2,657,0)="""RTN"",""VALMD"",76,0)"
^XMB(3.9,154,2,658,0)=" ;"
^XMB(3.9,154,2,659,0)="""RTN"",""VALMD"",77,0)"
^XMB(3.9,154,2,660,0)="DESC ; -- display description action"
^XMB(3.9,154,2,661,0)="""RTN"",""VALMD"",78,0)"
^XMB(3.9,154,2,662,0)=" N VALMI,VALMY,VALMAT"
^XMB(3.9,154,2,663,0)="""RTN"",""VALMD"",79,0)"
^XMB(3.9,154,2,664,0)=" D EN^VALM2(XQORNOD(0),""OS"") S VALMI=0 ; select only a ""S""ingle protocol"
^XMB(3.9,154,2,665,0)="""RTN"",""VALMD"",80,0)"
^XMB(3.9,154,2,666,0)=" F  S VALMI=$O(VALMY(VALMI)) Q:'VALMI  D"
^XMB(3.9,154,2,667,0)="""RTN"",""VALMD"",81,0)"
^XMB(3.9,154,2,668,0)=" .S VALMAT=+$P($G(^TMP(""VALMZIDX"",$J,VALMI)),U,2)"
^XMB(3.9,154,2,669,0)="""RTN"",""VALMD"",82,0)"
^XMB(3.9,154,2,670,0)=" .I '$D(^ORD(101,VALMAT,1)) W !!,""No Description entered."" D PAUSE^VALM1 Q"
^XMB(3.9,154,2,671,0)="""RTN"",""VALMD"",83,0)"
^XMB(3.9,154,2,672,0)=" .D WP^VALM(""^ORD(101,""_VALMAT_"",1)"",$P($G(^ORD(101,VALMAT,0)),U))"
^XMB(3.9,154,2,673,0)="""RTN"",""VALMD"",84,0)"
^XMB(3.9,154,2,674,0)=" S VALMBCK=""R"""
^XMB(3.9,154,2,675,0)="""RTN"",""VALMD"",85,0)"
^XMB(3.9,154,2,676,0)=" Q"
^XMB(3.9,154,2,677,0)="""RTN"",""VALMD"",86,0)"
^XMB(3.9,154,2,678,0)=" ;"
^XMB(3.9,154,2,679,0)="""RTN"",""VALMD"",87,0)"
^XMB(3.9,154,2,680,0)="UPD(TEXT,FLD,VALMAT) ; -- update data for screen"
^XMB(3.9,154,2,681,0)="""RTN"",""VALMD"",88,0)"
^XMB(3.9,154,2,682,0)=" D:VALMCC FLDCTRL^VALM10(+VALMAT,.FLD,.IOINHI,.IOINORM,1)"
^XMB(3.9,154,2,683,0)="""RTN"",""VALMD"",89,0)"
^XMB(3.9,154,2,684,0)=" D FLDTEXT^VALM10(+VALMAT,.FLD,.TEXT)"
^XMB(3.9,154,2,685,0)="""RTN"",""VALMD"",90,0)"
^XMB(3.9,154,2,686,0)=" Q"
^XMB(3.9,154,2,687,0)="""RTN"",""VALMD"",91,0)"
^XMB(3.9,154,2,688,0)=" ;"
^XMB(3.9,154,2,689,0)="""RTN"",""VALMD"",92,0)"
^XMB(3.9,154,2,690,0)="CHG ; -- change package action"
^XMB(3.9,154,2,691,0)="""RTN"",""VALMD"",93,0)"
^XMB(3.9,154,2,692,0)=" K X I $D(XQORNOD(0)) S X=$P($P(XQORNOD(0),U,4),""="",2)"
^XMB(3.9,154,2,693,0)="""RTN"",""VALMD"",94,0)"
^XMB(3.9,154,2,694,0)=" I X="""" R !!,""Select Package: "",X:DTIME"
^XMB(3.9,154,2,695,0)="""RTN"",""VALMD"",95,0)"
^XMB(3.9,154,2,696,0)=" S DIC=""^DIC(9.4,"",DIC(0)=""EMQ"" D ^DIC K DIC G CHG:X[""?"""
^XMB(3.9,154,2,697,0)="""RTN"",""VALMD"",96,0)"
^XMB(3.9,154,2,698,0)=" I Y<0 D  G CHGQ"
^XMB(3.9,154,2,699,0)="""RTN"",""VALMD"",97,0)"
^XMB(3.9,154,2,700,0)=" .W !!,*7,""Package has not been changed."""
^XMB(3.9,154,2,701,0)="""RTN"",""VALMD"",98,0)"
^XMB(3.9,154,2,702,0)=" .W ! S DIR(0)=""E"" D ^DIR K DIR"
^XMB(3.9,154,2,703,0)="""RTN"",""VALMD"",99,0)"
^XMB(3.9,154,2,704,0)=" .S VALMBCK="""""
^XMB(3.9,154,2,705,0)="""RTN"",""VALMD"",100,0)"
^XMB(3.9,154,2,706,0)=" D PKG,HDR S VALMBCK=""R"" S VALMBG=1"
^XMB(3.9,154,2,707,0)="""RTN"",""VALMD"",101,0)"
^XMB(3.9,154,2,708,0)="CHGQ Q"
^XMB(3.9,154,2,709,0)="""VER"")"
^XMB(3.9,154,2,710,0)="8.0^22.0"
^XMB(3.9,154,2,711,0)="""BLD"",954,6)"
^XMB(3.9,154,2,712,0)="^8"
^XMB(3.9,154,2,713,0)="$END KID VALM*1.0*8"
^XMB(3.9,154,6,0)="^3.911A^2^2"
^XMB(3.9,154,6,1,0)="POSTMASTER"
^XMB(3.9,154,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,154,6,"B","POSTMASTER",1)=""
^XMB(3.9,154,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,155,0)="WV-1_SEQ-19_PAT-19.KID^.5^3061008.015743^^^^K"
^XMB(3.9,155,.6)="3061008"
^XMB(3.9,155,1,0)="^3.91A^2^2"
^XMB(3.9,155,1,1,0)=".5^0^3061008.015743^^^^^^^3061008.015743"
^XMB(3.9,155,1,2,0)="1^0^3061008.022846^^^^^^^3061008.022846"
^XMB(3.9,155,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,155,1,"C",.5,1)=""
^XMB(3.9,155,1,"C",1,2)=""
^XMB(3.9,155,2,0)="^^281^281^3061008"
^XMB(3.9,155,2,1,0)="$TXT Released WV*1*19 SEQ #19"
^XMB(3.9,155,2,2,0)="Extracted from mail message"
^XMB(3.9,155,2,3,0)="$END TXT"
^XMB(3.9,155,2,4,0)="$KID WV*1.0*19"
^XMB(3.9,155,2,5,0)="**INSTALL NAME**"
^XMB(3.9,155,2,6,0)="WV*1.0*19"
^XMB(3.9,155,2,7,0)="""BLD"",6906,0)"
^XMB(3.9,155,2,8,0)="WV*1.0*19^WOMEN'S HEALTH^0^3060626^y"
^XMB(3.9,155,2,9,0)="""BLD"",6906,1,0)"
^XMB(3.9,155,2,10,0)="^^3^3^3060626^"
^XMB(3.9,155,2,11,0)="""BLD"",6906,1,1,0)"
^XMB(3.9,155,2,12,0)="This patch replaces the full SSN with the last 4 digits of the SSN"
^XMB(3.9,155,2,13,0)="""BLD"",6906,1,2,0)"
^XMB(3.9,155,2,14,0)="for the generic letter in Women's Health (790.6) and for each of the"
^XMB(3.9,155,2,15,0)="""BLD"",6906,1,3,0)"
^XMB(3.9,155,2,16,0)="notification letters in file 790.404."
^XMB(3.9,155,2,17,0)="""BLD"",6906,4,0)"
^XMB(3.9,155,2,18,0)="^9.64PA^^"
^XMB(3.9,155,2,19,0)="""BLD"",6906,""INIT"")"
^XMB(3.9,155,2,20,0)="WV19PST"
^XMB(3.9,155,2,21,0)="""BLD"",6906,""KRN"",0)"
^XMB(3.9,155,2,22,0)="^9.67PA^8989.52^19"
^XMB(3.9,155,2,23,0)="""BLD"",6906,""KRN"",.4,0)"
^XMB(3.9,155,2,24,0)=".4"
^XMB(3.9,155,2,25,0)="""BLD"",6906,""KRN"",.401,0)"
^XMB(3.9,155,2,26,0)=".401"
^XMB(3.9,155,2,27,0)="""BLD"",6906,""KRN"",.402,0)"
^XMB(3.9,155,2,28,0)=".402"
^XMB(3.9,155,2,29,0)="""BLD"",6906,""KRN"",.403,0)"
^XMB(3.9,155,2,30,0)=".403"
^XMB(3.9,155,2,31,0)="""BLD"",6906,""KRN"",.5,0)"
^XMB(3.9,155,2,32,0)=".5"
^XMB(3.9,155,2,33,0)="""BLD"",6906,""KRN"",.84,0)"
^XMB(3.9,155,2,34,0)=".84"
^XMB(3.9,155,2,35,0)="""BLD"",6906,""KRN"",3.6,0)"
^XMB(3.9,155,2,36,0)="3.6"
^XMB(3.9,155,2,37,0)="""BLD"",6906,""KRN"",3.8,0)"
^XMB(3.9,155,2,38,0)="3.8"
^XMB(3.9,155,2,39,0)="""BLD"",6906,""KRN"",9.2,0)"
^XMB(3.9,155,2,40,0)="9.2"
^XMB(3.9,155,2,41,0)="""BLD"",6906,""KRN"",9.8,0)"
^XMB(3.9,155,2,42,0)="9.8"
^XMB(3.9,155,2,43,0)="""BLD"",6906,""KRN"",9.8,""NM"",0)"
^XMB(3.9,155,2,44,0)="^9.68A^1^1"
^XMB(3.9,155,2,45,0)="""BLD"",6906,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,155,2,46,0)="WV19PST^^0^2176163"
^XMB(3.9,155,2,47,0)="""BLD"",6906,""KRN"",9.8,""NM"",""B"",""WV19PST"",1)"
^XMB(3.9,155,2,48,0)=""
^XMB(3.9,155,2,49,0)="""BLD"",6906,""KRN"",19,0)"
^XMB(3.9,155,2,50,0)="19"
^XMB(3.9,155,2,51,0)="""BLD"",6906,""KRN"",19,""NM"",0)"
^XMB(3.9,155,2,52,0)="^9.68A^^"
^XMB(3.9,155,2,53,0)="""BLD"",6906,""KRN"",19.1,0)"
^XMB(3.9,155,2,54,0)="19.1"
^XMB(3.9,155,2,55,0)="""BLD"",6906,""KRN"",19.1,""NM"",0)"
^XMB(3.9,155,2,56,0)="^9.68A^^"
^XMB(3.9,155,2,57,0)="""BLD"",6906,""KRN"",101,0)"
^XMB(3.9,155,2,58,0)="101"
^XMB(3.9,155,2,59,0)="""BLD"",6906,""KRN"",409.61,0)"
^XMB(3.9,155,2,60,0)="409.61"
^XMB(3.9,155,2,61,0)="""BLD"",6906,""KRN"",771,0)"
^XMB(3.9,155,2,62,0)="771"
^XMB(3.9,155,2,63,0)="""BLD"",6906,""KRN"",870,0)"
^XMB(3.9,155,2,64,0)="870"
^XMB(3.9,155,2,65,0)="""BLD"",6906,""KRN"",8989.51,0)"
^XMB(3.9,155,2,66,0)="8989.51"
^XMB(3.9,155,2,67,0)="""BLD"",6906,""KRN"",8989.52,0)"
^XMB(3.9,155,2,68,0)="8989.52"
^XMB(3.9,155,2,69,0)="""BLD"",6906,""KRN"",8994,0)"
^XMB(3.9,155,2,70,0)="8994"
^XMB(3.9,155,2,71,0)="""BLD"",6906,""KRN"",""B"",.4,.4)"
^XMB(3.9,155,2,72,0)=""
^XMB(3.9,155,2,73,0)="""BLD"",6906,""KRN"",""B"",.401,.401)"
^XMB(3.9,155,2,74,0)=""
^XMB(3.9,155,2,75,0)="""BLD"",6906,""KRN"",""B"",.402,.402)"
^XMB(3.9,155,2,76,0)=""
^XMB(3.9,155,2,77,0)="""BLD"",6906,""KRN"",""B"",.403,.403)"
^XMB(3.9,155,2,78,0)=""
^XMB(3.9,155,2,79,0)="""BLD"",6906,""KRN"",""B"",.5,.5)"
^XMB(3.9,155,2,80,0)=""
^XMB(3.9,155,2,81,0)="""BLD"",6906,""KRN"",""B"",.84,.84)"
^XMB(3.9,155,2,82,0)=""
^XMB(3.9,155,2,83,0)="""BLD"",6906,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,155,2,84,0)=""
^XMB(3.9,155,2,85,0)="""BLD"",6906,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,155,2,86,0)=""
^XMB(3.9,155,2,87,0)="""BLD"",6906,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,155,2,88,0)=""
^XMB(3.9,155,2,89,0)="""BLD"",6906,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,155,2,90,0)=""
^XMB(3.9,155,2,91,0)="""BLD"",6906,""KRN"",""B"",19,19)"
^XMB(3.9,155,2,92,0)=""
^XMB(3.9,155,2,93,0)="""BLD"",6906,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,155,2,94,0)=""
^XMB(3.9,155,2,95,0)="""BLD"",6906,""KRN"",""B"",101,101)"
^XMB(3.9,155,2,96,0)=""
^XMB(3.9,155,2,97,0)="""BLD"",6906,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,155,2,98,0)=""
^XMB(3.9,155,2,99,0)="""BLD"",6906,""KRN"",""B"",771,771)"
^XMB(3.9,155,2,100,0)=""
^XMB(3.9,155,2,101,0)="""BLD"",6906,""KRN"",""B"",870,870)"
^XMB(3.9,155,2,102,0)=""
^XMB(3.9,155,2,103,0)="""BLD"",6906,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,155,2,104,0)=""
^XMB(3.9,155,2,105,0)="""BLD"",6906,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,155,2,106,0)=""
^XMB(3.9,155,2,107,0)="""BLD"",6906,""KRN"",""B"",8994,8994)"
^XMB(3.9,155,2,108,0)=""
^XMB(3.9,155,2,109,0)="""INIT"")"
^XMB(3.9,155,2,110,0)="WV19PST"
^XMB(3.9,155,2,111,0)="""MBREQ"")"
^XMB(3.9,155,2,112,0)="0"
^XMB(3.9,155,2,113,0)="""PKG"",518,-1)"
^XMB(3.9,155,2,114,0)="1^1"
^XMB(3.9,155,2,115,0)="""PKG"",518,0)"
^XMB(3.9,155,2,116,0)="WOMEN'S HEALTH^WV^Tracks health issues specific to female patients."
^XMB(3.9,155,2,117,0)="""PKG"",518,20,0)"
^XMB(3.9,155,2,118,0)="^9.402P^^"
^XMB(3.9,155,2,119,0)="""PKG"",518,22,0)"
^XMB(3.9,155,2,120,0)="^9.49I^1^1"
^XMB(3.9,155,2,121,0)="""PKG"",518,22,1,0)"
^XMB(3.9,155,2,122,0)="1.0^2980925^2981209^3694"
^XMB(3.9,155,2,123,0)="""PKG"",518,22,1,""PAH"",1,0)"
^XMB(3.9,155,2,124,0)="19^3060626"
^XMB(3.9,155,2,125,0)="""PKG"",518,22,1,""PAH"",1,1,0)"
^XMB(3.9,155,2,126,0)="^^3^3^3060626"
^XMB(3.9,155,2,127,0)="""PKG"",518,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,155,2,128,0)="This patch replaces the full SSN with the last 4 digits of the SSN"
^XMB(3.9,155,2,129,0)="""PKG"",518,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,155,2,130,0)="for the generic letter in Women's Health (790.6) and for each of the"
^XMB(3.9,155,2,131,0)="""PKG"",518,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,155,2,132,0)="notification letters in file 790.404."
^XMB(3.9,155,2,133,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,155,2,134,0)="Y"
^XMB(3.9,155,2,135,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,155,2,136,0)="^D REP^XPDH"
^XMB(3.9,155,2,137,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,155,2,138,0)="Shall I write over your |FLAG| File"
^XMB(3.9,155,2,139,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,155,2,140,0)="YES"
^XMB(3.9,155,2,141,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,155,2,142,0)="D XPF1^XPDIQ"
^XMB(3.9,155,2,143,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,155,2,144,0)="Y"
^XMB(3.9,155,2,145,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,155,2,146,0)="^D DTA^XPDH"
^XMB(3.9,155,2,147,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,155,2,148,0)="Want my data |FLAG| yours"
^XMB(3.9,155,2,149,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,155,2,150,0)="YES"
^XMB(3.9,155,2,151,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,155,2,152,0)="D XPF2^XPDIQ"
^XMB(3.9,155,2,153,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,155,2,154,0)="YO"
^XMB(3.9,155,2,155,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,155,2,156,0)="^D INHIBIT^XPDH"
^XMB(3.9,155,2,157,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,155,2,158,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,155,2,159,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,155,2,160,0)="YES"
^XMB(3.9,155,2,161,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,155,2,162,0)="D XPI1^XPDIQ"
^XMB(3.9,155,2,163,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,155,2,164,0)="PO^VA(200,:EM"
^XMB(3.9,155,2,165,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,155,2,166,0)="^D MG^XPDH"
^XMB(3.9,155,2,167,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,155,2,168,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,155,2,169,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,155,2,170,0)=""
^XMB(3.9,155,2,171,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,155,2,172,0)="D XPM1^XPDIQ"
^XMB(3.9,155,2,173,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,155,2,174,0)="Y"
^XMB(3.9,155,2,175,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,155,2,176,0)="^D MENU^XPDH"
^XMB(3.9,155,2,177,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,155,2,178,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,155,2,179,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,155,2,180,0)="YES"
^XMB(3.9,155,2,181,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,155,2,182,0)="D XPO1^XPDIQ"
^XMB(3.9,155,2,183,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,155,2,184,0)="Y"
^XMB(3.9,155,2,185,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,155,2,186,0)="^D OPT^XPDH"
^XMB(3.9,155,2,187,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,155,2,188,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,155,2,189,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,155,2,190,0)="YES"
^XMB(3.9,155,2,191,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,155,2,192,0)="D XPZ1^XPDIQ"
^XMB(3.9,155,2,193,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,155,2,194,0)="Y"
^XMB(3.9,155,2,195,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,155,2,196,0)="^D RTN^XPDH"
^XMB(3.9,155,2,197,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,155,2,198,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,155,2,199,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,155,2,200,0)="NO"
^XMB(3.9,155,2,201,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,155,2,202,0)="D XPZ2^XPDIQ"
^XMB(3.9,155,2,203,0)="""RTN"")"
^XMB(3.9,155,2,204,0)="1"
^XMB(3.9,155,2,205,0)="""RTN"",""WV19PST"")"
^XMB(3.9,155,2,206,0)="0^1^B2176163^n/a"
^XMB(3.9,155,2,207,0)="""RTN"",""WV19PST"",1,0)"
^XMB(3.9,155,2,208,0)="WV19PST ;HIOFO/FT-WV*1*19 POST INSTALLATION ROUTINE  ;06/26/06"
^XMB(3.9,155,2,209,0)="""RTN"",""WV19PST"",2,0)"
^XMB(3.9,155,2,210,0)=" ;;1.0;WOMEN'S HEALTH;**19**;Sep 30, 1998"
^XMB(3.9,155,2,211,0)="""RTN"",""WV19PST"",3,0)"
^XMB(3.9,155,2,212,0)=" ;"
^XMB(3.9,155,2,213,0)="""RTN"",""WV19PST"",4,0)"
^XMB(3.9,155,2,214,0)="EN ; This routine will loop through the word processing text in FILEs 790.6"
^XMB(3.9,155,2,215,0)="""RTN"",""WV19PST"",5,0)"
^XMB(3.9,155,2,216,0)=" ; and 790.404 and replace the ""|SSN#|"" placeholder with ""|$E(SSN#),6,9|""."
^XMB(3.9,155,2,217,0)="""RTN"",""WV19PST"",6,0)"
^XMB(3.9,155,2,218,0)=" ;"
^XMB(3.9,155,2,219,0)="""RTN"",""WV19PST"",7,0)"
^XMB(3.9,155,2,220,0)=" N WVIEN,WVLINE,WVNEW,WVNODE"
^XMB(3.9,155,2,221,0)="""RTN"",""WV19PST"",8,0)"
^XMB(3.9,155,2,222,0)=" S WVIEN=0"
^XMB(3.9,155,2,223,0)="""RTN"",""WV19PST"",9,0)"
^XMB(3.9,155,2,224,0)=" W !,""Checking FILE 790.6..."",!"
^XMB(3.9,155,2,225,0)="""RTN"",""WV19PST"",10,0)"
^XMB(3.9,155,2,226,0)=" F  S WVIEN=$O(^WV(790.6,WVIEN)) Q:'WVIEN  D"
^XMB(3.9,155,2,227,0)="""RTN"",""WV19PST"",11,0)"
^XMB(3.9,155,2,228,0)=" .S WVLINE=0"
^XMB(3.9,155,2,229,0)="""RTN"",""WV19PST"",12,0)"
^XMB(3.9,155,2,230,0)=" .F  S WVLINE=$O(^WV(790.6,WVIEN,1,WVLINE)) Q:'WVLINE  D"
^XMB(3.9,155,2,231,0)="""RTN"",""WV19PST"",13,0)"
^XMB(3.9,155,2,232,0)=" ..S WVNODE=$G(^WV(790.6,WVIEN,1,WVLINE,0))"
^XMB(3.9,155,2,233,0)="""RTN"",""WV19PST"",14,0)"
^XMB(3.9,155,2,234,0)=" ..Q:WVNODE="""""
^XMB(3.9,155,2,235,0)="""RTN"",""WV19PST"",15,0)"
^XMB(3.9,155,2,236,0)=" ..I WVNODE[""|SSN#|"" D"
^XMB(3.9,155,2,237,0)="""RTN"",""WV19PST"",16,0)"
^XMB(3.9,155,2,238,0)=" ...S WVNEW=$P(WVNODE,""|SSN#|"",1)_""|$E(SSN#,6,9)|""_$P(WVNODE,""|SSN#|"",2)"
^XMB(3.9,155,2,239,0)="""RTN"",""WV19PST"",17,0)"
^XMB(3.9,155,2,240,0)=" ...W !,WVIEN,!,WVNODE,!,WVNEW"
^XMB(3.9,155,2,241,0)="""RTN"",""WV19PST"",18,0)"
^XMB(3.9,155,2,242,0)=" ...S ^WV(790.6,WVIEN,1,WVLINE,0)=WVNEW"
^XMB(3.9,155,2,243,0)="""RTN"",""WV19PST"",19,0)"
^XMB(3.9,155,2,244,0)=" ...Q"
^XMB(3.9,155,2,245,0)="""RTN"",""WV19PST"",20,0)"
^XMB(3.9,155,2,246,0)=" ..Q"
^XMB(3.9,155,2,247,0)="""RTN"",""WV19PST"",21,0)"
^XMB(3.9,155,2,248,0)=" .Q"
^XMB(3.9,155,2,249,0)="""RTN"",""WV19PST"",22,0)"
^XMB(3.9,155,2,250,0)=" S WVIEN=0"
^XMB(3.9,155,2,251,0)="""RTN"",""WV19PST"",23,0)"
^XMB(3.9,155,2,252,0)=" W !,""Checking FILE 790.404..."",!"
^XMB(3.9,155,2,253,0)="""RTN"",""WV19PST"",24,0)"
^XMB(3.9,155,2,254,0)=" F  S WVIEN=$O(^WV(790.404,WVIEN)) Q:'WVIEN  D"
^XMB(3.9,155,2,255,0)="""RTN"",""WV19PST"",25,0)"
^XMB(3.9,155,2,256,0)=" .S WVLINE=0"
^XMB(3.9,155,2,257,0)="""RTN"",""WV19PST"",26,0)"
^XMB(3.9,155,2,258,0)=" .F  S WVLINE=$O(^WV(790.404,WVIEN,1,WVLINE)) Q:'WVLINE  D"
^XMB(3.9,155,2,259,0)="""RTN"",""WV19PST"",27,0)"
^XMB(3.9,155,2,260,0)=" ..S WVNODE=$G(^WV(790.404,WVIEN,1,WVLINE,0))"
^XMB(3.9,155,2,261,0)="""RTN"",""WV19PST"",28,0)"
^XMB(3.9,155,2,262,0)=" ..Q:WVNODE="""""
^XMB(3.9,155,2,263,0)="""RTN"",""WV19PST"",29,0)"
^XMB(3.9,155,2,264,0)=" ..I WVNODE[""|SSN#|"" D"
^XMB(3.9,155,2,265,0)="""RTN"",""WV19PST"",30,0)"
^XMB(3.9,155,2,266,0)=" ...S WVNEW=$P(WVNODE,""|SSN#|"",1)_""|$E(SSN#,6,9)|""_$P(WVNODE,""|SSN#|"",2)"
^XMB(3.9,155,2,267,0)="""RTN"",""WV19PST"",31,0)"
^XMB(3.9,155,2,268,0)=" ...W !,WVIEN,!,WVNODE,!,WVNEW"
^XMB(3.9,155,2,269,0)="""RTN"",""WV19PST"",32,0)"
^XMB(3.9,155,2,270,0)=" ...S ^WV(790.404,WVIEN,1,WVLINE,0)=WVNEW"
^XMB(3.9,155,2,271,0)="""RTN"",""WV19PST"",33,0)"
^XMB(3.9,155,2,272,0)=" ...Q"
^XMB(3.9,155,2,273,0)="""RTN"",""WV19PST"",34,0)"
^XMB(3.9,155,2,274,0)=" ..Q"
^XMB(3.9,155,2,275,0)="""RTN"",""WV19PST"",35,0)"
^XMB(3.9,155,2,276,0)=" .Q"
^XMB(3.9,155,2,277,0)="""VER"")"
^XMB(3.9,155,2,278,0)="8.0^22.0"
^XMB(3.9,155,2,279,0)="""BLD"",6906,6)"
^XMB(3.9,155,2,280,0)="^19"
^XMB(3.9,155,2,281,0)="$END KID WV*1.0*19"
^XMB(3.9,155,6,0)="^3.911A^2^2"
^XMB(3.9,155,6,1,0)="POSTMASTER"
^XMB(3.9,155,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,155,6,"B","POSTMASTER",1)=""
^XMB(3.9,155,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,156,0)="XM-8_SEQ-36_PAT-36.KID^.5^3061008.015743^^^^K"
^XMB(3.9,156,.6)="3061008"
^XMB(3.9,156,1,0)="^3.91A^2^2"
^XMB(3.9,156,1,1,0)=".5^0^3061008.015743^^^^^^^3061008.015743"
^XMB(3.9,156,1,2,0)="1^0^3061008.02285^^^^^^^3061008.02285"
^XMB(3.9,156,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,156,1,"C",.5,1)=""
^XMB(3.9,156,1,"C",1,2)=""
^XMB(3.9,156,2,0)="^^759^759^3061008"
^XMB(3.9,156,2,1,0)="$TXT Released XM*8*36 SEQ #36"
^XMB(3.9,156,2,2,0)="Extracted from mail message"
^XMB(3.9,156,2,3,0)="$END TXT"
^XMB(3.9,156,2,4,0)="$KID XM*8.0*36"
^XMB(3.9,156,2,5,0)="**INSTALL NAME**"
^XMB(3.9,156,2,6,0)="XM*8.0*36"
^XMB(3.9,156,2,7,0)="""BLD"",5931,0)"
^XMB(3.9,156,2,8,0)="XM*8.0*36^MAILMAN^0^3060309^y"
^XMB(3.9,156,2,9,0)="""BLD"",5931,1,0)"
^XMB(3.9,156,2,10,0)="^^1^1^3060228^^"
^XMB(3.9,156,2,11,0)="""BLD"",5931,1,1,0)"
^XMB(3.9,156,2,12,0)="Allow a non-human user to send bulletins."
^XMB(3.9,156,2,13,0)="""BLD"",5931,4,0)"
^XMB(3.9,156,2,14,0)="^9.64PA^^"
^XMB(3.9,156,2,15,0)="""BLD"",5931,""ABPKG"")"
^XMB(3.9,156,2,16,0)="n"
^XMB(3.9,156,2,17,0)="""BLD"",5931,""KRN"",0)"
^XMB(3.9,156,2,18,0)="^9.67PA^8989.52^19"
^XMB(3.9,156,2,19,0)="""BLD"",5931,""KRN"",.4,0)"
^XMB(3.9,156,2,20,0)=".4"
^XMB(3.9,156,2,21,0)="""BLD"",5931,""KRN"",.401,0)"
^XMB(3.9,156,2,22,0)=".401"
^XMB(3.9,156,2,23,0)="""BLD"",5931,""KRN"",.402,0)"
^XMB(3.9,156,2,24,0)=".402"
^XMB(3.9,156,2,25,0)="""BLD"",5931,""KRN"",.403,0)"
^XMB(3.9,156,2,26,0)=".403"
^XMB(3.9,156,2,27,0)="""BLD"",5931,""KRN"",.5,0)"
^XMB(3.9,156,2,28,0)=".5"
^XMB(3.9,156,2,29,0)="""BLD"",5931,""KRN"",.84,0)"
^XMB(3.9,156,2,30,0)=".84"
^XMB(3.9,156,2,31,0)="""BLD"",5931,""KRN"",3.6,0)"
^XMB(3.9,156,2,32,0)="3.6"
^XMB(3.9,156,2,33,0)="""BLD"",5931,""KRN"",3.8,0)"
^XMB(3.9,156,2,34,0)="3.8"
^XMB(3.9,156,2,35,0)="""BLD"",5931,""KRN"",9.2,0)"
^XMB(3.9,156,2,36,0)="9.2"
^XMB(3.9,156,2,37,0)="""BLD"",5931,""KRN"",9.8,0)"
^XMB(3.9,156,2,38,0)="9.8"
^XMB(3.9,156,2,39,0)="""BLD"",5931,""KRN"",9.8,""NM"",0)"
^XMB(3.9,156,2,40,0)="^9.68A^2^2"
^XMB(3.9,156,2,41,0)="""BLD"",5931,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,156,2,42,0)="XMXPARM1^^0^B10873939"
^XMB(3.9,156,2,43,0)="""BLD"",5931,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,156,2,44,0)="XMVVITAE^^0^B50266073"
^XMB(3.9,156,2,45,0)="""BLD"",5931,""KRN"",9.8,""NM"",""B"",""XMVVITAE"",2)"
^XMB(3.9,156,2,46,0)=""
^XMB(3.9,156,2,47,0)="""BLD"",5931,""KRN"",9.8,""NM"",""B"",""XMXPARM1"",1)"
^XMB(3.9,156,2,48,0)=""
^XMB(3.9,156,2,49,0)="""BLD"",5931,""KRN"",19,0)"
^XMB(3.9,156,2,50,0)="19"
^XMB(3.9,156,2,51,0)="""BLD"",5931,""KRN"",19.1,0)"
^XMB(3.9,156,2,52,0)="19.1"
^XMB(3.9,156,2,53,0)="""BLD"",5931,""KRN"",101,0)"
^XMB(3.9,156,2,54,0)="101"
^XMB(3.9,156,2,55,0)="""BLD"",5931,""KRN"",409.61,0)"
^XMB(3.9,156,2,56,0)="409.61"
^XMB(3.9,156,2,57,0)="""BLD"",5931,""KRN"",771,0)"
^XMB(3.9,156,2,58,0)="771"
^XMB(3.9,156,2,59,0)="""BLD"",5931,""KRN"",870,0)"
^XMB(3.9,156,2,60,0)="870"
^XMB(3.9,156,2,61,0)="""BLD"",5931,""KRN"",8989.51,0)"
^XMB(3.9,156,2,62,0)="8989.51"
^XMB(3.9,156,2,63,0)="""BLD"",5931,""KRN"",8989.52,0)"
^XMB(3.9,156,2,64,0)="8989.52"
^XMB(3.9,156,2,65,0)="""BLD"",5931,""KRN"",8994,0)"
^XMB(3.9,156,2,66,0)="8994"
^XMB(3.9,156,2,67,0)="""BLD"",5931,""KRN"",""B"",.4,.4)"
^XMB(3.9,156,2,68,0)=""
^XMB(3.9,156,2,69,0)="""BLD"",5931,""KRN"",""B"",.401,.401)"
^XMB(3.9,156,2,70,0)=""
^XMB(3.9,156,2,71,0)="""BLD"",5931,""KRN"",""B"",.402,.402)"
^XMB(3.9,156,2,72,0)=""
^XMB(3.9,156,2,73,0)="""BLD"",5931,""KRN"",""B"",.403,.403)"
^XMB(3.9,156,2,74,0)=""
^XMB(3.9,156,2,75,0)="""BLD"",5931,""KRN"",""B"",.5,.5)"
^XMB(3.9,156,2,76,0)=""
^XMB(3.9,156,2,77,0)="""BLD"",5931,""KRN"",""B"",.84,.84)"
^XMB(3.9,156,2,78,0)=""
^XMB(3.9,156,2,79,0)="""BLD"",5931,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,156,2,80,0)=""
^XMB(3.9,156,2,81,0)="""BLD"",5931,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,156,2,82,0)=""
^XMB(3.9,156,2,83,0)="""BLD"",5931,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,156,2,84,0)=""
^XMB(3.9,156,2,85,0)="""BLD"",5931,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,156,2,86,0)=""
^XMB(3.9,156,2,87,0)="""BLD"",5931,""KRN"",""B"",19,19)"
^XMB(3.9,156,2,88,0)=""
^XMB(3.9,156,2,89,0)="""BLD"",5931,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,156,2,90,0)=""
^XMB(3.9,156,2,91,0)="""BLD"",5931,""KRN"",""B"",101,101)"
^XMB(3.9,156,2,92,0)=""
^XMB(3.9,156,2,93,0)="""BLD"",5931,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,156,2,94,0)=""
^XMB(3.9,156,2,95,0)="""BLD"",5931,""KRN"",""B"",771,771)"
^XMB(3.9,156,2,96,0)=""
^XMB(3.9,156,2,97,0)="""BLD"",5931,""KRN"",""B"",870,870)"
^XMB(3.9,156,2,98,0)=""
^XMB(3.9,156,2,99,0)="""BLD"",5931,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,156,2,100,0)=""
^XMB(3.9,156,2,101,0)="""BLD"",5931,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,156,2,102,0)=""
^XMB(3.9,156,2,103,0)="""BLD"",5931,""KRN"",""B"",8994,8994)"
^XMB(3.9,156,2,104,0)=""
^XMB(3.9,156,2,105,0)="""BLD"",5931,""QUES"",0)"
^XMB(3.9,156,2,106,0)="^9.62^^"
^XMB(3.9,156,2,107,0)="""BLD"",5931,""REQB"",0)"
^XMB(3.9,156,2,108,0)="^9.611^2^1"
^XMB(3.9,156,2,109,0)="""BLD"",5931,""REQB"",2,0)"
^XMB(3.9,156,2,110,0)="XU*8.0*361^2"
^XMB(3.9,156,2,111,0)="""BLD"",5931,""REQB"",""B"",""XU*8.0*361"",2)"
^XMB(3.9,156,2,112,0)=""
^XMB(3.9,156,2,113,0)="""MBREQ"")"
^XMB(3.9,156,2,114,0)="0"
^XMB(3.9,156,2,115,0)="""PKG"",54,-1)"
^XMB(3.9,156,2,116,0)="1^1"
^XMB(3.9,156,2,117,0)="""PKG"",54,0)"
^XMB(3.9,156,2,118,0)="MAILMAN^XM^Electronic Mail, both local and networked"
^XMB(3.9,156,2,119,0)="""PKG"",54,20,0)"
^XMB(3.9,156,2,120,0)="^9.402P^^"
^XMB(3.9,156,2,121,0)="""PKG"",54,22,0)"
^XMB(3.9,156,2,122,0)="^9.49I^1^1"
^XMB(3.9,156,2,123,0)="""PKG"",54,22,1,0)"
^XMB(3.9,156,2,124,0)="8.0^3020815^3020827^2441"
^XMB(3.9,156,2,125,0)="""PKG"",54,22,1,""PAH"",1,0)"
^XMB(3.9,156,2,126,0)="36^3060309"
^XMB(3.9,156,2,127,0)="""PKG"",54,22,1,""PAH"",1,1,0)"
^XMB(3.9,156,2,128,0)="^^1^1^3060309"
^XMB(3.9,156,2,129,0)="""PKG"",54,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,156,2,130,0)="Allow a non-human user to send bulletins."
^XMB(3.9,156,2,131,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,156,2,132,0)="Y"
^XMB(3.9,156,2,133,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,156,2,134,0)="^D REP^XPDH"
^XMB(3.9,156,2,135,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,156,2,136,0)="Shall I write over your |FLAG| File"
^XMB(3.9,156,2,137,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,156,2,138,0)="YES"
^XMB(3.9,156,2,139,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,156,2,140,0)="D XPF1^XPDIQ"
^XMB(3.9,156,2,141,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,156,2,142,0)="Y"
^XMB(3.9,156,2,143,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,156,2,144,0)="^D DTA^XPDH"
^XMB(3.9,156,2,145,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,156,2,146,0)="Want my data |FLAG| yours"
^XMB(3.9,156,2,147,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,156,2,148,0)="YES"
^XMB(3.9,156,2,149,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,156,2,150,0)="D XPF2^XPDIQ"
^XMB(3.9,156,2,151,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,156,2,152,0)="YO"
^XMB(3.9,156,2,153,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,156,2,154,0)="^D INHIBIT^XPDH"
^XMB(3.9,156,2,155,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,156,2,156,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,156,2,157,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,156,2,158,0)="YES"
^XMB(3.9,156,2,159,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,156,2,160,0)="D XPI1^XPDIQ"
^XMB(3.9,156,2,161,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,156,2,162,0)="PO^VA(200,:EM"
^XMB(3.9,156,2,163,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,156,2,164,0)="^D MG^XPDH"
^XMB(3.9,156,2,165,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,156,2,166,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,156,2,167,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,156,2,168,0)=""
^XMB(3.9,156,2,169,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,156,2,170,0)="D XPM1^XPDIQ"
^XMB(3.9,156,2,171,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,156,2,172,0)="Y"
^XMB(3.9,156,2,173,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,156,2,174,0)="^D MENU^XPDH"
^XMB(3.9,156,2,175,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,156,2,176,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,156,2,177,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,156,2,178,0)="YES"
^XMB(3.9,156,2,179,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,156,2,180,0)="D XPO1^XPDIQ"
^XMB(3.9,156,2,181,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,156,2,182,0)="Y"
^XMB(3.9,156,2,183,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,156,2,184,0)="^D OPT^XPDH"
^XMB(3.9,156,2,185,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,156,2,186,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,156,2,187,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,156,2,188,0)="YES"
^XMB(3.9,156,2,189,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,156,2,190,0)="D XPZ1^XPDIQ"
^XMB(3.9,156,2,191,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,156,2,192,0)="Y"
^XMB(3.9,156,2,193,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,156,2,194,0)="^D RTN^XPDH"
^XMB(3.9,156,2,195,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,156,2,196,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,156,2,197,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,156,2,198,0)="NO"
^XMB(3.9,156,2,199,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,156,2,200,0)="D XPZ2^XPDIQ"
^XMB(3.9,156,2,201,0)="""RTN"")"
^XMB(3.9,156,2,202,0)="2"
^XMB(3.9,156,2,203,0)="""RTN"",""XMVVITAE"")"
^XMB(3.9,156,2,204,0)="0^2^B50266073^B48248055"
^XMB(3.9,156,2,205,0)="""RTN"",""XMVVITAE"",1,0)"
^XMB(3.9,156,2,206,0)="XMVVITAE ;ISC-SF/GMB-Initialize User's MailMan Variables ;04/19/2002  13:26"
^XMB(3.9,156,2,207,0)="""RTN"",""XMVVITAE"",2,0)"
^XMB(3.9,156,2,208,0)=" ;;8.0;MailMan;**36**;Jun 28, 2002"
^XMB(3.9,156,2,209,0)="""RTN"",""XMVVITAE"",3,0)"
^XMB(3.9,156,2,210,0)=" ; Replaces ^XMGAPI1,FWD^XMA21,FWD,BANNER^XMA6,EDIT^XMA7 (ISC-WASH/CAP)"
^XMB(3.9,156,2,211,0)="""RTN"",""XMVVITAE"",4,0)"
^XMB(3.9,156,2,212,0)=" ; Entry points (DBIA 2728):"
^XMB(3.9,156,2,213,0)="""RTN"",""XMVVITAE"",5,0)"
^XMB(3.9,156,2,214,0)=" ; INIT     Set up variables for DUZ or XMDUZ."
^XMB(3.9,156,2,215,0)="""RTN"",""XMVVITAE"",6,0)"
^XMB(3.9,156,2,216,0)=" ; OTHER    Set up variables to become a surrogate of someone else."
^XMB(3.9,156,2,217,0)="""RTN"",""XMVVITAE"",7,0)"
^XMB(3.9,156,2,218,0)=" ; SELF     Return from being a surrogate to being oneself again."
^XMB(3.9,156,2,219,0)="""RTN"",""XMVVITAE"",8,0)"
^XMB(3.9,156,2,220,0)=" Q"
^XMB(3.9,156,2,221,0)="""RTN"",""XMVVITAE"",9,0)"
^XMB(3.9,156,2,222,0)="INIT ; Set up one's variables (for yourself or as a surrogate)."
^XMB(3.9,156,2,223,0)="""RTN"",""XMVVITAE"",10,0)"
^XMB(3.9,156,2,224,0)=" N XMAPI"
^XMB(3.9,156,2,225,0)="""RTN"",""XMVVITAE"",11,0)"
^XMB(3.9,156,2,226,0)="INIT2 K XMV"
^XMB(3.9,156,2,227,0)="""RTN"",""XMVVITAE"",12,0)"
^XMB(3.9,156,2,228,0)=" D SYSTEM(.XMV)"
^XMB(3.9,156,2,229,0)="""RTN"",""XMVVITAE"",13,0)"
^XMB(3.9,156,2,230,0)=" S:'$D(XMDUZ) XMDUZ=DUZ"
^XMB(3.9,156,2,231,0)="""RTN"",""XMVVITAE"",14,0)"
^XMB(3.9,156,2,232,0)=" D DUZ(DUZ,.XMV,.XMDUN,.XMDISPI,.XMNOSEND)"
^XMB(3.9,156,2,233,0)="""RTN"",""XMVVITAE"",15,0)"
^XMB(3.9,156,2,234,0)=" D:XMDUZ'=DUZ SURROGAT(XMDUZ,.XMV,.XMDUN,.XMNOSEND,.XMPRIV)"
^XMB(3.9,156,2,235,0)="""RTN"",""XMVVITAE"",16,0)"
^XMB(3.9,156,2,236,0)=" Q"
^XMB(3.9,156,2,237,0)="""RTN"",""XMVVITAE"",17,0)"
^XMB(3.9,156,2,238,0)="INITAPI ; (For MailMan use only) Set up variables for an API call."
^XMB(3.9,156,2,239,0)="""RTN"",""XMVVITAE"",18,0)"
^XMB(3.9,156,2,240,0)=" N XMAPI"
^XMB(3.9,156,2,241,0)="""RTN"",""XMVVITAE"",19,0)"
^XMB(3.9,156,2,242,0)=" S XMAPI=1 ; ""last used MailMan"" will not be recorded."
^XMB(3.9,156,2,243,0)="""RTN"",""XMVVITAE"",20,0)"
^XMB(3.9,156,2,244,0)=" G INIT2"
^XMB(3.9,156,2,245,0)="""RTN"",""XMVVITAE"",21,0)"
^XMB(3.9,156,2,246,0)="CHECK ; Check to make sure one's variables exist."
^XMB(3.9,156,2,247,0)="""RTN"",""XMVVITAE"",22,0)"
^XMB(3.9,156,2,248,0)=" I '$D(XMV(""NAME""))!'$D(XMV(""RDR DEF"")) D INIT"
^XMB(3.9,156,2,249,0)="""RTN"",""XMVVITAE"",23,0)"
^XMB(3.9,156,2,250,0)=" Q"
^XMB(3.9,156,2,251,0)="""RTN"",""XMVVITAE"",24,0)"
^XMB(3.9,156,2,252,0)="OTHER ; Become someone else.  INIT should have been called previously."
^XMB(3.9,156,2,253,0)="""RTN"",""XMVVITAE"",25,0)"
^XMB(3.9,156,2,254,0)=" I '$D(XMV) D INIT Q"
^XMB(3.9,156,2,255,0)="""RTN"",""XMVVITAE"",26,0)"
^XMB(3.9,156,2,256,0)=" N XMAPI"
^XMB(3.9,156,2,257,0)="""RTN"",""XMVVITAE"",27,0)"
^XMB(3.9,156,2,258,0)=" D SURROGAT(XMDUZ,.XMV,.XMDUN,.XMNOSEND,.XMPRIV)"
^XMB(3.9,156,2,259,0)="""RTN"",""XMVVITAE"",28,0)"
^XMB(3.9,156,2,260,0)=" Q"
^XMB(3.9,156,2,261,0)="""RTN"",""XMVVITAE"",29,0)"
^XMB(3.9,156,2,262,0)="SELF ; Return to oneself after having become someone else."
^XMB(3.9,156,2,263,0)="""RTN"",""XMVVITAE"",30,0)"
^XMB(3.9,156,2,264,0)=" ; INIT should have been called previously."
^XMB(3.9,156,2,265,0)="""RTN"",""XMVVITAE"",31,0)"
^XMB(3.9,156,2,266,0)=" S XMDUZ=DUZ"
^XMB(3.9,156,2,267,0)="""RTN"",""XMVVITAE"",32,0)"
^XMB(3.9,156,2,268,0)=" I '$D(XMV) D INIT Q"
^XMB(3.9,156,2,269,0)="""RTN"",""XMVVITAE"",33,0)"
^XMB(3.9,156,2,270,0)=" N XMAPI"
^XMB(3.9,156,2,271,0)="""RTN"",""XMVVITAE"",34,0)"
^XMB(3.9,156,2,272,0)=" D USER(XMDUZ,.XMV,.XMNOSEND,.XMDUN)"
^XMB(3.9,156,2,273,0)="""RTN"",""XMVVITAE"",35,0)"
^XMB(3.9,156,2,274,0)=" D LASTUSE(XMDUZ,.XMV)"
^XMB(3.9,156,2,275,0)="""RTN"",""XMVVITAE"",36,0)"
^XMB(3.9,156,2,276,0)=" Q"
^XMB(3.9,156,2,277,0)="""RTN"",""XMVVITAE"",37,0)"
^XMB(3.9,156,2,278,0)="SYSTEM(XMV) ;"
^XMB(3.9,156,2,279,0)="""RTN"",""XMVVITAE"",38,0)"
^XMB(3.9,156,2,280,0)=" ; XMV(""VERSION"")"
^XMB(3.9,156,2,281,0)="""RTN"",""XMVVITAE"",39,0)"
^XMB(3.9,156,2,282,0)=" I '$D(DT) D DT^DICRW"
^XMB(3.9,156,2,283,0)="""RTN"",""XMVVITAE"",40,0)"
^XMB(3.9,156,2,284,0)=" S XMV(""VERSION"")=""VA MailMan ""_$P($T(XMVVITAE+1),"";"",3)"
^XMB(3.9,156,2,285,0)="""RTN"",""XMVVITAE"",41,0)"
^XMB(3.9,156,2,286,0)=" ; Check to make sure that important variables are defined correctly."
^XMB(3.9,156,2,287,0)="""RTN"",""XMVVITAE"",42,0)"
^XMB(3.9,156,2,288,0)=" I +$G(^XMB(""NUM"")),$G(^XMB(""NAME""))=$G(^XMB(""NETNAME"")),$G(^XMB(""NETNAME""))=$P($G(^DIC(4.2,+$G(^XMB(""NUM"")),0)),U,1),$G(^XMB(""NUM""))=$P($G(^XMB(1,1,0)),U,1) Q"
^XMB(3.9,156,2,289,0)="""RTN"",""XMVVITAE"",43,0)"
^XMB(3.9,156,2,290,0)=" N XMPARM  ; The domain for this facility is not christened correctly."
^XMB(3.9,156,2,291,0)="""RTN"",""XMVVITAE"",44,0)"
^XMB(3.9,156,2,292,0)=" S XMPARM(1)=$G(^XMB(""NUM""))"
^XMB(3.9,156,2,293,0)="""RTN"",""XMVVITAE"",45,0)"
^XMB(3.9,156,2,294,0)=" S XMPARM(2)=$P($G(^XMB(1,1,0)),U,1)"
^XMB(3.9,156,2,295,0)="""RTN"",""XMVVITAE"",46,0)"
^XMB(3.9,156,2,296,0)=" S XMPARM(3)=$P($G(^DIC(4.2,+$G(^XMB(""NUM"")),0)),U,1)"
^XMB(3.9,156,2,297,0)="""RTN"",""XMVVITAE"",47,0)"
^XMB(3.9,156,2,298,0)=" S XMPARM(4)=$P($G(^DIC(4.2,+XMPARM(2),0)),U,1)"
^XMB(3.9,156,2,299,0)="""RTN"",""XMVVITAE"",48,0)"
^XMB(3.9,156,2,300,0)=" S XMPARM(5)=$G(^XMB(""NETNAME""))"
^XMB(3.9,156,2,301,0)="""RTN"",""XMVVITAE"",49,0)"
^XMB(3.9,156,2,302,0)=" S XMPARM(6)=$G(^XMB(""NAME""))"
^XMB(3.9,156,2,303,0)="""RTN"",""XMVVITAE"",50,0)"
^XMB(3.9,156,2,304,0)=" F I=1:1:6 I XMPARM(I)="""" S XMPARM(I)=""?"""
^XMB(3.9,156,2,305,0)="""RTN"",""XMVVITAE"",51,0)"
^XMB(3.9,156,2,306,0)=" ;The domain for this facility is not christened correctly."
^XMB(3.9,156,2,307,0)="""RTN"",""XMVVITAE"",52,0)"
^XMB(3.9,156,2,308,0)=" ;IRM must correct this for network mail to function properly."
^XMB(3.9,156,2,309,0)="""RTN"",""XMVVITAE"",53,0)"
^XMB(3.9,156,2,310,0)=" ;The following pointers should contain the same numbers,"
^XMB(3.9,156,2,311,0)="""RTN"",""XMVVITAE"",54,0)"
^XMB(3.9,156,2,312,0)=" ;which should point to this facility's domain in ^DIC(4.2:"
^XMB(3.9,156,2,313,0)="""RTN"",""XMVVITAE"",55,0)"
^XMB(3.9,156,2,314,0)=" ;^XMB(""NUM"")=|1|          ==> |3|"
^XMB(3.9,156,2,315,0)="""RTN"",""XMVVITAE"",56,0)"
^XMB(3.9,156,2,316,0)=" ;$P(^XMB(1,1,0),U,1)=|2|  ==> |4|"
^XMB(3.9,156,2,317,0)="""RTN"",""XMVVITAE"",57,0)"
^XMB(3.9,156,2,318,0)=" ;The following globals should contain the domain name of this facility:"
^XMB(3.9,156,2,319,0)="""RTN"",""XMVVITAE"",58,0)"
^XMB(3.9,156,2,320,0)=" ;^XMB(""NETNAME"")=           |5|"
^XMB(3.9,156,2,321,0)="""RTN"",""XMVVITAE"",59,0)"
^XMB(3.9,156,2,322,0)=" ;^XMB(""NAME"")=              |6|"
^XMB(3.9,156,2,323,0)="""RTN"",""XMVVITAE"",60,0)"
^XMB(3.9,156,2,324,0)=" D BLD^DIALOG(38100,.XMPARM,"""",""XMV(""""SYSERR"""")"")"
^XMB(3.9,156,2,325,0)="""RTN"",""XMVVITAE"",61,0)"
^XMB(3.9,156,2,326,0)=" Q"
^XMB(3.9,156,2,327,0)="""RTN"",""XMVVITAE"",62,0)"
^XMB(3.9,156,2,328,0)="DUZ(XMDUZ,XMV,XMDUN,XMDISPI,XMNOSEND) ;"
^XMB(3.9,156,2,329,0)="""RTN"",""XMVVITAE"",63,0)"
^XMB(3.9,156,2,330,0)=" ; XMV(""DUZ NAME"")"
^XMB(3.9,156,2,331,0)="""RTN"",""XMVVITAE"",64,0)"
^XMB(3.9,156,2,332,0)=" K XMV(""ERROR"")"
^XMB(3.9,156,2,333,0)="""RTN"",""XMVVITAE"",65,0)"
^XMB(3.9,156,2,334,0)=" I $G(DUZ,0)=0 S XMV(""ERROR"",1)=$$EZBLD^DIALOG(38105) Q  ;You do not have a DUZ."
^XMB(3.9,156,2,335,0)="""RTN"",""XMVVITAE"",66,0)"
^XMB(3.9,156,2,336,0)=" D USER(XMDUZ,.XMV,.XMNOSEND,.XMDUN) Q:$D(XMV(""ERROR""))"
^XMB(3.9,156,2,337,0)="""RTN"",""XMVVITAE"",67,0)"
^XMB(3.9,156,2,338,0)=" S XMV(""DUZ NAME"")=XMV(""NAME"")"
^XMB(3.9,156,2,339,0)="""RTN"",""XMVVITAE"",68,0)"
^XMB(3.9,156,2,340,0)=" D LASTUSE(XMDUZ,.XMV)"
^XMB(3.9,156,2,341,0)="""RTN"",""XMVVITAE"",69,0)"
^XMB(3.9,156,2,342,0)=" D PREFER(XMDUZ,.XMV,.XMDISPI)"
^XMB(3.9,156,2,343,0)="""RTN"",""XMVVITAE"",70,0)"
^XMB(3.9,156,2,344,0)=" Q"
^XMB(3.9,156,2,345,0)="""RTN"",""XMVVITAE"",71,0)"
^XMB(3.9,156,2,346,0)="SURROGAT(XMDUZ,XMV,XMDUN,XMNOSEND,XMPRIV) ;"
^XMB(3.9,156,2,347,0)="""RTN"",""XMVVITAE"",72,0)"
^XMB(3.9,156,2,348,0)=" ; XMV(""PRIV"")"
^XMB(3.9,156,2,349,0)="""RTN"",""XMVVITAE"",73,0)"
^XMB(3.9,156,2,350,0)=" ; XMPRIV"
^XMB(3.9,156,2,351,0)="""RTN"",""XMVVITAE"",74,0)"
^XMB(3.9,156,2,352,0)=" Q:XMDUZ=DUZ"
^XMB(3.9,156,2,353,0)="""RTN"",""XMVVITAE"",75,0)"
^XMB(3.9,156,2,354,0)=" K XMV(""ERROR""),XMV(""WARNING"")"
^XMB(3.9,156,2,355,0)="""RTN"",""XMVVITAE"",76,0)"
^XMB(3.9,156,2,356,0)=" I XMDUZ=.6 D  Q"
^XMB(3.9,156,2,357,0)="""RTN"",""XMVVITAE"",77,0)"
^XMB(3.9,156,2,358,0)=" . S XMV(""PRIV"")=""R"",XMPRIV=""y^n"""
^XMB(3.9,156,2,359,0)="""RTN"",""XMVVITAE"",78,0)"
^XMB(3.9,156,2,360,0)=" . S (XMDUN,XMV(""NAME""))=$$NAME^XMXUTIL(.6)"
^XMB(3.9,156,2,361,0)="""RTN"",""XMVVITAE"",79,0)"
^XMB(3.9,156,2,362,0)=" . D SETNET(XMDUZ,.XMV)"
^XMB(3.9,156,2,363,0)="""RTN"",""XMVVITAE"",80,0)"
^XMB(3.9,156,2,364,0)=" . S XMV(""NEW MSGS"")=+$P(^XMB(3.7,XMDUZ,0),U,6)"
^XMB(3.9,156,2,365,0)="""RTN"",""XMVVITAE"",81,0)"
^XMB(3.9,156,2,366,0)=" E  D  Q:$D(XMV(""ERROR""))"
^XMB(3.9,156,2,367,0)="""RTN"",""XMVVITAE"",82,0)"
^XMB(3.9,156,2,368,0)=" . N XMIEN"
^XMB(3.9,156,2,369,0)="""RTN"",""XMVVITAE"",83,0)"
^XMB(3.9,156,2,370,0)=" . S XMIEN=+$O(^XMB(3.7,""AB"",DUZ,XMDUZ,0))"
^XMB(3.9,156,2,371,0)="""RTN"",""XMVVITAE"",84,0)"
^XMB(3.9,156,2,372,0)=" . ;Commented out because we shouldn't be here if not a valid surrogate"
^XMB(3.9,156,2,373,0)="""RTN"",""XMVVITAE"",85,0)"
^XMB(3.9,156,2,374,0)=" . ;I 'XMIEN S XMV(""ERROR"",5)=$$EZBLD^DIALOG(38106,XMDUZ) Q  ;You are not a surrogate of DUZ |1|."
^XMB(3.9,156,2,375,0)="""RTN"",""XMVVITAE"",86,0)"
^XMB(3.9,156,2,376,0)=" . S XMPRIV=$G(^XMB(3.7,XMDUZ,9,XMIEN,0))"
^XMB(3.9,156,2,377,0)="""RTN"",""XMVVITAE"",87,0)"
^XMB(3.9,156,2,378,0)=" . S XMV(""PRIV"")=$S($P(XMPRIV,U,2)=""y"":""R"",1:"""")_$S($P(XMPRIV,U,3)=""y"":""W"",1:"""")"
^XMB(3.9,156,2,379,0)="""RTN"",""XMVVITAE"",88,0)"
^XMB(3.9,156,2,380,0)=" D USER(XMDUZ,.XMV,.XMNOSEND,.XMDUN) Q:$D(XMV(""ERROR""))"
^XMB(3.9,156,2,381,0)="""RTN"",""XMVVITAE"",89,0)"
^XMB(3.9,156,2,382,0)=" D LASTUSE(XMDUZ,.XMV)"
^XMB(3.9,156,2,383,0)="""RTN"",""XMVVITAE"",90,0)"
^XMB(3.9,156,2,384,0)=" Q"
^XMB(3.9,156,2,385,0)="""RTN"",""XMVVITAE"",91,0)"
^XMB(3.9,156,2,386,0)="USER(XMDUZ,XMV,XMNOSEND,XMDUN) ;"
^XMB(3.9,156,2,387,0)="""RTN"",""XMVVITAE"",92,0)"
^XMB(3.9,156,2,388,0)=" ; XMV(""WARNING"")"
^XMB(3.9,156,2,389,0)="""RTN"",""XMVVITAE"",93,0)"
^XMB(3.9,156,2,390,0)=" ; XMV(""ERROR"")"
^XMB(3.9,156,2,391,0)="""RTN"",""XMVVITAE"",94,0)"
^XMB(3.9,156,2,392,0)=" ; XMV(""NEW MSGS"")"
^XMB(3.9,156,2,393,0)="""RTN"",""XMVVITAE"",95,0)"
^XMB(3.9,156,2,394,0)=" ; XMV(""NAME"")"
^XMB(3.9,156,2,395,0)="""RTN"",""XMVVITAE"",96,0)"
^XMB(3.9,156,2,396,0)=" ; XMV(""NOSEND"")"
^XMB(3.9,156,2,397,0)="""RTN"",""XMVVITAE"",97,0)"
^XMB(3.9,156,2,398,0)=" ; XMNOSEND"
^XMB(3.9,156,2,399,0)="""RTN"",""XMVVITAE"",98,0)"
^XMB(3.9,156,2,400,0)=" ; XMDUN"
^XMB(3.9,156,2,401,0)="""RTN"",""XMVVITAE"",99,0)"
^XMB(3.9,156,2,402,0)=" N XMREC"
^XMB(3.9,156,2,403,0)="""RTN"",""XMVVITAE"",100,0)"
^XMB(3.9,156,2,404,0)=" K XMV(""ERROR""),XMV(""WARNING"")"
^XMB(3.9,156,2,405,0)="""RTN"",""XMVVITAE"",101,0)"
^XMB(3.9,156,2,406,0)=" S XMREC=$G(^VA(200,XMDUZ,0))"
^XMB(3.9,156,2,407,0)="""RTN"",""XMVVITAE"",102,0)"
^XMB(3.9,156,2,408,0)=" I XMREC="""" S XMV(""ERROR"",2)=$$EZBLD^DIALOG(38107,XMDUZ) Q  ;There is no person with DUZ |1|."
^XMB(3.9,156,2,409,0)="""RTN"",""XMVVITAE"",103,0)"
^XMB(3.9,156,2,410,0)=" ;I $P(XMREC,U,3)="""" S XMV(""ERROR"",3)=$$EZBLD^DIALOG(38108,XMDUZ) Q  ; There is no Access Code for DUZ XMDUZ"
^XMB(3.9,156,2,411,0)="""RTN"",""XMVVITAE"",104,0)"
^XMB(3.9,156,2,412,0)=" I $P(XMREC,U,3)="""",'$$USERTYPE^XUSAP(XMDUZ,""APPLICATION PROXY"") S XMV(""ERROR"",3)=$$EZBLD^DIALOG(38108,XMDUZ) Q  ; There is no Access Code for DUZ XMDUZ"
^XMB(3.9,156,2,413,0)="""RTN"",""XMVVITAE"",105,0)"
^XMB(3.9,156,2,414,0)=" ;I '$D(^XMB(3.7,XMDUZ,0)) S XMV(""ERROR"",4)=$$EZBLD^DIALOG(38109,XMDUZ) Q  ;There is no mailbox for DUZ |1|."
^XMB(3.9,156,2,415,0)="""RTN"",""XMVVITAE"",106,0)"
^XMB(3.9,156,2,416,0)=" I '$D(^XMB(3.7,XMDUZ,0)),'$$USERTYPE^XUSAP(XMDUZ,""APPLICATION PROXY"") S XMV(""ERROR"",4)=$$EZBLD^DIALOG(38109,XMDUZ) Q  ;There is no mailbox for DUZ |1|."
^XMB(3.9,156,2,417,0)="""RTN"",""XMVVITAE"",107,0)"
^XMB(3.9,156,2,418,0)=" S XMV(""NOSEND"")=0"
^XMB(3.9,156,2,419,0)="""RTN"",""XMVVITAE"",108,0)"
^XMB(3.9,156,2,420,0)=" S (XMDUN,XMV(""NAME""))=$$NAME^XMXUTIL(XMDUZ)"
^XMB(3.9,156,2,421,0)="""RTN"",""XMVVITAE"",109,0)"
^XMB(3.9,156,2,422,0)=" D SETNET(XMDUZ,.XMV)"
^XMB(3.9,156,2,423,0)="""RTN"",""XMVVITAE"",110,0)"
^XMB(3.9,156,2,424,0)=" Q:$D(ZTQUEUED)!$G(XMAPI)"
^XMB(3.9,156,2,425,0)="""RTN"",""XMVVITAE"",111,0)"
^XMB(3.9,156,2,426,0)=" I $D(^XTMP(""XM"",""MAKENEW"",XMDUZ)) D NEWAGAIN^XMJBN1(XMDUZ)"
^XMB(3.9,156,2,427,0)="""RTN"",""XMVVITAE"",112,0)"
^XMB(3.9,156,2,428,0)=" I '$D(DUZ(""SAV"")),$D(XMMENU(0)) L +^XMB(3.7,""AD"",DUZ):0 E  S (XMV(""NOSEND""),XMNOSEND)=1,XMV(""WARNING"",4)=$$EZBLD^DIALOG(38110) ;Multiple Signon"
^XMB(3.9,156,2,429,0)="""RTN"",""XMVVITAE"",113,0)"
^XMB(3.9,156,2,430,0)=" S:$D(^XMB(3.7,XMDUZ,""N"")) XMV(""WARNING"",1)=$$EZBLD^DIALOG(38111) ;Priority Mail"
^XMB(3.9,156,2,431,0)="""RTN"",""XMVVITAE"",114,0)"
^XMB(3.9,156,2,432,0)=" I '$D(DUZ(""SAV"")),'XMV(""NOSEND""),$D(^XMB(3.7,""AD"",XMDUZ)) D"
^XMB(3.9,156,2,433,0)="""RTN"",""XMVVITAE"",115,0)"
^XMB(3.9,156,2,434,0)=" . I XMDUZ='DUZ,$G(XMV(""PRIV""))'[""W"" Q"
^XMB(3.9,156,2,435,0)="""RTN"",""XMVVITAE"",116,0)"
^XMB(3.9,156,2,436,0)=" . N XMZ"
^XMB(3.9,156,2,437,0)="""RTN"",""XMVVITAE"",117,0)"
^XMB(3.9,156,2,438,0)=" . S XMREC=$G(^XMB(3.7,XMDUZ,""T""))"
^XMB(3.9,156,2,439,0)="""RTN"",""XMVVITAE"",118,0)"
^XMB(3.9,156,2,440,0)=" . S XMZ=$P(XMREC,U,1) I XMZ="""" K ^XMB(3.7,""AD"",XMDUZ) Q"
^XMB(3.9,156,2,441,0)="""RTN"",""XMVVITAE"",119,0)"
^XMB(3.9,156,2,442,0)=" . I '$D(^XMB(3.9,XMZ,0)) K ^XMB(3.7,XMDUZ,""T""),^XMB(3.7,""AD"",XMDUZ) Q"
^XMB(3.9,156,2,443,0)="""RTN"",""XMVVITAE"",120,0)"
^XMB(3.9,156,2,444,0)=" . S XMZ=$P(XMREC,U,3)"
^XMB(3.9,156,2,445,0)="""RTN"",""XMVVITAE"",121,0)"
^XMB(3.9,156,2,446,0)=" . I XMZ,'$D(^XMB(3.9,XMZ,0)) K ^XMB(3.7,XMDUZ,""T""),^XMB(3.7,""AD"",XMDUZ) Q"
^XMB(3.9,156,2,447,0)="""RTN"",""XMVVITAE"",122,0)"
^XMB(3.9,156,2,448,0)=" . S XMV(""WARNING"",2)=$$EZBLD^DIALOG(38112) ;Message in Buffer"
^XMB(3.9,156,2,449,0)="""RTN"",""XMVVITAE"",123,0)"
^XMB(3.9,156,2,450,0)=" S XMV(""NEW MSGS"")=+$P(^XMB(3.7,XMDUZ,0),U,6)"
^XMB(3.9,156,2,451,0)="""RTN"",""XMVVITAE"",124,0)"
^XMB(3.9,156,2,452,0)=" I XMDUZ=.5 D"
^XMB(3.9,156,2,453,0)="""RTN"",""XMVVITAE"",125,0)"
^XMB(3.9,156,2,454,0)=" . N I,XMK"
^XMB(3.9,156,2,455,0)="""RTN"",""XMVVITAE"",126,0)"
^XMB(3.9,156,2,456,0)=" . S XMK=.99"
^XMB(3.9,156,2,457,0)="""RTN"",""XMVVITAE"",127,0)"
^XMB(3.9,156,2,458,0)=" . F I=1:1 S XMK=$O(^XMB(3.7,.5,2,XMK)) Q:XMK>999!'XMK"
^XMB(3.9,156,2,459,0)="""RTN"",""XMVVITAE"",128,0)"
^XMB(3.9,156,2,460,0)=" . S:I>900 XMV(""WARNING"",5)=$$EZBLD^DIALOG(38113,I) ;POSTMASTER has |1| baskets."
^XMB(3.9,156,2,461,0)="""RTN"",""XMVVITAE"",129,0)"
^XMB(3.9,156,2,462,0)=" D SETBAN(XMDUZ,.XMV)"
^XMB(3.9,156,2,463,0)="""RTN"",""XMVVITAE"",130,0)"
^XMB(3.9,156,2,464,0)=" Q"
^XMB(3.9,156,2,465,0)="""RTN"",""XMVVITAE"",131,0)"
^XMB(3.9,156,2,466,0)="SETNET(XMDUZ,XMV) ;"
^XMB(3.9,156,2,467,0)="""RTN"",""XMVVITAE"",132,0)"
^XMB(3.9,156,2,468,0)=" ; XMV(""NETNAME"")"
^XMB(3.9,156,2,469,0)="""RTN"",""XMVVITAE"",133,0)"
^XMB(3.9,156,2,470,0)=" S XMV(""NETNAME"")=$$NETNAME^XMXUTIL(XMDUZ)"
^XMB(3.9,156,2,471,0)="""RTN"",""XMVVITAE"",134,0)"
^XMB(3.9,156,2,472,0)=" Q"
^XMB(3.9,156,2,473,0)="""RTN"",""XMVVITAE"",135,0)"
^XMB(3.9,156,2,474,0)="SETBAN(XMDUZ,XMV) ;"
^XMB(3.9,156,2,475,0)="""RTN"",""XMVVITAE"",136,0)"
^XMB(3.9,156,2,476,0)=" ; XMV(""BANNER"")"
^XMB(3.9,156,2,477,0)="""RTN"",""XMVVITAE"",137,0)"
^XMB(3.9,156,2,478,0)=" N XMBANNER"
^XMB(3.9,156,2,479,0)="""RTN"",""XMVVITAE"",138,0)"
^XMB(3.9,156,2,480,0)=" S XMBANNER=$G(^XMB(3.7,XMDUZ,""B""))"
^XMB(3.9,156,2,481,0)="""RTN"",""XMVVITAE"",139,0)"
^XMB(3.9,156,2,482,0)=" I XMBANNER="""" K XMV(""BANNER"")"
^XMB(3.9,156,2,483,0)="""RTN"",""XMVVITAE"",140,0)"
^XMB(3.9,156,2,484,0)=" E  S XMV(""BANNER"")=XMBANNER"
^XMB(3.9,156,2,485,0)="""RTN"",""XMVVITAE"",141,0)"
^XMB(3.9,156,2,486,0)=" Q"
^XMB(3.9,156,2,487,0)="""RTN"",""XMVVITAE"",142,0)"
^XMB(3.9,156,2,488,0)="PREFER(XMDUZ,XMV,XMDISPI) ;"
^XMB(3.9,156,2,489,0)="""RTN"",""XMVVITAE"",143,0)"
^XMB(3.9,156,2,490,0)=" ; XMV(""SHOW INST"")"
^XMB(3.9,156,2,491,0)="""RTN"",""XMVVITAE"",144,0)"
^XMB(3.9,156,2,492,0)=" ; XMV(""SHOW TITL"")"
^XMB(3.9,156,2,493,0)="""RTN"",""XMVVITAE"",145,0)"
^XMB(3.9,156,2,494,0)=" ; XMV(""SHOW DUZ"")"
^XMB(3.9,156,2,495,0)="""RTN"",""XMVVITAE"",146,0)"
^XMB(3.9,156,2,496,0)=" ; XMV(""ASK BSKT"")"
^XMB(3.9,156,2,497,0)="""RTN"",""XMVVITAE"",147,0)"
^XMB(3.9,156,2,498,0)=" ; XMV(""MSG DEF"")"
^XMB(3.9,156,2,499,0)="""RTN"",""XMVVITAE"",148,0)"
^XMB(3.9,156,2,500,0)=" ; XMV(""RDR DEF"")"
^XMB(3.9,156,2,501,0)="""RTN"",""XMVVITAE"",149,0)"
^XMB(3.9,156,2,502,0)=" ; XMV(""RDR ASK"")"
^XMB(3.9,156,2,503,0)="""RTN"",""XMVVITAE"",150,0)"
^XMB(3.9,156,2,504,0)=" ; XMV(""ORDER"")"
^XMB(3.9,156,2,505,0)="""RTN"",""XMVVITAE"",151,0)"
^XMB(3.9,156,2,506,0)=" ; XMV(""PREVU"")"
^XMB(3.9,156,2,507,0)="""RTN"",""XMVVITAE"",152,0)"
^XMB(3.9,156,2,508,0)=" ; XMV(""NEW OPT"")"
^XMB(3.9,156,2,509,0)="""RTN"",""XMVVITAE"",153,0)"
^XMB(3.9,156,2,510,0)=" ; XMV(""NEW ORDER"")"
^XMB(3.9,156,2,511,0)="""RTN"",""XMVVITAE"",154,0)"
^XMB(3.9,156,2,512,0)=" ; XMDISPI"
^XMB(3.9,156,2,513,0)="""RTN"",""XMVVITAE"",155,0)"
^XMB(3.9,156,2,514,0)=" N XMUREC,XMSREC"
^XMB(3.9,156,2,515,0)="""RTN"",""XMVVITAE"",156,0)"
^XMB(3.9,156,2,516,0)=" S XMSREC=$G(^XMB(1,1,0)) ; Site's preferences"
^XMB(3.9,156,2,517,0)="""RTN"",""XMVVITAE"",157,0)"
^XMB(3.9,156,2,518,0)=" ;S XMUREC=^XMB(3.7,DUZ,0) ; User's preferences"
^XMB(3.9,156,2,519,0)="""RTN"",""XMVVITAE"",158,0)"
^XMB(3.9,156,2,520,0)=" S XMUREC=$G(^XMB(3.7,DUZ,0)) ; User's preferences"
^XMB(3.9,156,2,521,0)="""RTN"",""XMVVITAE"",159,0)"
^XMB(3.9,156,2,522,0)=" S XMV(""SHOW INST"")=$S($P(XMSREC,U,5)[""y"":1,1:0)  ; Show Institution"
^XMB(3.9,156,2,523,0)="""RTN"",""XMVVITAE"",160,0)"
^XMB(3.9,156,2,524,0)=" S XMV(""SHOW TITL"")=$S($P(XMUREC,U,10)=1:1,1:0)   ; Show Titles"
^XMB(3.9,156,2,525,0)="""RTN"",""XMVVITAE"",161,0)"
^XMB(3.9,156,2,526,0)=" I XMV(""SHOW TITL"") S XMV(""TITL SRC"")=$S($P(XMSREC,U,11)'="""":$P(XMSREC,U,11),1:""T"") ; Title Source (Signature Block or Title)"
^XMB(3.9,156,2,527,0)="""RTN"",""XMVVITAE"",162,0)"
^XMB(3.9,156,2,528,0)=" Q:$D(ZTQUEUED)"
^XMB(3.9,156,2,529,0)="""RTN"",""XMVVITAE"",163,0)"
^XMB(3.9,156,2,530,0)=" S XMV(""SHOW DUZ"")=+$P(XMSREC,U,8)  ; Show DUZ when addressing messages"
^XMB(3.9,156,2,531,0)="""RTN"",""XMVVITAE"",164,0)"
^XMB(3.9,156,2,532,0)=" S XMV(""PREVU"")=$S($P(XMUREC,U,4)=""Y"":1,1:0)"
^XMB(3.9,156,2,533,0)="""RTN"",""XMVVITAE"",165,0)"
^XMB(3.9,156,2,534,0)=" S XMV(""ASK BSKT"")=$S($P(XMUREC,U,5)'[""n"":1,1:0)"
^XMB(3.9,156,2,535,0)="""RTN"",""XMVVITAE"",166,0)"
^XMB(3.9,156,2,536,0)=" ; User's default message action (Delete, Ignore). If user doesn't have one, take site's.  If site doesn't have one, make it Ignore."
^XMB(3.9,156,2,537,0)="""RTN"",""XMVVITAE"",167,0)"
^XMB(3.9,156,2,538,0)=" S XMV(""MSG DEF"")=$S($P(XMUREC,U,9)'="""":$P(XMUREC,U,9),$P(XMSREC,U,15)'="""":$P(XMSREC,U,15),1:""I"")"
^XMB(3.9,156,2,539,0)="""RTN"",""XMVVITAE"",168,0)"
^XMB(3.9,156,2,540,0)=" S XMV(""ORDER"")=$S($P(XMUREC,U,13)=""N"":-1,1:1)"
^XMB(3.9,156,2,541,0)="""RTN"",""XMVVITAE"",169,0)"
^XMB(3.9,156,2,542,0)=" S XMV(""RDR DEF"")=$S($P(XMUREC,U,16)'="""":$P(XMUREC,U,16),1:""C"")"
^XMB(3.9,156,2,543,0)="""RTN"",""XMVVITAE"",170,0)"
^XMB(3.9,156,2,544,0)=" S XMV(""RDR ASK"")=$S($P(XMUREC,U,17)'="""":$P(XMUREC,U,17),1:""Y"")"
^XMB(3.9,156,2,545,0)="""RTN"",""XMVVITAE"",171,0)"
^XMB(3.9,156,2,546,0)=" S XMV(""NEW OPT"")=$S($P(XMUREC,U,18)'="""":$P(XMUREC,U,18),1:""R"")"
^XMB(3.9,156,2,547,0)="""RTN"",""XMVVITAE"",172,0)"
^XMB(3.9,156,2,548,0)=" S XMV(""NEW ORDER"")=$S($P(XMUREC,U,19)=""N"":-1,1:1)"
^XMB(3.9,156,2,549,0)="""RTN"",""XMVVITAE"",173,0)"
^XMB(3.9,156,2,550,0)=" Q:$G(XMAPI)"
^XMB(3.9,156,2,551,0)="""RTN"",""XMVVITAE"",174,0)"
^XMB(3.9,156,2,552,0)=" I $P(XMSREC,U,6)[""y"",'$D(^XMB(3.7,XMDUZ,1,1,0)) S XMV(""WARNING"",3)=$$EZBLD^DIALOG(38114) ;No Introduction"
^XMB(3.9,156,2,553,0)="""RTN"",""XMVVITAE"",175,0)"
^XMB(3.9,156,2,554,0)=" S XMDISPI=""X""  ; Show Help (Not used?)"
^XMB(3.9,156,2,555,0)="""RTN"",""XMVVITAE"",176,0)"
^XMB(3.9,156,2,556,0)=" I XMV(""SHOW INST"") S XMDISPI=XMDISPI_""I"""
^XMB(3.9,156,2,557,0)="""RTN"",""XMVVITAE"",177,0)"
^XMB(3.9,156,2,558,0)=" I XMV(""SHOW TITL"") S XMDISPI=XMDISPI_""T"""
^XMB(3.9,156,2,559,0)="""RTN"",""XMVVITAE"",178,0)"
^XMB(3.9,156,2,560,0)=" I XMV(""ASK BSKT"") S XMDISPI=XMDISPI_""A"""
^XMB(3.9,156,2,561,0)="""RTN"",""XMVVITAE"",179,0)"
^XMB(3.9,156,2,562,0)=" S XMDISPI=XMDISPI_U_XMV(""MSG DEF"")"
^XMB(3.9,156,2,563,0)="""RTN"",""XMVVITAE"",180,0)"
^XMB(3.9,156,2,564,0)=" Q"
^XMB(3.9,156,2,565,0)="""RTN"",""XMVVITAE"",181,0)"
^XMB(3.9,156,2,566,0)="LASTUSE(XMDUZ,XMV) ;"
^XMB(3.9,156,2,567,0)="""RTN"",""XMVVITAE"",182,0)"
^XMB(3.9,156,2,568,0)=" ; XMV(""LAST USE"")"
^XMB(3.9,156,2,569,0)="""RTN"",""XMVVITAE"",183,0)"
^XMB(3.9,156,2,570,0)=" I XMDUZ=.6!$D(ZTQUEUED)!$G(XMAPI) Q"
^XMB(3.9,156,2,571,0)="""RTN"",""XMVVITAE"",184,0)"
^XMB(3.9,156,2,572,0)=" S XMV(""LAST USE"")=$P($G(^XMB(3.7,XMDUZ,""L""),$$EZBLD^DIALOG(38002)),U,1) ;Never"
^XMB(3.9,156,2,573,0)="""RTN"",""XMVVITAE"",185,0)"
^XMB(3.9,156,2,574,0)=" Q:$D(DUZ(""SAV""))"
^XMB(3.9,156,2,575,0)="""RTN"",""XMVVITAE"",186,0)"
^XMB(3.9,156,2,576,0)=" S ^XMB(3.7,XMDUZ,""L"")=$$MMDT^XMXUTIL1($$NOW^XLFDT)_$S(XMDUZ'=DUZ:$$EZBLD^DIALOG(38008,XMV(""DUZ NAME"")),1:"""")_U_DT_U_DUZ ; (Surrogate: |1|)"
^XMB(3.9,156,2,577,0)="""RTN"",""XMVVITAE"",187,0)"
^XMB(3.9,156,2,578,0)=" Q"
^XMB(3.9,156,2,579,0)="""RTN"",""XMXPARM1"")"
^XMB(3.9,156,2,580,0)="0^1^B10873939^B10264070"
^XMB(3.9,156,2,581,0)="""RTN"",""XMXPARM1"",1,0)"
^XMB(3.9,156,2,582,0)="XMXPARM1 ;ISC-SF/GMB-Parameter check (cont.) ;04/19/2002  12:14"
^XMB(3.9,156,2,583,0)="""RTN"",""XMXPARM1"",2,0)"
^XMB(3.9,156,2,584,0)=" ;;8.0;MailMan;**36**;Jun 28, 2002"
^XMB(3.9,156,2,585,0)="""RTN"",""XMXPARM1"",3,0)"
^XMB(3.9,156,2,586,0)="CHKUSER(XMDUZ,XMNOMBOX) ; Ascertain/verify user's DUZ, and make sure authorized to use MailMan"
^XMB(3.9,156,2,587,0)="""RTN"",""XMXPARM1"",4,0)"
^XMB(3.9,156,2,588,0)=" ; XMNOMBOX Is it possible that this user does not have a mailbox?"
^XMB(3.9,156,2,589,0)="""RTN"",""XMXPARM1"",5,0)"
^XMB(3.9,156,2,590,0)=" ;          0=no (default); 1=yes"
^XMB(3.9,156,2,591,0)="""RTN"",""XMXPARM1"",6,0)"
^XMB(3.9,156,2,592,0)=" N XMSCREEN,XMUSER,XMADDR"
^XMB(3.9,156,2,593,0)="""RTN"",""XMXPARM1"",7,0)"
^XMB(3.9,156,2,594,0)=" S XMADDR=XMDUZ"
^XMB(3.9,156,2,595,0)="""RTN"",""XMXPARM1"",8,0)"
^XMB(3.9,156,2,596,0)=" S XMADDR=$$UP^XLFSTR(XMADDR)"
^XMB(3.9,156,2,597,0)="""RTN"",""XMXPARM1"",9,0)"
^XMB(3.9,156,2,598,0)=" ;S:'$G(XMNOMBOX) XMSCREEN=""I $L($P(^(0),U,3)),$D(^XMB(3.7,+Y,2))""  ; User must have an access code & mailbox"
^XMB(3.9,156,2,599,0)="""RTN"",""XMXPARM1"",10,0)"
^XMB(3.9,156,2,600,0)=" I '$G(XMNOMBOX),'$$USERTYPE^XUSAP(XMDUZ,""APPLICATION PROXY"") S XMSCREEN=""I $L($P(^(0),U,3)),$D(^XMB(3.7,+Y,2))""  ; User must have an access code & mailbox"
^XMB(3.9,156,2,601,0)="""RTN"",""XMXPARM1"",11,0)"
^XMB(3.9,156,2,602,0)=" ; ""B^BB^C^D"" = name^alias^initial^nickname"
^XMB(3.9,156,2,603,0)="""RTN"",""XMXPARM1"",12,0)"
^XMB(3.9,156,2,604,0)=" S XMDUZ=$$FIND1^DIC(200,"""",""O"",$S(+XMADDR=XMADDR:""`""_XMADDR,1:XMADDR),""B^BB^C^D"",.XMSCREEN)"
^XMB(3.9,156,2,605,0)="""RTN"",""XMXPARM1"",13,0)"
^XMB(3.9,156,2,606,0)=" Q:XMDUZ"
^XMB(3.9,156,2,607,0)="""RTN"",""XMXPARM1"",14,0)"
^XMB(3.9,156,2,608,0)=" S XMDUZ=XMADDR"
^XMB(3.9,156,2,609,0)="""RTN"",""XMXPARM1"",15,0)"
^XMB(3.9,156,2,610,0)=" D ERRSET^XMXUTIL($S($D(DIERR):39432,1:39433),XMDUZ) ; User '|1|' ambiguous / not found."
^XMB(3.9,156,2,611,0)="""RTN"",""XMXPARM1"",16,0)"
^XMB(3.9,156,2,612,0)=" Q"
^XMB(3.9,156,2,613,0)="""RTN"",""XMXPARM1"",17,0)"
^XMB(3.9,156,2,614,0)="XMATTACH(XMATTACH) ; Validate attachments"
^XMB(3.9,156,2,615,0)="""RTN"",""XMXPARM1"",18,0)"
^XMB(3.9,156,2,616,0)=" Q"
^XMB(3.9,156,2,617,0)="""RTN"",""XMXPARM1"",19,0)"
^XMB(3.9,156,2,618,0)="XMBN(XMBN) ; Check bulletin name"
^XMB(3.9,156,2,619,0)="""RTN"",""XMXPARM1"",20,0)"
^XMB(3.9,156,2,620,0)=" I $G(XMBN)="""" D ERRSET^XMXUTIL(39430) Q  ; Bulletin name must be supplied."
^XMB(3.9,156,2,621,0)="""RTN"",""XMXPARM1"",21,0)"
^XMB(3.9,156,2,622,0)=" Q:$D(^XMB(3.6,""B"",XMBN))"
^XMB(3.9,156,2,623,0)="""RTN"",""XMXPARM1"",22,0)"
^XMB(3.9,156,2,624,0)=" D ERRSET^XMXUTIL(39431,XMBN) ; Bulletin '|1|' not found."
^XMB(3.9,156,2,625,0)="""RTN"",""XMXPARM1"",23,0)"
^XMB(3.9,156,2,626,0)=" Q"
^XMB(3.9,156,2,627,0)="""RTN"",""XMXPARM1"",24,0)"
^XMB(3.9,156,2,628,0)="XMBODY(XMBODY,XMOPTNL) ; Check the body of the message (just make sure there is a body)"
^XMB(3.9,156,2,629,0)="""RTN"",""XMXPARM1"",25,0)"
^XMB(3.9,156,2,630,0)=" I $G(XMBODY)="""" D  Q"
^XMB(3.9,156,2,631,0)="""RTN"",""XMXPARM1"",26,0)"
^XMB(3.9,156,2,632,0)=" . I '$G(XMOPTNL) D ERRSET^XMXUTIL(39405) ;Message must have a body."
^XMB(3.9,156,2,633,0)="""RTN"",""XMXPARM1"",27,0)"
^XMB(3.9,156,2,634,0)=" I $E(XMBODY,1,6)=""XMBODY"" D  Q"
^XMB(3.9,156,2,635,0)="""RTN"",""XMXPARM1"",28,0)"
^XMB(3.9,156,2,636,0)=" . D ERRSET^XMXUTIL(39406) ;Message body may not be called XMBODY."
^XMB(3.9,156,2,637,0)="""RTN"",""XMXPARM1"",29,0)"
^XMB(3.9,156,2,638,0)=" I $D(@XMBODY)'>9 D  Q"
^XMB(3.9,156,2,639,0)="""RTN"",""XMXPARM1"",30,0)"
^XMB(3.9,156,2,640,0)=" . D ERRSET^XMXUTIL(39407,XMBODY) ;Message body '|1|' has no data."
^XMB(3.9,156,2,641,0)="""RTN"",""XMXPARM1"",31,0)"
^XMB(3.9,156,2,642,0)=" Q"
^XMB(3.9,156,2,643,0)="""RTN"",""XMXPARM1"",32,0)"
^XMB(3.9,156,2,644,0)="XMCODE(XMPARM,XMCODE,XMSET) ;"
^XMB(3.9,156,2,645,0)="""RTN"",""XMXPARM1"",33,0)"
^XMB(3.9,156,2,646,0)=" Q:XMSET[(U_XMCODE_U)"
^XMB(3.9,156,2,647,0)="""RTN"",""XMXPARM1"",34,0)"
^XMB(3.9,156,2,648,0)=" N XMP"
^XMB(3.9,156,2,649,0)="""RTN"",""XMXPARM1"",35,0)"
^XMB(3.9,156,2,650,0)=" S XMP(""PARAM"",""ID"")=XMPARM"
^XMB(3.9,156,2,651,0)="""RTN"",""XMXPARM1"",36,0)"
^XMB(3.9,156,2,652,0)=" S XMP(""PARAM"",""VALUE"")=XMCODE"
^XMB(3.9,156,2,653,0)="""RTN"",""XMXPARM1"",37,0)"
^XMB(3.9,156,2,654,0)=" ;S XMP(""PARAM"",""FILE"")=3.901,XMP(""PARAM"",""FIELD"")=1.8"
^XMB(3.9,156,2,655,0)="""RTN"",""XMXPARM1"",38,0)"
^XMB(3.9,156,2,656,0)=" S XMP(1)=XMSET"
^XMB(3.9,156,2,657,0)="""RTN"",""XMXPARM1"",39,0)"
^XMB(3.9,156,2,658,0)=" D ERRSET^XMXUTIL(39438,.XMP) ; Must be one of |1|."
^XMB(3.9,156,2,659,0)="""RTN"",""XMXPARM1"",40,0)"
^XMB(3.9,156,2,660,0)=" Q"
^XMB(3.9,156,2,661,0)="""RTN"",""XMXPARM1"",41,0)"
^XMB(3.9,156,2,662,0)="XMHINT(XMHINT) ; Validate a scramble hint"
^XMB(3.9,156,2,663,0)="""RTN"",""XMXPARM1"",42,0)"
^XMB(3.9,156,2,664,0)=" I $G(XMHINT)="""" Q"
^XMB(3.9,156,2,665,0)="""RTN"",""XMXPARM1"",43,0)"
^XMB(3.9,156,2,666,0)=" ;I $G(XMHINT)="""" D ERRSET^XMXUTIL(39436) Q  ; Scramble hint must be supplied"
^XMB(3.9,156,2,667,0)="""RTN"",""XMXPARM1"",44,0)"
^XMB(3.9,156,2,668,0)=" ;D CHK^DIE(3.9,1.8,""H"",XMHINT)"
^XMB(3.9,156,2,669,0)="""RTN"",""XMXPARM1"",45,0)"
^XMB(3.9,156,2,670,0)=" I $L(XMHINT)>0,$L(XMHINT)<41,XMHINT'[U Q"
^XMB(3.9,156,2,671,0)="""RTN"",""XMXPARM1"",46,0)"
^XMB(3.9,156,2,672,0)=" N XMP"
^XMB(3.9,156,2,673,0)="""RTN"",""XMXPARM1"",47,0)"
^XMB(3.9,156,2,674,0)=" S XMP(""PARAM"",""ID"")=""XMINSTR(""""SCR HINT"""")"""
^XMB(3.9,156,2,675,0)="""RTN"",""XMXPARM1"",48,0)"
^XMB(3.9,156,2,676,0)=" S XMP(""PARAM"",""VALUE"")=XMHINT"
^XMB(3.9,156,2,677,0)="""RTN"",""XMXPARM1"",49,0)"
^XMB(3.9,156,2,678,0)=" ;S XMP(""PARAM"",""FILE"")=3.901,XMP(""PARAM"",""FIELD"")=1.8"
^XMB(3.9,156,2,679,0)="""RTN"",""XMXPARM1"",50,0)"
^XMB(3.9,156,2,680,0)=" S XMP(1)=1,XMP(2)=40"
^XMB(3.9,156,2,681,0)="""RTN"",""XMXPARM1"",51,0)"
^XMB(3.9,156,2,682,0)=" D ERRSET^XMXUTIL(39437,.XMP) ; Must be |1|-|2| characters, no ^."
^XMB(3.9,156,2,683,0)="""RTN"",""XMXPARM1"",52,0)"
^XMB(3.9,156,2,684,0)=" Q"
^XMB(3.9,156,2,685,0)="""RTN"",""XMXPARM1"",53,0)"
^XMB(3.9,156,2,686,0)="XMKEY(XMKEY) ; Validate a scramble key"
^XMB(3.9,156,2,687,0)="""RTN"",""XMXPARM1"",54,0)"
^XMB(3.9,156,2,688,0)=" I $G(XMKEY)="""" D ERRSET^XMXUTIL(39435) Q  ; Scramble key must be supplied."
^XMB(3.9,156,2,689,0)="""RTN"",""XMXPARM1"",55,0)"
^XMB(3.9,156,2,690,0)=" ;D CHK^DIE(3.9,1.85,""H"",XMKEY)"
^XMB(3.9,156,2,691,0)="""RTN"",""XMXPARM1"",56,0)"
^XMB(3.9,156,2,692,0)=" I $L(XMKEY)>2,$L(XMKEY)<21 Q"
^XMB(3.9,156,2,693,0)="""RTN"",""XMXPARM1"",57,0)"
^XMB(3.9,156,2,694,0)=" N XMP"
^XMB(3.9,156,2,695,0)="""RTN"",""XMXPARM1"",58,0)"
^XMB(3.9,156,2,696,0)=" S XMP(""PARAM"",""ID"")=""XMINSTR(""""SCR KEY"""")"""
^XMB(3.9,156,2,697,0)="""RTN"",""XMXPARM1"",59,0)"
^XMB(3.9,156,2,698,0)=" S XMP(""PARAM"",""VALUE"")=XMKEY"
^XMB(3.9,156,2,699,0)="""RTN"",""XMXPARM1"",60,0)"
^XMB(3.9,156,2,700,0)=" ;S XMP(""PARAM"",""FILE"")=3.9,XMP(""PARAM"",""FIELD"")=1.85"
^XMB(3.9,156,2,701,0)="""RTN"",""XMXPARM1"",61,0)"
^XMB(3.9,156,2,702,0)=" S XMP(1)=3,XMP(2)=20"
^XMB(3.9,156,2,703,0)="""RTN"",""XMXPARM1"",62,0)"
^XMB(3.9,156,2,704,0)=" D ERRSET^XMXUTIL(39434,.XMP) ; Must be |1|-|2| characters."
^XMB(3.9,156,2,705,0)="""RTN"",""XMXPARM1"",63,0)"
^XMB(3.9,156,2,706,0)=" Q"
^XMB(3.9,156,2,707,0)="""RTN"",""XMXPARM1"",64,0)"
^XMB(3.9,156,2,708,0)="XMKZ(XMK,XMKZ) ;"
^XMB(3.9,156,2,709,0)="""RTN"",""XMXPARM1"",65,0)"
^XMB(3.9,156,2,710,0)=" I $G(XMKZ),$D(^XMB(3.7,XMDUZ,2,XMK,1,""C"",XMKZ)) Q"
^XMB(3.9,156,2,711,0)="""RTN"",""XMXPARM1"",66,0)"
^XMB(3.9,156,2,712,0)=" N XMP S XMP(1)=XMKZ,XMP(2)=XMK"
^XMB(3.9,156,2,713,0)="""RTN"",""XMXPARM1"",67,0)"
^XMB(3.9,156,2,714,0)=" D ERRSET^XMXUTIL(34351,.XMP) ; message not found in basket"
^XMB(3.9,156,2,715,0)="""RTN"",""XMXPARM1"",68,0)"
^XMB(3.9,156,2,716,0)=" Q"
^XMB(3.9,156,2,717,0)="""RTN"",""XMXPARM1"",69,0)"
^XMB(3.9,156,2,718,0)="XMKZA(XMKZA) ; Check the message numbers (just make sure there is at least one)"
^XMB(3.9,156,2,719,0)="""RTN"",""XMXPARM1"",70,0)"
^XMB(3.9,156,2,720,0)=" Q:$D(XMKZA)"
^XMB(3.9,156,2,721,0)="""RTN"",""XMXPARM1"",71,0)"
^XMB(3.9,156,2,722,0)=" D ERRSET^XMXUTIL(39418) ;No message numbers."
^XMB(3.9,156,2,723,0)="""RTN"",""XMXPARM1"",72,0)"
^XMB(3.9,156,2,724,0)=" Q"
^XMB(3.9,156,2,725,0)="""RTN"",""XMXPARM1"",73,0)"
^XMB(3.9,156,2,726,0)="XMROOT(XMPARM,XMROOT) ; Validate root"
^XMB(3.9,156,2,727,0)="""RTN"",""XMXPARM1"",74,0)"
^XMB(3.9,156,2,728,0)=" Q"
^XMB(3.9,156,2,729,0)="""RTN"",""XMXPARM1"",75,0)"
^XMB(3.9,156,2,730,0)="XMSTRIP(XMSTRIP) ; Validate a message strip string"
^XMB(3.9,156,2,731,0)="""RTN"",""XMXPARM1"",76,0)"
^XMB(3.9,156,2,732,0)=" I $L(XMSTRIP)>0,$L(XMSTRIP)<21 Q"
^XMB(3.9,156,2,733,0)="""RTN"",""XMXPARM1"",77,0)"
^XMB(3.9,156,2,734,0)=" N XMP"
^XMB(3.9,156,2,735,0)="""RTN"",""XMXPARM1"",78,0)"
^XMB(3.9,156,2,736,0)=" S XMP(""PARAM"",""ID"")=""XMINSTR(""""STRIP"""")"""
^XMB(3.9,156,2,737,0)="""RTN"",""XMXPARM1"",79,0)"
^XMB(3.9,156,2,738,0)=" S XMP(""PARAM"",""VALUE"")=XMSTRIP"
^XMB(3.9,156,2,739,0)="""RTN"",""XMXPARM1"",80,0)"
^XMB(3.9,156,2,740,0)=" S XMP(1)=1,XMP(2)=20"
^XMB(3.9,156,2,741,0)="""RTN"",""XMXPARM1"",81,0)"
^XMB(3.9,156,2,742,0)=" D ERRSET^XMXUTIL(39434,.XMP) ; Must be |1|-|2| characters."
^XMB(3.9,156,2,743,0)="""RTN"",""XMXPARM1"",82,0)"
^XMB(3.9,156,2,744,0)=" Q"
^XMB(3.9,156,2,745,0)="""RTN"",""XMXPARM1"",83,0)"
^XMB(3.9,156,2,746,0)="XMTO(XMTO,XMOPTNL) ; Check the addressees (just make sure there is at least one)"
^XMB(3.9,156,2,747,0)="""RTN"",""XMXPARM1"",84,0)"
^XMB(3.9,156,2,748,0)=" Q:$D(XMTO)"
^XMB(3.9,156,2,749,0)="""RTN"",""XMXPARM1"",85,0)"
^XMB(3.9,156,2,750,0)=" I $G(XMOPTNL),$$GOTADDR^XMXADDR Q"
^XMB(3.9,156,2,751,0)="""RTN"",""XMXPARM1"",86,0)"
^XMB(3.9,156,2,752,0)=" D ERRSET^XMXUTIL(39408) ;No recipients"
^XMB(3.9,156,2,753,0)="""RTN"",""XMXPARM1"",87,0)"
^XMB(3.9,156,2,754,0)=" Q"
^XMB(3.9,156,2,755,0)="""VER"")"
^XMB(3.9,156,2,756,0)="8.0^22.0"
^XMB(3.9,156,2,757,0)="""BLD"",5931,6)"
^XMB(3.9,156,2,758,0)="^36"
^XMB(3.9,156,2,759,0)="$END KID XM*8.0*36"
^XMB(3.9,156,6,0)="^3.911A^2^2"
^XMB(3.9,156,6,1,0)="POSTMASTER"
^XMB(3.9,156,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,156,6,"B","POSTMASTER",1)=""
^XMB(3.9,156,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,157,0)="XT-7P3_SEQ-80_PAT-100.KID^.5^3061008.015743^^^^K"
^XMB(3.9,157,.6)="3061008"
^XMB(3.9,157,1,0)="^3.91A^2^2"
^XMB(3.9,157,1,1,0)=".5^0^3061008.015743^^^^^^^3061008.015743"
^XMB(3.9,157,1,2,0)="1^0^3061008.022854^^^^^^^3061008.022854"
^XMB(3.9,157,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,157,1,"C",.5,1)=""
^XMB(3.9,157,1,"C",1,2)=""
^XMB(3.9,157,2,0)="^^1629^1629^3061008"
^XMB(3.9,157,2,1,0)="$TXT Released XT*7.3*100 SEQ #80"
^XMB(3.9,157,2,2,0)="Extracted from mail message"
^XMB(3.9,157,2,3,0)="$END TXT"
^XMB(3.9,157,2,4,0)="$KID XT*7.3*100"
^XMB(3.9,157,2,5,0)="**INSTALL NAME**"
^XMB(3.9,157,2,6,0)="XT*7.3*100"
^XMB(3.9,157,2,7,0)="""BLD"",919,0)"
^XMB(3.9,157,2,8,0)="XT*7.3*100^TOOLKIT^0^3060329^y"
^XMB(3.9,157,2,9,0)="""BLD"",919,1,0)"
^XMB(3.9,157,2,10,0)="^^2^2^3060104^"
^XMB(3.9,157,2,11,0)="""BLD"",919,1,1,0)"
^XMB(3.9,157,2,12,0)="Kernel Toolkit patch XT*7.3*100 VistA Patch Monitor. Please "
^XMB(3.9,157,2,13,0)="""BLD"",919,1,2,0)"
^XMB(3.9,157,2,14,0)="refer to the Description in Forum Patch Module for details."
^XMB(3.9,157,2,15,0)="""BLD"",919,4,0)"
^XMB(3.9,157,2,16,0)="^9.64PA^^"
^XMB(3.9,157,2,17,0)="""BLD"",919,6.3)"
^XMB(3.9,157,2,18,0)="4"
^XMB(3.9,157,2,19,0)="""BLD"",919,""ABPKG"")"
^XMB(3.9,157,2,20,0)="n"
^XMB(3.9,157,2,21,0)="""BLD"",919,""KRN"",0)"
^XMB(3.9,157,2,22,0)="^9.67PA^8989.52^19"
^XMB(3.9,157,2,23,0)="""BLD"",919,""KRN"",.4,0)"
^XMB(3.9,157,2,24,0)=".4"
^XMB(3.9,157,2,25,0)="""BLD"",919,""KRN"",.401,0)"
^XMB(3.9,157,2,26,0)=".401"
^XMB(3.9,157,2,27,0)="""BLD"",919,""KRN"",.402,0)"
^XMB(3.9,157,2,28,0)=".402"
^XMB(3.9,157,2,29,0)="""BLD"",919,""KRN"",.403,0)"
^XMB(3.9,157,2,30,0)=".403"
^XMB(3.9,157,2,31,0)="""BLD"",919,""KRN"",.5,0)"
^XMB(3.9,157,2,32,0)=".5"
^XMB(3.9,157,2,33,0)="""BLD"",919,""KRN"",.84,0)"
^XMB(3.9,157,2,34,0)=".84"
^XMB(3.9,157,2,35,0)="""BLD"",919,""KRN"",3.6,0)"
^XMB(3.9,157,2,36,0)="3.6"
^XMB(3.9,157,2,37,0)="""BLD"",919,""KRN"",3.8,0)"
^XMB(3.9,157,2,38,0)="3.8"
^XMB(3.9,157,2,39,0)="""BLD"",919,""KRN"",9.2,0)"
^XMB(3.9,157,2,40,0)="9.2"
^XMB(3.9,157,2,41,0)="""BLD"",919,""KRN"",9.8,0)"
^XMB(3.9,157,2,42,0)="9.8"
^XMB(3.9,157,2,43,0)="""BLD"",919,""KRN"",9.8,""NM"",0)"
^XMB(3.9,157,2,44,0)="^9.68A^6^6"
^XMB(3.9,157,2,45,0)="""BLD"",919,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,157,2,46,0)="XTPMSTA2^^0^B20526817"
^XMB(3.9,157,2,47,0)="""BLD"",919,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,157,2,48,0)="XTPMKPTC^^0^B75764182"
^XMB(3.9,157,2,49,0)="""BLD"",919,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,157,2,50,0)="XTPMNEX7^^0^B12616723"
^XMB(3.9,157,2,51,0)="""BLD"",919,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,157,2,52,0)="XTPMSTAT^^0^B31144334"
^XMB(3.9,157,2,53,0)="""BLD"",919,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,157,2,54,0)="XTSUMBLD^^0^B30858373"
^XMB(3.9,157,2,55,0)="""BLD"",919,""KRN"",9.8,""NM"",6,0)"
^XMB(3.9,157,2,56,0)="XTRUTL^^0^B26604531"
^XMB(3.9,157,2,57,0)="""BLD"",919,""KRN"",9.8,""NM"",""B"",""XTPMKPTC"",2)"
^XMB(3.9,157,2,58,0)=""
^XMB(3.9,157,2,59,0)="""BLD"",919,""KRN"",9.8,""NM"",""B"",""XTPMNEX7"",3)"
^XMB(3.9,157,2,60,0)=""
^XMB(3.9,157,2,61,0)="""BLD"",919,""KRN"",9.8,""NM"",""B"",""XTPMSTA2"",1)"
^XMB(3.9,157,2,62,0)=""
^XMB(3.9,157,2,63,0)="""BLD"",919,""KRN"",9.8,""NM"",""B"",""XTPMSTAT"",4)"
^XMB(3.9,157,2,64,0)=""
^XMB(3.9,157,2,65,0)="""BLD"",919,""KRN"",9.8,""NM"",""B"",""XTRUTL"",6)"
^XMB(3.9,157,2,66,0)=""
^XMB(3.9,157,2,67,0)="""BLD"",919,""KRN"",9.8,""NM"",""B"",""XTSUMBLD"",5)"
^XMB(3.9,157,2,68,0)=""
^XMB(3.9,157,2,69,0)="""BLD"",919,""KRN"",19,0)"
^XMB(3.9,157,2,70,0)="19"
^XMB(3.9,157,2,71,0)="""BLD"",919,""KRN"",19,""NM"",0)"
^XMB(3.9,157,2,72,0)="^9.68A^1^1"
^XMB(3.9,157,2,73,0)="""BLD"",919,""KRN"",19,""NM"",1,0)"
^XMB(3.9,157,2,74,0)="XTSUMBLD-CHECK^^0"
^XMB(3.9,157,2,75,0)="""BLD"",919,""KRN"",19,""NM"",""B"",""XTSUMBLD-CHECK"",1)"
^XMB(3.9,157,2,76,0)=""
^XMB(3.9,157,2,77,0)="""BLD"",919,""KRN"",19.1,0)"
^XMB(3.9,157,2,78,0)="19.1"
^XMB(3.9,157,2,79,0)="""BLD"",919,""KRN"",101,0)"
^XMB(3.9,157,2,80,0)="101"
^XMB(3.9,157,2,81,0)="""BLD"",919,""KRN"",409.61,0)"
^XMB(3.9,157,2,82,0)="409.61"
^XMB(3.9,157,2,83,0)="""BLD"",919,""KRN"",771,0)"
^XMB(3.9,157,2,84,0)="771"
^XMB(3.9,157,2,85,0)="""BLD"",919,""KRN"",870,0)"
^XMB(3.9,157,2,86,0)="870"
^XMB(3.9,157,2,87,0)="""BLD"",919,""KRN"",8989.51,0)"
^XMB(3.9,157,2,88,0)="8989.51"
^XMB(3.9,157,2,89,0)="""BLD"",919,""KRN"",8989.52,0)"
^XMB(3.9,157,2,90,0)="8989.52"
^XMB(3.9,157,2,91,0)="""BLD"",919,""KRN"",8994,0)"
^XMB(3.9,157,2,92,0)="8994"
^XMB(3.9,157,2,93,0)="""BLD"",919,""KRN"",""B"",.4,.4)"
^XMB(3.9,157,2,94,0)=""
^XMB(3.9,157,2,95,0)="""BLD"",919,""KRN"",""B"",.401,.401)"
^XMB(3.9,157,2,96,0)=""
^XMB(3.9,157,2,97,0)="""BLD"",919,""KRN"",""B"",.402,.402)"
^XMB(3.9,157,2,98,0)=""
^XMB(3.9,157,2,99,0)="""BLD"",919,""KRN"",""B"",.403,.403)"
^XMB(3.9,157,2,100,0)=""
^XMB(3.9,157,2,101,0)="""BLD"",919,""KRN"",""B"",.5,.5)"
^XMB(3.9,157,2,102,0)=""
^XMB(3.9,157,2,103,0)="""BLD"",919,""KRN"",""B"",.84,.84)"
^XMB(3.9,157,2,104,0)=""
^XMB(3.9,157,2,105,0)="""BLD"",919,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,157,2,106,0)=""
^XMB(3.9,157,2,107,0)="""BLD"",919,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,157,2,108,0)=""
^XMB(3.9,157,2,109,0)="""BLD"",919,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,157,2,110,0)=""
^XMB(3.9,157,2,111,0)="""BLD"",919,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,157,2,112,0)=""
^XMB(3.9,157,2,113,0)="""BLD"",919,""KRN"",""B"",19,19)"
^XMB(3.9,157,2,114,0)=""
^XMB(3.9,157,2,115,0)="""BLD"",919,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,157,2,116,0)=""
^XMB(3.9,157,2,117,0)="""BLD"",919,""KRN"",""B"",101,101)"
^XMB(3.9,157,2,118,0)=""
^XMB(3.9,157,2,119,0)="""BLD"",919,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,157,2,120,0)=""
^XMB(3.9,157,2,121,0)="""BLD"",919,""KRN"",""B"",771,771)"
^XMB(3.9,157,2,122,0)=""
^XMB(3.9,157,2,123,0)="""BLD"",919,""KRN"",""B"",870,870)"
^XMB(3.9,157,2,124,0)=""
^XMB(3.9,157,2,125,0)="""BLD"",919,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,157,2,126,0)=""
^XMB(3.9,157,2,127,0)="""BLD"",919,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,157,2,128,0)=""
^XMB(3.9,157,2,129,0)="""BLD"",919,""KRN"",""B"",8994,8994)"
^XMB(3.9,157,2,130,0)=""
^XMB(3.9,157,2,131,0)="""BLD"",919,""QUES"",0)"
^XMB(3.9,157,2,132,0)="^9.62^^"
^XMB(3.9,157,2,133,0)="""KRN"",19,522,-1)"
^XMB(3.9,157,2,134,0)="0^1"
^XMB(3.9,157,2,135,0)="""KRN"",19,522,0)"
^XMB(3.9,157,2,136,0)="XTSUMBLD-CHECK^Calculate and Show Checksum Values^^R^^^^^^^^KERNEL"
^XMB(3.9,157,2,137,0)="""KRN"",19,522,1,0)"
^XMB(3.9,157,2,138,0)="^^3^3^3060321^"
^XMB(3.9,157,2,139,0)="""KRN"",19,522,1,1,0)"
^XMB(3.9,157,2,140,0)="This option calls CHCKSUM^XTSUMBLD to calculate and show the checksum"
^XMB(3.9,157,2,141,0)="""KRN"",19,522,1,2,0)"
^XMB(3.9,157,2,142,0)="value for one or more routines in the current account.  This value"
^XMB(3.9,157,2,143,0)="""KRN"",19,522,1,3,0)"
^XMB(3.9,157,2,144,0)="will be referenced in Patch Module description for routine patches."
^XMB(3.9,157,2,145,0)="""KRN"",19,522,25)"
^XMB(3.9,157,2,146,0)="CHCKSUM^XTSUMBLD"
^XMB(3.9,157,2,147,0)="""KRN"",19,522,""U"")"
^XMB(3.9,157,2,148,0)="CALCULATE AND SHOW CHECKSUM VA"
^XMB(3.9,157,2,149,0)="""MBREQ"")"
^XMB(3.9,157,2,150,0)="0"
^XMB(3.9,157,2,151,0)="""ORD"",18,19)"
^XMB(3.9,157,2,152,0)="19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA"
^XMB(3.9,157,2,153,0)="""ORD"",18,19,0)"
^XMB(3.9,157,2,154,0)="OPTION"
^XMB(3.9,157,2,155,0)="""PKG"",6,-1)"
^XMB(3.9,157,2,156,0)="1^1"
^XMB(3.9,157,2,157,0)="""PKG"",6,0)"
^XMB(3.9,157,2,158,0)="TOOLKIT^XT^PROGRAMMERS OPTIONS, MULTI. TERM LOOKUP^"
^XMB(3.9,157,2,159,0)="""PKG"",6,20,0)"
^XMB(3.9,157,2,160,0)="^9.402P^^0"
^XMB(3.9,157,2,161,0)="""PKG"",6,22,0)"
^XMB(3.9,157,2,162,0)="^9.49I^1^1"
^XMB(3.9,157,2,163,0)="""PKG"",6,22,1,0)"
^XMB(3.9,157,2,164,0)="7.3^3040428^2970513^2"
^XMB(3.9,157,2,165,0)="""PKG"",6,22,1,""PAH"",1,0)"
^XMB(3.9,157,2,166,0)="100^3060329"
^XMB(3.9,157,2,167,0)="""PKG"",6,22,1,""PAH"",1,1,0)"
^XMB(3.9,157,2,168,0)="^^2^2^3060329"
^XMB(3.9,157,2,169,0)="""PKG"",6,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,157,2,170,0)="Kernel Toolkit patch XT*7.3*100 VistA Patch Monitor. Please "
^XMB(3.9,157,2,171,0)="""PKG"",6,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,157,2,172,0)="refer to the Description in Forum Patch Module for details."
^XMB(3.9,157,2,173,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,157,2,174,0)="Y"
^XMB(3.9,157,2,175,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,157,2,176,0)="^D REP^XPDH"
^XMB(3.9,157,2,177,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,157,2,178,0)="Shall I write over your |FLAG| File"
^XMB(3.9,157,2,179,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,157,2,180,0)="YES"
^XMB(3.9,157,2,181,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,157,2,182,0)="D XPF1^XPDIQ"
^XMB(3.9,157,2,183,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,157,2,184,0)="Y"
^XMB(3.9,157,2,185,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,157,2,186,0)="^D DTA^XPDH"
^XMB(3.9,157,2,187,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,157,2,188,0)="Want my data |FLAG| yours"
^XMB(3.9,157,2,189,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,157,2,190,0)="YES"
^XMB(3.9,157,2,191,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,157,2,192,0)="D XPF2^XPDIQ"
^XMB(3.9,157,2,193,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,157,2,194,0)="YO"
^XMB(3.9,157,2,195,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,157,2,196,0)="^D INHIBIT^XPDH"
^XMB(3.9,157,2,197,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,157,2,198,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,157,2,199,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,157,2,200,0)="YES"
^XMB(3.9,157,2,201,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,157,2,202,0)="D XPI1^XPDIQ"
^XMB(3.9,157,2,203,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,157,2,204,0)="PO^VA(200,:EM"
^XMB(3.9,157,2,205,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,157,2,206,0)="^D MG^XPDH"
^XMB(3.9,157,2,207,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,157,2,208,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,157,2,209,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,157,2,210,0)=""
^XMB(3.9,157,2,211,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,157,2,212,0)="D XPM1^XPDIQ"
^XMB(3.9,157,2,213,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,157,2,214,0)="Y"
^XMB(3.9,157,2,215,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,157,2,216,0)="^D MENU^XPDH"
^XMB(3.9,157,2,217,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,157,2,218,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,157,2,219,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,157,2,220,0)="YES"
^XMB(3.9,157,2,221,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,157,2,222,0)="D XPO1^XPDIQ"
^XMB(3.9,157,2,223,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,157,2,224,0)="Y"
^XMB(3.9,157,2,225,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,157,2,226,0)="^D OPT^XPDH"
^XMB(3.9,157,2,227,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,157,2,228,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,157,2,229,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,157,2,230,0)="YES"
^XMB(3.9,157,2,231,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,157,2,232,0)="D XPZ1^XPDIQ"
^XMB(3.9,157,2,233,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,157,2,234,0)="Y"
^XMB(3.9,157,2,235,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,157,2,236,0)="^D RTN^XPDH"
^XMB(3.9,157,2,237,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,157,2,238,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,157,2,239,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,157,2,240,0)="NO"
^XMB(3.9,157,2,241,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,157,2,242,0)="D XPZ2^XPDIQ"
^XMB(3.9,157,2,243,0)="""RTN"")"
^XMB(3.9,157,2,244,0)="6"
^XMB(3.9,157,2,245,0)="""RTN"",""XTPMKPTC"")"
^XMB(3.9,157,2,246,0)="0^2^B75764182^B75338501"
^XMB(3.9,157,2,247,0)="""RTN"",""XTPMKPTC"",1,0)"
^XMB(3.9,157,2,248,0)="XTPMKPTC ;OAK/BP - PATCH MONITOR FUNCTIONS ; 2/7/06"
^XMB(3.9,157,2,249,0)="""RTN"",""XTPMKPTC"",2,0)"
^XMB(3.9,157,2,250,0)=" ;;7.3;TOOLKIT;**98,100**; Apr 25, 1995;Build 4"
^XMB(3.9,157,2,251,0)="""RTN"",""XTPMKPTC"",3,0)"
^XMB(3.9,157,2,252,0)=" ;"
^XMB(3.9,157,2,253,0)="""RTN"",""XTPMKPTC"",4,0)"
^XMB(3.9,157,2,254,0)="SRVR N XMB X XMREC"
^XMB(3.9,157,2,255,0)="""RTN"",""XTPMKPTC"",5,0)"
^XMB(3.9,157,2,256,0)=" S XTBMLN1=$G(^XMB(3.9,XMZ,0))"
^XMB(3.9,157,2,257,0)="""RTN"",""XTPMKPTC"",6,0)"
^XMB(3.9,157,2,258,0)=" I XTBMLN1[""COMPLIANCE DATE CHANGE"" G CKCMPDT"
^XMB(3.9,157,2,259,0)="""RTN"",""XTPMKPTC"",7,0)"
^XMB(3.9,157,2,260,0)=" ;"
^XMB(3.9,157,2,261,0)="""RTN"",""XTPMKPTC"",8,0)"
^XMB(3.9,157,2,262,0)="CHECK I XTBMLN1[""TEST"" G EXIT"
^XMB(3.9,157,2,263,0)="""RTN"",""XTPMKPTC"",9,0)"
^XMB(3.9,157,2,264,0)=" I XTBMLN1[""COMPLIANCE DATE CHANGE"" G CKCMPDT"
^XMB(3.9,157,2,265,0)="""RTN"",""XTPMKPTC"",10,0)"
^XMB(3.9,157,2,266,0)=" I XTBMLN1[""Entered in error patch"" DO  I $D(OUT) K OUT G EXIT"
^XMB(3.9,157,2,267,0)="""RTN"",""XTPMKPTC"",11,0)"
^XMB(3.9,157,2,268,0)=" .F XTBX=1:1:8 S XTBY=$G(^XMB(3.9,XMZ,2,+XTBX,0)) I XTBY[""The patch is"" DO  Q:$D(OUT)"
^XMB(3.9,157,2,269,0)="""RTN"",""XTPMKPTC"",12,0)"
^XMB(3.9,157,2,270,0)=" ..K OUT S X=$P(XTBY,""'"",2),DIC(0)=""QLM"",DIC=""^XPD(9.9,"" D ^DIC I Y<0 S OUT=1 Q"
^XMB(3.9,157,2,271,0)="""RTN"",""XTPMKPTC"",13,0)"
^XMB(3.9,157,2,272,0)=" ..S DIK=DIC,DA=+Y D ^DIK K DIC,DIK,DA,XTBX,XTBY,Y,X S OUT=1 Q"
^XMB(3.9,157,2,273,0)="""RTN"",""XTPMKPTC"",14,0)"
^XMB(3.9,157,2,274,0)=" I XTBMLN1'[""SEQ #""!(XTBMLN1'[""National Patch Module"") G EXIT"
^XMB(3.9,157,2,275,0)="""RTN"",""XTPMKPTC"",15,0)"
^XMB(3.9,157,2,276,0)=" ;"
^XMB(3.9,157,2,277,0)="""RTN"",""XTPMKPTC"",16,0)"
^XMB(3.9,157,2,278,0)="CKCMPDT D CMPDTCG^XTPMKPCF I $D(XTBCMDCG) K XTBCMDCG G EXIT ;compliance date chg check"
^XMB(3.9,157,2,279,0)="""RTN"",""XTPMKPTC"",17,0)"
^XMB(3.9,157,2,280,0)=" S XTBPTYPE=1 ;assume NON-KIDS until verified"
^XMB(3.9,157,2,281,0)="""RTN"",""XTPMKPTC"",18,0)"
^XMB(3.9,157,2,282,0)=" F XTBX=0:0 S XTBX=$O(^XMB(3.9,XMZ,2,XTBX)) Q:XTBX=""""!(+XTBX=0)  S XTBY=$G(^XMB(3.9,XMZ,2,XTBX,0)) I XTBY[""$KID"" DO"
^XMB(3.9,157,2,283,0)="""RTN"",""XTPMKPTC"",19,0)"
^XMB(3.9,157,2,284,0)=" .S XTBZ=$O(^XMB(3.9,XMZ,2,XTBX)) I $G(^XMB(3.9,XMZ,2,XTBZ,0))[""**INSTALL NAME**"" S XTBPTYPE="""",XTBX=9999999 Q"
^XMB(3.9,157,2,285,0)="""RTN"",""XTPMKPTC"",20,0)"
^XMB(3.9,157,2,286,0)=" ;"
^XMB(3.9,157,2,287,0)="""RTN"",""XTPMKPTC"",21,0)"
^XMB(3.9,157,2,288,0)="EXTINFO S (XTBDESG,XTBPKG,XTBPRIO,XTBVER,XTBSEQ,XTBSUB)="""""
^XMB(3.9,157,2,289,0)="""RTN"",""XTPMKPTC"",22,0)"
^XMB(3.9,157,2,290,0)=" F  X XMREC Q:XMER<0!(XMRG[""Description"")  DO  Q:$D(NOFILE)"
^XMB(3.9,157,2,291,0)="""RTN"",""XTPMKPTC"",23,0)"
^XMB(3.9,157,2,292,0)=" .K NOFILE"
^XMB(3.9,157,2,293,0)="""RTN"",""XTPMKPTC"",24,0)"
^XMB(3.9,157,2,294,0)=" .Q:XMRG[""====="""
^XMB(3.9,157,2,295,0)="""RTN"",""XTPMKPTC"",25,0)"
^XMB(3.9,157,2,296,0)=" .I XMRG[""Designation"" S (XTBDESG,XTBINST)=$P(XMRG,""Designation: "",2) Q:$D(NOFILE)  DO"
^XMB(3.9,157,2,297,0)="""RTN"",""XTPMKPTC"",26,0)"
^XMB(3.9,157,2,298,0)=" ..S XTBY=$P(XTBDESG,""*"",2) I XTBY'?1.2N1""."".N S XTBY=XTBY_"".0"",$P(XTBINST,""*"",2)=XTBY"
^XMB(3.9,157,2,299,0)="""RTN"",""XTPMKPTC"",27,0)"
^XMB(3.9,157,2,300,0)=" .I XTBDESG="""" S NOFILE=1 Q"
^XMB(3.9,157,2,301,0)="""RTN"",""XTPMKPTC"",28,0)"
^XMB(3.9,157,2,302,0)=" .I $D(^XPD(9.9,""B"",XTBDESG)) S NOFILE=1 Q  ; already done"
^XMB(3.9,157,2,303,0)="""RTN"",""XTPMKPTC"",29,0)"
^XMB(3.9,157,2,304,0)=" .I XMRG[""Package"" DO"
^XMB(3.9,157,2,305,0)="""RTN"",""XTPMKPTC"",30,0)"
^XMB(3.9,157,2,306,0)=" ..S XTBPKG=$P(XMRG,""Package : "",2),XTBPKG=$P(XTBPKG,""Priority: "",1),XTBPKG=$E(XTBPKG,1,35)"
^XMB(3.9,157,2,307,0)="""RTN"",""XTPMKPTC"",31,0)"
^XMB(3.9,157,2,308,0)=" ..S XTBX=$L(XTBPKG)"
^XMB(3.9,157,2,309,0)="""RTN"",""XTPMKPTC"",32,0)"
^XMB(3.9,157,2,310,0)=" ..F XX=XTBX:-1 S XTBY=$E(XTBPKG,XX,XX) Q:($A(XTBY)>64)!(XTBY="""")  I $A(XTBY)=32 S $E(XTBPKG,XX,XX)=""z"""
^XMB(3.9,157,2,311,0)="""RTN"",""XTPMKPTC"",33,0)"
^XMB(3.9,157,2,312,0)=" ..I XTBPKG[""z"" S XTBPKG=$P(XTBPKG,""z"",1)"
^XMB(3.9,157,2,313,0)="""RTN"",""XTPMKPTC"",34,0)"
^XMB(3.9,157,2,314,0)=" .I XMRG[""Priority"" S XTBPRIO=$P(XMRG,""Priority: "",2) DO"
^XMB(3.9,157,2,315,0)="""RTN"",""XTPMKPTC"",35,0)"
^XMB(3.9,157,2,316,0)=" ..S XTBPRIO=$P(XTBPRIO,"" "",1) S X=XTBPRIO X ^%ZOSF(""UPPERCASE"") S XTBPRIO=X"
^XMB(3.9,157,2,317,0)="""RTN"",""XTPMKPTC"",36,0)"
^XMB(3.9,157,2,318,0)=" .I XMRG[""Version"" S XTBVER=$P(XMRG,""Version: "",1) DO"
^XMB(3.9,157,2,319,0)="""RTN"",""XTPMKPTC"",37,0)"
^XMB(3.9,157,2,320,0)=" ..S XTBSEQ=$P(XTBVER,""#"",2),XTBSEQ=$P(XTBSEQ,"" "",1)"
^XMB(3.9,157,2,321,0)="""RTN"",""XTPMKPTC"",38,0)"
^XMB(3.9,157,2,322,0)=" ..S XTBVER=$P(XTBVER,""Version : "",2),XTBVER=+XTBVER"
^XMB(3.9,157,2,323,0)="""RTN"",""XTPMKPTC"",39,0)"
^XMB(3.9,157,2,324,0)=" .I XMRG[""Compliance Date:"" S XTBCMPDT=$P(XMRG,""Compliance Date: "",2)"
^XMB(3.9,157,2,325,0)="""RTN"",""XTPMKPTC"",40,0)"
^XMB(3.9,157,2,326,0)=" .I XMRG[""Subject"" S XTBSUB=$P(XMRG,""Subject: "",2),XTBSUB=$E(XTBSUB,1,50),XTBSUB=$TR(XTBSUB,"":;"",""--"")"
^XMB(3.9,157,2,327,0)="""RTN"",""XTPMKPTC"",41,0)"
^XMB(3.9,157,2,328,0)=" G:$D(NOFILE) EXIT"
^XMB(3.9,157,2,329,0)="""RTN"",""XTPMKPTC"",42,0)"
^XMB(3.9,157,2,330,0)=" ;"
^XMB(3.9,157,2,331,0)="""RTN"",""XTPMKPTC"",43,0)"
^XMB(3.9,157,2,332,0)="FILE K DO,DD S (DIC,DIE)=""^XPD(9.9,"",DIC(0)=""M"",X=XTBDESG"
^XMB(3.9,157,2,333,0)="""RTN"",""XTPMKPTC"",44,0)"
^XMB(3.9,157,2,334,0)=" S XTBRCPDT=$G(^XMB(3.9,XMZ,.6)) I XTBRCPDT="""" S XTBRCPDT=DT"
^XMB(3.9,157,2,335,0)="""RTN"",""XTPMKPTC"",45,0)"
^XMB(3.9,157,2,336,0)=" S DIC(""DR"")=""1////""_XTBRCPDT_"";2///""_XTBPRIO_"";3///""_XTBPKG_"";4////""_XTBSEQ_"";5////""_XTBVER_"";6///""_XTBSUB_"";7///""_XTBINST_"";8///""_XTBCMPDT_"";11////""_XTBPTYPE"
^XMB(3.9,157,2,337,0)="""RTN"",""XTPMKPTC"",46,0)"
^XMB(3.9,157,2,338,0)=" D FILE^DICN"
^XMB(3.9,157,2,339,0)="""RTN"",""XTPMKPTC"",47,0)"
^XMB(3.9,157,2,340,0)=" ;"
^XMB(3.9,157,2,341,0)="""RTN"",""XTPMKPTC"",48,0)"
^XMB(3.9,157,2,342,0)="EXIT G EXITA^XTPMKPCF"
^XMB(3.9,157,2,343,0)="""RTN"",""XTPMKPTC"",49,0)"
^XMB(3.9,157,2,344,0)=" ;"
^XMB(3.9,157,2,345,0)="""RTN"",""XTPMKPTC"",50,0)"
^XMB(3.9,157,2,346,0)="NIGHT S XTBPURGI=$P($G(^XPD(9.95,1,0)),U,3) ;purge y/n"
^XMB(3.9,157,2,347,0)="""RTN"",""XTPMKPTC"",51,0)"
^XMB(3.9,157,2,348,0)=" K ^TMP($J) S XTBX="""",XTBLN=8,XTBCNT=0"
^XMB(3.9,157,2,349,0)="""RTN"",""XTPMKPTC"",52,0)"
^XMB(3.9,157,2,350,0)=" S NIGHT=1 D TEXT S Y=DT X ^DD(""DD"") S XTBRUNDT=Y"
^XMB(3.9,157,2,351,0)="""RTN"",""XTPMKPTC"",53,0)"
^XMB(3.9,157,2,352,0)=" F  S XTBX=$O(^XPD(9.9,""B"",XTBX)) Q:XTBX=""""  F XTBDA=0:0 S XTBDA=$O(^XPD(9.9,""B"",XTBX,XTBDA)) Q:XTBDA=""""  DO"
^XMB(3.9,157,2,353,0)="""RTN"",""XTPMKPTC"",54,0)"
^XMB(3.9,157,2,354,0)=" .K XTBKILLD"
^XMB(3.9,157,2,355,0)="""RTN"",""XTPMKPTC"",55,0)"
^XMB(3.9,157,2,356,0)=" .S XTBDTA=$G(^XPD(9.9,XTBDA,0)) Q:XTBDTA="""""
^XMB(3.9,157,2,357,0)="""RTN"",""XTPMKPTC"",56,0)"
^XMB(3.9,157,2,358,0)=" .S XTBINST=$P(XTBDTA,U,8) Q:XTBINST="""""
^XMB(3.9,157,2,359,0)="""RTN"",""XTPMKPTC"",57,0)"
^XMB(3.9,157,2,360,0)=" .S XTBPTYPE=$P(XTBDTA,U,10)"
^XMB(3.9,157,2,361,0)="""RTN"",""XTPMKPTC"",58,0)"
^XMB(3.9,157,2,362,0)=" .S XTBXX=$O(^XPD(9.7,""B"",XTBINST,9999999999),-1) I $G(^XPD(9.7,+XTBXX,2))["" TEST v"" S XTBXX="""""
^XMB(3.9,157,2,363,0)="""RTN"",""XTPMKPTC"",59,0)"
^XMB(3.9,157,2,364,0)=" .I $P($G(^XPD(9.7,+XTBXX,0)),U,9)=3!(XTBPTYPE=1&($P(XTBDTA,U,11)]"""")),XTBPURGI=1 DO  Q:$D(XTBKILLD)  ; installed, check purge flag"
^XMB(3.9,157,2,365,0)="""RTN"",""XTPMKPTC"",60,0)"
^XMB(3.9,157,2,366,0)=" ..S DA=XTBDA,DIK=""^XPD(9.9,"" D ^DIK S XTBKILLD=1 K DA,DIK Q"
^XMB(3.9,157,2,367,0)="""RTN"",""XTPMKPTC"",61,0)"
^XMB(3.9,157,2,368,0)=" .I XTBXX]"""",XTBPTYPE=1 S XTBPTYPE="""",$P(^XPD(9.9,XTBDA,0),U,10)="""" ;found In INSTALL"
^XMB(3.9,157,2,369,0)="""RTN"",""XTPMKPTC"",62,0)"
^XMB(3.9,157,2,370,0)=" .Q:XTBPTYPE=1&($P(XTBDTA,U,11)]"""")  ;non-kids, has install date  "
^XMB(3.9,157,2,371,0)="""RTN"",""XTPMKPTC"",63,0)"
^XMB(3.9,157,2,372,0)=" .Q:$P($G(^XPD(9.7,+XTBXX,0)),U,9)=3"
^XMB(3.9,157,2,373,0)="""RTN"",""XTPMKPTC"",64,0)"
^XMB(3.9,157,2,374,0)=" .I (DT>$P(XTBDTA,U,9)) D SET"
^XMB(3.9,157,2,375,0)="""RTN"",""XTPMKPTC"",65,0)"
^XMB(3.9,157,2,376,0)=" I '$D(^TMP($J,9,0)) K ^TMP($J) S ^TMP($J,3,0)="""",^TMP($J,4,0)=""    No Delinquent Patches were found."""
^XMB(3.9,157,2,377,0)="""RTN"",""XTPMKPTC"",66,0)"
^XMB(3.9,157,2,378,0)=" S ^TMP($J,XTBLN,0)="""",XTBLN=XTBLN+1"
^XMB(3.9,157,2,379,0)="""RTN"",""XTPMKPTC"",67,0)"
^XMB(3.9,157,2,380,0)=" I XTBCNT>0 S ^TMP($J,XTBLN,0)=""Total: ""_XTBCNT,XTBLN=XTBLN+1"
^XMB(3.9,157,2,381,0)="""RTN"",""XTPMKPTC"",68,0)"
^XMB(3.9,157,2,382,0)=" S ^TMP($J,XTBLN,0)="""",XTBLN=XTBLN+1"
^XMB(3.9,157,2,383,0)="""RTN"",""XTPMKPTC"",69,0)"
^XMB(3.9,157,2,384,0)=" S XMSUB=""Patch Monitor Report for ""_^DD(""SITE"")_"" for ""_XTBRUNDT"
^XMB(3.9,157,2,385,0)="""RTN"",""XTPMKPTC"",70,0)"
^XMB(3.9,157,2,386,0)=" N DUZ S XMDUZ=.5,XMTEXT=""^TMP($J,"",XMY(""G.XTPM PATCH MONITOR"")="""",XMY(.5)="""" D ^XMD"
^XMB(3.9,157,2,387,0)="""RTN"",""XTPMKPTC"",71,0)"
^XMB(3.9,157,2,388,0)=" ; purge old data"
^XMB(3.9,157,2,389,0)="""RTN"",""XTPMKPTC"",72,0)"
^XMB(3.9,157,2,390,0)=" I +XTBPURGI=0 D ^XTPMKPP"
^XMB(3.9,157,2,391,0)="""RTN"",""XTPMKPTC"",73,0)"
^XMB(3.9,157,2,392,0)=" G EXIT"
^XMB(3.9,157,2,393,0)="""RTN"",""XTPMKPTC"",74,0)"
^XMB(3.9,157,2,394,0)=" ;"
^XMB(3.9,157,2,395,0)="""RTN"",""XTPMKPTC"",75,0)"
^XMB(3.9,157,2,396,0)="SET S XTBPTNM=$P(XTBDTA,U,1),XTBSUBJ=$E($P(XTBDTA,U,7),1,20)"
^XMB(3.9,157,2,397,0)="""RTN"",""XTPMKPTC"",76,0)"
^XMB(3.9,157,2,398,0)=" S X=$P(XTBDTA,U,3),XTBPRIO=$S(X=""m"":""Mandatory"",X=""e"":""Emergency"",1:""Unknown"")"
^XMB(3.9,157,2,399,0)="""RTN"",""XTPMKPTC"",77,0)"
^XMB(3.9,157,2,400,0)=" S (X1,Y)=$P(XTBDTA,U,2) X ^DD(""DD"") S XTBRECPT=Y"
^XMB(3.9,157,2,401,0)="""RTN"",""XTPMKPTC"",78,0)"
^XMB(3.9,157,2,402,0)=" S (Y,YY1)=$P(XTBDTA,U,9) X ^DD(""DD"") S XTBINSTX=Y ; compliance date"
^XMB(3.9,157,2,403,0)="""RTN"",""XTPMKPTC"",79,0)"
^XMB(3.9,157,2,404,0)=" I YY1<DT,'$D(NIGHT) S XTBINSTX=Y_"" *"""
^XMB(3.9,157,2,405,0)="""RTN"",""XTPMKPTC"",80,0)"
^XMB(3.9,157,2,406,0)=" S XTBPKG=$P(XTBPTNM,""*"",1),XTBPKGPT=$O(^DIC(9.4,""C"",XTBPKG,0))"
^XMB(3.9,157,2,407,0)="""RTN"",""XTPMKPTC"",81,0)"
^XMB(3.9,157,2,408,0)=" S XTBPCTVR=+$P(XTBPTNM,""*"",2),XTBPLVER=+$G(^DIC(9.4,+XTBPKGPT,""VERSION""))"
^XMB(3.9,157,2,409,0)="""RTN"",""XTPMKPTC"",82,0)"
^XMB(3.9,157,2,410,0)=" I XTBPCTVR>XTBPLVER,XTBPLVER>0 S XTBINSTX=""Future Version"""
^XMB(3.9,157,2,411,0)="""RTN"",""XTPMKPTC"",83,0)"
^XMB(3.9,157,2,412,0)=" I XTBPCTVR>XTBPLVER,XTBPLVER=0 S $P(^XPD(9.9,XTBDA,0),U,10)=1,XTBINSTX=""CompleteByHand"""
^XMB(3.9,157,2,413,0)="""RTN"",""XTPMKPTC"",84,0)"
^XMB(3.9,157,2,414,0)=" I XTBPCTVR=999 S XTBINSTX=""CompleteByHand"" ;mainly new Mailman domains"
^XMB(3.9,157,2,415,0)="""RTN"",""XTPMKPTC"",85,0)"
^XMB(3.9,157,2,416,0)=" I XTBINSTX=""Future Version""&($D(NIGHT)) Q"
^XMB(3.9,157,2,417,0)="""RTN"",""XTPMKPTC"",86,0)"
^XMB(3.9,157,2,418,0)=" I XTBINSTX=""Future Version""&($D(XTBPSTD)) Q"
^XMB(3.9,157,2,419,0)="""RTN"",""XTPMKPTC"",87,0)"
^XMB(3.9,157,2,420,0)=" S XTBLN=XTBLN+1 ; first line=9"
^XMB(3.9,157,2,421,0)="""RTN"",""XTPMKPTC"",88,0)"
^XMB(3.9,157,2,422,0)=" S XTBCNT=XTBCNT+1"
^XMB(3.9,157,2,423,0)="""RTN"",""XTPMKPTC"",89,0)"
^XMB(3.9,157,2,424,0)=" S XTBDTA="""""
^XMB(3.9,157,2,425,0)="""RTN"",""XTPMKPTC"",90,0)"
^XMB(3.9,157,2,426,0)=" S $E(XTBDTA,1)=XTBPTNM,$E(XTBDTA,15)=XTBSUBJ,$E(XTBDTA,38)=XTBPRIO,$E(XTBDTA,51)=XTBRECPT,$E(XTBDTA,64)=XTBINSTX"
^XMB(3.9,157,2,427,0)="""RTN"",""XTPMKPTC"",91,0)"
^XMB(3.9,157,2,428,0)=" S ^TMP($J,XTBLN,0)=XTBDTA,XTBLN=XTBLN+1"
^XMB(3.9,157,2,429,0)="""RTN"",""XTPMKPTC"",92,0)"
^XMB(3.9,157,2,430,0)=" S ^TMP($J,XTBLN,0)="""",XTBLN=XTBLN+1"
^XMB(3.9,157,2,431,0)="""RTN"",""XTPMKPTC"",93,0)"
^XMB(3.9,157,2,432,0)=" Q"
^XMB(3.9,157,2,433,0)="""RTN"",""XTPMKPTC"",94,0)"
^XMB(3.9,157,2,434,0)=" ;"
^XMB(3.9,157,2,435,0)="""RTN"",""XTPMKPTC"",95,0)"
^XMB(3.9,157,2,436,0)="TEXT S ^TMP($J,1,0)="""""
^XMB(3.9,157,2,437,0)="""RTN"",""XTPMKPTC"",96,0)"
^XMB(3.9,157,2,438,0)=" S ^TMP($J,2,0)=""The following patches are not installed at this site and are past the"""
^XMB(3.9,157,2,439,0)="""RTN"",""XTPMKPTC"",97,0)"
^XMB(3.9,157,2,440,0)=" S ^TMP($J,3,0)=""designated installation time:"""
^XMB(3.9,157,2,441,0)="""RTN"",""XTPMKPTC"",98,0)"
^XMB(3.9,157,2,442,0)=" S ^TMP($J,4,0)="""""
^XMB(3.9,157,2,443,0)="""RTN"",""XTPMKPTC"",99,0)"
^XMB(3.9,157,2,444,0)=" S ^TMP($J,5,0)=""                                                               Compliance"""
^XMB(3.9,157,2,445,0)="""RTN"",""XTPMKPTC"",100,0)"
^XMB(3.9,157,2,446,0)=" S ^TMP($J,6,0)=""Patch #       Subject                Priority     Recpt Date   Date"""
^XMB(3.9,157,2,447,0)="""RTN"",""XTPMKPTC"",101,0)"
^XMB(3.9,157,2,448,0)=" S ^TMP($J,7,0)=""-------       -------                --------     ----- ----   ----------"""
^XMB(3.9,157,2,449,0)="""RTN"",""XTPMKPTC"",102,0)"
^XMB(3.9,157,2,450,0)=" S ^TMP($J,8,0)="""""
^XMB(3.9,157,2,451,0)="""RTN"",""XTPMKPTC"",103,0)"
^XMB(3.9,157,2,452,0)=" Q"
^XMB(3.9,157,2,453,0)="""RTN"",""XTPMKPTC"",104,0)"
^XMB(3.9,157,2,454,0)=" ;"
^XMB(3.9,157,2,455,0)="""RTN"",""XTPMKPTC"",105,0)"
^XMB(3.9,157,2,456,0)="REG ; regular notification"
^XMB(3.9,157,2,457,0)="""RTN"",""XTPMKPTC"",106,0)"
^XMB(3.9,157,2,458,0)=" K ^TMP($J) S XTBX="""",XTBLN=8,XTBCNT=0"
^XMB(3.9,157,2,459,0)="""RTN"",""XTPMKPTC"",107,0)"
^XMB(3.9,157,2,460,0)=" D TEXT S Y=DT X ^DD(""DD"") S XTBRUNDT=Y"
^XMB(3.9,157,2,461,0)="""RTN"",""XTPMKPTC"",108,0)"
^XMB(3.9,157,2,462,0)=" S ^TMP($J,2,0)=""The following patches are uninstalled at this site:"" K ^TMP($J,3,0)"
^XMB(3.9,157,2,463,0)="""RTN"",""XTPMKPTC"",109,0)"
^XMB(3.9,157,2,464,0)=" F  S XTBX=$O(^XPD(9.9,""B"",XTBX)) Q:XTBX=""""  F XTBDA=0:0 S XTBDA=$O(^XPD(9.9,""B"",XTBX,XTBDA)) Q:XTBDA=""""  DO"
^XMB(3.9,157,2,465,0)="""RTN"",""XTPMKPTC"",110,0)"
^XMB(3.9,157,2,466,0)=" .S XTBDTA=$G(^XPD(9.9,XTBDA,0)),XTBINST=$P(XTBDTA,U,8)"
^XMB(3.9,157,2,467,0)="""RTN"",""XTPMKPTC"",111,0)"
^XMB(3.9,157,2,468,0)=" .Q:XTBDTA=""""!(XTBINST="""")  ;no data or no install name"
^XMB(3.9,157,2,469,0)="""RTN"",""XTPMKPTC"",112,0)"
^XMB(3.9,157,2,470,0)=" .S XTBXX=$O(^XPD(9.7,""B"",XTBINST,9999999999),-1) I $G(^XPD(9.7,+XTBXX,2))["" TEST v"" S XTBXX="""""
^XMB(3.9,157,2,471,0)="""RTN"",""XTPMKPTC"",113,0)"
^XMB(3.9,157,2,472,0)=" .Q:$P(XTBDTA,U,10)=1&($P(XTBDTA,U,11)]"""")  ;non-kids"
^XMB(3.9,157,2,473,0)="""RTN"",""XTPMKPTC"",114,0)"
^XMB(3.9,157,2,474,0)=" .Q:$P($G(^XPD(9.7,+XTBXX,0)),U,9)=3"
^XMB(3.9,157,2,475,0)="""RTN"",""XTPMKPTC"",115,0)"
^XMB(3.9,157,2,476,0)=" .D SET"
^XMB(3.9,157,2,477,0)="""RTN"",""XTPMKPTC"",116,0)"
^XMB(3.9,157,2,478,0)=" I '$D(^TMP($J,9,0)) G EXIT"
^XMB(3.9,157,2,479,0)="""RTN"",""XTPMKPTC"",117,0)"
^XMB(3.9,157,2,480,0)=" S ^TMP($J,XTBLN,0)="""",XTBLN=XTBLN+1"
^XMB(3.9,157,2,481,0)="""RTN"",""XTPMKPTC"",118,0)"
^XMB(3.9,157,2,482,0)=" S ^TMP($J,XTBLN,0)=""Total: ""_XTBCNT,XTBLN=XTBLN+1"
^XMB(3.9,157,2,483,0)="""RTN"",""XTPMKPTC"",119,0)"
^XMB(3.9,157,2,484,0)=" S ^TMP($J,XTBLN,0)="""",XTBLN=XTBLN+1"
^XMB(3.9,157,2,485,0)="""RTN"",""XTPMKPTC"",120,0)"
^XMB(3.9,157,2,486,0)=" S XMSUB=""Uninstalled Patch Report for ""_^DD(""SITE"")_"" for ""_XTBRUNDT"
^XMB(3.9,157,2,487,0)="""RTN"",""XTPMKPTC"",121,0)"
^XMB(3.9,157,2,488,0)=" N DUZ K XMY"
^XMB(3.9,157,2,489,0)="""RTN"",""XTPMKPTC"",122,0)"
^XMB(3.9,157,2,490,0)=" S XMDUZ=.5,XMTEXT=""^TMP($J,"" D MG,^XMD"
^XMB(3.9,157,2,491,0)="""RTN"",""XTPMKPTC"",123,0)"
^XMB(3.9,157,2,492,0)=" G EXIT"
^XMB(3.9,157,2,493,0)="""RTN"",""XTPMKPTC"",124,0)"
^XMB(3.9,157,2,494,0)=" ;"
^XMB(3.9,157,2,495,0)="""RTN"",""XTPMKPTC"",125,0)"
^XMB(3.9,157,2,496,0)="RPT W @IOF,!,""Complete Uninstalled Patch Report for ""_^DD(""SITE""),!!!"
^XMB(3.9,157,2,497,0)="""RTN"",""XTPMKPTC"",126,0)"
^XMB(3.9,157,2,498,0)=" S %ZIS=""AEQ"" D ^%ZIS G:POP EXIT"
^XMB(3.9,157,2,499,0)="""RTN"",""XTPMKPTC"",127,0)"
^XMB(3.9,157,2,500,0)=" I $D(IO(""Q"")) S ZTIO=ION,ZTSAVE="""",ZTRTN=""RPT1^XTPMKPTC"",ZTDESC=""Uninstalled Patch Report"" D ^%ZTLOAD D HOME^%ZIS"
^XMB(3.9,157,2,501,0)="""RTN"",""XTPMKPTC"",128,0)"
^XMB(3.9,157,2,502,0)=" I $D(ZTSK) W !,""Queued as task# "",ZTSK,!! H 2 G EXIT"
^XMB(3.9,157,2,503,0)="""RTN"",""XTPMKPTC"",129,0)"
^XMB(3.9,157,2,504,0)=" ;"
^XMB(3.9,157,2,505,0)="""RTN"",""XTPMKPTC"",130,0)"
^XMB(3.9,157,2,506,0)="RPT1 U IO K ^TMP($J) S XTBX="""",XTBLN=8,XTBCNT=0"
^XMB(3.9,157,2,507,0)="""RTN"",""XTPMKPTC"",131,0)"
^XMB(3.9,157,2,508,0)=" D TEXT S Y=DT X ^DD(""DD"") S XTBRUNDT=Y"
^XMB(3.9,157,2,509,0)="""RTN"",""XTPMKPTC"",132,0)"
^XMB(3.9,157,2,510,0)=" K ^TMP($J,2,0),^TMP($J,3,0)"
^XMB(3.9,157,2,511,0)="""RTN"",""XTPMKPTC"",133,0)"
^XMB(3.9,157,2,512,0)=" F  S XTBX=$O(^XPD(9.9,""B"",XTBX)) Q:XTBX=""""  F XTBDA=0:0 S XTBDA=$O(^XPD(9.9,""B"",XTBX,XTBDA)) Q:XTBDA=""""  DO"
^XMB(3.9,157,2,513,0)="""RTN"",""XTPMKPTC"",134,0)"
^XMB(3.9,157,2,514,0)=" .S XTBDTA=$G(^XPD(9.9,XTBDA,0)),XTBINST=$P(XTBDTA,U,8) Q:XTBDTA=""""!(XTBINST="""")  ; no data or no install name"
^XMB(3.9,157,2,515,0)="""RTN"",""XTPMKPTC"",135,0)"
^XMB(3.9,157,2,516,0)=" .S XTBXX=$O(^XPD(9.7,""B"",XTBINST,9999999999),-1) I $G(^XPD(9.7,+XTBXX,2))["" TEST v"" S XTBXX="""""
^XMB(3.9,157,2,517,0)="""RTN"",""XTPMKPTC"",136,0)"
^XMB(3.9,157,2,518,0)=" .Q:$P(XTBDTA,U,10)=1&($P(XTBDTA,U,11)]"""")  ;non-kids"
^XMB(3.9,157,2,519,0)="""RTN"",""XTPMKPTC"",137,0)"
^XMB(3.9,157,2,520,0)=" .Q:$P($G(^XPD(9.7,+XTBXX,0)),U,9)=3"
^XMB(3.9,157,2,521,0)="""RTN"",""XTPMKPTC"",138,0)"
^XMB(3.9,157,2,522,0)=" .D SET"
^XMB(3.9,157,2,523,0)="""RTN"",""XTPMKPTC"",139,0)"
^XMB(3.9,157,2,524,0)=" I '$D(^TMP($J,9,0)) S ^TMP($J,XTBLN,0)="""",XTBLN=XTBLN+1,^TMP($J,XTBLN,0)=""     Nothing to report"",XTBLN=XTBLN+1"
^XMB(3.9,157,2,525,0)="""RTN"",""XTPMKPTC"",140,0)"
^XMB(3.9,157,2,526,0)=" S ^TMP($J,XTBLN,0)="""",XTBLN=XTBLN+1"
^XMB(3.9,157,2,527,0)="""RTN"",""XTPMKPTC"",141,0)"
^XMB(3.9,157,2,528,0)=" I XTBCNT>0 S ^TMP($J,XTBLN,0)=""Total: ""_XTBCNT,XTBLN=XTBLN+1"
^XMB(3.9,157,2,529,0)="""RTN"",""XTPMKPTC"",142,0)"
^XMB(3.9,157,2,530,0)=" S ^TMP($J,XTBLN,0)="""",XTBLN=XTBLN+1"
^XMB(3.9,157,2,531,0)="""RTN"",""XTPMKPTC"",143,0)"
^XMB(3.9,157,2,532,0)=" S PG=1,XTBHDR=""Uninstalled Patch Report for ""_^DD(""SITE"")_"" for ""_XTBRUNDT"
^XMB(3.9,157,2,533,0)="""RTN"",""XTPMKPTC"",144,0)"
^XMB(3.9,157,2,534,0)=" W:IOST?1""C-"".E @IOF W !,XTBHDR,?(IOM-12),""Page: "",PG,!"
^XMB(3.9,157,2,535,0)="""RTN"",""XTPMKPTC"",145,0)"
^XMB(3.9,157,2,536,0)=" F XTBLN=0:0 S XTBLN=$O(^TMP($J,XTBLN)) Q:XTBLN=""""  W ^TMP($J,XTBLN,0),! I $Y>(IOSL-5) S PG=PG+1 D PAUSE W @IOF,!,XTBHDR,?(IOM-12),""Page: "",PG,!!"
^XMB(3.9,157,2,537,0)="""RTN"",""XTPMKPTC"",146,0)"
^XMB(3.9,157,2,538,0)=" G EXIT"
^XMB(3.9,157,2,539,0)="""RTN"",""XTPMKPTC"",147,0)"
^XMB(3.9,157,2,540,0)=" ;"
^XMB(3.9,157,2,541,0)="""RTN"",""XTPMKPTC"",148,0)"
^XMB(3.9,157,2,542,0)="PASTDUE W @IOF,!,""Past Due Patch Report for ""_^DD(""SITE""),!!!"
^XMB(3.9,157,2,543,0)="""RTN"",""XTPMKPTC"",149,0)"
^XMB(3.9,157,2,544,0)=" S %ZIS=""AEQ"" D ^%ZIS G:POP EXIT"
^XMB(3.9,157,2,545,0)="""RTN"",""XTPMKPTC"",150,0)"
^XMB(3.9,157,2,546,0)=" I $D(IO(""Q"")) S ZTIO=ION,ZTSAVE="""",ZTRTN=""PASTD1^XTPMKPTC"",ZTDESC=""Past Due Patch Report"" D ^%ZTLOAD D HOME^%ZIS"
^XMB(3.9,157,2,547,0)="""RTN"",""XTPMKPTC"",151,0)"
^XMB(3.9,157,2,548,0)=" I $D(ZTSK) W !,""Queued as task# "",ZTSK,!! H 2 G EXIT"
^XMB(3.9,157,2,549,0)="""RTN"",""XTPMKPTC"",152,0)"
^XMB(3.9,157,2,550,0)=" ;"
^XMB(3.9,157,2,551,0)="""RTN"",""XTPMKPTC"",153,0)"
^XMB(3.9,157,2,552,0)="PASTD1 U IO K ^TMP($J) S XTBX="""",XTBLN=8,XTBCNT=0"
^XMB(3.9,157,2,553,0)="""RTN"",""XTPMKPTC"",154,0)"
^XMB(3.9,157,2,554,0)=" S XTBPSTD=1"
^XMB(3.9,157,2,555,0)="""RTN"",""XTPMKPTC"",155,0)"
^XMB(3.9,157,2,556,0)=" D TEXT S Y=DT X ^DD(""DD"") S XTBRUNDT=Y"
^XMB(3.9,157,2,557,0)="""RTN"",""XTPMKPTC"",156,0)"
^XMB(3.9,157,2,558,0)=" K ^TMP($J,2,0),^TMP($J,3,0)"
^XMB(3.9,157,2,559,0)="""RTN"",""XTPMKPTC"",157,0)"
^XMB(3.9,157,2,560,0)=" F  S XTBX=$O(^XPD(9.9,""B"",XTBX)) Q:XTBX=""""  F XTBDA=0:0 S XTBDA=$O(^XPD(9.9,""B"",XTBX,XTBDA)) Q:XTBDA=""""  DO"
^XMB(3.9,157,2,561,0)="""RTN"",""XTPMKPTC"",158,0)"
^XMB(3.9,157,2,562,0)=" .S XTBDTA=$G(^XPD(9.9,XTBDA,0)),XTBINST=$P(XTBDTA,U,8) Q:XTBDTA=""""!(XTBINST="""")"
^XMB(3.9,157,2,563,0)="""RTN"",""XTPMKPTC"",159,0)"
^XMB(3.9,157,2,564,0)=" .S XTBXX=$O(^XPD(9.7,""B"",XTBINST,9999999999),-1) I $G(^XPD(9.7,+XTBXX,2))["" TEST v"" S XTBXX="""""
^XMB(3.9,157,2,565,0)="""RTN"",""XTPMKPTC"",160,0)"
^XMB(3.9,157,2,566,0)=" .Q:$P(XTBDTA,U,10)=1&($P(XTBDTA,U,11)]"""")  ;non-kids"
^XMB(3.9,157,2,567,0)="""RTN"",""XTPMKPTC"",161,0)"
^XMB(3.9,157,2,568,0)=" .Q:$P($G(^XPD(9.7,+XTBXX,0)),U,9)=3"
^XMB(3.9,157,2,569,0)="""RTN"",""XTPMKPTC"",162,0)"
^XMB(3.9,157,2,570,0)=" .S XTBCOMPD=$P(XTBDTA,U,9) Q:XTBCOMPD'<DT"
^XMB(3.9,157,2,571,0)="""RTN"",""XTPMKPTC"",163,0)"
^XMB(3.9,157,2,572,0)=" .D SET"
^XMB(3.9,157,2,573,0)="""RTN"",""XTPMKPTC"",164,0)"
^XMB(3.9,157,2,574,0)=" I '$D(^TMP($J,9,0)) S ^TMP($J,XTBLN,0)="""",XTBLN=XTBLN+1,^TMP($J,XTBLN,0)=""     Nothing to report"",XTBLN=XTBLN+1"
^XMB(3.9,157,2,575,0)="""RTN"",""XTPMKPTC"",165,0)"
^XMB(3.9,157,2,576,0)=" S ^TMP($J,XTBLN,0)="""",XTBLN=XTBLN+1"
^XMB(3.9,157,2,577,0)="""RTN"",""XTPMKPTC"",166,0)"
^XMB(3.9,157,2,578,0)=" I XTBCNT>0 S ^TMP($J,XTBLN,0)=""Total: ""_XTBCNT,XTBLN=XTBLN+1"
^XMB(3.9,157,2,579,0)="""RTN"",""XTPMKPTC"",167,0)"
^XMB(3.9,157,2,580,0)=" S ^TMP($J,XTBLN,0)="""",XTBLN=XTBLN+1"
^XMB(3.9,157,2,581,0)="""RTN"",""XTPMKPTC"",168,0)"
^XMB(3.9,157,2,582,0)=" S ^TMP($J,XTBLN,0)="""",XTBLN=XTBLN+1"
^XMB(3.9,157,2,583,0)="""RTN"",""XTPMKPTC"",169,0)"
^XMB(3.9,157,2,584,0)=" S PG=1,XTBHDR=""Past Due Patch Report for ""_^DD(""SITE"")_"" for ""_XTBRUNDT"
^XMB(3.9,157,2,585,0)="""RTN"",""XTPMKPTC"",170,0)"
^XMB(3.9,157,2,586,0)=" W:IOST?1""C-"".E @IOF W !,XTBHDR,?(IOM-12),""Page: "",PG,!"
^XMB(3.9,157,2,587,0)="""RTN"",""XTPMKPTC"",171,0)"
^XMB(3.9,157,2,588,0)=" F XTBLN=0:0 S XTBLN=$O(^TMP($J,XTBLN)) Q:XTBLN=""""  W ^TMP($J,XTBLN,0),! I $Y>(IOSL-5) S PG=PG+1 D PAUSE W @IOF,!,XTBHDR,?(IOM-12),""Page: "",PG,!!"
^XMB(3.9,157,2,589,0)="""RTN"",""XTPMKPTC"",172,0)"
^XMB(3.9,157,2,590,0)=" K XTBPSTD G EXIT"
^XMB(3.9,157,2,591,0)="""RTN"",""XTPMKPTC"",173,0)"
^XMB(3.9,157,2,592,0)=" ;"
^XMB(3.9,157,2,593,0)="""RTN"",""XTPMKPTC"",174,0)"
^XMB(3.9,157,2,594,0)="PAUSE W !,""Press RETURN to continue or '^' to exit: "" R XTBANS:DTIME"
^XMB(3.9,157,2,595,0)="""RTN"",""XTPMKPTC"",175,0)"
^XMB(3.9,157,2,596,0)=" I XTBANS[""^"" S XTBLN=9999"
^XMB(3.9,157,2,597,0)="""RTN"",""XTPMKPTC"",176,0)"
^XMB(3.9,157,2,598,0)=" Q"
^XMB(3.9,157,2,599,0)="""RTN"",""XTPMKPTC"",177,0)"
^XMB(3.9,157,2,600,0)=" ;"
^XMB(3.9,157,2,601,0)="""RTN"",""XTPMKPTC"",178,0)"
^XMB(3.9,157,2,602,0)="MG F XTBMG=0:0 S XTBMG=$O(^XPD(9.95,1,1,""B"",XTBMG)) Q:XTBMG=""""  DO"
^XMB(3.9,157,2,603,0)="""RTN"",""XTPMKPTC"",179,0)"
^XMB(3.9,157,2,604,0)=" .S XTBMGN=$P(^XMB(3.8,XTBMG,0),U)"
^XMB(3.9,157,2,605,0)="""RTN"",""XTPMKPTC"",180,0)"
^XMB(3.9,157,2,606,0)=" .S XMY(""G.""_XTBMGN)="""""
^XMB(3.9,157,2,607,0)="""RTN"",""XTPMKPTC"",181,0)"
^XMB(3.9,157,2,608,0)=" S XMY(""G.XTPM PATCH MONITOR USER"")="""",XMY(.5)="""""
^XMB(3.9,157,2,609,0)="""RTN"",""XTPMKPTC"",182,0)"
^XMB(3.9,157,2,610,0)=" Q"
^XMB(3.9,157,2,611,0)="""RTN"",""XTPMNEX7"")"
^XMB(3.9,157,2,612,0)="0^3^B12616723^B12374893"
^XMB(3.9,157,2,613,0)="""RTN"",""XTPMNEX7"",1,0)"
^XMB(3.9,157,2,614,0)="XTPMNEX7 ;OAK/BP - PATCHES DUE IN NEXT 7 DAYS ; 2/7/06"
^XMB(3.9,157,2,615,0)="""RTN"",""XTPMNEX7"",2,0)"
^XMB(3.9,157,2,616,0)=" ;;7.3;TOOLKIT;**98,100**; Apr 25, 1995;Build 4"
^XMB(3.9,157,2,617,0)="""RTN"",""XTPMNEX7"",3,0)"
^XMB(3.9,157,2,618,0)=" ;"
^XMB(3.9,157,2,619,0)="""RTN"",""XTPMNEX7"",4,0)"
^XMB(3.9,157,2,620,0)="RPT S XTBHDR=""Patches Due Within Seven Days for ""_^DD(""SITE"")"
^XMB(3.9,157,2,621,0)="""RTN"",""XTPMNEX7"",5,0)"
^XMB(3.9,157,2,622,0)=" S XTBBDT=3010101,X=""T+7"",%DT="""" D ^%DT S XTBEDT=Y"
^XMB(3.9,157,2,623,0)="""RTN"",""XTPMNEX7"",6,0)"
^XMB(3.9,157,2,624,0)=" W @IOF,!,XTBHDR,!!! S %ZIS=""AEQ"" D ^%ZIS G:POP EXIT"
^XMB(3.9,157,2,625,0)="""RTN"",""XTPMNEX7"",7,0)"
^XMB(3.9,157,2,626,0)=" I $D(IO(""Q"")) S ZTIO=ION,ZTRTN=""RPT1^XTPMNEX7"",ZTDESC=XTBHDR,ZTSAVE(""XTB*"")="""" D ^%ZTLOAD D HOME^%ZIS"
^XMB(3.9,157,2,627,0)="""RTN"",""XTPMNEX7"",8,0)"
^XMB(3.9,157,2,628,0)=" I $D(ZTSK) W !,""Queued as task# "",ZTSK,!! H 2 G EXIT"
^XMB(3.9,157,2,629,0)="""RTN"",""XTPMNEX7"",9,0)"
^XMB(3.9,157,2,630,0)=" ;"
^XMB(3.9,157,2,631,0)="""RTN"",""XTPMNEX7"",10,0)"
^XMB(3.9,157,2,632,0)="RPT1 U IO K ^TMP($J) S XTBX="""",(XTBCNT,XTBLN)=0"
^XMB(3.9,157,2,633,0)="""RTN"",""XTPMNEX7"",11,0)"
^XMB(3.9,157,2,634,0)=" S XTBUP=""I $Y>(IOSL-5) S PG=PG+1 D PAUSE W @IOF,!,XTBHDR,?(IOM-12),""""Page: """",PG,!!"""
^XMB(3.9,157,2,635,0)="""RTN"",""XTPMNEX7"",12,0)"
^XMB(3.9,157,2,636,0)=" S Y=DT X ^DD(""DD"") S XTBRUNDT=Y"
^XMB(3.9,157,2,637,0)="""RTN"",""XTPMNEX7"",13,0)"
^XMB(3.9,157,2,638,0)=" F XTBX=XTBBDT:0 S XTBX=$O(^XPD(9.9,""D"",XTBX)) Q:XTBX=""""!(XTBX>XTBEDT)  DO"
^XMB(3.9,157,2,639,0)="""RTN"",""XTPMNEX7"",14,0)"
^XMB(3.9,157,2,640,0)=" .F XTBDA=0:0 S XTBDA=$O(^XPD(9.9,""D"",XTBX,XTBDA)) Q:XTBDA=""""  DO"
^XMB(3.9,157,2,641,0)="""RTN"",""XTPMNEX7"",15,0)"
^XMB(3.9,157,2,642,0)=" ..S XTBDTA=$G(^XPD(9.9,XTBDA,0)),XTBINST=$P(XTBDTA,U,8) Q:XTBDTA=""""!(XTBINST="""")  ; no data or no install name"
^XMB(3.9,157,2,643,0)="""RTN"",""XTPMNEX7"",16,0)"
^XMB(3.9,157,2,644,0)=" ..Q:$P(XTBDTA,U,11)]""""  ; non-kids install date"
^XMB(3.9,157,2,645,0)="""RTN"",""XTPMNEX7"",17,0)"
^XMB(3.9,157,2,646,0)=" ..S XTBXX=$O(^XPD(9.7,""B"",XTBINST,9999999999),-1) I $G(^XPD(9.7,+XTBXX,2))[""TEST"" S XTBXX="""""
^XMB(3.9,157,2,647,0)="""RTN"",""XTPMNEX7"",18,0)"
^XMB(3.9,157,2,648,0)=" ..Q:$P($G(^XPD(9.7,+XTBXX,0)),U,9)=3  ; 3 = installed"
^XMB(3.9,157,2,649,0)="""RTN"",""XTPMNEX7"",19,0)"
^XMB(3.9,157,2,650,0)=" ..D SET"
^XMB(3.9,157,2,651,0)="""RTN"",""XTPMNEX7"",20,0)"
^XMB(3.9,157,2,652,0)=" S PG=0 D HDR S (XTBCPLDT,XTBPTNM,OLXTBCPL)="""""
^XMB(3.9,157,2,653,0)="""RTN"",""XTPMNEX7"",21,0)"
^XMB(3.9,157,2,654,0)=" I '$D(^TMP($J)) W !!,?10,""Nothing to report"",! G PREXIT"
^XMB(3.9,157,2,655,0)="""RTN"",""XTPMNEX7"",22,0)"
^XMB(3.9,157,2,656,0)=" F  S XTBCPLDT=$O(^TMP($J,XTBCPLDT)) Q:XTBCPLDT=""""  DO"
^XMB(3.9,157,2,657,0)="""RTN"",""XTPMNEX7"",23,0)"
^XMB(3.9,157,2,658,0)=" .F  S XTBPTNM=$O(^TMP($J,XTBCPLDT,XTBPTNM)) Q:XTBPTNM=""""  DO"
^XMB(3.9,157,2,659,0)="""RTN"",""XTPMNEX7"",24,0)"
^XMB(3.9,157,2,660,0)=" ..F XTBLN=0:0 S XTBLN=$O(^TMP($J,XTBCPLDT,XTBPTNM,XTBLN)) Q:XTBLN=""""  DO"
^XMB(3.9,157,2,661,0)="""RTN"",""XTPMNEX7"",25,0)"
^XMB(3.9,157,2,662,0)=" ...S XTBDTA=^TMP($J,XTBCPLDT,XTBPTNM,XTBLN)"
^XMB(3.9,157,2,663,0)="""RTN"",""XTPMNEX7"",26,0)"
^XMB(3.9,157,2,664,0)=" ...S XTBSUBJ=$P(XTBDTA,U),XTBPRIO=$P(XTBDTA,U,2),XTBRECPT=$P(XTBDTA,U,3)"
^XMB(3.9,157,2,665,0)="""RTN"",""XTPMNEX7"",27,0)"
^XMB(3.9,157,2,666,0)=" ...I OLXTBCPL'=XTBCPLDT W !"
^XMB(3.9,157,2,667,0)="""RTN"",""XTPMNEX7"",28,0)"
^XMB(3.9,157,2,668,0)=" ...S Y=XTBCPLDT X ^DD(""DD"") S XTBCPLD1=Y"
^XMB(3.9,157,2,669,0)="""RTN"",""XTPMNEX7"",29,0)"
^XMB(3.9,157,2,670,0)=" ...W XTBCPLD1,?13,XTBPTNM,?27,XTBSUBJ,?55,XTBPRIO,?67,XTBRECPT,! S XTBCNT=XTBCNT+1"
^XMB(3.9,157,2,671,0)="""RTN"",""XTPMNEX7"",30,0)"
^XMB(3.9,157,2,672,0)=" ...S OLXTBCPL=XTBCPLDT"
^XMB(3.9,157,2,673,0)="""RTN"",""XTPMNEX7"",31,0)"
^XMB(3.9,157,2,674,0)=" ...X XTBUP"
^XMB(3.9,157,2,675,0)="""RTN"",""XTPMNEX7"",32,0)"
^XMB(3.9,157,2,676,0)=" X XTBUP"
^XMB(3.9,157,2,677,0)="""RTN"",""XTPMNEX7"",33,0)"
^XMB(3.9,157,2,678,0)=" ;"
^XMB(3.9,157,2,679,0)="""RTN"",""XTPMNEX7"",34,0)"
^XMB(3.9,157,2,680,0)="PREXIT W !!,""Number of patches: "",XTBCNT,!"
^XMB(3.9,157,2,681,0)="""RTN"",""XTPMNEX7"",35,0)"
^XMB(3.9,157,2,682,0)=" I IOST?1""C-"".E W !,""Press RETURN to end  "" R ANS:DTIME"
^XMB(3.9,157,2,683,0)="""RTN"",""XTPMNEX7"",36,0)"
^XMB(3.9,157,2,684,0)=" ;"
^XMB(3.9,157,2,685,0)="""RTN"",""XTPMNEX7"",37,0)"
^XMB(3.9,157,2,686,0)="EXIT D ^%ZISC"
^XMB(3.9,157,2,687,0)="""RTN"",""XTPMNEX7"",38,0)"
^XMB(3.9,157,2,688,0)=" K ^TMP($J),%ZIS,ANS,XTBANS,XTBCNT,XTBCPLDT,XTBDA,XTBINST,XTBLN,XTBPKG,XTBPRIO,XTBPTNM"
^XMB(3.9,157,2,689,0)="""RTN"",""XTPMNEX7"",39,0)"
^XMB(3.9,157,2,690,0)=" K XTBRECPT,XTBRUNDT,XTBSUBJ,XTBX,XTBXX,XTBDTA,XTBHDR,OLXTBCPL,PG,XTBPKFLV,XTBPKPTR,POP,XTBPTCVR,X,X1"
^XMB(3.9,157,2,691,0)="""RTN"",""XTPMNEX7"",40,0)"
^XMB(3.9,157,2,692,0)=" K Y,YY1,ZTDESC,ZTSK,ZTIO,ZTRTN,ZTSAVE,XTBCPLD1,%DT,XTBBDT,XTBEDT,XTBPSITE,XTBUP,IOP,XMY"
^XMB(3.9,157,2,693,0)="""RTN"",""XTPMNEX7"",41,0)"
^XMB(3.9,157,2,694,0)=" Q"
^XMB(3.9,157,2,695,0)="""RTN"",""XTPMNEX7"",42,0)"
^XMB(3.9,157,2,696,0)=" ;"
^XMB(3.9,157,2,697,0)="""RTN"",""XTPMNEX7"",43,0)"
^XMB(3.9,157,2,698,0)="SET S XTBPTNM=$P(XTBDTA,U,1),XTBSUBJ=$E($P(XTBDTA,U,7),1,26)"
^XMB(3.9,157,2,699,0)="""RTN"",""XTPMNEX7"",44,0)"
^XMB(3.9,157,2,700,0)=" S X=$P(XTBDTA,U,3),XTBPRIO=$S(X=""m"":""Mandatory"",X=""e"":""Emergency"",1:""Unknown"")"
^XMB(3.9,157,2,701,0)="""RTN"",""XTPMNEX7"",45,0)"
^XMB(3.9,157,2,702,0)=" S Y=$P(XTBDTA,U,2) X ^DD(""DD"") S XTBRECPT=Y"
^XMB(3.9,157,2,703,0)="""RTN"",""XTPMNEX7"",46,0)"
^XMB(3.9,157,2,704,0)=" S XTBCPLDT=$P(XTBDTA,U,9) ; compliance date"
^XMB(3.9,157,2,705,0)="""RTN"",""XTPMNEX7"",47,0)"
^XMB(3.9,157,2,706,0)=" S XTBLN=XTBLN+1,^TMP($J,XTBCPLDT,XTBPTNM,XTBLN)=XTBSUBJ_U_XTBPRIO_U_XTBRECPT"
^XMB(3.9,157,2,707,0)="""RTN"",""XTPMNEX7"",48,0)"
^XMB(3.9,157,2,708,0)=" Q"
^XMB(3.9,157,2,709,0)="""RTN"",""XTPMNEX7"",49,0)"
^XMB(3.9,157,2,710,0)=" ;"
^XMB(3.9,157,2,711,0)="""RTN"",""XTPMNEX7"",50,0)"
^XMB(3.9,157,2,712,0)="HDR I PG<1,IOST?1""C-"".E W @IOF"
^XMB(3.9,157,2,713,0)="""RTN"",""XTPMNEX7"",51,0)"
^XMB(3.9,157,2,714,0)=" S PG=PG+1"
^XMB(3.9,157,2,715,0)="""RTN"",""XTPMNEX7"",52,0)"
^XMB(3.9,157,2,716,0)=" W:PG>1 @IOF W !,XTBHDR,?(IOM-12),""Page: "",PG,!,""Run date: ""_XTBRUNDT,!!!"
^XMB(3.9,157,2,717,0)="""RTN"",""XTPMNEX7"",53,0)"
^XMB(3.9,157,2,718,0)=" W ""Compliance"",!,""Date"",?13,""Patch #"",?27,""Subject"",?55,""Priority"",?67,""Recpt Date"",!"
^XMB(3.9,157,2,719,0)="""RTN"",""XTPMNEX7"",54,0)"
^XMB(3.9,157,2,720,0)=" W ""----------"",?13,""-------"",?27,""-------"",?55,""--------"",?67,""----- ----"",!"
^XMB(3.9,157,2,721,0)="""RTN"",""XTPMNEX7"",55,0)"
^XMB(3.9,157,2,722,0)=" Q"
^XMB(3.9,157,2,723,0)="""RTN"",""XTPMNEX7"",56,0)"
^XMB(3.9,157,2,724,0)=" ;"
^XMB(3.9,157,2,725,0)="""RTN"",""XTPMNEX7"",57,0)"
^XMB(3.9,157,2,726,0)="PAUSE W !,""Press RETURN to continue or '^' to exit: "" R XTBANS:DTIME"
^XMB(3.9,157,2,727,0)="""RTN"",""XTPMNEX7"",58,0)"
^XMB(3.9,157,2,728,0)=" I XTBANS[U S (XTBLN,XTBCPLDT,XTBPTNM)=""ZZZZZ"""
^XMB(3.9,157,2,729,0)="""RTN"",""XTPMNEX7"",59,0)"
^XMB(3.9,157,2,730,0)=" Q"
^XMB(3.9,157,2,731,0)="""RTN"",""XTPMNEX7"",60,0)"
^XMB(3.9,157,2,732,0)=" ;"
^XMB(3.9,157,2,733,0)="""RTN"",""XTPMNEX7"",61,0)"
^XMB(3.9,157,2,734,0)="SITETSK ;compile a list from sites"
^XMB(3.9,157,2,735,0)="""RTN"",""XTPMNEX7"",62,0)"
^XMB(3.9,157,2,736,0)=" S XTBPSITE=1,IOP=""P-MESSAGE;80;60"",XMY(""TRAN.BA@NXT.KERNEL.FO-OAKLAND.MED.VA.GO"")="""""
^XMB(3.9,157,2,737,0)="""RTN"",""XTPMNEX7"",63,0)"
^XMB(3.9,157,2,738,0)=" S XTBHDR=""Patches Due Within Eight Days for ""_^DD(""SITE"")"
^XMB(3.9,157,2,739,0)="""RTN"",""XTPMNEX7"",64,0)"
^XMB(3.9,157,2,740,0)=" S XTBBDT=3010101,X=""T+8"",%DT="""" D ^%DT S XTBEDT=Y"
^XMB(3.9,157,2,741,0)="""RTN"",""XTPMNEX7"",65,0)"
^XMB(3.9,157,2,742,0)=" G RPT1"
^XMB(3.9,157,2,743,0)="""RTN"",""XTPMSTA2"")"
^XMB(3.9,157,2,744,0)="0^1^B20526817^B20410283"
^XMB(3.9,157,2,745,0)="""RTN"",""XTPMSTA2"",1,0)"
^XMB(3.9,157,2,746,0)="XTPMSTA2 ;OAK/BP - PRINT PATCH STATISTICS BY COMPLIANCE DATE; [1/4/06 9:33am]"
^XMB(3.9,157,2,747,0)="""RTN"",""XTPMSTA2"",2,0)"
^XMB(3.9,157,2,748,0)=" ;;7.3;TOOLKIT;**98,100**; Apr 25, 1995;Build 4"
^XMB(3.9,157,2,749,0)="""RTN"",""XTPMSTA2"",3,0)"
^XMB(3.9,157,2,750,0)=" ;"
^XMB(3.9,157,2,751,0)="""RTN"",""XTPMSTA2"",4,0)"
^XMB(3.9,157,2,752,0)=" S IOP=""HOME"" D ^%ZIS K IOP"
^XMB(3.9,157,2,753,0)="""RTN"",""XTPMSTA2"",5,0)"
^XMB(3.9,157,2,754,0)="EN W @IOF,""Patch Monitor Statistics By Compliance Date"",!!!"
^XMB(3.9,157,2,755,0)="""RTN"",""XTPMSTA2"",6,0)"
^XMB(3.9,157,2,756,0)=" ;"
^XMB(3.9,157,2,757,0)="""RTN"",""XTPMSTA2"",7,0)"
^XMB(3.9,157,2,758,0)="DATE W ! S %DT=""AEP"""
^XMB(3.9,157,2,759,0)="""RTN"",""XTPMSTA2"",8,0)"
^XMB(3.9,157,2,760,0)=" S %DT(""A"")=""Enter BEGINNING Compliance date: "" D ^%DT G:Y<0 EXIT S XTBBDT=Y X ^DD(""DD"") S XTBBDT1=Y"
^XMB(3.9,157,2,761,0)="""RTN"",""XTPMSTA2"",9,0)"
^XMB(3.9,157,2,762,0)=" S %DT=""AE"",%DT(""A"")=""     and ENDING Compliance date: "" D ^%DT G:Y<0 EXIT S XTBEDT=Y X ^DD(""DD"") S XTBEDT1=Y"
^XMB(3.9,157,2,763,0)="""RTN"",""XTPMSTA2"",10,0)"
^XMB(3.9,157,2,764,0)=" I XTBEDT<XTBBDT W !!,$C(7),""Starting date is later than ending date."",!! H 2 G DATE"
^XMB(3.9,157,2,765,0)="""RTN"",""XTPMSTA2"",11,0)"
^XMB(3.9,157,2,766,0)=" W !!,""Do you want to see the patch data"" S %=2 D YN^DICN S XTBVIEW=%"
^XMB(3.9,157,2,767,0)="""RTN"",""XTPMSTA2"",12,0)"
^XMB(3.9,157,2,768,0)=" ;"
^XMB(3.9,157,2,769,0)="""RTN"",""XTPMSTA2"",13,0)"
^XMB(3.9,157,2,770,0)="DEV W !! S %ZIS=""AEQ"" D ^%ZIS G:POP EXIT"
^XMB(3.9,157,2,771,0)="""RTN"",""XTPMSTA2"",14,0)"
^XMB(3.9,157,2,772,0)=" I $D(IO(""Q"")) S ZTIO=ION,ZTRTN=""SORT^XTPMSTA2"",ZTSAVE(""XTB*"")="""",ZTDESC=""Patch Monitor Statistics By Compliance Date"" D ^%ZTLOAD D HOME^%ZIS"
^XMB(3.9,157,2,773,0)="""RTN"",""XTPMSTA2"",15,0)"
^XMB(3.9,157,2,774,0)=" I $D(ZTSK) W !,""Queued as task #"",ZTSK H 2 G EXIT"
^XMB(3.9,157,2,775,0)="""RTN"",""XTPMSTA2"",16,0)"
^XMB(3.9,157,2,776,0)=" ;"
^XMB(3.9,157,2,777,0)="""RTN"",""XTPMSTA2"",17,0)"
^XMB(3.9,157,2,778,0)=" ; sort patches by compliance date"
^XMB(3.9,157,2,779,0)="""RTN"",""XTPMSTA2"",18,0)"
^XMB(3.9,157,2,780,0)="SORT U IO K ^TMP($J)"
^XMB(3.9,157,2,781,0)="""RTN"",""XTPMSTA2"",19,0)"
^XMB(3.9,157,2,782,0)=" F XTBCPLDT=(XTBBDT-.0001):0 S XTBCPLDT=$O(^XPD(9.9,""D"",XTBCPLDT)) Q:XTBCPLDT=""""!(XTBCPLDT>XTBEDT)  DO"
^XMB(3.9,157,2,783,0)="""RTN"",""XTPMSTA2"",20,0)"
^XMB(3.9,157,2,784,0)=" .F XTBDA=0:0 S XTBDA=$O(^XPD(9.9,""D"",XTBCPLDT,XTBDA)) Q:XTBDA=""""  DO"
^XMB(3.9,157,2,785,0)="""RTN"",""XTPMSTA2"",21,0)"
^XMB(3.9,157,2,786,0)=" ..S XTBDTA=$G(^XPD(9.9,XTBDA,0)) Q:XTBDTA="""""
^XMB(3.9,157,2,787,0)="""RTN"",""XTPMSTA2"",22,0)"
^XMB(3.9,157,2,788,0)=" ..S XTBPTNAM=$P(XTBDTA,U,1),XTBNMSP=$P($P(XTBDTA,U,4),"" - "",1) Q:XTBNMSP=""""  ;parent package missing in file"
^XMB(3.9,157,2,789,0)="""RTN"",""XTPMSTA2"",23,0)"
^XMB(3.9,157,2,790,0)=" ..S XTBRELDT=$P(XTBDTA,U,2),XTBPRIOR=$P(XTBDTA,U,3)"
^XMB(3.9,157,2,791,0)="""RTN"",""XTPMSTA2"",24,0)"
^XMB(3.9,157,2,792,0)=" ..S ^TMP($J,XTBCPLDT,XTBPTNAM,XTBDA)=XTBRELDT_U_XTBPRIOR"
^XMB(3.9,157,2,793,0)="""RTN"",""XTPMSTA2"",25,0)"
^XMB(3.9,157,2,794,0)="PRINT ; "
^XMB(3.9,157,2,795,0)="""RTN"",""XTPMSTA2"",26,0)"
^XMB(3.9,157,2,796,0)=" S Y=DT X ^DD(""DD"") S XTBCURDT=Y"
^XMB(3.9,157,2,797,0)="""RTN"",""XTPMSTA2"",27,0)"
^XMB(3.9,157,2,798,0)=" K XTBLINE S $P(XTBLINE,""-"",(IOM-2))=""-"""
^XMB(3.9,157,2,799,0)="""RTN"",""XTPMSTA2"",28,0)"
^XMB(3.9,157,2,800,0)=" S PG=0 D HDR ; first header"
^XMB(3.9,157,2,801,0)="""RTN"",""XTPMSTA2"",29,0)"
^XMB(3.9,157,2,802,0)=" S XTBPTNAM="""",(XTBTPTCH,XTBTLATE)=0"
^XMB(3.9,157,2,803,0)="""RTN"",""XTPMSTA2"",30,0)"
^XMB(3.9,157,2,804,0)=" F XTBCPLDT=0:0 S XTBCPLDT=$O(^TMP($J,XTBCPLDT)) Q:XTBCPLDT=""""  F  S XTBPTNAM=$O(^TMP($J,XTBCPLDT,XTBPTNAM)) Q:XTBPTNAM=""""  DO  Q:$D(XTBOUT)"
^XMB(3.9,157,2,805,0)="""RTN"",""XTPMSTA2"",31,0)"
^XMB(3.9,157,2,806,0)=" .F XTBDA=0:0 S XTBDA=$O(^TMP($J,XTBCPLDT,XTBPTNAM,XTBDA)) Q:XTBDA=""""  DO  Q:$D(XTBOUT)"
^XMB(3.9,157,2,807,0)="""RTN"",""XTPMSTA2"",32,0)"
^XMB(3.9,157,2,808,0)=" ..S XTBTPTCH=XTBTPTCH+1"
^XMB(3.9,157,2,809,0)="""RTN"",""XTPMSTA2"",33,0)"
^XMB(3.9,157,2,810,0)=" ..S XTBDTA=^TMP($J,XTBCPLDT,XTBPTNAM,XTBDA)"
^XMB(3.9,157,2,811,0)="""RTN"",""XTPMSTA2"",34,0)"
^XMB(3.9,157,2,812,0)=" ..S XTBRELDT=$P(XTBDTA,U),XTBPRIOR=$P(XTBDTA,U,2)"
^XMB(3.9,157,2,813,0)="""RTN"",""XTPMSTA2"",35,0)"
^XMB(3.9,157,2,814,0)=" ..S XTBRCVDT=$P($G(^XPD(9.9,XTBDA,0)),U,2)"
^XMB(3.9,157,2,815,0)="""RTN"",""XTPMSTA2"",36,0)"
^XMB(3.9,157,2,816,0)=" ..S XTBPTYPE=$P($G(^XPD(9.9,XTBDA,0)),U,10)"
^XMB(3.9,157,2,817,0)="""RTN"",""XTPMSTA2"",37,0)"
^XMB(3.9,157,2,818,0)=" ..I +XTBPTYPE=0 S D0=XTBDA D ^XTPMKPCF S XTBINSDT=X K D0"
^XMB(3.9,157,2,819,0)="""RTN"",""XTPMSTA2"",38,0)"
^XMB(3.9,157,2,820,0)=" ..I +XTBPTYPE=1 S XTBINSDT=$P($G(^XPD(9.9,XTBDA,0)),U,11)"
^XMB(3.9,157,2,821,0)="""RTN"",""XTPMSTA2"",39,0)"
^XMB(3.9,157,2,822,0)=" ..I XTBINSDT]"""" S X1=XTBINSDT,X2=XTBCPLDT D ^%DTC S XTBDAYLT=X"
^XMB(3.9,157,2,823,0)="""RTN"",""XTPMSTA2"",40,0)"
^XMB(3.9,157,2,824,0)=" ..I XTBINSDT="""" S X1=DT,X2=XTBCPLDT D ^%DTC S XTBDAYLT=X"
^XMB(3.9,157,2,825,0)="""RTN"",""XTPMSTA2"",41,0)"
^XMB(3.9,157,2,826,0)=" ..S Y=XTBINSDT X ^DD(""DD"") S XTBINSDT=Y"
^XMB(3.9,157,2,827,0)="""RTN"",""XTPMSTA2"",42,0)"
^XMB(3.9,157,2,828,0)=" ..S Y=XTBCPLDT X ^DD(""DD"") S XTBCPLDX=Y"
^XMB(3.9,157,2,829,0)="""RTN"",""XTPMSTA2"",43,0)"
^XMB(3.9,157,2,830,0)=" ..S Y=XTBRELDT X ^DD(""DD"") S XTBRELDT=Y"
^XMB(3.9,157,2,831,0)="""RTN"",""XTPMSTA2"",44,0)"
^XMB(3.9,157,2,832,0)=" ..S XTBPRIOR=$S(XTBPRIOR=""m"":""Mandatory"",XTBPRIOR=""e"":""Emergency"",1:""Unknown"")"
^XMB(3.9,157,2,833,0)="""RTN"",""XTPMSTA2"",45,0)"
^XMB(3.9,157,2,834,0)=" ..I XTBVIEW=1 W XTBCPLDX,?14,XTBPTNAM,?27,XTBRELDT,?41,XTBINSDT,?55,XTBPRIOR"
^XMB(3.9,157,2,835,0)="""RTN"",""XTPMSTA2"",46,0)"
^XMB(3.9,157,2,836,0)=" ..I XTBVIEW=1,XTBDAYLT>0 W ?67,$J(XTBDAYLT,3,0)_$S(XTBDAYLT>1:"" days"",1:"" day"")"
^XMB(3.9,157,2,837,0)="""RTN"",""XTPMSTA2"",47,0)"
^XMB(3.9,157,2,838,0)=" ..I XTBDAYLT>0 S XTBTLATE=XTBTLATE+1"
^XMB(3.9,157,2,839,0)="""RTN"",""XTPMSTA2"",48,0)"
^XMB(3.9,157,2,840,0)=" ..I XTBVIEW=1 W ! I $Y>(IOSL-6),IOST?1""C-"".E D PAUSE Q:$D(XTBOUT)"
^XMB(3.9,157,2,841,0)="""RTN"",""XTPMSTA2"",49,0)"
^XMB(3.9,157,2,842,0)=" ..I XTBVIEW=1 I $Y>(IOSL-6) D HDR"
^XMB(3.9,157,2,843,0)="""RTN"",""XTPMSTA2"",50,0)"
^XMB(3.9,157,2,844,0)=" G:$D(XTBOUT) EXIT"
^XMB(3.9,157,2,845,0)="""RTN"",""XTPMSTA2"",51,0)"
^XMB(3.9,157,2,846,0)=" I $Y>(IOSL-6),IOST?1""C-"".E D HDR"
^XMB(3.9,157,2,847,0)="""RTN"",""XTPMSTA2"",52,0)"
^XMB(3.9,157,2,848,0)=" W !!?6,""Totals patches received for date range: "",XTBTPTCH,!"
^XMB(3.9,157,2,849,0)="""RTN"",""XTPMSTA2"",53,0)"
^XMB(3.9,157,2,850,0)=" W ""Total patches installed past compliance date: "",XTBTLATE,!!"
^XMB(3.9,157,2,851,0)="""RTN"",""XTPMSTA2"",54,0)"
^XMB(3.9,157,2,852,0)=" S XTBDIVOK=0 I XTBTPTCH>0 S XTBDIVOK=1"
^XMB(3.9,157,2,853,0)="""RTN"",""XTPMSTA2"",55,0)"
^XMB(3.9,157,2,854,0)=" W ?25,""Delinquent patch % : "",$S(XTBDIVOK=1:$J((XTBTLATE/XTBTPTCH*100),6,2),1:100)_"" %"",!"
^XMB(3.9,157,2,855,0)="""RTN"",""XTPMSTA2"",56,0)"
^XMB(3.9,157,2,856,0)=" W ?25,""      Compliance % : "",$S(XTBDIVOK=1:$J(100-(XTBTLATE/XTBTPTCH*100),6,2),1:100),"" %"",!"
^XMB(3.9,157,2,857,0)="""RTN"",""XTPMSTA2"",57,0)"
^XMB(3.9,157,2,858,0)=" I IOST?1""C-"".E K XTBANS W !!,""Press ENTER to end "" R XTBANS:DTIME"
^XMB(3.9,157,2,859,0)="""RTN"",""XTPMSTA2"",58,0)"
^XMB(3.9,157,2,860,0)=" ;"
^XMB(3.9,157,2,861,0)="""RTN"",""XTPMSTA2"",59,0)"
^XMB(3.9,157,2,862,0)="EXIT I IOST?1""C-"".E W @IOF,!"
^XMB(3.9,157,2,863,0)="""RTN"",""XTPMSTA2"",60,0)"
^XMB(3.9,157,2,864,0)=" D ^%ZISC"
^XMB(3.9,157,2,865,0)="""RTN"",""XTPMSTA2"",61,0)"
^XMB(3.9,157,2,866,0)=" K %,%DT,%ZIS,XTBNMSP,XTBANS,XTBBDT,XTBBDT1,XTBCPLDT,XTBCPLDX,XTBDA,XTBEDT,XTBEDT1,XTBDAYLT"
^XMB(3.9,157,2,867,0)="""RTN"",""XTPMSTA2"",62,0)"
^XMB(3.9,157,2,868,0)=" K XTBINSDT,XTBLINE,XTBNMSP,XTBOLDNM,XTBNMSP,XTBPTNAM,XTBPTYPE,XTBDTA,XTBGPDA"
^XMB(3.9,157,2,869,0)="""RTN"",""XTPMSTA2"",63,0)"
^XMB(3.9,157,2,870,0)=" K XTBRCVDT,XTBTLATE,XTBTPTCH,D0,DIC,PG,POP,X,X1,X2,Y,ZTDESC,ZTIO,ZTRTN,ZTSAVE,%T,%Y"
^XMB(3.9,157,2,871,0)="""RTN"",""XTPMSTA2"",64,0)"
^XMB(3.9,157,2,872,0)=" K ^TMP($J),XTBOUT,XTBPGF,XTBOLGRP,ZTSK,XTBRELDT,XTBPRIOR,XTBCURDT,XTBDIVOK,XTBVIEW"
^XMB(3.9,157,2,873,0)="""RTN"",""XTPMSTA2"",65,0)"
^XMB(3.9,157,2,874,0)=" Q"
^XMB(3.9,157,2,875,0)="""RTN"",""XTPMSTA2"",66,0)"
^XMB(3.9,157,2,876,0)=" ;"
^XMB(3.9,157,2,877,0)="""RTN"",""XTPMSTA2"",67,0)"
^XMB(3.9,157,2,878,0)="HDR S PG=PG+1 I IOST?1""P-"".E,PG>1 W @IOF"
^XMB(3.9,157,2,879,0)="""RTN"",""XTPMSTA2"",68,0)"
^XMB(3.9,157,2,880,0)=" I IOST?1""C-"".E W @IOF"
^XMB(3.9,157,2,881,0)="""RTN"",""XTPMSTA2"",69,0)"
^XMB(3.9,157,2,882,0)=" W XTBCURDT S X=""Patch Statistical Report for ""_^DD(""SITE"")"
^XMB(3.9,157,2,883,0)="""RTN"",""XTPMSTA2"",70,0)"
^XMB(3.9,157,2,884,0)=" W ?(IOM-$L(X)\2),X,?(IOM-12),""Page: "",PG,!,?31,""By Compliance Date"",!"
^XMB(3.9,157,2,885,0)="""RTN"",""XTPMSTA2"",71,0)"
^XMB(3.9,157,2,886,0)=" S X=""Date range: ""_XTBBDT1_"" to ""_XTBEDT1 W ?(IOM-$L(X)\2),X,!"
^XMB(3.9,157,2,887,0)="""RTN"",""XTPMSTA2"",72,0)"
^XMB(3.9,157,2,888,0)=" W !,""Compliance"",?14,""Patch"",?27,""Release"",?41,""Install"",?67,""# Days"",!"
^XMB(3.9,157,2,889,0)="""RTN"",""XTPMSTA2"",73,0)"
^XMB(3.9,157,2,890,0)=" W ""Date"",?14,""Number"",?27,""Date"",?41,""Date"",?55,""Priority"",?67,""Delinquent"",!,XTBLINE,!"
^XMB(3.9,157,2,891,0)="""RTN"",""XTPMSTA2"",74,0)"
^XMB(3.9,157,2,892,0)=" Q"
^XMB(3.9,157,2,893,0)="""RTN"",""XTPMSTA2"",75,0)"
^XMB(3.9,157,2,894,0)=" ;"
^XMB(3.9,157,2,895,0)="""RTN"",""XTPMSTA2"",76,0)"
^XMB(3.9,157,2,896,0)="PAUSE Q:IOST'?1""C-"".E"
^XMB(3.9,157,2,897,0)="""RTN"",""XTPMSTA2"",77,0)"
^XMB(3.9,157,2,898,0)=" K XTBANS,XTBOUT W !!,""Press ENTER to continue or '^' to end "" R XTBANS:DTIME"
^XMB(3.9,157,2,899,0)="""RTN"",""XTPMSTA2"",78,0)"
^XMB(3.9,157,2,900,0)=" I XTBANS[U!('$T) S (XTBNMSP,XTBPTNAM,XTBCPLDT,XTBDA)=""99999999"",XTBOUT=1"
^XMB(3.9,157,2,901,0)="""RTN"",""XTPMSTA2"",79,0)"
^XMB(3.9,157,2,902,0)=" Q"
^XMB(3.9,157,2,903,0)="""RTN"",""XTPMSTAT"")"
^XMB(3.9,157,2,904,0)="0^4^B31144334^B31021874"
^XMB(3.9,157,2,905,0)="""RTN"",""XTPMSTAT"",1,0)"
^XMB(3.9,157,2,906,0)="XTPMSTAT ;OAK/BP - PRINT PATCH STATISTICS BY REPORT GROUP; 2/7/06"
^XMB(3.9,157,2,907,0)="""RTN"",""XTPMSTAT"",2,0)"
^XMB(3.9,157,2,908,0)=" ;;7.3;TOOLKIT;**98,100**; Apr 25, 1995;Build 4"
^XMB(3.9,157,2,909,0)="""RTN"",""XTPMSTAT"",3,0)"
^XMB(3.9,157,2,910,0)=" ;"
^XMB(3.9,157,2,911,0)="""RTN"",""XTPMSTAT"",4,0)"
^XMB(3.9,157,2,912,0)=" S IOP=""HOME"" D ^%ZIS K IOP"
^XMB(3.9,157,2,913,0)="""RTN"",""XTPMSTAT"",5,0)"
^XMB(3.9,157,2,914,0)="EN W @IOF,""Patch Monitor Statistics"",!!!"
^XMB(3.9,157,2,915,0)="""RTN"",""XTPMSTAT"",6,0)"
^XMB(3.9,157,2,916,0)=" W ""Please select the REPORTING GROUP.  You may select as many groups as you"",!"
^XMB(3.9,157,2,917,0)="""RTN"",""XTPMSTAT"",7,0)"
^XMB(3.9,157,2,918,0)=" W ""wish for each report.  Each group will be reported in a separate section."",!!!"
^XMB(3.9,157,2,919,0)="""RTN"",""XTPMSTAT"",8,0)"
^XMB(3.9,157,2,920,0)=" K TMP(""XTBGRP""),TMP(""XTBPKG"")"
^XMB(3.9,157,2,921,0)="""RTN"",""XTPMSTAT"",9,0)"
^XMB(3.9,157,2,922,0)=" N DIC,DA S DIC(0)=""AEQM"",DIC=""^XPD(9.95,"" D ^DIC S DA(1)=+Y"
^XMB(3.9,157,2,923,0)="""RTN"",""XTPMSTAT"",10,0)"
^XMB(3.9,157,2,924,0)=" I DA(1)>0 N DIC S DIC(0)=""AEQM"",DIC=""^XPD(9.95,DA(1),2,"" F  D ^DIC Q:Y<0  DO"
^XMB(3.9,157,2,925,0)="""RTN"",""XTPMSTAT"",11,0)"
^XMB(3.9,157,2,926,0)=" .I $D(TMP(""XTBGRP"",$P(Y,U,2))) W $C(7),"". . . You already have that one"" Q"
^XMB(3.9,157,2,927,0)="""RTN"",""XTPMSTAT"",12,0)"
^XMB(3.9,157,2,928,0)=" .S TMP(""XTBGRP"",$P(Y,U,2))=+Y"
^XMB(3.9,157,2,929,0)="""RTN"",""XTPMSTAT"",13,0)"
^XMB(3.9,157,2,930,0)=" G:X[U EXIT"
^XMB(3.9,157,2,931,0)="""RTN"",""XTPMSTAT"",14,0)"
^XMB(3.9,157,2,932,0)=" G:'$D(TMP(""XTBGRP"")) EXIT"
^XMB(3.9,157,2,933,0)="""RTN"",""XTPMSTAT"",15,0)"
^XMB(3.9,157,2,934,0)=" W !!,""Do you want a new form/screen between REPORTING GROUPS"" S %=1 D YN^DICN S XTBPGF=%"
^XMB(3.9,157,2,935,0)="""RTN"",""XTPMSTAT"",16,0)"
^XMB(3.9,157,2,936,0)=" ;"
^XMB(3.9,157,2,937,0)="""RTN"",""XTPMSTAT"",17,0)"
^XMB(3.9,157,2,938,0)="DATE W ! S %DT=""AEP"""
^XMB(3.9,157,2,939,0)="""RTN"",""XTPMSTAT"",18,0)"
^XMB(3.9,157,2,940,0)=" S %DT(""A"")=""Enter BEGINNING Compliance date: "" D ^%DT G:Y<0 EXIT S XTBBDT=Y X ^DD(""DD"") S XTBBDT1=Y"
^XMB(3.9,157,2,941,0)="""RTN"",""XTPMSTAT"",19,0)"
^XMB(3.9,157,2,942,0)=" S %DT=""AE"",%DT(""A"")=""     and ENDING Compliance date: "" D ^%DT G:Y<0 EXIT S XTBEDT=Y X ^DD(""DD"") S XTBEDT1=Y"
^XMB(3.9,157,2,943,0)="""RTN"",""XTPMSTAT"",20,0)"
^XMB(3.9,157,2,944,0)=" I XTBEDT<XTBBDT W !!,$C(7),""Starting date is later than ending date."",!! H 2 G DATE"
^XMB(3.9,157,2,945,0)="""RTN"",""XTPMSTAT"",21,0)"
^XMB(3.9,157,2,946,0)=" ;"
^XMB(3.9,157,2,947,0)="""RTN"",""XTPMSTAT"",22,0)"
^XMB(3.9,157,2,948,0)="DEV W !! S %ZIS=""AEQ"" D ^%ZIS G:POP EXIT"
^XMB(3.9,157,2,949,0)="""RTN"",""XTPMSTAT"",23,0)"
^XMB(3.9,157,2,950,0)=" I $D(IO(""Q"")) S ZTIO=ION,ZTRTN=""SORT^XTPMSTAT"",ZTSAVE(""XTB*"")="""",ZTSAVE(""TMP*"")="""",ZTDESC=""Patch Monitor Statistics"" D ^%ZTLOAD D HOME^%ZIS"
^XMB(3.9,157,2,951,0)="""RTN"",""XTPMSTAT"",24,0)"
^XMB(3.9,157,2,952,0)=" I $D(ZTSK) W !,""Queued as task #"",ZTSK H 2 G EXIT"
^XMB(3.9,157,2,953,0)="""RTN"",""XTPMSTAT"",25,0)"
^XMB(3.9,157,2,954,0)=" ;"
^XMB(3.9,157,2,955,0)="""RTN"",""XTPMSTAT"",26,0)"
^XMB(3.9,157,2,956,0)=" ; sort patches by compliance date"
^XMB(3.9,157,2,957,0)="""RTN"",""XTPMSTAT"",27,0)"
^XMB(3.9,157,2,958,0)="SORT U IO F XTBCPLDT=(XTBBDT-.0001):0 S XTBCPLDT=$O(^XPD(9.9,""D"",XTBCPLDT)) Q:XTBCPLDT=""""!(XTBCPLDT>XTBEDT)  DO"
^XMB(3.9,157,2,959,0)="""RTN"",""XTPMSTAT"",28,0)"
^XMB(3.9,157,2,960,0)=" .F XTBDA=0:0 S XTBDA=$O(^XPD(9.9,""D"",XTBCPLDT,XTBDA)) Q:XTBDA=""""  DO"
^XMB(3.9,157,2,961,0)="""RTN"",""XTPMSTAT"",29,0)"
^XMB(3.9,157,2,962,0)=" ..S XTBDTA=$G(^XPD(9.9,XTBDA,0)) Q:XTBDTA="""""
^XMB(3.9,157,2,963,0)="""RTN"",""XTPMSTAT"",30,0)"
^XMB(3.9,157,2,964,0)=" ..S XTBPTNAM=$P(XTBDTA,U,1),XTBNMSP=$P($P(XTBDTA,U,4),"" - "",1) Q:XTBNMSP=""""  ;parent package missing in file"
^XMB(3.9,157,2,965,0)="""RTN"",""XTPMSTAT"",31,0)"
^XMB(3.9,157,2,966,0)=" ..S XTBRELDT=$P(XTBDTA,U,2),XTBPRIOR=$P(XTBDTA,U,3)"
^XMB(3.9,157,2,967,0)="""RTN"",""XTPMSTAT"",32,0)"
^XMB(3.9,157,2,968,0)=" ..S TMP(""XTBPKG"",XTBNMSP,XTBCPLDT,XTBPTNAM,XTBDA)=XTBRELDT_U_XTBPRIOR"
^XMB(3.9,157,2,969,0)="""RTN"",""XTPMSTAT"",33,0)"
^XMB(3.9,157,2,970,0)="PRINT ; read and print sorted groups"
^XMB(3.9,157,2,971,0)="""RTN"",""XTPMSTAT"",34,0)"
^XMB(3.9,157,2,972,0)=" S Y=DT X ^DD(""DD"") S XTBCURDT=Y"
^XMB(3.9,157,2,973,0)="""RTN"",""XTPMSTAT"",35,0)"
^XMB(3.9,157,2,974,0)=" K XTBLINE S $P(XTBLINE,""-"",(IOM-2))=""-"""
^XMB(3.9,157,2,975,0)="""RTN"",""XTPMSTAT"",36,0)"
^XMB(3.9,157,2,976,0)=" S PG=0,XTBGRP="""",XTBGRP=$O(TMP(""XTBGRP"",XTBGRP)) G:XTBGRP="""" EXIT D HDR ; first header"
^XMB(3.9,157,2,977,0)="""RTN"",""XTPMSTAT"",37,0)"
^XMB(3.9,157,2,978,0)=" S (XTBGRP,XTBNMSP,XTBPTNAM,XTBOLDNM,XTBOLGRP)="""",(XTBTPTCH,XTBTLATE)=0"
^XMB(3.9,157,2,979,0)="""RTN"",""XTPMSTAT"",38,0)"
^XMB(3.9,157,2,980,0)=" F  S XTBGRP=$O(TMP(""XTBGRP"",XTBGRP)) Q:XTBGRP=""""  S XTBGPDA=TMP(""XTBGRP"",XTBGRP)  DO  Q:$D(XTBOUT)"
^XMB(3.9,157,2,981,0)="""RTN"",""XTPMSTAT"",39,0)"
^XMB(3.9,157,2,982,0)=" .; read param file for monitored groups"
^XMB(3.9,157,2,983,0)="""RTN"",""XTPMSTAT"",40,0)"
^XMB(3.9,157,2,984,0)=" .F  S XTBNMSP=$O(^XPD(9.95,1,2,XTBGPDA,1,""B"",XTBNMSP)) Q:XTBNMSP=""""  I $D(TMP(""XTBPKG"",XTBNMSP)) DO  Q:$D(XTBOUT)"
^XMB(3.9,157,2,985,0)="""RTN"",""XTPMSTAT"",41,0)"
^XMB(3.9,157,2,986,0)=" ..; read sorted namespaces"
^XMB(3.9,157,2,987,0)="""RTN"",""XTPMSTAT"",42,0)"
^XMB(3.9,157,2,988,0)=" ..F XTBCPLDT=0:0 S XTBCPLDT=$O(TMP(""XTBPKG"",XTBNMSP,XTBCPLDT)) Q:XTBCPLDT=""""  F  S XTBPTNAM=$O(TMP(""XTBPKG"",XTBNMSP,XTBCPLDT,XTBPTNAM)) Q:XTBPTNAM=""""  DO  Q:$D(XTBOUT)"
^XMB(3.9,157,2,989,0)="""RTN"",""XTPMSTAT"",43,0)"
^XMB(3.9,157,2,990,0)=" ...F XTBDA=0:0 S XTBDA=$O(TMP(""XTBPKG"",XTBNMSP,XTBCPLDT,XTBPTNAM,XTBDA)) Q:XTBDA=""""  DO  Q:$D(XTBOUT)"
^XMB(3.9,157,2,991,0)="""RTN"",""XTPMSTAT"",44,0)"
^XMB(3.9,157,2,992,0)=" ....S XTBTPTCH=XTBTPTCH+1"
^XMB(3.9,157,2,993,0)="""RTN"",""XTPMSTAT"",45,0)"
^XMB(3.9,157,2,994,0)=" ....S XTBDTA=TMP(""XTBPKG"",XTBNMSP,XTBCPLDT,XTBPTNAM,XTBDA)"
^XMB(3.9,157,2,995,0)="""RTN"",""XTPMSTAT"",46,0)"
^XMB(3.9,157,2,996,0)=" ....S XTBRELDT=$P(XTBDTA,U),XTBPRIOR=$P(XTBDTA,U,2)"
^XMB(3.9,157,2,997,0)="""RTN"",""XTPMSTAT"",47,0)"
^XMB(3.9,157,2,998,0)=" ....S XTBRCVDT=$P($G(^XPD(9.9,XTBDA,0)),U,2)"
^XMB(3.9,157,2,999,0)="""RTN"",""XTPMSTAT"",48,0)"
^XMB(3.9,157,2,1000,0)=" ....S XTBPTYPE=$P($G(^XPD(9.9,XTBDA,0)),U,10)"
^XMB(3.9,157,2,1001,0)="""RTN"",""XTPMSTAT"",49,0)"
^XMB(3.9,157,2,1002,0)=" ....I +XTBPTYPE=0 S D0=XTBDA D ^XTPMKPCF S XTBINSDT=X K D0"
^XMB(3.9,157,2,1003,0)="""RTN"",""XTPMSTAT"",50,0)"
^XMB(3.9,157,2,1004,0)=" ....I +XTBPTYPE=1 S XTBINSDT=$P($G(^XPD(9.9,XTBDA,0)),U,11)"
^XMB(3.9,157,2,1005,0)="""RTN"",""XTPMSTAT"",51,0)"
^XMB(3.9,157,2,1006,0)=" ....I XTBINSDT]"""" S X1=XTBINSDT,X2=XTBCPLDT D ^%DTC S XTBDAYLT=X"
^XMB(3.9,157,2,1007,0)="""RTN"",""XTPMSTAT"",52,0)"
^XMB(3.9,157,2,1008,0)=" ....I XTBINSDT="""" S X1=DT,X2=XTBCPLDT D ^%DTC S XTBDAYLT=X"
^XMB(3.9,157,2,1009,0)="""RTN"",""XTPMSTAT"",53,0)"
^XMB(3.9,157,2,1010,0)=" ....S XTBGRPHD=""Report group: ""_XTBGRP"
^XMB(3.9,157,2,1011,0)="""RTN"",""XTPMSTAT"",54,0)"
^XMB(3.9,157,2,1012,0)=" ....I XTBOLGRP="""",PG=1 W XTBGRPHD,!!"
^XMB(3.9,157,2,1013,0)="""RTN"",""XTPMSTAT"",55,0)"
^XMB(3.9,157,2,1014,0)=" ....I XTBOLDNM'="""",XTBNMSP'=XTBOLDNM W !"
^XMB(3.9,157,2,1015,0)="""RTN"",""XTPMSTAT"",56,0)"
^XMB(3.9,157,2,1016,0)=" ....I XTBOLDNM'="""",XTBGRP'=XTBOLGRP,XTBPGF=1 D:IOST?1""C-"".E PAUSE Q:$D(XTBOUT)  D HDR W XTBGRPHD,!!"
^XMB(3.9,157,2,1017,0)="""RTN"",""XTPMSTAT"",57,0)"
^XMB(3.9,157,2,1018,0)=" ....I XTBOLDNM'="""",XTBGRP'=XTBOLGRP,XTBPGF=0 W !,XTBGRPHD,!!"
^XMB(3.9,157,2,1019,0)="""RTN"",""XTPMSTAT"",58,0)"
^XMB(3.9,157,2,1020,0)=" ....I $Y>(IOSL-6),IOST?1""C-"".E D PAUSE Q:$D(XTBOUT)  D HDR I XTBGRP'=XTBOLGRP W XTBGRPHD,!!"
^XMB(3.9,157,2,1021,0)="""RTN"",""XTPMSTAT"",59,0)"
^XMB(3.9,157,2,1022,0)=" ....S Y=XTBINSDT X ^DD(""DD"") S XTBINSDT=Y"
^XMB(3.9,157,2,1023,0)="""RTN"",""XTPMSTAT"",60,0)"
^XMB(3.9,157,2,1024,0)=" ....S Y=XTBCPLDT X ^DD(""DD"") S XTBCPLDX=Y"
^XMB(3.9,157,2,1025,0)="""RTN"",""XTPMSTAT"",61,0)"
^XMB(3.9,157,2,1026,0)=" ....S Y=XTBRELDT X ^DD(""DD"") S XTBRELDT=Y"
^XMB(3.9,157,2,1027,0)="""RTN"",""XTPMSTAT"",62,0)"
^XMB(3.9,157,2,1028,0)=" ....S XTBPRIOR=$S(XTBPRIOR=""m"":""Mandatory"",XTBPRIOR=""e"":""Emergency"",1:""Unknown"")"
^XMB(3.9,157,2,1029,0)="""RTN"",""XTPMSTAT"",63,0)"
^XMB(3.9,157,2,1030,0)=" ....W XTBCPLDX,?14,XTBPTNAM,?27,XTBRELDT,?41,XTBINSDT,?55,XTBPRIOR"
^XMB(3.9,157,2,1031,0)="""RTN"",""XTPMSTAT"",64,0)"
^XMB(3.9,157,2,1032,0)=" ....I XTBDAYLT>0 W ?67,$J(XTBDAYLT,3,0)_$S(XTBDAYLT>1:"" days"",1:"" day"") S XTBTLATE=XTBTLATE+1"
^XMB(3.9,157,2,1033,0)="""RTN"",""XTPMSTAT"",65,0)"
^XMB(3.9,157,2,1034,0)=" ....W ! S XTBOLDNM=XTBNMSP,XTBOLGRP=XTBGRP"
^XMB(3.9,157,2,1035,0)="""RTN"",""XTPMSTAT"",66,0)"
^XMB(3.9,157,2,1036,0)=" ....I $Y>(IOSL-6),IOST?1""C-"".E D PAUSE Q:$D(XTBOUT)"
^XMB(3.9,157,2,1037,0)="""RTN"",""XTPMSTAT"",67,0)"
^XMB(3.9,157,2,1038,0)=" ....I $Y>(IOSL-6) D HDR I XTBGRP'=XTBOLGRP W XTBGRPHD,!!"
^XMB(3.9,157,2,1039,0)="""RTN"",""XTPMSTAT"",68,0)"
^XMB(3.9,157,2,1040,0)=" G:$D(XTBOUT) EXIT"
^XMB(3.9,157,2,1041,0)="""RTN"",""XTPMSTAT"",69,0)"
^XMB(3.9,157,2,1042,0)=" I $Y>(IOSL-6),IOST?1""C-"".E D HDR"
^XMB(3.9,157,2,1043,0)="""RTN"",""XTPMSTAT"",70,0)"
^XMB(3.9,157,2,1044,0)=" W !!?6,""Totals patches received for date range: "",XTBTPTCH,!"
^XMB(3.9,157,2,1045,0)="""RTN"",""XTPMSTAT"",71,0)"
^XMB(3.9,157,2,1046,0)=" W ""Total patches installed past compliance date: "",XTBTLATE,!!"
^XMB(3.9,157,2,1047,0)="""RTN"",""XTPMSTAT"",72,0)"
^XMB(3.9,157,2,1048,0)=" S XTBDIVOK=0 I XTBTPTCH>0 S XTBDIVOK=1"
^XMB(3.9,157,2,1049,0)="""RTN"",""XTPMSTAT"",73,0)"
^XMB(3.9,157,2,1050,0)=" W ?25,""Delinquent patch % : "",$S(XTBDIVOK=1:$J((XTBTLATE/XTBTPTCH*100),6,2),1:0)_"" %"",!"
^XMB(3.9,157,2,1051,0)="""RTN"",""XTPMSTAT"",74,0)"
^XMB(3.9,157,2,1052,0)=" W ?25,""      Compliance % : "",$S(XTBDIVOK=1:$J(100-(XTBTLATE/XTBTPTCH*100),6,2),1:0),"" %"",!"
^XMB(3.9,157,2,1053,0)="""RTN"",""XTPMSTAT"",75,0)"
^XMB(3.9,157,2,1054,0)=" I IOST?1""C-"".E K XTBANS W !!,""Press ENTER to end "" R XTBANS:DTIME"
^XMB(3.9,157,2,1055,0)="""RTN"",""XTPMSTAT"",76,0)"
^XMB(3.9,157,2,1056,0)=" ;"
^XMB(3.9,157,2,1057,0)="""RTN"",""XTPMSTAT"",77,0)"
^XMB(3.9,157,2,1058,0)="EXIT I IOST?1""C-"".E W @IOF,!"
^XMB(3.9,157,2,1059,0)="""RTN"",""XTPMSTAT"",78,0)"
^XMB(3.9,157,2,1060,0)=" D ^%ZISC"
^XMB(3.9,157,2,1061,0)="""RTN"",""XTPMSTAT"",79,0)"
^XMB(3.9,157,2,1062,0)=" K %,%DT,%ZIS,XTBNMSP,XTBANS,XTBBDT,XTBBDT1,XTBCPLDT,XTBCPLDX,XTBDA,XTBEDT,XTBEDT1,XTBDAYLT,TMP"
^XMB(3.9,157,2,1063,0)="""RTN"",""XTPMSTAT"",80,0)"
^XMB(3.9,157,2,1064,0)=" K XTBGRPDA,XTBGRP,XTBINSDT,XTBLINE,XTBNMSP,XTBOLDNM,XTBNMSP,XTBPTNAM,XTBPTYPE,XTBDTA,XTBGPDA"
^XMB(3.9,157,2,1065,0)="""RTN"",""XTPMSTAT"",81,0)"
^XMB(3.9,157,2,1066,0)=" K XTBRCVDT,XTBTLATE,XTBTPTCH,D0,DIC,PG,POP,X,X1,X2,Y,ZTDESC,ZTIO,ZTRTN,ZTSAVE,%T,%Y,XTBGRPHD"
^XMB(3.9,157,2,1067,0)="""RTN"",""XTPMSTAT"",82,0)"
^XMB(3.9,157,2,1068,0)=" K TMP(""XTBGRP""),TMP(""XTBPKG""),XTBOUT,XTBPGF,XTBOLGRP,ZTSK,XTBRELDT,XTBPRIOR,XTBCURDT,XTBDIVOK"
^XMB(3.9,157,2,1069,0)="""RTN"",""XTPMSTAT"",83,0)"
^XMB(3.9,157,2,1070,0)=" Q"
^XMB(3.9,157,2,1071,0)="""RTN"",""XTPMSTAT"",84,0)"
^XMB(3.9,157,2,1072,0)=" ;"
^XMB(3.9,157,2,1073,0)="""RTN"",""XTPMSTAT"",85,0)"
^XMB(3.9,157,2,1074,0)="HDR S PG=PG+1 I IOST?1""P-"".E,PG>1 W @IOF"
^XMB(3.9,157,2,1075,0)="""RTN"",""XTPMSTAT"",86,0)"
^XMB(3.9,157,2,1076,0)=" I IOST?1""C-"".E W @IOF"
^XMB(3.9,157,2,1077,0)="""RTN"",""XTPMSTAT"",87,0)"
^XMB(3.9,157,2,1078,0)=" W XTBCURDT S X=""Patch Statistical Report for ""_^DD(""SITE"")"
^XMB(3.9,157,2,1079,0)="""RTN"",""XTPMSTAT"",88,0)"
^XMB(3.9,157,2,1080,0)=" W ?(IOM-$L(X)\2),X,?(IOM-12),""Page: "",PG,!"
^XMB(3.9,157,2,1081,0)="""RTN"",""XTPMSTAT"",89,0)"
^XMB(3.9,157,2,1082,0)=" S X=""Date range: ""_XTBBDT1_"" to ""_XTBEDT1 W ?(IOM-$L(X)\2),X,!"
^XMB(3.9,157,2,1083,0)="""RTN"",""XTPMSTAT"",90,0)"
^XMB(3.9,157,2,1084,0)=" W !,""Compliance"",?14,""Patch"",?27,""Release"",?41,""Install"",?67,""# Days"",!"
^XMB(3.9,157,2,1085,0)="""RTN"",""XTPMSTAT"",91,0)"
^XMB(3.9,157,2,1086,0)=" W ""Date"",?14,""Number"",?27,""Date"",?41,""Date"",?55,""Priority"",?67,""Delinquent"",!,XTBLINE,!"
^XMB(3.9,157,2,1087,0)="""RTN"",""XTPMSTAT"",92,0)"
^XMB(3.9,157,2,1088,0)=" Q"
^XMB(3.9,157,2,1089,0)="""RTN"",""XTPMSTAT"",93,0)"
^XMB(3.9,157,2,1090,0)=" ;"
^XMB(3.9,157,2,1091,0)="""RTN"",""XTPMSTAT"",94,0)"
^XMB(3.9,157,2,1092,0)="PAUSE Q:IOST'?1""C-"".E"
^XMB(3.9,157,2,1093,0)="""RTN"",""XTPMSTAT"",95,0)"
^XMB(3.9,157,2,1094,0)=" K XTBANS,XTBOUT W !!,""Press ENTER to continue or '^' to end "" R XTBANS:DTIME"
^XMB(3.9,157,2,1095,0)="""RTN"",""XTPMSTAT"",96,0)"
^XMB(3.9,157,2,1096,0)=" I XTBANS[U!('$T) S (XTBNMSP,XTBPTNAM,XTBCPLDT,XTBDA)=""ZZZZZZ"",XTBOUT=1"
^XMB(3.9,157,2,1097,0)="""RTN"",""XTPMSTAT"",97,0)"
^XMB(3.9,157,2,1098,0)=" Q"
^XMB(3.9,157,2,1099,0)="""RTN"",""XTRUTL"")"
^XMB(3.9,157,2,1100,0)="0^6^B26604531^B19842806"
^XMB(3.9,157,2,1101,0)="""RTN"",""XTRUTL"",1,0)"
^XMB(3.9,157,2,1102,0)="XTRUTL ;ISCSF/RWF - Developer Routine Utilities ;3/21/2006 2:50PM"
^XMB(3.9,157,2,1103,0)="""RTN"",""XTRUTL"",2,0)"
^XMB(3.9,157,2,1104,0)=" ;;7.3;TOOLKIT;**20,39,59,66,76,100**;Apr 25, 1995;Build 4"
^XMB(3.9,157,2,1105,0)="""RTN"",""XTRUTL"",3,0)"
^XMB(3.9,157,2,1106,0)=" ;"
^XMB(3.9,157,2,1107,0)="""RTN"",""XTRUTL"",4,0)"
^XMB(3.9,157,2,1108,0)=" Q  ;No entry from the top."
^XMB(3.9,157,2,1109,0)="""RTN"",""XTRUTL"",5,0)"
^XMB(3.9,157,2,1110,0)="BUILD ;"
^XMB(3.9,157,2,1111,0)="""RTN"",""XTRUTL"",6,0)"
^XMB(3.9,157,2,1112,0)=" K ^UTILITY($J),^TMP($J) D HOME^%ZIS"
^XMB(3.9,157,2,1113,0)="""RTN"",""XTRUTL"",7,0)"
^XMB(3.9,157,2,1114,0)=" N BLDA,DIC,IX,X,PATCH,RTN,RN,L2,OLDSUM,OON"
^XMB(3.9,157,2,1115,0)="""RTN"",""XTRUTL"",8,0)"
^XMB(3.9,157,2,1116,0)=" W !!,""This generates the Checksum/2nd line list for the routines from a BUILD file."""
^XMB(3.9,157,2,1117,0)="""RTN"",""XTRUTL"",9,0)"
^XMB(3.9,157,2,1118,0)=" I '$D(^XPD(9.6,0)) W !,""No BUILD file to work from."" Q"
^XMB(3.9,157,2,1119,0)="""RTN"",""XTRUTL"",10,0)"
^XMB(3.9,157,2,1120,0)=" S Y=$$BUILD^XTRUTL1 G EXIT:Y'>0 S BLDA=+Y,PATCH=+$P(Y,""*"",3)"
^XMB(3.9,157,2,1121,0)="""RTN"",""XTRUTL"",11,0)"
^XMB(3.9,157,2,1122,0)=" D RTN^XTRUTL1(BLDA)"
^XMB(3.9,157,2,1123,0)="""RTN"",""XTRUTL"",12,0)"
^XMB(3.9,157,2,1124,0)=" I '$D(^UTILITY($J)) W !,""No routines in this build."" G EXIT"
^XMB(3.9,157,2,1125,0)="""RTN"",""XTRUTL"",13,0)"
^XMB(3.9,157,2,1126,0)=" ;Ask about old/new checksums"
^XMB(3.9,157,2,1127,0)="""RTN"",""XTRUTL"",14,0)"
^XMB(3.9,157,2,1128,0)=" S OON=$$ASKOON Q:OON<1  ;Return 1 or 2"
^XMB(3.9,157,2,1129,0)="""RTN"",""XTRUTL"",15,0)"
^XMB(3.9,157,2,1130,0)=" ;S X=$P(^DIC(9.4,+$P(Y(0),U,2),0),U,2)"
^XMB(3.9,157,2,1131,0)="""RTN"",""XTRUTL"",16,0)"
^XMB(3.9,157,2,1132,0)=" S RN="""" F  S RN=$O(^UTILITY($J,RN)) Q:RN=""""  D  Q:$D(L2)"
^XMB(3.9,157,2,1133,0)="""RTN"",""XTRUTL"",17,0)"
^XMB(3.9,157,2,1134,0)=" . S X=RN X ^%ZOSF(""TEST"") I '$T D  Q"
^XMB(3.9,157,2,1135,0)="""RTN"",""XTRUTL"",18,0)"
^XMB(3.9,157,2,1136,0)=" . . W !,RN,?13,""Routine not in this UCI."""
^XMB(3.9,157,2,1137,0)="""RTN"",""XTRUTL"",19,0)"
^XMB(3.9,157,2,1138,0)=" . . K ^UTILITY($J,RN)"
^XMB(3.9,157,2,1139,0)="""RTN"",""XTRUTL"",20,0)"
^XMB(3.9,157,2,1140,0)=" . S L2=$T(+2^@RN)"
^XMB(3.9,157,2,1141,0)="""RTN"",""XTRUTL"",21,0)"
^XMB(3.9,157,2,1142,0)=" I '$D(L2) W !,""No other routines in this build."" G EXIT"
^XMB(3.9,157,2,1143,0)="""RTN"",""XTRUTL"",22,0)"
^XMB(3.9,157,2,1144,0)=" S L2=$P(L2,"";"",1,4)_"";**[Patch List]**;""_$P(L2,"";"",6,99)"
^XMB(3.9,157,2,1145,0)="""RTN"",""XTRUTL"",23,0)"
^XMB(3.9,157,2,1146,0)=" W !!,""Routine Summary"""
^XMB(3.9,157,2,1147,0)="""RTN"",""XTRUTL"",24,0)"
^XMB(3.9,157,2,1148,0)=" W !,""Checksums shown are ""_$S(OON=1:""OLD"",1:""NEW"")_"" Checksums"""
^XMB(3.9,157,2,1149,0)="""RTN"",""XTRUTL"",25,0)"
^XMB(3.9,157,2,1150,0)=" W !,""The following routines are included in this patch.  The second line of each"",!,""of these routines now looks like:"""
^XMB(3.9,157,2,1151,0)="""RTN"",""XTRUTL"",26,0)"
^XMB(3.9,157,2,1152,0)=" W !,L2"
^XMB(3.9,157,2,1153,0)="""RTN"",""XTRUTL"",27,0)"
^XMB(3.9,157,2,1154,0)=" W !!,?17,""Checksums"",!,""Routine"",?16,""Old"",?28,""New"",?39,""Patch List"""
^XMB(3.9,157,2,1155,0)="""RTN"",""XTRUTL"",28,0)"
^XMB(3.9,157,2,1156,0)=" S RN="""""
^XMB(3.9,157,2,1157,0)="""RTN"",""XTRUTL"",29,0)"
^XMB(3.9,157,2,1158,0)=" F  S RN=$O(^UTILITY($J,RN)) Q:RN=""""  D"
^XMB(3.9,157,2,1159,0)="""RTN"",""XTRUTL"",30,0)"
^XMB(3.9,157,2,1160,0)=" . S RSUM=$P($$NEWSUM(RN),""/"",OON) ;rwf"
^XMB(3.9,157,2,1161,0)="""RTN"",""XTRUTL"",31,0)"
^XMB(3.9,157,2,1162,0)=" . S OLDSUM=$$OLDSUM(RN),OLDSUM=$P(OLDSUM,""/"",OON) ;rwf"
^XMB(3.9,157,2,1163,0)="""RTN"",""XTRUTL"",32,0)"
^XMB(3.9,157,2,1164,0)=" . S X=$G(RTN(2,0)) ;X has second line of routine"
^XMB(3.9,157,2,1165,0)="""RTN"",""XTRUTL"",33,0)"
^XMB(3.9,157,2,1166,0)=" . S:(+OLDSUM=0) OLDSUM=""n/a  "" S:(+RSUM=0) RSUM=""n/a  """
^XMB(3.9,157,2,1167,0)="""RTN"",""XTRUTL"",34,0)"
^XMB(3.9,157,2,1168,0)=" . W !,RN,?13,$J(OLDSUM,8),?25,$J(RSUM,8) D WRAP(37,$P(X,"";"",5))"
^XMB(3.9,157,2,1169,0)="""RTN"",""XTRUTL"",35,0)"
^XMB(3.9,157,2,1170,0)=" . D PTLBLD($P(X,"";"",5))"
^XMB(3.9,157,2,1171,0)="""RTN"",""XTRUTL"",36,0)"
^XMB(3.9,157,2,1172,0)=" . S Y=$P(X,""**"",2),Z=$P(Y,"","",$L(Y,"",""))"
^XMB(3.9,157,2,1173,0)="""RTN"",""XTRUTL"",37,0)"
^XMB(3.9,157,2,1174,0)=" . I PATCH,Z'=PATCH W "" <<<No ""_PATCH"
^XMB(3.9,157,2,1175,0)="""RTN"",""XTRUTL"",38,0)"
^XMB(3.9,157,2,1176,0)=" . Q"
^XMB(3.9,157,2,1177,0)="""RTN"",""XTRUTL"",39,0)"
^XMB(3.9,157,2,1178,0)=" W ! D PTLDSP"
^XMB(3.9,157,2,1179,0)="""RTN"",""XTRUTL"",40,0)"
^XMB(3.9,157,2,1180,0)=" W !,""Sites should use CHECK""_$S(OON=2:""1"",1:"""")_""^XTSUMBLD to verify checksums."",!"
^XMB(3.9,157,2,1181,0)="""RTN"",""XTRUTL"",41,0)"
^XMB(3.9,157,2,1182,0)="EXIT K %"
^XMB(3.9,157,2,1183,0)="""RTN"",""XTRUTL"",42,0)"
^XMB(3.9,157,2,1184,0)=" Q"
^XMB(3.9,157,2,1185,0)="""RTN"",""XTRUTL"",43,0)"
^XMB(3.9,157,2,1186,0)=" ;"
^XMB(3.9,157,2,1187,0)="""RTN"",""XTRUTL"",44,0)"
^XMB(3.9,157,2,1188,0)="ASKOON() ;Ask if user wants old/new checksum"
^XMB(3.9,157,2,1189,0)="""RTN"",""XTRUTL"",45,0)"
^XMB(3.9,157,2,1190,0)=" ;Return 1 or 2."
^XMB(3.9,157,2,1191,0)="""RTN"",""XTRUTL"",46,0)"
^XMB(3.9,157,2,1192,0)=" N DIR,DIOUT"
^XMB(3.9,157,2,1193,0)="""RTN"",""XTRUTL"",47,0)"
^XMB(3.9,157,2,1194,0)=" S DIR(0)=""S^1:Old;2:New"",DIR(""A"")=""New or Old Checksums"",DIR(""B"")=""New"""
^XMB(3.9,157,2,1195,0)="""RTN"",""XTRUTL"",48,0)"
^XMB(3.9,157,2,1196,0)=" D ^DIR"
^XMB(3.9,157,2,1197,0)="""RTN"",""XTRUTL"",49,0)"
^XMB(3.9,157,2,1198,0)=" I $D(DIRUT) S Y=-1"
^XMB(3.9,157,2,1199,0)="""RTN"",""XTRUTL"",50,0)"
^XMB(3.9,157,2,1200,0)=" Q Y"
^XMB(3.9,157,2,1201,0)="""RTN"",""XTRUTL"",51,0)"
^XMB(3.9,157,2,1202,0)=" ;"
^XMB(3.9,157,2,1203,0)="""RTN"",""XTRUTL"",52,0)"
^XMB(3.9,157,2,1204,0)="WRAP(C,S) ;Wrap S starting at col C."
^XMB(3.9,157,2,1205,0)="""RTN"",""XTRUTL"",53,0)"
^XMB(3.9,157,2,1206,0)=" I $L(S)+C<80 W ?C,S Q"
^XMB(3.9,157,2,1207,0)="""RTN"",""XTRUTL"",54,0)"
^XMB(3.9,157,2,1208,0)=" N I,T"
^XMB(3.9,157,2,1209,0)="""RTN"",""XTRUTL"",55,0)"
^XMB(3.9,157,2,1210,0)=" S I=$F(S,"","",70-C) W ?C,$E(S,1,I-1) S S=$E(S,I,999)"
^XMB(3.9,157,2,1211,0)="""RTN"",""XTRUTL"",56,0)"
^XMB(3.9,157,2,1212,0)=" F  S I=$F(S,"","",70-C),I=$S(I>0:I,1:$L(S)+2) W !,?C+2,$E(S,1,I-1) S S=$E(S,I,999) Q:'$L(S)"
^XMB(3.9,157,2,1213,0)="""RTN"",""XTRUTL"",57,0)"
^XMB(3.9,157,2,1214,0)=" Q"
^XMB(3.9,157,2,1215,0)="""RTN"",""XTRUTL"",58,0)"
^XMB(3.9,157,2,1216,0)=" ;"
^XMB(3.9,157,2,1217,0)="""RTN"",""XTRUTL"",59,0)"
^XMB(3.9,157,2,1218,0)="RSUM() N Y,Y2,%,%1,%2,%3 S (Y,Y2)=0"
^XMB(3.9,157,2,1219,0)="""RTN"",""XTRUTL"",60,0)"
^XMB(3.9,157,2,1220,0)=" F %=1,3:1:LC S %1=RTN(%,0),%3=$F(%1,"" ""),%3=$S($E(%1,%3)'="";"":$L(%1),$E(%1,%3+1)="";"":$L(%1),1:%3-2) F %2=1:1:%3 S Y=$A(%1,%2)*%2+Y,Y2=$A(%1,%2)*(%2+%)+Y2"
^XMB(3.9,157,2,1221,0)="""RTN"",""XTRUTL"",61,0)"
^XMB(3.9,157,2,1222,0)=" ;S RSUM=Y,RSUM2=Y2"
^XMB(3.9,157,2,1223,0)="""RTN"",""XTRUTL"",62,0)"
^XMB(3.9,157,2,1224,0)=" Q Y_""/""_Y2"
^XMB(3.9,157,2,1225,0)="""RTN"",""XTRUTL"",63,0)"
^XMB(3.9,157,2,1226,0)=" ;"
^XMB(3.9,157,2,1227,0)="""RTN"",""XTRUTL"",64,0)"
^XMB(3.9,157,2,1228,0)="NEWSUM(X) ;Get the NEW Checksum"
^XMB(3.9,157,2,1229,0)="""RTN"",""XTRUTL"",65,0)"
^XMB(3.9,157,2,1230,0)=" N XCNP,DIF K RTN I '$L($T(^@X)) Q 0"
^XMB(3.9,157,2,1231,0)="""RTN"",""XTRUTL"",66,0)"
^XMB(3.9,157,2,1232,0)=" S XCNP=0,DIF=""RTN("" K RTN X ^%ZOSF(""LOAD"") S LC=XCNP-1"
^XMB(3.9,157,2,1233,0)="""RTN"",""XTRUTL"",67,0)"
^XMB(3.9,157,2,1234,0)=" Q $$RSUM"
^XMB(3.9,157,2,1235,0)="""RTN"",""XTRUTL"",68,0)"
^XMB(3.9,157,2,1236,0)=" ;"
^XMB(3.9,157,2,1237,0)="""RTN"",""XTRUTL"",69,0)"
^XMB(3.9,157,2,1238,0)="OLDSUM(X) ;Get the OLD Checksum"
^XMB(3.9,157,2,1239,0)="""RTN"",""XTRUTL"",70,0)"
^XMB(3.9,157,2,1240,0)=" N Y S Y=$O(^DIC(9.8,""B"",X,0)) Q:Y'>0 """""
^XMB(3.9,157,2,1241,0)="""RTN"",""XTRUTL"",71,0)"
^XMB(3.9,157,2,1242,0)=" S X=$G(^DIC(9.8,Y,4))"
^XMB(3.9,157,2,1243,0)="""RTN"",""XTRUTL"",72,0)"
^XMB(3.9,157,2,1244,0)=" Q $P(X,""^"",2)"
^XMB(3.9,157,2,1245,0)="""RTN"",""XTRUTL"",73,0)"
^XMB(3.9,157,2,1246,0)=" ;"
^XMB(3.9,157,2,1247,0)="""RTN"",""XTRUTL"",74,0)"
^XMB(3.9,157,2,1248,0)="PTLBLD(Z) ;Build in ^TMP the patches used"
^XMB(3.9,157,2,1249,0)="""RTN"",""XTRUTL"",75,0)"
^XMB(3.9,157,2,1250,0)=" N I,J,K,P S Z=$P(Z,""**"",2),K="""""
^XMB(3.9,157,2,1251,0)="""RTN"",""XTRUTL"",76,0)"
^XMB(3.9,157,2,1252,0)=" F I=1:1 S J=$P(Z,"","",I) Q:(J="""")  I (J'=PATCH) S P=$G(^TMP($J,J)),^TMP($J,J)=P_K S K=K_J_"","""
^XMB(3.9,157,2,1253,0)="""RTN"",""XTRUTL"",77,0)"
^XMB(3.9,157,2,1254,0)=" Q"
^XMB(3.9,157,2,1255,0)="""RTN"",""XTRUTL"",78,0)"
^XMB(3.9,157,2,1256,0)="PTLSRT ;Sort the list"
^XMB(3.9,157,2,1257,0)="""RTN"",""XTRUTL"",79,0)"
^XMB(3.9,157,2,1258,0)=" N I,J,K,L S I=0"
^XMB(3.9,157,2,1259,0)="""RTN"",""XTRUTL"",80,0)"
^XMB(3.9,157,2,1260,0)=" F I=0:0 S I=$O(^TMP($J,I)) Q:I'>0  S K=^(I) D"
^XMB(3.9,157,2,1261,0)="""RTN"",""XTRUTL"",81,0)"
^XMB(3.9,157,2,1262,0)=" . F J=1:1 S L=$P(K,"","",J) Q:L=""""  K ^TMP($J,L)"
^XMB(3.9,157,2,1263,0)="""RTN"",""XTRUTL"",82,0)"
^XMB(3.9,157,2,1264,0)=" . Q"
^XMB(3.9,157,2,1265,0)="""RTN"",""XTRUTL"",83,0)"
^XMB(3.9,157,2,1266,0)=" Q"
^XMB(3.9,157,2,1267,0)="""RTN"",""XTRUTL"",84,0)"
^XMB(3.9,157,2,1268,0)=" ;"
^XMB(3.9,157,2,1269,0)="""RTN"",""XTRUTL"",85,0)"
^XMB(3.9,157,2,1270,0)="PTLDSP ;Display list of patches."
^XMB(3.9,157,2,1271,0)="""RTN"",""XTRUTL"",86,0)"
^XMB(3.9,157,2,1272,0)=" D PTLSRT"
^XMB(3.9,157,2,1273,0)="""RTN"",""XTRUTL"",87,0)"
^XMB(3.9,157,2,1274,0)=" N I,J K ^TMP($J,PATCH)"
^XMB(3.9,157,2,1275,0)="""RTN"",""XTRUTL"",88,0)"
^XMB(3.9,157,2,1276,0)=" Q:$O(^TMP($J,0))="""""
^XMB(3.9,157,2,1277,0)="""RTN"",""XTRUTL"",89,0)"
^XMB(3.9,157,2,1278,0)=" W !,""List of preceding patches: """
^XMB(3.9,157,2,1279,0)="""RTN"",""XTRUTL"",90,0)"
^XMB(3.9,157,2,1280,0)=" S (I,J)="""" F  S I=$O(^TMP($J,I)) Q:I=""""  D"
^XMB(3.9,157,2,1281,0)="""RTN"",""XTRUTL"",91,0)"
^XMB(3.9,157,2,1282,0)=" . I $X>70 W ! S J="""""
^XMB(3.9,157,2,1283,0)="""RTN"",""XTRUTL"",92,0)"
^XMB(3.9,157,2,1284,0)=" . W J,I S J="", """
^XMB(3.9,157,2,1285,0)="""RTN"",""XTRUTL"",93,0)"
^XMB(3.9,157,2,1286,0)=" S:$L(J)>2 J=$E(J,1,$L(J)-2)"
^XMB(3.9,157,2,1287,0)="""RTN"",""XTRUTL"",94,0)"
^XMB(3.9,157,2,1288,0)=" Q"
^XMB(3.9,157,2,1289,0)="""RTN"",""XTRUTL"",95,0)"
^XMB(3.9,157,2,1290,0)=" ;"
^XMB(3.9,157,2,1291,0)="""RTN"",""XTRUTL"",96,0)"
^XMB(3.9,157,2,1292,0)="UPDATE ;Update the ROUTINE file with current checksums"
^XMB(3.9,157,2,1293,0)="""RTN"",""XTRUTL"",97,0)"
^XMB(3.9,157,2,1294,0)=" K ^UTILITY($J)"
^XMB(3.9,157,2,1295,0)="""RTN"",""XTRUTL"",98,0)"
^XMB(3.9,157,2,1296,0)=" N BLDA,DIC,IX,X,NOW,DIR"
^XMB(3.9,157,2,1297,0)="""RTN"",""XTRUTL"",99,0)"
^XMB(3.9,157,2,1298,0)=" W !!,""This will update the ROUTINE file for the routines from a BUILD file."""
^XMB(3.9,157,2,1299,0)="""RTN"",""XTRUTL"",100,0)"
^XMB(3.9,157,2,1300,0)=" I '$D(^XPD(9.6,0)) W !,""No BUILD file to work from."" Q"
^XMB(3.9,157,2,1301,0)="""RTN"",""XTRUTL"",101,0)"
^XMB(3.9,157,2,1302,0)=" S Y=$$BUILD^XTRUTL1 G EXIT:Y'>0 S BLDA=+Y"
^XMB(3.9,157,2,1303,0)="""RTN"",""XTRUTL"",102,0)"
^XMB(3.9,157,2,1304,0)=" S DIR(0)=""Y"",DIR(""A"")=""Is ""_$P(Y,U,2)_"" the one you want"" D ^DIR"
^XMB(3.9,157,2,1305,0)="""RTN"",""XTRUTL"",103,0)"
^XMB(3.9,157,2,1306,0)=" I $D(DIRUT)!(Y'=1) Q"
^XMB(3.9,157,2,1307,0)="""RTN"",""XTRUTL"",104,0)"
^XMB(3.9,157,2,1308,0)=" D RTN^XTRUTL1(BLDA)"
^XMB(3.9,157,2,1309,0)="""RTN"",""XTRUTL"",105,0)"
^XMB(3.9,157,2,1310,0)=" S NOW=$$NOW^XLFDT()"
^XMB(3.9,157,2,1311,0)="""RTN"",""XTRUTL"",106,0)"
^XMB(3.9,157,2,1312,0)=" G EXIT:$O(^UTILITY($J,""""))="""""
^XMB(3.9,157,2,1313,0)="""RTN"",""XTRUTL"",107,0)"
^XMB(3.9,157,2,1314,0)=" S RN="""""
^XMB(3.9,157,2,1315,0)="""RTN"",""XTRUTL"",108,0)"
^XMB(3.9,157,2,1316,0)=" F  S RN=$O(^UTILITY($J,RN)) Q:RN=""""  D UD1(RN)"
^XMB(3.9,157,2,1317,0)="""RTN"",""XTRUTL"",109,0)"
^XMB(3.9,157,2,1318,0)=" W !,""Done"""
^XMB(3.9,157,2,1319,0)="""RTN"",""XTRUTL"",110,0)"
^XMB(3.9,157,2,1320,0)=" Q"
^XMB(3.9,157,2,1321,0)="""RTN"",""XTRUTL"",111,0)"
^XMB(3.9,157,2,1322,0)=" ;"
^XMB(3.9,157,2,1323,0)="""RTN"",""XTRUTL"",112,0)"
^XMB(3.9,157,2,1324,0)="UD1(RN) ;"
^XMB(3.9,157,2,1325,0)="""RTN"",""XTRUTL"",113,0)"
^XMB(3.9,157,2,1326,0)=" N X,XCNP,DIF,LC,RSUM,Y S:'$D(NOW) NOW=$$NOW^XLFDT"
^XMB(3.9,157,2,1327,0)="""RTN"",""XTRUTL"",114,0)"
^XMB(3.9,157,2,1328,0)=" S U=""^"",RSUM=$$NEWSUM(RN) Q:RSUM=0"
^XMB(3.9,157,2,1329,0)="""RTN"",""XTRUTL"",115,0)"
^XMB(3.9,157,2,1330,0)=" S X=RTN(2,0)"
^XMB(3.9,157,2,1331,0)="""RTN"",""XTRUTL"",116,0)"
^XMB(3.9,157,2,1332,0)=" S Y=$$GETDA(RN) I Y'>0 W !,""  Routine "",RN,"" not found in the database."" Q"
^XMB(3.9,157,2,1333,0)="""RTN"",""XTRUTL"",117,0)"
^XMB(3.9,157,2,1334,0)=" I '$$LOCAL(Y) W !,""This is a national routine and will not be updated"" Q "
^XMB(3.9,157,2,1335,0)="""RTN"",""XTRUTL"",118,0)"
^XMB(3.9,157,2,1336,0)=" S ^DIC(9.8,+Y,4)=NOW_U_RSUM_U_$P(X,"";"",5)"
^XMB(3.9,157,2,1337,0)="""RTN"",""XTRUTL"",119,0)"
^XMB(3.9,157,2,1338,0)=" Q"
^XMB(3.9,157,2,1339,0)="""RTN"",""XTRUTL"",120,0)"
^XMB(3.9,157,2,1340,0)=" ;"
^XMB(3.9,157,2,1341,0)="""RTN"",""XTRUTL"",121,0)"
^XMB(3.9,157,2,1342,0)="SHOW(RN) ;Show current data"
^XMB(3.9,157,2,1343,0)="""RTN"",""XTRUTL"",122,0)"
^XMB(3.9,157,2,1344,0)=" N Y,%0,%4,RTN,RSUM S %4=""^n/a^n/a"",U=""^"""
^XMB(3.9,157,2,1345,0)="""RTN"",""XTRUTL"",123,0)"
^XMB(3.9,157,2,1346,0)=" S Y=$$GETDA(RN) I Y>0  S %0=^DIC(9.8,Y,0),%4=$G(^(4))"
^XMB(3.9,157,2,1347,0)="""RTN"",""XTRUTL"",124,0)"
^XMB(3.9,157,2,1348,0)=" S RSUM=$$NEWSUM(RN)"
^XMB(3.9,157,2,1349,0)="""RTN"",""XTRUTL"",125,0)"
^XMB(3.9,157,2,1350,0)=" W !,""RTN"",?10,""New ChkSum"",?28,""Old ChkSum"",?46,""Old Date"""
^XMB(3.9,157,2,1351,0)="""RTN"",""XTRUTL"",126,0)"
^XMB(3.9,157,2,1352,0)=" W !,RN,?10,RSUM,?28,$P(%4,U,2),?46,$P(%4,U)"
^XMB(3.9,157,2,1353,0)="""RTN"",""XTRUTL"",127,0)"
^XMB(3.9,157,2,1354,0)=" W !,$S($$LOCAL(Y):""Local"",1:""National"")_"" Routine"""
^XMB(3.9,157,2,1355,0)="""RTN"",""XTRUTL"",128,0)"
^XMB(3.9,157,2,1356,0)=" Q"
^XMB(3.9,157,2,1357,0)="""RTN"",""XTRUTL"",129,0)"
^XMB(3.9,157,2,1358,0)=" ;"
^XMB(3.9,157,2,1359,0)="""RTN"",""XTRUTL"",130,0)"
^XMB(3.9,157,2,1360,0)="GETDA(X) ;Find a DA in file"
^XMB(3.9,157,2,1361,0)="""RTN"",""XTRUTL"",131,0)"
^XMB(3.9,157,2,1362,0)=" Q $O(^DIC(9.8,""B"",X,0))"
^XMB(3.9,157,2,1363,0)="""RTN"",""XTRUTL"",132,0)"
^XMB(3.9,157,2,1364,0)=" ;"
^XMB(3.9,157,2,1365,0)="""RTN"",""XTRUTL"",133,0)"
^XMB(3.9,157,2,1366,0)="M ;Manual Update of the Routine file"
^XMB(3.9,157,2,1367,0)="""RTN"",""XTRUTL"",134,0)"
^XMB(3.9,157,2,1368,0)=" N DIC,DIE,DA,DR"
^XMB(3.9,157,2,1369,0)="""RTN"",""XTRUTL"",135,0)"
^XMB(3.9,157,2,1370,0)=" S DIC=""^DIC(9.8,"",DIC(0)=""AEMQ"" D ^DIC Q:Y'>0"
^XMB(3.9,157,2,1371,0)="""RTN"",""XTRUTL"",136,0)"
^XMB(3.9,157,2,1372,0)=" I '$$LOCAL(+Y) W !,""This routine Checksum only updated from FORUM."" Q"
^XMB(3.9,157,2,1373,0)="""RTN"",""XTRUTL"",137,0)"
^XMB(3.9,157,2,1374,0)=" S DA=+Y,DIE=DIC,DR=7.2 D ^DIE"
^XMB(3.9,157,2,1375,0)="""RTN"",""XTRUTL"",138,0)"
^XMB(3.9,157,2,1376,0)=" Q"
^XMB(3.9,157,2,1377,0)="""RTN"",""XTRUTL"",139,0)"
^XMB(3.9,157,2,1378,0)=" ;"
^XMB(3.9,157,2,1379,0)="""RTN"",""XTRUTL"",140,0)"
^XMB(3.9,157,2,1380,0)="LIST ;List all routines that don't match the old checksum"
^XMB(3.9,157,2,1381,0)="""RTN"",""XTRUTL"",141,0)"
^XMB(3.9,157,2,1382,0)=" N Y,X,RN,RSUM,DA"
^XMB(3.9,157,2,1383,0)="""RTN"",""XTRUTL"",142,0)"
^XMB(3.9,157,2,1384,0)=" S RN="""",U=""^"""
^XMB(3.9,157,2,1385,0)="""RTN"",""XTRUTL"",143,0)"
^XMB(3.9,157,2,1386,0)=" F  S RN=$O(^DIC(9.8,""B"",RN)) Q:RN=""""  D"
^XMB(3.9,157,2,1387,0)="""RTN"",""XTRUTL"",144,0)"
^XMB(3.9,157,2,1388,0)=" . S DA=$O(^DIC(9.8,""B"",RN,0)) Q:DA'>0"
^XMB(3.9,157,2,1389,0)="""RTN"",""XTRUTL"",145,0)"
^XMB(3.9,157,2,1390,0)=" . S %4=$G(^DIC(9.8,DA,4)) Q:$P(%4,U,2)=""""  S RSUM=$$NEWSUM(RN)"
^XMB(3.9,157,2,1391,0)="""RTN"",""XTRUTL"",146,0)"
^XMB(3.9,157,2,1392,0)=" . I RSUM'=$P(%4,U,2) W !,RN,?10,""Checksum mismatch "",$P($T(+2^@RN),"";"",5)"
^XMB(3.9,157,2,1393,0)="""RTN"",""XTRUTL"",147,0)"
^XMB(3.9,157,2,1394,0)=" . Q"
^XMB(3.9,157,2,1395,0)="""RTN"",""XTRUTL"",148,0)"
^XMB(3.9,157,2,1396,0)=" Q"
^XMB(3.9,157,2,1397,0)="""RTN"",""XTRUTL"",149,0)"
^XMB(3.9,157,2,1398,0)=" ;"
^XMB(3.9,157,2,1399,0)="""RTN"",""XTRUTL"",150,0)"
^XMB(3.9,157,2,1400,0)="LOCAL(DA) ;Return if this is a local routine in the ROUTINE file."
^XMB(3.9,157,2,1401,0)="""RTN"",""XTRUTL"",151,0)"
^XMB(3.9,157,2,1402,0)=" Q $P($G(^DIC(9.8,DA,6)),""^"")<2"
^XMB(3.9,157,2,1403,0)="""RTN"",""XTRUTL"",152,0)"
^XMB(3.9,157,2,1404,0)=" ;"
^XMB(3.9,157,2,1405,0)="""RTN"",""XTSUMBLD"")"
^XMB(3.9,157,2,1406,0)="0^5^B30858373^B27011734"
^XMB(3.9,157,2,1407,0)="""RTN"",""XTSUMBLD"",1,0)"
^XMB(3.9,157,2,1408,0)="XTSUMBLD ;SF/RWF - BUILD PACKAGE INTEG ROUTINE ; 3/21/06 2:50MP"
^XMB(3.9,157,2,1409,0)="""RTN"",""XTSUMBLD"",2,0)"
^XMB(3.9,157,2,1410,0)=" ;;7.3;TOOLKIT;**11,20,66,70,94,100**;Apr 25, 1995;Build 4"
^XMB(3.9,157,2,1411,0)="""RTN"",""XTSUMBLD"",3,0)"
^XMB(3.9,157,2,1412,0)="A ;"
^XMB(3.9,157,2,1413,0)="""RTN"",""XTSUMBLD"",4,0)"
^XMB(3.9,157,2,1414,0)=" K ^UTILITY($J),DIR D MSG"
^XMB(3.9,157,2,1415,0)="""RTN"",""XTSUMBLD"",5,0)"
^XMB(3.9,157,2,1416,0)=" S DIR(0)=""SM^P:Package;B:Build"",DIR(""A"")=""Build from"" D ^DIR K DIR Q:X[U"
^XMB(3.9,157,2,1417,0)="""RTN"",""XTSUMBLD"",6,0)"
^XMB(3.9,157,2,1418,0)=" G PKG:Y=""P"",BUILD:Y=""B"" Q"
^XMB(3.9,157,2,1419,0)="""RTN"",""XTSUMBLD"",7,0)"
^XMB(3.9,157,2,1420,0)="PKG W !!,""This will build a checksum routine for a package from the package file"",!"
^XMB(3.9,157,2,1421,0)="""RTN"",""XTSUMBLD"",8,0)"
^XMB(3.9,157,2,1422,0)=" S DIC=9.4,DIC(0)=""AEMQZ"" D ^DIC G EXIT:Y'>0"
^XMB(3.9,157,2,1423,0)="""RTN"",""XTSUMBLD"",9,0)"
^XMB(3.9,157,2,1424,0)=" D NAME($P(Y(0),U,2)) G EXIT:'$D(XTRNAME)"
^XMB(3.9,157,2,1425,0)="""RTN"",""XTSUMBLD"",10,0)"
^XMB(3.9,157,2,1426,0)=" X ^%ZOSF(""RSEL"") G EXIT:$O(^UTILITY($J,""""))="""""
^XMB(3.9,157,2,1427,0)="""RTN"",""XTSUMBLD"",11,0)"
^XMB(3.9,157,2,1428,0)=" G BLD"
^XMB(3.9,157,2,1429,0)="""RTN"",""XTSUMBLD"",12,0)"
^XMB(3.9,157,2,1430,0)=" ;"
^XMB(3.9,157,2,1431,0)="""RTN"",""XTSUMBLD"",13,0)"
^XMB(3.9,157,2,1432,0)="BUILD W !!,""This will build a checksum routine from the BUILD file."""
^XMB(3.9,157,2,1433,0)="""RTN"",""XTSUMBLD"",14,0)"
^XMB(3.9,157,2,1434,0)=" S DIC=""^XPD(9.6,"",DIC(0)=""AEMQZ"" D ^DIC G EXIT:Y'>0 S BLDA=+Y"
^XMB(3.9,157,2,1435,0)="""RTN"",""XTSUMBLD"",15,0)"
^XMB(3.9,157,2,1436,0)=" I $P(Y(0),U,2)'>0 W !!,""There isn't a package file pointer."" G EXIT"
^XMB(3.9,157,2,1437,0)="""RTN"",""XTSUMBLD"",16,0)"
^XMB(3.9,157,2,1438,0)=" S X=$P(^DIC(9.4,+$P(Y(0),U,2),0),U,2) D NAME(X) G EXIT:'$D(XTRNAME)"
^XMB(3.9,157,2,1439,0)="""RTN"",""XTSUMBLD"",17,0)"
^XMB(3.9,157,2,1440,0)=" F IX=0:0 S IX=$O(^XPD(9.6,BLDA,""KRN"",9.8,""NM"",IX)) Q:IX'>0  S X=^(IX,0) S:'$P(X,U,3) ^UTILITY($J,$P(X,U))="""""
^XMB(3.9,157,2,1441,0)="""RTN"",""XTSUMBLD"",18,0)"
^XMB(3.9,157,2,1442,0)=" F IX=""INI"",""INIT"",""PRE"" S X=$G(^XPD(9.6,BLDA,IX)) I X]"""" S ^UTILITY($J,$S(X[U:$P(X,U,2),1:X))="""""
^XMB(3.9,157,2,1443,0)="""RTN"",""XTSUMBLD"",19,0)"
^XMB(3.9,157,2,1444,0)=" G EXIT:$O(^UTILITY($J,""""))="""""
^XMB(3.9,157,2,1445,0)="""RTN"",""XTSUMBLD"",20,0)"
^XMB(3.9,157,2,1446,0)=" G BLD"
^XMB(3.9,157,2,1447,0)="""RTN"",""XTSUMBLD"",21,0)"
^XMB(3.9,157,2,1448,0)=" ;"
^XMB(3.9,157,2,1449,0)="""RTN"",""XTSUMBLD"",22,0)"
^XMB(3.9,157,2,1450,0)="NAME(Y) S XTRNAME=Y_""NTEG"" W !,""I will create a routine "",XTRNAME"
^XMB(3.9,157,2,1451,0)="""RTN"",""XTSUMBLD"",23,0)"
^XMB(3.9,157,2,1452,0)=" S X=XTRNAME X ^%ZOSF(""TEST"") I $T S DIR(0)=""YA"",DIR(""A"")=""But you already have one on file!  OK to replace? "",DIR(""B"")=""NO"" D ^DIR I Y'=1 K XTRNAME"
^XMB(3.9,157,2,1453,0)="""RTN"",""XTSUMBLD"",24,0)"
^XMB(3.9,157,2,1454,0)=" Q"
^XMB(3.9,157,2,1455,0)="""RTN"",""XTSUMBLD"",25,0)"
^XMB(3.9,157,2,1456,0)=" ;"
^XMB(3.9,157,2,1457,0)="""RTN"",""XTSUMBLD"",26,0)"
^XMB(3.9,157,2,1458,0)="BLD S X=XTRNAME F I=0:0 K ^UTILITY($J,X) S X=$O(^UTILITY($J,X)) Q:X'[XTRNAME"
^XMB(3.9,157,2,1459,0)="""RTN"",""XTSUMBLD"",27,0)"
^XMB(3.9,157,2,1460,0)=" I $O(^UTILITY($J,""""))="""" W !,""Routine list is empty"" G EXIT"
^XMB(3.9,157,2,1461,0)="""RTN"",""XTSUMBLD"",28,0)"
^XMB(3.9,157,2,1462,0)=" W !,""Calculating check-sums"" S XTDT=$$NOW^XLFDT()"
^XMB(3.9,157,2,1463,0)="""RTN"",""XTSUMBLD"",29,0)"
^XMB(3.9,157,2,1464,0)=" S X="" "" F I=0:0 S X=$O(^UTILITY($J,X)) Q:X=""""  D"
^XMB(3.9,157,2,1465,0)="""RTN"",""XTSUMBLD"",30,0)"
^XMB(3.9,157,2,1466,0)=" . W !,X X ^%ZOSF(""TEST"") I '$T W ?10,""Routine not in this UCI."" Q"
^XMB(3.9,157,2,1467,0)="""RTN"",""XTSUMBLD"",31,0)"
^XMB(3.9,157,2,1468,0)=" . X ^%ZOSF(""RSUM"") S ^UTILITY($J,X)=Y Q"
^XMB(3.9,157,2,1469,0)="""RTN"",""XTSUMBLD"",32,0)"
^XMB(3.9,157,2,1470,0)=" W !,""Building routine"" S RN="" "",XTRNCNT=0"
^XMB(3.9,157,2,1471,0)="""RTN"",""XTSUMBLD"",33,0)"
^XMB(3.9,157,2,1472,0)="B K ^UTILITY($J,0) S XTSIZE=0,XCN=0,DIE=""^UTILITY($J,0,"",XTRNEXT=$E(XTRNAME,1,7)_XTRNCNT,XTRNCNT=XTRNCNT+1"
^XMB(3.9,157,2,1473,0)="""RTN"",""XTSUMBLD"",34,0)"
^XMB(3.9,157,2,1474,0)=" F I=1:1 S XT=$P($T(ROU+I),"";;"",2,99) D ADD Q:$E(XT,1,3)=""ROU"""
^XMB(3.9,157,2,1475,0)="""RTN"",""XTSUMBLD"",35,0)"
^XMB(3.9,157,2,1476,0)=" S @(DIE_""1,0)"")=XTRNAME_$P($T(ROU+1),"";;"",2)_XTDT,@(DIE_""3,0)"")="" ;;""_$P($T(+2),"";"",3)_"";""_XTDT"
^XMB(3.9,157,2,1477,0)="""RTN"",""XTSUMBLD"",36,0)"
^XMB(3.9,157,2,1478,0)=" F I=0:0 S RN=$O(^UTILITY($J,RN)) Q:RN=""""  S %=^(RN),XT=RN_"" ;;""_% D ADD Q:XTSIZE>3700"
^XMB(3.9,157,2,1479,0)="""RTN"",""XTSUMBLD"",37,0)"
^XMB(3.9,157,2,1480,0)=" I RN]"""" S @(DIE_""6,0)"")="" G CONT^""_XTRNEXT"
^XMB(3.9,157,2,1481,0)="""RTN"",""XTSUMBLD"",38,0)"
^XMB(3.9,157,2,1482,0)=" S XCN=0,X=XTRNAME W !!,""Filing routine "",XTRNAME X ^%ZOSF(""SAVE"") S XTRNAME=XTRNEXT G:RN]"""" B"
^XMB(3.9,157,2,1483,0)="""RTN"",""XTSUMBLD"",39,0)"
^XMB(3.9,157,2,1484,0)=" W !,""  DONE"",!"
^XMB(3.9,157,2,1485,0)="""RTN"",""XTSUMBLD"",40,0)"
^XMB(3.9,157,2,1486,0)="EXIT K ^UTILITY($J),DIC,DIR,XCN,XTRNAME,XTRNCNT,XU1,XTSIZE,XTDT,DIE,XTRNEXT,XT,X,Y"
^XMB(3.9,157,2,1487,0)="""RTN"",""XTSUMBLD"",41,0)"
^XMB(3.9,157,2,1488,0)=" Q"
^XMB(3.9,157,2,1489,0)="""RTN"",""XTSUMBLD"",42,0)"
^XMB(3.9,157,2,1490,0)="ADD S XCN=XCN+1,XTSIZE=XTSIZE+$L(XT)+2,@(DIE_XCN_"",0)"")=XT Q"
^XMB(3.9,157,2,1491,0)="""RTN"",""XTSUMBLD"",43,0)"
^XMB(3.9,157,2,1492,0)=" Q"
^XMB(3.9,157,2,1493,0)="""RTN"",""XTSUMBLD"",44,0)"
^XMB(3.9,157,2,1494,0)="CHECK ;Print the values of a set of routines."
^XMB(3.9,157,2,1495,0)="""RTN"",""XTSUMBLD"",45,0)"
^XMB(3.9,157,2,1496,0)=" N XPCH,X,DIR D MSG"
^XMB(3.9,157,2,1497,0)="""RTN"",""XTSUMBLD"",46,0)"
^XMB(3.9,157,2,1498,0)=" S DIR(0)=""SM^P:Package;B:Build"",DIR(""A"")=""Build from"" D ^DIR K DIR Q:X[U"
^XMB(3.9,157,2,1499,0)="""RTN"",""XTSUMBLD"",47,0)"
^XMB(3.9,157,2,1500,0)=" G CHKPKG:Y=""P"",CHKBLD:Y=""B"" Q"
^XMB(3.9,157,2,1501,0)="""RTN"",""XTSUMBLD"",48,0)"
^XMB(3.9,157,2,1502,0)="CHKPKG W !! K ^UTILITY($J) X ^%ZOSF(""RSEL"") I $O(^UTILITY($J,0))']"""" W !!,""NO SELECTED ROUTINES"" G EXIT"
^XMB(3.9,157,2,1503,0)="""RTN"",""XTSUMBLD"",49,0)"
^XMB(3.9,157,2,1504,0)="CHK2 S X="" "" F XU1=0:0 S X=$O(^UTILITY($J,X)) Q:X']""""  D"
^XMB(3.9,157,2,1505,0)="""RTN"",""XTSUMBLD"",50,0)"
^XMB(3.9,157,2,1506,0)=" . W !,X,?10 X ^%ZOSF(""TEST"") I '$T W ""Routine not in this UCI."" Q"
^XMB(3.9,157,2,1507,0)="""RTN"",""XTSUMBLD"",51,0)"
^XMB(3.9,157,2,1508,0)=" . I $G(XUCHFLG)=1 X ^%ZOSF(""RSUM1"") W ""value = "",Y"
^XMB(3.9,157,2,1509,0)="""RTN"",""XTSUMBLD"",52,0)"
^XMB(3.9,157,2,1510,0)=" . E  X ^%ZOSF(""RSUM"") W ""value = "",Y"
^XMB(3.9,157,2,1511,0)="""RTN"",""XTSUMBLD"",53,0)"
^XMB(3.9,157,2,1512,0)=" . I $D(XPCH) X XPCH"
^XMB(3.9,157,2,1513,0)="""RTN"",""XTSUMBLD"",54,0)"
^XMB(3.9,157,2,1514,0)=" . Q"
^XMB(3.9,157,2,1515,0)="""RTN"",""XTSUMBLD"",55,0)"
^XMB(3.9,157,2,1516,0)=" W !,""done"" G EXIT"
^XMB(3.9,157,2,1517,0)="""RTN"",""XTSUMBLD"",56,0)"
^XMB(3.9,157,2,1518,0)="CHKBLD W !!,""This will check the routines from a BUILD file."""
^XMB(3.9,157,2,1519,0)="""RTN"",""XTSUMBLD"",57,0)"
^XMB(3.9,157,2,1520,0)=" S DIC=""^XPD(9.6,"",DIC(0)=""AEMQZ"" D ^DIC G EXIT:Y'>0"
^XMB(3.9,157,2,1521,0)="""RTN"",""XTSUMBLD"",58,0)"
^XMB(3.9,157,2,1522,0)=" S BLDA=+Y,X=$P(Y,""^"",2)"
^XMB(3.9,157,2,1523,0)="""RTN"",""XTSUMBLD"",59,0)"
^XMB(3.9,157,2,1524,0)=" I X[""*"" S XPCH=""S L=$T(+2^@X) I $P(L,"""";"""",5)'?.E1P1""""""_$P(X,""*"",3)_""""""1P.E W ?30,""""Missing patch number"""""""
^XMB(3.9,157,2,1525,0)="""RTN"",""XTSUMBLD"",60,0)"
^XMB(3.9,157,2,1526,0)=" F IX=0:0 S IX=$O(^XPD(9.6,BLDA,""KRN"",9.8,""NM"",IX)) Q:IX'>0  S X=^(IX,0) S:'$P(X,U,3) ^UTILITY($J,$P(X,U))="""""
^XMB(3.9,157,2,1527,0)="""RTN"",""XTSUMBLD"",61,0)"
^XMB(3.9,157,2,1528,0)=" F IX=""INI"",""INIT"",""PRE"" S X=$G(^XPD(9.6,BLDA,IX)) I X]"""" S ^UTILITY($J,$S(X[U:$P(X,U,2),1:X))="""""
^XMB(3.9,157,2,1529,0)="""RTN"",""XTSUMBLD"",62,0)"
^XMB(3.9,157,2,1530,0)=" G EXIT:$O(^UTILITY($J,""""))="""""
^XMB(3.9,157,2,1531,0)="""RTN"",""XTSUMBLD"",63,0)"
^XMB(3.9,157,2,1532,0)=" G CHK2"
^XMB(3.9,157,2,1533,0)="""RTN"",""XTSUMBLD"",64,0)"
^XMB(3.9,157,2,1534,0)=" ;"
^XMB(3.9,157,2,1535,0)="""RTN"",""XTSUMBLD"",65,0)"
^XMB(3.9,157,2,1536,0)="MSG W !!,""This option determines the current checksum of selected routine(s)."""
^XMB(3.9,157,2,1537,0)="""RTN"",""XTSUMBLD"",66,0)"
^XMB(3.9,157,2,1538,0)=" W !,""The Checksum of the routine is determined as follows:"",!"
^XMB(3.9,157,2,1539,0)="""RTN"",""XTSUMBLD"",67,0)"
^XMB(3.9,157,2,1540,0)=" W !,""1. Any comment line with a single semi-colon is presumed to be"""
^XMB(3.9,157,2,1541,0)="""RTN"",""XTSUMBLD"",68,0)"
^XMB(3.9,157,2,1542,0)=" W !,""   followed by comments and only the line tag will be included."""
^XMB(3.9,157,2,1543,0)="""RTN"",""XTSUMBLD"",69,0)"
^XMB(3.9,157,2,1544,0)=" W !!,""2. Line 2 will be excluded from the count."",!"
^XMB(3.9,157,2,1545,0)="""RTN"",""XTSUMBLD"",70,0)"
^XMB(3.9,157,2,1546,0)=" W !,""3. The total value of the routine is determined (excluding"""
^XMB(3.9,157,2,1547,0)="""RTN"",""XTSUMBLD"",71,0)"
^XMB(3.9,157,2,1548,0)=" W !,""   exceptions noted above) by multiplying the ASCII value of each"""
^XMB(3.9,157,2,1549,0)="""RTN"",""XTSUMBLD"",72,0)"
^XMB(3.9,157,2,1550,0)=" W !,""   character by its position on the line """
^XMB(3.9,157,2,1551,0)="""RTN"",""XTSUMBLD"",73,0)"
^XMB(3.9,157,2,1552,0)=" I $G(XUCHFLG)=1 W ""and position of the line in "",!,""   the routine """
^XMB(3.9,157,2,1553,0)="""RTN"",""XTSUMBLD"",74,0)"
^XMB(3.9,157,2,1554,0)=" W ""being checked."""
^XMB(3.9,157,2,1555,0)="""RTN"",""XTSUMBLD"",75,0)"
^XMB(3.9,157,2,1556,0)=" Q"
^XMB(3.9,157,2,1557,0)="""RTN"",""XTSUMBLD"",76,0)"
^XMB(3.9,157,2,1558,0)=" ;"
^XMB(3.9,157,2,1559,0)="""RTN"",""XTSUMBLD"",77,0)"
^XMB(3.9,157,2,1560,0)="CHECK1 ;New CheckSum logic"
^XMB(3.9,157,2,1561,0)="""RTN"",""XTSUMBLD"",78,0)"
^XMB(3.9,157,2,1562,0)=" W !,""New CheckSum CHECK1^XTSUMBLD:"""
^XMB(3.9,157,2,1563,0)="""RTN"",""XTSUMBLD"",79,0)"
^XMB(3.9,157,2,1564,0)=" N XUCHFLG S XUCHFLG=1 D CHECK"
^XMB(3.9,157,2,1565,0)="""RTN"",""XTSUMBLD"",80,0)"
^XMB(3.9,157,2,1566,0)=" Q"
^XMB(3.9,157,2,1567,0)="""RTN"",""XTSUMBLD"",81,0)"
^XMB(3.9,157,2,1568,0)=" ;"
^XMB(3.9,157,2,1569,0)="""RTN"",""XTSUMBLD"",82,0)"
^XMB(3.9,157,2,1570,0)="CHCKSUM ;"
^XMB(3.9,157,2,1571,0)="""RTN"",""XTSUMBLD"",83,0)"
^XMB(3.9,157,2,1572,0)=" W !,""This option determines the current Old (CHECK^XTSUMBLD) or New (CHECK1^XTSUMBLD) logic checksum of selected routine(s)."""
^XMB(3.9,157,2,1573,0)="""RTN"",""XTSUMBLD"",84,0)"
^XMB(3.9,157,2,1574,0)=" N OON"
^XMB(3.9,157,2,1575,0)="""RTN"",""XTSUMBLD"",85,0)"
^XMB(3.9,157,2,1576,0)=" S OON=$$ASKOON Q:OON<1  ;Return 1 or 2"
^XMB(3.9,157,2,1577,0)="""RTN"",""XTSUMBLD"",86,0)"
^XMB(3.9,157,2,1578,0)=" I OON=1 D CHECK"
^XMB(3.9,157,2,1579,0)="""RTN"",""XTSUMBLD"",87,0)"
^XMB(3.9,157,2,1580,0)=" I OON=2 D CHECK1"
^XMB(3.9,157,2,1581,0)="""RTN"",""XTSUMBLD"",88,0)"
^XMB(3.9,157,2,1582,0)=" Q"
^XMB(3.9,157,2,1583,0)="""RTN"",""XTSUMBLD"",89,0)"
^XMB(3.9,157,2,1584,0)=" ;"
^XMB(3.9,157,2,1585,0)="""RTN"",""XTSUMBLD"",90,0)"
^XMB(3.9,157,2,1586,0)="ASKOON() ;"
^XMB(3.9,157,2,1587,0)="""RTN"",""XTSUMBLD"",91,0)"
^XMB(3.9,157,2,1588,0)=" ;Ask if user wants old/new checksum"
^XMB(3.9,157,2,1589,0)="""RTN"",""XTSUMBLD"",92,0)"
^XMB(3.9,157,2,1590,0)=" ;Return 1 or 2."
^XMB(3.9,157,2,1591,0)="""RTN"",""XTSUMBLD"",93,0)"
^XMB(3.9,157,2,1592,0)=" N DIR,DIOUT"
^XMB(3.9,157,2,1593,0)="""RTN"",""XTSUMBLD"",94,0)"
^XMB(3.9,157,2,1594,0)=" S DIR(0)=""S^1:Old;2:New"",DIR(""A"")=""New or Old Checksums"",DIR(""B"")=""New"""
^XMB(3.9,157,2,1595,0)="""RTN"",""XTSUMBLD"",95,0)"
^XMB(3.9,157,2,1596,0)=" D ^DIR"
^XMB(3.9,157,2,1597,0)="""RTN"",""XTSUMBLD"",96,0)"
^XMB(3.9,157,2,1598,0)=" I $D(DIRUT) S Y=-1"
^XMB(3.9,157,2,1599,0)="""RTN"",""XTSUMBLD"",97,0)"
^XMB(3.9,157,2,1600,0)=" Q Y"
^XMB(3.9,157,2,1601,0)="""RTN"",""XTSUMBLD"",98,0)"
^XMB(3.9,157,2,1602,0)="ROU ;;"
^XMB(3.9,157,2,1603,0)="""RTN"",""XTSUMBLD"",99,0)"
^XMB(3.9,157,2,1604,0)=" ;; ;ISC/XTSUMBLD KERNEL - Package checksum checker ;"
^XMB(3.9,157,2,1605,0)="""RTN"",""XTSUMBLD"",100,0)"
^XMB(3.9,157,2,1606,0)=" ;; ;;0.0;"
^XMB(3.9,157,2,1607,0)="""RTN"",""XTSUMBLD"",101,0)"
^XMB(3.9,157,2,1608,0)=" ;; ;;7.3;10/1/94"
^XMB(3.9,157,2,1609,0)="""RTN"",""XTSUMBLD"",102,0)"
^XMB(3.9,157,2,1610,0)=" ;; S XT4=""I 1"",X=$T(+3) W !!,""Checksum routine created on "",$P(X,"";"",4),"" by KERNEL V"",$P(X,"";"",3),!"
^XMB(3.9,157,2,1611,0)="""RTN"",""XTSUMBLD"",103,0)"
^XMB(3.9,157,2,1612,0)=" ;;CONT F XT1=1:1 S XT2=$T(ROU+XT1) Q:XT2=""""  S X=$P(XT2,"" "",1),XT3=$P(XT2,"";"",3) X XT4 I $T W !,X X ^%ZOSF(""TEST"") S:'$T XT3=0 X:XT3 ^%ZOSF(""RSUM"") W ?10,$S('XT3:""Routine not in UCI"",XT3'=Y:""Calculated ""_$C(7)_Y_"", off by ""_(Y-XT3),1:""ok"")"
^XMB(3.9,157,2,1613,0)="""RTN"",""XTSUMBLD"",104,0)"
^XMB(3.9,157,2,1614,0)=" ;; ;"
^XMB(3.9,157,2,1615,0)="""RTN"",""XTSUMBLD"",105,0)"
^XMB(3.9,157,2,1616,0)=" ;; K %1,%2,%3,X,Y,XT1,XT2,XT3,XT4 Q"
^XMB(3.9,157,2,1617,0)="""RTN"",""XTSUMBLD"",106,0)"
^XMB(3.9,157,2,1618,0)=" ;;ONE S XT4=""I $D(^UTILITY($J,X))"",X=$T(+3) W !!,""Checksum routine created on "",$P(X,"";"",4),"" by KERNEL V"",$P(X,"";"",3),!"
^XMB(3.9,157,2,1619,0)="""RTN"",""XTSUMBLD"",107,0)"
^XMB(3.9,157,2,1620,0)=" ;; W !,""Check a subset of routines:"" K ^UTILITY($J) X ^%ZOSF(""RSEL"")"
^XMB(3.9,157,2,1621,0)="""RTN"",""XTSUMBLD"",108,0)"
^XMB(3.9,157,2,1622,0)=" ;; W ! G CONT"
^XMB(3.9,157,2,1623,0)="""RTN"",""XTSUMBLD"",109,0)"
^XMB(3.9,157,2,1624,0)=" ;;ROU ;;"
^XMB(3.9,157,2,1625,0)="""VER"")"
^XMB(3.9,157,2,1626,0)="8.0^22.0"
^XMB(3.9,157,2,1627,0)="""BLD"",919,6)"
^XMB(3.9,157,2,1628,0)="^80"
^XMB(3.9,157,2,1629,0)="$END KID XT*7.3*100"
^XMB(3.9,157,6,0)="^3.911A^2^2"
^XMB(3.9,157,6,1,0)="POSTMASTER"
^XMB(3.9,157,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,157,6,"B","POSTMASTER",1)=""
^XMB(3.9,157,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,158,0)="XU-8_SEQ-338_PAT-329.KID^.5^3061008.015743^^^^K"
^XMB(3.9,158,.6)="3061008"
^XMB(3.9,158,1,0)="^3.91A^2^2"
^XMB(3.9,158,1,1,0)=".5^0^3061008.015743^^^^^^^3061008.015743"
^XMB(3.9,158,1,2,0)="1^0^3061008.030037^^^^^^^3061008.022857"
^XMB(3.9,158,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,158,1,"C",.5,1)=""
^XMB(3.9,158,1,"C",1,2)=""
^XMB(3.9,158,2,0)="^^569^569^3061008"
^XMB(3.9,158,2,1,0)="$TXT Released XU*8*329 SEQ #338"
^XMB(3.9,158,2,2,0)="Extracted from mail message"
^XMB(3.9,158,2,3,0)="$END TXT"
^XMB(3.9,158,2,4,0)="$KID XU*8.0*329"
^XMB(3.9,158,2,5,0)="**INSTALL NAME**"
^XMB(3.9,158,2,6,0)="XU*8.0*329"
^XMB(3.9,158,2,7,0)="""BLD"",789,0)"
^XMB(3.9,158,2,8,0)="XU*8.0*329^KERNEL^0^3050909^y"
^XMB(3.9,158,2,9,0)="""BLD"",789,1,0)"
^XMB(3.9,158,2,10,0)="^9.61A^2^2^3050909^^^^"
^XMB(3.9,158,2,11,0)="""BLD"",789,1,1,0)"
^XMB(3.9,158,2,12,0)="See patch XU*8*329 in the National Patch Module for complete"
^XMB(3.9,158,2,13,0)="""BLD"",789,1,2,0)"
^XMB(3.9,158,2,14,0)="information on this patch."
^XMB(3.9,158,2,15,0)="""BLD"",789,4,0)"
^XMB(3.9,158,2,16,0)="^9.64PA^^"
^XMB(3.9,158,2,17,0)="""BLD"",789,""KRN"",0)"
^XMB(3.9,158,2,18,0)="^9.67PA^8989.52^19"
^XMB(3.9,158,2,19,0)="""BLD"",789,""KRN"",.4,0)"
^XMB(3.9,158,2,20,0)=".4"
^XMB(3.9,158,2,21,0)="""BLD"",789,""KRN"",.401,0)"
^XMB(3.9,158,2,22,0)=".401"
^XMB(3.9,158,2,23,0)="""BLD"",789,""KRN"",.402,0)"
^XMB(3.9,158,2,24,0)=".402"
^XMB(3.9,158,2,25,0)="""BLD"",789,""KRN"",.403,0)"
^XMB(3.9,158,2,26,0)=".403"
^XMB(3.9,158,2,27,0)="""BLD"",789,""KRN"",.5,0)"
^XMB(3.9,158,2,28,0)=".5"
^XMB(3.9,158,2,29,0)="""BLD"",789,""KRN"",.84,0)"
^XMB(3.9,158,2,30,0)=".84"
^XMB(3.9,158,2,31,0)="""BLD"",789,""KRN"",3.6,0)"
^XMB(3.9,158,2,32,0)="3.6"
^XMB(3.9,158,2,33,0)="""BLD"",789,""KRN"",3.8,0)"
^XMB(3.9,158,2,34,0)="3.8"
^XMB(3.9,158,2,35,0)="""BLD"",789,""KRN"",9.2,0)"
^XMB(3.9,158,2,36,0)="9.2"
^XMB(3.9,158,2,37,0)="""BLD"",789,""KRN"",9.8,0)"
^XMB(3.9,158,2,38,0)="9.8"
^XMB(3.9,158,2,39,0)="""BLD"",789,""KRN"",9.8,""NM"",0)"
^XMB(3.9,158,2,40,0)="^9.68A^1^1"
^XMB(3.9,158,2,41,0)="""BLD"",789,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,158,2,42,0)="XUSKAAJ^^0^11494891"
^XMB(3.9,158,2,43,0)="""BLD"",789,""KRN"",9.8,""NM"",""B"",""XUSKAAJ"",1)"
^XMB(3.9,158,2,44,0)=""
^XMB(3.9,158,2,45,0)="""BLD"",789,""KRN"",19,0)"
^XMB(3.9,158,2,46,0)="19"
^XMB(3.9,158,2,47,0)="""BLD"",789,""KRN"",19,""NM"",0)"
^XMB(3.9,158,2,48,0)="^9.68A^2^2"
^XMB(3.9,158,2,49,0)="""BLD"",789,""KRN"",19,""NM"",1,0)"
^XMB(3.9,158,2,50,0)="XUS KAAJEE WEB LOGON^^0^"
^XMB(3.9,158,2,51,0)="""BLD"",789,""KRN"",19,""NM"",2,0)"
^XMB(3.9,158,2,52,0)="XUCOMMAND^^2"
^XMB(3.9,158,2,53,0)="""BLD"",789,""KRN"",19,""NM"",""B"",""XUCOMMAND"",2)"
^XMB(3.9,158,2,54,0)=""
^XMB(3.9,158,2,55,0)="""BLD"",789,""KRN"",19,""NM"",""B"",""XUS KAAJEE WEB LOGON"",1)"
^XMB(3.9,158,2,56,0)=""
^XMB(3.9,158,2,57,0)="""BLD"",789,""KRN"",19.1,0)"
^XMB(3.9,158,2,58,0)="19.1"
^XMB(3.9,158,2,59,0)="""BLD"",789,""KRN"",101,0)"
^XMB(3.9,158,2,60,0)="101"
^XMB(3.9,158,2,61,0)="""BLD"",789,""KRN"",409.61,0)"
^XMB(3.9,158,2,62,0)="409.61"
^XMB(3.9,158,2,63,0)="""BLD"",789,""KRN"",771,0)"
^XMB(3.9,158,2,64,0)="771"
^XMB(3.9,158,2,65,0)="""BLD"",789,""KRN"",870,0)"
^XMB(3.9,158,2,66,0)="870"
^XMB(3.9,158,2,67,0)="""BLD"",789,""KRN"",8989.51,0)"
^XMB(3.9,158,2,68,0)="8989.51"
^XMB(3.9,158,2,69,0)="""BLD"",789,""KRN"",8989.52,0)"
^XMB(3.9,158,2,70,0)="8989.52"
^XMB(3.9,158,2,71,0)="""BLD"",789,""KRN"",8994,0)"
^XMB(3.9,158,2,72,0)="8994"
^XMB(3.9,158,2,73,0)="""BLD"",789,""KRN"",8994,""NM"",0)"
^XMB(3.9,158,2,74,0)="^9.68A^2^2"
^XMB(3.9,158,2,75,0)="""BLD"",789,""KRN"",8994,""NM"",1,0)"
^XMB(3.9,158,2,76,0)="XUS KAAJEE GET USER INFO^^0"
^XMB(3.9,158,2,77,0)="""BLD"",789,""KRN"",8994,""NM"",2,0)"
^XMB(3.9,158,2,78,0)="XUS KAAJEE LOGOUT^^0"
^XMB(3.9,158,2,79,0)="""BLD"",789,""KRN"",8994,""NM"",""B"",""XUS KAAJEE GET USER INFO"",1)"
^XMB(3.9,158,2,80,0)=""
^XMB(3.9,158,2,81,0)="""BLD"",789,""KRN"",8994,""NM"",""B"",""XUS KAAJEE LOGOUT"",2)"
^XMB(3.9,158,2,82,0)=""
^XMB(3.9,158,2,83,0)="""BLD"",789,""KRN"",""B"",.4,.4)"
^XMB(3.9,158,2,84,0)=""
^XMB(3.9,158,2,85,0)="""BLD"",789,""KRN"",""B"",.401,.401)"
^XMB(3.9,158,2,86,0)=""
^XMB(3.9,158,2,87,0)="""BLD"",789,""KRN"",""B"",.402,.402)"
^XMB(3.9,158,2,88,0)=""
^XMB(3.9,158,2,89,0)="""BLD"",789,""KRN"",""B"",.403,.403)"
^XMB(3.9,158,2,90,0)=""
^XMB(3.9,158,2,91,0)="""BLD"",789,""KRN"",""B"",.5,.5)"
^XMB(3.9,158,2,92,0)=""
^XMB(3.9,158,2,93,0)="""BLD"",789,""KRN"",""B"",.84,.84)"
^XMB(3.9,158,2,94,0)=""
^XMB(3.9,158,2,95,0)="""BLD"",789,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,158,2,96,0)=""
^XMB(3.9,158,2,97,0)="""BLD"",789,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,158,2,98,0)=""
^XMB(3.9,158,2,99,0)="""BLD"",789,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,158,2,100,0)=""
^XMB(3.9,158,2,101,0)="""BLD"",789,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,158,2,102,0)=""
^XMB(3.9,158,2,103,0)="""BLD"",789,""KRN"",""B"",19,19)"
^XMB(3.9,158,2,104,0)=""
^XMB(3.9,158,2,105,0)="""BLD"",789,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,158,2,106,0)=""
^XMB(3.9,158,2,107,0)="""BLD"",789,""KRN"",""B"",101,101)"
^XMB(3.9,158,2,108,0)=""
^XMB(3.9,158,2,109,0)="""BLD"",789,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,158,2,110,0)=""
^XMB(3.9,158,2,111,0)="""BLD"",789,""KRN"",""B"",771,771)"
^XMB(3.9,158,2,112,0)=""
^XMB(3.9,158,2,113,0)="""BLD"",789,""KRN"",""B"",870,870)"
^XMB(3.9,158,2,114,0)=""
^XMB(3.9,158,2,115,0)="""BLD"",789,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,158,2,116,0)=""
^XMB(3.9,158,2,117,0)="""BLD"",789,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,158,2,118,0)=""
^XMB(3.9,158,2,119,0)="""BLD"",789,""KRN"",""B"",8994,8994)"
^XMB(3.9,158,2,120,0)=""
^XMB(3.9,158,2,121,0)="""BLD"",789,""QUES"",0)"
^XMB(3.9,158,2,122,0)="^9.62^^"
^XMB(3.9,158,2,123,0)="""BLD"",789,""REQB"",0)"
^XMB(3.9,158,2,124,0)="^9.611^4^4"
^XMB(3.9,158,2,125,0)="""BLD"",789,""REQB"",1,0)"
^XMB(3.9,158,2,126,0)="XOBS 1.5^1"
^XMB(3.9,158,2,127,0)="""BLD"",789,""REQB"",2,0)"
^XMB(3.9,158,2,128,0)="XU*8.0*265^1"
^XMB(3.9,158,2,129,0)="""BLD"",789,""REQB"",3,0)"
^XMB(3.9,158,2,130,0)="XWB*1.1*35^1"
^XMB(3.9,158,2,131,0)="""BLD"",789,""REQB"",4,0)"
^XMB(3.9,158,2,132,0)="XU*8.0*337^1"
^XMB(3.9,158,2,133,0)="""BLD"",789,""REQB"",""B"",""XOBS 1.5"",1)"
^XMB(3.9,158,2,134,0)=""
^XMB(3.9,158,2,135,0)="""BLD"",789,""REQB"",""B"",""XU*8.0*265"",2)"
^XMB(3.9,158,2,136,0)=""
^XMB(3.9,158,2,137,0)="""BLD"",789,""REQB"",""B"",""XU*8.0*337"",4)"
^XMB(3.9,158,2,138,0)=""
^XMB(3.9,158,2,139,0)="""BLD"",789,""REQB"",""B"",""XWB*1.1*35"",3)"
^XMB(3.9,158,2,140,0)=""
^XMB(3.9,158,2,141,0)="""KRN"",19,2,-1)"
^XMB(3.9,158,2,142,0)="2^2"
^XMB(3.9,158,2,143,0)="""KRN"",19,2,0)"
^XMB(3.9,158,2,144,0)="XUCOMMAND^SYSTEM COMMAND OPTIONS^^M^2^^^^^^^^y^"
^XMB(3.9,158,2,145,0)="""KRN"",19,2,10,0)"
^XMB(3.9,158,2,146,0)="^19.01IP^16^16"
^XMB(3.9,158,2,147,0)="""KRN"",19,2,10,14,0)"
^XMB(3.9,158,2,148,0)="976"
^XMB(3.9,158,2,149,0)="""KRN"",19,2,10,14,""^"")"
^XMB(3.9,158,2,150,0)="XUS KAAJEE WEB LOGON"
^XMB(3.9,158,2,151,0)="""KRN"",19,2,""U"")"
^XMB(3.9,158,2,152,0)="SYSTEM COMMAND OPTIONS"
^XMB(3.9,158,2,153,0)="""KRN"",19,976,-1)"
^XMB(3.9,158,2,154,0)="0^1"
^XMB(3.9,158,2,155,0)="""KRN"",19,976,0)"
^XMB(3.9,158,2,156,0)="XUS KAAJEE WEB LOGON^KAAJEE BROKER CONTEXT^^B^^^^^^^^KERNEL"
^XMB(3.9,158,2,157,0)="""KRN"",19,976,99.1)"
^XMB(3.9,158,2,158,0)="59801,31367"
^XMB(3.9,158,2,159,0)="""KRN"",19,976,""RPC"",0)"
^XMB(3.9,158,2,160,0)="^19.05P^5^4"
^XMB(3.9,158,2,161,0)="""KRN"",19,976,""RPC"",3,0)"
^XMB(3.9,158,2,162,0)="XUS KAAJEE GET USER INFO"
^XMB(3.9,158,2,163,0)="""KRN"",19,976,""RPC"",4,0)"
^XMB(3.9,158,2,164,0)="XUS KAAJEE LOGOUT"
^XMB(3.9,158,2,165,0)="""KRN"",19,976,""RPC"",5,0)"
^XMB(3.9,158,2,166,0)="XUS ALLKEYS"
^XMB(3.9,158,2,167,0)="""KRN"",19,976,""U"")"
^XMB(3.9,158,2,168,0)="KAAJEE BROKER CONTEXT"
^XMB(3.9,158,2,169,0)="""KRN"",8994,129,-1)"
^XMB(3.9,158,2,170,0)="0^1"
^XMB(3.9,158,2,171,0)="""KRN"",8994,129,0)"
^XMB(3.9,158,2,172,0)="XUS KAAJEE GET USER INFO^USERINFO^XUSKAAJ^2"
^XMB(3.9,158,2,173,0)="""KRN"",8994,129,1,0)"
^XMB(3.9,158,2,174,0)="^8994.01^1^1^3031209^^^^"
^XMB(3.9,158,2,175,0)="""KRN"",8994,129,1,1,0)"
^XMB(3.9,158,2,176,0)="Returns a variety of information needed for the KAAJEE logon."
^XMB(3.9,158,2,177,0)="""KRN"",8994,129,2,0)"
^XMB(3.9,158,2,178,0)="^8994.02A^2^2"
^XMB(3.9,158,2,179,0)="""KRN"",8994,129,2,1,0)"
^XMB(3.9,158,2,180,0)="CLIENT-IP^1^^1^1"
^XMB(3.9,158,2,181,0)="""KRN"",8994,129,2,1,1,0)"
^XMB(3.9,158,2,182,0)="^^2^2^3031209^"
^XMB(3.9,158,2,183,0)="""KRN"",8994,129,2,1,1,1,0)"
^XMB(3.9,158,2,184,0)="IP address of the client workstation, used for logging (signon log)"
^XMB(3.9,158,2,185,0)="""KRN"",8994,129,2,1,1,2,0)"
^XMB(3.9,158,2,186,0)="and IP blocking (failed access attempts)."
^XMB(3.9,158,2,187,0)="""KRN"",8994,129,2,2,0)"
^XMB(3.9,158,2,188,0)="SERVER-NM^1^^1^2"
^XMB(3.9,158,2,189,0)="""KRN"",8994,129,2,2,1,0)"
^XMB(3.9,158,2,190,0)="^^2^2^3031209^"
^XMB(3.9,158,2,191,0)="""KRN"",8994,129,2,2,1,1,0)"
^XMB(3.9,158,2,192,0)="Identifying name for the calling application or server,"
^XMB(3.9,158,2,193,0)="""KRN"",8994,129,2,2,1,2,0)"
^XMB(3.9,158,2,194,0)="used for logging (signon log)."
^XMB(3.9,158,2,195,0)="""KRN"",8994,129,2,""B"",""CLIENT-IP"",1)"
^XMB(3.9,158,2,196,0)=""
^XMB(3.9,158,2,197,0)="""KRN"",8994,129,2,""B"",""SERVER-NM"",2)"
^XMB(3.9,158,2,198,0)=""
^XMB(3.9,158,2,199,0)="""KRN"",8994,129,2,""PARAMSEQ"",1,1)"
^XMB(3.9,158,2,200,0)=""
^XMB(3.9,158,2,201,0)="""KRN"",8994,129,2,""PARAMSEQ"",2,2)"
^XMB(3.9,158,2,202,0)=""
^XMB(3.9,158,2,203,0)="""KRN"",8994,129,3,0)"
^XMB(3.9,158,2,204,0)="^^18^18^3040330^"
^XMB(3.9,158,2,205,0)="""KRN"",8994,129,3,1,0)"
^XMB(3.9,158,2,206,0)="OUTPUT:"
^XMB(3.9,158,2,207,0)="""KRN"",8994,129,3,2,0)"
^XMB(3.9,158,2,208,0)="Result(0) is the users DUZ."
^XMB(3.9,158,2,209,0)="""KRN"",8994,129,3,3,0)"
^XMB(3.9,158,2,210,0)="Result(1) is the user name from the .01 field."
^XMB(3.9,158,2,211,0)="""KRN"",8994,129,3,4,0)"
^XMB(3.9,158,2,212,0)="Result(2) is the users full name from the name standard file."
^XMB(3.9,158,2,213,0)="""KRN"",8994,129,3,5,0)"
^XMB(3.9,158,2,214,0)="Result(3) is the FAMILY (LAST) NAME"
^XMB(3.9,158,2,215,0)="""KRN"",8994,129,3,6,0)"
^XMB(3.9,158,2,216,0)="Result(4) is the GIVEN (FIRST) NAME"
^XMB(3.9,158,2,217,0)="""KRN"",8994,129,3,7,0)"
^XMB(3.9,158,2,218,0)="Result(5) is the MIDDLE NAME"
^XMB(3.9,158,2,219,0)="""KRN"",8994,129,3,8,0)"
^XMB(3.9,158,2,220,0)="Result(6) is the PREFIX"
^XMB(3.9,158,2,221,0)="""KRN"",8994,129,3,9,0)"
^XMB(3.9,158,2,222,0)="Result(7) is the SUFFIX"
^XMB(3.9,158,2,223,0)="""KRN"",8994,129,3,10,0)"
^XMB(3.9,158,2,224,0)="Result(8) is the DEGREE"
^XMB(3.9,158,2,225,0)="""KRN"",8994,129,3,11,0)"
^XMB(3.9,158,2,226,0)="Result(9) is station # of the division that the user is working in."
^XMB(3.9,158,2,227,0)="""KRN"",8994,129,3,12,0)"
^XMB(3.9,158,2,228,0)="Result(10) is the station # of the parent facility for the login division"
^XMB(3.9,158,2,229,0)="""KRN"",8994,129,3,13,0)"
^XMB(3.9,158,2,230,0)="Result(11) is the station # from the KSP site parameters, the parent "
^XMB(3.9,158,2,231,0)="""KRN"",8994,129,3,14,0)"
^XMB(3.9,158,2,232,0)="""computer system"""
^XMB(3.9,158,2,233,0)="""KRN"",8994,129,3,15,0)"
^XMB(3.9,158,2,234,0)="Result(12) is the signon log entry IEN"
^XMB(3.9,158,2,235,0)="""KRN"",8994,129,3,16,0)"
^XMB(3.9,158,2,236,0)="Result(13) = # of permissible divisions"
^XMB(3.9,158,2,237,0)="""KRN"",8994,129,3,17,0)"
^XMB(3.9,158,2,238,0)="Result(14-n) are the permissible divisions for user login, in the format:"
^XMB(3.9,158,2,239,0)="""KRN"",8994,129,3,18,0)"
^XMB(3.9,158,2,240,0)="IEN of file 4^Station Name^Station Number^default? (1 or 0)"
^XMB(3.9,158,2,241,0)="""KRN"",8994,130,-1)"
^XMB(3.9,158,2,242,0)="0^2"
^XMB(3.9,158,2,243,0)="""KRN"",8994,130,0)"
^XMB(3.9,158,2,244,0)="XUS KAAJEE LOGOUT^SIGNOFF^XUSKAAJ^1^R"
^XMB(3.9,158,2,245,0)="""KRN"",8994,130,1,0)"
^XMB(3.9,158,2,246,0)="^^2^2^3031209^"
^XMB(3.9,158,2,247,0)="""KRN"",8994,130,1,1,0)"
^XMB(3.9,158,2,248,0)="This RPC calls the LOUT^XUSCLEAN tag to mark a KAAJEE-signed-on user's"
^XMB(3.9,158,2,249,0)="""KRN"",8994,130,1,2,0)"
^XMB(3.9,158,2,250,0)="entry in the sign-on log as signed off."
^XMB(3.9,158,2,251,0)="""KRN"",8994,130,2,0)"
^XMB(3.9,158,2,252,0)="^8994.02A^1^1"
^XMB(3.9,158,2,253,0)="""KRN"",8994,130,2,1,0)"
^XMB(3.9,158,2,254,0)="SIGNON-LOG-DA^1^1^1^1"
^XMB(3.9,158,2,255,0)="""KRN"",8994,130,2,1,1,0)"
^XMB(3.9,158,2,256,0)="^^1^1^3031209^"
^XMB(3.9,158,2,257,0)="""KRN"",8994,130,2,1,1,1,0)"
^XMB(3.9,158,2,258,0)="The DA (IEN) of the user's signon log entry."
^XMB(3.9,158,2,259,0)="""KRN"",8994,130,2,""B"",""SIGNON-LOG-DA"",1)"
^XMB(3.9,158,2,260,0)=""
^XMB(3.9,158,2,261,0)="""KRN"",8994,130,2,""PARAMSEQ"",1,1)"
^XMB(3.9,158,2,262,0)=""
^XMB(3.9,158,2,263,0)="""KRN"",8994,130,3,0)"
^XMB(3.9,158,2,264,0)="^8994.03^1^1^3040330^^"
^XMB(3.9,158,2,265,0)="""KRN"",8994,130,3,1,0)"
^XMB(3.9,158,2,266,0)="Returns 1. The return value has no significance."
^XMB(3.9,158,2,267,0)="""MBREQ"")"
^XMB(3.9,158,2,268,0)="0"
^XMB(3.9,158,2,269,0)="""ORD"",16,8994)"
^XMB(3.9,158,2,270,0)="8994;16;1;;;;;;;RPCDEL^XPDIA1"
^XMB(3.9,158,2,271,0)="""ORD"",16,8994,0)"
^XMB(3.9,158,2,272,0)="REMOTE PROCEDURE"
^XMB(3.9,158,2,273,0)="""ORD"",18,19)"
^XMB(3.9,158,2,274,0)="19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA"
^XMB(3.9,158,2,275,0)="""ORD"",18,19,0)"
^XMB(3.9,158,2,276,0)="OPTION"
^XMB(3.9,158,2,277,0)="""PKG"",3,-1)"
^XMB(3.9,158,2,278,0)="1^1"
^XMB(3.9,158,2,279,0)="""PKG"",3,0)"
^XMB(3.9,158,2,280,0)="KERNEL^XU^SIGN-ON, SECURITY, MENU DRIVER, DEVICES, TASKMAN^"
^XMB(3.9,158,2,281,0)="""PKG"",3,20,0)"
^XMB(3.9,158,2,282,0)="^9.402P^^0"
^XMB(3.9,158,2,283,0)="""PKG"",3,22,0)"
^XMB(3.9,158,2,284,0)="^9.49I^1^1"
^XMB(3.9,158,2,285,0)="""PKG"",3,22,1,0)"
^XMB(3.9,158,2,286,0)="8.0^2950703^2970507^.5"
^XMB(3.9,158,2,287,0)="""PKG"",3,22,1,""PAH"",1,0)"
^XMB(3.9,158,2,288,0)="329^3050909^15"
^XMB(3.9,158,2,289,0)="""PKG"",3,22,1,""PAH"",1,1,0)"
^XMB(3.9,158,2,290,0)="^^2^2^3050909"
^XMB(3.9,158,2,291,0)="""PKG"",3,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,158,2,292,0)="See patch XU*8*329 in the National Patch Module for complete"
^XMB(3.9,158,2,293,0)="""PKG"",3,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,158,2,294,0)="information on this patch."
^XMB(3.9,158,2,295,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,158,2,296,0)="Y"
^XMB(3.9,158,2,297,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,158,2,298,0)="^D REP^XPDH"
^XMB(3.9,158,2,299,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,158,2,300,0)="Shall I write over your |FLAG| File"
^XMB(3.9,158,2,301,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,158,2,302,0)="YES"
^XMB(3.9,158,2,303,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,158,2,304,0)="D XPF1^XPDIQ"
^XMB(3.9,158,2,305,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,158,2,306,0)="Y"
^XMB(3.9,158,2,307,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,158,2,308,0)="^D DTA^XPDH"
^XMB(3.9,158,2,309,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,158,2,310,0)="Want my data |FLAG| yours"
^XMB(3.9,158,2,311,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,158,2,312,0)="YES"
^XMB(3.9,158,2,313,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,158,2,314,0)="D XPF2^XPDIQ"
^XMB(3.9,158,2,315,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,158,2,316,0)="YO"
^XMB(3.9,158,2,317,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,158,2,318,0)="^D INHIBIT^XPDH"
^XMB(3.9,158,2,319,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,158,2,320,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,158,2,321,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,158,2,322,0)="YES"
^XMB(3.9,158,2,323,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,158,2,324,0)="D XPI1^XPDIQ"
^XMB(3.9,158,2,325,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,158,2,326,0)="PO^VA(200,:EM"
^XMB(3.9,158,2,327,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,158,2,328,0)="^D MG^XPDH"
^XMB(3.9,158,2,329,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,158,2,330,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,158,2,331,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,158,2,332,0)=""
^XMB(3.9,158,2,333,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,158,2,334,0)="D XPM1^XPDIQ"
^XMB(3.9,158,2,335,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,158,2,336,0)="Y"
^XMB(3.9,158,2,337,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,158,2,338,0)="^D MENU^XPDH"
^XMB(3.9,158,2,339,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,158,2,340,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,158,2,341,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,158,2,342,0)="YES"
^XMB(3.9,158,2,343,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,158,2,344,0)="D XPO1^XPDIQ"
^XMB(3.9,158,2,345,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,158,2,346,0)="Y"
^XMB(3.9,158,2,347,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,158,2,348,0)="^D OPT^XPDH"
^XMB(3.9,158,2,349,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,158,2,350,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,158,2,351,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,158,2,352,0)="YES"
^XMB(3.9,158,2,353,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,158,2,354,0)="D XPZ1^XPDIQ"
^XMB(3.9,158,2,355,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,158,2,356,0)="Y"
^XMB(3.9,158,2,357,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,158,2,358,0)="^D RTN^XPDH"
^XMB(3.9,158,2,359,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,158,2,360,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,158,2,361,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,158,2,362,0)="NO"
^XMB(3.9,158,2,363,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,158,2,364,0)="D XPZ2^XPDIQ"
^XMB(3.9,158,2,365,0)="""RTN"")"
^XMB(3.9,158,2,366,0)="1"
^XMB(3.9,158,2,367,0)="""RTN"",""XUSKAAJ"")"
^XMB(3.9,158,2,368,0)="0^1^B11494891"
^XMB(3.9,158,2,369,0)="""RTN"",""XUSKAAJ"",1,0)"
^XMB(3.9,158,2,370,0)="XUSKAAJ ;; kec/oak - KAAJEE Utilities ;09/09/2005  752191.803993"
^XMB(3.9,158,2,371,0)="""RTN"",""XUSKAAJ"",2,0)"
^XMB(3.9,158,2,372,0)=" ;;8.0;KERNEL;**329**;Jul 10, 1995"
^XMB(3.9,158,2,373,0)="""RTN"",""XUSKAAJ"",3,0)"
^XMB(3.9,158,2,374,0)=" ;;"
^XMB(3.9,158,2,375,0)="""RTN"",""XUSKAAJ"",4,0)"
^XMB(3.9,158,2,376,0)=" QUIT"
^XMB(3.9,158,2,377,0)="""RTN"",""XUSKAAJ"",5,0)"
^XMB(3.9,158,2,378,0)=" ;"
^XMB(3.9,158,2,379,0)="""RTN"",""XUSKAAJ"",6,0)"
^XMB(3.9,158,2,380,0)=" ; ------------------------------------------------------------------------"
^XMB(3.9,158,2,381,0)="""RTN"",""XUSKAAJ"",7,0)"
^XMB(3.9,158,2,382,0)=" ;   SSO/UC KAAJEE RPCs"
^XMB(3.9,158,2,383,0)="""RTN"",""XUSKAAJ"",8,0)"
^XMB(3.9,158,2,384,0)=" ; ------------------------------------------------------------------------"
^XMB(3.9,158,2,385,0)="""RTN"",""XUSKAAJ"",9,0)"
^XMB(3.9,158,2,386,0)=" ;"
^XMB(3.9,158,2,387,0)="""RTN"",""XUSKAAJ"",10,0)"
^XMB(3.9,158,2,388,0)="USERINFO(RET,CLIENTIP,SERVERNM) ; called by XUS KAAJEE GET USER INFO rpc"
^XMB(3.9,158,2,389,0)="""RTN"",""XUSKAAJ"",11,0)"
^XMB(3.9,158,2,390,0)=" ;"
^XMB(3.9,158,2,391,0)="""RTN"",""XUSKAAJ"",12,0)"
^XMB(3.9,158,2,392,0)=" ; INPUT:"
^XMB(3.9,158,2,393,0)="""RTN"",""XUSKAAJ"",13,0)"
^XMB(3.9,158,2,394,0)=" ; CLIENTIP is IP address of the client workstation, used for logging (signon log) and IP blocking (failed access attempts)."
^XMB(3.9,158,2,395,0)="""RTN"",""XUSKAAJ"",14,0)"
^XMB(3.9,158,2,396,0)=" ; SERVERNM is Identifying name for the calling application or server, used for logging (signon log)."
^XMB(3.9,158,2,397,0)="""RTN"",""XUSKAAJ"",15,0)"
^XMB(3.9,158,2,398,0)=" ; OUTPUT:"
^XMB(3.9,158,2,399,0)="""RTN"",""XUSKAAJ"",16,0)"
^XMB(3.9,158,2,400,0)=" ; Result(0) is the users DUZ."
^XMB(3.9,158,2,401,0)="""RTN"",""XUSKAAJ"",17,0)"
^XMB(3.9,158,2,402,0)=" ; Result(1) is the user name from the .01 field."
^XMB(3.9,158,2,403,0)="""RTN"",""XUSKAAJ"",18,0)"
^XMB(3.9,158,2,404,0)=" ; Result(2) is the users full name from the name standard file."
^XMB(3.9,158,2,405,0)="""RTN"",""XUSKAAJ"",19,0)"
^XMB(3.9,158,2,406,0)=" ; Result(3) is the FAMILY (LAST) NAME"
^XMB(3.9,158,2,407,0)="""RTN"",""XUSKAAJ"",20,0)"
^XMB(3.9,158,2,408,0)=" ; Result(4) is the GIVEN (FIRST) NAME"
^XMB(3.9,158,2,409,0)="""RTN"",""XUSKAAJ"",21,0)"
^XMB(3.9,158,2,410,0)=" ; Result(5) is the MIDDLE NAME"
^XMB(3.9,158,2,411,0)="""RTN"",""XUSKAAJ"",22,0)"
^XMB(3.9,158,2,412,0)=" ; Result(6) is the PREFIX"
^XMB(3.9,158,2,413,0)="""RTN"",""XUSKAAJ"",23,0)"
^XMB(3.9,158,2,414,0)=" ; Result(7) is the SUFFIX"
^XMB(3.9,158,2,415,0)="""RTN"",""XUSKAAJ"",24,0)"
^XMB(3.9,158,2,416,0)=" ; Result(8) is the DEGREE"
^XMB(3.9,158,2,417,0)="""RTN"",""XUSKAAJ"",25,0)"
^XMB(3.9,158,2,418,0)=" ; Result(9) is station # of the division that the user is working in."
^XMB(3.9,158,2,419,0)="""RTN"",""XUSKAAJ"",26,0)"
^XMB(3.9,158,2,420,0)=" ; Result(10) is the station # of the parent facility for the login division"
^XMB(3.9,158,2,421,0)="""RTN"",""XUSKAAJ"",27,0)"
^XMB(3.9,158,2,422,0)=" ; Result(11) is the station # from the KSP site parameters, the parent ""computer system"""
^XMB(3.9,158,2,423,0)="""RTN"",""XUSKAAJ"",28,0)"
^XMB(3.9,158,2,424,0)=" ; Result(12) is the signon log entry IEN"
^XMB(3.9,158,2,425,0)="""RTN"",""XUSKAAJ"",29,0)"
^XMB(3.9,158,2,426,0)=" ; Result(13) = # of permissible divisions"
^XMB(3.9,158,2,427,0)="""RTN"",""XUSKAAJ"",30,0)"
^XMB(3.9,158,2,428,0)=" ; Result(14-n) are the permissible divisions for user login, in the format:"
^XMB(3.9,158,2,429,0)="""RTN"",""XUSKAAJ"",31,0)"
^XMB(3.9,158,2,430,0)=" ;           IEN of file 4^Station Name^Station Number^default? (1 or 0)"
^XMB(3.9,158,2,431,0)="""RTN"",""XUSKAAJ"",32,0)"
^XMB(3.9,158,2,432,0)=" ;"
^XMB(3.9,158,2,433,0)="""RTN"",""XUSKAAJ"",33,0)"
^XMB(3.9,158,2,434,0)=" N XUNC,XUNC1,XUKERR,XUKRET,XUDIVS,XUKI,XULINE,XUPARENT,XUDIVLIN,XUKDEF"
^XMB(3.9,158,2,435,0)="""RTN"",""XUSKAAJ"",34,0)"
^XMB(3.9,158,2,436,0)=" ;"
^XMB(3.9,158,2,437,0)="""RTN"",""XUSKAAJ"",35,0)"
^XMB(3.9,158,2,438,0)=" ; initialize return array"
^XMB(3.9,158,2,439,0)="""RTN"",""XUSKAAJ"",36,0)"
^XMB(3.9,158,2,440,0)=" S RET(0)=DUZ"
^XMB(3.9,158,2,441,0)="""RTN"",""XUSKAAJ"",37,0)"
^XMB(3.9,158,2,442,0)=" F I=1:1:13 S RET(I)="""""
^XMB(3.9,158,2,443,0)="""RTN"",""XUSKAAJ"",38,0)"
^XMB(3.9,158,2,444,0)=" ;"
^XMB(3.9,158,2,445,0)="""RTN"",""XUSKAAJ"",39,0)"
^XMB(3.9,158,2,446,0)=" ; get ptr to Name Components file"
^XMB(3.9,158,2,447,0)="""RTN"",""XUSKAAJ"",40,0)"
^XMB(3.9,158,2,448,0)=" D GETS^DIQ(200,DUZ_"","",""10.1"",""I"",""XUNC"",""XUKERR"")"
^XMB(3.9,158,2,449,0)="""RTN"",""XUSKAAJ"",41,0)"
^XMB(3.9,158,2,450,0)=" I '$D(XUKERR) D"
^XMB(3.9,158,2,451,0)="""RTN"",""XUSKAAJ"",42,0)"
^XMB(3.9,158,2,452,0)=" .S XUNC=XUNC(200,DUZ_"","",10.1,""I"")"
^XMB(3.9,158,2,453,0)="""RTN"",""XUSKAAJ"",43,0)"
^XMB(3.9,158,2,454,0)=" .; get name components"
^XMB(3.9,158,2,455,0)="""RTN"",""XUSKAAJ"",44,0)"
^XMB(3.9,158,2,456,0)=" .D GETS^DIQ(20,XUNC_"","",""1:6"","""",""XUNC1"",""XUKERR"")"
^XMB(3.9,158,2,457,0)="""RTN"",""XUSKAAJ"",45,0)"
^XMB(3.9,158,2,458,0)=" .I '$D(XUKERR) D"
^XMB(3.9,158,2,459,0)="""RTN"",""XUSKAAJ"",46,0)"
^XMB(3.9,158,2,460,0)=" ..S RET(3)=XUNC1(20,XUNC_"","",1) S:'$L(RET(3)) RET(3)=""^"""
^XMB(3.9,158,2,461,0)="""RTN"",""XUSKAAJ"",47,0)"
^XMB(3.9,158,2,462,0)=" ..S RET(4)=XUNC1(20,XUNC_"","",2) S:'$L(RET(4)) RET(4)=""^"""
^XMB(3.9,158,2,463,0)="""RTN"",""XUSKAAJ"",48,0)"
^XMB(3.9,158,2,464,0)=" ..S RET(5)=XUNC1(20,XUNC_"","",3) S:'$L(RET(5)) RET(5)=""^"""
^XMB(3.9,158,2,465,0)="""RTN"",""XUSKAAJ"",49,0)"
^XMB(3.9,158,2,466,0)=" ..S RET(6)=XUNC1(20,XUNC_"","",4) S:'$L(RET(6)) RET(6)=""^"""
^XMB(3.9,158,2,467,0)="""RTN"",""XUSKAAJ"",50,0)"
^XMB(3.9,158,2,468,0)=" ..S RET(7)=XUNC1(20,XUNC_"","",5) S:'$L(RET(7)) RET(7)=""^"""
^XMB(3.9,158,2,469,0)="""RTN"",""XUSKAAJ"",51,0)"
^XMB(3.9,158,2,470,0)=" ..S RET(8)=XUNC1(20,XUNC_"","",6) S:'$L(RET(8)) RET(8)=""^"""
^XMB(3.9,158,2,471,0)="""RTN"",""XUSKAAJ"",52,0)"
^XMB(3.9,158,2,472,0)=" ;"
^XMB(3.9,158,2,473,0)="""RTN"",""XUSKAAJ"",53,0)"
^XMB(3.9,158,2,474,0)=" ; get .01 New Person name, Name components name, and login division info"
^XMB(3.9,158,2,475,0)="""RTN"",""XUSKAAJ"",54,0)"
^XMB(3.9,158,2,476,0)=" D USERINFO^XUSRB2(.XUKRET)"
^XMB(3.9,158,2,477,0)="""RTN"",""XUSKAAJ"",55,0)"
^XMB(3.9,158,2,478,0)=" S RET(1)=XUKRET(1) S:'$L(RET(1)) RET(1)=""^"""
^XMB(3.9,158,2,479,0)="""RTN"",""XUSKAAJ"",56,0)"
^XMB(3.9,158,2,480,0)=" S RET(2)=XUKRET(2) S:'$L(RET(2)) RET(2)=""^"""
^XMB(3.9,158,2,481,0)="""RTN"",""XUSKAAJ"",57,0)"
^XMB(3.9,158,2,482,0)=" S RET(9)=$P(XUKRET(3),U,3) S:'$L(RET(9)) RET(9)=""0"""
^XMB(3.9,158,2,483,0)="""RTN"",""XUSKAAJ"",58,0)"
^XMB(3.9,158,2,484,0)=" ;"
^XMB(3.9,158,2,485,0)="""RTN"",""XUSKAAJ"",59,0)"
^XMB(3.9,158,2,486,0)=" ; get parent facility station#"
^XMB(3.9,158,2,487,0)="""RTN"",""XUSKAAJ"",60,0)"
^XMB(3.9,158,2,488,0)=" S XUPARENT=$$PRNT^XUAF4(RET(9))"
^XMB(3.9,158,2,489,0)="""RTN"",""XUSKAAJ"",61,0)"
^XMB(3.9,158,2,490,0)=" S RET(10)=$S(($P(XUPARENT,U)<1):XUPARENT,1:$$STA^XUAF4($P(XUPARENT,U)))"
^XMB(3.9,158,2,491,0)="""RTN"",""XUSKAAJ"",62,0)"
^XMB(3.9,158,2,492,0)=" ;"
^XMB(3.9,158,2,493,0)="""RTN"",""XUSKAAJ"",63,0)"
^XMB(3.9,158,2,494,0)=" ; get the computer system station#"
^XMB(3.9,158,2,495,0)="""RTN"",""XUSKAAJ"",64,0)"
^XMB(3.9,158,2,496,0)=" S RET(11)=$$STA^XUAF4($$KSP^XUPARAM(""INST""))"
^XMB(3.9,158,2,497,0)="""RTN"",""XUSKAAJ"",65,0)"
^XMB(3.9,158,2,498,0)=" S:'$L(RET(11)) RET(11)=""0"""
^XMB(3.9,158,2,499,0)="""RTN"",""XUSKAAJ"",66,0)"
^XMB(3.9,158,2,500,0)=" ;"
^XMB(3.9,158,2,501,0)="""RTN"",""XUSKAAJ"",67,0)"
^XMB(3.9,158,2,502,0)=" ; make signon log entry, get IEN"
^XMB(3.9,158,2,503,0)="""RTN"",""XUSKAAJ"",68,0)"
^XMB(3.9,158,2,504,0)=" S RET(12)=$$SIGNLOG^XUSKAAJ(CLIENTIP,SERVERNM)"
^XMB(3.9,158,2,505,0)="""RTN"",""XUSKAAJ"",69,0)"
^XMB(3.9,158,2,506,0)=" ;"
^XMB(3.9,158,2,507,0)="""RTN"",""XUSKAAJ"",70,0)"
^XMB(3.9,158,2,508,0)=" ; get permitted divisions"
^XMB(3.9,158,2,509,0)="""RTN"",""XUSKAAJ"",71,0)"
^XMB(3.9,158,2,510,0)=" S XUDIVLIN=13 ; return array subscript counter for division start point"
^XMB(3.9,158,2,511,0)="""RTN"",""XUSKAAJ"",72,0)"
^XMB(3.9,158,2,512,0)=" D DIVGET^XUSRB2(.XUDIVS,DUZ)"
^XMB(3.9,158,2,513,0)="""RTN"",""XUSKAAJ"",73,0)"
^XMB(3.9,158,2,514,0)=" I '+XUDIVS(0) S RET(XUDIVLIN)=1,RET(XUDIVLIN+1)=XUKRET(3)_""^1"" ; only 1 division, so use login division."
^XMB(3.9,158,2,515,0)="""RTN"",""XUSKAAJ"",74,0)"
^XMB(3.9,158,2,516,0)=" I +XUDIVS(0) S RET(XUDIVLIN)=+XUDIVS(0) D"
^XMB(3.9,158,2,517,0)="""RTN"",""XUSKAAJ"",75,0)"
^XMB(3.9,158,2,518,0)=" .S XUKDEF=$O(^VA(200,DUZ,2,""AX1"",1,"""")) ; default division if any. Should only be 1."
^XMB(3.9,158,2,519,0)="""RTN"",""XUSKAAJ"",76,0)"
^XMB(3.9,158,2,520,0)=" .S XUKI=0,XULINE=XUDIVLIN F  S XUKI=$O(XUDIVS(XUKI)) Q:XUKI']""""  D"
^XMB(3.9,158,2,521,0)="""RTN"",""XUSKAAJ"",77,0)"
^XMB(3.9,158,2,522,0)=" ..S XULINE=XULINE+1,RET(XULINE)=XUDIVS(XUKI)"
^XMB(3.9,158,2,523,0)="""RTN"",""XUSKAAJ"",78,0)"
^XMB(3.9,158,2,524,0)=" ..S $P(RET(XULINE),U,4)=$S($P(XUDIVS(XUKI),U)=XUKDEF:1,1:0)"
^XMB(3.9,158,2,525,0)="""RTN"",""XUSKAAJ"",79,0)"
^XMB(3.9,158,2,526,0)=" ;"
^XMB(3.9,158,2,527,0)="""RTN"",""XUSKAAJ"",80,0)"
^XMB(3.9,158,2,528,0)=" Q"
^XMB(3.9,158,2,529,0)="""RTN"",""XUSKAAJ"",81,0)"
^XMB(3.9,158,2,530,0)=" ;"
^XMB(3.9,158,2,531,0)="""RTN"",""XUSKAAJ"",82,0)"
^XMB(3.9,158,2,532,0)="SIGNOFF(RET,DA) ; kill entry in sign-on log. Called by XUS KAAJEE LOGOUT rpc."
^XMB(3.9,158,2,533,0)="""RTN"",""XUSKAAJ"",83,0)"
^XMB(3.9,158,2,534,0)=" D LOUT^XUSCLEAN(DA)"
^XMB(3.9,158,2,535,0)="""RTN"",""XUSKAAJ"",84,0)"
^XMB(3.9,158,2,536,0)=" S RET=1 Q"
^XMB(3.9,158,2,537,0)="""RTN"",""XUSKAAJ"",85,0)"
^XMB(3.9,158,2,538,0)=" ;"
^XMB(3.9,158,2,539,0)="""RTN"",""XUSKAAJ"",86,0)"
^XMB(3.9,158,2,540,0)="SIGNLOG(CLIENTIP,SERVERNM) ; make a signon log entry for KAAJEE user"
^XMB(3.9,158,2,541,0)="""RTN"",""XUSKAAJ"",87,0)"
^XMB(3.9,158,2,542,0)=" ; todo: expand size of server name field?"
^XMB(3.9,158,2,543,0)="""RTN"",""XUSKAAJ"",88,0)"
^XMB(3.9,158,2,544,0)=" N XP1,XPIP,XPCLNM,Y"
^XMB(3.9,158,2,545,0)="""RTN"",""XUSKAAJ"",89,0)"
^XMB(3.9,158,2,546,0)=" S:$D(IO(""IP"")) XPIP=IO(""IP"") S IO(""IP"")=CLIENTIP"
^XMB(3.9,158,2,547,0)="""RTN"",""XUSKAAJ"",90,0)"
^XMB(3.9,158,2,548,0)=" S:$D(IO(""CLNM"")) XPCLNM=IO(""CLNM"") S IO(""CLNM"")=$E(SERVERNM,1,20)"
^XMB(3.9,158,2,549,0)="""RTN"",""XUSKAAJ"",91,0)"
^XMB(3.9,158,2,550,0)=" ;"
^XMB(3.9,158,2,551,0)="""RTN"",""XUSKAAJ"",92,0)"
^XMB(3.9,158,2,552,0)=" D GETENV^%ZOSV"
^XMB(3.9,158,2,553,0)="""RTN"",""XUSKAAJ"",93,0)"
^XMB(3.9,158,2,554,0)=" S XP1=$$SLOG^XUS1($P(Y,U,2),,,$P(Y,U),$P(Y,U,3),""KAAJEE"","""")"
^XMB(3.9,158,2,555,0)="""RTN"",""XUSKAAJ"",94,0)"
^XMB(3.9,158,2,556,0)=" ;"
^XMB(3.9,158,2,557,0)="""RTN"",""XUSKAAJ"",95,0)"
^XMB(3.9,158,2,558,0)=" S:$D(XPIP) IO(""IP"")=XPIP"
^XMB(3.9,158,2,559,0)="""RTN"",""XUSKAAJ"",96,0)"
^XMB(3.9,158,2,560,0)=" S:$D(XPCLNM) IO(""CLNM"")=XPCLNM"
^XMB(3.9,158,2,561,0)="""RTN"",""XUSKAAJ"",97,0)"
^XMB(3.9,158,2,562,0)=" Q XP1"
^XMB(3.9,158,2,563,0)="""RTN"",""XUSKAAJ"",98,0)"
^XMB(3.9,158,2,564,0)=" ;"
^XMB(3.9,158,2,565,0)="""VER"")"
^XMB(3.9,158,2,566,0)="8.0^22.0"
^XMB(3.9,158,2,567,0)="""BLD"",789,6)"
^XMB(3.9,158,2,568,0)="^338"
^XMB(3.9,158,2,569,0)="$END KID XU*8.0*329"
^XMB(3.9,158,6,0)="^3.911A^2^2"
^XMB(3.9,158,6,1,0)="POSTMASTER"
^XMB(3.9,158,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,158,6,"B","POSTMASTER",1)=""
^XMB(3.9,158,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,159,0)="XU-8_SEQ-339_PAT-394.KID^.5^3061008.015743^^^^K"
^XMB(3.9,159,.6)="3061008"
^XMB(3.9,159,1,0)="^3.91A^2^2"
^XMB(3.9,159,1,1,0)=".5^0^3061008.015743^^^^^^^3061008.015743"
^XMB(3.9,159,1,2,0)="1^0^3061008.022902^^^^^^^3061008.022902"
^XMB(3.9,159,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,159,1,"C",.5,1)=""
^XMB(3.9,159,1,"C",1,2)=""
^XMB(3.9,159,2,0)="^^949^949^3061008"
^XMB(3.9,159,2,1,0)="$TXT Released XU*8*394 SEQ #339"
^XMB(3.9,159,2,2,0)="Extracted from mail message"
^XMB(3.9,159,2,3,0)="$END TXT"
^XMB(3.9,159,2,4,0)="$KID XU*8.0*394"
^XMB(3.9,159,2,5,0)="**INSTALL NAME**"
^XMB(3.9,159,2,6,0)="XU*8.0*394"
^XMB(3.9,159,2,7,0)="""BLD"",6413,0)"
^XMB(3.9,159,2,8,0)="XU*8.0*394^KERNEL^0^3060511^y"
^XMB(3.9,159,2,9,0)="""BLD"",6413,4,0)"
^XMB(3.9,159,2,10,0)="^9.64PA^4.11^3"
^XMB(3.9,159,2,11,0)="""BLD"",6413,4,4,0)"
^XMB(3.9,159,2,12,0)="4"
^XMB(3.9,159,2,13,0)="""BLD"",6413,4,4,2,0)"
^XMB(3.9,159,2,14,0)="^9.641^4^1"
^XMB(3.9,159,2,15,0)="""BLD"",6413,4,4,2,4,0)"
^XMB(3.9,159,2,16,0)="INSTITUTION  (File-top level)"
^XMB(3.9,159,2,17,0)="""BLD"",6413,4,4,2,4,1,0)"
^XMB(3.9,159,2,18,0)="^9.6411^95^1"
^XMB(3.9,159,2,19,0)="""BLD"",6413,4,4,2,4,1,95,0)"
^XMB(3.9,159,2,20,0)="AGENCY CODE"
^XMB(3.9,159,2,21,0)="""BLD"",6413,4,4,222)"
^XMB(3.9,159,2,22,0)="y^n^p^^^^n"
^XMB(3.9,159,2,23,0)="""BLD"",6413,4,4.11,0)"
^XMB(3.9,159,2,24,0)="4.11"
^XMB(3.9,159,2,25,0)="""BLD"",6413,4,4.11,222)"
^XMB(3.9,159,2,26,0)="y^n^f^^y^^y^o^n"
^XMB(3.9,159,2,27,0)="""BLD"",6413,4,8989.3,0)"
^XMB(3.9,159,2,28,0)="8989.3"
^XMB(3.9,159,2,29,0)="""BLD"",6413,4,8989.3,2,0)"
^XMB(3.9,159,2,30,0)="^9.641^8989.3^1"
^XMB(3.9,159,2,31,0)="""BLD"",6413,4,8989.3,2,8989.3,0)"
^XMB(3.9,159,2,32,0)="KERNEL SYSTEM PARAMETERS  (File-top level)"
^XMB(3.9,159,2,33,0)="""BLD"",6413,4,8989.3,2,8989.3,1,0)"
^XMB(3.9,159,2,34,0)="^9.6411^9^1"
^XMB(3.9,159,2,35,0)="""BLD"",6413,4,8989.3,2,8989.3,1,9,0)"
^XMB(3.9,159,2,36,0)="AGENCY CODE"
^XMB(3.9,159,2,37,0)="""BLD"",6413,4,8989.3,222)"
^XMB(3.9,159,2,38,0)="y^n^p^^^^n"
^XMB(3.9,159,2,39,0)="""BLD"",6413,4,""APDD"",4,4)"
^XMB(3.9,159,2,40,0)=""
^XMB(3.9,159,2,41,0)="""BLD"",6413,4,""APDD"",4,4,95)"
^XMB(3.9,159,2,42,0)=""
^XMB(3.9,159,2,43,0)="""BLD"",6413,4,""APDD"",8989.3,8989.3)"
^XMB(3.9,159,2,44,0)=""
^XMB(3.9,159,2,45,0)="""BLD"",6413,4,""APDD"",8989.3,8989.3,9)"
^XMB(3.9,159,2,46,0)=""
^XMB(3.9,159,2,47,0)="""BLD"",6413,4,""B"",4,4)"
^XMB(3.9,159,2,48,0)=""
^XMB(3.9,159,2,49,0)="""BLD"",6413,4,""B"",4.11,4.11)"
^XMB(3.9,159,2,50,0)=""
^XMB(3.9,159,2,51,0)="""BLD"",6413,4,""B"",8989.3,8989.3)"
^XMB(3.9,159,2,52,0)=""
^XMB(3.9,159,2,53,0)="""BLD"",6413,6)"
^XMB(3.9,159,2,54,0)="2^"
^XMB(3.9,159,2,55,0)="""BLD"",6413,""ABPKG"")"
^XMB(3.9,159,2,56,0)="n"
^XMB(3.9,159,2,57,0)="""BLD"",6413,""KRN"",0)"
^XMB(3.9,159,2,58,0)="^9.67PA^8989.52^19"
^XMB(3.9,159,2,59,0)="""BLD"",6413,""KRN"",.4,0)"
^XMB(3.9,159,2,60,0)=".4"
^XMB(3.9,159,2,61,0)="""BLD"",6413,""KRN"",.401,0)"
^XMB(3.9,159,2,62,0)=".401"
^XMB(3.9,159,2,63,0)="""BLD"",6413,""KRN"",.402,0)"
^XMB(3.9,159,2,64,0)=".402"
^XMB(3.9,159,2,65,0)="""BLD"",6413,""KRN"",.403,0)"
^XMB(3.9,159,2,66,0)=".403"
^XMB(3.9,159,2,67,0)="""BLD"",6413,""KRN"",.5,0)"
^XMB(3.9,159,2,68,0)=".5"
^XMB(3.9,159,2,69,0)="""BLD"",6413,""KRN"",.84,0)"
^XMB(3.9,159,2,70,0)=".84"
^XMB(3.9,159,2,71,0)="""BLD"",6413,""KRN"",3.6,0)"
^XMB(3.9,159,2,72,0)="3.6"
^XMB(3.9,159,2,73,0)="""BLD"",6413,""KRN"",3.8,0)"
^XMB(3.9,159,2,74,0)="3.8"
^XMB(3.9,159,2,75,0)="""BLD"",6413,""KRN"",9.2,0)"
^XMB(3.9,159,2,76,0)="9.2"
^XMB(3.9,159,2,77,0)="""BLD"",6413,""KRN"",9.8,0)"
^XMB(3.9,159,2,78,0)="9.8"
^XMB(3.9,159,2,79,0)="""BLD"",6413,""KRN"",9.8,""NM"",0)"
^XMB(3.9,159,2,80,0)="^9.68A^1^1"
^XMB(3.9,159,2,81,0)="""BLD"",6413,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,159,2,82,0)="XUAF4^^0^B41593357"
^XMB(3.9,159,2,83,0)="""BLD"",6413,""KRN"",9.8,""NM"",""B"",""XUAF4"",1)"
^XMB(3.9,159,2,84,0)=""
^XMB(3.9,159,2,85,0)="""BLD"",6413,""KRN"",19,0)"
^XMB(3.9,159,2,86,0)="19"
^XMB(3.9,159,2,87,0)="""BLD"",6413,""KRN"",19.1,0)"
^XMB(3.9,159,2,88,0)="19.1"
^XMB(3.9,159,2,89,0)="""BLD"",6413,""KRN"",101,0)"
^XMB(3.9,159,2,90,0)="101"
^XMB(3.9,159,2,91,0)="""BLD"",6413,""KRN"",409.61,0)"
^XMB(3.9,159,2,92,0)="409.61"
^XMB(3.9,159,2,93,0)="""BLD"",6413,""KRN"",771,0)"
^XMB(3.9,159,2,94,0)="771"
^XMB(3.9,159,2,95,0)="""BLD"",6413,""KRN"",870,0)"
^XMB(3.9,159,2,96,0)="870"
^XMB(3.9,159,2,97,0)="""BLD"",6413,""KRN"",8989.51,0)"
^XMB(3.9,159,2,98,0)="8989.51"
^XMB(3.9,159,2,99,0)="""BLD"",6413,""KRN"",8989.52,0)"
^XMB(3.9,159,2,100,0)="8989.52"
^XMB(3.9,159,2,101,0)="""BLD"",6413,""KRN"",8994,0)"
^XMB(3.9,159,2,102,0)="8994"
^XMB(3.9,159,2,103,0)="""BLD"",6413,""KRN"",""B"",.4,.4)"
^XMB(3.9,159,2,104,0)=""
^XMB(3.9,159,2,105,0)="""BLD"",6413,""KRN"",""B"",.401,.401)"
^XMB(3.9,159,2,106,0)=""
^XMB(3.9,159,2,107,0)="""BLD"",6413,""KRN"",""B"",.402,.402)"
^XMB(3.9,159,2,108,0)=""
^XMB(3.9,159,2,109,0)="""BLD"",6413,""KRN"",""B"",.403,.403)"
^XMB(3.9,159,2,110,0)=""
^XMB(3.9,159,2,111,0)="""BLD"",6413,""KRN"",""B"",.5,.5)"
^XMB(3.9,159,2,112,0)=""
^XMB(3.9,159,2,113,0)="""BLD"",6413,""KRN"",""B"",.84,.84)"
^XMB(3.9,159,2,114,0)=""
^XMB(3.9,159,2,115,0)="""BLD"",6413,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,159,2,116,0)=""
^XMB(3.9,159,2,117,0)="""BLD"",6413,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,159,2,118,0)=""
^XMB(3.9,159,2,119,0)="""BLD"",6413,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,159,2,120,0)=""
^XMB(3.9,159,2,121,0)="""BLD"",6413,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,159,2,122,0)=""
^XMB(3.9,159,2,123,0)="""BLD"",6413,""KRN"",""B"",19,19)"
^XMB(3.9,159,2,124,0)=""
^XMB(3.9,159,2,125,0)="""BLD"",6413,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,159,2,126,0)=""
^XMB(3.9,159,2,127,0)="""BLD"",6413,""KRN"",""B"",101,101)"
^XMB(3.9,159,2,128,0)=""
^XMB(3.9,159,2,129,0)="""BLD"",6413,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,159,2,130,0)=""
^XMB(3.9,159,2,131,0)="""BLD"",6413,""KRN"",""B"",771,771)"
^XMB(3.9,159,2,132,0)=""
^XMB(3.9,159,2,133,0)="""BLD"",6413,""KRN"",""B"",870,870)"
^XMB(3.9,159,2,134,0)=""
^XMB(3.9,159,2,135,0)="""BLD"",6413,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,159,2,136,0)=""
^XMB(3.9,159,2,137,0)="""BLD"",6413,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,159,2,138,0)=""
^XMB(3.9,159,2,139,0)="""BLD"",6413,""KRN"",""B"",8994,8994)"
^XMB(3.9,159,2,140,0)=""
^XMB(3.9,159,2,141,0)="""BLD"",6413,""QUES"",0)"
^XMB(3.9,159,2,142,0)="^9.62^^"
^XMB(3.9,159,2,143,0)="""BLD"",6413,""REQB"",0)"
^XMB(3.9,159,2,144,0)="^9.611^^"
^XMB(3.9,159,2,145,0)="""DATA"",4.11,1,0)"
^XMB(3.9,159,2,146,0)="VA^V"
^XMB(3.9,159,2,147,0)="""DATA"",4.11,2,0)"
^XMB(3.9,159,2,148,0)="AIR FORCE^AF"
^XMB(3.9,159,2,149,0)="""DATA"",4.11,3,0)"
^XMB(3.9,159,2,150,0)="IHS^I"
^XMB(3.9,159,2,151,0)="""DATA"",4.11,4,0)"
^XMB(3.9,159,2,152,0)="ARMY^ARMY"
^XMB(3.9,159,2,153,0)="""DATA"",4.11,5,0)"
^XMB(3.9,159,2,154,0)="NAVY^N"
^XMB(3.9,159,2,155,0)="""DATA"",4.11,6,0)"
^XMB(3.9,159,2,156,0)="OTHER^O"
^XMB(3.9,159,2,157,0)="""DATA"",4.11,7,0)"
^XMB(3.9,159,2,158,0)="EHR^E"
^XMB(3.9,159,2,159,0)="""DATA"",4.11,8,0)"
^XMB(3.9,159,2,160,0)="COAST GUARD^USCG"
^XMB(3.9,159,2,161,0)="""FIA"",4)"
^XMB(3.9,159,2,162,0)="INSTITUTION"
^XMB(3.9,159,2,163,0)="""FIA"",4,0)"
^XMB(3.9,159,2,164,0)="^DIC(4,"
^XMB(3.9,159,2,165,0)="""FIA"",4,0,0)"
^XMB(3.9,159,2,166,0)="4Is"
^XMB(3.9,159,2,167,0)="""FIA"",4,0,1)"
^XMB(3.9,159,2,168,0)="y^n^p^^^^n"
^XMB(3.9,159,2,169,0)="""FIA"",4,0,10)"
^XMB(3.9,159,2,170,0)=""
^XMB(3.9,159,2,171,0)="""FIA"",4,0,11)"
^XMB(3.9,159,2,172,0)=""
^XMB(3.9,159,2,173,0)="""FIA"",4,0,""RLRO"")"
^XMB(3.9,159,2,174,0)=""
^XMB(3.9,159,2,175,0)="""FIA"",4,0,""VR"")"
^XMB(3.9,159,2,176,0)="8.0^XU"
^XMB(3.9,159,2,177,0)="""FIA"",4,4)"
^XMB(3.9,159,2,178,0)="1"
^XMB(3.9,159,2,179,0)="""FIA"",4,4,95)"
^XMB(3.9,159,2,180,0)=""
^XMB(3.9,159,2,181,0)="""FIA"",4.11)"
^XMB(3.9,159,2,182,0)="AGENCY"
^XMB(3.9,159,2,183,0)="""FIA"",4.11,0)"
^XMB(3.9,159,2,184,0)="^DIC(4.11,"
^XMB(3.9,159,2,185,0)="""FIA"",4.11,0,0)"
^XMB(3.9,159,2,186,0)="4.11"
^XMB(3.9,159,2,187,0)="""FIA"",4.11,0,1)"
^XMB(3.9,159,2,188,0)="y^n^f^^y^^y^o^n"
^XMB(3.9,159,2,189,0)="""FIA"",4.11,0,10)"
^XMB(3.9,159,2,190,0)=""
^XMB(3.9,159,2,191,0)="""FIA"",4.11,0,11)"
^XMB(3.9,159,2,192,0)=""
^XMB(3.9,159,2,193,0)="""FIA"",4.11,0,""RLRO"")"
^XMB(3.9,159,2,194,0)=""
^XMB(3.9,159,2,195,0)="""FIA"",4.11,0,""VR"")"
^XMB(3.9,159,2,196,0)="8.0^XU"
^XMB(3.9,159,2,197,0)="""FIA"",4.11,4.11)"
^XMB(3.9,159,2,198,0)="0"
^XMB(3.9,159,2,199,0)="""FIA"",8989.3)"
^XMB(3.9,159,2,200,0)="KERNEL SYSTEM PARAMETERS"
^XMB(3.9,159,2,201,0)="""FIA"",8989.3,0)"
^XMB(3.9,159,2,202,0)="^XTV(8989.3,"
^XMB(3.9,159,2,203,0)="""FIA"",8989.3,0,0)"
^XMB(3.9,159,2,204,0)="8989.3P"
^XMB(3.9,159,2,205,0)="""FIA"",8989.3,0,1)"
^XMB(3.9,159,2,206,0)="y^n^p^^^^n"
^XMB(3.9,159,2,207,0)="""FIA"",8989.3,0,10)"
^XMB(3.9,159,2,208,0)=""
^XMB(3.9,159,2,209,0)="""FIA"",8989.3,0,11)"
^XMB(3.9,159,2,210,0)=""
^XMB(3.9,159,2,211,0)="""FIA"",8989.3,0,""RLRO"")"
^XMB(3.9,159,2,212,0)=""
^XMB(3.9,159,2,213,0)="""FIA"",8989.3,0,""VR"")"
^XMB(3.9,159,2,214,0)="8.0^XU"
^XMB(3.9,159,2,215,0)="""FIA"",8989.3,8989.3)"
^XMB(3.9,159,2,216,0)="1"
^XMB(3.9,159,2,217,0)="""FIA"",8989.3,8989.3,9)"
^XMB(3.9,159,2,218,0)=""
^XMB(3.9,159,2,219,0)="""MBREQ"")"
^XMB(3.9,159,2,220,0)="0"
^XMB(3.9,159,2,221,0)="""PKG"",3,-1)"
^XMB(3.9,159,2,222,0)="1^1"
^XMB(3.9,159,2,223,0)="""PKG"",3,0)"
^XMB(3.9,159,2,224,0)="KERNEL^XU^SIGN-ON, SECURITY, MENU DRIVER, DEVICES, TASKMAN^"
^XMB(3.9,159,2,225,0)="""PKG"",3,20,0)"
^XMB(3.9,159,2,226,0)="^9.402P^^"
^XMB(3.9,159,2,227,0)="""PKG"",3,22,0)"
^XMB(3.9,159,2,228,0)="^9.49I^1^1"
^XMB(3.9,159,2,229,0)="""PKG"",3,22,1,0)"
^XMB(3.9,159,2,230,0)="8.0^3040115^2960606^1"
^XMB(3.9,159,2,231,0)="""PKG"",3,22,1,""PAH"",1,0)"
^XMB(3.9,159,2,232,0)="394^3060511^11"
^XMB(3.9,159,2,233,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,159,2,234,0)="Y"
^XMB(3.9,159,2,235,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,159,2,236,0)="^D REP^XPDH"
^XMB(3.9,159,2,237,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,159,2,238,0)="Shall I write over your |FLAG| File"
^XMB(3.9,159,2,239,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,159,2,240,0)="YES"
^XMB(3.9,159,2,241,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,159,2,242,0)="D XPF1^XPDIQ"
^XMB(3.9,159,2,243,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,159,2,244,0)="Y"
^XMB(3.9,159,2,245,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,159,2,246,0)="^D DTA^XPDH"
^XMB(3.9,159,2,247,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,159,2,248,0)="Want my data |FLAG| yours"
^XMB(3.9,159,2,249,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,159,2,250,0)="YES"
^XMB(3.9,159,2,251,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,159,2,252,0)="D XPF2^XPDIQ"
^XMB(3.9,159,2,253,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,159,2,254,0)="YO"
^XMB(3.9,159,2,255,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,159,2,256,0)="^D INHIBIT^XPDH"
^XMB(3.9,159,2,257,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,159,2,258,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,159,2,259,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,159,2,260,0)="YES"
^XMB(3.9,159,2,261,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,159,2,262,0)="D XPI1^XPDIQ"
^XMB(3.9,159,2,263,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,159,2,264,0)="PO^VA(200,:EM"
^XMB(3.9,159,2,265,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,159,2,266,0)="^D MG^XPDH"
^XMB(3.9,159,2,267,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,159,2,268,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,159,2,269,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,159,2,270,0)=""
^XMB(3.9,159,2,271,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,159,2,272,0)="D XPM1^XPDIQ"
^XMB(3.9,159,2,273,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,159,2,274,0)="Y"
^XMB(3.9,159,2,275,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,159,2,276,0)="^D MENU^XPDH"
^XMB(3.9,159,2,277,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,159,2,278,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,159,2,279,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,159,2,280,0)="YES"
^XMB(3.9,159,2,281,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,159,2,282,0)="D XPO1^XPDIQ"
^XMB(3.9,159,2,283,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,159,2,284,0)="Y"
^XMB(3.9,159,2,285,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,159,2,286,0)="^D OPT^XPDH"
^XMB(3.9,159,2,287,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,159,2,288,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,159,2,289,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,159,2,290,0)="YES"
^XMB(3.9,159,2,291,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,159,2,292,0)="D XPZ1^XPDIQ"
^XMB(3.9,159,2,293,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,159,2,294,0)="Y"
^XMB(3.9,159,2,295,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,159,2,296,0)="^D RTN^XPDH"
^XMB(3.9,159,2,297,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,159,2,298,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,159,2,299,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,159,2,300,0)="NO"
^XMB(3.9,159,2,301,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,159,2,302,0)="D XPZ2^XPDIQ"
^XMB(3.9,159,2,303,0)="""RTN"")"
^XMB(3.9,159,2,304,0)="1"
^XMB(3.9,159,2,305,0)="""RTN"",""XUAF4"")"
^XMB(3.9,159,2,306,0)="0^1^B41593357^B37047359"
^XMB(3.9,159,2,307,0)="""RTN"",""XUAF4"",1,0)"
^XMB(3.9,159,2,308,0)="XUAF4 ;ISC-SF/RWF/RAM - Institution file access. ;04/01/99  08:07"
^XMB(3.9,159,2,309,0)="""RTN"",""XUAF4"",2,0)"
^XMB(3.9,159,2,310,0)=" ;;8.0;KERNEL;**43,112,206,209,232,217,261,394**;Jul 10, 1995"
^XMB(3.9,159,2,311,0)="""RTN"",""XUAF4"",3,0)"
^XMB(3.9,159,2,312,0)=" Q  ;No access from the top."
^XMB(3.9,159,2,313,0)="""RTN"",""XUAF4"",4,0)"
^XMB(3.9,159,2,314,0)=" ;"
^XMB(3.9,159,2,315,0)="""RTN"",""XUAF4"",5,0)"
^XMB(3.9,159,2,316,0)="PARENT(ROOT,CHILD,ASSO) ;sr. Return array of IEN's of parents"
^XMB(3.9,159,2,317,0)="""RTN"",""XUAF4"",6,0)"
^XMB(3.9,159,2,318,0)=" N %,%0"
^XMB(3.9,159,2,319,0)="""RTN"",""XUAF4"",7,0)"
^XMB(3.9,159,2,320,0)=" S CHILD=$$LKUP(CHILD),ASSO=$$ASSO($G(ASSO)),%=0"
^XMB(3.9,159,2,321,0)="""RTN"",""XUAF4"",8,0)"
^XMB(3.9,159,2,322,0)=" F  S %=$O(^DIC(4,CHILD,7,%)) Q:%'>0  S %0=+$P(^(%,0),U,2) D"
^XMB(3.9,159,2,323,0)="""RTN"",""XUAF4"",9,0)"
^XMB(3.9,159,2,324,0)=" . Q:+%'=ASSO"
^XMB(3.9,159,2,325,0)="""RTN"",""XUAF4"",10,0)"
^XMB(3.9,159,2,326,0)=" . S @ROOT@(""P"",+%0)=$$NS(+%0)"
^XMB(3.9,159,2,327,0)="""RTN"",""XUAF4"",11,0)"
^XMB(3.9,159,2,328,0)=" Q"
^XMB(3.9,159,2,329,0)="""RTN"",""XUAF4"",12,0)"
^XMB(3.9,159,2,330,0)="CHILDREN(ROOT,PAR,ASSO,XUAC) ;sr. Return the children"
^XMB(3.9,159,2,331,0)="""RTN"",""XUAF4"",13,0)"
^XMB(3.9,159,2,332,0)=" N %,%1 S %=0,PAR=$$LKUP(PAR),ASSO=$$ASSO($G(ASSO)),XUAC=$G(XUAC)"
^XMB(3.9,159,2,333,0)="""RTN"",""XUAF4"",14,0)"
^XMB(3.9,159,2,334,0)=" Q:ASSO'>0"
^XMB(3.9,159,2,335,0)="""RTN"",""XUAF4"",15,0)"
^XMB(3.9,159,2,336,0)=" F  S %=$O(^DIC(4,""AC"",ASSO,PAR,%)) Q:%'>0  D"
^XMB(3.9,159,2,337,0)="""RTN"",""XUAF4"",16,0)"
^XMB(3.9,159,2,338,0)=" . I XUAC,$$STATUS(%)=""I"" Q"
^XMB(3.9,159,2,339,0)="""RTN"",""XUAF4"",17,0)"
^XMB(3.9,159,2,340,0)=" . S @ROOT@(""C"",%)=$$NS(%)"
^XMB(3.9,159,2,341,0)="""RTN"",""XUAF4"",18,0)"
^XMB(3.9,159,2,342,0)=" Q"
^XMB(3.9,159,2,343,0)="""RTN"",""XUAF4"",19,0)"
^XMB(3.9,159,2,344,0)="SIBLING(ROOT,CHILD,ASSO) ;sr. Return the siblings"
^XMB(3.9,159,2,345,0)="""RTN"",""XUAF4"",20,0)"
^XMB(3.9,159,2,346,0)=" N % S %=0,ASSO=$$ASSO($G(ASSO))"
^XMB(3.9,159,2,347,0)="""RTN"",""XUAF4"",21,0)"
^XMB(3.9,159,2,348,0)=" D PARENT(ROOT,CHILD,ASSO)"
^XMB(3.9,159,2,349,0)="""RTN"",""XUAF4"",22,0)"
^XMB(3.9,159,2,350,0)=" F  S %=$O(@ROOT@(""P"",%)) Q:%'>0  D CHILDREN($NA(@ROOT@(""P"",%)),""`""_%,ASSO)"
^XMB(3.9,159,2,351,0)="""RTN"",""XUAF4"",23,0)"
^XMB(3.9,159,2,352,0)=" Q"
^XMB(3.9,159,2,353,0)="""RTN"",""XUAF4"",24,0)"
^XMB(3.9,159,2,354,0)="NNT(%) ;ef.sr. Return Name, Station Number, ASSO"
^XMB(3.9,159,2,355,0)="""RTN"",""XUAF4"",25,0)"
^XMB(3.9,159,2,356,0)=" I %'>0 Q """""
^XMB(3.9,159,2,357,0)="""RTN"",""XUAF4"",26,0)"
^XMB(3.9,159,2,358,0)=" Q $$NS(%)_""^""_$$WHAT(%,13)"
^XMB(3.9,159,2,359,0)="""RTN"",""XUAF4"",27,0)"
^XMB(3.9,159,2,360,0)=" ;"
^XMB(3.9,159,2,361,0)="""RTN"",""XUAF4"",28,0)"
^XMB(3.9,159,2,362,0)="LKUP(%) ;ef.sr. Resolve a value into IEN"
^XMB(3.9,159,2,363,0)="""RTN"",""XUAF4"",29,0)"
^XMB(3.9,159,2,364,0)=" I $E(%)=""`"" S %=+$E(%,2,99) Q:$D(^DIC(4,%,0))#2 % Q 0"
^XMB(3.9,159,2,365,0)="""RTN"",""XUAF4"",30,0)"
^XMB(3.9,159,2,366,0)=" ;Q $$FIND1^DIC(4,,""MX"",%)"
^XMB(3.9,159,2,367,0)="""RTN"",""XUAF4"",31,0)"
^XMB(3.9,159,2,368,0)=" Q $$FIND1^DIC(4,,""MX"",%,,""I $P(^(0),U,11)'=""""I"""""") ;To screen Inactive"
^XMB(3.9,159,2,369,0)="""RTN"",""XUAF4"",32,0)"
^XMB(3.9,159,2,370,0)=" ;"
^XMB(3.9,159,2,371,0)="""RTN"",""XUAF4"",33,0)"
^XMB(3.9,159,2,372,0)="STATUS(%) ;Get the status of a IEN"
^XMB(3.9,159,2,373,0)="""RTN"",""XUAF4"",34,0)"
^XMB(3.9,159,2,374,0)=" Q $P($G(^DIC(4,%,0)),U,11)"
^XMB(3.9,159,2,375,0)="""RTN"",""XUAF4"",35,0)"
^XMB(3.9,159,2,376,0)=" ;"
^XMB(3.9,159,2,377,0)="""RTN"",""XUAF4"",36,0)"
^XMB(3.9,159,2,378,0)="TYPE(%) ;Lookup a Faclity TYPE in file 4.1"
^XMB(3.9,159,2,379,0)="""RTN"",""XUAF4"",37,0)"
^XMB(3.9,159,2,380,0)=" I %="""" Q %"
^XMB(3.9,159,2,381,0)="""RTN"",""XUAF4"",38,0)"
^XMB(3.9,159,2,382,0)=" I $D(^DIC(4.1,""B"",%))>9 Q %"
^XMB(3.9,159,2,383,0)="""RTN"",""XUAF4"",39,0)"
^XMB(3.9,159,2,384,0)=" S %=$$FIND1^DIC(4.1,,""MX"",%)"
^XMB(3.9,159,2,385,0)="""RTN"",""XUAF4"",40,0)"
^XMB(3.9,159,2,386,0)=" Q $P($G(^DIC(4.1,+%,0)),U)"
^XMB(3.9,159,2,387,0)="""RTN"",""XUAF4"",41,0)"
^XMB(3.9,159,2,388,0)=" ;"
^XMB(3.9,159,2,389,0)="""RTN"",""XUAF4"",42,0)"
^XMB(3.9,159,2,390,0)="ASSO(%) ;Lookup an Asso"
^XMB(3.9,159,2,391,0)="""RTN"",""XUAF4"",43,0)"
^XMB(3.9,159,2,392,0)=" Q:+%=% % S:%="""" %=""VISN"""
^XMB(3.9,159,2,393,0)="""RTN"",""XUAF4"",44,0)"
^XMB(3.9,159,2,394,0)=" S %=$$FIND1^DIC(4.05,,""MX"",%)"
^XMB(3.9,159,2,395,0)="""RTN"",""XUAF4"",45,0)"
^XMB(3.9,159,2,396,0)=" Q +%"
^XMB(3.9,159,2,397,0)="""RTN"",""XUAF4"",46,0)"
^XMB(3.9,159,2,398,0)=" ;"
^XMB(3.9,159,2,399,0)="""RTN"",""XUAF4"",47,0)"
^XMB(3.9,159,2,400,0)="NS(IEN) ;ef.sr. Return name and station #"
^XMB(3.9,159,2,401,0)="""RTN"",""XUAF4"",48,0)"
^XMB(3.9,159,2,402,0)=" Q $P($G(^DIC(4,IEN,0)),U,1)_U_$P($G(^DIC(4,+IEN,99)),U,1)"
^XMB(3.9,159,2,403,0)="""RTN"",""XUAF4"",49,0)"
^XMB(3.9,159,2,404,0)=" ;"
^XMB(3.9,159,2,405,0)="""RTN"",""XUAF4"",50,0)"
^XMB(3.9,159,2,406,0)="WHAT(IEN,FLD) ;ef.sr. Field to return"
^XMB(3.9,159,2,407,0)="""RTN"",""XUAF4"",51,0)"
^XMB(3.9,159,2,408,0)=" Q $$GET1^DIQ(4,IEN_"","",FLD,"""")"
^XMB(3.9,159,2,409,0)="""RTN"",""XUAF4"",52,0)"
^XMB(3.9,159,2,410,0)=" ;"
^XMB(3.9,159,2,411,0)="""RTN"",""XUAF4"",53,0)"
^XMB(3.9,159,2,412,0)="CIRN(%1,%2) ;ef.sr. Is this a CIRN Enables inst."
^XMB(3.9,159,2,413,0)="""RTN"",""XUAF4"",54,0)"
^XMB(3.9,159,2,414,0)=" N % S %1=+$G(%1)"
^XMB(3.9,159,2,415,0)="""RTN"",""XUAF4"",55,0)"
^XMB(3.9,159,2,416,0)=" Q:'$D(^DIC(4,%1,0)) -1"
^XMB(3.9,159,2,417,0)="""RTN"",""XUAF4"",56,0)"
^XMB(3.9,159,2,418,0)=" I $G(%2)]"""" N DIE,DR,DA S DA=%1,DR=""990.1///""_%2,DIE=""^DIC(4,"" D ^DIE"
^XMB(3.9,159,2,419,0)="""RTN"",""XUAF4"",57,0)"
^XMB(3.9,159,2,420,0)=" Q $$WHAT(%1,990.1)"
^XMB(3.9,159,2,421,0)="""RTN"",""XUAF4"",58,0)"
^XMB(3.9,159,2,422,0)=" ;"
^XMB(3.9,159,2,423,0)="""RTN"",""XUAF4"",59,0)"
^XMB(3.9,159,2,424,0)="IEN(STA) ;return IEN for a station number"
^XMB(3.9,159,2,425,0)="""RTN"",""XUAF4"",60,0)"
^XMB(3.9,159,2,426,0)=" S STA=$G(STA) Q:STA="""" STA"
^XMB(3.9,159,2,427,0)="""RTN"",""XUAF4"",61,0)"
^XMB(3.9,159,2,428,0)=" Q $O(^DIC(4,""D"",STA,0))"
^XMB(3.9,159,2,429,0)="""RTN"",""XUAF4"",62,0)"
^XMB(3.9,159,2,430,0)=" ;"
^XMB(3.9,159,2,431,0)="""RTN"",""XUAF4"",63,0)"
^XMB(3.9,159,2,432,0)="STA(IEN) ;return station number for an IEN"
^XMB(3.9,159,2,433,0)="""RTN"",""XUAF4"",64,0)"
^XMB(3.9,159,2,434,0)=" Q $P($G(^DIC(4,+IEN,99)),U)"
^XMB(3.9,159,2,435,0)="""RTN"",""XUAF4"",65,0)"
^XMB(3.9,159,2,436,0)=" ;"
^XMB(3.9,159,2,437,0)="""RTN"",""XUAF4"",66,0)"
^XMB(3.9,159,2,438,0)="TF(IEN) ;active treating facility? (1=YES,0=NO)"
^XMB(3.9,159,2,439,0)="""RTN"",""XUAF4"",67,0)"
^XMB(3.9,159,2,440,0)=" N ARRAY Q:'$G(IEN) 0"
^XMB(3.9,159,2,441,0)="""RTN"",""XUAF4"",68,0)"
^XMB(3.9,159,2,442,0)=" D F4($$STA(IEN),.ARRAY,""AM"")"
^XMB(3.9,159,2,443,0)="""RTN"",""XUAF4"",69,0)"
^XMB(3.9,159,2,444,0)=" Q $S(ARRAY:1,1:0)"
^XMB(3.9,159,2,445,0)="""RTN"",""XUAF4"",70,0)"
^XMB(3.9,159,2,446,0)=" ;"
^XMB(3.9,159,2,447,0)="""RTN"",""XUAF4"",71,0)"
^XMB(3.9,159,2,448,0)="RT(IEN) ;realigned to"
^XMB(3.9,159,2,449,0)="""RTN"",""XUAF4"",72,0)"
^XMB(3.9,159,2,450,0)=" N ARRAY Q:'$G(IEN) 0"
^XMB(3.9,159,2,451,0)="""RTN"",""XUAF4"",73,0)"
^XMB(3.9,159,2,452,0)=" D F4($$STA(IEN),.ARRAY)"
^XMB(3.9,159,2,453,0)="""RTN"",""XUAF4"",74,0)"
^XMB(3.9,159,2,454,0)=" Q $G(ARRAY(""REALIGNED TO""))"
^XMB(3.9,159,2,455,0)="""RTN"",""XUAF4"",75,0)"
^XMB(3.9,159,2,456,0)=" ;"
^XMB(3.9,159,2,457,0)="""RTN"",""XUAF4"",76,0)"
^XMB(3.9,159,2,458,0)="RF(IEN) ;realigned from"
^XMB(3.9,159,2,459,0)="""RTN"",""XUAF4"",77,0)"
^XMB(3.9,159,2,460,0)=" N ARRAY Q:'$G(IEN) 0"
^XMB(3.9,159,2,461,0)="""RTN"",""XUAF4"",78,0)"
^XMB(3.9,159,2,462,0)=" D F4($$STA(IEN),.ARRAY)"
^XMB(3.9,159,2,463,0)="""RTN"",""XUAF4"",79,0)"
^XMB(3.9,159,2,464,0)=" Q $G(ARRAY(""REALIGNED FROM""))"
^XMB(3.9,159,2,465,0)="""RTN"",""XUAF4"",80,0)"
^XMB(3.9,159,2,466,0)=" ;"
^XMB(3.9,159,2,467,0)="""RTN"",""XUAF4"",81,0)"
^XMB(3.9,159,2,468,0)="O99(IEN) ;returns pointer to new station number IEN"
^XMB(3.9,159,2,469,0)="""RTN"",""XUAF4"",82,0)"
^XMB(3.9,159,2,470,0)=" Q:$O(^DIC(4,""AOLD99"",+$G(IEN),""""))="""" """""
^XMB(3.9,159,2,471,0)="""RTN"",""XUAF4"",83,0)"
^XMB(3.9,159,2,472,0)=" Q $O(^DIC(4,""D"",$O(^DIC(4,""AOLD99"",+$G(IEN),"""")),0))"
^XMB(3.9,159,2,473,0)="""RTN"",""XUAF4"",84,0)"
^XMB(3.9,159,2,474,0)=" ;"
^XMB(3.9,159,2,475,0)="""RTN"",""XUAF4"",85,0)"
^XMB(3.9,159,2,476,0)="LEGACY(STA) ; -- legacy station number (1=yes; 0=no)"
^XMB(3.9,159,2,477,0)="""RTN"",""XUAF4"",86,0)"
^XMB(3.9,159,2,478,0)=" Q $S($$RT^XUAF4(+$$IEN^XUAF4(STA)):1,1:0)"
^XMB(3.9,159,2,479,0)="""RTN"",""XUAF4"",87,0)"
^XMB(3.9,159,2,480,0)=" ;"
^XMB(3.9,159,2,481,0)="""RTN"",""XUAF4"",88,0)"
^XMB(3.9,159,2,482,0)="PRNT(STA) ; -- parent facility"
^XMB(3.9,159,2,483,0)="""RTN"",""XUAF4"",89,0)"
^XMB(3.9,159,2,484,0)=" N X S STA=$G(STA) Q:STA="""" ""0^no station number passed"""
^XMB(3.9,159,2,485,0)="""RTN"",""XUAF4"",90,0)"
^XMB(3.9,159,2,486,0)=" D PARENT(""X"",STA,""PARENT FACILITY"") S X=$O(X(""P"",0))"
^XMB(3.9,159,2,487,0)="""RTN"",""XUAF4"",91,0)"
^XMB(3.9,159,2,488,0)=" Q:'X ""0^no parent associated with input station number"""
^XMB(3.9,159,2,489,0)="""RTN"",""XUAF4"",92,0)"
^XMB(3.9,159,2,490,0)=" Q X_U_$P($G(X(""P"",+X)),U,2)_U_$P($G(X(""P"",+X)),U)"
^XMB(3.9,159,2,491,0)="""RTN"",""XUAF4"",93,0)"
^XMB(3.9,159,2,492,0)=" ;"
^XMB(3.9,159,2,493,0)="""RTN"",""XUAF4"",94,0)"
^XMB(3.9,159,2,494,0)="NAME(IEN) ; -- Official Name"
^XMB(3.9,159,2,495,0)="""RTN"",""XUAF4"",95,0)"
^XMB(3.9,159,2,496,0)=" Q:$P($G(^DIC(4,+IEN,99)),U,3)'="""" $P($G(^DIC(4,+IEN,99)),U,3)"
^XMB(3.9,159,2,497,0)="""RTN"",""XUAF4"",96,0)"
^XMB(3.9,159,2,498,0)=" Q $P($G(^DIC(4,+IEN,0)),U)"
^XMB(3.9,159,2,499,0)="""RTN"",""XUAF4"",97,0)"
^XMB(3.9,159,2,500,0)=" ;"
^XMB(3.9,159,2,501,0)="""RTN"",""XUAF4"",98,0)"
^XMB(3.9,159,2,502,0)="ACTIVE(IEN) ; -- active facility (1=active, 0=inactive)"
^XMB(3.9,159,2,503,0)="""RTN"",""XUAF4"",99,0)"
^XMB(3.9,159,2,504,0)=" ;"
^XMB(3.9,159,2,505,0)="""RTN"",""XUAF4"",100,0)"
^XMB(3.9,159,2,506,0)=" Q '$P($G(^DIC(4,+IEN,99)),U,4)"
^XMB(3.9,159,2,507,0)="""RTN"",""XUAF4"",101,0)"
^XMB(3.9,159,2,508,0)=" ;"
^XMB(3.9,159,2,509,0)="""RTN"",""XUAF4"",102,0)"
^XMB(3.9,159,2,510,0)="PADD(IEN) ; -- physical address (street addr^city^state^zip)"
^XMB(3.9,159,2,511,0)="""RTN"",""XUAF4"",103,0)"
^XMB(3.9,159,2,512,0)=" ;"
^XMB(3.9,159,2,513,0)="""RTN"",""XUAF4"",104,0)"
^XMB(3.9,159,2,514,0)=" N X,STATE"
^XMB(3.9,159,2,515,0)="""RTN"",""XUAF4"",105,0)"
^XMB(3.9,159,2,516,0)=" ;"
^XMB(3.9,159,2,517,0)="""RTN"",""XUAF4"",106,0)"
^XMB(3.9,159,2,518,0)=" S X=$P($G(^DIC(4,+IEN,0)),U,2)"
^XMB(3.9,159,2,519,0)="""RTN"",""XUAF4"",107,0)"
^XMB(3.9,159,2,520,0)=" S STATE=$P($G(^DIC(5,+X,0)),U,2)"
^XMB(3.9,159,2,521,0)="""RTN"",""XUAF4"",108,0)"
^XMB(3.9,159,2,522,0)=" S X=$G(^DIC(4,+IEN,1)) Q:X="""" X"
^XMB(3.9,159,2,523,0)="""RTN"",""XUAF4"",109,0)"
^XMB(3.9,159,2,524,0)=" ;"
^XMB(3.9,159,2,525,0)="""RTN"",""XUAF4"",110,0)"
^XMB(3.9,159,2,526,0)=" Q $P(X,U)_U_$P(X,U,3)_U_STATE_U_$P(X,U,4)"
^XMB(3.9,159,2,527,0)="""RTN"",""XUAF4"",111,0)"
^XMB(3.9,159,2,528,0)=" ;"
^XMB(3.9,159,2,529,0)="""RTN"",""XUAF4"",112,0)"
^XMB(3.9,159,2,530,0)="MADD(IEN) ; -- mailing address (street addr^city^state^zip)"
^XMB(3.9,159,2,531,0)="""RTN"",""XUAF4"",113,0)"
^XMB(3.9,159,2,532,0)=" ;"
^XMB(3.9,159,2,533,0)="""RTN"",""XUAF4"",114,0)"
^XMB(3.9,159,2,534,0)=" N X,STATE"
^XMB(3.9,159,2,535,0)="""RTN"",""XUAF4"",115,0)"
^XMB(3.9,159,2,536,0)=" ;"
^XMB(3.9,159,2,537,0)="""RTN"",""XUAF4"",116,0)"
^XMB(3.9,159,2,538,0)=" S X=$G(^DIC(4,+IEN,4)) Q:X="""" X"
^XMB(3.9,159,2,539,0)="""RTN"",""XUAF4"",117,0)"
^XMB(3.9,159,2,540,0)=" S STATE=$P($G(^DIC(5,+$P(X,U,4),0)),U,2)"
^XMB(3.9,159,2,541,0)="""RTN"",""XUAF4"",118,0)"
^XMB(3.9,159,2,542,0)=" ;"
^XMB(3.9,159,2,543,0)="""RTN"",""XUAF4"",119,0)"
^XMB(3.9,159,2,544,0)=" Q $P(X,U)_U_$P(X,U,3)_U_STATE_U_$P(X,U,5)"
^XMB(3.9,159,2,545,0)="""RTN"",""XUAF4"",120,0)"
^XMB(3.9,159,2,546,0)=" ;"
^XMB(3.9,159,2,547,0)="""RTN"",""XUAF4"",121,0)"
^XMB(3.9,159,2,548,0)="F4(STA,ARRAY,FLAG,ONDT) ;File #4 multipurpose API"
^XMB(3.9,159,2,549,0)="""RTN"",""XUAF4"",122,0)"
^XMB(3.9,159,2,550,0)=" ;"
^XMB(3.9,159,2,551,0)="""RTN"",""XUAF4"",123,0)"
^XMB(3.9,159,2,552,0)=" ;INPUT"
^XMB(3.9,159,2,553,0)="""RTN"",""XUAF4"",124,0)"
^XMB(3.9,159,2,554,0)=" ;       STA     Station number (required)"
^XMB(3.9,159,2,555,0)="""RTN"",""XUAF4"",125,0)"
^XMB(3.9,159,2,556,0)=" ;"
^XMB(3.9,159,2,557,0)="""RTN"",""XUAF4"",126,0)"
^XMB(3.9,159,2,558,0)=" ;    [.]ARRAY   $NAME reference for return values.  (required)"
^XMB(3.9,159,2,559,0)="""RTN"",""XUAF4"",127,0)"
^XMB(3.9,159,2,560,0)=" ;"
^XMB(3.9,159,2,561,0)="""RTN"",""XUAF4"",128,0)"
^XMB(3.9,159,2,562,0)=" ;       FLAG    A = Active entries only.  (optional)"
^XMB(3.9,159,2,563,0)="""RTN"",""XUAF4"",129,0)"
^XMB(3.9,159,2,564,0)=" ;               M = Medical treating facilities only."
^XMB(3.9,159,2,565,0)="""RTN"",""XUAF4"",130,0)"
^XMB(3.9,159,2,566,0)=" ;"
^XMB(3.9,159,2,567,0)="""RTN"",""XUAF4"",131,0)"
^XMB(3.9,159,2,568,0)=" ;       ONDT    Return name on this FM internal date.  (optional);"
^XMB(3.9,159,2,569,0)="""RTN"",""XUAF4"",132,0)"
^XMB(3.9,159,2,570,0)=" ;"
^XMB(3.9,159,2,571,0)="""RTN"",""XUAF4"",133,0)"
^XMB(3.9,159,2,572,0)=" ;OUTPUT"
^XMB(3.9,159,2,573,0)="""RTN"",""XUAF4"",134,0)"
^XMB(3.9,159,2,574,0)=" ;       ARRAY                     IEN or '0^error message'"
^XMB(3.9,159,2,575,0)="""RTN"",""XUAF4"",135,0)"
^XMB(3.9,159,2,576,0)=" ;       ARRAY(""NAME"")             name"
^XMB(3.9,159,2,577,0)="""RTN"",""XUAF4"",136,0)"
^XMB(3.9,159,2,578,0)=" ;       ARRAY(""VA NAME"")          offical va name"
^XMB(3.9,159,2,579,0)="""RTN"",""XUAF4"",137,0)"
^XMB(3.9,159,2,580,0)=" ;       ARRAY(""STATION NUMBER"")   station number"
^XMB(3.9,159,2,581,0)="""RTN"",""XUAF4"",138,0)"
^XMB(3.9,159,2,582,0)=" ;       ARRAY(""TYPE"")             facilty type name"
^XMB(3.9,159,2,583,0)="""RTN"",""XUAF4"",139,0)"
^XMB(3.9,159,2,584,0)=" ;       ARRAY(""INACTIVE"")         inactive date (0=not inactive)"
^XMB(3.9,159,2,585,0)="""RTN"",""XUAF4"",140,0)"
^XMB(3.9,159,2,586,0)=" ;       note: if inactive date not available but entry inactive then 1"
^XMB(3.9,159,2,587,0)="""RTN"",""XUAF4"",141,0)"
^XMB(3.9,159,2,588,0)=" ;"
^XMB(3.9,159,2,589,0)="""RTN"",""XUAF4"",142,0)"
^XMB(3.9,159,2,590,0)=" ;       ARRAY(""REALIGNED TO"")     IEN^station number^date"
^XMB(3.9,159,2,591,0)="""RTN"",""XUAF4"",143,0)"
^XMB(3.9,159,2,592,0)=" ;       ARRAY(""REALIGNED FROM"")   IEN^station number^date"
^XMB(3.9,159,2,593,0)="""RTN"",""XUAF4"",144,0)"
^XMB(3.9,159,2,594,0)=" ;"
^XMB(3.9,159,2,595,0)="""RTN"",""XUAF4"",145,0)"
^XMB(3.9,159,2,596,0)=" K ARRAY"
^XMB(3.9,159,2,597,0)="""RTN"",""XUAF4"",146,0)"
^XMB(3.9,159,2,598,0)=" S STA=$G(STA),FLAG=$G(FLAG),ONDT=$G(ONDT)"
^XMB(3.9,159,2,599,0)="""RTN"",""XUAF4"",147,0)"
^XMB(3.9,159,2,600,0)=" I STA="""" S ARRAY=""0^invalid input STA - required"" Q"
^XMB(3.9,159,2,601,0)="""RTN"",""XUAF4"",148,0)"
^XMB(3.9,159,2,602,0)=" ;"
^XMB(3.9,159,2,603,0)="""RTN"",""XUAF4"",149,0)"
^XMB(3.9,159,2,604,0)=" N IEN,N99,TO,FM,I,RDT,NAME,VANAME,HDT"
^XMB(3.9,159,2,605,0)="""RTN"",""XUAF4"",150,0)"
^XMB(3.9,159,2,606,0)=" ;"
^XMB(3.9,159,2,607,0)="""RTN"",""XUAF4"",151,0)"
^XMB(3.9,159,2,608,0)=" S IEN=$$IEN(STA)"
^XMB(3.9,159,2,609,0)="""RTN"",""XUAF4"",152,0)"
^XMB(3.9,159,2,610,0)=" I 'IEN S ARRAY=""0^station number does not exist"" Q"
^XMB(3.9,159,2,611,0)="""RTN"",""XUAF4"",153,0)"
^XMB(3.9,159,2,612,0)=" S N99=$G(^DIC(4,+IEN,99))"
^XMB(3.9,159,2,613,0)="""RTN"",""XUAF4"",154,0)"
^XMB(3.9,159,2,614,0)=" S ARRAY=$$SCRN() Q:'ARRAY"
^XMB(3.9,159,2,615,0)="""RTN"",""XUAF4"",155,0)"
^XMB(3.9,159,2,616,0)=" ;"
^XMB(3.9,159,2,617,0)="""RTN"",""XUAF4"",156,0)"
^XMB(3.9,159,2,618,0)=" S ARRAY(""NAME"")=$P(^DIC(4,IEN,0),U)"
^XMB(3.9,159,2,619,0)="""RTN"",""XUAF4"",157,0)"
^XMB(3.9,159,2,620,0)=" S ARRAY(""VA NAME"")=$P(N99,U,3)"
^XMB(3.9,159,2,621,0)="""RTN"",""XUAF4"",158,0)"
^XMB(3.9,159,2,622,0)=" S ARRAY(""STATION NUMBER"")=STA"
^XMB(3.9,159,2,623,0)="""RTN"",""XUAF4"",159,0)"
^XMB(3.9,159,2,624,0)=" S ARRAY(""TYPE"")=$P($G(^DIC(4.1,+$G(^DIC(4,IEN,3)),0)),U)"
^XMB(3.9,159,2,625,0)="""RTN"",""XUAF4"",160,0)"
^XMB(3.9,159,2,626,0)=" ;"
^XMB(3.9,159,2,627,0)="""RTN"",""XUAF4"",161,0)"
^XMB(3.9,159,2,628,0)=" ;realignments"
^XMB(3.9,159,2,629,0)="""RTN"",""XUAF4"",162,0)"
^XMB(3.9,159,2,630,0)=" S TO=$O(^DIC(4,""ARTO"",IEN,0)) D:TO"
^XMB(3.9,159,2,631,0)="""RTN"",""XUAF4"",163,0)"
^XMB(3.9,159,2,632,0)=" .S RDT=$O(^DIC(4,""ART"",TO,IEN,0))"
^XMB(3.9,159,2,633,0)="""RTN"",""XUAF4"",164,0)"
^XMB(3.9,159,2,634,0)=" .S ARRAY(""REALIGNED TO"")=TO_U_$$STA(TO)_U_RDT"
^XMB(3.9,159,2,635,0)="""RTN"",""XUAF4"",165,0)"
^XMB(3.9,159,2,636,0)=" S FM=$O(^DIC(4,""ARFM"",IEN,0)) D:FM"
^XMB(3.9,159,2,637,0)="""RTN"",""XUAF4"",166,0)"
^XMB(3.9,159,2,638,0)=" .S ARRAY(""REALIGNED FROM"")=FM_U_$$STA(FM)_U_$O(^DIC(4,""ARF"",FM,IEN,0))"
^XMB(3.9,159,2,639,0)="""RTN"",""XUAF4"",167,0)"
^XMB(3.9,159,2,640,0)=" ;"
^XMB(3.9,159,2,641,0)="""RTN"",""XUAF4"",168,0)"
^XMB(3.9,159,2,642,0)=" S I=$O(^DIC(4,""AI"",IEN,0)),I=$S(I:I,$G(RDT):RDT,1:+$P(N99,U,4))"
^XMB(3.9,159,2,643,0)="""RTN"",""XUAF4"",169,0)"
^XMB(3.9,159,2,644,0)=" S ARRAY(""INACTIVE"")=I"
^XMB(3.9,159,2,645,0)="""RTN"",""XUAF4"",170,0)"
^XMB(3.9,159,2,646,0)=" ;"
^XMB(3.9,159,2,647,0)="""RTN"",""XUAF4"",171,0)"
^XMB(3.9,159,2,648,0)=" Q:'ONDT"
^XMB(3.9,159,2,649,0)="""RTN"",""XUAF4"",172,0)"
^XMB(3.9,159,2,650,0)=" ;"
^XMB(3.9,159,2,651,0)="""RTN"",""XUAF4"",173,0)"
^XMB(3.9,159,2,652,0)=" ;get name for date"
^XMB(3.9,159,2,653,0)="""RTN"",""XUAF4"",174,0)"
^XMB(3.9,159,2,654,0)=" S NAME=ARRAY(""NAME"")"
^XMB(3.9,159,2,655,0)="""RTN"",""XUAF4"",175,0)"
^XMB(3.9,159,2,656,0)=" S VANAME=ARRAY(""VA NAME"")"
^XMB(3.9,159,2,657,0)="""RTN"",""XUAF4"",176,0)"
^XMB(3.9,159,2,658,0)=" S HDT=DT"
^XMB(3.9,159,2,659,0)="""RTN"",""XUAF4"",177,0)"
^XMB(3.9,159,2,660,0)=" F  S HDT=$O(^DIC(4,IEN,999,HDT),-1) Q:('HDT!(HDT<ONDT))  D"
^XMB(3.9,159,2,661,0)="""RTN"",""XUAF4"",178,0)"
^XMB(3.9,159,2,662,0)=" .N X S X=$G(^DIC(4,IEN,999,HDT,0)) Q:X="""""
^XMB(3.9,159,2,663,0)="""RTN"",""XUAF4"",179,0)"
^XMB(3.9,159,2,664,0)=" .S:$P(X,U,2)'="""" NAME=$P(X,U,2)"
^XMB(3.9,159,2,665,0)="""RTN"",""XUAF4"",180,0)"
^XMB(3.9,159,2,666,0)=" .S:$P(X,U,3)'="""" VANAME=$P(X,U,3)"
^XMB(3.9,159,2,667,0)="""RTN"",""XUAF4"",181,0)"
^XMB(3.9,159,2,668,0)=" S ARRAY(""NAME"")=NAME"
^XMB(3.9,159,2,669,0)="""RTN"",""XUAF4"",182,0)"
^XMB(3.9,159,2,670,0)=" S ARRAY(""VA NAME"")=VANAME"
^XMB(3.9,159,2,671,0)="""RTN"",""XUAF4"",183,0)"
^XMB(3.9,159,2,672,0)=" ;"
^XMB(3.9,159,2,673,0)="""RTN"",""XUAF4"",184,0)"
^XMB(3.9,159,2,674,0)=" Q"
^XMB(3.9,159,2,675,0)="""RTN"",""XUAF4"",185,0)"
^XMB(3.9,159,2,676,0)=" ;"
^XMB(3.9,159,2,677,0)="""RTN"",""XUAF4"",186,0)"
^XMB(3.9,159,2,678,0)="IDT(IEN) ; inactive date"
^XMB(3.9,159,2,679,0)="""RTN"",""XUAF4"",187,0)"
^XMB(3.9,159,2,680,0)=" N IDT,ND,XDT"
^XMB(3.9,159,2,681,0)="""RTN"",""XUAF4"",188,0)"
^XMB(3.9,159,2,682,0)=" S IEN=$G(IEN) Q:'IEN IEN"
^XMB(3.9,159,2,683,0)="""RTN"",""XUAF4"",189,0)"
^XMB(3.9,159,2,684,0)=" S XDT=9999999,IDT="""""
^XMB(3.9,159,2,685,0)="""RTN"",""XUAF4"",190,0)"
^XMB(3.9,159,2,686,0)=" F  S XDT=$O(^DIC(4,+IEN,999,XDT),-1) Q:'XDT  D  Q:IDT"
^XMB(3.9,159,2,687,0)="""RTN"",""XUAF4"",191,0)"
^XMB(3.9,159,2,688,0)=" .S ND=$G(^DIC(4,+IEN,999,XDT,0)) Q:ND="""""
^XMB(3.9,159,2,689,0)="""RTN"",""XUAF4"",192,0)"
^XMB(3.9,159,2,690,0)=" .S IDT=$S($P(ND,U,5):XDT,$P(ND,U,7):XDT,1:IDT)"
^XMB(3.9,159,2,691,0)="""RTN"",""XUAF4"",193,0)"
^XMB(3.9,159,2,692,0)=" Q IDT"
^XMB(3.9,159,2,693,0)="""RTN"",""XUAF4"",194,0)"
^XMB(3.9,159,2,694,0)=" ;"
^XMB(3.9,159,2,695,0)="""RTN"",""XUAF4"",195,0)"
^XMB(3.9,159,2,696,0)="SCRN() ;sreen IEN"
^XMB(3.9,159,2,697,0)="""RTN"",""XUAF4"",196,0)"
^XMB(3.9,159,2,698,0)=" N X S X=$E(N99,1,3)"
^XMB(3.9,159,2,699,0)="""RTN"",""XUAF4"",197,0)"
^XMB(3.9,159,2,700,0)=" I FLAG[""A"",$P(N99,U,4) Q ""0^inactive facility"""
^XMB(3.9,159,2,701,0)="""RTN"",""XUAF4"",198,0)"
^XMB(3.9,159,2,702,0)=" I FLAG[""M"",$S(X=358:0,X<400:1,X>759:1,X<700:0,X<750:1,1:0),$G(DUZ(""AG""))=""V"" Q ""0^not a treating facility"""
^XMB(3.9,159,2,703,0)="""RTN"",""XUAF4"",199,0)"
^XMB(3.9,159,2,704,0)=" Q IEN"
^XMB(3.9,159,2,705,0)="""RTN"",""XUAF4"",200,0)"
^XMB(3.9,159,2,706,0)=" ;"
^XMB(3.9,159,2,707,0)="""RTN"",""XUAF4"",201,0)"
^XMB(3.9,159,2,708,0)="LOOKUP ; -- lookup an enty by coding system / ID pair"
^XMB(3.9,159,2,709,0)="""RTN"",""XUAF4"",202,0)"
^XMB(3.9,159,2,710,0)=" ;"
^XMB(3.9,159,2,711,0)="""RTN"",""XUAF4"",203,0)"
^XMB(3.9,159,2,712,0)=" N DIC,D"
^XMB(3.9,159,2,713,0)="""RTN"",""XUAF4"",204,0)"
^XMB(3.9,159,2,714,0)=" ;"
^XMB(3.9,159,2,715,0)="""RTN"",""XUAF4"",205,0)"
^XMB(3.9,159,2,716,0)=" S DIC=""^DIC(4,"",DIC(0)=""QEA"",D=""XUMFIDX"" D IX^DIC"
^XMB(3.9,159,2,717,0)="""RTN"",""XUAF4"",206,0)"
^XMB(3.9,159,2,718,0)=" ;"
^XMB(3.9,159,2,719,0)="""RTN"",""XUAF4"",207,0)"
^XMB(3.9,159,2,720,0)=" Q"
^XMB(3.9,159,2,721,0)="""RTN"",""XUAF4"",208,0)"
^XMB(3.9,159,2,722,0)=" ;"
^XMB(3.9,159,2,723,0)="""RTN"",""XUAF4"",209,0)"
^XMB(3.9,159,2,724,0)="IDX(CDSYS,ID) ; -- return IEN for a given coding system / ID pair"
^XMB(3.9,159,2,725,0)="""RTN"",""XUAF4"",210,0)"
^XMB(3.9,159,2,726,0)=" ;"
^XMB(3.9,159,2,727,0)="""RTN"",""XUAF4"",211,0)"
^XMB(3.9,159,2,728,0)=" ;INPUT"
^XMB(3.9,159,2,729,0)="""RTN"",""XUAF4"",212,0)"
^XMB(3.9,159,2,730,0)=" ;       CDSYS   coding system (required)"
^XMB(3.9,159,2,731,0)="""RTN"",""XUAF4"",213,0)"
^XMB(3.9,159,2,732,0)=" ;       ID      identifier (required)"
^XMB(3.9,159,2,733,0)="""RTN"",""XUAF4"",214,0)"
^XMB(3.9,159,2,734,0)=" ;OUTPUT"
^XMB(3.9,159,2,735,0)="""RTN"",""XUAF4"",215,0)"
^XMB(3.9,159,2,736,0)=" ;       $$      Internal Entry Number"
^XMB(3.9,159,2,737,0)="""RTN"",""XUAF4"",216,0)"
^XMB(3.9,159,2,738,0)=" ;"
^XMB(3.9,159,2,739,0)="""RTN"",""XUAF4"",217,0)"
^XMB(3.9,159,2,740,0)=" N IEN"
^XMB(3.9,159,2,741,0)="""RTN"",""XUAF4"",218,0)"
^XMB(3.9,159,2,742,0)=" ;"
^XMB(3.9,159,2,743,0)="""RTN"",""XUAF4"",219,0)"
^XMB(3.9,159,2,744,0)=" S CDSYS=$G(CDSYS),ID=$G(ID)"
^XMB(3.9,159,2,745,0)="""RTN"",""XUAF4"",220,0)"
^XMB(3.9,159,2,746,0)=" ;"
^XMB(3.9,159,2,747,0)="""RTN"",""XUAF4"",221,0)"
^XMB(3.9,159,2,748,0)=" Q:CDSYS="""" ""0^CDSYS required"""
^XMB(3.9,159,2,749,0)="""RTN"",""XUAF4"",222,0)"
^XMB(3.9,159,2,750,0)=" Q:ID="""" ""0^ID required"""
^XMB(3.9,159,2,751,0)="""RTN"",""XUAF4"",223,0)"
^XMB(3.9,159,2,752,0)=" ;"
^XMB(3.9,159,2,753,0)="""RTN"",""XUAF4"",224,0)"
^XMB(3.9,159,2,754,0)=" S IEN=$O(^DIC(4,""XUMFIDX"",CDSYS,ID,0))"
^XMB(3.9,159,2,755,0)="""RTN"",""XUAF4"",225,0)"
^XMB(3.9,159,2,756,0)=" ;"
^XMB(3.9,159,2,757,0)="""RTN"",""XUAF4"",226,0)"
^XMB(3.9,159,2,758,0)=" Q $S(IEN:IEN,1:""0^not found"")"
^XMB(3.9,159,2,759,0)="""RTN"",""XUAF4"",227,0)"
^XMB(3.9,159,2,760,0)=" ;"
^XMB(3.9,159,2,761,0)="""RTN"",""XUAF4"",228,0)"
^XMB(3.9,159,2,762,0)="ID(CDSYS,IEN) ; returns the ID for a given coding system / IEN"
^XMB(3.9,159,2,763,0)="""RTN"",""XUAF4"",229,0)"
^XMB(3.9,159,2,764,0)=" ;"
^XMB(3.9,159,2,765,0)="""RTN"",""XUAF4"",230,0)"
^XMB(3.9,159,2,766,0)=" ;INPUT"
^XMB(3.9,159,2,767,0)="""RTN"",""XUAF4"",231,0)"
^XMB(3.9,159,2,768,0)=" ;       CDSYS   coding system (required)"
^XMB(3.9,159,2,769,0)="""RTN"",""XUAF4"",232,0)"
^XMB(3.9,159,2,770,0)=" ;       IEN     Internal Entry Number (required)"
^XMB(3.9,159,2,771,0)="""RTN"",""XUAF4"",233,0)"
^XMB(3.9,159,2,772,0)=" ;OUTPUT"
^XMB(3.9,159,2,773,0)="""RTN"",""XUAF4"",234,0)"
^XMB(3.9,159,2,774,0)=" ;       $$      Identifier"
^XMB(3.9,159,2,775,0)="""RTN"",""XUAF4"",235,0)"
^XMB(3.9,159,2,776,0)=" ;"
^XMB(3.9,159,2,777,0)="""RTN"",""XUAF4"",236,0)"
^XMB(3.9,159,2,778,0)=" N ID,IDX"
^XMB(3.9,159,2,779,0)="""RTN"",""XUAF4"",237,0)"
^XMB(3.9,159,2,780,0)=" ;"
^XMB(3.9,159,2,781,0)="""RTN"",""XUAF4"",238,0)"
^XMB(3.9,159,2,782,0)=" S CDSYS=$G(CDSYS),IEN=$G(IEN)"
^XMB(3.9,159,2,783,0)="""RTN"",""XUAF4"",239,0)"
^XMB(3.9,159,2,784,0)=" Q:CDSYS="""" """" Q:'IEN """" Q:'$D(^DIC(4,IEN)) """""
^XMB(3.9,159,2,785,0)="""RTN"",""XUAF4"",240,0)"
^XMB(3.9,159,2,786,0)=" ;"
^XMB(3.9,159,2,787,0)="""RTN"",""XUAF4"",241,0)"
^XMB(3.9,159,2,788,0)=" S IDX=$O(^DIC(4,IEN,9999,""B"",CDSYS,0)) Q:'IDX """""
^XMB(3.9,159,2,789,0)="""RTN"",""XUAF4"",242,0)"
^XMB(3.9,159,2,790,0)=" ;"
^XMB(3.9,159,2,791,0)="""RTN"",""XUAF4"",243,0)"
^XMB(3.9,159,2,792,0)=" Q $P($G(^DIC(4,IEN,9999,IDX,0)),U,2)"
^XMB(3.9,159,2,793,0)="""RTN"",""XUAF4"",244,0)"
^XMB(3.9,159,2,794,0)=" ;"
^XMB(3.9,159,2,795,0)="""RTN"",""XUAF4"",245,0)"
^XMB(3.9,159,2,796,0)="CDSYS(Y) ; coding systems"
^XMB(3.9,159,2,797,0)="""RTN"",""XUAF4"",246,0)"
^XMB(3.9,159,2,798,0)=" ;"
^XMB(3.9,159,2,799,0)="""RTN"",""XUAF4"",247,0)"
^XMB(3.9,159,2,800,0)=" ;INPUT/OUTPUT"
^XMB(3.9,159,2,801,0)="""RTN"",""XUAF4"",248,0)"
^XMB(3.9,159,2,802,0)=" ;       .Y     Y(CDSYS) = $D local system ^ coding system name"
^XMB(3.9,159,2,803,0)="""RTN"",""XUAF4"",249,0)"
^XMB(3.9,159,2,804,0)=" ;"
^XMB(3.9,159,2,805,0)="""RTN"",""XUAF4"",250,0)"
^XMB(3.9,159,2,806,0)=" S Y(""DMIS"")=$D(^DIC(4,""XUMFIDX"",""DMIS""))_U_""DoD DMIS ID"""
^XMB(3.9,159,2,807,0)="""RTN"",""XUAF4"",251,0)"
^XMB(3.9,159,2,808,0)=" S Y(""VASTANUM"")=$D(^DIC(4,""XUMFIDX"",""VASTANUM""))_U_""VA Station Number"""
^XMB(3.9,159,2,809,0)="""RTN"",""XUAF4"",252,0)"
^XMB(3.9,159,2,810,0)=" S Y(""CLIA"")=$D(^DIC(4,""XUMFIDX"",""CLIA""))_U_""CLIA number"""
^XMB(3.9,159,2,811,0)="""RTN"",""XUAF4"",253,0)"
^XMB(3.9,159,2,812,0)=" S Y(""MAMMO-ACR"")=$D(^DIC(4,""XUMFIDX"",""MAMMO-ACR""))_U_""MAMMO-ACR number"""
^XMB(3.9,159,2,813,0)="""RTN"",""XUAF4"",254,0)"
^XMB(3.9,159,2,814,0)=" ;"
^XMB(3.9,159,2,815,0)="""RTN"",""XUAF4"",255,0)"
^XMB(3.9,159,2,816,0)=" Q"
^XMB(3.9,159,2,817,0)="""RTN"",""XUAF4"",256,0)"
^XMB(3.9,159,2,818,0)=" ;"
^XMB(3.9,159,2,819,0)="""RTN"",""XUAF4"",257,0)"
^XMB(3.9,159,2,820,0)="LCDSYS(Y) ;  list coding systems"
^XMB(3.9,159,2,821,0)="""RTN"",""XUAF4"",258,0)"
^XMB(3.9,159,2,822,0)=" ;"
^XMB(3.9,159,2,823,0)="""RTN"",""XUAF4"",259,0)"
^XMB(3.9,159,2,824,0)=" N CDSYS"
^XMB(3.9,159,2,825,0)="""RTN"",""XUAF4"",260,0)"
^XMB(3.9,159,2,826,0)=" S CDSYS="""""
^XMB(3.9,159,2,827,0)="""RTN"",""XUAF4"",261,0)"
^XMB(3.9,159,2,828,0)=" F  S CDSYS=$O(^DIC(4,""XUMFIDX"",CDSYS)) Q:CDSYS=""""  D"
^XMB(3.9,159,2,829,0)="""RTN"",""XUAF4"",262,0)"
^XMB(3.9,159,2,830,0)=" .S Y(CDSYS)="""""
^XMB(3.9,159,2,831,0)="""RTN"",""XUAF4"",263,0)"
^XMB(3.9,159,2,832,0)=" ;"
^XMB(3.9,159,2,833,0)="""RTN"",""XUAF4"",264,0)"
^XMB(3.9,159,2,834,0)=" Q"
^XMB(3.9,159,2,835,0)="""RTN"",""XUAF4"",265,0)"
^XMB(3.9,159,2,836,0)=" ;"
^XMB(3.9,159,2,837,0)="""RTN"",""XUAF4"",266,0)"
^XMB(3.9,159,2,838,0)=" "
^XMB(3.9,159,2,839,0)="""VER"")"
^XMB(3.9,159,2,840,0)="8.0^22.0"
^XMB(3.9,159,2,841,0)="""^DD"",4,4,95,0)"
^XMB(3.9,159,2,842,0)="AGENCY CODE^S^V:VA;AF:AIR FORCE;I:IHS;ARMY:ARMY;N:NAVY;O:OTHER;E:EHR;USCG:COAST GUARD;^99;5^Q"
^XMB(3.9,159,2,843,0)="""^DD"",4,4,95,1,0)"
^XMB(3.9,159,2,844,0)="^.1"
^XMB(3.9,159,2,845,0)="""^DD"",4,4,95,1,1,0)"
^XMB(3.9,159,2,846,0)="^^TRIGGER^4^97"
^XMB(3.9,159,2,847,0)="""^DD"",4,4,95,1,1,1)"
^XMB(3.9,159,2,848,0)="K DIV,Y S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(4,D0,99)):^(99),1:""""),Y(2)=$P(Y(1),U,5),Y(3)=$P(Y(1),U,7) X ^DD(4,95,1,1,1.1) I X]"""" S X=$O(^DIC(4.11,""B"",X,0)) X ^DD(4,95,1,1,1.4)"
^XMB(3.9,159,2,849,0)="""^DD"",4,4,95,1,1,1.1)"
^XMB(3.9,159,2,850,0)="S X=DIV S Y(5)=$C(59)_$S($D(^DD(4,95,0)):$P(^(0),U,3),1:""""),X=$P($P(Y(5),$C(59)_DIV_"":"",2),$C(59),1),Y(4)=$S($D(^DIC(4.11,+Y(3),0)):^(0),1:"""")"
^XMB(3.9,159,2,851,0)="""^DD"",4,4,95,1,1,1.4)"
^XMB(3.9,159,2,852,0)="I Y(2)'=$P(Y(4),U,2) S DIU=Y(3),DIV=X,$P(^DIC(4,D0,99),U,7)=DIV,DIH=4,DIG=97 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,159,2,853,0)="""^DD"",4,4,95,1,1,2)"
^XMB(3.9,159,2,854,0)="Q  K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(4,D0,99)):^(99),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="""" S DIH=$S($D(^DIC(4,DIV(0),99)):^(99),1:""""),DIV=X S $P(^(99),U,7)=DIV,DIH=4,DIG=97 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^XMB(3.9,159,2,855,0)="""^DD"",4,4,95,1,1,3)"
^XMB(3.9,159,2,856,0)="Link to keep fields 95 and 97 in sync. (Edited)"
^XMB(3.9,159,2,857,0)="""^DD"",4,4,95,1,1,""CREATE VALUE"")"
^XMB(3.9,159,2,858,0)="AGENCY CODE"
^XMB(3.9,159,2,859,0)="""^DD"",4,4,95,1,1,""DELETE VALUE"")"
^XMB(3.9,159,2,860,0)="NO EFFECT"
^XMB(3.9,159,2,861,0)="""^DD"",4,4,95,1,1,""FIELD"")"
^XMB(3.9,159,2,862,0)="POINTER TO AGENCY"
^XMB(3.9,159,2,863,0)="""^DD"",4,4,95,3)"
^XMB(3.9,159,2,864,0)="What type of instution is this. Other for non-goverment."
^XMB(3.9,159,2,865,0)="""^DD"",4,4,95,5,1,0)"
^XMB(3.9,159,2,866,0)="4^97^1"
^XMB(3.9,159,2,867,0)="""^DD"",4,4,95,21,0)"
^XMB(3.9,159,2,868,0)="^.001^2^2^3050815^^^^"
^XMB(3.9,159,2,869,0)="""^DD"",4,4,95,21,1,0)"
^XMB(3.9,159,2,870,0)="A code to identify the Government agency that this site belongs to."
^XMB(3.9,159,2,871,0)="""^DD"",4,4,95,21,2,0)"
^XMB(3.9,159,2,872,0)="This is a duplicate of the POINTER TO AGENCY field."
^XMB(3.9,159,2,873,0)="""^DD"",4,4,95,""DT"")"
^XMB(3.9,159,2,874,0)="3060511"
^XMB(3.9,159,2,875,0)="""^DD"",4.11,4.11,0)"
^XMB(3.9,159,2,876,0)="FIELD^^.02^2"
^XMB(3.9,159,2,877,0)="""^DD"",4.11,4.11,0,""DT"")"
^XMB(3.9,159,2,878,0)="3060511"
^XMB(3.9,159,2,879,0)="""^DD"",4.11,4.11,0,""IX"",""B"",4.11,.01)"
^XMB(3.9,159,2,880,0)=""
^XMB(3.9,159,2,881,0)="""^DD"",4.11,4.11,0,""NM"",""AGENCY"")"
^XMB(3.9,159,2,882,0)=""
^XMB(3.9,159,2,883,0)="""^DD"",4.11,4.11,0,""PT"",4,97)"
^XMB(3.9,159,2,884,0)=""
^XMB(3.9,159,2,885,0)="""^DD"",4.11,4.11,0,""PT"",8,11)"
^XMB(3.9,159,2,886,0)=""
^XMB(3.9,159,2,887,0)="""^DD"",4.11,4.11,0,""PT"",44,23)"
^XMB(3.9,159,2,888,0)=""
^XMB(3.9,159,2,889,0)="""^DD"",4.11,4.11,0,""VRPK"")"
^XMB(3.9,159,2,890,0)="KERNEL PUBLIC DOMAIN"
^XMB(3.9,159,2,891,0)="""^DD"",4.11,4.11,.01,0)"
^XMB(3.9,159,2,892,0)="NAME^RF^^0;1^K:$L(X)>15!($L(X)<2)!'(X'?1P.E) X"
^XMB(3.9,159,2,893,0)="""^DD"",4.11,4.11,.01,1,0)"
^XMB(3.9,159,2,894,0)="^.1"
^XMB(3.9,159,2,895,0)="""^DD"",4.11,4.11,.01,1,1,0)"
^XMB(3.9,159,2,896,0)="4.11^B"
^XMB(3.9,159,2,897,0)="""^DD"",4.11,4.11,.01,1,1,1)"
^XMB(3.9,159,2,898,0)="S ^DIC(4.11,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,159,2,899,0)="""^DD"",4.11,4.11,.01,1,1,2)"
^XMB(3.9,159,2,900,0)="K ^DIC(4.11,""B"",$E(X,1,30),DA)"
^XMB(3.9,159,2,901,0)="""^DD"",4.11,4.11,.01,3)"
^XMB(3.9,159,2,902,0)="Answer must be 2-15 characters in length."
^XMB(3.9,159,2,903,0)="""^DD"",4.11,4.11,.01,21,0)"
^XMB(3.9,159,2,904,0)="^^1^1^2911212^^"
^XMB(3.9,159,2,905,0)="""^DD"",4.11,4.11,.01,21,1,0)"
^XMB(3.9,159,2,906,0)="The name of the agency."
^XMB(3.9,159,2,907,0)="""^DD"",4.11,4.11,.01,""DT"")"
^XMB(3.9,159,2,908,0)="2891204"
^XMB(3.9,159,2,909,0)="""^DD"",4.11,4.11,.01,""LAYGO"",1,0)"
^XMB(3.9,159,2,910,0)="I 1"
^XMB(3.9,159,2,911,0)="""^DD"",4.11,4.11,.02,0)"
^XMB(3.9,159,2,912,0)="AGENCY CODE^RS^V:VA;AF:AIR FORCE;I:IHS;ARMY:ARMY;N:NAVY;O:OTHER;E:EHR;USCG:COAST GUARD;^0;2^Q"
^XMB(3.9,159,2,913,0)="""^DD"",4.11,4.11,.02,3)"
^XMB(3.9,159,2,914,0)="Use OTHER if not one of the other agencies."
^XMB(3.9,159,2,915,0)="""^DD"",4.11,4.11,.02,21,0)"
^XMB(3.9,159,2,916,0)="^^1^1^2911212^^"
^XMB(3.9,159,2,917,0)="""^DD"",4.11,4.11,.02,21,1,0)"
^XMB(3.9,159,2,918,0)="a short code for the agency."
^XMB(3.9,159,2,919,0)="""^DD"",4.11,4.11,.02,""DT"")"
^XMB(3.9,159,2,920,0)="3060511"
^XMB(3.9,159,2,921,0)="""^DD"",8989.3,8989.3,9,0)"
^XMB(3.9,159,2,922,0)="AGENCY CODE^S^V:VA;AF:AIR FORCE;I:IHS;ARMY:ARMY;N:NAVY;O:OTHER;E:EHR;USCG:COAST GUARD;^0;8^Q"
^XMB(3.9,159,2,923,0)="""^DD"",8989.3,8989.3,9,3)"
^XMB(3.9,159,2,924,0)="Enter the agency type for this site"
^XMB(3.9,159,2,925,0)="""^DD"",8989.3,8989.3,9,21,0)"
^XMB(3.9,159,2,926,0)="^^4^4^2920504^^"
^XMB(3.9,159,2,927,0)="""^DD"",8989.3,8989.3,9,21,1,0)"
^XMB(3.9,159,2,928,0)="This field defines what agency uses this computer.  It sets a flag which"
^XMB(3.9,159,2,929,0)="""^DD"",8989.3,8989.3,9,21,2,0)"
^XMB(3.9,159,2,930,0)="may be accessed by application programs which need to know this information."
^XMB(3.9,159,2,931,0)="""^DD"",8989.3,8989.3,9,21,3,0)"
^XMB(3.9,159,2,932,0)="For example, a scheduling program may operate one way in an Air Force"
^XMB(3.9,159,2,933,0)="""^DD"",8989.3,8989.3,9,21,4,0)"
^XMB(3.9,159,2,934,0)="environment, and another in a VA environment."
^XMB(3.9,159,2,935,0)="""^DD"",8989.3,8989.3,9,""DT"")"
^XMB(3.9,159,2,936,0)="3060511"
^XMB(3.9,159,2,937,0)="""^DIC"",4.11,4.11,0)"
^XMB(3.9,159,2,938,0)="AGENCY^4.11"
^XMB(3.9,159,2,939,0)="""^DIC"",4.11,4.11,0,""GL"")"
^XMB(3.9,159,2,940,0)="^DIC(4.11,"
^XMB(3.9,159,2,941,0)="""^DIC"",4.11,4.11,""%D"",0)"
^XMB(3.9,159,2,942,0)="^^1^1^2940316^^"
^XMB(3.9,159,2,943,0)="""^DIC"",4.11,4.11,""%D"",1,0)"
^XMB(3.9,159,2,944,0)="This file replaces the set field that had been used for agency."
^XMB(3.9,159,2,945,0)="""^DIC"",4.11,""B"",""AGENCY"",4.11)"
^XMB(3.9,159,2,946,0)=""
^XMB(3.9,159,2,947,0)="""BLD"",6413,6)"
^XMB(3.9,159,2,948,0)="^339"
^XMB(3.9,159,2,949,0)="$END KID XU*8.0*394"
^XMB(3.9,159,6,0)="^3.911A^2^2"
^XMB(3.9,159,6,1,0)="POSTMASTER"
^XMB(3.9,159,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,159,6,"B","POSTMASTER",1)=""
^XMB(3.9,159,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,160,0)="XU-8_SEQ-340_PAT-424.KID^.5^3061008.015743^^^^K"
^XMB(3.9,160,.6)="3061008"
^XMB(3.9,160,1,0)="^3.91A^2^2"
^XMB(3.9,160,1,1,0)=".5^0^3061008.015743^^^^^^^3061008.015743"
^XMB(3.9,160,1,2,0)="1^0^3061008.022909^^^^^^^3061008.022909"
^XMB(3.9,160,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,160,1,"C",.5,1)=""
^XMB(3.9,160,1,"C",1,2)=""
^XMB(3.9,160,2,0)="^^377^377^3061008"
^XMB(3.9,160,2,1,0)="$TXT EMERGENCY Released XU*8*424 SEQ #340"
^XMB(3.9,160,2,2,0)="Extracted from mail message"
^XMB(3.9,160,2,3,0)="$END TXT"
^XMB(3.9,160,2,4,0)="$KID XU*8.0*424"
^XMB(3.9,160,2,5,0)="**INSTALL NAME**"
^XMB(3.9,160,2,6,0)="XU*8.0*424"
^XMB(3.9,160,2,7,0)="""BLD"",944,0)"
^XMB(3.9,160,2,8,0)="XU*8.0*424^KERNEL^0^3060619^y"
^XMB(3.9,160,2,9,0)="""BLD"",944,4,0)"
^XMB(3.9,160,2,10,0)="^9.64PA^^"
^XMB(3.9,160,2,11,0)="""BLD"",944,6)"
^XMB(3.9,160,2,12,0)="7^"
^XMB(3.9,160,2,13,0)="""BLD"",944,6.3)"
^XMB(3.9,160,2,14,0)="3"
^XMB(3.9,160,2,15,0)="""BLD"",944,""KRN"",0)"
^XMB(3.9,160,2,16,0)="^9.67PA^8989.52^19"
^XMB(3.9,160,2,17,0)="""BLD"",944,""KRN"",.4,0)"
^XMB(3.9,160,2,18,0)=".4"
^XMB(3.9,160,2,19,0)="""BLD"",944,""KRN"",.4,""NM"",0)"
^XMB(3.9,160,2,20,0)="^9.68A^1^1"
^XMB(3.9,160,2,21,0)="""BLD"",944,""KRN"",.4,""NM"",1,0)"
^XMB(3.9,160,2,22,0)="XUSEC ISO ACTIVE USER PRINT    FILE #200^200^0"
^XMB(3.9,160,2,23,0)="""BLD"",944,""KRN"",.4,""NM"",""B"",""XUSEC ISO ACTIVE USER PRINT    FILE #200"",1)"
^XMB(3.9,160,2,24,0)=""
^XMB(3.9,160,2,25,0)="""BLD"",944,""KRN"",.401,0)"
^XMB(3.9,160,2,26,0)=".401"
^XMB(3.9,160,2,27,0)="""BLD"",944,""KRN"",.401,""NM"",0)"
^XMB(3.9,160,2,28,0)="^9.68A^1^1"
^XMB(3.9,160,2,29,0)="""BLD"",944,""KRN"",.401,""NM"",1,0)"
^XMB(3.9,160,2,30,0)="XUSEC ISO ACTIVE USER SORT    FILE #200^200^0"
^XMB(3.9,160,2,31,0)="""BLD"",944,""KRN"",.401,""NM"",""B"",""XUSEC ISO ACTIVE USER SORT    FILE #200"",1)"
^XMB(3.9,160,2,32,0)=""
^XMB(3.9,160,2,33,0)="""BLD"",944,""KRN"",.402,0)"
^XMB(3.9,160,2,34,0)=".402"
^XMB(3.9,160,2,35,0)="""BLD"",944,""KRN"",.403,0)"
^XMB(3.9,160,2,36,0)=".403"
^XMB(3.9,160,2,37,0)="""BLD"",944,""KRN"",.5,0)"
^XMB(3.9,160,2,38,0)=".5"
^XMB(3.9,160,2,39,0)="""BLD"",944,""KRN"",.5,""NM"",0)"
^XMB(3.9,160,2,40,0)="^9.68A^3^3"
^XMB(3.9,160,2,41,0)="""BLD"",944,""KRN"",.5,""NM"",1,0)"
^XMB(3.9,160,2,42,0)="XUSEC ISO ARTIFICIAL^^0"
^XMB(3.9,160,2,43,0)="""BLD"",944,""KRN"",.5,""NM"",2,0)"
^XMB(3.9,160,2,44,0)="XUSEC ISO ZZD OUT^^0"
^XMB(3.9,160,2,45,0)="""BLD"",944,""KRN"",.5,""NM"",3,0)"
^XMB(3.9,160,2,46,0)="XUSEC ISO VISITED^^0"
^XMB(3.9,160,2,47,0)="""BLD"",944,""KRN"",.5,""NM"",""B"",""XUSEC ISO ARTIFICIAL"",1)"
^XMB(3.9,160,2,48,0)=""
^XMB(3.9,160,2,49,0)="""BLD"",944,""KRN"",.5,""NM"",""B"",""XUSEC ISO VISITED"",3)"
^XMB(3.9,160,2,50,0)=""
^XMB(3.9,160,2,51,0)="""BLD"",944,""KRN"",.5,""NM"",""B"",""XUSEC ISO ZZD OUT"",2)"
^XMB(3.9,160,2,52,0)=""
^XMB(3.9,160,2,53,0)="""BLD"",944,""KRN"",.84,0)"
^XMB(3.9,160,2,54,0)=".84"
^XMB(3.9,160,2,55,0)="""BLD"",944,""KRN"",3.6,0)"
^XMB(3.9,160,2,56,0)="3.6"
^XMB(3.9,160,2,57,0)="""BLD"",944,""KRN"",3.8,0)"
^XMB(3.9,160,2,58,0)="3.8"
^XMB(3.9,160,2,59,0)="""BLD"",944,""KRN"",9.2,0)"
^XMB(3.9,160,2,60,0)="9.2"
^XMB(3.9,160,2,61,0)="""BLD"",944,""KRN"",9.8,0)"
^XMB(3.9,160,2,62,0)="9.8"
^XMB(3.9,160,2,63,0)="""BLD"",944,""KRN"",19,0)"
^XMB(3.9,160,2,64,0)="19"
^XMB(3.9,160,2,65,0)="""BLD"",944,""KRN"",19,""NM"",0)"
^XMB(3.9,160,2,66,0)="^9.68A^1^1"
^XMB(3.9,160,2,67,0)="""BLD"",944,""KRN"",19,""NM"",1,0)"
^XMB(3.9,160,2,68,0)="XUSEC ISO ACTIVE USER EXTRACT^^0"
^XMB(3.9,160,2,69,0)="""BLD"",944,""KRN"",19,""NM"",""B"",""XUSEC ISO ACTIVE USER EXTRACT"",1)"
^XMB(3.9,160,2,70,0)=""
^XMB(3.9,160,2,71,0)="""BLD"",944,""KRN"",19.1,0)"
^XMB(3.9,160,2,72,0)="19.1"
^XMB(3.9,160,2,73,0)="""BLD"",944,""KRN"",101,0)"
^XMB(3.9,160,2,74,0)="101"
^XMB(3.9,160,2,75,0)="""BLD"",944,""KRN"",409.61,0)"
^XMB(3.9,160,2,76,0)="409.61"
^XMB(3.9,160,2,77,0)="""BLD"",944,""KRN"",771,0)"
^XMB(3.9,160,2,78,0)="771"
^XMB(3.9,160,2,79,0)="""BLD"",944,""KRN"",870,0)"
^XMB(3.9,160,2,80,0)="870"
^XMB(3.9,160,2,81,0)="""BLD"",944,""KRN"",8989.51,0)"
^XMB(3.9,160,2,82,0)="8989.51"
^XMB(3.9,160,2,83,0)="""BLD"",944,""KRN"",8989.52,0)"
^XMB(3.9,160,2,84,0)="8989.52"
^XMB(3.9,160,2,85,0)="""BLD"",944,""KRN"",8994,0)"
^XMB(3.9,160,2,86,0)="8994"
^XMB(3.9,160,2,87,0)="""BLD"",944,""KRN"",""B"",.4,.4)"
^XMB(3.9,160,2,88,0)=""
^XMB(3.9,160,2,89,0)="""BLD"",944,""KRN"",""B"",.401,.401)"
^XMB(3.9,160,2,90,0)=""
^XMB(3.9,160,2,91,0)="""BLD"",944,""KRN"",""B"",.402,.402)"
^XMB(3.9,160,2,92,0)=""
^XMB(3.9,160,2,93,0)="""BLD"",944,""KRN"",""B"",.403,.403)"
^XMB(3.9,160,2,94,0)=""
^XMB(3.9,160,2,95,0)="""BLD"",944,""KRN"",""B"",.5,.5)"
^XMB(3.9,160,2,96,0)=""
^XMB(3.9,160,2,97,0)="""BLD"",944,""KRN"",""B"",.84,.84)"
^XMB(3.9,160,2,98,0)=""
^XMB(3.9,160,2,99,0)="""BLD"",944,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,160,2,100,0)=""
^XMB(3.9,160,2,101,0)="""BLD"",944,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,160,2,102,0)=""
^XMB(3.9,160,2,103,0)="""BLD"",944,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,160,2,104,0)=""
^XMB(3.9,160,2,105,0)="""BLD"",944,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,160,2,106,0)=""
^XMB(3.9,160,2,107,0)="""BLD"",944,""KRN"",""B"",19,19)"
^XMB(3.9,160,2,108,0)=""
^XMB(3.9,160,2,109,0)="""BLD"",944,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,160,2,110,0)=""
^XMB(3.9,160,2,111,0)="""BLD"",944,""KRN"",""B"",101,101)"
^XMB(3.9,160,2,112,0)=""
^XMB(3.9,160,2,113,0)="""BLD"",944,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,160,2,114,0)=""
^XMB(3.9,160,2,115,0)="""BLD"",944,""KRN"",""B"",771,771)"
^XMB(3.9,160,2,116,0)=""
^XMB(3.9,160,2,117,0)="""BLD"",944,""KRN"",""B"",870,870)"
^XMB(3.9,160,2,118,0)=""
^XMB(3.9,160,2,119,0)="""BLD"",944,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,160,2,120,0)=""
^XMB(3.9,160,2,121,0)="""BLD"",944,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,160,2,122,0)=""
^XMB(3.9,160,2,123,0)="""BLD"",944,""KRN"",""B"",8994,8994)"
^XMB(3.9,160,2,124,0)=""
^XMB(3.9,160,2,125,0)="""BLD"",944,""QUES"",0)"
^XMB(3.9,160,2,126,0)="^9.62^^"
^XMB(3.9,160,2,127,0)="""KRN"",.4,164,-1)"
^XMB(3.9,160,2,128,0)="0^1"
^XMB(3.9,160,2,129,0)="""KRN"",.4,164,0)"
^XMB(3.9,160,2,130,0)="XUSEC ISO ACTIVE USER PRINT^3060619.0529^@^200^^@^3060619"
^XMB(3.9,160,2,131,0)="""KRN"",.4,164,""DXS"",1,9.2)"
^XMB(3.9,160,2,132,0)="S X=$S($E($P($G(^VA(200,D0,1)),""^"",9),1,5)[""00000"":1,1:0) S X=X,DIP(1)=$G(X) S X=""ZZ"""
^XMB(3.9,160,2,133,0)="""KRN"",.4,164,""DXS"",2,9.2)"
^XMB(3.9,160,2,134,0)="S DIP(101)=$S($D(^VA(20,D0,1)):^(1),1:"""") S X=$P(DIP(101),U,1),DIP(102)=$G(X) S X=""ZZZ"""
^XMB(3.9,160,2,135,0)="""KRN"",.4,164,""DXS"",3,9)"
^XMB(3.9,160,2,136,0)="S X="""" N ZX S ZX=0 F  S ZX=$O(^VA(200,D0,2,ZX)) Q:'ZX  N ZXX S ZXX=+$P(^VA(200,D0,2,ZX,0),U) S:+ZXX>0 X=X_$P($G(^DIC(4,+ZXX,0)),U)_"","""
^XMB(3.9,160,2,137,0)="""KRN"",.4,164,""F"",1)"
^XMB(3.9,160,2,138,0)=""
^XMB(3.9,160,2,139,0)="""KRN"",.4,164,""F"",2)"
^XMB(3.9,160,2,140,0)="W $P($P($G(^DIC(4,+$P($G(^XTV(8989.3,1,""XUS"")),""^"",17),0)),""^"",1),"" VAM"",1)_"" LEGACY"";Z;""W $P($P($G(^DIC(4,+$P($G(^XTV(8989.3,1,""XUS"")),""^"",17),0)),""^"",1),"" VAM"",1)_"" LEGACY""""~"
^XMB(3.9,160,2,141,0)="""KRN"",.4,164,""F"",3)"
^XMB(3.9,160,2,142,0)=""";"";X~"";"";X~""VHA"";X~"";"";X~"
^XMB(3.9,160,2,143,0)="""KRN"",.4,164,""F"",4)"
^XMB(3.9,160,2,144,0)="X DXS(1,9.2) S X1=DIP(1) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;X;Z;""SETPARAM(XUSEC ISO ARTIFICIAL,""ZZ"")""~"
^XMB(3.9,160,2,145,0)="""KRN"",.4,164,""F"",5)"
^XMB(3.9,160,2,146,0)="-20,^VA(20,^^S I(0,0)=D0 S DIP(1)=$S($D(^VA(200,D0,3.1)):^(3.1),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""10.1:""~"
^XMB(3.9,160,2,147,0)="""KRN"",.4,164,""F"",6)"
^XMB(3.9,160,2,148,0)="-20,X DXS(2,9.2) S X1=DIP(102) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;Z;""SETPARAM((#1),""ZZZ"")""~"
^XMB(3.9,160,2,149,0)="""KRN"",.4,164,""F"",7)"
^XMB(3.9,160,2,150,0)="-20,S X=$S(DIPA(""ZZ"")=0:DIPA(""ZZZ""),1:""*""_DIPA(""ZZZ"")) W X;X;Z;""S X=$S(DIPA(""ZZ"")=0:DIPA(""ZZZ""),1:""*""_DIPA(""ZZZ"")) W X""~-20,"";"";X~-20,2;X~-20,"";"";X~"
^XMB(3.9,160,2,151,0)="""KRN"",.4,164,""F"",8)"
^XMB(3.9,160,2,152,0)="-20,3;X~-20,"";"";X~-20,5;X~-20,"";"";X~"";"";X~"
^XMB(3.9,160,2,153,0)="""KRN"",.4,164,""F"",9)"
^XMB(3.9,160,2,154,0)="-450,^PRSPC(^^S I(0,0)=D0 S DIP(1)=$S($D(^VA(200,D0,450)):^(450),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""PAID EMPLOYEE:""~-450,15.5;X~"";"";X~"";"";X~"
^XMB(3.9,160,2,155,0)="""KRN"",.4,164,""F"",10)"
^XMB(3.9,160,2,156,0)=""";"";X~"";"";X~"";"";X~"
^XMB(3.9,160,2,157,0)="""KRN"",.4,164,""F"",11)"
^XMB(3.9,160,2,158,0)="X DXS(3,9);Z;""S X="""" N ZX S ZX=0 F  S ZX=$O(^VA(200,D0,2,ZX)) Q:'ZX  N ZXX S ZXX=+$P(^VA(200,D0,2,ZX,0),U) S:+ZXX>0 X=X_$P($G(^DIC(4,+ZXX,0)),U)_"",""""~"
^XMB(3.9,160,2,159,0)="""KRN"",.4,164,""F"",12)"
^XMB(3.9,160,2,160,0)="N Z S Z=$L(X,"","") W $P(X,"","",1,(Z-1));X;Z;""N Z S Z=$L(X,"","") W $P(X,"","",1,(Z-1))""~"";"";X~"";"";X~"
^XMB(3.9,160,2,161,0)="""KRN"",.4,164,""H"")"
^XMB(3.9,160,2,162,0)="@@"
^XMB(3.9,160,2,163,0)="""KRN"",.401,109,-1)"
^XMB(3.9,160,2,164,0)="0^1"
^XMB(3.9,160,2,165,0)="""KRN"",.401,109,0)"
^XMB(3.9,160,2,166,0)="XUSEC ISO ACTIVE USER SORT^3060617.1011^@^200^^@^3060619"
^XMB(3.9,160,2,167,0)="""KRN"",.401,109,2,0)"
^XMB(3.9,160,2,168,0)="^.4014^3^3"
^XMB(3.9,160,2,169,0)="""KRN"",.401,109,2,1,0)"
^XMB(3.9,160,2,170,0)="200^0^NUMBER^@^^^^^^2"
^XMB(3.9,160,2,171,0)="""KRN"",.401,109,2,1,""IX"")"
^XMB(3.9,160,2,172,0)="^VA(200,^VA(200,^1"
^XMB(3.9,160,2,173,0)="""KRN"",.401,109,2,1,""QCON"")"
^XMB(3.9,160,2,174,0)="I D0'="""""
^XMB(3.9,160,2,175,0)="""KRN"",.401,109,2,1,""SER"")"
^XMB(3.9,160,2,176,0)="0^0"
^XMB(3.9,160,2,177,0)="""KRN"",.401,109,2,1,""TXT"")"
^XMB(3.9,160,2,178,0)="NUMBER not null"
^XMB(3.9,160,2,179,0)="""KRN"",.401,109,2,2,0)"
^XMB(3.9,160,2,180,0)="200^^XUSEC ISO VISITED=1^@""B^;L1^^^^^4"
^XMB(3.9,160,2,181,0)="""KRN"",.401,109,2,2,""CM"")"
^XMB(3.9,160,2,182,0)="S X=+$$ACTIVE^XUSER(D0) S X=X=1 I D0>0 S DISX(2)=X"
^XMB(3.9,160,2,183,0)="""KRN"",.401,109,2,2,""F"")"
^XMB(3.9,160,2,184,0)="0"
^XMB(3.9,160,2,185,0)="""KRN"",.401,109,2,2,""GET"")"
^XMB(3.9,160,2,186,0)="S X=+$$ACTIVE^XUSER(D0) S X=X=1 I D0>0 S DISX(2)=X"
^XMB(3.9,160,2,187,0)="""KRN"",.401,109,2,2,""QCON"")"
^XMB(3.9,160,2,188,0)="I (DISX(2)]]0)&(DISX(2)']]1)"
^XMB(3.9,160,2,189,0)="""KRN"",.401,109,2,2,""T"")"
^XMB(3.9,160,2,190,0)="1"
^XMB(3.9,160,2,191,0)="""KRN"",.401,109,2,2,""TXT"")"
^XMB(3.9,160,2,192,0)="XUSEC ISO VISITED=1"
^XMB(3.9,160,2,193,0)="""KRN"",.401,109,2,3,0)"
^XMB(3.9,160,2,194,0)="200^^PRIMARY MENU OPTION]""""^@""B^;L1^^^^^4"
^XMB(3.9,160,2,195,0)="""KRN"",.401,109,2,3,""CM"")"
^XMB(3.9,160,2,196,0)="S Y(1)=$S($D(^VA(200,D0,201)):^(201),1:"""") S X=$P($G(^DIC(19,+$P(Y(1),U,1),0)),U)]"""" I D0>0 S DISX(3)=X"
^XMB(3.9,160,2,197,0)="""KRN"",.401,109,2,3,""F"")"
^XMB(3.9,160,2,198,0)="0"
^XMB(3.9,160,2,199,0)="""KRN"",.401,109,2,3,""GET"")"
^XMB(3.9,160,2,200,0)="S Y(1)=$S($D(^VA(200,D0,201)):^(201),1:"""") S X=$P($G(^DIC(19,+$P(Y(1),U,1),0)),U)]"""" I D0>0 S DISX(3)=X"
^XMB(3.9,160,2,201,0)="""KRN"",.401,109,2,3,""QCON"")"
^XMB(3.9,160,2,202,0)="I (DISX(3)]]0)&(DISX(3)']]1)"
^XMB(3.9,160,2,203,0)="""KRN"",.401,109,2,3,""T"")"
^XMB(3.9,160,2,204,0)="1"
^XMB(3.9,160,2,205,0)="""KRN"",.401,109,2,3,""TXT"")"
^XMB(3.9,160,2,206,0)="PRIMARY MENU OPTION]"""""""""
^XMB(3.9,160,2,207,0)="""KRN"",.401,109,2,""B"",200,1)"
^XMB(3.9,160,2,208,0)=""
^XMB(3.9,160,2,209,0)="""KRN"",.401,109,2,""B"",200,2)"
^XMB(3.9,160,2,210,0)=""
^XMB(3.9,160,2,211,0)="""KRN"",.401,109,2,""B"",200,3)"
^XMB(3.9,160,2,212,0)=""
^XMB(3.9,160,2,213,0)="""KRN"",.5,143,-1)"
^XMB(3.9,160,2,214,0)="0^1"
^XMB(3.9,160,2,215,0)="""KRN"",.5,143,0)"
^XMB(3.9,160,2,216,0)="XUSEC ISO ARTIFICIAL"
^XMB(3.9,160,2,217,0)="""KRN"",.5,143,1)"
^XMB(3.9,160,2,218,0)="S X=$S($E($P($G(^VA(200,D0,1)),""^"",9),1,5)[""00000"":1,1:0)"
^XMB(3.9,160,2,219,0)="""KRN"",.5,143,2)"
^XMB(3.9,160,2,220,0)="X"
^XMB(3.9,160,2,221,0)="""KRN"",.5,143,3)"
^XMB(3.9,160,2,222,0)="0"
^XMB(3.9,160,2,223,0)="""KRN"",.5,143,9)"
^XMB(3.9,160,2,224,0)="WILL BRING A 1 BACK IF THIS PERSON HAS 5 LEADING ZEROS IN THEIR SSN OR A 0 IF NOT"
^XMB(3.9,160,2,225,0)="""KRN"",.5,144,-1)"
^XMB(3.9,160,2,226,0)="0^3"
^XMB(3.9,160,2,227,0)="""KRN"",.5,144,0)"
^XMB(3.9,160,2,228,0)="XUSEC ISO VISITED"
^XMB(3.9,160,2,229,0)="""KRN"",.5,144,1)"
^XMB(3.9,160,2,230,0)="S X=+$$ACTIVE^XUSER(D0)"
^XMB(3.9,160,2,231,0)="""KRN"",.5,144,2)"
^XMB(3.9,160,2,232,0)="X"
^XMB(3.9,160,2,233,0)="""KRN"",.5,144,3)"
^XMB(3.9,160,2,234,0)="0"
^XMB(3.9,160,2,235,0)="""KRN"",.5,144,9)"
^XMB(3.9,160,2,236,0)="Will bring back a 1 if this person is an active user on the system."
^XMB(3.9,160,2,237,0)="""KRN"",.5,145,-1)"
^XMB(3.9,160,2,238,0)="0^2"
^XMB(3.9,160,2,239,0)="""KRN"",.5,145,0)"
^XMB(3.9,160,2,240,0)="XUSEC ISO ZZD OUT"
^XMB(3.9,160,2,241,0)="""KRN"",.5,145,1)"
^XMB(3.9,160,2,242,0)="S X=$E($P($G(^VA(200,D0,0)),""^"",1),1,2),X=$S(X[""ZZ"":1,X[""zz"":1,X[""XX"":1,X[""xx"":1,1:0)"
^XMB(3.9,160,2,243,0)="""KRN"",.5,145,2)"
^XMB(3.9,160,2,244,0)="X"
^XMB(3.9,160,2,245,0)="""KRN"",.5,145,3)"
^XMB(3.9,160,2,246,0)="0"
^XMB(3.9,160,2,247,0)="""KRN"",.5,145,9)"
^XMB(3.9,160,2,248,0)="BRINGS BACK A 1 IF NAME STARTS WILL ZZ OR zz OR XX OR xx."
^XMB(3.9,160,2,249,0)="""KRN"",19,1230,-1)"
^XMB(3.9,160,2,250,0)="0^1"
^XMB(3.9,160,2,251,0)="""KRN"",19,1230,0)"
^XMB(3.9,160,2,252,0)="XUSEC ISO ACTIVE USER EXTRACT^Special Active User Excel output^^P^^^^^^^^"
^XMB(3.9,160,2,253,0)="""KRN"",19,1230,1,0)"
^XMB(3.9,160,2,254,0)="^19.06^1^1^3060616^^^^"
^XMB(3.9,160,2,255,0)="""KRN"",19,1230,1,1,0)"
^XMB(3.9,160,2,256,0)="This option will produce a special excel formated output."
^XMB(3.9,160,2,257,0)="""KRN"",19,1230,60)"
^XMB(3.9,160,2,258,0)="VA(200,"
^XMB(3.9,160,2,259,0)="""KRN"",19,1230,62)"
^XMB(3.9,160,2,260,0)="0"
^XMB(3.9,160,2,261,0)="""KRN"",19,1230,63)"
^XMB(3.9,160,2,262,0)="[XUSEC ISO ACTIVE USER PRINT]"
^XMB(3.9,160,2,263,0)="""KRN"",19,1230,64)"
^XMB(3.9,160,2,264,0)="[XUSEC ISO ACTIVE USER SORT]"
^XMB(3.9,160,2,265,0)="""KRN"",19,1230,65)"
^XMB(3.9,160,2,266,0)=""
^XMB(3.9,160,2,267,0)="""KRN"",19,1230,66)"
^XMB(3.9,160,2,268,0)=""
^XMB(3.9,160,2,269,0)="""KRN"",19,1230,99.1)"
^XMB(3.9,160,2,270,0)="60432,43451"
^XMB(3.9,160,2,271,0)="""KRN"",19,1230,""U"")"
^XMB(3.9,160,2,272,0)="SPECIAL ACTIVE USER EXCEL OUTP"
^XMB(3.9,160,2,273,0)="""MBREQ"")"
^XMB(3.9,160,2,274,0)="0"
^XMB(3.9,160,2,275,0)="""ORD"",4,.5)"
^XMB(3.9,160,2,276,0)=".5;4;;;EDEOUT^DIFROMSO(.5,DA,"""",XPDA);FPRE^DIFROMSI(.5,"""",XPDA);EPRE^DIFROMSI(.5,DA,"""",XPDA,"""",OLDA);;EPOST^DIFROMSI(.5,DA,"""",XPDA)"
^XMB(3.9,160,2,277,0)="""ORD"",4,.5,0)"
^XMB(3.9,160,2,278,0)="FUNCTION"
^XMB(3.9,160,2,279,0)="""ORD"",5,.4)"
^XMB(3.9,160,2,280,0)=".4;5;;;EDEOUT^DIFROMSO(.4,DA,"""",XPDA);FPRE^DIFROMSI(.4,"""",XPDA);EPRE^DIFROMSI(.4,DA,$E(""N"",$G(XPDNEW)),XPDA,"""",OLDA);;EPOST^DIFROMSI(.4,DA,"""",XPDA);DEL^DIFROMSK(.4,"""",%)"
^XMB(3.9,160,2,281,0)="""ORD"",5,.4,0)"
^XMB(3.9,160,2,282,0)="PRINT TEMPLATE"
^XMB(3.9,160,2,283,0)="""ORD"",6,.401)"
^XMB(3.9,160,2,284,0)=".401;6;;;EDEOUT^DIFROMSO(.401,DA,"""",XPDA);FPRE^DIFROMSI(.401,"""",XPDA);EPRE^DIFROMSI(.401,DA,$E(""N"",$G(XPDNEW)),XPDA,"""",OLDA);;EPOST^DIFROMSI(.401,DA,"""",XPDA);DEL^DIFROMSK(.401,"""",%)"
^XMB(3.9,160,2,285,0)="""ORD"",6,.401,0)"
^XMB(3.9,160,2,286,0)="SORT TEMPLATE"
^XMB(3.9,160,2,287,0)="""ORD"",18,19)"
^XMB(3.9,160,2,288,0)="19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA"
^XMB(3.9,160,2,289,0)="""ORD"",18,19,0)"
^XMB(3.9,160,2,290,0)="OPTION"
^XMB(3.9,160,2,291,0)="""PKG"",3,-1)"
^XMB(3.9,160,2,292,0)="1^1"
^XMB(3.9,160,2,293,0)="""PKG"",3,0)"
^XMB(3.9,160,2,294,0)="KERNEL^XU^SIGN-ON, SECURITY, MENU DRIVER, DEVICES, TASKMAN^"
^XMB(3.9,160,2,295,0)="""PKG"",3,20,0)"
^XMB(3.9,160,2,296,0)="^9.402P^^0"
^XMB(3.9,160,2,297,0)="""PKG"",3,22,0)"
^XMB(3.9,160,2,298,0)="^9.49I^1^1"
^XMB(3.9,160,2,299,0)="""PKG"",3,22,1,0)"
^XMB(3.9,160,2,300,0)="8.0^3051215^2970507^.5"
^XMB(3.9,160,2,301,0)="""PKG"",3,22,1,""PAH"",1,0)"
^XMB(3.9,160,2,302,0)="424^3060619^70"
^XMB(3.9,160,2,303,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,160,2,304,0)="Y"
^XMB(3.9,160,2,305,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,160,2,306,0)="^D REP^XPDH"
^XMB(3.9,160,2,307,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,160,2,308,0)="Shall I write over your |FLAG| File"
^XMB(3.9,160,2,309,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,160,2,310,0)="YES"
^XMB(3.9,160,2,311,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,160,2,312,0)="D XPF1^XPDIQ"
^XMB(3.9,160,2,313,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,160,2,314,0)="Y"
^XMB(3.9,160,2,315,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,160,2,316,0)="^D DTA^XPDH"
^XMB(3.9,160,2,317,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,160,2,318,0)="Want my data |FLAG| yours"
^XMB(3.9,160,2,319,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,160,2,320,0)="YES"
^XMB(3.9,160,2,321,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,160,2,322,0)="D XPF2^XPDIQ"
^XMB(3.9,160,2,323,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,160,2,324,0)="YO"
^XMB(3.9,160,2,325,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,160,2,326,0)="^D INHIBIT^XPDH"
^XMB(3.9,160,2,327,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,160,2,328,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,160,2,329,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,160,2,330,0)="YES"
^XMB(3.9,160,2,331,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,160,2,332,0)="D XPI1^XPDIQ"
^XMB(3.9,160,2,333,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,160,2,334,0)="PO^VA(200,:EM"
^XMB(3.9,160,2,335,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,160,2,336,0)="^D MG^XPDH"
^XMB(3.9,160,2,337,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,160,2,338,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,160,2,339,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,160,2,340,0)=""
^XMB(3.9,160,2,341,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,160,2,342,0)="D XPM1^XPDIQ"
^XMB(3.9,160,2,343,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,160,2,344,0)="Y"
^XMB(3.9,160,2,345,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,160,2,346,0)="^D MENU^XPDH"
^XMB(3.9,160,2,347,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,160,2,348,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,160,2,349,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,160,2,350,0)="YES"
^XMB(3.9,160,2,351,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,160,2,352,0)="D XPO1^XPDIQ"
^XMB(3.9,160,2,353,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,160,2,354,0)="Y"
^XMB(3.9,160,2,355,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,160,2,356,0)="^D OPT^XPDH"
^XMB(3.9,160,2,357,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,160,2,358,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,160,2,359,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,160,2,360,0)="YES"
^XMB(3.9,160,2,361,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,160,2,362,0)="D XPZ1^XPDIQ"
^XMB(3.9,160,2,363,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,160,2,364,0)="Y"
^XMB(3.9,160,2,365,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,160,2,366,0)="^D RTN^XPDH"
^XMB(3.9,160,2,367,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,160,2,368,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,160,2,369,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,160,2,370,0)="NO"
^XMB(3.9,160,2,371,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,160,2,372,0)="D XPZ2^XPDIQ"
^XMB(3.9,160,2,373,0)="""VER"")"
^XMB(3.9,160,2,374,0)="8.0^22.0"
^XMB(3.9,160,2,375,0)="""BLD"",944,6)"
^XMB(3.9,160,2,376,0)="^340"
^XMB(3.9,160,2,377,0)="$END KID XU*8.0*424"
^XMB(3.9,160,6,0)="^3.911A^2^2"
^XMB(3.9,160,6,1,0)="POSTMASTER"
^XMB(3.9,160,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,160,6,"B","POSTMASTER",1)=""
^XMB(3.9,160,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,161,0)="XU-8_SEQ-341_PAT-353.KID^.5^3061008.015743^^^^K"
^XMB(3.9,161,.6)="3061008"
^XMB(3.9,161,1,0)="^3.91A^2^2"
^XMB(3.9,161,1,1,0)=".5^0^3061008.015743^^^^^^^3061008.015743"
^XMB(3.9,161,1,2,0)="1^0^3061008.022913^^^^^^^3061008.022913"
^XMB(3.9,161,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,161,1,"C",.5,1)=""
^XMB(3.9,161,1,"C",1,2)=""
^XMB(3.9,161,2,0)="^^563^563^3061008"
^XMB(3.9,161,2,1,0)="$TXT Released XU*8*353 SEQ #341"
^XMB(3.9,161,2,2,0)="Extracted from mail message"
^XMB(3.9,161,2,3,0)="$END TXT"
^XMB(3.9,161,2,4,0)="$KID XU*8.0*353"
^XMB(3.9,161,2,5,0)="**INSTALL NAME**"
^XMB(3.9,161,2,6,0)="XU*8.0*353"
^XMB(3.9,161,2,7,0)="""BLD"",871,0)"
^XMB(3.9,161,2,8,0)="XU*8.0*353^KERNEL^0^3060531^y"
^XMB(3.9,161,2,9,0)="""BLD"",871,1,0)"
^XMB(3.9,161,2,10,0)="^^2^2^3050526^"
^XMB(3.9,161,2,11,0)="""BLD"",871,1,1,0)"
^XMB(3.9,161,2,12,0)="Please refer to the Description in the FORUM Patch Module for details."
^XMB(3.9,161,2,13,0)="""BLD"",871,1,2,0)"
^XMB(3.9,161,2,14,0)="XU*8*353  TMP global clean-up changes."
^XMB(3.9,161,2,15,0)="""BLD"",871,4,0)"
^XMB(3.9,161,2,16,0)="^9.64PA^^"
^XMB(3.9,161,2,17,0)="""BLD"",871,6.3)"
^XMB(3.9,161,2,18,0)="1"
^XMB(3.9,161,2,19,0)="""BLD"",871,""KRN"",0)"
^XMB(3.9,161,2,20,0)="^9.67PA^8989.52^19"
^XMB(3.9,161,2,21,0)="""BLD"",871,""KRN"",.4,0)"
^XMB(3.9,161,2,22,0)=".4"
^XMB(3.9,161,2,23,0)="""BLD"",871,""KRN"",.401,0)"
^XMB(3.9,161,2,24,0)=".401"
^XMB(3.9,161,2,25,0)="""BLD"",871,""KRN"",.402,0)"
^XMB(3.9,161,2,26,0)=".402"
^XMB(3.9,161,2,27,0)="""BLD"",871,""KRN"",.403,0)"
^XMB(3.9,161,2,28,0)=".403"
^XMB(3.9,161,2,29,0)="""BLD"",871,""KRN"",.5,0)"
^XMB(3.9,161,2,30,0)=".5"
^XMB(3.9,161,2,31,0)="""BLD"",871,""KRN"",.84,0)"
^XMB(3.9,161,2,32,0)=".84"
^XMB(3.9,161,2,33,0)="""BLD"",871,""KRN"",3.6,0)"
^XMB(3.9,161,2,34,0)="3.6"
^XMB(3.9,161,2,35,0)="""BLD"",871,""KRN"",3.8,0)"
^XMB(3.9,161,2,36,0)="3.8"
^XMB(3.9,161,2,37,0)="""BLD"",871,""KRN"",9.2,0)"
^XMB(3.9,161,2,38,0)="9.2"
^XMB(3.9,161,2,39,0)="""BLD"",871,""KRN"",9.8,0)"
^XMB(3.9,161,2,40,0)="9.8"
^XMB(3.9,161,2,41,0)="""BLD"",871,""KRN"",9.8,""NM"",0)"
^XMB(3.9,161,2,42,0)="^9.68A^2^2"
^XMB(3.9,161,2,43,0)="""BLD"",871,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,161,2,44,0)="XUSCLEAN^^0^B12811237"
^XMB(3.9,161,2,45,0)="""BLD"",871,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,161,2,46,0)="XQ82^^0^B10280365"
^XMB(3.9,161,2,47,0)="""BLD"",871,""KRN"",9.8,""NM"",""B"",""XQ82"",2)"
^XMB(3.9,161,2,48,0)=""
^XMB(3.9,161,2,49,0)="""BLD"",871,""KRN"",9.8,""NM"",""B"",""XUSCLEAN"",1)"
^XMB(3.9,161,2,50,0)=""
^XMB(3.9,161,2,51,0)="""BLD"",871,""KRN"",19,0)"
^XMB(3.9,161,2,52,0)="19"
^XMB(3.9,161,2,53,0)="""BLD"",871,""KRN"",19.1,0)"
^XMB(3.9,161,2,54,0)="19.1"
^XMB(3.9,161,2,55,0)="""BLD"",871,""KRN"",101,0)"
^XMB(3.9,161,2,56,0)="101"
^XMB(3.9,161,2,57,0)="""BLD"",871,""KRN"",409.61,0)"
^XMB(3.9,161,2,58,0)="409.61"
^XMB(3.9,161,2,59,0)="""BLD"",871,""KRN"",771,0)"
^XMB(3.9,161,2,60,0)="771"
^XMB(3.9,161,2,61,0)="""BLD"",871,""KRN"",870,0)"
^XMB(3.9,161,2,62,0)="870"
^XMB(3.9,161,2,63,0)="""BLD"",871,""KRN"",8989.51,0)"
^XMB(3.9,161,2,64,0)="8989.51"
^XMB(3.9,161,2,65,0)="""BLD"",871,""KRN"",8989.52,0)"
^XMB(3.9,161,2,66,0)="8989.52"
^XMB(3.9,161,2,67,0)="""BLD"",871,""KRN"",8994,0)"
^XMB(3.9,161,2,68,0)="8994"
^XMB(3.9,161,2,69,0)="""BLD"",871,""KRN"",""B"",.4,.4)"
^XMB(3.9,161,2,70,0)=""
^XMB(3.9,161,2,71,0)="""BLD"",871,""KRN"",""B"",.401,.401)"
^XMB(3.9,161,2,72,0)=""
^XMB(3.9,161,2,73,0)="""BLD"",871,""KRN"",""B"",.402,.402)"
^XMB(3.9,161,2,74,0)=""
^XMB(3.9,161,2,75,0)="""BLD"",871,""KRN"",""B"",.403,.403)"
^XMB(3.9,161,2,76,0)=""
^XMB(3.9,161,2,77,0)="""BLD"",871,""KRN"",""B"",.5,.5)"
^XMB(3.9,161,2,78,0)=""
^XMB(3.9,161,2,79,0)="""BLD"",871,""KRN"",""B"",.84,.84)"
^XMB(3.9,161,2,80,0)=""
^XMB(3.9,161,2,81,0)="""BLD"",871,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,161,2,82,0)=""
^XMB(3.9,161,2,83,0)="""BLD"",871,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,161,2,84,0)=""
^XMB(3.9,161,2,85,0)="""BLD"",871,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,161,2,86,0)=""
^XMB(3.9,161,2,87,0)="""BLD"",871,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,161,2,88,0)=""
^XMB(3.9,161,2,89,0)="""BLD"",871,""KRN"",""B"",19,19)"
^XMB(3.9,161,2,90,0)=""
^XMB(3.9,161,2,91,0)="""BLD"",871,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,161,2,92,0)=""
^XMB(3.9,161,2,93,0)="""BLD"",871,""KRN"",""B"",101,101)"
^XMB(3.9,161,2,94,0)=""
^XMB(3.9,161,2,95,0)="""BLD"",871,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,161,2,96,0)=""
^XMB(3.9,161,2,97,0)="""BLD"",871,""KRN"",""B"",771,771)"
^XMB(3.9,161,2,98,0)=""
^XMB(3.9,161,2,99,0)="""BLD"",871,""KRN"",""B"",870,870)"
^XMB(3.9,161,2,100,0)=""
^XMB(3.9,161,2,101,0)="""BLD"",871,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,161,2,102,0)=""
^XMB(3.9,161,2,103,0)="""BLD"",871,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,161,2,104,0)=""
^XMB(3.9,161,2,105,0)="""BLD"",871,""KRN"",""B"",8994,8994)"
^XMB(3.9,161,2,106,0)=""
^XMB(3.9,161,2,107,0)="""MBREQ"")"
^XMB(3.9,161,2,108,0)="0"
^XMB(3.9,161,2,109,0)="""PKG"",3,-1)"
^XMB(3.9,161,2,110,0)="1^1"
^XMB(3.9,161,2,111,0)="""PKG"",3,0)"
^XMB(3.9,161,2,112,0)="KERNEL^XU^SIGN-ON, SECURITY, MENU DRIVER, DEVICES, TASKMAN^"
^XMB(3.9,161,2,113,0)="""PKG"",3,20,0)"
^XMB(3.9,161,2,114,0)="^9.402P^^0"
^XMB(3.9,161,2,115,0)="""PKG"",3,22,0)"
^XMB(3.9,161,2,116,0)="^9.49I^1^1"
^XMB(3.9,161,2,117,0)="""PKG"",3,22,1,0)"
^XMB(3.9,161,2,118,0)="8.0^3051215^2970507^.5"
^XMB(3.9,161,2,119,0)="""PKG"",3,22,1,""PAH"",1,0)"
^XMB(3.9,161,2,120,0)="353^3060531"
^XMB(3.9,161,2,121,0)="""PKG"",3,22,1,""PAH"",1,1,0)"
^XMB(3.9,161,2,122,0)="^^2^2^3060531"
^XMB(3.9,161,2,123,0)="""PKG"",3,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,161,2,124,0)="Please refer to the Description in the FORUM Patch Module for details."
^XMB(3.9,161,2,125,0)="""PKG"",3,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,161,2,126,0)="XU*8*353  TMP global clean-up changes."
^XMB(3.9,161,2,127,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,161,2,128,0)="Y"
^XMB(3.9,161,2,129,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,161,2,130,0)="^D REP^XPDH"
^XMB(3.9,161,2,131,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,161,2,132,0)="Shall I write over your |FLAG| File"
^XMB(3.9,161,2,133,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,161,2,134,0)="YES"
^XMB(3.9,161,2,135,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,161,2,136,0)="D XPF1^XPDIQ"
^XMB(3.9,161,2,137,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,161,2,138,0)="Y"
^XMB(3.9,161,2,139,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,161,2,140,0)="^D DTA^XPDH"
^XMB(3.9,161,2,141,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,161,2,142,0)="Want my data |FLAG| yours"
^XMB(3.9,161,2,143,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,161,2,144,0)="YES"
^XMB(3.9,161,2,145,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,161,2,146,0)="D XPF2^XPDIQ"
^XMB(3.9,161,2,147,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,161,2,148,0)="YO"
^XMB(3.9,161,2,149,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,161,2,150,0)="^D INHIBIT^XPDH"
^XMB(3.9,161,2,151,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,161,2,152,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,161,2,153,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,161,2,154,0)="YES"
^XMB(3.9,161,2,155,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,161,2,156,0)="D XPI1^XPDIQ"
^XMB(3.9,161,2,157,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,161,2,158,0)="PO^VA(200,:EM"
^XMB(3.9,161,2,159,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,161,2,160,0)="^D MG^XPDH"
^XMB(3.9,161,2,161,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,161,2,162,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,161,2,163,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,161,2,164,0)=""
^XMB(3.9,161,2,165,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,161,2,166,0)="D XPM1^XPDIQ"
^XMB(3.9,161,2,167,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,161,2,168,0)="Y"
^XMB(3.9,161,2,169,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,161,2,170,0)="^D MENU^XPDH"
^XMB(3.9,161,2,171,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,161,2,172,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,161,2,173,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,161,2,174,0)="YES"
^XMB(3.9,161,2,175,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,161,2,176,0)="D XPO1^XPDIQ"
^XMB(3.9,161,2,177,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,161,2,178,0)="Y"
^XMB(3.9,161,2,179,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,161,2,180,0)="^D OPT^XPDH"
^XMB(3.9,161,2,181,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,161,2,182,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,161,2,183,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,161,2,184,0)="YES"
^XMB(3.9,161,2,185,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,161,2,186,0)="D XPZ1^XPDIQ"
^XMB(3.9,161,2,187,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,161,2,188,0)="Y"
^XMB(3.9,161,2,189,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,161,2,190,0)="^D RTN^XPDH"
^XMB(3.9,161,2,191,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,161,2,192,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,161,2,193,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,161,2,194,0)="NO"
^XMB(3.9,161,2,195,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,161,2,196,0)="D XPZ2^XPDIQ"
^XMB(3.9,161,2,197,0)="""RTN"")"
^XMB(3.9,161,2,198,0)="2"
^XMB(3.9,161,2,199,0)="""RTN"",""XQ82"")"
^XMB(3.9,161,2,200,0)="0^2^B10280365^B6919718"
^XMB(3.9,161,2,201,0)="""RTN"",""XQ82"",1,0)"
^XMB(3.9,161,2,202,0)="XQ82 ;SF-ISC.SEA/JLI - CLEAN OLD $JOB DATA OUT OF XUTL(""XQ"", & OTHERS ;05/26/2005  11:36"
^XMB(3.9,161,2,203,0)="""RTN"",""XQ82"",2,0)"
^XMB(3.9,161,2,204,0)=" ;;8.0;KERNEL;**59,67,157,258,312,353**;Jul 10, 1995;Build 1"
^XMB(3.9,161,2,205,0)="""RTN"",""XQ82"",3,0)"
^XMB(3.9,161,2,206,0)=" ;Make sure that can run from a DCL script"
^XMB(3.9,161,2,207,0)="""RTN"",""XQ82"",4,0)"
^XMB(3.9,161,2,208,0)=" N A,X,%DT,Y,J,K,DDATE,HDATA,HPID3,XQOS"
^XMB(3.9,161,2,209,0)="""RTN"",""XQ82"",5,0)"
^XMB(3.9,161,2,210,0)=" S DT=$$DT^XLFDT"
^XMB(3.9,161,2,211,0)="""RTN"",""XQ82"",6,0)"
^XMB(3.9,161,2,212,0)=" S HDATE=$H-7 ;Get seven days ago in $H days"
^XMB(3.9,161,2,213,0)="""RTN"",""XQ82"",7,0)"
^XMB(3.9,161,2,214,0)=" S DDATE=$$HTFM^XLFDT(HDATE) ;Get seven days ago in FM format"
^XMB(3.9,161,2,215,0)="""RTN"",""XQ82"",8,0)"
^XMB(3.9,161,2,216,0)=" S XQOS=^%ZOSF(""OS""),HPID3=$E($$CNV^XLFUTL($J,16),1,3)"
^XMB(3.9,161,2,217,0)="""RTN"",""XQ82"",9,0)"
^XMB(3.9,161,2,218,0)=" S HJOB=$J"
^XMB(3.9,161,2,219,0)="""RTN"",""XQ82"",10,0)"
^XMB(3.9,161,2,220,0)=" ;Do work as a set of sub routines"
^XMB(3.9,161,2,221,0)="""RTN"",""XQ82"",11,0)"
^XMB(3.9,161,2,222,0)=" D L0,L1,L2,L3,L4,L5,L6"
^XMB(3.9,161,2,223,0)="""RTN"",""XQ82"",12,0)"
^XMB(3.9,161,2,224,0)="EXIT ;"
^XMB(3.9,161,2,225,0)="""RTN"",""XQ82"",13,0)"
^XMB(3.9,161,2,226,0)=" Q"
^XMB(3.9,161,2,227,0)="""RTN"",""XQ82"",14,0)"
^XMB(3.9,161,2,228,0)=" ;We keep track of jobs by putting data in ^XUTL(""XQ"",$J)."
^XMB(3.9,161,2,229,0)="""RTN"",""XQ82"",15,0)"
^XMB(3.9,161,2,230,0)=" ;Sign-on time is in ^($J,0) points to sign-on log."
^XMB(3.9,161,2,231,0)="""RTN"",""XQ82"",16,0)"
^XMB(3.9,161,2,232,0)=" ;Holds the Menu stack."
^XMB(3.9,161,2,233,0)="""RTN"",""XQ82"",17,0)"
^XMB(3.9,161,2,234,0)=" ;For any entry in user stack w/ date older than 7 days or w/o zero node"
^XMB(3.9,161,2,235,0)="""RTN"",""XQ82"",18,0)"
^XMB(3.9,161,2,236,0)=" ;kill XUTL(""XQ"",n) and corresponding UTILITY(n) and TMP(n) nodes."
^XMB(3.9,161,2,237,0)="""RTN"",""XQ82"",19,0)"
^XMB(3.9,161,2,238,0)="L0 N %T"
^XMB(3.9,161,2,239,0)="""RTN"",""XQ82"",20,0)"
^XMB(3.9,161,2,240,0)=" F J=0:0 S J=$O(^XUTL(""XQ"",J)) Q:J'>0  I $S('$D(^(J,0)):1,1:^(0)<DDATE) D"
^XMB(3.9,161,2,241,0)="""RTN"",""XQ82"",21,0)"
^XMB(3.9,161,2,242,0)=" . I $G(^XUTL(""XQ"",J,""KEEPALIVE""))>HDATE Q  ;For long running jobs"
^XMB(3.9,161,2,243,0)="""RTN"",""XQ82"",22,0)"
^XMB(3.9,161,2,244,0)=" . I $D(^XUTL(""XQ"",J,""ZTSKNUM"")) L +^%ZTSCH(""TASK"",^XUTL(""XQ"",J,""ZTSKNUM"")):0 Q:'$T  L -^%ZTSCH(""TASK"",^XUTL(""XQ"",J,""ZTSKNUM""))"
^XMB(3.9,161,2,245,0)="""RTN"",""XQ82"",23,0)"
^XMB(3.9,161,2,246,0)=" . K ^XUTL(""XQ"",J),^UTILITY(J),^TMP(J)"
^XMB(3.9,161,2,247,0)="""RTN"",""XQ82"",24,0)"
^XMB(3.9,161,2,248,0)=" . Q"
^XMB(3.9,161,2,249,0)="""RTN"",""XQ82"",25,0)"
^XMB(3.9,161,2,250,0)=" Q:'$$CHECK  ;Check if we should skip pass 2."
^XMB(3.9,161,2,251,0)="""RTN"",""XQ82"",26,0)"
^XMB(3.9,161,2,252,0)=" ;Now to check again for DEAD jobs on local node"
^XMB(3.9,161,2,253,0)="""RTN"",""XQ82"",27,0)"
^XMB(3.9,161,2,254,0)=" F J=0:0 S J=$O(^XUTL(""XQ"",J)) Q:J'>0  D"
^XMB(3.9,161,2,255,0)="""RTN"",""XQ82"",28,0)"
^XMB(3.9,161,2,256,0)=" . I $$DEAD(J) K ^XUTL(""XQ"",J),^UTILITY(J),^TMP(J)"
^XMB(3.9,161,2,257,0)="""RTN"",""XQ82"",29,0)"
^XMB(3.9,161,2,258,0)=" Q"
^XMB(3.9,161,2,259,0)="""RTN"",""XQ82"",30,0)"
^XMB(3.9,161,2,260,0)=" ;"
^XMB(3.9,161,2,261,0)="""RTN"",""XQ82"",31,0)"
^XMB(3.9,161,2,262,0)=" ;Loop thru UTILITY and look for nodes w/o corresponding XUTL(""XQ"",n)"
^XMB(3.9,161,2,263,0)="""RTN"",""XQ82"",32,0)"
^XMB(3.9,161,2,264,0)="L1 S A="""" F  S A=$O(^UTILITY(A)) Q:A=""""  D"
^XMB(3.9,161,2,265,0)="""RTN"",""XQ82"",33,0)"
^XMB(3.9,161,2,266,0)=" . I A>0,'$D(^XUTL(""XQ"",A)) K ^UTILITY(A) Q  ;UTILITY($J) w/o XUTL(""XQ"",$J) node."
^XMB(3.9,161,2,267,0)="""RTN"",""XQ82"",34,0)"
^XMB(3.9,161,2,268,0)=" . Q:A>0  Q:""^ROU^GLO^LRLTR^""[(""^""_A_""^"")"
^XMB(3.9,161,2,269,0)="""RTN"",""XQ82"",35,0)"
^XMB(3.9,161,2,270,0)=" . F J=0:0 S J=$O(^UTILITY(A,J)) Q:J'>0  I '$D(^XUTL(""XQ"",J)) K ^UTILITY(A,J) ;Remove UTILITY(namespace,$J) w/o XUTL(""XQ"",$J)"
^XMB(3.9,161,2,271,0)="""RTN"",""XQ82"",36,0)"
^XMB(3.9,161,2,272,0)=" . Q"
^XMB(3.9,161,2,273,0)="""RTN"",""XQ82"",37,0)"
^XMB(3.9,161,2,274,0)=" Q"
^XMB(3.9,161,2,275,0)="""RTN"",""XQ82"",38,0)"
^XMB(3.9,161,2,276,0)=" ;"
^XMB(3.9,161,2,277,0)="""RTN"",""XQ82"",39,0)"
^XMB(3.9,161,2,278,0)=" ;Loop thru TMP and look for nodes w/o corresponding XUTL(""XQ"",n)"
^XMB(3.9,161,2,279,0)="""RTN"",""XQ82"",40,0)"
^XMB(3.9,161,2,280,0)="L2 S A="""" F  S A=$O(^TMP(A)) Q:A=""""  D"
^XMB(3.9,161,2,281,0)="""RTN"",""XQ82"",41,0)"
^XMB(3.9,161,2,282,0)=" . I A>0,'$D(^XUTL(""XQ"",A)) K ^TMP(A) Q  ;TMP($J) w/o XUTL(""XQ"",$J) node."
^XMB(3.9,161,2,283,0)="""RTN"",""XQ82"",42,0)"
^XMB(3.9,161,2,284,0)=" . Q:A>0  ;Q:""^ROU^GLO^LRLTR^""[(""^""_A_""^"")"
^XMB(3.9,161,2,285,0)="""RTN"",""XQ82"",43,0)"
^XMB(3.9,161,2,286,0)=" . F J=0:0 S J=$O(^TMP(A,J)) Q:J'>0  I '$D(^XUTL(""XQ"",J)) K ^TMP(A,J) ;Remove TMP(namespace,$J) w/o XUTL(""XQ"",$J)"
^XMB(3.9,161,2,287,0)="""RTN"",""XQ82"",44,0)"
^XMB(3.9,161,2,288,0)=" . Q"
^XMB(3.9,161,2,289,0)="""RTN"",""XQ82"",45,0)"
^XMB(3.9,161,2,290,0)=" Q"
^XMB(3.9,161,2,291,0)="""RTN"",""XQ82"",46,0)"
^XMB(3.9,161,2,292,0)=" ;"
^XMB(3.9,161,2,293,0)="""RTN"",""XQ82"",47,0)"
^XMB(3.9,161,2,294,0)="L3 ;Now to cleanup the XTMP global w/ XTMP(namespace,0)<DT"
^XMB(3.9,161,2,295,0)="""RTN"",""XQ82"",48,0)"
^XMB(3.9,161,2,296,0)=" S A="""" F  S A=$O(^XTMP(A)) Q:A=""""  S J=$G(^XTMP(A,0)) I J<DT K ^XTMP(A)"
^XMB(3.9,161,2,297,0)="""RTN"",""XQ82"",49,0)"
^XMB(3.9,161,2,298,0)=" Q"
^XMB(3.9,161,2,299,0)="""RTN"",""XQ82"",50,0)"
^XMB(3.9,161,2,300,0)=" ;"
^XMB(3.9,161,2,301,0)="""RTN"",""XQ82"",51,0)"
^XMB(3.9,161,2,302,0)="L4 ;Now go thru and clean old ^XUSEC(0,""CUR"",duz,sign-on) nodes."
^XMB(3.9,161,2,303,0)="""RTN"",""XQ82"",52,0)"
^XMB(3.9,161,2,304,0)=" D L51(""CUR"")"
^XMB(3.9,161,2,305,0)="""RTN"",""XQ82"",53,0)"
^XMB(3.9,161,2,306,0)=" Q"
^XMB(3.9,161,2,307,0)="""RTN"",""XQ82"",54,0)"
^XMB(3.9,161,2,308,0)=" ;"
^XMB(3.9,161,2,309,0)="""RTN"",""XQ82"",55,0)"
^XMB(3.9,161,2,310,0)="L5 ;Now go through and clean old ^XUSEC(0,""AS*"" nodes."
^XMB(3.9,161,2,311,0)="""RTN"",""XQ82"",56,0)"
^XMB(3.9,161,2,312,0)=" D L51(""AS1""),L51(""AS2"")"
^XMB(3.9,161,2,313,0)="""RTN"",""XQ82"",57,0)"
^XMB(3.9,161,2,314,0)=" Q"
^XMB(3.9,161,2,315,0)="""RTN"",""XQ82"",58,0)"
^XMB(3.9,161,2,316,0)=" ;"
^XMB(3.9,161,2,317,0)="""RTN"",""XQ82"",59,0)"
^XMB(3.9,161,2,318,0)="L6 ;Clean out old build nodes from ^XUTL"
^XMB(3.9,161,2,319,0)="""RTN"",""XQ82"",60,0)"
^XMB(3.9,161,2,320,0)=" S K="""""
^XMB(3.9,161,2,321,0)="""RTN"",""XQ82"",61,0)"
^XMB(3.9,161,2,322,0)=" F  S K=$O(^XUTL(""XQO"",K)) Q:K=""""  D"
^XMB(3.9,161,2,323,0)="""RTN"",""XQ82"",62,0)"
^XMB(3.9,161,2,324,0)=" . I $D(^XUTL(""XQO"",K,""^BUILD"")),($P($H,"","",2)-^(""^BUILD"")>1800)!(^(""^BUILD"")>$P($H,"","",2)) K ^(""^BUILD"")"
^XMB(3.9,161,2,325,0)="""RTN"",""XQ82"",63,0)"
^XMB(3.9,161,2,326,0)=" Q"
^XMB(3.9,161,2,327,0)="""RTN"",""XQ82"",64,0)"
^XMB(3.9,161,2,328,0)=" ;"
^XMB(3.9,161,2,329,0)="""RTN"",""XQ82"",65,0)"
^XMB(3.9,161,2,330,0)="L51(NDX) ;Clean old Sign-on log entries from X-ref"
^XMB(3.9,161,2,331,0)="""RTN"",""XQ82"",66,0)"
^XMB(3.9,161,2,332,0)=" N I,J,FDA,NOW,ERR,IEN"
^XMB(3.9,161,2,333,0)="""RTN"",""XQ82"",67,0)"
^XMB(3.9,161,2,334,0)=" S I="""",NOW=$$NOW^XLFDT"
^XMB(3.9,161,2,335,0)="""RTN"",""XQ82"",68,0)"
^XMB(3.9,161,2,336,0)=" F  S I=$O(^XUSEC(0,NDX,I)) Q:I=""""  F J=0:0 S J=$O(^XUSEC(0,NDX,I,J)) Q:(J'>0)  D"
^XMB(3.9,161,2,337,0)="""RTN"",""XQ82"",69,0)"
^XMB(3.9,161,2,338,0)=" . ;Look at every entry in the X-ref, check for data record"
^XMB(3.9,161,2,339,0)="""RTN"",""XQ82"",70,0)"
^XMB(3.9,161,2,340,0)=" . I $D(^XUSEC(0,J,0))[0 K ^XUSEC(0,NDX,I,J) Q  ;No data record."
^XMB(3.9,161,2,341,0)="""RTN"",""XQ82"",71,0)"
^XMB(3.9,161,2,342,0)=" . Q:J'<DDATE  ;Keep for now"
^XMB(3.9,161,2,343,0)="""RTN"",""XQ82"",72,0)"
^XMB(3.9,161,2,344,0)=" . S FDA(3.081,J_"","",3)=NOW,FDA(3.081,J_"","",16)=1 D UPDATE^DIE("""",""FDA"",""IEN"",""ERR"")"
^XMB(3.9,161,2,345,0)="""RTN"",""XQ82"",73,0)"
^XMB(3.9,161,2,346,0)=" . K FDA,IEN,ERR"
^XMB(3.9,161,2,347,0)="""RTN"",""XQ82"",74,0)"
^XMB(3.9,161,2,348,0)=" . Q"
^XMB(3.9,161,2,349,0)="""RTN"",""XQ82"",75,0)"
^XMB(3.9,161,2,350,0)=" Q"
^XMB(3.9,161,2,351,0)="""RTN"",""XQ82"",76,0)"
^XMB(3.9,161,2,352,0)=" ;"
^XMB(3.9,161,2,353,0)="""RTN"",""XQ82"",77,0)"
^XMB(3.9,161,2,354,0)="DEAD(X1) ;Check if X1 is a PID and DEAD"
^XMB(3.9,161,2,355,0)="""RTN"",""XQ82"",78,0)"
^XMB(3.9,161,2,356,0)=" ;Return 1 if should clean, 0 to skip"
^XMB(3.9,161,2,357,0)="""RTN"",""XQ82"",79,0)"
^XMB(3.9,161,2,358,0)=" I X1\1'=X1 Q 0"
^XMB(3.9,161,2,359,0)="""RTN"",""XQ82"",80,0)"
^XMB(3.9,161,2,360,0)=" I $E($$CNV^XLFUTL(X1,16),1,3)'=HPID3 Q 0"
^XMB(3.9,161,2,361,0)="""RTN"",""XQ82"",81,0)"
^XMB(3.9,161,2,362,0)=" ; X1 is a PID on this node, is PID active?.."
^XMB(3.9,161,2,363,0)="""RTN"",""XQ82"",82,0)"
^XMB(3.9,161,2,364,0)=" I $D(^$JOB(X1))=0 Q 1 ; Job is DEAD"
^XMB(3.9,161,2,365,0)="""RTN"",""XQ82"",83,0)"
^XMB(3.9,161,2,366,0)=" Q 0"
^XMB(3.9,161,2,367,0)="""RTN"",""XQ82"",84,0)"
^XMB(3.9,161,2,368,0)=" ;"
^XMB(3.9,161,2,369,0)="""RTN"",""XQ82"",85,0)"
^XMB(3.9,161,2,370,0)="CHECK() ;Check that we have the right enviroment to do pass 2"
^XMB(3.9,161,2,371,0)="""RTN"",""XQ82"",86,0)"
^XMB(3.9,161,2,372,0)=" ;Are we on VMS, is ^$JOB supported"
^XMB(3.9,161,2,373,0)="""RTN"",""XQ82"",87,0)"
^XMB(3.9,161,2,374,0)=" I XQOS[""GT.M"" Q 0"
^XMB(3.9,161,2,375,0)="""RTN"",""XQ82"",88,0)"
^XMB(3.9,161,2,376,0)=" I XQOS[""DSM"" Q 1"
^XMB(3.9,161,2,377,0)="""RTN"",""XQ82"",89,0)"
^XMB(3.9,161,2,378,0)=" I XQOS[""OpenM"" X ""I $ZV[""""VMS"""""" Q $T"
^XMB(3.9,161,2,379,0)="""RTN"",""XQ82"",90,0)"
^XMB(3.9,161,2,380,0)=" Q 0"
^XMB(3.9,161,2,381,0)="""RTN"",""XQ82"",91,0)"
^XMB(3.9,161,2,382,0)=" ;"
^XMB(3.9,161,2,383,0)="""RTN"",""XUSCLEAN"")"
^XMB(3.9,161,2,384,0)="0^1^B12811237^B11776747"
^XMB(3.9,161,2,385,0)="""RTN"",""XUSCLEAN"",1,0)"
^XMB(3.9,161,2,386,0)="XUSCLEAN ;SF/STAFF - CLEANUP BEFORE EXIT ;05/26/2005  14:28"
^XMB(3.9,161,2,387,0)="""RTN"",""XUSCLEAN"",2,0)"
^XMB(3.9,161,2,388,0)=" ;;8.0;KERNEL;**13,59,165,353**;Jul 10, 1995;Build 1"
^XMB(3.9,161,2,389,0)="""RTN"",""XUSCLEAN"",3,0)"
^XMB(3.9,161,2,390,0)="H ;;Exit point for all R/S applications"
^XMB(3.9,161,2,391,0)="""RTN"",""XUSCLEAN"",4,0)"
^XMB(3.9,161,2,392,0)=" LOCK  ;Unlock any locks"
^XMB(3.9,161,2,393,0)="""RTN"",""XUSCLEAN"",5,0)"
^XMB(3.9,161,2,394,0)=" S U=""^"""
^XMB(3.9,161,2,395,0)="""RTN"",""XUSCLEAN"",6,0)"
^XMB(3.9,161,2,396,0)=" ;Unwind Exit Actions"
^XMB(3.9,161,2,397,0)="""RTN"",""XUSCLEAN"",7,0)"
^XMB(3.9,161,2,398,0)=" I $D(^XUTL(""XQ"",$J,""T"")) S %XQEA=^(""T"") D"
^XMB(3.9,161,2,399,0)="""RTN"",""XUSCLEAN"",8,0)"
^XMB(3.9,161,2,400,0)=" . F %XQEA1=%XQEA:-1:1 I $D(^XUTL(""XQ"",$J,%XQEA1)),$P(^(%XQEA1),U,16) S %XQEA2=+^(%XQEA1) I $D(^DIC(19,%XQEA2,15)),$L(^(15)) X ^(15)"
^XMB(3.9,161,2,401,0)="""RTN"",""XUSCLEAN"",9,0)"
^XMB(3.9,161,2,402,0)=" K %XQEA,%XQEA1,%XQEA2"
^XMB(3.9,161,2,403,0)="""RTN"",""XUSCLEAN"",10,0)"
^XMB(3.9,161,2,404,0)=" ;Jump if the home device was closed"
^XMB(3.9,161,2,405,0)="""RTN"",""XUSCLEAN"",11,0)"
^XMB(3.9,161,2,406,0)=" G:$D(IO(""C"")) H2"
^XMB(3.9,161,2,407,0)="""RTN"",""XUSCLEAN"",12,0)"
^XMB(3.9,161,2,408,0)=" ;Clear the screen"
^XMB(3.9,161,2,409,0)="""RTN"",""XUSCLEAN"",13,0)"
^XMB(3.9,161,2,410,0)=" I $S($D(IOST)[0:1,IOST="""":1,IOST[""C-"":1,1:0),'$D(XUERF) W !!!!!!!!!!!!!!!!!!!!!!!"
^XMB(3.9,161,2,411,0)="""RTN"",""XUSCLEAN"",14,0)"
^XMB(3.9,161,2,412,0)=" I $D(XQNOLOG) W !!,""==>  Sorry, all activity on this volume set is being halted!  Try again later."",*7,*7,*7,!!!!"
^XMB(3.9,161,2,413,0)="""RTN"",""XUSCLEAN"",15,0)"
^XMB(3.9,161,2,414,0)=" ;W !!,""Halting at "" S X=$P($H,"","",2),Y=$E(X#3600\60+100,2,3),X=X\3600,Z=0 S:X>11 Z=1 S:'X X=12 S:X>12 X=X-12 W X,"":"",Y,"" "",$S(Z:""pm"",1:""am"")"
^XMB(3.9,161,2,415,0)="""RTN"",""XUSCLEAN"",16,0)"
^XMB(3.9,161,2,416,0)=" W !!,""Logged out at ""_$$HTE^XLFDT($H,""1FMP"")"
^XMB(3.9,161,2,417,0)="""RTN"",""XUSCLEAN"",17,0)"
^XMB(3.9,161,2,418,0)=" D:$D(DUZ(""NEWCODE"")) NEWCODE"
^XMB(3.9,161,2,419,0)="""RTN"",""XUSCLEAN"",18,0)"
^XMB(3.9,161,2,420,0)=" ;NON-R/S exit thru here also."
^XMB(3.9,161,2,421,0)="""RTN"",""XUSCLEAN"",19,0)"
^XMB(3.9,161,2,422,0)="H2 ;No talking after this point"
^XMB(3.9,161,2,423,0)="""RTN"",""XUSCLEAN"",20,0)"
^XMB(3.9,161,2,424,0)=" D C,XUTL"
^XMB(3.9,161,2,425,0)="""RTN"",""XUSCLEAN"",21,0)"
^XMB(3.9,161,2,426,0)=" ;un-comment the following line if you want FM space recall cleared "
^XMB(3.9,161,2,427,0)="""RTN"",""XUSCLEAN"",22,0)"
^XMB(3.9,161,2,428,0)=" ;after each session."
^XMB(3.9,161,2,429,0)="""RTN"",""XUSCLEAN"",23,0)"
^XMB(3.9,161,2,430,0)=" ;K ^DISV($G(DUZ,0))"
^XMB(3.9,161,2,431,0)="""RTN"",""XUSCLEAN"",24,0)"
^XMB(3.9,161,2,432,0)=" S:'($D(XQXFLG)#2) XQXFLG="""" I $D(XQCH),XQCH=""HALT"" S $P(XQXFLG,U,3)="""""
^XMB(3.9,161,2,433,0)="""RTN"",""XUSCLEAN"",25,0)"
^XMB(3.9,161,2,434,0)=" I ($D(XQNOHALT)#2)!($D(ZTQUEUED)#2)!($P(XQXFLG,U,3)=""XUP"") K XQNOHALT,XQXFLG Q  ;Return to REST^XQ12, ^XUP or Taskman."
^XMB(3.9,161,2,435,0)="""RTN"",""XUSCLEAN"",26,0)"
^XMB(3.9,161,2,436,0)=" ;This was for modem hang up code. Obsolete now"
^XMB(3.9,161,2,437,0)="""RTN"",""XUSCLEAN"",27,0)"
^XMB(3.9,161,2,438,0)=" I $D(^%ZIS(""H""))#2 X ^(""H"")"
^XMB(3.9,161,2,439,0)="""RTN"",""XUSCLEAN"",28,0)"
^XMB(3.9,161,2,440,0)=" ;Go to ZU to do final halt."
^XMB(3.9,161,2,441,0)="""RTN"",""XUSCLEAN"",29,0)"
^XMB(3.9,161,2,442,0)=" G HALT^ZU"
^XMB(3.9,161,2,443,0)="""RTN"",""XUSCLEAN"",30,0)"
^XMB(3.9,161,2,444,0)=" ;"
^XMB(3.9,161,2,445,0)="""RTN"",""XUSCLEAN"",31,0)"
^XMB(3.9,161,2,446,0)="TOUCH ;SR. API to set the keepalive node, Only set once a day"
^XMB(3.9,161,2,447,0)="""RTN"",""XUSCLEAN"",32,0)"
^XMB(3.9,161,2,448,0)=" Q:+$G(^XUTL(""XQ"",$J,""KEEPALIVE""))=+$H"
^XMB(3.9,161,2,449,0)="""RTN"",""XUSCLEAN"",33,0)"
^XMB(3.9,161,2,450,0)=" S ^XUTL(""XQ"",$J,""KEEPALIVE"")=$H"
^XMB(3.9,161,2,451,0)="""RTN"",""XUSCLEAN"",34,0)"
^XMB(3.9,161,2,452,0)=" Q"
^XMB(3.9,161,2,453,0)="""RTN"",""XUSCLEAN"",35,0)"
^XMB(3.9,161,2,454,0)=" ;"
^XMB(3.9,161,2,455,0)="""RTN"",""XUSCLEAN"",36,0)"
^XMB(3.9,161,2,456,0)="C ;Do device close execute, User exit."
^XMB(3.9,161,2,457,0)="""RTN"",""XUSCLEAN"",37,0)"
^XMB(3.9,161,2,458,0)=" N XUDEV"
^XMB(3.9,161,2,459,0)="""RTN"",""XUSCLEAN"",38,0)"
^XMB(3.9,161,2,460,0)=" S XUDEV=$S($D(^XUTL(""XQ"",$J,""IOS"")):^(""IOS""),1:"""")"
^XMB(3.9,161,2,461,0)="""RTN"",""XUSCLEAN"",39,0)"
^XMB(3.9,161,2,462,0)=" D ^%ZISC,BYE"
^XMB(3.9,161,2,463,0)="""RTN"",""XUSCLEAN"",40,0)"
^XMB(3.9,161,2,464,0)=" Q"
^XMB(3.9,161,2,465,0)="""RTN"",""XUSCLEAN"",41,0)"
^XMB(3.9,161,2,466,0)=" ;"
^XMB(3.9,161,2,467,0)="""RTN"",""XUSCLEAN"",42,0)"
^XMB(3.9,161,2,468,0)=" ;Called from Broker, VistaLink, R/S"
^XMB(3.9,161,2,469,0)="""RTN"",""XUSCLEAN"",43,0)"
^XMB(3.9,161,2,470,0)="BYE ;Set flags to show user has left. Called from anyplace the user exits"
^XMB(3.9,161,2,471,0)="""RTN"",""XUSCLEAN"",44,0)"
^XMB(3.9,161,2,472,0)=" N DA,DIK,R0,%"
^XMB(3.9,161,2,473,0)="""RTN"",""XUSCLEAN"",45,0)"
^XMB(3.9,161,2,474,0)=" I $G(^VA(200,+$G(DUZ),1.1)) S $P(^VA(200,DUZ,1.1),""^"",3)=0"
^XMB(3.9,161,2,475,0)="""RTN"",""XUSCLEAN"",46,0)"
^XMB(3.9,161,2,476,0)=" S DA=+$G(^XUTL(""XQ"",$J,0)) D LOUT(DA)"
^XMB(3.9,161,2,477,0)="""RTN"",""XUSCLEAN"",47,0)"
^XMB(3.9,161,2,478,0)=" I $D(^XUSEC(0,DA,0)) D"
^XMB(3.9,161,2,479,0)="""RTN"",""XUSCLEAN"",48,0)"
^XMB(3.9,161,2,480,0)=" . S R0=^XUSEC(0,DA,0)"
^XMB(3.9,161,2,481,0)="""RTN"",""XUSCLEAN"",49,0)"
^XMB(3.9,161,2,482,0)=" . I $G(IO(""IP""))]"""",$P(R0,""^"",13)]"""" S %=$$CMD^XWBCAGNT(.R0,""XWB DELETE HANDLE"",$P(R0,""^"",13))"
^XMB(3.9,161,2,483,0)="""RTN"",""XUSCLEAN"",50,0)"
^XMB(3.9,161,2,484,0)=" K ^XUTL(""XQ"",$J)"
^XMB(3.9,161,2,485,0)="""RTN"",""XUSCLEAN"",51,0)"
^XMB(3.9,161,2,486,0)=" Q"
^XMB(3.9,161,2,487,0)="""RTN"",""XUSCLEAN"",52,0)"
^XMB(3.9,161,2,488,0)=" ;"
^XMB(3.9,161,2,489,0)="""RTN"",""XUSCLEAN"",53,0)"
^XMB(3.9,161,2,490,0)="LOUT(DA) ;Enter log-out time, in Sign-on log"
^XMB(3.9,161,2,491,0)="""RTN"",""XUSCLEAN"",54,0)"
^XMB(3.9,161,2,492,0)=" N DIK"
^XMB(3.9,161,2,493,0)="""RTN"",""XUSCLEAN"",55,0)"
^XMB(3.9,161,2,494,0)=" I $D(^XUSEC(0,DA,0)) D"
^XMB(3.9,161,2,495,0)="""RTN"",""XUSCLEAN"",56,0)"
^XMB(3.9,161,2,496,0)=" . S R0=^(0),$P(^(0),""^"",4)=$$NOW^XLFDT,DIK=""^XUSEC(0,"",DIK(1)=""3"" D EN1^DIK"
^XMB(3.9,161,2,497,0)="""RTN"",""XUSCLEAN"",57,0)"
^XMB(3.9,161,2,498,0)=" Q"
^XMB(3.9,161,2,499,0)="""RTN"",""XUSCLEAN"",58,0)"
^XMB(3.9,161,2,500,0)=" ;"
^XMB(3.9,161,2,501,0)="""RTN"",""XUSCLEAN"",59,0)"
^XMB(3.9,161,2,502,0)="XUTL ;Cleanup JOB temporary Globals"
^XMB(3.9,161,2,503,0)="""RTN"",""XUSCLEAN"",60,0)"
^XMB(3.9,161,2,504,0)=" N XQN D CLEAN^DILF ;Cleanup FM too."
^XMB(3.9,161,2,505,0)="""RTN"",""XUSCLEAN"",61,0)"
^XMB(3.9,161,2,506,0)=" K ^XUTL($J),^UTILITY($J),^TMP($J)"
^XMB(3.9,161,2,507,0)="""RTN"",""XUSCLEAN"",62,0)"
^XMB(3.9,161,2,508,0)=" S XQN="" "" F  S XQN=$O(^XUTL(XQN)) Q:XQN=""""  K:""^XQO^XGATR^XGKB^""'[XQN ^XUTL(XQN,$J)"
^XMB(3.9,161,2,509,0)="""RTN"",""XUSCLEAN"",63,0)"
^XMB(3.9,161,2,510,0)=" S XQN="" "" F  S XQN=$O(^TMP(XQN)) Q:XQN=""""  K ^TMP(XQN,$J)"
^XMB(3.9,161,2,511,0)="""RTN"",""XUSCLEAN"",64,0)"
^XMB(3.9,161,2,512,0)=" S XQN="" "" F  S XQN=$O(^UTILITY(XQN)) Q:XQN=""""  K:""^ROU^GLO^LRLTR""'[XQN ^UTILITY(XQN,$J)"
^XMB(3.9,161,2,513,0)="""RTN"",""XUSCLEAN"",65,0)"
^XMB(3.9,161,2,514,0)=" K ^XUTL(""ZISPARAM"",$I)"
^XMB(3.9,161,2,515,0)="""RTN"",""XUSCLEAN"",66,0)"
^XMB(3.9,161,2,516,0)=" Q"
^XMB(3.9,161,2,517,0)="""RTN"",""XUSCLEAN"",67,0)"
^XMB(3.9,161,2,518,0)=" ;"
^XMB(3.9,161,2,519,0)="""RTN"",""XUSCLEAN"",68,0)"
^XMB(3.9,161,2,520,0)="NEWCODE ;Remind user they changed there VC."
^XMB(3.9,161,2,521,0)="""RTN"",""XUSCLEAN"",69,0)"
^XMB(3.9,161,2,522,0)=" W !!,*7,""But, as I recall..."",!,""You've changed your VERIFY CODE during this session."",!,""Please remember it for next time."" H 4"
^XMB(3.9,161,2,523,0)="""RTN"",""XUSCLEAN"",70,0)"
^XMB(3.9,161,2,524,0)=" Q"
^XMB(3.9,161,2,525,0)="""RTN"",""XUSCLEAN"",71,0)"
^XMB(3.9,161,2,526,0)=" ;"
^XMB(3.9,161,2,527,0)="""RTN"",""XUSCLEAN"",72,0)"
^XMB(3.9,161,2,528,0)=" ;Entry point to clear symbol table"
^XMB(3.9,161,2,529,0)="""RTN"",""XUSCLEAN"",73,0)"
^XMB(3.9,161,2,530,0)="KILL ;SR. This is what was requested."
^XMB(3.9,161,2,531,0)="""RTN"",""XUSCLEAN"",74,0)"
^XMB(3.9,161,2,532,0)=" K %1,%2,%3 S %3=+$G(^XUTL(""XQ"",$J,""T""))"
^XMB(3.9,161,2,533,0)="""RTN"",""XUSCLEAN"",75,0)"
^XMB(3.9,161,2,534,0)=" ;See if Menu stack has Variable to protect."
^XMB(3.9,161,2,535,0)="""RTN"",""XUSCLEAN"",76,0)"
^XMB(3.9,161,2,536,0)=" F %1=%3:-1:1 S %2=+$G(^XUTL(""XQ"",$J,%1)),%2=$G(^DIC(19,%2,""NOKILL"")) I %2]"""" N @%2"
^XMB(3.9,161,2,537,0)="""RTN"",""XUSCLEAN"",77,0)"
^XMB(3.9,161,2,538,0)=" ;Fall into next part of kill."
^XMB(3.9,161,2,539,0)="""RTN"",""XUSCLEAN"",78,0)"
^XMB(3.9,161,2,540,0)="KILL1 ;To clean up ALL but kernel variables."
^XMB(3.9,161,2,541,0)="""RTN"",""XUSCLEAN"",79,0)"
^XMB(3.9,161,2,542,0)=" I $$BROKER^XWBLIB S %2=$P($T(VARLST^XWBLIB),"";;"",2) I %2]"""" N @%2 ;Protect Broker variables."
^XMB(3.9,161,2,543,0)="""RTN"",""XUSCLEAN"",80,0)"
^XMB(3.9,161,2,544,0)=" N KWAPI,XGWIN,XGDI,XGEVENT"
^XMB(3.9,161,2,545,0)="""RTN"",""XUSCLEAN"",81,0)"
^XMB(3.9,161,2,546,0)=" N XQAEXIT,XQAUSER,XQX1,XQAKILL,XQAID"
^XMB(3.9,161,2,547,0)="""RTN"",""XUSCLEAN"",82,0)"
^XMB(3.9,161,2,548,0)=" K (DUZ,DTIME,DT,DISYS,IO,IOBS,IOF,IOM,ION,IOSL,IOST,IOT,IOS,IOXY,U,XRTL,%ZH0,XQVOL,XQY,XQY0,XQDIC,XQPSM,XQPT,XQAUDIT,XQXFLG,ZTSTOP,ZTQUEUED,ZTREQ)"
^XMB(3.9,161,2,549,0)="""RTN"",""XUSCLEAN"",83,0)"
^XMB(3.9,161,2,550,0)=" K IO(""C""),IO(""Q"")"
^XMB(3.9,161,2,551,0)="""RTN"",""XUSCLEAN"",84,0)"
^XMB(3.9,161,2,552,0)=" Q"
^XMB(3.9,161,2,553,0)="""RTN"",""XUSCLEAN"",85,0)"
^XMB(3.9,161,2,554,0)=" ;"
^XMB(3.9,161,2,555,0)="""RTN"",""XUSCLEAN"",86,0)"
^XMB(3.9,161,2,556,0)="XMR ;Entry point from XUS to DO xmr and cleanup after."
^XMB(3.9,161,2,557,0)="""RTN"",""XUSCLEAN"",87,0)"
^XMB(3.9,161,2,558,0)=" D NEXT^XUS1 S XQXFLG="""",XQXFLG(""HALT"")=1 G H2"
^XMB(3.9,161,2,559,0)="""VER"")"
^XMB(3.9,161,2,560,0)="8.0^22.0"
^XMB(3.9,161,2,561,0)="""BLD"",871,6)"
^XMB(3.9,161,2,562,0)="^341"
^XMB(3.9,161,2,563,0)="$END KID XU*8.0*353"
^XMB(3.9,161,6,0)="^3.911A^2^2"
^XMB(3.9,161,6,1,0)="POSTMASTER"
^XMB(3.9,161,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,161,6,"B","POSTMASTER",1)=""
^XMB(3.9,161,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,162,0)="XU-8_SEQ-342_PAT-390.KID^.5^3061008.015743^^^^K"
^XMB(3.9,162,.6)="3061008"
^XMB(3.9,162,1,0)="^3.91A^2^2"
^XMB(3.9,162,1,1,0)=".5^0^3061008.015743^^^^^^^3061008.015743"
^XMB(3.9,162,1,2,0)="1^0^3061008.022916^^^^^^^3061008.022916"
^XMB(3.9,162,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,162,1,"C",.5,1)=""
^XMB(3.9,162,1,"C",1,2)=""
^XMB(3.9,162,2,0)="^^1455^1455^3061008"
^XMB(3.9,162,2,1,0)="$TXT Released XU*8*390 SEQ #342"
^XMB(3.9,162,2,2,0)="Extracted from mail message"
^XMB(3.9,162,2,3,0)="$END TXT"
^XMB(3.9,162,2,4,0)="$KID XU*8.0*390"
^XMB(3.9,162,2,5,0)="**INSTALL NAME**"
^XMB(3.9,162,2,6,0)="XU*8.0*390"
^XMB(3.9,162,2,7,0)="""BLD"",6409,0)"
^XMB(3.9,162,2,8,0)="XU*8.0*390^KERNEL^0^3060609^y"
^XMB(3.9,162,2,9,0)="""BLD"",6409,4,0)"
^XMB(3.9,162,2,10,0)="^9.64PA^^"
^XMB(3.9,162,2,11,0)="""BLD"",6409,""ABPKG"")"
^XMB(3.9,162,2,12,0)="n"
^XMB(3.9,162,2,13,0)="""BLD"",6409,""INID"")"
^XMB(3.9,162,2,14,0)="^n"
^XMB(3.9,162,2,15,0)="""BLD"",6409,""INIT"")"
^XMB(3.9,162,2,16,0)="MAIN^XUMF390"
^XMB(3.9,162,2,17,0)="""BLD"",6409,""KRN"",0)"
^XMB(3.9,162,2,18,0)="^9.67PA^8989.52^19"
^XMB(3.9,162,2,19,0)="""BLD"",6409,""KRN"",.4,0)"
^XMB(3.9,162,2,20,0)=".4"
^XMB(3.9,162,2,21,0)="""BLD"",6409,""KRN"",.401,0)"
^XMB(3.9,162,2,22,0)=".401"
^XMB(3.9,162,2,23,0)="""BLD"",6409,""KRN"",.402,0)"
^XMB(3.9,162,2,24,0)=".402"
^XMB(3.9,162,2,25,0)="""BLD"",6409,""KRN"",.403,0)"
^XMB(3.9,162,2,26,0)=".403"
^XMB(3.9,162,2,27,0)="""BLD"",6409,""KRN"",.5,0)"
^XMB(3.9,162,2,28,0)=".5"
^XMB(3.9,162,2,29,0)="""BLD"",6409,""KRN"",.84,0)"
^XMB(3.9,162,2,30,0)=".84"
^XMB(3.9,162,2,31,0)="""BLD"",6409,""KRN"",3.6,0)"
^XMB(3.9,162,2,32,0)="3.6"
^XMB(3.9,162,2,33,0)="""BLD"",6409,""KRN"",3.8,0)"
^XMB(3.9,162,2,34,0)="3.8"
^XMB(3.9,162,2,35,0)="""BLD"",6409,""KRN"",9.2,0)"
^XMB(3.9,162,2,36,0)="9.2"
^XMB(3.9,162,2,37,0)="""BLD"",6409,""KRN"",9.8,0)"
^XMB(3.9,162,2,38,0)="9.8"
^XMB(3.9,162,2,39,0)="""BLD"",6409,""KRN"",9.8,""NM"",0)"
^XMB(3.9,162,2,40,0)="^9.68A^3^3"
^XMB(3.9,162,2,41,0)="""BLD"",6409,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,162,2,42,0)="XUMFH^^0^B77218033"
^XMB(3.9,162,2,43,0)="""BLD"",6409,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,162,2,44,0)="XUMF390^^0^B16595153"
^XMB(3.9,162,2,45,0)="""BLD"",6409,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,162,2,46,0)="XUMFP4C^^0^B15661298"
^XMB(3.9,162,2,47,0)="""BLD"",6409,""KRN"",9.8,""NM"",""B"",""XUMF390"",2)"
^XMB(3.9,162,2,48,0)=""
^XMB(3.9,162,2,49,0)="""BLD"",6409,""KRN"",9.8,""NM"",""B"",""XUMFH"",1)"
^XMB(3.9,162,2,50,0)=""
^XMB(3.9,162,2,51,0)="""BLD"",6409,""KRN"",9.8,""NM"",""B"",""XUMFP4C"",3)"
^XMB(3.9,162,2,52,0)=""
^XMB(3.9,162,2,53,0)="""BLD"",6409,""KRN"",19,0)"
^XMB(3.9,162,2,54,0)="19"
^XMB(3.9,162,2,55,0)="""BLD"",6409,""KRN"",19.1,0)"
^XMB(3.9,162,2,56,0)="19.1"
^XMB(3.9,162,2,57,0)="""BLD"",6409,""KRN"",101,0)"
^XMB(3.9,162,2,58,0)="101"
^XMB(3.9,162,2,59,0)="""BLD"",6409,""KRN"",409.61,0)"
^XMB(3.9,162,2,60,0)="409.61"
^XMB(3.9,162,2,61,0)="""BLD"",6409,""KRN"",771,0)"
^XMB(3.9,162,2,62,0)="771"
^XMB(3.9,162,2,63,0)="""BLD"",6409,""KRN"",870,0)"
^XMB(3.9,162,2,64,0)="870"
^XMB(3.9,162,2,65,0)="""BLD"",6409,""KRN"",870,""NM"",0)"
^XMB(3.9,162,2,66,0)="^9.68A^^0"
^XMB(3.9,162,2,67,0)="""BLD"",6409,""KRN"",8989.51,0)"
^XMB(3.9,162,2,68,0)="8989.51"
^XMB(3.9,162,2,69,0)="""BLD"",6409,""KRN"",8989.52,0)"
^XMB(3.9,162,2,70,0)="8989.52"
^XMB(3.9,162,2,71,0)="""BLD"",6409,""KRN"",8994,0)"
^XMB(3.9,162,2,72,0)="8994"
^XMB(3.9,162,2,73,0)="""BLD"",6409,""KRN"",""B"",.4,.4)"
^XMB(3.9,162,2,74,0)=""
^XMB(3.9,162,2,75,0)="""BLD"",6409,""KRN"",""B"",.401,.401)"
^XMB(3.9,162,2,76,0)=""
^XMB(3.9,162,2,77,0)="""BLD"",6409,""KRN"",""B"",.402,.402)"
^XMB(3.9,162,2,78,0)=""
^XMB(3.9,162,2,79,0)="""BLD"",6409,""KRN"",""B"",.403,.403)"
^XMB(3.9,162,2,80,0)=""
^XMB(3.9,162,2,81,0)="""BLD"",6409,""KRN"",""B"",.5,.5)"
^XMB(3.9,162,2,82,0)=""
^XMB(3.9,162,2,83,0)="""BLD"",6409,""KRN"",""B"",.84,.84)"
^XMB(3.9,162,2,84,0)=""
^XMB(3.9,162,2,85,0)="""BLD"",6409,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,162,2,86,0)=""
^XMB(3.9,162,2,87,0)="""BLD"",6409,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,162,2,88,0)=""
^XMB(3.9,162,2,89,0)="""BLD"",6409,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,162,2,90,0)=""
^XMB(3.9,162,2,91,0)="""BLD"",6409,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,162,2,92,0)=""
^XMB(3.9,162,2,93,0)="""BLD"",6409,""KRN"",""B"",19,19)"
^XMB(3.9,162,2,94,0)=""
^XMB(3.9,162,2,95,0)="""BLD"",6409,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,162,2,96,0)=""
^XMB(3.9,162,2,97,0)="""BLD"",6409,""KRN"",""B"",101,101)"
^XMB(3.9,162,2,98,0)=""
^XMB(3.9,162,2,99,0)="""BLD"",6409,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,162,2,100,0)=""
^XMB(3.9,162,2,101,0)="""BLD"",6409,""KRN"",""B"",771,771)"
^XMB(3.9,162,2,102,0)=""
^XMB(3.9,162,2,103,0)="""BLD"",6409,""KRN"",""B"",870,870)"
^XMB(3.9,162,2,104,0)=""
^XMB(3.9,162,2,105,0)="""BLD"",6409,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,162,2,106,0)=""
^XMB(3.9,162,2,107,0)="""BLD"",6409,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,162,2,108,0)=""
^XMB(3.9,162,2,109,0)="""BLD"",6409,""KRN"",""B"",8994,8994)"
^XMB(3.9,162,2,110,0)=""
^XMB(3.9,162,2,111,0)="""BLD"",6409,""QUES"",0)"
^XMB(3.9,162,2,112,0)="^9.62^^"
^XMB(3.9,162,2,113,0)="""BLD"",6409,""REQB"",0)"
^XMB(3.9,162,2,114,0)="^9.611^^"
^XMB(3.9,162,2,115,0)="""INIT"")"
^XMB(3.9,162,2,116,0)="MAIN^XUMF390"
^XMB(3.9,162,2,117,0)="""MBREQ"")"
^XMB(3.9,162,2,118,0)="0"
^XMB(3.9,162,2,119,0)="""PKG"",3,-1)"
^XMB(3.9,162,2,120,0)="1^1"
^XMB(3.9,162,2,121,0)="""PKG"",3,0)"
^XMB(3.9,162,2,122,0)="KERNEL^XU^SIGN-ON, SECURITY, MENU DRIVER, DEVICES, TASKMAN^"
^XMB(3.9,162,2,123,0)="""PKG"",3,20,0)"
^XMB(3.9,162,2,124,0)="^9.402P^^"
^XMB(3.9,162,2,125,0)="""PKG"",3,22,0)"
^XMB(3.9,162,2,126,0)="^9.49I^1^1"
^XMB(3.9,162,2,127,0)="""PKG"",3,22,1,0)"
^XMB(3.9,162,2,128,0)="8.0^3040115^2960606^1"
^XMB(3.9,162,2,129,0)="""PKG"",3,22,1,""PAH"",1,0)"
^XMB(3.9,162,2,130,0)="390^3060609^11"
^XMB(3.9,162,2,131,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,162,2,132,0)="Y"
^XMB(3.9,162,2,133,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,162,2,134,0)="^D REP^XPDH"
^XMB(3.9,162,2,135,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,162,2,136,0)="Shall I write over your |FLAG| File"
^XMB(3.9,162,2,137,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,162,2,138,0)="YES"
^XMB(3.9,162,2,139,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,162,2,140,0)="D XPF1^XPDIQ"
^XMB(3.9,162,2,141,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,162,2,142,0)="Y"
^XMB(3.9,162,2,143,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,162,2,144,0)="^D DTA^XPDH"
^XMB(3.9,162,2,145,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,162,2,146,0)="Want my data |FLAG| yours"
^XMB(3.9,162,2,147,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,162,2,148,0)="YES"
^XMB(3.9,162,2,149,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,162,2,150,0)="D XPF2^XPDIQ"
^XMB(3.9,162,2,151,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,162,2,152,0)="YO"
^XMB(3.9,162,2,153,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,162,2,154,0)="^D INHIBIT^XPDH"
^XMB(3.9,162,2,155,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,162,2,156,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,162,2,157,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,162,2,158,0)="YES"
^XMB(3.9,162,2,159,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,162,2,160,0)="D XPI1^XPDIQ"
^XMB(3.9,162,2,161,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,162,2,162,0)="PO^VA(200,:EM"
^XMB(3.9,162,2,163,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,162,2,164,0)="^D MG^XPDH"
^XMB(3.9,162,2,165,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,162,2,166,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,162,2,167,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,162,2,168,0)=""
^XMB(3.9,162,2,169,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,162,2,170,0)="D XPM1^XPDIQ"
^XMB(3.9,162,2,171,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,162,2,172,0)="Y"
^XMB(3.9,162,2,173,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,162,2,174,0)="^D MENU^XPDH"
^XMB(3.9,162,2,175,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,162,2,176,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,162,2,177,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,162,2,178,0)="YES"
^XMB(3.9,162,2,179,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,162,2,180,0)="D XPO1^XPDIQ"
^XMB(3.9,162,2,181,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,162,2,182,0)="Y"
^XMB(3.9,162,2,183,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,162,2,184,0)="^D OPT^XPDH"
^XMB(3.9,162,2,185,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,162,2,186,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,162,2,187,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,162,2,188,0)="YES"
^XMB(3.9,162,2,189,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,162,2,190,0)="D XPZ1^XPDIQ"
^XMB(3.9,162,2,191,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,162,2,192,0)="Y"
^XMB(3.9,162,2,193,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,162,2,194,0)="^D RTN^XPDH"
^XMB(3.9,162,2,195,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,162,2,196,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,162,2,197,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,162,2,198,0)="NO"
^XMB(3.9,162,2,199,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,162,2,200,0)="D XPZ2^XPDIQ"
^XMB(3.9,162,2,201,0)="""RTN"")"
^XMB(3.9,162,2,202,0)="3"
^XMB(3.9,162,2,203,0)="""RTN"",""XUMF390"")"
^XMB(3.9,162,2,204,0)="0^2^B16595153"
^XMB(3.9,162,2,205,0)="""RTN"",""XUMF390"",1,0)"
^XMB(3.9,162,2,206,0)="XUMF390 ;ISS/RAM - Load CLIA & MAMMO ID's;12/15/05"
^XMB(3.9,162,2,207,0)="""RTN"",""XUMF390"",2,0)"
^XMB(3.9,162,2,208,0)=" ;;8.0;KERNEL;**390**;Jul 10, 1995"
^XMB(3.9,162,2,209,0)="""RTN"",""XUMF390"",3,0)"
^XMB(3.9,162,2,210,0)=" ;"
^XMB(3.9,162,2,211,0)="""RTN"",""XUMF390"",4,0)"
^XMB(3.9,162,2,212,0)=" ; $$PARAM^HLCS2 call supported by IA #3552"
^XMB(3.9,162,2,213,0)="""RTN"",""XUMF390"",5,0)"
^XMB(3.9,162,2,214,0)=" ;"
^XMB(3.9,162,2,215,0)="""RTN"",""XUMF390"",6,0)"
^XMB(3.9,162,2,216,0)=" Q"
^XMB(3.9,162,2,217,0)="""RTN"",""XUMF390"",7,0)"
^XMB(3.9,162,2,218,0)=" ;"
^XMB(3.9,162,2,219,0)="""RTN"",""XUMF390"",8,0)"
^XMB(3.9,162,2,220,0)="MAIN ; -- main"
^XMB(3.9,162,2,221,0)="""RTN"",""XUMF390"",9,0)"
^XMB(3.9,162,2,222,0)=" ;"
^XMB(3.9,162,2,223,0)="""RTN"",""XUMF390"",10,0)"
^XMB(3.9,162,2,224,0)=" D LINK,BG"
^XMB(3.9,162,2,225,0)="""RTN"",""XUMF390"",11,0)"
^XMB(3.9,162,2,226,0)=" ;"
^XMB(3.9,162,2,227,0)="""RTN"",""XUMF390"",12,0)"
^XMB(3.9,162,2,228,0)=" Q"
^XMB(3.9,162,2,229,0)="""RTN"",""XUMF390"",13,0)"
^XMB(3.9,162,2,230,0)=" ;"
^XMB(3.9,162,2,231,0)="""RTN"",""XUMF390"",14,0)"
^XMB(3.9,162,2,232,0)="BG ; -- background job"
^XMB(3.9,162,2,233,0)="""RTN"",""XUMF390"",15,0)"
^XMB(3.9,162,2,234,0)=" ;"
^XMB(3.9,162,2,235,0)="""RTN"",""XUMF390"",16,0)"
^XMB(3.9,162,2,236,0)=" N ZTRTN,ZTDESC,ZTDTH"
^XMB(3.9,162,2,237,0)="""RTN"",""XUMF390"",17,0)"
^XMB(3.9,162,2,238,0)=" ;"
^XMB(3.9,162,2,239,0)="""RTN"",""XUMF390"",18,0)"
^XMB(3.9,162,2,240,0)=" S ZTRTN=""EN^XUMF390"""
^XMB(3.9,162,2,241,0)="""RTN"",""XUMF390"",19,0)"
^XMB(3.9,162,2,242,0)=" S ZTDESC=""XUMF Load CLIA ID's"""
^XMB(3.9,162,2,243,0)="""RTN"",""XUMF390"",20,0)"
^XMB(3.9,162,2,244,0)=" S ZTDTH=$$NOW^XLFDT"
^XMB(3.9,162,2,245,0)="""RTN"",""XUMF390"",21,0)"
^XMB(3.9,162,2,246,0)=" S ZTIO="""""
^XMB(3.9,162,2,247,0)="""RTN"",""XUMF390"",22,0)"
^XMB(3.9,162,2,248,0)=" ;"
^XMB(3.9,162,2,249,0)="""RTN"",""XUMF390"",23,0)"
^XMB(3.9,162,2,250,0)=" D ^%ZTLOAD"
^XMB(3.9,162,2,251,0)="""RTN"",""XUMF390"",24,0)"
^XMB(3.9,162,2,252,0)=" ;"
^XMB(3.9,162,2,253,0)="""RTN"",""XUMF390"",25,0)"
^XMB(3.9,162,2,254,0)=" Q"
^XMB(3.9,162,2,255,0)="""RTN"",""XUMF390"",26,0)"
^XMB(3.9,162,2,256,0)=" ;"
^XMB(3.9,162,2,257,0)="""RTN"",""XUMF390"",27,0)"
^XMB(3.9,162,2,258,0)="EN ; -- entry point"
^XMB(3.9,162,2,259,0)="""RTN"",""XUMF390"",28,0)"
^XMB(3.9,162,2,260,0)=" ;"
^XMB(3.9,162,2,261,0)="""RTN"",""XUMF390"",29,0)"
^XMB(3.9,162,2,262,0)=" D LOAD^XUMF(4)"
^XMB(3.9,162,2,263,0)="""RTN"",""XUMF390"",30,0)"
^XMB(3.9,162,2,264,0)=" ;"
^XMB(3.9,162,2,265,0)="""RTN"",""XUMF390"",31,0)"
^XMB(3.9,162,2,266,0)=" K ^TMP(""XUMF ARRAY"",$J)"
^XMB(3.9,162,2,267,0)="""RTN"",""XUMF390"",32,0)"
^XMB(3.9,162,2,268,0)=" ;"
^XMB(3.9,162,2,269,0)="""RTN"",""XUMF390"",33,0)"
^XMB(3.9,162,2,270,0)=" N PARAM,XUMFLAG,ERROR,TEST"
^XMB(3.9,162,2,271,0)="""RTN"",""XUMF390"",34,0)"
^XMB(3.9,162,2,272,0)=" ;"
^XMB(3.9,162,2,273,0)="""RTN"",""XUMF390"",35,0)"
^XMB(3.9,162,2,274,0)=" S (ERROR,XUMFLAG,TEST)=0"
^XMB(3.9,162,2,275,0)="""RTN"",""XUMF390"",36,0)"
^XMB(3.9,162,2,276,0)=" ;"
^XMB(3.9,162,2,277,0)="""RTN"",""XUMF390"",37,0)"
^XMB(3.9,162,2,278,0)=" I $P($$PARAM^HLCS2,U,3)=""T"" S TEST=1"
^XMB(3.9,162,2,279,0)="""RTN"",""XUMF390"",38,0)"
^XMB(3.9,162,2,280,0)=" ;"
^XMB(3.9,162,2,281,0)="""RTN"",""XUMF390"",39,0)"
^XMB(3.9,162,2,282,0)=" L +^TMP(""XUMF ARRAY"",$J):0 D:'$T"
^XMB(3.9,162,2,283,0)="""RTN"",""XUMF390"",40,0)"
^XMB(3.9,162,2,284,0)=" .S ERROR=""1^another process is using the Master File Server"""
^XMB(3.9,162,2,285,0)="""RTN"",""XUMF390"",41,0)"
^XMB(3.9,162,2,286,0)=" ;"
^XMB(3.9,162,2,287,0)="""RTN"",""XUMF390"",42,0)"
^XMB(3.9,162,2,288,0)=" I ERROR D EXIT Q"
^XMB(3.9,162,2,289,0)="""RTN"",""XUMF390"",43,0)"
^XMB(3.9,162,2,290,0)=" ;"
^XMB(3.9,162,2,291,0)="""RTN"",""XUMF390"",44,0)"
^XMB(3.9,162,2,292,0)=" D MFS0"
^XMB(3.9,162,2,293,0)="""RTN"",""XUMF390"",45,0)"
^XMB(3.9,162,2,294,0)=" ;"
^XMB(3.9,162,2,295,0)="""RTN"",""XUMF390"",46,0)"
^XMB(3.9,162,2,296,0)=" I ERROR D EXIT Q"
^XMB(3.9,162,2,297,0)="""RTN"",""XUMF390"",47,0)"
^XMB(3.9,162,2,298,0)=" ;"
^XMB(3.9,162,2,299,0)="""RTN"",""XUMF390"",48,0)"
^XMB(3.9,162,2,300,0)=" I '$D(^TMP(""XUMF ARRAY"",$J)) D"
^XMB(3.9,162,2,301,0)="""RTN"",""XUMF390"",49,0)"
^XMB(3.9,162,2,302,0)=" .S ERROR=""1^Connection to master file server failed!"""
^XMB(3.9,162,2,303,0)="""RTN"",""XUMF390"",50,0)"
^XMB(3.9,162,2,304,0)=" ;"
^XMB(3.9,162,2,305,0)="""RTN"",""XUMF390"",51,0)"
^XMB(3.9,162,2,306,0)=" I ERROR D EXIT Q"
^XMB(3.9,162,2,307,0)="""RTN"",""XUMF390"",52,0)"
^XMB(3.9,162,2,308,0)=" ;"
^XMB(3.9,162,2,309,0)="""RTN"",""XUMF390"",53,0)"
^XMB(3.9,162,2,310,0)=" D CLIA"
^XMB(3.9,162,2,311,0)="""RTN"",""XUMF390"",54,0)"
^XMB(3.9,162,2,312,0)=" ;"
^XMB(3.9,162,2,313,0)="""RTN"",""XUMF390"",55,0)"
^XMB(3.9,162,2,314,0)=" I ERROR D EXIT Q"
^XMB(3.9,162,2,315,0)="""RTN"",""XUMF390"",56,0)"
^XMB(3.9,162,2,316,0)=" ;"
^XMB(3.9,162,2,317,0)="""RTN"",""XUMF390"",57,0)"
^XMB(3.9,162,2,318,0)=" ; -- get MAMMO"
^XMB(3.9,162,2,319,0)="""RTN"",""XUMF390"",58,0)"
^XMB(3.9,162,2,320,0)=" ; "
^XMB(3.9,162,2,321,0)="""RTN"",""XUMF390"",59,0)"
^XMB(3.9,162,2,322,0)=" K ^TMP(""XUMF ARRAY"",$J),^TMP(""XUMF MFS"",$J)"
^XMB(3.9,162,2,323,0)="""RTN"",""XUMF390"",60,0)"
^XMB(3.9,162,2,324,0)=" ;"
^XMB(3.9,162,2,325,0)="""RTN"",""XUMF390"",61,0)"
^XMB(3.9,162,2,326,0)=" D MFS1"
^XMB(3.9,162,2,327,0)="""RTN"",""XUMF390"",62,0)"
^XMB(3.9,162,2,328,0)=" ;"
^XMB(3.9,162,2,329,0)="""RTN"",""XUMF390"",63,0)"
^XMB(3.9,162,2,330,0)=" I ERROR D EXIT Q"
^XMB(3.9,162,2,331,0)="""RTN"",""XUMF390"",64,0)"
^XMB(3.9,162,2,332,0)=" ;"
^XMB(3.9,162,2,333,0)="""RTN"",""XUMF390"",65,0)"
^XMB(3.9,162,2,334,0)=" I '$D(^TMP(""XUMF ARRAY"",$J)) D"
^XMB(3.9,162,2,335,0)="""RTN"",""XUMF390"",66,0)"
^XMB(3.9,162,2,336,0)=" .S ERROR=""1^Connection to master file server failed!"""
^XMB(3.9,162,2,337,0)="""RTN"",""XUMF390"",67,0)"
^XMB(3.9,162,2,338,0)=" ;"
^XMB(3.9,162,2,339,0)="""RTN"",""XUMF390"",68,0)"
^XMB(3.9,162,2,340,0)=" I ERROR D EXIT Q"
^XMB(3.9,162,2,341,0)="""RTN"",""XUMF390"",69,0)"
^XMB(3.9,162,2,342,0)=" ;"
^XMB(3.9,162,2,343,0)="""RTN"",""XUMF390"",70,0)"
^XMB(3.9,162,2,344,0)=" D MAMMO"
^XMB(3.9,162,2,345,0)="""RTN"",""XUMF390"",71,0)"
^XMB(3.9,162,2,346,0)=" ;"
^XMB(3.9,162,2,347,0)="""RTN"",""XUMF390"",72,0)"
^XMB(3.9,162,2,348,0)=" D EXIT"
^XMB(3.9,162,2,349,0)="""RTN"",""XUMF390"",73,0)"
^XMB(3.9,162,2,350,0)=" ;"
^XMB(3.9,162,2,351,0)="""RTN"",""XUMF390"",74,0)"
^XMB(3.9,162,2,352,0)=" Q"
^XMB(3.9,162,2,353,0)="""RTN"",""XUMF390"",75,0)"
^XMB(3.9,162,2,354,0)=" ;"
^XMB(3.9,162,2,355,0)="""RTN"",""XUMF390"",76,0)"
^XMB(3.9,162,2,356,0)="MFS0 ; -- get CLIA from Institution Master File"
^XMB(3.9,162,2,357,0)="""RTN"",""XUMF390"",77,0)"
^XMB(3.9,162,2,358,0)=" ;"
^XMB(3.9,162,2,359,0)="""RTN"",""XUMF390"",78,0)"
^XMB(3.9,162,2,360,0)=" S PARAM(""CDSYS"")=""CLIA"""
^XMB(3.9,162,2,361,0)="""RTN"",""XUMF390"",79,0)"
^XMB(3.9,162,2,362,0)=" S PARAM(""LLNK"")=""XUMF MFR^XUMF ""_$S('TEST:""FORUM"",1:""TEST"")"
^XMB(3.9,162,2,363,0)="""RTN"",""XUMF390"",80,0)"
^XMB(3.9,162,2,364,0)=" S PARAM(""PROTOCOL"")=$O(^ORD(101,""B"",""XUMF MFQ"",0))"
^XMB(3.9,162,2,365,0)="""RTN"",""XUMF390"",81,0)"
^XMB(3.9,162,2,366,0)=" ;"
^XMB(3.9,162,2,367,0)="""RTN"",""XUMF390"",82,0)"
^XMB(3.9,162,2,368,0)=" D MAIN^XUMFP(4,""ALL"",7,.PARAM,.ERROR) Q:ERROR"
^XMB(3.9,162,2,369,0)="""RTN"",""XUMF390"",83,0)"
^XMB(3.9,162,2,370,0)=" D MAIN^XUMFI(4,""ALL"",7,.PARAM,.ERROR) Q:ERROR"
^XMB(3.9,162,2,371,0)="""RTN"",""XUMF390"",84,0)"
^XMB(3.9,162,2,372,0)=" D MAIN^XUMFH"
^XMB(3.9,162,2,373,0)="""RTN"",""XUMF390"",85,0)"
^XMB(3.9,162,2,374,0)=" ;"
^XMB(3.9,162,2,375,0)="""RTN"",""XUMF390"",86,0)"
^XMB(3.9,162,2,376,0)=" Q"
^XMB(3.9,162,2,377,0)="""RTN"",""XUMF390"",87,0)"
^XMB(3.9,162,2,378,0)=" ;"
^XMB(3.9,162,2,379,0)="""RTN"",""XUMF390"",88,0)"
^XMB(3.9,162,2,380,0)="MFS1 ; -- get ACR# from Institution Master File"
^XMB(3.9,162,2,381,0)="""RTN"",""XUMF390"",89,0)"
^XMB(3.9,162,2,382,0)=" ;"
^XMB(3.9,162,2,383,0)="""RTN"",""XUMF390"",90,0)"
^XMB(3.9,162,2,384,0)=" S PARAM(""CDSYS"")=""MAMMO-ACR"""
^XMB(3.9,162,2,385,0)="""RTN"",""XUMF390"",91,0)"
^XMB(3.9,162,2,386,0)=" S PARAM(""LLNK"")=""XUMF MFR^XUMF ""_$S('TEST:""FORUM"",1:""TEST"")"
^XMB(3.9,162,2,387,0)="""RTN"",""XUMF390"",92,0)"
^XMB(3.9,162,2,388,0)=" S PARAM(""PROTOCOL"")=$O(^ORD(101,""B"",""XUMF MFQ"",0))"
^XMB(3.9,162,2,389,0)="""RTN"",""XUMF390"",93,0)"
^XMB(3.9,162,2,390,0)=" ;"
^XMB(3.9,162,2,391,0)="""RTN"",""XUMF390"",94,0)"
^XMB(3.9,162,2,392,0)=" D MAIN^XUMFP(4,""ALL"",7,.PARAM,.ERROR) Q:ERROR"
^XMB(3.9,162,2,393,0)="""RTN"",""XUMF390"",95,0)"
^XMB(3.9,162,2,394,0)=" D MAIN^XUMFI(4,""ALL"",7,.PARAM,.ERROR) Q:ERROR"
^XMB(3.9,162,2,395,0)="""RTN"",""XUMF390"",96,0)"
^XMB(3.9,162,2,396,0)=" D MAIN^XUMFH"
^XMB(3.9,162,2,397,0)="""RTN"",""XUMF390"",97,0)"
^XMB(3.9,162,2,398,0)=" ;"
^XMB(3.9,162,2,399,0)="""RTN"",""XUMF390"",98,0)"
^XMB(3.9,162,2,400,0)=" Q"
^XMB(3.9,162,2,401,0)="""RTN"",""XUMF390"",99,0)"
^XMB(3.9,162,2,402,0)=" ;"
^XMB(3.9,162,2,403,0)="""RTN"",""XUMF390"",100,0)"
^XMB(3.9,162,2,404,0)="EXIT ; -- cleanup and quit"
^XMB(3.9,162,2,405,0)="""RTN"",""XUMF390"",101,0)"
^XMB(3.9,162,2,406,0)=" ;"
^XMB(3.9,162,2,407,0)="""RTN"",""XUMF390"",102,0)"
^XMB(3.9,162,2,408,0)=" K ^TMP(""XUMF ARRAY"",$J),^TMP(""XUMF MFS"",$J),^TMP(""DIERR"",$J)"
^XMB(3.9,162,2,409,0)="""RTN"",""XUMF390"",103,0)"
^XMB(3.9,162,2,410,0)=" ;"
^XMB(3.9,162,2,411,0)="""RTN"",""XUMF390"",104,0)"
^XMB(3.9,162,2,412,0)=" L -^TMP(""XUMF ARRAY"",$J)"
^XMB(3.9,162,2,413,0)="""RTN"",""XUMF390"",105,0)"
^XMB(3.9,162,2,414,0)=" ;"
^XMB(3.9,162,2,415,0)="""RTN"",""XUMF390"",106,0)"
^XMB(3.9,162,2,416,0)=" S ZTREQ=""@"""
^XMB(3.9,162,2,417,0)="""RTN"",""XUMF390"",107,0)"
^XMB(3.9,162,2,418,0)=" ;"
^XMB(3.9,162,2,419,0)="""RTN"",""XUMF390"",108,0)"
^XMB(3.9,162,2,420,0)=" Q"
^XMB(3.9,162,2,421,0)="""RTN"",""XUMF390"",109,0)"
^XMB(3.9,162,2,422,0)=" ;"
^XMB(3.9,162,2,423,0)="""RTN"",""XUMF390"",110,0)"
^XMB(3.9,162,2,424,0)="CLIA ; -- add CLIA ID to Institution file"
^XMB(3.9,162,2,425,0)="""RTN"",""XUMF390"",111,0)"
^XMB(3.9,162,2,426,0)=" ;"
^XMB(3.9,162,2,427,0)="""RTN"",""XUMF390"",112,0)"
^XMB(3.9,162,2,428,0)=" N ID,NAME,FDA,ERROR,IEN,IENS,X,XUMF,STANUM,OFNME,AGENCY"
^XMB(3.9,162,2,429,0)="""RTN"",""XUMF390"",113,0)"
^XMB(3.9,162,2,430,0)=" ;"
^XMB(3.9,162,2,431,0)="""RTN"",""XUMF390"",114,0)"
^XMB(3.9,162,2,432,0)=" S XUMF=1"
^XMB(3.9,162,2,433,0)="""RTN"",""XUMF390"",115,0)"
^XMB(3.9,162,2,434,0)=" ;"
^XMB(3.9,162,2,435,0)="""RTN"",""XUMF390"",116,0)"
^XMB(3.9,162,2,436,0)=" S ID="""""
^XMB(3.9,162,2,437,0)="""RTN"",""XUMF390"",117,0)"
^XMB(3.9,162,2,438,0)=" F  S ID=$O(^TMP(""XUMF ARRAY"",$J,ID)) Q:ID=""""  D"
^XMB(3.9,162,2,439,0)="""RTN"",""XUMF390"",118,0)"
^XMB(3.9,162,2,440,0)=" .S X=^TMP(""XUMF ARRAY"",$J,ID)"
^XMB(3.9,162,2,441,0)="""RTN"",""XUMF390"",119,0)"
^XMB(3.9,162,2,442,0)=" .S STANUM=$P(X,U,3)"
^XMB(3.9,162,2,443,0)="""RTN"",""XUMF390"",120,0)"
^XMB(3.9,162,2,444,0)=" .S IEN=$$IEN^XUMF(4,""CLIA"",ID)"
^XMB(3.9,162,2,445,0)="""RTN"",""XUMF390"",121,0)"
^XMB(3.9,162,2,446,0)=" .I 'IEN,$G(STANUM)'="""" S IEN=$O(^DIC(4,""D"",STANUM,0))"
^XMB(3.9,162,2,447,0)="""RTN"",""XUMF390"",122,0)"
^XMB(3.9,162,2,448,0)=" .Q:'IEN"
^XMB(3.9,162,2,449,0)="""RTN"",""XUMF390"",123,0)"
^XMB(3.9,162,2,450,0)=" .S IENS=""?+1,""_IEN_"","""
^XMB(3.9,162,2,451,0)="""RTN"",""XUMF390"",124,0)"
^XMB(3.9,162,2,452,0)=" .K FDA"
^XMB(3.9,162,2,453,0)="""RTN"",""XUMF390"",125,0)"
^XMB(3.9,162,2,454,0)=" .S FDA(4.9999,IENS,.01)=""CLIA"""
^XMB(3.9,162,2,455,0)="""RTN"",""XUMF390"",126,0)"
^XMB(3.9,162,2,456,0)=" .S FDA(4.9999,IENS,.02)=ID"
^XMB(3.9,162,2,457,0)="""RTN"",""XUMF390"",127,0)"
^XMB(3.9,162,2,458,0)=" .D UPDATE^DIE(""E"",""FDA"")"
^XMB(3.9,162,2,459,0)="""RTN"",""XUMF390"",128,0)"
^XMB(3.9,162,2,460,0)=" ;"
^XMB(3.9,162,2,461,0)="""RTN"",""XUMF390"",129,0)"
^XMB(3.9,162,2,462,0)=" Q"
^XMB(3.9,162,2,463,0)="""RTN"",""XUMF390"",130,0)"
^XMB(3.9,162,2,464,0)=" ;"
^XMB(3.9,162,2,465,0)="""RTN"",""XUMF390"",131,0)"
^XMB(3.9,162,2,466,0)="MAMMO ; -- add MAMMO ID to Institution file"
^XMB(3.9,162,2,467,0)="""RTN"",""XUMF390"",132,0)"
^XMB(3.9,162,2,468,0)=" ;"
^XMB(3.9,162,2,469,0)="""RTN"",""XUMF390"",133,0)"
^XMB(3.9,162,2,470,0)=" N ID,NAME,FDA,ERROR,IEN,IENS,X,XUMF,STANUM"
^XMB(3.9,162,2,471,0)="""RTN"",""XUMF390"",134,0)"
^XMB(3.9,162,2,472,0)=" ;"
^XMB(3.9,162,2,473,0)="""RTN"",""XUMF390"",135,0)"
^XMB(3.9,162,2,474,0)=" S XUMF=1"
^XMB(3.9,162,2,475,0)="""RTN"",""XUMF390"",136,0)"
^XMB(3.9,162,2,476,0)=" ;"
^XMB(3.9,162,2,477,0)="""RTN"",""XUMF390"",137,0)"
^XMB(3.9,162,2,478,0)=" S ID="""""
^XMB(3.9,162,2,479,0)="""RTN"",""XUMF390"",138,0)"
^XMB(3.9,162,2,480,0)=" F  S ID=$O(^TMP(""XUMF ARRAY"",$J,ID)) Q:ID=""""  D"
^XMB(3.9,162,2,481,0)="""RTN"",""XUMF390"",139,0)"
^XMB(3.9,162,2,482,0)=" .S X=^TMP(""XUMF ARRAY"",$J,ID)"
^XMB(3.9,162,2,483,0)="""RTN"",""XUMF390"",140,0)"
^XMB(3.9,162,2,484,0)=" .S STANUM=$P(X,U,3)"
^XMB(3.9,162,2,485,0)="""RTN"",""XUMF390"",141,0)"
^XMB(3.9,162,2,486,0)=" .S IEN=$$IEN^XUMF(4,""MAMMO-ACR"",ID)"
^XMB(3.9,162,2,487,0)="""RTN"",""XUMF390"",142,0)"
^XMB(3.9,162,2,488,0)=" .I 'IEN,$G(STANUM)'="""" S IEN=$O(^DIC(4,""D"",STANUM,0))"
^XMB(3.9,162,2,489,0)="""RTN"",""XUMF390"",143,0)"
^XMB(3.9,162,2,490,0)=" .Q:'IEN"
^XMB(3.9,162,2,491,0)="""RTN"",""XUMF390"",144,0)"
^XMB(3.9,162,2,492,0)=" .S IENS=""?+1,""_IEN_"","""
^XMB(3.9,162,2,493,0)="""RTN"",""XUMF390"",145,0)"
^XMB(3.9,162,2,494,0)=" .K FDA"
^XMB(3.9,162,2,495,0)="""RTN"",""XUMF390"",146,0)"
^XMB(3.9,162,2,496,0)=" .S FDA(4.9999,IENS,.01)=""MAMMO-ACR"""
^XMB(3.9,162,2,497,0)="""RTN"",""XUMF390"",147,0)"
^XMB(3.9,162,2,498,0)=" .S FDA(4.9999,IENS,.02)=ID"
^XMB(3.9,162,2,499,0)="""RTN"",""XUMF390"",148,0)"
^XMB(3.9,162,2,500,0)=" .D UPDATE^DIE(""E"",""FDA"")"
^XMB(3.9,162,2,501,0)="""RTN"",""XUMF390"",149,0)"
^XMB(3.9,162,2,502,0)=" ;"
^XMB(3.9,162,2,503,0)="""RTN"",""XUMF390"",150,0)"
^XMB(3.9,162,2,504,0)=" Q"
^XMB(3.9,162,2,505,0)="""RTN"",""XUMF390"",151,0)"
^XMB(3.9,162,2,506,0)=" ;"
^XMB(3.9,162,2,507,0)="""RTN"",""XUMF390"",152,0)"
^XMB(3.9,162,2,508,0)="LINK ;"
^XMB(3.9,162,2,509,0)="""RTN"",""XUMF390"",153,0)"
^XMB(3.9,162,2,510,0)=" ;"
^XMB(3.9,162,2,511,0)="""RTN"",""XUMF390"",154,0)"
^XMB(3.9,162,2,512,0)=" N IEN,FDA,IENS"
^XMB(3.9,162,2,513,0)="""RTN"",""XUMF390"",155,0)"
^XMB(3.9,162,2,514,0)=" ;"
^XMB(3.9,162,2,515,0)="""RTN"",""XUMF390"",156,0)"
^XMB(3.9,162,2,516,0)=" S IEN=$$FIND1^DIC(870,,""BX"",""XUMF ACK"")"
^XMB(3.9,162,2,517,0)="""RTN"",""XUMF390"",157,0)"
^XMB(3.9,162,2,518,0)=" S IENS=IEN_"","""
^XMB(3.9,162,2,519,0)="""RTN"",""XUMF390"",158,0)"
^XMB(3.9,162,2,520,0)=" ;"
^XMB(3.9,162,2,521,0)="""RTN"",""XUMF390"",159,0)"
^XMB(3.9,162,2,522,0)=" K FDA"
^XMB(3.9,162,2,523,0)="""RTN"",""XUMF390"",160,0)"
^XMB(3.9,162,2,524,0)=" S FDA(870,IENS,4.5)=1"
^XMB(3.9,162,2,525,0)="""RTN"",""XUMF390"",161,0)"
^XMB(3.9,162,2,526,0)=" D UPDATE^DIE(,""FDA"")"
^XMB(3.9,162,2,527,0)="""RTN"",""XUMF390"",162,0)"
^XMB(3.9,162,2,528,0)=" ;"
^XMB(3.9,162,2,529,0)="""RTN"",""XUMF390"",163,0)"
^XMB(3.9,162,2,530,0)=" S IEN=$$FIND1^DIC(870,,""BX"",""XUMF FORUM"")"
^XMB(3.9,162,2,531,0)="""RTN"",""XUMF390"",164,0)"
^XMB(3.9,162,2,532,0)=" S IENS=IEN_"","""
^XMB(3.9,162,2,533,0)="""RTN"",""XUMF390"",165,0)"
^XMB(3.9,162,2,534,0)=" ;"
^XMB(3.9,162,2,535,0)="""RTN"",""XUMF390"",166,0)"
^XMB(3.9,162,2,536,0)=" K FDA"
^XMB(3.9,162,2,537,0)="""RTN"",""XUMF390"",167,0)"
^XMB(3.9,162,2,538,0)=" S FDA(870,IENS,4.5)=1"
^XMB(3.9,162,2,539,0)="""RTN"",""XUMF390"",168,0)"
^XMB(3.9,162,2,540,0)=" D UPDATE^DIE(,""FDA"")"
^XMB(3.9,162,2,541,0)="""RTN"",""XUMF390"",169,0)"
^XMB(3.9,162,2,542,0)=" ;"
^XMB(3.9,162,2,543,0)="""RTN"",""XUMF390"",170,0)"
^XMB(3.9,162,2,544,0)=" Q"
^XMB(3.9,162,2,545,0)="""RTN"",""XUMF390"",171,0)"
^XMB(3.9,162,2,546,0)=" ;"
^XMB(3.9,162,2,547,0)="""RTN"",""XUMFH"")"
^XMB(3.9,162,2,548,0)="0^1^B77218033^B76492031"
^XMB(3.9,162,2,549,0)="""RTN"",""XUMFH"",1,0)"
^XMB(3.9,162,2,550,0)="XUMFH ;CIOFO-SF/RAM - Master File HL7 Msg Handler ;11/16/05"
^XMB(3.9,162,2,551,0)="""RTN"",""XUMFH"",2,0)"
^XMB(3.9,162,2,552,0)=" ;;8.0;KERNEL;**206,209,217,218,262,335,261,390**;Jul 10, 1995"
^XMB(3.9,162,2,553,0)="""RTN"",""XUMFH"",3,0)"
^XMB(3.9,162,2,554,0)=" ;"
^XMB(3.9,162,2,555,0)="""RTN"",""XUMFH"",4,0)"
^XMB(3.9,162,2,556,0)=" ; This routine handles Master File HL7 messages."
^XMB(3.9,162,2,557,0)="""RTN"",""XUMFH"",5,0)"
^XMB(3.9,162,2,558,0)=" ;"
^XMB(3.9,162,2,559,0)="""RTN"",""XUMFH"",6,0)"
^XMB(3.9,162,2,560,0)="MAIN ; -- entry point"
^XMB(3.9,162,2,561,0)="""RTN"",""XUMFH"",7,0)"
^XMB(3.9,162,2,562,0)=" ;"
^XMB(3.9,162,2,563,0)="""RTN"",""XUMFH"",8,0)"
^XMB(3.9,162,2,564,0)=" N CNT,ERR,I,X,HLFS,HLCS,ERROR,HLRESLTA,IFN,IEN,MTPE,TYPE,ARRAY"
^XMB(3.9,162,2,565,0)="""RTN"",""XUMFH"",9,0)"
^XMB(3.9,162,2,566,0)=" N HDT,KEY,MID,REASON,VALUE,XREF,ALL,GROUP,PARAM,ROOT,SEG,QRD"
^XMB(3.9,162,2,567,0)="""RTN"",""XUMFH"",10,0)"
^XMB(3.9,162,2,568,0)=" N QID,WHAT,WHO,HLSCS,CDSYS,ERRCNT"
^XMB(3.9,162,2,569,0)="""RTN"",""XUMFH"",11,0)"
^XMB(3.9,162,2,570,0)=" ;"
^XMB(3.9,162,2,571,0)="""RTN"",""XUMFH"",12,0)"
^XMB(3.9,162,2,572,0)=" D INIT,PROCESS,REPLY,EXIT"
^XMB(3.9,162,2,573,0)="""RTN"",""XUMFH"",13,0)"
^XMB(3.9,162,2,574,0)=" ;"
^XMB(3.9,162,2,575,0)="""RTN"",""XUMFH"",14,0)"
^XMB(3.9,162,2,576,0)=" Q"
^XMB(3.9,162,2,577,0)="""RTN"",""XUMFH"",15,0)"
^XMB(3.9,162,2,578,0)=" ;"
^XMB(3.9,162,2,579,0)="""RTN"",""XUMFH"",16,0)"
^XMB(3.9,162,2,580,0)="INIT ; -- initialize"
^XMB(3.9,162,2,581,0)="""RTN"",""XUMFH"",17,0)"
^XMB(3.9,162,2,582,0)=" ;"
^XMB(3.9,162,2,583,0)="""RTN"",""XUMFH"",18,0)"
^XMB(3.9,162,2,584,0)=" K ^TMP(""DILIST"",$J),^TMP(""DIERR"",$J)"
^XMB(3.9,162,2,585,0)="""RTN"",""XUMFH"",19,0)"
^XMB(3.9,162,2,586,0)=" K ^TMP(""HLS"",$J),^TMP(""HLA"",$J),^TMP(""XUMF ERROR"",$J)"
^XMB(3.9,162,2,587,0)="""RTN"",""XUMFH"",20,0)"
^XMB(3.9,162,2,588,0)=" ;"
^XMB(3.9,162,2,589,0)="""RTN"",""XUMFH"",21,0)"
^XMB(3.9,162,2,590,0)=" S (ERROR,CNT,TYPE,ARRAY,ERRCNT)=0"
^XMB(3.9,162,2,591,0)="""RTN"",""XUMFH"",22,0)"
^XMB(3.9,162,2,592,0)=" S HLFS=HL(""FS""),HLCS=$E(HL(""ECH"")),HLSCS=$E(HL(""ECH""),4)"
^XMB(3.9,162,2,593,0)="""RTN"",""XUMFH"",23,0)"
^XMB(3.9,162,2,594,0)=" ;"
^XMB(3.9,162,2,595,0)="""RTN"",""XUMFH"",24,0)"
^XMB(3.9,162,2,596,0)=" Q"
^XMB(3.9,162,2,597,0)="""RTN"",""XUMFH"",25,0)"
^XMB(3.9,162,2,598,0)=" ;"
^XMB(3.9,162,2,599,0)="""RTN"",""XUMFH"",26,0)"
^XMB(3.9,162,2,600,0)="PROCESS ; -- pull message text"
^XMB(3.9,162,2,601,0)="""RTN"",""XUMFH"",27,0)"
^XMB(3.9,162,2,602,0)=" ;"
^XMB(3.9,162,2,603,0)="""RTN"",""XUMFH"",28,0)"
^XMB(3.9,162,2,604,0)=" F  X HLNEXT Q:HLQUIT'>0  D"
^XMB(3.9,162,2,605,0)="""RTN"",""XUMFH"",29,0)"
^XMB(3.9,162,2,606,0)=" .Q:$P(HLNODE,HLFS)="""""
^XMB(3.9,162,2,607,0)="""RTN"",""XUMFH"",30,0)"
^XMB(3.9,162,2,608,0)=" .D @($P(HLNODE,HLFS))"
^XMB(3.9,162,2,609,0)="""RTN"",""XUMFH"",31,0)"
^XMB(3.9,162,2,610,0)=" ;"
^XMB(3.9,162,2,611,0)="""RTN"",""XUMFH"",32,0)"
^XMB(3.9,162,2,612,0)=" Q"
^XMB(3.9,162,2,613,0)="""RTN"",""XUMFH"",33,0)"
^XMB(3.9,162,2,614,0)=" ;"
^XMB(3.9,162,2,615,0)="""RTN"",""XUMFH"",34,0)"
^XMB(3.9,162,2,616,0)="MSH ; -- MSH segment"
^XMB(3.9,162,2,617,0)="""RTN"",""XUMFH"",35,0)"
^XMB(3.9,162,2,618,0)=" ;"
^XMB(3.9,162,2,619,0)="""RTN"",""XUMFH"",36,0)"
^XMB(3.9,162,2,620,0)=" Q"
^XMB(3.9,162,2,621,0)="""RTN"",""XUMFH"",37,0)"
^XMB(3.9,162,2,622,0)=" ;"
^XMB(3.9,162,2,623,0)="""RTN"",""XUMFH"",38,0)"
^XMB(3.9,162,2,624,0)="MSA ; -- MSA segment"
^XMB(3.9,162,2,625,0)="""RTN"",""XUMFH"",39,0)"
^XMB(3.9,162,2,626,0)=" ;"
^XMB(3.9,162,2,627,0)="""RTN"",""XUMFH"",40,0)"
^XMB(3.9,162,2,628,0)=" N CODE"
^XMB(3.9,162,2,629,0)="""RTN"",""XUMFH"",41,0)"
^XMB(3.9,162,2,630,0)=" ;"
^XMB(3.9,162,2,631,0)="""RTN"",""XUMFH"",42,0)"
^XMB(3.9,162,2,632,0)=" S CODE=$P(HLNODE,HLFS,2)"
^XMB(3.9,162,2,633,0)="""RTN"",""XUMFH"",43,0)"
^XMB(3.9,162,2,634,0)=" ;"
^XMB(3.9,162,2,635,0)="""RTN"",""XUMFH"",44,0)"
^XMB(3.9,162,2,636,0)=" I CODE=""AE""!(CODE=""AR"") D"
^XMB(3.9,162,2,637,0)="""RTN"",""XUMFH"",45,0)"
^XMB(3.9,162,2,638,0)=" .S ERROR=ERROR_U_$P(HLNODE,HLFS,4)_U_$G(ERR)"
^XMB(3.9,162,2,639,0)="""RTN"",""XUMFH"",46,0)"
^XMB(3.9,162,2,640,0)=" .D EM(ERROR,.ERR)"
^XMB(3.9,162,2,641,0)="""RTN"",""XUMFH"",47,0)"
^XMB(3.9,162,2,642,0)=" ;"
^XMB(3.9,162,2,643,0)="""RTN"",""XUMFH"",48,0)"
^XMB(3.9,162,2,644,0)=" Q"
^XMB(3.9,162,2,645,0)="""RTN"",""XUMFH"",49,0)"
^XMB(3.9,162,2,646,0)=" ;"
^XMB(3.9,162,2,647,0)="""RTN"",""XUMFH"",50,0)"
^XMB(3.9,162,2,648,0)="QRD ; -- QRD segment"
^XMB(3.9,162,2,649,0)="""RTN"",""XUMFH"",51,0)"
^XMB(3.9,162,2,650,0)=" ;"
^XMB(3.9,162,2,651,0)="""RTN"",""XUMFH"",52,0)"
^XMB(3.9,162,2,652,0)=" Q:ERROR"
^XMB(3.9,162,2,653,0)="""RTN"",""XUMFH"",53,0)"
^XMB(3.9,162,2,654,0)=" ;"
^XMB(3.9,162,2,655,0)="""RTN"",""XUMFH"",54,0)"
^XMB(3.9,162,2,656,0)=" S QRD=""QRD,QDT,QFC,QP,QID,DRT,DRDT,QLR,WHO,WHAT,WDDC,WDCVQ,QRL"""
^XMB(3.9,162,2,657,0)="""RTN"",""XUMFH"",55,0)"
^XMB(3.9,162,2,658,0)=" ;"
^XMB(3.9,162,2,659,0)="""RTN"",""XUMFH"",56,0)"
^XMB(3.9,162,2,660,0)=" F I=2:1:13 S PARAM($P(QRD,"","",I))=$P(HLNODE,HLFS,I)"
^XMB(3.9,162,2,661,0)="""RTN"",""XUMFH"",57,0)"
^XMB(3.9,162,2,662,0)=" S QID=$P(HLNODE,HLFS,5)"
^XMB(3.9,162,2,663,0)="""RTN"",""XUMFH"",58,0)"
^XMB(3.9,162,2,664,0)=" S WHO=$P(HLNODE,HLFS,9)"
^XMB(3.9,162,2,665,0)="""RTN"",""XUMFH"",59,0)"
^XMB(3.9,162,2,666,0)=" I WHO="""" D  Q"
^XMB(3.9,162,2,667,0)="""RTN"",""XUMFH"",60,0)"
^XMB(3.9,162,2,668,0)=" .S ERROR=""1^QRD segment has null missing WHO parameter"""
^XMB(3.9,162,2,669,0)="""RTN"",""XUMFH"",61,0)"
^XMB(3.9,162,2,670,0)=" .D EM(ERROR,.ERR)"
^XMB(3.9,162,2,671,0)="""RTN"",""XUMFH"",62,0)"
^XMB(3.9,162,2,672,0)=" S WHAT=$P(HLNODE,HLFS,10)"
^XMB(3.9,162,2,673,0)="""RTN"",""XUMFH"",63,0)"
^XMB(3.9,162,2,674,0)=" I WHAT="""" D  Q"
^XMB(3.9,162,2,675,0)="""RTN"",""XUMFH"",64,0)"
^XMB(3.9,162,2,676,0)=" .S ERROR=""1^QRD segment has null missing WHAT parameter"""
^XMB(3.9,162,2,677,0)="""RTN"",""XUMFH"",65,0)"
^XMB(3.9,162,2,678,0)=" .D EM(ERROR,.ERR)"
^XMB(3.9,162,2,679,0)="""RTN"",""XUMFH"",66,0)"
^XMB(3.9,162,2,680,0)=" ;"
^XMB(3.9,162,2,681,0)="""RTN"",""XUMFH"",67,0)"
^XMB(3.9,162,2,682,0)=" S ARRAY=$S(QID[""ARRAY"":1,1:0)"
^XMB(3.9,162,2,683,0)="""RTN"",""XUMFH"",68,0)"
^XMB(3.9,162,2,684,0)=" S ALL=$S(WHO[""ALL"":1,1:0)"
^XMB(3.9,162,2,685,0)="""RTN"",""XUMFH"",69,0)"
^XMB(3.9,162,2,686,0)=" S GROUP=$S(ALL:1,(WHO[""IEN""):1,1:0)"
^XMB(3.9,162,2,687,0)="""RTN"",""XUMFH"",70,0)"
^XMB(3.9,162,2,688,0)=" ;"
^XMB(3.9,162,2,689,0)="""RTN"",""XUMFH"",71,0)"
^XMB(3.9,162,2,690,0)=" S:ARRAY TYPE=$S(GROUP:7,1:3)"
^XMB(3.9,162,2,691,0)="""RTN"",""XUMFH"",72,0)"
^XMB(3.9,162,2,692,0)=" S:'ARRAY TYPE=$S(GROUP:5,1:1)"
^XMB(3.9,162,2,693,0)="""RTN"",""XUMFH"",73,0)"
^XMB(3.9,162,2,694,0)=" S:HL(""MTN"")=""MFR"" TYPE=TYPE+10"
^XMB(3.9,162,2,695,0)="""RTN"",""XUMFH"",74,0)"
^XMB(3.9,162,2,696,0)=" ;"
^XMB(3.9,162,2,697,0)="""RTN"",""XUMFH"",75,0)"
^XMB(3.9,162,2,698,0)=" S IFN=+WHAT"
^XMB(3.9,162,2,699,0)="""RTN"",""XUMFH"",76,0)"
^XMB(3.9,162,2,700,0)=" S XREF=$P(WHO,HLCS,9),ROOT=$$ROOT^DILFD(IFN,,1)"
^XMB(3.9,162,2,701,0)="""RTN"",""XUMFH"",77,0)"
^XMB(3.9,162,2,702,0)=" S IEN=$O(@ROOT@(XREF,$P(WHO,HLCS),0))"
^XMB(3.9,162,2,703,0)="""RTN"",""XUMFH"",78,0)"
^XMB(3.9,162,2,704,0)=" S IEN=$S(IEN:IEN,1:$P(WHO,HLCS))"
^XMB(3.9,162,2,705,0)="""RTN"",""XUMFH"",79,0)"
^XMB(3.9,162,2,706,0)=" S:$L(XREF)>1 PARAM(""CDSYS"")=XREF"
^XMB(3.9,162,2,707,0)="""RTN"",""XUMFH"",80,0)"
^XMB(3.9,162,2,708,0)=" ;"
^XMB(3.9,162,2,709,0)="""RTN"",""XUMFH"",81,0)"
^XMB(3.9,162,2,710,0)=" K:ARRAY ^TMP(""XUMF ARRAY"",$J)"
^XMB(3.9,162,2,711,0)="""RTN"",""XUMFH"",82,0)"
^XMB(3.9,162,2,712,0)=" ;"
^XMB(3.9,162,2,713,0)="""RTN"",""XUMFH"",83,0)"
^XMB(3.9,162,2,714,0)=" Q"
^XMB(3.9,162,2,715,0)="""RTN"",""XUMFH"",84,0)"
^XMB(3.9,162,2,716,0)=" ;"
^XMB(3.9,162,2,717,0)="""RTN"",""XUMFH"",85,0)"
^XMB(3.9,162,2,718,0)="MFI ; -- MFI segment"
^XMB(3.9,162,2,719,0)="""RTN"",""XUMFH"",86,0)"
^XMB(3.9,162,2,720,0)=" ;"
^XMB(3.9,162,2,721,0)="""RTN"",""XUMFH"",87,0)"
^XMB(3.9,162,2,722,0)=" Q:ERROR"
^XMB(3.9,162,2,723,0)="""RTN"",""XUMFH"",88,0)"
^XMB(3.9,162,2,724,0)=" Q:$G(IFN)"
^XMB(3.9,162,2,725,0)="""RTN"",""XUMFH"",89,0)"
^XMB(3.9,162,2,726,0)=" ;"
^XMB(3.9,162,2,727,0)="""RTN"",""XUMFH"",90,0)"
^XMB(3.9,162,2,728,0)=" I $P(HLNODE,HLFS,2)="""" D  Q"
^XMB(3.9,162,2,729,0)="""RTN"",""XUMFH"",91,0)"
^XMB(3.9,162,2,730,0)=" .S ERROR=""1^MFI segment missing Master File Identifier"""
^XMB(3.9,162,2,731,0)="""RTN"",""XUMFH"",92,0)"
^XMB(3.9,162,2,732,0)=" .D EM(ERROR,.ERR)"
^XMB(3.9,162,2,733,0)="""RTN"",""XUMFH"",93,0)"
^XMB(3.9,162,2,734,0)=" S IFN=$$MFI^XUMFP($P(HLNODE,HLFS,2))"
^XMB(3.9,162,2,735,0)="""RTN"",""XUMFH"",94,0)"
^XMB(3.9,162,2,736,0)=" I 'IFN D  Q"
^XMB(3.9,162,2,737,0)="""RTN"",""XUMFH"",95,0)"
^XMB(3.9,162,2,738,0)=" .S ERROR=""1^IFN in MFI could not be resolved"""
^XMB(3.9,162,2,739,0)="""RTN"",""XUMFH"",96,0)"
^XMB(3.9,162,2,740,0)=" .D EM(ERROR,.ERR)"
^XMB(3.9,162,2,741,0)="""RTN"",""XUMFH"",97,0)"
^XMB(3.9,162,2,742,0)=" ;"
^XMB(3.9,162,2,743,0)="""RTN"",""XUMFH"",98,0)"
^XMB(3.9,162,2,744,0)=" Q"
^XMB(3.9,162,2,745,0)="""RTN"",""XUMFH"",99,0)"
^XMB(3.9,162,2,746,0)=" ;"
^XMB(3.9,162,2,747,0)="""RTN"",""XUMFH"",100,0)"
^XMB(3.9,162,2,748,0)="MFE ; -- MFE segment"
^XMB(3.9,162,2,749,0)="""RTN"",""XUMFH"",101,0)"
^XMB(3.9,162,2,750,0)=" ;"
^XMB(3.9,162,2,751,0)="""RTN"",""XUMFH"",102,0)"
^XMB(3.9,162,2,752,0)=" Q:ERROR"
^XMB(3.9,162,2,753,0)="""RTN"",""XUMFH"",103,0)"
^XMB(3.9,162,2,754,0)=" ;Q:$G(IEN)"
^XMB(3.9,162,2,755,0)="""RTN"",""XUMFH"",104,0)"
^XMB(3.9,162,2,756,0)=" ;"
^XMB(3.9,162,2,757,0)="""RTN"",""XUMFH"",105,0)"
^XMB(3.9,162,2,758,0)=" S KEY=$P(HLNODE,HLFS,5) Q:ARRAY"
^XMB(3.9,162,2,759,0)="""RTN"",""XUMFH"",106,0)"
^XMB(3.9,162,2,760,0)=" ;"
^XMB(3.9,162,2,761,0)="""RTN"",""XUMFH"",107,0)"
^XMB(3.9,162,2,762,0)=" I $P(KEY,HLCS)="""" D  Q"
^XMB(3.9,162,2,763,0)="""RTN"",""XUMFH"",108,0)"
^XMB(3.9,162,2,764,0)=" .D EM(""MFE segment NULL key ""_$E(HLNODE,1,80),.ERR)"
^XMB(3.9,162,2,765,0)="""RTN"",""XUMFH"",109,0)"
^XMB(3.9,162,2,766,0)=" ."
^XMB(3.9,162,2,767,0)="""RTN"",""XUMFH"",110,0)"
^XMB(3.9,162,2,768,0)=" S XREF=$P(KEY,HLCS,3)"
^XMB(3.9,162,2,769,0)="""RTN"",""XUMFH"",111,0)"
^XMB(3.9,162,2,770,0)=" S IEN=$$FIND1^DIC(IFN,,""BX"",$P(KEY,HLCS),XREF,,""ERR"")"
^XMB(3.9,162,2,771,0)="""RTN"",""XUMFH"",112,0)"
^XMB(3.9,162,2,772,0)=" S IEN=$S(IEN:IEN,KEY[""ALL"":""ALL"",$G(ERR)'="""":""ERROR"",1:""NEW"")"
^XMB(3.9,162,2,773,0)="""RTN"",""XUMFH"",113,0)"
^XMB(3.9,162,2,774,0)=" I IEN=""ERROR"" D  Q"
^XMB(3.9,162,2,775,0)="""RTN"",""XUMFH"",114,0)"
^XMB(3.9,162,2,776,0)=" .D EM(""MFE segment couldn't resolve IEN"",.ERR)"
^XMB(3.9,162,2,777,0)="""RTN"",""XUMFH"",115,0)"
^XMB(3.9,162,2,778,0)=" .K ERR"
^XMB(3.9,162,2,779,0)="""RTN"",""XUMFH"",116,0)"
^XMB(3.9,162,2,780,0)=" D MAIN^XUMFP(IFN,IEN,TYPE,.PARAM,.ERROR)"
^XMB(3.9,162,2,781,0)="""RTN"",""XUMFH"",117,0)"
^XMB(3.9,162,2,782,0)=" ;"
^XMB(3.9,162,2,783,0)="""RTN"",""XUMFH"",118,0)"
^XMB(3.9,162,2,784,0)=" Q"
^XMB(3.9,162,2,785,0)="""RTN"",""XUMFH"",119,0)"
^XMB(3.9,162,2,786,0)=" ;"
^XMB(3.9,162,2,787,0)="""RTN"",""XUMFH"",120,0)"
^XMB(3.9,162,2,788,0)="ZL7 ; -- Generic Master File"
^XMB(3.9,162,2,789,0)="""RTN"",""XUMFH"",121,0)"
^XMB(3.9,162,2,790,0)="ZIN ; -- VHA Institution segment"
^XMB(3.9,162,2,791,0)="""RTN"",""XUMFH"",122,0)"
^XMB(3.9,162,2,792,0)="ZFT ; -- VHA Facility Type segment"
^XMB(3.9,162,2,793,0)="""RTN"",""XUMFH"",123,0)"
^XMB(3.9,162,2,794,0)="LOC ; -- Location Identification segment"
^XMB(3.9,162,2,795,0)="""RTN"",""XUMFH"",124,0)"
^XMB(3.9,162,2,796,0)="ZZZ ; -- get [Z...] segment(s)"
^XMB(3.9,162,2,797,0)="""RTN"",""XUMFH"",125,0)"
^XMB(3.9,162,2,798,0)=" ;"
^XMB(3.9,162,2,799,0)="""RTN"",""XUMFH"",126,0)"
^XMB(3.9,162,2,800,0)=" Q:ERROR"
^XMB(3.9,162,2,801,0)="""RTN"",""XUMFH"",127,0)"
^XMB(3.9,162,2,802,0)=" Q:IEN=""ERROR"""
^XMB(3.9,162,2,803,0)="""RTN"",""XUMFH"",128,0)"
^XMB(3.9,162,2,804,0)=" ;"
^XMB(3.9,162,2,805,0)="""RTN"",""XUMFH"",129,0)"
^XMB(3.9,162,2,806,0)=" I $G(ARRAY) D ARRAY Q"
^XMB(3.9,162,2,807,0)="""RTN"",""XUMFH"",130,0)"
^XMB(3.9,162,2,808,0)=" ;"
^XMB(3.9,162,2,809,0)="""RTN"",""XUMFH"",131,0)"
^XMB(3.9,162,2,810,0)=" N FDA,IENS,FIELD,ERR,PRE,POST,XUMF,MULT,FDA1,SEQ,SEQ1,SEQ2,SEQ3"
^XMB(3.9,162,2,811,0)="""RTN"",""XUMFH"",132,0)"
^XMB(3.9,162,2,812,0)=" ;"
^XMB(3.9,162,2,813,0)="""RTN"",""XUMFH"",133,0)"
^XMB(3.9,162,2,814,0)=" S PRE=$G(^TMP(""XUMF MFS"",$J,""PARAM"",""PRE""))"
^XMB(3.9,162,2,815,0)="""RTN"",""XUMFH"",134,0)"
^XMB(3.9,162,2,816,0)=" D:PRE'="""" @(PRE)"
^XMB(3.9,162,2,817,0)="""RTN"",""XUMFH"",135,0)"
^XMB(3.9,162,2,818,0)=" ;"
^XMB(3.9,162,2,819,0)="""RTN"",""XUMFH"",136,0)"
^XMB(3.9,162,2,820,0)=" S XUMF=7"
^XMB(3.9,162,2,821,0)="""RTN"",""XUMFH"",137,0)"
^XMB(3.9,162,2,822,0)=" ;"
^XMB(3.9,162,2,823,0)="""RTN"",""XUMFH"",138,0)"
^XMB(3.9,162,2,824,0)=" S SEG=$P(HLNODE,HLFS)"
^XMB(3.9,162,2,825,0)="""RTN"",""XUMFH"",139,0)"
^XMB(3.9,162,2,826,0)=" S IENS=$S(IEN:IEN,1:""+1"")_"","""
^XMB(3.9,162,2,827,0)="""RTN"",""XUMFH"",140,0)"
^XMB(3.9,162,2,828,0)=" S SEQ=0"
^XMB(3.9,162,2,829,0)="""RTN"",""XUMFH"",141,0)"
^XMB(3.9,162,2,830,0)=" F  S SEQ=$O(^TMP(""XUMF MFS"",$J,""PARAM"",""SEG"",SEG,""SEQ"",SEQ)) Q:'SEQ  D"
^XMB(3.9,162,2,831,0)="""RTN"",""XUMFH"",142,0)"
^XMB(3.9,162,2,832,0)=" .S SEQ1=$P(SEQ,"".""),SEQ2=$P(SEQ,""."",2)"
^XMB(3.9,162,2,833,0)="""RTN"",""XUMFH"",143,0)"
^XMB(3.9,162,2,834,0)=" .S SEQ3=$O(^TMP(""XUMF MFS"",$J,""PARAM"",""SEG"",SEG,""SEQ"",SEQ,""HLSCS"",0))"
^XMB(3.9,162,2,835,0)="""RTN"",""XUMFH"",144,0)"
^XMB(3.9,162,2,836,0)=" .I SEQ3 D SUBCOMP Q"
^XMB(3.9,162,2,837,0)="""RTN"",""XUMFH"",145,0)"
^XMB(3.9,162,2,838,0)=" .S FIELD=$O(^TMP(""XUMF MFS"",$J,""PARAM"",""SEG"",SEG,""SEQ"",SEQ,0))"
^XMB(3.9,162,2,839,0)="""RTN"",""XUMFH"",146,0)"
^XMB(3.9,162,2,840,0)=" .I FIELD="".01"" D"
^XMB(3.9,162,2,841,0)="""RTN"",""XUMFH"",147,0)"
^XMB(3.9,162,2,842,0)=" ..N FDA,IEN1"
^XMB(3.9,162,2,843,0)="""RTN"",""XUMFH"",148,0)"
^XMB(3.9,162,2,844,0)=" ..S TYP=$G(^TMP(""XUMF MFS"",$J,""PARAM"",""SEG"",SEG,""SEQ"",SEQ,FIELD))"
^XMB(3.9,162,2,845,0)="""RTN"",""XUMFH"",149,0)"
^XMB(3.9,162,2,846,0)=" ..S VALUE=$$VALUE()"
^XMB(3.9,162,2,847,0)="""RTN"",""XUMFH"",150,0)"
^XMB(3.9,162,2,848,0)=" ..S:SEQ2 VALUE=$$VAL2()"
^XMB(3.9,162,2,849,0)="""RTN"",""XUMFH"",151,0)"
^XMB(3.9,162,2,850,0)=" ..S VALUE=$$DTYP^XUMFP(VALUE,TYP,HLCS,0)"
^XMB(3.9,162,2,851,0)="""RTN"",""XUMFH"",152,0)"
^XMB(3.9,162,2,852,0)=" ..S FDA(IFN,IENS,FIELD)=VALUE"
^XMB(3.9,162,2,853,0)="""RTN"",""XUMFH"",153,0)"
^XMB(3.9,162,2,854,0)=" ..D UPDATE^DIE(""E"",""FDA"",""IEN1"",""ERR"")"
^XMB(3.9,162,2,855,0)="""RTN"",""XUMFH"",154,0)"
^XMB(3.9,162,2,856,0)=" ..I $D(ERR) D"
^XMB(3.9,162,2,857,0)="""RTN"",""XUMFH"",155,0)"
^XMB(3.9,162,2,858,0)=" ...D EM(""Update DIE - error message"",.ERR)"
^XMB(3.9,162,2,859,0)="""RTN"",""XUMFH"",156,0)"
^XMB(3.9,162,2,860,0)=" ...K ERR"
^XMB(3.9,162,2,861,0)="""RTN"",""XUMFH"",157,0)"
^XMB(3.9,162,2,862,0)=" ..I $D(IEN1) S IENS=IEN1(1)_"","""
^XMB(3.9,162,2,863,0)="""RTN"",""XUMFH"",158,0)"
^XMB(3.9,162,2,864,0)=" .I 'FIELD D SUBFILE Q"
^XMB(3.9,162,2,865,0)="""RTN"",""XUMFH"",159,0)"
^XMB(3.9,162,2,866,0)=" .S TYP=$G(^TMP(""XUMF MFS"",$J,""PARAM"",""SEG"",SEG,""SEQ"",SEQ,FIELD))"
^XMB(3.9,162,2,867,0)="""RTN"",""XUMFH"",160,0)"
^XMB(3.9,162,2,868,0)=" .S VALUE=$$VALUE()"
^XMB(3.9,162,2,869,0)="""RTN"",""XUMFH"",161,0)"
^XMB(3.9,162,2,870,0)=" .S:SEQ2 VALUE=$$VAL2()"
^XMB(3.9,162,2,871,0)="""RTN"",""XUMFH"",162,0)"
^XMB(3.9,162,2,872,0)=" .S VALUE=$$DTYP^XUMFP(VALUE,TYP,HLCS,0)"
^XMB(3.9,162,2,873,0)="""RTN"",""XUMFH"",163,0)"
^XMB(3.9,162,2,874,0)=" .S FDA(IFN,IENS,FIELD)=VALUE"
^XMB(3.9,162,2,875,0)="""RTN"",""XUMFH"",164,0)"
^XMB(3.9,162,2,876,0)=" ;"
^XMB(3.9,162,2,877,0)="""RTN"",""XUMFH"",165,0)"
^XMB(3.9,162,2,878,0)=" M FDA=FDA1"
^XMB(3.9,162,2,879,0)="""RTN"",""XUMFH"",166,0)"
^XMB(3.9,162,2,880,0)=" ;"
^XMB(3.9,162,2,881,0)="""RTN"",""XUMFH"",167,0)"
^XMB(3.9,162,2,882,0)=" D FILE^DIE(""E"",""FDA"",""ERR"")"
^XMB(3.9,162,2,883,0)="""RTN"",""XUMFH"",168,0)"
^XMB(3.9,162,2,884,0)=" I $D(ERR) D"
^XMB(3.9,162,2,885,0)="""RTN"",""XUMFH"",169,0)"
^XMB(3.9,162,2,886,0)=" .D EM(""File DIE -- error message"",.ERR)"
^XMB(3.9,162,2,887,0)="""RTN"",""XUMFH"",170,0)"
^XMB(3.9,162,2,888,0)=" .K ERR"
^XMB(3.9,162,2,889,0)="""RTN"",""XUMFH"",171,0)"
^XMB(3.9,162,2,890,0)=" ;"
^XMB(3.9,162,2,891,0)="""RTN"",""XUMFH"",172,0)"
^XMB(3.9,162,2,892,0)=" S POST=$G(^TMP(""XUMF MFS"",$J,""PARAM"",""POST""))"
^XMB(3.9,162,2,893,0)="""RTN"",""XUMFH"",173,0)"
^XMB(3.9,162,2,894,0)=" D:POST'="""" @(POST)"
^XMB(3.9,162,2,895,0)="""RTN"",""XUMFH"",174,0)"
^XMB(3.9,162,2,896,0)=" ;"
^XMB(3.9,162,2,897,0)="""RTN"",""XUMFH"",175,0)"
^XMB(3.9,162,2,898,0)=" K IEN"
^XMB(3.9,162,2,899,0)="""RTN"",""XUMFH"",176,0)"
^XMB(3.9,162,2,900,0)=" ;"
^XMB(3.9,162,2,901,0)="""RTN"",""XUMFH"",177,0)"
^XMB(3.9,162,2,902,0)=" Q"
^XMB(3.9,162,2,903,0)="""RTN"",""XUMFH"",178,0)"
^XMB(3.9,162,2,904,0)=" ;"
^XMB(3.9,162,2,905,0)="""RTN"",""XUMFH"",179,0)"
^XMB(3.9,162,2,906,0)="SUBFILE ; -- process subfile record"
^XMB(3.9,162,2,907,0)="""RTN"",""XUMFH"",180,0)"
^XMB(3.9,162,2,908,0)=" ;"
^XMB(3.9,162,2,909,0)="""RTN"",""XUMFH"",181,0)"
^XMB(3.9,162,2,910,0)=" N IFN,IENS1,KEY1,FIELD,TYP,MKEY,ERR"
^XMB(3.9,162,2,911,0)="""RTN"",""XUMFH"",182,0)"
^XMB(3.9,162,2,912,0)=" ;"
^XMB(3.9,162,2,913,0)="""RTN"",""XUMFH"",183,0)"
^XMB(3.9,162,2,914,0)=" S IFN=^TMP(""XUMF MFS"",$J,""PARAM"",""SEG"",SEG,""SEQ"",SEQ,""FILE"")"
^XMB(3.9,162,2,915,0)="""RTN"",""XUMFH"",184,0)"
^XMB(3.9,162,2,916,0)=" S FIELD=^TMP(""XUMF MFS"",$J,""PARAM"",""SEG"",SEG,""SEQ"",SEQ,""FIELD"")"
^XMB(3.9,162,2,917,0)="""RTN"",""XUMFH"",185,0)"
^XMB(3.9,162,2,918,0)=" S TYP=^TMP(""XUMF MFS"",$J,""PARAM"",""SEG"",SEG,""SEQ"",SEQ,""DTYP"")"
^XMB(3.9,162,2,919,0)="""RTN"",""XUMFH"",186,0)"
^XMB(3.9,162,2,920,0)=" S VALUE=$$VALUE()"
^XMB(3.9,162,2,921,0)="""RTN"",""XUMFH"",187,0)"
^XMB(3.9,162,2,922,0)=" S:SEQ2 VALUE=$$VAL2()"
^XMB(3.9,162,2,923,0)="""RTN"",""XUMFH"",188,0)"
^XMB(3.9,162,2,924,0)=" S VALUE=$$DTYP^XUMFP(VALUE,TYP,HLCS,0)"
^XMB(3.9,162,2,925,0)="""RTN"",""XUMFH"",189,0)"
^XMB(3.9,162,2,926,0)=" ;"
^XMB(3.9,162,2,927,0)="""RTN"",""XUMFH"",190,0)"
^XMB(3.9,162,2,928,0)=" S MULT=$G(^TMP(""XUMF MFS"",$J,""PARAM"",""MULT"",SEG,SEQ))"
^XMB(3.9,162,2,929,0)="""RTN"",""XUMFH"",191,0)"
^XMB(3.9,162,2,930,0)=" S MKEY=$G(^TMP(""XUMF MFS"",$J,""PARAM"",""MKEY"",SEG,SEQ))"
^XMB(3.9,162,2,931,0)="""RTN"",""XUMFH"",192,0)"
^XMB(3.9,162,2,932,0)=" I MULT=SEQ Q:VALUE=""""  D"
^XMB(3.9,162,2,933,0)="""RTN"",""XUMFH"",193,0)"
^XMB(3.9,162,2,934,0)=" .N FDA,IEN"
^XMB(3.9,162,2,935,0)="""RTN"",""XUMFH"",194,0)"
^XMB(3.9,162,2,936,0)=" .S FDA(IFN,""?+1,""_IENS,.01)=VALUE"
^XMB(3.9,162,2,937,0)="""RTN"",""XUMFH"",195,0)"
^XMB(3.9,162,2,938,0)=" .D UPDATE^DIE(""E"",""FDA"",""IEN"",""ERR"")"
^XMB(3.9,162,2,939,0)="""RTN"",""XUMFH"",196,0)"
^XMB(3.9,162,2,940,0)=" .I $D(ERR) D"
^XMB(3.9,162,2,941,0)="""RTN"",""XUMFH"",197,0)"
^XMB(3.9,162,2,942,0)=" ..D EM(""update DIE call error message in SUBFILE"",.ERR)"
^XMB(3.9,162,2,943,0)="""RTN"",""XUMFH"",198,0)"
^XMB(3.9,162,2,944,0)=" ..K ERR"
^XMB(3.9,162,2,945,0)="""RTN"",""XUMFH"",199,0)"
^XMB(3.9,162,2,946,0)=" .S IENS1=IEN(1)_"",""_IENS,MULT(SEQ)=IENS1"
^XMB(3.9,162,2,947,0)="""RTN"",""XUMFH"",200,0)"
^XMB(3.9,162,2,948,0)=" I 'MULT D"
^XMB(3.9,162,2,949,0)="""RTN"",""XUMFH"",201,0)"
^XMB(3.9,162,2,950,0)=" .N FDA,IEN"
^XMB(3.9,162,2,951,0)="""RTN"",""XUMFH"",202,0)"
^XMB(3.9,162,2,952,0)=" .S FDA(IFN,""?+1,""_IENS,.01)=MKEY"
^XMB(3.9,162,2,953,0)="""RTN"",""XUMFH"",203,0)"
^XMB(3.9,162,2,954,0)=" .D UPDATE^DIE(""E"",""FDA"",""IEN"",""ERR"")"
^XMB(3.9,162,2,955,0)="""RTN"",""XUMFH"",204,0)"
^XMB(3.9,162,2,956,0)=" .I $D(ERR) D"
^XMB(3.9,162,2,957,0)="""RTN"",""XUMFH"",205,0)"
^XMB(3.9,162,2,958,0)=" ..D EM(""update DIE call error message in SUBFILE"",.ERR)"
^XMB(3.9,162,2,959,0)="""RTN"",""XUMFH"",206,0)"
^XMB(3.9,162,2,960,0)=" ..K ERR"
^XMB(3.9,162,2,961,0)="""RTN"",""XUMFH"",207,0)"
^XMB(3.9,162,2,962,0)=" .S IENS1=IEN(1)_"",""_IENS,MULT(SEQ)=IENS1"
^XMB(3.9,162,2,963,0)="""RTN"",""XUMFH"",208,0)"
^XMB(3.9,162,2,964,0)=" .S FDA1(IFN,IENS1,.01)=MKEY"
^XMB(3.9,162,2,965,0)="""RTN"",""XUMFH"",209,0)"
^XMB(3.9,162,2,966,0)=" I MULT,MULT'=SEQ S IENS1=$G(MULT(+MULT)) Q:IENS1="""""
^XMB(3.9,162,2,967,0)="""RTN"",""XUMFH"",210,0)"
^XMB(3.9,162,2,968,0)=" S FDA1(IFN,IENS1,FIELD)=VALUE"
^XMB(3.9,162,2,969,0)="""RTN"",""XUMFH"",211,0)"
^XMB(3.9,162,2,970,0)=" ;"
^XMB(3.9,162,2,971,0)="""RTN"",""XUMFH"",212,0)"
^XMB(3.9,162,2,972,0)=" Q"
^XMB(3.9,162,2,973,0)="""RTN"",""XUMFH"",213,0)"
^XMB(3.9,162,2,974,0)=" ;"
^XMB(3.9,162,2,975,0)="""RTN"",""XUMFH"",214,0)"
^XMB(3.9,162,2,976,0)="VALUE() ; -- parse segment"
^XMB(3.9,162,2,977,0)="""RTN"",""XUMFH"",215,0)"
^XMB(3.9,162,2,978,0)=" ;"
^XMB(3.9,162,2,979,0)="""RTN"",""XUMFH"",216,0)"
^XMB(3.9,162,2,980,0)=" N COL"
^XMB(3.9,162,2,981,0)="""RTN"",""XUMFH"",217,0)"
^XMB(3.9,162,2,982,0)=" ;"
^XMB(3.9,162,2,983,0)="""RTN"",""XUMFH"",218,0)"
^XMB(3.9,162,2,984,0)=" D SEGPRSE^XUMFXHL7(""HLNODE"",""COL"")"
^XMB(3.9,162,2,985,0)="""RTN"",""XUMFH"",219,0)"
^XMB(3.9,162,2,986,0)=" ;"
^XMB(3.9,162,2,987,0)="""RTN"",""XUMFH"",220,0)"
^XMB(3.9,162,2,988,0)=" Q:SEQ2 COL($P(SEQ,"".""))"
^XMB(3.9,162,2,989,0)="""RTN"",""XUMFH"",221,0)"
^XMB(3.9,162,2,990,0)=" ;"
^XMB(3.9,162,2,991,0)="""RTN"",""XUMFH"",222,0)"
^XMB(3.9,162,2,992,0)=" Q COL(SEQ)"
^XMB(3.9,162,2,993,0)="""RTN"",""XUMFH"",223,0)"
^XMB(3.9,162,2,994,0)=" ;"
^XMB(3.9,162,2,995,0)="""RTN"",""XUMFH"",224,0)"
^XMB(3.9,162,2,996,0)=" ;"
^XMB(3.9,162,2,997,0)="""RTN"",""XUMFH"",225,0)"
^XMB(3.9,162,2,998,0)="VAL2() ; -- parse component"
^XMB(3.9,162,2,999,0)="""RTN"",""XUMFH"",226,0)"
^XMB(3.9,162,2,1000,0)=" ;"
^XMB(3.9,162,2,1001,0)="""RTN"",""XUMFH"",227,0)"
^XMB(3.9,162,2,1002,0)=" N XXX"
^XMB(3.9,162,2,1003,0)="""RTN"",""XUMFH"",228,0)"
^XMB(3.9,162,2,1004,0)=" ;"
^XMB(3.9,162,2,1005,0)="""RTN"",""XUMFH"",229,0)"
^XMB(3.9,162,2,1006,0)=" D SEQPRSE^XUMFXHL7(""VALUE"",""XXX"")"
^XMB(3.9,162,2,1007,0)="""RTN"",""XUMFH"",230,0)"
^XMB(3.9,162,2,1008,0)=" ;"
^XMB(3.9,162,2,1009,0)="""RTN"",""XUMFH"",231,0)"
^XMB(3.9,162,2,1010,0)=" Q XXX(1,SEQ2)"
^XMB(3.9,162,2,1011,0)="""RTN"",""XUMFH"",232,0)"
^XMB(3.9,162,2,1012,0)=" ;"
^XMB(3.9,162,2,1013,0)="""RTN"",""XUMFH"",233,0)"
^XMB(3.9,162,2,1014,0)=" ;"
^XMB(3.9,162,2,1015,0)="""RTN"",""XUMFH"",234,0)"
^XMB(3.9,162,2,1016,0)="SUBCOMP ; -- subcomponents"
^XMB(3.9,162,2,1017,0)="""RTN"",""XUMFH"",235,0)"
^XMB(3.9,162,2,1018,0)=" ;"
^XMB(3.9,162,2,1019,0)="""RTN"",""XUMFH"",236,0)"
^XMB(3.9,162,2,1020,0)=" S SEQ3=0"
^XMB(3.9,162,2,1021,0)="""RTN"",""XUMFH"",237,0)"
^XMB(3.9,162,2,1022,0)=" F  S SEQ3=$O(^TMP(""XUMF MFS"",$J,""PARAM"",""SEG"",SEG,""SEQ"",SEQ,""HLSCS"",SEQ3)) Q:'SEQ3  D"
^XMB(3.9,162,2,1023,0)="""RTN"",""XUMFH"",238,0)"
^XMB(3.9,162,2,1024,0)=" .S FIELD=$O(^TMP(""XUMF MFS"",$J,""PARAM"",""SEG"",SEG,""SEQ"",SEQ,""HLSCS"",SEQ3,0))"
^XMB(3.9,162,2,1025,0)="""RTN"",""XUMFH"",239,0)"
^XMB(3.9,162,2,1026,0)=" .S TYP=$G(^TMP(""XUMF MFS"",$J,""PARAM"",""SEG"",SEG,""SEQ"",SEQ,""HLSCS"",SEQ3,FIELD))"
^XMB(3.9,162,2,1027,0)="""RTN"",""XUMFH"",240,0)"
^XMB(3.9,162,2,1028,0)=" .S VALUE=$$VALUE()"
^XMB(3.9,162,2,1029,0)="""RTN"",""XUMFH"",241,0)"
^XMB(3.9,162,2,1030,0)=" .S VALUE=$$VAL2()"
^XMB(3.9,162,2,1031,0)="""RTN"",""XUMFH"",242,0)"
^XMB(3.9,162,2,1032,0)=" .S VALUE=$P(VALUE,HLSCS,SEQ3)"
^XMB(3.9,162,2,1033,0)="""RTN"",""XUMFH"",243,0)"
^XMB(3.9,162,2,1034,0)=" .S VALUE=$$DTYP^XUMFP(VALUE,TYP,HLSCS,0)"
^XMB(3.9,162,2,1035,0)="""RTN"",""XUMFH"",244,0)"
^XMB(3.9,162,2,1036,0)=" .S FDA(IFN,IENS,FIELD)=VALUE"
^XMB(3.9,162,2,1037,0)="""RTN"",""XUMFH"",245,0)"
^XMB(3.9,162,2,1038,0)=" ;"
^XMB(3.9,162,2,1039,0)="""RTN"",""XUMFH"",246,0)"
^XMB(3.9,162,2,1040,0)=" Q"
^XMB(3.9,162,2,1041,0)="""RTN"",""XUMFH"",247,0)"
^XMB(3.9,162,2,1042,0)=" ;"
^XMB(3.9,162,2,1043,0)="""RTN"",""XUMFH"",248,0)"
^XMB(3.9,162,2,1044,0)="ARRAY ; -- query data stored in array (not filed)"
^XMB(3.9,162,2,1045,0)="""RTN"",""XUMFH"",249,0)"
^XMB(3.9,162,2,1046,0)=" ;"
^XMB(3.9,162,2,1047,0)="""RTN"",""XUMFH"",250,0)"
^XMB(3.9,162,2,1048,0)=" I $P($G(KEY),HLCS)="""" D  Q"
^XMB(3.9,162,2,1049,0)="""RTN"",""XUMFH"",251,0)"
^XMB(3.9,162,2,1050,0)=" .D EM(""Null KEY found in the following segment: ""_$E(HLNODE,1,80),.ERR)"
^XMB(3.9,162,2,1051,0)="""RTN"",""XUMFH"",252,0)"
^XMB(3.9,162,2,1052,0)=" .S ERROR=ERROR_U_$G(ERR)"
^XMB(3.9,162,2,1053,0)="""RTN"",""XUMFH"",253,0)"
^XMB(3.9,162,2,1054,0)=" ;"
^XMB(3.9,162,2,1055,0)="""RTN"",""XUMFH"",254,0)"
^XMB(3.9,162,2,1056,0)=" M ^TMP(""XUMF ARRAY"",$J,$P(KEY,HLCS))=HLNODE"
^XMB(3.9,162,2,1057,0)="""RTN"",""XUMFH"",255,0)"
^XMB(3.9,162,2,1058,0)=" ;"
^XMB(3.9,162,2,1059,0)="""RTN"",""XUMFH"",256,0)"
^XMB(3.9,162,2,1060,0)=" Q"
^XMB(3.9,162,2,1061,0)="""RTN"",""XUMFH"",257,0)"
^XMB(3.9,162,2,1062,0)=" ;"
^XMB(3.9,162,2,1063,0)="""RTN"",""XUMFH"",258,0)"
^XMB(3.9,162,2,1064,0)="REPLY ; -- master file response"
^XMB(3.9,162,2,1065,0)="""RTN"",""XUMFH"",259,0)"
^XMB(3.9,162,2,1066,0)=" ;"
^XMB(3.9,162,2,1067,0)="""RTN"",""XUMFH"",260,0)"
^XMB(3.9,162,2,1068,0)=" Q:HL(""MTN"")=""MFR"""
^XMB(3.9,162,2,1069,0)="""RTN"",""XUMFH"",261,0)"
^XMB(3.9,162,2,1070,0)=" Q:HL(""MTN"")=""MFK"""
^XMB(3.9,162,2,1071,0)="""RTN"",""XUMFH"",262,0)"
^XMB(3.9,162,2,1072,0)=" Q:HL(""MTN"")=""ACK"""
^XMB(3.9,162,2,1073,0)="""RTN"",""XUMFH"",263,0)"
^XMB(3.9,162,2,1074,0)=" ;"
^XMB(3.9,162,2,1075,0)="""RTN"",""XUMFH"",264,0)"
^XMB(3.9,162,2,1076,0)=" S:(TYPE<10) TYPE=(TYPE+10)"
^XMB(3.9,162,2,1077,0)="""RTN"",""XUMFH"",265,0)"
^XMB(3.9,162,2,1078,0)=" ;"
^XMB(3.9,162,2,1079,0)="""RTN"",""XUMFH"",266,0)"
^XMB(3.9,162,2,1080,0)=" I HL(""MTN"")=""MFQ"" D"
^XMB(3.9,162,2,1081,0)="""RTN"",""XUMFH"",267,0)"
^XMB(3.9,162,2,1082,0)=" .S IFN=+$G(WHAT) I 'IFN D  Q"
^XMB(3.9,162,2,1083,0)="""RTN"",""XUMFH"",268,0)"
^XMB(3.9,162,2,1084,0)=" ..S ERROR=""1^REPLY MFQ couldn't resolve IFN"""
^XMB(3.9,162,2,1085,0)="""RTN"",""XUMFH"",269,0)"
^XMB(3.9,162,2,1086,0)=" ..D EM(ERROR,.ERR)"
^XMB(3.9,162,2,1087,0)="""RTN"",""XUMFH"",270,0)"
^XMB(3.9,162,2,1088,0)=" .S XREF=$P(WHO,HLCS,9),ROOT=$$ROOT^DILFD(IFN,,1)"
^XMB(3.9,162,2,1089,0)="""RTN"",""XUMFH"",271,0)"
^XMB(3.9,162,2,1090,0)=" .S IEN=$O(@ROOT@(XREF,$P(WHO,HLCS),0))"
^XMB(3.9,162,2,1091,0)="""RTN"",""XUMFH"",272,0)"
^XMB(3.9,162,2,1092,0)=" .S IEN=$S(IEN:IEN,1:$P(WHO,HLCS))"
^XMB(3.9,162,2,1093,0)="""RTN"",""XUMFH"",273,0)"
^XMB(3.9,162,2,1094,0)=" ;"
^XMB(3.9,162,2,1095,0)="""RTN"",""XUMFH"",274,0)"
^XMB(3.9,162,2,1096,0)=" S IFN=$G(IFN),IEN=$G(IEN)"
^XMB(3.9,162,2,1097,0)="""RTN"",""XUMFH"",275,0)"
^XMB(3.9,162,2,1098,0)=" ;"
^XMB(3.9,162,2,1099,0)="""RTN"",""XUMFH"",276,0)"
^XMB(3.9,162,2,1100,0)=" D MAIN^XUMFP(IFN,IEN,TYPE,.PARAM,.ERROR)"
^XMB(3.9,162,2,1101,0)="""RTN"",""XUMFH"",277,0)"
^XMB(3.9,162,2,1102,0)=" D MAIN^XUMFI(IFN,IEN,TYPE,.PARAM,.ERROR)"
^XMB(3.9,162,2,1103,0)="""RTN"",""XUMFH"",278,0)"
^XMB(3.9,162,2,1104,0)=" ;"
^XMB(3.9,162,2,1105,0)="""RTN"",""XUMFH"",279,0)"
^XMB(3.9,162,2,1106,0)=" Q"
^XMB(3.9,162,2,1107,0)="""RTN"",""XUMFH"",280,0)"
^XMB(3.9,162,2,1108,0)=" ;"
^XMB(3.9,162,2,1109,0)="""RTN"",""XUMFH"",281,0)"
^XMB(3.9,162,2,1110,0)="EXIT ; -- cleanup, and quit"
^XMB(3.9,162,2,1111,0)="""RTN"",""XUMFH"",282,0)"
^XMB(3.9,162,2,1112,0)=" ;"
^XMB(3.9,162,2,1113,0)="""RTN"",""XUMFH"",283,0)"
^XMB(3.9,162,2,1114,0)=" I $D(^TMP(""XUMF ERROR"",$J)) D EM1 K ^TMP(""XUMF ERROR"",$J)"
^XMB(3.9,162,2,1115,0)="""RTN"",""XUMFH"",284,0)"
^XMB(3.9,162,2,1116,0)=" ;"
^XMB(3.9,162,2,1117,0)="""RTN"",""XUMFH"",285,0)"
^XMB(3.9,162,2,1118,0)=" K ^TMP(""DILIST"",$J),^TMP(""DIERR"",$J),^TMP(""HLS"",$J),^TMP(""HLA"",$J)"
^XMB(3.9,162,2,1119,0)="""RTN"",""XUMFH"",286,0)"
^XMB(3.9,162,2,1120,0)=" ;"
^XMB(3.9,162,2,1121,0)="""RTN"",""XUMFH"",287,0)"
^XMB(3.9,162,2,1122,0)=" Q"
^XMB(3.9,162,2,1123,0)="""RTN"",""XUMFH"",288,0)"
^XMB(3.9,162,2,1124,0)=" ;"
^XMB(3.9,162,2,1125,0)="""RTN"",""XUMFH"",289,0)"
^XMB(3.9,162,2,1126,0)="EM(ERROR,ERR) ; -- error message"
^XMB(3.9,162,2,1127,0)="""RTN"",""XUMFH"",290,0)"
^XMB(3.9,162,2,1128,0)=" ;"
^XMB(3.9,162,2,1129,0)="""RTN"",""XUMFH"",291,0)"
^XMB(3.9,162,2,1130,0)=" N X,I,Y,XMTEXT,FLG"
^XMB(3.9,162,2,1131,0)="""RTN"",""XUMFH"",292,0)"
^XMB(3.9,162,2,1132,0)=" ;"
^XMB(3.9,162,2,1133,0)="""RTN"",""XUMFH"",293,0)"
^XMB(3.9,162,2,1134,0)=" S FLG=0"
^XMB(3.9,162,2,1135,0)="""RTN"",""XUMFH"",294,0)"
^XMB(3.9,162,2,1136,0)=" ;"
^XMB(3.9,162,2,1137,0)="""RTN"",""XUMFH"",295,0)"
^XMB(3.9,162,2,1138,0)=" D MSG^DIALOG(""AM"",.X,80,,""ERR"")"
^XMB(3.9,162,2,1139,0)="""RTN"",""XUMFH"",296,0)"
^XMB(3.9,162,2,1140,0)=" ;"
^XMB(3.9,162,2,1141,0)="""RTN"",""XUMFH"",297,0)"
^XMB(3.9,162,2,1142,0)=" ;S X(.02)="""",X(.03)=$G(ERROR),X(.04)="""""
^XMB(3.9,162,2,1143,0)="""RTN"",""XUMFH"",298,0)"
^XMB(3.9,162,2,1144,0)=" ;"
^XMB(3.9,162,2,1145,0)="""RTN"",""XUMFH"",299,0)"
^XMB(3.9,162,2,1146,0)=" S X=.9 F  S X=$O(X(X)) Q:'X  D"
^XMB(3.9,162,2,1147,0)="""RTN"",""XUMFH"",300,0)"
^XMB(3.9,162,2,1148,0)=" .I X(X)="""" K X(X) Q"
^XMB(3.9,162,2,1149,0)="""RTN"",""XUMFH"",301,0)"
^XMB(3.9,162,2,1150,0)=" .I X(X)[""DINUMed field cannot"" S FLG=1 K X(X) Q"
^XMB(3.9,162,2,1151,0)="""RTN"",""XUMFH"",302,0)"
^XMB(3.9,162,2,1152,0)=" .I X(X)[""ASSOCIATION"" S FLG=1 K X(X) Q"
^XMB(3.9,162,2,1153,0)="""RTN"",""XUMFH"",303,0)"
^XMB(3.9,162,2,1154,0)=" .I X(X)[""INSTITUTION"" S FLG=1 K X(X) Q"
^XMB(3.9,162,2,1155,0)="""RTN"",""XUMFH"",304,0)"
^XMB(3.9,162,2,1156,0)=" ;"
^XMB(3.9,162,2,1157,0)="""RTN"",""XUMFH"",305,0)"
^XMB(3.9,162,2,1158,0)=" I FLG Q:'$O(X(.9))"
^XMB(3.9,162,2,1159,0)="""RTN"",""XUMFH"",306,0)"
^XMB(3.9,162,2,1160,0)=" ;"
^XMB(3.9,162,2,1161,0)="""RTN"",""XUMFH"",307,0)"
^XMB(3.9,162,2,1162,0)=" S ERRCNT=ERRCNT+1"
^XMB(3.9,162,2,1163,0)="""RTN"",""XUMFH"",308,0)"
^XMB(3.9,162,2,1164,0)=" ;"
^XMB(3.9,162,2,1165,0)="""RTN"",""XUMFH"",309,0)"
^XMB(3.9,162,2,1166,0)=" S ^TMP(""XUMF ERROR"",$J,ERRCNT_"".01"")="""""
^XMB(3.9,162,2,1167,0)="""RTN"",""XUMFH"",310,0)"
^XMB(3.9,162,2,1168,0)=" S ^TMP(""XUMF ERROR"",$J,ERRCNT_"".02"")="""""
^XMB(3.9,162,2,1169,0)="""RTN"",""XUMFH"",311,0)"
^XMB(3.9,162,2,1170,0)=" S ^TMP(""XUMF ERROR"",$J,ERRCNT_"".03"")=$G(ERROR)"
^XMB(3.9,162,2,1171,0)="""RTN"",""XUMFH"",312,0)"
^XMB(3.9,162,2,1172,0)=" S ^TMP(""XUMF ERROR"",$J,ERRCNT_"".04"")="""""
^XMB(3.9,162,2,1173,0)="""RTN"",""XUMFH"",313,0)"
^XMB(3.9,162,2,1174,0)=" S ^TMP(""XUMF ERROR"",$J,ERRCNT_"".05"")=""KEY: ""_$G(KEY)_""   IFN: ""_$G(IFN)_""   IEN: ""_$G(IEN)"
^XMB(3.9,162,2,1175,0)="""RTN"",""XUMFH"",314,0)"
^XMB(3.9,162,2,1176,0)=" S ^TMP(""XUMF ERROR"",$J,ERRCNT_"".06"")="""""
^XMB(3.9,162,2,1177,0)="""RTN"",""XUMFH"",315,0)"
^XMB(3.9,162,2,1178,0)=" S X=.9 F  S X=$O(X(X)) Q:'X  D"
^XMB(3.9,162,2,1179,0)="""RTN"",""XUMFH"",316,0)"
^XMB(3.9,162,2,1180,0)=" .S ^TMP(""XUMF ERROR"",$J,ERRCNT_"".""_X)=X(X)"
^XMB(3.9,162,2,1181,0)="""RTN"",""XUMFH"",317,0)"
^XMB(3.9,162,2,1182,0)=" ;"
^XMB(3.9,162,2,1183,0)="""RTN"",""XUMFH"",318,0)"
^XMB(3.9,162,2,1184,0)=" Q"
^XMB(3.9,162,2,1185,0)="""RTN"",""XUMFH"",319,0)"
^XMB(3.9,162,2,1186,0)=" ;"
^XMB(3.9,162,2,1187,0)="""RTN"",""XUMFH"",320,0)"
^XMB(3.9,162,2,1188,0)="EM1 ;"
^XMB(3.9,162,2,1189,0)="""RTN"",""XUMFH"",321,0)"
^XMB(3.9,162,2,1190,0)=" ;"
^XMB(3.9,162,2,1191,0)="""RTN"",""XUMFH"",322,0)"
^XMB(3.9,162,2,1192,0)=" N XMY,XMSUB"
^XMB(3.9,162,2,1193,0)="""RTN"",""XUMFH"",323,0)"
^XMB(3.9,162,2,1194,0)=" ;"
^XMB(3.9,162,2,1195,0)="""RTN"",""XUMFH"",324,0)"
^XMB(3.9,162,2,1196,0)=" S ^TMP(""XUMF ERROR"",$J,.1)=""HL7 message ID: ""_$G(HL(""MID""))"
^XMB(3.9,162,2,1197,0)="""RTN"",""XUMFH"",325,0)"
^XMB(3.9,162,2,1198,0)=" S XMY(""G.XUMF ERROR"")="""",XMSUB=""MFS ERROR"""
^XMB(3.9,162,2,1199,0)="""RTN"",""XUMFH"",326,0)"
^XMB(3.9,162,2,1200,0)=" S XMTEXT=""^TMP(""""XUMF ERROR"""",$J,"""
^XMB(3.9,162,2,1201,0)="""RTN"",""XUMFH"",327,0)"
^XMB(3.9,162,2,1202,0)=" ;"
^XMB(3.9,162,2,1203,0)="""RTN"",""XUMFH"",328,0)"
^XMB(3.9,162,2,1204,0)=" D ^XMD"
^XMB(3.9,162,2,1205,0)="""RTN"",""XUMFH"",329,0)"
^XMB(3.9,162,2,1206,0)=" ;"
^XMB(3.9,162,2,1207,0)="""RTN"",""XUMFH"",330,0)"
^XMB(3.9,162,2,1208,0)=" Q"
^XMB(3.9,162,2,1209,0)="""RTN"",""XUMFH"",331,0)"
^XMB(3.9,162,2,1210,0)=" ;"
^XMB(3.9,162,2,1211,0)="""RTN"",""XUMFP4C"")"
^XMB(3.9,162,2,1212,0)="0^3^B15661298^B15679820"
^XMB(3.9,162,2,1213,0)="""RTN"",""XUMFP4C"",1,0)"
^XMB(3.9,162,2,1214,0)="XUMFP4C ;CIOFO-SF/RAM - Master File C/S Params INSTITUTION ;06/28/00"
^XMB(3.9,162,2,1215,0)="""RTN"",""XUMFP4C"",2,0)"
^XMB(3.9,162,2,1216,0)=" ;;8.0;KERNEL;**206,209,217,270,294,335,390**;Jul 10, 1995"
^XMB(3.9,162,2,1217,0)="""RTN"",""XUMFP4C"",3,0)"
^XMB(3.9,162,2,1218,0)=" ;"
^XMB(3.9,162,2,1219,0)="""RTN"",""XUMFP4C"",4,0)"
^XMB(3.9,162,2,1220,0)=" ; this routine is a called by XUMFP4 and is a continuation of that"
^XMB(3.9,162,2,1221,0)="""RTN"",""XUMFP4C"",5,0)"
^XMB(3.9,162,2,1222,0)=" ; routine"
^XMB(3.9,162,2,1223,0)="""RTN"",""XUMFP4C"",6,0)"
^XMB(3.9,162,2,1224,0)=" ;"
^XMB(3.9,162,2,1225,0)="""RTN"",""XUMFP4C"",7,0)"
^XMB(3.9,162,2,1226,0)="QRD ; -- query definition segment"
^XMB(3.9,162,2,1227,0)="""RTN"",""XUMFP4C"",8,0)"
^XMB(3.9,162,2,1228,0)=" ;"
^XMB(3.9,162,2,1229,0)="""RTN"",""XUMFP4C"",9,0)"
^XMB(3.9,162,2,1230,0)=" ;Query Date/Time"
^XMB(3.9,162,2,1231,0)="""RTN"",""XUMFP4C"",10,0)"
^XMB(3.9,162,2,1232,0)=" I '$D(^TMP(""XUMF MFS"",$J,""PARAM"",""QDT"")) D"
^XMB(3.9,162,2,1233,0)="""RTN"",""XUMFP4C"",11,0)"
^XMB(3.9,162,2,1234,0)=" .S ^TMP(""XUMF MFS"",$J,""PARAM"",""QDT"")=$$HLDATE^HLFNC($$NOW^XLFDT)"
^XMB(3.9,162,2,1235,0)="""RTN"",""XUMFP4C"",12,0)"
^XMB(3.9,162,2,1236,0)=" ;"
^XMB(3.9,162,2,1237,0)="""RTN"",""XUMFP4C"",13,0)"
^XMB(3.9,162,2,1238,0)=" ;Query Format Code"
^XMB(3.9,162,2,1239,0)="""RTN"",""XUMFP4C"",14,0)"
^XMB(3.9,162,2,1240,0)=" I '$D(^TMP(""XUMF MFS"",$J,""PARAM"",""QFC"")) D"
^XMB(3.9,162,2,1241,0)="""RTN"",""XUMFP4C"",15,0)"
^XMB(3.9,162,2,1242,0)=" .S ^TMP(""XUMF MFS"",$J,""PARAM"",""QFC"")=""R"""
^XMB(3.9,162,2,1243,0)="""RTN"",""XUMFP4C"",16,0)"
^XMB(3.9,162,2,1244,0)=" ;"
^XMB(3.9,162,2,1245,0)="""RTN"",""XUMFP4C"",17,0)"
^XMB(3.9,162,2,1246,0)=" ;Query Priority"
^XMB(3.9,162,2,1247,0)="""RTN"",""XUMFP4C"",18,0)"
^XMB(3.9,162,2,1248,0)=" I '$D(^TMP(""XUMF MFS"",$J,""PARAM"",""QP"")) D"
^XMB(3.9,162,2,1249,0)="""RTN"",""XUMFP4C"",19,0)"
^XMB(3.9,162,2,1250,0)=" .S ^TMP(""XUMF MFS"",$J,""PARAM"",""QP"")=""I"""
^XMB(3.9,162,2,1251,0)="""RTN"",""XUMFP4C"",20,0)"
^XMB(3.9,162,2,1252,0)=" ;"
^XMB(3.9,162,2,1253,0)="""RTN"",""XUMFP4C"",21,0)"
^XMB(3.9,162,2,1254,0)=" ;Query ID"
^XMB(3.9,162,2,1255,0)="""RTN"",""XUMFP4C"",22,0)"
^XMB(3.9,162,2,1256,0)=" I '$D(^TMP(""XUMF MFS"",$J,""PARAM"",""QID"")) D"
^XMB(3.9,162,2,1257,0)="""RTN"",""XUMFP4C"",23,0)"
^XMB(3.9,162,2,1258,0)=" .S ^TMP(""XUMF MFS"",$J,""PARAM"",""QID"")=""Z04 ""_$S(ARRAY:""ARRAY"",1:""FILE"")"
^XMB(3.9,162,2,1259,0)="""RTN"",""XUMFP4C"",24,0)"
^XMB(3.9,162,2,1260,0)=" ;"
^XMB(3.9,162,2,1261,0)="""RTN"",""XUMFP4C"",25,0)"
^XMB(3.9,162,2,1262,0)=" ;Deferred Response Type (optional)"
^XMB(3.9,162,2,1263,0)="""RTN"",""XUMFP4C"",26,0)"
^XMB(3.9,162,2,1264,0)=" I '$D(^TMP(""XUMF MFS"",$J,""PARAM"",""DRT"")) D"
^XMB(3.9,162,2,1265,0)="""RTN"",""XUMFP4C"",27,0)"
^XMB(3.9,162,2,1266,0)=" .S ^TMP(""XUMF MFS"",$J,""PARAM"",""DRT"")="""""
^XMB(3.9,162,2,1267,0)="""RTN"",""XUMFP4C"",28,0)"
^XMB(3.9,162,2,1268,0)=" ;"
^XMB(3.9,162,2,1269,0)="""RTN"",""XUMFP4C"",29,0)"
^XMB(3.9,162,2,1270,0)=" ;Deferred Response Date/Time (optional)"
^XMB(3.9,162,2,1271,0)="""RTN"",""XUMFP4C"",30,0)"
^XMB(3.9,162,2,1272,0)=" I '$D(^TMP(""XUMF MFS"",$J,""PARAM"",""DRDT"")) D"
^XMB(3.9,162,2,1273,0)="""RTN"",""XUMFP4C"",31,0)"
^XMB(3.9,162,2,1274,0)=" .S ^TMP(""XUMF MFS"",$J,""PARAM"",""DRDT"")="""""
^XMB(3.9,162,2,1275,0)="""RTN"",""XUMFP4C"",32,0)"
^XMB(3.9,162,2,1276,0)=" ;"
^XMB(3.9,162,2,1277,0)="""RTN"",""XUMFP4C"",33,0)"
^XMB(3.9,162,2,1278,0)=" ;Quantity Limited Request"
^XMB(3.9,162,2,1279,0)="""RTN"",""XUMFP4C"",34,0)"
^XMB(3.9,162,2,1280,0)=" I '$D(^TMP(""XUMF MFS"",$J,""PARAM"",""QLR"")) D"
^XMB(3.9,162,2,1281,0)="""RTN"",""XUMFP4C"",35,0)"
^XMB(3.9,162,2,1282,0)=" .S ^TMP(""XUMF MFS"",$J,""PARAM"",""QLR"")=""RD""_HLCS_999"
^XMB(3.9,162,2,1283,0)="""RTN"",""XUMFP4C"",36,0)"
^XMB(3.9,162,2,1284,0)=" ;"
^XMB(3.9,162,2,1285,0)="""RTN"",""XUMFP4C"",37,0)"
^XMB(3.9,162,2,1286,0)=" ;Who Subject Filter - sta#, D x-ref, assigning facility"
^XMB(3.9,162,2,1287,0)="""RTN"",""XUMFP4C"",38,0)"
^XMB(3.9,162,2,1288,0)=" I '$D(^TMP(""XUMF MFS"",$J,""PARAM"",""WHO"")) D"
^XMB(3.9,162,2,1289,0)="""RTN"",""XUMFP4C"",39,0)"
^XMB(3.9,162,2,1290,0)=" .N X S X=$S(ALL:""ALL"",IEN:$P($G(^DIC(4,+IEN,99)),U),1:""IEN ARRAY"")"
^XMB(3.9,162,2,1291,0)="""RTN"",""XUMFP4C"",40,0)"
^XMB(3.9,162,2,1292,0)=" .S $P(X,HLCS,9,10)=""D""_HLCS_""045A4"""
^XMB(3.9,162,2,1293,0)="""RTN"",""XUMFP4C"",41,0)"
^XMB(3.9,162,2,1294,0)=" .S:$G(CDSYS)'="""" $P(X,HLCS,9,10)=CDSYS_HLCS_"""""
^XMB(3.9,162,2,1295,0)="""RTN"",""XUMFP4C"",42,0)"
^XMB(3.9,162,2,1296,0)=" .S ^TMP(""XUMF MFS"",$J,""PARAM"",""WHO"")=X"
^XMB(3.9,162,2,1297,0)="""RTN"",""XUMFP4C"",43,0)"
^XMB(3.9,162,2,1298,0)=" ;"
^XMB(3.9,162,2,1299,0)="""RTN"",""XUMFP4C"",44,0)"
^XMB(3.9,162,2,1300,0)=" ;What Subject Filter"
^XMB(3.9,162,2,1301,0)="""RTN"",""XUMFP4C"",45,0)"
^XMB(3.9,162,2,1302,0)=" I '$D(^TMP(""XUMF MFS"",$J,""PARAM"",""WHAT"")) D"
^XMB(3.9,162,2,1303,0)="""RTN"",""XUMFP4C"",46,0)"
^XMB(3.9,162,2,1304,0)=" .S ^TMP(""XUMF MFS"",$J,""PARAM"",""WHAT"")=""4""_HLCS_""IFN""_HLCS_""VA FM"""
^XMB(3.9,162,2,1305,0)="""RTN"",""XUMFP4C"",47,0)"
^XMB(3.9,162,2,1306,0)=" ;"
^XMB(3.9,162,2,1307,0)="""RTN"",""XUMFP4C"",48,0)"
^XMB(3.9,162,2,1308,0)=" ;What Department Data Code"
^XMB(3.9,162,2,1309,0)="""RTN"",""XUMFP4C"",49,0)"
^XMB(3.9,162,2,1310,0)=" I '$D(^TMP(""XUMF MFS"",$J,""PARAM"",""WDDC"")) D"
^XMB(3.9,162,2,1311,0)="""RTN"",""XUMFP4C"",50,0)"
^XMB(3.9,162,2,1312,0)=" .N X S X=""INFRASTRUCTURE""_HLCS_""INFORMATION INFRASTRUCTURE"""
^XMB(3.9,162,2,1313,0)="""RTN"",""XUMFP4C"",51,0)"
^XMB(3.9,162,2,1314,0)=" .S X=X_HLCS_""VA TS"""
^XMB(3.9,162,2,1315,0)="""RTN"",""XUMFP4C"",52,0)"
^XMB(3.9,162,2,1316,0)=" .S ^TMP(""XUMF MFS"",$J,""PARAM"",""WDDC"")=X"
^XMB(3.9,162,2,1317,0)="""RTN"",""XUMFP4C"",53,0)"
^XMB(3.9,162,2,1318,0)=" ;"
^XMB(3.9,162,2,1319,0)="""RTN"",""XUMFP4C"",54,0)"
^XMB(3.9,162,2,1320,0)=" ;What Data Code Value Qual (optional)"
^XMB(3.9,162,2,1321,0)="""RTN"",""XUMFP4C"",55,0)"
^XMB(3.9,162,2,1322,0)=" I '$D(^TMP(""XUMF MFS"",$J,""PARAM"",""WDCVQ"")) D"
^XMB(3.9,162,2,1323,0)="""RTN"",""XUMFP4C"",56,0)"
^XMB(3.9,162,2,1324,0)=" .S ^TMP(""XUMF MFS"",$J,""PARAM"",""WDCVQ"")="""""
^XMB(3.9,162,2,1325,0)="""RTN"",""XUMFP4C"",57,0)"
^XMB(3.9,162,2,1326,0)=" ;"
^XMB(3.9,162,2,1327,0)="""RTN"",""XUMFP4C"",58,0)"
^XMB(3.9,162,2,1328,0)=" ;Query Results Level (optional)"
^XMB(3.9,162,2,1329,0)="""RTN"",""XUMFP4C"",59,0)"
^XMB(3.9,162,2,1330,0)=" I '$D(^TMP(""XUMF MFS"",$J,""PARAM"",""QRL"")) D"
^XMB(3.9,162,2,1331,0)="""RTN"",""XUMFP4C"",60,0)"
^XMB(3.9,162,2,1332,0)=" .S ^TMP(""XUMF MFS"",$J,""PARAM"",""QRL"")="""""
^XMB(3.9,162,2,1333,0)="""RTN"",""XUMFP4C"",61,0)"
^XMB(3.9,162,2,1334,0)=" ;"
^XMB(3.9,162,2,1335,0)="""RTN"",""XUMFP4C"",62,0)"
^XMB(3.9,162,2,1336,0)=" Q"
^XMB(3.9,162,2,1337,0)="""RTN"",""XUMFP4C"",63,0)"
^XMB(3.9,162,2,1338,0)=" ;"
^XMB(3.9,162,2,1339,0)="""RTN"",""XUMFP4C"",64,0)"
^XMB(3.9,162,2,1340,0)="PRE ; -- pre-update record"
^XMB(3.9,162,2,1341,0)="""RTN"",""XUMFP4C"",65,0)"
^XMB(3.9,162,2,1342,0)=" ;"
^XMB(3.9,162,2,1343,0)="""RTN"",""XUMFP4C"",66,0)"
^XMB(3.9,162,2,1344,0)=" D PRE^XUMFR"
^XMB(3.9,162,2,1345,0)="""RTN"",""XUMFP4C"",67,0)"
^XMB(3.9,162,2,1346,0)=" ;"
^XMB(3.9,162,2,1347,0)="""RTN"",""XUMFP4C"",68,0)"
^XMB(3.9,162,2,1348,0)=" D IFF(IEN)"
^XMB(3.9,162,2,1349,0)="""RTN"",""XUMFP4C"",69,0)"
^XMB(3.9,162,2,1350,0)=" ;"
^XMB(3.9,162,2,1351,0)="""RTN"",""XUMFP4C"",70,0)"
^XMB(3.9,162,2,1352,0)=" Q"
^XMB(3.9,162,2,1353,0)="""RTN"",""XUMFP4C"",71,0)"
^XMB(3.9,162,2,1354,0)=" ;"
^XMB(3.9,162,2,1355,0)="""RTN"",""XUMFP4C"",72,0)"
^XMB(3.9,162,2,1356,0)="POST ; -- post-update record"
^XMB(3.9,162,2,1357,0)="""RTN"",""XUMFP4C"",73,0)"
^XMB(3.9,162,2,1358,0)=" ;"
^XMB(3.9,162,2,1359,0)="""RTN"",""XUMFP4C"",74,0)"
^XMB(3.9,162,2,1360,0)=" D POST^XUMFR"
^XMB(3.9,162,2,1361,0)="""RTN"",""XUMFP4C"",75,0)"
^XMB(3.9,162,2,1362,0)=" ;"
^XMB(3.9,162,2,1363,0)="""RTN"",""XUMFP4C"",76,0)"
^XMB(3.9,162,2,1364,0)=" Q"
^XMB(3.9,162,2,1365,0)="""RTN"",""XUMFP4C"",77,0)"
^XMB(3.9,162,2,1366,0)=" ;"
^XMB(3.9,162,2,1367,0)="""RTN"",""XUMFP4C"",78,0)"
^XMB(3.9,162,2,1368,0)="GROUP ; -- query group"
^XMB(3.9,162,2,1369,0)="""RTN"",""XUMFP4C"",79,0)"
^XMB(3.9,162,2,1370,0)=" ;"
^XMB(3.9,162,2,1371,0)="""RTN"",""XUMFP4C"",80,0)"
^XMB(3.9,162,2,1372,0)=" S IEN=0"
^XMB(3.9,162,2,1373,0)="""RTN"",""XUMFP4C"",81,0)"
^XMB(3.9,162,2,1374,0)=" F  S IEN=$O(^TMP(""XUMF MFS"",$J,""PARAM"",""IEN"",IEN)) Q:'IEN  D"
^XMB(3.9,162,2,1375,0)="""RTN"",""XUMFP4C"",82,0)"
^XMB(3.9,162,2,1376,0)=" .I '$G(^DIC(4,IEN,99)) D"
^XMB(3.9,162,2,1377,0)="""RTN"",""XUMFP4C"",83,0)"
^XMB(3.9,162,2,1378,0)=" ..S PKV=""NEW""_HLCS_""STATION NUMBER""_HLCS_""D"""
^XMB(3.9,162,2,1379,0)="""RTN"",""XUMFP4C"",84,0)"
^XMB(3.9,162,2,1380,0)=" .I $G(^DIC(4,IEN,99)) D"
^XMB(3.9,162,2,1381,0)="""RTN"",""XUMFP4C"",85,0)"
^XMB(3.9,162,2,1382,0)=" ..S PKV=$P(^DIC(4,IEN,99),U)_HLCS_""STATION NUMBER""_HLCS_""D"""
^XMB(3.9,162,2,1383,0)="""RTN"",""XUMFP4C"",86,0)"
^XMB(3.9,162,2,1384,0)=" .I CDSYS'="""" D"
^XMB(3.9,162,2,1385,0)="""RTN"",""XUMFP4C"",87,0)"
^XMB(3.9,162,2,1386,0)=" ..S $P(PKV,HLCS,1)=^TMP(""XUMF MFS"",$J,""PARAM"",""IEN"",IEN)"
^XMB(3.9,162,2,1387,0)="""RTN"",""XUMFP4C"",88,0)"
^XMB(3.9,162,2,1388,0)=" ..S $P(PKV,HLCS,2)=$P($G(^DIC(4,+IEN,0)),U),$P(PKV,HLCS,3)=CDSYS"
^XMB(3.9,162,2,1389,0)="""RTN"",""XUMFP4C"",89,0)"
^XMB(3.9,162,2,1390,0)=" .S ^TMP(""XUMF MFS"",$J,""PARAM"",IEN,""PKV"")=PKV"
^XMB(3.9,162,2,1391,0)="""RTN"",""XUMFP4C"",90,0)"
^XMB(3.9,162,2,1392,0)=" .I '$P($G(^DIC(4,+IEN,99)),U,4) D"
^XMB(3.9,162,2,1393,0)="""RTN"",""XUMFP4C"",91,0)"
^XMB(3.9,162,2,1394,0)=" ..S ^TMP(""XUMF MFS"",$J,""PARAM"",IEN,""IENS"",""ZIN"",8)=""1,""_IEN_"","""
^XMB(3.9,162,2,1395,0)="""RTN"",""XUMFP4C"",92,0)"
^XMB(3.9,162,2,1396,0)=" ..S ^TMP(""XUMF MFS"",$J,""PARAM"",IEN,""KEY"",""ZIN"",4.014,""1,""_IEN_"","")=""VISN"""
^XMB(3.9,162,2,1397,0)="""RTN"",""XUMFP4C"",93,0)"
^XMB(3.9,162,2,1398,0)=" ..S ^TMP(""XUMF MFS"",$J,""PARAM"",IEN,""IENS"",""ZIN"",9)=""2,""_IEN_"","""
^XMB(3.9,162,2,1399,0)="""RTN"",""XUMFP4C"",94,0)"
^XMB(3.9,162,2,1400,0)=" ..S ^TMP(""XUMF MFS"",$J,""PARAM"",IEN,""KEY"",""ZIN"",4.014,""2,""_IEN_"","")=""PARENT FACILITY"""
^XMB(3.9,162,2,1401,0)="""RTN"",""XUMFP4C"",95,0)"
^XMB(3.9,162,2,1402,0)=" .S RF=$$RF^XUAF4(IEN) D:RF"
^XMB(3.9,162,2,1403,0)="""RTN"",""XUMFP4C"",96,0)"
^XMB(3.9,162,2,1404,0)=" ..S ^TMP(""XUMF MFS"",$J,""PARAM"",IEN,""IENS"",""ZIN"",10)=$P(RF,U,3)_"",""_IEN_"","""
^XMB(3.9,162,2,1405,0)="""RTN"",""XUMFP4C"",97,0)"
^XMB(3.9,162,2,1406,0)=" ..S ^TMP(""XUMF MFS"",$J,""PARAM"",IEN,""IENS"",""ZIN"",11)=$P(RF,U,3)_"",""_IEN_"","""
^XMB(3.9,162,2,1407,0)="""RTN"",""XUMFP4C"",98,0)"
^XMB(3.9,162,2,1408,0)=" ..S ^TMP(""XUMF MFS"",$J,""PARAM"",IEN,""KEY"",""ZIN"",4.999,$P(RF,U,3)_"",""_IEN_"","")=$P(RF,U,3)"
^XMB(3.9,162,2,1409,0)="""RTN"",""XUMFP4C"",99,0)"
^XMB(3.9,162,2,1410,0)=" .S RT=$$RT^XUAF4(IEN) D:RT"
^XMB(3.9,162,2,1411,0)="""RTN"",""XUMFP4C"",100,0)"
^XMB(3.9,162,2,1412,0)=" ..S ^TMP(""XUMF MFS"",$J,""PARAM"",IEN,""IENS"",""ZIN"",12)=$P(RT,U,3)_"",""_IEN_"","""
^XMB(3.9,162,2,1413,0)="""RTN"",""XUMFP4C"",101,0)"
^XMB(3.9,162,2,1414,0)=" ..S ^TMP(""XUMF MFS"",$J,""PARAM"",IEN,""IENS"",""ZIN"",13)=$P(RT,U,3)_"",""_IEN_"","""
^XMB(3.9,162,2,1415,0)="""RTN"",""XUMFP4C"",102,0)"
^XMB(3.9,162,2,1416,0)=" ..S ^TMP(""XUMF MFS"",$J,""PARAM"",IEN,""KEY"",""ZIN"",4.999,$P(RT,U,3)_"",""_IEN_"","")=$P(RT,U,3)"
^XMB(3.9,162,2,1417,0)="""RTN"",""XUMFP4C"",103,0)"
^XMB(3.9,162,2,1418,0)=" ;"
^XMB(3.9,162,2,1419,0)="""RTN"",""XUMFP4C"",104,0)"
^XMB(3.9,162,2,1420,0)=" Q"
^XMB(3.9,162,2,1421,0)="""RTN"",""XUMFP4C"",105,0)"
^XMB(3.9,162,2,1422,0)=" ;"
^XMB(3.9,162,2,1423,0)="""RTN"",""XUMFP4C"",106,0)"
^XMB(3.9,162,2,1424,0)="IFF(IEN) ; -- inactive facility remove VISN and parent association"
^XMB(3.9,162,2,1425,0)="""RTN"",""XUMFP4C"",107,0)"
^XMB(3.9,162,2,1426,0)=" ;"
^XMB(3.9,162,2,1427,0)="""RTN"",""XUMFP4C"",108,0)"
^XMB(3.9,162,2,1428,0)=" N FDA,IENS,XUMF"
^XMB(3.9,162,2,1429,0)="""RTN"",""XUMFP4C"",109,0)"
^XMB(3.9,162,2,1430,0)=" ;"
^XMB(3.9,162,2,1431,0)="""RTN"",""XUMFP4C"",110,0)"
^XMB(3.9,162,2,1432,0)=" S XUMF=1"
^XMB(3.9,162,2,1433,0)="""RTN"",""XUMFP4C"",111,0)"
^XMB(3.9,162,2,1434,0)=" ;"
^XMB(3.9,162,2,1435,0)="""RTN"",""XUMFP4C"",112,0)"
^XMB(3.9,162,2,1436,0)=" S IENS=""1,""_IEN_"","""
^XMB(3.9,162,2,1437,0)="""RTN"",""XUMFP4C"",113,0)"
^XMB(3.9,162,2,1438,0)=" S FDA(4.014,IENS,.01)=""@"""
^XMB(3.9,162,2,1439,0)="""RTN"",""XUMFP4C"",114,0)"
^XMB(3.9,162,2,1440,0)=" S IENS=""2,""_IEN_"","""
^XMB(3.9,162,2,1441,0)="""RTN"",""XUMFP4C"",115,0)"
^XMB(3.9,162,2,1442,0)=" S FDA(4.014,IENS,.01)=""@"""
^XMB(3.9,162,2,1443,0)="""RTN"",""XUMFP4C"",116,0)"
^XMB(3.9,162,2,1444,0)=" D FILE^DIE(""E"",""FDA"")"
^XMB(3.9,162,2,1445,0)="""RTN"",""XUMFP4C"",117,0)"
^XMB(3.9,162,2,1446,0)=" ;"
^XMB(3.9,162,2,1447,0)="""RTN"",""XUMFP4C"",118,0)"
^XMB(3.9,162,2,1448,0)=" Q"
^XMB(3.9,162,2,1449,0)="""RTN"",""XUMFP4C"",119,0)"
^XMB(3.9,162,2,1450,0)=" ;"
^XMB(3.9,162,2,1451,0)="""VER"")"
^XMB(3.9,162,2,1452,0)="8.0^22.0"
^XMB(3.9,162,2,1453,0)="""BLD"",6409,6)"
^XMB(3.9,162,2,1454,0)="^342"
^XMB(3.9,162,2,1455,0)="$END KID XU*8.0*390"
^XMB(3.9,162,6,0)="^3.911A^2^2"
^XMB(3.9,162,6,1,0)="POSTMASTER"
^XMB(3.9,162,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,162,6,"B","POSTMASTER",1)=""
^XMB(3.9,162,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,163,0)="XU-8_SEQ-343_PAT-420.KID^.5^3061008.015743^^^^K"
^XMB(3.9,163,.6)="3061008"
^XMB(3.9,163,1,0)="^3.91A^2^2"
^XMB(3.9,163,1,1,0)=".5^0^3061008.015743^^^^^^^3061008.015743"
^XMB(3.9,163,1,2,0)="1^0^3061008.02292^^^^^^^3061008.02292"
^XMB(3.9,163,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,163,1,"C",.5,1)=""
^XMB(3.9,163,1,"C",1,2)=""
^XMB(3.9,163,2,0)="^^2543^2543^3061008"
^XMB(3.9,163,2,1,0)="$TXT Released XU*8*420 SEQ #343"
^XMB(3.9,163,2,2,0)="Extracted from mail message"
^XMB(3.9,163,2,3,0)="$END TXT"
^XMB(3.9,163,2,4,0)="$KID XU*8.0*420"
^XMB(3.9,163,2,5,0)="**INSTALL NAME**"
^XMB(3.9,163,2,6,0)="XU*8.0*420"
^XMB(3.9,163,2,7,0)="""BLD"",941,0)"
^XMB(3.9,163,2,8,0)="XU*8.0*420^KERNEL^0^3060726^y"
^XMB(3.9,163,2,9,0)="""BLD"",941,1,0)"
^XMB(3.9,163,2,10,0)="^^1^1^3060726^^^^"
^XMB(3.9,163,2,11,0)="""BLD"",941,1,1,0)"
^XMB(3.9,163,2,12,0)="XU*8*420 - Please refer to the patch description in FORUM for details"
^XMB(3.9,163,2,13,0)="""BLD"",941,4,0)"
^XMB(3.9,163,2,14,0)="^9.64PA^200^2"
^XMB(3.9,163,2,15,0)="""BLD"",941,4,4,0)"
^XMB(3.9,163,2,16,0)="4"
^XMB(3.9,163,2,17,0)="""BLD"",941,4,4,2,0)"
^XMB(3.9,163,2,18,0)="^9.641^4.042^2"
^XMB(3.9,163,2,19,0)="""BLD"",941,4,4,2,4,0)"
^XMB(3.9,163,2,20,0)="INSTITUTION  (File-top level)"
^XMB(3.9,163,2,21,0)="""BLD"",941,4,4,2,4,1,0)"
^XMB(3.9,163,2,22,0)="^9.6411^41.99^1"
^XMB(3.9,163,2,23,0)="""BLD"",941,4,4,2,4,1,41.99,0)"
^XMB(3.9,163,2,24,0)="NPI"
^XMB(3.9,163,2,25,0)="""BLD"",941,4,4,2,4.042,0)"
^XMB(3.9,163,2,26,0)="EFFECTIVE DATE/TIME  (sub-file)"
^XMB(3.9,163,2,27,0)="""BLD"",941,4,4,2,4.042,1,0)"
^XMB(3.9,163,2,28,0)="^9.6411^^"
^XMB(3.9,163,2,29,0)="""BLD"",941,4,4,222)"
^XMB(3.9,163,2,30,0)="y^n^p^^^^n^^n"
^XMB(3.9,163,2,31,0)="""BLD"",941,4,4,224)"
^XMB(3.9,163,2,32,0)=""
^XMB(3.9,163,2,33,0)="""BLD"",941,4,200,0)"
^XMB(3.9,163,2,34,0)="200"
^XMB(3.9,163,2,35,0)="""BLD"",941,4,200,2,0)"
^XMB(3.9,163,2,36,0)="^9.641^200.042^2"
^XMB(3.9,163,2,37,0)="""BLD"",941,4,200,2,200,0)"
^XMB(3.9,163,2,38,0)="NEW PERSON  (File-top level)"
^XMB(3.9,163,2,39,0)="""BLD"",941,4,200,2,200,1,0)"
^XMB(3.9,163,2,40,0)="^9.6411^41.98^2"
^XMB(3.9,163,2,41,0)="""BLD"",941,4,200,2,200,1,41.98,0)"
^XMB(3.9,163,2,42,0)="NPI ENTRY STATUS"
^XMB(3.9,163,2,43,0)="""BLD"",941,4,200,2,200,1,41.99,0)"
^XMB(3.9,163,2,44,0)="NPI"
^XMB(3.9,163,2,45,0)="""BLD"",941,4,200,2,200.042,0)"
^XMB(3.9,163,2,46,0)="EFFECTIVE DATE/TIME  (sub-file)"
^XMB(3.9,163,2,47,0)="""BLD"",941,4,200,2,200.042,1,0)"
^XMB(3.9,163,2,48,0)="^9.6411^^"
^XMB(3.9,163,2,49,0)="""BLD"",941,4,200,222)"
^XMB(3.9,163,2,50,0)="y^n^p^^^^n^^n"
^XMB(3.9,163,2,51,0)="""BLD"",941,4,200,224)"
^XMB(3.9,163,2,52,0)=""
^XMB(3.9,163,2,53,0)="""BLD"",941,4,""APDD"",4,4)"
^XMB(3.9,163,2,54,0)=""
^XMB(3.9,163,2,55,0)="""BLD"",941,4,""APDD"",4,4,41.99)"
^XMB(3.9,163,2,56,0)=""
^XMB(3.9,163,2,57,0)="""BLD"",941,4,""APDD"",4,4.042)"
^XMB(3.9,163,2,58,0)=""
^XMB(3.9,163,2,59,0)="""BLD"",941,4,""APDD"",200,200)"
^XMB(3.9,163,2,60,0)=""
^XMB(3.9,163,2,61,0)="""BLD"",941,4,""APDD"",200,200,41.98)"
^XMB(3.9,163,2,62,0)=""
^XMB(3.9,163,2,63,0)="""BLD"",941,4,""APDD"",200,200,41.99)"
^XMB(3.9,163,2,64,0)=""
^XMB(3.9,163,2,65,0)="""BLD"",941,4,""APDD"",200,200.042)"
^XMB(3.9,163,2,66,0)=""
^XMB(3.9,163,2,67,0)="""BLD"",941,4,""B"",4,4)"
^XMB(3.9,163,2,68,0)=""
^XMB(3.9,163,2,69,0)="""BLD"",941,4,""B"",200,200)"
^XMB(3.9,163,2,70,0)=""
^XMB(3.9,163,2,71,0)="""BLD"",941,6.3)"
^XMB(3.9,163,2,72,0)="20"
^XMB(3.9,163,2,73,0)="""BLD"",941,""INIT"")"
^XMB(3.9,163,2,74,0)="POST^XU8P420"
^XMB(3.9,163,2,75,0)="""BLD"",941,""KRN"",0)"
^XMB(3.9,163,2,76,0)="^9.67PA^8989.52^19"
^XMB(3.9,163,2,77,0)="""BLD"",941,""KRN"",.4,0)"
^XMB(3.9,163,2,78,0)=".4"
^XMB(3.9,163,2,79,0)="""BLD"",941,""KRN"",.401,0)"
^XMB(3.9,163,2,80,0)=".401"
^XMB(3.9,163,2,81,0)="""BLD"",941,""KRN"",.402,0)"
^XMB(3.9,163,2,82,0)=".402"
^XMB(3.9,163,2,83,0)="""BLD"",941,""KRN"",.403,0)"
^XMB(3.9,163,2,84,0)=".403"
^XMB(3.9,163,2,85,0)="""BLD"",941,""KRN"",.5,0)"
^XMB(3.9,163,2,86,0)=".5"
^XMB(3.9,163,2,87,0)="""BLD"",941,""KRN"",.84,0)"
^XMB(3.9,163,2,88,0)=".84"
^XMB(3.9,163,2,89,0)="""BLD"",941,""KRN"",3.6,0)"
^XMB(3.9,163,2,90,0)="3.6"
^XMB(3.9,163,2,91,0)="""BLD"",941,""KRN"",3.8,0)"
^XMB(3.9,163,2,92,0)="3.8"
^XMB(3.9,163,2,93,0)="""BLD"",941,""KRN"",9.2,0)"
^XMB(3.9,163,2,94,0)="9.2"
^XMB(3.9,163,2,95,0)="""BLD"",941,""KRN"",9.8,0)"
^XMB(3.9,163,2,96,0)="9.8"
^XMB(3.9,163,2,97,0)="""BLD"",941,""KRN"",9.8,""NM"",0)"
^XMB(3.9,163,2,98,0)="^9.68A^5^5"
^XMB(3.9,163,2,99,0)="""BLD"",941,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,163,2,100,0)="XU8P420^^0^B3428730"
^XMB(3.9,163,2,101,0)="""BLD"",941,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,163,2,102,0)="XUSNPIE1^^0^B89054280"
^XMB(3.9,163,2,103,0)="""BLD"",941,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,163,2,104,0)="XUSNPIED^^0^B59937422"
^XMB(3.9,163,2,105,0)="""BLD"",941,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,163,2,106,0)="XUSNPIDA^^0^B45390858"
^XMB(3.9,163,2,107,0)="""BLD"",941,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,163,2,108,0)="XUSNPIUT^^0^B18048162"
^XMB(3.9,163,2,109,0)="""BLD"",941,""KRN"",9.8,""NM"",""B"",""XU8P420"",1)"
^XMB(3.9,163,2,110,0)=""
^XMB(3.9,163,2,111,0)="""BLD"",941,""KRN"",9.8,""NM"",""B"",""XUSNPIDA"",4)"
^XMB(3.9,163,2,112,0)=""
^XMB(3.9,163,2,113,0)="""BLD"",941,""KRN"",9.8,""NM"",""B"",""XUSNPIE1"",2)"
^XMB(3.9,163,2,114,0)=""
^XMB(3.9,163,2,115,0)="""BLD"",941,""KRN"",9.8,""NM"",""B"",""XUSNPIED"",3)"
^XMB(3.9,163,2,116,0)=""
^XMB(3.9,163,2,117,0)="""BLD"",941,""KRN"",9.8,""NM"",""B"",""XUSNPIUT"",5)"
^XMB(3.9,163,2,118,0)=""
^XMB(3.9,163,2,119,0)="""BLD"",941,""KRN"",19,0)"
^XMB(3.9,163,2,120,0)="19"
^XMB(3.9,163,2,121,0)="""BLD"",941,""KRN"",19,""NM"",0)"
^XMB(3.9,163,2,122,0)="^9.68A^7^7"
^XMB(3.9,163,2,123,0)="""BLD"",941,""KRN"",19,""NM"",1,0)"
^XMB(3.9,163,2,124,0)="XUS NPI CBO LIST^^0"
^XMB(3.9,163,2,125,0)="""BLD"",941,""KRN"",19,""NM"",2,0)"
^XMB(3.9,163,2,126,0)="XUS NPI PROVIDER SELF ENTRY^^0"
^XMB(3.9,163,2,127,0)="""BLD"",941,""KRN"",19,""NM"",3,0)"
^XMB(3.9,163,2,128,0)="XUS NPI ENTER NPI FOR PROVIDER^^0"
^XMB(3.9,163,2,129,0)="""BLD"",941,""KRN"",19,""NM"",4,0)"
^XMB(3.9,163,2,130,0)="XUS NPI EXEMPT PROVIDER^^0"
^XMB(3.9,163,2,131,0)="""BLD"",941,""KRN"",19,""NM"",5,0)"
^XMB(3.9,163,2,132,0)="XUS NPI LOCAL REPORTS^^0"
^XMB(3.9,163,2,133,0)="""BLD"",941,""KRN"",19,""NM"",6,0)"
^XMB(3.9,163,2,134,0)="XUS NPI MENU^^0"
^XMB(3.9,163,2,135,0)="""BLD"",941,""KRN"",19,""NM"",7,0)"
^XMB(3.9,163,2,136,0)="XUS NPI SIGNON CHECK^^0"
^XMB(3.9,163,2,137,0)="""BLD"",941,""KRN"",19,""NM"",""B"",""XUS NPI CBO LIST"",1)"
^XMB(3.9,163,2,138,0)=""
^XMB(3.9,163,2,139,0)="""BLD"",941,""KRN"",19,""NM"",""B"",""XUS NPI ENTER NPI FOR PROVIDER"",3)"
^XMB(3.9,163,2,140,0)=""
^XMB(3.9,163,2,141,0)="""BLD"",941,""KRN"",19,""NM"",""B"",""XUS NPI EXEMPT PROVIDER"",4)"
^XMB(3.9,163,2,142,0)=""
^XMB(3.9,163,2,143,0)="""BLD"",941,""KRN"",19,""NM"",""B"",""XUS NPI LOCAL REPORTS"",5)"
^XMB(3.9,163,2,144,0)=""
^XMB(3.9,163,2,145,0)="""BLD"",941,""KRN"",19,""NM"",""B"",""XUS NPI MENU"",6)"
^XMB(3.9,163,2,146,0)=""
^XMB(3.9,163,2,147,0)="""BLD"",941,""KRN"",19,""NM"",""B"",""XUS NPI PROVIDER SELF ENTRY"",2)"
^XMB(3.9,163,2,148,0)=""
^XMB(3.9,163,2,149,0)="""BLD"",941,""KRN"",19,""NM"",""B"",""XUS NPI SIGNON CHECK"",7)"
^XMB(3.9,163,2,150,0)=""
^XMB(3.9,163,2,151,0)="""BLD"",941,""KRN"",19.1,0)"
^XMB(3.9,163,2,152,0)="19.1"
^XMB(3.9,163,2,153,0)="""BLD"",941,""KRN"",101,0)"
^XMB(3.9,163,2,154,0)="101"
^XMB(3.9,163,2,155,0)="""BLD"",941,""KRN"",409.61,0)"
^XMB(3.9,163,2,156,0)="409.61"
^XMB(3.9,163,2,157,0)="""BLD"",941,""KRN"",771,0)"
^XMB(3.9,163,2,158,0)="771"
^XMB(3.9,163,2,159,0)="""BLD"",941,""KRN"",870,0)"
^XMB(3.9,163,2,160,0)="870"
^XMB(3.9,163,2,161,0)="""BLD"",941,""KRN"",8989.51,0)"
^XMB(3.9,163,2,162,0)="8989.51"
^XMB(3.9,163,2,163,0)="""BLD"",941,""KRN"",8989.51,""NM"",0)"
^XMB(3.9,163,2,164,0)="^9.68A^1^1"
^XMB(3.9,163,2,165,0)="""BLD"",941,""KRN"",8989.51,""NM"",1,0)"
^XMB(3.9,163,2,166,0)="XUSNPI QUALIFIED IDENTIFIER^^0"
^XMB(3.9,163,2,167,0)="""BLD"",941,""KRN"",8989.51,""NM"",""B"",""XUSNPI QUALIFIED IDENTIFIER"",1)"
^XMB(3.9,163,2,168,0)=""
^XMB(3.9,163,2,169,0)="""BLD"",941,""KRN"",8989.52,0)"
^XMB(3.9,163,2,170,0)="8989.52"
^XMB(3.9,163,2,171,0)="""BLD"",941,""KRN"",8994,0)"
^XMB(3.9,163,2,172,0)="8994"
^XMB(3.9,163,2,173,0)="""BLD"",941,""KRN"",""B"",.4,.4)"
^XMB(3.9,163,2,174,0)=""
^XMB(3.9,163,2,175,0)="""BLD"",941,""KRN"",""B"",.401,.401)"
^XMB(3.9,163,2,176,0)=""
^XMB(3.9,163,2,177,0)="""BLD"",941,""KRN"",""B"",.402,.402)"
^XMB(3.9,163,2,178,0)=""
^XMB(3.9,163,2,179,0)="""BLD"",941,""KRN"",""B"",.403,.403)"
^XMB(3.9,163,2,180,0)=""
^XMB(3.9,163,2,181,0)="""BLD"",941,""KRN"",""B"",.5,.5)"
^XMB(3.9,163,2,182,0)=""
^XMB(3.9,163,2,183,0)="""BLD"",941,""KRN"",""B"",.84,.84)"
^XMB(3.9,163,2,184,0)=""
^XMB(3.9,163,2,185,0)="""BLD"",941,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,163,2,186,0)=""
^XMB(3.9,163,2,187,0)="""BLD"",941,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,163,2,188,0)=""
^XMB(3.9,163,2,189,0)="""BLD"",941,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,163,2,190,0)=""
^XMB(3.9,163,2,191,0)="""BLD"",941,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,163,2,192,0)=""
^XMB(3.9,163,2,193,0)="""BLD"",941,""KRN"",""B"",19,19)"
^XMB(3.9,163,2,194,0)=""
^XMB(3.9,163,2,195,0)="""BLD"",941,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,163,2,196,0)=""
^XMB(3.9,163,2,197,0)="""BLD"",941,""KRN"",""B"",101,101)"
^XMB(3.9,163,2,198,0)=""
^XMB(3.9,163,2,199,0)="""BLD"",941,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,163,2,200,0)=""
^XMB(3.9,163,2,201,0)="""BLD"",941,""KRN"",""B"",771,771)"
^XMB(3.9,163,2,202,0)=""
^XMB(3.9,163,2,203,0)="""BLD"",941,""KRN"",""B"",870,870)"
^XMB(3.9,163,2,204,0)=""
^XMB(3.9,163,2,205,0)="""BLD"",941,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,163,2,206,0)=""
^XMB(3.9,163,2,207,0)="""BLD"",941,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,163,2,208,0)=""
^XMB(3.9,163,2,209,0)="""BLD"",941,""KRN"",""B"",8994,8994)"
^XMB(3.9,163,2,210,0)=""
^XMB(3.9,163,2,211,0)="""BLD"",941,""QUES"",0)"
^XMB(3.9,163,2,212,0)="^9.62^^"
^XMB(3.9,163,2,213,0)="""BLD"",941,""REQB"",0)"
^XMB(3.9,163,2,214,0)="^9.611^^"
^XMB(3.9,163,2,215,0)="""FIA"",4)"
^XMB(3.9,163,2,216,0)="INSTITUTION"
^XMB(3.9,163,2,217,0)="""FIA"",4,0)"
^XMB(3.9,163,2,218,0)="^DIC(4,"
^XMB(3.9,163,2,219,0)="""FIA"",4,0,0)"
^XMB(3.9,163,2,220,0)="4I"
^XMB(3.9,163,2,221,0)="""FIA"",4,0,1)"
^XMB(3.9,163,2,222,0)="y^n^p^^^^n^^n"
^XMB(3.9,163,2,223,0)="""FIA"",4,0,10)"
^XMB(3.9,163,2,224,0)=""
^XMB(3.9,163,2,225,0)="""FIA"",4,0,11)"
^XMB(3.9,163,2,226,0)=""
^XMB(3.9,163,2,227,0)="""FIA"",4,0,""RLRO"")"
^XMB(3.9,163,2,228,0)=""
^XMB(3.9,163,2,229,0)="""FIA"",4,0,""VR"")"
^XMB(3.9,163,2,230,0)="8.0^XU"
^XMB(3.9,163,2,231,0)="""FIA"",4,4)"
^XMB(3.9,163,2,232,0)="1"
^XMB(3.9,163,2,233,0)="""FIA"",4,4,41.99)"
^XMB(3.9,163,2,234,0)=""
^XMB(3.9,163,2,235,0)="""FIA"",4,4,42)"
^XMB(3.9,163,2,236,0)=""
^XMB(3.9,163,2,237,0)="""FIA"",4,4.042)"
^XMB(3.9,163,2,238,0)="0"
^XMB(3.9,163,2,239,0)="""FIA"",200)"
^XMB(3.9,163,2,240,0)="NEW PERSON"
^XMB(3.9,163,2,241,0)="""FIA"",200,0)"
^XMB(3.9,163,2,242,0)="^VA(200,"
^XMB(3.9,163,2,243,0)="""FIA"",200,0,0)"
^XMB(3.9,163,2,244,0)="200I"
^XMB(3.9,163,2,245,0)="""FIA"",200,0,1)"
^XMB(3.9,163,2,246,0)="y^n^p^^^^n^^n"
^XMB(3.9,163,2,247,0)="""FIA"",200,0,10)"
^XMB(3.9,163,2,248,0)=""
^XMB(3.9,163,2,249,0)="""FIA"",200,0,11)"
^XMB(3.9,163,2,250,0)=""
^XMB(3.9,163,2,251,0)="""FIA"",200,0,""RLRO"")"
^XMB(3.9,163,2,252,0)=""
^XMB(3.9,163,2,253,0)="""FIA"",200,0,""VR"")"
^XMB(3.9,163,2,254,0)="8.0^XU"
^XMB(3.9,163,2,255,0)="""FIA"",200,200)"
^XMB(3.9,163,2,256,0)="1"
^XMB(3.9,163,2,257,0)="""FIA"",200,200,41.98)"
^XMB(3.9,163,2,258,0)=""
^XMB(3.9,163,2,259,0)="""FIA"",200,200,41.99)"
^XMB(3.9,163,2,260,0)=""
^XMB(3.9,163,2,261,0)="""FIA"",200,200,42)"
^XMB(3.9,163,2,262,0)=""
^XMB(3.9,163,2,263,0)="""FIA"",200,200.042)"
^XMB(3.9,163,2,264,0)="0"
^XMB(3.9,163,2,265,0)="""INIT"")"
^XMB(3.9,163,2,266,0)="POST^XU8P420"
^XMB(3.9,163,2,267,0)="""KRN"",19,1223,-1)"
^XMB(3.9,163,2,268,0)="0^7"
^XMB(3.9,163,2,269,0)="""KRN"",19,1223,0)"
^XMB(3.9,163,2,270,0)="XUS NPI SIGNON CHECK^NPI Signon Check^^A^^^^^^^^KERNEL^^1"
^XMB(3.9,163,2,271,0)="""KRN"",19,1223,1,0)"
^XMB(3.9,163,2,272,0)="^19.06^3^3^3060511^^^^"
^XMB(3.9,163,2,273,0)="""KRN"",19,1223,1,1,0)"
^XMB(3.9,163,2,274,0)="This option is used to check at a user's signon whether the user needs to "
^XMB(3.9,163,2,275,0)="""KRN"",19,1223,1,2,0)"
^XMB(3.9,163,2,276,0)="enter an NPI value.  If so, a message to that effect is displayed to the "
^XMB(3.9,163,2,277,0)="""KRN"",19,1223,1,3,0)"
^XMB(3.9,163,2,278,0)="user."
^XMB(3.9,163,2,279,0)="""KRN"",19,1223,20)"
^XMB(3.9,163,2,280,0)="D SIGNON^XUSNPIED"
^XMB(3.9,163,2,281,0)="""KRN"",19,1223,""U"")"
^XMB(3.9,163,2,282,0)="NPI SIGNON CHECK"
^XMB(3.9,163,2,283,0)="""KRN"",19,1224,-1)"
^XMB(3.9,163,2,284,0)="0^1"
^XMB(3.9,163,2,285,0)="""KRN"",19,1224,0)"
^XMB(3.9,163,2,286,0)="XUS NPI CBO LIST^List of NPI data for CBO^^R^^^^^^^^KERNEL"
^XMB(3.9,163,2,287,0)="""KRN"",19,1224,1,0)"
^XMB(3.9,163,2,288,0)="^^2^2^3060508^"
^XMB(3.9,163,2,289,0)="""KRN"",19,1224,1,1,0)"
^XMB(3.9,163,2,290,0)="This is a list of providers related to the NPI roll out.  This list is "
^XMB(3.9,163,2,291,0)="""KRN"",19,1224,1,2,0)"
^XMB(3.9,163,2,292,0)="sent to the CBO on a monthly basis for tracking status of the roll out."
^XMB(3.9,163,2,293,0)="""KRN"",19,1224,25)"
^XMB(3.9,163,2,294,0)="CBOLIST^XUSNPIED"
^XMB(3.9,163,2,295,0)="""KRN"",19,1224,""U"")"
^XMB(3.9,163,2,296,0)="LIST OF NPI DATA FOR CBO"
^XMB(3.9,163,2,297,0)="""KRN"",19,1225,-1)"
^XMB(3.9,163,2,298,0)="0^6"
^XMB(3.9,163,2,299,0)="""KRN"",19,1225,0)"
^XMB(3.9,163,2,300,0)="XUS NPI MENU^NPI (National Provider ID) Menu^^M^^^^^^^^KERNEL"
^XMB(3.9,163,2,301,0)="""KRN"",19,1225,1,0)"
^XMB(3.9,163,2,302,0)="^19.06^2^2^3060505^^"
^XMB(3.9,163,2,303,0)="""KRN"",19,1225,1,1,0)"
^XMB(3.9,163,2,304,0)="This menu provides the ability to enter data for a provider related to "
^XMB(3.9,163,2,305,0)="""KRN"",19,1225,1,2,0)"
^XMB(3.9,163,2,306,0)="the National Provider ID."
^XMB(3.9,163,2,307,0)="""KRN"",19,1225,10,0)"
^XMB(3.9,163,2,308,0)="^19.01IP^3^3"
^XMB(3.9,163,2,309,0)="""KRN"",19,1225,10,1,0)"
^XMB(3.9,163,2,310,0)="1227"
^XMB(3.9,163,2,311,0)="""KRN"",19,1225,10,1,""^"")"
^XMB(3.9,163,2,312,0)="XUS NPI ENTER NPI FOR PROVIDER"
^XMB(3.9,163,2,313,0)="""KRN"",19,1225,10,2,0)"
^XMB(3.9,163,2,314,0)="1228"
^XMB(3.9,163,2,315,0)="""KRN"",19,1225,10,2,""^"")"
^XMB(3.9,163,2,316,0)="XUS NPI EXEMPT PROVIDER"
^XMB(3.9,163,2,317,0)="""KRN"",19,1225,10,3,0)"
^XMB(3.9,163,2,318,0)="1226"
^XMB(3.9,163,2,319,0)="""KRN"",19,1225,10,3,""^"")"
^XMB(3.9,163,2,320,0)="XUS NPI LOCAL REPORTS"
^XMB(3.9,163,2,321,0)="""KRN"",19,1225,99)"
^XMB(3.9,163,2,322,0)="60452,40784"
^XMB(3.9,163,2,323,0)="""KRN"",19,1225,99.1)"
^XMB(3.9,163,2,324,0)="60390,56967"
^XMB(3.9,163,2,325,0)="""KRN"",19,1225,""U"")"
^XMB(3.9,163,2,326,0)="NPI (NATIONAL PROVIDER ID) MEN"
^XMB(3.9,163,2,327,0)="""KRN"",19,1226,-1)"
^XMB(3.9,163,2,328,0)="0^5"
^XMB(3.9,163,2,329,0)="""KRN"",19,1226,0)"
^XMB(3.9,163,2,330,0)="XUS NPI LOCAL REPORTS^Print Local NPI Reports^^R^^^^^^^^KERNEL"
^XMB(3.9,163,2,331,0)="""KRN"",19,1226,1,0)"
^XMB(3.9,163,2,332,0)="^^2^2^3060505^"
^XMB(3.9,163,2,333,0)="""KRN"",19,1226,1,1,0)"
^XMB(3.9,163,2,334,0)="This option is used to generate reports for the local facility on those "
^XMB(3.9,163,2,335,0)="""KRN"",19,1226,1,2,0)"
^XMB(3.9,163,2,336,0)="who are expected to have NPI values entered."
^XMB(3.9,163,2,337,0)="""KRN"",19,1226,25)"
^XMB(3.9,163,2,338,0)="PRINTOPT^XUSNPIED"
^XMB(3.9,163,2,339,0)="""KRN"",19,1226,""U"")"
^XMB(3.9,163,2,340,0)="PRINT LOCAL NPI REPORTS"
^XMB(3.9,163,2,341,0)="""KRN"",19,1227,-1)"
^XMB(3.9,163,2,342,0)="0^3"
^XMB(3.9,163,2,343,0)="""KRN"",19,1227,0)"
^XMB(3.9,163,2,344,0)="XUS NPI ENTER NPI FOR PROVIDER^Enter NPI values for Providers^^R^^^^^^^^KERNEL"
^XMB(3.9,163,2,345,0)="""KRN"",19,1227,1,0)"
^XMB(3.9,163,2,346,0)="^19.06^2^2^3060508^^"
^XMB(3.9,163,2,347,0)="""KRN"",19,1227,1,1,0)"
^XMB(3.9,163,2,348,0)="This option is intended for support staff to be able to enter data "
^XMB(3.9,163,2,349,0)="""KRN"",19,1227,1,2,0)"
^XMB(3.9,163,2,350,0)="related to an NPI value for providers."
^XMB(3.9,163,2,351,0)="""KRN"",19,1227,25)"
^XMB(3.9,163,2,352,0)="CLEREDIT^XUSNPIED"
^XMB(3.9,163,2,353,0)="""KRN"",19,1227,""U"")"
^XMB(3.9,163,2,354,0)="ENTER NPI VALUES FOR PROVIDERS"
^XMB(3.9,163,2,355,0)="""KRN"",19,1228,-1)"
^XMB(3.9,163,2,356,0)="0^4"
^XMB(3.9,163,2,357,0)="""KRN"",19,1228,0)"
^XMB(3.9,163,2,358,0)="XUS NPI EXEMPT PROVIDER^Mark/Unmark Provider Exempt from requiring an NPI^^R^^^^^^^^KERNEL"
^XMB(3.9,163,2,359,0)="""KRN"",19,1228,1,0)"
^XMB(3.9,163,2,360,0)="^^4^4^3060505^"
^XMB(3.9,163,2,361,0)="""KRN"",19,1228,1,1,0)"
^XMB(3.9,163,2,362,0)="This option is used by support staff to indicate that a provider who has "
^XMB(3.9,163,2,363,0)="""KRN"",19,1228,1,2,0)"
^XMB(3.9,163,2,364,0)="a Person Class entry relating to a taxonomy value that would normally "
^XMB(3.9,163,2,365,0)="""KRN"",19,1228,1,3,0)"
^XMB(3.9,163,2,366,0)="require and NPI value, as not needing one (e.g., if the provider were "
^XMB(3.9,163,2,367,0)="""KRN"",19,1228,1,4,0)"
^XMB(3.9,163,2,368,0)="doing administrative work full time)."
^XMB(3.9,163,2,369,0)="""KRN"",19,1228,25)"
^XMB(3.9,163,2,370,0)="CLERXMPT^XUSNPIED"
^XMB(3.9,163,2,371,0)="""KRN"",19,1228,""U"")"
^XMB(3.9,163,2,372,0)="MARK/UNMARK PROVIDER EXEMPT FR"
^XMB(3.9,163,2,373,0)="""KRN"",19,1229,-1)"
^XMB(3.9,163,2,374,0)="0^2"
^XMB(3.9,163,2,375,0)="""KRN"",19,1229,0)"
^XMB(3.9,163,2,376,0)="XUS NPI PROVIDER SELF ENTRY^PROVIDER NPI SELF ENTRY^^R^^^^^^^^KERNEL"
^XMB(3.9,163,2,377,0)="""KRN"",19,1229,1,0)"
^XMB(3.9,163,2,378,0)="^^4^4^3060508^"
^XMB(3.9,163,2,379,0)="""KRN"",19,1229,1,1,0)"
^XMB(3.9,163,2,380,0)="This option provides the ability for a Provider to enter his/her own NPI "
^XMB(3.9,163,2,381,0)="""KRN"",19,1229,1,2,0)"
^XMB(3.9,163,2,382,0)="value and effective date.  It is intended to be attached to the XU COMMON "
^XMB(3.9,163,2,383,0)="""KRN"",19,1229,1,3,0)"
^XMB(3.9,163,2,384,0)="menu and checks for whether the user selecting it has the need to enter "
^XMB(3.9,163,2,385,0)="""KRN"",19,1229,1,4,0)"
^XMB(3.9,163,2,386,0)="an NPI value."
^XMB(3.9,163,2,387,0)="""KRN"",19,1229,25)"
^XMB(3.9,163,2,388,0)="USEREDIT^XUSNPIED"
^XMB(3.9,163,2,389,0)="""KRN"",19,1229,""U"")"
^XMB(3.9,163,2,390,0)="PROVIDER NPI SELF ENTRY"
^XMB(3.9,163,2,391,0)="""KRN"",8989.51,239,-1)"
^XMB(3.9,163,2,392,0)="0^1"
^XMB(3.9,163,2,393,0)="""KRN"",8989.51,239,0)"
^XMB(3.9,163,2,394,0)="XUSNPI QUALIFIED IDENTIFIER^NPI QUALIFIED IDENTIFIER^1^ID^^0"
^XMB(3.9,163,2,395,0)="""KRN"",8989.51,239,1)"
^XMB(3.9,163,2,396,0)="F"
^XMB(3.9,163,2,397,0)="""KRN"",8989.51,239,6)"
^XMB(3.9,163,2,398,0)="F"
^XMB(3.9,163,2,399,0)="""KRN"",8989.51,239,20,0)"
^XMB(3.9,163,2,400,0)="^^1^1^3060329^"
^XMB(3.9,163,2,401,0)="""KRN"",8989.51,239,20,1,0)"
^XMB(3.9,163,2,402,0)="This is a mapping of NPI ID name to the files that hold the data."
^XMB(3.9,163,2,403,0)="""KRN"",8989.51,239,30,0)"
^XMB(3.9,163,2,404,0)="^8989.513I^1^1"
^XMB(3.9,163,2,405,0)="""KRN"",8989.51,239,30,1,0)"
^XMB(3.9,163,2,406,0)="1^9.4"
^XMB(3.9,163,2,407,0)="""MBREQ"")"
^XMB(3.9,163,2,408,0)="0"
^XMB(3.9,163,2,409,0)="""ORD"",18,19)"
^XMB(3.9,163,2,410,0)="19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA"
^XMB(3.9,163,2,411,0)="""ORD"",18,19,0)"
^XMB(3.9,163,2,412,0)="OPTION"
^XMB(3.9,163,2,413,0)="""ORD"",20,8989.51)"
^XMB(3.9,163,2,414,0)="8989.51;20;;;PAR1E1^XPDTA2;PAR1F1^XPDIA3;PAR1E1^XPDIA3;PAR1F2^XPDIA3;;PAR1DEL^XPDIA3(%)"
^XMB(3.9,163,2,415,0)="""ORD"",20,8989.51,0)"
^XMB(3.9,163,2,416,0)="PARAMETER DEFINITION"
^XMB(3.9,163,2,417,0)="""PKG"",3,-1)"
^XMB(3.9,163,2,418,0)="1^1"
^XMB(3.9,163,2,419,0)="""PKG"",3,0)"
^XMB(3.9,163,2,420,0)="KERNEL^XU^SIGN-ON, SECURITY, MENU DRIVER, DEVICES, TASKMAN^"
^XMB(3.9,163,2,421,0)="""PKG"",3,20,0)"
^XMB(3.9,163,2,422,0)="^9.402P^^0"
^XMB(3.9,163,2,423,0)="""PKG"",3,22,0)"
^XMB(3.9,163,2,424,0)="^9.49I^1^1"
^XMB(3.9,163,2,425,0)="""PKG"",3,22,1,0)"
^XMB(3.9,163,2,426,0)="8.0^3051215^2970507^.5"
^XMB(3.9,163,2,427,0)="""PKG"",3,22,1,""PAH"",1,0)"
^XMB(3.9,163,2,428,0)="420^3060726"
^XMB(3.9,163,2,429,0)="""PKG"",3,22,1,""PAH"",1,1,0)"
^XMB(3.9,163,2,430,0)="^^1^1^3060726"
^XMB(3.9,163,2,431,0)="""PKG"",3,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,163,2,432,0)="XU*8*420 - Please refer to the patch description in FORUM for details"
^XMB(3.9,163,2,433,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,163,2,434,0)="Y"
^XMB(3.9,163,2,435,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,163,2,436,0)="^D REP^XPDH"
^XMB(3.9,163,2,437,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,163,2,438,0)="Shall I write over your |FLAG| File"
^XMB(3.9,163,2,439,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,163,2,440,0)="YES"
^XMB(3.9,163,2,441,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,163,2,442,0)="D XPF1^XPDIQ"
^XMB(3.9,163,2,443,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,163,2,444,0)="Y"
^XMB(3.9,163,2,445,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,163,2,446,0)="^D DTA^XPDH"
^XMB(3.9,163,2,447,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,163,2,448,0)="Want my data |FLAG| yours"
^XMB(3.9,163,2,449,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,163,2,450,0)="YES"
^XMB(3.9,163,2,451,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,163,2,452,0)="D XPF2^XPDIQ"
^XMB(3.9,163,2,453,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,163,2,454,0)="YO"
^XMB(3.9,163,2,455,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,163,2,456,0)="^D INHIBIT^XPDH"
^XMB(3.9,163,2,457,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,163,2,458,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,163,2,459,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,163,2,460,0)="YES"
^XMB(3.9,163,2,461,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,163,2,462,0)="D XPI1^XPDIQ"
^XMB(3.9,163,2,463,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,163,2,464,0)="PO^VA(200,:EM"
^XMB(3.9,163,2,465,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,163,2,466,0)="^D MG^XPDH"
^XMB(3.9,163,2,467,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,163,2,468,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,163,2,469,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,163,2,470,0)=""
^XMB(3.9,163,2,471,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,163,2,472,0)="D XPM1^XPDIQ"
^XMB(3.9,163,2,473,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,163,2,474,0)="Y"
^XMB(3.9,163,2,475,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,163,2,476,0)="^D MENU^XPDH"
^XMB(3.9,163,2,477,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,163,2,478,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,163,2,479,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,163,2,480,0)="YES"
^XMB(3.9,163,2,481,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,163,2,482,0)="D XPO1^XPDIQ"
^XMB(3.9,163,2,483,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,163,2,484,0)="Y"
^XMB(3.9,163,2,485,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,163,2,486,0)="^D OPT^XPDH"
^XMB(3.9,163,2,487,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,163,2,488,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,163,2,489,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,163,2,490,0)="YES"
^XMB(3.9,163,2,491,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,163,2,492,0)="D XPZ1^XPDIQ"
^XMB(3.9,163,2,493,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,163,2,494,0)="Y"
^XMB(3.9,163,2,495,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,163,2,496,0)="^D RTN^XPDH"
^XMB(3.9,163,2,497,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,163,2,498,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,163,2,499,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,163,2,500,0)="NO"
^XMB(3.9,163,2,501,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,163,2,502,0)="D XPZ2^XPDIQ"
^XMB(3.9,163,2,503,0)="""RTN"")"
^XMB(3.9,163,2,504,0)="5"
^XMB(3.9,163,2,505,0)="""RTN"",""XU8P420"")"
^XMB(3.9,163,2,506,0)="0^1^B3428730^n/a"
^XMB(3.9,163,2,507,0)="""RTN"",""XU8P420"",1,0)"
^XMB(3.9,163,2,508,0)="XU8P420 ;OAK_BP/BDT,JLI - NATIONAL PROVIDER IDENTIFIER 3/7/06 ;7/17/06  15:38"
^XMB(3.9,163,2,509,0)="""RTN"",""XU8P420"",2,0)"
^XMB(3.9,163,2,510,0)=" ;;8.0;KERNEL;**420**; July 10, 1995;Build 20"
^XMB(3.9,163,2,511,0)="""RTN"",""XU8P420"",3,0)"
^XMB(3.9,163,2,512,0)=" ;;"
^XMB(3.9,163,2,513,0)="""RTN"",""XU8P420"",4,0)"
^XMB(3.9,163,2,514,0)="PRE ; run pre-routine"
^XMB(3.9,163,2,515,0)="""RTN"",""XU8P420"",5,0)"
^XMB(3.9,163,2,516,0)=" Q"
^XMB(3.9,163,2,517,0)="""RTN"",""XU8P420"",6,0)"
^XMB(3.9,163,2,518,0)=" ;"
^XMB(3.9,163,2,519,0)="""RTN"",""XU8P420"",7,0)"
^XMB(3.9,163,2,520,0)="POST ; run post-routine"
^XMB(3.9,163,2,521,0)="""RTN"",""XU8P420"",8,0)"
^XMB(3.9,163,2,522,0)=" D SLAYGO"
^XMB(3.9,163,2,523,0)="""RTN"",""XU8P420"",9,0)"
^XMB(3.9,163,2,524,0)=" D SETOPT"
^XMB(3.9,163,2,525,0)="""RTN"",""XU8P420"",10,0)"
^XMB(3.9,163,2,526,0)=" D SPRM"
^XMB(3.9,163,2,527,0)="""RTN"",""XU8P420"",11,0)"
^XMB(3.9,163,2,528,0)=" D POSTINIT^XUSNPIED ; jli"
^XMB(3.9,163,2,529,0)="""RTN"",""XU8P420"",12,0)"
^XMB(3.9,163,2,530,0)=" N I"
^XMB(3.9,163,2,531,0)="""RTN"",""XU8P420"",13,0)"
^XMB(3.9,163,2,532,0)=" F I=0:0 S I=$O(^USC(8932.1,I)) Q:I'>0  I $$GET1^DIQ(8932.1,I_"","",90002)="""" D"
^XMB(3.9,163,2,533,0)="""RTN"",""XU8P420"",14,0)"
^XMB(3.9,163,2,534,0)=" . N FDA S FDA(8932.1,I_"","",90002)=""I"" D FILE^DIE("""",""FDA"")"
^XMB(3.9,163,2,535,0)="""RTN"",""XU8P420"",15,0)"
^XMB(3.9,163,2,536,0)=" . Q"
^XMB(3.9,163,2,537,0)="""RTN"",""XU8P420"",16,0)"
^XMB(3.9,163,2,538,0)=" Q"
^XMB(3.9,163,2,539,0)="""RTN"",""XU8P420"",17,0)"
^XMB(3.9,163,2,540,0)="SLAYGO ;"
^XMB(3.9,163,2,541,0)="""RTN"",""XU8P420"",18,0)"
^XMB(3.9,163,2,542,0)=" ; Set un-editable for STATUS field (#.02) in EFFECTIVE DATE/TIME subfile (#200.042)"
^XMB(3.9,163,2,543,0)="""RTN"",""XU8P420"",19,0)"
^XMB(3.9,163,2,544,0)=" I $P(^DD(200.042,.02,0),""^"",2)'[""I"" D"
^XMB(3.9,163,2,545,0)="""RTN"",""XU8P420"",20,0)"
^XMB(3.9,163,2,546,0)=" . S $P(^DD(200.042,.02,0),""^"",2)=$P(^DD(200.042,.02,0),""^"",2)_""I"""
^XMB(3.9,163,2,547,0)="""RTN"",""XU8P420"",21,0)"
^XMB(3.9,163,2,548,0)=" ; Set un-editable for STATUS field (#.02) in EFFECTIVE DATE/TIEM subfile (#4.042)"
^XMB(3.9,163,2,549,0)="""RTN"",""XU8P420"",22,0)"
^XMB(3.9,163,2,550,0)=" I $P(^DD(4.042,.02,0),""^"",2)'[""I"" D"
^XMB(3.9,163,2,551,0)="""RTN"",""XU8P420"",23,0)"
^XMB(3.9,163,2,552,0)=" . S $P(^DD(4.042,.02,0),""^"",2)=$P(^DD(4.042,.02,0),""^"",2)_""I"""
^XMB(3.9,163,2,553,0)="""RTN"",""XU8P420"",24,0)"
^XMB(3.9,163,2,554,0)=" ; Set DEL-LAYGO for NPI field (#41.99) in INSTITUTION file (#4)"
^XMB(3.9,163,2,555,0)="""RTN"",""XU8P420"",25,0)"
^XMB(3.9,163,2,556,0)=" S ^DD(4,41.99,""DEL"",11,0)=""D:'$D(XUMF) EN^DDIOL(""""Entries must be inactivated via the Master File Server(MFS)."""","""""""",""""!?5,$C(7)"""") I $D(XUMF)"""
^XMB(3.9,163,2,557,0)="""RTN"",""XU8P420"",26,0)"
^XMB(3.9,163,2,558,0)=" Q"
^XMB(3.9,163,2,559,0)="""RTN"",""XU8P420"",27,0)"
^XMB(3.9,163,2,560,0)=" ;"
^XMB(3.9,163,2,561,0)="""RTN"",""XU8P420"",28,0)"
^XMB(3.9,163,2,562,0)="SETOPT ;put options under XUCOMMAND and XU USER SIGN-ON menu"
^XMB(3.9,163,2,563,0)="""RTN"",""XU8P420"",29,0)"
^XMB(3.9,163,2,564,0)=" Q"
^XMB(3.9,163,2,565,0)="""RTN"",""XU8P420"",30,0)"
^XMB(3.9,163,2,566,0)=" ;"
^XMB(3.9,163,2,567,0)="""RTN"",""XU8P420"",31,0)"
^XMB(3.9,163,2,568,0)="SPRM ; Add new Kernel parameters on file"
^XMB(3.9,163,2,569,0)="""RTN"",""XU8P420"",32,0)"
^XMB(3.9,163,2,570,0)=" N XUSPR,XUSPCK"
^XMB(3.9,163,2,571,0)="""RTN"",""XU8P420"",33,0)"
^XMB(3.9,163,2,572,0)=" S XUSPCK=$O(^DIC(9.4,""B"",""KERNEL"",0))"
^XMB(3.9,163,2,573,0)="""RTN"",""XU8P420"",34,0)"
^XMB(3.9,163,2,574,0)=" I 'XUSPCK Q"
^XMB(3.9,163,2,575,0)="""RTN"",""XU8P420"",35,0)"
^XMB(3.9,163,2,576,0)=" S XUSPCK=XUSPCK_"";DIC(9.4,"""
^XMB(3.9,163,2,577,0)="""RTN"",""XU8P420"",36,0)"
^XMB(3.9,163,2,578,0)=" F XUSPR=""Individual_ID;VA(200,"",""Organization_ID;DIC(4,"",""Pharmacy_ID;PS(59,"" D"
^XMB(3.9,163,2,579,0)="""RTN"",""XU8P420"",37,0)"
^XMB(3.9,163,2,580,0)=" . D PUT^XPAR(XUSPCK,""XUSNPI QUALIFIED IDENTIFIER"",$P(XUSPR,"";""),$P(XUSPR,"";"",2))"
^XMB(3.9,163,2,581,0)="""RTN"",""XU8P420"",38,0)"
^XMB(3.9,163,2,582,0)=" ; delete Provider_ID if it is present"
^XMB(3.9,163,2,583,0)="""RTN"",""XU8P420"",39,0)"
^XMB(3.9,163,2,584,0)=" D DEL^XPAR(XUSPCK,""XUSNPI QUALIFIED IDENTIFIER"",""Provider_ID"")"
^XMB(3.9,163,2,585,0)="""RTN"",""XU8P420"",40,0)"
^XMB(3.9,163,2,586,0)=" Q"
^XMB(3.9,163,2,587,0)="""RTN"",""XUSNPIDA"")"
^XMB(3.9,163,2,588,0)="0^4^B45390858^n/a"
^XMB(3.9,163,2,589,0)="""RTN"",""XUSNPIDA"",1,0)"
^XMB(3.9,163,2,590,0)="XUSNPIDA ;JLI/FO-OAKLAND - SPECIFIED TAXONOMY VALUES FOR NPI RECIPIENTS ;5/12/06  08:53"
^XMB(3.9,163,2,591,0)="""RTN"",""XUSNPIDA"",2,0)"
^XMB(3.9,163,2,592,0)=" ;;8.0;KERNEL;**420**;Jul 10, 1995;Build 20"
^XMB(3.9,163,2,593,0)="""RTN"",""XUSNPIDA"",3,0)"
^XMB(3.9,163,2,594,0)=" Q"
^XMB(3.9,163,2,595,0)="""RTN"",""XUSNPIDA"",4,0)"
^XMB(3.9,163,2,596,0)=" ;"
^XMB(3.9,163,2,597,0)="""RTN"",""XUSNPIDA"",5,0)"
^XMB(3.9,163,2,598,0)="CHKGLOB() ;  returns global location of TAXONOMY values also rebuilds if they are missing"
^XMB(3.9,163,2,599,0)="""RTN"",""XUSNPIDA"",6,0)"
^XMB(3.9,163,2,600,0)=" N I,STR,XUGLOB"
^XMB(3.9,163,2,601,0)="""RTN"",""XUSNPIDA"",7,0)"
^XMB(3.9,163,2,602,0)=" S XUGLOB=$NA(^XTMP(""NPIVALS""))"
^XMB(3.9,163,2,603,0)="""RTN"",""XUSNPIDA"",8,0)"
^XMB(3.9,163,2,604,0)=" ; check for ;;; is to permit sites to add a ; to exclude some values not used at site"
^XMB(3.9,163,2,605,0)="""RTN"",""XUSNPIDA"",9,0)"
^XMB(3.9,163,2,606,0)=" I '$D(@XUGLOB) F I=1:1 S STR=$T(@(""VALUES+""_I_""^XUSNPIDA"")) I STR'["";;;"" S STR=$P(STR,"";;"",2) Q:STR=""""  S @XUGLOB@(STR)="""""
^XMB(3.9,163,2,607,0)="""RTN"",""XUSNPIDA"",10,0)"
^XMB(3.9,163,2,608,0)=" S @XUGLOB@(0)=$$FMADD^XLFDT(DT,15)"
^XMB(3.9,163,2,609,0)="""RTN"",""XUSNPIDA"",11,0)"
^XMB(3.9,163,2,610,0)=" Q XUGLOB"
^XMB(3.9,163,2,611,0)="""RTN"",""XUSNPIDA"",12,0)"
^XMB(3.9,163,2,612,0)=" ;"
^XMB(3.9,163,2,613,0)="""RTN"",""XUSNPIDA"",13,0)"
^XMB(3.9,163,2,614,0)="VALUES ;"
^XMB(3.9,163,2,615,0)="""RTN"",""XUSNPIDA"",14,0)"
^XMB(3.9,163,2,616,0)=" ;;101Y00000X"
^XMB(3.9,163,2,617,0)="""RTN"",""XUSNPIDA"",15,0)"
^XMB(3.9,163,2,618,0)=" ;;101YA0400X"
^XMB(3.9,163,2,619,0)="""RTN"",""XUSNPIDA"",16,0)"
^XMB(3.9,163,2,620,0)=" ;;101YM0800X"
^XMB(3.9,163,2,621,0)="""RTN"",""XUSNPIDA"",17,0)"
^XMB(3.9,163,2,622,0)=" ;;101YP1600X"
^XMB(3.9,163,2,623,0)="""RTN"",""XUSNPIDA"",18,0)"
^XMB(3.9,163,2,624,0)=" ;;101YP2500X"
^XMB(3.9,163,2,625,0)="""RTN"",""XUSNPIDA"",19,0)"
^XMB(3.9,163,2,626,0)=" ;;101YS0200X"
^XMB(3.9,163,2,627,0)="""RTN"",""XUSNPIDA"",20,0)"
^XMB(3.9,163,2,628,0)=" ;;103G00000X"
^XMB(3.9,163,2,629,0)="""RTN"",""XUSNPIDA"",21,0)"
^XMB(3.9,163,2,630,0)=" ;;103GC0700X"
^XMB(3.9,163,2,631,0)="""RTN"",""XUSNPIDA"",22,0)"
^XMB(3.9,163,2,632,0)=" ;;103T00000X"
^XMB(3.9,163,2,633,0)="""RTN"",""XUSNPIDA"",23,0)"
^XMB(3.9,163,2,634,0)=" ;;103TA0400X"
^XMB(3.9,163,2,635,0)="""RTN"",""XUSNPIDA"",24,0)"
^XMB(3.9,163,2,636,0)=" ;;103TA0700X"
^XMB(3.9,163,2,637,0)="""RTN"",""XUSNPIDA"",25,0)"
^XMB(3.9,163,2,638,0)=" ;;103TB0200X"
^XMB(3.9,163,2,639,0)="""RTN"",""XUSNPIDA"",26,0)"
^XMB(3.9,163,2,640,0)=" ;;103TC0700X"
^XMB(3.9,163,2,641,0)="""RTN"",""XUSNPIDA"",27,0)"
^XMB(3.9,163,2,642,0)=" ;;103TC1900X"
^XMB(3.9,163,2,643,0)="""RTN"",""XUSNPIDA"",28,0)"
^XMB(3.9,163,2,644,0)=" ;;103TC2200X"
^XMB(3.9,163,2,645,0)="""RTN"",""XUSNPIDA"",29,0)"
^XMB(3.9,163,2,646,0)=" ;;103TE1000X"
^XMB(3.9,163,2,647,0)="""RTN"",""XUSNPIDA"",30,0)"
^XMB(3.9,163,2,648,0)=" ;;103TE1100X"
^XMB(3.9,163,2,649,0)="""RTN"",""XUSNPIDA"",31,0)"
^XMB(3.9,163,2,650,0)=" ;;103TF0000X"
^XMB(3.9,163,2,651,0)="""RTN"",""XUSNPIDA"",32,0)"
^XMB(3.9,163,2,652,0)=" ;;103TF0200X"
^XMB(3.9,163,2,653,0)="""RTN"",""XUSNPIDA"",33,0)"
^XMB(3.9,163,2,654,0)=" ;;103TH0100X"
^XMB(3.9,163,2,655,0)="""RTN"",""XUSNPIDA"",34,0)"
^XMB(3.9,163,2,656,0)=" ;;103TM1700X"
^XMB(3.9,163,2,657,0)="""RTN"",""XUSNPIDA"",35,0)"
^XMB(3.9,163,2,658,0)=" ;;103TM1800X"
^XMB(3.9,163,2,659,0)="""RTN"",""XUSNPIDA"",36,0)"
^XMB(3.9,163,2,660,0)=" ;;103TP0814X"
^XMB(3.9,163,2,661,0)="""RTN"",""XUSNPIDA"",37,0)"
^XMB(3.9,163,2,662,0)=" ;;103TP2700X"
^XMB(3.9,163,2,663,0)="""RTN"",""XUSNPIDA"",38,0)"
^XMB(3.9,163,2,664,0)=" ;;103TP2701X"
^XMB(3.9,163,2,665,0)="""RTN"",""XUSNPIDA"",39,0)"
^XMB(3.9,163,2,666,0)=" ;;103TR0400X"
^XMB(3.9,163,2,667,0)="""RTN"",""XUSNPIDA"",40,0)"
^XMB(3.9,163,2,668,0)=" ;;103TS0200X"
^XMB(3.9,163,2,669,0)="""RTN"",""XUSNPIDA"",41,0)"
^XMB(3.9,163,2,670,0)=" ;;103TW0100X"
^XMB(3.9,163,2,671,0)="""RTN"",""XUSNPIDA"",42,0)"
^XMB(3.9,163,2,672,0)=" ;;104100000X"
^XMB(3.9,163,2,673,0)="""RTN"",""XUSNPIDA"",43,0)"
^XMB(3.9,163,2,674,0)=" ;;1041C0700X"
^XMB(3.9,163,2,675,0)="""RTN"",""XUSNPIDA"",44,0)"
^XMB(3.9,163,2,676,0)=" ;;1041S0200X"
^XMB(3.9,163,2,677,0)="""RTN"",""XUSNPIDA"",45,0)"
^XMB(3.9,163,2,678,0)=" ;;111N00000X"
^XMB(3.9,163,2,679,0)="""RTN"",""XUSNPIDA"",46,0)"
^XMB(3.9,163,2,680,0)=" ;;111NI0900X"
^XMB(3.9,163,2,681,0)="""RTN"",""XUSNPIDA"",47,0)"
^XMB(3.9,163,2,682,0)=" ;;111NN0400X"
^XMB(3.9,163,2,683,0)="""RTN"",""XUSNPIDA"",48,0)"
^XMB(3.9,163,2,684,0)=" ;;111NN1001X"
^XMB(3.9,163,2,685,0)="""RTN"",""XUSNPIDA"",49,0)"
^XMB(3.9,163,2,686,0)=" ;;111NR0200X"
^XMB(3.9,163,2,687,0)="""RTN"",""XUSNPIDA"",50,0)"
^XMB(3.9,163,2,688,0)=" ;;111NS0005X"
^XMB(3.9,163,2,689,0)="""RTN"",""XUSNPIDA"",51,0)"
^XMB(3.9,163,2,690,0)=" ;;111NT0100X"
^XMB(3.9,163,2,691,0)="""RTN"",""XUSNPIDA"",52,0)"
^XMB(3.9,163,2,692,0)=" ;;111NX0100X"
^XMB(3.9,163,2,693,0)="""RTN"",""XUSNPIDA"",53,0)"
^XMB(3.9,163,2,694,0)=" ;;111NX0800X"
^XMB(3.9,163,2,695,0)="""RTN"",""XUSNPIDA"",54,0)"
^XMB(3.9,163,2,696,0)=" ;;122300000X"
^XMB(3.9,163,2,697,0)="""RTN"",""XUSNPIDA"",55,0)"
^XMB(3.9,163,2,698,0)=" ;;1223D0001X"
^XMB(3.9,163,2,699,0)="""RTN"",""XUSNPIDA"",56,0)"
^XMB(3.9,163,2,700,0)=" ;;1223E0200X"
^XMB(3.9,163,2,701,0)="""RTN"",""XUSNPIDA"",57,0)"
^XMB(3.9,163,2,702,0)=" ;;1223G0001X"
^XMB(3.9,163,2,703,0)="""RTN"",""XUSNPIDA"",58,0)"
^XMB(3.9,163,2,704,0)=" ;;1223P0106X"
^XMB(3.9,163,2,705,0)="""RTN"",""XUSNPIDA"",59,0)"
^XMB(3.9,163,2,706,0)=" ;;1223P0221X"
^XMB(3.9,163,2,707,0)="""RTN"",""XUSNPIDA"",60,0)"
^XMB(3.9,163,2,708,0)=" ;;1223P0300X"
^XMB(3.9,163,2,709,0)="""RTN"",""XUSNPIDA"",61,0)"
^XMB(3.9,163,2,710,0)=" ;;1223P0700X"
^XMB(3.9,163,2,711,0)="""RTN"",""XUSNPIDA"",62,0)"
^XMB(3.9,163,2,712,0)=" ;;1223S0112X"
^XMB(3.9,163,2,713,0)="""RTN"",""XUSNPIDA"",63,0)"
^XMB(3.9,163,2,714,0)=" ;;1223X0008X"
^XMB(3.9,163,2,715,0)="""RTN"",""XUSNPIDA"",64,0)"
^XMB(3.9,163,2,716,0)=" ;;1223X0400X"
^XMB(3.9,163,2,717,0)="""RTN"",""XUSNPIDA"",65,0)"
^XMB(3.9,163,2,718,0)=" ;;133V00000X"
^XMB(3.9,163,2,719,0)="""RTN"",""XUSNPIDA"",66,0)"
^XMB(3.9,163,2,720,0)=" ;;133VN1004X"
^XMB(3.9,163,2,721,0)="""RTN"",""XUSNPIDA"",67,0)"
^XMB(3.9,163,2,722,0)=" ;;133VN1005X"
^XMB(3.9,163,2,723,0)="""RTN"",""XUSNPIDA"",68,0)"
^XMB(3.9,163,2,724,0)=" ;;133VN1006X"
^XMB(3.9,163,2,725,0)="""RTN"",""XUSNPIDA"",69,0)"
^XMB(3.9,163,2,726,0)=" ;;152W00000X"
^XMB(3.9,163,2,727,0)="""RTN"",""XUSNPIDA"",70,0)"
^XMB(3.9,163,2,728,0)=" ;;152WC0802X"
^XMB(3.9,163,2,729,0)="""RTN"",""XUSNPIDA"",71,0)"
^XMB(3.9,163,2,730,0)=" ;;152WL0500X"
^XMB(3.9,163,2,731,0)="""RTN"",""XUSNPIDA"",72,0)"
^XMB(3.9,163,2,732,0)=" ;;152WP0200X"
^XMB(3.9,163,2,733,0)="""RTN"",""XUSNPIDA"",73,0)"
^XMB(3.9,163,2,734,0)=" ;;152WS0006X"
^XMB(3.9,163,2,735,0)="""RTN"",""XUSNPIDA"",74,0)"
^XMB(3.9,163,2,736,0)=" ;;152WV0400X"
^XMB(3.9,163,2,737,0)="""RTN"",""XUSNPIDA"",75,0)"
^XMB(3.9,163,2,738,0)=" ;;152WX0102X"
^XMB(3.9,163,2,739,0)="""RTN"",""XUSNPIDA"",76,0)"
^XMB(3.9,163,2,740,0)=" ;;170100000X"
^XMB(3.9,163,2,741,0)="""RTN"",""XUSNPIDA"",77,0)"
^XMB(3.9,163,2,742,0)=" ;;183500000X"
^XMB(3.9,163,2,743,0)="""RTN"",""XUSNPIDA"",78,0)"
^XMB(3.9,163,2,744,0)=" ;;1835G0000X"
^XMB(3.9,163,2,745,0)="""RTN"",""XUSNPIDA"",79,0)"
^XMB(3.9,163,2,746,0)=" ;;1835N0905X"
^XMB(3.9,163,2,747,0)="""RTN"",""XUSNPIDA"",80,0)"
^XMB(3.9,163,2,748,0)=" ;;1835N1003X"
^XMB(3.9,163,2,749,0)="""RTN"",""XUSNPIDA"",81,0)"
^XMB(3.9,163,2,750,0)=" ;;1835P1200X"
^XMB(3.9,163,2,751,0)="""RTN"",""XUSNPIDA"",82,0)"
^XMB(3.9,163,2,752,0)=" ;;1835P1300X"
^XMB(3.9,163,2,753,0)="""RTN"",""XUSNPIDA"",83,0)"
^XMB(3.9,163,2,754,0)=" ;;204C00000X"
^XMB(3.9,163,2,755,0)="""RTN"",""XUSNPIDA"",84,0)"
^XMB(3.9,163,2,756,0)=" ;;204D00000X"
^XMB(3.9,163,2,757,0)="""RTN"",""XUSNPIDA"",85,0)"
^XMB(3.9,163,2,758,0)=" ;;204E00000X"
^XMB(3.9,163,2,759,0)="""RTN"",""XUSNPIDA"",86,0)"
^XMB(3.9,163,2,760,0)=" ;;204F00000X"
^XMB(3.9,163,2,761,0)="""RTN"",""XUSNPIDA"",87,0)"
^XMB(3.9,163,2,762,0)=" ;;207K00000X"
^XMB(3.9,163,2,763,0)="""RTN"",""XUSNPIDA"",88,0)"
^XMB(3.9,163,2,764,0)=" ;;207KA0200X"
^XMB(3.9,163,2,765,0)="""RTN"",""XUSNPIDA"",89,0)"
^XMB(3.9,163,2,766,0)=" ;;207KI0005X"
^XMB(3.9,163,2,767,0)="""RTN"",""XUSNPIDA"",90,0)"
^XMB(3.9,163,2,768,0)=" ;;207L00000X"
^XMB(3.9,163,2,769,0)="""RTN"",""XUSNPIDA"",91,0)"
^XMB(3.9,163,2,770,0)=" ;;207LA0401X"
^XMB(3.9,163,2,771,0)="""RTN"",""XUSNPIDA"",92,0)"
^XMB(3.9,163,2,772,0)=" ;;207LC0200X"
^XMB(3.9,163,2,773,0)="""RTN"",""XUSNPIDA"",93,0)"
^XMB(3.9,163,2,774,0)=" ;;207LP2900X"
^XMB(3.9,163,2,775,0)="""RTN"",""XUSNPIDA"",94,0)"
^XMB(3.9,163,2,776,0)=" ;;207N00000X"
^XMB(3.9,163,2,777,0)="""RTN"",""XUSNPIDA"",95,0)"
^XMB(3.9,163,2,778,0)=" ;;207ND0101X"
^XMB(3.9,163,2,779,0)="""RTN"",""XUSNPIDA"",96,0)"
^XMB(3.9,163,2,780,0)=" ;;207ND0900X"
^XMB(3.9,163,2,781,0)="""RTN"",""XUSNPIDA"",97,0)"
^XMB(3.9,163,2,782,0)=" ;;207NI0002X"
^XMB(3.9,163,2,783,0)="""RTN"",""XUSNPIDA"",98,0)"
^XMB(3.9,163,2,784,0)=" ;;207NP0225X"
^XMB(3.9,163,2,785,0)="""RTN"",""XUSNPIDA"",99,0)"
^XMB(3.9,163,2,786,0)=" ;;207NS0135X"
^XMB(3.9,163,2,787,0)="""RTN"",""XUSNPIDA"",100,0)"
^XMB(3.9,163,2,788,0)=" ;;207P00000X"
^XMB(3.9,163,2,789,0)="""RTN"",""XUSNPIDA"",101,0)"
^XMB(3.9,163,2,790,0)=" ;;207PE0004X"
^XMB(3.9,163,2,791,0)="""RTN"",""XUSNPIDA"",102,0)"
^XMB(3.9,163,2,792,0)=" ;;207PE0005X"
^XMB(3.9,163,2,793,0)="""RTN"",""XUSNPIDA"",103,0)"
^XMB(3.9,163,2,794,0)=" ;;207PP0204X"
^XMB(3.9,163,2,795,0)="""RTN"",""XUSNPIDA"",104,0)"
^XMB(3.9,163,2,796,0)=" ;;207PS0010X"
^XMB(3.9,163,2,797,0)="""RTN"",""XUSNPIDA"",105,0)"
^XMB(3.9,163,2,798,0)=" ;;207PT0002X"
^XMB(3.9,163,2,799,0)="""RTN"",""XUSNPIDA"",106,0)"
^XMB(3.9,163,2,800,0)=" ;;207Q00000X"
^XMB(3.9,163,2,801,0)="""RTN"",""XUSNPIDA"",107,0)"
^XMB(3.9,163,2,802,0)=" ;;207QA0000X"
^XMB(3.9,163,2,803,0)="""RTN"",""XUSNPIDA"",108,0)"
^XMB(3.9,163,2,804,0)=" ;;207QA0401X"
^XMB(3.9,163,2,805,0)="""RTN"",""XUSNPIDA"",109,0)"
^XMB(3.9,163,2,806,0)=" ;;207QA0505X"
^XMB(3.9,163,2,807,0)="""RTN"",""XUSNPIDA"",110,0)"
^XMB(3.9,163,2,808,0)=" ;;207QG0300X"
^XMB(3.9,163,2,809,0)="""RTN"",""XUSNPIDA"",111,0)"
^XMB(3.9,163,2,810,0)=" ;;207QS0010X"
^XMB(3.9,163,2,811,0)="""RTN"",""XUSNPIDA"",112,0)"
^XMB(3.9,163,2,812,0)=" ;;207R00000X"
^XMB(3.9,163,2,813,0)="""RTN"",""XUSNPIDA"",113,0)"
^XMB(3.9,163,2,814,0)=" ;;207RA0000X"
^XMB(3.9,163,2,815,0)="""RTN"",""XUSNPIDA"",114,0)"
^XMB(3.9,163,2,816,0)=" ;;207RA0201X"
^XMB(3.9,163,2,817,0)="""RTN"",""XUSNPIDA"",115,0)"
^XMB(3.9,163,2,818,0)=" ;;207RA0401X"
^XMB(3.9,163,2,819,0)="""RTN"",""XUSNPIDA"",116,0)"
^XMB(3.9,163,2,820,0)=" ;;207RC0000X"
^XMB(3.9,163,2,821,0)="""RTN"",""XUSNPIDA"",117,0)"
^XMB(3.9,163,2,822,0)=" ;;207RC0001X"
^XMB(3.9,163,2,823,0)="""RTN"",""XUSNPIDA"",118,0)"
^XMB(3.9,163,2,824,0)=" ;;207RC0200X"
^XMB(3.9,163,2,825,0)="""RTN"",""XUSNPIDA"",119,0)"
^XMB(3.9,163,2,826,0)=" ;;207RE0101X"
^XMB(3.9,163,2,827,0)="""RTN"",""XUSNPIDA"",120,0)"
^XMB(3.9,163,2,828,0)=" ;;207RG0100X"
^XMB(3.9,163,2,829,0)="""RTN"",""XUSNPIDA"",121,0)"
^XMB(3.9,163,2,830,0)=" ;;207RG0300X"
^XMB(3.9,163,2,831,0)="""RTN"",""XUSNPIDA"",122,0)"
^XMB(3.9,163,2,832,0)=" ;;207RH0000X"
^XMB(3.9,163,2,833,0)="""RTN"",""XUSNPIDA"",123,0)"
^XMB(3.9,163,2,834,0)=" ;;207RH0003X"
^XMB(3.9,163,2,835,0)="""RTN"",""XUSNPIDA"",124,0)"
^XMB(3.9,163,2,836,0)=" ;;207RI0001X"
^XMB(3.9,163,2,837,0)="""RTN"",""XUSNPIDA"",125,0)"
^XMB(3.9,163,2,838,0)=" ;;207RI0008X"
^XMB(3.9,163,2,839,0)="""RTN"",""XUSNPIDA"",126,0)"
^XMB(3.9,163,2,840,0)=" ;;207RI0011X"
^XMB(3.9,163,2,841,0)="""RTN"",""XUSNPIDA"",127,0)"
^XMB(3.9,163,2,842,0)=" ;;207RI0200X"
^XMB(3.9,163,2,843,0)="""RTN"",""XUSNPIDA"",128,0)"
^XMB(3.9,163,2,844,0)=" ;;207RM1200X"
^XMB(3.9,163,2,845,0)="""RTN"",""XUSNPIDA"",129,0)"
^XMB(3.9,163,2,846,0)=" ;;207RN0300X"
^XMB(3.9,163,2,847,0)="""RTN"",""XUSNPIDA"",130,0)"
^XMB(3.9,163,2,848,0)=" ;;207RP1001X"
^XMB(3.9,163,2,849,0)="""RTN"",""XUSNPIDA"",131,0)"
^XMB(3.9,163,2,850,0)=" ;;207RR0500X"
^XMB(3.9,163,2,851,0)="""RTN"",""XUSNPIDA"",132,0)"
^XMB(3.9,163,2,852,0)=" ;;207RS0010X"
^XMB(3.9,163,2,853,0)="""RTN"",""XUSNPIDA"",133,0)"
^XMB(3.9,163,2,854,0)=" ;;207RX0202X"
^XMB(3.9,163,2,855,0)="""RTN"",""XUSNPIDA"",134,0)"
^XMB(3.9,163,2,856,0)=" ;;207SC0300X"
^XMB(3.9,163,2,857,0)="""RTN"",""XUSNPIDA"",135,0)"
^XMB(3.9,163,2,858,0)=" ;;207SG0201X"
^XMB(3.9,163,2,859,0)="""RTN"",""XUSNPIDA"",136,0)"
^XMB(3.9,163,2,860,0)=" ;;207SG0202X"
^XMB(3.9,163,2,861,0)="""RTN"",""XUSNPIDA"",137,0)"
^XMB(3.9,163,2,862,0)=" ;;207SG0203X"
^XMB(3.9,163,2,863,0)="""RTN"",""XUSNPIDA"",138,0)"
^XMB(3.9,163,2,864,0)=" ;;207SG0205X"
^XMB(3.9,163,2,865,0)="""RTN"",""XUSNPIDA"",139,0)"
^XMB(3.9,163,2,866,0)=" ;;207SM0001X"
^XMB(3.9,163,2,867,0)="""RTN"",""XUSNPIDA"",140,0)"
^XMB(3.9,163,2,868,0)=" ;;207T00000X"
^XMB(3.9,163,2,869,0)="""RTN"",""XUSNPIDA"",141,0)"
^XMB(3.9,163,2,870,0)=" ;;207U00000X"
^XMB(3.9,163,2,871,0)="""RTN"",""XUSNPIDA"",142,0)"
^XMB(3.9,163,2,872,0)=" ;;207UN0901X"
^XMB(3.9,163,2,873,0)="""RTN"",""XUSNPIDA"",143,0)"
^XMB(3.9,163,2,874,0)=" ;;207UN0902X"
^XMB(3.9,163,2,875,0)="""RTN"",""XUSNPIDA"",144,0)"
^XMB(3.9,163,2,876,0)=" ;;207UN0903X"
^XMB(3.9,163,2,877,0)="""RTN"",""XUSNPIDA"",145,0)"
^XMB(3.9,163,2,878,0)=" ;;207V00000X"
^XMB(3.9,163,2,879,0)="""RTN"",""XUSNPIDA"",146,0)"
^XMB(3.9,163,2,880,0)=" ;;207VC0200X"
^XMB(3.9,163,2,881,0)="""RTN"",""XUSNPIDA"",147,0)"
^XMB(3.9,163,2,882,0)=" ;;207VE0102X"
^XMB(3.9,163,2,883,0)="""RTN"",""XUSNPIDA"",148,0)"
^XMB(3.9,163,2,884,0)=" ;;207VG0400X"
^XMB(3.9,163,2,885,0)="""RTN"",""XUSNPIDA"",149,0)"
^XMB(3.9,163,2,886,0)=" ;;207VM0101X"
^XMB(3.9,163,2,887,0)="""RTN"",""XUSNPIDA"",150,0)"
^XMB(3.9,163,2,888,0)=" ;;207VX0000X"
^XMB(3.9,163,2,889,0)="""RTN"",""XUSNPIDA"",151,0)"
^XMB(3.9,163,2,890,0)=" ;;207VX0201X"
^XMB(3.9,163,2,891,0)="""RTN"",""XUSNPIDA"",152,0)"
^XMB(3.9,163,2,892,0)=" ;;207W00000X"
^XMB(3.9,163,2,893,0)="""RTN"",""XUSNPIDA"",153,0)"
^XMB(3.9,163,2,894,0)=" ;;207X00000X"
^XMB(3.9,163,2,895,0)="""RTN"",""XUSNPIDA"",154,0)"
^XMB(3.9,163,2,896,0)=" ;;207XS0106X"
^XMB(3.9,163,2,897,0)="""RTN"",""XUSNPIDA"",155,0)"
^XMB(3.9,163,2,898,0)=" ;;207XS0114X"
^XMB(3.9,163,2,899,0)="""RTN"",""XUSNPIDA"",156,0)"
^XMB(3.9,163,2,900,0)=" ;;207XS0117X"
^XMB(3.9,163,2,901,0)="""RTN"",""XUSNPIDA"",157,0)"
^XMB(3.9,163,2,902,0)=" ;;207XX0004X"
^XMB(3.9,163,2,903,0)="""RTN"",""XUSNPIDA"",158,0)"
^XMB(3.9,163,2,904,0)=" ;;207XX0005X"
^XMB(3.9,163,2,905,0)="""RTN"",""XUSNPIDA"",159,0)"
^XMB(3.9,163,2,906,0)=" ;;207XX0801X"
^XMB(3.9,163,2,907,0)="""RTN"",""XUSNPIDA"",160,0)"
^XMB(3.9,163,2,908,0)=" ;;207Y00000X"
^XMB(3.9,163,2,909,0)="""RTN"",""XUSNPIDA"",161,0)"
^XMB(3.9,163,2,910,0)=" ;;207YP0228X"
^XMB(3.9,163,2,911,0)="""RTN"",""XUSNPIDA"",162,0)"
^XMB(3.9,163,2,912,0)=" ;;207YS0123X"
^XMB(3.9,163,2,913,0)="""RTN"",""XUSNPIDA"",163,0)"
^XMB(3.9,163,2,914,0)=" ;;207YX0007X"
^XMB(3.9,163,2,915,0)="""RTN"",""XUSNPIDA"",164,0)"
^XMB(3.9,163,2,916,0)=" ;;207YX0602X"
^XMB(3.9,163,2,917,0)="""RTN"",""XUSNPIDA"",165,0)"
^XMB(3.9,163,2,918,0)=" ;;207YX0901X"
^XMB(3.9,163,2,919,0)="""RTN"",""XUSNPIDA"",166,0)"
^XMB(3.9,163,2,920,0)=" ;;207YX0905X"
^XMB(3.9,163,2,921,0)="""RTN"",""XUSNPIDA"",167,0)"
^XMB(3.9,163,2,922,0)=" ;;207ZB0001X"
^XMB(3.9,163,2,923,0)="""RTN"",""XUSNPIDA"",168,0)"
^XMB(3.9,163,2,924,0)=" ;;207ZC0500X"
^XMB(3.9,163,2,925,0)="""RTN"",""XUSNPIDA"",169,0)"
^XMB(3.9,163,2,926,0)=" ;;207ZD0900X"
^XMB(3.9,163,2,927,0)="""RTN"",""XUSNPIDA"",170,0)"
^XMB(3.9,163,2,928,0)=" ;;207ZF0201X"
^XMB(3.9,163,2,929,0)="""RTN"",""XUSNPIDA"",171,0)"
^XMB(3.9,163,2,930,0)=" ;;207ZH0000X"
^XMB(3.9,163,2,931,0)="""RTN"",""XUSNPIDA"",172,0)"
^XMB(3.9,163,2,932,0)=" ;;207ZI0100X"
^XMB(3.9,163,2,933,0)="""RTN"",""XUSNPIDA"",173,0)"
^XMB(3.9,163,2,934,0)=" ;;207ZM0300X"
^XMB(3.9,163,2,935,0)="""RTN"",""XUSNPIDA"",174,0)"
^XMB(3.9,163,2,936,0)=" ;;207ZN0500X"
^XMB(3.9,163,2,937,0)="""RTN"",""XUSNPIDA"",175,0)"
^XMB(3.9,163,2,938,0)=" ;;207ZP0007X"
^XMB(3.9,163,2,939,0)="""RTN"",""XUSNPIDA"",176,0)"
^XMB(3.9,163,2,940,0)=" ;;207ZP0101X"
^XMB(3.9,163,2,941,0)="""RTN"",""XUSNPIDA"",177,0)"
^XMB(3.9,163,2,942,0)=" ;;207ZP0102X"
^XMB(3.9,163,2,943,0)="""RTN"",""XUSNPIDA"",178,0)"
^XMB(3.9,163,2,944,0)=" ;;207ZP0104X"
^XMB(3.9,163,2,945,0)="""RTN"",""XUSNPIDA"",179,0)"
^XMB(3.9,163,2,946,0)=" ;;207ZP0105X"
^XMB(3.9,163,2,947,0)="""RTN"",""XUSNPIDA"",180,0)"
^XMB(3.9,163,2,948,0)=" ;;207ZP0213X"
^XMB(3.9,163,2,949,0)="""RTN"",""XUSNPIDA"",181,0)"
^XMB(3.9,163,2,950,0)=" ;;208000000X"
^XMB(3.9,163,2,951,0)="""RTN"",""XUSNPIDA"",182,0)"
^XMB(3.9,163,2,952,0)=" ;;2080A0000X"
^XMB(3.9,163,2,953,0)="""RTN"",""XUSNPIDA"",183,0)"
^XMB(3.9,163,2,954,0)=" ;;2080I0007X"
^XMB(3.9,163,2,955,0)="""RTN"",""XUSNPIDA"",184,0)"
^XMB(3.9,163,2,956,0)=" ;;2080N0001X"
^XMB(3.9,163,2,957,0)="""RTN"",""XUSNPIDA"",185,0)"
^XMB(3.9,163,2,958,0)=" ;;2080P0006X"
^XMB(3.9,163,2,959,0)="""RTN"",""XUSNPIDA"",186,0)"
^XMB(3.9,163,2,960,0)=" ;;2080P0008X"
^XMB(3.9,163,2,961,0)="""RTN"",""XUSNPIDA"",187,0)"
^XMB(3.9,163,2,962,0)=" ;;2080P0201X"
^XMB(3.9,163,2,963,0)="""RTN"",""XUSNPIDA"",188,0)"
^XMB(3.9,163,2,964,0)=" ;;2080P0202X"
^XMB(3.9,163,2,965,0)="""RTN"",""XUSNPIDA"",189,0)"
^XMB(3.9,163,2,966,0)=" ;;2080P0203X"
^XMB(3.9,163,2,967,0)="""RTN"",""XUSNPIDA"",190,0)"
^XMB(3.9,163,2,968,0)=" ;;2080P0204X"
^XMB(3.9,163,2,969,0)="""RTN"",""XUSNPIDA"",191,0)"
^XMB(3.9,163,2,970,0)=" ;;2080P0205X"
^XMB(3.9,163,2,971,0)="""RTN"",""XUSNPIDA"",192,0)"
^XMB(3.9,163,2,972,0)=" ;;2080P0206X"
^XMB(3.9,163,2,973,0)="""RTN"",""XUSNPIDA"",193,0)"
^XMB(3.9,163,2,974,0)=" ;;2080P0207X"
^XMB(3.9,163,2,975,0)="""RTN"",""XUSNPIDA"",194,0)"
^XMB(3.9,163,2,976,0)=" ;;2080P0208X"
^XMB(3.9,163,2,977,0)="""RTN"",""XUSNPIDA"",195,0)"
^XMB(3.9,163,2,978,0)=" ;;2080P0210X"
^XMB(3.9,163,2,979,0)="""RTN"",""XUSNPIDA"",196,0)"
^XMB(3.9,163,2,980,0)=" ;;2080P0214X"
^XMB(3.9,163,2,981,0)="""RTN"",""XUSNPIDA"",197,0)"
^XMB(3.9,163,2,982,0)=" ;;2080P0216X"
^XMB(3.9,163,2,983,0)="""RTN"",""XUSNPIDA"",198,0)"
^XMB(3.9,163,2,984,0)=" ;;2080S0010X"
^XMB(3.9,163,2,985,0)="""RTN"",""XUSNPIDA"",199,0)"
^XMB(3.9,163,2,986,0)=" ;;2080T0002X"
^XMB(3.9,163,2,987,0)="""RTN"",""XUSNPIDA"",200,0)"
^XMB(3.9,163,2,988,0)=" ;;208100000X"
^XMB(3.9,163,2,989,0)="""RTN"",""XUSNPIDA"",201,0)"
^XMB(3.9,163,2,990,0)=" ;;2081P0004X"
^XMB(3.9,163,2,991,0)="""RTN"",""XUSNPIDA"",202,0)"
^XMB(3.9,163,2,992,0)=" ;;2081P0010X"
^XMB(3.9,163,2,993,0)="""RTN"",""XUSNPIDA"",203,0)"
^XMB(3.9,163,2,994,0)=" ;;2081P2900X"
^XMB(3.9,163,2,995,0)="""RTN"",""XUSNPIDA"",204,0)"
^XMB(3.9,163,2,996,0)=" ;;2081S0010X"
^XMB(3.9,163,2,997,0)="""RTN"",""XUSNPIDA"",205,0)"
^XMB(3.9,163,2,998,0)=" ;;208200000X"
^XMB(3.9,163,2,999,0)="""RTN"",""XUSNPIDA"",206,0)"
^XMB(3.9,163,2,1000,0)=" ;;2082S0099X"
^XMB(3.9,163,2,1001,0)="""RTN"",""XUSNPIDA"",207,0)"
^XMB(3.9,163,2,1002,0)=" ;;2082S0105X"
^XMB(3.9,163,2,1003,0)="""RTN"",""XUSNPIDA"",208,0)"
^XMB(3.9,163,2,1004,0)=" ;;2083A0100X"
^XMB(3.9,163,2,1005,0)="""RTN"",""XUSNPIDA"",209,0)"
^XMB(3.9,163,2,1006,0)=" ;;2083P0011X"
^XMB(3.9,163,2,1007,0)="""RTN"",""XUSNPIDA"",210,0)"
^XMB(3.9,163,2,1008,0)=" ;;2083P0500X"
^XMB(3.9,163,2,1009,0)="""RTN"",""XUSNPIDA"",211,0)"
^XMB(3.9,163,2,1010,0)=" ;;2083P0901X"
^XMB(3.9,163,2,1011,0)="""RTN"",""XUSNPIDA"",212,0)"
^XMB(3.9,163,2,1012,0)=" ;;2083S0010X"
^XMB(3.9,163,2,1013,0)="""RTN"",""XUSNPIDA"",213,0)"
^XMB(3.9,163,2,1014,0)=" ;;2083T0002X"
^XMB(3.9,163,2,1015,0)="""RTN"",""XUSNPIDA"",214,0)"
^XMB(3.9,163,2,1016,0)=" ;;2083X0100X"
^XMB(3.9,163,2,1017,0)="""RTN"",""XUSNPIDA"",215,0)"
^XMB(3.9,163,2,1018,0)=" ;;2084A0401X"
^XMB(3.9,163,2,1019,0)="""RTN"",""XUSNPIDA"",216,0)"
^XMB(3.9,163,2,1020,0)=" ;;2084F0202X"
^XMB(3.9,163,2,1021,0)="""RTN"",""XUSNPIDA"",217,0)"
^XMB(3.9,163,2,1022,0)=" ;;2084N0400X"
^XMB(3.9,163,2,1023,0)="""RTN"",""XUSNPIDA"",218,0)"
^XMB(3.9,163,2,1024,0)=" ;;2084N0402X"
^XMB(3.9,163,2,1025,0)="""RTN"",""XUSNPIDA"",219,0)"
^XMB(3.9,163,2,1026,0)=" ;;2084N0600X"
^XMB(3.9,163,2,1027,0)="""RTN"",""XUSNPIDA"",220,0)"
^XMB(3.9,163,2,1028,0)=" ;;2084P0005X"
^XMB(3.9,163,2,1029,0)="""RTN"",""XUSNPIDA"",221,0)"
^XMB(3.9,163,2,1030,0)=" ;;2084P0800X"
^XMB(3.9,163,2,1031,0)="""RTN"",""XUSNPIDA"",222,0)"
^XMB(3.9,163,2,1032,0)=" ;;2084P0802X"
^XMB(3.9,163,2,1033,0)="""RTN"",""XUSNPIDA"",223,0)"
^XMB(3.9,163,2,1034,0)=" ;;2084P0804X"
^XMB(3.9,163,2,1035,0)="""RTN"",""XUSNPIDA"",224,0)"
^XMB(3.9,163,2,1036,0)=" ;;2084P0805X"
^XMB(3.9,163,2,1037,0)="""RTN"",""XUSNPIDA"",225,0)"
^XMB(3.9,163,2,1038,0)=" ;;2084P2900X"
^XMB(3.9,163,2,1039,0)="""RTN"",""XUSNPIDA"",226,0)"
^XMB(3.9,163,2,1040,0)=" ;;2084S0010X"
^XMB(3.9,163,2,1041,0)="""RTN"",""XUSNPIDA"",227,0)"
^XMB(3.9,163,2,1042,0)=" ;;2084V0102X"
^XMB(3.9,163,2,1043,0)="""RTN"",""XUSNPIDA"",228,0)"
^XMB(3.9,163,2,1044,0)=" ;;2085B0100X"
^XMB(3.9,163,2,1045,0)="""RTN"",""XUSNPIDA"",229,0)"
^XMB(3.9,163,2,1046,0)=" ;;2085N0700X"
^XMB(3.9,163,2,1047,0)="""RTN"",""XUSNPIDA"",230,0)"
^XMB(3.9,163,2,1048,0)=" ;;2085N0904X"
^XMB(3.9,163,2,1049,0)="""RTN"",""XUSNPIDA"",231,0)"
^XMB(3.9,163,2,1050,0)=" ;;2085P0229X"
^XMB(3.9,163,2,1051,0)="""RTN"",""XUSNPIDA"",232,0)"
^XMB(3.9,163,2,1052,0)=" ;;2085R0001X"
^XMB(3.9,163,2,1053,0)="""RTN"",""XUSNPIDA"",233,0)"
^XMB(3.9,163,2,1054,0)=" ;;2085R0202X"
^XMB(3.9,163,2,1055,0)="""RTN"",""XUSNPIDA"",234,0)"
^XMB(3.9,163,2,1056,0)=" ;;2085R0203X"
^XMB(3.9,163,2,1057,0)="""RTN"",""XUSNPIDA"",235,0)"
^XMB(3.9,163,2,1058,0)=" ;;2085R0204X"
^XMB(3.9,163,2,1059,0)="""RTN"",""XUSNPIDA"",236,0)"
^XMB(3.9,163,2,1060,0)=" ;;2085R0205X"
^XMB(3.9,163,2,1061,0)="""RTN"",""XUSNPIDA"",237,0)"
^XMB(3.9,163,2,1062,0)=" ;;2085U0001X"
^XMB(3.9,163,2,1063,0)="""RTN"",""XUSNPIDA"",238,0)"
^XMB(3.9,163,2,1064,0)=" ;;208600000X"
^XMB(3.9,163,2,1065,0)="""RTN"",""XUSNPIDA"",239,0)"
^XMB(3.9,163,2,1066,0)=" ;;2086S0102X"
^XMB(3.9,163,2,1067,0)="""RTN"",""XUSNPIDA"",240,0)"
^XMB(3.9,163,2,1068,0)=" ;;2086S0105X"
^XMB(3.9,163,2,1069,0)="""RTN"",""XUSNPIDA"",241,0)"
^XMB(3.9,163,2,1070,0)=" ;;2086S0120X"
^XMB(3.9,163,2,1071,0)="""RTN"",""XUSNPIDA"",242,0)"
^XMB(3.9,163,2,1072,0)=" ;;2086S0122X"
^XMB(3.9,163,2,1073,0)="""RTN"",""XUSNPIDA"",243,0)"
^XMB(3.9,163,2,1074,0)=" ;;2086S0127X"
^XMB(3.9,163,2,1075,0)="""RTN"",""XUSNPIDA"",244,0)"
^XMB(3.9,163,2,1076,0)=" ;;2086S0129X"
^XMB(3.9,163,2,1077,0)="""RTN"",""XUSNPIDA"",245,0)"
^XMB(3.9,163,2,1078,0)=" ;;2086X0206X"
^XMB(3.9,163,2,1079,0)="""RTN"",""XUSNPIDA"",246,0)"
^XMB(3.9,163,2,1080,0)=" ;;208800000X"
^XMB(3.9,163,2,1081,0)="""RTN"",""XUSNPIDA"",247,0)"
^XMB(3.9,163,2,1082,0)=" ;;208C00000X"
^XMB(3.9,163,2,1083,0)="""RTN"",""XUSNPIDA"",248,0)"
^XMB(3.9,163,2,1084,0)=" ;;208D00000X"
^XMB(3.9,163,2,1085,0)="""RTN"",""XUSNPIDA"",249,0)"
^XMB(3.9,163,2,1086,0)=" ;;208G00000X"
^XMB(3.9,163,2,1087,0)="""RTN"",""XUSNPIDA"",250,0)"
^XMB(3.9,163,2,1088,0)=" ;;208M00000X"
^XMB(3.9,163,2,1089,0)="""RTN"",""XUSNPIDA"",251,0)"
^XMB(3.9,163,2,1090,0)=" ;;208U00000X"
^XMB(3.9,163,2,1091,0)="""RTN"",""XUSNPIDA"",252,0)"
^XMB(3.9,163,2,1092,0)=" ;;208VP0000X"
^XMB(3.9,163,2,1093,0)="""RTN"",""XUSNPIDA"",253,0)"
^XMB(3.9,163,2,1094,0)=" ;;208VP0014X"
^XMB(3.9,163,2,1095,0)="""RTN"",""XUSNPIDA"",254,0)"
^XMB(3.9,163,2,1096,0)=" ;;209800000X"
^XMB(3.9,163,2,1097,0)="""RTN"",""XUSNPIDA"",255,0)"
^XMB(3.9,163,2,1098,0)=" ;;213E00000X"
^XMB(3.9,163,2,1099,0)="""RTN"",""XUSNPIDA"",256,0)"
^XMB(3.9,163,2,1100,0)=" ;;213EG0000X"
^XMB(3.9,163,2,1101,0)="""RTN"",""XUSNPIDA"",257,0)"
^XMB(3.9,163,2,1102,0)=" ;;213EP0504X"
^XMB(3.9,163,2,1103,0)="""RTN"",""XUSNPIDA"",258,0)"
^XMB(3.9,163,2,1104,0)=" ;;213EP1101X"
^XMB(3.9,163,2,1105,0)="""RTN"",""XUSNPIDA"",259,0)"
^XMB(3.9,163,2,1106,0)=" ;;213ER0200X"
^XMB(3.9,163,2,1107,0)="""RTN"",""XUSNPIDA"",260,0)"
^XMB(3.9,163,2,1108,0)=" ;;213ES0000X"
^XMB(3.9,163,2,1109,0)="""RTN"",""XUSNPIDA"",261,0)"
^XMB(3.9,163,2,1110,0)=" ;;213ES0103X"
^XMB(3.9,163,2,1111,0)="""RTN"",""XUSNPIDA"",262,0)"
^XMB(3.9,163,2,1112,0)=" ;;213ES0131X"
^XMB(3.9,163,2,1113,0)="""RTN"",""XUSNPIDA"",263,0)"
^XMB(3.9,163,2,1114,0)=" ;;225100000X"
^XMB(3.9,163,2,1115,0)="""RTN"",""XUSNPIDA"",264,0)"
^XMB(3.9,163,2,1116,0)=" ;;2251C2600X"
^XMB(3.9,163,2,1117,0)="""RTN"",""XUSNPIDA"",265,0)"
^XMB(3.9,163,2,1118,0)=" ;;2251E1200X"
^XMB(3.9,163,2,1119,0)="""RTN"",""XUSNPIDA"",266,0)"
^XMB(3.9,163,2,1120,0)=" ;;2251E1300X"
^XMB(3.9,163,2,1121,0)="""RTN"",""XUSNPIDA"",267,0)"
^XMB(3.9,163,2,1122,0)=" ;;2251G0304X"
^XMB(3.9,163,2,1123,0)="""RTN"",""XUSNPIDA"",268,0)"
^XMB(3.9,163,2,1124,0)=" ;;2251H1200X"
^XMB(3.9,163,2,1125,0)="""RTN"",""XUSNPIDA"",269,0)"
^XMB(3.9,163,2,1126,0)=" ;;2251H1300X"
^XMB(3.9,163,2,1127,0)="""RTN"",""XUSNPIDA"",270,0)"
^XMB(3.9,163,2,1128,0)=" ;;2251N0400X"
^XMB(3.9,163,2,1129,0)="""RTN"",""XUSNPIDA"",271,0)"
^XMB(3.9,163,2,1130,0)=" ;;2251P0200X"
^XMB(3.9,163,2,1131,0)="""RTN"",""XUSNPIDA"",272,0)"
^XMB(3.9,163,2,1132,0)=" ;;2251S0007X"
^XMB(3.9,163,2,1133,0)="""RTN"",""XUSNPIDA"",273,0)"
^XMB(3.9,163,2,1134,0)=" ;;2251X0800X"
^XMB(3.9,163,2,1135,0)="""RTN"",""XUSNPIDA"",274,0)"
^XMB(3.9,163,2,1136,0)=" ;;225X00000X"
^XMB(3.9,163,2,1137,0)="""RTN"",""XUSNPIDA"",275,0)"
^XMB(3.9,163,2,1138,0)=" ;;225XE1200X"
^XMB(3.9,163,2,1139,0)="""RTN"",""XUSNPIDA"",276,0)"
^XMB(3.9,163,2,1140,0)=" ;;225XH1200X"
^XMB(3.9,163,2,1141,0)="""RTN"",""XUSNPIDA"",277,0)"
^XMB(3.9,163,2,1142,0)=" ;;225XH1300X"
^XMB(3.9,163,2,1143,0)="""RTN"",""XUSNPIDA"",278,0)"
^XMB(3.9,163,2,1144,0)=" ;;225XN1300X"
^XMB(3.9,163,2,1145,0)="""RTN"",""XUSNPIDA"",279,0)"
^XMB(3.9,163,2,1146,0)=" ;;225XP0200X"
^XMB(3.9,163,2,1147,0)="""RTN"",""XUSNPIDA"",280,0)"
^XMB(3.9,163,2,1148,0)=" ;;225XR0403X"
^XMB(3.9,163,2,1149,0)="""RTN"",""XUSNPIDA"",281,0)"
^XMB(3.9,163,2,1150,0)=" ;;231H00000X"
^XMB(3.9,163,2,1151,0)="""RTN"",""XUSNPIDA"",282,0)"
^XMB(3.9,163,2,1152,0)=" ;;231HA2400X"
^XMB(3.9,163,2,1153,0)="""RTN"",""XUSNPIDA"",283,0)"
^XMB(3.9,163,2,1154,0)=" ;;231HA2500X"
^XMB(3.9,163,2,1155,0)="""RTN"",""XUSNPIDA"",284,0)"
^XMB(3.9,163,2,1156,0)=" ;;237600000X"
^XMB(3.9,163,2,1157,0)="""RTN"",""XUSNPIDA"",285,0)"
^XMB(3.9,163,2,1158,0)=" ;;363A00000X"
^XMB(3.9,163,2,1159,0)="""RTN"",""XUSNPIDA"",286,0)"
^XMB(3.9,163,2,1160,0)=" ;;363AM0700X"
^XMB(3.9,163,2,1161,0)="""RTN"",""XUSNPIDA"",287,0)"
^XMB(3.9,163,2,1162,0)=" ;;363AS0400X"
^XMB(3.9,163,2,1163,0)="""RTN"",""XUSNPIDA"",288,0)"
^XMB(3.9,163,2,1164,0)=" ;;363L00000X"
^XMB(3.9,163,2,1165,0)="""RTN"",""XUSNPIDA"",289,0)"
^XMB(3.9,163,2,1166,0)=" ;;363LA2100X"
^XMB(3.9,163,2,1167,0)="""RTN"",""XUSNPIDA"",290,0)"
^XMB(3.9,163,2,1168,0)=" ;;363LA2200X"
^XMB(3.9,163,2,1169,0)="""RTN"",""XUSNPIDA"",291,0)"
^XMB(3.9,163,2,1170,0)=" ;;363LC0200X"
^XMB(3.9,163,2,1171,0)="""RTN"",""XUSNPIDA"",292,0)"
^XMB(3.9,163,2,1172,0)=" ;;363LC1500X"
^XMB(3.9,163,2,1173,0)="""RTN"",""XUSNPIDA"",293,0)"
^XMB(3.9,163,2,1174,0)=" ;;363LF0000X"
^XMB(3.9,163,2,1175,0)="""RTN"",""XUSNPIDA"",294,0)"
^XMB(3.9,163,2,1176,0)=" ;;363LG0600X"
^XMB(3.9,163,2,1177,0)="""RTN"",""XUSNPIDA"",295,0)"
^XMB(3.9,163,2,1178,0)=" ;;363LN0000X"
^XMB(3.9,163,2,1179,0)="""RTN"",""XUSNPIDA"",296,0)"
^XMB(3.9,163,2,1180,0)=" ;;363LN0005X"
^XMB(3.9,163,2,1181,0)="""RTN"",""XUSNPIDA"",297,0)"
^XMB(3.9,163,2,1182,0)=" ;;363LP0200X"
^XMB(3.9,163,2,1183,0)="""RTN"",""XUSNPIDA"",298,0)"
^XMB(3.9,163,2,1184,0)=" ;;363LP0222X"
^XMB(3.9,163,2,1185,0)="""RTN"",""XUSNPIDA"",299,0)"
^XMB(3.9,163,2,1186,0)=" ;;363LP0808X"
^XMB(3.9,163,2,1187,0)="""RTN"",""XUSNPIDA"",300,0)"
^XMB(3.9,163,2,1188,0)=" ;;363LP1700X"
^XMB(3.9,163,2,1189,0)="""RTN"",""XUSNPIDA"",301,0)"
^XMB(3.9,163,2,1190,0)=" ;;363LP2300X"
^XMB(3.9,163,2,1191,0)="""RTN"",""XUSNPIDA"",302,0)"
^XMB(3.9,163,2,1192,0)=" ;;363LS0200X"
^XMB(3.9,163,2,1193,0)="""RTN"",""XUSNPIDA"",303,0)"
^XMB(3.9,163,2,1194,0)=" ;;363LW0102X"
^XMB(3.9,163,2,1195,0)="""RTN"",""XUSNPIDA"",304,0)"
^XMB(3.9,163,2,1196,0)=" ;;363LX0001X"
^XMB(3.9,163,2,1197,0)="""RTN"",""XUSNPIDA"",305,0)"
^XMB(3.9,163,2,1198,0)=" ;;363LX0106X"
^XMB(3.9,163,2,1199,0)="""RTN"",""XUSNPIDA"",306,0)"
^XMB(3.9,163,2,1200,0)=" ;;364S00000X"
^XMB(3.9,163,2,1201,0)="""RTN"",""XUSNPIDA"",307,0)"
^XMB(3.9,163,2,1202,0)=" ;;364SA2100X"
^XMB(3.9,163,2,1203,0)="""RTN"",""XUSNPIDA"",308,0)"
^XMB(3.9,163,2,1204,0)=" ;;364SA2200X"
^XMB(3.9,163,2,1205,0)="""RTN"",""XUSNPIDA"",309,0)"
^XMB(3.9,163,2,1206,0)=" ;;364SC0200X"
^XMB(3.9,163,2,1207,0)="""RTN"",""XUSNPIDA"",310,0)"
^XMB(3.9,163,2,1208,0)=" ;;364SC1501X"
^XMB(3.9,163,2,1209,0)="""RTN"",""XUSNPIDA"",311,0)"
^XMB(3.9,163,2,1210,0)=" ;;364SC2300X"
^XMB(3.9,163,2,1211,0)="""RTN"",""XUSNPIDA"",312,0)"
^XMB(3.9,163,2,1212,0)=" ;;364SE0003X"
^XMB(3.9,163,2,1213,0)="""RTN"",""XUSNPIDA"",313,0)"
^XMB(3.9,163,2,1214,0)=" ;;364SE1400X"
^XMB(3.9,163,2,1215,0)="""RTN"",""XUSNPIDA"",314,0)"
^XMB(3.9,163,2,1216,0)=" ;;364SF0001X"
^XMB(3.9,163,2,1217,0)="""RTN"",""XUSNPIDA"",315,0)"
^XMB(3.9,163,2,1218,0)=" ;;364SG0600X"
^XMB(3.9,163,2,1219,0)="""RTN"",""XUSNPIDA"",316,0)"
^XMB(3.9,163,2,1220,0)=" ;;364SH0200X"
^XMB(3.9,163,2,1221,0)="""RTN"",""XUSNPIDA"",317,0)"
^XMB(3.9,163,2,1222,0)=" ;;364SH1100X"
^XMB(3.9,163,2,1223,0)="""RTN"",""XUSNPIDA"",318,0)"
^XMB(3.9,163,2,1224,0)=" ;;364SI0800X"
^XMB(3.9,163,2,1225,0)="""RTN"",""XUSNPIDA"",319,0)"
^XMB(3.9,163,2,1226,0)=" ;;364SL0600X"
^XMB(3.9,163,2,1227,0)="""RTN"",""XUSNPIDA"",320,0)"
^XMB(3.9,163,2,1228,0)=" ;;364SM0705X"
^XMB(3.9,163,2,1229,0)="""RTN"",""XUSNPIDA"",321,0)"
^XMB(3.9,163,2,1230,0)=" ;;364SN0000X"
^XMB(3.9,163,2,1231,0)="""RTN"",""XUSNPIDA"",322,0)"
^XMB(3.9,163,2,1232,0)=" ;;364SN0800X"
^XMB(3.9,163,2,1233,0)="""RTN"",""XUSNPIDA"",323,0)"
^XMB(3.9,163,2,1234,0)=" ;;364SP0200X"
^XMB(3.9,163,2,1235,0)="""RTN"",""XUSNPIDA"",324,0)"
^XMB(3.9,163,2,1236,0)=" ;;364SP0807X"
^XMB(3.9,163,2,1237,0)="""RTN"",""XUSNPIDA"",325,0)"
^XMB(3.9,163,2,1238,0)=" ;;364SP0808X"
^XMB(3.9,163,2,1239,0)="""RTN"",""XUSNPIDA"",326,0)"
^XMB(3.9,163,2,1240,0)=" ;;364SP0809X"
^XMB(3.9,163,2,1241,0)="""RTN"",""XUSNPIDA"",327,0)"
^XMB(3.9,163,2,1242,0)=" ;;364SP0810X"
^XMB(3.9,163,2,1243,0)="""RTN"",""XUSNPIDA"",328,0)"
^XMB(3.9,163,2,1244,0)=" ;;364SP0811X"
^XMB(3.9,163,2,1245,0)="""RTN"",""XUSNPIDA"",329,0)"
^XMB(3.9,163,2,1246,0)=" ;;364SP0812X"
^XMB(3.9,163,2,1247,0)="""RTN"",""XUSNPIDA"",330,0)"
^XMB(3.9,163,2,1248,0)=" ;;364SP0813X"
^XMB(3.9,163,2,1249,0)="""RTN"",""XUSNPIDA"",331,0)"
^XMB(3.9,163,2,1250,0)=" ;;364SP1700X"
^XMB(3.9,163,2,1251,0)="""RTN"",""XUSNPIDA"",332,0)"
^XMB(3.9,163,2,1252,0)=" ;;364SP2800X"
^XMB(3.9,163,2,1253,0)="""RTN"",""XUSNPIDA"",333,0)"
^XMB(3.9,163,2,1254,0)=" ;;364SR0400X"
^XMB(3.9,163,2,1255,0)="""RTN"",""XUSNPIDA"",334,0)"
^XMB(3.9,163,2,1256,0)=" ;;364SS0200X"
^XMB(3.9,163,2,1257,0)="""RTN"",""XUSNPIDA"",335,0)"
^XMB(3.9,163,2,1258,0)=" ;;364ST0500X"
^XMB(3.9,163,2,1259,0)="""RTN"",""XUSNPIDA"",336,0)"
^XMB(3.9,163,2,1260,0)=" ;;364SW0102X"
^XMB(3.9,163,2,1261,0)="""RTN"",""XUSNPIDA"",337,0)"
^XMB(3.9,163,2,1262,0)=" ;;364SX0106X"
^XMB(3.9,163,2,1263,0)="""RTN"",""XUSNPIDA"",338,0)"
^XMB(3.9,163,2,1264,0)=" ;;364SX0200X"
^XMB(3.9,163,2,1265,0)="""RTN"",""XUSNPIDA"",339,0)"
^XMB(3.9,163,2,1266,0)=" ;;364SX0204X"
^XMB(3.9,163,2,1267,0)="""RTN"",""XUSNPIDA"",340,0)"
^XMB(3.9,163,2,1268,0)=" ;;367500000X"
^XMB(3.9,163,2,1269,0)="""RTN"",""XUSNPIDA"",341,0)"
^XMB(3.9,163,2,1270,0)=" ;;367A00000X"
^XMB(3.9,163,2,1271,0)="""RTN"",""XUSNPIDA"",342,0)"
^XMB(3.9,163,2,1272,0)=" ;;367H00000X"
^XMB(3.9,163,2,1273,0)="""RTN"",""XUSNPIE1"")"
^XMB(3.9,163,2,1274,0)="0^2^B89054280^n/a"
^XMB(3.9,163,2,1275,0)="""RTN"",""XUSNPIE1"",1,0)"
^XMB(3.9,163,2,1276,0)="XUSNPIE1 ;fo-oakland/jli - NATIONAL PROVIDER IDENTIFIER DATA CAPTURE ;7/26/06  13:01"
^XMB(3.9,163,2,1277,0)="""RTN"",""XUSNPIE1"",2,0)"
^XMB(3.9,163,2,1278,0)=" ;;8.0;KERNEL;**420**; July 10, 1995;Build 20"
^XMB(3.9,163,2,1279,0)="""RTN"",""XUSNPIE1"",3,0)"
^XMB(3.9,163,2,1280,0)=" ;"
^XMB(3.9,163,2,1281,0)="""RTN"",""XUSNPIE1"",4,0)"
^XMB(3.9,163,2,1282,0)=" Q"
^XMB(3.9,163,2,1283,0)="""RTN"",""XUSNPIE1"",5,0)"
^XMB(3.9,163,2,1284,0)=" ;"
^XMB(3.9,163,2,1285,0)="""RTN"",""XUSNPIE1"",6,0)"
^XMB(3.9,163,2,1286,0)="CHKDT(XUSIEN,XUSDATE) ; Check Date"
^XMB(3.9,163,2,1287,0)="""RTN"",""XUSNPIE1"",7,0)"
^XMB(3.9,163,2,1288,0)=" ;;======="
^XMB(3.9,163,2,1289,0)="""RTN"",""XUSNPIE1"",8,0)"
^XMB(3.9,163,2,1290,0)=" ;;  XUSIEN  : Internal Entry Number. Required."
^XMB(3.9,163,2,1291,0)="""RTN"",""XUSNPIE1"",9,0)"
^XMB(3.9,163,2,1292,0)=" ;;  XUSDATE : The Effective Date value to test. Must be FM date. Required."
^XMB(3.9,163,2,1293,0)="""RTN"",""XUSNPIE1"",10,0)"
^XMB(3.9,163,2,1294,0)=" ;;"
^XMB(3.9,163,2,1295,0)="""RTN"",""XUSNPIE1"",11,0)"
^XMB(3.9,163,2,1296,0)=" ;;  If input passes date comparison, return 1."
^XMB(3.9,163,2,1297,0)="""RTN"",""XUSNPIE1"",12,0)"
^XMB(3.9,163,2,1298,0)=" ;;  Else return 0."
^XMB(3.9,163,2,1299,0)="""RTN"",""XUSNPIE1"",13,0)"
^XMB(3.9,163,2,1300,0)=" ;;======="
^XMB(3.9,163,2,1301,0)="""RTN"",""XUSNPIE1"",14,0)"
^XMB(3.9,163,2,1302,0)=" ;"
^XMB(3.9,163,2,1303,0)="""RTN"",""XUSNPIE1"",15,0)"
^XMB(3.9,163,2,1304,0)=" I '$D(XUSIEN) Q ""-1^Invalid IEN"""
^XMB(3.9,163,2,1305,0)="""RTN"",""XUSNPIE1"",16,0)"
^XMB(3.9,163,2,1306,0)=" N X,Y S X=XUSDATE D ^%DT I Y<1 Q ""0^Invalid Effective Date"""
^XMB(3.9,163,2,1307,0)="""RTN"",""XUSNPIE1"",17,0)"
^XMB(3.9,163,2,1308,0)=" ;-------"
^XMB(3.9,163,2,1309,0)="""RTN"",""XUSNPIE1"",18,0)"
^XMB(3.9,163,2,1310,0)=" N XUSROOT,XUSX,XUSDA,XUSRTN S XUSRTN=0"
^XMB(3.9,163,2,1311,0)="""RTN"",""XUSNPIE1"",19,0)"
^XMB(3.9,163,2,1312,0)=" N XUSCRDT S XUSCRDT=$$DT^XLFDT"
^XMB(3.9,163,2,1313,0)="""RTN"",""XUSNPIE1"",20,0)"
^XMB(3.9,163,2,1314,0)=" ; get global from Parameter file base on Qualified Identifier."
^XMB(3.9,163,2,1315,0)="""RTN"",""XUSNPIE1"",21,0)"
^XMB(3.9,163,2,1316,0)=" S XUSROOT=""^VA(200,""_XUSIEN_"",""_""""""NPISTATUS"""""""
^XMB(3.9,163,2,1317,0)="""RTN"",""XUSNPIE1"",22,0)"
^XMB(3.9,163,2,1318,0)=" I '$D(@(XUSROOT_"")"")) Q 1"
^XMB(3.9,163,2,1319,0)="""RTN"",""XUSNPIE1"",23,0)"
^XMB(3.9,163,2,1320,0)=" S XUSX=XUSROOT_"",""_""""""A""""""_"")"",XUSDA=$O(@XUSX,-1)"
^XMB(3.9,163,2,1321,0)="""RTN"",""XUSNPIE1"",24,0)"
^XMB(3.9,163,2,1322,0)=" I $G(XUSDA) S XUSX=XUSROOT_"",""_XUSDA_"",""_0_"")"",XUSRTN=$P($G(@XUSX),""^"")"
^XMB(3.9,163,2,1323,0)="""RTN"",""XUSNPIE1"",25,0)"
^XMB(3.9,163,2,1324,0)=" I (XUSDATE'<XUSRTN),(XUSDATE'>XUSCRDT) Q 1"
^XMB(3.9,163,2,1325,0)="""RTN"",""XUSNPIE1"",26,0)"
^XMB(3.9,163,2,1326,0)=" Q 0"
^XMB(3.9,163,2,1327,0)="""RTN"",""XUSNPIE1"",27,0)"
^XMB(3.9,163,2,1328,0)=" ;"
^XMB(3.9,163,2,1329,0)="""RTN"",""XUSNPIE1"",28,0)"
^XMB(3.9,163,2,1330,0)="ADDNPI(XUSIEN,XUSNPI,XUSDATE,XUSTATUS) ;"
^XMB(3.9,163,2,1331,0)="""RTN"",""XUSNPIE1"",29,0)"
^XMB(3.9,163,2,1332,0)=" ;;=========="
^XMB(3.9,163,2,1333,0)="""RTN"",""XUSNPIE1"",30,0)"
^XMB(3.9,163,2,1334,0)=" ;; Update the Effective Date, Status & NPI trio."
^XMB(3.9,163,2,1335,0)="""RTN"",""XUSNPIE1"",31,0)"
^XMB(3.9,163,2,1336,0)=" ;; XUSIEN  : Internal Entry Number. Required."
^XMB(3.9,163,2,1337,0)="""RTN"",""XUSNPIE1"",32,0)"
^XMB(3.9,163,2,1338,0)=" ;; XUSNPI  : National Provider Identifier. Required."
^XMB(3.9,163,2,1339,0)="""RTN"",""XUSNPIE1"",33,0)"
^XMB(3.9,163,2,1340,0)=" ;; XUSDATE : Active Date. Required."
^XMB(3.9,163,2,1341,0)="""RTN"",""XUSNPIE1"",34,0)"
^XMB(3.9,163,2,1342,0)=" ;;"
^XMB(3.9,163,2,1343,0)="""RTN"",""XUSNPIE1"",35,0)"
^XMB(3.9,163,2,1344,0)=" ;; If successful, return XUSRTN = IEN of new 42 sub-file entry."
^XMB(3.9,163,2,1345,0)="""RTN"",""XUSNPIE1"",36,0)"
^XMB(3.9,163,2,1346,0)=" ;; Else return XUSRTN = ""-1^ErrorMessage""."
^XMB(3.9,163,2,1347,0)="""RTN"",""XUSNPIE1"",37,0)"
^XMB(3.9,163,2,1348,0)=" ;; ========="
^XMB(3.9,163,2,1349,0)="""RTN"",""XUSNPIE1"",38,0)"
^XMB(3.9,163,2,1350,0)=" ;"
^XMB(3.9,163,2,1351,0)="""RTN"",""XUSNPIE1"",39,0)"
^XMB(3.9,163,2,1352,0)=" ; Check valid inputs."
^XMB(3.9,163,2,1353,0)="""RTN"",""XUSNPIE1"",40,0)"
^XMB(3.9,163,2,1354,0)=" N XUSROOT,XUSFNB"
^XMB(3.9,163,2,1355,0)="""RTN"",""XUSNPIE1"",41,0)"
^XMB(3.9,163,2,1356,0)=" S XUSROOT=""^VA(200,"""
^XMB(3.9,163,2,1357,0)="""RTN"",""XUSNPIE1"",42,0)"
^XMB(3.9,163,2,1358,0)=" I '$$CHKDGT(XUSNPI) Q ""-1^Invalid NPI"""
^XMB(3.9,163,2,1359,0)="""RTN"",""XUSNPIE1"",43,0)"
^XMB(3.9,163,2,1360,0)=" N X,Y S X=XUSDATE D ^%DT I Y<1 Q ""-1^Invalid Effective Date"""
^XMB(3.9,163,2,1361,0)="""RTN"",""XUSNPIE1"",44,0)"
^XMB(3.9,163,2,1362,0)=" I '$$CHKDT(XUSIEN,XUSDATE) Q ""-1^Invalid Effective Date"""
^XMB(3.9,163,2,1363,0)="""RTN"",""XUSNPIE1"",45,0)"
^XMB(3.9,163,2,1364,0)=" I $G(XUSTATUS)="""" S XUSTATUS=1"
^XMB(3.9,163,2,1365,0)="""RTN"",""XUSNPIE1"",46,0)"
^XMB(3.9,163,2,1366,0)=" I (XUSTATUS'=0),(XUSTATUS'=1) Q ""-1^Invalid Status"""
^XMB(3.9,163,2,1367,0)="""RTN"",""XUSNPIE1"",47,0)"
^XMB(3.9,163,2,1368,0)=" N CHNPI S CHNPI=$O(^VA(200,""ANPI"",XUSNPI,0)) ; check if NPI is being used for another entry"
^XMB(3.9,163,2,1369,0)="""RTN"",""XUSNPIE1"",48,0)"
^XMB(3.9,163,2,1370,0)=" I CHNPI>0 Q ""-1^NPI VALUE ALREADY IN USE"""
^XMB(3.9,163,2,1371,0)="""RTN"",""XUSNPIE1"",49,0)"
^XMB(3.9,163,2,1372,0)=" ;"
^XMB(3.9,163,2,1373,0)="""RTN"",""XUSNPIE1"",50,0)"
^XMB(3.9,163,2,1374,0)=" ;--------"
^XMB(3.9,163,2,1375,0)="""RTN"",""XUSNPIE1"",51,0)"
^XMB(3.9,163,2,1376,0)=" N ZZ,XUSRTN,ERRMSG,XUSX S ERRMSG="""""
^XMB(3.9,163,2,1377,0)="""RTN"",""XUSNPIE1"",52,0)"
^XMB(3.9,163,2,1378,0)=" S XUSX=XUSROOT_XUSIEN_"",""_""""""NPISTATUS""""""_"")"""
^XMB(3.9,163,2,1379,0)="""RTN"",""XUSNPIE1"",53,0)"
^XMB(3.9,163,2,1380,0)=" ; Update Effective Date #42 multiple fields"
^XMB(3.9,163,2,1381,0)="""RTN"",""XUSNPIE1"",54,0)"
^XMB(3.9,163,2,1382,0)=" S XUSFNB=200.042"
^XMB(3.9,163,2,1383,0)="""RTN"",""XUSNPIE1"",55,0)"
^XMB(3.9,163,2,1384,0)=" S ZZ(1,XUSFNB,""+2,""_XUSIEN_"","",.01)=XUSDATE"
^XMB(3.9,163,2,1385,0)="""RTN"",""XUSNPIE1"",56,0)"
^XMB(3.9,163,2,1386,0)=" S ZZ(1,XUSFNB,""+2,""_XUSIEN_"","",.02)=XUSTATUS"
^XMB(3.9,163,2,1387,0)="""RTN"",""XUSNPIE1"",57,0)"
^XMB(3.9,163,2,1388,0)=" S ZZ(1,XUSFNB,""+2,""_XUSIEN_"","",.03)=XUSNPI"
^XMB(3.9,163,2,1389,0)="""RTN"",""XUSNPIE1"",58,0)"
^XMB(3.9,163,2,1390,0)=" D UPDATE^DIE("""",""ZZ(1)"",,ERRMSG)"
^XMB(3.9,163,2,1391,0)="""RTN"",""XUSNPIE1"",59,0)"
^XMB(3.9,163,2,1392,0)=" I $L(ERRMSG) Q ""-1^""_$G(ERRMSG)"
^XMB(3.9,163,2,1393,0)="""RTN"",""XUSNPIE1"",60,0)"
^XMB(3.9,163,2,1394,0)=" S XUSX=XUSROOT_XUSIEN_"",""_""""""NPISTATUS""""""_"",""_""""""B""""""_"",""_XUSDATE_"",""_""""""A""""""_"")"""
^XMB(3.9,163,2,1395,0)="""RTN"",""XUSNPIE1"",61,0)"
^XMB(3.9,163,2,1396,0)=" S XUSRTN=$O(@XUSX,-1)"
^XMB(3.9,163,2,1397,0)="""RTN"",""XUSNPIE1"",62,0)"
^XMB(3.9,163,2,1398,0)=" I '+XUSRTN Q ""-1^No entry add"""
^XMB(3.9,163,2,1399,0)="""RTN"",""XUSNPIE1"",63,0)"
^XMB(3.9,163,2,1400,0)=" Q XUSRTN"
^XMB(3.9,163,2,1401,0)="""RTN"",""XUSNPIE1"",64,0)"
^XMB(3.9,163,2,1402,0)=" ;"
^XMB(3.9,163,2,1403,0)="""RTN"",""XUSNPIE1"",65,0)"
^XMB(3.9,163,2,1404,0)="CHKDGT(XUSNPI) ;"
^XMB(3.9,163,2,1405,0)="""RTN"",""XUSNPIE1"",66,0)"
^XMB(3.9,163,2,1406,0)=" ;  Function to validate the format of an NPI number.  It checks the"
^XMB(3.9,163,2,1407,0)="""RTN"",""XUSNPIE1"",67,0)"
^XMB(3.9,163,2,1408,0)=" ;  length of the number, whether the NPI is numeric, and whether"
^XMB(3.9,163,2,1409,0)="""RTN"",""XUSNPIE1"",68,0)"
^XMB(3.9,163,2,1410,0)=" ;  the check digit is valid."
^XMB(3.9,163,2,1411,0)="""RTN"",""XUSNPIE1"",69,0)"
^XMB(3.9,163,2,1412,0)=" ;"
^XMB(3.9,163,2,1413,0)="""RTN"",""XUSNPIE1"",70,0)"
^XMB(3.9,163,2,1414,0)=" ;  Input parameter:"
^XMB(3.9,163,2,1415,0)="""RTN"",""XUSNPIE1"",71,0)"
^XMB(3.9,163,2,1416,0)=" ;    NPI - 10-digit NPI number to validate."
^XMB(3.9,163,2,1417,0)="""RTN"",""XUSNPIE1"",72,0)"
^XMB(3.9,163,2,1418,0)=" ;"
^XMB(3.9,163,2,1419,0)="""RTN"",""XUSNPIE1"",73,0)"
^XMB(3.9,163,2,1420,0)=" ;  Output parameter:"
^XMB(3.9,163,2,1421,0)="""RTN"",""XUSNPIE1"",74,0)"
^XMB(3.9,163,2,1422,0)=" ;    Boolean value indicating whether the NPI has a valid format"
^XMB(3.9,163,2,1423,0)="""RTN"",""XUSNPIE1"",75,0)"
^XMB(3.9,163,2,1424,0)=" ;"
^XMB(3.9,163,2,1425,0)="""RTN"",""XUSNPIE1"",76,0)"
^XMB(3.9,163,2,1426,0)=" ;  NPI must be 10 digits long."
^XMB(3.9,163,2,1427,0)="""RTN"",""XUSNPIE1"",77,0)"
^XMB(3.9,163,2,1428,0)=" I XUSNPI'?10N Q 0"
^XMB(3.9,163,2,1429,0)="""RTN"",""XUSNPIE1"",78,0)"
^XMB(3.9,163,2,1430,0)=" Q $E(XUSNPI,10)=$$CKDIGIT($E(XUSNPI,1,9))"
^XMB(3.9,163,2,1431,0)="""RTN"",""XUSNPIE1"",79,0)"
^XMB(3.9,163,2,1432,0)=" ;"
^XMB(3.9,163,2,1433,0)="""RTN"",""XUSNPIE1"",80,0)"
^XMB(3.9,163,2,1434,0)="CKDIGIT(XUSNPI) ;"
^XMB(3.9,163,2,1435,0)="""RTN"",""XUSNPIE1"",81,0)"
^XMB(3.9,163,2,1436,0)=" ;  Function to calculate and return the check digit of an NPI."
^XMB(3.9,163,2,1437,0)="""RTN"",""XUSNPIE1"",82,0)"
^XMB(3.9,163,2,1438,0)=" ;"
^XMB(3.9,163,2,1439,0)="""RTN"",""XUSNPIE1"",83,0)"
^XMB(3.9,163,2,1440,0)=" N XUSCTOT,XUSCN,XUSCDIG,XUSI"
^XMB(3.9,163,2,1441,0)="""RTN"",""XUSNPIE1"",84,0)"
^XMB(3.9,163,2,1442,0)=" S XUSCTOT=24"
^XMB(3.9,163,2,1443,0)="""RTN"",""XUSNPIE1"",85,0)"
^XMB(3.9,163,2,1444,0)=" F XUSI=9:-2:1 S XUSCN=2*$E(XUSNPI,XUSI),XUSCTOT=XUSCTOT+$E(XUSCN)+$E(XUSCN,2)+$E(XUSNPI,XUSI-1)"
^XMB(3.9,163,2,1445,0)="""RTN"",""XUSNPIE1"",86,0)"
^XMB(3.9,163,2,1446,0)=" S XUSCDIG=150-XUSCTOT"
^XMB(3.9,163,2,1447,0)="""RTN"",""XUSNPIE1"",87,0)"
^XMB(3.9,163,2,1448,0)=" Q $E(XUSCDIG,$L(XUSCDIG))"
^XMB(3.9,163,2,1449,0)="""RTN"",""XUSNPIE1"",88,0)"
^XMB(3.9,163,2,1450,0)=" ;"
^XMB(3.9,163,2,1451,0)="""RTN"",""XUSNPIE1"",89,0)"
^XMB(3.9,163,2,1452,0)="CHKDGT1(XUSNPI) ;calulate check digit, Luhn formula for NPI"
^XMB(3.9,163,2,1453,0)="""RTN"",""XUSNPIE1"",90,0)"
^XMB(3.9,163,2,1454,0)=" ;x=10 digit number"
^XMB(3.9,163,2,1455,0)="""RTN"",""XUSNPIE1"",91,0)"
^XMB(3.9,163,2,1456,0)=" N XBSTRING,XBTOT,XBCD,I"
^XMB(3.9,163,2,1457,0)="""RTN"",""XUSNPIE1"",92,0)"
^XMB(3.9,163,2,1458,0)=" I '+XUSNPI S XUSNPI=0 Q XUSNPI"
^XMB(3.9,163,2,1459,0)="""RTN"",""XUSNPIE1"",93,0)"
^XMB(3.9,163,2,1460,0)=" I $E(XUSNPI,1,5)=80840 D"
^XMB(3.9,163,2,1461,0)="""RTN"",""XUSNPIE1"",94,0)"
^XMB(3.9,163,2,1462,0)=" .S XUSNPI=$E(XUSNPI,6,15)"
^XMB(3.9,163,2,1463,0)="""RTN"",""XUSNPIE1"",95,0)"
^XMB(3.9,163,2,1464,0)=" S XBSTRING="""""
^XMB(3.9,163,2,1465,0)="""RTN"",""XUSNPIE1"",96,0)"
^XMB(3.9,163,2,1466,0)=" I XUSNPI'?10N S XUSNPI=0 Q XUSNPI"
^XMB(3.9,163,2,1467,0)="""RTN"",""XUSNPIE1"",97,0)"
^XMB(3.9,163,2,1468,0)=" S XBCD=$E(XUSNPI,10)"
^XMB(3.9,163,2,1469,0)="""RTN"",""XUSNPIE1"",98,0)"
^XMB(3.9,163,2,1470,0)=" F I=1:1:9 D"
^XMB(3.9,163,2,1471,0)="""RTN"",""XUSNPIE1"",99,0)"
^XMB(3.9,163,2,1472,0)=" .I (I#2) D"
^XMB(3.9,163,2,1473,0)="""RTN"",""XUSNPIE1"",100,0)"
^XMB(3.9,163,2,1474,0)=" ..S XBSTRING=XBSTRING_($E(XUSNPI,I)*2)"
^XMB(3.9,163,2,1475,0)="""RTN"",""XUSNPIE1"",101,0)"
^XMB(3.9,163,2,1476,0)=" .I '(I#2) D"
^XMB(3.9,163,2,1477,0)="""RTN"",""XUSNPIE1"",102,0)"
^XMB(3.9,163,2,1478,0)=" ..S XBSTRING=XBSTRING_$E(XUSNPI,I)"
^XMB(3.9,163,2,1479,0)="""RTN"",""XUSNPIE1"",103,0)"
^XMB(3.9,163,2,1480,0)=" S XBTOT=0"
^XMB(3.9,163,2,1481,0)="""RTN"",""XUSNPIE1"",104,0)"
^XMB(3.9,163,2,1482,0)=" F I=1:1:$L(XBSTRING) D"
^XMB(3.9,163,2,1483,0)="""RTN"",""XUSNPIE1"",105,0)"
^XMB(3.9,163,2,1484,0)=" .S XBTOT=XBTOT+$E(XBSTRING,I)"
^XMB(3.9,163,2,1485,0)="""RTN"",""XUSNPIE1"",106,0)"
^XMB(3.9,163,2,1486,0)=" S XBTOT=XBTOT+24"
^XMB(3.9,163,2,1487,0)="""RTN"",""XUSNPIE1"",107,0)"
^XMB(3.9,163,2,1488,0)=" S XBTOT=1000-XBTOT"
^XMB(3.9,163,2,1489,0)="""RTN"",""XUSNPIE1"",108,0)"
^XMB(3.9,163,2,1490,0)=" S XUSNPI=$E(XBTOT,$L(XBTOT)) W XUSNPI"
^XMB(3.9,163,2,1491,0)="""RTN"",""XUSNPIE1"",109,0)"
^XMB(3.9,163,2,1492,0)=" Q (XUSNPI=XBCD)"
^XMB(3.9,163,2,1493,0)="""RTN"",""XUSNPIE1"",110,0)"
^XMB(3.9,163,2,1494,0)=" ;"
^XMB(3.9,163,2,1495,0)="""RTN"",""XUSNPIE1"",111,0)"
^XMB(3.9,163,2,1496,0)="SET(XUSIEN,XUSNPI) ;"
^XMB(3.9,163,2,1497,0)="""RTN"",""XUSNPIE1"",112,0)"
^XMB(3.9,163,2,1498,0)=" ; set value for NPI field (#41.99) in file #200"
^XMB(3.9,163,2,1499,0)="""RTN"",""XUSNPIE1"",113,0)"
^XMB(3.9,163,2,1500,0)=" N OLDNPI S OLDNPI=$P($G(^VA(200,XUSIEN,""NPI"")),""^"")"
^XMB(3.9,163,2,1501,0)="""RTN"",""XUSNPIE1"",114,0)"
^XMB(3.9,163,2,1502,0)=" I OLDNPI K ^VA(200,""ANPI"",OLDNPI,XUSIEN)"
^XMB(3.9,163,2,1503,0)="""RTN"",""XUSNPIE1"",115,0)"
^XMB(3.9,163,2,1504,0)=" S ^VA(200,XUSIEN,""NPI"")=XUSNPI_U_""D"",^VA(200,""ANPI"",XUSNPI,XUSIEN)="""""
^XMB(3.9,163,2,1505,0)="""RTN"",""XUSNPIE1"",116,0)"
^XMB(3.9,163,2,1506,0)=" Q"
^XMB(3.9,163,2,1507,0)="""RTN"",""XUSNPIE1"",117,0)"
^XMB(3.9,163,2,1508,0)=" ;"
^XMB(3.9,163,2,1509,0)="""RTN"",""XUSNPIE1"",118,0)"
^XMB(3.9,163,2,1510,0)="SET1(XUSIEN,XUSNPI) ;"
^XMB(3.9,163,2,1511,0)="""RTN"",""XUSNPIE1"",119,0)"
^XMB(3.9,163,2,1512,0)=" ; set value for NPI field (#41.99) in file #4"
^XMB(3.9,163,2,1513,0)="""RTN"",""XUSNPIE1"",120,0)"
^XMB(3.9,163,2,1514,0)=" N OLDNPI S OLDNPI=$P($G(^DIC(4,XUSIEN,""NPI"")),""^"")"
^XMB(3.9,163,2,1515,0)="""RTN"",""XUSNPIE1"",121,0)"
^XMB(3.9,163,2,1516,0)=" I OLDNPI K ^DIC(4,""ANPI"",OLDNPI,XUSIEN)"
^XMB(3.9,163,2,1517,0)="""RTN"",""XUSNPIE1"",122,0)"
^XMB(3.9,163,2,1518,0)=" S ^DIC(4,XUSIEN,""NPI"")=XUSNPI,^DIC(4,""ANPI"",XUSNPI,XUSIEN)="""""
^XMB(3.9,163,2,1519,0)="""RTN"",""XUSNPIE1"",123,0)"
^XMB(3.9,163,2,1520,0)=" Q"
^XMB(3.9,163,2,1521,0)="""RTN"",""XUSNPIE1"",124,0)"
^XMB(3.9,163,2,1522,0)=" ;"
^XMB(3.9,163,2,1523,0)="""RTN"",""XUSNPIE1"",125,0)"
^XMB(3.9,163,2,1524,0)="SIGNON ; .ACT - run at user sign-on display message if NEEDS AN NPI"
^XMB(3.9,163,2,1525,0)="""RTN"",""XUSNPIE1"",126,0)"
^XMB(3.9,163,2,1526,0)=" N XVAL,DATETIME,OPT,XVALTIME"
^XMB(3.9,163,2,1527,0)="""RTN"",""XUSNPIE1"",127,0)"
^XMB(3.9,163,2,1528,0)=" I $$CHEKNPI^XUSNPIED(DUZ) W !!,""To enter your NPI value enter  NPI  at a menu prompt to jump to the"",!,""edit option."",! H 1"
^XMB(3.9,163,2,1529,0)="""RTN"",""XUSNPIE1"",128,0)"
^XMB(3.9,163,2,1530,0)=" ; following to insure CBO List is scheduled to run on first day of month"
^XMB(3.9,163,2,1531,0)="""RTN"",""XUSNPIE1"",129,0)"
^XMB(3.9,163,2,1532,0)=" S XVALTIME=$E(DT,6,7) I '((XVALTIME=""01"")!(XVALTIME=""15"")) Q"
^XMB(3.9,163,2,1533,0)="""RTN"",""XUSNPIE1"",130,0)"
^XMB(3.9,163,2,1534,0)=" S XVAL=+$E($$NOW^XLFDT(),6,10) I XVAL>(XVALTIME_"".19""),XVAL<(XVALTIME_"".1958"") D  ; 7 PM TO 7:58 PM ON 1ST OF MONTH"
^XMB(3.9,163,2,1535,0)="""RTN"",""XUSNPIE1"",131,0)"
^XMB(3.9,163,2,1536,0)=" . S OPT=$$FIND1^DIC(19.2,"""","""",""XUS NPI CBO LIST"") I OPT'>0 L +^TMP(""XUS NPI CBO LOCK""):0 Q:'$T  D CBOQUEUE L -^TMP(""XUS NPI CBO LOCK"") Q"
^XMB(3.9,163,2,1537,0)="""RTN"",""XUSNPIE1"",132,0)"
^XMB(3.9,163,2,1538,0)=" . S DATETIME=$$GET1^DIQ(19.2,OPT_"","",2)"
^XMB(3.9,163,2,1539,0)="""RTN"",""XUSNPIE1"",133,0)"
^XMB(3.9,163,2,1540,0)=" . I DATETIME'=$$FMTE^XLFDT(DT_"".2"") L +^DIC(19.2,OPT):0 Q:'$T  D SETQUEUE(OPT,DT_"".2"") L -^DIC(19.2,OPT) Q"
^XMB(3.9,163,2,1541,0)="""RTN"",""XUSNPIE1"",134,0)"
^XMB(3.9,163,2,1542,0)=" . I '$$GET1^DIQ(19.2,OPT_"","",99.1) L +^DIC(19.2,OPT):0 Q:'$T  D  L -^DIC(19.2,OPT)"
^XMB(3.9,163,2,1543,0)="""RTN"",""XUSNPIE1"",135,0)"
^XMB(3.9,163,2,1544,0)=" . . D SETQUEUE(OPT,""@"")"
^XMB(3.9,163,2,1545,0)="""RTN"",""XUSNPIE1"",136,0)"
^XMB(3.9,163,2,1546,0)=" . . D SETQUEUE(OPT,DT_"".2"")"
^XMB(3.9,163,2,1547,0)="""RTN"",""XUSNPIE1"",137,0)"
^XMB(3.9,163,2,1548,0)=" . . Q"
^XMB(3.9,163,2,1549,0)="""RTN"",""XUSNPIE1"",138,0)"
^XMB(3.9,163,2,1550,0)=" . Q"
^XMB(3.9,163,2,1551,0)="""RTN"",""XUSNPIE1"",139,0)"
^XMB(3.9,163,2,1552,0)=" Q"
^XMB(3.9,163,2,1553,0)="""RTN"",""XUSNPIE1"",140,0)"
^XMB(3.9,163,2,1554,0)=" ;"
^XMB(3.9,163,2,1555,0)="""RTN"",""XUSNPIE1"",141,0)"
^XMB(3.9,163,2,1556,0)="SETQUEUE(OPT,VALUE) ;"
^XMB(3.9,163,2,1557,0)="""RTN"",""XUSNPIE1"",142,0)"
^XMB(3.9,163,2,1558,0)=" N FDA S FDA(19.2,OPT_"","",2)=VALUE D FILE^DIE("""",""FDA"")"
^XMB(3.9,163,2,1559,0)="""RTN"",""XUSNPIE1"",143,0)"
^XMB(3.9,163,2,1560,0)=" Q"
^XMB(3.9,163,2,1561,0)="""RTN"",""XUSNPIE1"",144,0)"
^XMB(3.9,163,2,1562,0)=" ;"
^XMB(3.9,163,2,1563,0)="""RTN"",""XUSNPIE1"",145,0)"
^XMB(3.9,163,2,1564,0)="POSTINIT ;"
^XMB(3.9,163,2,1565,0)="""RTN"",""XUSNPIE1"",146,0)"
^XMB(3.9,163,2,1566,0)=" N XUGLOB,XUUSER,XIEN,X,ZTDESC,ZTDTH,ZTIO,ZTRTN"
^XMB(3.9,163,2,1567,0)="""RTN"",""XUSNPIE1"",147,0)"
^XMB(3.9,163,2,1568,0)=" ;S XIEN=$$FIND1^DIC(19,"""","""",""XUCOMMAND"") I XIEN>0,$$FIND1^DIC(19.01,"",""_XIEN_"","","""",""XUS NPI PROVIDER SELF ENTRY"")'>0 S X=$$ADD^XPDMENU(""XUCOMMAND"",""XUS NPI PROVIDER SELF ENTRY"",""NPI"","""")"
^XMB(3.9,163,2,1569,0)="""RTN"",""XUSNPIE1"",148,0)"
^XMB(3.9,163,2,1570,0)=" ;S XIEN=$$FIND1^DIC(19,"""","""",""XU USER SIGN-ON"") I XIEN>0,$$FIND1^DIC(19.01,"",""_XIEN_"","","""",""XUS NPI SIGNON CHECK"")'>0 S X=$$ADD^XPDMENU(""XU USER SIGN-ON"",""XUS NPI SIGNON CHECK"","""","""")"
^XMB(3.9,163,2,1571,0)="""RTN"",""XUSNPIE1"",149,0)"
^XMB(3.9,163,2,1572,0)=" ; get global containing Taxonomy values"
^XMB(3.9,163,2,1573,0)="""RTN"",""XUSNPIE1"",150,0)"
^XMB(3.9,163,2,1574,0)=" S XUGLOB=$$CHKGLOB^XUSNPIED()"
^XMB(3.9,163,2,1575,0)="""RTN"",""XUSNPIE1"",151,0)"
^XMB(3.9,163,2,1576,0)=" ; go through file 200 and ma"
^XMB(3.9,163,2,1577,0)="""RTN"",""XUSNPIE1"",152,0)"
^XMB(3.9,163,2,1578,0)=" S XUUSER=0 F  S XUUSER=$O(^VA(200,XUUSER)) Q:XUUSER'>0  I $$ACTIVE^XUSER(XUUSER) D DOUSER^XUSNPIED(XUUSER,XUGLOB)"
^XMB(3.9,163,2,1579,0)="""RTN"",""XUSNPIE1"",153,0)"
^XMB(3.9,163,2,1580,0)=" ; and send CBO a starting point list"
^XMB(3.9,163,2,1581,0)="""RTN"",""XUSNPIE1"",154,0)"
^XMB(3.9,163,2,1582,0)=" S ZTIO="""",ZTDTH=$$NOW^XLFDT(),ZTRTN=""CBOLIST^XUSNPIED"",ZTDESC=""XUS NPI CBOLIST MESSAGE GENERATION"" D ^%ZTLOAD"
^XMB(3.9,163,2,1583,0)="""RTN"",""XUSNPIE1"",155,0)"
^XMB(3.9,163,2,1584,0)=" ; set up to generate CBO list monthly"
^XMB(3.9,163,2,1585,0)="""RTN"",""XUSNPIE1"",156,0)"
^XMB(3.9,163,2,1586,0)=" D CBOQUEUE"
^XMB(3.9,163,2,1587,0)="""RTN"",""XUSNPIE1"",157,0)"
^XMB(3.9,163,2,1588,0)=" Q"
^XMB(3.9,163,2,1589,0)="""RTN"",""XUSNPIE1"",158,0)"
^XMB(3.9,163,2,1590,0)=" ;"
^XMB(3.9,163,2,1591,0)="""RTN"",""XUSNPIE1"",159,0)"
^XMB(3.9,163,2,1592,0)="CBOQUEUE ;"
^XMB(3.9,163,2,1593,0)="""RTN"",""XUSNPIE1"",160,0)"
^XMB(3.9,163,2,1594,0)=" N FDA,XUSVAL"
^XMB(3.9,163,2,1595,0)="""RTN"",""XUSNPIE1"",161,0)"
^XMB(3.9,163,2,1596,0)=" ; check for already queued"
^XMB(3.9,163,2,1597,0)="""RTN"",""XUSNPIE1"",162,0)"
^XMB(3.9,163,2,1598,0)=" S XUSVAL=$$FIND1^DIC(19.2,"""","""",""XUS NPI CBO LIST"") I XUSVAL>0 D  Q"
^XMB(3.9,163,2,1599,0)="""RTN"",""XUSNPIE1"",163,0)"
^XMB(3.9,163,2,1600,0)=" . S FDA(19.2,XUSVAL_"","",2)=$$SETDATE()"
^XMB(3.9,163,2,1601,0)="""RTN"",""XUSNPIE1"",164,0)"
^XMB(3.9,163,2,1602,0)=" . S FDA(19.2,XUSVAL_"","",6)=""1M(1@2000,15@2000)"""
^XMB(3.9,163,2,1603,0)="""RTN"",""XUSNPIE1"",165,0)"
^XMB(3.9,163,2,1604,0)=" . N ZTQUEUED S ZTQUEUED=1 D FILE^DIE("""",""FDA"") K ZTQUEUED"
^XMB(3.9,163,2,1605,0)="""RTN"",""XUSNPIE1"",166,0)"
^XMB(3.9,163,2,1606,0)=" . Q"
^XMB(3.9,163,2,1607,0)="""RTN"",""XUSNPIE1"",167,0)"
^XMB(3.9,163,2,1608,0)=" ; no set up queued job"
^XMB(3.9,163,2,1609,0)="""RTN"",""XUSNPIE1"",168,0)"
^XMB(3.9,163,2,1610,0)=" S XUSVAL=$$FIND1^DIC(19,"""","""",""XUS NPI CBO LIST"") Q:XUSVAL'>0  S FDA(19.2,""+1,"",.01)=XUSVAL"
^XMB(3.9,163,2,1611,0)="""RTN"",""XUSNPIE1"",169,0)"
^XMB(3.9,163,2,1612,0)=" S FDA(19.2,""+1,"",2)=$$SETDATE()"
^XMB(3.9,163,2,1613,0)="""RTN"",""XUSNPIE1"",170,0)"
^XMB(3.9,163,2,1614,0)=" S FDA(19.2,""+1,"",6)=""1M(1@2000,15@2000)"""
^XMB(3.9,163,2,1615,0)="""RTN"",""XUSNPIE1"",171,0)"
^XMB(3.9,163,2,1616,0)=" N ZTQUEUED S ZTQUEUED=1 D UPDATE^DIE("""",""FDA"") K ZTQUEUED"
^XMB(3.9,163,2,1617,0)="""RTN"",""XUSNPIE1"",172,0)"
^XMB(3.9,163,2,1618,0)=" Q"
^XMB(3.9,163,2,1619,0)="""RTN"",""XUSNPIE1"",173,0)"
^XMB(3.9,163,2,1620,0)=" ;"
^XMB(3.9,163,2,1621,0)="""RTN"",""XUSNPIE1"",174,0)"
^XMB(3.9,163,2,1622,0)="SETDATE() ;"
^XMB(3.9,163,2,1623,0)="""RTN"",""XUSNPIE1"",175,0)"
^XMB(3.9,163,2,1624,0)=" Q $S($E($$NOW^XLFDT(),6,10)<1.2:DT,$E($$NOW^XLFDT(),6,10)<15.2:$E(DT,1,5)_""15"",$E(DT,4,5)>11:(($E(DT,1,3)+1)_""0101""),1:($E(DT,1,5)+1)_""01"")_"".2"""
^XMB(3.9,163,2,1625,0)="""RTN"",""XUSNPIE1"",176,0)"
^XMB(3.9,163,2,1626,0)=" ;"
^XMB(3.9,163,2,1627,0)="""RTN"",""XUSNPIE1"",177,0)"
^XMB(3.9,163,2,1628,0)="EDITNPI(IEN) ; main entry of NPI value"
^XMB(3.9,163,2,1629,0)="""RTN"",""XUSNPIE1"",178,0)"
^XMB(3.9,163,2,1630,0)=" ; IEN is the internal entry number in file 200 for the provider"
^XMB(3.9,163,2,1631,0)="""RTN"",""XUSNPIE1"",179,0)"
^XMB(3.9,163,2,1632,0)=" ;"
^XMB(3.9,163,2,1633,0)="""RTN"",""XUSNPIE1"",180,0)"
^XMB(3.9,163,2,1634,0)=" N DATEVAL,DESCRIP,DONE,NPIVAL1,NPIVAL2,PROVNAME,XX,Y"
^XMB(3.9,163,2,1635,0)="""RTN"",""XUSNPIE1"",181,0)"
^XMB(3.9,163,2,1636,0)=" S PROVNAME=$$GET1^DIQ(200,IEN_"","",.01)"
^XMB(3.9,163,2,1637,0)="""RTN"",""XUSNPIE1"",182,0)"
^XMB(3.9,163,2,1638,0)=" I '$$ACTIVE^XUSER(IEN) W !,""This user isn't currently active"" Q"
^XMB(3.9,163,2,1639,0)="""RTN"",""XUSNPIE1"",183,0)"
^XMB(3.9,163,2,1640,0)=" I $$GETTAXON^XUSNPIED(IEN,.DESCRIP)=-1 W !,""This user doesn't have a Taxonomy Code indicating a need for an NPI."" ; but don't quit on that"
^XMB(3.9,163,2,1641,0)="""RTN"",""XUSNPIE1"",184,0)"
^XMB(3.9,163,2,1642,0)=" I $$NPISTATS^XUSNPIED(IEN)=""E"" W !,""This provider has been indicated as being EXEMPT from needing an NPI value."",!,""   Use Exempt option to remove it first"" Q"
^XMB(3.9,163,2,1643,0)="""RTN"",""XUSNPIE1"",185,0)"
^XMB(3.9,163,2,1644,0)=" I $$NPISTATS^XUSNPIED(IEN)=""D"" W !,""This provider already has an NPI value entered."" Q"
^XMB(3.9,163,2,1645,0)="""RTN"",""XUSNPIE1"",186,0)"
^XMB(3.9,163,2,1646,0)=" I $$NPISTATS^XUSNPIED(IEN)="""" W !,""Need for an NPI value isn't indicated - but you can enter an NPI"",$C(7)"
^XMB(3.9,163,2,1647,0)="""RTN"",""XUSNPIE1"",187,0)"
^XMB(3.9,163,2,1648,0)=" I IEN'=DUZ W !,""Provider: "",PROVNAME,""   "",""XXX-XX-""_$E($$GET1^DIQ(200,IEN_"","",9),6,9),""   DOB: "" S XX=$P($G(^VA(200,IEN,1)),U,3) S:XX'="""" XX=$$DATE10^XUSNPIED(XX) W XX"
^XMB(3.9,163,2,1649,0)="""RTN"",""XUSNPIE1"",188,0)"
^XMB(3.9,163,2,1650,0)=" I IEN'=DUZ W !,""Status:   Active"""
^XMB(3.9,163,2,1651,0)="""RTN"",""XUSNPIE1"",189,0)"
^XMB(3.9,163,2,1652,0)=" S DONE=0 F  R !,""Enter NPI (10 digits): "",NPIVAL1:DTIME Q:'$T  Q:NPIVAL1=""""  Q:NPIVAL1=U  D  Q:DONE"
^XMB(3.9,163,2,1653,0)="""RTN"",""XUSNPIE1"",190,0)"
^XMB(3.9,163,2,1654,0)=" . ; have to use XUSNPIE1 until XU*8*410 is released"
^XMB(3.9,163,2,1655,0)="""RTN"",""XUSNPIE1"",191,0)"
^XMB(3.9,163,2,1656,0)=" . I '$S($T(CHKDGT^XUSNPI)'="""":$$CHKDGT^XUSNPI(NPIVAL1),1:$$CHKDGT^XUSNPIE1(NPIVAL1)) W !,""Checksum is not valid for this entry"",! Q"
^XMB(3.9,163,2,1657,0)="""RTN"",""XUSNPIE1"",192,0)"
^XMB(3.9,163,2,1658,0)=" . N NAMEVAL S NAMEVAL=$O(^VA(200,""ANPI"",NPIVAL1,0)) I NAMEVAL>0 W !,""That NPI value is already associated with ""_$$GET1^DIQ(200,NAMEVAL_"","",.01) Q"
^XMB(3.9,163,2,1659,0)="""RTN"",""XUSNPIE1"",193,0)"
^XMB(3.9,163,2,1660,0)=" . R !,""Please re-enter NPI  : "",NPIVAL2:DTIME Q:'$T  I NPIVAL1'=NPIVAL2 W !,""Values do not match!"" Q"
^XMB(3.9,163,2,1661,0)="""RTN"",""XUSNPIE1"",194,0)"
^XMB(3.9,163,2,1662,0)=" . S DONE=1"
^XMB(3.9,163,2,1663,0)="""RTN"",""XUSNPIE1"",195,0)"
^XMB(3.9,163,2,1664,0)=" . Q"
^XMB(3.9,163,2,1665,0)="""RTN"",""XUSNPIE1"",196,0)"
^XMB(3.9,163,2,1666,0)=" I 'DONE Q"
^XMB(3.9,163,2,1667,0)="""RTN"",""XUSNPIE1"",197,0)"
^XMB(3.9,163,2,1668,0)=" ;N DIR S DIR(""A"")=""Enter the date the provider was issued this number from CMS: "",DIR(0)=""D^:""_$$NOW^XLFDT() D ^DIR Q:Y'>0  S DATEVAL=+Y"
^XMB(3.9,163,2,1669,0)="""RTN"",""XUSNPIE1"",198,0)"
^XMB(3.9,163,2,1670,0)=" S DATEVAL=DT"
^XMB(3.9,163,2,1671,0)="""RTN"",""XUSNPIE1"",199,0)"
^XMB(3.9,163,2,1672,0)=" S DONE=$S($T(ADDNPI^XUSNPI)'="""":$$ADDNPI^XUSNPI(""Individual_ID"",IEN,NPIVAL1,DATEVAL),1:$$ADDNPI^XUSNPIE1(IEN,NPIVAL1,DATEVAL)) I DONE=-1 W !,""Problem writing that value into the database! --  It was **NOT** recorded."",!,$P(DONE,U,2) Q"
^XMB(3.9,163,2,1673,0)="""RTN"",""XUSNPIE1"",200,0)"
^XMB(3.9,163,2,1674,0)=" W !!,""For provider "",PROVNAME,"" (who requires an NPI), the NPI "",NPIVAL1,!,""was saved to VistA successfully."""
^XMB(3.9,163,2,1675,0)="""RTN"",""XUSNPIE1"",201,0)"
^XMB(3.9,163,2,1676,0)=" Q"
^XMB(3.9,163,2,1677,0)="""RTN"",""XUSNPIE1"",202,0)"
^XMB(3.9,163,2,1678,0)=" ;"
^XMB(3.9,163,2,1679,0)="""RTN"",""XUSNPIE1"",203,0)"
^XMB(3.9,163,2,1680,0)="CLERXMPT ; edit entry indicating whether a provider is exempt from needing an NPI"
^XMB(3.9,163,2,1681,0)="""RTN"",""XUSNPIE1"",204,0)"
^XMB(3.9,163,2,1682,0)=" N DIC,DIR,FDA,IEN,Y"
^XMB(3.9,163,2,1683,0)="""RTN"",""XUSNPIE1"",205,0)"
^XMB(3.9,163,2,1684,0)=" W ! S DIC=""^VA(200,"",DIC(0)=""AEQ"" S DIC(""A"")=""select Provider: "" D ^DIC Q:Y'>0  S IEN=+Y"
^XMB(3.9,163,2,1685,0)="""RTN"",""XUSNPIE1"",206,0)"
^XMB(3.9,163,2,1686,0)=" I $$HASNPI^XUSNPIED(IEN) W !,""This Provider already has an NPI value.  Nothing to do."" Q"
^XMB(3.9,163,2,1687,0)="""RTN"",""XUSNPIE1"",207,0)"
^XMB(3.9,163,2,1688,0)=" I '$$CHEKNPI^XUSNPIED(IEN),'$$EXMPTNPI^XUSNPIED(IEN) W !,""This Provider does not appear to need an NPI or Exemption."" Q"
^XMB(3.9,163,2,1689,0)="""RTN"",""XUSNPIE1"",208,0)"
^XMB(3.9,163,2,1690,0)=" I $$EXMPTNPI^XUSNPIED(IEN) D  Q  ; currently marked as Exempt"
^XMB(3.9,163,2,1691,0)="""RTN"",""XUSNPIE1"",209,0)"
^XMB(3.9,163,2,1692,0)=" . S DIR(0)=""Y"",DIR(""A"")=""Provider is currently EXEMPT from needing an NPI, set to NEEDS an NPI (Y/N)"" D ^DIR I 'Y Q"
^XMB(3.9,163,2,1693,0)="""RTN"",""XUSNPIE1"",210,0)"
^XMB(3.9,163,2,1694,0)=" . S FDA(200,IEN_"","",41.98)=""N"" D FILE^DIE("""",""FDA"")"
^XMB(3.9,163,2,1695,0)="""RTN"",""XUSNPIE1"",211,0)"
^XMB(3.9,163,2,1696,0)=" . W !,$S($$NEEDSNPI^XUSNPIED(IEN):""File updated"",1:""Ecountered a problem updating file, status NOT set to NEEDS an NPI"")"
^XMB(3.9,163,2,1697,0)="""RTN"",""XUSNPIE1"",212,0)"
^XMB(3.9,163,2,1698,0)=" . Q"
^XMB(3.9,163,2,1699,0)="""RTN"",""XUSNPIE1"",213,0)"
^XMB(3.9,163,2,1700,0)=" ; check to make sure provider should be exempt"
^XMB(3.9,163,2,1701,0)="""RTN"",""XUSNPIE1"",214,0)"
^XMB(3.9,163,2,1702,0)=" S DIR(0)=""Y"",DIR(""A"")=""Confirm that Provider should be Exempt from needing an NPI (Y/N)"" D ^DIR I 'Y Q"
^XMB(3.9,163,2,1703,0)="""RTN"",""XUSNPIE1"",215,0)"
^XMB(3.9,163,2,1704,0)=" ; and update file to show as exempt"
^XMB(3.9,163,2,1705,0)="""RTN"",""XUSNPIE1"",216,0)"
^XMB(3.9,163,2,1706,0)=" S FDA(200,IEN_"","",41.98)=""E"" D FILE^DIE("""",""FDA"")"
^XMB(3.9,163,2,1707,0)="""RTN"",""XUSNPIE1"",217,0)"
^XMB(3.9,163,2,1708,0)=" W !,$S($$EXMPTNPI^XUSNPIED(IEN):""File updated"",1:""Ecountered a problem updating file, status NOT set to EXEMPT"")"
^XMB(3.9,163,2,1709,0)="""RTN"",""XUSNPIE1"",218,0)"
^XMB(3.9,163,2,1710,0)=" Q"
^XMB(3.9,163,2,1711,0)="""RTN"",""XUSNPIED"")"
^XMB(3.9,163,2,1712,0)="0^3^B59937422^n/a"
^XMB(3.9,163,2,1713,0)="""RTN"",""XUSNPIED"",1,0)"
^XMB(3.9,163,2,1714,0)="XUSNPIED ;JLI/FO-OAKLAND - DATA ENTRY FOR INITIAL NPI VALUES ;07/06/06  10:12"
^XMB(3.9,163,2,1715,0)="""RTN"",""XUSNPIED"",2,0)"
^XMB(3.9,163,2,1716,0)=" ;;8.0;KERNEL;**420**;Jul 10, 1995;Build 20"
^XMB(3.9,163,2,1717,0)="""RTN"",""XUSNPIED"",3,0)"
^XMB(3.9,163,2,1718,0)=" Q"
^XMB(3.9,163,2,1719,0)="""RTN"",""XUSNPIED"",4,0)"
^XMB(3.9,163,2,1720,0)=" ;"
^XMB(3.9,163,2,1721,0)="""RTN"",""XUSNPIED"",5,0)"
^XMB(3.9,163,2,1722,0)="SIGNON ; run at user sign-on to display message if NPI value is needed."
^XMB(3.9,163,2,1723,0)="""RTN"",""XUSNPIED"",6,0)"
^XMB(3.9,163,2,1724,0)=" D SIGNON^XUSNPIE1"
^XMB(3.9,163,2,1725,0)="""RTN"",""XUSNPIED"",7,0)"
^XMB(3.9,163,2,1726,0)=" Q"
^XMB(3.9,163,2,1727,0)="""RTN"",""XUSNPIED"",8,0)"
^XMB(3.9,163,2,1728,0)=" ;"
^XMB(3.9,163,2,1729,0)="""RTN"",""XUSNPIED"",9,0)"
^XMB(3.9,163,2,1730,0)="CLEREDIT ; Input editing of NPI value for clerical staff - ask provider"
^XMB(3.9,163,2,1731,0)="""RTN"",""XUSNPIED"",10,0)"
^XMB(3.9,163,2,1732,0)=" N IEN,DIC,PROVNAME,DATEVAL,DESCRIP,DONE,IENS,NPIVAL1,NPIVAL2,Y,XX"
^XMB(3.9,163,2,1733,0)="""RTN"",""XUSNPIED"",11,0)"
^XMB(3.9,163,2,1734,0)=" F  W ! S DIC=""^VA(200,"",DIC(0)=""AEQ"" S DIC(""A"")=""select Provider: "" D ^DIC Q:Y'>0  S IEN=+Y D EDITNPI(IEN)"
^XMB(3.9,163,2,1735,0)="""RTN"",""XUSNPIED"",12,0)"
^XMB(3.9,163,2,1736,0)=" Q"
^XMB(3.9,163,2,1737,0)="""RTN"",""XUSNPIED"",13,0)"
^XMB(3.9,163,2,1738,0)=" ;"
^XMB(3.9,163,2,1739,0)="""RTN"",""XUSNPIED"",14,0)"
^XMB(3.9,163,2,1740,0)="USEREDIT ; Entry point for provider to enter own data"
^XMB(3.9,163,2,1741,0)="""RTN"",""XUSNPIED"",15,0)"
^XMB(3.9,163,2,1742,0)=" I $$NPISTATS(DUZ)="""" W !,$C(7),""Please see your local NPI facilitator to add the NPI"",! H 3 Q"
^XMB(3.9,163,2,1743,0)="""RTN"",""XUSNPIED"",16,0)"
^XMB(3.9,163,2,1744,0)=" D EDITNPI(DUZ)"
^XMB(3.9,163,2,1745,0)="""RTN"",""XUSNPIED"",17,0)"
^XMB(3.9,163,2,1746,0)=" Q"
^XMB(3.9,163,2,1747,0)="""RTN"",""XUSNPIED"",18,0)"
^XMB(3.9,163,2,1748,0)=" ;"
^XMB(3.9,163,2,1749,0)="""RTN"",""XUSNPIED"",19,0)"
^XMB(3.9,163,2,1750,0)="EDITNPI(IEN) ;"
^XMB(3.9,163,2,1751,0)="""RTN"",""XUSNPIED"",20,0)"
^XMB(3.9,163,2,1752,0)=" D EDITNPI^XUSNPIE1(IEN)"
^XMB(3.9,163,2,1753,0)="""RTN"",""XUSNPIED"",21,0)"
^XMB(3.9,163,2,1754,0)=" Q"
^XMB(3.9,163,2,1755,0)="""RTN"",""XUSNPIED"",22,0)"
^XMB(3.9,163,2,1756,0)=" ;"
^XMB(3.9,163,2,1757,0)="""RTN"",""XUSNPIED"",23,0)"
^XMB(3.9,163,2,1758,0)="CLERXMPT ;"
^XMB(3.9,163,2,1759,0)="""RTN"",""XUSNPIED"",24,0)"
^XMB(3.9,163,2,1760,0)=" D CLERXMPT^XUSNPIE1"
^XMB(3.9,163,2,1761,0)="""RTN"",""XUSNPIED"",25,0)"
^XMB(3.9,163,2,1762,0)=" Q"
^XMB(3.9,163,2,1763,0)="""RTN"",""XUSNPIED"",26,0)"
^XMB(3.9,163,2,1764,0)=" ;"
^XMB(3.9,163,2,1765,0)="""RTN"",""XUSNPIED"",27,0)"
^XMB(3.9,163,2,1766,0)="CHKGLOB() ; returns global location of TAXONOMY values also rebuilds if they are missing"
^XMB(3.9,163,2,1767,0)="""RTN"",""XUSNPIED"",28,0)"
^XMB(3.9,163,2,1768,0)=" Q $$CHKGLOB^XUSNPIDA()"
^XMB(3.9,163,2,1769,0)="""RTN"",""XUSNPIED"",29,0)"
^XMB(3.9,163,2,1770,0)=" ;"
^XMB(3.9,163,2,1771,0)="""RTN"",""XUSNPIED"",30,0)"
^XMB(3.9,163,2,1772,0)="DOUSER(XUUSER,XUGLOB) ; check user for needing an NPI status value"
^XMB(3.9,163,2,1773,0)="""RTN"",""XUSNPIED"",31,0)"
^XMB(3.9,163,2,1774,0)=" N PCLASS,XUDONE,PVAL,CODE,NPISTATS,XUVALUE,D0,EXPIRATN,I,NPIFLD,NPISUBFL"
^XMB(3.9,163,2,1775,0)="""RTN"",""XUSNPIED"",32,0)"
^XMB(3.9,163,2,1776,0)=" S NPISTATS=41.98,NPISUBFL=200.042,NPIFLD=.03"
^XMB(3.9,163,2,1777,0)="""RTN"",""XUSNPIED"",33,0)"
^XMB(3.9,163,2,1778,0)=" I $$GET1^DIQ(200,XUUSER_"","",NPISTATS)'="""" Q  ; user is already flagged"
^XMB(3.9,163,2,1779,0)="""RTN"",""XUSNPIED"",34,0)"
^XMB(3.9,163,2,1780,0)=" S PCLASS=0,XUDONE=0 F  S PCLASS=$O(^VA(200,XUUSER,""USC1"",PCLASS)) Q:PCLASS'>0  S D0=^(PCLASS,0) D  Q:XUDONE"
^XMB(3.9,163,2,1781,0)="""RTN"",""XUSNPIED"",35,0)"
^XMB(3.9,163,2,1782,0)=" . S EXPIRATN=$P(D0,U,3)>0 I EXPIRATN Q"
^XMB(3.9,163,2,1783,0)="""RTN"",""XUSNPIED"",36,0)"
^XMB(3.9,163,2,1784,0)=" . S PVAL=$P(D0,U),CODE=$$GET1^DIQ(8932.1,PVAL_"","",6) I CODE'="""",$D(@XUGLOB@(CODE)) D  S XUDONE=1 Q"
^XMB(3.9,163,2,1785,0)="""RTN"",""XUSNPIED"",37,0)"
^XMB(3.9,163,2,1786,0)=" . . S XUVALUE=""N"" N NPIVAL F I=1:1 S NPIVAL=$$GET1^DIQ(NPISUBFL,I_"",""_XUUSER_"","",NPIFLD) Q:NPIVAL=""""  S XUVALUE=""D"" Q"
^XMB(3.9,163,2,1787,0)="""RTN"",""XUSNPIED"",38,0)"
^XMB(3.9,163,2,1788,0)=" . . N XUFDA S XUFDA(200,XUUSER_"","",NPISTATS)=XUVALUE"
^XMB(3.9,163,2,1789,0)="""RTN"",""XUSNPIED"",39,0)"
^XMB(3.9,163,2,1790,0)=" . . D FILE^DIE("""",""XUFDA"")"
^XMB(3.9,163,2,1791,0)="""RTN"",""XUSNPIED"",40,0)"
^XMB(3.9,163,2,1792,0)=" . . Q"
^XMB(3.9,163,2,1793,0)="""RTN"",""XUSNPIED"",41,0)"
^XMB(3.9,163,2,1794,0)=" . Q"
^XMB(3.9,163,2,1795,0)="""RTN"",""XUSNPIED"",42,0)"
^XMB(3.9,163,2,1796,0)=" Q"
^XMB(3.9,163,2,1797,0)="""RTN"",""XUSNPIED"",43,0)"
^XMB(3.9,163,2,1798,0)=" ;"
^XMB(3.9,163,2,1799,0)="""RTN"",""XUSNPIED"",44,0)"
^XMB(3.9,163,2,1800,0)="PRINTOPT ; .OPT - prints local output listing for all providers or those needing NPI values"
^XMB(3.9,163,2,1801,0)="""RTN"",""XUSNPIED"",45,0)"
^XMB(3.9,163,2,1802,0)=" N OPTION,DIR,Y,%ZIS,ION,ZTDESC,ZTIO,ZTRTN,ZTSAVE,ZTSK,XUSSORT"
^XMB(3.9,163,2,1803,0)="""RTN"",""XUSNPIED"",46,0)"
^XMB(3.9,163,2,1804,0)=" ; have user select type of output desired"
^XMB(3.9,163,2,1805,0)="""RTN"",""XUSNPIED"",47,0)"
^XMB(3.9,163,2,1806,0)=" W !,""Select one of the following:"",!!,?11,""1"",?21,""All providers"",!,?11,""2"",?21,""All providers without NPI numbers"",!"
^XMB(3.9,163,2,1807,0)="""RTN"",""XUSNPIED"",48,0)"
^XMB(3.9,163,2,1808,0)=" S DIR(0)=""N^1:2"",DIR(""A"")=""Select a report option: "",DIR(""B"")=""1"" D ^DIR K DIR Q:Y'>0  S OPTION=+Y"
^XMB(3.9,163,2,1809,0)="""RTN"",""XUSNPIED"",49,0)"
^XMB(3.9,163,2,1810,0)=" S DIR(0)=""Y"",DIR(""B"")=""YES"",DIR(""A"")=""Sort by SERVICE/SECTION"" D ^DIR K DIR S XUSSORT=+Y"
^XMB(3.9,163,2,1811,0)="""RTN"",""XUSNPIED"",50,0)"
^XMB(3.9,163,2,1812,0)=" S %ZIS=""Q"" D ^%ZIS Q:POP"
^XMB(3.9,163,2,1813,0)="""RTN"",""XUSNPIED"",51,0)"
^XMB(3.9,163,2,1814,0)=" I $D(IO(""Q"")) S ZTSAVE(""OPTION"")="""",ZTSAVE(""XUSSORT"")="""",ZTIO=ION,ZTRTN=""DQ^XUSNPIED"",ZTDESC=""NPI PRINT JOB FOR OPTION ""_OPTION D ^%ZTLOAD W:$D(ZTSK) !,""Queued as Task ""_ZTSK Q"
^XMB(3.9,163,2,1815,0)="""RTN"",""XUSNPIED"",52,0)"
^XMB(3.9,163,2,1816,0)=" ;"
^XMB(3.9,163,2,1817,0)="""RTN"",""XUSNPIED"",53,0)"
^XMB(3.9,163,2,1818,0)="DQ ; entry point for queued print job"
^XMB(3.9,163,2,1819,0)="""RTN"",""XUSNPIED"",54,0)"
^XMB(3.9,163,2,1820,0)=" U IO D PRNTPROV(OPTION,XUSSORT)"
^XMB(3.9,163,2,1821,0)="""RTN"",""XUSNPIED"",55,0)"
^XMB(3.9,163,2,1822,0)=" I IO'=IO(0) U IO D ^%ZISC"
^XMB(3.9,163,2,1823,0)="""RTN"",""XUSNPIED"",56,0)"
^XMB(3.9,163,2,1824,0)=" D HOME^%ZIS"
^XMB(3.9,163,2,1825,0)="""RTN"",""XUSNPIED"",57,0)"
^XMB(3.9,163,2,1826,0)=" Q"
^XMB(3.9,163,2,1827,0)="""RTN"",""XUSNPIED"",58,0)"
^XMB(3.9,163,2,1828,0)=" ;"
^XMB(3.9,163,2,1829,0)="""RTN"",""XUSNPIED"",59,0)"
^XMB(3.9,163,2,1830,0)="CBOLIST ; list ^ delimited output to CBO exchange mail group."
^XMB(3.9,163,2,1831,0)="""RTN"",""XUSNPIED"",60,0)"
^XMB(3.9,163,2,1832,0)=" N DATE,DOMAIN,ADDRESS,STATNAME,COUNT,DOB,GLOBLOC,GLOBOUT"
^XMB(3.9,163,2,1833,0)="""RTN"",""XUSNPIED"",61,0)"
^XMB(3.9,163,2,1834,0)=" N IEN,NPI,PROVNAME,SSN,TAXDESCR,TAXONOMY,STATION,STATUS,OPTION"
^XMB(3.9,163,2,1835,0)="""RTN"",""XUSNPIED"",62,0)"
^XMB(3.9,163,2,1836,0)=" I '$$PROD^XUPROD() Q  ; messages from production systems only"
^XMB(3.9,163,2,1837,0)="""RTN"",""XUSNPIED"",63,0)"
^XMB(3.9,163,2,1838,0)=" S DATE=(1700+$E(DT,1,3))_""-""_$E(DT,4,5)_""-""_$E(DT,6,7)"
^XMB(3.9,163,2,1839,0)="""RTN"",""XUSNPIED"",64,0)"
^XMB(3.9,163,2,1840,0)=" S DOMAIN=$G(^XTV(8989.3,1,0)),DOMAIN=$P(DOMAIN,U)"
^XMB(3.9,163,2,1841,0)="""RTN"",""XUSNPIED"",65,0)"
^XMB(3.9,163,2,1842,0)=" S ADDRESS=$$GET1^DIQ(4.2,DOMAIN_"","",.01)"
^XMB(3.9,163,2,1843,0)="""RTN"",""XUSNPIED"",66,0)"
^XMB(3.9,163,2,1844,0)=" S STATION=$$GET1^DIQ(4.2,DOMAIN_"","",5.5)"
^XMB(3.9,163,2,1845,0)="""RTN"",""XUSNPIED"",67,0)"
^XMB(3.9,163,2,1846,0)=" S STATNAME="""" S:STATION'="""" STATNAME=$O(^DIC(4,""D"",STATION,0)) S STATNAME=$S(STATNAME>0:$P(^DIC(4,STATNAME,0),U),1:"""")"
^XMB(3.9,163,2,1847,0)="""RTN"",""XUSNPIED"",68,0)"
^XMB(3.9,163,2,1848,0)=" S OPTION=3"
^XMB(3.9,163,2,1849,0)="""RTN"",""XUSNPIED"",69,0)"
^XMB(3.9,163,2,1850,0)=" S GLOBLOC=$$GETDATA(OPTION,0) ; get most of data into location specified by GLOBLOC"
^XMB(3.9,163,2,1851,0)="""RTN"",""XUSNPIED"",70,0)"
^XMB(3.9,163,2,1852,0)=" S COUNT=0,GLOBOUT=$NA(^TMP($J,""XUSNPIOUT"")) K @GLOBOUT"
^XMB(3.9,163,2,1853,0)="""RTN"",""XUSNPIED"",71,0)"
^XMB(3.9,163,2,1854,0)=" S COUNT=1,@GLOBOUT@(COUNT)=""--START"""
^XMB(3.9,163,2,1855,0)="""RTN"",""XUSNPIED"",72,0)"
^XMB(3.9,163,2,1856,0)=" S PROVNAME="""" F  S PROVNAME=$O(@GLOBLOC@(PROVNAME)) Q:PROVNAME=""""  S IEN=0 F  S IEN=$O(@GLOBLOC@(PROVNAME,IEN)) Q:IEN'>0  D"
^XMB(3.9,163,2,1857,0)="""RTN"",""XUSNPIED"",73,0)"
^XMB(3.9,163,2,1858,0)=" . S TAXDESCR="""" F  S TAXDESCR=$O(@GLOBLOC@(PROVNAME,IEN,TAXDESCR)) Q:TAXDESCR=""""  S TAXONOMY=$P(^(TAXDESCR),U,4),NPI=$P(^(TAXDESCR),U,3) D"
^XMB(3.9,163,2,1859,0)="""RTN"",""XUSNPIED"",74,0)"
^XMB(3.9,163,2,1860,0)=" . . S DOB=$P($G(^VA(200,IEN,1)),U,3),SSN=$E($$GET1^DIQ(200,IEN_"","",9),6,9) S:DOB'="""" DOB=$$DATE10(DOB) S STATUS=$$NPISTATS(IEN)"
^XMB(3.9,163,2,1861,0)="""RTN"",""XUSNPIED"",75,0)"
^XMB(3.9,163,2,1862,0)=" . . S COUNT=COUNT+1,@GLOBOUT@(COUNT)=PROVNAME_U_STATION_U_NPI_U_SSN_U_DOB_U_TAXONOMY_U_TAXDESCR_U_DATE_U_STATUS"
^XMB(3.9,163,2,1863,0)="""RTN"",""XUSNPIED"",76,0)"
^XMB(3.9,163,2,1864,0)=" . . Q"
^XMB(3.9,163,2,1865,0)="""RTN"",""XUSNPIED"",77,0)"
^XMB(3.9,163,2,1866,0)=" . Q"
^XMB(3.9,163,2,1867,0)="""RTN"",""XUSNPIED"",78,0)"
^XMB(3.9,163,2,1868,0)=" S COUNT=COUNT+1,@GLOBOUT@(COUNT)=""--END"""
^XMB(3.9,163,2,1869,0)="""RTN"",""XUSNPIED"",79,0)"
^XMB(3.9,163,2,1870,0)=" ; and generate mail message"
^XMB(3.9,163,2,1871,0)="""RTN"",""XUSNPIED"",80,0)"
^XMB(3.9,163,2,1872,0)=" N XMTEXT,XMDUZ,XMY,XMSUB"
^XMB(3.9,163,2,1873,0)="""RTN"",""XUSNPIED"",81,0)"
^XMB(3.9,163,2,1874,0)=" S XMTEXT=$E(GLOBOUT,1,$L(GLOBOUT)-1)_"","",XMDUZ=0.5,XMY(""VHACONPINPF@VA.GOV"")="""""
^XMB(3.9,163,2,1875,0)="""RTN"",""XUSNPIED"",82,0)"
^XMB(3.9,163,2,1876,0)=" S XMSUB=""NPI LIST ""_DATE_"" FOR ""_$S(STATION'="""":STATION,1:ADDRESS)"
^XMB(3.9,163,2,1877,0)="""RTN"",""XUSNPIED"",83,0)"
^XMB(3.9,163,2,1878,0)=" D ^XMD"
^XMB(3.9,163,2,1879,0)="""RTN"",""XUSNPIED"",84,0)"
^XMB(3.9,163,2,1880,0)=" Q"
^XMB(3.9,163,2,1881,0)="""RTN"",""XUSNPIED"",85,0)"
^XMB(3.9,163,2,1882,0)=" ;"
^XMB(3.9,163,2,1883,0)="""RTN"",""XUSNPIED"",86,0)"
^XMB(3.9,163,2,1884,0)="PRNTPROV(OPTION,XUSSORT) ;"
^XMB(3.9,163,2,1885,0)="""RTN"",""XUSNPIED"",87,0)"
^XMB(3.9,163,2,1886,0)=" ; ZEXCEPT: IOSL   KERNEL IO VARIABLE"
^XMB(3.9,163,2,1887,0)="""RTN"",""XUSNPIED"",88,0)"
^XMB(3.9,163,2,1888,0)=" N PAGENUM,LINENUM,PROVNAME,TAXDESCR,TAXONOMY,SERVSECT,DIRUT,DTOUT"
^XMB(3.9,163,2,1889,0)="""RTN"",""XUSNPIED"",89,0)"
^XMB(3.9,163,2,1890,0)=" N GLOBLOC,IEN,NPI,DATETIME,GLOBVALU,NCOUNT,GLOBLOC1"
^XMB(3.9,163,2,1891,0)="""RTN"",""XUSNPIED"",90,0)"
^XMB(3.9,163,2,1892,0)=" S PAGENUM=0,LINENUM=0"
^XMB(3.9,163,2,1893,0)="""RTN"",""XUSNPIED"",91,0)"
^XMB(3.9,163,2,1894,0)=" S DATETIME=$$NOW^XLFDT()"
^XMB(3.9,163,2,1895,0)="""RTN"",""XUSNPIED"",92,0)"
^XMB(3.9,163,2,1896,0)=" S GLOBLOC1=$$GETDATA(OPTION,XUSSORT)"
^XMB(3.9,163,2,1897,0)="""RTN"",""XUSNPIED"",93,0)"
^XMB(3.9,163,2,1898,0)=" S GLOBLOC=GLOBLOC1,SERVSECT="""" D:'XUSSORT  I XUSSORT F  S SERVSECT=$O(@GLOBLOC1@(SERVSECT)) Q:SERVSECT=""""  S GLOBLOC=$NA(@GLOBLOC1@(SERVSECT)) D  Q:$D(DIRUT)!$D(DTOUT)"
^XMB(3.9,163,2,1899,0)="""RTN"",""XUSNPIED"",94,0)"
^XMB(3.9,163,2,1900,0)=" . D HEADER(OPTION,DATETIME,.PAGENUM,.LINENUM,XUSSORT,SERVSECT) Q:$D(DIRUT)!$D(DTOUT)"
^XMB(3.9,163,2,1901,0)="""RTN"",""XUSNPIED"",95,0)"
^XMB(3.9,163,2,1902,0)=" . S PROVNAME="""" F  S PROVNAME=$O(@GLOBLOC@(PROVNAME)) Q:PROVNAME=""""  Q:$D(DIRUT)!$D(DTOUT)  S IEN=0 F  S IEN=$O(@GLOBLOC@(PROVNAME,IEN)) Q:IEN'>0  D  Q:$D(DIRUT)!$D(DTOUT)"
^XMB(3.9,163,2,1903,0)="""RTN"",""XUSNPIED"",96,0)"
^XMB(3.9,163,2,1904,0)=" . . S NCOUNT=0"
^XMB(3.9,163,2,1905,0)="""RTN"",""XUSNPIED"",97,0)"
^XMB(3.9,163,2,1906,0)=" . . S TAXDESCR="""" F  S TAXDESCR=$O(@GLOBLOC@(PROVNAME,IEN,TAXDESCR)) Q:TAXDESCR=""""  S GLOBVALU=^(TAXDESCR) D"
^XMB(3.9,163,2,1907,0)="""RTN"",""XUSNPIED"",98,0)"
^XMB(3.9,163,2,1908,0)=" . . . S NCOUNT=NCOUNT+1 I NCOUNT=1 S NPI=$P(GLOBVALU,U,3) W !,PROVNAME,?33,$$ALIGNRGT(IEN,11),?49,NPI"
^XMB(3.9,163,2,1909,0)="""RTN"",""XUSNPIED"",99,0)"
^XMB(3.9,163,2,1910,0)=" . . . S TAXONOMY=$P(GLOBVALU,U,4) W !,?6,TAXONOMY,""  "",TAXDESCR"
^XMB(3.9,163,2,1911,0)="""RTN"",""XUSNPIED"",100,0)"
^XMB(3.9,163,2,1912,0)=" . . . Q"
^XMB(3.9,163,2,1913,0)="""RTN"",""XUSNPIED"",101,0)"
^XMB(3.9,163,2,1914,0)=" . . S LINENUM=LINENUM+2 I LINENUM>(IOSL-4) D HEADER(OPTION,DATETIME,.PAGENUM,.LINENUM,XUSSORT,SERVSECT) Q:$D(DIRUT)!$D(DTOUT)"
^XMB(3.9,163,2,1915,0)="""RTN"",""XUSNPIED"",102,0)"
^XMB(3.9,163,2,1916,0)=" . . Q"
^XMB(3.9,163,2,1917,0)="""RTN"",""XUSNPIED"",103,0)"
^XMB(3.9,163,2,1918,0)=" . Q"
^XMB(3.9,163,2,1919,0)="""RTN"",""XUSNPIED"",104,0)"
^XMB(3.9,163,2,1920,0)=" I '($D(DIRUT)!$D(DTOUT)) D"
^XMB(3.9,163,2,1921,0)="""RTN"",""XUSNPIED"",105,0)"
^XMB(3.9,163,2,1922,0)=" . S PROVNAME="""" I $O(@GLOBLOC@(PROVNAME))="""" W !,?20,""* * * N O  D A T A  F O U N D * * *"",!!"
^XMB(3.9,163,2,1923,0)="""RTN"",""XUSNPIED"",106,0)"
^XMB(3.9,163,2,1924,0)=" . W !!,?27,""*** End of Report ***"""
^XMB(3.9,163,2,1925,0)="""RTN"",""XUSNPIED"",107,0)"
^XMB(3.9,163,2,1926,0)=" . Q"
^XMB(3.9,163,2,1927,0)="""RTN"",""XUSNPIED"",108,0)"
^XMB(3.9,163,2,1928,0)=" Q"
^XMB(3.9,163,2,1929,0)="""RTN"",""XUSNPIED"",109,0)"
^XMB(3.9,163,2,1930,0)=" ;"
^XMB(3.9,163,2,1931,0)="""RTN"",""XUSNPIED"",110,0)"
^XMB(3.9,163,2,1932,0)="HEADER(OPTION,DATETIME,PAGNOREF,LINNOREF,XUSSORT,SERVSECT) ;"
^XMB(3.9,163,2,1933,0)="""RTN"",""XUSNPIED"",111,0)"
^XMB(3.9,163,2,1934,0)=" ; ZEXCEPT: IOF,IOST  KERNEL IO VARIABLES"
^XMB(3.9,163,2,1935,0)="""RTN"",""XUSNPIED"",112,0)"
^XMB(3.9,163,2,1936,0)=" ; ZEXCEPT: DIRUT,DTOUT  NEWED IN CALLING PRNTPROV - INDICATE QUIT TO PRNTPROV"
^XMB(3.9,163,2,1937,0)="""RTN"",""XUSNPIED"",113,0)"
^XMB(3.9,163,2,1938,0)=" N TEMPVAL,DIR,X,Y"
^XMB(3.9,163,2,1939,0)="""RTN"",""XUSNPIED"",114,0)"
^XMB(3.9,163,2,1940,0)=" S PAGNOREF=PAGNOREF+1"
^XMB(3.9,163,2,1941,0)="""RTN"",""XUSNPIED"",115,0)"
^XMB(3.9,163,2,1942,0)=" ; Don't page feed on the first page"
^XMB(3.9,163,2,1943,0)="""RTN"",""XUSNPIED"",116,0)"
^XMB(3.9,163,2,1944,0)=" IF PAGNOREF>1 I $E(IOST,1,2)=""C-"" S DIR(0)=""E"" D ^DIR I 'Y S DIRUT=1 Q"
^XMB(3.9,163,2,1945,0)="""RTN"",""XUSNPIED"",117,0)"
^XMB(3.9,163,2,1946,0)=" IF PAGNOREF>1 W @IOF"
^XMB(3.9,163,2,1947,0)="""RTN"",""XUSNPIED"",118,0)"
^XMB(3.9,163,2,1948,0)=" W:$E(IOST,1,2)'=""C-"" ! W ""Active Provider Report"",?48,$$FMTE^XLFDT(DATETIME),""  Page: "",PAGNOREF"
^XMB(3.9,163,2,1949,0)="""RTN"",""XUSNPIED"",119,0)"
^XMB(3.9,163,2,1950,0)=" W !,"" Report Option: Provider List       Active Providers"",$S(OPTION=2:"" Without NPI Numbers"",1:"""")"
^XMB(3.9,163,2,1951,0)="""RTN"",""XUSNPIED"",120,0)"
^XMB(3.9,163,2,1952,0)=" W !!,""Provider Name                          IEN"",$S(OPTION'=2:""      NPI"",1:"""")"
^XMB(3.9,163,2,1953,0)="""RTN"",""XUSNPIED"",121,0)"
^XMB(3.9,163,2,1954,0)=" W !,""     Taxonomy"""
^XMB(3.9,163,2,1955,0)="""RTN"",""XUSNPIED"",122,0)"
^XMB(3.9,163,2,1956,0)=" W !,""--------------------------------------------------------------------------------"""
^XMB(3.9,163,2,1957,0)="""RTN"",""XUSNPIED"",123,0)"
^XMB(3.9,163,2,1958,0)=" S LINNOREF=6"
^XMB(3.9,163,2,1959,0)="""RTN"",""XUSNPIED"",124,0)"
^XMB(3.9,163,2,1960,0)=" I XUSSORT W !,""SERVICE/SECTION: "",SERVSECT S LINNOREF=LINNOREF+1"
^XMB(3.9,163,2,1961,0)="""RTN"",""XUSNPIED"",125,0)"
^XMB(3.9,163,2,1962,0)=" Q"
^XMB(3.9,163,2,1963,0)="""RTN"",""XUSNPIED"",126,0)"
^XMB(3.9,163,2,1964,0)=" ;"
^XMB(3.9,163,2,1965,0)="""RTN"",""XUSNPIED"",127,0)"
^XMB(3.9,163,2,1966,0)="GETDATA(OPTION,XUSSORT) ; get data for reports for providers"
^XMB(3.9,163,2,1967,0)="""RTN"",""XUSNPIED"",128,0)"
^XMB(3.9,163,2,1968,0)=" N GLOBLOC,IEN,NPI,PROVNAME,TAXDESCR,TAXONOMY,SERVSECT"
^XMB(3.9,163,2,1969,0)="""RTN"",""XUSNPIED"",129,0)"
^XMB(3.9,163,2,1970,0)=" S GLOBLOC=$NA(^TMP($J,""XUSNPIED"")) K @GLOBLOC"
^XMB(3.9,163,2,1971,0)="""RTN"",""XUSNPIED"",130,0)"
^XMB(3.9,163,2,1972,0)=" S IEN=0 F  S IEN=$O(^VA(200,IEN)) Q:IEN'>0  I $$ACTIVE^XUSER(IEN),$$NEEDSNPI(IEN)!($$HASNPI(IEN)&(OPTION'=2))!($$EXMPTNPI(IEN)&(OPTION'=2)) D"
^XMB(3.9,163,2,1973,0)="""RTN"",""XUSNPIED"",131,0)"
^XMB(3.9,163,2,1974,0)=" . S PROVNAME=$$GET1^DIQ(200,IEN_"","",.01),NPI=$$GETNPI(IEN),TAXONOMY=$$GETTAXON(IEN,.TAXDESCR) I TAXONOMY=-1 S TAXONOMY="" "",TAXDESCR="" """
^XMB(3.9,163,2,1975,0)="""RTN"",""XUSNPIED"",132,0)"
^XMB(3.9,163,2,1976,0)=" . I NPI="""",$$EXMPTNPI(IEN) S NPI=""EXEMPTED  """
^XMB(3.9,163,2,1977,0)="""RTN"",""XUSNPIED"",133,0)"
^XMB(3.9,163,2,1978,0)=" . I 'XUSSORT S @GLOBLOC@(PROVNAME,IEN,TAXDESCR)=PROVNAME_U_IEN_U_NPI_U_TAXONOMY_U_TAXDESCR"
^XMB(3.9,163,2,1979,0)="""RTN"",""XUSNPIED"",134,0)"
^XMB(3.9,163,2,1980,0)=" . I XUSSORT S SERVSECT=$$GET1^DIQ(200,IEN_"","",29) S:SERVSECT="""" SERVSECT="" "" S @GLOBLOC@(SERVSECT,PROVNAME,IEN,TAXDESCR)=PROVNAME_U_IEN_U_NPI_U_TAXONOMY_U_TAXDESCR"
^XMB(3.9,163,2,1981,0)="""RTN"",""XUSNPIED"",135,0)"
^XMB(3.9,163,2,1982,0)=" . Q"
^XMB(3.9,163,2,1983,0)="""RTN"",""XUSNPIED"",136,0)"
^XMB(3.9,163,2,1984,0)=" Q GLOBLOC"
^XMB(3.9,163,2,1985,0)="""RTN"",""XUSNPIED"",137,0)"
^XMB(3.9,163,2,1986,0)=" ;"
^XMB(3.9,163,2,1987,0)="""RTN"",""XUSNPIED"",138,0)"
^XMB(3.9,163,2,1988,0)="ALIGNRGT(TEXT,WIDTH) ; align text right in a specified width"
^XMB(3.9,163,2,1989,0)="""RTN"",""XUSNPIED"",139,0)"
^XMB(3.9,163,2,1990,0)=" N RESULT"
^XMB(3.9,163,2,1991,0)="""RTN"",""XUSNPIED"",140,0)"
^XMB(3.9,163,2,1992,0)=" S $P(RESULT,"" "",WIDTH)="" "",RESULT=RESULT_TEXT,RESULT=$E(RESULT,$L(RESULT)-WIDTH+1,$L(RESULT))"
^XMB(3.9,163,2,1993,0)="""RTN"",""XUSNPIED"",141,0)"
^XMB(3.9,163,2,1994,0)=" Q RESULT"
^XMB(3.9,163,2,1995,0)="""RTN"",""XUSNPIED"",142,0)"
^XMB(3.9,163,2,1996,0)=" ;"
^XMB(3.9,163,2,1997,0)="""RTN"",""XUSNPIED"",143,0)"
^XMB(3.9,163,2,1998,0)="CHEKNPI(IEN) ; returns whether status is Needs, will check and update if not set"
^XMB(3.9,163,2,1999,0)="""RTN"",""XUSNPIED"",144,0)"
^XMB(3.9,163,2,2000,0)=" N VALUE,FDA"
^XMB(3.9,163,2,2001,0)="""RTN"",""XUSNPIED"",145,0)"
^XMB(3.9,163,2,2002,0)=" S VALUE=$$NPISTATS(IEN)"
^XMB(3.9,163,2,2003,0)="""RTN"",""XUSNPIED"",146,0)"
^XMB(3.9,163,2,2004,0)=" I VALUE="""",$$CHKTAXON(IEN) S FDA(200,IEN_"","",41.98)=""N"" D FILE^DIE("""",""FDA"") S VALUE=""N"""
^XMB(3.9,163,2,2005,0)="""RTN"",""XUSNPIED"",147,0)"
^XMB(3.9,163,2,2006,0)=" Q VALUE=""N"""
^XMB(3.9,163,2,2007,0)="""RTN"",""XUSNPIED"",148,0)"
^XMB(3.9,163,2,2008,0)=" ;"
^XMB(3.9,163,2,2009,0)="""RTN"",""XUSNPIED"",149,0)"
^XMB(3.9,163,2,2010,0)="NEEDSNPI(IEN) ; returns whether current status is N"
^XMB(3.9,163,2,2011,0)="""RTN"",""XUSNPIED"",150,0)"
^XMB(3.9,163,2,2012,0)=" Q $$NPISTATS(IEN)=""N"""
^XMB(3.9,163,2,2013,0)="""RTN"",""XUSNPIED"",151,0)"
^XMB(3.9,163,2,2014,0)=" ;"
^XMB(3.9,163,2,2015,0)="""RTN"",""XUSNPIED"",152,0)"
^XMB(3.9,163,2,2016,0)="HASNPI(IEN) ; returns whether current status is D (Done)"
^XMB(3.9,163,2,2017,0)="""RTN"",""XUSNPIED"",153,0)"
^XMB(3.9,163,2,2018,0)=" Q $$NPISTATS(IEN)=""D"""
^XMB(3.9,163,2,2019,0)="""RTN"",""XUSNPIED"",154,0)"
^XMB(3.9,163,2,2020,0)=" ;"
^XMB(3.9,163,2,2021,0)="""RTN"",""XUSNPIED"",155,0)"
^XMB(3.9,163,2,2022,0)="EXMPTNPI(IEN) ; returns whether current status is E (Exempt)"
^XMB(3.9,163,2,2023,0)="""RTN"",""XUSNPIED"",156,0)"
^XMB(3.9,163,2,2024,0)=" Q $$NPISTATS(IEN)=""E"""
^XMB(3.9,163,2,2025,0)="""RTN"",""XUSNPIED"",157,0)"
^XMB(3.9,163,2,2026,0)=" ;"
^XMB(3.9,163,2,2027,0)="""RTN"",""XUSNPIED"",158,0)"
^XMB(3.9,163,2,2028,0)="NPISTATS(IEN) ; returns one letter status indicator"
^XMB(3.9,163,2,2029,0)="""RTN"",""XUSNPIED"",159,0)"
^XMB(3.9,163,2,2030,0)=" Q $E($$GET1^DIQ(200,IEN_"","",41.98))"
^XMB(3.9,163,2,2031,0)="""RTN"",""XUSNPIED"",160,0)"
^XMB(3.9,163,2,2032,0)=" ;"
^XMB(3.9,163,2,2033,0)="""RTN"",""XUSNPIED"",161,0)"
^XMB(3.9,163,2,2034,0)="GETNPI(IEN) ; returns current NPI value"
^XMB(3.9,163,2,2035,0)="""RTN"",""XUSNPIED"",162,0)"
^XMB(3.9,163,2,2036,0)=" Q $$GET1^DIQ(200,IEN_"","",41.99)"
^XMB(3.9,163,2,2037,0)="""RTN"",""XUSNPIED"",163,0)"
^XMB(3.9,163,2,2038,0)=" ;"
^XMB(3.9,163,2,2039,0)="""RTN"",""XUSNPIED"",164,0)"
^XMB(3.9,163,2,2040,0)="GETTAXON(IEN,DESCRREF) ; returns Taxonomy value (X12) and sets description in DESCRREF, otherwise -1"
^XMB(3.9,163,2,2041,0)="""RTN"",""XUSNPIED"",165,0)"
^XMB(3.9,163,2,2042,0)=" N I,POINTER,TAXON"
^XMB(3.9,163,2,2043,0)="""RTN"",""XUSNPIED"",166,0)"
^XMB(3.9,163,2,2044,0)=" S TAXON=-1,DESCRREF="" """
^XMB(3.9,163,2,2045,0)="""RTN"",""XUSNPIED"",167,0)"
^XMB(3.9,163,2,2046,0)=" F I=0:0 S I=$O(^VA(200,IEN,""USC1"",I)) Q:I'>0  I $P(^(I,0),U,3)'>0 S POINTER=+^(0) S TAXON=$$GET1^DIQ(8932.1,POINTER_"","",6),DESCRREF=$$GET1^DIQ(8932.1,POINTER_"","",1) Q"
^XMB(3.9,163,2,2047,0)="""RTN"",""XUSNPIED"",168,0)"
^XMB(3.9,163,2,2048,0)=" I TAXON="""" S TAXON=-1,DESCRREF="" """
^XMB(3.9,163,2,2049,0)="""RTN"",""XUSNPIED"",169,0)"
^XMB(3.9,163,2,2050,0)=" Q TAXON"
^XMB(3.9,163,2,2051,0)="""RTN"",""XUSNPIED"",170,0)"
^XMB(3.9,163,2,2052,0)=" ;"
^XMB(3.9,163,2,2053,0)="""RTN"",""XUSNPIED"",171,0)"
^XMB(3.9,163,2,2054,0)="CHKTAXON(IEN,TAXONOMY) ; checks whether taxonomy value (X12) is in list of billable otherwise 0-1"
^XMB(3.9,163,2,2055,0)="""RTN"",""XUSNPIED"",172,0)"
^XMB(3.9,163,2,2056,0)=" N DESCRIP,XUSGLOB"
^XMB(3.9,163,2,2057,0)="""RTN"",""XUSNPIED"",173,0)"
^XMB(3.9,163,2,2058,0)=" I $G(TAXONOMY)="""" S TAXONOMY=$$GETTAXON(IEN,.DESCRIP)"
^XMB(3.9,163,2,2059,0)="""RTN"",""XUSNPIED"",174,0)"
^XMB(3.9,163,2,2060,0)=" S XUSGLOB=$$CHKGLOB()"
^XMB(3.9,163,2,2061,0)="""RTN"",""XUSNPIED"",175,0)"
^XMB(3.9,163,2,2062,0)=" Q $D(@XUSGLOB@(TAXONOMY))"
^XMB(3.9,163,2,2063,0)="""RTN"",""XUSNPIED"",176,0)"
^XMB(3.9,163,2,2064,0)=" ;"
^XMB(3.9,163,2,2065,0)="""RTN"",""XUSNPIED"",177,0)"
^XMB(3.9,163,2,2066,0)="DATE10(DATE) ; returns date in mm/dd/yyyyy format"
^XMB(3.9,163,2,2067,0)="""RTN"",""XUSNPIED"",178,0)"
^XMB(3.9,163,2,2068,0)=" Q $E(DATE,4,5)_""/""_$E(DATE,6,7)_""/""_(1700+$E(DATE,1,3))"
^XMB(3.9,163,2,2069,0)="""RTN"",""XUSNPIED"",179,0)"
^XMB(3.9,163,2,2070,0)=" ;"
^XMB(3.9,163,2,2071,0)="""RTN"",""XUSNPIED"",180,0)"
^XMB(3.9,163,2,2072,0)="POSTINIT ; runs post init"
^XMB(3.9,163,2,2073,0)="""RTN"",""XUSNPIED"",181,0)"
^XMB(3.9,163,2,2074,0)=" D POSTINIT^XUSNPIE1"
^XMB(3.9,163,2,2075,0)="""RTN"",""XUSNPIED"",182,0)"
^XMB(3.9,163,2,2076,0)=" Q"
^XMB(3.9,163,2,2077,0)="""RTN"",""XUSNPIED"",183,0)"
^XMB(3.9,163,2,2078,0)=" ;"
^XMB(3.9,163,2,2079,0)="""RTN"",""XUSNPIED"",184,0)"
^XMB(3.9,163,2,2080,0)="CBOQUEUE ; queues CBO List to run on first day of month"
^XMB(3.9,163,2,2081,0)="""RTN"",""XUSNPIED"",185,0)"
^XMB(3.9,163,2,2082,0)=" D CBOQUEUE^XUSNPIE1"
^XMB(3.9,163,2,2083,0)="""RTN"",""XUSNPIED"",186,0)"
^XMB(3.9,163,2,2084,0)=" Q"
^XMB(3.9,163,2,2085,0)="""RTN"",""XUSNPIUT"")"
^XMB(3.9,163,2,2086,0)="0^5^B18048162^n/a"
^XMB(3.9,163,2,2087,0)="""RTN"",""XUSNPIUT"",1,0)"
^XMB(3.9,163,2,2088,0)="XUSNPIUT ;JLI/FO-OAK - UNIT TEST ROUTINE FOR NPI WORK ;5/12/06  08:54"
^XMB(3.9,163,2,2089,0)="""RTN"",""XUSNPIUT"",2,0)"
^XMB(3.9,163,2,2090,0)=" ;;8.0;KERNEL;**420**;Jul 10, 1995;Build 20"
^XMB(3.9,163,2,2091,0)="""RTN"",""XUSNPIUT"",3,0)"
^XMB(3.9,163,2,2092,0)=" I $T(EN^XTMUNIT)'="""" D EN^XTMUNIT(""XUSNPIUT"")"
^XMB(3.9,163,2,2093,0)="""RTN"",""XUSNPIUT"",4,0)"
^XMB(3.9,163,2,2094,0)=" Q"
^XMB(3.9,163,2,2095,0)="""RTN"",""XUSNPIUT"",5,0)"
^XMB(3.9,163,2,2096,0)=" ;"
^XMB(3.9,163,2,2097,0)="""RTN"",""XUSNPIUT"",6,0)"
^XMB(3.9,163,2,2098,0)="ALIGNRGT ;"
^XMB(3.9,163,2,2099,0)="""RTN"",""XUSNPIUT"",7,0)"
^XMB(3.9,163,2,2100,0)=" D CHKEQ^XTMUNIT($$ALIGNRGT^XUSNPIED(""TEXT1"",10),""     TEXT1"",""INCORRECT RETURN VALUE"")"
^XMB(3.9,163,2,2101,0)="""RTN"",""XUSNPIUT"",8,0)"
^XMB(3.9,163,2,2102,0)=" D CHKEQ^XTMUNIT($$ALIGNRGT^XUSNPIED(""AA AA"",6),"" AA AA"",""INCORRECT RETURN VALUE"")"
^XMB(3.9,163,2,2103,0)="""RTN"",""XUSNPIUT"",9,0)"
^XMB(3.9,163,2,2104,0)=" Q"
^XMB(3.9,163,2,2105,0)="""RTN"",""XUSNPIUT"",10,0)"
^XMB(3.9,163,2,2106,0)=" ;"
^XMB(3.9,163,2,2107,0)="""RTN"",""XUSNPIUT"",11,0)"
^XMB(3.9,163,2,2108,0)="NEEDSNPI ;"
^XMB(3.9,163,2,2109,0)="""RTN"",""XUSNPIUT"",12,0)"
^XMB(3.9,163,2,2110,0)=" N OLDVALUE,NEWVALUE,XUFDA,IENS"
^XMB(3.9,163,2,2111,0)="""RTN"",""XUSNPIUT"",13,0)"
^XMB(3.9,163,2,2112,0)=" S IENS=DUZ_"","""
^XMB(3.9,163,2,2113,0)="""RTN"",""XUSNPIUT"",14,0)"
^XMB(3.9,163,2,2114,0)=" S OLDVALUE=$$GET1^DIQ(200,IENS,41.98)"
^XMB(3.9,163,2,2115,0)="""RTN"",""XUSNPIUT"",15,0)"
^XMB(3.9,163,2,2116,0)=" K XUFDA S XUFDA(200,IENS,41.98)=""@"" D FILE^DIE("""",""XUFDA"")"
^XMB(3.9,163,2,2117,0)="""RTN"",""XUSNPIUT"",16,0)"
^XMB(3.9,163,2,2118,0)=" D CHKEQ^XTMUNIT($$NEEDSNPI^XUSNPIED(DUZ),0,""INCORRECT OR NO DATA"")"
^XMB(3.9,163,2,2119,0)="""RTN"",""XUSNPIUT"",17,0)"
^XMB(3.9,163,2,2120,0)=" ;"
^XMB(3.9,163,2,2121,0)="""RTN"",""XUSNPIUT"",18,0)"
^XMB(3.9,163,2,2122,0)=" K XUFDA S XUFDA(200,IENS,41.98)=""N"" D FILE^DIE("""",""XUFDA"")"
^XMB(3.9,163,2,2123,0)="""RTN"",""XUSNPIUT"",19,0)"
^XMB(3.9,163,2,2124,0)=" D CHKEQ^XTMUNIT($$NEEDSNPI^XUSNPIED(DUZ),1,""INCORRECT ON NEEDS"")"
^XMB(3.9,163,2,2125,0)="""RTN"",""XUSNPIUT"",20,0)"
^XMB(3.9,163,2,2126,0)=" ;"
^XMB(3.9,163,2,2127,0)="""RTN"",""XUSNPIUT"",21,0)"
^XMB(3.9,163,2,2128,0)=" K XUFDA S XUFDA(200,IENS,41.98)=""E"" D FILE^DIE("""",""XUFDA"")"
^XMB(3.9,163,2,2129,0)="""RTN"",""XUSNPIUT"",22,0)"
^XMB(3.9,163,2,2130,0)=" D CHKEQ^XTMUNIT($$NEEDSNPI^XUSNPIED(DUZ),0,""INCORRECT ON EXEMPT"")"
^XMB(3.9,163,2,2131,0)="""RTN"",""XUSNPIUT"",23,0)"
^XMB(3.9,163,2,2132,0)=" ;"
^XMB(3.9,163,2,2133,0)="""RTN"",""XUSNPIUT"",24,0)"
^XMB(3.9,163,2,2134,0)=" K XUFDA S XUFDA(200,IENS,41.98)=""D"" D FILE^DIE("""",""XUFDA"")"
^XMB(3.9,163,2,2135,0)="""RTN"",""XUSNPIUT"",25,0)"
^XMB(3.9,163,2,2136,0)=" D CHKEQ^XTMUNIT($$NEEDSNPI^XUSNPIED(DUZ),0,""INCORRECT ON DONE"")"
^XMB(3.9,163,2,2137,0)="""RTN"",""XUSNPIUT"",26,0)"
^XMB(3.9,163,2,2138,0)=" ;"
^XMB(3.9,163,2,2139,0)="""RTN"",""XUSNPIUT"",27,0)"
^XMB(3.9,163,2,2140,0)=" K XUFDA S XUFDA(200,IENS,41.98)=$S(OLDVALUE'="""":OLDVALUE,1:""@"")"
^XMB(3.9,163,2,2141,0)="""RTN"",""XUSNPIUT"",28,0)"
^XMB(3.9,163,2,2142,0)=" Q"
^XMB(3.9,163,2,2143,0)="""RTN"",""XUSNPIUT"",29,0)"
^XMB(3.9,163,2,2144,0)=" ;"
^XMB(3.9,163,2,2145,0)="""RTN"",""XUSNPIUT"",30,0)"
^XMB(3.9,163,2,2146,0)="HASNPI ;"
^XMB(3.9,163,2,2147,0)="""RTN"",""XUSNPIUT"",31,0)"
^XMB(3.9,163,2,2148,0)=" N OLDVALUE,NEWVALUE,XUFDA,IENS"
^XMB(3.9,163,2,2149,0)="""RTN"",""XUSNPIUT"",32,0)"
^XMB(3.9,163,2,2150,0)=" S IENS=DUZ_"","""
^XMB(3.9,163,2,2151,0)="""RTN"",""XUSNPIUT"",33,0)"
^XMB(3.9,163,2,2152,0)=" S OLDVALUE=$$GET1^DIQ(200,IENS,41.98)"
^XMB(3.9,163,2,2153,0)="""RTN"",""XUSNPIUT"",34,0)"
^XMB(3.9,163,2,2154,0)=" K XUFDA S XUFDA(200,IENS,41.98)=""@"" D FILE^DIE("""",""XUFDA"")"
^XMB(3.9,163,2,2155,0)="""RTN"",""XUSNPIUT"",35,0)"
^XMB(3.9,163,2,2156,0)=" D CHKEQ^XTMUNIT($$HASNPI^XUSNPIED(DUZ),0,""INCORRECT ON NO DATA"")"
^XMB(3.9,163,2,2157,0)="""RTN"",""XUSNPIUT"",36,0)"
^XMB(3.9,163,2,2158,0)=" ;"
^XMB(3.9,163,2,2159,0)="""RTN"",""XUSNPIUT"",37,0)"
^XMB(3.9,163,2,2160,0)=" K XUFDA S XUFDA(200,IENS,41.98)=""N"" D FILE^DIE("""",""XUFDA"")"
^XMB(3.9,163,2,2161,0)="""RTN"",""XUSNPIUT"",38,0)"
^XMB(3.9,163,2,2162,0)=" D CHKEQ^XTMUNIT($$HASNPI^XUSNPIED(DUZ),0,""INCORRECT ON NEEDS"")"
^XMB(3.9,163,2,2163,0)="""RTN"",""XUSNPIUT"",39,0)"
^XMB(3.9,163,2,2164,0)=" ;"
^XMB(3.9,163,2,2165,0)="""RTN"",""XUSNPIUT"",40,0)"
^XMB(3.9,163,2,2166,0)=" K XUFDA S XUFDA(200,IENS,41.98)=""E"" D FILE^DIE("""",""XUFDA"")"
^XMB(3.9,163,2,2167,0)="""RTN"",""XUSNPIUT"",41,0)"
^XMB(3.9,163,2,2168,0)=" D CHKEQ^XTMUNIT($$HASNPI^XUSNPIED(DUZ),0,""INCORRECT ON EXEMPT"")"
^XMB(3.9,163,2,2169,0)="""RTN"",""XUSNPIUT"",42,0)"
^XMB(3.9,163,2,2170,0)=" ;"
^XMB(3.9,163,2,2171,0)="""RTN"",""XUSNPIUT"",43,0)"
^XMB(3.9,163,2,2172,0)=" K XUFDA S XUFDA(200,IENS,41.98)=""D"" D FILE^DIE("""",""XUFDA"")"
^XMB(3.9,163,2,2173,0)="""RTN"",""XUSNPIUT"",44,0)"
^XMB(3.9,163,2,2174,0)=" D CHKEQ^XTMUNIT($$HASNPI^XUSNPIED(DUZ),1,""INCORRECT ON DONE"")"
^XMB(3.9,163,2,2175,0)="""RTN"",""XUSNPIUT"",45,0)"
^XMB(3.9,163,2,2176,0)=" ;"
^XMB(3.9,163,2,2177,0)="""RTN"",""XUSNPIUT"",46,0)"
^XMB(3.9,163,2,2178,0)=" K XUFDA S XUFDA(200,IENS,41.98)=$S(OLDVALUE'="""":$E(OLDVALUE),1:""@"")"
^XMB(3.9,163,2,2179,0)="""RTN"",""XUSNPIUT"",47,0)"
^XMB(3.9,163,2,2180,0)=" Q"
^XMB(3.9,163,2,2181,0)="""RTN"",""XUSNPIUT"",48,0)"
^XMB(3.9,163,2,2182,0)=" ;"
^XMB(3.9,163,2,2183,0)="""RTN"",""XUSNPIUT"",49,0)"
^XMB(3.9,163,2,2184,0)="GETNPI ;"
^XMB(3.9,163,2,2185,0)="""RTN"",""XUSNPIUT"",50,0)"
^XMB(3.9,163,2,2186,0)=" N I,VALUE"
^XMB(3.9,163,2,2187,0)="""RTN"",""XUSNPIUT"",51,0)"
^XMB(3.9,163,2,2188,0)=" F I=0:0 S I=$O(^VA(200,I)) Q:I'>0  I $G(^VA(200,I,""NPI""))'="""" Q"
^XMB(3.9,163,2,2189,0)="""RTN"",""XUSNPIUT"",52,0)"
^XMB(3.9,163,2,2190,0)=" I I'>0 D FAIL^XTMUNIT(""NO VALID DATA AVAILABLE"") Q"
^XMB(3.9,163,2,2191,0)="""RTN"",""XUSNPIUT"",53,0)"
^XMB(3.9,163,2,2192,0)=" S VALUE=$$GET1^DIQ(200,I_"","",41.99)"
^XMB(3.9,163,2,2193,0)="""RTN"",""XUSNPIUT"",54,0)"
^XMB(3.9,163,2,2194,0)=" D CHKEQ^XTMUNIT($$GETNPI^XUSNPIED(I),VALUE,""INCORRECT VALUE RETURNED"")"
^XMB(3.9,163,2,2195,0)="""RTN"",""XUSNPIUT"",55,0)"
^XMB(3.9,163,2,2196,0)=" Q"
^XMB(3.9,163,2,2197,0)="""RTN"",""XUSNPIUT"",56,0)"
^XMB(3.9,163,2,2198,0)=" ;"
^XMB(3.9,163,2,2199,0)="""RTN"",""XUSNPIUT"",57,0)"
^XMB(3.9,163,2,2200,0)="NPISTATS ;"
^XMB(3.9,163,2,2201,0)="""RTN"",""XUSNPIUT"",58,0)"
^XMB(3.9,163,2,2202,0)=" N OLDVALUE,NEWVALUE,XUFDA,IENS"
^XMB(3.9,163,2,2203,0)="""RTN"",""XUSNPIUT"",59,0)"
^XMB(3.9,163,2,2204,0)=" S IENS=DUZ_"","""
^XMB(3.9,163,2,2205,0)="""RTN"",""XUSNPIUT"",60,0)"
^XMB(3.9,163,2,2206,0)=" S OLDVALUE=$$GET1^DIQ(200,IENS,41.98)"
^XMB(3.9,163,2,2207,0)="""RTN"",""XUSNPIUT"",61,0)"
^XMB(3.9,163,2,2208,0)=" K XUFDA S XUFDA(200,IENS,41.98)=""@"" D FILE^DIE("""",""XUFDA"")"
^XMB(3.9,163,2,2209,0)="""RTN"",""XUSNPIUT"",62,0)"
^XMB(3.9,163,2,2210,0)=" D CHKEQ^XTMUNIT($$NPISTATS^XUSNPIED(DUZ),"""",""INCORRECT ON NO DATA"")"
^XMB(3.9,163,2,2211,0)="""RTN"",""XUSNPIUT"",63,0)"
^XMB(3.9,163,2,2212,0)=" ;"
^XMB(3.9,163,2,2213,0)="""RTN"",""XUSNPIUT"",64,0)"
^XMB(3.9,163,2,2214,0)=" K XUFDA S XUFDA(200,IENS,41.98)=""N"" D FILE^DIE("""",""XUFDA"")"
^XMB(3.9,163,2,2215,0)="""RTN"",""XUSNPIUT"",65,0)"
^XMB(3.9,163,2,2216,0)=" D CHKEQ^XTMUNIT($$NPISTATS^XUSNPIED(DUZ),""N"",""INCORRECT ON NEEDS"")"
^XMB(3.9,163,2,2217,0)="""RTN"",""XUSNPIUT"",66,0)"
^XMB(3.9,163,2,2218,0)=" ;"
^XMB(3.9,163,2,2219,0)="""RTN"",""XUSNPIUT"",67,0)"
^XMB(3.9,163,2,2220,0)=" K XUFDA S XUFDA(200,IENS,41.98)=""E"" D FILE^DIE("""",""XUFDA"")"
^XMB(3.9,163,2,2221,0)="""RTN"",""XUSNPIUT"",68,0)"
^XMB(3.9,163,2,2222,0)=" D CHKEQ^XTMUNIT($$NPISTATS^XUSNPIED(DUZ),""E"",""INCORRECT ON EXEMPT"")"
^XMB(3.9,163,2,2223,0)="""RTN"",""XUSNPIUT"",69,0)"
^XMB(3.9,163,2,2224,0)=" ;"
^XMB(3.9,163,2,2225,0)="""RTN"",""XUSNPIUT"",70,0)"
^XMB(3.9,163,2,2226,0)=" K XUFDA S XUFDA(200,IENS,41.98)=""D"" D FILE^DIE("""",""XUFDA"")"
^XMB(3.9,163,2,2227,0)="""RTN"",""XUSNPIUT"",71,0)"
^XMB(3.9,163,2,2228,0)=" D CHKEQ^XTMUNIT($$NPISTATS^XUSNPIED(DUZ),""D"",""INCORRECT ON DONE"")"
^XMB(3.9,163,2,2229,0)="""RTN"",""XUSNPIUT"",72,0)"
^XMB(3.9,163,2,2230,0)=" ;"
^XMB(3.9,163,2,2231,0)="""RTN"",""XUSNPIUT"",73,0)"
^XMB(3.9,163,2,2232,0)=" K XUFDA S XUFDA(200,IENS,41.98)=$S(OLDVALUE'="""":$E(OLDVALUE),1:""@"")"
^XMB(3.9,163,2,2233,0)="""RTN"",""XUSNPIUT"",74,0)"
^XMB(3.9,163,2,2234,0)=" Q"
^XMB(3.9,163,2,2235,0)="""RTN"",""XUSNPIUT"",75,0)"
^XMB(3.9,163,2,2236,0)=" ;"
^XMB(3.9,163,2,2237,0)="""RTN"",""XUSNPIUT"",76,0)"
^XMB(3.9,163,2,2238,0)="GETTAXON ;"
^XMB(3.9,163,2,2239,0)="""RTN"",""XUSNPIUT"",77,0)"
^XMB(3.9,163,2,2240,0)=" N XUSGLOB,DONE,IEN,TAXON,PVAL,CODE,DESCRIP,TAXDESCR"
^XMB(3.9,163,2,2241,0)="""RTN"",""XUSNPIUT"",78,0)"
^XMB(3.9,163,2,2242,0)=" S XUSGLOB=$$CHKGLOB^XUSNPIED()"
^XMB(3.9,163,2,2243,0)="""RTN"",""XUSNPIUT"",79,0)"
^XMB(3.9,163,2,2244,0)=" S DONE=0 F IEN=0:0 Q:DONE  S IEN=$O(^VA(200,IEN)) Q:IEN'>0  F TAXON=0:0 S TAXON=$O(^VA(200,IEN,""USC1"",TAXON)) Q:TAXON'>0  I $P(^(TAXON,0),U,3)'>0  S PVAL=$P(^(0),U),CODE=$$GET1^DIQ(8932.1,PVAL_"","",6) I CODE'="""",$D(@XUSGLOB@(CODE)) S DONE=1 Q"
^XMB(3.9,163,2,2245,0)="""RTN"",""XUSNPIUT"",80,0)"
^XMB(3.9,163,2,2246,0)=" I 'DONE D FAIL^XTMUNIT(""NO VALID TAXONOMY VALUES FOUND"") Q"
^XMB(3.9,163,2,2247,0)="""RTN"",""XUSNPIUT"",81,0)"
^XMB(3.9,163,2,2248,0)=" S TAXDESCR=$$GET1^DIQ(8932.1,PVAL_"","",1)"
^XMB(3.9,163,2,2249,0)="""RTN"",""XUSNPIUT"",82,0)"
^XMB(3.9,163,2,2250,0)=" S DESCRIP="""""
^XMB(3.9,163,2,2251,0)="""RTN"",""XUSNPIUT"",83,0)"
^XMB(3.9,163,2,2252,0)=" I CODE'="""" S TAXON=$$GETTAXON^XUSNPIED(IEN,.DESCRIP)"
^XMB(3.9,163,2,2253,0)="""RTN"",""XUSNPIUT"",84,0)"
^XMB(3.9,163,2,2254,0)=" D CHKEQ^XTMUNIT(TAXON,CODE,""INCORRECT CODE RETURNED"")"
^XMB(3.9,163,2,2255,0)="""RTN"",""XUSNPIUT"",85,0)"
^XMB(3.9,163,2,2256,0)=" D CHKEQ^XTMUNIT(DESCRIP,TAXDESCR,""INCORRECT DESCRIPTION RETURNED"")"
^XMB(3.9,163,2,2257,0)="""RTN"",""XUSNPIUT"",86,0)"
^XMB(3.9,163,2,2258,0)=" Q"
^XMB(3.9,163,2,2259,0)="""RTN"",""XUSNPIUT"",87,0)"
^XMB(3.9,163,2,2260,0)=" ;"
^XMB(3.9,163,2,2261,0)="""RTN"",""XUSNPIUT"",88,0)"
^XMB(3.9,163,2,2262,0)="XTROU ;"
^XMB(3.9,163,2,2263,0)="""RTN"",""XUSNPIUT"",89,0)"
^XMB(3.9,163,2,2264,0)=" ;"
^XMB(3.9,163,2,2265,0)="""RTN"",""XUSNPIUT"",90,0)"
^XMB(3.9,163,2,2266,0)="XTENT ;"
^XMB(3.9,163,2,2267,0)="""RTN"",""XUSNPIUT"",91,0)"
^XMB(3.9,163,2,2268,0)=" ;;ALIGNRGT;LEFT ALIGN TEXT IN A SPECIFIED WIDTH"
^XMB(3.9,163,2,2269,0)="""RTN"",""XUSNPIUT"",92,0)"
^XMB(3.9,163,2,2270,0)=" ;;NEEDSNPI;CHECK ON NEEDS NPI STATUS"
^XMB(3.9,163,2,2271,0)="""RTN"",""XUSNPIUT"",93,0)"
^XMB(3.9,163,2,2272,0)=" ;;HASNPI;CHECK ON WHETHER USER HAS NPI"
^XMB(3.9,163,2,2273,0)="""RTN"",""XUSNPIUT"",94,0)"
^XMB(3.9,163,2,2274,0)=" ;;GETNPI;GET NPI VALUE FOR USER"
^XMB(3.9,163,2,2275,0)="""RTN"",""XUSNPIUT"",95,0)"
^XMB(3.9,163,2,2276,0)=" ;;NPISTATS;GET NPI STATUS"
^XMB(3.9,163,2,2277,0)="""RTN"",""XUSNPIUT"",96,0)"
^XMB(3.9,163,2,2278,0)=" ;;GETTAXON;GET TAXONOMY DATA"
^XMB(3.9,163,2,2279,0)="""UP"",4,4.042,-1)"
^XMB(3.9,163,2,2280,0)="4^NPISTATUS"
^XMB(3.9,163,2,2281,0)="""UP"",4,4.042,0)"
^XMB(3.9,163,2,2282,0)="4.042"
^XMB(3.9,163,2,2283,0)="""UP"",200,200.042,-1)"
^XMB(3.9,163,2,2284,0)="200^NPISTATUS"
^XMB(3.9,163,2,2285,0)="""UP"",200,200.042,0)"
^XMB(3.9,163,2,2286,0)="200.042"
^XMB(3.9,163,2,2287,0)="""VER"")"
^XMB(3.9,163,2,2288,0)="8.0^22.0"
^XMB(3.9,163,2,2289,0)="""^DD"",4,4,41.99,0)"
^XMB(3.9,163,2,2290,0)="NPI^RFX^^NPI;1^K:$L(X)>10!($L(X)<10)!'($$CHKDGT^XUSNPIE1(X)) X"
^XMB(3.9,163,2,2291,0)="""^DD"",4,4,41.99,1,0)"
^XMB(3.9,163,2,2292,0)="^.1"
^XMB(3.9,163,2,2293,0)="""^DD"",4,4,41.99,1,1,0)"
^XMB(3.9,163,2,2294,0)="4^ANPI"
^XMB(3.9,163,2,2295,0)="""^DD"",4,4,41.99,1,1,1)"
^XMB(3.9,163,2,2296,0)="S ^DIC(4,""ANPI"",$E(X,1,30),DA)="""""
^XMB(3.9,163,2,2297,0)="""^DD"",4,4,41.99,1,1,2)"
^XMB(3.9,163,2,2298,0)="K ^DIC(4,""ANPI"",$E(X,1,30),DA)"
^XMB(3.9,163,2,2299,0)="""^DD"",4,4,41.99,1,1,""%D"",0)"
^XMB(3.9,163,2,2300,0)="^^1^1^3060301^"
^XMB(3.9,163,2,2301,0)="""^DD"",4,4,41.99,1,1,""%D"",1,0)"
^XMB(3.9,163,2,2302,0)="File entries by NPI."
^XMB(3.9,163,2,2303,0)="""^DD"",4,4,41.99,1,1,""DT"")"
^XMB(3.9,163,2,2304,0)="3060301"
^XMB(3.9,163,2,2305,0)="""^DD"",4,4,41.99,3)"
^XMB(3.9,163,2,2306,0)="Answer must be 10 characters in length."
^XMB(3.9,163,2,2307,0)="""^DD"",4,4,41.99,21,0)"
^XMB(3.9,163,2,2308,0)="^^2^2^3060509^"
^XMB(3.9,163,2,2309,0)="""^DD"",4,4,41.99,21,1,0)"
^XMB(3.9,163,2,2310,0)="Current Unique National Provider ID. A unique meaningless integer assigned"
^XMB(3.9,163,2,2311,0)="""^DD"",4,4,41.99,21,2,0)"
^XMB(3.9,163,2,2312,0)="to providers."
^XMB(3.9,163,2,2313,0)="""^DD"",4,4,41.99,""DEL"",11,0)"
^XMB(3.9,163,2,2314,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be inactivated via the Master File Server(MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^XMB(3.9,163,2,2315,0)="""^DD"",4,4,41.99,""DT"")"
^XMB(3.9,163,2,2316,0)="3060301"
^XMB(3.9,163,2,2317,0)="""^DD"",4,4,42,0)"
^XMB(3.9,163,2,2318,0)="EFFECTIVE DATE/TIME^4.042D^^NPISTATUS;0"
^XMB(3.9,163,2,2319,0)="""^DD"",4,4.042,0)"
^XMB(3.9,163,2,2320,0)="EFFECTIVE DATE/TIME SUB-FIELD^^.03^3"
^XMB(3.9,163,2,2321,0)="""^DD"",4,4.042,0,""DT"")"
^XMB(3.9,163,2,2322,0)="3060301"
^XMB(3.9,163,2,2323,0)="""^DD"",4,4.042,0,""IX"",""AC"",4.042,.03)"
^XMB(3.9,163,2,2324,0)=""
^XMB(3.9,163,2,2325,0)="""^DD"",4,4.042,0,""IX"",""B"",4.042,.01)"
^XMB(3.9,163,2,2326,0)=""
^XMB(3.9,163,2,2327,0)="""^DD"",4,4.042,0,""IX"",""C"",4.042,.03)"
^XMB(3.9,163,2,2328,0)=""
^XMB(3.9,163,2,2329,0)="""^DD"",4,4.042,0,""NM"",""EFFECTIVE DATE/TIME"")"
^XMB(3.9,163,2,2330,0)=""
^XMB(3.9,163,2,2331,0)="""^DD"",4,4.042,0,""UP"")"
^XMB(3.9,163,2,2332,0)="4"
^XMB(3.9,163,2,2333,0)="""^DD"",4,4.042,.01,0)"
^XMB(3.9,163,2,2334,0)="EFFECTIVE DATE/TIME^DX^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,163,2,2335,0)="""^DD"",4,4.042,.01,1,0)"
^XMB(3.9,163,2,2336,0)="^.1"
^XMB(3.9,163,2,2337,0)="""^DD"",4,4.042,.01,1,1,0)"
^XMB(3.9,163,2,2338,0)="4.042^B"
^XMB(3.9,163,2,2339,0)="""^DD"",4,4.042,.01,1,1,1)"
^XMB(3.9,163,2,2340,0)="S ^DIC(4,DA(1),""NPISTATUS"",""B"",$E(X,1,30),DA)="""""
^XMB(3.9,163,2,2341,0)="""^DD"",4,4.042,.01,1,1,2)"
^XMB(3.9,163,2,2342,0)="K ^DIC(4,DA(1),""NPISTATUS"",""B"",$E(X,1,30),DA)"
^XMB(3.9,163,2,2343,0)="""^DD"",4,4.042,.01,3)"
^XMB(3.9,163,2,2344,0)="Enter the date/time of the last change to this NPI."
^XMB(3.9,163,2,2345,0)="""^DD"",4,4.042,.01,21,0)"
^XMB(3.9,163,2,2346,0)="^.001^1^1^3060508^^"
^XMB(3.9,163,2,2347,0)="""^DD"",4,4.042,.01,21,1,0)"
^XMB(3.9,163,2,2348,0)="This field contains the date and time of the last change to the NPI field."
^XMB(3.9,163,2,2349,0)="""^DD"",4,4.042,.01,""DT"")"
^XMB(3.9,163,2,2350,0)="3060301"
^XMB(3.9,163,2,2351,0)="""^DD"",4,4.042,.02,0)"
^XMB(3.9,163,2,2352,0)="STATUS^RSI^1:ACTIVE;0:INACTIVE;^0;2^Q"
^XMB(3.9,163,2,2353,0)="""^DD"",4,4.042,.02,21,0)"
^XMB(3.9,163,2,2354,0)="^.001^4^4^3060314^^"
^XMB(3.9,163,2,2355,0)="""^DD"",4,4.042,.02,21,1,0)"
^XMB(3.9,163,2,2356,0)="The Status of an NPI is either 'ACTIVE' or 'INACTIVE'. I 'ACTIVE' then "
^XMB(3.9,163,2,2357,0)="""^DD"",4,4.042,.02,21,2,0)"
^XMB(3.9,163,2,2358,0)="the NPI will be accessible by end-users to document a particular provider."
^XMB(3.9,163,2,2359,0)="""^DD"",4,4.042,.02,21,3,0)"
^XMB(3.9,163,2,2360,0)="If 'INACTIVE', then the NPI will only be accessible by the application to"
^XMB(3.9,163,2,2361,0)="""^DD"",4,4.042,.02,21,4,0)"
^XMB(3.9,163,2,2362,0)="display legacy data."
^XMB(3.9,163,2,2363,0)="""^DD"",4,4.042,.02,""DT"")"
^XMB(3.9,163,2,2364,0)="3060301"
^XMB(3.9,163,2,2365,0)="""^DD"",4,4.042,.03,0)"
^XMB(3.9,163,2,2366,0)="NPI^RFX^^0;3^K:$L(X)>10!($L(X)<10)!'($$CHKDGT^XUSNPIE1(X)) X"
^XMB(3.9,163,2,2367,0)="""^DD"",4,4.042,.03,1,0)"
^XMB(3.9,163,2,2368,0)="^.1"
^XMB(3.9,163,2,2369,0)="""^DD"",4,4.042,.03,1,1,0)"
^XMB(3.9,163,2,2370,0)="4.042^C"
^XMB(3.9,163,2,2371,0)="""^DD"",4,4.042,.03,1,1,1)"
^XMB(3.9,163,2,2372,0)="S ^DIC(4,DA(1),""NPISTATUS"",""C"",$E(X,1,30),DA)="""""
^XMB(3.9,163,2,2373,0)="""^DD"",4,4.042,.03,1,1,2)"
^XMB(3.9,163,2,2374,0)="K ^DIC(4,DA(1),""NPISTATUS"",""C"",$E(X,1,30),DA)"
^XMB(3.9,163,2,2375,0)="""^DD"",4,4.042,.03,1,1,""DT"")"
^XMB(3.9,163,2,2376,0)="3060321"
^XMB(3.9,163,2,2377,0)="""^DD"",4,4.042,.03,1,2,0)"
^XMB(3.9,163,2,2378,0)="4.042^AC^MUMPS"
^XMB(3.9,163,2,2379,0)="""^DD"",4,4.042,.03,1,2,1)"
^XMB(3.9,163,2,2380,0)="D SET1^XUSNPIE1(DA(1),X)"
^XMB(3.9,163,2,2381,0)="""^DD"",4,4.042,.03,1,2,2)"
^XMB(3.9,163,2,2382,0)="Q"
^XMB(3.9,163,2,2383,0)="""^DD"",4,4.042,.03,1,2,3)"
^XMB(3.9,163,2,2384,0)="Special Trigger"
^XMB(3.9,163,2,2385,0)="""^DD"",4,4.042,.03,1,2,""%D"",0)"
^XMB(3.9,163,2,2386,0)="^.101^1^1^3060512^^^^"
^XMB(3.9,163,2,2387,0)="""^DD"",4,4.042,.03,1,2,""%D"",1,0)"
^XMB(3.9,163,2,2388,0)="his Special x-ref sets the NPI field (#41.99)."
^XMB(3.9,163,2,2389,0)="""^DD"",4,4.042,.03,1,2,""DT"")"
^XMB(3.9,163,2,2390,0)="3060512"
^XMB(3.9,163,2,2391,0)="""^DD"",4,4.042,.03,3)"
^XMB(3.9,163,2,2392,0)="Answer must be 10 characters in length."
^XMB(3.9,163,2,2393,0)="""^DD"",4,4.042,.03,21,0)"
^XMB(3.9,163,2,2394,0)="^^2^2^3060301^"
^XMB(3.9,163,2,2395,0)="""^DD"",4,4.042,.03,21,1,0)"
^XMB(3.9,163,2,2396,0)="Unique National Provider ID. A unique meaningless integer assigned to"
^XMB(3.9,163,2,2397,0)="""^DD"",4,4.042,.03,21,2,0)"
^XMB(3.9,163,2,2398,0)="providers. "
^XMB(3.9,163,2,2399,0)="""^DD"",4,4.042,.03,""DT"")"
^XMB(3.9,163,2,2400,0)="3060512"
^XMB(3.9,163,2,2401,0)="""^DD"",200,200,41.98,0)"
^XMB(3.9,163,2,2402,0)="NPI ENTRY STATUS^S^N:NEEDS ENTRY;E:EXEMPT;D:DONE;^NPI;2^Q"
^XMB(3.9,163,2,2403,0)="""^DD"",200,200,41.98,3)"
^XMB(3.9,163,2,2404,0)="This field is filled in automatically if needed."
^XMB(3.9,163,2,2405,0)="""^DD"",200,200,41.98,21,0)"
^XMB(3.9,163,2,2406,0)="^^10^10^3060508^"
^XMB(3.9,163,2,2407,0)="""^DD"",200,200,41.98,21,1,0)"
^XMB(3.9,163,2,2408,0)="This field is used in tracking the entry status of NPI d ata for those"
^XMB(3.9,163,2,2409,0)="""^DD"",200,200,41.98,21,2,0)"
^XMB(3.9,163,2,2410,0)="providers who require an NPI.  The providers needing this value are"
^XMB(3.9,163,2,2411,0)="""^DD"",200,200,41.98,21,3,0)"
^XMB(3.9,163,2,2412,0)="identified based on data entered in the PERSON CLASS subfile which"
^XMB(3.9,163,2,2413,0)="""^DD"",200,200,41.98,21,4,0)"
^XMB(3.9,163,2,2414,0)="indicates providers that may be related to billing activities."
^XMB(3.9,163,2,2415,0)="""^DD"",200,200,41.98,21,5,0)"
^XMB(3.9,163,2,2416,0)=" "
^XMB(3.9,163,2,2417,0)="""^DD"",200,200,41.98,21,6,0)"
^XMB(3.9,163,2,2418,0)="The value is initially set to N or NEEDS ENTRY.  It can be changed to E or"
^XMB(3.9,163,2,2419,0)="""^DD"",200,200,41.98,21,7,0)"
^XMB(3.9,163,2,2420,0)="EXEMPT for individuals who have been identified, but who due to"
^XMB(3.9,163,2,2421,0)="""^DD"",200,200,41.98,21,8,0)"
^XMB(3.9,163,2,2422,0)="administrative activities, etc., will not be involved in activities"
^XMB(3.9,163,2,2423,0)="""^DD"",200,200,41.98,21,9,0)"
^XMB(3.9,163,2,2424,0)="requiring billing.  When the NPI value is entered, the value is changed to"
^XMB(3.9,163,2,2425,0)="""^DD"",200,200,41.98,21,10,0)"
^XMB(3.9,163,2,2426,0)="D or DONE."
^XMB(3.9,163,2,2427,0)="""^DD"",200,200,41.98,""DT"")"
^XMB(3.9,163,2,2428,0)="3060508"
^XMB(3.9,163,2,2429,0)="""^DD"",200,200,41.99,0)"
^XMB(3.9,163,2,2430,0)="NPI^RFX^^NPI;1^K:$L(X)>10!($L(X)<10)!'($$CHKDGT^XUSNPIE1(X)) X"
^XMB(3.9,163,2,2431,0)="""^DD"",200,200,41.99,1,0)"
^XMB(3.9,163,2,2432,0)="^.1^^-1"
^XMB(3.9,163,2,2433,0)="""^DD"",200,200,41.99,1,1,0)"
^XMB(3.9,163,2,2434,0)="200^ANPI"
^XMB(3.9,163,2,2435,0)="""^DD"",200,200,41.99,1,1,1)"
^XMB(3.9,163,2,2436,0)="S ^VA(200,""ANPI"",$E(X,1,30),DA)="""""
^XMB(3.9,163,2,2437,0)="""^DD"",200,200,41.99,1,1,2)"
^XMB(3.9,163,2,2438,0)="K ^VA(200,""ANPI"",$E(X,1,30),DA)"
^XMB(3.9,163,2,2439,0)="""^DD"",200,200,41.99,1,1,""%D"",0)"
^XMB(3.9,163,2,2440,0)="^^1^1^3060301^"
^XMB(3.9,163,2,2441,0)="""^DD"",200,200,41.99,1,1,""%D"",1,0)"
^XMB(3.9,163,2,2442,0)="File entries by NPI."
^XMB(3.9,163,2,2443,0)="""^DD"",200,200,41.99,1,1,""DT"")"
^XMB(3.9,163,2,2444,0)="3060301"
^XMB(3.9,163,2,2445,0)="""^DD"",200,200,41.99,3)"
^XMB(3.9,163,2,2446,0)="Answer must be 10 characters in length."
^XMB(3.9,163,2,2447,0)="""^DD"",200,200,41.99,21,0)"
^XMB(3.9,163,2,2448,0)="^^2^2^3060509^"
^XMB(3.9,163,2,2449,0)="""^DD"",200,200,41.99,21,1,0)"
^XMB(3.9,163,2,2450,0)="Current Unique National Provider ID. A unique meaningless integer assigned"
^XMB(3.9,163,2,2451,0)="""^DD"",200,200,41.99,21,2,0)"
^XMB(3.9,163,2,2452,0)="to providers."
^XMB(3.9,163,2,2453,0)="""^DD"",200,200,41.99,""DT"")"
^XMB(3.9,163,2,2454,0)="3060512"
^XMB(3.9,163,2,2455,0)="""^DD"",200,200,42,0)"
^XMB(3.9,163,2,2456,0)="EFFECTIVE DATE/TIME^200.042D^^NPISTATUS;0"
^XMB(3.9,163,2,2457,0)="""^DD"",200,200,42,""DT"")"
^XMB(3.9,163,2,2458,0)="3060425"
^XMB(3.9,163,2,2459,0)="""^DD"",200,200.042,0)"
^XMB(3.9,163,2,2460,0)="EFFECTIVE DATE/TIME SUB-FIELD^^.03^3"
^XMB(3.9,163,2,2461,0)="""^DD"",200,200.042,0,""DT"")"
^XMB(3.9,163,2,2462,0)="3060301"
^XMB(3.9,163,2,2463,0)="""^DD"",200,200.042,0,""IX"",""AC"",200.042,.03)"
^XMB(3.9,163,2,2464,0)=""
^XMB(3.9,163,2,2465,0)="""^DD"",200,200.042,0,""IX"",""B"",200.042,.01)"
^XMB(3.9,163,2,2466,0)=""
^XMB(3.9,163,2,2467,0)="""^DD"",200,200.042,0,""IX"",""C"",200.042,.03)"
^XMB(3.9,163,2,2468,0)=""
^XMB(3.9,163,2,2469,0)="""^DD"",200,200.042,0,""NM"",""EFFECTIVE DATE/TIME"")"
^XMB(3.9,163,2,2470,0)=""
^XMB(3.9,163,2,2471,0)="""^DD"",200,200.042,0,""UP"")"
^XMB(3.9,163,2,2472,0)="200"
^XMB(3.9,163,2,2473,0)="""^DD"",200,200.042,.01,0)"
^XMB(3.9,163,2,2474,0)="EFFECTIVE DATE/TIME^RDX^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,163,2,2475,0)="""^DD"",200,200.042,.01,1,0)"
^XMB(3.9,163,2,2476,0)="^.1"
^XMB(3.9,163,2,2477,0)="""^DD"",200,200.042,.01,1,1,0)"
^XMB(3.9,163,2,2478,0)="200.042^B"
^XMB(3.9,163,2,2479,0)="""^DD"",200,200.042,.01,1,1,1)"
^XMB(3.9,163,2,2480,0)="S ^VA(200,DA(1),""NPISTATUS"",""B"",$E(X,1,30),DA)="""""
^XMB(3.9,163,2,2481,0)="""^DD"",200,200.042,.01,1,1,2)"
^XMB(3.9,163,2,2482,0)="K ^VA(200,DA(1),""NPISTATUS"",""B"",$E(X,1,30),DA)"
^XMB(3.9,163,2,2483,0)="""^DD"",200,200.042,.01,3)"
^XMB(3.9,163,2,2484,0)="Enter the date/time of the last change to this NPI."
^XMB(3.9,163,2,2485,0)="""^DD"",200,200.042,.01,21,0)"
^XMB(3.9,163,2,2486,0)="^^1^1^3060425^"
^XMB(3.9,163,2,2487,0)="""^DD"",200,200.042,.01,21,1,0)"
^XMB(3.9,163,2,2488,0)="This field contains the date and time of the last change to the NPI field."
^XMB(3.9,163,2,2489,0)="""^DD"",200,200.042,.01,""DT"")"
^XMB(3.9,163,2,2490,0)="3060425"
^XMB(3.9,163,2,2491,0)="""^DD"",200,200.042,.02,0)"
^XMB(3.9,163,2,2492,0)="STATUS^RSI^1:ACTIVE;0:INACTIVE;^0;2^Q"
^XMB(3.9,163,2,2493,0)="""^DD"",200,200.042,.02,21,0)"
^XMB(3.9,163,2,2494,0)="^.001^4^4^3060405^^^"
^XMB(3.9,163,2,2495,0)="""^DD"",200,200.042,.02,21,1,0)"
^XMB(3.9,163,2,2496,0)="The Status of an NPI is either 'ACTIVE' or 'INACTIVE'. I 'ACTIVE' then "
^XMB(3.9,163,2,2497,0)="""^DD"",200,200.042,.02,21,2,0)"
^XMB(3.9,163,2,2498,0)="the NPI will be accessible by end-users to document a particular "
^XMB(3.9,163,2,2499,0)="""^DD"",200,200.042,.02,21,3,0)"
^XMB(3.9,163,2,2500,0)="provider. If 'INACTIVE', then the NPI will only be accessible by the "
^XMB(3.9,163,2,2501,0)="""^DD"",200,200.042,.02,21,4,0)"
^XMB(3.9,163,2,2502,0)="application to display legacy data."
^XMB(3.9,163,2,2503,0)="""^DD"",200,200.042,.02,""DT"")"
^XMB(3.9,163,2,2504,0)="3060301"
^XMB(3.9,163,2,2505,0)="""^DD"",200,200.042,.03,0)"
^XMB(3.9,163,2,2506,0)="NPI^RFX^^0;3^K:$L(X)>10!($L(X)<10)!'($$CHKDGT^XUSNPIE1(X)) X"
^XMB(3.9,163,2,2507,0)="""^DD"",200,200.042,.03,1,0)"
^XMB(3.9,163,2,2508,0)="^.1"
^XMB(3.9,163,2,2509,0)="""^DD"",200,200.042,.03,1,1,0)"
^XMB(3.9,163,2,2510,0)="200.042^C"
^XMB(3.9,163,2,2511,0)="""^DD"",200,200.042,.03,1,1,1)"
^XMB(3.9,163,2,2512,0)="S ^VA(200,DA(1),""NPISTATUS"",""C"",$E(X,1,30),DA)="""""
^XMB(3.9,163,2,2513,0)="""^DD"",200,200.042,.03,1,1,2)"
^XMB(3.9,163,2,2514,0)="K ^VA(200,DA(1),""NPISTATUS"",""C"",$E(X,1,30),DA)"
^XMB(3.9,163,2,2515,0)="""^DD"",200,200.042,.03,1,1,""DT"")"
^XMB(3.9,163,2,2516,0)="3060301"
^XMB(3.9,163,2,2517,0)="""^DD"",200,200.042,.03,1,2,0)"
^XMB(3.9,163,2,2518,0)="200.042^AC^MUMPS"
^XMB(3.9,163,2,2519,0)="""^DD"",200,200.042,.03,1,2,1)"
^XMB(3.9,163,2,2520,0)="D SET^XUSNPIE1(DA(1),X)"
^XMB(3.9,163,2,2521,0)="""^DD"",200,200.042,.03,1,2,2)"
^XMB(3.9,163,2,2522,0)="Q"
^XMB(3.9,163,2,2523,0)="""^DD"",200,200.042,.03,1,2,3)"
^XMB(3.9,163,2,2524,0)="Special Trigger"
^XMB(3.9,163,2,2525,0)="""^DD"",200,200.042,.03,1,2,""%D"",0)"
^XMB(3.9,163,2,2526,0)="^.101^1^1^3060511^^"
^XMB(3.9,163,2,2527,0)="""^DD"",200,200.042,.03,1,2,""%D"",1,0)"
^XMB(3.9,163,2,2528,0)="This Special x-ref sets the NPI field (#41.99)."
^XMB(3.9,163,2,2529,0)="""^DD"",200,200.042,.03,1,2,""DT"")"
^XMB(3.9,163,2,2530,0)="3060511"
^XMB(3.9,163,2,2531,0)="""^DD"",200,200.042,.03,3)"
^XMB(3.9,163,2,2532,0)="Answer must be 10 characters in length."
^XMB(3.9,163,2,2533,0)="""^DD"",200,200.042,.03,21,0)"
^XMB(3.9,163,2,2534,0)="^^2^2^3060301^"
^XMB(3.9,163,2,2535,0)="""^DD"",200,200.042,.03,21,1,0)"
^XMB(3.9,163,2,2536,0)="Unique National Provider ID. A unique meaningless integer assigned to "
^XMB(3.9,163,2,2537,0)="""^DD"",200,200.042,.03,21,2,0)"
^XMB(3.9,163,2,2538,0)="providers."
^XMB(3.9,163,2,2539,0)="""^DD"",200,200.042,.03,""DT"")"
^XMB(3.9,163,2,2540,0)="3060511"
^XMB(3.9,163,2,2541,0)="""BLD"",941,6)"
^XMB(3.9,163,2,2542,0)="^343"
^XMB(3.9,163,2,2543,0)="$END KID XU*8.0*420"
^XMB(3.9,163,6,0)="^3.911A^2^2"
^XMB(3.9,163,6,1,0)="POSTMASTER"
^XMB(3.9,163,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,163,6,"B","POSTMASTER",1)=""
^XMB(3.9,163,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,164,0)="XU-8_SEQ-346_PAT-404.KID^.5^3061008.015743^^^^K"
^XMB(3.9,164,.6)="3061008"
^XMB(3.9,164,1,0)="^3.91A^2^2"
^XMB(3.9,164,1,1,0)=".5^0^3061008.015743^^^^^^^3061008.015743"
^XMB(3.9,164,1,2,0)="1^0^3061008.022924^^^^^^^3061008.022924"
^XMB(3.9,164,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,164,1,"C",.5,1)=""
^XMB(3.9,164,1,"C",1,2)=""
^XMB(3.9,164,2,0)="^^1017^1017^3061008"
^XMB(3.9,164,2,1,0)="$TXT Released XU*8*404 SEQ #346"
^XMB(3.9,164,2,2,0)="Extracted from mail message"
^XMB(3.9,164,2,3,0)="$END TXT"
^XMB(3.9,164,2,4,0)="$KID XU*8.0*404"
^XMB(3.9,164,2,5,0)="**INSTALL NAME**"
^XMB(3.9,164,2,6,0)="XU*8.0*404"
^XMB(3.9,164,2,7,0)="""BLD"",940,0)"
^XMB(3.9,164,2,8,0)="XU*8.0*404^KERNEL^0^3060816^y"
^XMB(3.9,164,2,9,0)="""BLD"",940,1,0)"
^XMB(3.9,164,2,10,0)="^^5^5^3060814^"
^XMB(3.9,164,2,11,0)="""BLD"",940,1,1,0)"
^XMB(3.9,164,2,12,0)="This patch is part of the Broker Security Enhancement (in conjunction "
^XMB(3.9,164,2,13,0)="""BLD"",940,1,2,0)"
^XMB(3.9,164,2,14,0)="with patch XWB*1.1*45)."
^XMB(3.9,164,2,15,0)="""BLD"",940,1,3,0)"
^XMB(3.9,164,2,16,0)="Please refer to the Description in the FORUM Patch Module for details."
^XMB(3.9,164,2,17,0)="""BLD"",940,1,4,0)"
^XMB(3.9,164,2,18,0)="Patch XU*8*404."
^XMB(3.9,164,2,19,0)="""BLD"",940,1,5,0)"
^XMB(3.9,164,2,20,0)=""
^XMB(3.9,164,2,21,0)="""BLD"",940,4,0)"
^XMB(3.9,164,2,22,0)="^9.64PA^^0"
^XMB(3.9,164,2,23,0)="""BLD"",940,6.3)"
^XMB(3.9,164,2,24,0)="7"
^XMB(3.9,164,2,25,0)="""BLD"",940,""KRN"",0)"
^XMB(3.9,164,2,26,0)="^9.67PA^8989.52^19"
^XMB(3.9,164,2,27,0)="""BLD"",940,""KRN"",.4,0)"
^XMB(3.9,164,2,28,0)=".4"
^XMB(3.9,164,2,29,0)="""BLD"",940,""KRN"",.401,0)"
^XMB(3.9,164,2,30,0)=".401"
^XMB(3.9,164,2,31,0)="""BLD"",940,""KRN"",.402,0)"
^XMB(3.9,164,2,32,0)=".402"
^XMB(3.9,164,2,33,0)="""BLD"",940,""KRN"",.403,0)"
^XMB(3.9,164,2,34,0)=".403"
^XMB(3.9,164,2,35,0)="""BLD"",940,""KRN"",.5,0)"
^XMB(3.9,164,2,36,0)=".5"
^XMB(3.9,164,2,37,0)="""BLD"",940,""KRN"",.84,0)"
^XMB(3.9,164,2,38,0)=".84"
^XMB(3.9,164,2,39,0)="""BLD"",940,""KRN"",3.6,0)"
^XMB(3.9,164,2,40,0)="3.6"
^XMB(3.9,164,2,41,0)="""BLD"",940,""KRN"",3.8,0)"
^XMB(3.9,164,2,42,0)="3.8"
^XMB(3.9,164,2,43,0)="""BLD"",940,""KRN"",9.2,0)"
^XMB(3.9,164,2,44,0)="9.2"
^XMB(3.9,164,2,45,0)="""BLD"",940,""KRN"",9.8,0)"
^XMB(3.9,164,2,46,0)="9.8"
^XMB(3.9,164,2,47,0)="""BLD"",940,""KRN"",9.8,""NM"",0)"
^XMB(3.9,164,2,48,0)="^9.68A^4^3"
^XMB(3.9,164,2,49,0)="""BLD"",940,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,164,2,50,0)="XUSBSE1^^0^B24454678"
^XMB(3.9,164,2,51,0)="""BLD"",940,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,164,2,52,0)="XUSBSE2^^0^B9339084"
^XMB(3.9,164,2,53,0)="""BLD"",940,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,164,2,54,0)="XUSRB^^0^B30617453"
^XMB(3.9,164,2,55,0)="""BLD"",940,""KRN"",9.8,""NM"",""B"",""XUSBSE1"",1)"
^XMB(3.9,164,2,56,0)=""
^XMB(3.9,164,2,57,0)="""BLD"",940,""KRN"",9.8,""NM"",""B"",""XUSBSE2"",2)"
^XMB(3.9,164,2,58,0)=""
^XMB(3.9,164,2,59,0)="""BLD"",940,""KRN"",9.8,""NM"",""B"",""XUSRB"",4)"
^XMB(3.9,164,2,60,0)=""
^XMB(3.9,164,2,61,0)="""BLD"",940,""KRN"",19,0)"
^XMB(3.9,164,2,62,0)="19"
^XMB(3.9,164,2,63,0)="""BLD"",940,""KRN"",19.1,0)"
^XMB(3.9,164,2,64,0)="19.1"
^XMB(3.9,164,2,65,0)="""BLD"",940,""KRN"",101,0)"
^XMB(3.9,164,2,66,0)="101"
^XMB(3.9,164,2,67,0)="""BLD"",940,""KRN"",409.61,0)"
^XMB(3.9,164,2,68,0)="409.61"
^XMB(3.9,164,2,69,0)="""BLD"",940,""KRN"",771,0)"
^XMB(3.9,164,2,70,0)="771"
^XMB(3.9,164,2,71,0)="""BLD"",940,""KRN"",870,0)"
^XMB(3.9,164,2,72,0)="870"
^XMB(3.9,164,2,73,0)="""BLD"",940,""KRN"",8989.51,0)"
^XMB(3.9,164,2,74,0)="8989.51"
^XMB(3.9,164,2,75,0)="""BLD"",940,""KRN"",8989.52,0)"
^XMB(3.9,164,2,76,0)="8989.52"
^XMB(3.9,164,2,77,0)="""BLD"",940,""KRN"",8994,0)"
^XMB(3.9,164,2,78,0)="8994"
^XMB(3.9,164,2,79,0)="""BLD"",940,""KRN"",8994,""NM"",0)"
^XMB(3.9,164,2,80,0)="^9.68A^2^2"
^XMB(3.9,164,2,81,0)="""BLD"",940,""KRN"",8994,""NM"",1,0)"
^XMB(3.9,164,2,82,0)="XUS SET VISITOR^^0"
^XMB(3.9,164,2,83,0)="""BLD"",940,""KRN"",8994,""NM"",2,0)"
^XMB(3.9,164,2,84,0)="XUS GET VISITOR^^0"
^XMB(3.9,164,2,85,0)="""BLD"",940,""KRN"",8994,""NM"",""B"",""XUS GET VISITOR"",2)"
^XMB(3.9,164,2,86,0)=""
^XMB(3.9,164,2,87,0)="""BLD"",940,""KRN"",8994,""NM"",""B"",""XUS SET VISITOR"",1)"
^XMB(3.9,164,2,88,0)=""
^XMB(3.9,164,2,89,0)="""BLD"",940,""KRN"",""B"",.4,.4)"
^XMB(3.9,164,2,90,0)=""
^XMB(3.9,164,2,91,0)="""BLD"",940,""KRN"",""B"",.401,.401)"
^XMB(3.9,164,2,92,0)=""
^XMB(3.9,164,2,93,0)="""BLD"",940,""KRN"",""B"",.402,.402)"
^XMB(3.9,164,2,94,0)=""
^XMB(3.9,164,2,95,0)="""BLD"",940,""KRN"",""B"",.403,.403)"
^XMB(3.9,164,2,96,0)=""
^XMB(3.9,164,2,97,0)="""BLD"",940,""KRN"",""B"",.5,.5)"
^XMB(3.9,164,2,98,0)=""
^XMB(3.9,164,2,99,0)="""BLD"",940,""KRN"",""B"",.84,.84)"
^XMB(3.9,164,2,100,0)=""
^XMB(3.9,164,2,101,0)="""BLD"",940,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,164,2,102,0)=""
^XMB(3.9,164,2,103,0)="""BLD"",940,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,164,2,104,0)=""
^XMB(3.9,164,2,105,0)="""BLD"",940,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,164,2,106,0)=""
^XMB(3.9,164,2,107,0)="""BLD"",940,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,164,2,108,0)=""
^XMB(3.9,164,2,109,0)="""BLD"",940,""KRN"",""B"",19,19)"
^XMB(3.9,164,2,110,0)=""
^XMB(3.9,164,2,111,0)="""BLD"",940,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,164,2,112,0)=""
^XMB(3.9,164,2,113,0)="""BLD"",940,""KRN"",""B"",101,101)"
^XMB(3.9,164,2,114,0)=""
^XMB(3.9,164,2,115,0)="""BLD"",940,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,164,2,116,0)=""
^XMB(3.9,164,2,117,0)="""BLD"",940,""KRN"",""B"",771,771)"
^XMB(3.9,164,2,118,0)=""
^XMB(3.9,164,2,119,0)="""BLD"",940,""KRN"",""B"",870,870)"
^XMB(3.9,164,2,120,0)=""
^XMB(3.9,164,2,121,0)="""BLD"",940,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,164,2,122,0)=""
^XMB(3.9,164,2,123,0)="""BLD"",940,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,164,2,124,0)=""
^XMB(3.9,164,2,125,0)="""BLD"",940,""KRN"",""B"",8994,8994)"
^XMB(3.9,164,2,126,0)=""
^XMB(3.9,164,2,127,0)="""BLD"",940,""QUES"",0)"
^XMB(3.9,164,2,128,0)="^9.62^^"
^XMB(3.9,164,2,129,0)="""BLD"",940,""REQB"",0)"
^XMB(3.9,164,2,130,0)="^9.611^1^1"
^XMB(3.9,164,2,131,0)="""BLD"",940,""REQB"",1,0)"
^XMB(3.9,164,2,132,0)="XWB*1.1*45^2"
^XMB(3.9,164,2,133,0)="""BLD"",940,""REQB"",""B"",""XWB*1.1*45"",1)"
^XMB(3.9,164,2,134,0)=""
^XMB(3.9,164,2,135,0)="""KRN"",8994,167,-1)"
^XMB(3.9,164,2,136,0)="0^1"
^XMB(3.9,164,2,137,0)="""KRN"",8994,167,0)"
^XMB(3.9,164,2,138,0)="XUS SET VISITOR^SETVISIT^XUSBSE1^1"
^XMB(3.9,164,2,139,0)="""KRN"",8994,168,-1)"
^XMB(3.9,164,2,140,0)="0^2"
^XMB(3.9,164,2,141,0)="""KRN"",8994,168,0)"
^XMB(3.9,164,2,142,0)="XUS GET VISITOR^GETVISIT^XUSBSE1^1"
^XMB(3.9,164,2,143,0)="""MBREQ"")"
^XMB(3.9,164,2,144,0)="0"
^XMB(3.9,164,2,145,0)="""ORD"",16,8994)"
^XMB(3.9,164,2,146,0)="8994;16;1;;;;;;;RPCDEL^XPDIA1"
^XMB(3.9,164,2,147,0)="""ORD"",16,8994,0)"
^XMB(3.9,164,2,148,0)="REMOTE PROCEDURE"
^XMB(3.9,164,2,149,0)="""PKG"",3,-1)"
^XMB(3.9,164,2,150,0)="1^1"
^XMB(3.9,164,2,151,0)="""PKG"",3,0)"
^XMB(3.9,164,2,152,0)="KERNEL^XU^SIGN-ON, SECURITY, MENU DRIVER, DEVICES, TASKMAN^"
^XMB(3.9,164,2,153,0)="""PKG"",3,20,0)"
^XMB(3.9,164,2,154,0)="^9.402P^^0"
^XMB(3.9,164,2,155,0)="""PKG"",3,22,0)"
^XMB(3.9,164,2,156,0)="^9.49I^1^1"
^XMB(3.9,164,2,157,0)="""PKG"",3,22,1,0)"
^XMB(3.9,164,2,158,0)="8.0^3051215^2970507^.5"
^XMB(3.9,164,2,159,0)="""PKG"",3,22,1,""PAH"",1,0)"
^XMB(3.9,164,2,160,0)="404^3060816^2"
^XMB(3.9,164,2,161,0)="""PKG"",3,22,1,""PAH"",1,1,0)"
^XMB(3.9,164,2,162,0)="^^5^5^3060816"
^XMB(3.9,164,2,163,0)="""PKG"",3,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,164,2,164,0)="This patch is part of the Broker Security Enhancement (in conjunction "
^XMB(3.9,164,2,165,0)="""PKG"",3,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,164,2,166,0)="with patch XWB*1.1*45)."
^XMB(3.9,164,2,167,0)="""PKG"",3,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,164,2,168,0)="Please refer to the Description in the FORUM Patch Module for details."
^XMB(3.9,164,2,169,0)="""PKG"",3,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,164,2,170,0)="Patch XU*8*404."
^XMB(3.9,164,2,171,0)="""PKG"",3,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,164,2,172,0)=""
^XMB(3.9,164,2,173,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,164,2,174,0)="Y"
^XMB(3.9,164,2,175,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,164,2,176,0)="^D REP^XPDH"
^XMB(3.9,164,2,177,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,164,2,178,0)="Shall I write over your |FLAG| File"
^XMB(3.9,164,2,179,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,164,2,180,0)="YES"
^XMB(3.9,164,2,181,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,164,2,182,0)="D XPF1^XPDIQ"
^XMB(3.9,164,2,183,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,164,2,184,0)="Y"
^XMB(3.9,164,2,185,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,164,2,186,0)="^D DTA^XPDH"
^XMB(3.9,164,2,187,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,164,2,188,0)="Want my data |FLAG| yours"
^XMB(3.9,164,2,189,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,164,2,190,0)="YES"
^XMB(3.9,164,2,191,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,164,2,192,0)="D XPF2^XPDIQ"
^XMB(3.9,164,2,193,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,164,2,194,0)="YO"
^XMB(3.9,164,2,195,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,164,2,196,0)="^D INHIBIT^XPDH"
^XMB(3.9,164,2,197,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,164,2,198,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,164,2,199,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,164,2,200,0)="YES"
^XMB(3.9,164,2,201,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,164,2,202,0)="D XPI1^XPDIQ"
^XMB(3.9,164,2,203,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,164,2,204,0)="PO^VA(200,:EM"
^XMB(3.9,164,2,205,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,164,2,206,0)="^D MG^XPDH"
^XMB(3.9,164,2,207,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,164,2,208,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,164,2,209,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,164,2,210,0)=""
^XMB(3.9,164,2,211,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,164,2,212,0)="D XPM1^XPDIQ"
^XMB(3.9,164,2,213,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,164,2,214,0)="Y"
^XMB(3.9,164,2,215,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,164,2,216,0)="^D MENU^XPDH"
^XMB(3.9,164,2,217,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,164,2,218,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,164,2,219,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,164,2,220,0)="YES"
^XMB(3.9,164,2,221,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,164,2,222,0)="D XPO1^XPDIQ"
^XMB(3.9,164,2,223,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,164,2,224,0)="Y"
^XMB(3.9,164,2,225,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,164,2,226,0)="^D OPT^XPDH"
^XMB(3.9,164,2,227,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,164,2,228,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,164,2,229,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,164,2,230,0)="YES"
^XMB(3.9,164,2,231,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,164,2,232,0)="D XPZ1^XPDIQ"
^XMB(3.9,164,2,233,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,164,2,234,0)="Y"
^XMB(3.9,164,2,235,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,164,2,236,0)="^D RTN^XPDH"
^XMB(3.9,164,2,237,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,164,2,238,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,164,2,239,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,164,2,240,0)="NO"
^XMB(3.9,164,2,241,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,164,2,242,0)="D XPZ2^XPDIQ"
^XMB(3.9,164,2,243,0)="""RTN"")"
^XMB(3.9,164,2,244,0)="3"
^XMB(3.9,164,2,245,0)="""RTN"",""XUSBSE1"")"
^XMB(3.9,164,2,246,0)="0^1^B24454678^n/a"
^XMB(3.9,164,2,247,0)="""RTN"",""XUSBSE1"",1,0)"
^XMB(3.9,164,2,248,0)="XUSBSE1 ;JLI/OAK-OIFO - MODIFICATIONS FOR BSE ;08/16/2006"
^XMB(3.9,164,2,249,0)="""RTN"",""XUSBSE1"",2,0)"
^XMB(3.9,164,2,250,0)=" ;;8.0;KERNEL;**404**;Jul 10, 1995;Build 7"
^XMB(3.9,164,2,251,0)="""RTN"",""XUSBSE1"",3,0)"
^XMB(3.9,164,2,252,0)=" ; SETVISIT - returns a BSE token"
^XMB(3.9,164,2,253,0)="""RTN"",""XUSBSE1"",4,0)"
^XMB(3.9,164,2,254,0)="SETVISIT(RES) ; .RPC"
^XMB(3.9,164,2,255,0)="""RTN"",""XUSBSE1"",5,0)"
^XMB(3.9,164,2,256,0)=" N TOKEN"
^XMB(3.9,164,2,257,0)="""RTN"",""XUSBSE1"",6,0)"
^XMB(3.9,164,2,258,0)=" S TOKEN=$$HANDLE^XUSRB4(""XUSBSE"",1)"
^XMB(3.9,164,2,259,0)="""RTN"",""XUSBSE1"",7,0)"
^XMB(3.9,164,2,260,0)=" S ^XTMP(TOKEN,1)=$$GET^XUESSO1(DUZ)"
^XMB(3.9,164,2,261,0)="""RTN"",""XUSBSE1"",8,0)"
^XMB(3.9,164,2,262,0)=" S RES=TOKEN"
^XMB(3.9,164,2,263,0)="""RTN"",""XUSBSE1"",9,0)"
^XMB(3.9,164,2,264,0)=" Q"
^XMB(3.9,164,2,265,0)="""RTN"",""XUSBSE1"",10,0)"
^XMB(3.9,164,2,266,0)=" ;"
^XMB(3.9,164,2,267,0)="""RTN"",""XUSBSE1"",11,0)"
^XMB(3.9,164,2,268,0)=" ; GETVISIT - returns demographics for user indicated by TOKEN"
^XMB(3.9,164,2,269,0)="""RTN"",""XUSBSE1"",12,0)"
^XMB(3.9,164,2,270,0)=" ;   output - RES - passed by reference, contains global location on return"
^XMB(3.9,164,2,271,0)="""RTN"",""XUSBSE1"",13,0)"
^XMB(3.9,164,2,272,0)=" ;   input  - TOKEN - token value returned by remote site"
^XMB(3.9,164,2,273,0)="""RTN"",""XUSBSE1"",14,0)"
^XMB(3.9,164,2,274,0)="GETVISIT(RES,TOKEN) ; .RPC"
^XMB(3.9,164,2,275,0)="""RTN"",""XUSBSE1"",15,0)"
^XMB(3.9,164,2,276,0)=" S RES=$G(^XTMP(TOKEN,1))"
^XMB(3.9,164,2,277,0)="""RTN"",""XUSBSE1"",16,0)"
^XMB(3.9,164,2,278,0)=" K ^XTMP(TOKEN)"
^XMB(3.9,164,2,279,0)="""RTN"",""XUSBSE1"",17,0)"
^XMB(3.9,164,2,280,0)=" Q"
^XMB(3.9,164,2,281,0)="""RTN"",""XUSBSE1"",18,0)"
^XMB(3.9,164,2,282,0)=" ;"
^XMB(3.9,164,2,283,0)="""RTN"",""XUSBSE1"",19,0)"
^XMB(3.9,164,2,284,0)="OLDCAPRI(XWBUSRNM) ;The OLD CAPRI code, Remove next patch"
^XMB(3.9,164,2,285,0)="""RTN"",""XUSBSE1"",20,0)"
^XMB(3.9,164,2,286,0)=" ; Return 1 if a valid user, else 0."
^XMB(3.9,164,2,287,0)="""RTN"",""XUSBSE1"",21,0)"
^XMB(3.9,164,2,288,0)=" N XVAL,XUCNTXT"
^XMB(3.9,164,2,289,0)="""RTN"",""XUSBSE1"",22,0)"
^XMB(3.9,164,2,290,0)=" S XVAL=$$PUT^XUESSO1($P(XWBUSRNM,U,3,99)) ; Sign in as Visitor"
^XMB(3.9,164,2,291,0)="""RTN"",""XUSBSE1"",23,0)"
^XMB(3.9,164,2,292,0)=" I XVAL D"
^XMB(3.9,164,2,293,0)="""RTN"",""XUSBSE1"",24,0)"
^XMB(3.9,164,2,294,0)=" . S XUCNTXT=$$FIND1^DIC(19,"""",""X"",""DVBA CAPRI GUI"")"
^XMB(3.9,164,2,295,0)="""RTN"",""XUSBSE1"",25,0)"
^XMB(3.9,164,2,296,0)=" . D SETCNTXT(XUCNTXT)"
^XMB(3.9,164,2,297,0)="""RTN"",""XUSBSE1"",26,0)"
^XMB(3.9,164,2,298,0)=" Q $S(XVAL>0:1,1:0)"
^XMB(3.9,164,2,299,0)="""RTN"",""XUSBSE1"",27,0)"
^XMB(3.9,164,2,300,0)=" ;"
^XMB(3.9,164,2,301,0)="""RTN"",""XUSBSE1"",28,0)"
^XMB(3.9,164,2,302,0)=" ; CHKUSER - determines if a BSE sign-on is valid"
^XMB(3.9,164,2,303,0)="""RTN"",""XUSBSE1"",29,0)"
^XMB(3.9,164,2,304,0)=" ;   INPUTSTR - input - String of characters from client"
^XMB(3.9,164,2,305,0)="""RTN"",""XUSBSE1"",30,0)"
^XMB(3.9,164,2,306,0)=" ;   return value - 1 if a valid user, else 0"
^XMB(3.9,164,2,307,0)="""RTN"",""XUSBSE1"",31,0)"
^XMB(3.9,164,2,308,0)=" ; called from XUSRB"
^XMB(3.9,164,2,309,0)="""RTN"",""XUSBSE1"",32,0)"
^XMB(3.9,164,2,310,0)="CHKUSER(INPUTSTR) ;"
^XMB(3.9,164,2,311,0)="""RTN"",""XUSBSE1"",33,0)"
^XMB(3.9,164,2,312,0)=" N XUCODE,XUENTRY,XUSTR,XUTOKEN"
^XMB(3.9,164,2,313,0)="""RTN"",""XUSBSE1"",34,0)"
^XMB(3.9,164,2,314,0)=" I +INPUTSTR=-31,INPUTSTR[""DVBA_"",$$OLDCAPRI(INPUTSTR) Q 1"
^XMB(3.9,164,2,315,0)="""RTN"",""XUSBSE1"",35,0)"
^XMB(3.9,164,2,316,0)=" I +INPUTSTR'=-35 Q 0"
^XMB(3.9,164,2,317,0)="""RTN"",""XUSBSE1"",36,0)"
^XMB(3.9,164,2,318,0)=" S INPUTSTR=$P(INPUTSTR,U,2,99)"
^XMB(3.9,164,2,319,0)="""RTN"",""XUSBSE1"",37,0)"
^XMB(3.9,164,2,320,0)=" K ^TMP(""XUSBSE1"",$J)"
^XMB(3.9,164,2,321,0)="""RTN"",""XUSBSE1"",38,0)"
^XMB(3.9,164,2,322,0)=" S XUCODE=$$DECRYP^XUSRB1(INPUTSTR) ;TMP"
^XMB(3.9,164,2,323,0)="""RTN"",""XUSBSE1"",39,0)"
^XMB(3.9,164,2,324,0)=" S XUCODE=$$EN^XUSHSH($P(XUCODE,U))"
^XMB(3.9,164,2,325,0)="""RTN"",""XUSBSE1"",40,0)"
^XMB(3.9,164,2,326,0)=" S XUENTRY=$$FIND1^DIC(8994.5,"""",""X"",XUCODE,""ACODE"") D:XUENTRY>0"
^XMB(3.9,164,2,327,0)="""RTN"",""XUSBSE1"",41,0)"
^XMB(3.9,164,2,328,0)=" . S XUTOKEN=$P($$DECRYP^XUSRB1(INPUTSTR),U,2)"
^XMB(3.9,164,2,329,0)="""RTN"",""XUSBSE1"",42,0)"
^XMB(3.9,164,2,330,0)=" . S XUSTR=$P($$DECRYP^XUSRB1(INPUTSTR),U,3,4)"
^XMB(3.9,164,2,331,0)="""RTN"",""XUSBSE1"",43,0)"
^XMB(3.9,164,2,332,0)=" . S XUENTRY=$$BSEUSER(XUENTRY,XUTOKEN,XUSTR)"
^XMB(3.9,164,2,333,0)="""RTN"",""XUSBSE1"",44,0)"
^XMB(3.9,164,2,334,0)=" . Q"
^XMB(3.9,164,2,335,0)="""RTN"",""XUSBSE1"",45,0)"
^XMB(3.9,164,2,336,0)=" Q $S(XUENTRY'>0:0,1:XUENTRY)"
^XMB(3.9,164,2,337,0)="""RTN"",""XUSBSE1"",46,0)"
^XMB(3.9,164,2,338,0)=" ;"
^XMB(3.9,164,2,339,0)="""RTN"",""XUSBSE1"",47,0)"
^XMB(3.9,164,2,340,0)=" ; BSEUSER - returns internal entry number for authenicated user or 0"
^XMB(3.9,164,2,341,0)="""RTN"",""XUSBSE1"",48,0)"
^XMB(3.9,164,2,342,0)=" ;   ENTRY - input - internal entry number in REMOTE APPLICATION file"
^XMB(3.9,164,2,343,0)="""RTN"",""XUSBSE1"",49,0)"
^XMB(3.9,164,2,344,0)=" ;   TOKEN - input - token from authenticaing site"
^XMB(3.9,164,2,345,0)="""RTN"",""XUSBSE1"",50,0)"
^XMB(3.9,164,2,346,0)=" ;   STR   - input - remainder of input string (2 pieces)"
^XMB(3.9,164,2,347,0)="""RTN"",""XUSBSE1"",51,0)"
^XMB(3.9,164,2,348,0)="BSEUSER(ENTRY,TOKEN,STR) ;"
^XMB(3.9,164,2,349,0)="""RTN"",""XUSBSE1"",52,0)"
^XMB(3.9,164,2,350,0)=" N XUIEN,XUCONTXT,XUDEMOG,XCNT,XVAL"
^XMB(3.9,164,2,351,0)="""RTN"",""XUSBSE1"",53,0)"
^XMB(3.9,164,2,352,0)=" S XUIEN=0,XUDEMOG="""""
^XMB(3.9,164,2,353,0)="""RTN"",""XUSBSE1"",54,0)"
^XMB(3.9,164,2,354,0)=" S XCNT=0 F  S XCNT=$O(^XWB(8994.5,ENTRY,1,XCNT)) Q:XCNT'>0  S XVAL=^(XCNT,0) D  Q:XUDEMOG'="""""
^XMB(3.9,164,2,355,0)="""RTN"",""XUSBSE1"",55,0)"
^XMB(3.9,164,2,356,0)=" . ; INSERT CODE TO HANDLE CONNECTION TYPE AND CONNECTIONS"
^XMB(3.9,164,2,357,0)="""RTN"",""XUSBSE1"",56,0)"
^XMB(3.9,164,2,358,0)=" . I $P(XVAL,U)=""M"" S XUDEMOG=$$M2M($P(XVAL,U,3),$P(XVAL,U,2),TOKEN) D CLOSE^XWBM2MC() Q"
^XMB(3.9,164,2,359,0)="""RTN"",""XUSBSE1"",57,0)"
^XMB(3.9,164,2,360,0)=" . I $P(XVAL,U)=""R"" S XUDEMOG=$$XWB($P(XVAL,U,3),$P(XVAL,U,2),TOKEN) Q"
^XMB(3.9,164,2,361,0)="""RTN"",""XUSBSE1"",58,0)"
^XMB(3.9,164,2,362,0)=" . I $P(XVAL,U)=""H"" S XUDEMOG=$$POST^XUSBSE2($P(XVAL,U,3),$P(XVAL,U,4),""xVAL=""_TOKEN) Q"
^XMB(3.9,164,2,363,0)="""RTN"",""XUSBSE1"",59,0)"
^XMB(3.9,164,2,364,0)=" . Q"
^XMB(3.9,164,2,365,0)="""RTN"",""XUSBSE1"",60,0)"
^XMB(3.9,164,2,366,0)=" I XUDEMOG="""" D"
^XMB(3.9,164,2,367,0)="""RTN"",""XUSBSE1"",61,0)"
^XMB(3.9,164,2,368,0)=" . N SERVER,PORT"
^XMB(3.9,164,2,369,0)="""RTN"",""XUSBSE1"",62,0)"
^XMB(3.9,164,2,370,0)=" . S XUDEMOG="""""
^XMB(3.9,164,2,371,0)="""RTN"",""XUSBSE1"",63,0)"
^XMB(3.9,164,2,372,0)=" . S SERVER=$P(STR,U),PORT=$P(STR,U,2)"
^XMB(3.9,164,2,373,0)="""RTN"",""XUSBSE1"",64,0)"
^XMB(3.9,164,2,374,0)=" . I SERVER'="""",PORT>0 S XUDEMOG=$$GETDEMOG(SERVER,PORT,TOKEN)"
^XMB(3.9,164,2,375,0)="""RTN"",""XUSBSE1"",65,0)"
^XMB(3.9,164,2,376,0)=" . Q"
^XMB(3.9,164,2,377,0)="""RTN"",""XUSBSE1"",66,0)"
^XMB(3.9,164,2,378,0)=" I XUDEMOG'="""" D"
^XMB(3.9,164,2,379,0)="""RTN"",""XUSBSE1"",67,0)"
^XMB(3.9,164,2,380,0)=" . S XUCONTXT=$P($G(^XWB(8994.5,ENTRY,0)),U,2)"
^XMB(3.9,164,2,381,0)="""RTN"",""XUSBSE1"",68,0)"
^XMB(3.9,164,2,382,0)=" . S XUIEN=$$SETUP(XUDEMOG,XUCONTXT)"
^XMB(3.9,164,2,383,0)="""RTN"",""XUSBSE1"",69,0)"
^XMB(3.9,164,2,384,0)=" Q $S(XUIEN'>0:0,1:XUIEN)"
^XMB(3.9,164,2,385,0)="""RTN"",""XUSBSE1"",70,0)"
^XMB(3.9,164,2,386,0)=" ;"
^XMB(3.9,164,2,387,0)="""RTN"",""XUSBSE1"",71,0)"
^XMB(3.9,164,2,388,0)="XWB(SERVER,PORT,TOKEN) ;Special Broker service"
^XMB(3.9,164,2,389,0)="""RTN"",""XUSBSE1"",72,0)"
^XMB(3.9,164,2,390,0)=" N DEMOSTR,IO,XWBTDEV,XWBRBUF"
^XMB(3.9,164,2,391,0)="""RTN"",""XUSBSE1"",73,0)"
^XMB(3.9,164,2,392,0)=" ;TEST CODE"
^XMB(3.9,164,2,393,0)="""RTN"",""XUSBSE1"",74,0)"
^XMB(3.9,164,2,394,0)=" Q $$CALLBSE^XWBTCPM2(SERVER,PORT,TOKEN)"
^XMB(3.9,164,2,395,0)="""RTN"",""XUSBSE1"",75,0)"
^XMB(3.9,164,2,396,0)=" ;"
^XMB(3.9,164,2,397,0)="""RTN"",""XUSBSE1"",76,0)"
^XMB(3.9,164,2,398,0)="M2M(SERVER,PORT,TOKEN) ;"
^XMB(3.9,164,2,399,0)="""RTN"",""XUSBSE1"",77,0)"
^XMB(3.9,164,2,400,0)=" N DEMOGSTR,XWBCRLFL,RETRNVAL,XUSBSARR"
^XMB(3.9,164,2,401,0)="""RTN"",""XUSBSE1"",78,0)"
^XMB(3.9,164,2,402,0)=" S DEMOGSTR="""""
^XMB(3.9,164,2,403,0)="""RTN"",""XUSBSE1"",79,0)"
^XMB(3.9,164,2,404,0)=" N XWBSTAT,XWBPARMS,XWBTDEV,XWBNULL"
^XMB(3.9,164,2,405,0)="""RTN"",""XUSBSE1"",80,0)"
^XMB(3.9,164,2,406,0)=" S XWBPARMS(""ADDRESS"")=SERVER,XWBPARMS(""PORT"")=PORT"
^XMB(3.9,164,2,407,0)="""RTN"",""XUSBSE1"",81,0)"
^XMB(3.9,164,2,408,0)=" S XWBPARMS(""RETRIES"")=3 ;Retries 3 times to open"
^XMB(3.9,164,2,409,0)="""RTN"",""XUSBSE1"",82,0)"
^XMB(3.9,164,2,410,0)=" ;"
^XMB(3.9,164,2,411,0)="""RTN"",""XUSBSE1"",83,0)"
^XMB(3.9,164,2,412,0)=" I '$$OPEN^XWBRL(.XWBPARMS) Q ""NO OPEN"""
^XMB(3.9,164,2,413,0)="""RTN"",""XUSBSE1"",84,0)"
^XMB(3.9,164,2,414,0)=" S XWBPARMS(""URI"")=""XUS GET VISITOR"""
^XMB(3.9,164,2,415,0)="""RTN"",""XUSBSE1"",85,0)"
^XMB(3.9,164,2,416,0)=" D CLEARP^XWBM2MEZ"
^XMB(3.9,164,2,417,0)="""RTN"",""XUSBSE1"",86,0)"
^XMB(3.9,164,2,418,0)=" D SETPARAM^XWBM2MEZ(1,""STRING"",TOKEN)"
^XMB(3.9,164,2,419,0)="""RTN"",""XUSBSE1"",87,0)"
^XMB(3.9,164,2,420,0)=" S XWBPARMS(""URI"")=""XUS GET VISITOR"""
^XMB(3.9,164,2,421,0)="""RTN"",""XUSBSE1"",88,0)"
^XMB(3.9,164,2,422,0)=" S XWBPARMS(""RESULTS"")=$NA(^TMP(""XUSBSE1"",$J))"
^XMB(3.9,164,2,423,0)="""RTN"",""XUSBSE1"",89,0)"
^XMB(3.9,164,2,424,0)=" S XWBCRLFL=0"
^XMB(3.9,164,2,425,0)="""RTN"",""XUSBSE1"",90,0)"
^XMB(3.9,164,2,426,0)=" D REQUEST^XWBRPCC(.XWBPARMS)"
^XMB(3.9,164,2,427,0)="""RTN"",""XUSBSE1"",91,0)"
^XMB(3.9,164,2,428,0)=" I XWBCRLFL S RETRNVAL=""XWBCRLFL IS TRUE"" G M2MEXIT ; S @M2MLOC=""XWBCRLFL IS TRUE"" Q  ; Q 0"
^XMB(3.9,164,2,429,0)="""RTN"",""XUSBSE1"",92,0)"
^XMB(3.9,164,2,430,0)=" ;"
^XMB(3.9,164,2,431,0)="""RTN"",""XUSBSE1"",93,0)"
^XMB(3.9,164,2,432,0)=" I '$$EXECUTE^XWBVLC(.XWBPARMS) S RETRNVAL=""FAILURE ON EXECUTE"" G M2MEXIT ; S @M2MLOC=""failure on execute"" Q  ;Run RPC and place raw XML results in ^TMP(""XWBM2MVLC"""
^XMB(3.9,164,2,433,0)="""RTN"",""XUSBSE1"",94,0)"
^XMB(3.9,164,2,434,0)=" D PARSE^XWBRPC(.XWBPARMS,""XUSBSARR"") ;Parse out raw XML and place results in ^TMP(""XWBM2MRPC"""
^XMB(3.9,164,2,435,0)="""RTN"",""XUSBSE1"",95,0)"
^XMB(3.9,164,2,436,0)=" S RETRNVAL=$G(XUSBSARR(1))"
^XMB(3.9,164,2,437,0)="""RTN"",""XUSBSE1"",96,0)"
^XMB(3.9,164,2,438,0)="M2MEXIT ;"
^XMB(3.9,164,2,439,0)="""RTN"",""XUSBSE1"",97,0)"
^XMB(3.9,164,2,440,0)=" D CLOSE^XWBM2MEZ"
^XMB(3.9,164,2,441,0)="""RTN"",""XUSBSE1"",98,0)"
^XMB(3.9,164,2,442,0)=" Q RETRNVAL"
^XMB(3.9,164,2,443,0)="""RTN"",""XUSBSE1"",99,0)"
^XMB(3.9,164,2,444,0)=" ;"
^XMB(3.9,164,2,445,0)="""RTN"",""XUSBSE1"",100,0)"
^XMB(3.9,164,2,446,0)=" ; GETDEMOG - return value = string of demographic characteristics"
^XMB(3.9,164,2,447,0)="""RTN"",""XUSBSE1"",101,0)"
^XMB(3.9,164,2,448,0)=" ;   input SERVER - server address"
^XMB(3.9,164,2,449,0)="""RTN"",""XUSBSE1"",102,0)"
^XMB(3.9,164,2,450,0)=" ;   input PORT   - port number for connection"
^XMB(3.9,164,2,451,0)="""RTN"",""XUSBSE1"",103,0)"
^XMB(3.9,164,2,452,0)=" ;   input TOKEN  - token to identify user to authenticating server"
^XMB(3.9,164,2,453,0)="""RTN"",""XUSBSE1"",104,0)"
^XMB(3.9,164,2,454,0)="GETDEMOG(SERVER,PORT,TOKEN) ;"
^XMB(3.9,164,2,455,0)="""RTN"",""XUSBSE1"",105,0)"
^XMB(3.9,164,2,456,0)=" N DEMOGSTR"
^XMB(3.9,164,2,457,0)="""RTN"",""XUSBSE1"",106,0)"
^XMB(3.9,164,2,458,0)=" S DEMOGSTR="""""
^XMB(3.9,164,2,459,0)="""RTN"",""XUSBSE1"",107,0)"
^XMB(3.9,164,2,460,0)=" Q DEMOGSTR"
^XMB(3.9,164,2,461,0)="""RTN"",""XUSBSE1"",108,0)"
^XMB(3.9,164,2,462,0)=" ;"
^XMB(3.9,164,2,463,0)="""RTN"",""XUSBSE1"",109,0)"
^XMB(3.9,164,2,464,0)=" ; SETUP - setup user as visitor, add context option"
^XMB(3.9,164,2,465,0)="""RTN"",""XUSBSE1"",110,0)"
^XMB(3.9,164,2,466,0)=" ; return value = internal entry number for user, or 0"
^XMB(3.9,164,2,467,0)="""RTN"",""XUSBSE1"",111,0)"
^XMB(3.9,164,2,468,0)=" ;   input XUDEMOG  - string of demographic characteristics"
^XMB(3.9,164,2,469,0)="""RTN"",""XUSBSE1"",112,0)"
^XMB(3.9,164,2,470,0)=" ;   input XUCONTXT - context option to be given to user"
^XMB(3.9,164,2,471,0)="""RTN"",""XUSBSE1"",113,0)"
^XMB(3.9,164,2,472,0)="SETUP(XUDEMOG,XUCONTXT) ;"
^XMB(3.9,164,2,473,0)="""RTN"",""XUSBSE1"",114,0)"
^XMB(3.9,164,2,474,0)=" I '$$PUT^XUESSO1(XUDEMOG) Q 0"
^XMB(3.9,164,2,475,0)="""RTN"",""XUSBSE1"",115,0)"
^XMB(3.9,164,2,476,0)=" I $G(DUZ)'>0 Q 0"
^XMB(3.9,164,2,477,0)="""RTN"",""XUSBSE1"",116,0)"
^XMB(3.9,164,2,478,0)=" D SETCNTXT(XUCONTXT)"
^XMB(3.9,164,2,479,0)="""RTN"",""XUSBSE1"",117,0)"
^XMB(3.9,164,2,480,0)=" Q DUZ"
^XMB(3.9,164,2,481,0)="""RTN"",""XUSBSE1"",118,0)"
^XMB(3.9,164,2,482,0)=" ;"
^XMB(3.9,164,2,483,0)="""RTN"",""XUSBSE1"",119,0)"
^XMB(3.9,164,2,484,0)="SETCNTXT(XOPT) ;"
^XMB(3.9,164,2,485,0)="""RTN"",""XUSBSE1"",120,0)"
^XMB(3.9,164,2,486,0)=" N OPT,XUCONTXT"
^XMB(3.9,164,2,487,0)="""RTN"",""XUSBSE1"",121,0)"
^XMB(3.9,164,2,488,0)=" S XUCONTXT=""`""_XOPT"
^XMB(3.9,164,2,489,0)="""RTN"",""XUSBSE1"",122,0)"
^XMB(3.9,164,2,490,0)=" I $$FIND1^DIC(19,"""",""X"",XUCONTXT)'>0 Q  ; context option not in option file"
^XMB(3.9,164,2,491,0)="""RTN"",""XUSBSE1"",123,0)"
^XMB(3.9,164,2,492,0)=" ;Have to use $D because of screen in 200.03 keeps FIND1^DIC from working."
^XMB(3.9,164,2,493,0)="""RTN"",""XUSBSE1"",124,0)"
^XMB(3.9,164,2,494,0)=" I '$D(^VA(200,DUZ,203,""B"",XOPT)) D"
^XMB(3.9,164,2,495,0)="""RTN"",""XUSBSE1"",125,0)"
^XMB(3.9,164,2,496,0)=" . ; Have to give the user a delegated option"
^XMB(3.9,164,2,497,0)="""RTN"",""XUSBSE1"",126,0)"
^XMB(3.9,164,2,498,0)=" . N XARR S XARR(200.19,""+1,""_DUZ_"","",.01)=XUCONTXT"
^XMB(3.9,164,2,499,0)="""RTN"",""XUSBSE1"",127,0)"
^XMB(3.9,164,2,500,0)=" . D UPDATE^DIE(""E"",""XARR"")"
^XMB(3.9,164,2,501,0)="""RTN"",""XUSBSE1"",128,0)"
^XMB(3.9,164,2,502,0)=" . ; And now she can give himself the context option"
^XMB(3.9,164,2,503,0)="""RTN"",""XUSBSE1"",129,0)"
^XMB(3.9,164,2,504,0)=" . K XARR S XARR(200.03,""+1,""_DUZ_"","",.01)=XUCONTXT"
^XMB(3.9,164,2,505,0)="""RTN"",""XUSBSE1"",130,0)"
^XMB(3.9,164,2,506,0)=" . D UPDATE^DIE(""E"",""XARR"") ; Give context option as a secondary menu item"
^XMB(3.9,164,2,507,0)="""RTN"",""XUSBSE1"",131,0)"
^XMB(3.9,164,2,508,0)=" . S ^XUTL(""XQ"",$J,""DUZ(BSE)"")=XUCONTXT"
^XMB(3.9,164,2,509,0)="""RTN"",""XUSBSE1"",132,0)"
^XMB(3.9,164,2,510,0)=" . ; But now we have to remove the delegated option"
^XMB(3.9,164,2,511,0)="""RTN"",""XUSBSE1"",133,0)"
^XMB(3.9,164,2,512,0)=" . S OPT=$$FIND1^DIC(200.19,"",""_DUZ_"","",""X"",XUCONTXT)"
^XMB(3.9,164,2,513,0)="""RTN"",""XUSBSE1"",134,0)"
^XMB(3.9,164,2,514,0)=" . I OPT>0 D"
^XMB(3.9,164,2,515,0)="""RTN"",""XUSBSE1"",135,0)"
^XMB(3.9,164,2,516,0)=" . . K XARR S XARR(200.19,(OPT_"",""_DUZ_"",""),.01)=""@"""
^XMB(3.9,164,2,517,0)="""RTN"",""XUSBSE1"",136,0)"
^XMB(3.9,164,2,518,0)=" . . D FILE^DIE(""E"",""XARR"")"
^XMB(3.9,164,2,519,0)="""RTN"",""XUSBSE1"",137,0)"
^XMB(3.9,164,2,520,0)=" . . Q"
^XMB(3.9,164,2,521,0)="""RTN"",""XUSBSE1"",138,0)"
^XMB(3.9,164,2,522,0)=" . Q"
^XMB(3.9,164,2,523,0)="""RTN"",""XUSBSE1"",139,0)"
^XMB(3.9,164,2,524,0)=" Q"
^XMB(3.9,164,2,525,0)="""RTN"",""XUSBSE1"",140,0)"
^XMB(3.9,164,2,526,0)=" ;"
^XMB(3.9,164,2,527,0)="""RTN"",""XUSBSE2"")"
^XMB(3.9,164,2,528,0)="0^2^B9339084^n/a"
^XMB(3.9,164,2,529,0)="""RTN"",""XUSBSE2"",1,0)"
^XMB(3.9,164,2,530,0)="XUSBSE2 ;FO-OAK/JLI-CONNECT WITH HTTP SERVER AND GET REPLY ;08/16/2006"
^XMB(3.9,164,2,531,0)="""RTN"",""XUSBSE2"",2,0)"
^XMB(3.9,164,2,532,0)=" ;;8.0;KERNEL;**404**;Jul 10, 1995;Build 7"
^XMB(3.9,164,2,533,0)="""RTN"",""XUSBSE2"",3,0)"
^XMB(3.9,164,2,534,0)=" Q"
^XMB(3.9,164,2,535,0)="""RTN"",""XUSBSE2"",4,0)"
^XMB(3.9,164,2,536,0)=" ;"
^XMB(3.9,164,2,537,0)="""RTN"",""XUSBSE2"",5,0)"
^XMB(3.9,164,2,538,0)=" ; MODIFY THE PROGRAM TO CHANGE THE 10.161.12.182 TO"
^XMB(3.9,164,2,539,0)="""RTN"",""XUSBSE2"",6,0)"
^XMB(3.9,164,2,540,0)=" ; IP ADDRESSES FOR THE WORKSTATION WITH THE BSE SAMPLE"
^XMB(3.9,164,2,541,0)="""RTN"",""XUSBSE2"",7,0)"
^XMB(3.9,164,2,542,0)=" ; SERVER"
^XMB(3.9,164,2,543,0)="""RTN"",""XUSBSE2"",8,0)"
^XMB(3.9,164,2,544,0)="EN(ADDRESS) ; test with input address or 10.161.12.182 if none entered"
^XMB(3.9,164,2,545,0)="""RTN"",""XUSBSE2"",9,0)"
^XMB(3.9,164,2,546,0)=" N VALUE,PAGE,SERVER"
^XMB(3.9,164,2,547,0)="""RTN"",""XUSBSE2"",10,0)"
^XMB(3.9,164,2,548,0)=" S ADDRESS=$G(ADDRESS,""10.237.131.26"")"
^XMB(3.9,164,2,549,0)="""RTN"",""XUSBSE2"",11,0)"
^XMB(3.9,164,2,550,0)=" S PAGE=""/"",SERVER=ADDRESS"
^XMB(3.9,164,2,551,0)="""RTN"",""XUSBSE2"",12,0)"
^XMB(3.9,164,2,552,0)=" I SERVER[""/"" D"
^XMB(3.9,164,2,553,0)="""RTN"",""XUSBSE2"",13,0)"
^XMB(3.9,164,2,554,0)=" . I SERVER[""//"" S SERVER=$P(SERVER,""//"",2)"
^XMB(3.9,164,2,555,0)="""RTN"",""XUSBSE2"",14,0)"
^XMB(3.9,164,2,556,0)=" . I SERVER[""/"" S PAGE=""/""_$P(SERVER,""/"",2,99),SERVER=$P(SERVER,""/"")"
^XMB(3.9,164,2,557,0)="""RTN"",""XUSBSE2"",15,0)"
^XMB(3.9,164,2,558,0)=" . Q"
^XMB(3.9,164,2,559,0)="""RTN"",""XUSBSE2"",16,0)"
^XMB(3.9,164,2,560,0)=" S VALUE=$$ENTRY(SERVER,PAGE) ; $G(ADDRESS,""10.237.131.26""))"
^XMB(3.9,164,2,561,0)="""RTN"",""XUSBSE2"",17,0)"
^XMB(3.9,164,2,562,0)=" I IO=""|TCP|80"" U IO D ^%ZISC"
^XMB(3.9,164,2,563,0)="""RTN"",""XUSBSE2"",18,0)"
^XMB(3.9,164,2,564,0)=" W !,VALUE"
^XMB(3.9,164,2,565,0)="""RTN"",""XUSBSE2"",19,0)"
^XMB(3.9,164,2,566,0)=" Q"
^XMB(3.9,164,2,567,0)="""RTN"",""XUSBSE2"",20,0)"
^XMB(3.9,164,2,568,0)=" ;"
^XMB(3.9,164,2,569,0)="""RTN"",""XUSBSE2"",21,0)"
^XMB(3.9,164,2,570,0)="EN1 ;"
^XMB(3.9,164,2,571,0)="""RTN"",""XUSBSE2"",22,0)"
^XMB(3.9,164,2,572,0)=" D EN(""10.237.131.26/page1.htm"")"
^XMB(3.9,164,2,573,0)="""RTN"",""XUSBSE2"",23,0)"
^XMB(3.9,164,2,574,0)=" Q"
^XMB(3.9,164,2,575,0)="""RTN"",""XUSBSE2"",24,0)"
^XMB(3.9,164,2,576,0)=" ;"
^XMB(3.9,164,2,577,0)="""RTN"",""XUSBSE2"",25,0)"
^XMB(3.9,164,2,578,0)="EN2 ;"
^XMB(3.9,164,2,579,0)="""RTN"",""XUSBSE2"",26,0)"
^XMB(3.9,164,2,580,0)=" D EN(""10.237.131.26/level2/page2.htm"")"
^XMB(3.9,164,2,581,0)="""RTN"",""XUSBSE2"",27,0)"
^XMB(3.9,164,2,582,0)=" Q"
^XMB(3.9,164,2,583,0)="""RTN"",""XUSBSE2"",28,0)"
^XMB(3.9,164,2,584,0)=" ;"
^XMB(3.9,164,2,585,0)="""RTN"",""XUSBSE2"",29,0)"
^XMB(3.9,164,2,586,0)=" ;"
^XMB(3.9,164,2,587,0)="""RTN"",""XUSBSE2"",30,0)"
^XMB(3.9,164,2,588,0)="TESTPOST ;"
^XMB(3.9,164,2,589,0)="""RTN"",""XUSBSE2"",31,0)"
^XMB(3.9,164,2,590,0)=" W !,$$POST(""10.237.131.26"",""/"",""xVAL=XWBHDL851-487411_0"")"
^XMB(3.9,164,2,591,0)="""RTN"",""XUSBSE2"",32,0)"
^XMB(3.9,164,2,592,0)=" I IO=""|TCP|80"" U IO D ^%ZISC"
^XMB(3.9,164,2,593,0)="""RTN"",""XUSBSE2"",33,0)"
^XMB(3.9,164,2,594,0)=" Q"
^XMB(3.9,164,2,595,0)="""RTN"",""XUSBSE2"",34,0)"
^XMB(3.9,164,2,596,0)=" ;"
^XMB(3.9,164,2,597,0)="""RTN"",""XUSBSE2"",35,0)"
^XMB(3.9,164,2,598,0)="POST(SERVER,PAGE,DATA) ;"
^XMB(3.9,164,2,599,0)="""RTN"",""XUSBSE2"",36,0)"
^XMB(3.9,164,2,600,0)=" Q $$ENTRY(SERVER,$G(PAGE),""POST"",$G(DATA))"
^XMB(3.9,164,2,601,0)="""RTN"",""XUSBSE2"",37,0)"
^XMB(3.9,164,2,602,0)=" ;"
^XMB(3.9,164,2,603,0)="""RTN"",""XUSBSE2"",38,0)"
^XMB(3.9,164,2,604,0)="ENTRY(SERVER,PAGE,HTTPTYPE,DATA) ;"
^XMB(3.9,164,2,605,0)="""RTN"",""XUSBSE2"",39,0)"
^XMB(3.9,164,2,606,0)=" N DONE,XVALUE,XWBICNT,XWBRBUF,XWBSBUF,XWBTDEV,POP"
^XMB(3.9,164,2,607,0)="""RTN"",""XUSBSE2"",40,0)"
^XMB(3.9,164,2,608,0)=" S PAGE=$G(PAGE,""/"") I PAGE="""" S PAGE=""/"""
^XMB(3.9,164,2,609,0)="""RTN"",""XUSBSE2"",41,0)"
^XMB(3.9,164,2,610,0)=" S HTTPTYPE=$G(HTTPTYPE,""GET"")"
^XMB(3.9,164,2,611,0)="""RTN"",""XUSBSE2"",42,0)"
^XMB(3.9,164,2,612,0)=" S DATA=$G(DATA)"
^XMB(3.9,164,2,613,0)="""RTN"",""XUSBSE2"",43,0)"
^XMB(3.9,164,2,614,0)=" S IO(0)=$P"
^XMB(3.9,164,2,615,0)="""RTN"",""XUSBSE2"",44,0)"
^XMB(3.9,164,2,616,0)=" D INIT^XWBTCPM"
^XMB(3.9,164,2,617,0)="""RTN"",""XUSBSE2"",45,0)"
^XMB(3.9,164,2,618,0)=" D OPEN^XWBTCPM2(SERVER,80)"
^XMB(3.9,164,2,619,0)="""RTN"",""XUSBSE2"",46,0)"
^XMB(3.9,164,2,620,0)=" I POP Q ""DIDN'T OPEN CONNECTION"""
^XMB(3.9,164,2,621,0)="""RTN"",""XUSBSE2"",47,0)"
^XMB(3.9,164,2,622,0)=" S XWBSBUF="""""
^XMB(3.9,164,2,623,0)="""RTN"",""XUSBSE2"",48,0)"
^XMB(3.9,164,2,624,0)=" U XWBTDEV"
^XMB(3.9,164,2,625,0)="""RTN"",""XUSBSE2"",49,0)"
^XMB(3.9,164,2,626,0)=" D WRITE^XWBRW(HTTPTYPE_"" ""_PAGE_"" HTTP/1.1""_$C(13,10))"
^XMB(3.9,164,2,627,0)="""RTN"",""XUSBSE2"",50,0)"
^XMB(3.9,164,2,628,0)=" D WRITE^XWBRW(""Accept: image/gif */*""_$C(13,10))"
^XMB(3.9,164,2,629,0)="""RTN"",""XUSBSE2"",51,0)"
^XMB(3.9,164,2,630,0)=" I HTTPTYPE=""POST"" D WRITE^XWBRW(""Referer: http://a1.fo-oakland.med.va.gov""_$C(13,10))"
^XMB(3.9,164,2,631,0)="""RTN"",""XUSBSE2"",52,0)"
^XMB(3.9,164,2,632,0)=" D WRITE^XWBRW(""Accept-Language: en-us""_$C(13,10))"
^XMB(3.9,164,2,633,0)="""RTN"",""XUSBSE2"",53,0)"
^XMB(3.9,164,2,634,0)=" I HTTPTYPE=""POST"" D WRITE^XWBRW(""Content-Type: application/x-www-form-urlencoded""_$C(13,10))"
^XMB(3.9,164,2,635,0)="""RTN"",""XUSBSE2"",54,0)"
^XMB(3.9,164,2,636,0)=" D WRITE^XWBRW(""Accept-Encoding: gzip, deflate""_$C(13,10))"
^XMB(3.9,164,2,637,0)="""RTN"",""XUSBSE2"",55,0)"
^XMB(3.9,164,2,638,0)=" D WRITE^XWBRW(""User-Agent: Mozilla/4.0 (compatible; MSIE 6.0;)""_$C(13,10))"
^XMB(3.9,164,2,639,0)="""RTN"",""XUSBSE2"",56,0)"
^XMB(3.9,164,2,640,0)=" D WRITE^XWBRW(""Host: 10.237.131.26""_$C(13,10))"
^XMB(3.9,164,2,641,0)="""RTN"",""XUSBSE2"",57,0)"
^XMB(3.9,164,2,642,0)=" I HTTPTYPE=""POST"" D WRITE^XWBRW(""Content-Length: ""_$L(DATA)_$C(13,10))"
^XMB(3.9,164,2,643,0)="""RTN"",""XUSBSE2"",58,0)"
^XMB(3.9,164,2,644,0)=" D WRITE^XWBRW(""Connection: Keep-Alive""_$C(13,10))"
^XMB(3.9,164,2,645,0)="""RTN"",""XUSBSE2"",59,0)"
^XMB(3.9,164,2,646,0)=" D WRITE^XWBRW(""Cache-Control: no-cache""_$C(13,10,13,10)_DATA)"
^XMB(3.9,164,2,647,0)="""RTN"",""XUSBSE2"",60,0)"
^XMB(3.9,164,2,648,0)=" D WBF^XWBRW"
^XMB(3.9,164,2,649,0)="""RTN"",""XUSBSE2"",61,0)"
^XMB(3.9,164,2,650,0)=" S XWBRBUF="""",DONE=0"
^XMB(3.9,164,2,651,0)="""RTN"",""XUSBSE2"",62,0)"
^XMB(3.9,164,2,652,0)=" F  Q:DONE  D"
^XMB(3.9,164,2,653,0)="""RTN"",""XUSBSE2"",63,0)"
^XMB(3.9,164,2,654,0)=" . S XVALUE=$$BREAD^XWBRW(1,1,1)"
^XMB(3.9,164,2,655,0)="""RTN"",""XUSBSE2"",64,0)"
^XMB(3.9,164,2,656,0)=" . I $P(XWBRBUF,$C(13,10,13,10))'="""" D"
^XMB(3.9,164,2,657,0)="""RTN"",""XUSBSE2"",65,0)"
^XMB(3.9,164,2,658,0)=" . . S XVALUE=$P(XWBRBUF,$C(13,10,13,10),2,99)"
^XMB(3.9,164,2,659,0)="""RTN"",""XUSBSE2"",66,0)"
^XMB(3.9,164,2,660,0)=" . . S XWBICNT=$P(XWBRBUF,""Content-Length:"",2) F  Q:$E(XWBICNT)'="" ""  S XWBICNT=$E(XWBICNT,2,$L(XWBICNT))"
^XMB(3.9,164,2,661,0)="""RTN"",""XUSBSE2"",67,0)"
^XMB(3.9,164,2,662,0)=" . . S XWBRBUF=XVALUE"
^XMB(3.9,164,2,663,0)="""RTN"",""XUSBSE2"",68,0)"
^XMB(3.9,164,2,664,0)=" . . S XWBICNT=+XWBICNT-$L(XWBRBUF)"
^XMB(3.9,164,2,665,0)="""RTN"",""XUSBSE2"",69,0)"
^XMB(3.9,164,2,666,0)=" . . S DONE=1"
^XMB(3.9,164,2,667,0)="""RTN"",""XUSBSE2"",70,0)"
^XMB(3.9,164,2,668,0)=" . . Q"
^XMB(3.9,164,2,669,0)="""RTN"",""XUSBSE2"",71,0)"
^XMB(3.9,164,2,670,0)=" . Q"
^XMB(3.9,164,2,671,0)="""RTN"",""XUSBSE2"",72,0)"
^XMB(3.9,164,2,672,0)=" S XVALUE=$$BREAD^XWBRW(XWBICNT,1,1)"
^XMB(3.9,164,2,673,0)="""RTN"",""XUSBSE2"",73,0)"
^XMB(3.9,164,2,674,0)=" I IO=""|TCP|80"" U IO D ^%ZISC"
^XMB(3.9,164,2,675,0)="""RTN"",""XUSBSE2"",74,0)"
^XMB(3.9,164,2,676,0)=" Q XVALUE"
^XMB(3.9,164,2,677,0)="""RTN"",""XUSRB"")"
^XMB(3.9,164,2,678,0)="0^4^B30617453^B37739188"
^XMB(3.9,164,2,679,0)="""RTN"",""XUSRB"",1,0)"
^XMB(3.9,164,2,680,0)="XUSRB ;ISCSF/RWF - Request Broker ;05/10/2006"
^XMB(3.9,164,2,681,0)="""RTN"",""XUSRB"",2,0)"
^XMB(3.9,164,2,682,0)=" ;;8.0;KERNEL;**11,16,28,32,59,70,82,109,115,165,150,180,213,234,238,265,337,395,404**;Jul 10, 1995;Build 7"
^XMB(3.9,164,2,683,0)="""RTN"",""XUSRB"",3,0)"
^XMB(3.9,164,2,684,0)=" Q  ;No entry from top"
^XMB(3.9,164,2,685,0)="""RTN"",""XUSRB"",4,0)"
^XMB(3.9,164,2,686,0)=" ;"
^XMB(3.9,164,2,687,0)="""RTN"",""XUSRB"",5,0)"
^XMB(3.9,164,2,688,0)=" ;RPC BROKER calls, First parameter is always call-by-reference"
^XMB(3.9,164,2,689,0)="""RTN"",""XUSRB"",6,0)"
^XMB(3.9,164,2,690,0)="VALIDAV(RET,AVCODE) ;Check a users access"
^XMB(3.9,164,2,691,0)="""RTN"",""XUSRB"",7,0)"
^XMB(3.9,164,2,692,0)=" ;Return R(0)=DUZ, R(1)=(0=OK, 1,2...=Can't sign-on for some reason)"
^XMB(3.9,164,2,693,0)="""RTN"",""XUSRB"",8,0)"
^XMB(3.9,164,2,694,0)=" ; R(2)=verify needs changing, R(3)=Message, R(4)=0, R(5)=msg cnt, R(5+n)"
^XMB(3.9,164,2,695,0)="""RTN"",""XUSRB"",9,0)"
^XMB(3.9,164,2,696,0)=" ; R(R(5)+6)=# div user must select from, R(R(5)+6+n)=div"
^XMB(3.9,164,2,697,0)="""RTN"",""XUSRB"",10,0)"
^XMB(3.9,164,2,698,0)=" ;"
^XMB(3.9,164,2,699,0)="""RTN"",""XUSRB"",11,0)"
^XMB(3.9,164,2,700,0)=" N X,XUSER,XUF,XUNOW,XUDEV,XUM,XUMSG,%1,VCCH K DUZ"
^XMB(3.9,164,2,701,0)="""RTN"",""XUSRB"",12,0)"
^XMB(3.9,164,2,702,0)=" S U=""^"",RET(0)=0,RET(5)=0,XUF=$G(XUF,0),XUM=0,XUMSG=0,XUDEV=0"
^XMB(3.9,164,2,703,0)="""RTN"",""XUSRB"",13,0)"
^XMB(3.9,164,2,704,0)=" S DUZ=0,DUZ(0)="""",VCCH=0 D NOW"
^XMB(3.9,164,2,705,0)="""RTN"",""XUSRB"",14,0)"
^XMB(3.9,164,2,706,0)=" S XOPT=$$STATE^XWBSEC(""XUS XOPT"")"
^XMB(3.9,164,2,707,0)="""RTN"",""XUSRB"",15,0)"
^XMB(3.9,164,2,708,0)=" S XUMSG=$$INHIBIT() I XUMSG S XUM=1 G VAX ;Logon inhibited"
^XMB(3.9,164,2,709,0)="""RTN"",""XUSRB"",16,0)"
^XMB(3.9,164,2,710,0)=" ;3 Strikes"
^XMB(3.9,164,2,711,0)="""RTN"",""XUSRB"",17,0)"
^XMB(3.9,164,2,712,0)=" I $$LKCHECK^XUSTZIP($G(IO(""IP""))) S XUMSG=7 G VAX ;IP locked"
^XMB(3.9,164,2,713,0)="""RTN"",""XUSRB"",18,0)"
^XMB(3.9,164,2,714,0)=" ;Check type of sign-on code"
^XMB(3.9,164,2,715,0)="""RTN"",""XUSRB"",19,0)"
^XMB(3.9,164,2,716,0)=" I $L(AVCODE) D"
^XMB(3.9,164,2,717,0)="""RTN"",""XUSRB"",20,0)"
^XMB(3.9,164,2,718,0)=" . I $E(AVCODE,1,2)=""~1"" S DUZ=$$CHKASH^XUSRB4(AVCODE) Q"
^XMB(3.9,164,2,719,0)="""RTN"",""XUSRB"",21,0)"
^XMB(3.9,164,2,720,0)=" . I $E(AVCODE,1,2)=""~2"" S DUZ=$$CHKCCOW^XUSRB4(AVCODE) Q"
^XMB(3.9,164,2,721,0)="""RTN"",""XUSRB"",22,0)"
^XMB(3.9,164,2,722,0)=" . S DUZ=$$CHECKAV^XUS($$DECRYP^XUSRB1(AVCODE))"
^XMB(3.9,164,2,723,0)="""RTN"",""XUSRB"",23,0)"
^XMB(3.9,164,2,724,0)=" . Q"
^XMB(3.9,164,2,725,0)="""RTN"",""XUSRB"",24,0)"
^XMB(3.9,164,2,726,0)=" I DUZ'>0,$$FAIL^XUS3 D  G VAX"
^XMB(3.9,164,2,727,0)="""RTN"",""XUSRB"",25,0)"
^XMB(3.9,164,2,728,0)=" . S XUM=1,XUMSG=7,X=$$RA^XUSTZ H 5 ;3 Strikes"
^XMB(3.9,164,2,729,0)="""RTN"",""XUSRB"",26,0)"
^XMB(3.9,164,2,730,0)=" S XUMSG=$$UVALID^XUS() G:XUMSG VAX ;Check User"
^XMB(3.9,164,2,731,0)="""RTN"",""XUSRB"",27,0)"
^XMB(3.9,164,2,732,0)=" S VCCH=$$VCVALID() ;Check VC"
^XMB(3.9,164,2,733,0)="""RTN"",""XUSRB"",28,0)"
^XMB(3.9,164,2,734,0)=" I DUZ>0 S XUMSG=$$POST(1)"
^XMB(3.9,164,2,735,0)="""RTN"",""XUSRB"",29,0)"
^XMB(3.9,164,2,736,0)=" I XUMSG>0 S DUZ=0,VCCH=0 ;If can't sign-on, don't tell need to change VC"
^XMB(3.9,164,2,737,0)="""RTN"",""XUSRB"",30,0)"
^XMB(3.9,164,2,738,0)=" I 'XUMSG,VCCH S XUMSG=12 D SET^XWBSEC(""XUS DUZ"",DUZ) ;Need to change VC"
^XMB(3.9,164,2,739,0)="""RTN"",""XUSRB"",31,0)"
^XMB(3.9,164,2,740,0)="VAX S:XUMSG>0 DUZ=0 ;Can't sign-on, Clear DUZ."
^XMB(3.9,164,2,741,0)="""RTN"",""XUSRB"",32,0)"
^XMB(3.9,164,2,742,0)=" D:DUZ>0 POST2"
^XMB(3.9,164,2,743,0)="""RTN"",""XUSRB"",33,0)"
^XMB(3.9,164,2,744,0)=" S RET(0)=DUZ,RET(1)=XUM,RET(2)=VCCH,RET(3)=$S(XUMSG:$$TXT^XUS3(XUMSG),1:""""),RET(4)=0"
^XMB(3.9,164,2,745,0)="""RTN"",""XUSRB"",34,0)"
^XMB(3.9,164,2,746,0)=" K DUZ(""CCOW"")"
^XMB(3.9,164,2,747,0)="""RTN"",""XUSRB"",35,0)"
^XMB(3.9,164,2,748,0)=" Q"
^XMB(3.9,164,2,749,0)="""RTN"",""XUSRB"",36,0)"
^XMB(3.9,164,2,750,0)=" ;"
^XMB(3.9,164,2,751,0)="""RTN"",""XUSRB"",37,0)"
^XMB(3.9,164,2,752,0)="NOW S U=""^"",XUNOW=$$NOW^XLFDT(),DT=$P(XUNOW,""."")"
^XMB(3.9,164,2,753,0)="""RTN"",""XUSRB"",38,0)"
^XMB(3.9,164,2,754,0)=" Q"
^XMB(3.9,164,2,755,0)="""RTN"",""XUSRB"",39,0)"
^XMB(3.9,164,2,756,0)=" ;"
^XMB(3.9,164,2,757,0)="""RTN"",""XUSRB"",40,0)"
^XMB(3.9,164,2,758,0)="INTRO(RET) ;Return INTRO TEXT."
^XMB(3.9,164,2,759,0)="""RTN"",""XUSRB"",41,0)"
^XMB(3.9,164,2,760,0)=" D INTRO^XUS1A(""RET"")"
^XMB(3.9,164,2,761,0)="""RTN"",""XUSRB"",42,0)"
^XMB(3.9,164,2,762,0)=" Q"
^XMB(3.9,164,2,763,0)="""RTN"",""XUSRB"",43,0)"
^XMB(3.9,164,2,764,0)=" ;"
^XMB(3.9,164,2,765,0)="""RTN"",""XUSRB"",44,0)"
^XMB(3.9,164,2,766,0)="VCVALID() ;Return 1 if the Verify code needs changing."
^XMB(3.9,164,2,767,0)="""RTN"",""XUSRB"",45,0)"
^XMB(3.9,164,2,768,0)=" Q:'$G(DUZ) 1"
^XMB(3.9,164,2,769,0)="""RTN"",""XUSRB"",46,0)"
^XMB(3.9,164,2,770,0)=" Q:$P($G(^VA(200,DUZ,.1)),U,2)="""" 1 ;VC is empty"
^XMB(3.9,164,2,771,0)="""RTN"",""XUSRB"",47,0)"
^XMB(3.9,164,2,772,0)=" Q:$P(^VA(200,DUZ,0),U,8)=1 0 ;VC never expires"
^XMB(3.9,164,2,773,0)="""RTN"",""XUSRB"",48,0)"
^XMB(3.9,164,2,774,0)=" N XUSER D USER^XUS(DUZ)"
^XMB(3.9,164,2,775,0)="""RTN"",""XUSRB"",49,0)"
^XMB(3.9,164,2,776,0)=" Q $$VCHG^XUS1"
^XMB(3.9,164,2,777,0)="""RTN"",""XUSRB"",50,0)"
^XMB(3.9,164,2,778,0)=" ;"
^XMB(3.9,164,2,779,0)="""RTN"",""XUSRB"",51,0)"
^XMB(3.9,164,2,780,0)="CVC(RET,XU1) ;change VC, Return 0 = success"
^XMB(3.9,164,2,781,0)="""RTN"",""XUSRB"",52,0)"
^XMB(3.9,164,2,782,0)=" N XU2,XU3,XU4 S DUZ=$G(DUZ),RET(0)=99,XU4=$$STATE^XWBSEC(""XUS DUZ"") S:(DUZ=0)&(XU4>0) DUZ=XU4 Q:DUZ'>0"
^XMB(3.9,164,2,783,0)="""RTN"",""XUSRB"",53,0)"
^XMB(3.9,164,2,784,0)=" S U=""^"",XU2=$P(XU1,U,2),XU3=$P(XU1,U,3),XU1=$P(XU1,U)"
^XMB(3.9,164,2,785,0)="""RTN"",""XUSRB"",54,0)"
^XMB(3.9,164,2,786,0)=" S XU1=$$DECRYP^XUSRB1(XU1),XU2=$$DECRYP^XUSRB1(XU2),XU3=$$DECRYP^XUSRB1(XU3)"
^XMB(3.9,164,2,787,0)="""RTN"",""XUSRB"",55,0)"
^XMB(3.9,164,2,788,0)=" S XU3=$$BRCVC^XUS2(XU1,XU2),RET(0)=+XU3,RET(1)=$P(XU3,U,2,9)"
^XMB(3.9,164,2,789,0)="""RTN"",""XUSRB"",56,0)"
^XMB(3.9,164,2,790,0)=" I XU3>0 S DUZ=0 ;Clean-up if not changed."
^XMB(3.9,164,2,791,0)="""RTN"",""XUSRB"",57,0)"
^XMB(3.9,164,2,792,0)=" I 'XU3,XU4 D KILL^XWBSEC(""XUS DUZ""),POST2"
^XMB(3.9,164,2,793,0)="""RTN"",""XUSRB"",58,0)"
^XMB(3.9,164,2,794,0)=" Q"
^XMB(3.9,164,2,795,0)="""RTN"",""XUSRB"",59,0)"
^XMB(3.9,164,2,796,0)=" ;"
^XMB(3.9,164,2,797,0)="""RTN"",""XUSRB"",60,0)"
^XMB(3.9,164,2,798,0)="SHOWPOST() ;EF. Check if should send the POST SIGN-ON msg."
^XMB(3.9,164,2,799,0)="""RTN"",""XUSRB"",61,0)"
^XMB(3.9,164,2,800,0)=" Q +$P($G(^XTV(8989.3,1,""XWB"")),""^"",2)"
^XMB(3.9,164,2,801,0)="""RTN"",""XUSRB"",62,0)"
^XMB(3.9,164,2,802,0)=" ;"
^XMB(3.9,164,2,803,0)="""RTN"",""XUSRB"",63,0)"
^XMB(3.9,164,2,804,0)="POST(CVC) ;Finish setup partition, I CVC don't log yet"
^XMB(3.9,164,2,805,0)="""RTN"",""XUSRB"",64,0)"
^XMB(3.9,164,2,806,0)=" N X,XUM,XUDIV S:$D(IO)[0 IO=$I S IO(0)=IO"
^XMB(3.9,164,2,807,0)="""RTN"",""XUSRB"",65,0)"
^XMB(3.9,164,2,808,0)=" K ^UTILITY($J),^TMP($J)"
^XMB(3.9,164,2,809,0)="""RTN"",""XUSRB"",66,0)"
^XMB(3.9,164,2,810,0)=" I '$D(XUSER(0)),DUZ D USER^XUS(DUZ)"
^XMB(3.9,164,2,811,0)="""RTN"",""XUSRB"",67,0)"
^XMB(3.9,164,2,812,0)=" S XUM=$$USER^XUS1A Q:XUM>0 XUM ;User can't sign on for some reason."
^XMB(3.9,164,2,813,0)="""RTN"",""XUSRB"",68,0)"
^XMB(3.9,164,2,814,0)=" S RET(5)=0 ;The next line sends the post sign-on msg"
^XMB(3.9,164,2,815,0)="""RTN"",""XUSRB"",69,0)"
^XMB(3.9,164,2,816,0)=" F %=1:1 Q:'$D(XUTEXT(%))  S RET(5+%)=$E(XUTEXT(%),2,256),RET(5)=%"
^XMB(3.9,164,2,817,0)="""RTN"",""XUSRB"",70,0)"
^XMB(3.9,164,2,818,0)=" I '$$SHOWPOST S RET(5)=0 ;This line stops the sending/display of the msg."
^XMB(3.9,164,2,819,0)="""RTN"",""XUSRB"",71,0)"
^XMB(3.9,164,2,820,0)=" D:'$G(CVC) POST2"
^XMB(3.9,164,2,821,0)="""RTN"",""XUSRB"",72,0)"
^XMB(3.9,164,2,822,0)=" Q 0"
^XMB(3.9,164,2,823,0)="""RTN"",""XUSRB"",73,0)"
^XMB(3.9,164,2,824,0)=" ;"
^XMB(3.9,164,2,825,0)="""RTN"",""XUSRB"",74,0)"
^XMB(3.9,164,2,826,0)="POST2 D:'$D(XUNOW) NOW"
^XMB(3.9,164,2,827,0)="""RTN"",""XUSRB"",75,0)"
^XMB(3.9,164,2,828,0)=" D DUZ^XUS1A,SAVE^XUS1,LOG^XUS1,ABT^XQ12"
^XMB(3.9,164,2,829,0)="""RTN"",""XUSRB"",76,0)"
^XMB(3.9,164,2,830,0)=" D KILL^XWBSEC(""XUS XOPT""),CLRFAC^XUS3($G(IO(""IP""))) ;p265"
^XMB(3.9,164,2,831,0)="""RTN"",""XUSRB"",77,0)"
^XMB(3.9,164,2,832,0)=" I $T(SETTIME^XWBTCPC)]"""" D SETTIME^XWBTCPC() ;Clear sign-on time-out"
^XMB(3.9,164,2,833,0)="""RTN"",""XUSRB"",78,0)"
^XMB(3.9,164,2,834,0)=" K:$G(XWBVER)<1.106 XQY,XQY0 ;Delete the sign-on context."
^XMB(3.9,164,2,835,0)="""RTN"",""XUSRB"",79,0)"
^XMB(3.9,164,2,836,0)=" K XUTEXT,XOPT,XUEON,XUEOFF,XUTT,XUDEV,XUSER"
^XMB(3.9,164,2,837,0)="""RTN"",""XUSRB"",80,0)"
^XMB(3.9,164,2,838,0)=" Q"
^XMB(3.9,164,2,839,0)="""RTN"",""XUSRB"",81,0)"
^XMB(3.9,164,2,840,0)=" ;"
^XMB(3.9,164,2,841,0)="""RTN"",""XUSRB"",82,0)"
^XMB(3.9,164,2,842,0)="INHIBIT() ;Is Logon to this system Inhibited?"
^XMB(3.9,164,2,843,0)="""RTN"",""XUSRB"",83,0)"
^XMB(3.9,164,2,844,0)=" I $$INHIB1() Q 1"
^XMB(3.9,164,2,845,0)="""RTN"",""XUSRB"",84,0)"
^XMB(3.9,164,2,846,0)=" I $$INHIB2() Q 2"
^XMB(3.9,164,2,847,0)="""RTN"",""XUSRB"",85,0)"
^XMB(3.9,164,2,848,0)=" Q 0"
^XMB(3.9,164,2,849,0)="""RTN"",""XUSRB"",86,0)"
^XMB(3.9,164,2,850,0)=" ;"
^XMB(3.9,164,2,851,0)="""RTN"",""XUSRB"",87,0)"
^XMB(3.9,164,2,852,0)="INHIB1() ;The LOGON check"
^XMB(3.9,164,2,853,0)="""RTN"",""XUSRB"",88,0)"
^XMB(3.9,164,2,854,0)=" I $G(^%ZIS(14.5,""LOGON"",XQVOL)) Q 1"
^XMB(3.9,164,2,855,0)="""RTN"",""XUSRB"",89,0)"
^XMB(3.9,164,2,856,0)=" Q 0"
^XMB(3.9,164,2,857,0)="""RTN"",""XUSRB"",90,0)"
^XMB(3.9,164,2,858,0)=" ;"
^XMB(3.9,164,2,859,0)="""RTN"",""XUSRB"",91,0)"
^XMB(3.9,164,2,860,0)="INHIB2() ;The Max User Check"
^XMB(3.9,164,2,861,0)="""RTN"",""XUSRB"",92,0)"
^XMB(3.9,164,2,862,0)=" I $D(^%ZOSF(""ACTJ"")) X ^(""ACTJ"") I $P(XUVOL,U,3),($P(XUVOL,U,3)'>Y) Q 2"
^XMB(3.9,164,2,863,0)="""RTN"",""XUSRB"",93,0)"
^XMB(3.9,164,2,864,0)=" Q 0"
^XMB(3.9,164,2,865,0)="""RTN"",""XUSRB"",94,0)"
^XMB(3.9,164,2,866,0)=" ;"
^XMB(3.9,164,2,867,0)="""RTN"",""XUSRB"",95,0)"
^XMB(3.9,164,2,868,0)="LOGOUT ;Finish logout of user."
^XMB(3.9,164,2,869,0)="""RTN"",""XUSRB"",96,0)"
^XMB(3.9,164,2,870,0)=" N XU1"
^XMB(3.9,164,2,871,0)="""RTN"",""XUSRB"",97,0)"
^XMB(3.9,164,2,872,0)=" D CLEARALL^XWBDRPC(.XU1)"
^XMB(3.9,164,2,873,0)="""RTN"",""XUSRB"",98,0)"
^XMB(3.9,164,2,874,0)=" ;Remove CCOW sign-on data"
^XMB(3.9,164,2,875,0)="""RTN"",""XUSRB"",99,0)"
^XMB(3.9,164,2,876,0)=" S HDL=$G(^XUTL(""XQ"",$J,""HDL"")) I $L(HDL) D"
^XMB(3.9,164,2,877,0)="""RTN"",""XUSRB"",100,0)"
^XMB(3.9,164,2,878,0)=" . K ^XTMP(HDL,""JOB"",$J)"
^XMB(3.9,164,2,879,0)="""RTN"",""XUSRB"",101,0)"
^XMB(3.9,164,2,880,0)=" . I $O(^XTMP(HDL,""JOB"",0))="""" K ^XTMP(HDL)"
^XMB(3.9,164,2,881,0)="""RTN"",""XUSRB"",102,0)"
^XMB(3.9,164,2,882,0)=" ;"
^XMB(3.9,164,2,883,0)="""RTN"",""XUSRB"",103,0)"
^XMB(3.9,164,2,884,0)=" D BYE^XUSCLEAN,XUTL^XUSCLEAN ;Mark the sign-on log, File cleanup."
^XMB(3.9,164,2,885,0)="""RTN"",""XUSRB"",104,0)"
^XMB(3.9,164,2,886,0)=" Q"
^XMB(3.9,164,2,887,0)="""RTN"",""XUSRB"",105,0)"
^XMB(3.9,164,2,888,0)=" ;D1,D2 are place holders for now"
^XMB(3.9,164,2,889,0)="""RTN"",""XUSRB"",106,0)"
^XMB(3.9,164,2,890,0)="SETUP(RET,XWBUSRNM,ASOSKIP,D2) ;sets up environment for GUI signon"
^XMB(3.9,164,2,891,0)="""RTN"",""XUSRB"",107,0)"
^XMB(3.9,164,2,892,0)=" K DUZ"
^XMB(3.9,164,2,893,0)="""RTN"",""XUSRB"",108,0)"
^XMB(3.9,164,2,894,0)=" S XWBUSRNM=$G(XWBUSRNM),ASOSKIP=$G(ASOSKIP)"
^XMB(3.9,164,2,895,0)="""RTN"",""XUSRB"",109,0)"
^XMB(3.9,164,2,896,0)=" I $L($G(XWBTIP)) S IO(""IP"")=XWBTIP"
^XMB(3.9,164,2,897,0)="""RTN"",""XUSRB"",110,0)"
^XMB(3.9,164,2,898,0)=" S IO(""CLNM"")=$$LOW^XLFSTR($G(XWBCLMAN)) D ZIO^%ZIS4"
^XMB(3.9,164,2,899,0)="""RTN"",""XUSRB"",111,0)"
^XMB(3.9,164,2,900,0)=" ;Setup needed variables"
^XMB(3.9,164,2,901,0)="""RTN"",""XUSRB"",112,0)"
^XMB(3.9,164,2,902,0)=" D SET1^XUS(0),SET^XWBSEC(""XUS XOPT"",XOPT) ;p265"
^XMB(3.9,164,2,903,0)="""RTN"",""XUSRB"",113,0)"
^XMB(3.9,164,2,904,0)=" ;I '$D(IO(""HOME"")) S %ZIS=""0H"",IOP=""NULL"" D ^%ZIS ;Setup NULL as the home device"
^XMB(3.9,164,2,905,0)="""RTN"",""XUSRB"",114,0)"
^XMB(3.9,164,2,906,0)=" D SAVE^XUS1 ;save the home device"
^XMB(3.9,164,2,907,0)="""RTN"",""XUSRB"",115,0)"
^XMB(3.9,164,2,908,0)=" ;0=server name, 1=volume, 2=uci, 3=device, 4=# attempts, 5=skip signon-screen,6=Domain Name, 7=Production (0=no, 1=Yes)"
^XMB(3.9,164,2,909,0)="""RTN"",""XUSRB"",116,0)"
^XMB(3.9,164,2,910,0)=" S RET(0)=$P(XUENV,U,3),RET(1)=$P(XUVOL,U),RET(2)=XUCI"
^XMB(3.9,164,2,911,0)="""RTN"",""XUSRB"",117,0)"
^XMB(3.9,164,2,912,0)=" S RET(3)=$I,RET(4)=$P(XOPT,U,2),RET(5)=0"
^XMB(3.9,164,2,913,0)="""RTN"",""XUSRB"",118,0)"
^XMB(3.9,164,2,914,0)=" S RET(6)=$G(^XMB(""NETNAME"")) ;DBIA #1131"
^XMB(3.9,164,2,915,0)="""RTN"",""XUSRB"",119,0)"
^XMB(3.9,164,2,916,0)=" S RET(7)=$$PROD^XUPROD ;Tell if production."
^XMB(3.9,164,2,917,0)="""RTN"",""XUSRB"",120,0)"
^XMB(3.9,164,2,918,0)=" I $$INHIBIT() Q"
^XMB(3.9,164,2,919,0)="""RTN"",""XUSRB"",121,0)"
^XMB(3.9,164,2,920,0)=" ; Code for DBA Capri Type Program"
^XMB(3.9,164,2,921,0)="""RTN"",""XUSRB"",122,0)"
^XMB(3.9,164,2,922,0)=" I (+XWBUSRNM<-30),$$CHKUSER^XUSBSE1(XWBUSRNM) S RET(5)=1 Q  ; BSE CHANGE"
^XMB(3.9,164,2,923,0)="""RTN"",""XUSRB"",123,0)"
^XMB(3.9,164,2,924,0)=" ; End of Code for DBA Capri Program"
^XMB(3.9,164,2,925,0)="""RTN"",""XUSRB"",124,0)"
^XMB(3.9,164,2,926,0)=" ;Auto sign-on check only for Broker v1.1"
^XMB(3.9,164,2,927,0)="""RTN"",""XUSRB"",125,0)"
^XMB(3.9,164,2,928,0)=" I $G(ASOSKIP) S XQXFLG(""ASO"")=1 ;Skip the ASO check"
^XMB(3.9,164,2,929,0)="""RTN"",""XUSRB"",126,0)"
^XMB(3.9,164,2,930,0)=" I $G(XWBVER)<1.1 S XQXFLG(""ZEBRA"")=-1 ;Disable for v1.0"
^XMB(3.9,164,2,931,0)="""RTN"",""XUSRB"",127,0)"
^XMB(3.9,164,2,932,0)=" I $L(IO(""CLNM"")) S DUZ=$$AUTOXWB^XUS1B() ;Only check when 1.1 CL."
^XMB(3.9,164,2,933,0)="""RTN"",""XUSRB"",128,0)"
^XMB(3.9,164,2,934,0)=" I DUZ>0 D NOW S XUMSG=$$POST(0) I XUMSG>0 S DUZ=0"
^XMB(3.9,164,2,935,0)="""RTN"",""XUSRB"",129,0)"
^XMB(3.9,164,2,936,0)=" S:DUZ>0 RET(5)=1"
^XMB(3.9,164,2,937,0)="""RTN"",""XUSRB"",130,0)"
^XMB(3.9,164,2,938,0)=" Q"
^XMB(3.9,164,2,939,0)="""RTN"",""XUSRB"",131,0)"
^XMB(3.9,164,2,940,0)=" ;"
^XMB(3.9,164,2,941,0)="""RTN"",""XUSRB"",132,0)"
^XMB(3.9,164,2,942,0)="OWNSKEY(RET,LIST,IEN) ;Does user have Key"
^XMB(3.9,164,2,943,0)="""RTN"",""XUSRB"",133,0)"
^XMB(3.9,164,2,944,0)=" N I,K S I="""""
^XMB(3.9,164,2,945,0)="""RTN"",""XUSRB"",134,0)"
^XMB(3.9,164,2,946,0)=" I $G(IEN)'>0 S IEN=$G(DUZ)"
^XMB(3.9,164,2,947,0)="""RTN"",""XUSRB"",135,0)"
^XMB(3.9,164,2,948,0)=" I $G(IEN)'>0 S RET(0)=0 Q"
^XMB(3.9,164,2,949,0)="""RTN"",""XUSRB"",136,0)"
^XMB(3.9,164,2,950,0)=" I $O(LIST(""""))="""" S RET(0)=$$KCHK(LIST,IEN) Q"
^XMB(3.9,164,2,951,0)="""RTN"",""XUSRB"",137,0)"
^XMB(3.9,164,2,952,0)=" F  S I=$O(LIST(I)) Q:I=""""  S RET(I)=$$KCHK(LIST(I),IEN)"
^XMB(3.9,164,2,953,0)="""RTN"",""XUSRB"",138,0)"
^XMB(3.9,164,2,954,0)=" Q"
^XMB(3.9,164,2,955,0)="""RTN"",""XUSRB"",139,0)"
^XMB(3.9,164,2,956,0)=" ;"
^XMB(3.9,164,2,957,0)="""RTN"",""XUSRB"",140,0)"
^XMB(3.9,164,2,958,0)="KCHK(%,IEN) ;Key Check"
^XMB(3.9,164,2,959,0)="""RTN"",""XUSRB"",141,0)"
^XMB(3.9,164,2,960,0)=" S:$G(IEN)'>0 IEN=$G(DUZ) Q $S($G(IEN)>0:$D(^XUSEC(%,IEN)),1:0)"
^XMB(3.9,164,2,961,0)="""RTN"",""XUSRB"",142,0)"
^XMB(3.9,164,2,962,0)=" ;"
^XMB(3.9,164,2,963,0)="""RTN"",""XUSRB"",143,0)"
^XMB(3.9,164,2,964,0)="ALLKEYS(RET,IEN,FLG) ;Return ALL or most KEYS that a user has."
^XMB(3.9,164,2,965,0)="""RTN"",""XUSRB"",144,0)"
^XMB(3.9,164,2,966,0)=" N I,J,K,L K ^TMP(""XU"",$J)"
^XMB(3.9,164,2,967,0)="""RTN"",""XUSRB"",145,0)"
^XMB(3.9,164,2,968,0)=" S RET=$NA(^TMP(""XU"",$J))"
^XMB(3.9,164,2,969,0)="""RTN"",""XUSRB"",146,0)"
^XMB(3.9,164,2,970,0)=" S:'$D(IEN) IEN=DUZ I IEN'>0 S @RET@(0)=-1 Q"
^XMB(3.9,164,2,971,0)="""RTN"",""XUSRB"",147,0)"
^XMB(3.9,164,2,972,0)=" S I=0,L=0"
^XMB(3.9,164,2,973,0)="""RTN"",""XUSRB"",148,0)"
^XMB(3.9,164,2,974,0)=" F  S I=$O(^VA(200,IEN,51,I)) Q:I'>0  S K=$G(^DIC(19.1,I,0)) D"
^XMB(3.9,164,2,975,0)="""RTN"",""XUSRB"",149,0)"
^XMB(3.9,164,2,976,0)=" . Q:'$P(K,U,5)  ;Check 'Send to J2EE' field."
^XMB(3.9,164,2,977,0)="""RTN"",""XUSRB"",150,0)"
^XMB(3.9,164,2,978,0)=" . S L=L+1,@RET@(L,0)=$P(K,U,1)"
^XMB(3.9,164,2,979,0)="""RTN"",""XUSRB"",151,0)"
^XMB(3.9,164,2,980,0)=" . Q"
^XMB(3.9,164,2,981,0)="""RTN"",""XUSRB"",152,0)"
^XMB(3.9,164,2,982,0)=" Q"
^XMB(3.9,164,2,983,0)="""RTN"",""XUSRB"",153,0)"
^XMB(3.9,164,2,984,0)=" ;"
^XMB(3.9,164,2,985,0)="""RTN"",""XUSRB"",154,0)"
^XMB(3.9,164,2,986,0)="AVHELP(RET) ; send access/verify code instructions."
^XMB(3.9,164,2,987,0)="""RTN"",""XUSRB"",155,0)"
^XMB(3.9,164,2,988,0)=" S RET(0)=$$AVHLPTXT^XUS2()"
^XMB(3.9,164,2,989,0)="""RTN"",""XUSRB"",156,0)"
^XMB(3.9,164,2,990,0)=" Q"
^XMB(3.9,164,2,991,0)="""RTN"",""XUSRB"",157,0)"
^XMB(3.9,164,2,992,0)=" ;"
^XMB(3.9,164,2,993,0)="""RTN"",""XUSRB"",158,0)"
^XMB(3.9,164,2,994,0)="OPTACCES(RET,USER,OPTIONS,MODE) ;Checks or sets user's access for passed in options"
^XMB(3.9,164,2,995,0)="""RTN"",""XUSRB"",159,0)"
^XMB(3.9,164,2,996,0)=" S MODE=""CHECK"" ;only CHECK mode supported for now"
^XMB(3.9,164,2,997,0)="""RTN"",""XUSRB"",160,0)"
^XMB(3.9,164,2,998,0)=" N I S I="""""
^XMB(3.9,164,2,999,0)="""RTN"",""XUSRB"",161,0)"
^XMB(3.9,164,2,1000,0)=" I $G(USER)'>0 S RET(0)=0 Q"
^XMB(3.9,164,2,1001,0)="""RTN"",""XUSRB"",162,0)"
^XMB(3.9,164,2,1002,0)=" F  S I=$O(OPTIONS(I)) Q:I=""""  S RET(I)=$$CHK^XQCS(USER,OPTIONS(I))=1"
^XMB(3.9,164,2,1003,0)="""RTN"",""XUSRB"",163,0)"
^XMB(3.9,164,2,1004,0)=" Q"
^XMB(3.9,164,2,1005,0)="""RTN"",""XUSRB"",164,0)"
^XMB(3.9,164,2,1006,0)=" ;"
^XMB(3.9,164,2,1007,0)="""RTN"",""XUSRB"",165,0)"
^XMB(3.9,164,2,1008,0)="CHECKAV(AVC) ;SR. EF. to check an A/V code, Separate w/ "";"", return IEN or 0"
^XMB(3.9,164,2,1009,0)="""RTN"",""XUSRB"",166,0)"
^XMB(3.9,164,2,1010,0)=" N XUF,XUSER S XUF=0,U=""^"""
^XMB(3.9,164,2,1011,0)="""RTN"",""XUSRB"",167,0)"
^XMB(3.9,164,2,1012,0)=" Q $$CHECKAV^XUS(AVC)"
^XMB(3.9,164,2,1013,0)="""VER"")"
^XMB(3.9,164,2,1014,0)="8.0^22.0"
^XMB(3.9,164,2,1015,0)="""BLD"",940,6)"
^XMB(3.9,164,2,1016,0)="^346"
^XMB(3.9,164,2,1017,0)="$END KID XU*8.0*404"
^XMB(3.9,164,6,0)="^3.911A^2^2"
^XMB(3.9,164,6,1,0)="POSTMASTER"
^XMB(3.9,164,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,164,6,"B","POSTMASTER",1)=""
^XMB(3.9,164,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,165,0)="XU-8_SEQ-347_PAT-393.KID^.5^3061008.015744^^^^K"
^XMB(3.9,165,.6)="3061008"
^XMB(3.9,165,1,0)="^3.91A^2^2"
^XMB(3.9,165,1,1,0)=".5^0^3061008.015744^^^^^^^3061008.015744"
^XMB(3.9,165,1,2,0)="1^0^3061008.022929^^^^^^^3061008.022929"
^XMB(3.9,165,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,165,1,"C",.5,1)=""
^XMB(3.9,165,1,"C",1,2)=""
^XMB(3.9,165,2,0)="^^3249^3249^3061008"
^XMB(3.9,165,2,1,0)="$TXT Released XU*8*393 SEQ #347"
^XMB(3.9,165,2,2,0)="Extracted from mail message"
^XMB(3.9,165,2,3,0)="$END TXT"
^XMB(3.9,165,2,4,0)="$KID XU*8.0*393"
^XMB(3.9,165,2,5,0)="**INSTALL NAME**"
^XMB(3.9,165,2,6,0)="XU*8.0*393"
^XMB(3.9,165,2,7,0)="""BLD"",900,0)"
^XMB(3.9,165,2,8,0)="XU*8.0*393^KERNEL^0^3060905^y"
^XMB(3.9,165,2,9,0)="""BLD"",900,1,0)"
^XMB(3.9,165,2,10,0)="^^2^2^3051101^"
^XMB(3.9,165,2,11,0)="""BLD"",900,1,1,0)"
^XMB(3.9,165,2,12,0)="XU*8*393  KIDS HFS checksums to FORUM."
^XMB(3.9,165,2,13,0)="""BLD"",900,1,2,0)"
^XMB(3.9,165,2,14,0)="Please refer to the Description in the FORUM Patch Module for details."
^XMB(3.9,165,2,15,0)="""BLD"",900,4,0)"
^XMB(3.9,165,2,16,0)="^9.64PA^9.4^3"
^XMB(3.9,165,2,17,0)="""BLD"",900,4,9.4,0)"
^XMB(3.9,165,2,18,0)="9.4"
^XMB(3.9,165,2,19,0)="""BLD"",900,4,9.4,2,0)"
^XMB(3.9,165,2,20,0)="^9.641^9.4901^1"
^XMB(3.9,165,2,21,0)="""BLD"",900,4,9.4,2,9.4901,0)"
^XMB(3.9,165,2,22,0)="PATCH APPLICATION HISTORY  (sub-file)"
^XMB(3.9,165,2,23,0)="""BLD"",900,4,9.4,2,9.4901,1,0)"
^XMB(3.9,165,2,24,0)="^9.6411^.02^1"
^XMB(3.9,165,2,25,0)="""BLD"",900,4,9.4,2,9.4901,1,.02,0)"
^XMB(3.9,165,2,26,0)="DATE APPLIED"
^XMB(3.9,165,2,27,0)="""BLD"",900,4,9.4,222)"
^XMB(3.9,165,2,28,0)="y^n^p^^^^n^^n"
^XMB(3.9,165,2,29,0)="""BLD"",900,4,9.4,224)"
^XMB(3.9,165,2,30,0)=""
^XMB(3.9,165,2,31,0)="""BLD"",900,4,9.6,0)"
^XMB(3.9,165,2,32,0)="9.6"
^XMB(3.9,165,2,33,0)="""BLD"",900,4,9.6,2,0)"
^XMB(3.9,165,2,34,0)="^9.641^9.6^1"
^XMB(3.9,165,2,35,0)="""BLD"",900,4,9.6,2,9.6,0)"
^XMB(3.9,165,2,36,0)="BUILD  (File-top level)"
^XMB(3.9,165,2,37,0)="""BLD"",900,4,9.6,2,9.6,1,0)"
^XMB(3.9,165,2,38,0)="^9.6411^63^1"
^XMB(3.9,165,2,39,0)="""BLD"",900,4,9.6,2,9.6,1,63,0)"
^XMB(3.9,165,2,40,0)="Transport Build Number"
^XMB(3.9,165,2,41,0)="""BLD"",900,4,9.6,222)"
^XMB(3.9,165,2,42,0)="y^y^p^^^^n^^n"
^XMB(3.9,165,2,43,0)="""BLD"",900,4,9.6,224)"
^XMB(3.9,165,2,44,0)=""
^XMB(3.9,165,2,45,0)="""BLD"",900,4,9.8,0)"
^XMB(3.9,165,2,46,0)="9.8"
^XMB(3.9,165,2,47,0)="""BLD"",900,4,9.8,2,0)"
^XMB(3.9,165,2,48,0)="^9.641^9.818^3"
^XMB(3.9,165,2,49,0)="""BLD"",900,4,9.8,2,9.8,0)"
^XMB(3.9,165,2,50,0)="ROUTINE  (File-top level)"
^XMB(3.9,165,2,51,0)="""BLD"",900,4,9.8,2,9.8,1,0)"
^XMB(3.9,165,2,52,0)="^9.6411^7.2^4"
^XMB(3.9,165,2,53,0)="""BLD"",900,4,9.8,2,9.8,1,6,0)"
^XMB(3.9,165,2,54,0)="CHECKSUM REPORT"
^XMB(3.9,165,2,55,0)="""BLD"",900,4,9.8,2,9.8,1,6.1,0)"
^XMB(3.9,165,2,56,0)="LOCALLY MODIFIED"
^XMB(3.9,165,2,57,0)="""BLD"",900,4,9.8,2,9.8,1,6.2,0)"
^XMB(3.9,165,2,58,0)="DELETED BY PATCH"
^XMB(3.9,165,2,59,0)="""BLD"",900,4,9.8,2,9.8,1,7.2,0)"
^XMB(3.9,165,2,60,0)="CHECKSUM VALUE"
^XMB(3.9,165,2,61,0)="""BLD"",900,4,9.8,2,9.818,0)"
^XMB(3.9,165,2,62,0)="PATCH  (sub-file)"
^XMB(3.9,165,2,63,0)="""BLD"",900,4,9.8,2,9.818,1,0)"
^XMB(3.9,165,2,64,0)="^9.6411^^"
^XMB(3.9,165,2,65,0)="""BLD"",900,4,9.8,2,9.819,0)"
^XMB(3.9,165,2,66,0)="DEV PATCH  (sub-file)"
^XMB(3.9,165,2,67,0)="""BLD"",900,4,9.8,2,9.819,1,0)"
^XMB(3.9,165,2,68,0)="^9.6411^^"
^XMB(3.9,165,2,69,0)="""BLD"",900,4,9.8,222)"
^XMB(3.9,165,2,70,0)="y^y^p^^^^n^^n"
^XMB(3.9,165,2,71,0)="""BLD"",900,4,9.8,224)"
^XMB(3.9,165,2,72,0)=""
^XMB(3.9,165,2,73,0)="""BLD"",900,4,""APDD"",9.4,9.4901)"
^XMB(3.9,165,2,74,0)=""
^XMB(3.9,165,2,75,0)="""BLD"",900,4,""APDD"",9.4,9.4901,.02)"
^XMB(3.9,165,2,76,0)=""
^XMB(3.9,165,2,77,0)="""BLD"",900,4,""APDD"",9.6,9.6)"
^XMB(3.9,165,2,78,0)=""
^XMB(3.9,165,2,79,0)="""BLD"",900,4,""APDD"",9.6,9.6,63)"
^XMB(3.9,165,2,80,0)=""
^XMB(3.9,165,2,81,0)="""BLD"",900,4,""APDD"",9.8,9.8)"
^XMB(3.9,165,2,82,0)=""
^XMB(3.9,165,2,83,0)="""BLD"",900,4,""APDD"",9.8,9.8,6)"
^XMB(3.9,165,2,84,0)=""
^XMB(3.9,165,2,85,0)="""BLD"",900,4,""APDD"",9.8,9.8,6.1)"
^XMB(3.9,165,2,86,0)=""
^XMB(3.9,165,2,87,0)="""BLD"",900,4,""APDD"",9.8,9.8,6.2)"
^XMB(3.9,165,2,88,0)=""
^XMB(3.9,165,2,89,0)="""BLD"",900,4,""APDD"",9.8,9.8,7.2)"
^XMB(3.9,165,2,90,0)=""
^XMB(3.9,165,2,91,0)="""BLD"",900,4,""APDD"",9.8,9.818)"
^XMB(3.9,165,2,92,0)=""
^XMB(3.9,165,2,93,0)="""BLD"",900,4,""APDD"",9.8,9.819)"
^XMB(3.9,165,2,94,0)=""
^XMB(3.9,165,2,95,0)="""BLD"",900,4,""B"",9.4,9.4)"
^XMB(3.9,165,2,96,0)=""
^XMB(3.9,165,2,97,0)="""BLD"",900,4,""B"",9.6,9.6)"
^XMB(3.9,165,2,98,0)=""
^XMB(3.9,165,2,99,0)="""BLD"",900,4,""B"",9.8,9.8)"
^XMB(3.9,165,2,100,0)=""
^XMB(3.9,165,2,101,0)="""BLD"",900,6.3)"
^XMB(3.9,165,2,102,0)="12"
^XMB(3.9,165,2,103,0)="""BLD"",900,""KRN"",0)"
^XMB(3.9,165,2,104,0)="^9.67PA^8989.52^19"
^XMB(3.9,165,2,105,0)="""BLD"",900,""KRN"",.4,0)"
^XMB(3.9,165,2,106,0)=".4"
^XMB(3.9,165,2,107,0)="""BLD"",900,""KRN"",.401,0)"
^XMB(3.9,165,2,108,0)=".401"
^XMB(3.9,165,2,109,0)="""BLD"",900,""KRN"",.402,0)"
^XMB(3.9,165,2,110,0)=".402"
^XMB(3.9,165,2,111,0)="""BLD"",900,""KRN"",.403,0)"
^XMB(3.9,165,2,112,0)=".403"
^XMB(3.9,165,2,113,0)="""BLD"",900,""KRN"",.5,0)"
^XMB(3.9,165,2,114,0)=".5"
^XMB(3.9,165,2,115,0)="""BLD"",900,""KRN"",.84,0)"
^XMB(3.9,165,2,116,0)=".84"
^XMB(3.9,165,2,117,0)="""BLD"",900,""KRN"",3.6,0)"
^XMB(3.9,165,2,118,0)="3.6"
^XMB(3.9,165,2,119,0)="""BLD"",900,""KRN"",3.8,0)"
^XMB(3.9,165,2,120,0)="3.8"
^XMB(3.9,165,2,121,0)="""BLD"",900,""KRN"",9.2,0)"
^XMB(3.9,165,2,122,0)="9.2"
^XMB(3.9,165,2,123,0)="""BLD"",900,""KRN"",9.8,0)"
^XMB(3.9,165,2,124,0)="9.8"
^XMB(3.9,165,2,125,0)="""BLD"",900,""KRN"",9.8,""NM"",0)"
^XMB(3.9,165,2,126,0)="^9.68A^10^10"
^XMB(3.9,165,2,127,0)="""BLD"",900,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,165,2,128,0)="XPDT^^0^B73091341"
^XMB(3.9,165,2,129,0)="""BLD"",900,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,165,2,130,0)="XPDET^^0^B32583280"
^XMB(3.9,165,2,131,0)="""BLD"",900,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,165,2,132,0)="XPDIR^^0^B4848673"
^XMB(3.9,165,2,133,0)="""BLD"",900,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,165,2,134,0)="XPDTA^^0^B28341432"
^XMB(3.9,165,2,135,0)="""BLD"",900,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,165,2,136,0)="XPDCOM^^0^B12902115"
^XMB(3.9,165,2,137,0)="""BLD"",900,""KRN"",9.8,""NM"",6,0)"
^XMB(3.9,165,2,138,0)="XPDIP^^0^B39786511"
^XMB(3.9,165,2,139,0)="""BLD"",900,""KRN"",9.8,""NM"",7,0)"
^XMB(3.9,165,2,140,0)="XPDDCS^^0^B17950481"
^XMB(3.9,165,2,141,0)="""BLD"",900,""KRN"",9.8,""NM"",8,0)"
^XMB(3.9,165,2,142,0)="XPDR^^0^B50211509"
^XMB(3.9,165,2,143,0)="""BLD"",900,""KRN"",9.8,""NM"",9,0)"
^XMB(3.9,165,2,144,0)="XPDIST^^0^B15585220"
^XMB(3.9,165,2,145,0)="""BLD"",900,""KRN"",9.8,""NM"",10,0)"
^XMB(3.9,165,2,146,0)="XPDIA3^^0^B8738323"
^XMB(3.9,165,2,147,0)="""BLD"",900,""KRN"",9.8,""NM"",""B"",""XPDCOM"",5)"
^XMB(3.9,165,2,148,0)=""
^XMB(3.9,165,2,149,0)="""BLD"",900,""KRN"",9.8,""NM"",""B"",""XPDDCS"",7)"
^XMB(3.9,165,2,150,0)=""
^XMB(3.9,165,2,151,0)="""BLD"",900,""KRN"",9.8,""NM"",""B"",""XPDET"",2)"
^XMB(3.9,165,2,152,0)=""
^XMB(3.9,165,2,153,0)="""BLD"",900,""KRN"",9.8,""NM"",""B"",""XPDIA3"",10)"
^XMB(3.9,165,2,154,0)=""
^XMB(3.9,165,2,155,0)="""BLD"",900,""KRN"",9.8,""NM"",""B"",""XPDIP"",6)"
^XMB(3.9,165,2,156,0)=""
^XMB(3.9,165,2,157,0)="""BLD"",900,""KRN"",9.8,""NM"",""B"",""XPDIR"",3)"
^XMB(3.9,165,2,158,0)=""
^XMB(3.9,165,2,159,0)="""BLD"",900,""KRN"",9.8,""NM"",""B"",""XPDIST"",9)"
^XMB(3.9,165,2,160,0)=""
^XMB(3.9,165,2,161,0)="""BLD"",900,""KRN"",9.8,""NM"",""B"",""XPDR"",8)"
^XMB(3.9,165,2,162,0)=""
^XMB(3.9,165,2,163,0)="""BLD"",900,""KRN"",9.8,""NM"",""B"",""XPDT"",1)"
^XMB(3.9,165,2,164,0)=""
^XMB(3.9,165,2,165,0)="""BLD"",900,""KRN"",9.8,""NM"",""B"",""XPDTA"",4)"
^XMB(3.9,165,2,166,0)=""
^XMB(3.9,165,2,167,0)="""BLD"",900,""KRN"",19,0)"
^XMB(3.9,165,2,168,0)="19"
^XMB(3.9,165,2,169,0)="""BLD"",900,""KRN"",19,""NM"",0)"
^XMB(3.9,165,2,170,0)="^9.68A^1^1"
^XMB(3.9,165,2,171,0)="""BLD"",900,""KRN"",19,""NM"",1,0)"
^XMB(3.9,165,2,172,0)="XPD ROUTINE UPDATE^^0"
^XMB(3.9,165,2,173,0)="""BLD"",900,""KRN"",19,""NM"",""B"",""XPD ROUTINE UPDATE"",1)"
^XMB(3.9,165,2,174,0)=""
^XMB(3.9,165,2,175,0)="""BLD"",900,""KRN"",19.1,0)"
^XMB(3.9,165,2,176,0)="19.1"
^XMB(3.9,165,2,177,0)="""BLD"",900,""KRN"",101,0)"
^XMB(3.9,165,2,178,0)="101"
^XMB(3.9,165,2,179,0)="""BLD"",900,""KRN"",409.61,0)"
^XMB(3.9,165,2,180,0)="409.61"
^XMB(3.9,165,2,181,0)="""BLD"",900,""KRN"",771,0)"
^XMB(3.9,165,2,182,0)="771"
^XMB(3.9,165,2,183,0)="""BLD"",900,""KRN"",870,0)"
^XMB(3.9,165,2,184,0)="870"
^XMB(3.9,165,2,185,0)="""BLD"",900,""KRN"",8989.51,0)"
^XMB(3.9,165,2,186,0)="8989.51"
^XMB(3.9,165,2,187,0)="""BLD"",900,""KRN"",8989.51,""NM"",0)"
^XMB(3.9,165,2,188,0)="^9.68A^1^1"
^XMB(3.9,165,2,189,0)="""BLD"",900,""KRN"",8989.51,""NM"",1,0)"
^XMB(3.9,165,2,190,0)="XPD PATCH HFS SERVER^^0"
^XMB(3.9,165,2,191,0)="""BLD"",900,""KRN"",8989.51,""NM"",""B"",""XPD PATCH HFS SERVER"",1)"
^XMB(3.9,165,2,192,0)=""
^XMB(3.9,165,2,193,0)="""BLD"",900,""KRN"",8989.52,0)"
^XMB(3.9,165,2,194,0)="8989.52"
^XMB(3.9,165,2,195,0)="""BLD"",900,""KRN"",8994,0)"
^XMB(3.9,165,2,196,0)="8994"
^XMB(3.9,165,2,197,0)="""BLD"",900,""KRN"",""B"",.4,.4)"
^XMB(3.9,165,2,198,0)=""
^XMB(3.9,165,2,199,0)="""BLD"",900,""KRN"",""B"",.401,.401)"
^XMB(3.9,165,2,200,0)=""
^XMB(3.9,165,2,201,0)="""BLD"",900,""KRN"",""B"",.402,.402)"
^XMB(3.9,165,2,202,0)=""
^XMB(3.9,165,2,203,0)="""BLD"",900,""KRN"",""B"",.403,.403)"
^XMB(3.9,165,2,204,0)=""
^XMB(3.9,165,2,205,0)="""BLD"",900,""KRN"",""B"",.5,.5)"
^XMB(3.9,165,2,206,0)=""
^XMB(3.9,165,2,207,0)="""BLD"",900,""KRN"",""B"",.84,.84)"
^XMB(3.9,165,2,208,0)=""
^XMB(3.9,165,2,209,0)="""BLD"",900,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,165,2,210,0)=""
^XMB(3.9,165,2,211,0)="""BLD"",900,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,165,2,212,0)=""
^XMB(3.9,165,2,213,0)="""BLD"",900,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,165,2,214,0)=""
^XMB(3.9,165,2,215,0)="""BLD"",900,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,165,2,216,0)=""
^XMB(3.9,165,2,217,0)="""BLD"",900,""KRN"",""B"",19,19)"
^XMB(3.9,165,2,218,0)=""
^XMB(3.9,165,2,219,0)="""BLD"",900,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,165,2,220,0)=""
^XMB(3.9,165,2,221,0)="""BLD"",900,""KRN"",""B"",101,101)"
^XMB(3.9,165,2,222,0)=""
^XMB(3.9,165,2,223,0)="""BLD"",900,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,165,2,224,0)=""
^XMB(3.9,165,2,225,0)="""BLD"",900,""KRN"",""B"",771,771)"
^XMB(3.9,165,2,226,0)=""
^XMB(3.9,165,2,227,0)="""BLD"",900,""KRN"",""B"",870,870)"
^XMB(3.9,165,2,228,0)=""
^XMB(3.9,165,2,229,0)="""BLD"",900,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,165,2,230,0)=""
^XMB(3.9,165,2,231,0)="""BLD"",900,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,165,2,232,0)=""
^XMB(3.9,165,2,233,0)="""BLD"",900,""KRN"",""B"",8994,8994)"
^XMB(3.9,165,2,234,0)=""
^XMB(3.9,165,2,235,0)="""BLD"",900,""QUES"",0)"
^XMB(3.9,165,2,236,0)="^9.62^^"
^XMB(3.9,165,2,237,0)="""BLD"",900,""REQB"",0)"
^XMB(3.9,165,2,238,0)="^9.611^4^4"
^XMB(3.9,165,2,239,0)="""BLD"",900,""REQB"",1,0)"
^XMB(3.9,165,2,240,0)="XU*8.0*124^2"
^XMB(3.9,165,2,241,0)="""BLD"",900,""REQB"",2,0)"
^XMB(3.9,165,2,242,0)="XU*8.0*229^2"
^XMB(3.9,165,2,243,0)="""BLD"",900,""REQB"",3,0)"
^XMB(3.9,165,2,244,0)="XU*8.0*202^2"
^XMB(3.9,165,2,245,0)="""BLD"",900,""REQB"",4,0)"
^XMB(3.9,165,2,246,0)="XU*8.0*302^2"
^XMB(3.9,165,2,247,0)="""BLD"",900,""REQB"",""B"",""XU*8.0*124"",1)"
^XMB(3.9,165,2,248,0)=""
^XMB(3.9,165,2,249,0)="""BLD"",900,""REQB"",""B"",""XU*8.0*202"",3)"
^XMB(3.9,165,2,250,0)=""
^XMB(3.9,165,2,251,0)="""BLD"",900,""REQB"",""B"",""XU*8.0*229"",2)"
^XMB(3.9,165,2,252,0)=""
^XMB(3.9,165,2,253,0)="""BLD"",900,""REQB"",""B"",""XU*8.0*302"",4)"
^XMB(3.9,165,2,254,0)=""
^XMB(3.9,165,2,255,0)="""FIA"",9.4)"
^XMB(3.9,165,2,256,0)="PACKAGE"
^XMB(3.9,165,2,257,0)="""FIA"",9.4,0)"
^XMB(3.9,165,2,258,0)="^DIC(9.4,"
^XMB(3.9,165,2,259,0)="""FIA"",9.4,0,0)"
^XMB(3.9,165,2,260,0)="9.4I"
^XMB(3.9,165,2,261,0)="""FIA"",9.4,0,1)"
^XMB(3.9,165,2,262,0)="y^n^p^^^^n^^n"
^XMB(3.9,165,2,263,0)="""FIA"",9.4,0,10)"
^XMB(3.9,165,2,264,0)=""
^XMB(3.9,165,2,265,0)="""FIA"",9.4,0,11)"
^XMB(3.9,165,2,266,0)=""
^XMB(3.9,165,2,267,0)="""FIA"",9.4,0,""RLRO"")"
^XMB(3.9,165,2,268,0)=""
^XMB(3.9,165,2,269,0)="""FIA"",9.4,0,""VR"")"
^XMB(3.9,165,2,270,0)="8.0^XU"
^XMB(3.9,165,2,271,0)="""FIA"",9.4,9.4)"
^XMB(3.9,165,2,272,0)="1"
^XMB(3.9,165,2,273,0)="""FIA"",9.4,9.4901)"
^XMB(3.9,165,2,274,0)="1"
^XMB(3.9,165,2,275,0)="""FIA"",9.4,9.4901,.02)"
^XMB(3.9,165,2,276,0)=""
^XMB(3.9,165,2,277,0)="""FIA"",9.6)"
^XMB(3.9,165,2,278,0)="BUILD"
^XMB(3.9,165,2,279,0)="""FIA"",9.6,0)"
^XMB(3.9,165,2,280,0)="^XPD(9.6,"
^XMB(3.9,165,2,281,0)="""FIA"",9.6,0,0)"
^XMB(3.9,165,2,282,0)="9.6I"
^XMB(3.9,165,2,283,0)="""FIA"",9.6,0,1)"
^XMB(3.9,165,2,284,0)="y^y^p^^^^n^^n"
^XMB(3.9,165,2,285,0)="""FIA"",9.6,0,10)"
^XMB(3.9,165,2,286,0)=""
^XMB(3.9,165,2,287,0)="""FIA"",9.6,0,11)"
^XMB(3.9,165,2,288,0)=""
^XMB(3.9,165,2,289,0)="""FIA"",9.6,0,""RLRO"")"
^XMB(3.9,165,2,290,0)=""
^XMB(3.9,165,2,291,0)="""FIA"",9.6,0,""VR"")"
^XMB(3.9,165,2,292,0)="8.0^XU"
^XMB(3.9,165,2,293,0)="""FIA"",9.6,9.6)"
^XMB(3.9,165,2,294,0)="1"
^XMB(3.9,165,2,295,0)="""FIA"",9.6,9.6,63)"
^XMB(3.9,165,2,296,0)=""
^XMB(3.9,165,2,297,0)="""FIA"",9.8)"
^XMB(3.9,165,2,298,0)="ROUTINE"
^XMB(3.9,165,2,299,0)="""FIA"",9.8,0)"
^XMB(3.9,165,2,300,0)="^DIC(9.8,"
^XMB(3.9,165,2,301,0)="""FIA"",9.8,0,0)"
^XMB(3.9,165,2,302,0)="9.8"
^XMB(3.9,165,2,303,0)="""FIA"",9.8,0,1)"
^XMB(3.9,165,2,304,0)="y^y^p^^^^n^^n"
^XMB(3.9,165,2,305,0)="""FIA"",9.8,0,10)"
^XMB(3.9,165,2,306,0)=""
^XMB(3.9,165,2,307,0)="""FIA"",9.8,0,11)"
^XMB(3.9,165,2,308,0)=""
^XMB(3.9,165,2,309,0)="""FIA"",9.8,0,""RLRO"")"
^XMB(3.9,165,2,310,0)=""
^XMB(3.9,165,2,311,0)="""FIA"",9.8,0,""VR"")"
^XMB(3.9,165,2,312,0)="8.0^XU"
^XMB(3.9,165,2,313,0)="""FIA"",9.8,9.8)"
^XMB(3.9,165,2,314,0)="1"
^XMB(3.9,165,2,315,0)="""FIA"",9.8,9.8,6)"
^XMB(3.9,165,2,316,0)=""
^XMB(3.9,165,2,317,0)="""FIA"",9.8,9.8,6.1)"
^XMB(3.9,165,2,318,0)=""
^XMB(3.9,165,2,319,0)="""FIA"",9.8,9.8,6.2)"
^XMB(3.9,165,2,320,0)=""
^XMB(3.9,165,2,321,0)="""FIA"",9.8,9.8,7.2)"
^XMB(3.9,165,2,322,0)=""
^XMB(3.9,165,2,323,0)="""FIA"",9.8,9.8,8)"
^XMB(3.9,165,2,324,0)=""
^XMB(3.9,165,2,325,0)="""FIA"",9.8,9.8,9)"
^XMB(3.9,165,2,326,0)=""
^XMB(3.9,165,2,327,0)="""FIA"",9.8,9.818)"
^XMB(3.9,165,2,328,0)="0"
^XMB(3.9,165,2,329,0)="""FIA"",9.8,9.819)"
^XMB(3.9,165,2,330,0)="0"
^XMB(3.9,165,2,331,0)="""KRN"",19,238,-1)"
^XMB(3.9,165,2,332,0)="0^1"
^XMB(3.9,165,2,333,0)="""KRN"",19,238,0)"
^XMB(3.9,165,2,334,0)="XPD ROUTINE UPDATE^Update Routine File^^R^^^^^^^^"
^XMB(3.9,165,2,335,0)="""KRN"",19,238,1,0)"
^XMB(3.9,165,2,336,0)="^^6^6^3060509^"
^XMB(3.9,165,2,337,0)="""KRN"",19,238,1,1,0)"
^XMB(3.9,165,2,338,0)="This option lets you update the Routine File by adding existing routine"
^XMB(3.9,165,2,339,0)="""KRN"",19,238,1,2,0)"
^XMB(3.9,165,2,340,0)="names from the current system.  You enter the namespaces of routines to"
^XMB(3.9,165,2,341,0)="""KRN"",19,238,1,3,0)"
^XMB(3.9,165,2,342,0)="update the routine file with, and namespaces to exclude from the updating. "
^XMB(3.9,165,2,343,0)="""KRN"",19,238,1,4,0)"
^XMB(3.9,165,2,344,0)="In addition, if you ask it to, this option goes through the Routine File"
^XMB(3.9,165,2,345,0)="""KRN"",19,238,1,5,0)"
^XMB(3.9,165,2,346,0)="and deletes any local routine names that no longer exist on the system."
^XMB(3.9,165,2,347,0)="""KRN"",19,238,1,6,0)"
^XMB(3.9,165,2,348,0)="Any routine listed as national will not be removed from the file."
^XMB(3.9,165,2,349,0)="""KRN"",19,238,25)"
^XMB(3.9,165,2,350,0)="UPDT^XPDR"
^XMB(3.9,165,2,351,0)="""KRN"",19,238,""U"")"
^XMB(3.9,165,2,352,0)="UPDATE ROUTINE FILE"
^XMB(3.9,165,2,353,0)="""KRN"",8989.51,238,-1)"
^XMB(3.9,165,2,354,0)="0^1"
^XMB(3.9,165,2,355,0)="""KRN"",8989.51,238,0)"
^XMB(3.9,165,2,356,0)="XPD PATCH HFS SERVER^Patch module HFS server^0^^DHCP patch module server name"
^XMB(3.9,165,2,357,0)="""KRN"",8989.51,238,1)"
^XMB(3.9,165,2,358,0)="F^3:70^The Domain name of the Patch Module server"
^XMB(3.9,165,2,359,0)="""KRN"",8989.51,238,20,0)"
^XMB(3.9,165,2,360,0)="^8989.512^2^2^3051012^^^"
^XMB(3.9,165,2,361,0)="""KRN"",8989.51,238,20,1,0)"
^XMB(3.9,165,2,362,0)="This field holds the name of the server to send e-mail to when a KIDS HFS "
^XMB(3.9,165,2,363,0)="""KRN"",8989.51,238,20,2,0)"
^XMB(3.9,165,2,364,0)="file is made."
^XMB(3.9,165,2,365,0)="""KRN"",8989.51,238,30,0)"
^XMB(3.9,165,2,366,0)="^8989.513I^1^1"
^XMB(3.9,165,2,367,0)="""KRN"",8989.51,238,30,1,0)"
^XMB(3.9,165,2,368,0)="1^9.4"
^XMB(3.9,165,2,369,0)="""MBREQ"")"
^XMB(3.9,165,2,370,0)="0"
^XMB(3.9,165,2,371,0)="""ORD"",18,19)"
^XMB(3.9,165,2,372,0)="19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA"
^XMB(3.9,165,2,373,0)="""ORD"",18,19,0)"
^XMB(3.9,165,2,374,0)="OPTION"
^XMB(3.9,165,2,375,0)="""ORD"",20,8989.51)"
^XMB(3.9,165,2,376,0)="8989.51;20;;;PAR1E1^XPDTA2;PAR1F1^XPDIA3;PAR1E1^XPDIA3;PAR1F2^XPDIA3;;PAR1DEL^XPDIA3(%)"
^XMB(3.9,165,2,377,0)="""ORD"",20,8989.51,0)"
^XMB(3.9,165,2,378,0)="PARAMETER DEFINITION"
^XMB(3.9,165,2,379,0)="""PKG"",3,-1)"
^XMB(3.9,165,2,380,0)="1^1"
^XMB(3.9,165,2,381,0)="""PKG"",3,0)"
^XMB(3.9,165,2,382,0)="KERNEL^XU^SIGN-ON, SECURITY, MENU DRIVER, DEVICES, TASKMAN^"
^XMB(3.9,165,2,383,0)="""PKG"",3,20,0)"
^XMB(3.9,165,2,384,0)="^9.402P^^0"
^XMB(3.9,165,2,385,0)="""PKG"",3,22,0)"
^XMB(3.9,165,2,386,0)="^9.49I^1^1"
^XMB(3.9,165,2,387,0)="""PKG"",3,22,1,0)"
^XMB(3.9,165,2,388,0)="8.0^3051215^2970507^.5"
^XMB(3.9,165,2,389,0)="""PKG"",3,22,1,""PAH"",1,0)"
^XMB(3.9,165,2,390,0)="393^3060905^2"
^XMB(3.9,165,2,391,0)="""PKG"",3,22,1,""PAH"",1,1,0)"
^XMB(3.9,165,2,392,0)="^^2^2^3060905"
^XMB(3.9,165,2,393,0)="""PKG"",3,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,165,2,394,0)="XU*8*393  KIDS HFS checksums to FORUM."
^XMB(3.9,165,2,395,0)="""PKG"",3,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,165,2,396,0)="Please refer to the Description in the FORUM Patch Module for details."
^XMB(3.9,165,2,397,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,165,2,398,0)="Y"
^XMB(3.9,165,2,399,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,165,2,400,0)="^D REP^XPDH"
^XMB(3.9,165,2,401,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,165,2,402,0)="Shall I write over your |FLAG| File"
^XMB(3.9,165,2,403,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,165,2,404,0)="YES"
^XMB(3.9,165,2,405,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,165,2,406,0)="D XPF1^XPDIQ"
^XMB(3.9,165,2,407,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,165,2,408,0)="Y"
^XMB(3.9,165,2,409,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,165,2,410,0)="^D DTA^XPDH"
^XMB(3.9,165,2,411,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,165,2,412,0)="Want my data |FLAG| yours"
^XMB(3.9,165,2,413,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,165,2,414,0)="YES"
^XMB(3.9,165,2,415,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,165,2,416,0)="D XPF2^XPDIQ"
^XMB(3.9,165,2,417,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,165,2,418,0)="YO"
^XMB(3.9,165,2,419,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,165,2,420,0)="^D INHIBIT^XPDH"
^XMB(3.9,165,2,421,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,165,2,422,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,165,2,423,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,165,2,424,0)="YES"
^XMB(3.9,165,2,425,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,165,2,426,0)="D XPI1^XPDIQ"
^XMB(3.9,165,2,427,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,165,2,428,0)="PO^VA(200,:EM"
^XMB(3.9,165,2,429,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,165,2,430,0)="^D MG^XPDH"
^XMB(3.9,165,2,431,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,165,2,432,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,165,2,433,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,165,2,434,0)=""
^XMB(3.9,165,2,435,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,165,2,436,0)="D XPM1^XPDIQ"
^XMB(3.9,165,2,437,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,165,2,438,0)="Y"
^XMB(3.9,165,2,439,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,165,2,440,0)="^D MENU^XPDH"
^XMB(3.9,165,2,441,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,165,2,442,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,165,2,443,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,165,2,444,0)="YES"
^XMB(3.9,165,2,445,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,165,2,446,0)="D XPO1^XPDIQ"
^XMB(3.9,165,2,447,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,165,2,448,0)="Y"
^XMB(3.9,165,2,449,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,165,2,450,0)="^D OPT^XPDH"
^XMB(3.9,165,2,451,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,165,2,452,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,165,2,453,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,165,2,454,0)="YES"
^XMB(3.9,165,2,455,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,165,2,456,0)="D XPZ1^XPDIQ"
^XMB(3.9,165,2,457,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,165,2,458,0)="Y"
^XMB(3.9,165,2,459,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,165,2,460,0)="^D RTN^XPDH"
^XMB(3.9,165,2,461,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,165,2,462,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,165,2,463,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,165,2,464,0)="NO"
^XMB(3.9,165,2,465,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,165,2,466,0)="D XPZ2^XPDIQ"
^XMB(3.9,165,2,467,0)="""RTN"")"
^XMB(3.9,165,2,468,0)="10"
^XMB(3.9,165,2,469,0)="""RTN"",""XPDCOM"")"
^XMB(3.9,165,2,470,0)="0^5^B12902115^B12356442"
^XMB(3.9,165,2,471,0)="""RTN"",""XPDCOM"",1,0)"
^XMB(3.9,165,2,472,0)="XPDCOM ;SFISC/RSD - Compare Transport Global ;09/22/2005  574322.260552"
^XMB(3.9,165,2,473,0)="""RTN"",""XPDCOM"",2,0)"
^XMB(3.9,165,2,474,0)=" ;;8.0;KERNEL;**21,58,108,124,393**;Jul 10, 1995;Build 12"
^XMB(3.9,165,2,475,0)="""RTN"",""XPDCOM"",3,0)"
^XMB(3.9,165,2,476,0)="EN1 ;compare to current system"
^XMB(3.9,165,2,477,0)="""RTN"",""XPDCOM"",4,0)"
^XMB(3.9,165,2,478,0)=" N DIC,DIR,DIRUT,POP,XPD,XPDA,XPDC,XPDNM,XPDT,XPDST,Y,Z,%ZIS"
^XMB(3.9,165,2,479,0)="""RTN"",""XPDCOM"",5,0)"
^XMB(3.9,165,2,480,0)=" ;S DIC=""^XPD(9.7,"",DIC(0)=""AEQMZ"",DIC(""S"")=""I '$P(^(0),U,9),$D(^XTMP(""""XPDI"""",Y))"""
^XMB(3.9,165,2,481,0)="""RTN"",""XPDCOM"",6,0)"
^XMB(3.9,165,2,482,0)=" ;D ^DIC Q:Y<0  S XPDA=+Y,XPDNM=Y(0,0)"
^XMB(3.9,165,2,483,0)="""RTN"",""XPDCOM"",7,0)"
^XMB(3.9,165,2,484,0)=" S XPDST=$$LOOK^XPDI1(""I '$P(^(0),U,9),$D(^XTMP(""""XPDI"""",Y))"",1) Q:XPDST'>0"
^XMB(3.9,165,2,485,0)="""RTN"",""XPDCOM"",8,0)"
^XMB(3.9,165,2,486,0)=" S DIR(0)=""S^1:Full Comparison;2:Second line of Routines only;3:Routines only;4:Columnar Routine compare"",DIR(""A"")=""Type of Compare"",DIR(""?"")=""Enter the type of comparison."" ;rwf"
^XMB(3.9,165,2,487,0)="""RTN"",""XPDCOM"",9,0)"
^XMB(3.9,165,2,488,0)=" D ^DIR Q:$D(DTOUT)!$D(DUOUT)"
^XMB(3.9,165,2,489,0)="""RTN"",""XPDCOM"",10,0)"
^XMB(3.9,165,2,490,0)=" S XPDC=Y,Y=""JOB^XPDCOM"",Z=""Transport Global Compare"",XPD(""XPDNM"")="""",XPD(""XPDC"")="""",XPD(""XPDT("")="""""
^XMB(3.9,165,2,491,0)="""RTN"",""XPDCOM"",11,0)"
^XMB(3.9,165,2,492,0)=" D EN^XUTMDEVQ(Y,Z,.XPD)"
^XMB(3.9,165,2,493,0)="""RTN"",""XPDCOM"",12,0)"
^XMB(3.9,165,2,494,0)=" Q"
^XMB(3.9,165,2,495,0)="""RTN"",""XPDCOM"",13,0)"
^XMB(3.9,165,2,496,0)="JOB ;Loop thru XPDT"
^XMB(3.9,165,2,497,0)="""RTN"",""XPDCOM"",14,0)"
^XMB(3.9,165,2,498,0)=" N XPDIT"
^XMB(3.9,165,2,499,0)="""RTN"",""XPDCOM"",15,0)"
^XMB(3.9,165,2,500,0)=" F XPDIT=0:0 S XPDIT=$O(XPDT(XPDIT)) Q:XPDIT'>0  D COM(+XPDT(XPDIT))"
^XMB(3.9,165,2,501,0)="""RTN"",""XPDCOM"",16,0)"
^XMB(3.9,165,2,502,0)=" Q"
^XMB(3.9,165,2,503,0)="""RTN"",""XPDCOM"",17,0)"
^XMB(3.9,165,2,504,0)=" ;"
^XMB(3.9,165,2,505,0)="""RTN"",""XPDCOM"",18,0)"
^XMB(3.9,165,2,506,0)="COM(XPDA) ;XPDA=ien of package in ^XTMP(""XPDI"""
^XMB(3.9,165,2,507,0)="""RTN"",""XPDCOM"",19,0)"
^XMB(3.9,165,2,508,0)=" Q:'$D(^XTMP(""XPDI"",$G(XPDA)))"
^XMB(3.9,165,2,509,0)="""RTN"",""XPDCOM"",20,0)"
^XMB(3.9,165,2,510,0)=" S:$D(XPDT(""DA"",XPDA)) XPDNM=$P(XPDT(+XPDT(""DA"",XPDA)),U,2)"
^XMB(3.9,165,2,511,0)="""RTN"",""XPDCOM"",21,0)"
^XMB(3.9,165,2,512,0)=" D HDR,COMR(5):XPDC<4,XPDDO^XTRCMP(XPDA):XPDC=4,EN^XPDCOMG:XPDC=1 ;rwf"
^XMB(3.9,165,2,513,0)="""RTN"",""XPDCOM"",22,0)"
^XMB(3.9,165,2,514,0)=" Q"
^XMB(3.9,165,2,515,0)="""RTN"",""XPDCOM"",23,0)"
^XMB(3.9,165,2,516,0)=" ;compare routines"
^XMB(3.9,165,2,517,0)="""RTN"",""XPDCOM"",24,0)"
^XMB(3.9,165,2,518,0)="COMR(NL) ;NL=number of lines to check ahead"
^XMB(3.9,165,2,519,0)="""RTN"",""XPDCOM"",25,0)"
^XMB(3.9,165,2,520,0)=" N DL,XL,XPDI,X,XL,Y,YL"
^XMB(3.9,165,2,521,0)="""RTN"",""XPDCOM"",26,0)"
^XMB(3.9,165,2,522,0)=" S:'$G(NL) NL=5 S XPDI="""""
^XMB(3.9,165,2,523,0)="""RTN"",""XPDCOM"",27,0)"
^XMB(3.9,165,2,524,0)=" F  S XPDI=$O(^XTMP(""XPDI"",XPDA,""RTN"",XPDI)) Q:XPDI=""""  S X=$G(^(XPDI)) D"
^XMB(3.9,165,2,525,0)="""RTN"",""XPDCOM"",28,0)"
^XMB(3.9,165,2,526,0)=" .I X W:X=1 !!,""DELETE Routine: "",XPDI,! Q"
^XMB(3.9,165,2,527,0)="""RTN"",""XPDCOM"",29,0)"
^XMB(3.9,165,2,528,0)=" .S X=XPDI X ^%ZOSF(""TEST"") E  W !!,""ADD Routine: "",XPDI,! Q"
^XMB(3.9,165,2,529,0)="""RTN"",""XPDCOM"",30,0)"
^XMB(3.9,165,2,530,0)=" .W !!,"" Routine: "",XPDI"
^XMB(3.9,165,2,531,0)="""RTN"",""XPDCOM"",31,0)"
^XMB(3.9,165,2,532,0)=" .;check 2nd line only"
^XMB(3.9,165,2,533,0)="""RTN"",""XPDCOM"",32,0)"
^XMB(3.9,165,2,534,0)=" .I XPDC=2 D  Q"
^XMB(3.9,165,2,535,0)="""RTN"",""XPDCOM"",33,0)"
^XMB(3.9,165,2,536,0)=" ..S X=$G(^XTMP(""XPDI"",XPDA,""RTN"",XPDI,2,0)),Y=$T(+2^@XPDI)"
^XMB(3.9,165,2,537,0)="""RTN"",""XPDCOM"",34,0)"
^XMB(3.9,165,2,538,0)=" ..W !,""<TG> "",X,!,""<SYS>"",Y Q:X=Y!(X'[""**"")"
^XMB(3.9,165,2,539,0)="""RTN"",""XPDCOM"",35,0)"
^XMB(3.9,165,2,540,0)=" ..;check patch string"
^XMB(3.9,165,2,541,0)="""RTN"",""XPDCOM"",36,0)"
^XMB(3.9,165,2,542,0)=" ..S X=$P(X,""**"",2),XL=$L(X,"",""),Y=$P(Y,""**"",2),YL=$L(Y,"","")"
^XMB(3.9,165,2,543,0)="""RTN"",""XPDCOM"",37,0)"
^XMB(3.9,165,2,544,0)=" ..Q:X=Y"
^XMB(3.9,165,2,545,0)="""RTN"",""XPDCOM"",38,0)"
^XMB(3.9,165,2,546,0)=" ..;incoming has more patches than system, check for missing patches"
^XMB(3.9,165,2,547,0)="""RTN"",""XPDCOM"",39,0)"
^XMB(3.9,165,2,548,0)=" ..I XL>YL W:$P(X,"","",1,(XL-1))'=Y !,""*** WARNING, you are missing one or more Patches ***"" Q"
^XMB(3.9,165,2,549,0)="""RTN"",""XPDCOM"",40,0)"
^XMB(3.9,165,2,550,0)=" ..I YL>XL W !,""*** WARNING, your routine has more patches than the incoming routine ***"" Q"
^XMB(3.9,165,2,551,0)="""RTN"",""XPDCOM"",41,0)"
^XMB(3.9,165,2,552,0)=" .F %=1:1 Q:'$D(^XTMP(""XPDI"",XPDA,""RTN"",XPDI,%))"
^XMB(3.9,165,2,553,0)="""RTN"",""XPDCOM"",42,0)"
^XMB(3.9,165,2,554,0)=" .;XL=lines in routine in XTMP, DL=line in routine on disk"
^XMB(3.9,165,2,555,0)="""RTN"",""XPDCOM"",43,0)"
^XMB(3.9,165,2,556,0)=" .S XL=%-1,DL=$$LD(XPDI)"
^XMB(3.9,165,2,557,0)="""RTN"",""XPDCOM"",44,0)"
^XMB(3.9,165,2,558,0)=" .D COMP K ^TMP($J,XPDI)"
^XMB(3.9,165,2,559,0)="""RTN"",""XPDCOM"",45,0)"
^XMB(3.9,165,2,560,0)=" Q"
^XMB(3.9,165,2,561,0)="""RTN"",""XPDCOM"",46,0)"
^XMB(3.9,165,2,562,0)="COMP ;taken from XMPC routine"
^XMB(3.9,165,2,563,0)="""RTN"",""XPDCOM"",47,0)"
^XMB(3.9,165,2,564,0)=" N D1,DI,I,J,K,X1,XI,Y1"
^XMB(3.9,165,2,565,0)="""RTN"",""XPDCOM"",48,0)"
^XMB(3.9,165,2,566,0)=" S (XI,DI)=0"
^XMB(3.9,165,2,567,0)="""RTN"",""XPDCOM"",49,0)"
^XMB(3.9,165,2,568,0)=" ;check each line in the incoming routine,X1, against the routine on disk,D1"
^XMB(3.9,165,2,569,0)="""RTN"",""XPDCOM"",50,0)"
^XMB(3.9,165,2,570,0)=" F  S XI=XI+1,DI=DI+1 Q:XI>XL!(DI>DL)  D:^XTMP(""XPDI"",XPDA,""RTN"",XPDI,XI,0)'=^TMP($J,XPDI,DI,0)"
^XMB(3.9,165,2,571,0)="""RTN"",""XPDCOM"",51,0)"
^XMB(3.9,165,2,572,0)=" .S X1=^XTMP(""XPDI"",XPDA,""RTN"",XPDI,XI,0),Y1=0"
^XMB(3.9,165,2,573,0)="""RTN"",""XPDCOM"",52,0)"
^XMB(3.9,165,2,574,0)=" .;if lines are not the same, look ahead five lines in D1"
^XMB(3.9,165,2,575,0)="""RTN"",""XPDCOM"",53,0)"
^XMB(3.9,165,2,576,0)=" .F I=DI:1:$S(DI+NL<DL:DI+NL,1:DL) S D1=^TMP($J,XPDI,I,0) D  Q:Y1"
^XMB(3.9,165,2,577,0)="""RTN"",""XPDCOM"",54,0)"
^XMB(3.9,165,2,578,0)=" ..F K=1:5:26 Q:$L($E(D1,K,K+10))<7  I $F(X1,$E(D1,K,K+10))  D  Q"
^XMB(3.9,165,2,579,0)="""RTN"",""XPDCOM"",55,0)"
^XMB(3.9,165,2,580,0)=" ...;print the lines upto the line that are the same"
^XMB(3.9,165,2,581,0)="""RTN"",""XPDCOM"",56,0)"
^XMB(3.9,165,2,582,0)=" ...F J=DI:1:I-1 D WP(^TMP($J,XPDI,J,0),2)"
^XMB(3.9,165,2,583,0)="""RTN"",""XPDCOM"",57,0)"
^XMB(3.9,165,2,584,0)=" ...;quit if the lines are equal"
^XMB(3.9,165,2,585,0)="""RTN"",""XPDCOM"",58,0)"
^XMB(3.9,165,2,586,0)=" ...S DI=I,Y1=1 Q:D1=X1"
^XMB(3.9,165,2,587,0)="""RTN"",""XPDCOM"",59,0)"
^XMB(3.9,165,2,588,0)=" ...;if lines are equal, print old and new"
^XMB(3.9,165,2,589,0)="""RTN"",""XPDCOM"",60,0)"
^XMB(3.9,165,2,590,0)=" ...D WP(D1,3),WP(X1,4)"
^XMB(3.9,165,2,591,0)="""RTN"",""XPDCOM"",61,0)"
^XMB(3.9,165,2,592,0)=" .Q:Y1  D WP(X1,1) S DI=DI-1"
^XMB(3.9,165,2,593,0)="""RTN"",""XPDCOM"",62,0)"
^XMB(3.9,165,2,594,0)=" ;check remaining lines in routines"
^XMB(3.9,165,2,595,0)="""RTN"",""XPDCOM"",63,0)"
^XMB(3.9,165,2,596,0)=" I XI>XL&(DI<(DL+1)) F I=DI:1:DL D WP(^TMP($J,XPDI,I,0),2)"
^XMB(3.9,165,2,597,0)="""RTN"",""XPDCOM"",64,0)"
^XMB(3.9,165,2,598,0)=" I DI>DL&(XI<(XL+1)) F I=XI:1:XL D WP(^XTMP(""XPDI"",XPDA,""RTN"",XPDI,I,0),1)"
^XMB(3.9,165,2,599,0)="""RTN"",""XPDCOM"",65,0)"
^XMB(3.9,165,2,600,0)=" Q"
^XMB(3.9,165,2,601,0)="""RTN"",""XPDCOM"",66,0)"
^XMB(3.9,165,2,602,0)="WP(X,Y) W !,""* ""_$P(""ADD^DEL^OLD^NEW"",U,Y)_"" *  "",X"
^XMB(3.9,165,2,603,0)="""RTN"",""XPDCOM"",67,0)"
^XMB(3.9,165,2,604,0)=" Q"
^XMB(3.9,165,2,605,0)="""RTN"",""XPDCOM"",68,0)"
^XMB(3.9,165,2,606,0)=" ;load system routine into TMP global"
^XMB(3.9,165,2,607,0)="""RTN"",""XPDCOM"",69,0)"
^XMB(3.9,165,2,608,0)="LD(X) N %N,DIF,XCNP"
^XMB(3.9,165,2,609,0)="""RTN"",""XPDCOM"",70,0)"
^XMB(3.9,165,2,610,0)=" K ^TMP($J,X)"
^XMB(3.9,165,2,611,0)="""RTN"",""XPDCOM"",71,0)"
^XMB(3.9,165,2,612,0)=" S DIF=""^TMP($J,X,"",XCNP=0"
^XMB(3.9,165,2,613,0)="""RTN"",""XPDCOM"",72,0)"
^XMB(3.9,165,2,614,0)=" X ^%ZOSF(""LOAD"")"
^XMB(3.9,165,2,615,0)="""RTN"",""XPDCOM"",73,0)"
^XMB(3.9,165,2,616,0)=" Q XCNP-1"
^XMB(3.9,165,2,617,0)="""RTN"",""XPDCOM"",74,0)"
^XMB(3.9,165,2,618,0)=" ;"
^XMB(3.9,165,2,619,0)="""RTN"",""XPDCOM"",75,0)"
^XMB(3.9,165,2,620,0)="HDR S $P(XPDUL,""-"",80)="""""
^XMB(3.9,165,2,621,0)="""RTN"",""XPDCOM"",76,0)"
^XMB(3.9,165,2,622,0)=" W @IOF,""Compare "",XPDNM,"" to current site"",!"
^XMB(3.9,165,2,623,0)="""RTN"",""XPDCOM"",77,0)"
^XMB(3.9,165,2,624,0)=" I XPDC>1 W:XPDC=2 ""2nd Line of "" W ""Routines Only"",!"
^XMB(3.9,165,2,625,0)="""RTN"",""XPDCOM"",78,0)"
^XMB(3.9,165,2,626,0)=" W XPDUL,!"
^XMB(3.9,165,2,627,0)="""RTN"",""XPDCOM"",79,0)"
^XMB(3.9,165,2,628,0)=" Q"
^XMB(3.9,165,2,629,0)="""RTN"",""XPDDCS"")"
^XMB(3.9,165,2,630,0)="0^7^B17950481^B10451575"
^XMB(3.9,165,2,631,0)="""RTN"",""XPDDCS"",1,0)"
^XMB(3.9,165,2,632,0)="XPDDCS ;SFISC/RSD - Display Checksum for a package ;06/05/2006"
^XMB(3.9,165,2,633,0)="""RTN"",""XPDDCS"",2,0)"
^XMB(3.9,165,2,634,0)=" ;;8.0;KERNEL;**2,44,108,202,393**;Jul 10, 1995;Build 12"
^XMB(3.9,165,2,635,0)="""RTN"",""XPDDCS"",3,0)"
^XMB(3.9,165,2,636,0)="EN1 ;Verify checksums in Transport Global"
^XMB(3.9,165,2,637,0)="""RTN"",""XPDDCS"",4,0)"
^XMB(3.9,165,2,638,0)=" N D0,DIC,X,XPD,XPDS,XPDST,XPDT,Y,Z"
^XMB(3.9,165,2,639,0)="""RTN"",""XPDDCS"",5,0)"
^XMB(3.9,165,2,640,0)=" ;S DIC=""^XPD(9.7,"",DIC(0)=""AEQMZ"",DIC(""S"")=""I $D(^XTMP(""""XPDI"""",Y))"""
^XMB(3.9,165,2,641,0)="""RTN"",""XPDDCS"",6,0)"
^XMB(3.9,165,2,642,0)=" ;D ^DIC Q:Y<0"
^XMB(3.9,165,2,643,0)="""RTN"",""XPDDCS"",7,0)"
^XMB(3.9,165,2,644,0)=" S XPDS=""I $D(^XTMP(""""XPDI"""",Y))"""
^XMB(3.9,165,2,645,0)="""RTN"",""XPDDCS"",8,0)"
^XMB(3.9,165,2,646,0)=" S XPDST=$$LOOK^XPDI1(XPDS) Q:XPDST'>0"
^XMB(3.9,165,2,647,0)="""RTN"",""XPDDCS"",9,0)"
^XMB(3.9,165,2,648,0)=" S XPDSHW=$$ASK Q:$D(DIRUT)"
^XMB(3.9,165,2,649,0)="""RTN"",""XPDDCS"",10,0)"
^XMB(3.9,165,2,650,0)=" S XPD(""XPDT("")="""",XPD(""XPDST"")="""",XPD(""XPDSHW"")="""",X=""XUTMDEVQ"""
^XMB(3.9,165,2,651,0)="""RTN"",""XPDDCS"",11,0)"
^XMB(3.9,165,2,652,0)=" ;during Virgin install, XUTMDEVQ might not exists"
^XMB(3.9,165,2,653,0)="""RTN"",""XPDDCS"",12,0)"
^XMB(3.9,165,2,654,0)=" X ^%ZOSF(""TEST"") E  D  Q"
^XMB(3.9,165,2,655,0)="""RTN"",""XPDDCS"",13,0)"
^XMB(3.9,165,2,656,0)=" .S IOSL=99999,IOM=80,IOF=""#"",IOST="""",$Y=0 D LST1(9.7)"
^XMB(3.9,165,2,657,0)="""RTN"",""XPDDCS"",14,0)"
^XMB(3.9,165,2,658,0)=" S Y=""LST1^XPDDCS(9.7)"",Z=""Checksum Print"""
^XMB(3.9,165,2,659,0)="""RTN"",""XPDDCS"",15,0)"
^XMB(3.9,165,2,660,0)=" ;p345-rename AND* to XPD*"
^XMB(3.9,165,2,661,0)="""RTN"",""XPDDCS"",16,0)"
^XMB(3.9,165,2,662,0)=" I '$G(XPDAUTO) D EN^XUTMDEVQ(Y,Z,.XPD)"
^XMB(3.9,165,2,663,0)="""RTN"",""XPDDCS"",17,0)"
^XMB(3.9,165,2,664,0)=" I $G(XPDAUTO) S IO=XPDDEV U XPDDEV D LST1^XPDDCS(9.7)"
^XMB(3.9,165,2,665,0)="""RTN"",""XPDDCS"",18,0)"
^XMB(3.9,165,2,666,0)=" Q"
^XMB(3.9,165,2,667,0)="""RTN"",""XPDDCS"",19,0)"
^XMB(3.9,165,2,668,0)=" ;"
^XMB(3.9,165,2,669,0)="""RTN"",""XPDDCS"",20,0)"
^XMB(3.9,165,2,670,0)="ASK() ;Ask if want each routine listed"
^XMB(3.9,165,2,671,0)="""RTN"",""XPDDCS"",21,0)"
^XMB(3.9,165,2,672,0)=" N DIR"
^XMB(3.9,165,2,673,0)="""RTN"",""XPDDCS"",22,0)"
^XMB(3.9,165,2,674,0)=" I $D(XPDAUTO) Q 1"
^XMB(3.9,165,2,675,0)="""RTN"",""XPDDCS"",23,0)"
^XMB(3.9,165,2,676,0)=" S DIR(0)=""YAO"",DIR(""A"")=""Want each Routine Listed with Checksums: "",DIR(""A"",1)="""",DIR(""B"")=""Yes"""
^XMB(3.9,165,2,677,0)="""RTN"",""XPDDCS"",24,0)"
^XMB(3.9,165,2,678,0)=" D ^DIR"
^XMB(3.9,165,2,679,0)="""RTN"",""XPDDCS"",25,0)"
^XMB(3.9,165,2,680,0)=" Q Y"
^XMB(3.9,165,2,681,0)="""RTN"",""XPDDCS"",26,0)"
^XMB(3.9,165,2,682,0)=" ;"
^XMB(3.9,165,2,683,0)="""RTN"",""XPDDCS"",27,0)"
^XMB(3.9,165,2,684,0)="EN2 ;print from build (system)"
^XMB(3.9,165,2,685,0)="""RTN"",""XPDDCS"",28,0)"
^XMB(3.9,165,2,686,0)=" N D0,DIC,XPD,XPDT,XPDST,Y,Z"
^XMB(3.9,165,2,687,0)="""RTN"",""XPDDCS"",29,0)"
^XMB(3.9,165,2,688,0)=" ;S DIC=""^XPD(9.6,"",DIC(0)=""AEQMZ"""
^XMB(3.9,165,2,689,0)="""RTN"",""XPDDCS"",30,0)"
^XMB(3.9,165,2,690,0)=" ;D ^DIC Q:Y<0"
^XMB(3.9,165,2,691,0)="""RTN"",""XPDDCS"",31,0)"
^XMB(3.9,165,2,692,0)=" S XPDST=$$LOOK^XPDB1() Q:XPDST'>0"
^XMB(3.9,165,2,693,0)="""RTN"",""XPDDCS"",32,0)"
^XMB(3.9,165,2,694,0)=" S XPDSHW=$$ASK Q:$D(DIRUT)"
^XMB(3.9,165,2,695,0)="""RTN"",""XPDDCS"",33,0)"
^XMB(3.9,165,2,696,0)=" S XPD(""XPDT("")="""",XPD(""XPDSHW"")="""",Y=""LST1^XPDDCS(9.6)"",Z=""Checksum Print"""
^XMB(3.9,165,2,697,0)="""RTN"",""XPDDCS"",34,0)"
^XMB(3.9,165,2,698,0)=" ;p345-rename AND* to XPD*"
^XMB(3.9,165,2,699,0)="""RTN"",""XPDDCS"",35,0)"
^XMB(3.9,165,2,700,0)=" I '$G(XPDAUTO) D EN^XUTMDEVQ(Y,Z,.XPD)"
^XMB(3.9,165,2,701,0)="""RTN"",""XPDDCS"",36,0)"
^XMB(3.9,165,2,702,0)=" I $G(XPDAUTO) S:'$D(XPDDEV) XPDDEV=0 U XPDDEV D LST1^XPDDCS(9.6)"
^XMB(3.9,165,2,703,0)="""RTN"",""XPDDCS"",37,0)"
^XMB(3.9,165,2,704,0)=" Q"
^XMB(3.9,165,2,705,0)="""RTN"",""XPDDCS"",38,0)"
^XMB(3.9,165,2,706,0)=" ;"
^XMB(3.9,165,2,707,0)="""RTN"",""XPDDCS"",39,0)"
^XMB(3.9,165,2,708,0)="LST1(FILE) ;Print group"
^XMB(3.9,165,2,709,0)="""RTN"",""XPDDCS"",40,0)"
^XMB(3.9,165,2,710,0)=" N XPDI S XPDI=0"
^XMB(3.9,165,2,711,0)="""RTN"",""XPDDCS"",41,0)"
^XMB(3.9,165,2,712,0)=" F  S XPDI=$O(XPDT(XPDI)) Q:XPDI'>0  S D0=+XPDT(XPDI) D PNT(FILE)"
^XMB(3.9,165,2,713,0)="""RTN"",""XPDDCS"",42,0)"
^XMB(3.9,165,2,714,0)=" Q"
^XMB(3.9,165,2,715,0)="""RTN"",""XPDDCS"",43,0)"
^XMB(3.9,165,2,716,0)=" ;"
^XMB(3.9,165,2,717,0)="""RTN"",""XPDDCS"",44,0)"
^XMB(3.9,165,2,718,0)="PNT(XPDFIL) ;print"
^XMB(3.9,165,2,719,0)="""RTN"",""XPDDCS"",45,0)"
^XMB(3.9,165,2,720,0)=" N XPD0,XPDC,XPDDT,XPDE,XPDI,XPDJ,XPDPG,XPDQ,XPDUL,X"
^XMB(3.9,165,2,721,0)="""RTN"",""XPDDCS"",46,0)"
^XMB(3.9,165,2,722,0)=" Q:'$D(^XPD(XPDFIL,D0,0))  S XPD0=^(0),XPDPG=1,$P(XPDUL,""-"",IOM)="""",XPDDT=$$HTE^XLFDT($H,""1PM"")"
^XMB(3.9,165,2,723,0)="""RTN"",""XPDDCS"",47,0)"
^XMB(3.9,165,2,724,0)=" W:$E(IOST,1,2)=""C-"" @IOF D HDR"
^XMB(3.9,165,2,725,0)="""RTN"",""XPDDCS"",48,0)"
^XMB(3.9,165,2,726,0)=" W !"
^XMB(3.9,165,2,727,0)="""RTN"",""XPDDCS"",49,0)"
^XMB(3.9,165,2,728,0)=" S XPDI="""",(XPDQ,XPDE)=0"
^XMB(3.9,165,2,729,0)="""RTN"",""XPDDCS"",50,0)"
^XMB(3.9,165,2,730,0)=" ;XPDFIL=9.7  use transport global exists"
^XMB(3.9,165,2,731,0)="""RTN"",""XPDDCS"",51,0)"
^XMB(3.9,165,2,732,0)=" I XPDFIL=9.7 D"
^XMB(3.9,165,2,733,0)="""RTN"",""XPDDCS"",52,0)"
^XMB(3.9,165,2,734,0)=" .I '$D(^XTMP(""XPDI"",D0)) W !!,"" ** Transport Global doesn't exist **"" S XPDQ=1 Q"
^XMB(3.9,165,2,735,0)="""RTN"",""XPDDCS"",53,0)"
^XMB(3.9,165,2,736,0)=" .;check for missing nodes in transport global"
^XMB(3.9,165,2,737,0)="""RTN"",""XPDDCS"",54,0)"
^XMB(3.9,165,2,738,0)=" .I '$D(^XTMP(""XPDI"",D0,""BLD""))="""" W !!,"" **Transport Global corrupted, please reload **"" S XPDQ=1 Q"
^XMB(3.9,165,2,739,0)="""RTN"",""XPDDCS"",55,0)"
^XMB(3.9,165,2,740,0)=" .F XPDC=0:1 S XPDI=$O(^XTMP(""XPDI"",D0,""RTN"",XPDI)) Q:XPDI=""""  S XPDJ=$G(^(XPDI)) D  Q:XPDQ"
^XMB(3.9,165,2,741,0)="""RTN"",""XPDDCS"",56,0)"
^XMB(3.9,165,2,742,0)=" ..I XPDJ="""" W !,"" **Transport Global corrupted, please reload **"" S XPDQ=1 Q"
^XMB(3.9,165,2,743,0)="""RTN"",""XPDDCS"",57,0)"
^XMB(3.9,165,2,744,0)=" ..;if deleting at site, there is no checksum"
^XMB(3.9,165,2,745,0)="""RTN"",""XPDDCS"",58,0)"
^XMB(3.9,165,2,746,0)=" ..I +XPDJ=1 S XPDC=XPDC-1 Q"
^XMB(3.9,165,2,747,0)="""RTN"",""XPDDCS"",59,0)"
^XMB(3.9,165,2,748,0)=" ..D SUM(XPDI,$NA(^XTMP(""XPDI"",D0,""RTN"",XPDI)),$P(XPDJ,U,3),$P(XPDJ,U,4))"
^XMB(3.9,165,2,749,0)="""RTN"",""XPDDCS"",60,0)"
^XMB(3.9,165,2,750,0)=" ..S XPDQ=$$CHK(4)"
^XMB(3.9,165,2,751,0)="""RTN"",""XPDDCS"",61,0)"
^XMB(3.9,165,2,752,0)=" ;check build file"
^XMB(3.9,165,2,753,0)="""RTN"",""XPDDCS"",62,0)"
^XMB(3.9,165,2,754,0)=" E  D"
^XMB(3.9,165,2,755,0)="""RTN"",""XPDDCS"",63,0)"
^XMB(3.9,165,2,756,0)=" .F XPDC=0:1 S XPDI=$O(^XPD(9.6,D0,""KRN"",9.8,""NM"",""B"",XPDI)) Q:XPDI=""""  S XPDJ=$O(^(XPDI,0)) D  Q:XPDQ"
^XMB(3.9,165,2,757,0)="""RTN"",""XPDDCS"",64,0)"
^XMB(3.9,165,2,758,0)=" ..Q:'$D(^XPD(9.6,D0,""KRN"",9.8,""NM"",+XPDJ,0))  S XPDJ=$P(^(0),U,4)"
^XMB(3.9,165,2,759,0)="""RTN"",""XPDDCS"",65,0)"
^XMB(3.9,165,2,760,0)=" ..;quit if no checksum, routine wasn't loaded"
^XMB(3.9,165,2,761,0)="""RTN"",""XPDDCS"",66,0)"
^XMB(3.9,165,2,762,0)=" ..I XPDJ="""" S XPDC=XPDC-1 Q"
^XMB(3.9,165,2,763,0)="""RTN"",""XPDDCS"",67,0)"
^XMB(3.9,165,2,764,0)=" ..N DIF,XCNP,%N"
^XMB(3.9,165,2,765,0)="""RTN"",""XPDDCS"",68,0)"
^XMB(3.9,165,2,766,0)=" ..S X=XPDI,DIF=""^TMP($J,""""RTN"""",XPDI,"",XCNP=0"
^XMB(3.9,165,2,767,0)="""RTN"",""XPDDCS"",69,0)"
^XMB(3.9,165,2,768,0)=" ..X ^%ZOSF(""TEST"") E  W !,XPDI,?10,""Doesn't Exist"" Q"
^XMB(3.9,165,2,769,0)="""RTN"",""XPDDCS"",70,0)"
^XMB(3.9,165,2,770,0)=" ..X ^%ZOSF(""LOAD"")"
^XMB(3.9,165,2,771,0)="""RTN"",""XPDDCS"",71,0)"
^XMB(3.9,165,2,772,0)=" ..D SUM(XPDI,$NA(^TMP($J,""RTN"",XPDI)),XPDJ,"""")"
^XMB(3.9,165,2,773,0)="""RTN"",""XPDDCS"",72,0)"
^XMB(3.9,165,2,774,0)=" ..S XPDQ=$$CHK(4)"
^XMB(3.9,165,2,775,0)="""RTN"",""XPDDCS"",73,0)"
^XMB(3.9,165,2,776,0)=" Q:XPDQ"
^XMB(3.9,165,2,777,0)="""RTN"",""XPDDCS"",74,0)"
^XMB(3.9,165,2,778,0)=" W !!?3,XPDC,"" Routine""_$S(XPDC>1:""s"",1:"""")_"" checked, "",XPDE,"" failed."",!"
^XMB(3.9,165,2,779,0)="""RTN"",""XPDDCS"",75,0)"
^XMB(3.9,165,2,780,0)=" ;p345-rename AND* to XPD*"
^XMB(3.9,165,2,781,0)="""RTN"",""XPDDCS"",76,0)"
^XMB(3.9,165,2,782,0)=" I $G(XPDAUTO) S XPDCHKSM=XPDE"
^XMB(3.9,165,2,783,0)="""RTN"",""XPDDCS"",77,0)"
^XMB(3.9,165,2,784,0)=" Q"
^XMB(3.9,165,2,785,0)="""RTN"",""XPDDCS"",78,0)"
^XMB(3.9,165,2,786,0)=" ;"
^XMB(3.9,165,2,787,0)="""RTN"",""XPDDCS"",79,0)"
^XMB(3.9,165,2,788,0)=" ;XPDR=routine name, Z=global root, XPD=check sum, XPDBS=before Checksum from FORUM"
^XMB(3.9,165,2,789,0)="""RTN"",""XPDDCS"",80,0)"
^XMB(3.9,165,2,790,0)="SUM(XPDR,Z,XPD,XPDBS) ;check checksum"
^XMB(3.9,165,2,791,0)="""RTN"",""XPDDCS"",81,0)"
^XMB(3.9,165,2,792,0)=" N Y"
^XMB(3.9,165,2,793,0)="""RTN"",""XPDDCS"",82,0)"
^XMB(3.9,165,2,794,0)=" ;See if we have a before checksum and compare."
^XMB(3.9,165,2,795,0)="""RTN"",""XPDDCS"",83,0)"
^XMB(3.9,165,2,796,0)=" I $L(XPDBS) D BEFORE(XPDR,XPDBS)"
^XMB(3.9,165,2,797,0)="""RTN"",""XPDDCS"",84,0)"
^XMB(3.9,165,2,798,0)=" ;first char. is the sum tag used in XPDRSUM"
^XMB(3.9,165,2,799,0)="""RTN"",""XPDDCS"",85,0)"
^XMB(3.9,165,2,800,0)=" I XPD'?1U1.N W !,XPDR,?10,""ERROR in Checksum"" S XPDE=XPDE+1 Q"
^XMB(3.9,165,2,801,0)="""RTN"",""XPDDCS"",86,0)"
^XMB(3.9,165,2,802,0)=" S @(""Y=$$SUM""_$E(XPD)_""^XPDRSUM(Z)""),XPD=$E(XPD,2,255)"
^XMB(3.9,165,2,803,0)="""RTN"",""XPDDCS"",87,0)"
^XMB(3.9,165,2,804,0)=" I Y=XPD,XPDSHW W !,XPDR,?10,""Calculated ""_$J(XPD,10)"
^XMB(3.9,165,2,805,0)="""RTN"",""XPDDCS"",88,0)"
^XMB(3.9,165,2,806,0)=" I Y'=XPD W !,XPDR,?10,""Calculated ""_$C(7)_$J(Y,10)_"", expected value ""_XPD S XPDE=XPDE+1"
^XMB(3.9,165,2,807,0)="""RTN"",""XPDDCS"",89,0)"
^XMB(3.9,165,2,808,0)=" Q"
^XMB(3.9,165,2,809,0)="""RTN"",""XPDDCS"",90,0)"
^XMB(3.9,165,2,810,0)=" ;"
^XMB(3.9,165,2,811,0)="""RTN"",""XPDDCS"",91,0)"
^XMB(3.9,165,2,812,0)="BEFORE(RN,SUM) ;Check a before Checksum"
^XMB(3.9,165,2,813,0)="""RTN"",""XPDDCS"",92,0)"
^XMB(3.9,165,2,814,0)=" N DIF,XCNP,%N,X"
^XMB(3.9,165,2,815,0)="""RTN"",""XPDDCS"",93,0)"
^XMB(3.9,165,2,816,0)=" I SUM'?1U1.N Q"
^XMB(3.9,165,2,817,0)="""RTN"",""XPDDCS"",94,0)"
^XMB(3.9,165,2,818,0)=" S X=RN,DIF=""^TMP($J,""""XPDDCS"""",RN,"",XCNP=0"
^XMB(3.9,165,2,819,0)="""RTN"",""XPDDCS"",95,0)"
^XMB(3.9,165,2,820,0)=" X ^%ZOSF(""TEST"") E  W !,RN,?10,""Not on current system."" Q"
^XMB(3.9,165,2,821,0)="""RTN"",""XPDDCS"",96,0)"
^XMB(3.9,165,2,822,0)=" X ^%ZOSF(""LOAD"")"
^XMB(3.9,165,2,823,0)="""RTN"",""XPDDCS"",97,0)"
^XMB(3.9,165,2,824,0)=" S DIF=$NA(^TMP($J,""XPDDCS"",RN))"
^XMB(3.9,165,2,825,0)="""RTN"",""XPDDCS"",98,0)"
^XMB(3.9,165,2,826,0)=" S @(""Y=$$SUM""_$E(SUM)_""^XPDRSUM(DIF)""),SUM=$E(SUM,2,255)"
^XMB(3.9,165,2,827,0)="""RTN"",""XPDDCS"",99,0)"
^XMB(3.9,165,2,828,0)=" I Y'=SUM W !,RN,?10,""Before Checksum Calculated ""_Y_"" expected value ""_SUM"
^XMB(3.9,165,2,829,0)="""RTN"",""XPDDCS"",100,0)"
^XMB(3.9,165,2,830,0)=" Q"
^XMB(3.9,165,2,831,0)="""RTN"",""XPDDCS"",101,0)"
^XMB(3.9,165,2,832,0)=" ;"
^XMB(3.9,165,2,833,0)="""RTN"",""XPDDCS"",102,0)"
^XMB(3.9,165,2,834,0)="CHK(Y) ;Y=excess lines, return 1 to exit"
^XMB(3.9,165,2,835,0)="""RTN"",""XPDDCS"",103,0)"
^XMB(3.9,165,2,836,0)=" Q:$Y<(IOSL-Y) 0"
^XMB(3.9,165,2,837,0)="""RTN"",""XPDDCS"",104,0)"
^XMB(3.9,165,2,838,0)=" I $E(IOST,1,2)=""C-"" D  Q:'Y 1"
^XMB(3.9,165,2,839,0)="""RTN"",""XPDDCS"",105,0)"
^XMB(3.9,165,2,840,0)=" .N DIR,I,J,K,X"
^XMB(3.9,165,2,841,0)="""RTN"",""XPDDCS"",106,0)"
^XMB(3.9,165,2,842,0)=" .S DIR(0)=""E"" D ^DIR"
^XMB(3.9,165,2,843,0)="""RTN"",""XPDDCS"",107,0)"
^XMB(3.9,165,2,844,0)=" S XPDPG=XPDPG+1"
^XMB(3.9,165,2,845,0)="""RTN"",""XPDDCS"",108,0)"
^XMB(3.9,165,2,846,0)=" W @IOF D HDR"
^XMB(3.9,165,2,847,0)="""RTN"",""XPDDCS"",109,0)"
^XMB(3.9,165,2,848,0)=" Q 0"
^XMB(3.9,165,2,849,0)="""RTN"",""XPDDCS"",110,0)"
^XMB(3.9,165,2,850,0)=" ;"
^XMB(3.9,165,2,851,0)="""RTN"",""XPDDCS"",111,0)"
^XMB(3.9,165,2,852,0)="HDR W !,""PACKAGE: "",$P(XPD0,U),""     "",XPDDT,?70,""PAGE "",XPDPG,!,XPDUL,!"
^XMB(3.9,165,2,853,0)="""RTN"",""XPDDCS"",112,0)"
^XMB(3.9,165,2,854,0)=" Q"
^XMB(3.9,165,2,855,0)="""RTN"",""XPDET"")"
^XMB(3.9,165,2,856,0)="0^2^B32583280^B32568215"
^XMB(3.9,165,2,857,0)="""RTN"",""XPDET"",1,0)"
^XMB(3.9,165,2,858,0)="XPDET ;SFISC/RSD - Input tranforms & help for file 9.6 & 9.7 ;10/19/2002  15:43"
^XMB(3.9,165,2,859,0)="""RTN"",""XPDET"",2,0)"
^XMB(3.9,165,2,860,0)=" ;;8.0;KERNEL;**15,39,41,44,51,58,66,137,229,393**;Jul 10, 1995;Build 12"
^XMB(3.9,165,2,861,0)="""RTN"",""XPDET"",3,0)"
^XMB(3.9,165,2,862,0)=" Q"
^XMB(3.9,165,2,863,0)="""RTN"",""XPDET"",4,0)"
^XMB(3.9,165,2,864,0)="INPUTB(X) ;input tranfrom for NAME in BUILD file"
^XMB(3.9,165,2,865,0)="""RTN"",""XPDET"",5,0)"
^XMB(3.9,165,2,866,0)=" ;X=user input"
^XMB(3.9,165,2,867,0)="""RTN"",""XPDET"",6,0)"
^XMB(3.9,165,2,868,0)=" ;name must be unique"
^XMB(3.9,165,2,869,0)="""RTN"",""XPDET"",7,0)"
^XMB(3.9,165,2,870,0)=" I $L(X)>50!($L(X)<3)!$D(^XPD(9.6,""B"",X)) K X Q"
^XMB(3.9,165,2,871,0)="""RTN"",""XPDET"",8,0)"
^XMB(3.9,165,2,872,0)=" I X[""*"" K:$P(X,""*"",2,3)'?1.2N1"".""1.2N.1(1""V"",1""T"").2N1""*""1.6N X Q"
^XMB(3.9,165,2,873,0)="""RTN"",""XPDET"",9,0)"
^XMB(3.9,165,2,874,0)=" S %=$L(X,"" "") I %<2 K X Q"
^XMB(3.9,165,2,875,0)="""RTN"",""XPDET"",10,0)"
^XMB(3.9,165,2,876,0)=" S %=$P(X,"" "",%) K:%'?1.2N1"".""1.2N.1(1""V"",1""T"",1""B"").2N X"
^XMB(3.9,165,2,877,0)="""RTN"",""XPDET"",11,0)"
^XMB(3.9,165,2,878,0)=" Q"
^XMB(3.9,165,2,879,0)="""RTN"",""XPDET"",12,0)"
^XMB(3.9,165,2,880,0)="INPUTE(X) ;input transform for ENTRIES in KERNEL FILES multiple"
^XMB(3.9,165,2,881,0)="""RTN"",""XPDET"",13,0)"
^XMB(3.9,165,2,882,0)=" ;X=user input"
^XMB(3.9,165,2,883,0)="""RTN"",""XPDET"",14,0)"
^XMB(3.9,165,2,884,0)=" N D,DD,DIC,DICR,DIX,DIY,DS,DO,XPDLK,Y"
^XMB(3.9,165,2,885,0)="""RTN"",""XPDET"",15,0)"
^XMB(3.9,165,2,886,0)=" S XPDLK=$$GR(D1)"
^XMB(3.9,165,2,887,0)="""RTN"",""XPDET"",16,0)"
^XMB(3.9,165,2,888,0)=" I XPDLK=""""!X[""*"" K X Q"
^XMB(3.9,165,2,889,0)="""RTN"",""XPDET"",17,0)"
^XMB(3.9,165,2,890,0)=" S DIC(0)=""QEMZ"",DIC=XPDLK"
^XMB(3.9,165,2,891,0)="""RTN"",""XPDET"",18,0)"
^XMB(3.9,165,2,892,0)=" S:D1=9.8 DIC(""S"")=""I $T(^@$P(^(0),U))]"""""""""""
^XMB(3.9,165,2,893,0)="""RTN"",""XPDET"",19,0)"
^XMB(3.9,165,2,894,0)=" D ^DIC K:Y<0 X Q:'$D(X)"
^XMB(3.9,165,2,895,0)="""RTN"",""XPDET"",20,0)"
^XMB(3.9,165,2,896,0)=" S X=Y(0,0)"
^XMB(3.9,165,2,897,0)="""RTN"",""XPDET"",21,0)"
^XMB(3.9,165,2,898,0)=" ;check that this doesn't exist already"
^XMB(3.9,165,2,899,0)="""RTN"",""XPDET"",22,0)"
^XMB(3.9,165,2,900,0)=" I $D(^XPD(9.6,D0,""KRN"",D1,""NM"",""B"",X)) K X Q"
^XMB(3.9,165,2,901,0)="""RTN"",""XPDET"",23,0)"
^XMB(3.9,165,2,902,0)=" ;if fm file, change X to contain file # of template"
^XMB(3.9,165,2,903,0)="""RTN"",""XPDET"",24,0)"
^XMB(3.9,165,2,904,0)=" I D1<.404 S X=$$TX(X,$P(Y(0),U,$S(D1=.403:8,1:4)))"
^XMB(3.9,165,2,905,0)="""RTN"",""XPDET"",25,0)"
^XMB(3.9,165,2,906,0)=" Q"
^XMB(3.9,165,2,907,0)="""RTN"",""XPDET"",26,0)"
^XMB(3.9,165,2,908,0)="GLOBALE(X) ;input transform for GLOBAL multiple .01 field in file 9.6"
^XMB(3.9,165,2,909,0)="""RTN"",""XPDET"",27,0)"
^XMB(3.9,165,2,910,0)=" I $L(X)>30!($L(X)<2) K X Q"
^XMB(3.9,165,2,911,0)="""RTN"",""XPDET"",28,0)"
^XMB(3.9,165,2,912,0)=" I X[""("",X'["")"" K X Q"
^XMB(3.9,165,2,913,0)="""RTN"",""XPDET"",29,0)"
^XMB(3.9,165,2,914,0)=" ;change ' back to "" for subscripts, they were changed in the Pre-Lookup node of the DD, 7.5. This was done to trick FM, which doesn't allow "" in .01 fields"
^XMB(3.9,165,2,915,0)="""RTN"",""XPDET"",30,0)"
^XMB(3.9,165,2,916,0)=" S X=$TR(X,""'"","""""""")"
^XMB(3.9,165,2,917,0)="""RTN"",""XPDET"",31,0)"
^XMB(3.9,165,2,918,0)=" I '$D(@(""^""_X)) K X"
^XMB(3.9,165,2,919,0)="""RTN"",""XPDET"",32,0)"
^XMB(3.9,165,2,920,0)=" Q"
^XMB(3.9,165,2,921,0)="""RTN"",""XPDET"",33,0)"
^XMB(3.9,165,2,922,0)="INPUTMB(X) ;input transform for field 10 and 11 in file 9.6"
^XMB(3.9,165,2,923,0)="""RTN"",""XPDET"",34,0)"
^XMB(3.9,165,2,924,0)=" ;X=user input"
^XMB(3.9,165,2,925,0)="""RTN"",""XPDET"",35,0)"
^XMB(3.9,165,2,926,0)=" N D,DD,DIC,DICR,DIX,DIY,DS,DO,Y"
^XMB(3.9,165,2,927,0)="""RTN"",""XPDET"",36,0)"
^XMB(3.9,165,2,928,0)=" ;can't select a global or multi package or itself (D0)"
^XMB(3.9,165,2,929,0)="""RTN"",""XPDET"",37,0)"
^XMB(3.9,165,2,930,0)=" S DIC(0)=""QEMZ"",DIC=""^XPD(9.6,"",DIC(""S"")=""I '$P(^(0),U,3),Y'=""_D0"
^XMB(3.9,165,2,931,0)="""RTN"",""XPDET"",38,0)"
^XMB(3.9,165,2,932,0)=" D ^DIC K:Y<0 X Q:'$D(X)"
^XMB(3.9,165,2,933,0)="""RTN"",""XPDET"",39,0)"
^XMB(3.9,165,2,934,0)=" S X=Y(0,0)"
^XMB(3.9,165,2,935,0)="""RTN"",""XPDET"",40,0)"
^XMB(3.9,165,2,936,0)=" Q"
^XMB(3.9,165,2,937,0)="""RTN"",""XPDET"",41,0)"
^XMB(3.9,165,2,938,0)="LOOKE(X) ;special lookup for ENTRIES in KERNEL FILES multiple"
^XMB(3.9,165,2,939,0)="""RTN"",""XPDET"",42,0)"
^XMB(3.9,165,2,940,0)=" Q:X'?1.E1""*"""
^XMB(3.9,165,2,941,0)="""RTN"",""XPDET"",43,0)"
^XMB(3.9,165,2,942,0)=" N %,XPD,XPDI,XPDIC,XPDF,XPDLK,XPDX,Y"
^XMB(3.9,165,2,943,0)="""RTN"",""XPDET"",44,0)"
^XMB(3.9,165,2,944,0)=" S XPDLK=$$GR(D1),XPDIC=DIC,XPDF=D1"
^XMB(3.9,165,2,945,0)="""RTN"",""XPDET"",45,0)"
^XMB(3.9,165,2,946,0)=" I XPDLK="""" K X Q"
^XMB(3.9,165,2,947,0)="""RTN"",""XPDET"",46,0)"
^XMB(3.9,165,2,948,0)=" G:$E(X)=""-"" DEL"
^XMB(3.9,165,2,949,0)="""RTN"",""XPDET"",47,0)"
^XMB(3.9,165,2,950,0)=" S XPDX=$P(X,""*""),XPDI(""IEN"")=0"
^XMB(3.9,165,2,951,0)="""RTN"",""XPDET"",48,0)"
^XMB(3.9,165,2,952,0)=" D LIST^DIC(D1,"""","""","""",""*"",.XPDI,XPDX,"""",""I $$SCR^XPDET(Y)"")"
^XMB(3.9,165,2,953,0)="""RTN"",""XPDET"",49,0)"
^XMB(3.9,165,2,954,0)=" I '$G(^TMP(""DILIST"",$J,0)) K X Q"
^XMB(3.9,165,2,955,0)="""RTN"",""XPDET"",50,0)"
^XMB(3.9,165,2,956,0)=" K ^TMP(""XPDX"",$J)"
^XMB(3.9,165,2,957,0)="""RTN"",""XPDET"",51,0)"
^XMB(3.9,165,2,958,0)=" ;loop thru list from lister and file using UPDATE^DIE"
^XMB(3.9,165,2,959,0)="""RTN"",""XPDET"",52,0)"
^XMB(3.9,165,2,960,0)=" F XPDI=1:1 S X=$G(^TMP(""DILIST"",$J,1,XPDI)) Q:X=""""  D"
^XMB(3.9,165,2,961,0)="""RTN"",""XPDET"",53,0)"
^XMB(3.9,165,2,962,0)=" .S:D1<.404 %=^TMP(""DILIST"",$J,2,XPDI)_"","",X=$$TX(X,$$GET1^DIQ(D1,%,$$TF(D1),""I""))"
^XMB(3.9,165,2,963,0)="""RTN"",""XPDET"",54,0)"
^XMB(3.9,165,2,964,0)=" .S Y=""+""_XPDI_"",""_D1_"",""_D0_"","",^TMP(""XPDX"",$J,9.68,Y,.01)=X,^(.03)=0"
^XMB(3.9,165,2,965,0)="""RTN"",""XPDET"",55,0)"
^XMB(3.9,165,2,966,0)=" I $D(^TMP(""XPDX"",$J)) D UPDATE^DIE("""",""^TMP(""""XPDX"""",$J)"",""^TMP(""""XPD"""",$J)"")"
^XMB(3.9,165,2,967,0)="""RTN"",""XPDET"",56,0)"
^XMB(3.9,165,2,968,0)=" ;if in Screenman then call MLOAD to update screen"
^XMB(3.9,165,2,969,0)="""RTN"",""XPDET"",57,0)"
^XMB(3.9,165,2,970,0)=" I $D(DDS),$D(^TMP(""XPD"",$J)) D MLOAD^DDSUTL(""^TMP(""""XPD"""",$J)"")"
^XMB(3.9,165,2,971,0)="""RTN"",""XPDET"",58,0)"
^XMB(3.9,165,2,972,0)=" S X="""""
^XMB(3.9,165,2,973,0)="""RTN"",""XPDET"",59,0)"
^XMB(3.9,165,2,974,0)=" K ^TMP(""XPDX"",$J),^TMP(""XPD"",$J)"
^XMB(3.9,165,2,975,0)="""RTN"",""XPDET"",60,0)"
^XMB(3.9,165,2,976,0)=" Q"
^XMB(3.9,165,2,977,0)="""RTN"",""XPDET"",61,0)"
^XMB(3.9,165,2,978,0)="DEL ;delete using wild card"
^XMB(3.9,165,2,979,0)="""RTN"",""XPDET"",62,0)"
^XMB(3.9,165,2,980,0)=" I X'?1""-""1.E1""*"" K X Q"
^XMB(3.9,165,2,981,0)="""RTN"",""XPDET"",63,0)"
^XMB(3.9,165,2,982,0)=" S X=$E(X,2,$L(X)-1),XPDX=X S:$L(X) XPDI(""IEN"")=0"
^XMB(3.9,165,2,983,0)="""RTN"",""XPDET"",64,0)"
^XMB(3.9,165,2,984,0)=" D LIST^DIC(9.68,"",""_D1_"",""_D0_"","","""","""",""*"",.XPDI,XPDX)"
^XMB(3.9,165,2,985,0)="""RTN"",""XPDET"",65,0)"
^XMB(3.9,165,2,986,0)=" I '$G(^TMP(""DILIST"",$J,0)) K X Q"
^XMB(3.9,165,2,987,0)="""RTN"",""XPDET"",66,0)"
^XMB(3.9,165,2,988,0)=" N DIK,DA,D2"
^XMB(3.9,165,2,989,0)="""RTN"",""XPDET"",67,0)"
^XMB(3.9,165,2,990,0)=" S DIK=XPDIC,DA(1)=D1,DA(2)=D0"
^XMB(3.9,165,2,991,0)="""RTN"",""XPDET"",68,0)"
^XMB(3.9,165,2,992,0)=" F XPDI=1:1 S (DA,D2)=$G(^TMP(""DILIST"",$J,2,XPDI)) Q:'DA  D"
^XMB(3.9,165,2,993,0)="""RTN"",""XPDET"",69,0)"
^XMB(3.9,165,2,994,0)=" .D ^DIK"
^XMB(3.9,165,2,995,0)="""RTN"",""XPDET"",70,0)"
^XMB(3.9,165,2,996,0)=" I $D(DDS) D MDEL^DDSUTL(""^TMP(""""DILIST"""",$J,2)"")"
^XMB(3.9,165,2,997,0)="""RTN"",""XPDET"",71,0)"
^XMB(3.9,165,2,998,0)=" S X="""""
^XMB(3.9,165,2,999,0)="""RTN"",""XPDET"",72,0)"
^XMB(3.9,165,2,1000,0)=" K ^TMP(""DILIST"",$J)"
^XMB(3.9,165,2,1001,0)="""RTN"",""XPDET"",73,0)"
^XMB(3.9,165,2,1002,0)=" Q"
^XMB(3.9,165,2,1003,0)="""RTN"",""XPDET"",74,0)"
^XMB(3.9,165,2,1004,0)="HELP ;executable help of ENTRIES in KERNEL FILE multiple"
^XMB(3.9,165,2,1005,0)="""RTN"",""XPDET"",75,0)"
^XMB(3.9,165,2,1006,0)=" N D,DIC,DIE,DIX,DIY,DO,DZ,DS,X,Y"
^XMB(3.9,165,2,1007,0)="""RTN"",""XPDET"",76,0)"
^XMB(3.9,165,2,1008,0)=" ;file 9.8 is routine file, check that routine exists"
^XMB(3.9,165,2,1009,0)="""RTN"",""XPDET"",77,0)"
^XMB(3.9,165,2,1010,0)=" S DIC=$$GR(D1),DIC(0)=""M"",X=""??"" Q:DIC=""""  S:D1=9.8 DIC(""S"")=""I $T(^@$P(^(0),U))]"""""""""""
^XMB(3.9,165,2,1011,0)="""RTN"",""XPDET"",78,0)"
^XMB(3.9,165,2,1012,0)=" D ^DIC Q"
^XMB(3.9,165,2,1013,0)="""RTN"",""XPDET"",79,0)"
^XMB(3.9,165,2,1014,0)=" ;"
^XMB(3.9,165,2,1015,0)="""RTN"",""XPDET"",80,0)"
^XMB(3.9,165,2,1016,0)="HELPO ;executable help of INSTALL ORDER in KERNEL FILES multiple"
^XMB(3.9,165,2,1017,0)="""RTN"",""XPDET"",81,0)"
^XMB(3.9,165,2,1018,0)=" N Y"
^XMB(3.9,165,2,1019,0)="""RTN"",""XPDET"",82,0)"
^XMB(3.9,165,2,1020,0)=" W !,""Numbers in use:  ORDER     FILE#"" S Y=0"
^XMB(3.9,165,2,1021,0)="""RTN"",""XPDET"",83,0)"
^XMB(3.9,165,2,1022,0)=" F  S Y=$O(^XPD(9.6,D0,""KRN"",""AC"",Y)) Q:'Y  W !,?18,$J(Y,2),?28,$O(^(Y,0))"
^XMB(3.9,165,2,1023,0)="""RTN"",""XPDET"",84,0)"
^XMB(3.9,165,2,1024,0)=" W ! Q"
^XMB(3.9,165,2,1025,0)="""RTN"",""XPDET"",85,0)"
^XMB(3.9,165,2,1026,0)=" ;"
^XMB(3.9,165,2,1027,0)="""RTN"",""XPDET"",86,0)"
^XMB(3.9,165,2,1028,0)="HELPMB ;executable help of fields 10 & 11 in file 9.6"
^XMB(3.9,165,2,1029,0)="""RTN"",""XPDET"",87,0)"
^XMB(3.9,165,2,1030,0)=" N D,DIC,DIE,DIX,DIY,DO,DZ,DS,X,Y"
^XMB(3.9,165,2,1031,0)="""RTN"",""XPDET"",88,0)"
^XMB(3.9,165,2,1032,0)=" S DIC=""^XPD(9.6,"",DIC(0)=""M"",X=""??"",DIC(""S"")=""I '$P(^(0),U,3),Y'=""_D0"
^XMB(3.9,165,2,1033,0)="""RTN"",""XPDET"",89,0)"
^XMB(3.9,165,2,1034,0)=" D ^DIC Q"
^XMB(3.9,165,2,1035,0)="""RTN"",""XPDET"",90,0)"
^XMB(3.9,165,2,1036,0)=" ;"
^XMB(3.9,165,2,1037,0)="""RTN"",""XPDET"",91,0)"
^XMB(3.9,165,2,1038,0)="SCRA(Y) ;screen of ACTION field in ENTRIES multiple in KERNEL FILES multiple, Y=action"
^XMB(3.9,165,2,1039,0)="""RTN"",""XPDET"",92,0)"
^XMB(3.9,165,2,1040,0)=" ;Y=0 - send, 1 - delete, 2 - link, 3 - merge, 4 - attach, 5 - disable"
^XMB(3.9,165,2,1041,0)="""RTN"",""XPDET"",93,0)"
^XMB(3.9,165,2,1042,0)=" ;all entries can send to site"
^XMB(3.9,165,2,1043,0)="""RTN"",""XPDET"",94,0)"
^XMB(3.9,165,2,1044,0)=" Q:'Y 1"
^XMB(3.9,165,2,1045,0)="""RTN"",""XPDET"",95,0)"
^XMB(3.9,165,2,1046,0)=" ;.5=function file, can't delete, all others can"
^XMB(3.9,165,2,1047,0)="""RTN"",""XPDET"",96,0)"
^XMB(3.9,165,2,1048,0)=" I Y=1 Q (D1'=.5)"
^XMB(3.9,165,2,1049,0)="""RTN"",""XPDET"",97,0)"
^XMB(3.9,165,2,1050,0)=" ;then rest of code check if it is a Option or Protocal and can have MENU ITEMS"
^XMB(3.9,165,2,1051,0)="""RTN"",""XPDET"",98,0)"
^XMB(3.9,165,2,1052,0)=" Q:D1'=19&(D1'=101) 0"
^XMB(3.9,165,2,1053,0)="""RTN"",""XPDET"",99,0)"
^XMB(3.9,165,2,1054,0)=" ;only Options and Protocol can disable"
^XMB(3.9,165,2,1055,0)="""RTN"",""XPDET"",100,0)"
^XMB(3.9,165,2,1056,0)=" Q:Y=5 1"
^XMB(3.9,165,2,1057,0)="""RTN"",""XPDET"",101,0)"
^XMB(3.9,165,2,1058,0)=" N FGR,X,XPDF,XPDT,XPDZ"
^XMB(3.9,165,2,1059,0)="""RTN"",""XPDET"",102,0)"
^XMB(3.9,165,2,1060,0)=" ;get X=name, FGR=global reference, XPDF=file #"
^XMB(3.9,165,2,1061,0)="""RTN"",""XPDET"",103,0)"
^XMB(3.9,165,2,1062,0)=" S XPDY=Y,XPDF=D1,X=$P(^XPD(9.6,D0,""KRN"",D1,""NM"",D2,0),U),FGR=$$FILE^XPDV(D1)"
^XMB(3.9,165,2,1063,0)="""RTN"",""XPDET"",104,0)"
^XMB(3.9,165,2,1064,0)=" Q:X="""" 0"
^XMB(3.9,165,2,1065,0)="""RTN"",""XPDET"",105,0)"
^XMB(3.9,165,2,1066,0)=" ;X=ien of protocol or option"
^XMB(3.9,165,2,1067,0)="""RTN"",""XPDET"",106,0)"
^XMB(3.9,165,2,1068,0)=" S X=+$O(@FGR@(""B"",X,0)) Q:'X 0"
^XMB(3.9,165,2,1069,0)="""RTN"",""XPDET"",107,0)"
^XMB(3.9,165,2,1070,0)=" ;get type"
^XMB(3.9,165,2,1071,0)="""RTN"",""XPDET"",108,0)"
^XMB(3.9,165,2,1072,0)=" S XPDT=$P($G(@FGR@(X,0)),U,4)"
^XMB(3.9,165,2,1073,0)="""RTN"",""XPDET"",109,0)"
^XMB(3.9,165,2,1074,0)=" ;all Options and Protocols, except Event Drivers, can be attached"
^XMB(3.9,165,2,1075,0)="""RTN"",""XPDET"",110,0)"
^XMB(3.9,165,2,1076,0)=" I XPDY=4 Q '(XPDF=101&(XPDT=""E""))"
^XMB(3.9,165,2,1077,0)="""RTN"",""XPDET"",111,0)"
^XMB(3.9,165,2,1078,0)=" ;Protocol and Type is Subscriber can't do anything else"
^XMB(3.9,165,2,1079,0)="""RTN"",""XPDET"",112,0)"
^XMB(3.9,165,2,1080,0)=" I XPDF=101,XPDT=""S"" Q 0"
^XMB(3.9,165,2,1081,0)="""RTN"",""XPDET"",113,0)"
^XMB(3.9,165,2,1082,0)=" ;if it has SUBSCRIBERS, node 775 then ok"
^XMB(3.9,165,2,1083,0)="""RTN"",""XPDET"",114,0)"
^XMB(3.9,165,2,1084,0)=" I $O(@FGR@(X,775,0)) Q 1"
^XMB(3.9,165,2,1085,0)="""RTN"",""XPDET"",115,0)"
^XMB(3.9,165,2,1086,0)=" ;if type is menu,potocol,protocol menu,limited,extended,window suite"
^XMB(3.9,165,2,1087,0)="""RTN"",""XPDET"",116,0)"
^XMB(3.9,165,2,1088,0)=" I ""MOQLXZ""[$P($G(@FGR@(X,0)),U,4) Q 1"
^XMB(3.9,165,2,1089,0)="""RTN"",""XPDET"",117,0)"
^XMB(3.9,165,2,1090,0)=" ;if it has ITEMs, node 10 then ok"
^XMB(3.9,165,2,1091,0)="""RTN"",""XPDET"",118,0)"
^XMB(3.9,165,2,1092,0)=" I $O(@FGR@(X,10,0)) Q 1"
^XMB(3.9,165,2,1093,0)="""RTN"",""XPDET"",119,0)"
^XMB(3.9,165,2,1094,0)=" Q 0"
^XMB(3.9,165,2,1095,0)="""RTN"",""XPDET"",120,0)"
^XMB(3.9,165,2,1096,0)=" ;"
^XMB(3.9,165,2,1097,0)="""RTN"",""XPDET"",121,0)"
^XMB(3.9,165,2,1098,0)=" ;only Fileman templates need to know what file they are associated with."
^XMB(3.9,165,2,1099,0)="""RTN"",""XPDET"",122,0)"
^XMB(3.9,165,2,1100,0)=" ;this value is also triggered to field .02 in the DD."
^XMB(3.9,165,2,1101,0)="""RTN"",""XPDET"",123,0)"
^XMB(3.9,165,2,1102,0)="TX(X,Y) ;X=template name, Y=file #"
^XMB(3.9,165,2,1103,0)="""RTN"",""XPDET"",124,0)"
^XMB(3.9,165,2,1104,0)=" Q X_""    FILE #""_Y"
^XMB(3.9,165,2,1105,0)="""RTN"",""XPDET"",125,0)"
^XMB(3.9,165,2,1106,0)=" ;"
^XMB(3.9,165,2,1107,0)="""RTN"",""XPDET"",126,0)"
^XMB(3.9,165,2,1108,0)="TF(F) ;F=file, return field of file# for templates"
^XMB(3.9,165,2,1109,0)="""RTN"",""XPDET"",127,0)"
^XMB(3.9,165,2,1110,0)=" Q $S(F>.403:"""",F<.403:4,1:7)"
^XMB(3.9,165,2,1111,0)="""RTN"",""XPDET"",128,0)"
^XMB(3.9,165,2,1112,0)=" ;"
^XMB(3.9,165,2,1113,0)="""RTN"",""XPDET"",129,0)"
^XMB(3.9,165,2,1114,0)="GR(X) Q $G(^DIC(X,0,""GL""))"
^XMB(3.9,165,2,1115,0)="""RTN"",""XPDET"",130,0)"
^XMB(3.9,165,2,1116,0)=" ;"
^XMB(3.9,165,2,1117,0)="""RTN"",""XPDET"",131,0)"
^XMB(3.9,165,2,1118,0)=" ;screens checks that X is not already in the ENTRIES multiple"
^XMB(3.9,165,2,1119,0)="""RTN"",""XPDET"",132,0)"
^XMB(3.9,165,2,1120,0)="SCR(Y) ;screen logic for ENTRIES multiple in file 9.6"
^XMB(3.9,165,2,1121,0)="""RTN"",""XPDET"",133,0)"
^XMB(3.9,165,2,1122,0)=" N %,X,Z"
^XMB(3.9,165,2,1123,0)="""RTN"",""XPDET"",134,0)"
^XMB(3.9,165,2,1124,0)=" S Z=^(0),X=$P(Z,U)"
^XMB(3.9,165,2,1125,0)="""RTN"",""XPDET"",135,0)"
^XMB(3.9,165,2,1126,0)=" ;FM files are less than .44"
^XMB(3.9,165,2,1127,0)="""RTN"",""XPDET"",136,0)"
^XMB(3.9,165,2,1128,0)=" I XPDF<.44 D  Q:X="""" 0"
^XMB(3.9,165,2,1129,0)="""RTN"",""XPDET"",137,0)"
^XMB(3.9,165,2,1130,0)=" .S %=$S(XPDF=.403:$P(Z,U,8),1:$P(Z,U,4)),X=X_""    FILE #""_%"
^XMB(3.9,165,2,1131,0)="""RTN"",""XPDET"",138,0)"
^XMB(3.9,165,2,1132,0)=" .S:XPDF'=.403&($P(Z,U,8)>2) %=0 S:'% X="""""
^XMB(3.9,165,2,1133,0)="""RTN"",""XPDET"",139,0)"
^XMB(3.9,165,2,1134,0)=" ;routine must exist and must be type 'R'"
^XMB(3.9,165,2,1135,0)="""RTN"",""XPDET"",140,0)"
^XMB(3.9,165,2,1136,0)=" I XPDF=9.8 Q:$T(^@X)=""""!($P(Z,U,2)'=""R"") 0"
^XMB(3.9,165,2,1137,0)="""RTN"",""XPDET"",141,0)"
^XMB(3.9,165,2,1138,0)=" Q '$D(@(XPDIC_""""""B"""",X)""))"
^XMB(3.9,165,2,1139,0)="""RTN"",""XPDET"",142,0)"
^XMB(3.9,165,2,1140,0)=" ;"
^XMB(3.9,165,2,1141,0)="""RTN"",""XPDET"",143,0)"
^XMB(3.9,165,2,1142,0)=" ;screen checks that X is not in the exclude list, XPDN(0)"
^XMB(3.9,165,2,1143,0)="""RTN"",""XPDET"",144,0)"
^XMB(3.9,165,2,1144,0)="SCR1(Y) ;screen logic for exclude list"
^XMB(3.9,165,2,1145,0)="""RTN"",""XPDET"",145,0)"
^XMB(3.9,165,2,1146,0)=" N %,X"
^XMB(3.9,165,2,1147,0)="""RTN"",""XPDET"",146,0)"
^XMB(3.9,165,2,1148,0)=" ;if name X is in the exclude list, XPDN(0,X), then fail"
^XMB(3.9,165,2,1149,0)="""RTN"",""XPDET"",147,0)"
^XMB(3.9,165,2,1150,0)=" S Y(0)=^(0),X=$P(Y(0),U) Q:$D(XPDN(0,X)) 0"
^XMB(3.9,165,2,1151,0)="""RTN"",""XPDET"",148,0)"
^XMB(3.9,165,2,1152,0)=" ;check if X is refered in the namespace by check the subscript"
^XMB(3.9,165,2,1153,0)="""RTN"",""XPDET"",149,0)"
^XMB(3.9,165,2,1154,0)=" ;before X, if sub exist and $P(X,sub)="""" then it is part of the"
^XMB(3.9,165,2,1155,0)="""RTN"",""XPDET"",150,0)"
^XMB(3.9,165,2,1156,0)=" ;namespace, fail and return 0"
^XMB(3.9,165,2,1157,0)="""RTN"",""XPDET"",151,0)"
^XMB(3.9,165,2,1158,0)=" S %=$O(XPDN(0,X),-1) I $L(%) Q:$P(X,%)="""" 0"
^XMB(3.9,165,2,1159,0)="""RTN"",""XPDET"",152,0)"
^XMB(3.9,165,2,1160,0)=" Q $$SCR(.Y)"
^XMB(3.9,165,2,1161,0)="""RTN"",""XPDET"",153,0)"
^XMB(3.9,165,2,1162,0)=" ;"
^XMB(3.9,165,2,1163,0)="""RTN"",""XPDET"",154,0)"
^XMB(3.9,165,2,1164,0)=" ;screen on PACKAGE LINK field in file 9.6,"
^XMB(3.9,165,2,1165,0)="""RTN"",""XPDET"",155,0)"
^XMB(3.9,165,2,1166,0)="PCK(Y) ;check Package File name, Y=ien in package file"
^XMB(3.9,165,2,1167,0)="""RTN"",""XPDET"",156,0)"
^XMB(3.9,165,2,1168,0)=" N %,Y,Z"
^XMB(3.9,165,2,1169,0)="""RTN"",""XPDET"",157,0)"
^XMB(3.9,165,2,1170,0)=" S Z=^(0)"
^XMB(3.9,165,2,1171,0)="""RTN"",""XPDET"",158,0)"
^XMB(3.9,165,2,1172,0)=" ;DA is undef when you are adding a new Build without a version number"
^XMB(3.9,165,2,1173,0)="""RTN"",""XPDET"",159,0)"
^XMB(3.9,165,2,1174,0)=" Q:'$D(^XPD(9.6,+$G(DA),0)) 1"
^XMB(3.9,165,2,1175,0)="""RTN"",""XPDET"",160,0)"
^XMB(3.9,165,2,1176,0)=" S Y=$L($P(Z,U)),%=$P(^XPD(9.6,DA,0),U),%=$$PKG^XPDUTL(%)"
^XMB(3.9,165,2,1177,0)="""RTN"",""XPDET"",161,0)"
^XMB(3.9,165,2,1178,0)=" Q $P(Z,U)=$E(%,1,Y)!($P(Z,U,2)=%)"
^XMB(3.9,165,2,1179,0)="""RTN"",""XPDET"",162,0)"
^XMB(3.9,165,2,1180,0)="VOLE(X) ;input transform for VOLUME SET multiple in INSTALL file"
^XMB(3.9,165,2,1181,0)="""RTN"",""XPDET"",163,0)"
^XMB(3.9,165,2,1182,0)=" ;X=user input"
^XMB(3.9,165,2,1183,0)="""RTN"",""XPDET"",164,0)"
^XMB(3.9,165,2,1184,0)=" N D,DD,DIC,DICR,DIX,DIY,DO,DS,XPD,Y,%"
^XMB(3.9,165,2,1185,0)="""RTN"",""XPDET"",165,0)"
^XMB(3.9,165,2,1186,0)=" ;(0;11)=SIGNON/PRODUCTION"
^XMB(3.9,165,2,1187,0)="""RTN"",""XPDET"",166,0)"
^XMB(3.9,165,2,1188,0)=" S DIC(0)=""QEMZ"",DIC=""^%ZIS(14.5,"",DIC(""S"")=""I $P(^(0),U,11)"""
^XMB(3.9,165,2,1189,0)="""RTN"",""XPDET"",167,0)"
^XMB(3.9,165,2,1190,0)=" D ^DIC K:Y<0 X Q:'$D(X)"
^XMB(3.9,165,2,1191,0)="""RTN"",""XPDET"",168,0)"
^XMB(3.9,165,2,1192,0)=" S X=Y(0,0)"
^XMB(3.9,165,2,1193,0)="""RTN"",""XPDET"",169,0)"
^XMB(3.9,165,2,1194,0)=" Q"
^XMB(3.9,165,2,1195,0)="""RTN"",""XPDET"",170,0)"
^XMB(3.9,165,2,1196,0)="VOLH ;executable help for VOLUME SET multiple in INSTALL file"
^XMB(3.9,165,2,1197,0)="""RTN"",""XPDET"",171,0)"
^XMB(3.9,165,2,1198,0)=" N D,DD,DIC,DIE,DIX,DIY,DO,DS,DZ,X,Y,%"
^XMB(3.9,165,2,1199,0)="""RTN"",""XPDET"",172,0)"
^XMB(3.9,165,2,1200,0)=" S X=""??"",DIC(0)=""QEMZ"",DIC=""^%ZIS(14.5,"",DIC(""S"")=""I $P(^(0),U,11)"""
^XMB(3.9,165,2,1201,0)="""RTN"",""XPDET"",173,0)"
^XMB(3.9,165,2,1202,0)=" D ^DIC"
^XMB(3.9,165,2,1203,0)="""RTN"",""XPDET"",174,0)"
^XMB(3.9,165,2,1204,0)=" Q"
^XMB(3.9,165,2,1205,0)="""RTN"",""XPDET"",175,0)"
^XMB(3.9,165,2,1206,0)="ID97 ;identifier for Install file"
^XMB(3.9,165,2,1207,0)="""RTN"",""XPDET"",176,0)"
^XMB(3.9,165,2,1208,0)=" N XPDET,XPD,XPD0,XPD1,XPD2,XPD9"
^XMB(3.9,165,2,1209,0)="""RTN"",""XPDET"",177,0)"
^XMB(3.9,165,2,1210,0)=" S XPD0=$G(^(0)),XPD1=$G(^(1)),XPD2=$G(^(2)),XPD9=$P(XPD0,U,9),XPD="""" Q:XPD9="""""
^XMB(3.9,165,2,1211,0)="""RTN"",""XPDET"",178,0)"
^XMB(3.9,165,2,1212,0)=" D"
^XMB(3.9,165,2,1213,0)="""RTN"",""XPDET"",179,0)"
^XMB(3.9,165,2,1214,0)=" .;Loaded, get DATE LOADED"
^XMB(3.9,165,2,1215,0)="""RTN"",""XPDET"",180,0)"
^XMB(3.9,165,2,1216,0)=" .I 'XPD9 S XPD=$$FMTE^XLFDT($P(XPD0,U,3),2) Q"
^XMB(3.9,165,2,1217,0)="""RTN"",""XPDET"",181,0)"
^XMB(3.9,165,2,1218,0)=" .Q:XPD9>3"
^XMB(3.9,165,2,1219,0)="""RTN"",""XPDET"",182,0)"
^XMB(3.9,165,2,1220,0)=" .;Started, get INSTALL START TIME"
^XMB(3.9,165,2,1221,0)="""RTN"",""XPDET"",183,0)"
^XMB(3.9,165,2,1222,0)=" .I XPD9=2 S XPD=$$FMTE^XLFDT($P(XPD1,U),2) Q"
^XMB(3.9,165,2,1223,0)="""RTN"",""XPDET"",184,0)"
^XMB(3.9,165,2,1224,0)=" .;Completed, get INSTALL COMPLETE TIME"
^XMB(3.9,165,2,1225,0)="""RTN"",""XPDET"",185,0)"
^XMB(3.9,165,2,1226,0)=" .I XPD9=3 S XPD=$$FMTE^XLFDT($P(XPD1,U,3),2) Q"
^XMB(3.9,165,2,1227,0)="""RTN"",""XPDET"",186,0)"
^XMB(3.9,165,2,1228,0)=" .;Queued, get QUEUED TASK NUMBER"
^XMB(3.9,165,2,1229,0)="""RTN"",""XPDET"",187,0)"
^XMB(3.9,165,2,1230,0)=" .I XPD9=1 S XPD=""#""_$P(XPD0,U,6) Q"
^XMB(3.9,165,2,1231,0)="""RTN"",""XPDET"",188,0)"
^XMB(3.9,165,2,1232,0)=" S XPDET(1)=""   ""_$$EXTERNAL^DILFD(9.7,.02,"""",XPD9)_""  ""_XPD,XPDET(1,""F"")=""?0"""
^XMB(3.9,165,2,1233,0)="""RTN"",""XPDET"",189,0)"
^XMB(3.9,165,2,1234,0)=" S:XPD2]"""" XPDET(2)=""=> ""_$E(XPD2,1,70),XPDET(2,""F"")=""!?5"""
^XMB(3.9,165,2,1235,0)="""RTN"",""XPDET"",190,0)"
^XMB(3.9,165,2,1236,0)=" D EN^DDIOL(.XPDET)"
^XMB(3.9,165,2,1237,0)="""RTN"",""XPDET"",191,0)"
^XMB(3.9,165,2,1238,0)=" Q"
^XMB(3.9,165,2,1239,0)="""RTN"",""XPDET"",192,0)"
^XMB(3.9,165,2,1240,0)=" ;not being used right now,"
^XMB(3.9,165,2,1241,0)="""RTN"",""XPDET"",193,0)"
^XMB(3.9,165,2,1242,0)="DEL97(Y) ;delete access to file 9.7, 0-can't delete, 1-can"
^XMB(3.9,165,2,1243,0)="""RTN"",""XPDET"",194,0)"
^XMB(3.9,165,2,1244,0)=" N %"
^XMB(3.9,165,2,1245,0)="""RTN"",""XPDET"",195,0)"
^XMB(3.9,165,2,1246,0)=" S %=$P(^XPD(9.7,Y,0),U,9)"
^XMB(3.9,165,2,1247,0)="""RTN"",""XPDET"",196,0)"
^XMB(3.9,165,2,1248,0)=" Q $S(%=3:1,%=2:0,$D(^XPD(9.7,""ASP"",Y,1,Y)):1,1:0)"
^XMB(3.9,165,2,1249,0)="""RTN"",""XPDET"",197,0)"
^XMB(3.9,165,2,1250,0)=" ;"
^XMB(3.9,165,2,1251,0)="""RTN"",""XPDET"",198,0)"
^XMB(3.9,165,2,1252,0)="PAR964 ;Clear other fields if file is partial.  Called from within form"
^XMB(3.9,165,2,1253,0)="""RTN"",""XPDET"",199,0)"
^XMB(3.9,165,2,1254,0)=" D PUT^DDSVAL(DIE,.DA,222.7,""n"","""",""I"") ;Send data NO"
^XMB(3.9,165,2,1255,0)="""RTN"",""XPDET"",200,0)"
^XMB(3.9,165,2,1256,0)=" D PUT^DDSVAL(DIE,.DA,222.5,"""","""",""I"") ;Resolve pointer"
^XMB(3.9,165,2,1257,0)="""RTN"",""XPDET"",201,0)"
^XMB(3.9,165,2,1258,0)=" D PUT^DDSVAL(DIE,.DA,222.8,"""","""",""I"") ;Sites Data"
^XMB(3.9,165,2,1259,0)="""RTN"",""XPDET"",202,0)"
^XMB(3.9,165,2,1260,0)=" D PUT^DDSVAL(DIE,.DA,222.9,""n"","""",""I"") ;User Override"
^XMB(3.9,165,2,1261,0)="""RTN"",""XPDET"",203,0)"
^XMB(3.9,165,2,1262,0)=" D PUT^DDSVAL(DIE,.DA,224,"""","""",""I"") ;Data Screen"
^XMB(3.9,165,2,1263,0)="""RTN"",""XPDET"",204,0)"
^XMB(3.9,165,2,1264,0)=" Q"
^XMB(3.9,165,2,1265,0)="""RTN"",""XPDIA3"")"
^XMB(3.9,165,2,1266,0)="0^10^B8738323^B8649739"
^XMB(3.9,165,2,1267,0)="""RTN"",""XPDIA3"",1,0)"
^XMB(3.9,165,2,1268,0)="XPDIA3 ;SFISC/RWF - Install Pre/Post Actions for Kernel files cont. ;6/22/06  09:13"
^XMB(3.9,165,2,1269,0)="""RTN"",""XPDIA3"",2,0)"
^XMB(3.9,165,2,1270,0)=" ;;8.0;KERNEL;**201,302,393**;Jul 10, 1995;Build 12"
^XMB(3.9,165,2,1271,0)="""RTN"",""XPDIA3"",3,0)"
^XMB(3.9,165,2,1272,0)=" Q"
^XMB(3.9,165,2,1273,0)="""RTN"",""XPDIA3"",4,0)"
^XMB(3.9,165,2,1274,0)=" ;^XTMP(""XPDI"",,XPDA,""KRN"",XPDFILE,OLDA) is the global root"
^XMB(3.9,165,2,1275,0)="""RTN"",""XPDIA3"",5,0)"
^XMB(3.9,165,2,1276,0)=" ;XPDNM=package name, XPDA=ien in ^XPD(9.6,"
^XMB(3.9,165,2,1277,0)="""RTN"",""XPDIA3"",6,0)"
^XMB(3.9,165,2,1278,0)=" ;DA=ien in file, OLDA= ien in ^XTMP"
^XMB(3.9,165,2,1279,0)="""RTN"",""XPDIA3"",7,0)"
^XMB(3.9,165,2,1280,0)=" ;"
^XMB(3.9,165,2,1281,0)="""RTN"",""XPDIA3"",8,0)"
^XMB(3.9,165,2,1282,0)="PAR0F2 ;PARAMETER file 8989.5: post.  This is a fake entry called from the post of file 8989.51"
^XMB(3.9,165,2,1283,0)="""RTN"",""XPDIA3"",9,0)"
^XMB(3.9,165,2,1284,0)=" ;Now load any entries from 8989.5"
^XMB(3.9,165,2,1285,0)="""RTN"",""XPDIA3"",10,0)"
^XMB(3.9,165,2,1286,0)=" N XP1,XP2,DIK,OLDA,DA,ERR,PN,PE,ROOT"
^XMB(3.9,165,2,1287,0)="""RTN"",""XPDIA3"",11,0)"
^XMB(3.9,165,2,1288,0)=" S XP1=$O(^XTMP(""XPDI"",XPDA,""PKG"",0)) ;Get the package"
^XMB(3.9,165,2,1289,0)="""RTN"",""XPDIA3"",12,0)"
^XMB(3.9,165,2,1290,0)=" Q:'XP1  S PN=$G(^XTMP(""XPDI"",XPDA,""PKG"",XP1,0))"
^XMB(3.9,165,2,1291,0)="""RTN"",""XPDIA3"",13,0)"
^XMB(3.9,165,2,1292,0)=" S PE=$$FIND1^DIC(9.4,,""MX"",$P(PN,U,2)) ;Get the IEN of the package"
^XMB(3.9,165,2,1293,0)="""RTN"",""XPDIA3"",14,0)"
^XMB(3.9,165,2,1294,0)=" S OLDA=0,ROOT=$NA(^XTMP(""XPDI"",XPDA,""KRN"",8989.5))"
^XMB(3.9,165,2,1295,0)="""RTN"",""XPDIA3"",15,0)"
^XMB(3.9,165,2,1296,0)=" F  S OLDA=$O(@ROOT@(OLDA)) Q:'OLDA  D"
^XMB(3.9,165,2,1297,0)="""RTN"",""XPDIA3"",16,0)"
^XMB(3.9,165,2,1298,0)=" . S XP1=@ROOT@(OLDA,0)"
^XMB(3.9,165,2,1299,0)="""RTN"",""XPDIA3"",17,0)"
^XMB(3.9,165,2,1300,0)=" . S $P(XP1,U,1)=PE_"";DIC(9.4,"" ;entity"
^XMB(3.9,165,2,1301,0)="""RTN"",""XPDIA3"",18,0)"
^XMB(3.9,165,2,1302,0)=" . S $P(XP1,U,2)=$$LK^XPDIA($NA(^XTV(8989.51)),$P(XP1,U,2))"
^XMB(3.9,165,2,1303,0)="""RTN"",""XPDIA3"",19,0)"
^XMB(3.9,165,2,1304,0)=" . S DA=$$LKPAR($P(XP1,U),$P(XP1,U,2),$P(XP1,U,3))"
^XMB(3.9,165,2,1305,0)="""RTN"",""XPDIA3"",20,0)"
^XMB(3.9,165,2,1306,0)=" . ;Remove the current entry if we have one"
^XMB(3.9,165,2,1307,0)="""RTN"",""XPDIA3"",21,0)"
^XMB(3.9,165,2,1308,0)=" . I DA>0 S DIK=""^XTV(8989.5,"" D ^DIK"
^XMB(3.9,165,2,1309,0)="""RTN"",""XPDIA3"",22,0)"
^XMB(3.9,165,2,1310,0)=" . ;Otherwise Add the zero node, See that we have a IEN"
^XMB(3.9,165,2,1311,0)="""RTN"",""XPDIA3"",23,0)"
^XMB(3.9,165,2,1312,0)=" . I DA'>0 D ADDPAR($P(XP1,U),$P(XP1,U,2),$P(XP1,U,3)) S DA=$$LKPAR($P(XP1,U),$P(XP1,U,2),$P(XP1,U,3))"
^XMB(3.9,165,2,1313,0)="""RTN"",""XPDIA3"",24,0)"
^XMB(3.9,165,2,1314,0)=" . Q:'DA  ;don't have a entry"
^XMB(3.9,165,2,1315,0)="""RTN"",""XPDIA3"",25,0)"
^XMB(3.9,165,2,1316,0)=" . ;Merge the date ;with IHS fix"
^XMB(3.9,165,2,1317,0)="""RTN"",""XPDIA3"",26,0)"
^XMB(3.9,165,2,1318,0)=" . M ^XTV(8989.5,DA)=^XTMP(""XPDI"",XPDA,""KRN"",8989.5,OLDA)"
^XMB(3.9,165,2,1319,0)="""RTN"",""XPDIA3"",27,0)"
^XMB(3.9,165,2,1320,0)=" . S ^XTV(8989.5,DA,0)=XP1 ;zero node with new pointers"
^XMB(3.9,165,2,1321,0)="""RTN"",""XPDIA3"",28,0)"
^XMB(3.9,165,2,1322,0)=" . ;X-ref it"
^XMB(3.9,165,2,1323,0)="""RTN"",""XPDIA3"",29,0)"
^XMB(3.9,165,2,1324,0)=" . S DIK=""^XTV(8989.5,"" D IX1^DIK"
^XMB(3.9,165,2,1325,0)="""RTN"",""XPDIA3"",30,0)"
^XMB(3.9,165,2,1326,0)=" Q"
^XMB(3.9,165,2,1327,0)="""RTN"",""XPDIA3"",31,0)"
^XMB(3.9,165,2,1328,0)=" ;"
^XMB(3.9,165,2,1329,0)="""RTN"",""XPDIA3"",32,0)"
^XMB(3.9,165,2,1330,0)="LKPAR(ENT,PAR,INST) ;Lookup an entry"
^XMB(3.9,165,2,1331,0)="""RTN"",""XPDIA3"",33,0)"
^XMB(3.9,165,2,1332,0)=" Q $O(^XTV(8989.5,""AC"",PAR,ENT,INST,0))"
^XMB(3.9,165,2,1333,0)="""RTN"",""XPDIA3"",34,0)"
^XMB(3.9,165,2,1334,0)=" ;"
^XMB(3.9,165,2,1335,0)="""RTN"",""XPDIA3"",35,0)"
^XMB(3.9,165,2,1336,0)="ADDPAR(ENT,PAR,INST) ;Add a parameter instance"
^XMB(3.9,165,2,1337,0)="""RTN"",""XPDIA3"",36,0)"
^XMB(3.9,165,2,1338,0)=" N FDA,FDAIEN,DIERR"
^XMB(3.9,165,2,1339,0)="""RTN"",""XPDIA3"",37,0)"
^XMB(3.9,165,2,1340,0)=" S FDA(8989.5,""+1,"",.01)=ENT"
^XMB(3.9,165,2,1341,0)="""RTN"",""XPDIA3"",38,0)"
^XMB(3.9,165,2,1342,0)=" S FDA(8989.5,""+1,"",.02)=PAR"
^XMB(3.9,165,2,1343,0)="""RTN"",""XPDIA3"",39,0)"
^XMB(3.9,165,2,1344,0)=" S FDA(8989.5,""+1,"",.03)=INST"
^XMB(3.9,165,2,1345,0)="""RTN"",""XPDIA3"",40,0)"
^XMB(3.9,165,2,1346,0)=" D UPDATE^DIE("""",""FDA"",""FDAIEN"",""DIERR"")"
^XMB(3.9,165,2,1347,0)="""RTN"",""XPDIA3"",41,0)"
^XMB(3.9,165,2,1348,0)=" Q"
^XMB(3.9,165,2,1349,0)="""RTN"",""XPDIA3"",42,0)"
^XMB(3.9,165,2,1350,0)=" ;"
^XMB(3.9,165,2,1351,0)="""RTN"",""XPDIA3"",43,0)"
^XMB(3.9,165,2,1352,0)="PAR1F1 ;PARAMETER File 8989.51: file Pre"
^XMB(3.9,165,2,1353,0)="""RTN"",""XPDIA3"",44,0)"
^XMB(3.9,165,2,1354,0)=" Q"
^XMB(3.9,165,2,1355,0)="""RTN"",""XPDIA3"",45,0)"
^XMB(3.9,165,2,1356,0)="PAR1E1 ;PARAMETER file 8989.51: entry pre"
^XMB(3.9,165,2,1357,0)="""RTN"",""XPDIA3"",46,0)"
^XMB(3.9,165,2,1358,0)=" N XP1,XP2,XP3"
^XMB(3.9,165,2,1359,0)="""RTN"",""XPDIA3"",47,0)"
^XMB(3.9,165,2,1360,0)=" S ^TMP($J,""XPD"",DA)="""""
^XMB(3.9,165,2,1361,0)="""RTN"",""XPDIA3"",48,0)"
^XMB(3.9,165,2,1362,0)=" ;if there is a new Description, kill the old Description"
^XMB(3.9,165,2,1363,0)="""RTN"",""XPDIA3"",49,0)"
^XMB(3.9,165,2,1364,0)=" K:$O(^XTMP(""XPDI"",XPDA,""KRN"",8989.51,OLDA,20,0)) ^XTV(8989.51,DA,20)"
^XMB(3.9,165,2,1365,0)="""RTN"",""XPDIA3"",50,0)"
^XMB(3.9,165,2,1366,0)=" ;Kill any old Allowable entries"
^XMB(3.9,165,2,1367,0)="""RTN"",""XPDIA3"",51,0)"
^XMB(3.9,165,2,1368,0)=" K:$O(^XTMP(""XPDI"",XPDA,""KRN"",8989.51,OLDA,30,0)) ^XTV(8989.51,DA,30)"
^XMB(3.9,165,2,1369,0)="""RTN"",""XPDIA3"",52,0)"
^XMB(3.9,165,2,1370,0)=" Q"
^XMB(3.9,165,2,1371,0)="""RTN"",""XPDIA3"",53,0)"
^XMB(3.9,165,2,1372,0)="PAR1F2 ;PARAMETER file 8989.51: file post"
^XMB(3.9,165,2,1373,0)="""RTN"",""XPDIA3"",54,0)"
^XMB(3.9,165,2,1374,0)=" N XPD,DIK,DA"
^XMB(3.9,165,2,1375,0)="""RTN"",""XPDIA3"",55,0)"
^XMB(3.9,165,2,1376,0)=" S DA=0"
^XMB(3.9,165,2,1377,0)="""RTN"",""XPDIA3"",56,0)"
^XMB(3.9,165,2,1378,0)=" F  S DA=$O(^TMP($J,""XPD"",DA)) Q:'DA  D"
^XMB(3.9,165,2,1379,0)="""RTN"",""XPDIA3"",57,0)"
^XMB(3.9,165,2,1380,0)=" . S DIK=""^XTV(8989.51,"" D IX1^DIK"
^XMB(3.9,165,2,1381,0)="""RTN"",""XPDIA3"",58,0)"
^XMB(3.9,165,2,1382,0)=" D PAR0F2 ;Go load the entries from 8989.5"
^XMB(3.9,165,2,1383,0)="""RTN"",""XPDIA3"",59,0)"
^XMB(3.9,165,2,1384,0)=" Q"
^XMB(3.9,165,2,1385,0)="""RTN"",""XPDIA3"",60,0)"
^XMB(3.9,165,2,1386,0)="PAR1DEL(RT) ;Delete Parameter Def entries"
^XMB(3.9,165,2,1387,0)="""RTN"",""XPDIA3"",61,0)"
^XMB(3.9,165,2,1388,0)=" D DELPTR^XPDUTL1(8989.51,RT) ;Cleanup pointers"
^XMB(3.9,165,2,1389,0)="""RTN"",""XPDIA3"",62,0)"
^XMB(3.9,165,2,1390,0)=" D DELIEN^XPDUTL1(8989.51,RT) ;Cleanup entries"
^XMB(3.9,165,2,1391,0)="""RTN"",""XPDIA3"",63,0)"
^XMB(3.9,165,2,1392,0)=" Q"
^XMB(3.9,165,2,1393,0)="""RTN"",""XPDIA3"",64,0)"
^XMB(3.9,165,2,1394,0)=" ;"
^XMB(3.9,165,2,1395,0)="""RTN"",""XPDIA3"",65,0)"
^XMB(3.9,165,2,1396,0)="PAR2F1 ;PARAMETER File 8989.52: file Pre"
^XMB(3.9,165,2,1397,0)="""RTN"",""XPDIA3"",66,0)"
^XMB(3.9,165,2,1398,0)=" K ^TMP($J,""XPD"")"
^XMB(3.9,165,2,1399,0)="""RTN"",""XPDIA3"",67,0)"
^XMB(3.9,165,2,1400,0)=" Q"
^XMB(3.9,165,2,1401,0)="""RTN"",""XPDIA3"",68,0)"
^XMB(3.9,165,2,1402,0)="PAR2E1 ;PARAMETER file 8989.52: entry Pre"
^XMB(3.9,165,2,1403,0)="""RTN"",""XPDIA3"",69,0)"
^XMB(3.9,165,2,1404,0)=" N XP1,XP2,ROOT"
^XMB(3.9,165,2,1405,0)="""RTN"",""XPDIA3"",70,0)"
^XMB(3.9,165,2,1406,0)=" S ROOT=$NA(^XTMP(""XPDI"",XPDA,""KRN"",8989.52))"
^XMB(3.9,165,2,1407,0)="""RTN"",""XPDIA3"",71,0)"
^XMB(3.9,165,2,1408,0)=" S XP2=$P(@ROOT@(OLDA,0),U,4) ;Use instance of"
^XMB(3.9,165,2,1409,0)="""RTN"",""XPDIA3"",72,0)"
^XMB(3.9,165,2,1410,0)=" ;Because we change the transport global see that a restart will work"
^XMB(3.9,165,2,1411,0)="""RTN"",""XPDIA3"",73,0)"
^XMB(3.9,165,2,1412,0)=" I $L(XP2),XP2?1A.E S $P(@ROOT@(OLDA,0),U,4)=$$LK^XPDIA($NA(^XTV(8989.51)),XP2)"
^XMB(3.9,165,2,1413,0)="""RTN"",""XPDIA3"",74,0)"
^XMB(3.9,165,2,1414,0)=" S XP1=0"
^XMB(3.9,165,2,1415,0)="""RTN"",""XPDIA3"",75,0)"
^XMB(3.9,165,2,1416,0)=" F  S XP1=$O(@ROOT@(OLDA,10,XP1)),XP2="""" Q:'XP1  D"
^XMB(3.9,165,2,1417,0)="""RTN"",""XPDIA3"",76,0)"
^XMB(3.9,165,2,1418,0)=" . S XP2=$P(@ROOT@(OLDA,10,XP1,0),U,2) ;Parameter"
^XMB(3.9,165,2,1419,0)="""RTN"",""XPDIA3"",77,0)"
^XMB(3.9,165,2,1420,0)=" . I $L(XP2),XP2?1A.E S $P(@ROOT@(OLDA,10,XP1,0),U,2)=$$LK^XPDIA($NA(^XTV(8989.51)),XP2)"
^XMB(3.9,165,2,1421,0)="""RTN"",""XPDIA3"",78,0)"
^XMB(3.9,165,2,1422,0)=" . Q"
^XMB(3.9,165,2,1423,0)="""RTN"",""XPDIA3"",79,0)"
^XMB(3.9,165,2,1424,0)=" Q"
^XMB(3.9,165,2,1425,0)="""RTN"",""XPDIA3"",80,0)"
^XMB(3.9,165,2,1426,0)="PAR2F2 ;PARAMETER file 8989.52: file Post"
^XMB(3.9,165,2,1427,0)="""RTN"",""XPDIA3"",81,0)"
^XMB(3.9,165,2,1428,0)=" Q"
^XMB(3.9,165,2,1429,0)="""RTN"",""XPDIA3"",82,0)"
^XMB(3.9,165,2,1430,0)="PAR2DEL(RT) ;Delete Parameter Templates"
^XMB(3.9,165,2,1431,0)="""RTN"",""XPDIA3"",83,0)"
^XMB(3.9,165,2,1432,0)=" D DELIEN^XPDUTL1(8989.52,RT)"
^XMB(3.9,165,2,1433,0)="""RTN"",""XPDIA3"",84,0)"
^XMB(3.9,165,2,1434,0)=" Q"
^XMB(3.9,165,2,1435,0)="""RTN"",""XPDIP"")"
^XMB(3.9,165,2,1436,0)="0^6^B39786511^B39673736"
^XMB(3.9,165,2,1437,0)="""RTN"",""XPDIP"",1,0)"
^XMB(3.9,165,2,1438,0)="XPDIP ;SFISC/RSD - Install Package & Routine file ;03/08/2006"
^XMB(3.9,165,2,1439,0)="""RTN"",""XPDIP"",2,0)"
^XMB(3.9,165,2,1440,0)=" ;;8.0;KERNEL;**15,21,28,30,41,44,51,58,83,92,100,108,137,229,350,393**;Jul 10, 1995;Build 12"
^XMB(3.9,165,2,1441,0)="""RTN"",""XPDIP"",3,0)"
^XMB(3.9,165,2,1442,0)=" Q"
^XMB(3.9,165,2,1443,0)="""RTN"",""XPDIP"",4,0)"
^XMB(3.9,165,2,1444,0)="PKG ;"
^XMB(3.9,165,2,1445,0)="""RTN"",""XPDIP"",5,0)"
^XMB(3.9,165,2,1446,0)=" N %,OLDA,DA,DIK,XPD,XPDFIL,XPDPKG,XPDBLDA,Y"
^XMB(3.9,165,2,1447,0)="""RTN"",""XPDIP"",6,0)"
^XMB(3.9,165,2,1448,0)=" ;update variable for graphic display"
^XMB(3.9,165,2,1449,0)="""RTN"",""XPDIP"",7,0)"
^XMB(3.9,165,2,1450,0)=" I $D(XPDIDVT) S XPDIDTOT=10,XPDIDMOD=1,XPDIDCNT=0 D:XPDIDVT UPDATE^XPDID(0)"
^XMB(3.9,165,2,1451,0)="""RTN"",""XPDIP"",8,0)"
^XMB(3.9,165,2,1452,0)=" ;XPDPKG=ien of Package file, OLDA=old Package ien"
^XMB(3.9,165,2,1453,0)="""RTN"",""XPDIP"",9,0)"
^XMB(3.9,165,2,1454,0)=" S Y=$$PKGADD,XPDPKG=$P(Y,U),OLDA=$P(Y,U,2)"
^XMB(3.9,165,2,1455,0)="""RTN"",""XPDIP"",10,0)"
^XMB(3.9,165,2,1456,0)=" ;Package file entry not sent, XPDPKG=0"
^XMB(3.9,165,2,1457,0)="""RTN"",""XPDIP"",11,0)"
^XMB(3.9,165,2,1458,0)=" G:'XPDPKG PKGEND"
^XMB(3.9,165,2,1459,0)="""RTN"",""XPDIP"",12,0)"
^XMB(3.9,165,2,1460,0)=" ;update version multiple"
^XMB(3.9,165,2,1461,0)="""RTN"",""XPDIP"",13,0)"
^XMB(3.9,165,2,1462,0)=" S DA=XPDPKG D PKGV"
^XMB(3.9,165,2,1463,0)="""RTN"",""XPDIP"",14,0)"
^XMB(3.9,165,2,1464,0)="PKGH I $D(XPDIDVT) S XPDIDCNT=XPDIDCNT+2 D UPDATE^XPDID(XPDIDCNT)"
^XMB(3.9,165,2,1465,0)="""RTN"",""XPDIP"",15,0)"
^XMB(3.9,165,2,1466,0)=" S %=$P(^DIC(9.4,XPDPKG,0),U,4)"
^XMB(3.9,165,2,1467,0)="""RTN"",""XPDIP"",16,0)"
^XMB(3.9,165,2,1468,0)=" ;repoint Help Frame (0;4)"
^XMB(3.9,165,2,1469,0)="""RTN"",""XPDIP"",17,0)"
^XMB(3.9,165,2,1470,0)=" I $L(%),'% S $P(^DIC(9.4,XPDPKG,0),U,4)=$$LK^XPDIA(""^DIC(9.2)"",%),DIK=""^DIC(9.4,"" D IX1^DIK"
^XMB(3.9,165,2,1471,0)="""RTN"",""XPDIP"",18,0)"
^XMB(3.9,165,2,1472,0)=" ;update node 20 for Patient Merge"
^XMB(3.9,165,2,1473,0)="""RTN"",""XPDIP"",19,0)"
^XMB(3.9,165,2,1474,0)=" N REC,IEN"
^XMB(3.9,165,2,1475,0)="""RTN"",""XPDIP"",20,0)"
^XMB(3.9,165,2,1476,0)=" S REC=0"
^XMB(3.9,165,2,1477,0)="""RTN"",""XPDIP"",21,0)"
^XMB(3.9,165,2,1478,0)=" F  S REC=$O(^XTMP(""XPDI"",XPDA,""PKG"",OLDA,20,REC)) Q:'REC  D"
^XMB(3.9,165,2,1479,0)="""RTN"",""XPDIP"",22,0)"
^XMB(3.9,165,2,1480,0)=" . ;;Only install if have a routine defined"
^XMB(3.9,165,2,1481,0)="""RTN"",""XPDIP"",23,0)"
^XMB(3.9,165,2,1482,0)=" . K IEN I '$L($P($G(^XTMP(""XPDI"",XPDA,""PKG"",OLDA,20,REC,0)),U,3)) Q"
^XMB(3.9,165,2,1483,0)="""RTN"",""XPDIP"",24,0)"
^XMB(3.9,165,2,1484,0)=" . S IEN(9.402,""?+1,""_XPDPKG_"","",.01)=$P($G(^XTMP(""XPDI"",XPDA,""PKG"",OLDA,20,REC,0)),U,1)"
^XMB(3.9,165,2,1485,0)="""RTN"",""XPDIP"",25,0)"
^XMB(3.9,165,2,1486,0)=" . S IEN(9.402,""?+1,""_XPDPKG_"","",3)=$P($G(^XTMP(""XPDI"",XPDA,""PKG"",OLDA,20,REC,0)),U,3)"
^XMB(3.9,165,2,1487,0)="""RTN"",""XPDIP"",26,0)"
^XMB(3.9,165,2,1488,0)=" . S IEN(9.402,""?+1,""_XPDPKG_"","",4)=$G(^XTMP(""XPDI"",XPDA,""PKG"",OLDA,20,REC,1))"
^XMB(3.9,165,2,1489,0)="""RTN"",""XPDIP"",27,0)"
^XMB(3.9,165,2,1490,0)=" . D UPDATE^DIE("""",""IEN"")"
^XMB(3.9,165,2,1491,0)="""RTN"",""XPDIP"",28,0)"
^XMB(3.9,165,2,1492,0)=" . Q"
^XMB(3.9,165,2,1493,0)="""RTN"",""XPDIP"",29,0)"
^XMB(3.9,165,2,1494,0)=" ;"
^XMB(3.9,165,2,1495,0)="""RTN"",""XPDIP"",30,0)"
^XMB(3.9,165,2,1496,0)="PKGEND S XPDBLDA=$$BLD(XPDBLD) Q:'XPDBLDA"
^XMB(3.9,165,2,1497,0)="""RTN"",""XPDIP"",31,0)"
^XMB(3.9,165,2,1498,0)=" ;Move the Test/SEQ number from build to Install file."
^XMB(3.9,165,2,1499,0)="""RTN"",""XPDIP"",32,0)"
^XMB(3.9,165,2,1500,0)=" S ^XPD(9.7,XPDA,6)=$G(^XPD(9.6,XPDBLDA,6))"
^XMB(3.9,165,2,1501,0)="""RTN"",""XPDIP"",33,0)"
^XMB(3.9,165,2,1502,0)=" ;move Alpha/Beta testing info to Kernel site para file"
^XMB(3.9,165,2,1503,0)="""RTN"",""XPDIP"",34,0)"
^XMB(3.9,165,2,1504,0)=" I XPDPKG S %=$G(^XPD(9.6,XPDBLDA,""ABPKG"")) D"
^XMB(3.9,165,2,1505,0)="""RTN"",""XPDIP"",35,0)"
^XMB(3.9,165,2,1506,0)=" .;Install message and they have an address, set flag in XPDIST"
^XMB(3.9,165,2,1507,0)="""RTN"",""XPDIP"",36,0)"
^XMB(3.9,165,2,1508,0)=" .I $P(%,U)=""y"",$P(%,U,2)=""y"",$L($P(%,U,3)) S $P(XPDIST,U,2)=$P(%,U,3)"
^XMB(3.9,165,2,1509,0)="""RTN"",""XPDIP"",37,0)"
^XMB(3.9,165,2,1510,0)=" .D EN^XQABLOAD(XPDBLDA)"
^XMB(3.9,165,2,1511,0)="""RTN"",""XPDIP"",38,0)"
^XMB(3.9,165,2,1512,0)=" Q"
^XMB(3.9,165,2,1513,0)="""RTN"",""XPDIP"",39,0)"
^XMB(3.9,165,2,1514,0)="PKGADD() ;check Package file, add if not there"
^XMB(3.9,165,2,1515,0)="""RTN"",""XPDIP"",40,0)"
^XMB(3.9,165,2,1516,0)=" ;return new Package file ien^old ien"
^XMB(3.9,165,2,1517,0)="""RTN"",""XPDIP"",41,0)"
^XMB(3.9,165,2,1518,0)=" N DA,DIK,XPD,XPDFIL,XPDO,X,Y"
^XMB(3.9,165,2,1519,0)="""RTN"",""XPDIP"",42,0)"
^XMB(3.9,165,2,1520,0)=" S DA=+$P(^XPD(9.7,XPDA,0),U,2),XPDO=+$O(^XTMP(""XPDI"",XPDA,""PKG"",0)),X=$P($G(^(XPDO,0)),U)"
^XMB(3.9,165,2,1521,0)="""RTN"",""XPDIP"",43,0)"
^XMB(3.9,165,2,1522,0)=" I DA,$D(^DIC(9.4,DA,0)) Q DA_U_XPDO"
^XMB(3.9,165,2,1523,0)="""RTN"",""XPDIP"",44,0)"
^XMB(3.9,165,2,1524,0)=" ;quit if there was no package entry sent"
^XMB(3.9,165,2,1525,0)="""RTN"",""XPDIP"",45,0)"
^XMB(3.9,165,2,1526,0)=" Q:'XPDO ""0^0"""
^XMB(3.9,165,2,1527,0)="""RTN"",""XPDIP"",46,0)"
^XMB(3.9,165,2,1528,0)=" S XPDFIL=9.4,Y=$$DIC^XPDIK(9.4,X) Q:'Y ""0^0"""
^XMB(3.9,165,2,1529,0)="""RTN"",""XPDIP"",47,0)"
^XMB(3.9,165,2,1530,0)=" S DA=+Y"
^XMB(3.9,165,2,1531,0)="""RTN"",""XPDIP"",48,0)"
^XMB(3.9,165,2,1532,0)=" ;if new entry in package file, bring in everything"
^XMB(3.9,165,2,1533,0)="""RTN"",""XPDIP"",49,0)"
^XMB(3.9,165,2,1534,0)=" I $P(Y,U,3) D"
^XMB(3.9,165,2,1535,0)="""RTN"",""XPDIP"",50,0)"
^XMB(3.9,165,2,1536,0)=" .M ^DIC(9.4,DA)=^XTMP(""XPDI"",XPDA,""PKG"",XPDO)"
^XMB(3.9,165,2,1537,0)="""RTN"",""XPDIP"",51,0)"
^XMB(3.9,165,2,1538,0)=" .;kill the -1 flag node first"
^XMB(3.9,165,2,1539,0)="""RTN"",""XPDIP"",52,0)"
^XMB(3.9,165,2,1540,0)=" .K ^DIC(9.4,DA,-1)"
^XMB(3.9,165,2,1541,0)="""RTN"",""XPDIP"",53,0)"
^XMB(3.9,165,2,1542,0)=" .;re-cross ref after adding a new package"
^XMB(3.9,165,2,1543,0)="""RTN"",""XPDIP"",54,0)"
^XMB(3.9,165,2,1544,0)=" .S DIK=""^DIC(9.4,"" D IX1^DIK"
^XMB(3.9,165,2,1545,0)="""RTN"",""XPDIP"",55,0)"
^XMB(3.9,165,2,1546,0)=" ;add package to file 9.7"
^XMB(3.9,165,2,1547,0)="""RTN"",""XPDIP"",56,0)"
^XMB(3.9,165,2,1548,0)=" S XPD(9.7,XPDA_"","",1)=DA D FILE^DIE("""",""XPD"")"
^XMB(3.9,165,2,1549,0)="""RTN"",""XPDIP"",57,0)"
^XMB(3.9,165,2,1550,0)=" Q DA_U_XPDO"
^XMB(3.9,165,2,1551,0)="""RTN"",""XPDIP"",58,0)"
^XMB(3.9,165,2,1552,0)=" ;"
^XMB(3.9,165,2,1553,0)="""RTN"",""XPDIP"",59,0)"
^XMB(3.9,165,2,1554,0)="BLD(XPDBLD) ;add Build entry, XPDBLD=Build ien in ^XTMP(""XPDI"",XPDA,""BLD"","
^XMB(3.9,165,2,1555,0)="""RTN"",""XPDIP"",60,0)"
^XMB(3.9,165,2,1556,0)=" N %,DA,DIK,XPDFIL,Y"
^XMB(3.9,165,2,1557,0)="""RTN"",""XPDIP"",61,0)"
^XMB(3.9,165,2,1558,0)=" I $D(XPDIDVT) S XPDIDCNT=XPDIDCNT+4 D UPDATE^XPDID(XPDIDCNT)"
^XMB(3.9,165,2,1559,0)="""RTN"",""XPDIP"",62,0)"
^XMB(3.9,165,2,1560,0)=" ;XPDBLD=Build ien in ^XTMP, set in XPDIJ"
^XMB(3.9,165,2,1561,0)="""RTN"",""XPDIP"",63,0)"
^XMB(3.9,165,2,1562,0)=" S XPDFIL=9.6,Y=$$DIC^XPDIK(9.6,XPDNM) Q:'Y """""
^XMB(3.9,165,2,1563,0)="""RTN"",""XPDIP"",64,0)"
^XMB(3.9,165,2,1564,0)=" S DA=+Y"
^XMB(3.9,165,2,1565,0)="""RTN"",""XPDIP"",65,0)"
^XMB(3.9,165,2,1566,0)=" ;Build entry not new, remove old data"
^XMB(3.9,165,2,1567,0)="""RTN"",""XPDIP"",66,0)"
^XMB(3.9,165,2,1568,0)=" I '$P(Y,U,3) S %=$P(^XPD(9.6,DA,0),U,2) K ^XPD(9.6,DA) K:% ^XPD(9.6,""C"",%,DA)"
^XMB(3.9,165,2,1569,0)="""RTN"",""XPDIP"",67,0)"
^XMB(3.9,165,2,1570,0)=" M ^XPD(9.6,DA)=^XTMP(""XPDI"",XPDA,""BLD"",XPDBLD)"
^XMB(3.9,165,2,1571,0)="""RTN"",""XPDIP"",68,0)"
^XMB(3.9,165,2,1572,0)=" ;reset Package File Link (0;2)"
^XMB(3.9,165,2,1573,0)="""RTN"",""XPDIP"",69,0)"
^XMB(3.9,165,2,1574,0)=" ;XPDIST = national site tracking^A/B install message address"
^XMB(3.9,165,2,1575,0)="""RTN"",""XPDIP"",70,0)"
^XMB(3.9,165,2,1576,0)=" S $P(^XPD(9.6,DA,0),U,2)=$S(XPDPKG:XPDPKG,1:"""") S:$P(^(0),U,5)=""y"" XPDIST=1"
^XMB(3.9,165,2,1577,0)="""RTN"",""XPDIP"",71,0)"
^XMB(3.9,165,2,1578,0)=" ;re-index cross-ref. on fields .01 and 1"
^XMB(3.9,165,2,1579,0)="""RTN"",""XPDIP"",72,0)"
^XMB(3.9,165,2,1580,0)=" S DIK=""^XPD(9.6,"" F Y=.01,1 S DIK(1)=Y D EN1^DIK"
^XMB(3.9,165,2,1581,0)="""RTN"",""XPDIP"",73,0)"
^XMB(3.9,165,2,1582,0)=" I $D(XPDIDVT) D UPDATE^XPDID(XPDIDTOT)"
^XMB(3.9,165,2,1583,0)="""RTN"",""XPDIP"",74,0)"
^XMB(3.9,165,2,1584,0)=" Q DA"
^XMB(3.9,165,2,1585,0)="""RTN"",""XPDIP"",75,0)"
^XMB(3.9,165,2,1586,0)=" ;"
^XMB(3.9,165,2,1587,0)="""RTN"",""XPDIP"",76,0)"
^XMB(3.9,165,2,1588,0)=" ;update the version multiple in the package file"
^XMB(3.9,165,2,1589,0)="""RTN"",""XPDIP"",77,0)"
^XMB(3.9,165,2,1590,0)="PKGV N %"
^XMB(3.9,165,2,1591,0)="""RTN"",""XPDIP"",78,0)"
^XMB(3.9,165,2,1592,0)=" I $D(XPDIDVT) S XPDIDCNT=XPDIDCNT+2 D UPDATE^XPDID(XPDIDCNT)"
^XMB(3.9,165,2,1593,0)="""RTN"",""XPDIP"",79,0)"
^XMB(3.9,165,2,1594,0)=" ;%=ien in the Version multiple_U_ien in Patch multiple in ^XTMP"
^XMB(3.9,165,2,1595,0)="""RTN"",""XPDIP"",80,0)"
^XMB(3.9,165,2,1596,0)=" S %=$G(^XTMP(""XPDI"",XPDA,""PKG"",OLDA,-1))"
^XMB(3.9,165,2,1597,0)="""RTN"",""XPDIP"",81,0)"
^XMB(3.9,165,2,1598,0)=" I XPDNM'[""*"" D  Q"
^XMB(3.9,165,2,1599,0)="""RTN"",""XPDIP"",82,0)"
^XMB(3.9,165,2,1600,0)=" .S %=+% Q:'$D(^XTMP(""XPDI"",XPDA,""PKG"",OLDA,22,%,0))  S %=^(0) S:$D(^(1)) %(1)=$NA(^(1))"
^XMB(3.9,165,2,1601,0)="""RTN"",""XPDIP"",83,0)"
^XMB(3.9,165,2,1602,0)=" .S $P(%,U,3,4)=DT_U_DUZ,%=$$PKGVER(DA,.%)"
^XMB(3.9,165,2,1603,0)="""RTN"",""XPDIP"",84,0)"
^XMB(3.9,165,2,1604,0)=" ;update patch history multiple"
^XMB(3.9,165,2,1605,0)="""RTN"",""XPDIP"",85,0)"
^XMB(3.9,165,2,1606,0)=" Q:'$D(^XTMP(""XPDI"",XPDA,""PKG"",OLDA,22,+%,""PAH"",+$P(%,U,2),0))  S %=$P(^(0),U) S:$D(^(1)) %(1)=$NA(^(1))"
^XMB(3.9,165,2,1607,0)="""RTN"",""XPDIP"",86,0)"
^XMB(3.9,165,2,1608,0)=" ;check File Comment, %=patch number"
^XMB(3.9,165,2,1609,0)="""RTN"",""XPDIP"",87,0)"
^XMB(3.9,165,2,1610,0)=" S:^XPD(9.7,XPDA,2)["" SEQ #"" %=$P(^(2),""*"",3)"
^XMB(3.9,165,2,1611,0)="""RTN"",""XPDIP"",88,0)"
^XMB(3.9,165,2,1612,0)=" S $P(%,U,2,3)=$$NOW^XLFDT()_U_DUZ,%=$$PKGPAT(DA,$$VER^XPDUTL(XPDNM),.%)"
^XMB(3.9,165,2,1613,0)="""RTN"",""XPDIP"",89,0)"
^XMB(3.9,165,2,1614,0)=" Q"
^XMB(3.9,165,2,1615,0)="""RTN"",""XPDIP"",90,0)"
^XMB(3.9,165,2,1616,0)=" ;"
^XMB(3.9,165,2,1617,0)="""RTN"",""XPDIP"",91,0)"
^XMB(3.9,165,2,1618,0)="PKGVER(XPDPDA,XPDI) ;update version in package file, XPDPDA=Package file ien, return ien"
^XMB(3.9,165,2,1619,0)="""RTN"",""XPDIP"",92,0)"
^XMB(3.9,165,2,1620,0)=" ;XPDI=version^date distr.^date installed^install by"
^XMB(3.9,165,2,1621,0)="""RTN"",""XPDIP"",93,0)"
^XMB(3.9,165,2,1622,0)=" ;XPDI(1)=root of description field"
^XMB(3.9,165,2,1623,0)="""RTN"",""XPDIP"",94,0)"
^XMB(3.9,165,2,1624,0)=" N I,X,XPD,XPDIEN,XPDJ,XPDV"
^XMB(3.9,165,2,1625,0)="""RTN"",""XPDIP"",95,0)"
^XMB(3.9,165,2,1626,0)=" S XPDIEN="",""_XPDPDA_"","",XPDV=$$MDIC(9.49,XPDIEN,$P(XPDI,U)) Q:'XPDV 0"
^XMB(3.9,165,2,1627,0)="""RTN"",""XPDIP"",96,0)"
^XMB(3.9,165,2,1628,0)=" S XPD(9.4,XPDPDA_"","",13)=$P(XPDI,U),X=""XPD(9.49,""""""_XPDV_XPDIEN_"""""")"""
^XMB(3.9,165,2,1629,0)="""RTN"",""XPDIP"",97,0)"
^XMB(3.9,165,2,1630,0)=" F I=1:1:3 S:$P(XPDI,U,I+1)]"""" @X@(I)=$P(XPDI,U,I+1)"
^XMB(3.9,165,2,1631,0)="""RTN"",""XPDIP"",98,0)"
^XMB(3.9,165,2,1632,0)=" S:$D(XPDI(1)) @X@(41)=XPDI(1)"
^XMB(3.9,165,2,1633,0)="""RTN"",""XPDIP"",99,0)"
^XMB(3.9,165,2,1634,0)=" D FILE^DIE("""",""XPD"")"
^XMB(3.9,165,2,1635,0)="""RTN"",""XPDIP"",100,0)"
^XMB(3.9,165,2,1636,0)=" Q XPDV"
^XMB(3.9,165,2,1637,0)="""RTN"",""XPDIP"",101,0)"
^XMB(3.9,165,2,1638,0)=" ;"
^XMB(3.9,165,2,1639,0)="""RTN"",""XPDIP"",102,0)"
^XMB(3.9,165,2,1640,0)="PKGPAT(XPDPDA,XPDV,XPDI) ;update patch history"
^XMB(3.9,165,2,1641,0)="""RTN"",""XPDIP"",103,0)"
^XMB(3.9,165,2,1642,0)=" ;INPUT: XPDPDA=Package file ien, XPDV=version"
^XMB(3.9,165,2,1643,0)="""RTN"",""XPDIP"",104,0)"
^XMB(3.9,165,2,1644,0)=" ;XPDI=patch^date installed^install by,   returns version ien^patch ien"
^XMB(3.9,165,2,1645,0)="""RTN"",""XPDIP"",105,0)"
^XMB(3.9,165,2,1646,0)=" N I,X,XPD,XPDP,XPDIEN"
^XMB(3.9,165,2,1647,0)="""RTN"",""XPDIP"",106,0)"
^XMB(3.9,165,2,1648,0)=" ;quit if we can't find the version multiple, resets XPDV=ien of version"
^XMB(3.9,165,2,1649,0)="""RTN"",""XPDIP"",107,0)"
^XMB(3.9,165,2,1650,0)=" S XPDIEN="",""_XPDPDA_"","",XPDV=$$MDIC(9.49,XPDIEN,XPDV) Q:'XPDV 0"
^XMB(3.9,165,2,1651,0)="""RTN"",""XPDIP"",108,0)"
^XMB(3.9,165,2,1652,0)=" S XPDIEN="",""_XPDV_XPDIEN,XPDP=$$MDIC(9.4901,XPDIEN,$P(XPDI,U)) Q:'XPDP 0"
^XMB(3.9,165,2,1653,0)="""RTN"",""XPDIP"",109,0)"
^XMB(3.9,165,2,1654,0)=" S X=""XPD(9.4901,""""""_XPDP_XPDIEN_"""""")"""
^XMB(3.9,165,2,1655,0)="""RTN"",""XPDIP"",110,0)"
^XMB(3.9,165,2,1656,0)=" F I=.02,.03 S:$P(XPDI,U,I*100)]"""" @X@(I)=$P(XPDI,U,I*100)"
^XMB(3.9,165,2,1657,0)="""RTN"",""XPDIP"",111,0)"
^XMB(3.9,165,2,1658,0)=" S:$D(XPDI(1)) @X@(1)=XPDI(1)"
^XMB(3.9,165,2,1659,0)="""RTN"",""XPDIP"",112,0)"
^XMB(3.9,165,2,1660,0)=" D FILE^DIE("""",""XPD"")"
^XMB(3.9,165,2,1661,0)="""RTN"",""XPDIP"",113,0)"
^XMB(3.9,165,2,1662,0)=" Q XPDV_U_XPDP"
^XMB(3.9,165,2,1663,0)="""RTN"",""XPDIP"",114,0)"
^XMB(3.9,165,2,1664,0)=" ;"
^XMB(3.9,165,2,1665,0)="""RTN"",""XPDIP"",115,0)"
^XMB(3.9,165,2,1666,0)=" ;XPDF=subfile #,XPDIEN=ien string, X=input"
^XMB(3.9,165,2,1667,0)="""RTN"",""XPDIP"",116,0)"
^XMB(3.9,165,2,1668,0)="MDIC(XPDF,XPDIEN,XPDX) ;"
^XMB(3.9,165,2,1669,0)="""RTN"",""XPDIP"",117,0)"
^XMB(3.9,165,2,1670,0)=" N DIERR,XPD,XPDN"
^XMB(3.9,165,2,1671,0)="""RTN"",""XPDIP"",118,0)"
^XMB(3.9,165,2,1672,0)=" D FIND^DIC(XPDF,XPDIEN,"""",""XQf"",XPDX,5,"""","""","""",""XPD"")"
^XMB(3.9,165,2,1673,0)="""RTN"",""XPDIP"",119,0)"
^XMB(3.9,165,2,1674,0)=" ;one or more matches, just return first one"
^XMB(3.9,165,2,1675,0)="""RTN"",""XPDIP"",120,0)"
^XMB(3.9,165,2,1676,0)=" I $G(XPD(0)) D:XPD(0)>1  Q XPD(1)"
^XMB(3.9,165,2,1677,0)="""RTN"",""XPDIP"",121,0)"
^XMB(3.9,165,2,1678,0)=" .N %"
^XMB(3.9,165,2,1679,0)="""RTN"",""XPDIP"",122,0)"
^XMB(3.9,165,2,1680,0)=" .S %(1)=$P(^DD(XPDF,.01,0),U)_""  ""_XPDX_""  is Duplicated,"",%(2)="" only ien #""_XPD(1)_"" was updated."""
^XMB(3.9,165,2,1681,0)="""RTN"",""XPDIP"",123,0)"
^XMB(3.9,165,2,1682,0)=" .D MES^XPDUTL(.%)"
^XMB(3.9,165,2,1683,0)="""RTN"",""XPDIP"",124,0)"
^XMB(3.9,165,2,1684,0)=" ;add a new entry"
^XMB(3.9,165,2,1685,0)="""RTN"",""XPDIP"",125,0)"
^XMB(3.9,165,2,1686,0)=" S XPDN(XPDF,""+1""_XPDIEN,.01)=XPDX K XPD"
^XMB(3.9,165,2,1687,0)="""RTN"",""XPDIP"",126,0)"
^XMB(3.9,165,2,1688,0)=" D UPDATE^DIE("""",""XPDN"",""XPD"")"
^XMB(3.9,165,2,1689,0)="""RTN"",""XPDIP"",127,0)"
^XMB(3.9,165,2,1690,0)=" I '$G(XPD(1)) D BMES^XPDUTL("" ""_$P(^DD(XPDF,.01,0),U)_"" ""_XPDX_"" **Couldn't Add to file**"") Q 0"
^XMB(3.9,165,2,1691,0)="""RTN"",""XPDIP"",128,0)"
^XMB(3.9,165,2,1692,0)=" Q XPD(1)"
^XMB(3.9,165,2,1693,0)="""RTN"",""XPDIP"",129,0)"
^XMB(3.9,165,2,1694,0)=" ;"
^XMB(3.9,165,2,1695,0)="""RTN"",""XPDIP"",130,0)"
^XMB(3.9,165,2,1696,0)="RTN ;move rtns to install file"
^XMB(3.9,165,2,1697,0)="""RTN"",""XPDIP"",131,0)"
^XMB(3.9,165,2,1698,0)=" N XPD,XPDC,XPDCR,XPDI,XPDJ,XPDK,XPDL,XPDM,XPDR,XPDRH,X,NOW"
^XMB(3.9,165,2,1699,0)="""RTN"",""XPDIP"",132,0)"
^XMB(3.9,165,2,1700,0)=" K ^XPD(9.7,XPDA,""RTN""),^TMP($J)"
^XMB(3.9,165,2,1701,0)="""RTN"",""XPDIP"",133,0)"
^XMB(3.9,165,2,1702,0)=" S (XPDC,XPDCR,XPDRH)=0,XPDJ="""",NOW=$$NOW^XLFDT()"
^XMB(3.9,165,2,1703,0)="""RTN"",""XPDIP"",134,0)"
^XMB(3.9,165,2,1704,0)=" ;get all routines that were loaded, XPDM=action"
^XMB(3.9,165,2,1705,0)="""RTN"",""XPDIP"",135,0)"
^XMB(3.9,165,2,1706,0)=" ;actions are 0=load, 1=delete, 2=skip"
^XMB(3.9,165,2,1707,0)="""RTN"",""XPDIP"",136,0)"
^XMB(3.9,165,2,1708,0)=" F  S XPDJ=$O(^XTMP(""XPDI"",XPDA,""RTN"",XPDJ)) Q:XPDJ=""""  S XPDM=^(XPDJ) D:'XPDM"
^XMB(3.9,165,2,1709,0)="""RTN"",""XPDIP"",137,0)"
^XMB(3.9,165,2,1710,0)=" .;XPD, build array to update ROUTINE multiple in INSTALL file"
^XMB(3.9,165,2,1711,0)="""RTN"",""XPDIP"",138,0)"
^XMB(3.9,165,2,1712,0)=" .S XPDC=XPDC+1,^TMP($J,""XPDL"",XPDC)=XPDC,^TMP($J,""XPD"",9.704,""+""_XPDC_"",""_XPDA_"","",.01)=XPDJ"
^XMB(3.9,165,2,1713,0)="""RTN"",""XPDIP"",139,0)"
^XMB(3.9,165,2,1714,0)=" .;XPDR, build array to update ROUTINE file, Set install date"
^XMB(3.9,165,2,1715,0)="""RTN"",""XPDIP"",140,0)"
^XMB(3.9,165,2,1716,0)=" .;S:'$D(^DIC(9.8,""B"",XPDJ)) XPDCR=XPDCR+1,^TMP($J,""XPDR"",9.8,""?+""_XPDCR_"","",.01)=XPDJ,^(1)=""R"""
^XMB(3.9,165,2,1717,0)="""RTN"",""XPDIP"",141,0)"
^XMB(3.9,165,2,1718,0)=" .S XPDCR=XPDCR+1,^TMP($J,""XPDR"",9.8,""?+""_XPDCR_"","",.01)=XPDJ,^(1)=""R"",^(7.4)=NOW ;**229"
^XMB(3.9,165,2,1719,0)="""RTN"",""XPDIP"",142,0)"
^XMB(3.9,165,2,1720,0)=" ;if we are doing VT graphic display, update only 40%"
^XMB(3.9,165,2,1721,0)="""RTN"",""XPDIP"",143,0)"
^XMB(3.9,165,2,1722,0)=" I $D(XPDIDVT) S XPDIDCNT=XPDIDTOT*.4 D UPDATE^XPDID(XPDIDCNT)"
^XMB(3.9,165,2,1723,0)="""RTN"",""XPDIP"",144,0)"
^XMB(3.9,165,2,1724,0)=" F XPDK=""DIKZ"",""DIEZ"",""DIPZ"" D"
^XMB(3.9,165,2,1725,0)="""RTN"",""XPDIP"",145,0)"
^XMB(3.9,165,2,1726,0)=" .S XPDI=0"
^XMB(3.9,165,2,1727,0)="""RTN"",""XPDIP"",146,0)"
^XMB(3.9,165,2,1728,0)=" .;loop thru list of compile template routines"
^XMB(3.9,165,2,1729,0)="""RTN"",""XPDIP"",147,0)"
^XMB(3.9,165,2,1730,0)=" .;XTMP(""XPDI"",XPDA,""DIKZ"",ien,routine name)"
^XMB(3.9,165,2,1731,0)="""RTN"",""XPDIP"",148,0)"
^XMB(3.9,165,2,1732,0)=" .F  S XPDI=$O(^XTMP(""XPDI"",XPDA,XPDK,XPDI)),XPDJ="""" Q:'XPDI  D"
^XMB(3.9,165,2,1733,0)="""RTN"",""XPDIP"",149,0)"
^XMB(3.9,165,2,1734,0)=" ..I 'XPDRH D BMES^XPDUTL("" The following Routines were created during this install:"") S XPDRH=1"
^XMB(3.9,165,2,1735,0)="""RTN"",""XPDIP"",150,0)"
^XMB(3.9,165,2,1736,0)=" ..F  S XPDJ=$O(^XTMP(""XPDI"",XPDA,XPDK,XPDI,XPDJ)) Q:XPDJ=""""  D:'$D(^XTMP(""XPDI"",XPDA,""RTN"",XPDJ))"
^XMB(3.9,165,2,1737,0)="""RTN"",""XPDIP"",151,0)"
^XMB(3.9,165,2,1738,0)=" ...S XPDC=XPDC+1,^TMP($J,""XPDL"",XPDC)=XPDC,^TMP($J,""XPD"",9.704,""+""_XPDC_"",""_XPDA_"","",.01)=XPDJ"
^XMB(3.9,165,2,1739,0)="""RTN"",""XPDIP"",152,0)"
^XMB(3.9,165,2,1740,0)=" ...D MES^XPDUTL(""     ""_XPDJ)"
^XMB(3.9,165,2,1741,0)="""RTN"",""XPDIP"",153,0)"
^XMB(3.9,165,2,1742,0)=" ;update routine multiple in Install file with routines and"
^XMB(3.9,165,2,1743,0)="""RTN"",""XPDIP"",154,0)"
^XMB(3.9,165,2,1744,0)=" ;compile template routines"
^XMB(3.9,165,2,1745,0)="""RTN"",""XPDIP"",155,0)"
^XMB(3.9,165,2,1746,0)=" I $D(^TMP($J,""XPD""))>9 D"
^XMB(3.9,165,2,1747,0)="""RTN"",""XPDIP"",156,0)"
^XMB(3.9,165,2,1748,0)=" .D UPDATE^DIE("""",""^TMP($J,""""XPD"""")"",""^TMP($J,""""XPDL"""")"")"
^XMB(3.9,165,2,1749,0)="""RTN"",""XPDIP"",157,0)"
^XMB(3.9,165,2,1750,0)=" .;if we are doing VT graphic display, update only 40%"
^XMB(3.9,165,2,1751,0)="""RTN"",""XPDIP"",158,0)"
^XMB(3.9,165,2,1752,0)=" .I $D(XPDIDVT) S XPDIDCNT=XPDIDCNT+(XPDIDTOT*.40) D UPDATE^XPDID(XPDIDCNT)"
^XMB(3.9,165,2,1753,0)="""RTN"",""XPDIP"",159,0)"
^XMB(3.9,165,2,1754,0)=" ;update Routine file"
^XMB(3.9,165,2,1755,0)="""RTN"",""XPDIP"",160,0)"
^XMB(3.9,165,2,1756,0)=" D:$D(^TMP($J,""XPDR""))>9 UPDATE^DIE("""",""^TMP($J,""""XPDR"""")"")"
^XMB(3.9,165,2,1757,0)="""RTN"",""XPDIP"",161,0)"
^XMB(3.9,165,2,1758,0)=" ;if we are doing VT graphic display, update 100%"
^XMB(3.9,165,2,1759,0)="""RTN"",""XPDIP"",162,0)"
^XMB(3.9,165,2,1760,0)=" I $D(XPDIDVT) D UPDATE^XPDID(XPDIDTOT)"
^XMB(3.9,165,2,1761,0)="""RTN"",""XPDIP"",163,0)"
^XMB(3.9,165,2,1762,0)=" Q"
^XMB(3.9,165,2,1763,0)="""RTN"",""XPDIR"")"
^XMB(3.9,165,2,1764,0)="0^3^B4848673^B4714175"
^XMB(3.9,165,2,1765,0)="""RTN"",""XPDIR"",1,0)"
^XMB(3.9,165,2,1766,0)="XPDIR ;SFISC/RSD - Install Restart ; 09/29/2005"
^XMB(3.9,165,2,1767,0)="""RTN"",""XPDIR"",2,0)"
^XMB(3.9,165,2,1768,0)=" ;;8.0;KERNEL;**30,58,393**;Jul 10, 1995;Build 12"
^XMB(3.9,165,2,1769,0)="""RTN"",""XPDIR"",3,0)"
^XMB(3.9,165,2,1770,0)="EN ;restart install"
^XMB(3.9,165,2,1771,0)="""RTN"",""XPDIR"",4,0)"
^XMB(3.9,165,2,1772,0)=" N DIR,DIRUT,POP,XPD,XPDA,XPDD,XPDIJ,XPDDIQ,XPDNM,XPDNOQUE,XPDPKG,XPDST,XPDSET,XPDT,XPDQUIT,XPDQUES,Y,ZTSK,%"
^XMB(3.9,165,2,1773,0)="""RTN"",""XPDIR"",5,0)"
^XMB(3.9,165,2,1774,0)=" S %=""I $P(^(0),U,9)#3,$D(^XPD(9.7,""""ASP"""",Y,1,Y)),$D(^XTMP(""""XPDI"""",Y))"",XPDST=$$LOOK^XPDI1(%)"
^XMB(3.9,165,2,1775,0)="""RTN"",""XPDIR"",6,0)"
^XMB(3.9,165,2,1776,0)=" Q:'XPDST!$D(XPDQUIT)"
^XMB(3.9,165,2,1777,0)="""RTN"",""XPDIR"",7,0)"
^XMB(3.9,165,2,1778,0)=" S ZTSK=$P(^XPD(9.7,XPDST,0),U,6) D:ZTSK"
^XMB(3.9,165,2,1779,0)="""RTN"",""XPDIR"",8,0)"
^XMB(3.9,165,2,1780,0)=" .;check if task exist or is queued"
^XMB(3.9,165,2,1781,0)="""RTN"",""XPDIR"",9,0)"
^XMB(3.9,165,2,1782,0)=" .D ISQED^%ZTLOAD"
^XMB(3.9,165,2,1783,0)="""RTN"",""XPDIR"",10,0)"
^XMB(3.9,165,2,1784,0)=" .;task is queued to run"
^XMB(3.9,165,2,1785,0)="""RTN"",""XPDIR"",11,0)"
^XMB(3.9,165,2,1786,0)=" .Q:ZTSK(0)"
^XMB(3.9,165,2,1787,0)="""RTN"",""XPDIR"",12,0)"
^XMB(3.9,165,2,1788,0)=" .;task doesn't exist, k ZTSK so it can be re-scheduled"
^XMB(3.9,165,2,1789,0)="""RTN"",""XPDIR"",13,0)"
^XMB(3.9,165,2,1790,0)=" .I ZTSK(0)="""" K ZTSK Q"
^XMB(3.9,165,2,1791,0)="""RTN"",""XPDIR"",14,0)"
^XMB(3.9,165,2,1792,0)=" .D STAT^%ZTLOAD"
^XMB(3.9,165,2,1793,0)="""RTN"",""XPDIR"",15,0)"
^XMB(3.9,165,2,1794,0)=" .;task is not define"
^XMB(3.9,165,2,1795,0)="""RTN"",""XPDIR"",16,0)"
^XMB(3.9,165,2,1796,0)=" .I 'ZTSK(1) K ZTSK Q"
^XMB(3.9,165,2,1797,0)="""RTN"",""XPDIR"",17,0)"
^XMB(3.9,165,2,1798,0)=" .;task is queued to run"
^XMB(3.9,165,2,1799,0)="""RTN"",""XPDIR"",18,0)"
^XMB(3.9,165,2,1800,0)=" .Q:ZTSK(1)=1"
^XMB(3.9,165,2,1801,0)="""RTN"",""XPDIR"",19,0)"
^XMB(3.9,165,2,1802,0)=" .;task is running, set quit flag"
^XMB(3.9,165,2,1803,0)="""RTN"",""XPDIR"",20,0)"
^XMB(3.9,165,2,1804,0)=" .I ZTSK(1)=2 S XPDQUIT=1 W !,""Install is currently running, cannot re-install!"" Q"
^XMB(3.9,165,2,1805,0)="""RTN"",""XPDIR"",21,0)"
^XMB(3.9,165,2,1806,0)=" .;task finished or was interrupted, kill it so it can be rescheduled"
^XMB(3.9,165,2,1807,0)="""RTN"",""XPDIR"",22,0)"
^XMB(3.9,165,2,1808,0)=" .D KILL^%ZTLOAD K ZTSK Q"
^XMB(3.9,165,2,1809,0)="""RTN"",""XPDIR"",23,0)"
^XMB(3.9,165,2,1810,0)=" ;abort if there is nothing to install or they '^'"
^XMB(3.9,165,2,1811,0)="""RTN"",""XPDIR"",24,0)"
^XMB(3.9,165,2,1812,0)=" G:'$O(XPDT(0))!$D(XPDQUIT) ABORT"
^XMB(3.9,165,2,1813,0)="""RTN"",""XPDIR"",25,0)"
^XMB(3.9,165,2,1814,0)=" ;clean out old task, so they can reinstall"
^XMB(3.9,165,2,1815,0)="""RTN"",""XPDIR"",26,0)"
^XMB(3.9,165,2,1816,0)=" I '$D(ZTSK) D"
^XMB(3.9,165,2,1817,0)="""RTN"",""XPDIR"",27,0)"
^XMB(3.9,165,2,1818,0)=" .N XPD"
^XMB(3.9,165,2,1819,0)="""RTN"",""XPDIR"",28,0)"
^XMB(3.9,165,2,1820,0)=" .S XPD(9.7,XPDST_"","",5)=""""  D FILE^DIE("""",""XPD"")"
^XMB(3.9,165,2,1821,0)="""RTN"",""XPDIR"",29,0)"
^XMB(3.9,165,2,1822,0)=" I $G(ZTSK) W !!,""This install is already queued as task #"",ZTSK,!,""Please use the Taskman Menu if you want to reschedule."" G ABORT"
^XMB(3.9,165,2,1823,0)="""RTN"",""XPDIR"",30,0)"
^XMB(3.9,165,2,1824,0)=" ;kill XPDT array so that while in XPDI and ABORT is called, nothing is deleted"
^XMB(3.9,165,2,1825,0)="""RTN"",""XPDIR"",31,0)"
^XMB(3.9,165,2,1826,0)=" S XPDIJ=0,XPDA=XPDST,XPDNM=$P(^XPD(9.7,XPDA,0),U) K XPDT"
^XMB(3.9,165,2,1827,0)="""RTN"",""XPDIR"",32,0)"
^XMB(3.9,165,2,1828,0)=" ;restore environment check variables"
^XMB(3.9,165,2,1829,0)="""RTN"",""XPDIR"",33,0)"
^XMB(3.9,165,2,1830,0)=" I $D(^XTMP(""XPDI"",XPDA,""ENVVAR"")) D"
^XMB(3.9,165,2,1831,0)="""RTN"",""XPDIR"",34,0)"
^XMB(3.9,165,2,1832,0)=" .S:$D(^XTMP(""XPDI"",XPDA,""ENVVAR"",""XPDNOQUE"")) XPDNOQUE=^(""XPDNOQUE"")"
^XMB(3.9,165,2,1833,0)="""RTN"",""XPDIR"",35,0)"
^XMB(3.9,165,2,1834,0)=" .I $D(^XTMP(""XPDI"",XPDA,""ENVVAR"",""XPDDIQ"")) M XPDDIQ=^(""XPDDIQ"")"
^XMB(3.9,165,2,1835,0)="""RTN"",""XPDIR"",36,0)"
^XMB(3.9,165,2,1836,0)=" G DEV^XPDI"
^XMB(3.9,165,2,1837,0)="""RTN"",""XPDIR"",37,0)"
^XMB(3.9,165,2,1838,0)=" ;"
^XMB(3.9,165,2,1839,0)="""RTN"",""XPDIR"",38,0)"
^XMB(3.9,165,2,1840,0)="ABORT W !!,""**RESTART ABORTED**"",!"
^XMB(3.9,165,2,1841,0)="""RTN"",""XPDIR"",39,0)"
^XMB(3.9,165,2,1842,0)=" L -XPD(9.7,XPDST)"
^XMB(3.9,165,2,1843,0)="""RTN"",""XPDIR"",40,0)"
^XMB(3.9,165,2,1844,0)=" Q"
^XMB(3.9,165,2,1845,0)="""RTN"",""XPDIST"")"
^XMB(3.9,165,2,1846,0)="0^9^B15585220^B15492727"
^XMB(3.9,165,2,1847,0)="""RTN"",""XPDIST"",1,0)"
^XMB(3.9,165,2,1848,0)="XPDIST ;SFISC/RSD - site tracking; 06/01/2006"
^XMB(3.9,165,2,1849,0)="""RTN"",""XPDIST"",2,0)"
^XMB(3.9,165,2,1850,0)=" ;;8.0;KERNEL;**66,108,185,233,350,393**;Jul 10, 1995;Build 12"
^XMB(3.9,165,2,1851,0)="""RTN"",""XPDIST"",3,0)"
^XMB(3.9,165,2,1852,0)=" ;Returns """"=failed, XMZ=sent"
^XMB(3.9,165,2,1853,0)="""RTN"",""XPDIST"",4,0)"
^XMB(3.9,165,2,1854,0)=" ;D0=ien in file 9.7, XPY=national site tracking^address(optional)"
^XMB(3.9,165,2,1855,0)="""RTN"",""XPDIST"",5,0)"
^XMB(3.9,165,2,1856,0)="EN(D0,XPY) ;send message"
^XMB(3.9,165,2,1857,0)="""RTN"",""XPDIST"",6,0)"
^XMB(3.9,165,2,1858,0)=" N %,DIFROM,XPD,XPD0,XPD1,XPD2,XPDV,XPDTEXT,XPZ,XMDUZ,XMSUB,XMTEXT,XMY,XMZ,X,X1,Z,Y,XPD6"
^XMB(3.9,165,2,1859,0)="""RTN"",""XPDIST"",7,0)"
^XMB(3.9,165,2,1860,0)=" ;Get data needed"
^XMB(3.9,165,2,1861,0)="""RTN"",""XPDIST"",8,0)"
^XMB(3.9,165,2,1862,0)=" I '$D(^XPD(9.7,$G(D0),0)) D BMES^XPDUTL("" INSTALL file entry missing"") Q """""
^XMB(3.9,165,2,1863,0)="""RTN"",""XPDIST"",9,0)"
^XMB(3.9,165,2,1864,0)=" ;p350 -add node 6 for the Test# and Seq#. -REM"
^XMB(3.9,165,2,1865,0)="""RTN"",""XPDIST"",10,0)"
^XMB(3.9,165,2,1866,0)=" S XPD0=^XPD(9.7,D0,0),XPD1=$G(^(1)),XPD2=$G(^(2)),XPD6=$G(^(6))"
^XMB(3.9,165,2,1867,0)="""RTN"",""XPDIST"",11,0)"
^XMB(3.9,165,2,1868,0)=" I '$P(XPD0,U,2) D BMES^XPDUTL("" No link to PACKAGE file"") Q """""
^XMB(3.9,165,2,1869,0)="""RTN"",""XPDIST"",12,0)"
^XMB(3.9,165,2,1870,0)=" S XPD=$P($G(^DIC(9.4,+$P(XPD0,U,2),0)),U),XPDV=$$VER^XPDUTL($P(XPD0,U))"
^XMB(3.9,165,2,1871,0)="""RTN"",""XPDIST"",13,0)"
^XMB(3.9,165,2,1872,0)=" I XPD="""" D BMES^XPDUTL("" PACKAGE file entry missing"") Q """""
^XMB(3.9,165,2,1873,0)="""RTN"",""XPDIST"",14,0)"
^XMB(3.9,165,2,1874,0)=" ;XPZ(1)=start, XPZ(2)=completion date/time, XPZ(3)=run time"
^XMB(3.9,165,2,1875,0)="""RTN"",""XPDIST"",15,0)"
^XMB(3.9,165,2,1876,0)=" S XPZ(1)=$P(XPD1,U),XPZ(2)=$P(XPD1,U,3),XPZ(3)=$$FMDIFF^XLFDT(XPZ(2),XPZ(1),3),XPZ(1)=$$FMTE^XLFDT(XPZ(1)),XPZ(2)=$$FMTE^XLFDT(XPZ(2))"
^XMB(3.9,165,2,1877,0)="""RTN"",""XPDIST"",16,0)"
^XMB(3.9,165,2,1878,0)=" D LOCAL"
^XMB(3.9,165,2,1879,0)="""RTN"",""XPDIST"",17,0)"
^XMB(3.9,165,2,1880,0)=" D REMEDY ;p350 -REM"
^XMB(3.9,165,2,1881,0)="""RTN"",""XPDIST"",18,0)"
^XMB(3.9,165,2,1882,0)=" Q $$FORUM()"
^XMB(3.9,165,2,1883,0)="""RTN"",""XPDIST"",19,0)"
^XMB(3.9,165,2,1884,0)=" ;"
^XMB(3.9,165,2,1885,0)="""RTN"",""XPDIST"",20,0)"
^XMB(3.9,165,2,1886,0)=" ;"
^XMB(3.9,165,2,1887,0)="""RTN"",""XPDIST"",21,0)"
^XMB(3.9,165,2,1888,0)="FORUM() ;send to Server on FORUM"
^XMB(3.9,165,2,1889,0)="""RTN"",""XPDIST"",22,0)"
^XMB(3.9,165,2,1890,0)=" K XMY,XPDTEXT ;393"
^XMB(3.9,165,2,1891,0)="""RTN"",""XPDIST"",23,0)"
^XMB(3.9,165,2,1892,0)=" Q:$G(XPY)="""" """""
^XMB(3.9,165,2,1893,0)="""RTN"",""XPDIST"",24,0)"
^XMB(3.9,165,2,1894,0)=" S:XPY XMY(""S.A5CSTS@FORUM.VA.GOV"")="""" ;,XMY(""ESSRESOURCE@MED.VA.GOV"")="""""
^XMB(3.9,165,2,1895,0)="""RTN"",""XPDIST"",25,0)"
^XMB(3.9,165,2,1896,0)=" S:$L($P(XPY,U,2)) XMY($P(XPY,U,2))="""""
^XMB(3.9,165,2,1897,0)="""RTN"",""XPDIST"",26,0)"
^XMB(3.9,165,2,1898,0)=" K ^TMP($J)"
^XMB(3.9,165,2,1899,0)="""RTN"",""XPDIST"",27,0)"
^XMB(3.9,165,2,1900,0)=" ;Quit if not VA production primary domain"
^XMB(3.9,165,2,1901,0)="""RTN"",""XPDIST"",28,0)"
^XMB(3.9,165,2,1902,0)=" I $G(^XMB(""NETNAME""))'["".VA.GOV"" D BMES^XPDUTL("" Not a VA primary domain"") Q """""
^XMB(3.9,165,2,1903,0)="""RTN"",""XPDIST"",29,0)"
^XMB(3.9,165,2,1904,0)=" X ^%ZOSF(""UCI"") S %=^%ZOSF(""PROD"")"
^XMB(3.9,165,2,1905,0)="""RTN"",""XPDIST"",30,0)"
^XMB(3.9,165,2,1906,0)=" S:%'["","" Y=$P(Y,"","")"
^XMB(3.9,165,2,1907,0)="""RTN"",""XPDIST"",31,0)"
^XMB(3.9,165,2,1908,0)=" I Y'=% D BMES^XPDUTL("" Not a production UCI"") Q """""
^XMB(3.9,165,2,1909,0)="""RTN"",""XPDIST"",32,0)"
^XMB(3.9,165,2,1910,0)=" ;Message for server"
^XMB(3.9,165,2,1911,0)="""RTN"",""XPDIST"",33,0)"
^XMB(3.9,165,2,1912,0)=" S XPDTEXT(1,0)=""PACKAGE INSTALL"""
^XMB(3.9,165,2,1913,0)="""RTN"",""XPDIST"",34,0)"
^XMB(3.9,165,2,1914,0)=" S XPDTEXT(2,0)=""SITE: ""_$G(^XMB(""NETNAME""))"
^XMB(3.9,165,2,1915,0)="""RTN"",""XPDIST"",35,0)"
^XMB(3.9,165,2,1916,0)=" S XPDTEXT(3,0)=""PACKAGE: ""_XPD"
^XMB(3.9,165,2,1917,0)="""RTN"",""XPDIST"",36,0)"
^XMB(3.9,165,2,1918,0)=" S XPDTEXT(4,0)=""VERSION: ""_XPDV"
^XMB(3.9,165,2,1919,0)="""RTN"",""XPDIST"",37,0)"
^XMB(3.9,165,2,1920,0)=" S XPDTEXT(5,0)=""Start time: ""_XPZ(1)"
^XMB(3.9,165,2,1921,0)="""RTN"",""XPDIST"",38,0)"
^XMB(3.9,165,2,1922,0)=" S XPDTEXT(6,0)=""Completion time: ""_XPZ(2)"
^XMB(3.9,165,2,1923,0)="""RTN"",""XPDIST"",39,0)"
^XMB(3.9,165,2,1924,0)=" S XPDTEXT(7,0)=""Run time: ""_XPZ(3)"
^XMB(3.9,165,2,1925,0)="""RTN"",""XPDIST"",40,0)"
^XMB(3.9,165,2,1926,0)=" S XPDTEXT(8,0)=""DATE: ""_DT"
^XMB(3.9,165,2,1927,0)="""RTN"",""XPDIST"",41,0)"
^XMB(3.9,165,2,1928,0)=" S XPDTEXT(9,0)=""Installed by: ""_$P($G(^VA(200,+$P(XPD0,U,11),0)),U)"
^XMB(3.9,165,2,1929,0)="""RTN"",""XPDIST"",42,0)"
^XMB(3.9,165,2,1930,0)=" S XPDTEXT(10,0)=""Install Name: ""_$P(XPD0,U)"
^XMB(3.9,165,2,1931,0)="""RTN"",""XPDIST"",43,0)"
^XMB(3.9,165,2,1932,0)=" S XPDTEXT(11,0)=""Distribution Date: ""_$P(XPD1,U,4)"
^XMB(3.9,165,2,1933,0)="""RTN"",""XPDIST"",44,0)"
^XMB(3.9,165,2,1934,0)=" S XPDTEXT(12,0)=XPD2"
^XMB(3.9,165,2,1935,0)="""RTN"",""XPDIST"",45,0)"
^XMB(3.9,165,2,1936,0)=" S XMDUZ=$S($P(XPD0,U,11):+$P(XPD0,U,11),1:.5),XMTEXT=""XPDTEXT("",XMSUB=$P(XPD0,U)_"" INSTALLATION"""
^XMB(3.9,165,2,1937,0)="""RTN"",""XPDIST"",46,0)"
^XMB(3.9,165,2,1938,0)=" D ^XMD"
^XMB(3.9,165,2,1939,0)="""RTN"",""XPDIST"",47,0)"
^XMB(3.9,165,2,1940,0)=" Q ""#""_$G(XMZ)"
^XMB(3.9,165,2,1941,0)="""RTN"",""XPDIST"",48,0)"
^XMB(3.9,165,2,1942,0)=" ;"
^XMB(3.9,165,2,1943,0)="""RTN"",""XPDIST"",49,0)"
^XMB(3.9,165,2,1944,0)="LOCAL ;Send a message to local mail group"
^XMB(3.9,165,2,1945,0)="""RTN"",""XPDIST"",50,0)"
^XMB(3.9,165,2,1946,0)=" K ^TMP($J),XMY,XPDTEXT,XMTEXT"
^XMB(3.9,165,2,1947,0)="""RTN"",""XPDIST"",51,0)"
^XMB(3.9,165,2,1948,0)=" S X=$$MAILGRP^XPDUTL(XPD) Q:X="""""
^XMB(3.9,165,2,1949,0)="""RTN"",""XPDIST"",52,0)"
^XMB(3.9,165,2,1950,0)=" S XMY(X)="""" D GETENV^%ZOSV"
^XMB(3.9,165,2,1951,0)="""RTN"",""XPDIST"",53,0)"
^XMB(3.9,165,2,1952,0)=" ;Message for users"
^XMB(3.9,165,2,1953,0)="""RTN"",""XPDIST"",54,0)"
^XMB(3.9,165,2,1954,0)=" S XPDTEXT(1,0)=""PACKAGE INSTALL"""
^XMB(3.9,165,2,1955,0)="""RTN"",""XPDIST"",55,0)"
^XMB(3.9,165,2,1956,0)=" S XPDTEXT(2,0)=""SITE: ""_$G(^XMB(""NETNAME""))"
^XMB(3.9,165,2,1957,0)="""RTN"",""XPDIST"",56,0)"
^XMB(3.9,165,2,1958,0)=" S XPDTEXT(3,0)=""PACKAGE: ""_XPD"
^XMB(3.9,165,2,1959,0)="""RTN"",""XPDIST"",57,0)"
^XMB(3.9,165,2,1960,0)=" S XPDTEXT(4,0)=""VERSION: ""_XPDV"
^XMB(3.9,165,2,1961,0)="""RTN"",""XPDIST"",58,0)"
^XMB(3.9,165,2,1962,0)=" S XPDTEXT(5,0)=""Start time: ""_XPZ(1)"
^XMB(3.9,165,2,1963,0)="""RTN"",""XPDIST"",59,0)"
^XMB(3.9,165,2,1964,0)=" S XPDTEXT(6,0)=""Completion time: ""_XPZ(2)"
^XMB(3.9,165,2,1965,0)="""RTN"",""XPDIST"",60,0)"
^XMB(3.9,165,2,1966,0)=" S XPDTEXT(7,0)=""Environment: ""_Y"
^XMB(3.9,165,2,1967,0)="""RTN"",""XPDIST"",61,0)"
^XMB(3.9,165,2,1968,0)=" S XPDTEXT(8,0)=""Installed by: ""_$P($G(^VA(200,+$P(XPD0,U,11),0)),U)"
^XMB(3.9,165,2,1969,0)="""RTN"",""XPDIST"",62,0)"
^XMB(3.9,165,2,1970,0)=" S XPDTEXT(9,0)=""Install Name: ""_$P(XPD0,U)"
^XMB(3.9,165,2,1971,0)="""RTN"",""XPDIST"",63,0)"
^XMB(3.9,165,2,1972,0)=" S XPDTEXT(10,0)=""Distribution Date: ""_$$FMTE^XLFDT($P(XPD1,U,4))"
^XMB(3.9,165,2,1973,0)="""RTN"",""XPDIST"",64,0)"
^XMB(3.9,165,2,1974,0)=" S XMDUZ=$S($P(XPD0,U,11):+$P(XPD0,U,11),1:.5),XMTEXT=""XPDTEXT("",XMSUB=$P(XPD0,U)_"" INSTALLATION"""
^XMB(3.9,165,2,1975,0)="""RTN"",""XPDIST"",65,0)"
^XMB(3.9,165,2,1976,0)=" D ^XMD"
^XMB(3.9,165,2,1977,0)="""RTN"",""XPDIST"",66,0)"
^XMB(3.9,165,2,1978,0)=" Q"
^XMB(3.9,165,2,1979,0)="""RTN"",""XPDIST"",67,0)"
^XMB(3.9,165,2,1980,0)=" ;"
^XMB(3.9,165,2,1981,0)="""RTN"",""XPDIST"",68,0)"
^XMB(3.9,165,2,1982,0)="REMEDY ;Send to Remedy Server - ESSRESOURCE@MED.VA.GOV *p350 -REM"
^XMB(3.9,165,2,1983,0)="""RTN"",""XPDIST"",69,0)"
^XMB(3.9,165,2,1984,0)=" K ^TMP($J),XMY,XPDTEXT,XMTEXT ;393"
^XMB(3.9,165,2,1985,0)="""RTN"",""XPDIST"",70,0)"
^XMB(3.9,165,2,1986,0)=" Q:$G(XPY)="""""
^XMB(3.9,165,2,1987,0)="""RTN"",""XPDIST"",71,0)"
^XMB(3.9,165,2,1988,0)=" S:XPY XMY(""ESSRESOURCE@MED.VA.GOV"")="""""
^XMB(3.9,165,2,1989,0)="""RTN"",""XPDIST"",72,0)"
^XMB(3.9,165,2,1990,0)=" S:$L($P(XPY,U,2)) XMY($P(XPY,U,2))="""""
^XMB(3.9,165,2,1991,0)="""RTN"",""XPDIST"",73,0)"
^XMB(3.9,165,2,1992,0)=" ;Quit if not VA production primary domain"
^XMB(3.9,165,2,1993,0)="""RTN"",""XPDIST"",74,0)"
^XMB(3.9,165,2,1994,0)=" I $G(^XMB(""NETNAME""))'["".VA.GOV"" D BMES^XPDUTL("" Not a VA primary domain"") Q"
^XMB(3.9,165,2,1995,0)="""RTN"",""XPDIST"",75,0)"
^XMB(3.9,165,2,1996,0)=" X ^%ZOSF(""UCI"") S %=^%ZOSF(""PROD"")"
^XMB(3.9,165,2,1997,0)="""RTN"",""XPDIST"",76,0)"
^XMB(3.9,165,2,1998,0)=" S:%'["","" Y=$P(Y,"","")"
^XMB(3.9,165,2,1999,0)="""RTN"",""XPDIST"",77,0)"
^XMB(3.9,165,2,2000,0)=" I Y'=% D BMES^XPDUTL("" Not a production UCI"") Q"
^XMB(3.9,165,2,2001,0)="""RTN"",""XPDIST"",78,0)"
^XMB(3.9,165,2,2002,0)=" ;Message for server (all in one string)"
^XMB(3.9,165,2,2003,0)="""RTN"",""XPDIST"",79,0)"
^XMB(3.9,165,2,2004,0)=" ;XMTEXT=Type(1),Domain(2-65),Pkg(66-95),Version(96-125),"
^XMB(3.9,165,2,2005,0)="""RTN"",""XPDIST"",80,0)"
^XMB(3.9,165,2,2006,0)=" ;       StartTime(126-147),CompleteTime(148-169),RunTime(170-177),"
^XMB(3.9,165,2,2007,0)="""RTN"",""XPDIST"",81,0)"
^XMB(3.9,165,2,2008,0)=" ;       Date(178-199),InstalledBy(200-229),InstallName(230-259),"
^XMB(3.9,165,2,2009,0)="""RTN"",""XPDIST"",82,0)"
^XMB(3.9,165,2,2010,0)=" ;       DistributionDate(260-281),Seq#(282-286),"
^XMB(3.9,165,2,2011,0)="""RTN"",""XPDIST"",83,0)"
^XMB(3.9,165,2,2012,0)=" ;       PatchTestVersion(287-317)"
^XMB(3.9,165,2,2013,0)="""RTN"",""XPDIST"",84,0)"
^XMB(3.9,165,2,2014,0)=" ;"
^XMB(3.9,165,2,2015,0)="""RTN"",""XPDIST"",85,0)"
^XMB(3.9,165,2,2016,0)=" S X1=1_$G(^XMB(""NETNAME"")) ;Type is always ""1""(1=patch,0=pkg)."
^XMB(3.9,165,2,2017,0)="""RTN"",""XPDIST"",86,0)"
^XMB(3.9,165,2,2018,0)=" S $E(X1,66,95)=XPD,$E(X1,96,125)=XPDV,$E(X1,126,147)=XPZ(1),$E(X1,148,169)=XPZ(2),$E(X1,170,177)=XPZ(3),$E(X1,178,199)=DT"
^XMB(3.9,165,2,2019,0)="""RTN"",""XPDIST"",87,0)"
^XMB(3.9,165,2,2020,0)=" S $E(X1,200,229)=$P($G(^VA(200,+$P(XPD0,U,11),0)),U),$E(X1,230,259)=$P(XPD0,U),$E(X1,260,281)=$P(XPD1,U,4),$E(X1,282,286)=$P(XPD6,U,2),$E(X1,287,317)=$P(XPD6,U)"
^XMB(3.9,165,2,2021,0)="""RTN"",""XPDIST"",88,0)"
^XMB(3.9,165,2,2022,0)=" S XPDTEXT(1,0)=X1"
^XMB(3.9,165,2,2023,0)="""RTN"",""XPDIST"",89,0)"
^XMB(3.9,165,2,2024,0)=" S XMDUZ=$S($P(XPD0,U,11):+$P(XPD0,U,11),1:.5),XMTEXT=""XPDTEXT("",XMSUB=""KIDS-""_$P(XPD0,U)_"" INSTALLATION"""
^XMB(3.9,165,2,2025,0)="""RTN"",""XPDIST"",90,0)"
^XMB(3.9,165,2,2026,0)=" D ^XMD"
^XMB(3.9,165,2,2027,0)="""RTN"",""XPDIST"",91,0)"
^XMB(3.9,165,2,2028,0)=" Q"
^XMB(3.9,165,2,2029,0)="""RTN"",""XPDR"")"
^XMB(3.9,165,2,2030,0)="0^8^B50211509^B49327107"
^XMB(3.9,165,2,2031,0)="""RTN"",""XPDR"",1,0)"
^XMB(3.9,165,2,2032,0)="XPDR ;SFISC/RSD - Routine File Edit ;09/17/96  10:05"
^XMB(3.9,165,2,2033,0)="""RTN"",""XPDR"",2,0)"
^XMB(3.9,165,2,2034,0)=" ;;8.0;KERNEL;**1,2,44,393**;Jul 10, 1995;Build 12"
^XMB(3.9,165,2,2035,0)="""RTN"",""XPDR"",3,0)"
^XMB(3.9,165,2,2036,0)=" Q"
^XMB(3.9,165,2,2037,0)="""RTN"",""XPDR"",4,0)"
^XMB(3.9,165,2,2038,0)="UPDT ;update routine file"
^XMB(3.9,165,2,2039,0)="""RTN"",""XPDR"",5,0)"
^XMB(3.9,165,2,2040,0)=" N DIR,DIRUT,XPD,XPDI,XPDJ,XPDN,X,X1,Y,Y1,% W !"
^XMB(3.9,165,2,2041,0)="""RTN"",""XPDR"",6,0)"
^XMB(3.9,165,2,2042,0)=" W ! S DIR(0)=""FO^1:9^K:X'?.1""""-""""1U.7UNP X"",DIR(""A"")=""Routine Namespace"",DIR(""?"")=""Enter 1 to 8 characters, preceed with """"-"""" to exclude namespace"""
^XMB(3.9,165,2,2043,0)="""RTN"",""XPDR"",7,0)"
^XMB(3.9,165,2,2044,0)=" ;XPDN(0=excluded names or 1=include names, namespace)="""""
^XMB(3.9,165,2,2045,0)="""RTN"",""XPDR"",8,0)"
^XMB(3.9,165,2,2046,0)=" F  D ^DIR Q:$D(DIRUT)  S X=$E(Y,$L(Y))=""*"",%=$E(Y)=""-"",XPDN('%,$E(Y,%+1,$L(Y)-X))="""""
^XMB(3.9,165,2,2047,0)="""RTN"",""XPDR"",9,0)"
^XMB(3.9,165,2,2048,0)=" Q:'$D(XPDN)!$D(DTOUT)!$D(DUOUT)"
^XMB(3.9,165,2,2049,0)="""RTN"",""XPDR"",10,0)"
^XMB(3.9,165,2,2050,0)=" W !!,""NAMESPACE  INCLUDE"",?35,""EXCLUDE"",!,?11,""-------"",?35,""-------"""
^XMB(3.9,165,2,2051,0)="""RTN"",""XPDR"",11,0)"
^XMB(3.9,165,2,2052,0)=" S (X,Y)="""",(X1,Y1)=1"
^XMB(3.9,165,2,2053,0)="""RTN"",""XPDR"",12,0)"
^XMB(3.9,165,2,2054,0)=" F  D  W !?11,X,?35,Y Q:'X1&'Y1"
^XMB(3.9,165,2,2055,0)="""RTN"",""XPDR"",13,0)"
^XMB(3.9,165,2,2056,0)=" .S:X1 X=$O(XPDN(1,X)),X1=X]"""" S:Y1 Y=$O(XPDN(0,Y)),Y1=Y]"""""
^XMB(3.9,165,2,2057,0)="""RTN"",""XPDR"",14,0)"
^XMB(3.9,165,2,2058,0)=" K DIR S DIR(0)=""Y"",DIR(""A"")=""OK to continue"",DIR(""B"")=""YES"" D ^DIR"
^XMB(3.9,165,2,2059,0)="""RTN"",""XPDR"",15,0)"
^XMB(3.9,165,2,2060,0)=" Q:'Y!$D(DIRUT)  W !"
^XMB(3.9,165,2,2061,0)="""RTN"",""XPDR"",16,0)"
^XMB(3.9,165,2,2062,0)=" S DIR(0)=""Y"",DIR(""A"")=""Want me to clean up the Routine File before updating"",DIR(""?"")=""YES means you want to go throught the Routine file and delete any routine name that no longer exists on the system."""
^XMB(3.9,165,2,2063,0)="""RTN"",""XPDR"",17,0)"
^XMB(3.9,165,2,2064,0)=" D ^DIR"
^XMB(3.9,165,2,2065,0)="""RTN"",""XPDR"",18,0)"
^XMB(3.9,165,2,2066,0)=" Q:$D(DIRUT)  D WAIT^DICD,DELRTN:Y"
^XMB(3.9,165,2,2067,0)="""RTN"",""XPDR"",19,0)"
^XMB(3.9,165,2,2068,0)=" ;loop thru include list XPDN(1,XPDI)"
^XMB(3.9,165,2,2069,0)="""RTN"",""XPDR"",20,0)"
^XMB(3.9,165,2,2070,0)=" S XPDI="""" F  S XPDI=$O(XPDN(1,XPDI)) Q:XPDI=""""  D"
^XMB(3.9,165,2,2071,0)="""RTN"",""XPDR"",21,0)"
^XMB(3.9,165,2,2072,0)=" .S XPDJ=XPDI D:$D(^$R(XPDJ))  F  S XPDJ=$O(^$R(XPDJ)) Q:XPDJ=""""!($P(XPDJ,XPDI)]"""")  D"
^XMB(3.9,165,2,2073,0)="""RTN"",""XPDR"",22,0)"
^XMB(3.9,165,2,2074,0)=" ..;if name XPDJ is in the exclude list, XPDN(0,XPDJ) or in Routine file, quit"
^XMB(3.9,165,2,2075,0)="""RTN"",""XPDR"",23,0)"
^XMB(3.9,165,2,2076,0)=" ..Q:$D(XPDN(0,XPDJ))!$O(^DIC(9.8,""B"",XPDJ,0))"
^XMB(3.9,165,2,2077,0)="""RTN"",""XPDR"",24,0)"
^XMB(3.9,165,2,2078,0)=" ..;check if XPDJ is refered in the namespace by checking the subscript"
^XMB(3.9,165,2,2079,0)="""RTN"",""XPDR"",25,0)"
^XMB(3.9,165,2,2080,0)=" ..;before XPDJ, if sub exist and $P(XPDJ,sub)="""" then it is part of the"
^XMB(3.9,165,2,2081,0)="""RTN"",""XPDR"",26,0)"
^XMB(3.9,165,2,2082,0)=" ..;namespace, quit"
^XMB(3.9,165,2,2083,0)="""RTN"",""XPDR"",27,0)"
^XMB(3.9,165,2,2084,0)=" ..S %=$O(XPDN(0,XPDJ),-1) I $L(%),$P(XPDJ,%)="""" Q"
^XMB(3.9,165,2,2085,0)="""RTN"",""XPDR"",28,0)"
^XMB(3.9,165,2,2086,0)=" ..N XPD S XPD(9.8,""+1,"",.01)=XPDJ,XPD(9.8,""+1,"",1)=""R"""
^XMB(3.9,165,2,2087,0)="""RTN"",""XPDR"",29,0)"
^XMB(3.9,165,2,2088,0)=" ..D ADD^DICA("""",""XPD"")"
^XMB(3.9,165,2,2089,0)="""RTN"",""XPDR"",30,0)"
^XMB(3.9,165,2,2090,0)=" W ""    ...Done."",!"
^XMB(3.9,165,2,2091,0)="""RTN"",""XPDR"",31,0)"
^XMB(3.9,165,2,2092,0)=" Q"
^XMB(3.9,165,2,2093,0)="""RTN"",""XPDR"",32,0)"
^XMB(3.9,165,2,2094,0)="VER ;verify Routine file"
^XMB(3.9,165,2,2095,0)="""RTN"",""XPDR"",33,0)"
^XMB(3.9,165,2,2096,0)=" N DIR,DIRUT,X,Y"
^XMB(3.9,165,2,2097,0)="""RTN"",""XPDR"",34,0)"
^XMB(3.9,165,2,2098,0)=" W !,""I will delete all local entries in the Routine File in which"",!,""the Routine no longer exist on this system!"",!"
^XMB(3.9,165,2,2099,0)="""RTN"",""XPDR"",35,0)"
^XMB(3.9,165,2,2100,0)=" S DIR(0)=""Y"",DIR(""A"")=""OK to continue"",DIR(""B"")=""YES"" D ^DIR"
^XMB(3.9,165,2,2101,0)="""RTN"",""XPDR"",36,0)"
^XMB(3.9,165,2,2102,0)=" Q:'Y!$D(DIRUT)  D DELRTN"
^XMB(3.9,165,2,2103,0)="""RTN"",""XPDR"",37,0)"
^XMB(3.9,165,2,2104,0)=" W ""    ...Done."",!"
^XMB(3.9,165,2,2105,0)="""RTN"",""XPDR"",38,0)"
^XMB(3.9,165,2,2106,0)=" Q"
^XMB(3.9,165,2,2107,0)="""RTN"",""XPDR"",39,0)"
^XMB(3.9,165,2,2108,0)="DELRTN ;delete routine file entries"
^XMB(3.9,165,2,2109,0)="""RTN"",""XPDR"",40,0)"
^XMB(3.9,165,2,2110,0)=" N DA,DIK,Y"
^XMB(3.9,165,2,2111,0)="""RTN"",""XPDR"",41,0)"
^XMB(3.9,165,2,2112,0)=" W !,""Routines listed as National will not be deleted!"""
^XMB(3.9,165,2,2113,0)="""RTN"",""XPDR"",42,0)"
^XMB(3.9,165,2,2114,0)=" S DIK=""^DIC(9.8,"",DA=0"
^XMB(3.9,165,2,2115,0)="""RTN"",""XPDR"",43,0)"
^XMB(3.9,165,2,2116,0)=" F  S DA=$O(^DIC(9.8,DA)) Q:'DA  S Y=$G(^(DA,0)) I ""R""=$P(Y,U,2),$G(^DIC(9.8,DA,6))<2,$T(^@$P(Y,U))="""" D ^DIK"
^XMB(3.9,165,2,2117,0)="""RTN"",""XPDR"",44,0)"
^XMB(3.9,165,2,2118,0)=" Q"
^XMB(3.9,165,2,2119,0)="""RTN"",""XPDR"",45,0)"
^XMB(3.9,165,2,2120,0)="PURGE ;purge file"
^XMB(3.9,165,2,2121,0)="""RTN"",""XPDR"",46,0)"
^XMB(3.9,165,2,2122,0)=" N DA,DIK,DIR,DIRUT,X,XPD,XPDF,XPDI,XPDJ,XPDL,XPDN,XPDPG,XPDS,XPDUL,Y,Z"
^XMB(3.9,165,2,2123,0)="""RTN"",""XPDR"",47,0)"
^XMB(3.9,165,2,2124,0)=" S DIR(""?"")=""Enter the file you want to purge the data from."",DIR(0)=""SM^B:Build;I:Install;ALL:Build & Install"",DIR(""A"")=""Purge from what file(s)"""
^XMB(3.9,165,2,2125,0)="""RTN"",""XPDR"",48,0)"
^XMB(3.9,165,2,2126,0)=" D ^DIR Q:$D(DIRUT)"
^XMB(3.9,165,2,2127,0)="""RTN"",""XPDR"",49,0)"
^XMB(3.9,165,2,2128,0)=" S XPDF=$S(Y=""I"":9.7,1:9.6) S:Y=""ALL"" XPDF(1)=9.7"
^XMB(3.9,165,2,2129,0)="""RTN"",""XPDR"",50,0)"
^XMB(3.9,165,2,2130,0)=" K DIR S DIR(""?"")=""Enter the number of Versions to keep in the file, for each package"",DIR(0)=""N^0:100:0"",DIR(""A"")=""Versions to Retain"",DIR(""B"")=1"
^XMB(3.9,165,2,2131,0)="""RTN"",""XPDR"",51,0)"
^XMB(3.9,165,2,2132,0)=" D ^DIR Q:$D(DIRUT)  S XPDN=Y"
^XMB(3.9,165,2,2133,0)="""RTN"",""XPDR"",52,0)"
^XMB(3.9,165,2,2134,0)=" K DIR"
^XMB(3.9,165,2,2135,0)="""RTN"",""XPDR"",53,0)"
^XMB(3.9,165,2,2136,0)=" S DIR(0)=""FO^3:30"",DIR(""?"")=""^D PURGEH^XPDR"",DIR(""A"")=""Package Name"",DIR(""B"")=""ALL"""
^XMB(3.9,165,2,2137,0)="""RTN"",""XPDR"",54,0)"
^XMB(3.9,165,2,2138,0)=" F  D ^DIR Q:$D(DIRUT)  S XPD(X)="""" Q:X=""ALL""  K DIR(""B"") S DIR(""A"")=""Another Package Name"""
^XMB(3.9,165,2,2139,0)="""RTN"",""XPDR"",55,0)"
^XMB(3.9,165,2,2140,0)=" Q:'$D(XPD)"
^XMB(3.9,165,2,2141,0)="""RTN"",""XPDR"",56,0)"
^XMB(3.9,165,2,2142,0)=" ;if they want all, make sure all is the only one"
^XMB(3.9,165,2,2143,0)="""RTN"",""XPDR"",57,0)"
^XMB(3.9,165,2,2144,0)=" I $D(XPD(""ALL"")) K XPD S XPD(""ALL"")="""""
^XMB(3.9,165,2,2145,0)="""RTN"",""XPDR"",58,0)"
^XMB(3.9,165,2,2146,0)=" ;XPDF(1) is defined if doing both files, do purge twice"
^XMB(3.9,165,2,2147,0)="""RTN"",""XPDR"",59,0)"
^XMB(3.9,165,2,2148,0)=" K ^TMP($J) D PURGE1(XPDF),PURGE1($G(XPDF(1))):$D(XPDF(1))"
^XMB(3.9,165,2,2149,0)="""RTN"",""XPDR"",60,0)"
^XMB(3.9,165,2,2150,0)=" I '$D(^TMP($J)) W !!,""No match found"" Q"
^XMB(3.9,165,2,2151,0)="""RTN"",""XPDR"",61,0)"
^XMB(3.9,165,2,2152,0)=" K XPD,DIR"
^XMB(3.9,165,2,2153,0)="""RTN"",""XPDR"",62,0)"
^XMB(3.9,165,2,2154,0)=" S DIR(0)=""E"",$P(XPDUL,""-"",IOM)="""""
^XMB(3.9,165,2,2155,0)="""RTN"",""XPDR"",63,0)"
^XMB(3.9,165,2,2156,0)=" ;if ALL, reset XPDF to next file and Do, then reset back to 9.6"
^XMB(3.9,165,2,2157,0)="""RTN"",""XPDR"",64,0)"
^XMB(3.9,165,2,2158,0)=" D  I $D(XPDF(1)) D ^DIR I Y S XPDF=XPDF(1) D  S XPDF=9.6"
^XMB(3.9,165,2,2159,0)="""RTN"",""XPDR"",65,0)"
^XMB(3.9,165,2,2160,0)=" .S XPD=""^TMP(""_$J_"",""_XPDF,XPDS=XPD_"","",XPD=XPD_"")"",XPDL=$L(XPDS),XPDPG=1,Y=1"
^XMB(3.9,165,2,2161,0)="""RTN"",""XPDR"",66,0)"
^XMB(3.9,165,2,2162,0)=" .W @IOF D HDR"
^XMB(3.9,165,2,2163,0)="""RTN"",""XPDR"",67,0)"
^XMB(3.9,165,2,2164,0)=" .;loop thru ^TMP($J,file,package) & show list, quit if user ""^"""
^XMB(3.9,165,2,2165,0)="""RTN"",""XPDR"",68,0)"
^XMB(3.9,165,2,2166,0)=" .F  S XPD=$Q(@XPD) Q:XPD=""""!($E(XPD,1,XPDL)'=XPDS)  D  Q:'Y"
^XMB(3.9,165,2,2167,0)="""RTN"",""XPDR"",69,0)"
^XMB(3.9,165,2,2168,0)=" ..S Z=@XPD W $P(Z,""^""),$S($P(Z,""^"",3):""  (duplicates)"",1:""""),! Q:$Y<(IOSL-4)"
^XMB(3.9,165,2,2169,0)="""RTN"",""XPDR"",70,0)"
^XMB(3.9,165,2,2170,0)=" ..D ^DIR Q:'Y"
^XMB(3.9,165,2,2171,0)="""RTN"",""XPDR"",71,0)"
^XMB(3.9,165,2,2172,0)=" ..S XPDPG=XPDPG+1 W @IOF D HDR"
^XMB(3.9,165,2,2173,0)="""RTN"",""XPDR"",72,0)"
^XMB(3.9,165,2,2174,0)=" S DIR(0)=""Y"",DIR(""A"")=""OK to DELETE these entries"",DIR(""B"")=""NO"""
^XMB(3.9,165,2,2175,0)="""RTN"",""XPDR"",73,0)"
^XMB(3.9,165,2,2176,0)=" W !! D ^DIR"
^XMB(3.9,165,2,2177,0)="""RTN"",""XPDR"",74,0)"
^XMB(3.9,165,2,2178,0)=" I $D(DIRUT)!'Y W !!,""Nothing Purged"" Q"
^XMB(3.9,165,2,2179,0)="""RTN"",""XPDR"",75,0)"
^XMB(3.9,165,2,2180,0)=" ;loop thru and delete"
^XMB(3.9,165,2,2181,0)="""RTN"",""XPDR"",76,0)"
^XMB(3.9,165,2,2182,0)=" D  I $D(XPDF(1)) S XPDF=XPDF(1) D"
^XMB(3.9,165,2,2183,0)="""RTN"",""XPDR"",77,0)"
^XMB(3.9,165,2,2184,0)=" .S DIK=""^XPD(""_XPDF_"","",XPD=""^TMP(""_$J_"",""_XPDF,XPDS=XPD_"","",XPD=XPD_"")"",XPDL=$L(XPDS)"
^XMB(3.9,165,2,2185,0)="""RTN"",""XPDR"",78,0)"
^XMB(3.9,165,2,2186,0)=" .F  S XPD=$Q(@XPD) Q:XPD=""""!($E(XPD,1,XPDL)'=XPDS)  D"
^XMB(3.9,165,2,2187,0)="""RTN"",""XPDR"",79,0)"
^XMB(3.9,165,2,2188,0)=" ..S XPDI=@XPD F XPDJ=2:1 S DA=$P(XPDI,""^"",XPDJ) Q:'DA  D ^DIK"
^XMB(3.9,165,2,2189,0)="""RTN"",""XPDR"",80,0)"
^XMB(3.9,165,2,2190,0)=" Q"
^XMB(3.9,165,2,2191,0)="""RTN"",""XPDR"",81,0)"
^XMB(3.9,165,2,2192,0)=" ;"
^XMB(3.9,165,2,2193,0)="""RTN"",""XPDR"",82,0)"
^XMB(3.9,165,2,2194,0)="PURGE1(XPDF) ;XPDF=file #"
^XMB(3.9,165,2,2195,0)="""RTN"",""XPDR"",83,0)"
^XMB(3.9,165,2,2196,0)=" N XPDFL,XPDI,XPDJ,XPDP,XPDV,Y,Z"
^XMB(3.9,165,2,2197,0)="""RTN"",""XPDR"",84,0)"
^XMB(3.9,165,2,2198,0)=" W ""."""
^XMB(3.9,165,2,2199,0)="""RTN"",""XPDR"",85,0)"
^XMB(3.9,165,2,2200,0)=" ;if All, loop thru B x-ref"
^XMB(3.9,165,2,2201,0)="""RTN"",""XPDR"",86,0)"
^XMB(3.9,165,2,2202,0)=" I $D(XPD(""ALL"")) D"
^XMB(3.9,165,2,2203,0)="""RTN"",""XPDR"",87,0)"
^XMB(3.9,165,2,2204,0)=" .S XPDI="""""
^XMB(3.9,165,2,2205,0)="""RTN"",""XPDR"",88,0)"
^XMB(3.9,165,2,2206,0)=" .F  S XPDI=$O(^XPD(XPDF,""B"",XPDI)) Q:XPDI=""""  D"
^XMB(3.9,165,2,2207,0)="""RTN"",""XPDR"",89,0)"
^XMB(3.9,165,2,2208,0)=" ..S X=$$PKG^XPDUTL(XPDI) D PURGE2(X)"
^XMB(3.9,165,2,2209,0)="""RTN"",""XPDR"",90,0)"
^XMB(3.9,165,2,2210,0)=" ..W ""."""
^XMB(3.9,165,2,2211,0)="""RTN"",""XPDR"",91,0)"
^XMB(3.9,165,2,2212,0)=" E  S XPDI="""" F  S XPDI=$O(XPD(XPDI)) Q:XPDI=""""  D"
^XMB(3.9,165,2,2213,0)="""RTN"",""XPDR"",92,0)"
^XMB(3.9,165,2,2214,0)=" .D PURGE2(XPDI)"
^XMB(3.9,165,2,2215,0)="""RTN"",""XPDR"",93,0)"
^XMB(3.9,165,2,2216,0)=" .W ""."""
^XMB(3.9,165,2,2217,0)="""RTN"",""XPDR"",94,0)"
^XMB(3.9,165,2,2218,0)=" ;loop thru each package, XPDP=package name"
^XMB(3.9,165,2,2219,0)="""RTN"",""XPDR"",95,0)"
^XMB(3.9,165,2,2220,0)=" S XPDP="""" F  S XPDP=$O(^TMP($J,XPDF,XPDP)) Q:XPDP=""""  D"
^XMB(3.9,165,2,2221,0)="""RTN"",""XPDR"",96,0)"
^XMB(3.9,165,2,2222,0)=" .S XPDV="""",XPDL=XPDN"
^XMB(3.9,165,2,2223,0)="""RTN"",""XPDR"",97,0)"
^XMB(3.9,165,2,2224,0)=" .;the last is the most recent, XPDN = number to retain, XPDV=version"
^XMB(3.9,165,2,2225,0)="""RTN"",""XPDR"",98,0)"
^XMB(3.9,165,2,2226,0)=" .;XPDS=type (T/V/Z)"
^XMB(3.9,165,2,2227,0)="""RTN"",""XPDR"",99,0)"
^XMB(3.9,165,2,2228,0)=" .F  S XPDV=$O(^TMP($J,XPDF,XPDP,XPDV),-1),XPDS="""" Q:'XPDV!'XPDL  F  S XPDS=$O(^TMP($J,XPDF,XPDP,XPDV,XPDS),-1) Q:XPDS=""""!'XPDL  D"
^XMB(3.9,165,2,2229,0)="""RTN"",""XPDR"",100,0)"
^XMB(3.9,165,2,2230,0)=" ..S Y="""" F  S Y=$O(^TMP($J,XPDF,XPDP,XPDV,XPDS,Y),-1) Q:Y=""""!'XPDL  D"
^XMB(3.9,165,2,2231,0)="""RTN"",""XPDR"",101,0)"
^XMB(3.9,165,2,2232,0)=" ...I $D(^TMP($J,XPDF,XPDP,XPDV,XPDS,Y))#2 K ^(Y) S XPDL=XPDL-1 Q"
^XMB(3.9,165,2,2233,0)="""RTN"",""XPDR"",102,0)"
^XMB(3.9,165,2,2234,0)=" ...S Z="""" F  S Z=$O(^TMP($J,XPDF,XPDP,XPDV,XPDS,Y,Z),-1) Q:Z=""""!'XPDL  K ^(Z) S XPDL=XPDL-1"
^XMB(3.9,165,2,2235,0)="""RTN"",""XPDR"",103,0)"
^XMB(3.9,165,2,2236,0)=" Q"
^XMB(3.9,165,2,2237,0)="""RTN"",""XPDR"",104,0)"
^XMB(3.9,165,2,2238,0)=" ;"
^XMB(3.9,165,2,2239,0)="""RTN"",""XPDR"",105,0)"
^XMB(3.9,165,2,2240,0)="PURGE2(XPDX) ;XPDX=package name"
^XMB(3.9,165,2,2241,0)="""RTN"",""XPDR"",106,0)"
^XMB(3.9,165,2,2242,0)=" ;XPDFL=1 this is not a patch, quit when we find a patch during loop"
^XMB(3.9,165,2,2243,0)="""RTN"",""XPDR"",107,0)"
^XMB(3.9,165,2,2244,0)=" S XPDS=XPDX,XPDL=$L(XPDX),XPDFL=XPDX'[""*"""
^XMB(3.9,165,2,2245,0)="""RTN"",""XPDR"",108,0)"
^XMB(3.9,165,2,2246,0)=" ;loop and find matches"
^XMB(3.9,165,2,2247,0)="""RTN"",""XPDR"",109,0)"
^XMB(3.9,165,2,2248,0)=" D  F  S XPDS=$O(^XPD(XPDF,""B"",XPDS)) Q:XPDS=""""!($E(XPDS,1,XPDL)'=XPDX)!($S(XPDFL:XPDS[""*"",1:0))  D"
^XMB(3.9,165,2,2249,0)="""RTN"",""XPDR"",110,0)"
^XMB(3.9,165,2,2250,0)=" .S Y=$O(^XPD(XPDF,""B"",XPDS,0)) Q:'Y"
^XMB(3.9,165,2,2251,0)="""RTN"",""XPDR"",111,0)"
^XMB(3.9,165,2,2252,0)=" .Q:'$D(^XPD(XPDF,Y,0))  S Z=^(0),Y=XPDS_""^""_Y"
^XMB(3.9,165,2,2253,0)="""RTN"",""XPDR"",112,0)"
^XMB(3.9,165,2,2254,0)=" .;can't delete Installs that status isn't 'Install Completed'"
^XMB(3.9,165,2,2255,0)="""RTN"",""XPDR"",113,0)"
^XMB(3.9,165,2,2256,0)=" .I XPDF=9.7 Q:$P(Z,U,9)<3"
^XMB(3.9,165,2,2257,0)="""RTN"",""XPDR"",114,0)"
^XMB(3.9,165,2,2258,0)=" .S XPDV=$$VER^XPDUTL(XPDS)"
^XMB(3.9,165,2,2259,0)="""RTN"",""XPDR"",115,0)"
^XMB(3.9,165,2,2260,0)=" .;TMP($J,file,package name,version,""*"",""T/V/Z"",num,patch)=NAME^DA^duplicat DAs"
^XMB(3.9,165,2,2261,0)="""RTN"",""XPDR"",116,0)"
^XMB(3.9,165,2,2262,0)=" .I XPDS[""*"" D  Q"
^XMB(3.9,165,2,2263,0)="""RTN"",""XPDR"",117,0)"
^XMB(3.9,165,2,2264,0)=" ..I XPDV?1.2N1"".""1.2N S ^TMP($J,XPDF,$$PKG^XPDUTL(XPDS),+XPDV,""*Z"",0,+$P(XPDS,""*"",3))=Y_$$DUP(XPDS,$P(Y,""^"",2)) Q"
^XMB(3.9,165,2,2265,0)="""RTN"",""XPDR"",118,0)"
^XMB(3.9,165,2,2266,0)=" ..I XPDV[""T"" S ^TMP($J,XPDF,$$PKG^XPDUTL(XPDS),+XPDV,""*T"",+$P(XPDV,""T"",2),+$P(XPDS,""*"",3))=Y_$$DUP(XPDS,$P(Y,""^"",2)) Q"
^XMB(3.9,165,2,2267,0)="""RTN"",""XPDR"",119,0)"
^XMB(3.9,165,2,2268,0)=" ..I XPDV[""V"" S ^TMP($J,XPDF,$$PKG^XPDUTL(XPDS),+XPDV,""*V"",+$P(XPDV,""V"",2),+$P(XPDS,""*"",3))=Y_$$DUP(XPDS,$P(Y,""^"",2)) Q"
^XMB(3.9,165,2,2269,0)="""RTN"",""XPDR"",120,0)"
^XMB(3.9,165,2,2270,0)=" ..S ^TMP($J,XPDF,$$PKG^XPDUTL(XPDS),+XPDV,""*"",+$P(XPDS,""*"",3))=Y_$$DUP(XPDS,$P(Y,""^"",2))"
^XMB(3.9,165,2,2271,0)="""RTN"",""XPDR"",121,0)"
^XMB(3.9,165,2,2272,0)=" .;TMP($J,file,package name,version,""Z"",0)=NAME^DA^duplicate DAs"
^XMB(3.9,165,2,2273,0)="""RTN"",""XPDR"",122,0)"
^XMB(3.9,165,2,2274,0)=" .I XPDV?1.2N1"".""1.2N S ^TMP($J,XPDF,$$PKG^XPDUTL(XPDS),+XPDV,""Z"",0)=Y_$$DUP(XPDS,$P(Y,""^"",2)) Q"
^XMB(3.9,165,2,2275,0)="""RTN"",""XPDR"",123,0)"
^XMB(3.9,165,2,2276,0)=" .;TMP($J,file,package name,version,""T/V"",num)=NAME^DA^dup DAs"
^XMB(3.9,165,2,2277,0)="""RTN"",""XPDR"",124,0)"
^XMB(3.9,165,2,2278,0)=" .I XPDV[""T"" S ^TMP($J,XPDF,$$PKG^XPDUTL(XPDS),+XPDV,""T"",+$P(XPDV,""T"",2))=Y_$$DUP(XPDS,$P(Y,""^"",2)) Q"
^XMB(3.9,165,2,2279,0)="""RTN"",""XPDR"",125,0)"
^XMB(3.9,165,2,2280,0)=" .I XPDV[""V"" S ^TMP($J,XPDF,$$PKG^XPDUTL(XPDS),+XPDV,""V"",+$P(XPDV,""V"",2))=Y_$$DUP(XPDS,$P(Y,""^"",2)) Q"
^XMB(3.9,165,2,2281,0)="""RTN"",""XPDR"",126,0)"
^XMB(3.9,165,2,2282,0)=" Q"
^XMB(3.9,165,2,2283,0)="""RTN"",""XPDR"",127,0)"
^XMB(3.9,165,2,2284,0)="PURGEH ;executable help from DIR call at PURGE+8"
^XMB(3.9,165,2,2285,0)="""RTN"",""XPDR"",128,0)"
^XMB(3.9,165,2,2286,0)=" W:$E(DIR(""A""),1)=""P"" !,""Enter 'ALL' to purge all packages, or"""
^XMB(3.9,165,2,2287,0)="""RTN"",""XPDR"",129,0)"
^XMB(3.9,165,2,2288,0)=" W !,""Enter the name of the Package you want to Purge."",!,"" i.e. KERNEL 8.0  will purge version 8.0Tx and 8.0Vx"",!,""      XU*8.0 will purge all patches for 8.0"",!"
^XMB(3.9,165,2,2289,0)="""RTN"",""XPDR"",130,0)"
^XMB(3.9,165,2,2290,0)=" N DIR,X,Y"
^XMB(3.9,165,2,2291,0)="""RTN"",""XPDR"",131,0)"
^XMB(3.9,165,2,2292,0)=" S DIR(0)=""Y"",DIR(""A"")=""Want to see the ""_$S(XPDF=9.7:""Install File"",$D(XPDF(1)):""Build & Install Files"",1:""Build File"")_"" List"",DIR(""B"")=""Y"""
^XMB(3.9,165,2,2293,0)="""RTN"",""XPDR"",132,0)"
^XMB(3.9,165,2,2294,0)=" D ^DIR Q:'Y!$D(DIRUT)"
^XMB(3.9,165,2,2295,0)="""RTN"",""XPDR"",133,0)"
^XMB(3.9,165,2,2296,0)=" D PURGEH1(""^XPD(9.6,""):XPDF=9.6,PURGEH1(""^XPD(9.7,""):XPDF=9.7!$D(XPDF(1))"
^XMB(3.9,165,2,2297,0)="""RTN"",""XPDR"",134,0)"
^XMB(3.9,165,2,2298,0)=" Q"
^XMB(3.9,165,2,2299,0)="""RTN"",""XPDR"",135,0)"
^XMB(3.9,165,2,2300,0)=" ;"
^XMB(3.9,165,2,2301,0)="""RTN"",""XPDR"",136,0)"
^XMB(3.9,165,2,2302,0)="DUP(Z,Z1) ;find duplicate, Z=NAME, Z1=last ien"
^XMB(3.9,165,2,2303,0)="""RTN"",""XPDR"",137,0)"
^XMB(3.9,165,2,2304,0)=" ;returns Y=DA^dup DA^dup DA..."
^XMB(3.9,165,2,2305,0)="""RTN"",""XPDR"",138,0)"
^XMB(3.9,165,2,2306,0)=" N Y S Y="""""
^XMB(3.9,165,2,2307,0)="""RTN"",""XPDR"",139,0)"
^XMB(3.9,165,2,2308,0)=" F  S Z1=$O(^XPD(XPDF,""B"",Z,Z1)) Q:'Z1  S Y=Y_""^""_Z1"
^XMB(3.9,165,2,2309,0)="""RTN"",""XPDR"",140,0)"
^XMB(3.9,165,2,2310,0)=" Q Y"
^XMB(3.9,165,2,2311,0)="""RTN"",""XPDR"",141,0)"
^XMB(3.9,165,2,2312,0)=" ;"
^XMB(3.9,165,2,2313,0)="""RTN"",""XPDR"",142,0)"
^XMB(3.9,165,2,2314,0)="PURGEH1(DIC) ;"
^XMB(3.9,165,2,2315,0)="""RTN"",""XPDR"",143,0)"
^XMB(3.9,165,2,2316,0)=" W !!,$S(DIC[9.6:""BUILD "",1:""INSTALL "")_""File"""
^XMB(3.9,165,2,2317,0)="""RTN"",""XPDR"",144,0)"
^XMB(3.9,165,2,2318,0)=" S DIC(0)=""QE"",X=""??"" D ^DIC"
^XMB(3.9,165,2,2319,0)="""RTN"",""XPDR"",145,0)"
^XMB(3.9,165,2,2320,0)=" Q"
^XMB(3.9,165,2,2321,0)="""RTN"",""XPDR"",146,0)"
^XMB(3.9,165,2,2322,0)=" ;"
^XMB(3.9,165,2,2323,0)="""RTN"",""XPDR"",147,0)"
^XMB(3.9,165,2,2324,0)="HDR W !,""Package(s) in "",$S(XPDF=9.7:""INSTALL"",1:""BUILD""),"" File, """
^XMB(3.9,165,2,2325,0)="""RTN"",""XPDR"",148,0)"
^XMB(3.9,165,2,2326,0)=" I XPDN W ""Retain last "",$S(XPDN=1:""version"",1:XPDN_"" versions"")"
^XMB(3.9,165,2,2327,0)="""RTN"",""XPDR"",149,0)"
^XMB(3.9,165,2,2328,0)=" E  W ""Don't retain any versions"""
^XMB(3.9,165,2,2329,0)="""RTN"",""XPDR"",150,0)"
^XMB(3.9,165,2,2330,0)=" W ?70,""PAGE "",XPDPG,!,XPDUL,!"
^XMB(3.9,165,2,2331,0)="""RTN"",""XPDR"",151,0)"
^XMB(3.9,165,2,2332,0)=" Q"
^XMB(3.9,165,2,2333,0)="""RTN"",""XPDT"")"
^XMB(3.9,165,2,2334,0)="0^1^B73091341^B60483119"
^XMB(3.9,165,2,2335,0)="""RTN"",""XPDT"",1,0)"
^XMB(3.9,165,2,2336,0)="XPDT ;SFISC/RSD - Transport a package ;06/21/2006"
^XMB(3.9,165,2,2337,0)="""RTN"",""XPDT"",2,0)"
^XMB(3.9,165,2,2338,0)=" ;;8.0;KERNEL;**2,10,28,41,44,51,58,66,68,85,100,108,393**;Jul 10, 1995;Build 12"
^XMB(3.9,165,2,2339,0)="""RTN"",""XPDT"",3,0)"
^XMB(3.9,165,2,2340,0)="EN ;build XTMP(""XPDT"",ien, XPDA=ien,XPDNM=name"
^XMB(3.9,165,2,2341,0)="""RTN"",""XPDT"",4,0)"
^XMB(3.9,165,2,2342,0)=" ;XPDT(seq #)=ien^name^1=use current transport global on system"
^XMB(3.9,165,2,2343,0)="""RTN"",""XPDT"",5,0)"
^XMB(3.9,165,2,2344,0)=" ;XPDT(""DA"",ien)=seq #"
^XMB(3.9,165,2,2345,0)="""RTN"",""XPDT"",6,0)"
^XMB(3.9,165,2,2346,0)=" ;XPDVER=version number^package name"
^XMB(3.9,165,2,2347,0)="""RTN"",""XPDT"",7,0)"
^XMB(3.9,165,2,2348,0)=" ;XPDGP=flag;global^flag;global^...  flag=1 replace global at site"
^XMB(3.9,165,2,2349,0)="""RTN"",""XPDT"",8,0)"
^XMB(3.9,165,2,2350,0)=" N DIR,DIRUT,I,POP,XPD,XPDA,XPDERR,XPDGP,XPDGREF,XPDH,XPDH1,XPDHD,XPDI,XPDNM,XPDSEQ,XPDSIZ,XPDSIZA,XPDT,XPDTP,XPDVER"
^XMB(3.9,165,2,2351,0)="""RTN"",""XPDT"",9,0)"
^XMB(3.9,165,2,2352,0)=" N XPDFMSG,X,Y,Z"
^XMB(3.9,165,2,2353,0)="""RTN"",""XPDT"",10,0)"
^XMB(3.9,165,2,2354,0)=" K ^TMP($J,""XPD"")"
^XMB(3.9,165,2,2355,0)="""RTN"",""XPDT"",11,0)"
^XMB(3.9,165,2,2356,0)=" S XPD=""First Package Name: "",DIR(0)=""Y"",DIR(""A"")=""   Use this Transport Global"",DIR(""?"")=""Yes, will use the current Transport Global on your system. No, will create a new one."",XPDT=0"
^XMB(3.9,165,2,2357,0)="""RTN"",""XPDT"",12,0)"
^XMB(3.9,165,2,2358,0)=" W !!,""Enter the Package Names to be transported. The order in which"",!,""they are entered will be the order in which they are installed."",!!"
^XMB(3.9,165,2,2359,0)="""RTN"",""XPDT"",13,0)"
^XMB(3.9,165,2,2360,0)=" F  S XPDA=$$DIC^XPDE(""AEMQZ"",XPD) Q:'XPDA  D  Q:$D(DIRUT)!$D(XPDERR)"
^XMB(3.9,165,2,2361,0)="""RTN"",""XPDT"",14,0)"
^XMB(3.9,165,2,2362,0)=" .S:'XPDT XPD=""Another Package Name: """
^XMB(3.9,165,2,2363,0)="""RTN"",""XPDT"",15,0)"
^XMB(3.9,165,2,2364,0)=" .;XPDI=name^1=use current transport global"
^XMB(3.9,165,2,2365,0)="""RTN"",""XPDT"",16,0)"
^XMB(3.9,165,2,2366,0)=" .S XPDI=$P(Y(0),U)_""^"""
^XMB(3.9,165,2,2367,0)="""RTN"",""XPDT"",17,0)"
^XMB(3.9,165,2,2368,0)=" .I $D(XPDT(""DA"",XPDA)) W ""   "",$P(Y(0),U),"" already listed"",! Q"
^XMB(3.9,165,2,2369,0)="""RTN"",""XPDT"",18,0)"
^XMB(3.9,165,2,2370,0)=" .;if type is Global Package, set DIRUT if there is other packages"
^XMB(3.9,165,2,2371,0)="""RTN"",""XPDT"",19,0)"
^XMB(3.9,165,2,2372,0)=" .I $P(Y(0),U,3)=2 W ""   GLOBAL PACKAGE"" D  Q"
^XMB(3.9,165,2,2373,0)="""RTN"",""XPDT"",20,0)"
^XMB(3.9,165,2,2374,0)=" ..;if there is already a package in distribution, abort"
^XMB(3.9,165,2,2375,0)="""RTN"",""XPDT"",21,0)"
^XMB(3.9,165,2,2376,0)=" ..I XPDT S DIRUT=1 W !,""A GLOBAL PACKAGE cannot be sent with any other packages"" Q"
^XMB(3.9,165,2,2377,0)="""RTN"",""XPDT"",22,0)"
^XMB(3.9,165,2,2378,0)=" ..I $D(^XTMP(""XPDT"",XPDA)) W ""  **Cannot have a pre-existing Transport Global**"" S DIRUT=1 Q"
^XMB(3.9,165,2,2379,0)="""RTN"",""XPDT"",23,0)"
^XMB(3.9,165,2,2380,0)=" ..W !?10,""will transport the following globals:"",! S X=0,XPDGP="""""
^XMB(3.9,165,2,2381,0)="""RTN"",""XPDT"",24,0)"
^XMB(3.9,165,2,2382,0)=" ..F  S X=$O(^XPD(9.6,XPDA,""GLO"",X)) Q:'X  S Z=$G(^(X,0)) I $P(Z,U)]"""" S XPDGP=XPDGP_($P(Z,U,2)=""y"")_"";""_$P(Z,U)_""^"" W ?12,$P(Z,U),!"
^XMB(3.9,165,2,2383,0)="""RTN"",""XPDT"",25,0)"
^XMB(3.9,165,2,2384,0)=" ..;XPDERR is set to quit loop, so no other packages can be added"
^XMB(3.9,165,2,2385,0)="""RTN"",""XPDT"",26,0)"
^XMB(3.9,165,2,2386,0)=" ..S XPDERR=1,XPDT=XPDT+1,XPDT(XPDT)=XPDA_U_XPDI,XPDT(""DA"",XPDA)=XPDT"
^XMB(3.9,165,2,2387,0)="""RTN"",""XPDT"",27,0)"
^XMB(3.9,165,2,2388,0)=" .Q:$D(XPDERR)"
^XMB(3.9,165,2,2389,0)="""RTN"",""XPDT"",28,0)"
^XMB(3.9,165,2,2390,0)=" .D PCK(XPDA,XPDI)"
^XMB(3.9,165,2,2391,0)="""RTN"",""XPDT"",29,0)"
^XMB(3.9,165,2,2392,0)=" .;multi-package"
^XMB(3.9,165,2,2393,0)="""RTN"",""XPDT"",30,0)"
^XMB(3.9,165,2,2394,0)=" .Q:$P(Y(0),U,3)'=1"
^XMB(3.9,165,2,2395,0)="""RTN"",""XPDT"",31,0)"
^XMB(3.9,165,2,2396,0)=" .W ""   (Multi-Package)"" S X=0"
^XMB(3.9,165,2,2397,0)="""RTN"",""XPDT"",32,0)"
^XMB(3.9,165,2,2398,0)=" .I XPDT>1 S DIRUT=1 W !,""A Master Build must be the first/only package in a transport"" Q"
^XMB(3.9,165,2,2399,0)="""RTN"",""XPDT"",33,0)"
^XMB(3.9,165,2,2400,0)=" .F  S X=$O(^XPD(9.6,XPDA,10,X)) Q:'X  S Z=$P($G(^(X,0)),U),Z1=$P($G(^(0)),U,2) D:Z]"""""
^XMB(3.9,165,2,2401,0)="""RTN"",""XPDT"",34,0)"
^XMB(3.9,165,2,2402,0)=" ..N XPDA,X"
^XMB(3.9,165,2,2403,0)="""RTN"",""XPDT"",35,0)"
^XMB(3.9,165,2,2404,0)=" ..W !?3,Z S XPDA=$O(^XPD(9.6,""B"",Z,0))"
^XMB(3.9,165,2,2405,0)="""RTN"",""XPDT"",36,0)"
^XMB(3.9,165,2,2406,0)=" ..I 'XPDA W ""  **Can't find definition in Build file**"" Q"
^XMB(3.9,165,2,2407,0)="""RTN"",""XPDT"",37,0)"
^XMB(3.9,165,2,2408,0)=" ..I $D(XPDT(""DA"",XPDA)) W ""  already listed"" Q"
^XMB(3.9,165,2,2409,0)="""RTN"",""XPDT"",38,0)"
^XMB(3.9,165,2,2410,0)=" ..D PCK(XPDA,Z,Z1)"
^XMB(3.9,165,2,2411,0)="""RTN"",""XPDT"",39,0)"
^XMB(3.9,165,2,2412,0)=" .S XPDERR=1 ;XPDERR is set to quit loop, so no other packages can be added"
^XMB(3.9,165,2,2413,0)="""RTN"",""XPDT"",40,0)"
^XMB(3.9,165,2,2414,0)=" .Q"
^XMB(3.9,165,2,2415,0)="""RTN"",""XPDT"",41,0)"
^XMB(3.9,165,2,2416,0)=" G:'XPDT!$D(DIRUT) QUIT K XPDERR"
^XMB(3.9,165,2,2417,0)="""RTN"",""XPDT"",42,0)"
^XMB(3.9,165,2,2418,0)=" W !!,""ORDER   PACKAGE"",!"
^XMB(3.9,165,2,2419,0)="""RTN"",""XPDT"",43,0)"
^XMB(3.9,165,2,2420,0)=" F XPDT=1:1:XPDT S Y=$P(XPDT(XPDT),U,2) W ?2,XPDT,?7,Y D  W !"
^XMB(3.9,165,2,2421,0)="""RTN"",""XPDT"",44,0)"
^XMB(3.9,165,2,2422,0)=" .W:$P(XPDT(XPDT),U,3) ""     **will use current Transport Global**"""
^XMB(3.9,165,2,2423,0)="""RTN"",""XPDT"",45,0)"
^XMB(3.9,165,2,2424,0)=" S DIR(0)=""Y"",DIR(""A"")=""OK to continue"",DIR(""B"")=""NO"",XPDH="""""
^XMB(3.9,165,2,2425,0)="""RTN"",""XPDT"",46,0)"
^XMB(3.9,165,2,2426,0)=" W !! D ^DIR G:$D(DIRUT)!'Y QUIT K DIR"
^XMB(3.9,165,2,2427,0)="""RTN"",""XPDT"",47,0)"
^XMB(3.9,165,2,2428,0)=" I $G(XPDTP),XPDT>1 W !!,""You cannot send multiple Builds through PackMan."""
^XMB(3.9,165,2,2429,0)="""RTN"",""XPDT"",48,0)"
^XMB(3.9,165,2,2430,0)=" S DIR(0)=""SAO^HF:Host File""_$S(XPDT=1:"";PM:PackMan"",1:"""")"
^XMB(3.9,165,2,2431,0)="""RTN"",""XPDT"",49,0)"
^XMB(3.9,165,2,2432,0)=" S DIR(""A"")=""Transport through (HF)Host File""_$S(XPDT=1:"" or (PM)PackMan: "",1:"": "")"
^XMB(3.9,165,2,2433,0)="""RTN"",""XPDT"",50,0)"
^XMB(3.9,165,2,2434,0)=" S DIR(""?"")=""Enter the method of transport for the package(s)."""
^XMB(3.9,165,2,2435,0)="""RTN"",""XPDT"",51,0)"
^XMB(3.9,165,2,2436,0)=" D ^DIR G:$D(DTOUT)!$D(DUOUT) QUIT K DIR"
^XMB(3.9,165,2,2437,0)="""RTN"",""XPDT"",52,0)"
^XMB(3.9,165,2,2438,0)=" I Y="""" W !,""No Transport Method selected, will only write Transport Global to ^XTMP."" S XPDH="""""
^XMB(3.9,165,2,2439,0)="""RTN"",""XPDT"",53,0)"
^XMB(3.9,165,2,2440,0)=" ;XPDTP = transports using Packman"
^XMB(3.9,165,2,2441,0)="""RTN"",""XPDT"",54,0)"
^XMB(3.9,165,2,2442,0)=" S:Y=""PM"" XPDTP=1"
^XMB(3.9,165,2,2443,0)="""RTN"",""XPDT"",55,0)"
^XMB(3.9,165,2,2444,0)=" I $D(XPDGP),Y'=""HF"" W !,""**Global Package can only be sent with a Host File, Transport ABORTED**"" Q"
^XMB(3.9,165,2,2445,0)="""RTN"",""XPDT"",56,0)"
^XMB(3.9,165,2,2446,0)=" I Y=""HF"" D DEV G:POP QUIT"
^XMB(3.9,165,2,2447,0)="""RTN"",""XPDT"",57,0)"
^XMB(3.9,165,2,2448,0)=" W !!"
^XMB(3.9,165,2,2449,0)="""RTN"",""XPDT"",58,0)"
^XMB(3.9,165,2,2450,0)=" F XPDT=1:1:XPDT S XPDA=XPDT(XPDT),XPDNM=$P(XPDA,U,2) D  G:$D(XPDERR) ABORT"
^XMB(3.9,165,2,2451,0)="""RTN"",""XPDT"",59,0)"
^XMB(3.9,165,2,2452,0)=" .W !?5,XPDNM,""..."" S XPDGREF=""^XTMP(""""XPDT"""",""_+XPDA_"",""""TEMP"""")"""
^XMB(3.9,165,2,2453,0)="""RTN"",""XPDT"",60,0)"
^XMB(3.9,165,2,2454,0)=" .;if using current transport global, run pre-transp routine and quit"
^XMB(3.9,165,2,2455,0)="""RTN"",""XPDT"",61,0)"
^XMB(3.9,165,2,2456,0)=" .I $P(XPDA,U,3) S XPDA=+XPDA D PRET Q"
^XMB(3.9,165,2,2457,0)="""RTN"",""XPDT"",62,0)"
^XMB(3.9,165,2,2458,0)=" .;if package file link then set XPDVER=version number^package name"
^XMB(3.9,165,2,2459,0)="""RTN"",""XPDT"",63,0)"
^XMB(3.9,165,2,2460,0)=" .S XPDA=+XPDA,XPDVER=$S($P(^XPD(9.6,XPDA,0),U,2):$$VER^XPDUTL(XPDNM)_U_$$PKG^XPDUTL(XPDNM),1:"""")"
^XMB(3.9,165,2,2461,0)="""RTN"",""XPDT"",64,0)"
^XMB(3.9,165,2,2462,0)=" .;Inc the Build number"
^XMB(3.9,165,2,2463,0)="""RTN"",""XPDT"",65,0)"
^XMB(3.9,165,2,2464,0)=" .S $P(^XPD(9.6,XPDA,6.3),U)=$G(^XPD(9.6,XPDA,6.3))+1"
^XMB(3.9,165,2,2465,0)="""RTN"",""XPDT"",66,0)"
^XMB(3.9,165,2,2466,0)=" .K ^XTMP(""XPDT"",XPDA)"
^XMB(3.9,165,2,2467,0)="""RTN"",""XPDT"",67,0)"
^XMB(3.9,165,2,2468,0)=" .;GLOBAL PACKAGE"
^XMB(3.9,165,2,2469,0)="""RTN"",""XPDT"",68,0)"
^XMB(3.9,165,2,2470,0)=" .I $D(XPDGP) D  S XPDT=1 Q"
^XMB(3.9,165,2,2471,0)="""RTN"",""XPDT"",69,0)"
^XMB(3.9,165,2,2472,0)=" ..;can't send global package in packman message"
^XMB(3.9,165,2,2473,0)="""RTN"",""XPDT"",70,0)"
^XMB(3.9,165,2,2474,0)=" ..I $G(XPDTP) S XPDERR=1 Q"
^XMB(3.9,165,2,2475,0)="""RTN"",""XPDT"",71,0)"
^XMB(3.9,165,2,2476,0)=" ..;verify global package"
^XMB(3.9,165,2,2477,0)="""RTN"",""XPDT"",72,0)"
^XMB(3.9,165,2,2478,0)=" ..I '$$GLOPKG^XPDV(XPDA) S XPDERR=1 Q"
^XMB(3.9,165,2,2479,0)="""RTN"",""XPDT"",73,0)"
^XMB(3.9,165,2,2480,0)=" ..;get Environment check and Post Install routines"
^XMB(3.9,165,2,2481,0)="""RTN"",""XPDT"",74,0)"
^XMB(3.9,165,2,2482,0)=" ..F Y=""PRE"",""INIT"" I $G(^XPD(9.6,XPDA,Y))]"""" S X=^(Y) D"
^XMB(3.9,165,2,2483,0)="""RTN"",""XPDT"",75,0)"
^XMB(3.9,165,2,2484,0)=" ...S ^XTMP(""XPDT"",XPDA,Y)=X,X=$P(X,U,$L(X,U)),%=$$LOAD^XPDTA(X,""0^"")"
^XMB(3.9,165,2,2485,0)="""RTN"",""XPDT"",76,0)"
^XMB(3.9,165,2,2486,0)=" ..D BLD^XPDTC,PRET"
^XMB(3.9,165,2,2487,0)="""RTN"",""XPDT"",77,0)"
^XMB(3.9,165,2,2488,0)=" .F X=""DD^XPDTC"",""KRN^XPDTC"",""QUES^XPDTC"",""INT^XPDTC"",""BLD^XPDTC"" D @X Q:$D(XPDERR)"
^XMB(3.9,165,2,2489,0)="""RTN"",""XPDT"",78,0)"
^XMB(3.9,165,2,2490,0)=" .D:'$D(XPDERR) PRET"
^XMB(3.9,165,2,2491,0)="""RTN"",""XPDT"",79,0)"
^XMB(3.9,165,2,2492,0)=" ;XPDTP - call ^XPDTP to build Packman message"
^XMB(3.9,165,2,2493,0)="""RTN"",""XPDT"",80,0)"
^XMB(3.9,165,2,2494,0)=" I $G(XPDTP) S XPDA=+XPDT(XPDT) D ^XPDTP G QUIT"
^XMB(3.9,165,2,2495,0)="""RTN"",""XPDT"",81,0)"
^XMB(3.9,165,2,2496,0)=" I $L(XPDH) D GO G QUIT"
^XMB(3.9,165,2,2497,0)="""RTN"",""XPDT"",82,0)"
^XMB(3.9,165,2,2498,0)=" ;if no device then just create transport global"
^XMB(3.9,165,2,2499,0)="""RTN"",""XPDT"",83,0)"
^XMB(3.9,165,2,2500,0)=" W !! F XPDT=1:1:XPDT W ""Transport Global ^XTMP(""""XPDT"""",""_+XPDT(XPDT)_"") created for "",$P(XPDT(XPDT),U,2),!"
^XMB(3.9,165,2,2501,0)="""RTN"",""XPDT"",84,0)"
^XMB(3.9,165,2,2502,0)=" Q"
^XMB(3.9,165,2,2503,0)="""RTN"",""XPDT"",85,0)"
^XMB(3.9,165,2,2504,0)="DEV N FIL,DIR,IOP,X,Y,%ZIS W !"
^XMB(3.9,165,2,2505,0)="""RTN"",""XPDT"",86,0)"
^XMB(3.9,165,2,2506,0)=" D HOME^%ZIS"
^XMB(3.9,165,2,2507,0)="""RTN"",""XPDT"",87,0)"
^XMB(3.9,165,2,2508,0)=" S DIR(0)=""F^3:245"",DIR(""A"")=""Enter a Host File"",DIR(""?"")=""Enter a filename and/or path to output package(s)."",POP=0"
^XMB(3.9,165,2,2509,0)="""RTN"",""XPDT"",88,0)"
^XMB(3.9,165,2,2510,0)=" D ^DIR I $D(DTOUT)!$D(DUOUT) S POP=1 Q"
^XMB(3.9,165,2,2511,0)="""RTN"",""XPDT"",89,0)"
^XMB(3.9,165,2,2512,0)=" ;if no file, then quit"
^XMB(3.9,165,2,2513,0)="""RTN"",""XPDT"",90,0)"
^XMB(3.9,165,2,2514,0)=" Q:Y=""""  S FIL=Y"
^XMB(3.9,165,2,2515,0)="""RTN"",""XPDT"",91,0)"
^XMB(3.9,165,2,2516,0)=" S DIR(0)=""F^3:80"",DIR(""A"")=""Header Comment"",DIR(""?"")=""Enter a comment between 3 and 80 charaters."""
^XMB(3.9,165,2,2517,0)="""RTN"",""XPDT"",92,0)"
^XMB(3.9,165,2,2518,0)=" D ^DIR I $D(DIRUT) S POP=1 Q"
^XMB(3.9,165,2,2519,0)="""RTN"",""XPDT"",93,0)"
^XMB(3.9,165,2,2520,0)=" S XPDH=Y,%ZIS="""",%ZIS(""HFSNAME"")=FIL,%ZIS(""HFSMODE"")=""W"",IOP=""HFS"",(XPDSIZ,XPDSIZA)=0,XPDSEQ=1"
^XMB(3.9,165,2,2521,0)="""RTN"",""XPDT"",94,0)"
^XMB(3.9,165,2,2522,0)=" D ^%ZIS I POP W !!,""**Incorrect Host File name**"",!,$C(7) Q"
^XMB(3.9,165,2,2523,0)="""RTN"",""XPDT"",95,0)"
^XMB(3.9,165,2,2524,0)=" ;write date and comment header"
^XMB(3.9,165,2,2525,0)="""RTN"",""XPDT"",96,0)"
^XMB(3.9,165,2,2526,0)=" S XPDHD=""KIDS Distribution saved on ""_$$HTE^XLFDT($H)"
^XMB(3.9,165,2,2527,0)="""RTN"",""XPDT"",97,0)"
^XMB(3.9,165,2,2528,0)=" U IO W $$SUM(XPDHD),!,$$SUM(XPDH),!"
^XMB(3.9,165,2,2529,0)="""RTN"",""XPDT"",98,0)"
^XMB(3.9,165,2,2530,0)=" S XPDFMSG=1 ;Send mail to forum of routines in HFS."
^XMB(3.9,165,2,2531,0)="""RTN"",""XPDT"",99,0)"
^XMB(3.9,165,2,2532,0)=" ;U IO(0) is to insure I am writing to the terminal"
^XMB(3.9,165,2,2533,0)="""RTN"",""XPDT"",100,0)"
^XMB(3.9,165,2,2534,0)=" U IO(0) Q"
^XMB(3.9,165,2,2535,0)="""RTN"",""XPDT"",101,0)"
^XMB(3.9,165,2,2536,0)=" ;"
^XMB(3.9,165,2,2537,0)="""RTN"",""XPDT"",102,0)"
^XMB(3.9,165,2,2538,0)="GO S I=1,Y="""",XPDH1=""**KIDS**:"" U IO"
^XMB(3.9,165,2,2539,0)="""RTN"",""XPDT"",103,0)"
^XMB(3.9,165,2,2540,0)=" ;Global Package, header is different and there is only 1 package"
^XMB(3.9,165,2,2541,0)="""RTN"",""XPDT"",104,0)"
^XMB(3.9,165,2,2542,0)=" I $D(XPDGP) W $$SUM(""**KIDS**GLOBALS:""_$P(XPDT(1),U,2)_U_XPDGP),! G GO1"
^XMB(3.9,165,2,2543,0)="""RTN"",""XPDT"",105,0)"
^XMB(3.9,165,2,2544,0)=" ;write header that maintains package list, keep less than 255 char"
^XMB(3.9,165,2,2545,0)="""RTN"",""XPDT"",106,0)"
^XMB(3.9,165,2,2546,0)=" F  D  W $$SUM(XPDH1_Y),! Q:I=XPDT  S Y="""",I=I+1,XPDH1=""**KIDS**"""
^XMB(3.9,165,2,2547,0)="""RTN"",""XPDT"",107,0)"
^XMB(3.9,165,2,2548,0)=" .F I=I:1 S Y=Y_$P(XPDT(I),U,2)_""^"" Q:$L(Y)>200!(I=XPDT)"
^XMB(3.9,165,2,2549,0)="""RTN"",""XPDT"",108,0)"
^XMB(3.9,165,2,2550,0)=" ;after the package list write an extra line feed"
^XMB(3.9,165,2,2551,0)="""RTN"",""XPDT"",109,0)"
^XMB(3.9,165,2,2552,0)="GO1 W ! S XPDSIZA=XPDSIZA+2"
^XMB(3.9,165,2,2553,0)="""RTN"",""XPDT"",110,0)"
^XMB(3.9,165,2,2554,0)=" N XMSUB,XMY,XMTEXT"
^XMB(3.9,165,2,2555,0)="""RTN"",""XPDT"",111,0)"
^XMB(3.9,165,2,2556,0)=" ;loop thru & write global, don't kill if set to permanent, set in XPDIU"
^XMB(3.9,165,2,2557,0)="""RTN"",""XPDT"",112,0)"
^XMB(3.9,165,2,2558,0)=" F XPDT=1:1:XPDT S XPDA=+XPDT(XPDT),XPDNM=$P(XPDT(XPDT),U,2) D GW,XM K:'$G(^XTMP(""XPDT"",XPDA)) ^(XPDA)"
^XMB(3.9,165,2,2559,0)="""RTN"",""XPDT"",113,0)"
^XMB(3.9,165,2,2560,0)=" W ""**END**"",!"
^XMB(3.9,165,2,2561,0)="""RTN"",""XPDT"",114,0)"
^XMB(3.9,165,2,2562,0)=" ;GLOBAL PACKAGE there could only be one package, write globals"
^XMB(3.9,165,2,2563,0)="""RTN"",""XPDT"",115,0)"
^XMB(3.9,165,2,2564,0)=" I $D(XPDGP) D GPW W ""**END**"",!"
^XMB(3.9,165,2,2565,0)="""RTN"",""XPDT"",116,0)"
^XMB(3.9,165,2,2566,0)=" ;we're done with device, close it"
^XMB(3.9,165,2,2567,0)="""RTN"",""XPDT"",117,0)"
^XMB(3.9,165,2,2568,0)=" W ""**END**"",! D ^%ZISC"
^XMB(3.9,165,2,2569,0)="""RTN"",""XPDT"",118,0)"
^XMB(3.9,165,2,2570,0)=" W !!,""Package Transported Successfully"",!"
^XMB(3.9,165,2,2571,0)="""RTN"",""XPDT"",119,0)"
^XMB(3.9,165,2,2572,0)=" Q"
^XMB(3.9,165,2,2573,0)="""RTN"",""XPDT"",120,0)"
^XMB(3.9,165,2,2574,0)="GW ;global write"
^XMB(3.9,165,2,2575,0)="""RTN"",""XPDT"",121,0)"
^XMB(3.9,165,2,2576,0)=" N GR,GCK,GL"
^XMB(3.9,165,2,2577,0)="""RTN"",""XPDT"",122,0)"
^XMB(3.9,165,2,2578,0)=" S GCK=""^XTMP(""""XPDT"""",""_XPDA,GR=GCK_"")"",GCK=GCK_"","",GL=$L(GCK)"
^XMB(3.9,165,2,2579,0)="""RTN"",""XPDT"",123,0)"
^XMB(3.9,165,2,2580,0)=" ;INSTALL NAME line will mark the begining of global for all lines until"
^XMB(3.9,165,2,2581,0)="""RTN"",""XPDT"",124,0)"
^XMB(3.9,165,2,2582,0)=" ;the next INSTALL NAME"
^XMB(3.9,165,2,2583,0)="""RTN"",""XPDT"",125,0)"
^XMB(3.9,165,2,2584,0)=" W $$SUM(""**INSTALL NAME**"",1),!,$$SUM(XPDNM),!"
^XMB(3.9,165,2,2585,0)="""RTN"",""XPDT"",126,0)"
^XMB(3.9,165,2,2586,0)=" F  Q:$D(DIRUT)  S GR=$Q(@GR) Q:GR=""""!($E(GR,1,GL)'=GCK)  W $$SUM($P(GR,GCK,2),1),!,$$SUM(@GR),!"
^XMB(3.9,165,2,2587,0)="""RTN"",""XPDT"",127,0)"
^XMB(3.9,165,2,2588,0)=" Q"
^XMB(3.9,165,2,2589,0)="""RTN"",""XPDT"",128,0)"
^XMB(3.9,165,2,2590,0)="XM ;Send HFS checksum message"
^XMB(3.9,165,2,2591,0)="""RTN"",""XPDT"",129,0)"
^XMB(3.9,165,2,2592,0)=" Q:'$G(XPDFMSG)"
^XMB(3.9,165,2,2593,0)="""RTN"",""XPDT"",130,0)"
^XMB(3.9,165,2,2594,0)=" N XMTEXT,C,RN,X,X2"
^XMB(3.9,165,2,2595,0)="""RTN"",""XPDT"",131,0)"
^XMB(3.9,165,2,2596,0)=" K ^TMP($J)"
^XMB(3.9,165,2,2597,0)="""RTN"",""XPDT"",132,0)"
^XMB(3.9,165,2,2598,0)=" S XMSUB=""**KIDS** Checksum for ""_XPDNM,XMTEXT=""^TMP($J)"""
^XMB(3.9,165,2,2599,0)="""RTN"",""XPDT"",133,0)"
^XMB(3.9,165,2,2600,0)=" I $G(^XMB(""NETNAME""))[""VA.GOV"" S XMY(""S.A1AE HFS CHKSUM SVR@FORUM.VA.GOV"")="""""
^XMB(3.9,165,2,2601,0)="""RTN"",""XPDT"",134,0)"
^XMB(3.9,165,2,2602,0)=" E  S X=$$GET^XPAR(""PKG"",""XPD PATCH HFS SERVER"",1,""Q"") S:$L(X) XMY(X)="""""
^XMB(3.9,165,2,2603,0)="""RTN"",""XPDT"",135,0)"
^XMB(3.9,165,2,2604,0)=" I '$D(XMY) Q  ;No one to send it to."
^XMB(3.9,165,2,2605,0)="""RTN"",""XPDT"",136,0)"
^XMB(3.9,165,2,2606,0)=" S C=1,@XMTEXT@(1,0)=""~~1:""_XPDNM"
^XMB(3.9,165,2,2607,0)="""RTN"",""XPDT"",137,0)"
^XMB(3.9,165,2,2608,0)=" I XPDT=1,$O(XPDT(1)) D"
^XMB(3.9,165,2,2609,0)="""RTN"",""XPDT"",138,0)"
^XMB(3.9,165,2,2610,0)=" . S RN=1 F  S RN=$O(XPDT(RN)) Q:'RN  S C=C+1,@XMTEXT@(C,0)=""~~2:""_$P(XPDT(RN),""^"",2)"
^XMB(3.9,165,2,2611,0)="""RTN"",""XPDT"",139,0)"
^XMB(3.9,165,2,2612,0)=" S RN="""" ;Send full RTN node"
^XMB(3.9,165,2,2613,0)="""RTN"",""XPDT"",140,0)"
^XMB(3.9,165,2,2614,0)=" F  S RN=$O(^XTMP(""XPDT"",XPDA,""RTN"",RN)) Q:'$L(RN)  S X=^(RN),X2=$G(^(RN,2,0)),C=C+1,@XMTEXT@(C,0)=""~~3:""_RN_""^""_X_""^""_$P(X2,"";"",5)"
^XMB(3.9,165,2,2615,0)="""RTN"",""XPDT"",141,0)"
^XMB(3.9,165,2,2616,0)=" S C=C+1,@XMTEXT@(C,0)=""~~8:""_$G(^XMB(""NETNAME""))"
^XMB(3.9,165,2,2617,0)="""RTN"",""XPDT"",142,0)"
^XMB(3.9,165,2,2618,0)=" S C=C+1,@XMTEXT@(C,0)=""~~9:Save"""
^XMB(3.9,165,2,2619,0)="""RTN"",""XPDT"",143,0)"
^XMB(3.9,165,2,2620,0)=" S XMTEXT=""^TMP($J,"""
^XMB(3.9,165,2,2621,0)="""RTN"",""XPDT"",144,0)"
^XMB(3.9,165,2,2622,0)=" D ^XMD"
^XMB(3.9,165,2,2623,0)="""RTN"",""XPDT"",145,0)"
^XMB(3.9,165,2,2624,0)=" Q"
^XMB(3.9,165,2,2625,0)="""RTN"",""XPDT"",146,0)"
^XMB(3.9,165,2,2626,0)="GPW ;global package write"
^XMB(3.9,165,2,2627,0)="""RTN"",""XPDT"",147,0)"
^XMB(3.9,165,2,2628,0)=" N I,G,GR,GCK,GL"
^XMB(3.9,165,2,2629,0)="""RTN"",""XPDT"",148,0)"
^XMB(3.9,165,2,2630,0)=" W !"
^XMB(3.9,165,2,2631,0)="""RTN"",""XPDT"",149,0)"
^XMB(3.9,165,2,2632,0)=" F I=1:1 S G=$P(XPDGP,U,I) Q:G=""""  D"
^XMB(3.9,165,2,2633,0)="""RTN"",""XPDT"",150,0)"
^XMB(3.9,165,2,2634,0)=" .S GR=""^""_$P(G,"";"",2),GCK=$S(GR["")"":$E(GR,1,$L(GR)-1)_"","",1:GR_""(""),GL=$L(GCK)"
^XMB(3.9,165,2,2635,0)="""RTN"",""XPDT"",151,0)"
^XMB(3.9,165,2,2636,0)=" .;GLOBAL line will mark the begining of global for all lines until"
^XMB(3.9,165,2,2637,0)="""RTN"",""XPDT"",152,0)"
^XMB(3.9,165,2,2638,0)=" .;the next GLOBAL"
^XMB(3.9,165,2,2639,0)="""RTN"",""XPDT"",153,0)"
^XMB(3.9,165,2,2640,0)=" .W $$SUM(""**GLOBAL**"",1),!,$$SUM(GR),!"
^XMB(3.9,165,2,2641,0)="""RTN"",""XPDT"",154,0)"
^XMB(3.9,165,2,2642,0)=" .F  Q:$D(DIRUT)  S GR=$Q(@GR) Q:GR=""""!($E(GR,1,GL)'=GCK)  W $$SUM($P(GR,GCK,2),1),!,$$SUM(@GR),!"
^XMB(3.9,165,2,2643,0)="""RTN"",""XPDT"",155,0)"
^XMB(3.9,165,2,2644,0)=" Q"
^XMB(3.9,165,2,2645,0)="""RTN"",""XPDT"",156,0)"
^XMB(3.9,165,2,2646,0)="QUIT F XPDT=1:1:XPDT L -^XPD(9.6,+XPDT(XPDT))"
^XMB(3.9,165,2,2647,0)="""RTN"",""XPDT"",157,0)"
^XMB(3.9,165,2,2648,0)=" Q"
^XMB(3.9,165,2,2649,0)="""RTN"",""XPDT"",158,0)"
^XMB(3.9,165,2,2650,0)="ABORT W !!,""**TRANSPORT ABORTED**"",*7"
^XMB(3.9,165,2,2651,0)="""RTN"",""XPDT"",159,0)"
^XMB(3.9,165,2,2652,0)=" D QUIT"
^XMB(3.9,165,2,2653,0)="""RTN"",""XPDT"",160,0)"
^XMB(3.9,165,2,2654,0)=" F XPDT=1:1:XPDT K ^XTMP(""XPDT"",+XPDT(XPDT))"
^XMB(3.9,165,2,2655,0)="""RTN"",""XPDT"",161,0)"
^XMB(3.9,165,2,2656,0)=" D ^%ZISC"
^XMB(3.9,165,2,2657,0)="""RTN"",""XPDT"",162,0)"
^XMB(3.9,165,2,2658,0)=" Q"
^XMB(3.9,165,2,2659,0)="""RTN"",""XPDT"",163,0)"
^XMB(3.9,165,2,2660,0)=" ;"
^XMB(3.9,165,2,2661,0)="""RTN"",""XPDT"",164,0)"
^XMB(3.9,165,2,2662,0)="PCK(XPDA,XPDNM,XPDREQ) ;XPDA=Build ien, XPDNM=Build name, XPDREQ=Required"
^XMB(3.9,165,2,2663,0)="""RTN"",""XPDT"",165,0)"
^XMB(3.9,165,2,2664,0)=" N Y"
^XMB(3.9,165,2,2665,0)="""RTN"",""XPDT"",166,0)"
^XMB(3.9,165,2,2666,0)=" S XPDT=XPDT+1,XPDT(XPDT)=XPDA_U_XPDNM,XPDT(""DA"",XPDA)=XPDT"
^XMB(3.9,165,2,2667,0)="""RTN"",""XPDT"",167,0)"
^XMB(3.9,165,2,2668,0)=" S:'$G(XPDREQ) XPDREQ=0"
^XMB(3.9,165,2,2669,0)="""RTN"",""XPDT"",168,0)"
^XMB(3.9,165,2,2670,0)=" S $P(XPDT(XPDT),U,4)=XPDREQ"
^XMB(3.9,165,2,2671,0)="""RTN"",""XPDT"",169,0)"
^XMB(3.9,165,2,2672,0)=" Q:'$D(^XTMP(""XPDT"",XPDA))  S Y=$G(^(XPDA))"
^XMB(3.9,165,2,2673,0)="""RTN"",""XPDT"",170,0)"
^XMB(3.9,165,2,2674,0)=" W ""     **Transport Global exists**"""
^XMB(3.9,165,2,2675,0)="""RTN"",""XPDT"",171,0)"
^XMB(3.9,165,2,2676,0)=" ;Y=1 if TG is permanet"
^XMB(3.9,165,2,2677,0)="""RTN"",""XPDT"",172,0)"
^XMB(3.9,165,2,2678,0)=" I Y S $P(XPDT(XPDT),U,3)=1 Q"
^XMB(3.9,165,2,2679,0)="""RTN"",""XPDT"",173,0)"
^XMB(3.9,165,2,2680,0)=" ;ask if they want to use TG"
^XMB(3.9,165,2,2681,0)="""RTN"",""XPDT"",174,0)"
^XMB(3.9,165,2,2682,0)=" D ^DIR S $P(XPDT(XPDT),U,3)=Y"
^XMB(3.9,165,2,2683,0)="""RTN"",""XPDT"",175,0)"
^XMB(3.9,165,2,2684,0)=" Q"
^XMB(3.9,165,2,2685,0)="""RTN"",""XPDT"",176,0)"
^XMB(3.9,165,2,2686,0)=" ;"
^XMB(3.9,165,2,2687,0)="""RTN"",""XPDT"",177,0)"
^XMB(3.9,165,2,2688,0)="SUM(X,Z) ;X=string to write, Z 0=don't check size"
^XMB(3.9,165,2,2689,0)="""RTN"",""XPDT"",178,0)"
^XMB(3.9,165,2,2690,0)=" S XPDSIZA=XPDSIZA+$L(X)+2"
^XMB(3.9,165,2,2691,0)="""RTN"",""XPDT"",179,0)"
^XMB(3.9,165,2,2692,0)=" Q X"
^XMB(3.9,165,2,2693,0)="""RTN"",""XPDT"",180,0)"
^XMB(3.9,165,2,2694,0)=" ;"
^XMB(3.9,165,2,2695,0)="""RTN"",""XPDT"",181,0)"
^XMB(3.9,165,2,2696,0)="PRET ;Pre-Transport Routine"
^XMB(3.9,165,2,2697,0)="""RTN"",""XPDT"",182,0)"
^XMB(3.9,165,2,2698,0)=" N Y S Y=$G(^XPD(9.6,XPDA,""PRET"")) Q:Y="""""
^XMB(3.9,165,2,2699,0)="""RTN"",""XPDT"",183,0)"
^XMB(3.9,165,2,2700,0)=" I '$$RTN^XPDV(Y) W !!,""Pre-Transportation Routine DOESN'T EXIST!!"",*7 Q"
^XMB(3.9,165,2,2701,0)="""RTN"",""XPDT"",184,0)"
^XMB(3.9,165,2,2702,0)=" S Y=$S(Y[""^"":Y,1:""^""_Y) W !,""Running Pre-Transportation Routine "",Y"
^XMB(3.9,165,2,2703,0)="""RTN"",""XPDT"",185,0)"
^XMB(3.9,165,2,2704,0)=" D @Y Q"
^XMB(3.9,165,2,2705,0)="""RTN"",""XPDT"",186,0)"
^XMB(3.9,165,2,2706,0)=" ;"
^XMB(3.9,165,2,2707,0)="""RTN"",""XPDT"",187,0)"
^XMB(3.9,165,2,2708,0)=" ;"
^XMB(3.9,165,2,2709,0)="""RTN"",""XPDT"",188,0)"
^XMB(3.9,165,2,2710,0)=" ;FROM DEV"
^XMB(3.9,165,2,2711,0)="""RTN"",""XPDT"",189,0)"
^XMB(3.9,165,2,2712,0)=" ;if MSM and HFS file is on device A or B, then get size for floppy disk"
^XMB(3.9,165,2,2713,0)="""RTN"",""XPDT"",190,0)"
^XMB(3.9,165,2,2714,0)=" ;XPDSIZ=disk size, XPDSIZA=accummulated size,XPDSEQ=disk sequence number"
^XMB(3.9,165,2,2715,0)="""RTN"",""XPDT"",191,0)"
^XMB(3.9,165,2,2716,0)=" I ^%ZOSF(""OS"")[""MSM"",FIL?1(1""A"",1""B"")1"":""1.E D  Q:POP"
^XMB(3.9,165,2,2717,0)="""RTN"",""XPDT"",192,0)"
^XMB(3.9,165,2,2718,0)=" .S DIR(0)=""N^0:5000"",DIR(""A"")=""Size of Diskette (1K blocks)"",DIR(""B"")=1400,DIR(""?"")=""Enter the number of 1K blocks which each diskette will hold, 0 means unlimited space"""
^XMB(3.9,165,2,2719,0)="""RTN"",""XPDT"",193,0)"
^XMB(3.9,165,2,2720,0)=" .D ^DIR I $D(DIRUT) S POP=1 Q"
^XMB(3.9,165,2,2721,0)="""RTN"",""XPDT"",194,0)"
^XMB(3.9,165,2,2722,0)=" .S XPDSIZ=$S(Y:Y*1024,1:0)"
^XMB(3.9,165,2,2723,0)="""RTN"",""XPDT"",195,0)"
^XMB(3.9,165,2,2724,0)=" ;FROM SUM"
^XMB(3.9,165,2,2725,0)="""RTN"",""XPDT"",196,0)"
^XMB(3.9,165,2,2726,0)=" ;ask for next disk"
^XMB(3.9,165,2,2727,0)="""RTN"",""XPDT"",197,0)"
^XMB(3.9,165,2,2728,0)=" ;this code is for MSM system only"
^XMB(3.9,165,2,2729,0)="""RTN"",""XPDT"",198,0)"
^XMB(3.9,165,2,2730,0)=" I $G(Z),XPDSIZ,XPDSIZ-XPDSIZA<1024 D"
^XMB(3.9,165,2,2731,0)="""RTN"",""XPDT"",199,0)"
^XMB(3.9,165,2,2732,0)=" .;write continue flag at end of this file"
^XMB(3.9,165,2,2733,0)="""RTN"",""XPDT"",200,0)"
^XMB(3.9,165,2,2734,0)=" .W ""**CONTINUE**"",!,""**END**"",!"
^XMB(3.9,165,2,2735,0)="""RTN"",""XPDT"",201,0)"
^XMB(3.9,165,2,2736,0)=" .;should call %ZIS HFS utilities to close and open file"
^XMB(3.9,165,2,2737,0)="""RTN"",""XPDT"",202,0)"
^XMB(3.9,165,2,2738,0)=" .X ""C IO"" U IO(0)"
^XMB(3.9,165,2,2739,0)="""RTN"",""XPDT"",203,0)"
^XMB(3.9,165,2,2740,0)=" .N DIR,G,GR,GCK,GL,I,X,Y"
^XMB(3.9,165,2,2741,0)="""RTN"",""XPDT"",204,0)"
^XMB(3.9,165,2,2742,0)=" .W !!,""Diskette #"",XPDSEQ,"" is full."""
^XMB(3.9,165,2,2743,0)="""RTN"",""XPDT"",205,0)"
^XMB(3.9,165,2,2744,0)=" .S DIR(0)=""E"",DIR(""A"")=""Insert the next diskette and Press the return key"",DIR(""?"")=""The current diskette is full, insert a new diskette to continue."""
^XMB(3.9,165,2,2745,0)="""RTN"",""XPDT"",206,0)"
^XMB(3.9,165,2,2746,0)=" .;$D(DIRUT)=the user aborted the distribution"
^XMB(3.9,165,2,2747,0)="""RTN"",""XPDT"",207,0)"
^XMB(3.9,165,2,2748,0)=" .D ^DIR I $D(DIRUT) D ABORT Q"
^XMB(3.9,165,2,2749,0)="""RTN"",""XPDT"",208,0)"
^XMB(3.9,165,2,2750,0)=" .W ! S XPDSEQ=XPDSEQ+1,XPDSIZA=0"
^XMB(3.9,165,2,2751,0)="""RTN"",""XPDT"",209,0)"
^XMB(3.9,165,2,2752,0)=" .;MSM specific code to open HFS"
^XMB(3.9,165,2,2753,0)="""RTN"",""XPDT"",210,0)"
^XMB(3.9,165,2,2754,0)=" .X ""O IO:IOPAR"" U IO"
^XMB(3.9,165,2,2755,0)="""RTN"",""XPDT"",211,0)"
^XMB(3.9,165,2,2756,0)=" .W $$SUM(""Continuation #""_XPDSEQ_"" of ""_XPDHD),!,$$SUM(XPDH),!,$$SUM(""**SEQ**:""_XPDSEQ),!!"
^XMB(3.9,165,2,2757,0)="""RTN"",""XPDT"",212,0)"
^XMB(3.9,165,2,2758,0)=" .S XPDSIZA=XPDSIZA+2"
^XMB(3.9,165,2,2759,0)="""RTN"",""XPDTA"")"
^XMB(3.9,165,2,2760,0)="0^4^B28341432^B26161584"
^XMB(3.9,165,2,2761,0)="""RTN"",""XPDTA"",1,0)"
^XMB(3.9,165,2,2762,0)="XPDTA ;SFISC/RSD - Build Actions for Kernel Files ;02/14/2006"
^XMB(3.9,165,2,2763,0)="""RTN"",""XPDTA"",2,0)"
^XMB(3.9,165,2,2764,0)=" ;;8.0;KERNEL;**15,44,58,131,229,393**;Jul 10, 1995;Build 12"
^XMB(3.9,165,2,2765,0)="""RTN"",""XPDTA"",3,0)"
^XMB(3.9,165,2,2766,0)=" Q"
^XMB(3.9,165,2,2767,0)="""RTN"",""XPDTA"",4,0)"
^XMB(3.9,165,2,2768,0)=" ;^XTMP(""XPDT"",XPDA,""KRN"",FILE,DA) is the global root"
^XMB(3.9,165,2,2769,0)="""RTN"",""XPDTA"",5,0)"
^XMB(3.9,165,2,2770,0)=" ;DA=ien in ^XTMP,XPDNM=package name, XPDA=package ien in ^XPD(9.6,"
^XMB(3.9,165,2,2771,0)="""RTN"",""XPDTA"",6,0)"
^XMB(3.9,165,2,2772,0)="OPT ;options"
^XMB(3.9,165,2,2773,0)="""RTN"",""XPDTA"",7,0)"
^XMB(3.9,165,2,2774,0)=" N %,%1,%2"
^XMB(3.9,165,2,2775,0)="""RTN"",""XPDTA"",8,0)"
^XMB(3.9,165,2,2776,0)=" ;if link, kill everything and just process the menu items"
^XMB(3.9,165,2,2777,0)="""RTN"",""XPDTA"",9,0)"
^XMB(3.9,165,2,2778,0)=" I XPDFL=2 D  G OPTT"
^XMB(3.9,165,2,2779,0)="""RTN"",""XPDTA"",10,0)"
^XMB(3.9,165,2,2780,0)=" .S %=0 F  S %=$O(^XTMP(""XPDT"",XPDA,""KRN"",19,DA,%)) Q:'%  K:%'=10 ^(%)"
^XMB(3.9,165,2,2781,0)="""RTN"",""XPDTA"",11,0)"
^XMB(3.9,165,2,2782,0)=" ;resolve Package (0;12), remove Creator (0;5)"
^XMB(3.9,165,2,2783,0)="""RTN"",""XPDTA"",12,0)"
^XMB(3.9,165,2,2784,0)=" S %=^XTMP(""XPDT"",XPDA,""KRN"",19,DA,0),$P(%,U,12)=$$PT(""^DIC(9.4)"",$P(%,U,12)),$P(%,U,5)="""""
^XMB(3.9,165,2,2785,0)="""RTN"",""XPDTA"",13,0)"
^XMB(3.9,165,2,2786,0)=" ;resolve Help Frame (0;7), kill Permitted Devices (3.96;0) & queue node (200)"
^XMB(3.9,165,2,2787,0)="""RTN"",""XPDTA"",14,0)"
^XMB(3.9,165,2,2788,0)=" S $P(%,U,7)=$$PT(""^DIC(9.2)"",$P(%,U,7)),^XTMP(""XPDT"",XPDA,""KRN"",19,DA,0)=% K ^(3.96),^(200)"
^XMB(3.9,165,2,2789,0)="""RTN"",""XPDTA"",15,0)"
^XMB(3.9,165,2,2790,0)=" ;resolve Server Bulletin (220;1), Server Mailgroup (220;3)"
^XMB(3.9,165,2,2791,0)="""RTN"",""XPDTA"",16,0)"
^XMB(3.9,165,2,2792,0)=" I $D(^XTMP(""XPDT"",XPDA,""KRN"",19,DA,220)) S %=^(220),$P(%,U)=$$PT(""^XMB(3.6)"",+%),$P(%,U,3)=$$PT(""^XMB(3.8)"",$P(%,U,3)),^XTMP(""XPDT"",XPDA,""KRN"",19,DA,220)=%"
^XMB(3.9,165,2,2793,0)="""RTN"",""XPDTA"",17,0)"
^XMB(3.9,165,2,2794,0)=" ;resolve RPC (RPC;0), must be type Broker"
^XMB(3.9,165,2,2795,0)="""RTN"",""XPDTA"",18,0)"
^XMB(3.9,165,2,2796,0)=" I $D(^XTMP(""XPDT"",XPDA,""KRN"",19,DA,""RPC"")) K:$P(^(0),U,4)'=""B"" ^(""RPC"") D"
^XMB(3.9,165,2,2797,0)="""RTN"",""XPDTA"",19,0)"
^XMB(3.9,165,2,2798,0)=" .;kill  ""B""=name x-ref, it will be re-indexed when installed"
^XMB(3.9,165,2,2799,0)="""RTN"",""XPDTA"",20,0)"
^XMB(3.9,165,2,2800,0)=" .K ^XTMP(""XPDT"",XPDA,""KRN"",19,DA,""RPC"",""B"")"
^XMB(3.9,165,2,2801,0)="""RTN"",""XPDTA"",21,0)"
^XMB(3.9,165,2,2802,0)=" .;loop thru RPCs and resolve (RPC;1)"
^XMB(3.9,165,2,2803,0)="""RTN"",""XPDTA"",22,0)"
^XMB(3.9,165,2,2804,0)=" .S %=0 F  S %=$O(^XTMP(""XPDT"",XPDA,""KRN"",19,DA,""RPC"",%)) Q:'%  S %1=$G(^(%,0)) D"
^XMB(3.9,165,2,2805,0)="""RTN"",""XPDTA"",23,0)"
^XMB(3.9,165,2,2806,0)=" ..S %2=$$PT(""^XWB(8994)"",+%1)"
^XMB(3.9,165,2,2807,0)="""RTN"",""XPDTA"",24,0)"
^XMB(3.9,165,2,2808,0)=" ..;if can't resolve then delete"
^XMB(3.9,165,2,2809,0)="""RTN"",""XPDTA"",25,0)"
^XMB(3.9,165,2,2810,0)=" ..I %2="""" K ^XTMP(""XPDT"",XPDA,""KRN"",19,DA,""RPC"",%,0) Q"
^XMB(3.9,165,2,2811,0)="""RTN"",""XPDTA"",26,0)"
^XMB(3.9,165,2,2812,0)=" ..;save the RPC name"
^XMB(3.9,165,2,2813,0)="""RTN"",""XPDTA"",27,0)"
^XMB(3.9,165,2,2814,0)=" ..S $P(^XTMP(""XPDT"",XPDA,""KRN"",19,DA,""RPC"",%,0),U)=%2"
^XMB(3.9,165,2,2815,0)="""RTN"",""XPDTA"",28,0)"
^XMB(3.9,165,2,2816,0)=" .Q"
^XMB(3.9,165,2,2817,0)="""RTN"",""XPDTA"",29,0)"
^XMB(3.9,165,2,2818,0)="OPTT ;Menus can only exist for options of type: menu,protocol,protocol menu,"
^XMB(3.9,165,2,2819,0)="""RTN"",""XPDTA"",30,0)"
^XMB(3.9,165,2,2820,0)=" ;extended action, limited, window suite"
^XMB(3.9,165,2,2821,0)="""RTN"",""XPDTA"",31,0)"
^XMB(3.9,165,2,2822,0)=" I ""LMOQXZ""'[$P(^XTMP(""XPDT"",XPDA,""KRN"",19,DA,0),U,4) K ^(10) Q"
^XMB(3.9,165,2,2823,0)="""RTN"",""XPDTA"",32,0)"
^XMB(3.9,165,2,2824,0)=" ;kill  ""B""=name, ""C""=synonyms x-ref, it will be re-indexed when installed"
^XMB(3.9,165,2,2825,0)="""RTN"",""XPDTA"",33,0)"
^XMB(3.9,165,2,2826,0)=" K ^XTMP(""XPDT"",XPDA,""KRN"",19,DA,10,""B""),^(""C"")"
^XMB(3.9,165,2,2827,0)="""RTN"",""XPDTA"",34,0)"
^XMB(3.9,165,2,2828,0)=" ;loop thru 10=Menus and resolve Menu (10;1), kill if it doesn't resolve"
^XMB(3.9,165,2,2829,0)="""RTN"",""XPDTA"",35,0)"
^XMB(3.9,165,2,2830,0)=" S %=0 F  S %=$O(^XTMP(""XPDT"",XPDA,""KRN"",19,DA,10,%)) Q:'%  S %1=$G(^(%,0)) D"
^XMB(3.9,165,2,2831,0)="""RTN"",""XPDTA"",36,0)"
^XMB(3.9,165,2,2832,0)=" .S %2=$$PT(""^DIC(19)"",+%1)"
^XMB(3.9,165,2,2833,0)="""RTN"",""XPDTA"",37,0)"
^XMB(3.9,165,2,2834,0)=" .;items must be sent by themselves, check ""B"" x-ref"
^XMB(3.9,165,2,2835,0)="""RTN"",""XPDTA"",38,0)"
^XMB(3.9,165,2,2836,0)=" .I $L(%2),$D(^XPD(9.6,XPDA,""KRN"",19,""NM"",""B"",%2)) S ^XTMP(""XPDT"",XPDA,""KRN"",19,DA,10,%,U)=%2 Q"
^XMB(3.9,165,2,2837,0)="""RTN"",""XPDTA"",39,0)"
^XMB(3.9,165,2,2838,0)=" .;if I couldn't resolve this option, then kill it"
^XMB(3.9,165,2,2839,0)="""RTN"",""XPDTA"",40,0)"
^XMB(3.9,165,2,2840,0)=" .K ^XTMP(""XPDT"",XPDA,""KRN"",19,DA,10,%)"
^XMB(3.9,165,2,2841,0)="""RTN"",""XPDTA"",41,0)"
^XMB(3.9,165,2,2842,0)=" Q"
^XMB(3.9,165,2,2843,0)="""RTN"",""XPDTA"",42,0)"
^XMB(3.9,165,2,2844,0)="PRO ;protocols"
^XMB(3.9,165,2,2845,0)="""RTN"",""XPDTA"",43,0)"
^XMB(3.9,165,2,2846,0)=" N %,%1,%2"
^XMB(3.9,165,2,2847,0)="""RTN"",""XPDTA"",44,0)"
^XMB(3.9,165,2,2848,0)=" ;if link, kill everything and just process the menu items"
^XMB(3.9,165,2,2849,0)="""RTN"",""XPDTA"",45,0)"
^XMB(3.9,165,2,2850,0)=" I XPDFL=2 D  G PROT"
^XMB(3.9,165,2,2851,0)="""RTN"",""XPDTA"",46,0)"
^XMB(3.9,165,2,2852,0)=" .S %=0 F  S %=$O(^XTMP(""XPDT"",XPDA,""KRN"",101,DA,%)) Q:'%  K:%'=10 ^(%)"
^XMB(3.9,165,2,2853,0)="""RTN"",""XPDTA"",47,0)"
^XMB(3.9,165,2,2854,0)=" ;resolve Package (0;12), remove Creator (0;5)"
^XMB(3.9,165,2,2855,0)="""RTN"",""XPDTA"",48,0)"
^XMB(3.9,165,2,2856,0)=" S %=^XTMP(""XPDT"",XPDA,""KRN"",101,DA,0),$P(%,U,12)=$$PT(""^DIC(9.4)"",$P(%,U,12)),$P(%,U,5)="""""
^XMB(3.9,165,2,2857,0)="""RTN"",""XPDTA"",49,0)"
^XMB(3.9,165,2,2858,0)=" ;kill under Menus (10), ""B""=name, ""C""=synonyms"
^XMB(3.9,165,2,2859,0)="""RTN"",""XPDTA"",50,0)"
^XMB(3.9,165,2,2860,0)=" S ^XTMP(""XPDT"",XPDA,""KRN"",101,DA,0)=%"
^XMB(3.9,165,2,2861,0)="""RTN"",""XPDTA"",51,0)"
^XMB(3.9,165,2,2862,0)=" ;resolve File Link (5;1), its a variable pointer"
^XMB(3.9,165,2,2863,0)="""RTN"",""XPDTA"",52,0)"
^XMB(3.9,165,2,2864,0)=" S %=$P($G(^XTMP(""XPDT"",XPDA,""KRN"",101,DA,5)),U),%1=$P(%,"";"",2)"
^XMB(3.9,165,2,2865,0)="""RTN"",""XPDTA"",53,0)"
^XMB(3.9,165,2,2866,0)=" I %,$D(@(""^""_%1_+%_"",0)"")) S $P(^XTMP(""XPDT"",XPDA,""KRN"",101,DA,5),U)=$P(^(0),U)_"";""_%1"
^XMB(3.9,165,2,2867,0)="""RTN"",""XPDTA"",54,0)"
^XMB(3.9,165,2,2868,0)=" ;resolve HL7 fields, node 770"
^XMB(3.9,165,2,2869,0)="""RTN"",""XPDTA"",55,0)"
^XMB(3.9,165,2,2870,0)=" S %=$G(^XTMP(""XPDT"",XPDA,""KRN"",101,DA,770)) I $L(%) D  S ^XTMP(""XPDT"",XPDA,""KRN"",101,DA,770)=%"
^XMB(3.9,165,2,2871,0)="""RTN"",""XPDTA"",56,0)"
^XMB(3.9,165,2,2872,0)=" .S $P(%,U)=$$PT(""^HL(771)"",$P(%,U)),$P(%,U,2)=$$PT(""^HL(771)"",$P(%,U,2))"
^XMB(3.9,165,2,2873,0)="""RTN"",""XPDTA"",57,0)"
^XMB(3.9,165,2,2874,0)=" .S $P(%,U,3)=$$PT(""^HL(771.2)"",$P(%,U,3)),$P(%,U,11)=$$PT(""^HL(771.2)"",$P(%,U,11))"
^XMB(3.9,165,2,2875,0)="""RTN"",""XPDTA"",58,0)"
^XMB(3.9,165,2,2876,0)=" .S $P(%,U,4)=$$PT(""^HL(779.001)"",$P(%,U,4)),$P(%,U,7)=$$PT(""^HLCS(870)"",$P(%,U,7))"
^XMB(3.9,165,2,2877,0)="""RTN"",""XPDTA"",59,0)"
^XMB(3.9,165,2,2878,0)=" .S $P(%,U,8)=$$PT(""^HL(779.003)"",$P(%,U,8)),$P(%,U,9)=$$PT(""^HL(779.003)"",$P(%,U,9))"
^XMB(3.9,165,2,2879,0)="""RTN"",""XPDTA"",60,0)"
^XMB(3.9,165,2,2880,0)=" .S $P(%,U,10)=$$PT(""^HL(771.5)"",$P(%,U,10))"
^XMB(3.9,165,2,2881,0)="""RTN"",""XPDTA"",61,0)"
^XMB(3.9,165,2,2882,0)="PROT ;loop thru 10=Menus and resolve Menu (10;1), kill if it doesn't resolve"
^XMB(3.9,165,2,2883,0)="""RTN"",""XPDTA"",62,0)"
^XMB(3.9,165,2,2884,0)=" ;kill under Menus (10), ""B""=name, ""C""=synonyms"
^XMB(3.9,165,2,2885,0)="""RTN"",""XPDTA"",63,0)"
^XMB(3.9,165,2,2886,0)=" I $D(^XTMP(""XPDT"",XPDA,""KRN"",101,DA,10,0)) K ^(""B""),^(""C"")"
^XMB(3.9,165,2,2887,0)="""RTN"",""XPDTA"",64,0)"
^XMB(3.9,165,2,2888,0)=" S %=0 F  S %=$O(^XTMP(""XPDT"",XPDA,""KRN"",101,DA,10,%)) Q:'%  S %1=$G(^(%,0)) D"
^XMB(3.9,165,2,2889,0)="""RTN"",""XPDTA"",65,0)"
^XMB(3.9,165,2,2890,0)=" .;%2=.01 of Menu(protocol)"
^XMB(3.9,165,2,2891,0)="""RTN"",""XPDTA"",66,0)"
^XMB(3.9,165,2,2892,0)=" .S %2=$$PT(""^ORD(101)"",+%1)"
^XMB(3.9,165,2,2893,0)="""RTN"",""XPDTA"",67,0)"
^XMB(3.9,165,2,2894,0)=" .;Menu must also be sent by itself, check ""B"" x-ref"
^XMB(3.9,165,2,2895,0)="""RTN"",""XPDTA"",68,0)"
^XMB(3.9,165,2,2896,0)=" .I $L(%2),$D(^XPD(9.6,XPDA,""KRN"",101,""NM"",""B"",%2)) S ^XTMP(""XPDT"",XPDA,""KRN"",101,DA,10,%,U)=%2,$P(^XTMP(""XPDT"",XPDA,""KRN"",101,DA,10,%,0),U,4)=$$PT(""^ORD(101)"",$P(%1,U,4)) Q"
^XMB(3.9,165,2,2897,0)="""RTN"",""XPDTA"",69,0)"
^XMB(3.9,165,2,2898,0)=" .K ^XTMP(""XPDT"",XPDA,""KRN"",101,DA,10,%)"
^XMB(3.9,165,2,2899,0)="""RTN"",""XPDTA"",70,0)"
^XMB(3.9,165,2,2900,0)=" ;If type is Event Driver and sending Subscribers (775)"
^XMB(3.9,165,2,2901,0)="""RTN"",""XPDTA"",71,0)"
^XMB(3.9,165,2,2902,0)=" I $P(^XTMP(""XPDT"",XPDA,""KRN"",101,DA,0),U,4)=""E"" D"
^XMB(3.9,165,2,2903,0)="""RTN"",""XPDTA"",72,0)"
^XMB(3.9,165,2,2904,0)=" . ;kill Menu multiple and Subscriber x-ref ""B""=name"
^XMB(3.9,165,2,2905,0)="""RTN"",""XPDTA"",73,0)"
^XMB(3.9,165,2,2906,0)=" . K ^XTMP(""XPDT"",XPDA,""KRN"",101,DA,10),^(775,""B"")"
^XMB(3.9,165,2,2907,0)="""RTN"",""XPDTA"",74,0)"
^XMB(3.9,165,2,2908,0)=" . ;loop thru 775=Subscribers and resolve pointer (775;1)"
^XMB(3.9,165,2,2909,0)="""RTN"",""XPDTA"",75,0)"
^XMB(3.9,165,2,2910,0)=" . S %=0 F  S %=$O(^XTMP(""XPDT"",XPDA,""KRN"",101,DA,775,%)) Q:'%  S %1=$G(^(%,0)) D"
^XMB(3.9,165,2,2911,0)="""RTN"",""XPDTA"",76,0)"
^XMB(3.9,165,2,2912,0)=" .. ;%2=.01 of subscriber(protocol)"
^XMB(3.9,165,2,2913,0)="""RTN"",""XPDTA"",77,0)"
^XMB(3.9,165,2,2914,0)=" .. S %2=$$PT(""^ORD(101)"",+%1)"
^XMB(3.9,165,2,2915,0)="""RTN"",""XPDTA"",78,0)"
^XMB(3.9,165,2,2916,0)=" .. ;protocol must also be sent by itself, check ""B"" x-ref"
^XMB(3.9,165,2,2917,0)="""RTN"",""XPDTA"",79,0)"
^XMB(3.9,165,2,2918,0)=" .. I $L(%2),$D(^XPD(9.6,XPDA,""KRN"",101,""NM"",""B"",%2)) S ^XTMP(""XPDT"",XPDA,""KRN"",101,DA,775,%,U)=%2 Q"
^XMB(3.9,165,2,2919,0)="""RTN"",""XPDTA"",80,0)"
^XMB(3.9,165,2,2920,0)=" .. K ^XTMP(""XPDT"",XPDA,""KRN"",101,DA,775,%)"
^XMB(3.9,165,2,2921,0)="""RTN"",""XPDTA"",81,0)"
^XMB(3.9,165,2,2922,0)=" ;quit if no Access multiple"
^XMB(3.9,165,2,2923,0)="""RTN"",""XPDTA"",82,0)"
^XMB(3.9,165,2,2924,0)=" Q:'$D(^XTMP(""XPDT"",XPDA,""KRN"",101,DA,3,0))  K ^(""B"")"
^XMB(3.9,165,2,2925,0)="""RTN"",""XPDTA"",83,0)"
^XMB(3.9,165,2,2926,0)=" ;loop thru Access and resolve (3;1), kill if it doesn't resolve"
^XMB(3.9,165,2,2927,0)="""RTN"",""XPDTA"",84,0)"
^XMB(3.9,165,2,2928,0)=" S %=0 F  S %=$O(^XTMP(""XPDT"",XPDA,""KRN"",101,DA,3,%)) Q:'%  S %1=$G(^(%,0)) D"
^XMB(3.9,165,2,2929,0)="""RTN"",""XPDTA"",85,0)"
^XMB(3.9,165,2,2930,0)=" .;%2=.01 of Menu(protocol)"
^XMB(3.9,165,2,2931,0)="""RTN"",""XPDTA"",86,0)"
^XMB(3.9,165,2,2932,0)=" .S %2=$$PT(""^DIC(19.1)"",+%1)"
^XMB(3.9,165,2,2933,0)="""RTN"",""XPDTA"",87,0)"
^XMB(3.9,165,2,2934,0)=" .I $L(%2) S ^XTMP(""XPDT"",XPDA,""KRN"",101,DA,3,%,0)=%2 Q"
^XMB(3.9,165,2,2935,0)="""RTN"",""XPDTA"",88,0)"
^XMB(3.9,165,2,2936,0)=" .K ^XTMP(""XPDT"",XPDA,""KRN"",101,DA,3,%)"
^XMB(3.9,165,2,2937,0)="""RTN"",""XPDTA"",89,0)"
^XMB(3.9,165,2,2938,0)=" Q"
^XMB(3.9,165,2,2939,0)="""RTN"",""XPDTA"",90,0)"
^XMB(3.9,165,2,2940,0)="RTNE ;routine entry build action"
^XMB(3.9,165,2,2941,0)="""RTN"",""XPDTA"",91,0)"
^XMB(3.9,165,2,2942,0)=" N %,X,XPD"
^XMB(3.9,165,2,2943,0)="""RTN"",""XPDTA"",92,0)"
^XMB(3.9,165,2,2944,0)=" ;move routine to ^XTMP(""XPDT"",DPK1,""RTN"",routine name"
^XMB(3.9,165,2,2945,0)="""RTN"",""XPDTA"",93,0)"
^XMB(3.9,165,2,2946,0)=" ;routines will have the checksum in XTMP(""XPDT"",XPDA,""RTN"",X) & in"
^XMB(3.9,165,2,2947,0)="""RTN"",""XPDTA"",94,0)"
^XMB(3.9,165,2,2948,0)=" ;Build file"
^XMB(3.9,165,2,2949,0)="""RTN"",""XPDTA"",95,0)"
^XMB(3.9,165,2,2950,0)=" S X=$P(^XTMP(""XPDT"",XPDA,""KRN"",9.8,DA,0),U),XPD=^(-1)"
^XMB(3.9,165,2,2951,0)="""RTN"",""XPDTA"",96,0)"
^XMB(3.9,165,2,2952,0)=" Q:X=""""  S %=$$LOAD(X,XPD),$P(^XPD(9.6,XPDA,""KRN"",9.8,""NM"",+$P(XPD,U,2),0),U,4)=%"
^XMB(3.9,165,2,2953,0)="""RTN"",""XPDTA"",97,0)"
^XMB(3.9,165,2,2954,0)=" K ^XTMP(""XPDT"",XPDA,""KRN"",9.8,DA)"
^XMB(3.9,165,2,2955,0)="""RTN"",""XPDTA"",98,0)"
^XMB(3.9,165,2,2956,0)=" Q"
^XMB(3.9,165,2,2957,0)="""RTN"",""XPDTA"",99,0)"
^XMB(3.9,165,2,2958,0)="RTNF ;routine file build action"
^XMB(3.9,165,2,2959,0)="""RTN"",""XPDTA"",100,0)"
^XMB(3.9,165,2,2960,0)=" N X,Y,% S Y=0"
^XMB(3.9,165,2,2961,0)="""RTN"",""XPDTA"",101,0)"
^XMB(3.9,165,2,2962,0)=" ;the routines that are left in XTMP(""XPDT"",XPDA,""KRN"",9.8) are to be"
^XMB(3.9,165,2,2963,0)="""RTN"",""XPDTA"",102,0)"
^XMB(3.9,165,2,2964,0)=" ;deleted at site, move name field to RTN node"
^XMB(3.9,165,2,2965,0)="""RTN"",""XPDTA"",103,0)"
^XMB(3.9,165,2,2966,0)=" F  S Y=$O(^XTMP(""XPDT"",XPDA,""KRN"",9.8,Y)) Q:'Y  S %=^(Y,-1),X=^(0) D"
^XMB(3.9,165,2,2967,0)="""RTN"",""XPDTA"",104,0)"
^XMB(3.9,165,2,2968,0)=" .I +%=1 S ^XTMP(""XPDT"",XPDA,""RTN"",X)=%,^(""RTN"")=$G(^XTMP(""XPDT"",XPDA,""RTN""))+1"
^XMB(3.9,165,2,2969,0)="""RTN"",""XPDTA"",105,0)"
^XMB(3.9,165,2,2970,0)=" ;kill everything"
^XMB(3.9,165,2,2971,0)="""RTN"",""XPDTA"",106,0)"
^XMB(3.9,165,2,2972,0)=" K ^XTMP(""XPDT"",XPDA,""KRN"",9.8)"
^XMB(3.9,165,2,2973,0)="""RTN"",""XPDTA"",107,0)"
^XMB(3.9,165,2,2974,0)=" Q"
^XMB(3.9,165,2,2975,0)="""RTN"",""XPDTA"",108,0)"
^XMB(3.9,165,2,2976,0)="PT(GR,DA) ;GR=file global ref, DA=ien, return .01 value"
^XMB(3.9,165,2,2977,0)="""RTN"",""XPDTA"",109,0)"
^XMB(3.9,165,2,2978,0)=" Q:'DA """""
^XMB(3.9,165,2,2979,0)="""RTN"",""XPDTA"",110,0)"
^XMB(3.9,165,2,2980,0)=" I $D(@GR@(+DA,0))#2 Q $P(^(0),U)"
^XMB(3.9,165,2,2981,0)="""RTN"",""XPDTA"",111,0)"
^XMB(3.9,165,2,2982,0)=" Q """""
^XMB(3.9,165,2,2983,0)="""RTN"",""XPDTA"",112,0)"
^XMB(3.9,165,2,2984,0)=" ;"
^XMB(3.9,165,2,2985,0)="""RTN"",""XPDTA"",113,0)"
^XMB(3.9,165,2,2986,0)="LOAD(X,XPD) ;load routine X, XPD=action^ien in Build file"
^XMB(3.9,165,2,2987,0)="""RTN"",""XPDTA"",114,0)"
^XMB(3.9,165,2,2988,0)=" ;XPD = 0-load, 1-delete, 2-skip, returns checksum"
^XMB(3.9,165,2,2989,0)="""RTN"",""XPDTA"",115,0)"
^XMB(3.9,165,2,2990,0)=" ;quit if routine is already saved"
^XMB(3.9,165,2,2991,0)="""RTN"",""XPDTA"",116,0)"
^XMB(3.9,165,2,2992,0)=" Q:$D(^XTMP(""XPDT"",XPDA,""RTN"",X)) $P(^(X),U,3)"
^XMB(3.9,165,2,2993,0)="""RTN"",""XPDTA"",117,0)"
^XMB(3.9,165,2,2994,0)=" N DIF,XCNP,%N,%A,FDA,IEN,LN2"
^XMB(3.9,165,2,2995,0)="""RTN"",""XPDTA"",118,0)"
^XMB(3.9,165,2,2996,0)=" S DIF=""^XTMP(""""XPDT"""",XPDA,""""RTN"""",X,"",XCNP=0"
^XMB(3.9,165,2,2997,0)="""RTN"",""XPDTA"",119,0)"
^XMB(3.9,165,2,2998,0)=" X ^%ZOSF(""LOAD"")"
^XMB(3.9,165,2,2999,0)="""RTN"",""XPDTA"",120,0)"
^XMB(3.9,165,2,3000,0)=" S $P(^XTMP(""XPDT"",XPDA,""RTN"",X,2,0),"";"",7)=""Build ""_(+^XPD(9.6,XPDA,6.3)),LN2=^XTMP(""XPDT"",XPDA,""RTN"",X,2,0)"
^XMB(3.9,165,2,3001,0)="""RTN"",""XPDTA"",121,0)"
^XMB(3.9,165,2,3002,0)=" S IEN=$$FIND1^DIC(9.8,"""",""X"",X)"
^XMB(3.9,165,2,3003,0)="""RTN"",""XPDTA"",122,0)"
^XMB(3.9,165,2,3004,0)=" ;^XTMP(""XPDT"",XPDA,""RTN"",X)=action^ien in Build^checksum"
^XMB(3.9,165,2,3005,0)="""RTN"",""XPDTA"",123,0)"
^XMB(3.9,165,2,3006,0)=" S %N=""B""_$$SUMB^XPDRSUM($NA(^XTMP(""XPDT"",XPDA,""RTN"",X)))"
^XMB(3.9,165,2,3007,0)="""RTN"",""XPDTA"",124,0)"
^XMB(3.9,165,2,3008,0)=" S $P(XPD,""^"",3)=%N ;Make sure the Checksum is in the 3rd piece"
^XMB(3.9,165,2,3009,0)="""RTN"",""XPDTA"",125,0)"
^XMB(3.9,165,2,3010,0)=" S ^XTMP(""XPDT"",XPDA,""RTN"",X)=XPD"
^XMB(3.9,165,2,3011,0)="""RTN"",""XPDTA"",126,0)"
^XMB(3.9,165,2,3012,0)=" ;update count node"
^XMB(3.9,165,2,3013,0)="""RTN"",""XPDTA"",127,0)"
^XMB(3.9,165,2,3014,0)=" S ^(""RTN"")=$G(^XTMP(""XPDT"",XPDA,""RTN""))+1"
^XMB(3.9,165,2,3015,0)="""RTN"",""XPDTA"",128,0)"
^XMB(3.9,165,2,3016,0)=" N XUA,XUB S (XUA,XUB)="""""
^XMB(3.9,165,2,3017,0)="""RTN"",""XPDTA"",129,0)"
^XMB(3.9,165,2,3018,0)=" ;Update Dev Patch field in Routine file"
^XMB(3.9,165,2,3019,0)="""RTN"",""XPDTA"",130,0)"
^XMB(3.9,165,2,3020,0)=" I IEN D"
^XMB(3.9,165,2,3021,0)="""RTN"",""XPDTA"",131,0)"
^XMB(3.9,165,2,3022,0)=" . S XUB=$P(XPDT(XPDT),U,2) S:XUB[""*"" $P(XUB,""*"",2)=+$P(XUB,""*"",2)"
^XMB(3.9,165,2,3023,0)="""RTN"",""XPDTA"",132,0)"
^XMB(3.9,165,2,3024,0)=" . S IEN=""?+2,""_IEN_"","",FDA(9.819,IEN,.01)=XUB"
^XMB(3.9,165,2,3025,0)="""RTN"",""XPDTA"",133,0)"
^XMB(3.9,165,2,3026,0)=" . S FDA(9.819,IEN,2)=%N,FDA(9.819,IEN,3)=$P(LN2,"";"",5)"
^XMB(3.9,165,2,3027,0)="""RTN"",""XPDTA"",134,0)"
^XMB(3.9,165,2,3028,0)=" . D UPDATE^DIE("""",""FDA"",""IEN"")"
^XMB(3.9,165,2,3029,0)="""RTN"",""XPDTA"",135,0)"
^XMB(3.9,165,2,3030,0)=" Q %N"
^XMB(3.9,165,2,3031,0)="""UP"",9.4,9.4901,-2)"
^XMB(3.9,165,2,3032,0)="9.4^22"
^XMB(3.9,165,2,3033,0)="""UP"",9.4,9.4901,-1)"
^XMB(3.9,165,2,3034,0)="9.49^PAH"
^XMB(3.9,165,2,3035,0)="""UP"",9.4,9.4901,0)"
^XMB(3.9,165,2,3036,0)="9.4901"
^XMB(3.9,165,2,3037,0)="""UP"",9.8,9.818,-1)"
^XMB(3.9,165,2,3038,0)="9.8^8"
^XMB(3.9,165,2,3039,0)="""UP"",9.8,9.818,0)"
^XMB(3.9,165,2,3040,0)="9.818"
^XMB(3.9,165,2,3041,0)="""UP"",9.8,9.819,-1)"
^XMB(3.9,165,2,3042,0)="9.8^9"
^XMB(3.9,165,2,3043,0)="""UP"",9.8,9.819,0)"
^XMB(3.9,165,2,3044,0)="9.819"
^XMB(3.9,165,2,3045,0)="""VER"")"
^XMB(3.9,165,2,3046,0)="8.0^22.0"
^XMB(3.9,165,2,3047,0)="""^DD"",9.4,9.4901,.02,0)"
^XMB(3.9,165,2,3048,0)="DATE APPLIED^D^^0;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^XMB(3.9,165,2,3049,0)="""^DD"",9.4,9.4901,.02,3)"
^XMB(3.9,165,2,3050,0)="(No range limit on date)"
^XMB(3.9,165,2,3051,0)="""^DD"",9.4,9.4901,.02,""DT"")"
^XMB(3.9,165,2,3052,0)="3060905"
^XMB(3.9,165,2,3053,0)="""^DD"",9.6,9.6,63,0)"
^XMB(3.9,165,2,3054,0)="TRANSPORT BUILD NUMBER^NJ3,0^^6.3;1^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1.N) X"
^XMB(3.9,165,2,3055,0)="""^DD"",9.6,9.6,63,.1)"
^XMB(3.9,165,2,3056,0)="Transport Build Number"
^XMB(3.9,165,2,3057,0)="""^DD"",9.6,9.6,63,3)"
^XMB(3.9,165,2,3058,0)="Type a number between 0 and 999, 0 Decimal Digits"
^XMB(3.9,165,2,3059,0)="""^DD"",9.6,9.6,63,21,0)"
^XMB(3.9,165,2,3060,0)="^^6^6^3051206^"
^XMB(3.9,165,2,3061,0)="""^DD"",9.6,9.6,63,21,1,0)"
^XMB(3.9,165,2,3062,0)="This field holds the Transport Build Number for this package or patch. It"
^XMB(3.9,165,2,3063,0)="""^DD"",9.6,9.6,63,21,2,0)"
^XMB(3.9,165,2,3064,0)="is incremented by one every time there is a KIDS transport done. It should"
^XMB(3.9,165,2,3065,0)="""^DD"",9.6,9.6,63,21,3,0)"
^XMB(3.9,165,2,3066,0)="not be edited. During the KIDS transport this build number will be "
^XMB(3.9,165,2,3067,0)="""^DD"",9.6,9.6,63,21,4,0)"
^XMB(3.9,165,2,3068,0)="inserted into the 7th piece of the second line. During the testing of a "
^XMB(3.9,165,2,3069,0)="""^DD"",9.6,9.6,63,21,5,0)"
^XMB(3.9,165,2,3070,0)="package or patch this gives a way for support to know if the most "
^XMB(3.9,165,2,3071,0)="""^DD"",9.6,9.6,63,21,6,0)"
^XMB(3.9,165,2,3072,0)="current routines are loaded."
^XMB(3.9,165,2,3073,0)="""^DD"",9.6,9.6,63,""DT"")"
^XMB(3.9,165,2,3074,0)="3060619"
^XMB(3.9,165,2,3075,0)="""^DD"",9.8,9.8,6,0)"
^XMB(3.9,165,2,3076,0)="CHECKSUM REPORT^S^0:Local - don't report;1:Local - report;2:National - report;^6;1^Q"
^XMB(3.9,165,2,3077,0)="""^DD"",9.8,9.8,6,21,0)"
^XMB(3.9,165,2,3078,0)="^.001^3^3^3041028^^"
^XMB(3.9,165,2,3079,0)="""^DD"",9.8,9.8,6,21,1,0)"
^XMB(3.9,165,2,3080,0)="Entries flaged with ""National - report"" should not be changed."
^XMB(3.9,165,2,3081,0)="""^DD"",9.8,9.8,6,21,2,0)"
^XMB(3.9,165,2,3082,0)="Sites may determine if they want reports on checksum differences for "
^XMB(3.9,165,2,3083,0)="""^DD"",9.8,9.8,6,21,3,0)"
^XMB(3.9,165,2,3084,0)="local routines by selecting ""Local - report""."
^XMB(3.9,165,2,3085,0)="""^DD"",9.8,9.8,6,""DT"")"
^XMB(3.9,165,2,3086,0)="3041028"
^XMB(3.9,165,2,3087,0)="""^DD"",9.8,9.8,6.1,0)"
^XMB(3.9,165,2,3088,0)="LOCALLY MODIFIED^S^1:YES;^6;2^Q"
^XMB(3.9,165,2,3089,0)="""^DD"",9.8,9.8,6.1,3)"
^XMB(3.9,165,2,3090,0)="Enter ?? to read field description."
^XMB(3.9,165,2,3091,0)="""^DD"",9.8,9.8,6.1,21,0)"
^XMB(3.9,165,2,3092,0)="^^4^4^3050824^"
^XMB(3.9,165,2,3093,0)="""^DD"",9.8,9.8,6.1,21,1,0)"
^XMB(3.9,165,2,3094,0)="This field was introduced by the VISTA Auto-patch Utility v2.0 for the "
^XMB(3.9,165,2,3095,0)="""^DD"",9.8,9.8,6.1,21,2,0)"
^XMB(3.9,165,2,3096,0)="purpose of not installing patches that contain routines with local mods. "
^XMB(3.9,165,2,3097,0)="""^DD"",9.8,9.8,6.1,21,3,0)"
^XMB(3.9,165,2,3098,0)="If the value is set to YES for a given routine VAPU will not install a "
^XMB(3.9,165,2,3099,0)="""^DD"",9.8,9.8,6.1,21,4,0)"
^XMB(3.9,165,2,3100,0)="patch or any of the routines contained in the patch."
^XMB(3.9,165,2,3101,0)="""^DD"",9.8,9.8,6.1,""DT"")"
^XMB(3.9,165,2,3102,0)="3050824"
^XMB(3.9,165,2,3103,0)="""^DD"",9.8,9.8,6.2,0)"
^XMB(3.9,165,2,3104,0)="DELETED BY PATCH^F^^6;3^K:$L(X)>15!($L(X)<2) X"
^XMB(3.9,165,2,3105,0)="""^DD"",9.8,9.8,6.2,3)"
^XMB(3.9,165,2,3106,0)="Answer must be 2-15 characters in length."
^XMB(3.9,165,2,3107,0)="""^DD"",9.8,9.8,6.2,21,0)"
^XMB(3.9,165,2,3108,0)="^^3^3^3050921^"
^XMB(3.9,165,2,3109,0)="""^DD"",9.8,9.8,6.2,21,1,0)"
^XMB(3.9,165,2,3110,0)="This field is set by KIDS during an Install when the routine is sent"
^XMB(3.9,165,2,3111,0)="""^DD"",9.8,9.8,6.2,21,2,0)"
^XMB(3.9,165,2,3112,0)="with the 'delete at site'."
^XMB(3.9,165,2,3113,0)="""^DD"",9.8,9.8,6.2,21,3,0)"
^XMB(3.9,165,2,3114,0)="It holds the patch name."
^XMB(3.9,165,2,3115,0)="""^DD"",9.8,9.8,6.2,""DT"")"
^XMB(3.9,165,2,3116,0)="3050921"
^XMB(3.9,165,2,3117,0)="""^DD"",9.8,9.8,7.2,0)"
^XMB(3.9,165,2,3118,0)="CHECKSUM VALUE^F^^4;2^K:$L(X)>15!($L(X)<2)!'(X?1A1.N) X"
^XMB(3.9,165,2,3119,0)="""^DD"",9.8,9.8,7.2,3)"
^XMB(3.9,165,2,3120,0)="Answer must be 1 Alpha 1-14 Numerics in length."
^XMB(3.9,165,2,3121,0)="""^DD"",9.8,9.8,7.2,21,0)"
^XMB(3.9,165,2,3122,0)="^^5^5^3050922^"
^XMB(3.9,165,2,3123,0)="""^DD"",9.8,9.8,7.2,21,1,0)"
^XMB(3.9,165,2,3124,0)="This is the saved Checksum value."
^XMB(3.9,165,2,3125,0)="""^DD"",9.8,9.8,7.2,21,2,0)"
^XMB(3.9,165,2,3126,0)="The letter at the front tells us what checksum algorithm was used."
^XMB(3.9,165,2,3127,0)="""^DD"",9.8,9.8,7.2,21,3,0)"
^XMB(3.9,165,2,3128,0)="It is loaded from the KIDS build on FORUM and sent to the sites."
^XMB(3.9,165,2,3129,0)="""^DD"",9.8,9.8,7.2,21,4,0)"
^XMB(3.9,165,2,3130,0)="The only application that should load date into this field are on FORUM"
^XMB(3.9,165,2,3131,0)="""^DD"",9.8,9.8,7.2,21,5,0)"
^XMB(3.9,165,2,3132,0)="and the Master File Update routines in the field."
^XMB(3.9,165,2,3133,0)="""^DD"",9.8,9.8,7.2,""DT"")"
^XMB(3.9,165,2,3134,0)="3050922"
^XMB(3.9,165,2,3135,0)="""^DD"",9.8,9.8,8,0)"
^XMB(3.9,165,2,3136,0)="PATCH^9.818^^8;0"
^XMB(3.9,165,2,3137,0)="""^DD"",9.8,9.8,9,0)"
^XMB(3.9,165,2,3138,0)="DEV PATCH^9.819A^^9;0"
^XMB(3.9,165,2,3139,0)="""^DD"",9.8,9.818,0)"
^XMB(3.9,165,2,3140,0)="PATCH SUB-FIELD^^3^3"
^XMB(3.9,165,2,3141,0)="""^DD"",9.8,9.818,0,""DT"")"
^XMB(3.9,165,2,3142,0)="3060509"
^XMB(3.9,165,2,3143,0)="""^DD"",9.8,9.818,0,""IX"",""B"",9.818,.01)"
^XMB(3.9,165,2,3144,0)=""
^XMB(3.9,165,2,3145,0)="""^DD"",9.8,9.818,0,""NM"",""PATCH"")"
^XMB(3.9,165,2,3146,0)=""
^XMB(3.9,165,2,3147,0)="""^DD"",9.8,9.818,0,""UP"")"
^XMB(3.9,165,2,3148,0)="9.8"
^XMB(3.9,165,2,3149,0)="""^DD"",9.8,9.818,.01,0)"
^XMB(3.9,165,2,3150,0)="PATCH^F^^0;1^K:$L(X)>50!($L(X)<2) X"
^XMB(3.9,165,2,3151,0)="""^DD"",9.8,9.818,.01,1,0)"
^XMB(3.9,165,2,3152,0)="^.1"
^XMB(3.9,165,2,3153,0)="""^DD"",9.8,9.818,.01,1,1,0)"
^XMB(3.9,165,2,3154,0)="9.818^B"
^XMB(3.9,165,2,3155,0)="""^DD"",9.8,9.818,.01,1,1,1)"
^XMB(3.9,165,2,3156,0)="S ^DIC(9.8,DA(1),8,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,165,2,3157,0)="""^DD"",9.8,9.818,.01,1,1,2)"
^XMB(3.9,165,2,3158,0)="K ^DIC(9.8,DA(1),8,""B"",$E(X,1,30),DA)"
^XMB(3.9,165,2,3159,0)="""^DD"",9.8,9.818,.01,3)"
^XMB(3.9,165,2,3160,0)="Answer must be 2-20 characters in length"
^XMB(3.9,165,2,3161,0)="""^DD"",9.8,9.818,.01,21,0)"
^XMB(3.9,165,2,3162,0)="^^1^1^3060905^"
^XMB(3.9,165,2,3163,0)="""^DD"",9.8,9.818,.01,21,1,0)"
^XMB(3.9,165,2,3164,0)="This field holds a Package or Patch name that included this routine."
^XMB(3.9,165,2,3165,0)="""^DD"",9.8,9.818,.01,""DT"")"
^XMB(3.9,165,2,3166,0)="3060509"
^XMB(3.9,165,2,3167,0)="""^DD"",9.8,9.818,2,0)"
^XMB(3.9,165,2,3168,0)="CHECKSUM^F^^0;2^K:$L(X)>15!($L(X)<2)!'(X?1A1.N) X"
^XMB(3.9,165,2,3169,0)="""^DD"",9.8,9.818,2,.1)"
^XMB(3.9,165,2,3170,0)="CheckSum"
^XMB(3.9,165,2,3171,0)="""^DD"",9.8,9.818,2,3)"
^XMB(3.9,165,2,3172,0)="Answer must be 1 Alpha 1-14 Numerics in length."
^XMB(3.9,165,2,3173,0)="""^DD"",9.8,9.818,2,21,0)"
^XMB(3.9,165,2,3174,0)="^^2^2^3060905^"
^XMB(3.9,165,2,3175,0)="""^DD"",9.8,9.818,2,21,1,0)"
^XMB(3.9,165,2,3176,0)="This field holds the checksum (based on $$SUMB^XPDRSUM(routine)) "
^XMB(3.9,165,2,3177,0)="""^DD"",9.8,9.818,2,21,2,0)"
^XMB(3.9,165,2,3178,0)="calculated for Class I release loaded by KIDS."
^XMB(3.9,165,2,3179,0)="""^DD"",9.8,9.818,2,""DT"")"
^XMB(3.9,165,2,3180,0)="3050922"
^XMB(3.9,165,2,3181,0)="""^DD"",9.8,9.818,3,0)"
^XMB(3.9,165,2,3182,0)="PATCH LIST^F^^0;3^K:$L(X)>200!($L(X)<2) X"
^XMB(3.9,165,2,3183,0)="""^DD"",9.8,9.818,3,3)"
^XMB(3.9,165,2,3184,0)="Answer must be 2-200 characters in length"
^XMB(3.9,165,2,3185,0)="""^DD"",9.8,9.818,3,21,0)"
^XMB(3.9,165,2,3186,0)="^^1^1^3060509^"
^XMB(3.9,165,2,3187,0)="""^DD"",9.8,9.818,3,21,1,0)"
^XMB(3.9,165,2,3188,0)="This field holds the patch list at the time of the patch."
^XMB(3.9,165,2,3189,0)="""^DD"",9.8,9.818,3,""DT"")"
^XMB(3.9,165,2,3190,0)="3060509"
^XMB(3.9,165,2,3191,0)="""^DD"",9.8,9.819,0)"
^XMB(3.9,165,2,3192,0)="DEV PATCH SUB-FIELD^^3^3"
^XMB(3.9,165,2,3193,0)="""^DD"",9.8,9.819,0,""DT"")"
^XMB(3.9,165,2,3194,0)="3060504"
^XMB(3.9,165,2,3195,0)="""^DD"",9.8,9.819,0,""IX"",""B"",9.819,.01)"
^XMB(3.9,165,2,3196,0)=""
^XMB(3.9,165,2,3197,0)="""^DD"",9.8,9.819,0,""NM"",""DEV PATCH"")"
^XMB(3.9,165,2,3198,0)=""
^XMB(3.9,165,2,3199,0)="""^DD"",9.8,9.819,0,""UP"")"
^XMB(3.9,165,2,3200,0)="9.8"
^XMB(3.9,165,2,3201,0)="""^DD"",9.8,9.819,.01,0)"
^XMB(3.9,165,2,3202,0)="Dev Patch^F^^0;1^K:$L(X)>15!($L(X)<2) X"
^XMB(3.9,165,2,3203,0)="""^DD"",9.8,9.819,.01,1,0)"
^XMB(3.9,165,2,3204,0)="^.1"
^XMB(3.9,165,2,3205,0)="""^DD"",9.8,9.819,.01,1,1,0)"
^XMB(3.9,165,2,3206,0)="9.819^B"
^XMB(3.9,165,2,3207,0)="""^DD"",9.8,9.819,.01,1,1,1)"
^XMB(3.9,165,2,3208,0)="S ^DIC(9.8,DA(1),9,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,165,2,3209,0)="""^DD"",9.8,9.819,.01,1,1,2)"
^XMB(3.9,165,2,3210,0)="K ^DIC(9.8,DA(1),9,""B"",$E(X,1,30),DA)"
^XMB(3.9,165,2,3211,0)="""^DD"",9.8,9.819,.01,3)"
^XMB(3.9,165,2,3212,0)="Answer must be 2-15 characters in length."
^XMB(3.9,165,2,3213,0)="""^DD"",9.8,9.819,.01,21,0)"
^XMB(3.9,165,2,3214,0)="^^4^4^3060504^"
^XMB(3.9,165,2,3215,0)="""^DD"",9.8,9.819,.01,21,1,0)"
^XMB(3.9,165,2,3216,0)="This field holds the patch number."
^XMB(3.9,165,2,3217,0)="""^DD"",9.8,9.819,.01,21,2,0)"
^XMB(3.9,165,2,3218,0)="This is were KIDS will put the Checksum for the routine at the time the "
^XMB(3.9,165,2,3219,0)="""^DD"",9.8,9.819,.01,21,3,0)"
^XMB(3.9,165,2,3220,0)="the routine is exported from the account."
^XMB(3.9,165,2,3221,0)="""^DD"",9.8,9.819,.01,21,4,0)"
^XMB(3.9,165,2,3222,0)="The PATCH (#8) field is synced with the FORUM gold account."
^XMB(3.9,165,2,3223,0)="""^DD"",9.8,9.819,.01,""DT"")"
^XMB(3.9,165,2,3224,0)="3060504"
^XMB(3.9,165,2,3225,0)="""^DD"",9.8,9.819,2,0)"
^XMB(3.9,165,2,3226,0)="Dev Checksum^F^^0;2^K:$L(X)>20!($L(X)<2) X"
^XMB(3.9,165,2,3227,0)="""^DD"",9.8,9.819,2,3)"
^XMB(3.9,165,2,3228,0)="Answer must be 2-20 characters in length."
^XMB(3.9,165,2,3229,0)="""^DD"",9.8,9.819,2,21,0)"
^XMB(3.9,165,2,3230,0)="^^1^1^3060504^"
^XMB(3.9,165,2,3231,0)="""^DD"",9.8,9.819,2,21,1,0)"
^XMB(3.9,165,2,3232,0)="This is the Checksum value for the routine at the time of export."
^XMB(3.9,165,2,3233,0)="""^DD"",9.8,9.819,2,""DT"")"
^XMB(3.9,165,2,3234,0)="3060504"
^XMB(3.9,165,2,3235,0)="""^DD"",9.8,9.819,3,0)"
^XMB(3.9,165,2,3236,0)="Dev Patch List^F^^0;3^K:$L(X)>200!($L(X)<2) X"
^XMB(3.9,165,2,3237,0)="""^DD"",9.8,9.819,3,3)"
^XMB(3.9,165,2,3238,0)="Answer must be 2-200 characters in length."
^XMB(3.9,165,2,3239,0)="""^DD"",9.8,9.819,3,21,0)"
^XMB(3.9,165,2,3240,0)="^^2^2^3060504^"
^XMB(3.9,165,2,3241,0)="""^DD"",9.8,9.819,3,21,1,0)"
^XMB(3.9,165,2,3242,0)="This is the patch list at the time the patch was exported from this "
^XMB(3.9,165,2,3243,0)="""^DD"",9.8,9.819,3,21,2,0)"
^XMB(3.9,165,2,3244,0)="account."
^XMB(3.9,165,2,3245,0)="""^DD"",9.8,9.819,3,""DT"")"
^XMB(3.9,165,2,3246,0)="3060504"
^XMB(3.9,165,2,3247,0)="""BLD"",900,6)"
^XMB(3.9,165,2,3248,0)="^347"
^XMB(3.9,165,2,3249,0)="$END KID XU*8.0*393"
^XMB(3.9,165,6,0)="^3.911A^2^2"
^XMB(3.9,165,6,1,0)="POSTMASTER"
^XMB(3.9,165,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,165,6,"B","POSTMASTER",1)=""
^XMB(3.9,165,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,166,0)="XU-8_SEQ-348_PAT-419.KID^.5^3061008.015744^^^^K"
^XMB(3.9,166,.6)="3061008"
^XMB(3.9,166,1,0)="^3.91A^2^2"
^XMB(3.9,166,1,1,0)=".5^0^3061008.015744^^^^^^^3061008.015744"
^XMB(3.9,166,1,2,0)="1^0^3061008.022934^^^^^^^3061008.022934"
^XMB(3.9,166,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,166,1,"C",.5,1)=""
^XMB(3.9,166,1,"C",1,2)=""
^XMB(3.9,166,2,0)="^^4601^4601^3061008"
^XMB(3.9,166,2,1,0)="$TXT Released XU*8*419 SEQ #348"
^XMB(3.9,166,2,2,0)="Extracted from mail message"
^XMB(3.9,166,2,3,0)="$END TXT"
^XMB(3.9,166,2,4,0)="$KID XU*8.0*419"
^XMB(3.9,166,2,5,0)="**INSTALL NAME**"
^XMB(3.9,166,2,6,0)="XU*8.0*419"
^XMB(3.9,166,2,7,0)="""BLD"",943,0)"
^XMB(3.9,166,2,8,0)="XU*8.0*419^KERNEL^0^3060906^y"
^XMB(3.9,166,2,9,0)="""BLD"",943,1,0)"
^XMB(3.9,166,2,10,0)="^^2^2^3060906^^"
^XMB(3.9,166,2,11,0)="""BLD"",943,1,1,0)"
^XMB(3.9,166,2,12,0)="Please refer to the Description in the FORUM Patch Module for details."
^XMB(3.9,166,2,13,0)="""BLD"",943,1,2,0)"
^XMB(3.9,166,2,14,0)="XU*8*419  C&A Remediation by pre-expiring new verify code."
^XMB(3.9,166,2,15,0)="""BLD"",943,4,0)"
^XMB(3.9,166,2,16,0)="^9.64PA^8989.3^2"
^XMB(3.9,166,2,17,0)="""BLD"",943,4,200,0)"
^XMB(3.9,166,2,18,0)="200"
^XMB(3.9,166,2,19,0)="""BLD"",943,4,200,2,0)"
^XMB(3.9,166,2,20,0)="^9.641^200^1"
^XMB(3.9,166,2,21,0)="""BLD"",943,4,200,2,200,0)"
^XMB(3.9,166,2,22,0)="NEW PERSON  (File-top level)"
^XMB(3.9,166,2,23,0)="""BLD"",943,4,200,2,200,1,0)"
^XMB(3.9,166,2,24,0)="^9.6411^11^1"
^XMB(3.9,166,2,25,0)="""BLD"",943,4,200,2,200,1,11,0)"
^XMB(3.9,166,2,26,0)="VERIFY CODE"
^XMB(3.9,166,2,27,0)="""BLD"",943,4,200,222)"
^XMB(3.9,166,2,28,0)="y^n^p^^^^n^^n"
^XMB(3.9,166,2,29,0)="""BLD"",943,4,200,224)"
^XMB(3.9,166,2,30,0)=""
^XMB(3.9,166,2,31,0)="""BLD"",943,4,8989.3,0)"
^XMB(3.9,166,2,32,0)="8989.3"
^XMB(3.9,166,2,33,0)="""BLD"",943,4,8989.3,2,0)"
^XMB(3.9,166,2,34,0)="^9.641^8989.3^1"
^XMB(3.9,166,2,35,0)="""BLD"",943,4,8989.3,2,8989.3,0)"
^XMB(3.9,166,2,36,0)="KERNEL SYSTEM PARAMETERS  (File-top level)"
^XMB(3.9,166,2,37,0)="""BLD"",943,4,8989.3,2,8989.3,1,0)"
^XMB(3.9,166,2,38,0)="^9.6411^11.2^1"
^XMB(3.9,166,2,39,0)="""BLD"",943,4,8989.3,2,8989.3,1,11.2,0)"
^XMB(3.9,166,2,40,0)="AUTO-GENERATE VERIFY CODES"
^XMB(3.9,166,2,41,0)="""BLD"",943,4,8989.3,222)"
^XMB(3.9,166,2,42,0)="y^y^p^^^^n^^n"
^XMB(3.9,166,2,43,0)="""BLD"",943,4,8989.3,224)"
^XMB(3.9,166,2,44,0)=""
^XMB(3.9,166,2,45,0)="""BLD"",943,4,""APDD"",200,200)"
^XMB(3.9,166,2,46,0)=""
^XMB(3.9,166,2,47,0)="""BLD"",943,4,""APDD"",200,200,11)"
^XMB(3.9,166,2,48,0)=""
^XMB(3.9,166,2,49,0)="""BLD"",943,4,""APDD"",8989.3,8989.3)"
^XMB(3.9,166,2,50,0)=""
^XMB(3.9,166,2,51,0)="""BLD"",943,4,""APDD"",8989.3,8989.3,11.2)"
^XMB(3.9,166,2,52,0)=""
^XMB(3.9,166,2,53,0)="""BLD"",943,4,""B"",200,200)"
^XMB(3.9,166,2,54,0)=""
^XMB(3.9,166,2,55,0)="""BLD"",943,4,""B"",8989.3,8989.3)"
^XMB(3.9,166,2,56,0)=""
^XMB(3.9,166,2,57,0)="""BLD"",943,6.3)"
^XMB(3.9,166,2,58,0)="5"
^XMB(3.9,166,2,59,0)="""BLD"",943,""KRN"",0)"
^XMB(3.9,166,2,60,0)="^9.67PA^8989.52^19"
^XMB(3.9,166,2,61,0)="""BLD"",943,""KRN"",.4,0)"
^XMB(3.9,166,2,62,0)=".4"
^XMB(3.9,166,2,63,0)="""BLD"",943,""KRN"",.401,0)"
^XMB(3.9,166,2,64,0)=".401"
^XMB(3.9,166,2,65,0)="""BLD"",943,""KRN"",.402,0)"
^XMB(3.9,166,2,66,0)=".402"
^XMB(3.9,166,2,67,0)="""BLD"",943,""KRN"",.403,0)"
^XMB(3.9,166,2,68,0)=".403"
^XMB(3.9,166,2,69,0)="""BLD"",943,""KRN"",.403,""NM"",0)"
^XMB(3.9,166,2,70,0)="^9.68A^4^4"
^XMB(3.9,166,2,71,0)="""BLD"",943,""KRN"",.403,""NM"",1,0)"
^XMB(3.9,166,2,72,0)="XUEXISTING USER    FILE #200^200^0"
^XMB(3.9,166,2,73,0)="""BLD"",943,""KRN"",.403,""NM"",2,0)"
^XMB(3.9,166,2,74,0)="XUNEW USER    FILE #200^200^0"
^XMB(3.9,166,2,75,0)="""BLD"",943,""KRN"",.403,""NM"",3,0)"
^XMB(3.9,166,2,76,0)="XUREACT USER    FILE #200^200^0"
^XMB(3.9,166,2,77,0)="""BLD"",943,""KRN"",.403,""NM"",4,0)"
^XMB(3.9,166,2,78,0)="XUSITEPARM    FILE #8989.3^8989.3^0"
^XMB(3.9,166,2,79,0)="""BLD"",943,""KRN"",.403,""NM"",""B"",""XUEXISTING USER    FILE #200"",1)"
^XMB(3.9,166,2,80,0)=""
^XMB(3.9,166,2,81,0)="""BLD"",943,""KRN"",.403,""NM"",""B"",""XUNEW USER    FILE #200"",2)"
^XMB(3.9,166,2,82,0)=""
^XMB(3.9,166,2,83,0)="""BLD"",943,""KRN"",.403,""NM"",""B"",""XUREACT USER    FILE #200"",3)"
^XMB(3.9,166,2,84,0)=""
^XMB(3.9,166,2,85,0)="""BLD"",943,""KRN"",.403,""NM"",""B"",""XUSITEPARM    FILE #8989.3"",4)"
^XMB(3.9,166,2,86,0)=""
^XMB(3.9,166,2,87,0)="""BLD"",943,""KRN"",.5,0)"
^XMB(3.9,166,2,88,0)=".5"
^XMB(3.9,166,2,89,0)="""BLD"",943,""KRN"",.84,0)"
^XMB(3.9,166,2,90,0)=".84"
^XMB(3.9,166,2,91,0)="""BLD"",943,""KRN"",.84,""NM"",0)"
^XMB(3.9,166,2,92,0)="^9.68A^2^2"
^XMB(3.9,166,2,93,0)="""BLD"",943,""KRN"",.84,""NM"",1,0)"
^XMB(3.9,166,2,94,0)="30810.21^^0"
^XMB(3.9,166,2,95,0)="""BLD"",943,""KRN"",.84,""NM"",2,0)"
^XMB(3.9,166,2,96,0)="30810.45^^0"
^XMB(3.9,166,2,97,0)="""BLD"",943,""KRN"",.84,""NM"",""B"",30810.21,1)"
^XMB(3.9,166,2,98,0)=""
^XMB(3.9,166,2,99,0)="""BLD"",943,""KRN"",.84,""NM"",""B"",30810.45,2)"
^XMB(3.9,166,2,100,0)=""
^XMB(3.9,166,2,101,0)="""BLD"",943,""KRN"",3.6,0)"
^XMB(3.9,166,2,102,0)="3.6"
^XMB(3.9,166,2,103,0)="""BLD"",943,""KRN"",3.8,0)"
^XMB(3.9,166,2,104,0)="3.8"
^XMB(3.9,166,2,105,0)="""BLD"",943,""KRN"",9.2,0)"
^XMB(3.9,166,2,106,0)="9.2"
^XMB(3.9,166,2,107,0)="""BLD"",943,""KRN"",9.2,""NM"",0)"
^XMB(3.9,166,2,108,0)="^9.68A^1^1"
^XMB(3.9,166,2,109,0)="""BLD"",943,""KRN"",9.2,""NM"",1,0)"
^XMB(3.9,166,2,110,0)="XUSER COMPUTER ACCOUNT^^0"
^XMB(3.9,166,2,111,0)="""BLD"",943,""KRN"",9.2,""NM"",""B"",""XUSER COMPUTER ACCOUNT"",1)"
^XMB(3.9,166,2,112,0)=""
^XMB(3.9,166,2,113,0)="""BLD"",943,""KRN"",9.8,0)"
^XMB(3.9,166,2,114,0)="9.8"
^XMB(3.9,166,2,115,0)="""BLD"",943,""KRN"",9.8,""NM"",0)"
^XMB(3.9,166,2,116,0)="^9.68A^10^10"
^XMB(3.9,166,2,117,0)="""BLD"",943,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,166,2,118,0)="XUSERBLK^^0^B39902231"
^XMB(3.9,166,2,119,0)="""BLD"",943,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,166,2,120,0)="XUS2^^0^B47237337"
^XMB(3.9,166,2,121,0)="""BLD"",943,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,166,2,122,0)="XUSERNEW^^0^B21302863"
^XMB(3.9,166,2,123,0)="""BLD"",943,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,166,2,124,0)="XUS^^0^B30134409"
^XMB(3.9,166,2,125,0)="""BLD"",943,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,166,2,126,0)="XUS3^^0^B18943733"
^XMB(3.9,166,2,127,0)="""BLD"",943,""KRN"",9.8,""NM"",6,0)"
^XMB(3.9,166,2,128,0)="XUS1^^0^B25338963"
^XMB(3.9,166,2,129,0)="""BLD"",943,""KRN"",9.8,""NM"",7,0)"
^XMB(3.9,166,2,130,0)="XUSRB4^^0^B11538181"
^XMB(3.9,166,2,131,0)="""BLD"",943,""KRN"",9.8,""NM"",8,0)"
^XMB(3.9,166,2,132,0)="XUSTZIP^^0^B25405099"
^XMB(3.9,166,2,133,0)="""BLD"",943,""KRN"",9.8,""NM"",9,0)"
^XMB(3.9,166,2,134,0)="ZUONT^^0^B4589154"
^XMB(3.9,166,2,135,0)="""BLD"",943,""KRN"",9.8,""NM"",10,0)"
^XMB(3.9,166,2,136,0)="ZUGTM^^0^B7793985"
^XMB(3.9,166,2,137,0)="""BLD"",943,""KRN"",9.8,""NM"",""B"",""XUS"",4)"
^XMB(3.9,166,2,138,0)=""
^XMB(3.9,166,2,139,0)="""BLD"",943,""KRN"",9.8,""NM"",""B"",""XUS1"",6)"
^XMB(3.9,166,2,140,0)=""
^XMB(3.9,166,2,141,0)="""BLD"",943,""KRN"",9.8,""NM"",""B"",""XUS2"",2)"
^XMB(3.9,166,2,142,0)=""
^XMB(3.9,166,2,143,0)="""BLD"",943,""KRN"",9.8,""NM"",""B"",""XUS3"",5)"
^XMB(3.9,166,2,144,0)=""
^XMB(3.9,166,2,145,0)="""BLD"",943,""KRN"",9.8,""NM"",""B"",""XUSERBLK"",1)"
^XMB(3.9,166,2,146,0)=""
^XMB(3.9,166,2,147,0)="""BLD"",943,""KRN"",9.8,""NM"",""B"",""XUSERNEW"",3)"
^XMB(3.9,166,2,148,0)=""
^XMB(3.9,166,2,149,0)="""BLD"",943,""KRN"",9.8,""NM"",""B"",""XUSRB4"",7)"
^XMB(3.9,166,2,150,0)=""
^XMB(3.9,166,2,151,0)="""BLD"",943,""KRN"",9.8,""NM"",""B"",""XUSTZIP"",8)"
^XMB(3.9,166,2,152,0)=""
^XMB(3.9,166,2,153,0)="""BLD"",943,""KRN"",9.8,""NM"",""B"",""ZUGTM"",10)"
^XMB(3.9,166,2,154,0)=""
^XMB(3.9,166,2,155,0)="""BLD"",943,""KRN"",9.8,""NM"",""B"",""ZUONT"",9)"
^XMB(3.9,166,2,156,0)=""
^XMB(3.9,166,2,157,0)="""BLD"",943,""KRN"",19,0)"
^XMB(3.9,166,2,158,0)="19"
^XMB(3.9,166,2,159,0)="""BLD"",943,""KRN"",19,""NM"",0)"
^XMB(3.9,166,2,160,0)="^9.68A^1^1"
^XMB(3.9,166,2,161,0)="""BLD"",943,""KRN"",19,""NM"",1,0)"
^XMB(3.9,166,2,162,0)="XU NOP MENU^^0"
^XMB(3.9,166,2,163,0)="""BLD"",943,""KRN"",19,""NM"",""B"",""XU NOP MENU"",1)"
^XMB(3.9,166,2,164,0)=""
^XMB(3.9,166,2,165,0)="""BLD"",943,""KRN"",19.1,0)"
^XMB(3.9,166,2,166,0)="19.1"
^XMB(3.9,166,2,167,0)="""BLD"",943,""KRN"",101,0)"
^XMB(3.9,166,2,168,0)="101"
^XMB(3.9,166,2,169,0)="""BLD"",943,""KRN"",409.61,0)"
^XMB(3.9,166,2,170,0)="409.61"
^XMB(3.9,166,2,171,0)="""BLD"",943,""KRN"",771,0)"
^XMB(3.9,166,2,172,0)="771"
^XMB(3.9,166,2,173,0)="""BLD"",943,""KRN"",870,0)"
^XMB(3.9,166,2,174,0)="870"
^XMB(3.9,166,2,175,0)="""BLD"",943,""KRN"",8989.51,0)"
^XMB(3.9,166,2,176,0)="8989.51"
^XMB(3.9,166,2,177,0)="""BLD"",943,""KRN"",8989.52,0)"
^XMB(3.9,166,2,178,0)="8989.52"
^XMB(3.9,166,2,179,0)="""BLD"",943,""KRN"",8994,0)"
^XMB(3.9,166,2,180,0)="8994"
^XMB(3.9,166,2,181,0)="""BLD"",943,""KRN"",""B"",.4,.4)"
^XMB(3.9,166,2,182,0)=""
^XMB(3.9,166,2,183,0)="""BLD"",943,""KRN"",""B"",.401,.401)"
^XMB(3.9,166,2,184,0)=""
^XMB(3.9,166,2,185,0)="""BLD"",943,""KRN"",""B"",.402,.402)"
^XMB(3.9,166,2,186,0)=""
^XMB(3.9,166,2,187,0)="""BLD"",943,""KRN"",""B"",.403,.403)"
^XMB(3.9,166,2,188,0)=""
^XMB(3.9,166,2,189,0)="""BLD"",943,""KRN"",""B"",.5,.5)"
^XMB(3.9,166,2,190,0)=""
^XMB(3.9,166,2,191,0)="""BLD"",943,""KRN"",""B"",.84,.84)"
^XMB(3.9,166,2,192,0)=""
^XMB(3.9,166,2,193,0)="""BLD"",943,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,166,2,194,0)=""
^XMB(3.9,166,2,195,0)="""BLD"",943,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,166,2,196,0)=""
^XMB(3.9,166,2,197,0)="""BLD"",943,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,166,2,198,0)=""
^XMB(3.9,166,2,199,0)="""BLD"",943,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,166,2,200,0)=""
^XMB(3.9,166,2,201,0)="""BLD"",943,""KRN"",""B"",19,19)"
^XMB(3.9,166,2,202,0)=""
^XMB(3.9,166,2,203,0)="""BLD"",943,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,166,2,204,0)=""
^XMB(3.9,166,2,205,0)="""BLD"",943,""KRN"",""B"",101,101)"
^XMB(3.9,166,2,206,0)=""
^XMB(3.9,166,2,207,0)="""BLD"",943,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,166,2,208,0)=""
^XMB(3.9,166,2,209,0)="""BLD"",943,""KRN"",""B"",771,771)"
^XMB(3.9,166,2,210,0)=""
^XMB(3.9,166,2,211,0)="""BLD"",943,""KRN"",""B"",870,870)"
^XMB(3.9,166,2,212,0)=""
^XMB(3.9,166,2,213,0)="""BLD"",943,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,166,2,214,0)=""
^XMB(3.9,166,2,215,0)="""BLD"",943,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,166,2,216,0)=""
^XMB(3.9,166,2,217,0)="""BLD"",943,""KRN"",""B"",8994,8994)"
^XMB(3.9,166,2,218,0)=""
^XMB(3.9,166,2,219,0)="""BLD"",943,""QUES"",0)"
^XMB(3.9,166,2,220,0)="^9.62^^"
^XMB(3.9,166,2,221,0)="""BLD"",943,""REQB"",0)"
^XMB(3.9,166,2,222,0)="^9.611^5^5"
^XMB(3.9,166,2,223,0)="""BLD"",943,""REQB"",1,0)"
^XMB(3.9,166,2,224,0)="XU*8.0*225^2"
^XMB(3.9,166,2,225,0)="""BLD"",943,""REQB"",2,0)"
^XMB(3.9,166,2,226,0)="XU*8.0*275^2"
^XMB(3.9,166,2,227,0)="""BLD"",943,""REQB"",3,0)"
^XMB(3.9,166,2,228,0)="XU*8.0*289^2"
^XMB(3.9,166,2,229,0)="""BLD"",943,""REQB"",4,0)"
^XMB(3.9,166,2,230,0)="XU*8.0*351^2"
^XMB(3.9,166,2,231,0)="""BLD"",943,""REQB"",5,0)"
^XMB(3.9,166,2,232,0)="XU*8.0*395^2"
^XMB(3.9,166,2,233,0)="""BLD"",943,""REQB"",""B"",""XU*8.0*225"",1)"
^XMB(3.9,166,2,234,0)=""
^XMB(3.9,166,2,235,0)="""BLD"",943,""REQB"",""B"",""XU*8.0*275"",2)"
^XMB(3.9,166,2,236,0)=""
^XMB(3.9,166,2,237,0)="""BLD"",943,""REQB"",""B"",""XU*8.0*289"",3)"
^XMB(3.9,166,2,238,0)=""
^XMB(3.9,166,2,239,0)="""BLD"",943,""REQB"",""B"",""XU*8.0*351"",4)"
^XMB(3.9,166,2,240,0)=""
^XMB(3.9,166,2,241,0)="""BLD"",943,""REQB"",""B"",""XU*8.0*395"",5)"
^XMB(3.9,166,2,242,0)=""
^XMB(3.9,166,2,243,0)="""FIA"",200)"
^XMB(3.9,166,2,244,0)="NEW PERSON"
^XMB(3.9,166,2,245,0)="""FIA"",200,0)"
^XMB(3.9,166,2,246,0)="^VA(200,"
^XMB(3.9,166,2,247,0)="""FIA"",200,0,0)"
^XMB(3.9,166,2,248,0)="200I"
^XMB(3.9,166,2,249,0)="""FIA"",200,0,1)"
^XMB(3.9,166,2,250,0)="y^n^p^^^^n^^n"
^XMB(3.9,166,2,251,0)="""FIA"",200,0,10)"
^XMB(3.9,166,2,252,0)=""
^XMB(3.9,166,2,253,0)="""FIA"",200,0,11)"
^XMB(3.9,166,2,254,0)=""
^XMB(3.9,166,2,255,0)="""FIA"",200,0,""RLRO"")"
^XMB(3.9,166,2,256,0)=""
^XMB(3.9,166,2,257,0)="""FIA"",200,0,""VR"")"
^XMB(3.9,166,2,258,0)="8.0^XU"
^XMB(3.9,166,2,259,0)="""FIA"",200,200)"
^XMB(3.9,166,2,260,0)="1"
^XMB(3.9,166,2,261,0)="""FIA"",200,200,11)"
^XMB(3.9,166,2,262,0)=""
^XMB(3.9,166,2,263,0)="""FIA"",8989.3)"
^XMB(3.9,166,2,264,0)="KERNEL SYSTEM PARAMETERS"
^XMB(3.9,166,2,265,0)="""FIA"",8989.3,0)"
^XMB(3.9,166,2,266,0)="^XTV(8989.3,"
^XMB(3.9,166,2,267,0)="""FIA"",8989.3,0,0)"
^XMB(3.9,166,2,268,0)="8989.3P"
^XMB(3.9,166,2,269,0)="""FIA"",8989.3,0,1)"
^XMB(3.9,166,2,270,0)="y^y^p^^^^n^^n"
^XMB(3.9,166,2,271,0)="""FIA"",8989.3,0,10)"
^XMB(3.9,166,2,272,0)=""
^XMB(3.9,166,2,273,0)="""FIA"",8989.3,0,11)"
^XMB(3.9,166,2,274,0)=""
^XMB(3.9,166,2,275,0)="""FIA"",8989.3,0,""RLRO"")"
^XMB(3.9,166,2,276,0)=""
^XMB(3.9,166,2,277,0)="""FIA"",8989.3,0,""VR"")"
^XMB(3.9,166,2,278,0)="8.0^XU"
^XMB(3.9,166,2,279,0)="""FIA"",8989.3,8989.3)"
^XMB(3.9,166,2,280,0)="1"
^XMB(3.9,166,2,281,0)="""FIA"",8989.3,8989.3,11.2)"
^XMB(3.9,166,2,282,0)=""
^XMB(3.9,166,2,283,0)="""KRN"",.403,3,-1)"
^XMB(3.9,166,2,284,0)="0^1"
^XMB(3.9,166,2,285,0)="""KRN"",.403,3,0)"
^XMB(3.9,166,2,286,0)="XUEXISTING USER^^^^2920804^^^200^0^0^1"
^XMB(3.9,166,2,287,0)="""KRN"",.403,3,2)"
^XMB(3.9,166,2,288,0)="1;33"
^XMB(3.9,166,2,289,0)="""KRN"",.403,3,11)"
^XMB(3.9,166,2,290,0)="S XUNOTRIG=1 D CHKPTR^XLFNAME2,REQ^XUSER2()"
^XMB(3.9,166,2,291,0)="""KRN"",.403,3,12)"
^XMB(3.9,166,2,292,0)="K XUNOTRIG,XUITNAME"
^XMB(3.9,166,2,293,0)="""KRN"",.403,3,40,0)"
^XMB(3.9,166,2,294,0)="^.4031I^11^9"
^XMB(3.9,166,2,295,0)="""KRN"",.403,3,40,1,0)"
^XMB(3.9,166,2,296,0)="1^^1,1^2^5"
^XMB(3.9,166,2,297,0)="""KRN"",.403,3,40,1,1)"
^XMB(3.9,166,2,298,0)="Page 1"
^XMB(3.9,166,2,299,0)="""KRN"",.403,3,40,1,40,0)"
^XMB(3.9,166,2,300,0)="^.4032PI^47^2"
^XMB(3.9,166,2,301,0)="""KRN"",.403,3,40,1,40,28,0)"
^XMB(3.9,166,2,302,0)="XUEXISTING USER 1^2^2,1^e"
^XMB(3.9,166,2,303,0)="""KRN"",.403,3,40,1,40,47,0)"
^XMB(3.9,166,2,304,0)="XUEXISTING USER 0^1^1,1^d"
^XMB(3.9,166,2,305,0)="""KRN"",.403,3,40,2,0)"
^XMB(3.9,166,2,306,0)="2^^1,1^3^1"
^XMB(3.9,166,2,307,0)="""KRN"",.403,3,40,2,1)"
^XMB(3.9,166,2,308,0)="Page 2"
^XMB(3.9,166,2,309,0)="""KRN"",.403,3,40,2,15,0)"
^XMB(3.9,166,2,310,0)="^^1^1^2941114^"
^XMB(3.9,166,2,311,0)="""KRN"",.403,3,40,2,15,1,0)"
^XMB(3.9,166,2,312,0)="This is Page 2 of the edit existing user."
^XMB(3.9,166,2,313,0)="""KRN"",.403,3,40,2,40,0)"
^XMB(3.9,166,2,314,0)="^.4032PI^47^2"
^XMB(3.9,166,2,315,0)="""KRN"",.403,3,40,2,40,29,0)"
^XMB(3.9,166,2,316,0)="XUEXISTING USER 2^2^2,1^e"
^XMB(3.9,166,2,317,0)="""KRN"",.403,3,40,2,40,47,0)"
^XMB(3.9,166,2,318,0)="XUEXISTING USER 0^1^1,1^d"
^XMB(3.9,166,2,319,0)="""KRN"",.403,3,40,3,0)"
^XMB(3.9,166,2,320,0)="1.1^^11,9^^^1^17,66^^"
^XMB(3.9,166,2,321,0)="""KRN"",.403,3,40,3,1)"
^XMB(3.9,166,2,322,0)="SECONDARY MENU OPTIONS Subpage"
^XMB(3.9,166,2,323,0)="""KRN"",.403,3,40,3,40,0)"
^XMB(3.9,166,2,324,0)="^.4032PI^30^1"
^XMB(3.9,166,2,325,0)="""KRN"",.403,3,40,3,40,30,0)"
^XMB(3.9,166,2,326,0)="XUEXISTING USER 3^1^2,3^e"
^XMB(3.9,166,2,327,0)="""KRN"",.403,3,40,4,0)"
^XMB(3.9,166,2,328,0)="1.2^^8,16^^^1^13,59^^"
^XMB(3.9,166,2,329,0)="""KRN"",.403,3,40,4,1)"
^XMB(3.9,166,2,330,0)="DIVISION Subpage"
^XMB(3.9,166,2,331,0)="""KRN"",.403,3,40,4,40,0)"
^XMB(3.9,166,2,332,0)="^.4032PI^31^1"
^XMB(3.9,166,2,333,0)="""KRN"",.403,3,40,4,40,31,0)"
^XMB(3.9,166,2,334,0)="XUEXISTING USER 4^1^2,3^e"
^XMB(3.9,166,2,335,0)="""KRN"",.403,3,40,5,0)"
^XMB(3.9,166,2,336,0)="3^^1,1^4^2"
^XMB(3.9,166,2,337,0)="""KRN"",.403,3,40,5,1)"
^XMB(3.9,166,2,338,0)="Page 3"
^XMB(3.9,166,2,339,0)="""KRN"",.403,3,40,5,40,0)"
^XMB(3.9,166,2,340,0)="^.4032PI^63^3"
^XMB(3.9,166,2,341,0)="""KRN"",.403,3,40,5,40,47,0)"
^XMB(3.9,166,2,342,0)="XUEXISTING USER 0^1^1,1^d"
^XMB(3.9,166,2,343,0)="""KRN"",.403,3,40,5,40,50,0)"
^XMB(3.9,166,2,344,0)="XUEXISTING USER 5^2^2,1^e"
^XMB(3.9,166,2,345,0)="""KRN"",.403,3,40,5,40,63,0)"
^XMB(3.9,166,2,346,0)="XU-PERSON CLASS 2^3^12,1^e"
^XMB(3.9,166,2,347,0)="""KRN"",.403,3,40,5,40,63,2)"
^XMB(3.9,166,2,348,0)="6^!IEN^n"
^XMB(3.9,166,2,349,0)="""KRN"",.403,3,40,8,0)"
^XMB(3.9,166,2,350,0)="1.3^^8,12^^^1^17,65"
^XMB(3.9,166,2,351,0)="""KRN"",.403,3,40,8,1)"
^XMB(3.9,166,2,352,0)="Page 1.3^"
^XMB(3.9,166,2,353,0)="""KRN"",.403,3,40,8,11)"
^XMB(3.9,166,2,354,0)=""
^XMB(3.9,166,2,355,0)="""KRN"",.403,3,40,8,12)"
^XMB(3.9,166,2,356,0)="D:XLFNEW'=XLFNAME PUT^DDSVAL(200,XLFNDA,.01,XLFNEW,"""",""I"") K XLFNDA,XLFNAME,XLFNEW"
^XMB(3.9,166,2,357,0)="""KRN"",.403,3,40,8,40,0)"
^XMB(3.9,166,2,358,0)="^.4032IP^157^1"
^XMB(3.9,166,2,359,0)="""KRN"",.403,3,40,8,40,157,0)"
^XMB(3.9,166,2,360,0)="XUEXISTING USER NAME COMPONENT^1^1,1^e"
^XMB(3.9,166,2,361,0)="""KRN"",.403,3,40,8,40,157,1)"
^XMB(3.9,166,2,362,0)="10.1"
^XMB(3.9,166,2,363,0)="""KRN"",.403,3,40,9,0)"
^XMB(3.9,166,2,364,0)="4^^1,1^5^3"
^XMB(3.9,166,2,365,0)="""KRN"",.403,3,40,9,1)"
^XMB(3.9,166,2,366,0)="Page 4"
^XMB(3.9,166,2,367,0)="""KRN"",.403,3,40,9,40,0)"
^XMB(3.9,166,2,368,0)="^.4032IP^172^3"
^XMB(3.9,166,2,369,0)="""KRN"",.403,3,40,9,40,47,0)"
^XMB(3.9,166,2,370,0)="XUEXISTING USER 0^1^1,1^e"
^XMB(3.9,166,2,371,0)="""KRN"",.403,3,40,9,40,171,0)"
^XMB(3.9,166,2,372,0)="XUEXISTING USER CPRS^2^2,1^e"
^XMB(3.9,166,2,373,0)="""KRN"",.403,3,40,9,40,172,0)"
^XMB(3.9,166,2,374,0)="XUEXISTING USER CPRS TAB^3^8,1^e"
^XMB(3.9,166,2,375,0)="""KRN"",.403,3,40,9,40,172,2)"
^XMB(3.9,166,2,376,0)="10^!IEN^n^^^"
^XMB(3.9,166,2,377,0)="""KRN"",.403,3,40,10,0)"
^XMB(3.9,166,2,378,0)="5^^1,1^1^4"
^XMB(3.9,166,2,379,0)="""KRN"",.403,3,40,10,1)"
^XMB(3.9,166,2,380,0)="Page 5"
^XMB(3.9,166,2,381,0)="""KRN"",.403,3,40,10,40,0)"
^XMB(3.9,166,2,382,0)="^.4032IP^185^2"
^XMB(3.9,166,2,383,0)="""KRN"",.403,3,40,10,40,47,0)"
^XMB(3.9,166,2,384,0)="XUEXISTING USER 0^1^1,1^d"
^XMB(3.9,166,2,385,0)="""KRN"",.403,3,40,10,40,185,0)"
^XMB(3.9,166,2,386,0)="XUEXISTING USER TRAINEE^2^2,1^e"
^XMB(3.9,166,2,387,0)="""KRN"",.403,3,40,11,0)"
^XMB(3.9,166,2,388,0)="6^^9,45^^^1^13,80"
^XMB(3.9,166,2,389,0)="""KRN"",.403,3,40,11,1)"
^XMB(3.9,166,2,390,0)="Termination^11,2,1"
^XMB(3.9,166,2,391,0)="""KRN"",.403,3,40,11,40,0)"
^XMB(3.9,166,2,392,0)="^.4032IP^190^1"
^XMB(3.9,166,2,393,0)="""KRN"",.403,3,40,11,40,190,0)"
^XMB(3.9,166,2,394,0)="Termination^1^1,1^e"
^XMB(3.9,166,2,395,0)="""KRN"",.403,12,-1)"
^XMB(3.9,166,2,396,0)="0^4"
^XMB(3.9,166,2,397,0)="""KRN"",.403,12,0)"
^XMB(3.9,166,2,398,0)="XUSITEPARM^^^^2941116^^^8989.3^0^0^1"
^XMB(3.9,166,2,399,0)="""KRN"",.403,12,40,0)"
^XMB(3.9,166,2,400,0)="^.4031I^5^5"
^XMB(3.9,166,2,401,0)="""KRN"",.403,12,40,1,0)"
^XMB(3.9,166,2,402,0)="1^^1,1^2"
^XMB(3.9,166,2,403,0)="""KRN"",.403,12,40,1,1)"
^XMB(3.9,166,2,404,0)="Page 1"
^XMB(3.9,166,2,405,0)="""KRN"",.403,12,40,1,40,0)"
^XMB(3.9,166,2,406,0)="^.4032IP^52^2"
^XMB(3.9,166,2,407,0)="""KRN"",.403,12,40,1,40,51,0)"
^XMB(3.9,166,2,408,0)="XUSITEPARM 0^1^1,1^d"
^XMB(3.9,166,2,409,0)="""KRN"",.403,12,40,1,40,52,0)"
^XMB(3.9,166,2,410,0)="XUSITEPARM 1^2^2,1^e"
^XMB(3.9,166,2,411,0)="""KRN"",.403,12,40,2,0)"
^XMB(3.9,166,2,412,0)="3^^1,1^4^2"
^XMB(3.9,166,2,413,0)="""KRN"",.403,12,40,2,1)"
^XMB(3.9,166,2,414,0)="Page 3"
^XMB(3.9,166,2,415,0)="""KRN"",.403,12,40,2,40,0)"
^XMB(3.9,166,2,416,0)="^.4032IP^53^2"
^XMB(3.9,166,2,417,0)="""KRN"",.403,12,40,2,40,51,0)"
^XMB(3.9,166,2,418,0)="XUSITEPARM 0^1^1,1^d"
^XMB(3.9,166,2,419,0)="""KRN"",.403,12,40,2,40,53,0)"
^XMB(3.9,166,2,420,0)="XUSITEPARM 3^2^4,1^e"
^XMB(3.9,166,2,421,0)="""KRN"",.403,12,40,3,0)"
^XMB(3.9,166,2,422,0)="2^^1,1^3^1"
^XMB(3.9,166,2,423,0)="""KRN"",.403,12,40,3,1)"
^XMB(3.9,166,2,424,0)="Page 2"
^XMB(3.9,166,2,425,0)="""KRN"",.403,12,40,3,40,0)"
^XMB(3.9,166,2,426,0)="^.4032IP^56^4"
^XMB(3.9,166,2,427,0)="""KRN"",.403,12,40,3,40,51,0)"
^XMB(3.9,166,2,428,0)="XUSITEPARM 0^1^1,1^d"
^XMB(3.9,166,2,429,0)="""KRN"",.403,12,40,3,40,54,0)"
^XMB(3.9,166,2,430,0)="XUSITEPARM 2^2^4,1^e"
^XMB(3.9,166,2,431,0)="""KRN"",.403,12,40,3,40,55,0)"
^XMB(3.9,166,2,432,0)="XUSITEPARM 2.1^3^5,12^e"
^XMB(3.9,166,2,433,0)="""KRN"",.403,12,40,3,40,55,2)"
^XMB(3.9,166,2,434,0)="4^^^^"
^XMB(3.9,166,2,435,0)="""KRN"",.403,12,40,3,40,56,0)"
^XMB(3.9,166,2,436,0)="XUSITEPARM 2.2^4^12,12^e"
^XMB(3.9,166,2,437,0)="""KRN"",.403,12,40,3,40,56,2)"
^XMB(3.9,166,2,438,0)="4"
^XMB(3.9,166,2,439,0)="""KRN"",.403,12,40,4,0)"
^XMB(3.9,166,2,440,0)="4^^1,1^5^3"
^XMB(3.9,166,2,441,0)="""KRN"",.403,12,40,4,1)"
^XMB(3.9,166,2,442,0)="Page 4"
^XMB(3.9,166,2,443,0)="""KRN"",.403,12,40,4,40,0)"
^XMB(3.9,166,2,444,0)="^.4032IP^61^6"
^XMB(3.9,166,2,445,0)="""KRN"",.403,12,40,4,40,51,0)"
^XMB(3.9,166,2,446,0)="XUSITEPARM 0^1^1,1^d"
^XMB(3.9,166,2,447,0)="""KRN"",.403,12,40,4,40,57,0)"
^XMB(3.9,166,2,448,0)="XUSITEPARM 4^2^4,1^e"
^XMB(3.9,166,2,449,0)="""KRN"",.403,12,40,4,40,58,0)"
^XMB(3.9,166,2,450,0)="XUSITEPARM 4.1^3^8,4^e"
^XMB(3.9,166,2,451,0)="""KRN"",.403,12,40,4,40,58,2)"
^XMB(3.9,166,2,452,0)="4"
^XMB(3.9,166,2,453,0)="""KRN"",.403,12,40,4,40,59,0)"
^XMB(3.9,166,2,454,0)="XUSITEPARM 4.2^4^8,43^e"
^XMB(3.9,166,2,455,0)="""KRN"",.403,12,40,4,40,59,2)"
^XMB(3.9,166,2,456,0)="4"
^XMB(3.9,166,2,457,0)="""KRN"",.403,12,40,4,40,60,0)"
^XMB(3.9,166,2,458,0)="XUSITEPARM 4.4^6^13,43^e"
^XMB(3.9,166,2,459,0)="""KRN"",.403,12,40,4,40,60,2)"
^XMB(3.9,166,2,460,0)="4"
^XMB(3.9,166,2,461,0)="""KRN"",.403,12,40,4,40,61,0)"
^XMB(3.9,166,2,462,0)="XUSITEPARM 4.3^5^13,4^e"
^XMB(3.9,166,2,463,0)="""KRN"",.403,12,40,4,40,61,2)"
^XMB(3.9,166,2,464,0)="4"
^XMB(3.9,166,2,465,0)="""KRN"",.403,12,40,5,0)"
^XMB(3.9,166,2,466,0)="5^^1,1^1^4"
^XMB(3.9,166,2,467,0)="""KRN"",.403,12,40,5,1)"
^XMB(3.9,166,2,468,0)="Page 5"
^XMB(3.9,166,2,469,0)="""KRN"",.403,12,40,5,40,0)"
^XMB(3.9,166,2,470,0)="^.4032IP^181^2"
^XMB(3.9,166,2,471,0)="""KRN"",.403,12,40,5,40,51,0)"
^XMB(3.9,166,2,472,0)="XUSITEPARM 0^1^1,1^e"
^XMB(3.9,166,2,473,0)="""KRN"",.403,12,40,5,40,181,0)"
^XMB(3.9,166,2,474,0)="XUSITEPARM 5^2^4,1^e"
^XMB(3.9,166,2,475,0)="""KRN"",.403,14,-1)"
^XMB(3.9,166,2,476,0)="0^3"
^XMB(3.9,166,2,477,0)="""KRN"",.403,14,0)"
^XMB(3.9,166,2,478,0)="XUREACT USER^^@^^2950327.1641^^^200^0^0^1"
^XMB(3.9,166,2,479,0)="""KRN"",.403,14,11)"
^XMB(3.9,166,2,480,0)="S XUNOTRIG=1 D CHKPTR^XLFNAME2,REQ^XUSER2()"
^XMB(3.9,166,2,481,0)="""KRN"",.403,14,12)"
^XMB(3.9,166,2,482,0)="K XUNOTRIG,XUITNAME"
^XMB(3.9,166,2,483,0)="""KRN"",.403,14,40,0)"
^XMB(3.9,166,2,484,0)="^.4031I^8^8"
^XMB(3.9,166,2,485,0)="""KRN"",.403,14,40,1,0)"
^XMB(3.9,166,2,486,0)="1^^1,1^2^5"
^XMB(3.9,166,2,487,0)="""KRN"",.403,14,40,1,1)"
^XMB(3.9,166,2,488,0)="Page 1"
^XMB(3.9,166,2,489,0)="""KRN"",.403,14,40,1,11)"
^XMB(3.9,166,2,490,0)="N % S %=$$GET^DDSVAL(200,DA,2) D:%="""" HLP^DDSUTL(""USER has no ACCESS CODE"")"
^XMB(3.9,166,2,491,0)="""KRN"",.403,14,40,1,40,0)"
^XMB(3.9,166,2,492,0)="^.4032IP^47^2"
^XMB(3.9,166,2,493,0)="""KRN"",.403,14,40,1,40,28,0)"
^XMB(3.9,166,2,494,0)="XUEXISTING USER 1^2^2,1^e"
^XMB(3.9,166,2,495,0)="""KRN"",.403,14,40,1,40,28,11)"
^XMB(3.9,166,2,496,0)="D PUT^DDSVAL(DIE,.DA,9.2,""@""),PUT^DDSVAL(DIE,.DA,7,""@"")"
^XMB(3.9,166,2,497,0)="""KRN"",.403,14,40,1,40,47,0)"
^XMB(3.9,166,2,498,0)="XUEXISTING USER 0^1^1,1^e"
^XMB(3.9,166,2,499,0)="""KRN"",.403,14,40,2,0)"
^XMB(3.9,166,2,500,0)="2^^1,1^3^1"
^XMB(3.9,166,2,501,0)="""KRN"",.403,14,40,2,1)"
^XMB(3.9,166,2,502,0)="Page 2"
^XMB(3.9,166,2,503,0)="""KRN"",.403,14,40,2,40,0)"
^XMB(3.9,166,2,504,0)="^.4032IP^47^2"
^XMB(3.9,166,2,505,0)="""KRN"",.403,14,40,2,40,29,0)"
^XMB(3.9,166,2,506,0)="XUEXISTING USER 2^2^2,1^e"
^XMB(3.9,166,2,507,0)="""KRN"",.403,14,40,2,40,47,0)"
^XMB(3.9,166,2,508,0)="XUEXISTING USER 0^1^1,1^e"
^XMB(3.9,166,2,509,0)="""KRN"",.403,14,40,3,0)"
^XMB(3.9,166,2,510,0)="3^^1,1^4^2"
^XMB(3.9,166,2,511,0)="""KRN"",.403,14,40,3,1)"
^XMB(3.9,166,2,512,0)="Page 3"
^XMB(3.9,166,2,513,0)="""KRN"",.403,14,40,3,40,0)"
^XMB(3.9,166,2,514,0)="^.4032IP^63^3"
^XMB(3.9,166,2,515,0)="""KRN"",.403,14,40,3,40,47,0)"
^XMB(3.9,166,2,516,0)="XUEXISTING USER 0^1^1,1^e"
^XMB(3.9,166,2,517,0)="""KRN"",.403,14,40,3,40,50,0)"
^XMB(3.9,166,2,518,0)="XUEXISTING USER 5^2^2,1^e"
^XMB(3.9,166,2,519,0)="""KRN"",.403,14,40,3,40,63,0)"
^XMB(3.9,166,2,520,0)="XU-PERSON CLASS 2^3^13,1^e"
^XMB(3.9,166,2,521,0)="""KRN"",.403,14,40,3,40,63,2)"
^XMB(3.9,166,2,522,0)="4^!IEN^n"
^XMB(3.9,166,2,523,0)="""KRN"",.403,14,40,4,0)"
^XMB(3.9,166,2,524,0)="1.1^^11,9^^^1^17,66"
^XMB(3.9,166,2,525,0)="""KRN"",.403,14,40,4,1)"
^XMB(3.9,166,2,526,0)="Page 1.1"
^XMB(3.9,166,2,527,0)="""KRN"",.403,14,40,4,40,0)"
^XMB(3.9,166,2,528,0)="^.4032IP^30^1"
^XMB(3.9,166,2,529,0)="""KRN"",.403,14,40,4,40,30,0)"
^XMB(3.9,166,2,530,0)="XUEXISTING USER 3^1^2,3^e"
^XMB(3.9,166,2,531,0)="""KRN"",.403,14,40,5,0)"
^XMB(3.9,166,2,532,0)="1.2^^8,16^^^1^13,59"
^XMB(3.9,166,2,533,0)="""KRN"",.403,14,40,5,1)"
^XMB(3.9,166,2,534,0)="Page 1.2"
^XMB(3.9,166,2,535,0)="""KRN"",.403,14,40,5,40,0)"
^XMB(3.9,166,2,536,0)="^.4032IP^31^1"
^XMB(3.9,166,2,537,0)="""KRN"",.403,14,40,5,40,31,0)"
^XMB(3.9,166,2,538,0)="XUEXISTING USER 4^1^2,2^e"
^XMB(3.9,166,2,539,0)="""KRN"",.403,14,40,6,0)"
^XMB(3.9,166,2,540,0)="1.3^^8,12^^^1^17,65"
^XMB(3.9,166,2,541,0)="""KRN"",.403,14,40,6,1)"
^XMB(3.9,166,2,542,0)="Page 1.3"
^XMB(3.9,166,2,543,0)="""KRN"",.403,14,40,6,12)"
^XMB(3.9,166,2,544,0)="D:XLFNEW'=XLFNAME PUT^DDSVAL(200,XLFNDA,.01,XLFNEW,"""",""I"") K XLFNDA,XLFNAME,XLFNEW"
^XMB(3.9,166,2,545,0)="""KRN"",.403,14,40,6,40,0)"
^XMB(3.9,166,2,546,0)="^.4032IP^157^1"
^XMB(3.9,166,2,547,0)="""KRN"",.403,14,40,6,40,157,0)"
^XMB(3.9,166,2,548,0)="XUEXISTING USER NAME COMPONENT^1^1,1^e"
^XMB(3.9,166,2,549,0)="""KRN"",.403,14,40,6,40,157,1)"
^XMB(3.9,166,2,550,0)="10.1"
^XMB(3.9,166,2,551,0)="""KRN"",.403,14,40,7,0)"
^XMB(3.9,166,2,552,0)="4^^1,1^5^3"
^XMB(3.9,166,2,553,0)="""KRN"",.403,14,40,7,1)"
^XMB(3.9,166,2,554,0)="Page 4"
^XMB(3.9,166,2,555,0)="""KRN"",.403,14,40,7,40,0)"
^XMB(3.9,166,2,556,0)="^.4032IP^172^3"
^XMB(3.9,166,2,557,0)="""KRN"",.403,14,40,7,40,47,0)"
^XMB(3.9,166,2,558,0)="XUEXISTING USER 0^1^1,1^d"
^XMB(3.9,166,2,559,0)="""KRN"",.403,14,40,7,40,171,0)"
^XMB(3.9,166,2,560,0)="XUEXISTING USER CPRS^2^2,1^e"
^XMB(3.9,166,2,561,0)="""KRN"",.403,14,40,7,40,172,0)"
^XMB(3.9,166,2,562,0)="XUEXISTING USER CPRS TAB^3^8,1^e"
^XMB(3.9,166,2,563,0)="""KRN"",.403,14,40,7,40,172,2)"
^XMB(3.9,166,2,564,0)="10^!IEN^n"
^XMB(3.9,166,2,565,0)="""KRN"",.403,14,40,8,0)"
^XMB(3.9,166,2,566,0)="5^^1,1^1^4"
^XMB(3.9,166,2,567,0)="""KRN"",.403,14,40,8,1)"
^XMB(3.9,166,2,568,0)="Page 5"
^XMB(3.9,166,2,569,0)="""KRN"",.403,14,40,8,40,0)"
^XMB(3.9,166,2,570,0)="^.4032IP^185^2"
^XMB(3.9,166,2,571,0)="""KRN"",.403,14,40,8,40,47,0)"
^XMB(3.9,166,2,572,0)="XUEXISTING USER 0^1^1,1^e"
^XMB(3.9,166,2,573,0)="""KRN"",.403,14,40,8,40,185,0)"
^XMB(3.9,166,2,574,0)="XUEXISTING USER TRAINEE^2^2,1^e"
^XMB(3.9,166,2,575,0)="""KRN"",.403,16,-1)"
^XMB(3.9,166,2,576,0)="0^2"
^XMB(3.9,166,2,577,0)="""KRN"",.403,16,0)"
^XMB(3.9,166,2,578,0)="XUNEW USER^ ^@^^2960729.0925^^^200^0^0^1"
^XMB(3.9,166,2,579,0)="""KRN"",.403,16,11)"
^XMB(3.9,166,2,580,0)="S (XUNOTRIG,XLFCOMP,XUITNAME)=1 D REQ^XUSER2()"
^XMB(3.9,166,2,581,0)="""KRN"",.403,16,12)"
^XMB(3.9,166,2,582,0)="K XUNOTRIG,XUITNAME"
^XMB(3.9,166,2,583,0)="""KRN"",.403,16,40,0)"
^XMB(3.9,166,2,584,0)="^.4031I^8^8"
^XMB(3.9,166,2,585,0)="""KRN"",.403,16,40,1,0)"
^XMB(3.9,166,2,586,0)="1^^1,1^2^5"
^XMB(3.9,166,2,587,0)="""KRN"",.403,16,40,1,1)"
^XMB(3.9,166,2,588,0)="Page 1"
^XMB(3.9,166,2,589,0)="""KRN"",.403,16,40,1,40,0)"
^XMB(3.9,166,2,590,0)="^.4032IP^47^2"
^XMB(3.9,166,2,591,0)="""KRN"",.403,16,40,1,40,28,0)"
^XMB(3.9,166,2,592,0)="XUEXISTING USER 1^2^2,1^e"
^XMB(3.9,166,2,593,0)="""KRN"",.403,16,40,1,40,47,0)"
^XMB(3.9,166,2,594,0)="XUEXISTING USER 0^1^1,1^e"
^XMB(3.9,166,2,595,0)="""KRN"",.403,16,40,2,0)"
^XMB(3.9,166,2,596,0)="2^^1,1^3^1"
^XMB(3.9,166,2,597,0)="""KRN"",.403,16,40,2,1)"
^XMB(3.9,166,2,598,0)="Page 2"
^XMB(3.9,166,2,599,0)="""KRN"",.403,16,40,2,40,0)"
^XMB(3.9,166,2,600,0)="^.4032IP^47^2"
^XMB(3.9,166,2,601,0)="""KRN"",.403,16,40,2,40,29,0)"
^XMB(3.9,166,2,602,0)="XUEXISTING USER 2^2^2,1^e"
^XMB(3.9,166,2,603,0)="""KRN"",.403,16,40,2,40,47,0)"
^XMB(3.9,166,2,604,0)="XUEXISTING USER 0^1^1,1^e"
^XMB(3.9,166,2,605,0)="""KRN"",.403,16,40,3,0)"
^XMB(3.9,166,2,606,0)="3^^1,1^4^2"
^XMB(3.9,166,2,607,0)="""KRN"",.403,16,40,3,1)"
^XMB(3.9,166,2,608,0)="Page 3"
^XMB(3.9,166,2,609,0)="""KRN"",.403,16,40,3,40,0)"
^XMB(3.9,166,2,610,0)="^.4032IP^64^4"
^XMB(3.9,166,2,611,0)="""KRN"",.403,16,40,3,40,47,0)"
^XMB(3.9,166,2,612,0)="XUEXISTING USER 0^2^1,1^e"
^XMB(3.9,166,2,613,0)="""KRN"",.403,16,40,3,40,50,0)"
^XMB(3.9,166,2,614,0)="XUEXISTING USER 5^3^2,1^e"
^XMB(3.9,166,2,615,0)="""KRN"",.403,16,40,3,40,63,0)"
^XMB(3.9,166,2,616,0)="XU-PERSON CLASS 2^4^13,1^e"
^XMB(3.9,166,2,617,0)="""KRN"",.403,16,40,3,40,63,2)"
^XMB(3.9,166,2,618,0)="4^!IEN^n"
^XMB(3.9,166,2,619,0)="""KRN"",.403,16,40,3,40,64,0)"
^XMB(3.9,166,2,620,0)="XUNEW USER^1^1,1^e"
^XMB(3.9,166,2,621,0)="""KRN"",.403,16,40,4,0)"
^XMB(3.9,166,2,622,0)="1.1^^11,9^^^1^17,66"
^XMB(3.9,166,2,623,0)="""KRN"",.403,16,40,4,1)"
^XMB(3.9,166,2,624,0)="Page 1.1"
^XMB(3.9,166,2,625,0)="""KRN"",.403,16,40,4,40,0)"
^XMB(3.9,166,2,626,0)="^.4032IP^30^1"
^XMB(3.9,166,2,627,0)="""KRN"",.403,16,40,4,40,30,0)"
^XMB(3.9,166,2,628,0)="XUEXISTING USER 3^1^2,3^e"
^XMB(3.9,166,2,629,0)="""KRN"",.403,16,40,5,0)"
^XMB(3.9,166,2,630,0)="1.2^^8,16^^^1^13,59"
^XMB(3.9,166,2,631,0)="""KRN"",.403,16,40,5,1)"
^XMB(3.9,166,2,632,0)="Page 1.2"
^XMB(3.9,166,2,633,0)="""KRN"",.403,16,40,5,40,0)"
^XMB(3.9,166,2,634,0)="^.4032IP^31^1"
^XMB(3.9,166,2,635,0)="""KRN"",.403,16,40,5,40,31,0)"
^XMB(3.9,166,2,636,0)="XUEXISTING USER 4^1^2,3^e"
^XMB(3.9,166,2,637,0)="""KRN"",.403,16,40,6,0)"
^XMB(3.9,166,2,638,0)="1.3^^8,12^^^1^17,65"
^XMB(3.9,166,2,639,0)="""KRN"",.403,16,40,6,1)"
^XMB(3.9,166,2,640,0)="Page 1.3"
^XMB(3.9,166,2,641,0)="""KRN"",.403,16,40,6,12)"
^XMB(3.9,166,2,642,0)="D:XLFNEW'=XLFNAME PUT^DDSVAL(200,XLFNDA,.01,XLFNEW,"""",""I"") K XLFNDA,XLFNAME,XLFNEW"
^XMB(3.9,166,2,643,0)="""KRN"",.403,16,40,6,40,0)"
^XMB(3.9,166,2,644,0)="^.4032IP^157^1"
^XMB(3.9,166,2,645,0)="""KRN"",.403,16,40,6,40,157,0)"
^XMB(3.9,166,2,646,0)="XUEXISTING USER NAME COMPONENT^1^1,1^e"
^XMB(3.9,166,2,647,0)="""KRN"",.403,16,40,6,40,157,1)"
^XMB(3.9,166,2,648,0)="10.1"
^XMB(3.9,166,2,649,0)="""KRN"",.403,16,40,7,0)"
^XMB(3.9,166,2,650,0)="4^^1,1^5^3"
^XMB(3.9,166,2,651,0)="""KRN"",.403,16,40,7,1)"
^XMB(3.9,166,2,652,0)="Page 4"
^XMB(3.9,166,2,653,0)="""KRN"",.403,16,40,7,40,0)"
^XMB(3.9,166,2,654,0)="^.4032IP^172^3"
^XMB(3.9,166,2,655,0)="""KRN"",.403,16,40,7,40,47,0)"
^XMB(3.9,166,2,656,0)="XUEXISTING USER 0^1^1,1^d"
^XMB(3.9,166,2,657,0)="""KRN"",.403,16,40,7,40,171,0)"
^XMB(3.9,166,2,658,0)="XUEXISTING USER CPRS^2^2,1^e"
^XMB(3.9,166,2,659,0)="""KRN"",.403,16,40,7,40,172,0)"
^XMB(3.9,166,2,660,0)="XUEXISTING USER CPRS TAB^3^8,1^e"
^XMB(3.9,166,2,661,0)="""KRN"",.403,16,40,7,40,172,2)"
^XMB(3.9,166,2,662,0)="10^!IEN^n^^^"
^XMB(3.9,166,2,663,0)="""KRN"",.403,16,40,8,0)"
^XMB(3.9,166,2,664,0)="5^^1,1^1^4"
^XMB(3.9,166,2,665,0)="""KRN"",.403,16,40,8,1)"
^XMB(3.9,166,2,666,0)="Page 5"
^XMB(3.9,166,2,667,0)="""KRN"",.403,16,40,8,40,0)"
^XMB(3.9,166,2,668,0)="^.4032IP^185^2"
^XMB(3.9,166,2,669,0)="""KRN"",.403,16,40,8,40,47,0)"
^XMB(3.9,166,2,670,0)="XUEXISTING USER 0^1^1,1^e"
^XMB(3.9,166,2,671,0)="""KRN"",.403,16,40,8,40,185,0)"
^XMB(3.9,166,2,672,0)="XUEXISTING USER TRAINEE^2^2,1^e"
^XMB(3.9,166,2,673,0)="""KRN"",.404,28,0)"
^XMB(3.9,166,2,674,0)="XUEXISTING USER 1^200^^^"
^XMB(3.9,166,2,675,0)="""KRN"",.404,28,40,0)"
^XMB(3.9,166,2,676,0)="^.4044I^21^19"
^XMB(3.9,166,2,677,0)="""KRN"",.404,28,40,1,0)"
^XMB(3.9,166,2,678,0)="2^NAME...^3"
^XMB(3.9,166,2,679,0)="""KRN"",.404,28,40,1,1)"
^XMB(3.9,166,2,680,0)=".01"
^XMB(3.9,166,2,681,0)="""KRN"",.404,28,40,1,2)"
^XMB(3.9,166,2,682,0)="3,12^35^3,4^1"
^XMB(3.9,166,2,683,0)="""KRN"",.404,28,40,1,10)"
^XMB(3.9,166,2,684,0)="S XLFNDA=DA,XLFNAME=X,DDSBR=""GIVEN^^1.3"""
^XMB(3.9,166,2,685,0)="""KRN"",.404,28,40,1,11)"
^XMB(3.9,166,2,686,0)="S XUITNAME=1 D:'$D(XLFCOMP) HLP^DDSUTL("" *** Press <RET> to edit the component parts of this name. ***"") I $D(XLFCOMP) S XLFNDA=DA,XLFNAME=X,DDSBR=""GIVEN^^1.3"" K XLFCOMP"
^XMB(3.9,166,2,687,0)="""KRN"",.404,28,40,1,13)"
^XMB(3.9,166,2,688,0)="S XLFNDA=DA,XLFNAME=X,DDSBR=""GIVEN^^1.3"",XLFNCHG=1"
^XMB(3.9,166,2,689,0)="""KRN"",.404,28,40,2,0)"
^XMB(3.9,166,2,690,0)="4^TITLE^3^^F4"
^XMB(3.9,166,2,691,0)="""KRN"",.404,28,40,2,1)"
^XMB(3.9,166,2,692,0)="8"
^XMB(3.9,166,2,693,0)="""KRN"",.404,28,40,2,2)"
^XMB(3.9,166,2,694,0)="4,12^30^4,5"
^XMB(3.9,166,2,695,0)="""KRN"",.404,28,40,3,0)"
^XMB(3.9,166,2,696,0)="3^INITIAL^3"
^XMB(3.9,166,2,697,0)="""KRN"",.404,28,40,3,1)"
^XMB(3.9,166,2,698,0)="1"
^XMB(3.9,166,2,699,0)="""KRN"",.404,28,40,3,2)"
^XMB(3.9,166,2,700,0)="3,65^5^3,56"
^XMB(3.9,166,2,701,0)="""KRN"",.404,28,40,4,0)"
^XMB(3.9,166,2,702,0)="5^NICK NAME^3"
^XMB(3.9,166,2,703,0)="""KRN"",.404,28,40,4,1)"
^XMB(3.9,166,2,704,0)="13"
^XMB(3.9,166,2,705,0)="""KRN"",.404,28,40,4,2)"
^XMB(3.9,166,2,706,0)="4,65^10^4,54"
^XMB(3.9,166,2,707,0)="""KRN"",.404,28,40,5,0)"
^XMB(3.9,166,2,708,0)="13^PRIMARY MENU OPTION^3^"
^XMB(3.9,166,2,709,0)="""KRN"",.404,28,40,5,1)"
^XMB(3.9,166,2,710,0)="201"
^XMB(3.9,166,2,711,0)="""KRN"",.404,28,40,5,2)"
^XMB(3.9,166,2,712,0)="10,33^30^10,12"
^XMB(3.9,166,2,713,0)="""KRN"",.404,28,40,6,0)"
^XMB(3.9,166,2,714,0)="14^Select SECONDARY MENU OPTIONS^3"
^XMB(3.9,166,2,715,0)="""KRN"",.404,28,40,6,1)"
^XMB(3.9,166,2,716,0)="203"
^XMB(3.9,166,2,717,0)="""KRN"",.404,28,40,6,2)"
^XMB(3.9,166,2,718,0)="11,33^30^11,2"
^XMB(3.9,166,2,719,0)="""KRN"",.404,28,40,6,7)"
^XMB(3.9,166,2,720,0)="^1.1"
^XMB(3.9,166,2,721,0)="""KRN"",.404,28,40,7,0)"
^XMB(3.9,166,2,722,0)="15^Want to edit ACCESS CODE (Y/N)^3"
^XMB(3.9,166,2,723,0)="""KRN"",.404,28,40,7,1)"
^XMB(3.9,166,2,724,0)="2.1"
^XMB(3.9,166,2,725,0)="""KRN"",.404,28,40,7,2)"
^XMB(3.9,166,2,726,0)="12,33^3^12,1"
^XMB(3.9,166,2,727,0)="""KRN"",.404,28,40,8,0)"
^XMB(3.9,166,2,728,0)="17^Want to edit VERIFY CODE (Y/N)^3"
^XMB(3.9,166,2,729,0)="""KRN"",.404,28,40,8,1)"
^XMB(3.9,166,2,730,0)="11.1"
^XMB(3.9,166,2,731,0)="""KRN"",.404,28,40,8,2)"
^XMB(3.9,166,2,732,0)="13,33^3^13,1"
^XMB(3.9,166,2,733,0)="""KRN"",.404,28,40,8,11)"
^XMB(3.9,166,2,734,0)="I $L($$GET^DDSVAL(200,.DA,11,,""I"")) D EN^DDIOL(""For the user to sign-on they must have a Verify Code."")"
^XMB(3.9,166,2,735,0)="""KRN"",.404,28,40,9,0)"
^XMB(3.9,166,2,736,0)="16^FILE MANAGER ACCESS CODE^3"
^XMB(3.9,166,2,737,0)="""KRN"",.404,28,40,9,1)"
^XMB(3.9,166,2,738,0)="3"
^XMB(3.9,166,2,739,0)="""KRN"",.404,28,40,9,2)"
^XMB(3.9,166,2,740,0)="12,65^15^12,39"
^XMB(3.9,166,2,741,0)="""KRN"",.404,28,40,12,0)"
^XMB(3.9,166,2,742,0)="18^Select DIVISION^3"
^XMB(3.9,166,2,743,0)="""KRN"",.404,28,40,12,1)"
^XMB(3.9,166,2,744,0)="16"
^XMB(3.9,166,2,745,0)="""KRN"",.404,28,40,12,2)"
^XMB(3.9,166,2,746,0)="15,33^30^15,16"
^XMB(3.9,166,2,747,0)="""KRN"",.404,28,40,12,7)"
^XMB(3.9,166,2,748,0)="^1.2"
^XMB(3.9,166,2,749,0)="""KRN"",.404,28,40,13,0)"
^XMB(3.9,166,2,750,0)="19^SERVICE/SECTION^3^^"
^XMB(3.9,166,2,751,0)="""KRN"",.404,28,40,13,1)"
^XMB(3.9,166,2,752,0)="29"
^XMB(3.9,166,2,753,0)="""KRN"",.404,28,40,13,2)"
^XMB(3.9,166,2,754,0)="16,33^30^16,16"
^XMB(3.9,166,2,755,0)="""KRN"",.404,28,40,14,0)"
^XMB(3.9,166,2,756,0)="9^MAIL CODE^3"
^XMB(3.9,166,2,757,0)="""KRN"",.404,28,40,14,1)"
^XMB(3.9,166,2,758,0)="28"
^XMB(3.9,166,2,759,0)="""KRN"",.404,28,40,14,2)"
^XMB(3.9,166,2,760,0)="6,65^10^6,54"
^XMB(3.9,166,2,761,0)="""KRN"",.404,28,40,15,0)"
^XMB(3.9,166,2,762,0)="1^1^1^"
^XMB(3.9,166,2,763,0)="""KRN"",.404,28,40,15,2)"
^XMB(3.9,166,2,764,0)="^^1,74"
^XMB(3.9,166,2,765,0)="""KRN"",.404,28,40,16,0)"
^XMB(3.9,166,2,766,0)="6^SSN^3^^F1"
^XMB(3.9,166,2,767,0)="""KRN"",.404,28,40,16,1)"
^XMB(3.9,166,2,768,0)="9"
^XMB(3.9,166,2,769,0)="""KRN"",.404,28,40,16,2)"
^XMB(3.9,166,2,770,0)="5,12^9^5,7"
^XMB(3.9,166,2,771,0)="""KRN"",.404,28,40,17,0)"
^XMB(3.9,166,2,772,0)="8^DEGREE^3^^F8"
^XMB(3.9,166,2,773,0)="""KRN"",.404,28,40,17,1)"
^XMB(3.9,166,2,774,0)="10.6"
^XMB(3.9,166,2,775,0)="""KRN"",.404,28,40,17,2)"
^XMB(3.9,166,2,776,0)="6,12^10^6,4"
^XMB(3.9,166,2,777,0)="""KRN"",.404,28,40,18,0)"
^XMB(3.9,166,2,778,0)="10^DISUSER^3"
^XMB(3.9,166,2,779,0)="""KRN"",.404,28,40,18,1)"
^XMB(3.9,166,2,780,0)="7"
^XMB(3.9,166,2,781,0)="""KRN"",.404,28,40,18,2)"
^XMB(3.9,166,2,782,0)="7,12^3^7,3"
^XMB(3.9,166,2,783,0)="""KRN"",.404,28,40,19,0)"
^XMB(3.9,166,2,784,0)="11^TERMINATION DATE^3"
^XMB(3.9,166,2,785,0)="""KRN"",.404,28,40,19,1)"
^XMB(3.9,166,2,786,0)="9.2"
^XMB(3.9,166,2,787,0)="""KRN"",.404,28,40,19,2)"
^XMB(3.9,166,2,788,0)="7,66^11^7,48"
^XMB(3.9,166,2,789,0)="""KRN"",.404,28,40,20,0)"
^XMB(3.9,166,2,790,0)="12^Termination Reason^3"
^XMB(3.9,166,2,791,0)="""KRN"",.404,28,40,20,1)"
^XMB(3.9,166,2,792,0)="9.4"
^XMB(3.9,166,2,793,0)="""KRN"",.404,28,40,20,2)"
^XMB(3.9,166,2,794,0)="8,23^45^8,3"
^XMB(3.9,166,2,795,0)="""KRN"",.404,28,40,21,0)"
^XMB(3.9,166,2,796,0)="7^DOB^3^^F2"
^XMB(3.9,166,2,797,0)="""KRN"",.404,28,40,21,1)"
^XMB(3.9,166,2,798,0)="5"
^XMB(3.9,166,2,799,0)="""KRN"",.404,28,40,21,2)"
^XMB(3.9,166,2,800,0)="5,65^11^5,60"
^XMB(3.9,166,2,801,0)="""KRN"",.404,29,0)"
^XMB(3.9,166,2,802,0)="XUEXISTING USER 2^200^^^"
^XMB(3.9,166,2,803,0)="""KRN"",.404,29,40,0)"
^XMB(3.9,166,2,804,0)="^.4044I^18^15"
^XMB(3.9,166,2,805,0)="""KRN"",.404,29,40,1,0)"
^XMB(3.9,166,2,806,0)="2^TIMED READ (# OF SECONDS)^3"
^XMB(3.9,166,2,807,0)="""KRN"",.404,29,40,1,1)"
^XMB(3.9,166,2,808,0)="200.1"
^XMB(3.9,166,2,809,0)="""KRN"",.404,29,40,1,2)"
^XMB(3.9,166,2,810,0)="4,31^5^4,4"
^XMB(3.9,166,2,811,0)="""KRN"",.404,29,40,2,0)"
^XMB(3.9,166,2,812,0)="3^MULTIPLE SIGN-ON^3"
^XMB(3.9,166,2,813,0)="""KRN"",.404,29,40,2,1)"
^XMB(3.9,166,2,814,0)="200.04"
^XMB(3.9,166,2,815,0)="""KRN"",.404,29,40,2,2)"
^XMB(3.9,166,2,816,0)="6,31^11^6,13"
^XMB(3.9,166,2,817,0)="""KRN"",.404,29,40,2,11)"
^XMB(3.9,166,2,818,0)="D EN^DDIOL(""If you select 'Only one IP' be sure to put a value into the MULTIPLE SIGN-ON LIMIT field so users can sign-on at least once."")"
^XMB(3.9,166,2,819,0)="""KRN"",.404,29,40,3,0)"
^XMB(3.9,166,2,820,0)="5.2^AUTO MENU^3"
^XMB(3.9,166,2,821,0)="""KRN"",.404,29,40,3,1)"
^XMB(3.9,166,2,822,0)="200.06"
^XMB(3.9,166,2,823,0)="""KRN"",.404,29,40,3,2)"
^XMB(3.9,166,2,824,0)="7,60^20^7,49"
^XMB(3.9,166,2,825,0)="""KRN"",.404,29,40,4,0)"
^XMB(3.9,166,2,826,0)="5^ASK DEVICE TYPE AT SIGN-ON^3"
^XMB(3.9,166,2,827,0)="""KRN"",.404,29,40,4,1)"
^XMB(3.9,166,2,828,0)="200.05"
^XMB(3.9,166,2,829,0)="""KRN"",.404,29,40,4,2)"
^XMB(3.9,166,2,830,0)="7,31^9^7,3"
^XMB(3.9,166,2,831,0)="""KRN"",.404,29,40,5,0)"
^XMB(3.9,166,2,832,0)="6^TYPE-AHEAD^3"
^XMB(3.9,166,2,833,0)="""KRN"",.404,29,40,5,1)"
^XMB(3.9,166,2,834,0)="200.09"
^XMB(3.9,166,2,835,0)="""KRN"",.404,29,40,5,2)"
^XMB(3.9,166,2,836,0)="8,60^11^8,48"
^XMB(3.9,166,2,837,0)="""KRN"",.404,29,40,6,0)"
^XMB(3.9,166,2,838,0)="7^PROHIBITED TIMES FOR SIGN-ON^3"
^XMB(3.9,166,2,839,0)="""KRN"",.404,29,40,6,1)"
^XMB(3.9,166,2,840,0)="15"
^XMB(3.9,166,2,841,0)="""KRN"",.404,29,40,6,2)"
^XMB(3.9,166,2,842,0)="8,31^9^8,1"
^XMB(3.9,166,2,843,0)="""KRN"",.404,29,40,7,0)"
^XMB(3.9,166,2,844,0)="10^ALLOWED TO USE SPOOLER^3"
^XMB(3.9,166,2,845,0)="""KRN"",.404,29,40,7,1)"
^XMB(3.9,166,2,846,0)="41"
^XMB(3.9,166,2,847,0)="""KRN"",.404,29,40,7,2)"
^XMB(3.9,166,2,848,0)="12,31^3^12,7"
^XMB(3.9,166,2,849,0)="""KRN"",.404,29,40,8,0)"
^XMB(3.9,166,2,850,0)="12^CAN MAKE INTO A MAIL MESSAGE^3"
^XMB(3.9,166,2,851,0)="""KRN"",.404,29,40,8,1)"
^XMB(3.9,166,2,852,0)="41.2"
^XMB(3.9,166,2,853,0)="""KRN"",.404,29,40,8,2)"
^XMB(3.9,166,2,854,0)="13,31^3^13,1"
^XMB(3.9,166,2,855,0)="""KRN"",.404,29,40,10,0)"
^XMB(3.9,166,2,856,0)="13^FILE RANGE^3"
^XMB(3.9,166,2,857,0)="""KRN"",.404,29,40,10,1)"
^XMB(3.9,166,2,858,0)="31.1"
^XMB(3.9,166,2,859,0)="""KRN"",.404,29,40,10,2)"
^XMB(3.9,166,2,860,0)="15,31^30^15,19"
^XMB(3.9,166,2,861,0)="""KRN"",.404,29,40,12,0)"
^XMB(3.9,166,2,862,0)="14^ALWAYS SHOW SECONDARIES^3"
^XMB(3.9,166,2,863,0)="""KRN"",.404,29,40,12,1)"
^XMB(3.9,166,2,864,0)="200.11"
^XMB(3.9,166,2,865,0)="""KRN"",.404,29,40,12,2)"
^XMB(3.9,166,2,866,0)="16,31^3^16,6"
^XMB(3.9,166,2,867,0)="""KRN"",.404,29,40,13,0)"
^XMB(3.9,166,2,868,0)="1^2^1^"
^XMB(3.9,166,2,869,0)="""KRN"",.404,29,40,13,2)"
^XMB(3.9,166,2,870,0)="^^1,74^1"
^XMB(3.9,166,2,871,0)="""KRN"",.404,29,40,14,0)"
^XMB(3.9,166,2,872,0)="11^PAC^3"
^XMB(3.9,166,2,873,0)="""KRN"",.404,29,40,14,1)"
^XMB(3.9,166,2,874,0)="14"
^XMB(3.9,166,2,875,0)="""KRN"",.404,29,40,14,2)"
^XMB(3.9,166,2,876,0)="12,63^8^12,58"
^XMB(3.9,166,2,877,0)="""KRN"",.404,29,40,16,0)"
^XMB(3.9,166,2,878,0)="8^AUTO SIGN-ON^3"
^XMB(3.9,166,2,879,0)="""KRN"",.404,29,40,16,1)"
^XMB(3.9,166,2,880,0)="200.18"
^XMB(3.9,166,2,881,0)="""KRN"",.404,29,40,16,2)"
^XMB(3.9,166,2,882,0)="9,60^3^9,46"
^XMB(3.9,166,2,883,0)="""KRN"",.404,29,40,17,0)"
^XMB(3.9,166,2,884,0)="9^Preferred Editor^3"
^XMB(3.9,166,2,885,0)="""KRN"",.404,29,40,17,1)"
^XMB(3.9,166,2,886,0)="31.3"
^XMB(3.9,166,2,887,0)="""KRN"",.404,29,40,17,2)"
^XMB(3.9,166,2,888,0)="10,31^30^10,13"
^XMB(3.9,166,2,889,0)="""KRN"",.404,29,40,17,3)"
^XMB(3.9,166,2,890,0)="SCREEN EDITOR"
^XMB(3.9,166,2,891,0)="""KRN"",.404,29,40,18,0)"
^XMB(3.9,166,2,892,0)="3.2^MULTIPLE SIGN-ON LIMIT^3"
^XMB(3.9,166,2,893,0)="""KRN"",.404,29,40,18,1)"
^XMB(3.9,166,2,894,0)="200.19"
^XMB(3.9,166,2,895,0)="""KRN"",.404,29,40,18,2)"
^XMB(3.9,166,2,896,0)="6,70^3^6,46"
^XMB(3.9,166,2,897,0)="""KRN"",.404,30,0)"
^XMB(3.9,166,2,898,0)="XUEXISTING USER 3^200.03"
^XMB(3.9,166,2,899,0)="""KRN"",.404,30,40,0)"
^XMB(3.9,166,2,900,0)="^.4044I^3^3"
^XMB(3.9,166,2,901,0)="""KRN"",.404,30,40,1,0)"
^XMB(3.9,166,2,902,0)="1^SECONDARY MENU OPTIONS^1^"
^XMB(3.9,166,2,903,0)="""KRN"",.404,30,40,1,2)"
^XMB(3.9,166,2,904,0)="^^1,33^"
^XMB(3.9,166,2,905,0)="""KRN"",.404,30,40,2,0)"
^XMB(3.9,166,2,906,0)="2^SECONDARY MENU OPTIONS^3"
^XMB(3.9,166,2,907,0)="""KRN"",.404,30,40,2,1)"
^XMB(3.9,166,2,908,0)=".01"
^XMB(3.9,166,2,909,0)="""KRN"",.404,30,40,2,2)"
^XMB(3.9,166,2,910,0)="3,25^30^3,1"
^XMB(3.9,166,2,911,0)="""KRN"",.404,30,40,3,0)"
^XMB(3.9,166,2,912,0)="3^SYNONYM^3"
^XMB(3.9,166,2,913,0)="""KRN"",.404,30,40,3,1)"
^XMB(3.9,166,2,914,0)="2"
^XMB(3.9,166,2,915,0)="""KRN"",.404,30,40,3,2)"
^XMB(3.9,166,2,916,0)="4,25^4^4,16"
^XMB(3.9,166,2,917,0)="""KRN"",.404,31,0)"
^XMB(3.9,166,2,918,0)="XUEXISTING USER 4^200.02"
^XMB(3.9,166,2,919,0)="""KRN"",.404,31,40,0)"
^XMB(3.9,166,2,920,0)="^.4044I^3^3"
^XMB(3.9,166,2,921,0)="""KRN"",.404,31,40,1,0)"
^XMB(3.9,166,2,922,0)="1^DIVISION^1^"
^XMB(3.9,166,2,923,0)="""KRN"",.404,31,40,1,2)"
^XMB(3.9,166,2,924,0)="^^1,33^"
^XMB(3.9,166,2,925,0)="""KRN"",.404,31,40,2,0)"
^XMB(3.9,166,2,926,0)="2^DIVISION^3"
^XMB(3.9,166,2,927,0)="""KRN"",.404,31,40,2,1)"
^XMB(3.9,166,2,928,0)=".01"
^XMB(3.9,166,2,929,0)="""KRN"",.404,31,40,2,2)"
^XMB(3.9,166,2,930,0)="3,11^30^3,1"
^XMB(3.9,166,2,931,0)="""KRN"",.404,31,40,3,0)"
^XMB(3.9,166,2,932,0)="3^DEFAULT^3"
^XMB(3.9,166,2,933,0)="""KRN"",.404,31,40,3,1)"
^XMB(3.9,166,2,934,0)="1"
^XMB(3.9,166,2,935,0)="""KRN"",.404,31,40,3,2)"
^XMB(3.9,166,2,936,0)="4,11^3^4,2"
^XMB(3.9,166,2,937,0)="""KRN"",.404,47,0)"
^XMB(3.9,166,2,938,0)="XUEXISTING USER 0^200^"
^XMB(3.9,166,2,939,0)="""KRN"",.404,47,40,0)"
^XMB(3.9,166,2,940,0)="^.4044I^6^5"
^XMB(3.9,166,2,941,0)="""KRN"",.404,47,40,1,0)"
^XMB(3.9,166,2,942,0)="2^NAME^3"
^XMB(3.9,166,2,943,0)="""KRN"",.404,47,40,1,1)"
^XMB(3.9,166,2,944,0)=".01"
^XMB(3.9,166,2,945,0)="""KRN"",.404,47,40,1,2)"
^XMB(3.9,166,2,946,0)="2,7^30^2,1"
^XMB(3.9,166,2,947,0)="""KRN"",.404,47,40,1,4)"
^XMB(3.9,166,2,948,0)="^^^1"
^XMB(3.9,166,2,949,0)="""KRN"",.404,47,40,2,0)"
^XMB(3.9,166,2,950,0)="1^Edit an Existing User^1^"
^XMB(3.9,166,2,951,0)="""KRN"",.404,47,40,2,2)"
^XMB(3.9,166,2,952,0)="^^1,30^1"
^XMB(3.9,166,2,953,0)="""KRN"",.404,47,40,3,0)"
^XMB(3.9,166,2,954,0)="3^Page^1^"
^XMB(3.9,166,2,955,0)="""KRN"",.404,47,40,3,2)"
^XMB(3.9,166,2,956,0)="^^2,69"
^XMB(3.9,166,2,957,0)="""KRN"",.404,47,40,5,0)"
^XMB(3.9,166,2,958,0)="4^of 5^1^"
^XMB(3.9,166,2,959,0)="""KRN"",.404,47,40,5,2)"
^XMB(3.9,166,2,960,0)="^^2,76"
^XMB(3.9,166,2,961,0)="""KRN"",.404,47,40,6,0)"
^XMB(3.9,166,2,962,0)="5^_______________________________________________________________________________^1"
^XMB(3.9,166,2,963,0)="""KRN"",.404,47,40,6,2)"
^XMB(3.9,166,2,964,0)="^^3,1"
^XMB(3.9,166,2,965,0)="""KRN"",.404,50,0)"
^XMB(3.9,166,2,966,0)="XUEXISTING USER 5^200"
^XMB(3.9,166,2,967,0)="""KRN"",.404,50,40,0)"
^XMB(3.9,166,2,968,0)="^.4044I^10^10"
^XMB(3.9,166,2,969,0)="""KRN"",.404,50,40,1,0)"
^XMB(3.9,166,2,970,0)="1^3^1^"
^XMB(3.9,166,2,971,0)="""KRN"",.404,50,40,1,2)"
^XMB(3.9,166,2,972,0)="^^1,74^"
^XMB(3.9,166,2,973,0)="""KRN"",.404,50,40,2,0)"
^XMB(3.9,166,2,974,0)="2^PROHIBITED TIMES FOR SIGN-ON^3"
^XMB(3.9,166,2,975,0)="""KRN"",.404,50,40,2,1)"
^XMB(3.9,166,2,976,0)="15"
^XMB(3.9,166,2,977,0)="""KRN"",.404,50,40,2,2)"
^XMB(3.9,166,2,978,0)="3,31^21^3,1"
^XMB(3.9,166,2,979,0)="""KRN"",.404,50,40,3,0)"
^XMB(3.9,166,2,980,0)="3^PHONE^3"
^XMB(3.9,166,2,981,0)="""KRN"",.404,50,40,3,1)"
^XMB(3.9,166,2,982,0)=".131"
^XMB(3.9,166,2,983,0)="""KRN"",.404,50,40,3,2)"
^XMB(3.9,166,2,984,0)="5,19^20^5,12"
^XMB(3.9,166,2,985,0)="""KRN"",.404,50,40,4,0)"
^XMB(3.9,166,2,986,0)="4^OFFICE PHONE^3"
^XMB(3.9,166,2,987,0)="""KRN"",.404,50,40,4,1)"
^XMB(3.9,166,2,988,0)=".132"
^XMB(3.9,166,2,989,0)="""KRN"",.404,50,40,4,2)"
^XMB(3.9,166,2,990,0)="5,56^20^5,42"
^XMB(3.9,166,2,991,0)="""KRN"",.404,50,40,5,0)"
^XMB(3.9,166,2,992,0)="7^VOICE PAGER^3"
^XMB(3.9,166,2,993,0)="""KRN"",.404,50,40,5,1)"
^XMB(3.9,166,2,994,0)=".137"
^XMB(3.9,166,2,995,0)="""KRN"",.404,50,40,5,2)"
^XMB(3.9,166,2,996,0)="7,19^20^7,6"
^XMB(3.9,166,2,997,0)="""KRN"",.404,50,40,6,0)"
^XMB(3.9,166,2,998,0)="6^FAX NUMBER^3"
^XMB(3.9,166,2,999,0)="""KRN"",.404,50,40,6,1)"
^XMB(3.9,166,2,1000,0)=".136"
^XMB(3.9,166,2,1001,0)="""KRN"",.404,50,40,6,2)"
^XMB(3.9,166,2,1002,0)="6,56^20^6,44"
^XMB(3.9,166,2,1003,0)="""KRN"",.404,50,40,7,0)"
^XMB(3.9,166,2,1004,0)="5^COMMERCIAL PHONE^3"
^XMB(3.9,166,2,1005,0)="""KRN"",.404,50,40,7,1)"
^XMB(3.9,166,2,1006,0)=".135"
^XMB(3.9,166,2,1007,0)="""KRN"",.404,50,40,7,2)"
^XMB(3.9,166,2,1008,0)="6,19^20^6,1"
^XMB(3.9,166,2,1009,0)="""KRN"",.404,50,40,8,0)"
^XMB(3.9,166,2,1010,0)="8^DIGITAL PAGER^3"
^XMB(3.9,166,2,1011,0)="""KRN"",.404,50,40,8,1)"
^XMB(3.9,166,2,1012,0)=".138"
^XMB(3.9,166,2,1013,0)="""KRN"",.404,50,40,8,2)"
^XMB(3.9,166,2,1014,0)="7,56^20^7,41"
^XMB(3.9,166,2,1015,0)="""KRN"",.404,50,40,9,0)"
^XMB(3.9,166,2,1016,0)="9^LANGUAGE^3"
^XMB(3.9,166,2,1017,0)="""KRN"",.404,50,40,9,1)"
^XMB(3.9,166,2,1018,0)="200.07"
^XMB(3.9,166,2,1019,0)="""KRN"",.404,50,40,9,2)"
^XMB(3.9,166,2,1020,0)="8,19^10^8,9"
^XMB(3.9,166,2,1021,0)="""KRN"",.404,50,40,10,0)"
^XMB(3.9,166,2,1022,0)="10^Person Class                                         Effective     Expired^1"
^XMB(3.9,166,2,1023,0)="""KRN"",.404,50,40,10,2)"
^XMB(3.9,166,2,1024,0)="^^10,2"
^XMB(3.9,166,2,1025,0)="""KRN"",.404,51,0)"
^XMB(3.9,166,2,1026,0)="XUSITEPARM 0^8989.3^"
^XMB(3.9,166,2,1027,0)="""KRN"",.404,51,40,0)"
^XMB(3.9,166,2,1028,0)="^.4044I^3^2"
^XMB(3.9,166,2,1029,0)="""KRN"",.404,51,40,2,0)"
^XMB(3.9,166,2,1030,0)="2^Kernel Site Parameter edit^1"
^XMB(3.9,166,2,1031,0)="""KRN"",.404,51,40,2,2)"
^XMB(3.9,166,2,1032,0)="^^1,24^1"
^XMB(3.9,166,2,1033,0)="""KRN"",.404,51,40,3,0)"
^XMB(3.9,166,2,1034,0)="1^DOMAIN^3"
^XMB(3.9,166,2,1035,0)="""KRN"",.404,51,40,3,1)"
^XMB(3.9,166,2,1036,0)=".01"
^XMB(3.9,166,2,1037,0)="""KRN"",.404,51,40,3,2)"
^XMB(3.9,166,2,1038,0)="2,20^42^2,13"
^XMB(3.9,166,2,1039,0)="""KRN"",.404,52,0)"
^XMB(3.9,166,2,1040,0)="XUSITEPARM 1^8989.3"
^XMB(3.9,166,2,1041,0)="""KRN"",.404,52,40,0)"
^XMB(3.9,166,2,1042,0)="^.4044I^20^18"
^XMB(3.9,166,2,1043,0)="""KRN"",.404,52,40,1,0)"
^XMB(3.9,166,2,1044,0)="1^DEFAULT # OF ATTEMPTS^3"
^XMB(3.9,166,2,1045,0)="""KRN"",.404,52,40,1,1)"
^XMB(3.9,166,2,1046,0)="202"
^XMB(3.9,166,2,1047,0)="""KRN"",.404,52,40,1,2)"
^XMB(3.9,166,2,1048,0)="3,31^3^3,8"
^XMB(3.9,166,2,1049,0)="""KRN"",.404,52,40,1,3)"
^XMB(3.9,166,2,1050,0)="5"
^XMB(3.9,166,2,1051,0)="""KRN"",.404,52,40,2,0)"
^XMB(3.9,166,2,1052,0)="3^DEFAULT LOCK-OUT TIME^3"
^XMB(3.9,166,2,1053,0)="""KRN"",.404,52,40,2,1)"
^XMB(3.9,166,2,1054,0)="203"
^XMB(3.9,166,2,1055,0)="""KRN"",.404,52,40,2,2)"
^XMB(3.9,166,2,1056,0)="4,31^4^4,8"
^XMB(3.9,166,2,1057,0)="""KRN"",.404,52,40,2,3)"
^XMB(3.9,166,2,1058,0)="30"
^XMB(3.9,166,2,1059,0)="""KRN"",.404,52,40,3,0)"
^XMB(3.9,166,2,1060,0)="4^DEFAULT MULTIPLE SIGN-ON^3"
^XMB(3.9,166,2,1061,0)="""KRN"",.404,52,40,3,1)"
^XMB(3.9,166,2,1062,0)="204"
^XMB(3.9,166,2,1063,0)="""KRN"",.404,52,40,3,2)"
^XMB(3.9,166,2,1064,0)="5,31^8^5,5"
^XMB(3.9,166,2,1065,0)="""KRN"",.404,52,40,3,3)"
^XMB(3.9,166,2,1066,0)="YES"
^XMB(3.9,166,2,1067,0)="""KRN"",.404,52,40,3,11)"
^XMB(3.9,166,2,1068,0)="D EN^DDIOL(""If you select 'Only one IP' be sure to put a value into the MULTIPLE SIGN-ON LIMIT field so users can sign-on at least once."")"
^XMB(3.9,166,2,1069,0)="""KRN"",.404,52,40,4,0)"
^XMB(3.9,166,2,1070,0)="15^ASK DEVICE TYPE AT SIGN-ON^3"
^XMB(3.9,166,2,1071,0)="""KRN"",.404,52,40,4,1)"
^XMB(3.9,166,2,1072,0)="205"
^XMB(3.9,166,2,1073,0)="""KRN"",.404,52,40,4,2)"
^XMB(3.9,166,2,1074,0)="12,69^3^12,41"
^XMB(3.9,166,2,1075,0)="""KRN"",.404,52,40,4,3)"
^XMB(3.9,166,2,1076,0)="ASK"
^XMB(3.9,166,2,1077,0)="""KRN"",.404,52,40,5,0)"
^XMB(3.9,166,2,1078,0)="6^DEFAULT AUTO-MENU^3"
^XMB(3.9,166,2,1079,0)="""KRN"",.404,52,40,5,1)"
^XMB(3.9,166,2,1080,0)="206"
^XMB(3.9,166,2,1081,0)="""KRN"",.404,52,40,5,2)"
^XMB(3.9,166,2,1082,0)="6,31^3^6,12"
^XMB(3.9,166,2,1083,0)="""KRN"",.404,52,40,5,3)"
^XMB(3.9,166,2,1084,0)="NO"
^XMB(3.9,166,2,1085,0)="""KRN"",.404,52,40,6,0)"
^XMB(3.9,166,2,1086,0)="9^DEFAULT TYPE-AHEAD^3"
^XMB(3.9,166,2,1087,0)="""KRN"",.404,52,40,6,1)"
^XMB(3.9,166,2,1088,0)="209"
^XMB(3.9,166,2,1089,0)="""KRN"",.404,52,40,6,2)"
^XMB(3.9,166,2,1090,0)="8,31^3^8,11"
^XMB(3.9,166,2,1091,0)="""KRN"",.404,52,40,6,3)"
^XMB(3.9,166,2,1092,0)="YES"
^XMB(3.9,166,2,1093,0)="""KRN"",.404,52,40,7,0)"
^XMB(3.9,166,2,1094,0)="10^DEFAULT TIMED-READ (SECONDS)^3"
^XMB(3.9,166,2,1095,0)="""KRN"",.404,52,40,7,1)"
^XMB(3.9,166,2,1096,0)="210"
^XMB(3.9,166,2,1097,0)="""KRN"",.404,52,40,7,2)"
^XMB(3.9,166,2,1098,0)="9,31^5^9,1"
^XMB(3.9,166,2,1099,0)="""KRN"",.404,52,40,7,3)"
^XMB(3.9,166,2,1100,0)="300"
^XMB(3.9,166,2,1101,0)="""KRN"",.404,52,40,8,0)"
^XMB(3.9,166,2,1102,0)="12^BYPASS DEVICE LOCK-OUT^3"
^XMB(3.9,166,2,1103,0)="""KRN"",.404,52,40,8,1)"
^XMB(3.9,166,2,1104,0)="211"
^XMB(3.9,166,2,1105,0)="""KRN"",.404,52,40,8,2)"
^XMB(3.9,166,2,1106,0)="11,31^3^11,7"
^XMB(3.9,166,2,1107,0)="""KRN"",.404,52,40,9,0)"
^XMB(3.9,166,2,1108,0)="14^LIFETIME OF VERIFY CODE^3"
^XMB(3.9,166,2,1109,0)="""KRN"",.404,52,40,9,1)"
^XMB(3.9,166,2,1110,0)="214"
^XMB(3.9,166,2,1111,0)="""KRN"",.404,52,40,9,2)"
^XMB(3.9,166,2,1112,0)="12,31^3^12,6"
^XMB(3.9,166,2,1113,0)="""KRN"",.404,52,40,9,3)"
^XMB(3.9,166,2,1114,0)="90"
^XMB(3.9,166,2,1115,0)="""KRN"",.404,52,40,11,0)"
^XMB(3.9,166,2,1116,0)="8^DEFAULT LANGUAGE^3"
^XMB(3.9,166,2,1117,0)="""KRN"",.404,52,40,11,1)"
^XMB(3.9,166,2,1118,0)="207"
^XMB(3.9,166,2,1119,0)="""KRN"",.404,52,40,11,2)"
^XMB(3.9,166,2,1120,0)="7,31^10^7,13"
^XMB(3.9,166,2,1121,0)="""KRN"",.404,52,40,12,0)"
^XMB(3.9,166,2,1122,0)="16^DEFAULT INSTITUTION^3"
^XMB(3.9,166,2,1123,0)="""KRN"",.404,52,40,12,1)"
^XMB(3.9,166,2,1124,0)="217"
^XMB(3.9,166,2,1125,0)="""KRN"",.404,52,40,12,2)"
^XMB(3.9,166,2,1126,0)="13,31^30^13,10"
^XMB(3.9,166,2,1127,0)="""KRN"",.404,52,40,13,0)"
^XMB(3.9,166,2,1128,0)="17^AUTO-GENERATE ACCESS CODES^3"
^XMB(3.9,166,2,1129,0)="""KRN"",.404,52,40,13,1)"
^XMB(3.9,166,2,1130,0)="11"
^XMB(3.9,166,2,1131,0)="""KRN"",.404,52,40,13,2)"
^XMB(3.9,166,2,1132,0)="14,31^3^14,3"
^XMB(3.9,166,2,1133,0)="""KRN"",.404,52,40,14,0)"
^XMB(3.9,166,2,1134,0)="2^AGENCY CODE^3"
^XMB(3.9,166,2,1135,0)="""KRN"",.404,52,40,14,1)"
^XMB(3.9,166,2,1136,0)="9"
^XMB(3.9,166,2,1137,0)="""KRN"",.404,52,40,14,2)"
^XMB(3.9,166,2,1138,0)="3,66^9^3,53"
^XMB(3.9,166,2,1139,0)="""KRN"",.404,52,40,14,3)"
^XMB(3.9,166,2,1140,0)="VA"
^XMB(3.9,166,2,1141,0)="""KRN"",.404,52,40,16,0)"
^XMB(3.9,166,2,1142,0)="7^DEFAULT AUTO SIGN-ON^3"
^XMB(3.9,166,2,1143,0)="""KRN"",.404,52,40,16,1)"
^XMB(3.9,166,2,1144,0)="218"
^XMB(3.9,166,2,1145,0)="""KRN"",.404,52,40,16,2)"
^XMB(3.9,166,2,1146,0)="6,66^8^6,44"
^XMB(3.9,166,2,1147,0)="""KRN"",.404,52,40,17,0)"
^XMB(3.9,166,2,1148,0)="11^BROKER TIMEOUT^3"
^XMB(3.9,166,2,1149,0)="""KRN"",.404,52,40,17,1)"
^XMB(3.9,166,2,1150,0)="230"
^XMB(3.9,166,2,1151,0)="""KRN"",.404,52,40,17,2)"
^XMB(3.9,166,2,1152,0)="9,66^5^9,50"
^XMB(3.9,166,2,1153,0)="""KRN"",.404,52,40,17,3)"
^XMB(3.9,166,2,1154,0)="180"
^XMB(3.9,166,2,1155,0)="""KRN"",.404,52,40,18,0)"
^XMB(3.9,166,2,1156,0)="5^MULTIPLE SIGN-ON LIMIT^3"
^XMB(3.9,166,2,1157,0)="""KRN"",.404,52,40,18,1)"
^XMB(3.9,166,2,1158,0)="219"
^XMB(3.9,166,2,1159,0)="""KRN"",.404,52,40,18,2)"
^XMB(3.9,166,2,1160,0)="5,66^3^5,42"
^XMB(3.9,166,2,1161,0)="""KRN"",.404,52,40,19,0)"
^XMB(3.9,166,2,1162,0)="18^AUTO-GENERATE VERIFY CODES^3"
^XMB(3.9,166,2,1163,0)="""KRN"",.404,52,40,19,1)"
^XMB(3.9,166,2,1164,0)="11.2"
^XMB(3.9,166,2,1165,0)="""KRN"",.404,52,40,19,2)"
^XMB(3.9,166,2,1166,0)="15,31^3^15,3"
^XMB(3.9,166,2,1167,0)="""KRN"",.404,52,40,20,0)"
^XMB(3.9,166,2,1168,0)="13^CCOW TOKEN TIMEOUT^3"
^XMB(3.9,166,2,1169,0)="""KRN"",.404,52,40,20,1)"
^XMB(3.9,166,2,1170,0)="30.1"
^XMB(3.9,166,2,1171,0)="""KRN"",.404,52,40,20,2)"
^XMB(3.9,166,2,1172,0)="11,66^5^11,46"
^XMB(3.9,166,2,1173,0)="""KRN"",.404,53,0)"
^XMB(3.9,166,2,1174,0)="XUSITEPARM 3^8989.3"
^XMB(3.9,166,2,1175,0)="""KRN"",.404,53,40,0)"
^XMB(3.9,166,2,1176,0)="^.4044I^7^7"
^XMB(3.9,166,2,1177,0)="""KRN"",.404,53,40,1,0)"
^XMB(3.9,166,2,1178,0)="1^MAX SPOOL LINES PER USER^3"
^XMB(3.9,166,2,1179,0)="""KRN"",.404,53,40,1,1)"
^XMB(3.9,166,2,1180,0)="31.1"
^XMB(3.9,166,2,1181,0)="""KRN"",.404,53,40,1,2)"
^XMB(3.9,166,2,1182,0)="1,31^7^1,5"
^XMB(3.9,166,2,1183,0)="""KRN"",.404,53,40,2,0)"
^XMB(3.9,166,2,1184,0)="2^MAX SPOOL DOCUMENTS PER USER^3"
^XMB(3.9,166,2,1185,0)="""KRN"",.404,53,40,2,1)"
^XMB(3.9,166,2,1186,0)="31.2"
^XMB(3.9,166,2,1187,0)="""KRN"",.404,53,40,2,2)"
^XMB(3.9,166,2,1188,0)="2,31^3^2,1"
^XMB(3.9,166,2,1189,0)="""KRN"",.404,53,40,3,0)"
^XMB(3.9,166,2,1190,0)="3^MAX SPOOL DOCUMENT LIFE-SPAN^3"
^XMB(3.9,166,2,1191,0)="""KRN"",.404,53,40,3,1)"
^XMB(3.9,166,2,1192,0)="31.3"
^XMB(3.9,166,2,1193,0)="""KRN"",.404,53,40,3,2)"
^XMB(3.9,166,2,1194,0)="3,31^3^3,1"
^XMB(3.9,166,2,1195,0)="""KRN"",.404,53,40,4,0)"
^XMB(3.9,166,2,1196,0)="4^LOG RESOURCE USAGE?^3"
^XMB(3.9,166,2,1197,0)="""KRN"",.404,53,40,4,1)"
^XMB(3.9,166,2,1198,0)="300"
^XMB(3.9,166,2,1199,0)="""KRN"",.404,53,40,4,2)"
^XMB(3.9,166,2,1200,0)="5,31^3^5,10"
^XMB(3.9,166,2,1201,0)="""KRN"",.404,53,40,5,0)"
^XMB(3.9,166,2,1202,0)="5^NEW PERSON IDENTIFIERS^3"
^XMB(3.9,166,2,1203,0)="""KRN"",.404,53,40,5,1)"
^XMB(3.9,166,2,1204,0)="21"
^XMB(3.9,166,2,1205,0)="""KRN"",.404,53,40,5,2)"
^XMB(3.9,166,2,1206,0)="13,4^65^12,1"
^XMB(3.9,166,2,1207,0)="""KRN"",.404,53,40,6,0)"
^XMB(3.9,166,2,1208,0)="6^DEFAULT DIRECTORY FOR HFS^3"
^XMB(3.9,166,2,1209,0)="""KRN"",.404,53,40,6,1)"
^XMB(3.9,166,2,1210,0)="320"
^XMB(3.9,166,2,1211,0)="""KRN"",.404,53,40,6,2)"
^XMB(3.9,166,2,1212,0)="8,4^50^7,1"
^XMB(3.9,166,2,1213,0)="""KRN"",.404,53,40,7,0)"
^XMB(3.9,166,2,1214,0)="7^DNS IP^3"
^XMB(3.9,166,2,1215,0)="""KRN"",.404,53,40,7,1)"
^XMB(3.9,166,2,1216,0)="51"
^XMB(3.9,166,2,1217,0)="""KRN"",.404,53,40,7,2)"
^XMB(3.9,166,2,1218,0)="10,9^60^10,1"
^XMB(3.9,166,2,1219,0)="""KRN"",.404,53,40,7,4)"
^XMB(3.9,166,2,1220,0)="1"
^XMB(3.9,166,2,1221,0)="""KRN"",.404,54,0)"
^XMB(3.9,166,2,1222,0)="XUSITEPARM 2^8989.3"
^XMB(3.9,166,2,1223,0)="""KRN"",.404,54,40,0)"
^XMB(3.9,166,2,1224,0)="^.4044I^3^3"
^XMB(3.9,166,2,1225,0)="""KRN"",.404,54,40,1,0)"
^XMB(3.9,166,2,1226,0)="1^Vol Set      Max Sign-ons       Log RT?^1"
^XMB(3.9,166,2,1227,0)="""KRN"",.404,54,40,1,2)"
^XMB(3.9,166,2,1228,0)="^^1,12^1"
^XMB(3.9,166,2,1229,0)="""KRN"",.404,54,40,2,0)"
^XMB(3.9,166,2,1230,0)="2^ROUTINE MONITORING^3"
^XMB(3.9,166,2,1231,0)="""KRN"",.404,54,40,2,1)"
^XMB(3.9,166,2,1232,0)="9.8"
^XMB(3.9,166,2,1233,0)="""KRN"",.404,54,40,2,2)"
^XMB(3.9,166,2,1234,0)="8,22^8^8,2"
^XMB(3.9,166,2,1235,0)="""KRN"",.404,54,40,3,0)"
^XMB(3.9,166,2,1236,0)="3^Routine Namespace's^1"
^XMB(3.9,166,2,1237,0)="""KRN"",.404,54,40,3,2)"
^XMB(3.9,166,2,1238,0)="^^9,12^1"
^XMB(3.9,166,2,1239,0)="""KRN"",.404,55,0)"
^XMB(3.9,166,2,1240,0)="XUSITEPARM 2.1^8989.304"
^XMB(3.9,166,2,1241,0)="""KRN"",.404,55,40,0)"
^XMB(3.9,166,2,1242,0)="^.4044I^3^3"
^XMB(3.9,166,2,1243,0)="""KRN"",.404,55,40,1,0)"
^XMB(3.9,166,2,1244,0)="1^^3"
^XMB(3.9,166,2,1245,0)="""KRN"",.404,55,40,1,1)"
^XMB(3.9,166,2,1246,0)=".01"
^XMB(3.9,166,2,1247,0)="""KRN"",.404,55,40,1,2)"
^XMB(3.9,166,2,1248,0)="1,1^9"
^XMB(3.9,166,2,1249,0)="""KRN"",.404,55,40,2,0)"
^XMB(3.9,166,2,1250,0)="2^^3"
^XMB(3.9,166,2,1251,0)="""KRN"",.404,55,40,2,1)"
^XMB(3.9,166,2,1252,0)="2"
^XMB(3.9,166,2,1253,0)="""KRN"",.404,55,40,2,2)"
^XMB(3.9,166,2,1254,0)="1,14^4"
^XMB(3.9,166,2,1255,0)="""KRN"",.404,55,40,3,0)"
^XMB(3.9,166,2,1256,0)="3^^3"
^XMB(3.9,166,2,1257,0)="""KRN"",.404,55,40,3,1)"
^XMB(3.9,166,2,1258,0)="6"
^XMB(3.9,166,2,1259,0)="""KRN"",.404,55,40,3,2)"
^XMB(3.9,166,2,1260,0)="1,33^3"
^XMB(3.9,166,2,1261,0)="""KRN"",.404,56,0)"
^XMB(3.9,166,2,1262,0)="XUSITEPARM 2.2^8989.309"
^XMB(3.9,166,2,1263,0)="""KRN"",.404,56,40,0)"
^XMB(3.9,166,2,1264,0)="^.4044I^1^1"
^XMB(3.9,166,2,1265,0)="""KRN"",.404,56,40,1,0)"
^XMB(3.9,166,2,1266,0)="1^^3"
^XMB(3.9,166,2,1267,0)="""KRN"",.404,56,40,1,1)"
^XMB(3.9,166,2,1268,0)=".01"
^XMB(3.9,166,2,1269,0)="""KRN"",.404,56,40,1,2)"
^XMB(3.9,166,2,1270,0)="2,5^8"
^XMB(3.9,166,2,1271,0)="""KRN"",.404,57,0)"
^XMB(3.9,166,2,1272,0)="XUSITEPARM 4^8989.3"
^XMB(3.9,166,2,1273,0)="""KRN"",.404,57,40,0)"
^XMB(3.9,166,2,1274,0)="^.4044I^8^8"
^XMB(3.9,166,2,1275,0)="""KRN"",.404,57,40,1,0)"
^XMB(3.9,166,2,1276,0)="1^OPTION AUDIT^3"
^XMB(3.9,166,2,1277,0)="""KRN"",.404,57,40,1,1)"
^XMB(3.9,166,2,1278,0)="19"
^XMB(3.9,166,2,1279,0)="""KRN"",.404,57,40,1,2)"
^XMB(3.9,166,2,1280,0)="1,15^24^1,1"
^XMB(3.9,166,2,1281,0)="""KRN"",.404,57,40,2,0)"
^XMB(3.9,166,2,1282,0)="2^INITIATE AUDIT^3"
^XMB(3.9,166,2,1283,0)="""KRN"",.404,57,40,2,1)"
^XMB(3.9,166,2,1284,0)="19.4"
^XMB(3.9,166,2,1285,0)="""KRN"",.404,57,40,2,2)"
^XMB(3.9,166,2,1286,0)="2,20^17^2,4"
^XMB(3.9,166,2,1287,0)="""KRN"",.404,57,40,3,0)"
^XMB(3.9,166,2,1288,0)="3^TERMINATE AUDIT^3"
^XMB(3.9,166,2,1289,0)="""KRN"",.404,57,40,3,1)"
^XMB(3.9,166,2,1290,0)="19.5"
^XMB(3.9,166,2,1291,0)="""KRN"",.404,57,40,3,2)"
^XMB(3.9,166,2,1292,0)="2,60^17^2,43"
^XMB(3.9,166,2,1293,0)="""KRN"",.404,57,40,4,0)"
^XMB(3.9,166,2,1294,0)="4^Option to audit^1"
^XMB(3.9,166,2,1295,0)="""KRN"",.404,57,40,4,2)"
^XMB(3.9,166,2,1296,0)="^^4,4^1"
^XMB(3.9,166,2,1297,0)="""KRN"",.404,57,40,5,0)"
^XMB(3.9,166,2,1298,0)="5^Namespace to audit^1"
^XMB(3.9,166,2,1299,0)="""KRN"",.404,57,40,5,2)"
^XMB(3.9,166,2,1300,0)="^^4,43^1"
^XMB(3.9,166,2,1301,0)="""KRN"",.404,57,40,6,0)"
^XMB(3.9,166,2,1302,0)="6^User to audit^1"
^XMB(3.9,166,2,1303,0)="""KRN"",.404,57,40,6,2)"
^XMB(3.9,166,2,1304,0)="^^9,4^1"
^XMB(3.9,166,2,1305,0)="""KRN"",.404,57,40,7,0)"
^XMB(3.9,166,2,1306,0)="7^Device to audit^1"
^XMB(3.9,166,2,1307,0)="""KRN"",.404,57,40,7,2)"
^XMB(3.9,166,2,1308,0)="^^9,43"
^XMB(3.9,166,2,1309,0)="""KRN"",.404,57,40,8,0)"
^XMB(3.9,166,2,1310,0)="8^FAILED ACCESS ATTEMPTS^3"
^XMB(3.9,166,2,1311,0)="""KRN"",.404,57,40,8,1)"
^XMB(3.9,166,2,1312,0)="212.5"
^XMB(3.9,166,2,1313,0)="""KRN"",.404,57,40,8,2)"
^XMB(3.9,166,2,1314,0)="1,67^8^1,43"
^XMB(3.9,166,2,1315,0)="""KRN"",.404,58,0)"
^XMB(3.9,166,2,1316,0)="XUSITEPARM 4.1^8989.36"
^XMB(3.9,166,2,1317,0)="""KRN"",.404,58,40,0)"
^XMB(3.9,166,2,1318,0)="^.4044I^1^1"
^XMB(3.9,166,2,1319,0)="""KRN"",.404,58,40,1,0)"
^XMB(3.9,166,2,1320,0)="1^^3"
^XMB(3.9,166,2,1321,0)="""KRN"",.404,58,40,1,1)"
^XMB(3.9,166,2,1322,0)=".01"
^XMB(3.9,166,2,1323,0)="""KRN"",.404,58,40,1,2)"
^XMB(3.9,166,2,1324,0)="1,1^30"
^XMB(3.9,166,2,1325,0)="""KRN"",.404,59,0)"
^XMB(3.9,166,2,1326,0)="XUSITEPARM 4.2^8989.35"
^XMB(3.9,166,2,1327,0)="""KRN"",.404,59,40,0)"
^XMB(3.9,166,2,1328,0)="^.4044I^1^1"
^XMB(3.9,166,2,1329,0)="""KRN"",.404,59,40,1,0)"
^XMB(3.9,166,2,1330,0)="1^^3"
^XMB(3.9,166,2,1331,0)="""KRN"",.404,59,40,1,1)"
^XMB(3.9,166,2,1332,0)=".01"
^XMB(3.9,166,2,1333,0)="""KRN"",.404,59,40,1,2)"
^XMB(3.9,166,2,1334,0)="1,1^5"
^XMB(3.9,166,2,1335,0)="""KRN"",.404,60,0)"
^XMB(3.9,166,2,1336,0)="XUSITEPARM 4.4^8989.33"
^XMB(3.9,166,2,1337,0)="""KRN"",.404,60,40,0)"
^XMB(3.9,166,2,1338,0)="^.4044I^1^1"
^XMB(3.9,166,2,1339,0)="""KRN"",.404,60,40,1,0)"
^XMB(3.9,166,2,1340,0)="1^^3"
^XMB(3.9,166,2,1341,0)="""KRN"",.404,60,40,1,1)"
^XMB(3.9,166,2,1342,0)=".01"
^XMB(3.9,166,2,1343,0)="""KRN"",.404,60,40,1,2)"
^XMB(3.9,166,2,1344,0)="1,1^20"
^XMB(3.9,166,2,1345,0)="""KRN"",.404,61,0)"
^XMB(3.9,166,2,1346,0)="XUSITEPARM 4.3^8989.34"
^XMB(3.9,166,2,1347,0)="""KRN"",.404,61,40,0)"
^XMB(3.9,166,2,1348,0)="^.4044I^1^1"
^XMB(3.9,166,2,1349,0)="""KRN"",.404,61,40,1,0)"
^XMB(3.9,166,2,1350,0)="1^^3"
^XMB(3.9,166,2,1351,0)="""KRN"",.404,61,40,1,1)"
^XMB(3.9,166,2,1352,0)=".01"
^XMB(3.9,166,2,1353,0)="""KRN"",.404,61,40,1,2)"
^XMB(3.9,166,2,1354,0)="1,1^30"
^XMB(3.9,166,2,1355,0)="""KRN"",.404,63,0)"
^XMB(3.9,166,2,1356,0)="XU-PERSON CLASS 2^200.05"
^XMB(3.9,166,2,1357,0)="""KRN"",.404,63,40,0)"
^XMB(3.9,166,2,1358,0)="^.4044I^3^3"
^XMB(3.9,166,2,1359,0)="""KRN"",.404,63,40,1,0)"
^XMB(3.9,166,2,1360,0)="1^^3"
^XMB(3.9,166,2,1361,0)="""KRN"",.404,63,40,1,1)"
^XMB(3.9,166,2,1362,0)=".01"
^XMB(3.9,166,2,1363,0)="""KRN"",.404,63,40,1,2)"
^XMB(3.9,166,2,1364,0)="1,2^40"
^XMB(3.9,166,2,1365,0)="""KRN"",.404,63,40,1,11)"
^XMB(3.9,166,2,1366,0)="D DDS1^XUA4A72"
^XMB(3.9,166,2,1367,0)="""KRN"",.404,63,40,1,14)"
^XMB(3.9,166,2,1368,0)="S:$L(DDSOLD)&(X'=DDSOLD) DDSERROR=1"
^XMB(3.9,166,2,1369,0)="""KRN"",.404,63,40,2,0)"
^XMB(3.9,166,2,1370,0)="2^^3"
^XMB(3.9,166,2,1371,0)="""KRN"",.404,63,40,2,1)"
^XMB(3.9,166,2,1372,0)="2"
^XMB(3.9,166,2,1373,0)="""KRN"",.404,63,40,2,2)"
^XMB(3.9,166,2,1374,0)="1,52^12"
^XMB(3.9,166,2,1375,0)="""KRN"",.404,63,40,2,4)"
^XMB(3.9,166,2,1376,0)="^^^0"
^XMB(3.9,166,2,1377,0)="""KRN"",.404,63,40,2,12)"
^XMB(3.9,166,2,1378,0)="D DDS2^XUA4A72"
^XMB(3.9,166,2,1379,0)="""KRN"",.404,63,40,2,14)"
^XMB(3.9,166,2,1380,0)="D DDS3^XUA4A72(2)"
^XMB(3.9,166,2,1381,0)="""KRN"",.404,63,40,3,0)"
^XMB(3.9,166,2,1382,0)="3^^3"
^XMB(3.9,166,2,1383,0)="""KRN"",.404,63,40,3,1)"
^XMB(3.9,166,2,1384,0)="3"
^XMB(3.9,166,2,1385,0)="""KRN"",.404,63,40,3,2)"
^XMB(3.9,166,2,1386,0)="1,67^12"
^XMB(3.9,166,2,1387,0)="""KRN"",.404,63,40,3,14)"
^XMB(3.9,166,2,1388,0)="D DDS3^XUA4A72(3)"
^XMB(3.9,166,2,1389,0)="""KRN"",.404,64,0)"
^XMB(3.9,166,2,1390,0)="XUNEW USER^200"
^XMB(3.9,166,2,1391,0)="""KRN"",.404,157,0)"
^XMB(3.9,166,2,1392,0)="XUEXISTING USER NAME COMPONENT^20"
^XMB(3.9,166,2,1393,0)="""KRN"",.404,157,11)"
^XMB(3.9,166,2,1394,0)="I $G(XLFNCHG),$D(XLFNC) N FLD,NC,SUB M NC=XLFNC K XLFNC S (XLFNAME,XLFNEW)=NC K XLFNCHG S FLD=0 F SUB=""FAMILY"",""GIVEN"",""MIDDLE"","""",""SUFFIX"" S FLD=FLD+1 D:SUB]"""" PUT^DDSVAL(DIE,DA,FLD,$G(NC(SUB)),"""",""I"")"
^XMB(3.9,166,2,1395,0)="""KRN"",.404,157,40,0)"
^XMB(3.9,166,2,1396,0)="^.4044I^8^7"
^XMB(3.9,166,2,1397,0)="""KRN"",.404,157,40,1,0)"
^XMB(3.9,166,2,1398,0)="1^NAME COMPONENTS^1"
^XMB(3.9,166,2,1399,0)="""KRN"",.404,157,40,1,2)"
^XMB(3.9,166,2,1400,0)="^^2,38"
^XMB(3.9,166,2,1401,0)="""KRN"",.404,157,40,2,0)"
^XMB(3.9,166,2,1402,0)="5^Family (Last)^3"
^XMB(3.9,166,2,1403,0)="""KRN"",.404,157,40,2,1)"
^XMB(3.9,166,2,1404,0)="1"
^XMB(3.9,166,2,1405,0)="""KRN"",.404,157,40,2,2)"
^XMB(3.9,166,2,1406,0)="6,18^35^6,3"
^XMB(3.9,166,2,1407,0)="""KRN"",.404,157,40,3,0)"
^XMB(3.9,166,2,1408,0)="3^Given (First)^3^^GIVEN"
^XMB(3.9,166,2,1409,0)="""KRN"",.404,157,40,3,1)"
^XMB(3.9,166,2,1410,0)="2"
^XMB(3.9,166,2,1411,0)="""KRN"",.404,157,40,3,2)"
^XMB(3.9,166,2,1412,0)="4,18^25^4,3"
^XMB(3.9,166,2,1413,0)="""KRN"",.404,157,40,4,0)"
^XMB(3.9,166,2,1414,0)="4^Middle^3"
^XMB(3.9,166,2,1415,0)="""KRN"",.404,157,40,4,1)"
^XMB(3.9,166,2,1416,0)="3"
^XMB(3.9,166,2,1417,0)="""KRN"",.404,157,40,4,2)"
^XMB(3.9,166,2,1418,0)="5,18^25^5,10"
^XMB(3.9,166,2,1419,0)="""KRN"",.404,157,40,5,0)"
^XMB(3.9,166,2,1420,0)="2^Prefix^3"
^XMB(3.9,166,2,1421,0)="""KRN"",.404,157,40,5,1)"
^XMB(3.9,166,2,1422,0)="4"
^XMB(3.9,166,2,1423,0)="""KRN"",.404,157,40,5,2)"
^XMB(3.9,166,2,1424,0)="3,18^10^3,10"
^XMB(3.9,166,2,1425,0)="""KRN"",.404,157,40,6,0)"
^XMB(3.9,166,2,1426,0)="6^Suffix^3"
^XMB(3.9,166,2,1427,0)="""KRN"",.404,157,40,6,1)"
^XMB(3.9,166,2,1428,0)="5"
^XMB(3.9,166,2,1429,0)="""KRN"",.404,157,40,6,2)"
^XMB(3.9,166,2,1430,0)="7,18^10^7,10"
^XMB(3.9,166,2,1431,0)="""KRN"",.404,157,40,8,0)"
^XMB(3.9,166,2,1432,0)="8^^4"
^XMB(3.9,166,2,1433,0)="""KRN"",.404,157,40,8,2)"
^XMB(3.9,166,2,1434,0)="9,3^35"
^XMB(3.9,166,2,1435,0)="""KRN"",.404,157,40,8,30)"
^XMB(3.9,166,2,1436,0)="N NC S NC(""FAMILY"")={1},NC(""GIVEN"")={2},NC(""MIDDLE"")={3},NC(""SUFFIX"")={5},(XLFNEW,Y)=$$BLDNAME^XLFNAME8(.NC,35)"
^XMB(3.9,166,2,1437,0)="""KRN"",.404,171,0)"
^XMB(3.9,166,2,1438,0)="XUEXISTING USER CPRS^200"
^XMB(3.9,166,2,1439,0)="""KRN"",.404,171,40,0)"
^XMB(3.9,166,2,1440,0)="^.4044I^8^8"
^XMB(3.9,166,2,1441,0)="""KRN"",.404,171,40,1,0)"
^XMB(3.9,166,2,1442,0)="1^4^1"
^XMB(3.9,166,2,1443,0)="""KRN"",.404,171,40,1,2)"
^XMB(3.9,166,2,1444,0)="^^1,74"
^XMB(3.9,166,2,1445,0)="""KRN"",.404,171,40,2,0)"
^XMB(3.9,166,2,1446,0)="2^RESTRICT PATIENT SELECTION^3"
^XMB(3.9,166,2,1447,0)="""KRN"",.404,171,40,2,1)"
^XMB(3.9,166,2,1448,0)="101.01"
^XMB(3.9,166,2,1449,0)="""KRN"",.404,171,40,2,2)"
^XMB(3.9,166,2,1450,0)="3,29^3^3,1"
^XMB(3.9,166,2,1451,0)="""KRN"",.404,171,40,3,0)"
^XMB(3.9,166,2,1452,0)="3^OE/RR LIST^3"
^XMB(3.9,166,2,1453,0)="""KRN"",.404,171,40,3,1)"
^XMB(3.9,166,2,1454,0)="101.02"
^XMB(3.9,166,2,1455,0)="""KRN"",.404,171,40,3,2)"
^XMB(3.9,166,2,1456,0)="3,48^30^3,36"
^XMB(3.9,166,2,1457,0)="""KRN"",.404,171,40,4,0)"
^XMB(3.9,166,2,1458,0)="4^CPRS TAB ACCESS:^1"
^XMB(3.9,166,2,1459,0)="""KRN"",.404,171,40,4,2)"
^XMB(3.9,166,2,1460,0)="^^5,1"
^XMB(3.9,166,2,1461,0)="""KRN"",.404,171,40,5,0)"
^XMB(3.9,166,2,1462,0)="5^Effective Date^1"
^XMB(3.9,166,2,1463,0)="""KRN"",.404,171,40,5,2)"
^XMB(3.9,166,2,1464,0)="^^6,46"
^XMB(3.9,166,2,1465,0)="""KRN"",.404,171,40,6,0)"
^XMB(3.9,166,2,1466,0)="6^Expiration Date^1"
^XMB(3.9,166,2,1467,0)="""KRN"",.404,171,40,6,2)"
^XMB(3.9,166,2,1468,0)="^^6,62"
^XMB(3.9,166,2,1469,0)="""KRN"",.404,171,40,7,0)"
^XMB(3.9,166,2,1470,0)="7^Name^1"
^XMB(3.9,166,2,1471,0)="""KRN"",.404,171,40,7,2)"
^XMB(3.9,166,2,1472,0)="^^6,3"
^XMB(3.9,166,2,1473,0)="""KRN"",.404,171,40,8,0)"
^XMB(3.9,166,2,1474,0)="8^Description^1"
^XMB(3.9,166,2,1475,0)="""KRN"",.404,171,40,8,2)"
^XMB(3.9,166,2,1476,0)="^^6,9"
^XMB(3.9,166,2,1477,0)="""KRN"",.404,172,0)"
^XMB(3.9,166,2,1478,0)="XUEXISTING USER CPRS TAB^200.010113"
^XMB(3.9,166,2,1479,0)="""KRN"",.404,172,40,0)"
^XMB(3.9,166,2,1480,0)="^.4044I^4^4"
^XMB(3.9,166,2,1481,0)="""KRN"",.404,172,40,1,0)"
^XMB(3.9,166,2,1482,0)="1^^3"
^XMB(3.9,166,2,1483,0)="""KRN"",.404,172,40,1,1)"
^XMB(3.9,166,2,1484,0)=".01"
^XMB(3.9,166,2,1485,0)="""KRN"",.404,172,40,1,2)"
^XMB(3.9,166,2,1486,0)="1,3^3"
^XMB(3.9,166,2,1487,0)="""KRN"",.404,172,40,2,0)"
^XMB(3.9,166,2,1488,0)="2^^3"
^XMB(3.9,166,2,1489,0)="""KRN"",.404,172,40,2,1)"
^XMB(3.9,166,2,1490,0)=".02"
^XMB(3.9,166,2,1491,0)="""KRN"",.404,172,40,2,2)"
^XMB(3.9,166,2,1492,0)="1,47^11"
^XMB(3.9,166,2,1493,0)="""KRN"",.404,172,40,3,0)"
^XMB(3.9,166,2,1494,0)="3^^3"
^XMB(3.9,166,2,1495,0)="""KRN"",.404,172,40,3,1)"
^XMB(3.9,166,2,1496,0)=".03"
^XMB(3.9,166,2,1497,0)="""KRN"",.404,172,40,3,2)"
^XMB(3.9,166,2,1498,0)="1,64^11"
^XMB(3.9,166,2,1499,0)="""KRN"",.404,172,40,3,14)"
^XMB(3.9,166,2,1500,0)="I X]"""" N XUD,XUM S XUD=$$GET^DDSVAL(DIE,.DA,.02,"""",""I"") S XUM=$S(XUD="""":""You must first enter an EFFECTIVE DATE."",X<XUD:""The EXPIRATION DATE must not precede the EFFECTIVE DATE."",1:"""") I $G(XUM)]"""" S DDSERROR=1 D HLP^DDSUTL(XUM)"
^XMB(3.9,166,2,1501,0)="""KRN"",.404,172,40,4,0)"
^XMB(3.9,166,2,1502,0)="4^^4"
^XMB(3.9,166,2,1503,0)="""KRN"",.404,172,40,4,2)"
^XMB(3.9,166,2,1504,0)="1,9^35"
^XMB(3.9,166,2,1505,0)="""KRN"",.404,172,40,4,30)"
^XMB(3.9,166,2,1506,0)="=$S($D(^DD(101.13,1,0))#2:$$GET^DDSVAL(101.13,{.01;I},1),1:"""")"
^XMB(3.9,166,2,1507,0)="""KRN"",.404,181,0)"
^XMB(3.9,166,2,1508,0)="XUSITEPARM 5^8989.3"
^XMB(3.9,166,2,1509,0)="""KRN"",.404,181,40,0)"
^XMB(3.9,166,2,1510,0)="^.4044I^2^2"
^XMB(3.9,166,2,1511,0)="""KRN"",.404,181,40,1,0)"
^XMB(3.9,166,2,1512,0)="1^IRM MAIL GROUP^3"
^XMB(3.9,166,2,1513,0)="""KRN"",.404,181,40,1,1)"
^XMB(3.9,166,2,1514,0)=".02"
^XMB(3.9,166,2,1515,0)="""KRN"",.404,181,40,1,2)"
^XMB(3.9,166,2,1516,0)="1,27^50^1,11"
^XMB(3.9,166,2,1517,0)="""KRN"",.404,181,40,2,0)"
^XMB(3.9,166,2,1518,0)="2^AFTER HOURS MAIL GROUP^3"
^XMB(3.9,166,2,1519,0)="""KRN"",.404,181,40,2,1)"
^XMB(3.9,166,2,1520,0)=".03"
^XMB(3.9,166,2,1521,0)="""KRN"",.404,181,40,2,2)"
^XMB(3.9,166,2,1522,0)="3,27^50^3,3"
^XMB(3.9,166,2,1523,0)="""KRN"",.404,185,0)"
^XMB(3.9,166,2,1524,0)="XUEXISTING USER TRAINEE^200"
^XMB(3.9,166,2,1525,0)="""KRN"",.404,185,40,0)"
^XMB(3.9,166,2,1526,0)="^.4044I^17^16"
^XMB(3.9,166,2,1527,0)="""KRN"",.404,185,40,1,0)"
^XMB(3.9,166,2,1528,0)="1^5^1"
^XMB(3.9,166,2,1529,0)="""KRN"",.404,185,40,1,2)"
^XMB(3.9,166,2,1530,0)="^^1,74"
^XMB(3.9,166,2,1531,0)="""KRN"",.404,185,40,2,0)"
^XMB(3.9,166,2,1532,0)="2^PERMANENT ADDRESS:^1"
^XMB(3.9,166,2,1533,0)="""KRN"",.404,185,40,2,2)"
^XMB(3.9,166,2,1534,0)="^^3,1"
^XMB(3.9,166,2,1535,0)="""KRN"",.404,185,40,3,0)"
^XMB(3.9,166,2,1536,0)="3^Street 1^3^^F3"
^XMB(3.9,166,2,1537,0)="""KRN"",.404,185,40,3,1)"
^XMB(3.9,166,2,1538,0)=".111"
^XMB(3.9,166,2,1539,0)="""KRN"",.404,185,40,3,2)"
^XMB(3.9,166,2,1540,0)="4,21^50^4,11"
^XMB(3.9,166,2,1541,0)="""KRN"",.404,185,40,4,0)"
^XMB(3.9,166,2,1542,0)="4^Street 2^3^^F4"
^XMB(3.9,166,2,1543,0)="""KRN"",.404,185,40,4,1)"
^XMB(3.9,166,2,1544,0)=".112"
^XMB(3.9,166,2,1545,0)="""KRN"",.404,185,40,4,2)"
^XMB(3.9,166,2,1546,0)="5,21^50^5,11"
^XMB(3.9,166,2,1547,0)="""KRN"",.404,185,40,5,0)"
^XMB(3.9,166,2,1548,0)="5^Street 3^3^^F5"
^XMB(3.9,166,2,1549,0)="""KRN"",.404,185,40,5,1)"
^XMB(3.9,166,2,1550,0)=".113"
^XMB(3.9,166,2,1551,0)="""KRN"",.404,185,40,5,2)"
^XMB(3.9,166,2,1552,0)="6,21^50^6,11"
^XMB(3.9,166,2,1553,0)="""KRN"",.404,185,40,6,0)"
^XMB(3.9,166,2,1554,0)="6^City^3^^F6"
^XMB(3.9,166,2,1555,0)="""KRN"",.404,185,40,6,1)"
^XMB(3.9,166,2,1556,0)=".114"
^XMB(3.9,166,2,1557,0)="""KRN"",.404,185,40,6,2)"
^XMB(3.9,166,2,1558,0)="7,21^30^7,15"
^XMB(3.9,166,2,1559,0)="""KRN"",.404,185,40,7,0)"
^XMB(3.9,166,2,1560,0)="7^State^3^^F7"
^XMB(3.9,166,2,1561,0)="""KRN"",.404,185,40,7,1)"
^XMB(3.9,166,2,1562,0)=".115"
^XMB(3.9,166,2,1563,0)="""KRN"",.404,185,40,7,2)"
^XMB(3.9,166,2,1564,0)="8,21^30^8,14"
^XMB(3.9,166,2,1565,0)="""KRN"",.404,185,40,8,0)"
^XMB(3.9,166,2,1566,0)="8^Zip Code^3^^F8"
^XMB(3.9,166,2,1567,0)="""KRN"",.404,185,40,8,1)"
^XMB(3.9,166,2,1568,0)=".116"
^XMB(3.9,166,2,1569,0)="""KRN"",.404,185,40,8,2)"
^XMB(3.9,166,2,1570,0)="9,21^10^9,11"
^XMB(3.9,166,2,1571,0)="""KRN"",.404,185,40,9,0)"
^XMB(3.9,166,2,1572,0)="9^E-Mail Address^3^^F9"
^XMB(3.9,166,2,1573,0)="""KRN"",.404,185,40,9,1)"
^XMB(3.9,166,2,1574,0)=".151"
^XMB(3.9,166,2,1575,0)="""KRN"",.404,185,40,9,2)"
^XMB(3.9,166,2,1576,0)="10,21^50^10,5"
^XMB(3.9,166,2,1577,0)="""KRN"",.404,185,40,11,0)"
^XMB(3.9,166,2,1578,0)="16^Target Degree Lvl^3^^12.1F"
^XMB(3.9,166,2,1579,0)="""KRN"",.404,185,40,11,1)"
^XMB(3.9,166,2,1580,0)="12.1"
^XMB(3.9,166,2,1581,0)="""KRN"",.404,185,40,11,2)"
^XMB(3.9,166,2,1582,0)="16,20^59^16,1"
^XMB(3.9,166,2,1583,0)="""KRN"",.404,185,40,11,14)"
^XMB(3.9,166,2,1584,0)="I X="""" D EN^DDIOL($C(7)_""Deletions are not allowed!"") S DDSERROR=1"
^XMB(3.9,166,2,1585,0)="""KRN"",.404,185,40,12,0)"
^XMB(3.9,166,2,1586,0)="15^Program of Study^3^^12.2F"
^XMB(3.9,166,2,1587,0)="""KRN"",.404,185,40,12,1)"
^XMB(3.9,166,2,1588,0)="12.2"
^XMB(3.9,166,2,1589,0)="""KRN"",.404,185,40,12,2)"
^XMB(3.9,166,2,1590,0)="15,19^59^15,1"
^XMB(3.9,166,2,1591,0)="""KRN"",.404,185,40,12,11)"
^XMB(3.9,166,2,1592,0)="D:X]"""" HLP^DDSUTL($P($G(^USC(8932.2,+$G(X),0)),U))"
^XMB(3.9,166,2,1593,0)="""KRN"",.404,185,40,12,14)"
^XMB(3.9,166,2,1594,0)="I X="""" D EN^DDIOL($C(7)_""Deletions are not allowed!"") S DDSERROR=1"
^XMB(3.9,166,2,1595,0)="""KRN"",.404,185,40,13,0)"
^XMB(3.9,166,2,1596,0)="13^Last Training Month & Year^3^^12.3F"
^XMB(3.9,166,2,1597,0)="""KRN"",.404,185,40,13,1)"
^XMB(3.9,166,2,1598,0)="12.3"
^XMB(3.9,166,2,1599,0)="""KRN"",.404,185,40,13,2)"
^XMB(3.9,166,2,1600,0)="13,66^8^13,38"
^XMB(3.9,166,2,1601,0)="""KRN"",.404,185,40,13,14)"
^XMB(3.9,166,2,1602,0)="I X="""" D EN^DDIOL($C(7)_""Deletions are not allowed!"") S DDSERROR=1"
^XMB(3.9,166,2,1603,0)="""KRN"",.404,185,40,14,0)"
^XMB(3.9,166,2,1604,0)="11^VHA Training Fac.^3^^12.4F"
^XMB(3.9,166,2,1605,0)="""KRN"",.404,185,40,14,1)"
^XMB(3.9,166,2,1606,0)="12.4"
^XMB(3.9,166,2,1607,0)="""KRN"",.404,185,40,14,2)"
^XMB(3.9,166,2,1608,0)="12,20^27^12,1"
^XMB(3.9,166,2,1609,0)="""KRN"",.404,185,40,14,14)"
^XMB(3.9,166,2,1610,0)="I X="""" D EN^DDIOL($C(7)_""Deletions are not allowed!"") S DDSERROR=1"
^XMB(3.9,166,2,1611,0)="""KRN"",.404,185,40,15,0)"
^XMB(3.9,166,2,1612,0)="10^Is this person an active Trainee?^3^^12.6F"
^XMB(3.9,166,2,1613,0)="""KRN"",.404,185,40,15,1)"
^XMB(3.9,166,2,1614,0)="12.6"
^XMB(3.9,166,2,1615,0)="""KRN"",.404,185,40,15,2)"
^XMB(3.9,166,2,1616,0)="11,36^3^11,1"
^XMB(3.9,166,2,1617,0)="""KRN"",.404,185,40,15,12)"
^XMB(3.9,166,2,1618,0)="D REQ^XUSER2("""")"
^XMB(3.9,166,2,1619,0)="""KRN"",.404,185,40,15,14)"
^XMB(3.9,166,2,1620,0)="I X="""" D EN^DDIOL($C(7)_""Deletions are not allowed!"") S DDSERROR=1"
^XMB(3.9,166,2,1621,0)="""KRN"",.404,185,40,16,0)"
^XMB(3.9,166,2,1622,0)="14^Trainee Inactive (Date)^3^^12.7F"
^XMB(3.9,166,2,1623,0)="""KRN"",.404,185,40,16,1)"
^XMB(3.9,166,2,1624,0)="12.7"
^XMB(3.9,166,2,1625,0)="""KRN"",.404,185,40,16,2)"
^XMB(3.9,166,2,1626,0)="14,63^11^14,38"
^XMB(3.9,166,2,1627,0)="""KRN"",.404,185,40,16,14)"
^XMB(3.9,166,2,1628,0)="I X="""" D EN^DDIOL($C(7)_""Deletions are not allowed!"") S DDSERROR=1"
^XMB(3.9,166,2,1629,0)="""KRN"",.404,185,40,17,0)"
^XMB(3.9,166,2,1630,0)="12^Start Date of Training^3^^12.8F"
^XMB(3.9,166,2,1631,0)="""KRN"",.404,185,40,17,1)"
^XMB(3.9,166,2,1632,0)="12.8"
^XMB(3.9,166,2,1633,0)="""KRN"",.404,185,40,17,2)"
^XMB(3.9,166,2,1634,0)="13,25^11^13,1"
^XMB(3.9,166,2,1635,0)="""KRN"",.404,185,40,17,14)"
^XMB(3.9,166,2,1636,0)="I X="""" D EN^DDIOL($C(7)_""Deletions are not allowed!"") S DDSERROR=1"
^XMB(3.9,166,2,1637,0)="""KRN"",.404,190,0)"
^XMB(3.9,166,2,1638,0)="Termination^200"
^XMB(3.9,166,2,1639,0)="""KRN"",.404,190,40,0)"
^XMB(3.9,166,2,1640,0)="^.4044I^2^2"
^XMB(3.9,166,2,1641,0)="""KRN"",.404,190,40,1,0)"
^XMB(3.9,166,2,1642,0)="1^DELETE ALL MAIL ACCESS^3"
^XMB(3.9,166,2,1643,0)="""KRN"",.404,190,40,1,1)"
^XMB(3.9,166,2,1644,0)="9.21"
^XMB(3.9,166,2,1645,0)="""KRN"",.404,190,40,1,2)"
^XMB(3.9,166,2,1646,0)="2,27^3^2,3"
^XMB(3.9,166,2,1647,0)="""KRN"",.404,190,40,1,3)"
^XMB(3.9,166,2,1648,0)="YES"
^XMB(3.9,166,2,1649,0)="""KRN"",.404,190,40,2,0)"
^XMB(3.9,166,2,1650,0)="2^DELETE KEYS AT TERMINATION^3"
^XMB(3.9,166,2,1651,0)="""KRN"",.404,190,40,2,1)"
^XMB(3.9,166,2,1652,0)="9.22"
^XMB(3.9,166,2,1653,0)="""KRN"",.404,190,40,2,2)"
^XMB(3.9,166,2,1654,0)="4,31^3^4,3"
^XMB(3.9,166,2,1655,0)="""KRN"",.404,190,40,2,3)"
^XMB(3.9,166,2,1656,0)="YES"
^XMB(3.9,166,2,1657,0)="""KRN"",.84,30810.21,-1)"
^XMB(3.9,166,2,1658,0)="0^1"
^XMB(3.9,166,2,1659,0)="""KRN"",.84,30810.21,0)"
^XMB(3.9,166,2,1660,0)="30810.21^1^^KERNEL^Null Verify code."
^XMB(3.9,166,2,1661,0)="""KRN"",.84,30810.21,1,0)"
^XMB(3.9,166,2,1662,0)="^.842^1^1^3060531^^"
^XMB(3.9,166,2,1663,0)="""KRN"",.84,30810.21,1,1,0)"
^XMB(3.9,166,2,1664,0)="Patch XU*8*419 changes it so null verify codes are not allowed."
^XMB(3.9,166,2,1665,0)="""KRN"",.84,30810.21,2,0)"
^XMB(3.9,166,2,1666,0)="^^1^1^3060531^"
^XMB(3.9,166,2,1667,0)="""KRN"",.84,30810.21,2,1,0)"
^XMB(3.9,166,2,1668,0)="Null Verify Code Not Allowed."
^XMB(3.9,166,2,1669,0)="""KRN"",.84,30810.45,-1)"
^XMB(3.9,166,2,1670,0)="0^2"
^XMB(3.9,166,2,1671,0)="""KRN"",.84,30810.45,0)"
^XMB(3.9,166,2,1672,0)="30810.45^2^^KERNEL^Already signed on"
^XMB(3.9,166,2,1673,0)="""KRN"",.84,30810.45,2,0)"
^XMB(3.9,166,2,1674,0)="^^1^1^3030306^"
^XMB(3.9,166,2,1675,0)="""KRN"",.84,30810.45,2,1,0)"
^XMB(3.9,166,2,1676,0)="You are ALREADY signed on. And may not sign on again."
^XMB(3.9,166,2,1677,0)="""KRN"",9.2,138,-1)"
^XMB(3.9,166,2,1678,0)="0^1"
^XMB(3.9,166,2,1679,0)="""KRN"",9.2,138,0)"
^XMB(3.9,166,2,1680,0)="XUSER COMPUTER ACCOUNT^Batch user access document^2891010^^"
^XMB(3.9,166,2,1681,0)="""KRN"",9.2,138,1,0)"
^XMB(3.9,166,2,1682,0)="^^91^91^3060614^"
^XMB(3.9,166,2,1683,0)="""KRN"",9.2,138,1,1,0)"
^XMB(3.9,166,2,1684,0)="|INDENT(10)| |WIDTH(70)|"
^XMB(3.9,166,2,1685,0)="""KRN"",9.2,138,1,2,0)"
^XMB(3.9,166,2,1686,0)="|NOWRAP|"
^XMB(3.9,166,2,1687,0)="""KRN"",9.2,138,1,3,0)"
^XMB(3.9,166,2,1688,0)="|CENTER(""USER ACCOUNT NOTIFICATION"")|"
^XMB(3.9,166,2,1689,0)="""KRN"",9.2,138,1,4,0)"
^XMB(3.9,166,2,1690,0)=" "
^XMB(3.9,166,2,1691,0)="""KRN"",9.2,138,1,5,0)"
^XMB(3.9,166,2,1692,0)="|CENTER(""Department of Veterans Affairs"")|"
^XMB(3.9,166,2,1693,0)="""KRN"",9.2,138,1,6,0)"
^XMB(3.9,166,2,1694,0)="|CENTER(""SuperStar VAMC"")|"
^XMB(3.9,166,2,1695,0)="""KRN"",9.2,138,1,7,0)"
^XMB(3.9,166,2,1696,0)="|CENTER(""123 anywhere"")|"
^XMB(3.9,166,2,1697,0)="""KRN"",9.2,138,1,8,0)"
^XMB(3.9,166,2,1698,0)="|CENTER(""anytown, state, zip"")|"
^XMB(3.9,166,2,1699,0)="""KRN"",9.2,138,1,9,0)"
^XMB(3.9,166,2,1700,0)="|XUVT(12)|"
^XMB(3.9,166,2,1701,0)="""KRN"",9.2,138,1,10,0)"
^XMB(3.9,166,2,1702,0)="|#20.2|"
^XMB(3.9,166,2,1703,0)="""KRN"",9.2,138,1,11,0)"
^XMB(3.9,166,2,1704,0)="|#29|   (|#29:MAIL SYMBOL|)"
^XMB(3.9,166,2,1705,0)="""KRN"",9.2,138,1,12,0)"
^XMB(3.9,166,2,1706,0)="|XUVT(19)|"
^XMB(3.9,166,2,1707,0)="""KRN"",9.2,138,1,13,0)"
^XMB(3.9,166,2,1708,0)="---"
^XMB(3.9,166,2,1709,0)="""KRN"",9.2,138,1,14,0)"
^XMB(3.9,166,2,1710,0)=" |WRAP|"
^XMB(3.9,166,2,1711,0)="""KRN"",9.2,138,1,15,0)"
^XMB(3.9,166,2,1712,0)=" "
^XMB(3.9,166,2,1713,0)="""KRN"",9.2,138,1,16,0)"
^XMB(3.9,166,2,1714,0)=" "
^XMB(3.9,166,2,1715,0)="""KRN"",9.2,138,1,17,0)"
^XMB(3.9,166,2,1716,0)="A user account has been created in your name to enable you to access"
^XMB(3.9,166,2,1717,0)="""KRN"",9.2,138,1,18,0)"
^XMB(3.9,166,2,1718,0)="on-line clinical and/or administrative data required to perform your"
^XMB(3.9,166,2,1719,0)="""KRN"",9.2,138,1,19,0)"
^XMB(3.9,166,2,1720,0)="duties as an employee of the Department of Veterans Affairs.  Please read"
^XMB(3.9,166,2,1721,0)="""KRN"",9.2,138,1,20,0)"
^XMB(3.9,166,2,1722,0)="the enclosed NEW USER INFORMATION before you attempt your first log-on to"
^XMB(3.9,166,2,1723,0)="""KRN"",9.2,138,1,21,0)"
^XMB(3.9,166,2,1724,0)="the system.  Questions about access should be referred to the AIS"
^XMB(3.9,166,2,1725,0)="""KRN"",9.2,138,1,22,0)"
^XMB(3.9,166,2,1726,0)="Application Coordinator in your service, your facility Information"
^XMB(3.9,166,2,1727,0)="""KRN"",9.2,138,1,23,0)"
^XMB(3.9,166,2,1728,0)="Security Officer (ISO), or your IRM Service."
^XMB(3.9,166,2,1729,0)="""KRN"",9.2,138,1,24,0)"
^XMB(3.9,166,2,1730,0)=" "
^XMB(3.9,166,2,1731,0)="""KRN"",9.2,138,1,25,0)"
^XMB(3.9,166,2,1732,0)=" |NOWRAP|"
^XMB(3.9,166,2,1733,0)="""KRN"",9.2,138,1,26,0)"
^XMB(3.9,166,2,1734,0)="Your Computer Access Coordinator is:"
^XMB(3.9,166,2,1735,0)="""KRN"",9.2,138,1,27,0)"
^XMB(3.9,166,2,1736,0)="|TAB(36)||#29:COORDINATOR|"
^XMB(3.9,166,2,1737,0)="""KRN"",9.2,138,1,28,0)"
^XMB(3.9,166,2,1738,0)="|TAB(36)||#29:COORDINATOR:ROOM|"
^XMB(3.9,166,2,1739,0)="""KRN"",9.2,138,1,29,0)"
^XMB(3.9,166,2,1740,0)="|TAB(36)||#29:COORDINATOR:OFFICE PHONE|"
^XMB(3.9,166,2,1741,0)="""KRN"",9.2,138,1,30,0)"
^XMB(3.9,166,2,1742,0)="Your Facility Information Security Officer:"
^XMB(3.9,166,2,1743,0)="""KRN"",9.2,138,1,31,0)"
^XMB(3.9,166,2,1744,0)="|TAB(36)|"
^XMB(3.9,166,2,1745,0)="""KRN"",9.2,138,1,32,0)"
^XMB(3.9,166,2,1746,0)="Your Alternate Information Security Officer:"
^XMB(3.9,166,2,1747,0)="""KRN"",9.2,138,1,33,0)"
^XMB(3.9,166,2,1748,0)="|TAB(36)|"
^XMB(3.9,166,2,1749,0)="""KRN"",9.2,138,1,34,0)"
^XMB(3.9,166,2,1750,0)="|XUVT(41)|"
^XMB(3.9,166,2,1751,0)="""KRN"",9.2,138,1,35,0)"
^XMB(3.9,166,2,1752,0)="---"
^XMB(3.9,166,2,1753,0)="""KRN"",9.2,138,1,36,0)"
^XMB(3.9,166,2,1754,0)="|XUVT(49)|"
^XMB(3.9,166,2,1755,0)="""KRN"",9.2,138,1,37,0)"
^XMB(3.9,166,2,1756,0)="|TAB(45)|Access Code: |VAR(""XUU"")|"
^XMB(3.9,166,2,1757,0)="""KRN"",9.2,138,1,38,0)"
^XMB(3.9,166,2,1758,0)="|TAB(45)|Verify Code: |VAR(""XUU2"")|"
^XMB(3.9,166,2,1759,0)="""KRN"",9.2,138,1,39,0)"
^XMB(3.9,166,2,1760,0)="|TOP|"
^XMB(3.9,166,2,1761,0)="""KRN"",9.2,138,1,40,0)"
^XMB(3.9,166,2,1762,0)="|INDENT(5)||WIDTH(75)||NOWRAP|"
^XMB(3.9,166,2,1763,0)="""KRN"",9.2,138,1,41,0)"
^XMB(3.9,166,2,1764,0)="|CENTER(""COMPUTER ACCOUNT ACCESS POLICY"")|"
^XMB(3.9,166,2,1765,0)="""KRN"",9.2,138,1,42,0)"
^XMB(3.9,166,2,1766,0)=" "
^XMB(3.9,166,2,1767,0)="""KRN"",9.2,138,1,43,0)"
^XMB(3.9,166,2,1768,0)="|CENTER(""Department of Veterans Affairs"")|"
^XMB(3.9,166,2,1769,0)="""KRN"",9.2,138,1,44,0)"
^XMB(3.9,166,2,1770,0)="|CENTER(""Your VA Facility"")|"
^XMB(3.9,166,2,1771,0)="""KRN"",9.2,138,1,45,0)"
^XMB(3.9,166,2,1772,0)="|XUVT(6)|"
^XMB(3.9,166,2,1773,0)="""KRN"",9.2,138,1,46,0)"
^XMB(3.9,166,2,1774,0)="|#20.2|"
^XMB(3.9,166,2,1775,0)="""KRN"",9.2,138,1,47,0)"
^XMB(3.9,166,2,1776,0)="|#29|   (|#29:MAIL SYMBOL|)"
^XMB(3.9,166,2,1777,0)="""KRN"",9.2,138,1,48,0)"
^XMB(3.9,166,2,1778,0)="|INDENT(1)||WIDTH(77)||WRAP|"
^XMB(3.9,166,2,1779,0)="""KRN"",9.2,138,1,49,0)"
^XMB(3.9,166,2,1780,0)=" "
^XMB(3.9,166,2,1781,0)="""KRN"",9.2,138,1,50,0)"
^XMB(3.9,166,2,1782,0)="As an authorized user of VHA automated information systems (AISs) and"
^XMB(3.9,166,2,1783,0)="""KRN"",9.2,138,1,51,0)"
^XMB(3.9,166,2,1784,0)="having access to data stored in them, I will be given sufficient access to"
^XMB(3.9,166,2,1785,0)="""KRN"",9.2,138,1,52,0)"
^XMB(3.9,166,2,1786,0)="perform my assigned duties.  I will use this access ONLY for its intended"
^XMB(3.9,166,2,1787,0)="""KRN"",9.2,138,1,53,0)"
^XMB(3.9,166,2,1788,0)="purpose and understand the following policies that apply to VA data and"
^XMB(3.9,166,2,1789,0)="""KRN"",9.2,138,1,54,0)"
^XMB(3.9,166,2,1790,0)="computer systems:"
^XMB(3.9,166,2,1791,0)="""KRN"",9.2,138,1,55,0)"
^XMB(3.9,166,2,1792,0)=" "
^XMB(3.9,166,2,1793,0)="""KRN"",9.2,138,1,56,0)"
^XMB(3.9,166,2,1794,0)="I agree to safeguard all passwords (e.g., Access/Verify codes, electronic"
^XMB(3.9,166,2,1795,0)="""KRN"",9.2,138,1,57,0)"
^XMB(3.9,166,2,1796,0)="signature codes) assigned to me and am strictly prohibited from disclosing these"
^XMB(3.9,166,2,1797,0)="""KRN"",9.2,138,1,58,0)"
^XMB(3.9,166,2,1798,0)="codes to anyone including family, friends, fellow workers, supervisor(s), and"
^XMB(3.9,166,2,1799,0)="""KRN"",9.2,138,1,59,0)"
^XMB(3.9,166,2,1800,0)="subordinates for ANY reason."
^XMB(3.9,166,2,1801,0)="""KRN"",9.2,138,1,60,0)"
^XMB(3.9,166,2,1802,0)=" "
^XMB(3.9,166,2,1803,0)="""KRN"",9.2,138,1,61,0)"
^XMB(3.9,166,2,1804,0)="I understand that I may be held accountable for all entries/changes made"
^XMB(3.9,166,2,1805,0)="""KRN"",9.2,138,1,62,0)"
^XMB(3.9,166,2,1806,0)="to any government AIS using my passwords."
^XMB(3.9,166,2,1807,0)="""KRN"",9.2,138,1,63,0)"
^XMB(3.9,166,2,1808,0)=" "
^XMB(3.9,166,2,1809,0)="""KRN"",9.2,138,1,64,0)"
^XMB(3.9,166,2,1810,0)="I am aware of the regulations and facility AIS security policies designed"
^XMB(3.9,166,2,1811,0)="""KRN"",9.2,138,1,65,0)"
^XMB(3.9,166,2,1812,0)="to ensure the confidentiality of all sensitive information.  I am aware"
^XMB(3.9,166,2,1813,0)="""KRN"",9.2,138,1,66,0)"
^XMB(3.9,166,2,1814,0)="that information about patients or employees is confidential and"
^XMB(3.9,166,2,1815,0)="""KRN"",9.2,138,1,67,0)"
^XMB(3.9,166,2,1816,0)="protected from unauthorized disclosure by law.  I understand that my"
^XMB(3.9,166,2,1817,0)="""KRN"",9.2,138,1,68,0)"
^XMB(3.9,166,2,1818,0)="obligation to protect VA information does not end with either the"
^XMB(3.9,166,2,1819,0)="""KRN"",9.2,138,1,69,0)"
^XMB(3.9,166,2,1820,0)="termination of my access to this facility's systems or with the"
^XMB(3.9,166,2,1821,0)="""KRN"",9.2,138,1,70,0)"
^XMB(3.9,166,2,1822,0)="termination of my government employment."
^XMB(3.9,166,2,1823,0)="""KRN"",9.2,138,1,71,0)"
^XMB(3.9,166,2,1824,0)=" "
^XMB(3.9,166,2,1825,0)="""KRN"",9.2,138,1,72,0)"
^XMB(3.9,166,2,1826,0)="I will exercise common sense and good judgment in the use of electronic"
^XMB(3.9,166,2,1827,0)="""KRN"",9.2,138,1,73,0)"
^XMB(3.9,166,2,1828,0)="mail.  I understand that electronic mail is not inherently confidential"
^XMB(3.9,166,2,1829,0)="""KRN"",9.2,138,1,74,0)"
^XMB(3.9,166,2,1830,0)="and I have no expectation of privacy in using it.  I understand that"
^XMB(3.9,166,2,1831,0)="""KRN"",9.2,138,1,75,0)"
^XMB(3.9,166,2,1832,0)="technical or administrative problems may create situations which requires"
^XMB(3.9,166,2,1833,0)="""KRN"",9.2,138,1,76,0)"
^XMB(3.9,166,2,1834,0)="viewing of my messages.  I also understand that facility management"
^XMB(3.9,166,2,1835,0)="""KRN"",9.2,138,1,77,0)"
^XMB(3.9,166,2,1836,0)="officials may authorize access to my electronic mail messages whenever"
^XMB(3.9,166,2,1837,0)="""KRN"",9.2,138,1,78,0)"
^XMB(3.9,166,2,1838,0)="there is a legitimate purpose for such access."
^XMB(3.9,166,2,1839,0)="""KRN"",9.2,138,1,79,0)"
^XMB(3.9,166,2,1840,0)=" "
^XMB(3.9,166,2,1841,0)="""KRN"",9.2,138,1,80,0)"
^XMB(3.9,166,2,1842,0)="I understand that a violation of this notice constitutes disregard of a"
^XMB(3.9,166,2,1843,0)="""KRN"",9.2,138,1,81,0)"
^XMB(3.9,166,2,1844,0)="local and/or VHA policy and will result in appropriate disciplinary action"
^XMB(3.9,166,2,1845,0)="""KRN"",9.2,138,1,82,0)"
^XMB(3.9,166,2,1846,0)="as defined in VA employee conduct Regulations (VAR 820(b)) as well as"
^XMB(3.9,166,2,1847,0)="""KRN"",9.2,138,1,83,0)"
^XMB(3.9,166,2,1848,0)="suspension/termination of access privileges."
^XMB(3.9,166,2,1849,0)="""KRN"",9.2,138,1,84,0)"
^XMB(3.9,166,2,1850,0)=" "
^XMB(3.9,166,2,1851,0)="""KRN"",9.2,138,1,85,0)"
^XMB(3.9,166,2,1852,0)="I affirm with my signature that I have read, understand, and agree to"
^XMB(3.9,166,2,1853,0)="""KRN"",9.2,138,1,86,0)"
^XMB(3.9,166,2,1854,0)="fulfill the provisions of this User Access notice."
^XMB(3.9,166,2,1855,0)="""KRN"",9.2,138,1,87,0)"
^XMB(3.9,166,2,1856,0)=" "
^XMB(3.9,166,2,1857,0)="""KRN"",9.2,138,1,88,0)"
^XMB(3.9,166,2,1858,0)="|INDENT(5)||WIDTH(75)||NOWRAP|"
^XMB(3.9,166,2,1859,0)="""KRN"",9.2,138,1,89,0)"
^XMB(3.9,166,2,1860,0)="Signature:________________________"
^XMB(3.9,166,2,1861,0)="""KRN"",9.2,138,1,90,0)"
^XMB(3.9,166,2,1862,0)="          |#20.2| |#29|"
^XMB(3.9,166,2,1863,0)="""KRN"",9.2,138,1,91,0)"
^XMB(3.9,166,2,1864,0)="RETURN THIS FORM TO: IRMS - NEW ACCTS (xxx/xxx)"
^XMB(3.9,166,2,1865,0)="""KRN"",9.2,138,2,0)"
^XMB(3.9,166,2,1866,0)="^9.22A^0^0"
^XMB(3.9,166,2,1867,0)="""KRN"",19,1152,-1)"
^XMB(3.9,166,2,1868,0)="0^1"
^XMB(3.9,166,2,1869,0)="""KRN"",19,1152,0)"
^XMB(3.9,166,2,1870,0)="XU NOP MENU^Do nothing menu^^M^^^^^^^^KERNEL^y"
^XMB(3.9,166,2,1871,0)="""KRN"",19,1152,1,0)"
^XMB(3.9,166,2,1872,0)="^^2^2^3051227^"
^XMB(3.9,166,2,1873,0)="""KRN"",19,1152,1,1,0)"
^XMB(3.9,166,2,1874,0)="This Menu is just a place holder for some special access methods."
^XMB(3.9,166,2,1875,0)="""KRN"",19,1152,1,2,0)"
^XMB(3.9,166,2,1876,0)="DO NOT PLACE ANY NEW ITEMS IN THE MENU multiple."
^XMB(3.9,166,2,1877,0)="""KRN"",19,1152,99)"
^XMB(3.9,166,2,1878,0)="60262,49610"
^XMB(3.9,166,2,1879,0)="""KRN"",19,1152,""U"")"
^XMB(3.9,166,2,1880,0)="DO NOTHING MENU"
^XMB(3.9,166,2,1881,0)="""MBREQ"")"
^XMB(3.9,166,2,1882,0)="0"
^XMB(3.9,166,2,1883,0)="""ORD"",1,9.2)"
^XMB(3.9,166,2,1884,0)="9.2;1;;;HELP^XPDTA1;HLPF1^XPDIA1;HLPE1^XPDIA1;HLPF2^XPDIA1;;HLPDEL^XPDIA1"
^XMB(3.9,166,2,1885,0)="""ORD"",1,9.2,0)"
^XMB(3.9,166,2,1886,0)="HELP FRAME"
^XMB(3.9,166,2,1887,0)="""ORD"",8,.403)"
^XMB(3.9,166,2,1888,0)=".403;8;;;EDEOUT^DIFROMSO(.403,DA,"""",XPDA);FPRE^DIFROMSI(.403,"""",XPDA);EPRE^DIFROMSI(.403,DA,$E(""N"",$G(XPDNEW)),XPDA,"""",OLDA);;EPOST^DIFROMSI(.403,DA,"""",XPDA);DEL^DIFROMSK(.403,"""",%)"
^XMB(3.9,166,2,1889,0)="""ORD"",8,.403,0)"
^XMB(3.9,166,2,1890,0)="FORM"
^XMB(3.9,166,2,1891,0)="""ORD"",9,.84)"
^XMB(3.9,166,2,1892,0)=".84;9;;;EDEOUT^DIFROMSO(.84,DA,"""",XPDA);FPRE^DIFROMSI(.84,"""",XPDA);EPRE^DIFROMSI(.84,DA,"""",XPDA,"""",OLDA);;EPOST^DIFROMSI(.84,DA,"""",XPDA);DEL^DIFROMSK(.84,"""",%)"
^XMB(3.9,166,2,1893,0)="""ORD"",9,.84,0)"
^XMB(3.9,166,2,1894,0)="DIALOG"
^XMB(3.9,166,2,1895,0)="""ORD"",18,19)"
^XMB(3.9,166,2,1896,0)="19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA"
^XMB(3.9,166,2,1897,0)="""ORD"",18,19,0)"
^XMB(3.9,166,2,1898,0)="OPTION"
^XMB(3.9,166,2,1899,0)="""PKG"",3,-1)"
^XMB(3.9,166,2,1900,0)="1^1"
^XMB(3.9,166,2,1901,0)="""PKG"",3,0)"
^XMB(3.9,166,2,1902,0)="KERNEL^XU^SIGN-ON, SECURITY, MENU DRIVER, DEVICES, TASKMAN^"
^XMB(3.9,166,2,1903,0)="""PKG"",3,20,0)"
^XMB(3.9,166,2,1904,0)="^9.402P^^0"
^XMB(3.9,166,2,1905,0)="""PKG"",3,22,0)"
^XMB(3.9,166,2,1906,0)="^9.49I^1^1"
^XMB(3.9,166,2,1907,0)="""PKG"",3,22,1,0)"
^XMB(3.9,166,2,1908,0)="8.0^3051215^2970507^.5"
^XMB(3.9,166,2,1909,0)="""PKG"",3,22,1,""PAH"",1,0)"
^XMB(3.9,166,2,1910,0)="419^3060906"
^XMB(3.9,166,2,1911,0)="""PKG"",3,22,1,""PAH"",1,1,0)"
^XMB(3.9,166,2,1912,0)="^^2^2^3060906"
^XMB(3.9,166,2,1913,0)="""PKG"",3,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,166,2,1914,0)="Please refer to the Description in the FORUM Patch Module for details."
^XMB(3.9,166,2,1915,0)="""PKG"",3,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,166,2,1916,0)="XU*8*419  C&A Remediation by pre-expiring new verify code."
^XMB(3.9,166,2,1917,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,166,2,1918,0)="Y"
^XMB(3.9,166,2,1919,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,166,2,1920,0)="^D REP^XPDH"
^XMB(3.9,166,2,1921,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,166,2,1922,0)="Shall I write over your |FLAG| File"
^XMB(3.9,166,2,1923,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,166,2,1924,0)="YES"
^XMB(3.9,166,2,1925,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,166,2,1926,0)="D XPF1^XPDIQ"
^XMB(3.9,166,2,1927,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,166,2,1928,0)="Y"
^XMB(3.9,166,2,1929,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,166,2,1930,0)="^D DTA^XPDH"
^XMB(3.9,166,2,1931,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,166,2,1932,0)="Want my data |FLAG| yours"
^XMB(3.9,166,2,1933,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,166,2,1934,0)="YES"
^XMB(3.9,166,2,1935,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,166,2,1936,0)="D XPF2^XPDIQ"
^XMB(3.9,166,2,1937,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,166,2,1938,0)="YO"
^XMB(3.9,166,2,1939,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,166,2,1940,0)="^D INHIBIT^XPDH"
^XMB(3.9,166,2,1941,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,166,2,1942,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,166,2,1943,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,166,2,1944,0)="YES"
^XMB(3.9,166,2,1945,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,166,2,1946,0)="D XPI1^XPDIQ"
^XMB(3.9,166,2,1947,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,166,2,1948,0)="PO^VA(200,:EM"
^XMB(3.9,166,2,1949,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,166,2,1950,0)="^D MG^XPDH"
^XMB(3.9,166,2,1951,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,166,2,1952,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,166,2,1953,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,166,2,1954,0)=""
^XMB(3.9,166,2,1955,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,166,2,1956,0)="D XPM1^XPDIQ"
^XMB(3.9,166,2,1957,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,166,2,1958,0)="Y"
^XMB(3.9,166,2,1959,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,166,2,1960,0)="^D MENU^XPDH"
^XMB(3.9,166,2,1961,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,166,2,1962,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,166,2,1963,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,166,2,1964,0)="YES"
^XMB(3.9,166,2,1965,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,166,2,1966,0)="D XPO1^XPDIQ"
^XMB(3.9,166,2,1967,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,166,2,1968,0)="Y"
^XMB(3.9,166,2,1969,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,166,2,1970,0)="^D OPT^XPDH"
^XMB(3.9,166,2,1971,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,166,2,1972,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,166,2,1973,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,166,2,1974,0)="YES"
^XMB(3.9,166,2,1975,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,166,2,1976,0)="D XPZ1^XPDIQ"
^XMB(3.9,166,2,1977,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,166,2,1978,0)="Y"
^XMB(3.9,166,2,1979,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,166,2,1980,0)="^D RTN^XPDH"
^XMB(3.9,166,2,1981,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,166,2,1982,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,166,2,1983,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,166,2,1984,0)="NO"
^XMB(3.9,166,2,1985,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,166,2,1986,0)="D XPZ2^XPDIQ"
^XMB(3.9,166,2,1987,0)="""RTN"")"
^XMB(3.9,166,2,1988,0)="10"
^XMB(3.9,166,2,1989,0)="""RTN"",""XUS"")"
^XMB(3.9,166,2,1990,0)="0^4^B30134409^B29056184"
^XMB(3.9,166,2,1991,0)="""RTN"",""XUS"",1,0)"
^XMB(3.9,166,2,1992,0)="XUS ;SFISC/STAFF - SIGNON ;5/31/2006"
^XMB(3.9,166,2,1993,0)="""RTN"",""XUS"",2,0)"
^XMB(3.9,166,2,1994,0)=" ;;8.0;KERNEL;**16,26,49,59,149,180,265,337,419**;Jul 10, 1995;Build 5"
^XMB(3.9,166,2,1995,0)="""RTN"",""XUS"",3,0)"
^XMB(3.9,166,2,1996,0)=" ;Sign-on message numbers are 30810.51 to 30810.99"
^XMB(3.9,166,2,1997,0)="""RTN"",""XUS"",4,0)"
^XMB(3.9,166,2,1998,0)=" S U=""^"" D INTRO^XUS1A()"
^XMB(3.9,166,2,1999,0)="""RTN"",""XUS"",5,0)"
^XMB(3.9,166,2,2000,0)=" K  K ^XUTL(""ZISPARAM"",$I)"
^XMB(3.9,166,2,2001,0)="""RTN"",""XUS"",6,0)"
^XMB(3.9,166,2,2002,0)=" S U=""^"",XQXFLG(""GUI"")=""^"""
^XMB(3.9,166,2,2003,0)="""RTN"",""XUS"",7,0)"
^XMB(3.9,166,2,2004,0)=" W ! S $Y=0 D SET1(1) I POP S XUM=3 G NO ;Sets DUZ(""LANG"")"
^XMB(3.9,166,2,2005,0)="""RTN"",""XUS"",8,0)"
^XMB(3.9,166,2,2006,0)=" S XUSTMP(51)=$$EZBLD^DIALOG(30810.51),XUSTMP(52)=$$EZBLD^DIALOG(30810.52)"
^XMB(3.9,166,2,2007,0)="""RTN"",""XUS"",9,0)"
^XMB(3.9,166,2,2008,0)=" W !!,""Volume set: "",$P(XUENV,U,4),""  UCI: "",XUCI,""  Device: "",$I W:$S('$D(IO(""ZIO"")):0,1:$I'=IO(""ZIO"")) "" ("",IO(""ZIO""),"")"" W !"
^XMB(3.9,166,2,2009,0)="""RTN"",""XUS"",10,0)"
^XMB(3.9,166,2,2010,0)="RESTART ;"
^XMB(3.9,166,2,2011,0)="""RTN"",""XUS"",11,0)"
^XMB(3.9,166,2,2012,0)=" S XUM=$$SET2 G:XUM NO"
^XMB(3.9,166,2,2013,0)="""RTN"",""XUS"",12,0)"
^XMB(3.9,166,2,2014,0)=" I $P(XU1,U,2)]"""" S XUM=$$DEVPAS() I XUM G H:XUM<0,NO"
^XMB(3.9,166,2,2015,0)="""RTN"",""XUS"",13,0)"
^XMB(3.9,166,2,2016,0)=" ;S PGM=$P(XOPT,U,8),XUA=$P(PGM,""["",1) I XUA]"""" X XUEON G NEXT^XUS1"
^XMB(3.9,166,2,2017,0)="""RTN"",""XUS"",14,0)"
^XMB(3.9,166,2,2018,0)="A S (XUSER(0),XUSER(1),XQUR)="""""
^XMB(3.9,166,2,2019,0)="""RTN"",""XUS"",15,0)"
^XMB(3.9,166,2,2020,0)=" ;Check for locked IP/device."
^XMB(3.9,166,2,2021,0)="""RTN"",""XUS"",16,0)"
^XMB(3.9,166,2,2022,0)=" I $$LKCHECK^XUSTZIP() S XUM=7,XUFAC=$P(XOPT,U,2),XUHALT=1 G NO"
^XMB(3.9,166,2,2023,0)="""RTN"",""XUS"",17,0)"
^XMB(3.9,166,2,2024,0)=" ;Auto Sign-on check"
^XMB(3.9,166,2,2025,0)="""RTN"",""XUS"",18,0)"
^XMB(3.9,166,2,2026,0)=" S X=$$AUTOXUS^XUS1B() I X>0 S DUZ=X D USER(DUZ) W !!,"">> Auto Sign-on: "",$P(XUSER(0),U),"" <<<"",! G B"
^XMB(3.9,166,2,2027,0)="""RTN"",""XUS"",19,0)"
^XMB(3.9,166,2,2028,0)=" X XUEOFF S AV=$$ASKAV() X XUEON I AV=""^;^"" G H ;Get out"
^XMB(3.9,166,2,2029,0)="""RTN"",""XUS"",20,0)"
^XMB(3.9,166,2,2030,0)=" I AV[""MAIL-BOX"",AV["";XMR"" S (XUA,PGM)=""XMR"",XMCHAN=$P($P(AV,"";""),"" "",2),DUZ=.5 G XMR^XUSCLEAN"
^XMB(3.9,166,2,2031,0)="""RTN"",""XUS"",21,0)"
^XMB(3.9,166,2,2032,0)=" S XQUR=$P(AV,"";"",3)"
^XMB(3.9,166,2,2033,0)="""RTN"",""XUS"",22,0)"
^XMB(3.9,166,2,2034,0)=" S DUZ=$$CHECKAV(AV) K AV"
^XMB(3.9,166,2,2035,0)="""RTN"",""XUS"",23,0)"
^XMB(3.9,166,2,2036,0)=" S XUM=$$UVALID() G:XUM NO"
^XMB(3.9,166,2,2037,0)="""RTN"",""XUS"",24,0)"
^XMB(3.9,166,2,2038,0)="B K XUF,%1 S XUF=0 X XUEON"
^XMB(3.9,166,2,2039,0)="""RTN"",""XUS"",25,0)"
^XMB(3.9,166,2,2040,0)=" I DUZ D USER^XUS1 G:XUM NO"
^XMB(3.9,166,2,2041,0)="""RTN"",""XUS"",26,0)"
^XMB(3.9,166,2,2042,0)=" I DUZ D SEC^XUS3:($D(^%ZIS(1,XUDEV,""TIME""))!$D(^(95))) G:XUM NO"
^XMB(3.9,166,2,2043,0)="""RTN"",""XUS"",27,0)"
^XMB(3.9,166,2,2044,0)=" G NO:'DUZ"
^XMB(3.9,166,2,2045,0)="""RTN"",""XUS"",28,0)"
^XMB(3.9,166,2,2046,0)=" S DTIME=$P(XOPT,U,10),X=$S(DUZ(""BUF""):"""",1:""NO-"")_""TYPE-AHEAD"" X:$D(^%ZOSF(X)) ^(X)"
^XMB(3.9,166,2,2047,0)="""RTN"",""XUS"",29,0)"
^XMB(3.9,166,2,2048,0)=" D TT^XUS3:$G(XUTT)"
^XMB(3.9,166,2,2049,0)="""RTN"",""XUS"",30,0)"
^XMB(3.9,166,2,2050,0)=" D CLRFAC^XUS3($G(IO(""IP"")))"
^XMB(3.9,166,2,2051,0)="""RTN"",""XUS"",31,0)"
^XMB(3.9,166,2,2052,0)="PGM ;"
^XMB(3.9,166,2,2053,0)="""RTN"",""XUS"",32,0)"
^XMB(3.9,166,2,2054,0)=" S Y=+$G(^%ZIS(1,XUDEV,201)) I Y>0,$$CHK S XQY=Y G OK"
^XMB(3.9,166,2,2055,0)="""RTN"",""XUS"",33,0)"
^XMB(3.9,166,2,2056,0)=" S Y=+$G(^VA(200,DUZ,201)) I Y>0,$$CHK S XQY=Y G OK"
^XMB(3.9,166,2,2057,0)="""RTN"",""XUS"",34,0)"
^XMB(3.9,166,2,2058,0)=" I $D(DUZ(""ASH"")) S Y=$O(^DIC(19,""B"",""XU NOP MENU"",0)) I Y>0 S XQY=Y G OK ;rwf 403"
^XMB(3.9,166,2,2059,0)="""RTN"",""XUS"",35,0)"
^XMB(3.9,166,2,2060,0)=" S XUM=16"
^XMB(3.9,166,2,2061,0)="""RTN"",""XUS"",36,0)"
^XMB(3.9,166,2,2062,0)=" G NO"
^XMB(3.9,166,2,2063,0)="""RTN"",""XUS"",37,0)"
^XMB(3.9,166,2,2064,0)=" ;"
^XMB(3.9,166,2,2065,0)="""RTN"",""XUS"",38,0)"
^XMB(3.9,166,2,2066,0)="OK D CHEK^XQ83"
^XMB(3.9,166,2,2067,0)="""RTN"",""XUS"",39,0)"
^XMB(3.9,166,2,2068,0)=" S (XUA,PGM)=""XQ"""
^XMB(3.9,166,2,2069,0)="""RTN"",""XUS"",40,0)"
^XMB(3.9,166,2,2070,0)=" G NEXT^XUS1"
^XMB(3.9,166,2,2071,0)="""RTN"",""XUS"",41,0)"
^XMB(3.9,166,2,2072,0)=" ;"
^XMB(3.9,166,2,2073,0)="""RTN"",""XUS"",42,0)"
^XMB(3.9,166,2,2074,0)="CHK() ;Check that option exeist and LOCK"
^XMB(3.9,166,2,2075,0)="""RTN"",""XUS"",43,0)"
^XMB(3.9,166,2,2076,0)=" I $D(^DIC(19,Y,0)),$S($P(^(0),U,6)="""":1,1:$D(^XUSEC($P(^(0),U,6),DUZ))) Q 1"
^XMB(3.9,166,2,2077,0)="""RTN"",""XUS"",44,0)"
^XMB(3.9,166,2,2078,0)=" Q 0"
^XMB(3.9,166,2,2079,0)="""RTN"",""XUS"",45,0)"
^XMB(3.9,166,2,2080,0)=" ;"
^XMB(3.9,166,2,2081,0)="""RTN"",""XUS"",46,0)"
^XMB(3.9,166,2,2082,0)="LC S X=$$UP(X)"
^XMB(3.9,166,2,2083,0)="""RTN"",""XUS"",47,0)"
^XMB(3.9,166,2,2084,0)=" Q"
^XMB(3.9,166,2,2085,0)="""RTN"",""XUS"",48,0)"
^XMB(3.9,166,2,2086,0)="UP(%) Q $TR(%,""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ"")"
^XMB(3.9,166,2,2087,0)="""RTN"",""XUS"",49,0)"
^XMB(3.9,166,2,2088,0)=" ;"
^XMB(3.9,166,2,2089,0)="""RTN"",""XUS"",50,0)"
^XMB(3.9,166,2,2090,0)="FAC ;Failed access"
^XMB(3.9,166,2,2091,0)="""RTN"",""XUS"",51,0)"
^XMB(3.9,166,2,2092,0)=" S:'DUZ XUF(.1)=$E(%1)"
^XMB(3.9,166,2,2093,0)="""RTN"",""XUS"",52,0)"
^XMB(3.9,166,2,2094,0)=" S:XUF=2 XUF(.2)=XUF(.2)+1,XUF(XUF(.2))=%1 S %1="""" Q"
^XMB(3.9,166,2,2095,0)="""RTN"",""XUS"",53,0)"
^XMB(3.9,166,2,2096,0)=" Q"
^XMB(3.9,166,2,2097,0)="""RTN"",""XUS"",54,0)"
^XMB(3.9,166,2,2098,0)="NO ;Tell why didn't get on"
^XMB(3.9,166,2,2099,0)="""RTN"",""XUS"",55,0)"
^XMB(3.9,166,2,2100,0)=" S X=$$NO^XUS3() G RESTART:'X ;fall into exit"
^XMB(3.9,166,2,2101,0)="""RTN"",""XUS"",56,0)"
^XMB(3.9,166,2,2102,0)="H ;Exit point for all applications"
^XMB(3.9,166,2,2103,0)="""RTN"",""XUS"",57,0)"
^XMB(3.9,166,2,2104,0)="C ;CLOSE"
^XMB(3.9,166,2,2105,0)="""RTN"",""XUS"",58,0)"
^XMB(3.9,166,2,2106,0)=" G ^XUSCLEAN"
^XMB(3.9,166,2,2107,0)="""RTN"",""XUS"",59,0)"
^XMB(3.9,166,2,2108,0)=" ;"
^XMB(3.9,166,2,2109,0)="""RTN"",""XUS"",60,0)"
^XMB(3.9,166,2,2110,0)="ON X ^%ZOSF(""EON"") Q"
^XMB(3.9,166,2,2111,0)="""RTN"",""XUS"",61,0)"
^XMB(3.9,166,2,2112,0)=" ;"
^XMB(3.9,166,2,2113,0)="""RTN"",""XUS"",62,0)"
^XMB(3.9,166,2,2114,0)="ASKAV(PRE) ;Ask and return Access;Verify code, Turn off echo before calling"
^XMB(3.9,166,2,2115,0)="""RTN"",""XUS"",63,0)"
^XMB(3.9,166,2,2116,0)=" N X,Y S PRE=$G(PRE)"
^XMB(3.9,166,2,2117,0)="""RTN"",""XUS"",64,0)"
^XMB(3.9,166,2,2118,0)=" F  W !,PRE,XUSTMP(51) S X=$$ACCEPT S:X=""^"" X=""^;^"" Q:$L(X)"
^XMB(3.9,166,2,2119,0)="""RTN"",""XUS"",65,0)"
^XMB(3.9,166,2,2120,0)=" S X=$TR(X,$C(9),"";"") ;Convert TAB to ; to match GUI."
^XMB(3.9,166,2,2121,0)="""RTN"",""XUS"",66,0)"
^XMB(3.9,166,2,2122,0)=" I $P(X,"" "")=""MAIL-BOX"" S X=X_"";XMR"""
^XMB(3.9,166,2,2123,0)="""RTN"",""XUS"",67,0)"
^XMB(3.9,166,2,2124,0)=" I $E(X,1,7)=""~~TOK~~"" Q X ;Use CCOW token"
^XMB(3.9,166,2,2125,0)="""RTN"",""XUS"",68,0)"
^XMB(3.9,166,2,2126,0)=" I '$L($P(X,"";"",2)) W !,PRE,XUSTMP(52) S Y=$$ACCEPT S:Y=""^"" X=""^;"" S $P(X,"";"",2)=Y"
^XMB(3.9,166,2,2127,0)="""RTN"",""XUS"",69,0)"
^XMB(3.9,166,2,2128,0)=" Q X"
^XMB(3.9,166,2,2129,0)="""RTN"",""XUS"",70,0)"
^XMB(3.9,166,2,2130,0)=" ;"
^XMB(3.9,166,2,2131,0)="""RTN"",""XUS"",71,0)"
^XMB(3.9,166,2,2132,0)=" ;Timeout used by XUSTZ call."
^XMB(3.9,166,2,2133,0)="""RTN"",""XUS"",72,0)"
^XMB(3.9,166,2,2134,0)="ACCEPT(TO) ;Read A/V and echo '*' char."
^XMB(3.9,166,2,2135,0)="""RTN"",""XUS"",73,0)"
^XMB(3.9,166,2,2136,0)=" ;Have the Read write to flush the buffer on some systems"
^XMB(3.9,166,2,2137,0)="""RTN"",""XUS"",74,0)"
^XMB(3.9,166,2,2138,0)=" N C,A,E K DUOUT S A="""",TO=$G(TO,60),E=0"
^XMB(3.9,166,2,2139,0)="""RTN"",""XUS"",75,0)"
^XMB(3.9,166,2,2140,0)=" F  D  Q:E"
^XMB(3.9,166,2,2141,0)="""RTN"",""XUS"",76,0)"
^XMB(3.9,166,2,2142,0)=" . R """",*C:TO S:('$T) DUOUT=1 S:('$T)!(C=94) A=""^"""
^XMB(3.9,166,2,2143,0)="""RTN"",""XUS"",77,0)"
^XMB(3.9,166,2,2144,0)=" . I (A=""^"")!(C=13)!($L(A)>60) S E=1 Q"
^XMB(3.9,166,2,2145,0)="""RTN"",""XUS"",78,0)"
^XMB(3.9,166,2,2146,0)=" . I C=127 Q:'$L(A)  S A=$E(A,1,$L(A)-1) W $C(8,32,8) Q"
^XMB(3.9,166,2,2147,0)="""RTN"",""XUS"",79,0)"
^XMB(3.9,166,2,2148,0)=" . S A=A_$C(C) W *42"
^XMB(3.9,166,2,2149,0)="""RTN"",""XUS"",80,0)"
^XMB(3.9,166,2,2150,0)=" . Q"
^XMB(3.9,166,2,2151,0)="""RTN"",""XUS"",81,0)"
^XMB(3.9,166,2,2152,0)=" Q A"
^XMB(3.9,166,2,2153,0)="""RTN"",""XUS"",82,0)"
^XMB(3.9,166,2,2154,0)=" ; "
^XMB(3.9,166,2,2155,0)="""RTN"",""XUS"",83,0)"
^XMB(3.9,166,2,2156,0)="CHECKAV(X1) ;Check A/V code return DUZ or Zero. (Called from XUSRB)"
^XMB(3.9,166,2,2157,0)="""RTN"",""XUS"",84,0)"
^XMB(3.9,166,2,2158,0)=" N %,%1,X,Y,IEN,DA,DIK"
^XMB(3.9,166,2,2159,0)="""RTN"",""XUS"",85,0)"
^XMB(3.9,166,2,2160,0)=" S IEN=0"
^XMB(3.9,166,2,2161,0)="""RTN"",""XUS"",86,0)"
^XMB(3.9,166,2,2162,0)=" ;Start CCOW"
^XMB(3.9,166,2,2163,0)="""RTN"",""XUS"",87,0)"
^XMB(3.9,166,2,2164,0)=" I $E(X1,1,7)=""~~TOK~~"" D  Q:IEN>0 IEN"
^XMB(3.9,166,2,2165,0)="""RTN"",""XUS"",88,0)"
^XMB(3.9,166,2,2166,0)=" . I $E(X1,8,9)=""~1"" S IEN=$$CHKASH^XUSRB4($E(X1,8,255))"
^XMB(3.9,166,2,2167,0)="""RTN"",""XUS"",89,0)"
^XMB(3.9,166,2,2168,0)=" . I $E(X1,8,9)=""~2"" S IEN=$$CHKCCOW^XUSRB4($E(X1,8,255))"
^XMB(3.9,166,2,2169,0)="""RTN"",""XUS"",90,0)"
^XMB(3.9,166,2,2170,0)=" . Q"
^XMB(3.9,166,2,2171,0)="""RTN"",""XUS"",91,0)"
^XMB(3.9,166,2,2172,0)=" ;End CCOW"
^XMB(3.9,166,2,2173,0)="""RTN"",""XUS"",92,0)"
^XMB(3.9,166,2,2174,0)=" S X1=$$UP(X1) S:X1["":"" XUTT=1,X1=$TR(X1,"":"")"
^XMB(3.9,166,2,2175,0)="""RTN"",""XUS"",93,0)"
^XMB(3.9,166,2,2176,0)=" S X=$P(X1,"";"") Q:X=""^"" -1 S:XUF %1=""Access: ""_X"
^XMB(3.9,166,2,2177,0)="""RTN"",""XUS"",94,0)"
^XMB(3.9,166,2,2178,0)=" Q:X'?1.20ANP 0"
^XMB(3.9,166,2,2179,0)="""RTN"",""XUS"",95,0)"
^XMB(3.9,166,2,2180,0)=" S X=$$EN^XUSHSH(X) I '$D(^VA(200,""A"",X)) D LBAV Q 0"
^XMB(3.9,166,2,2181,0)="""RTN"",""XUS"",96,0)"
^XMB(3.9,166,2,2182,0)=" S %1="""",IEN=$O(^VA(200,""A"",X,0)),XUF(.3)=IEN D USER(IEN)"
^XMB(3.9,166,2,2183,0)="""RTN"",""XUS"",97,0)"
^XMB(3.9,166,2,2184,0)=" S X=$P(X1,"";"",2) S:XUF %1=""Verify: ""_X S X=$$EN^XUSHSH(X)"
^XMB(3.9,166,2,2185,0)="""RTN"",""XUS"",98,0)"
^XMB(3.9,166,2,2186,0)=" I $P(XUSER(1),""^"",2)'=X D LBAV Q 0"
^XMB(3.9,166,2,2187,0)="""RTN"",""XUS"",99,0)"
^XMB(3.9,166,2,2188,0)=" I $G(XUFAC(1)) S DIK=""^XUSEC(4,"",DA=XUFAC(1) D ^DIK"
^XMB(3.9,166,2,2189,0)="""RTN"",""XUS"",100,0)"
^XMB(3.9,166,2,2190,0)=" Q IEN"
^XMB(3.9,166,2,2191,0)="""RTN"",""XUS"",101,0)"
^XMB(3.9,166,2,2192,0)="LBAV ;Log Bad AV"
^XMB(3.9,166,2,2193,0)="""RTN"",""XUS"",102,0)"
^XMB(3.9,166,2,2194,0)=" D:XUF FAC"
^XMB(3.9,166,2,2195,0)="""RTN"",""XUS"",103,0)"
^XMB(3.9,166,2,2196,0)=" I IEN S X=$P($G(^VA(200,IEN,1.1)),U,2)+1,$P(^(1.1),""^"",2)=X"
^XMB(3.9,166,2,2197,0)="""RTN"",""XUS"",104,0)"
^XMB(3.9,166,2,2198,0)=" Q"
^XMB(3.9,166,2,2199,0)="""RTN"",""XUS"",105,0)"
^XMB(3.9,166,2,2200,0)=" ;"
^XMB(3.9,166,2,2201,0)="""RTN"",""XUS"",106,0)"
^XMB(3.9,166,2,2202,0)="USER(IX) ;Build XUSER"
^XMB(3.9,166,2,2203,0)="""RTN"",""XUS"",107,0)"
^XMB(3.9,166,2,2204,0)=" S XUSER(0)=$G(^VA(200,+IX,0)),XUSER(1)=$G(^(.1)),XUSER(1.1)=$G(^(1.1))"
^XMB(3.9,166,2,2205,0)="""RTN"",""XUS"",108,0)"
^XMB(3.9,166,2,2206,0)=" Q"
^XMB(3.9,166,2,2207,0)="""RTN"",""XUS"",109,0)"
^XMB(3.9,166,2,2208,0)=" ;"
^XMB(3.9,166,2,2209,0)="""RTN"",""XUS"",110,0)"
^XMB(3.9,166,2,2210,0)="XUVOL ;Setup XUENV, XUCI,XQVOL,XUVOL"
^XMB(3.9,166,2,2211,0)="""RTN"",""XUS"",111,0)"
^XMB(3.9,166,2,2212,0)=" S U=""^"" D GETENV^%ZOSV S XUENV=Y,XUCI=$P(Y,U,1),XQVOL=$P(Y,U,2)"
^XMB(3.9,166,2,2213,0)="""RTN"",""XUS"",112,0)"
^XMB(3.9,166,2,2214,0)=" S X=$O(^XTV(8989.3,1,4,""B"",XQVOL,0)),XUVOL=$S(X>0:^XTV(8989.3,1,4,X,0),1:XQVOL_""^y^1"")"
^XMB(3.9,166,2,2215,0)="""RTN"",""XUS"",113,0)"
^XMB(3.9,166,2,2216,0)=" Q"
^XMB(3.9,166,2,2217,0)="""RTN"",""XUS"",114,0)"
^XMB(3.9,166,2,2218,0)=" ;"
^XMB(3.9,166,2,2219,0)="""RTN"",""XUS"",115,0)"
^XMB(3.9,166,2,2220,0)="XOPT ;Setup initial XOPT"
^XMB(3.9,166,2,2221,0)="""RTN"",""XUS"",116,0)"
^XMB(3.9,166,2,2222,0)=" S XOPT=$S($D(^XTV(8989.3,1,""XUS"")):^(""XUS""),1:"""")"
^XMB(3.9,166,2,2223,0)="""RTN"",""XUS"",117,0)"
^XMB(3.9,166,2,2224,0)=" F I=2:1:15 I $P(XOPT,U,I)="""" S $P(XOPT,U,I)=$P(""^5^900^1^1^^^^1^300^^^^N^90"",U,I)"
^XMB(3.9,166,2,2225,0)="""RTN"",""XUS"",118,0)"
^XMB(3.9,166,2,2226,0)=" Q"
^XMB(3.9,166,2,2227,0)="""RTN"",""XUS"",119,0)"
^XMB(3.9,166,2,2228,0)=" ;"
^XMB(3.9,166,2,2229,0)="""RTN"",""XUS"",120,0)"
^XMB(3.9,166,2,2230,0)="SET1(FLAG) ;Setup parameters (also called from XUSRB)"
^XMB(3.9,166,2,2231,0)="""RTN"",""XUS"",121,0)"
^XMB(3.9,166,2,2232,0)=" N %"
^XMB(3.9,166,2,2233,0)="""RTN"",""XUS"",122,0)"
^XMB(3.9,166,2,2234,0)=" S U=""^"",XUEON=^%ZOSF(""EON""),XUEOFF=^(""EOFF"")"
^XMB(3.9,166,2,2235,0)="""RTN"",""XUS"",123,0)"
^XMB(3.9,166,2,2236,0)=" D XUVOL,XOPT S DUZ(""LANG"")=$P(XOPT,U,7) S:$P(XUVOL,U,6)=""y"" XRTL=XUCI_"",""_XQVOL"
^XMB(3.9,166,2,2237,0)="""RTN"",""XUS"",124,0)"
^XMB(3.9,166,2,2238,0)=" K ^XUTL(""XQ"",$J) S XUF=0,XUDEV=0,DUZ=0,DUZ(0)=""@"",IOS=0,ION="""""
^XMB(3.9,166,2,2239,0)="""RTN"",""XUS"",125,0)"
^XMB(3.9,166,2,2240,0)=" I FLAG S %ZIS=""L"",IOP=""HOME"" D ^%ZIS Q:POP"
^XMB(3.9,166,2,2241,0)="""RTN"",""XUS"",126,0)"
^XMB(3.9,166,2,2242,0)=" S XUDEV=IOS,XUIOP=ION D:$D(XRTL) T0^%ZOSV"
^XMB(3.9,166,2,2243,0)="""RTN"",""XUS"",127,0)"
^XMB(3.9,166,2,2244,0)=" D GETFAC^XUS3($G(IO(""IP"")))"
^XMB(3.9,166,2,2245,0)="""RTN"",""XUS"",128,0)"
^XMB(3.9,166,2,2246,0)=" S %=$P(XOPT,U,14)"
^XMB(3.9,166,2,2247,0)="""RTN"",""XUS"",129,0)"
^XMB(3.9,166,2,2248,0)=" I ""N""'[% D"
^XMB(3.9,166,2,2249,0)="""RTN"",""XUS"",130,0)"
^XMB(3.9,166,2,2250,0)=" . S XUF=(%[""R"")+1,XUF(.1)="""",XUF(.2)=0,XUF(.3)=0"
^XMB(3.9,166,2,2251,0)="""RTN"",""XUS"",131,0)"
^XMB(3.9,166,2,2252,0)=" . I %[""D"" S:$D(^XTV(8989.3,1,4.33,""B"",XUDEV))[0 XUF=0"
^XMB(3.9,166,2,2253,0)="""RTN"",""XUS"",132,0)"
^XMB(3.9,166,2,2254,0)=" Q"
^XMB(3.9,166,2,2255,0)="""RTN"",""XUS"",133,0)"
^XMB(3.9,166,2,2256,0)="SET2() ;EF. Return error code (also called from XUSRB)"
^XMB(3.9,166,2,2257,0)="""RTN"",""XUS"",134,0)"
^XMB(3.9,166,2,2258,0)=" N %,X"
^XMB(3.9,166,2,2259,0)="""RTN"",""XUS"",135,0)"
^XMB(3.9,166,2,2260,0)=" S XUNOW=$$HTFM^XLFDT($H),DT=$P(XUNOW,""."")"
^XMB(3.9,166,2,2261,0)="""RTN"",""XUS"",136,0)"
^XMB(3.9,166,2,2262,0)=" K DUZ,XUSER"
^XMB(3.9,166,2,2263,0)="""RTN"",""XUS"",137,0)"
^XMB(3.9,166,2,2264,0)=" S (DUZ,DUZ(2))=0,(DUZ(0),DUZ(""AG""),XUSER(0),XUSER(1),XUTT,%UCI)="""""
^XMB(3.9,166,2,2265,0)="""RTN"",""XUS"",138,0)"
^XMB(3.9,166,2,2266,0)=" S %=$$INHIBIT^XUSRB() I %>0 Q %"
^XMB(3.9,166,2,2267,0)="""RTN"",""XUS"",139,0)"
^XMB(3.9,166,2,2268,0)=" S X=$G(^%ZIS(1,XUDEV,""XUS"")),XU1=$G(^(1))"
^XMB(3.9,166,2,2269,0)="""RTN"",""XUS"",140,0)"
^XMB(3.9,166,2,2270,0)=" I $L(X) F I=1:1:15 I $L($P(X,U,I)) S $P(XOPT,U,I)=$P(X,U,I)"
^XMB(3.9,166,2,2271,0)="""RTN"",""XUS"",141,0)"
^XMB(3.9,166,2,2272,0)=" S DTIME=600"
^XMB(3.9,166,2,2273,0)="""RTN"",""XUS"",142,0)"
^XMB(3.9,166,2,2274,0)=" I '$P(XOPT,U,11),$D(^%ZIS(1,XUDEV,90)),^(90)>2800000,^(90)'>DT Q 8"
^XMB(3.9,166,2,2275,0)="""RTN"",""XUS"",143,0)"
^XMB(3.9,166,2,2276,0)=" I $D(XRT0) S XRTN=""XUS"" D T1^%ZOSV"
^XMB(3.9,166,2,2277,0)="""RTN"",""XUS"",144,0)"
^XMB(3.9,166,2,2278,0)=" Q 0"
^XMB(3.9,166,2,2279,0)="""RTN"",""XUS"",145,0)"
^XMB(3.9,166,2,2280,0)=" ;"
^XMB(3.9,166,2,2281,0)="""RTN"",""XUS"",146,0)"
^XMB(3.9,166,2,2282,0)="UVALID() ;EF. Is it valid for this user to sign on?"
^XMB(3.9,166,2,2283,0)="""RTN"",""XUS"",147,0)"
^XMB(3.9,166,2,2284,0)=" I DUZ'>0 Q 4"
^XMB(3.9,166,2,2285,0)="""RTN"",""XUS"",148,0)"
^XMB(3.9,166,2,2286,0)=" I $P(XUSER(1.1),U,5),$P(XUSER(1.1),U,5)>XUNOW S XUM(0)=$$FMTE^XLFDT($P(XUSER(1.1),U,5),""2PM"") Q 18 ;User locked until"
^XMB(3.9,166,2,2287,0)="""RTN"",""XUS"",149,0)"
^XMB(3.9,166,2,2288,0)=" I $P(XUSER(0),U,11),$P(XUSER(0),U,11)'>DT Q 11 ;Access Terminated"
^XMB(3.9,166,2,2289,0)="""RTN"",""XUS"",150,0)"
^XMB(3.9,166,2,2290,0)=" I $P(XUSER(0),U,7) Q 5 ;Disuser flag set"
^XMB(3.9,166,2,2291,0)="""RTN"",""XUS"",151,0)"
^XMB(3.9,166,2,2292,0)=" I '$L($P(XUSER(1),U,2)) Q 21 ;419"
^XMB(3.9,166,2,2293,0)="""RTN"",""XUS"",152,0)"
^XMB(3.9,166,2,2294,0)=" Q 0"
^XMB(3.9,166,2,2295,0)="""RTN"",""XUS"",153,0)"
^XMB(3.9,166,2,2296,0)=" ;"
^XMB(3.9,166,2,2297,0)="""RTN"",""XUS"",154,0)"
^XMB(3.9,166,2,2298,0)="DEVPAS() ;EF. Ask device password"
^XMB(3.9,166,2,2299,0)="""RTN"",""XUS"",155,0)"
^XMB(3.9,166,2,2300,0)=" X XUEOFF W !,""DEVICE PASSWORD: "" R X:60 X XUEON"
^XMB(3.9,166,2,2301,0)="""RTN"",""XUS"",156,0)"
^XMB(3.9,166,2,2302,0)=" S X=$E(X,1,30) S:'$T X=""^"" D LC Q:X[""^"" -1 I $P(XU1,U,2)'=X S:XUF %1=""Device: ""_X D:XUF FAC Q 6"
^XMB(3.9,166,2,2303,0)="""RTN"",""XUS"",157,0)"
^XMB(3.9,166,2,2304,0)=" Q 0"
^XMB(3.9,166,2,2305,0)="""RTN"",""XUS"",158,0)"
^XMB(3.9,166,2,2306,0)=" ;"
^XMB(3.9,166,2,2307,0)="""RTN"",""XUS1"")"
^XMB(3.9,166,2,2308,0)="0^6^B25338963^B25051927"
^XMB(3.9,166,2,2309,0)="""RTN"",""XUS1"",1,0)"
^XMB(3.9,166,2,2310,0)="XUS1 ;SF-ISC/STAFF - SIGNON ;05/04/2005  15:37"
^XMB(3.9,166,2,2311,0)="""RTN"",""XUS1"",2,0)"
^XMB(3.9,166,2,2312,0)=" ;;8.0;KERNEL;**9,59,111,165,150,252,265,419**;Jul 10, 1995;Build 5"
^XMB(3.9,166,2,2313,0)="""RTN"",""XUS1"",3,0)"
^XMB(3.9,166,2,2314,0)=" ;User setup"
^XMB(3.9,166,2,2315,0)="""RTN"",""XUS1"",4,0)"
^XMB(3.9,166,2,2316,0)="USER ;"
^XMB(3.9,166,2,2317,0)="""RTN"",""XUS1"",5,0)"
^XMB(3.9,166,2,2318,0)=" K XUTEXT S XUM=$$USER^XUS1A(),$Y=0"
^XMB(3.9,166,2,2319,0)="""RTN"",""XUS1"",6,0)"
^XMB(3.9,166,2,2320,0)=" ;Show post sign-on text"
^XMB(3.9,166,2,2321,0)="""RTN"",""XUS1"",7,0)"
^XMB(3.9,166,2,2322,0)=" F I=0:0 S I=$O(XUTEXT(I)) Q:I'>0  D:$Y>20  W:$E(XUTEXT(I),1)=""!"" ! W $E(XUTEXT(I),2,999)"
^XMB(3.9,166,2,2323,0)="""RTN"",""XUS1"",8,0)"
^XMB(3.9,166,2,2324,0)=" . N DIR S DIR(0)=""E"",DIR(""A"")=""Enter RETURN to continue"" D ^DIR W @IOF Q"
^XMB(3.9,166,2,2325,0)="""RTN"",""XUS1"",9,0)"
^XMB(3.9,166,2,2326,0)=" ;if XUM=9 multi sign-on NOT allowed"
^XMB(3.9,166,2,2327,0)="""RTN"",""XUS1"",10,0)"
^XMB(3.9,166,2,2328,0)=" I XUM=9 W !!,?8,$$EZBLD^DIALOG(30810.45)"
^XMB(3.9,166,2,2329,0)="""RTN"",""XUS1"",11,0)"
^XMB(3.9,166,2,2330,0)=" Q:XUM  ;User can't sign-on."
^XMB(3.9,166,2,2331,0)="""RTN"",""XUS1"",12,0)"
^XMB(3.9,166,2,2332,0)="SET ;"
^XMB(3.9,166,2,2333,0)="""RTN"",""XUS1"",13,0)"
^XMB(3.9,166,2,2334,0)=" S Y=$$CHKDIV() I $P(Y,U,2)>0,$D(^DIC(4,0)) D ASKDIV"
^XMB(3.9,166,2,2335,0)="""RTN"",""XUS1"",14,0)"
^XMB(3.9,166,2,2336,0)=" S DUZ(2)=+Y D DUZ^XUS1A"
^XMB(3.9,166,2,2337,0)="""RTN"",""XUS1"",15,0)"
^XMB(3.9,166,2,2338,0)=" ;Check verify code"
^XMB(3.9,166,2,2339,0)="""RTN"",""XUS1"",16,0)"
^XMB(3.9,166,2,2340,0)=" I $$VCHG D CVC^XUS2 G:$D(DUOUT) H^XUS"
^XMB(3.9,166,2,2341,0)="""RTN"",""XUS1"",17,0)"
^XMB(3.9,166,2,2342,0)=" S:$P(XOPT,""^"",5) XUTT=1 ;Ask Device"
^XMB(3.9,166,2,2343,0)="""RTN"",""XUS1"",18,0)"
^XMB(3.9,166,2,2344,0)=" D ENQ ;Inquire to Terminal Type"
^XMB(3.9,166,2,2345,0)="""RTN"",""XUS1"",19,0)"
^XMB(3.9,166,2,2346,0)=" Q"
^XMB(3.9,166,2,2347,0)="""RTN"",""XUS1"",20,0)"
^XMB(3.9,166,2,2348,0)=" ;"
^XMB(3.9,166,2,2349,0)="""RTN"",""XUS1"",21,0)"
^XMB(3.9,166,2,2350,0)="VCHG() ;Check if the Verify code needs to be changed"
^XMB(3.9,166,2,2351,0)="""RTN"",""XUS1"",22,0)"
^XMB(3.9,166,2,2352,0)=" I $D(DUZ(""ASH"")) Q 0 ;rwf 403"
^XMB(3.9,166,2,2353,0)="""RTN"",""XUS1"",23,0)"
^XMB(3.9,166,2,2354,0)=" D:'$D(XUSER) USER^XUS(DUZ)"
^XMB(3.9,166,2,2355,0)="""RTN"",""XUS1"",24,0)"
^XMB(3.9,166,2,2356,0)=" Q:'$L($P(XUSER(1),U,2)) 1 ;Null VC"
^XMB(3.9,166,2,2357,0)="""RTN"",""XUS1"",25,0)"
^XMB(3.9,166,2,2358,0)=" I $$BROKER^XWBLIB Q:$P(XUSER(0),U,8)=1 0 ;VC never expires, only for BROKER"
^XMB(3.9,166,2,2359,0)="""RTN"",""XUS1"",26,0)"
^XMB(3.9,166,2,2360,0)=" Q (XUSER(1)+$P(XOPT,U,15))'>$H ;Time to change"
^XMB(3.9,166,2,2361,0)="""RTN"",""XUS1"",27,0)"
^XMB(3.9,166,2,2362,0)=" ;"
^XMB(3.9,166,2,2363,0)="""RTN"",""XUS1"",28,0)"
^XMB(3.9,166,2,2364,0)="ASKDIV ;Ask the user for the Division, return Y"
^XMB(3.9,166,2,2365,0)="""RTN"",""XUS1"",29,0)"
^XMB(3.9,166,2,2366,0)=" N X"
^XMB(3.9,166,2,2367,0)="""RTN"",""XUS1"",30,0)"
^XMB(3.9,166,2,2368,0)=" S DIC=""^VA(200,DUZ,2,"",DIC(0)=""AEMQ"",DIC(""P"")=""200.02P"",X=$O(^VA(200,DUZ,2,""AX1"",1,0)) S:X>0 DIC(""B"")=$P($$NS^XUAF4(X),U)"
^XMB(3.9,166,2,2369,0)="""RTN"",""XUS1"",31,0)"
^XMB(3.9,166,2,2370,0)=" D ^DIC I Y'>0 W !,*7,""You must select one."" G ASKDIV"
^XMB(3.9,166,2,2371,0)="""RTN"",""XUS1"",32,0)"
^XMB(3.9,166,2,2372,0)=" Q"
^XMB(3.9,166,2,2373,0)="""RTN"",""XUS1"",33,0)"
^XMB(3.9,166,2,2374,0)=" ;"
^XMB(3.9,166,2,2375,0)="""RTN"",""XUS1"",34,0)"
^XMB(3.9,166,2,2376,0)="CHKDIV(CD) ;ef,sr Check if user needs to select Division."
^XMB(3.9,166,2,2377,0)="""RTN"",""XUS1"",35,0)"
^XMB(3.9,166,2,2378,0)=" N %,%1,%2,%3,%4"
^XMB(3.9,166,2,2379,0)="""RTN"",""XUS1"",36,0)"
^XMB(3.9,166,2,2380,0)=" S %=$O(^VA(200,DUZ,2,0)),%1=$O(^(%))"
^XMB(3.9,166,2,2381,0)="""RTN"",""XUS1"",37,0)"
^XMB(3.9,166,2,2382,0)=" I %1,$D(CD) D"
^XMB(3.9,166,2,2383,0)="""RTN"",""XUS1"",38,0)"
^XMB(3.9,166,2,2384,0)=" . S %2=0,%3=0,CD=0"
^XMB(3.9,166,2,2385,0)="""RTN"",""XUS1"",39,0)"
^XMB(3.9,166,2,2386,0)=" . F  S %2=$O(^VA(200,DUZ,2,%2)) Q:%2'>0  S %4=^(%2,0),%3=%3+1,CD(%3)=%2_""^""_$$NS^XUAF4(%2)_$S($P(%4,""^"",2):""^1"",1:"""")"
^XMB(3.9,166,2,2387,0)="""RTN"",""XUS1"",40,0)"
^XMB(3.9,166,2,2388,0)=" . S CD=%3"
^XMB(3.9,166,2,2389,0)="""RTN"",""XUS1"",41,0)"
^XMB(3.9,166,2,2390,0)=" Q %_""^""_%1"
^XMB(3.9,166,2,2391,0)="""RTN"",""XUS1"",42,0)"
^XMB(3.9,166,2,2392,0)=" ;"
^XMB(3.9,166,2,2393,0)="""RTN"",""XUS1"",43,0)"
^XMB(3.9,166,2,2394,0)="ENQ ;Get terminal type"
^XMB(3.9,166,2,2395,0)="""RTN"",""XUS1"",44,0)"
^XMB(3.9,166,2,2396,0)=" S XUT1="""" I XUTT X XUEOFF R X:0 X ^%ZOSF(""TYPE-AHEAD"") W $C(27,91,99) R *X:2 I X=27 F  R X#1:2 S XUT1=XUT1_X Q:'$T!(X=""c"")"
^XMB(3.9,166,2,2397,0)="""RTN"",""XUS1"",45,0)"
^XMB(3.9,166,2,2398,0)=" I XUTT,(XUT1'[""["") R X:0 S XUT1="""" W *5 R *X:2 R:$T XUT1:2 S X=$S(X=6:""C-WYSE 75"",1:$C(X)_XUT1),XUT1="""""
^XMB(3.9,166,2,2399,0)="""RTN"",""XUS1"",46,0)"
^XMB(3.9,166,2,2400,0)=" X XUEON I XUTT,XUT1[""["" S Y=$O(^%ZIS(3.22,""B"",XUT1,0)) I Y>0 S X=$P($G(^%ZIS(3.22,Y,0)),""^"",2)"
^XMB(3.9,166,2,2401,0)="""RTN"",""XUS1"",47,0)"
^XMB(3.9,166,2,2402,0)=" I X?1.ANP S DIC=""^%ZIS(2,"",DIC(0)=""MO"" D ^DIC I Y>0 S XUIOP(1)=$P(Y,U,2),$P(XUIOP,"";"",2)=XUIOP(1),^VA(200,DUZ,1.2)=+Y"
^XMB(3.9,166,2,2403,0)="""RTN"",""XUS1"",48,0)"
^XMB(3.9,166,2,2404,0)=" I '$D(XUIOP(1)),$D(^VA(200,DUZ,1.2)) S X=+^(1.2) I X>0,$D(^%ZIS(2,X,0)) S $P(XUIOP,"";"",2)=$P(^(0),U)"
^XMB(3.9,166,2,2405,0)="""RTN"",""XUS1"",49,0)"
^XMB(3.9,166,2,2406,0)=" Q"
^XMB(3.9,166,2,2407,0)="""RTN"",""XUS1"",50,0)"
^XMB(3.9,166,2,2408,0)=" ;"
^XMB(3.9,166,2,2409,0)="""RTN"",""XUS1"",51,0)"
^XMB(3.9,166,2,2410,0)="NEXT ;Jump to the next routine"
^XMB(3.9,166,2,2411,0)="""RTN"",""XUS1"",52,0)"
^XMB(3.9,166,2,2412,0)=" S IOP=XUIOP D ^%ZIS D SAVE ;Save off device/user info"
^XMB(3.9,166,2,2413,0)="""RTN"",""XUS1"",53,0)"
^XMB(3.9,166,2,2414,0)=" S X=$G(^DISV(DUZ)) ;Add kill by session or day here"
^XMB(3.9,166,2,2415,0)="""RTN"",""XUS1"",54,0)"
^XMB(3.9,166,2,2416,0)=" S ^DISV(DUZ)=$H"
^XMB(3.9,166,2,2417,0)="""RTN"",""XUS1"",55,0)"
^XMB(3.9,166,2,2418,0)=" ;Do we need UCI jump anymore?"
^XMB(3.9,166,2,2419,0)="""RTN"",""XUS1"",56,0)"
^XMB(3.9,166,2,2420,0)=" S X=%UCI,N1=XUCI I PGM[""["" S X=$P(PGM,""["",2,4),PGM=$P(PGM,""["",1)"
^XMB(3.9,166,2,2421,0)="""RTN"",""XUS1"",57,0)"
^XMB(3.9,166,2,2422,0)=" S:X["""""""" X=$P(X,"""""""",2) S:X?.E1""]""&(X'[""["") X=$E(X,1,$L(X)-1) S XUM=14,XUM(0)=X"
^XMB(3.9,166,2,2423,0)="""RTN"",""XUS1"",58,0)"
^XMB(3.9,166,2,2424,0)=" S %UCI=X I ""PRODMGR""'[X,$D(^%ZOSF(""UCICHECK"")) X ^(""UCICHECK"") G NO:Y="""" S:N1=Y %UCI="""""
^XMB(3.9,166,2,2425,0)="""RTN"",""XUS1"",59,0)"
^XMB(3.9,166,2,2426,0)=" S XUM=15,XUM(0)=PGM G NO:PGM'?1AP.AN"
^XMB(3.9,166,2,2427,0)="""RTN"",""XUS1"",60,0)"
^XMB(3.9,166,2,2428,0)=" G NO:"":""_XUA_"":""'[("":""_PGM_"":"")"
^XMB(3.9,166,2,2429,0)="""RTN"",""XUS1"",61,0)"
^XMB(3.9,166,2,2430,0)=" D AUDIT"
^XMB(3.9,166,2,2431,0)="""RTN"",""XUS1"",62,0)"
^XMB(3.9,166,2,2432,0)=" S X=$S($D(^VA(200,DUZ,0)):$P($P(^(0),U),"",""),1:""Unk""),X=$E(X,1,10)_""_""_($J#10000) D SETENV^%ZOSV"
^XMB(3.9,166,2,2433,0)="""RTN"",""XUS1"",63,0)"
^XMB(3.9,166,2,2434,0)=" ;S X=$P(XOPT,U,16) X:X ^%ZOSF(""PRIORITY"")"
^XMB(3.9,166,2,2435,0)="""RTN"",""XUS1"",64,0)"
^XMB(3.9,166,2,2436,0)=" D LOG:DUZ,KILL"
^XMB(3.9,166,2,2437,0)="""RTN"",""XUS1"",65,0)"
^XMB(3.9,166,2,2438,0)=" I %UCI]"""" K ^XUTL(""XQ"",$J) S $P(^VA(200,DUZ,1.1),U,3)=0 G GO^%XUCI"
^XMB(3.9,166,2,2439,0)="""RTN"",""XUS1"",66,0)"
^XMB(3.9,166,2,2440,0)=" K ^XUTL(""OR"",$J),^UTILITY($J),%UCI"
^XMB(3.9,166,2,2441,0)="""RTN"",""XUS1"",67,0)"
^XMB(3.9,166,2,2442,0)=" G @(U_PGM)"
^XMB(3.9,166,2,2443,0)="""RTN"",""XUS1"",68,0)"
^XMB(3.9,166,2,2444,0)=" ;"
^XMB(3.9,166,2,2445,0)="""RTN"",""XUS1"",69,0)"
^XMB(3.9,166,2,2446,0)="SAVE ;"
^XMB(3.9,166,2,2447,0)="""RTN"",""XUS1"",70,0)"
^XMB(3.9,166,2,2448,0)=" S X=""DUZ"" F  S X=$Q(@X) Q:X=""""  I $D(@X) S ^XUTL(""XQ"",$J,$TR(X,""""""""))=@X"
^XMB(3.9,166,2,2449,0)="""RTN"",""XUS1"",71,0)"
^XMB(3.9,166,2,2450,0)=" F X=""DUZ"",""IO"",""IO(""""IP"""")"",""IO(""""CLNM"""")"",""XQVOL"" I $D(@X) S ^XUTL(""XQ"",$J,X)=@X"
^XMB(3.9,166,2,2451,0)="""RTN"",""XUS1"",72,0)"
^XMB(3.9,166,2,2452,0)=" D SAVEVAR^%ZIS ;Save the HOME device variables"
^XMB(3.9,166,2,2453,0)="""RTN"",""XUS1"",73,0)"
^XMB(3.9,166,2,2454,0)=" Q"
^XMB(3.9,166,2,2455,0)="""RTN"",""XUS1"",74,0)"
^XMB(3.9,166,2,2456,0)=" ;"
^XMB(3.9,166,2,2457,0)="""RTN"",""XUS1"",75,0)"
^XMB(3.9,166,2,2458,0)="LOG ;used by R/S and Broker"
^XMB(3.9,166,2,2459,0)="""RTN"",""XUS1"",76,0)"
^XMB(3.9,166,2,2460,0)=" N XP1,XP2"
^XMB(3.9,166,2,2461,0)="""RTN"",""XUS1"",77,0)"
^XMB(3.9,166,2,2462,0)=" S XP1=$$SLOG($P(XUVOL,U,1),,XUDEV,XUCI,$P(XUENV,U,3))"
^XMB(3.9,166,2,2463,0)="""RTN"",""XUS1"",78,0)"
^XMB(3.9,166,2,2464,0)=" S %=$$COOKIE($P(^VA(200,DUZ,0),U),XP1) I $L(%) S XQXFLG(""ZEBRA"")=XP1_""~""_%,$P(^XUSEC(0,XP1,0),U,13)=% L +^XWB(""SESSION"",XQXFLG(""ZEBRA"")):60"
^XMB(3.9,166,2,2465,0)="""RTN"",""XUS1"",79,0)"
^XMB(3.9,166,2,2466,0)=" S XP2=$G(^VA(200,DUZ,1.1)),XQXFLG(""LLOG"")=$P(XP2,U) ;Save for LOGIN templates"
^XMB(3.9,166,2,2467,0)="""RTN"",""XUS1"",80,0)"
^XMB(3.9,166,2,2468,0)=" S $P(XP2,""^"",1,3)=XP1_""^0^1"",$P(XP2,U,5)="""" ;Set last Sign-on"
^XMB(3.9,166,2,2469,0)="""RTN"",""XUS1"",81,0)"
^XMB(3.9,166,2,2470,0)=" S ^VA(200,DUZ,1.1)=XP2"
^XMB(3.9,166,2,2471,0)="""RTN"",""XUS1"",82,0)"
^XMB(3.9,166,2,2472,0)=" Q"
^XMB(3.9,166,2,2473,0)="""RTN"",""XUS1"",83,0)"
^XMB(3.9,166,2,2474,0)=" ;"
^XMB(3.9,166,2,2475,0)="""RTN"",""XUS1"",84,0)"
^XMB(3.9,166,2,2476,0)=" ;The other parameters are in the symbol table with known names."
^XMB(3.9,166,2,2477,0)="""RTN"",""XUS1"",85,0)"
^XMB(3.9,166,2,2478,0)=" ;P1=DUZ,P2=$I,P3=$J,P4=EXIT D/T,P5=VOLUME,P6=TASKMAN,P7=XUDEV,P8=UCI,P9=ZIO,P10=NODE,P11=IP,P12=CLNM,P13=HANDLE,P14=REMOTE SITE,P15=REMOTE IEN"
^XMB(3.9,166,2,2479,0)="""RTN"",""XUS1"",86,0)"
^XMB(3.9,166,2,2480,0)="SLOG(P5,P6,P7,P8,P10,P14,P15) ;"
^XMB(3.9,166,2,2481,0)="""RTN"",""XUS1"",87,0)"
^XMB(3.9,166,2,2482,0)=" N %,I,DA,DIK,XL1 S XL1=$$NOW^XLFDT"
^XMB(3.9,166,2,2483,0)="""RTN"",""XUS1"",88,0)"
^XMB(3.9,166,2,2484,0)=" S P5=$G(P5),P6=$G(P6),P7=$G(P7),P8=$G(P8),P10=$G(P10)"
^XMB(3.9,166,2,2485,0)="""RTN"",""XUS1"",89,0)"
^XMB(3.9,166,2,2486,0)=" F I=XL1:.00000001 L +^XUSEC(0,I):1 Q:'$D(^XUSEC(0,I))  L -^XUSEC(0,I)"
^XMB(3.9,166,2,2487,0)="""RTN"",""XUS1"",90,0)"
^XMB(3.9,166,2,2488,0)=" S ^XUSEC(0,I,0)=DUZ_""^""_$I_""^""_$J_""^^""_P5_""^""_P6_""^""_P7_""^""_P8_""^""_$G(IO(""ZIO""))_""^""_P10_""^""_$G(IO(""IP""))_""^""_$G(IO(""CLNM""))_$S($D(P14):""^^""_P14_""^""_P15,1:"""")"
^XMB(3.9,166,2,2489,0)="""RTN"",""XUS1"",91,0)"
^XMB(3.9,166,2,2490,0)=" L -^XUSEC(0,I)"
^XMB(3.9,166,2,2491,0)="""RTN"",""XUS1"",92,0)"
^XMB(3.9,166,2,2492,0)=" S $P(^XUSEC(0,0),""^"",3,4)=I_""^""_(1+$P(^XUSEC(0,0),""^"",4))"
^XMB(3.9,166,2,2493,0)="""RTN"",""XUS1"",93,0)"
^XMB(3.9,166,2,2494,0)=" S (XL1,DA)=I,DIK=""^XUSEC(0,"" D IX^DIK ;index new entry"
^XMB(3.9,166,2,2495,0)="""RTN"",""XUS1"",94,0)"
^XMB(3.9,166,2,2496,0)=" S ^XUTL(""XQ"",$J,0)=XL1 ;save for sign-off"
^XMB(3.9,166,2,2497,0)="""RTN"",""XUS1"",95,0)"
^XMB(3.9,166,2,2498,0)=" Q XL1"
^XMB(3.9,166,2,2499,0)="""RTN"",""XUS1"",96,0)"
^XMB(3.9,166,2,2500,0)=" ;"
^XMB(3.9,166,2,2501,0)="""RTN"",""XUS1"",97,0)"
^XMB(3.9,166,2,2502,0)="COOKIE(J1,J2) ;Call VAdeamon for a cookie"
^XMB(3.9,166,2,2503,0)="""RTN"",""XUS1"",98,0)"
^XMB(3.9,166,2,2504,0)=" N ZZ,%"
^XMB(3.9,166,2,2505,0)="""RTN"",""XUS1"",99,0)"
^XMB(3.9,166,2,2506,0)=" I $G(XQXFLG(""ZEBRA""))=-1 K XQXFLG(""ZEBRA"") Q """" ;Disabled"
^XMB(3.9,166,2,2507,0)="""RTN"",""XUS1"",100,0)"
^XMB(3.9,166,2,2508,0)=" Q:$G(IO(""IP""))="""" """" ;Not using Telnet"
^XMB(3.9,166,2,2509,0)="""RTN"",""XUS1"",101,0)"
^XMB(3.9,166,2,2510,0)=" ;"
^XMB(3.9,166,2,2511,0)="""RTN"",""XUS1"",102,0)"
^XMB(3.9,166,2,2512,0)=" S %=$$CMD^XWBCAGNT(.ZZ,""XWB CREATE HANDLE"",J1_""^""_J2) Q:'% """""
^XMB(3.9,166,2,2513,0)="""RTN"",""XUS1"",103,0)"
^XMB(3.9,166,2,2514,0)=" Q $G(ZZ(1))"
^XMB(3.9,166,2,2515,0)="""RTN"",""XUS1"",104,0)"
^XMB(3.9,166,2,2516,0)=" ;"
^XMB(3.9,166,2,2517,0)="""RTN"",""XUS1"",105,0)"
^XMB(3.9,166,2,2518,0)="AUDIT ;Set-up Audit info"
^XMB(3.9,166,2,2519,0)="""RTN"",""XUS1"",106,0)"
^XMB(3.9,166,2,2520,0)=" N I,I1,I2"
^XMB(3.9,166,2,2521,0)="""RTN"",""XUS1"",107,0)"
^XMB(3.9,166,2,2522,0)=" S I=$G(^XTV(8989.3,1,19)),I1=$P(I,U),I2=$P(I,U,2) Q:""asu""'[I1  I (I2>XUNOW)!($P(I,U,3)<XUNOW) Q"
^XMB(3.9,166,2,2523,0)="""RTN"",""XUS1"",108,0)"
^XMB(3.9,166,2,2524,0)=" I ""au""[I1 S:(I1=""a"")!($D(^XTV(8989.3,1,19.3,""B"",DUZ))>1) XQAUDIT=1 Q"
^XMB(3.9,166,2,2525,0)="""RTN"",""XUS1"",109,0)"
^XMB(3.9,166,2,2526,0)=" S XQAUDIT="""" F I=0:0 S I=$O(^XTV(8989.3,1,19.1,""B"",I)) Q:I'>0!($L(XQAUDIT)>245)  S XQAUDIT=XQAUDIT_""2^""_I_U"
^XMB(3.9,166,2,2527,0)="""RTN"",""XUS1"",110,0)"
^XMB(3.9,166,2,2528,0)=" S I1="""" F I=0:0 S I1=$O(^XTV(8989.3,1,19.2,""B"",I1)) Q:I1']""""!($L(XQAUDIT)>245)  S XQAUDIT=XQAUDIT_""3^""_I1_U"
^XMB(3.9,166,2,2529,0)="""RTN"",""XUS1"",111,0)"
^XMB(3.9,166,2,2530,0)=" Q"
^XMB(3.9,166,2,2531,0)="""RTN"",""XUS1"",112,0)"
^XMB(3.9,166,2,2532,0)=" ;"
^XMB(3.9,166,2,2533,0)="""RTN"",""XUS1"",113,0)"
^XMB(3.9,166,2,2534,0)="DD(Y) Q $$FMTE^XLFDT(Y,1)"
^XMB(3.9,166,2,2535,0)="""RTN"",""XUS1"",114,0)"
^XMB(3.9,166,2,2536,0)=" ;"
^XMB(3.9,166,2,2537,0)="""RTN"",""XUS1"",115,0)"
^XMB(3.9,166,2,2538,0)="KILL N %UCI,PGM,U,XQUR,XMCHAN G KILL1^XUSCLEAN"
^XMB(3.9,166,2,2539,0)="""RTN"",""XUS1"",116,0)"
^XMB(3.9,166,2,2540,0)=" Q"
^XMB(3.9,166,2,2541,0)="""RTN"",""XUS1"",117,0)"
^XMB(3.9,166,2,2542,0)="NO G NO^XUS"
^XMB(3.9,166,2,2543,0)="""RTN"",""XUS2"")"
^XMB(3.9,166,2,2544,0)="0^2^B47237337^B39049783"
^XMB(3.9,166,2,2545,0)="""RTN"",""XUS2"",1,0)"
^XMB(3.9,166,2,2546,0)="XUS2 ;SF/RWF - TO CHECK OR RETURN USER ATTRIBUTES ;05/15/2006"
^XMB(3.9,166,2,2547,0)="""RTN"",""XUS2"",2,0)"
^XMB(3.9,166,2,2548,0)=" ;;8.0;KERNEL;**59,180,313,419**;Jul 10, 1995;Build 5"
^XMB(3.9,166,2,2549,0)="""RTN"",""XUS2"",3,0)"
^XMB(3.9,166,2,2550,0)=" Q"
^XMB(3.9,166,2,2551,0)="""RTN"",""XUS2"",4,0)"
^XMB(3.9,166,2,2552,0)=" ;"
^XMB(3.9,166,2,2553,0)="""RTN"",""XUS2"",5,0)"
^XMB(3.9,166,2,2554,0)="ACCED ; ACCESS CODE EDIT from DD"
^XMB(3.9,166,2,2555,0)="""RTN"",""XUS2"",6,0)"
^XMB(3.9,166,2,2556,0)=" I ""Nn""[$E(X,1) S X="""" Q"
^XMB(3.9,166,2,2557,0)="""RTN"",""XUS2"",7,0)"
^XMB(3.9,166,2,2558,0)=" I ""Yy""'[$E(X,1) K X Q"
^XMB(3.9,166,2,2559,0)="""RTN"",""XUS2"",8,0)"
^XMB(3.9,166,2,2560,0)=" N DIR,DIR0,XUAUTO,XUK"
^XMB(3.9,166,2,2561,0)="""RTN"",""XUS2"",9,0)"
^XMB(3.9,166,2,2562,0)=" S XUAUTO=($P($G(^XTV(8989.3,1,3)),U,1)=""y""),XUH="""""
^XMB(3.9,166,2,2563,0)="""RTN"",""XUS2"",10,0)"
^XMB(3.9,166,2,2564,0)="AC1 D CLR,AAUTO:XUAUTO,AASK:'XUAUTO G OUT:$D(DIRUT) D REASK G OUT:$D(DIRUT),AC1:'XUK D CLR,AST(XUH)"
^XMB(3.9,166,2,2565,0)="""RTN"",""XUS2"",11,0)"
^XMB(3.9,166,2,2566,0)=" G OUT"
^XMB(3.9,166,2,2567,0)="""RTN"",""XUS2"",12,0)"
^XMB(3.9,166,2,2568,0)=" ;"
^XMB(3.9,166,2,2569,0)="""RTN"",""XUS2"",13,0)"
^XMB(3.9,166,2,2570,0)="AASK ;Ask for Access code"
^XMB(3.9,166,2,2571,0)="""RTN"",""XUS2"",14,0)"
^XMB(3.9,166,2,2572,0)=" N X,XUU,XUEX X ^%ZOSF(""EOFF"")"
^XMB(3.9,166,2,2573,0)="""RTN"",""XUS2"",15,0)"
^XMB(3.9,166,2,2574,0)=" S XUEX=0"
^XMB(3.9,166,2,2575,0)="""RTN"",""XUS2"",16,0)"
^XMB(3.9,166,2,2576,0)=" F  D AASK1 Q:XUEX!($D(DIRUT))"
^XMB(3.9,166,2,2577,0)="""RTN"",""XUS2"",17,0)"
^XMB(3.9,166,2,2578,0)=" Q"
^XMB(3.9,166,2,2579,0)="""RTN"",""XUS2"",18,0)"
^XMB(3.9,166,2,2580,0)=" ;"
^XMB(3.9,166,2,2581,0)="""RTN"",""XUS2"",19,0)"
^XMB(3.9,166,2,2582,0)="AASK1 ;"
^XMB(3.9,166,2,2583,0)="""RTN"",""XUS2"",20,0)"
^XMB(3.9,166,2,2584,0)=" W ""Enter a new ACCESS CODE <Hidden>: "" D GET Q:$D(DIRUT)"
^XMB(3.9,166,2,2585,0)="""RTN"",""XUS2"",21,0)"
^XMB(3.9,166,2,2586,0)=" I X=""@"" D DEL D:Y'=1 DIRUT S XUH="""",XUEX=1 Q"
^XMB(3.9,166,2,2587,0)="""RTN"",""XUS2"",22,0)"
^XMB(3.9,166,2,2588,0)=" I X[$C(34)!(X["";"")!(X[""^"")!(X["":"")!(X'?.UNP)!($L(X)>20)!($L(X)<6)!(X=""MAIL-BOX"") D CLR W $C(7),$$AVHLPTXT(1) D AHELP Q"
^XMB(3.9,166,2,2589,0)="""RTN"",""XUS2"",23,0)"
^XMB(3.9,166,2,2590,0)=" I 'XUAUTO,((X?6.20A)!(X?6.20N)) D CLR W $C(7),$$AVHLPTXT(1),! Q"
^XMB(3.9,166,2,2591,0)="""RTN"",""XUS2"",24,0)"
^XMB(3.9,166,2,2592,0)=" S XUU=X,X=$$EN^XUSHSH(X),XUH=X,XMB(1)=$O(^VA(200,""A"",XUH,0)) I XMB(1),XMB(1)'=DA S XMB=""XUS ACCESS CODE VIOLATION"",XMB(1)=$P(^VA(200,XMB(1),0),""^""),XMDUN=""Security"" D ^XMB"
^XMB(3.9,166,2,2593,0)="""RTN"",""XUS2"",25,0)"
^XMB(3.9,166,2,2594,0)=" I $D(^VA(200,""AOLD"",XUH))!$D(^VA(200,""A"",XUH)) D CLR W $C(7),""This has been used previously as an ACCESS CODE."",! Q"
^XMB(3.9,166,2,2595,0)="""RTN"",""XUS2"",26,0)"
^XMB(3.9,166,2,2596,0)=" S XUEX=1 ;Now we can quit"
^XMB(3.9,166,2,2597,0)="""RTN"",""XUS2"",27,0)"
^XMB(3.9,166,2,2598,0)=" Q"
^XMB(3.9,166,2,2599,0)="""RTN"",""XUS2"",28,0)"
^XMB(3.9,166,2,2600,0)=" ;"
^XMB(3.9,166,2,2601,0)="""RTN"",""XUS2"",29,0)"
^XMB(3.9,166,2,2602,0)="REASK S XUK=1 Q:XUH=""""  D CLR X ^%ZOSF(""EOFF"")"
^XMB(3.9,166,2,2603,0)="""RTN"",""XUS2"",30,0)"
^XMB(3.9,166,2,2604,0)=" F XUK=3:-1:1 W ""Please re-type the new code to show that I have it right: "" D GET G:$D(DIRUT) DIRUT D ^XUSHSH Q:(XUH=X)  D CLR W ""This doesn't match.  Try again!"",!,$C(7)"
^XMB(3.9,166,2,2605,0)="""RTN"",""XUS2"",31,0)"
^XMB(3.9,166,2,2606,0)=" S:XUH'=X XUK=0"
^XMB(3.9,166,2,2607,0)="""RTN"",""XUS2"",32,0)"
^XMB(3.9,166,2,2608,0)=" Q"
^XMB(3.9,166,2,2609,0)="""RTN"",""XUS2"",33,0)"
^XMB(3.9,166,2,2610,0)=" ;"
^XMB(3.9,166,2,2611,0)="""RTN"",""XUS2"",34,0)"
^XMB(3.9,166,2,2612,0)="AST(XUH) ;Change ACCESS CODE and index."
^XMB(3.9,166,2,2613,0)="""RTN"",""XUS2"",35,0)"
^XMB(3.9,166,2,2614,0)=" W ""OK, Access code has been changed!"""
^XMB(3.9,166,2,2615,0)="""RTN"",""XUS2"",36,0)"
^XMB(3.9,166,2,2616,0)=" N FDA,IEN,ERR"
^XMB(3.9,166,2,2617,0)="""RTN"",""XUS2"",37,0)"
^XMB(3.9,166,2,2618,0)=" S IEN=DA_"","""
^XMB(3.9,166,2,2619,0)="""RTN"",""XUS2"",38,0)"
^XMB(3.9,166,2,2620,0)=" S FDA(200,IEN,2)=XUH D FILE^DIE("""",""FDA"",""ERR"")"
^XMB(3.9,166,2,2621,0)="""RTN"",""XUS2"",39,0)"
^XMB(3.9,166,2,2622,0)=" W !,""The VERIFY CODE has been deleted as a security measure."",!,""You will need to enter a new VERIFY code so the user can sign-on."",$C(7)"
^XMB(3.9,166,2,2623,0)="""RTN"",""XUS2"",40,0)"
^XMB(3.9,166,2,2624,0)=" D VST("""",1)"
^XMB(3.9,166,2,2625,0)="""RTN"",""XUS2"",41,0)"
^XMB(3.9,166,2,2626,0)=" I $D(^XMB(3.7,DA,0))[0 S Y=DA D NEW^XM ;Make sure has a Mailbox"
^XMB(3.9,166,2,2627,0)="""RTN"",""XUS2"",42,0)"
^XMB(3.9,166,2,2628,0)=" Q"
^XMB(3.9,166,2,2629,0)="""RTN"",""XUS2"",43,0)"
^XMB(3.9,166,2,2630,0)=" ;"
^XMB(3.9,166,2,2631,0)="""RTN"",""XUS2"",44,0)"
^XMB(3.9,166,2,2632,0)="GET ;Get the user input and convert case."
^XMB(3.9,166,2,2633,0)="""RTN"",""XUS2"",45,0)"
^XMB(3.9,166,2,2634,0)=" S X=$$ACCEPT^XUS I (X[""^"")!('$L(X)) D DIRUT"
^XMB(3.9,166,2,2635,0)="""RTN"",""XUS2"",46,0)"
^XMB(3.9,166,2,2636,0)=" S X=$$UP^XLFSTR(X)"
^XMB(3.9,166,2,2637,0)="""RTN"",""XUS2"",47,0)"
^XMB(3.9,166,2,2638,0)=" Q"
^XMB(3.9,166,2,2639,0)="""RTN"",""XUS2"",48,0)"
^XMB(3.9,166,2,2640,0)=" ;"
^XMB(3.9,166,2,2641,0)="""RTN"",""XUS2"",49,0)"
^XMB(3.9,166,2,2642,0)="DIRUT S DIRUT=1"
^XMB(3.9,166,2,2643,0)="""RTN"",""XUS2"",50,0)"
^XMB(3.9,166,2,2644,0)=" Q"
^XMB(3.9,166,2,2645,0)="""RTN"",""XUS2"",51,0)"
^XMB(3.9,166,2,2646,0)=" ;"
^XMB(3.9,166,2,2647,0)="""RTN"",""XUS2"",52,0)"
^XMB(3.9,166,2,2648,0)="CLR ;New line or Clear screenman area"
^XMB(3.9,166,2,2649,0)="""RTN"",""XUS2"",53,0)"
^XMB(3.9,166,2,2650,0)=" I '$D(DDS) W ! Q"
^XMB(3.9,166,2,2651,0)="""RTN"",""XUS2"",54,0)"
^XMB(3.9,166,2,2652,0)=" N DX,DY"
^XMB(3.9,166,2,2653,0)="""RTN"",""XUS2"",55,0)"
^XMB(3.9,166,2,2654,0)=" D CLRMSG^DDS S DX=0,DY=DDSHBX+1 X IOXY"
^XMB(3.9,166,2,2655,0)="""RTN"",""XUS2"",56,0)"
^XMB(3.9,166,2,2656,0)=" Q"
^XMB(3.9,166,2,2657,0)="""RTN"",""XUS2"",57,0)"
^XMB(3.9,166,2,2658,0)=" ;"
^XMB(3.9,166,2,2659,0)="""RTN"",""XUS2"",58,0)"
^XMB(3.9,166,2,2660,0)="NEWCODE D REASK I XUK W !,""OK, remember this code for next time!"""
^XMB(3.9,166,2,2661,0)="""RTN"",""XUS2"",59,0)"
^XMB(3.9,166,2,2662,0)=" G OUT"
^XMB(3.9,166,2,2663,0)="""RTN"",""XUS2"",60,0)"
^XMB(3.9,166,2,2664,0)=" ;"
^XMB(3.9,166,2,2665,0)="""RTN"",""XUS2"",61,0)"
^XMB(3.9,166,2,2666,0)="CVC ;From XUS1"
^XMB(3.9,166,2,2667,0)="""RTN"",""XUS2"",62,0)"
^XMB(3.9,166,2,2668,0)=" N DA,X"
^XMB(3.9,166,2,2669,0)="""RTN"",""XUS2"",63,0)"
^XMB(3.9,166,2,2670,0)=" S DA=DUZ,X=""Y"""
^XMB(3.9,166,2,2671,0)="""RTN"",""XUS2"",64,0)"
^XMB(3.9,166,2,2672,0)=" W !,""You must change your VERIFY CODE at this time."""
^XMB(3.9,166,2,2673,0)="""RTN"",""XUS2"",65,0)"
^XMB(3.9,166,2,2674,0)=" ;Fall into next code"
^XMB(3.9,166,2,2675,0)="""RTN"",""XUS2"",66,0)"
^XMB(3.9,166,2,2676,0)="VERED ; VERIFY CODE EDIT From DD"
^XMB(3.9,166,2,2677,0)="""RTN"",""XUS2"",67,0)"
^XMB(3.9,166,2,2678,0)=" N DIR,DIR0,XUAUTO"
^XMB(3.9,166,2,2679,0)="""RTN"",""XUS2"",68,0)"
^XMB(3.9,166,2,2680,0)=" I ""Nn""[$E(X,1) S X="""" Q"
^XMB(3.9,166,2,2681,0)="""RTN"",""XUS2"",69,0)"
^XMB(3.9,166,2,2682,0)=" I ""Yy""'[$E(X,1) K X Q"
^XMB(3.9,166,2,2683,0)="""RTN"",""XUS2"",70,0)"
^XMB(3.9,166,2,2684,0)=" S XUH="""",XUAUTO=($P($G(^XTV(8989.3,1,3)),U,3)=""y"") S:DUZ=DA XUAUTO=""n"" ;Auto only for admin"
^XMB(3.9,166,2,2685,0)="""RTN"",""XUS2"",71,0)"
^XMB(3.9,166,2,2686,0)="VC1 D CLR,VASK:'XUAUTO,VAUTO:XUAUTO G OUT:$D(DIRUT) D REASK G OUT:$D(DIRUT),VC1:'XUK D CLR,VST(XUH,1)"
^XMB(3.9,166,2,2687,0)="""RTN"",""XUS2"",72,0)"
^XMB(3.9,166,2,2688,0)=" D CALL^XUSERP(DA,2)"
^XMB(3.9,166,2,2689,0)="""RTN"",""XUS2"",73,0)"
^XMB(3.9,166,2,2690,0)=" G OUT"
^XMB(3.9,166,2,2691,0)="""RTN"",""XUS2"",74,0)"
^XMB(3.9,166,2,2692,0)=" ;"
^XMB(3.9,166,2,2693,0)="""RTN"",""XUS2"",75,0)"
^XMB(3.9,166,2,2694,0)="VASK ;Ask for Verify Code"
^XMB(3.9,166,2,2695,0)="""RTN"",""XUS2"",76,0)"
^XMB(3.9,166,2,2696,0)=" N X,XUU X ^%ZOSF(""EOFF"") G:'$$CHKCUR() DIRUT D CLR"
^XMB(3.9,166,2,2697,0)="""RTN"",""XUS2"",77,0)"
^XMB(3.9,166,2,2698,0)="VASK1 W ""Enter a new VERIFY CODE: "" D GET Q:$D(DIRUT)"
^XMB(3.9,166,2,2699,0)="""RTN"",""XUS2"",78,0)"
^XMB(3.9,166,2,2700,0)=" I '$D(XUNC),(X=""@"") D DEL G:Y'=1 DIRUT S XUH="""" Q"
^XMB(3.9,166,2,2701,0)="""RTN"",""XUS2"",79,0)"
^XMB(3.9,166,2,2702,0)=" D CLR S XUU=X,X=$$EN^XUSHSH(X),XUH=X,Y=$$VCHK(XUU,XUH) I +Y W $C(7),$P(Y,U,2,9),! D:+Y=1 VHELP G VASK1"
^XMB(3.9,166,2,2703,0)="""RTN"",""XUS2"",80,0)"
^XMB(3.9,166,2,2704,0)=" Q"
^XMB(3.9,166,2,2705,0)="""RTN"",""XUS2"",81,0)"
^XMB(3.9,166,2,2706,0)=" ;"
^XMB(3.9,166,2,2707,0)="""RTN"",""XUS2"",82,0)"
^XMB(3.9,166,2,2708,0)="VCHK(S,EC) ;Call with String and Encripted versions"
^XMB(3.9,166,2,2709,0)="""RTN"",""XUS2"",83,0)"
^XMB(3.9,166,2,2710,0)=" ;Updated per VHA directive 6210 Strong Passwords"
^XMB(3.9,166,2,2711,0)="""RTN"",""XUS2"",84,0)"
^XMB(3.9,166,2,2712,0)=" N PUNC,NA S PUNC=""~`!@#$%&*()_-+=|\{}[]'<>,.?/"""
^XMB(3.9,166,2,2713,0)="""RTN"",""XUS2"",85,0)"
^XMB(3.9,166,2,2714,0)=" S NA(""FILE"")=200,NA(""FIELD"")=.01,NA(""IENS"")=DA_"","",NA=$$HLNAME^XLFNAME(.NA)"
^XMB(3.9,166,2,2715,0)="""RTN"",""XUS2"",86,0)"
^XMB(3.9,166,2,2716,0)=" I ($L(S)<8)!($L(S)>20)!(S'?.UNP)!(S["";"")!(S[""^"")!(S["":"") Q ""1^""_$$AVHLPTXT"
^XMB(3.9,166,2,2717,0)="""RTN"",""XUS2"",87,0)"
^XMB(3.9,166,2,2718,0)=" I (S?8.20A)!(S?8.20N)!(S?8.20P)!(S?8.20AN)!(S?8.20AP)!(S?8.20NP) Q ""2^VERIFY CODE must be a mix of alpha and numerics and punctuation."""
^XMB(3.9,166,2,2719,0)="""RTN"",""XUS2"",88,0)"
^XMB(3.9,166,2,2720,0)=" I $D(^VA(200,DA,.1)),EC=$P(^(.1),U,2) Q ""3^This code is the same as the current one."""
^XMB(3.9,166,2,2721,0)="""RTN"",""XUS2"",89,0)"
^XMB(3.9,166,2,2722,0)=" I $D(^VA(200,DA,""VOLD"",EC)) Q ""4^This has been used previously as the VERIFY CODE."""
^XMB(3.9,166,2,2723,0)="""RTN"",""XUS2"",90,0)"
^XMB(3.9,166,2,2724,0)=" I EC=$P(^VA(200,DA,0),U,3) Q ""5^VERIFY CODE must be different than the ACCESS CODE."""
^XMB(3.9,166,2,2725,0)="""RTN"",""XUS2"",91,0)"
^XMB(3.9,166,2,2726,0)=" I S[$P(NA,""^"")!(S[$P(NA,""^"",2)) Q ""6^Name cannot be part of code."""
^XMB(3.9,166,2,2727,0)="""RTN"",""XUS2"",92,0)"
^XMB(3.9,166,2,2728,0)=" Q 0"
^XMB(3.9,166,2,2729,0)="""RTN"",""XUS2"",93,0)"
^XMB(3.9,166,2,2730,0)=" ;"
^XMB(3.9,166,2,2731,0)="""RTN"",""XUS2"",94,0)"
^XMB(3.9,166,2,2732,0)="VST(XUH,%) ;"
^XMB(3.9,166,2,2733,0)="""RTN"",""XUS2"",95,0)"
^XMB(3.9,166,2,2734,0)=" W:$L(XUH)&% !,""OK, Verify code has been changed!"""
^XMB(3.9,166,2,2735,0)="""RTN"",""XUS2"",96,0)"
^XMB(3.9,166,2,2736,0)=" N FDA,IEN,ERR S IEN=DA_"","""
^XMB(3.9,166,2,2737,0)="""RTN"",""XUS2"",97,0)"
^XMB(3.9,166,2,2738,0)=" S:XUH="""" XUH=""@"" ;11.2 get triggerd"
^XMB(3.9,166,2,2739,0)="""RTN"",""XUS2"",98,0)"
^XMB(3.9,166,2,2740,0)=" S FDA(200,IEN,11)=XUH D FILE^DIE("""",""FDA"",""ERR"")"
^XMB(3.9,166,2,2741,0)="""RTN"",""XUS2"",99,0)"
^XMB(3.9,166,2,2742,0)=" I $D(ERR) D ^%ZTER"
^XMB(3.9,166,2,2743,0)="""RTN"",""XUS2"",100,0)"
^XMB(3.9,166,2,2744,0)=" S:DA=DUZ DUZ(""NEWCODE"")=XUH Q"
^XMB(3.9,166,2,2745,0)="""RTN"",""XUS2"",101,0)"
^XMB(3.9,166,2,2746,0)=" ;"
^XMB(3.9,166,2,2747,0)="""RTN"",""XUS2"",102,0)"
^XMB(3.9,166,2,2748,0)="DEL ;"
^XMB(3.9,166,2,2749,0)="""RTN"",""XUS2"",103,0)"
^XMB(3.9,166,2,2750,0)=" X ^%ZOSF(""EON"") W $C(7) S DIR(0)=""Y"",DIR(""A"")=""Sure you want to delete"" D ^DIR I Y'=1 W:$X>55 !?9 W $C(7),""  <Nothing Deleted>"""
^XMB(3.9,166,2,2751,0)="""RTN"",""XUS2"",104,0)"
^XMB(3.9,166,2,2752,0)=" Q"
^XMB(3.9,166,2,2753,0)="""RTN"",""XUS2"",105,0)"
^XMB(3.9,166,2,2754,0)=" ;"
^XMB(3.9,166,2,2755,0)="""RTN"",""XUS2"",106,0)"
^XMB(3.9,166,2,2756,0)="AAUTO ;Auto-get Access codes"
^XMB(3.9,166,2,2757,0)="""RTN"",""XUS2"",107,0)"
^XMB(3.9,166,2,2758,0)=" N XUK,Y"
^XMB(3.9,166,2,2759,0)="""RTN"",""XUS2"",108,0)"
^XMB(3.9,166,2,2760,0)=" X ^%ZOSF(""EON"") F XUK=1:1:3 D AGEN Q:(Y=1)!($D(DIRUT))"
^XMB(3.9,166,2,2761,0)="""RTN"",""XUS2"",109,0)"
^XMB(3.9,166,2,2762,0)=" Q"
^XMB(3.9,166,2,2763,0)="""RTN"",""XUS2"",110,0)"
^XMB(3.9,166,2,2764,0)=" ;"
^XMB(3.9,166,2,2765,0)="""RTN"",""XUS2"",111,0)"
^XMB(3.9,166,2,2766,0)="AGEN ;Generate a ACCESS code"
^XMB(3.9,166,2,2767,0)="""RTN"",""XUS2"",112,0)"
^XMB(3.9,166,2,2768,0)=" S XUU=$$AC^XUS4 S X=$$EN^XUSHSH(XUU),XUH=X I $D(^VA(200,""A"",X))!$D(^VA(200,""AOLD"",X)) G AGEN"
^XMB(3.9,166,2,2769,0)="""RTN"",""XUS2"",113,0)"
^XMB(3.9,166,2,2770,0)=" D CLR W ""The new ACCESS CODE is: "",XUU,""   This is "",XUK,"" of 3 tries."""
^XMB(3.9,166,2,2771,0)="""RTN"",""XUS2"",114,0)"
^XMB(3.9,166,2,2772,0)=" D YN"
^XMB(3.9,166,2,2773,0)="""RTN"",""XUS2"",115,0)"
^XMB(3.9,166,2,2774,0)=" Q"
^XMB(3.9,166,2,2775,0)="""RTN"",""XUS2"",116,0)"
^XMB(3.9,166,2,2776,0)=" ;"
^XMB(3.9,166,2,2777,0)="""RTN"",""XUS2"",117,0)"
^XMB(3.9,166,2,2778,0)="AHELP S XUU=$$AC^XUS4 S X=$$EN^XUSHSH(XUU) I $D(^VA(200,""A"",X))!$D(^VA(200,""AOLD"",X)) G AHELP"
^XMB(3.9,166,2,2779,0)="""RTN"",""XUS2"",118,0)"
^XMB(3.9,166,2,2780,0)=" W !,""Here is an example of an acceptable Access Code: "",XUU,!"
^XMB(3.9,166,2,2781,0)="""RTN"",""XUS2"",119,0)"
^XMB(3.9,166,2,2782,0)=" Q"
^XMB(3.9,166,2,2783,0)="""RTN"",""XUS2"",120,0)"
^XMB(3.9,166,2,2784,0)=" ;"
^XMB(3.9,166,2,2785,0)="""RTN"",""XUS2"",121,0)"
^XMB(3.9,166,2,2786,0)="VHELP S XUU=$$VC^XUS4 S X=$$EN^XUSHSH(XUU) I ($P($G(^VA(200,DA,0)),U,3)=X)!$D(^VA(200,DA,""VOLD"",X)) G VHELP"
^XMB(3.9,166,2,2787,0)="""RTN"",""XUS2"",122,0)"
^XMB(3.9,166,2,2788,0)=" W !,""Here is an example of an acceptable Verify Code: "",XUU,!"
^XMB(3.9,166,2,2789,0)="""RTN"",""XUS2"",123,0)"
^XMB(3.9,166,2,2790,0)=" Q"
^XMB(3.9,166,2,2791,0)="""RTN"",""XUS2"",124,0)"
^XMB(3.9,166,2,2792,0)=" ;"
^XMB(3.9,166,2,2793,0)="""RTN"",""XUS2"",125,0)"
^XMB(3.9,166,2,2794,0)="VAUTO ;Auto-get Access codes"
^XMB(3.9,166,2,2795,0)="""RTN"",""XUS2"",126,0)"
^XMB(3.9,166,2,2796,0)=" N XUK"
^XMB(3.9,166,2,2797,0)="""RTN"",""XUS2"",127,0)"
^XMB(3.9,166,2,2798,0)=" X ^%ZOSF(""EON"") F XUK=1:1:3 D VGEN Q:(Y=1)!($D(DIRUT))"
^XMB(3.9,166,2,2799,0)="""RTN"",""XUS2"",128,0)"
^XMB(3.9,166,2,2800,0)=" Q"
^XMB(3.9,166,2,2801,0)="""RTN"",""XUS2"",129,0)"
^XMB(3.9,166,2,2802,0)=" ;"
^XMB(3.9,166,2,2803,0)="""RTN"",""XUS2"",130,0)"
^XMB(3.9,166,2,2804,0)="VGEN ;Generate a VERIFY code"
^XMB(3.9,166,2,2805,0)="""RTN"",""XUS2"",131,0)"
^XMB(3.9,166,2,2806,0)=" S XUU=$$VC^XUS4 S X=$$EN^XUSHSH(XUU),XUH=X I ($P($G(^VA(200,DA,0)),U,3)=X)!$D(^VA(200,DA,""VOLD"",X)) G VGEN"
^XMB(3.9,166,2,2807,0)="""RTN"",""XUS2"",132,0)"
^XMB(3.9,166,2,2808,0)=" D CLR W ""The new VERIFY CODE is: "",XUU,""   This is "",XUK,"" of 3 tries."""
^XMB(3.9,166,2,2809,0)="""RTN"",""XUS2"",133,0)"
^XMB(3.9,166,2,2810,0)=" D YN"
^XMB(3.9,166,2,2811,0)="""RTN"",""XUS2"",134,0)"
^XMB(3.9,166,2,2812,0)=" Q"
^XMB(3.9,166,2,2813,0)="""RTN"",""XUS2"",135,0)"
^XMB(3.9,166,2,2814,0)="YN ;Ask if want to keep"
^XMB(3.9,166,2,2815,0)="""RTN"",""XUS2"",136,0)"
^XMB(3.9,166,2,2816,0)=" N DIR"
^XMB(3.9,166,2,2817,0)="""RTN"",""XUS2"",137,0)"
^XMB(3.9,166,2,2818,0)=" S Y=1 Q:XUK=3  S DIR(0)=""YA"",DIR(""A"")="" Do you want to keep this one? "",DIR(""B"")=""YES"",DIR(""?"",1)=""If you don't like this code, we can auto-generate another."",DIR(""?"")=""Remember you only get 3 tries!"""
^XMB(3.9,166,2,2819,0)="""RTN"",""XUS2"",138,0)"
^XMB(3.9,166,2,2820,0)=" D ^DIR Q:(Y=1)!$D(DIRUT)  D CLR W:XUK=2 ""O.K. You'll have to keep the next one!"",!"
^XMB(3.9,166,2,2821,0)="""RTN"",""XUS2"",139,0)"
^XMB(3.9,166,2,2822,0)=" Q"
^XMB(3.9,166,2,2823,0)="""RTN"",""XUS2"",140,0)"
^XMB(3.9,166,2,2824,0)=" ;"
^XMB(3.9,166,2,2825,0)="""RTN"",""XUS2"",141,0)"
^XMB(3.9,166,2,2826,0)="OUT ;"
^XMB(3.9,166,2,2827,0)="""RTN"",""XUS2"",142,0)"
^XMB(3.9,166,2,2828,0)=" K DUOUT S:$D(DIRUT) DUOUT=1"
^XMB(3.9,166,2,2829,0)="""RTN"",""XUS2"",143,0)"
^XMB(3.9,166,2,2830,0)=" X ^%ZOSF(""EON"") W !"
^XMB(3.9,166,2,2831,0)="""RTN"",""XUS2"",144,0)"
^XMB(3.9,166,2,2832,0)=" K DIR,DIRUT,XUKO,XUAUTO,XUU,XUH,XUK,XUI S X="""""
^XMB(3.9,166,2,2833,0)="""RTN"",""XUS2"",145,0)"
^XMB(3.9,166,2,2834,0)=" Q"
^XMB(3.9,166,2,2835,0)="""RTN"",""XUS2"",146,0)"
^XMB(3.9,166,2,2836,0)=" ;"
^XMB(3.9,166,2,2837,0)="""RTN"",""XUS2"",147,0)"
^XMB(3.9,166,2,2838,0)="CHKCUR() ;Check user knows current code, Return 1 if OK to continue"
^XMB(3.9,166,2,2839,0)="""RTN"",""XUS2"",148,0)"
^XMB(3.9,166,2,2840,0)=" Q:DA'=DUZ 1 ;Only ask user"
^XMB(3.9,166,2,2841,0)="""RTN"",""XUS2"",149,0)"
^XMB(3.9,166,2,2842,0)=" Q:$P($G(^VA(200,DA,.1)),U,2)="""" 1 ;Must have an old one"
^XMB(3.9,166,2,2843,0)="""RTN"",""XUS2"",150,0)"
^XMB(3.9,166,2,2844,0)=" S XUK=0 D CLR"
^XMB(3.9,166,2,2845,0)="""RTN"",""XUS2"",151,0)"
^XMB(3.9,166,2,2846,0)="CHK1 W ""Please enter your CURRENT verify code: "" D GET Q:$D(DIRUT) 0"
^XMB(3.9,166,2,2847,0)="""RTN"",""XUS2"",152,0)"
^XMB(3.9,166,2,2848,0)=" I $P(^VA(200,DA,.1),U,2)=$$EN^XUSHSH(X) Q 1"
^XMB(3.9,166,2,2849,0)="""RTN"",""XUS2"",153,0)"
^XMB(3.9,166,2,2850,0)=" D CLR W ""Sorry that is not correct!"",!"
^XMB(3.9,166,2,2851,0)="""RTN"",""XUS2"",154,0)"
^XMB(3.9,166,2,2852,0)=" S XUK=XUK+1 G:XUK<3 CHK1"
^XMB(3.9,166,2,2853,0)="""RTN"",""XUS2"",155,0)"
^XMB(3.9,166,2,2854,0)=" Q 0"
^XMB(3.9,166,2,2855,0)="""RTN"",""XUS2"",156,0)"
^XMB(3.9,166,2,2856,0)=" ;"
^XMB(3.9,166,2,2857,0)="""RTN"",""XUS2"",157,0)"
^XMB(3.9,166,2,2858,0)="BRCVC(XV1,XV2) ;Broker change VC, return 0 if good, '1^msg' if bad."
^XMB(3.9,166,2,2859,0)="""RTN"",""XUS2"",158,0)"
^XMB(3.9,166,2,2860,0)=" N XUU,XUH"
^XMB(3.9,166,2,2861,0)="""RTN"",""XUS2"",159,0)"
^XMB(3.9,166,2,2862,0)=" Q:$G(DUZ)'>0 ""1^Bad DUZ"" S DA=DUZ,XUH=$$EN^XUSHSH(XV2)"
^XMB(3.9,166,2,2863,0)="""RTN"",""XUS2"",160,0)"
^XMB(3.9,166,2,2864,0)=" I $P($G(^VA(200,DUZ,.1)),""^"",2)'=$$EN^XUSHSH(XV1) Q ""1^Sorry that isn't the correct current code"""
^XMB(3.9,166,2,2865,0)="""RTN"",""XUS2"",161,0)"
^XMB(3.9,166,2,2866,0)=" S Y=$$VCHK(XV2,XUH) Q:Y Y"
^XMB(3.9,166,2,2867,0)="""RTN"",""XUS2"",162,0)"
^XMB(3.9,166,2,2868,0)=" D VST(XUH,0),CALL^XUSERP(DA,2)"
^XMB(3.9,166,2,2869,0)="""RTN"",""XUS2"",163,0)"
^XMB(3.9,166,2,2870,0)=" Q 0"
^XMB(3.9,166,2,2871,0)="""RTN"",""XUS2"",164,0)"
^XMB(3.9,166,2,2872,0)=" ;"
^XMB(3.9,166,2,2873,0)="""RTN"",""XUS2"",165,0)"
^XMB(3.9,166,2,2874,0)="AVHLPTXT(%) ;"
^XMB(3.9,166,2,2875,0)="""RTN"",""XUS2"",166,0)"
^XMB(3.9,166,2,2876,0)=" Q ""Enter ""_$S($G(%):""6-20"",1:""8-20"")_"" characters mixed alphanumeric and punctuation (except '^', ';', ':')."""
^XMB(3.9,166,2,2877,0)="""RTN"",""XUS2"",167,0)"
^XMB(3.9,166,2,2878,0)=" ;"
^XMB(3.9,166,2,2879,0)="""RTN"",""XUS2"",168,0)"
^XMB(3.9,166,2,2880,0)=" ;Left over code, Don't think it is called anymore."
^XMB(3.9,166,2,2881,0)="""RTN"",""XUS2"",169,0)"
^XMB(3.9,166,2,2882,0)=" G XUS2^XUVERIFY ;All check or return user attributes moved to XUVERIFY"
^XMB(3.9,166,2,2883,0)="""RTN"",""XUS2"",170,0)"
^XMB(3.9,166,2,2884,0)="USER G USER^XUVERIFY"
^XMB(3.9,166,2,2885,0)="""RTN"",""XUS2"",171,0)"
^XMB(3.9,166,2,2886,0)="EDIT G EDIT^XUVERIFY"
^XMB(3.9,166,2,2887,0)="""RTN"",""XUS3"")"
^XMB(3.9,166,2,2888,0)="0^5^B18943733^B18656920"
^XMB(3.9,166,2,2889,0)="""RTN"",""XUS3"",1,0)"
^XMB(3.9,166,2,2890,0)="XUS3 ;SF-ISC/STAFF - SIGNON ;5/31/2006"
^XMB(3.9,166,2,2891,0)="""RTN"",""XUS3"",2,0)"
^XMB(3.9,166,2,2892,0)=" ;;8.0;KERNEL;**32,149,265,419**;Jul 10, 1995;Build 5"
^XMB(3.9,166,2,2893,0)="""RTN"",""XUS3"",3,0)"
^XMB(3.9,166,2,2894,0)="TT ;Terminal Type select"
^XMB(3.9,166,2,2895,0)="""RTN"",""XUS3"",4,0)"
^XMB(3.9,166,2,2896,0)=" Q:$D(XUIOP(1))"
^XMB(3.9,166,2,2897,0)="""RTN"",""XUS3"",5,0)"
^XMB(3.9,166,2,2898,0)=" S DIC(""B"")=$S($P(XUIOP,"";"",2)]"""":$P(XUIOP,"";"",2),$D(^%ZIS(1,XUDEV,""SUBTYPE"")):+^(""SUBTYPE""),1:""C-VT100"")"
^XMB(3.9,166,2,2899,0)="""RTN"",""XUS3"",6,0)"
^XMB(3.9,166,2,2900,0)=" S DIC=""^%ZIS(2,"",DIC(0)=""AEMQO"",DIC(""S"")=""I $P(^(0),U,2)"" D ^DIC K DIC Q:Y<1"
^XMB(3.9,166,2,2901,0)="""RTN"",""XUS3"",7,0)"
^XMB(3.9,166,2,2902,0)=" ;M/11 & M/VX sites may want to remove the ; from the next line."
^XMB(3.9,166,2,2903,0)="""RTN"",""XUS3"",8,0)"
^XMB(3.9,166,2,2904,0)=" ;S J=$P(Y,U,2) I $D(^%IS(0,""SUB"",J)) S $P(^%IS($I,1),U,3)=J"
^XMB(3.9,166,2,2905,0)="""RTN"",""XUS3"",9,0)"
^XMB(3.9,166,2,2906,0)=" S ^VA(200,DUZ,1.2)=+Y,$P(XUIOP,"";"",2)=$P(Y,U,2) Q"
^XMB(3.9,166,2,2907,0)="""RTN"",""XUS3"",10,0)"
^XMB(3.9,166,2,2908,0)=" ;"
^XMB(3.9,166,2,2909,0)="""RTN"",""XUS3"",11,0)"
^XMB(3.9,166,2,2910,0)="WAIT ;** doesn't work with virtual device"
^XMB(3.9,166,2,2911,0)="""RTN"",""XUS3"",12,0)"
^XMB(3.9,166,2,2912,0)=" Q:'$L(IO(""ZIO""))"
^XMB(3.9,166,2,2913,0)="""RTN"",""XUS3"",13,0)"
^XMB(3.9,166,2,2914,0)=" S X=XUT,XUT=0,H=$P(^DISV(""XU"",XUDEV),U,2),T=$P(H,"","",2)+$P(XOPT,U,3),H=T\86400+H,T=T#86400 Q:H<$H  I +$H=H Q:$P($H,"","",2)'<T"
^XMB(3.9,166,2,2915,0)="""RTN"",""XUS3"",14,0)"
^XMB(3.9,166,2,2916,0)="LOCK S XUT=X,XMB=""XUSLOCK"",XMB(1)=$I,XMB(2)=+XUT,XMB(3)=$P(XUVOL,U,1)_"",""_XUCI D ^XMB"
^XMB(3.9,166,2,2917,0)="""RTN"",""XUS3"",15,0)"
^XMB(3.9,166,2,2918,0)="Q Q"
^XMB(3.9,166,2,2919,0)="""RTN"",""XUS3"",16,0)"
^XMB(3.9,166,2,2920,0)=" ;"
^XMB(3.9,166,2,2921,0)="""RTN"",""XUS3"",17,0)"
^XMB(3.9,166,2,2922,0)="SEC ;Check device's security and time lock."
^XMB(3.9,166,2,2923,0)="""RTN"",""XUS3"",18,0)"
^XMB(3.9,166,2,2924,0)=" Q:$P(XOPT,""^"",11)  ;Bypass device lockout"
^XMB(3.9,166,2,2925,0)="""RTN"",""XUS3"",19,0)"
^XMB(3.9,166,2,2926,0)=" N %A,%B,%H,Y"
^XMB(3.9,166,2,2927,0)="""RTN"",""XUS3"",20,0)"
^XMB(3.9,166,2,2928,0)=" S %A=$P(XUSER(0),U,4),%B=0"
^XMB(3.9,166,2,2929,0)="""RTN"",""XUS3"",21,0)"
^XMB(3.9,166,2,2930,0)=" I $G(^%ZIS(1,XUDEV,95))]"""",%A'=""@"" D"
^XMB(3.9,166,2,2931,0)="""RTN"",""XUS3"",22,0)"
^XMB(3.9,166,2,2932,0)=" . S %H=$P(^(95),U),%B=1 F Y=1:1:$L(%H) I %A[$E(%H,Y) S %B=0"
^XMB(3.9,166,2,2933,0)="""RTN"",""XUS3"",23,0)"
^XMB(3.9,166,2,2934,0)=" I %B D  Q"
^XMB(3.9,166,2,2935,0)="""RTN"",""XUS3"",24,0)"
^XMB(3.9,166,2,2936,0)=" . S XMB=""XUSECURITY"",XMB(1)=$P(XUSER(0),U,1),XMB(2)=$I,XMB(3)=^(95),XMB(4)=%A D ^XMB"
^XMB(3.9,166,2,2937,0)="""RTN"",""XUS3"",25,0)"
^XMB(3.9,166,2,2938,0)=" . S XUM=10"
^XMB(3.9,166,2,2939,0)="""RTN"",""XUS3"",26,0)"
^XMB(3.9,166,2,2940,0)=" . Q"
^XMB(3.9,166,2,2941,0)="""RTN"",""XUS3"",27,0)"
^XMB(3.9,166,2,2942,0)=" S %A=$P($G(^%ZIS(1,XUDEV,""TIME"")),U) Q:%A="""""
^XMB(3.9,166,2,2943,0)="""RTN"",""XUS3"",28,0)"
^XMB(3.9,166,2,2944,0)=" S Y=$P($H,"","",2),%H=Y\60#60+(Y\3600*100),Y=$P(%A,""-"",2)"
^XMB(3.9,166,2,2945,0)="""RTN"",""XUS3"",29,0)"
^XMB(3.9,166,2,2946,0)=" I Y'<%A G NOPE:%H'>Y&(%H'<%A) Q"
^XMB(3.9,166,2,2947,0)="""RTN"",""XUS3"",30,0)"
^XMB(3.9,166,2,2948,0)=" Q:%H'>%A&(%H'<Y)"
^XMB(3.9,166,2,2949,0)="""RTN"",""XUS3"",31,0)"
^XMB(3.9,166,2,2950,0)="NOPE S XMB=""XUSTIME"",XMB(1)=$I,XMB(2)=$P(XUSER(0),U,1),XMB(4)=%A D ^XMB"
^XMB(3.9,166,2,2951,0)="""RTN"",""XUS3"",32,0)"
^XMB(3.9,166,2,2952,0)=" S XUM=13,XUM(0)=%A"
^XMB(3.9,166,2,2953,0)="""RTN"",""XUS3"",33,0)"
^XMB(3.9,166,2,2954,0)=" Q"
^XMB(3.9,166,2,2955,0)="""RTN"",""XUS3"",34,0)"
^XMB(3.9,166,2,2956,0)=" ;"
^XMB(3.9,166,2,2957,0)="""RTN"",""XUS3"",35,0)"
^XMB(3.9,166,2,2958,0)="H3(%) ;Convert $H to seconds."
^XMB(3.9,166,2,2959,0)="""RTN"",""XUS3"",36,0)"
^XMB(3.9,166,2,2960,0)=" Q 86400*%+$P(%,"","",2)"
^XMB(3.9,166,2,2961,0)="""RTN"",""XUS3"",37,0)"
^XMB(3.9,166,2,2962,0)=" ;"
^XMB(3.9,166,2,2963,0)="""RTN"",""XUS3"",38,0)"
^XMB(3.9,166,2,2964,0)="GETFAC(IP) ;Set XUFAC from saved value,  Failed Access Count"
^XMB(3.9,166,2,2965,0)="""RTN"",""XUS3"",39,0)"
^XMB(3.9,166,2,2966,0)=" I $D(XUFAC) Q"
^XMB(3.9,166,2,2967,0)="""RTN"",""XUS3"",40,0)"
^XMB(3.9,166,2,2968,0)=" S XUFAC=0 ;Use default."
^XMB(3.9,166,2,2969,0)="""RTN"",""XUS3"",41,0)"
^XMB(3.9,166,2,2970,0)=" Q:'$L(IP)"
^XMB(3.9,166,2,2971,0)="""RTN"",""XUS3"",42,0)"
^XMB(3.9,166,2,2972,0)=" N X,R"
^XMB(3.9,166,2,2973,0)="""RTN"",""XUS3"",43,0)"
^XMB(3.9,166,2,2974,0)=" S X=$$FINDFAC(IP)"
^XMB(3.9,166,2,2975,0)="""RTN"",""XUS3"",44,0)"
^XMB(3.9,166,2,2976,0)=" ;Clear count if lockout time has passed"
^XMB(3.9,166,2,2977,0)="""RTN"",""XUS3"",45,0)"
^XMB(3.9,166,2,2978,0)=" I X>0 D"
^XMB(3.9,166,2,2979,0)="""RTN"",""XUS3"",46,0)"
^XMB(3.9,166,2,2980,0)=" . L +^XUSEC(4,X,0):5"
^XMB(3.9,166,2,2981,0)="""RTN"",""XUS3"",47,0)"
^XMB(3.9,166,2,2982,0)=" . S R=$G(^XUSEC(4,X,0))"
^XMB(3.9,166,2,2983,0)="""RTN"",""XUS3"",48,0)"
^XMB(3.9,166,2,2984,0)=" . L -^XUSEC(4,X,0)"
^XMB(3.9,166,2,2985,0)="""RTN"",""XUS3"",49,0)"
^XMB(3.9,166,2,2986,0)=" . ;Use 30 seconds as a balance. Not lock user out, stop scripts."
^XMB(3.9,166,2,2987,0)="""RTN"",""XUS3"",50,0)"
^XMB(3.9,166,2,2988,0)=" . I ($$H3($P(R,""^"",3))+30)<$$H3($H) D CLRFAC(IP) Q  ;Exit without changing XUFAC"
^XMB(3.9,166,2,2989,0)="""RTN"",""XUS3"",51,0)"
^XMB(3.9,166,2,2990,0)=" . S XUFAC=$P(R,U,2)"
^XMB(3.9,166,2,2991,0)="""RTN"",""XUS3"",52,0)"
^XMB(3.9,166,2,2992,0)=" . Q"
^XMB(3.9,166,2,2993,0)="""RTN"",""XUS3"",53,0)"
^XMB(3.9,166,2,2994,0)=" ;If IP is a TS, if should lock return 4 else 0."
^XMB(3.9,166,2,2995,0)="""RTN"",""XUS3"",54,0)"
^XMB(3.9,166,2,2996,0)=" I $$TS S XUFAC=$S($$IPCHECK^XUSTZIP(IP):4,1:0)"
^XMB(3.9,166,2,2997,0)="""RTN"",""XUS3"",55,0)"
^XMB(3.9,166,2,2998,0)=" Q"
^XMB(3.9,166,2,2999,0)="""RTN"",""XUS3"",56,0)"
^XMB(3.9,166,2,3000,0)=" ;"
^XMB(3.9,166,2,3001,0)="""RTN"",""XUS3"",57,0)"
^XMB(3.9,166,2,3002,0)="TS() ;Is IP a Terminal Server (check TSCHK in XUSTZIP)."
^XMB(3.9,166,2,3003,0)="""RTN"",""XUS3"",58,0)"
^XMB(3.9,166,2,3004,0)=" Q $L($O(^XTV(8989.3,1,405.2,""B"",IP,0)))"
^XMB(3.9,166,2,3005,0)="""RTN"",""XUS3"",59,0)"
^XMB(3.9,166,2,3006,0)=" ;"
^XMB(3.9,166,2,3007,0)="""RTN"",""XUS3"",60,0)"
^XMB(3.9,166,2,3008,0)="FINDFAC(IP) ;Find the entry"
^XMB(3.9,166,2,3009,0)="""RTN"",""XUS3"",61,0)"
^XMB(3.9,166,2,3010,0)=" N I"
^XMB(3.9,166,2,3011,0)="""RTN"",""XUS3"",62,0)"
^XMB(3.9,166,2,3012,0)=" I $G(XUFAC(1))>0,$D(^XUSEC(4,XUFAC(1),0)) Q XUFAC(1)"
^XMB(3.9,166,2,3013,0)="""RTN"",""XUS3"",63,0)"
^XMB(3.9,166,2,3014,0)=" K XUFAC(1)"
^XMB(3.9,166,2,3015,0)="""RTN"",""XUS3"",64,0)"
^XMB(3.9,166,2,3016,0)=" Q:'$L(IP) 0"
^XMB(3.9,166,2,3017,0)="""RTN"",""XUS3"",65,0)"
^XMB(3.9,166,2,3018,0)=" S I=$O(^XUSEC(4,""B"",IP,0))"
^XMB(3.9,166,2,3019,0)="""RTN"",""XUS3"",66,0)"
^XMB(3.9,166,2,3020,0)=" I I>0 S XUFAC(1)=I"
^XMB(3.9,166,2,3021,0)="""RTN"",""XUS3"",67,0)"
^XMB(3.9,166,2,3022,0)=" Q I"
^XMB(3.9,166,2,3023,0)="""RTN"",""XUS3"",68,0)"
^XMB(3.9,166,2,3024,0)="SETFAC(IP) ;Set the value of Failed Access atempts"
^XMB(3.9,166,2,3025,0)="""RTN"",""XUS3"",69,0)"
^XMB(3.9,166,2,3026,0)=" N FDA,IEN,I"
^XMB(3.9,166,2,3027,0)="""RTN"",""XUS3"",70,0)"
^XMB(3.9,166,2,3028,0)=" I $G(XUFAC(1)),'$D(^XUSEC(4,XUFAC(1),0)) K XUFAC(1)"
^XMB(3.9,166,2,3029,0)="""RTN"",""XUS3"",71,0)"
^XMB(3.9,166,2,3030,0)=" S I=$S($G(XUFAC(1)):XUFAC(1),1:""?+1"")_"","""
^XMB(3.9,166,2,3031,0)="""RTN"",""XUS3"",72,0)"
^XMB(3.9,166,2,3032,0)=" S FDA(3.084,I,.01)=IP,FDA(3.084,I,2)=XUFAC,FDA(3.084,I,3)=$H"
^XMB(3.9,166,2,3033,0)="""RTN"",""XUS3"",73,0)"
^XMB(3.9,166,2,3034,0)=" D UPDATE^DIE(""S"",""FDA"",""IEN"")"
^XMB(3.9,166,2,3035,0)="""RTN"",""XUS3"",74,0)"
^XMB(3.9,166,2,3036,0)=" I $G(IEN(1))>0 S XUFAC(1)=IEN(1)"
^XMB(3.9,166,2,3037,0)="""RTN"",""XUS3"",75,0)"
^XMB(3.9,166,2,3038,0)=" Q"
^XMB(3.9,166,2,3039,0)="""RTN"",""XUS3"",76,0)"
^XMB(3.9,166,2,3040,0)=" ;"
^XMB(3.9,166,2,3041,0)="""RTN"",""XUS3"",77,0)"
^XMB(3.9,166,2,3042,0)="CLRFAC(IP) ;Clear FAC from the global"
^XMB(3.9,166,2,3043,0)="""RTN"",""XUS3"",78,0)"
^XMB(3.9,166,2,3044,0)=" N DA,DIK,I"
^XMB(3.9,166,2,3045,0)="""RTN"",""XUS3"",79,0)"
^XMB(3.9,166,2,3046,0)=" S I=$$FINDFAC(IP) Q:I'>0"
^XMB(3.9,166,2,3047,0)="""RTN"",""XUS3"",80,0)"
^XMB(3.9,166,2,3048,0)=" S DA=I,DIK=""^XUSEC(4,"" D ^DIK"
^XMB(3.9,166,2,3049,0)="""RTN"",""XUS3"",81,0)"
^XMB(3.9,166,2,3050,0)=" Q"
^XMB(3.9,166,2,3051,0)="""RTN"",""XUS3"",82,0)"
^XMB(3.9,166,2,3052,0)=" ;"
^XMB(3.9,166,2,3053,0)="""RTN"",""XUS3"",83,0)"
^XMB(3.9,166,2,3054,0)="FAIL(IP) ;If user fails logon, Call to inc XUFAC"
^XMB(3.9,166,2,3055,0)="""RTN"",""XUS3"",84,0)"
^XMB(3.9,166,2,3056,0)=" ; and check if time to lock.  IP is optional."
^XMB(3.9,166,2,3057,0)="""RTN"",""XUS3"",85,0)"
^XMB(3.9,166,2,3058,0)=" S IP=$$IP^XUSTZIP"
^XMB(3.9,166,2,3059,0)="""RTN"",""XUS3"",86,0)"
^XMB(3.9,166,2,3060,0)=" D GETFAC(IP) I '$L($G(XOPT)) D XOPT^XUS"
^XMB(3.9,166,2,3061,0)="""RTN"",""XUS3"",87,0)"
^XMB(3.9,166,2,3062,0)=" S XUFAC=XUFAC+1 D SETFAC(IP) ;Fail count"
^XMB(3.9,166,2,3063,0)="""RTN"",""XUS3"",88,0)"
^XMB(3.9,166,2,3064,0)=" Q XUFAC'<$P(XOPT,U,2)"
^XMB(3.9,166,2,3065,0)="""RTN"",""XUS3"",89,0)"
^XMB(3.9,166,2,3066,0)=" ;"
^XMB(3.9,166,2,3067,0)="""RTN"",""XUS3"",90,0)"
^XMB(3.9,166,2,3068,0)="NO() ;Fail, R/S entry. Reference to XGWIN has been removed."
^XMB(3.9,166,2,3069,0)="""RTN"",""XUS3"",91,0)"
^XMB(3.9,166,2,3070,0)=" N XUEXIT,% ;Gets set in $$TXT, If 1 halt process."
^XMB(3.9,166,2,3071,0)="""RTN"",""XUS3"",92,0)"
^XMB(3.9,166,2,3072,0)=" W !,""Device: "",$I,!!,$$TXT(XUM),!"
^XMB(3.9,166,2,3073,0)="""RTN"",""XUS3"",93,0)"
^XMB(3.9,166,2,3074,0)=" S %=$$FAIL($G(IO(""IP""))),XUEXIT=XUEXIT!$D(XUHALT)"
^XMB(3.9,166,2,3075,0)="""RTN"",""XUS3"",94,0)"
^XMB(3.9,166,2,3076,0)=" I ('XUEXIT)&'% Q 0 ;Continue to try"
^XMB(3.9,166,2,3077,0)="""RTN"",""XUS3"",95,0)"
^XMB(3.9,166,2,3078,0)=" I 'XUEXIT&(XUM-7) W !,$$TXT(7) ;Tell user we are locking device"
^XMB(3.9,166,2,3079,0)="""RTN"",""XUS3"",96,0)"
^XMB(3.9,166,2,3080,0)=" ;XUF handled in XUSTZ"
^XMB(3.9,166,2,3081,0)="""RTN"",""XUS3"",97,0)"
^XMB(3.9,166,2,3082,0)=" I 'XUEXIT D ^XUSTZ"
^XMB(3.9,166,2,3083,0)="""RTN"",""XUS3"",98,0)"
^XMB(3.9,166,2,3084,0)=" H 4"
^XMB(3.9,166,2,3085,0)="""RTN"",""XUS3"",99,0)"
^XMB(3.9,166,2,3086,0)=" Q XUEXIT"
^XMB(3.9,166,2,3087,0)="""RTN"",""XUS3"",100,0)"
^XMB(3.9,166,2,3088,0)=" ;"
^XMB(3.9,166,2,3089,0)="""RTN"",""XUS3"",101,0)"
^XMB(3.9,166,2,3090,0)="TXT(%) ;Call by R/S and Broker"
^XMB(3.9,166,2,3091,0)="""RTN"",""XUS3"",102,0)"
^XMB(3.9,166,2,3092,0)=" N XU1"
^XMB(3.9,166,2,3093,0)="""RTN"",""XUS3"",103,0)"
^XMB(3.9,166,2,3094,0)=" ;This string tells if a error code should HALT process."
^XMB(3.9,166,2,3095,0)="""RTN"",""XUS3"",104,0)"
^XMB(3.9,166,2,3096,0)=" S:'$D(XUEXIT) XUEXIT=$E(""111000010100100000000"",%)"
^XMB(3.9,166,2,3097,0)="""RTN"",""XUS3"",105,0)"
^XMB(3.9,166,2,3098,0)=" S XU1=30810+(%/100)"
^XMB(3.9,166,2,3099,0)="""RTN"",""XUS3"",106,0)"
^XMB(3.9,166,2,3100,0)=" S %=$$EZBLD^DIALOG(XU1) I %[""|"" S %=$P(%,""|"",1)_$G(XUM(0))_$P(%,""|"",2)"
^XMB(3.9,166,2,3101,0)="""RTN"",""XUS3"",107,0)"
^XMB(3.9,166,2,3102,0)=" K XUM(0)"
^XMB(3.9,166,2,3103,0)="""RTN"",""XUS3"",108,0)"
^XMB(3.9,166,2,3104,0)=" Q %"
^XMB(3.9,166,2,3105,0)="""RTN"",""XUS3"",109,0)"
^XMB(3.9,166,2,3106,0)=" ;All error messages are now in the DIALOG file."
^XMB(3.9,166,2,3107,0)="""RTN"",""XUS3"",110,0)"
^XMB(3.9,166,2,3108,0)=" ;Message numbers are 30810.01 to 30810.99"
^XMB(3.9,166,2,3109,0)="""RTN"",""XUS3"",111,0)"
^XMB(3.9,166,2,3110,0)="ZZ ;;Halt;Error Messages"
^XMB(3.9,166,2,3111,0)="""RTN"",""XUS3"",112,0)"
^XMB(3.9,166,2,3112,0)="1 ;;1;No Signons."
^XMB(3.9,166,2,3113,0)="""RTN"",""XUS3"",113,0)"
^XMB(3.9,166,2,3114,0)="2 ;;1;Maximum users."
^XMB(3.9,166,2,3115,0)="""RTN"",""XUS3"",114,0)"
^XMB(3.9,166,2,3116,0)="3 ;;1;Bad device."
^XMB(3.9,166,2,3117,0)="""RTN"",""XUS3"",115,0)"
^XMB(3.9,166,2,3118,0)="4 ;;0;Invalid A/V code."
^XMB(3.9,166,2,3119,0)="""RTN"",""XUS3"",116,0)"
^XMB(3.9,166,2,3120,0)="5 ;;0;No Access for User."
^XMB(3.9,166,2,3121,0)="""RTN"",""XUS3"",117,0)"
^XMB(3.9,166,2,3122,0)="6 ;;0;Invalid device password."
^XMB(3.9,166,2,3123,0)="""RTN"",""XUS3"",118,0)"
^XMB(3.9,166,2,3124,0)="7 ;;0;Device locked."
^XMB(3.9,166,2,3125,0)="""RTN"",""XUS3"",119,0)"
^XMB(3.9,166,2,3126,0)="8 ;;1;This device is out of service."
^XMB(3.9,166,2,3127,0)="""RTN"",""XUS3"",120,0)"
^XMB(3.9,166,2,3128,0)="9 ;;0;*** MULTIPLE SIGN-ONS NOT ALLOWED ***"
^XMB(3.9,166,2,3129,0)="""RTN"",""XUS3"",121,0)"
^XMB(3.9,166,2,3130,0)="10 ;;1;You don't have access to this device!"
^XMB(3.9,166,2,3131,0)="""RTN"",""XUS3"",122,0)"
^XMB(3.9,166,2,3132,0)="11 ;;0;Access code terminated."
^XMB(3.9,166,2,3133,0)="""RTN"",""XUS3"",123,0)"
^XMB(3.9,166,2,3134,0)="12 ;;0;Change VERIFY code."
^XMB(3.9,166,2,3135,0)="""RTN"",""XUS3"",124,0)"
^XMB(3.9,166,2,3136,0)="13 ;;1;Time limited device."
^XMB(3.9,166,2,3137,0)="""RTN"",""XUS3"",125,0)"
^XMB(3.9,166,2,3138,0)="14 ;;0;Bad UCI!"
^XMB(3.9,166,2,3139,0)="""RTN"",""XUS3"",126,0)"
^XMB(3.9,166,2,3140,0)="15 ;;0;Bad Routine."
^XMB(3.9,166,2,3141,0)="""RTN"",""XUS3"",127,0)"
^XMB(3.9,166,2,3142,0)="16 ;;0;No PRIMARY MENU."
^XMB(3.9,166,2,3143,0)="""RTN"",""XUS3"",128,0)"
^XMB(3.9,166,2,3144,0)="17 ;;0;User Time limited."
^XMB(3.9,166,2,3145,0)="""RTN"",""XUS3"",129,0)"
^XMB(3.9,166,2,3146,0)="18 ;;0;User lockout"
^XMB(3.9,166,2,3147,0)="""RTN"",""XUS3"",130,0)"
^XMB(3.9,166,2,3148,0)="19 ;;0;Signon not allowed as you have required forms to sign in terminal mode."
^XMB(3.9,166,2,3149,0)="""RTN"",""XUS3"",131,0)"
^XMB(3.9,166,2,3150,0)="20 ;;0;Client IP address not setup."
^XMB(3.9,166,2,3151,0)="""RTN"",""XUS3"",132,0)"
^XMB(3.9,166,2,3152,0)="21 ;;0;Null Verify code"
^XMB(3.9,166,2,3153,0)="""RTN"",""XUSERBLK"")"
^XMB(3.9,166,2,3154,0)="0^1^B39902231^B35647610"
^XMB(3.9,166,2,3155,0)="""RTN"",""XUSERBLK"",1,0)"
^XMB(3.9,166,2,3156,0)="XUSERBLK ;SF/RWF - Bulk user (new person) COMPUTER ACCESS  ; 5/23/2006"
^XMB(3.9,166,2,3157,0)="""RTN"",""XUSERBLK"",2,0)"
^XMB(3.9,166,2,3158,0)=" ;;8.0;KERNEL;**20,214,230,289,419**;Jul 10, 1995;Build 5"
^XMB(3.9,166,2,3159,0)="""RTN"",""XUSERBLK"",3,0)"
^XMB(3.9,166,2,3160,0)=" ; This routine allows the Cloning of one person to a group of others."
^XMB(3.9,166,2,3161,0)="""RTN"",""XUSERBLK"",4,0)"
^XMB(3.9,166,2,3162,0)="A ;"
^XMB(3.9,166,2,3163,0)="""RTN"",""XUSERBLK"",5,0)"
^XMB(3.9,166,2,3164,0)=" I $G(DUZ)'>0 W !!,""You are not a known user and can't use this option."" Q"
^XMB(3.9,166,2,3165,0)="""RTN"",""XUSERBLK"",6,0)"
^XMB(3.9,166,2,3166,0)=" N DIC,DIR,%,L,XUIOP,XUNODE,XU1,X1,X2,X3,X4,X5,X6,XUTEXT,XUNEW,XUSER,XUTMP,XUTERMDT,XUH,XUU,XUU2,M,P,XU"
^XMB(3.9,166,2,3167,0)="""RTN"",""XUSERBLK"",7,0)"
^XMB(3.9,166,2,3168,0)=" K ^TMP($J)"
^XMB(3.9,166,2,3169,0)="""RTN"",""XUSERBLK"",8,0)"
^XMB(3.9,166,2,3170,0)="B1 W @IOF,!?26,""Batch Entry of New Persons"""
^XMB(3.9,166,2,3171,0)="""RTN"",""XUSERBLK"",9,0)"
^XMB(3.9,166,2,3172,0)=" W !?26,""--------------------------"",!!,""Please select a person to copy from"""
^XMB(3.9,166,2,3173,0)="""RTN"",""XUSERBLK"",10,0)"
^XMB(3.9,166,2,3174,0)=" K DIC S DIC(0)=""AEQZ"",DIC(""A"")=""Template PERSON: "",DIC=""^VA(200,"" D ^DIC"
^XMB(3.9,166,2,3175,0)="""RTN"",""XUSERBLK"",11,0)"
^XMB(3.9,166,2,3176,0)=" G QUIT:$D(DTOUT)!$D(DUOUT),B1:Y=-1"
^XMB(3.9,166,2,3177,0)="""RTN"",""XUSERBLK"",12,0)"
^XMB(3.9,166,2,3178,0)=" ; Show INFO to be copied"""
^XMB(3.9,166,2,3179,0)="""RTN"",""XUSERBLK"",13,0)"
^XMB(3.9,166,2,3180,0)=" S XUTMP=+Y,XUTMP(0)=$P(Y,U,2),DA=+Y D EN^DIQ"
^XMB(3.9,166,2,3181,0)="""RTN"",""XUSERBLK"",14,0)"
^XMB(3.9,166,2,3182,0)=" S DIR(0)=""Y"",DIR(""A"")=""Is this the person data you want cloned"" D ^DIR G B1:'Y"
^XMB(3.9,166,2,3183,0)="""RTN"",""XUSERBLK"",15,0)"
^XMB(3.9,166,2,3184,0)=" W !,""You may enter a date, when the users that are being created/updated"",!,""will no longer have access to the system."""
^XMB(3.9,166,2,3185,0)="""RTN"",""XUSERBLK"",16,0)"
^XMB(3.9,166,2,3186,0)=" S XUTERMDT="""",%DT=""AEF"",%DT(0)=DT,%DT(""A"")=""Enter (optional) TERMINATION DATE: "" D ^%DT S:Y>0 XUTERMDT=Y"
^XMB(3.9,166,2,3187,0)="""RTN"",""XUSERBLK"",17,0)"
^XMB(3.9,166,2,3188,0)=" K XUSER S XUSER=0"
^XMB(3.9,166,2,3189,0)="""RTN"",""XUSERBLK"",18,0)"
^XMB(3.9,166,2,3190,0)="B2 ;"
^XMB(3.9,166,2,3191,0)="""RTN"",""XUSERBLK"",19,0)"
^XMB(3.9,166,2,3192,0)=" W !!,?26,""Batch Entry of New Persons"",!,?26,""--------------------------"",!"
^XMB(3.9,166,2,3193,0)="""RTN"",""XUSERBLK"",20,0)"
^XMB(3.9,166,2,3194,0)=" W !,""Clone of: "",XUTMP(0) I XUTERMDT W ?50,""TERMINATION DATE: "",$$FMTE^XLFDT(XUTERMDT)"
^XMB(3.9,166,2,3195,0)="""RTN"",""XUSERBLK"",21,0)"
^XMB(3.9,166,2,3196,0)=" ;;"
^XMB(3.9,166,2,3197,0)="""RTN"",""XUSERBLK"",22,0)"
^XMB(3.9,166,2,3198,0)="B3 F  S XUY=$$ADD^XUSERNEW Q:XUY<0  D  ;Create new entry"
^XMB(3.9,166,2,3199,0)="""RTN"",""XUSERBLK"",23,0)"
^XMB(3.9,166,2,3200,0)=" . I '$P(XUY,U,3) D"
^XMB(3.9,166,2,3201,0)="""RTN"",""XUSERBLK"",24,0)"
^XMB(3.9,166,2,3202,0)=" . . S DIR(0)=""Y"",DIR(""A"")=$P(XUY,U,2)_"" is an existing user. Do you want to include"" D ^DIR I Y'=1 S XUY=-1 Q"
^XMB(3.9,166,2,3203,0)="""RTN"",""XUSERBLK"",25,0)"
^XMB(3.9,166,2,3204,0)=" . . S DIR(0)=""Y"",DIR(""A"")=""Clear out KEYS, FILES, SECONDARY MENUS first"" D ^DIR"
^XMB(3.9,166,2,3205,0)="""RTN"",""XUSERBLK"",26,0)"
^XMB(3.9,166,2,3206,0)=" . . S:Y=1 $P(XUY,U,4)=1"
^XMB(3.9,166,2,3207,0)="""RTN"",""XUSERBLK"",27,0)"
^XMB(3.9,166,2,3208,0)=" . . Q"
^XMB(3.9,166,2,3209,0)="""RTN"",""XUSERBLK"",28,0)"
^XMB(3.9,166,2,3210,0)=" . I XUY>0 D"
^XMB(3.9,166,2,3211,0)="""RTN"",""XUSERBLK"",29,0)"
^XMB(3.9,166,2,3212,0)=" . . S DIR(0)=""Y"",DIR(""A"")=""Do You Want To Clone PERSON CLASS"" D ^DIR"
^XMB(3.9,166,2,3213,0)="""RTN"",""XUSERBLK"",30,0)"
^XMB(3.9,166,2,3214,0)=" . . S:Y=1 $P(XUY,U,5)=1"
^XMB(3.9,166,2,3215,0)="""RTN"",""XUSERBLK"",31,0)"
^XMB(3.9,166,2,3216,0)=" . S:XUY>0 XUSER=XUSER+1,XUSER(XUSER)=XUY W !,""Next!"",!"
^XMB(3.9,166,2,3217,0)="""RTN"",""XUSERBLK"",32,0)"
^XMB(3.9,166,2,3218,0)=" . Q"
^XMB(3.9,166,2,3219,0)="""RTN"",""XUSERBLK"",33,0)"
^XMB(3.9,166,2,3220,0)="B4 ;"
^XMB(3.9,166,2,3221,0)="""RTN"",""XUSERBLK"",34,0)"
^XMB(3.9,166,2,3222,0)=" G:XUSER'>0 QUIT"
^XMB(3.9,166,2,3223,0)="""RTN"",""XUSERBLK"",35,0)"
^XMB(3.9,166,2,3224,0)=" I XUTERMDT>0 S ZTRTN=""CHECK^XUSTERM1"",ZTIO="""",ZTDTH=XUTERMDT D ^%ZTLOAD W !,""Automatic deactivation has been queued for this date."",!"
^XMB(3.9,166,2,3225,0)="""RTN"",""XUSERBLK"",36,0)"
^XMB(3.9,166,2,3226,0)=" W !!,""Where do you want to print the COMPUTER ACCOUNT NOTIFICATION LETTERS"""
^XMB(3.9,166,2,3227,0)="""RTN"",""XUSERBLK"",37,0)"
^XMB(3.9,166,2,3228,0)=" S %ZIS=""MQ"" D ^%ZIS G QUIT:POP"
^XMB(3.9,166,2,3229,0)="""RTN"",""XUSERBLK"",38,0)"
^XMB(3.9,166,2,3230,0)=" I ION[""P-MESSAGE-HFS"" G START"
^XMB(3.9,166,2,3231,0)="""RTN"",""XUSERBLK"",39,0)"
^XMB(3.9,166,2,3232,0)=" I '$D(IO(""Q"")) G CLONE"
^XMB(3.9,166,2,3233,0)="""RTN"",""XUSERBLK"",40,0)"
^XMB(3.9,166,2,3234,0)="START ;"
^XMB(3.9,166,2,3235,0)="""RTN"",""XUSERBLK"",41,0)"
^XMB(3.9,166,2,3236,0)=" S ZTRTN=""CLONE^XUSERBLK"" F I=""XUTMP"",""XUTERMDT"",""XUSER"",""XUSER("" S ZTSAVE(I)="""""
^XMB(3.9,166,2,3237,0)="""RTN"",""XUSERBLK"",42,0)"
^XMB(3.9,166,2,3238,0)=" K IO(""Q"") D ^%ZTLOAD"
^XMB(3.9,166,2,3239,0)="""RTN"",""XUSERBLK"",43,0)"
^XMB(3.9,166,2,3240,0)=" ;;"
^XMB(3.9,166,2,3241,0)="""RTN"",""XUSERBLK"",44,0)"
^XMB(3.9,166,2,3242,0)="QUIT ;"
^XMB(3.9,166,2,3243,0)="""RTN"",""XUSERBLK"",45,0)"
^XMB(3.9,166,2,3244,0)=" K DIC,DIR,%,L,XUIOP,XUNODE,XU1,X1,X2,X3,X4,X5,X6,XUTEXT,XUNEW,XUSER,XUTMP,XUTERMDT,XUH,XUU,XUU2,M,P,XU"
^XMB(3.9,166,2,3245,0)="""RTN"",""XUSERBLK"",46,0)"
^XMB(3.9,166,2,3246,0)=" K ^TMP($J)"
^XMB(3.9,166,2,3247,0)="""RTN"",""XUSERBLK"",47,0)"
^XMB(3.9,166,2,3248,0)=" Q"
^XMB(3.9,166,2,3249,0)="""RTN"",""XUSERBLK"",48,0)"
^XMB(3.9,166,2,3250,0)=" ;;"
^XMB(3.9,166,2,3251,0)="""RTN"",""XUSERBLK"",49,0)"
^XMB(3.9,166,2,3252,0)="CLONE ;;Do work"
^XMB(3.9,166,2,3253,0)="""RTN"",""XUSERBLK"",50,0)"
^XMB(3.9,166,2,3254,0)=" S XUTEXT=$O(^DIC(9.2,""B"",$$GET^XUPARAM(""XUSER COMPUTER ACCOUNT"",""N""),0)),XUIOP=ION_"";""_IOST_"";""_IOM_"";""_IOSL"
^XMB(3.9,166,2,3255,0)="""RTN"",""XUSERBLK"",51,0)"
^XMB(3.9,166,2,3256,0)=" F XU1=1:1:XUSER S %=XUSER(XU1),DA=+%,XUNEW=$P(%,U,3),XUPURGE=$P(%,U,4) D C2,UPDATE(""ORD"",DA)"
^XMB(3.9,166,2,3257,0)="""RTN"",""XUSERBLK"",52,0)"
^XMB(3.9,166,2,3258,0)=" G QUIT"
^XMB(3.9,166,2,3259,0)="""RTN"",""XUSERBLK"",53,0)"
^XMB(3.9,166,2,3260,0)=" ;"
^XMB(3.9,166,2,3261,0)="""RTN"",""XUSERBLK"",54,0)"
^XMB(3.9,166,2,3262,0)="C2 ;"
^XMB(3.9,166,2,3263,0)="""RTN"",""XUSERBLK"",55,0)"
^XMB(3.9,166,2,3264,0)=" N XUH,XUH2,XUU,XUU2"
^XMB(3.9,166,2,3265,0)="""RTN"",""XUSERBLK"",56,0)"
^XMB(3.9,166,2,3266,0)=" I '$D(ZTQUEUED) W !!?8,$S(XUNEW:""CREATING A NEW ACCOUNT FOR '""_$P(XUSER(XU1),U,2)_""'"",1:""CONVERTING ""_$P(XUSER(XU1),U,2)_""'S ACCOUNT OVER""),!!,""One moment please..."""
^XMB(3.9,166,2,3267,0)="""RTN"",""XUSERBLK"",57,0)"
^XMB(3.9,166,2,3268,0)=" D BLDFDA"
^XMB(3.9,166,2,3269,0)="""RTN"",""XUSERBLK"",58,0)"
^XMB(3.9,166,2,3270,0)=" I $P(^VA(200,DA,0),U,3)']"""" S XUNEW=1 ;if no access code treat as new"
^XMB(3.9,166,2,3271,0)="""RTN"",""XUSERBLK"",59,0)"
^XMB(3.9,166,2,3272,0)=" I $P($G(^VA(200,DA,.1)),U,2)']"""" S XUNEW=1 ;If no verify code treat as new"
^XMB(3.9,166,2,3273,0)="""RTN"",""XUSERBLK"",60,0)"
^XMB(3.9,166,2,3274,0)=" S (XUU,XUU2)=""unchanged"",$P(^VA(200,DA,0),U,11)=XUTERMDT"
^XMB(3.9,166,2,3275,0)="""RTN"",""XUSERBLK"",61,0)"
^XMB(3.9,166,2,3276,0)=" I XUNEW D ACODE S @XFDA@(200,DA_"","",2)=XUH D VCODE S @XFDA@(200,DA_"","",11)=XUH2"
^XMB(3.9,166,2,3277,0)="""RTN"",""XUSERBLK"",62,0)"
^XMB(3.9,166,2,3278,0)=" D UPDATE^DIE("""",XFDA,XIEN,""XERR"") K @XFDA"
^XMB(3.9,166,2,3279,0)="""RTN"",""XUSERBLK"",63,0)"
^XMB(3.9,166,2,3280,0)=" I XUNEW,XUTEXT>0 D LET(DA,XUTEXT)"
^XMB(3.9,166,2,3281,0)="""RTN"",""XUSERBLK"",64,0)"
^XMB(3.9,166,2,3282,0)=" I $D(^XMB(3.7,DA,0))[0 S Y=DA K XMZ D NEW^XM K XMDT,XMM,XMZ"
^XMB(3.9,166,2,3283,0)="""RTN"",""XUSERBLK"",65,0)"
^XMB(3.9,166,2,3284,0)=" Q"
^XMB(3.9,166,2,3285,0)="""RTN"",""XUSERBLK"",66,0)"
^XMB(3.9,166,2,3286,0)=" ;"
^XMB(3.9,166,2,3287,0)="""RTN"",""XUSERBLK"",67,0)"
^XMB(3.9,166,2,3288,0)="BLDFDA ;Build the FDA"
^XMB(3.9,166,2,3289,0)="""RTN"",""XUSERBLK"",68,0)"
^XMB(3.9,166,2,3290,0)=" S XFDA=""^TMP($J,""""XFDA"""")"",XIEN=""^TMP($J,""""XIEN"""")"" K ^TMP($J)"
^XMB(3.9,166,2,3291,0)="""RTN"",""XUSERBLK"",69,0)"
^XMB(3.9,166,2,3292,0)=" ;Move piece on nodes from list, Build XU only once"
^XMB(3.9,166,2,3293,0)="""RTN"",""XUSERBLK"",70,0)"
^XMB(3.9,166,2,3294,0)=" F X2=1:1 S XUNODE=$P($T(DATA+X2),"";;"",2) Q:XUNODE=""""  D"
^XMB(3.9,166,2,3295,0)="""RTN"",""XUSERBLK"",71,0)"
^XMB(3.9,166,2,3296,0)=" . F X3=1:1 S X7=$P(XUNODE,U,X3) Q:X7=""""  S X4=$$GETDD(200,X7),X5=$P(X4,"";""),X6=$P(X4,"";"",2) D"
^XMB(3.9,166,2,3297,0)="""RTN"",""XUSERBLK"",72,0)"
^XMB(3.9,166,2,3298,0)=" . . I '$D(XU(2,X5)) S XU(2,X5)=$G(^VA(200,XUTMP,X5))"
^XMB(3.9,166,2,3299,0)="""RTN"",""XUSERBLK"",73,0)"
^XMB(3.9,166,2,3300,0)=" . . S:$P(XU(2,X5),U,X6)]"""" @XFDA@(200,DA_"","",X7)=$P(XU(2,X5),U,X6)"
^XMB(3.9,166,2,3301,0)="""RTN"",""XUSERBLK"",74,0)"
^XMB(3.9,166,2,3302,0)=" . . Q"
^XMB(3.9,166,2,3303,0)="""RTN"",""XUSERBLK"",75,0)"
^XMB(3.9,166,2,3304,0)=" . Q"
^XMB(3.9,166,2,3305,0)="""RTN"",""XUSERBLK"",76,0)"
^XMB(3.9,166,2,3306,0)=" D SUBFILE"
^XMB(3.9,166,2,3307,0)="""RTN"",""XUSERBLK"",77,0)"
^XMB(3.9,166,2,3308,0)=" Q"
^XMB(3.9,166,2,3309,0)="""RTN"",""XUSERBLK"",78,0)"
^XMB(3.9,166,2,3310,0)=" ;"
^XMB(3.9,166,2,3311,0)="""RTN"",""XUSERBLK"",79,0)"
^XMB(3.9,166,2,3312,0)="GETDD(FI,FE) ;Return node;piece for a field"
^XMB(3.9,166,2,3313,0)="""RTN"",""XUSERBLK"",80,0)"
^XMB(3.9,166,2,3314,0)=" Q $P($G(^DD(FI,FE,0)),U,4)"
^XMB(3.9,166,2,3315,0)="""RTN"",""XUSERBLK"",81,0)"
^XMB(3.9,166,2,3316,0)=" ;"
^XMB(3.9,166,2,3317,0)="""RTN"",""XUSERBLK"",82,0)"
^XMB(3.9,166,2,3318,0)="DATA ;;field#"
^XMB(3.9,166,2,3319,0)="""RTN"",""XUSERBLK"",83,0)"
^XMB(3.9,166,2,3320,0)=" ;;3^8^15^29^28"
^XMB(3.9,166,2,3321,0)="""RTN"",""XUSERBLK"",84,0)"
^XMB(3.9,166,2,3322,0)=" ;;200.04^200.05^200.06^200.09^200.1^201^"
^XMB(3.9,166,2,3323,0)="""RTN"",""XUSERBLK"",85,0)"
^XMB(3.9,166,2,3324,0)=" ;;41^41.1^41.2"
^XMB(3.9,166,2,3325,0)="""RTN"",""XUSERBLK"",86,0)"
^XMB(3.9,166,2,3326,0)=" ;;101.01^101.02"
^XMB(3.9,166,2,3327,0)="""RTN"",""XUSERBLK"",87,0)"
^XMB(3.9,166,2,3328,0)=" ;;9.21^9.22"
^XMB(3.9,166,2,3329,0)="""RTN"",""XUSERBLK"",88,0)"
^XMB(3.9,166,2,3330,0)=" ;;"
^XMB(3.9,166,2,3331,0)="""RTN"",""XUSERBLK"",89,0)"
^XMB(3.9,166,2,3332,0)=" ;"
^XMB(3.9,166,2,3333,0)="""RTN"",""XUSERBLK"",90,0)"
^XMB(3.9,166,2,3334,0)="ACODE ;"
^XMB(3.9,166,2,3335,0)="""RTN"",""XUSERBLK"",91,0)"
^XMB(3.9,166,2,3336,0)=" F Z=0:0 S XUU=$$AC^XUS4(),XUH=$$EN^XUSHSH(XUU) Q:'($D(^VA(200,""AOLD"",XUH))!$D(^VA(200,""A"",XUH)))"
^XMB(3.9,166,2,3337,0)="""RTN"",""XUSERBLK"",92,0)"
^XMB(3.9,166,2,3338,0)=" Q"
^XMB(3.9,166,2,3339,0)="""RTN"",""XUSERBLK"",93,0)"
^XMB(3.9,166,2,3340,0)=" ;"
^XMB(3.9,166,2,3341,0)="""RTN"",""XUSERBLK"",94,0)"
^XMB(3.9,166,2,3342,0)="VCODE ;"
^XMB(3.9,166,2,3343,0)="""RTN"",""XUSERBLK"",95,0)"
^XMB(3.9,166,2,3344,0)=" S XUU2=$$VC^XUS4(),XUH2=$$EN^XUSHSH(XUU2)"
^XMB(3.9,166,2,3345,0)="""RTN"",""XUSERBLK"",96,0)"
^XMB(3.9,166,2,3346,0)=" Q"
^XMB(3.9,166,2,3347,0)="""RTN"",""XUSERBLK"",97,0)"
^XMB(3.9,166,2,3348,0)=" ;"
^XMB(3.9,166,2,3349,0)="""RTN"",""XUSERBLK"",98,0)"
^XMB(3.9,166,2,3350,0)="SUBFILE ;Move subfiles: Subscript, Subfile#, DINUM, Fields"
^XMB(3.9,166,2,3351,0)="""RTN"",""XUSERBLK"",99,0)"
^XMB(3.9,166,2,3352,0)=" N XCNT S XCNT=0"
^XMB(3.9,166,2,3353,0)="""RTN"",""XUSERBLK"",100,0)"
^XMB(3.9,166,2,3354,0)="KEY D MULTI(51,200.051,1,"".01,3"")"
^XMB(3.9,166,2,3355,0)="""RTN"",""XUSERBLK"",101,0)"
^XMB(3.9,166,2,3356,0)="PATH ;D MULTI(19.8,"".01"")"
^XMB(3.9,166,2,3357,0)="""RTN"",""XUSERBLK"",102,0)"
^XMB(3.9,166,2,3358,0)="FOF D MULTI(""FOF"",200.032,1,"".01,1,2,3,4,5,6"")"
^XMB(3.9,166,2,3359,0)="""RTN"",""XUSERBLK"",103,0)"
^XMB(3.9,166,2,3360,0)="DIV D MULTI(2,200.02,1,"".01"")"
^XMB(3.9,166,2,3361,0)="""RTN"",""XUSERBLK"",104,0)"
^XMB(3.9,166,2,3362,0)="SEC D MULTI(203,200.03,0,"".01,2"")"
^XMB(3.9,166,2,3363,0)="""RTN"",""XUSERBLK"",105,0)"
^XMB(3.9,166,2,3364,0)="TAB D MULTI(""ORD"",200.010113,0,"".01,.02,.03"")"
^XMB(3.9,166,2,3365,0)="""RTN"",""XUSERBLK"",106,0)"
^XMB(3.9,166,2,3366,0)="PSCLSS I $P($G(XUSER(XU1)),U,5)=1 D PRSNCL(DA)"
^XMB(3.9,166,2,3367,0)="""RTN"",""XUSERBLK"",107,0)"
^XMB(3.9,166,2,3368,0)=" Q"
^XMB(3.9,166,2,3369,0)="""RTN"",""XUSERBLK"",108,0)"
^XMB(3.9,166,2,3370,0)=" ;"
^XMB(3.9,166,2,3371,0)="""RTN"",""XUSERBLK"",109,0)"
^XMB(3.9,166,2,3372,0)="MULTI(XSS,XSF,XDN,XDD) ;Build new data"
^XMB(3.9,166,2,3373,0)="""RTN"",""XUSERBLK"",110,0)"
^XMB(3.9,166,2,3374,0)=" I XUPURGE D CLEAR(DA,XSS)"
^XMB(3.9,166,2,3375,0)="""RTN"",""XUSERBLK"",111,0)"
^XMB(3.9,166,2,3376,0)=" Q:'$D(^VA(200,XUTMP,XSS,0))"
^XMB(3.9,166,2,3377,0)="""RTN"",""XUSERBLK"",112,0)"
^XMB(3.9,166,2,3378,0)=" ;S X=^(0),Y=$S($D(^VA(200,DA,X2,0)):^(0),1:"""")"
^XMB(3.9,166,2,3379,0)="""RTN"",""XUSERBLK"",113,0)"
^XMB(3.9,166,2,3380,0)=" F X1=0:0 S X1=$O(^VA(200,XUTMP,XSS,X1)) Q:X1'>0  S X=^(X1,0) D"
^XMB(3.9,166,2,3381,0)="""RTN"",""XUSERBLK"",114,0)"
^XMB(3.9,166,2,3382,0)=" . F X2=1:1 S X3=$P(XDD,"","",X2) Q:X3=""""  D"
^XMB(3.9,166,2,3383,0)="""RTN"",""XUSERBLK"",115,0)"
^XMB(3.9,166,2,3384,0)=" . . I X3'=.01 S @XFDA@(XSF,""?+""_XCNT_"",""_DA_"","",X3)=$$VAL(X,X3,XSF) Q"
^XMB(3.9,166,2,3385,0)="""RTN"",""XUSERBLK"",116,0)"
^XMB(3.9,166,2,3386,0)=" . . S XCNT=XCNT+1,@XFDA@(XSF,""?+""_XCNT_"",""_DA_"","",.01)=$P(X,U,1)"
^XMB(3.9,166,2,3387,0)="""RTN"",""XUSERBLK"",117,0)"
^XMB(3.9,166,2,3388,0)=" . . S:XDN @XIEN@(XCNT)=X1"
^XMB(3.9,166,2,3389,0)="""RTN"",""XUSERBLK"",118,0)"
^XMB(3.9,166,2,3390,0)=" . . Q"
^XMB(3.9,166,2,3391,0)="""RTN"",""XUSERBLK"",119,0)"
^XMB(3.9,166,2,3392,0)=" . Q"
^XMB(3.9,166,2,3393,0)="""RTN"",""XUSERBLK"",120,0)"
^XMB(3.9,166,2,3394,0)=" Q"
^XMB(3.9,166,2,3395,0)="""RTN"",""XUSERBLK"",121,0)"
^XMB(3.9,166,2,3396,0)=" ;"
^XMB(3.9,166,2,3397,0)="""RTN"",""XUSERBLK"",122,0)"
^XMB(3.9,166,2,3398,0)="VAL(V,FE,FI) ;Get value"
^XMB(3.9,166,2,3399,0)="""RTN"",""XUSERBLK"",123,0)"
^XMB(3.9,166,2,3400,0)=" N % S %=$$GETDD(FI,FE),%=$P(%,"";"",2) Q $P(V,""^"",%)"
^XMB(3.9,166,2,3401,0)="""RTN"",""XUSERBLK"",124,0)"
^XMB(3.9,166,2,3402,0)=" ;"
^XMB(3.9,166,2,3403,0)="""RTN"",""XUSERBLK"",125,0)"
^XMB(3.9,166,2,3404,0)="LET(DA,XUTEXT) ;Write access letter"
^XMB(3.9,166,2,3405,0)="""RTN"",""XUSERBLK"",126,0)"
^XMB(3.9,166,2,3406,0)=" N DIWF,FR,TO,BY"
^XMB(3.9,166,2,3407,0)="""RTN"",""XUSERBLK"",127,0)"
^XMB(3.9,166,2,3408,0)=" S DIWF=""^DIC(9.2,""_XUTEXT_"",1,"",DIWF(1)=200,FR=DA,TO=DA,BY=""NUMBER"",IOP=XUIOP D EN2^DIWF"
^XMB(3.9,166,2,3409,0)="""RTN"",""XUSERBLK"",128,0)"
^XMB(3.9,166,2,3410,0)=" Q"
^XMB(3.9,166,2,3411,0)="""RTN"",""XUSERBLK"",129,0)"
^XMB(3.9,166,2,3412,0)=" ;"
^XMB(3.9,166,2,3413,0)="""RTN"",""XUSERBLK"",130,0)"
^XMB(3.9,166,2,3414,0)="CLEAR(X4,X2) ;Clear subfile first, IEN, Subscript"
^XMB(3.9,166,2,3415,0)="""RTN"",""XUSERBLK"",131,0)"
^XMB(3.9,166,2,3416,0)=" Q:$D(^VA(200,X4,X2,0))[0  N C,XUFN,XDEL,XMSG"
^XMB(3.9,166,2,3417,0)="""RTN"",""XUSERBLK"",132,0)"
^XMB(3.9,166,2,3418,0)=" S C="","",XDEL=$NA(^TMP($J,""XUBLK2"")),XUFN=+$P(^VA(200,X4,X2,0),""^"",2)"
^XMB(3.9,166,2,3419,0)="""RTN"",""XUSERBLK"",133,0)"
^XMB(3.9,166,2,3420,0)=" F X1=0:0 S X1=$O(^VA(200,X4,X2,X1)) Q:X1'>0  D"
^XMB(3.9,166,2,3421,0)="""RTN"",""XUSERBLK"",134,0)"
^XMB(3.9,166,2,3422,0)=" . I X2=51 S %=$$DEL^XQKEY(X4,X1) Q  ;Special case for KEYS"
^XMB(3.9,166,2,3423,0)="""RTN"",""XUSERBLK"",135,0)"
^XMB(3.9,166,2,3424,0)=" . S @XDEL@(XUFN,X1_C_X4_C,.01)=""@"""
^XMB(3.9,166,2,3425,0)="""RTN"",""XUSERBLK"",136,0)"
^XMB(3.9,166,2,3426,0)=" . Q"
^XMB(3.9,166,2,3427,0)="""RTN"",""XUSERBLK"",137,0)"
^XMB(3.9,166,2,3428,0)=" I $D(@XDEL)>1 D FILE^DIE("""",XDEL,""XMSG"") ;I $D(XMSG) ZW XMSG"
^XMB(3.9,166,2,3429,0)="""RTN"",""XUSERBLK"",138,0)"
^XMB(3.9,166,2,3430,0)=" Q"
^XMB(3.9,166,2,3431,0)="""RTN"",""XUSERBLK"",139,0)"
^XMB(3.9,166,2,3432,0)=" ;"
^XMB(3.9,166,2,3433,0)="""RTN"",""XUSERBLK"",140,0)"
^XMB(3.9,166,2,3434,0)="UPDATE(XX,USRIEN) ;Update effective date"
^XMB(3.9,166,2,3435,0)="""RTN"",""XUSERBLK"",141,0)"
^XMB(3.9,166,2,3436,0)=" N PC,PC1"
^XMB(3.9,166,2,3437,0)="""RTN"",""XUSERBLK"",142,0)"
^XMB(3.9,166,2,3438,0)=" S PC=$O(^VA(200,USRIEN,XX,""A""),-1) Q:PC'>0"
^XMB(3.9,166,2,3439,0)="""RTN"",""XUSERBLK"",143,0)"
^XMB(3.9,166,2,3440,0)=" S PC=0 F  S PC=$O(^VA(200,USRIEN,XX,PC)) Q:PC'>0  D"
^XMB(3.9,166,2,3441,0)="""RTN"",""XUSERBLK"",144,0)"
^XMB(3.9,166,2,3442,0)=" .S PC1=$P($G(^VA(200,USRIEN,XX,PC,0)),""^"",3)"
^XMB(3.9,166,2,3443,0)="""RTN"",""XUSERBLK"",145,0)"
^XMB(3.9,166,2,3444,0)=" .I (PC1="""")!(PC1'<DT) D DOPD"
^XMB(3.9,166,2,3445,0)="""RTN"",""XUSERBLK"",146,0)"
^XMB(3.9,166,2,3446,0)=" Q"
^XMB(3.9,166,2,3447,0)="""RTN"",""XUSERBLK"",147,0)"
^XMB(3.9,166,2,3448,0)=" ;"
^XMB(3.9,166,2,3449,0)="""RTN"",""XUSERBLK"",148,0)"
^XMB(3.9,166,2,3450,0)="DOPD ;"
^XMB(3.9,166,2,3451,0)="""RTN"",""XUSERBLK"",149,0)"
^XMB(3.9,166,2,3452,0)=" L +^VA(200,DA,XX,PC,0):20 I '$T D  Q"
^XMB(3.9,166,2,3453,0)="""RTN"",""XUSERBLK"",150,0)"
^XMB(3.9,166,2,3454,0)=" .W !,""===> The user is locked. Please try this option again."""
^XMB(3.9,166,2,3455,0)="""RTN"",""XUSERBLK"",151,0)"
^XMB(3.9,166,2,3456,0)=" S $P(^VA(200,USRIEN,XX,PC,0),""^"",2)=DT"
^XMB(3.9,166,2,3457,0)="""RTN"",""XUSERBLK"",152,0)"
^XMB(3.9,166,2,3458,0)=" L -^VA(200,USRIEN,XX,PC,0)"
^XMB(3.9,166,2,3459,0)="""RTN"",""XUSERBLK"",153,0)"
^XMB(3.9,166,2,3460,0)=" Q"
^XMB(3.9,166,2,3461,0)="""RTN"",""XUSERBLK"",154,0)"
^XMB(3.9,166,2,3462,0)=" ;"
^XMB(3.9,166,2,3463,0)="""RTN"",""XUSERBLK"",155,0)"
^XMB(3.9,166,2,3464,0)="PRSNCL(USERIEN) ;"
^XMB(3.9,166,2,3465,0)="""RTN"",""XUSERBLK"",156,0)"
^XMB(3.9,166,2,3466,0)=" N XUDATA,XUPSC,XUEFDA,XUEXDA,ZZ"
^XMB(3.9,166,2,3467,0)="""RTN"",""XUSERBLK"",157,0)"
^XMB(3.9,166,2,3468,0)=" S XUDATA=$O(^VA(200,XUTMP,""USC1"",""A""),-1) Q:XUDATA'>0"
^XMB(3.9,166,2,3469,0)="""RTN"",""XUSERBLK"",158,0)"
^XMB(3.9,166,2,3470,0)=" S XUDATA=$G(^VA(200,XUTMP,""USC1"",XUDATA,0)) Q:XUDATA="""""
^XMB(3.9,166,2,3471,0)="""RTN"",""XUSERBLK"",159,0)"
^XMB(3.9,166,2,3472,0)=" S XUPSC=$P(XUDATA,""^"")"
^XMB(3.9,166,2,3473,0)="""RTN"",""XUSERBLK"",160,0)"
^XMB(3.9,166,2,3474,0)=" S XUEFDA=$P(XUDATA,""^"",2) I XUEFDA'>DT S XUEFDA=DT"
^XMB(3.9,166,2,3475,0)="""RTN"",""XUSERBLK"",161,0)"
^XMB(3.9,166,2,3476,0)=" S XUEXDA=$P(XUDATA,""^"",3)"
^XMB(3.9,166,2,3477,0)="""RTN"",""XUSERBLK"",162,0)"
^XMB(3.9,166,2,3478,0)=" I XUEXDA<DT,XUEXDA'="""" Q"
^XMB(3.9,166,2,3479,0)="""RTN"",""XUSERBLK"",163,0)"
^XMB(3.9,166,2,3480,0)=" N XULAST,XULDATA"
^XMB(3.9,166,2,3481,0)="""RTN"",""XUSERBLK"",164,0)"
^XMB(3.9,166,2,3482,0)=" S XULAST=$O(^VA(200,USERIEN,""USC1"",""A""),-1)"
^XMB(3.9,166,2,3483,0)="""RTN"",""XUSERBLK"",165,0)"
^XMB(3.9,166,2,3484,0)=" S ZZ(1,200.05,""+2,""_USERIEN_"","",.01)=XUPSC"
^XMB(3.9,166,2,3485,0)="""RTN"",""XUSERBLK"",166,0)"
^XMB(3.9,166,2,3486,0)=" S ZZ(1,200.05,""+2,""_USERIEN_"","",2)=XUEFDA"
^XMB(3.9,166,2,3487,0)="""RTN"",""XUSERBLK"",167,0)"
^XMB(3.9,166,2,3488,0)=" S ZZ(1,200.05,""+2,""_USERIEN_"","",3)=XUEXDA"
^XMB(3.9,166,2,3489,0)="""RTN"",""XUSERBLK"",168,0)"
^XMB(3.9,166,2,3490,0)=" D UPDATE^DIE("""",""ZZ(1)"")"
^XMB(3.9,166,2,3491,0)="""RTN"",""XUSERBLK"",169,0)"
^XMB(3.9,166,2,3492,0)=" Q:XULAST'>0"
^XMB(3.9,166,2,3493,0)="""RTN"",""XUSERBLK"",170,0)"
^XMB(3.9,166,2,3494,0)=" S XULDATA=$G(^VA(200,USERIEN,""USC1"",XULAST,0))"
^XMB(3.9,166,2,3495,0)="""RTN"",""XUSERBLK"",171,0)"
^XMB(3.9,166,2,3496,0)=" S XULDATA=$P(XULDATA,""^"",3)"
^XMB(3.9,166,2,3497,0)="""RTN"",""XUSERBLK"",172,0)"
^XMB(3.9,166,2,3498,0)=" Q:XULDATA'>DT"
^XMB(3.9,166,2,3499,0)="""RTN"",""XUSERBLK"",173,0)"
^XMB(3.9,166,2,3500,0)=" S $P(^VA(200,USERIEN,""USC1"",XULAST,0),""^"",3)=DT"
^XMB(3.9,166,2,3501,0)="""RTN"",""XUSERBLK"",174,0)"
^XMB(3.9,166,2,3502,0)=" Q"
^XMB(3.9,166,2,3503,0)="""RTN"",""XUSERNEW"")"
^XMB(3.9,166,2,3504,0)="0^3^B21302863^B19489672"
^XMB(3.9,166,2,3505,0)="""RTN"",""XUSERNEW"",1,0)"
^XMB(3.9,166,2,3506,0)="XUSERNEW ;SF/RWF - ADD NEW USER ;6/22/06  16:24"
^XMB(3.9,166,2,3507,0)="""RTN"",""XUSERNEW"",2,0)"
^XMB(3.9,166,2,3508,0)=" ;;8.0;KERNEL;**16,49,134,208,157,313,351,419**;Jul 10, 1995;Build 5"
^XMB(3.9,166,2,3509,0)="""RTN"",""XUSERNEW"",3,0)"
^XMB(3.9,166,2,3510,0)=" ;In the call to NEW^XM for new users the variable XMZ must be undef."
^XMB(3.9,166,2,3511,0)="""RTN"",""XUSERNEW"",4,0)"
^XMB(3.9,166,2,3512,0)=" ;on a reactivation XMZ should be set to the current max message number."
^XMB(3.9,166,2,3513,0)="""RTN"",""XUSERNEW"",5,0)"
^XMB(3.9,166,2,3514,0)="EN ;Add"
^XMB(3.9,166,2,3515,0)="""RTN"",""XUSERNEW"",6,0)"
^XMB(3.9,166,2,3516,0)=" N Y,XUN,DR,DIE,DA,DTOUT,DIWF,XMDT,XMM,XMZ"
^XMB(3.9,166,2,3517,0)="""RTN"",""XUSERNEW"",7,0)"
^XMB(3.9,166,2,3518,0)=" S Y=$$ADD("""","""",1) G EXIT:Y'>0,RE:$P(Y,U,3)'=1"
^XMB(3.9,166,2,3519,0)="""RTN"",""XUSERNEW"",8,0)"
^XMB(3.9,166,2,3520,0)=" S XUN=+Y ;XU USER ADD called in $$ADD"
^XMB(3.9,166,2,3521,0)="""RTN"",""XUSERNEW"",9,0)"
^XMB(3.9,166,2,3522,0)=" S DR=""[""_$$GET^XUPARAM(""XUNEW USER"",""N"")_""]"""
^XMB(3.9,166,2,3523,0)="""RTN"",""XUSERNEW"",10,0)"
^XMB(3.9,166,2,3524,0)=" S DIE=200,DA=XUN D XUDIE^XUS5 G:$D(DTOUT) EXIT"
^XMB(3.9,166,2,3525,0)="""RTN"",""XUSERNEW"",11,0)"
^XMB(3.9,166,2,3526,0)=" I $$GET1^DIQ(200,XUN_"","",11,""I"")="""" W !,""Without a VERIFY code the user will not be able to sign-on!"",$C(7),!"
^XMB(3.9,166,2,3527,0)="""RTN"",""XUSERNEW"",12,0)"
^XMB(3.9,166,2,3528,0)=" S Y=XUN K XMZ D NEW^XM K XMDT,XMM,XMZ"
^XMB(3.9,166,2,3529,0)="""RTN"",""XUSERNEW"",13,0)"
^XMB(3.9,166,2,3530,0)=" ;ACCESS LETTER, Also see XUSERBLK"
^XMB(3.9,166,2,3531,0)="""RTN"",""XUSERNEW"",14,0)"
^XMB(3.9,166,2,3532,0)=" W ! D LETTER(XUN,1)"
^XMB(3.9,166,2,3533,0)="""RTN"",""XUSERNEW"",15,0)"
^XMB(3.9,166,2,3534,0)=" K DIR,DIWF,XUTEXT"
^XMB(3.9,166,2,3535,0)="""RTN"",""XUSERNEW"",16,0)"
^XMB(3.9,166,2,3536,0)=" ;"
^XMB(3.9,166,2,3537,0)="""RTN"",""XUSERNEW"",17,0)"
^XMB(3.9,166,2,3538,0)=" ;Fall in from above, called from REACT"
^XMB(3.9,166,2,3539,0)="""RTN"",""XUSERNEW"",18,0)"
^XMB(3.9,166,2,3540,0)="KEYS N DIR,XQHOLD,XQKEY,XQDA,XQAL,XQ6,XQFL"
^XMB(3.9,166,2,3541,0)="""RTN"",""XUSERNEW"",19,0)"
^XMB(3.9,166,2,3542,0)=" S DIR(0)=""Y"",DIR(""B"")=""NO"",DIR(""A"")=""Do you wish to allocate security keys"" D ^DIR G:$D(DIRUT) EXIT"
^XMB(3.9,166,2,3543,0)="""RTN"",""XUSERNEW"",20,0)"
^XMB(3.9,166,2,3544,0)=" I Y=1 S XQHOLD(XUN)="""",XQKEY(0)=0,XQDA=0,XQAL=1,XQ6="""",XQFL="""" D KEY^XQ6"
^XMB(3.9,166,2,3545,0)="""RTN"",""XUSERNEW"",21,0)"
^XMB(3.9,166,2,3546,0)=" ;"
^XMB(3.9,166,2,3547,0)="""RTN"",""XUSERNEW"",22,0)"
^XMB(3.9,166,2,3548,0)=" ;Check on adding this user to user groups"
^XMB(3.9,166,2,3549,0)="""RTN"",""XUSERNEW"",23,0)"
^XMB(3.9,166,2,3550,0)=" I $P(^VA(200,XUN,0),U,3)'="""" D  ;Must have access code & mailbox"
^XMB(3.9,166,2,3551,0)="""RTN"",""XUSERNEW"",24,0)"
^XMB(3.9,166,2,3552,0)=" .N DIR,Y"
^XMB(3.9,166,2,3553,0)="""RTN"",""XUSERNEW"",25,0)"
^XMB(3.9,166,2,3554,0)=" .S DIR(0)=""Y"",DIR(""B"")=""NO"",DIR(""A"")=""Do you wish to add this user to mail groups"" D ^DIR Q:$D(DIRUT)"
^XMB(3.9,166,2,3555,0)="""RTN"",""XUSERNEW"",26,0)"
^XMB(3.9,166,2,3556,0)=" .I Y=1 D ENLOCAL1^XMVGRP(XUN)"
^XMB(3.9,166,2,3557,0)="""RTN"",""XUSERNEW"",27,0)"
^XMB(3.9,166,2,3558,0)=" .K XMDUN,XMDUZ,XMV"
^XMB(3.9,166,2,3559,0)="""RTN"",""XUSERNEW"",28,0)"
^XMB(3.9,166,2,3560,0)=" .Q"
^XMB(3.9,166,2,3561,0)="""RTN"",""XUSERNEW"",29,0)"
^XMB(3.9,166,2,3562,0)=" ;"
^XMB(3.9,166,2,3563,0)="""RTN"",""XUSERNEW"",30,0)"
^XMB(3.9,166,2,3564,0)="EXIT K D0,DA,DDER,DDSFILE,DIE,DIC,DIR,DI,DICR,DIG,DIH,DISYS,DIU,DIV,DIWT,DLAYGO,DR,DQ,K,I,X,X1,XQHOLD,XQKEY,XUN,XUSOLD,XMB,XMZ,Y,Z,XQ6,XQFL,DTOUT"
^XMB(3.9,166,2,3565,0)="""RTN"",""XUSERNEW"",31,0)"
^XMB(3.9,166,2,3566,0)=" Q"
^XMB(3.9,166,2,3567,0)="""RTN"",""XUSERNEW"",32,0)"
^XMB(3.9,166,2,3568,0)=" ;"
^XMB(3.9,166,2,3569,0)="""RTN"",""XUSERNEW"",33,0)"
^XMB(3.9,166,2,3570,0)="RE ;Jump from new user to reactivate"
^XMB(3.9,166,2,3571,0)="""RTN"",""XUSERNEW"",34,0)"
^XMB(3.9,166,2,3572,0)=" S XUN=+Y,DIR(""A"")=""This isn't a new user, Want to reactivate?"",DIR(0)=""Y"",DIR(""B"")=""NO"""
^XMB(3.9,166,2,3573,0)="""RTN"",""XUSERNEW"",35,0)"
^XMB(3.9,166,2,3574,0)=" D ^DIR"
^XMB(3.9,166,2,3575,0)="""RTN"",""XUSERNEW"",36,0)"
^XMB(3.9,166,2,3576,0)=" G EXIT:$D(DIRUT)!(Y'=1),RE2"
^XMB(3.9,166,2,3577,0)="""RTN"",""XUSERNEW"",37,0)"
^XMB(3.9,166,2,3578,0)=" ;Reactivate a user"
^XMB(3.9,166,2,3579,0)="""RTN"",""XUSERNEW"",38,0)"
^XMB(3.9,166,2,3580,0)="REACT ;SEA/WDE-REACTIVATE A USER"
^XMB(3.9,166,2,3581,0)="""RTN"",""XUSERNEW"",39,0)"
^XMB(3.9,166,2,3582,0)=" N XUN,XUSOLD,DIE,DIC,DA,DR,FDA"
^XMB(3.9,166,2,3583,0)="""RTN"",""XUSERNEW"",40,0)"
^XMB(3.9,166,2,3584,0)=" S XUN=+$$LOOKUP^XUSER G EXIT:XUN<0"
^XMB(3.9,166,2,3585,0)="""RTN"",""XUSERNEW"",41,0)"
^XMB(3.9,166,2,3586,0)="RE2 S XUSOLD=^VA(200,XUN,0)"
^XMB(3.9,166,2,3587,0)="""RTN"",""XUSERNEW"",42,0)"
^XMB(3.9,166,2,3588,0)=" S FDA(200,XUN_"","",9.2)=""@"" ;Clear the Termination date"
^XMB(3.9,166,2,3589,0)="""RTN"",""XUSERNEW"",43,0)"
^XMB(3.9,166,2,3590,0)=" D UPDATE^DIE(""E"",""FDA"")"
^XMB(3.9,166,2,3591,0)="""RTN"",""XUSERNEW"",44,0)"
^XMB(3.9,166,2,3592,0)=" ;Show the screanman form"
^XMB(3.9,166,2,3593,0)="""RTN"",""XUSERNEW"",45,0)"
^XMB(3.9,166,2,3594,0)=" S DIE=200,DR=""[""_$$GET^XUPARAM(""XUREACT USER"",""N"")_""]"",DA=XUN"
^XMB(3.9,166,2,3595,0)="""RTN"",""XUSERNEW"",46,0)"
^XMB(3.9,166,2,3596,0)=" D XUDIE^XUS5 G:$D(DTOUT) EXIT"
^XMB(3.9,166,2,3597,0)="""RTN"",""XUSERNEW"",47,0)"
^XMB(3.9,166,2,3598,0)=" I $P(^VA(200,XUN,0),U,3)="""" W !!,""No ACCESS CODE has been entered."",$C(7),!"
^XMB(3.9,166,2,3599,0)="""RTN"",""XUSERNEW"",48,0)"
^XMB(3.9,166,2,3600,0)=" I $P(^VA(200,XUN,0),U,11)>0,$P(^(0),U,11)'>DT W !!,""User is still TERMINATED."",$C(7),!"
^XMB(3.9,166,2,3601,0)="""RTN"",""XUSERNEW"",49,0)"
^XMB(3.9,166,2,3602,0)=" I $$GET1^DIQ(200,XUN_"","",11,""I"")="""" W !,""Without a VERIFY code the user will not be able to sign-on!"",$C(7),!"
^XMB(3.9,166,2,3603,0)="""RTN"",""XUSERNEW"",50,0)"
^XMB(3.9,166,2,3604,0)=" N DIR"
^XMB(3.9,166,2,3605,0)="""RTN"",""XUSERNEW"",51,0)"
^XMB(3.9,166,2,3606,0)=" S DIR(0)=""Y"",DIR(""A"")=""Deny access to old mail messages"",DIR(""B"")=""NO"",DIR(""?"")=""Enter a 'YES' to restrict access to old mail messages."""
^XMB(3.9,166,2,3607,0)="""RTN"",""XUSERNEW"",52,0)"
^XMB(3.9,166,2,3608,0)=" D ^DIR G:$D(DIRUT) EXIT"
^XMB(3.9,166,2,3609,0)="""RTN"",""XUSERNEW"",53,0)"
^XMB(3.9,166,2,3610,0)=" K XMZ S:Y=1 XMZ=+$P(^XMB(3.9,0),""^"",3) S Y=XUN D NEW^XM K XMDT,XMM,XMZ"
^XMB(3.9,166,2,3611,0)="""RTN"",""XUSERNEW"",54,0)"
^XMB(3.9,166,2,3612,0)=" D REACT^XQ84(XUN) ;See if this user's menu trees need to be rebuilt"
^XMB(3.9,166,2,3613,0)="""RTN"",""XUSERNEW"",55,0)"
^XMB(3.9,166,2,3614,0)=" G KEYS"
^XMB(3.9,166,2,3615,0)="""RTN"",""XUSERNEW"",56,0)"
^XMB(3.9,166,2,3616,0)=" Q"
^XMB(3.9,166,2,3617,0)="""RTN"",""XUSERNEW"",57,0)"
^XMB(3.9,166,2,3618,0)=" ;"
^XMB(3.9,166,2,3619,0)="""RTN"",""XUSERNEW"",58,0)"
^XMB(3.9,166,2,3620,0)="ADD(NP1,KEYS,NONC) ;Common point to do DIC call for adding a new person."
^XMB(3.9,166,2,3621,0)="""RTN"",""XUSERNEW"",59,0)"
^XMB(3.9,166,2,3622,0)=" ;NP1 will be added to the default or what comes from the NPI field of the KSP."
^XMB(3.9,166,2,3623,0)="""RTN"",""XUSERNEW"",60,0)"
^XMB(3.9,166,2,3624,0)=" ;KEYS is a list of Keys to give the new person"
^XMB(3.9,166,2,3625,0)="""RTN"",""XUSERNEW"",61,0)"
^XMB(3.9,166,2,3626,0)=" N DA,DR,DLAYGO,XUITNAME,XUS1,XUS2,DIC,DIE,DIK,NP2,Y"
^XMB(3.9,166,2,3627,0)="""RTN"",""XUSERNEW"",62,0)"
^XMB(3.9,166,2,3628,0)=" I $G(^XTV(8989.3,1,""NPI""))]"""" X ^(""NPI"") S NP2=DR"
^XMB(3.9,166,2,3629,0)="""RTN"",""XUSERNEW"",63,0)"
^XMB(3.9,166,2,3630,0)=" S:'$D(NP2) NP2=""1;""_$S($D(^XUSEC(""XUSPF200"",DUZ)):9,1:""9R~"")_"";4"""
^XMB(3.9,166,2,3631,0)="""RTN"",""XUSERNEW"",64,0)"
^XMB(3.9,166,2,3632,0)=" S DIC=""^VA(200,"",DIC(0)=""AELMQ"",DLAYGO=200,DIC(""A"")=""Enter NEW PERSON's name (Family,Given Middle Suffix): "",DIC(""DR"")="""",XUITNAME=1"
^XMB(3.9,166,2,3633,0)="""RTN"",""XUSERNEW"",65,0)"
^XMB(3.9,166,2,3634,0)=" D ^DIC S XUS1=Y G AX:(Y'>0)!($P(Y,U,3)'>0)"
^XMB(3.9,166,2,3635,0)="""RTN"",""XUSERNEW"",66,0)"
^XMB(3.9,166,2,3636,0)=" S DA=+$G(^VA(200,+XUS1,3.1)) I DA,'$G(NONC) D"
^XMB(3.9,166,2,3637,0)="""RTN"",""XUSERNEW"",67,0)"
^XMB(3.9,166,2,3638,0)=" . W !,""Name components."""
^XMB(3.9,166,2,3639,0)="""RTN"",""XUSERNEW"",68,0)"
^XMB(3.9,166,2,3640,0)=" . S DIE=""^VA(20,"",DR=""1;2;3;5"""
^XMB(3.9,166,2,3641,0)="""RTN"",""XUSERNEW"",69,0)"
^XMB(3.9,166,2,3642,0)=" . L +^VA(20,DA,0):60 D ^DIE L -^VA(20,DA,0)"
^XMB(3.9,166,2,3643,0)="""RTN"",""XUSERNEW"",70,0)"
^XMB(3.9,166,2,3644,0)=" . I $D(Y)!$D(DTOUT) S DA=+XUS1,XUS1=-1"
^XMB(3.9,166,2,3645,0)="""RTN"",""XUSERNEW"",71,0)"
^XMB(3.9,166,2,3646,0)=" . E  S $P(XUS1,U,2)=$P(^VA(200,+XUS1,0),U)"
^XMB(3.9,166,2,3647,0)="""RTN"",""XUSERNEW"",72,0)"
^XMB(3.9,166,2,3648,0)=" D:XUS1>0"
^XMB(3.9,166,2,3649,0)="""RTN"",""XUSERNEW"",73,0)"
^XMB(3.9,166,2,3650,0)=" . W !,""Now for the Identifiers."""
^XMB(3.9,166,2,3651,0)="""RTN"",""XUSERNEW"",74,0)"
^XMB(3.9,166,2,3652,0)=" . S DA=+XUS1,DIE=""^VA(200,"",DR=NP2_$S($D(NP1):"";""_NP1,1:""""),DIE(""NO^"")=""OUTOK"""
^XMB(3.9,166,2,3653,0)="""RTN"",""XUSERNEW"",75,0)"
^XMB(3.9,166,2,3654,0)=" . L +^VA(200,DA,0):60 D ^DIE L -^VA(200,DA,0)"
^XMB(3.9,166,2,3655,0)="""RTN"",""XUSERNEW"",76,0)"
^XMB(3.9,166,2,3656,0)=" . S:$D(Y)!$D(DTOUT) XUS1=-1"
^XMB(3.9,166,2,3657,0)="""RTN"",""XUSERNEW"",77,0)"
^XMB(3.9,166,2,3658,0)=" I XUS1<0 D  S XUS1=-1"
^XMB(3.9,166,2,3659,0)="""RTN"",""XUSERNEW"",78,0)"
^XMB(3.9,166,2,3660,0)=" . W !?5,""<'"",$P(^VA(200,DA,0),U),""' DELETED>"""
^XMB(3.9,166,2,3661,0)="""RTN"",""XUSERNEW"",79,0)"
^XMB(3.9,166,2,3662,0)=" . S DIK=""^VA(200,"" D ^DIK"
^XMB(3.9,166,2,3663,0)="""RTN"",""XUSERNEW"",80,0)"
^XMB(3.9,166,2,3664,0)=" . Q:$P($G(^DIC(3,0)),U)'=""USER""!'$D(^DD(3,0))"
^XMB(3.9,166,2,3665,0)="""RTN"",""XUSERNEW"",81,0)"
^XMB(3.9,166,2,3666,0)=" . S DIK=""^DIC(3,"",XUS1=$P($G(^DIC(3,DA,0)),U,16) D ^DIK"
^XMB(3.9,166,2,3667,0)="""RTN"",""XUSERNEW"",82,0)"
^XMB(3.9,166,2,3668,0)=" . Q:'XUS1!($P($G(^DIC(16,0)),U)'=""PERSON"")!'$D(^DD(16,0))"
^XMB(3.9,166,2,3669,0)="""RTN"",""XUSERNEW"",83,0)"
^XMB(3.9,166,2,3670,0)=" . S DIK=""^DIC(16,"",DA=XUS1 D ^DIK"
^XMB(3.9,166,2,3671,0)="""RTN"",""XUSERNEW"",84,0)"
^XMB(3.9,166,2,3672,0)=" I XUS1>0,$D(KEYS) F XUS2=1:1 S Y=$P(KEYS,"","",XUS2) Q:'$L(Y)  D"
^XMB(3.9,166,2,3673,0)="""RTN"",""XUSERNEW"",85,0)"
^XMB(3.9,166,2,3674,0)=" . S %=$$ADD^XQKEY(XUS1,Y) I '% W !,""Key '"",Y,""' not allocated"""
^XMB(3.9,166,2,3675,0)="""RTN"",""XUSERNEW"",86,0)"
^XMB(3.9,166,2,3676,0)=" I XUS1>0 D CALL^XUSERP(+XUS1,1) ;XQOR add"
^XMB(3.9,166,2,3677,0)="""RTN"",""XUSERNEW"",87,0)"
^XMB(3.9,166,2,3678,0)="AX Q XUS1"
^XMB(3.9,166,2,3679,0)="""RTN"",""XUSERNEW"",88,0)"
^XMB(3.9,166,2,3680,0)=" ;"
^XMB(3.9,166,2,3681,0)="""RTN"",""XUSERNEW"",89,0)"
^XMB(3.9,166,2,3682,0)="REPRINT ;Reprint letter"
^XMB(3.9,166,2,3683,0)="""RTN"",""XUSERNEW"",90,0)"
^XMB(3.9,166,2,3684,0)=" S DA=+$$LOOKUP^XUSER G EXIT:DA'>0"
^XMB(3.9,166,2,3685,0)="""RTN"",""XUSERNEW"",91,0)"
^XMB(3.9,166,2,3686,0)=" D LETTER(DA)"
^XMB(3.9,166,2,3687,0)="""RTN"",""XUSERNEW"",92,0)"
^XMB(3.9,166,2,3688,0)=" G EXIT"
^XMB(3.9,166,2,3689,0)="""RTN"",""XUSERNEW"",93,0)"
^XMB(3.9,166,2,3690,0)=" ;"
^XMB(3.9,166,2,3691,0)="""RTN"",""XUSERNEW"",94,0)"
^XMB(3.9,166,2,3692,0)="LETTER(XUN,ASK) ;Print access letter"
^XMB(3.9,166,2,3693,0)="""RTN"",""XUSERNEW"",95,0)"
^XMB(3.9,166,2,3694,0)=" Q:'$G(XUN)"
^XMB(3.9,166,2,3695,0)="""RTN"",""XUSERNEW"",96,0)"
^XMB(3.9,166,2,3696,0)=" N DIWF,FR,TO,BY,DIR,XUTEXT"
^XMB(3.9,166,2,3697,0)="""RTN"",""XUSERNEW"",97,0)"
^XMB(3.9,166,2,3698,0)=" S XUTEXT=$$GET^XUPARAM(""XUSER COMPUTER ACCOUNT"",""N""),XUTEXT=$O(^DIC(9.2,""B"",XUTEXT,0))"
^XMB(3.9,166,2,3699,0)="""RTN"",""XUSERNEW"",98,0)"
^XMB(3.9,166,2,3700,0)=" S DIR(0)=""Y"",DIR(""A"")=""Print User Account Access Letter"""
^XMB(3.9,166,2,3701,0)="""RTN"",""XUSERNEW"",99,0)"
^XMB(3.9,166,2,3702,0)=" I XUTEXT>0 S Y=1 D:$G(ASK) ^DIR I Y=1 D"
^XMB(3.9,166,2,3703,0)="""RTN"",""XUSERNEW"",100,0)"
^XMB(3.9,166,2,3704,0)=" . S (XUU,XUU2)=""________"",DIWF=""^DIC(9.2,XUTEXT,1,"",DIWF(1)=200,FR=XUN,TO=XUN,BY=""NUMBER"" D EN2^DIWF"
^XMB(3.9,166,2,3705,0)="""RTN"",""XUSERNEW"",101,0)"
^XMB(3.9,166,2,3706,0)=" . Q"
^XMB(3.9,166,2,3707,0)="""RTN"",""XUSERNEW"",102,0)"
^XMB(3.9,166,2,3708,0)=" Q"
^XMB(3.9,166,2,3709,0)="""RTN"",""XUSRB4"")"
^XMB(3.9,166,2,3710,0)="0^7^B11538181^B10928715"
^XMB(3.9,166,2,3711,0)="""RTN"",""XUSRB4"",1,0)"
^XMB(3.9,166,2,3712,0)="XUSRB4 ;ISF/RWF - Build a temporary sign-on token ;08/08/2005  09:44"
^XMB(3.9,166,2,3713,0)="""RTN"",""XUSRB4"",2,0)"
^XMB(3.9,166,2,3714,0)=" ;;8.0;KERNEL;**150,337,395,419**;Jul 10, 1995;Build 5"
^XMB(3.9,166,2,3715,0)="""RTN"",""XUSRB4"",3,0)"
^XMB(3.9,166,2,3716,0)=" Q"
^XMB(3.9,166,2,3717,0)="""RTN"",""XUSRB4"",4,0)"
^XMB(3.9,166,2,3718,0)=" ;"
^XMB(3.9,166,2,3719,0)="""RTN"",""XUSRB4"",5,0)"
^XMB(3.9,166,2,3720,0)="ASH(RET) ;rpc. Auto Signon Handle"
^XMB(3.9,166,2,3721,0)="""RTN"",""XUSRB4"",6,0)"
^XMB(3.9,166,2,3722,0)=" N HDL"
^XMB(3.9,166,2,3723,0)="""RTN"",""XUSRB4"",7,0)"
^XMB(3.9,166,2,3724,0)=" S HDL=$$HANDLE(""XWBAS"",1),RET=""~1""_HDL"
^XMB(3.9,166,2,3725,0)="""RTN"",""XUSRB4"",8,0)"
^XMB(3.9,166,2,3726,0)=" ;Now place user info in it."
^XMB(3.9,166,2,3727,0)="""RTN"",""XUSRB4"",9,0)"
^XMB(3.9,166,2,3728,0)=" D TOK(HDL)"
^XMB(3.9,166,2,3729,0)="""RTN"",""XUSRB4"",10,0)"
^XMB(3.9,166,2,3730,0)=" Q"
^XMB(3.9,166,2,3731,0)="""RTN"",""XUSRB4"",11,0)"
^XMB(3.9,166,2,3732,0)=" ;"
^XMB(3.9,166,2,3733,0)="""RTN"",""XUSRB4"",12,0)"
^XMB(3.9,166,2,3734,0)="CCOW(RET) ;rpc. CCOW Auto Signon Handle"
^XMB(3.9,166,2,3735,0)="""RTN"",""XUSRB4"",13,0)"
^XMB(3.9,166,2,3736,0)=" N HDL,HDL2"
^XMB(3.9,166,2,3737,0)="""RTN"",""XUSRB4"",14,0)"
^XMB(3.9,166,2,3738,0)=" S RET(0)=""NO PROXY USER"",RET(1)=""ERROR"""
^XMB(3.9,166,2,3739,0)="""RTN"",""XUSRB4"",15,0)"
^XMB(3.9,166,2,3740,0)=" I $$USERTYPE^XUSAP(DUZ,""APPLICATION PROXY"") Q  ;No Proxy"
^XMB(3.9,166,2,3741,0)="""RTN"",""XUSRB4"",16,0)"
^XMB(3.9,166,2,3742,0)=" I $$USERTYPE^XUSAP(DUZ,""CONNECTOR PROXY"") Q  ;No Proxy"
^XMB(3.9,166,2,3743,0)="""RTN"",""XUSRB4"",17,0)"
^XMB(3.9,166,2,3744,0)=" S X=$$ACTIVE^XUSER(DUZ) I 'X S RET(0)=X Q  ;User must be active"
^XMB(3.9,166,2,3745,0)="""RTN"",""XUSRB4"",18,0)"
^XMB(3.9,166,2,3746,0)=" S HDL=$$HANDLE(""XWBCCW"",1)"
^XMB(3.9,166,2,3747,0)="""RTN"",""XUSRB4"",19,0)"
^XMB(3.9,166,2,3748,0)=" S RET(0)=""~2""_$$LOW^XLFSTR(HDL),RET(1)=$G(^XMB(""NETNAME""))"
^XMB(3.9,166,2,3749,0)="""RTN"",""XUSRB4"",20,0)"
^XMB(3.9,166,2,3750,0)=" ;Now place user info in it."
^XMB(3.9,166,2,3751,0)="""RTN"",""XUSRB4"",21,0)"
^XMB(3.9,166,2,3752,0)=" D TOK(HDL)"
^XMB(3.9,166,2,3753,0)="""RTN"",""XUSRB4"",22,0)"
^XMB(3.9,166,2,3754,0)=" S ^XUTL(""XQ"",$J,""HDL"")=HDL ;Save handle with job"
^XMB(3.9,166,2,3755,0)="""RTN"",""XUSRB4"",23,0)"
^XMB(3.9,166,2,3756,0)=" Q"
^XMB(3.9,166,2,3757,0)="""RTN"",""XUSRB4"",24,0)"
^XMB(3.9,166,2,3758,0)=" ;"
^XMB(3.9,166,2,3759,0)="""RTN"",""XUSRB4"",25,0)"
^XMB(3.9,166,2,3760,0)="HANDLE(NS,LT) ;Return a unique handle into ^XTMP (ef. sup)"
^XMB(3.9,166,2,3761,0)="""RTN"",""XUSRB4"",26,0)"
^XMB(3.9,166,2,3762,0)=" ;NS is the namespace, LT is the Handle Lifetime in days"
^XMB(3.9,166,2,3763,0)="""RTN"",""XUSRB4"",27,0)"
^XMB(3.9,166,2,3764,0)=" N %H,A,J,HL"
^XMB(3.9,166,2,3765,0)="""RTN"",""XUSRB4"",28,0)"
^XMB(3.9,166,2,3766,0)=" I $G(NS)="""" Q """" ;Return null if no namespace"
^XMB(3.9,166,2,3767,0)="""RTN"",""XUSRB4"",29,0)"
^XMB(3.9,166,2,3768,0)=" S LT=$G(LT,1) S:LT>7 LT=7 ;Default to 1"
^XMB(3.9,166,2,3769,0)="""RTN"",""XUSRB4"",30,0)"
^XMB(3.9,166,2,3770,0)=" S %H=$H,J=NS_($J#2048)_""-""_(%H#7*86400+$P(%H,"","",2))_""_"",A=$R(10)"
^XMB(3.9,166,2,3771,0)="""RTN"",""XUSRB4"",31,0)"
^XMB(3.9,166,2,3772,0)=" F  S HL=J_A,A=A+1 L +^XTMP(HL):1 I $T Q:'$D(^XTMP(HL))  L -^XTMP(HL)"
^XMB(3.9,166,2,3773,0)="""RTN"",""XUSRB4"",32,0)"
^XMB(3.9,166,2,3774,0)=" S ^XTMP(HL,0)=$$HTFM^XLFDT(%H+LT)_""^""_$$DT^XLFDT()"
^XMB(3.9,166,2,3775,0)="""RTN"",""XUSRB4"",33,0)"
^XMB(3.9,166,2,3776,0)=" L -^XTMP(HL)"
^XMB(3.9,166,2,3777,0)="""RTN"",""XUSRB4"",34,0)"
^XMB(3.9,166,2,3778,0)=" Q HL"
^XMB(3.9,166,2,3779,0)="""RTN"",""XUSRB4"",35,0)"
^XMB(3.9,166,2,3780,0)=" ;"
^XMB(3.9,166,2,3781,0)="""RTN"",""XUSRB4"",36,0)"
^XMB(3.9,166,2,3782,0)="TOK(H) ;Store a Token"
^XMB(3.9,166,2,3783,0)="""RTN"",""XUSRB4"",37,0)"
^XMB(3.9,166,2,3784,0)=" ;H is handle into XTMP"
^XMB(3.9,166,2,3785,0)="""RTN"",""XUSRB4"",38,0)"
^XMB(3.9,166,2,3786,0)=" N J,T,R"
^XMB(3.9,166,2,3787,0)="""RTN"",""XUSRB4"",39,0)"
^XMB(3.9,166,2,3788,0)=" S T=$$H3^%ZTM($H)"
^XMB(3.9,166,2,3789,0)="""RTN"",""XUSRB4"",40,0)"
^XMB(3.9,166,2,3790,0)=" S R=$J_""|""_T_""|""_$G(DUZ)_""|""_H"
^XMB(3.9,166,2,3791,0)="""RTN"",""XUSRB4"",41,0)"
^XMB(3.9,166,2,3792,0)=" S ^XTMP(H,""D"",0)=""|""_$$ENCRYP^XUSRB1(R)_""|"""
^XMB(3.9,166,2,3793,0)="""RTN"",""XUSRB4"",42,0)"
^XMB(3.9,166,2,3794,0)=" S ^XTMP(H,""D2"")=$G(DUZ(2))"
^XMB(3.9,166,2,3795,0)="""RTN"",""XUSRB4"",43,0)"
^XMB(3.9,166,2,3796,0)=" S ^XTMP(H,""D3"")=$G(IO(""IP""))"
^XMB(3.9,166,2,3797,0)="""RTN"",""XUSRB4"",44,0)"
^XMB(3.9,166,2,3798,0)=" S ^XTMP(H,""JOB"",$J)=$G(IO(""IP""))"
^XMB(3.9,166,2,3799,0)="""RTN"",""XUSRB4"",45,0)"
^XMB(3.9,166,2,3800,0)=" S ^XTMP(H,""STATUS"")=""0^New"",^(""CNT"")=0"
^XMB(3.9,166,2,3801,0)="""RTN"",""XUSRB4"",46,0)"
^XMB(3.9,166,2,3802,0)=" Q"
^XMB(3.9,166,2,3803,0)="""RTN"",""XUSRB4"",47,0)"
^XMB(3.9,166,2,3804,0)=" ;"
^XMB(3.9,166,2,3805,0)="""RTN"",""XUSRB4"",48,0)"
^XMB(3.9,166,2,3806,0)="CHKASH(HL) ;rpc. Check a Auto Signon Handle"
^XMB(3.9,166,2,3807,0)="""RTN"",""XUSRB4"",49,0)"
^XMB(3.9,166,2,3808,0)=" N HDL,RET,FDA,IEN S HDL=$E(HL,3,999)"
^XMB(3.9,166,2,3809,0)="""RTN"",""XUSRB4"",50,0)"
^XMB(3.9,166,2,3810,0)=" S RET=$$CHECK(HDL)"
^XMB(3.9,166,2,3811,0)="""RTN"",""XUSRB4"",51,0)"
^XMB(3.9,166,2,3812,0)=" I RET>0 D"
^XMB(3.9,166,2,3813,0)="""RTN"",""XUSRB4"",52,0)"
^XMB(3.9,166,2,3814,0)=" . S DUZ(""ASH"")=1,IEN=DUZ_"","""
^XMB(3.9,166,2,3815,0)="""RTN"",""XUSRB4"",53,0)"
^XMB(3.9,166,2,3816,0)=" . I $$GET1^DIQ(200,IEN,7,""I"") S FDA(200,DUZ_"","",7)=0 D FILE^DIE(""K"",""FDA"") ;rwf 403"
^XMB(3.9,166,2,3817,0)="""RTN"",""XUSRB4"",54,0)"
^XMB(3.9,166,2,3818,0)=" K ^XTMP(HDL) ;Token only good for one try."
^XMB(3.9,166,2,3819,0)="""RTN"",""XUSRB4"",55,0)"
^XMB(3.9,166,2,3820,0)=" Q RET"
^XMB(3.9,166,2,3821,0)="""RTN"",""XUSRB4"",56,0)"
^XMB(3.9,166,2,3822,0)=" ;"
^XMB(3.9,166,2,3823,0)="""RTN"",""XUSRB4"",57,0)"
^XMB(3.9,166,2,3824,0)="CHKCCOW(HL) ;rpc. Check a CCOW Auto Signon Handle"
^XMB(3.9,166,2,3825,0)="""RTN"",""XUSRB4"",58,0)"
^XMB(3.9,166,2,3826,0)=" N HDL,RET,T"
^XMB(3.9,166,2,3827,0)="""RTN"",""XUSRB4"",59,0)"
^XMB(3.9,166,2,3828,0)=" S HDL=$$UP^XLFSTR($E(HL,3,999)),T=$P($G(^XTV(8989.3,1,30),5400),U)"
^XMB(3.9,166,2,3829,0)="""RTN"",""XUSRB4"",60,0)"
^XMB(3.9,166,2,3830,0)=" S RET=$$CHECK(HDL,T)"
^XMB(3.9,166,2,3831,0)="""RTN"",""XUSRB4"",61,0)"
^XMB(3.9,166,2,3832,0)=" I RET>0 D"
^XMB(3.9,166,2,3833,0)="""RTN"",""XUSRB4"",62,0)"
^XMB(3.9,166,2,3834,0)=" . ;This CCOW Token good for more that one try."
^XMB(3.9,166,2,3835,0)="""RTN"",""XUSRB4"",63,0)"
^XMB(3.9,166,2,3836,0)=" . S ^XTMP(HDL,""JOB"",$J)=$G(IO(""IP""))"
^XMB(3.9,166,2,3837,0)="""RTN"",""XUSRB4"",64,0)"
^XMB(3.9,166,2,3838,0)=" . S ^XTMP(HDL,""STATUS"")=(^XTMP(HDL,""STATUS"")+1)_""^Active"""
^XMB(3.9,166,2,3839,0)="""RTN"",""XUSRB4"",65,0)"
^XMB(3.9,166,2,3840,0)=" . S ^XUTL(""XQ"",$J,""HDL"")=HDL ;Save handle with job"
^XMB(3.9,166,2,3841,0)="""RTN"",""XUSRB4"",66,0)"
^XMB(3.9,166,2,3842,0)=" . S DUZ(""CCOW"")=1 ;Flag a CCOW sign-on."
^XMB(3.9,166,2,3843,0)="""RTN"",""XUSRB4"",67,0)"
^XMB(3.9,166,2,3844,0)=" Q RET"
^XMB(3.9,166,2,3845,0)="""RTN"",""XUSRB4"",68,0)"
^XMB(3.9,166,2,3846,0)=" ;"
^XMB(3.9,166,2,3847,0)="""RTN"",""XUSRB4"",69,0)"
^XMB(3.9,166,2,3848,0)="CHECK(HL,TOUT) ;Check a Token"
^XMB(3.9,166,2,3849,0)="""RTN"",""XUSRB4"",70,0)"
^XMB(3.9,166,2,3850,0)=" N %,J,D,L,M,S"
^XMB(3.9,166,2,3851,0)="""RTN"",""XUSRB4"",71,0)"
^XMB(3.9,166,2,3852,0)=" S S=$G(^XTMP(HL,0)) I '$L(S) Q ""0^Bad Handle"""
^XMB(3.9,166,2,3853,0)="""RTN"",""XUSRB4"",72,0)"
^XMB(3.9,166,2,3854,0)=" S S=$G(^XTMP(HL,""D"",0)) I '$L(S) Q ""0^Bad Handle"" ;Now have real token"
^XMB(3.9,166,2,3855,0)="""RTN"",""XUSRB4"",73,0)"
^XMB(3.9,166,2,3856,0)=" I $E(S)'=""|"" Q ""0^Bad Token"""
^XMB(3.9,166,2,3857,0)="""RTN"",""XUSRB4"",74,0)"
^XMB(3.9,166,2,3858,0)=" S S=$$DECRYP^XUSRB1($E(S,2,$L(S)-1)) I S="""" Q ""0^Bad Token"""
^XMB(3.9,166,2,3859,0)="""RTN"",""XUSRB4"",75,0)"
^XMB(3.9,166,2,3860,0)=" S J=$P(S,""|""),T=$P(S,""|"",2),D=$P(S,""|"",3),M=$P(S,""|"",4)"
^XMB(3.9,166,2,3861,0)="""RTN"",""XUSRB4"",76,0)"
^XMB(3.9,166,2,3862,0)=" ;Check token time"
^XMB(3.9,166,2,3863,0)="""RTN"",""XUSRB4"",77,0)"
^XMB(3.9,166,2,3864,0)=" S %=$$H3^%ZTM($H),TOUT=$G(TOUT,20)"
^XMB(3.9,166,2,3865,0)="""RTN"",""XUSRB4"",78,0)"
^XMB(3.9,166,2,3866,0)=" I T+TOUT<% Q ""0^Token Expired"" ;Token good for TOUT or 20 seconds"
^XMB(3.9,166,2,3867,0)="""RTN"",""XUSRB4"",79,0)"
^XMB(3.9,166,2,3868,0)=" ;Check job"
^XMB(3.9,166,2,3869,0)="""RTN"",""XUSRB4"",80,0)"
^XMB(3.9,166,2,3870,0)=" ;Check that token has handle"
^XMB(3.9,166,2,3871,0)="""RTN"",""XUSRB4"",81,0)"
^XMB(3.9,166,2,3872,0)=" I M'=HL Q ""0^Bad Token"""
^XMB(3.9,166,2,3873,0)="""RTN"",""XUSRB4"",82,0)"
^XMB(3.9,166,2,3874,0)=" ;Check User"
^XMB(3.9,166,2,3875,0)="""RTN"",""XUSRB4"",83,0)"
^XMB(3.9,166,2,3876,0)=" I $G(^VA(200,D,0))="""" Q ""0^Bad User"""
^XMB(3.9,166,2,3877,0)="""RTN"",""XUSRB4"",84,0)"
^XMB(3.9,166,2,3878,0)=" ;Do IP check"
^XMB(3.9,166,2,3879,0)="""RTN"",""XUSRB4"",85,0)"
^XMB(3.9,166,2,3880,0)=" I $L($G(^XTMP(HL,""D3""))),^XTMP(HL,""D3"")'=$G(IO(""IP"")) Q ""0^Different IP"""
^XMB(3.9,166,2,3881,0)="""RTN"",""XUSRB4"",86,0)"
^XMB(3.9,166,2,3882,0)=" I $D(^XTMP(HL,""D2"")),D>0 S DUZ(2)=^XTMP(HL,""D2"")"
^XMB(3.9,166,2,3883,0)="""RTN"",""XUSRB4"",87,0)"
^XMB(3.9,166,2,3884,0)=" D USER^XUS(D)"
^XMB(3.9,166,2,3885,0)="""RTN"",""XUSRB4"",88,0)"
^XMB(3.9,166,2,3886,0)=" Q D"
^XMB(3.9,166,2,3887,0)="""RTN"",""XUSRB4"",89,0)"
^XMB(3.9,166,2,3888,0)=" ;"
^XMB(3.9,166,2,3889,0)="""RTN"",""XUSRB4"",90,0)"
^XMB(3.9,166,2,3890,0)=" ;"
^XMB(3.9,166,2,3891,0)="""RTN"",""XUSRB4"",91,0)"
^XMB(3.9,166,2,3892,0)="CCOWPC(RET) ;Return ap"
^XMB(3.9,166,2,3893,0)="""RTN"",""XUSRB4"",92,0)"
^XMB(3.9,166,2,3894,0)=" N I,XU4"
^XMB(3.9,166,2,3895,0)="""RTN"",""XUSRB4"",93,0)"
^XMB(3.9,166,2,3896,0)=" S RET(0)="""" I '$$BROKER^XWBLIB Q"
^XMB(3.9,166,2,3897,0)="""RTN"",""XUSRB4"",94,0)"
^XMB(3.9,166,2,3898,0)=" D GETLST^XPAR(.XU4,""SYS"",""XUS CCOW VAULT PARAM"",""Q"")"
^XMB(3.9,166,2,3899,0)="""RTN"",""XUSRB4"",95,0)"
^XMB(3.9,166,2,3900,0)=" F I=0,1 S RET(I)=$P($G(XU4(I+1)),""^"",2,99)"
^XMB(3.9,166,2,3901,0)="""RTN"",""XUSRB4"",96,0)"
^XMB(3.9,166,2,3902,0)=" Q"
^XMB(3.9,166,2,3903,0)="""RTN"",""XUSTZIP"")"
^XMB(3.9,166,2,3904,0)="0^8^B25405099^B25477365"
^XMB(3.9,166,2,3905,0)="""RTN"",""XUSTZIP"",1,0)"
^XMB(3.9,166,2,3906,0)="XUSTZIP ;WRJ/DAF,ISF/RWF - Security Twilight Zone, Failed Access Attempts ;03/24/2004  11:12"
^XMB(3.9,166,2,3907,0)="""RTN"",""XUSTZIP"",2,0)"
^XMB(3.9,166,2,3908,0)=" ;;8.0;KERNEL;**265,419**;Jul 10, 1995;Build 5"
^XMB(3.9,166,2,3909,0)="""RTN"",""XUSTZIP"",3,0)"
^XMB(3.9,166,2,3910,0)=" Q"
^XMB(3.9,166,2,3911,0)="""RTN"",""XUSTZIP"",4,0)"
^XMB(3.9,166,2,3912,0)=" ;The subfiles in KSP file."
^XMB(3.9,166,2,3913,0)="""RTN"",""XUSTZIP"",5,0)"
^XMB(3.9,166,2,3914,0)=" ;405.2 List of Terminal Servers, slack, last reset"
^XMB(3.9,166,2,3915,0)="""RTN"",""XUSTZIP"",6,0)"
^XMB(3.9,166,2,3916,0)=" ;"
^XMB(3.9,166,2,3917,0)="""RTN"",""XUSTZIP"",7,0)"
^XMB(3.9,166,2,3918,0)=" ;^XUSEC(3, (File 3.083) Locked IP's, lock until"
^XMB(3.9,166,2,3919,0)="""RTN"",""XUSTZIP"",8,0)"
^XMB(3.9,166,2,3920,0)=" ;^XUSEC(4, (File 3.084) Failed attempts count"
^XMB(3.9,166,2,3921,0)="""RTN"",""XUSTZIP"",9,0)"
^XMB(3.9,166,2,3922,0)=" ;$P(^VA(200,DUZ,1.1),U,5) Locked Users"
^XMB(3.9,166,2,3923,0)="""RTN"",""XUSTZIP"",10,0)"
^XMB(3.9,166,2,3924,0)=" ;"
^XMB(3.9,166,2,3925,0)="""RTN"",""XUSTZIP"",11,0)"
^XMB(3.9,166,2,3926,0)="CLEAN ;CLEAN UP OLD LOCKED IP NODES, ^XUSEC(3,"
^XMB(3.9,166,2,3927,0)="""RTN"",""XUSTZIP"",12,0)"
^XMB(3.9,166,2,3928,0)=" N ZNUM,NOW"
^XMB(3.9,166,2,3929,0)="""RTN"",""XUSTZIP"",13,0)"
^XMB(3.9,166,2,3930,0)=" S ZNUM=0,NOW=$$NOW^XLFDT"
^XMB(3.9,166,2,3931,0)="""RTN"",""XUSTZIP"",14,0)"
^XMB(3.9,166,2,3932,0)=" L +^XUSEC(3,0):10"
^XMB(3.9,166,2,3933,0)="""RTN"",""XUSTZIP"",15,0)"
^XMB(3.9,166,2,3934,0)=" F  S ZNUM=$O(^XUSEC(3,ZNUM)) Q:ZNUM'>0  D"
^XMB(3.9,166,2,3935,0)="""RTN"",""XUSTZIP"",16,0)"
^XMB(3.9,166,2,3936,0)=" .I $P(^XUSEC(3,ZNUM,0),""^"",2)'>NOW D LKDEL(ZNUM)"
^XMB(3.9,166,2,3937,0)="""RTN"",""XUSTZIP"",17,0)"
^XMB(3.9,166,2,3938,0)=" L -^XUSEC(3,0),+^XUSEC(4,0):10"
^XMB(3.9,166,2,3939,0)="""RTN"",""XUSTZIP"",18,0)"
^XMB(3.9,166,2,3940,0)=" N XUFAC,OV"
^XMB(3.9,166,2,3941,0)="""RTN"",""XUSTZIP"",19,0)"
^XMB(3.9,166,2,3942,0)=" S ZNUM=0,NOW=$$H3-90"
^XMB(3.9,166,2,3943,0)="""RTN"",""XUSTZIP"",20,0)"
^XMB(3.9,166,2,3944,0)=" F  S ZNUM=$O(^XUSEC(4,ZNUM)) Q:ZNUM'>0  D"
^XMB(3.9,166,2,3945,0)="""RTN"",""XUSTZIP"",21,0)"
^XMB(3.9,166,2,3946,0)=" .S OV=$$H3($P(^XUSEC(4,ZNUM,0),""^"",3)) I OV'>NOW D"
^XMB(3.9,166,2,3947,0)="""RTN"",""XUSTZIP"",22,0)"
^XMB(3.9,166,2,3948,0)=" ..N DIK,DA"
^XMB(3.9,166,2,3949,0)="""RTN"",""XUSTZIP"",23,0)"
^XMB(3.9,166,2,3950,0)=" ..S DA=ZNUM,DIK=""^XUSEC(4,"" D ^DIK"
^XMB(3.9,166,2,3951,0)="""RTN"",""XUSTZIP"",24,0)"
^XMB(3.9,166,2,3952,0)=" L -^XUSEC(4,0)"
^XMB(3.9,166,2,3953,0)="""RTN"",""XUSTZIP"",25,0)"
^XMB(3.9,166,2,3954,0)=" Q"
^XMB(3.9,166,2,3955,0)="""RTN"",""XUSTZIP"",26,0)"
^XMB(3.9,166,2,3956,0)="X6IP ;EXAMINE AND ALLOW RESET OF LOCKED IPS"
^XMB(3.9,166,2,3957,0)="""RTN"",""XUSTZIP"",27,0)"
^XMB(3.9,166,2,3958,0)=" N I,ZFDA,DIR,XUNOW,ZNM,ZNUM,Y S ZNM="""",I=0"
^XMB(3.9,166,2,3959,0)="""RTN"",""XUSTZIP"",28,0)"
^XMB(3.9,166,2,3960,0)=" I '$D(^XUSEC(3,""B"")) W !,""There are no IP's to Clear"" Q"
^XMB(3.9,166,2,3961,0)="""RTN"",""XUSTZIP"",29,0)"
^XMB(3.9,166,2,3962,0)=" F  S ZNM=$O(^XUSEC(3,""B"",ZNM)) Q:ZNM']""""  S ZNUM=$O(^XUSEC(3,""B"",ZNM,"""")) D"
^XMB(3.9,166,2,3963,0)="""RTN"",""XUSTZIP"",30,0)"
^XMB(3.9,166,2,3964,0)=" . I '$D(^XUSEC(3,ZNUM,0)) K ^XUSEC(3,""B"",ZNM) Q  ;419"
^XMB(3.9,166,2,3965,0)="""RTN"",""XUSTZIP"",31,0)"
^XMB(3.9,166,2,3966,0)=" . S I=I+1,ZNM(I)=ZNUM_""^""_ZNM"
^XMB(3.9,166,2,3967,0)="""RTN"",""XUSTZIP"",32,0)"
^XMB(3.9,166,2,3968,0)=" . W !,I_"". "",ZNM,""  lock out till: "",$$FMTE^XLFDT($P(^XUSEC(3,ZNUM,0),""^"",2))"
^XMB(3.9,166,2,3969,0)="""RTN"",""XUSTZIP"",33,0)"
^XMB(3.9,166,2,3970,0)=" . Q"
^XMB(3.9,166,2,3971,0)="""RTN"",""XUSTZIP"",34,0)"
^XMB(3.9,166,2,3972,0)=" S DIR(0)=""N^1:""_I,DIR(""A"")=""Choose the number of the IP to reset"" D ^DIR Q:$D(DIRUT)"
^XMB(3.9,166,2,3973,0)="""RTN"",""XUSTZIP"",35,0)"
^XMB(3.9,166,2,3974,0)=" S ZNM=$P(ZNM(Y),""^"",2),ZNUM=+ZNM(Y)"
^XMB(3.9,166,2,3975,0)="""RTN"",""XUSTZIP"",36,0)"
^XMB(3.9,166,2,3976,0)=" ;Call with IEN"
^XMB(3.9,166,2,3977,0)="""RTN"",""XUSTZIP"",37,0)"
^XMB(3.9,166,2,3978,0)=" D LKDEL(ZNUM)"
^XMB(3.9,166,2,3979,0)="""RTN"",""XUSTZIP"",38,0)"
^XMB(3.9,166,2,3980,0)=" W !,ZNM,"" Cleared"""
^XMB(3.9,166,2,3981,0)="""RTN"",""XUSTZIP"",39,0)"
^XMB(3.9,166,2,3982,0)=" ;Call with IP"
^XMB(3.9,166,2,3983,0)="""RTN"",""XUSTZIP"",40,0)"
^XMB(3.9,166,2,3984,0)=" D CLRFAC^XUS3(ZNM) ;Clear access count"
^XMB(3.9,166,2,3985,0)="""RTN"",""XUSTZIP"",41,0)"
^XMB(3.9,166,2,3986,0)=" ;if this is a ts reset and then set reset date in site param file"
^XMB(3.9,166,2,3987,0)="""RTN"",""XUSTZIP"",42,0)"
^XMB(3.9,166,2,3988,0)=" S ZIEN=$$TSCHK(ZNM)"
^XMB(3.9,166,2,3989,0)="""RTN"",""XUSTZIP"",43,0)"
^XMB(3.9,166,2,3990,0)=" I ZIEN>0 S ZFDA(8989.305,ZIEN_"",1,"",2)=$$NOW D UPDATE^DIE("""",""ZFDA"")"
^XMB(3.9,166,2,3991,0)="""RTN"",""XUSTZIP"",44,0)"
^XMB(3.9,166,2,3992,0)=" K DIR,DIRUT"
^XMB(3.9,166,2,3993,0)="""RTN"",""XUSTZIP"",45,0)"
^XMB(3.9,166,2,3994,0)=" Q"
^XMB(3.9,166,2,3995,0)="""RTN"",""XUSTZIP"",46,0)"
^XMB(3.9,166,2,3996,0)=" ;"
^XMB(3.9,166,2,3997,0)="""RTN"",""XUSTZIP"",47,0)"
^XMB(3.9,166,2,3998,0)="LKSET(IP) ;Set IP Lock Node"
^XMB(3.9,166,2,3999,0)="""RTN"",""XUSTZIP"",48,0)"
^XMB(3.9,166,2,4000,0)=" N ZNUM,ZFDA,ZIEN"
^XMB(3.9,166,2,4001,0)="""RTN"",""XUSTZIP"",49,0)"
^XMB(3.9,166,2,4002,0)=" Q:'$$ON 0"
^XMB(3.9,166,2,4003,0)="""RTN"",""XUSTZIP"",50,0)"
^XMB(3.9,166,2,4004,0)=" S ZIEN=""?+2,"",ZFDA(3.083,ZIEN,.01)=IP"
^XMB(3.9,166,2,4005,0)="""RTN"",""XUSTZIP"",51,0)"
^XMB(3.9,166,2,4006,0)=" S ZFDA(3.083,ZIEN,2)=$$LKTL"
^XMB(3.9,166,2,4007,0)="""RTN"",""XUSTZIP"",52,0)"
^XMB(3.9,166,2,4008,0)=" D UPDATE^DIE("""",""ZFDA"",""ZIEN"")"
^XMB(3.9,166,2,4009,0)="""RTN"",""XUSTZIP"",53,0)"
^XMB(3.9,166,2,4010,0)=" D CLRFAC^XUS3(IP) ;Clear the access count"
^XMB(3.9,166,2,4011,0)="""RTN"",""XUSTZIP"",54,0)"
^XMB(3.9,166,2,4012,0)=" Q 1"
^XMB(3.9,166,2,4013,0)="""RTN"",""XUSTZIP"",55,0)"
^XMB(3.9,166,2,4014,0)="LKTL() ;Lock until"
^XMB(3.9,166,2,4015,0)="""RTN"",""XUSTZIP"",56,0)"
^XMB(3.9,166,2,4016,0)=" Q $$HTFM^XLFDT($$HADD^XLFDT($H,0,0,0,$$LKTME))"
^XMB(3.9,166,2,4017,0)="""RTN"",""XUSTZIP"",57,0)"
^XMB(3.9,166,2,4018,0)=" ;"
^XMB(3.9,166,2,4019,0)="""RTN"",""XUSTZIP"",58,0)"
^XMB(3.9,166,2,4020,0)="NOW() ;"
^XMB(3.9,166,2,4021,0)="""RTN"",""XUSTZIP"",59,0)"
^XMB(3.9,166,2,4022,0)=" I $G(XUNOW) Q XUNOW"
^XMB(3.9,166,2,4023,0)="""RTN"",""XUSTZIP"",60,0)"
^XMB(3.9,166,2,4024,0)=" S XUNOW=$$NOW^XLFDT"
^XMB(3.9,166,2,4025,0)="""RTN"",""XUSTZIP"",61,0)"
^XMB(3.9,166,2,4026,0)=" Q XUNOW"
^XMB(3.9,166,2,4027,0)="""RTN"",""XUSTZIP"",62,0)"
^XMB(3.9,166,2,4028,0)=" ;"
^XMB(3.9,166,2,4029,0)="""RTN"",""XUSTZIP"",63,0)"
^XMB(3.9,166,2,4030,0)="IP() ;Get a device IP."
^XMB(3.9,166,2,4031,0)="""RTN"",""XUSTZIP"",64,0)"
^XMB(3.9,166,2,4032,0)=" Q $S($D(IP):IP,$D(IO(""IP"")):IO(""IP""),$D(IO(""ZIO"")):IO(""ZIO""),1:"""")"
^XMB(3.9,166,2,4033,0)="""RTN"",""XUSTZIP"",65,0)"
^XMB(3.9,166,2,4034,0)=" ;"
^XMB(3.9,166,2,4035,0)="""RTN"",""XUSTZIP"",66,0)"
^XMB(3.9,166,2,4036,0)="LKTME() ;Get lock-out time"
^XMB(3.9,166,2,4037,0)="""RTN"",""XUSTZIP"",67,0)"
^XMB(3.9,166,2,4038,0)=" I $D(XOPT) Q $P(XOPT,U,3)"
^XMB(3.9,166,2,4039,0)="""RTN"",""XUSTZIP"",68,0)"
^XMB(3.9,166,2,4040,0)=" Q $P(^XTV(8989.3,1,""XUS""),U,3)"
^XMB(3.9,166,2,4041,0)="""RTN"",""XUSTZIP"",69,0)"
^XMB(3.9,166,2,4042,0)=" ;"
^XMB(3.9,166,2,4043,0)="""RTN"",""XUSTZIP"",70,0)"
^XMB(3.9,166,2,4044,0)="LKCHECK(IP) ;Check if IP is LOCKED"
^XMB(3.9,166,2,4045,0)="""RTN"",""XUSTZIP"",71,0)"
^XMB(3.9,166,2,4046,0)=" I '$$ON Q 0 ;Are we doing IP/device locking"
^XMB(3.9,166,2,4047,0)="""RTN"",""XUSTZIP"",72,0)"
^XMB(3.9,166,2,4048,0)=" S IP=$$IP() Q:'$L(IP) 0"
^XMB(3.9,166,2,4049,0)="""RTN"",""XUSTZIP"",73,0)"
^XMB(3.9,166,2,4050,0)=" N ZREC S ZREC=$$LKREC(IP)"
^XMB(3.9,166,2,4051,0)="""RTN"",""XUSTZIP"",74,0)"
^XMB(3.9,166,2,4052,0)=" Q:'$L(ZREC) 0"
^XMB(3.9,166,2,4053,0)="""RTN"",""XUSTZIP"",75,0)"
^XMB(3.9,166,2,4054,0)=" ;Found a LOCK record, Check time"
^XMB(3.9,166,2,4055,0)="""RTN"",""XUSTZIP"",76,0)"
^XMB(3.9,166,2,4056,0)=" S X=$P(ZREC,""^"",2)>$$NOW"
^XMB(3.9,166,2,4057,0)="""RTN"",""XUSTZIP"",77,0)"
^XMB(3.9,166,2,4058,0)=" Q X"
^XMB(3.9,166,2,4059,0)="""RTN"",""XUSTZIP"",78,0)"
^XMB(3.9,166,2,4060,0)=" ;"
^XMB(3.9,166,2,4061,0)="""RTN"",""XUSTZIP"",79,0)"
^XMB(3.9,166,2,4062,0)="LKREC(IP) ;Get the Lock record"
^XMB(3.9,166,2,4063,0)="""RTN"",""XUSTZIP"",80,0)"
^XMB(3.9,166,2,4064,0)=" N ZNUM"
^XMB(3.9,166,2,4065,0)="""RTN"",""XUSTZIP"",81,0)"
^XMB(3.9,166,2,4066,0)=" S ZNUM=+$O(^XUSEC(3,""B"",IP,0))"
^XMB(3.9,166,2,4067,0)="""RTN"",""XUSTZIP"",82,0)"
^XMB(3.9,166,2,4068,0)=" Q $G(^XUSEC(3,ZNUM,0))"
^XMB(3.9,166,2,4069,0)="""RTN"",""XUSTZIP"",83,0)"
^XMB(3.9,166,2,4070,0)=" ;"
^XMB(3.9,166,2,4071,0)="""RTN"",""XUSTZIP"",84,0)"
^XMB(3.9,166,2,4072,0)="LKDEL(ZNUM) ;Delete LOCKED IP"
^XMB(3.9,166,2,4073,0)="""RTN"",""XUSTZIP"",85,0)"
^XMB(3.9,166,2,4074,0)=" N DIK,DA ;419"
^XMB(3.9,166,2,4075,0)="""RTN"",""XUSTZIP"",86,0)"
^XMB(3.9,166,2,4076,0)=" S DIK=""^XUSEC(3,"",DA=ZNUM D ^DIK"
^XMB(3.9,166,2,4077,0)="""RTN"",""XUSTZIP"",87,0)"
^XMB(3.9,166,2,4078,0)=" Q"
^XMB(3.9,166,2,4079,0)="""RTN"",""XUSTZIP"",88,0)"
^XMB(3.9,166,2,4080,0)=" ;"
^XMB(3.9,166,2,4081,0)="""RTN"",""XUSTZIP"",89,0)"
^XMB(3.9,166,2,4082,0)="LKWAIT(%) ;How long to wait"
^XMB(3.9,166,2,4083,0)="""RTN"",""XUSTZIP"",90,0)"
^XMB(3.9,166,2,4084,0)=" N T1,T2,IP"
^XMB(3.9,166,2,4085,0)="""RTN"",""XUSTZIP"",91,0)"
^XMB(3.9,166,2,4086,0)=" S IP=$$IP() Q:'$L(IP) %"
^XMB(3.9,166,2,4087,0)="""RTN"",""XUSTZIP"",92,0)"
^XMB(3.9,166,2,4088,0)=" S T1=$$LKREC(IP)"
^XMB(3.9,166,2,4089,0)="""RTN"",""XUSTZIP"",93,0)"
^XMB(3.9,166,2,4090,0)=" Q $$FMDIFF^XLFDT($P(T1,U,2),$$NOW^XLFDT,2)"
^XMB(3.9,166,2,4091,0)="""RTN"",""XUSTZIP"",94,0)"
^XMB(3.9,166,2,4092,0)=" ;"
^XMB(3.9,166,2,4093,0)="""RTN"",""XUSTZIP"",95,0)"
^XMB(3.9,166,2,4094,0)="TSCHK(IP) ;Check if IP is for a TERMINAL SERVER."
^XMB(3.9,166,2,4095,0)="""RTN"",""XUSTZIP"",96,0)"
^XMB(3.9,166,2,4096,0)=" ;is this IP for a teriminal server."
^XMB(3.9,166,2,4097,0)="""RTN"",""XUSTZIP"",97,0)"
^XMB(3.9,166,2,4098,0)=" N ZNUM S ZNUM=$O(^XTV(8989.3,1,405.2,""B"",IP,0))"
^XMB(3.9,166,2,4099,0)="""RTN"",""XUSTZIP"",98,0)"
^XMB(3.9,166,2,4100,0)=" Q ZNUM"
^XMB(3.9,166,2,4101,0)="""RTN"",""XUSTZIP"",99,0)"
^XMB(3.9,166,2,4102,0)=" ;"
^XMB(3.9,166,2,4103,0)="""RTN"",""XUSTZIP"",100,0)"
^XMB(3.9,166,2,4104,0)="IPCHECK(IP) ;Check if IP should be LOCKED. Called from XUSTZ, and others."
^XMB(3.9,166,2,4105,0)="""RTN"",""XUSTZIP"",101,0)"
^XMB(3.9,166,2,4106,0)=" ;Return 1 if should lock, 0 if No."
^XMB(3.9,166,2,4107,0)="""RTN"",""XUSTZIP"",102,0)"
^XMB(3.9,166,2,4108,0)=" I '$$ON Q 0"
^XMB(3.9,166,2,4109,0)="""RTN"",""XUSTZIP"",103,0)"
^XMB(3.9,166,2,4110,0)=" S IP=$$IP Q:'$L(IP) 0"
^XMB(3.9,166,2,4111,0)="""RTN"",""XUSTZIP"",104,0)"
^XMB(3.9,166,2,4112,0)=" N LIMIT,TSIEN,ZEND,ZNUM,ZLST,SLK,TFAC,TSREC,Z10"
^XMB(3.9,166,2,4113,0)="""RTN"",""XUSTZIP"",105,0)"
^XMB(3.9,166,2,4114,0)=" ;If the IP is locked, Don't relock. Could cause an endless lock."
^XMB(3.9,166,2,4115,0)="""RTN"",""XUSTZIP"",106,0)"
^XMB(3.9,166,2,4116,0)=" I $$LKCHECK(IP) Q 0"
^XMB(3.9,166,2,4117,0)="""RTN"",""XUSTZIP"",107,0)"
^XMB(3.9,166,2,4118,0)=" ;is this the IP of a teriminal server. if not lock"
^XMB(3.9,166,2,4119,0)="""RTN"",""XUSTZIP"",108,0)"
^XMB(3.9,166,2,4120,0)=" S TSIEN=$$TSCHK(IP) ;Returns TS ien."
^XMB(3.9,166,2,4121,0)="""RTN"",""XUSTZIP"",109,0)"
^XMB(3.9,166,2,4122,0)=" ;If TSIEN<1 lock the IP."
^XMB(3.9,166,2,4123,0)="""RTN"",""XUSTZIP"",110,0)"
^XMB(3.9,166,2,4124,0)=" Q:TSIEN<1 1"
^XMB(3.9,166,2,4125,0)="""RTN"",""XUSTZIP"",111,0)"
^XMB(3.9,166,2,4126,0)=" ;count # of failures for this TS in last 10 minutes and compare that "
^XMB(3.9,166,2,4127,0)="""RTN"",""XUSTZIP"",112,0)"
^XMB(3.9,166,2,4128,0)=" ;against the established limit.  if no limit set, use 2. maybe cut"
^XMB(3.9,166,2,4129,0)="""RTN"",""XUSTZIP"",113,0)"
^XMB(3.9,166,2,4130,0)=" ;some slack."
^XMB(3.9,166,2,4131,0)="""RTN"",""XUSTZIP"",114,0)"
^XMB(3.9,166,2,4132,0)=" S Z10=$$HTFM^XLFDT($$HADD^XLFDT($H,0,0,-10)) ;NOW-10"
^XMB(3.9,166,2,4133,0)="""RTN"",""XUSTZIP"",115,0)"
^XMB(3.9,166,2,4134,0)=" S TSREC=$G(^XTV(8989.3,1,405.2,TSIEN,0)) ;Get TS record"
^XMB(3.9,166,2,4135,0)="""RTN"",""XUSTZIP"",116,0)"
^XMB(3.9,166,2,4136,0)=" S ZLST=$P(TSREC,""^"",3) ;Last reset"
^XMB(3.9,166,2,4137,0)="""RTN"",""XUSTZIP"",117,0)"
^XMB(3.9,166,2,4138,0)=" S ZEND=$S(ZLST>Z10:ZLST,1:Z10) ;stop at last reset or NOW-10."
^XMB(3.9,166,2,4139,0)="""RTN"",""XUSTZIP"",118,0)"
^XMB(3.9,166,2,4140,0)=" S ZNUM=""A"",TFAC=0,Y=$S(IP[""/"":""/"",1:"":"")"
^XMB(3.9,166,2,4141,0)="""RTN"",""XUSTZIP"",119,0)"
^XMB(3.9,166,2,4142,0)=" F  S ZNUM=$O(^%ZUA(3.05,ZNUM),-1) Q:ZNUM'>0!(ZEND>ZNUM)  D"
^XMB(3.9,166,2,4143,0)="""RTN"",""XUSTZIP"",120,0)"
^XMB(3.9,166,2,4144,0)=" . I $P($P(^%ZUA(3.05,ZNUM,0),""^"",7),Y)=$P(IP,Y) S TFAC=TFAC+1"
^XMB(3.9,166,2,4145,0)="""RTN"",""XUSTZIP"",121,0)"
^XMB(3.9,166,2,4146,0)=" S LIMIT=$P($G(^XTV(8989.3,1,405)),""^"",6) S:'LIMIT LIMIT=2"
^XMB(3.9,166,2,4147,0)="""RTN"",""XUSTZIP"",122,0)"
^XMB(3.9,166,2,4148,0)=" S SLK=$$SLACK(Z10) ;"
^XMB(3.9,166,2,4149,0)="""RTN"",""XUSTZIP"",123,0)"
^XMB(3.9,166,2,4150,0)=" Q $S(SLK:TFAC>SLK,1:TFAC>LIMIT)"
^XMB(3.9,166,2,4151,0)="""RTN"",""XUSTZIP"",124,0)"
^XMB(3.9,166,2,4152,0)=" ;"
^XMB(3.9,166,2,4153,0)="""RTN"",""XUSTZIP"",125,0)"
^XMB(3.9,166,2,4154,0)="SLACK(TEND) ;SLACK CALCULATOR"
^XMB(3.9,166,2,4155,0)="""RTN"",""XUSTZIP"",126,0)"
^XMB(3.9,166,2,4156,0)=" ;if this TS has been reset in last 10 minutes allow 100 tries."
^XMB(3.9,166,2,4157,0)="""RTN"",""XUSTZIP"",127,0)"
^XMB(3.9,166,2,4158,0)=" ;Normal hours return 0, after hours use TS Slack value"
^XMB(3.9,166,2,4159,0)="""RTN"",""XUSTZIP"",128,0)"
^XMB(3.9,166,2,4160,0)=" N HRMIN,X,NOW,TS"
^XMB(3.9,166,2,4161,0)="""RTN"",""XUSTZIP"",129,0)"
^XMB(3.9,166,2,4162,0)=" S X=$P(TSREC,""^"",3) ;Last Reset"
^XMB(3.9,166,2,4163,0)="""RTN"",""XUSTZIP"",130,0)"
^XMB(3.9,166,2,4164,0)=" I X>TEND Q 100 ;TEND is Now-10 min"
^XMB(3.9,166,2,4165,0)="""RTN"",""XUSTZIP"",131,0)"
^XMB(3.9,166,2,4166,0)=" ;if now is during normal work hours 8am to 4:30 pm, cut no slack"
^XMB(3.9,166,2,4167,0)="""RTN"",""XUSTZIP"",132,0)"
^XMB(3.9,166,2,4168,0)=" S HRMIN=$P($H,"","",2)"
^XMB(3.9,166,2,4169,0)="""RTN"",""XUSTZIP"",133,0)"
^XMB(3.9,166,2,4170,0)=" ; 8am is 28800 and 4:30 pm is 59400"
^XMB(3.9,166,2,4171,0)="""RTN"",""XUSTZIP"",134,0)"
^XMB(3.9,166,2,4172,0)=" ; If Normal hours don't give slack unless user locking is on."
^XMB(3.9,166,2,4173,0)="""RTN"",""XUSTZIP"",135,0)"
^XMB(3.9,166,2,4174,0)=" I (HRMIN>28800&(HRMIN<59400)) Q $S($P($G(^XTV(8989.3,1,405)),""^"",4)=""y"":10,1:0)"
^XMB(3.9,166,2,4175,0)="""RTN"",""XUSTZIP"",136,0)"
^XMB(3.9,166,2,4176,0)=" ;if TS param says to cut slack, cut amount of slack set up in param."
^XMB(3.9,166,2,4177,0)="""RTN"",""XUSTZIP"",137,0)"
^XMB(3.9,166,2,4178,0)=" Q $S($P(TSREC,""^"",2):$P(TSREC,""^"",2),1:0)"
^XMB(3.9,166,2,4179,0)="""RTN"",""XUSTZIP"",138,0)"
^XMB(3.9,166,2,4180,0)=" ;"
^XMB(3.9,166,2,4181,0)="""RTN"",""XUSTZIP"",139,0)"
^XMB(3.9,166,2,4182,0)="ON() ;ON OR OFF"
^XMB(3.9,166,2,4183,0)="""RTN"",""XUSTZIP"",140,0)"
^XMB(3.9,166,2,4184,0)=" Q $P($G(^XTV(8989.3,1,405)),""^"",1)=""y"""
^XMB(3.9,166,2,4185,0)="""RTN"",""XUSTZIP"",141,0)"
^XMB(3.9,166,2,4186,0)=" ;"
^XMB(3.9,166,2,4187,0)="""RTN"",""XUSTZIP"",142,0)"
^XMB(3.9,166,2,4188,0)="H3(%H) ;Make seconds"
^XMB(3.9,166,2,4189,0)="""RTN"",""XUSTZIP"",143,0)"
^XMB(3.9,166,2,4190,0)=" S:'$G(%H) %H=$H"
^XMB(3.9,166,2,4191,0)="""RTN"",""XUSTZIP"",144,0)"
^XMB(3.9,166,2,4192,0)=" Q %H*86400+$P(%H,"","",2)"
^XMB(3.9,166,2,4193,0)="""RTN"",""XUSTZIP"",145,0)"
^XMB(3.9,166,2,4194,0)=" ;"
^XMB(3.9,166,2,4195,0)="""RTN"",""XUSTZIP"",146,0)"
^XMB(3.9,166,2,4196,0)="H0(%H) ;"
^XMB(3.9,166,2,4197,0)="""RTN"",""XUSTZIP"",147,0)"
^XMB(3.9,166,2,4198,0)=" S:'$G(%H) %H=0"
^XMB(3.9,166,2,4199,0)="""RTN"",""XUSTZIP"",148,0)"
^XMB(3.9,166,2,4200,0)=" Q (%H\86400)_"",""_(%H#86400)"
^XMB(3.9,166,2,4201,0)="""RTN"",""XUSTZIP"",149,0)"
^XMB(3.9,166,2,4202,0)=" ;"
^XMB(3.9,166,2,4203,0)="""RTN"",""XUSTZIP"",150,0)"
^XMB(3.9,166,2,4204,0)="DSPTME(%H) ;Convert seconds to display format"
^XMB(3.9,166,2,4205,0)="""RTN"",""XUSTZIP"",151,0)"
^XMB(3.9,166,2,4206,0)=" Q $$HTE^XLFDT($$H0(%H),""1P"")"
^XMB(3.9,166,2,4207,0)="""RTN"",""XUSTZIP"",152,0)"
^XMB(3.9,166,2,4208,0)=" ;"
^XMB(3.9,166,2,4209,0)="""RTN"",""XUSTZIP"",153,0)"
^XMB(3.9,166,2,4210,0)="WATCH ;Watch the globals"
^XMB(3.9,166,2,4211,0)="""RTN"",""XUSTZIP"",154,0)"
^XMB(3.9,166,2,4212,0)=" N TIME,C,I,X"
^XMB(3.9,166,2,4213,0)="""RTN"",""XUSTZIP"",155,0)"
^XMB(3.9,166,2,4214,0)="WT2 S TIME=$$HTE^XLFDT($H)"
^XMB(3.9,166,2,4215,0)="""RTN"",""XUSTZIP"",156,0)"
^XMB(3.9,166,2,4216,0)=" W @IOF,""Failed access attempts count.   Current time: "",TIME"
^XMB(3.9,166,2,4217,0)="""RTN"",""XUSTZIP"",157,0)"
^XMB(3.9,166,2,4218,0)=" S I=0,C=0"
^XMB(3.9,166,2,4219,0)="""RTN"",""XUSTZIP"",158,0)"
^XMB(3.9,166,2,4220,0)=" F  S I=$O(^XUSEC(4,I)) Q:I'>0  S X=^(I,0),C=1 W !,I,?5,""IP: "",$P(X,U,1),?25,""Count: "",$P(X,U,2),?35,""Until: "",$$HTE^XLFDT($P(X,U,3))"
^XMB(3.9,166,2,4221,0)="""RTN"",""XUSTZIP"",159,0)"
^XMB(3.9,166,2,4222,0)=" I C=0 W !,?10,""None"""
^XMB(3.9,166,2,4223,0)="""RTN"",""XUSTZIP"",160,0)"
^XMB(3.9,166,2,4224,0)=" W !,""Locked IP's.  Current time: "",TIME"
^XMB(3.9,166,2,4225,0)="""RTN"",""XUSTZIP"",161,0)"
^XMB(3.9,166,2,4226,0)=" S I=0,C=0"
^XMB(3.9,166,2,4227,0)="""RTN"",""XUSTZIP"",162,0)"
^XMB(3.9,166,2,4228,0)=" F  S I=$O(^XUSEC(3,I)) Q:I'>0  S X=^(I,0),C=1 W !,I,?5,""IP: "",$P(X,U,1),?25,""Until: "",$$FMTE^XLFDT($P(X,U,2))"
^XMB(3.9,166,2,4229,0)="""RTN"",""XUSTZIP"",163,0)"
^XMB(3.9,166,2,4230,0)=" I C=0 W !,?10,""None"""
^XMB(3.9,166,2,4231,0)="""RTN"",""XUSTZIP"",164,0)"
^XMB(3.9,166,2,4232,0)=" R !,""Refresh: Yes// "",X:30 S:'$T X=""Y"" G WT2:""Yy""[$E(X)"
^XMB(3.9,166,2,4233,0)="""RTN"",""XUSTZIP"",165,0)"
^XMB(3.9,166,2,4234,0)=" I $E(X)=""?"" W !,""Enter 'Yes' or return to refresh, anyother key will exit"" H 2 G WT2"
^XMB(3.9,166,2,4235,0)="""RTN"",""XUSTZIP"",166,0)"
^XMB(3.9,166,2,4236,0)=" Q"
^XMB(3.9,166,2,4237,0)="""RTN"",""ZUGTM"")"
^XMB(3.9,166,2,4238,0)="0^10^B7793985^B10091845"
^XMB(3.9,166,2,4239,0)="""RTN"",""ZUGTM"",1,0)"
^XMB(3.9,166,2,4240,0)="ZU ;SF/JLI,RWF - For GT.M, TIE ALL TERMINALS TO THIS ROUTINE!! ;11/24/2003  11:34"
^XMB(3.9,166,2,4241,0)="""RTN"",""ZUGTM"",2,0)"
^XMB(3.9,166,2,4242,0)=" ;;8.0;KERNEL;**275,419**;Jul 10, 1995;Build 5"
^XMB(3.9,166,2,4243,0)="""RTN"",""ZUGTM"",3,0)"
^XMB(3.9,166,2,4244,0)=" ; for GT.M for VMS & Unix, version 4.3"
^XMB(3.9,166,2,4245,0)="""RTN"",""ZUGTM"",4,0)"
^XMB(3.9,166,2,4246,0)=" ;"
^XMB(3.9,166,2,4247,0)="""RTN"",""ZUGTM"",5,0)"
^XMB(3.9,166,2,4248,0)=" ;The env var ZINTRRUPT should be set to catch all interrupts."
^XMB(3.9,166,2,4249,0)="""RTN"",""ZUGTM"",6,0)"
^XMB(3.9,166,2,4250,0)="EN ;See that escape processing is off, Conflict with Screenman"
^XMB(3.9,166,2,4251,0)="""RTN"",""ZUGTM"",7,0)"
^XMB(3.9,166,2,4252,0)=" U $P:(NOCENABLE:NOESCAPE)"
^XMB(3.9,166,2,4253,0)="""RTN"",""ZUGTM"",8,0)"
^XMB(3.9,166,2,4254,0)=" N $ESTACK,$ETRAP S $ETRAP=""D ERR^ZU Q:$QUIT -9 Q"""
^XMB(3.9,166,2,4255,0)="""RTN"",""ZUGTM"",9,0)"
^XMB(3.9,166,2,4256,0)=" S $ZINTERRUPT=""I $$JOBEXAM^ZU($ZPOSITION)"""
^XMB(3.9,166,2,4257,0)="""RTN"",""ZUGTM"",10,0)"
^XMB(3.9,166,2,4258,0)=" D:+$G(^%ZTSCH(""LOGRSRC"")) LOGRSRC^%ZOSV(""$LOGIN$"")"
^XMB(3.9,166,2,4259,0)="""RTN"",""ZUGTM"",11,0)"
^XMB(3.9,166,2,4260,0)=" D COUNT^XUSCNT(1)"
^XMB(3.9,166,2,4261,0)="""RTN"",""ZUGTM"",12,0)"
^XMB(3.9,166,2,4262,0)=" G ^XUS"
^XMB(3.9,166,2,4263,0)="""RTN"",""ZUGTM"",13,0)"
^XMB(3.9,166,2,4264,0)=" ;"
^XMB(3.9,166,2,4265,0)="""RTN"",""ZUGTM"",14,0)"
^XMB(3.9,166,2,4266,0)=" ;"
^XMB(3.9,166,2,4267,0)="""RTN"",""ZUGTM"",15,0)"
^XMB(3.9,166,2,4268,0)="ERR ;Come here on error"
^XMB(3.9,166,2,4269,0)="""RTN"",""ZUGTM"",16,0)"
^XMB(3.9,166,2,4270,0)=" ; handle stack overflow errors specifically"
^XMB(3.9,166,2,4271,0)="""RTN"",""ZUGTM"",17,0)"
^XMB(3.9,166,2,4272,0)=" I $P($ZS,"","",3)[""STACKCRIT""!(""STACKOFLOW""[$P($ZS,"","",3)) S $ET=""Q:$ST>""_($ST-8)_""  G ERR2^ZU"" Q"
^XMB(3.9,166,2,4273,0)="""RTN"",""ZUGTM"",18,0)"
^XMB(3.9,166,2,4274,0)=" ;"
^XMB(3.9,166,2,4275,0)="""RTN"",""ZUGTM"",19,0)"
^XMB(3.9,166,2,4276,0)="ERR2 ;"
^XMB(3.9,166,2,4277,0)="""RTN"",""ZUGTM"",20,0)"
^XMB(3.9,166,2,4278,0)=" S $ETRAP=""D UNWIND^ZU"" L  ;Backup Trap"
^XMB(3.9,166,2,4279,0)="""RTN"",""ZUGTM"",21,0)"
^XMB(3.9,166,2,4280,0)=" U $P:NOCENABLE"
^XMB(3.9,166,2,4281,0)="""RTN"",""ZUGTM"",22,0)"
^XMB(3.9,166,2,4282,0)=" Q:$ECODE[""<PROG>"""
^XMB(3.9,166,2,4283,0)="""RTN"",""ZUGTM"",23,0)"
^XMB(3.9,166,2,4284,0)=" I $P($ZS,"","",2,3)[""^XUS1A:2, %GTM-E-IOWRITERR"" G HALT"
^XMB(3.9,166,2,4285,0)="""RTN"",""ZUGTM"",24,0)"
^XMB(3.9,166,2,4286,0)=" ;"
^XMB(3.9,166,2,4287,0)="""RTN"",""ZUGTM"",25,0)"
^XMB(3.9,166,2,4288,0)=" D ^%ZTER K %ZT ; Capture symbol table first!"
^XMB(3.9,166,2,4289,0)="""RTN"",""ZUGTM"",26,0)"
^XMB(3.9,166,2,4290,0)=" ;"
^XMB(3.9,166,2,4291,0)="""RTN"",""ZUGTM"",27,0)"
^XMB(3.9,166,2,4292,0)=" I $G(IO)]"""",$D(IO(1,IO)),$E($G(IOST))=""P"" D"
^XMB(3.9,166,2,4293,0)="""RTN"",""ZUGTM"",28,0)"
^XMB(3.9,166,2,4294,0)=" . U IO"
^XMB(3.9,166,2,4295,0)="""RTN"",""ZUGTM"",29,0)"
^XMB(3.9,166,2,4296,0)=" . W @$S($D(IOF):IOF,1:""#"")"
^XMB(3.9,166,2,4297,0)="""RTN"",""ZUGTM"",30,0)"
^XMB(3.9,166,2,4298,0)=" I $G(IO(0))]"""" D"
^XMB(3.9,166,2,4299,0)="""RTN"",""ZUGTM"",31,0)"
^XMB(3.9,166,2,4300,0)=" . U IO(0)"
^XMB(3.9,166,2,4301,0)="""RTN"",""ZUGTM"",32,0)"
^XMB(3.9,166,2,4302,0)=" . W !!,""RECORDING THAT AN ERROR OCCURRED ---"""
^XMB(3.9,166,2,4303,0)="""RTN"",""ZUGTM"",33,0)"
^XMB(3.9,166,2,4304,0)=" . W !!?15,""Sorry 'bout that"""
^XMB(3.9,166,2,4305,0)="""RTN"",""ZUGTM"",34,0)"
^XMB(3.9,166,2,4306,0)=" . W !,*7"
^XMB(3.9,166,2,4307,0)="""RTN"",""ZUGTM"",35,0)"
^XMB(3.9,166,2,4308,0)=" . W !?10,""$STACK="",$STACK,""  $ECODE="",$ECODE"
^XMB(3.9,166,2,4309,0)="""RTN"",""ZUGTM"",36,0)"
^XMB(3.9,166,2,4310,0)=" . W !?10,""$ZSTATUS="",$ZSTATUS"
^XMB(3.9,166,2,4311,0)="""RTN"",""ZUGTM"",37,0)"
^XMB(3.9,166,2,4312,0)=" ;"
^XMB(3.9,166,2,4313,0)="""RTN"",""ZUGTM"",38,0)"
^XMB(3.9,166,2,4314,0)=" ;"
^XMB(3.9,166,2,4315,0)="""RTN"",""ZUGTM"",39,0)"
^XMB(3.9,166,2,4316,0)=" I $G(DUZ)'>0 G HALT"
^XMB(3.9,166,2,4317,0)="""RTN"",""ZUGTM"",40,0)"
^XMB(3.9,166,2,4318,0)=" S $ET=""D HALT^ZU"""
^XMB(3.9,166,2,4319,0)="""RTN"",""ZUGTM"",41,0)"
^XMB(3.9,166,2,4320,0)=" ;"
^XMB(3.9,166,2,4321,0)="""RTN"",""ZUGTM"",42,0)"
^XMB(3.9,166,2,4322,0)=" I $P($ZS,"","",3)'[""-CTRLC"" S XUERF="""" G ^XUSCLEAN ;419"
^XMB(3.9,166,2,4323,0)="""RTN"",""ZUGTM"",43,0)"
^XMB(3.9,166,2,4324,0)="CTRLC U $P"
^XMB(3.9,166,2,4325,0)="""RTN"",""ZUGTM"",44,0)"
^XMB(3.9,166,2,4326,0)=" W !,""--Interrupt Acknowledged"",!"
^XMB(3.9,166,2,4327,0)="""RTN"",""ZUGTM"",45,0)"
^XMB(3.9,166,2,4328,0)=" D KILL1^XUSCLEAN ;Clean up symbol table"
^XMB(3.9,166,2,4329,0)="""RTN"",""ZUGTM"",46,0)"
^XMB(3.9,166,2,4330,0)=" S $ECODE="",<<POP>>,"""
^XMB(3.9,166,2,4331,0)="""RTN"",""ZUGTM"",47,0)"
^XMB(3.9,166,2,4332,0)=" Q"
^XMB(3.9,166,2,4333,0)="""RTN"",""ZUGTM"",48,0)"
^XMB(3.9,166,2,4334,0)=" ;"
^XMB(3.9,166,2,4335,0)="""RTN"",""ZUGTM"",49,0)"
^XMB(3.9,166,2,4336,0)="UNWIND ;Unwind the stack"
^XMB(3.9,166,2,4337,0)="""RTN"",""ZUGTM"",50,0)"
^XMB(3.9,166,2,4338,0)=" Q:$ESTACK>1  G CTRLC2:$ECODE[""<<POP>>"""
^XMB(3.9,166,2,4339,0)="""RTN"",""ZUGTM"",51,0)"
^XMB(3.9,166,2,4340,0)=" S $ECODE="""""
^XMB(3.9,166,2,4341,0)="""RTN"",""ZUGTM"",52,0)"
^XMB(3.9,166,2,4342,0)=" Q"
^XMB(3.9,166,2,4343,0)="""RTN"",""ZUGTM"",53,0)"
^XMB(3.9,166,2,4344,0)=" ;"
^XMB(3.9,166,2,4345,0)="""RTN"",""ZUGTM"",54,0)"
^XMB(3.9,166,2,4346,0)="CTRLC2 S $ECODE="""" G:$G(^XUTL(""XQ"",$J,""T""))<2 ^XUSCLEAN"
^XMB(3.9,166,2,4347,0)="""RTN"",""ZUGTM"",55,0)"
^XMB(3.9,166,2,4348,0)=" S ^XUTL(""XQ"",$J,""T"")=1,XQY=$G(^(1)),XQY0=$P(XQY,""^"",2,99)"
^XMB(3.9,166,2,4349,0)="""RTN"",""ZUGTM"",56,0)"
^XMB(3.9,166,2,4350,0)=" G:$P(XQY0,""^"",4)'=""M"" HALT"
^XMB(3.9,166,2,4351,0)="""RTN"",""ZUGTM"",57,0)"
^XMB(3.9,166,2,4352,0)=" S XQPSM=$P(XQY,""^"",1),XQY=+XQPSM,XQPSM=$P(XQPSM,XQY,2,3)"
^XMB(3.9,166,2,4353,0)="""RTN"",""ZUGTM"",58,0)"
^XMB(3.9,166,2,4354,0)=" G:'XQY ^XUSCLEAN"
^XMB(3.9,166,2,4355,0)="""RTN"",""ZUGTM"",59,0)"
^XMB(3.9,166,2,4356,0)=" S $ECODE="""",$ETRAP=""D ERR^ZU Q:$QUIT 0 Q"""
^XMB(3.9,166,2,4357,0)="""RTN"",""ZUGTM"",60,0)"
^XMB(3.9,166,2,4358,0)=" U $P:NOESCAPE"
^XMB(3.9,166,2,4359,0)="""RTN"",""ZUGTM"",61,0)"
^XMB(3.9,166,2,4360,0)=" G M1^XQ"
^XMB(3.9,166,2,4361,0)="""RTN"",""ZUGTM"",62,0)"
^XMB(3.9,166,2,4362,0)=" ;"
^XMB(3.9,166,2,4363,0)="""RTN"",""ZUGTM"",63,0)"
^XMB(3.9,166,2,4364,0)="HALT I $D(^XUTL(""XQ"",$J)) D:$G(DUZ)>0 BYE^XUSCLEAN"
^XMB(3.9,166,2,4365,0)="""RTN"",""ZUGTM"",64,0)"
^XMB(3.9,166,2,4366,0)=" D COUNT^XUSCNT(-1)"
^XMB(3.9,166,2,4367,0)="""RTN"",""ZUGTM"",65,0)"
^XMB(3.9,166,2,4368,0)=" D:+$G(^%ZTSCH(""LOGRSRC"")) LOGRSRC^%ZOSV(""$LOGOUT$"")"
^XMB(3.9,166,2,4369,0)="""RTN"",""ZUGTM"",66,0)"
^XMB(3.9,166,2,4370,0)=" HALT"
^XMB(3.9,166,2,4371,0)="""RTN"",""ZUGTM"",67,0)"
^XMB(3.9,166,2,4372,0)=" ;"
^XMB(3.9,166,2,4373,0)="""RTN"",""ZUGTM"",68,0)"
^XMB(3.9,166,2,4374,0)="JOBEXAM(%ZPOS) ;"
^XMB(3.9,166,2,4375,0)="""RTN"",""ZUGTM"",69,0)"
^XMB(3.9,166,2,4376,0)=" N %reference S %reference=$REFERENCE"
^XMB(3.9,166,2,4377,0)="""RTN"",""ZUGTM"",70,0)"
^XMB(3.9,166,2,4378,0)=" S ^XUTL(""XUSYS"",$J,0)=$H,^XUTL(""XUSYS"",$J,""INTERRUPT"")=$G(%ZPOS)"
^XMB(3.9,166,2,4379,0)="""RTN"",""ZUGTM"",71,0)"
^XMB(3.9,166,2,4380,0)=" I %ZPOS[""^"" S ^XUTL(""XUSYS"",$J,""codeline"")=$T(@%ZPOS)"
^XMB(3.9,166,2,4381,0)="""RTN"",""ZUGTM"",72,0)"
^XMB(3.9,166,2,4382,0)=" K ^XUTL(""XUSYS"",$J,""JE"")"
^XMB(3.9,166,2,4383,0)="""RTN"",""ZUGTM"",73,0)"
^XMB(3.9,166,2,4384,0)=" I $G(^XUTL(""XUSYS"",""COMMAND""))'=""EXAM"" ZSHOW ""SD"":^XUTL(""XUSYS"",$J,""JE"")"
^XMB(3.9,166,2,4385,0)="""RTN"",""ZUGTM"",74,0)"
^XMB(3.9,166,2,4386,0)=" I $G(^XUTL(""XUSYS"",""COMMAND""))=""EXAM"" ZSHOW ""*"":^XUTL(""XUSYS"",$J,""JE"")"
^XMB(3.9,166,2,4387,0)="""RTN"",""ZUGTM"",75,0)"
^XMB(3.9,166,2,4388,0)=" I $G(^XUTL(""XUSYS"",$J,""CMD""))=""HALT"" ;To do."
^XMB(3.9,166,2,4389,0)="""RTN"",""ZUGTM"",76,0)"
^XMB(3.9,166,2,4390,0)=" Q 1"
^XMB(3.9,166,2,4391,0)="""RTN"",""ZUGTM"",77,0)"
^XMB(3.9,166,2,4392,0)=" ;"
^XMB(3.9,166,2,4393,0)="""RTN"",""ZUONT"")"
^XMB(3.9,166,2,4394,0)="0^9^B4589154^B3721758"
^XMB(3.9,166,2,4395,0)="""RTN"",""ZUONT"",1,0)"
^XMB(3.9,166,2,4396,0)="ZU ;SF/RWF - For Cache and Open M! ;06/13/2006"
^XMB(3.9,166,2,4397,0)="""RTN"",""ZUONT"",2,0)"
^XMB(3.9,166,2,4398,0)=" ;;8.0;KERNEL;**34,94,118,162,170,225,419**;Jul 10, 1995;Build 5"
^XMB(3.9,166,2,4399,0)="""RTN"",""ZUONT"",3,0)"
^XMB(3.9,166,2,4400,0)=" ;TIE ALL TERMINALS EXCEPT CONSOLE TO THIS ROUTINE!"
^XMB(3.9,166,2,4401,0)="""RTN"",""ZUONT"",4,0)"
^XMB(3.9,166,2,4402,0)="EN N $ES,$ETRAP S $ETRAP=""D ERR^ZU Q:$QUIT -9 Q"""
^XMB(3.9,166,2,4403,0)="""RTN"",""ZUONT"",5,0)"
^XMB(3.9,166,2,4404,0)=" D:+$G(^%ZTSCH(""LOGRSRC"")) LOGRSRC^%ZOSV(""$LOGIN$"")"
^XMB(3.9,166,2,4405,0)="""RTN"",""ZUONT"",6,0)"
^XMB(3.9,166,2,4406,0)=" ;The next line keeps sign-on users from taking the last slot"
^XMB(3.9,166,2,4407,0)="""RTN"",""ZUONT"",7,0)"
^XMB(3.9,166,2,4408,0)=" ;It can be commented out if not needed."
^XMB(3.9,166,2,4409,0)="""RTN"",""ZUONT"",8,0)"
^XMB(3.9,166,2,4410,0)=" I $$AVJ^%ZOSV()<3 W $C(7),!!,""** TROUBLE ** - NO AVALIABLE JOBS ** CALL IRM NOW! **"" G HALT"
^XMB(3.9,166,2,4411,0)="""RTN"",""ZUONT"",9,0)"
^XMB(3.9,166,2,4412,0)=" ;Only call ShareLic for Telnet connections."
^XMB(3.9,166,2,4413,0)="""RTN"",""ZUONT"",10,0)"
^XMB(3.9,166,2,4414,0)=" I ($I[""|TNT|"")!($I[""TNA"") D SHARELIC^%ZOSV(0)"
^XMB(3.9,166,2,4415,0)="""RTN"",""ZUONT"",11,0)"
^XMB(3.9,166,2,4416,0)=" G ^XUS"
^XMB(3.9,166,2,4417,0)="""RTN"",""ZUONT"",12,0)"
^XMB(3.9,166,2,4418,0)=" ;"
^XMB(3.9,166,2,4419,0)="""RTN"",""ZUONT"",13,0)"
^XMB(3.9,166,2,4420,0)=" ;"
^XMB(3.9,166,2,4421,0)="""RTN"",""ZUONT"",14,0)"
^XMB(3.9,166,2,4422,0)="ERR ;Come here on error"
^XMB(3.9,166,2,4423,0)="""RTN"",""ZUONT"",15,0)"
^XMB(3.9,166,2,4424,0)=" ; Try and handle stack overflow errors specifically"
^XMB(3.9,166,2,4425,0)="""RTN"",""ZUONT"",16,0)"
^XMB(3.9,166,2,4426,0)=" I $ZE[""STACK"" S $ET=""Q:$ST>""_($ST-8)_""  D ERR2^ZU"" Q"
^XMB(3.9,166,2,4427,0)="""RTN"",""ZUONT"",17,0)"
^XMB(3.9,166,2,4428,0)="ERR2 ;"
^XMB(3.9,166,2,4429,0)="""RTN"",""ZUONT"",18,0)"
^XMB(3.9,166,2,4430,0)=" S $ET=""D UNWIND^ZU"" L  ;Backup trap (419)"
^XMB(3.9,166,2,4431,0)="""RTN"",""ZUONT"",19,0)"
^XMB(3.9,166,2,4432,0)=" Q:$ECODE[""<PROG>"""
^XMB(3.9,166,2,4433,0)="""RTN"",""ZUONT"",20,0)"
^XMB(3.9,166,2,4434,0)=" ;"
^XMB(3.9,166,2,4435,0)="""RTN"",""ZUONT"",21,0)"
^XMB(3.9,166,2,4436,0)=" D ^%ZTER K %ZT ; Capture symbol table first!"
^XMB(3.9,166,2,4437,0)="""RTN"",""ZUONT"",22,0)"
^XMB(3.9,166,2,4438,0)=" ;"
^XMB(3.9,166,2,4439,0)="""RTN"",""ZUONT"",23,0)"
^XMB(3.9,166,2,4440,0)=" I $G(IO)]"""",$D(IO(1,IO)),$E($G(IOST))=""P"" D"
^XMB(3.9,166,2,4441,0)="""RTN"",""ZUONT"",24,0)"
^XMB(3.9,166,2,4442,0)=" . U IO"
^XMB(3.9,166,2,4443,0)="""RTN"",""ZUONT"",25,0)"
^XMB(3.9,166,2,4444,0)=" . W @$S($D(IOF):IOF,1:""#"")"
^XMB(3.9,166,2,4445,0)="""RTN"",""ZUONT"",26,0)"
^XMB(3.9,166,2,4446,0)=" I $G(IO(0))]"""" D"
^XMB(3.9,166,2,4447,0)="""RTN"",""ZUONT"",27,0)"
^XMB(3.9,166,2,4448,0)=" . U IO(0)"
^XMB(3.9,166,2,4449,0)="""RTN"",""ZUONT"",28,0)"
^XMB(3.9,166,2,4450,0)=" . W !!,""RECORDING THAT AN ERROR OCCURRED ---"""
^XMB(3.9,166,2,4451,0)="""RTN"",""ZUONT"",29,0)"
^XMB(3.9,166,2,4452,0)=" . W !!?15,""Sorry 'bout that"""
^XMB(3.9,166,2,4453,0)="""RTN"",""ZUONT"",30,0)"
^XMB(3.9,166,2,4454,0)=" . W !,*7"
^XMB(3.9,166,2,4455,0)="""RTN"",""ZUONT"",31,0)"
^XMB(3.9,166,2,4456,0)=" . W !?10,""$STACK="",$STACK,""  $ECODE="",$ECODE"
^XMB(3.9,166,2,4457,0)="""RTN"",""ZUONT"",32,0)"
^XMB(3.9,166,2,4458,0)=" . W !?10,""$ZERROR="",$ZERROR"
^XMB(3.9,166,2,4459,0)="""RTN"",""ZUONT"",33,0)"
^XMB(3.9,166,2,4460,0)=" ;"
^XMB(3.9,166,2,4461,0)="""RTN"",""ZUONT"",34,0)"
^XMB(3.9,166,2,4462,0)=" I $G(DUZ)'>0 G HALT"
^XMB(3.9,166,2,4463,0)="""RTN"",""ZUONT"",35,0)"
^XMB(3.9,166,2,4464,0)=" X ^%ZOSF(""PROGMODE"") Q:Y"
^XMB(3.9,166,2,4465,0)="""RTN"",""ZUONT"",36,0)"
^XMB(3.9,166,2,4466,0)=" S $ET=""D HALT^ZU"" ;419"
^XMB(3.9,166,2,4467,0)="""RTN"",""ZUONT"",37,0)"
^XMB(3.9,166,2,4468,0)=" I $ZE'[""<INTERRUPT>"" S XUERF="""" G ^XUSCLEAN ;419"
^XMB(3.9,166,2,4469,0)="""RTN"",""ZUONT"",38,0)"
^XMB(3.9,166,2,4470,0)="CTRLC I $D(IO)=11 U IO(0) W !,""--Interrupt Acknowledged"",!"
^XMB(3.9,166,2,4471,0)="""RTN"",""ZUONT"",39,0)"
^XMB(3.9,166,2,4472,0)=" D KILL1^XUSCLEAN ;Clean up symbol table"
^XMB(3.9,166,2,4473,0)="""RTN"",""ZUONT"",40,0)"
^XMB(3.9,166,2,4474,0)=" S $ECODE="",U55,"""
^XMB(3.9,166,2,4475,0)="""RTN"",""ZUONT"",41,0)"
^XMB(3.9,166,2,4476,0)=" Q"
^XMB(3.9,166,2,4477,0)="""RTN"",""ZUONT"",42,0)"
^XMB(3.9,166,2,4478,0)=" ;"
^XMB(3.9,166,2,4479,0)="""RTN"",""ZUONT"",43,0)"
^XMB(3.9,166,2,4480,0)="UNWIND ;Unwind the stack"
^XMB(3.9,166,2,4481,0)="""RTN"",""ZUONT"",44,0)"
^XMB(3.9,166,2,4482,0)=" Q:$ESTACK>1  G CTRLC2:$ECODE[""U55"""
^XMB(3.9,166,2,4483,0)="""RTN"",""ZUONT"",45,0)"
^XMB(3.9,166,2,4484,0)=" S $ECODE="""""
^XMB(3.9,166,2,4485,0)="""RTN"",""ZUONT"",46,0)"
^XMB(3.9,166,2,4486,0)=" Q"
^XMB(3.9,166,2,4487,0)="""RTN"",""ZUONT"",47,0)"
^XMB(3.9,166,2,4488,0)=" ;"
^XMB(3.9,166,2,4489,0)="""RTN"",""ZUONT"",48,0)"
^XMB(3.9,166,2,4490,0)="CTRLC2 S $ECODE="""" G:$G(^XUTL(""XQ"",$J,""T""))<2 ^XUSCLEAN"
^XMB(3.9,166,2,4491,0)="""RTN"",""ZUONT"",49,0)"
^XMB(3.9,166,2,4492,0)=" S ^XUTL(""XQ"",$J,""T"")=1,XQY=^(1),XQY0=$P(XQY,""^"",2,99)"
^XMB(3.9,166,2,4493,0)="""RTN"",""ZUONT"",50,0)"
^XMB(3.9,166,2,4494,0)=" G:$P(XQY0,""^"",4)'=""M"" HALT"
^XMB(3.9,166,2,4495,0)="""RTN"",""ZUONT"",51,0)"
^XMB(3.9,166,2,4496,0)=" S XQPSM=$P(XQY,""^"",1),XQY=+XQPSM,XQPSM=$P(XQPSM,XQY,2,3)"
^XMB(3.9,166,2,4497,0)="""RTN"",""ZUONT"",52,0)"
^XMB(3.9,166,2,4498,0)=" G:'XQY ^XUSCLEAN"
^XMB(3.9,166,2,4499,0)="""RTN"",""ZUONT"",53,0)"
^XMB(3.9,166,2,4500,0)=" S $ECODE="""",$ETRAP=""D ERR^ZU"""
^XMB(3.9,166,2,4501,0)="""RTN"",""ZUONT"",54,0)"
^XMB(3.9,166,2,4502,0)=" G M1^XQ"
^XMB(3.9,166,2,4503,0)="""RTN"",""ZUONT"",55,0)"
^XMB(3.9,166,2,4504,0)=" ;"
^XMB(3.9,166,2,4505,0)="""RTN"",""ZUONT"",56,0)"
^XMB(3.9,166,2,4506,0)="HALT S $ECODE="""" I $D(^XUTL(""XQ"",$J)) D BYE^XUSCLEAN"
^XMB(3.9,166,2,4507,0)="""RTN"",""ZUONT"",57,0)"
^XMB(3.9,166,2,4508,0)=" D:+$G(^%ZTSCH(""LOGRSRC"")) LOGRSRC^%ZOSV(""$LOGOUT$"")"
^XMB(3.9,166,2,4509,0)="""RTN"",""ZUONT"",58,0)"
^XMB(3.9,166,2,4510,0)=" HALT"
^XMB(3.9,166,2,4511,0)="""RTN"",""ZUONT"",59,0)"
^XMB(3.9,166,2,4512,0)=" ;"
^XMB(3.9,166,2,4513,0)="""VER"")"
^XMB(3.9,166,2,4514,0)="8.0^22.0"
^XMB(3.9,166,2,4515,0)="""^DD"",200,200,11,0)"
^XMB(3.9,166,2,4516,0)="VERIFY CODE^FXOa^^.1;2^Q"
^XMB(3.9,166,2,4517,0)="""^DD"",200,200,11,1,0)"
^XMB(3.9,166,2,4518,0)="^.1"
^XMB(3.9,166,2,4519,0)="""^DD"",200,200,11,1,1,0)"
^XMB(3.9,166,2,4520,0)="^^TRIGGER^200^11.2"
^XMB(3.9,166,2,4521,0)="""^DD"",200,200,11,1,1,1)"
^XMB(3.9,166,2,4522,0)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VA(200,D0,.1)):^(.1),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=$S(D0=DUZ:$H,1:""60000,1"") S DIH=$G(^VA(200,DIV(0),.1)),DIV=X S $P(^(.1),U,1)=DIV,DIH=200,DIG=11.2 D ^DICR"
^XMB(3.9,166,2,4523,0)="""^DD"",200,200,11,1,1,2)"
^XMB(3.9,166,2,4524,0)="Q"
^XMB(3.9,166,2,4525,0)="""^DD"",200,200,11,1,1,3)"
^XMB(3.9,166,2,4526,0)="Triggers the DATE VERIFY CODE LAST CHANGED field."
^XMB(3.9,166,2,4527,0)="""^DD"",200,200,11,1,1,""CREATE VALUE"")"
^XMB(3.9,166,2,4528,0)="$S(D0=DUZ:$H,1:""60000,1"")"
^XMB(3.9,166,2,4529,0)="""^DD"",200,200,11,1,1,""DELETE VALUE"")"
^XMB(3.9,166,2,4530,0)="NO EFFECT"
^XMB(3.9,166,2,4531,0)="""^DD"",200,200,11,1,1,""DT"")"
^XMB(3.9,166,2,4532,0)="3060511"
^XMB(3.9,166,2,4533,0)="""^DD"",200,200,11,1,1,""FIELD"")"
^XMB(3.9,166,2,4534,0)="DATE VERIFY CODE LAST CHANGED"
^XMB(3.9,166,2,4535,0)="""^DD"",200,200,11,1,2,0)"
^XMB(3.9,166,2,4536,0)="200^VOLD^MUMPS"
^XMB(3.9,166,2,4537,0)="""^DD"",200,200,11,1,2,1)"
^XMB(3.9,166,2,4538,0)="Q"
^XMB(3.9,166,2,4539,0)="""^DD"",200,200,11,1,2,2)"
^XMB(3.9,166,2,4540,0)="S ^VA(200,DA,""VOLD"",X)=+$H"
^XMB(3.9,166,2,4541,0)="""^DD"",200,200,11,1,2,""%D"",0)"
^XMB(3.9,166,2,4542,0)="^^3^3^2920513^"
^XMB(3.9,166,2,4543,0)="""^DD"",200,200,11,1,2,""%D"",1,0)"
^XMB(3.9,166,2,4544,0)="This builds a list of old VERIFY CODEs that this user has had in the past."
^XMB(3.9,166,2,4545,0)="""^DD"",200,200,11,1,2,""%D"",2,0)"
^XMB(3.9,166,2,4546,0)="It is cleaned  out with the same option the purges the old"
^XMB(3.9,166,2,4547,0)="""^DD"",200,200,11,1,2,""%D"",3,0)"
^XMB(3.9,166,2,4548,0)="access code X-ref."
^XMB(3.9,166,2,4549,0)="""^DD"",200,200,11,2)"
^XMB(3.9,166,2,4550,0)="S Y(0)=Y S Y=""<Hidden>"""
^XMB(3.9,166,2,4551,0)="""^DD"",200,200,11,2.1)"
^XMB(3.9,166,2,4552,0)="S Y=""<Hidden>"""
^XMB(3.9,166,2,4553,0)="""^DD"",200,200,11,3)"
^XMB(3.9,166,2,4554,0)=""
^XMB(3.9,166,2,4555,0)="""^DD"",200,200,11,9)"
^XMB(3.9,166,2,4556,0)="^"
^XMB(3.9,166,2,4557,0)="""^DD"",200,200,11,21,0)"
^XMB(3.9,166,2,4558,0)="^^8^8^2920513^^^^"
^XMB(3.9,166,2,4559,0)="""^DD"",200,200,11,21,1,0)"
^XMB(3.9,166,2,4560,0)="This is the code that is used to verify that the ACCESS CODE was not"
^XMB(3.9,166,2,4561,0)="""^DD"",200,200,11,21,2,0)"
^XMB(3.9,166,2,4562,0)="found by accident."
^XMB(3.9,166,2,4563,0)="""^DD"",200,200,11,21,3,0)"
^XMB(3.9,166,2,4564,0)="It may be entered at logon time immediately after the ACCESS CODE"
^XMB(3.9,166,2,4565,0)="""^DD"",200,200,11,21,4,0)"
^XMB(3.9,166,2,4566,0)="by typing a semicolon, then the VERIFY CODE."
^XMB(3.9,166,2,4567,0)="""^DD"",200,200,11,21,5,0)"
^XMB(3.9,166,2,4568,0)=""
^XMB(3.9,166,2,4569,0)="""^DD"",200,200,11,21,6,0)"
^XMB(3.9,166,2,4570,0)="Verify codes may be changed by the user with the CHANGE USER CHARACTERISTICS"
^XMB(3.9,166,2,4571,0)="""^DD"",200,200,11,21,7,0)"
^XMB(3.9,166,2,4572,0)="option.  The kernel site parameter field LIFETIME OF VERIFY CODE forces"
^XMB(3.9,166,2,4573,0)="""^DD"",200,200,11,21,8,0)"
^XMB(3.9,166,2,4574,0)="the user to periodically enter a new verify code."
^XMB(3.9,166,2,4575,0)="""^DD"",200,200,11,""AUDIT"")"
^XMB(3.9,166,2,4576,0)="y"
^XMB(3.9,166,2,4577,0)="""^DD"",200,200,11,""DT"")"
^XMB(3.9,166,2,4578,0)="3060511"
^XMB(3.9,166,2,4579,0)="""^DD"",8989.3,8989.3,11.2,0)"
^XMB(3.9,166,2,4580,0)="AUTO-GENERATE VERIFY CODES^S^n:No;y:Yes;^3;3^Q"
^XMB(3.9,166,2,4581,0)="""^DD"",8989.3,8989.3,11.2,21,0)"
^XMB(3.9,166,2,4582,0)="^^7^7^3060817^"
^XMB(3.9,166,2,4583,0)="""^DD"",8989.3,8989.3,11.2,21,1,0)"
^XMB(3.9,166,2,4584,0)="During the C&A review of VistA the current practice of leaving the VERIFY"
^XMB(3.9,166,2,4585,0)="""^DD"",8989.3,8989.3,11.2,21,2,0)"
^XMB(3.9,166,2,4586,0)="CODE blank until the user signed on the first time was found to not comply"
^XMB(3.9,166,2,4587,0)="""^DD"",8989.3,8989.3,11.2,21,3,0)"
^XMB(3.9,166,2,4588,0)="with VA DIRECTIVE 6504. "
^XMB(3.9,166,2,4589,0)="""^DD"",8989.3,8989.3,11.2,21,4,0)"
^XMB(3.9,166,2,4590,0)=" "
^XMB(3.9,166,2,4591,0)="""^DD"",8989.3,8989.3,11.2,21,5,0)"
^XMB(3.9,166,2,4592,0)="This field will be used when someone other than the user goes to enter a "
^XMB(3.9,166,2,4593,0)="""^DD"",8989.3,8989.3,11.2,21,6,0)"
^XMB(3.9,166,2,4594,0)="verify code.  The system will select a strong verify code and tell the "
^XMB(3.9,166,2,4595,0)="""^DD"",8989.3,8989.3,11.2,21,7,0)"
^XMB(3.9,166,2,4596,0)="operator what the new code is."
^XMB(3.9,166,2,4597,0)="""^DD"",8989.3,8989.3,11.2,""DT"")"
^XMB(3.9,166,2,4598,0)="3060817"
^XMB(3.9,166,2,4599,0)="""BLD"",943,6)"
^XMB(3.9,166,2,4600,0)="^348"
^XMB(3.9,166,2,4601,0)="$END KID XU*8.0*419"
^XMB(3.9,166,6,0)="^3.911A^2^2"
^XMB(3.9,166,6,1,0)="POSTMASTER"
^XMB(3.9,166,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,166,6,"B","POSTMASTER",1)=""
^XMB(3.9,166,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,167,0)="XWB-1P1_SEQ-37_PAT-46.KID^.5^3061008.015744^^^^K"
^XMB(3.9,167,.6)="3061008"
^XMB(3.9,167,1,0)="^3.91A^2^2"
^XMB(3.9,167,1,1,0)=".5^0^3061008.015744^^^^^^^3061008.015744"
^XMB(3.9,167,1,2,0)="1^0^3061008.022938^^^^^^^3061008.022938"
^XMB(3.9,167,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,167,1,"C",.5,1)=""
^XMB(3.9,167,1,"C",1,2)=""
^XMB(3.9,167,2,0)="^^671^671^3061008"
^XMB(3.9,167,2,1,0)="$TXT Released XWB*1.1*46 SEQ #37"
^XMB(3.9,167,2,2,0)="Extracted from mail message"
^XMB(3.9,167,2,3,0)="$END TXT"
^XMB(3.9,167,2,4,0)="$KID XWB*1.1*46"
^XMB(3.9,167,2,5,0)="**INSTALL NAME**"
^XMB(3.9,167,2,6,0)="XWB*1.1*46"
^XMB(3.9,167,2,7,0)="""BLD"",540,0)"
^XMB(3.9,167,2,8,0)="XWB*1.1*46^RPC BROKER^0^3060329^y"
^XMB(3.9,167,2,9,0)="""BLD"",540,1,0)"
^XMB(3.9,167,2,10,0)="^^2^2^3060328^"
^XMB(3.9,167,2,11,0)="""BLD"",540,1,1,0)"
^XMB(3.9,167,2,12,0)="Please refer to the Description in the FORUM Patch Module for details."
^XMB(3.9,167,2,13,0)="""BLD"",540,1,2,0)"
^XMB(3.9,167,2,14,0)="XWB*1.1*46 Remove string length limit."
^XMB(3.9,167,2,15,0)="""BLD"",540,4,0)"
^XMB(3.9,167,2,16,0)="^9.64PA^^"
^XMB(3.9,167,2,17,0)="""BLD"",540,""KRN"",0)"
^XMB(3.9,167,2,18,0)="^9.67PA^8989.52^19"
^XMB(3.9,167,2,19,0)="""BLD"",540,""KRN"",.4,0)"
^XMB(3.9,167,2,20,0)=".4"
^XMB(3.9,167,2,21,0)="""BLD"",540,""KRN"",.401,0)"
^XMB(3.9,167,2,22,0)=".401"
^XMB(3.9,167,2,23,0)="""BLD"",540,""KRN"",.402,0)"
^XMB(3.9,167,2,24,0)=".402"
^XMB(3.9,167,2,25,0)="""BLD"",540,""KRN"",.403,0)"
^XMB(3.9,167,2,26,0)=".403"
^XMB(3.9,167,2,27,0)="""BLD"",540,""KRN"",.5,0)"
^XMB(3.9,167,2,28,0)=".5"
^XMB(3.9,167,2,29,0)="""BLD"",540,""KRN"",.84,0)"
^XMB(3.9,167,2,30,0)=".84"
^XMB(3.9,167,2,31,0)="""BLD"",540,""KRN"",3.6,0)"
^XMB(3.9,167,2,32,0)="3.6"
^XMB(3.9,167,2,33,0)="""BLD"",540,""KRN"",3.8,0)"
^XMB(3.9,167,2,34,0)="3.8"
^XMB(3.9,167,2,35,0)="""BLD"",540,""KRN"",9.2,0)"
^XMB(3.9,167,2,36,0)="9.2"
^XMB(3.9,167,2,37,0)="""BLD"",540,""KRN"",9.8,0)"
^XMB(3.9,167,2,38,0)="9.8"
^XMB(3.9,167,2,39,0)="""BLD"",540,""KRN"",9.8,""NM"",0)"
^XMB(3.9,167,2,40,0)="^9.68A^1^1"
^XMB(3.9,167,2,41,0)="""BLD"",540,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,167,2,42,0)="XWBPRS^^0^B38623517"
^XMB(3.9,167,2,43,0)="""BLD"",540,""KRN"",9.8,""NM"",""B"",""XWBPRS"",1)"
^XMB(3.9,167,2,44,0)=""
^XMB(3.9,167,2,45,0)="""BLD"",540,""KRN"",19,0)"
^XMB(3.9,167,2,46,0)="19"
^XMB(3.9,167,2,47,0)="""BLD"",540,""KRN"",19.1,0)"
^XMB(3.9,167,2,48,0)="19.1"
^XMB(3.9,167,2,49,0)="""BLD"",540,""KRN"",101,0)"
^XMB(3.9,167,2,50,0)="101"
^XMB(3.9,167,2,51,0)="""BLD"",540,""KRN"",409.61,0)"
^XMB(3.9,167,2,52,0)="409.61"
^XMB(3.9,167,2,53,0)="""BLD"",540,""KRN"",771,0)"
^XMB(3.9,167,2,54,0)="771"
^XMB(3.9,167,2,55,0)="""BLD"",540,""KRN"",870,0)"
^XMB(3.9,167,2,56,0)="870"
^XMB(3.9,167,2,57,0)="""BLD"",540,""KRN"",8989.51,0)"
^XMB(3.9,167,2,58,0)="8989.51"
^XMB(3.9,167,2,59,0)="""BLD"",540,""KRN"",8989.52,0)"
^XMB(3.9,167,2,60,0)="8989.52"
^XMB(3.9,167,2,61,0)="""BLD"",540,""KRN"",8994,0)"
^XMB(3.9,167,2,62,0)="8994"
^XMB(3.9,167,2,63,0)="""BLD"",540,""KRN"",""B"",.4,.4)"
^XMB(3.9,167,2,64,0)=""
^XMB(3.9,167,2,65,0)="""BLD"",540,""KRN"",""B"",.401,.401)"
^XMB(3.9,167,2,66,0)=""
^XMB(3.9,167,2,67,0)="""BLD"",540,""KRN"",""B"",.402,.402)"
^XMB(3.9,167,2,68,0)=""
^XMB(3.9,167,2,69,0)="""BLD"",540,""KRN"",""B"",.403,.403)"
^XMB(3.9,167,2,70,0)=""
^XMB(3.9,167,2,71,0)="""BLD"",540,""KRN"",""B"",.5,.5)"
^XMB(3.9,167,2,72,0)=""
^XMB(3.9,167,2,73,0)="""BLD"",540,""KRN"",""B"",.84,.84)"
^XMB(3.9,167,2,74,0)=""
^XMB(3.9,167,2,75,0)="""BLD"",540,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,167,2,76,0)=""
^XMB(3.9,167,2,77,0)="""BLD"",540,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,167,2,78,0)=""
^XMB(3.9,167,2,79,0)="""BLD"",540,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,167,2,80,0)=""
^XMB(3.9,167,2,81,0)="""BLD"",540,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,167,2,82,0)=""
^XMB(3.9,167,2,83,0)="""BLD"",540,""KRN"",""B"",19,19)"
^XMB(3.9,167,2,84,0)=""
^XMB(3.9,167,2,85,0)="""BLD"",540,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,167,2,86,0)=""
^XMB(3.9,167,2,87,0)="""BLD"",540,""KRN"",""B"",101,101)"
^XMB(3.9,167,2,88,0)=""
^XMB(3.9,167,2,89,0)="""BLD"",540,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,167,2,90,0)=""
^XMB(3.9,167,2,91,0)="""BLD"",540,""KRN"",""B"",771,771)"
^XMB(3.9,167,2,92,0)=""
^XMB(3.9,167,2,93,0)="""BLD"",540,""KRN"",""B"",870,870)"
^XMB(3.9,167,2,94,0)=""
^XMB(3.9,167,2,95,0)="""BLD"",540,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,167,2,96,0)=""
^XMB(3.9,167,2,97,0)="""BLD"",540,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,167,2,98,0)=""
^XMB(3.9,167,2,99,0)="""BLD"",540,""KRN"",""B"",8994,8994)"
^XMB(3.9,167,2,100,0)=""
^XMB(3.9,167,2,101,0)="""BLD"",540,""QUES"",0)"
^XMB(3.9,167,2,102,0)="^9.62^^"
^XMB(3.9,167,2,103,0)="""BLD"",540,""REQB"",0)"
^XMB(3.9,167,2,104,0)="^9.611^1^1"
^XMB(3.9,167,2,105,0)="""BLD"",540,""REQB"",1,0)"
^XMB(3.9,167,2,106,0)="XWB*1.1*43^2"
^XMB(3.9,167,2,107,0)="""BLD"",540,""REQB"",""B"",""XWB*1.1*43"",1)"
^XMB(3.9,167,2,108,0)=""
^XMB(3.9,167,2,109,0)="""MBREQ"")"
^XMB(3.9,167,2,110,0)="0"
^XMB(3.9,167,2,111,0)="""PKG"",7,-1)"
^XMB(3.9,167,2,112,0)="1^1"
^XMB(3.9,167,2,113,0)="""PKG"",7,0)"
^XMB(3.9,167,2,114,0)="RPC BROKER^XWB^Remote Procedure Call Broker"
^XMB(3.9,167,2,115,0)="""PKG"",7,20,0)"
^XMB(3.9,167,2,116,0)="^9.402P^^"
^XMB(3.9,167,2,117,0)="""PKG"",7,22,0)"
^XMB(3.9,167,2,118,0)="^9.49I^1^1"
^XMB(3.9,167,2,119,0)="""PKG"",7,22,1,0)"
^XMB(3.9,167,2,120,0)="1.1^2970918^2990407^126"
^XMB(3.9,167,2,121,0)="""PKG"",7,22,1,""PAH"",1,0)"
^XMB(3.9,167,2,122,0)="46^3060329"
^XMB(3.9,167,2,123,0)="""PKG"",7,22,1,""PAH"",1,1,0)"
^XMB(3.9,167,2,124,0)="^^2^2^3060329"
^XMB(3.9,167,2,125,0)="""PKG"",7,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,167,2,126,0)="Please refer to the Description in the FORUM Patch Module for details."
^XMB(3.9,167,2,127,0)="""PKG"",7,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,167,2,128,0)="XWB*1.1*46 Remove string length limit."
^XMB(3.9,167,2,129,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,167,2,130,0)="Y"
^XMB(3.9,167,2,131,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,167,2,132,0)="^D REP^XPDH"
^XMB(3.9,167,2,133,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,167,2,134,0)="Shall I write over your |FLAG| File"
^XMB(3.9,167,2,135,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,167,2,136,0)="YES"
^XMB(3.9,167,2,137,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,167,2,138,0)="D XPF1^XPDIQ"
^XMB(3.9,167,2,139,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,167,2,140,0)="Y"
^XMB(3.9,167,2,141,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,167,2,142,0)="^D DTA^XPDH"
^XMB(3.9,167,2,143,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,167,2,144,0)="Want my data |FLAG| yours"
^XMB(3.9,167,2,145,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,167,2,146,0)="YES"
^XMB(3.9,167,2,147,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,167,2,148,0)="D XPF2^XPDIQ"
^XMB(3.9,167,2,149,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,167,2,150,0)="YO"
^XMB(3.9,167,2,151,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,167,2,152,0)="^D INHIBIT^XPDH"
^XMB(3.9,167,2,153,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,167,2,154,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,167,2,155,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,167,2,156,0)="YES"
^XMB(3.9,167,2,157,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,167,2,158,0)="D XPI1^XPDIQ"
^XMB(3.9,167,2,159,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,167,2,160,0)="PO^VA(200,:EM"
^XMB(3.9,167,2,161,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,167,2,162,0)="^D MG^XPDH"
^XMB(3.9,167,2,163,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,167,2,164,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,167,2,165,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,167,2,166,0)=""
^XMB(3.9,167,2,167,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,167,2,168,0)="D XPM1^XPDIQ"
^XMB(3.9,167,2,169,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,167,2,170,0)="Y"
^XMB(3.9,167,2,171,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,167,2,172,0)="^D MENU^XPDH"
^XMB(3.9,167,2,173,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,167,2,174,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,167,2,175,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,167,2,176,0)="YES"
^XMB(3.9,167,2,177,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,167,2,178,0)="D XPO1^XPDIQ"
^XMB(3.9,167,2,179,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,167,2,180,0)="Y"
^XMB(3.9,167,2,181,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,167,2,182,0)="^D OPT^XPDH"
^XMB(3.9,167,2,183,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,167,2,184,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,167,2,185,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,167,2,186,0)="YES"
^XMB(3.9,167,2,187,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,167,2,188,0)="D XPZ1^XPDIQ"
^XMB(3.9,167,2,189,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,167,2,190,0)="Y"
^XMB(3.9,167,2,191,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,167,2,192,0)="^D RTN^XPDH"
^XMB(3.9,167,2,193,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,167,2,194,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,167,2,195,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,167,2,196,0)="NO"
^XMB(3.9,167,2,197,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,167,2,198,0)="D XPZ2^XPDIQ"
^XMB(3.9,167,2,199,0)="""RTN"")"
^XMB(3.9,167,2,200,0)="1"
^XMB(3.9,167,2,201,0)="""RTN"",""XWBPRS"")"
^XMB(3.9,167,2,202,0)="0^1^B38623517^B39040367"
^XMB(3.9,167,2,203,0)="""RTN"",""XWBPRS"",1,0)"
^XMB(3.9,167,2,204,0)="XWBPRS ;ISF/STAFF - VISTA BROKER MSG PARSER ; 3/28/2006"
^XMB(3.9,167,2,205,0)="""RTN"",""XWBPRS"",2,0)"
^XMB(3.9,167,2,206,0)=" ;;1.1;RPC BROKER;**35,43,46**;Mar 28, 1997"
^XMB(3.9,167,2,207,0)="""RTN"",""XWBPRS"",3,0)"
^XMB(3.9,167,2,208,0)=" ;XWB holds info from the message used by the RPC"
^XMB(3.9,167,2,209,0)="""RTN"",""XWBPRS"",4,0)"
^XMB(3.9,167,2,210,0)="CALLP(XWBP,XWBDEBUG) ;make API call using Protocol string"
^XMB(3.9,167,2,211,0)="""RTN"",""XWBPRS"",5,0)"
^XMB(3.9,167,2,212,0)=" N ERR,S,XWBARY K XWB"
^XMB(3.9,167,2,213,0)="""RTN"",""XWBPRS"",6,0)"
^XMB(3.9,167,2,214,0)=" S ERR=0"
^XMB(3.9,167,2,215,0)="""RTN"",""XWBPRS"",7,0)"
^XMB(3.9,167,2,216,0)=" S ERR=$$PRSP(""[XWB]"") ;Read the rest of the protocol header"
^XMB(3.9,167,2,217,0)="""RTN"",""XWBPRS"",8,0)"
^XMB(3.9,167,2,218,0)=" I '+ERR S ERR=$$PRSM ;Read and parse message"
^XMB(3.9,167,2,219,0)="""RTN"",""XWBPRS"",9,0)"
^XMB(3.9,167,2,220,0)=" I $G(XWB(2,""RPC""))=""XUS SET SHARED"" S XWBSHARE=1 Q"
^XMB(3.9,167,2,221,0)="""RTN"",""XWBPRS"",10,0)"
^XMB(3.9,167,2,222,0)=" I '+ERR S ERR=$$RPC ;Check the RPC"
^XMB(3.9,167,2,223,0)="""RTN"",""XWBPRS"",11,0)"
^XMB(3.9,167,2,224,0)=" I +ERR S XWBSEC=$P(ERR,U,2) ;P10 -- dpc"
^XMB(3.9,167,2,225,0)="""RTN"",""XWBPRS"",12,0)"
^XMB(3.9,167,2,226,0)=" I '+ERR D CHKPRMIT^XWBSEC($G(XWB(2,""RPC""))) ;checks if RPC allowed to run"
^XMB(3.9,167,2,227,0)="""RTN"",""XWBPRS"",13,0)"
^XMB(3.9,167,2,228,0)=" S:$L($G(XWBSEC)) ERR=""-1^""_XWBSEC"
^XMB(3.9,167,2,229,0)="""RTN"",""XWBPRS"",14,0)"
^XMB(3.9,167,2,230,0)=" I '+ERR D"
^XMB(3.9,167,2,231,0)="""RTN"",""XWBPRS"",15,0)"
^XMB(3.9,167,2,232,0)=" . D CAPI(.XWBP,XWB(""PARAM""))"
^XMB(3.9,167,2,233,0)="""RTN"",""XWBPRS"",16,0)"
^XMB(3.9,167,2,234,0)=" E  I ($G(XWBTCMD)'=""#BYE#"") D LOG^XWBTCPM(""Bad Msg""_ERR),CLRBUF"
^XMB(3.9,167,2,235,0)="""RTN"",""XWBPRS"",17,0)"
^XMB(3.9,167,2,236,0)=" I 'XWBDEBUG K XWB"
^XMB(3.9,167,2,237,0)="""RTN"",""XWBPRS"",18,0)"
^XMB(3.9,167,2,238,0)=" I $D(XWBARY) K @XWBARY,XWBARY"
^XMB(3.9,167,2,239,0)="""RTN"",""XWBPRS"",19,0)"
^XMB(3.9,167,2,240,0)=" Q"
^XMB(3.9,167,2,241,0)="""RTN"",""XWBPRS"",20,0)"
^XMB(3.9,167,2,242,0)=" ;"
^XMB(3.9,167,2,243,0)="""RTN"",""XWBPRS"",21,0)"
^XMB(3.9,167,2,244,0)="PRSP(P) ;ef, Parse Protocol"
^XMB(3.9,167,2,245,0)="""RTN"",""XWBPRS"",22,0)"
^XMB(3.9,167,2,246,0)=" ;M Extrinsic Function"
^XMB(3.9,167,2,247,0)="""RTN"",""XWBPRS"",23,0)"
^XMB(3.9,167,2,248,0)=" ;Outputs"
^XMB(3.9,167,2,249,0)="""RTN"",""XWBPRS"",24,0)"
^XMB(3.9,167,2,250,0)=" ;ERR      0 for success, ""-1^Text"" if error"
^XMB(3.9,167,2,251,0)="""RTN"",""XWBPRS"",25,0)"
^XMB(3.9,167,2,252,0)=" ;"
^XMB(3.9,167,2,253,0)="""RTN"",""XWBPRS"",26,0)"
^XMB(3.9,167,2,254,0)=" N ERR,C,M,R,X"
^XMB(3.9,167,2,255,0)="""RTN"",""XWBPRS"",27,0)"
^XMB(3.9,167,2,256,0)=" S R=0,C="";"",ERR=0"
^XMB(3.9,167,2,257,0)="""RTN"",""XWBPRS"",28,0)"
^XMB(3.9,167,2,258,0)=" S P=$$BREAD^XWBRW(4)"
^XMB(3.9,167,2,259,0)="""RTN"",""XWBPRS"",29,0)"
^XMB(3.9,167,2,260,0)=" IF $L(P)'=4 S ERR=""-1^Short Header info"""
^XMB(3.9,167,2,261,0)="""RTN"",""XWBPRS"",30,0)"
^XMB(3.9,167,2,262,0)=" IF +ERR=0 D"
^XMB(3.9,167,2,263,0)="""RTN"",""XWBPRS"",31,0)"
^XMB(3.9,167,2,264,0)=" . S XWB(R,""VER"")=+$E(P,1)"
^XMB(3.9,167,2,265,0)="""RTN"",""XWBPRS"",32,0)"
^XMB(3.9,167,2,266,0)=" . S XWB(R,""TYPE"")=+$E(P,2)"
^XMB(3.9,167,2,267,0)="""RTN"",""XWBPRS"",33,0)"
^XMB(3.9,167,2,268,0)=" . S (XWBENVL,XWB(R,""LENV""))=+$E(P,3)"
^XMB(3.9,167,2,269,0)="""RTN"",""XWBPRS"",34,0)"
^XMB(3.9,167,2,270,0)=" . S (XWBPRT,XWB(R,""RT""))=+$E(P,4)"
^XMB(3.9,167,2,271,0)="""RTN"",""XWBPRS"",35,0)"
^XMB(3.9,167,2,272,0)=" I XWBENVL<1 S (XWBENVL,XWB(R,""LENV""))=3"
^XMB(3.9,167,2,273,0)="""RTN"",""XWBPRS"",36,0)"
^XMB(3.9,167,2,274,0)=" Q ERR"
^XMB(3.9,167,2,275,0)="""RTN"",""XWBPRS"",37,0)"
^XMB(3.9,167,2,276,0)=" ;"
^XMB(3.9,167,2,277,0)="""RTN"",""XWBPRS"",38,0)"
^XMB(3.9,167,2,278,0)="PRSM() ;ef, Parse message"
^XMB(3.9,167,2,279,0)="""RTN"",""XWBPRS"",39,0)"
^XMB(3.9,167,2,280,0)=" ;M Extrinsic Function"
^XMB(3.9,167,2,281,0)="""RTN"",""XWBPRS"",40,0)"
^XMB(3.9,167,2,282,0)=" ;See document on msg format"
^XMB(3.9,167,2,283,0)="""RTN"",""XWBPRS"",41,0)"
^XMB(3.9,167,2,284,0)=" ;Outputs"
^XMB(3.9,167,2,285,0)="""RTN"",""XWBPRS"",42,0)"
^XMB(3.9,167,2,286,0)=" ;ERR      0 for success, ""-1^Text"" if error"
^XMB(3.9,167,2,287,0)="""RTN"",""XWBPRS"",43,0)"
^XMB(3.9,167,2,288,0)=" N C,EX1,ERR,R,X,CNK"
^XMB(3.9,167,2,289,0)="""RTN"",""XWBPRS"",44,0)"
^XMB(3.9,167,2,290,0)=" S R=1,C="";"",CNK=0,EX1=0 ;Max buffer"
^XMB(3.9,167,2,291,0)="""RTN"",""XWBPRS"",45,0)"
^XMB(3.9,167,2,292,0)=" S ERR=""-1^Invalid Chunk"""
^XMB(3.9,167,2,293,0)="""RTN"",""XWBPRS"",46,0)"
^XMB(3.9,167,2,294,0)=" F  S CNK=$$BREAD^XWBRW(1) Q:(""12345""'[CNK)  D  Q:EX1"
^XMB(3.9,167,2,295,0)="""RTN"",""XWBPRS"",47,0)"
^XMB(3.9,167,2,296,0)=" . S EX1=(CNK=5),@(""ERR=$$PRS""_CNK)"
^XMB(3.9,167,2,297,0)="""RTN"",""XWBPRS"",48,0)"
^XMB(3.9,167,2,298,0)=" Q ERR"
^XMB(3.9,167,2,299,0)="""RTN"",""XWBPRS"",49,0)"
^XMB(3.9,167,2,300,0)=" ;"
^XMB(3.9,167,2,301,0)="""RTN"",""XWBPRS"",50,0)"
^XMB(3.9,167,2,302,0)="PRS1() ;Parse the HEADER chunk"
^XMB(3.9,167,2,303,0)="""RTN"",""XWBPRS"",51,0)"
^XMB(3.9,167,2,304,0)=" N %,L,R"
^XMB(3.9,167,2,305,0)="""RTN"",""XWBPRS"",52,0)"
^XMB(3.9,167,2,306,0)=" S R=1"
^XMB(3.9,167,2,307,0)="""RTN"",""XWBPRS"",53,0)"
^XMB(3.9,167,2,308,0)=" S XWB(R,""VER"")=$$SREAD"
^XMB(3.9,167,2,309,0)="""RTN"",""XWBPRS"",54,0)"
^XMB(3.9,167,2,310,0)=" S XWB(R,""RETURN"")=$$SREAD"
^XMB(3.9,167,2,311,0)="""RTN"",""XWBPRS"",55,0)"
^XMB(3.9,167,2,312,0)=" Q 0"
^XMB(3.9,167,2,313,0)="""RTN"",""XWBPRS"",56,0)"
^XMB(3.9,167,2,314,0)=" ;"
^XMB(3.9,167,2,315,0)="""RTN"",""XWBPRS"",57,0)"
^XMB(3.9,167,2,316,0)="PRS2() ;Parse the RPC chunk"
^XMB(3.9,167,2,317,0)="""RTN"",""XWBPRS"",58,0)"
^XMB(3.9,167,2,318,0)=" N L,R"
^XMB(3.9,167,2,319,0)="""RTN"",""XWBPRS"",59,0)"
^XMB(3.9,167,2,320,0)=" S R=2"
^XMB(3.9,167,2,321,0)="""RTN"",""XWBPRS"",60,0)"
^XMB(3.9,167,2,322,0)=" S (XWBAPVER,XWB(R,""VER""))=$$SREAD ;RPC version"
^XMB(3.9,167,2,323,0)="""RTN"",""XWBPRS"",61,0)"
^XMB(3.9,167,2,324,0)=" S XWB(R,""RPC"")=$$SREAD"
^XMB(3.9,167,2,325,0)="""RTN"",""XWBPRS"",62,0)"
^XMB(3.9,167,2,326,0)=" I $G(XWBDEBUG)>1 D LOG^XWBTCPM(""RPC: ""_XWB(R,""RPC""))"
^XMB(3.9,167,2,327,0)="""RTN"",""XWBPRS"",63,0)"
^XMB(3.9,167,2,328,0)=" Q 0"
^XMB(3.9,167,2,329,0)="""RTN"",""XWBPRS"",64,0)"
^XMB(3.9,167,2,330,0)="PRS3() ;Parse the Security chunk"
^XMB(3.9,167,2,331,0)="""RTN"",""XWBPRS"",65,0)"
^XMB(3.9,167,2,332,0)=" N L,R"
^XMB(3.9,167,2,333,0)="""RTN"",""XWBPRS"",66,0)"
^XMB(3.9,167,2,334,0)=" S R=3"
^XMB(3.9,167,2,335,0)="""RTN"",""XWBPRS"",67,0)"
^XMB(3.9,167,2,336,0)=" Q 0"
^XMB(3.9,167,2,337,0)="""RTN"",""XWBPRS"",68,0)"
^XMB(3.9,167,2,338,0)="PRS4() ;Parse the Command chunk"
^XMB(3.9,167,2,339,0)="""RTN"",""XWBPRS"",69,0)"
^XMB(3.9,167,2,340,0)=" N R"
^XMB(3.9,167,2,341,0)="""RTN"",""XWBPRS"",70,0)"
^XMB(3.9,167,2,342,0)=" S R=4,XWBTCMD=$$SREAD,XWB(R,""CMD"")=XWBTCMD"
^XMB(3.9,167,2,343,0)="""RTN"",""XWBPRS"",71,0)"
^XMB(3.9,167,2,344,0)=" I $G(XWBDEBUG)>1 D LOG^XWBTCPM(""CMD: ""_XWBTCMD)"
^XMB(3.9,167,2,345,0)="""RTN"",""XWBPRS"",72,0)"
^XMB(3.9,167,2,346,0)=" Q (""TCPConnect^#BYE#""[XWBTCMD)"
^XMB(3.9,167,2,347,0)="""RTN"",""XWBPRS"",73,0)"
^XMB(3.9,167,2,348,0)=" ;"
^XMB(3.9,167,2,349,0)="""RTN"",""XWBPRS"",74,0)"
^XMB(3.9,167,2,350,0)="PRS5() ;Parse Data Parameter chunk"
^XMB(3.9,167,2,351,0)="""RTN"",""XWBPRS"",75,0)"
^XMB(3.9,167,2,352,0)=" ;M Extrinsic Function"
^XMB(3.9,167,2,353,0)="""RTN"",""XWBPRS"",76,0)"
^XMB(3.9,167,2,354,0)=" ;Outputs"
^XMB(3.9,167,2,355,0)="""RTN"",""XWBPRS"",77,0)"
^XMB(3.9,167,2,356,0)=" ;ERR      0 for success, ""-1^Text"" if error"
^XMB(3.9,167,2,357,0)="""RTN"",""XWBPRS"",78,0)"
^XMB(3.9,167,2,358,0)=" ;"
^XMB(3.9,167,2,359,0)="""RTN"",""XWBPRS"",79,0)"
^XMB(3.9,167,2,360,0)=" N CONT,DONE,ERR,F,FL,IX,K,L,P1,P2,P3,P4,P5,MAXP,R,TY,VA"
^XMB(3.9,167,2,361,0)="""RTN"",""XWBPRS"",80,0)"
^XMB(3.9,167,2,362,0)=" S R=5,ERR=0,F=3,IX=0,DONE=0,CONT=""f"",XWB(""PARAM"")="""""
^XMB(3.9,167,2,363,0)="""RTN"",""XWBPRS"",81,0)"
^XMB(3.9,167,2,364,0)=" F  S:CONT=""f"" TY=$$BREAD^XWBRW(1) D  Q:DONE  S CONT=$$BREAD^XWBRW(1) S:CONT'=""t"" IX=IX+1"
^XMB(3.9,167,2,365,0)="""RTN"",""XWBPRS"",82,0)"
^XMB(3.9,167,2,366,0)=" . K VA,P1"
^XMB(3.9,167,2,367,0)="""RTN"",""XWBPRS"",83,0)"
^XMB(3.9,167,2,368,0)=" . IF TY=$C(4) S DONE=1 Q  ;EOT"
^XMB(3.9,167,2,369,0)="""RTN"",""XWBPRS"",84,0)"
^XMB(3.9,167,2,370,0)=" . IF TY=0 D  Q  ;literal"
^XMB(3.9,167,2,371,0)="""RTN"",""XWBPRS"",85,0)"
^XMB(3.9,167,2,372,0)=" . . D LREAD(""VA"")"
^XMB(3.9,167,2,373,0)="""RTN"",""XWBPRS"",86,0)"
^XMB(3.9,167,2,374,0)=" . . S XWB(R,""P"",IX)=VA(1) D PARAM($NA(XWB(R,""P"",IX)))"
^XMB(3.9,167,2,375,0)="""RTN"",""XWBPRS"",87,0)"
^XMB(3.9,167,2,376,0)=" . . Q"
^XMB(3.9,167,2,377,0)="""RTN"",""XWBPRS"",88,0)"
^XMB(3.9,167,2,378,0)=" . IF TY=1 D  Q  ;reference"
^XMB(3.9,167,2,379,0)="""RTN"",""XWBPRS"",89,0)"
^XMB(3.9,167,2,380,0)=" . . D LREAD(""VA"")"
^XMB(3.9,167,2,381,0)="""RTN"",""XWBPRS"",90,0)"
^XMB(3.9,167,2,382,0)=" . . S XWB(R,""P"",IX)=$$GETV(VA(1)) D PARAM($NA(XWB(R,""P"",IX)))"
^XMB(3.9,167,2,383,0)="""RTN"",""XWBPRS"",91,0)"
^XMB(3.9,167,2,384,0)=" . . Q"
^XMB(3.9,167,2,385,0)="""RTN"",""XWBPRS"",92,0)"
^XMB(3.9,167,2,386,0)=" . IF TY=2 D  Q  ;list"
^XMB(3.9,167,2,387,0)="""RTN"",""XWBPRS"",93,0)"
^XMB(3.9,167,2,388,0)=" . . I CONT'=""t"" D"
^XMB(3.9,167,2,389,0)="""RTN"",""XWBPRS"",94,0)"
^XMB(3.9,167,2,390,0)=" . . . S XWBARY=$$OARY,XWB(R,""P"",IX)="".""_XWBARY"
^XMB(3.9,167,2,391,0)="""RTN"",""XWBPRS"",95,0)"
^XMB(3.9,167,2,392,0)=" . . . D PARAM(XWB(R,""P"",IX))"
^XMB(3.9,167,2,393,0)="""RTN"",""XWBPRS"",96,0)"
^XMB(3.9,167,2,394,0)=" . . D LREAD(""P1"") Q:P1(1)=""""  D LREAD(""VA"")"
^XMB(3.9,167,2,395,0)="""RTN"",""XWBPRS"",97,0)"
^XMB(3.9,167,2,396,0)=" . . D LINST(XWBARY,P1(1),VA(1))"
^XMB(3.9,167,2,397,0)="""RTN"",""XWBPRS"",98,0)"
^XMB(3.9,167,2,398,0)=" . . Q"
^XMB(3.9,167,2,399,0)="""RTN"",""XWBPRS"",99,0)"
^XMB(3.9,167,2,400,0)=" . IF TY=3 D  Q  ;global"
^XMB(3.9,167,2,401,0)="""RTN"",""XWBPRS"",100,0)"
^XMB(3.9,167,2,402,0)=" . . I CONT'=""t"" D"
^XMB(3.9,167,2,403,0)="""RTN"",""XWBPRS"",101,0)"
^XMB(3.9,167,2,404,0)=" . . . S XWBARY=$NA(^TMP(""XWBA"",$J,IX)),XWB(R,""P"",IX)=XWBARY"
^XMB(3.9,167,2,405,0)="""RTN"",""XWBPRS"",102,0)"
^XMB(3.9,167,2,406,0)=" . . . K @XWBARY S @XWBARY="""""
^XMB(3.9,167,2,407,0)="""RTN"",""XWBPRS"",103,0)"
^XMB(3.9,167,2,408,0)=" . . . D PARAM(XWBARY)"
^XMB(3.9,167,2,409,0)="""RTN"",""XWBPRS"",104,0)"
^XMB(3.9,167,2,410,0)=" . . D LREAD(""P1"") Q:P1(1)=""""  D LREAD(""VA"")"
^XMB(3.9,167,2,411,0)="""RTN"",""XWBPRS"",105,0)"
^XMB(3.9,167,2,412,0)=" . . D GINST(XWBARY,P1(1),VA(1))"
^XMB(3.9,167,2,413,0)="""RTN"",""XWBPRS"",106,0)"
^XMB(3.9,167,2,414,0)=" . . Q"
^XMB(3.9,167,2,415,0)="""RTN"",""XWBPRS"",107,0)"
^XMB(3.9,167,2,416,0)=" . IF TY=4 D  Q  ;empty - ,,"
^XMB(3.9,167,2,417,0)="""RTN"",""XWBPRS"",108,0)"
^XMB(3.9,167,2,418,0)=" . . S XWB(R,""XWB"",IX)="""""
^XMB(3.9,167,2,419,0)="""RTN"",""XWBPRS"",109,0)"
^XMB(3.9,167,2,420,0)=" . . Q"
^XMB(3.9,167,2,421,0)="""RTN"",""XWBPRS"",110,0)"
^XMB(3.9,167,2,422,0)=" . IF TY=5 D  Q"
^XMB(3.9,167,2,423,0)="""RTN"",""XWBPRS"",111,0)"
^XMB(3.9,167,2,424,0)=" . . ;stream still to be done"
^XMB(3.9,167,2,425,0)="""RTN"",""XWBPRS"",112,0)"
^XMB(3.9,167,2,426,0)=" . Q  ;End of loop"
^XMB(3.9,167,2,427,0)="""RTN"",""XWBPRS"",113,0)"
^XMB(3.9,167,2,428,0)=" Q ERR"
^XMB(3.9,167,2,429,0)="""RTN"",""XWBPRS"",114,0)"
^XMB(3.9,167,2,430,0)="PARAM(NA) ;Add a new parameter to the list"
^XMB(3.9,167,2,431,0)="""RTN"",""XWBPRS"",115,0)"
^XMB(3.9,167,2,432,0)=" N A"
^XMB(3.9,167,2,433,0)="""RTN"",""XWBPRS"",116,0)"
^XMB(3.9,167,2,434,0)=" S A=$G(XWB(""PARAM"")) S:'$L(NA) NA="""""""""""" ;Empty"
^XMB(3.9,167,2,435,0)="""RTN"",""XWBPRS"",117,0)"
^XMB(3.9,167,2,436,0)=" S A=A_$S($L(A):"","",1:"""")_$S(TY=3:""$NA("",1:"""")_NA_$S(TY=3:"")"",1:"""")"
^XMB(3.9,167,2,437,0)="""RTN"",""XWBPRS"",118,0)"
^XMB(3.9,167,2,438,0)=" S XWB(""PARAM"")=A"
^XMB(3.9,167,2,439,0)="""RTN"",""XWBPRS"",119,0)"
^XMB(3.9,167,2,440,0)=" Q"
^XMB(3.9,167,2,441,0)="""RTN"",""XWBPRS"",120,0)"
^XMB(3.9,167,2,442,0)=" ;"
^XMB(3.9,167,2,443,0)="""RTN"",""XWBPRS"",121,0)"
^XMB(3.9,167,2,444,0)="RPC() ;Check the rpc information."
^XMB(3.9,167,2,445,0)="""RTN"",""XWBPRS"",122,0)"
^XMB(3.9,167,2,446,0)=" ;M Extrinsic Function"
^XMB(3.9,167,2,447,0)="""RTN"",""XWBPRS"",123,0)"
^XMB(3.9,167,2,448,0)=" ;Outputs"
^XMB(3.9,167,2,449,0)="""RTN"",""XWBPRS"",124,0)"
^XMB(3.9,167,2,450,0)=" ;ERR      0 for success, ""-1^Text"" if error"
^XMB(3.9,167,2,451,0)="""RTN"",""XWBPRS"",125,0)"
^XMB(3.9,167,2,452,0)=" ;"
^XMB(3.9,167,2,453,0)="""RTN"",""XWBPRS"",126,0)"
^XMB(3.9,167,2,454,0)=" N C,DR,ERR,M,R,RPC,T,X"
^XMB(3.9,167,2,455,0)="""RTN"",""XWBPRS"",127,0)"
^XMB(3.9,167,2,456,0)=" S R=2,C="";"",ERR=0,M=512 ;Max buffer"
^XMB(3.9,167,2,457,0)="""RTN"",""XWBPRS"",128,0)"
^XMB(3.9,167,2,458,0)=" S RPC=$G(XWB(R,""RPC"")) I '$L(RPC) Q ""-1^No RPC sent"""
^XMB(3.9,167,2,459,0)="""RTN"",""XWBPRS"",129,0)"
^XMB(3.9,167,2,460,0)=" S T=$O(^XWB(8994,""B"",RPC,0))"
^XMB(3.9,167,2,461,0)="""RTN"",""XWBPRS"",130,0)"
^XMB(3.9,167,2,462,0)=" I '+T Q ""-1^Remote Procedure '""_RPC_""' doesn't exist on the server."""
^XMB(3.9,167,2,463,0)="""RTN"",""XWBPRS"",131,0)"
^XMB(3.9,167,2,464,0)=" S T(0)=$G(^XWB(8994,T,0))"
^XMB(3.9,167,2,465,0)="""RTN"",""XWBPRS"",132,0)"
^XMB(3.9,167,2,466,0)=" I $P(T(0),U,6)=1!($P(T(0),U,6)=2) Q ""-1^Remote Procedure '""_RPC_""' cannot be run at this time.""  ;P10. Check INACTIVE field. - dpc."
^XMB(3.9,167,2,467,0)="""RTN"",""XWBPRS"",133,0)"
^XMB(3.9,167,2,468,0)=" S XWB(R,""RTAG"")=$P(T(0),""^"",2)"
^XMB(3.9,167,2,469,0)="""RTN"",""XWBPRS"",134,0)"
^XMB(3.9,167,2,470,0)=" S XWB(R,""RNAM"")=$P(T(0),""^"",3)"
^XMB(3.9,167,2,471,0)="""RTN"",""XWBPRS"",135,0)"
^XMB(3.9,167,2,472,0)=" S XWBPTYPE=$P(T(0),""^"",4)"
^XMB(3.9,167,2,473,0)="""RTN"",""XWBPRS"",136,0)"
^XMB(3.9,167,2,474,0)=" S XWBWRAP=+$P(T(0),""^"",8)"
^XMB(3.9,167,2,475,0)="""RTN"",""XWBPRS"",137,0)"
^XMB(3.9,167,2,476,0)=" Q ERR"
^XMB(3.9,167,2,477,0)="""RTN"",""XWBPRS"",138,0)"
^XMB(3.9,167,2,478,0)=" ;"
^XMB(3.9,167,2,479,0)="""RTN"",""XWBPRS"",139,0)"
^XMB(3.9,167,2,480,0)="SREAD() ;Read a S_PACK"
^XMB(3.9,167,2,481,0)="""RTN"",""XWBPRS"",140,0)"
^XMB(3.9,167,2,482,0)=" N L,V7"
^XMB(3.9,167,2,483,0)="""RTN"",""XWBPRS"",141,0)"
^XMB(3.9,167,2,484,0)=" S L=$$BREAD^XWBRW(1),L=$A(L)"
^XMB(3.9,167,2,485,0)="""RTN"",""XWBPRS"",142,0)"
^XMB(3.9,167,2,486,0)=" S V7=$$BREAD^XWBRW(L)"
^XMB(3.9,167,2,487,0)="""RTN"",""XWBPRS"",143,0)"
^XMB(3.9,167,2,488,0)=" Q V7"
^XMB(3.9,167,2,489,0)="""RTN"",""XWBPRS"",144,0)"
^XMB(3.9,167,2,490,0)=" ;"
^XMB(3.9,167,2,491,0)="""RTN"",""XWBPRS"",145,0)"
^XMB(3.9,167,2,492,0)="LREAD(ROOT) ;Read a L_PACK"
^XMB(3.9,167,2,493,0)="""RTN"",""XWBPRS"",146,0)"
^XMB(3.9,167,2,494,0)=" N L,V7,I ;p45 Remove limit on length of string."
^XMB(3.9,167,2,495,0)="""RTN"",""XWBPRS"",147,0)"
^XMB(3.9,167,2,496,0)=" S I=1,@ROOT@(I)="""""
^XMB(3.9,167,2,497,0)="""RTN"",""XWBPRS"",148,0)"
^XMB(3.9,167,2,498,0)=" S L=$$BREAD^XWBRW(XWBENVL),L=+L"
^XMB(3.9,167,2,499,0)="""RTN"",""XWBPRS"",149,0)"
^XMB(3.9,167,2,500,0)=" I L>0 S V7=$$BREAD^XWBRW(L),@ROOT@(I)=V7,I=I+1"
^XMB(3.9,167,2,501,0)="""RTN"",""XWBPRS"",150,0)"
^XMB(3.9,167,2,502,0)=" Q"
^XMB(3.9,167,2,503,0)="""RTN"",""XWBPRS"",151,0)"
^XMB(3.9,167,2,504,0)=" ;"
^XMB(3.9,167,2,505,0)="""RTN"",""XWBPRS"",152,0)"
^XMB(3.9,167,2,506,0)=" ;X can be something like '""TEXT"",1,0'."
^XMB(3.9,167,2,507,0)="""RTN"",""XWBPRS"",153,0)"
^XMB(3.9,167,2,508,0)="LINST(A,X,XWBY) ;instantiate local array"
^XMB(3.9,167,2,509,0)="""RTN"",""XWBPRS"",154,0)"
^XMB(3.9,167,2,510,0)=" IF XWBY=$C(1) S XWBY="""""
^XMB(3.9,167,2,511,0)="""RTN"",""XWBPRS"",155,0)"
^XMB(3.9,167,2,512,0)=" S X=A_""(""_X_"")"""
^XMB(3.9,167,2,513,0)="""RTN"",""XWBPRS"",156,0)"
^XMB(3.9,167,2,514,0)=" S @X=XWBY"
^XMB(3.9,167,2,515,0)="""RTN"",""XWBPRS"",157,0)"
^XMB(3.9,167,2,516,0)=" Q"
^XMB(3.9,167,2,517,0)="""RTN"",""XWBPRS"",158,0)"
^XMB(3.9,167,2,518,0)=" ;"
^XMB(3.9,167,2,519,0)="""RTN"",""XWBPRS"",159,0)"
^XMB(3.9,167,2,520,0)=" ;S can be something like '""TEXT"",1,0'."
^XMB(3.9,167,2,521,0)="""RTN"",""XWBPRS"",160,0)"
^XMB(3.9,167,2,522,0)="GINST(R,S,V) ;instantiate global"
^XMB(3.9,167,2,523,0)="""RTN"",""XWBPRS"",161,0)"
^XMB(3.9,167,2,524,0)=" N N"
^XMB(3.9,167,2,525,0)="""RTN"",""XWBPRS"",162,0)"
^XMB(3.9,167,2,526,0)=" I V=$C(1) S V="""""
^XMB(3.9,167,2,527,0)="""RTN"",""XWBPRS"",163,0)"
^XMB(3.9,167,2,528,0)=" S N=$P(R,"")"")_"",""_S_"")"""
^XMB(3.9,167,2,529,0)="""RTN"",""XWBPRS"",164,0)"
^XMB(3.9,167,2,530,0)=" S @N=V"
^XMB(3.9,167,2,531,0)="""RTN"",""XWBPRS"",165,0)"
^XMB(3.9,167,2,532,0)=" Q"
^XMB(3.9,167,2,533,0)="""RTN"",""XWBPRS"",166,0)"
^XMB(3.9,167,2,534,0)=" ;"
^XMB(3.9,167,2,535,0)="""RTN"",""XWBPRS"",167,0)"
^XMB(3.9,167,2,536,0)="GETV(V) ;get value of V - reference parameter"
^XMB(3.9,167,2,537,0)="""RTN"",""XWBPRS"",168,0)"
^XMB(3.9,167,2,538,0)=" N X"
^XMB(3.9,167,2,539,0)="""RTN"",""XWBPRS"",169,0)"
^XMB(3.9,167,2,540,0)=" S X=V"
^XMB(3.9,167,2,541,0)="""RTN"",""XWBPRS"",170,0)"
^XMB(3.9,167,2,542,0)=" IF $E(X,1,2)=""$$"" Q """""
^XMB(3.9,167,2,543,0)="""RTN"",""XWBPRS"",171,0)"
^XMB(3.9,167,2,544,0)=" IF $C(34,36)[$E(V) X ""S V=""_$$VCHK(V)"
^XMB(3.9,167,2,545,0)="""RTN"",""XWBPRS"",172,0)"
^XMB(3.9,167,2,546,0)=" E  S V=@V"
^XMB(3.9,167,2,547,0)="""RTN"",""XWBPRS"",173,0)"
^XMB(3.9,167,2,548,0)=" Q V"
^XMB(3.9,167,2,549,0)="""RTN"",""XWBPRS"",174,0)"
^XMB(3.9,167,2,550,0)=" ;"
^XMB(3.9,167,2,551,0)="""RTN"",""XWBPRS"",175,0)"
^XMB(3.9,167,2,552,0)="VCHK(S) ;Parse string for first argument"
^XMB(3.9,167,2,553,0)="""RTN"",""XWBPRS"",176,0)"
^XMB(3.9,167,2,554,0)=" N C,I,P"
^XMB(3.9,167,2,555,0)="""RTN"",""XWBPRS"",177,0)"
^XMB(3.9,167,2,556,0)=" F I=1:1 S C=$E(S,I) D VCHKP:C=""("",VCHKQ:C=$C(34) Q:"" ,""[C"
^XMB(3.9,167,2,557,0)="""RTN"",""XWBPRS"",178,0)"
^XMB(3.9,167,2,558,0)=" Q $E(S,1,I-1)"
^XMB(3.9,167,2,559,0)="""RTN"",""XWBPRS"",179,0)"
^XMB(3.9,167,2,560,0)="VCHKP S P=1 ;Find closing paren"
^XMB(3.9,167,2,561,0)="""RTN"",""XWBPRS"",180,0)"
^XMB(3.9,167,2,562,0)=" F I=I+1:1 S C=$E(S,I) Q:P=0!(C="""")  I ""()""""""[C D VCHKQ:C=$C(34) S P=P+$S(""(""[C:1,"")""[C:-1,1:0)"
^XMB(3.9,167,2,563,0)="""RTN"",""XWBPRS"",181,0)"
^XMB(3.9,167,2,564,0)=" Q"
^XMB(3.9,167,2,565,0)="""RTN"",""XWBPRS"",182,0)"
^XMB(3.9,167,2,566,0)="VCHKQ ;Find closing quote"
^XMB(3.9,167,2,567,0)="""RTN"",""XWBPRS"",183,0)"
^XMB(3.9,167,2,568,0)=" F I=I+1:1 S C=$E(S,I) Q:C=""""!(C=$C(34))"
^XMB(3.9,167,2,569,0)="""RTN"",""XWBPRS"",184,0)"
^XMB(3.9,167,2,570,0)=" Q"
^XMB(3.9,167,2,571,0)="""RTN"",""XWBPRS"",185,0)"
^XMB(3.9,167,2,572,0)="CLRBUF ;Empties Input buffer"
^XMB(3.9,167,2,573,0)="""RTN"",""XWBPRS"",186,0)"
^XMB(3.9,167,2,574,0)=" N %"
^XMB(3.9,167,2,575,0)="""RTN"",""XWBPRS"",187,0)"
^XMB(3.9,167,2,576,0)=" F  R *%:2 Q:'$T!(%=4)  ;!(%=-1)"
^XMB(3.9,167,2,577,0)="""RTN"",""XWBPRS"",188,0)"
^XMB(3.9,167,2,578,0)=" Q"
^XMB(3.9,167,2,579,0)="""RTN"",""XWBPRS"",189,0)"
^XMB(3.9,167,2,580,0)="ZZZ(X) ;Convert"
^XMB(3.9,167,2,581,0)="""RTN"",""XWBPRS"",190,0)"
^XMB(3.9,167,2,582,0)=" N I"
^XMB(3.9,167,2,583,0)="""RTN"",""XWBPRS"",191,0)"
^XMB(3.9,167,2,584,0)=" F  S I=$F(X,""$C("") Q:'I  S J=$F(X,"")"",I),X=$E(X,1,I-4)_$C($E(X,I,J-2))_$E(X,J,999)"
^XMB(3.9,167,2,585,0)="""RTN"",""XWBPRS"",192,0)"
^XMB(3.9,167,2,586,0)=" Q X"
^XMB(3.9,167,2,587,0)="""RTN"",""XWBPRS"",193,0)"
^XMB(3.9,167,2,588,0)=" ;"
^XMB(3.9,167,2,589,0)="""RTN"",""XWBPRS"",194,0)"
^XMB(3.9,167,2,590,0)="CAPI(XWBY,PAR) ;make API call"
^XMB(3.9,167,2,591,0)="""RTN"",""XWBPRS"",195,0)"
^XMB(3.9,167,2,592,0)=" N XWBCALL,T,DX,DY"
^XMB(3.9,167,2,593,0)="""RTN"",""XWBPRS"",196,0)"
^XMB(3.9,167,2,594,0)=" S XWBCALL=XWB(2,""RTAG"")_""^""_XWB(2,""RNAM"")_""(.XWBY""_$S($L(PAR):"",""_PAR,1:"""")_"")"",XWBCALL2="""""
^XMB(3.9,167,2,595,0)="""RTN"",""XWBPRS"",197,0)"
^XMB(3.9,167,2,596,0)=" K PAR"
^XMB(3.9,167,2,597,0)="""RTN"",""XWBPRS"",198,0)"
^XMB(3.9,167,2,598,0)=" O XWBNULL U XWBNULL ;p43 Make sure its open"
^XMB(3.9,167,2,599,0)="""RTN"",""XWBPRS"",199,0)"
^XMB(3.9,167,2,600,0)=" ;"
^XMB(3.9,167,2,601,0)="""RTN"",""XWBPRS"",200,0)"
^XMB(3.9,167,2,602,0)=" I $G(XWBDEBUG)>2 D LOG^XWBDLOG(""Call: ""_$E(XWBCALL,1,247))"
^XMB(3.9,167,2,603,0)="""RTN"",""XWBPRS"",201,0)"
^XMB(3.9,167,2,604,0)=" ;start RUM for RPC"
^XMB(3.9,167,2,605,0)="""RTN"",""XWBPRS"",202,0)"
^XMB(3.9,167,2,606,0)=" I $G(XWB(2,""CAPI""))]"""" D LOGRSRC^%ZOSV(XWB(2,""CAPI""),2,1)"
^XMB(3.9,167,2,607,0)="""RTN"",""XWBPRS"",203,0)"
^XMB(3.9,167,2,608,0)=" ;"
^XMB(3.9,167,2,609,0)="""RTN"",""XWBPRS"",204,0)"
^XMB(3.9,167,2,610,0)=" D @XWBCALL S XWBCALL2=XWBCALL ;Save call for debug"
^XMB(3.9,167,2,611,0)="""RTN"",""XWBPRS"",205,0)"
^XMB(3.9,167,2,612,0)=" ;"
^XMB(3.9,167,2,613,0)="""RTN"",""XWBPRS"",206,0)"
^XMB(3.9,167,2,614,0)=" ;restart RUM for handler"
^XMB(3.9,167,2,615,0)="""RTN"",""XWBPRS"",207,0)"
^XMB(3.9,167,2,616,0)=" D LOGRSRC^%ZOSV(""$BROKER HANDLER$"",2,1)"
^XMB(3.9,167,2,617,0)="""RTN"",""XWBPRS"",208,0)"
^XMB(3.9,167,2,618,0)=" ;"
^XMB(3.9,167,2,619,0)="""RTN"",""XWBPRS"",209,0)"
^XMB(3.9,167,2,620,0)=" U XWBTDEV"
^XMB(3.9,167,2,621,0)="""RTN"",""XWBPRS"",210,0)"
^XMB(3.9,167,2,622,0)=" Q"
^XMB(3.9,167,2,623,0)="""RTN"",""XWBPRS"",211,0)"
^XMB(3.9,167,2,624,0)=" ;"
^XMB(3.9,167,2,625,0)="""RTN"",""XWBPRS"",212,0)"
^XMB(3.9,167,2,626,0)="OARY() ;create storage array"
^XMB(3.9,167,2,627,0)="""RTN"",""XWBPRS"",213,0)"
^XMB(3.9,167,2,628,0)=" N A,DONE,I"
^XMB(3.9,167,2,629,0)="""RTN"",""XWBPRS"",214,0)"
^XMB(3.9,167,2,630,0)=" S I=1+$G(XWB(""ARRAY"")),XWB(""ARRAY"")=I"
^XMB(3.9,167,2,631,0)="""RTN"",""XWBPRS"",215,0)"
^XMB(3.9,167,2,632,0)=" S A=""XWBS""_I"
^XMB(3.9,167,2,633,0)="""RTN"",""XWBPRS"",216,0)"
^XMB(3.9,167,2,634,0)=" K @A ;temp fix for single array"
^XMB(3.9,167,2,635,0)="""RTN"",""XWBPRS"",217,0)"
^XMB(3.9,167,2,636,0)=" S @A="""" ;set naked"
^XMB(3.9,167,2,637,0)="""RTN"",""XWBPRS"",218,0)"
^XMB(3.9,167,2,638,0)=" Q A"
^XMB(3.9,167,2,639,0)="""RTN"",""XWBPRS"",219,0)"
^XMB(3.9,167,2,640,0)=" ;"
^XMB(3.9,167,2,641,0)="""RTN"",""XWBPRS"",220,0)"
^XMB(3.9,167,2,642,0)="CREF(R,P) ;Convert array contained in P to reference A"
^XMB(3.9,167,2,643,0)="""RTN"",""XWBPRS"",221,0)"
^XMB(3.9,167,2,644,0)=" N I,X,DONE,F1,S"
^XMB(3.9,167,2,645,0)="""RTN"",""XWBPRS"",222,0)"
^XMB(3.9,167,2,646,0)=" S DONE=0"
^XMB(3.9,167,2,647,0)="""RTN"",""XWBPRS"",223,0)"
^XMB(3.9,167,2,648,0)=" S S="""""
^XMB(3.9,167,2,649,0)="""RTN"",""XWBPRS"",224,0)"
^XMB(3.9,167,2,650,0)=" F I=1:1  D  Q:DONE"
^XMB(3.9,167,2,651,0)="""RTN"",""XWBPRS"",225,0)"
^XMB(3.9,167,2,652,0)=" . IF $P(P,"","",I)="""" S DONE=1 Q"
^XMB(3.9,167,2,653,0)="""RTN"",""XWBPRS"",226,0)"
^XMB(3.9,167,2,654,0)=" . S X(I)=$P(P,"","",I)"
^XMB(3.9,167,2,655,0)="""RTN"",""XWBPRS"",227,0)"
^XMB(3.9,167,2,656,0)=" . IF X(I)?1"".""1A.E D"
^XMB(3.9,167,2,657,0)="""RTN"",""XWBPRS"",228,0)"
^XMB(3.9,167,2,658,0)=" . . S F1=$F(X(I),""."")"
^XMB(3.9,167,2,659,0)="""RTN"",""XWBPRS"",229,0)"
^XMB(3.9,167,2,660,0)=" . . S X(I)="".""_R"
^XMB(3.9,167,2,661,0)="""RTN"",""XWBPRS"",230,0)"
^XMB(3.9,167,2,662,0)=" . S S=S_X(I)_"","""
^XMB(3.9,167,2,663,0)="""RTN"",""XWBPRS"",231,0)"
^XMB(3.9,167,2,664,0)=" Q $E(S,1,$L(S)-1)"
^XMB(3.9,167,2,665,0)="""RTN"",""XWBPRS"",232,0)"
^XMB(3.9,167,2,666,0)=" ;"
^XMB(3.9,167,2,667,0)="""VER"")"
^XMB(3.9,167,2,668,0)="8.0^22.0"
^XMB(3.9,167,2,669,0)="""BLD"",540,6)"
^XMB(3.9,167,2,670,0)="^37"
^XMB(3.9,167,2,671,0)="$END KID XWB*1.1*46"
^XMB(3.9,167,6,0)="^3.911A^2^2"
^XMB(3.9,167,6,1,0)="POSTMASTER"
^XMB(3.9,167,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,167,6,"B","POSTMASTER",1)=""
^XMB(3.9,167,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,168,0)="XWB-1P1_SEQ-38_PAT-45.KID^.5^3061008.015744^^^^K"
^XMB(3.9,168,.6)="3061008"
^XMB(3.9,168,1,0)="^3.91A^2^2"
^XMB(3.9,168,1,1,0)=".5^0^3061008.015744^^^^^^^3061008.015744"
^XMB(3.9,168,1,2,0)="1^0^3061008.022942^^^^^^^3061008.022942"
^XMB(3.9,168,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,168,1,"C",.5,1)=""
^XMB(3.9,168,1,"C",1,2)=""
^XMB(3.9,168,2,0)="^^1093^1093^3061008"
^XMB(3.9,168,2,1,0)="$TXT Released XWB*1.1*45 SEQ #38"
^XMB(3.9,168,2,2,0)="Extracted from mail message"
^XMB(3.9,168,2,3,0)="$END TXT"
^XMB(3.9,168,2,4,0)="$KID XWB*1.1*45"
^XMB(3.9,168,2,5,0)="**INSTALL NAME**"
^XMB(3.9,168,2,6,0)="XWB*1.1*45"
^XMB(3.9,168,2,7,0)="""BLD"",538,0)"
^XMB(3.9,168,2,8,0)="XWB*1.1*45^RPC BROKER^0^3060814^y"
^XMB(3.9,168,2,9,0)="""BLD"",538,1,0)"
^XMB(3.9,168,2,10,0)="^^10^10^3060814^"
^XMB(3.9,168,2,11,0)="""BLD"",538,1,1,0)"
^XMB(3.9,168,2,12,0)="Please refer to the Description in the FORUM Patch Module for details"
^XMB(3.9,168,2,13,0)="""BLD"",538,1,2,0)"
^XMB(3.9,168,2,14,0)="on patch XWB*1.1*45."
^XMB(3.9,168,2,15,0)="""BLD"",538,1,3,0)"
^XMB(3.9,168,2,16,0)="This patch is part of the Broker Security Enhancement (in conjunction "
^XMB(3.9,168,2,17,0)="""BLD"",538,1,4,0)"
^XMB(3.9,168,2,18,0)="with patch XU*8*404)."
^XMB(3.9,168,2,19,0)="""BLD"",538,1,5,0)"
^XMB(3.9,168,2,20,0)=" "
^XMB(3.9,168,2,21,0)="""BLD"",538,1,6,0)"
^XMB(3.9,168,2,22,0)="**************************  NOTE  ***************************************"
^XMB(3.9,168,2,23,0)="""BLD"",538,1,7,0)"
^XMB(3.9,168,2,24,0)="        This Patch must be installed before XU*8*404."
^XMB(3.9,168,2,25,0)="""BLD"",538,1,8,0)"
^XMB(3.9,168,2,26,0)="        "
^XMB(3.9,168,2,27,0)="""BLD"",538,1,9,0)"
^XMB(3.9,168,2,28,0)="*************************************************************************"
^XMB(3.9,168,2,29,0)="""BLD"",538,1,10,0)"
^XMB(3.9,168,2,30,0)=""
^XMB(3.9,168,2,31,0)="""BLD"",538,4,0)"
^XMB(3.9,168,2,32,0)="^9.64PA^8994.5^1"
^XMB(3.9,168,2,33,0)="""BLD"",538,4,8994.5,0)"
^XMB(3.9,168,2,34,0)="8994.5"
^XMB(3.9,168,2,35,0)="""BLD"",538,4,8994.5,222)"
^XMB(3.9,168,2,36,0)="y^y^f^^^^n"
^XMB(3.9,168,2,37,0)="""BLD"",538,4,""B"",8994.5,8994.5)"
^XMB(3.9,168,2,38,0)=""
^XMB(3.9,168,2,39,0)="""BLD"",538,""ABPKG"")"
^XMB(3.9,168,2,40,0)="n"
^XMB(3.9,168,2,41,0)="""BLD"",538,""INIT"")"
^XMB(3.9,168,2,42,0)="XWB45PO"
^XMB(3.9,168,2,43,0)="""BLD"",538,""KRN"",0)"
^XMB(3.9,168,2,44,0)="^9.67PA^8989.52^19"
^XMB(3.9,168,2,45,0)="""BLD"",538,""KRN"",.4,0)"
^XMB(3.9,168,2,46,0)=".4"
^XMB(3.9,168,2,47,0)="""BLD"",538,""KRN"",.401,0)"
^XMB(3.9,168,2,48,0)=".401"
^XMB(3.9,168,2,49,0)="""BLD"",538,""KRN"",.402,0)"
^XMB(3.9,168,2,50,0)=".402"
^XMB(3.9,168,2,51,0)="""BLD"",538,""KRN"",.403,0)"
^XMB(3.9,168,2,52,0)=".403"
^XMB(3.9,168,2,53,0)="""BLD"",538,""KRN"",.5,0)"
^XMB(3.9,168,2,54,0)=".5"
^XMB(3.9,168,2,55,0)="""BLD"",538,""KRN"",.84,0)"
^XMB(3.9,168,2,56,0)=".84"
^XMB(3.9,168,2,57,0)="""BLD"",538,""KRN"",3.6,0)"
^XMB(3.9,168,2,58,0)="3.6"
^XMB(3.9,168,2,59,0)="""BLD"",538,""KRN"",3.8,0)"
^XMB(3.9,168,2,60,0)="3.8"
^XMB(3.9,168,2,61,0)="""BLD"",538,""KRN"",9.2,0)"
^XMB(3.9,168,2,62,0)="9.2"
^XMB(3.9,168,2,63,0)="""BLD"",538,""KRN"",9.8,0)"
^XMB(3.9,168,2,64,0)="9.8"
^XMB(3.9,168,2,65,0)="""BLD"",538,""KRN"",9.8,""NM"",0)"
^XMB(3.9,168,2,66,0)="^9.68A^4^4"
^XMB(3.9,168,2,67,0)="""BLD"",538,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,168,2,68,0)="XWBTCPM2^^0^B3174797"
^XMB(3.9,168,2,69,0)="""BLD"",538,""KRN"",9.8,""NM"",2,0)"
^XMB(3.9,168,2,70,0)="XWBM2MEZ^^0^B1400319"
^XMB(3.9,168,2,71,0)="""BLD"",538,""KRN"",9.8,""NM"",3,0)"
^XMB(3.9,168,2,72,0)="XWBRM^^0^B13950171"
^XMB(3.9,168,2,73,0)="""BLD"",538,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,168,2,74,0)="XWB45PO^^0^B1790358"
^XMB(3.9,168,2,75,0)="""BLD"",538,""KRN"",9.8,""NM"",""B"",""XWB45PO"",4)"
^XMB(3.9,168,2,76,0)=""
^XMB(3.9,168,2,77,0)="""BLD"",538,""KRN"",9.8,""NM"",""B"",""XWBM2MEZ"",2)"
^XMB(3.9,168,2,78,0)=""
^XMB(3.9,168,2,79,0)="""BLD"",538,""KRN"",9.8,""NM"",""B"",""XWBRM"",3)"
^XMB(3.9,168,2,80,0)=""
^XMB(3.9,168,2,81,0)="""BLD"",538,""KRN"",9.8,""NM"",""B"",""XWBTCPM2"",1)"
^XMB(3.9,168,2,82,0)=""
^XMB(3.9,168,2,83,0)="""BLD"",538,""KRN"",19,0)"
^XMB(3.9,168,2,84,0)="19"
^XMB(3.9,168,2,85,0)="""BLD"",538,""KRN"",19.1,0)"
^XMB(3.9,168,2,86,0)="19.1"
^XMB(3.9,168,2,87,0)="""BLD"",538,""KRN"",101,0)"
^XMB(3.9,168,2,88,0)="101"
^XMB(3.9,168,2,89,0)="""BLD"",538,""KRN"",409.61,0)"
^XMB(3.9,168,2,90,0)="409.61"
^XMB(3.9,168,2,91,0)="""BLD"",538,""KRN"",771,0)"
^XMB(3.9,168,2,92,0)="771"
^XMB(3.9,168,2,93,0)="""BLD"",538,""KRN"",870,0)"
^XMB(3.9,168,2,94,0)="870"
^XMB(3.9,168,2,95,0)="""BLD"",538,""KRN"",8989.51,0)"
^XMB(3.9,168,2,96,0)="8989.51"
^XMB(3.9,168,2,97,0)="""BLD"",538,""KRN"",8989.52,0)"
^XMB(3.9,168,2,98,0)="8989.52"
^XMB(3.9,168,2,99,0)="""BLD"",538,""KRN"",8994,0)"
^XMB(3.9,168,2,100,0)="8994"
^XMB(3.9,168,2,101,0)="""BLD"",538,""KRN"",""B"",.4,.4)"
^XMB(3.9,168,2,102,0)=""
^XMB(3.9,168,2,103,0)="""BLD"",538,""KRN"",""B"",.401,.401)"
^XMB(3.9,168,2,104,0)=""
^XMB(3.9,168,2,105,0)="""BLD"",538,""KRN"",""B"",.402,.402)"
^XMB(3.9,168,2,106,0)=""
^XMB(3.9,168,2,107,0)="""BLD"",538,""KRN"",""B"",.403,.403)"
^XMB(3.9,168,2,108,0)=""
^XMB(3.9,168,2,109,0)="""BLD"",538,""KRN"",""B"",.5,.5)"
^XMB(3.9,168,2,110,0)=""
^XMB(3.9,168,2,111,0)="""BLD"",538,""KRN"",""B"",.84,.84)"
^XMB(3.9,168,2,112,0)=""
^XMB(3.9,168,2,113,0)="""BLD"",538,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,168,2,114,0)=""
^XMB(3.9,168,2,115,0)="""BLD"",538,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,168,2,116,0)=""
^XMB(3.9,168,2,117,0)="""BLD"",538,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,168,2,118,0)=""
^XMB(3.9,168,2,119,0)="""BLD"",538,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,168,2,120,0)=""
^XMB(3.9,168,2,121,0)="""BLD"",538,""KRN"",""B"",19,19)"
^XMB(3.9,168,2,122,0)=""
^XMB(3.9,168,2,123,0)="""BLD"",538,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,168,2,124,0)=""
^XMB(3.9,168,2,125,0)="""BLD"",538,""KRN"",""B"",101,101)"
^XMB(3.9,168,2,126,0)=""
^XMB(3.9,168,2,127,0)="""BLD"",538,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,168,2,128,0)=""
^XMB(3.9,168,2,129,0)="""BLD"",538,""KRN"",""B"",771,771)"
^XMB(3.9,168,2,130,0)=""
^XMB(3.9,168,2,131,0)="""BLD"",538,""KRN"",""B"",870,870)"
^XMB(3.9,168,2,132,0)=""
^XMB(3.9,168,2,133,0)="""BLD"",538,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,168,2,134,0)=""
^XMB(3.9,168,2,135,0)="""BLD"",538,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,168,2,136,0)=""
^XMB(3.9,168,2,137,0)="""BLD"",538,""KRN"",""B"",8994,8994)"
^XMB(3.9,168,2,138,0)=""
^XMB(3.9,168,2,139,0)="""BLD"",538,""QUES"",0)"
^XMB(3.9,168,2,140,0)="^9.62^^"
^XMB(3.9,168,2,141,0)="""BLD"",538,""REQB"",0)"
^XMB(3.9,168,2,142,0)="^9.611^1^1"
^XMB(3.9,168,2,143,0)="""BLD"",538,""REQB"",1,0)"
^XMB(3.9,168,2,144,0)="XWB*1.1*43^2"
^XMB(3.9,168,2,145,0)="""BLD"",538,""REQB"",""B"",""XWB*1.1*43"",1)"
^XMB(3.9,168,2,146,0)=""
^XMB(3.9,168,2,147,0)="""FIA"",8994.5)"
^XMB(3.9,168,2,148,0)="REMOTE APPLICATION"
^XMB(3.9,168,2,149,0)="""FIA"",8994.5,0)"
^XMB(3.9,168,2,150,0)="^XWB(8994.5,"
^XMB(3.9,168,2,151,0)="""FIA"",8994.5,0,0)"
^XMB(3.9,168,2,152,0)="8994.5"
^XMB(3.9,168,2,153,0)="""FIA"",8994.5,0,1)"
^XMB(3.9,168,2,154,0)="y^y^f^^^^n"
^XMB(3.9,168,2,155,0)="""FIA"",8994.5,0,10)"
^XMB(3.9,168,2,156,0)=""
^XMB(3.9,168,2,157,0)="""FIA"",8994.5,0,11)"
^XMB(3.9,168,2,158,0)=""
^XMB(3.9,168,2,159,0)="""FIA"",8994.5,0,""RLRO"")"
^XMB(3.9,168,2,160,0)=""
^XMB(3.9,168,2,161,0)="""FIA"",8994.5,0,""VR"")"
^XMB(3.9,168,2,162,0)="1.1^XWB"
^XMB(3.9,168,2,163,0)="""FIA"",8994.5,8994.5)"
^XMB(3.9,168,2,164,0)="0"
^XMB(3.9,168,2,165,0)="""FIA"",8994.5,8994.51)"
^XMB(3.9,168,2,166,0)="0"
^XMB(3.9,168,2,167,0)="""INIT"")"
^XMB(3.9,168,2,168,0)="XWB45PO"
^XMB(3.9,168,2,169,0)="""MBREQ"")"
^XMB(3.9,168,2,170,0)="0"
^XMB(3.9,168,2,171,0)="""PKG"",7,-1)"
^XMB(3.9,168,2,172,0)="1^1"
^XMB(3.9,168,2,173,0)="""PKG"",7,0)"
^XMB(3.9,168,2,174,0)="RPC BROKER^XWB^Remote Procedure Call Broker"
^XMB(3.9,168,2,175,0)="""PKG"",7,20,0)"
^XMB(3.9,168,2,176,0)="^9.402P^^"
^XMB(3.9,168,2,177,0)="""PKG"",7,22,0)"
^XMB(3.9,168,2,178,0)="^9.49I^1^1"
^XMB(3.9,168,2,179,0)="""PKG"",7,22,1,0)"
^XMB(3.9,168,2,180,0)="1.1^3060629^2990407^126"
^XMB(3.9,168,2,181,0)="""PKG"",7,22,1,""PAH"",1,0)"
^XMB(3.9,168,2,182,0)="45^3060814"
^XMB(3.9,168,2,183,0)="""PKG"",7,22,1,""PAH"",1,1,0)"
^XMB(3.9,168,2,184,0)="^^10^10^3060814"
^XMB(3.9,168,2,185,0)="""PKG"",7,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,168,2,186,0)="Please refer to the Description in the FORUM Patch Module for details"
^XMB(3.9,168,2,187,0)="""PKG"",7,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,168,2,188,0)="on patch XWB*1.1*45."
^XMB(3.9,168,2,189,0)="""PKG"",7,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,168,2,190,0)="This patch is part of the Broker Security Enhancement (in conjunction "
^XMB(3.9,168,2,191,0)="""PKG"",7,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,168,2,192,0)="with patch XU*8*404)."
^XMB(3.9,168,2,193,0)="""PKG"",7,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,168,2,194,0)=" "
^XMB(3.9,168,2,195,0)="""PKG"",7,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,168,2,196,0)="**************************  NOTE  ***************************************"
^XMB(3.9,168,2,197,0)="""PKG"",7,22,1,""PAH"",1,1,7,0)"
^XMB(3.9,168,2,198,0)="        This Patch must be installed before XU*8*404."
^XMB(3.9,168,2,199,0)="""PKG"",7,22,1,""PAH"",1,1,8,0)"
^XMB(3.9,168,2,200,0)="        "
^XMB(3.9,168,2,201,0)="""PKG"",7,22,1,""PAH"",1,1,9,0)"
^XMB(3.9,168,2,202,0)="*************************************************************************"
^XMB(3.9,168,2,203,0)="""PKG"",7,22,1,""PAH"",1,1,10,0)"
^XMB(3.9,168,2,204,0)=""
^XMB(3.9,168,2,205,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,168,2,206,0)="Y"
^XMB(3.9,168,2,207,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,168,2,208,0)="^D REP^XPDH"
^XMB(3.9,168,2,209,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,168,2,210,0)="Shall I write over your |FLAG| File"
^XMB(3.9,168,2,211,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,168,2,212,0)="YES"
^XMB(3.9,168,2,213,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,168,2,214,0)="D XPF1^XPDIQ"
^XMB(3.9,168,2,215,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,168,2,216,0)="Y"
^XMB(3.9,168,2,217,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,168,2,218,0)="^D DTA^XPDH"
^XMB(3.9,168,2,219,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,168,2,220,0)="Want my data |FLAG| yours"
^XMB(3.9,168,2,221,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,168,2,222,0)="YES"
^XMB(3.9,168,2,223,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,168,2,224,0)="D XPF2^XPDIQ"
^XMB(3.9,168,2,225,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,168,2,226,0)="YO"
^XMB(3.9,168,2,227,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,168,2,228,0)="^D INHIBIT^XPDH"
^XMB(3.9,168,2,229,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,168,2,230,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,168,2,231,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,168,2,232,0)="YES"
^XMB(3.9,168,2,233,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,168,2,234,0)="D XPI1^XPDIQ"
^XMB(3.9,168,2,235,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,168,2,236,0)="PO^VA(200,:EM"
^XMB(3.9,168,2,237,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,168,2,238,0)="^D MG^XPDH"
^XMB(3.9,168,2,239,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,168,2,240,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,168,2,241,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,168,2,242,0)=""
^XMB(3.9,168,2,243,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,168,2,244,0)="D XPM1^XPDIQ"
^XMB(3.9,168,2,245,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,168,2,246,0)="Y"
^XMB(3.9,168,2,247,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,168,2,248,0)="^D MENU^XPDH"
^XMB(3.9,168,2,249,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,168,2,250,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,168,2,251,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,168,2,252,0)="YES"
^XMB(3.9,168,2,253,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,168,2,254,0)="D XPO1^XPDIQ"
^XMB(3.9,168,2,255,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,168,2,256,0)="Y"
^XMB(3.9,168,2,257,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,168,2,258,0)="^D OPT^XPDH"
^XMB(3.9,168,2,259,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,168,2,260,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,168,2,261,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,168,2,262,0)="YES"
^XMB(3.9,168,2,263,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,168,2,264,0)="D XPZ1^XPDIQ"
^XMB(3.9,168,2,265,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,168,2,266,0)="Y"
^XMB(3.9,168,2,267,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,168,2,268,0)="^D RTN^XPDH"
^XMB(3.9,168,2,269,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,168,2,270,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,168,2,271,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,168,2,272,0)="NO"
^XMB(3.9,168,2,273,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,168,2,274,0)="D XPZ2^XPDIQ"
^XMB(3.9,168,2,275,0)="""RTN"")"
^XMB(3.9,168,2,276,0)="4"
^XMB(3.9,168,2,277,0)="""RTN"",""XWB45PO"")"
^XMB(3.9,168,2,278,0)="0^4^B1790358^n/a"
^XMB(3.9,168,2,279,0)="""RTN"",""XWB45PO"",1,0)"
^XMB(3.9,168,2,280,0)="XWB45PO ;JLI/FO-OAK-POST INSTALL FOR XWB*1.1*45 ;4/7/06  16:03"
^XMB(3.9,168,2,281,0)="""RTN"",""XWB45PO"",2,0)"
^XMB(3.9,168,2,282,0)=" ;;1.1;RPC BROKER;**45**;Mar 28, 1997"
^XMB(3.9,168,2,283,0)="""RTN"",""XWB45PO"",3,0)"
^XMB(3.9,168,2,284,0)=" ;"
^XMB(3.9,168,2,285,0)="""RTN"",""XWB45PO"",4,0)"
^XMB(3.9,168,2,286,0)="EN ;"
^XMB(3.9,168,2,287,0)="""RTN"",""XWB45PO"",5,0)"
^XMB(3.9,168,2,288,0)=" N XVALS,XWBIEN,XWBMSG"
^XMB(3.9,168,2,289,0)="""RTN"",""XWB45PO"",6,0)"
^XMB(3.9,168,2,290,0)=" S XVALS(1)=""XUSBSE TEST1^XWB BROKER EXAMPLE^{h6'={zC3{8=-JP1!O^R^9502^10.6.21.14"""
^XMB(3.9,168,2,291,0)="""RTN"",""XWB45PO"",7,0)"
^XMB(3.9,168,2,292,0)=" S XVALS(2)=""XUSBSE TEST2^XWB BROKER EXAMPLE^]?zvB$<ZwW6e$yG&9S<^M^9502^10.6.21.14"""
^XMB(3.9,168,2,293,0)="""RTN"",""XWB45PO"",8,0)"
^XMB(3.9,168,2,294,0)=" S XVALS(3)=""XUSBSE TEST3^XWB BROKER EXAMPLE^9~ioRB[m`Q9yS?/j?q?5^H^80^10.161.12.182"""
^XMB(3.9,168,2,295,0)="""RTN"",""XWB45PO"",9,0)"
^XMB(3.9,168,2,296,0)=" N I F I=1:1:3 D"
^XMB(3.9,168,2,297,0)="""RTN"",""XWB45PO"",10,0)"
^XMB(3.9,168,2,298,0)=" . W !,I"
^XMB(3.9,168,2,299,0)="""RTN"",""XWB45PO"",11,0)"
^XMB(3.9,168,2,300,0)=" . N XWBLIST K XWBIEN,XWBMSG"
^XMB(3.9,168,2,301,0)="""RTN"",""XWB45PO"",12,0)"
^XMB(3.9,168,2,302,0)=" . S XWBLIST(8994.5,""?+1,"",.01)=$P(XVALS(I),U,1)"
^XMB(3.9,168,2,303,0)="""RTN"",""XWB45PO"",13,0)"
^XMB(3.9,168,2,304,0)=" . S XWBLIST(8994.5,""?+1,"",.02)=$P(XVALS(I),U,2)"
^XMB(3.9,168,2,305,0)="""RTN"",""XWB45PO"",14,0)"
^XMB(3.9,168,2,306,0)=" . S XWBLIST(8994.5,""?+1,"",.03)=$P(XVALS(I),U,3)"
^XMB(3.9,168,2,307,0)="""RTN"",""XWB45PO"",15,0)"
^XMB(3.9,168,2,308,0)=" . S XWBLIST(8994.51,""?+2,?+1,"",.01)=$P(XVALS(I),U,4)"
^XMB(3.9,168,2,309,0)="""RTN"",""XWB45PO"",16,0)"
^XMB(3.9,168,2,310,0)=" . S XWBLIST(8994.51,""?+2,?+1,"",.02)=$P(XVALS(I),U,5)"
^XMB(3.9,168,2,311,0)="""RTN"",""XWB45PO"",17,0)"
^XMB(3.9,168,2,312,0)=" . S XWBLIST(8994.51,""?+2,?+1,"",.03)=$P(XVALS(I),U,6)"
^XMB(3.9,168,2,313,0)="""RTN"",""XWB45PO"",18,0)"
^XMB(3.9,168,2,314,0)=" . K XWBIEN,XWBMSG"
^XMB(3.9,168,2,315,0)="""RTN"",""XWB45PO"",19,0)"
^XMB(3.9,168,2,316,0)=" . D UPDATE^DIE(""E"",""XWBLIST"",""XWBIEN"",""XWBMSG"")"
^XMB(3.9,168,2,317,0)="""RTN"",""XWB45PO"",20,0)"
^XMB(3.9,168,2,318,0)=" . Q"
^XMB(3.9,168,2,319,0)="""RTN"",""XWB45PO"",21,0)"
^XMB(3.9,168,2,320,0)=" Q"
^XMB(3.9,168,2,321,0)="""RTN"",""XWBM2MEZ"")"
^XMB(3.9,168,2,322,0)="0^2^B1400319^n/a"
^XMB(3.9,168,2,323,0)="""RTN"",""XWBM2MEZ"",1,0)"
^XMB(3.9,168,2,324,0)="XWBM2MEZ ;OIFO-Oakland/JLI - M2M Broker EZ Usage ;08/01/2006  7925229.750776"
^XMB(3.9,168,2,325,0)="""RTN"",""XWBM2MEZ"",2,0)"
^XMB(3.9,168,2,326,0)=" ;;1.1;RPC BROKER;**45**;Mar 28, 1997"
^XMB(3.9,168,2,327,0)="""RTN"",""XWBM2MEZ"",3,0)"
^XMB(3.9,168,2,328,0)=" ;"
^XMB(3.9,168,2,329,0)="""RTN"",""XWBM2MEZ"",4,0)"
^XMB(3.9,168,2,330,0)=" QUIT"
^XMB(3.9,168,2,331,0)="""RTN"",""XWBM2MEZ"",5,0)"
^XMB(3.9,168,2,332,0)=" ;"
^XMB(3.9,168,2,333,0)="""RTN"",""XWBM2MEZ"",6,0)"
^XMB(3.9,168,2,334,0)="CONNECT(PORT,IP,AV) ;"
^XMB(3.9,168,2,335,0)="""RTN"",""XWBM2MEZ"",7,0)"
^XMB(3.9,168,2,336,0)=" S XWBPARMS(""MODE"")=""RPCBroker"""
^XMB(3.9,168,2,337,0)="""RTN"",""XWBM2MEZ"",8,0)"
^XMB(3.9,168,2,338,0)=" S XWBPARMS(""RETRIES"")=3"
^XMB(3.9,168,2,339,0)="""RTN"",""XWBM2MEZ"",9,0)"
^XMB(3.9,168,2,340,0)=" I '$$CONNECT^XWBM2MC(PORT,IP,AV) Q ""Didn't get port open or AV failed."""
^XMB(3.9,168,2,341,0)="""RTN"",""XWBM2MEZ"",10,0)"
^XMB(3.9,168,2,342,0)=" Q 1"
^XMB(3.9,168,2,343,0)="""RTN"",""XWBM2MEZ"",11,0)"
^XMB(3.9,168,2,344,0)=" ;"
^XMB(3.9,168,2,345,0)="""RTN"",""XWBM2MEZ"",12,0)"
^XMB(3.9,168,2,346,0)="CLOSE ;Close the connection."
^XMB(3.9,168,2,347,0)="""RTN"",""XWBM2MEZ"",13,0)"
^XMB(3.9,168,2,348,0)=" N X"
^XMB(3.9,168,2,349,0)="""RTN"",""XWBM2MEZ"",14,0)"
^XMB(3.9,168,2,350,0)=" S X=$$CLOSE^XWBM2MC()"
^XMB(3.9,168,2,351,0)="""RTN"",""XWBM2MEZ"",15,0)"
^XMB(3.9,168,2,352,0)=" Q"
^XMB(3.9,168,2,353,0)="""RTN"",""XWBM2MEZ"",16,0)"
^XMB(3.9,168,2,354,0)=" ;"
^XMB(3.9,168,2,355,0)="""RTN"",""XWBM2MEZ"",17,0)"
^XMB(3.9,168,2,356,0)="SETCNTXT(CONTX) ;"
^XMB(3.9,168,2,357,0)="""RTN"",""XWBM2MEZ"",18,0)"
^XMB(3.9,168,2,358,0)=" I '$$SETCONTX^XWBM2MC(CONTX) D CLOSE Q ""Didn't get Context"""
^XMB(3.9,168,2,359,0)="""RTN"",""XWBM2MEZ"",19,0)"
^XMB(3.9,168,2,360,0)=" Q 1"
^XMB(3.9,168,2,361,0)="""RTN"",""XWBM2MEZ"",20,0)"
^XMB(3.9,168,2,362,0)=" ;"
^XMB(3.9,168,2,363,0)="""RTN"",""XWBM2MEZ"",21,0)"
^XMB(3.9,168,2,364,0)="DORPC(RESULT,RPCNAME) ;"
^XMB(3.9,168,2,365,0)="""RTN"",""XWBM2MEZ"",22,0)"
^XMB(3.9,168,2,366,0)=" S RESULT=$G(RESULT)"
^XMB(3.9,168,2,367,0)="""RTN"",""XWBM2MEZ"",23,0)"
^XMB(3.9,168,2,368,0)=" K XWBY"
^XMB(3.9,168,2,369,0)="""RTN"",""XWBM2MEZ"",24,0)"
^XMB(3.9,168,2,370,0)=" Q $$CALLRPC^XWBM2MC(RPCNAME,.RESULT,1)"
^XMB(3.9,168,2,371,0)="""RTN"",""XWBM2MEZ"",25,0)"
^XMB(3.9,168,2,372,0)=" ;"
^XMB(3.9,168,2,373,0)="""RTN"",""XWBM2MEZ"",26,0)"
^XMB(3.9,168,2,374,0)="CLEARP ;"
^XMB(3.9,168,2,375,0)="""RTN"",""XWBM2MEZ"",27,0)"
^XMB(3.9,168,2,376,0)=" K XWBPARMS"
^XMB(3.9,168,2,377,0)="""RTN"",""XWBM2MEZ"",28,0)"
^XMB(3.9,168,2,378,0)=" S XWBPARMS(""MODE"")=""RPCBroker"""
^XMB(3.9,168,2,379,0)="""RTN"",""XWBM2MEZ"",29,0)"
^XMB(3.9,168,2,380,0)=" Q"
^XMB(3.9,168,2,381,0)="""RTN"",""XWBM2MEZ"",30,0)"
^XMB(3.9,168,2,382,0)=" ;"
^XMB(3.9,168,2,383,0)="""RTN"",""XWBM2MEZ"",31,0)"
^XMB(3.9,168,2,384,0)="SETPARAM(INDEX,TYPE,VALUE) ;Set a Params entry"
^XMB(3.9,168,2,385,0)="""RTN"",""XWBM2MEZ"",32,0)"
^XMB(3.9,168,2,386,0)=" S XWBPARMS(""PARAMS"",INDEX,""TYPE"")=TYPE"
^XMB(3.9,168,2,387,0)="""RTN"",""XWBM2MEZ"",33,0)"
^XMB(3.9,168,2,388,0)=" S XWBPARMS(""PARAMS"",INDEX,""VALUE"")=VALUE"
^XMB(3.9,168,2,389,0)="""RTN"",""XWBM2MEZ"",34,0)"
^XMB(3.9,168,2,390,0)=" Q"
^XMB(3.9,168,2,391,0)="""RTN"",""XWBM2MEZ"",35,0)"
^XMB(3.9,168,2,392,0)=" ;"
^XMB(3.9,168,2,393,0)="""RTN"",""XWBRM"")"
^XMB(3.9,168,2,394,0)="0^3^B13950171^B13386009"
^XMB(3.9,168,2,395,0)="""RTN"",""XWBRM"",1,0)"
^XMB(3.9,168,2,396,0)="XWBRM ;OIFO-Oakland/REM - M2M Broker Server Request Mgr  ;4/6/06  10:21"
^XMB(3.9,168,2,397,0)="""RTN"",""XWBRM"",2,0)"
^XMB(3.9,168,2,398,0)=" ;;1.1;RPC BROKER;**28,45**;Mar 28, 1997"
^XMB(3.9,168,2,399,0)="""RTN"",""XWBRM"",3,0)"
^XMB(3.9,168,2,400,0)=" ;"
^XMB(3.9,168,2,401,0)="""RTN"",""XWBRM"",4,0)"
^XMB(3.9,168,2,402,0)=" QUIT"
^XMB(3.9,168,2,403,0)="""RTN"",""XWBRM"",5,0)"
^XMB(3.9,168,2,404,0)=" ;"
^XMB(3.9,168,2,405,0)="""RTN"",""XWBRM"",6,0)"
^XMB(3.9,168,2,406,0)=" ; ---------------------------------------------------------------------"
^XMB(3.9,168,2,407,0)="""RTN"",""XWBRM"",7,0)"
^XMB(3.9,168,2,408,0)=" ;                             Server Request Manager (SRM)"
^XMB(3.9,168,2,409,0)="""RTN"",""XWBRM"",8,0)"
^XMB(3.9,168,2,410,0)=" ; ---------------------------------------------------------------------"
^XMB(3.9,168,2,411,0)="""RTN"",""XWBRM"",9,0)"
^XMB(3.9,168,2,412,0)=" ;"
^XMB(3.9,168,2,413,0)="""RTN"",""XWBRM"",10,0)"
^XMB(3.9,168,2,414,0)="EN(XWBROOT) ; -- main entry point for SRM"
^XMB(3.9,168,2,415,0)="""RTN"",""XWBRM"",11,0)"
^XMB(3.9,168,2,416,0)=" NEW XWBOK,XWBOPT,XWBDATA,XWBMODE"
^XMB(3.9,168,2,417,0)="""RTN"",""XWBRM"",12,0)"
^XMB(3.9,168,2,418,0)=" N XWBM2M ;Flag for M2M requests **M2M"
^XMB(3.9,168,2,419,0)="""RTN"",""XWBRM"",13,0)"
^XMB(3.9,168,2,420,0)=" SET XWBOK=0,XWBM2M=0"
^XMB(3.9,168,2,421,0)="""RTN"",""XWBRM"",14,0)"
^XMB(3.9,168,2,422,0)=" ;"
^XMB(3.9,168,2,423,0)="""RTN"",""XWBRM"",15,0)"
^XMB(3.9,168,2,424,0)=" ; -- parse the xml"
^XMB(3.9,168,2,425,0)="""RTN"",""XWBRM"",16,0)"
^XMB(3.9,168,2,426,0)=" SET XWBOPT="""""
^XMB(3.9,168,2,427,0)="""RTN"",""XWBRM"",17,0)"
^XMB(3.9,168,2,428,0)=" DO EN^XWBRMX(XWBROOT,.XWBOPT,.XWBDATA)"
^XMB(3.9,168,2,429,0)="""RTN"",""XWBRM"",18,0)"
^XMB(3.9,168,2,430,0)=" S XWBMODE=$G(XWBDATA(""MODE""))"
^XMB(3.9,168,2,431,0)="""RTN"",""XWBRM"",19,0)"
^XMB(3.9,168,2,432,0)=" ;M ^REM($J)=XWBDATA ;**TEST ONLY"
^XMB(3.9,168,2,433,0)="""RTN"",""XWBRM"",20,0)"
^XMB(3.9,168,2,434,0)=" ;"
^XMB(3.9,168,2,435,0)="""RTN"",""XWBRM"",21,0)"
^XMB(3.9,168,2,436,0)=" I $G(XWBDATA(""URI""))=""XUS GET VISITOR"" D EN^XWBRPC(.XWBDATA) S XWBOK=1 S:'$D(DUZ) XWBSTOP=1 Q 1"
^XMB(3.9,168,2,437,0)="""RTN"",""XWBRM"",22,0)"
^XMB(3.9,168,2,438,0)=" ;Break off to RCPBroker **M2M"
^XMB(3.9,168,2,439,0)="""RTN"",""XWBRM"",23,0)"
^XMB(3.9,168,2,440,0)=" IF $G(XWBDATA(""MODE""))=""RPCBroker"" D RPC^XWBM2MS(.XWBDATA) SET XWBSTOP=0"
^XMB(3.9,168,2,441,0)="""RTN"",""XWBRM"",24,0)"
^XMB(3.9,168,2,442,0)=" ; -- single call processing"
^XMB(3.9,168,2,443,0)="""RTN"",""XWBRM"",25,0)"
^XMB(3.9,168,2,444,0)=" IF $G(XWBDATA(""MODE""),""single call"")=""single call"" SET XWBSTOP=1"
^XMB(3.9,168,2,445,0)="""RTN"",""XWBRM"",26,0)"
^XMB(3.9,168,2,446,0)=" ;"
^XMB(3.9,168,2,447,0)="""RTN"",""XWBRM"",27,0)"
^XMB(3.9,168,2,448,0)=" ; -- check if app defined"
^XMB(3.9,168,2,449,0)="""RTN"",""XWBRM"",28,0)"
^XMB(3.9,168,2,450,0)=" IF $G(XWBDATA(""APP""))="""" DO RMERR(1) SET XWBOK=0 GOTO ENQ"
^XMB(3.9,168,2,451,0)="""RTN"",""XWBRM"",29,0)"
^XMB(3.9,168,2,452,0)=" ;"
^XMB(3.9,168,2,453,0)="""RTN"",""XWBRM"",30,0)"
^XMB(3.9,168,2,454,0)=" ; -- process close request"
^XMB(3.9,168,2,455,0)="""RTN"",""XWBRM"",31,0)"
^XMB(3.9,168,2,456,0)=" IF $G(XWBDATA(""APP""))=""CLOSE"" DO  SET XWBOK=0 GOTO ENQ"
^XMB(3.9,168,2,457,0)="""RTN"",""XWBRM"",32,0)"
^XMB(3.9,168,2,458,0)=" . D:$G(DUZ) LOGOUT^XUSRB ;**M2M -Logout user and cleanup"
^XMB(3.9,168,2,459,0)="""RTN"",""XWBRM"",33,0)"
^XMB(3.9,168,2,460,0)=" . DO RESPONSE^XWBVL()"
^XMB(3.9,168,2,461,0)="""RTN"",""XWBRM"",34,0)"
^XMB(3.9,168,2,462,0)=" . SET XWBSTOP=1"
^XMB(3.9,168,2,463,0)="""RTN"",""XWBRM"",35,0)"
^XMB(3.9,168,2,464,0)=" ;"
^XMB(3.9,168,2,465,0)="""RTN"",""XWBRM"",36,0)"
^XMB(3.9,168,2,466,0)=" ; -- do security checks"
^XMB(3.9,168,2,467,0)="""RTN"",""XWBRM"",37,0)"
^XMB(3.9,168,2,468,0)=" IF $G(XWBDATA(""MODE""))'=""RPCBroker"",'$$SECCHK() SET XWBOK=0 GOTO ENQ"
^XMB(3.9,168,2,469,0)="""RTN"",""XWBRM"",38,0)"
^XMB(3.9,168,2,470,0)=" ;"
^XMB(3.9,168,2,471,0)="""RTN"",""XWBRM"",39,0)"
^XMB(3.9,168,2,472,0)=" ; -- call app to write to socket"
^XMB(3.9,168,2,473,0)="""RTN"",""XWBRM"",40,0)"
^XMB(3.9,168,2,474,0)=" IF $G(XWBDATA(""APP""))=""RPC"" DO EN^XWBRPC(.XWBDATA) SET XWBOK=1"
^XMB(3.9,168,2,475,0)="""RTN"",""XWBRM"",41,0)"
^XMB(3.9,168,2,476,0)=" ;"
^XMB(3.9,168,2,477,0)="""RTN"",""XWBRM"",42,0)"
^XMB(3.9,168,2,478,0)="ENQ ;"
^XMB(3.9,168,2,479,0)="""RTN"",""XWBRM"",43,0)"
^XMB(3.9,168,2,480,0)=" QUIT XWBOK"
^XMB(3.9,168,2,481,0)="""RTN"",""XWBRM"",44,0)"
^XMB(3.9,168,2,482,0)=" ;"
^XMB(3.9,168,2,483,0)="""RTN"",""XWBRM"",45,0)"
^XMB(3.9,168,2,484,0)=" ; ---------------------------------------------------------------------"
^XMB(3.9,168,2,485,0)="""RTN"",""XWBRM"",46,0)"
^XMB(3.9,168,2,486,0)=" ;"
^XMB(3.9,168,2,487,0)="""RTN"",""XWBRM"",47,0)"
^XMB(3.9,168,2,488,0)="SECCHK() ; -- do security checks  (no real checks at this time)"
^XMB(3.9,168,2,489,0)="""RTN"",""XWBRM"",48,0)"
^XMB(3.9,168,2,490,0)=" NEW XWBCODES"
^XMB(3.9,168,2,491,0)="""RTN"",""XWBRM"",49,0)"
^XMB(3.9,168,2,492,0)=" ;"
^XMB(3.9,168,2,493,0)="""RTN"",""XWBRM"",50,0)"
^XMB(3.9,168,2,494,0)=" ; -- is token valid"
^XMB(3.9,168,2,495,0)="""RTN"",""XWBRM"",51,0)"
^XMB(3.9,168,2,496,0)=" IF '$$CHKTOKEN($G(XWBDATA(""SECTOKEN""))) SET XWBCODES(1)="""",XWBCODES=$G(XWBCODES)+1"
^XMB(3.9,168,2,497,0)="""RTN"",""XWBRM"",52,0)"
^XMB(3.9,168,2,498,0)=" ;"
^XMB(3.9,168,2,499,0)="""RTN"",""XWBRM"",53,0)"
^XMB(3.9,168,2,500,0)=" ; -- is DUZ valid"
^XMB(3.9,168,2,501,0)="""RTN"",""XWBRM"",54,0)"
^XMB(3.9,168,2,502,0)=" IF '$$CHKDUZ($G(XWBDATA(""DUZ""))) SET XWBCODES(2)="""",XWBCODES=$G(XWBCODES)+1"
^XMB(3.9,168,2,503,0)="""RTN"",""XWBRM"",55,0)"
^XMB(3.9,168,2,504,0)=" ;"
^XMB(3.9,168,2,505,0)="""RTN"",""XWBRM"",56,0)"
^XMB(3.9,168,2,506,0)=" ; -- if security errors then send error response"
^XMB(3.9,168,2,507,0)="""RTN"",""XWBRM"",57,0)"
^XMB(3.9,168,2,508,0)=" IF $G(XWBCODES) D SECERR(.XWBCODES)"
^XMB(3.9,168,2,509,0)="""RTN"",""XWBRM"",58,0)"
^XMB(3.9,168,2,510,0)=" ;"
^XMB(3.9,168,2,511,0)="""RTN"",""XWBRM"",59,0)"
^XMB(3.9,168,2,512,0)=" QUIT '+$G(XWBCODES)"
^XMB(3.9,168,2,513,0)="""RTN"",""XWBRM"",60,0)"
^XMB(3.9,168,2,514,0)=" ;"
^XMB(3.9,168,2,515,0)="""RTN"",""XWBRM"",61,0)"
^XMB(3.9,168,2,516,0)="CHKTOKEN(XWBTOKEN) ; -- do check against token for validity"
^XMB(3.9,168,2,517,0)="""RTN"",""XWBRM"",62,0)"
^XMB(3.9,168,2,518,0)=" ; -- // TODO: Need to check into how we might use XUS1B and related code in Kernel Sign-On (ESSO)"
^XMB(3.9,168,2,519,0)="""RTN"",""XWBRM"",63,0)"
^XMB(3.9,168,2,520,0)=" NEW XWBINVAL"
^XMB(3.9,168,2,521,0)="""RTN"",""XWBRM"",64,0)"
^XMB(3.9,168,2,522,0)=" SET XWBINVAL=""#UNKNOWN#"""
^XMB(3.9,168,2,523,0)="""RTN"",""XWBRM"",65,0)"
^XMB(3.9,168,2,524,0)=" IF $G(XWBTOKEN,XWBINVAL)=XWBINVAL QUIT 0"
^XMB(3.9,168,2,525,0)="""RTN"",""XWBRM"",66,0)"
^XMB(3.9,168,2,526,0)=" QUIT 1"
^XMB(3.9,168,2,527,0)="""RTN"",""XWBRM"",67,0)"
^XMB(3.9,168,2,528,0)=" ;"
^XMB(3.9,168,2,529,0)="""RTN"",""XWBRM"",68,0)"
^XMB(3.9,168,2,530,0)="CHKDUZ(XWBDUZ) ; -- do check against DUZ for validity"
^XMB(3.9,168,2,531,0)="""RTN"",""XWBRM"",69,0)"
^XMB(3.9,168,2,532,0)=" ; -- // TODO: Need to check into how we might use XUS1B and related code in Kernel Sign-On (ESSO)"
^XMB(3.9,168,2,533,0)="""RTN"",""XWBRM"",70,0)"
^XMB(3.9,168,2,534,0)=" NEW XWBINVAL"
^XMB(3.9,168,2,535,0)="""RTN"",""XWBRM"",71,0)"
^XMB(3.9,168,2,536,0)=" SET XWBINVAL=""#UNKNOWN#"""
^XMB(3.9,168,2,537,0)="""RTN"",""XWBRM"",72,0)"
^XMB(3.9,168,2,538,0)=" IF $G(XWBDUZ,XWBINVAL)=XWBINVAL QUIT 0"
^XMB(3.9,168,2,539,0)="""RTN"",""XWBRM"",73,0)"
^XMB(3.9,168,2,540,0)=" IF '$D(^VA(200,+XWBDUZ,0)) QUIT 0"
^XMB(3.9,168,2,541,0)="""RTN"",""XWBRM"",74,0)"
^XMB(3.9,168,2,542,0)=" QUIT 1"
^XMB(3.9,168,2,543,0)="""RTN"",""XWBRM"",75,0)"
^XMB(3.9,168,2,544,0)=" ;"
^XMB(3.9,168,2,545,0)="""RTN"",""XWBRM"",76,0)"
^XMB(3.9,168,2,546,0)=" ; ---------------------------------------------------------------------"
^XMB(3.9,168,2,547,0)="""RTN"",""XWBRM"",77,0)"
^XMB(3.9,168,2,548,0)=" ;                 Request Manager and Security Error Handlers"
^XMB(3.9,168,2,549,0)="""RTN"",""XWBRM"",78,0)"
^XMB(3.9,168,2,550,0)=" ; ---------------------------------------------------------------------"
^XMB(3.9,168,2,551,0)="""RTN"",""XWBRM"",79,0)"
^XMB(3.9,168,2,552,0)="RMERR(XWBCODE) ; -- send request error message"
^XMB(3.9,168,2,553,0)="""RTN"",""XWBRM"",80,0)"
^XMB(3.9,168,2,554,0)=" NEW XWBDAT,XWBMSG"
^XMB(3.9,168,2,555,0)="""RTN"",""XWBRM"",81,0)"
^XMB(3.9,168,2,556,0)=" SET XWBMSG=$P($TEXT(RMERRS+XWBCODE),"";;"",2)"
^XMB(3.9,168,2,557,0)="""RTN"",""XWBRM"",82,0)"
^XMB(3.9,168,2,558,0)=" SET XWBDAT(""MESSAGE TYPE"")=""Gov.VA.Med.Foundations.Errors"""
^XMB(3.9,168,2,559,0)="""RTN"",""XWBRM"",83,0)"
^XMB(3.9,168,2,560,0)=" SET XWBDAT(""ERRORS"",1,""CODE"")=1"
^XMB(3.9,168,2,561,0)="""RTN"",""XWBRM"",84,0)"
^XMB(3.9,168,2,562,0)=" SET XWBDAT(""ERRORS"",1,""ERROR TYPE"")=""request manager"""
^XMB(3.9,168,2,563,0)="""RTN"",""XWBRM"",85,0)"
^XMB(3.9,168,2,564,0)=" SET XWBDAT(""ERRORS"",1,""CDATA"")=1"
^XMB(3.9,168,2,565,0)="""RTN"",""XWBRM"",86,0)"
^XMB(3.9,168,2,566,0)=" SET XWBDAT(""ERRORS"",1,""MESSAGE"",1)=""An Request Manager error occurred: ""_XWBMSG"
^XMB(3.9,168,2,567,0)="""RTN"",""XWBRM"",87,0)"
^XMB(3.9,168,2,568,0)=" DO ERROR^XWBUTL(.XWBDAT)"
^XMB(3.9,168,2,569,0)="""RTN"",""XWBRM"",88,0)"
^XMB(3.9,168,2,570,0)=" QUIT"
^XMB(3.9,168,2,571,0)="""RTN"",""XWBRM"",89,0)"
^XMB(3.9,168,2,572,0)=" ;"
^XMB(3.9,168,2,573,0)="""RTN"",""XWBRM"",90,0)"
^XMB(3.9,168,2,574,0)="RMERRS ; -- application errors"
^XMB(3.9,168,2,575,0)="""RTN"",""XWBRM"",91,0)"
^XMB(3.9,168,2,576,0)=" ;;No valid application specified."
^XMB(3.9,168,2,577,0)="""RTN"",""XWBRM"",92,0)"
^XMB(3.9,168,2,578,0)=" ;"
^XMB(3.9,168,2,579,0)="""RTN"",""XWBRM"",93,0)"
^XMB(3.9,168,2,580,0)="SECERR(XWBCODES) ; -- send security error message"
^XMB(3.9,168,2,581,0)="""RTN"",""XWBRM"",94,0)"
^XMB(3.9,168,2,582,0)=" NEW XWBDAT,XWBCNT,XWBCODE"
^XMB(3.9,168,2,583,0)="""RTN"",""XWBRM"",95,0)"
^XMB(3.9,168,2,584,0)=" SET XWBCNT=0"
^XMB(3.9,168,2,585,0)="""RTN"",""XWBRM"",96,0)"
^XMB(3.9,168,2,586,0)=" SET XWBDAT(""MESSAGE TYPE"")=""Gov.VA.Med.Foundations.Security.Errors"""
^XMB(3.9,168,2,587,0)="""RTN"",""XWBRM"",97,0)"
^XMB(3.9,168,2,588,0)=" SET XWBCODE=0 FOR  SET XWBCODE=$O(XWBCODES(XWBCODE)) Q:'XWBCODE  DO"
^XMB(3.9,168,2,589,0)="""RTN"",""XWBRM"",98,0)"
^XMB(3.9,168,2,590,0)=" . SET XWBCNT=XWBCNT+1"
^XMB(3.9,168,2,591,0)="""RTN"",""XWBRM"",99,0)"
^XMB(3.9,168,2,592,0)=" . SET XWBDAT(""ERRORS"",XWBCNT,""CODE"")=XWBCODE"
^XMB(3.9,168,2,593,0)="""RTN"",""XWBRM"",100,0)"
^XMB(3.9,168,2,594,0)=" . SET XWBDAT(""ERRORS"",XWBCNT,""ERROR TYPE"")=""security"""
^XMB(3.9,168,2,595,0)="""RTN"",""XWBRM"",101,0)"
^XMB(3.9,168,2,596,0)=" . SET XWBDAT(""ERRORS"",XWBCNT,""MESSAGE"",1)=$P($TEXT(SECERRS+XWBCODE),"";;"",2)"
^XMB(3.9,168,2,597,0)="""RTN"",""XWBRM"",102,0)"
^XMB(3.9,168,2,598,0)=" . SET XWBDAT(""ERRORS"",XWBCNT,""CDATA"")=0"
^XMB(3.9,168,2,599,0)="""RTN"",""XWBRM"",103,0)"
^XMB(3.9,168,2,600,0)=" DO ERROR^XWBUTL(.XWBDAT)"
^XMB(3.9,168,2,601,0)="""RTN"",""XWBRM"",104,0)"
^XMB(3.9,168,2,602,0)=" QUIT"
^XMB(3.9,168,2,603,0)="""RTN"",""XWBRM"",105,0)"
^XMB(3.9,168,2,604,0)=" ;"
^XMB(3.9,168,2,605,0)="""RTN"",""XWBRM"",106,0)"
^XMB(3.9,168,2,606,0)="SECERRS ; -- security errors"
^XMB(3.9,168,2,607,0)="""RTN"",""XWBRM"",107,0)"
^XMB(3.9,168,2,608,0)=" ;;Security token is either invalid or was not passed."
^XMB(3.9,168,2,609,0)="""RTN"",""XWBRM"",108,0)"
^XMB(3.9,168,2,610,0)=" ;;DUZ is either invalid or was not passed."
^XMB(3.9,168,2,611,0)="""RTN"",""XWBRM"",109,0)"
^XMB(3.9,168,2,612,0)=" ;;"
^XMB(3.9,168,2,613,0)="""RTN"",""XWBTCPM2"")"
^XMB(3.9,168,2,614,0)="0^1^B3174797^n/a"
^XMB(3.9,168,2,615,0)="""RTN"",""XWBTCPM2"",1,0)"
^XMB(3.9,168,2,616,0)="XWBTCPM2 ;ISF/RWF - BROKER Other Service ;08/01/2006  7924986.008072"
^XMB(3.9,168,2,617,0)="""RTN"",""XWBTCPM2"",2,0)"
^XMB(3.9,168,2,618,0)=" ;;1.1;RPC BROKER;**45**;Mar 28, 1997"
^XMB(3.9,168,2,619,0)="""RTN"",""XWBTCPM2"",3,0)"
^XMB(3.9,168,2,620,0)=" Q"
^XMB(3.9,168,2,621,0)="""RTN"",""XWBTCPM2"",4,0)"
^XMB(3.9,168,2,622,0)="OTH ;Check if some other special service."
^XMB(3.9,168,2,623,0)="""RTN"",""XWBTCPM2"",5,0)"
^XMB(3.9,168,2,624,0)=" S $ETRAP=""D ERR^XWBTCPM2"""
^XMB(3.9,168,2,625,0)="""RTN"",""XWBTCPM2"",6,0)"
^XMB(3.9,168,2,626,0)=" I XWB=""~EAC~"" G EAC"
^XMB(3.9,168,2,627,0)="""RTN"",""XWBTCPM2"",7,0)"
^XMB(3.9,168,2,628,0)=" I XWB=""~BSE~"" G BSE"
^XMB(3.9,168,2,629,0)="""RTN"",""XWBTCPM2"",8,0)"
^XMB(3.9,168,2,630,0)=" I XWB=""~SVR~"" G SVR"
^XMB(3.9,168,2,631,0)="""RTN"",""XWBTCPM2"",9,0)"
^XMB(3.9,168,2,632,0)=" D LOG(""Prefix not known: ""_XWB)"
^XMB(3.9,168,2,633,0)="""RTN"",""XWBTCPM2"",10,0)"
^XMB(3.9,168,2,634,0)=" Q"
^XMB(3.9,168,2,635,0)="""RTN"",""XWBTCPM2"",11,0)"
^XMB(3.9,168,2,636,0)=" ;"
^XMB(3.9,168,2,637,0)="""RTN"",""XWBTCPM2"",12,0)"
^XMB(3.9,168,2,638,0)="SVR ;Handle"
^XMB(3.9,168,2,639,0)="""RTN"",""XWBTCPM2"",13,0)"
^XMB(3.9,168,2,640,0)=" Q"
^XMB(3.9,168,2,641,0)="""RTN"",""XWBTCPM2"",14,0)"
^XMB(3.9,168,2,642,0)="EAC ;Enterprise Access"
^XMB(3.9,168,2,643,0)="""RTN"",""XWBTCPM2"",15,0)"
^XMB(3.9,168,2,644,0)=" Q"
^XMB(3.9,168,2,645,0)="""RTN"",""XWBTCPM2"",16,0)"
^XMB(3.9,168,2,646,0)=" ;"
^XMB(3.9,168,2,647,0)="""RTN"",""XWBTCPM2"",17,0)"
^XMB(3.9,168,2,648,0)="BSE ;Broker Security Enhansment"
^XMB(3.9,168,2,649,0)="""RTN"",""XWBTCPM2"",18,0)"
^XMB(3.9,168,2,650,0)=" D LOG(""BSE msg"")"
^XMB(3.9,168,2,651,0)="""RTN"",""XWBTCPM2"",19,0)"
^XMB(3.9,168,2,652,0)=" N L,HDL,RET,XWBSBUF"
^XMB(3.9,168,2,653,0)="""RTN"",""XWBTCPM2"",20,0)"
^XMB(3.9,168,2,654,0)=" S XWBSBUF="""",RET="""""
^XMB(3.9,168,2,655,0)="""RTN"",""XWBTCPM2"",21,0)"
^XMB(3.9,168,2,656,0)=" S L=$$BREAD^XWBRW(3) I L S HDL=$$BREAD^XWBRW(L)"
^XMB(3.9,168,2,657,0)="""RTN"",""XWBTCPM2"",22,0)"
^XMB(3.9,168,2,658,0)=" ;Check IT"
^XMB(3.9,168,2,659,0)="""RTN"",""XWBTCPM2"",23,0)"
^XMB(3.9,168,2,660,0)=" D GETVISIT^XUSBSE1(.RET,HDL)"
^XMB(3.9,168,2,661,0)="""RTN"",""XWBTCPM2"",24,0)"
^XMB(3.9,168,2,662,0)=" D WRITE(RET),WBF"
^XMB(3.9,168,2,663,0)="""RTN"",""XWBTCPM2"",25,0)"
^XMB(3.9,168,2,664,0)=" Q"
^XMB(3.9,168,2,665,0)="""RTN"",""XWBTCPM2"",26,0)"
^XMB(3.9,168,2,666,0)=" ;"
^XMB(3.9,168,2,667,0)="""RTN"",""XWBTCPM2"",27,0)"
^XMB(3.9,168,2,668,0)="ERR ;Error Trap"
^XMB(3.9,168,2,669,0)="""RTN"",""XWBTCPM2"",28,0)"
^XMB(3.9,168,2,670,0)=" D ^%ZTER"
^XMB(3.9,168,2,671,0)="""RTN"",""XWBTCPM2"",29,0)"
^XMB(3.9,168,2,672,0)=" G H2^XUSCLEAN"
^XMB(3.9,168,2,673,0)="""RTN"",""XWBTCPM2"",30,0)"
^XMB(3.9,168,2,674,0)=" ;"
^XMB(3.9,168,2,675,0)="""RTN"",""XWBTCPM2"",31,0)"
^XMB(3.9,168,2,676,0)="LOG(%) ;Link to logger"
^XMB(3.9,168,2,677,0)="""RTN"",""XWBTCPM2"",32,0)"
^XMB(3.9,168,2,678,0)=" Q:'$G(XWBDEBUG)"
^XMB(3.9,168,2,679,0)="""RTN"",""XWBTCPM2"",33,0)"
^XMB(3.9,168,2,680,0)=" D LOG^XWBTCPM(%)"
^XMB(3.9,168,2,681,0)="""RTN"",""XWBTCPM2"",34,0)"
^XMB(3.9,168,2,682,0)=" Q"
^XMB(3.9,168,2,683,0)="""RTN"",""XWBTCPM2"",35,0)"
^XMB(3.9,168,2,684,0)=" ;"
^XMB(3.9,168,2,685,0)="""RTN"",""XWBTCPM2"",36,0)"
^XMB(3.9,168,2,686,0)="WRITE(M,F) ;Write"
^XMB(3.9,168,2,687,0)="""RTN"",""XWBTCPM2"",37,0)"
^XMB(3.9,168,2,688,0)=" N L S L="""" I '$G(F) S L=$E(1000+$L(M),2,4)"
^XMB(3.9,168,2,689,0)="""RTN"",""XWBTCPM2"",38,0)"
^XMB(3.9,168,2,690,0)=" D WRITE^XWBRW(L_M)"
^XMB(3.9,168,2,691,0)="""RTN"",""XWBTCPM2"",39,0)"
^XMB(3.9,168,2,692,0)=" Q"
^XMB(3.9,168,2,693,0)="""RTN"",""XWBTCPM2"",40,0)"
^XMB(3.9,168,2,694,0)="WBF ;Buffer Flush"
^XMB(3.9,168,2,695,0)="""RTN"",""XWBTCPM2"",41,0)"
^XMB(3.9,168,2,696,0)=" D WBF^XWBRW"
^XMB(3.9,168,2,697,0)="""RTN"",""XWBTCPM2"",42,0)"
^XMB(3.9,168,2,698,0)=" Q"
^XMB(3.9,168,2,699,0)="""RTN"",""XWBTCPM2"",43,0)"
^XMB(3.9,168,2,700,0)=" ;"
^XMB(3.9,168,2,701,0)="""RTN"",""XWBTCPM2"",44,0)"
^XMB(3.9,168,2,702,0)="OPEN(P1,P2) ;Open the device and set the variables"
^XMB(3.9,168,2,703,0)="""RTN"",""XWBTCPM2"",45,0)"
^XMB(3.9,168,2,704,0)=" D CALL^%ZISTCP(P1,P2) Q:POP"
^XMB(3.9,168,2,705,0)="""RTN"",""XWBTCPM2"",46,0)"
^XMB(3.9,168,2,706,0)=" S XWBTDEV=IO"
^XMB(3.9,168,2,707,0)="""RTN"",""XWBTCPM2"",47,0)"
^XMB(3.9,168,2,708,0)=" Q"
^XMB(3.9,168,2,709,0)="""RTN"",""XWBTCPM2"",48,0)"
^XMB(3.9,168,2,710,0)=" ;"
^XMB(3.9,168,2,711,0)="""RTN"",""XWBTCPM2"",49,0)"
^XMB(3.9,168,2,712,0)="CALLBSE(SERVER,PORT,TOKEN) ;Special Broker service"
^XMB(3.9,168,2,713,0)="""RTN"",""XWBTCPM2"",50,0)"
^XMB(3.9,168,2,714,0)=" N XWBDEBUG,XWBOS,XWBRBUF,XWBSBUF,XWBT,XWBTIME,IO"
^XMB(3.9,168,2,715,0)="""RTN"",""XWBTCPM2"",51,0)"
^XMB(3.9,168,2,716,0)=" N DEMOSTR,XWBTDEV,RET"
^XMB(3.9,168,2,717,0)="""RTN"",""XWBTCPM2"",52,0)"
^XMB(3.9,168,2,718,0)=" S IO(0)=$P"
^XMB(3.9,168,2,719,0)="""RTN"",""XWBTCPM2"",53,0)"
^XMB(3.9,168,2,720,0)=" D INIT^XWBTCPM,LOG(""CALLBSE"")"
^XMB(3.9,168,2,721,0)="""RTN"",""XWBTCPM2"",54,0)"
^XMB(3.9,168,2,722,0)=" D OPEN(SERVER,PORT) I POP Q ""Didn't open connection."" Q"
^XMB(3.9,168,2,723,0)="""RTN"",""XWBTCPM2"",55,0)"
^XMB(3.9,168,2,724,0)=" S XWBSBUF="""",XWBRBUF="""""
^XMB(3.9,168,2,725,0)="""RTN"",""XWBTCPM2"",56,0)"
^XMB(3.9,168,2,726,0)=" U XWBTDEV"
^XMB(3.9,168,2,727,0)="""RTN"",""XWBTCPM2"",57,0)"
^XMB(3.9,168,2,728,0)=" D WRITE(""~BSE~"",1),WRITE(TOKEN),WBF^XWBRW"
^XMB(3.9,168,2,729,0)="""RTN"",""XWBTCPM2"",58,0)"
^XMB(3.9,168,2,730,0)=" S X=$$BREAD^XWBRW(3),RET=""No Response"" I X S RET=$$BREAD^XWBRW(X)"
^XMB(3.9,168,2,731,0)="""RTN"",""XWBTCPM2"",59,0)"
^XMB(3.9,168,2,732,0)=" D CLOSE^%ZISTCP,LOG(""FINISH"")"
^XMB(3.9,168,2,733,0)="""RTN"",""XWBTCPM2"",60,0)"
^XMB(3.9,168,2,734,0)=" Q RET"
^XMB(3.9,168,2,735,0)="""SEC"",""^DIC"",8994.5,8994.5,0,""AUDIT"")"
^XMB(3.9,168,2,736,0)="@"
^XMB(3.9,168,2,737,0)="""SEC"",""^DIC"",8994.5,8994.5,0,""DD"")"
^XMB(3.9,168,2,738,0)="@"
^XMB(3.9,168,2,739,0)="""SEC"",""^DIC"",8994.5,8994.5,0,""DEL"")"
^XMB(3.9,168,2,740,0)="@"
^XMB(3.9,168,2,741,0)="""SEC"",""^DIC"",8994.5,8994.5,0,""LAYGO"")"
^XMB(3.9,168,2,742,0)="@"
^XMB(3.9,168,2,743,0)="""SEC"",""^DIC"",8994.5,8994.5,0,""RD"")"
^XMB(3.9,168,2,744,0)="@"
^XMB(3.9,168,2,745,0)="""SEC"",""^DIC"",8994.5,8994.5,0,""WR"")"
^XMB(3.9,168,2,746,0)="@"
^XMB(3.9,168,2,747,0)="""VER"")"
^XMB(3.9,168,2,748,0)="8.0^22.0"
^XMB(3.9,168,2,749,0)="""^DD"",8994.5,8994.5,0)"
^XMB(3.9,168,2,750,0)="FIELD^^1^4"
^XMB(3.9,168,2,751,0)="""^DD"",8994.5,8994.5,0,""DDA"")"
^XMB(3.9,168,2,752,0)="N"
^XMB(3.9,168,2,753,0)="""^DD"",8994.5,8994.5,0,""DT"")"
^XMB(3.9,168,2,754,0)="3060407"
^XMB(3.9,168,2,755,0)="""^DD"",8994.5,8994.5,0,""IX"",""ACODE"",8994.5,.03)"
^XMB(3.9,168,2,756,0)=""
^XMB(3.9,168,2,757,0)="""^DD"",8994.5,8994.5,0,""IX"",""B"",8994.5,.01)"
^XMB(3.9,168,2,758,0)=""
^XMB(3.9,168,2,759,0)="""^DD"",8994.5,8994.5,0,""NM"",""REMOTE APPLICATION"")"
^XMB(3.9,168,2,760,0)=""
^XMB(3.9,168,2,761,0)="""^DD"",8994.5,8994.5,0,""VRPK"")"
^XMB(3.9,168,2,762,0)="XU"
^XMB(3.9,168,2,763,0)="""^DD"",8994.5,8994.5,.01,0)"
^XMB(3.9,168,2,764,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^XMB(3.9,168,2,765,0)="""^DD"",8994.5,8994.5,.01,1,0)"
^XMB(3.9,168,2,766,0)="^.1"
^XMB(3.9,168,2,767,0)="""^DD"",8994.5,8994.5,.01,1,1,0)"
^XMB(3.9,168,2,768,0)="8994.5^B"
^XMB(3.9,168,2,769,0)="""^DD"",8994.5,8994.5,.01,1,1,1)"
^XMB(3.9,168,2,770,0)="S ^XWB(8994.5,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,168,2,771,0)="""^DD"",8994.5,8994.5,.01,1,1,2)"
^XMB(3.9,168,2,772,0)="K ^XWB(8994.5,""B"",$E(X,1,30),DA)"
^XMB(3.9,168,2,773,0)="""^DD"",8994.5,8994.5,.01,3)"
^XMB(3.9,168,2,774,0)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^XMB(3.9,168,2,775,0)="""^DD"",8994.5,8994.5,.01,21,0)"
^XMB(3.9,168,2,776,0)="^.001^2^2^3060328^^"
^XMB(3.9,168,2,777,0)="""^DD"",8994.5,8994.5,.01,21,1,0)"
^XMB(3.9,168,2,778,0)="This is the NAME of the REMOTE GUI APPLICATION for which the data in this "
^XMB(3.9,168,2,779,0)="""^DD"",8994.5,8994.5,.01,21,2,0)"
^XMB(3.9,168,2,780,0)="entry pertains."
^XMB(3.9,168,2,781,0)="""^DD"",8994.5,8994.5,.02,0)"
^XMB(3.9,168,2,782,0)="CONTEXTOPTION^RP19'^DIC(19,^0;2^Q"
^XMB(3.9,168,2,783,0)="""^DD"",8994.5,8994.5,.02,3)"
^XMB(3.9,168,2,784,0)="This is the option which should be given to the signed in visitor as the Context Option for this application."
^XMB(3.9,168,2,785,0)="""^DD"",8994.5,8994.5,.02,21,0)"
^XMB(3.9,168,2,786,0)="^^7^7^3060403^"
^XMB(3.9,168,2,787,0)="""^DD"",8994.5,8994.5,.02,21,1,0)"
^XMB(3.9,168,2,788,0)="The name of the context (Client/Server or B-type) option that the "
^XMB(3.9,168,2,789,0)="""^DD"",8994.5,8994.5,.02,21,2,0)"
^XMB(3.9,168,2,790,0)="application users will need that will be added as a secondary menu item."
^XMB(3.9,168,2,791,0)="""^DD"",8994.5,8994.5,.02,21,3,0)"
^XMB(3.9,168,2,792,0)=" "
^XMB(3.9,168,2,793,0)="""^DD"",8994.5,8994.5,.02,21,4,0)"
^XMB(3.9,168,2,794,0)="The user is signed on as a visitor and given the Context Option specified"
^XMB(3.9,168,2,795,0)="""^DD"",8994.5,8994.5,.02,21,5,0)"
^XMB(3.9,168,2,796,0)="in this field as a secondary menu option.  The application still needs to"
^XMB(3.9,168,2,797,0)="""^DD"",8994.5,8994.5,.02,21,6,0)"
^XMB(3.9,168,2,798,0)="set the Context Option using the CreateContext method, but the visitor has"
^XMB(3.9,168,2,799,0)="""^DD"",8994.5,8994.5,.02,21,7,0)"
^XMB(3.9,168,2,800,0)="it as a valid option so that it can be used."
^XMB(3.9,168,2,801,0)="""^DD"",8994.5,8994.5,.02,""DT"")"
^XMB(3.9,168,2,802,0)="3060403"
^XMB(3.9,168,2,803,0)="""^DD"",8994.5,8994.5,.03,0)"
^XMB(3.9,168,2,804,0)="APPLICATIONCODE^RF^^0;3^K:$L(X)>60!($L(X)<3) X"
^XMB(3.9,168,2,805,0)="""^DD"",8994.5,8994.5,.03,1,0)"
^XMB(3.9,168,2,806,0)="^.1"
^XMB(3.9,168,2,807,0)="""^DD"",8994.5,8994.5,.03,1,1,0)"
^XMB(3.9,168,2,808,0)="8994.5^ACODE"
^XMB(3.9,168,2,809,0)="""^DD"",8994.5,8994.5,.03,1,1,1)"
^XMB(3.9,168,2,810,0)="S ^XWB(8994.5,""ACODE"",$E(X,1,30),DA)="""""
^XMB(3.9,168,2,811,0)="""^DD"",8994.5,8994.5,.03,1,1,2)"
^XMB(3.9,168,2,812,0)="K ^XWB(8994.5,""ACODE"",$E(X,1,30),DA)"
^XMB(3.9,168,2,813,0)="""^DD"",8994.5,8994.5,.03,1,1,3)"
^XMB(3.9,168,2,814,0)="THIS CROSS-REFERENCE IS USED AS ENTRY BY THE APPLICATION CODE FOR THE APPLICATION."
^XMB(3.9,168,2,815,0)="""^DD"",8994.5,8994.5,.03,1,1,""DT"")"
^XMB(3.9,168,2,816,0)="3060210"
^XMB(3.9,168,2,817,0)="""^DD"",8994.5,8994.5,.03,3)"
^XMB(3.9,168,2,818,0)="This value is the HASHED value of the application's code phrase."
^XMB(3.9,168,2,819,0)="""^DD"",8994.5,8994.5,.03,21,0)"
^XMB(3.9,168,2,820,0)="^^51^51^3060403^"
^XMB(3.9,168,2,821,0)="""^DD"",8994.5,8994.5,.03,21,1,0)"
^XMB(3.9,168,2,822,0)="This is the hashed value for a security phrase for the application and is "
^XMB(3.9,168,2,823,0)="""^DD"",8994.5,8994.5,.03,21,2,0)"
^XMB(3.9,168,2,824,0)="described below."
^XMB(3.9,168,2,825,0)="""^DD"",8994.5,8994.5,.03,21,3,0)"
^XMB(3.9,168,2,826,0)=" "
^XMB(3.9,168,2,827,0)="""^DD"",8994.5,8994.5,.03,21,4,0)"
^XMB(3.9,168,2,828,0)="Security Phrase"
^XMB(3.9,168,2,829,0)="""^DD"",8994.5,8994.5,.03,21,5,0)"
^XMB(3.9,168,2,830,0)=" "
^XMB(3.9,168,2,831,0)="""^DD"",8994.5,8994.5,.03,21,6,0)"
^XMB(3.9,168,2,832,0)="The security phrase is an application's entry into the REMOTE APPLICATION "
^XMB(3.9,168,2,833,0)="""^DD"",8994.5,8994.5,.03,21,7,0)"
^XMB(3.9,168,2,834,0)="file (#8994.5) for accessing the information necessary to permit the "
^XMB(3.9,168,2,835,0)="""^DD"",8994.5,8994.5,.03,21,8,0)"
^XMB(3.9,168,2,836,0)="application to enroll a remote user.   Create a security phrase, case "
^XMB(3.9,168,2,837,0)="""^DD"",8994.5,8994.5,.03,21,9,0)"
^XMB(3.9,168,2,838,0)="sensitive, and at programmer mode use the command (assuming the security "
^XMB(3.9,168,2,839,0)="""^DD"",8994.5,8994.5,.03,21,10,0)"
^XMB(3.9,168,2,840,0)="phrase is ""My Special Phrase"")"
^XMB(3.9,168,2,841,0)="""^DD"",8994.5,8994.5,.03,21,11,0)"
^XMB(3.9,168,2,842,0)=" "
^XMB(3.9,168,2,843,0)="""^DD"",8994.5,8994.5,.03,21,12,0)"
^XMB(3.9,168,2,844,0)="   W $$EN^XUSHSH(""My Special Phrase"")"
^XMB(3.9,168,2,845,0)="""^DD"",8994.5,8994.5,.03,21,13,0)"
^XMB(3.9,168,2,846,0)=" "
^XMB(3.9,168,2,847,0)="""^DD"",8994.5,8994.5,.03,21,14,0)"
^XMB(3.9,168,2,848,0)="The resulting value:"
^XMB(3.9,168,2,849,0)="""^DD"",8994.5,8994.5,.03,21,15,0)"
^XMB(3.9,168,2,850,0)="   ""I&f).c`u:7@01#tL((x"" "
^XMB(3.9,168,2,851,0)="""^DD"",8994.5,8994.5,.03,21,16,0)"
^XMB(3.9,168,2,852,0)=" "
^XMB(3.9,168,2,853,0)="""^DD"",8994.5,8994.5,.03,21,17,0)"
^XMB(3.9,168,2,854,0)="This is the one-way hash value for the security phrase.  It is this "
^XMB(3.9,168,2,855,0)="""^DD"",8994.5,8994.5,.03,21,18,0)"
^XMB(3.9,168,2,856,0)="hashed value that will be entered into the ApplicationCode field (#.03) "
^XMB(3.9,168,2,857,0)="""^DD"",8994.5,8994.5,.03,21,19,0)"
^XMB(3.9,168,2,858,0)="in the REMOTE APPLICATION file (#8994.5) for the application."
^XMB(3.9,168,2,859,0)="""^DD"",8994.5,8994.5,.03,21,20,0)"
^XMB(3.9,168,2,860,0)=" "
^XMB(3.9,168,2,861,0)="""^DD"",8994.5,8994.5,.03,21,21,0)"
^XMB(3.9,168,2,862,0)="To make a remote connection, the application will have the user sign onto "
^XMB(3.9,168,2,863,0)="""^DD"",8994.5,8994.5,.03,21,22,0)"
^XMB(3.9,168,2,864,0)="the application's authenticating server (the one entered as "
^XMB(3.9,168,2,865,0)="""^DD"",8994.5,8994.5,.03,21,23,0)"
^XMB(3.9,168,2,866,0)="CallbackServer) and then obtain a Token for the user (similar to "
^XMB(3.9,168,2,867,0)="""^DD"",8994.5,8994.5,.03,21,24,0)"
^XMB(3.9,168,2,868,0)="""XWBHDL977-124367_0"") using the ""XUS SET VISITOR"" RPC.  The application "
^XMB(3.9,168,2,869,0)="""^DD"",8994.5,8994.5,.03,21,25,0)"
^XMB(3.9,168,2,870,0)="will then disconnect from the authenticating server and set the new "
^XMB(3.9,168,2,871,0)="""^DD"",8994.5,8994.5,.03,21,26,0)"
^XMB(3.9,168,2,872,0)="SecurityPhrase property for the TRPCBroker component to the unhashed "
^XMB(3.9,168,2,873,0)="""^DD"",8994.5,8994.5,.03,21,27,0)"
^XMB(3.9,168,2,874,0)="security phrase concatenated with a caret (""^"") and the token for the user"
^XMB(3.9,168,2,875,0)="""^DD"",8994.5,8994.5,.03,21,28,0)"
^XMB(3.9,168,2,876,0)="(e.g.,  ""My Special Phrase^XWBHDL977-124367_0"")"
^XMB(3.9,168,2,877,0)="""^DD"",8994.5,8994.5,.03,21,29,0)"
^XMB(3.9,168,2,878,0)=" "
^XMB(3.9,168,2,879,0)="""^DD"",8994.5,8994.5,.03,21,30,0)"
^XMB(3.9,168,2,880,0)="This property will be encoded and passed to the remote server for "
^XMB(3.9,168,2,881,0)="""^DD"",8994.5,8994.5,.03,21,31,0)"
^XMB(3.9,168,2,882,0)="authentication; it will hash the security phrase and use the resulting "
^XMB(3.9,168,2,883,0)="""^DD"",8994.5,8994.5,.03,21,32,0)"
^XMB(3.9,168,2,884,0)="value to identify the application's entry in the REMOTE APPLICATION file "
^XMB(3.9,168,2,885,0)="""^DD"",8994.5,8994.5,.03,21,33,0)"
^XMB(3.9,168,2,886,0)="(#8994.5).  The mechanism(s) for contacting the authenticating server "
^XMB(3.9,168,2,887,0)="""^DD"",8994.5,8994.5,.03,21,34,0)"
^XMB(3.9,168,2,888,0)="will be identified and the authentication server will be requested to "
^XMB(3.9,168,2,889,0)="""^DD"",8994.5,8994.5,.03,21,35,0)"
^XMB(3.9,168,2,890,0)="provide the demographic information necessary to identify the user and "
^XMB(3.9,168,2,891,0)="""^DD"",8994.5,8994.5,.03,21,36,0)"
^XMB(3.9,168,2,892,0)="create or match an entry in the NEW PERSON file (#200) based on the token "
^XMB(3.9,168,2,893,0)="""^DD"",8994.5,8994.5,.03,21,37,0)"
^XMB(3.9,168,2,894,0)="provided.  With this information the user will be set up as a visitor "
^XMB(3.9,168,2,895,0)="""^DD"",8994.5,8994.5,.03,21,38,0)"
^XMB(3.9,168,2,896,0)="entry and provided the context option specified.  The application will "
^XMB(3.9,168,2,897,0)="""^DD"",8994.5,8994.5,.03,21,39,0)"
^XMB(3.9,168,2,898,0)="then be notified that the user is connected.  If there is no entry for "
^XMB(3.9,168,2,899,0)="""^DD"",8994.5,8994.5,.03,21,40,0)"
^XMB(3.9,168,2,900,0)="the application, no match for the token, or the authenticating server can "
^XMB(3.9,168,2,901,0)="""^DD"",8994.5,8994.5,.03,21,41,0)"
^XMB(3.9,168,2,902,0)="not be connected, the user will be prompted with a regular sign on screen "
^XMB(3.9,168,2,903,0)="""^DD"",8994.5,8994.5,.03,21,42,0)"
^XMB(3.9,168,2,904,0)="(i.e., required to enter their Access and Verify codes)."
^XMB(3.9,168,2,905,0)="""^DD"",8994.5,8994.5,.03,21,43,0)"
^XMB(3.9,168,2,906,0)=" "
^XMB(3.9,168,2,907,0)="""^DD"",8994.5,8994.5,.03,21,44,0)"
^XMB(3.9,168,2,908,0)="Since the security phrase is the application's identifier, we recommend "
^XMB(3.9,168,2,909,0)="""^DD"",8994.5,8994.5,.03,21,45,0)"
^XMB(3.9,168,2,910,0)="that the security phrase in RPCBroker Delphi-based programs be identified "
^XMB(3.9,168,2,911,0)="""^DD"",8994.5,8994.5,.03,21,46,0)"
^XMB(3.9,168,2,912,0)="as a const value in an include file.  And that a substitute include file "
^XMB(3.9,168,2,913,0)="""^DD"",8994.5,8994.5,.03,21,47,0)"
^XMB(3.9,168,2,914,0)="containing a phrase similar to that used above be included with release "
^XMB(3.9,168,2,915,0)="""^DD"",8994.5,8994.5,.03,21,48,0)"
^XMB(3.9,168,2,916,0)="of the source code.  It must be realized that the security phrase "
^XMB(3.9,168,2,917,0)="""^DD"",8994.5,8994.5,.03,21,49,0)"
^XMB(3.9,168,2,918,0)="identifies any application that uses it as your application, and it "
^XMB(3.9,168,2,919,0)="""^DD"",8994.5,8994.5,.03,21,50,0)"
^XMB(3.9,168,2,920,0)="would, of course, be desirable that rogue applications not appear to be "
^XMB(3.9,168,2,921,0)="""^DD"",8994.5,8994.5,.03,21,51,0)"
^XMB(3.9,168,2,922,0)="your application."
^XMB(3.9,168,2,923,0)="""^DD"",8994.5,8994.5,.03,""DT"")"
^XMB(3.9,168,2,924,0)="3060210"
^XMB(3.9,168,2,925,0)="""^DD"",8994.5,8994.5,1,0)"
^XMB(3.9,168,2,926,0)="CALLBACKTYPE^8994.51S^^1;0"
^XMB(3.9,168,2,927,0)="""^DD"",8994.5,8994.5,1,21,0)"
^XMB(3.9,168,2,928,0)="^^10^10^3060403^"
^XMB(3.9,168,2,929,0)="""^DD"",8994.5,8994.5,1,21,1,0)"
^XMB(3.9,168,2,930,0)="This is a multiple field.  It may contain multiple values describing "
^XMB(3.9,168,2,931,0)="""^DD"",8994.5,8994.5,1,21,2,0)"
^XMB(3.9,168,2,932,0)="mechanisms by which the remote site can contact the application's "
^XMB(3.9,168,2,933,0)="""^DD"",8994.5,8994.5,1,21,3,0)"
^XMB(3.9,168,2,934,0)="authenticating site to obtain the demographic information. "
^XMB(3.9,168,2,935,0)="""^DD"",8994.5,8994.5,1,21,4,0)"
^XMB(3.9,168,2,936,0)=" "
^XMB(3.9,168,2,937,0)="""^DD"",8994.5,8994.5,1,21,5,0)"
^XMB(3.9,168,2,938,0)="It consists of the following subfields:"
^XMB(3.9,168,2,939,0)="""^DD"",8994.5,8994.5,1,21,6,0)"
^XMB(3.9,168,2,940,0)=" "
^XMB(3.9,168,2,941,0)="""^DD"",8994.5,8994.5,1,21,7,0)"
^XMB(3.9,168,2,942,0)="   .01 CALLBACKTYPE"
^XMB(3.9,168,2,943,0)="""^DD"",8994.5,8994.5,1,21,8,0)"
^XMB(3.9,168,2,944,0)="   .02 CALLBACKPORT"
^XMB(3.9,168,2,945,0)="""^DD"",8994.5,8994.5,1,21,9,0)"
^XMB(3.9,168,2,946,0)="   .03 CALLBACKSERVER"
^XMB(3.9,168,2,947,0)="""^DD"",8994.5,8994.5,1,21,10,0)"
^XMB(3.9,168,2,948,0)="   .04 URLSTRING"
^XMB(3.9,168,2,949,0)="""^DD"",8994.5,8994.5,1,""DT"")"
^XMB(3.9,168,2,950,0)="3060403"
^XMB(3.9,168,2,951,0)="""^DD"",8994.5,8994.51,0)"
^XMB(3.9,168,2,952,0)="CALLBACKTYPE SUB-FIELD^^.04^4"
^XMB(3.9,168,2,953,0)="""^DD"",8994.5,8994.51,0,""DT"")"
^XMB(3.9,168,2,954,0)="3060407"
^XMB(3.9,168,2,955,0)="""^DD"",8994.5,8994.51,0,""IX"",""B"",8994.51,.01)"
^XMB(3.9,168,2,956,0)=""
^XMB(3.9,168,2,957,0)="""^DD"",8994.5,8994.51,0,""NM"",""CALLBACKTYPE"")"
^XMB(3.9,168,2,958,0)=""
^XMB(3.9,168,2,959,0)="""^DD"",8994.5,8994.51,0,""UP"")"
^XMB(3.9,168,2,960,0)="8994.5"
^XMB(3.9,168,2,961,0)="""^DD"",8994.5,8994.51,.01,0)"
^XMB(3.9,168,2,962,0)="CALLBACKTYPE^MRS^R:RPC-BROKER;M:M2M-BROKER;H:HTTP;^0;1^Q"
^XMB(3.9,168,2,963,0)="""^DD"",8994.5,8994.51,.01,1,0)"
^XMB(3.9,168,2,964,0)="^.1"
^XMB(3.9,168,2,965,0)="""^DD"",8994.5,8994.51,.01,1,1,0)"
^XMB(3.9,168,2,966,0)="8994.51^B"
^XMB(3.9,168,2,967,0)="""^DD"",8994.5,8994.51,.01,1,1,1)"
^XMB(3.9,168,2,968,0)="S ^XWB(8994.5,DA(1),1,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,168,2,969,0)="""^DD"",8994.5,8994.51,.01,1,1,2)"
^XMB(3.9,168,2,970,0)="K ^XWB(8994.5,DA(1),1,""B"",$E(X,1,30),DA)"
^XMB(3.9,168,2,971,0)="""^DD"",8994.5,8994.51,.01,3)"
^XMB(3.9,168,2,972,0)="Select one of the indicators for a Call back type for this Remote GUI Application"
^XMB(3.9,168,2,973,0)="""^DD"",8994.5,8994.51,.01,21,0)"
^XMB(3.9,168,2,974,0)="^.001^3^3^3060403^^^"
^XMB(3.9,168,2,975,0)="""^DD"",8994.5,8994.51,.01,21,1,0)"
^XMB(3.9,168,2,976,0)="This field indicates the mechanism(s) by which the server should contact "
^XMB(3.9,168,2,977,0)="""^DD"",8994.5,8994.51,.01,21,2,0)"
^XMB(3.9,168,2,978,0)="the authenticating server to obtain information necessary to sign the "
^XMB(3.9,168,2,979,0)="""^DD"",8994.5,8994.51,.01,21,3,0)"
^XMB(3.9,168,2,980,0)="current user on to the current server."
^XMB(3.9,168,2,981,0)="""^DD"",8994.5,8994.51,.01,""DT"")"
^XMB(3.9,168,2,982,0)="3060403"
^XMB(3.9,168,2,983,0)="""^DD"",8994.5,8994.51,.02,0)"
^XMB(3.9,168,2,984,0)="CALLBACKPORT^RF^^0;2^K:$L(X)>5!($L(X)<2) X"
^XMB(3.9,168,2,985,0)="""^DD"",8994.5,8994.51,.02,3)"
^XMB(3.9,168,2,986,0)="Answer must be 2-5 characters in length."
^XMB(3.9,168,2,987,0)="""^DD"",8994.5,8994.51,.02,21,0)"
^XMB(3.9,168,2,988,0)="^.001^2^2^3060403^^"
^XMB(3.9,168,2,989,0)="""^DD"",8994.5,8994.51,.02,21,1,0)"
^XMB(3.9,168,2,990,0)="This is the port to be used for the callback to the authenticating server "
^XMB(3.9,168,2,991,0)="""^DD"",8994.5,8994.51,.02,21,2,0)"
^XMB(3.9,168,2,992,0)="for the CALLBACKTYPE specified."
^XMB(3.9,168,2,993,0)="""^DD"",8994.5,8994.51,.02,""DT"")"
^XMB(3.9,168,2,994,0)="3060407"
^XMB(3.9,168,2,995,0)="""^DD"",8994.5,8994.51,.03,0)"
^XMB(3.9,168,2,996,0)="CALLBACKSERVER^RF^^0;3^K:$L(X)>60!($L(X)<3) X"
^XMB(3.9,168,2,997,0)="""^DD"",8994.5,8994.51,.03,3)"
^XMB(3.9,168,2,998,0)="This should be the server name to be used to contact the authenticating server for accessing the data to authenticate the user for this Remote GUI Application."
^XMB(3.9,168,2,999,0)="""^DD"",8994.5,8994.51,.03,21,0)"
^XMB(3.9,168,2,1000,0)="^.001^2^2^3060403^^"
^XMB(3.9,168,2,1001,0)="""^DD"",8994.5,8994.51,.03,21,1,0)"
^XMB(3.9,168,2,1002,0)="This is the server designation to be used for the callback to the "
^XMB(3.9,168,2,1003,0)="""^DD"",8994.5,8994.51,.03,21,2,0)"
^XMB(3.9,168,2,1004,0)="authenticating server for the CALLBACKTYPE specified."
^XMB(3.9,168,2,1005,0)="""^DD"",8994.5,8994.51,.03,""DT"")"
^XMB(3.9,168,2,1006,0)="3060123"
^XMB(3.9,168,2,1007,0)="""^DD"",8994.5,8994.51,.04,0)"
^XMB(3.9,168,2,1008,0)="URLSTRING^F^^0;4^K:$L(X)>60!($L(X)<1) X"
^XMB(3.9,168,2,1009,0)="""^DD"",8994.5,8994.51,.04,3)"
^XMB(3.9,168,2,1010,0)="Answer must be 1-60 characters in length."
^XMB(3.9,168,2,1011,0)="""^DD"",8994.5,8994.51,.04,21,0)"
^XMB(3.9,168,2,1012,0)="^^14^14^3060403^"
^XMB(3.9,168,2,1013,0)="""^DD"",8994.5,8994.51,.04,21,1,0)"
^XMB(3.9,168,2,1014,0)="This field holds the text that should follow the server address (field "
^XMB(3.9,168,2,1015,0)="""^DD"",8994.5,8994.51,.04,21,2,0)"
^XMB(3.9,168,2,1016,0)="#.03) for HTTP connections to obtain the information for the user token "
^XMB(3.9,168,2,1017,0)="""^DD"",8994.5,8994.51,.04,21,3,0)"
^XMB(3.9,168,2,1018,0)="passed in for a REMOTE APPLICATION connection."
^XMB(3.9,168,2,1019,0)="""^DD"",8994.5,8994.51,.04,21,4,0)"
^XMB(3.9,168,2,1020,0)=" "
^XMB(3.9,168,2,1021,0)="""^DD"",8994.5,8994.51,.04,21,5,0)"
^XMB(3.9,168,2,1022,0)="If the complete URL to be used for the callback is"
^XMB(3.9,168,2,1023,0)="""^DD"",8994.5,8994.51,.04,21,6,0)"
^XMB(3.9,168,2,1024,0)="   http://myserver.med.va.gov/some/kind/of/location/somePage.aspx"
^XMB(3.9,168,2,1025,0)="""^DD"",8994.5,8994.51,.04,21,7,0)"
^XMB(3.9,168,2,1026,0)=" "
^XMB(3.9,168,2,1027,0)="""^DD"",8994.5,8994.51,.04,21,8,0)"
^XMB(3.9,168,2,1028,0)="The CALLBACKSERVER (#.03) field could be"
^XMB(3.9,168,2,1029,0)="""^DD"",8994.5,8994.51,.04,21,9,0)"
^XMB(3.9,168,2,1030,0)="   myserver.med.va.gov"
^XMB(3.9,168,2,1031,0)="""^DD"",8994.5,8994.51,.04,21,10,0)"
^XMB(3.9,168,2,1032,0)=" "
^XMB(3.9,168,2,1033,0)="""^DD"",8994.5,8994.51,.04,21,11,0)"
^XMB(3.9,168,2,1034,0)="and the URLSTRING would be"
^XMB(3.9,168,2,1035,0)="""^DD"",8994.5,8994.51,.04,21,12,0)"
^XMB(3.9,168,2,1036,0)="   some/kind/of/location/somePage.aspx"
^XMB(3.9,168,2,1037,0)="""^DD"",8994.5,8994.51,.04,21,13,0)"
^XMB(3.9,168,2,1038,0)=" "
^XMB(3.9,168,2,1039,0)="""^DD"",8994.5,8994.51,.04,21,14,0)"
^XMB(3.9,168,2,1040,0)="This field is only used if the CALLBACKTYPE (#.01) value is H for HTTP"
^XMB(3.9,168,2,1041,0)="""^DD"",8994.5,8994.51,.04,""DT"")"
^XMB(3.9,168,2,1042,0)="3060407"
^XMB(3.9,168,2,1043,0)="""^DIC"",8994.5,8994.5,0)"
^XMB(3.9,168,2,1044,0)="REMOTE APPLICATION^8994.5"
^XMB(3.9,168,2,1045,0)="""^DIC"",8994.5,8994.5,0,""GL"")"
^XMB(3.9,168,2,1046,0)="^XWB(8994.5,"
^XMB(3.9,168,2,1047,0)="""^DIC"",8994.5,8994.5,""%D"",0)"
^XMB(3.9,168,2,1048,0)="^^20^20^3060328^"
^XMB(3.9,168,2,1049,0)="""^DIC"",8994.5,8994.5,""%D"",1,0)"
^XMB(3.9,168,2,1050,0)="The REMOTE APPLICATION file was introduced as part of the Broker Security "
^XMB(3.9,168,2,1051,0)="""^DIC"",8994.5,8994.5,""%D"",2,0)"
^XMB(3.9,168,2,1052,0)="Enhancement to secure access via the remote user or visitor approach by "
^XMB(3.9,168,2,1053,0)="""^DIC"",8994.5,8994.5,""%D"",3,0)"
^XMB(3.9,168,2,1054,0)="GUI applications (formerly known as the CAPRI approach for the first "
^XMB(3.9,168,2,1055,0)="""^DIC"",8994.5,8994.5,""%D"",4,0)"
^XMB(3.9,168,2,1056,0)="application to use this access style).  The remote visitor access permits "
^XMB(3.9,168,2,1057,0)="""^DIC"",8994.5,8994.5,""%D"",5,0)"
^XMB(3.9,168,2,1058,0)="applications where users need to access a large number of sites to do so "
^XMB(3.9,168,2,1059,0)="""^DIC"",8994.5,8994.5,""%D"",6,0)"
^XMB(3.9,168,2,1060,0)="without requiring a separate access code and verify code at each site."
^XMB(3.9,168,2,1061,0)="""^DIC"",8994.5,8994.5,""%D"",7,0)"
^XMB(3.9,168,2,1062,0)=" "
^XMB(3.9,168,2,1063,0)="""^DIC"",8994.5,8994.5,""%D"",8,0)"
^XMB(3.9,168,2,1064,0)="Following the Broker Security Enhancement, applications will be able to "
^XMB(3.9,168,2,1065,0)="""^DIC"",8994.5,8994.5,""%D"",9,0)"
^XMB(3.9,168,2,1066,0)="use the remote visitor access only if they have an entry in this file with"
^XMB(3.9,168,2,1067,0)="""^DIC"",8994.5,8994.5,""%D"",10,0)"
^XMB(3.9,168,2,1068,0)="a one-way hash of a secure phrase.  Identification of an entry in the file"
^XMB(3.9,168,2,1069,0)="""^DIC"",8994.5,8994.5,""%D"",11,0)"
^XMB(3.9,168,2,1070,0)="is based on the application passing in the original phrase which is then"
^XMB(3.9,168,2,1071,0)="""^DIC"",8994.5,8994.5,""%D"",12,0)"
^XMB(3.9,168,2,1072,0)="hashed and used for a cross-reference lookup. The application must have at"
^XMB(3.9,168,2,1073,0)="""^DIC"",8994.5,8994.5,""%D"",13,0)"
^XMB(3.9,168,2,1074,0)="least one entry in the CALLBACKTYPE sub-file indicating a connection type,"
^XMB(3.9,168,2,1075,0)="""^DIC"",8994.5,8994.5,""%D"",14,0)"
^XMB(3.9,168,2,1076,0)="a valid address for the authenticating server, and a connection port"
^XMB(3.9,168,2,1077,0)="""^DIC"",8994.5,8994.5,""%D"",15,0)"
^XMB(3.9,168,2,1078,0)="number.  This information is necessary for the remote server to directly"
^XMB(3.9,168,2,1079,0)="""^DIC"",8994.5,8994.5,""%D"",16,0)"
^XMB(3.9,168,2,1080,0)="connect the authenticating server to obtain the demographic information"
^XMB(3.9,168,2,1081,0)="""^DIC"",8994.5,8994.5,""%D"",17,0)"
^XMB(3.9,168,2,1082,0)="necessary to create or match the visitor entry in the NEW PERSON file"
^XMB(3.9,168,2,1083,0)="""^DIC"",8994.5,8994.5,""%D"",18,0)"
^XMB(3.9,168,2,1084,0)="(#200).  The application will also specify the desired context option for"
^XMB(3.9,168,2,1085,0)="""^DIC"",8994.5,8994.5,""%D"",19,0)"
^XMB(3.9,168,2,1086,0)="the user and this will be given to the remote visitor instead of the"
^XMB(3.9,168,2,1087,0)="""^DIC"",8994.5,8994.5,""%D"",20,0)"
^XMB(3.9,168,2,1088,0)="application having to figure out how to set this value."
^XMB(3.9,168,2,1089,0)="""^DIC"",8994.5,""B"",""REMOTE APPLICATION"",8994.5)"
^XMB(3.9,168,2,1090,0)=""
^XMB(3.9,168,2,1091,0)="""BLD"",538,6)"
^XMB(3.9,168,2,1092,0)="^38"
^XMB(3.9,168,2,1093,0)="$END KID XWB*1.1*45"
^XMB(3.9,168,6,0)="^3.911A^2^2"
^XMB(3.9,168,6,1,0)="POSTMASTER"
^XMB(3.9,168,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,168,6,"B","POSTMASTER",1)=""
^XMB(3.9,168,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,169,0)="YS-5P01_SEQ-75_PAT-90.KID^.5^3061008.015744^^^^K"
^XMB(3.9,169,.6)="3061008"
^XMB(3.9,169,1,0)="^3.91A^2^2"
^XMB(3.9,169,1,1,0)=".5^0^3061008.015744^^^^^^^3061008.015744"
^XMB(3.9,169,1,2,0)="1^0^3061008.022946^^^^^^^3061008.022946"
^XMB(3.9,169,1,2,"F")="POSTMASTER 10/08/06@02:08^.5^"
^XMB(3.9,169,1,"C",.5,1)=""
^XMB(3.9,169,1,"C",1,2)=""
^XMB(3.9,169,2,0)="^^3685^3685^3061008"
^XMB(3.9,169,2,1,0)="$TXT Released YS*5.01*90 SEQ #75"
^XMB(3.9,169,2,2,0)="Extracted from mail message"
^XMB(3.9,169,2,3,0)="$END TXT"
^XMB(3.9,169,2,4,0)="$KID YS*5.01*90"
^XMB(3.9,169,2,5,0)="**INSTALL NAME**"
^XMB(3.9,169,2,6,0)="YS*5.01*90"
^XMB(3.9,169,2,7,0)="""BLD"",6093,0)"
^XMB(3.9,169,2,8,0)="YS*5.01*90^MENTAL HEALTH^0^3060905^y"
^XMB(3.9,169,2,9,0)="""BLD"",6093,1,0)"
^XMB(3.9,169,2,10,0)="^^371^371^3060905^"
^XMB(3.9,169,2,11,0)="""BLD"",6093,1,1,0)"
^XMB(3.9,169,2,12,0)="Recent changes in the Clozapine protocol require changes to the Clozapine "
^XMB(3.9,169,2,13,0)="""BLD"",6093,1,2,0)"
^XMB(3.9,169,2,14,0)="Roll Up software.  Originally, all Clozapine prescriptions were limited "
^XMB(3.9,169,2,15,0)="""BLD"",6093,1,3,0)"
^XMB(3.9,169,2,16,0)="to 7 days.  Renewals and refills were not allowed.  In addition, the "
^XMB(3.9,169,2,17,0)="""BLD"",6093,1,4,0)"
^XMB(3.9,169,2,18,0)="Clozapine reporting software automatically discontinued any patient if "
^XMB(3.9,169,2,19,0)="""BLD"",6093,1,5,0)"
^XMB(3.9,169,2,20,0)="the patient's prescription was over 28 days old.  This was to prevent a "
^XMB(3.9,169,2,21,0)="""BLD"",6093,1,6,0)"
^XMB(3.9,169,2,22,0)="patient from being issued medication on an expired prescription.  The "
^XMB(3.9,169,2,23,0)="""BLD"",6093,1,7,0)"
^XMB(3.9,169,2,24,0)="revised Clozapine protocol allows for a monthly prescription as well as "
^XMB(3.9,169,2,25,0)="""BLD"",6093,1,8,0)"
^XMB(3.9,169,2,26,0)="weekly and bi-weekly.  The patient is now automatically discontinued if "
^XMB(3.9,169,2,27,0)="""BLD"",6093,1,9,0)"
^XMB(3.9,169,2,28,0)="the issue date for the most recent prescription is greater than 56 days "
^XMB(3.9,169,2,29,0)="""BLD"",6093,1,10,0)"
^XMB(3.9,169,2,30,0)="in the past."
^XMB(3.9,169,2,31,0)="""BLD"",6093,1,11,0)"
^XMB(3.9,169,2,32,0)=" "
^XMB(3.9,169,2,33,0)="""BLD"",6093,1,12,0)"
^XMB(3.9,169,2,34,0)="The weekly roll-up creates a report that is sent to the local G.PSOCLOZ "
^XMB(3.9,169,2,35,0)="""BLD"",6093,1,13,0)"
^XMB(3.9,169,2,36,0)="mail group.  This report lists the patients reported to the national "
^XMB(3.9,169,2,37,0)="""BLD"",6093,1,14,0)"
^XMB(3.9,169,2,38,0)="database along with an indicator showing whether or not Lab and RX data "
^XMB(3.9,169,2,39,0)="""BLD"",6093,1,15,0)"
^XMB(3.9,169,2,40,0)="were transmitted.  This report has been updated to show the date of the "
^XMB(3.9,169,2,41,0)="""BLD"",6093,1,16,0)"
^XMB(3.9,169,2,42,0)="most recent WBC (White Blood Count) and Neutrophil Count along with the "
^XMB(3.9,169,2,43,0)="""BLD"",6093,1,17,0)"
^XMB(3.9,169,2,44,0)="date of the most recent Clozapine prescription.  Mental Health and "
^XMB(3.9,169,2,45,0)="""BLD"",6093,1,18,0)"
^XMB(3.9,169,2,46,0)="Pharmacy personnel responsible for prescribing and dispensing Clozapine "
^XMB(3.9,169,2,47,0)="""BLD"",6093,1,19,0)"
^XMB(3.9,169,2,48,0)="should be made aware of this mail group and given the opportunity to join."
^XMB(3.9,169,2,49,0)="""BLD"",6093,1,20,0)"
^XMB(3.9,169,2,50,0)=" "
^XMB(3.9,169,2,51,0)="""BLD"",6093,1,21,0)"
^XMB(3.9,169,2,52,0)="NEW OPTION:"
^XMB(3.9,169,2,53,0)="""BLD"",6093,1,22,0)"
^XMB(3.9,169,2,54,0)="=========="
^XMB(3.9,169,2,55,0)="""BLD"",6093,1,23,0)"
^XMB(3.9,169,2,56,0)="The Link Multiple Tests to Clozapine [CLOZAPINE MULTI TEST LINK] option "
^XMB(3.9,169,2,57,0)="""BLD"",6093,1,24,0)"
^XMB(3.9,169,2,58,0)="must be assigned to the person or persons responsible for ensuring that "
^XMB(3.9,169,2,59,0)="""BLD"",6093,1,25,0)"
^XMB(3.9,169,2,60,0)="the appropriate data is in place to validate Clozapine testing data.  "
^XMB(3.9,169,2,61,0)="""BLD"",6093,1,26,0)"
^XMB(3.9,169,2,62,0)="This is usually the Laboratory ADPAC."
^XMB(3.9,169,2,63,0)="""BLD"",6093,1,27,0)"
^XMB(3.9,169,2,64,0)=" "
^XMB(3.9,169,2,65,0)="""BLD"",6093,1,28,0)"
^XMB(3.9,169,2,66,0)="This option will ask for the local laboratory name that equates to the "
^XMB(3.9,169,2,67,0)="""BLD"",6093,1,29,0)"
^XMB(3.9,169,2,68,0)="following seven common test names"
^XMB(3.9,169,2,69,0)="""BLD"",6093,1,30,0)"
^XMB(3.9,169,2,70,0)=" "
^XMB(3.9,169,2,71,0)="""BLD"",6093,1,31,0)"
^XMB(3.9,169,2,72,0)="White Blood Cell Count"
^XMB(3.9,169,2,73,0)="""BLD"",6093,1,32,0)"
^XMB(3.9,169,2,74,0)="Absolute Neutrophil Count"
^XMB(3.9,169,2,75,0)="""BLD"",6093,1,33,0)"
^XMB(3.9,169,2,76,0)="Neutrophil %"
^XMB(3.9,169,2,77,0)="""BLD"",6093,1,34,0)"
^XMB(3.9,169,2,78,0)="Segs  (Percent)"
^XMB(3.9,169,2,79,0)="""BLD"",6093,1,35,0)"
^XMB(3.9,169,2,80,0)="Bands (Percent)"
^XMB(3.9,169,2,81,0)="""BLD"",6093,1,36,0)"
^XMB(3.9,169,2,82,0)="Segs  (Absolute Count)"
^XMB(3.9,169,2,83,0)="""BLD"",6093,1,37,0)"
^XMB(3.9,169,2,84,0)="Bands (Absolute Count)"
^XMB(3.9,169,2,85,0)="""BLD"",6093,1,38,0)"
^XMB(3.9,169,2,86,0)=" "
^XMB(3.9,169,2,87,0)="""BLD"",6093,1,39,0)"
^XMB(3.9,169,2,88,0)="You will also be asked to fill in the reporting format for each test.  "
^XMB(3.9,169,2,89,0)="""BLD"",6093,1,40,0)"
^XMB(3.9,169,2,90,0)="Most sites report WBC and Neutrophil results in K/unit format (K/cc or "
^XMB(3.9,169,2,91,0)="""BLD"",6093,1,41,0)"
^XMB(3.9,169,2,92,0)="K/cu mm or K/mm-3 or K/mL). For example, WBC equals 5.1.  However, some "
^XMB(3.9,169,2,93,0)="""BLD"",6093,1,42,0)"
^XMB(3.9,169,2,94,0)="report results as discrete units. For example, WBC equals 5100.  This "
^XMB(3.9,169,2,95,0)="""BLD"",6093,1,43,0)"
^XMB(3.9,169,2,96,0)="field will allow the site to specify how results are reported.  Entries "
^XMB(3.9,169,2,97,0)="""BLD"",6093,1,44,0)"
^XMB(3.9,169,2,98,0)="that report in a percentage (such as Neutrophil %, Segs %, and Bands %) "
^XMB(3.9,169,2,99,0)="""BLD"",6093,1,45,0)"
^XMB(3.9,169,2,100,0)="should use ""Percentage""."
^XMB(3.9,169,2,101,0)="""BLD"",6093,1,46,0)"
^XMB(3.9,169,2,102,0)=" "
^XMB(3.9,169,2,103,0)="""BLD"",6093,1,47,0)"
^XMB(3.9,169,2,104,0)="You may input as many names from the local laboratory definition for each "
^XMB(3.9,169,2,105,0)="""BLD"",6093,1,48,0)"
^XMB(3.9,169,2,106,0)="of these tests as needed.  Remember that the laboratory may have designed "
^XMB(3.9,169,2,107,0)="""BLD"",6093,1,49,0)"
^XMB(3.9,169,2,108,0)="special names for specific test equipment, specific test locations, or "
^XMB(3.9,169,2,109,0)="""BLD"",6093,1,50,0)"
^XMB(3.9,169,2,110,0)="specific test conditions, such as manual counts.  "
^XMB(3.9,169,2,111,0)="""BLD"",6093,1,51,0)"
^XMB(3.9,169,2,112,0)=" "
^XMB(3.9,169,2,113,0)="""BLD"",6093,1,52,0)"
^XMB(3.9,169,2,114,0)="In fact, if your facility has Clozapine patients with blood samples drawn "
^XMB(3.9,169,2,115,0)="""BLD"",6093,1,53,0)"
^XMB(3.9,169,2,116,0)="and tested on a fee-basis at other CLIA (Clinical Laboratory Improvement "
^XMB(3.9,169,2,117,0)="""BLD"",6093,1,54,0)"
^XMB(3.9,169,2,118,0)="Amendments) approved labs, it is extremely important for your Laboratory "
^XMB(3.9,169,2,119,0)="""BLD"",6093,1,55,0)"
^XMB(3.9,169,2,120,0)="have tests to accept manual input of these tests.  "
^XMB(3.9,169,2,121,0)="""BLD"",6093,1,56,0)"
^XMB(3.9,169,2,122,0)=" "
^XMB(3.9,169,2,123,0)="""BLD"",6093,1,57,0)"
^XMB(3.9,169,2,124,0)="Therefore, you should involve laboratory managers or ADPAC (Automated "
^XMB(3.9,169,2,125,0)="""BLD"",6093,1,58,0)"
^XMB(3.9,169,2,126,0)="Data Processing Application Coordinator) in selection of these names - "
^XMB(3.9,169,2,127,0)="""BLD"",6093,1,59,0)"
^XMB(3.9,169,2,128,0)="both to define the test names currently in use and to create the "
^XMB(3.9,169,2,129,0)="""BLD"",6093,1,60,0)"
^XMB(3.9,169,2,130,0)="provision for manual entry of data.  Please be certain every possible "
^XMB(3.9,169,2,131,0)="""BLD"",6093,1,61,0)"
^XMB(3.9,169,2,132,0)="local laboratory name that represents these tests is entered that relates "
^XMB(3.9,169,2,133,0)="""BLD"",6093,1,62,0)"
^XMB(3.9,169,2,134,0)="to each of the seven test names above.  Pharmacy dispense will be "
^XMB(3.9,169,2,135,0)="""BLD"",6093,1,63,0)"
^XMB(3.9,169,2,136,0)="prevented unless the program can find the needed test results under one "
^XMB(3.9,169,2,137,0)="""BLD"",6093,1,64,0)"
^XMB(3.9,169,2,138,0)="of names you identify as an equivalent for each of the seven tests."
^XMB(3.9,169,2,139,0)="""BLD"",6093,1,65,0)"
^XMB(3.9,169,2,140,0)=" "
^XMB(3.9,169,2,141,0)="""BLD"",6093,1,66,0)"
^XMB(3.9,169,2,142,0)="Security Key: The YSCL AUTHORIZED Security Key is new with this patch.  "
^XMB(3.9,169,2,143,0)="""BLD"",6093,1,67,0)"
^XMB(3.9,169,2,144,0)=" This key must be assigned to each provider authorized to dispense "
^XMB(3.9,169,2,145,0)="""BLD"",6093,1,68,0)"
^XMB(3.9,169,2,146,0)=" Clozapine."
^XMB(3.9,169,2,147,0)="""BLD"",6093,1,69,0)"
^XMB(3.9,169,2,148,0)=" "
^XMB(3.9,169,2,149,0)="""BLD"",6093,1,70,0)"
^XMB(3.9,169,2,150,0)="EXAMPLE: CLOZAPINE MULTI TEST LINK [Link Multiple Tests to Clozapine] "
^XMB(3.9,169,2,151,0)="""BLD"",6093,1,71,0)"
^XMB(3.9,169,2,152,0)="option"
^XMB(3.9,169,2,153,0)="""BLD"",6093,1,72,0)"
^XMB(3.9,169,2,154,0)=" "
^XMB(3.9,169,2,155,0)="""BLD"",6093,1,73,0)"
^XMB(3.9,169,2,156,0)="Select OPTION NAME: CLOZ"
^XMB(3.9,169,2,157,0)="""BLD"",6093,1,74,0)"
^XMB(3.9,169,2,158,0)="     1   CLOZAPINE MULTI TEST LINK       Link Multiple Tests to Clozapine"
^XMB(3.9,169,2,159,0)="""BLD"",6093,1,75,0)"
^XMB(3.9,169,2,160,0)="     2   CLOZAPINE DATA SERVER  YSCLSERVER     Clozapine Data Server"
^XMB(3.9,169,2,161,0)="""BLD"",6093,1,76,0)"
^XMB(3.9,169,2,162,0)="     3   CLOZAPINE PHARMACY MANAGER  PSOL MANAGER     Clozapine Pharmacy "
^XMB(3.9,169,2,163,0)="""BLD"",6093,1,77,0)"
^XMB(3.9,169,2,164,0)="Manager"
^XMB(3.9,169,2,165,0)="""BLD"",6093,1,78,0)"
^XMB(3.9,169,2,166,0)="     4   CLOZAPINE TEST LINK  YSCL TEST LINK     Clozapine Test Link"
^XMB(3.9,169,2,167,0)="""BLD"",6093,1,79,0)"
^XMB(3.9,169,2,168,0)="CHOOSE 1-4: 1  CLOZAPINE MULTI TEST LINK     Link Multiple Tests to "
^XMB(3.9,169,2,169,0)="""BLD"",6093,1,80,0)"
^XMB(3.9,169,2,170,0)="Clozapine "
^XMB(3.9,169,2,171,0)="""BLD"",6093,1,81,0)"
^XMB(3.9,169,2,172,0)="Link Multiple Tests to Clozapine"
^XMB(3.9,169,2,173,0)="""BLD"",6093,1,82,0)"
^XMB(3.9,169,2,174,0)="Currently linked Tests:"
^XMB(3.9,169,2,175,0)="""BLD"",6093,1,83,0)"
^XMB(3.9,169,2,176,0)="NEUTROPHIL MATURITY, MEAN represents WHITE BLOOD COUNT"
^XMB(3.9,169,2,177,0)="""BLD"",6093,1,84,0)"
^XMB(3.9,169,2,178,0)="SEGS represents BANDS %"
^XMB(3.9,169,2,179,0)="""BLD"",6093,1,85,0)"
^XMB(3.9,169,2,180,0)=" "
^XMB(3.9,169,2,181,0)="""BLD"",6093,1,86,0)"
^XMB(3.9,169,2,182,0)="Enter the name of the test for Clozapine: WBC       WBC"
^XMB(3.9,169,2,183,0)="""BLD"",6093,1,87,0)"
^XMB(3.9,169,2,184,0)="Enter the type of the test for Clozapine: ?"
^XMB(3.9,169,2,185,0)="""BLD"",6093,1,88,0)"
^XMB(3.9,169,2,186,0)=" "
^XMB(3.9,169,2,187,0)="""BLD"",6093,1,89,0)"
^XMB(3.9,169,2,188,0)="Enter a code from the list."
^XMB(3.9,169,2,189,0)="""BLD"",6093,1,90,0)"
^XMB(3.9,169,2,190,0)=" "
^XMB(3.9,169,2,191,0)="""BLD"",6093,1,91,0)"
^XMB(3.9,169,2,192,0)="     Select one of the following:"
^XMB(3.9,169,2,193,0)="""BLD"",6093,1,92,0)"
^XMB(3.9,169,2,194,0)=" "
^XMB(3.9,169,2,195,0)="""BLD"",6093,1,93,0)"
^XMB(3.9,169,2,196,0)="          W         WHITE BLOOD COUNT"
^XMB(3.9,169,2,197,0)="""BLD"",6093,1,94,0)"
^XMB(3.9,169,2,198,0)="          A         ABSOLUTE NEUTROPHIL COUNT"
^XMB(3.9,169,2,199,0)="""BLD"",6093,1,95,0)"
^XMB(3.9,169,2,200,0)="          N         NEUTROPHIL PERCENT"
^XMB(3.9,169,2,201,0)="""BLD"",6093,1,96,0)"
^XMB(3.9,169,2,202,0)="          S         SEGS %"
^XMB(3.9,169,2,203,0)="""BLD"",6093,1,97,0)"
^XMB(3.9,169,2,204,0)="          B         BANDS %"
^XMB(3.9,169,2,205,0)="""BLD"",6093,1,98,0)"
^XMB(3.9,169,2,206,0)="          T         BANDS ABSOLUTE"
^XMB(3.9,169,2,207,0)="""BLD"",6093,1,99,0)"
^XMB(3.9,169,2,208,0)="          C         SEGS ABSOLUTE"
^XMB(3.9,169,2,209,0)="""BLD"",6093,1,100,0)"
^XMB(3.9,169,2,210,0)=" "
^XMB(3.9,169,2,211,0)="""BLD"",6093,1,101,0)"
^XMB(3.9,169,2,212,0)="Enter the type of the test for Clozapine: WHITE BLOOD COUNT"
^XMB(3.9,169,2,213,0)="""BLD"",6093,1,102,0)"
^XMB(3.9,169,2,214,0)="Enter the reporting method of the test for Clozapine: ?"
^XMB(3.9,169,2,215,0)="""BLD"",6093,1,103,0)"
^XMB(3.9,169,2,216,0)=" "
^XMB(3.9,169,2,217,0)="""BLD"",6093,1,104,0)"
^XMB(3.9,169,2,218,0)="Enter a code from the list."
^XMB(3.9,169,2,219,0)="""BLD"",6093,1,105,0)"
^XMB(3.9,169,2,220,0)=" "
^XMB(3.9,169,2,221,0)="""BLD"",6093,1,106,0)"
^XMB(3.9,169,2,222,0)="     Select one of the following:"
^XMB(3.9,169,2,223,0)="""BLD"",6093,1,107,0)"
^XMB(3.9,169,2,224,0)=" "
^XMB(3.9,169,2,225,0)="""BLD"",6093,1,108,0)"
^XMB(3.9,169,2,226,0)="          0         uL"
^XMB(3.9,169,2,227,0)="""BLD"",6093,1,109,0)"
^XMB(3.9,169,2,228,0)="          1         K/uL"
^XMB(3.9,169,2,229,0)="""BLD"",6093,1,110,0)"
^XMB(3.9,169,2,230,0)="          2         Percent"
^XMB(3.9,169,2,231,0)="""BLD"",6093,1,111,0)"
^XMB(3.9,169,2,232,0)=" "
^XMB(3.9,169,2,233,0)="""BLD"",6093,1,112,0)"
^XMB(3.9,169,2,234,0)="Enter the reporting method of the test for Clozapine: 2  Percent"
^XMB(3.9,169,2,235,0)="""BLD"",6093,1,113,0)"
^XMB(3.9,169,2,236,0)=" "
^XMB(3.9,169,2,237,0)="""BLD"",6093,1,114,0)"
^XMB(3.9,169,2,238,0)="Enter the name of the test for Clozapine:"
^XMB(3.9,169,2,239,0)="""BLD"",6093,1,115,0)"
^XMB(3.9,169,2,240,0)=" "
^XMB(3.9,169,2,241,0)="""BLD"",6093,1,116,0)"
^XMB(3.9,169,2,242,0)="The FDA (Food and Drug Administration) uses White Blood Cell Count and "
^XMB(3.9,169,2,243,0)="""BLD"",6093,1,117,0)"
^XMB(3.9,169,2,244,0)="Absolute Neutrophil Count as the definitive tests to verify for Clozapine "
^XMB(3.9,169,2,245,0)="""BLD"",6093,1,118,0)"
^XMB(3.9,169,2,246,0)="use, however your lab may report your data under any of the names you "
^XMB(3.9,169,2,247,0)="""BLD"",6093,1,119,0)"
^XMB(3.9,169,2,248,0)="enter into these lists.  If the WBC and ANC are not directly available, "
^XMB(3.9,169,2,249,0)="""BLD"",6093,1,120,0)"
^XMB(3.9,169,2,250,0)="ANC will be calculated from the other data available and presented to "
^XMB(3.9,169,2,251,0)="""BLD"",6093,1,121,0)"
^XMB(3.9,169,2,252,0)="Pharmacy (and CPRS (Computerized Patient Record System) during a later "
^XMB(3.9,169,2,253,0)="""BLD"",6093,1,122,0)"
^XMB(3.9,169,2,254,0)="revision) at the time of dispense and used to evaluate the safety under "
^XMB(3.9,169,2,255,0)="""BLD"",6093,1,123,0)"
^XMB(3.9,169,2,256,0)="FDA limits.  Only the most recent WBC will be accepted, and the date and "
^XMB(3.9,169,2,257,0)="""BLD"",6093,1,124,0)"
^XMB(3.9,169,2,258,0)="time stamp of the Neutrophil count must match the date and time stamp of "
^XMB(3.9,169,2,259,0)="""BLD"",6093,1,125,0)"
^XMB(3.9,169,2,260,0)="the WBC."
^XMB(3.9,169,2,261,0)="""BLD"",6093,1,126,0)"
^XMB(3.9,169,2,262,0)=" "
^XMB(3.9,169,2,263,0)="""BLD"",6093,1,127,0)"
^XMB(3.9,169,2,264,0)=" "
^XMB(3.9,169,2,265,0)="""BLD"",6093,1,128,0)"
^XMB(3.9,169,2,266,0)="WHITE BLOOD CELL  (WBC)"
^XMB(3.9,169,2,267,0)="""BLD"",6093,1,129,0)"
^XMB(3.9,169,2,268,0)=" "
^XMB(3.9,169,2,269,0)="""BLD"",6093,1,130,0)"
^XMB(3.9,169,2,270,0)="For reference  ""White Blood Cell Count"" is a portion of the total blood "
^XMB(3.9,169,2,271,0)="""BLD"",6093,1,131,0)"
^XMB(3.9,169,2,272,0)="content and the sum total of two different kinds of cells - "
^XMB(3.9,169,2,273,0)="""BLD"",6093,1,132,0)"
^XMB(3.9,169,2,274,0)=" "
^XMB(3.9,169,2,275,0)="""BLD"",6093,1,133,0)"
^XMB(3.9,169,2,276,0)="         AGRANULOCYTES - those cells which do not have granules"
^XMB(3.9,169,2,277,0)="""BLD"",6093,1,134,0)"
^XMB(3.9,169,2,278,0)="         that absorb a stain.  These cells are subdivided"
^XMB(3.9,169,2,279,0)="""BLD"",6093,1,135,0)"
^XMB(3.9,169,2,280,0)="         into Lymphocytes and Monocytes. "
^XMB(3.9,169,2,281,0)="""BLD"",6093,1,136,0)"
^XMB(3.9,169,2,282,0)=" "
^XMB(3.9,169,2,283,0)="""BLD"",6093,1,137,0)"
^XMB(3.9,169,2,284,0)="         GRANULOCYTES  -- those cells which contain granules"
^XMB(3.9,169,2,285,0)="""BLD"",6093,1,138,0)"
^XMB(3.9,169,2,286,0)="         that absorb a stain.  These cells are subdivided"
^XMB(3.9,169,2,287,0)="""BLD"",6093,1,139,0)"
^XMB(3.9,169,2,288,0)="         into Neutrophils, Basophils, and Eosinophils.  "
^XMB(3.9,169,2,289,0)="""BLD"",6093,1,140,0)"
^XMB(3.9,169,2,290,0)=" "
^XMB(3.9,169,2,291,0)="""BLD"",6093,1,141,0)"
^XMB(3.9,169,2,292,0)="Both Agranulocytes and Granulocytes are part of the Total White Blood "
^XMB(3.9,169,2,293,0)="""BLD"",6093,1,142,0)"
^XMB(3.9,169,2,294,0)="Cell Count.  Therefore, the total WBC is the sum of five different types "
^XMB(3.9,169,2,295,0)="""BLD"",6093,1,143,0)"
^XMB(3.9,169,2,296,0)="of cells.  "
^XMB(3.9,169,2,297,0)="""BLD"",6093,1,144,0)"
^XMB(3.9,169,2,298,0)=" "
^XMB(3.9,169,2,299,0)="""BLD"",6093,1,145,0)"
^XMB(3.9,169,2,300,0)="WBC as well as its five components are usually expressed as the total "
^XMB(3.9,169,2,301,0)="""BLD"",6093,1,146,0)"
^XMB(3.9,169,2,302,0)="number of cells in a cubic centimeter of blood (cc) or cubic millimeter "
^XMB(3.9,169,2,303,0)="""BLD"",6093,1,147,0)"
^XMB(3.9,169,2,304,0)="(cu mm or mm-3)or milliliters (mL).  "
^XMB(3.9,169,2,305,0)="""BLD"",6093,1,148,0)"
^XMB(3.9,169,2,306,0)=" "
^XMB(3.9,169,2,307,0)="""BLD"",6093,1,149,0)"
^XMB(3.9,169,2,308,0)="WBC usually falls with a range between 4000 and 11,000 but fluctuates for "
^XMB(3.9,169,2,309,0)="""BLD"",6093,1,150,0)"
^XMB(3.9,169,2,310,0)="a number of medical reasons.  For brevity, WBC results may be divided by "
^XMB(3.9,169,2,311,0)="""BLD"",6093,1,151,0)"
^XMB(3.9,169,2,312,0)="1000 and presented as K/cc or K/cu mm or K/mm-3 or K/mL"
^XMB(3.9,169,2,313,0)="""BLD"",6093,1,152,0)"
^XMB(3.9,169,2,314,0)=" "
^XMB(3.9,169,2,315,0)="""BLD"",6093,1,153,0)"
^XMB(3.9,169,2,316,0)=" "
^XMB(3.9,169,2,317,0)="""BLD"",6093,1,154,0)"
^XMB(3.9,169,2,318,0)="The five components are similarly expressed as number of the same type OR "
^XMB(3.9,169,2,319,0)="""BLD"",6093,1,155,0)"
^XMB(3.9,169,2,320,0)="as a percentage of the total WBC.  "
^XMB(3.9,169,2,321,0)="""BLD"",6093,1,156,0)"
^XMB(3.9,169,2,322,0)=" "
^XMB(3.9,169,2,323,0)="""BLD"",6093,1,157,0)"
^XMB(3.9,169,2,324,0)="The sum of counts of the five components of should equal the total WBC OR "
^XMB(3.9,169,2,325,0)="""BLD"",6093,1,158,0)"
^XMB(3.9,169,2,326,0)="the sum of the percentages of the five components should equal 100%"
^XMB(3.9,169,2,327,0)="""BLD"",6093,1,159,0)"
^XMB(3.9,169,2,328,0)=" "
^XMB(3.9,169,2,329,0)="""BLD"",6093,1,160,0)"
^XMB(3.9,169,2,330,0)="This test is sometimes also referred to as ""Leukocyte Count"" "
^XMB(3.9,169,2,331,0)="""BLD"",6093,1,161,0)"
^XMB(3.9,169,2,332,0)=" "
^XMB(3.9,169,2,333,0)="""BLD"",6093,1,162,0)"
^XMB(3.9,169,2,334,0)=" "
^XMB(3.9,169,2,335,0)="""BLD"",6093,1,163,0)"
^XMB(3.9,169,2,336,0)="Absolute Neutrophil Count (ANC)"
^XMB(3.9,169,2,337,0)="""BLD"",6093,1,164,0)"
^XMB(3.9,169,2,338,0)=" "
^XMB(3.9,169,2,339,0)="""BLD"",6093,1,165,0)"
^XMB(3.9,169,2,340,0)="The Absolute Neutrophil Count is the total number of Neutrophil cells in "
^XMB(3.9,169,2,341,0)="""BLD"",6093,1,166,0)"
^XMB(3.9,169,2,342,0)="the total WBC count.  The other GRANULOCYTE cells - Basophils and "
^XMB(3.9,169,2,343,0)="""BLD"",6093,1,167,0)"
^XMB(3.9,169,2,344,0)="Eosinophils (see White Blood Cell Count above) - are not included in this "
^XMB(3.9,169,2,345,0)="""BLD"",6093,1,168,0)"
^XMB(3.9,169,2,346,0)="number.  Therefore - a test titled GRANULOCYTES - may not produce the "
^XMB(3.9,169,2,347,0)="""BLD"",6093,1,169,0)"
^XMB(3.9,169,2,348,0)="desired result as it may include Basophils and Eosinophils."
^XMB(3.9,169,2,349,0)="""BLD"",6093,1,170,0)"
^XMB(3.9,169,2,350,0)=" "
^XMB(3.9,169,2,351,0)="""BLD"",6093,1,171,0)"
^XMB(3.9,169,2,352,0)="Since the ANC is a portion of the WBC, it is only valid if it is "
^XMB(3.9,169,2,353,0)="""BLD"",6093,1,172,0)"
^XMB(3.9,169,2,354,0)="traceable to the WBC sample drawn at the same date and time.  "
^XMB(3.9,169,2,355,0)="""BLD"",6093,1,173,0)"
^XMB(3.9,169,2,356,0)=" "
^XMB(3.9,169,2,357,0)="""BLD"",6093,1,174,0)"
^XMB(3.9,169,2,358,0)="ANC is a count and not a percentage - expressed as WBC with the total "
^XMB(3.9,169,2,359,0)="""BLD"",6093,1,175,0)"
^XMB(3.9,169,2,360,0)="number of cells in a cubic centimeter of blood (cc) or cubic millimeter "
^XMB(3.9,169,2,361,0)="""BLD"",6093,1,176,0)"
^XMB(3.9,169,2,362,0)="(cu mm or mm-3)or milliliters (mL).  Again, this number may be divided by "
^XMB(3.9,169,2,363,0)="""BLD"",6093,1,177,0)"
^XMB(3.9,169,2,364,0)="a thousand for brevity.  "
^XMB(3.9,169,2,365,0)="""BLD"",6093,1,178,0)"
^XMB(3.9,169,2,366,0)=" "
^XMB(3.9,169,2,367,0)="""BLD"",6093,1,179,0)"
^XMB(3.9,169,2,368,0)="The Absolute Neutrophil Count generally ranges from 1600 to 7700 / but it "
^XMB(3.9,169,2,369,0)="""BLD"",6093,1,180,0)"
^XMB(3.9,169,2,370,0)="can ever exceed the WBC count.  "
^XMB(3.9,169,2,371,0)="""BLD"",6093,1,181,0)"
^XMB(3.9,169,2,372,0)=" "
^XMB(3.9,169,2,373,0)="""BLD"",6093,1,182,0)"
^XMB(3.9,169,2,374,0)="This test can also be knows as polymorphonuclear cells or PMN's. "
^XMB(3.9,169,2,375,0)="""BLD"",6093,1,183,0)"
^XMB(3.9,169,2,376,0)=" "
^XMB(3.9,169,2,377,0)="""BLD"",6093,1,184,0)"
^XMB(3.9,169,2,378,0)=" "
^XMB(3.9,169,2,379,0)="""BLD"",6093,1,185,0)"
^XMB(3.9,169,2,380,0)="Neutrophil Percent  (Neut%)"
^XMB(3.9,169,2,381,0)="""BLD"",6093,1,186,0)"
^XMB(3.9,169,2,382,0)=" "
^XMB(3.9,169,2,383,0)="""BLD"",6093,1,187,0)"
^XMB(3.9,169,2,384,0)="The Neutrophil Percent is the portion of the total WBC and that is "
^XMB(3.9,169,2,385,0)="""BLD"",6093,1,188,0)"
^XMB(3.9,169,2,386,0)="composed of Neutrophil cells, excluding all agranulocytes and other "
^XMB(3.9,169,2,387,0)="""BLD"",6093,1,189,0)"
^XMB(3.9,169,2,388,0)="granulocytes.  This number is usually between 40% and 70%, but fluctuates "
^XMB(3.9,169,2,389,0)="""BLD"",6093,1,190,0)"
^XMB(3.9,169,2,390,0)="for many medical reasons.  "
^XMB(3.9,169,2,391,0)="""BLD"",6093,1,191,0)"
^XMB(3.9,169,2,392,0)=" "
^XMB(3.9,169,2,393,0)="""BLD"",6093,1,192,0)"
^XMB(3.9,169,2,394,0)="Since it is reported as a portion of the total WBC, it is only valid if "
^XMB(3.9,169,2,395,0)="""BLD"",6093,1,193,0)"
^XMB(3.9,169,2,396,0)="it is traceable to the WBC sample drawn at the same date and time.  "
^XMB(3.9,169,2,397,0)="""BLD"",6093,1,194,0)"
^XMB(3.9,169,2,398,0)=" "
^XMB(3.9,169,2,399,0)="""BLD"",6093,1,195,0)"
^XMB(3.9,169,2,400,0)="Neut% is commonly obtained by automatic testing equipment to represent "
^XMB(3.9,169,2,401,0)="""BLD"",6093,1,196,0)"
^XMB(3.9,169,2,402,0)="the Neutrophil content in the blood.  "
^XMB(3.9,169,2,403,0)="""BLD"",6093,1,197,0)"
^XMB(3.9,169,2,404,0)=" "
^XMB(3.9,169,2,405,0)="""BLD"",6093,1,198,0)"
^XMB(3.9,169,2,406,0)="Neut% is a percentage and not a count - reported in the portion of the "
^XMB(3.9,169,2,407,0)="""BLD"",6093,1,199,0)"
^XMB(3.9,169,2,408,0)="WBC.  It can be converted into an Absolute Neutrophil Count in the "
^XMB(3.9,169,2,409,0)="""BLD"",6093,1,200,0)"
^XMB(3.9,169,2,410,0)="following formula (Neutrophil% / 100) X WBC count).  "
^XMB(3.9,169,2,411,0)="""BLD"",6093,1,201,0)"
^XMB(3.9,169,2,412,0)=" "
^XMB(3.9,169,2,413,0)="""BLD"",6093,1,202,0)"
^XMB(3.9,169,2,414,0)="The Neutrophil Percent generally ranges from 37% to 80% and should never "
^XMB(3.9,169,2,415,0)="""BLD"",6093,1,203,0)"
^XMB(3.9,169,2,416,0)="exceed 90% of the total WBC count unless special medical conditions are "
^XMB(3.9,169,2,417,0)="""BLD"",6093,1,204,0)"
^XMB(3.9,169,2,418,0)="present.  "
^XMB(3.9,169,2,419,0)="""BLD"",6093,1,205,0)"
^XMB(3.9,169,2,420,0)=" "
^XMB(3.9,169,2,421,0)="""BLD"",6093,1,206,0)"
^XMB(3.9,169,2,422,0)=" "
^XMB(3.9,169,2,423,0)="""BLD"",6093,1,207,0)"
^XMB(3.9,169,2,424,0)="SEGS  & BANDS  "
^XMB(3.9,169,2,425,0)="""BLD"",6093,1,208,0)"
^XMB(3.9,169,2,426,0)=" "
^XMB(3.9,169,2,427,0)="""BLD"",6093,1,209,0)"
^XMB(3.9,169,2,428,0)="The WBC/Granulocyte/Neutrophil cell type can be further subdivided into "
^XMB(3.9,169,2,429,0)="""BLD"",6093,1,210,0)"
^XMB(3.9,169,2,430,0)="two types.  Mature neutrophils are called SEGS.  Immature neutrophils "
^XMB(3.9,169,2,431,0)="""BLD"",6093,1,211,0)"
^XMB(3.9,169,2,432,0)="called BANDS also circulate in the blood until they mature into SEGS.  "
^XMB(3.9,169,2,433,0)="""BLD"",6093,1,212,0)"
^XMB(3.9,169,2,434,0)="The sum of SEGS and BANDS is equal to the ANC of a give WBC count.  "
^XMB(3.9,169,2,435,0)="""BLD"",6093,1,213,0)"
^XMB(3.9,169,2,436,0)=" "
^XMB(3.9,169,2,437,0)="""BLD"",6093,1,214,0)"
^XMB(3.9,169,2,438,0)="SEGS and BANDS may be reported as a count, expressed in cc, mm-3, cu mm, "
^XMB(3.9,169,2,439,0)="""BLD"",6093,1,215,0)"
^XMB(3.9,169,2,440,0)="or mL.  A preceding K indicates the number has been divided by 1000.  "
^XMB(3.9,169,2,441,0)="""BLD"",6093,1,216,0)"
^XMB(3.9,169,2,442,0)=" "
^XMB(3.9,169,2,443,0)="""BLD"",6093,1,217,0)"
^XMB(3.9,169,2,444,0)="When SEGS and BANDS are reported as a number, the sum total of SEGS and "
^XMB(3.9,169,2,445,0)="""BLD"",6093,1,218,0)"
^XMB(3.9,169,2,446,0)="BANDS equals the total Neutrophil Count (ANC)  NOTE that the program "
^XMB(3.9,169,2,447,0)="""BLD"",6093,1,219,0)"
^XMB(3.9,169,2,448,0)="needs an identifying test for both SEGS and BANDS.  Reporting SEGS "
^XMB(3.9,169,2,449,0)="""BLD"",6093,1,220,0)"
^XMB(3.9,169,2,450,0)="without a parallel result from BANDS will result in an error condition "
^XMB(3.9,169,2,451,0)="""BLD"",6093,1,221,0)"
^XMB(3.9,169,2,452,0)="that may prevent Pharmacy dispense.  "
^XMB(3.9,169,2,453,0)="""BLD"",6093,1,222,0)"
^XMB(3.9,169,2,454,0)=" "
^XMB(3.9,169,2,455,0)="""BLD"",6093,1,223,0)"
^XMB(3.9,169,2,456,0)="This number generally ranges between 1600 and 7700 / cu mm.  It should "
^XMB(3.9,169,2,457,0)="""BLD"",6093,1,224,0)"
^XMB(3.9,169,2,458,0)="never exceed 90% of the total WBC except under special circumstances. "
^XMB(3.9,169,2,459,0)="""BLD"",6093,1,225,0)"
^XMB(3.9,169,2,460,0)=" "
^XMB(3.9,169,2,461,0)="""BLD"",6093,1,226,0)"
^XMB(3.9,169,2,462,0)="SEGS and BANDS may be reported as a PERCENTAGE of the total WBC.  "
^XMB(3.9,169,2,463,0)="""BLD"",6093,1,227,0)"
^XMB(3.9,169,2,464,0)="Therefore the total number of neutrophils (ANC) in a give WBC is = total "
^XMB(3.9,169,2,465,0)="""BLD"",6093,1,228,0)"
^XMB(3.9,169,2,466,0)="WBC  X  (% Segs  + % Bands).  This calculation will be performed by the "
^XMB(3.9,169,2,467,0)="""BLD"",6093,1,229,0)"
^XMB(3.9,169,2,468,0)="Pharmacy patch to obtain and ANC when necessary"
^XMB(3.9,169,2,469,0)="""BLD"",6093,1,230,0)"
^XMB(3.9,169,2,470,0)=" "
^XMB(3.9,169,2,471,0)="""BLD"",6093,1,231,0)"
^XMB(3.9,169,2,472,0)="The sum total of SEGS% and BANDS% can never exceed 100."
^XMB(3.9,169,2,473,0)="""BLD"",6093,1,232,0)"
^XMB(3.9,169,2,474,0)=" "
^XMB(3.9,169,2,475,0)="""BLD"",6093,1,233,0)"
^XMB(3.9,169,2,476,0)="DATA DICTIONARY:"
^XMB(3.9,169,2,477,0)="""BLD"",6093,1,234,0)"
^XMB(3.9,169,2,478,0)="==============="
^XMB(3.9,169,2,479,0)="""BLD"",6093,1,235,0)"
^XMB(3.9,169,2,480,0)="CLOZAPINE PATIENT LIST File (#603.01), OVERRIDE DATE field (#3) - This "
^XMB(3.9,169,2,481,0)="""BLD"",6093,1,236,0)"
^XMB(3.9,169,2,482,0)="field was added to allow the NCCC more control over the overrides "
^XMB(3.9,169,2,483,0)="""BLD"",6093,1,237,0)"
^XMB(3.9,169,2,484,0)="performed at the site."
^XMB(3.9,169,2,485,0)="""BLD"",6093,1,238,0)"
^XMB(3.9,169,2,486,0)=" "
^XMB(3.9,169,2,487,0)="""BLD"",6093,1,239,0)"
^XMB(3.9,169,2,488,0)="CLOZAPINE PARAMETERS File (#603.03), LOCK DOWN field (#7) - This field "
^XMB(3.9,169,2,489,0)="""BLD"",6093,1,240,0)"
^XMB(3.9,169,2,490,0)="was added to allow the NCCC to prevent the dispensing of any Clozapine "
^XMB(3.9,169,2,491,0)="""BLD"",6093,1,241,0)"
^XMB(3.9,169,2,492,0)="prescription at a site."
^XMB(3.9,169,2,493,0)="""BLD"",6093,1,242,0)"
^XMB(3.9,169,2,494,0)=" "
^XMB(3.9,169,2,495,0)="""BLD"",6093,1,243,0)"
^XMB(3.9,169,2,496,0)=" "
^XMB(3.9,169,2,497,0)="""BLD"",6093,1,244,0)"
^XMB(3.9,169,2,498,0)="CLOZAPINE TESTS file (#603.04) - This file was added to allow the sites "
^XMB(3.9,169,2,499,0)="""BLD"",6093,1,245,0)"
^XMB(3.9,169,2,500,0)="to select multiple tests for the WBC and Neutrophil count."
^XMB(3.9,169,2,501,0)="""BLD"",6093,1,246,0)"
^XMB(3.9,169,2,502,0)=" "
^XMB(3.9,169,2,503,0)="""BLD"",6093,1,247,0)"
^XMB(3.9,169,2,504,0)="Field         Field Name           Description"
^XMB(3.9,169,2,505,0)="""BLD"",6093,1,248,0)"
^XMB(3.9,169,2,506,0)="603.04,.01    NAME            0;1 FREE TEXT (Required)"
^XMB(3.9,169,2,507,0)="""BLD"",6093,1,249,0)"
^XMB(3.9,169,2,508,0)="603.04,1      TEST NAME       1;0 POINTER Multiple #603.41"
^XMB(3.9,169,2,509,0)="""BLD"",6093,1,250,0)"
^XMB(3.9,169,2,510,0)="603.41,.01    TEST NAME       0;1 POINTER TO LABORATORY TEST FILE (#60)"
^XMB(3.9,169,2,511,0)="""BLD"",6093,1,251,0)"
^XMB(3.9,169,2,512,0)="603.41,1      TEST TYPE            0;2 SET (Required)"
^XMB(3.9,169,2,513,0)="""BLD"",6093,1,252,0)"
^XMB(3.9,169,2,514,0)=" "
^XMB(3.9,169,2,515,0)="""BLD"",6093,1,253,0)"
^XMB(3.9,169,2,516,0)="                                'W' FOR WHITE BLOOD COUNT; "
^XMB(3.9,169,2,517,0)="""BLD"",6093,1,254,0)"
^XMB(3.9,169,2,518,0)="                                'A' FOR ABSOLUTE NEUTROPHIL COUNT; "
^XMB(3.9,169,2,519,0)="""BLD"",6093,1,255,0)"
^XMB(3.9,169,2,520,0)="                                'N' FOR NEUTROPHIL PERCENT; "
^XMB(3.9,169,2,521,0)="""BLD"",6093,1,256,0)"
^XMB(3.9,169,2,522,0)="                                'S' FOR SEGS %; "
^XMB(3.9,169,2,523,0)="""BLD"",6093,1,257,0)"
^XMB(3.9,169,2,524,0)="                                'B' FOR BANDS %; "
^XMB(3.9,169,2,525,0)="""BLD"",6093,1,258,0)"
^XMB(3.9,169,2,526,0)="                                'T' FOR BANDS ABSOLUTE; "
^XMB(3.9,169,2,527,0)="""BLD"",6093,1,259,0)"
^XMB(3.9,169,2,528,0)="                                'C' FOR SEGS ABSOLUTE; "
^XMB(3.9,169,2,529,0)="""BLD"",6093,1,260,0)"
^XMB(3.9,169,2,530,0)="603.41,2      REPORTING FORMAT     0;3 SET (Required)"
^XMB(3.9,169,2,531,0)="""BLD"",6093,1,261,0)"
^XMB(3.9,169,2,532,0)=" "
^XMB(3.9,169,2,533,0)="""BLD"",6093,1,262,0)"
^XMB(3.9,169,2,534,0)="                                '0' FOR Units; "
^XMB(3.9,169,2,535,0)="""BLD"",6093,1,263,0)"
^XMB(3.9,169,2,536,0)="                                '1' FOR K/units; "
^XMB(3.9,169,2,537,0)="""BLD"",6093,1,264,0)"
^XMB(3.9,169,2,538,0)="                                '2' FOR Percentage; "
^XMB(3.9,169,2,539,0)="""BLD"",6093,1,265,0)"
^XMB(3.9,169,2,540,0)=" "
^XMB(3.9,169,2,541,0)="""BLD"",6093,1,266,0)"
^XMB(3.9,169,2,542,0)="INSTALLATION TIME FRAME:"
^XMB(3.9,169,2,543,0)="""BLD"",6093,1,267,0)"
^XMB(3.9,169,2,544,0)="======================="
^XMB(3.9,169,2,545,0)="""BLD"",6093,1,268,0)"
^XMB(3.9,169,2,546,0)="VA DIRECTIVE 2001-023 REQUIRES INSTALLATION OF THIS PATCH WITHIN 30 DAYS "
^XMB(3.9,169,2,547,0)="""BLD"",6093,1,269,0)"
^XMB(3.9,169,2,548,0)="FROM THE TIME OF INITIAL RELEASE."
^XMB(3.9,169,2,549,0)="""BLD"",6093,1,270,0)"
^XMB(3.9,169,2,550,0)=" "
^XMB(3.9,169,2,551,0)="""BLD"",6093,1,271,0)"
^XMB(3.9,169,2,552,0)="REQUESTING SITE:"
^XMB(3.9,169,2,553,0)="""BLD"",6093,1,272,0)"
^XMB(3.9,169,2,554,0)="==============="
^XMB(3.9,169,2,555,0)="""BLD"",6093,1,273,0)"
^XMB(3.9,169,2,556,0)="National Clozapine Coordinating Center"
^XMB(3.9,169,2,557,0)="""BLD"",6093,1,274,0)"
^XMB(3.9,169,2,558,0)=" "
^XMB(3.9,169,2,559,0)="""BLD"",6093,1,275,0)"
^XMB(3.9,169,2,560,0)="Test Site(s):"
^XMB(3.9,169,2,561,0)="""BLD"",6093,1,276,0)"
^XMB(3.9,169,2,562,0)="============"
^XMB(3.9,169,2,563,0)="""BLD"",6093,1,277,0)"
^XMB(3.9,169,2,564,0)="West LA"
^XMB(3.9,169,2,565,0)="""BLD"",6093,1,278,0)"
^XMB(3.9,169,2,566,0)="Oklahoma"
^XMB(3.9,169,2,567,0)="""BLD"",6093,1,279,0)"
^XMB(3.9,169,2,568,0)="Louisville"
^XMB(3.9,169,2,569,0)="""BLD"",6093,1,280,0)"
^XMB(3.9,169,2,570,0)=" "
^XMB(3.9,169,2,571,0)="""BLD"",6093,1,281,0)"
^XMB(3.9,169,2,572,0)="Reference NOIS:"
^XMB(3.9,169,2,573,0)="""BLD"",6093,1,282,0)"
^XMB(3.9,169,2,574,0)="=============="
^XMB(3.9,169,2,575,0)="""BLD"",6093,1,283,0)"
^XMB(3.9,169,2,576,0)="NA"
^XMB(3.9,169,2,577,0)="""BLD"",6093,1,284,0)"
^XMB(3.9,169,2,578,0)="a"
^XMB(3.9,169,2,579,0)="""BLD"",6093,1,285,0)"
^XMB(3.9,169,2,580,0)="ASSOCIATED E3Rs:"
^XMB(3.9,169,2,581,0)="""BLD"",6093,1,286,0)"
^XMB(3.9,169,2,582,0)="==============="
^XMB(3.9,169,2,583,0)="""BLD"",6093,1,287,0)"
^XMB(3.9,169,2,584,0)="NA"
^XMB(3.9,169,2,585,0)="""BLD"",6093,1,288,0)"
^XMB(3.9,169,2,586,0)=" "
^XMB(3.9,169,2,587,0)="""BLD"",6093,1,289,0)"
^XMB(3.9,169,2,588,0)="ASSOCIATED REMEDY TICKETS:"
^XMB(3.9,169,2,589,0)="""BLD"",6093,1,290,0)"
^XMB(3.9,169,2,590,0)="========================="
^XMB(3.9,169,2,591,0)="""BLD"",6093,1,291,0)"
^XMB(3.9,169,2,592,0)="NA"
^XMB(3.9,169,2,593,0)="""BLD"",6093,1,292,0)"
^XMB(3.9,169,2,594,0)=" "
^XMB(3.9,169,2,595,0)="""BLD"",6093,1,293,0)"
^XMB(3.9,169,2,596,0)="  ROUTINE SUMMARY:"
^XMB(3.9,169,2,597,0)="""BLD"",6093,1,294,0)"
^XMB(3.9,169,2,598,0)="  ================"
^XMB(3.9,169,2,599,0)="""BLD"",6093,1,295,0)"
^XMB(3.9,169,2,600,0)=" "
^XMB(3.9,169,2,601,0)="""BLD"",6093,1,296,0)"
^XMB(3.9,169,2,602,0)="  The following routines are included in this patch.  The second line"
^XMB(3.9,169,2,603,0)="""BLD"",6093,1,297,0)"
^XMB(3.9,169,2,604,0)="  of each of these routines now looks like:"
^XMB(3.9,169,2,605,0)="""BLD"",6093,1,298,0)"
^XMB(3.9,169,2,606,0)="  <tab>   ;;5.01;MENTAL HEALTH;**[patch list]**;Dec 30,1994"
^XMB(3.9,169,2,607,0)="""BLD"",6093,1,299,0)"
^XMB(3.9,169,2,608,0)=" "
^XMB(3.9,169,2,609,0)="""BLD"",6093,1,300,0)"
^XMB(3.9,169,2,610,0)="                              Checksum Values"
^XMB(3.9,169,2,611,0)="""BLD"",6093,1,301,0)"
^XMB(3.9,169,2,612,0)=" "
^XMB(3.9,169,2,613,0)="""BLD"",6093,1,302,0)"
^XMB(3.9,169,2,614,0)="  Routine Name      Before Patch         After Patch     Patch List"
^XMB(3.9,169,2,615,0)="""BLD"",6093,1,303,0)"
^XMB(3.9,169,2,616,0)="  ------------      ------------         -----------     ----------"
^XMB(3.9,169,2,617,0)="""BLD"",6093,1,304,0)"
^XMB(3.9,169,2,618,0)=" "
^XMB(3.9,169,2,619,0)="""BLD"",6093,1,305,0)"
^XMB(3.9,169,2,620,0)="  YSCLSERV           25083145              25564583      18,22,26,47,"
^XMB(3.9,169,2,621,0)="""BLD"",6093,1,306,0)"
^XMB(3.9,169,2,622,0)="                                                         61,69,74,90"
^XMB(3.9,169,2,623,0)="""BLD"",6093,1,307,0)"
^XMB(3.9,169,2,624,0)="  YSCLSRV1           1605367               1606233       61,69,74,90"
^XMB(3.9,169,2,625,0)="""BLD"",6093,1,308,0)"
^XMB(3.9,169,2,626,0)="  YSCLSRV2           16840829              24723007      69,90"
^XMB(3.9,169,2,627,0)="""BLD"",6093,1,309,0)"
^XMB(3.9,169,2,628,0)="  YSCLSRV3           7345805               24872037      74,90"
^XMB(3.9,169,2,629,0)="""BLD"",6093,1,310,0)"
^XMB(3.9,169,2,630,0)="  YSCLTEST           12047382              12378003      18,22,26,47,"
^XMB(3.9,169,2,631,0)="""BLD"",6093,1,311,0)"
^XMB(3.9,169,2,632,0)="                                                         61,69,74,90"
^XMB(3.9,169,2,633,0)="""BLD"",6093,1,312,0)"
^XMB(3.9,169,2,634,0)="  YSCLTST1           15450428              11839450      18,22,25,26,"
^XMB(3.9,169,2,635,0)="""BLD"",6093,1,313,0)"
^XMB(3.9,169,2,636,0)="                                                         47,61,69,74,90"
^XMB(3.9,169,2,637,0)="""BLD"",6093,1,314,0)"
^XMB(3.9,169,2,638,0)="  YSCLTST2           11178871              32098862      18,22,26,47"
^XMB(3.9,169,2,639,0)="""BLD"",6093,1,315,0)"
^XMB(3.9,169,2,640,0)="                                                         61,69,74,90"
^XMB(3.9,169,2,641,0)="""BLD"",6093,1,316,0)"
^XMB(3.9,169,2,642,0)="  YSCLTST3           15031797              25645207      18,22,25,26"
^XMB(3.9,169,2,643,0)="""BLD"",6093,1,317,0)"
^XMB(3.9,169,2,644,0)="                                                         47,61,69,74,90"
^XMB(3.9,169,2,645,0)="""BLD"",6093,1,318,0)"
^XMB(3.9,169,2,646,0)=" "
^XMB(3.9,169,2,647,0)="""BLD"",6093,1,319,0)"
^XMB(3.9,169,2,648,0)=" "
^XMB(3.9,169,2,649,0)="""BLD"",6093,1,320,0)"
^XMB(3.9,169,2,650,0)="List of preceding patches: 18,22,25,26,47,61,69,74"
^XMB(3.9,169,2,651,0)="""BLD"",6093,1,321,0)"
^XMB(3.9,169,2,652,0)="Sites should use CHECK^XTSUMBLD to verify checksums."
^XMB(3.9,169,2,653,0)="""BLD"",6093,1,322,0)"
^XMB(3.9,169,2,654,0)=" "
^XMB(3.9,169,2,655,0)="""BLD"",6093,1,323,0)"
^XMB(3.9,169,2,656,0)="         Installation Instructions:"
^XMB(3.9,169,2,657,0)="""BLD"",6093,1,324,0)"
^XMB(3.9,169,2,658,0)="         =========================="
^XMB(3.9,169,2,659,0)="""BLD"",6093,1,325,0)"
^XMB(3.9,169,2,660,0)=" "
^XMB(3.9,169,2,661,0)="""BLD"",6093,1,326,0)"
^XMB(3.9,169,2,662,0)="  NOTE: This KIDS install does not place any options out of service"
^XMB(3.9,169,2,663,0)="""BLD"",6093,1,327,0)"
^XMB(3.9,169,2,664,0)="        during the install and no existing user options are affected."
^XMB(3.9,169,2,665,0)="""BLD"",6093,1,328,0)"
^XMB(3.9,169,2,666,0)=" "
^XMB(3.9,169,2,667,0)="""BLD"",6093,1,329,0)"
^XMB(3.9,169,2,668,0)="        The site should answer ""NO"" to all three questions."
^XMB(3.9,169,2,669,0)="""BLD"",6093,1,330,0)"
^XMB(3.9,169,2,670,0)="            Note: You may not receive all three prompts at your site."
^XMB(3.9,169,2,671,0)="""BLD"",6093,1,331,0)"
^XMB(3.9,169,2,672,0)=" "
^XMB(3.9,169,2,673,0)="""BLD"",6093,1,332,0)"
^XMB(3.9,169,2,674,0)="        ""Want KIDS to Rebuild Menu Trees Upon Completion of"
^XMB(3.9,169,2,675,0)="""BLD"",6093,1,333,0)"
^XMB(3.9,169,2,676,0)="         Install? YES// NO"""
^XMB(3.9,169,2,677,0)="""BLD"",6093,1,334,0)"
^XMB(3.9,169,2,678,0)=" "
^XMB(3.9,169,2,679,0)="""BLD"",6093,1,335,0)"
^XMB(3.9,169,2,680,0)="        ""Want KIDS to INHIBIT LOGONs during the install? YES// NO"""
^XMB(3.9,169,2,681,0)="""BLD"",6093,1,336,0)"
^XMB(3.9,169,2,682,0)=" "
^XMB(3.9,169,2,683,0)="""BLD"",6093,1,337,0)"
^XMB(3.9,169,2,684,0)="        ""Want to DISABLE Scheduled Options, Menu Options, and"
^XMB(3.9,169,2,685,0)="""BLD"",6093,1,338,0)"
^XMB(3.9,169,2,686,0)="         Protocols?"
^XMB(3.9,169,2,687,0)="""BLD"",6093,1,339,0)"
^XMB(3.9,169,2,688,0)="         YES// NO"""
^XMB(3.9,169,2,689,0)="""BLD"",6093,1,340,0)"
^XMB(3.9,169,2,690,0)=" "
^XMB(3.9,169,2,691,0)="""BLD"",6093,1,341,0)"
^XMB(3.9,169,2,692,0)="         1. Use the 'INSTALL/CHECK MESSAGE' option on the PackMan menu."
^XMB(3.9,169,2,693,0)="""BLD"",6093,1,342,0)"
^XMB(3.9,169,2,694,0)="            This option will load the KIDS package in this message onto"
^XMB(3.9,169,2,695,0)="""BLD"",6093,1,343,0)"
^XMB(3.9,169,2,696,0)="            your system."
^XMB(3.9,169,2,697,0)="""BLD"",6093,1,344,0)"
^XMB(3.9,169,2,698,0)=" "
^XMB(3.9,169,2,699,0)="""BLD"",6093,1,345,0)"
^XMB(3.9,169,2,700,0)="         2. The patch has now been loaded into a Transport global on"
^XMB(3.9,169,2,701,0)="""BLD"",6093,1,346,0)"
^XMB(3.9,169,2,702,0)="            your system. You now need to use KIDS to install the"
^XMB(3.9,169,2,703,0)="""BLD"",6093,1,347,0)"
^XMB(3.9,169,2,704,0)="            Transport global."
^XMB(3.9,169,2,705,0)="""BLD"",6093,1,348,0)"
^XMB(3.9,169,2,706,0)=" "
^XMB(3.9,169,2,707,0)="""BLD"",6093,1,349,0)"
^XMB(3.9,169,2,708,0)="            On the KIDS menu, under the 'Installation' menu, use the"
^XMB(3.9,169,2,709,0)="""BLD"",6093,1,350,0)"
^XMB(3.9,169,2,710,0)="            following options:"
^XMB(3.9,169,2,711,0)="""BLD"",6093,1,351,0)"
^XMB(3.9,169,2,712,0)="                Print Transport Global"
^XMB(3.9,169,2,713,0)="""BLD"",6093,1,352,0)"
^XMB(3.9,169,2,714,0)="                Compare Transport Global to Current System"
^XMB(3.9,169,2,715,0)="""BLD"",6093,1,353,0)"
^XMB(3.9,169,2,716,0)="                Verify Checksums in Transport Global"
^XMB(3.9,169,2,717,0)="""BLD"",6093,1,354,0)"
^XMB(3.9,169,2,718,0)="                Backup a Transport Global"
^XMB(3.9,169,2,719,0)="""BLD"",6093,1,355,0)"
^XMB(3.9,169,2,720,0)=" "
^XMB(3.9,169,2,721,0)="""BLD"",6093,1,356,0)"
^XMB(3.9,169,2,722,0)="         3. Users may remain on the system, installation may be done at"
^XMB(3.9,169,2,723,0)="""BLD"",6093,1,357,0)"
^XMB(3.9,169,2,724,0)="            any time except during the time scheduled for the Clozapine"
^XMB(3.9,169,2,725,0)="""BLD"",6093,1,358,0)"
^XMB(3.9,169,2,726,0)="            roll-up."
^XMB(3.9,169,2,727,0)="""BLD"",6093,1,359,0)"
^XMB(3.9,169,2,728,0)=" "
^XMB(3.9,169,2,729,0)="""BLD"",6093,1,360,0)"
^XMB(3.9,169,2,730,0)="         4. No options need to be placed out of service."
^XMB(3.9,169,2,731,0)="""BLD"",6093,1,361,0)"
^XMB(3.9,169,2,732,0)=" "
^XMB(3.9,169,2,733,0)="""BLD"",6093,1,362,0)"
^XMB(3.9,169,2,734,0)="         5. Installation time is less than 2 minutes during off peak"
^XMB(3.9,169,2,735,0)="""BLD"",6093,1,363,0)"
^XMB(3.9,169,2,736,0)="            hours and less than 5 minutes during peak hours."
^XMB(3.9,169,2,737,0)="""BLD"",6093,1,364,0)"
^XMB(3.9,169,2,738,0)=" "
^XMB(3.9,169,2,739,0)="""BLD"",6093,1,365,0)"
^XMB(3.9,169,2,740,0)="         6. Installation of this patch requires no additional memory"
^XMB(3.9,169,2,741,0)="""BLD"",6093,1,366,0)"
^XMB(3.9,169,2,742,0)="            space."
^XMB(3.9,169,2,743,0)="""BLD"",6093,1,367,0)"
^XMB(3.9,169,2,744,0)=" "
^XMB(3.9,169,2,745,0)="""BLD"",6093,1,368,0)"
^XMB(3.9,169,2,746,0)="         7. From the 'Installation Menu' of the KIDS menu, run the"
^XMB(3.9,169,2,747,0)="""BLD"",6093,1,369,0)"
^XMB(3.9,169,2,748,0)="            option:"
^XMB(3.9,169,2,749,0)="""BLD"",6093,1,370,0)"
^XMB(3.9,169,2,750,0)="            'Install Package(s)' Select the package 'YS*5.01*90 and"
^XMB(3.9,169,2,751,0)="""BLD"",6093,1,371,0)"
^XMB(3.9,169,2,752,0)="            proceed with the install."
^XMB(3.9,169,2,753,0)="""BLD"",6093,4,0)"
^XMB(3.9,169,2,754,0)="^9.64PA^603.04^3"
^XMB(3.9,169,2,755,0)="""BLD"",6093,4,603.01,0)"
^XMB(3.9,169,2,756,0)="603.01"
^XMB(3.9,169,2,757,0)="""BLD"",6093,4,603.01,222)"
^XMB(3.9,169,2,758,0)="y^n^f^^^^n"
^XMB(3.9,169,2,759,0)="""BLD"",6093,4,603.03,0)"
^XMB(3.9,169,2,760,0)="603.03"
^XMB(3.9,169,2,761,0)="""BLD"",6093,4,603.03,222)"
^XMB(3.9,169,2,762,0)="y^n^f^^^^n"
^XMB(3.9,169,2,763,0)="""BLD"",6093,4,603.04,0)"
^XMB(3.9,169,2,764,0)="603.04"
^XMB(3.9,169,2,765,0)="""BLD"",6093,4,603.04,222)"
^XMB(3.9,169,2,766,0)="y^n^f^^n^^y^a^n"
^XMB(3.9,169,2,767,0)="""BLD"",6093,4,""B"",603.01,603.01)"
^XMB(3.9,169,2,768,0)=""
^XMB(3.9,169,2,769,0)="""BLD"",6093,4,""B"",603.03,603.03)"
^XMB(3.9,169,2,770,0)=""
^XMB(3.9,169,2,771,0)="""BLD"",6093,4,""B"",603.04,603.04)"
^XMB(3.9,169,2,772,0)=""
^XMB(3.9,169,2,773,0)="""BLD"",6093,6.3)"
^XMB(3.9,169,2,774,0)="18"
^XMB(3.9,169,2,775,0)="""BLD"",6093,""KRN"",0)"
^XMB(3.9,169,2,776,0)="^9.67PA^8989.52^19"
^XMB(3.9,169,2,777,0)="""BLD"",6093,""KRN"",.4,0)"
^XMB(3.9,169,2,778,0)=".4"
^XMB(3.9,169,2,779,0)="""BLD"",6093,""KRN"",.401,0)"
^XMB(3.9,169,2,780,0)=".401"
^XMB(3.9,169,2,781,0)="""BLD"",6093,""KRN"",.402,0)"
^XMB(3.9,169,2,782,0)=".402"
^XMB(3.9,169,2,783,0)="""BLD"",6093,""KRN"",.403,0)"
^XMB(3.9,169,2,784,0)=".403"
^XMB(3.9,169,2,785,0)="""BLD"",6093,""KRN"",.5,0)"
^XMB(3.9,169,2,786,0)=".5"
^XMB(3.9,169,2,787,0)="""BLD"",6093,""KRN"",.84,0)"
^XMB(3.9,169,2,788,0)=".84"
^XMB(3.9,169,2,789,0)="""BLD"",6093,""KRN"",3.6,0)"
^XMB(3.9,169,2,790,0)="3.6"
^XMB(3.9,169,2,791,0)="""BLD"",6093,""KRN"",3.8,0)"
^XMB(3.9,169,2,792,0)="3.8"
^XMB(3.9,169,2,793,0)="""BLD"",6093,""KRN"",9.2,0)"
^XMB(3.9,169,2,794,0)="9.2"
^XMB(3.9,169,2,795,0)="""BLD"",6093,""KRN"",9.8,0)"
^XMB(3.9,169,2,796,0)="9.8"
^XMB(3.9,169,2,797,0)="""BLD"",6093,""KRN"",9.8,""NM"",0)"
^XMB(3.9,169,2,798,0)="^9.68A^10^8"
^XMB(3.9,169,2,799,0)="""BLD"",6093,""KRN"",9.8,""NM"",1,0)"
^XMB(3.9,169,2,800,0)="YSCLSERV^^0^B62056813"
^XMB(3.9,169,2,801,0)="""BLD"",6093,""KRN"",9.8,""NM"",4,0)"
^XMB(3.9,169,2,802,0)="YSCLSRV3^^0^B46877449"
^XMB(3.9,169,2,803,0)="""BLD"",6093,""KRN"",9.8,""NM"",5,0)"
^XMB(3.9,169,2,804,0)="YSCLTEST^^0^B20876343"
^XMB(3.9,169,2,805,0)="""BLD"",6093,""KRN"",9.8,""NM"",6,0)"
^XMB(3.9,169,2,806,0)="YSCLTST1^^0^B19103633"
^XMB(3.9,169,2,807,0)="""BLD"",6093,""KRN"",9.8,""NM"",7,0)"
^XMB(3.9,169,2,808,0)="YSCLSRV2^^0^B45550399"
^XMB(3.9,169,2,809,0)="""BLD"",6093,""KRN"",9.8,""NM"",8,0)"
^XMB(3.9,169,2,810,0)="YSCLTST2^^0^B77542663"
^XMB(3.9,169,2,811,0)="""BLD"",6093,""KRN"",9.8,""NM"",9,0)"
^XMB(3.9,169,2,812,0)="YSCLTST3^^0^B59491458"
^XMB(3.9,169,2,813,0)="""BLD"",6093,""KRN"",9.8,""NM"",10,0)"
^XMB(3.9,169,2,814,0)="YSCLSRV1^^0^B2228786"
^XMB(3.9,169,2,815,0)="""BLD"",6093,""KRN"",9.8,""NM"",""B"",""YSCLSERV"",1)"
^XMB(3.9,169,2,816,0)=""
^XMB(3.9,169,2,817,0)="""BLD"",6093,""KRN"",9.8,""NM"",""B"",""YSCLSRV1"",10)"
^XMB(3.9,169,2,818,0)=""
^XMB(3.9,169,2,819,0)="""BLD"",6093,""KRN"",9.8,""NM"",""B"",""YSCLSRV2"",7)"
^XMB(3.9,169,2,820,0)=""
^XMB(3.9,169,2,821,0)="""BLD"",6093,""KRN"",9.8,""NM"",""B"",""YSCLSRV3"",4)"
^XMB(3.9,169,2,822,0)=""
^XMB(3.9,169,2,823,0)="""BLD"",6093,""KRN"",9.8,""NM"",""B"",""YSCLTEST"",5)"
^XMB(3.9,169,2,824,0)=""
^XMB(3.9,169,2,825,0)="""BLD"",6093,""KRN"",9.8,""NM"",""B"",""YSCLTST1"",6)"
^XMB(3.9,169,2,826,0)=""
^XMB(3.9,169,2,827,0)="""BLD"",6093,""KRN"",9.8,""NM"",""B"",""YSCLTST2"",8)"
^XMB(3.9,169,2,828,0)=""
^XMB(3.9,169,2,829,0)="""BLD"",6093,""KRN"",9.8,""NM"",""B"",""YSCLTST3"",9)"
^XMB(3.9,169,2,830,0)=""
^XMB(3.9,169,2,831,0)="""BLD"",6093,""KRN"",19,0)"
^XMB(3.9,169,2,832,0)="19"
^XMB(3.9,169,2,833,0)="""BLD"",6093,""KRN"",19,""NM"",0)"
^XMB(3.9,169,2,834,0)="^9.68A^1^1"
^XMB(3.9,169,2,835,0)="""BLD"",6093,""KRN"",19,""NM"",1,0)"
^XMB(3.9,169,2,836,0)="CLOZAPINE MULTI TEST LINK^^0"
^XMB(3.9,169,2,837,0)="""BLD"",6093,""KRN"",19,""NM"",""B"",""CLOZAPINE MULTI TEST LINK"",1)"
^XMB(3.9,169,2,838,0)=""
^XMB(3.9,169,2,839,0)="""BLD"",6093,""KRN"",19.1,0)"
^XMB(3.9,169,2,840,0)="19.1"
^XMB(3.9,169,2,841,0)="""BLD"",6093,""KRN"",19.1,""NM"",0)"
^XMB(3.9,169,2,842,0)="^9.68A^1^1"
^XMB(3.9,169,2,843,0)="""BLD"",6093,""KRN"",19.1,""NM"",1,0)"
^XMB(3.9,169,2,844,0)="YSCL AUTHORIZED^^0"
^XMB(3.9,169,2,845,0)="""BLD"",6093,""KRN"",19.1,""NM"",""B"",""YSCL AUTHORIZED"",1)"
^XMB(3.9,169,2,846,0)=""
^XMB(3.9,169,2,847,0)="""BLD"",6093,""KRN"",101,0)"
^XMB(3.9,169,2,848,0)="101"
^XMB(3.9,169,2,849,0)="""BLD"",6093,""KRN"",101,""NM"",0)"
^XMB(3.9,169,2,850,0)="^9.68A^^"
^XMB(3.9,169,2,851,0)="""BLD"",6093,""KRN"",409.61,0)"
^XMB(3.9,169,2,852,0)="409.61"
^XMB(3.9,169,2,853,0)="""BLD"",6093,""KRN"",771,0)"
^XMB(3.9,169,2,854,0)="771"
^XMB(3.9,169,2,855,0)="""BLD"",6093,""KRN"",870,0)"
^XMB(3.9,169,2,856,0)="870"
^XMB(3.9,169,2,857,0)="""BLD"",6093,""KRN"",8989.51,0)"
^XMB(3.9,169,2,858,0)="8989.51"
^XMB(3.9,169,2,859,0)="""BLD"",6093,""KRN"",8989.52,0)"
^XMB(3.9,169,2,860,0)="8989.52"
^XMB(3.9,169,2,861,0)="""BLD"",6093,""KRN"",8994,0)"
^XMB(3.9,169,2,862,0)="8994"
^XMB(3.9,169,2,863,0)="""BLD"",6093,""KRN"",""B"",.4,.4)"
^XMB(3.9,169,2,864,0)=""
^XMB(3.9,169,2,865,0)="""BLD"",6093,""KRN"",""B"",.401,.401)"
^XMB(3.9,169,2,866,0)=""
^XMB(3.9,169,2,867,0)="""BLD"",6093,""KRN"",""B"",.402,.402)"
^XMB(3.9,169,2,868,0)=""
^XMB(3.9,169,2,869,0)="""BLD"",6093,""KRN"",""B"",.403,.403)"
^XMB(3.9,169,2,870,0)=""
^XMB(3.9,169,2,871,0)="""BLD"",6093,""KRN"",""B"",.5,.5)"
^XMB(3.9,169,2,872,0)=""
^XMB(3.9,169,2,873,0)="""BLD"",6093,""KRN"",""B"",.84,.84)"
^XMB(3.9,169,2,874,0)=""
^XMB(3.9,169,2,875,0)="""BLD"",6093,""KRN"",""B"",3.6,3.6)"
^XMB(3.9,169,2,876,0)=""
^XMB(3.9,169,2,877,0)="""BLD"",6093,""KRN"",""B"",3.8,3.8)"
^XMB(3.9,169,2,878,0)=""
^XMB(3.9,169,2,879,0)="""BLD"",6093,""KRN"",""B"",9.2,9.2)"
^XMB(3.9,169,2,880,0)=""
^XMB(3.9,169,2,881,0)="""BLD"",6093,""KRN"",""B"",9.8,9.8)"
^XMB(3.9,169,2,882,0)=""
^XMB(3.9,169,2,883,0)="""BLD"",6093,""KRN"",""B"",19,19)"
^XMB(3.9,169,2,884,0)=""
^XMB(3.9,169,2,885,0)="""BLD"",6093,""KRN"",""B"",19.1,19.1)"
^XMB(3.9,169,2,886,0)=""
^XMB(3.9,169,2,887,0)="""BLD"",6093,""KRN"",""B"",101,101)"
^XMB(3.9,169,2,888,0)=""
^XMB(3.9,169,2,889,0)="""BLD"",6093,""KRN"",""B"",409.61,409.61)"
^XMB(3.9,169,2,890,0)=""
^XMB(3.9,169,2,891,0)="""BLD"",6093,""KRN"",""B"",771,771)"
^XMB(3.9,169,2,892,0)=""
^XMB(3.9,169,2,893,0)="""BLD"",6093,""KRN"",""B"",870,870)"
^XMB(3.9,169,2,894,0)=""
^XMB(3.9,169,2,895,0)="""BLD"",6093,""KRN"",""B"",8989.51,8989.51)"
^XMB(3.9,169,2,896,0)=""
^XMB(3.9,169,2,897,0)="""BLD"",6093,""KRN"",""B"",8989.52,8989.52)"
^XMB(3.9,169,2,898,0)=""
^XMB(3.9,169,2,899,0)="""BLD"",6093,""KRN"",""B"",8994,8994)"
^XMB(3.9,169,2,900,0)=""
^XMB(3.9,169,2,901,0)="""BLD"",6093,""QUES"",0)"
^XMB(3.9,169,2,902,0)="^9.62^^"
^XMB(3.9,169,2,903,0)="""BLD"",6093,""REQB"",0)"
^XMB(3.9,169,2,904,0)="^9.611^1^1"
^XMB(3.9,169,2,905,0)="""BLD"",6093,""REQB"",1,0)"
^XMB(3.9,169,2,906,0)="YS*5.01*74^1"
^XMB(3.9,169,2,907,0)="""BLD"",6093,""REQB"",""B"",""YS*5.01*74"",1)"
^XMB(3.9,169,2,908,0)=""
^XMB(3.9,169,2,909,0)="""DATA"",603.04,1,0)"
^XMB(3.9,169,2,910,0)="CLOZAPINE"
^XMB(3.9,169,2,911,0)="""DATA"",603.04,1,1,0)"
^XMB(3.9,169,2,912,0)="^603.41P^^0"
^XMB(3.9,169,2,913,0)="""FIA"",603.01)"
^XMB(3.9,169,2,914,0)="CLOZAPINE PATIENT LIST"
^XMB(3.9,169,2,915,0)="""FIA"",603.01,0)"
^XMB(3.9,169,2,916,0)="^YSCL(603.01,"
^XMB(3.9,169,2,917,0)="""FIA"",603.01,0,0)"
^XMB(3.9,169,2,918,0)="603.01"
^XMB(3.9,169,2,919,0)="""FIA"",603.01,0,1)"
^XMB(3.9,169,2,920,0)="y^n^f^^^^n"
^XMB(3.9,169,2,921,0)="""FIA"",603.01,0,10)"
^XMB(3.9,169,2,922,0)=""
^XMB(3.9,169,2,923,0)="""FIA"",603.01,0,11)"
^XMB(3.9,169,2,924,0)=""
^XMB(3.9,169,2,925,0)="""FIA"",603.01,0,""RLRO"")"
^XMB(3.9,169,2,926,0)=""
^XMB(3.9,169,2,927,0)="""FIA"",603.01,0,""VR"")"
^XMB(3.9,169,2,928,0)="5.01^YS"
^XMB(3.9,169,2,929,0)="""FIA"",603.01,603.01)"
^XMB(3.9,169,2,930,0)="0"
^XMB(3.9,169,2,931,0)="""FIA"",603.03)"
^XMB(3.9,169,2,932,0)="CLOZAPINE PARAMETERS"
^XMB(3.9,169,2,933,0)="""FIA"",603.03,0)"
^XMB(3.9,169,2,934,0)="^YSCL(603.03,"
^XMB(3.9,169,2,935,0)="""FIA"",603.03,0,0)"
^XMB(3.9,169,2,936,0)="603.03S"
^XMB(3.9,169,2,937,0)="""FIA"",603.03,0,1)"
^XMB(3.9,169,2,938,0)="y^n^f^^^^n"
^XMB(3.9,169,2,939,0)="""FIA"",603.03,0,10)"
^XMB(3.9,169,2,940,0)=""
^XMB(3.9,169,2,941,0)="""FIA"",603.03,0,11)"
^XMB(3.9,169,2,942,0)=""
^XMB(3.9,169,2,943,0)="""FIA"",603.03,0,""RLRO"")"
^XMB(3.9,169,2,944,0)=""
^XMB(3.9,169,2,945,0)="""FIA"",603.03,0,""VR"")"
^XMB(3.9,169,2,946,0)="5.01^YS"
^XMB(3.9,169,2,947,0)="""FIA"",603.03,603.03)"
^XMB(3.9,169,2,948,0)="0"
^XMB(3.9,169,2,949,0)="""FIA"",603.04)"
^XMB(3.9,169,2,950,0)="CLOZAPINE TESTS"
^XMB(3.9,169,2,951,0)="""FIA"",603.04,0)"
^XMB(3.9,169,2,952,0)="^YSCL(603.04,"
^XMB(3.9,169,2,953,0)="""FIA"",603.04,0,0)"
^XMB(3.9,169,2,954,0)="603.04"
^XMB(3.9,169,2,955,0)="""FIA"",603.04,0,1)"
^XMB(3.9,169,2,956,0)="y^n^f^^n^^y^a^n"
^XMB(3.9,169,2,957,0)="""FIA"",603.04,0,10)"
^XMB(3.9,169,2,958,0)=""
^XMB(3.9,169,2,959,0)="""FIA"",603.04,0,11)"
^XMB(3.9,169,2,960,0)=""
^XMB(3.9,169,2,961,0)="""FIA"",603.04,0,""RLRO"")"
^XMB(3.9,169,2,962,0)=""
^XMB(3.9,169,2,963,0)="""FIA"",603.04,0,""VR"")"
^XMB(3.9,169,2,964,0)="5.01^YS"
^XMB(3.9,169,2,965,0)="""FIA"",603.04,603.04)"
^XMB(3.9,169,2,966,0)="0"
^XMB(3.9,169,2,967,0)="""FIA"",603.04,603.41)"
^XMB(3.9,169,2,968,0)="0"
^XMB(3.9,169,2,969,0)="""KRN"",19,14338,-1)"
^XMB(3.9,169,2,970,0)="0^1"
^XMB(3.9,169,2,971,0)="""KRN"",19,14338,0)"
^XMB(3.9,169,2,972,0)="CLOZAPINE MULTI TEST LINK^Link Multiple Tests to Clozapine^^R^^^^^^^^"
^XMB(3.9,169,2,973,0)="""KRN"",19,14338,1,0)"
^XMB(3.9,169,2,974,0)="^^7^7^3060313^"
^XMB(3.9,169,2,975,0)="""KRN"",19,14338,1,1,0)"
^XMB(3.9,169,2,976,0)="This option allows the site to enter as many tests as necessary to "
^XMB(3.9,169,2,977,0)="""KRN"",19,14338,1,2,0)"
^XMB(3.9,169,2,978,0)="Clozapine.  A test representing the White Blood Count must be entered.  "
^XMB(3.9,169,2,979,0)="""KRN"",19,14338,1,3,0)"
^XMB(3.9,169,2,980,0)="Additional tests must be entered to represent the Absolute Neutrophil "
^XMB(3.9,169,2,981,0)="""KRN"",19,14338,1,4,0)"
^XMB(3.9,169,2,982,0)="Count.  These may be the Absolute Neutorphil Count, a Neutrophil "
^XMB(3.9,169,2,983,0)="""KRN"",19,14338,1,5,0)"
^XMB(3.9,169,2,984,0)="Percentage, or BANDS and SEGS.  If BANDS and SEGS are entered, both tests "
^XMB(3.9,169,2,985,0)="""KRN"",19,14338,1,6,0)"
^XMB(3.9,169,2,986,0)="must be entered.  If only one of the two are entered, dispense "
^XMB(3.9,169,2,987,0)="""KRN"",19,14338,1,7,0)"
^XMB(3.9,169,2,988,0)="authorization will not occur."
^XMB(3.9,169,2,989,0)="""KRN"",19,14338,25)"
^XMB(3.9,169,2,990,0)="TLIST^YSCLTST3"
^XMB(3.9,169,2,991,0)="""KRN"",19,14338,""U"")"
^XMB(3.9,169,2,992,0)="LINK MULTIPLE TESTS TO CLOZAPI"
^XMB(3.9,169,2,993,0)="""KRN"",19.1,518,-1)"
^XMB(3.9,169,2,994,0)="0^1"
^XMB(3.9,169,2,995,0)="""KRN"",19.1,518,0)"
^XMB(3.9,169,2,996,0)="YSCL AUTHORIZED^Authorized Clozapine provider^^n"
^XMB(3.9,169,2,997,0)="""KRN"",19.1,518,1,0)"
^XMB(3.9,169,2,998,0)="^19.11^1^1^3051130^"
^XMB(3.9,169,2,999,0)="""KRN"",19.1,518,1,1,0)"
^XMB(3.9,169,2,1000,0)="The presence of this key designates an authorized Clozapine provider."
^XMB(3.9,169,2,1001,0)="""MBREQ"")"
^XMB(3.9,169,2,1002,0)="0"
^XMB(3.9,169,2,1003,0)="""ORD"",3,19.1)"
^XMB(3.9,169,2,1004,0)="19.1;3;1;;KEY^XPDTA1;;;KEYF2^XPDIA1;;KEYDEL^XPDIA1"
^XMB(3.9,169,2,1005,0)="""ORD"",3,19.1,0)"
^XMB(3.9,169,2,1006,0)="SECURITY KEY"
^XMB(3.9,169,2,1007,0)="""ORD"",18,19)"
^XMB(3.9,169,2,1008,0)="19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA"
^XMB(3.9,169,2,1009,0)="""ORD"",18,19,0)"
^XMB(3.9,169,2,1010,0)="OPTION"
^XMB(3.9,169,2,1011,0)="""PKG"",19,-1)"
^XMB(3.9,169,2,1012,0)="1^1"
^XMB(3.9,169,2,1013,0)="""PKG"",19,0)"
^XMB(3.9,169,2,1014,0)="MENTAL HEALTH^YS^Version 5.01 of Mental Health"
^XMB(3.9,169,2,1015,0)="""PKG"",19,20,0)"
^XMB(3.9,169,2,1016,0)="^9.402P^^"
^XMB(3.9,169,2,1017,0)="""PKG"",19,22,0)"
^XMB(3.9,169,2,1018,0)="^9.49I^1^1"
^XMB(3.9,169,2,1019,0)="""PKG"",19,22,1,0)"
^XMB(3.9,169,2,1020,0)="5.01^2941230^2950331"
^XMB(3.9,169,2,1021,0)="""PKG"",19,22,1,""PAH"",1,0)"
^XMB(3.9,169,2,1022,0)="90^3060905^7"
^XMB(3.9,169,2,1023,0)="""PKG"",19,22,1,""PAH"",1,1,0)"
^XMB(3.9,169,2,1024,0)="^^371^371^3060905"
^XMB(3.9,169,2,1025,0)="""PKG"",19,22,1,""PAH"",1,1,1,0)"
^XMB(3.9,169,2,1026,0)="Recent changes in the Clozapine protocol require changes to the Clozapine "
^XMB(3.9,169,2,1027,0)="""PKG"",19,22,1,""PAH"",1,1,2,0)"
^XMB(3.9,169,2,1028,0)="Roll Up software.  Originally, all Clozapine prescriptions were limited "
^XMB(3.9,169,2,1029,0)="""PKG"",19,22,1,""PAH"",1,1,3,0)"
^XMB(3.9,169,2,1030,0)="to 7 days.  Renewals and refills were not allowed.  In addition, the "
^XMB(3.9,169,2,1031,0)="""PKG"",19,22,1,""PAH"",1,1,4,0)"
^XMB(3.9,169,2,1032,0)="Clozapine reporting software automatically discontinued any patient if "
^XMB(3.9,169,2,1033,0)="""PKG"",19,22,1,""PAH"",1,1,5,0)"
^XMB(3.9,169,2,1034,0)="the patient's prescription was over 28 days old.  This was to prevent a "
^XMB(3.9,169,2,1035,0)="""PKG"",19,22,1,""PAH"",1,1,6,0)"
^XMB(3.9,169,2,1036,0)="patient from being issued medication on an expired prescription.  The "
^XMB(3.9,169,2,1037,0)="""PKG"",19,22,1,""PAH"",1,1,7,0)"
^XMB(3.9,169,2,1038,0)="revised Clozapine protocol allows for a monthly prescription as well as "
^XMB(3.9,169,2,1039,0)="""PKG"",19,22,1,""PAH"",1,1,8,0)"
^XMB(3.9,169,2,1040,0)="weekly and bi-weekly.  The patient is now automatically discontinued if "
^XMB(3.9,169,2,1041,0)="""PKG"",19,22,1,""PAH"",1,1,9,0)"
^XMB(3.9,169,2,1042,0)="the issue date for the most recent prescription is greater than 56 days "
^XMB(3.9,169,2,1043,0)="""PKG"",19,22,1,""PAH"",1,1,10,0)"
^XMB(3.9,169,2,1044,0)="in the past."
^XMB(3.9,169,2,1045,0)="""PKG"",19,22,1,""PAH"",1,1,11,0)"
^XMB(3.9,169,2,1046,0)=" "
^XMB(3.9,169,2,1047,0)="""PKG"",19,22,1,""PAH"",1,1,12,0)"
^XMB(3.9,169,2,1048,0)="The weekly roll-up creates a report that is sent to the local G.PSOCLOZ "
^XMB(3.9,169,2,1049,0)="""PKG"",19,22,1,""PAH"",1,1,13,0)"
^XMB(3.9,169,2,1050,0)="mail group.  This report lists the patients reported to the national "
^XMB(3.9,169,2,1051,0)="""PKG"",19,22,1,""PAH"",1,1,14,0)"
^XMB(3.9,169,2,1052,0)="database along with an indicator showing whether or not Lab and RX data "
^XMB(3.9,169,2,1053,0)="""PKG"",19,22,1,""PAH"",1,1,15,0)"
^XMB(3.9,169,2,1054,0)="were transmitted.  This report has been updated to show the date of the "
^XMB(3.9,169,2,1055,0)="""PKG"",19,22,1,""PAH"",1,1,16,0)"
^XMB(3.9,169,2,1056,0)="most recent WBC (White Blood Count) and Neutrophil Count along with the "
^XMB(3.9,169,2,1057,0)="""PKG"",19,22,1,""PAH"",1,1,17,0)"
^XMB(3.9,169,2,1058,0)="date of the most recent Clozapine prescription.  Mental Health and "
^XMB(3.9,169,2,1059,0)="""PKG"",19,22,1,""PAH"",1,1,18,0)"
^XMB(3.9,169,2,1060,0)="Pharmacy personnel responsible for prescribing and dispensing Clozapine "
^XMB(3.9,169,2,1061,0)="""PKG"",19,22,1,""PAH"",1,1,19,0)"
^XMB(3.9,169,2,1062,0)="should be made aware of this mail group and given the opportunity to join."
^XMB(3.9,169,2,1063,0)="""PKG"",19,22,1,""PAH"",1,1,20,0)"
^XMB(3.9,169,2,1064,0)=" "
^XMB(3.9,169,2,1065,0)="""PKG"",19,22,1,""PAH"",1,1,21,0)"
^XMB(3.9,169,2,1066,0)="NEW OPTION:"
^XMB(3.9,169,2,1067,0)="""PKG"",19,22,1,""PAH"",1,1,22,0)"
^XMB(3.9,169,2,1068,0)="=========="
^XMB(3.9,169,2,1069,0)="""PKG"",19,22,1,""PAH"",1,1,23,0)"
^XMB(3.9,169,2,1070,0)="The Link Multiple Tests to Clozapine [CLOZAPINE MULTI TEST LINK] option "
^XMB(3.9,169,2,1071,0)="""PKG"",19,22,1,""PAH"",1,1,24,0)"
^XMB(3.9,169,2,1072,0)="must be assigned to the person or persons responsible for ensuring that "
^XMB(3.9,169,2,1073,0)="""PKG"",19,22,1,""PAH"",1,1,25,0)"
^XMB(3.9,169,2,1074,0)="the appropriate data is in place to validate Clozapine testing data.  "
^XMB(3.9,169,2,1075,0)="""PKG"",19,22,1,""PAH"",1,1,26,0)"
^XMB(3.9,169,2,1076,0)="This is usually the Laboratory ADPAC."
^XMB(3.9,169,2,1077,0)="""PKG"",19,22,1,""PAH"",1,1,27,0)"
^XMB(3.9,169,2,1078,0)=" "
^XMB(3.9,169,2,1079,0)="""PKG"",19,22,1,""PAH"",1,1,28,0)"
^XMB(3.9,169,2,1080,0)="This option will ask for the local laboratory name that equates to the "
^XMB(3.9,169,2,1081,0)="""PKG"",19,22,1,""PAH"",1,1,29,0)"
^XMB(3.9,169,2,1082,0)="following seven common test names"
^XMB(3.9,169,2,1083,0)="""PKG"",19,22,1,""PAH"",1,1,30,0)"
^XMB(3.9,169,2,1084,0)=" "
^XMB(3.9,169,2,1085,0)="""PKG"",19,22,1,""PAH"",1,1,31,0)"
^XMB(3.9,169,2,1086,0)="White Blood Cell Count"
^XMB(3.9,169,2,1087,0)="""PKG"",19,22,1,""PAH"",1,1,32,0)"
^XMB(3.9,169,2,1088,0)="Absolute Neutrophil Count"
^XMB(3.9,169,2,1089,0)="""PKG"",19,22,1,""PAH"",1,1,33,0)"
^XMB(3.9,169,2,1090,0)="Neutrophil %"
^XMB(3.9,169,2,1091,0)="""PKG"",19,22,1,""PAH"",1,1,34,0)"
^XMB(3.9,169,2,1092,0)="Segs  (Percent)"
^XMB(3.9,169,2,1093,0)="""PKG"",19,22,1,""PAH"",1,1,35,0)"
^XMB(3.9,169,2,1094,0)="Bands (Percent)"
^XMB(3.9,169,2,1095,0)="""PKG"",19,22,1,""PAH"",1,1,36,0)"
^XMB(3.9,169,2,1096,0)="Segs  (Absolute Count)"
^XMB(3.9,169,2,1097,0)="""PKG"",19,22,1,""PAH"",1,1,37,0)"
^XMB(3.9,169,2,1098,0)="Bands (Absolute Count)"
^XMB(3.9,169,2,1099,0)="""PKG"",19,22,1,""PAH"",1,1,38,0)"
^XMB(3.9,169,2,1100,0)=" "
^XMB(3.9,169,2,1101,0)="""PKG"",19,22,1,""PAH"",1,1,39,0)"
^XMB(3.9,169,2,1102,0)="You will also be asked to fill in the reporting format for each test.  "
^XMB(3.9,169,2,1103,0)="""PKG"",19,22,1,""PAH"",1,1,40,0)"
^XMB(3.9,169,2,1104,0)="Most sites report WBC and Neutrophil results in K/unit format (K/cc or "
^XMB(3.9,169,2,1105,0)="""PKG"",19,22,1,""PAH"",1,1,41,0)"
^XMB(3.9,169,2,1106,0)="K/cu mm or K/mm-3 or K/mL). For example, WBC equals 5.1.  However, some "
^XMB(3.9,169,2,1107,0)="""PKG"",19,22,1,""PAH"",1,1,42,0)"
^XMB(3.9,169,2,1108,0)="report results as discrete units. For example, WBC equals 5100.  This "
^XMB(3.9,169,2,1109,0)="""PKG"",19,22,1,""PAH"",1,1,43,0)"
^XMB(3.9,169,2,1110,0)="field will allow the site to specify how results are reported.  Entries "
^XMB(3.9,169,2,1111,0)="""PKG"",19,22,1,""PAH"",1,1,44,0)"
^XMB(3.9,169,2,1112,0)="that report in a percentage (such as Neutrophil %, Segs %, and Bands %) "
^XMB(3.9,169,2,1113,0)="""PKG"",19,22,1,""PAH"",1,1,45,0)"
^XMB(3.9,169,2,1114,0)="should use ""Percentage""."
^XMB(3.9,169,2,1115,0)="""PKG"",19,22,1,""PAH"",1,1,46,0)"
^XMB(3.9,169,2,1116,0)=" "
^XMB(3.9,169,2,1117,0)="""PKG"",19,22,1,""PAH"",1,1,47,0)"
^XMB(3.9,169,2,1118,0)="You may input as many names from the local laboratory definition for each "
^XMB(3.9,169,2,1119,0)="""PKG"",19,22,1,""PAH"",1,1,48,0)"
^XMB(3.9,169,2,1120,0)="of these tests as needed.  Remember that the laboratory may have designed "
^XMB(3.9,169,2,1121,0)="""PKG"",19,22,1,""PAH"",1,1,49,0)"
^XMB(3.9,169,2,1122,0)="special names for specific test equipment, specific test locations, or "
^XMB(3.9,169,2,1123,0)="""PKG"",19,22,1,""PAH"",1,1,50,0)"
^XMB(3.9,169,2,1124,0)="specific test conditions, such as manual counts.  "
^XMB(3.9,169,2,1125,0)="""PKG"",19,22,1,""PAH"",1,1,51,0)"
^XMB(3.9,169,2,1126,0)=" "
^XMB(3.9,169,2,1127,0)="""PKG"",19,22,1,""PAH"",1,1,52,0)"
^XMB(3.9,169,2,1128,0)="In fact, if your facility has Clozapine patients with blood samples drawn "
^XMB(3.9,169,2,1129,0)="""PKG"",19,22,1,""PAH"",1,1,53,0)"
^XMB(3.9,169,2,1130,0)="and tested on a fee-basis at other CLIA (Clinical Laboratory Improvement "
^XMB(3.9,169,2,1131,0)="""PKG"",19,22,1,""PAH"",1,1,54,0)"
^XMB(3.9,169,2,1132,0)="Amendments) approved labs, it is extremely important for your Laboratory "
^XMB(3.9,169,2,1133,0)="""PKG"",19,22,1,""PAH"",1,1,55,0)"
^XMB(3.9,169,2,1134,0)="have tests to accept manual input of these tests.  "
^XMB(3.9,169,2,1135,0)="""PKG"",19,22,1,""PAH"",1,1,56,0)"
^XMB(3.9,169,2,1136,0)=" "
^XMB(3.9,169,2,1137,0)="""PKG"",19,22,1,""PAH"",1,1,57,0)"
^XMB(3.9,169,2,1138,0)="Therefore, you should involve laboratory managers or ADPAC (Automated "
^XMB(3.9,169,2,1139,0)="""PKG"",19,22,1,""PAH"",1,1,58,0)"
^XMB(3.9,169,2,1140,0)="Data Processing Application Coordinator) in selection of these names - "
^XMB(3.9,169,2,1141,0)="""PKG"",19,22,1,""PAH"",1,1,59,0)"
^XMB(3.9,169,2,1142,0)="both to define the test names currently in use and to create the "
^XMB(3.9,169,2,1143,0)="""PKG"",19,22,1,""PAH"",1,1,60,0)"
^XMB(3.9,169,2,1144,0)="provision for manual entry of data.  Please be certain every possible "
^XMB(3.9,169,2,1145,0)="""PKG"",19,22,1,""PAH"",1,1,61,0)"
^XMB(3.9,169,2,1146,0)="local laboratory name that represents these tests is entered that relates "
^XMB(3.9,169,2,1147,0)="""PKG"",19,22,1,""PAH"",1,1,62,0)"
^XMB(3.9,169,2,1148,0)="to each of the seven test names above.  Pharmacy dispense will be "
^XMB(3.9,169,2,1149,0)="""PKG"",19,22,1,""PAH"",1,1,63,0)"
^XMB(3.9,169,2,1150,0)="prevented unless the program can find the needed test results under one "
^XMB(3.9,169,2,1151,0)="""PKG"",19,22,1,""PAH"",1,1,64,0)"
^XMB(3.9,169,2,1152,0)="of names you identify as an equivalent for each of the seven tests."
^XMB(3.9,169,2,1153,0)="""PKG"",19,22,1,""PAH"",1,1,65,0)"
^XMB(3.9,169,2,1154,0)=" "
^XMB(3.9,169,2,1155,0)="""PKG"",19,22,1,""PAH"",1,1,66,0)"
^XMB(3.9,169,2,1156,0)="Security Key: The YSCL AUTHORIZED Security Key is new with this patch.  "
^XMB(3.9,169,2,1157,0)="""PKG"",19,22,1,""PAH"",1,1,67,0)"
^XMB(3.9,169,2,1158,0)=" This key must be assigned to each provider authorized to dispense "
^XMB(3.9,169,2,1159,0)="""PKG"",19,22,1,""PAH"",1,1,68,0)"
^XMB(3.9,169,2,1160,0)=" Clozapine."
^XMB(3.9,169,2,1161,0)="""PKG"",19,22,1,""PAH"",1,1,69,0)"
^XMB(3.9,169,2,1162,0)=" "
^XMB(3.9,169,2,1163,0)="""PKG"",19,22,1,""PAH"",1,1,70,0)"
^XMB(3.9,169,2,1164,0)="EXAMPLE: CLOZAPINE MULTI TEST LINK [Link Multiple Tests to Clozapine] "
^XMB(3.9,169,2,1165,0)="""PKG"",19,22,1,""PAH"",1,1,71,0)"
^XMB(3.9,169,2,1166,0)="option"
^XMB(3.9,169,2,1167,0)="""PKG"",19,22,1,""PAH"",1,1,72,0)"
^XMB(3.9,169,2,1168,0)=" "
^XMB(3.9,169,2,1169,0)="""PKG"",19,22,1,""PAH"",1,1,73,0)"
^XMB(3.9,169,2,1170,0)="Select OPTION NAME: CLOZ"
^XMB(3.9,169,2,1171,0)="""PKG"",19,22,1,""PAH"",1,1,74,0)"
^XMB(3.9,169,2,1172,0)="     1   CLOZAPINE MULTI TEST LINK       Link Multiple Tests to Clozapine"
^XMB(3.9,169,2,1173,0)="""PKG"",19,22,1,""PAH"",1,1,75,0)"
^XMB(3.9,169,2,1174,0)="     2   CLOZAPINE DATA SERVER  YSCLSERVER     Clozapine Data Server"
^XMB(3.9,169,2,1175,0)="""PKG"",19,22,1,""PAH"",1,1,76,0)"
^XMB(3.9,169,2,1176,0)="     3   CLOZAPINE PHARMACY MANAGER  PSOL MANAGER     Clozapine Pharmacy "
^XMB(3.9,169,2,1177,0)="""PKG"",19,22,1,""PAH"",1,1,77,0)"
^XMB(3.9,169,2,1178,0)="Manager"
^XMB(3.9,169,2,1179,0)="""PKG"",19,22,1,""PAH"",1,1,78,0)"
^XMB(3.9,169,2,1180,0)="     4   CLOZAPINE TEST LINK  YSCL TEST LINK     Clozapine Test Link"
^XMB(3.9,169,2,1181,0)="""PKG"",19,22,1,""PAH"",1,1,79,0)"
^XMB(3.9,169,2,1182,0)="CHOOSE 1-4: 1  CLOZAPINE MULTI TEST LINK     Link Multiple Tests to "
^XMB(3.9,169,2,1183,0)="""PKG"",19,22,1,""PAH"",1,1,80,0)"
^XMB(3.9,169,2,1184,0)="Clozapine "
^XMB(3.9,169,2,1185,0)="""PKG"",19,22,1,""PAH"",1,1,81,0)"
^XMB(3.9,169,2,1186,0)="Link Multiple Tests to Clozapine"
^XMB(3.9,169,2,1187,0)="""PKG"",19,22,1,""PAH"",1,1,82,0)"
^XMB(3.9,169,2,1188,0)="Currently linked Tests:"
^XMB(3.9,169,2,1189,0)="""PKG"",19,22,1,""PAH"",1,1,83,0)"
^XMB(3.9,169,2,1190,0)="NEUTROPHIL MATURITY, MEAN represents WHITE BLOOD COUNT"
^XMB(3.9,169,2,1191,0)="""PKG"",19,22,1,""PAH"",1,1,84,0)"
^XMB(3.9,169,2,1192,0)="SEGS represents BANDS %"
^XMB(3.9,169,2,1193,0)="""PKG"",19,22,1,""PAH"",1,1,85,0)"
^XMB(3.9,169,2,1194,0)=" "
^XMB(3.9,169,2,1195,0)="""PKG"",19,22,1,""PAH"",1,1,86,0)"
^XMB(3.9,169,2,1196,0)="Enter the name of the test for Clozapine: WBC       WBC"
^XMB(3.9,169,2,1197,0)="""PKG"",19,22,1,""PAH"",1,1,87,0)"
^XMB(3.9,169,2,1198,0)="Enter the type of the test for Clozapine: ?"
^XMB(3.9,169,2,1199,0)="""PKG"",19,22,1,""PAH"",1,1,88,0)"
^XMB(3.9,169,2,1200,0)=" "
^XMB(3.9,169,2,1201,0)="""PKG"",19,22,1,""PAH"",1,1,89,0)"
^XMB(3.9,169,2,1202,0)="Enter a code from the list."
^XMB(3.9,169,2,1203,0)="""PKG"",19,22,1,""PAH"",1,1,90,0)"
^XMB(3.9,169,2,1204,0)=" "
^XMB(3.9,169,2,1205,0)="""PKG"",19,22,1,""PAH"",1,1,91,0)"
^XMB(3.9,169,2,1206,0)="     Select one of the following:"
^XMB(3.9,169,2,1207,0)="""PKG"",19,22,1,""PAH"",1,1,92,0)"
^XMB(3.9,169,2,1208,0)=" "
^XMB(3.9,169,2,1209,0)="""PKG"",19,22,1,""PAH"",1,1,93,0)"
^XMB(3.9,169,2,1210,0)="          W         WHITE BLOOD COUNT"
^XMB(3.9,169,2,1211,0)="""PKG"",19,22,1,""PAH"",1,1,94,0)"
^XMB(3.9,169,2,1212,0)="          A         ABSOLUTE NEUTROPHIL COUNT"
^XMB(3.9,169,2,1213,0)="""PKG"",19,22,1,""PAH"",1,1,95,0)"
^XMB(3.9,169,2,1214,0)="          N         NEUTROPHIL PERCENT"
^XMB(3.9,169,2,1215,0)="""PKG"",19,22,1,""PAH"",1,1,96,0)"
^XMB(3.9,169,2,1216,0)="          S         SEGS %"
^XMB(3.9,169,2,1217,0)="""PKG"",19,22,1,""PAH"",1,1,97,0)"
^XMB(3.9,169,2,1218,0)="          B         BANDS %"
^XMB(3.9,169,2,1219,0)="""PKG"",19,22,1,""PAH"",1,1,98,0)"
^XMB(3.9,169,2,1220,0)="          T         BANDS ABSOLUTE"
^XMB(3.9,169,2,1221,0)="""PKG"",19,22,1,""PAH"",1,1,99,0)"
^XMB(3.9,169,2,1222,0)="          C         SEGS ABSOLUTE"
^XMB(3.9,169,2,1223,0)="""PKG"",19,22,1,""PAH"",1,1,100,0)"
^XMB(3.9,169,2,1224,0)=" "
^XMB(3.9,169,2,1225,0)="""PKG"",19,22,1,""PAH"",1,1,101,0)"
^XMB(3.9,169,2,1226,0)="Enter the type of the test for Clozapine: WHITE BLOOD COUNT"
^XMB(3.9,169,2,1227,0)="""PKG"",19,22,1,""PAH"",1,1,102,0)"
^XMB(3.9,169,2,1228,0)="Enter the reporting method of the test for Clozapine: ?"
^XMB(3.9,169,2,1229,0)="""PKG"",19,22,1,""PAH"",1,1,103,0)"
^XMB(3.9,169,2,1230,0)=" "
^XMB(3.9,169,2,1231,0)="""PKG"",19,22,1,""PAH"",1,1,104,0)"
^XMB(3.9,169,2,1232,0)="Enter a code from the list."
^XMB(3.9,169,2,1233,0)="""PKG"",19,22,1,""PAH"",1,1,105,0)"
^XMB(3.9,169,2,1234,0)=" "
^XMB(3.9,169,2,1235,0)="""PKG"",19,22,1,""PAH"",1,1,106,0)"
^XMB(3.9,169,2,1236,0)="     Select one of the following:"
^XMB(3.9,169,2,1237,0)="""PKG"",19,22,1,""PAH"",1,1,107,0)"
^XMB(3.9,169,2,1238,0)=" "
^XMB(3.9,169,2,1239,0)="""PKG"",19,22,1,""PAH"",1,1,108,0)"
^XMB(3.9,169,2,1240,0)="          0         uL"
^XMB(3.9,169,2,1241,0)="""PKG"",19,22,1,""PAH"",1,1,109,0)"
^XMB(3.9,169,2,1242,0)="          1         K/uL"
^XMB(3.9,169,2,1243,0)="""PKG"",19,22,1,""PAH"",1,1,110,0)"
^XMB(3.9,169,2,1244,0)="          2         Percent"
^XMB(3.9,169,2,1245,0)="""PKG"",19,22,1,""PAH"",1,1,111,0)"
^XMB(3.9,169,2,1246,0)=" "
^XMB(3.9,169,2,1247,0)="""PKG"",19,22,1,""PAH"",1,1,112,0)"
^XMB(3.9,169,2,1248,0)="Enter the reporting method of the test for Clozapine: 2  Percent"
^XMB(3.9,169,2,1249,0)="""PKG"",19,22,1,""PAH"",1,1,113,0)"
^XMB(3.9,169,2,1250,0)=" "
^XMB(3.9,169,2,1251,0)="""PKG"",19,22,1,""PAH"",1,1,114,0)"
^XMB(3.9,169,2,1252,0)="Enter the name of the test for Clozapine:"
^XMB(3.9,169,2,1253,0)="""PKG"",19,22,1,""PAH"",1,1,115,0)"
^XMB(3.9,169,2,1254,0)=" "
^XMB(3.9,169,2,1255,0)="""PKG"",19,22,1,""PAH"",1,1,116,0)"
^XMB(3.9,169,2,1256,0)="The FDA (Food and Drug Administration) uses White Blood Cell Count and "
^XMB(3.9,169,2,1257,0)="""PKG"",19,22,1,""PAH"",1,1,117,0)"
^XMB(3.9,169,2,1258,0)="Absolute Neutrophil Count as the definitive tests to verify for Clozapine "
^XMB(3.9,169,2,1259,0)="""PKG"",19,22,1,""PAH"",1,1,118,0)"
^XMB(3.9,169,2,1260,0)="use, however your lab may report your data under any of the names you "
^XMB(3.9,169,2,1261,0)="""PKG"",19,22,1,""PAH"",1,1,119,0)"
^XMB(3.9,169,2,1262,0)="enter into these lists.  If the WBC and ANC are not directly available, "
^XMB(3.9,169,2,1263,0)="""PKG"",19,22,1,""PAH"",1,1,120,0)"
^XMB(3.9,169,2,1264,0)="ANC will be calculated from the other data available and presented to "
^XMB(3.9,169,2,1265,0)="""PKG"",19,22,1,""PAH"",1,1,121,0)"
^XMB(3.9,169,2,1266,0)="Pharmacy (and CPRS (Computerized Patient Record System) during a later "
^XMB(3.9,169,2,1267,0)="""PKG"",19,22,1,""PAH"",1,1,122,0)"
^XMB(3.9,169,2,1268,0)="revision) at the time of dispense and used to evaluate the safety under "
^XMB(3.9,169,2,1269,0)="""PKG"",19,22,1,""PAH"",1,1,123,0)"
^XMB(3.9,169,2,1270,0)="FDA limits.  Only the most recent WBC will be accepted, and the date and "
^XMB(3.9,169,2,1271,0)="""PKG"",19,22,1,""PAH"",1,1,124,0)"
^XMB(3.9,169,2,1272,0)="time stamp of the Neutrophil count must match the date and time stamp of "
^XMB(3.9,169,2,1273,0)="""PKG"",19,22,1,""PAH"",1,1,125,0)"
^XMB(3.9,169,2,1274,0)="the WBC."
^XMB(3.9,169,2,1275,0)="""PKG"",19,22,1,""PAH"",1,1,126,0)"
^XMB(3.9,169,2,1276,0)=" "
^XMB(3.9,169,2,1277,0)="""PKG"",19,22,1,""PAH"",1,1,127,0)"
^XMB(3.9,169,2,1278,0)=" "
^XMB(3.9,169,2,1279,0)="""PKG"",19,22,1,""PAH"",1,1,128,0)"
^XMB(3.9,169,2,1280,0)="WHITE BLOOD CELL  (WBC)"
^XMB(3.9,169,2,1281,0)="""PKG"",19,22,1,""PAH"",1,1,129,0)"
^XMB(3.9,169,2,1282,0)=" "
^XMB(3.9,169,2,1283,0)="""PKG"",19,22,1,""PAH"",1,1,130,0)"
^XMB(3.9,169,2,1284,0)="For reference  ""White Blood Cell Count"" is a portion of the total blood "
^XMB(3.9,169,2,1285,0)="""PKG"",19,22,1,""PAH"",1,1,131,0)"
^XMB(3.9,169,2,1286,0)="content and the sum total of two different kinds of cells - "
^XMB(3.9,169,2,1287,0)="""PKG"",19,22,1,""PAH"",1,1,132,0)"
^XMB(3.9,169,2,1288,0)=" "
^XMB(3.9,169,2,1289,0)="""PKG"",19,22,1,""PAH"",1,1,133,0)"
^XMB(3.9,169,2,1290,0)="         AGRANULOCYTES - those cells which do not have granules"
^XMB(3.9,169,2,1291,0)="""PKG"",19,22,1,""PAH"",1,1,134,0)"
^XMB(3.9,169,2,1292,0)="         that absorb a stain.  These cells are subdivided"
^XMB(3.9,169,2,1293,0)="""PKG"",19,22,1,""PAH"",1,1,135,0)"
^XMB(3.9,169,2,1294,0)="         into Lymphocytes and Monocytes. "
^XMB(3.9,169,2,1295,0)="""PKG"",19,22,1,""PAH"",1,1,136,0)"
^XMB(3.9,169,2,1296,0)=" "
^XMB(3.9,169,2,1297,0)="""PKG"",19,22,1,""PAH"",1,1,137,0)"
^XMB(3.9,169,2,1298,0)="         GRANULOCYTES  -- those cells which contain granules"
^XMB(3.9,169,2,1299,0)="""PKG"",19,22,1,""PAH"",1,1,138,0)"
^XMB(3.9,169,2,1300,0)="         that absorb a stain.  These cells are subdivided"
^XMB(3.9,169,2,1301,0)="""PKG"",19,22,1,""PAH"",1,1,139,0)"
^XMB(3.9,169,2,1302,0)="         into Neutrophils, Basophils, and Eosinophils.  "
^XMB(3.9,169,2,1303,0)="""PKG"",19,22,1,""PAH"",1,1,140,0)"
^XMB(3.9,169,2,1304,0)=" "
^XMB(3.9,169,2,1305,0)="""PKG"",19,22,1,""PAH"",1,1,141,0)"
^XMB(3.9,169,2,1306,0)="Both Agranulocytes and Granulocytes are part of the Total White Blood "
^XMB(3.9,169,2,1307,0)="""PKG"",19,22,1,""PAH"",1,1,142,0)"
^XMB(3.9,169,2,1308,0)="Cell Count.  Therefore, the total WBC is the sum of five different types "
^XMB(3.9,169,2,1309,0)="""PKG"",19,22,1,""PAH"",1,1,143,0)"
^XMB(3.9,169,2,1310,0)="of cells.  "
^XMB(3.9,169,2,1311,0)="""PKG"",19,22,1,""PAH"",1,1,144,0)"
^XMB(3.9,169,2,1312,0)=" "
^XMB(3.9,169,2,1313,0)="""PKG"",19,22,1,""PAH"",1,1,145,0)"
^XMB(3.9,169,2,1314,0)="WBC as well as its five components are usually expressed as the total "
^XMB(3.9,169,2,1315,0)="""PKG"",19,22,1,""PAH"",1,1,146,0)"
^XMB(3.9,169,2,1316,0)="number of cells in a cubic centimeter of blood (cc) or cubic millimeter "
^XMB(3.9,169,2,1317,0)="""PKG"",19,22,1,""PAH"",1,1,147,0)"
^XMB(3.9,169,2,1318,0)="(cu mm or mm-3)or milliliters (mL).  "
^XMB(3.9,169,2,1319,0)="""PKG"",19,22,1,""PAH"",1,1,148,0)"
^XMB(3.9,169,2,1320,0)=" "
^XMB(3.9,169,2,1321,0)="""PKG"",19,22,1,""PAH"",1,1,149,0)"
^XMB(3.9,169,2,1322,0)="WBC usually falls with a range between 4000 and 11,000 but fluctuates for "
^XMB(3.9,169,2,1323,0)="""PKG"",19,22,1,""PAH"",1,1,150,0)"
^XMB(3.9,169,2,1324,0)="a number of medical reasons.  For brevity, WBC results may be divided by "
^XMB(3.9,169,2,1325,0)="""PKG"",19,22,1,""PAH"",1,1,151,0)"
^XMB(3.9,169,2,1326,0)="1000 and presented as K/cc or K/cu mm or K/mm-3 or K/mL"
^XMB(3.9,169,2,1327,0)="""PKG"",19,22,1,""PAH"",1,1,152,0)"
^XMB(3.9,169,2,1328,0)=" "
^XMB(3.9,169,2,1329,0)="""PKG"",19,22,1,""PAH"",1,1,153,0)"
^XMB(3.9,169,2,1330,0)=" "
^XMB(3.9,169,2,1331,0)="""PKG"",19,22,1,""PAH"",1,1,154,0)"
^XMB(3.9,169,2,1332,0)="The five components are similarly expressed as number of the same type OR "
^XMB(3.9,169,2,1333,0)="""PKG"",19,22,1,""PAH"",1,1,155,0)"
^XMB(3.9,169,2,1334,0)="as a percentage of the total WBC.  "
^XMB(3.9,169,2,1335,0)="""PKG"",19,22,1,""PAH"",1,1,156,0)"
^XMB(3.9,169,2,1336,0)=" "
^XMB(3.9,169,2,1337,0)="""PKG"",19,22,1,""PAH"",1,1,157,0)"
^XMB(3.9,169,2,1338,0)="The sum of counts of the five components of should equal the total WBC OR "
^XMB(3.9,169,2,1339,0)="""PKG"",19,22,1,""PAH"",1,1,158,0)"
^XMB(3.9,169,2,1340,0)="the sum of the percentages of the five components should equal 100%"
^XMB(3.9,169,2,1341,0)="""PKG"",19,22,1,""PAH"",1,1,159,0)"
^XMB(3.9,169,2,1342,0)=" "
^XMB(3.9,169,2,1343,0)="""PKG"",19,22,1,""PAH"",1,1,160,0)"
^XMB(3.9,169,2,1344,0)="This test is sometimes also referred to as ""Leukocyte Count"" "
^XMB(3.9,169,2,1345,0)="""PKG"",19,22,1,""PAH"",1,1,161,0)"
^XMB(3.9,169,2,1346,0)=" "
^XMB(3.9,169,2,1347,0)="""PKG"",19,22,1,""PAH"",1,1,162,0)"
^XMB(3.9,169,2,1348,0)=" "
^XMB(3.9,169,2,1349,0)="""PKG"",19,22,1,""PAH"",1,1,163,0)"
^XMB(3.9,169,2,1350,0)="Absolute Neutrophil Count (ANC)"
^XMB(3.9,169,2,1351,0)="""PKG"",19,22,1,""PAH"",1,1,164,0)"
^XMB(3.9,169,2,1352,0)=" "
^XMB(3.9,169,2,1353,0)="""PKG"",19,22,1,""PAH"",1,1,165,0)"
^XMB(3.9,169,2,1354,0)="The Absolute Neutrophil Count is the total number of Neutrophil cells in "
^XMB(3.9,169,2,1355,0)="""PKG"",19,22,1,""PAH"",1,1,166,0)"
^XMB(3.9,169,2,1356,0)="the total WBC count.  The other GRANULOCYTE cells - Basophils and "
^XMB(3.9,169,2,1357,0)="""PKG"",19,22,1,""PAH"",1,1,167,0)"
^XMB(3.9,169,2,1358,0)="Eosinophils (see White Blood Cell Count above) - are not included in this "
^XMB(3.9,169,2,1359,0)="""PKG"",19,22,1,""PAH"",1,1,168,0)"
^XMB(3.9,169,2,1360,0)="number.  Therefore - a test titled GRANULOCYTES - may not produce the "
^XMB(3.9,169,2,1361,0)="""PKG"",19,22,1,""PAH"",1,1,169,0)"
^XMB(3.9,169,2,1362,0)="desired result as it may include Basophils and Eosinophils."
^XMB(3.9,169,2,1363,0)="""PKG"",19,22,1,""PAH"",1,1,170,0)"
^XMB(3.9,169,2,1364,0)=" "
^XMB(3.9,169,2,1365,0)="""PKG"",19,22,1,""PAH"",1,1,171,0)"
^XMB(3.9,169,2,1366,0)="Since the ANC is a portion of the WBC, it is only valid if it is "
^XMB(3.9,169,2,1367,0)="""PKG"",19,22,1,""PAH"",1,1,172,0)"
^XMB(3.9,169,2,1368,0)="traceable to the WBC sample drawn at the same date and time.  "
^XMB(3.9,169,2,1369,0)="""PKG"",19,22,1,""PAH"",1,1,173,0)"
^XMB(3.9,169,2,1370,0)=" "
^XMB(3.9,169,2,1371,0)="""PKG"",19,22,1,""PAH"",1,1,174,0)"
^XMB(3.9,169,2,1372,0)="ANC is a count and not a percentage - expressed as WBC with the total "
^XMB(3.9,169,2,1373,0)="""PKG"",19,22,1,""PAH"",1,1,175,0)"
^XMB(3.9,169,2,1374,0)="number of cells in a cubic centimeter of blood (cc) or cubic millimeter "
^XMB(3.9,169,2,1375,0)="""PKG"",19,22,1,""PAH"",1,1,176,0)"
^XMB(3.9,169,2,1376,0)="(cu mm or mm-3)or milliliters (mL).  Again, this number may be divided by "
^XMB(3.9,169,2,1377,0)="""PKG"",19,22,1,""PAH"",1,1,177,0)"
^XMB(3.9,169,2,1378,0)="a thousand for brevity.  "
^XMB(3.9,169,2,1379,0)="""PKG"",19,22,1,""PAH"",1,1,178,0)"
^XMB(3.9,169,2,1380,0)=" "
^XMB(3.9,169,2,1381,0)="""PKG"",19,22,1,""PAH"",1,1,179,0)"
^XMB(3.9,169,2,1382,0)="The Absolute Neutrophil Count generally ranges from 1600 to 7700 / but it "
^XMB(3.9,169,2,1383,0)="""PKG"",19,22,1,""PAH"",1,1,180,0)"
^XMB(3.9,169,2,1384,0)="can ever exceed the WBC count.  "
^XMB(3.9,169,2,1385,0)="""PKG"",19,22,1,""PAH"",1,1,181,0)"
^XMB(3.9,169,2,1386,0)=" "
^XMB(3.9,169,2,1387,0)="""PKG"",19,22,1,""PAH"",1,1,182,0)"
^XMB(3.9,169,2,1388,0)="This test can also be knows as polymorphonuclear cells or PMN's. "
^XMB(3.9,169,2,1389,0)="""PKG"",19,22,1,""PAH"",1,1,183,0)"
^XMB(3.9,169,2,1390,0)=" "
^XMB(3.9,169,2,1391,0)="""PKG"",19,22,1,""PAH"",1,1,184,0)"
^XMB(3.9,169,2,1392,0)=" "
^XMB(3.9,169,2,1393,0)="""PKG"",19,22,1,""PAH"",1,1,185,0)"
^XMB(3.9,169,2,1394,0)="Neutrophil Percent  (Neut%)"
^XMB(3.9,169,2,1395,0)="""PKG"",19,22,1,""PAH"",1,1,186,0)"
^XMB(3.9,169,2,1396,0)=" "
^XMB(3.9,169,2,1397,0)="""PKG"",19,22,1,""PAH"",1,1,187,0)"
^XMB(3.9,169,2,1398,0)="The Neutrophil Percent is the portion of the total WBC and that is "
^XMB(3.9,169,2,1399,0)="""PKG"",19,22,1,""PAH"",1,1,188,0)"
^XMB(3.9,169,2,1400,0)="composed of Neutrophil cells, excluding all agranulocytes and other "
^XMB(3.9,169,2,1401,0)="""PKG"",19,22,1,""PAH"",1,1,189,0)"
^XMB(3.9,169,2,1402,0)="granulocytes.  This number is usually between 40% and 70%, but fluctuates "
^XMB(3.9,169,2,1403,0)="""PKG"",19,22,1,""PAH"",1,1,190,0)"
^XMB(3.9,169,2,1404,0)="for many medical reasons.  "
^XMB(3.9,169,2,1405,0)="""PKG"",19,22,1,""PAH"",1,1,191,0)"
^XMB(3.9,169,2,1406,0)=" "
^XMB(3.9,169,2,1407,0)="""PKG"",19,22,1,""PAH"",1,1,192,0)"
^XMB(3.9,169,2,1408,0)="Since it is reported as a portion of the total WBC, it is only valid if "
^XMB(3.9,169,2,1409,0)="""PKG"",19,22,1,""PAH"",1,1,193,0)"
^XMB(3.9,169,2,1410,0)="it is traceable to the WBC sample drawn at the same date and time.  "
^XMB(3.9,169,2,1411,0)="""PKG"",19,22,1,""PAH"",1,1,194,0)"
^XMB(3.9,169,2,1412,0)=" "
^XMB(3.9,169,2,1413,0)="""PKG"",19,22,1,""PAH"",1,1,195,0)"
^XMB(3.9,169,2,1414,0)="Neut% is commonly obtained by automatic testing equipment to represent "
^XMB(3.9,169,2,1415,0)="""PKG"",19,22,1,""PAH"",1,1,196,0)"
^XMB(3.9,169,2,1416,0)="the Neutrophil content in the blood.  "
^XMB(3.9,169,2,1417,0)="""PKG"",19,22,1,""PAH"",1,1,197,0)"
^XMB(3.9,169,2,1418,0)=" "
^XMB(3.9,169,2,1419,0)="""PKG"",19,22,1,""PAH"",1,1,198,0)"
^XMB(3.9,169,2,1420,0)="Neut% is a percentage and not a count - reported in the portion of the "
^XMB(3.9,169,2,1421,0)="""PKG"",19,22,1,""PAH"",1,1,199,0)"
^XMB(3.9,169,2,1422,0)="WBC.  It can be converted into an Absolute Neutrophil Count in the "
^XMB(3.9,169,2,1423,0)="""PKG"",19,22,1,""PAH"",1,1,200,0)"
^XMB(3.9,169,2,1424,0)="following formula (Neutrophil% / 100) X WBC count).  "
^XMB(3.9,169,2,1425,0)="""PKG"",19,22,1,""PAH"",1,1,201,0)"
^XMB(3.9,169,2,1426,0)=" "
^XMB(3.9,169,2,1427,0)="""PKG"",19,22,1,""PAH"",1,1,202,0)"
^XMB(3.9,169,2,1428,0)="The Neutrophil Percent generally ranges from 37% to 80% and should never "
^XMB(3.9,169,2,1429,0)="""PKG"",19,22,1,""PAH"",1,1,203,0)"
^XMB(3.9,169,2,1430,0)="exceed 90% of the total WBC count unless special medical conditions are "
^XMB(3.9,169,2,1431,0)="""PKG"",19,22,1,""PAH"",1,1,204,0)"
^XMB(3.9,169,2,1432,0)="present.  "
^XMB(3.9,169,2,1433,0)="""PKG"",19,22,1,""PAH"",1,1,205,0)"
^XMB(3.9,169,2,1434,0)=" "
^XMB(3.9,169,2,1435,0)="""PKG"",19,22,1,""PAH"",1,1,206,0)"
^XMB(3.9,169,2,1436,0)=" "
^XMB(3.9,169,2,1437,0)="""PKG"",19,22,1,""PAH"",1,1,207,0)"
^XMB(3.9,169,2,1438,0)="SEGS  & BANDS  "
^XMB(3.9,169,2,1439,0)="""PKG"",19,22,1,""PAH"",1,1,208,0)"
^XMB(3.9,169,2,1440,0)=" "
^XMB(3.9,169,2,1441,0)="""PKG"",19,22,1,""PAH"",1,1,209,0)"
^XMB(3.9,169,2,1442,0)="The WBC/Granulocyte/Neutrophil cell type can be further subdivided into "
^XMB(3.9,169,2,1443,0)="""PKG"",19,22,1,""PAH"",1,1,210,0)"
^XMB(3.9,169,2,1444,0)="two types.  Mature neutrophils are called SEGS.  Immature neutrophils "
^XMB(3.9,169,2,1445,0)="""PKG"",19,22,1,""PAH"",1,1,211,0)"
^XMB(3.9,169,2,1446,0)="called BANDS also circulate in the blood until they mature into SEGS.  "
^XMB(3.9,169,2,1447,0)="""PKG"",19,22,1,""PAH"",1,1,212,0)"
^XMB(3.9,169,2,1448,0)="The sum of SEGS and BANDS is equal to the ANC of a give WBC count.  "
^XMB(3.9,169,2,1449,0)="""PKG"",19,22,1,""PAH"",1,1,213,0)"
^XMB(3.9,169,2,1450,0)=" "
^XMB(3.9,169,2,1451,0)="""PKG"",19,22,1,""PAH"",1,1,214,0)"
^XMB(3.9,169,2,1452,0)="SEGS and BANDS may be reported as a count, expressed in cc, mm-3, cu mm, "
^XMB(3.9,169,2,1453,0)="""PKG"",19,22,1,""PAH"",1,1,215,0)"
^XMB(3.9,169,2,1454,0)="or mL.  A preceding K indicates the number has been divided by 1000.  "
^XMB(3.9,169,2,1455,0)="""PKG"",19,22,1,""PAH"",1,1,216,0)"
^XMB(3.9,169,2,1456,0)=" "
^XMB(3.9,169,2,1457,0)="""PKG"",19,22,1,""PAH"",1,1,217,0)"
^XMB(3.9,169,2,1458,0)="When SEGS and BANDS are reported as a number, the sum total of SEGS and "
^XMB(3.9,169,2,1459,0)="""PKG"",19,22,1,""PAH"",1,1,218,0)"
^XMB(3.9,169,2,1460,0)="BANDS equals the total Neutrophil Count (ANC)  NOTE that the program "
^XMB(3.9,169,2,1461,0)="""PKG"",19,22,1,""PAH"",1,1,219,0)"
^XMB(3.9,169,2,1462,0)="needs an identifying test for both SEGS and BANDS.  Reporting SEGS "
^XMB(3.9,169,2,1463,0)="""PKG"",19,22,1,""PAH"",1,1,220,0)"
^XMB(3.9,169,2,1464,0)="without a parallel result from BANDS will result in an error condition "
^XMB(3.9,169,2,1465,0)="""PKG"",19,22,1,""PAH"",1,1,221,0)"
^XMB(3.9,169,2,1466,0)="that may prevent Pharmacy dispense.  "
^XMB(3.9,169,2,1467,0)="""PKG"",19,22,1,""PAH"",1,1,222,0)"
^XMB(3.9,169,2,1468,0)=" "
^XMB(3.9,169,2,1469,0)="""PKG"",19,22,1,""PAH"",1,1,223,0)"
^XMB(3.9,169,2,1470,0)="This number generally ranges between 1600 and 7700 / cu mm.  It should "
^XMB(3.9,169,2,1471,0)="""PKG"",19,22,1,""PAH"",1,1,224,0)"
^XMB(3.9,169,2,1472,0)="never exceed 90% of the total WBC except under special circumstances. "
^XMB(3.9,169,2,1473,0)="""PKG"",19,22,1,""PAH"",1,1,225,0)"
^XMB(3.9,169,2,1474,0)=" "
^XMB(3.9,169,2,1475,0)="""PKG"",19,22,1,""PAH"",1,1,226,0)"
^XMB(3.9,169,2,1476,0)="SEGS and BANDS may be reported as a PERCENTAGE of the total WBC.  "
^XMB(3.9,169,2,1477,0)="""PKG"",19,22,1,""PAH"",1,1,227,0)"
^XMB(3.9,169,2,1478,0)="Therefore the total number of neutrophils (ANC) in a give WBC is = total "
^XMB(3.9,169,2,1479,0)="""PKG"",19,22,1,""PAH"",1,1,228,0)"
^XMB(3.9,169,2,1480,0)="WBC  X  (% Segs  + % Bands).  This calculation will be performed by the "
^XMB(3.9,169,2,1481,0)="""PKG"",19,22,1,""PAH"",1,1,229,0)"
^XMB(3.9,169,2,1482,0)="Pharmacy patch to obtain and ANC when necessary"
^XMB(3.9,169,2,1483,0)="""PKG"",19,22,1,""PAH"",1,1,230,0)"
^XMB(3.9,169,2,1484,0)=" "
^XMB(3.9,169,2,1485,0)="""PKG"",19,22,1,""PAH"",1,1,231,0)"
^XMB(3.9,169,2,1486,0)="The sum total of SEGS% and BANDS% can never exceed 100."
^XMB(3.9,169,2,1487,0)="""PKG"",19,22,1,""PAH"",1,1,232,0)"
^XMB(3.9,169,2,1488,0)=" "
^XMB(3.9,169,2,1489,0)="""PKG"",19,22,1,""PAH"",1,1,233,0)"
^XMB(3.9,169,2,1490,0)="DATA DICTIONARY:"
^XMB(3.9,169,2,1491,0)="""PKG"",19,22,1,""PAH"",1,1,234,0)"
^XMB(3.9,169,2,1492,0)="==============="
^XMB(3.9,169,2,1493,0)="""PKG"",19,22,1,""PAH"",1,1,235,0)"
^XMB(3.9,169,2,1494,0)="CLOZAPINE PATIENT LIST File (#603.01), OVERRIDE DATE field (#3) - This "
^XMB(3.9,169,2,1495,0)="""PKG"",19,22,1,""PAH"",1,1,236,0)"
^XMB(3.9,169,2,1496,0)="field was added to allow the NCCC more control over the overrides "
^XMB(3.9,169,2,1497,0)="""PKG"",19,22,1,""PAH"",1,1,237,0)"
^XMB(3.9,169,2,1498,0)="performed at the site."
^XMB(3.9,169,2,1499,0)="""PKG"",19,22,1,""PAH"",1,1,238,0)"
^XMB(3.9,169,2,1500,0)=" "
^XMB(3.9,169,2,1501,0)="""PKG"",19,22,1,""PAH"",1,1,239,0)"
^XMB(3.9,169,2,1502,0)="CLOZAPINE PARAMETERS File (#603.03), LOCK DOWN field (#7) - This field "
^XMB(3.9,169,2,1503,0)="""PKG"",19,22,1,""PAH"",1,1,240,0)"
^XMB(3.9,169,2,1504,0)="was added to allow the NCCC to prevent the dispensing of any Clozapine "
^XMB(3.9,169,2,1505,0)="""PKG"",19,22,1,""PAH"",1,1,241,0)"
^XMB(3.9,169,2,1506,0)="prescription at a site."
^XMB(3.9,169,2,1507,0)="""PKG"",19,22,1,""PAH"",1,1,242,0)"
^XMB(3.9,169,2,1508,0)=" "
^XMB(3.9,169,2,1509,0)="""PKG"",19,22,1,""PAH"",1,1,243,0)"
^XMB(3.9,169,2,1510,0)=" "
^XMB(3.9,169,2,1511,0)="""PKG"",19,22,1,""PAH"",1,1,244,0)"
^XMB(3.9,169,2,1512,0)="CLOZAPINE TESTS file (#603.04) - This file was added to allow the sites "
^XMB(3.9,169,2,1513,0)="""PKG"",19,22,1,""PAH"",1,1,245,0)"
^XMB(3.9,169,2,1514,0)="to select multiple tests for the WBC and Neutrophil count."
^XMB(3.9,169,2,1515,0)="""PKG"",19,22,1,""PAH"",1,1,246,0)"
^XMB(3.9,169,2,1516,0)=" "
^XMB(3.9,169,2,1517,0)="""PKG"",19,22,1,""PAH"",1,1,247,0)"
^XMB(3.9,169,2,1518,0)="Field         Field Name           Description"
^XMB(3.9,169,2,1519,0)="""PKG"",19,22,1,""PAH"",1,1,248,0)"
^XMB(3.9,169,2,1520,0)="603.04,.01    NAME            0;1 FREE TEXT (Required)"
^XMB(3.9,169,2,1521,0)="""PKG"",19,22,1,""PAH"",1,1,249,0)"
^XMB(3.9,169,2,1522,0)="603.04,1      TEST NAME       1;0 POINTER Multiple #603.41"
^XMB(3.9,169,2,1523,0)="""PKG"",19,22,1,""PAH"",1,1,250,0)"
^XMB(3.9,169,2,1524,0)="603.41,.01    TEST NAME       0;1 POINTER TO LABORATORY TEST FILE (#60)"
^XMB(3.9,169,2,1525,0)="""PKG"",19,22,1,""PAH"",1,1,251,0)"
^XMB(3.9,169,2,1526,0)="603.41,1      TEST TYPE            0;2 SET (Required)"
^XMB(3.9,169,2,1527,0)="""PKG"",19,22,1,""PAH"",1,1,252,0)"
^XMB(3.9,169,2,1528,0)=" "
^XMB(3.9,169,2,1529,0)="""PKG"",19,22,1,""PAH"",1,1,253,0)"
^XMB(3.9,169,2,1530,0)="                                'W' FOR WHITE BLOOD COUNT; "
^XMB(3.9,169,2,1531,0)="""PKG"",19,22,1,""PAH"",1,1,254,0)"
^XMB(3.9,169,2,1532,0)="                                'A' FOR ABSOLUTE NEUTROPHIL COUNT; "
^XMB(3.9,169,2,1533,0)="""PKG"",19,22,1,""PAH"",1,1,255,0)"
^XMB(3.9,169,2,1534,0)="                                'N' FOR NEUTROPHIL PERCENT; "
^XMB(3.9,169,2,1535,0)="""PKG"",19,22,1,""PAH"",1,1,256,0)"
^XMB(3.9,169,2,1536,0)="                                'S' FOR SEGS %; "
^XMB(3.9,169,2,1537,0)="""PKG"",19,22,1,""PAH"",1,1,257,0)"
^XMB(3.9,169,2,1538,0)="                                'B' FOR BANDS %; "
^XMB(3.9,169,2,1539,0)="""PKG"",19,22,1,""PAH"",1,1,258,0)"
^XMB(3.9,169,2,1540,0)="                                'T' FOR BANDS ABSOLUTE; "
^XMB(3.9,169,2,1541,0)="""PKG"",19,22,1,""PAH"",1,1,259,0)"
^XMB(3.9,169,2,1542,0)="                                'C' FOR SEGS ABSOLUTE; "
^XMB(3.9,169,2,1543,0)="""PKG"",19,22,1,""PAH"",1,1,260,0)"
^XMB(3.9,169,2,1544,0)="603.41,2      REPORTING FORMAT     0;3 SET (Required)"
^XMB(3.9,169,2,1545,0)="""PKG"",19,22,1,""PAH"",1,1,261,0)"
^XMB(3.9,169,2,1546,0)=" "
^XMB(3.9,169,2,1547,0)="""PKG"",19,22,1,""PAH"",1,1,262,0)"
^XMB(3.9,169,2,1548,0)="                                '0' FOR Units; "
^XMB(3.9,169,2,1549,0)="""PKG"",19,22,1,""PAH"",1,1,263,0)"
^XMB(3.9,169,2,1550,0)="                                '1' FOR K/units; "
^XMB(3.9,169,2,1551,0)="""PKG"",19,22,1,""PAH"",1,1,264,0)"
^XMB(3.9,169,2,1552,0)="                                '2' FOR Percentage; "
^XMB(3.9,169,2,1553,0)="""PKG"",19,22,1,""PAH"",1,1,265,0)"
^XMB(3.9,169,2,1554,0)=" "
^XMB(3.9,169,2,1555,0)="""PKG"",19,22,1,""PAH"",1,1,266,0)"
^XMB(3.9,169,2,1556,0)="INSTALLATION TIME FRAME:"
^XMB(3.9,169,2,1557,0)="""PKG"",19,22,1,""PAH"",1,1,267,0)"
^XMB(3.9,169,2,1558,0)="======================="
^XMB(3.9,169,2,1559,0)="""PKG"",19,22,1,""PAH"",1,1,268,0)"
^XMB(3.9,169,2,1560,0)="VA DIRECTIVE 2001-023 REQUIRES INSTALLATION OF THIS PATCH WITHIN 30 DAYS "
^XMB(3.9,169,2,1561,0)="""PKG"",19,22,1,""PAH"",1,1,269,0)"
^XMB(3.9,169,2,1562,0)="FROM THE TIME OF INITIAL RELEASE."
^XMB(3.9,169,2,1563,0)="""PKG"",19,22,1,""PAH"",1,1,270,0)"
^XMB(3.9,169,2,1564,0)=" "
^XMB(3.9,169,2,1565,0)="""PKG"",19,22,1,""PAH"",1,1,271,0)"
^XMB(3.9,169,2,1566,0)="REQUESTING SITE:"
^XMB(3.9,169,2,1567,0)="""PKG"",19,22,1,""PAH"",1,1,272,0)"
^XMB(3.9,169,2,1568,0)="==============="
^XMB(3.9,169,2,1569,0)="""PKG"",19,22,1,""PAH"",1,1,273,0)"
^XMB(3.9,169,2,1570,0)="National Clozapine Coordinating Center"
^XMB(3.9,169,2,1571,0)="""PKG"",19,22,1,""PAH"",1,1,274,0)"
^XMB(3.9,169,2,1572,0)=" "
^XMB(3.9,169,2,1573,0)="""PKG"",19,22,1,""PAH"",1,1,275,0)"
^XMB(3.9,169,2,1574,0)="Test Site(s):"
^XMB(3.9,169,2,1575,0)="""PKG"",19,22,1,""PAH"",1,1,276,0)"
^XMB(3.9,169,2,1576,0)="============"
^XMB(3.9,169,2,1577,0)="""PKG"",19,22,1,""PAH"",1,1,277,0)"
^XMB(3.9,169,2,1578,0)="West LA"
^XMB(3.9,169,2,1579,0)="""PKG"",19,22,1,""PAH"",1,1,278,0)"
^XMB(3.9,169,2,1580,0)="Oklahoma"
^XMB(3.9,169,2,1581,0)="""PKG"",19,22,1,""PAH"",1,1,279,0)"
^XMB(3.9,169,2,1582,0)="Louisville"
^XMB(3.9,169,2,1583,0)="""PKG"",19,22,1,""PAH"",1,1,280,0)"
^XMB(3.9,169,2,1584,0)=" "
^XMB(3.9,169,2,1585,0)="""PKG"",19,22,1,""PAH"",1,1,281,0)"
^XMB(3.9,169,2,1586,0)="Reference NOIS:"
^XMB(3.9,169,2,1587,0)="""PKG"",19,22,1,""PAH"",1,1,282,0)"
^XMB(3.9,169,2,1588,0)="=============="
^XMB(3.9,169,2,1589,0)="""PKG"",19,22,1,""PAH"",1,1,283,0)"
^XMB(3.9,169,2,1590,0)="NA"
^XMB(3.9,169,2,1591,0)="""PKG"",19,22,1,""PAH"",1,1,284,0)"
^XMB(3.9,169,2,1592,0)="a"
^XMB(3.9,169,2,1593,0)="""PKG"",19,22,1,""PAH"",1,1,285,0)"
^XMB(3.9,169,2,1594,0)="ASSOCIATED E3Rs:"
^XMB(3.9,169,2,1595,0)="""PKG"",19,22,1,""PAH"",1,1,286,0)"
^XMB(3.9,169,2,1596,0)="==============="
^XMB(3.9,169,2,1597,0)="""PKG"",19,22,1,""PAH"",1,1,287,0)"
^XMB(3.9,169,2,1598,0)="NA"
^XMB(3.9,169,2,1599,0)="""PKG"",19,22,1,""PAH"",1,1,288,0)"
^XMB(3.9,169,2,1600,0)=" "
^XMB(3.9,169,2,1601,0)="""PKG"",19,22,1,""PAH"",1,1,289,0)"
^XMB(3.9,169,2,1602,0)="ASSOCIATED REMEDY TICKETS:"
^XMB(3.9,169,2,1603,0)="""PKG"",19,22,1,""PAH"",1,1,290,0)"
^XMB(3.9,169,2,1604,0)="========================="
^XMB(3.9,169,2,1605,0)="""PKG"",19,22,1,""PAH"",1,1,291,0)"
^XMB(3.9,169,2,1606,0)="NA"
^XMB(3.9,169,2,1607,0)="""PKG"",19,22,1,""PAH"",1,1,292,0)"
^XMB(3.9,169,2,1608,0)=" "
^XMB(3.9,169,2,1609,0)="""PKG"",19,22,1,""PAH"",1,1,293,0)"
^XMB(3.9,169,2,1610,0)="  ROUTINE SUMMARY:"
^XMB(3.9,169,2,1611,0)="""PKG"",19,22,1,""PAH"",1,1,294,0)"
^XMB(3.9,169,2,1612,0)="  ================"
^XMB(3.9,169,2,1613,0)="""PKG"",19,22,1,""PAH"",1,1,295,0)"
^XMB(3.9,169,2,1614,0)=" "
^XMB(3.9,169,2,1615,0)="""PKG"",19,22,1,""PAH"",1,1,296,0)"
^XMB(3.9,169,2,1616,0)="  The following routines are included in this patch.  The second line"
^XMB(3.9,169,2,1617,0)="""PKG"",19,22,1,""PAH"",1,1,297,0)"
^XMB(3.9,169,2,1618,0)="  of each of these routines now looks like:"
^XMB(3.9,169,2,1619,0)="""PKG"",19,22,1,""PAH"",1,1,298,0)"
^XMB(3.9,169,2,1620,0)="  <tab>   ;;5.01;MENTAL HEALTH;**[patch list]**;Dec 30,1994"
^XMB(3.9,169,2,1621,0)="""PKG"",19,22,1,""PAH"",1,1,299,0)"
^XMB(3.9,169,2,1622,0)=" "
^XMB(3.9,169,2,1623,0)="""PKG"",19,22,1,""PAH"",1,1,300,0)"
^XMB(3.9,169,2,1624,0)="                              Checksum Values"
^XMB(3.9,169,2,1625,0)="""PKG"",19,22,1,""PAH"",1,1,301,0)"
^XMB(3.9,169,2,1626,0)=" "
^XMB(3.9,169,2,1627,0)="""PKG"",19,22,1,""PAH"",1,1,302,0)"
^XMB(3.9,169,2,1628,0)="  Routine Name      Before Patch         After Patch     Patch List"
^XMB(3.9,169,2,1629,0)="""PKG"",19,22,1,""PAH"",1,1,303,0)"
^XMB(3.9,169,2,1630,0)="  ------------      ------------         -----------     ----------"
^XMB(3.9,169,2,1631,0)="""PKG"",19,22,1,""PAH"",1,1,304,0)"
^XMB(3.9,169,2,1632,0)=" "
^XMB(3.9,169,2,1633,0)="""PKG"",19,22,1,""PAH"",1,1,305,0)"
^XMB(3.9,169,2,1634,0)="  YSCLSERV           25083145              25564583      18,22,26,47,"
^XMB(3.9,169,2,1635,0)="""PKG"",19,22,1,""PAH"",1,1,306,0)"
^XMB(3.9,169,2,1636,0)="                                                         61,69,74,90"
^XMB(3.9,169,2,1637,0)="""PKG"",19,22,1,""PAH"",1,1,307,0)"
^XMB(3.9,169,2,1638,0)="  YSCLSRV1           1605367               1606233       61,69,74,90"
^XMB(3.9,169,2,1639,0)="""PKG"",19,22,1,""PAH"",1,1,308,0)"
^XMB(3.9,169,2,1640,0)="  YSCLSRV2           16840829              24723007      69,90"
^XMB(3.9,169,2,1641,0)="""PKG"",19,22,1,""PAH"",1,1,309,0)"
^XMB(3.9,169,2,1642,0)="  YSCLSRV3           7345805               24872037      74,90"
^XMB(3.9,169,2,1643,0)="""PKG"",19,22,1,""PAH"",1,1,310,0)"
^XMB(3.9,169,2,1644,0)="  YSCLTEST           12047382              12378003      18,22,26,47,"
^XMB(3.9,169,2,1645,0)="""PKG"",19,22,1,""PAH"",1,1,311,0)"
^XMB(3.9,169,2,1646,0)="                                                         61,69,74,90"
^XMB(3.9,169,2,1647,0)="""PKG"",19,22,1,""PAH"",1,1,312,0)"
^XMB(3.9,169,2,1648,0)="  YSCLTST1           15450428              11839450      18,22,25,26,"
^XMB(3.9,169,2,1649,0)="""PKG"",19,22,1,""PAH"",1,1,313,0)"
^XMB(3.9,169,2,1650,0)="                                                         47,61,69,74,90"
^XMB(3.9,169,2,1651,0)="""PKG"",19,22,1,""PAH"",1,1,314,0)"
^XMB(3.9,169,2,1652,0)="  YSCLTST2           11178871              32098862      18,22,26,47"
^XMB(3.9,169,2,1653,0)="""PKG"",19,22,1,""PAH"",1,1,315,0)"
^XMB(3.9,169,2,1654,0)="                                                         61,69,74,90"
^XMB(3.9,169,2,1655,0)="""PKG"",19,22,1,""PAH"",1,1,316,0)"
^XMB(3.9,169,2,1656,0)="  YSCLTST3           15031797              25645207      18,22,25,26"
^XMB(3.9,169,2,1657,0)="""PKG"",19,22,1,""PAH"",1,1,317,0)"
^XMB(3.9,169,2,1658,0)="                                                         47,61,69,74,90"
^XMB(3.9,169,2,1659,0)="""PKG"",19,22,1,""PAH"",1,1,318,0)"
^XMB(3.9,169,2,1660,0)=" "
^XMB(3.9,169,2,1661,0)="""PKG"",19,22,1,""PAH"",1,1,319,0)"
^XMB(3.9,169,2,1662,0)=" "
^XMB(3.9,169,2,1663,0)="""PKG"",19,22,1,""PAH"",1,1,320,0)"
^XMB(3.9,169,2,1664,0)="List of preceding patches: 18,22,25,26,47,61,69,74"
^XMB(3.9,169,2,1665,0)="""PKG"",19,22,1,""PAH"",1,1,321,0)"
^XMB(3.9,169,2,1666,0)="Sites should use CHECK^XTSUMBLD to verify checksums."
^XMB(3.9,169,2,1667,0)="""PKG"",19,22,1,""PAH"",1,1,322,0)"
^XMB(3.9,169,2,1668,0)=" "
^XMB(3.9,169,2,1669,0)="""PKG"",19,22,1,""PAH"",1,1,323,0)"
^XMB(3.9,169,2,1670,0)="         Installation Instructions:"
^XMB(3.9,169,2,1671,0)="""PKG"",19,22,1,""PAH"",1,1,324,0)"
^XMB(3.9,169,2,1672,0)="         =========================="
^XMB(3.9,169,2,1673,0)="""PKG"",19,22,1,""PAH"",1,1,325,0)"
^XMB(3.9,169,2,1674,0)=" "
^XMB(3.9,169,2,1675,0)="""PKG"",19,22,1,""PAH"",1,1,326,0)"
^XMB(3.9,169,2,1676,0)="  NOTE: This KIDS install does not place any options out of service"
^XMB(3.9,169,2,1677,0)="""PKG"",19,22,1,""PAH"",1,1,327,0)"
^XMB(3.9,169,2,1678,0)="        during the install and no existing user options are affected."
^XMB(3.9,169,2,1679,0)="""PKG"",19,22,1,""PAH"",1,1,328,0)"
^XMB(3.9,169,2,1680,0)=" "
^XMB(3.9,169,2,1681,0)="""PKG"",19,22,1,""PAH"",1,1,329,0)"
^XMB(3.9,169,2,1682,0)="        The site should answer ""NO"" to all three questions."
^XMB(3.9,169,2,1683,0)="""PKG"",19,22,1,""PAH"",1,1,330,0)"
^XMB(3.9,169,2,1684,0)="            Note: You may not receive all three prompts at your site."
^XMB(3.9,169,2,1685,0)="""PKG"",19,22,1,""PAH"",1,1,331,0)"
^XMB(3.9,169,2,1686,0)=" "
^XMB(3.9,169,2,1687,0)="""PKG"",19,22,1,""PAH"",1,1,332,0)"
^XMB(3.9,169,2,1688,0)="        ""Want KIDS to Rebuild Menu Trees Upon Completion of"
^XMB(3.9,169,2,1689,0)="""PKG"",19,22,1,""PAH"",1,1,333,0)"
^XMB(3.9,169,2,1690,0)="         Install? YES// NO"""
^XMB(3.9,169,2,1691,0)="""PKG"",19,22,1,""PAH"",1,1,334,0)"
^XMB(3.9,169,2,1692,0)=" "
^XMB(3.9,169,2,1693,0)="""PKG"",19,22,1,""PAH"",1,1,335,0)"
^XMB(3.9,169,2,1694,0)="        ""Want KIDS to INHIBIT LOGONs during the install? YES// NO"""
^XMB(3.9,169,2,1695,0)="""PKG"",19,22,1,""PAH"",1,1,336,0)"
^XMB(3.9,169,2,1696,0)=" "
^XMB(3.9,169,2,1697,0)="""PKG"",19,22,1,""PAH"",1,1,337,0)"
^XMB(3.9,169,2,1698,0)="        ""Want to DISABLE Scheduled Options, Menu Options, and"
^XMB(3.9,169,2,1699,0)="""PKG"",19,22,1,""PAH"",1,1,338,0)"
^XMB(3.9,169,2,1700,0)="         Protocols?"
^XMB(3.9,169,2,1701,0)="""PKG"",19,22,1,""PAH"",1,1,339,0)"
^XMB(3.9,169,2,1702,0)="         YES// NO"""
^XMB(3.9,169,2,1703,0)="""PKG"",19,22,1,""PAH"",1,1,340,0)"
^XMB(3.9,169,2,1704,0)=" "
^XMB(3.9,169,2,1705,0)="""PKG"",19,22,1,""PAH"",1,1,341,0)"
^XMB(3.9,169,2,1706,0)="         1. Use the 'INSTALL/CHECK MESSAGE' option on the PackMan menu."
^XMB(3.9,169,2,1707,0)="""PKG"",19,22,1,""PAH"",1,1,342,0)"
^XMB(3.9,169,2,1708,0)="            This option will load the KIDS package in this message onto"
^XMB(3.9,169,2,1709,0)="""PKG"",19,22,1,""PAH"",1,1,343,0)"
^XMB(3.9,169,2,1710,0)="            your system."
^XMB(3.9,169,2,1711,0)="""PKG"",19,22,1,""PAH"",1,1,344,0)"
^XMB(3.9,169,2,1712,0)=" "
^XMB(3.9,169,2,1713,0)="""PKG"",19,22,1,""PAH"",1,1,345,0)"
^XMB(3.9,169,2,1714,0)="         2. The patch has now been loaded into a Transport global on"
^XMB(3.9,169,2,1715,0)="""PKG"",19,22,1,""PAH"",1,1,346,0)"
^XMB(3.9,169,2,1716,0)="            your system. You now need to use KIDS to install the"
^XMB(3.9,169,2,1717,0)="""PKG"",19,22,1,""PAH"",1,1,347,0)"
^XMB(3.9,169,2,1718,0)="            Transport global."
^XMB(3.9,169,2,1719,0)="""PKG"",19,22,1,""PAH"",1,1,348,0)"
^XMB(3.9,169,2,1720,0)=" "
^XMB(3.9,169,2,1721,0)="""PKG"",19,22,1,""PAH"",1,1,349,0)"
^XMB(3.9,169,2,1722,0)="            On the KIDS menu, under the 'Installation' menu, use the"
^XMB(3.9,169,2,1723,0)="""PKG"",19,22,1,""PAH"",1,1,350,0)"
^XMB(3.9,169,2,1724,0)="            following options:"
^XMB(3.9,169,2,1725,0)="""PKG"",19,22,1,""PAH"",1,1,351,0)"
^XMB(3.9,169,2,1726,0)="                Print Transport Global"
^XMB(3.9,169,2,1727,0)="""PKG"",19,22,1,""PAH"",1,1,352,0)"
^XMB(3.9,169,2,1728,0)="                Compare Transport Global to Current System"
^XMB(3.9,169,2,1729,0)="""PKG"",19,22,1,""PAH"",1,1,353,0)"
^XMB(3.9,169,2,1730,0)="                Verify Checksums in Transport Global"
^XMB(3.9,169,2,1731,0)="""PKG"",19,22,1,""PAH"",1,1,354,0)"
^XMB(3.9,169,2,1732,0)="                Backup a Transport Global"
^XMB(3.9,169,2,1733,0)="""PKG"",19,22,1,""PAH"",1,1,355,0)"
^XMB(3.9,169,2,1734,0)=" "
^XMB(3.9,169,2,1735,0)="""PKG"",19,22,1,""PAH"",1,1,356,0)"
^XMB(3.9,169,2,1736,0)="         3. Users may remain on the system, installation may be done at"
^XMB(3.9,169,2,1737,0)="""PKG"",19,22,1,""PAH"",1,1,357,0)"
^XMB(3.9,169,2,1738,0)="            any time except during the time scheduled for the Clozapine"
^XMB(3.9,169,2,1739,0)="""PKG"",19,22,1,""PAH"",1,1,358,0)"
^XMB(3.9,169,2,1740,0)="            roll-up."
^XMB(3.9,169,2,1741,0)="""PKG"",19,22,1,""PAH"",1,1,359,0)"
^XMB(3.9,169,2,1742,0)=" "
^XMB(3.9,169,2,1743,0)="""PKG"",19,22,1,""PAH"",1,1,360,0)"
^XMB(3.9,169,2,1744,0)="         4. No options need to be placed out of service."
^XMB(3.9,169,2,1745,0)="""PKG"",19,22,1,""PAH"",1,1,361,0)"
^XMB(3.9,169,2,1746,0)=" "
^XMB(3.9,169,2,1747,0)="""PKG"",19,22,1,""PAH"",1,1,362,0)"
^XMB(3.9,169,2,1748,0)="         5. Installation time is less than 2 minutes during off peak"
^XMB(3.9,169,2,1749,0)="""PKG"",19,22,1,""PAH"",1,1,363,0)"
^XMB(3.9,169,2,1750,0)="            hours and less than 5 minutes during peak hours."
^XMB(3.9,169,2,1751,0)="""PKG"",19,22,1,""PAH"",1,1,364,0)"
^XMB(3.9,169,2,1752,0)=" "
^XMB(3.9,169,2,1753,0)="""PKG"",19,22,1,""PAH"",1,1,365,0)"
^XMB(3.9,169,2,1754,0)="         6. Installation of this patch requires no additional memory"
^XMB(3.9,169,2,1755,0)="""PKG"",19,22,1,""PAH"",1,1,366,0)"
^XMB(3.9,169,2,1756,0)="            space."
^XMB(3.9,169,2,1757,0)="""PKG"",19,22,1,""PAH"",1,1,367,0)"
^XMB(3.9,169,2,1758,0)=" "
^XMB(3.9,169,2,1759,0)="""PKG"",19,22,1,""PAH"",1,1,368,0)"
^XMB(3.9,169,2,1760,0)="         7. From the 'Installation Menu' of the KIDS menu, run the"
^XMB(3.9,169,2,1761,0)="""PKG"",19,22,1,""PAH"",1,1,369,0)"
^XMB(3.9,169,2,1762,0)="            option:"
^XMB(3.9,169,2,1763,0)="""PKG"",19,22,1,""PAH"",1,1,370,0)"
^XMB(3.9,169,2,1764,0)="            'Install Package(s)' Select the package 'YS*5.01*90 and"
^XMB(3.9,169,2,1765,0)="""PKG"",19,22,1,""PAH"",1,1,371,0)"
^XMB(3.9,169,2,1766,0)="            proceed with the install."
^XMB(3.9,169,2,1767,0)="""QUES"",""XPF1"",0)"
^XMB(3.9,169,2,1768,0)="Y"
^XMB(3.9,169,2,1769,0)="""QUES"",""XPF1"",""??"")"
^XMB(3.9,169,2,1770,0)="^D REP^XPDH"
^XMB(3.9,169,2,1771,0)="""QUES"",""XPF1"",""A"")"
^XMB(3.9,169,2,1772,0)="Shall I write over your |FLAG| File"
^XMB(3.9,169,2,1773,0)="""QUES"",""XPF1"",""B"")"
^XMB(3.9,169,2,1774,0)="YES"
^XMB(3.9,169,2,1775,0)="""QUES"",""XPF1"",""M"")"
^XMB(3.9,169,2,1776,0)="D XPF1^XPDIQ"
^XMB(3.9,169,2,1777,0)="""QUES"",""XPF2"",0)"
^XMB(3.9,169,2,1778,0)="Y"
^XMB(3.9,169,2,1779,0)="""QUES"",""XPF2"",""??"")"
^XMB(3.9,169,2,1780,0)="^D DTA^XPDH"
^XMB(3.9,169,2,1781,0)="""QUES"",""XPF2"",""A"")"
^XMB(3.9,169,2,1782,0)="Want my data |FLAG| yours"
^XMB(3.9,169,2,1783,0)="""QUES"",""XPF2"",""B"")"
^XMB(3.9,169,2,1784,0)="YES"
^XMB(3.9,169,2,1785,0)="""QUES"",""XPF2"",""M"")"
^XMB(3.9,169,2,1786,0)="D XPF2^XPDIQ"
^XMB(3.9,169,2,1787,0)="""QUES"",""XPI1"",0)"
^XMB(3.9,169,2,1788,0)="YO"
^XMB(3.9,169,2,1789,0)="""QUES"",""XPI1"",""??"")"
^XMB(3.9,169,2,1790,0)="^D INHIBIT^XPDH"
^XMB(3.9,169,2,1791,0)="""QUES"",""XPI1"",""A"")"
^XMB(3.9,169,2,1792,0)="Want KIDS to INHIBIT LOGONs during the install"
^XMB(3.9,169,2,1793,0)="""QUES"",""XPI1"",""B"")"
^XMB(3.9,169,2,1794,0)="YES"
^XMB(3.9,169,2,1795,0)="""QUES"",""XPI1"",""M"")"
^XMB(3.9,169,2,1796,0)="D XPI1^XPDIQ"
^XMB(3.9,169,2,1797,0)="""QUES"",""XPM1"",0)"
^XMB(3.9,169,2,1798,0)="PO^VA(200,:EM"
^XMB(3.9,169,2,1799,0)="""QUES"",""XPM1"",""??"")"
^XMB(3.9,169,2,1800,0)="^D MG^XPDH"
^XMB(3.9,169,2,1801,0)="""QUES"",""XPM1"",""A"")"
^XMB(3.9,169,2,1802,0)="Enter the Coordinator for Mail Group '|FLAG|'"
^XMB(3.9,169,2,1803,0)="""QUES"",""XPM1"",""B"")"
^XMB(3.9,169,2,1804,0)=""
^XMB(3.9,169,2,1805,0)="""QUES"",""XPM1"",""M"")"
^XMB(3.9,169,2,1806,0)="D XPM1^XPDIQ"
^XMB(3.9,169,2,1807,0)="""QUES"",""XPO1"",0)"
^XMB(3.9,169,2,1808,0)="Y"
^XMB(3.9,169,2,1809,0)="""QUES"",""XPO1"",""??"")"
^XMB(3.9,169,2,1810,0)="^D MENU^XPDH"
^XMB(3.9,169,2,1811,0)="""QUES"",""XPO1"",""A"")"
^XMB(3.9,169,2,1812,0)="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
^XMB(3.9,169,2,1813,0)="""QUES"",""XPO1"",""B"")"
^XMB(3.9,169,2,1814,0)="YES"
^XMB(3.9,169,2,1815,0)="""QUES"",""XPO1"",""M"")"
^XMB(3.9,169,2,1816,0)="D XPO1^XPDIQ"
^XMB(3.9,169,2,1817,0)="""QUES"",""XPZ1"",0)"
^XMB(3.9,169,2,1818,0)="Y"
^XMB(3.9,169,2,1819,0)="""QUES"",""XPZ1"",""??"")"
^XMB(3.9,169,2,1820,0)="^D OPT^XPDH"
^XMB(3.9,169,2,1821,0)="""QUES"",""XPZ1"",""A"")"
^XMB(3.9,169,2,1822,0)="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
^XMB(3.9,169,2,1823,0)="""QUES"",""XPZ1"",""B"")"
^XMB(3.9,169,2,1824,0)="YES"
^XMB(3.9,169,2,1825,0)="""QUES"",""XPZ1"",""M"")"
^XMB(3.9,169,2,1826,0)="D XPZ1^XPDIQ"
^XMB(3.9,169,2,1827,0)="""QUES"",""XPZ2"",0)"
^XMB(3.9,169,2,1828,0)="Y"
^XMB(3.9,169,2,1829,0)="""QUES"",""XPZ2"",""??"")"
^XMB(3.9,169,2,1830,0)="^D RTN^XPDH"
^XMB(3.9,169,2,1831,0)="""QUES"",""XPZ2"",""A"")"
^XMB(3.9,169,2,1832,0)="Want to MOVE routines to other CPUs"
^XMB(3.9,169,2,1833,0)="""QUES"",""XPZ2"",""B"")"
^XMB(3.9,169,2,1834,0)="NO"
^XMB(3.9,169,2,1835,0)="""QUES"",""XPZ2"",""M"")"
^XMB(3.9,169,2,1836,0)="D XPZ2^XPDIQ"
^XMB(3.9,169,2,1837,0)="""RTN"")"
^XMB(3.9,169,2,1838,0)="8"
^XMB(3.9,169,2,1839,0)="""RTN"",""YSCLSERV"")"
^XMB(3.9,169,2,1840,0)="0^1^B62056813^B57252811"
^XMB(3.9,169,2,1841,0)="""RTN"",""YSCLSERV"",1,0)"
^XMB(3.9,169,2,1842,0)="YSCLSERV ;DALOI/RLM-Clozapine data server ;24 APR 1990"
^XMB(3.9,169,2,1843,0)="""RTN"",""YSCLSERV"",2,0)"
^XMB(3.9,169,2,1844,0)=" ;;5.01;MENTAL HEALTH;**18,22,26,47,61,69,74,90**;Dec 30, 1994;Build 18"
^XMB(3.9,169,2,1845,0)="""RTN"",""YSCLSERV"",3,0)"
^XMB(3.9,169,2,1846,0)=" ; Reference to ^%ZOSF supported by IA #10096"
^XMB(3.9,169,2,1847,0)="""RTN"",""YSCLSERV"",4,0)"
^XMB(3.9,169,2,1848,0)=" ; Reference to ^DPT supported by IA #10035"
^XMB(3.9,169,2,1849,0)="""RTN"",""YSCLSERV"",5,0)"
^XMB(3.9,169,2,1850,0)=" ; Reference to ^DD(""DD"" supported by IA #10017"
^XMB(3.9,169,2,1851,0)="""RTN"",""YSCLSERV"",6,0)"
^XMB(3.9,169,2,1852,0)=" ; Reference to ^PS(55 supported by IA #787"
^XMB(3.9,169,2,1853,0)="""RTN"",""YSCLSERV"",7,0)"
^XMB(3.9,169,2,1854,0)=" ; Reference to ^PSDRUG supported by IA #25"
^XMB(3.9,169,2,1855,0)="""RTN"",""YSCLSERV"",8,0)"
^XMB(3.9,169,2,1856,0)=" ; Reference to ^PSRX supported by IA #780"
^XMB(3.9,169,2,1857,0)="""RTN"",""YSCLSERV"",9,0)"
^XMB(3.9,169,2,1858,0)=" ; Reference to ^VA(200 supported by IA #10060"
^XMB(3.9,169,2,1859,0)="""RTN"",""YSCLSERV"",10,0)"
^XMB(3.9,169,2,1860,0)=" ; Reference to $$SITE^VASITE supported by IA #10112"
^XMB(3.9,169,2,1861,0)="""RTN"",""YSCLSERV"",11,0)"
^XMB(3.9,169,2,1862,0)=" ; Reference to $$FMTE^XLFDT() supported by IA #10103"
^XMB(3.9,169,2,1863,0)="""RTN"",""YSCLSERV"",12,0)"
^XMB(3.9,169,2,1864,0)=" ; Reference to ^PSDRUG supported by IA #221"
^XMB(3.9,169,2,1865,0)="""RTN"",""YSCLSERV"",13,0)"
^XMB(3.9,169,2,1866,0)=" ; Reference to ^XMD supported by IA #10070"
^XMB(3.9,169,2,1867,0)="""RTN"",""YSCLSERV"",14,0)"
^XMB(3.9,169,2,1868,0)="START ;"
^XMB(3.9,169,2,1869,0)="""RTN"",""YSCLSERV"",15,0)"
^XMB(3.9,169,2,1870,0)=" K ^TMP($J,""YSCLDATA"")"
^XMB(3.9,169,2,1871,0)="""RTN"",""YSCLSERV"",16,0)"
^XMB(3.9,169,2,1872,0)=" S YSDEBUG=$P(^YSCL(603.03,1,0),""^"",3)"
^XMB(3.9,169,2,1873,0)="""RTN"",""YSCLSERV"",17,0)"
^XMB(3.9,169,2,1874,0)=" S YSCLST=$P($$SITE^VASITE,""^"",3)"
^XMB(3.9,169,2,1875,0)="""RTN"",""YSCLSERV"",18,0)"
^XMB(3.9,169,2,1876,0)=" S YSCLSTN=$P($$SITE^VASITE,""^"",2)"
^XMB(3.9,169,2,1877,0)="""RTN"",""YSCLSERV"",19,0)"
^XMB(3.9,169,2,1878,0)=" ;Determine station number"
^XMB(3.9,169,2,1879,0)="""RTN"",""YSCLSERV"",20,0)"
^XMB(3.9,169,2,1880,0)=" S X=XQSUB X ^%ZOSF(""UPPERCASE"") S YSCLSUB=Y"
^XMB(3.9,169,2,1881,0)="""RTN"",""YSCLSERV"",21,0)"
^XMB(3.9,169,2,1882,0)=" S ^TMP($J,""YSCLDATA"",1)=$S(YSDEBUG:""DEBUG "",1:"""")_YSCLSUB_"" triggered at ""_YSCLST_"" by ""_XMFROM_"" on ""_XQDATE"
^XMB(3.9,169,2,1883,0)="""RTN"",""YSCLSERV"",22,0)"
^XMB(3.9,169,2,1884,0)=" ;The first line of the message tells who requested the action and when"
^XMB(3.9,169,2,1885,0)="""RTN"",""YSCLSERV"",23,0)"
^XMB(3.9,169,2,1886,0)=" D"
^XMB(3.9,169,2,1887,0)="""RTN"",""YSCLSERV"",24,0)"
^XMB(3.9,169,2,1888,0)="  . S YSACTION=$S(YSCLSUB[""REMOVE""!(YSCLSUB[""DELETE""):""data deleted"",YSCLSUB[""REPORT"":""report generated"",YSCLSUB[""REBUILD"":""data verified"",YSCLSUB[""UPDATE"":""data updated"",YSCLSUB[""DATESET"":""date set"",1:""CONT"")"
^XMB(3.9,169,2,1889,0)="""RTN"",""YSCLSERV"",25,0)"
^XMB(3.9,169,2,1890,0)="  . I YSACTION=""CONT"" S YSACTION=$S(YSCLSUB[""DEMOG RESET"":""Demographics Flag Reset"",YSCLSUB[""DEBUG"":""Debug Mode set"",YSCLSUB[""AUTH"":""Authorization"",YSCLSUB[""LOCK"":""Lock"",1:""Site Lock"")"
^XMB(3.9,169,2,1891,0)="""RTN"",""YSCLSERV"",26,0)"
^XMB(3.9,169,2,1892,0)="  . S ^TMP($J,""YSCLDATA"",2)=""No ""_$S(YSDEBUG:""DEBUG "",1:"""")_YSACTION_"" at ""_YSCLST"
^XMB(3.9,169,2,1893,0)="""RTN"",""YSCLSERV"",27,0)"
^XMB(3.9,169,2,1894,0)=" ;The second line tells when the server is activated and no data can be"
^XMB(3.9,169,2,1895,0)="""RTN"",""YSCLSERV"",28,0)"
^XMB(3.9,169,2,1896,0)=" ;gathered from the MailMan message.  This line gets replaced if the"
^XMB(3.9,169,2,1897,0)="""RTN"",""YSCLSERV"",29,0)"
^XMB(3.9,169,2,1898,0)=" ;server finds something to do."
^XMB(3.9,169,2,1899,0)="""RTN"",""YSCLSERV"",30,0)"
^XMB(3.9,169,2,1900,0)=" S YSCLLNT=1 I YSCLSUB[""REMOVE""!(YSCLSUB[""DELETE"") G DELETE"
^XMB(3.9,169,2,1901,0)="""RTN"",""YSCLSERV"",31,0)"
^XMB(3.9,169,2,1902,0)=" ;If the subject contains the word REMOVE or DELETE delete those entries from the list."
^XMB(3.9,169,2,1903,0)="""RTN"",""YSCLSERV"",32,0)"
^XMB(3.9,169,2,1904,0)=" I YSCLSUB[""REPORT"" G REPORT"
^XMB(3.9,169,2,1905,0)="""RTN"",""YSCLSERV"",33,0)"
^XMB(3.9,169,2,1906,0)=" ;If the subject contains ""REPORT"" send a report of the currently registered patients to the Clozapine group on Forum"
^XMB(3.9,169,2,1907,0)="""RTN"",""YSCLSERV"",34,0)"
^XMB(3.9,169,2,1908,0)=" ;I YSCLSUB[""REBUILD"" G REBUILD"
^XMB(3.9,169,2,1909,0)="""RTN"",""YSCLSERV"",35,0)"
^XMB(3.9,169,2,1910,0)=" I YSCLSUB[""RESEND"" G RESEND"
^XMB(3.9,169,2,1911,0)="""RTN"",""YSCLSERV"",36,0)"
^XMB(3.9,169,2,1912,0)=" I YSCLSUB[""UPDATE"" G UPDATE"
^XMB(3.9,169,2,1913,0)="""RTN"",""YSCLSERV"",37,0)"
^XMB(3.9,169,2,1914,0)=" I YSCLSUB[""CHECKSUM"" G CSUM^YSCLSRV1"
^XMB(3.9,169,2,1915,0)="""RTN"",""YSCLSERV"",38,0)"
^XMB(3.9,169,2,1916,0)=" I YSCLSUB[""DATESET"" G DSET"
^XMB(3.9,169,2,1917,0)="""RTN"",""YSCLSERV"",39,0)"
^XMB(3.9,169,2,1918,0)=" I YSCLSUB[""DEBUG"" G DEBUG"
^XMB(3.9,169,2,1919,0)="""RTN"",""YSCLSERV"",40,0)"
^XMB(3.9,169,2,1920,0)=" I YSCLSUB[""PATIENT"" G ^YSCLSRV3"
^XMB(3.9,169,2,1921,0)="""RTN"",""YSCLSERV"",41,0)"
^XMB(3.9,169,2,1922,0)=" I YSCLSUB[""LOCKOUT"" G LOCK^YSCLSRV3"
^XMB(3.9,169,2,1923,0)="""RTN"",""YSCLSERV"",42,0)"
^XMB(3.9,169,2,1924,0)=" I YSCLSUB=""DEMOG RESET"" G DEMOG^YSCLSRV3"
^XMB(3.9,169,2,1925,0)="""RTN"",""YSCLSERV"",43,0)"
^XMB(3.9,169,2,1926,0)=" I YSCLSUB[""AUTHORIZE"" G AUTH^YSCLSRV3"
^XMB(3.9,169,2,1927,0)="""RTN"",""YSCLSERV"",44,0)"
^XMB(3.9,169,2,1928,0)=" I YSCLSUB=""OVERRIDE"" G OVRRID^YSCLSRV2"
^XMB(3.9,169,2,1929,0)="""RTN"",""YSCLSERV"",45,0)"
^XMB(3.9,169,2,1930,0)=" F  X XMREC Q:XMER<0  S XMRG=$TR(XMRG,""- "","""") D"
^XMB(3.9,169,2,1931,0)="""RTN"",""YSCLSERV"",46,0)"
^XMB(3.9,169,2,1932,0)="  . ;Verify that + of site number matches local site number"
^XMB(3.9,169,2,1933,0)="""RTN"",""YSCLSERV"",47,0)"
^XMB(3.9,169,2,1934,0)="  . I XMRG'?2U5N1"",""9N1"",""1U S YSCLER="" is in error and was not added at "" D OUT Q"
^XMB(3.9,169,2,1935,0)="""RTN"",""YSCLSERV"",48,0)"
^XMB(3.9,169,2,1936,0)="  . I $P(XMRG,"","")'?2U5N S YSCLER="" is not a valid Clozapine number "" D OUT Q"
^XMB(3.9,169,2,1937,0)="""RTN"",""YSCLSERV"",49,0)"
^XMB(3.9,169,2,1938,0)="  . I $P(XMRG,"","",2)'?9N S YSCLER="" An SSN must be 9 numbers "" D OUT Q"
^XMB(3.9,169,2,1939,0)="""RTN"",""YSCLSERV"",50,0)"
^XMB(3.9,169,2,1940,0)="  . I $P(XMRG,"","",3)'=""B"",$P(XMRG,"","",3)'=""W"",$P(XMRG,"","",3)'=""M"" S YSCLER="" You must specify Weekly, Biweekly, or Monthly "" D OUT Q"
^XMB(3.9,169,2,1941,0)="""RTN"",""YSCLSERV"",51,0)"
^XMB(3.9,169,2,1942,0)="  . ;Validate the format of the data in the message and report the error."
^XMB(3.9,169,2,1943,0)="""RTN"",""YSCLSERV"",52,0)"
^XMB(3.9,169,2,1944,0)="  . S DIC=""^DPT("",DIC(0)=""X"",D=""SSN"",X=$P(XMRG,"","",2) I '$D(^DPT(""SSN"",X)) S YSCLER="" SSN does not exist at "" D OUT Q"
^XMB(3.9,169,2,1945,0)="""RTN"",""YSCLSERV"",53,0)"
^XMB(3.9,169,2,1946,0)="  . ;Do not add data for records where the SSN sent is not in the local database"
^XMB(3.9,169,2,1947,0)="""RTN"",""YSCLSERV"",54,0)"
^XMB(3.9,169,2,1948,0)="  . I $D(^YSCL(603.01,""B"",$P(XMRG,"",""))) S YSCLX=$O(^YSCL(603.01,""B"",$P(XMRG,"",""),"""")) S:YSCLX]"""" YSCLX=$P(^YSCL(603.01,YSCLX,0),""^"",2),YSCLER="" Clozapine # is in use by ""_$P($G(^DPT(YSCLX,0)),""^"")_"" at "" D OUT Q"
^XMB(3.9,169,2,1949,0)="""RTN"",""YSCLSERV"",55,0)"
^XMB(3.9,169,2,1950,0)="  . D MIX^DIC1 S YSCLPT=+Y I Y=-1 S YSCLER="" could not be added at "" D OUT Q"
^XMB(3.9,169,2,1951,0)="""RTN"",""YSCLSERV"",56,0)"
^XMB(3.9,169,2,1952,0)="  . ;Add the data and report any errors to the Roll-Up group at Forum."
^XMB(3.9,169,2,1953,0)="""RTN"",""YSCLSERV"",57,0)"
^XMB(3.9,169,2,1954,0)="  . K DD S DIC=""^YSCL(603.01,"",X=$P(XMRG,"",""),DIC(""DR"")=""1////""_YSCLPT_"";2////""_$P(XMRG,"","",3) K DO D FILE^DICN"
^XMB(3.9,169,2,1955,0)="""RTN"",""YSCLSERV"",58,0)"
^XMB(3.9,169,2,1956,0)="  . S YSCLX=$O(^YSCL(603.01,""B"",$P(XMRG,"",""),"""")) S:YSCLX]"""" YSCLX=$P(^YSCL(603.01,YSCLX,0),""^"",2),YSCLER="" assigned to ""_$P($G(^DPT(YSCLX,0)),""^"")_"" at "" D OUT"
^XMB(3.9,169,2,1957,0)="""RTN"",""YSCLSERV"",59,0)"
^XMB(3.9,169,2,1958,0)="EXIT ;If all went well, report that too."
^XMB(3.9,169,2,1959,0)="""RTN"",""YSCLSERV"",60,0)"
^XMB(3.9,169,2,1960,0)=" S YSDEBUG=$P(^YSCL(603.03,1,0),""^"",3)"
^XMB(3.9,169,2,1961,0)="""RTN"",""YSCLSERV"",61,0)"
^XMB(3.9,169,2,1962,0)=" S %H=$H D YMD^%DTC S XMDUN=""NCCC LOGGER"",XMDUZ="".5"",XMSUB=$S(YSDEBUG:""DEBUG "",YSCLSUB[""DEBUG"":""DEBUG "",1:"""")_YSCLST_"" NCCC ENROLLER (""_X_%_"")"",XMTEXT=""^TMP($J,""""YSCLDATA"""","""
^XMB(3.9,169,2,1963,0)="""RTN"",""YSCLSERV"",62,0)"
^XMB(3.9,169,2,1964,0)=" K XMY S XMY(""G.CLOZAPINE ROLL-UP@FORUM.VA.GOV"")="""""
^XMB(3.9,169,2,1965,0)="""RTN"",""YSCLSERV"",63,0)"
^XMB(3.9,169,2,1966,0)=" I YSDEBUG!(YSCLSUB[""DEBUG"") S XMY(""G.CLOZAPINE DEBUG@FO-DALLAS.MED.VA.GOV"")="""""
^XMB(3.9,169,2,1967,0)="""RTN"",""YSCLSERV"",64,0)"
^XMB(3.9,169,2,1968,0)=" D ^XMD"
^XMB(3.9,169,2,1969,0)="""RTN"",""YSCLSERV"",65,0)"
^XMB(3.9,169,2,1970,0)=" ;Mail the errors and successes back to the Roll-Up group at Forum."
^XMB(3.9,169,2,1971,0)="""RTN"",""YSCLSERV"",66,0)"
^XMB(3.9,169,2,1972,0)=" K ^TMP($J,""YSCLDATA"")"
^XMB(3.9,169,2,1973,0)="""RTN"",""YSCLSERV"",67,0)"
^XMB(3.9,169,2,1974,0)=" K %,%DT,%H,D,DA,DD,DIC,DIE,DIK,RET,X,XMDUN,XMDUZ,XMER,XMFROM"
^XMB(3.9,169,2,1975,0)="""RTN"",""YSCLSERV"",68,0)"
^XMB(3.9,169,2,1976,0)=" K XMREC,XMRG,XMSUB,XMTEXT,XMY,XMZ,XQDATE,XQSUB,Y,YSA,YSACTION"
^XMB(3.9,169,2,1977,0)="""RTN"",""YSCLSERV"",69,0)"
^XMB(3.9,169,2,1978,0)=" K YSCL28,YSCLA,YSCLAA,YSCLB,YSCLC,YSCLDA,YSCLDA1,YSCLDATA,YSCLDEA1"
^XMB(3.9,169,2,1979,0)="""RTN"",""YSCLSERV"",70,0)"
^XMB(3.9,169,2,1980,0)=" K YSCLDFN,YSCLDM,YSCLDOC,YSCLDOM,YSCLDR,YSCLDRA,YSCLDRB,YSCLDTA"
^XMB(3.9,169,2,1981,0)="""RTN"",""YSCLSERV"",71,0)"
^XMB(3.9,169,2,1982,0)=" K YSCLDUZ,YSCLED,YSCLER,YSCLFDA,YSCLFRQ,YSCLLNT,YSCLNM,YSCLOVR"
^XMB(3.9,169,2,1983,0)="""RTN"",""YSCLSERV"",72,0)"
^XMB(3.9,169,2,1984,0)=" K YSCLPT,YSCLSD1,YSCLSDT,YSCLSSN,YSCLST,YSCLSTN,YSCLSUB,YSCLTC"
^XMB(3.9,169,2,1985,0)="""RTN"",""YSCLSERV"",73,0)"
^XMB(3.9,169,2,1986,0)=" K YSCLWB,YSCLX,YSCLYN,YSDEBUG,YSI,YSOFF,YSPR,ZTQUEUED,ZTSK"
^XMB(3.9,169,2,1987,0)="""RTN"",""YSCLSERV"",74,0)"
^XMB(3.9,169,2,1988,0)=" Q"
^XMB(3.9,169,2,1989,0)="""RTN"",""YSCLSERV"",75,0)"
^XMB(3.9,169,2,1990,0)="DELETE ;Allow the NCCC users to delete clozapine registration at the individual sites"
^XMB(3.9,169,2,1991,0)="""RTN"",""YSCLSERV"",76,0)"
^XMB(3.9,169,2,1992,0)=" S YSCLLNT=1 F  X XMREC Q:XMER<0  S XMRG=$TR(XMRG,""- "","""") D"
^XMB(3.9,169,2,1993,0)="""RTN"",""YSCLSERV"",77,0)"
^XMB(3.9,169,2,1994,0)="  . I XMRG=""**++**DELETEALL**++**"" D DELALL Q"
^XMB(3.9,169,2,1995,0)="""RTN"",""YSCLSERV"",78,0)"
^XMB(3.9,169,2,1996,0)="  . I '$D(^YSCL(603.01,""B"",$P(XMRG,"",""))) S YSCLER="" ""_$P(XMRG,"","")_"" is not registered at "" D OUT Q"
^XMB(3.9,169,2,1997,0)="""RTN"",""YSCLSERV"",79,0)"
^XMB(3.9,169,2,1998,0)="  . S YSCLDFN=$O(^DPT(""SSN"",$P(XMRG,"","",2),"""")) I YSCLDFN="""" S YSCLER="" ""_$P(XMRG,"","")_"" is not a valid SSN at "" D OUT Q"
^XMB(3.9,169,2,1999,0)="""RTN"",""YSCLSERV"",80,0)"
^XMB(3.9,169,2,2000,0)="  . I '$D(^YSCL(603.01,""C"",YSCLDFN)) S YSCLER="" ""_$P(XMRG,"","",2)_"" is not registered at "" D OUT Q"
^XMB(3.9,169,2,2001,0)="""RTN"",""YSCLSERV"",81,0)"
^XMB(3.9,169,2,2002,0)="  . S YSCLA=$O(^YSCL(603.01,""B"",$P(XMRG,"",""),"""")) I YSCLA="""" S YSCLER="" ""_$P(XMRG,"","")_"" is not a valid entry at "" D OUT Q"
^XMB(3.9,169,2,2003,0)="""RTN"",""YSCLSERV"",82,0)"
^XMB(3.9,169,2,2004,0)="  . K ^YSCL(603.01,YSCLA),^YSCL(603.01,""B"",$P(XMRG,"",""),YSCLA),^YSCL(603.01,""C"",YSCLDFN,YSCLA)"
^XMB(3.9,169,2,2005,0)="""RTN"",""YSCLSERV"",83,0)"
^XMB(3.9,169,2,2006,0)="  . S YSCLER="" removed at "" D OUT"
^XMB(3.9,169,2,2007,0)="""RTN"",""YSCLSERV"",84,0)"
^XMB(3.9,169,2,2008,0)="  . ;I $D(^YSCL(603.01,""C"",+Y)) K ^YSCL(603.01,YSCLA),^YSCL(603.01,""B"",$P(XMRG,"",""),YSCLA),^YSCL(603.01,""C"",YSCLDFN,YSCLA) S YSCLER="" removed at "" D OUT Q  ;RLM 9-29-99 ADDED QUIT"
^XMB(3.9,169,2,2009,0)="""RTN"",""YSCLSERV"",85,0)"
^XMB(3.9,169,2,2010,0)=" G EXIT"
^XMB(3.9,169,2,2011,0)="""RTN"",""YSCLSERV"",86,0)"
^XMB(3.9,169,2,2012,0)="DELALL ;Delete all patients in file 603.01"
^XMB(3.9,169,2,2013,0)="""RTN"",""YSCLSERV"",87,0)"
^XMB(3.9,169,2,2014,0)=" S YSCLA=0 F  S YSCLA=$O(^YSCL(603.01,YSCLA)) Q:YSCLA=""""  D"
^XMB(3.9,169,2,2015,0)="""RTN"",""YSCLSERV"",88,0)"
^XMB(3.9,169,2,2016,0)="  . I YSCLA S YSCLER=$P(^YSCL(603.01,YSCLA,0),""^"",1)_"", ""_$P(^DPT($P(^YSCL(603.01,YSCLA,0),""^"",2),0),""^"",9)_"", (""_$P(^YSCL(603.01,YSCLA,0),""^"",3)_"") gdeleted at "" D OUT"
^XMB(3.9,169,2,2017,0)="""RTN"",""YSCLSERV"",89,0)"
^XMB(3.9,169,2,2018,0)="  . K ^YSCL(603.01,YSCLA)"
^XMB(3.9,169,2,2019,0)="""RTN"",""YSCLSERV"",90,0)"
^XMB(3.9,169,2,2020,0)=" Q"
^XMB(3.9,169,2,2021,0)="""RTN"",""YSCLSERV"",91,0)"
^XMB(3.9,169,2,2022,0)="REPORT ;send report of current registrations to the Clozapine group on Forum"
^XMB(3.9,169,2,2023,0)="""RTN"",""YSCLSERV"",92,0)"
^XMB(3.9,169,2,2024,0)=" D REPORT^YSCLSRV2 G EXIT"
^XMB(3.9,169,2,2025,0)="""RTN"",""YSCLSERV"",93,0)"
^XMB(3.9,169,2,2026,0)="OUT S YSCLLNT=$G(YSCLLNT)+1,^TMP($J,""YSCLDATA"",YSCLLNT)=XMRG_YSCLER_YSCLST Q"
^XMB(3.9,169,2,2027,0)="""RTN"",""YSCLSERV"",94,0)"
^XMB(3.9,169,2,2028,0)=" ;Build the text for the return message here."
^XMB(3.9,169,2,2029,0)="""RTN"",""YSCLSERV"",95,0)"
^XMB(3.9,169,2,2030,0)="REBUILD ;"
^XMB(3.9,169,2,2031,0)="""RTN"",""YSCLSERV"",96,0)"
^XMB(3.9,169,2,2032,0)=" D REBUILD^YSCLSRV2 G EXIT"
^XMB(3.9,169,2,2033,0)="""RTN"",""YSCLSERV"",97,0)"
^XMB(3.9,169,2,2034,0)="UPDATE ;Update record with Monthly, Weekly or Bi-weekly status"
^XMB(3.9,169,2,2035,0)="""RTN"",""YSCLSERV"",98,0)"
^XMB(3.9,169,2,2036,0)=" F  X XMREC Q:XMER<0  S XMRG=$TR(XMRG,""- "","""") D"
^XMB(3.9,169,2,2037,0)="""RTN"",""YSCLSERV"",99,0)"
^XMB(3.9,169,2,2038,0)="  . I XMRG'?2U5N1"",""9N1"",""1U S YSCLER="" is in error and was not added at "" D OUT Q"
^XMB(3.9,169,2,2039,0)="""RTN"",""YSCLSERV"",100,0)"
^XMB(3.9,169,2,2040,0)="  . I $P(XMRG,"","")'?2U5N S YSCLER="" is not a valid Clozapine number format "" D OUT Q"
^XMB(3.9,169,2,2041,0)="""RTN"",""YSCLSERV"",101,0)"
^XMB(3.9,169,2,2042,0)="  . I $P(XMRG,"","",2)'?9N S YSCLER="" An SSN must be 9 numbers "" D OUT Q"
^XMB(3.9,169,2,2043,0)="""RTN"",""YSCLSERV"",102,0)"
^XMB(3.9,169,2,2044,0)="  . I $P(XMRG,"","",3)'=""B"",$P(XMRG,"","",3)'=""W"",$P(XMRG,"","",3)'=""M"" S YSCLER="" You must specify Monthly, Weekly or Biweekly "" D OUT Q  ;RLM 06/15/05"
^XMB(3.9,169,2,2045,0)="""RTN"",""YSCLSERV"",103,0)"
^XMB(3.9,169,2,2046,0)="  . S YSCLNM=$P(XMRG,"",""),YSCLSSN=$P(XMRG,"","",2),YSCLWB=$P(XMRG,"","",3)"
^XMB(3.9,169,2,2047,0)="""RTN"",""YSCLSERV"",104,0)"
^XMB(3.9,169,2,2048,0)="  . I '$D(^YSCL(603.01,""B"",YSCLNM)) S YSCLER="" does not exist at "" D OUT Q"
^XMB(3.9,169,2,2049,0)="""RTN"",""YSCLSERV"",105,0)"
^XMB(3.9,169,2,2050,0)="  . S YSCLDA=$O(^DPT(""SSN"",YSCLSSN,0))"
^XMB(3.9,169,2,2051,0)="""RTN"",""YSCLSERV"",106,0)"
^XMB(3.9,169,2,2052,0)="  . I YSCLDA="""" S YSCLER="" SSN does not exist at "" D OUT Q"
^XMB(3.9,169,2,2053,0)="""RTN"",""YSCLSERV"",107,0)"
^XMB(3.9,169,2,2054,0)="  . I $O(^YSCL(603.01,""B"",YSCLNM,0))="""" S YSCLER="" SSN not in Clozapine file "" D OUT Q"
^XMB(3.9,169,2,2055,0)="""RTN"",""YSCLSERV"",108,0)"
^XMB(3.9,169,2,2056,0)="  . I $O(^DPT(""SSN"",YSCLSSN,YSCLDA)) S YSCLER="" SSN has more than one owner "" D OUT Q"
^XMB(3.9,169,2,2057,0)="""RTN"",""YSCLSERV"",109,0)"
^XMB(3.9,169,2,2058,0)="  . I $O(^YSCL(603.01,""B"",YSCLNM,0))'=$O(^YSCL(603.01,""C"",YSCLDA,0)) S YSCLER="" SSN (""_YSCLSSN_"",""_$P(^DPT(YSCLDA,0),""^"")_"") has multiple Clozapine Numbers at "" D OUT"
^XMB(3.9,169,2,2059,0)="""RTN"",""YSCLSERV"",110,0)"
^XMB(3.9,169,2,2060,0)="  . I $O(^YSCL(603.01,""B"",YSCLNM,0))=$O(^YSCL(603.01,""C"",YSCLDA,0)) D"
^XMB(3.9,169,2,2061,0)="""RTN"",""YSCLSERV"",111,0)"
^XMB(3.9,169,2,2062,0)="  . . S YSCLDA1=$O(^YSCL(603.01,""B"",YSCLNM,0)) S $P(^YSCL(603.01,YSCLDA1,0),""^"",3)=YSCLWB"
^XMB(3.9,169,2,2063,0)="""RTN"",""YSCLSERV"",112,0)"
^XMB(3.9,169,2,2064,0)="  . . S YSCLER="" ""_YSCLNM_"" (""_$P(^DPT(YSCLDA,0),""^"")_"") updated to ""_$S(YSCLWB=""M"":""Monthly"",YSCLWB=""W"":""Weekly"",YSCLWB=""B"":""Bi-weekly"",1:""Unknown"")_"" at "" D OUT ;06/15/05"
^XMB(3.9,169,2,2065,0)="""RTN"",""YSCLSERV"",113,0)"
^XMB(3.9,169,2,2066,0)=" G EXIT"
^XMB(3.9,169,2,2067,0)="""RTN"",""YSCLSERV"",114,0)"
^XMB(3.9,169,2,2068,0)="RESEND ;Trigger retransmission of Clozapine data"
^XMB(3.9,169,2,2069,0)="""RTN"",""YSCLSERV"",115,0)"
^XMB(3.9,169,2,2070,0)=" X XMREC"
^XMB(3.9,169,2,2071,0)="""RTN"",""YSCLSERV"",116,0)"
^XMB(3.9,169,2,2072,0)=" K %DT S X=XMRG,%DT=""P"" D ^%DT I Y=-1 S YSCLER="" is an invalid date, RESEND not triggered at "" D OUT G EXIT"
^XMB(3.9,169,2,2073,0)="""RTN"",""YSCLSERV"",117,0)"
^XMB(3.9,169,2,2074,0)=" S YSCLED=Y,(YSCLSDT,X)=Y D H^%DTC I %H#7'=5 S YSCLER="" is not a Tuesday, RESEND not triggered at "" D OUT G EXIT"
^XMB(3.9,169,2,2075,0)="""RTN"",""YSCLSERV"",118,0)"
^XMB(3.9,169,2,2076,0)=" D SERV^YSCLTST2"
^XMB(3.9,169,2,2077,0)="""RTN"",""YSCLSERV"",119,0)"
^XMB(3.9,169,2,2078,0)=" S Y=YSCLSDT X ^DD(""DD"") S YSCLER="" - Resend triggered (local task #""_$G(ZTSK)_"") by ""_XMFROM_"" for ""_Y_"" at "" D OUT"
^XMB(3.9,169,2,2079,0)="""RTN"",""YSCLSERV"",120,0)"
^XMB(3.9,169,2,2080,0)=" G EXIT"
^XMB(3.9,169,2,2081,0)="""RTN"",""YSCLSERV"",121,0)"
^XMB(3.9,169,2,2082,0)="DSET ;Set the day of the week for the roll-up to run."
^XMB(3.9,169,2,2083,0)="""RTN"",""YSCLSERV"",122,0)"
^XMB(3.9,169,2,2084,0)=" X XMREC Q:XMER<0  S X=$TR(XMRG,""- "","""")"
^XMB(3.9,169,2,2085,0)="""RTN"",""YSCLSERV"",123,0)"
^XMB(3.9,169,2,2086,0)=" S YSOFF=$S(X=""SUNDAY"":0,X=""MONDAY"":1,X=""TUESDAY"":2,X=""WEDNESDAY"":3,X=""THURSDAY"":4,X=""FRIDAY"":5,X=""SATURDAY"":6,1:7)"
^XMB(3.9,169,2,2087,0)="""RTN"",""YSCLSERV"",124,0)"
^XMB(3.9,169,2,2088,0)=" I YSOFF>6 S YSCLLNT=$G(YSCLLNT)+1,^TMP($J,""YSCLDATA"",YSCLLNT)=X_"" isn't a valid day of the week."" G EXIT"
^XMB(3.9,169,2,2089,0)="""RTN"",""YSCLSERV"",125,0)"
^XMB(3.9,169,2,2090,0)=" S $P(^YSCL(603.03,1,0),""^"",2)=X"
^XMB(3.9,169,2,2091,0)="""RTN"",""YSCLSERV"",126,0)"
^XMB(3.9,169,2,2092,0)=" S YSCLLNT=$G(YSCLLNT)+1,^TMP($J,""YSCLDATA"",YSCLLNT)=""Run day set to ""_X"
^XMB(3.9,169,2,2093,0)="""RTN"",""YSCLSERV"",127,0)"
^XMB(3.9,169,2,2094,0)=" G EXIT"
^XMB(3.9,169,2,2095,0)="""RTN"",""YSCLSERV"",128,0)"
^XMB(3.9,169,2,2096,0)=" Q"
^XMB(3.9,169,2,2097,0)="""RTN"",""YSCLSERV"",129,0)"
^XMB(3.9,169,2,2098,0)="DEBUG ;Turn debug mode on and off."
^XMB(3.9,169,2,2099,0)="""RTN"",""YSCLSERV"",130,0)"
^XMB(3.9,169,2,2100,0)=" I YSCLSUB[""DEBUG ON"" D"
^XMB(3.9,169,2,2101,0)="""RTN"",""YSCLSERV"",131,0)"
^XMB(3.9,169,2,2102,0)="  . S YSCLLNT=$G(YSCLLNT)+1,^TMP($J,""YSCLDATA"",YSCLLNT)=""Debug Mode is ""_$S(YSDEBUG:""already"",1:""now"")_"" ON at ""_YSCLSTN"
^XMB(3.9,169,2,2103,0)="""RTN"",""YSCLSERV"",132,0)"
^XMB(3.9,169,2,2104,0)="  . S $P(^YSCL(603.03,1,0),""^"",3)=1"
^XMB(3.9,169,2,2105,0)="""RTN"",""YSCLSERV"",133,0)"
^XMB(3.9,169,2,2106,0)=" I YSCLSUB[""DEBUG OFF"" D"
^XMB(3.9,169,2,2107,0)="""RTN"",""YSCLSERV"",134,0)"
^XMB(3.9,169,2,2108,0)="  . S YSCLLNT=$G(YSCLLNT)+1,^TMP($J,""YSCLDATA"",YSCLLNT)=""Debug Mode is ""_$S('YSDEBUG:""already"",1:""now"")_"" OFF at ""_YSCLSTN"
^XMB(3.9,169,2,2109,0)="""RTN"",""YSCLSERV"",135,0)"
^XMB(3.9,169,2,2110,0)="  . S $P(^YSCL(603.03,1,0),""^"",3)=0"
^XMB(3.9,169,2,2111,0)="""RTN"",""YSCLSERV"",136,0)"
^XMB(3.9,169,2,2112,0)=" G EXIT"
^XMB(3.9,169,2,2113,0)="""RTN"",""YSCLSERV"",137,0)"
^XMB(3.9,169,2,2114,0)="ZEOR ;YSCLSERV"
^XMB(3.9,169,2,2115,0)="""RTN"",""YSCLSRV1"")"
^XMB(3.9,169,2,2116,0)="0^10^B2228786^B2175459"
^XMB(3.9,169,2,2117,0)="""RTN"",""YSCLSRV1"",1,0)"
^XMB(3.9,169,2,2118,0)="YSCLSRV1 ;DALOI/RLM-Clozapine data server ;24 APR 1990"
^XMB(3.9,169,2,2119,0)="""RTN"",""YSCLSRV1"",2,0)"
^XMB(3.9,169,2,2120,0)=" ;;5.01;MENTAL HEALTH;**61,69,74,90**;Dec 30, 1994;Build 18"
^XMB(3.9,169,2,2121,0)="""RTN"",""YSCLSRV1"",3,0)"
^XMB(3.9,169,2,2122,0)=" ; Reference to ^%ZOSF supported by IA #10096"
^XMB(3.9,169,2,2123,0)="""RTN"",""YSCLSRV1"",4,0)"
^XMB(3.9,169,2,2124,0)=" ; Reference to ^XMD supported by IA #10070"
^XMB(3.9,169,2,2125,0)="""RTN"",""YSCLSRV1"",5,0)"
^XMB(3.9,169,2,2126,0)="CSUM ;Calculate checksum for routines and transmit errors to Forum"
^XMB(3.9,169,2,2127,0)="""RTN"",""YSCLSRV1"",6,0)"
^XMB(3.9,169,2,2128,0)=" S X=$T(+0) X ^%ZOSF(""RSUM"") S ^TMP(""YSCL"",$J,2,0)=""YSCLSRV1 at ""_YSCLST_"" = ""_Y"
^XMB(3.9,169,2,2129,0)="""RTN"",""YSCLSRV1"",7,0)"
^XMB(3.9,169,2,2130,0)=" F YSI=1:1 S YSA=$T(ROU+YSI) Q:YSA[""***""  S X=$P($P(YSA,"",""),"";"",3) D"
^XMB(3.9,169,2,2131,0)="""RTN"",""YSCLSRV1"",8,0)"
^XMB(3.9,169,2,2132,0)="  . X ^%ZOSF(""TEST"") I '$T S ^TMP(""YSCL"",$J,YSI+3,0)=X_"" is missing."" Q"
^XMB(3.9,169,2,2133,0)="""RTN"",""YSCLSRV1"",9,0)"
^XMB(3.9,169,2,2134,0)="  . X ^%ZOSF(""RSUM"") S ^TMP(""YSCL"",$J,YSI+3,0)=X_"" should be ""_$P(YSA,"","",2)_"" is ""_Y"
^XMB(3.9,169,2,2135,0)="""RTN"",""YSCLSRV1"",10,0)"
^XMB(3.9,169,2,2136,0)=" K XMY S XMY(""G.CLOZAPINE ROLL-UP@FORUM.VA.GOV"")="""""
^XMB(3.9,169,2,2137,0)="""RTN"",""YSCLSRV1"",11,0)"
^XMB(3.9,169,2,2138,0)=" I YSDEBUG K XMY S XMY(""G.CLOZAPINE DEBUG@FO-DALLAS.MED.VA.GOV"")="""""
^XMB(3.9,169,2,2139,0)="""RTN"",""YSCLSRV1"",12,0)"
^XMB(3.9,169,2,2140,0)=" S XMSUB=$S(YSDEBUG:""DEBUG "",1:"""")_""Clozapine Checksum data at ""_YSCLST_"" run on ""_XQDATE"
^XMB(3.9,169,2,2141,0)="""RTN"",""YSCLSRV1"",13,0)"
^XMB(3.9,169,2,2142,0)=" S XMTEXT=""^TMP(""""YSCL"""",$J,"",XMDUZ=""CLOZAPINE MONITOR"" D ^XMD"
^XMB(3.9,169,2,2143,0)="""RTN"",""YSCLSRV1"",14,0)"
^XMB(3.9,169,2,2144,0)=" K %DT,YSA,YSCLST,YSI,X,XMDUZ,XMSUB,XMTEXT,Y"
^XMB(3.9,169,2,2145,0)="""RTN"",""YSCLSRV1"",15,0)"
^XMB(3.9,169,2,2146,0)=" K ^TMP(""YSCL"",$J)"
^XMB(3.9,169,2,2147,0)="""RTN"",""YSCLSRV1"",16,0)"
^XMB(3.9,169,2,2148,0)=" Q"
^XMB(3.9,169,2,2149,0)="""RTN"",""YSCLSRV1"",17,0)"
^XMB(3.9,169,2,2150,0)="ROU ;"
^XMB(3.9,169,2,2151,0)="""RTN"",""YSCLSRV1"",18,0)"
^XMB(3.9,169,2,2152,0)=" ;;YSCLSERV,25564583"
^XMB(3.9,169,2,2153,0)="""RTN"",""YSCLSRV1"",19,0)"
^XMB(3.9,169,2,2154,0)=" ;;YSCLSRV2,24723007"
^XMB(3.9,169,2,2155,0)="""RTN"",""YSCLSRV1"",20,0)"
^XMB(3.9,169,2,2156,0)=" ;;YSCLSRV3,24872037"
^XMB(3.9,169,2,2157,0)="""RTN"",""YSCLSRV1"",21,0)"
^XMB(3.9,169,2,2158,0)=" ;;YSCLTEST,12378003"
^XMB(3.9,169,2,2159,0)="""RTN"",""YSCLSRV1"",22,0)"
^XMB(3.9,169,2,2160,0)=" ;;YSCLTST1,11839450"
^XMB(3.9,169,2,2161,0)="""RTN"",""YSCLSRV1"",23,0)"
^XMB(3.9,169,2,2162,0)=" ;;YSCLTST2,32098862"
^XMB(3.9,169,2,2163,0)="""RTN"",""YSCLSRV1"",24,0)"
^XMB(3.9,169,2,2164,0)=" ;;YSCLTST3,25645207"
^XMB(3.9,169,2,2165,0)="""RTN"",""YSCLSRV1"",25,0)"
^XMB(3.9,169,2,2166,0)=" ;;***"
^XMB(3.9,169,2,2167,0)="""RTN"",""YSCLSRV1"",26,0)"
^XMB(3.9,169,2,2168,0)="ZEOR ;YSCLSRV1"
^XMB(3.9,169,2,2169,0)="""RTN"",""YSCLSRV2"")"
^XMB(3.9,169,2,2170,0)="0^7^B45550399^B26824513"
^XMB(3.9,169,2,2171,0)="""RTN"",""YSCLSRV2"",1,0)"
^XMB(3.9,169,2,2172,0)="YSCLSRV2 ;DALOI/RLM-Clozapine data server ;APR 24,1990@15:26"
^XMB(3.9,169,2,2173,0)="""RTN"",""YSCLSRV2"",2,0)"
^XMB(3.9,169,2,2174,0)=" ;;5.01;MENTAL HEALTH;**69,90**;Dec 30, 1994;Build 18"
^XMB(3.9,169,2,2175,0)="""RTN"",""YSCLSRV2"",3,0)"
^XMB(3.9,169,2,2176,0)=" ; Reference to ^%ZOSF supported by IA #10096"
^XMB(3.9,169,2,2177,0)="""RTN"",""YSCLSRV2"",4,0)"
^XMB(3.9,169,2,2178,0)=" ; Reference to ^DPT supported by IA #10035"
^XMB(3.9,169,2,2179,0)="""RTN"",""YSCLSRV2"",5,0)"
^XMB(3.9,169,2,2180,0)=" ; Reference to ^DD(""DD"" supported by IA #10017"
^XMB(3.9,169,2,2181,0)="""RTN"",""YSCLSRV2"",6,0)"
^XMB(3.9,169,2,2182,0)=" ; Reference to ^PS(55 supported by IA #787"
^XMB(3.9,169,2,2183,0)="""RTN"",""YSCLSRV2"",7,0)"
^XMB(3.9,169,2,2184,0)=" ; Reference to ^PSDRUG supported by IA #25"
^XMB(3.9,169,2,2185,0)="""RTN"",""YSCLSRV2"",8,0)"
^XMB(3.9,169,2,2186,0)=" ; Reference to ^PSRX supported by IA #780"
^XMB(3.9,169,2,2187,0)="""RTN"",""YSCLSRV2"",9,0)"
^XMB(3.9,169,2,2188,0)=" ; Reference to ^VA(200 supported by IA #10060"
^XMB(3.9,169,2,2189,0)="""RTN"",""YSCLSRV2"",10,0)"
^XMB(3.9,169,2,2190,0)=" ; Reference to $$SITE^VASITE supported by IA #10112"
^XMB(3.9,169,2,2191,0)="""RTN"",""YSCLSRV2"",11,0)"
^XMB(3.9,169,2,2192,0)=" ; Reference to $$FMTE^XLFDT() supported by IA #10103"
^XMB(3.9,169,2,2193,0)="""RTN"",""YSCLSRV2"",12,0)"
^XMB(3.9,169,2,2194,0)=" ; Reference to ^PSDRUG supported by IA #221"
^XMB(3.9,169,2,2195,0)="""RTN"",""YSCLSRV2"",13,0)"
^XMB(3.9,169,2,2196,0)=" ; Reference to ^LAB(60 supported by IA #333"
^XMB(3.9,169,2,2197,0)="""RTN"",""YSCLSRV2"",14,0)"
^XMB(3.9,169,2,2198,0)=" ; "
^XMB(3.9,169,2,2199,0)="""RTN"",""YSCLSRV2"",15,0)"
^XMB(3.9,169,2,2200,0)="REPORT ;send report of current registrations to the Clozapine group on Forum"
^XMB(3.9,169,2,2201,0)="""RTN"",""YSCLSRV2"",16,0)"
^XMB(3.9,169,2,2202,0)=" S XMRG="""",YSCLA=0 F  S YSCLA=$O(^YSCL(603.01,YSCLA)) Q:'YSCLA  S YSCLDTA=$G(^YSCL(603.01,YSCLA,0)) D"
^XMB(3.9,169,2,2203,0)="""RTN"",""YSCLSRV2"",17,0)"
^XMB(3.9,169,2,2204,0)="  . I YSCLDTA="""" S YSCLER=""Clozapine Patient List damaged at "" D OUT Q"
^XMB(3.9,169,2,2205,0)="""RTN"",""YSCLSRV2"",18,0)"
^XMB(3.9,169,2,2206,0)="  . S YSCLWB=$P(YSCLDTA,""^"",3),YSCLWB=$S(YSCLWB=""M"":""Monthly"",YSCLWB=""W"":""Weekly"",YSCLWB=""B"":""Bi-weekly"",1:""Unknown"")"
^XMB(3.9,169,2,2207,0)="""RTN"",""YSCLSRV2"",19,0)"
^XMB(3.9,169,2,2208,0)="  . S YSCLER=$P(YSCLDTA,""^"")_"" is assigned to ""_$P($G(^DPT($P(YSCLDTA,""^"",2),0)),""^"")_"" (""_$P($G(^DPT($P(YSCLDTA,""^"",2),0)),""^"",9)_"") ""_YSCLWB_"" at "" D OUT"
^XMB(3.9,169,2,2209,0)="""RTN"",""YSCLSRV2"",20,0)"
^XMB(3.9,169,2,2210,0)=" I YSCLSUB[""+"" S YSCLLNT=$G(YSCLLNT)+1,^TMP($J,""YSCLDATA"",YSCLLNT)=""===="" S YSCLA=0 F  S YSCLA=$O(^PS(55,""ASAND"",YSCLA)) Q:'YSCLA  S YSCLER="""" D  D:YSCLER]"""" OUT ;Transmit the most recent for each patient."
^XMB(3.9,169,2,2211,0)="""RTN"",""YSCLSRV2"",21,0)"
^XMB(3.9,169,2,2212,0)="  . S YSCLDFN=$P(^PS(55,YSCLA,0),""^"") ;Find out who we're reporting on"
^XMB(3.9,169,2,2213,0)="""RTN"",""YSCLSRV2"",22,0)"
^XMB(3.9,169,2,2214,0)="  . S YSCLNM=$P(^DPT(YSCLDFN,0),""^"") ;Get the patients name"
^XMB(3.9,169,2,2215,0)="""RTN"",""YSCLSRV2"",23,0)"
^XMB(3.9,169,2,2216,0)="  . S YSCLSD1=YSCLNM_""^""_^PS(55,YSCLA,""SAND"") ;Add name to data"
^XMB(3.9,169,2,2217,0)="""RTN"",""YSCLSRV2"",24,0)"
^XMB(3.9,169,2,2218,0)="  . S YSCLZZ=YSCLA,$P(YSCLSD1,""^"",4)=$P($$CL^YSCLTST2(YSCLDFN),""^"",2),YSCLA=YSCLZZ"
^XMB(3.9,169,2,2219,0)="""RTN"",""YSCLSRV2"",25,0)"
^XMB(3.9,169,2,2220,0)="  . S YSCLDOC=$P(YSCLSD1,""^"",6) I YSCLDOC K DIERR,YSCL200 D FIND^DIC(200,,"".01"",""X"",""`""_YSCLDOC,,,,,""YSCL200"",""YERROR"") S $P(YSCLSD1,""^"",6)=$G(YSCL200(""DILIST"",1,1))"
^XMB(3.9,169,2,2221,0)="""RTN"",""YSCLSRV2"",26,0)"
^XMB(3.9,169,2,2222,0)="  . ;S YSCLDOC=$P(YSCLSD1,""^"",6) I YSCLDOC S $P(YSCLSD1,""^"",6)=$P($G(^VA(200,YSCLDOC,0)),""^"") ;OLD CODE"
^XMB(3.9,169,2,2223,0)="""RTN"",""YSCLSRV2"",27,0)"
^XMB(3.9,169,2,2224,0)="  . S $P(YSCLSD1,""^"",7)=$P(YSCLSD1,""^"",7) ;Pad it to 7 ^-pieces"
^XMB(3.9,169,2,2225,0)="""RTN"",""YSCLSRV2"",28,0)"
^XMB(3.9,169,2,2226,0)="  . S YSCLB=0 F  S YSCLB=$O(^PS(55,YSCLA,""P"",YSCLB)) Q:'YSCLB  I $D(^PSRX(^PS(55,YSCLA,""P"",YSCLB,0),""SAND"")) D  ;D OUT ;This will transmit them all"
^XMB(3.9,169,2,2227,0)="""RTN"",""YSCLSRV2"",29,0)"
^XMB(3.9,169,2,2228,0)="  . . S YSCLER=YSCLSD1_""^""_$G(^PSRX(^PS(55,YSCLA,""P"",YSCLB,0),""SAND""))_""^"""
^XMB(3.9,169,2,2229,0)="""RTN"",""YSCLSRV2"",30,0)"
^XMB(3.9,169,2,2230,0)="  . . S Y=$P(YSCLER,""^"",7) I Y]"""" X ^DD(""DD"") S $P(YSCLER,""^"",7)=Y"
^XMB(3.9,169,2,2231,0)="""RTN"",""YSCLSRV2"",31,0)"
^XMB(3.9,169,2,2232,0)="  . . S Y=$P(YSCLER,""^"",10) I Y]"""" X ^DD(""DD"") S $P(YSCLER,""^"",10)=Y"
^XMB(3.9,169,2,2233,0)="""RTN"",""YSCLSRV2"",32,0)"
^XMB(3.9,169,2,2234,0)="  . ;D OUT"
^XMB(3.9,169,2,2235,0)="""RTN"",""YSCLSRV2"",33,0)"
^XMB(3.9,169,2,2236,0)=" S YSCLLNT=$G(YSCLLNT)+1,^TMP($J,""YSCLDATA"",YSCLLNT)=""  Linked Tests:"""
^XMB(3.9,169,2,2237,0)="""RTN"",""YSCLSRV2"",34,0)"
^XMB(3.9,169,2,2238,0)=" S YSCLA=0 F  S YSCLA=$O(^YSCL(603.04,1,1,YSCLA)) Q:'YSCLA  D"
^XMB(3.9,169,2,2239,0)="""RTN"",""YSCLSRV2"",35,0)"
^XMB(3.9,169,2,2240,0)="  . S YSCLLNT=$G(YSCLLNT)+1,^TMP($J,""YSCLDATA"",YSCLLNT)=$P(^LAB(60,$P(^YSCL(603.04,1,1,YSCLA,0),""^"",1),0),""^"")"
^XMB(3.9,169,2,2241,0)="""RTN"",""YSCLSRV2"",36,0)"
^XMB(3.9,169,2,2242,0)="  . S YSCLTYPE=$P(^YSCL(603.04,1,1,YSCLA,0),""^"",2),YSCLRPT=$P(^YSCL(603.04,1,1,YSCLA,0),""^"",3)"
^XMB(3.9,169,2,2243,0)="""RTN"",""YSCLSRV2"",37,0)"
^XMB(3.9,169,2,2244,0)="  . S YSCLTA=""  reports  ""_$S(YSCLTYPE=""W"":""WHITE BLOOD COUNT"",YSCLTYPE=""A"":""ABSOLUTE NEUTROPHIL COUNT"",YSCLTYPE=""N"":""NEUTROPHIL PERCENT"",YSCLTYPE=""S"":""SEGS %"",YSCLTYPE=""B"":""BANDS %"",YSCLTYPE=""T"":""BANDS A"",YSCLTYPE=""C"":""SEGS A"")"
^XMB(3.9,169,2,2245,0)="""RTN"",""YSCLSRV2"",38,0)"
^XMB(3.9,169,2,2246,0)="  . S ^TMP($J,""YSCLDATA"",YSCLLNT)=^TMP($J,""YSCLDATA"",YSCLLNT)_YSCLTA_""  ""_$S(YSCLRPT:""K/units"",1:""units"")"
^XMB(3.9,169,2,2247,0)="""RTN"",""YSCLSRV2"",39,0)"
^XMB(3.9,169,2,2248,0)=" ;Old method"
^XMB(3.9,169,2,2249,0)="""RTN"",""YSCLSRV2"",40,0)"
^XMB(3.9,169,2,2250,0)=" ;S YSCLLNT=$G(YSCLLNT)+1,^TMP($J,""YSCLDATA"",YSCLLNT)=""  Linked Tests:"""
^XMB(3.9,169,2,2251,0)="""RTN"",""YSCLSRV2"",41,0)"
^XMB(3.9,169,2,2252,0)=" ;S YSCLLNT=$G(YSCLLNT)+1,^TMP($J,""YSCLDATA"",YSCLLNT)=""WBC = ""_$$GET1^DIQ(603.02,1,.01)_"", Neut% = ""_$$GET1^DIQ(603.02,1,1)"
^XMB(3.9,169,2,2253,0)="""RTN"",""YSCLSRV2"",42,0)"
^XMB(3.9,169,2,2254,0)=" S YSCLLNT=$G(YSCLLNT)+1,^TMP($J,""YSCLDATA"",YSCLLNT)=""  Monitored Drug - Monitor Routine - NDC - Lab Test"""
^XMB(3.9,169,2,2255,0)="""RTN"",""YSCLSRV2"",43,0)"
^XMB(3.9,169,2,2256,0)=" S YSPR=0 F  S YSPR=$O(^PSDRUG(YSPR)) Q:'YSPR  I $P($G(^PSDRUG(YSPR,""CLOZ1"")),""^"")]"""" D"
^XMB(3.9,169,2,2257,0)="""RTN"",""YSCLSRV2"",44,0)"
^XMB(3.9,169,2,2258,0)="  . S YSCLTC=$P($G(^PSDRUG(YSPR,""CLOZ"")),""^"") I YSCLTC S YSCLTC=$$GET1^DIQ(60,YSCLTC,.01)"
^XMB(3.9,169,2,2259,0)="""RTN"",""YSCLSRV2"",45,0)"
^XMB(3.9,169,2,2260,0)="  . S YSCLLNT=$G(YSCLLNT)+1,^TMP($J,""YSCLDATA"",YSCLLNT)=$P($G(^PSDRUG(YSPR,0)),""^"")_"" - ""_$P(^PSDRUG(YSPR,""CLOZ1""),""^"")_"" - ""_$P($G(^PSDRUG(YSPR,2)),""^"",4)_"" - ""_YSCLTC"
^XMB(3.9,169,2,2261,0)="""RTN"",""YSCLSRV2"",46,0)"
^XMB(3.9,169,2,2262,0)=" S YSCLDR=0 F  S YSCLDR=$O(^PSDRUG(YSCLDR)) Q:'YSCLDR  I $D(^PSDRUG(YSCLDR,""CLOZ2"")) D"
^XMB(3.9,169,2,2263,0)="""RTN"",""YSCLSRV2"",47,0)"
^XMB(3.9,169,2,2264,0)="  . S YSCLDRA=0 F  S YSCLDRA=$O(^PSDRUG(YSCLDR,""CLOZ2"",YSCLDRA)) Q:'YSCLDRA  D"
^XMB(3.9,169,2,2265,0)="""RTN"",""YSCLSRV2"",48,0)"
^XMB(3.9,169,2,2266,0)="  . . S YSCLDRB=^PSDRUG(YSCLDR,""CLOZ2"",YSCLDRA,0)"
^XMB(3.9,169,2,2267,0)="""RTN"",""YSCLSRV2"",49,0)"
^XMB(3.9,169,2,2268,0)="  . . S YSCLLNT=$G(YSCLLNT)+1,^TMP($J,""YSCLDATA"",YSCLLNT)=$P(^PSDRUG(YSCLDR,0),""^"")_"" uses ""_$P(^LAB(60,$P(YSCLDRB,""^""),0),""^"")_"" to indicate ""_$S($P(YSCLDRB,""^"",4)=1:""White Blood Count"",1:""Neutrophil Count"")"
^XMB(3.9,169,2,2269,0)="""RTN"",""YSCLSRV2"",50,0)"
^XMB(3.9,169,2,2270,0)=" ;D OPTION^%ZTLOAD(""YSCL WEEKLY TRANSMISSION"",""LIST"") D"
^XMB(3.9,169,2,2271,0)="""RTN"",""YSCLSRV2"",51,0)"
^XMB(3.9,169,2,2272,0)=" ; . S ZTSK="""" F  S ZTSK=$O(LIST(ZTSK)) Q:ZTSK=""""  D"
^XMB(3.9,169,2,2273,0)="""RTN"",""YSCLSRV2"",52,0)"
^XMB(3.9,169,2,2274,0)=" ; . . D STAT^%ZTLOAD S YSCLLNT=$G(YSCLLNT)+1,^TMP($J,""YSCLDATA"",YSCLLNT)=""Local Task # ""_ZTSK_"" is ""_$S('ZTSK(0):"" not "",1:"""")_""defined with a status of ""_ZTSK(2)"
^XMB(3.9,169,2,2275,0)="""RTN"",""YSCLSRV2"",53,0)"
^XMB(3.9,169,2,2276,0)=" S YSCLLNT=$G(YSCLLNT)+1,^TMP($J,""YSCLDATA"",YSCLLNT)=""              Run day is: ""_$P(^YSCL(603.03,1,0),""^"",2)"
^XMB(3.9,169,2,2277,0)="""RTN"",""YSCLSRV2"",54,0)"
^XMB(3.9,169,2,2278,0)=" S YSCLLNT=$G(YSCLLNT)+1,^TMP($J,""YSCLDATA"",YSCLLNT)=""           Debug Mode is: ""_$S($P(^YSCL(603.03,1,0),""^"",3):""On."",1:""Off."")"
^XMB(3.9,169,2,2279,0)="""RTN"",""YSCLSRV2"",55,0)"
^XMB(3.9,169,2,2280,0)=" S YSCLLNT=$G(YSCLLNT)+1,^TMP($J,""YSCLDATA"",YSCLLNT)=""Last Run Date (start) is: ""_$$FMTE^XLFDT($P(^YSCL(603.03,1,0),""^"",4))"
^XMB(3.9,169,2,2281,0)="""RTN"",""YSCLSRV2"",56,0)"
^XMB(3.9,169,2,2282,0)=" S YSCLLNT=$G(YSCLLNT)+1,^TMP($J,""YSCLDATA"",YSCLLNT)="" Last Run Date (stop) is: ""_$$FMTE^XLFDT($P(^YSCL(603.03,1,0),""^"",5))"
^XMB(3.9,169,2,2283,0)="""RTN"",""YSCLSRV2"",57,0)"
^XMB(3.9,169,2,2284,0)=" S YSCLLNT=$G(YSCLLNT)+1,^TMP($J,""YSCLDATA"",YSCLLNT)=""Last Demographic date is: ""_$$FMTE^XLFDT($P(^YSCL(603.03,1,0),""^"",6))"
^XMB(3.9,169,2,2285,0)="""RTN"",""YSCLSRV2"",58,0)"
^XMB(3.9,169,2,2286,0)=" Q"
^XMB(3.9,169,2,2287,0)="""RTN"",""YSCLSRV2"",59,0)"
^XMB(3.9,169,2,2288,0)="OUT S YSCLLNT=$G(YSCLLNT)+1,^TMP($J,""YSCLDATA"",YSCLLNT)=XMRG_YSCLER_YSCLST Q"
^XMB(3.9,169,2,2289,0)="""RTN"",""YSCLSRV2"",60,0)"
^XMB(3.9,169,2,2290,0)=" ;Build the text for the return message here."
^XMB(3.9,169,2,2291,0)="""RTN"",""YSCLSRV2"",61,0)"
^XMB(3.9,169,2,2292,0)="REBUILD ;"
^XMB(3.9,169,2,2293,0)="""RTN"",""YSCLSRV2"",62,0)"
^XMB(3.9,169,2,2294,0)=" S XMRG="""",(YSCLA,YSCLLNT)=1 F  S YSCLA=$O(^PS(55,""ASAND1"",YSCLA)) W:'$D(ZTQUEUED) ""."" Q:YSCLA=""""  D"
^XMB(3.9,169,2,2295,0)="""RTN"",""YSCLSRV2"",63,0)"
^XMB(3.9,169,2,2296,0)="  . S YSCLB=$O(^PS(55,""ASAND1"",YSCLA,"""")) I YSCLB="""" S YSCLER="" record is in error (1) at "" D OUT Q"
^XMB(3.9,169,2,2297,0)="""RTN"",""YSCLSRV2"",64,0)"
^XMB(3.9,169,2,2298,0)="  . I '$D(^PS(55,YSCLB,0)) S YSCLER="" record is in error (2) at "" D OUT Q"
^XMB(3.9,169,2,2299,0)="""RTN"",""YSCLSRV2"",65,0)"
^XMB(3.9,169,2,2300,0)="  . S YSCLB=$P(^PS(55,YSCLB,0),""^"") I YSCLB="""" S YSCLER="" record is in error (3) at "" D OUT Q"
^XMB(3.9,169,2,2301,0)="""RTN"",""YSCLSRV2"",66,0)"
^XMB(3.9,169,2,2302,0)="  . I '$D(^PS(55,YSCLB,""SAND"")) S YSCLER="" record is in error (4) at "" D OUT Q"
^XMB(3.9,169,2,2303,0)="""RTN"",""YSCLSRV2"",67,0)"
^XMB(3.9,169,2,2304,0)="  . S DIC=""^DPT("",DIC(0)=""X"",D=""SSN"",(YSCLSSN,X)=$P(^DPT(YSCLB,0),""^"",9)"
^XMB(3.9,169,2,2305,0)="""RTN"",""YSCLSRV2"",68,0)"
^XMB(3.9,169,2,2306,0)="  . I $D(^YSCL(603.01,""B"",YSCLA)) S YSCLX=$O(^YSCL(603.01,""B"",YSCLA,"""")) S:YSCLX]"""" YSCLX=$P(^YSCL(603.01,YSCLX,0),""^"",2),YSCLER="" Clozapine # ""_YSCLA_"" is in use by ""_$P($G(^DPT(YSCLX,0)),""^"")_"" at "" D OUT Q"
^XMB(3.9,169,2,2307,0)="""RTN"",""YSCLSRV2"",69,0)"
^XMB(3.9,169,2,2308,0)="  . D MIX^DIC1 S YSCLPT=+Y I Y=-1 S YSCLER="" could not be added at "" D OUT Q"
^XMB(3.9,169,2,2309,0)="""RTN"",""YSCLSRV2"",70,0)"
^XMB(3.9,169,2,2310,0)="  . K DD S DIC=""^YSCL(603.01,"",X=YSCLA,DIC(""DR"")=""1////""_YSCLPT K DO D FILE^DICN"
^XMB(3.9,169,2,2311,0)="""RTN"",""YSCLSRV2"",71,0)"
^XMB(3.9,169,2,2312,0)="  . S YSCLX=$O(^YSCL(603.01,""B"",YSCLA,"""")) S:YSCLX]"""" YSCLX=$P(^YSCL(603.01,YSCLX,0),""^"",2),YSCLER="",""_YSCLSSN_"" assigned to ""_$P($G(^DPT(YSCLX,0)),""^"")_"" at "" D OUT"
^XMB(3.9,169,2,2313,0)="""RTN"",""YSCLSRV2"",72,0)"
^XMB(3.9,169,2,2314,0)=" Q"
^XMB(3.9,169,2,2315,0)="""RTN"",""YSCLSRV2"",73,0)"
^XMB(3.9,169,2,2316,0)="OVRRID ;Update record with Monthly, Weekly or Bi-weekly status"
^XMB(3.9,169,2,2317,0)="""RTN"",""YSCLSRV2"",74,0)"
^XMB(3.9,169,2,2318,0)=" F  X XMREC Q:XMER<0  S XMRG=$TR(XMRG,""- "","""") D"
^XMB(3.9,169,2,2319,0)="""RTN"",""YSCLSRV2"",75,0)"
^XMB(3.9,169,2,2320,0)="  . I XMRG'?2U5N1"",""9N1"","".E S YSCLER="" is in error and was not added at "" D OUT Q"
^XMB(3.9,169,2,2321,0)="""RTN"",""YSCLSRV2"",76,0)"
^XMB(3.9,169,2,2322,0)="  . I $P(XMRG,"","")'?2U5N S YSCLER="" is not a valid Clozapine number format "" D OUT Q"
^XMB(3.9,169,2,2323,0)="""RTN"",""YSCLSRV2"",77,0)"
^XMB(3.9,169,2,2324,0)="  . I $P(XMRG,"","",2)'?9N S YSCLER="" An SSN must be 9 numbers "" D OUT Q"
^XMB(3.9,169,2,2325,0)="""RTN"",""YSCLSRV2"",78,0)"
^XMB(3.9,169,2,2326,0)="  . K %DT S X=$P(XMRG,"","",3),%DT=""F"" D ^%DT I Y=-1 S YSCLER="" is an invalid date, over-ride authorization not filed at "" D OUT Q"
^XMB(3.9,169,2,2327,0)="""RTN"",""YSCLSRV2"",79,0)"
^XMB(3.9,169,2,2328,0)="  . S YSCLOVR=Y"
^XMB(3.9,169,2,2329,0)="""RTN"",""YSCLSRV2"",80,0)"
^XMB(3.9,169,2,2330,0)="  . S YSCLNM=$P(XMRG,"",""),YSCLSSN=$P(XMRG,"","",2),YSCLWB=$P(XMRG,"","",3)"
^XMB(3.9,169,2,2331,0)="""RTN"",""YSCLSRV2"",81,0)"
^XMB(3.9,169,2,2332,0)="  . I '$D(^YSCL(603.01,""B"",YSCLNM)) S YSCLER="" does not exist at "" D OUT Q"
^XMB(3.9,169,2,2333,0)="""RTN"",""YSCLSRV2"",82,0)"
^XMB(3.9,169,2,2334,0)="  . S YSCLDA=$O(^DPT(""SSN"",YSCLSSN,0))"
^XMB(3.9,169,2,2335,0)="""RTN"",""YSCLSRV2"",83,0)"
^XMB(3.9,169,2,2336,0)="  . I YSCLDA="""" S YSCLER="" SSN does not exist at "" D OUT Q"
^XMB(3.9,169,2,2337,0)="""RTN"",""YSCLSRV2"",84,0)"
^XMB(3.9,169,2,2338,0)="  . I $O(^YSCL(603.01,""B"",YSCLNM,0))="""" S YSCLER="" SSN not in Clozapine file "" D OUT Q"
^XMB(3.9,169,2,2339,0)="""RTN"",""YSCLSRV2"",85,0)"
^XMB(3.9,169,2,2340,0)="  . I $O(^DPT(""SSN"",YSCLSSN,YSCLDA)) S YSCLER="" SSN has more than one owner "" D OUT Q"
^XMB(3.9,169,2,2341,0)="""RTN"",""YSCLSRV2"",86,0)"
^XMB(3.9,169,2,2342,0)="  . I $O(^YSCL(603.01,""B"",YSCLNM,0))'=$O(^YSCL(603.01,""C"",YSCLDA,0)) S YSCLER="" SSN (""_YSCLSSN_"",""_$P(^DPT(YSCLDA,0),""^"")_"") has multiple Clozapine Numbers at "" D OUT"
^XMB(3.9,169,2,2343,0)="""RTN"",""YSCLSRV2"",87,0)"
^XMB(3.9,169,2,2344,0)="  . I $O(^YSCL(603.01,""B"",YSCLNM,0))=$O(^YSCL(603.01,""C"",YSCLDA,0)) D"
^XMB(3.9,169,2,2345,0)="""RTN"",""YSCLSRV2"",88,0)"
^XMB(3.9,169,2,2346,0)="  . . S YSCLDA1=$O(^YSCL(603.01,""B"",YSCLNM,0)) S $P(^YSCL(603.01,YSCLDA1,0),""^"",4)=YSCLOVR"
^XMB(3.9,169,2,2347,0)="""RTN"",""YSCLSRV2"",89,0)"
^XMB(3.9,169,2,2348,0)="  . . S Y=YSCLOVR D DD^%DT S YSCLER="" ""_YSCLNM_"" (""_$P(^DPT(YSCLDA,0),""^"")_"") authorized for over-ride on ""_Y_"" at "" D OUT"
^XMB(3.9,169,2,2349,0)="""RTN"",""YSCLSRV2"",90,0)"
^XMB(3.9,169,2,2350,0)=" G EXIT^YSCLSERV"
^XMB(3.9,169,2,2351,0)="""RTN"",""YSCLSRV2"",91,0)"
^XMB(3.9,169,2,2352,0)="ZEOR ;YSCLSRV2"
^XMB(3.9,169,2,2353,0)="""RTN"",""YSCLSRV3"")"
^XMB(3.9,169,2,2354,0)="0^4^B46877449^B8766560"
^XMB(3.9,169,2,2355,0)="""RTN"",""YSCLSRV3"",1,0)"
^XMB(3.9,169,2,2356,0)="YSCLSRV3 ;DALOI/RLM-Clozapine data server ;24 APR 1990"
^XMB(3.9,169,2,2357,0)="""RTN"",""YSCLSRV3"",2,0)"
^XMB(3.9,169,2,2358,0)=" ;;5.01;MENTAL HEALTH;**74,90**;Dec 30, 1994;Build 18"
^XMB(3.9,169,2,2359,0)="""RTN"",""YSCLSRV3"",3,0)"
^XMB(3.9,169,2,2360,0)=" ; Reference to ^%ZOSF supported by IA #10096"
^XMB(3.9,169,2,2361,0)="""RTN"",""YSCLSRV3"",4,0)"
^XMB(3.9,169,2,2362,0)=" ; Reference to ^DPT supported by IA #10035"
^XMB(3.9,169,2,2363,0)="""RTN"",""YSCLSRV3"",5,0)"
^XMB(3.9,169,2,2364,0)=" ; Reference to ^PS(55 supported by IA #787"
^XMB(3.9,169,2,2365,0)="""RTN"",""YSCLSRV3"",6,0)"
^XMB(3.9,169,2,2366,0)=" ; Reference to ^PSDRUG supported by IA #25"
^XMB(3.9,169,2,2367,0)="""RTN"",""YSCLSRV3"",7,0)"
^XMB(3.9,169,2,2368,0)=" ; Reference to ^PSRX supported by IA #780"
^XMB(3.9,169,2,2369,0)="""RTN"",""YSCLSRV3"",8,0)"
^XMB(3.9,169,2,2370,0)=" ; Reference to ^VA(200 supported by IA #10060"
^XMB(3.9,169,2,2371,0)="""RTN"",""YSCLSRV3"",9,0)"
^XMB(3.9,169,2,2372,0)=" ; Reference to ^XUSEC supported by IA #10076"
^XMB(3.9,169,2,2373,0)="""RTN"",""YSCLSRV3"",10,0)"
^XMB(3.9,169,2,2374,0)=" ;"
^XMB(3.9,169,2,2375,0)="""RTN"",""YSCLSRV3"",11,0)"
^XMB(3.9,169,2,2376,0)=" S ^TMP($J,""YSCLDATA"",1)=""This routine will print a list of all active Clozapine prescriptions."""
^XMB(3.9,169,2,2377,0)="""RTN"",""YSCLSRV3"",12,0)"
^XMB(3.9,169,2,2378,0)=" S ^TMP($J,""YSCLDATA"",2)=""An asterisk in the first column indicates that the prescription is over"""
^XMB(3.9,169,2,2379,0)="""RTN"",""YSCLSRV3"",13,0)"
^XMB(3.9,169,2,2380,0)=" S ^TMP($J,""YSCLDATA"",3)=""28 days old.  The second column is the Patient Name.  The third is the"""
^XMB(3.9,169,2,2381,0)="""RTN"",""YSCLSRV3"",14,0)"
^XMB(3.9,169,2,2382,0)=" S ^TMP($J,""YSCLDATA"",4)=""Issue Date.  The fourth column is the Prescription Number. The final"""
^XMB(3.9,169,2,2383,0)="""RTN"",""YSCLSRV3"",15,0)"
^XMB(3.9,169,2,2384,0)=" S ^TMP($J,""YSCLDATA"",5)=""column is the CLOZAPINE STATUS indicator."""
^XMB(3.9,169,2,2385,0)="""RTN"",""YSCLSRV3"",16,0)"
^XMB(3.9,169,2,2386,0)=" S X1=DT,X2=-28 D C^%DTC S YSCL28=X"
^XMB(3.9,169,2,2387,0)="""RTN"",""YSCLSRV3"",17,0)"
^XMB(3.9,169,2,2388,0)=" S DFN=0,YSCLLN=6"
^XMB(3.9,169,2,2389,0)="""RTN"",""YSCLSRV3"",18,0)"
^XMB(3.9,169,2,2390,0)=" F  K YSCLA S DFN=$O(^PS(55,""ASAND"",DFN)),YSCLLD=0 Q:'DFN  I $D(^DPT(DFN,0)),$D(^PS(55,DFN,""SAND"")) S YSCLSAND=^(""SAND""),YSCL=^DPT(DFN,0),YSCLX=$E($P($P(YSCL,""^""),"","",2))_$E(YSCL)_""^""_$P(YSCL,""^"",9) D"
^XMB(3.9,169,2,2391,0)="""RTN"",""YSCLSRV3"",19,0)"
^XMB(3.9,169,2,2392,0)="  . F YSCL=0:0 S YSCL=$O(^PS(55,DFN,""P"",YSCL)) Q:'YSCL  I $D(^(YSCL,0)) S YSCL1=^(0) I $D(^PSRX(YSCL1,0)) D ACTIVE I 'YSACT S YSCLRX=^PSRX(YSCL1,0) I $P($G(^PSDRUG(+$P(YSCLRX,""^"",6),""CLOZ1"")),""^"")=""PSOCLO1"",$D(^(""CLOZ"")) S YSCLLAB=^(""CLOZ"") D"
^XMB(3.9,169,2,2393,0)="""RTN"",""YSCLSRV3"",20,0)"
^XMB(3.9,169,2,2394,0)="  . . ;W !,DFN,"" - "",YSCL1"
^XMB(3.9,169,2,2395,0)="""RTN"",""YSCLSRV3"",21,0)"
^XMB(3.9,169,2,2396,0)="  . . S ^TMP($J,""YSCLDATA"",YSCLLN)=$S(YSCL28>$P(YSCLRX,""^"",13):""*"",1:"" "")_""^""_$P(^DPT($P(YSCLRX,""^"",2),0),""^"")_""^""_$$FMTE^XLFDT($P(YSCLRX,""^"",13))_""^""_$P(YSCLRX,""^"")_""^""_$P(YSCLSAND,""^"",2)"
^XMB(3.9,169,2,2397,0)="""RTN"",""YSCLSRV3"",22,0)"
^XMB(3.9,169,2,2398,0)="  . . S YSCLLN=YSCLLN+1"
^XMB(3.9,169,2,2399,0)="""RTN"",""YSCLSRV3"",23,0)"
^XMB(3.9,169,2,2400,0)=" G EXIT^YSCLSERV"
^XMB(3.9,169,2,2401,0)="""RTN"",""YSCLSRV3"",24,0)"
^XMB(3.9,169,2,2402,0)=" Q"
^XMB(3.9,169,2,2403,0)="""RTN"",""YSCLSRV3"",25,0)"
^XMB(3.9,169,2,2404,0)="ACTIVE ;"
^XMB(3.9,169,2,2405,0)="""RTN"",""YSCLSRV3"",26,0)"
^XMB(3.9,169,2,2406,0)=" S YSACT=$$GET1^DIQ(52,YSCL1_"","",100,""I"",""ERR"")"
^XMB(3.9,169,2,2407,0)="""RTN"",""YSCLSRV3"",27,0)"
^XMB(3.9,169,2,2408,0)=" Q"
^XMB(3.9,169,2,2409,0)="""RTN"",""YSCLSRV3"",28,0)"
^XMB(3.9,169,2,2410,0)="DEMOG ;"
^XMB(3.9,169,2,2411,0)="""RTN"",""YSCLSRV3"",29,0)"
^XMB(3.9,169,2,2412,0)=" S YSCLA=0 F  S YSCLA=$O(^YSCL(603.01,""C"",YSCLA)) Q:'YSCLA  D"
^XMB(3.9,169,2,2413,0)="""RTN"",""YSCLSRV3"",30,0)"
^XMB(3.9,169,2,2414,0)="  . I $D(^PS(55,YSCLA,""SAND"")),$P(^PS(55,YSCLA,""SAND""),""^"",4)=0 S YSCLC=$G(YSCLC)+1"
^XMB(3.9,169,2,2415,0)="""RTN"",""YSCLSRV3"",31,0)"
^XMB(3.9,169,2,2416,0)="  . I $D(^PS(55,YSCLA,""SAND"")),$P(^PS(55,YSCLA,""SAND""),""^"",4) S $P(^PS(55,YSCLA,""SAND""),""^"",4)=0,YSCLB=$G(YSCLB)+1"
^XMB(3.9,169,2,2417,0)="""RTN"",""YSCLSRV3"",32,0)"
^XMB(3.9,169,2,2418,0)=" S ^TMP($J,""YSCLDATA"",2)=+$G(YSCLB)_"" record""_$S(+$G(YSCLB)=1:"""",1:""s"")_"" reset at (""_YSCLST_"") ""_YSCLSTN"
^XMB(3.9,169,2,2419,0)="""RTN"",""YSCLSRV3"",33,0)"
^XMB(3.9,169,2,2420,0)=" S ^TMP($J,""YSCLDATA"",3)=+$G(YSCLC)_"" record""_$S(+$G(YSCLC)=1:"""",1:""s"")_"" not reset at (""_YSCLST_"") ""_YSCLSTN"
^XMB(3.9,169,2,2421,0)="""RTN"",""YSCLSRV3"",34,0)"
^XMB(3.9,169,2,2422,0)=" G EXIT^YSCLSERV"
^XMB(3.9,169,2,2423,0)="""RTN"",""YSCLSRV3"",35,0)"
^XMB(3.9,169,2,2424,0)=" Q"
^XMB(3.9,169,2,2425,0)="""RTN"",""YSCLSRV3"",36,0)"
^XMB(3.9,169,2,2426,0)="LOCK ;Lock out ability to dispense Clozapine"
^XMB(3.9,169,2,2427,0)="""RTN"",""YSCLSRV3"",37,0)"
^XMB(3.9,169,2,2428,0)=" X XMREC Q:XMER<0  S X=XMRG"
^XMB(3.9,169,2,2429,0)="""RTN"",""YSCLSRV3"",38,0)"
^XMB(3.9,169,2,2430,0)=" I X=""LOCK DOWN ON"" S $P(^YSCL(603.03,1,1),""^"",1)=1 S YSCLLNT=$G(YSCLLNT)+1,^TMP($J,""YSCLDATA"",YSCLLNT)=""Clozapine dispensing prohibited at ""_YSCLST"
^XMB(3.9,169,2,2431,0)="""RTN"",""YSCLSRV3"",39,0)"
^XMB(3.9,169,2,2432,0)=" I X=""LOCK DOWN OFF"" S $P(^YSCL(603.03,1,1),""^"",1)=0 S YSCLLNT=$G(YSCLLNT)+1,^TMP($J,""YSCLDATA"",YSCLLNT)=""Clozapine dispensing enabled at ""_YSCLST"
^XMB(3.9,169,2,2433,0)="""RTN"",""YSCLSRV3"",40,0)"
^XMB(3.9,169,2,2434,0)=" G EXIT^YSCLSERV"
^XMB(3.9,169,2,2435,0)="""RTN"",""YSCLSRV3"",41,0)"
^XMB(3.9,169,2,2436,0)=" Q"
^XMB(3.9,169,2,2437,0)="""RTN"",""YSCLSRV3"",42,0)"
^XMB(3.9,169,2,2438,0)="AUTH ;List authorized Clozapine providers"
^XMB(3.9,169,2,2439,0)="""RTN"",""YSCLSRV3"",43,0)"
^XMB(3.9,169,2,2440,0)=" I YSCLSUB[""LIST"" D  G EXIT^YSCLSERV"
^XMB(3.9,169,2,2441,0)="""RTN"",""YSCLSRV3"",44,0)"
^XMB(3.9,169,2,2442,0)="  . S ^TMP($J,""YSCLDATA"",1)=""The following providers are authorized to override Clozapine lockouts"""
^XMB(3.9,169,2,2443,0)="""RTN"",""YSCLSRV3"",45,0)"
^XMB(3.9,169,2,2444,0)="  . S YSCLLN=2"
^XMB(3.9,169,2,2445,0)="""RTN"",""YSCLSRV3"",46,0)"
^XMB(3.9,169,2,2446,0)="  . S YSCLA="""" F  S YSCLA=$O(^XUSEC(""PSOLOCKCLOZ"",YSCLA)) Q:YSCLA=""""  D"
^XMB(3.9,169,2,2447,0)="""RTN"",""YSCLSRV3"",47,0)"
^XMB(3.9,169,2,2448,0)="  . . Q:'$D(^VA(200,YSCLA,0))"
^XMB(3.9,169,2,2449,0)="""RTN"",""YSCLSRV3"",48,0)"
^XMB(3.9,169,2,2450,0)="  . . S ^TMP($J,""YSCLDATA"",YSCLLN)=$P(^VA(200,YSCLA,0),""^"",1)_""  ""_$S($P(^VA(200,YSCLA,0),""^"",7)=1:""Ina"",1:""A"")_""ctive"",YSCLLN=YSCLLN+1"
^XMB(3.9,169,2,2451,0)="""RTN"",""YSCLSRV3"",49,0)"
^XMB(3.9,169,2,2452,0)="  . S ^TMP($J,""YSCLDATA"",YSCLLN)="""",YSCLLN=YSCLLN+1"
^XMB(3.9,169,2,2453,0)="""RTN"",""YSCLSRV3"",50,0)"
^XMB(3.9,169,2,2454,0)="  . S ^TMP($J,""YSCLDATA"",YSCLLN)="""",YSCLLN=YSCLLN+1"
^XMB(3.9,169,2,2455,0)="""RTN"",""YSCLSRV3"",51,0)"
^XMB(3.9,169,2,2456,0)="  . S ^TMP($J,""YSCLDATA"",YSCLLN)="""",YSCLLN=YSCLLN+1"
^XMB(3.9,169,2,2457,0)="""RTN"",""YSCLSRV3"",52,0)"
^XMB(3.9,169,2,2458,0)="  . S ^TMP($J,""YSCLDATA"",YSCLLN)=""The following providers are authorized to access the Pharmacy Clozapine Manager Menu"",YSCLLN=YSCLLN+1"
^XMB(3.9,169,2,2459,0)="""RTN"",""YSCLSRV3"",53,0)"
^XMB(3.9,169,2,2460,0)="  . S YSCLA="""" F  S YSCLA=$O(^XUSEC(""PSZ CLOZAPINE"",YSCLA)) Q:YSCLA=""""  D"
^XMB(3.9,169,2,2461,0)="""RTN"",""YSCLSRV3"",54,0)"
^XMB(3.9,169,2,2462,0)="  . . Q:'$D(^VA(200,YSCLA,0))"
^XMB(3.9,169,2,2463,0)="""RTN"",""YSCLSRV3"",55,0)"
^XMB(3.9,169,2,2464,0)="  . . S ^TMP($J,""YSCLDATA"",YSCLLN)=$P(^VA(200,YSCLA,0),""^"",1)_""  ""_$S($P(^VA(200,YSCLA,0),""^"",7)=1:""Ina"",1:""A"")_""ctive"",YSCLLN=YSCLLN+1"
^XMB(3.9,169,2,2465,0)="""RTN"",""YSCLSRV3"",56,0)"
^XMB(3.9,169,2,2466,0)="  . S ^TMP($J,""YSCLDATA"",YSCLLN)="""",YSCLLN=YSCLLN+1"
^XMB(3.9,169,2,2467,0)="""RTN"",""YSCLSRV3"",57,0)"
^XMB(3.9,169,2,2468,0)="  . S ^TMP($J,""YSCLDATA"",YSCLLN)="""",YSCLLN=YSCLLN+1"
^XMB(3.9,169,2,2469,0)="""RTN"",""YSCLSRV3"",58,0)"
^XMB(3.9,169,2,2470,0)="  . S ^TMP($J,""YSCLDATA"",YSCLLN)="""",YSCLLN=YSCLLN+1"
^XMB(3.9,169,2,2471,0)="""RTN"",""YSCLSRV3"",59,0)"
^XMB(3.9,169,2,2472,0)="  . S ^TMP($J,""YSCLDATA"",YSCLLN)=""The following providers are authorized to prescribe Clozapine"",YSCLLN=YSCLLN+1"
^XMB(3.9,169,2,2473,0)="""RTN"",""YSCLSRV3"",60,0)"
^XMB(3.9,169,2,2474,0)="  . S YSCLA=0 F  S YSCLA=$O(^XUSEC(""YSCL AUTHORIZED"",YSCLA)) Q:'YSCLA  D  ;??? Use FileMan lookup on 200"
^XMB(3.9,169,2,2475,0)="""RTN"",""YSCLSRV3"",61,0)"
^XMB(3.9,169,2,2476,0)="  . . S YSCLDEA=$$DEA^XUSER(1,YSCLA),YSCLYN=1,YSCLSSN=$P(^VA(200,YSCLA,1),""^"",9)"
^XMB(3.9,169,2,2477,0)="""RTN"",""YSCLSRV3"",62,0)"
^XMB(3.9,169,2,2478,0)="  . . S ^TMP($J,""YSCLDATA"",YSCLLN)=$P($G(^VA(200,YSCLA,0)),""^"",1)_"" - ""_YSCLSSN_"" - ""_$S(YSCLDEA="""":""*NONE*"",1:YSCLDEA)_"" - ""_$S(YSCLYN=1:""Yes"",1:""NO""),YSCLLN=YSCLLN+1"
^XMB(3.9,169,2,2479,0)="""RTN"",""YSCLSRV3"",63,0)"
^XMB(3.9,169,2,2480,0)=" ;Holders of YSCL AUTHORIZED key"
^XMB(3.9,169,2,2481,0)="""RTN"",""YSCLSRV3"",64,0)"
^XMB(3.9,169,2,2482,0)=" ;============================================="
^XMB(3.9,169,2,2483,0)="""RTN"",""YSCLSRV3"",65,0)"
^XMB(3.9,169,2,2484,0)=" ;"
^XMB(3.9,169,2,2485,0)="""RTN"",""YSCLSRV3"",66,0)"
^XMB(3.9,169,2,2486,0)=" S YSCLLN=1,^TMP($J,""YSCLDATA"",YSCLLN)=""Clinician Authorization Results at ""_YSCLST,YSCLLN=YSCLLN+1"
^XMB(3.9,169,2,2487,0)="""RTN"",""YSCLSRV3"",67,0)"
^XMB(3.9,169,2,2488,0)=" K ^TMP(""DIERR"",$J)"
^XMB(3.9,169,2,2489,0)="""RTN"",""YSCLSRV3"",68,0)"
^XMB(3.9,169,2,2490,0)=" F  X XMREC Q:XMER<0  S X=XMRG X ^%ZOSF(""UPPERCASE"") S X=Y D"
^XMB(3.9,169,2,2491,0)="""RTN"",""YSCLSRV3"",69,0)"
^XMB(3.9,169,2,2492,0)="  . S YSCLSSN=$P(X,""^"",1),YSCLDEA=$P(X,""^"",2),YSCLYN=$P(X,""^"",3),YSCLDUZ="""",YSCLDEA1="""",YSCLIEN="""""
^XMB(3.9,169,2,2493,0)="""RTN"",""YSCLSRV3"",70,0)"
^XMB(3.9,169,2,2494,0)="  . I YSCLLN=""""!(""YESNO""'[YSCLYN) S ^TMP($J,""YSCLDATA"",YSCLLN)=""Clinician Authorization instructions invalid (""_YSCLYN_"") at ""_YSCLST,YSCLLN=YSCLLN+1"
^XMB(3.9,169,2,2495,0)="""RTN"",""YSCLSRV3"",71,0)"
^XMB(3.9,169,2,2496,0)="  . S YSCLYN=$S(YSCLYN=""YES"":1,1:0)"
^XMB(3.9,169,2,2497,0)="""RTN"",""YSCLSRV3"",72,0)"
^XMB(3.9,169,2,2498,0)="  . I '$D(^VA(200,""BS5"",YSCLSSN)) S ^TMP($J,""YSCLDATA"",YSCLLN)=""Clinician (""_YSCLSSN_"") does not exist at ""_YSCLST,YSCLLN=YSCLLN+1 Q"
^XMB(3.9,169,2,2499,0)="""RTN"",""YSCLSRV3"",73,0)"
^XMB(3.9,169,2,2500,0)="  . I $D(^VA(200,""BS5"",YSCLSSN)) S YSCLAA="""" F  S YSCLAA=$O(^VA(200,""BS5"",YSCLSSN,YSCLAA)) Q:YSCLAA=""""  I $$DEA^XUSER(1,YSCLAA)=YSCLDEA S YSCLDUZ=YSCLAA Q"
^XMB(3.9,169,2,2501,0)="""RTN"",""YSCLSRV3"",74,0)"
^XMB(3.9,169,2,2502,0)="  . I YSCLDUZ="""" S ^TMP($J,""YSCLDATA"",YSCLLN)=""Clinician (""_YSCLSSN_"") with DEA# ""_YSCLDEA_"" does not exist at ""_YSCLST,YSCLLN=YSCLLN+1 Q"
^XMB(3.9,169,2,2503,0)="""RTN"",""YSCLSRV3"",75,0)"
^XMB(3.9,169,2,2504,0)="  . S YSCLDEA1=$$DEA^XUSER(1,YSCLDUZ)"
^XMB(3.9,169,2,2505,0)="""RTN"",""YSCLSRV3"",76,0)"
^XMB(3.9,169,2,2506,0)="  . I YSCLDEA1="""" S ^TMP($J,""YSCLDATA"",YSCLLN)=""Clinician with DEA# ""_YSCLDEA_"" does not exist at ""_YSCLST,YSCLLN=YSCLLN+1 Q"
^XMB(3.9,169,2,2507,0)="""RTN"",""YSCLSRV3"",77,0)"
^XMB(3.9,169,2,2508,0)="  . I YSCLDEA'=YSCLDEA1 W ^TMP($J,""YSCLDATA"",YSCLLN)=""Clinician SSN (""_YSCLSSN_"") - DEA (""_YSCLDEA_"") mismatch at ""_YSCLST,YSCLLN=YSCLLN+1 Q"
^XMB(3.9,169,2,2509,0)="""RTN"",""YSCLSRV3"",78,0)"
^XMB(3.9,169,2,2510,0)="  . D OWNSKEY^XUSRB(.RET,""YSCL AUTHORIZED"",YSCLDUZ)"
^XMB(3.9,169,2,2511,0)="""RTN"",""YSCLSRV3"",79,0)"
^XMB(3.9,169,2,2512,0)="  . I RET(0),YSCLYN S ^TMP($J,""YSCLDATA"",YSCLLN)=""Clinician (""_YSCLSSN_"") already authorized at ""_YSCLST,YSCLLN=YSCLLN+1 Q"
^XMB(3.9,169,2,2513,0)="""RTN"",""YSCLSRV3"",80,0)"
^XMB(3.9,169,2,2514,0)="  . I 'RET(0),'YSCLYN S ^TMP($J,""YSCLDATA"",YSCLLN)=""Clinician (""_YSCLSSN_"") not authorized at ""_YSCLST,YSCLLN=YSCLLN+1 Q"
^XMB(3.9,169,2,2515,0)="""RTN"",""YSCLSRV3"",81,0)"
^XMB(3.9,169,2,2516,0)="  . I 'RET(0),YSCLYN S YSCLDUZ(0)=DUZ,DUZ(0)=""@"" D  S DUZ(0)=YSCLDUZ(0)"
^XMB(3.9,169,2,2517,0)="""RTN"",""YSCLSRV3"",82,0)"
^XMB(3.9,169,2,2518,0)="  . . S YSCLFDA(200,""?1,"",.01)=""`""_YSCLDUZ"
^XMB(3.9,169,2,2519,0)="""RTN"",""YSCLSRV3"",83,0)"
^XMB(3.9,169,2,2520,0)="  . . S YSCLFDA(200.051,""+2,?1,"",.01)=""YSCL AUTHORIZED"" D UPDATE^DIE(""E"",""YSCLFDA"",,""YSCLERR"")"
^XMB(3.9,169,2,2521,0)="""RTN"",""YSCLSRV3"",84,0)"
^XMB(3.9,169,2,2522,0)="  . . I $D(YSCLERR) S ^TMP($J,""YSCLDATA"",YSCLLN)=""Clinician SSN ""_YSCLSSN_"" authorization failed at ""_YSCLST,YSCLLN=YSCLLN+1 Q"
^XMB(3.9,169,2,2523,0)="""RTN"",""YSCLSRV3"",85,0)"
^XMB(3.9,169,2,2524,0)="  . . I '$D(YSCLERR) S ^TMP($J,""YSCLDATA"",YSCLLN)=""Clinician SSN ""_YSCLSSN_"" authorization set to ""_$S(YSCLYN=1:""Yes"",1:""No"")_"" at ""_YSCLST,YSCLLN=YSCLLN+1 Q"
^XMB(3.9,169,2,2525,0)="""RTN"",""YSCLSRV3"",86,0)"
^XMB(3.9,169,2,2526,0)="  . I RET(0),'YSCLYN S YSCLDUZ(0)=DUZ,DUZ(0)=""@"" D  S DUZ(0)=YSCLDUZ(0)"
^XMB(3.9,169,2,2527,0)="""RTN"",""YSCLSRV3"",87,0)"
^XMB(3.9,169,2,2528,0)="  . . S DA=$$FIND1^DIC(200.051,"",""_YSCLDUZ_"","",""A"",""YSCL AUTHORIZE"")"
^XMB(3.9,169,2,2529,0)="""RTN"",""YSCLSRV3"",88,0)"
^XMB(3.9,169,2,2530,0)="  . . I DA<1 S ^TMP($J,""YSCLDATA"",YSCLLN)=""Clinician SSN ""_YSCLSSN_"" authorization removal failed at ""_YSCLST,YSCLLN=YSCLLN+1 Q"
^XMB(3.9,169,2,2531,0)="""RTN"",""YSCLSRV3"",89,0)"
^XMB(3.9,169,2,2532,0)="  . . S DA(1)=YSCLDUZ,DIK=""^VA(200,""_DA(1)_"",51,"" D ^DIK"
^XMB(3.9,169,2,2533,0)="""RTN"",""YSCLSRV3"",90,0)"
^XMB(3.9,169,2,2534,0)="  . . S ^TMP($J,""YSCLDATA"",YSCLLN)=""Clinician SSN ""_YSCLSSN_"" authorization removed at ""_YSCLST,YSCLLN=YSCLLN+1 Q"
^XMB(3.9,169,2,2535,0)="""RTN"",""YSCLSRV3"",91,0)"
^XMB(3.9,169,2,2536,0)=" G EXIT^YSCLSERV"
^XMB(3.9,169,2,2537,0)="""RTN"",""YSCLSRV3"",92,0)"
^XMB(3.9,169,2,2538,0)=" Q"
^XMB(3.9,169,2,2539,0)="""RTN"",""YSCLSRV3"",93,0)"
^XMB(3.9,169,2,2540,0)="ZEOR ;YSCLSRV3"
^XMB(3.9,169,2,2541,0)="""RTN"",""YSCLTEST"")"
^XMB(3.9,169,2,2542,0)="0^5^B20876343^B20062931"
^XMB(3.9,169,2,2543,0)="""RTN"",""YSCLTEST"",1,0)"
^XMB(3.9,169,2,2544,0)="YSCLTEST ;DALOI/LB/RLM-COLLECT RX AND LAB DATA FOR CLOZAPINE ;18 Feb 93"
^XMB(3.9,169,2,2545,0)="""RTN"",""YSCLTEST"",2,0)"
^XMB(3.9,169,2,2546,0)=" ;;5.01;MENTAL HEALTH;**18,22,26,47,61,69,74,90**;Dec 30, 1994;Build 18"
^XMB(3.9,169,2,2547,0)="""RTN"",""YSCLTEST"",3,0)"
^XMB(3.9,169,2,2548,0)=" ; Reference to ^DPT supported by IA #10035"
^XMB(3.9,169,2,2549,0)="""RTN"",""YSCLTEST"",4,0)"
^XMB(3.9,169,2,2550,0)=" ; Reference to ^DIC(5 supported by IA #10056"
^XMB(3.9,169,2,2551,0)="""RTN"",""YSCLTEST"",5,0)"
^XMB(3.9,169,2,2552,0)=" ; Reference to ^PS(55 supported by IA #787"
^XMB(3.9,169,2,2553,0)="""RTN"",""YSCLTEST"",6,0)"
^XMB(3.9,169,2,2554,0)=" ; Reference to ^PSDRUG supported by IA #25"
^XMB(3.9,169,2,2555,0)="""RTN"",""YSCLTEST"",7,0)"
^XMB(3.9,169,2,2556,0)=" ; Reference to ^PSRX supported by IA #780"
^XMB(3.9,169,2,2557,0)="""RTN"",""YSCLTEST"",8,0)"
^XMB(3.9,169,2,2558,0)=" ; Reference to ^XMD supported by IA #10070"
^XMB(3.9,169,2,2559,0)="""RTN"",""YSCLTEST"",9,0)"
^XMB(3.9,169,2,2560,0)="BKGRD ;Normal entry for weekly background job - dates from T-10 to T-3"
^XMB(3.9,169,2,2561,0)="""RTN"",""YSCLTEST"",10,0)"
^XMB(3.9,169,2,2562,0)=" S X=DT D DW^%DTC Q:X'=$P(^YSCL(603.03,1,0),""^"",2)  ;Make the day to run a parameter settable by the server."
^XMB(3.9,169,2,2563,0)="""RTN"",""YSCLTEST"",11,0)"
^XMB(3.9,169,2,2564,0)=" S YSOFF=$S(X=""SUNDAY"":0,X=""MONDAY"":1,X=""TUESDAY"":2,X=""WEDNESDAY"":3,X=""THURSDAY"":4,X=""FRIDAY"":5,X=""SATURDAY"":6,1:7) Q:YSOFF>6"
^XMB(3.9,169,2,2565,0)="""RTN"",""YSCLTEST"",12,0)"
^XMB(3.9,169,2,2566,0)=" S X=""T-""_YSOFF D ^%DT S YSCLED=Y,YSCLRET="""""
^XMB(3.9,169,2,2567,0)="""RTN"",""YSCLTEST"",13,0)"
^XMB(3.9,169,2,2568,0)=" ;S YSCL=$H#7-2 S:YSCL<1 YSCL=YSCL+7 S X=""T-""_(YSCL+7) D ^%DT S YSCLED=Y,YSCLRET="""" K YSCL ;Make sure it's a Sunday ending date."
^XMB(3.9,169,2,2569,0)="""RTN"",""YSCLTEST"",14,0)"
^XMB(3.9,169,2,2570,0)="RUN ; entry from above for normal or below for requeue"
^XMB(3.9,169,2,2571,0)="""RTN"",""YSCLTEST"",15,0)"
^XMB(3.9,169,2,2572,0)=" S YSDEBUG=$P(^YSCL(603.03,1,0),""^"",3)"
^XMB(3.9,169,2,2573,0)="""RTN"",""YSCLTEST"",16,0)"
^XMB(3.9,169,2,2574,0)=" ;I $G(^YSCL(603.02,1,0))'?1.N1""^""1.N G FLERR^YSCLTST3 ;Check for entry in file 603.02, report an error if either entry is missing."
^XMB(3.9,169,2,2575,0)="""RTN"",""YSCLTEST"",17,0)"
^XMB(3.9,169,2,2576,0)=" D DMG^YSCLTST3"
^XMB(3.9,169,2,2577,0)="""RTN"",""YSCLTEST"",18,0)"
^XMB(3.9,169,2,2578,0)=" S YSCLSITE=$P($$SITE^VASITE,""^"",2)"
^XMB(3.9,169,2,2579,0)="""RTN"",""YSCLTEST"",19,0)"
^XMB(3.9,169,2,2580,0)=" K XMY"
^XMB(3.9,169,2,2581,0)="""RTN"",""YSCLTEST"",20,0)"
^XMB(3.9,169,2,2582,0)=" S XMY(""G.CLOZAPINE ROLL-UP@FORUM.VA.GOV"")="""""
^XMB(3.9,169,2,2583,0)="""RTN"",""YSCLTEST"",21,0)"
^XMB(3.9,169,2,2584,0)=" I YSDEBUG K XMY S XMY(""G.CLOZAPINE DEBUG@FO-DALLAS.MED.VA.GOV"")="""""
^XMB(3.9,169,2,2585,0)="""RTN"",""YSCLTEST"",22,0)"
^XMB(3.9,169,2,2586,0)=" S %DT=""T"",X=""NOW"" D ^%DT S YSCLNOW=$P(Y,""."",2)"
^XMB(3.9,169,2,2587,0)="""RTN"",""YSCLTEST"",23,0)"
^XMB(3.9,169,2,2588,0)=" S XMSUB=$S(YSDEBUG:""DEBUG "",1:"""")_""Clozapine lab data started at ""_YSCLSITE_"" on ""_DT_"" at ""_YSCLNOW,^TMP(""YSCL"",$J,1,0)="" "",^TMP(""YSCL"",$J,2,0)=""+++ Clozapine data collection started at ""_YSCLSITE_"" on ""_DT_"" +++"",^TMP(""YSCL"",$J,3,0)="" """
^XMB(3.9,169,2,2589,0)="""RTN"",""YSCLTEST"",24,0)"
^XMB(3.9,169,2,2590,0)=" S XMTEXT=""^TMP(""""YSCL"""",$J,"",XMDUZ=""Clozapine MONITOR"" D ^XMD"
^XMB(3.9,169,2,2591,0)="""RTN"",""YSCLTEST"",25,0)"
^XMB(3.9,169,2,2592,0)=" S $P(^YSCL(603.03,1,0),""^"",4)=$$NOW^XLFDT"
^XMB(3.9,169,2,2593,0)="""RTN"",""YSCLTEST"",26,0)"
^XMB(3.9,169,2,2594,0)=" ;send MM message when routine started."
^XMB(3.9,169,2,2595,0)="""RTN"",""YSCLTEST"",27,0)"
^XMB(3.9,169,2,2596,0)=" S YSCLLN=0,YSCLLLN=3,X1=$P(YSCLED,"".""),X2=-60 D C^%DTC S YSCLM28=X,X1=$P(YSCLED,"".""),X2=-28 D C^%DTC S YSCLM7=X,YSCLED=YSCLED+.5 ;28 TO 60 and 14 to 28 6/15/05"
^XMB(3.9,169,2,2597,0)="""RTN"",""YSCLTEST"",28,0)"
^XMB(3.9,169,2,2598,0)=" S X1=$P(YSCLED,"".""),X2=-180 D C^%DTC S YSCLM180=X"
^XMB(3.9,169,2,2599,0)="""RTN"",""YSCLTEST"",29,0)"
^XMB(3.9,169,2,2600,0)=" S X1=$P(YSCLED,"".""),X2=-56 D C^%DTC S YSCLM56=X"
^XMB(3.9,169,2,2601,0)="""RTN"",""YSCLTEST"",30,0)"
^XMB(3.9,169,2,2602,0)=" S YSCLIF=+$$SITE^VASITE_"","""
^XMB(3.9,169,2,2603,0)="""RTN"",""YSCLTEST"",31,0)"
^XMB(3.9,169,2,2604,0)=" D GETS^DIQ(4,YSCLIF,""1.01;1.02;1.03;.02;1.04"",""I"",""YSCLFF"")"
^XMB(3.9,169,2,2605,0)="""RTN"",""YSCLTEST"",32,0)"
^XMB(3.9,169,2,2606,0)=" S $P(YSCLDEMO,""^"",1)=YSCLFF(4,YSCLIF,1.01,""I"")"
^XMB(3.9,169,2,2607,0)="""RTN"",""YSCLTEST"",33,0)"
^XMB(3.9,169,2,2608,0)=" S $P(YSCLDEMO,""^"",2)=YSCLFF(4,YSCLIF,1.02,""I"")"
^XMB(3.9,169,2,2609,0)="""RTN"",""YSCLTEST"",34,0)"
^XMB(3.9,169,2,2610,0)=" S $P(YSCLDEMO,""^"",3)=YSCLFF(4,YSCLIF,1.03,""I"")"
^XMB(3.9,169,2,2611,0)="""RTN"",""YSCLTEST"",35,0)"
^XMB(3.9,169,2,2612,0)=" S $P(YSCLDEMO,""^"",4)=$P(^DIC(5,YSCLFF(4,YSCLIF,.02,""I""),0),""^"",2)"
^XMB(3.9,169,2,2613,0)="""RTN"",""YSCLTEST"",36,0)"
^XMB(3.9,169,2,2614,0)=" S $P(YSCLDEMO,""^"",5)=YSCLFF(4,YSCLIF,1.04,""I"")"
^XMB(3.9,169,2,2615,0)="""RTN"",""YSCLTEST"",37,0)"
^XMB(3.9,169,2,2616,0)=" S $P(YSCLDEMO,""^"",6)="""""
^XMB(3.9,169,2,2617,0)="""RTN"",""YSCLTEST"",38,0)"
^XMB(3.9,169,2,2618,0)=" K J,YSCLF,YSCLFF,YSCLIF,X"
^XMB(3.9,169,2,2619,0)="""RTN"",""YSCLTEST"",39,0)"
^XMB(3.9,169,2,2620,0)=" ;YSCLDEMO=street1^street2^city^state(2 letter)^ZIP^phone"
^XMB(3.9,169,2,2621,0)="""RTN"",""YSCLTEST"",40,0)"
^XMB(3.9,169,2,2622,0)=" K ^TMP($J),^TMP(""YSCL"",$J) S (DFN,YSCLIEN)=0"
^XMB(3.9,169,2,2623,0)="""RTN"",""YSCLTEST"",41,0)"
^XMB(3.9,169,2,2624,0)=" F  K YSCLA S YSCLIEN=$O(^YSCL(603.01,YSCLIEN)),YSCLLD=0 Q:'YSCLIEN  S DFN=$P($G(^YSCL(603.01,YSCLIEN,0)),""^"",2) S $P(YSSTOP,"","",1)=1 Q:$$S^%ZTLOAD  D:DFN"
^XMB(3.9,169,2,2625,0)="""RTN"",""YSCLTEST"",42,0)"
^XMB(3.9,169,2,2626,0)="  . I $D(^DPT(DFN,0)),$D(^YSCL(603.01,YSCLIEN,0)) S YSCLSAND=$P($G(^YSCL(603.01,YSCLIEN,0)),""^"",2),YSCL=^DPT(DFN,0),YSCLX=$E($P($P(YSCL,""^""),"","",2))_$E(YSCL)_""^""_$P(YSCL,""^"",9) D"
^XMB(3.9,169,2,2627,0)="""RTN"",""YSCLTEST"",43,0)"
^XMB(3.9,169,2,2628,0)="  . . S YSCLLAB="""" D GET I YSCLLAB]"""" D CHECK^YSCLTST1 I YSCLT D LOAD^YSCLTST1"
^XMB(3.9,169,2,2629,0)="""RTN"",""YSCLTEST"",44,0)"
^XMB(3.9,169,2,2630,0)=" G TRANSMIT^YSCLTST2"
^XMB(3.9,169,2,2631,0)="""RTN"",""YSCLTEST"",45,0)"
^XMB(3.9,169,2,2632,0)="GET ;prescriptions"
^XMB(3.9,169,2,2633,0)="""RTN"",""YSCLTEST"",46,0)"
^XMB(3.9,169,2,2634,0)=" Q:$$S^%ZTLOAD"
^XMB(3.9,169,2,2635,0)="""RTN"",""YSCLTEST"",47,0)"
^XMB(3.9,169,2,2636,0)=" S YSCLPHY="""",$P(YSCLX,""^"",6)=$P(YSCLDEMO,""^"",5),$P(YSCLX,""^"",11)=$P($P($G(^YSCL(603.01,YSCLIEN,0)),""^""),""^""),$P(YSCLX,""^"",16)=DT"
^XMB(3.9,169,2,2637,0)="""RTN"",""YSCLTEST"",48,0)"
^XMB(3.9,169,2,2638,0)=" ;site zip(p6),registration number (p11), today (p16)"
^XMB(3.9,169,2,2639,0)="""RTN"",""YSCLTEST"",49,0)"
^XMB(3.9,169,2,2640,0)=" F YSCL=0:0 S YSCL=$O(^PS(55,DFN,""P"",YSCL)) Q:'YSCL  I $D(^(YSCL,0)) S YSCL1=^(0) I $D(^PSRX(YSCL1,0)) S YSCLRX=^(0) D ACTIVE I YSACT=0,$P($G(^PSDRUG(+$P(YSCLRX,""^"",6),""CLOZ1"")),""^"")=""PSOCLO1"" D"
^XMB(3.9,169,2,2641,0)="""RTN"",""YSCLTEST"",50,0)"
^XMB(3.9,169,2,2642,0)="  . S YSCLZ2=0 F  S YSCLZ2=$O(^PSDRUG(+$P(YSCLRX,""^"",6),""CLOZ2"",YSCLZ2)) Q:'YSCLZ2  I $P($G(^PSDRUG(+$P(YSCLRX,""^"",6),""CLOZ2"",YSCLZ2,0)),""^"")]"""",$P($G(^PSDRUG(+$P(YSCLRX,""^"",6),""CLOZ2"",YSCLZ2,0)),""^"",4)=1 D  Q"
^XMB(3.9,169,2,2643,0)="""RTN"",""YSCLTEST"",51,0)"
^XMB(3.9,169,2,2644,0)="  . . S YSCLLAB=^(0)"
^XMB(3.9,169,2,2645,0)="""RTN"",""YSCLTEST"",52,0)"
^XMB(3.9,169,2,2646,0)="  . . S YSCLID=$P(YSCLRX,""^"",13) S:YSCLID>YSCLLD YSCLLD=YSCLID I YSCLID'>DT,YSCLID'<YSCLM28 S YSCLA(-YSCLID,-YSCL1)="""" ;Changed YSCLED to DT  RLM"
^XMB(3.9,169,2,2647,0)="""RTN"",""YSCLTEST"",53,0)"
^XMB(3.9,169,2,2648,0)=" Q"
^XMB(3.9,169,2,2649,0)="""RTN"",""YSCLTEST"",54,0)"
^XMB(3.9,169,2,2650,0)="ACTIVE ;Test for Active prescriptions"
^XMB(3.9,169,2,2651,0)="""RTN"",""YSCLTEST"",55,0)"
^XMB(3.9,169,2,2652,0)=" S YSACT=$$GET1^DIQ(52,YSCL1_"","",100,""I"")"
^XMB(3.9,169,2,2653,0)="""RTN"",""YSCLTEST"",56,0)"
^XMB(3.9,169,2,2654,0)=" Q"
^XMB(3.9,169,2,2655,0)="""RTN"",""YSCLTEST"",57,0)"
^XMB(3.9,169,2,2656,0)="REXMIT ;Resend Clozapine data"
^XMB(3.9,169,2,2657,0)="""RTN"",""YSCLTEST"",58,0)"
^XMB(3.9,169,2,2658,0)=" S X1=YSCLED,X2=-3 D C^%DTC S YSCLED=X,YSCLRET=1,ZTREQ=""@"" G RUN"
^XMB(3.9,169,2,2659,0)="""RTN"",""YSCLTEST"",59,0)"
^XMB(3.9,169,2,2660,0)=" Q"
^XMB(3.9,169,2,2661,0)="""RTN"",""YSCLTEST"",60,0)"
^XMB(3.9,169,2,2662,0)="ABORT ;"
^XMB(3.9,169,2,2663,0)="""RTN"",""YSCLTEST"",61,0)"
^XMB(3.9,169,2,2664,0)=" K XMY"
^XMB(3.9,169,2,2665,0)="""RTN"",""YSCLTEST"",62,0)"
^XMB(3.9,169,2,2666,0)=" S XMY(""G.CLOZAPINE ROLL-UP@FORUM.VA.GOV"")="""""
^XMB(3.9,169,2,2667,0)="""RTN"",""YSCLTEST"",63,0)"
^XMB(3.9,169,2,2668,0)=" I YSDEBUG K XMY S XMY(""G.CLOZAPINE DEBUG@FO-DALLAS.MED.VA.GOV"")="""""
^XMB(3.9,169,2,2669,0)="""RTN"",""YSCLTEST"",64,0)"
^XMB(3.9,169,2,2670,0)=" S %DT=""T"",X=""NOW"" D ^%DT S YSCLNOW=$P(Y,""."",2)"
^XMB(3.9,169,2,2671,0)="""RTN"",""YSCLTEST"",65,0)"
^XMB(3.9,169,2,2672,0)=" S YSCLSITE=$P($$SITE^VASITE,""^"",2)"
^XMB(3.9,169,2,2673,0)="""RTN"",""YSCLTEST"",66,0)"
^XMB(3.9,169,2,2674,0)=" S XMSUB=""Clozapine Roll-Up aborted [""_$G(YSSTOP)_""] at ""_YSCLSITE_"" on ""_DT"
^XMB(3.9,169,2,2675,0)="""RTN"",""YSCLTEST"",67,0)"
^XMB(3.9,169,2,2676,0)=" S YSTEXT(1,0)="" """
^XMB(3.9,169,2,2677,0)="""RTN"",""YSCLTEST"",68,0)"
^XMB(3.9,169,2,2678,0)=" S YSTEXT(2,0)=$S(YSDEBUG:""DEBUG "",1:"""")_""Clozapine Roll-Up aborted [""_$G(YSSTOP)_""] at ""_YSCLSITE_"" on ""_DT_"" at ""_YSCLNOW,^TMP(""YSCL"",$J,1,0)="" """
^XMB(3.9,169,2,2679,0)="""RTN"",""YSCLTEST"",69,0)"
^XMB(3.9,169,2,2680,0)=" S XMTEXT=""YSTEXT("",XMDUZ=""Clozapine MONITOR"" D ^XMD"
^XMB(3.9,169,2,2681,0)="""RTN"",""YSCLTEST"",70,0)"
^XMB(3.9,169,2,2682,0)=" S ZTSTOP=1 Q"
^XMB(3.9,169,2,2683,0)="""RTN"",""YSCLTEST"",71,0)"
^XMB(3.9,169,2,2684,0)="ZEOR ;YSCLTEST"
^XMB(3.9,169,2,2685,0)="""RTN"",""YSCLTST1"")"
^XMB(3.9,169,2,2686,0)="0^6^B19103633^B27542972"
^XMB(3.9,169,2,2687,0)="""RTN"",""YSCLTST1"",1,0)"
^XMB(3.9,169,2,2688,0)="YSCLTST1 ;DALOI/LB/RLM-COLLECT RX AND LAB DATA FOR CLOZAPINE ;18 Feb 93"
^XMB(3.9,169,2,2689,0)="""RTN"",""YSCLTST1"",2,0)"
^XMB(3.9,169,2,2690,0)=" ;;5.01;MENTAL HEALTH;**18,22,25,26,47,61,69,74,90**;Dec 30, 1994;Build 18"
^XMB(3.9,169,2,2691,0)="""RTN"",""YSCLTST1"",3,0)"
^XMB(3.9,169,2,2692,0)=" ; Reference to ^DPT supported by IA #10035"
^XMB(3.9,169,2,2693,0)="""RTN"",""YSCLTST1"",4,0)"
^XMB(3.9,169,2,2694,0)=" ; Reference to ^LR supported by IA #2657"
^XMB(3.9,169,2,2695,0)="""RTN"",""YSCLTST1"",5,0)"
^XMB(3.9,169,2,2696,0)=" ; Reference to ^LAB supported by IA #333"
^XMB(3.9,169,2,2697,0)="""RTN"",""YSCLTST1"",6,0)"
^XMB(3.9,169,2,2698,0)=" ; Reference to ^PS(52.52 supported by IA #782"
^XMB(3.9,169,2,2699,0)="""RTN"",""YSCLTST1"",7,0)"
^XMB(3.9,169,2,2700,0)=" ; Reference to ^PS(55 supported by IA #787"
^XMB(3.9,169,2,2701,0)="""RTN"",""YSCLTST1"",8,0)"
^XMB(3.9,169,2,2702,0)=" ; Reference to ^PS(59 supported by IA #783"
^XMB(3.9,169,2,2703,0)="""RTN"",""YSCLTST1"",9,0)"
^XMB(3.9,169,2,2704,0)=" ; Reference to ^PSRX supported by IA #780"
^XMB(3.9,169,2,2705,0)="""RTN"",""YSCLTST1"",10,0)"
^XMB(3.9,169,2,2706,0)=" ; Reference to ^VA(200 supported by IA #10060"
^XMB(3.9,169,2,2707,0)="""RTN"",""YSCLTST1"",11,0)"
^XMB(3.9,169,2,2708,0)="CHECK ;for data to send"
^XMB(3.9,169,2,2709,0)="""RTN"",""YSCLTST1"",12,0)"
^XMB(3.9,169,2,2710,0)=" S YSCLT=0,YSCLWBC=0"
^XMB(3.9,169,2,2711,0)="""RTN"",""YSCLTST1"",13,0)"
^XMB(3.9,169,2,2712,0)=" S $P(YSSTOP,"","",3)=3 Q:$$S^%ZTLOAD"
^XMB(3.9,169,2,2713,0)="""RTN"",""YSCLTST1"",14,0)"
^XMB(3.9,169,2,2714,0)=" K PNM,SEX,DOB,AGE,SSN D DEM^VADPT I 'VAERR S PNM=VADM(1),SEX=$P(VADM(5),U),DOB=$P(VADM(3),U),AGE=VADM(4),SSN=$P(VADM(2),U)"
^XMB(3.9,169,2,2715,0)="""RTN"",""YSCLTST1"",15,0)"
^XMB(3.9,169,2,2716,0)=" I YSCLLD=0,$P($G(^PS(55,DFN,""SAND"")),""^"",2)=""P"" Q  ;no transmit for pretreatment"
^XMB(3.9,169,2,2717,0)="""RTN"",""YSCLTST1"",16,0)"
^XMB(3.9,169,2,2718,0)=" I YSCLLD,YSCLLD<YSCLM56 S $P(^PS(55,DFN,""SAND""),""^"",2)=""D"" ;force discontinued"
^XMB(3.9,169,2,2719,0)="""RTN"",""YSCLTST1"",17,0)"
^XMB(3.9,169,2,2720,0)=" I YSCLLD,YSCLLD<YSCLM180 Q  ;Don't report if over 6 months old."
^XMB(3.9,169,2,2721,0)="""RTN"",""YSCLTST1"",18,0)"
^XMB(3.9,169,2,2722,0)=" S YSCL=$O(YSCLA("""")) I 'YSCL D LAB S YSCLT=1 Q  ;get latest WBC results even if no script."
^XMB(3.9,169,2,2723,0)="""RTN"",""YSCLTST1"",19,0)"
^XMB(3.9,169,2,2724,0)=" S YSCL1=-$O(YSCLA(YSCL,"""")) I 'YSCL1 D LAB S YSCLT=1 Q  ;get latest WBC results even if no script."
^XMB(3.9,169,2,2725,0)="""RTN"",""YSCLTST1"",20,0)"
^XMB(3.9,169,2,2726,0)=" S YSCLT=1,YSCLRX=$G(^PSRX(YSCL1,0)),YSCLRX2=$G(^PSRX(YSCL1,2)) ;we've got something"
^XMB(3.9,169,2,2727,0)="""RTN"",""YSCLTST1"",21,0)"
^XMB(3.9,169,2,2728,0)=" S YSCLGL=$S($D(^PS(59)):""^PS"",1:""^DIC"")"
^XMB(3.9,169,2,2729,0)="""RTN"",""YSCLTST1"",22,0)"
^XMB(3.9,169,2,2730,0)=" ;YSCLGL is used to indirectly hold the global reference for file 59. This is necessary due to changes in the file location. The $select may be expanded to cover future moves. DBIA 273-B"
^XMB(3.9,169,2,2731,0)="""RTN"",""YSCLTST1"",23,0)"
^XMB(3.9,169,2,2732,0)=" S YSCLD=+$P($G(^PSRX(YSCL1,2)),""^"",9),YSCLD=$G(@YSCLGL@(59,YSCLD,""SAND"")),$P(YSCLX,""^"",10)=$P(YSCLD,""^""),$P(YSCLX,""^"",12)=$P(YSCLD,""^"",2)"
^XMB(3.9,169,2,2733,0)="""RTN"",""YSCLTST1"",24,0)"
^XMB(3.9,169,2,2734,0)=" ;site DEA# (p10), site pointer (p12)"
^XMB(3.9,169,2,2735,0)="""RTN"",""YSCLTST1"",25,0)"
^XMB(3.9,169,2,2736,0)=" I YSCLLD<YSCLM7 S YSCLWBC="""",$P(^PS(55,DFN,""SAND""),""^"",2)=""H"",$P(YSCLX,""^"",5)=""H"" ;Place on hold status"
^XMB(3.9,169,2,2737,0)="""RTN"",""YSCLTST1"",26,0)"
^XMB(3.9,169,2,2738,0)=" ;here if active"
^XMB(3.9,169,2,2739,0)="""RTN"",""YSCLTST1"",27,0)"
^XMB(3.9,169,2,2740,0)=" I $P(YSCLX,""^"",5)'=""H"" S $P(^PS(55,DFN,""SAND""),""^"",2)=""A"",$P(YSCLX,""^"",5)=""A"" ;force active"
^XMB(3.9,169,2,2741,0)="""RTN"",""YSCLTST1"",28,0)"
^XMB(3.9,169,2,2742,0)=" S $P(YSCLX,""^"",13)=1,$P(YSCLX,""^"",9)=$P(YSCLRX,""^"",13),YSCLD1=$G(^PSRX(YSCL1,""SAND"")),$P(YSCLX,""^"",8)=+YSCLD1"
^XMB(3.9,169,2,2743,0)="""RTN"",""YSCLTST1"",29,0)"
^XMB(3.9,169,2,2744,0)=" ;status(p5),dosage(p8),rx count(p13),issue date(p9)"
^XMB(3.9,169,2,2745,0)="""RTN"",""YSCLTST1"",30,0)"
^XMB(3.9,169,2,2746,0)=" S YSCLLO=$O(^PS(52.52,""A"",YSCL1,0)) I YSCLLO S YSCLLO=^PS(52.52,YSCLLO,0),$P(YSCLX,""^"",14)=$P(YSCLLO,""^"",5),YSCLLO=+$P(YSCLLO,""^"",4),$P(YSCLX,""^"",15)=$P(^VA(200,YSCLLO,0),""^"")"
^XMB(3.9,169,2,2747,0)="""RTN"",""YSCLTST1"",31,0)"
^XMB(3.9,169,2,2748,0)=" ;lockout reason (p14), approving official (p15)"
^XMB(3.9,169,2,2749,0)="""RTN"",""YSCLTST1"",32,0)"
^XMB(3.9,169,2,2750,0)=" S $P(YSSTOP,"","",4)=4 Q:$$S^%ZTLOAD"
^XMB(3.9,169,2,2751,0)="""RTN"",""YSCLTST1"",33,0)"
^XMB(3.9,169,2,2752,0)=" S YSCLPHY=$G(^VA(200,+$P(YSCLRX,""^"",4),0)),$P(YSCLX,""^"",7)=$P($G(^VA(200,+$P(YSCLRX,""^"",4),""PS"")),""^"",2),YSCLPHY=$P(YSCLPHY,""^"")"
^XMB(3.9,169,2,2753,0)="""RTN"",""YSCLTST1"",34,0)"
^XMB(3.9,169,2,2754,0)=" S $P(YSCLX,""^"",4)=1000*$P(YSCLD1,""^"",2),$P(YSCLX,""^"",3)=$P(YSCLD1,""^"",3) I $P(YSCLD1,""^"",2)]"""",$P(YSCLD1,""^"",3)'>YSCLED,$P(YSCLD1,""^"",3)'<YSCLM7 S YSCLWBC=1"
^XMB(3.9,169,2,2755,0)="""RTN"",""YSCLTST1"",35,0)"
^XMB(3.9,169,2,2756,0)=" ;wbc(p4),date(p3)"
^XMB(3.9,169,2,2757,0)="""RTN"",""YSCLTST1"",36,0)"
^XMB(3.9,169,2,2758,0)=" S YSCL2=-$O(YSCLA(YSCL,-YSCL1)) I YSCL2,+$P($G(^PSRX(YSCL2,0)),""^"",6)'=$P(YSCLRX,""^"",6) S YSCL2=$G(^PSRX(YSCL2,""SAND"")),$P(YSCLX,""^"",13)=2 I $P(YSCL2,""^"")'=$P(YSCLX,""^"",8) S $P(YSCLX,""^"",8)=$P(YSCLX,""^"",8)+YSCL2"
^XMB(3.9,169,2,2759,0)="""RTN"",""YSCLTST1"",37,0)"
^XMB(3.9,169,2,2760,0)=" ; add if prescription on same day for different drug and different dose"
^XMB(3.9,169,2,2761,0)="""RTN"",""YSCLTST1"",38,0)"
^XMB(3.9,169,2,2762,0)=" S $P(YSCLX,""^"",21)=$P(YSCLRX2,""^"",7) ;Add NDC to string"
^XMB(3.9,169,2,2763,0)="""RTN"",""YSCLTST1"",39,0)"
^XMB(3.9,169,2,2764,0)="LAB ;get most recent"
^XMB(3.9,169,2,2765,0)="""RTN"",""YSCLTST1"",40,0)"
^XMB(3.9,169,2,2766,0)=" S $P(YSSTOP,"","",5)=5 Q:$$S^%ZTLOAD"
^XMB(3.9,169,2,2767,0)="""RTN"",""YSCLTST1"",41,0)"
^XMB(3.9,169,2,2768,0)=" S YSCLLDT="""",J=9999998-YSCLED,K=9999998-YSCLM7 I $P(YSCLX,""^"",9) S J=9999998-$P(YSCLX,""^"",9)"
^XMB(3.9,169,2,2769,0)="""RTN"",""YSCLTST1"",42,0)"
^XMB(3.9,169,2,2770,0)=" S YSCLR=$$CL^YSCLTST2(DFN) D  ;Set 3,4,17,19,20,22,23"
^XMB(3.9,169,2,2771,0)="""RTN"",""YSCLTST1"",43,0)"
^XMB(3.9,169,2,2772,0)="  . S $P(YSCLX,""^"",3)=$P(YSCLR,""^"",6) ;WBC Date"
^XMB(3.9,169,2,2773,0)="""RTN"",""YSCLTST1"",44,0)"
^XMB(3.9,169,2,2774,0)="  . S $P(YSCLX,""^"",4)=$P(YSCLR,""^"",2) ;WBC Results"
^XMB(3.9,169,2,2775,0)="""RTN"",""YSCLTST1"",45,0)"
^XMB(3.9,169,2,2776,0)="  . ;S $P(YSCLX,""^"",17)=$P(YSCLR,""^"",6) ;WBC test count ???"
^XMB(3.9,169,2,2777,0)="""RTN"",""YSCLTST1"",46,0)"
^XMB(3.9,169,2,2778,0)="  . S $P(YSCLX,""^"",19)=$P(YSCLR,""^"",6) ;ANC Date"
^XMB(3.9,169,2,2779,0)="""RTN"",""YSCLTST1"",47,0)"
^XMB(3.9,169,2,2780,0)="  . S $P(YSCLX,""^"",20)=$P(YSCLR,""^"",4) ;ANC Results"
^XMB(3.9,169,2,2781,0)="""RTN"",""YSCLTST1"",48,0)"
^XMB(3.9,169,2,2782,0)="  . S $P(YSCLX,""^"",22)=$P(YSCLR,""^"",3) ;WBC Name"
^XMB(3.9,169,2,2783,0)="""RTN"",""YSCLTST1"",49,0)"
^XMB(3.9,169,2,2784,0)="  . S $P(YSCLX,""^"",23)=$P(YSCLR,""^"",5) ;ANC Name"
^XMB(3.9,169,2,2785,0)="""RTN"",""YSCLTST1"",50,0)"
^XMB(3.9,169,2,2786,0)=" Q"
^XMB(3.9,169,2,2787,0)="""RTN"",""YSCLTST1"",51,0)"
^XMB(3.9,169,2,2788,0)="LOAD ;"
^XMB(3.9,169,2,2789,0)="""RTN"",""YSCLTST1"",52,0)"
^XMB(3.9,169,2,2790,0)=" S $P(YSSTOP,"","",6)=6 Q:$$S^%ZTLOAD"
^XMB(3.9,169,2,2791,0)="""RTN"",""YSCLTST1"",53,0)"
^XMB(3.9,169,2,2792,0)=" I YSCLWBC="""",YSCLLD<YSCLM28 Q"
^XMB(3.9,169,2,2793,0)="""RTN"",""YSCLTST1"",54,0)"
^XMB(3.9,169,2,2794,0)=" ; don't send for pretest or older that 28 days"
^XMB(3.9,169,2,2795,0)="""RTN"",""YSCLTST1"",55,0)"
^XMB(3.9,169,2,2796,0)=" S YSCLNSTE=$P($G(^PS(59,+$P($G(^PSRX(YSCL1,2)),""^"",9),0)),""^"",6)"
^XMB(3.9,169,2,2797,0)="""RTN"",""YSCLTST1"",56,0)"
^XMB(3.9,169,2,2798,0)=" S YSCLNST1=$P($$SITE^VASITE,""^"",2),YSCLNSTE=$P($$SITE^VASITE,""^"",3)"
^XMB(3.9,169,2,2799,0)="""RTN"",""YSCLTST1"",57,0)"
^XMB(3.9,169,2,2800,0)=" S YSCLLN=YSCLLN+1,$P(YSCLX,""^"",18)=YSCLRET,^TMP($J,YSCLLN,0)=YSCLX,YSCLLN=YSCLLN+1,^TMP($J,YSCLLN,0)=YSCLPHY_""^""_YSCLDEMO_""^""_YSCLNSTE_""^""_YSCLNST1"
^XMB(3.9,169,2,2801,0)="""RTN"",""YSCLTST1"",58,0)"
^XMB(3.9,169,2,2802,0)=" ;site number and name"
^XMB(3.9,169,2,2803,0)="""RTN"",""YSCLTST1"",59,0)"
^XMB(3.9,169,2,2804,0)=" ;S YSCLLLN=YSCLLLN+1,^TMP(""YSCL"",$J,YSCLLLN,0)=$P(^DPT(DFN,0),""^"",9)_""   ""_$P(^(0),""^"")_""   ""_$S($P(YSCLX,""^"",13)="""":""NO "",1:""  "")_""RX   ""_$S(YSCLWBC="""":""NO "",1:""   "")_""LAB"" Q"
^XMB(3.9,169,2,2805,0)="""RTN"",""YSCLTST1"",60,0)"
^XMB(3.9,169,2,2806,0)=" S YSCLLLN=YSCLLLN+1,^TMP(""YSCL"",$J,YSCLLLN,0)=$P(^DPT(DFN,0),""^"",9)_""   ""_$P(^(0),""^"")_""  (R) ""_$S($P(YSCLX,""^"",13)="""":""NO RX   "",1:$$FMTE^XLFDT($P(YSCLX,""^"",9),""D""))_"" (W) """
^XMB(3.9,169,2,2807,0)="""RTN"",""YSCLTST1"",61,0)"
^XMB(3.9,169,2,2808,0)=" S ^TMP(""YSCL"",$J,YSCLLLN,0)=^TMP(""YSCL"",$J,YSCLLLN,0)_$S($P(YSCLX,""^"",3)="""":""NO WBC   "",1:$$FMTE^XLFDT($P(YSCLX,""^"",3),""D""))_"" (N) ""_$S($P(YSCLX,""^"",20)="""":""NO NEUT  "",1:$$FMTE^XLFDT($P(YSCLX,""^"",19),""D"")) Q"
^XMB(3.9,169,2,2809,0)="""RTN"",""YSCLTST1"",62,0)"
^XMB(3.9,169,2,2810,0)=" ;9the piece for issue date, 16th piece for WBC date ;RLM 06/16/05"
^XMB(3.9,169,2,2811,0)="""RTN"",""YSCLTST1"",63,0)"
^XMB(3.9,169,2,2812,0)=" Q"
^XMB(3.9,169,2,2813,0)="""RTN"",""YSCLTST1"",64,0)"
^XMB(3.9,169,2,2814,0)="ZEOR ;YSCLTST1"
^XMB(3.9,169,2,2815,0)="""RTN"",""YSCLTST2"")"
^XMB(3.9,169,2,2816,0)="0^8^B77542663^B19135665"
^XMB(3.9,169,2,2817,0)="""RTN"",""YSCLTST2"",1,0)"
^XMB(3.9,169,2,2818,0)="YSCLTST2 ;DALOI/LB/RLM-TRANSMIT RX AND lAB DATA FOR CLOZAPINE ;19 Feb 93"
^XMB(3.9,169,2,2819,0)="""RTN"",""YSCLTST2"",2,0)"
^XMB(3.9,169,2,2820,0)=" ;;5.01;MENTAL HEALTH;**18,22,26,47,61,69,74,90**;Dec 30, 1994;Build 18"
^XMB(3.9,169,2,2821,0)="""RTN"",""YSCLTST2"",3,0)"
^XMB(3.9,169,2,2822,0)=" ; Reference to ^LAB(60 supported by IA #333"
^XMB(3.9,169,2,2823,0)="""RTN"",""YSCLTST2"",4,0)"
^XMB(3.9,169,2,2824,0)=" ; Reference to ^PSDRUG supported by IA #25"
^XMB(3.9,169,2,2825,0)="""RTN"",""YSCLTST2"",5,0)"
^XMB(3.9,169,2,2826,0)=" ; Reference to ^XMD supported by IA #10070"
^XMB(3.9,169,2,2827,0)="""RTN"",""YSCLTST2"",6,0)"
^XMB(3.9,169,2,2828,0)=" ; "
^XMB(3.9,169,2,2829,0)="""RTN"",""YSCLTST2"",7,0)"
^XMB(3.9,169,2,2830,0)="TRANSMIT ; send remote and local, kill and quit"
^XMB(3.9,169,2,2831,0)="""RTN"",""YSCLTST2"",8,0)"
^XMB(3.9,169,2,2832,0)=" K XMZ S %DT=""T"",X=""NOW"" D ^%DT S YSCLNOW=$P(Y,""."",2),YSCLSITE=$P($$SITE^VASITE,""^"",2)"
^XMB(3.9,169,2,2833,0)="""RTN"",""YSCLTST2"",9,0)"
^XMB(3.9,169,2,2834,0)=" S $P(YSSTOP,"","",7)=7 I $$S^%ZTLOAD D ABORT^YSCLTEST G END"
^XMB(3.9,169,2,2835,0)="""RTN"",""YSCLTST2"",10,0)"
^XMB(3.9,169,2,2836,0)=" I YSCLLN D"
^XMB(3.9,169,2,2837,0)="""RTN"",""YSCLTST2"",11,0)"
^XMB(3.9,169,2,2838,0)="  . K XMY"
^XMB(3.9,169,2,2839,0)="""RTN"",""YSCLTST2"",12,0)"
^XMB(3.9,169,2,2840,0)="  . S XMY(""S.RUCLRXLAB@FO-HINES.MED.VA.GOV"")="""""
^XMB(3.9,169,2,2841,0)="""RTN"",""YSCLTST2"",13,0)"
^XMB(3.9,169,2,2842,0)="  . I YSDEBUG K XMY S XMY(""G.CLOZAPINE DEBUG@FO-DALLAS.MED.VA.GOV"")="""",XMY(""G.RUCLRXLAB@FO-DALLAS.MED.VA.GOV"")="""""
^XMB(3.9,169,2,2843,0)="""RTN"",""YSCLTST2"",14,0)"
^XMB(3.9,169,2,2844,0)="  . S XMDUZ=""Clozapine MONITOR"",XMTEXT=""^TMP($J,"",XMSUB=$S(YSDEBUG:""DEBUG "",1:"""")_""Clozapine lab data @ ""_YSCLSITE_"" on ""_DT_"" at ""_YSCLNOW D ^XMD"
^XMB(3.9,169,2,2845,0)="""RTN"",""YSCLTST2"",15,0)"
^XMB(3.9,169,2,2846,0)=" K XMY"
^XMB(3.9,169,2,2847,0)="""RTN"",""YSCLTST2"",16,0)"
^XMB(3.9,169,2,2848,0)=" S XMY(""G.CLOZAPINE ROLL-UP@FORUM.VA.GOV"")="""""
^XMB(3.9,169,2,2849,0)="""RTN"",""YSCLTST2"",17,0)"
^XMB(3.9,169,2,2850,0)=" I YSDEBUG K XMY S XMY(""G.CLOZAPINE DEBUG@FO-DALLAS.MED.VA.GOV"")="""""
^XMB(3.9,169,2,2851,0)="""RTN"",""YSCLTST2"",18,0)"
^XMB(3.9,169,2,2852,0)=" S XMY(""G.PSOCLOZ"")="""""
^XMB(3.9,169,2,2853,0)="""RTN"",""YSCLTST2"",19,0)"
^XMB(3.9,169,2,2854,0)=" S XMSUB=$S(YSDEBUG:""DEBUG "",1:"""")_""Clozapine lab data @ ""_YSCLSITE_"" on ""_DT_"" at ""_YSCLNOW"
^XMB(3.9,169,2,2855,0)="""RTN"",""YSCLTST2"",20,0)"
^XMB(3.9,169,2,2856,0)=" S ^TMP(""YSCL"",$J,2,0)="" "",^TMP(""YSCL"",$J,3,0)=""In message # ""_$S($D(XMZ):XMZ,1:""no data sent"")"
^XMB(3.9,169,2,2857,0)="""RTN"",""YSCLTST2"",21,0)"
^XMB(3.9,169,2,2858,0)=" K XMZ S XMDUZ=""Clozapine MONITOR"",^TMP(""YSCL"",$J,1,0)=""Clozapine lab data was transmitted, ""_(YSCLLLN-3)_"" records were sent"",XMTEXT=""^TMP(""""YSCL"""",$J,"" D ^XMD"
^XMB(3.9,169,2,2859,0)="""RTN"",""YSCLTST2"",22,0)"
^XMB(3.9,169,2,2860,0)=" S $P(^YSCL(603.03,1,0),""^"",5)=$$NOW^XLFDT"
^XMB(3.9,169,2,2861,0)="""RTN"",""YSCLTST2"",23,0)"
^XMB(3.9,169,2,2862,0)="END ;"
^XMB(3.9,169,2,2863,0)="""RTN"",""YSCLTST2"",24,0)"
^XMB(3.9,169,2,2864,0)=" G END1^YSCLTST3"
^XMB(3.9,169,2,2865,0)="""RTN"",""YSCLTST2"",25,0)"
^XMB(3.9,169,2,2866,0)=" Q"
^XMB(3.9,169,2,2867,0)="""RTN"",""YSCLTST2"",26,0)"
^XMB(3.9,169,2,2868,0)="REXMIT ; retransmit lab and RX data"
^XMB(3.9,169,2,2869,0)="""RTN"",""YSCLTST2"",27,0)"
^XMB(3.9,169,2,2870,0)=" ; must be a period ending on tuesday"
^XMB(3.9,169,2,2871,0)="""RTN"",""YSCLTST2"",28,0)"
^XMB(3.9,169,2,2872,0)=" S DIR(0)=""Y"",DIR(""A"")=""Are you sure you wish to retransmit lab data"""
^XMB(3.9,169,2,2873,0)="""RTN"",""YSCLTST2"",29,0)"
^XMB(3.9,169,2,2874,0)=" D ^DIR K DIR I Y'=1 K Y Q"
^XMB(3.9,169,2,2875,0)="""RTN"",""YSCLTST2"",30,0)"
^XMB(3.9,169,2,2876,0)="DATE S %DT=""AEXP"",%DT(0)=-DT,%DT(""A"")=""Ending date for data collection (must be a tuesday )"""
^XMB(3.9,169,2,2877,0)="""RTN"",""YSCLTST2"",31,0)"
^XMB(3.9,169,2,2878,0)=" D ^%DT K %DT G END:X=""^"",END:X=""^"" I Y=-1 G DATE"
^XMB(3.9,169,2,2879,0)="""RTN"",""YSCLTST2"",32,0)"
^XMB(3.9,169,2,2880,0)="SERV S YSCLED=Y,X=Y D H^%DTC I %H#7'=5 W !,""MUST BE A TUESDAY"" G DATE"
^XMB(3.9,169,2,2881,0)="""RTN"",""YSCLTST2"",33,0)"
^XMB(3.9,169,2,2882,0)=" S ZTDESC=""Server triggered retransmission"""
^XMB(3.9,169,2,2883,0)="""RTN"",""YSCLTST2"",34,0)"
^XMB(3.9,169,2,2884,0)=" S ZTSAVE(""YSCLED"")="""",ZTIO="""",ZTRTN=""REXMIT^YSCLTEST"",ZTDTH=$H D ^%ZTLOAD G END"
^XMB(3.9,169,2,2885,0)="""RTN"",""YSCLTST2"",35,0)"
^XMB(3.9,169,2,2886,0)="FLSET ;Set up file 603.02"
^XMB(3.9,169,2,2887,0)="""RTN"",""YSCLTST2"",36,0)"
^XMB(3.9,169,2,2888,0)=" W @IOF,""This option specifies the blood tests associated with the Clozapine"""
^XMB(3.9,169,2,2889,0)="""RTN"",""YSCLTST2"",37,0)"
^XMB(3.9,169,2,2890,0)=" W !,""reporting software.  Two tests must be defined.  The first is the White"""
^XMB(3.9,169,2,2891,0)="""RTN"",""YSCLTST2"",38,0)"
^XMB(3.9,169,2,2892,0)=" W !,""Blood Count.  The second is the Granulocyte (or Neutrophil) percentage."""
^XMB(3.9,169,2,2893,0)="""RTN"",""YSCLTST2"",39,0)"
^XMB(3.9,169,2,2894,0)=" K DIR W !! S DIR(0)=""PA^64:EMZ"",DIR(""A"",1)=""Enter the test that will be used to record the White Blood Count for the"",DIR(""A"")=""Clozapine patients: "" D ^DIR"
^XMB(3.9,169,2,2895,0)="""RTN"",""YSCLTST2"",40,0)"
^XMB(3.9,169,2,2896,0)=" Q:Y=-1!($D(DUOUT))!($D(DTOUT))!($D(DIRUT))!($D(DIROUT))"
^XMB(3.9,169,2,2897,0)="""RTN"",""YSCLTST2"",41,0)"
^XMB(3.9,169,2,2898,0)=" S YSCLWBC=+Y"
^XMB(3.9,169,2,2899,0)="""RTN"",""YSCLTST2"",42,0)"
^XMB(3.9,169,2,2900,0)=" K DIR W !! S DIR(0)=""PA^64:EMZ"",DIR(""A"",1)=""Enter the test that will be used to record the Neutrophil Count (percentage)"",DIR(""A"")="" for the Clozapine patients: "" D ^DIR"
^XMB(3.9,169,2,2901,0)="""RTN"",""YSCLTST2"",43,0)"
^XMB(3.9,169,2,2902,0)=" Q:Y=-1!($D(DUOUT))!($D(DTOUT))!($D(DIRUT))!($D(DIROUT))"
^XMB(3.9,169,2,2903,0)="""RTN"",""YSCLTST2"",44,0)"
^XMB(3.9,169,2,2904,0)=" S YSCLGRN=+Y"
^XMB(3.9,169,2,2905,0)="""RTN"",""YSCLTST2"",45,0)"
^XMB(3.9,169,2,2906,0)=" I YSCLWBC,YSCLGRN S ^YSCL(603.02,1,0)=YSCLWBC_""^""_YSCLGRN,$P(^YSCL(603.02,0),""^"",3,4)=""1^1"""
^XMB(3.9,169,2,2907,0)="""RTN"",""YSCLTST2"",46,0)"
^XMB(3.9,169,2,2908,0)=" ;Only one entry is allowed.  No cross reference is necessary. Update zeroeth node RLM 9-29-99"
^XMB(3.9,169,2,2909,0)="""RTN"",""YSCLTST2"",47,0)"
^XMB(3.9,169,2,2910,0)=" K DIR,X,Y,YSCLWBC,YSCLGRN,ZTDESC"
^XMB(3.9,169,2,2911,0)="""RTN"",""YSCLTST2"",48,0)"
^XMB(3.9,169,2,2912,0)=" Q"
^XMB(3.9,169,2,2913,0)="""RTN"",""YSCLTST2"",49,0)"
^XMB(3.9,169,2,2914,0)="EN(DRG) ;"
^XMB(3.9,169,2,2915,0)="""RTN"",""YSCLTST2"",50,0)"
^XMB(3.9,169,2,2916,0)=" K LAB I $P($G(^PSDRUG(DRG,""CLOZ1"")),""^"")'=""PSOCLO1"" S LAB(""NOT"")=0 Q"
^XMB(3.9,169,2,2917,0)="""RTN"",""YSCLTST2"",51,0)"
^XMB(3.9,169,2,2918,0)=" I $P($G(^PSDRUG(DRG,""CLOZ1"")),""^"")=""PSOCLO1"" D"
^XMB(3.9,169,2,2919,0)="""RTN"",""YSCLTST2"",52,0)"
^XMB(3.9,169,2,2920,0)="  . S (CNT,I)=0 F  S I=$O(^PSDRUG(DRG,""CLOZ2"",I)) Q:'I  S CNT=$G(CNT)+1"
^XMB(3.9,169,2,2921,0)="""RTN"",""YSCLTST2"",53,0)"
^XMB(3.9,169,2,2922,0)="  . I CNT'=2 S LAB(""BAD TEST"")=0 K CNT Q"
^XMB(3.9,169,2,2923,0)="""RTN"",""YSCLTST2"",54,0)"
^XMB(3.9,169,2,2924,0)="  . K CNT F I=0:0 S I=$O(^PSDRUG(DRG,""CLOZ2"",I)) Q:'I  D"
^XMB(3.9,169,2,2925,0)="""RTN"",""YSCLTST2"",55,0)"
^XMB(3.9,169,2,2926,0)="  . . S LABT=$S($P(^PSDRUG(DRG,""CLOZ2"",I,0),""^"",4)=1:""WBC"",1:""ANC""),LAB(LABT)=$P(^PSDRUG(DRG,""CLOZ2"",I,0),""^"")_""^""_$P(^(0),""^"",3)_""^""_$P(^(0),""^"",4)"
^XMB(3.9,169,2,2927,0)="""RTN"",""YSCLTST2"",56,0)"
^XMB(3.9,169,2,2928,0)=" K LABT,I"
^XMB(3.9,169,2,2929,0)="""RTN"",""YSCLTST2"",57,0)"
^XMB(3.9,169,2,2930,0)=" Q"
^XMB(3.9,169,2,2931,0)="""RTN"",""YSCLTST2"",58,0)"
^XMB(3.9,169,2,2932,0)="CL1(DFN,DAYS) ;"
^XMB(3.9,169,2,2933,0)="""RTN"",""YSCLTST2"",59,0)"
^XMB(3.9,169,2,2934,0)=" K ^TMP($J,""PSO""),RESULTS,YSCLYWBC,YSCLRANC,YSCLXWBC"
^XMB(3.9,169,2,2935,0)="""RTN"",""YSCLTST2"",60,0)"
^XMB(3.9,169,2,2936,0)=" Q:'DFN"
^XMB(3.9,169,2,2937,0)="""RTN"",""YSCLTST2"",61,0)"
^XMB(3.9,169,2,2938,0)=" S:'$G(DAYS) DAYS=90"
^XMB(3.9,169,2,2939,0)="""RTN"",""YSCLTST2"",62,0)"
^XMB(3.9,169,2,2940,0)=" S YSCLFRQ=$O(^YSCL(603.01,""C"",DFN,"""")) I YSCLFRQ]""""  S YSCLFRQ=$P(^YSCL(603.01,YSCLFRQ,0),""^"",3)"
^XMB(3.9,169,2,2941,0)="""RTN"",""YSCLTST2"",63,0)"
^XMB(3.9,169,2,2942,0)=" I $G(^YSCL(603.03,1,1))=1  Q ""-1^0^0^0^0^0^""_YSCLFRQ"
^XMB(3.9,169,2,2943,0)="""RTN"",""YSCLTST2"",64,0)"
^XMB(3.9,169,2,2944,0)=" S X1=DT,X2=""-""_DAYS D C^%DTC S YSCLSD=X"
^XMB(3.9,169,2,2945,0)="""RTN"",""YSCLTST2"",65,0)"
^XMB(3.9,169,2,2946,0)=" S YSCLA=0 F  S YSCLA=$O(^YSCL(603.04,1,1,YSCLA)) Q:'YSCLA  S YSCLTLS=^YSCL(603.04,1,1,YSCLA,0),YSCLTLS($P(YSCLTLS,""^"",2),$P(YSCLTLS,""^"",1))=$P(YSCLTLS,""^"",3)"
^XMB(3.9,169,2,2947,0)="""RTN"",""YSCLTST2"",66,0)"
^XMB(3.9,169,2,2948,0)=" S YSCLTL="""" F  S YSCLTL=$O(^YSCL(603.04,1,1,""B"",YSCLTL)) Q:'YSCLTL  D"
^XMB(3.9,169,2,2949,0)="""RTN"",""YSCLTST2"",67,0)"
^XMB(3.9,169,2,2950,0)="  . D RR^LR7OR1(DFN,,YSCLSD,DT,,YSCLTL,""L"")"
^XMB(3.9,169,2,2951,0)="""RTN"",""YSCLTST2"",68,0)"
^XMB(3.9,169,2,2952,0)="  . S YSCLSB1="""" F  S YSCLSB1=$O(^TMP(""LRRR"",$J,DFN,YSCLSB1)) Q:YSCLSB1=""""  D"
^XMB(3.9,169,2,2953,0)="""RTN"",""YSCLTST2"",69,0)"
^XMB(3.9,169,2,2954,0)="  . . S YSCLTDT="""" F  S YSCLTDT=$O(^TMP(""LRRR"",$J,DFN,YSCLSB1,YSCLTDT)) Q:YSCLTDT=""""  I $P(YSCLTDT,""."",2)]"""" D"
^XMB(3.9,169,2,2955,0)="""RTN"",""YSCLTST2"",70,0)"
^XMB(3.9,169,2,2956,0)="  . . . S YSCLTA="""" F  S YSCLTA=$O(^TMP(""LRRR"",$J,DFN,YSCLSB1,YSCLTDT,YSCLTA)) Q:YSCLTA=""""  I YSCLTA D"
^XMB(3.9,169,2,2957,0)="""RTN"",""YSCLTST2"",71,0)"
^XMB(3.9,169,2,2958,0)="  . . . . S RESULTS1=^TMP(""LRRR"",$J,DFN,YSCLSB1,YSCLTDT,YSCLTA)"
^XMB(3.9,169,2,2959,0)="""RTN"",""YSCLTST2"",72,0)"
^XMB(3.9,169,2,2960,0)="  . . . . S RESULTS(YSCLTL,YSCLTDT)=$P(RESULTS1,""^"",2)"
^XMB(3.9,169,2,2961,0)="""RTN"",""YSCLTST2"",73,0)"
^XMB(3.9,169,2,2962,0)=" ;Find all entries for WBC and sort by inverse date."
^XMB(3.9,169,2,2963,0)="""RTN"",""YSCLTST2"",74,0)"
^XMB(3.9,169,2,2964,0)=" S YSCLA="""" F  S YSCLA=$O(YSCLTLS(""W"",YSCLA)) Q:'YSCLA  S YSCLXWBC(YSCLA)="""" D"
^XMB(3.9,169,2,2965,0)="""RTN"",""YSCLTST2"",75,0)"
^XMB(3.9,169,2,2966,0)="  . S YSCLA1="""" F  S YSCLA1=$O(RESULTS(YSCLA,YSCLA1)) Q:'YSCLA1  S YSCLYWBC(YSCLA1)=RESULTS(YSCLA,YSCLA1)*$S(YSCLTLS(""W"",YSCLA):1000,1:1)"
^XMB(3.9,169,2,2967,0)="""RTN"",""YSCLTST2"",76,0)"
^XMB(3.9,169,2,2968,0)=" S YSCLRWBC=0 F  S YSCLRWBC=$O(YSCLYWBC(YSCLRWBC)) Q:YSCLRWBC=""""  S YSCLRWBC(YSCLRWBC)=YSCLYWBC(YSCLRWBC) D"
^XMB(3.9,169,2,2969,0)="""RTN"",""YSCLTST2"",77,0)"
^XMB(3.9,169,2,2970,0)=" . ;Match all ANC's and WBC's"
^XMB(3.9,169,2,2971,0)="""RTN"",""YSCLTST2"",78,0)"
^XMB(3.9,169,2,2972,0)=" . S YSCLMTCH=0 F YSCLA=""A"",""N"",""S"",""C"" S YSCLTPT="""" F  S YSCLTPT=$O(YSCLTLS(YSCLA,YSCLTPT)) Q:'YSCLTPT  D"
^XMB(3.9,169,2,2973,0)="""RTN"",""YSCLTST2"",79,0)"
^XMB(3.9,169,2,2974,0)=" . . I $D(RESULTS(YSCLTPT,YSCLRWBC)),YSCLA=""A"",$D(YSCLRWBC(YSCLRWBC)) S ^TMP($J,""PSO"",YSCLRWBC)=YSCLRWBC(YSCLRWBC)_""^""_(RESULTS(YSCLTPT,YSCLRWBC)*$S(YSCLTLS(YSCLA,YSCLTPT):1000,1:1)) Q"
^XMB(3.9,169,2,2975,0)="""RTN"",""YSCLTST2"",80,0)"
^XMB(3.9,169,2,2976,0)=" . . I $D(RESULTS(YSCLTPT,YSCLRWBC)),YSCLA=""N"",$D(YSCLRWBC(YSCLRWBC)) S ^TMP($J,""PSO"",YSCLRWBC)=YSCLRWBC(YSCLRWBC)_""^""_(YSCLRWBC(YSCLRWBC)*((RESULTS(YSCLTPT,YSCLRWBC)*.01))) Q"
^XMB(3.9,169,2,2977,0)="""RTN"",""YSCLTST2"",81,0)"
^XMB(3.9,169,2,2978,0)=" . . I $D(RESULTS(YSCLTPT,YSCLRWBC)),YSCLA=""S"",$D(YSCLRWBC(YSCLRWBC)) D"
^XMB(3.9,169,2,2979,0)="""RTN"",""YSCLTST2"",82,0)"
^XMB(3.9,169,2,2980,0)=" . . . S YSCLSGS="""" F  S YSCLSGS=$O(YSCLTLS(""B"",YSCLSGS)) D  Q:'YSCLSGS"
^XMB(3.9,169,2,2981,0)="""RTN"",""YSCLTST2"",83,0)"
^XMB(3.9,169,2,2982,0)=" . . . . S:'YSCLSGS YSCLSGS=""Z"" I '$D(RESULTS(YSCLSGS,YSCLRWBC)) S RESULTS(YSCLSGS,YSCLRWBC)=0"
^XMB(3.9,169,2,2983,0)="""RTN"",""YSCLTST2"",84,0)"
^XMB(3.9,169,2,2984,0)=" . . . . S ^TMP($J,""PSO"",YSCLRWBC)=YSCLRWBC(YSCLRWBC)_""^""_(YSCLRWBC(YSCLRWBC)*((RESULTS(YSCLTPT,YSCLRWBC)*.01)+(RESULTS(YSCLSGS,YSCLRWBC)*.01))) Q"
^XMB(3.9,169,2,2985,0)="""RTN"",""YSCLTST2"",85,0)"
^XMB(3.9,169,2,2986,0)=" . . I $D(RESULTS(YSCLTPT,YSCLRWBC)),YSCLA=""C"" D"
^XMB(3.9,169,2,2987,0)="""RTN"",""YSCLTST2"",86,0)"
^XMB(3.9,169,2,2988,0)=" . . . S YSCLSGS="""" F  S YSCLSGS=$O(YSCLTLS(""T"",YSCLSGS)) D  Q:'YSCLSGS"
^XMB(3.9,169,2,2989,0)="""RTN"",""YSCLTST2"",87,0)"
^XMB(3.9,169,2,2990,0)=" . . . . S:'YSCLSGS YSCLSGS=""Z"" I '$D(RESULTS(YSCLSGS,YSCLRWBC)) S RESULTS(YSCLSGS,YSCLRWBC)=0"
^XMB(3.9,169,2,2991,0)="""RTN"",""YSCLTST2"",88,0)"
^XMB(3.9,169,2,2992,0)=" . . . . S ^TMP($J,""PSO"",YSCLRWBC)=YSCLRWBC(YSCLRWBC)_""^""_((RESULTS(YSCLTPT,YSCLRWBC)*$S(YSCLTLS(YSCLA,YSCLTPT):1000,1:1))+(RESULTS(YSCLSGS,YSCLRWBC))) Q"
^XMB(3.9,169,2,2993,0)="""RTN"",""YSCLTST2"",89,0)"
^XMB(3.9,169,2,2994,0)=" K FDA,YSCLSGS,Y15,YSCLRWBC,YSCLANC,YSCLYWBC,YSCLFRQ,ZIENS,RESULTS,RESULTS1,YSCLA,YSCLA1,YSCLMTCH,YSCLSB1,YSCLSD"
^XMB(3.9,169,2,2995,0)="""RTN"",""YSCLTST2"",90,0)"
^XMB(3.9,169,2,2996,0)=" K YSCLTA,YSCLTDT,YSCLTL,YSCLTLS,YSCLTPT,YSCLXWBC,YSCLMULT"
^XMB(3.9,169,2,2997,0)="""RTN"",""YSCLTST2"",91,0)"
^XMB(3.9,169,2,2998,0)=" Q"
^XMB(3.9,169,2,2999,0)="""RTN"",""YSCLTST2"",92,0)"
^XMB(3.9,169,2,3000,0)=" ;"
^XMB(3.9,169,2,3001,0)="""RTN"",""YSCLTST2"",93,0)"
^XMB(3.9,169,2,3002,0)=" ;"
^XMB(3.9,169,2,3003,0)="""RTN"",""YSCLTST2"",94,0)"
^XMB(3.9,169,2,3004,0)="CL(DFN) ;"
^XMB(3.9,169,2,3005,0)="""RTN"",""YSCLTST2"",95,0)"
^XMB(3.9,169,2,3006,0)=" K ^TMP(""LRRR"",$J) N RESULTS,YSCLYWBC,YSCLRANC,YSCLXWBC,YSCLRWBC,YSCLFRQ"
^XMB(3.9,169,2,3007,0)="""RTN"",""YSCLTST2"",96,0)"
^XMB(3.9,169,2,3008,0)=" I 'DFN Q ""-1^-1^-1^-1^-1^-1^-1"""
^XMB(3.9,169,2,3009,0)="""RTN"",""YSCLTST2"",97,0)"
^XMB(3.9,169,2,3010,0)=" S YSCLFRQ=$O(^YSCL(603.01,""C"",DFN,"""")) I YSCLFRQ]""""  S YSCLFRQ=$P(^YSCL(603.01,YSCLFRQ,0),""^"",3)"
^XMB(3.9,169,2,3011,0)="""RTN"",""YSCLTST2"",98,0)"
^XMB(3.9,169,2,3012,0)=" I $G(^YSCL(603.03,1,1))=1!(YSCLFRQ="""")  Q ""-1^0^0^0^0^0^""_YSCLFRQ"
^XMB(3.9,169,2,3013,0)="""RTN"",""YSCLTST2"",99,0)"
^XMB(3.9,169,2,3014,0)=" S X1=DT,X2=""-7"" D C^%DTC S YSCLSD=X"
^XMB(3.9,169,2,3015,0)="""RTN"",""YSCLTST2"",100,0)"
^XMB(3.9,169,2,3016,0)=" S YSCLA=0 F  S YSCLA=$O(^YSCL(603.04,1,1,YSCLA)) Q:'YSCLA  S YSCLTLS=^YSCL(603.04,1,1,YSCLA,0),YSCLTLS($P(YSCLTLS,""^"",2),$P(YSCLTLS,""^"",1))=$P(YSCLTLS,""^"",3)"
^XMB(3.9,169,2,3017,0)="""RTN"",""YSCLTST2"",101,0)"
^XMB(3.9,169,2,3018,0)=" S YSCLTL="""" F  S YSCLTL=$O(^YSCL(603.04,1,1,""B"",YSCLTL)) Q:'YSCLTL  D"
^XMB(3.9,169,2,3019,0)="""RTN"",""YSCLTST2"",102,0)"
^XMB(3.9,169,2,3020,0)="  . D RR^LR7OR1(DFN,,YSCLSD,DT,,YSCLTL,""L"")"
^XMB(3.9,169,2,3021,0)="""RTN"",""YSCLTST2"",103,0)"
^XMB(3.9,169,2,3022,0)="  . S YSCLSB1="""" F  S YSCLSB1=$O(^TMP(""LRRR"",$J,DFN,YSCLSB1)) Q:YSCLSB1=""""  D"
^XMB(3.9,169,2,3023,0)="""RTN"",""YSCLTST2"",104,0)"
^XMB(3.9,169,2,3024,0)="  . . S YSCLTDT="""" F  S YSCLTDT=$O(^TMP(""LRRR"",$J,DFN,YSCLSB1,YSCLTDT)) Q:YSCLTDT=""""  I $P(YSCLTDT,""."",2)]"""" D"
^XMB(3.9,169,2,3025,0)="""RTN"",""YSCLTST2"",105,0)"
^XMB(3.9,169,2,3026,0)="  . . . S YSCLTA="""" F  S YSCLTA=$O(^TMP(""LRRR"",$J,DFN,YSCLSB1,YSCLTDT,YSCLTA)) Q:YSCLTA=""""  I YSCLTA D"
^XMB(3.9,169,2,3027,0)="""RTN"",""YSCLTST2"",106,0)"
^XMB(3.9,169,2,3028,0)="  . . . . S RESULTS1=^TMP(""LRRR"",$J,DFN,YSCLSB1,YSCLTDT,YSCLTA)"
^XMB(3.9,169,2,3029,0)="""RTN"",""YSCLTST2"",107,0)"
^XMB(3.9,169,2,3030,0)="  . . . . S RESULTS(YSCLTL,YSCLTDT)=$P(RESULTS1,""^"",2)"
^XMB(3.9,169,2,3031,0)="""RTN"",""YSCLTST2"",108,0)"
^XMB(3.9,169,2,3032,0)=" ;Find all entries for WBC and sort by inverse date."
^XMB(3.9,169,2,3033,0)="""RTN"",""YSCLTST2"",109,0)"
^XMB(3.9,169,2,3034,0)=" S YSCLA="""" F  S YSCLA=$O(YSCLTLS(""W"",YSCLA)) Q:'YSCLA  S YSCLXWBC(YSCLA)="""" D"
^XMB(3.9,169,2,3035,0)="""RTN"",""YSCLTST2"",110,0)"
^XMB(3.9,169,2,3036,0)="  . S YSCLA1="""" F  S YSCLA1=$O(RESULTS(YSCLA,YSCLA1)) Q:'YSCLA1  S YSCLYWBC(YSCLA1)=RESULTS(YSCLA,YSCLA1)_""^""_$P($G(^LAB(60,YSCLA,0)),""^"")_""^""_YSCLTLS(""W"",YSCLA)"
^XMB(3.9,169,2,3037,0)="""RTN"",""YSCLTST2"",111,0)"
^XMB(3.9,169,2,3038,0)=" S YSCLRWBC=$O(YSCLYWBC(0)) I 'YSCLRWBC D KILL Q ""0^^^^^^""_YSCLFRQ"
^XMB(3.9,169,2,3039,0)="""RTN"",""YSCLTST2"",112,0)"
^XMB(3.9,169,2,3040,0)=" S YSCLMULT=$P(YSCLYWBC(YSCLRWBC),""^"",3),YSCLMULT=$S(YSCLMULT:1000,1:1)"
^XMB(3.9,169,2,3041,0)="""RTN"",""YSCLTST2"",113,0)"
^XMB(3.9,169,2,3042,0)=" S YSCLRWBC(YSCLRWBC)=($P(YSCLYWBC(YSCLRWBC),""^"")*YSCLMULT)_""^""_$P(YSCLYWBC(YSCLRWBC),""^"",2)"
^XMB(3.9,169,2,3043,0)="""RTN"",""YSCLTST2"",114,0)"
^XMB(3.9,169,2,3044,0)=" ;Scan for Neutrophil count on same day and time as most recent WBC"
^XMB(3.9,169,2,3045,0)="""RTN"",""YSCLTST2"",115,0)"
^XMB(3.9,169,2,3046,0)=" S YSCLMTCH=0 F YSCLA=""A"",""N"",""S"",""T"" S YSCLTPT="""" F  S YSCLTPT=$O(YSCLTLS(YSCLA,YSCLTPT)) Q:'YSCLTPT  D  Q:YSCLMTCH"
^XMB(3.9,169,2,3047,0)="""RTN"",""YSCLTST2"",116,0)"
^XMB(3.9,169,2,3048,0)="  . S YSCLMULT=YSCLTLS(YSCLA,YSCLTPT),YSCLMULT=$S(YSCLMULT:1000,1:1)"
^XMB(3.9,169,2,3049,0)="""RTN"",""YSCLTST2"",117,0)"
^XMB(3.9,169,2,3050,0)="  . I $D(RESULTS(YSCLTPT,YSCLRWBC)),YSCLA=""A"" S YSCLMTCH=1,YSCLRANC(YSCLRWBC)=RESULTS(YSCLTPT,YSCLRWBC)*YSCLMULT_""^""_$P(^LAB(60,YSCLTPT,0),""^"") Q"
^XMB(3.9,169,2,3051,0)="""RTN"",""YSCLTST2"",118,0)"
^XMB(3.9,169,2,3052,0)="  . I $D(RESULTS(YSCLTPT,YSCLRWBC)),YSCLA=""N"" S YSCLMTCH=1,YSCLRANC(YSCLRWBC)=YSCLRWBC(YSCLRWBC)*((RESULTS(YSCLTPT,YSCLRWBC))*.01)_""^""_$P(^LAB(60,YSCLTPT,0),""^"") Q"
^XMB(3.9,169,2,3053,0)="""RTN"",""YSCLTST2"",119,0)"
^XMB(3.9,169,2,3054,0)="  . I $D(RESULTS(YSCLTPT,YSCLRWBC)),YSCLA=""S"" D"
^XMB(3.9,169,2,3055,0)="""RTN"",""YSCLTST2"",120,0)"
^XMB(3.9,169,2,3056,0)="  . . S YSCLSGS="""" F  S YSCLSGS=$O(YSCLTLS(""B"",YSCLSGS)) D  Q:YSCLMTCH"
^XMB(3.9,169,2,3057,0)="""RTN"",""YSCLTST2"",121,0)"
^XMB(3.9,169,2,3058,0)="  . . . S:'YSCLSGS YSCLSGS=""Z"" I '$D(RESULTS(YSCLSGS,YSCLRWBC)) S RESULTS(YSCLSGS,YSCLRWBC)=0"
^XMB(3.9,169,2,3059,0)="""RTN"",""YSCLTST2"",122,0)"
^XMB(3.9,169,2,3060,0)="  . . . S YSCLMTCH=1,YSCLRANC(YSCLRWBC)=YSCLRWBC(YSCLRWBC)*((RESULTS(YSCLTPT,YSCLRWBC)*.01)+(RESULTS(YSCLSGS,YSCLRWBC)*.01))_""^""_$P(^LAB(60,YSCLTPT,0),""^"")_""/""_$P($G(^LAB(60,YSCLSGS,0)),""^"") Q"
^XMB(3.9,169,2,3061,0)="""RTN"",""YSCLTST2"",123,0)"
^XMB(3.9,169,2,3062,0)="  . I $D(RESULTS(YSCLTPT,YSCLRWBC)),YSCLA=""C"" D"
^XMB(3.9,169,2,3063,0)="""RTN"",""YSCLTST2"",124,0)"
^XMB(3.9,169,2,3064,0)="  . . S YSCLSGS="""" F  S YSCLSGS=$O(YSCLTLS(""T"",YSCLSGS)) D  Q:YSCLMTCH"
^XMB(3.9,169,2,3065,0)="""RTN"",""YSCLTST2"",125,0)"
^XMB(3.9,169,2,3066,0)="  . . . S:'YSCLSGS YSCLSGS=""Z"" I '$D(RESULTS(YSCLSGS,YSCLRWBC)) S RESULTS(YSCLSGS,YSCLRWBC)=0"
^XMB(3.9,169,2,3067,0)="""RTN"",""YSCLTST2"",126,0)"
^XMB(3.9,169,2,3068,0)="  . . . S YSCLMTCH=1,YSCLRANC(YSCLRWBC)=((RESULTS(YSCLTPT,YSCLRWBC)*YSCLMULT)+(RESULTS(YSCLSGS,YSCLRWBC)*YSCLMULT))_""^""_$P(^LAB(60,YSCLTPT,0),""^"")_""/""_$P($G(^LAB(60,YSCLSGS,0)),""^"") Q"
^XMB(3.9,169,2,3069,0)="""RTN"",""YSCLTST2"",127,0)"
^XMB(3.9,169,2,3070,0)=" D KILL"
^XMB(3.9,169,2,3071,0)="""RTN"",""YSCLTST2"",128,0)"
^XMB(3.9,169,2,3072,0)=" I $G(YSCLRWBC(YSCLRWBC))<3000!($G(YSCLRANC(YSCLRWBC))<1500) Q ""0^""_$G(YSCLRWBC(YSCLRWBC))_""^""_$S($G(YSCLRANC(YSCLRWBC))="""":""^"",1:$G(YSCLRANC(YSCLRWBC)))_""^""_(9999999-YSCLRWBC)_""^""_YSCLFRQ"
^XMB(3.9,169,2,3073,0)="""RTN"",""YSCLTST2"",129,0)"
^XMB(3.9,169,2,3074,0)=" I $G(YSCLRWBC(YSCLRWBC))<3500!($G(YSCLRANC(YSCLRWBC))<2000) Q ""2^""_$G(YSCLRWBC(YSCLRWBC))_""^""_$S($G(YSCLRANC(YSCLRWBC))="""":""^"",1:$G(YSCLRANC(YSCLRWBC)))_""^""_(9999999-YSCLRWBC)_""^""_YSCLFRQ"
^XMB(3.9,169,2,3075,0)="""RTN"",""YSCLTST2"",130,0)"
^XMB(3.9,169,2,3076,0)=" Q ""1^""_YSCLRWBC(YSCLRWBC)_""^""_YSCLRANC(YSCLRWBC)_""^""_(9999999-YSCLRWBC)_""^""_YSCLFRQ"
^XMB(3.9,169,2,3077,0)="""RTN"",""YSCLTST2"",131,0)"
^XMB(3.9,169,2,3078,0)=" ;"
^XMB(3.9,169,2,3079,0)="""RTN"",""YSCLTST2"",132,0)"
^XMB(3.9,169,2,3080,0)="KILL ;"
^XMB(3.9,169,2,3081,0)="""RTN"",""YSCLTST2"",133,0)"
^XMB(3.9,169,2,3082,0)=" K FDA,YSCLSGS,Y15,RESULTS,RESULTS1,YSCLA,YSCLA1,YSCLMTCH,YSCLSB1,YSCLSD,YSCLTA,YSCLMULT"
^XMB(3.9,169,2,3083,0)="""RTN"",""YSCLTST2"",134,0)"
^XMB(3.9,169,2,3084,0)=" K YSCLTDT,YSCLTL,YSCLTLS,YSCLTPT,YSCLXWBC"
^XMB(3.9,169,2,3085,0)="""RTN"",""YSCLTST2"",135,0)"
^XMB(3.9,169,2,3086,0)=" ;"
^XMB(3.9,169,2,3087,0)="""RTN"",""YSCLTST2"",136,0)"
^XMB(3.9,169,2,3088,0)="OVERRIDE(DFN) ;Check to see if the NCCC has authorized an over-ride for today on this patient."
^XMB(3.9,169,2,3089,0)="""RTN"",""YSCLTST2"",137,0)"
^XMB(3.9,169,2,3090,0)=" S YSCLOVR=$O(^YSCL(603.01,""C"",DFN,""""))"
^XMB(3.9,169,2,3091,0)="""RTN"",""YSCLTST2"",138,0)"
^XMB(3.9,169,2,3092,0)=" Q:YSCLOVR="""" 0"
^XMB(3.9,169,2,3093,0)="""RTN"",""YSCLTST2"",139,0)"
^XMB(3.9,169,2,3094,0)=" S YSCLOVR=$P(^YSCL(603.01,YSCLOVR,0),""^"",4)"
^XMB(3.9,169,2,3095,0)="""RTN"",""YSCLTST2"",140,0)"
^XMB(3.9,169,2,3096,0)=" Q YSCLOVR=DT"
^XMB(3.9,169,2,3097,0)="""RTN"",""YSCLTST2"",141,0)"
^XMB(3.9,169,2,3098,0)=" ;"
^XMB(3.9,169,2,3099,0)="""RTN"",""YSCLTST2"",142,0)"
^XMB(3.9,169,2,3100,0)="ZEOR ;YSCLTST2"
^XMB(3.9,169,2,3101,0)="""RTN"",""YSCLTST3"")"
^XMB(3.9,169,2,3102,0)="0^9^B59491458^B27477031"
^XMB(3.9,169,2,3103,0)="""RTN"",""YSCLTST3"",1,0)"
^XMB(3.9,169,2,3104,0)="YSCLTST3 ;DALOI/LB/RLM-TRANSMISSION FOR CLOZAPINE REPORTING SYSTEM ;26 June 91"
^XMB(3.9,169,2,3105,0)="""RTN"",""YSCLTST3"",2,0)"
^XMB(3.9,169,2,3106,0)=" ;;5.01;MENTAL HEALTH;**18,22,25,26,47,61,69,74,90**;Dec 30, 1994;Build 18"
^XMB(3.9,169,2,3107,0)="""RTN"",""YSCLTST3"",3,0)"
^XMB(3.9,169,2,3108,0)=" ; Reference to ^DPT supported by IA #10035"
^XMB(3.9,169,2,3109,0)="""RTN"",""YSCLTST3"",4,0)"
^XMB(3.9,169,2,3110,0)=" ; Reference to ^PS(55 supported by IA #787"
^XMB(3.9,169,2,3111,0)="""RTN"",""YSCLTST3"",5,0)"
^XMB(3.9,169,2,3112,0)=" ; Reference to ^PS(59 supported by IA #783"
^XMB(3.9,169,2,3113,0)="""RTN"",""YSCLTST3"",6,0)"
^XMB(3.9,169,2,3114,0)=" ; Reference to ^VA(200 supported by IA #10060"
^XMB(3.9,169,2,3115,0)="""RTN"",""YSCLTST3"",7,0)"
^XMB(3.9,169,2,3116,0)=" ; Reference to ^LAB(60 supported by IA #333"
^XMB(3.9,169,2,3117,0)="""RTN"",""YSCLTST3"",8,0)"
^XMB(3.9,169,2,3118,0)=" ; Reference to ^XMD supported by IA #10070"
^XMB(3.9,169,2,3119,0)="""RTN"",""YSCLTST3"",9,0)"
^XMB(3.9,169,2,3120,0)="DEMOG ; Old entry point to send demographic data for patients from task. Obsolete"
^XMB(3.9,169,2,3121,0)="""RTN"",""YSCLTST3"",10,0)"
^XMB(3.9,169,2,3122,0)=" Q"
^XMB(3.9,169,2,3123,0)="""RTN"",""YSCLTST3"",11,0)"
^XMB(3.9,169,2,3124,0)="DMG ; Called by YSCLTEST"
^XMB(3.9,169,2,3125,0)="""RTN"",""YSCLTST3"",12,0)"
^XMB(3.9,169,2,3126,0)=" S YSDEBUG=$P(^YSCL(603.03,1,0),""^"",3)"
^XMB(3.9,169,2,3127,0)="""RTN"",""YSCLTST3"",13,0)"
^XMB(3.9,169,2,3128,0)=" K ^TMP($J),^TMP(""YSCL"",$J),^TMP(""YSCLL"",$J) S YSCLLN=0,YSCLNO=20,DFN=0,YSCLIEN=0"
^XMB(3.9,169,2,3129,0)="""RTN"",""YSCLTST3"",14,0)"
^XMB(3.9,169,2,3130,0)=" F  K YSCLA S YSCLIEN=$O(^YSCL(603.01,YSCLIEN)) Q:'YSCLIEN  S DFN=$P($G(^YSCL(603.01,YSCLIEN,0)),""^"",2) S $P(YSSTOP,"","",8)=8 Q:$$S^%ZTLOAD  D:DFN"
^XMB(3.9,169,2,3131,0)="""RTN"",""YSCLTST3"",15,0)"
^XMB(3.9,169,2,3132,0)="  . I $D(^DPT(DFN,0)),$D(^YSCL(603.01,YSCLIEN,0)) S YSCLC=$P($G(^YSCL(603.01,YSCLIEN,0)),""^"",1) D GET"
^XMB(3.9,169,2,3133,0)="""RTN"",""YSCLTST3"",16,0)"
^XMB(3.9,169,2,3134,0)=" D TRANSMIT:YSCLLN G END"
^XMB(3.9,169,2,3135,0)="""RTN"",""YSCLTST3"",17,0)"
^XMB(3.9,169,2,3136,0)=" ;"
^XMB(3.9,169,2,3137,0)="""RTN"",""YSCLTST3"",18,0)"
^XMB(3.9,169,2,3138,0)="GET ;"
^XMB(3.9,169,2,3139,0)="""RTN"",""YSCLTST3"",19,0)"
^XMB(3.9,169,2,3140,0)=" S $P(YSSTOP,"","",9)=9 Q:$$S^%ZTLOAD"
^XMB(3.9,169,2,3141,0)="""RTN"",""YSCLTST3"",20,0)"
^XMB(3.9,169,2,3142,0)=" Q:'$D(^PS(55,DFN,""SAND""))  ;Don't try to transmit if no pharmacy record"
^XMB(3.9,169,2,3143,0)="""RTN"",""YSCLTST3"",21,0)"
^XMB(3.9,169,2,3144,0)=" Q:$P(^PS(55,DFN,""SAND""),""^"",4)  ;Don't retransmit demographics."
^XMB(3.9,169,2,3145,0)="""RTN"",""YSCLTST3"",22,0)"
^XMB(3.9,169,2,3146,0)=" Q:$D(^TMP(""YSCLL"",$J,DFN))"
^XMB(3.9,169,2,3147,0)="""RTN"",""YSCLTST3"",23,0)"
^XMB(3.9,169,2,3148,0)=" S ^TMP(""YSCLL"",$J,DFN)=1"
^XMB(3.9,169,2,3149,0)="""RTN"",""YSCLTST3"",24,0)"
^XMB(3.9,169,2,3150,0)=" S YSCLP=+$P($G(^PS(55,DFN,""SAND"")),""^"",5),YSCLDEA=$P($G(^VA(200,YSCLP,""PS"")),""^"",2),YSCLP=$P($G(^VA(200,YSCLP,0)),""^"")"
^XMB(3.9,169,2,3151,0)="""RTN"",""YSCLTST3"",25,0)"
^XMB(3.9,169,2,3152,0)=" D DEM^VADPT,ADD^VADPT S YSCL=YSCLC_""^""_$E($P(VADM(1),"","",2))_$E(VADM(1))_""^""_$P(VADM(3),""^"")_""^""_$P(VADM(2),""^"")_""^""_$P(VADM(5),""^"")_""^""_VAPA(6)_""^""_DT"
^XMB(3.9,169,2,3153,0)="""RTN"",""YSCLTST3"",26,0)"
^XMB(3.9,169,2,3154,0)=" D"
^XMB(3.9,169,2,3155,0)="""RTN"",""YSCLTST3"",27,0)"
^XMB(3.9,169,2,3156,0)="  . S YSRACE=""*"""
^XMB(3.9,169,2,3157,0)="""RTN"",""YSCLTST3"",28,0)"
^XMB(3.9,169,2,3158,0)="  . S YSRC=0 F  S YSRC=$O(VADM(11,YSRC)) Q:'YSRC  S YSRACE=YSRACE_+VADM(11,YSRC)_""-""_+VADM(11,YSRC,1)_"","""
^XMB(3.9,169,2,3159,0)="""RTN"",""YSCLTST3"",29,0)"
^XMB(3.9,169,2,3160,0)="  . S YSRACE=YSRACE_""~"""
^XMB(3.9,169,2,3161,0)="""RTN"",""YSCLTST3"",30,0)"
^XMB(3.9,169,2,3162,0)="  . S YSRC=0 F  S YSRC=$O(VADM(12,YSRC)) Q:'YSRC  S YSRACE=YSRACE_+VADM(12,YSRC)_""-""_+VADM(12,YSRC,1)_"","""
^XMB(3.9,169,2,3163,0)="""RTN"",""YSCLTST3"",31,0)"
^XMB(3.9,169,2,3164,0)=" S YSCL=YSCL_""^""_YSRACE_""^""_YSCLP_""^""_YSCLDEA"
^XMB(3.9,169,2,3165,0)="""RTN"",""YSCLTST3"",32,0)"
^XMB(3.9,169,2,3166,0)=" S YSCLGL=$S($D(^PS(59)):""^PS"",1:""^DIC"")"
^XMB(3.9,169,2,3167,0)="""RTN"",""YSCLTST3"",33,0)"
^XMB(3.9,169,2,3168,0)=" ;YSCLGL is used to indirectly hold the global reference for file 59. This is necessary due to changes in the file location. The $select may be expanded to cover future moves. DBIA 273-B"
^XMB(3.9,169,2,3169,0)="""RTN"",""YSCLTST3"",34,0)"
^XMB(3.9,169,2,3170,0)=" F YSCLJ=0:0 S YSCLJ=$O(@YSCLGL@(59,YSCLJ)) Q:'YSCLJ  I $D(^(YSCLJ,""SAND"")) S YSCLJ=$P(^(0),""^"",5) Q"
^XMB(3.9,169,2,3171,0)="""RTN"",""YSCLTST3"",35,0)"
^XMB(3.9,169,2,3172,0)=" S YSCL=YSCL_""^""_YSCLJ"
^XMB(3.9,169,2,3173,0)="""RTN"",""YSCLTST3"",36,0)"
^XMB(3.9,169,2,3174,0)=" ;registration number^initials^dob^ssn^sex^zip^today^race^physician^dea^zip code (hosp)"
^XMB(3.9,169,2,3175,0)="""RTN"",""YSCLTST3"",37,0)"
^XMB(3.9,169,2,3176,0)=" S YSCLLN=YSCLLN+1,^TMP($J,YSCLLN,0)=YSCL"
^XMB(3.9,169,2,3177,0)="""RTN"",""YSCLTST3"",38,0)"
^XMB(3.9,169,2,3178,0)=" I VADM(5)=""""!(VAPA(6)="""")!('VADM(11))!('VADM(12)) D  ;RLM RACETEST"
^XMB(3.9,169,2,3179,0)="""RTN"",""YSCLTST3"",39,0)"
^XMB(3.9,169,2,3180,0)="  . S ^TMP(""YSCL"",$J,YSCLNO,0)=$P(VADM(2),""^"",1)_""   ""_VADM(1)"
^XMB(3.9,169,2,3181,0)="""RTN"",""YSCLTST3"",40,0)"
^XMB(3.9,169,2,3182,0)="  . S:VADM(5)="""" ^TMP(""YSCL"",$J,YSCLNO,0)=^TMP(""YSCL"",$J,YSCLNO,0)_"" (SEX)"""
^XMB(3.9,169,2,3183,0)="""RTN"",""YSCLTST3"",41,0)"
^XMB(3.9,169,2,3184,0)="  . S:VAPA(6)="""" ^TMP(""YSCL"",$J,YSCLNO,0)=^TMP(""YSCL"",$J,YSCLNO,0)_"" (ZIP)"""
^XMB(3.9,169,2,3185,0)="""RTN"",""YSCLTST3"",42,0)"
^XMB(3.9,169,2,3186,0)="  . S:'VADM(12) ^TMP(""YSCL"",$J,YSCLNO,0)=^TMP(""YSCL"",$J,YSCLNO,0)_"" (RACE, NEW FORMAT)"""
^XMB(3.9,169,2,3187,0)="""RTN"",""YSCLTST3"",43,0)"
^XMB(3.9,169,2,3188,0)="  . S:'VADM(11) ^TMP(""YSCL"",$J,YSCLNO,0)=^TMP(""YSCL"",$J,YSCLNO,0)_"" (ETHNICITY)"""
^XMB(3.9,169,2,3189,0)="""RTN"",""YSCLTST3"",44,0)"
^XMB(3.9,169,2,3190,0)="  . S YSCLNO=YSCLNO+1"
^XMB(3.9,169,2,3191,0)="""RTN"",""YSCLTST3"",45,0)"
^XMB(3.9,169,2,3192,0)="  . S ^TMP(""YSCLL"",$J,DFN)=0 ; leave unmarked pending demographic data"
^XMB(3.9,169,2,3193,0)="""RTN"",""YSCLTST3"",46,0)"
^XMB(3.9,169,2,3194,0)="  . I ('VADM(11))!('VADM(12)) D"
^XMB(3.9,169,2,3195,0)="""RTN"",""YSCLTST3"",47,0)"
^XMB(3.9,169,2,3196,0)="  . . S ^TMP(""YSCL"",$J,YSCLNO,0)=""NOTE: Race and Ethnicity may be entered if permission is obtained in the informed consent"",YSCLNO=YSCLNO+1"
^XMB(3.9,169,2,3197,0)="""RTN"",""YSCLTST3"",48,0)"
^XMB(3.9,169,2,3198,0)="  . . S ^TMP(""YSCL"",$J,YSCLNO,0)=""document. See VHA Directive 99-035."",YSCLNO=YSCLNO+1"
^XMB(3.9,169,2,3199,0)="""RTN"",""YSCLTST3"",49,0)"
^XMB(3.9,169,2,3200,0)=" ;"
^XMB(3.9,169,2,3201,0)="""RTN"",""YSCLTST3"",50,0)"
^XMB(3.9,169,2,3202,0)=" Q"
^XMB(3.9,169,2,3203,0)="""RTN"",""YSCLTST3"",51,0)"
^XMB(3.9,169,2,3204,0)=" ;"
^XMB(3.9,169,2,3205,0)="""RTN"",""YSCLTST3"",52,0)"
^XMB(3.9,169,2,3206,0)="TRANSMIT ; remote and local messages"
^XMB(3.9,169,2,3207,0)="""RTN"",""YSCLTST3"",53,0)"
^XMB(3.9,169,2,3208,0)=" S $P(YSSTOP,"","",10)=10 Q:$$S^%ZTLOAD"
^XMB(3.9,169,2,3209,0)="""RTN"",""YSCLTST3"",54,0)"
^XMB(3.9,169,2,3210,0)=" S XMY(""S.RUCLDEM@FO-HINES.MED.VA.GOV"")="""""
^XMB(3.9,169,2,3211,0)="""RTN"",""YSCLTST3"",55,0)"
^XMB(3.9,169,2,3212,0)=" I YSDEBUG K XMY S XMY(""G.CLOZAPINE DEBUG@FO-DALLAS.MED.VA.GOV"")="""",XMY(""G.RUCLDEM@FO-DALLAS.MED.VA.GOV"")="""""
^XMB(3.9,169,2,3213,0)="""RTN"",""YSCLTST3"",56,0)"
^XMB(3.9,169,2,3214,0)=" S XMDUZ=""CLOZAPINE MONITOR"",XMTEXT=""^TMP($J,"",XMSUB=$S(YSDEBUG:""DEBUG "",1:"""")_""Clozapine demographics"" D ^XMD S $P(^YSCL(603.03,1,0),""^"",6)=$$NOW^XLFDT"
^XMB(3.9,169,2,3215,0)="""RTN"",""YSCLTST3"",57,0)"
^XMB(3.9,169,2,3216,0)=" K XMY S XMY(""G.PSOCLOZ"")="""""
^XMB(3.9,169,2,3217,0)="""RTN"",""YSCLTST3"",58,0)"
^XMB(3.9,169,2,3218,0)=" I YSDEBUG K XMY S XMY(""G.CLOZAPINE DEBUG@FO-DALLAS.MED.VA.GOV"")="""""
^XMB(3.9,169,2,3219,0)="""RTN"",""YSCLTST3"",59,0)"
^XMB(3.9,169,2,3220,0)=" S XMSUB=$S(YSDEBUG:""DEBUG "",1:"""")_""Clozapine demographics"",^TMP(""YSCL"",$J,2,0)="" "",XMDUZ=""CLOZAPINE MONITOR"",^TMP(""YSCL"",$J,1,0)=""Clozapine demographic data was transmitted, ""_YSCLLN_"" records were sent."",XMTEXT=""^TMP(""""YSCL"""",$J,"""
^XMB(3.9,169,2,3221,0)="""RTN"",""YSCLTST3"",60,0)"
^XMB(3.9,169,2,3222,0)=" I $O(^TMP(""YSCL"",$J,10)) S ^TMP(""YSCL"",$J,3,0)=""For the following patients, one or more of the required data"",^TMP(""YSCL"",$J,4,0)=""elements (race, sex, ZIP code) were missing."",^TMP(""YSCL"",$J,5,0)="" """
^XMB(3.9,169,2,3223,0)="""RTN"",""YSCLTST3"",61,0)"
^XMB(3.9,169,2,3224,0)=" I  S ^TMP(""YSCL"",$J,6,0)=""Please have this information entered."",^TMP(""YSCL"",$J,7,0)=""The available data was transmitted."",^TMP(""YSCL"",$J,8,0)="" """
^XMB(3.9,169,2,3225,0)="""RTN"",""YSCLTST3"",62,0)"
^XMB(3.9,169,2,3226,0)=" D ^XMD"
^XMB(3.9,169,2,3227,0)="""RTN"",""YSCLTST3"",63,0)"
^XMB(3.9,169,2,3228,0)=" ; set transmitted field in 55 from ^TMP(""YSCLL"",$J)"
^XMB(3.9,169,2,3229,0)="""RTN"",""YSCLTST3"",64,0)"
^XMB(3.9,169,2,3230,0)=" F DFN=0:0 S DFN=$O(^TMP(""YSCLL"",$J,DFN)) Q:'DFN  I ^TMP(""YSCLL"",$J,DFN) S $P(^PS(55,DFN,""SAND""),""^"",4)=1"
^XMB(3.9,169,2,3231,0)="""RTN"",""YSCLTST3"",65,0)"
^XMB(3.9,169,2,3232,0)=" Q"
^XMB(3.9,169,2,3233,0)="""RTN"",""YSCLTST3"",66,0)"
^XMB(3.9,169,2,3234,0)=" ;"
^XMB(3.9,169,2,3235,0)="""RTN"",""YSCLTST3"",67,0)"
^XMB(3.9,169,2,3236,0)="FLERR ;"
^XMB(3.9,169,2,3237,0)="""RTN"",""YSCLTST3"",68,0)"
^XMB(3.9,169,2,3238,0)=" K XMY"
^XMB(3.9,169,2,3239,0)="""RTN"",""YSCLTST3"",69,0)"
^XMB(3.9,169,2,3240,0)=" S XMY(""G.CLOZAPINE ROLL-UP@FORUM.VA.GOV"")="""""
^XMB(3.9,169,2,3241,0)="""RTN"",""YSCLTST3"",70,0)"
^XMB(3.9,169,2,3242,0)=" I YSDEBUG K XMY S XMY(""G.CLOZAPINE DEBUG@FO-DALLAS.MED.VA.GOV"")="""""
^XMB(3.9,169,2,3243,0)="""RTN"",""YSCLTST3"",71,0)"
^XMB(3.9,169,2,3244,0)=" S %DT=""T"",X=""NOW"" D ^%DT S YSCLNOW=$P(Y,""."",2)"
^XMB(3.9,169,2,3245,0)="""RTN"",""YSCLTST3"",72,0)"
^XMB(3.9,169,2,3246,0)=" S YSCLSITE=$P($$SITE^VASITE,""^"",2)"
^XMB(3.9,169,2,3247,0)="""RTN"",""YSCLTST3"",73,0)"
^XMB(3.9,169,2,3248,0)=" S XMSUB=$S(YSDEBUG:""DEBUG "",1:"""")_""Clozapine lab data error at ""_YSCLSITE_"" on ""_DT_"" at ""_YSCLNOW,^TMP(""YSCL"",$J,1,0)="" """
^XMB(3.9,169,2,3249,0)="""RTN"",""YSCLTST3"",74,0)"
^XMB(3.9,169,2,3250,0)=" S ^TMP(""YSCL"",$J,2,0)=""### Clozapine data error at ""_YSCLSITE_"" on ""_DT_"" +++"""
^XMB(3.9,169,2,3251,0)="""RTN"",""YSCLTST3"",75,0)"
^XMB(3.9,169,2,3252,0)=" S ^TMP(""YSCL"",$J,3,0)="" Clozapine Lab Test file not properly defined."""
^XMB(3.9,169,2,3253,0)="""RTN"",""YSCLTST3"",76,0)"
^XMB(3.9,169,2,3254,0)=" S ^TMP(""YSCL"",$J,4,0)="" Data cannot be transmitted!"""
^XMB(3.9,169,2,3255,0)="""RTN"",""YSCLTST3"",77,0)"
^XMB(3.9,169,2,3256,0)=" S XMTEXT=""^TMP(""""YSCL"""",$J,"",XMDUZ=""Clozapine MONITOR"" D ^XMD"
^XMB(3.9,169,2,3257,0)="""RTN"",""YSCLTST3"",78,0)"
^XMB(3.9,169,2,3258,0)=" G END^YSCLTST2"
^XMB(3.9,169,2,3259,0)="""RTN"",""YSCLTST3"",79,0)"
^XMB(3.9,169,2,3260,0)=" Q"
^XMB(3.9,169,2,3261,0)="""RTN"",""YSCLTST3"",80,0)"
^XMB(3.9,169,2,3262,0)="TLIST ;"
^XMB(3.9,169,2,3263,0)="""RTN"",""YSCLTST3"",81,0)"
^XMB(3.9,169,2,3264,0)=" I '$D(^YSCL(603.04)) W !,""Patch YS*5.01*90 not properly installed.  Contact IRM"" S DIR(0)=""E"" D ^DIR Q"
^XMB(3.9,169,2,3265,0)="""RTN"",""YSCLTST3"",82,0)"
^XMB(3.9,169,2,3266,0)=" W !,""Currently linked Tests:"" I '$O(^YSCL(603.04,1,1,0)) W !,""No tests linked"",!"
^XMB(3.9,169,2,3267,0)="""RTN"",""YSCLTST3"",83,0)"
^XMB(3.9,169,2,3268,0)=" S YSCLA=0"
^XMB(3.9,169,2,3269,0)="""RTN"",""YSCLTST3"",84,0)"
^XMB(3.9,169,2,3270,0)=" F  S YSCLA=$O(^YSCL(603.04,1,1,YSCLA)) Q:'YSCLA  S YSCLB=^YSCL(603.04,1,1,YSCLA,0) D"
^XMB(3.9,169,2,3271,0)="""RTN"",""YSCLTST3"",85,0)"
^XMB(3.9,169,2,3272,0)="  . W !,$P(^LAB(60,$P(YSCLB,""^""),0),""^""),"" represents "" S YSCLB=$P(YSCLB,""^"",2)"
^XMB(3.9,169,2,3273,0)="""RTN"",""YSCLTST3"",86,0)"
^XMB(3.9,169,2,3274,0)="  . W $S(YSCLB=""W"":""WHITE BLOOD COUNT"",YSCLB=""A"":""ABSOLUTE NEUTROPHIL COUNT"",YSCLB=""N"":""NEUTROPHIL PERCENT"",YSCLB=""S"":""SEGS %"",YSCLB=""B"":""BANDS %"",YSCLB=""T"":""BANDS ABSOLUTE"",YSCLB=""C"":""SEGS ABSOLUTE"",1:""Bad Record"")"
^XMB(3.9,169,2,3275,0)="""RTN"",""YSCLTST3"",87,0)"
^XMB(3.9,169,2,3276,0)=" F  K DIR S DIR(0)=""PA^60:EMZ"",DIR(""A"")=""Enter the name of the test for Clozapine: "" W ! D ^DIR Q:Y=""^""!($D(DTOUT))!($D(DUOUT))  S YSCLTST=+Y D  Q:Y=""^""!($D(DTOUT))!($D(DUOUT))"
^XMB(3.9,169,2,3277,0)="""RTN"",""YSCLTST3"",88,0)"
^XMB(3.9,169,2,3278,0)="  . I $D(^YSCL(603.04,1,1,""B"",YSCLTST)) G TEXIST"
^XMB(3.9,169,2,3279,0)="""RTN"",""YSCLTST3"",89,0)"
^XMB(3.9,169,2,3280,0)="  . K DIR S DIR(0)=""SA^W:WHITE BLOOD COUNT;A:ABSOLUTE NEUTROPHIL COUNT;N:NEUTROPHIL PERCENT;S:SEGS %;B:BANDS %;T:BANDS ABSOLUTE;C:SEGS ABSOLUTE"""
^XMB(3.9,169,2,3281,0)="""RTN"",""YSCLTST3"",90,0)"
^XMB(3.9,169,2,3282,0)="  . S DIR(""A"")=""Enter the type of the test for Clozapine: ""  D ^DIR Q:Y[""^""!($D(DTOUT))!($D(DUOUT))  S YSCLTS1=Y"
^XMB(3.9,169,2,3283,0)="""RTN"",""YSCLTST3"",91,0)"
^XMB(3.9,169,2,3284,0)="  . K DIR S DIR(0)=""SA^0:uL;1:K/uL;2:Percent"""
^XMB(3.9,169,2,3285,0)="""RTN"",""YSCLTST3"",92,0)"
^XMB(3.9,169,2,3286,0)="  . S DIR(""A"")=""Enter the reporting method of the test for Clozapine: ""  D ^DIR Q:Y[""^""!($D(DTOUT))!($D(DUOUT))  S YSCLTS2=Y"
^XMB(3.9,169,2,3287,0)="""RTN"",""YSCLTST3"",93,0)"
^XMB(3.9,169,2,3288,0)="  . K YSCLERR"
^XMB(3.9,169,2,3289,0)="""RTN"",""YSCLTST3"",94,0)"
^XMB(3.9,169,2,3290,0)="  . D VAL^DIE(603.41,""+1,1,"",.01,""F"",""`""_YSCLTST,.YSCLRES,""FDA"",""YSCLERR"")"
^XMB(3.9,169,2,3291,0)="""RTN"",""YSCLTST3"",95,0)"
^XMB(3.9,169,2,3292,0)="  . I $D(YSCLERR) W !,""There was a problem with the data, please re-enter it"" Q"
^XMB(3.9,169,2,3293,0)="""RTN"",""YSCLTST3"",96,0)"
^XMB(3.9,169,2,3294,0)="  . D VAL^DIE(603.41,""+1,1,"",1,""F"",YSCLTS1,.YSCLRES,""FDA"",""YSCLERR"")"
^XMB(3.9,169,2,3295,0)="""RTN"",""YSCLTST3"",97,0)"
^XMB(3.9,169,2,3296,0)="  . I $D(YSCLERR) W !,""There was a problem with the data, please re-enter it"" Q"
^XMB(3.9,169,2,3297,0)="""RTN"",""YSCLTST3"",98,0)"
^XMB(3.9,169,2,3298,0)="  . D VAL^DIE(603.41,""+1,1,"",2,""F"",YSCLTS2,.YSCLRES,""FDA"",""YSCLERR"")"
^XMB(3.9,169,2,3299,0)="""RTN"",""YSCLTST3"",99,0)"
^XMB(3.9,169,2,3300,0)="  . I $D(YSCLERR) W !,""There was a problem with the data, please re-enter it"" Q"
^XMB(3.9,169,2,3301,0)="""RTN"",""YSCLTST3"",100,0)"
^XMB(3.9,169,2,3302,0)="  . D UPDATE^DIE(,""FDA"",,""ERROR"")"
^XMB(3.9,169,2,3303,0)="""RTN"",""YSCLTST3"",101,0)"
^XMB(3.9,169,2,3304,0)="  . I $D(YSCLERR) W !,""There was a problem with the data, please re-enter it"" Q"
^XMB(3.9,169,2,3305,0)="""RTN"",""YSCLTST3"",102,0)"
^XMB(3.9,169,2,3306,0)=" Q"
^XMB(3.9,169,2,3307,0)="""RTN"",""YSCLTST3"",103,0)"
^XMB(3.9,169,2,3308,0)="TEXIST ;"
^XMB(3.9,169,2,3309,0)="""RTN"",""YSCLTST3"",104,0)"
^XMB(3.9,169,2,3310,0)=" W !,""This entry already exists.  Do you wish to delete it?"" K DIR S DIR(0)=""Y"" D ^DIR Q:'Y!($D(DTOUT))!($D(DUOUT))"
^XMB(3.9,169,2,3311,0)="""RTN"",""YSCLTST3"",105,0)"
^XMB(3.9,169,2,3312,0)=" S DA(1)=1,DA=$O(^YSCL(603.04,1,1,""B"",YSCLTST,"""")),DIE=""^YSCL(603.04,1,1,"",DR="".01////@"" D ^DIE W !,""Deleted"" S Y="""" Q"
^XMB(3.9,169,2,3313,0)="""RTN"",""YSCLTST3"",106,0)"
^XMB(3.9,169,2,3314,0)=" Q"
^XMB(3.9,169,2,3315,0)="""RTN"",""YSCLTST3"",107,0)"
^XMB(3.9,169,2,3316,0)="END K %,C,D,DA,DFN,DISYS,DR,I,R,VADM,VAPA,VAERR,Y,YSCL,YSCL1,YSCL2,YSCLC,YSCLDEA,YSCLJ,YSCLLN,YSCLNAME,YSCLNO,YSCLP,^TMP($J),^TMP(""YSCL"",$J),^TMP(""YSCLL"",$J) Q"
^XMB(3.9,169,2,3317,0)="""RTN"",""YSCLTST3"",108,0)"
^XMB(3.9,169,2,3318,0)=" Q"
^XMB(3.9,169,2,3319,0)="""RTN"",""YSCLTST3"",109,0)"
^XMB(3.9,169,2,3320,0)="END1 ;"
^XMB(3.9,169,2,3321,0)="""RTN"",""YSCLTST3"",110,0)"
^XMB(3.9,169,2,3322,0)=" K ^TMP($J),^TMP(""YSCL"",$J)"
^XMB(3.9,169,2,3323,0)="""RTN"",""YSCLTST3"",111,0)"
^XMB(3.9,169,2,3324,0)=" K %,%DT,%H,%T,AGE,C,CNT,D,DA,DFN,DIE,DIK,DIR,DIROUT,DIRUT,DISYS,DOB,DR"
^XMB(3.9,169,2,3325,0)="""RTN"",""YSCLTST3"",112,0)"
^XMB(3.9,169,2,3326,0)=" K DRG,DTOUT,DUOUT,I,IOF,J,K,LAB,LABT,PNM,POP,R,RESULTS1,SEX,SSN,VADM,VAERR,VAPA"
^XMB(3.9,169,2,3327,0)="""RTN"",""YSCLTST3"",113,0)"
^XMB(3.9,169,2,3328,0)=" K X,X1,X2,XMDUZ,XMSUB,XMTEXT,XMY,XMZ,Y,YSACT,YSCL,YSCL1,YSCL2,YSCL28,YSCLA,YSCLA1,YSCLAB"
^XMB(3.9,169,2,3329,0)="""RTN"",""YSCLTST3"",114,0)"
^XMB(3.9,169,2,3330,0)=" K YSCLAB1,YSCLAB2,YSCLAB3,YSCLAB4,YSCLC,YSCLD,YSCLD0,YSCLD1,YSCLDAT1"
^XMB(3.9,169,2,3331,0)="""RTN"",""YSCLTST3"",115,0)"
^XMB(3.9,169,2,3332,0)=" K YSCLDATA,YSCLDEA,YSCLDEMO,YSCLED,YSCLF,YSCLFF,YSCLFRQ,YSCLGL,YSCLGRN,YSCLI"
^XMB(3.9,169,2,3333,0)="""RTN"",""YSCLTST3"",116,0)"
^XMB(3.9,169,2,3334,0)=" K YSCLID,YSCLIED,YSCLIEN,YSCLIF,YSCLJ,YSCLLAB,YSCLLD,YSCLLDFN,YSCLLDN"
^XMB(3.9,169,2,3335,0)="""RTN"",""YSCLTST3"",117,0)"
^XMB(3.9,169,2,3336,0)=" K YSCLLDT,YSCLLK,YSCLLLN,YSCLLN,YSCLLO,YSCLM180,YSCLM28,YSCLM56,YSCLM7,YSCLMTCH,YSCLNAME"
^XMB(3.9,169,2,3337,0)="""RTN"",""YSCLTST3"",118,0)"
^XMB(3.9,169,2,3338,0)=" K YSCLNO,YSCLNOW,YSCLNST1,YSCLNSTE,YSCLOVR,YSCLP,YSCLPHY,YSCLR,YSCLRES,YSCLRET,YSCLRWBC,YSCLRX"
^XMB(3.9,169,2,3339,0)="""RTN"",""YSCLTST3"",119,0)"
^XMB(3.9,169,2,3340,0)=" K YSCLRX2,YSCLSAND,YSCLSB1,YSCLSD,YSCLSGS,YSCLSITE,YSCLSN,YSCLSP,YSCLT,YSCLTA,YSCLTDT,YSCLTEST"
^XMB(3.9,169,2,3341,0)="""RTN"",""YSCLTST3"",120,0)"
^XMB(3.9,169,2,3342,0)=" K YSCLTL,YSCLTPT,YSCLTLS,YSCLTLS1,YSCLTS1,YSCLTST,YSCLTYPE,YSCLWBC,YSCLWBCC"
^XMB(3.9,169,2,3343,0)="""RTN"",""YSCLTST3"",121,0)"
^XMB(3.9,169,2,3344,0)=" K YSCLWBCT,YSCLX,YSCLZ2,YSDEBUG,YSOFF,YSRACE,YSRC,YSSTOP,YSTEXT,ZTDESC"
^XMB(3.9,169,2,3345,0)="""RTN"",""YSCLTST3"",122,0)"
^XMB(3.9,169,2,3346,0)=" K ZTDTH,ZTIO,ZTREQ,ZTRTN,ZTSAVE,ZTSTOP"
^XMB(3.9,169,2,3347,0)="""RTN"",""YSCLTST3"",123,0)"
^XMB(3.9,169,2,3348,0)=" Q"
^XMB(3.9,169,2,3349,0)="""RTN"",""YSCLTST3"",124,0)"
^XMB(3.9,169,2,3350,0)="ZEOR ;YSCLTST3"
^XMB(3.9,169,2,3351,0)="""VER"")"
^XMB(3.9,169,2,3352,0)="8.0^22.0"
^XMB(3.9,169,2,3353,0)="""^DD"",603.01,603.01,0)"
^XMB(3.9,169,2,3354,0)="FIELD^^3^4"
^XMB(3.9,169,2,3355,0)="""^DD"",603.01,603.01,0,""DT"")"
^XMB(3.9,169,2,3356,0)="3060307"
^XMB(3.9,169,2,3357,0)="""^DD"",603.01,603.01,0,""IX"",""B"",603.01,.01)"
^XMB(3.9,169,2,3358,0)=""
^XMB(3.9,169,2,3359,0)="""^DD"",603.01,603.01,0,""IX"",""C"",603.01,1)"
^XMB(3.9,169,2,3360,0)=""
^XMB(3.9,169,2,3361,0)="""^DD"",603.01,603.01,0,""NM"",""CLOZAPINE PATIENT LIST"")"
^XMB(3.9,169,2,3362,0)=""
^XMB(3.9,169,2,3363,0)="""^DD"",603.01,603.01,0,""VRPK"")"
^XMB(3.9,169,2,3364,0)="YS"
^XMB(3.9,169,2,3365,0)="""^DD"",603.01,603.01,.01,0)"
^XMB(3.9,169,2,3366,0)="CLOZAPINE REGISTRATION NUMBER^RF^^0;1^K:$L(X)>7!($L(X)<7) X"
^XMB(3.9,169,2,3367,0)="""^DD"",603.01,603.01,.01,1,0)"
^XMB(3.9,169,2,3368,0)="^.1"
^XMB(3.9,169,2,3369,0)="""^DD"",603.01,603.01,.01,1,1,0)"
^XMB(3.9,169,2,3370,0)="603.01^B"
^XMB(3.9,169,2,3371,0)="""^DD"",603.01,603.01,.01,1,1,1)"
^XMB(3.9,169,2,3372,0)="S ^YSCL(603.01,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,169,2,3373,0)="""^DD"",603.01,603.01,.01,1,1,2)"
^XMB(3.9,169,2,3374,0)="K ^YSCL(603.01,""B"",$E(X,1,30),DA)"
^XMB(3.9,169,2,3375,0)="""^DD"",603.01,603.01,.01,3)"
^XMB(3.9,169,2,3376,0)="Answer must be 7 characters in length."
^XMB(3.9,169,2,3377,0)="""^DD"",603.01,603.01,.01,21,0)"
^XMB(3.9,169,2,3378,0)="^^3^3^3060315^"
^XMB(3.9,169,2,3379,0)="""^DD"",603.01,603.01,.01,21,1,0)"
^XMB(3.9,169,2,3380,0)="The Clozapine registration number is assigned by the manufacturer.  It is "
^XMB(3.9,169,2,3381,0)="""^DD"",603.01,603.01,.01,21,2,0)"
^XMB(3.9,169,2,3382,0)="maintained and authorized by the NCCC in Dallas. Refer all questions "
^XMB(3.9,169,2,3383,0)="""^DD"",603.01,603.01,.01,21,3,0)"
^XMB(3.9,169,2,3384,0)="regarding this number to the NCCC."
^XMB(3.9,169,2,3385,0)="""^DD"",603.01,603.01,.01,""DT"")"
^XMB(3.9,169,2,3386,0)="3060315"
^XMB(3.9,169,2,3387,0)="""^DD"",603.01,603.01,1,0)"
^XMB(3.9,169,2,3388,0)="CLOZAPINE PATIENT^RP2'^DPT(^0;2^Q"
^XMB(3.9,169,2,3389,0)="""^DD"",603.01,603.01,1,1,0)"
^XMB(3.9,169,2,3390,0)="^.1"
^XMB(3.9,169,2,3391,0)="""^DD"",603.01,603.01,1,1,1,0)"
^XMB(3.9,169,2,3392,0)="603.01^C"
^XMB(3.9,169,2,3393,0)="""^DD"",603.01,603.01,1,1,1,1)"
^XMB(3.9,169,2,3394,0)="S ^YSCL(603.01,""C"",$E(X,1,30),DA)="""""
^XMB(3.9,169,2,3395,0)="""^DD"",603.01,603.01,1,1,1,2)"
^XMB(3.9,169,2,3396,0)="K ^YSCL(603.01,""C"",$E(X,1,30),DA)"
^XMB(3.9,169,2,3397,0)="""^DD"",603.01,603.01,1,1,1,""DT"")"
^XMB(3.9,169,2,3398,0)="2940412"
^XMB(3.9,169,2,3399,0)="""^DD"",603.01,603.01,1,21,0)"
^XMB(3.9,169,2,3400,0)="^^2^2^3060315^"
^XMB(3.9,169,2,3401,0)="""^DD"",603.01,603.01,1,21,1,0)"
^XMB(3.9,169,2,3402,0)="This is a pointer to the Patient (#2) file.  The patient must be "
^XMB(3.9,169,2,3403,0)="""^DD"",603.01,603.01,1,21,2,0)"
^XMB(3.9,169,2,3404,0)="authorized by the NCCC in Dallas before treatment is started."
^XMB(3.9,169,2,3405,0)="""^DD"",603.01,603.01,1,""DT"")"
^XMB(3.9,169,2,3406,0)="3060315"
^XMB(3.9,169,2,3407,0)="""^DD"",603.01,603.01,2,0)"
^XMB(3.9,169,2,3408,0)="DISPENSE FREQUENCY^S^W:WEEKLY;B:BI-WEEKLY;M:MONTHLY;^0;3^Q"
^XMB(3.9,169,2,3409,0)="""^DD"",603.01,603.01,2,3)"
^XMB(3.9,169,2,3410,0)="Enter ""M"" if patient is authorized for Monthly, ""B"" if patient is authorized for Bi-Weekly Clozapine prescription, ""W"" if prescriptions must be written weekly."
^XMB(3.9,169,2,3411,0)="""^DD"",603.01,603.01,2,21,0)"
^XMB(3.9,169,2,3412,0)="^.001^2^2^3050615^^^^"
^XMB(3.9,169,2,3413,0)="""^DD"",603.01,603.01,2,21,1,0)"
^XMB(3.9,169,2,3414,0)="This field indicates whether a patient is authorized for a weekly or"
^XMB(3.9,169,2,3415,0)="""^DD"",603.01,603.01,2,21,2,0)"
^XMB(3.9,169,2,3416,0)="biweekly Clozapine dosage."
^XMB(3.9,169,2,3417,0)="""^DD"",603.01,603.01,2,""DT"")"
^XMB(3.9,169,2,3418,0)="3050615"
^XMB(3.9,169,2,3419,0)="""^DD"",603.01,603.01,3,0)"
^XMB(3.9,169,2,3420,0)="OVERRIDE DATE^D^^0;4^S %DT=""E"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,169,2,3421,0)="""^DD"",603.01,603.01,3,3)"
^XMB(3.9,169,2,3422,0)="Enter the date to allow an over-ride."
^XMB(3.9,169,2,3423,0)="""^DD"",603.01,603.01,3,21,0)"
^XMB(3.9,169,2,3424,0)="^^1^1^3060307^"
^XMB(3.9,169,2,3425,0)="""^DD"",603.01,603.01,3,21,1,0)"
^XMB(3.9,169,2,3426,0)="This field contains the specific date when an override will be allowed for this patient.  This date should only be manipulated by the NCCC."
^XMB(3.9,169,2,3427,0)="""^DD"",603.01,603.01,3,""DT"")"
^XMB(3.9,169,2,3428,0)="3060307"
^XMB(3.9,169,2,3429,0)="""^DD"",603.03,603.03,0)"
^XMB(3.9,169,2,3430,0)="FIELD^^7^7"
^XMB(3.9,169,2,3431,0)="""^DD"",603.03,603.03,0,""DDA"")"
^XMB(3.9,169,2,3432,0)="N"
^XMB(3.9,169,2,3433,0)="""^DD"",603.03,603.03,0,""DT"")"
^XMB(3.9,169,2,3434,0)="3050620"
^XMB(3.9,169,2,3435,0)="""^DD"",603.03,603.03,0,""IX"",""B"",603.03,.01)"
^XMB(3.9,169,2,3436,0)=""
^XMB(3.9,169,2,3437,0)="""^DD"",603.03,603.03,0,""NM"",""CLOZAPINE PARAMETERS"")"
^XMB(3.9,169,2,3438,0)=""
^XMB(3.9,169,2,3439,0)="""^DD"",603.03,603.03,0,""VRPK"")"
^XMB(3.9,169,2,3440,0)="YS"
^XMB(3.9,169,2,3441,0)="""^DD"",603.03,603.03,.01,0)"
^XMB(3.9,169,2,3442,0)="NAME^RSX^CLOZAPINE:CLOZAPINE;^0;1^I +$G(DA)'=1 K X W !,""Only one entry may exist."""
^XMB(3.9,169,2,3443,0)="""^DD"",603.03,603.03,.01,1,0)"
^XMB(3.9,169,2,3444,0)="^.1"
^XMB(3.9,169,2,3445,0)="""^DD"",603.03,603.03,.01,1,1,0)"
^XMB(3.9,169,2,3446,0)="603.03^B"
^XMB(3.9,169,2,3447,0)="""^DD"",603.03,603.03,.01,1,1,1)"
^XMB(3.9,169,2,3448,0)="S ^YSCL(603.03,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,169,2,3449,0)="""^DD"",603.03,603.03,.01,1,1,2)"
^XMB(3.9,169,2,3450,0)="K ^YSCL(603.03,""B"",$E(X,1,30),DA)"
^XMB(3.9,169,2,3451,0)="""^DD"",603.03,603.03,.01,3)"
^XMB(3.9,169,2,3452,0)="This field should always equal CLOZAPINE"
^XMB(3.9,169,2,3453,0)="""^DD"",603.03,603.03,.01,21,0)"
^XMB(3.9,169,2,3454,0)="^.001^2^2^3001220^^^"
^XMB(3.9,169,2,3455,0)="""^DD"",603.03,603.03,.01,21,1,0)"
^XMB(3.9,169,2,3456,0)="This file will hold the configuration parameters for the Clozapine"
^XMB(3.9,169,2,3457,0)="""^DD"",603.03,603.03,.01,21,2,0)"
^XMB(3.9,169,2,3458,0)="reporting system."
^XMB(3.9,169,2,3459,0)="""^DD"",603.03,603.03,.01,""DT"")"
^XMB(3.9,169,2,3460,0)="3001115"
^XMB(3.9,169,2,3461,0)="""^DD"",603.03,603.03,2,0)"
^XMB(3.9,169,2,3462,0)="TRANSMISSION DAY^RS^SUNDAY:SUNDAY;MONDAY:MONDAY;TUESDAY:TUESDAY;WEDNESDAY:WEDNESDAY;THURSDAY:THURSDAY;FRIDAY:FRIDAY;SATURDAY:SATURDAY;^0;2^Q"
^XMB(3.9,169,2,3463,0)="""^DD"",603.03,603.03,2,3)"
^XMB(3.9,169,2,3464,0)="Enter the day of the week when transmission should occur."
^XMB(3.9,169,2,3465,0)="""^DD"",603.03,603.03,2,21,0)"
^XMB(3.9,169,2,3466,0)="^^3^3^3010412^"
^XMB(3.9,169,2,3467,0)="""^DD"",603.03,603.03,2,21,1,0)"
^XMB(3.9,169,2,3468,0)="This is the day of the week when the transmission should occur.  Normally"
^XMB(3.9,169,2,3469,0)="""^DD"",603.03,603.03,2,21,2,0)"
^XMB(3.9,169,2,3470,0)="this is set to TUESDAY, but may be changed to accommodate special"
^XMB(3.9,169,2,3471,0)="""^DD"",603.03,603.03,2,21,3,0)"
^XMB(3.9,169,2,3472,0)="circumstances."
^XMB(3.9,169,2,3473,0)="""^DD"",603.03,603.03,2,""DT"")"
^XMB(3.9,169,2,3474,0)="3001115"
^XMB(3.9,169,2,3475,0)="""^DD"",603.03,603.03,3,0)"
^XMB(3.9,169,2,3476,0)="DEBUG MODE^S^0:OFF;1:ON;^0;3^Q"
^XMB(3.9,169,2,3477,0)="""^DD"",603.03,603.03,3,""DT"")"
^XMB(3.9,169,2,3478,0)="3010412"
^XMB(3.9,169,2,3479,0)="""^DD"",603.03,603.03,4,0)"
^XMB(3.9,169,2,3480,0)="TRANSMISSION START^D^^0;4^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,169,2,3481,0)="""^DD"",603.03,603.03,4,3)"
^XMB(3.9,169,2,3482,0)="Enter the date and time that the transmission started."
^XMB(3.9,169,2,3483,0)="""^DD"",603.03,603.03,4,21,0)"
^XMB(3.9,169,2,3484,0)="^.001^1^1^3001218^^"
^XMB(3.9,169,2,3485,0)="""^DD"",603.03,603.03,4,21,1,0)"
^XMB(3.9,169,2,3486,0)="This is the start date and time of the most recent transmission."
^XMB(3.9,169,2,3487,0)="""^DD"",603.03,603.03,4,""DT"")"
^XMB(3.9,169,2,3488,0)="3001115"
^XMB(3.9,169,2,3489,0)="""^DD"",603.03,603.03,5,0)"
^XMB(3.9,169,2,3490,0)="TRANSMISSION END^D^^0;5^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,169,2,3491,0)="""^DD"",603.03,603.03,5,3)"
^XMB(3.9,169,2,3492,0)="Enter the date/time when the transmission completed."
^XMB(3.9,169,2,3493,0)="""^DD"",603.03,603.03,5,21,0)"
^XMB(3.9,169,2,3494,0)="^^1^1^3001218^"
^XMB(3.9,169,2,3495,0)="""^DD"",603.03,603.03,5,21,1,0)"
^XMB(3.9,169,2,3496,0)="This is the date and time when the most recent transmission was completed."
^XMB(3.9,169,2,3497,0)="""^DD"",603.03,603.03,5,""DT"")"
^XMB(3.9,169,2,3498,0)="3001115"
^XMB(3.9,169,2,3499,0)="""^DD"",603.03,603.03,6,0)"
^XMB(3.9,169,2,3500,0)="LAST DEMOGRAPHICS TRANSMISSION^D^^0;6^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^XMB(3.9,169,2,3501,0)="""^DD"",603.03,603.03,6,3)"
^XMB(3.9,169,2,3502,0)="Enter the date and time of the last demographics transmission."
^XMB(3.9,169,2,3503,0)="""^DD"",603.03,603.03,6,21,0)"
^XMB(3.9,169,2,3504,0)="^^2^2^3001218^"
^XMB(3.9,169,2,3505,0)="""^DD"",603.03,603.03,6,21,1,0)"
^XMB(3.9,169,2,3506,0)="This is the date and time when the most recent demographics transmission"
^XMB(3.9,169,2,3507,0)="""^DD"",603.03,603.03,6,21,2,0)"
^XMB(3.9,169,2,3508,0)="was completed."
^XMB(3.9,169,2,3509,0)="""^DD"",603.03,603.03,6,""DT"")"
^XMB(3.9,169,2,3510,0)="3001115"
^XMB(3.9,169,2,3511,0)="""^DD"",603.03,603.03,7,0)"
^XMB(3.9,169,2,3512,0)="LOCK DOWN^RS^1:YES;0:NO;^1;1^Q"
^XMB(3.9,169,2,3513,0)="""^DD"",603.03,603.03,7,3)"
^XMB(3.9,169,2,3514,0)="Used to determine if site is allowed to dispense."
^XMB(3.9,169,2,3515,0)="""^DD"",603.03,603.03,7,""DT"")"
^XMB(3.9,169,2,3516,0)="3050620"
^XMB(3.9,169,2,3517,0)="""^DD"",603.04,603.04,0)"
^XMB(3.9,169,2,3518,0)="FIELD^^1^2"
^XMB(3.9,169,2,3519,0)="""^DD"",603.04,603.04,0,""DDA"")"
^XMB(3.9,169,2,3520,0)="N"
^XMB(3.9,169,2,3521,0)="""^DD"",603.04,603.04,0,""DT"")"
^XMB(3.9,169,2,3522,0)="3060628"
^XMB(3.9,169,2,3523,0)="""^DD"",603.04,603.04,0,""IX"",""B"",603.04,.01)"
^XMB(3.9,169,2,3524,0)=""
^XMB(3.9,169,2,3525,0)="""^DD"",603.04,603.04,0,""NM"",""CLOZAPINE TESTS"")"
^XMB(3.9,169,2,3526,0)=""
^XMB(3.9,169,2,3527,0)="""^DD"",603.04,603.04,.01,0)"
^XMB(3.9,169,2,3528,0)="NAME^RFXI^^0;1^K X W !,""ONLY ONE ENTRY IS ALLOWED"""
^XMB(3.9,169,2,3529,0)="""^DD"",603.04,603.04,.01,1,0)"
^XMB(3.9,169,2,3530,0)="^.1"
^XMB(3.9,169,2,3531,0)="""^DD"",603.04,603.04,.01,1,1,0)"
^XMB(3.9,169,2,3532,0)="603.04^B"
^XMB(3.9,169,2,3533,0)="""^DD"",603.04,603.04,.01,1,1,1)"
^XMB(3.9,169,2,3534,0)="S ^YSCL(603.04,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,169,2,3535,0)="""^DD"",603.04,603.04,.01,1,1,2)"
^XMB(3.9,169,2,3536,0)="K ^YSCL(603.04,""B"",$E(X,1,30),DA)"
^XMB(3.9,169,2,3537,0)="""^DD"",603.04,603.04,.01,3)"
^XMB(3.9,169,2,3538,0)="NAME MUST BE CLOZAPINE. ONLY ONE ENTRY IS ALLOWED."
^XMB(3.9,169,2,3539,0)="""^DD"",603.04,603.04,.01,21,0)"
^XMB(3.9,169,2,3540,0)="^^1^1^3060314^^"
^XMB(3.9,169,2,3541,0)="""^DD"",603.04,603.04,.01,21,1,0)"
^XMB(3.9,169,2,3542,0)="This field should contain the word CLOZAPINE."
^XMB(3.9,169,2,3543,0)="""^DD"",603.04,603.04,.01,""DT"")"
^XMB(3.9,169,2,3544,0)="3060314"
^XMB(3.9,169,2,3545,0)="""^DD"",603.04,603.04,1,0)"
^XMB(3.9,169,2,3546,0)="TEST NAME^603.41P^^1;0"
^XMB(3.9,169,2,3547,0)="""^DD"",603.04,603.04,1,21,0)"
^XMB(3.9,169,2,3548,0)="^^5^5^3060314^"
^XMB(3.9,169,2,3549,0)="""^DD"",603.04,603.04,1,21,1,0)"
^XMB(3.9,169,2,3550,0)="This is the name of the test associated with Clozapine.  A White Blood "
^XMB(3.9,169,2,3551,0)="""^DD"",603.04,603.04,1,21,2,0)"
^XMB(3.9,169,2,3552,0)="Count and a method of determining the Neutorphil Count must be entered.  "
^XMB(3.9,169,2,3553,0)="""^DD"",603.04,603.04,1,21,3,0)"
^XMB(3.9,169,2,3554,0)="You may enter as many of each as are appropriate.  The Neutorphil count "
^XMB(3.9,169,2,3555,0)="""^DD"",603.04,603.04,1,21,4,0)"
^XMB(3.9,169,2,3556,0)="may be and absolute count, a percentage, or the BANDS and SEGS.  If BANDS "
^XMB(3.9,169,2,3557,0)="""^DD"",603.04,603.04,1,21,5,0)"
^XMB(3.9,169,2,3558,0)="and SEGS are entered, a separate test must be entered for each."
^XMB(3.9,169,2,3559,0)="""^DD"",603.04,603.41,0)"
^XMB(3.9,169,2,3560,0)="TEST NAME SUB-FIELD^^2^3"
^XMB(3.9,169,2,3561,0)="""^DD"",603.04,603.41,0,""DT"")"
^XMB(3.9,169,2,3562,0)="3060628"
^XMB(3.9,169,2,3563,0)="""^DD"",603.04,603.41,0,""IX"",""B"",603.41,.01)"
^XMB(3.9,169,2,3564,0)=""
^XMB(3.9,169,2,3565,0)="""^DD"",603.04,603.41,0,""NM"",""TEST NAME"")"
^XMB(3.9,169,2,3566,0)=""
^XMB(3.9,169,2,3567,0)="""^DD"",603.04,603.41,0,""UP"")"
^XMB(3.9,169,2,3568,0)="603.04"
^XMB(3.9,169,2,3569,0)="""^DD"",603.04,603.41,.01,0)"
^XMB(3.9,169,2,3570,0)="TEST NAME^MP60'^LAB(60,^0;1^Q"
^XMB(3.9,169,2,3571,0)="""^DD"",603.04,603.41,.01,1,0)"
^XMB(3.9,169,2,3572,0)="^.1^^-1"
^XMB(3.9,169,2,3573,0)="""^DD"",603.04,603.41,.01,1,1,0)"
^XMB(3.9,169,2,3574,0)="603.41^B"
^XMB(3.9,169,2,3575,0)="""^DD"",603.04,603.41,.01,1,1,1)"
^XMB(3.9,169,2,3576,0)="S ^YSCL(603.04,DA(1),1,""B"",$E(X,1,30),DA)="""""
^XMB(3.9,169,2,3577,0)="""^DD"",603.04,603.41,.01,1,1,2)"
^XMB(3.9,169,2,3578,0)="K ^YSCL(603.04,DA(1),1,""B"",$E(X,1,30),DA)"
^XMB(3.9,169,2,3579,0)="""^DD"",603.04,603.41,.01,3)"
^XMB(3.9,169,2,3580,0)="Enter the name of the test associated with Clozapine,"
^XMB(3.9,169,2,3581,0)="""^DD"",603.04,603.41,.01,21,0)"
^XMB(3.9,169,2,3582,0)="^^5^5^3060314^"
^XMB(3.9,169,2,3583,0)="""^DD"",603.04,603.41,.01,21,1,0)"
^XMB(3.9,169,2,3584,0)="This is the name of the test associated with Clozapine.  A White Blood "
^XMB(3.9,169,2,3585,0)="""^DD"",603.04,603.41,.01,21,2,0)"
^XMB(3.9,169,2,3586,0)="Count and a method of determining the Neutorphil Count must be entered.  "
^XMB(3.9,169,2,3587,0)="""^DD"",603.04,603.41,.01,21,3,0)"
^XMB(3.9,169,2,3588,0)="You may enter as many of each as are appropriate.  The Neutorphil count "
^XMB(3.9,169,2,3589,0)="""^DD"",603.04,603.41,.01,21,4,0)"
^XMB(3.9,169,2,3590,0)="may be and absolute count, a percentage, or the BANDS and SEGS.  If BANDS "
^XMB(3.9,169,2,3591,0)="""^DD"",603.04,603.41,.01,21,5,0)"
^XMB(3.9,169,2,3592,0)="and SEGS are entered, a separate test must be entered for each."
^XMB(3.9,169,2,3593,0)="""^DD"",603.04,603.41,.01,""DT"")"
^XMB(3.9,169,2,3594,0)="3060314"
^XMB(3.9,169,2,3595,0)="""^DD"",603.04,603.41,1,0)"
^XMB(3.9,169,2,3596,0)="TEST TYPE^RS^W:WHITE BLOOD COUNT;A:ABSOLUTE NEUTROPHIL COUNT;N:NEUTROPHIL PERCENT;S:SEGS %;B:BANDS %;T:BANDS ABSOLUTE;C:SEGS ABSOLUTE;^0;2^Q"
^XMB(3.9,169,2,3597,0)="""^DD"",603.04,603.41,1,3)"
^XMB(3.9,169,2,3598,0)="Enter the type (WBC, ANC, SEGS, BANDS) associated with the TEST NAME field."
^XMB(3.9,169,2,3599,0)="""^DD"",603.04,603.41,1,21,0)"
^XMB(3.9,169,2,3600,0)="^^3^3^3060314^"
^XMB(3.9,169,2,3601,0)="""^DD"",603.04,603.41,1,21,1,0)"
^XMB(3.9,169,2,3602,0)="This is the type of the test associated with Clozapine.  The choices are: "
^XMB(3.9,169,2,3603,0)="""^DD"",603.04,603.41,1,21,2,0)"
^XMB(3.9,169,2,3604,0)="WHITE BLOOD COUNT, ABSOLUTE NEUTROPHIL COUNT, NEUTROPHIL PERCENT, SEGS,"
^XMB(3.9,169,2,3605,0)="""^DD"",603.04,603.41,1,21,3,0)"
^XMB(3.9,169,2,3606,0)="and BANDS.  The type must match the test entered in the TEST NAME field."
^XMB(3.9,169,2,3607,0)="""^DD"",603.04,603.41,1,""DT"")"
^XMB(3.9,169,2,3608,0)="3060320"
^XMB(3.9,169,2,3609,0)="""^DD"",603.04,603.41,2,0)"
^XMB(3.9,169,2,3610,0)="REPORTING FORMAT^RS^0:Units;1:K/units;2:Percentage;^0;3^Q"
^XMB(3.9,169,2,3611,0)="""^DD"",603.04,603.41,2,21,0)"
^XMB(3.9,169,2,3612,0)="^^4^4^3060619^"
^XMB(3.9,169,2,3613,0)="""^DD"",603.04,603.41,2,21,1,0)"
^XMB(3.9,169,2,3614,0)="Most sites report WBC and Neutorphil results in K/unit format (K/cc or "
^XMB(3.9,169,2,3615,0)="""^DD"",603.04,603.41,2,21,2,0)"
^XMB(3.9,169,2,3616,0)="K/cu mm or K/mm-3 or K/mL). For example, WBC equals 5.1.  However, some"
^XMB(3.9,169,2,3617,0)="""^DD"",603.04,603.41,2,21,3,0)"
^XMB(3.9,169,2,3618,0)="report results as discrete units. For example, WBC equals 5100.  This"
^XMB(3.9,169,2,3619,0)="""^DD"",603.04,603.41,2,21,4,0)"
^XMB(3.9,169,2,3620,0)="field will allow the site to specify how results are reported."
^XMB(3.9,169,2,3621,0)="""^DD"",603.04,603.41,2,""DT"")"
^XMB(3.9,169,2,3622,0)="3060628"
^XMB(3.9,169,2,3623,0)="""^DIC"",603.01,603.01,0)"
^XMB(3.9,169,2,3624,0)="CLOZAPINE PATIENT LIST^603.01"
^XMB(3.9,169,2,3625,0)="""^DIC"",603.01,603.01,0,""GL"")"
^XMB(3.9,169,2,3626,0)="^YSCL(603.01,"
^XMB(3.9,169,2,3627,0)="""^DIC"",603.01,603.01,""%"",0)"
^XMB(3.9,169,2,3628,0)="^1.005^^"
^XMB(3.9,169,2,3629,0)="""^DIC"",603.01,603.01,""%D"",0)"
^XMB(3.9,169,2,3630,0)="^^2^2^2981130^"
^XMB(3.9,169,2,3631,0)="""^DIC"",603.01,603.01,""%D"",1,0)"
^XMB(3.9,169,2,3632,0)="This is a list of patients authorized to receive Clozapine.  This list is"
^XMB(3.9,169,2,3633,0)="""^DIC"",603.01,603.01,""%D"",2,0)"
^XMB(3.9,169,2,3634,0)="maintained by the National Clozapine Coordinating Center (NCCC) in Dallas."
^XMB(3.9,169,2,3635,0)="""^DIC"",603.01,""B"",""CLOZAPINE PATIENT LIST"",603.01)"
^XMB(3.9,169,2,3636,0)=""
^XMB(3.9,169,2,3637,0)="""^DIC"",603.03,603.03,0)"
^XMB(3.9,169,2,3638,0)="CLOZAPINE PARAMETERS^603.03"
^XMB(3.9,169,2,3639,0)="""^DIC"",603.03,603.03,0,""GL"")"
^XMB(3.9,169,2,3640,0)="^YSCL(603.03,"
^XMB(3.9,169,2,3641,0)="""^DIC"",603.03,603.03,""%"",0)"
^XMB(3.9,169,2,3642,0)="^1.005^^0"
^XMB(3.9,169,2,3643,0)="""^DIC"",603.03,603.03,""%D"",0)"
^XMB(3.9,169,2,3644,0)="^^11^11^3010412^"
^XMB(3.9,169,2,3645,0)="""^DIC"",603.03,603.03,""%D"",1,0)"
^XMB(3.9,169,2,3646,0)="This file contains various parameters for the Clozapine rollup.  No option"
^XMB(3.9,169,2,3647,0)="""^DIC"",603.03,603.03,""%D"",2,0)"
^XMB(3.9,169,2,3648,0)="is assigned for the sites to manipulate the data. This file is used and"
^XMB(3.9,169,2,3649,0)="""^DIC"",603.03,603.03,""%D"",3,0)"
^XMB(3.9,169,2,3650,0)="maintained by the National Clozapine Coordinating Center (NCCC) through"
^XMB(3.9,169,2,3651,0)="""^DIC"",603.03,603.03,""%D"",4,0)"
^XMB(3.9,169,2,3652,0)="the YSCLSERVER option.  The TRANSMISSION DAY field forces all of the sites"
^XMB(3.9,169,2,3653,0)="""^DIC"",603.03,603.03,""%D"",5,0)"
^XMB(3.9,169,2,3654,0)="to transmit on the same day, in the past we had to allow scattered"
^XMB(3.9,169,2,3655,0)="""^DIC"",603.03,603.03,""%D"",6,0)"
^XMB(3.9,169,2,3656,0)="reporting due to network limits.  We no longer have this problem.  All"
^XMB(3.9,169,2,3657,0)="""^DIC"",603.03,603.03,""%D"",7,0)"
^XMB(3.9,169,2,3658,0)="transmissions will occur on Tuesday unless the NCCC in Dallas wishes to"
^XMB(3.9,169,2,3659,0)="""^DIC"",603.03,603.03,""%D"",8,0)"
^XMB(3.9,169,2,3660,0)="change the day.  The DEBUG MODE field allows data to be transmitted to a"
^XMB(3.9,169,2,3661,0)="""^DIC"",603.03,603.03,""%D"",9,0)"
^XMB(3.9,169,2,3662,0)="test location without contaminating the database in Hines. The three date"
^XMB(3.9,169,2,3663,0)="""^DIC"",603.03,603.03,""%D"",10,0)"
^XMB(3.9,169,2,3664,0)="fields TRANSMISSION START, TRANSMISSION END and LAST DEMOGRAPHICS"
^XMB(3.9,169,2,3665,0)="""^DIC"",603.03,603.03,""%D"",11,0)"
^XMB(3.9,169,2,3666,0)="TRANSMISSION report back to the NCCC through the server."
^XMB(3.9,169,2,3667,0)="""^DIC"",603.03,""B"",""CLOZAPINE PARAMETERS"",603.03)"
^XMB(3.9,169,2,3668,0)=""
^XMB(3.9,169,2,3669,0)="""^DIC"",603.04,603.04,0)"
^XMB(3.9,169,2,3670,0)="CLOZAPINE TESTS^603.04"
^XMB(3.9,169,2,3671,0)="""^DIC"",603.04,603.04,0,""GL"")"
^XMB(3.9,169,2,3672,0)="^YSCL(603.04,"
^XMB(3.9,169,2,3673,0)="""^DIC"",603.04,603.04,""%"",0)"
^XMB(3.9,169,2,3674,0)="^1.005^^"
^XMB(3.9,169,2,3675,0)="""^DIC"",603.04,603.04,""%D"",0)"
^XMB(3.9,169,2,3676,0)="^^2^2^3060905^"
^XMB(3.9,169,2,3677,0)="""^DIC"",603.04,603.04,""%D"",1,0)"
^XMB(3.9,169,2,3678,0)="This file must be populated with the tests used for the WBC and Neutrpohil"
^XMB(3.9,169,2,3679,0)="""^DIC"",603.04,603.04,""%D"",2,0)"
^XMB(3.9,169,2,3680,0)="counts associated with Clozapine."
^XMB(3.9,169,2,3681,0)="""^DIC"",603.04,""B"",""CLOZAPINE TESTS"",603.04)"
^XMB(3.9,169,2,3682,0)=""
^XMB(3.9,169,2,3683,0)="""BLD"",6093,6)"
^XMB(3.9,169,2,3684,0)="^75"
^XMB(3.9,169,2,3685,0)="$END KID YS*5.01*90"
^XMB(3.9,169,6,0)="^3.911A^2^2"
^XMB(3.9,169,6,1,0)="POSTMASTER"
^XMB(3.9,169,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,169,6,"B","POSTMASTER",1)=""
^XMB(3.9,169,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,170,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020206"
^XMB(3.9,170,.6)="3061008"
^XMB(3.9,170,1,0)="^3.91A^1^1"
^XMB(3.9,170,1,1,0)=".5"
^XMB(3.9,170,1,"C",.5,1)=""
^XMB(3.9,170,2,0)="^^3^3^3061008"
^XMB(3.9,170,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,170,2,2,0)=" "
^XMB(3.9,170,2,3,0)="Message 4230 does not exist.  Can't deliver it."
^XMB(3.9,170,6,0)="^3.911A^1^1"
^XMB(3.9,170,6,1,0)="POSTMASTER"
^XMB(3.9,170,6,"B","POSTMASTER",1)=""
^XMB(3.9,171,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020206"
^XMB(3.9,171,.6)="3061008"
^XMB(3.9,171,1,0)="^3.91A^1^1"
^XMB(3.9,171,1,1,0)=".5"
^XMB(3.9,171,1,"C",.5,1)=""
^XMB(3.9,171,2,0)="^^3^3^3061008"
^XMB(3.9,171,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,171,2,2,0)=" "
^XMB(3.9,171,2,3,0)="Message 4245 does not exist.  Can't deliver it."
^XMB(3.9,171,6,0)="^3.911A^1^1"
^XMB(3.9,171,6,1,0)="POSTMASTER"
^XMB(3.9,171,6,"B","POSTMASTER",1)=""
^XMB(3.9,172,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020206"
^XMB(3.9,172,.6)="3061008"
^XMB(3.9,172,1,0)="^3.91A^1^1"
^XMB(3.9,172,1,1,0)=".5"
^XMB(3.9,172,1,"C",.5,1)=""
^XMB(3.9,172,2,0)="^^3^3^3061008"
^XMB(3.9,172,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,172,2,2,0)=" "
^XMB(3.9,172,2,3,0)="Message 4246 does not exist.  Can't deliver it."
^XMB(3.9,172,6,0)="^3.911A^1^1"
^XMB(3.9,172,6,1,0)="POSTMASTER"
^XMB(3.9,172,6,"B","POSTMASTER",1)=""
^XMB(3.9,173,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020206"
^XMB(3.9,173,.6)="3061008"
^XMB(3.9,173,1,0)="^3.91A^1^1"
^XMB(3.9,173,1,1,0)=".5"
^XMB(3.9,173,1,"C",.5,1)=""
^XMB(3.9,173,2,0)="^^3^3^3061008"
^XMB(3.9,173,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,173,2,2,0)=" "
^XMB(3.9,173,2,3,0)="Message 4247 does not exist.  Can't deliver it."
^XMB(3.9,173,6,0)="^3.911A^1^1"
^XMB(3.9,173,6,1,0)="POSTMASTER"
^XMB(3.9,173,6,"B","POSTMASTER",1)=""
^XMB(3.9,174,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020206"
^XMB(3.9,174,.6)="3061008"
^XMB(3.9,174,1,0)="^3.91A^1^1"
^XMB(3.9,174,1,1,0)=".5"
^XMB(3.9,174,1,"C",.5,1)=""
^XMB(3.9,174,2,0)="^^3^3^3061008"
^XMB(3.9,174,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,174,2,2,0)=" "
^XMB(3.9,174,2,3,0)="Message 4248 does not exist.  Can't deliver it."
^XMB(3.9,174,6,0)="^3.911A^1^1"
^XMB(3.9,174,6,1,0)="POSTMASTER"
^XMB(3.9,174,6,"B","POSTMASTER",1)=""
^XMB(3.9,175,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020206"
^XMB(3.9,175,.6)="3061008"
^XMB(3.9,175,1,0)="^3.91A^1^1"
^XMB(3.9,175,1,1,0)=".5"
^XMB(3.9,175,1,"C",.5,1)=""
^XMB(3.9,175,2,0)="^^3^3^3061008"
^XMB(3.9,175,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,175,2,2,0)=" "
^XMB(3.9,175,2,3,0)="Message 4280 does not exist.  Can't deliver it."
^XMB(3.9,175,6,0)="^3.911A^1^1"
^XMB(3.9,175,6,1,0)="POSTMASTER"
^XMB(3.9,175,6,"B","POSTMASTER",1)=""
^XMB(3.9,176,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020212"
^XMB(3.9,176,.6)="3061008"
^XMB(3.9,176,1,0)="^3.91A^1^1"
^XMB(3.9,176,1,1,0)=".5"
^XMB(3.9,176,1,"C",.5,1)=""
^XMB(3.9,176,2,0)="^^3^3^3061008"
^XMB(3.9,176,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,176,2,2,0)=" "
^XMB(3.9,176,2,3,0)="Message 4367 does not exist.  Can't deliver it."
^XMB(3.9,176,6,0)="^3.911A^1^1"
^XMB(3.9,176,6,1,0)="POSTMASTER"
^XMB(3.9,176,6,"B","POSTMASTER",1)=""
^XMB(3.9,177,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020212"
^XMB(3.9,177,.6)="3061008"
^XMB(3.9,177,1,0)="^3.91A^1^1"
^XMB(3.9,177,1,1,0)=".5"
^XMB(3.9,177,1,"C",.5,1)=""
^XMB(3.9,177,2,0)="^^3^3^3061008"
^XMB(3.9,177,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,177,2,2,0)=" "
^XMB(3.9,177,2,3,0)="Message 4390 does not exist.  Can't deliver it."
^XMB(3.9,177,6,0)="^3.911A^1^1"
^XMB(3.9,177,6,1,0)="POSTMASTER"
^XMB(3.9,177,6,"B","POSTMASTER",1)=""
^XMB(3.9,178,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020212"
^XMB(3.9,178,.6)="3061008"
^XMB(3.9,178,1,0)="^3.91A^1^1"
^XMB(3.9,178,1,1,0)=".5"
^XMB(3.9,178,1,"C",.5,1)=""
^XMB(3.9,178,2,0)="^^3^3^3061008"
^XMB(3.9,178,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,178,2,2,0)=" "
^XMB(3.9,178,2,3,0)="Message 4413 does not exist.  Can't deliver it."
^XMB(3.9,178,6,0)="^3.911A^1^1"
^XMB(3.9,178,6,1,0)="POSTMASTER"
^XMB(3.9,178,6,"B","POSTMASTER",1)=""
^XMB(3.9,179,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,179,.6)="3061008"
^XMB(3.9,179,1,0)="^3.91A^1^1"
^XMB(3.9,179,1,1,0)=".5"
^XMB(3.9,179,1,"C",.5,1)=""
^XMB(3.9,179,2,0)="^^3^3^3061008"
^XMB(3.9,179,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,179,2,2,0)=" "
^XMB(3.9,179,2,3,0)="Message 4436 does not exist.  Can't deliver it."
^XMB(3.9,179,6,0)="^3.911A^1^1"
^XMB(3.9,179,6,1,0)="POSTMASTER"
^XMB(3.9,179,6,"B","POSTMASTER",1)=""
^XMB(3.9,180,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,180,.6)="3061008"
^XMB(3.9,180,1,0)="^3.91A^1^1"
^XMB(3.9,180,1,1,0)=".5"
^XMB(3.9,180,1,"C",.5,1)=""
^XMB(3.9,180,2,0)="^^3^3^3061008"
^XMB(3.9,180,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,180,2,2,0)=" "
^XMB(3.9,180,2,3,0)="Message 4459 does not exist.  Can't deliver it."
^XMB(3.9,180,6,0)="^3.911A^1^1"
^XMB(3.9,180,6,1,0)="POSTMASTER"
^XMB(3.9,180,6,"B","POSTMASTER",1)=""
^XMB(3.9,181,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,181,.6)="3061008"
^XMB(3.9,181,1,0)="^3.91A^1^1"
^XMB(3.9,181,1,1,0)=".5"
^XMB(3.9,181,1,"C",.5,1)=""
^XMB(3.9,181,2,0)="^^3^3^3061008"
^XMB(3.9,181,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,181,2,2,0)=" "
^XMB(3.9,181,2,3,0)="Message 4481 does not exist.  Can't deliver it."
^XMB(3.9,181,6,0)="^3.911A^1^1"
^XMB(3.9,181,6,1,0)="POSTMASTER"
^XMB(3.9,181,6,"B","POSTMASTER",1)=""
^XMB(3.9,182,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,182,.6)="3061008"
^XMB(3.9,182,1,0)="^3.91A^1^1"
^XMB(3.9,182,1,1,0)=".5"
^XMB(3.9,182,1,"C",.5,1)=""
^XMB(3.9,182,2,0)="^^3^3^3061008"
^XMB(3.9,182,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,182,2,2,0)=" "
^XMB(3.9,182,2,3,0)="Message 4504 does not exist.  Can't deliver it."
^XMB(3.9,182,6,0)="^3.911A^1^1"
^XMB(3.9,182,6,1,0)="POSTMASTER"
^XMB(3.9,182,6,"B","POSTMASTER",1)=""
^XMB(3.9,183,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,183,.6)="3061008"
^XMB(3.9,183,1,0)="^3.91A^1^1"
^XMB(3.9,183,1,1,0)=".5"
^XMB(3.9,183,1,"C",.5,1)=""
^XMB(3.9,183,2,0)="^^3^3^3061008"
^XMB(3.9,183,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,183,2,2,0)=" "
^XMB(3.9,183,2,3,0)="Message 4645 does not exist.  Can't deliver it."
^XMB(3.9,183,6,0)="^3.911A^1^1"
^XMB(3.9,183,6,1,0)="POSTMASTER"
^XMB(3.9,183,6,"B","POSTMASTER",1)=""
^XMB(3.9,184,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,184,.6)="3061008"
^XMB(3.9,184,1,0)="^3.91A^1^1"
^XMB(3.9,184,1,1,0)=".5"
^XMB(3.9,184,1,"C",.5,1)=""
^XMB(3.9,184,2,0)="^^3^3^3061008"
^XMB(3.9,184,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,184,2,2,0)=" "
^XMB(3.9,184,2,3,0)="Message 4657 does not exist.  Can't deliver it."
^XMB(3.9,184,6,0)="^3.911A^1^1"
^XMB(3.9,184,6,1,0)="POSTMASTER"
^XMB(3.9,184,6,"B","POSTMASTER",1)=""
^XMB(3.9,185,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,185,.6)="3061008"
^XMB(3.9,185,1,0)="^3.91A^1^1"
^XMB(3.9,185,1,1,0)=".5"
^XMB(3.9,185,1,"C",.5,1)=""
^XMB(3.9,185,2,0)="^^3^3^3061008"
^XMB(3.9,185,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,185,2,2,0)=" "
^XMB(3.9,185,2,3,0)="Message 4718 does not exist.  Can't deliver it."
^XMB(3.9,185,6,0)="^3.911A^1^1"
^XMB(3.9,185,6,1,0)="POSTMASTER"
^XMB(3.9,185,6,"B","POSTMASTER",1)=""
^XMB(3.9,186,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,186,.6)="3061008"
^XMB(3.9,186,1,0)="^3.91A^1^1"
^XMB(3.9,186,1,1,0)=".5"
^XMB(3.9,186,1,"C",.5,1)=""
^XMB(3.9,186,2,0)="^^3^3^3061008"
^XMB(3.9,186,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,186,2,2,0)=" "
^XMB(3.9,186,2,3,0)="Message 4749 does not exist.  Can't deliver it."
^XMB(3.9,186,6,0)="^3.911A^1^1"
^XMB(3.9,186,6,1,0)="POSTMASTER"
^XMB(3.9,186,6,"B","POSTMASTER",1)=""
^XMB(3.9,187,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,187,.6)="3061008"
^XMB(3.9,187,1,0)="^3.91A^1^1"
^XMB(3.9,187,1,1,0)=".5"
^XMB(3.9,187,1,"C",.5,1)=""
^XMB(3.9,187,2,0)="^^3^3^3061008"
^XMB(3.9,187,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,187,2,2,0)=" "
^XMB(3.9,187,2,3,0)="Message 4792 does not exist.  Can't deliver it."
^XMB(3.9,187,6,0)="^3.911A^1^1"
^XMB(3.9,187,6,1,0)="POSTMASTER"
^XMB(3.9,187,6,"B","POSTMASTER",1)=""
^XMB(3.9,188,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,188,.6)="3061008"
^XMB(3.9,188,1,0)="^3.91A^1^1"
^XMB(3.9,188,1,1,0)=".5"
^XMB(3.9,188,1,"C",.5,1)=""
^XMB(3.9,188,2,0)="^^3^3^3061008"
^XMB(3.9,188,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,188,2,2,0)=" "
^XMB(3.9,188,2,3,0)="Message 4815 does not exist.  Can't deliver it."
^XMB(3.9,188,6,0)="^3.911A^1^1"
^XMB(3.9,188,6,1,0)="POSTMASTER"
^XMB(3.9,188,6,"B","POSTMASTER",1)=""
^XMB(3.9,189,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,189,.6)="3061008"
^XMB(3.9,189,1,0)="^3.91A^1^1"
^XMB(3.9,189,1,1,0)=".5"
^XMB(3.9,189,1,"C",.5,1)=""
^XMB(3.9,189,2,0)="^^3^3^3061008"
^XMB(3.9,189,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,189,2,2,0)=" "
^XMB(3.9,189,2,3,0)="Message 4838 does not exist.  Can't deliver it."
^XMB(3.9,189,6,0)="^3.911A^1^1"
^XMB(3.9,189,6,1,0)="POSTMASTER"
^XMB(3.9,189,6,"B","POSTMASTER",1)=""
^XMB(3.9,190,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,190,.6)="3061008"
^XMB(3.9,190,1,0)="^3.91A^1^1"
^XMB(3.9,190,1,1,0)=".5"
^XMB(3.9,190,1,"C",.5,1)=""
^XMB(3.9,190,2,0)="^^3^3^3061008"
^XMB(3.9,190,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,190,2,2,0)=" "
^XMB(3.9,190,2,3,0)="Message 4861 does not exist.  Can't deliver it."
^XMB(3.9,190,6,0)="^3.911A^1^1"
^XMB(3.9,190,6,1,0)="POSTMASTER"
^XMB(3.9,190,6,"B","POSTMASTER",1)=""
^XMB(3.9,191,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,191,.6)="3061008"
^XMB(3.9,191,1,0)="^3.91A^1^1"
^XMB(3.9,191,1,1,0)=".5"
^XMB(3.9,191,1,"C",.5,1)=""
^XMB(3.9,191,2,0)="^^3^3^3061008"
^XMB(3.9,191,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,191,2,2,0)=" "
^XMB(3.9,191,2,3,0)="Message 4884 does not exist.  Can't deliver it."
^XMB(3.9,191,6,0)="^3.911A^1^1"
^XMB(3.9,191,6,1,0)="POSTMASTER"
^XMB(3.9,191,6,"B","POSTMASTER",1)=""
^XMB(3.9,192,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,192,.6)="3061008"
^XMB(3.9,192,1,0)="^3.91A^1^1"
^XMB(3.9,192,1,1,0)=".5"
^XMB(3.9,192,1,"C",.5,1)=""
^XMB(3.9,192,2,0)="^^3^3^3061008"
^XMB(3.9,192,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,192,2,2,0)=" "
^XMB(3.9,192,2,3,0)="Message 4906 does not exist.  Can't deliver it."
^XMB(3.9,192,6,0)="^3.911A^1^1"
^XMB(3.9,192,6,1,0)="POSTMASTER"
^XMB(3.9,192,6,"B","POSTMASTER",1)=""
^XMB(3.9,193,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,193,.6)="3061008"
^XMB(3.9,193,1,0)="^3.91A^1^1"
^XMB(3.9,193,1,1,0)=".5"
^XMB(3.9,193,1,"C",.5,1)=""
^XMB(3.9,193,2,0)="^^3^3^3061008"
^XMB(3.9,193,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,193,2,2,0)=" "
^XMB(3.9,193,2,3,0)="Message 4929 does not exist.  Can't deliver it."
^XMB(3.9,193,6,0)="^3.911A^1^1"
^XMB(3.9,193,6,1,0)="POSTMASTER"
^XMB(3.9,193,6,"B","POSTMASTER",1)=""
^XMB(3.9,194,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,194,.6)="3061008"
^XMB(3.9,194,1,0)="^3.91A^1^1"
^XMB(3.9,194,1,1,0)=".5"
^XMB(3.9,194,1,"C",.5,1)=""
^XMB(3.9,194,2,0)="^^3^3^3061008"
^XMB(3.9,194,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,194,2,2,0)=" "
^XMB(3.9,194,2,3,0)="Message 4952 does not exist.  Can't deliver it."
^XMB(3.9,194,6,0)="^3.911A^1^1"
^XMB(3.9,194,6,1,0)="POSTMASTER"
^XMB(3.9,194,6,"B","POSTMASTER",1)=""
^XMB(3.9,195,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,195,.6)="3061008"
^XMB(3.9,195,1,0)="^3.91A^1^1"
^XMB(3.9,195,1,1,0)=".5"
^XMB(3.9,195,1,"C",.5,1)=""
^XMB(3.9,195,2,0)="^^3^3^3061008"
^XMB(3.9,195,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,195,2,2,0)=" "
^XMB(3.9,195,2,3,0)="Message 4975 does not exist.  Can't deliver it."
^XMB(3.9,195,6,0)="^3.911A^1^1"
^XMB(3.9,195,6,1,0)="POSTMASTER"
^XMB(3.9,195,6,"B","POSTMASTER",1)=""
^XMB(3.9,196,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,196,.6)="3061008"
^XMB(3.9,196,1,0)="^3.91A^1^1"
^XMB(3.9,196,1,1,0)=".5"
^XMB(3.9,196,1,"C",.5,1)=""
^XMB(3.9,196,2,0)="^^3^3^3061008"
^XMB(3.9,196,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,196,2,2,0)=" "
^XMB(3.9,196,2,3,0)="Message 4998 does not exist.  Can't deliver it."
^XMB(3.9,196,6,0)="^3.911A^1^1"
^XMB(3.9,196,6,1,0)="POSTMASTER"
^XMB(3.9,196,6,"B","POSTMASTER",1)=""
^XMB(3.9,197,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,197,.6)="3061008"
^XMB(3.9,197,1,0)="^3.91A^1^1"
^XMB(3.9,197,1,1,0)=".5"
^XMB(3.9,197,1,"C",.5,1)=""
^XMB(3.9,197,2,0)="^^3^3^3061008"
^XMB(3.9,197,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,197,2,2,0)=" "
^XMB(3.9,197,2,3,0)="Message 5075 does not exist.  Can't deliver it."
^XMB(3.9,197,6,0)="^3.911A^1^1"
^XMB(3.9,197,6,1,0)="POSTMASTER"
^XMB(3.9,197,6,"B","POSTMASTER",1)=""
^XMB(3.9,198,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,198,.6)="3061008"
^XMB(3.9,198,1,0)="^3.91A^1^1"
^XMB(3.9,198,1,1,0)=".5"
^XMB(3.9,198,1,"C",.5,1)=""
^XMB(3.9,198,2,0)="^^3^3^3061008"
^XMB(3.9,198,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,198,2,2,0)=" "
^XMB(3.9,198,2,3,0)="Message 5098 does not exist.  Can't deliver it."
^XMB(3.9,198,6,0)="^3.911A^1^1"
^XMB(3.9,198,6,1,0)="POSTMASTER"
^XMB(3.9,198,6,"B","POSTMASTER",1)=""
^XMB(3.9,199,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,199,.6)="3061008"
^XMB(3.9,199,1,0)="^3.91A^1^1"
^XMB(3.9,199,1,1,0)=".5"
^XMB(3.9,199,1,"C",.5,1)=""
^XMB(3.9,199,2,0)="^^3^3^3061008"
^XMB(3.9,199,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,199,2,2,0)=" "
^XMB(3.9,199,2,3,0)="Message 5120 does not exist.  Can't deliver it."
^XMB(3.9,199,6,0)="^3.911A^1^1"
^XMB(3.9,199,6,1,0)="POSTMASTER"
^XMB(3.9,199,6,"B","POSTMASTER",1)=""
^XMB(3.9,200,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,200,.6)="3061008"
^XMB(3.9,200,1,0)="^3.91A^1^1"
^XMB(3.9,200,1,1,0)=".5"
^XMB(3.9,200,1,"C",.5,1)=""
^XMB(3.9,200,2,0)="^^3^3^3061008"
^XMB(3.9,200,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,200,2,2,0)=" "
^XMB(3.9,200,2,3,0)="Message 5142 does not exist.  Can't deliver it."
^XMB(3.9,200,6,0)="^3.911A^1^1"
^XMB(3.9,200,6,1,0)="POSTMASTER"
^XMB(3.9,200,6,"B","POSTMASTER",1)=""
^XMB(3.9,201,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,201,.6)="3061008"
^XMB(3.9,201,1,0)="^3.91A^1^1"
^XMB(3.9,201,1,1,0)=".5"
^XMB(3.9,201,1,"C",.5,1)=""
^XMB(3.9,201,2,0)="^^3^3^3061008"
^XMB(3.9,201,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,201,2,2,0)=" "
^XMB(3.9,201,2,3,0)="Message 5161 does not exist.  Can't deliver it."
^XMB(3.9,201,6,0)="^3.911A^1^1"
^XMB(3.9,201,6,1,0)="POSTMASTER"
^XMB(3.9,201,6,"B","POSTMASTER",1)=""
^XMB(3.9,202,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,202,.6)="3061008"
^XMB(3.9,202,1,0)="^3.91A^1^1"
^XMB(3.9,202,1,1,0)=".5"
^XMB(3.9,202,1,"C",.5,1)=""
^XMB(3.9,202,2,0)="^^3^3^3061008"
^XMB(3.9,202,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,202,2,2,0)=" "
^XMB(3.9,202,2,3,0)="Message 5174 does not exist.  Can't deliver it."
^XMB(3.9,202,6,0)="^3.911A^1^1"
^XMB(3.9,202,6,1,0)="POSTMASTER"
^XMB(3.9,202,6,"B","POSTMASTER",1)=""
^XMB(3.9,203,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,203,.6)="3061008"
^XMB(3.9,203,1,0)="^3.91A^1^1"
^XMB(3.9,203,1,1,0)=".5"
^XMB(3.9,203,1,"C",.5,1)=""
^XMB(3.9,203,2,0)="^^3^3^3061008"
^XMB(3.9,203,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,203,2,2,0)=" "
^XMB(3.9,203,2,3,0)="Message 5335 does not exist.  Can't deliver it."
^XMB(3.9,203,6,0)="^3.911A^1^1"
^XMB(3.9,203,6,1,0)="POSTMASTER"
^XMB(3.9,203,6,"B","POSTMASTER",1)=""
^XMB(3.9,204,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,204,.6)="3061008"
^XMB(3.9,204,1,0)="^3.91A^1^1"
^XMB(3.9,204,1,1,0)=".5"
^XMB(3.9,204,1,"C",.5,1)=""
^XMB(3.9,204,2,0)="^^3^3^3061008"
^XMB(3.9,204,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,204,2,2,0)=" "
^XMB(3.9,204,2,3,0)="Message 5547 does not exist.  Can't deliver it."
^XMB(3.9,204,6,0)="^3.911A^1^1"
^XMB(3.9,204,6,1,0)="POSTMASTER"
^XMB(3.9,204,6,"B","POSTMASTER",1)=""
^XMB(3.9,205,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,205,.6)="3061008"
^XMB(3.9,205,1,0)="^3.91A^1^1"
^XMB(3.9,205,1,1,0)=".5"
^XMB(3.9,205,1,"C",.5,1)=""
^XMB(3.9,205,2,0)="^^3^3^3061008"
^XMB(3.9,205,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,205,2,2,0)=" "
^XMB(3.9,205,2,3,0)="Message 5759 does not exist.  Can't deliver it."
^XMB(3.9,205,6,0)="^3.911A^1^1"
^XMB(3.9,205,6,1,0)="POSTMASTER"
^XMB(3.9,205,6,"B","POSTMASTER",1)=""
^XMB(3.9,206,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,206,.6)="3061008"
^XMB(3.9,206,1,0)="^3.91A^1^1"
^XMB(3.9,206,1,1,0)=".5"
^XMB(3.9,206,1,"C",.5,1)=""
^XMB(3.9,206,2,0)="^^3^3^3061008"
^XMB(3.9,206,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,206,2,2,0)=" "
^XMB(3.9,206,2,3,0)="Message 5957 does not exist.  Can't deliver it."
^XMB(3.9,206,6,0)="^3.911A^1^1"
^XMB(3.9,206,6,1,0)="POSTMASTER"
^XMB(3.9,206,6,"B","POSTMASTER",1)=""
^XMB(3.9,207,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,207,.6)="3061008"
^XMB(3.9,207,1,0)="^3.91A^1^1"
^XMB(3.9,207,1,1,0)=".5"
^XMB(3.9,207,1,"C",.5,1)=""
^XMB(3.9,207,2,0)="^^3^3^3061008"
^XMB(3.9,207,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,207,2,2,0)=" "
^XMB(3.9,207,2,3,0)="Message 6073 does not exist.  Can't deliver it."
^XMB(3.9,207,6,0)="^3.911A^1^1"
^XMB(3.9,207,6,1,0)="POSTMASTER"
^XMB(3.9,207,6,"B","POSTMASTER",1)=""
^XMB(3.9,208,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,208,.6)="3061008"
^XMB(3.9,208,1,0)="^3.91A^1^1"
^XMB(3.9,208,1,1,0)=".5"
^XMB(3.9,208,1,"C",.5,1)=""
^XMB(3.9,208,2,0)="^^3^3^3061008"
^XMB(3.9,208,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,208,2,2,0)=" "
^XMB(3.9,208,2,3,0)="Message 6189 does not exist.  Can't deliver it."
^XMB(3.9,208,6,0)="^3.911A^1^1"
^XMB(3.9,208,6,1,0)="POSTMASTER"
^XMB(3.9,208,6,"B","POSTMASTER",1)=""
^XMB(3.9,209,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,209,.6)="3061008"
^XMB(3.9,209,1,0)="^3.91A^1^1"
^XMB(3.9,209,1,1,0)=".5"
^XMB(3.9,209,1,"C",.5,1)=""
^XMB(3.9,209,2,0)="^^3^3^3061008"
^XMB(3.9,209,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,209,2,2,0)=" "
^XMB(3.9,209,2,3,0)="Message 6190 does not exist.  Can't deliver it."
^XMB(3.9,209,6,0)="^3.911A^1^1"
^XMB(3.9,209,6,1,0)="POSTMASTER"
^XMB(3.9,209,6,"B","POSTMASTER",1)=""
^XMB(3.9,210,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,210,.6)="3061008"
^XMB(3.9,210,1,0)="^3.91A^1^1"
^XMB(3.9,210,1,1,0)=".5"
^XMB(3.9,210,1,"C",.5,1)=""
^XMB(3.9,210,2,0)="^^3^3^3061008"
^XMB(3.9,210,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,210,2,2,0)=" "
^XMB(3.9,210,2,3,0)="Message 6192 does not exist.  Can't deliver it."
^XMB(3.9,210,6,0)="^3.911A^1^1"
^XMB(3.9,210,6,1,0)="POSTMASTER"
^XMB(3.9,210,6,"B","POSTMASTER",1)=""
^XMB(3.9,211,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,211,.6)="3061008"
^XMB(3.9,211,1,0)="^3.91A^1^1"
^XMB(3.9,211,1,1,0)=".5"
^XMB(3.9,211,1,"C",.5,1)=""
^XMB(3.9,211,2,0)="^^3^3^3061008"
^XMB(3.9,211,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,211,2,2,0)=" "
^XMB(3.9,211,2,3,0)="Message 6195 does not exist.  Can't deliver it."
^XMB(3.9,211,6,0)="^3.911A^1^1"
^XMB(3.9,211,6,1,0)="POSTMASTER"
^XMB(3.9,211,6,"B","POSTMASTER",1)=""
^XMB(3.9,212,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,212,.6)="3061008"
^XMB(3.9,212,1,0)="^3.91A^1^1"
^XMB(3.9,212,1,1,0)=".5"
^XMB(3.9,212,1,"C",.5,1)=""
^XMB(3.9,212,2,0)="^^3^3^3061008"
^XMB(3.9,212,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,212,2,2,0)=" "
^XMB(3.9,212,2,3,0)="Message 6202 does not exist.  Can't deliver it."
^XMB(3.9,212,6,0)="^3.911A^1^1"
^XMB(3.9,212,6,1,0)="POSTMASTER"
^XMB(3.9,212,6,"B","POSTMASTER",1)=""
^XMB(3.9,213,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,213,.6)="3061008"
^XMB(3.9,213,1,0)="^3.91A^1^1"
^XMB(3.9,213,1,1,0)=".5"
^XMB(3.9,213,1,"C",.5,1)=""
^XMB(3.9,213,2,0)="^^3^3^3061008"
^XMB(3.9,213,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,213,2,2,0)=" "
^XMB(3.9,213,2,3,0)="Message 6210 does not exist.  Can't deliver it."
^XMB(3.9,213,6,0)="^3.911A^1^1"
^XMB(3.9,213,6,1,0)="POSTMASTER"
^XMB(3.9,213,6,"B","POSTMASTER",1)=""
^XMB(3.9,214,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,214,.6)="3061008"
^XMB(3.9,214,1,0)="^3.91A^1^1"
^XMB(3.9,214,1,1,0)=".5"
^XMB(3.9,214,1,"C",.5,1)=""
^XMB(3.9,214,2,0)="^^3^3^3061008"
^XMB(3.9,214,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,214,2,2,0)=" "
^XMB(3.9,214,2,3,0)="Message 4327 does not exist.  Can't deliver it."
^XMB(3.9,214,6,0)="^3.911A^1^1"
^XMB(3.9,214,6,1,0)="POSTMASTER"
^XMB(3.9,214,6,"B","POSTMASTER",1)=""
^XMB(3.9,215,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,215,.6)="3061008"
^XMB(3.9,215,1,0)="^3.91A^1^1"
^XMB(3.9,215,1,1,0)=".5"
^XMB(3.9,215,1,"C",.5,1)=""
^XMB(3.9,215,2,0)="^^3^3^3061008"
^XMB(3.9,215,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,215,2,2,0)=" "
^XMB(3.9,215,2,3,0)="Message 4328 does not exist.  Can't deliver it."
^XMB(3.9,215,6,0)="^3.911A^1^1"
^XMB(3.9,215,6,1,0)="POSTMASTER"
^XMB(3.9,215,6,"B","POSTMASTER",1)=""
^XMB(3.9,216,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,216,.6)="3061008"
^XMB(3.9,216,1,0)="^3.91A^1^1"
^XMB(3.9,216,1,1,0)=".5"
^XMB(3.9,216,1,"C",.5,1)=""
^XMB(3.9,216,2,0)="^^3^3^3061008"
^XMB(3.9,216,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,216,2,2,0)=" "
^XMB(3.9,216,2,3,0)="Message 4346 does not exist.  Can't deliver it."
^XMB(3.9,216,6,0)="^3.911A^1^1"
^XMB(3.9,216,6,1,0)="POSTMASTER"
^XMB(3.9,216,6,"B","POSTMASTER",1)=""
^XMB(3.9,217,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,217,.6)="3061008"
^XMB(3.9,217,1,0)="^3.91A^1^1"
^XMB(3.9,217,1,1,0)=".5"
^XMB(3.9,217,1,"C",.5,1)=""
^XMB(3.9,217,2,0)="^^3^3^3061008"
^XMB(3.9,217,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,217,2,2,0)=" "
^XMB(3.9,217,2,3,0)="Message 4355 does not exist.  Can't deliver it."
^XMB(3.9,217,6,0)="^3.911A^1^1"
^XMB(3.9,217,6,1,0)="POSTMASTER"
^XMB(3.9,217,6,"B","POSTMASTER",1)=""
^XMB(3.9,218,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,218,.6)="3061008"
^XMB(3.9,218,1,0)="^3.91A^1^1"
^XMB(3.9,218,1,1,0)=".5"
^XMB(3.9,218,1,"C",.5,1)=""
^XMB(3.9,218,2,0)="^^3^3^3061008"
^XMB(3.9,218,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,218,2,2,0)=" "
^XMB(3.9,218,2,3,0)="Message 4512 does not exist.  Can't deliver it."
^XMB(3.9,218,6,0)="^3.911A^1^1"
^XMB(3.9,218,6,1,0)="POSTMASTER"
^XMB(3.9,218,6,"B","POSTMASTER",1)=""
^XMB(3.9,219,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,219,.6)="3061008"
^XMB(3.9,219,1,0)="^3.91A^1^1"
^XMB(3.9,219,1,1,0)=".5"
^XMB(3.9,219,1,"C",.5,1)=""
^XMB(3.9,219,2,0)="^^3^3^3061008"
^XMB(3.9,219,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,219,2,2,0)=" "
^XMB(3.9,219,2,3,0)="Message 4514 does not exist.  Can't deliver it."
^XMB(3.9,219,6,0)="^3.911A^1^1"
^XMB(3.9,219,6,1,0)="POSTMASTER"
^XMB(3.9,219,6,"B","POSTMASTER",1)=""
^XMB(3.9,220,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,220,.6)="3061008"
^XMB(3.9,220,1,0)="^3.91A^1^1"
^XMB(3.9,220,1,1,0)=".5"
^XMB(3.9,220,1,"C",.5,1)=""
^XMB(3.9,220,2,0)="^^3^3^3061008"
^XMB(3.9,220,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,220,2,2,0)=" "
^XMB(3.9,220,2,3,0)="Message 4516 does not exist.  Can't deliver it."
^XMB(3.9,220,6,0)="^3.911A^1^1"
^XMB(3.9,220,6,1,0)="POSTMASTER"
^XMB(3.9,220,6,"B","POSTMASTER",1)=""
^XMB(3.9,221,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,221,.6)="3061008"
^XMB(3.9,221,1,0)="^3.91A^1^1"
^XMB(3.9,221,1,1,0)=".5"
^XMB(3.9,221,1,"C",.5,1)=""
^XMB(3.9,221,2,0)="^^3^3^3061008"
^XMB(3.9,221,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,221,2,2,0)=" "
^XMB(3.9,221,2,3,0)="Message 4518 does not exist.  Can't deliver it."
^XMB(3.9,221,6,0)="^3.911A^1^1"
^XMB(3.9,221,6,1,0)="POSTMASTER"
^XMB(3.9,221,6,"B","POSTMASTER",1)=""
^XMB(3.9,222,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,222,.6)="3061008"
^XMB(3.9,222,1,0)="^3.91A^1^1"
^XMB(3.9,222,1,1,0)=".5"
^XMB(3.9,222,1,"C",.5,1)=""
^XMB(3.9,222,2,0)="^^3^3^3061008"
^XMB(3.9,222,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,222,2,2,0)=" "
^XMB(3.9,222,2,3,0)="Message 4520 does not exist.  Can't deliver it."
^XMB(3.9,222,6,0)="^3.911A^1^1"
^XMB(3.9,222,6,1,0)="POSTMASTER"
^XMB(3.9,222,6,"B","POSTMASTER",1)=""
^XMB(3.9,223,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,223,.6)="3061008"
^XMB(3.9,223,1,0)="^3.91A^1^1"
^XMB(3.9,223,1,1,0)=".5"
^XMB(3.9,223,1,"C",.5,1)=""
^XMB(3.9,223,2,0)="^^3^3^3061008"
^XMB(3.9,223,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,223,2,2,0)=" "
^XMB(3.9,223,2,3,0)="Message 4522 does not exist.  Can't deliver it."
^XMB(3.9,223,6,0)="^3.911A^1^1"
^XMB(3.9,223,6,1,0)="POSTMASTER"
^XMB(3.9,223,6,"B","POSTMASTER",1)=""
^XMB(3.9,224,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,224,.6)="3061008"
^XMB(3.9,224,1,0)="^3.91A^1^1"
^XMB(3.9,224,1,1,0)=".5"
^XMB(3.9,224,1,"C",.5,1)=""
^XMB(3.9,224,2,0)="^^3^3^3061008"
^XMB(3.9,224,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,224,2,2,0)=" "
^XMB(3.9,224,2,3,0)="Message 4524 does not exist.  Can't deliver it."
^XMB(3.9,224,6,0)="^3.911A^1^1"
^XMB(3.9,224,6,1,0)="POSTMASTER"
^XMB(3.9,224,6,"B","POSTMASTER",1)=""
^XMB(3.9,225,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,225,.6)="3061008"
^XMB(3.9,225,1,0)="^3.91A^1^1"
^XMB(3.9,225,1,1,0)=".5"
^XMB(3.9,225,1,"C",.5,1)=""
^XMB(3.9,225,2,0)="^^3^3^3061008"
^XMB(3.9,225,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,225,2,2,0)=" "
^XMB(3.9,225,2,3,0)="Message 4538 does not exist.  Can't deliver it."
^XMB(3.9,225,6,0)="^3.911A^1^1"
^XMB(3.9,225,6,1,0)="POSTMASTER"
^XMB(3.9,225,6,"B","POSTMASTER",1)=""
^XMB(3.9,226,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,226,.6)="3061008"
^XMB(3.9,226,1,0)="^3.91A^1^1"
^XMB(3.9,226,1,1,0)=".5"
^XMB(3.9,226,1,"C",.5,1)=""
^XMB(3.9,226,2,0)="^^3^3^3061008"
^XMB(3.9,226,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,226,2,2,0)=" "
^XMB(3.9,226,2,3,0)="Message 4640 does not exist.  Can't deliver it."
^XMB(3.9,226,6,0)="^3.911A^1^1"
^XMB(3.9,226,6,1,0)="POSTMASTER"
^XMB(3.9,226,6,"B","POSTMASTER",1)=""
^XMB(3.9,227,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,227,.6)="3061008"
^XMB(3.9,227,1,0)="^3.91A^1^1"
^XMB(3.9,227,1,1,0)=".5"
^XMB(3.9,227,1,"C",.5,1)=""
^XMB(3.9,227,2,0)="^^3^3^3061008"
^XMB(3.9,227,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,227,2,2,0)=" "
^XMB(3.9,227,2,3,0)="Message 4644 does not exist.  Can't deliver it."
^XMB(3.9,227,6,0)="^3.911A^1^1"
^XMB(3.9,227,6,1,0)="POSTMASTER"
^XMB(3.9,227,6,"B","POSTMASTER",1)=""
^XMB(3.9,228,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,228,.6)="3061008"
^XMB(3.9,228,1,0)="^3.91A^1^1"
^XMB(3.9,228,1,1,0)=".5"
^XMB(3.9,228,1,"C",.5,1)=""
^XMB(3.9,228,2,0)="^^3^3^3061008"
^XMB(3.9,228,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,228,2,2,0)=" "
^XMB(3.9,228,2,3,0)="Message 4646 does not exist.  Can't deliver it."
^XMB(3.9,228,6,0)="^3.911A^1^1"
^XMB(3.9,228,6,1,0)="POSTMASTER"
^XMB(3.9,228,6,"B","POSTMASTER",1)=""
^XMB(3.9,229,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,229,.6)="3061008"
^XMB(3.9,229,1,0)="^3.91A^1^1"
^XMB(3.9,229,1,1,0)=".5"
^XMB(3.9,229,1,"C",.5,1)=""
^XMB(3.9,229,2,0)="^^3^3^3061008"
^XMB(3.9,229,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,229,2,2,0)=" "
^XMB(3.9,229,2,3,0)="Message 4647 does not exist.  Can't deliver it."
^XMB(3.9,229,6,0)="^3.911A^1^1"
^XMB(3.9,229,6,1,0)="POSTMASTER"
^XMB(3.9,229,6,"B","POSTMASTER",1)=""
^XMB(3.9,230,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,230,.6)="3061008"
^XMB(3.9,230,1,0)="^3.91A^1^1"
^XMB(3.9,230,1,1,0)=".5"
^XMB(3.9,230,1,"C",.5,1)=""
^XMB(3.9,230,2,0)="^^3^3^3061008"
^XMB(3.9,230,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,230,2,2,0)=" "
^XMB(3.9,230,2,3,0)="Message 4649 does not exist.  Can't deliver it."
^XMB(3.9,230,6,0)="^3.911A^1^1"
^XMB(3.9,230,6,1,0)="POSTMASTER"
^XMB(3.9,230,6,"B","POSTMASTER",1)=""
^XMB(3.9,231,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,231,.6)="3061008"
^XMB(3.9,231,1,0)="^3.91A^1^1"
^XMB(3.9,231,1,1,0)=".5"
^XMB(3.9,231,1,"C",.5,1)=""
^XMB(3.9,231,2,0)="^^3^3^3061008"
^XMB(3.9,231,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,231,2,2,0)=" "
^XMB(3.9,231,2,3,0)="Message 4733 does not exist.  Can't deliver it."
^XMB(3.9,231,6,0)="^3.911A^1^1"
^XMB(3.9,231,6,1,0)="POSTMASTER"
^XMB(3.9,231,6,"B","POSTMASTER",1)=""
^XMB(3.9,232,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,232,.6)="3061008"
^XMB(3.9,232,1,0)="^3.91A^1^1"
^XMB(3.9,232,1,1,0)=".5"
^XMB(3.9,232,1,"C",.5,1)=""
^XMB(3.9,232,2,0)="^^3^3^3061008"
^XMB(3.9,232,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,232,2,2,0)=" "
^XMB(3.9,232,2,3,0)="Message 6191 does not exist.  Can't deliver it."
^XMB(3.9,232,6,0)="^3.911A^1^1"
^XMB(3.9,232,6,1,0)="POSTMASTER"
^XMB(3.9,232,6,"B","POSTMASTER",1)=""
^XMB(3.9,233,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,233,.6)="3061008"
^XMB(3.9,233,1,0)="^3.91A^1^1"
^XMB(3.9,233,1,1,0)=".5"
^XMB(3.9,233,1,"C",.5,1)=""
^XMB(3.9,233,2,0)="^^3^3^3061008"
^XMB(3.9,233,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,233,2,2,0)=" "
^XMB(3.9,233,2,3,0)="Message 6196 does not exist.  Can't deliver it."
^XMB(3.9,233,6,0)="^3.911A^1^1"
^XMB(3.9,233,6,1,0)="POSTMASTER"
^XMB(3.9,233,6,"B","POSTMASTER",1)=""
^XMB(3.9,234,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,234,.6)="3061008"
^XMB(3.9,234,1,0)="^3.91A^1^1"
^XMB(3.9,234,1,1,0)=".5"
^XMB(3.9,234,1,"C",.5,1)=""
^XMB(3.9,234,2,0)="^^3^3^3061008"
^XMB(3.9,234,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,234,2,2,0)=" "
^XMB(3.9,234,2,3,0)="Message 6212 does not exist.  Can't deliver it."
^XMB(3.9,234,6,0)="^3.911A^1^1"
^XMB(3.9,234,6,1,0)="POSTMASTER"
^XMB(3.9,234,6,"B","POSTMASTER",1)=""
^XMB(3.9,235,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,235,.6)="3061008"
^XMB(3.9,235,1,0)="^3.91A^1^1"
^XMB(3.9,235,1,1,0)=".5"
^XMB(3.9,235,1,"C",.5,1)=""
^XMB(3.9,235,2,0)="^^3^3^3061008"
^XMB(3.9,235,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,235,2,2,0)=" "
^XMB(3.9,235,2,3,0)="Message 6213 does not exist.  Can't deliver it."
^XMB(3.9,235,6,0)="^3.911A^1^1"
^XMB(3.9,235,6,1,0)="POSTMASTER"
^XMB(3.9,235,6,"B","POSTMASTER",1)=""
^XMB(3.9,236,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,236,.6)="3061008"
^XMB(3.9,236,1,0)="^3.91A^1^1"
^XMB(3.9,236,1,1,0)=".5"
^XMB(3.9,236,1,"C",.5,1)=""
^XMB(3.9,236,2,0)="^^3^3^3061008"
^XMB(3.9,236,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,236,2,2,0)=" "
^XMB(3.9,236,2,3,0)="Message 6214 does not exist.  Can't deliver it."
^XMB(3.9,236,6,0)="^3.911A^1^1"
^XMB(3.9,236,6,1,0)="POSTMASTER"
^XMB(3.9,236,6,"B","POSTMASTER",1)=""
^XMB(3.9,237,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,237,.6)="3061008"
^XMB(3.9,237,1,0)="^3.91A^1^1"
^XMB(3.9,237,1,1,0)=".5"
^XMB(3.9,237,1,"C",.5,1)=""
^XMB(3.9,237,2,0)="^^3^3^3061008"
^XMB(3.9,237,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,237,2,2,0)=" "
^XMB(3.9,237,2,3,0)="Message 6215 does not exist.  Can't deliver it."
^XMB(3.9,237,6,0)="^3.911A^1^1"
^XMB(3.9,237,6,1,0)="POSTMASTER"
^XMB(3.9,237,6,"B","POSTMASTER",1)=""
^XMB(3.9,238,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,238,.6)="3061008"
^XMB(3.9,238,1,0)="^3.91A^1^1"
^XMB(3.9,238,1,1,0)=".5"
^XMB(3.9,238,1,"C",.5,1)=""
^XMB(3.9,238,2,0)="^^3^3^3061008"
^XMB(3.9,238,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,238,2,2,0)=" "
^XMB(3.9,238,2,3,0)="Message 6216 does not exist.  Can't deliver it."
^XMB(3.9,238,6,0)="^3.911A^1^1"
^XMB(3.9,238,6,1,0)="POSTMASTER"
^XMB(3.9,238,6,"B","POSTMASTER",1)=""
^XMB(3.9,239,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,239,.6)="3061008"
^XMB(3.9,239,1,0)="^3.91A^1^1"
^XMB(3.9,239,1,1,0)=".5"
^XMB(3.9,239,1,"C",.5,1)=""
^XMB(3.9,239,2,0)="^^3^3^3061008"
^XMB(3.9,239,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,239,2,2,0)=" "
^XMB(3.9,239,2,3,0)="Message 6217 does not exist.  Can't deliver it."
^XMB(3.9,239,6,0)="^3.911A^1^1"
^XMB(3.9,239,6,1,0)="POSTMASTER"
^XMB(3.9,239,6,"B","POSTMASTER",1)=""
^XMB(3.9,240,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,240,.6)="3061008"
^XMB(3.9,240,1,0)="^3.91A^1^1"
^XMB(3.9,240,1,1,0)=".5"
^XMB(3.9,240,1,"C",.5,1)=""
^XMB(3.9,240,2,0)="^^3^3^3061008"
^XMB(3.9,240,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,240,2,2,0)=" "
^XMB(3.9,240,2,3,0)="Message 6218 does not exist.  Can't deliver it."
^XMB(3.9,240,6,0)="^3.911A^1^1"
^XMB(3.9,240,6,1,0)="POSTMASTER"
^XMB(3.9,240,6,"B","POSTMASTER",1)=""
^XMB(3.9,241,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,241,.6)="3061008"
^XMB(3.9,241,1,0)="^3.91A^1^1"
^XMB(3.9,241,1,1,0)=".5"
^XMB(3.9,241,1,"C",.5,1)=""
^XMB(3.9,241,2,0)="^^3^3^3061008"
^XMB(3.9,241,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,241,2,2,0)=" "
^XMB(3.9,241,2,3,0)="Message 6219 does not exist.  Can't deliver it."
^XMB(3.9,241,6,0)="^3.911A^1^1"
^XMB(3.9,241,6,1,0)="POSTMASTER"
^XMB(3.9,241,6,"B","POSTMASTER",1)=""
^XMB(3.9,242,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,242,.6)="3061008"
^XMB(3.9,242,1,0)="^3.91A^1^1"
^XMB(3.9,242,1,1,0)=".5"
^XMB(3.9,242,1,"C",.5,1)=""
^XMB(3.9,242,2,0)="^^3^3^3061008"
^XMB(3.9,242,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,242,2,2,0)=" "
^XMB(3.9,242,2,3,0)="Message 6220 does not exist.  Can't deliver it."
^XMB(3.9,242,6,0)="^3.911A^1^1"
^XMB(3.9,242,6,1,0)="POSTMASTER"
^XMB(3.9,242,6,"B","POSTMASTER",1)=""
^XMB(3.9,243,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,243,.6)="3061008"
^XMB(3.9,243,1,0)="^3.91A^1^1"
^XMB(3.9,243,1,1,0)=".5"
^XMB(3.9,243,1,"C",.5,1)=""
^XMB(3.9,243,2,0)="^^3^3^3061008"
^XMB(3.9,243,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,243,2,2,0)=" "
^XMB(3.9,243,2,3,0)="Message 6221 does not exist.  Can't deliver it."
^XMB(3.9,243,6,0)="^3.911A^1^1"
^XMB(3.9,243,6,1,0)="POSTMASTER"
^XMB(3.9,243,6,"B","POSTMASTER",1)=""
^XMB(3.9,244,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,244,.6)="3061008"
^XMB(3.9,244,1,0)="^3.91A^1^1"
^XMB(3.9,244,1,1,0)=".5"
^XMB(3.9,244,1,"C",.5,1)=""
^XMB(3.9,244,2,0)="^^3^3^3061008"
^XMB(3.9,244,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,244,2,2,0)=" "
^XMB(3.9,244,2,3,0)="Message 6222 does not exist.  Can't deliver it."
^XMB(3.9,244,6,0)="^3.911A^1^1"
^XMB(3.9,244,6,1,0)="POSTMASTER"
^XMB(3.9,244,6,"B","POSTMASTER",1)=""
^XMB(3.9,245,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,245,.6)="3061008"
^XMB(3.9,245,1,0)="^3.91A^1^1"
^XMB(3.9,245,1,1,0)=".5"
^XMB(3.9,245,1,"C",.5,1)=""
^XMB(3.9,245,2,0)="^^3^3^3061008"
^XMB(3.9,245,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,245,2,2,0)=" "
^XMB(3.9,245,2,3,0)="Message 6223 does not exist.  Can't deliver it."
^XMB(3.9,245,6,0)="^3.911A^1^1"
^XMB(3.9,245,6,1,0)="POSTMASTER"
^XMB(3.9,245,6,"B","POSTMASTER",1)=""
^XMB(3.9,246,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,246,.6)="3061008"
^XMB(3.9,246,1,0)="^3.91A^1^1"
^XMB(3.9,246,1,1,0)=".5"
^XMB(3.9,246,1,"C",.5,1)=""
^XMB(3.9,246,2,0)="^^3^3^3061008"
^XMB(3.9,246,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,246,2,2,0)=" "
^XMB(3.9,246,2,3,0)="Message 6224 does not exist.  Can't deliver it."
^XMB(3.9,246,6,0)="^3.911A^1^1"
^XMB(3.9,246,6,1,0)="POSTMASTER"
^XMB(3.9,246,6,"B","POSTMASTER",1)=""
^XMB(3.9,247,0)="MailMan Error Detected During Message Delivery^MailMan^3061008.020213"
^XMB(3.9,247,.6)="3061008"
^XMB(3.9,247,1,0)="^3.91A^1^1"
^XMB(3.9,247,1,1,0)=".5"
^XMB(3.9,247,1,"C",.5,1)=""
^XMB(3.9,247,2,0)="^^3^3^3061008"
^XMB(3.9,247,2,1,0)="During message delivery, the following error was detected:"
^XMB(3.9,247,2,2,0)=" "
^XMB(3.9,247,2,3,0)="Message 6225 does not exist.  Can't deliver it."
^XMB(3.9,247,6,0)="^3.911A^1^1"
^XMB(3.9,247,6,1,0)="POSTMASTER"
^XMB(3.9,247,6,"B","POSTMASTER",1)=""
^XMB(3.9,248,0)="MAG*3.0*51 INSTALLATION^1^3061008.021442"
^XMB(3.9,248,.6)="3061008"
^XMB(3.9,248,1,0)="^3.91A^3^3"
^XMB(3.9,248,1,1,0)="1^0^3061008.024259^^^^^^^3061008.021442"
^XMB(3.9,248,1,2,0)="65"
^XMB(3.9,248,1,3,0)="G.IMAGING DEVELOPMENT TEAM@FORUM.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,248,1,"AQUEUE",18,3)=""
^XMB(3.9,248,1,"C",1,1)=""
^XMB(3.9,248,1,"C",65,2)=""
^XMB(3.9,248,1,"C","G.IMAGING DEVELOPMENT TEAM@FOR",3)=""
^XMB(3.9,248,2,0)="^^14^14^3061008"
^XMB(3.9,248,2,1,0)="PACKAGE INSTALL"
^XMB(3.9,248,2,2,0)="SITE: BETA.VISTA-OFFICE.ORG"
^XMB(3.9,248,2,3,0)="PACKAGE: MAG*3.0*51"
^XMB(3.9,248,2,4,0)="Version: 3.0"
^XMB(3.9,248,2,5,0)="Start time: Oct 08, 2006@02:14:39"
^XMB(3.9,248,2,6,0)="Completion time: Oct 08, 2006@02:14:41"
^XMB(3.9,248,2,7,0)="Run time:  0:00:02"
^XMB(3.9,248,2,8,0)="Environment: VOEBETA2^EHR^CAMERONS^EHR:CACHEWEB"
^XMB(3.9,248,2,9,0)="FILE COMMENT: VistA Imaging V3.0 - Patch 51 - 08/26/2005 09:50AM  ;Created on Aug 26, 2005@09:50:41"
^XMB(3.9,248,2,10,0)="DATE: 3061008.021441"
^XMB(3.9,248,2,11,0)="Installed by: SCHLEHUBER,CAMERON"
^XMB(3.9,248,2,12,0)="Install Name: MAG*3.0*51"
^XMB(3.9,248,2,13,0)="Distribution Date: Aug 26, 2005"
^XMB(3.9,248,2,14,0)="Conversion time: 0 entries in less than 1 second."
^XMB(3.9,248,6,0)="^3.911A^2^2"
^XMB(3.9,248,6,1,0)="G.MAG SERVER"
^XMB(3.9,248,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,248,6,"B","G.MAG SERVER",1)=""
^XMB(3.9,248,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,249,0)="MAG*3.0*18 INSTALLATION^1^3061008.021619"
^XMB(3.9,249,.6)="3061008"
^XMB(3.9,249,1,0)="^3.91A^3^3"
^XMB(3.9,249,1,1,0)="1^0^3061008.024304^^^^^^^3061008.021619"
^XMB(3.9,249,1,2,0)="65"
^XMB(3.9,249,1,3,0)="G.IMAGING DEVELOPMENT TEAM@FORUM.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,249,1,"AQUEUE",18,3)=""
^XMB(3.9,249,1,"C",1,1)=""
^XMB(3.9,249,1,"C",65,2)=""
^XMB(3.9,249,1,"C","G.IMAGING DEVELOPMENT TEAM@FOR",3)=""
^XMB(3.9,249,2,0)="^^13^13^3061008"
^XMB(3.9,249,2,1,0)="PACKAGE INSTALL"
^XMB(3.9,249,2,2,0)="SITE: BETA.VISTA-OFFICE.ORG"
^XMB(3.9,249,2,3,0)="PACKAGE: MAG*3.0*18"
^XMB(3.9,249,2,4,0)="Version: 3.0"
^XMB(3.9,249,2,5,0)="Start time: Oct 08, 2006@02:16:17"
^XMB(3.9,249,2,6,0)="Completion time: Oct 08, 2006@02:16:19"
^XMB(3.9,249,2,7,0)="Run time:  0:00:02"
^XMB(3.9,249,2,8,0)="Environment: VOEBETA2^EHR^CAMERONS^EHR:CACHEWEB"
^XMB(3.9,249,2,9,0)="FILE COMMENT: VistARad Patch 18 software.  ;Created on Mar 20, 2006@13:50:44"
^XMB(3.9,249,2,10,0)="DATE: 3061008.021619"
^XMB(3.9,249,2,11,0)="Installed by: SCHLEHUBER,CAMERON"
^XMB(3.9,249,2,12,0)="Install Name: MAG*3.0*18"
^XMB(3.9,249,2,13,0)="Distribution Date: Mar 20, 2006"
^XMB(3.9,249,6,0)="^3.911A^2^2"
^XMB(3.9,249,6,1,0)="G.MAG SERVER"
^XMB(3.9,249,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,249,6,"B","G.MAG SERVER",1)=""
^XMB(3.9,249,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,250,0)="MAG*3.0*61 INSTALLATION^1^3061008.021626"
^XMB(3.9,250,.6)="3061008"
^XMB(3.9,250,1,0)="^3.91A^3^3"
^XMB(3.9,250,1,1,0)="1^0^3061008.024306^^^^^^^3061008.021626"
^XMB(3.9,250,1,2,0)="65"
^XMB(3.9,250,1,3,0)="G.IMAGING DEVELOPMENT TEAM@FORUM.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,250,1,"AQUEUE",18,3)=""
^XMB(3.9,250,1,"C",1,1)=""
^XMB(3.9,250,1,"C",65,2)=""
^XMB(3.9,250,1,"C","G.IMAGING DEVELOPMENT TEAM@FOR",3)=""
^XMB(3.9,250,2,0)="^^13^13^3061008"
^XMB(3.9,250,2,1,0)="PACKAGE INSTALL"
^XMB(3.9,250,2,2,0)="SITE: BETA.VISTA-OFFICE.ORG"
^XMB(3.9,250,2,3,0)="PACKAGE: MAG*3.0*61"
^XMB(3.9,250,2,4,0)="Version: 3.0"
^XMB(3.9,250,2,5,0)="Start time: Oct 08, 2006@02:16:26"
^XMB(3.9,250,2,6,0)="Completion time: Oct 08, 2006@02:16:26"
^XMB(3.9,250,2,7,0)="Run time: "
^XMB(3.9,250,2,8,0)="Environment: VOEBETA2^EHR^CAMERONS^EHR:CACHEWEB"
^XMB(3.9,250,2,9,0)="FILE COMMENT: Vista Imaging V 3.0 - Patch 61- Index Terms Update  ;Created on Feb 07, 2006@09:00:41"
^XMB(3.9,250,2,10,0)="DATE: 3061008.021626"
^XMB(3.9,250,2,11,0)="Installed by: SCHLEHUBER,CAMERON"
^XMB(3.9,250,2,12,0)="Install Name: MAG*3.0*61"
^XMB(3.9,250,2,13,0)="Distribution Date: Feb 07, 2006"
^XMB(3.9,250,6,0)="^3.911A^2^2"
^XMB(3.9,250,6,1,0)="G.MAG SERVER"
^XMB(3.9,250,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,250,6,"B","G.MAG SERVER",1)=""
^XMB(3.9,250,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,251,0)="MAG*3.0*20 INSTALLATION^1^3061008.021713"
^XMB(3.9,251,.6)="3061008"
^XMB(3.9,251,1,0)="^3.91A^3^3"
^XMB(3.9,251,1,1,0)="1^0^3061008.024308^^^^^^^3061008.021713"
^XMB(3.9,251,1,2,0)="65"
^XMB(3.9,251,1,3,0)="G.IMAGING DEVELOPMENT TEAM@FORUM.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,251,1,"AQUEUE",18,3)=""
^XMB(3.9,251,1,"C",1,1)=""
^XMB(3.9,251,1,"C",65,2)=""
^XMB(3.9,251,1,"C","G.IMAGING DEVELOPMENT TEAM@FOR",3)=""
^XMB(3.9,251,2,0)="^^13^13^3061008"
^XMB(3.9,251,2,1,0)="PACKAGE INSTALL"
^XMB(3.9,251,2,2,0)="SITE: BETA.VISTA-OFFICE.ORG"
^XMB(3.9,251,2,3,0)="PACKAGE: MAG*3.0*20"
^XMB(3.9,251,2,4,0)="Version: 3.0"
^XMB(3.9,251,2,5,0)="Start time: Oct 08, 2006@02:17:12"
^XMB(3.9,251,2,6,0)="Completion time: Oct 08, 2006@02:17:13"
^XMB(3.9,251,2,7,0)="Run time:  0:00:01"
^XMB(3.9,251,2,8,0)="Environment: VOEBETA2^EHR^CAMERONS^EHR:CACHEWEB"
^XMB(3.9,251,2,9,0)="FILE COMMENT: Vista Imaging - 3.0 - P20  ;Created on Apr 12, 2006@10:53:22"
^XMB(3.9,251,2,10,0)="DATE: 3061008.021713"
^XMB(3.9,251,2,11,0)="Installed by: SCHLEHUBER,CAMERON"
^XMB(3.9,251,2,12,0)="Install Name: MAG*3.0*20"
^XMB(3.9,251,2,13,0)="Distribution Date: Apr 12, 2006"
^XMB(3.9,251,6,0)="^3.911A^2^2"
^XMB(3.9,251,6,1,0)="G.MAG SERVER"
^XMB(3.9,251,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,251,6,"B","G.MAG SERVER",1)=""
^XMB(3.9,251,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,252,0)="MAG*3.0*50 INSTALLATION^1^3061008.021738"
^XMB(3.9,252,.6)="3061008"
^XMB(3.9,252,1,0)="^3.91A^3^3"
^XMB(3.9,252,1,1,0)="1^0^3061008.024309^^^^^^^3061008.021738"
^XMB(3.9,252,1,2,0)="65"
^XMB(3.9,252,1,3,0)="G.IMAGING DEVELOPMENT TEAM@FORUM.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,252,1,"AQUEUE",18,3)=""
^XMB(3.9,252,1,"C",1,1)=""
^XMB(3.9,252,1,"C",65,2)=""
^XMB(3.9,252,1,"C","G.IMAGING DEVELOPMENT TEAM@FOR",3)=""
^XMB(3.9,252,2,0)="^^13^13^3061008"
^XMB(3.9,252,2,1,0)="PACKAGE INSTALL"
^XMB(3.9,252,2,2,0)="SITE: BETA.VISTA-OFFICE.ORG"
^XMB(3.9,252,2,3,0)="PACKAGE: MAG*3.0*50"
^XMB(3.9,252,2,4,0)="Version: 3.0"
^XMB(3.9,252,2,5,0)="Start time: Oct 08, 2006@02:17:38"
^XMB(3.9,252,2,6,0)="Completion time: Oct 08, 2006@02:17:38"
^XMB(3.9,252,2,7,0)="Run time: "
^XMB(3.9,252,2,8,0)="Environment: VOEBETA2^EHR^CAMERONS^EHR:CACHEWEB"
^XMB(3.9,252,2,9,0)="FILE COMMENT: VistA Imaging V3.0 - Patch 50 -  05/26/2006 07:10AM  ;Created on May 26, 2006@07:10:59"
^XMB(3.9,252,2,10,0)="DATE: 3061008.021738"
^XMB(3.9,252,2,11,0)="Installed by: SCHLEHUBER,CAMERON"
^XMB(3.9,252,2,12,0)="Install Name: MAG*3.0*50"
^XMB(3.9,252,2,13,0)="Distribution Date: May 26, 2006"
^XMB(3.9,252,6,0)="^3.911A^2^2"
^XMB(3.9,252,6,1,0)="G.MAG SERVER"
^XMB(3.9,252,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,252,6,"B","G.MAG SERVER",1)=""
^XMB(3.9,252,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,253,0)="MAG*3.0*52 INSTALLATION^1^3061008.02182"
^XMB(3.9,253,.6)="3061008"
^XMB(3.9,253,1,0)="^3.91A^3^3"
^XMB(3.9,253,1,1,0)="1^0^3061008.024311^^^^^^^3061008.02182"
^XMB(3.9,253,1,2,0)="65"
^XMB(3.9,253,1,3,0)="G.IMAGING DEVELOPMENT TEAM@FORUM.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,253,1,"AQUEUE",18,3)=""
^XMB(3.9,253,1,"C",1,1)=""
^XMB(3.9,253,1,"C",65,2)=""
^XMB(3.9,253,1,"C","G.IMAGING DEVELOPMENT TEAM@FOR",3)=""
^XMB(3.9,253,2,0)="^^13^13^3061008"
^XMB(3.9,253,2,1,0)="PACKAGE INSTALL"
^XMB(3.9,253,2,2,0)="SITE: BETA.VISTA-OFFICE.ORG"
^XMB(3.9,253,2,3,0)="PACKAGE: MAG*3.0*52"
^XMB(3.9,253,2,4,0)="Version: 3.0"
^XMB(3.9,253,2,5,0)="Start time: Oct 08, 2006@02:18:19"
^XMB(3.9,253,2,6,0)="Completion time: Oct 08, 2006@02:18:20"
^XMB(3.9,253,2,7,0)="Run time:  0:00:01"
^XMB(3.9,253,2,8,0)="Environment: VOEBETA2^EHR^CAMERONS^EHR:CACHEWEB"
^XMB(3.9,253,2,9,0)="FILE COMMENT: VistA Imaging V3.0 - Patch 52 - 05/26/2006 07:49AM  ;Created on May 26, 2006@07:49:34"
^XMB(3.9,253,2,10,0)="DATE: 3061008.02182"
^XMB(3.9,253,2,11,0)="Installed by: SCHLEHUBER,CAMERON"
^XMB(3.9,253,2,12,0)="Install Name: MAG*3.0*52"
^XMB(3.9,253,2,13,0)="Distribution Date: May 26, 2006"
^XMB(3.9,253,6,0)="^3.911A^2^2"
^XMB(3.9,253,6,1,0)="G.MAG SERVER"
^XMB(3.9,253,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,253,6,"B","G.MAG SERVER",1)=""
^XMB(3.9,253,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,254,0)="MAG*3.0*78 INSTALLATION^1^3061008.022006"
^XMB(3.9,254,.6)="3061008"
^XMB(3.9,254,1,0)="^3.91A^3^3"
^XMB(3.9,254,1,1,0)="1^0^3061008.024312^^^^^^^3061008.022006"
^XMB(3.9,254,1,2,0)="65"
^XMB(3.9,254,1,3,0)="G.IMAGING DEVELOPMENT TEAM@FORUM.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,254,1,"AQUEUE",18,3)=""
^XMB(3.9,254,1,"C",1,1)=""
^XMB(3.9,254,1,"C",65,2)=""
^XMB(3.9,254,1,"C","G.IMAGING DEVELOPMENT TEAM@FOR",3)=""
^XMB(3.9,254,2,0)="^^13^13^3061008"
^XMB(3.9,254,2,1,0)="PACKAGE INSTALL"
^XMB(3.9,254,2,2,0)="SITE: BETA.VISTA-OFFICE.ORG"
^XMB(3.9,254,2,3,0)="PACKAGE: MAG*3.0*78"
^XMB(3.9,254,2,4,0)="Version: 3.0"
^XMB(3.9,254,2,5,0)="Start time: Oct 08, 2006@02:20:06"
^XMB(3.9,254,2,6,0)="Completion time: Oct 08, 2006@02:20:06"
^XMB(3.9,254,2,7,0)="Run time: "
^XMB(3.9,254,2,8,0)="Environment: VOEBETA2^EHR^CAMERONS^EHR:CACHEWEB"
^XMB(3.9,254,2,9,0)="FILE COMMENT: Vista Imaging - 3.0 - Patch 78  ;Created on May 09, 2006@15:47:28"
^XMB(3.9,254,2,10,0)="DATE: 3061008.022006"
^XMB(3.9,254,2,11,0)="Installed by: SCHLEHUBER,CAMERON"
^XMB(3.9,254,2,12,0)="Install Name: MAG*3.0*78"
^XMB(3.9,254,2,13,0)="Distribution Date: May 09, 2006"
^XMB(3.9,254,6,0)="^3.911A^2^2"
^XMB(3.9,254,6,1,0)="G.MAG SERVER"
^XMB(3.9,254,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,254,6,"B","G.MAG SERVER",1)=""
^XMB(3.9,254,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,255,0)="Event Code Screens to Review^.5^3061008.024702"
^XMB(3.9,255,.6)="3061008"
^XMB(3.9,255,1,0)="^3.91A^1^1"
^XMB(3.9,255,1,1,0)="1^0^3061008.025609^^^^^^^3061008.025609"
^XMB(3.9,255,1,"C",1,1)=""
^XMB(3.9,255,2,0)="^^21^21^3061008"
^XMB(3.9,255,2,1,0)=" Please forward this message to your local DSS Site Manager or"
^XMB(3.9,255,2,2,0)=" Event Capture ADPAC."
^XMB(3.9,255,2,3,0)=""
^XMB(3.9,255,2,4,0)=" A review of the EC EVENT CODE SCREENS file (#720.3) was done"
^XMB(3.9,255,2,5,0)=" after installation of patch EC*2*81 which updated the EC NATIONAL"
^XMB(3.9,255,2,6,0)=" PROCEDURE file (#725).  This message provides the results of that"
^XMB(3.9,255,2,7,0)=" review."
^XMB(3.9,255,2,8,0)=""
^XMB(3.9,255,2,9,0)=" The EC EVENT CODE SCREENS file (#720.3) records indicated below"
^XMB(3.9,255,2,10,0)=" point to an inactive record in the EC NATIONAL PROCEDURE file"
^XMB(3.9,255,2,11,0)=" (#725) or to an inactive record in the CPT file (#81)."
^XMB(3.9,255,2,12,0)=""
^XMB(3.9,255,2,13,0)=" The user should use the Inactivate Event Code Screens [ECNACT]"
^XMB(3.9,255,2,14,0)=" option to inactivate the Event Code Screen.  If necessary, a new"
^XMB(3.9,255,2,15,0)=" Event Code Screen can be created using a currently active CPT code"
^XMB(3.9,255,2,16,0)=" or National Procedure."
^XMB(3.9,255,2,17,0)=""
^XMB(3.9,255,2,18,0)=" "
^XMB(3.9,255,2,19,0)=" 0 Event Code Screens were found to be pointing to aninactive"
^XMB(3.9,255,2,20,0)=" or soon to be inactive procedure in file #725 or file #81."
^XMB(3.9,255,2,21,0)=" "
^XMB(3.9,255,6,0)="^3.911A^1^1"
^XMB(3.9,255,6,1,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,255,6,"B","SCHLEHUBER,CAMERON",1)=""
^XMB(3.9,256,0)="PSA*3*56 Delete Duplicate Drug Synonyms report^PSA*3*56 POST INIT^3061008.024801"
^XMB(3.9,256,.6)="3061008"
^XMB(3.9,256,1,0)="^3.91A^1^1"
^XMB(3.9,256,1,1,0)="1^0^3061008.025612^^^^^^^3061008.025612"
^XMB(3.9,256,1,"C",1,1)=""
^XMB(3.9,256,2,0)="^^3^3^3061008"
^XMB(3.9,256,2,1,0)="PSA*3*56 DELETE DUPLICATE SYNONYMS REPORT"
^XMB(3.9,256,2,2,0)=" "
^XMB(3.9,256,2,3,0)="There were no duplicate drug-synonyms found. No synonyms removed."
^XMB(3.9,256,6,0)="^3.911A^1^1"
^XMB(3.9,256,6,1,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,256,6,"B","SCHLEHUBER,CAMERON",1)=""
^XMB(3.9,257,0)="Event Capture Provider Field Conversion to New Multiple Field^.5^3061008.03141"
^XMB(3.9,257,.6)="3061008"
^XMB(3.9,257,1,0)="^3.91A^1^1"
^XMB(3.9,257,1,1,0)="1^0^3061008.031436^^^^^^^3061008.031436"
^XMB(3.9,257,1,"C",1,1)=""
^XMB(3.9,257,2,0)="^^21^21^3061008"
^XMB(3.9,257,2,1,0)=" Please forward this message to your local DSS Site Manager or"
^XMB(3.9,257,2,2,0)=" Event Capture ADPAC."
^XMB(3.9,257,2,3,0)=""
^XMB(3.9,257,2,4,0)=" A conversion was done on the providers stored in fields #10, 15 "
^XMB(3.9,257,2,5,0)=" and 17 in Event Capture file #721. The data was moved to a new "
^XMB(3.9,257,2,6,0)=" provider multiple field #42 in file #721. The data in fields "
^XMB(3.9,257,2,7,0)=" #10, 15 and 17 will remain but no new data will be populated in "
^XMB(3.9,257,2,8,0)=" these fields with the installation of EC*2.0*72.  This message "
^XMB(3.9,257,2,9,0)=" provides the results of the conversion."
^XMB(3.9,257,2,10,0)=""
^XMB(3.9,257,2,11,0)="  The provider conversion process was successfully completed."
^XMB(3.9,257,2,12,0)="     Conversion began:            Oct 08, 2006@03:14:10"
^XMB(3.9,257,2,13,0)="     Conversion completed:        Oct 08, 2006@03:14:10"
^XMB(3.9,257,2,14,0)="     Last record (IEN) converted: "
^XMB(3.9,257,2,15,0)="     Last IEN in File #721:       0"
^XMB(3.9,257,2,16,0)="     Total # Records converted:   "
^XMB(3.9,257,2,17,0)=" "
^XMB(3.9,257,2,18,0)="  Make sure the following options are placed back in order"
^XMB(3.9,257,2,19,0)="     ECMENU           Event Capture Menu"
^XMB(3.9,257,2,20,0)="     EC GUI CONTEXT   EC GUI Context version 2.1.0.0"
^XMB(3.9,257,2,21,0)="     ECXEC            Event Capture Extract"
^XMB(3.9,257,6,0)="^3.911A^1^1"
^XMB(3.9,257,6,1,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,257,6,"B","SCHLEHUBER,CAMERON",1)=""
^XMB(3.9,258,0)="Version 26.68 Installed^CPRS PACKAGE^3061008.031742"
^XMB(3.9,258,.6)="3061008"
^XMB(3.9,258,1,0)="^3.91A^2^2"
^XMB(3.9,258,1,1,0)="1^0^3061008.031809^^^^^^^3061008.031809"
^XMB(3.9,258,1,2,0)="G.CPRS GUI INSTALL@ISC-SLC.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,258,1,"AQUEUE",18,2)=""
^XMB(3.9,258,1,"C",1,1)=""
^XMB(3.9,258,1,"C","G.CPRS GUI INSTALL@ISC-SLC.VA.",2)=""
^XMB(3.9,258,2,0)="^^3^3^3061008"
^XMB(3.9,258,2,1,0)="Version 26.68 has been installed."
^XMB(3.9,258,2,2,0)=" "
^XMB(3.9,258,2,3,0)="Install complete:  Oct 08, 2006@03:17:42"
^XMB(3.9,258,6,0)="^3.911A^2^2"
^XMB(3.9,258,6,1,0)="G.CPRS GUI INSTALL@ISC-SLC.VA.GOV"
^XMB(3.9,258,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,258,6,"B","G.CPRS GUI INSTALL@ISC-SLC.VA.",1)=""
^XMB(3.9,258,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,259,0)="Patch RMPR*3.0*110 Clean up completed^PATCH RMPR*3.0*110 CLEAN UP JOB^3061008.032728"
^XMB(3.9,259,.6)="3061008"
^XMB(3.9,259,1,0)="^3.91A^2^2"
^XMB(3.9,259,1,1,0)=".5"
^XMB(3.9,259,1,2,0)="1^0^3061008.034301^^^^^^^3061008.034301"
^XMB(3.9,259,1,"C",.5,1)=""
^XMB(3.9,259,1,"C",1,2)=""
^XMB(3.9,259,2,0)="^^22^22^3061008"
^XMB(3.9,259,2,1,0)="The correction of invalid pointers between files 665.72 & 660 has completed."
^XMB(3.9,259,2,2,0)="Below is a listing of pointers found and the correct pointer located"
^XMB(3.9,259,2,3,0)=""
^XMB(3.9,259,2,4,0)=""
^XMB(3.9,259,2,5,0)="No pointer errors found for files 660/665.72."
^XMB(3.9,259,2,6,0)=""
^XMB(3.9,259,2,7,0)="File 665.72/660 Pointer Errors                Run Date: OCT 8,2006@03:27:28          "
^XMB(3.9,259,2,8,0)="   . . . 660 pointer error internal info . . ."
^XMB(3.9,259,2,9,0)="site    month    vendor      DFN      item   660 pntr        660 ptr correction"
^XMB(3.9,259,2,10,0)=""
^XMB(3.9,259,2,11,0)=""
^XMB(3.9,259,2,12,0)="==>>>  TOTAL POINTERS CORRECTED: 0"
^XMB(3.9,259,2,13,0)=""
^XMB(3.9,259,2,14,0)=""
^XMB(3.9,259,2,15,0)=""
^XMB(3.9,259,2,16,0)=""
^XMB(3.9,259,2,17,0)="==>>>  NEW 660 RECORD DOES NOT MATCH DFN OF 665.72, NOT CORRECTED"
^XMB(3.9,259,2,18,0)=""
^XMB(3.9,259,2,19,0)=""
^XMB(3.9,259,2,20,0)=""
^XMB(3.9,259,2,21,0)=""
^XMB(3.9,259,2,22,0)="==>>>  LOGICAL POINTER COULD NOT BE FOUND FOR 665.72 ENTRY, NOT CORRECTED"
^XMB(3.9,259,6,0)="^3.911A^2^2"
^XMB(3.9,259,6,1,0)="POSTMASTER"
^XMB(3.9,259,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,259,6,"B","POSTMASTER",1)=""
^XMB(3.9,259,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,260,0)="Legacy Billing Provider Secondary IDs and ID Types (IB*2*320)^1^3061008.032846"
^XMB(3.9,260,.6)="3061008"
^XMB(3.9,260,1,0)="^3.91A^1^1"
^XMB(3.9,260,1,1,0)="1^0^3061008.034311^^^^^^^3061008.032846"
^XMB(3.9,260,1,"C",1,1)=""
^XMB(3.9,260,2,0)="^^39^39^3061008"
^XMB(3.9,260,2,1,0)="This message is generated by the pre-install routine for IB patch 320 which"
^XMB(3.9,260,2,2,0)="is eClaims Plus Iteration 2."
^XMB(3.9,260,2,3,0)=""
^XMB(3.9,260,2,4,0)="This patch removes the ability to view or edit the IDs that were previously"
^XMB(3.9,260,2,5,0)="defined in Set #14 of the IB Site Parameters and also in the Provider ID"
^XMB(3.9,260,2,6,0)="Maintenance option, Selection #3."
^XMB(3.9,260,2,7,0)=""
^XMB(3.9,260,2,8,0)="This message is being generated to capture a snapshot of what this data"
^XMB(3.9,260,2,9,0)="looked like prior to the installation of IB patch 320."
^XMB(3.9,260,2,10,0)=""
^XMB(3.9,260,2,11,0)="If any of these IDs are still needed, then they may be defined by using the"
^XMB(3.9,260,2,12,0)="Additional IDs screen in the Insurance Company Editor --> Provider IDs/ID"
^XMB(3.9,260,2,13,0)="Parameters.   The correct Medicare numbers will be automatically populated"
^XMB(3.9,260,2,14,0)="by the software.  The default UPIN for Medicare can be defined in the"
^XMB(3.9,260,2,15,0)="Provider ID Maintenance option, Selection #2 as the insurance company"
^XMB(3.9,260,2,16,0)="default if it is not already there."
^XMB(3.9,260,2,17,0)=""
^XMB(3.9,260,2,18,0)="Provider ID Type                Provider ID"
^XMB(3.9,260,2,19,0)="----------------------------------------------------------------"
^XMB(3.9,260,2,20,0)="BILLING FACILITY PRIMARY ID   : "
^XMB(3.9,260,2,21,0)="FACILITY FED TAX ID #         : 11-1234567"
^XMB(3.9,260,2,22,0)="HMO NUMBER                    : "
^XMB(3.9,260,2,23,0)="PPO NUMBER                    : "
^XMB(3.9,260,2,24,0)="BLUE CROSS ID                 : "
^XMB(3.9,260,2,25,0)="BLUE SHIELD ID                : "
^XMB(3.9,260,2,26,0)="COMMERCIAL ID                 : "
^XMB(3.9,260,2,27,0)="EMC ID                        : "
^XMB(3.9,260,2,28,0)="LOCATION NUMBER               : "
^XMB(3.9,260,2,29,0)="MEDICARE PART A               : 670899"
^XMB(3.9,260,2,30,0)="MEDICARE PART B               : VA024"
^XMB(3.9,260,2,31,0)="NETWORK ID                    : "
^XMB(3.9,260,2,32,0)="STATE INDUSTRIAL ACCIDENT PROV: "
^XMB(3.9,260,2,33,0)="TRICARE ID                    : "
^XMB(3.9,260,2,34,0)="UPIN                          : VAD000"
^XMB(3.9,260,2,35,0)="CLIA #                        : "
^XMB(3.9,260,2,36,0)="DEA #                         : "
^XMB(3.9,260,2,37,0)="PROVIDER FED TAX ID #         : "
^XMB(3.9,260,2,38,0)="SOCIAL SECURITY NUMBER        : "
^XMB(3.9,260,2,39,0)="STATE LICENSE                 : "
^XMB(3.9,260,6,0)="^3.911A^1^1"
^XMB(3.9,260,6,1,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,260,6,"B","SCHLEHUBER,CAMERON",1)=""
^XMB(3.9,261,0)="INSTALL COMPLETED:LR*5.2*343^1^3061008.035249"
^XMB(3.9,261,.6)="3061008"
^XMB(3.9,261,1,0)="^3.91A^1^1"
^XMB(3.9,261,1,1,0)="1^0^3061008.040918^^^^^^^3061008.035249"
^XMB(3.9,261,1,"C",1,1)=""
^XMB(3.9,261,2,0)="^^10^10^3061008"
^XMB(3.9,261,2,1,0)="Pre install started at Oct 08, 2006@03:47:49"
^XMB(3.9,261,2,2,0)="Sent install started alert to mail group G.LMI"
^XMB(3.9,261,2,3,0)="Setting DISABLE and ACTION fields for Protocols"
^XMB(3.9,261,2,4,0)="No actions required for pre install"
^XMB(3.9,261,2,5,0)="Pre install completed at Oct 08, 2006@03:52:49"
^XMB(3.9,261,2,6,0)="Post install started at Oct 08, 2006@03:52:49"
^XMB(3.9,261,2,7,0)="File #69.9 field data update started"
^XMB(3.9,261,2,8,0)="File #69.9 field data deletion finished"
^XMB(3.9,261,2,9,0)="Post install completed at Oct 08, 2006@03:52:49"
^XMB(3.9,261,2,10,0)="Sending install completion alert to mail group G.LMI"
^XMB(3.9,261,6,0)="^3.911A^1^1"
^XMB(3.9,261,6,1,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,261,6,"B","SCHLEHUBER,CAMERON",1)=""
^XMB(3.9,262,0)="File #51 modified records^PSS*1*110 POST INIT^3061008.035708"
^XMB(3.9,262,.6)="3061008"
^XMB(3.9,262,1,0)="^3.91A^1^1"
^XMB(3.9,262,1,1,0)="1^0^3061008.03575^^^^^^^3061008.03575"
^XMB(3.9,262,1,"C",1,1)=""
^XMB(3.9,262,2,0)="^^1^1^3061008"
^XMB(3.9,262,2,1,0)="No NAME conversion was neccessary!"
^XMB(3.9,262,6,0)="^3.911A^1^1"
^XMB(3.9,262,6,1,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,262,6,"B","SCHLEHUBER,CAMERON",1)=""
^XMB(3.9,263,0)="File #51.1 modified records^PSS*1*110 POST INIT^3061008.035708"
^XMB(3.9,263,.6)="3061008"
^XMB(3.9,263,1,0)="^3.91A^1^1"
^XMB(3.9,263,1,1,0)="1^0^3061008.035753^^^^^^^3061008.035753"
^XMB(3.9,263,1,"C",1,1)=""
^XMB(3.9,263,2,0)="^^1^1^3061008"
^XMB(3.9,263,2,1,0)="No NAME conversion was neccessary!"
^XMB(3.9,263,6,0)="^3.911A^1^1"
^XMB(3.9,263,6,1,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,263,6,"B","SCHLEHUBER,CAMERON",1)=""
^XMB(3.9,264,0)="DATA UPDATE FOR NDF^NDF MANAGER^3061008.040612"
^XMB(3.9,264,.6)="3061008"
^XMB(3.9,264,1,0)="^3.91A^3^3"
^XMB(3.9,264,1,1,0)="1^0^3061008.04065^^^^^^^3061008.04065"
^XMB(3.9,264,1,2,0)="63"
^XMB(3.9,264,1,3,0)="68"
^XMB(3.9,264,1,"C",1,1)=""
^XMB(3.9,264,1,"C",63,2)=""
^XMB(3.9,264,1,"C",68,3)=""
^XMB(3.9,264,2,0)="^^404^404^3061008"
^XMB(3.9,264,2,1,0)=" "
^XMB(3.9,264,2,2,0)="The following VA Products have been added to the National"
^XMB(3.9,264,2,3,0)="Drug File.  You may wish to review, then match or unmatch"
^XMB(3.9,264,2,4,0)="local drug file entries based on this updated information."
^XMB(3.9,264,2,5,0)=" "
^XMB(3.9,264,2,6,0)="   ACCU-CHEK AVIVA (GLUCOSE) TEST STRIP"
^XMB(3.9,264,2,7,0)="    (CMOP - A1307)           (DISPENSE UNIT - EA)"
^XMB(3.9,264,2,8,0)="     065702-0103-10   "
^XMB(3.9,264,2,9,0)="   ALGLUCOSIDASE ALFA 50MG/VIL INJ"
^XMB(3.9,264,2,10,0)="    (CMOP - A1306)           (DISPENSE UNIT - VI)"
^XMB(3.9,264,2,11,0)="     058468-0150-01   "
^XMB(3.9,264,2,12,0)="   ALOE VERA LIQUID,ORAL"
^XMB(3.9,264,2,13,0)="    (CMOP - A1309)           (DISPENSE UNIT - ML)"
^XMB(3.9,264,2,14,0)="     058826-0707-33   "
^XMB(3.9,264,2,15,0)="   ALOE VESTA 3-N-1 PROTECTIVE OINT,TOP"
^XMB(3.9,264,2,16,0)="    (CMOP - A1308)           (DISPENSE UNIT - GM)"
^XMB(3.9,264,2,17,0)="     030003-3249-13   030003-3249-08   "
^XMB(3.9,264,2,18,0)="   AMIODARONE HCL (BARR) 200MG TAB"
^XMB(3.9,264,2,19,0)="    (CMOP - A1301)           (DISPENSE UNIT - TAB)"
^XMB(3.9,264,2,20,0)="     000555-0917-09   000555-0917-04   "
^XMB(3.9,264,2,21,0)="   AMIODARONE HCL (EON) 200MG TAB"
^XMB(3.9,264,2,22,0)="    (CMOP - A1302)           (DISPENSE UNIT - TAB)"
^XMB(3.9,264,2,23,0)="     000185-0144-60   000185-0144-05   "
^XMB(3.9,264,2,24,0)="   AMIODARONE HCL (TEVA) 200MG TAB"
^XMB(3.9,264,2,25,0)="    (CMOP - A1303)           (DISPENSE UNIT - TAB)"
^XMB(3.9,264,2,26,0)="     000093-9133-06   000093-9133-52   "
^XMB(3.9,264,2,27,0)="   AMYLASE 58500UNIT/LIPASE 18000UNIT/PROTEASE 58500UNIT CAP,EC"
^XMB(3.9,264,2,28,0)="    (CMOP - A1300)           (DISPENSE UNIT - CAP)"
^XMB(3.9,264,2,29,0)="     058914-0018-10   "
^XMB(3.9,264,2,30,0)="   ARANELLE TAB,28"
^XMB(3.9,264,2,31,0)="    (CMOP - A1305)           (DISPENSE UNIT - CYCLE)"
^XMB(3.9,264,2,32,0)="     000555-9066-67   "
^XMB(3.9,264,2,33,0)="   ARIPIPRAZOLE 2MG TAB,UD"
^XMB(3.9,264,2,34,0)="    (CMOP - A1299)           (DISPENSE UNIT - TAB)"
^XMB(3.9,264,2,35,0)="     059148-0006-35   "
^XMB(3.9,264,2,36,0)="   ARIPIPRAZOLE 2MG TAB"
^XMB(3.9,264,2,37,0)="    (CMOP - A1298)           (DISPENSE UNIT - TAB)"
^XMB(3.9,264,2,38,0)="     059148-0006-13   "
^XMB(3.9,264,2,39,0)="   AVIANE TAB,28"
^XMB(3.9,264,2,40,0)="    (CMOP - A1304)           (DISPENSE UNIT - CYCLE)"
^XMB(3.9,264,2,41,0)="     000555-9045-58   "
^XMB(3.9,264,2,42,0)="   BAG BALM OINT,TOP"
^XMB(3.9,264,2,43,0)="    (CMOP - B0549)           (DISPENSE UNIT - GM)"
^XMB(3.9,264,2,44,0)="     098193-0001-00   "
^XMB(3.9,264,2,45,0)="   BD LOGIC (GLUCOSE) DEVICE"
^XMB(3.9,264,2,46,0)="    (CMOP - XV078)           (DISPENSE UNIT - EA)"
^XMB(3.9,264,2,47,0)="     008290-3220-29   008290-3220-25   008290-3220-51   "
^XMB(3.9,264,2,48,0)="   BENZALKONIUM CL 0.011% SPRAY,TOP"
^XMB(3.9,264,2,49,0)="    (CMOP - B0548)           (DISPENSE UNIT - ML)"
^XMB(3.9,264,2,50,0)="     017518-0020-01   "
^XMB(3.9,264,2,51,0)="   BETAMETHASONE DIPROPIONATE 0.064%/CALCIPOTRIENE 0.005% OINT,TOP"
^XMB(3.9,264,2,52,0)="    (CMOP - B0550)           (DISPENSE UNIT - GM)"
^XMB(3.9,264,2,53,0)="     000430-3230-15   "
^XMB(3.9,264,2,54,0)="   CALCIUM 1000MG/MAGNESIUM OXIDE 400MG/ZINC GLUCONATE 15MG TAB"
^XMB(3.9,264,2,55,0)="    (CMOP - C1246)           (DISPENSE UNIT - TAB)"
^XMB(3.9,264,2,56,0)="     060142-0113-10   "
^XMB(3.9,264,2,57,0)="   CAMPHOR/MENTHOL OINT,TOP"
^XMB(3.9,264,2,58,0)="    (CMOP - C1241)           (DISPENSE UNIT - GM)"
^XMB(3.9,264,2,59,0)="     066403-0308-35   "
^XMB(3.9,264,2,60,0)="   CATHERIZATION SET,INTERMITTENT 10FR H#96104"
^XMB(3.9,264,2,61,0)="    (CMOP - XV064)           (DISPENSE UNIT - EA)"
^XMB(3.9,264,2,62,0)="     999019-6104-01   "
^XMB(3.9,264,2,63,0)="   CATHERIZATION SET,INTERMITTENT 12FR H#96124"
^XMB(3.9,264,2,64,0)="    (CMOP - XV065)           (DISPENSE UNIT - EA)"
^XMB(3.9,264,2,65,0)="     999019-6124-01   "
^XMB(3.9,264,2,66,0)="   CATHERIZATION SET,INTERMITTENT 14FR H#96144"
^XMB(3.9,264,2,67,0)="    (CMOP - XV066)           (DISPENSE UNIT - EA)"
^XMB(3.9,264,2,68,0)="     999019-6144-01   "
^XMB(3.9,264,2,69,0)="   CATHERIZATION SET,INTERMITTENT 16FR H#96164"
^XMB(3.9,264,2,70,0)="    (CMOP - XV067)           (DISPENSE UNIT - EA)"
^XMB(3.9,264,2,71,0)="     999019-6164-01   "
^XMB(3.9,264,2,72,0)="   CATHERIZATION SET,INTERMITTENT 18FR H#96184"
^XMB(3.9,264,2,73,0)="    (CMOP - XV068)           (DISPENSE UNIT - EA)"
^XMB(3.9,264,2,74,0)="     999019-6184-01   "
^XMB(3.9,264,2,75,0)="   CATHERIZATION SET,INTERMITTENT 6FR H#96064"
^XMB(3.9,264,2,76,0)="    (CMOP - XV062)           (DISPENSE UNIT - EA)"
^XMB(3.9,264,2,77,0)="     999019-6064-01   "
^XMB(3.9,264,2,78,0)="   CATHERIZATION SET,INTERMITTENT 8FR H#96084"
^XMB(3.9,264,2,79,0)="    (CMOP - XV063)           (DISPENSE UNIT - EA)"
^XMB(3.9,264,2,80,0)="     999019-6084-01   "
^XMB(3.9,264,2,81,0)="   CEREFOLIN NAC TAB"
^XMB(3.9,264,2,82,0)="    (CMOP - C1245)           (DISPENSE UNIT - TAB)"
^XMB(3.9,264,2,83,0)="     000525-0510-90   000525-0510-50   "
^XMB(3.9,264,2,84,0)="   CESIA TAB,28"
^XMB(3.9,264,2,85,0)="    (CMOP - C1244)           (DISPENSE UNIT - CYCLE)"
^XMB(3.9,264,2,86,0)="     066993-0615-28   "
^XMB(3.9,264,2,87,0)="   CHOLEST OFF TAB"
^XMB(3.9,264,2,88,0)="    (CMOP - C1243)           (DISPENSE UNIT - TAB)"
^XMB(3.9,264,2,89,0)="     993840-5740-10   "
^XMB(3.9,264,2,90,0)="   CINNAMON CAP/TAB"
^XMB(3.9,264,2,91,0)="    (CMOP - C1242)           (DISPENSE UNIT - CAP/TAB)"
^XMB(3.9,264,2,92,0)="     074312-2568-01   "
^XMB(3.9,264,2,93,0)="   CISPLATIN PWDR"
^XMB(3.9,264,2,94,0)="    (CMOP - C1240)           (DISPENSE UNIT - GM)"
^XMB(3.9,264,2,95,0)="     051552-1076-09   "
^XMB(3.9,264,2,96,0)="   CLOBETASOL PROPIONATE 0.05% SPRAY,TOP"
^XMB(3.9,264,2,97,0)="    (CMOP - C1239)           (DISPENSE UNIT - ML)"
^XMB(3.9,264,2,98,0)="     000299-3849-02   "
^XMB(3.9,264,2,99,0)="   CONVEX INSERT,ADAPT C#79520"
^XMB(3.9,264,2,100,0)="    (CMOP - XV071)           (DISPENSE UNIT - EA)"
^XMB(3.9,264,2,101,0)="     999010-0795-20   "
^XMB(3.9,264,2,102,0)="   CONVEX INSERT,ADAPT C#79530"
^XMB(3.9,264,2,103,0)="    (CMOP - XV072)           (DISPENSE UNIT - EA)"
^XMB(3.9,264,2,104,0)="     999010-0795-30   "
^XMB(3.9,264,2,105,0)="   CONVEX INSERT,ADAPT C#79540"
^XMB(3.9,264,2,106,0)="    (CMOP - XV073)           (DISPENSE UNIT - EA)"
^XMB(3.9,264,2,107,0)="     999010-0795-40   "
^XMB(3.9,264,2,108,0)="   DILTIAZEM (CARDIZEM LA) 180MG SA TAB"
^XMB(3.9,264,2,109,0)="    (CMOP - D0689)           (DISPENSE UNIT - TAB)"
^XMB(3.9,264,2,110,0)="     064455-0101-30   064455-0101-90   "
^XMB(3.9,264,2,111,0)="   DILTIAZEM (CARDIZEM LA) 300MG SA TAB"
^XMB(3.9,264,2,112,0)="    (CMOP - D0690)           (DISPENSE UNIT - TAB)"
^XMB(3.9,264,2,113,0)="     064455-0103-30   064455-0103-90   "
^XMB(3.9,264,2,114,0)="   DILTIAZEM (CARDIZEM LA) 360MG SA TAB"
^XMB(3.9,264,2,115,0)="    (CMOP - D0691)           (DISPENSE UNIT - TAB)"
^XMB(3.9,264,2,116,0)="     064455-0104-30   064455-0104-90   "
^XMB(3.9,264,2,117,0)="   DILTIAZEM (CARDIZEM LA) 420MG SA TAB"
^XMB(3.9,264,2,118,0)="    (CMOP - D0687)           (DISPENSE UNIT - TAB)"
^XMB(3.9,264,2,119,0)="     064455-0105-30   064455-0105-90   "
^XMB(3.9,264,2,120,0)="   DIPHTH,PERTUSS(ACELL),TET PED 2.5-8-5/0.5 INJ,SUSP,0.5ML,SYR"
^XMB(3.9,264,2,121,0)="    (CMOP - D0692)           (DISPENSE UNIT - SYR)"
^XMB(3.9,264,2,122,0)="     058160-0842-46   058160-0842-11   "
^XMB(3.9,264,2,123,0)="   DOXERCALCIFEROL 2.5MCG CAP"
^XMB(3.9,264,2,124,0)="    (CMOP - D0693)           (DISPENSE UNIT - CAP)"
^XMB(3.9,264,2,125,0)="     064894-0825-50   "
^XMB(3.9,264,2,126,0)="   DOXYCYCLINE HYCLATE 100MG CAP,EC"
^XMB(3.9,264,2,127,0)="    (CMOP - D0695)           (DISPENSE UNIT - CAP)"
^XMB(3.9,264,2,128,0)="     000430-0838-19   "
^XMB(3.9,264,2,129,0)="   DOXYCYCLINE HYCLATE 75MG CAP,EC"
^XMB(3.9,264,2,130,0)="    (CMOP - D0694)           (DISPENSE UNIT - CAP)"
^XMB(3.9,264,2,131,0)="     000430-0111-20   "
^XMB(3.9,264,2,132,0)="   ELDERBERRY EXTRACT CAP/TAB"
^XMB(3.9,264,2,133,0)="    (CMOP - E0437)           (DISPENSE UNIT - CAP/TAB)"
^XMB(3.9,264,2,134,0)="     051927-3507-00   "
^XMB(3.9,264,2,135,0)="   EPHEDRINE S04 25MG/GUAIFENESIN 400MG TAB"
^XMB(3.9,264,2,136,0)="    (CMOP - E0433)           (DISPENSE UNIT - TAB)"
^XMB(3.9,264,2,137,0)="     000024-4081-02   "
^XMB(3.9,264,2,138,0)="   ESOMEPRAZOLE NA 20MG/VIL INJ"
^XMB(3.9,264,2,139,0)="    (CMOP - E0436)           (DISPENSE UNIT - VI)"
^XMB(3.9,264,2,140,0)="     000186-6020-01   "
^XMB(3.9,264,2,141,0)="   ESOMEPRAZOLE NA 40MG/VIL INJ"
^XMB(3.9,264,2,142,0)="    (CMOP - E0434)           (DISPENSE UNIT - VI)"
^XMB(3.9,264,2,143,0)="     000186-6040-01   "
^XMB(3.9,264,2,144,0)="   FOLLITROPIN BETA 900UNIT/1.08ML INJ"
^XMB(3.9,264,2,145,0)="    (CMOP - F0365)           (DISPENSE UNIT - VI)"
^XMB(3.9,264,2,146,0)="     000052-0326-01   "
^XMB(3.9,264,2,147,0)="   GLYCERIN 0.2%/HYPROMELLOSE 0.2%/POLYETHYLENE GLYCOL 1%/ SOLN,OPH"
^XMB(3.9,264,2,148,0)="    (CMOP - G0268)           (DISPENSE UNIT - ML)"
^XMB(3.9,264,2,149,0)="     074300-0081-78   "
^XMB(3.9,264,2,150,0)="   HERBAL LAXATIVE,ALOE/CASCARA/FENNEL/SENNA CAP/TAB"
^XMB(3.9,264,2,151,0)="    (CMOP - H0488)           (DISPENSE UNIT - CAP/TAB)"
^XMB(3.9,264,2,152,0)="     990232-2658-01   "
^XMB(3.9,264,2,153,0)="   HYALURONATE NA 0.2% CREAM,TOP"
^XMB(3.9,264,2,154,0)="    (CMOP - H0485)           (DISPENSE UNIT - GM)"
^XMB(3.9,264,2,155,0)="     068712-0007-02   "
^XMB(3.9,264,2,156,0)="   HYALURONATE NA 0.2% GEL,TOP"
^XMB(3.9,264,2,157,0)="    (CMOP - H0486)           (DISPENSE UNIT - GM)"
^XMB(3.9,264,2,158,0)="     068712-0008-02   "
^XMB(3.9,264,2,159,0)="   HYALURONATE NA 0.2% SPRAY,TOP"
^XMB(3.9,264,2,160,0)="    (CMOP - H0487)           (DISPENSE UNIT - ML)"
^XMB(3.9,264,2,161,0)="     068712-0009-01   "
^XMB(3.9,264,2,162,0)="   HYDROCODONE 5MG/GUAIFENESIN 300MG (M-PHASE) CAP,SA"
^XMB(3.9,264,2,163,0)="    (CMOP - H0484)           (DISPENSE UNIT - CAP)"
^XMB(3.9,264,2,164,0)="     059702-0814-01   "
^XMB(3.9,264,2,165,0)="   HYDROCORTISONE 0.5%/LIDOCAINE 3% LOTION,TOP"
^XMB(3.9,264,2,166,0)="    (CMOP - H0482)           (DISPENSE UNIT - ML)"
^XMB(3.9,264,2,167,0)="     010337-0715-10   "
^XMB(3.9,264,2,168,0)="   IBANDRONATE NA 1MG/ML INJ,SYRINGE,3ML"
^XMB(3.9,264,2,169,0)="    (CMOP - I0435)           (DISPENSE UNIT - SYR)"
^XMB(3.9,264,2,170,0)="     000004-0188-09   "
^XMB(3.9,264,2,171,0)="   IMIGLUCERASE 400U/VIL INJ"
^XMB(3.9,264,2,172,0)="    (CMOP - I0434)           (DISPENSE UNIT - VI)"
^XMB(3.9,264,2,173,0)="     058468-4663-01   "
^XMB(3.9,264,2,174,0)="   INSULIN,DETEMIR,HUMAN 100 UNIT/ML INJ,FLEXPEN,3ML"
^XMB(3.9,264,2,175,0)="    (CMOP - I0433)           (DISPENSE UNIT - SYR)"
^XMB(3.9,264,2,176,0)="     000169-6439-10   "
^XMB(3.9,264,2,177,0)="   INSULIN,DETEMIR,HUMAN 100 UNIT/ML INJ"
^XMB(3.9,264,2,178,0)="    (CMOP - I0432)           (DISPENSE UNIT - VI)"
^XMB(3.9,264,2,179,0)="     000169-3687-12   "
^XMB(3.9,264,2,180,0)="   JUNEL 1.5/30 TAB,21"
^XMB(3.9,264,2,181,0)="    (CMOP - J0015)           (DISPENSE UNIT - CYCLE)"
^XMB(3.9,264,2,182,0)="     000555-9027-57   "
^XMB(3.9,264,2,183,0)="   JUNEL FE 1.5/30 TAB,28"
^XMB(3.9,264,2,184,0)="    (CMOP - J0016)           (DISPENSE UNIT - CYCLE)"
^XMB(3.9,264,2,185,0)="     000555-9028-58   "
^XMB(3.9,264,2,186,0)="   KELNOR 1/35 TAB,28"
^XMB(3.9,264,2,187,0)="    (CMOP - K0044)           (DISPENSE UNIT - CYCLE)"
^XMB(3.9,264,2,188,0)="     000555-9064-67   "
^XMB(3.9,264,2,189,0)="   LANCET,BD DEVICE"
^XMB(3.9,264,2,190,0)="    (CMOP - XV082)           (DISPENSE UNIT - EA)"
^XMB(3.9,264,2,191,0)="     082903-0257-75   "
^XMB(3.9,264,2,192,0)="   LANCET,ULTRA-FINE 33G"
^XMB(3.9,264,2,193,0)="    (CMOP - XV083)           (DISPENSE UNIT - EA)"
^XMB(3.9,264,2,194,0)="     008290-3220-57   "
^XMB(3.9,264,2,195,0)="   LANTHANUM CARBONATE 1000MG TAB,CHEWABLE"
^XMB(3.9,264,2,196,0)="    (CMOP - L0365)           (DISPENSE UNIT - TAB)"
^XMB(3.9,264,2,197,0)="     054092-0254-90   "
^XMB(3.9,264,2,198,0)="   LEENA TAB,28"
^XMB(3.9,264,2,199,0)="    (CMOP - L0367)           (DISPENSE UNIT - CYCLE)"
^XMB(3.9,264,2,200,0)="     052544-0219-28   "
^XMB(3.9,264,2,201,0)="   LENALIDOMIDE 10MG CAP,ORAL"
^XMB(3.9,264,2,202,0)="    (CMOP - L0364)           (DISPENSE UNIT - CAP)"
^XMB(3.9,264,2,203,0)="     059572-0410-30   059572-0410-00   "
^XMB(3.9,264,2,204,0)="   LOW-OGESTREL TAB,28"
^XMB(3.9,264,2,205,0)="    (CMOP - L0366)           (DISPENSE UNIT - CYCLE)"
^XMB(3.9,264,2,206,0)="     052544-0847-28   "
^XMB(3.9,264,2,207,0)="   METHOTREXATE NA 2.5MG TAB,UD"
^XMB(3.9,264,2,208,0)="    (CMOP - M0677)           (DISPENSE UNIT - TAB)"
^XMB(3.9,264,2,209,0)="     000054-8550-25   "
^XMB(3.9,264,2,210,0)="   METHYLPHENIDATE 10MG/9HR PATCH"
^XMB(3.9,264,2,211,0)="    (CMOP - M0673)           (DISPENSE UNIT - PATCH)"
^XMB(3.9,264,2,212,0)="     054092-0552-30   054092-0552-10   "
^XMB(3.9,264,2,213,0)="   METHYLPHENIDATE 15MG/9HR PATCH"
^XMB(3.9,264,2,214,0)="    (CMOP - M0674)           (DISPENSE UNIT - PATCH)"
^XMB(3.9,264,2,215,0)="     054092-0553-30   054092-0553-10   "
^XMB(3.9,264,2,216,0)="   METHYLPHENIDATE 20MG/9HR PATCH"
^XMB(3.9,264,2,217,0)="    (CMOP - M0675)           (DISPENSE UNIT - PATCH)"
^XMB(3.9,264,2,218,0)="     054092-0554-30   054092-0554-10   "
^XMB(3.9,264,2,219,0)="   METHYLPHENIDATE 30MG/9HR PATCH"
^XMB(3.9,264,2,220,0)="    (CMOP - M0676)           (DISPENSE UNIT - PATCH)"
^XMB(3.9,264,2,221,0)="     054092-0555-30   054092-0555-10   "
^XMB(3.9,264,2,222,0)="   METHYLPHENIDATE HCL 10MG/5ML SOLN,ORAL"
^XMB(3.9,264,2,223,0)="    (CMOP - M0672)           (DISPENSE UNIT - ML)"
^XMB(3.9,264,2,224,0)="     068188-0882-50   "
^XMB(3.9,264,2,225,0)="   MICROGESTIN 1/20 TAB,21"
^XMB(3.9,264,2,226,0)="    (CMOP - M0678)           (DISPENSE UNIT - CYCLE)"
^XMB(3.9,264,2,227,0)="     052544-0950-21   "
^XMB(3.9,264,2,228,0)="   MICROGESTIN FE 1/20 TAB,28"
^XMB(3.9,264,2,229,0)="    (CMOP - M0679)           (DISPENSE UNIT - CYCLE)"
^XMB(3.9,264,2,230,0)="     052544-0630-28   "
^XMB(3.9,264,2,231,0)="   MORINDA (NONI) LIQUID,ORAL"
^XMB(3.9,264,2,232,0)="    (CMOP - M0680)           (DISPENSE UNIT - ML)"
^XMB(3.9,264,2,233,0)="     990458-5789-01   "
^XMB(3.9,264,2,234,0)="   MULTIVITAMIN/ST. JOHN'S MOOD PLUS TAB"
^XMB(3.9,264,2,235,0)="    (CMOP - M0681)           (DISPENSE UNIT - TAB)"
^XMB(3.9,264,2,236,0)="     999212-2562-01   "
^XMB(3.9,264,2,237,0)="   NECON 0.5/35 TAB,28"
^XMB(3.9,264,2,238,0)="    (CMOP - N0479)           (DISPENSE UNIT - CYCLE)"
^XMB(3.9,264,2,239,0)="     052544-0550-28   "
^XMB(3.9,264,2,240,0)="   NECON 10/11 TAB,28"
^XMB(3.9,264,2,241,0)="    (CMOP - N0482)           (DISPENSE UNIT - CYCLE)"
^XMB(3.9,264,2,242,0)="     052544-0554-28   "
^XMB(3.9,264,2,243,0)="   NEEDLE,PEN 31G,5MM"
^XMB(3.9,264,2,244,0)="    (CMOP - XV081)           (DISPENSE UNIT - EA)"
^XMB(3.9,264,2,245,0)="     082903-0201-19   "
^XMB(3.9,264,2,246,0)="   NEEDLE,PEN 31G,8MM"
^XMB(3.9,264,2,247,0)="    (CMOP - XV080)           (DISPENSE UNIT - EA)"
^XMB(3.9,264,2,248,0)="     082903-0201-09   "
^XMB(3.9,264,2,249,0)="   NITROGLYCERIN (ETHEX) 0.6MG TAB,SUBLINGUAL"
^XMB(3.9,264,2,250,0)="    (CMOP - N0478)           (DISPENSE UNIT - TAB)"
^XMB(3.9,264,2,251,0)="     058177-0325-04   "
^XMB(3.9,264,2,252,0)="   NORTREL 7/7/7 TAB,28"
^XMB(3.9,264,2,253,0)="    (CMOP - N0481)           (DISPENSE UNIT - CYCLE)"
^XMB(3.9,264,2,254,0)="     000555-9012-58   "
^XMB(3.9,264,2,255,0)="   NORTREL TAB,28"
^XMB(3.9,264,2,256,0)="    (CMOP - N0480)           (DISPENSE UNIT - CYCLE)"
^XMB(3.9,264,2,257,0)="     000555-9010-58   "
^XMB(3.9,264,2,258,0)="   OGESTREL-28 TAB,28"
^XMB(3.9,264,2,259,0)="    (CMOP - O0202)           (DISPENSE UNIT - CYCLE)"
^XMB(3.9,264,2,260,0)="     052544-0848-28   "
^XMB(3.9,264,2,261,0)="   PLEURX DRAINAGE KIT D#50-7500"
^XMB(3.9,264,2,262,0)="    (CMOP - XV077)           (DISPENSE UNIT - EA)"
^XMB(3.9,264,2,263,0)="     999950-7500-10   "
^XMB(3.9,264,2,264,0)="   PORTIA TAB,28"
^XMB(3.9,264,2,265,0)="    (CMOP - P0754)           (DISPENSE UNIT - CYCLE)"
^XMB(3.9,264,2,266,0)="     000555-9020-58   "
^XMB(3.9,264,2,267,0)="   POUCH,DRAINABLE,SUR-FIT C#4040-29"
^XMB(3.9,264,2,268,0)="    (CMOP - XV070)           (DISPENSE UNIT - EA)"
^XMB(3.9,264,2,269,0)="     000030-4040-29   "
^XMB(3.9,264,2,270,0)="   PROPRANOLOL HCL (INNOPRAN XL) 120MG CAP,SA"
^XMB(3.9,264,2,271,0)="    (CMOP - P0752)           (DISPENSE UNIT - CAP)"
^XMB(3.9,264,2,272,0)="     065726-0251-10   065726-0251-25   "
^XMB(3.9,264,2,273,0)="   PROPRANOLOL HCL (INNOPRAN XL) 80MG CAP,SA"
^XMB(3.9,264,2,274,0)="    (CMOP - P0753)           (DISPENSE UNIT - CAP)"
^XMB(3.9,264,2,275,0)="     065726-0250-10   065726-0250-25   "
^XMB(3.9,264,2,276,0)="   QUETIAPINE FUMARATE 400MG TAB,UD"
^XMB(3.9,264,2,277,0)="    (CMOP - Q0038)           (DISPENSE UNIT - TAB)"
^XMB(3.9,264,2,278,0)="     000310-0279-39   "
^XMB(3.9,264,2,279,0)="   QUETIAPINE FUMARATE 400MG TAB"
^XMB(3.9,264,2,280,0)="    (CMOP - Q0037)           (DISPENSE UNIT - TAB)"
^XMB(3.9,264,2,281,0)="     000310-0279-10   "
^XMB(3.9,264,2,282,0)="   QUETIAPINE FUMARATE 50MG TAB,UD"
^XMB(3.9,264,2,283,0)="    (CMOP - Q0040)           (DISPENSE UNIT - TAB)"
^XMB(3.9,264,2,284,0)="     000310-0278-39   "
^XMB(3.9,264,2,285,0)="   QUETIAPINE FUMARATE 50MG TAB"
^XMB(3.9,264,2,286,0)="    (CMOP - Q0039)           (DISPENSE UNIT - TAB)"
^XMB(3.9,264,2,287,0)="     000310-0278-10   "
^XMB(3.9,264,2,288,0)="   RECLIPSEN TAB,28"
^XMB(3.9,264,2,289,0)="    (CMOP - R0191)           (DISPENSE UNIT - CYCLE)"
^XMB(3.9,264,2,290,0)="     052544-0954-28   "
^XMB(3.9,264,2,291,0)="   RISPERIDONE 3MG TAB,ORAL DISINTEGRATING"
^XMB(3.9,264,2,292,0)="    (CMOP - R0192)           (DISPENSE UNIT - TAB)"
^XMB(3.9,264,2,293,0)="     050458-0335-28   "
^XMB(3.9,264,2,294,0)="   RISPERIDONE 4MG TAB,ORAL DISINTEGRATING"
^XMB(3.9,264,2,295,0)="    (CMOP - R0193)           (DISPENSE UNIT - TAB)"
^XMB(3.9,264,2,296,0)="     050458-0355-28   "
^XMB(3.9,264,2,297,0)="   SALICYLIC ACID 6% LOTION,TOP"
^XMB(3.9,264,2,298,0)="    (CMOP - S0451)           (DISPENSE UNIT - ML)"
^XMB(3.9,264,2,299,0)="     054868-5481-00   "
^XMB(3.9,264,2,300,0)="   SOLIA TAB,28"
^XMB(3.9,264,2,301,0)="    (CMOP - S0455)           (DISPENSE UNIT - CYCLE)"
^XMB(3.9,264,2,302,0)="     066993-0611-28   "
^XMB(3.9,264,2,303,0)="   SUMATRIPTAN SUCCINATE 4MG/0.5ML INJ,STATDOSE RFL KIT"
^XMB(3.9,264,2,304,0)="    (CMOP - S0453)           (DISPENSE UNIT - KIT)"
^XMB(3.9,264,2,305,0)="     000173-0739-02   "
^XMB(3.9,264,2,306,0)="   SUMATRIPTAN SUCCINATE 4MG/0.5ML INJ,STATDOSE SYSTEM KIT"
^XMB(3.9,264,2,307,0)="    (CMOP - S0454)           (DISPENSE UNIT - KIT)"
^XMB(3.9,264,2,308,0)="     000173-0739-00   "
^XMB(3.9,264,2,309,0)="   TRI-SPRINTEC TAB,28"
^XMB(3.9,264,2,310,0)="    (CMOP - T0605)           (DISPENSE UNIT - CYCLE)"
^XMB(3.9,264,2,311,0)="     000555-9018-58   "
^XMB(3.9,264,2,312,0)="   TRIVORA TAB,28"
^XMB(3.9,264,2,313,0)="    (CMOP - T0606)           (DISPENSE UNIT - CYCLE)"
^XMB(3.9,264,2,314,0)="     052544-0291-28   "
^XMB(3.9,264,2,315,0)="   UDAMIN TAB"
^XMB(3.9,264,2,316,0)="    (CMOP - U0047)           (DISPENSE UNIT - TAB)"
^XMB(3.9,264,2,317,0)="     066869-0220-10   "
^XMB(3.9,264,2,318,0)="   UREA 50% SOLN,TOP"
^XMB(3.9,264,2,319,0)="    (CMOP - U0046)           (DISPENSE UNIT - ML)"
^XMB(3.9,264,2,320,0)="     010337-0648-10   "
^XMB(3.9,264,2,321,0)="   URSODIOL 500MG TAB"
^XMB(3.9,264,2,322,0)="    (CMOP - U0045)           (DISPENSE UNIT - TAB)"
^XMB(3.9,264,2,323,0)="     058914-0790-10   "
^XMB(3.9,264,2,324,0)="   WAFER,DURAHESIVE C#4131-64"
^XMB(3.9,264,2,325,0)="    (CMOP - XV074)           (DISPENSE UNIT - EA)"
^XMB(3.9,264,2,326,0)="     930003-4131-64   "
^XMB(3.9,264,2,327,0)="   WAFER,DURAHESIVE C#4131-65"
^XMB(3.9,264,2,328,0)="    (CMOP - XV075)           (DISPENSE UNIT - EA)"
^XMB(3.9,264,2,329,0)="     930003-4131-65   "
^XMB(3.9,264,2,330,0)="   WAFER,DURAHESIVE C#4131-66"
^XMB(3.9,264,2,331,0)="    (CMOP - XV076)           (DISPENSE UNIT - EA)"
^XMB(3.9,264,2,332,0)="     930003-4131-66   "
^XMB(3.9,264,2,333,0)="   YAZ TAB,28"
^XMB(3.9,264,2,334,0)="    (CMOP - Y0007)           (DISPENSE UNIT - CYCLE)"
^XMB(3.9,264,2,335,0)="     005419-0405-03   "
^XMB(3.9,264,2,336,0)="   ZOVIA 1/50E TAB,28"
^XMB(3.9,264,2,337,0)="    (CMOP - Z0070)           (DISPENSE UNIT - CYCLE)"
^XMB(3.9,264,2,338,0)="     052544-0384-28   "
^XMB(3.9,264,2,339,0)=" "
^XMB(3.9,264,2,340,0)="The National Formulary Indicator has changed for the following"
^XMB(3.9,264,2,341,0)="VA Products.  The National Formulary Indicator will automatically"
^XMB(3.9,264,2,342,0)="be changed in your local DRUG file (#50).  Please review the"
^XMB(3.9,264,2,343,0)="VISN and Local Formulary designations of these products and"
^XMB(3.9,264,2,344,0)="make appropriate changes."
^XMB(3.9,264,2,345,0)=" "
^XMB(3.9,264,2,346,0)="FORMULARY ITEMS"
^XMB(3.9,264,2,347,0)="   AMOXICILLIN TRIHYDRATE 875MG/CLAVULANATE K 125MG TAB,UD"
^XMB(3.9,264,2,348,0)="   AMYLASE 58500UNIT/LIPASE 18000UNIT/PROTEASE 58500UNIT CAP,EC"
^XMB(3.9,264,2,349,0)="   ARIPIPRAZOLE 2MG TAB"
^XMB(3.9,264,2,350,0)="   ARIPIPRAZOLE 2MG TAB,UD"
^XMB(3.9,264,2,351,0)="   ATROPINE SO4 0.025MG/DIPHENOXYLATE HCL 2.5MG TAB,UD"
^XMB(3.9,264,2,352,0)="   BUPRENORPHINE HCL 2MG TAB,SUBLINGUAL"
^XMB(3.9,264,2,353,0)="   BUPRENORPHINE HCL 2MG/NALOXONE HCL 0.5MG TAB,SUBLINGUAL"
^XMB(3.9,264,2,354,0)="   BUPRENORPHINE HCL 8MG TAB,SUBLINGUAL"
^XMB(3.9,264,2,355,0)="   BUPRENORPHINE HCL 8MG/NALOXONE HCL 2MG TAB,SUBLINGUAL"
^XMB(3.9,264,2,356,0)="   CALCIUM ACETATE 667MG (CA 167MG) CAP"
^XMB(3.9,264,2,357,0)="   CITRIC ACID 334MG/SODIUM CITRATE 500MG/5ML SOLN,ORAL,15ML"
^XMB(3.9,264,2,358,0)="   CITRIC ACID 334MG/SODIUM CITRATE 500MG/5ML SOLN,ORAL,30ML"
^XMB(3.9,264,2,359,0)="   HALOPERIDOL 2MG/ML SOLN,ORAL,5ML"
^XMB(3.9,264,2,360,0)="   HYDROCHLOROTHIAZIDE 25MG/SPIRONOLACTONE 25MG TAB"
^XMB(3.9,264,2,361,0)="   HYDROCHLOROTHIAZIDE 50MG/SPIRONOLACTONE 50MG TAB"
^XMB(3.9,264,2,362,0)="   LEVALBUTEROL TARTRATE 59MCG/SPRAY INHL,ORAL,15GM"
^XMB(3.9,264,2,363,0)="   METHOTREXATE NA 2.5MG TAB,UD"
^XMB(3.9,264,2,364,0)="   NITROGLYCERIN (ETHEX) 0.6MG TAB,SUBLINGUAL"
^XMB(3.9,264,2,365,0)="   QUETIAPINE FUMARATE 400MG TAB"
^XMB(3.9,264,2,366,0)="   QUETIAPINE FUMARATE 400MG TAB,UD"
^XMB(3.9,264,2,367,0)="   QUETIAPINE FUMARATE 50MG TAB"
^XMB(3.9,264,2,368,0)="   QUETIAPINE FUMARATE 50MG TAB,UD"
^XMB(3.9,264,2,369,0)="   SORBITOL 70% SOLN,30ML"
^XMB(3.9,264,2,370,0)="   SUMATRIPTAN SUCCINATE 4MG/0.5ML INJ,STATDOSE RFL KIT"
^XMB(3.9,264,2,371,0)="   SUMATRIPTAN SUCCINATE 4MG/0.5ML INJ,STATDOSE SYSTEM KIT"
^XMB(3.9,264,2,372,0)="   URSODIOL 500MG TAB"
^XMB(3.9,264,2,373,0)=" "
^XMB(3.9,264,2,374,0)="NON-FORMULARY ITEMS"
^XMB(3.9,264,2,375,0)="   OXYCODONE HCL 10MG TAB,SA"
^XMB(3.9,264,2,376,0)="   OXYCODONE HCL 10MG TAB,SA,UD"
^XMB(3.9,264,2,377,0)="   OXYCODONE HCL 20MG TAB,SA,UD"
^XMB(3.9,264,2,378,0)="   OXYCODONE HCL 40MG TAB,SA"
^XMB(3.9,264,2,379,0)="   OXYCODONE HCL 80MG TAB,SA"
^XMB(3.9,264,2,380,0)="   PLACEBO TAB"
^XMB(3.9,264,2,381,0)="   SELENIUM 100MCG TAB"
^XMB(3.9,264,2,382,0)="   SELENIUM 200MCG TAB"
^XMB(3.9,264,2,383,0)="   SELENIUM 50MCG TAB"
^XMB(3.9,264,2,384,0)=" "
^XMB(3.9,264,2,385,0)="The following active VA Products are no longer marked for CMOP."
^XMB(3.9,264,2,386,0)="All local drug file entries matched to these VA Products will"
^XMB(3.9,264,2,387,0)="be UNMARKED for CMOP.  In order to have these entries dispensed"
^XMB(3.9,264,2,388,0)="by CMOP any local DRUG file (#50) entries matched to these"
^XMB(3.9,264,2,389,0)="products must be re-matched to another VA product that is actively"
^XMB(3.9,264,2,390,0)="marked for CMOP dispensing."
^XMB(3.9,264,2,391,0)=" "
^XMB(3.9,264,2,392,0)="   IMIGLUCERASE 400U/VIL INJ    I0434"
^XMB(3.9,264,2,393,0)=" "
^XMB(3.9,264,2,394,0)=" "
^XMB(3.9,264,2,395,0)="The CS Federal Schedule for the following VA Products has"
^XMB(3.9,264,2,396,0)="been added or changed.  You may wish to review the DRUG"
^XMB(3.9,264,2,397,0)="file (#50) and make appropriate changes to the DEA, SPECIAL"
^XMB(3.9,264,2,398,0)="HDLG field (#3)."
^XMB(3.9,264,2,399,0)=" "
^XMB(3.9,264,2,400,0)="HYDROCODONE 5MG/GUAIFENESIN 300MG (M-PHASE) CAP,SA                   3"
^XMB(3.9,264,2,401,0)="METHYLPHENIDATE 10MG/9HR PATCH                                       2n"
^XMB(3.9,264,2,402,0)="METHYLPHENIDATE 15MG/9HR PATCH                                       2n"
^XMB(3.9,264,2,403,0)="METHYLPHENIDATE 20MG/9HR PATCH                                       2n"
^XMB(3.9,264,2,404,0)="METHYLPHENIDATE 30MG/9HR PATCH                                       2n"
^XMB(3.9,264,6,0)="^3.911A^3^3"
^XMB(3.9,264,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,264,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,264,6,3,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,264,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,264,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,264,6,"B","SCHLEHUBER,CAMERON",3)=""
^XMB(3.9,265,0)="UPDATED INTERACTIONS^NDF MANAGER^3061008.040612"
^XMB(3.9,265,.6)="3061008"
^XMB(3.9,265,1,0)="^3.91A^3^3"
^XMB(3.9,265,1,1,0)="1^0^3061008.040708^^^^^^^3061008.040708"
^XMB(3.9,265,1,2,0)="63"
^XMB(3.9,265,1,3,0)="68"
^XMB(3.9,265,1,"C",1,1)=""
^XMB(3.9,265,1,"C",63,2)=""
^XMB(3.9,265,1,"C",68,3)=""
^XMB(3.9,265,2,0)="^^80^80^3061008"
^XMB(3.9,265,2,1,0)="The following interactions in National Drug File (NDF) have been added,"
^XMB(3.9,265,2,2,0)="edited or inactivated.  These changes are the result of review and"
^XMB(3.9,265,2,3,0)="recommendations from the NDF support group."
^XMB(3.9,265,2,4,0)=" "
^XMB(3.9,265,2,5,0)="ADDED INTERACTIONS"
^XMB(3.9,265,2,6,0)=" "
^XMB(3.9,265,2,7,0)="   ALPRAZOLAM/BUPRENORPHINE                           Significant"
^XMB(3.9,265,2,8,0)="   BUPRENORPHINE/CHLORDIAZEPOXIDE                     Significant"
^XMB(3.9,265,2,9,0)="   BUPRENORPHINE/CLONAZEPAM                           Significant"
^XMB(3.9,265,2,10,0)="   BUPRENORPHINE/DIAZEPAM                             Significant"
^XMB(3.9,265,2,11,0)="   BUPRENORPHINE/ESTAZOLAM                            Significant"
^XMB(3.9,265,2,12,0)="   BUPRENORPHINE/LORAZEPAM                            Significant"
^XMB(3.9,265,2,13,0)="   BUPRENORPHINE/MIDAZOLAM                            Significant"
^XMB(3.9,265,2,14,0)="   BUPRENORPHINE/OXAZEPAM                             Significant"
^XMB(3.9,265,2,15,0)="   BUPRENORPHINE/RITONAVIR                            Significant"
^XMB(3.9,265,2,16,0)="   BUPRENORPHINE/TEMAZEPAM                            Significant"
^XMB(3.9,265,2,17,0)="   CHOLESTYRAMINE/MYCOPHENOLATE MOFETIL               Significant"
^XMB(3.9,265,2,18,0)="   CLONAZEPAM/FLUOXETINE                              Critical"
^XMB(3.9,265,2,19,0)="   DOFETILIDE/VARDENAFIL                              Significant"
^XMB(3.9,265,2,20,0)="   DULOXETINE/PAROXETINE                              Significant"
^XMB(3.9,265,2,21,0)="   IBUTILIDE FUMARATE/VARDENAFIL                      Significant"
^XMB(3.9,265,2,22,0)="   LAMOTRIGINE/LEVONORGESTREL                         Significant"
^XMB(3.9,265,2,23,0)="   LAMOTRIGINE/MESTRANOL                              Significant"
^XMB(3.9,265,2,24,0)="   LAMOTRIGINE/NORELGESTROMIN                         Significant"
^XMB(3.9,265,2,25,0)="   LAMOTRIGINE/NORETHINDRONE                          Significant"
^XMB(3.9,265,2,26,0)="   LAMOTRIGINE/NORETHYNODREL                          Significant"
^XMB(3.9,265,2,27,0)="   LAMOTRIGINE/NORGESTIMATE                           Significant"
^XMB(3.9,265,2,28,0)="   LAMOTRIGINE/NORGESTREL                             Significant"
^XMB(3.9,265,2,29,0)="   ORLISTAT/WARFARIN                                  Significant"
^XMB(3.9,265,2,30,0)="   PHENOXYBENZAMINE/VARDENAFIL                        Critical"
^XMB(3.9,265,2,31,0)="   PHENTOLAMINE/VARDENAFIL                            Critical"
^XMB(3.9,265,2,32,0)="   QUININE/VARDENAFIL                                 Significant"
^XMB(3.9,265,2,33,0)="   VARDENAFIL/VORICONAZOLE                            Significant"
^XMB(3.9,265,2,34,0)="   VARDENAFIL/ZIPRASIDONE                             Significant"
^XMB(3.9,265,2,35,0)=" "
^XMB(3.9,265,2,36,0)="EDITED INTERACTIONS"
^XMB(3.9,265,2,37,0)=" "
^XMB(3.9,265,2,38,0)="   NONE"
^XMB(3.9,265,2,39,0)=" "
^XMB(3.9,265,2,40,0)="INACTIVATED INTERACTIONS"
^XMB(3.9,265,2,41,0)=" "
^XMB(3.9,265,2,42,0)="   NONE"
^XMB(3.9,265,2,43,0)=" "
^XMB(3.9,265,2,44,0)="The following products have been flagged for exclusion from drug-drug"
^XMB(3.9,265,2,45,0)="interaction checks."
^XMB(3.9,265,2,46,0)=" "
^XMB(3.9,265,2,47,0)="ACCU-CHEK AVIVA (GLUCOSE) TEST STRIP"
^XMB(3.9,265,2,48,0)="ALOE VESTA 3-N-1 PROTECTIVE OINT,TOP"
^XMB(3.9,265,2,49,0)="BAG BALM OINT,TOP"
^XMB(3.9,265,2,50,0)="BD LOGIC (GLUCOSE) DEVICE"
^XMB(3.9,265,2,51,0)="BD MAGNI-GUIDE INSULIN MAGNIFIER"
^XMB(3.9,265,2,52,0)="BENZALKONIUM CL 0.011% SPRAY,TOP"
^XMB(3.9,265,2,53,0)="BETAMETHASONE DIPROPIONATE 0.064%/CALCIPOTRIENE 0.005% OINT,TOP"
^XMB(3.9,265,2,54,0)="CAMPHOR/MENTHOL OINT,TOP"
^XMB(3.9,265,2,55,0)="CATHERIZATION SET,INTERMITTENT 10FR H#96104"
^XMB(3.9,265,2,56,0)="CATHERIZATION SET,INTERMITTENT 14FR H#96144"
^XMB(3.9,265,2,57,0)="CATHERIZATION SET,INTERMITTENT 16FR H#96164"
^XMB(3.9,265,2,58,0)="CATHERIZATION SET,INTERMITTENT 18FR H#96184"
^XMB(3.9,265,2,59,0)="CATHERIZATION SET,INTERMITTENT 6FR H#96064"
^XMB(3.9,265,2,60,0)="CATHERIZATION SET,INTERMITTENT 8FR H#96084"
^XMB(3.9,265,2,61,0)="CLOBETASOL PROPIONATE 0.05% SPRAY,TOP"
^XMB(3.9,265,2,62,0)="CONVEX INSERT,ADAPT C#79520"
^XMB(3.9,265,2,63,0)="CONVEX INSERT,ADAPT C#79530"
^XMB(3.9,265,2,64,0)="CONVEX INSERT,ADAPT C#79540"
^XMB(3.9,265,2,65,0)="GLYCERIN 0.2%/HYPROMELLOSE 0.2%/POLYETHYLENE GLYCOL 1%/ SOLN,OPH"
^XMB(3.9,265,2,66,0)="HYALURONATE NA 0.2% CREAM,TOP"
^XMB(3.9,265,2,67,0)="HYALURONATE NA 0.2% GEL,TOP"
^XMB(3.9,265,2,68,0)="HYALURONATE NA 0.2% SPRAY,TOP"
^XMB(3.9,265,2,69,0)="HYDROCORTISONE 0.5%/LIDOCAINE 3% LOTION,TOP"
^XMB(3.9,265,2,70,0)="LANCET,BD DEVICE"
^XMB(3.9,265,2,71,0)="LANCET,ULTRA-FINE 33G"
^XMB(3.9,265,2,72,0)="NEEDLE,PEN 31G,5MM"
^XMB(3.9,265,2,73,0)="NEEDLE,PEN 31G,8MM"
^XMB(3.9,265,2,74,0)="PLEURX DRAINAGE KIT D#50-7500"
^XMB(3.9,265,2,75,0)="POUCH,DRAINABLE,SUR-FIT C#4040-29"
^XMB(3.9,265,2,76,0)="SUCTION CATHETER,14FR KENDALL #37424"
^XMB(3.9,265,2,77,0)="UREA 50% SOLN,TOP"
^XMB(3.9,265,2,78,0)="WAFER,DURAHESIVE C#4131-64"
^XMB(3.9,265,2,79,0)="WAFER,DURAHESIVE C#4131-65"
^XMB(3.9,265,2,80,0)="WAFER,DURAHESIVE C#4131-66"
^XMB(3.9,265,6,0)="^3.911A^3^3"
^XMB(3.9,265,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,265,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,265,6,3,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,265,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,265,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,265,6,"B","SCHLEHUBER,CAMERON",3)=""
^XMB(3.9,266,0)="DRUGS UNMATCHED FROM NATIONAL DRUG FILE^NDF MANAGER^3061008.040616^^^^P"
^XMB(3.9,266,.6)="3061008"
^XMB(3.9,266,1,0)="^3.91A^3^3"
^XMB(3.9,266,1,1,0)="1^0^3061008.040719^^^^^^1^3061008.040719"
^XMB(3.9,266,1,2,0)="63"
^XMB(3.9,266,1,3,0)="68"
^XMB(3.9,266,1,"C",1,1)=""
^XMB(3.9,266,1,"C",63,2)=""
^XMB(3.9,266,1,"C",68,3)=""
^XMB(3.9,266,2,0)="^^63^63^3061008"
^XMB(3.9,266,2,1,0)=" "
^XMB(3.9,266,2,2,0)="The following active entries in your DRUG file (#50) have been"
^XMB(3.9,266,2,3,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,266,2,4,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,266,2,5,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,266,2,6,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,266,2,7,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,266,2,8,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,266,2,9,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,266,2,10,0)="products immediately.  You may also need to match a new"
^XMB(3.9,266,2,11,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,266,2,12,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,266,2,13,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,266,2,14,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,266,2,15,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,266,2,16,0)="matching process."
^XMB(3.9,266,2,17,0)=" "
^XMB(3.9,266,2,18,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,266,2,19,0)="                                                                    DATE"
^XMB(3.9,266,2,20,0)=" "
^XMB(3.9,266,2,21,0)="  NONE"
^XMB(3.9,266,2,22,0)=" "
^XMB(3.9,266,2,23,0)="The following investigational entries in your DRUG file (#50) have been"
^XMB(3.9,266,2,24,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,266,2,25,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,266,2,26,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,266,2,27,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,266,2,28,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,266,2,29,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,266,2,30,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,266,2,31,0)="products immediately.  You may also need to match a new"
^XMB(3.9,266,2,32,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,266,2,33,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,266,2,34,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,266,2,35,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,266,2,36,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,266,2,37,0)="matching process."
^XMB(3.9,266,2,38,0)=" "
^XMB(3.9,266,2,39,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,266,2,40,0)="                                                                    DATE"
^XMB(3.9,266,2,41,0)=" "
^XMB(3.9,266,2,42,0)="  NONE"
^XMB(3.9,266,2,43,0)=" "
^XMB(3.9,266,2,44,0)="The following inactive entries in your DRUG file (#50) have been"
^XMB(3.9,266,2,45,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,266,2,46,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,266,2,47,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,266,2,48,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,266,2,49,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,266,2,50,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,266,2,51,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,266,2,52,0)="products immediately.  You may also need to match a new"
^XMB(3.9,266,2,53,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,266,2,54,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,266,2,55,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,266,2,56,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,266,2,57,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,266,2,58,0)="matching process."
^XMB(3.9,266,2,59,0)=" "
^XMB(3.9,266,2,60,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,266,2,61,0)="                                                                    DATE"
^XMB(3.9,266,2,62,0)=" "
^XMB(3.9,266,2,63,0)="  NONE"
^XMB(3.9,266,6,0)="^3.911A^3^3"
^XMB(3.9,266,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,266,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,266,6,3,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,266,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,266,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,266,6,"B","SCHLEHUBER,CAMERON",3)=""
^XMB(3.9,267,0)="DATA UPDATE FOR NDF^NDF MANAGER^3061008.040854"
^XMB(3.9,267,.6)="3061008"
^XMB(3.9,267,1,0)="^3.91A^3^3"
^XMB(3.9,267,1,1,0)="1^0^3061008.040922^^^^^^^3061008.040922"
^XMB(3.9,267,1,2,0)="63"
^XMB(3.9,267,1,3,0)="68"
^XMB(3.9,267,1,"C",1,1)=""
^XMB(3.9,267,1,"C",63,2)=""
^XMB(3.9,267,1,"C",68,3)=""
^XMB(3.9,267,2,0)="^^504^504^3061008"
^XMB(3.9,267,2,1,0)=" "
^XMB(3.9,267,2,2,0)="The following VA Products have been added to the National"
^XMB(3.9,267,2,3,0)="Drug File.  You may wish to review, then match or unmatch"
^XMB(3.9,267,2,4,0)="local drug file entries based on this updated information."
^XMB(3.9,267,2,5,0)=" "
^XMB(3.9,267,2,6,0)="   ACETAMINOPHEN 325MG/PHENYLEPHRINE HCL 5MG TAB"
^XMB(3.9,267,2,7,0)="    (CMOP - A1310)           (DISPENSE UNIT - TAB)"
^XMB(3.9,267,2,8,0)="     012547-0364-75   "
^XMB(3.9,267,2,9,0)="   AGRIMONIA LIQUID,ORAL"
^XMB(3.9,267,2,10,0)="    (CMOP - A1321)           (DISPENSE UNIT - ML)"
^XMB(3.9,267,2,11,0)="     051762-0001-10   "
^XMB(3.9,267,2,12,0)="   AL OH 400MG/MG OH 400MG/SIMETHICONE 40MG/5ML LIQUID(360ML)"
^XMB(3.9,267,2,13,0)="    (CMOP - A1173)           (DISPENSE UNIT - 360ML)"
^XMB(3.9,267,2,14,0)="     000904-0005-14   "
^XMB(3.9,267,2,15,0)="   AL OH 400MG/MG OH 400MG/SIMETHICONE 40MG/5ML LIQUID(780ML)"
^XMB(3.9,267,2,16,0)="    (CMOP - A1192)           (DISPENSE UNIT - 780ML)"
^XMB(3.9,267,2,17,0)="     000067-0254-44   "
^XMB(3.9,267,2,18,0)="   AL OH 400MG/MG OH 400MG/SIMETHICONE 40MG/5ML LIQUID(ML)"
^XMB(3.9,267,2,19,0)="    (CMOP - A1104)           (DISPENSE UNIT - ML)"
^XMB(3.9,267,2,20,0)="     016837-0652-24   "
^XMB(3.9,267,2,21,0)="   ALTEPLASE,RECOMBINANT 50MG/VIL INJ"
^XMB(3.9,267,2,22,0)="    (CMOP - A1318)           (DISPENSE UNIT - VI)"
^XMB(3.9,267,2,23,0)="     050242-0044-13   "
^XMB(3.9,267,2,24,0)="   ANTIHEMOPHILIC FACTOR 1000UNT/VON WILLEBRAND FACTOR 2400UNT INJ"
^XMB(3.9,267,2,25,0)="    (CMOP - A1313)           (DISPENSE UNIT - VI)"
^XMB(3.9,267,2,26,0)="     000053-7615-20   "
^XMB(3.9,267,2,27,0)="   ANTIHEMOPHILIC FACTOR 250UNT/VON WILLEBRAND FACTOR 600UNT INJ"
^XMB(3.9,267,2,28,0)="    (CMOP - A1311)           (DISPENSE UNIT - VI)"
^XMB(3.9,267,2,29,0)="     000053-7615-05   "
^XMB(3.9,267,2,30,0)="   ANTIHEMOPHILIC FACTOR 500UNT/VON WILLEBRAND FACTOR 1200UNT INJ"
^XMB(3.9,267,2,31,0)="    (CMOP - A1312)           (DISPENSE UNIT - VI)"
^XMB(3.9,267,2,32,0)="     000053-7615-10   "
^XMB(3.9,267,2,33,0)="   ARCTIUM LIQUID,ORAL"
^XMB(3.9,267,2,34,0)="    (CMOP - A1320)           (DISPENSE UNIT - ML)"
^XMB(3.9,267,2,35,0)="     041954-0020-07   "
^XMB(3.9,267,2,36,0)="   ATOMOXETINE 100MG CAP"
^XMB(3.9,267,2,37,0)="    (CMOP - A1314)           (DISPENSE UNIT - CAP)"
^XMB(3.9,267,2,38,0)="     000002-3251-30   "
^XMB(3.9,267,2,39,0)="   ATOMOXETINE 80MG CAP"
^XMB(3.9,267,2,40,0)="    (CMOP - A1319)           (DISPENSE UNIT - CAP)"
^XMB(3.9,267,2,41,0)="     000002-3250-30   "
^XMB(3.9,267,2,42,0)="   BARRIER,OSTOMY,NEW IMAGE H#14602"
^XMB(3.9,267,2,43,0)="    (CMOP - XV099)           (DISPENSE UNIT - EA)"
^XMB(3.9,267,2,44,0)="     999010-0146-02   "
^XMB(3.9,267,2,45,0)="   BARRIER,OSTOMY,NEW IMAGE H#14603"
^XMB(3.9,267,2,46,0)="    (CMOP - XV100)           (DISPENSE UNIT - EA)"
^XMB(3.9,267,2,47,0)="     999010-0146-03   "
^XMB(3.9,267,2,48,0)="   BARRIER,OSTOMY,NEW IMAGE H#14604"
^XMB(3.9,267,2,49,0)="    (CMOP - XV101)           (DISPENSE UNIT - EA)"
^XMB(3.9,267,2,50,0)="     999010-0146-04   "
^XMB(3.9,267,2,51,0)="   BARRIER,OSTOMY,NEW IMAGE H#14606"
^XMB(3.9,267,2,52,0)="    (CMOP - XV102)           (DISPENSE UNIT - EA)"
^XMB(3.9,267,2,53,0)="     999010-0146-06   "
^XMB(3.9,267,2,54,0)="   BERBERIS CAP/TAB"
^XMB(3.9,267,2,55,0)="    (CMOP - B0553)           (DISPENSE UNIT - CAP/TAB)"
^XMB(3.9,267,2,56,0)="     000624-1042-10   "
^XMB(3.9,267,2,57,0)="   BETONY EXTRACT"
^XMB(3.9,267,2,58,0)="    (CMOP - B0554)           (DISPENSE UNIT - GM)"
^XMB(3.9,267,2,59,0)="     993400-4512-01   "
^XMB(3.9,267,2,60,0)="   BITTER ORANGE PEEL CAP/TAB"
^XMB(3.9,267,2,61,0)="    (CMOP - B0555)           (DISPENSE UNIT - CAP/TAB)"
^XMB(3.9,267,2,62,0)="     993400-0003-01   "
^XMB(3.9,267,2,63,0)="   CALENDULA LIQUID,TOP"
^XMB(3.9,267,2,64,0)="    (CMOP - C1252)           (DISPENSE UNIT - ML)"
^XMB(3.9,267,2,65,0)="     055946-0150-15   "
^XMB(3.9,267,2,66,0)="   CARUM (CARAWAY) OIL"
^XMB(3.9,267,2,67,0)="    (CMOP - C1250)           (DISPENSE UNIT - ML)"
^XMB(3.9,267,2,68,0)="     017317-0239-02   "
^XMB(3.9,267,2,69,0)="   CATHERIZATION SET,INTERMITTENT 10FR BARD #4A5110"
^XMB(3.9,267,2,70,0)="    (CMOP - XV096)           (DISPENSE UNIT - EA)"
^XMB(3.9,267,2,71,0)="     999900-0451-10   "
^XMB(3.9,267,2,72,0)="   CATHERIZATION SET,INTERMITTENT 12FR BARD #4A5142"
^XMB(3.9,267,2,73,0)="    (CMOP - XV097)           (DISPENSE UNIT - EA)"
^XMB(3.9,267,2,74,0)="     999900-0451-42   "
^XMB(3.9,267,2,75,0)="   CATHERIZATION SET,INTERMITTENT 14FR BARD #4A5144"
^XMB(3.9,267,2,76,0)="    (CMOP - XV098)           (DISPENSE UNIT - EA)"
^XMB(3.9,267,2,77,0)="     999900-0451-44   "
^XMB(3.9,267,2,78,0)="   CATHERIZATION SET,INTERMITTENT 8FR BARD #4A5108"
^XMB(3.9,267,2,79,0)="    (CMOP - XV095)           (DISPENSE UNIT - EA)"
^XMB(3.9,267,2,80,0)="     999900-0451-08   "
^XMB(3.9,267,2,81,0)="   CATHETER,SUCTION 14FR M#DYDN41442"
^XMB(3.9,267,2,82,0)="    (CMOP - XV105)           (DISPENSE UNIT - EA)"
^XMB(3.9,267,2,83,0)="     999904-1442-00   "
^XMB(3.9,267,2,84,0)="   CATHETER,SUCTION,12FR KENDALL #37224"
^XMB(3.9,267,2,85,0)="    (CMOP - XV103)           (DISPENSE UNIT - EA)"
^XMB(3.9,267,2,86,0)="     008888-7372-24   "
^XMB(3.9,267,2,87,0)="   CATHETER,SUCTION,14FR ALLEGIANCE #T60C"
^XMB(3.9,267,2,88,0)="    (CMOP - XV104)           (DISPENSE UNIT - EA)"
^XMB(3.9,267,2,89,0)="     995046-0060-01   "
^XMB(3.9,267,2,90,0)="   CAULOPHYLLUM CAP/TAB"
^XMB(3.9,267,2,91,0)="    (CMOP - C1253)           (DISPENSE UNIT - CAP/TAB)"
^XMB(3.9,267,2,92,0)="     000624-2105-10   "
^XMB(3.9,267,2,93,0)="   CENTAURY LIQUID,ORAL"
^XMB(3.9,267,2,94,0)="    (CMOP - C1251)           (DISPENSE UNIT - ML)"
^XMB(3.9,267,2,95,0)="     051762-0009-10   "
^XMB(3.9,267,2,96,0)="   COLA EXTRACT LIQUID,ORAL"
^XMB(3.9,267,2,97,0)="    (CMOP - C1248)           (DISPENSE UNIT - ML)"
^XMB(3.9,267,2,98,0)="     049523-0043-02   "
^XMB(3.9,267,2,99,0)="   COMMON RUE CAP/TAB"
^XMB(3.9,267,2,100,0)="    (CMOP - C1254)           (DISPENSE UNIT - CAP/TAB)"
^XMB(3.9,267,2,101,0)="     000618-7649-03   "
^XMB(3.9,267,2,102,0)="   CORNSILK CAP/TAB"
^XMB(3.9,267,2,103,0)="    (CMOP - C1249)           (DISPENSE UNIT - CAP/TAB)"
^XMB(3.9,267,2,104,0)="     060142-0907-51   "
^XMB(3.9,267,2,105,0)="   CYANOCOBALAMIN 500MCG/0.1ML ACTUAT SPRAY,NASAL,2.3ML"
^XMB(3.9,267,2,106,0)="    (CMOP - C1247)           (DISPENSE UNIT - EA)"
^XMB(3.9,267,2,107,0)="     067871-7733-05   "
^XMB(3.9,267,2,108,0)="   DANSHEN EXTRACT"
^XMB(3.9,267,2,109,0)="    (CMOP - D0704)           (DISPENSE UNIT - GM)"
^XMB(3.9,267,2,110,0)="     993400-4513-01   "
^XMB(3.9,267,2,111,0)="   DARUNAVIR ETHANOLATE 300MG TAB"
^XMB(3.9,267,2,112,0)="    (CMOP - D0711)           (DISPENSE UNIT - TAB)"
^XMB(3.9,267,2,113,0)="     059676-0560-01   "
^XMB(3.9,267,2,114,0)="   DASATINIB 20MG TAB"
^XMB(3.9,267,2,115,0)="    (CMOP - D0706)           (DISPENSE UNIT - TAB)"
^XMB(3.9,267,2,116,0)="     000002-0527-11   "
^XMB(3.9,267,2,117,0)="   DASATINIB 50MG TAB"
^XMB(3.9,267,2,118,0)="    (CMOP - D0707)           (DISPENSE UNIT - TAB)"
^XMB(3.9,267,2,119,0)="     000003-0528-11   "
^XMB(3.9,267,2,120,0)="   DASATINIB 70MG TAB"
^XMB(3.9,267,2,121,0)="    (CMOP - D0708)           (DISPENSE UNIT - TAB)"
^XMB(3.9,267,2,122,0)="     000003-0524-11   "
^XMB(3.9,267,2,123,0)="   DECITABINE 50MG/VIL INJ"
^XMB(3.9,267,2,124,0)="    (CMOP - D0699)           (DISPENSE UNIT - VI)"
^XMB(3.9,267,2,125,0)="     058063-0600-50   "
^XMB(3.9,267,2,126,0)="   DERMA CERIN CREAM,TOP"
^XMB(3.9,267,2,127,0)="    (CMOP - D0710)           (DISPENSE UNIT - GM)"
^XMB(3.9,267,2,128,0)="     061924-0178-04   061924-0178-16   "
^XMB(3.9,267,2,129,0)="   DEXTRANOMER MICROSPHERES (DEFLUX) 50MG/ML SYR,1ML"
^XMB(3.9,267,2,130,0)="    (CMOP - D0709)           (DISPENSE UNIT - SYR)"
^XMB(3.9,267,2,131,0)="     991395-8378-01   "
^XMB(3.9,267,2,132,0)="   DEXTROSE 15GM/45GM SQUEEZE TUBE"
^XMB(3.9,267,2,133,0)="    (CMOP - D0701)           (DISPENSE UNIT - EA)"
^XMB(3.9,267,2,134,0)="     000574-0069-45   "
^XMB(3.9,267,2,135,0)="   DILLWEED OIL"
^XMB(3.9,267,2,136,0)="    (CMOP - D0703)           (DISPENSE UNIT - ML)"
^XMB(3.9,267,2,137,0)="     051927-1618-00   "
^XMB(3.9,267,2,138,0)="   DIPHTH,PERTUSS(ACELL),TET VACCINE 2-2.5-5/0.5ML INJ,SUSP"
^XMB(3.9,267,2,139,0)="    (CMOP - D0702)           (DISPENSE UNIT - VI)"
^XMB(3.9,267,2,140,0)="     049281-0400-10   "
^XMB(3.9,267,2,141,0)="   DOXYCYCLINE MONOHYDRATE 30MG IR/10MG CAP,EC"
^XMB(3.9,267,2,142,0)="    (CMOP - D0698)           (DISPENSE UNIT - CAP)"
^XMB(3.9,267,2,143,0)="     064682-0009-01   "
^XMB(3.9,267,2,144,0)="   ELECTROLYTE PWDR,ORAL PKT"
^XMB(3.9,267,2,145,0)="    (CMOP - E0446)           (DISPENSE UNIT - PKT)"
^XMB(3.9,267,2,146,0)="     000851-0000-01   000851-0000-02   000851-0000-03   "
^XMB(3.9,267,2,147,0)="   ELECTROLYTE PWDR,ORAL"
^XMB(3.9,267,2,148,0)="    (CMOP - E0445)           (DISPENSE UNIT - GM)"
^XMB(3.9,267,2,149,0)="     000851-2200-03   "
^XMB(3.9,267,2,150,0)="   ELECTROLYTE SOLN,ORAL"
^XMB(3.9,267,2,151,0)="    (CMOP - E0447)           (DISPENSE UNIT - ML)"
^XMB(3.9,267,2,152,0)="     000851-5902-03   000851-5902-07   "
^XMB(3.9,267,2,153,0)="   ESOMEPRAZOLE MAGNESIUM 20MG CAP,EC"
^XMB(3.9,267,2,154,0)="    (CMOP - E0443)           (DISPENSE UNIT - CAP)"
^XMB(3.9,267,2,155,0)="     000186-5020-31   000186-5020-54   000186-5020-82   "
^XMB(3.9,267,2,156,0)="   ESOMEPRAZOLE MAGNESIUM 40MG CAP,EC"
^XMB(3.9,267,2,157,0)="    (CMOP - E0444)           (DISPENSE UNIT - CAP)"
^XMB(3.9,267,2,158,0)="     000186-5040-31   000186-5040-54   000186-5040-82   "
^XMB(3.9,267,2,159,0)="   ESTRADIOL ACETATE 0.45MG TAB"
^XMB(3.9,267,2,160,0)="    (CMOP - E0438)           (DISPENSE UNIT - TAB)"
^XMB(3.9,267,2,161,0)="     000430-0389-24   "
^XMB(3.9,267,2,162,0)="   ESTRADIOL ACETATE 0.9MG TAB"
^XMB(3.9,267,2,163,0)="    (CMOP - E0439)           (DISPENSE UNIT - TAB)"
^XMB(3.9,267,2,164,0)="     000430-0390-24   "
^XMB(3.9,267,2,165,0)="   ESTRADIOL ACETATE 1.8MG TAB"
^XMB(3.9,267,2,166,0)="    (CMOP - E0440)           (DISPENSE UNIT - TAB)"
^XMB(3.9,267,2,167,0)="     000430-0391-24   "
^XMB(3.9,267,2,168,0)="   EUPATORIUM CAP/TAB"
^XMB(3.9,267,2,169,0)="    (CMOP - E0442)           (DISPENSE UNIT - CAP/TAB)"
^XMB(3.9,267,2,170,0)="     000618-3270-03   "
^XMB(3.9,267,2,171,0)="   EYEBRIGHT CAP/TAB"
^XMB(3.9,267,2,172,0)="    (CMOP - E0441)           (DISPENSE UNIT - CAP/TAB)"
^XMB(3.9,267,2,173,0)="     000904-5087-60   "
^XMB(3.9,267,2,174,0)="   FENTANYL 12MCG/HR PATCH"
^XMB(3.9,267,2,175,0)="    (CMOP - F0367)           (DISPENSE UNIT - PATCH)"
^XMB(3.9,267,2,176,0)="     050458-0037-05   "
^XMB(3.9,267,2,177,0)="   FLUTICASONE PROPIONATE 0.05% LOTION,TOP"
^XMB(3.9,267,2,178,0)="    (CMOP - F0366)           (DISPENSE UNIT - ML)"
^XMB(3.9,267,2,179,0)="     000173-0708-00   "
^XMB(3.9,267,2,180,0)="   GENTIANA LIQUID,ORAL"
^XMB(3.9,267,2,181,0)="    (CMOP - G0269)           (DISPENSE UNIT - ML)"
^XMB(3.9,267,2,182,0)="     051762-0014-10   "
^XMB(3.9,267,2,183,0)="   GLUCOVITA TAB"
^XMB(3.9,267,2,184,0)="    (CMOP - G0271)           (DISPENSE UNIT - TAB)"
^XMB(3.9,267,2,185,0)="     990012-0036-01   "
^XMB(3.9,267,2,186,0)="   GUAIAC GUM PWDR"
^XMB(3.9,267,2,187,0)="    (CMOP - G0270)           (DISPENSE UNIT - GM)"
^XMB(3.9,267,2,188,0)="     049452-3405-01   "
^XMB(3.9,267,2,189,0)="   HAEMOPHILUS B 7.5/HEPATITIS B 5MCG/0.5ML VACCINE (RECOMB) INJ"
^XMB(3.9,267,2,190,0)="    (CMOP - H0498)           (DISPENSE UNIT - VI)"
^XMB(3.9,267,2,191,0)="     000006-4898-00   "
^XMB(3.9,267,2,192,0)="   HEMLOCK OIL"
^XMB(3.9,267,2,193,0)="    (CMOP - H0496)           (DISPENSE UNIT - ML)"
^XMB(3.9,267,2,194,0)="     051927-2626-00   "
^XMB(3.9,267,2,195,0)="   HISTRELIN ACETATE 50MG IMPLANT"
^XMB(3.9,267,2,196,0)="    (CMOP - H0492)           (DISPENSE UNIT - EA)"
^XMB(3.9,267,2,197,0)="     055592-0500-01   "
^XMB(3.9,267,2,198,0)="   HYDROCODONE 2.5MG/APAP 167MG/5ML ELIXIR,15ML"
^XMB(3.9,267,2,199,0)="    (CMOP - H0490)           (DISPENSE UNIT - EA)"
^XMB(3.9,267,2,200,0)="     000121-4655-15   "
^XMB(3.9,267,2,201,0)="   HYDROXYTRYPTOPHAN PWDR"
^XMB(3.9,267,2,202,0)="    (CMOP - H0497)           (DISPENSE UNIT - GM)"
^XMB(3.9,267,2,203,0)="     038779-0719-05   "
^XMB(3.9,267,2,204,0)="   INCONT LINER CAPRI EXTRA PLUS"
^XMB(3.9,267,2,205,0)="    (CMOP - XV091)           (DISPENSE UNIT - EA)"
^XMB(3.9,267,2,206,0)="     053329-3261-00   "
^XMB(3.9,267,2,207,0)="   INCONT LINER CAPRI REGULAR"
^XMB(3.9,267,2,208,0)="    (CMOP - XV090)           (DISPENSE UNIT - EA)"
^XMB(3.9,267,2,209,0)="     053329-3251-00   "
^XMB(3.9,267,2,210,0)="   INCONT LINER CAPRI ULTRA PLUS"
^XMB(3.9,267,2,211,0)="    (CMOP - XV092)           (DISPENSE UNIT - EA)"
^XMB(3.9,267,2,212,0)="     053329-3271-00   "
^XMB(3.9,267,2,213,0)="   JUNIPER BERRY OIL"
^XMB(3.9,267,2,214,0)="    (CMOP - J0017)           (DISPENSE UNIT - ML)"
^XMB(3.9,267,2,215,0)="     023535-0151-21   "
^XMB(3.9,267,2,216,0)="   LANSOPRAZOLE 15MG CAP,EC,UD"
^XMB(3.9,267,2,217,0)="    (CMOP - L0372)           (DISPENSE UNIT - CAP)"
^XMB(3.9,267,2,218,0)="     000300-1541-11   "
^XMB(3.9,267,2,219,0)="   LANSOPRAZOLE 15MG CAP,EC/NAPROXEN 375MG TAB PKT,21"
^XMB(3.9,267,2,220,0)="    (CMOP - L0325)           (DISPENSE UNIT - PKT)"
^XMB(3.9,267,2,221,0)="     000300-1545-07   "
^XMB(3.9,267,2,222,0)="   LANSOPRAZOLE 15MG CAP,EC/NAPROXEN 500MG TAB PKT,21"
^XMB(3.9,267,2,223,0)="    (CMOP - L0327)           (DISPENSE UNIT - PKT)"
^XMB(3.9,267,2,224,0)="     000300-1546-07   "
^XMB(3.9,267,2,225,0)="   LANSOPRAZOLE 15MG CAP,EC/NAPROXEN 500MG TAB PKT,84"
^XMB(3.9,267,2,226,0)="    (CMOP - L0328)           (DISPENSE UNIT - PKT)"
^XMB(3.9,267,2,227,0)="     000300-1546-30   "
^XMB(3.9,267,2,228,0)="   LANSOPRAZOLE 15MG CAP,EC"
^XMB(3.9,267,2,229,0)="    (CMOP - L0373)           (DISPENSE UNIT - CAP)"
^XMB(3.9,267,2,230,0)="     000300-1541-30   000300-1541-13   000300-1541-19   "
^XMB(3.9,267,2,231,0)="   LANSOPRAZOLE 30MG CAP,EC,UD"
^XMB(3.9,267,2,232,0)="    (CMOP - L0375)           (DISPENSE UNIT - CAP)"
^XMB(3.9,267,2,233,0)="     000300-3046-11   "
^XMB(3.9,267,2,234,0)="   LANSOPRAZOLE 30MG CAP,EC"
^XMB(3.9,267,2,235,0)="    (CMOP - L0374)           (DISPENSE UNIT - CAP)"
^XMB(3.9,267,2,236,0)="     000300-3046-13   000300-3046-30   000300-3046-19   "
^XMB(3.9,267,2,237,0)="   LANTHANUM CARBONATE 750MG TAB,CHEWABLE"
^XMB(3.9,267,2,238,0)="    (CMOP - L0368)           (DISPENSE UNIT - TAB)"
^XMB(3.9,267,2,239,0)="     054092-0253-90   "
^XMB(3.9,267,2,240,0)="   LAVENDER OIL"
^XMB(3.9,267,2,241,0)="    (CMOP - L0369)           (DISPENSE UNIT - ML)"
^XMB(3.9,267,2,242,0)="     017317-0316-02   "
^XMB(3.9,267,2,243,0)="   LOBELIA CAP/TAB"
^XMB(3.9,267,2,244,0)="    (CMOP - L0370)           (DISPENSE UNIT - CAP/TAB)"
^XMB(3.9,267,2,245,0)="     054973-5477-01   "
^XMB(3.9,267,2,246,0)="   LORENZO'S OIL"
^XMB(3.9,267,2,247,0)="    (CMOP - L0371)           (DISPENSE UNIT - ML)"
^XMB(3.9,267,2,248,0)="     993400-4514-01   "
^XMB(3.9,267,2,249,0)="   MEQUINOL 2%/TRETINOIN 0.01% SOLN,TOP"
^XMB(3.9,267,2,250,0)="    (CMOP - M0683)           (DISPENSE UNIT - ML)"
^XMB(3.9,267,2,251,0)="     013478-0001-01   "
^XMB(3.9,267,2,252,0)="   MIMYX CREAM,TOP"
^XMB(3.9,267,2,253,0)="    (CMOP - M0688)           (DISPENSE UNIT - GM)"
^XMB(3.9,267,2,254,0)="     000145-4200-01   "
^XMB(3.9,267,2,255,0)="   MISTLETOE EXTRACT"
^XMB(3.9,267,2,256,0)="    (CMOP - M0685)           (DISPENSE UNIT - GM)"
^XMB(3.9,267,2,257,0)="     993400-4516-01   "
^XMB(3.9,267,2,258,0)="   MULLEIN EXTRACT"
^XMB(3.9,267,2,259,0)="    (CMOP - M0687)           (DISPENSE UNIT - GM)"
^XMB(3.9,267,2,260,0)="     993400-4517-01   "
^XMB(3.9,267,2,261,0)="   MUSTARD OIL"
^XMB(3.9,267,2,262,0)="    (CMOP - M0684)           (DISPENSE UNIT - ML)"
^XMB(3.9,267,2,263,0)="     049452-4790-02   "
^XMB(3.9,267,2,264,0)="   MYRRH OIL"
^XMB(3.9,267,2,265,0)="    (CMOP - M0686)           (DISPENSE UNIT - ML)"
^XMB(3.9,267,2,266,0)="     049452-4800-01   "
^XMB(3.9,267,2,267,0)="   NATURAL PROGESTERONE CREAM,TOP"
^XMB(3.9,267,2,268,0)="    (CMOP - N0484)           (DISPENSE UNIT - GM)"
^XMB(3.9,267,2,269,0)="     999547-8245-01   "
^XMB(3.9,267,2,270,0)="   OMEPRAZOLE 10MG CAP,EC,UD"
^XMB(3.9,267,2,271,0)="    (CMOP - O0204)           (DISPENSE UNIT - CAP)"
^XMB(3.9,267,2,272,0)="     000186-0606-28   "
^XMB(3.9,267,2,273,0)="   OMEPRAZOLE 10MG CAP,EC"
^XMB(3.9,267,2,274,0)="    (CMOP - O0203)           (DISPENSE UNIT - CAP)"
^XMB(3.9,267,2,275,0)="     000186-0606-31   000186-0606-68   000186-0606-82   "
^XMB(3.9,267,2,276,0)="   OMEPRAZOLE 20MG CAP,EC,UD"
^XMB(3.9,267,2,277,0)="    (CMOP - O0206)           (DISPENSE UNIT - CAP)"
^XMB(3.9,267,2,278,0)="     000186-0742-28   "
^XMB(3.9,267,2,279,0)="   OMEPRAZOLE 20MG CAP,EC"
^XMB(3.9,267,2,280,0)="    (CMOP - O0205)           (DISPENSE UNIT - CAP)"
^XMB(3.9,267,2,281,0)="     000186-0742-31   000186-0742-82   "
^XMB(3.9,267,2,282,0)="   OMEPRAZOLE 40MG CAP,EC,UD"
^XMB(3.9,267,2,283,0)="    (CMOP - O0208)           (DISPENSE UNIT - CAP)"
^XMB(3.9,267,2,284,0)="     000186-0743-28   "
^XMB(3.9,267,2,285,0)="   OMEPRAZOLE 40MG CAP,EC"
^XMB(3.9,267,2,286,0)="    (CMOP - O0207)           (DISPENSE UNIT - CAP)"
^XMB(3.9,267,2,287,0)="     000186-0743-31   000186-0743-68   000186-0743-82   "
^XMB(3.9,267,2,288,0)="   PAPILLOMAVIRUS HUMAN QUADRIVALENT VACCINE INJ,SYRINGE,0.5ML"
^XMB(3.9,267,2,289,0)="    (CMOP - P0756)           (DISPENSE UNIT - SYR)"
^XMB(3.9,267,2,290,0)="     000006-4045-41   "
^XMB(3.9,267,2,291,0)="   PAPILLOMAVIRUS HUMAN QUADRIVALENT VACCINE INJ"
^XMB(3.9,267,2,292,0)="    (CMOP - P0755)           (DISPENSE UNIT - ML)"
^XMB(3.9,267,2,293,0)="     000006-4045-00   "
^XMB(3.9,267,2,294,0)="   PASQUE FLOWER EXTRACT"
^XMB(3.9,267,2,295,0)="    (CMOP - P0761)           (DISPENSE UNIT - GM)"
^XMB(3.9,267,2,296,0)="     993400-4518-01   "
^XMB(3.9,267,2,297,0)="   PENNYROYAL OIL"
^XMB(3.9,267,2,298,0)="    (CMOP - P0757)           (DISPENSE UNIT - ML)"
^XMB(3.9,267,2,299,0)="     051927-1654-00   "
^XMB(3.9,267,2,300,0)="   PERIWINKLE EXTRACT"
^XMB(3.9,267,2,301,0)="    (CMOP - P0760)           (DISPENSE UNIT - GM)"
^XMB(3.9,267,2,302,0)="     993400-4519-01   "
^XMB(3.9,267,2,303,0)="   POKEWEED EXTRACT"
^XMB(3.9,267,2,304,0)="    (CMOP - P0759)           (DISPENSE UNIT - GM)"
^XMB(3.9,267,2,305,0)="     993400-4511-01   "
^XMB(3.9,267,2,306,0)="   POUCH,DRAINABLE,ASSURA COLOPLAST #13964"
^XMB(3.9,267,2,307,0)="    (CMOP - XV112)           (DISPENSE UNIT - EA)"
^XMB(3.9,267,2,308,0)="     011701-0875-64   "
^XMB(3.9,267,2,309,0)="   POUCH,DRAINABLE,ASSURA COLOPLAST #13965"
^XMB(3.9,267,2,310,0)="    (CMOP - XV113)           (DISPENSE UNIT - EA)"
^XMB(3.9,267,2,311,0)="     011701-0875-65   "
^XMB(3.9,267,2,312,0)="   POUCH,DRAINABLE,ASSURA COLOPLAST #13966"
^XMB(3.9,267,2,313,0)="    (CMOP - XV114)           (DISPENSE UNIT - EA)"
^XMB(3.9,267,2,314,0)="     011701-0875-66   "
^XMB(3.9,267,2,315,0)="   POUCH,DRAINABLE,ASSURA COLOPLAST #14364"
^XMB(3.9,267,2,316,0)="    (CMOP - XV106)           (DISPENSE UNIT - EA)"
^XMB(3.9,267,2,317,0)="     999117-0143-64   "
^XMB(3.9,267,2,318,0)="   POUCH,DRAINABLE,SUR-FIT C#4112-63"
^XMB(3.9,267,2,319,0)="    (CMOP - XV107)           (DISPENSE UNIT - EA)"
^XMB(3.9,267,2,320,0)="     000034-4112-63   "
^XMB(3.9,267,2,321,0)="   POUCH,DRAINABLE,SUR-FIT C#4112-64"
^XMB(3.9,267,2,322,0)="    (CMOP - XV108)           (DISPENSE UNIT - EA)"
^XMB(3.9,267,2,323,0)="     000034-4112-64   "
^XMB(3.9,267,2,324,0)="   POUCH,DRAINABLE,SUR-FIT C#4112-65"
^XMB(3.9,267,2,325,0)="    (CMOP - XV109)           (DISPENSE UNIT - EA)"
^XMB(3.9,267,2,326,0)="     000034-4112-65   "
^XMB(3.9,267,2,327,0)="   POUCH,DRAINABLE,SUR-FIT C#4112-66"
^XMB(3.9,267,2,328,0)="    (CMOP - XV110)           (DISPENSE UNIT - EA)"
^XMB(3.9,267,2,329,0)="     000034-4112-66   "
^XMB(3.9,267,2,330,0)="   POUCH,DRAINABLE,SUR-FIT C#4112-67"
^XMB(3.9,267,2,331,0)="    (CMOP - XV111)           (DISPENSE UNIT - EA)"
^XMB(3.9,267,2,332,0)="     000034-4112-67   "
^XMB(3.9,267,2,333,0)="   PYGEUM BARK PWDR"
^XMB(3.9,267,2,334,0)="    (CMOP - P0758)           (DISPENSE UNIT - GM)"
^XMB(3.9,267,2,335,0)="     051927-3638-00   "
^XMB(3.9,267,2,336,0)="   RASAGILINE MESYLATE 0.5MG TAB"
^XMB(3.9,267,2,337,0)="    (CMOP - R0194)           (DISPENSE UNIT - TAB)"
^XMB(3.9,267,2,338,0)="     068546-0229-56   "
^XMB(3.9,267,2,339,0)="   RASAGILINE MESYLATE 1MG TAB"
^XMB(3.9,267,2,340,0)="    (CMOP - R0195)           (DISPENSE UNIT - TAB)"
^XMB(3.9,267,2,341,0)="     068546-0142-56   "
^XMB(3.9,267,2,342,0)="   RESERVOIR,MINIMED #MMT-326A"
^XMB(3.9,267,2,343,0)="    (CMOP - XV094)           (DISPENSE UNIT - EA)"
^XMB(3.9,267,2,344,0)="     076300-0503-15   "
^XMB(3.9,267,2,345,0)="   RESOURCE BENEPROTEIN PWDR,PKT,7GM"
^XMB(3.9,267,2,346,0)="    (CMOP - R0197)           (DISPENSE UNIT - PKT)"
^XMB(3.9,267,2,347,0)="     000212-2843-71   "
^XMB(3.9,267,2,348,0)="   RESOURCE BENEPROTEIN PWDR"
^XMB(3.9,267,2,349,0)="    (CMOP - R0196)           (DISPENSE UNIT - GM)"
^XMB(3.9,267,2,350,0)="     000212-2841-07   "
^XMB(3.9,267,2,351,0)="   RHUBARB PWDR"
^XMB(3.9,267,2,352,0)="    (CMOP - R0198)           (DISPENSE UNIT - GM)"
^XMB(3.9,267,2,353,0)="     017317-0466-04   "
^XMB(3.9,267,2,354,0)="   RUMEX CAP/TAB"
^XMB(3.9,267,2,355,0)="    (CMOP - R0199)           (DISPENSE UNIT - CAP/TAB)"
^XMB(3.9,267,2,356,0)="     054973-7646-01   "
^XMB(3.9,267,2,357,0)="   SALIX CAP/TAB"
^XMB(3.9,267,2,358,0)="    (CMOP - S0462)           (DISPENSE UNIT - CAP/TAB)"
^XMB(3.9,267,2,359,0)="     054973-8023-01   "
^XMB(3.9,267,2,360,0)="   SANGUINARIA CANADENSIS PWDR"
^XMB(3.9,267,2,361,0)="    (CMOP - S0461)           (DISPENSE UNIT - GM)"
^XMB(3.9,267,2,362,0)="     051927-3020-00   "
^XMB(3.9,267,2,363,0)="   SCUTELLARIA BAICALENSIS LIQUID,ORAL"
^XMB(3.9,267,2,364,0)="    (CMOP - S0463)           (DISPENSE UNIT - ML)"
^XMB(3.9,267,2,365,0)="     041954-0020-45   "
^XMB(3.9,267,2,366,0)="   SELEGILINE 12MG/24HR PATCH"
^XMB(3.9,267,2,367,0)="    (CMOP - S0457)           (DISPENSE UNIT - PATCH)"
^XMB(3.9,267,2,368,0)="     039506-0055-30   "
^XMB(3.9,267,2,369,0)="   SELEGILINE 6MG/24HR PATCH"
^XMB(3.9,267,2,370,0)="    (CMOP - S0456)           (DISPENSE UNIT - PATCH)"
^XMB(3.9,267,2,371,0)="     039506-0033-30   "
^XMB(3.9,267,2,372,0)="   SELEGILINE 9MG/24HR PATCH"
^XMB(3.9,267,2,373,0)="    (CMOP - S0458)           (DISPENSE UNIT - PATCH)"
^XMB(3.9,267,2,374,0)="     039506-0044-30   "
^XMB(3.9,267,2,375,0)="   SET,INFUSION MINIMED #MMT-317"
^XMB(3.9,267,2,376,0)="    (CMOP - XV093)           (DISPENSE UNIT - EA)"
^XMB(3.9,267,2,377,0)="     076300-0317-00   "
^XMB(3.9,267,2,378,0)="   SMILAX (SARSAPARILLA) CAP/TAB"
^XMB(3.9,267,2,379,0)="    (CMOP - S0459)           (DISPENSE UNIT - CAP/TAB)"
^XMB(3.9,267,2,380,0)="     060142-0946-01   "
^XMB(3.9,267,2,381,0)="   TANSY EXTRACT"
^XMB(3.9,267,2,382,0)="    (CMOP - T0610)           (DISPENSE UNIT - GM)"
^XMB(3.9,267,2,383,0)="     993400-4521-01   "
^XMB(3.9,267,2,384,0)="   THERAPEUTIC BATH LOTION,TOP"
^XMB(3.9,267,2,385,0)="    (CMOP - T0611)           (DISPENSE UNIT - ML)"
^XMB(3.9,267,2,386,0)="     000182-6020-44   "
^XMB(3.9,267,2,387,0)="   THYME OIL"
^XMB(3.9,267,2,388,0)="    (CMOP - T0608)           (DISPENSE UNIT - ML)"
^XMB(3.9,267,2,389,0)="     017317-0576-04   "
^XMB(3.9,267,2,390,0)="   TURNERA (DAMIANA) CAP/TAB"
^XMB(3.9,267,2,391,0)="    (CMOP - T0609)           (DISPENSE UNIT - CAP/TAB)"
^XMB(3.9,267,2,392,0)="     087651-0607-67   "
^XMB(3.9,267,2,393,0)="   UREA 50% OINT,TOP"
^XMB(3.9,267,2,394,0)="    (CMOP - U0048)           (DISPENSE UNIT - GM)"
^XMB(3.9,267,2,395,0)="     010337-0647-45   "
^XMB(3.9,267,2,396,0)="   VERVAIN LIQUID,ORAL"
^XMB(3.9,267,2,397,0)="    (CMOP - V0149)           (DISPENSE UNIT - ML)"
^XMB(3.9,267,2,398,0)="     051762-0036-10   "
^XMB(3.9,267,2,399,0)="   WILD CHERRY BARK PWDR"
^XMB(3.9,267,2,400,0)="    (CMOP - W0029)           (DISPENSE UNIT - GM)"
^XMB(3.9,267,2,401,0)="     051927-3166-00   "
^XMB(3.9,267,2,402,0)="   WILD YAM CAP/TAB"
^XMB(3.9,267,2,403,0)="    (CMOP - W0030)           (DISPENSE UNIT - CAP/TAB)"
^XMB(3.9,267,2,404,0)="     053191-0224-01   "
^XMB(3.9,267,2,405,0)="   ZOSTER VACCINE LIVE (OKA/MERCK) INJ"
^XMB(3.9,267,2,406,0)="    (CMOP - Z0072)           (DISPENSE UNIT - VI)"
^XMB(3.9,267,2,407,0)="     000006-4363-00   000006-4363-41   "
^XMB(3.9,267,2,408,0)=" "
^XMB(3.9,267,2,409,0)="The National Formulary Indicator has changed for the following"
^XMB(3.9,267,2,410,0)="VA Products.  The National Formulary Indicator will automatically"
^XMB(3.9,267,2,411,0)="be changed in your local DRUG file (#50).  Please review the"
^XMB(3.9,267,2,412,0)="VISN and Local Formulary designations of these products and"
^XMB(3.9,267,2,413,0)="make appropriate changes."
^XMB(3.9,267,2,414,0)=" "
^XMB(3.9,267,2,415,0)="FORMULARY ITEMS"
^XMB(3.9,267,2,416,0)="   AL OH 400MG/MG OH 400MG/SIMETHICONE 40MG/5ML LIQUID(360ML)"
^XMB(3.9,267,2,417,0)="   AL OH 400MG/MG OH 400MG/SIMETHICONE 40MG/5ML LIQUID(780ML)"
^XMB(3.9,267,2,418,0)="   AL OH 400MG/MG OH 400MG/SIMETHICONE 40MG/5ML LIQUID(ML)"
^XMB(3.9,267,2,419,0)="   ALTEPLACE,RECOMBINANT 50MG/VIL INJ"
^XMB(3.9,267,2,420,0)="   BENZOYL PEROXIDE 10% LOTION"
^XMB(3.9,267,2,421,0)="   CALCIUM ACETATE 667MG (CA 169MG) CAP"
^XMB(3.9,267,2,422,0)="   CHOLESTYRAMINE 4GM/5GM (LIGHT) PWDR,PKT"
^XMB(3.9,267,2,423,0)="   CHOLESTYRAMINE 4GM/9GM PWDR,PKT"
^XMB(3.9,267,2,424,0)="   DARBEPOETIN ALFA,RECOMBINANT 25MCG/0.42ML SYR INJ W/ALBUMIN"
^XMB(3.9,267,2,425,0)="   DARBEPOETIN ALFA,RECOMBINANT 40MCG/0.4ML SYR INJ W/ALBUMIN"
^XMB(3.9,267,2,426,0)="   DERMA CERIN CREAM,TOP"
^XMB(3.9,267,2,427,0)="   DEXTRAN 70/HYPROMELLOSE 0.3% SOLN,OPH"
^XMB(3.9,267,2,428,0)="   DEXTROSE 15GM/45GM SQUEEZE TUBE"
^XMB(3.9,267,2,429,0)="   DIPHTH,PERTUSS(ACELL),TET VACCINE 2-2.5-5/0.5ML INJ,SUSP"
^XMB(3.9,267,2,430,0)="   FENTANYL 12.5MCG/HR PATCH"
^XMB(3.9,267,2,431,0)="   FENTANYL 12MCG/HR PATCH"
^XMB(3.9,267,2,432,0)="   LEVOTHYROXINE NA 0.137MG TAB (SYNTHROID)"
^XMB(3.9,267,2,433,0)="   LOPINAVIR 200MG/RITONAVIR 50MG TAB"
^XMB(3.9,267,2,434,0)="   MEDICATION ORGANIZER 1 DAY/4 SLOT"
^XMB(3.9,267,2,435,0)="   MEDICATION ORGANIZER 7 DAY"
^XMB(3.9,267,2,436,0)="   MEDICATION ORGANIZER 7 DAY/4 SLOT APEX#70027PL"
^XMB(3.9,267,2,437,0)="   MEDICATION ORGANIZER 7DAY/4 SLOT"
^XMB(3.9,267,2,438,0)="   MEDICATION ORGANIZER 7DAY/4 SLOT APEX#70027"
^XMB(3.9,267,2,439,0)="   METOCLOPRAMIDE HCL 5MG/5ML SOLN,ORAL"
^XMB(3.9,267,2,440,0)="   METRONIDAZOLE 1% GEL,TOP"
^XMB(3.9,267,2,441,0)="   OMEPRAZOLE 10MG CAP,EC"
^XMB(3.9,267,2,442,0)="   OMEPRAZOLE 10MG CAP,EC,UD"
^XMB(3.9,267,2,443,0)="   OMEPRAZOLE 20MG CAP,EC"
^XMB(3.9,267,2,444,0)="   OMEPRAZOLE 20MG CAP,EC,UD"
^XMB(3.9,267,2,445,0)="   OMEPRAZOLE 40MG CAP,EC"
^XMB(3.9,267,2,446,0)="   OMEPRAZOLE 40MG CAP,EC,UD"
^XMB(3.9,267,2,447,0)="   PROMETHAZINE HCL 50MG/ML INJ"
^XMB(3.9,267,2,448,0)="   RECLIPSEN TAB,28"
^XMB(3.9,267,2,449,0)="   THERAPEUTIC BATH LOTION,TOP"
^XMB(3.9,267,2,450,0)="   THICK-IT 2 POWDER"
^XMB(3.9,267,2,451,0)="   THICK-IT POWDER"
^XMB(3.9,267,2,452,0)="   THICKENUP POWDER"
^XMB(3.9,267,2,453,0)="   VARDENAFIL HCL 10MG TAB"
^XMB(3.9,267,2,454,0)="   VARDENAFIL HCL 10MG TAB,PKG,6"
^XMB(3.9,267,2,455,0)="   VARDENAFIL HCL 2.5MG TAB"
^XMB(3.9,267,2,456,0)="   VARDENAFIL HCL 20MG TAB"
^XMB(3.9,267,2,457,0)="   VARDENAFIL HCL 20MG TAB,PKG,6"
^XMB(3.9,267,2,458,0)="   VARDENAFIL HCL 5MG TAB"
^XMB(3.9,267,2,459,0)=" "
^XMB(3.9,267,2,460,0)="NON-FORMULARY ITEMS"
^XMB(3.9,267,2,461,0)="   GLIPIZIDE 10MG TAB,SA"
^XMB(3.9,267,2,462,0)="   GLIPIZIDE 2.5MG TAB,SA"
^XMB(3.9,267,2,463,0)="   GLIPIZIDE 5MG TAB,SA"
^XMB(3.9,267,2,464,0)="   LANSOPRAZOLE 30MG CAP,SA"
^XMB(3.9,267,2,465,0)="   METFORMIN HCL 500MG TAB,SA"
^XMB(3.9,267,2,466,0)="   MORPHINE SO4 15MG TAB,SOLUBLE"
^XMB(3.9,267,2,467,0)="   OLANZAPINE 10MG TAB,RAPID DISINTERGRATING"
^XMB(3.9,267,2,468,0)="   OLANZAPINE 10MG,TAB RAPID DISINTEGRATING"
^XMB(3.9,267,2,469,0)="   OLANZAPINE 10MG,TAB,RAPID DISINTEGRATING TAB"
^XMB(3.9,267,2,470,0)="   OLANZAPINE 15MG,TAB RAPID DISINTEGRATING"
^XMB(3.9,267,2,471,0)="   OLANZAPINE 20MG TAB,RAPID DISINTEGRATING"
^XMB(3.9,267,2,472,0)="   OLANZAPINE 5MG TAB,RAPID DISINTEGRATING"
^XMB(3.9,267,2,473,0)="   OLANZAPINE 5MG TAB,RAPID DISINTERGRATING"
^XMB(3.9,267,2,474,0)="   OXYBUTYNIN CL 10MG TAB,SA"
^XMB(3.9,267,2,475,0)="   OXYBUTYNIN CL 15MG TAB,SA"
^XMB(3.9,267,2,476,0)="   OXYBUTYNIN CL 5MG TAB,SA"
^XMB(3.9,267,2,477,0)="   OXYBUTYNIN CL 5MG/5ML SYRUP"
^XMB(3.9,267,2,478,0)="   OXYCODONE HCL 20MG TAB,SA"
^XMB(3.9,267,2,479,0)="   OXYCODONE HCL 40MG TAB,SA,UD"
^XMB(3.9,267,2,480,0)="   SILDENAFIL CITRATE 100MG TAB"
^XMB(3.9,267,2,481,0)="   SILDENAFIL CITRATE 25MG TAB"
^XMB(3.9,267,2,482,0)="   SILDENAFIL CITRATE 50MG TAB"
^XMB(3.9,267,2,483,0)="   TICLOPIDINE HCL 250MG TAB"
^XMB(3.9,267,2,484,0)=" "
^XMB(3.9,267,2,485,0)="The following active VA Products are no longer marked for CMOP."
^XMB(3.9,267,2,486,0)="All local drug file entries matched to these VA Products will"
^XMB(3.9,267,2,487,0)="be UNMARKED for CMOP.  In order to have these entries dispensed"
^XMB(3.9,267,2,488,0)="by CMOP any local DRUG file (#50) entries matched to these"
^XMB(3.9,267,2,489,0)="products must be re-matched to another VA product that is actively"
^XMB(3.9,267,2,490,0)="marked for CMOP dispensing."
^XMB(3.9,267,2,491,0)=" "
^XMB(3.9,267,2,492,0)="   BOSENTAN 125MG TAB    B0477"
^XMB(3.9,267,2,493,0)="   BOSENTAN 62.5MG TAB    B0476"
^XMB(3.9,267,2,494,0)="   DEFERASIROX 125MG TAB,EFFERVSC    D0681"
^XMB(3.9,267,2,495,0)="   DEFERASIROX 250MG TAB,EFFERVSC    D0682"
^XMB(3.9,267,2,496,0)="   DEFERASIROX 500MG TAB,EFFERVSC    D0683"
^XMB(3.9,267,2,497,0)="   FENTANYL 12.5MCG/HR PATCH    F0351"
^XMB(3.9,267,2,498,0)="   NATALIZUMAB 20MG/ML INJ,SOLN,15ML    N0446"
^XMB(3.9,267,2,499,0)=" "
^XMB(3.9,267,2,500,0)="The National Formulary Restriction has changed for the following VA Products."
^XMB(3.9,267,2,501,0)="   MORPHINE SO4 10MG TAB,SOLUBLE"
^XMB(3.9,267,2,502,0)="        Restriction deleted"
^XMB(3.9,267,2,503,0)="   VARDENAFIL HCL 10MG TAB"
^XMB(3.9,267,2,504,0)="        Refer to erectile dysfunction treatment guidelines for use."
^XMB(3.9,267,6,0)="^3.911A^3^3"
^XMB(3.9,267,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,267,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,267,6,3,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,267,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,267,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,267,6,"B","SCHLEHUBER,CAMERON",3)=""
^XMB(3.9,268,0)="UPDATED INTERACTIONS^NDF MANAGER^3061008.040854"
^XMB(3.9,268,.6)="3061008"
^XMB(3.9,268,1,0)="^3.91A^3^3"
^XMB(3.9,268,1,1,0)="1^0^3061008.040926^^^^^^^3061008.040926"
^XMB(3.9,268,1,2,0)="63"
^XMB(3.9,268,1,3,0)="68"
^XMB(3.9,268,1,"C",1,1)=""
^XMB(3.9,268,1,"C",63,2)=""
^XMB(3.9,268,1,"C",68,3)=""
^XMB(3.9,268,2,0)="^^83^83^3061008"
^XMB(3.9,268,2,1,0)="The following interactions in National Drug File (NDF) have been added,"
^XMB(3.9,268,2,2,0)="edited or inactivated.  These changes are the result of review and"
^XMB(3.9,268,2,3,0)="recommendations from the NDF support group."
^XMB(3.9,268,2,4,0)=" "
^XMB(3.9,268,2,5,0)="ADDED INTERACTIONS"
^XMB(3.9,268,2,6,0)=" "
^XMB(3.9,268,2,7,0)="   ACITRETIN/PHENYTOIN                                Significant"
^XMB(3.9,268,2,8,0)="   AMITRIPTYLINE/YOHIMBINE HYDROCHLORIDE              Significant"
^XMB(3.9,268,2,9,0)="   BUPROPION/RISPERIDONE                              Significant"
^XMB(3.9,268,2,10,0)="   BUTALBITAL/HYPERICUM PERFORATUM (ST. JOHN'S WORT)  Significant"
^XMB(3.9,268,2,11,0)="   CARBAMAZEPINE/RISPERIDONE                          Significant"
^XMB(3.9,268,2,12,0)="   CISAPRIDE/QUETIAPINE FUMARATE                      Critical"
^XMB(3.9,268,2,13,0)="   CLOMIPRAMINE/YOHIMBINE HYDROCHLORIDE               Significant"
^XMB(3.9,268,2,14,0)="   CLONIDINE/EPHEDRA                                  Significant"
^XMB(3.9,268,2,15,0)="   COLCHICINE/TELITHROMYCIN                           Critical"
^XMB(3.9,268,2,16,0)="   DESIPRAMINE/YOHIMBINE HYDROCHLORIDE                Significant"
^XMB(3.9,268,2,17,0)="   EPHEDRA/FURAZOLIDONE                               Critical"
^XMB(3.9,268,2,18,0)="   EPHEDRA/HALOTHANE                                  Critical"
^XMB(3.9,268,2,19,0)="   EPHEDRA/ISOCARBOXAZID                              Critical"
^XMB(3.9,268,2,20,0)="   EPHEDRA/MIDODRINE HYDROCHLORIDE                    Significant"
^XMB(3.9,268,2,21,0)="   EPHEDRA/PARGYLINE                                  Critical"
^XMB(3.9,268,2,22,0)="   EPHEDRA/PHENELZINE                                 Critical"
^XMB(3.9,268,2,23,0)="   EPHEDRA/PROCARBAZINE                               Significant"
^XMB(3.9,268,2,24,0)="   EPHEDRA/RESERPINE                                  Significant"
^XMB(3.9,268,2,25,0)="   EPHEDRA/SELEGILINE                                 Critical"
^XMB(3.9,268,2,26,0)="   EPHEDRA/TRANYLCYPROMINE                            Critical"
^XMB(3.9,268,2,27,0)="   ESTRADIOL/HYPERICUM PERFORATUM (ST. JOHN'S WORT)   Significant"
^XMB(3.9,268,2,28,0)="   FENUGREEK SEED/GLYBURIDE                           Significant"
^XMB(3.9,268,2,29,0)="   FLUVOXAMINE MALEATE/GUARANA                        Significant"
^XMB(3.9,268,2,30,0)="   GUARANA/LITHIUM                                    Significant"
^XMB(3.9,268,2,31,0)="   IRON/SOYBEAN                                       Significant"
^XMB(3.9,268,2,32,0)="   ITRACONAZOLE/QUETIAPINE FUMARATE                   Significant"
^XMB(3.9,268,2,33,0)="   KETOCONAZOLE/QUETIAPINE FUMARATE                   Significant"
^XMB(3.9,268,2,34,0)="   MELATONIN/NIFEDIPINE                               Significant"
^XMB(3.9,268,2,35,0)="   MESORIDAZINE/QUETIAPINE FUMARATE                   Critical"
^XMB(3.9,268,2,36,0)="   NORTRIPTYLINE/YOHIMBINE HYDROCHLORIDE              Significant"
^XMB(3.9,268,2,37,0)="   PHENOBARBITAL/RISPERIDONE                          Significant"
^XMB(3.9,268,2,38,0)="   PHENYTOIN/RISPERIDONE                              Significant"
^XMB(3.9,268,2,39,0)="   RIFAMPIN/RISPERIDONE                               Significant"
^XMB(3.9,268,2,40,0)="   RISPERIDONE/RITONAVIR                              Significant"
^XMB(3.9,268,2,41,0)="   RISPERIDONE/TOPIRAMATE                             Significant"
^XMB(3.9,268,2,42,0)=" "
^XMB(3.9,268,2,43,0)="EDITED INTERACTIONS"
^XMB(3.9,268,2,44,0)=" "
^XMB(3.9,268,2,45,0)="   NONE"
^XMB(3.9,268,2,46,0)=" "
^XMB(3.9,268,2,47,0)="INACTIVATED INTERACTIONS"
^XMB(3.9,268,2,48,0)=" "
^XMB(3.9,268,2,49,0)="   NONE"
^XMB(3.9,268,2,50,0)=" "
^XMB(3.9,268,2,51,0)="The following products have been flagged for exclusion from drug-drug"
^XMB(3.9,268,2,52,0)="interaction checks."
^XMB(3.9,268,2,53,0)=" "
^XMB(3.9,268,2,54,0)="BARRIER,OSTOMY,NEW IMAGE H#14602"
^XMB(3.9,268,2,55,0)="BARRIER,OSTOMY,NEW IMAGE H#14603"
^XMB(3.9,268,2,56,0)="BARRIER,OSTOMY,NEW IMAGE H#14604"
^XMB(3.9,268,2,57,0)="CATHERIZATION SET,INTERMITTENT 10FR BARD #4A5110"
^XMB(3.9,268,2,58,0)="CATHERIZATION SET,INTERMITTENT 12FR BARD #4A5142"
^XMB(3.9,268,2,59,0)="CATHERIZATION SET,INTERMITTENT 14FR BARD #4A5144"
^XMB(3.9,268,2,60,0)="CATHERIZATION SET,INTERMITTENT 8FR BARD #4A5108"
^XMB(3.9,268,2,61,0)="CATHETER,SUCTION 14FR M#DYDN41442"
^XMB(3.9,268,2,62,0)="CATHETER,SUCTION,12FR KENDALL #37224"
^XMB(3.9,268,2,63,0)="CATHETER,SUCTION,14FR ALLEGIANCE #T60C"
^XMB(3.9,268,2,64,0)="DERMA CERIN CREAM,TOP"
^XMB(3.9,268,2,65,0)="FLUTICASONE PROPIONATE 0.05% LOTION,TOP"
^XMB(3.9,268,2,66,0)="INCONT LINER CAPRI REGULAR"
^XMB(3.9,268,2,67,0)="INCONT LINER CAPRI ULTRA PLUS"
^XMB(3.9,268,2,68,0)="MEQUINOL 2%/TRETINOIN 0.01% SOLN,TOP"
^XMB(3.9,268,2,69,0)="MIMYX CREAM,TOP"
^XMB(3.9,268,2,70,0)="NATURAL PROGESTERONE CREAM,TOP"
^XMB(3.9,268,2,71,0)="POUCH,DRAINABLE,ASSURA COLOPLAST #13964"
^XMB(3.9,268,2,72,0)="POUCH,DRAINABLE,ASSURA COLOPLAST #13965"
^XMB(3.9,268,2,73,0)="POUCH,DRAINABLE,ASSURA COLOPLAST #13966"
^XMB(3.9,268,2,74,0)="POUCH,DRAINABLE,ASSURA COLOPLAST #14364"
^XMB(3.9,268,2,75,0)="POUCH,DRAINABLE,SUR-FIT C#4112-63"
^XMB(3.9,268,2,76,0)="POUCH,DRAINABLE,SUR-FIT C#4112-64"
^XMB(3.9,268,2,77,0)="POUCH,DRAINABLE,SUR-FIT C#4112-65"
^XMB(3.9,268,2,78,0)="POUCH,DRAINABLE,SUR-FIT C#4112-66"
^XMB(3.9,268,2,79,0)="POUCH,DRAINABLE,SUR-FIT C#4112-67"
^XMB(3.9,268,2,80,0)="RESERVOIR,MINIMED #MMT-326A"
^XMB(3.9,268,2,81,0)="SET,INFUSION MINIMED #MMT-317"
^XMB(3.9,268,2,82,0)="THERAPEUTIC BATH LOTION,TOP"
^XMB(3.9,268,2,83,0)="UREA 50% OINT,TOP"
^XMB(3.9,268,6,0)="^3.911A^3^3"
^XMB(3.9,268,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,268,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,268,6,3,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,268,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,268,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,268,6,"B","SCHLEHUBER,CAMERON",3)=""
^XMB(3.9,269,0)="DRUGS UNMATCHED FROM NATIONAL DRUG FILE^NDF MANAGER^3061008.040856^^^^P"
^XMB(3.9,269,.6)="3061008"
^XMB(3.9,269,1,0)="^3.91A^3^3"
^XMB(3.9,269,1,1,0)="1^0^3061008.040929^^^^^^1^3061008.040929"
^XMB(3.9,269,1,2,0)="63"
^XMB(3.9,269,1,3,0)="68"
^XMB(3.9,269,1,"C",1,1)=""
^XMB(3.9,269,1,"C",63,2)=""
^XMB(3.9,269,1,"C",68,3)=""
^XMB(3.9,269,2,0)="^^93^93^3061008"
^XMB(3.9,269,2,1,0)=" "
^XMB(3.9,269,2,2,0)="The following active entries in your DRUG file (#50) have been"
^XMB(3.9,269,2,3,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,269,2,4,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,269,2,5,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,269,2,6,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,269,2,7,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,269,2,8,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,269,2,9,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,269,2,10,0)="products immediately.  You may also need to match a new"
^XMB(3.9,269,2,11,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,269,2,12,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,269,2,13,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,269,2,14,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,269,2,15,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,269,2,16,0)="matching process."
^XMB(3.9,269,2,17,0)=" "
^XMB(3.9,269,2,18,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,269,2,19,0)="                                                                    DATE"
^XMB(3.9,269,2,20,0)=" "
^XMB(3.9,269,2,21,0)="HCTZ 12.5/LOSARTAN 50MG                               94563"
^XMB(3.9,269,2,22,0)="    (CMOP H0214)             HYDROCHLOROTHIAZIDE 12.5MG/LOSARTANPOTASSIUM 50MG TAB"
^XMB(3.9,269,2,23,0)="    LOCAL POSSIBLE DOSES"
^XMB(3.9,269,2,24,0)="    DOSE                                            PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,269,2,25,0)="    1 TABLET                                          IO              "
^XMB(3.9,269,2,26,0)="    2 TABLETS                                         IO              "
^XMB(3.9,269,2,27,0)="HCTZ 25MG/LOSARTAN 100MG                              94564"
^XMB(3.9,269,2,28,0)="    (CMOP H0361)             HYDROCHLOROTHIAZIDE 25MG/LORSARTAN OTASSIUM 100MG TAB"
^XMB(3.9,269,2,29,0)="    LOCAL POSSIBLE DOSES"
^XMB(3.9,269,2,30,0)="    DOSE                                            PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,269,2,31,0)="    1 TABLET                                          IO              "
^XMB(3.9,269,2,32,0)="    2 TABLETS                                         IO              "
^XMB(3.9,269,2,33,0)="K-PHOS NEUTRAL                                        5602"
^XMB(3.9,269,2,34,0)="    (CMOP P0202)             K PHOSPHATE 155MG/NA BIPHOSPHATE 13MG/NA PHOSPHATE 852MG TAB"
^XMB(3.9,269,2,35,0)="    LOCAL POSSIBLE DOSES"
^XMB(3.9,269,2,36,0)="    DOSE                                            PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,269,2,37,0)="    1 TABLET                                          IO              "
^XMB(3.9,269,2,38,0)="    2 TABLETS                                         IO              "
^XMB(3.9,269,2,39,0)="    1 TAB                                             IO              "
^XMB(3.9,269,2,40,0)="    2 TABS                                            IO              "
^XMB(3.9,269,2,41,0)=" "
^XMB(3.9,269,2,42,0)="The following investigational entries in your DRUG file (#50) have been"
^XMB(3.9,269,2,43,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,269,2,44,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,269,2,45,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,269,2,46,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,269,2,47,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,269,2,48,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,269,2,49,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,269,2,50,0)="products immediately.  You may also need to match a new"
^XMB(3.9,269,2,51,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,269,2,52,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,269,2,53,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,269,2,54,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,269,2,55,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,269,2,56,0)="matching process."
^XMB(3.9,269,2,57,0)=" "
^XMB(3.9,269,2,58,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,269,2,59,0)="                                                                    DATE"
^XMB(3.9,269,2,60,0)=" "
^XMB(3.9,269,2,61,0)="  NONE"
^XMB(3.9,269,2,62,0)=" "
^XMB(3.9,269,2,63,0)="The following inactive entries in your DRUG file (#50) have been"
^XMB(3.9,269,2,64,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,269,2,65,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,269,2,66,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,269,2,67,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,269,2,68,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,269,2,69,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,269,2,70,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,269,2,71,0)="products immediately.  You may also need to match a new"
^XMB(3.9,269,2,72,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,269,2,73,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,269,2,74,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,269,2,75,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,269,2,76,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,269,2,77,0)="matching process."
^XMB(3.9,269,2,78,0)=" "
^XMB(3.9,269,2,79,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,269,2,80,0)="                                                                    DATE"
^XMB(3.9,269,2,81,0)=" "
^XMB(3.9,269,2,82,0)="HYDROCHLOROTHIAZIDE-LOSARTAN 12.5MG                   94332  7/24/2005"
^XMB(3.9,269,2,83,0)="    (CMOP H0214)             HYDROCHLOROTHIAZIDE 12.5MG/LOSARTANPOTASSIUM 50MG TAB"
^XMB(3.9,269,2,84,0)="    LOCAL POSSIBLE DOSES"
^XMB(3.9,269,2,85,0)="    DOSE                                            PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,269,2,86,0)="    1 TABLET                                          IO              "
^XMB(3.9,269,2,87,0)="    2 TABLETS                                         IO              "
^XMB(3.9,269,2,88,0)="HYDROCHLOROTHIAZIDE-LOSARTAN 25MG                     94333  7/24/2005"
^XMB(3.9,269,2,89,0)="    (CMOP H0361)             HYDROCHLOROTHIAZIDE 25MG/LORSARTAN OTASSIUM 100MG TAB"
^XMB(3.9,269,2,90,0)="    LOCAL POSSIBLE DOSES"
^XMB(3.9,269,2,91,0)="    DOSE                                            PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,269,2,92,0)="    1 TABLET                                          IO              "
^XMB(3.9,269,2,93,0)="    2 TABLETS                                         IO              "
^XMB(3.9,269,6,0)="^3.911A^3^3"
^XMB(3.9,269,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,269,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,269,6,3,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,269,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,269,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,269,6,"B","SCHLEHUBER,CAMERON",3)=""
^XMB(3.9,270,0)="PATCH GMRA*4*20 Post Install COMPLETED^PATCH GMRA*4*20 POST-INSTALL^3061008.040946"
^XMB(3.9,270,.6)="3061008"
^XMB(3.9,270,1,0)="^3.91A^2^2"
^XMB(3.9,270,1,1,0)=".5"
^XMB(3.9,270,1,2,0)="1^0^3061008.041006^^^^^^^3061008.041006"
^XMB(3.9,270,1,"C",.5,1)=""
^XMB(3.9,270,1,"C",1,2)=""
^XMB(3.9,270,2,0)="^^3^3^3061008"
^XMB(3.9,270,2,1,0)="The post-install routine for patch GMRA*4*20"
^XMB(3.9,270,2,2,0)="finished on Oct 08, 2006@04:09:46."
^XMB(3.9,270,2,3,0)=""
^XMB(3.9,270,6,0)="^3.911A^2^2"
^XMB(3.9,270,6,1,0)="POSTMASTER"
^XMB(3.9,270,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,270,6,"B","POSTMASTER",1)=""
^XMB(3.9,270,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,271,0)="IB*2.0*342 installation has been completed^INTEGRATED BILLING PACKAGE^3061008.041746"
^XMB(3.9,271,.6)="3061008"
^XMB(3.9,271,1,0)="^3.91A^1^1"
^XMB(3.9,271,1,1,0)="1^0^3061008.041816^^^^^^^3061008.041816"
^XMB(3.9,271,1,"C",1,1)=""
^XMB(3.9,271,2,0)="^^4^4^3061008"
^XMB(3.9,271,2,1,0)=""
^XMB(3.9,271,2,2,0)="The conversion of data from the ^XTMP global array into the IB NCPDP"
^XMB(3.9,271,2,3,0)="EVENT LOG file has successfully completed."
^XMB(3.9,271,2,4,0)=""
^XMB(3.9,271,6,0)="^3.911A^1^1"
^XMB(3.9,271,6,1,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,271,6,"B","SCHLEHUBER,CAMERON",1)=""
^XMB(3.9,272,0)="Patch PX*1.0*157 Educ topic modification completed^PATCH PX*1.0*157 EDUC TOPIC MODIFY JOB^3061008.041914"
^XMB(3.9,272,.6)="3061008"
^XMB(3.9,272,1,0)="^3.91A^2^2"
^XMB(3.9,272,1,1,0)=".5"
^XMB(3.9,272,1,2,0)="1"
^XMB(3.9,272,1,"C",.5,1)=""
^XMB(3.9,272,1,"C",1,2)=""
^XMB(3.9,272,2,0)="^^11^11^3061008"
^XMB(3.9,272,2,1,0)="The modification of Education Topics: VA-Advanced Directives and"
^XMB(3.9,272,2,2,0)="VA-Advanced Directives Screening, has completed"
^XMB(3.9,272,2,3,0)=""
^XMB(3.9,272,2,4,0)=""
^XMB(3.9,272,2,5,0)="                 ***  CHANGED  ***"
^XMB(3.9,272,2,6,0)="Modified topic VA-Advanced Directives Screening for verbiage"
^XMB(3.9,272,2,7,0)="correction where used"
^XMB(3.9,272,2,8,0)=""
^XMB(3.9,272,2,9,0)="                 ***  CHANGED  ***"
^XMB(3.9,272,2,10,0)="Modified topic VA-Advanced Directives for verbiage correction"
^XMB(3.9,272,2,11,0)="where used"
^XMB(3.9,272,6,0)="^3.911A^2^2"
^XMB(3.9,272,6,1,0)="POSTMASTER"
^XMB(3.9,272,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,272,6,"B","POSTMASTER",1)=""
^XMB(3.9,272,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,273,0)="PSJ*5*171 INPATIENT MEDS ACTIVITY MULTIPLE CLEANUP COMPLETED^MEDICATIONS,INPATIENT^3061106.15112"
^XMB(3.9,273,.6)="3061106"
^XMB(3.9,273,1,0)="^3.91A^1^1"
^XMB(3.9,273,1,1,0)="1^0^3061106.15172^^^^^^^3061106.15172"
^XMB(3.9,273,1,"C",1,1)=""
^XMB(3.9,273,2,0)="^^1^1^3061106"
^XMB(3.9,273,2,1,0)="The cleanup of the Inpatient Medication Activity Multiple has completed."
^XMB(3.9,273,6,0)="^3.911A^1^1"
^XMB(3.9,273,6,1,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,273,6,"B","SCHLEHUBER,CAMERON",1)=""
^XMB(3.9,274,0)="Event Code Screens to Review^.5^3061106.15112"
^XMB(3.9,274,.6)="3061106"
^XMB(3.9,274,1,0)="^3.91A^1^1"
^XMB(3.9,274,1,1,0)="1^0^3061106.151724^^^^^^^3061106.151724"
^XMB(3.9,274,1,"C",1,1)=""
^XMB(3.9,274,2,0)="^^21^21^3061106"
^XMB(3.9,274,2,1,0)=" Please forward this message to your local DSS Site Manager or"
^XMB(3.9,274,2,2,0)=" Event Capture ADPAC."
^XMB(3.9,274,2,3,0)=""
^XMB(3.9,274,2,4,0)=" A review of the EC EVENT CODE SCREENS file (#720.3) was done"
^XMB(3.9,274,2,5,0)=" after installation of patch EC*2*85 which updated the EC NATIONAL"
^XMB(3.9,274,2,6,0)=" PROCEDURE file (#725).  This message provides the results of that"
^XMB(3.9,274,2,7,0)=" review."
^XMB(3.9,274,2,8,0)=""
^XMB(3.9,274,2,9,0)=" The EC EVENT CODE SCREENS file (#720.3) records indicated below"
^XMB(3.9,274,2,10,0)=" point to an inactive record in the EC NATIONAL PROCEDURE file"
^XMB(3.9,274,2,11,0)=" (#725) or to an inactive record in the CPT file (#81)."
^XMB(3.9,274,2,12,0)=""
^XMB(3.9,274,2,13,0)=" The user should use the Inactivate Event Code Screens [ECNACT]"
^XMB(3.9,274,2,14,0)=" option to inactivate the Event Code Screen.  If necessary, a new"
^XMB(3.9,274,2,15,0)=" Event Code Screen can be created using a currently active CPT code"
^XMB(3.9,274,2,16,0)=" or National Procedure."
^XMB(3.9,274,2,17,0)=""
^XMB(3.9,274,2,18,0)=" "
^XMB(3.9,274,2,19,0)=" 0 Event Code Screens were found to be pointing to aninactive"
^XMB(3.9,274,2,20,0)=" or soon to be inactive procedure in file #725 or file #81."
^XMB(3.9,274,2,21,0)=" "
^XMB(3.9,274,6,0)="^3.911A^1^1"
^XMB(3.9,274,6,1,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,274,6,"B","SCHLEHUBER,CAMERON",1)=""
^XMB(3.9,275,0)="DATA UPDATE FOR NDF^NDF MANAGER^3061225.16323"
^XMB(3.9,275,.6)="3061225"
^XMB(3.9,275,1,0)="^3.91A^3^3"
^XMB(3.9,275,1,1,0)="1^0^3061225.163255^^^^^^^3061225.163255"
^XMB(3.9,275,1,2,0)="63"
^XMB(3.9,275,1,3,0)="68"
^XMB(3.9,275,1,"C",1,1)=""
^XMB(3.9,275,1,"C",63,2)=""
^XMB(3.9,275,1,"C",68,3)=""
^XMB(3.9,275,2,0)="^^473^473^3061225"
^XMB(3.9,275,2,1,0)=" "
^XMB(3.9,275,2,2,0)="The following VA Products have been added to the National"
^XMB(3.9,275,2,3,0)="Drug File.  You may wish to review, then match or unmatch"
^XMB(3.9,275,2,4,0)="local drug file entries based on this updated information."
^XMB(3.9,275,2,5,0)=" "
^XMB(3.9,275,2,6,0)="   ACETYLCYSTEINE 500MG CAP,ORAL"
^XMB(3.9,275,2,7,0)="    (CMOP - A1322)           (DISPENSE UNIT - CAP)"
^XMB(3.9,275,2,8,0)="     053191-0328-01   "
^XMB(3.9,275,2,9,0)="   ADALIMUMAB 40MG/0.8ML INJ,PEN,KIT"
^XMB(3.9,275,2,10,0)="    (CMOP - A1323)           (DISPENSE UNIT - EA)"
^XMB(3.9,275,2,11,0)="     000074-4339-02   "
^XMB(3.9,275,2,12,0)="   AMLODIPINE BESYLATE 10MG/BENAZEPRIL HCL 40MG CAP"
^XMB(3.9,275,2,13,0)="    (CMOP - A1325)           (DISPENSE UNIT - CAP)"
^XMB(3.9,275,2,14,0)="     000078-0379-05   "
^XMB(3.9,275,2,15,0)="   AMLODIPINE BESYLATE 5MG/BENAZEPRIL HCL 40MG CAP"
^XMB(3.9,275,2,16,0)="    (CMOP - A1324)           (DISPENSE UNIT - CAP)"
^XMB(3.9,275,2,17,0)="     000078-0384-05   "
^XMB(3.9,275,2,18,0)="   BARIUM SO4 0.1% SUSP,ORAL"
^XMB(3.9,275,2,19,0)="    (CMOP - B0556)           (DISPENSE UNIT - ML)"
^XMB(3.9,275,2,20,0)="     932909-9450-01   "
^XMB(3.9,275,2,21,0)="   BARIUM SO4 40% SUSP,ORAL"
^XMB(3.9,275,2,22,0)="    (CMOP - B0557)           (DISPENSE UNIT - ML)"
^XMB(3.9,275,2,23,0)="     032909-0814-53   "
^XMB(3.9,275,2,24,0)="   BARRIER,OSTOMY,NEW IMAGE H#16104"
^XMB(3.9,275,2,25,0)="    (CMOP - XV124)           (DISPENSE UNIT - EA)"
^XMB(3.9,275,2,26,0)="     008380-0161-04   "
^XMB(3.9,275,2,27,0)="   CALCIUM CARBONATE 1GM/SIMETHICONE 60MG TAB,CHEWABLE"
^XMB(3.9,275,2,28,0)="    (CMOP - C1255)           (DISPENSE UNIT - TAB)"
^XMB(3.9,275,2,29,0)="     000067-0219-65   "
^XMB(3.9,275,2,30,0)="   CHLOROPHYLL 0.5%/PAPAIN/UREA 10% OINT,TOP"
^XMB(3.9,275,2,31,0)="    (CMOP - C1256)           (DISPENSE UNIT - GM)"
^XMB(3.9,275,2,32,0)="     058980-0765-35   058980-0765-11   "
^XMB(3.9,275,2,33,0)="   CONVEX INSERT,ADAPT H#79520"
^XMB(3.9,275,2,34,0)="    (CMOP - XV134)           (DISPENSE UNIT - EA)"
^XMB(3.9,275,2,35,0)="     999010-0795-20   "
^XMB(3.9,275,2,36,0)="   CONVEX INSERT,ADAPT H#79530"
^XMB(3.9,275,2,37,0)="    (CMOP - XV135)           (DISPENSE UNIT - EA)"
^XMB(3.9,275,2,38,0)="     999010-0795-30   "
^XMB(3.9,275,2,39,0)="   CONVEX INSERT,ADAPT H#79540"
^XMB(3.9,275,2,40,0)="    (CMOP - XV136)           (DISPENSE UNIT - EA)"
^XMB(3.9,275,2,41,0)="     999010-0795-40   "
^XMB(3.9,275,2,42,0)="   DRESSING,OPSITE IV3000 FRAME 2 3/8IN X 2 3/4IN SN#59410000"
^XMB(3.9,275,2,43,0)="    (CMOP - XV132)           (DISPENSE UNIT - EA)"
^XMB(3.9,275,2,44,0)="     040565-1156-00   "
^XMB(3.9,275,2,45,0)="   DRESSING,SILVERCEL 1IN X 12IN JJ#800112"
^XMB(3.9,275,2,46,0)="    (CMOP - XV128)           (DISPENSE UNIT - EA)"
^XMB(3.9,275,2,47,0)="     055580-0112-22   "
^XMB(3.9,275,2,48,0)="   DRESSING,SILVERCEL 2IN X 2IN JJ#800202"
^XMB(3.9,275,2,49,0)="    (CMOP - XV126)           (DISPENSE UNIT - EA)"
^XMB(3.9,275,2,50,0)="     055580-0202-22   "
^XMB(3.9,275,2,51,0)="   DRESSING,SILVERCEL 4.25IN X 4.25IN JJ#800404"
^XMB(3.9,275,2,52,0)="    (CMOP - XV125)           (DISPENSE UNIT - EA)"
^XMB(3.9,275,2,53,0)="     055580-0404-22   "
^XMB(3.9,275,2,54,0)="   DRESSING,SILVERCEL 4IN X 8IN JJ#800408"
^XMB(3.9,275,2,55,0)="    (CMOP - XV127)           (DISPENSE UNIT - EA)"
^XMB(3.9,275,2,56,0)="     055580-0408-22   "
^XMB(3.9,275,2,57,0)="   EFAVIRENZ 600MG/EMTRICITABINE 200MG/TENOFOVIR DF 300MG TAB"
^XMB(3.9,275,2,58,0)="    (CMOP - E0448)           (DISPENSE UNIT - TAB)"
^XMB(3.9,275,2,59,0)="     015584-0101-01   "
^XMB(3.9,275,2,60,0)="   ESTROGENS,CONJUGATED SYNTHETIC B 0.3MG TAB"
^XMB(3.9,275,2,61,0)="    (CMOP - E0454)           (DISPENSE UNIT - TAB)"
^XMB(3.9,275,2,62,0)="     051285-0406-02   "
^XMB(3.9,275,2,63,0)="   ESTROGENS,CONJUGATED SYNTHETIC B 0.45MG TAB"
^XMB(3.9,275,2,64,0)="    (CMOP - E0453)           (DISPENSE UNIT - TAB)"
^XMB(3.9,275,2,65,0)="     051285-0407-02   "
^XMB(3.9,275,2,66,0)="   ESTROGENS,CONJUGATED SYNTHETIC B 0.625MG TAB"
^XMB(3.9,275,2,67,0)="    (CMOP - E0455)           (DISPENSE UNIT - TAB)"
^XMB(3.9,275,2,68,0)="     051285-0408-02   "
^XMB(3.9,275,2,69,0)="   ESTROGENS,CONJUGATED SYNTHETIC B 1.25MG TAB"
^XMB(3.9,275,2,70,0)="    (CMOP - E0452)           (DISPENSE UNIT - TAB)"
^XMB(3.9,275,2,71,0)="     051285-0410-02   "
^XMB(3.9,275,2,72,0)="   EXUBERA CHAMBER AND INHALER"
^XMB(3.9,275,2,73,0)="    (CMOP - E0449)           (DISPENSE UNIT - EA)"
^XMB(3.9,275,2,74,0)="     000069-0054-19   "
^XMB(3.9,275,2,75,0)="   EXUBERA CHAMBER"
^XMB(3.9,275,2,76,0)="    (CMOP - E0451)           (DISPENSE UNIT - EA)"
^XMB(3.9,275,2,77,0)="     000069-0061-19   "
^XMB(3.9,275,2,78,0)="   EXUBERA RELEASE UNIT"
^XMB(3.9,275,2,79,0)="    (CMOP - E0450)           (DISPENSE UNIT - EA)"
^XMB(3.9,275,2,80,0)="     000069-0097-41   "
^XMB(3.9,275,2,81,0)="   HYDRA-AID GEL,ORAL,PKT,12GM"
^XMB(3.9,275,2,82,0)="    (CMOP - H0503)           (DISPENSE UNIT - PKT)"
^XMB(3.9,275,2,83,0)="     051028-0001-12   "
^XMB(3.9,275,2,84,0)="   HYDRA-AID GEL,ORAL,PKT,26GM"
^XMB(3.9,275,2,85,0)="    (CMOP - H0504)           (DISPENSE UNIT - PKT)"
^XMB(3.9,275,2,86,0)="     051028-0001-26   "
^XMB(3.9,275,2,87,0)="   HYDRA-AID GEL,ORAL"
^XMB(3.9,275,2,88,0)="    (CMOP - H0501)           (DISPENSE UNIT - GM)"
^XMB(3.9,275,2,89,0)="     051028-0001-64   005102-8001-64   "
^XMB(3.9,275,2,90,0)="   HYDROCORTISONE 10%/ULTRASOUND GEL,TOP"
^XMB(3.9,275,2,91,0)="    (CMOP - H0502)           (DISPENSE UNIT - GM)"
^XMB(3.9,275,2,92,0)="     065628-0010-01   "
^XMB(3.9,275,2,93,0)="   IDURSULFASE 2MG/ML INJ"
^XMB(3.9,275,2,94,0)="    (CMOP - I0439)           (DISPENSE UNIT - ML)"
^XMB(3.9,275,2,95,0)="     054092-0700-01   "
^XMB(3.9,275,2,96,0)="   INCONT LINER HANDI-CARE 10IN X 14IN"
^XMB(3.9,275,2,97,0)="    (CMOP - XV122)           (DISPENSE UNIT - EA)"
^XMB(3.9,275,2,98,0)="     900888-7153-09   "
^XMB(3.9,275,2,99,0)="   INCONT LINER HANDI-CARE 10IN X 24IN"
^XMB(3.9,275,2,100,0)="    (CMOP - XV123)           (DISPENSE UNIT - EA)"
^XMB(3.9,275,2,101,0)="     900888-7153-24   "
^XMB(3.9,275,2,102,0)="   INCONT LINER HANDI-CARE 4.5IN X 14IN"
^XMB(3.9,275,2,103,0)="    (CMOP - XV119)           (DISPENSE UNIT - EA)"
^XMB(3.9,275,2,104,0)="     900888-7153-10   "
^XMB(3.9,275,2,105,0)="   INCONT LINER HANDI-CARE 6.5IN X 17IN"
^XMB(3.9,275,2,106,0)="    (CMOP - XV120)           (DISPENSE UNIT - EA)"
^XMB(3.9,275,2,107,0)="     900888-7153-20   "
^XMB(3.9,275,2,108,0)="   INCONT LINER HANDI-CARE 7IN X 17IN"
^XMB(3.9,275,2,109,0)="    (CMOP - XV121)           (DISPENSE UNIT - EA)"
^XMB(3.9,275,2,110,0)="     900888-7153-35   "
^XMB(3.9,275,2,111,0)="   INCONT LINER MOLIMED 5.5IN X 10IN"
^XMB(3.9,275,2,112,0)="    (CMOP - XV116)           (DISPENSE UNIT - EA)"
^XMB(3.9,275,2,113,0)="     053329-0168-53   "
^XMB(3.9,275,2,114,0)="   INCONT LINER MOLIMED 6.5IN X 13IN"
^XMB(3.9,275,2,115,0)="    (CMOP - XV117)           (DISPENSE UNIT - EA)"
^XMB(3.9,275,2,116,0)="     053329-0168-54   "
^XMB(3.9,275,2,117,0)="   INCONT LINER MOLIMED 8IN X 17IN"
^XMB(3.9,275,2,118,0)="    (CMOP - XV118)           (DISPENSE UNIT - EA)"
^XMB(3.9,275,2,119,0)="     053329-0168-57   "
^XMB(3.9,275,2,120,0)="   INSULIN SYRINGE 0.3ML 29G 0.5IN"
^XMB(3.9,275,2,121,0)="    (CMOP - XV133)           (DISPENSE UNIT - EA)"
^XMB(3.9,275,2,122,0)="     057599-8550-01   "
^XMB(3.9,275,2,123,0)="   INSULIN,HUMAN 1MG X 180/3MG X 90 INHL,ORAL,BLISTER,KIT"
^XMB(3.9,275,2,124,0)="    (CMOP - I0442)           (DISPENSE UNIT - KIT)"
^XMB(3.9,275,2,125,0)="     000069-0050-85   "
^XMB(3.9,275,2,126,0)="   INSULIN,HUMAN 1MG X 180/3MG X 90 INHL,ORAL,BLISTER,PKT"
^XMB(3.9,275,2,127,0)="    (CMOP - I0443)           (DISPENSE UNIT - PKT)"
^XMB(3.9,275,2,128,0)="     000069-0050-53   "
^XMB(3.9,275,2,129,0)="   INSULIN,HUMAN 1MG X 90/3MG X 90 INHL,ORAL,BLISTER,PKT"
^XMB(3.9,275,2,130,0)="    (CMOP - I0444)           (DISPENSE UNIT - PKT)"
^XMB(3.9,275,2,131,0)="     000069-0050-19   "
^XMB(3.9,275,2,132,0)="   INSULIN,LISPRO,HUMAN 50/50 INJ,PEN,3ML"
^XMB(3.9,275,2,133,0)="    (CMOP - I0441)           (DISPENSE UNIT - EA)"
^XMB(3.9,275,2,134,0)="     000002-8793-59   "
^XMB(3.9,275,2,135,0)="   INTERFERON BETA-1A 8.8MCG X 6/22MCG X 6 SYR INJ (REBIF)"
^XMB(3.9,275,2,136,0)="    (CMOP - I0440)           (DISPENSE UNIT - PKT)"
^XMB(3.9,275,2,137,0)="     044087-8822-01   "
^XMB(3.9,275,2,138,0)="   LIDOCAINE 70MG/TETRACAINE 70MG PATCH"
^XMB(3.9,275,2,139,0)="    (CMOP - L0376)           (DISPENSE UNIT - PATCH)"
^XMB(3.9,275,2,140,0)="     063481-0864-10   "
^XMB(3.9,275,2,141,0)="   LOESTRIN FE 24 TAB,28"
^XMB(3.9,275,2,142,0)="    (CMOP - L0377)           (DISPENSE UNIT - CYCLE)"
^XMB(3.9,275,2,143,0)="     000430-0530-14   "
^XMB(3.9,275,2,144,0)="   MANGOSTEEN LIQUID,ORAL"
^XMB(3.9,275,2,145,0)="    (CMOP - M0691)           (DISPENSE UNIT - ML)"
^XMB(3.9,275,2,146,0)="     992541-2547-01   "
^XMB(3.9,275,2,147,0)="   METHYLPHENIDATE HCL (METADATE CD) 50MG CAP,SA"
^XMB(3.9,275,2,148,0)="    (CMOP - M0690)           (DISPENSE UNIT - CAP)"
^XMB(3.9,275,2,149,0)="     053014-0583-07   "
^XMB(3.9,275,2,150,0)="   MICONAZOLE NITRATE 0.25%/ZINC OXIDE 15% OINT,TOP"
^XMB(3.9,275,2,151,0)="    (CMOP - M0692)           (DISPENSE UNIT - GM)"
^XMB(3.9,275,2,152,0)="     013478-0002-01   "
^XMB(3.9,275,2,153,0)="   MYCOPHENOLATE NA 180MG TAB,EC"
^XMB(3.9,275,2,154,0)="    (CMOP - M0693)           (DISPENSE UNIT - TAB)"
^XMB(3.9,275,2,155,0)="     000078-0385-66   "
^XMB(3.9,275,2,156,0)="   MYCOPHENOLATE NA 360MG TAB,EC"
^XMB(3.9,275,2,157,0)="    (CMOP - M0694)           (DISPENSE UNIT - TAB)"
^XMB(3.9,275,2,158,0)="     000078-0386-66   "
^XMB(3.9,275,2,159,0)="   OXYCODONE HCL 4.8355MG/ASPIRIN 325MG TAB"
^XMB(3.9,275,2,160,0)="    (CMOP - O0209)           (DISPENSE UNIT - TAB)"
^XMB(3.9,275,2,161,0)="     063481-0121-70   060951-0310-70   "
^XMB(3.9,275,2,162,0)="   OXYMORPHONE HCL 10MG TAB,SA,UD"
^XMB(3.9,275,2,163,0)="    (CMOP - O0213)           (DISPENSE UNIT - TAB)"
^XMB(3.9,275,2,164,0)="     063481-0674-75   "
^XMB(3.9,275,2,165,0)="   OXYMORPHONE HCL 10MG TAB,SA"
^XMB(3.9,275,2,166,0)="    (CMOP - O0212)           (DISPENSE UNIT - TAB)"
^XMB(3.9,275,2,167,0)="     063481-0674-70   "
^XMB(3.9,275,2,168,0)="   OXYMORPHONE HCL 10MG TAB,UD"
^XMB(3.9,275,2,169,0)="    (CMOP - O0220)           (DISPENSE UNIT - TAB)"
^XMB(3.9,275,2,170,0)="     063481-0613-75   "
^XMB(3.9,275,2,171,0)="   OXYMORPHONE HCL 10MG TAB"
^XMB(3.9,275,2,172,0)="    (CMOP - O0219)           (DISPENSE UNIT - TAB)"
^XMB(3.9,275,2,173,0)="     063481-0613-70   "
^XMB(3.9,275,2,174,0)="   OXYMORPHONE HCL 20MG TAB,SA,UD"
^XMB(3.9,275,2,175,0)="    (CMOP - O0215)           (DISPENSE UNIT - TAB)"
^XMB(3.9,275,2,176,0)="     063481-0617-75   "
^XMB(3.9,275,2,177,0)="   OXYMORPHONE HCL 20MG TAB,SA"
^XMB(3.9,275,2,178,0)="    (CMOP - O0214)           (DISPENSE UNIT - TAB)"
^XMB(3.9,275,2,179,0)="     063481-0617-70   "
^XMB(3.9,275,2,180,0)="   OXYMORPHONE HCL 40MG TAB,SA,UD"
^XMB(3.9,275,2,181,0)="    (CMOP - O0217)           (DISPENSE UNIT - TAB)"
^XMB(3.9,275,2,182,0)="     063481-0693-75   "
^XMB(3.9,275,2,183,0)="   OXYMORPHONE HCL 40MG TAB,SA"
^XMB(3.9,275,2,184,0)="    (CMOP - O0216)           (DISPENSE UNIT - TAB)"
^XMB(3.9,275,2,185,0)="     063481-0693-70   "
^XMB(3.9,275,2,186,0)="   OXYMORPHONE HCL 5MG TAB,SA,UD"
^XMB(3.9,275,2,187,0)="    (CMOP - O0211)           (DISPENSE UNIT - TAB)"
^XMB(3.9,275,2,188,0)="     063481-0907-75   "
^XMB(3.9,275,2,189,0)="   OXYMORPHONE HCL 5MG TAB,SA"
^XMB(3.9,275,2,190,0)="    (CMOP - O0210)           (DISPENSE UNIT - TAB)"
^XMB(3.9,275,2,191,0)="     063481-0907-70   "
^XMB(3.9,275,2,192,0)="   OXYMORPHONE HCL 5MG TAB,UD"
^XMB(3.9,275,2,193,0)="    (CMOP - O0221)           (DISPENSE UNIT - TAB)"
^XMB(3.9,275,2,194,0)="     063481-0612-75   "
^XMB(3.9,275,2,195,0)="   OXYMORPHONE HCL 5MG TAB"
^XMB(3.9,275,2,196,0)="    (CMOP - O0218)           (DISPENSE UNIT - TAB)"
^XMB(3.9,275,2,197,0)="     063481-0612-70   "
^XMB(3.9,275,2,198,0)="   PHENOL (DILUTE) 0.6% (AF) MOUTHWASH"
^XMB(3.9,275,2,199,0)="    (CMOP - P0762)           (DISPENSE UNIT - ML)"
^XMB(3.9,275,2,200,0)="     045565-0100-21   "
^XMB(3.9,275,2,201,0)="   RANIBIZUMAB 0.5MG/0.05ML INJ,OPH"
^XMB(3.9,275,2,202,0)="    (CMOP - R0201)           (DISPENSE UNIT - VI)"
^XMB(3.9,275,2,203,0)="     050242-0080-01   "
^XMB(3.9,275,2,204,0)="   SELEGILINE HCL 1.25MG TAB,ORAL DISINTEGRATING"
^XMB(3.9,275,2,205,0)="    (CMOP - S0464)           (DISPENSE UNIT - TAB)"
^XMB(3.9,275,2,206,0)="     000187-0453-02   "
^XMB(3.9,275,2,207,0)="   SODIUM ALGINATE PWDR"
^XMB(3.9,275,2,208,0)="    (CMOP - S0465)           (DISPENSE UNIT - GM)"
^XMB(3.9,275,2,209,0)="     053329-0305-09   "
^XMB(3.9,275,2,210,0)="   SODIUM CHLORIDE 3% INHL 15ML"
^XMB(3.9,275,2,211,0)="    (CMOP - S0466)           (DISPENSE UNIT - EA)"
^XMB(3.9,275,2,212,0)="     049502-0640-15   "
^XMB(3.9,275,2,213,0)="   SOMATROPIN 13.8MG/VIL INJ,SOLN,CARTRIDGE"
^XMB(3.9,275,2,214,0)="    (CMOP - S0467)           (DISPENSE UNIT - EA)"
^XMB(3.9,275,2,215,0)="     000013-2646-81   000013-2646-94   "
^XMB(3.9,275,2,216,0)="   TAPE,PINK 1.5IN X 5YD NU-HOPE #1615"
^XMB(3.9,275,2,217,0)="    (CMOP - XV130)           (DISPENSE UNIT - EA)"
^XMB(3.9,275,2,218,0)="     999945-2601-15   "
^XMB(3.9,275,2,219,0)="   TAPE,PINK 1IN X 5YD NU-HOPE #1610"
^XMB(3.9,275,2,220,0)="    (CMOP - XV129)           (DISPENSE UNIT - EA)"
^XMB(3.9,275,2,221,0)="     999945-2601-01   "
^XMB(3.9,275,2,222,0)="   TAPE,PINK 2IN X 5YD NU-HOPE #1620"
^XMB(3.9,275,2,223,0)="    (CMOP - XV131)           (DISPENSE UNIT - EA)"
^XMB(3.9,275,2,224,0)="     999945-2601-20   "
^XMB(3.9,275,2,225,0)="   TESTOSTERONE 2% CREAM,TOP"
^XMB(3.9,275,2,226,0)="    (CMOP - T0619)           (DISPENSE UNIT - GM)"
^XMB(3.9,275,2,227,0)="     065628-0221-01   "
^XMB(3.9,275,2,228,0)="   THICK & EASY PWDR PKT,8GM"
^XMB(3.9,275,2,229,0)="    (CMOP - T0613)           (DISPENSE UNIT - PKT)"
^XMB(3.9,275,2,230,0)="     099429-0179-63   "
^XMB(3.9,275,2,231,0)="   THICK & EASY PWDR"
^XMB(3.9,275,2,232,0)="    (CMOP - T0614)           (DISPENSE UNIT - GM)"
^XMB(3.9,275,2,233,0)="     099429-0793-81   "
^XMB(3.9,275,2,234,0)="   TRAMADOL HCL 100MG TAB,SA"
^XMB(3.9,275,2,235,0)="    (CMOP - T0617)           (DISPENSE UNIT - TAB)"
^XMB(3.9,275,2,236,0)="     000062-0653-30   "
^XMB(3.9,275,2,237,0)="   TRAMADOL HCL 200MG TAB,SA"
^XMB(3.9,275,2,238,0)="    (CMOP - T0615)           (DISPENSE UNIT - TAB)"
^XMB(3.9,275,2,239,0)="     000062-0655-30   "
^XMB(3.9,275,2,240,0)="   TRAMADOL HCL 300MG TAB,SA"
^XMB(3.9,275,2,241,0)="    (CMOP - T0616)           (DISPENSE UNIT - TAB)"
^XMB(3.9,275,2,242,0)="     000062-0657-30   "
^XMB(3.9,275,2,243,0)="   TRICLOSAN 0.5% SOLN,TOP"
^XMB(3.9,275,2,244,0)="    (CMOP - T0612)           (DISPENSE UNIT - ML)"
^XMB(3.9,275,2,245,0)="     041167-0537-03   041167-0537-05   "
^XMB(3.9,275,2,246,0)="   VARENICLINE TARTRATE 0.5MG TAB"
^XMB(3.9,275,2,247,0)="    (CMOP - V0153)           (DISPENSE UNIT - TAB)"
^XMB(3.9,275,2,248,0)="     000069-0468-56   "
^XMB(3.9,275,2,249,0)="   VARENICLINE TARTRATE 1MG TAB,56"
^XMB(3.9,275,2,250,0)="    (CMOP - V0152)           (DISPENSE UNIT - PKT)"
^XMB(3.9,275,2,251,0)="     000069-0469-97   "
^XMB(3.9,275,2,252,0)="   VARENICLINE TARTRATE 1MG TAB"
^XMB(3.9,275,2,253,0)="    (CMOP - V0154)           (DISPENSE UNIT - TAB)"
^XMB(3.9,275,2,254,0)="     000069-0469-56   "
^XMB(3.9,275,2,255,0)="   VARENICLINE TARTRATE TAB STARTER PACK,53"
^XMB(3.9,275,2,256,0)="    (CMOP - V0151)           (DISPENSE UNIT - PKT)"
^XMB(3.9,275,2,257,0)="     000069-0471-97   "
^XMB(3.9,275,2,258,0)="   VORICONAZOLE 200MG/5ML SUSP,ORAL"
^XMB(3.9,275,2,259,0)="    (CMOP - V0150)           (DISPENSE UNIT - ML)"
^XMB(3.9,275,2,260,0)="     000049-3160-44   "
^XMB(3.9,275,2,261,0)=" "
^XMB(3.9,275,2,262,0)="The National Formulary Indicator has changed for the following"
^XMB(3.9,275,2,263,0)="VA Products.  The National Formulary Indicator will automatically"
^XMB(3.9,275,2,264,0)="be changed in your local DRUG file (#50).  Please review the"
^XMB(3.9,275,2,265,0)="VISN and Local Formulary designations of these products and"
^XMB(3.9,275,2,266,0)="make appropriate changes."
^XMB(3.9,275,2,267,0)=" "
^XMB(3.9,275,2,268,0)="FORMULARY ITEMS"
^XMB(3.9,275,2,269,0)="   ALESSE-28 TAB"
^XMB(3.9,275,2,270,0)="   ALUMINUM ACETATE PWDR,TOP"
^XMB(3.9,275,2,271,0)="   AMMONIUM CHLORIDE 0.4MEQ/ML INJ"
^XMB(3.9,275,2,272,0)="   AMMONIUM CHLORIDE 5MEQ/ML INJ"
^XMB(3.9,275,2,273,0)="   ANTI-THYMOCYTE GLOBULIN (RABBIT) 25MG/VIL INJ"
^XMB(3.9,275,2,274,0)="   APRI TAB,28"
^XMB(3.9,275,2,275,0)="   APROTININ 1MILLION UNITS(140MG)/100ML INJ,VIL"
^XMB(3.9,275,2,276,0)="   APROTININ 2MILLION UNITS(280MG)/200ML INJ,VIL"
^XMB(3.9,275,2,277,0)="   ASPIRIN 25MG/DIPYRIDAMOLE 200MG CAP,SA"
^XMB(3.9,275,2,278,0)="   ATRACURIUM BESYLATE 10MG/ML INJ"
^XMB(3.9,275,2,279,0)="   ATRACURIUM BESYLATE 10MG/ML INJ,AMP,2.5ML"
^XMB(3.9,275,2,280,0)="   ATRACURIUM BESYLATE 10MG/ML INJ,AMP,5ML"
^XMB(3.9,275,2,281,0)="   AVIANE TAB,28"
^XMB(3.9,275,2,282,0)="   BASILIXIMAB 20MG/VIL INJ"
^XMB(3.9,275,2,283,0)="   BENAZEPRIL HCL 10MG TAB"
^XMB(3.9,275,2,284,0)="   BENAZEPRIL HCL 10MG TAB,UD"
^XMB(3.9,275,2,285,0)="   BENAZEPRIL HCL 20MG TAB"
^XMB(3.9,275,2,286,0)="   BENAZEPRIL HCL 20MG TAB,UD"
^XMB(3.9,275,2,287,0)="   BENAZEPRIL HCL 40MG TAB"
^XMB(3.9,275,2,288,0)="   BENAZEPRIL HCL 40MG TAB,UD"
^XMB(3.9,275,2,289,0)="   BENAZEPRIL HCL 5MG TAB"
^XMB(3.9,275,2,290,0)="   BENAZEPRIL HCL 5MG TAB,UD"
^XMB(3.9,275,2,291,0)="   BETAMETHASONE DIPROPIONATE 0.05% CREAM,TOP"
^XMB(3.9,275,2,292,0)="   BETAMETHASONE DIPROPIONATE 0.05% OINT,TOP"
^XMB(3.9,275,2,293,0)="   BETAMETHASONE VALERATE 0.01% CREAM,TOP"
^XMB(3.9,275,2,294,0)="   BETAMETHASONE VALERATE 0.1% CREAM,TOP"
^XMB(3.9,275,2,295,0)="   BETAMETHASONE VALERATE 0.1% LOTION"
^XMB(3.9,275,2,296,0)="   BETAMETHASONE VALERATE 0.1% OINT,TOP"
^XMB(3.9,275,2,297,0)="   BETAXOLOL HCL 0.25% SUSP,OPH"
^XMB(3.9,275,2,298,0)="   BETAXOLOL HCL 0.5% SOLN,OPH"
^XMB(3.9,275,2,299,0)="   BISACODYL 30ML/BISACODYL 5MG TAB #4/PHOSPHO-SODA 45ML"
^XMB(3.9,275,2,300,0)="   BISACODYL SUPP 10MG/BISACODYL 5MG TAB #4/PHOSPHO-SODA 45ML"
^XMB(3.9,275,2,301,0)="   BIVALIRUDIN 250MG/VIL INJ"
^XMB(3.9,275,2,302,0)="   CAFFEINE 125MG/NA BENZOATE 125MG/ML INJ"
^XMB(3.9,275,2,303,0)="   CEFTIZOXIME NA 10GM/VIL INJ"
^XMB(3.9,275,2,304,0)="   CEFTIZOXIME NA 1GM/ADD-VANTAGE VIL INJ"
^XMB(3.9,275,2,305,0)="   CEFTIZOXIME NA 1GM/PB VIL INJ"
^XMB(3.9,275,2,306,0)="   CEFTIZOXIME NA 1GM/VIL INJ"
^XMB(3.9,275,2,307,0)="   CEFTIZOXIME NA 20MG/ML/DEXTROSE 5% INJ"
^XMB(3.9,275,2,308,0)="   CEFTIZOXIME NA 20MG/ML/DEXTROSE 5% INJ,BAG,50ML"
^XMB(3.9,275,2,309,0)="   CEFTIZOXIME NA 2GM/ADD-VANTAGE VIL INJ"
^XMB(3.9,275,2,310,0)="   CEFTIZOXIME NA 2GM/PB VIL INJ"
^XMB(3.9,275,2,311,0)="   CEFTIZOXIME NA 2GM/VIL INJ"
^XMB(3.9,275,2,312,0)="   CEFTIZOXIME NA 40MG/ML/DEXTROSE 5% INJ"
^XMB(3.9,275,2,313,0)="   CEFTIZOXIME NA 40MG/ML/DEXTROSE 5% INJ,BAG,50ML"
^XMB(3.9,275,2,314,0)="   CEFTIZOXIME NA 500MG/VIL INJ"
^XMB(3.9,275,2,315,0)="   CHLOROPHYLL 0.5%/PAPAIN/UREA 10% OINT,TOP"
^XMB(3.9,275,2,316,0)="   CHOLESTYRAMINE 4GM/5.5GM PWDR,PKT"
^XMB(3.9,275,2,317,0)="   CHOLESTYRAMINE 4GM/5.7GM PWDR,PKT"
^XMB(3.9,275,2,318,0)="   CHOLESTYRAMINE 4GM/5GM PWDR"
^XMB(3.9,275,2,319,0)="   CHOLESTYRAMINE 4GM/9GM PWDR"
^XMB(3.9,275,2,320,0)="   CISATRACURIUM BESYLATE 10MG/ML INJ,SOLN"
^XMB(3.9,275,2,321,0)="   CISATRACURIUM BESYLATE 2MG/ML INJ,SOLN"
^XMB(3.9,275,2,322,0)="   CLOMIPHENE CITRATE 50MG TAB"
^XMB(3.9,275,2,323,0)="   DACLIZUMAB 5MG/ML INJ"
^XMB(3.9,275,2,324,0)="   DALFOPRISTIN 350MG/QUINUPRISTIN 150MG/VIL INJ"
^XMB(3.9,275,2,325,0)="   DESOGESTREL 0.15/ETHINYL ESTRADIOL 0.03MG TAB,28"
^XMB(3.9,275,2,326,0)="   DESONIDE 0.05% CREAM,TOP"
^XMB(3.9,275,2,327,0)="   DEXMEDETOMIDINE HCL 100MCG/ML INJ"
^XMB(3.9,275,2,328,0)="   DOCUSATE NA 50MG/SENNOSIDES 8.6MG TAB"
^XMB(3.9,275,2,329,0)="   DOXYCYCLINE HYCLATE 20MG CAP"
^XMB(3.9,275,2,330,0)="   DOXYCYCLINE MONOHYDRATE 25MG/5ML LIQUID"
^XMB(3.9,275,2,331,0)="   EPTIFIBATIDE 0.75MG/ML INJ"
^XMB(3.9,275,2,332,0)="   EPTIFIBATIDE 2MG/ML INJ"
^XMB(3.9,275,2,333,0)="   ETHANOLAMINE OLEATE 50MG/ML INJ"
^XMB(3.9,275,2,334,0)="   ETHINYL ESTRADIOL 0.02MG TAB"
^XMB(3.9,275,2,335,0)="   FENOLDOPAM MESYLATE 10MG/ML INJ,CONC,AMP,1ML"
^XMB(3.9,275,2,336,0)="   FENOLDOPAM MESYLATE 10MG/ML INJ,CONC,AMP,2ML"
^XMB(3.9,275,2,337,0)="   FENOLDOPAM MESYLATE 10MG/ML INJ,CONC,AMP,5ML"
^XMB(3.9,275,2,338,0)="   FERROUS GLUCONATE 240MG TAB"
^XMB(3.9,275,2,339,0)="   FERROUS GLUCONATE 300MG TAB"
^XMB(3.9,275,2,340,0)="   FERROUS GLUCONATE 300MG TAB,UD"
^XMB(3.9,275,2,341,0)="   FERROUS GLUCONATE 320MG TAB"
^XMB(3.9,275,2,342,0)="   FERROUS GLUCONATE 324-325MG TAB,UD"
^XMB(3.9,275,2,343,0)="   FERROUS GLUCONATE 325MG TAB"
^XMB(3.9,275,2,344,0)="   FERROUS GLUCONATE 80MG TAB,SA"
^XMB(3.9,275,2,345,0)="   FOMEPIZOLE 1GM/ML INJ"
^XMB(3.9,275,2,346,0)="   FORMOTEROL FUMARATE 12MCG CAP,INHL"
^XMB(3.9,275,2,347,0)="   HETASTARCH 6%/W ELECTROLYTES INJ,BAG,500ML"
^XMB(3.9,275,2,348,0)="   IBUTILIDE FUMARATE 0.1MG/ML INJ,SOLN"
^XMB(3.9,275,2,349,0)="   LEPIRUDIN 50MG/VIL INJ"
^XMB(3.9,275,2,350,0)="   LESSINA TAB,28"
^XMB(3.9,275,2,351,0)="   LEVETIRACETAM 250MG TAB"
^XMB(3.9,275,2,352,0)="   LEVETIRACETAM 500MG TAB"
^XMB(3.9,275,2,353,0)="   LEVETIRACETAM 750MG TAB"
^XMB(3.9,275,2,354,0)="   LEVLEN TAB,28"
^XMB(3.9,275,2,355,0)="   LEVLITE TAB,28"
^XMB(3.9,275,2,356,0)="   LEVORA TAB,28"
^XMB(3.9,275,2,357,0)="   LUTERA TAB,28"
^XMB(3.9,275,2,358,0)="   METHOHEXITAL NA 2.5GM/VIL INJ"
^XMB(3.9,275,2,359,0)="   METHOHEXITAL NA 500MG/VIL INJ"
^XMB(3.9,275,2,360,0)="   METHOHEXITAL NA 5GM/VIL INJ"
^XMB(3.9,275,2,361,0)="   METHYLPHENIDATE HCL (METADATE CD) 50MG CAP,SA"
^XMB(3.9,275,2,362,0)="   MICONAZOLE NITRATE 2% (BAZA) CREAM,TOP"
^XMB(3.9,275,2,363,0)="   MICONAZOLE NITRATE 2% CREAM,TOP"
^XMB(3.9,275,2,364,0)="   MIVACURIUM CL 2MG/ML INJ"
^XMB(3.9,275,2,365,0)="   MOXIFLOXACIN HCL 0.5% SOLN,OPH"
^XMB(3.9,275,2,366,0)="   NAPHAZOLINE HCL 0.012% SOLN,OPH"
^XMB(3.9,275,2,367,0)="   NAPHAZOLINE HCL 0.02% SOLN,OPH"
^XMB(3.9,275,2,368,0)="   NAPHAZOLINE HCL 0.025%/PHENIRAMINE 0.3% SOLN,OPH"
^XMB(3.9,275,2,369,0)="   NAPHAZOLINE HCL 0.1% SOLN,OPH"
^XMB(3.9,275,2,370,0)="   NECON 1/35 TAB,28"
^XMB(3.9,275,2,371,0)="   NECON 1/50 TAB,28"
^XMB(3.9,275,2,372,0)="   NECON 7/7/7 TAB,28"
^XMB(3.9,275,2,373,0)="   NORDETTE TAB,28"
^XMB(3.9,275,2,374,0)="   NORINYL 1+35 TAB,28"
^XMB(3.9,275,2,375,0)="   NORTREL 7/7/7 TAB,28"
^XMB(3.9,275,2,376,0)="   NUVARING 0.12MG/0.015MG/24HR RING,VAG"
^XMB(3.9,275,2,377,0)="   ORTHO-NOVUM 1/35 TAB,28"
^XMB(3.9,275,2,378,0)="   OXACILLIN NA 10GM/VIL INJ"
^XMB(3.9,275,2,379,0)="   OXACILLIN NA 180MG/VIL INJ"
^XMB(3.9,275,2,380,0)="   OXACILLIN NA 1GM/VIL INJ"
^XMB(3.9,275,2,381,0)="   OXACILLIN NA 250MG/VIL INJ"
^XMB(3.9,275,2,382,0)="   OXACILLIN NA 2GM/VIL INJ"
^XMB(3.9,275,2,383,0)="   OXACILLIN NA 4GM/VIL INJ"
^XMB(3.9,275,2,384,0)="   OXACILLIN NA 500MG/VIL INJ"
^XMB(3.9,275,2,385,0)="   PANCURONIUM BROMIDE 1MG/ML INJ"
^XMB(3.9,275,2,386,0)="   PANCURONIUM BROMIDE 2MG/ML INJ"
^XMB(3.9,275,2,387,0)="   PANTOPRAZOLE NA 40MG/VIL INJ"
^XMB(3.9,275,2,388,0)="   PHENOBARBITAL 30MG TAB"
^XMB(3.9,275,2,389,0)="   PORFIMER NA 75MG/VIL INJ"
^XMB(3.9,275,2,390,0)="   PORTIA TAB,28"
^XMB(3.9,275,2,391,0)="   POTASSIUM CITRATE 260MG TAB"
^XMB(3.9,275,2,392,0)="   POTASSIUM CITRATE 540MG TAB,SA"
^XMB(3.9,275,2,393,0)="   RETEPLASE,RECOMBINANT 10UNT/VIL INJ,KIT"
^XMB(3.9,275,2,394,0)="   ROCURONIUM BR 10MG/ML INJ,10ML VIL"
^XMB(3.9,275,2,395,0)="   ROCURONIUM BR 10MG/ML INJ,5ML VIL"
^XMB(3.9,275,2,396,0)="   ROPIVACAINE HCL 0.2% INJ,AMP,10ML"
^XMB(3.9,275,2,397,0)="   ROPIVACAINE HCL 0.2% INJ,AMP,20ML"
^XMB(3.9,275,2,398,0)="   ROPIVACAINE HCL 0.2% INJ,BTL,100ML"
^XMB(3.9,275,2,399,0)="   ROPIVACAINE HCL 0.2% INJ,BTL,200ML"
^XMB(3.9,275,2,400,0)="   ROPIVACAINE HCL 0.2% INJ,STERILE-PAK,20ML"
^XMB(3.9,275,2,401,0)="   ROPIVACAINE HCL 0.2% INJ,VIL,20ML"
^XMB(3.9,275,2,402,0)="   ROPIVACAINE HCL 0.5% INJ,AMP,30ML"
^XMB(3.9,275,2,403,0)="   ROPIVACAINE HCL 0.5% INJ,STERILE-PAK,30ML"
^XMB(3.9,275,2,404,0)="   ROPIVACAINE HCL 0.5% INJ,VIL,30ML"
^XMB(3.9,275,2,405,0)="   ROPIVACAINE HCL 0.75% INJ,AMP,20ML"
^XMB(3.9,275,2,406,0)="   ROPIVACAINE HCL 0.75% INJ,STERILE-PAK,20ML"
^XMB(3.9,275,2,407,0)="   ROPIVACAINE HCL 0.75% INJ,VIL,10ML"
^XMB(3.9,275,2,408,0)="   ROPIVACAINE HCL 0.75% INJ,VIL,20ML"
^XMB(3.9,275,2,409,0)="   ROPIVACAINE HCL 1% INJ,AMP,20ML"
^XMB(3.9,275,2,410,0)="   ROPIVACAINE HCL 1% INJ,STERILE-PAK,20ML"
^XMB(3.9,275,2,411,0)="   ROPIVACAINE HCL 1% INJ,VIL,10ML"
^XMB(3.9,275,2,412,0)="   ROPIVACAINE HCL 1% INJ,VIL,20ML"
^XMB(3.9,275,2,413,0)="   SIROLIMUS 1MG TAB"
^XMB(3.9,275,2,414,0)="   SIROLIMUS 1MG TAB,UD"
^XMB(3.9,275,2,415,0)="   SIROLIMUS 1MG/ML SOLN,ORAL"
^XMB(3.9,275,2,416,0)="   SIROLIMUS 1MG/ML SOLN,ORAL,1ML"
^XMB(3.9,275,2,417,0)="   SIROLIMUS 1MG/ML SOLN,ORAL,2ML"
^XMB(3.9,275,2,418,0)="   SIROLIMUS 1MG/ML SOLN,ORAL,5ML"
^XMB(3.9,275,2,419,0)="   SIROLIMUS 2MG TAB"
^XMB(3.9,275,2,420,0)="   SODIUM CITRATE 3.5MEQ/ML INJ,CONC"
^XMB(3.9,275,2,421,0)="   SODIUM CITRATE 46.7% INJ"
^XMB(3.9,275,2,422,0)="   SODIUM CITRATE 46.7% SOLN"
^XMB(3.9,275,2,423,0)="   SODIUM CITRATE PWDR"
^XMB(3.9,275,2,424,0)="   SOLIA TAB,28"
^XMB(3.9,275,2,425,0)="   SPACER-INHALER"
^XMB(3.9,275,2,426,0)="   SUCCINYLCHOLINE CHLORIDE 100MG/ML INJ"
^XMB(3.9,275,2,427,0)="   SUCCINYLCHOLINE CHLORIDE 20MG/ML INJ"
^XMB(3.9,275,2,428,0)="   SUCCINYLCHOLINE CHLORIDE 500MG/VIL INJ"
^XMB(3.9,275,2,429,0)="   SUCCINYLCHOLINE CHLORIDE 50MG/ML INJ,CONC"
^XMB(3.9,275,2,430,0)="   THICK & EASY PWDR"
^XMB(3.9,275,2,431,0)="   THICK & EASY PWDR PKT,8GM"
^XMB(3.9,275,2,432,0)="   TIROFIBAN HCL 250MCG/ML INJ"
^XMB(3.9,275,2,433,0)="   TIROFIBAN HCL 50MCG/ML INJ,BAG,250ML"
^XMB(3.9,275,2,434,0)="   TIROFIBAN HCL 50MCG/ML INJ,BAG,500ML"
^XMB(3.9,275,2,435,0)="   TOPOTECAN HCL 4MG/VIL INJ"
^XMB(3.9,275,2,436,0)="   TRI-LEVLEN TAB,28"
^XMB(3.9,275,2,437,0)="   TRICHOPHYTON MENTAGROPHYTES 1:200 INJ"
^XMB(3.9,275,2,438,0)="   TRICHOPHYTON MENTAGROPHYTES 1:500 INJ"
^XMB(3.9,275,2,439,0)="   TRIETHANOLAMINE POLYPEPTIDE OLEATE CONDENSATE 10% LIQUID,OTIC"
^XMB(3.9,275,2,440,0)="   TRIPHASIL TAB,28"
^XMB(3.9,275,2,441,0)="   TRIVORA TAB,28"
^XMB(3.9,275,2,442,0)="   TROMETHAMINE 18GM/BTL INJ"
^XMB(3.9,275,2,443,0)="   VECURONIUM BROMIDE 10MG/VIL INJ"
^XMB(3.9,275,2,444,0)="   VECURONIUM BROMIDE 1MG/ML INJ"
^XMB(3.9,275,2,445,0)="   VECURONIUM BROMIDE 2MG/ML INJ"
^XMB(3.9,275,2,446,0)="   ZINC SO4 1MG/ML INJ"
^XMB(3.9,275,2,447,0)="   ZINC SO4 220MG CAP"
^XMB(3.9,275,2,448,0)="   ZINC SO4 220MG CAP,UD"
^XMB(3.9,275,2,449,0)="   ZINC SO4 4MG/ML INJ"
^XMB(3.9,275,2,450,0)="   ZINC SO4 5MG/ML INJ"
^XMB(3.9,275,2,451,0)="   ZOLEDRONIC ACID 4MG/VIL INJ"
^XMB(3.9,275,2,452,0)=" "
^XMB(3.9,275,2,453,0)="NON-FORMULARY ITEMS"
^XMB(3.9,275,2,454,0)="   CLARITHROMYCIN 500MG TAB,SA"
^XMB(3.9,275,2,455,0)="   DEMULEN 1/35 TAB,28"
^XMB(3.9,275,2,456,0)="   DOCUSATE NA 50MG/SENNA 187MG TAB"
^XMB(3.9,275,2,457,0)="   LANSOPRAZOLE 15MG/PKT PWDR"
^XMB(3.9,275,2,458,0)="   LANSOPRAZOLE 30MG CAP,SA,UD"
^XMB(3.9,275,2,459,0)="   LANSOPRAZOLE 30MG/PKT PWDR"
^XMB(3.9,275,2,460,0)="   NORINYL 1+35 TAB,21"
^XMB(3.9,275,2,461,0)="   ORTHO-NOVUM 1/35 TAB,21"
^XMB(3.9,275,2,462,0)="   POTASSIUM CITRATE 1080MG TAB,SA"
^XMB(3.9,275,2,463,0)=" "
^XMB(3.9,275,2,464,0)="The following active VA Products are no longer marked for CMOP."
^XMB(3.9,275,2,465,0)="All local drug file entries matched to these VA Products will"
^XMB(3.9,275,2,466,0)="be UNMARKED for CMOP.  In order to have these entries dispensed"
^XMB(3.9,275,2,467,0)="by CMOP any local DRUG file (#50) entries matched to these"
^XMB(3.9,275,2,468,0)="products must be re-matched to another VA product that is actively"
^XMB(3.9,275,2,469,0)="marked for CMOP dispensing."
^XMB(3.9,275,2,470,0)=" "
^XMB(3.9,275,2,471,0)="   SUNITINIB MALATE 12.5MG CAP,ORAL    S0444"
^XMB(3.9,275,2,472,0)="   SUNITINIB MALATE 25MG CAP,ORAL    S0445"
^XMB(3.9,275,2,473,0)="   SUNITINIB MALATE 50MG CAP,ORAL    S0446"
^XMB(3.9,275,6,0)="^3.911A^3^3"
^XMB(3.9,275,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,275,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,275,6,3,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,275,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,275,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,275,6,"B","SCHLEHUBER,CAMERON",3)=""
^XMB(3.9,276,0)="UPDATED INTERACTIONS^NDF MANAGER^3061225.16323"
^XMB(3.9,276,.6)="3061225"
^XMB(3.9,276,1,0)="^3.91A^3^3"
^XMB(3.9,276,1,1,0)="1^0^3061225.163259^^^^^^^3061225.163259"
^XMB(3.9,276,1,2,0)="63"
^XMB(3.9,276,1,3,0)="68"
^XMB(3.9,276,1,"C",1,1)=""
^XMB(3.9,276,1,"C",63,2)=""
^XMB(3.9,276,1,"C",68,3)=""
^XMB(3.9,276,2,0)="^^245^245^3061225"
^XMB(3.9,276,2,1,0)="The following interactions in National Drug File (NDF) have been added,"
^XMB(3.9,276,2,2,0)="edited or inactivated.  These changes are the result of review and"
^XMB(3.9,276,2,3,0)="recommendations from the NDF support group."
^XMB(3.9,276,2,4,0)=" "
^XMB(3.9,276,2,5,0)="ADDED INTERACTIONS"
^XMB(3.9,276,2,6,0)=" "
^XMB(3.9,276,2,7,0)="   ALFENTANIL/FLUCONAZOLE                             Significant"
^XMB(3.9,276,2,8,0)="   ALFUZOSIN/NEFAZODONE                               Significant"
^XMB(3.9,276,2,9,0)="   ALLERGENIC EXTRACT MIXED ANTIGENS/METOPROLOL       Significant"
^XMB(3.9,276,2,10,0)="   ALLERGENIC EXTRACT, BEE/PENBUTOLOL                 Significant"
^XMB(3.9,276,2,11,0)="   ALMOTRIPTAN/CITALOPRAM                             Significant"
^XMB(3.9,276,2,12,0)="   ALMOTRIPTAN/DULOXETINE                             Significant"
^XMB(3.9,276,2,13,0)="   ALMOTRIPTAN/ESCITALOPRAM OXALATE                   Significant"
^XMB(3.9,276,2,14,0)="   ALMOTRIPTAN/FLUOXETINE                             Significant"
^XMB(3.9,276,2,15,0)="   ALMOTRIPTAN/FLUVOXAMINE MALEATE                    Significant"
^XMB(3.9,276,2,16,0)="   ALMOTRIPTAN/PAROXETINE                             Significant"
^XMB(3.9,276,2,17,0)="   ALMOTRIPTAN/SERTRALINE                             Significant"
^XMB(3.9,276,2,18,0)="   ALMOTRIPTAN/VENLAFAXINE HYDROCHLORIDE              Significant"
^XMB(3.9,276,2,19,0)="   ALOSETRON/KETOCONAZOLE                             Significant"
^XMB(3.9,276,2,20,0)="   ALUMINUM/MAGNESIUM HYDROXIDE/ATAZANAVIR SO4        Significant"
^XMB(3.9,276,2,21,0)="   AMIODARONE/FLECAINIDE                              Significant"
^XMB(3.9,276,2,22,0)="   AMIODARONE/FOSAMPRENAVIR                           Critical"
^XMB(3.9,276,2,23,0)="   AMIODARONE/PHENYTOIN                               Significant"
^XMB(3.9,276,2,24,0)="   AMIODARONE/PROCAINAMIDE                            Significant"
^XMB(3.9,276,2,25,0)="   AMIODARONE/RANOLAZINE                              Critical"
^XMB(3.9,276,2,26,0)="   AMITRIPTYLINE/TRAMADOL HYDROCHLORIDE               Significant"
^XMB(3.9,276,2,27,0)="   AMITRIPTYLINE/ZIPRASIDONE                          Significant"
^XMB(3.9,276,2,28,0)="   AMLODIPINE/ITRACONAZOLE                            Significant"
^XMB(3.9,276,2,29,0)="   AMPICILLIN/LEVONORGESTREL                          Significant"
^XMB(3.9,276,2,30,0)="   AMPICILLIN/MESTRANOL                               Significant"
^XMB(3.9,276,2,31,0)="   AMPICILLIN/NORELGESTROMIN                          Significant"
^XMB(3.9,276,2,32,0)="   AMPICILLIN/NORETHYNODREL                           Significant"
^XMB(3.9,276,2,33,0)="   AMPRENAVIR/NORGESTIMATE                            Critical"
^XMB(3.9,276,2,34,0)="   AMPRENAVIR/RIFAPENTINE                             Critical"
^XMB(3.9,276,2,35,0)="   ATAZANAVIR SO4/CLARITHROMYCIN                      Significant"
^XMB(3.9,276,2,36,0)="   ATAZANAVIR SO4/DIDANOSINE                          Significant"
^XMB(3.9,276,2,37,0)="   ATAZANAVIR SO4/EFAVIRENZ                           Significant"
^XMB(3.9,276,2,38,0)="   ATAZANAVIR SO4/ERLOTINIB                           Significant"
^XMB(3.9,276,2,39,0)="   ATAZANAVIR SO4/IRINOTECAN HYDROCHLORIDE            Critical"
^XMB(3.9,276,2,40,0)="   ATAZANAVIR SO4/PIMOZIDE                            Critical"
^XMB(3.9,276,2,41,0)="   ATORVASTATIN CALCIUM/DELAVIRDINE MESYLATE          Significant"
^XMB(3.9,276,2,42,0)="   AZATHIOPRINE/MERCAPTOPURINE                        Critical"
^XMB(3.9,276,2,43,0)="   BUSPIRONE/ERYTHROMYCIN                             Significant"
^XMB(3.9,276,2,44,0)="   BUSPIRONE/ITRACONAZOLE                             Significant"
^XMB(3.9,276,2,45,0)="   BUSULFAN/METRONIDAZOLE                             Critical"
^XMB(3.9,276,2,46,0)="   CANDESARTAN/LITHIUM                                Significant"
^XMB(3.9,276,2,47,0)="   CARBAMAZEPINE/CLOZAPINE                            Significant"
^XMB(3.9,276,2,48,0)="   CARBAMAZEPINE/ERLOTINIB                            Significant"
^XMB(3.9,276,2,49,0)="   CARBAMAZEPINE/FENTANYL                             Significant"
^XMB(3.9,276,2,50,0)="   CARBAMAZEPINE/ZIPRASIDONE                          Significant"
^XMB(3.9,276,2,51,0)="   CASPOFUNGIN/TACROLIMUS                             Significant"
^XMB(3.9,276,2,52,0)="   CHLOROQUINE/CIMETIDINE                             Significant"
^XMB(3.9,276,2,53,0)="   CHLORPROMAZINE/ERYTHROMYCIN                        Significant"
^XMB(3.9,276,2,54,0)="   CILOSTAZOL/ITRACONAZOLE                            Significant"
^XMB(3.9,276,2,55,0)="   CIMETIDINE/RANOLAZINE                              Critical"
^XMB(3.9,276,2,56,0)="   CIPROFLOXACIN/CLOZAPINE                            Significant"
^XMB(3.9,276,2,57,0)="   CIPROFLOXACIN/SEVELAMER HCL                        Significant"
^XMB(3.9,276,2,58,0)="   CIPROFLOXACIN/TIZANIDINE                           Significant"
^XMB(3.9,276,2,59,0)="   CISAPRIDE/SERTINDOLE                               Critical"
^XMB(3.9,276,2,60,0)="   CISAPRIDE/ZIPRASIDONE                              Critical"
^XMB(3.9,276,2,61,0)="   CITALOPRAM/ELETRIPTAN                              Significant"
^XMB(3.9,276,2,62,0)="   CITALOPRAM/FROVATRIPTAN                            Significant"
^XMB(3.9,276,2,63,0)="   CITALOPRAM/NARATRIPTAN HYDROCHLORIDE               Significant"
^XMB(3.9,276,2,64,0)="   CITALOPRAM/PIMOZIDE                                Critical"
^XMB(3.9,276,2,65,0)="   CITALOPRAM/SELEGILINE                              Critical"
^XMB(3.9,276,2,66,0)="   CITALOPRAM/VENLAFAXINE HYDROCHLORIDE               Significant"
^XMB(3.9,276,2,67,0)="   CITALOPRAM/ZOLMITRIPTAN                            Significant"
^XMB(3.9,276,2,68,0)="   CLARITHROMYCIN/ESZOPICLONE                         Significant"
^XMB(3.9,276,2,69,0)="   CLARITHROMYCIN/RANOLAZINE                          Critical"
^XMB(3.9,276,2,70,0)="   CLARITHROMYCIN/VARDENAFIL                          Significant"
^XMB(3.9,276,2,71,0)="   CLARITHROMYCIN/ZIPRASIDONE                         Critical"
^XMB(3.9,276,2,72,0)="   CLINDAMYCIN/ERYTHROMYCIN                           Significant"
^XMB(3.9,276,2,73,0)="   CLONAZEPAM/OMEPRAZOLE                              Significant"
^XMB(3.9,276,2,74,0)="   CODEINE/FLUOXETINE                                 Significant"
^XMB(3.9,276,2,75,0)="   CYCLOSPORINE/RANOLAZINE                            Critical"
^XMB(3.9,276,2,76,0)="   DELAVIRDINE MESYLATE/RANOLAZINE                    Critical"
^XMB(3.9,276,2,77,0)="   DIGITALIS/TELMISARTAN                              Significant"
^XMB(3.9,276,2,78,0)="   DILTIAZEM/RANOLAZINE                               Critical"
^XMB(3.9,276,2,79,0)="   DILTIAZEM/RIFAMPIN                                 Significant"
^XMB(3.9,276,2,80,0)="   DILTIAZEM/SIROLIMUS                                Significant"
^XMB(3.9,276,2,81,0)="   DISOPYRAMIDE/GATIFLOXACIN                          Critical"
^XMB(3.9,276,2,82,0)="   DISOPYRAMIDE/RANOLAZINE                            Critical"
^XMB(3.9,276,2,83,0)="   DOFETILIDE/GATIFLOXACIN                            Significant"
^XMB(3.9,276,2,84,0)="   DOFETILIDE/LEVOFLOXACIN                            Significant"
^XMB(3.9,276,2,85,0)="   DOFETILIDE/PERPHENAZINE                            Significant"
^XMB(3.9,276,2,86,0)="   DOFETILIDE/RANOLAZINE                              Critical"
^XMB(3.9,276,2,87,0)="   DULOXETINE/ELETRIPTAN                              Significant"
^XMB(3.9,276,2,88,0)="   DULOXETINE/ESCITALOPRAM OXALATE                    Significant"
^XMB(3.9,276,2,89,0)="   DULOXETINE/FLUVOXAMINE MALEATE                     Significant"
^XMB(3.9,276,2,90,0)="   DULOXETINE/FROVATRIPTAN                            Significant"
^XMB(3.9,276,2,91,0)="   DULOXETINE/RIZATRIPTAN                             Significant"
^XMB(3.9,276,2,92,0)="   DULOXETINE/SERTRALINE                              Significant"
^XMB(3.9,276,2,93,0)="   DULOXETINE/SUMATRIPTAN                             Significant"
^XMB(3.9,276,2,94,0)="   DULOXETINE/ZOLMITRIPTAN                            Significant"
^XMB(3.9,276,2,95,0)="   EFAVIRENZ/VORICONAZOLE                             Critical"
^XMB(3.9,276,2,96,0)="   ELETRIPTAN/ESCITALOPRAM OXALATE                    Significant"
^XMB(3.9,276,2,97,0)="   ELETRIPTAN/FLUOXETINE                              Significant"
^XMB(3.9,276,2,98,0)="   ELETRIPTAN/FLUVOXAMINE MALEATE                     Significant"
^XMB(3.9,276,2,99,0)="   ELETRIPTAN/PAROXETINE                              Significant"
^XMB(3.9,276,2,100,0)="   ELETRIPTAN/SERTRALINE                              Significant"
^XMB(3.9,276,2,101,0)="   ELETRIPTAN/VENLAFAXINE HYDROCHLORIDE               Significant"
^XMB(3.9,276,2,102,0)="   ERGOT/NEFAZODONE                                   Critical"
^XMB(3.9,276,2,103,0)="   ERLOTINIB/NELFINAVIR MESYLATE                      Significant"
^XMB(3.9,276,2,104,0)="   ERYTHROMYCIN/ITRACONAZOLE                          Significant"
^XMB(3.9,276,2,105,0)="   ERYTHROMYCIN/LIDOCAINE                             Significant"
^XMB(3.9,276,2,106,0)="   ERYTHROMYCIN/RANOLAZINE                            Critical"
^XMB(3.9,276,2,107,0)="   ERYTHROMYCIN/THIORIDAZINE                          Critical"
^XMB(3.9,276,2,108,0)="   ERYTHROMYCIN/TRIMETHOPRIM                          Significant"
^XMB(3.9,276,2,109,0)="   ERYTHROMYCIN/TRIMETREXATE                          Significant"
^XMB(3.9,276,2,110,0)="   ERYTHROMYCIN/VASOPRESSIN                           Significant"
^XMB(3.9,276,2,111,0)="   ERYTHROMYCIN/VENLAFAXINE HYDROCHLORIDE             Significant"
^XMB(3.9,276,2,112,0)="   ERYTHROMYCIN/VERAPAMIL                             Critical"
^XMB(3.9,276,2,113,0)="   ERYTHROMYCIN/ZIPRASIDONE                           Critical"
^XMB(3.9,276,2,114,0)="   ERYTHROMYCIN/ZOLMITRIPTAN                          Significant"
^XMB(3.9,276,2,115,0)="   ESCITALOPRAM OXALATE/FROVATRIPTAN                  Significant"
^XMB(3.9,276,2,116,0)="   ESCITALOPRAM OXALATE/NARATRIPTAN HYDROCHLORIDE     Significant"
^XMB(3.9,276,2,117,0)="   ESCITALOPRAM OXALATE/RIZATRIPTAN                   Significant"
^XMB(3.9,276,2,118,0)="   ESCITALOPRAM OXALATE/SUMATRIPTAN                   Significant"
^XMB(3.9,276,2,119,0)="   ESCITALOPRAM OXALATE/VENLAFAXINE HYDROCHLORIDE     Significant"
^XMB(3.9,276,2,120,0)="   ESCITALOPRAM OXALATE/ZOLMITRIPTAN                  Significant"
^XMB(3.9,276,2,121,0)="   ESZOPICLONE/ITRACONAZOLE                           Significant"
^XMB(3.9,276,2,122,0)="   ETHINYL ESTRADIOL/HYPERICUM PERFORATUM (ST. JOHN'S WORT) Significant"
^XMB(3.9,276,2,123,0)="   ETHYNODIOL DIACETATE/FOSPHENYTOIN SODIUM           Significant"
^XMB(3.9,276,2,124,0)="   ETHYNODIOL DIACETATE/HYPERICUM PERFORATUM (ST. JOHN'S WORT) Significant"
^XMB(3.9,276,2,125,0)="   FENTANYL/PHENYTOIN                                 Significant"
^XMB(3.9,276,2,126,0)="   FLECAINIDE/PROPRANOLOL                             Significant"
^XMB(3.9,276,2,127,0)="   FLUCONAZOLE/ZIPRASIDONE                            Significant"
^XMB(3.9,276,2,128,0)="   FLUOXETINE/FROVATRIPTAN                            Significant"
^XMB(3.9,276,2,129,0)="   FLUOXETINE/RISPERIDONE                             Significant"
^XMB(3.9,276,2,130,0)="   FLUOXETINE/VENLAFAXINE HYDROCHLORIDE               Significant"
^XMB(3.9,276,2,131,0)="   FLUVOXAMINE MALEATE/FROVATRIPTAN                   Significant"
^XMB(3.9,276,2,132,0)="   FLUVOXAMINE MALEATE/MEXILETINE                     Significant"
^XMB(3.9,276,2,133,0)="   FLUVOXAMINE MALEATE/NARATRIPTAN HYDROCHLORIDE      Significant"
^XMB(3.9,276,2,134,0)="   FLUVOXAMINE MALEATE/RIZATRIPTAN                    Significant"
^XMB(3.9,276,2,135,0)="   FLUVOXAMINE MALEATE/VENLAFAXINE HYDROCHLORIDE      Significant"
^XMB(3.9,276,2,136,0)="   FLUVOXAMINE MALEATE/ZOLMITRIPTAN                   Significant"
^XMB(3.9,276,2,137,0)="   FOSAMPRENAVIR/ITRACONAZOLE                         Significant"
^XMB(3.9,276,2,138,0)="   FOSAMPRENAVIR/METHADONE                            Significant"
^XMB(3.9,276,2,139,0)="   FOSAMPRENAVIR/NORETHINDRONE                        Critical"
^XMB(3.9,276,2,140,0)="   FOSAMPRENAVIR/PIMOZIDE                             Significant"
^XMB(3.9,276,2,141,0)="   FOSAMPRENAVIR/PROPAFENONE                          Critical"
^XMB(3.9,276,2,142,0)="   FOSAMPRENAVIR/RIFABUTIN                            Significant"
^XMB(3.9,276,2,143,0)="   FOSAMPRENAVIR/RIFAPENTINE                          Critical"
^XMB(3.9,276,2,144,0)="   FOSAMPRENAVIR/TACROLIMUS                           Significant"
^XMB(3.9,276,2,145,0)="   FOSAMPRENAVIR/VARDENAFIL                           Significant"
^XMB(3.9,276,2,146,0)="   FOSPHENYTOIN SODIUM/QUETIAPINE FUMARATE            Significant"
^XMB(3.9,276,2,147,0)="   FOSPHENYTOIN SODIUM/TRIMETHOPRIM                   Significant"
^XMB(3.9,276,2,148,0)="   FROVATRIPTAN/PAROXETINE                            Significant"
^XMB(3.9,276,2,149,0)="   FROVATRIPTAN/SERTRALINE                            Significant"
^XMB(3.9,276,2,150,0)="   FROVATRIPTAN/SIBUTRAMINE HYDROCHLORIDE             Significant"
^XMB(3.9,276,2,151,0)="   FROVATRIPTAN/VENLAFAXINE HYDROCHLORIDE             Significant"
^XMB(3.9,276,2,152,0)="   GEFITINIB/RIFAMPIN                                 Significant"
^XMB(3.9,276,2,153,0)="   GRAPEFRUIT EXTRACT/RANOLAZINE                      Critical"
^XMB(3.9,276,2,154,0)="   GRISEOFULVIN/MESTRANOL                             Significant"
^XMB(3.9,276,2,155,0)="   HYPERICUM PERFORATUM (ST. JOHN'S WORT)/OMEPRAZOLE  Significant"
^XMB(3.9,276,2,156,0)="   IBUTILIDE FUMARATE/RANOLAZINE                      Critical"
^XMB(3.9,276,2,157,0)="   IMATINIB/RIFAMPIN                                  Significant"
^XMB(3.9,276,2,158,0)="   IMIPRAMINE/THIORIDAZINE                            Significant"
^XMB(3.9,276,2,159,0)="   IMIPRAMINE/ZIPRASIDONE                             Critical"
^XMB(3.9,276,2,160,0)="   INDINAVIR SULFATE/RANOLAZINE                       Critical"
^XMB(3.9,276,2,161,0)="   INDINAVIR SULFATE/RIFAPENTINE                      Critical"
^XMB(3.9,276,2,162,0)="   INDINAVIR SULFATE/TRAZODONE                        Critical"
^XMB(3.9,276,2,163,0)="   ISOCARBOXAZID/LEVODOPA                             Significant"
^XMB(3.9,276,2,164,0)="   ISONIAZID/LEVODOPA                                 Significant"
^XMB(3.9,276,2,165,0)="   ITRACONAZOLE/PANTOPRAZOLE                          Critical"
^XMB(3.9,276,2,166,0)="   ITRACONAZOLE/RANOLAZINE                            Critical"
^XMB(3.9,276,2,167,0)="   KETOCONAZOLE/PANTOPRAZOLE                          Critical"
^XMB(3.9,276,2,168,0)="   KETOCONAZOLE/RANOLAZINE                            Critical"
^XMB(3.9,276,2,169,0)="   KETOCONAZOLE/TRAZODONE                             Significant"
^XMB(3.9,276,2,170,0)="   KETOCONAZOLE/ZOLPIDEM TARTRATE                     Significant"
^XMB(3.9,276,2,171,0)="   LAMOTRIGINE/OXCARBAZEPINE                          Significant"
^XMB(3.9,276,2,172,0)="   LANSOPRAZOLE/RABEPRAZOLE NA                        Significant"
^XMB(3.9,276,2,173,0)="   LEVODOPA/PHENELZINE                                Significant"
^XMB(3.9,276,2,174,0)="   LEVONORGESTREL/NELFINAVIR MESYLATE                 Significant"
^XMB(3.9,276,2,175,0)="   LOPINAVIR/TIPRANAVIR                               Critical"
^XMB(3.9,276,2,176,0)="   LORATADINE/NEFAZODONE                              Significant"
^XMB(3.9,276,2,177,0)="   MESORIDAZINE/ZIPRASIDONE                           Critical"
^XMB(3.9,276,2,178,0)="   METHAZOLAMIDE/TOPIRAMATE                           Significant"
^XMB(3.9,276,2,179,0)="   METHYLPHENIDATE/TRANYLCYPROMINE                    Critical"
^XMB(3.9,276,2,180,0)="   NAFCILLIN/NORGESTIMATE                             Critical"
^XMB(3.9,276,2,181,0)="   NEFAZODONE/RANOLAZINE                              Critical"
^XMB(3.9,276,2,182,0)="   NELFINAVIR MESYLATE/RANOLAZINE                     Critical"
^XMB(3.9,276,2,183,0)="   OXAZEPAM/SODIUM OXYBATE                            Critical"
^XMB(3.9,276,2,184,0)="   PHYTONADIONE/WARFARIN                              Significant"
^XMB(3.9,276,2,185,0)="   PROCAINAMIDE/RANOLAZINE                            Critical"
^XMB(3.9,276,2,186,0)="   QUINIDINE/RANOLAZINE                               Critical"
^XMB(3.9,276,2,187,0)="   RANOLAZINE/RITONAVIR                               Critical"
^XMB(3.9,276,2,188,0)="   RANOLAZINE/SAQUINAVIR                              Critical"
^XMB(3.9,276,2,189,0)="   RANOLAZINE/SOTALOL                                 Critical"
^XMB(3.9,276,2,190,0)="   RANOLAZINE/VERAPAMIL                               Critical"
^XMB(3.9,276,2,191,0)="   RANOLAZINE/VORICONAZOLE                            Critical"
^XMB(3.9,276,2,192,0)="   RANOLAZINE/ZIPRASIDONE                             Critical"
^XMB(3.9,276,2,193,0)="   RIFAPENTINE/RITONAVIR                              Critical"
^XMB(3.9,276,2,194,0)="   RITONAVIR/TRAZODONE                                Significant"
^XMB(3.9,276,2,195,0)="   RITONAVIR/VORICONAZOLE                             Critical"
^XMB(3.9,276,2,196,0)="   SPARFLOXACIN/SUCRALFATE                            Significant"
^XMB(3.9,276,2,197,0)="   SPARFLOXACIN/ZIPRASIDONE                           Critical"
^XMB(3.9,276,2,198,0)="   TACROLIMUS/ZIPRASIDONE                             Critical"
^XMB(3.9,276,2,199,0)="   TAMOXIFEN/WARFARIN                                 Critical"
^XMB(3.9,276,2,200,0)="   TROLEANDOMYCIN/VARDENAFIL                          Significant"
^XMB(3.9,276,2,201,0)=" "
^XMB(3.9,276,2,202,0)="EDITED INTERACTIONS"
^XMB(3.9,276,2,203,0)=" "
^XMB(3.9,276,2,204,0)="   AMPRENAVIR/TIPRANAVIR                              Critical"
^XMB(3.9,276,2,205,0)="   ATAZANAVIR SO4/RIFAMPIN                            Significant"
^XMB(3.9,276,2,206,0)="   ATORVASTATIN CALCIUM/GEMFIBROZIL                   Critical"
^XMB(3.9,276,2,207,0)="   DESIPRAMINE/ZIPRASIDONE                            Critical"
^XMB(3.9,276,2,208,0)="   LOPERAMIDE/TIPRANAVIR                              Significant"
^XMB(3.9,276,2,209,0)=" "
^XMB(3.9,276,2,210,0)="INACTIVATED INTERACTIONS"
^XMB(3.9,276,2,211,0)=" "
^XMB(3.9,276,2,212,0)="   NONE"
^XMB(3.9,276,2,213,0)=" "
^XMB(3.9,276,2,214,0)="The following products have been flagged for exclusion from drug-drug"
^XMB(3.9,276,2,215,0)="interaction checks."
^XMB(3.9,276,2,216,0)=" "
^XMB(3.9,276,2,217,0)="BARRIER,OSTOMY,NEW IMAGE H#16104"
^XMB(3.9,276,2,218,0)="CHLOROPHYLL 0.5%/PAPAIN/UREA 10% OINT,TOP"
^XMB(3.9,276,2,219,0)="CONVEX INSERT,ADAPT H#79520"
^XMB(3.9,276,2,220,0)="CONVEX INSERT,ADAPT H#79530"
^XMB(3.9,276,2,221,0)="CONVEX INSERT,ADAPT H#79540"
^XMB(3.9,276,2,222,0)="DRESSING,OPSITE IV3000 FRAME 2 3/8IN X 2 3/4IN SN#59410000"
^XMB(3.9,276,2,223,0)="DRESSING,SILVERCEL 1IN X 12IN JJ#800112"
^XMB(3.9,276,2,224,0)="DRESSING,SILVERCEL 2IN X 2IN JJ#800202"
^XMB(3.9,276,2,225,0)="DRESSING,SILVERCEL 4.25IN X 4.25IN JJ#800404"
^XMB(3.9,276,2,226,0)="DRESSING,SILVERCEL 4IN X 8IN JJ#800408"
^XMB(3.9,276,2,227,0)="EXUBERA CHAMBER"
^XMB(3.9,276,2,228,0)="EXUBERA CHAMBER AND INHALER"
^XMB(3.9,276,2,229,0)="EXUBERA RELEASE UNIT"
^XMB(3.9,276,2,230,0)="HYDROCORTISONE 10%/ULTRASOUND GEL,TOP"
^XMB(3.9,276,2,231,0)="INCONT LINER HANDI-CARE 10IN X 14IN"
^XMB(3.9,276,2,232,0)="INCONT LINER HANDI-CARE 10IN X 24IN"
^XMB(3.9,276,2,233,0)="INCONT LINER HANDI-CARE 4.5IN X 14IN"
^XMB(3.9,276,2,234,0)="INCONT LINER HANDI-CARE 6.5IN X 17IN"
^XMB(3.9,276,2,235,0)="INCONT LINER HANDI-CARE 7IN X 17IN"
^XMB(3.9,276,2,236,0)="INCONT LINER MOLIMED 5.5IN X 10IN"
^XMB(3.9,276,2,237,0)="INCONT LINER MOLIMED 6.5IN X 13IN"
^XMB(3.9,276,2,238,0)="INCONT LINER MOLIMED 8IN X 17IN"
^XMB(3.9,276,2,239,0)="INSULIN SYRINGE 0.3ML 29G 0.5IN"
^XMB(3.9,276,2,240,0)="MICONAZOLE NITRATE 0.25%/ZINC OXIDE 15% OINT,TOP"
^XMB(3.9,276,2,241,0)="PHENOL (DILUTE) 0.6% (AF) MOUTHWASH"
^XMB(3.9,276,2,242,0)="TAPE,PINK 1.5IN X 5YD NU-HOPE #1615"
^XMB(3.9,276,2,243,0)="TAPE,PINK 1IN X 5YD NU-HOPE #1610"
^XMB(3.9,276,2,244,0)="TAPE,PINK 2IN X 5YD NU-HOPE #1620"
^XMB(3.9,276,2,245,0)="TRICLOSAN 0.5% SOLN,TOP"
^XMB(3.9,276,6,0)="^3.911A^3^3"
^XMB(3.9,276,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,276,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,276,6,3,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,276,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,276,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,276,6,"B","SCHLEHUBER,CAMERON",3)=""
^XMB(3.9,277,0)="DRUGS UNMATCHED FROM NATIONAL DRUG FILE^NDF MANAGER^3061225.163233^^^^P"
^XMB(3.9,277,.6)="3061225"
^XMB(3.9,277,1,0)="^3.91A^3^3"
^XMB(3.9,277,1,1,0)="1^0^3061225.163302^^^^^^1^3061225.163302"
^XMB(3.9,277,1,2,0)="63"
^XMB(3.9,277,1,3,0)="68"
^XMB(3.9,277,1,"C",1,1)=""
^XMB(3.9,277,1,"C",63,2)=""
^XMB(3.9,277,1,"C",68,3)=""
^XMB(3.9,277,2,0)="^^63^63^3061225"
^XMB(3.9,277,2,1,0)=" "
^XMB(3.9,277,2,2,0)="The following active entries in your DRUG file (#50) have been"
^XMB(3.9,277,2,3,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,277,2,4,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,277,2,5,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,277,2,6,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,277,2,7,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,277,2,8,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,277,2,9,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,277,2,10,0)="products immediately.  You may also need to match a new"
^XMB(3.9,277,2,11,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,277,2,12,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,277,2,13,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,277,2,14,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,277,2,15,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,277,2,16,0)="matching process."
^XMB(3.9,277,2,17,0)=" "
^XMB(3.9,277,2,18,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,277,2,19,0)="                                                                    DATE"
^XMB(3.9,277,2,20,0)=" "
^XMB(3.9,277,2,21,0)="  NONE"
^XMB(3.9,277,2,22,0)=" "
^XMB(3.9,277,2,23,0)="The following investigational entries in your DRUG file (#50) have been"
^XMB(3.9,277,2,24,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,277,2,25,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,277,2,26,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,277,2,27,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,277,2,28,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,277,2,29,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,277,2,30,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,277,2,31,0)="products immediately.  You may also need to match a new"
^XMB(3.9,277,2,32,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,277,2,33,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,277,2,34,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,277,2,35,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,277,2,36,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,277,2,37,0)="matching process."
^XMB(3.9,277,2,38,0)=" "
^XMB(3.9,277,2,39,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,277,2,40,0)="                                                                    DATE"
^XMB(3.9,277,2,41,0)=" "
^XMB(3.9,277,2,42,0)="  NONE"
^XMB(3.9,277,2,43,0)=" "
^XMB(3.9,277,2,44,0)="The following inactive entries in your DRUG file (#50) have been"
^XMB(3.9,277,2,45,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,277,2,46,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,277,2,47,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,277,2,48,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,277,2,49,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,277,2,50,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,277,2,51,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,277,2,52,0)="products immediately.  You may also need to match a new"
^XMB(3.9,277,2,53,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,277,2,54,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,277,2,55,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,277,2,56,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,277,2,57,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,277,2,58,0)="matching process."
^XMB(3.9,277,2,59,0)=" "
^XMB(3.9,277,2,60,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,277,2,61,0)="                                                                    DATE"
^XMB(3.9,277,2,62,0)=" "
^XMB(3.9,277,2,63,0)="  NONE"
^XMB(3.9,277,6,0)="^3.911A^3^3"
^XMB(3.9,277,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,277,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,277,6,3,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,277,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,277,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,277,6,"B","SCHLEHUBER,CAMERON",3)=""
^XMB(3.9,278,0)="Convert Radiation Exposure Method COMPLETED on Dec 25, 2006@18:00^.5^3061225.180021"
^XMB(3.9,278,.6)="3061225"
^XMB(3.9,278,1,0)="^3.91A^1^1"
^XMB(3.9,278,1,1,0)="1^0^3061225.180119^^^^^^^3061225.180119"
^XMB(3.9,278,1,"C",1,1)=""
^XMB(3.9,278,2,0)="^^5^5^3061225"
^XMB(3.9,278,2,1,0)="Convert Radiation Exposure Method COMPLETED on Dec 25, 2006@18:00:21"
^XMB(3.9,278,2,2,0)=""
^XMB(3.9,278,2,3,0)=""
^XMB(3.9,278,2,4,0)="      Total Patient Records Read:           4"
^XMB(3.9,278,2,5,0)="   Total Patient Records Changed:           0"
^XMB(3.9,278,6,0)="^3.911A^1^1"
^XMB(3.9,278,6,1,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,278,6,"B","SCHLEHUBER,CAMERON",1)=""
^XMB(3.9,279,0)="Patch OR*3*244 Clean up completed^PATCH OR*3*244 CLEAN UP JOB^3061225.180022"
^XMB(3.9,279,.6)="3061225"
^XMB(3.9,279,1,0)="^3.91A^2^2"
^XMB(3.9,279,1,1,0)=".5"
^XMB(3.9,279,1,2,0)="1^0^3061225.180121^^^^^^^3061225.180121"
^XMB(3.9,279,1,"C",.5,1)=""
^XMB(3.9,279,1,"C",1,2)=""
^XMB(3.9,279,2,0)="^^7^7^3061225"
^XMB(3.9,279,2,1,0)="The reinstatement of Abnormal results has completed."
^XMB(3.9,279,2,2,0)="Below is a listing of Abnormal results taken from Lab test and added to the Order file."
^XMB(3.9,279,2,3,0)=""
^XMB(3.9,279,2,4,0)="0 orders had abnormal results added."
^XMB(3.9,279,2,5,0)=""
^XMB(3.9,279,2,6,0)="No changes were made to your database."
^XMB(3.9,279,2,7,0)=""
^XMB(3.9,279,6,0)="^3.911A^2^2"
^XMB(3.9,279,6,1,0)="POSTMASTER"
^XMB(3.9,279,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,279,6,"B","POSTMASTER",1)=""
^XMB(3.9,279,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,280,0)="DATA UPDATE FOR NDF^NDF MANAGER^3061225.180027"
^XMB(3.9,280,.6)="3061225"
^XMB(3.9,280,1,0)="^3.91A^3^3"
^XMB(3.9,280,1,1,0)="1^0^3061225.180124^^^^^^^3061225.180124"
^XMB(3.9,280,1,2,0)="63"
^XMB(3.9,280,1,3,0)="68"
^XMB(3.9,280,1,"C",1,1)=""
^XMB(3.9,280,1,"C",63,2)=""
^XMB(3.9,280,1,"C",68,3)=""
^XMB(3.9,280,2,0)="^^297^297^3061225"
^XMB(3.9,280,2,1,0)=" "
^XMB(3.9,280,2,2,0)="The following VA Products have been added to the National"
^XMB(3.9,280,2,3,0)="Drug File.  You may wish to review, then match or unmatch"
^XMB(3.9,280,2,4,0)="local drug file entries based on this updated information."
^XMB(3.9,280,2,5,0)=" "
^XMB(3.9,280,2,6,0)="   ACETAMINOPHEN 100MG/ML (SF) SUSP,ORAL"
^XMB(3.9,280,2,7,0)="    (CMOP - A1327)           (DISPENSE UNIT - ML)"
^XMB(3.9,280,2,8,0)="     050580-0144-01   "
^XMB(3.9,280,2,9,0)="   ALOSETRON HCL 0.5MG TAB"
^XMB(3.9,280,2,10,0)="    (CMOP - A1326)           (DISPENSE UNIT - TAB)"
^XMB(3.9,280,2,11,0)="     000173-0738-00   "
^XMB(3.9,280,2,12,0)="   CATHERIZATION SET,INTERMITTENT 14FR MMG/ONEIL #RLA-142-30"
^XMB(3.9,280,2,13,0)="    (CMOP - XV147)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,14,0)="     999990-1423-30   "
^XMB(3.9,280,2,15,0)="   CATHETER,INTERMITTENT 12FR RUSCH #221800-12"
^XMB(3.9,280,2,16,0)="    (CMOP - XV143)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,17,0)="     990221-8001-20   "
^XMB(3.9,280,2,18,0)="   CATHETER,INTERMITTENT 14FR RUSCH #221800-14"
^XMB(3.9,280,2,19,0)="    (CMOP - XV144)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,20,0)="     990221-8001-40   "
^XMB(3.9,280,2,21,0)="   CATHETER,INTERMITTENT 16FR RUSCH #221800-16"
^XMB(3.9,280,2,22,0)="    (CMOP - XV145)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,23,0)="     990221-8001-60   "
^XMB(3.9,280,2,24,0)="   CATHETER,INTERMITTENT 18FR RUSCH #221800-18"
^XMB(3.9,280,2,25,0)="    (CMOP - XV146)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,26,0)="     990221-8001-80   "
^XMB(3.9,280,2,27,0)="   DARBEPOETIN ALFA,RECOMBINANT 100MCG/0.5ML SYR INJ ALBUMIN FREE"
^XMB(3.9,280,2,28,0)="    (CMOP - D0730)           (DISPENSE UNIT - SYR)"
^XMB(3.9,280,2,29,0)="     055513-0025-04   "
^XMB(3.9,280,2,30,0)="   DARBEPOETIN ALFA,RECOMBINANT 100MCG/0.5ML SYR INJ SURECLICK"
^XMB(3.9,280,2,31,0)="    (CMOP - D0718)           (DISPENSE UNIT - SYR)"
^XMB(3.9,280,2,32,0)="     055513-0093-01   "
^XMB(3.9,280,2,33,0)="   DARBEPOETIN ALFA,RECOMBINANT 150MCG/0.3ML SYR INJ ALBUMIN FREE"
^XMB(3.9,280,2,34,0)="    (CMOP - D0731)           (DISPENSE UNIT - SYR)"
^XMB(3.9,280,2,35,0)="     055513-0027-04   "
^XMB(3.9,280,2,36,0)="   DARBEPOETIN ALFA,RECOMBINANT 150MCG/0.3ML SYR INJ SURECLICK"
^XMB(3.9,280,2,37,0)="    (CMOP - D0719)           (DISPENSE UNIT - SYR)"
^XMB(3.9,280,2,38,0)="     055513-0094-01   "
^XMB(3.9,280,2,39,0)="   DARBEPOETIN ALFA,RECOMBINANT 200MCG/0.4ML SYR INJ ALBUMIN FREE"
^XMB(3.9,280,2,40,0)="    (CMOP - D0724)           (DISPENSE UNIT - SYR)"
^XMB(3.9,280,2,41,0)="     055513-0028-01   "
^XMB(3.9,280,2,42,0)="   DARBEPOETIN ALFA,RECOMBINANT 200MCG/0.4ML SYR INJ SURECLICK"
^XMB(3.9,280,2,43,0)="    (CMOP - D0720)           (DISPENSE UNIT - SYR)"
^XMB(3.9,280,2,44,0)="     055513-0095-01   "
^XMB(3.9,280,2,45,0)="   DARBEPOETIN ALFA,RECOMBINANT 25MCG/0.42ML SYR INJ ALBUMIN FREE"
^XMB(3.9,280,2,46,0)="    (CMOP - D0727)           (DISPENSE UNIT - SYR)"
^XMB(3.9,280,2,47,0)="     055513-0057-04   "
^XMB(3.9,280,2,48,0)="   DARBEPOETIN ALFA,RECOMBINANT 25MCG/0.42ML SYR INJ SURECLICK"
^XMB(3.9,280,2,49,0)="    (CMOP - D0715)           (DISPENSE UNIT - SYR)"
^XMB(3.9,280,2,50,0)="     055513-0090-01   "
^XMB(3.9,280,2,51,0)="   DARBEPOETIN ALFA,RECOMBINANT 300MCG/0.6ML SYR INJ ALBUMIN FREE"
^XMB(3.9,280,2,52,0)="    (CMOP - D0725)           (DISPENSE UNIT - SYR)"
^XMB(3.9,280,2,53,0)="     055513-0111-01   "
^XMB(3.9,280,2,54,0)="   DARBEPOETIN ALFA,RECOMBINANT 300MCG/0.6ML SYR INJ SURECLICK"
^XMB(3.9,280,2,55,0)="    (CMOP - D0721)           (DISPENSE UNIT - SYR)"
^XMB(3.9,280,2,56,0)="     055513-0096-01   "
^XMB(3.9,280,2,57,0)="   DARBEPOETIN ALFA,RECOMBINANT 40MCG/0.4ML SYR INJ ALBUMIN FREE"
^XMB(3.9,280,2,58,0)="    (CMOP - D0728)           (DISPENSE UNIT - SYR)"
^XMB(3.9,280,2,59,0)="     055513-0021-04   "
^XMB(3.9,280,2,60,0)="   DARBEPOETIN ALFA,RECOMBINANT 40MCG/0.4ML SYR INJ SURECLICK"
^XMB(3.9,280,2,61,0)="    (CMOP - D0716)           (DISPENSE UNIT - SYR)"
^XMB(3.9,280,2,62,0)="     055513-0091-01   "
^XMB(3.9,280,2,63,0)="   DARBEPOETIN ALFA,RECOMBINANT 500MCG/ML SYR INJ ALBUMIN FREE"
^XMB(3.9,280,2,64,0)="    (CMOP - D0726)           (DISPENSE UNIT - SYR)"
^XMB(3.9,280,2,65,0)="     055513-0032-01   "
^XMB(3.9,280,2,66,0)="   DARBEPOETIN ALFA,RECOMBINANT 500MCG/ML SYR INJ SURECLICK"
^XMB(3.9,280,2,67,0)="    (CMOP - D0722)           (DISPENSE UNIT - SYR)"
^XMB(3.9,280,2,68,0)="     055513-0097-01   "
^XMB(3.9,280,2,69,0)="   DARBEPOETIN ALFA,RECOMBINANT 60MCG/0.3ML SYR INJ ALBUMIN FREE"
^XMB(3.9,280,2,70,0)="    (CMOP - D0729)           (DISPENSE UNIT - SYR)"
^XMB(3.9,280,2,71,0)="     055513-0023-04   "
^XMB(3.9,280,2,72,0)="   DARBEPOETIN ALFA,RECOMBINANT 60MCG/0.3ML SYR INJ SURECLICK"
^XMB(3.9,280,2,73,0)="    (CMOP - D0717)           (DISPENSE UNIT - SYR)"
^XMB(3.9,280,2,74,0)="     055513-0092-01   "
^XMB(3.9,280,2,75,0)="   DM 30MG/GG 1200MG/P-EPHRINE 30MG TAB,SA"
^XMB(3.9,280,2,76,0)="    (CMOP - D0723)           (DISPENSE UNIT - TAB)"
^XMB(3.9,280,2,77,0)="     066869-0805-10   "
^XMB(3.9,280,2,78,0)="   DRESSING,COVADERM 4IN X 10IN DEROYAL #46-004"
^XMB(3.9,280,2,79,0)="    (CMOP - XV140)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,80,0)="     999004-6004-00   "
^XMB(3.9,280,2,81,0)="   DRESSING,COVADERM 4IN X 14IN DEROYAL #46-005"
^XMB(3.9,280,2,82,0)="    (CMOP - XV141)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,83,0)="     999004-6005-00   "
^XMB(3.9,280,2,84,0)="   DRESSING,COVADERM 4IN X 4IN DEROYAL #46-001"
^XMB(3.9,280,2,85,0)="    (CMOP - sup)             (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,86,0)="     999004-6001-00   "
^XMB(3.9,280,2,87,0)="   DRESSING,COVADERM 4IN X 6IN DEROYAL #46-002"
^XMB(3.9,280,2,88,0)="    (CMOP - D0714)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,89,0)="     999004-6002-00   "
^XMB(3.9,280,2,90,0)="   DRESSING,COVADERM 4IN X 8IN DEROYAL #46-003"
^XMB(3.9,280,2,91,0)="    (CMOP - XV139)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,92,0)="     999004-6003-00   "
^XMB(3.9,280,2,93,0)="   DRESSING,OIL EMULSION 5IN X 9IN KEN#6116"
^XMB(3.9,280,2,94,0)="    (CMOP - XV142)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,95,0)="     008884-6116-00   "
^XMB(3.9,280,2,96,0)="   ETANERCEPT 50MG/ML INJ SURECLICK"
^XMB(3.9,280,2,97,0)="    (CMOP - E0456)           (DISPENSE UNIT - SYR)"
^XMB(3.9,280,2,98,0)="     058406-0445-04   "
^XMB(3.9,280,2,99,0)="   FAMPRIDINE (4-AMINOPYRIDINE) PWDR"
^XMB(3.9,280,2,100,0)="    (CMOP - F0368)           (DISPENSE UNIT - GM)"
^XMB(3.9,280,2,101,0)="     049452-0452-01   049452-0452-02   "
^XMB(3.9,280,2,102,0)="   GLIMEPIRIDE 1MG/ROSIGLITAZONE MALEATE 4MG TAB"
^XMB(3.9,280,2,103,0)="    (CMOP - G0274)           (DISPENSE UNIT - TAB)"
^XMB(3.9,280,2,104,0)="     000007-3151-13   "
^XMB(3.9,280,2,105,0)="   GLIMEPIRIDE 2MG/ROSIGLITAZONE MALEATE 4MG TAB"
^XMB(3.9,280,2,106,0)="    (CMOP - G0273)           (DISPENSE UNIT - TAB)"
^XMB(3.9,280,2,107,0)="     000007-3152-13   "
^XMB(3.9,280,2,108,0)="   GLIMEPIRIDE 4MG/ROSIGLITAZONE MALEATE 4MG TAB"
^XMB(3.9,280,2,109,0)="    (CMOP - G0272)           (DISPENSE UNIT - TAB)"
^XMB(3.9,280,2,110,0)="     000007-3153-13   "
^XMB(3.9,280,2,111,0)="   GUAIFENESIN 650MG/PHENYLEPHRINE 40MG TAB,SA"
^XMB(3.9,280,2,112,0)="    (CMOP - G0275)           (DISPENSE UNIT - TAB)"
^XMB(3.9,280,2,113,0)="     064543-0150-90   "
^XMB(3.9,280,2,114,0)="   HYDROCHLOROTHIAZIDE 25MG/LOSARTAN POTASSIUM 100MG TAB,UD"
^XMB(3.9,280,2,115,0)="    (CMOP - H0506)           (DISPENSE UNIT - TAB)"
^XMB(3.9,280,2,116,0)="     000006-0747-28   "
^XMB(3.9,280,2,117,0)="   HYDROCHLOROTHIAZIDE 25MG/LOSARTAN POTASSIUM 100MG TAB"
^XMB(3.9,280,2,118,0)="    (CMOP - H0494)           (DISPENSE UNIT - TAB)"
^XMB(3.9,280,2,119,0)="     000006-0747-31   000006-0747-58   "
^XMB(3.9,280,2,120,0)="   HYDROCHLOROTHIAZIDE 25MG/VALSARTAN 320MG TAB"
^XMB(3.9,280,2,121,0)="    (CMOP - H0505)           (DISPENSE UNIT - TAB)"
^XMB(3.9,280,2,122,0)="   JOLESSA 30MCG/0.15MCG TAB,EC,91"
^XMB(3.9,280,2,123,0)="    (CMOP - J0018)           (DISPENSE UNIT - CYCLE)"
^XMB(3.9,280,2,124,0)="     000555-9123-66   "
^XMB(3.9,280,2,125,0)="   LENALIDOMIDE 15MG CAP,ORAL"
^XMB(3.9,280,2,126,0)="    (CMOP - L0378)           (DISPENSE UNIT - CAP)"
^XMB(3.9,280,2,127,0)="     059572-0415-21   059572-0415-00   059572-0425-00   "
^XMB(3.9,280,2,128,0)="   LENALIDOMIDE 25MG CAP,ORAL"
^XMB(3.9,280,2,129,0)="    (CMOP - L0379)           (DISPENSE UNIT - CAP)"
^XMB(3.9,280,2,130,0)="     059572-0425-25   "
^XMB(3.9,280,2,131,0)="   LISSAMINE GREEN 1.5MG STRIP,OPH"
^XMB(3.9,280,2,132,0)="    (CMOP - L0380)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,133,0)="     064334-1122-01   "
^XMB(3.9,280,2,134,0)="   MEDICATION ORGANIZER 28DAY APOT#67378"
^XMB(3.9,280,2,135,0)="    (CMOP - XV176)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,136,0)="     002571-5673-78   "
^XMB(3.9,280,2,137,0)="   METFORMIN HCL 1000MG TAB,SA"
^XMB(3.9,280,2,138,0)="    (CMOP - M0695)           (DISPENSE UNIT - TAB)"
^XMB(3.9,280,2,139,0)="     059630-0575-60   "
^XMB(3.9,280,2,140,0)="   NICOMIDE TAB,SA"
^XMB(3.9,280,2,141,0)="    (CMOP - N0485)           (DISPENSE UNIT - TAB)"
^XMB(3.9,280,2,142,0)="     065880-0792-60   "
^XMB(3.9,280,2,143,0)="   OMEPRAZOLE 20MG/SODIUM BICARBONATE 1100MG CAP,ORAL"
^XMB(3.9,280,2,144,0)="    (CMOP - O0224)           (DISPENSE UNIT - CAP)"
^XMB(3.9,280,2,145,0)="     068012-0102-30   "
^XMB(3.9,280,2,146,0)="   OMEPRAZOLE 40MG/SODIUM BICARBONATE 1100MG CAP,ORAL"
^XMB(3.9,280,2,147,0)="    (CMOP - O0225)           (DISPENSE UNIT - CAP)"
^XMB(3.9,280,2,148,0)="     068012-0404-30   "
^XMB(3.9,280,2,149,0)="   PANITUMUMAB 20MG/ML INJ,SOLN"
^XMB(3.9,280,2,150,0)="    (CMOP - P0764)           (DISPENSE UNIT - ML)"
^XMB(3.9,280,2,151,0)="     055513-0954-01   055513-0955-01   055513-0956-01   "
^XMB(3.9,280,2,152,0)="   POSACONAZOLE 200MG/5ML SUSP,ORAL"
^XMB(3.9,280,2,153,0)="    (CMOP - P0763)           (DISPENSE UNIT - ML)"
^XMB(3.9,280,2,154,0)="     000085-1328-01   "
^XMB(3.9,280,2,155,0)="   POUCH,DRAINABLE,PREMIER H#8510"
^XMB(3.9,280,2,156,0)="    (CMOP - XV155)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,157,0)="     990100-0008-10   "
^XMB(3.9,280,2,158,0)="   POUCH,DRAINABLE,PREMIER H#8511"
^XMB(3.9,280,2,159,0)="    (CMOP - XV156)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,160,0)="     990100-0008-11   "
^XMB(3.9,280,2,161,0)="   POUCH,DRAINABLE,PREMIER H#8512"
^XMB(3.9,280,2,162,0)="    (CMOP - XV157)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,163,0)="     990100-0008-12   "
^XMB(3.9,280,2,164,0)="   POUCH,DRAINABLE,PREMIER H#8513"
^XMB(3.9,280,2,165,0)="    (CMOP - XV158)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,166,0)="     990100-0008-13   "
^XMB(3.9,280,2,167,0)="   POUCH,DRAINABLE,PREMIER H#8514"
^XMB(3.9,280,2,168,0)="    (CMOP - XV159)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,169,0)="     990100-0008-14   "
^XMB(3.9,280,2,170,0)="   POUCH,DRAINABLE,PREMIER H#8515"
^XMB(3.9,280,2,171,0)="    (CMOP - XV160)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,172,0)="     990100-0008-15   "
^XMB(3.9,280,2,173,0)="   POUCH,DRAINABLE,PREMIER H#85211"
^XMB(3.9,280,2,174,0)="    (CMOP - XV168)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,175,0)="     990100-0852-11   "
^XMB(3.9,280,2,176,0)="   POUCH,DRAINABLE,PREMIER H#8528"
^XMB(3.9,280,2,177,0)="    (CMOP - XV161)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,178,0)="     990100-0008-28   "
^XMB(3.9,280,2,179,0)="   POUCH,DRAINABLE,PREMIER H#8531"
^XMB(3.9,280,2,180,0)="    (CMOP - XV153)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,181,0)="     990100-0085-31   "
^XMB(3.9,280,2,182,0)="   POUCH,DRAINABLE,PREMIER H#8532"
^XMB(3.9,280,2,183,0)="    (CMOP - XV150)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,184,0)="     990100-0085-32   "
^XMB(3.9,280,2,185,0)="   POUCH,DRAINABLE,PREMIER H#8533"
^XMB(3.9,280,2,186,0)="    (CMOP - XV152)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,187,0)="     990100-0085-33   "
^XMB(3.9,280,2,188,0)="   POUCH,DRAINABLE,PREMIER H#8538"
^XMB(3.9,280,2,189,0)="    (CMOP - XV151)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,190,0)="     990100-0085-38   "
^XMB(3.9,280,2,191,0)="   POUCH,DRAINABLE,PREMIER H#8539"
^XMB(3.9,280,2,192,0)="    (CMOP - XV154)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,193,0)="     990100-0085-39   "
^XMB(3.9,280,2,194,0)="   POUCH,DRAINABLE,PREMIER H#8590"
^XMB(3.9,280,2,195,0)="    (CMOP - XV162)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,196,0)="     990100-0859-90   "
^XMB(3.9,280,2,197,0)="   POUCH,DRAINABLE,PREMIER H#8591"
^XMB(3.9,280,2,198,0)="    (CMOP - XV163)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,199,0)="     990100-0859-91   "
^XMB(3.9,280,2,200,0)="   POUCH,DRAINABLE,PREMIER H#8592"
^XMB(3.9,280,2,201,0)="    (CMOP - XV164)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,202,0)="     990100-0859-92   "
^XMB(3.9,280,2,203,0)="   POUCH,DRAINABLE,PREMIER H#8593"
^XMB(3.9,280,2,204,0)="    (CMOP - XV165)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,205,0)="     990100-0859-93   "
^XMB(3.9,280,2,206,0)="   POUCH,DRAINABLE,PREMIER H#8594"
^XMB(3.9,280,2,207,0)="    (CMOP - XV166)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,208,0)="     990100-0859-94   "
^XMB(3.9,280,2,209,0)="   POUCH,DRAINABLE,PREMIER H#8595"
^XMB(3.9,280,2,210,0)="    (CMOP - XV167)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,211,0)="     990100-0859-95   "
^XMB(3.9,280,2,212,0)="   POUCH,DRAINABLE,PREMIER H#88401"
^XMB(3.9,280,2,213,0)="    (CMOP - XV148)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,214,0)="     990108-8401-01   "
^XMB(3.9,280,2,215,0)="   POUCH,DRAINABLE,PREMIER H#88501"
^XMB(3.9,280,2,216,0)="    (CMOP - XV149)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,217,0)="     990108-8501-00   "
^XMB(3.9,280,2,218,0)="   POUCH,DRAINABLE,PREMIER KIT H#89003"
^XMB(3.9,280,2,219,0)="    (CMOP - XV174)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,220,0)="     990100-0089-03   "
^XMB(3.9,280,2,221,0)="   POUCH,DRAINABLE,PREMIER KIT H#89004"
^XMB(3.9,280,2,222,0)="    (CMOP - XV173)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,223,0)="     990100-0089-04   "
^XMB(3.9,280,2,224,0)="   POUCH,MINI,CLOSED,PREMIER H#82100"
^XMB(3.9,280,2,225,0)="    (CMOP - XV170)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,226,0)="     990100-0082-10   "
^XMB(3.9,280,2,227,0)="   POUCH,MINI,CLOSED,PREMIER H#82300"
^XMB(3.9,280,2,228,0)="    (CMOP - XV172)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,229,0)="     990100-0082-30   "
^XMB(3.9,280,2,230,0)="   POUCH,MINI,CLOSED,PREMIER H#82325"
^XMB(3.9,280,2,231,0)="    (CMOP - XV171)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,232,0)="     990100-0082-32   "
^XMB(3.9,280,2,233,0)="   POUCH,MINI,CLOSED,PREMIER H#82500"
^XMB(3.9,280,2,234,0)="    (CMOP - XV169)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,235,0)="     990100-0082-50   "
^XMB(3.9,280,2,236,0)="   POUCH,UROSTOMY,FIRSTCHOICE KIT H#89005"
^XMB(3.9,280,2,237,0)="    (CMOP - XV175)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,238,0)="     990100-0890-05   "
^XMB(3.9,280,2,239,0)="   RADIAPLEXRX GEL,TOP"
^XMB(3.9,280,2,240,0)="    (CMOP - R0202)           (DISPENSE UNIT - GM)"
^XMB(3.9,280,2,241,0)="     066977-0101-06   "
^XMB(3.9,280,2,242,0)="   SODIUM CHLORIDE 0.9% SOLN,IRRG,30ML"
^XMB(3.9,280,2,243,0)="    (CMOP - S0470)           (DISPENSE UNIT - EA)"
^XMB(3.9,280,2,244,0)="     064938-0009-01   "
^XMB(3.9,280,2,245,0)="   SPONYX TAB,28"
^XMB(3.9,280,2,246,0)="    (CMOP - S0468)           (DISPENSE UNIT - CYCLE)"
^XMB(3.9,280,2,247,0)="     052544-0967-28   "
^XMB(3.9,280,2,248,0)="   SUNSCREEN-30 PABA-FREE COMBINATION CREAM,TOP"
^XMB(3.9,280,2,249,0)="    (CMOP - S0469)           (DISPENSE UNIT - GM)"
^XMB(3.9,280,2,250,0)="     000729-0440-04   "
^XMB(3.9,280,2,251,0)="   SUPLENA CARB STEADY LIQUID VANILLA"
^XMB(3.9,280,2,252,0)="    (CMOP - S0472)           (DISPENSE UNIT - 240ML CAN)"
^XMB(3.9,280,2,253,0)="     070074-0596-65   "
^XMB(3.9,280,2,254,0)=" "
^XMB(3.9,280,2,255,0)="The National Formulary Indicator has changed for the following"
^XMB(3.9,280,2,256,0)="VA Products.  The National Formulary Indicator will automatically"
^XMB(3.9,280,2,257,0)="be changed in your local DRUG file (#50).  Please review the"
^XMB(3.9,280,2,258,0)="VISN and Local Formulary designations of these products and"
^XMB(3.9,280,2,259,0)="make appropriate changes."
^XMB(3.9,280,2,260,0)=" "
^XMB(3.9,280,2,261,0)="FORMULARY ITEMS"
^XMB(3.9,280,2,262,0)="   ACETYLCYSTEINE 10% (PF) SOLN,INHL,10ML"
^XMB(3.9,280,2,263,0)="   ACETYLCYSTEINE 10% (PF) SOLN,INHL,30ML"
^XMB(3.9,280,2,264,0)="   ACETYLCYSTEINE 10% (PF) SOLN,INHL,4ML"
^XMB(3.9,280,2,265,0)="   ACETYLCYSTEINE 10% SOLN,INHL,10ML"
^XMB(3.9,280,2,266,0)="   ACETYLCYSTEINE 10% SOLN,INHL,30ML"
^XMB(3.9,280,2,267,0)="   ACETYLCYSTEINE 10% SOLN,INHL,4ML"
^XMB(3.9,280,2,268,0)="   ACETYLCYSTEINE 20% (PF) SOLN,INHL,10ML"
^XMB(3.9,280,2,269,0)="   ACETYLCYSTEINE 20% (PF) SOLN,INHL,30ML"
^XMB(3.9,280,2,270,0)="   ACETYLCYSTEINE 20% (PF) SOLN,INHL,4ML"
^XMB(3.9,280,2,271,0)="   ACETYLCYSTEINE 20% SOLN,INHL,10ML"
^XMB(3.9,280,2,272,0)="   ACETYLCYSTEINE 20% SOLN,INHL,30ML"
^XMB(3.9,280,2,273,0)="   ACETYLCYSTEINE 20% SOLN,INHL,4ML"
^XMB(3.9,280,2,274,0)="   DARBEPOETIN ALFA,RECOMBINANT 100MCG/0.5ML SYR INJ ALBUMIN FREE"
^XMB(3.9,280,2,275,0)="   DARBEPOETIN ALFA,RECOMBINANT 100MCG/0.5ML SYR INJ SURECLICK"
^XMB(3.9,280,2,276,0)="   DARBEPOETIN ALFA,RECOMBINANT 150MCG/0.3ML SYR INJ ALBUMIN FREE"
^XMB(3.9,280,2,277,0)="   DARBEPOETIN ALFA,RECOMBINANT 150MCG/0.3ML SYR INJ SURECLICK"
^XMB(3.9,280,2,278,0)="   DARBEPOETIN ALFA,RECOMBINANT 200MCG/0.4ML SYR INJ ALBUMIN FREE"
^XMB(3.9,280,2,279,0)="   DARBEPOETIN ALFA,RECOMBINANT 200MCG/0.4ML SYR INJ SURECLICK"
^XMB(3.9,280,2,280,0)="   DARBEPOETIN ALFA,RECOMBINANT 25MCG/0.42ML SYR INJ ALBUMIN FREE"
^XMB(3.9,280,2,281,0)="   DARBEPOETIN ALFA,RECOMBINANT 25MCG/0.42ML SYR INJ SURECLICK"
^XMB(3.9,280,2,282,0)="   DARBEPOETIN ALFA,RECOMBINANT 300MCG/0.6ML SYR INJ ALBUMIN FREE"
^XMB(3.9,280,2,283,0)="   DARBEPOETIN ALFA,RECOMBINANT 300MCG/0.6ML SYR INJ SURECLICK"
^XMB(3.9,280,2,284,0)="   DARBEPOETIN ALFA,RECOMBINANT 40MCG/0.4ML SYR INJ ALBUMIN FREE"
^XMB(3.9,280,2,285,0)="   DARBEPOETIN ALFA,RECOMBINANT 40MCG/0.4ML SYR INJ SURECLICK"
^XMB(3.9,280,2,286,0)="   DARBEPOETIN ALFA,RECOMBINANT 500MCG/ML SYR INJ ALBUMIN FREE"
^XMB(3.9,280,2,287,0)="   DARBEPOETIN ALFA,RECOMBINANT 500MCG/ML SYR INJ SURECLICK"
^XMB(3.9,280,2,288,0)="   DARBEPOETIN ALFA,RECOMBINANT 60MCG/0.3ML SYR INJ ALBUMIN FREE"
^XMB(3.9,280,2,289,0)="   DARBEPOETIN ALFA,RECOMBINANT 60MCG/0.3ML SYR INJ SURECLICK"
^XMB(3.9,280,2,290,0)="   EFAVIRENZ 600MG/EMTRICITABINE 200MG/TENOFOVIR DF 300MG TAB"
^XMB(3.9,280,2,291,0)="   ISOSORBIDE DINITRATE 40MG CAP,SA"
^XMB(3.9,280,2,292,0)="   SODIUM CHLORIDE 0.9% SOLN,IRRG,30ML"
^XMB(3.9,280,2,293,0)="   SODIUM CHLORIDE 0.9% SOLN,IRRG,75ML"
^XMB(3.9,280,2,294,0)="   TIGECYCLINE 50MG/VIL INJ"
^XMB(3.9,280,2,295,0)=" "
^XMB(3.9,280,2,296,0)="NON-FORMULARY ITEMS"
^XMB(3.9,280,2,297,0)="   MIVACURIUM CL 2MG/ML INJ"
^XMB(3.9,280,6,0)="^3.911A^3^3"
^XMB(3.9,280,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,280,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,280,6,3,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,280,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,280,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,280,6,"B","SCHLEHUBER,CAMERON",3)=""
^XMB(3.9,281,0)="UPDATED INTERACTIONS^NDF MANAGER^3061225.180027"
^XMB(3.9,281,.6)="3061225"
^XMB(3.9,281,1,0)="^3.91A^3^3"
^XMB(3.9,281,1,1,0)="1^0^3061225.180127^^^^^^^3061225.180127"
^XMB(3.9,281,1,2,0)="63"
^XMB(3.9,281,1,3,0)="68"
^XMB(3.9,281,1,"C",1,1)=""
^XMB(3.9,281,1,"C",63,2)=""
^XMB(3.9,281,1,"C",68,3)=""
^XMB(3.9,281,2,0)="^^63^63^3061225"
^XMB(3.9,281,2,1,0)="The following interactions in National Drug File (NDF) have been added,"
^XMB(3.9,281,2,2,0)="edited or inactivated.  These changes are the result of review and"
^XMB(3.9,281,2,3,0)="recommendations from the NDF support group."
^XMB(3.9,281,2,4,0)=" "
^XMB(3.9,281,2,5,0)="ADDED INTERACTIONS"
^XMB(3.9,281,2,6,0)=" "
^XMB(3.9,281,2,7,0)="   DULOXETINE/NARATRIPTAN HYDROCHLORIDE               Significant"
^XMB(3.9,281,2,8,0)="   FOSAMPRENAVIR/RANOLAZINE                           Critical"
^XMB(3.9,281,2,9,0)="   HALOPERIDOL/RANOLAZINE                             Critical"
^XMB(3.9,281,2,10,0)="   MAGNESIUM/MOXIFLOXACIN                             Significant"
^XMB(3.9,281,2,11,0)="   PIMOZIDE/RANOLAZINE                                Critical"
^XMB(3.9,281,2,12,0)="   RANOLAZINE/THIORIDAZINE                            Critical"
^XMB(3.9,281,2,13,0)=" "
^XMB(3.9,281,2,14,0)="EDITED INTERACTIONS"
^XMB(3.9,281,2,15,0)=" "
^XMB(3.9,281,2,16,0)="   NONE"
^XMB(3.9,281,2,17,0)=" "
^XMB(3.9,281,2,18,0)="INACTIVATED INTERACTIONS"
^XMB(3.9,281,2,19,0)=" "
^XMB(3.9,281,2,20,0)="   NONE"
^XMB(3.9,281,2,21,0)=" "
^XMB(3.9,281,2,22,0)="The following products have been flagged for exclusion from drug-drug"
^XMB(3.9,281,2,23,0)="interaction checks."
^XMB(3.9,281,2,24,0)=" "
^XMB(3.9,281,2,25,0)="CATHERIZATION SET,INTERMITTENT 14FR MMG/ONEIL #RLA-142-30"
^XMB(3.9,281,2,26,0)="CATHETER,INTERMITTENT 12FR RUSCH #221800-12"
^XMB(3.9,281,2,27,0)="CATHETER,INTERMITTENT 14FR RUSCH #221800-14"
^XMB(3.9,281,2,28,0)="CATHETER,INTERMITTENT 16FR RUSCH #221800-16"
^XMB(3.9,281,2,29,0)="CATHETER,INTERMITTENT 18FR RUSCH #221800-18"
^XMB(3.9,281,2,30,0)="DRESSING,COVADERM 4IN X 10IN DEROYAL #46-004"
^XMB(3.9,281,2,31,0)="DRESSING,COVADERM 4IN X 14IN DEROYAL #46-005"
^XMB(3.9,281,2,32,0)="DRESSING,COVADERM 4IN X 4IN DEROYAL #46-001"
^XMB(3.9,281,2,33,0)="DRESSING,COVADERM 4IN X 6IN DEROYAL #46-002"
^XMB(3.9,281,2,34,0)="DRESSING,COVADERM 4IN X 8IN DEROYAL #46-003"
^XMB(3.9,281,2,35,0)="DRESSING,OIL EMULSION 5IN X 9IN KEN#6116"
^XMB(3.9,281,2,36,0)="MEDICATION ORGANIZER 28DAY APOT#67378"
^XMB(3.9,281,2,37,0)="POUCH,DRAINABLE,PREMIER H#8511"
^XMB(3.9,281,2,38,0)="POUCH,DRAINABLE,PREMIER H#8513"
^XMB(3.9,281,2,39,0)="POUCH,DRAINABLE,PREMIER H#8514"
^XMB(3.9,281,2,40,0)="POUCH,DRAINABLE,PREMIER H#8515"
^XMB(3.9,281,2,41,0)="POUCH,DRAINABLE,PREMIER H#85211"
^XMB(3.9,281,2,42,0)="POUCH,DRAINABLE,PREMIER H#8528"
^XMB(3.9,281,2,43,0)="POUCH,DRAINABLE,PREMIER H#8532"
^XMB(3.9,281,2,44,0)="POUCH,DRAINABLE,PREMIER H#8533"
^XMB(3.9,281,2,45,0)="POUCH,DRAINABLE,PREMIER H#8538"
^XMB(3.9,281,2,46,0)="POUCH,DRAINABLE,PREMIER H#8539"
^XMB(3.9,281,2,47,0)="POUCH,DRAINABLE,PREMIER H#8590"
^XMB(3.9,281,2,48,0)="POUCH,DRAINABLE,PREMIER H#8591"
^XMB(3.9,281,2,49,0)="POUCH,DRAINABLE,PREMIER H#8592"
^XMB(3.9,281,2,50,0)="POUCH,DRAINABLE,PREMIER H#8593"
^XMB(3.9,281,2,51,0)="POUCH,DRAINABLE,PREMIER H#8594"
^XMB(3.9,281,2,52,0)="POUCH,DRAINABLE,PREMIER H#8595"
^XMB(3.9,281,2,53,0)="POUCH,DRAINABLE,PREMIER H#88401"
^XMB(3.9,281,2,54,0)="POUCH,DRAINABLE,PREMIER H#88501"
^XMB(3.9,281,2,55,0)="POUCH,DRAINABLE,PREMIER KIT H#89003"
^XMB(3.9,281,2,56,0)="POUCH,DRAINABLE,PREMIER KIT H#89004"
^XMB(3.9,281,2,57,0)="POUCH,MINI,CLOSED,PREMIER H#82100"
^XMB(3.9,281,2,58,0)="POUCH,MINI,CLOSED,PREMIER H#82300"
^XMB(3.9,281,2,59,0)="POUCH,MINI,CLOSED,PREMIER H#82325"
^XMB(3.9,281,2,60,0)="POUCH,MINI,CLOSED,PREMIER H#82500"
^XMB(3.9,281,2,61,0)="POUCH,UROSTOMY,FIRSTCHOICE KIT H#89005"
^XMB(3.9,281,2,62,0)="RADIAPLEXRX GEL,TOP"
^XMB(3.9,281,2,63,0)="SUNSCREEN-30 PABA-FREE COMBINATION CREAM,TOP"
^XMB(3.9,281,6,0)="^3.911A^3^3"
^XMB(3.9,281,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,281,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,281,6,3,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,281,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,281,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,281,6,"B","SCHLEHUBER,CAMERON",3)=""
^XMB(3.9,282,0)="DRUGS UNMATCHED FROM NATIONAL DRUG FILE^NDF MANAGER^3061225.180029^^^^P"
^XMB(3.9,282,.6)="3061225"
^XMB(3.9,282,1,0)="^3.91A^3^3"
^XMB(3.9,282,1,1,0)="1^0^3061225.180129^^^^^^1^3061225.180129"
^XMB(3.9,282,1,2,0)="63"
^XMB(3.9,282,1,3,0)="68"
^XMB(3.9,282,1,"C",1,1)=""
^XMB(3.9,282,1,"C",63,2)=""
^XMB(3.9,282,1,"C",68,3)=""
^XMB(3.9,282,2,0)="^^63^63^3061225"
^XMB(3.9,282,2,1,0)=" "
^XMB(3.9,282,2,2,0)="The following active entries in your DRUG file (#50) have been"
^XMB(3.9,282,2,3,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,282,2,4,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,282,2,5,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,282,2,6,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,282,2,7,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,282,2,8,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,282,2,9,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,282,2,10,0)="products immediately.  You may also need to match a new"
^XMB(3.9,282,2,11,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,282,2,12,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,282,2,13,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,282,2,14,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,282,2,15,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,282,2,16,0)="matching process."
^XMB(3.9,282,2,17,0)=" "
^XMB(3.9,282,2,18,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,282,2,19,0)="                                                                    DATE"
^XMB(3.9,282,2,20,0)=" "
^XMB(3.9,282,2,21,0)="  NONE"
^XMB(3.9,282,2,22,0)=" "
^XMB(3.9,282,2,23,0)="The following investigational entries in your DRUG file (#50) have been"
^XMB(3.9,282,2,24,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,282,2,25,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,282,2,26,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,282,2,27,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,282,2,28,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,282,2,29,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,282,2,30,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,282,2,31,0)="products immediately.  You may also need to match a new"
^XMB(3.9,282,2,32,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,282,2,33,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,282,2,34,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,282,2,35,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,282,2,36,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,282,2,37,0)="matching process."
^XMB(3.9,282,2,38,0)=" "
^XMB(3.9,282,2,39,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,282,2,40,0)="                                                                    DATE"
^XMB(3.9,282,2,41,0)=" "
^XMB(3.9,282,2,42,0)="  NONE"
^XMB(3.9,282,2,43,0)=" "
^XMB(3.9,282,2,44,0)="The following inactive entries in your DRUG file (#50) have been"
^XMB(3.9,282,2,45,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,282,2,46,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,282,2,47,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,282,2,48,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,282,2,49,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,282,2,50,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,282,2,51,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,282,2,52,0)="products immediately.  You may also need to match a new"
^XMB(3.9,282,2,53,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,282,2,54,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,282,2,55,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,282,2,56,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,282,2,57,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,282,2,58,0)="matching process."
^XMB(3.9,282,2,59,0)=" "
^XMB(3.9,282,2,60,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,282,2,61,0)="                                                                    DATE"
^XMB(3.9,282,2,62,0)=" "
^XMB(3.9,282,2,63,0)="  NONE"
^XMB(3.9,282,6,0)="^3.911A^3^3"
^XMB(3.9,282,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,282,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,282,6,3,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,282,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,282,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,282,6,"B","SCHLEHUBER,CAMERON",3)=""
^XMB(3.9,283,0)="INTERACTIONS and ALLERGIES UPDATED^NDF MANAGER^3061225.180041"
^XMB(3.9,283,.6)="3061225"
^XMB(3.9,283,1,0)="^3.91A^3^3"
^XMB(3.9,283,1,1,0)="1^0^3061225.180133^^^^^^^3061225.180133"
^XMB(3.9,283,1,2,0)="63"
^XMB(3.9,283,1,3,0)="68"
^XMB(3.9,283,1,"C",1,1)=""
^XMB(3.9,283,1,"C",63,2)=""
^XMB(3.9,283,1,"C",68,3)=""
^XMB(3.9,283,2,0)="^^199^199^3061225"
^XMB(3.9,283,2,1,0)=" "
^XMB(3.9,283,2,2,0)="The following interactions have been edited because they"
^XMB(3.9,283,2,3,0)="involved ingredients that are not primary ingredients."
^XMB(3.9,283,2,4,0)=" "
^XMB(3.9,283,2,5,0)="ANISINDIONE/BISMUTH SUBSALICYLATE was changed to"
^XMB(3.9,283,2,6,0)="   ANISINDIONE/BISMUTH"
^XMB(3.9,283,2,7,0)=" "
^XMB(3.9,283,2,8,0)="ANISINDIONE/MAGNESIUM SALICYLATE was changed to"
^XMB(3.9,283,2,9,0)="   ANISINDIONE/MAGNESIUM"
^XMB(3.9,283,2,10,0)=" "
^XMB(3.9,283,2,11,0)="ATAZANAVIR SO4/RABEPRAZOLE was changed to"
^XMB(3.9,283,2,12,0)="   ATAZANAVIR SO4/RABEPRAZOLE NA"
^XMB(3.9,283,2,13,0)=" "
^XMB(3.9,283,2,14,0)="BISMUTH SUBSALICYLATE/DICUMAROL was changed to"
^XMB(3.9,283,2,15,0)="   BISMUTH/DICUMAROL"
^XMB(3.9,283,2,16,0)=" "
^XMB(3.9,283,2,17,0)="BISMUTH SUBSALICYLATE/HEPARIN was changed to"
^XMB(3.9,283,2,18,0)="   BISMUTH/HEPARIN"
^XMB(3.9,283,2,19,0)=" "
^XMB(3.9,283,2,20,0)="BISMUTH SUBSALICYLATE/METHOTREXATE was changed to"
^XMB(3.9,283,2,21,0)="   BISMUTH/METHOTREXATE"
^XMB(3.9,283,2,22,0)=" "
^XMB(3.9,283,2,23,0)="BISMUTH SUBSALICYLATE/PHENPROCOUMON was changed to"
^XMB(3.9,283,2,24,0)="   BISMUTH/PHENPROCOUMON"
^XMB(3.9,283,2,25,0)=" "
^XMB(3.9,283,2,26,0)="BISMUTH SUBSALICYLATE/WARFARIN was changed to"
^XMB(3.9,283,2,27,0)="   BISMUTH/WARFARIN"
^XMB(3.9,283,2,28,0)=" "
^XMB(3.9,283,2,29,0)="CALCIUM ACETATE/GATIFLOXACIN was changed to"
^XMB(3.9,283,2,30,0)="   CALCIUM/GATIFLOXACIN"
^XMB(3.9,283,2,31,0)=" "
^XMB(3.9,283,2,32,0)="CALCIUM ACETATE/MOXIFLOXACIN was changed to"
^XMB(3.9,283,2,33,0)="   CALCIUM/MOXIFLOXACIN"
^XMB(3.9,283,2,34,0)=" "
^XMB(3.9,283,2,35,0)="CALCIUM CARBONATE/CIPROFLOXACIN was changed to"
^XMB(3.9,283,2,36,0)="   CALCIUM/CIPROFLOXACIN"
^XMB(3.9,283,2,37,0)=" "
^XMB(3.9,283,2,38,0)="CALCIUM CARBONATE/DOXYCYCLINE was changed to"
^XMB(3.9,283,2,39,0)="   CALCIUM/DOXYCYCLINE"
^XMB(3.9,283,2,40,0)=" "
^XMB(3.9,283,2,41,0)="CALCIUM CARBONATE/ENOXACIN was changed to"
^XMB(3.9,283,2,42,0)="   CALCIUM/ENOXACIN"
^XMB(3.9,283,2,43,0)=" "
^XMB(3.9,283,2,44,0)="CALCIUM CARBONATE/LEVOFLOXACIN was changed to"
^XMB(3.9,283,2,45,0)="   CALCIUM/LEVOFLOXACIN"
^XMB(3.9,283,2,46,0)=" "
^XMB(3.9,283,2,47,0)="CALCIUM CARBONATE/LOMEFLOXACIN was changed to"
^XMB(3.9,283,2,48,0)="   CALCIUM/LOMEFLOXACIN"
^XMB(3.9,283,2,49,0)=" "
^XMB(3.9,283,2,50,0)="CALCIUM CARBONATE/TETRACYCLINE was changed to"
^XMB(3.9,283,2,51,0)="   CALCIUM/TETRACYCLINE"
^XMB(3.9,283,2,52,0)=" "
^XMB(3.9,283,2,53,0)="CALCIUM CARBONATE/ZALCITABINE (DIDEOXYCYTIDINE,ddC) was changed to"
^XMB(3.9,283,2,54,0)="   CALCIUM/ZALCITABINE (DIDEOXYCYTIDINE,ddC)"
^XMB(3.9,283,2,55,0)=" "
^XMB(3.9,283,2,56,0)="CEFPODOXIME PROXETIL/RABEPRAZOLE was changed to"
^XMB(3.9,283,2,57,0)="   CEFPODOXIME PROXETIL/RABEPRAZOLE NA"
^XMB(3.9,283,2,58,0)=" "
^XMB(3.9,283,2,59,0)="CEFUROXIME/RABEPRAZOLE was changed to"
^XMB(3.9,283,2,60,0)="   CEFUROXIME/RABEPRAZOLE NA"
^XMB(3.9,283,2,61,0)=" "
^XMB(3.9,283,2,62,0)="CIPROFLOXACIN/MAGNESIUM HYDROXIDE was changed to"
^XMB(3.9,283,2,63,0)="   CIPROFLOXACIN/MAGNESIUM"
^XMB(3.9,283,2,64,0)=" "
^XMB(3.9,283,2,65,0)="CYANOCOBALAMIN/RABEPRAZOLE was changed to"
^XMB(3.9,283,2,66,0)="   CYANOCOBALAMIN/RABEPRAZOLE NA"
^XMB(3.9,283,2,67,0)=" "
^XMB(3.9,283,2,68,0)="DICUMAROL/MAGNESIUM SALICYLATE was changed to"
^XMB(3.9,283,2,69,0)="   DICUMAROL/MAGNESIUM"
^XMB(3.9,283,2,70,0)=" "
^XMB(3.9,283,2,71,0)="DIGITALIS/RABEPRAZOLE was changed to"
^XMB(3.9,283,2,72,0)="   DIGITALIS/RABEPRAZOLE NA"
^XMB(3.9,283,2,73,0)=" "
^XMB(3.9,283,2,74,0)="DOXYCYCLINE/MAGNESIUM HYDROXIDE was changed to"
^XMB(3.9,283,2,75,0)="   DOXYCYCLINE/MAGNESIUM"
^XMB(3.9,283,2,76,0)=" "
^XMB(3.9,283,2,77,0)="ENOXACIN/MAGNESIUM HYDROXIDE was changed to"
^XMB(3.9,283,2,78,0)="   ENOXACIN/MAGNESIUM"
^XMB(3.9,283,2,79,0)=" "
^XMB(3.9,283,2,80,0)="HEPARIN/MAGNESIUM SALICYLATE was changed to"
^XMB(3.9,283,2,81,0)="   HEPARIN/MAGNESIUM"
^XMB(3.9,283,2,82,0)=" "
^XMB(3.9,283,2,83,0)="INTERFERON BETA-1A,RECOMBINANT/ZIDOVUDINE was changed to"
^XMB(3.9,283,2,84,0)="   INTERFERON/ZIDOVUDINE"
^XMB(3.9,283,2,85,0)=" "
^XMB(3.9,283,2,86,0)="ITRACONAZOLE/MAGNESIUM HYDROXIDE was changed to"
^XMB(3.9,283,2,87,0)="   ITRACONAZOLE/MAGNESIUM"
^XMB(3.9,283,2,88,0)=" "
^XMB(3.9,283,2,89,0)="ITRACONAZOLE/RABEPRAZOLE was changed to"
^XMB(3.9,283,2,90,0)="   ITRACONAZOLE/RABEPRAZOLE NA"
^XMB(3.9,283,2,91,0)=" "
^XMB(3.9,283,2,92,0)="KETOCONAZOLE/MAGNESIUM HYDROXIDE was changed to"
^XMB(3.9,283,2,93,0)="   KETOCONAZOLE/MAGNESIUM"
^XMB(3.9,283,2,94,0)=" "
^XMB(3.9,283,2,95,0)="LEVOFLOXACIN/MAGNESIUM OXIDE was changed to"
^XMB(3.9,283,2,96,0)="   LEVOFLOXACIN/MAGNESIUM"
^XMB(3.9,283,2,97,0)=" "
^XMB(3.9,283,2,98,0)="LOMEFLOXACIN/MAGNESIUM HYDROXIDE was changed to"
^XMB(3.9,283,2,99,0)="   LOMEFLOXACIN/MAGNESIUM"
^XMB(3.9,283,2,100,0)=" "
^XMB(3.9,283,2,101,0)="MAGNESIUM HYDROXIDE/TETRACYCLINE was changed to"
^XMB(3.9,283,2,102,0)="   MAGNESIUM/TETRACYCLINE"
^XMB(3.9,283,2,103,0)=" "
^XMB(3.9,283,2,104,0)="MAGNESIUM HYDROXIDE/ZALCITABINE (DIDEOXYCYTIDINE,ddC) was changed to"
^XMB(3.9,283,2,105,0)="   MAGNESIUM/ZALCITABINE (DIDEOXYCYTIDINE,ddC)"
^XMB(3.9,283,2,106,0)=" "
^XMB(3.9,283,2,107,0)="MAGNESIUM OXIDE/MINOCYCLINE was changed to"
^XMB(3.9,283,2,108,0)="   MAGNESIUM/MINOCYCLINE"
^XMB(3.9,283,2,109,0)=" "
^XMB(3.9,283,2,110,0)="MAGNESIUM SALICYLATE/PHENPROCOUMON was changed to"
^XMB(3.9,283,2,111,0)="   MAGNESIUM/PHENPROCOUMON"
^XMB(3.9,283,2,112,0)=" "
^XMB(3.9,283,2,113,0)="MAGNESIUM SALICYLATE/WARFARIN was changed to"
^XMB(3.9,283,2,114,0)="   MAGNESIUM/WARFARIN"
^XMB(3.9,283,2,115,0)=" "
^XMB(3.9,283,2,116,0)="MINOCYCLINE/ZINC SULFATE was changed to"
^XMB(3.9,283,2,117,0)="   MINOCYCLINE/ZINC"
^XMB(3.9,283,2,118,0)=" "
^XMB(3.9,283,2,119,0)="RABEPRAZOLE/ZALCITABINE (DIDEOXYCYTIDINE,ddC) was changed to"
^XMB(3.9,283,2,120,0)="   RABEPRAZOLE NA/ZALCITABINE (DIDEOXYCYTIDINE,ddC)"
^XMB(3.9,283,2,121,0)=" "
^XMB(3.9,283,2,122,0)="SODIUM OXYBATE/TIZANIDINE HYDROCHLORIDE was changed to"
^XMB(3.9,283,2,123,0)="   SODIUM OXYBATE/TIZANIDINE"
^XMB(3.9,283,2,124,0)=" "
^XMB(3.9,283,2,125,0)="TETRACYCLINE/ZINC SULFATE was changed to"
^XMB(3.9,283,2,126,0)="   TETRACYCLINE/ZINC"
^XMB(3.9,283,2,127,0)=" "
^XMB(3.9,283,2,128,0)=" "
^XMB(3.9,283,2,129,0)="The following interactions have been deleted because"
^XMB(3.9,283,2,130,0)="Primary Ingredient/Other Ingredient combination already"
^XMB(3.9,283,2,131,0)="exists in the DRUG INGREDIENTS file involved ingredients"
^XMB(3.9,283,2,132,0)="that are not primary ingredients. "
^XMB(3.9,283,2,133,0)=" "
^XMB(3.9,283,2,134,0)="AMPRENAVIR/ERGOTAMINE TARTRATE"
^XMB(3.9,283,2,135,0)="ATAZANAVIR SO4/RANITIDINE BISMUTH CITRATE"
^XMB(3.9,283,2,136,0)="AZITHROMYCIN/ERGOTAMINE TARTRATE"
^XMB(3.9,283,2,137,0)="CALCIUM ACETATE/CIPROFLOXACIN"
^XMB(3.9,283,2,138,0)="CALCIUM ACETATE/LEVOFLOXACIN"
^XMB(3.9,283,2,139,0)="CINOXACIN/ZINC ACETATE"
^XMB(3.9,283,2,140,0)="CIPROFLOXACIN/MAGNESIUM CARBONATE"
^XMB(3.9,283,2,141,0)="CIPROFLOXACIN/MAGNESIUM OXIDE"
^XMB(3.9,283,2,142,0)="CITALOPRAM/SUMATRIPTAN SUCCINATE"
^XMB(3.9,283,2,143,0)="CLARITHROMYCIN/ERGOTAMINE TARTRATE"
^XMB(3.9,283,2,144,0)="CYCLOSPORINE/ERGOTAMINE TARTRATE"
^XMB(3.9,283,2,145,0)="DELAVIRDINE MESYLATE/ERGOTAMINE TARTRATE"
^XMB(3.9,283,2,146,0)="DIRITHROMYCIN/ERGOTAMINE TARTRATE"
^XMB(3.9,283,2,147,0)="DOXYCYCLINE/MAGNESIUM CARBONATE"
^XMB(3.9,283,2,148,0)="DOXYCYCLINE/MAGNESIUM OXIDE"
^XMB(3.9,283,2,149,0)="EFAVIRENZ/ERGOTAMINE TARTRATE"
^XMB(3.9,283,2,150,0)="ENOXACIN/MAGNESIUM OXIDE"
^XMB(3.9,283,2,151,0)="ERGOT/SUMATRIPTAN SUCCINATE"
^XMB(3.9,283,2,152,0)="ERGOTAMINE TARTRATE/ERYTHROMYCIN"
^XMB(3.9,283,2,153,0)="ERGOTAMINE TARTRATE/FENFLURAMINE"
^XMB(3.9,283,2,154,0)="ERGOTAMINE TARTRATE/FOSAMPRENAVIR"
^XMB(3.9,283,2,155,0)="ERGOTAMINE TARTRATE/INDINAVIR SULFATE"
^XMB(3.9,283,2,156,0)="ERGOTAMINE TARTRATE/ITRACONAZOLE"
^XMB(3.9,283,2,157,0)="ERGOTAMINE TARTRATE/KETOCONAZOLE"
^XMB(3.9,283,2,158,0)="ERGOTAMINE TARTRATE/LOPINAVIR"
^XMB(3.9,283,2,159,0)="ERGOTAMINE TARTRATE/NARATRIPTAN HYDROCHLORIDE"
^XMB(3.9,283,2,160,0)="ERGOTAMINE TARTRATE/NELFINAVIR MESYLATE"
^XMB(3.9,283,2,161,0)="ERGOTAMINE TARTRATE/NITROGLYCERIN"
^XMB(3.9,283,2,162,0)="ERGOTAMINE TARTRATE/OLEANDOMYCIN (AS TROLEANDOMYCIN)"
^XMB(3.9,283,2,163,0)="ERGOTAMINE TARTRATE/PROPRANOLOL"
^XMB(3.9,283,2,164,0)="ERGOTAMINE TARTRATE/RITONAVIR"
^XMB(3.9,283,2,165,0)="ERGOTAMINE TARTRATE/RIZATRIPTAN"
^XMB(3.9,283,2,166,0)="ERGOTAMINE TARTRATE/SAQUINAVIR"
^XMB(3.9,283,2,167,0)="ERGOTAMINE TARTRATE/SUMATRIPTAN"
^XMB(3.9,283,2,168,0)="ERGOTAMINE TARTRATE/SUMATRIPTAN SUCCINATE"
^XMB(3.9,283,2,169,0)="ERGOTAMINE TARTRATE/TACROLIMUS"
^XMB(3.9,283,2,170,0)="ERGOTAMINE TARTRATE/VORICONAZOLE"
^XMB(3.9,283,2,171,0)="ERGOTAMINE TARTRATE/ZOLMITRIPTAN"
^XMB(3.9,283,2,172,0)="FLUOXETINE/SUMATRIPTAN SUCCINATE"
^XMB(3.9,283,2,173,0)="FLUVOXAMINE MALEATE/SUMATRIPTAN SUCCINATE"
^XMB(3.9,283,2,174,0)="GATIFLOXACIN/MAGNESIUM HYDROXIDE"
^XMB(3.9,283,2,175,0)="IODINE,I-125/METFORMIN HYDROCHLORIDE"
^XMB(3.9,283,2,176,0)="ISOCARBOXAZID/SUMATRIPTAN SUCCINATE"
^XMB(3.9,283,2,177,0)="ISOSORBIDE DINITRATE/SILDENAFIL CITRATE"
^XMB(3.9,283,2,178,0)="ISOSORBIDE MONONITRATE/SILDENAFIL CITRATE"
^XMB(3.9,283,2,179,0)="ITRACONAZOLE/MAGNESIUM OXIDE"
^XMB(3.9,283,2,180,0)="KETOCONAZOLE/MAGNESIUM OXIDE"
^XMB(3.9,283,2,181,0)="LEVOFLOXACIN/MAGNESIUM ACETATE"
^XMB(3.9,283,2,182,0)="LEVOFLOXACIN/ZINC SULFATE"
^XMB(3.9,283,2,183,0)="LOMEFLOXACIN/MAGNESIUM OXIDE"
^XMB(3.9,283,2,184,0)="MAGNESIUM CARBONATE/TETRACYCLINE"
^XMB(3.9,283,2,185,0)="MAGNESIUM CARBONATE/ZALCITABINE (DIDEOXYCYTIDINE,ddC)"
^XMB(3.9,283,2,186,0)="MAGNESIUM OXIDE/TETRACYCLINE"
^XMB(3.9,283,2,187,0)="MAGNESIUM OXIDE/ZALCITABINE (DIDEOXYCYTIDINE,ddC)"
^XMB(3.9,283,2,188,0)="NEFAZODONE/SUMATRIPTAN SUCCINATE"
^XMB(3.9,283,2,189,0)="OMEGA-3 POLYUNSATURATES/WARFARIN"
^XMB(3.9,283,2,190,0)="PARGYLINE/SUMATRIPTAN SUCCINATE"
^XMB(3.9,283,2,191,0)="PAROXETINE/SUMATRIPTAN SUCCINATE"
^XMB(3.9,283,2,192,0)="PHENELZINE/SUMATRIPTAN SUCCINATE"
^XMB(3.9,283,2,193,0)="SERTRALINE/SUMATRIPTAN SUCCINATE"
^XMB(3.9,283,2,194,0)="SUMATRIPTAN SUCCINATE/TRANYLCYPROMINE"
^XMB(3.9,283,2,195,0)="SUMATRIPTAN SUCCINATE/VENLAFAXINE HYDROCHLORIDE"
^XMB(3.9,283,2,196,0)=" "
^XMB(3.9,283,2,197,0)="No PATIENT ALLERGIES were updated due to Primary Ingredients being"
^XMB(3.9,283,2,198,0)="changed to Non-Primary ingredients during the Data Update."
^XMB(3.9,283,2,199,0)=" "
^XMB(3.9,283,6,0)="^3.911A^3^3"
^XMB(3.9,283,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,283,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,283,6,3,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,283,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,283,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,283,6,"B","SCHLEHUBER,CAMERON",3)=""
^XMB(3.9,284,0)="HDIS Error has occurred^HDIS DS Client^3061225.180057^^^3070104"
^XMB(3.9,284,.6)="3061225"
^XMB(3.9,284,1,0)="^3.91A^1^1"
^XMB(3.9,284,1,1,0)="G.HDIS ERRORS@FORUM.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,284,1,"AQUEUE",18,1)=""
^XMB(3.9,284,1,"C","G.HDIS ERRORS@FORUM.VA.GOV",1)=""
^XMB(3.9,284,2,0)="^^4^4^3061225"
^XMB(3.9,284,2,1,0)="An error has occurred at BETA.VISTA-OFFICE.ORG"
^XMB(3.9,284,2,2,0)="On DEC 25, 2006@18:00:51"
^XMB(3.9,284,2,3,0)="Error message: Unable to determine current system"
^XMB(3.9,284,2,4,0)=""
^XMB(3.9,284,6,0)="^3.911A^1^1"
^XMB(3.9,284,6,1,0)="G.HDIS ERRORS"
^XMB(3.9,284,6,"B","G.HDIS ERRORS",1)=""
^XMB(3.9,285,0)="HDIS Error has occurred^HDIS DS Client^3061225.180057^^^3070104"
^XMB(3.9,285,.6)="3061225"
^XMB(3.9,285,1,0)="^3.91A^1^1"
^XMB(3.9,285,1,1,0)="G.HDIS ERRORS@FORUM.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,285,1,"AQUEUE",18,1)=""
^XMB(3.9,285,1,"C","G.HDIS ERRORS@FORUM.VA.GOV",1)=""
^XMB(3.9,285,2,0)="^^4^4^3061225"
^XMB(3.9,285,2,1,0)="An error has occurred at BETA.VISTA-OFFICE.ORG"
^XMB(3.9,285,2,2,0)="On DEC 25, 2006@18:00:51"
^XMB(3.9,285,2,3,0)="Error message: Unable to determine current system"
^XMB(3.9,285,2,4,0)=""
^XMB(3.9,285,6,0)="^3.911A^1^1"
^XMB(3.9,285,6,1,0)="G.HDIS ERRORS"
^XMB(3.9,285,6,"B","G.HDIS ERRORS",1)=""
^XMB(3.9,286,0)="DG MEANS TEST DATE OF DEATH CLEANUP^.5^3061225.180103"
^XMB(3.9,286,.6)="3061225"
^XMB(3.9,286,1,0)="^3.91A^1^1"
^XMB(3.9,286,1,1,0)="1^0^3061225.180134^^^^^^^3061225.180134"
^XMB(3.9,286,1,"C",1,1)=""
^XMB(3.9,286,2,0)="^^6^6^3061225"
^XMB(3.9,286,2,1,0)="   Means Test Date of Death Cleanup"
^XMB(3.9,286,2,2,0)=""
^XMB(3.9,286,2,3,0)="      Started at: 12/25/06 18:01:03"
^XMB(3.9,286,2,4,0)="    Completed at: 12/25/06 18:01:03"
^XMB(3.9,286,2,5,0)="Records Examined: 0"
^XMB(3.9,286,2,6,0)=" Records Deleted: 0"
^XMB(3.9,286,6,0)="^3.911A^1^1"
^XMB(3.9,286,6,1,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,286,6,"B","SCHLEHUBER,CAMERON",1)=""
^XMB(3.9,287,0)="HDIS Error has occurred^HDIS DS Client^3061225.180103^^^3070104"
^XMB(3.9,287,.6)="3061225"
^XMB(3.9,287,1,0)="^3.91A^1^1"
^XMB(3.9,287,1,1,0)="G.HDIS ERRORS@FORUM.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,287,1,"AQUEUE",18,1)=""
^XMB(3.9,287,1,"C","G.HDIS ERRORS@FORUM.VA.GOV",1)=""
^XMB(3.9,287,2,0)="^^4^4^3061225"
^XMB(3.9,287,2,1,0)="An error has occurred at BETA.VISTA-OFFICE.ORG"
^XMB(3.9,287,2,2,0)="On DEC 25, 2006@18:00:57"
^XMB(3.9,287,2,3,0)="Error message: Unable to determine current system"
^XMB(3.9,287,2,4,0)=""
^XMB(3.9,287,6,0)="^3.911A^1^1"
^XMB(3.9,287,6,1,0)="G.HDIS ERRORS"
^XMB(3.9,287,6,"B","G.HDIS ERRORS",1)=""
^XMB(3.9,288,0)="HDIS Error has occurred^HDIS DS Client^3061225.180103^^^3070104"
^XMB(3.9,288,.6)="3061225"
^XMB(3.9,288,1,0)="^3.91A^1^1"
^XMB(3.9,288,1,1,0)="G.HDIS ERRORS@FORUM.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,288,1,"AQUEUE",18,1)=""
^XMB(3.9,288,1,"C","G.HDIS ERRORS@FORUM.VA.GOV",1)=""
^XMB(3.9,288,2,0)="^^4^4^3061225"
^XMB(3.9,288,2,1,0)="An error has occurred at BETA.VISTA-OFFICE.ORG"
^XMB(3.9,288,2,2,0)="On DEC 25, 2006@18:00:57"
^XMB(3.9,288,2,3,0)="Error message: Unable to determine current system"
^XMB(3.9,288,2,4,0)=""
^XMB(3.9,288,6,0)="^3.911A^1^1"
^XMB(3.9,288,6,1,0)="G.HDIS ERRORS"
^XMB(3.9,288,6,"B","G.HDIS ERRORS",1)=""
^XMB(3.9,289,0)="HDIS Error has occurred^HDIS DS Client^3061225.180103^^^3070104"
^XMB(3.9,289,.6)="3061225"
^XMB(3.9,289,1,0)="^3.91A^1^1"
^XMB(3.9,289,1,1,0)="G.HDIS ERRORS@FORUM.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,289,1,"AQUEUE",18,1)=""
^XMB(3.9,289,1,"C","G.HDIS ERRORS@FORUM.VA.GOV",1)=""
^XMB(3.9,289,2,0)="^^4^4^3061225"
^XMB(3.9,289,2,1,0)="An error has occurred at BETA.VISTA-OFFICE.ORG"
^XMB(3.9,289,2,2,0)="On DEC 25, 2006@18:00:57"
^XMB(3.9,289,2,3,0)="Error message: Unable to determine current system"
^XMB(3.9,289,2,4,0)=""
^XMB(3.9,289,6,0)="^3.911A^1^1"
^XMB(3.9,289,6,1,0)="G.HDIS ERRORS"
^XMB(3.9,289,6,"B","G.HDIS ERRORS",1)=""
^XMB(3.9,290,0)="HDIS Error has occurred^HDIS DS Client^3061225.180103^^^3070104"
^XMB(3.9,290,.6)="3061225"
^XMB(3.9,290,1,0)="^3.91A^1^1"
^XMB(3.9,290,1,1,0)="G.HDIS ERRORS@FORUM.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,290,1,"AQUEUE",18,1)=""
^XMB(3.9,290,1,"C","G.HDIS ERRORS@FORUM.VA.GOV",1)=""
^XMB(3.9,290,2,0)="^^4^4^3061225"
^XMB(3.9,290,2,1,0)="An error has occurred at BETA.VISTA-OFFICE.ORG"
^XMB(3.9,290,2,2,0)="On DEC 25, 2006@18:00:57"
^XMB(3.9,290,2,3,0)="Error message: Unable to determine current system"
^XMB(3.9,290,2,4,0)=""
^XMB(3.9,290,6,0)="^3.911A^1^1"
^XMB(3.9,290,6,1,0)="G.HDIS ERRORS"
^XMB(3.9,290,6,"B","G.HDIS ERRORS",1)=""
^XMB(3.9,291,0)="HDIS Error has occurred^HDIS DS Client^3061225.180103^^^3070104"
^XMB(3.9,291,.6)="3061225"
^XMB(3.9,291,1,0)="^3.91A^1^1"
^XMB(3.9,291,1,1,0)="G.HDIS ERRORS@FORUM.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,291,1,"AQUEUE",18,1)=""
^XMB(3.9,291,1,"C","G.HDIS ERRORS@FORUM.VA.GOV",1)=""
^XMB(3.9,291,2,0)="^^4^4^3061225"
^XMB(3.9,291,2,1,0)="An error has occurred at BETA.VISTA-OFFICE.ORG"
^XMB(3.9,291,2,2,0)="On DEC 25, 2006@18:00:57"
^XMB(3.9,291,2,3,0)="Error message: Unable to determine current system"
^XMB(3.9,291,2,4,0)=""
^XMB(3.9,291,6,0)="^3.911A^1^1"
^XMB(3.9,291,6,1,0)="G.HDIS ERRORS"
^XMB(3.9,291,6,"B","G.HDIS ERRORS",1)=""
^XMB(3.9,292,0)="HDIS Error has occurred^HDIS DS Client^3061225.180103^^^3070104"
^XMB(3.9,292,.6)="3061225"
^XMB(3.9,292,1,0)="^3.91A^1^1"
^XMB(3.9,292,1,1,0)="G.HDIS ERRORS@FORUM.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,292,1,"AQUEUE",18,1)=""
^XMB(3.9,292,1,"C","G.HDIS ERRORS@FORUM.VA.GOV",1)=""
^XMB(3.9,292,2,0)="^^4^4^3061225"
^XMB(3.9,292,2,1,0)="An error has occurred at BETA.VISTA-OFFICE.ORG"
^XMB(3.9,292,2,2,0)="On DEC 25, 2006@18:00:57"
^XMB(3.9,292,2,3,0)="Error message: Unable to determine current system"
^XMB(3.9,292,2,4,0)=""
^XMB(3.9,292,6,0)="^3.911A^1^1"
^XMB(3.9,292,6,1,0)="G.HDIS ERRORS"
^XMB(3.9,292,6,"B","G.HDIS ERRORS",1)=""
^XMB(3.9,293,0)="HDIS Error has occurred^HDIS DS Client^3061225.180103^^^3070104"
^XMB(3.9,293,.6)="3061225"
^XMB(3.9,293,1,0)="^3.91A^1^1"
^XMB(3.9,293,1,1,0)="G.HDIS ERRORS@FORUM.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,293,1,"AQUEUE",18,1)=""
^XMB(3.9,293,1,"C","G.HDIS ERRORS@FORUM.VA.GOV",1)=""
^XMB(3.9,293,2,0)="^^4^4^3061225"
^XMB(3.9,293,2,1,0)="An error has occurred at BETA.VISTA-OFFICE.ORG"
^XMB(3.9,293,2,2,0)="On DEC 25, 2006@18:00:57"
^XMB(3.9,293,2,3,0)="Error message: Unable to determine current system"
^XMB(3.9,293,2,4,0)=""
^XMB(3.9,293,6,0)="^3.911A^1^1"
^XMB(3.9,293,6,1,0)="G.HDIS ERRORS"
^XMB(3.9,293,6,"B","G.HDIS ERRORS",1)=""
^XMB(3.9,294,0)="SUMMARY STATS - TRANSMIT UNSENT OEF/OIF DATA TO HEC^.5^3061225.180104"
^XMB(3.9,294,.6)="3061225"
^XMB(3.9,294,1,0)="^3.91A^1^1"
^XMB(3.9,294,1,1,0)="1^0^3061225.180136^^^^^^^3061225.180136"
^XMB(3.9,294,1,"C",1,1)=""
^XMB(3.9,294,2,0)="^^6^6^3061225"
^XMB(3.9,294,2,1,0)="Transmit unsent OEF/OIF data to HEC COMPLETED on "
^XMB(3.9,294,2,2,0)="Dec 25, 2006@18:01:04"
^XMB(3.9,294,2,3,0)=""
^XMB(3.9,294,2,4,0)=""
^XMB(3.9,294,2,5,0)="                  Total Patient Records Read:           0"
^XMB(3.9,294,2,6,0)="   Total Patient Records Set for Re-transmit:           0"
^XMB(3.9,294,6,0)="^3.911A^1^1"
^XMB(3.9,294,6,1,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,294,6,"B","SCHLEHUBER,CAMERON",1)=""
^XMB(3.9,295,0)="Outpatient Pharmacy PSO*7*250 TALLY MISSING EXPIRATION DATES^PSO*7*250 TALLY MISSING EXPIRATION DATES^3070118.174357"
^XMB(3.9,295,.6)="3070118"
^XMB(3.9,295,1,0)="^3.91A^4^4"
^XMB(3.9,295,1,1,0)="1^0^3070118.175449^^^^^^^3070118.175449"
^XMB(3.9,295,1,2,0)="ELLZEY.LINDA@FORUM.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,295,1,3,0)="WHITE.ELAINE@FORUM.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,295,1,4,0)="WILLIAMSON.ERIC@FORUM.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,295,1,"AQUEUE",18,2)=""
^XMB(3.9,295,1,"AQUEUE",18,3)=""
^XMB(3.9,295,1,"AQUEUE",18,4)=""
^XMB(3.9,295,1,"C",1,1)=""
^XMB(3.9,295,1,"C","ELLZEY.LINDA@FORUM.VA.GOV",2)=""
^XMB(3.9,295,1,"C","WHITE.ELAINE@FORUM.VA.GOV",3)=""
^XMB(3.9,295,1,"C","WILLIAMSON.ERIC@FORUM.VA.GOV",4)=""
^XMB(3.9,295,2,0)="^^12^12^3070118"
^XMB(3.9,295,2,1,0)="The TALLY MISSING EXPIRATION DATES job for the Outpatient Pharmacy"
^XMB(3.9,295,2,2,0)="patch (PSO*7*250) started JAN 18, 2007@17:43:56"
^XMB(3.9,295,2,3,0)="and completed JAN 18, 2007@17:43:56."
^XMB(3.9,295,2,4,0)=" "
^XMB(3.9,295,2,5,0)="Excel comma delimited data below, five headings, one data line"
^XMB(3.9,295,2,6,0)="Note that an institution of 999999999 denotes one was not found during run."
^XMB(3.9,295,2,7,0)=",,,,,,Total Active Rx's"
^XMB(3.9,295,2,8,0)=",Before v7 Install,Before v7 Install,After v7 Install,After v7 Install,,With"
^XMB(3.9,295,2,9,0)=",Tot Active Rx's,Tot Inactive,Tot Active,Tot Inactive,Total Rx's,Expiration"
^XMB(3.9,295,2,10,0)=",Missing Expired,Rx's Missing,Rx's Missing,Rx's Missing,Missing,Date of T-1"
^XMB(3.9,295,2,11,0)="Institution,Date,Expired Date,Expired Date,Expired Date,Expired Date,Day"
^XMB(3.9,295,2,12,0)=" "
^XMB(3.9,295,6,0)="^3.911A^4^4"
^XMB(3.9,295,6,1,0)="ELLZEY.LINDA@FORUM.VA.GOV"
^XMB(3.9,295,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,295,6,3,0)="WHITE.ELAINE@FORUM.VA.GOV"
^XMB(3.9,295,6,4,0)="WILLIAMSON.ERIC@FORUM.VA.GOV"
^XMB(3.9,295,6,"B","ELLZEY.LINDA@FORUM.VA.GOV",1)=""
^XMB(3.9,295,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,295,6,"B","WHITE.ELAINE@FORUM.VA.GOV",3)=""
^XMB(3.9,295,6,"B","WILLIAMSON.ERIC@FORUM.VA.GOV",4)=""
^XMB(3.9,296,0)="PATCH OR*3.0*260 Clean Up COMPLETED^PATCH OR*3.0*260 CLEAN-UP^3070118.174538"
^XMB(3.9,296,.6)="3070118"
^XMB(3.9,296,1,0)="^3.91A^2^2"
^XMB(3.9,296,1,1,0)=".5"
^XMB(3.9,296,1,2,0)="1^0^3070118.175451^^^^^^^3070118.175451"
^XMB(3.9,296,1,"C",.5,1)=""
^XMB(3.9,296,1,"C",1,2)=""
^XMB(3.9,296,2,0)="^^5^5^3070118"
^XMB(3.9,296,2,1,0)="Clean up for patch OR*3.0*260"
^XMB(3.9,296,2,2,0)="Started: Jan 18, 2007@17:45:38; Completed: Jan 18, 2007@17:45:38."
^XMB(3.9,296,2,3,0)="Order Node Date Cleanup:"
^XMB(3.9,296,2,4,0)="-- 0 changes made --"
^XMB(3.9,296,2,5,0)=" "
^XMB(3.9,296,6,0)="^3.911A^2^2"
^XMB(3.9,296,6,1,0)="POSTMASTER"
^XMB(3.9,296,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,296,6,"B","POSTMASTER",1)=""
^XMB(3.9,296,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,297,0)="DATA UPDATE FOR NDF^NDF MANAGER^3070118.174603"
^XMB(3.9,297,.6)="3070118"
^XMB(3.9,297,1,0)="^3.91A^3^3"
^XMB(3.9,297,1,1,0)="1^0^3070118.175454^^^^^^^3070118.175454"
^XMB(3.9,297,1,2,0)="63"
^XMB(3.9,297,1,3,0)="68"
^XMB(3.9,297,1,"C",1,1)=""
^XMB(3.9,297,1,"C",63,2)=""
^XMB(3.9,297,1,"C",68,3)=""
^XMB(3.9,297,2,0)="^^271^271^3070118"
^XMB(3.9,297,2,1,0)=" "
^XMB(3.9,297,2,2,0)="The following VA Products have been added to the National"
^XMB(3.9,297,2,3,0)="Drug File.  You may wish to review, then match or unmatch"
^XMB(3.9,297,2,4,0)="local drug file entries based on this updated information."
^XMB(3.9,297,2,5,0)=" "
^XMB(3.9,297,2,6,0)="   ACCU-CHEK AVIVA (GLUCOSE) 1-2 CONTROL SOLN"
^XMB(3.9,297,2,7,0)="    (CMOP - A1331)           (DISPENSE UNIT - EA)"
^XMB(3.9,297,2,8,0)="     065702-0107-10   "
^XMB(3.9,297,2,9,0)="   AMINOLEVULINIC ACID 20% SOLN,TOP W/APPLICATOR"
^XMB(3.9,297,2,10,0)="    (CMOP - A1329)           (DISPENSE UNIT - EA)"
^XMB(3.9,297,2,11,0)="     067308-0101-01   067308-0101-06   "
^XMB(3.9,297,2,12,0)="   AMIODARONE HCL (PACERONE) 200MG TAB,UD"
^XMB(3.9,297,2,13,0)="    (CMOP - A1330)           (DISPENSE UNIT - TAB)"
^XMB(3.9,297,2,14,0)="     000245-0147-01   "
^XMB(3.9,297,2,15,0)="   ATAZANAVIR SO4 300MG CAP"
^XMB(3.9,297,2,16,0)="    (CMOP - A1328)           (DISPENSE UNIT - CAP)"
^XMB(3.9,297,2,17,0)="     000003-3622-12   "
^XMB(3.9,297,2,18,0)="   BAG,LEG BARD #150619"
^XMB(3.9,297,2,19,0)="    (CMOP - XV179)           (DISPENSE UNIT - EA)"
^XMB(3.9,297,2,20,0)="     000264-1506-19   "
^XMB(3.9,297,2,21,0)="   BAG,LEG BARD #150632"
^XMB(3.9,297,2,22,0)="    (CMOP - XV178)           (DISPENSE UNIT - EA)"
^XMB(3.9,297,2,23,0)="     000264-1506-32   "
^XMB(3.9,297,2,24,0)="   BRIEF,PROTECTION PLUS SMALL #MSCMW95250"
^XMB(3.9,297,2,25,0)="    (CMOP - XV177)           (DISPENSE UNIT - EA)"
^XMB(3.9,297,2,26,0)="     990093-3255-01   "
^XMB(3.9,297,2,27,0)="   BUSPIRONE HCL 15MG TAB,UD"
^XMB(3.9,297,2,28,0)="    (CMOP - B0558)           (DISPENSE UNIT - TAB)"
^XMB(3.9,297,2,29,0)="     051079-0960-20   "
^XMB(3.9,297,2,30,0)="   DEFEROXAMINE MESYLATE 500MG/VIL INJ"
^XMB(3.9,297,2,31,0)="    (CMOP - D0732)           (DISPENSE UNIT - VI)"
^XMB(3.9,297,2,32,0)="     000409-2336-10   "
^XMB(3.9,297,2,33,0)="   DESLORATADINE 2.5MG TAB,RAPID DISINTEGRATING"
^XMB(3.9,297,2,34,0)="    (CMOP - D0734)           (DISPENSE UNIT - TAB)"
^XMB(3.9,297,2,35,0)="     000085-1408-01   "
^XMB(3.9,297,2,36,0)="   DESLORATADINE 5MG TAB,RAPID DISINTEGRATING"
^XMB(3.9,297,2,37,0)="    (CMOP - D0733)           (DISPENSE UNIT - TAB)"
^XMB(3.9,297,2,38,0)="     000085-1280-01   "
^XMB(3.9,297,2,39,0)="   DRESSING,OPSITE IV3000 FRAME 2 3/8IN X 2 3/4IN SN#59410082"
^XMB(3.9,297,2,40,0)="    (CMOP - XV189)           (DISPENSE UNIT - EA)"
^XMB(3.9,297,2,41,0)="     040565-1156-00   "
^XMB(3.9,297,2,42,0)="   ETONOGESTREL 68MG IMPLANT"
^XMB(3.9,297,2,43,0)="    (CMOP - E0457)           (DISPENSE UNIT - EA)"
^XMB(3.9,297,2,44,0)="     000052-0272-01   "
^XMB(3.9,297,2,45,0)="   FEMHRT LO 0.5/2.5 TAB,28"
^XMB(3.9,297,2,46,0)="    (CMOP - F0373)           (DISPENSE UNIT - CYCLE)"
^XMB(3.9,297,2,47,0)="     000430-0145-14   "
^XMB(3.9,297,2,48,0)="   FEMHRT LO 0.5/2.5 TAB"
^XMB(3.9,297,2,49,0)="    (CMOP - F0372)           (DISPENSE UNIT - TAB)"
^XMB(3.9,297,2,50,0)="     000430-0145-23   "
^XMB(3.9,297,2,51,0)="   FENTANYL CITRATE 100MCG TAB,BUCCAL"
^XMB(3.9,297,2,52,0)="    (CMOP - F0374)           (DISPENSE UNIT - TAB)"
^XMB(3.9,297,2,53,0)="     063459-0541-28   "
^XMB(3.9,297,2,54,0)="   FENTANYL CITRATE 200MCG TAB,BUCCAL"
^XMB(3.9,297,2,55,0)="    (CMOP - F0375)           (DISPENSE UNIT - TAB)"
^XMB(3.9,297,2,56,0)="     063459-0542-28   "
^XMB(3.9,297,2,57,0)="   FENTANYL CITRATE 400MCG TAB,BUCCAL"
^XMB(3.9,297,2,58,0)="    (CMOP - F0376)           (DISPENSE UNIT - TAB)"
^XMB(3.9,297,2,59,0)="     063459-0544-28   "
^XMB(3.9,297,2,60,0)="   FENTANYL CITRATE 600MCG TAB,BUCCAL"
^XMB(3.9,297,2,61,0)="    (CMOP - F0377)           (DISPENSE UNIT - TAB)"
^XMB(3.9,297,2,62,0)="     063459-0546-28   "
^XMB(3.9,297,2,63,0)="   FENTANYL CITRATE 800MCG TAB,BUCCAL"
^XMB(3.9,297,2,64,0)="    (CMOP - F0378)           (DISPENSE UNIT - TAB)"
^XMB(3.9,297,2,65,0)="     063459-0548-28   "
^XMB(3.9,297,2,66,0)="   FLUTICASONE 115MCG/SALMETEROL 21MCG INHL,ORAL,12GM"
^XMB(3.9,297,2,67,0)="    (CMOP - F0382)           (DISPENSE UNIT - INHALER)"
^XMB(3.9,297,2,68,0)="     000173-0716-00   "
^XMB(3.9,297,2,69,0)="   FLUTICASONE 230MCG/SALMETEROL 21MCG INHL,ORAL,12GM"
^XMB(3.9,297,2,70,0)="    (CMOP - F0383)           (DISPENSE UNIT - INHALER)"
^XMB(3.9,297,2,71,0)="     000173-0717-00   "
^XMB(3.9,297,2,72,0)="   FLUTICASONE 45MCG/SALMETEROL 21MCG INHL,ORAL,12GM"
^XMB(3.9,297,2,73,0)="    (CMOP - F0384)           (DISPENSE UNIT - INHALER)"
^XMB(3.9,297,2,74,0)="     000173-0715-00   "
^XMB(3.9,297,2,75,0)="   HYOSCYAMINE SO4 0.125MG TAB,ORAL DISINTEGRATING"
^XMB(3.9,297,2,76,0)="    (CMOP - H0507)           (DISPENSE UNIT - TAB)"
^XMB(3.9,297,2,77,0)="     000091-3111-01   "
^XMB(3.9,297,2,78,0)="   INSULIN,GLULISINE,HUMAN 100 UNIT/ML INJ PEN 3ML"
^XMB(3.9,297,2,79,0)="    (CMOP - I0445)           (DISPENSE UNIT - SYR)"
^XMB(3.9,297,2,80,0)="     000088-2500-52   "
^XMB(3.9,297,2,81,0)="   IRRIGATING SYRINGE,PISTON CATHETER TIP 60ML"
^XMB(3.9,297,2,82,0)="    (CMOP - XV185)           (DISPENSE UNIT - EA)"
^XMB(3.9,297,2,83,0)="     008846-8000-50   "
^XMB(3.9,297,2,84,0)="   IRRIGATION KIT W/BULB SYRINGE K#67800"
^XMB(3.9,297,2,85,0)="    (CMOP - XV180)           (DISPENSE UNIT - EA)"
^XMB(3.9,297,2,86,0)="     000888-7678-00   "
^XMB(3.9,297,2,87,0)="   IRRIGATION KIT W/BULB SYRINGE K#67803"
^XMB(3.9,297,2,88,0)="    (CMOP - XV181)           (DISPENSE UNIT - EA)"
^XMB(3.9,297,2,89,0)="     000888-7678-03   "
^XMB(3.9,297,2,90,0)="   IRRIGATION KIT W/PISTON SYRINGE K#68800"
^XMB(3.9,297,2,91,0)="    (CMOP - XV182)           (DISPENSE UNIT - EA)"
^XMB(3.9,297,2,92,0)="     000888-7688-20   "
^XMB(3.9,297,2,93,0)="   IRRIGATION KIT W/PISTON SYRINGE K#68803"
^XMB(3.9,297,2,94,0)="    (CMOP - XV183)           (DISPENSE UNIT - EA)"
^XMB(3.9,297,2,95,0)="     000888-7688-03   "
^XMB(3.9,297,2,96,0)="   IRRIGATION KIT W/PISTON SYRINGE K#68820"
^XMB(3.9,297,2,97,0)="    (CMOP - XV184)           (DISPENSE UNIT - EA)"
^XMB(3.9,297,2,98,0)="     000888-7688-00   "
^XMB(3.9,297,2,99,0)="   KUNECATECHINS 15% OINT,TOP"
^XMB(3.9,297,2,100,0)="    (CMOP - K0045)           (DISPENSE UNIT - GM)"
^XMB(3.9,297,2,101,0)="     010337-0450-15   "
^XMB(3.9,297,2,102,0)="   LANCET,ABBOTT THIN"
^XMB(3.9,297,2,103,0)="    (CMOP - XV186)           (DISPENSE UNIT - EA)"
^XMB(3.9,297,2,104,0)="     057599-0043-05   "
^XMB(3.9,297,2,105,0)="   LANCET,ACCU-CHEK MULTICLIX DEVICE"
^XMB(3.9,297,2,106,0)="    (CMOP - L0381)           (DISPENSE UNIT - EA)"
^XMB(3.9,297,2,107,0)="     050924-0446-01   "
^XMB(3.9,297,2,108,0)="   LANCET,ACCU-CHEK MULTICLIX DRUM"
^XMB(3.9,297,2,109,0)="    (CMOP - L0382)           (DISPENSE UNIT - EA)"
^XMB(3.9,297,2,110,0)="     050924-0450-01   "
^XMB(3.9,297,2,111,0)="   LEVETIRACETAM 100MG/ML INJ"
^XMB(3.9,297,2,112,0)="    (CMOP - L0384)           (DISPENSE UNIT - ML)"
^XMB(3.9,297,2,113,0)="     050474-0002-63   "
^XMB(3.9,297,2,114,0)="   LINER,SECURELY YOURS,ADHESIVE"
^XMB(3.9,297,2,115,0)="    (CMOP - XV193)           (DISPENSE UNIT - EA)"
^XMB(3.9,297,2,116,0)="     999990-0023-00   "
^XMB(3.9,297,2,117,0)="   LOVASTATIN 40MG/NIACIN 1000MG TAB"
^XMB(3.9,297,2,118,0)="    (CMOP - L0383)           (DISPENSE UNIT - TAB)"
^XMB(3.9,297,2,119,0)="     060598-0009-90   "
^XMB(3.9,297,2,120,0)="   MEMANTINE HCL 10MG/5ML ORAL,SOLN"
^XMB(3.9,297,2,121,0)="    (CMOP - M0699)           (DISPENSE UNIT - ML)"
^XMB(3.9,297,2,122,0)="     000456-3202-12   "
^XMB(3.9,297,2,123,0)="   MINOCYCLINE HCL 135MG TAB,SA"
^XMB(3.9,297,2,124,0)="    (CMOP - M0698)           (DISPENSE UNIT - TAB)"
^XMB(3.9,297,2,125,0)="     099207-0462-10   "
^XMB(3.9,297,2,126,0)="   MINOCYCLINE HCL 45MG TAB,SA"
^XMB(3.9,297,2,127,0)="    (CMOP - M0696)           (DISPENSE UNIT - TAB)"
^XMB(3.9,297,2,128,0)="     099207-0460-10   "
^XMB(3.9,297,2,129,0)="   MINOCYCLINE HCL 90MG TAB,SA"
^XMB(3.9,297,2,130,0)="    (CMOP - M0697)           (DISPENSE UNIT - TAB)"
^XMB(3.9,297,2,131,0)="     099207-0461-10   "
^XMB(3.9,297,2,132,0)="   NALTREXONE 380MG/VIL INJ,SUSP,SA"
^XMB(3.9,297,2,133,0)="    (CMOP - N0487)           (DISPENSE UNIT - VI)"
^XMB(3.9,297,2,134,0)="     063459-0300-42   "
^XMB(3.9,297,2,135,0)="   NATTOKINASE CAP/TAB"
^XMB(3.9,297,2,136,0)="    (CMOP - N0486)           (DISPENSE UNIT - CAP/TAB)"
^XMB(3.9,297,2,137,0)="     995421-3654-01   "
^XMB(3.9,297,2,138,0)="   NOVASOURCE RENAL LIQUID (VANILLA)"
^XMB(3.9,297,2,139,0)="    (CMOP - N0488)           (DISPENSE UNIT - 240ML BOX)"
^XMB(3.9,297,2,140,0)="     000212-3512-62   "
^XMB(3.9,297,2,141,0)="   NOVASOURCE RENAL LIQUID 1000ML"
^XMB(3.9,297,2,142,0)="    (CMOP - N0489)           (DISPENSE UNIT - BTL)"
^XMB(3.9,297,2,143,0)="     000212-3512-42   "
^XMB(3.9,297,2,144,0)="   PEG-3350/ELECTROLYTES PWDR W/FLAVOR PKT"
^XMB(3.9,297,2,145,0)="    (CMOP - P0769)           (DISPENSE UNIT - EA)"
^XMB(3.9,297,2,146,0)="     000091-7036-23   "
^XMB(3.9,297,2,147,0)="   PIROXICAM 20MG CAP,UD"
^XMB(3.9,297,2,148,0)="    (CMOP - P0766)           (DISPENSE UNIT - CAP)"
^XMB(3.9,297,2,149,0)="     061392-0401-90   "
^XMB(3.9,297,2,150,0)="   POTASSIUM CHLORIDE 8MEQ TAB,SA,UD"
^XMB(3.9,297,2,151,0)="    (CMOP - P0771)           (DISPENSE UNIT - TAB)"
^XMB(3.9,297,2,152,0)="     000245-0040-01   "
^XMB(3.9,297,2,153,0)="   POUCH,DRAINABLE,NEW IMAGE H#18134"
^XMB(3.9,297,2,154,0)="    (CMOP - XV187)           (DISPENSE UNIT - EA)"
^XMB(3.9,297,2,155,0)="     999901-0181-34   "
^XMB(3.9,297,2,156,0)="   POUCH,DRAINABLE,PREMIER H#8400"
^XMB(3.9,297,2,157,0)="    (CMOP - XV192)           (DISPENSE UNIT - EA)"
^XMB(3.9,297,2,158,0)="     990100-0085-00   "
^XMB(3.9,297,2,159,0)="   POUCH,DRAINABLE,PREMIER H#8551"
^XMB(3.9,297,2,160,0)="    (CMOP - XV191)           (DISPENSE UNIT - EA)"
^XMB(3.9,297,2,161,0)="     990100-0085-51   "
^XMB(3.9,297,2,162,0)="   POUCH,DRAINABLE,SUR-FIT C#4114-91"
^XMB(3.9,297,2,163,0)="    (CMOP - XV188)           (DISPENSE UNIT - EA)"
^XMB(3.9,297,2,164,0)="     900041-1492-91   "
^XMB(3.9,297,2,165,0)="   PREDNISOLONE NA PHOSPHATE 15MG TAB,ORAL DISINTEGRATING"
^XMB(3.9,297,2,166,0)="    (CMOP - P0770)           (DISPENSE UNIT - TAB)"
^XMB(3.9,297,2,167,0)="     068188-0482-02   "
^XMB(3.9,297,2,168,0)="   PREFEST TAB,30"
^XMB(3.9,297,2,169,0)="    (CMOP - P0768)           (DISPENSE UNIT - CYCLE)"
^XMB(3.9,297,2,170,0)="     051285-0063-90   "
^XMB(3.9,297,2,171,0)="   PREFEST TAB"
^XMB(3.9,297,2,172,0)="    (CMOP - P0767)           (DISPENSE UNIT - TAB)"
^XMB(3.9,297,2,173,0)="     051285-0088-90   "
^XMB(3.9,297,2,174,0)="   SITAGLIPTIN PHOSPHATE 100MG TAB,UD"
^XMB(3.9,297,2,175,0)="    (CMOP - S0480)           (DISPENSE UNIT - TAB)"
^XMB(3.9,297,2,176,0)="     000006-0277-28   "
^XMB(3.9,297,2,177,0)="   SITAGLIPTIN PHOSPHATE 100MG TAB"
^XMB(3.9,297,2,178,0)="    (CMOP - S0479)           (DISPENSE UNIT - TAB)"
^XMB(3.9,297,2,179,0)="     000006-0277-31   000006-0277-54   000006-0277-74   000006-0277-82   "
^XMB(3.9,297,2,180,0)="   SITAGLIPTIN PHOSPHATE 25MG TAB,UD"
^XMB(3.9,297,2,181,0)="    (CMOP - S0476)           (DISPENSE UNIT - TAB)"
^XMB(3.9,297,2,182,0)="     000006-0221-28   "
^XMB(3.9,297,2,183,0)="   SITAGLIPTIN PHOSPHATE 25MG TAB"
^XMB(3.9,297,2,184,0)="    (CMOP - S0475)           (DISPENSE UNIT - TAB)"
^XMB(3.9,297,2,185,0)="     000006-0221-31   000006-0221-54   "
^XMB(3.9,297,2,186,0)="   SITAGLIPTIN PHOSPHATE 50MG TAB,UD"
^XMB(3.9,297,2,187,0)="    (CMOP - S0478)           (DISPENSE UNIT - TAB)"
^XMB(3.9,297,2,188,0)="     000006-0112-28   "
^XMB(3.9,297,2,189,0)="   SITAGLIPTIN PHOSPHATE 50MG TAB"
^XMB(3.9,297,2,190,0)="    (CMOP - S0477)           (DISPENSE UNIT - TAB)"
^XMB(3.9,297,2,191,0)="     000006-0112-31   000006-0112-54   "
^XMB(3.9,297,2,192,0)="   SRONYX TAB,28"
^XMB(3.9,297,2,193,0)="    (CMOP - S0474)           (DISPENSE UNIT - CYCLE)"
^XMB(3.9,297,2,194,0)="     052544-0967-28   "
^XMB(3.9,297,2,195,0)="   TELBIVUDINE 600MG TAB"
^XMB(3.9,297,2,196,0)="    (CMOP - T0620)           (DISPENSE UNIT - TAB)"
^XMB(3.9,297,2,197,0)="     024108-0101-01   "
^XMB(3.9,297,2,198,0)="   TEMAZEPAM 22.5MG CAP"
^XMB(3.9,297,2,199,0)="    (CMOP - T0621)           (DISPENSE UNIT - CAP)"
^XMB(3.9,297,2,200,0)="     000406-9914-03   "
^XMB(3.9,297,2,201,0)="   THEOPHYLLINE 300MG TAB,SA (PLIVA)"
^XMB(3.9,297,2,202,0)="    (CMOP - T0622)           (DISPENSE UNIT - TAB)"
^XMB(3.9,297,2,203,0)="     050111-0459-01   050111-0459-03   050111-0459-02   "
^XMB(3.9,297,2,204,0)="   UNI-DERM CREAM,TOP"
^XMB(3.9,297,2,205,0)="    (CMOP - U0049)           (DISPENSE UNIT - GM)"
^XMB(3.9,297,2,206,0)="     050484-0435-00   050484-0436-00   "
^XMB(3.9,297,2,207,0)="   VORINOSTAT 100MG CAP,ORAL"
^XMB(3.9,297,2,208,0)="    (CMOP - V0155)           (DISPENSE UNIT - CAP)"
^XMB(3.9,297,2,209,0)="     000006-0568-12   "
^XMB(3.9,297,2,210,0)=" "
^XMB(3.9,297,2,211,0)="The National Formulary Indicator has changed for the following"
^XMB(3.9,297,2,212,0)="VA Products.  The National Formulary Indicator will automatically"
^XMB(3.9,297,2,213,0)="be changed in your local DRUG file (#50).  Please review the"
^XMB(3.9,297,2,214,0)="VISN and Local Formulary designations of these products and"
^XMB(3.9,297,2,215,0)="make appropriate changes."
^XMB(3.9,297,2,216,0)=" "
^XMB(3.9,297,2,217,0)="FORMULARY ITEMS"
^XMB(3.9,297,2,218,0)="   AMIODARONE HCL (PACERONE) 200MG TAB,UD"
^XMB(3.9,297,2,219,0)="   ATAZANAVIR SO4 300MG CAP"
^XMB(3.9,297,2,220,0)="   BUPROPION HCL (SMOKE CESSATION) 150MG 12HR TAB,SA"
^XMB(3.9,297,2,221,0)="   BUPROPION HCL (SMOKE CESSATION) 150MG 12HR TAB,SA,PACK,60"
^XMB(3.9,297,2,222,0)="   BUPROPION HCL 150MG (SMOKE CESSATION) 12HR TAB,SA"
^XMB(3.9,297,2,223,0)="   BUPROPION HCL 150MG 12HR TAB,SA"
^XMB(3.9,297,2,224,0)="   BUPROPION HCL 200MG 12HR TAB,SA"
^XMB(3.9,297,2,225,0)="   BUSPIRONE HCL 15MG TAB,UD"
^XMB(3.9,297,2,226,0)="   CYANOCOBALAMIN 1000MCG TAB"
^XMB(3.9,297,2,227,0)="   CYANOCOBALAMIN 100MCG TAB"
^XMB(3.9,297,2,228,0)="   CYANOCOBALAMIN 250MCG TAB"
^XMB(3.9,297,2,229,0)="   CYANOCOBALAMIN 25MCG TAB"
^XMB(3.9,297,2,230,0)="   CYANOCOBALAMIN 500MCG TAB"
^XMB(3.9,297,2,231,0)="   CYANOCOBALAMIN 50MCG TAB"
^XMB(3.9,297,2,232,0)="   FEMHRT LO 0.5/2.5 TAB"
^XMB(3.9,297,2,233,0)="   FEMHRT LO 0.5/2.5 TAB,28"
^XMB(3.9,297,2,234,0)="   KETOCONAZOLE 1% SHAMPOO"
^XMB(3.9,297,2,235,0)="   KETOCONAZOLE 2% SHAMPOO"
^XMB(3.9,297,2,236,0)="   LEVETIRACETAM 100MG/ML INJ"
^XMB(3.9,297,2,237,0)="   LEVOFLOXACIN 5MG/ML/DEXTROSE INJ,BAG,100ML"
^XMB(3.9,297,2,238,0)="   LEVOFLOXACIN 5MG/ML/DEXTROSE INJ,BAG,150ML"
^XMB(3.9,297,2,239,0)="   LEVOFLOXACIN 5MG/ML/DEXTROSE INJ,BAG,50ML"
^XMB(3.9,297,2,240,0)="   LINEZOLID 100MG/5ML SUSP,ORAL"
^XMB(3.9,297,2,241,0)="   NYSTATIN 100000UNT/GM CREAM,TOP"
^XMB(3.9,297,2,242,0)="   PEG-3350/ELECTROLYTES PWDR W/FLAVOR PKT"
^XMB(3.9,297,2,243,0)="   PIROXICAM 20MG CAP,UD"
^XMB(3.9,297,2,244,0)="   POTASSIUM CHLORIDE 8MEQ TAB,SA,UD"
^XMB(3.9,297,2,245,0)="   SEVELAMER HCL 400MG TAB"
^XMB(3.9,297,2,246,0)="   SEVELAMER HCL 800MG TAB"
^XMB(3.9,297,2,247,0)="   TEMAZEPAM 22.5MG CAP"
^XMB(3.9,297,2,248,0)="   THEOPHYLLINE 300MG TAB,SA (PLIVA)"
^XMB(3.9,297,2,249,0)="   THROMBIN 10000UNT/VIL PWDR,TOP"
^XMB(3.9,297,2,250,0)="   THROMBIN 1000UNT/VIL PWDR,TOP"
^XMB(3.9,297,2,251,0)="   THROMBIN 20000UNT/VIL PWDR,TOP"
^XMB(3.9,297,2,252,0)="   THROMBIN 50000UNT/VIL PWDR,TOP"
^XMB(3.9,297,2,253,0)="   THROMBIN 5000UNT/VIL PWDR,TOP"
^XMB(3.9,297,2,254,0)=" "
^XMB(3.9,297,2,255,0)="NON-FORMULARY ITEMS"
^XMB(3.9,297,2,256,0)="   GANCICLOVIR 250MG CAP"
^XMB(3.9,297,2,257,0)="   GANCICLOVIR 500MG CAP"
^XMB(3.9,297,2,258,0)=" "
^XMB(3.9,297,2,259,0)="The following active VA Products are no longer marked for CMOP."
^XMB(3.9,297,2,260,0)="All local drug file entries matched to these VA Products will"
^XMB(3.9,297,2,261,0)="be UNMARKED for CMOP.  In order to have these entries dispensed"
^XMB(3.9,297,2,262,0)="by CMOP any local DRUG file (#50) entries matched to these"
^XMB(3.9,297,2,263,0)="products must be re-matched to another VA product that is actively"
^XMB(3.9,297,2,264,0)="marked for CMOP dispensing."
^XMB(3.9,297,2,265,0)=" "
^XMB(3.9,297,2,266,0)="   ADHESIVE REMOVER LIQUID    XS792"
^XMB(3.9,297,2,267,0)="   DEFEROXAMINE MESYLATE 500MG/VIL INJ    D0732"
^XMB(3.9,297,2,268,0)=" "
^XMB(3.9,297,2,269,0)="The National Formulary Restriction has changed for the following VA Products."
^XMB(3.9,297,2,270,0)="   NYSTATIN 100000UNT/GM CREAM,TOP"
^XMB(3.9,297,2,271,0)="        Restriction deleted"
^XMB(3.9,297,6,0)="^3.911A^3^3"
^XMB(3.9,297,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,297,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,297,6,3,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,297,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,297,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,297,6,"B","SCHLEHUBER,CAMERON",3)=""
^XMB(3.9,298,0)="UPDATED INTERACTIONS^NDF MANAGER^3070118.174603"
^XMB(3.9,298,.6)="3070118"
^XMB(3.9,298,1,0)="^3.91A^3^3"
^XMB(3.9,298,1,1,0)="1^0^3070118.175456^^^^^^^3070118.175456"
^XMB(3.9,298,1,2,0)="63"
^XMB(3.9,298,1,3,0)="68"
^XMB(3.9,298,1,"C",1,1)=""
^XMB(3.9,298,1,"C",63,2)=""
^XMB(3.9,298,1,"C",68,3)=""
^XMB(3.9,298,2,0)="^^79^79^3070118"
^XMB(3.9,298,2,1,0)="The following interactions in National Drug File (NDF) have been added,"
^XMB(3.9,298,2,2,0)="edited or inactivated.  These changes are the result of review and"
^XMB(3.9,298,2,3,0)="recommendations from the NDF support group."
^XMB(3.9,298,2,4,0)=" "
^XMB(3.9,298,2,5,0)="ADDED INTERACTIONS"
^XMB(3.9,298,2,6,0)=" "
^XMB(3.9,298,2,7,0)="   ALUMINUM ACETATE/MOXIFLOXACIN                      Significant"
^XMB(3.9,298,2,8,0)="   ALUMINUM CARBONATE/MOXIFLOXACIN                    Significant"
^XMB(3.9,298,2,9,0)="   ALUMINUM CHLORIDE/MOXIFLOXACIN                     Significant"
^XMB(3.9,298,2,10,0)="   ALUMINUM HYDROXIDE/MOXIFLOXACIN                    Significant"
^XMB(3.9,298,2,11,0)="   ALUMINUM PHOSPHATE/MOXIFLOXACIN                    Significant"
^XMB(3.9,298,2,12,0)="   ALUMINUM SULFATE/MOXIFLOXACIN                      Significant"
^XMB(3.9,298,2,13,0)="   ALUMINUM/MAGNESIUM HYDROXIDE/MOXIFLOXACIN          Significant"
^XMB(3.9,298,2,14,0)="   AMITRIPTYLINE/LINEZOLID                            Significant"
^XMB(3.9,298,2,15,0)="   AMOXAPINE/LINEZOLID                                Significant"
^XMB(3.9,298,2,16,0)="   AMPRENAVIR/RANOLAZINE                              Critical"
^XMB(3.9,298,2,17,0)="   ASTEMIZOLE/EFAVIRENZ                               Critical"
^XMB(3.9,298,2,18,0)="   ATAZANAVIR SO4/FOSAMPRENAVIR                       Significant"
^XMB(3.9,298,2,19,0)="   ATAZANAVIR SO4/RANOLAZINE                          Critical"
^XMB(3.9,298,2,20,0)="   BOSENTAN/SILDENAFIL CITRATE                        Significant"
^XMB(3.9,298,2,21,0)="   BUPRENORPHINE/ERYTHROMYCIN                         Significant"
^XMB(3.9,298,2,22,0)="   CARBAMAZEPINE/EFAVIRENZ                            Significant"
^XMB(3.9,298,2,23,0)="   CIMETIDINE/DASATINIB                               Significant"
^XMB(3.9,298,2,24,0)="   CLOMIPRAMINE/LINEZOLID                             Significant"
^XMB(3.9,298,2,25,0)="   DASATINIB/HYPERICUM PERFORATUM (ST. JOHN'S WORT)   Significant"
^XMB(3.9,298,2,26,0)="   DASATINIB/LANSOPRAZOLE                             Significant"
^XMB(3.9,298,2,27,0)="   DASATINIB/OMEPRAZOLE                               Significant"
^XMB(3.9,298,2,28,0)="   DASATINIB/RABEPRAZOLE NA                           Significant"
^XMB(3.9,298,2,29,0)="   DASATINIB/RANITIDINE                               Significant"
^XMB(3.9,298,2,30,0)="   DELAVIRDINE MESYLATE/SIMVASTATIN                   Critical"
^XMB(3.9,298,2,31,0)="   DESIPRAMINE/LINEZOLID                              Significant"
^XMB(3.9,298,2,32,0)="   DEXAMETHASONE/THALIDOMIDE                          Critical"
^XMB(3.9,298,2,33,0)="   DULOXETINE/FLUOXETINE                              Significant"
^XMB(3.9,298,2,34,0)="   EFAVIRENZ/FOSAMPRENAVIR                            Significant"
^XMB(3.9,298,2,35,0)="   ELETRIPTAN/NEFAZODONE                              Critical"
^XMB(3.9,298,2,36,0)="   ERLOTINIB/WARFARIN                                 Significant"
^XMB(3.9,298,2,37,0)="   FERROUS CARBONATE/MOXIFLOXACIN                     Significant"
^XMB(3.9,298,2,38,0)="   FERROUS FUMARATE/MOXIFLOXACIN                      Significant"
^XMB(3.9,298,2,39,0)="   FERROUS GLUCONATE/MOXIFLOXACIN                     Significant"
^XMB(3.9,298,2,40,0)="   FERROUS SULFATE/MOXIFLOXACIN                       Significant"
^XMB(3.9,298,2,41,0)="   IRON/LEVOTHYROXINE SODIUM                          Significant"
^XMB(3.9,298,2,42,0)="   IRON/MOXIFLOXACIN                                  Significant"
^XMB(3.9,298,2,43,0)="   LANSOPRAZOLE/TACROLIMUS                            Significant"
^XMB(3.9,298,2,44,0)="   PHENYTOIN/RIFAMPIN                                 Significant"
^XMB(3.9,298,2,45,0)="   PHENYTOIN/SUCRALFATE                               Significant"
^XMB(3.9,298,2,46,0)="   TIPRANAVIR/VARDENAFIL                              Significant"
^XMB(3.9,298,2,47,0)=" "
^XMB(3.9,298,2,48,0)="EDITED INTERACTIONS"
^XMB(3.9,298,2,49,0)=" "
^XMB(3.9,298,2,50,0)="   NONE"
^XMB(3.9,298,2,51,0)=" "
^XMB(3.9,298,2,52,0)="INACTIVATED INTERACTIONS"
^XMB(3.9,298,2,53,0)=" "
^XMB(3.9,298,2,54,0)="   CLONAZEPAM/OMEPRAZOLE                              Significant"
^XMB(3.9,298,2,55,0)=" "
^XMB(3.9,298,2,56,0)="The following products have been flagged for exclusion from drug-drug"
^XMB(3.9,298,2,57,0)="interaction checks."
^XMB(3.9,298,2,58,0)=" "
^XMB(3.9,298,2,59,0)="ACCU-CHEK AVIVA (GLUCOSE) 1-2 CONTROL SOLN"
^XMB(3.9,298,2,60,0)="AMINOLEVULINIC ACID 20% SOLN,TOP W/APPLICATOR"
^XMB(3.9,298,2,61,0)="BAG,LEG BARD #150619"
^XMB(3.9,298,2,62,0)="BAG,LEG BARD #150632"
^XMB(3.9,298,2,63,0)="BRIEF,PROTECTION PLUS SMALL #MSCMW95250"
^XMB(3.9,298,2,64,0)="DRESSING,OPSITE IV3000 FRAME 2 3/8IN X 2 3/4IN SN#59410082"
^XMB(3.9,298,2,65,0)="IRRIGATING SYRINGE,PISTON CATHETER TIP 60ML"
^XMB(3.9,298,2,66,0)="IRRIGATION KIT W/BULB SYRINGE K#67800"
^XMB(3.9,298,2,67,0)="IRRIGATION KIT W/BULB SYRINGE K#67803"
^XMB(3.9,298,2,68,0)="IRRIGATION KIT W/PISTON SYRINGE K#68800"
^XMB(3.9,298,2,69,0)="IRRIGATION KIT W/PISTON SYRINGE K#68820"
^XMB(3.9,298,2,70,0)="KUNECATECHINS 15% OINT,TOP"
^XMB(3.9,298,2,71,0)="LANCET,ABBOTT THIN"
^XMB(3.9,298,2,72,0)="LANCET,ACCU-CHEK MULTICLIX DEVICE"
^XMB(3.9,298,2,73,0)="LANCET,ACCU-CHEK MULTICLIX DRUM"
^XMB(3.9,298,2,74,0)="LINER,SECURELY YOURS,ADHESIVE"
^XMB(3.9,298,2,75,0)="POUCH,DRAINABLE,NEW IMAGE H#18134"
^XMB(3.9,298,2,76,0)="POUCH,DRAINABLE,PREMIER H#8400"
^XMB(3.9,298,2,77,0)="POUCH,DRAINABLE,PREMIER H#8551"
^XMB(3.9,298,2,78,0)="POUCH,DRAINABLE,SUR-FIT C#4114-91"
^XMB(3.9,298,2,79,0)="UNI-DERM CREAM,TOP"
^XMB(3.9,298,6,0)="^3.911A^3^3"
^XMB(3.9,298,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,298,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,298,6,3,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,298,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,298,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,298,6,"B","SCHLEHUBER,CAMERON",3)=""
^XMB(3.9,299,0)="DRUGS UNMATCHED FROM NATIONAL DRUG FILE^NDF MANAGER^3070118.174612^^^^P"
^XMB(3.9,299,.6)="3070118"
^XMB(3.9,299,1,0)="^3.91A^3^3"
^XMB(3.9,299,1,1,0)="1^0^3070118.175458^^^^^^1^3070118.175458"
^XMB(3.9,299,1,2,0)="63"
^XMB(3.9,299,1,3,0)="68"
^XMB(3.9,299,1,"C",1,1)=""
^XMB(3.9,299,1,"C",63,2)=""
^XMB(3.9,299,1,"C",68,3)=""
^XMB(3.9,299,2,0)="^^152^152^3070118"
^XMB(3.9,299,2,1,0)=" "
^XMB(3.9,299,2,2,0)="The following active entries in your DRUG file (#50) have been"
^XMB(3.9,299,2,3,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,299,2,4,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,299,2,5,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,299,2,6,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,299,2,7,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,299,2,8,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,299,2,9,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,299,2,10,0)="products immediately.  You may also need to match a new"
^XMB(3.9,299,2,11,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,299,2,12,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,299,2,13,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,299,2,14,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,299,2,15,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,299,2,16,0)="matching process."
^XMB(3.9,299,2,17,0)=" "
^XMB(3.9,299,2,18,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,299,2,19,0)="                                                                    DATE"
^XMB(3.9,299,2,20,0)=" "
^XMB(3.9,299,2,21,0)="ADALAT *CC* 30MG U/D                                  6394"
^XMB(3.9,299,2,22,0)="    (CMOP N0142)             NIFEDIPINE (ADALAT CC) 30MG SA TAB 11/14/2006"
^XMB(3.9,299,2,23,0)="    STRENGTH: 30UNITS: MG"
^XMB(3.9,299,2,24,0)="    POSSIBLE DOSES"
^XMB(3.9,299,2,25,0)="    DISP UNITS/DOSE     DOSE    PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,299,2,26,0)="       1                  30      IO      "
^XMB(3.9,299,2,27,0)="       2                  60      IO      "
^XMB(3.9,299,2,28,0)="ADALAT *CC* 30MG                                      6391"
^XMB(3.9,299,2,29,0)="    (CMOP N0142)             NIFEDIPINE (ADALAT CC) 30MG SA TAB 11/14/2006"
^XMB(3.9,299,2,30,0)="    STRENGTH: 30UNITS: MG"
^XMB(3.9,299,2,31,0)="    POSSIBLE DOSES"
^XMB(3.9,299,2,32,0)="    DISP UNITS/DOSE     DOSE    PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,299,2,33,0)="       1                  30      IO      "
^XMB(3.9,299,2,34,0)="       2                  60      IO      "
^XMB(3.9,299,2,35,0)="ADALAT *CC* 60MG U/D                                  6395"
^XMB(3.9,299,2,36,0)="    (CMOP N0143)             NIFEDIPINE (ADALAT CC) 60MG SA TAB 11/14/2006"
^XMB(3.9,299,2,37,0)="    STRENGTH: 60UNITS: MG"
^XMB(3.9,299,2,38,0)="    POSSIBLE DOSES"
^XMB(3.9,299,2,39,0)="    DISP UNITS/DOSE     DOSE    PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,299,2,40,0)="       1                  60      IO      "
^XMB(3.9,299,2,41,0)="       2                 120      IO      "
^XMB(3.9,299,2,42,0)="ADALAT *CC* 60MG                                      6392"
^XMB(3.9,299,2,43,0)="    (CMOP N0143)             NIFEDIPINE (ADALAT CC) 60MG SA TAB 11/14/2006"
^XMB(3.9,299,2,44,0)="    STRENGTH: 60UNITS: MG"
^XMB(3.9,299,2,45,0)="    POSSIBLE DOSES"
^XMB(3.9,299,2,46,0)="    DISP UNITS/DOSE     DOSE    PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,299,2,47,0)="       1                  60      IO      "
^XMB(3.9,299,2,48,0)="       2                 120      IO      "
^XMB(3.9,299,2,49,0)="ADALAT *CC* 90MG U/D                                  6396"
^XMB(3.9,299,2,50,0)="    (CMOP N0144)             NIFEDIPINE (ADALAT CC) 90MG SA TAB 11/14/2006"
^XMB(3.9,299,2,51,0)="    STRENGTH: 90UNITS: MG"
^XMB(3.9,299,2,52,0)="    POSSIBLE DOSES"
^XMB(3.9,299,2,53,0)="    DISP UNITS/DOSE     DOSE    PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,299,2,54,0)="       1                  90      IO      "
^XMB(3.9,299,2,55,0)="       2                 180      IO      "
^XMB(3.9,299,2,56,0)="ADALAT *CC* 90MG                                      6393"
^XMB(3.9,299,2,57,0)="    (CMOP N0144)             NIFEDIPINE (ADALAT CC) 90MG SA TAB 11/14/2006"
^XMB(3.9,299,2,58,0)="    STRENGTH: 90UNITS: MG"
^XMB(3.9,299,2,59,0)="    POSSIBLE DOSES"
^XMB(3.9,299,2,60,0)="    DISP UNITS/DOSE     DOSE    PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,299,2,61,0)="       1                  90      IO      "
^XMB(3.9,299,2,62,0)="       2                 180      IO      "
^XMB(3.9,299,2,63,0)="DEFEROXAMINE 500MG INJ                                890"
^XMB(3.9,299,2,64,0)="                             DEFEROXAMINE MESYLATE 100MG/ML INJ 10/30/2006"
^XMB(3.9,299,2,65,0)="    STRENGTH: 100UNITS: MG/ML"
^XMB(3.9,299,2,66,0)="    POSSIBLE DOSES"
^XMB(3.9,299,2,67,0)="    DISP UNITS/DOSE     DOSE    PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,299,2,68,0)="       1                 100      I       "
^XMB(3.9,299,2,69,0)="       2                 200      I       "
^XMB(3.9,299,2,70,0)="DESFERAL 500MG VIAL INJ                               3520"
^XMB(3.9,299,2,71,0)="                             DEFEROXAMINE MESYLATE 100MG/ML INJ 10/30/2006"
^XMB(3.9,299,2,72,0)="    STRENGTH: 100UNITS: MG/ML"
^XMB(3.9,299,2,73,0)="    POSSIBLE DOSES"
^XMB(3.9,299,2,74,0)="    DISP UNITS/DOSE     DOSE    PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,299,2,75,0)="       1                 100      I       "
^XMB(3.9,299,2,76,0)="NIFEDIPINE XL 30MG U/D                                5440"
^XMB(3.9,299,2,77,0)="    (CMOP N0043)             NIFEDIPINE (PROCARDIA XL) 30MG SA T11/14/2006B"
^XMB(3.9,299,2,78,0)="    STRENGTH: 30UNITS: MG"
^XMB(3.9,299,2,79,0)="    POSSIBLE DOSES"
^XMB(3.9,299,2,80,0)="    DISP UNITS/DOSE     DOSE    PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,299,2,81,0)="       1                  30      IO      "
^XMB(3.9,299,2,82,0)="       2                  60      IO      "
^XMB(3.9,299,2,83,0)="NIFEDIPINE XL 60MG U/D                                6037"
^XMB(3.9,299,2,84,0)="    (CMOP N0044)             NIFEDIPINE (PROCARDIA XL) 60MG SA T11/14/2006B"
^XMB(3.9,299,2,85,0)="    STRENGTH: 60UNITS: MG"
^XMB(3.9,299,2,86,0)="    POSSIBLE DOSES"
^XMB(3.9,299,2,87,0)="    DISP UNITS/DOSE     DOSE    PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,299,2,88,0)="       1                  60      IO      "
^XMB(3.9,299,2,89,0)="       2                 120      IO      "
^XMB(3.9,299,2,90,0)="PROCARDIA *XL* 30MG                                   5252"
^XMB(3.9,299,2,91,0)="    (CMOP N0043)             NIFEDIPINE (PROCARDIA XL) 30MG SA T11/14/2006B"
^XMB(3.9,299,2,92,0)="    STRENGTH: 30UNITS: MG"
^XMB(3.9,299,2,93,0)="    POSSIBLE DOSES"
^XMB(3.9,299,2,94,0)="    DISP UNITS/DOSE     DOSE    PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,299,2,95,0)="       1                  30      IO      "
^XMB(3.9,299,2,96,0)="       2                  60      IO      "
^XMB(3.9,299,2,97,0)="PROCARDIA *XL* 60MG                                   5455"
^XMB(3.9,299,2,98,0)="    (CMOP N0044)             NIFEDIPINE (PROCARDIA XL) 60MG SA T11/14/2006B"
^XMB(3.9,299,2,99,0)="    STRENGTH: 60UNITS: MG"
^XMB(3.9,299,2,100,0)="    POSSIBLE DOSES"
^XMB(3.9,299,2,101,0)="    DISP UNITS/DOSE     DOSE    PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,299,2,102,0)="       1                  60      IO      "
^XMB(3.9,299,2,103,0)="       2                 120      IO      "
^XMB(3.9,299,2,104,0)="PROCARDIA *XL* 90MG                                   6194"
^XMB(3.9,299,2,105,0)="    (CMOP N0045)             NIFEDIPINE (PROCARDIA XL) 90MG SA T11/14/2006B"
^XMB(3.9,299,2,106,0)="    STRENGTH: 90UNITS: MG"
^XMB(3.9,299,2,107,0)="    POSSIBLE DOSES"
^XMB(3.9,299,2,108,0)="    DISP UNITS/DOSE     DOSE    PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,299,2,109,0)="       1                  90      IO      "
^XMB(3.9,299,2,110,0)="       2                 180      IO      "
^XMB(3.9,299,2,111,0)=" "
^XMB(3.9,299,2,112,0)="The following investigational entries in your DRUG file (#50) have been"
^XMB(3.9,299,2,113,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,299,2,114,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,299,2,115,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,299,2,116,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,299,2,117,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,299,2,118,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,299,2,119,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,299,2,120,0)="products immediately.  You may also need to match a new"
^XMB(3.9,299,2,121,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,299,2,122,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,299,2,123,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,299,2,124,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,299,2,125,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,299,2,126,0)="matching process."
^XMB(3.9,299,2,127,0)=" "
^XMB(3.9,299,2,128,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,299,2,129,0)="                                                                    DATE"
^XMB(3.9,299,2,130,0)=" "
^XMB(3.9,299,2,131,0)="  NONE"
^XMB(3.9,299,2,132,0)=" "
^XMB(3.9,299,2,133,0)="The following inactive entries in your DRUG file (#50) have been"
^XMB(3.9,299,2,134,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,299,2,135,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,299,2,136,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,299,2,137,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,299,2,138,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,299,2,139,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,299,2,140,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,299,2,141,0)="products immediately.  You may also need to match a new"
^XMB(3.9,299,2,142,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,299,2,143,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,299,2,144,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,299,2,145,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,299,2,146,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,299,2,147,0)="matching process."
^XMB(3.9,299,2,148,0)=" "
^XMB(3.9,299,2,149,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,299,2,150,0)="                                                                    DATE"
^XMB(3.9,299,2,151,0)=" "
^XMB(3.9,299,2,152,0)="  NONE"
^XMB(3.9,299,6,0)="^3.911A^3^3"
^XMB(3.9,299,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,299,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,299,6,3,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,299,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,299,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,299,6,"B","SCHLEHUBER,CAMERON",3)=""
^XMB(3.9,300,0)="INTERACTIONS and ALLERGIES UPDATED^NDF MANAGER^3070118.174627"
^XMB(3.9,300,.6)="3070118"
^XMB(3.9,300,1,0)="^3.91A^3^3"
^XMB(3.9,300,1,1,0)="1^0^3070118.175501^^^^^^^3070118.175501"
^XMB(3.9,300,1,2,0)="63"
^XMB(3.9,300,1,3,0)="68"
^XMB(3.9,300,1,"C",1,1)=""
^XMB(3.9,300,1,"C",63,2)=""
^XMB(3.9,300,1,"C",68,3)=""
^XMB(3.9,300,2,0)="^^8^8^3070118"
^XMB(3.9,300,2,1,0)=" "
^XMB(3.9,300,2,2,0)="No DRUG INTERACTIONS were updated due to Primary Ingredients being"
^XMB(3.9,300,2,3,0)="changed to Non-Primary ingredients in the Data Update."
^XMB(3.9,300,2,4,0)=" "
^XMB(3.9,300,2,5,0)=" "
^XMB(3.9,300,2,6,0)="No PATIENT ALLERGIES were updated due to Primary Ingredients being"
^XMB(3.9,300,2,7,0)="changed to Non-Primary ingredients during the Data Update."
^XMB(3.9,300,2,8,0)=" "
^XMB(3.9,300,6,0)="^3.911A^3^3"
^XMB(3.9,300,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,300,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,300,6,3,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,300,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,300,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,300,6,"B","SCHLEHUBER,CAMERON",3)=""
^XMB(3.9,301,0)="DG*5.3*733 COMBAT INDICATED ON 1010EZ cleanup^DG*5.3*733 INSTALL CLEANUP^3070118.174631"
^XMB(3.9,301,.6)="3070118"
^XMB(3.9,301,1,0)="^3.91A^2^2"
^XMB(3.9,301,1,1,0)=".5"
^XMB(3.9,301,1,2,0)="1^0^3070118.175503^^^^^^^3070118.175503"
^XMB(3.9,301,1,"C",.5,1)=""
^XMB(3.9,301,1,"C",1,2)=""
^XMB(3.9,301,2,0)="^^9^9^3070118"
^XMB(3.9,301,2,1,0)="This message indicates the patients in the PATIENT file (2)"
^XMB(3.9,301,2,2,0)="that have had the COMBAT INDICATED ON 1010EZ field (1010.157)"
^XMB(3.9,301,2,3,0)="populated to the correct YES, NO or NULL value."
^XMB(3.9,301,2,4,0)=" "
^XMB(3.9,301,2,5,0)="Checking COMBAT INDICATED ON 1010EZ field (1010.157) in PATIENT file (2)..."
^XMB(3.9,301,2,6,0)=" "
^XMB(3.9,301,2,7,0)=" "
^XMB(3.9,301,2,8,0)="There were 0 records corrected."
^XMB(3.9,301,2,9,0)=" "
^XMB(3.9,301,6,0)="^3.911A^2^2"
^XMB(3.9,301,6,1,0)="POSTMASTER"
^XMB(3.9,301,6,2,0)="SCHLEHUBER,CAMERON"
^XMB(3.9,301,6,"B","POSTMASTER",1)=""
^XMB(3.9,301,6,"B","SCHLEHUBER,CAMERON",2)=""
^XMB(3.9,302,0)="Version 26.69 Installed^CPRS PACKAGE^3071227.054156"
^XMB(3.9,302,.6)="3071227"
^XMB(3.9,302,1,0)="^3.91A^2^2"
^XMB(3.9,302,1,1,0)="1^0^3080131.135328^^^^^^^3071227.151932"
^XMB(3.9,302,1,2,0)="G.CPRS GUI INSTALL@ISC-SLC.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,302,1,"AQUEUE",18,2)=""
^XMB(3.9,302,1,"C",1,1)=""
^XMB(3.9,302,1,"C","G.CPRS GUI INSTALL@ISC-SLC.VA.",2)=""
^XMB(3.9,302,2,0)="^^3^3^3071227"
^XMB(3.9,302,2,1,0)="Version 26.69 has been installed."
^XMB(3.9,302,2,2,0)=" "
^XMB(3.9,302,2,3,0)="Install complete:  Dec 27, 2007@05:41:56"
^XMB(3.9,302,6,0)="^3.911A^2^2"
^XMB(3.9,302,6,1,0)="G.CPRS GUI INSTALL@ISC-SLC.VA.GOV"
^XMB(3.9,302,6,2,0)="ORMSBY,SKIP"
^XMB(3.9,302,6,"B","G.CPRS GUI INSTALL@ISC-SLC.VA.",1)=""
^XMB(3.9,302,6,"B","ORMSBY,SKIP",2)=""
^XMB(3.9,303,0)="Event Code Screens to Review^.5^3071227.054158"
^XMB(3.9,303,.6)="3071227"
^XMB(3.9,303,1,0)="^3.91A^1^1"
^XMB(3.9,303,1,1,0)="1"
^XMB(3.9,303,1,"C",1,1)=""
^XMB(3.9,303,2,0)="^^21^21^3071227"
^XMB(3.9,303,2,1,0)=" Please forward this message to your local DSS Site Manager or"
^XMB(3.9,303,2,2,0)=" Event Capture ADPAC."
^XMB(3.9,303,2,3,0)=""
^XMB(3.9,303,2,4,0)=" A review of the EC EVENT CODE SCREENS file (#720.3) was done"
^XMB(3.9,303,2,5,0)=" after installation of patch EC*2*89 which updated the EC NATIONAL"
^XMB(3.9,303,2,6,0)=" PROCEDURE file (#725).  This message provides the results of that"
^XMB(3.9,303,2,7,0)=" review."
^XMB(3.9,303,2,8,0)=""
^XMB(3.9,303,2,9,0)=" The EC EVENT CODE SCREENS file (#720.3) records indicated below"
^XMB(3.9,303,2,10,0)=" point to an inactive record in the EC NATIONAL PROCEDURE file"
^XMB(3.9,303,2,11,0)=" (#725) or to an inactive record in the CPT file (#81)."
^XMB(3.9,303,2,12,0)=""
^XMB(3.9,303,2,13,0)=" The user should use the Inactivate Event Code Screens [ECNACT]"
^XMB(3.9,303,2,14,0)=" option to inactivate the Event Code Screen.  If necessary, a new"
^XMB(3.9,303,2,15,0)=" Event Code Screen can be created using a currently active CPT code"
^XMB(3.9,303,2,16,0)=" or National Procedure."
^XMB(3.9,303,2,17,0)=""
^XMB(3.9,303,2,18,0)=" "
^XMB(3.9,303,2,19,0)=" 0 Event Code Screens were found to be pointing to aninactive"
^XMB(3.9,303,2,20,0)=" or soon to be inactive procedure in file #725 or file #81."
^XMB(3.9,303,2,21,0)=" "
^XMB(3.9,303,6,0)="^3.911A^1^1"
^XMB(3.9,303,6,1,0)="ORMSBY,SKIP"
^XMB(3.9,303,6,"B","ORMSBY,SKIP",1)=""
^XMB(3.9,304,0)="QAC*2*20 POST INSTALL RESULTS^.5^3071227.054159"
^XMB(3.9,304,.6)="3071227"
^XMB(3.9,304,1,0)="^3.91A^1^1"
^XMB(3.9,304,1,1,0)="1"
^XMB(3.9,304,1,"C",1,1)=""
^XMB(3.9,304,2,0)="^^2^2^3071227"
^XMB(3.9,304,2,1,0)=""
^XMB(3.9,304,2,2,0)="No invalid ROC numbers were found."
^XMB(3.9,304,6,0)="^3.911A^1^1"
^XMB(3.9,304,6,1,0)="ORMSBY,SKIP"
^XMB(3.9,304,6,"B","ORMSBY,SKIP",1)=""
^XMB(3.9,305,0)="XUMF NPI ERROR/WARNING/INFO"
^XMB(3.9,305,.6)="3071227"
^XMB(3.9,305,2,0)="^^16^16^3071227"
^XMB(3.9,305,2,1,0)="The post install of patch XU*8*416 has completed but the NPI values"
^XMB(3.9,305,2,2,0)="did not get updated in your INSTITUTION (#4) file.  Check your HL LOGICAL"
^XMB(3.9,305,2,3,0)="LINK (#870) 'XUMF FORUM.' You should be able to PING the link -- stop/start"
^XMB(3.9,305,2,4,0)="the link if necessary."
^XMB(3.9,305,2,5,0)=""
^XMB(3.9,305,2,6,0)="After you have verified your XUMF FORUM link use the 'Load Institution"
^XMB(3.9,305,2,7,0)="NPI values' [XUMF LOAD NPI] in the [XUKERNEL] menu to load the NPI values."
^XMB(3.9,305,2,8,0)=""
^XMB(3.9,305,2,9,0)="NOTE: If you are installing in a TEST ACCOUNT then you may disregard this"
^XMB(3.9,305,2,10,0)="message.  If you do need to install the NPI values in a test/development"
^XMB(3.9,305,2,11,0)="environment then you must set up the 'XUMF TEST' logical link to connect"
^XMB(3.9,305,2,12,0)="to a test server environment.  Hospitals will most likely not wish to update"
^XMB(3.9,305,2,13,0)="the Institution file using HL7 messaging but rather wait until the mirror"
^XMB(3.9,305,2,14,0)="image overwrites the file normally.  If you do need to update the test or"
^XMB(3.9,305,2,15,0)="development account and you don't have a test server available then you'll"
^XMB(3.9,305,2,16,0)="need to contact the Institution file developer."
^XMB(3.9,306,0)="NPI INSTITUTION POPULATION^PATCH PSO*7*254^3071227.054434"
^XMB(3.9,306,.6)="3071227"
^XMB(3.9,306,1,0)="^3.91A^1^1"
^XMB(3.9,306,1,1,0)="1"
^XMB(3.9,306,1,"C",1,1)=""
^XMB(3.9,306,2,0)="^^13^13^3071227"
^XMB(3.9,306,2,1,0)="PSO*7*254 POST-INSTALL - POPULATES NPI INSTITUTION FIELD (#101)"
^XMB(3.9,306,2,2,0)="                         IN THE OUTPATIENT SITE FILE (#59)"
^XMB(3.9,306,2,3,0)=" "
^XMB(3.9,306,2,4,0)="Please, validate that the NPI INSTITUTION assignment below is correct for "
^XMB(3.9,306,2,5,0)="each active DIVISION. If not, please use the Site Parameter Enter/Edit [PSO"
^XMB(3.9,306,2,6,0)="SITE PARAMETERS] option and assign the correct NPI INSTITUTION."
^XMB(3.9,306,2,7,0)=" "
^XMB(3.9,306,2,8,0)="-------------------------------------------------------------------------------"
^XMB(3.9,306,2,9,0)="DIVISION(SITE#)            NPI#        NPI INSTITUTION"
^XMB(3.9,306,2,10,0)="-------------------------------------------------------------------------------"
^XMB(3.9,306,2,11,0)="DR OFFICE(001)                         NO NPI# FOUND FOR THIS DIVISION"
^XMB(3.9,306,2,12,0)=" "
^XMB(3.9,306,2,13,0)="TOTAL: 1 Division(s)."
^XMB(3.9,306,6,0)="^3.911A^1^1"
^XMB(3.9,306,6,1,0)="ORMSBY,SKIP"
^XMB(3.9,306,6,"B","ORMSBY,SKIP",1)=""
^XMB(3.9,307,0)="DATA UPDATE FOR NDF^NDF MANAGER^3071227.055054"
^XMB(3.9,307,.6)="3071227"
^XMB(3.9,307,1,0)="^3.91A^3^3"
^XMB(3.9,307,1,1,0)="1^0^3080131.131645^^^^^^^3080131.131645"
^XMB(3.9,307,1,2,0)="63"
^XMB(3.9,307,1,3,0)="68"
^XMB(3.9,307,1,"C",1,1)=""
^XMB(3.9,307,1,"C",63,2)=""
^XMB(3.9,307,1,"C",68,3)=""
^XMB(3.9,307,2,0)="^^321^321^3071227"
^XMB(3.9,307,2,1,0)=" "
^XMB(3.9,307,2,2,0)="The following VA Products have been added to the National"
^XMB(3.9,307,2,3,0)="Drug File.  You may wish to review, then match or unmatch"
^XMB(3.9,307,2,4,0)="local drug file entries based on this updated information."
^XMB(3.9,307,2,5,0)=" "
^XMB(3.9,307,2,6,0)="   AMLODIPINE BESYLATE 2.5MG/ATORVASTATIN CA 10MG TAB"
^XMB(3.9,307,2,7,0)="    (CMOP - A1334)           (DISPENSE UNIT - TAB)"
^XMB(3.9,307,2,8,0)="     000069-2960-30   "
^XMB(3.9,307,2,9,0)="   AMLODIPINE BESYLATE 2.5MG/ATORVASTATIN CA 20MG TAB"
^XMB(3.9,307,2,10,0)="    (CMOP - A1333)           (DISPENSE UNIT - TAB)"
^XMB(3.9,307,2,11,0)="     000069-2970-30   "
^XMB(3.9,307,2,12,0)="   AMLODIPINE BESYLATE 2.5MG/ATORVASTATIN CA 40MG TAB"
^XMB(3.9,307,2,13,0)="    (CMOP - A1332)           (DISPENSE UNIT - TAB)"
^XMB(3.9,307,2,14,0)="     000069-2980-30   "
^XMB(3.9,307,2,15,0)="   BARRIER,OSTOMY,NEW IMAGE H#14204"
^XMB(3.9,307,2,16,0)="    (CMOP - XV208)           (DISPENSE UNIT - EA)"
^XMB(3.9,307,2,17,0)="     008380-0142-04   "
^XMB(3.9,307,2,18,0)="   BARRIER,OSTOMY,NEW IMAGE H#14503"
^XMB(3.9,307,2,19,0)="    (CMOP - XV207)           (DISPENSE UNIT - EA)"
^XMB(3.9,307,2,20,0)="     008380-0145-03   "
^XMB(3.9,307,2,21,0)="   BARRIER,OSTOMY,NEW IMAGE H#16108"
^XMB(3.9,307,2,22,0)="    (CMOP - XV206)           (DISPENSE UNIT - EA)"
^XMB(3.9,307,2,23,0)="     008380-0161-08   "
^XMB(3.9,307,2,24,0)="   CATHERIZATION SET,FOLEY W/O CATH BARD #782100"
^XMB(3.9,307,2,25,0)="    (CMOP - XV215)           (DISPENSE UNIT - EA)"
^XMB(3.9,307,2,26,0)="     008011-7821-00   "
^XMB(3.9,307,2,27,0)="   CATHETER,EXTERNAL INVIEW LG H#97536"
^XMB(3.9,307,2,28,0)="    (CMOP - XV209)           (DISPENSE UNIT - EA)"
^XMB(3.9,307,2,29,0)="     008380-0975-36   "
^XMB(3.9,307,2,30,0)="   CHLOROPHYLL 0.5%/PAPAIN/UREA 10% EMULSION SPRAY,TOP"
^XMB(3.9,307,2,31,0)="    (CMOP - C1262)           (DISPENSE UNIT - ML)"
^XMB(3.9,307,2,32,0)="     000064-3510-34   "
^XMB(3.9,307,2,33,0)="   CHLORPHENIRAMINE 8MG/METHSCOPOLAMINE 2.5MG TAB,SA"
^XMB(3.9,307,2,34,0)="    (CMOP - C1264)           (DISPENSE UNIT - TAB)"
^XMB(3.9,307,2,35,0)="     045985-0659-01   "
^XMB(3.9,307,2,36,0)="   CLOTRIMAZOLE 2% CREAM,VAG"
^XMB(3.9,307,2,37,0)="    (CMOP - C1265)           (DISPENSE UNIT - GM)"
^XMB(3.9,307,2,38,0)="     024385-0110-09   "
^XMB(3.9,307,2,39,0)="   DAUNORUBICIN HCL 5MG/ML INJ"
^XMB(3.9,307,2,40,0)="    (CMOP - D0735)           (DISPENSE UNIT - ML)"
^XMB(3.9,307,2,41,0)="     055390-0108-01   "
^XMB(3.9,307,2,42,0)="   DIMETHICONE 5% CREAM,TOP"
^XMB(3.9,307,2,43,0)="    (CMOP - D0736)           (DISPENSE UNIT - GM)"
^XMB(3.9,307,2,44,0)="     053303-0025-30   053303-0025-00   "
^XMB(3.9,307,2,45,0)="   DM 60MG/GG 1200MG/PSEUDOEPHEDRINE 60MG TAB,SA"
^XMB(3.9,307,2,46,0)="    (CMOP - D0738)           (DISPENSE UNIT - TAB)"
^XMB(3.9,307,2,47,0)="     054868-5083-00   "
^XMB(3.9,307,2,48,0)="   DRESSING,AQUACEL AG 4IN X 4.7IN C#403765"
^XMB(3.9,307,2,49,0)="    (CMOP - XV205)           (DISPENSE UNIT - EA)"
^XMB(3.9,307,2,50,0)="     000034-0376-53   "
^XMB(3.9,307,2,51,0)="   DRESSING,COPA 2IN X 2IN KEN#55522"
^XMB(3.9,307,2,52,0)="    (CMOP - XV197)           (DISPENSE UNIT - EA)"
^XMB(3.9,307,2,53,0)="     908884-0555-22   "
^XMB(3.9,307,2,54,0)="   DRESSING,COPA 3.5IN X 3IN FENESTRATED KEN#55535"
^XMB(3.9,307,2,55,0)="    (CMOP - XV199)           (DISPENSE UNIT - EA)"
^XMB(3.9,307,2,56,0)="     908884-0555-35   "
^XMB(3.9,307,2,57,0)="   DRESSING,COPA 3IN X 3IN KEN#55533"
^XMB(3.9,307,2,58,0)="    (CMOP - XV198)           (DISPENSE UNIT - EA)"
^XMB(3.9,307,2,59,0)="     908884-0555-33   "
^XMB(3.9,307,2,60,0)="   DRESSING,COPA 4IN X 4IN KEN#55544"
^XMB(3.9,307,2,61,0)="    (CMOP - XV200)           (DISPENSE UNIT - EA)"
^XMB(3.9,307,2,62,0)="     908884-0555-44   "
^XMB(3.9,307,2,63,0)="   DRESSING,COPA 4IN X 8IN KEN#55548"
^XMB(3.9,307,2,64,0)="    (CMOP - XV203)           (DISPENSE UNIT - EA)"
^XMB(3.9,307,2,65,0)="     908884-0555-48   "
^XMB(3.9,307,2,66,0)="   DRESSING,COPA 5IN X 5IN KEN#55555"
^XMB(3.9,307,2,67,0)="    (CMOP - XV201)           (DISPENSE UNIT - EA)"
^XMB(3.9,307,2,68,0)="     908884-0555-55   "
^XMB(3.9,307,2,69,0)="   DRESSING,COPA 6IN X 6IN KEN#55566"
^XMB(3.9,307,2,70,0)="    (CMOP - XV202)           (DISPENSE UNIT - EA)"
^XMB(3.9,307,2,71,0)="     908884-0555-66   "
^XMB(3.9,307,2,72,0)="   DRESSING,COPA 8IN X 8IN KEN#55588"
^XMB(3.9,307,2,73,0)="    (CMOP - XV204)           (DISPENSE UNIT - EA)"
^XMB(3.9,307,2,74,0)="     908884-0555-88   "
^XMB(3.9,307,2,75,0)="   DRESSING,OPSITE 5 1/2IN X 4IN SN#4963"
^XMB(3.9,307,2,76,0)="    (CMOP - XV196)           (DISPENSE UNIT - EA)"
^XMB(3.9,307,2,77,0)="     000223-0049-63   "
^XMB(3.9,307,2,78,0)="   FREE AMINO ACID DIET (F.A.A.) 1000ML"
^XMB(3.9,307,2,79,0)="    (CMOP - F0389)           (DISPENSE UNIT - BTL)"
^XMB(3.9,307,2,80,0)="     000065-9070-95   "
^XMB(3.9,307,2,81,0)="   FREE AMINO ACID DIET (F.A.A.) LIQUID"
^XMB(3.9,307,2,82,0)="    (CMOP - F0390)           (DISPENSE UNIT - 250ML CAN)"
^XMB(3.9,307,2,83,0)="     000065-9092-70   "
^XMB(3.9,307,2,84,0)="   GLIMEPIRIDE 2MG/PIOGLITAZONE HCL 30MG TAB"
^XMB(3.9,307,2,85,0)="    (CMOP - G0277)           (DISPENSE UNIT - TAB)"
^XMB(3.9,307,2,86,0)="     064764-0302-30   064764-0302-90   "
^XMB(3.9,307,2,87,0)="   GLIMEPIRIDE 4MG/PIOGLITAZONE HCL 30MG TAB"
^XMB(3.9,307,2,88,0)="    (CMOP - G0278)           (DISPENSE UNIT - TAB)"
^XMB(3.9,307,2,89,0)="     064764-0304-30   064764-0304-90   "
^XMB(3.9,307,2,90,0)="   GLUTAMINE CAP/TAB"
^XMB(3.9,307,2,91,0)="    (CMOP - G0279)           (DISPENSE UNIT - CAP/TAB)"
^XMB(3.9,307,2,92,0)="     053191-0236-01   "
^XMB(3.9,307,2,93,0)="   HERBAL BREAST ENHANCEMENT CAP/TAB"
^XMB(3.9,307,2,94,0)="    (CMOP - H0510)           (DISPENSE UNIT - CAP/TAB)"
^XMB(3.9,307,2,95,0)="     996750-2335-01   "
^XMB(3.9,307,2,96,0)="   HYDROCHLOROTHIAZIDE 12.5MG/VALSARTAN 320MG TAB"
^XMB(3.9,307,2,97,0)="    (CMOP - H0508)           (DISPENSE UNIT - TAB)"
^XMB(3.9,307,2,98,0)="     000078-0471-34   "
^XMB(3.9,307,2,99,0)="   HYDROMORPHONE HCL 250MG/VIL INJ"
^XMB(3.9,307,2,100,0)="    (CMOP - H0509)           (DISPENSE UNIT - VI)"
^XMB(3.9,307,2,101,0)="     000074-2455-31   "
^XMB(3.9,307,2,102,0)="   IRON (POLY/COMPLEX) 150MG/FA 1MG/B12 25MCG/VIT C 60MG CAP"
^XMB(3.9,307,2,103,0)="    (CMOP - I0447)           (DISPENSE UNIT - CAP)"
^XMB(3.9,307,2,104,0)="     010609-1559-00   "
^XMB(3.9,307,2,105,0)="   JEVITY 1 CAL LIQUID 1000ML"
^XMB(3.9,307,2,106,0)="    (CMOP - J0020)           (DISPENSE UNIT - BTL)"
^XMB(3.9,307,2,107,0)="     070074-0006-82   "
^XMB(3.9,307,2,108,0)="   JEVITY 1 CAL LIQUID 1500ML"
^XMB(3.9,307,2,109,0)="    (CMOP - J0021)           (DISPENSE UNIT - BTL)"
^XMB(3.9,307,2,110,0)="     070074-0526-04   "
^XMB(3.9,307,2,111,0)="   JEVITY 1 CAL LIQUID"
^XMB(3.9,307,2,112,0)="    (CMOP - J0019)           (DISPENSE UNIT - 240ML CAN)"
^XMB(3.9,307,2,113,0)="     070074-0401-43   "
^XMB(3.9,307,2,114,0)="   MACUVITE TAB"
^XMB(3.9,307,2,115,0)="    (CMOP - M0702)           (DISPENSE UNIT - TAB)"
^XMB(3.9,307,2,116,0)="     054629-0755-06   "
^XMB(3.9,307,2,117,0)="   METHYLPHENIDATE HCL (METADATE CD) 30MG CAP,SA"
^XMB(3.9,307,2,118,0)="    (CMOP - M0701)           (DISPENSE UNIT - CAP)"
^XMB(3.9,307,2,119,0)="     054868-0668-00   "
^XMB(3.9,307,2,120,0)="   METHYLPHENIDATE HCL (METADATE CD) 60MG CAP,SA"
^XMB(3.9,307,2,121,0)="    (CMOP - M0705)           (DISPENSE UNIT - CAP)"
^XMB(3.9,307,2,122,0)="     053014-0584-07   "
^XMB(3.9,307,2,123,0)="   METOPROLOL TARTRATE 25MG TAB,UD"
^XMB(3.9,307,2,124,0)="    (CMOP - M0700)           (DISPENSE UNIT - TAB)"
^XMB(3.9,307,2,125,0)="     051079-0255-20   "
^XMB(3.9,307,2,126,0)="   MULTIVITAMIN/OPHTH ANTIOXIDANT/LUTEIN CAP/TAB"
^XMB(3.9,307,2,127,0)="    (CMOP - M0706)           (DISPENSE UNIT - CAP/TAB)"
^XMB(3.9,307,2,128,0)="     024208-0403-19   "
^XMB(3.9,307,2,129,0)="   NEPRO CARB STEADY LIQUID 1000ML"
^XMB(3.9,307,2,130,0)="    (CMOP - N0530)           (DISPENSE UNIT - BTL)"
^XMB(3.9,307,2,131,0)="     070074-0596-78   "
^XMB(3.9,307,2,132,0)="   NEPRO CARB STEADY LIQUID BUTTER PECAN"
^XMB(3.9,307,2,133,0)="    (CMOP - N0531)           (DISPENSE UNIT - 240ML CAN)"
^XMB(3.9,307,2,134,0)="     070074-0596-61   "
^XMB(3.9,307,2,135,0)="   NEPRO CARB STEADY LIQUID MIXED BERRY"
^XMB(3.9,307,2,136,0)="    (CMOP - N0532)           (DISPENSE UNIT - 240ML CAN)"
^XMB(3.9,307,2,137,0)="     070074-0596-63   "
^XMB(3.9,307,2,138,0)="   NEPRO CARB STEADY LIQUID VANILLA"
^XMB(3.9,307,2,139,0)="    (CMOP - N0533)           (DISPENSE UNIT - 240ML CAN)"
^XMB(3.9,307,2,140,0)="     070074-0596-67   "
^XMB(3.9,307,2,141,0)="   NUTREN 1.0 LIQUID 1000ML"
^XMB(3.9,307,2,142,0)="    (CMOP - N0538)           (DISPENSE UNIT - BTL)"
^XMB(3.9,307,2,143,0)="     000065-9150-72   "
^XMB(3.9,307,2,144,0)="   NUTREN 1.0 LIQUID 1500ML"
^XMB(3.9,307,2,145,0)="    (CMOP - N0536)           (DISPENSE UNIT - BTL)"
^XMB(3.9,307,2,146,0)="     000065-9150-73   "
^XMB(3.9,307,2,147,0)="   NUTREN 1.0 LIQUID VANILLA"
^XMB(3.9,307,2,148,0)="    (CMOP - N0537)           (DISPENSE UNIT - 250ML CAN)"
^XMB(3.9,307,2,149,0)="     000065-9024-70   "
^XMB(3.9,307,2,150,0)="   NUTREN 1.0 LIQUID"
^XMB(3.9,307,2,151,0)="    (CMOP - N0534)           (DISPENSE UNIT - 250ML CAN)"
^XMB(3.9,307,2,152,0)="     000065-9030-70   "
^XMB(3.9,307,2,153,0)="   NUTREN 1.5 LIQUID 1000ML"
^XMB(3.9,307,2,154,0)="    (CMOP - N0540)           (DISPENSE UNIT - BTL)"
^XMB(3.9,307,2,155,0)="     000065-9154-72   "
^XMB(3.9,307,2,156,0)="   NUTREN 1.5 LIQUID 1500ML"
^XMB(3.9,307,2,157,0)="    (CMOP - N0541)           (DISPENSE UNIT - BTL)"
^XMB(3.9,307,2,158,0)="     000065-9154-73   "
^XMB(3.9,307,2,159,0)="   NUTREN 1.5 LIQUID VANILLA"
^XMB(3.9,307,2,160,0)="    (CMOP - N0542)           (DISPENSE UNIT - 250ML CAN)"
^XMB(3.9,307,2,161,0)="     000065-9032-70   "
^XMB(3.9,307,2,162,0)="   NUTREN 1.5 LIQUID"
^XMB(3.9,307,2,163,0)="    (CMOP - N0539)           (DISPENSE UNIT - 250ML CAN)"
^XMB(3.9,307,2,164,0)="     000065-9038-70   "
^XMB(3.9,307,2,165,0)="   NUTREN REPLETE FIBER LIQUID 1000ML"
^XMB(3.9,307,2,166,0)="    (CMOP - N0544)           (DISPENSE UNIT - BTL)"
^XMB(3.9,307,2,167,0)="     000065-9158-72   "
^XMB(3.9,307,2,168,0)="   NUTREN REPLETE FIBER LIQUID 1500ML"
^XMB(3.9,307,2,169,0)="    (CMOP - N0545)           (DISPENSE UNIT - BTL)"
^XMB(3.9,307,2,170,0)="     000065-9158-73   "
^XMB(3.9,307,2,171,0)="   NUTREN REPLETE FIBER LIQUID VANILLA"
^XMB(3.9,307,2,172,0)="    (CMOP - N0546)           (DISPENSE UNIT - 250ML CAN)"
^XMB(3.9,307,2,173,0)="     000065-9023-70   "
^XMB(3.9,307,2,174,0)="   OPTIHALER"
^XMB(3.9,307,2,175,0)="    (CMOP - XV210)           (DISPENSE UNIT - EA)"
^XMB(3.9,307,2,176,0)="     999990-7650-10   999990-7650-50   "
^XMB(3.9,307,2,177,0)="   OPTIMENTAL LIQUID VANILLA"
^XMB(3.9,307,2,178,0)="    (CMOP - O0233)           (DISPENSE UNIT - 240ML CAN)"
^XMB(3.9,307,2,179,0)="     070074-0546-39   "
^XMB(3.9,307,2,180,0)="   OSMOLITE 1.2 CAL LIQUID 1000ML"
^XMB(3.9,307,2,181,0)="    (CMOP - O0235)           (DISPENSE UNIT - BTL)"
^XMB(3.9,307,2,182,0)="     070074-0531-23   070074-0531-25   "
^XMB(3.9,307,2,183,0)="   OSMOLITE 1.2 CAL LIQUID 1500ML"
^XMB(3.9,307,2,184,0)="    (CMOP - O0236)           (DISPENSE UNIT - BTL)"
^XMB(3.9,307,2,185,0)="     070074-0531-17   "
^XMB(3.9,307,2,186,0)="   OSMOLITE 1.2 CAL LIQUID"
^XMB(3.9,307,2,187,0)="    (CMOP - O0234)           (DISPENSE UNIT - 240ML CAN)"
^XMB(3.9,307,2,188,0)="     070074-0531-21   "
^XMB(3.9,307,2,189,0)="   PALIPERIDONE 3MG TAB,SA,UD"
^XMB(3.9,307,2,190,0)="    (CMOP - P0775)           (DISPENSE UNIT - TAB)"
^XMB(3.9,307,2,191,0)="     050458-0550-10   "
^XMB(3.9,307,2,192,0)="   PALIPERIDONE 3MG TAB,SA"
^XMB(3.9,307,2,193,0)="    (CMOP - P0774)           (DISPENSE UNIT - TAB)"
^XMB(3.9,307,2,194,0)="     050458-0550-01   "
^XMB(3.9,307,2,195,0)="   PALIPERIDONE 6MG TAB,SA,UD"
^XMB(3.9,307,2,196,0)="    (CMOP - P0777)           (DISPENSE UNIT - TAB)"
^XMB(3.9,307,2,197,0)="     050458-0551-02   "
^XMB(3.9,307,2,198,0)="   PALIPERIDONE 6MG TAB,SA"
^XMB(3.9,307,2,199,0)="    (CMOP - P0776)           (DISPENSE UNIT - TAB)"
^XMB(3.9,307,2,200,0)="     050458-0551-01   "
^XMB(3.9,307,2,201,0)="   PALIPERIDONE 9MG TAB,SA,UD"
^XMB(3.9,307,2,202,0)="    (CMOP - P0779)           (DISPENSE UNIT - TAB)"
^XMB(3.9,307,2,203,0)="     050458-0552-10   "
^XMB(3.9,307,2,204,0)="   PALIPERIDONE 9MG TAB,SA"
^XMB(3.9,307,2,205,0)="    (CMOP - P0778)           (DISPENSE UNIT - TAB)"
^XMB(3.9,307,2,206,0)="     050458-0552-01   "
^XMB(3.9,307,2,207,0)="   PAPAIN 650000 UNIT/UREA 10% EMULSION SPRAY,TOP"
^XMB(3.9,307,2,208,0)="    (CMOP - P0783)           (DISPENSE UNIT - ML)"
^XMB(3.9,307,2,209,0)="     000064-1001-34   "
^XMB(3.9,307,2,210,0)="   PEG-3350/ELECTROLYTES (MOVIPREP) PWDR"
^XMB(3.9,307,2,211,0)="    (CMOP - P0773)           (DISPENSE UNIT - EA)"
^XMB(3.9,307,2,212,0)="     065649-0201-75   "
^XMB(3.9,307,2,213,0)="   POUCH,CLOSED POUCHKINS H#3778"
^XMB(3.9,307,2,214,0)="    (CMOP - XV214)           (DISPENSE UNIT - EA)"
^XMB(3.9,307,2,215,0)="     008380-0037-78   "
^XMB(3.9,307,2,216,0)="   POUCH,DRAINABLE,NEW IMAGE H#18182"
^XMB(3.9,307,2,217,0)="    (CMOP - XV211)           (DISPENSE UNIT - EA)"
^XMB(3.9,307,2,218,0)="     008380-1818-82   "
^XMB(3.9,307,2,219,0)="   POUCH,DRAINABLE,NEW IMAGE H#18183"
^XMB(3.9,307,2,220,0)="    (CMOP - XV212)           (DISPENSE UNIT - EA)"
^XMB(3.9,307,2,221,0)="     008380-1818-83   "
^XMB(3.9,307,2,222,0)="   POUCH,DRAINABLE,NEW IMAGE H#18184"
^XMB(3.9,307,2,223,0)="    (CMOP - XV213)           (DISPENSE UNIT - EA)"
^XMB(3.9,307,2,224,0)="     008380-1818-84   "
^XMB(3.9,307,2,225,0)="   PRECISION XTRA (GLUCOSE) METER"
^XMB(3.9,307,2,226,0)="    (CMOP - XV195)           (DISPENSE UNIT - EA)"
^XMB(3.9,307,2,227,0)="     057599-8814-01   "
^XMB(3.9,307,2,228,0)="   REGENECARE WOUND GEL,TOP"
^XMB(3.9,307,2,229,0)="    (CMOP - R0203)           (DISPENSE UNIT - GM)"
^XMB(3.9,307,2,230,0)="     066977-0100-03   "
^XMB(3.9,307,2,231,0)="   RESOURCE BENECALORIE PKT,45ML"
^XMB(3.9,307,2,232,0)="    (CMOP - R0204)           (DISPENSE UNIT - PKT)"
^XMB(3.9,307,2,233,0)="     000212-2825-80   "
^XMB(3.9,307,2,234,0)="   SIMPLYTHICK LIQUID,ORAL HONEY"
^XMB(3.9,307,2,235,0)="    (CMOP - S0485)           (DISPENSE UNIT - ML)"
^XMB(3.9,307,2,236,0)="     820513-0200-49   "
^XMB(3.9,307,2,237,0)="   SIMPLYTHICK LIQUID,ORAL NECTAR"
^XMB(3.9,307,2,238,0)="    (CMOP - S0484)           (DISPENSE UNIT - ML)"
^XMB(3.9,307,2,239,0)="     820513-0100-40   "
^XMB(3.9,307,2,240,0)="   SIMPLYTHICK LIQUID,ORAL"
^XMB(3.9,307,2,241,0)="    (CMOP - S0483)           (DISPENSE UNIT - ML)"
^XMB(3.9,307,2,242,0)="     820513-0500-08   "
^XMB(3.9,307,2,243,0)="   TRAVOPROST Z 0.004% SOLN,OPH"
^XMB(3.9,307,2,244,0)="    (CMOP - T0627)           (DISPENSE UNIT - ML)"
^XMB(3.9,307,2,245,0)="     000065-0260-25   000065-0260-05   "
^XMB(3.9,307,2,246,0)="   TUBE FEEDING SET FLEXIFLO QUANTUM K#50600"
^XMB(3.9,307,2,247,0)="    (CMOP - XV217)           (DISPENSE UNIT - EA)"
^XMB(3.9,307,2,248,0)="     070074-0506-01   "
^XMB(3.9,307,2,249,0)="   TUBE FEEDING SET FLEXIFLO QUANTUM K#50604"
^XMB(3.9,307,2,250,0)="    (CMOP - XV218)           (DISPENSE UNIT - EA)"
^XMB(3.9,307,2,251,0)="     070074-0520-51   "
^XMB(3.9,307,2,252,0)="   TUBE FEEDING SET PATROL K#52040"
^XMB(3.9,307,2,253,0)="    (CMOP - XV216)           (DISPENSE UNIT - EA)"
^XMB(3.9,307,2,254,0)="     070074-0520-41   "
^XMB(3.9,307,2,255,0)="   ZOVIA 1/35E TAB,28"
^XMB(3.9,307,2,256,0)="    (CMOP - Z0073)           (DISPENSE UNIT - CYCLE)"
^XMB(3.9,307,2,257,0)="     054569-4817-00   "
^XMB(3.9,307,2,258,0)=" "
^XMB(3.9,307,2,259,0)="The National Formulary Indicator has changed for the following"
^XMB(3.9,307,2,260,0)="VA Products.  The National Formulary Indicator will automatically"
^XMB(3.9,307,2,261,0)="be changed in your local DRUG file (#50).  Please review the"
^XMB(3.9,307,2,262,0)="VISN and Local Formulary designations of these products and"
^XMB(3.9,307,2,263,0)="make appropriate changes."
^XMB(3.9,307,2,264,0)=" "
^XMB(3.9,307,2,265,0)="FORMULARY ITEMS"
^XMB(3.9,307,2,266,0)="   ADENOSINE 3MG/ML INJ,VIL,30ML"
^XMB(3.9,307,2,267,0)="   ALTEPLASE,RECOMBINANT 50MG/VIL INJ"
^XMB(3.9,307,2,268,0)="   AMIODARONE HCL 50MG/ML INJ,9ML"
^XMB(3.9,307,2,269,0)="   AMIODARONE HCL 50MG/ML INJ,AMP,18ML"
^XMB(3.9,307,2,270,0)="   BUPROPION HCL 100MG 12HR TAB,SA"
^XMB(3.9,307,2,271,0)="   ENTECAVIR 0.25MG/5ML SOLN,ORAL"
^XMB(3.9,307,2,272,0)="   ENTECAVIR 0.5MG TAB"
^XMB(3.9,307,2,273,0)="   ENTECAVIR 1MG TAB"
^XMB(3.9,307,2,274,0)="   ESTROGENS,CONJUGATED 0.45MG TAB"
^XMB(3.9,307,2,275,0)="   FERRIC NA GLUCONATE COMPLEX 12.5MG/ML INJ"
^XMB(3.9,307,2,276,0)="   HYALURONATE NA 23MG/ML INJ,OPH,SYRINGE,0.6ML"
^XMB(3.9,307,2,277,0)="   PEG-3350/ELECTROLYTES (MOVIPREP) PWDR"
^XMB(3.9,307,2,278,0)="   RANIBIZUMAB 0.5MG/0.05ML INJ,OPH"
^XMB(3.9,307,2,279,0)="   TIOTROPIUM 18MCG CAP,INHL,30"
^XMB(3.9,307,2,280,0)="   TIOTROPIUM 18MCG CAP,INHL,6"
^XMB(3.9,307,2,281,0)=" "
^XMB(3.9,307,2,282,0)="NON-FORMULARY ITEMS"
^XMB(3.9,307,2,283,0)="   CARBAMAZEPINE 100MG TAB,SA (TEGRETOL-XR)"
^XMB(3.9,307,2,284,0)="   CARBAMAZEPINE 200MG CAP,SA (CARBATROL)"
^XMB(3.9,307,2,285,0)="   CARBAMAZEPINE 200MG TAB,SA (TEGRETOL-XR)"
^XMB(3.9,307,2,286,0)="   CARBAMAZEPINE 300MG CAP,SA (CARBATROL)"
^XMB(3.9,307,2,287,0)="   CARBAMAZEPINE 400MG TAB,SA (TEGRETOL-XR)"
^XMB(3.9,307,2,288,0)="   ERGOCALCIFEROL 500000UNT/ML INJ"
^XMB(3.9,307,2,289,0)="   LO/OVRAL TAB,21"
^XMB(3.9,307,2,290,0)="   LO/OVRAL TAB,28"
^XMB(3.9,307,2,291,0)="   NILUTAMIDE 150MG TAB"
^XMB(3.9,307,2,292,0)="   SALICYLIC ACID 6% GEL,TOP"
^XMB(3.9,307,2,293,0)="   TICARCILLIN DISODIUM 1GM/VIL INJ"
^XMB(3.9,307,2,294,0)="   TICARCILLIN DISODIUM 20GM/VIL INJ"
^XMB(3.9,307,2,295,0)="   TICARCILLIN DISODIUM 30GM/VIL INJ"
^XMB(3.9,307,2,296,0)="   TICARCILLIN DISODIUM 3GM/VIL INJ"
^XMB(3.9,307,2,297,0)="   TICARCILLIN DISODIUM 6GM/VIL INJ"
^XMB(3.9,307,2,298,0)="   TRIETHANOLAMINE POLYPEPTIDE OLEATE CONDENSATE 10% LIQUID,OTIC"
^XMB(3.9,307,2,299,0)=" "
^XMB(3.9,307,2,300,0)="The following active VA Products are no longer marked for CMOP."
^XMB(3.9,307,2,301,0)="All local drug file entries matched to these VA Products will"
^XMB(3.9,307,2,302,0)="be UNMARKED for CMOP.  In order to have these entries dispensed"
^XMB(3.9,307,2,303,0)="by CMOP any local DRUG file (#50) entries matched to these"
^XMB(3.9,307,2,304,0)="products must be re-matched to another VA product that is actively"
^XMB(3.9,307,2,305,0)="marked for CMOP dispensing."
^XMB(3.9,307,2,306,0)=" "
^XMB(3.9,307,2,307,0)="   ILOPROST 10MCG/ML INHL,ORAL,2ML    I0383"
^XMB(3.9,307,2,308,0)=" "
^XMB(3.9,307,2,309,0)="The National Formulary Restriction has changed for the following VA Products."
^XMB(3.9,307,2,310,0)="   ENTECAVIR 0.25MG/5ML SOLN,ORAL"
^XMB(3.9,307,2,311,0)="        Restricted to GI and ID"
^XMB(3.9,307,2,312,0)="   ENTECAVIR 0.5MG TAB"
^XMB(3.9,307,2,313,0)="        Restricted to GI and ID"
^XMB(3.9,307,2,314,0)="   ENTECAVIR 1MG TAB"
^XMB(3.9,307,2,315,0)="        Restricted to GI and ID"
^XMB(3.9,307,2,316,0)="   NICOTINE POLACRILEX 2MG TAB,CHEWG GUM"
^XMB(3.9,307,2,317,0)="        Restriction deleted"
^XMB(3.9,307,2,318,0)="   NICOTINE POLACRILEX 4MG TAB,CHEWG GUM"
^XMB(3.9,307,2,319,0)="        Restriction deleted"
^XMB(3.9,307,2,320,0)="   RANIBIZUMAB 0.5MG/0.05ML INJ,OPH"
^XMB(3.9,307,2,321,0)="        Restricted to wet AMD, ophthalmology/retinal specialists"
^XMB(3.9,307,6,0)="^3.911A^3^3"
^XMB(3.9,307,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,307,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,307,6,3,0)="ORMSBY,SKIP"
^XMB(3.9,307,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,307,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,307,6,"B","ORMSBY,SKIP",3)=""
^XMB(3.9,308,0)="UPDATED INTERACTIONS^NDF MANAGER^3071227.055054"
^XMB(3.9,308,.6)="3071227"
^XMB(3.9,308,1,0)="^3.91A^3^3"
^XMB(3.9,308,1,1,0)="1^0^3080131.131645^^^^^^^3080131.131645"
^XMB(3.9,308,1,2,0)="63"
^XMB(3.9,308,1,3,0)="68"
^XMB(3.9,308,1,"C",1,1)=""
^XMB(3.9,308,1,"C",63,2)=""
^XMB(3.9,308,1,"C",68,3)=""
^XMB(3.9,308,2,0)="^^126^126^3071227"
^XMB(3.9,308,2,1,0)="The following interactions in National Drug File (NDF) have been added,"
^XMB(3.9,308,2,2,0)="edited or inactivated.  These changes are the result of review and"
^XMB(3.9,308,2,3,0)="recommendations from the NDF support group."
^XMB(3.9,308,2,4,0)=" "
^XMB(3.9,308,2,5,0)="ADDED INTERACTIONS"
^XMB(3.9,308,2,6,0)=" "
^XMB(3.9,308,2,7,0)="   AMILORIDE/CANDESARTAN                              Significant"
^XMB(3.9,308,2,8,0)="   AMILORIDE/EPROSARTAN                               Significant"
^XMB(3.9,308,2,9,0)="   AMILORIDE/IRBESARTAN                               Significant"
^XMB(3.9,308,2,10,0)="   AMILORIDE/LOSARTAN                                 Significant"
^XMB(3.9,308,2,11,0)="   AMILORIDE/OLMESARTAN                               Significant"
^XMB(3.9,308,2,12,0)="   AMILORIDE/PERINDOPRIL                              Significant"
^XMB(3.9,308,2,13,0)="   AMILORIDE/TELMISARTAN                              Significant"
^XMB(3.9,308,2,14,0)="   AMILORIDE/VALSARTAN                                Significant"
^XMB(3.9,308,2,15,0)="   ASPIRIN/CELECOXIB                                  Significant"
^XMB(3.9,308,2,16,0)="   ASPIRIN/ROFECOXIB                                  Significant"
^XMB(3.9,308,2,17,0)="   ASPIRIN/VALDECOXIB                                 Significant"
^XMB(3.9,308,2,18,0)="   ASTEMIZOLE/DARUNAVIR                               Critical"
^XMB(3.9,308,2,19,0)="   BENAZEPRIL/POTASSIUM                               Significant"
^XMB(3.9,308,2,20,0)="   CANDESARTAN/POTASSIUM                              Significant"
^XMB(3.9,308,2,21,0)="   CANDESARTAN/SPIRONOLACTONE                         Significant"
^XMB(3.9,308,2,22,0)="   CANDESARTAN/TRIAMTERENE                            Significant"
^XMB(3.9,308,2,23,0)="   CAPTOPRIL/POTASSIUM                                Significant"
^XMB(3.9,308,2,24,0)="   CARBAMAZEPINE/DARUNAVIR                            Significant"
^XMB(3.9,308,2,25,0)="   CELECOXIB/ETODOLAC                                 Significant"
^XMB(3.9,308,2,26,0)="   CISAPRIDE/DARUNAVIR                                Critical"
^XMB(3.9,308,2,27,0)="   CISPLATIN/DARUNAVIR                                Critical"
^XMB(3.9,308,2,28,0)="   CYCLOSPORINE/DARUNAVIR                             Significant"
^XMB(3.9,308,2,29,0)="   DARUNAVIR/ERGOT                                    Critical"
^XMB(3.9,308,2,30,0)="   DARUNAVIR/HYPERICUM PERFORATUM (ST. JOHN'S WORT)   Significant"
^XMB(3.9,308,2,31,0)="   DARUNAVIR/ITRACONAZOLE                             Critical"
^XMB(3.9,308,2,32,0)="   DARUNAVIR/KETOCONAZOLE                             Critical"
^XMB(3.9,308,2,33,0)="   DARUNAVIR/LOVASTATIN                               Critical"
^XMB(3.9,308,2,34,0)="   DARUNAVIR/METHYLERGONOVINE                         Critical"
^XMB(3.9,308,2,35,0)="   DARUNAVIR/MIDAZOLAM                                Critical"
^XMB(3.9,308,2,36,0)="   DARUNAVIR/PHENOBARBITAL                            Significant"
^XMB(3.9,308,2,37,0)="   DARUNAVIR/PHENYTOIN                                Significant"
^XMB(3.9,308,2,38,0)="   DARUNAVIR/PIMOZIDE                                 Critical"
^XMB(3.9,308,2,39,0)="   DARUNAVIR/RIFABUTIN                                Critical"
^XMB(3.9,308,2,40,0)="   DARUNAVIR/RIFAMPIN                                 Critical"
^XMB(3.9,308,2,41,0)="   DARUNAVIR/SILDENAFIL CITRATE                       Significant"
^XMB(3.9,308,2,42,0)="   DARUNAVIR/SIMVASTATIN                              Critical"
^XMB(3.9,308,2,43,0)="   DARUNAVIR/SIROLIMUS                                Significant"
^XMB(3.9,308,2,44,0)="   DARUNAVIR/TACROLIMUS                               Significant"
^XMB(3.9,308,2,45,0)="   DARUNAVIR/TADALAFIL                                Significant"
^XMB(3.9,308,2,46,0)="   DARUNAVIR/TERFENADINE                              Critical"
^XMB(3.9,308,2,47,0)="   DARUNAVIR/TRIAZOLAM                                Critical"
^XMB(3.9,308,2,48,0)="   DARUNAVIR/VARDENAFIL                               Significant"
^XMB(3.9,308,2,49,0)="   DARUNAVIR/WARFARIN                                 Significant"
^XMB(3.9,308,2,50,0)="   ENALAPRIL/POTASSIUM                                Significant"
^XMB(3.9,308,2,51,0)="   EPROSARTAN/POTASSIUM                               Significant"
^XMB(3.9,308,2,52,0)="   EPROSARTAN/SPIRONOLACTONE                          Significant"
^XMB(3.9,308,2,53,0)="   EPROSARTAN/TRIAMTERENE                             Significant"
^XMB(3.9,308,2,54,0)="   ETODOLAC/ROFECOXIB                                 Significant"
^XMB(3.9,308,2,55,0)="   FOSINOPRIL/POTASSIUM                               Significant"
^XMB(3.9,308,2,56,0)="   IMATINIB/PHENYTOIN                                 Significant"
^XMB(3.9,308,2,57,0)="   IRBESARTAN/POTASSIUM                               Significant"
^XMB(3.9,308,2,58,0)="   IRBESARTAN/SPIRONOLACTONE                          Significant"
^XMB(3.9,308,2,59,0)="   IRBESARTAN/TRIAMTERENE                             Significant"
^XMB(3.9,308,2,60,0)="   ITRACONAZOLE/RISPERIDONE                           Significant"
^XMB(3.9,308,2,61,0)="   LISINOPRIL/POTASSIUM                               Significant"
^XMB(3.9,308,2,62,0)="   LOSARTAN/POTASSIUM                                 Significant"
^XMB(3.9,308,2,63,0)="   LOSARTAN/TRIAMTERENE                               Significant"
^XMB(3.9,308,2,64,0)="   NEFAZODONE/ZOLMITRIPTAN                            Significant"
^XMB(3.9,308,2,65,0)="   OLMESARTAN/POTASSIUM                               Significant"
^XMB(3.9,308,2,66,0)="   OLMESARTAN/SPIRONOLACTONE                          Significant"
^XMB(3.9,308,2,67,0)="   OLMESARTAN/TRIAMTERENE                             Significant"
^XMB(3.9,308,2,68,0)="   PERINDOPRIL/POTASSIUM                              Significant"
^XMB(3.9,308,2,69,0)="   PERINDOPRIL/SPIRONOLACTONE                         Significant"
^XMB(3.9,308,2,70,0)="   PERINDOPRIL/TRIAMTERENE                            Significant"
^XMB(3.9,308,2,71,0)="   POTASSIUM/QUINAPRIL                                Significant"
^XMB(3.9,308,2,72,0)="   POTASSIUM/RAMIPRIL                                 Significant"
^XMB(3.9,308,2,73,0)="   POTASSIUM/TELMISARTAN                              Significant"
^XMB(3.9,308,2,74,0)="   POTASSIUM/TRANDOLAPRIL                             Significant"
^XMB(3.9,308,2,75,0)="   POTASSIUM/VALSARTAN                                Significant"
^XMB(3.9,308,2,76,0)="   SERTRALINE/VENLAFAXINE HYDROCHLORIDE               Significant"
^XMB(3.9,308,2,77,0)="   SPIRONOLACTONE/TELMISARTAN                         Significant"
^XMB(3.9,308,2,78,0)="   SPIRONOLACTONE/VALSARTAN                           Significant"
^XMB(3.9,308,2,79,0)="   SULFASALAZINE/VALDECOXIB                           Significant"
^XMB(3.9,308,2,80,0)="   TELMISARTAN/TRIAMTERENE                            Significant"
^XMB(3.9,308,2,81,0)="   TRIAMTERENE/VALSARTAN                              Significant"
^XMB(3.9,308,2,82,0)=" "
^XMB(3.9,308,2,83,0)="EDITED INTERACTIONS"
^XMB(3.9,308,2,84,0)=" "
^XMB(3.9,308,2,85,0)="   RIZATRIPTAN/TRANYLCYPROMINE                        Critical"
^XMB(3.9,308,2,86,0)="   SUMATRIPTAN/TRANYLCYPROMINE                        Critical"
^XMB(3.9,308,2,87,0)=" "
^XMB(3.9,308,2,88,0)="INACTIVATED INTERACTIONS"
^XMB(3.9,308,2,89,0)=" "
^XMB(3.9,308,2,90,0)="   AMITRIPTYLINE/DULOXETINE                           Significant"
^XMB(3.9,308,2,91,0)="   DESIPRAMINE/DULOXETINE                             Significant"
^XMB(3.9,308,2,92,0)="   DOXEPIN/DULOXETINE                                 Significant"
^XMB(3.9,308,2,93,0)="   DOXEPIN/PAROXETINE                                 Significant"
^XMB(3.9,308,2,94,0)="   FROVATRIPTAN/PAROXETINE                            Significant"
^XMB(3.9,308,2,95,0)="   FROVATRIPTAN/SERTRALINE                            Significant"
^XMB(3.9,308,2,96,0)=" "
^XMB(3.9,308,2,97,0)="The following products have been flagged for exclusion from drug-drug"
^XMB(3.9,308,2,98,0)="interaction checks."
^XMB(3.9,308,2,99,0)=" "
^XMB(3.9,308,2,100,0)="BARRIER,OSTOMY,NEW IMAGE H#14204"
^XMB(3.9,308,2,101,0)="BARRIER,OSTOMY,NEW IMAGE H#14503"
^XMB(3.9,308,2,102,0)="BARRIER,OSTOMY,NEW IMAGE H#16108"
^XMB(3.9,308,2,103,0)="CATHERIZATION SET,FOLEY W/O CATH BARD #782100"
^XMB(3.9,308,2,104,0)="CATHETER,EXTERNAL INVIEW LG H#97536"
^XMB(3.9,308,2,105,0)="CHLOROPHYLL 0.5%/PAPAIN/UREA 10% EMULSION SPRAY,TOP"
^XMB(3.9,308,2,106,0)="DIMETHICONE 5% CREAM,TOP"
^XMB(3.9,308,2,107,0)="DRESSING,AQUACEL AG 4IN X 4.7IN C#403765"
^XMB(3.9,308,2,108,0)="DRESSING,COPA 2IN X 2IN KEN#55522"
^XMB(3.9,308,2,109,0)="DRESSING,COPA 3.5IN X 3IN FENESTRATED KEN#55535"
^XMB(3.9,308,2,110,0)="DRESSING,COPA 3IN X 3IN KEN#55533"
^XMB(3.9,308,2,111,0)="DRESSING,COPA 4IN X 4IN KEN#55544"
^XMB(3.9,308,2,112,0)="DRESSING,COPA 4IN X 8IN KEN#55548"
^XMB(3.9,308,2,113,0)="DRESSING,COPA 5IN X 5IN KEN#55555"
^XMB(3.9,308,2,114,0)="DRESSING,COPA 6IN X 6IN KEN#55566"
^XMB(3.9,308,2,115,0)="DRESSING,COPA 8IN X 8IN KEN#55588"
^XMB(3.9,308,2,116,0)="DRESSING,OPSITE 5 1/2IN X 4IN SN#4963"
^XMB(3.9,308,2,117,0)="OPTIHALER"
^XMB(3.9,308,2,118,0)="PAPAIN 650000 UNIT/UREA 10% EMULSION SPRAY,TOP"
^XMB(3.9,308,2,119,0)="POUCH,CLOSED POUCHKINS H#3778"
^XMB(3.9,308,2,120,0)="POUCH,DRAINABLE,NEW IMAGE H#18182"
^XMB(3.9,308,2,121,0)="POUCH,DRAINABLE,NEW IMAGE H#18184"
^XMB(3.9,308,2,122,0)="PRECISION XTRA (GLUCOSE) METER"
^XMB(3.9,308,2,123,0)="REGENECARE WOUND GEL,TOP"
^XMB(3.9,308,2,124,0)="TUBE FEEDING SET FLEXIFLO QUANTUM K#50600"
^XMB(3.9,308,2,125,0)="TUBE FEEDING SET FLEXIFLO QUANTUM K#50604"
^XMB(3.9,308,2,126,0)="TUBE FEEDING SET PATROL K#52040"
^XMB(3.9,308,6,0)="^3.911A^3^3"
^XMB(3.9,308,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,308,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,308,6,3,0)="ORMSBY,SKIP"
^XMB(3.9,308,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,308,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,308,6,"B","ORMSBY,SKIP",3)=""
^XMB(3.9,309,0)="DRUGS UNMATCHED FROM NATIONAL DRUG FILE^NDF MANAGER^3071227.055101^^^^P"
^XMB(3.9,309,.6)="3071227"
^XMB(3.9,309,1,0)="^3.91A^3^3"
^XMB(3.9,309,1,1,0)="1^0^3080131.131645^^^^^^1^3071227.055546"
^XMB(3.9,309,1,2,0)="63"
^XMB(3.9,309,1,3,0)="68"
^XMB(3.9,309,1,"C",1,1)=""
^XMB(3.9,309,1,"C",63,2)=""
^XMB(3.9,309,1,"C",68,3)=""
^XMB(3.9,309,2,0)="^^100^100^3071227"
^XMB(3.9,309,2,1,0)=" "
^XMB(3.9,309,2,2,0)="The following active entries in your DRUG file (#50) have been"
^XMB(3.9,309,2,3,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,309,2,4,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,309,2,5,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,309,2,6,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,309,2,7,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,309,2,8,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,309,2,9,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,309,2,10,0)="products immediately.  You may also need to match a new"
^XMB(3.9,309,2,11,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,309,2,12,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,309,2,13,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,309,2,14,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,309,2,15,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,309,2,16,0)="matching process."
^XMB(3.9,309,2,17,0)=" "
^XMB(3.9,309,2,18,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,309,2,19,0)="                                                                    DATE"
^XMB(3.9,309,2,20,0)=" "
^XMB(3.9,309,2,21,0)="CANDESARTAN-HCTZ 32MG/12.5MG                          94597"
^XMB(3.9,309,2,22,0)="    (CMOP C0990)             CANDESARTAN CELEXETIL 32MG/HYDROCHLROTHIAZIDE 12.5MG TAB"
^XMB(3.9,309,2,23,0)="    LOCAL POSSIBLE DOSES"
^XMB(3.9,309,2,24,0)="    DOSE                                            PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,309,2,25,0)="    1 TABLET                                          IO              "
^XMB(3.9,309,2,26,0)="    2 TABLETS                                         IO              "
^XMB(3.9,309,2,27,0)="CEFOTETAN INJ 2GM VIAL                                6103"
^XMB(3.9,309,2,28,0)="    (CMOP C0180)             CEFOTETAN DISODIUM 2GM/VIL INJ     1/1/2007"
^XMB(3.9,309,2,29,0)="    STRENGTH: 2UNITS: GM/VIAL"
^XMB(3.9,309,2,30,0)="    POSSIBLE DOSES"
^XMB(3.9,309,2,31,0)="    DISP UNITS/DOSE     DOSE    PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,309,2,32,0)="       1                   2      I       "
^XMB(3.9,309,2,33,0)="       2                   4      I       "
^XMB(3.9,309,2,34,0)="DIDANOSINE 100MG                                      6197"
^XMB(3.9,309,2,35,0)="    (CMOP D0068)             DIDANOSINE 100MG TAB,CHEWABLE      1/1/2007"
^XMB(3.9,309,2,36,0)="    STRENGTH: 100UNITS: MG"
^XMB(3.9,309,2,37,0)="    POSSIBLE DOSES"
^XMB(3.9,309,2,38,0)="    DISP UNITS/DOSE     DOSE    PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,309,2,39,0)="       1                 100      IO      "
^XMB(3.9,309,2,40,0)="       2                 200      IO      "
^XMB(3.9,309,2,41,0)="    LOCAL POSSIBLE DOSES"
^XMB(3.9,309,2,42,0)="    DOSE                                            PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,309,2,43,0)="    1 TABLET                                          IO              "
^XMB(3.9,309,2,44,0)="    2 TABLETS                                         IO              "
^XMB(3.9,309,2,45,0)="    1 TAB                                             IO              "
^XMB(3.9,309,2,46,0)="    2 TABS                                            IO              "
^XMB(3.9,309,2,47,0)="DIDANOSINE 25MG                                       6417"
^XMB(3.9,309,2,48,0)="    (CMOP D0211)             DIDANOSINE 25MG TAB,CHEWABLE       1/1/2007"
^XMB(3.9,309,2,49,0)="    STRENGTH: 25UNITS: MG"
^XMB(3.9,309,2,50,0)="    POSSIBLE DOSES"
^XMB(3.9,309,2,51,0)="    DISP UNITS/DOSE     DOSE    PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,309,2,52,0)="       1                  25      IO      "
^XMB(3.9,309,2,53,0)="       2                  50      IO      "
^XMB(3.9,309,2,54,0)=" "
^XMB(3.9,309,2,55,0)="The following investigational entries in your DRUG file (#50) have been"
^XMB(3.9,309,2,56,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,309,2,57,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,309,2,58,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,309,2,59,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,309,2,60,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,309,2,61,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,309,2,62,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,309,2,63,0)="products immediately.  You may also need to match a new"
^XMB(3.9,309,2,64,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,309,2,65,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,309,2,66,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,309,2,67,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,309,2,68,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,309,2,69,0)="matching process."
^XMB(3.9,309,2,70,0)=" "
^XMB(3.9,309,2,71,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,309,2,72,0)="                                                                    DATE"
^XMB(3.9,309,2,73,0)=" "
^XMB(3.9,309,2,74,0)="  NONE"
^XMB(3.9,309,2,75,0)=" "
^XMB(3.9,309,2,76,0)="The following inactive entries in your DRUG file (#50) have been"
^XMB(3.9,309,2,77,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,309,2,78,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,309,2,79,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,309,2,80,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,309,2,81,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,309,2,82,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,309,2,83,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,309,2,84,0)="products immediately.  You may also need to match a new"
^XMB(3.9,309,2,85,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,309,2,86,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,309,2,87,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,309,2,88,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,309,2,89,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,309,2,90,0)="matching process."
^XMB(3.9,309,2,91,0)=" "
^XMB(3.9,309,2,92,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,309,2,93,0)="                                                                    DATE"
^XMB(3.9,309,2,94,0)=" "
^XMB(3.9,309,2,95,0)="CANDESARTAN-HYDROCHLOROTHIAZIDE 32MG                  94226  7/24/2005"
^XMB(3.9,309,2,96,0)="    (CMOP C0990)             CANDESARTAN CELEXETIL 32MG/HYDROCHLROTHIAZIDE 12.5MG TAB"
^XMB(3.9,309,2,97,0)="    LOCAL POSSIBLE DOSES"
^XMB(3.9,309,2,98,0)="    DOSE                                            PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,309,2,99,0)="    1 TABLET                                          IO              "
^XMB(3.9,309,2,100,0)="    2 TABLETS                                         IO              "
^XMB(3.9,309,6,0)="^3.911A^3^3"
^XMB(3.9,309,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,309,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,309,6,3,0)="ORMSBY,SKIP"
^XMB(3.9,309,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,309,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,309,6,"B","ORMSBY,SKIP",3)=""
^XMB(3.9,310,0)="INTERACTIONS and ALLERGIES UPDATED^NDF MANAGER^3071227.055138"
^XMB(3.9,310,.6)="3071227"
^XMB(3.9,310,1,0)="^3.91A^3^3"
^XMB(3.9,310,1,1,0)="1^0^3080131.131645^^^^^^^3080131.131645"
^XMB(3.9,310,1,2,0)="63"
^XMB(3.9,310,1,3,0)="68"
^XMB(3.9,310,1,"C",1,1)=""
^XMB(3.9,310,1,"C",63,2)=""
^XMB(3.9,310,1,"C",68,3)=""
^XMB(3.9,310,2,0)="^^24^24^3071227"
^XMB(3.9,310,2,1,0)=" "
^XMB(3.9,310,2,2,0)="The following interactions have been edited because they"
^XMB(3.9,310,2,3,0)="involved ingredients that are not primary ingredients."
^XMB(3.9,310,2,4,0)=" "
^XMB(3.9,310,2,5,0)="CHOLESTYRAMINE/MYCOPHENOLATE MOFETIL was changed to"
^XMB(3.9,310,2,6,0)="   CHOLESTYRAMINE/MYCOPHENOLATE"
^XMB(3.9,310,2,7,0)=" "
^XMB(3.9,310,2,8,0)="FERROUS SULFATE/MYCOPHENOLATE MOFETIL was changed to"
^XMB(3.9,310,2,9,0)="   FERROUS SULFATE/MYCOPHENOLATE"
^XMB(3.9,310,2,10,0)=" "
^XMB(3.9,310,2,11,0)="IRON/MYCOPHENOLATE MOFETIL was changed to"
^XMB(3.9,310,2,12,0)="   IRON/MYCOPHENOLATE"
^XMB(3.9,310,2,13,0)=" "
^XMB(3.9,310,2,14,0)=" "
^XMB(3.9,310,2,15,0)="The following interactions have been deleted because"
^XMB(3.9,310,2,16,0)="Primary Ingredient/Other Ingredient combination already"
^XMB(3.9,310,2,17,0)="exists in the DRUG INGREDIENTS file involved ingredients"
^XMB(3.9,310,2,18,0)="that are not primary ingredients. "
^XMB(3.9,310,2,19,0)=" "
^XMB(3.9,310,2,20,0)="none found"
^XMB(3.9,310,2,21,0)=" "
^XMB(3.9,310,2,22,0)="No PATIENT ALLERGIES were updated due to Primary Ingredients being"
^XMB(3.9,310,2,23,0)="changed to Non-Primary ingredients during the Data Update."
^XMB(3.9,310,2,24,0)=" "
^XMB(3.9,310,6,0)="^3.911A^3^3"
^XMB(3.9,310,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,310,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,310,6,3,0)="ORMSBY,SKIP"
^XMB(3.9,310,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,310,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,310,6,"B","ORMSBY,SKIP",3)=""
^XMB(3.9,311,0)="IVM*2*101 - FILED BY IVM FLAG CLEANUP completed^IVM*2*101 INSTALLATION PROCESS^3071227.05515"
^XMB(3.9,311,.6)="3071227"
^XMB(3.9,311,1,0)="^3.91A^2^2"
^XMB(3.9,311,1,1,0)=".5"
^XMB(3.9,311,1,2,0)="1"
^XMB(3.9,311,1,"C",.5,1)=""
^XMB(3.9,311,1,"C",1,2)=""
^XMB(3.9,311,2,0)="^^8^8^3071227"
^XMB(3.9,311,2,1,0)="TASK: 50 FILED BY IVM FLAG CLEANUP"
^XMB(3.9,311,2,2,0)=""
^XMB(3.9,311,2,3,0)="FILED BY IVM error cleanup process has completed.  Review the"
^XMB(3.9,311,2,4,0)="following ^XTMP global for details on the Patient Relation file (408.12)"
^XMB(3.9,311,2,5,0)="records converted: ^XTMP(""IVM*2*101"","
^XMB(3.9,311,2,6,0)=""
^XMB(3.9,311,2,7,0)="This global will be deleted in no more than 120 days from the date"
^XMB(3.9,311,2,8,0)="of this message."
^XMB(3.9,311,6,0)="^3.911A^2^2"
^XMB(3.9,311,6,1,0)="ORMSBY,SKIP"
^XMB(3.9,311,6,2,0)="POSTMASTER"
^XMB(3.9,311,6,"B","ORMSBY,SKIP",1)=""
^XMB(3.9,311,6,"B","POSTMASTER",2)=""
^XMB(3.9,312,0)="XUMF NPI ERROR/WARNING/INFO"
^XMB(3.9,312,.6)="3071227"
^XMB(3.9,312,2,0)="^^16^16^3071227"
^XMB(3.9,312,2,1,0)="The post install of patch XU*8*416 has completed but the NPI values"
^XMB(3.9,312,2,2,0)="did not get updated in your INSTITUTION (#4) file.  Check your HL LOGICAL"
^XMB(3.9,312,2,3,0)="LINK (#870) 'XUMF FORUM.' You should be able to PING the link -- stop/start"
^XMB(3.9,312,2,4,0)="the link if necessary."
^XMB(3.9,312,2,5,0)=""
^XMB(3.9,312,2,6,0)="After you have verified your XUMF FORUM link use the 'Load Institution"
^XMB(3.9,312,2,7,0)="NPI values' [XUMF LOAD NPI] in the [XUKERNEL] menu to load the NPI values."
^XMB(3.9,312,2,8,0)=""
^XMB(3.9,312,2,9,0)="NOTE: If you are installing in a TEST ACCOUNT then you may disregard this"
^XMB(3.9,312,2,10,0)="message.  If you do need to install the NPI values in a test/development"
^XMB(3.9,312,2,11,0)="environment then you must set up the 'XUMF TEST' logical link to connect"
^XMB(3.9,312,2,12,0)="to a test server environment.  Hospitals will most likely not wish to update"
^XMB(3.9,312,2,13,0)="the Institution file using HL7 messaging but rather wait until the mirror"
^XMB(3.9,312,2,14,0)="image overwrites the file normally.  If you do need to update the test or"
^XMB(3.9,312,2,15,0)="development account and you don't have a test server available then you'll"
^XMB(3.9,312,2,16,0)="need to contact the Institution file developer."
^XMB(3.9,313,0)="MAG*3.0*84 INSTALLATION^1^3071227.055835"
^XMB(3.9,313,.6)="3071227"
^XMB(3.9,313,1,0)="^3.91A^3^3"
^XMB(3.9,313,1,1,0)="1^0^3071227.055835^^^^^^^3071227.055835"
^XMB(3.9,313,1,2,0)="65"
^XMB(3.9,313,1,3,0)="G.IMAGING DEVELOPMENT TEAM@FORUM.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,313,1,"AQUEUE",18,3)=""
^XMB(3.9,313,1,"C",1,1)=""
^XMB(3.9,313,1,"C",65,2)=""
^XMB(3.9,313,1,"C","G.IMAGING DEVELOPMENT TEAM@FOR",3)=""
^XMB(3.9,313,2,0)="^^13^13^3071227"
^XMB(3.9,313,2,1,0)="PACKAGE INSTALL"
^XMB(3.9,313,2,2,0)="SITE: BETA.VISTA-OFFICE.ORG"
^XMB(3.9,313,2,3,0)="PACKAGE: MAG*3.0*84"
^XMB(3.9,313,2,4,0)="Version: 3.0"
^XMB(3.9,313,2,5,0)="Start time: Dec 27, 2007@05:58:35"
^XMB(3.9,313,2,6,0)="Completion time: Dec 27, 2007@05:58:35"
^XMB(3.9,313,2,7,0)="Run time: "
^XMB(3.9,313,2,8,0)="Environment: EHR^EHR^skip-PC^EHR:CACHEWEB"
^XMB(3.9,313,2,9,0)="FILE COMMENT: BUILD 2007 4  ;Created on May 25, 2007@09:58:09"
^XMB(3.9,313,2,10,0)="DATE: 3071227.055835"
^XMB(3.9,313,2,11,0)="Installed by: ORMSBY,SKIP"
^XMB(3.9,313,2,12,0)="Install Name: MAG*3.0*84"
^XMB(3.9,313,2,13,0)="Distribution Date: Oct 26, 2006"
^XMB(3.9,313,6,0)="^3.911A^2^2"
^XMB(3.9,313,6,1,0)="G.MAG SERVER"
^XMB(3.9,313,6,2,0)="ORMSBY,SKIP"
^XMB(3.9,313,6,"B","G.MAG SERVER",1)=""
^XMB(3.9,313,6,"B","ORMSBY,SKIP",2)=""
^XMB(3.9,314,0)="PATCH GMRA*4*36 Post Install COMPLETED^PATCH GMRA*4*36 POST-INSTALL^3071227.055837"
^XMB(3.9,314,.6)="3071227"
^XMB(3.9,314,1,0)="^3.91A^7^7"
^XMB(3.9,314,1,1,0)=".5"
^XMB(3.9,314,1,2,0)="1"
^XMB(3.9,314,1,3,0)="CATHERINE.HOANG2@VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,314,1,4,0)="DAVID.NABER@VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,314,1,5,0)="HULET.LEE_ANN@FORUM.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,314,1,6,0)="THOMAS.CAMPBELL2@VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,314,1,7,0)="VHAOIHSITESHDRIM@MED.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,314,1,"AQUEUE",18,3)=""
^XMB(3.9,314,1,"AQUEUE",18,4)=""
^XMB(3.9,314,1,"AQUEUE",18,5)=""
^XMB(3.9,314,1,"AQUEUE",18,6)=""
^XMB(3.9,314,1,"AQUEUE",18,7)=""
^XMB(3.9,314,1,"C",.5,1)=""
^XMB(3.9,314,1,"C",1,2)=""
^XMB(3.9,314,1,"C","CATHERINE.HOANG2@VA.GOV",3)=""
^XMB(3.9,314,1,"C","DAVID.NABER@VA.GOV",4)=""
^XMB(3.9,314,1,"C","HULET.LEE_ANN@FORUM.VA.GOV",5)=""
^XMB(3.9,314,1,"C","THOMAS.CAMPBELL2@VA.GOV",6)=""
^XMB(3.9,314,1,"C","VHAOIHSITESHDRIM@MED.VA.GOV",7)=""
^XMB(3.9,314,2,0)="^^10^10^3071227"
^XMB(3.9,314,2,1,0)="The post-install routine for patch GMRA*4*36"
^XMB(3.9,314,2,2,0)="finished on Dec 27, 2007@05:58:37."
^XMB(3.9,314,2,3,0)=""
^XMB(3.9,314,2,4,0)="Number of free text entries before patch 36  : 0"
^XMB(3.9,314,2,5,0)="Allergies converted to free text by patch 36 : 0"
^XMB(3.9,314,2,6,0)="Total number of free text allergies at site  : 0"
^XMB(3.9,314,2,7,0)=""
^XMB(3.9,314,2,8,0)="Please note that patch GMRA*4*29, when installed, will automatically"
^XMB(3.9,314,2,9,0)="convert free text entries to a standardized entry."
^XMB(3.9,314,2,10,0)="As a result, you do not need to take any action at this point."
^XMB(3.9,314,6,0)="^3.911A^7^7"
^XMB(3.9,314,6,1,0)="CATHERINE.HOANG2@VA.GOV"
^XMB(3.9,314,6,2,0)="DAVID.NABER@VA.GOV"
^XMB(3.9,314,6,3,0)="HULET.LEE_ANN@FORUM.VA.GOV"
^XMB(3.9,314,6,4,0)="ORMSBY,SKIP"
^XMB(3.9,314,6,5,0)="POSTMASTER"
^XMB(3.9,314,6,6,0)="THOMAS.CAMPBELL2@VA.GOV"
^XMB(3.9,314,6,7,0)="VHAOIHSITESHDRIM@MED.VA.GOV"
^XMB(3.9,314,6,"B","CATHERINE.HOANG2@VA.GOV",1)=""
^XMB(3.9,314,6,"B","DAVID.NABER@VA.GOV",2)=""
^XMB(3.9,314,6,"B","HULET.LEE_ANN@FORUM.VA.GOV",3)=""
^XMB(3.9,314,6,"B","ORMSBY,SKIP",4)=""
^XMB(3.9,314,6,"B","POSTMASTER",5)=""
^XMB(3.9,314,6,"B","THOMAS.CAMPBELL2@VA.GOV",6)=""
^XMB(3.9,314,6,"B","VHAOIHSITESHDRIM@MED.VA.GOV",7)=""
^XMB(3.9,315,0)="DATA UPDATE FOR NDF^NDF MANAGER^3071227.055918"
^XMB(3.9,315,.6)="3071227"
^XMB(3.9,315,1,0)="^3.91A^3^3"
^XMB(3.9,315,1,1,0)="1"
^XMB(3.9,315,1,2,0)="63"
^XMB(3.9,315,1,3,0)="68"
^XMB(3.9,315,1,"C",1,1)=""
^XMB(3.9,315,1,"C",63,2)=""
^XMB(3.9,315,1,"C",68,3)=""
^XMB(3.9,315,2,0)="^^258^258^3071227"
^XMB(3.9,315,2,1,0)=" "
^XMB(3.9,315,2,2,0)="The following VA Products have been added to the National"
^XMB(3.9,315,2,3,0)="Drug File.  You may wish to review, then match or unmatch"
^XMB(3.9,315,2,4,0)="local drug file entries based on this updated information."
^XMB(3.9,315,2,5,0)=" "
^XMB(3.9,315,2,6,0)="   AMYLASE 48000UNT/LIPASE 16000UNT/PROTEASE 48000UNT  CAP,EC"
^XMB(3.9,315,2,7,0)="    (CMOP - A1340)           (DISPENSE UNIT - CAP)"
^XMB(3.9,315,2,8,0)="     058177-0028-04   "
^XMB(3.9,315,2,9,0)="   APREPITANT 40MG CAP,UD"
^XMB(3.9,315,2,10,0)="    (CMOP - A1344)           (DISPENSE UNIT - CAP)"
^XMB(3.9,315,2,11,0)="     000006-0464-05   "
^XMB(3.9,315,2,12,0)="   APREPITANT 40MG CAP"
^XMB(3.9,315,2,13,0)="    (CMOP - A1343)           (DISPENSE UNIT - CAP)"
^XMB(3.9,315,2,14,0)="     000006-0464-10   "
^XMB(3.9,315,2,15,0)="   ARIPIPRAZOLE 9.75MG/1.3ML (7.5MG/ML) INJ"
^XMB(3.9,315,2,16,0)="    (CMOP - A1342)           (DISPENSE UNIT - ML)"
^XMB(3.9,315,2,17,0)="     059148-0016-65   "
^XMB(3.9,315,2,18,0)="   ARTICAINE 4%/EPINEPHRINE 1:200,000 INJ,CARTRIDGE,1.7ML"
^XMB(3.9,315,2,19,0)="    (CMOP - A1341)           (DISPENSE UNIT - EA)"
^XMB(3.9,315,2,20,0)="     000362-9048-02   "
^XMB(3.9,315,2,21,0)="   BARRIER,ADAPT RING H#7805"
^XMB(3.9,315,2,22,0)="    (CMOP - XV226)           (DISPENSE UNIT - EA)"
^XMB(3.9,315,2,23,0)="     999010-7805-05   "
^XMB(3.9,315,2,24,0)="   BARRIER,ADAPT RING H#7806"
^XMB(3.9,315,2,25,0)="    (CMOP - XV227)           (DISPENSE UNIT - EA)"
^XMB(3.9,315,2,26,0)="     999010-7806-05   "
^XMB(3.9,315,2,27,0)="   BENZOYL PEROXIDE 3% SWAB,TOP"
^XMB(3.9,315,2,28,0)="    (CMOP - B0560)           (DISPENSE UNIT - EA)"
^XMB(3.9,315,2,29,0)="     099207-0221-30   099207-0221-60   "
^XMB(3.9,315,2,30,0)="   BENZOYL PEROXIDE 6% SWAB,TOP"
^XMB(3.9,315,2,31,0)="    (CMOP - B0561)           (DISPENSE UNIT - EA)"
^XMB(3.9,315,2,32,0)="     099207-0222-30   099207-0222-60   "
^XMB(3.9,315,2,33,0)="   BENZOYL PEROXIDE 9% SWAB,TOP"
^XMB(3.9,315,2,34,0)="    (CMOP - B0559)           (DISPENSE UNIT - EA)"
^XMB(3.9,315,2,35,0)="     099207-0223-30   099207-0223-60   "
^XMB(3.9,315,2,36,0)="   BIAFINE CREAM,TOP"
^XMB(3.9,315,2,37,0)="    (CMOP - B0563)           (DISPENSE UNIT - GM)"
^XMB(3.9,315,2,38,0)="     000062-0205-02   000062-0205-03   "
^XMB(3.9,315,2,39,0)="   CARTRIDGE,ANIMAS IR 2ML #1200"
^XMB(3.9,315,2,40,0)="    (CMOP - XV241)           (DISPENSE UNIT - EA)"
^XMB(3.9,315,2,41,0)="     999010-0124-01   "
^XMB(3.9,315,2,42,0)="   CATHERIZATION SET,ADD-A-FOLEY KENDALL #6176"
^XMB(3.9,315,2,43,0)="    (CMOP - XV244)           (DISPENSE UNIT - EA)"
^XMB(3.9,315,2,44,0)="     998887-0061-76   "
^XMB(3.9,315,2,45,0)="   CATHERIZATION SET,FOLEY 16FR BARD #899716"
^XMB(3.9,315,2,46,0)="    (CMOP - XV228)           (DISPENSE UNIT - EA)"
^XMB(3.9,315,2,47,0)="     990000-8997-16   "
^XMB(3.9,315,2,48,0)="   CATHERIZATION SET,FOLEY 16FR KENDALL #6146"
^XMB(3.9,315,2,49,0)="    (CMOP - XV245)           (DISPENSE UNIT - EA)"
^XMB(3.9,315,2,50,0)="     998887-0061-46   "
^XMB(3.9,315,2,51,0)="   CATHERIZATION SET,FOLEY 16FR KENDALL #6155"
^XMB(3.9,315,2,52,0)="    (CMOP - XV246)           (DISPENSE UNIT - EA)"
^XMB(3.9,315,2,53,0)="     998887-6155-01   "
^XMB(3.9,315,2,54,0)="   CATHERIZATION SET,FOLEY 18FR BARD #899718"
^XMB(3.9,315,2,55,0)="    (CMOP - XV229)           (DISPENSE UNIT - EA)"
^XMB(3.9,315,2,56,0)="     990000-8997-18   "
^XMB(3.9,315,2,57,0)="   CATHERIZATION SET,FOLEY 18FR KENDALL #6148"
^XMB(3.9,315,2,58,0)="    (CMOP - XV247)           (DISPENSE UNIT - EA)"
^XMB(3.9,315,2,59,0)="     998887-0061-48   "
^XMB(3.9,315,2,60,0)="   CATHERIZATION SET,INTERMITTENT 12FR C#28027S"
^XMB(3.9,315,2,61,0)="    (CMOP - XV234)           (DISPENSE UNIT - EA)"
^XMB(3.9,315,2,62,0)="     999002-8927-27   "
^XMB(3.9,315,2,63,0)="   CATHERIZATION SET,INTERMITTENT 14FR C#28028S"
^XMB(3.9,315,2,64,0)="    (CMOP - XV235)           (DISPENSE UNIT - EA)"
^XMB(3.9,315,2,65,0)="     999002-8927-28   "
^XMB(3.9,315,2,66,0)="   CATHETER COUDE 16FR BARD#010116"
^XMB(3.9,315,2,67,0)="    (CMOP - XV236)           (DISPENSE UNIT - EA)"
^XMB(3.9,315,2,68,0)="     999000-1911-06   "
^XMB(3.9,315,2,69,0)="   CELECOXIB 50MG CAP"
^XMB(3.9,315,2,70,0)="    (CMOP - C1266)           (DISPENSE UNIT - CAP)"
^XMB(3.9,315,2,71,0)="     000025-1515-01   "
^XMB(3.9,315,2,72,0)="   CLINIMIX E 5/15 INJ"
^XMB(3.9,315,2,73,0)="    (CMOP - C1268)           (DISPENSE UNIT - ML)"
^XMB(3.9,315,2,74,0)="     000338-1123-04   "
^XMB(3.9,315,2,75,0)="   CLINISOL 15% INJ"
^XMB(3.9,315,2,76,0)="    (CMOP - C1267)           (DISPENSE UNIT - ML)"
^XMB(3.9,315,2,77,0)="     000338-0502-06   000338-0502-03   "
^XMB(3.9,315,2,78,0)="   DESONIDE 0.05% FOAM,TOP"
^XMB(3.9,315,2,79,0)="    (CMOP - D0743)           (DISPENSE UNIT - GM)"
^XMB(3.9,315,2,80,0)="     063032-0111-50   063032-0111-00   "
^XMB(3.9,315,2,81,0)="   DEXTRAN 0.1%/HYPROMELLOSE 0.8% (OCUCOAT) SOLN,OPH,1ML"
^XMB(3.9,315,2,82,0)="    (CMOP - D0742)           (DISPENSE UNIT - SYR)"
^XMB(3.9,315,2,83,0)="     024208-0384-48   "
^XMB(3.9,315,2,84,0)="   DEXTRAN 0.1%/HYPROMELLOSE 0.8% (OCUCOAT) SOLN,OPH"
^XMB(3.9,315,2,85,0)="    (CMOP - D0741)           (DISPENSE UNIT - ML)"
^XMB(3.9,315,2,86,0)="     024208-0377-11   "
^XMB(3.9,315,2,87,0)="   DOXYCYCLINE HYCLATE 100MG TAB,EC"
^XMB(3.9,315,2,88,0)="    (CMOP - D0739)           (DISPENSE UNIT - TAB)"
^XMB(3.9,315,2,89,0)="     000430-0112-24   "
^XMB(3.9,315,2,90,0)="   DOXYCYCLINE HYCLATE 75MG TAB,EC"
^XMB(3.9,315,2,91,0)="    (CMOP - D0740)           (DISPENSE UNIT - TAB)"
^XMB(3.9,315,2,92,0)="     000430-0111-20   "
^XMB(3.9,315,2,93,0)="   DRESSING,PROMOGRAN PRISMA MATRIX 19.1IN X 19.1IN JJ#9191"
^XMB(3.9,315,2,94,0)="    (CMOP - XV240)           (DISPENSE UNIT - EA)"
^XMB(3.9,315,2,95,0)="     063713-0191-91   "
^XMB(3.9,315,2,96,0)="   DRESSING,PROMOGRAN PRISMA MATRIX 4.75IN X 4.75IN JJ#4434"
^XMB(3.9,315,2,97,0)="    (CMOP - XV239)           (DISPENSE UNIT - EA)"
^XMB(3.9,315,2,98,0)="     063713-0044-34   "
^XMB(3.9,315,2,99,0)="   EPINEPHRINE (TWINJECT-0.15) 0.15MG/0.15ML INJECTOR"
^XMB(3.9,315,2,100,0)="    (CMOP - E0482)           (DISPENSE UNIT - INJECTOR)"
^XMB(3.9,315,2,101,0)="     013436-0701-02   "
^XMB(3.9,315,2,102,0)="   EPINEPHRINE (TWINJECT-0.3) 0.3MG/0.3ML INJECTOR"
^XMB(3.9,315,2,103,0)="    (CMOP - E0483)           (DISPENSE UNIT - INJECTOR)"
^XMB(3.9,315,2,104,0)="     013436-0700-02   "
^XMB(3.9,315,2,105,0)="   EPINEPHRINE,RACEMIC HCL 2.25% SOLN,INHL,0.5ML"
^XMB(3.9,315,2,106,0)="    (CMOP - E0481)           (DISPENSE UNIT - EA)"
^XMB(3.9,315,2,107,0)="     000487-5901-99   "
^XMB(3.9,315,2,108,0)="   HYDROXYTRYPTOPHAN CAP/TAB"
^XMB(3.9,315,2,109,0)="    (CMOP - H0511)           (DISPENSE UNIT - CAP/TAB)"
^XMB(3.9,315,2,110,0)="     988858-4153-01   "
^XMB(3.9,315,2,111,0)="   INCONT LINER DIGNITY MINI-PADS"
^XMB(3.9,315,2,112,0)="    (CMOP - XV225)           (DISPENSE UNIT - EA)"
^XMB(3.9,315,2,113,0)="     999994-0300-00   "
^XMB(3.9,315,2,114,0)="   MORINDA (NONI) CAP/TAB"
^XMB(3.9,315,2,115,0)="    (CMOP - M0708)           (DISPENSE UNIT - CAP)"
^XMB(3.9,315,2,116,0)="     900600-4752-01   "
^XMB(3.9,315,2,117,0)="   MORPHINE SO4 20MG/ML SOLN,CONC,ORAL,0.5ML"
^XMB(3.9,315,2,118,0)="    (CMOP - M0709)           (DISPENSE UNIT - EA)"
^XMB(3.9,315,2,119,0)="     058177-0889-81   "
^XMB(3.9,315,2,120,0)="   MORPHINE SO4 20MG/ML SOLN,CONC,ORAL,1ML"
^XMB(3.9,315,2,121,0)="    (CMOP - M0710)           (DISPENSE UNIT - EA)"
^XMB(3.9,315,2,122,0)="     058177-0886-56   "
^XMB(3.9,315,2,123,0)="   MULTIVITAMIN/MINERALS MENS HERBAL CAP/TAB"
^XMB(3.9,315,2,124,0)="    (CMOP - M0707)           (DISPENSE UNIT - CAP/TAB)"
^XMB(3.9,315,2,125,0)="     053503-0082-07   "
^XMB(3.9,315,2,126,0)="   OCUVITE LUTEIN CAP"
^XMB(3.9,315,2,127,0)="    (CMOP - O0239)           (DISPENSE UNIT - CAP)"
^XMB(3.9,315,2,128,0)="     029208-0403-19   029208-0403-83   029208-0403-27   029208-0403-82   "
^XMB(3.9,315,2,129,0)="   OLOPATADINE HCL 0.2% SOLN,OPH"
^XMB(3.9,315,2,130,0)="    (CMOP - O0237)           (DISPENSE UNIT - ML)"
^XMB(3.9,315,2,131,0)="     000065-0272-25   "
^XMB(3.9,315,2,132,0)="   ORLISTAT 60MG CAP"
^XMB(3.9,315,2,133,0)="    (CMOP - O0238)           (DISPENSE UNIT - CAP)"
^XMB(3.9,315,2,134,0)="   POUCH,DRAINABLE,NEW IMAGE H#18012"
^XMB(3.9,315,2,135,0)="    (CMOP - XV221)           (DISPENSE UNIT - EA)"
^XMB(3.9,315,2,136,0)="     008380-0180-16   "
^XMB(3.9,315,2,137,0)="   POUCH,DRAINABLE,NEW IMAGE H#18013"
^XMB(3.9,315,2,138,0)="    (CMOP - XV222)           (DISPENSE UNIT - EA)"
^XMB(3.9,315,2,139,0)="     008380-0180-13   "
^XMB(3.9,315,2,140,0)="   POUCH,DRAINABLE,NEW IMAGE H#18014"
^XMB(3.9,315,2,141,0)="    (CMOP - XV223)           (DISPENSE UNIT - EA)"
^XMB(3.9,315,2,142,0)="     008380-0180-14   "
^XMB(3.9,315,2,143,0)="   POUCH,DRAINABLE,NEW IMAGE H#18016"
^XMB(3.9,315,2,144,0)="    (CMOP - XV224)           (DISPENSE UNIT - EA)"
^XMB(3.9,315,2,145,0)="     008380-0180-12   "
^XMB(3.9,315,2,146,0)="   POUCH,DRAINABLE,SUR-FIT C#4114-93"
^XMB(3.9,315,2,147,0)="    (CMOP - XV237)           (DISPENSE UNIT - EA)"
^XMB(3.9,315,2,148,0)="     000003-4114-93   "
^XMB(3.9,315,2,149,0)="   PRO-STAT 101 LIQUID,ORAL"
^XMB(3.9,315,2,150,0)="    (CMOP - P0789)           (DISPENSE UNIT - ML)"
^XMB(3.9,315,2,151,0)="     026974-0410-41   "
^XMB(3.9,315,2,152,0)="   PRO-STAT 64 LIQUID,ORAL,30ML"
^XMB(3.9,315,2,153,0)="    (CMOP - P0791)           (DISPENSE UNIT - EA)"
^XMB(3.9,315,2,154,0)="     026974-0410-42   "
^XMB(3.9,315,2,155,0)="   PRO-STAT 64 LIQUID,ORAL"
^XMB(3.9,315,2,156,0)="    (CMOP - P0790)           (DISPENSE UNIT - ML)"
^XMB(3.9,315,2,157,0)="     026974-0410-40   "
^XMB(3.9,315,2,158,0)="   PRO-STAT RC LIQUID,ORAL"
^XMB(3.9,315,2,159,0)="    (CMOP - P0788)           (DISPENSE UNIT - ML)"
^XMB(3.9,315,2,160,0)="     026974-0410-60   "
^XMB(3.9,315,2,161,0)="   RESOURCE 2.0 LIQUID (ORANGE CREME)"
^XMB(3.9,315,2,162,0)="    (CMOP - R0207)           (DISPENSE UNIT - 240ML BOX)"
^XMB(3.9,315,2,163,0)="     000212-1803-62   "
^XMB(3.9,315,2,164,0)="   RESOURCE 2.0 LIQUID (VANILLA)"
^XMB(3.9,315,2,165,0)="    (CMOP - R0206)           (DISPENSE UNIT - 240ML BOX)"
^XMB(3.9,315,2,166,0)="     000212-1801-62   "
^XMB(3.9,315,2,167,0)="   SET,INFUSION ANIMAS #181-00"
^XMB(3.9,315,2,168,0)="    (CMOP - XV242)           (DISPENSE UNIT - EA)"
^XMB(3.9,315,2,169,0)="     999010-0182-81   "
^XMB(3.9,315,2,170,0)="   SET,INFUSION ANIMAS #182-00"
^XMB(3.9,315,2,171,0)="    (CMOP - XV243)           (DISPENSE UNIT - EA)"
^XMB(3.9,315,2,172,0)="     999010-0182-00   "
^XMB(3.9,315,2,173,0)="   SET,INFUSION MINIMED #MMT-840"
^XMB(3.9,315,2,174,0)="    (CMOP - XV220)           (DISPENSE UNIT - EA)"
^XMB(3.9,315,2,175,0)="     076300-0840-10   "
^XMB(3.9,315,2,176,0)="   SIMPLYTHICK GEL,ORAL HONEY,30GM"
^XMB(3.9,315,2,177,0)="    (CMOP - S0492)           (DISPENSE UNIT - PKT)"
^XMB(3.9,315,2,178,0)="     820513-0200-18   "
^XMB(3.9,315,2,179,0)="   SIMPLYTHICK GEL,ORAL HONEY"
^XMB(3.9,315,2,180,0)="    (CMOP - S0490)           (DISPENSE UNIT - GM)"
^XMB(3.9,315,2,181,0)="     820513-0200-49   820516-0100-40   "
^XMB(3.9,315,2,182,0)="   SIMPLYTHICK GEL,ORAL NECTAR,15GM"
^XMB(3.9,315,2,183,0)="    (CMOP - S0491)           (DISPENSE UNIT - PKT)"
^XMB(3.9,315,2,184,0)="     820513-0100-40   "
^XMB(3.9,315,2,185,0)="   SIMPLYTHICK GEL,ORAL NECTAR"
^XMB(3.9,315,2,186,0)="    (CMOP - S0489)           (DISPENSE UNIT - GM)"
^XMB(3.9,315,2,187,0)="     820513-0100-49   "
^XMB(3.9,315,2,188,0)="   SIMPLYTHICK GEL,ORAL"
^XMB(3.9,315,2,189,0)="    (CMOP - S0488)           (DISPENSE UNIT - GM)"
^XMB(3.9,315,2,190,0)="     820513-0500-08   "
^XMB(3.9,315,2,191,0)="   SOUR CHERRY JUICE"
^XMB(3.9,315,2,192,0)="    (CMOP - S0487)           (DISPENSE UNIT - ML)"
^XMB(3.9,315,2,193,0)="     900600-7778-01   "
^XMB(3.9,315,2,194,0)="   SUCRALFATE 500MG/5ML SUSP,ORAL,10ML"
^XMB(3.9,315,2,195,0)="    (CMOP - S0493)           (DISPENSE UNIT - EA)"
^XMB(3.9,315,2,196,0)="     066689-0790-50   "
^XMB(3.9,315,2,197,0)="   TUBERCULIN SYRINGE 1ML SLIP TIP"
^XMB(3.9,315,2,198,0)="    (CMOP - XV219)           (DISPENSE UNIT - EA)"
^XMB(3.9,315,2,199,0)="     008290-3096-02   "
^XMB(3.9,315,2,200,0)=" "
^XMB(3.9,315,2,201,0)="The National Formulary Indicator has changed for the following"
^XMB(3.9,315,2,202,0)="VA Products.  The National Formulary Indicator will automatically"
^XMB(3.9,315,2,203,0)="be changed in your local DRUG file (#50).  Please review the"
^XMB(3.9,315,2,204,0)="VISN and Local Formulary designations of these products and"
^XMB(3.9,315,2,205,0)="make appropriate changes."
^XMB(3.9,315,2,206,0)=" "
^XMB(3.9,315,2,207,0)="FORMULARY ITEMS"
^XMB(3.9,315,2,208,0)="   ACCU-CHEK AVIVA (GLUCOSE) TEST STRIP"
^XMB(3.9,315,2,209,0)="   CETYLPYRIDINIUM CL 0.05% (AF) MOUTHWASH"
^XMB(3.9,315,2,210,0)="   DEXAMETHASONE 0.5MG/0.5ML SOLN,ORAL"
^XMB(3.9,315,2,211,0)="   DEXAMETHASONE 0.5MG/5ML ELIXIR"
^XMB(3.9,315,2,212,0)="   EPINEPHRINE (TWINJECT-0.15) 0.15MG/0.15ML INJECTOR"
^XMB(3.9,315,2,213,0)="   EPINEPHRINE (TWINJECT-0.3) 0.3MG/0.3ML INJECTOR"
^XMB(3.9,315,2,214,0)="   HEPATITIS B IMMUNE GLOBULIN (BAYHEP) INJ"
^XMB(3.9,315,2,215,0)="   HEPATITIS B IMMUNE GLOBULIN (BAYHEP) INJ,SYR,0.5ML"
^XMB(3.9,315,2,216,0)="   HEPATITIS B IMMUNE GLOBULIN (BAYHEP) INJ,SYR,1ML"
^XMB(3.9,315,2,217,0)="   HEPATITIS B IMMUNE GLOBULIN (NABI-HB) INJ,VIL,1ML"
^XMB(3.9,315,2,218,0)="   HEPATITIS B IMMUNE GLOBULIN (NABI-HB) INJ,VIL,5ML"
^XMB(3.9,315,2,219,0)="   HEPATITIS B IMMUNE GLOVULIN (BAYHEP) INJ"
^XMB(3.9,315,2,220,0)="   MORPHINE SO4 20MG/ML SOLN,CONC,ORAL,0.5ML"
^XMB(3.9,315,2,221,0)="   MORPHINE SO4 20MG/ML SOLN,CONC,ORAL,1ML"
^XMB(3.9,315,2,222,0)="   OXYCODONE HCL 15MG TAB"
^XMB(3.9,315,2,223,0)="   POTASSIUM CITRATE 1080MG TAB,SA"
^XMB(3.9,315,2,224,0)="   PYRITHIONE ZN 1% SHAMPOO"
^XMB(3.9,315,2,225,0)="   SALICYLIC ACID 2% SHAMPOO"
^XMB(3.9,315,2,226,0)="   SALICYLIC ACID 3% SHAMPOO"
^XMB(3.9,315,2,227,0)="   SALICYLIC ACID 4% SHAMPOO"
^XMB(3.9,315,2,228,0)="   SIMPLYTHICK GEL,ORAL"
^XMB(3.9,315,2,229,0)="   SIMPLYTHICK GEL,ORAL HONEY"
^XMB(3.9,315,2,230,0)="   SIMPLYTHICK GEL,ORAL HONEY,30GM"
^XMB(3.9,315,2,231,0)="   SIMPLYTHICK GEL,ORAL NECTAR"
^XMB(3.9,315,2,232,0)="   SIMPLYTHICK GEL,ORAL NECTAR,15GM"
^XMB(3.9,315,2,233,0)="   SUCRALFATE 500MG/5ML SUSP,ORAL,10ML"
^XMB(3.9,315,2,234,0)="   TRAVOPROST Z 0.004% SOLN,OPH"
^XMB(3.9,315,2,235,0)=" "
^XMB(3.9,315,2,236,0)="NON-FORMULARY ITEMS"
^XMB(3.9,315,2,237,0)="   DICHLORODIFLUOROMETHANE 15%/TRICHLOROFLOUROMETHANE 85% AEROSOL"
^XMB(3.9,315,2,238,0)="   FLUOROMETHOLONE 0.1% OINT,OPH"
^XMB(3.9,315,2,239,0)="   MESALAMINE 4GM/60ML SUSP,RTL"
^XMB(3.9,315,2,240,0)="   OXYCODONE HCL 5MG CAP"
^XMB(3.9,315,2,241,0)="   PREDNISOLONE ACETATE 0.2%/SULFACETAMIDE NA 10% SUSP,OPH"
^XMB(3.9,315,2,242,0)="   TALC,STERILE 4GM/CANISTER"
^XMB(3.9,315,2,243,0)="   THIOTHIXENE HCL 2MG/ML INJ"
^XMB(3.9,315,2,244,0)="   THIOTHIXENE HCL 5MG/ML SOLN,ORAL"
^XMB(3.9,315,2,245,0)="   TOBRAMYCIN 0.3% OINT,OPH"
^XMB(3.9,315,2,246,0)=" "
^XMB(3.9,315,2,247,0)="The following active VA Products are no longer marked for CMOP."
^XMB(3.9,315,2,248,0)="All local drug file entries matched to these VA Products will"
^XMB(3.9,315,2,249,0)="be UNMARKED for CMOP.  In order to have these entries dispensed"
^XMB(3.9,315,2,250,0)="by CMOP any local DRUG file (#50) entries matched to these"
^XMB(3.9,315,2,251,0)="products must be re-matched to another VA product that is actively"
^XMB(3.9,315,2,252,0)="marked for CMOP dispensing."
^XMB(3.9,315,2,253,0)=" "
^XMB(3.9,315,2,254,0)="   HYPROMELLOSE 2.5% SOLN,OPH    H0445"
^XMB(3.9,315,2,255,0)="   MORPHINE SO4 20MG/ML SOLN,CONC,ORAL,1ML    M0710"
^XMB(3.9,315,2,256,0)="   PEGVISOMANT PROTEIN 10MG/VIL INJ    P0663"
^XMB(3.9,315,2,257,0)="   PEGVISOMANT PROTEIN 15MG/VIL INJ    P0664"
^XMB(3.9,315,2,258,0)="   PEGVISOMANT PROTEIN 20MG/VIL INJ    P0665"
^XMB(3.9,315,6,0)="^3.911A^3^3"
^XMB(3.9,315,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,315,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,315,6,3,0)="ORMSBY,SKIP"
^XMB(3.9,315,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,315,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,315,6,"B","ORMSBY,SKIP",3)=""
^XMB(3.9,316,0)="UPDATED INTERACTIONS^NDF MANAGER^3071227.055918"
^XMB(3.9,316,.6)="3071227"
^XMB(3.9,316,1,0)="^3.91A^3^3"
^XMB(3.9,316,1,1,0)="1"
^XMB(3.9,316,1,2,0)="63"
^XMB(3.9,316,1,3,0)="68"
^XMB(3.9,316,1,"C",1,1)=""
^XMB(3.9,316,1,"C",63,2)=""
^XMB(3.9,316,1,"C",68,3)=""
^XMB(3.9,316,2,0)="^^49^49^3071227"
^XMB(3.9,316,2,1,0)="The following interactions in National Drug File (NDF) have been added,"
^XMB(3.9,316,2,2,0)="edited or inactivated.  These changes are the result of review and"
^XMB(3.9,316,2,3,0)="recommendations from the NDF support group."
^XMB(3.9,316,2,4,0)=" "
^XMB(3.9,316,2,5,0)="ADDED INTERACTIONS"
^XMB(3.9,316,2,6,0)=" "
^XMB(3.9,316,2,7,0)="   NONE"
^XMB(3.9,316,2,8,0)=" "
^XMB(3.9,316,2,9,0)="EDITED INTERACTIONS"
^XMB(3.9,316,2,10,0)=" "
^XMB(3.9,316,2,11,0)="   NONE"
^XMB(3.9,316,2,12,0)=" "
^XMB(3.9,316,2,13,0)="INACTIVATED INTERACTIONS"
^XMB(3.9,316,2,14,0)=" "
^XMB(3.9,316,2,15,0)="   NONE"
^XMB(3.9,316,2,16,0)=" "
^XMB(3.9,316,2,17,0)="The following products have been flagged for exclusion from drug-drug"
^XMB(3.9,316,2,18,0)="interaction checks."
^XMB(3.9,316,2,19,0)=" "
^XMB(3.9,316,2,20,0)="BARRIER,ADAPT RING H#7805"
^XMB(3.9,316,2,21,0)="BARRIER,ADAPT RING H#7806"
^XMB(3.9,316,2,22,0)="BENZOYL PEROXIDE 3% SWAB,TOP"
^XMB(3.9,316,2,23,0)="BENZOYL PEROXIDE 6% SWAB,TOP"
^XMB(3.9,316,2,24,0)="BENZOYL PEROXIDE 9% SWAB,TOP"
^XMB(3.9,316,2,25,0)="BIAFINE CREAM,TOP"
^XMB(3.9,316,2,26,0)="CARTRIDGE,ANIMAS IR 2ML #1200"
^XMB(3.9,316,2,27,0)="CATHERIZATION SET,ADD-A-FOLEY KENDALL #6176"
^XMB(3.9,316,2,28,0)="CATHERIZATION SET,FOLEY 16FR KENDALL #6146"
^XMB(3.9,316,2,29,0)="CATHERIZATION SET,FOLEY 16FR KENDALL #6155"
^XMB(3.9,316,2,30,0)="CATHERIZATION SET,FOLEY 18FR BARD #899718"
^XMB(3.9,316,2,31,0)="CATHERIZATION SET,INTERMITTENT 12FR C#28027S"
^XMB(3.9,316,2,32,0)="CATHERIZATION SET,INTERMITTENT 14FR C#28028S"
^XMB(3.9,316,2,33,0)="CATHETER COUDE 16FR BARD#010116"
^XMB(3.9,316,2,34,0)="DRESSING,PROMOGRAN PRISMA MATRIX 19.1IN X 19.1IN JJ#9191"
^XMB(3.9,316,2,35,0)="DRESSING,PROMOGRAN PRISMA MATRIX 4.75IN X 4.75IN JJ#4434"
^XMB(3.9,316,2,36,0)="INCONT LINER DIGNITY MINI-PADS"
^XMB(3.9,316,2,37,0)="POUCH,DRAINABLE,NEW IMAGE H#18012"
^XMB(3.9,316,2,38,0)="POUCH,DRAINABLE,NEW IMAGE H#18013"
^XMB(3.9,316,2,39,0)="POUCH,DRAINABLE,NEW IMAGE H#18016"
^XMB(3.9,316,2,40,0)="POUCH,DRAINABLE,SUR-FIT C#4114-93"
^XMB(3.9,316,2,41,0)="SET,INFUSION ANIMAS #181-00"
^XMB(3.9,316,2,42,0)="SET,INFUSION ANIMAS #182-00"
^XMB(3.9,316,2,43,0)="SET,INFUSION MINIMED #MMT-840"
^XMB(3.9,316,2,44,0)="SIMPLYTHICK GEL,ORAL"
^XMB(3.9,316,2,45,0)="SIMPLYTHICK GEL,ORAL HONEY"
^XMB(3.9,316,2,46,0)="SIMPLYTHICK GEL,ORAL HONEY,30GM"
^XMB(3.9,316,2,47,0)="SIMPLYTHICK GEL,ORAL NECTAR"
^XMB(3.9,316,2,48,0)="SIMPLYTHICK GEL,ORAL NECTAR,15GM"
^XMB(3.9,316,2,49,0)="TUBERCULIN SYRINGE 1ML SLIP TIP"
^XMB(3.9,316,6,0)="^3.911A^3^3"
^XMB(3.9,316,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,316,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,316,6,3,0)="ORMSBY,SKIP"
^XMB(3.9,316,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,316,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,316,6,"B","ORMSBY,SKIP",3)=""
^XMB(3.9,317,0)="DRUGS UNMATCHED FROM NATIONAL DRUG FILE^NDF MANAGER^3071227.055923^^^^P"
^XMB(3.9,317,.6)="3071227"
^XMB(3.9,317,1,0)="^3.91A^3^3"
^XMB(3.9,317,1,1,0)="1^0^3071227.152032^^^^^^1^3071227.060031"
^XMB(3.9,317,1,2,0)="63"
^XMB(3.9,317,1,3,0)="68"
^XMB(3.9,317,1,"C",1,1)=""
^XMB(3.9,317,1,"C",63,2)=""
^XMB(3.9,317,1,"C",68,3)=""
^XMB(3.9,317,2,0)="^^106^106^3071227"
^XMB(3.9,317,2,1,0)=" "
^XMB(3.9,317,2,2,0)="The following active entries in your DRUG file (#50) have been"
^XMB(3.9,317,2,3,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,317,2,4,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,317,2,5,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,317,2,6,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,317,2,7,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,317,2,8,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,317,2,9,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,317,2,10,0)="products immediately.  You may also need to match a new"
^XMB(3.9,317,2,11,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,317,2,12,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,317,2,13,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,317,2,14,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,317,2,15,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,317,2,16,0)="matching process."
^XMB(3.9,317,2,17,0)=" "
^XMB(3.9,317,2,18,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,317,2,19,0)="                                                                    DATE"
^XMB(3.9,317,2,20,0)=" "
^XMB(3.9,317,2,21,0)="ARTIFICIAL TEARS 15ML                                 2496"
^XMB(3.9,317,2,22,0)="    (CMOP H0208)             HYDROXYPROPYL METHYLCELLULOSE 0.5% 2/12/2007OLN,OPH"
^XMB(3.9,317,2,23,0)="    LOCAL POSSIBLE DOSES"
^XMB(3.9,317,2,24,0)="    DOSE                                            PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,317,2,25,0)="    1 DROP                                            IO              "
^XMB(3.9,317,2,26,0)="    2 DROPS                                           IO              "
^XMB(3.9,317,2,27,0)="LACRIL 1/2OZ                                          3732"
^XMB(3.9,317,2,28,0)="    (CMOP H0208)             HYDROXYPROPYL METHYLCELLULOSE 0.5% 2/12/2007OLN,OPH"
^XMB(3.9,317,2,29,0)="TEARISOL                                              5474"
^XMB(3.9,317,2,30,0)="    (CMOP H0208)             HYDROXYPROPYL METHYLCELLULOSE 0.5% 2/12/2007OLN,OPH"
^XMB(3.9,317,2,31,0)=" "
^XMB(3.9,317,2,32,0)="The following investigational entries in your DRUG file (#50) have been"
^XMB(3.9,317,2,33,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,317,2,34,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,317,2,35,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,317,2,36,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,317,2,37,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,317,2,38,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,317,2,39,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,317,2,40,0)="products immediately.  You may also need to match a new"
^XMB(3.9,317,2,41,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,317,2,42,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,317,2,43,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,317,2,44,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,317,2,45,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,317,2,46,0)="matching process."
^XMB(3.9,317,2,47,0)=" "
^XMB(3.9,317,2,48,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,317,2,49,0)="                                                                    DATE"
^XMB(3.9,317,2,50,0)=" "
^XMB(3.9,317,2,51,0)="  NONE"
^XMB(3.9,317,2,52,0)=" "
^XMB(3.9,317,2,53,0)="The following inactive entries in your DRUG file (#50) have been"
^XMB(3.9,317,2,54,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,317,2,55,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,317,2,56,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,317,2,57,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,317,2,58,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,317,2,59,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,317,2,60,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,317,2,61,0)="products immediately.  You may also need to match a new"
^XMB(3.9,317,2,62,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,317,2,63,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,317,2,64,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,317,2,65,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,317,2,66,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,317,2,67,0)="matching process."
^XMB(3.9,317,2,68,0)=" "
^XMB(3.9,317,2,69,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,317,2,70,0)="                                                                    DATE"
^XMB(3.9,317,2,71,0)=" "
^XMB(3.9,317,2,72,0)="CARBOL-FUSHSIN SOLUTION 1 OZ                          3912   7/24/2005"
^XMB(3.9,317,2,73,0)="    (CMOP C0126)             CASTELLANI PAINT,TOP               2/18/2007"
^XMB(3.9,317,2,74,0)="ISOPTO PLAIN 15ML                                     4548   7/27/2005"
^XMB(3.9,317,2,75,0)="    (CMOP H0208)             HYDROXYPROPYL METHYLCELLULOSE 0.5% 2/12/2007OLN,OPH"
^XMB(3.9,317,2,76,0)="    LOCAL POSSIBLE DOSES"
^XMB(3.9,317,2,77,0)="    DOSE                                            PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,317,2,78,0)="    1 DROP                                            IO              "
^XMB(3.9,317,2,79,0)="    2 DROPS                                           IO              "
^XMB(3.9,317,2,80,0)="ISOPTO TEARS 15ML                                     798    7/27/2005"
^XMB(3.9,317,2,81,0)="    (CMOP H0208)             HYDROXYPROPYL METHYLCELLULOSE 0.5% 2/12/2007OLN,OPH"
^XMB(3.9,317,2,82,0)="    LOCAL POSSIBLE DOSES"
^XMB(3.9,317,2,83,0)="    DOSE                                            PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,317,2,84,0)="    1 DROP                                            IO              "
^XMB(3.9,317,2,85,0)="    2 DROPS                                           IO              "
^XMB(3.9,317,2,86,0)="RABIES IMMUNE GLOBULIN 2ML                            2820   7/24/2005"
^XMB(3.9,317,2,87,0)="    (CMOP R0040)             RABIES IMMUNE GLOBULIN,HUMAN 150UNTML INJ"
^XMB(3.9,317,2,88,0)="    STRENGTH: 150UNITS: UNT/ML"
^XMB(3.9,317,2,89,0)="    POSSIBLE DOSES"
^XMB(3.9,317,2,90,0)="    DISP UNITS/DOSE     DOSE    PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,317,2,91,0)="       1                 150      I       "
^XMB(3.9,317,2,92,0)="       2                 300      I       "
^XMB(3.9,317,2,93,0)="RABIES IMMUNE GLOBULIN HUMAN                          5867   7/24/2005"
^XMB(3.9,317,2,94,0)="    (CMOP R0040)             RABIES IMMUNE GLOBULIN,HUMAN 150UNTML INJ"
^XMB(3.9,317,2,95,0)="    STRENGTH: 150UNITS: UNT/ML"
^XMB(3.9,317,2,96,0)="    POSSIBLE DOSES"
^XMB(3.9,317,2,97,0)="    DISP UNITS/DOSE     DOSE    PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,317,2,98,0)="       1                 150      I       "
^XMB(3.9,317,2,99,0)="       2                 300      I       "
^XMB(3.9,317,2,100,0)="RABIES VACCINE, HUMAN DIPLOID                         2824   7/24/2005"
^XMB(3.9,317,2,101,0)="    (CMOP R0040)             RABIES IMMUNE GLOBULIN,HUMAN 150UNTML INJ"
^XMB(3.9,317,2,102,0)="    STRENGTH: 150UNITS: UNT/ML"
^XMB(3.9,317,2,103,0)="    POSSIBLE DOSES"
^XMB(3.9,317,2,104,0)="    DISP UNITS/DOSE     DOSE    PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,317,2,105,0)="       1                 150      I       "
^XMB(3.9,317,2,106,0)="       2                 300      I       "
^XMB(3.9,317,6,0)="^3.911A^3^3"
^XMB(3.9,317,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,317,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,317,6,3,0)="ORMSBY,SKIP"
^XMB(3.9,317,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,317,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,317,6,"B","ORMSBY,SKIP",3)=""
^XMB(3.9,318,0)="INTERACTIONS and ALLERGIES UPDATED^NDF MANAGER^3071227.055952"
^XMB(3.9,318,.6)="3071227"
^XMB(3.9,318,1,0)="^3.91A^3^3"
^XMB(3.9,318,1,1,0)="1^0^3071227.060142^^^^^^^3071227.060142"
^XMB(3.9,318,1,2,0)="63"
^XMB(3.9,318,1,3,0)="68"
^XMB(3.9,318,1,"C",1,1)=""
^XMB(3.9,318,1,"C",63,2)=""
^XMB(3.9,318,1,"C",68,3)=""
^XMB(3.9,318,2,0)="^^8^8^3071227"
^XMB(3.9,318,2,1,0)=" "
^XMB(3.9,318,2,2,0)="No DRUG INTERACTIONS were updated due to Primary Ingredients being"
^XMB(3.9,318,2,3,0)="changed to Non-Primary ingredients in the Data Update."
^XMB(3.9,318,2,4,0)=" "
^XMB(3.9,318,2,5,0)=" "
^XMB(3.9,318,2,6,0)="No PATIENT ALLERGIES were updated due to Primary Ingredients being"
^XMB(3.9,318,2,7,0)="changed to Non-Primary ingredients during the Data Update."
^XMB(3.9,318,2,8,0)=" "
^XMB(3.9,318,6,0)="^3.911A^3^3"
^XMB(3.9,318,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,318,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,318,6,3,0)="ORMSBY,SKIP"
^XMB(3.9,318,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,318,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,318,6,"B","ORMSBY,SKIP",3)=""
^XMB(3.9,319,0)="MAG*3.0*46 INSTALLATION^1^3071227.055958"
^XMB(3.9,319,.6)="3071227"
^XMB(3.9,319,1,0)="^3.91A^3^3"
^XMB(3.9,319,1,1,0)="1^0^3071227.060146^^^^^^^3071227.055958"
^XMB(3.9,319,1,2,0)="65"
^XMB(3.9,319,1,3,0)="G.IMAGING DEVELOPMENT TEAM@FORUM.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,319,1,"AQUEUE",18,3)=""
^XMB(3.9,319,1,"C",1,1)=""
^XMB(3.9,319,1,"C",65,2)=""
^XMB(3.9,319,1,"C","G.IMAGING DEVELOPMENT TEAM@FOR",3)=""
^XMB(3.9,319,2,0)="^^13^13^3071227"
^XMB(3.9,319,2,1,0)="PACKAGE INSTALL"
^XMB(3.9,319,2,2,0)="SITE: BETA.VISTA-OFFICE.ORG"
^XMB(3.9,319,2,3,0)="PACKAGE: MAG*3.0*46"
^XMB(3.9,319,2,4,0)="Version: 3.0"
^XMB(3.9,319,2,5,0)="Start time: Dec 27, 2007@05:59:57"
^XMB(3.9,319,2,6,0)="Completion time: Dec 27, 2007@05:59:58"
^XMB(3.9,319,2,7,0)="Run time:  0:00:01"
^XMB(3.9,319,2,8,0)="Environment: EHR^EHR^skip-PC^EHR:CACHEWEB"
^XMB(3.9,319,2,9,0)="FILE COMMENT: BUILD 2007 4  ;Created on May 25, 2007@09:58:09"
^XMB(3.9,319,2,10,0)="DATE: 3071227.055958"
^XMB(3.9,319,2,11,0)="Installed by: ORMSBY,SKIP"
^XMB(3.9,319,2,12,0)="Install Name: MAG*3.0*46"
^XMB(3.9,319,2,13,0)="Distribution Date: Feb 16, 2007"
^XMB(3.9,319,6,0)="^3.911A^2^2"
^XMB(3.9,319,6,1,0)="G.MAG SERVER"
^XMB(3.9,319,6,2,0)="ORMSBY,SKIP"
^XMB(3.9,319,6,"B","G.MAG SERVER",1)=""
^XMB(3.9,319,6,"B","ORMSBY,SKIP",2)=""
^XMB(3.9,320,0)="DATA UPDATE FOR NDF^NDF MANAGER^3071227.060603"
^XMB(3.9,320,.6)="3071227"
^XMB(3.9,320,1,0)="^3.91A^3^3"
^XMB(3.9,320,1,1,0)="1"
^XMB(3.9,320,1,2,0)="63"
^XMB(3.9,320,1,3,0)="68"
^XMB(3.9,320,1,"C",1,1)=""
^XMB(3.9,320,1,"C",63,2)=""
^XMB(3.9,320,1,"C",68,3)=""
^XMB(3.9,320,2,0)="^^45^45^3071227"
^XMB(3.9,320,2,1,0)=" "
^XMB(3.9,320,2,2,0)="The following VA Products have been added to the National"
^XMB(3.9,320,2,3,0)="Drug File.  You may wish to review, then match or unmatch"
^XMB(3.9,320,2,4,0)="local drug file entries based on this updated information."
^XMB(3.9,320,2,5,0)=" "
^XMB(3.9,320,2,6,0)="   ALISKIREN 150MG TAB,UD"
^XMB(3.9,320,2,7,0)="    (CMOP - A1346)           (DISPENSE UNIT - TAB)"
^XMB(3.9,320,2,8,0)="     000078-0485-35   "
^XMB(3.9,320,2,9,0)="   ALISKIREN 150MG TAB"
^XMB(3.9,320,2,10,0)="    (CMOP - A1345)           (DISPENSE UNIT - TAB)"
^XMB(3.9,320,2,11,0)="     000078-0485-34   "
^XMB(3.9,320,2,12,0)="   ALISKIREN 300MG TAB,UD"
^XMB(3.9,320,2,13,0)="    (CMOP - A1348)           (DISPENSE UNIT - TAB)"
^XMB(3.9,320,2,14,0)="     000078-0486-35   "
^XMB(3.9,320,2,15,0)="   ALISKIREN 300MG TAB"
^XMB(3.9,320,2,16,0)="    (CMOP - A1347)           (DISPENSE UNIT - TAB)"
^XMB(3.9,320,2,17,0)="     000078-0486-34   "
^XMB(3.9,320,2,18,0)=" "
^XMB(3.9,320,2,19,0)="The National Formulary Indicator has changed for the following"
^XMB(3.9,320,2,20,0)="VA Products.  The National Formulary Indicator will automatically"
^XMB(3.9,320,2,21,0)="be changed in your local DRUG file (#50).  Please review the"
^XMB(3.9,320,2,22,0)="VISN and Local Formulary designations of these products and"
^XMB(3.9,320,2,23,0)="make appropriate changes."
^XMB(3.9,320,2,24,0)=" "
^XMB(3.9,320,2,25,0)="FORMULARY ITEMS"
^XMB(3.9,320,2,26,0)="   LIDOCAINE HCL 4% SOLN,TOP"
^XMB(3.9,320,2,27,0)=" "
^XMB(3.9,320,2,28,0)="NON-FORMULARY ITEMS"
^XMB(3.9,320,2,29,0)="   MORPHINE SO4 10MG SUPP,RTL"
^XMB(3.9,320,2,30,0)="   MORPHINE SO4 30MG SUPP,RTL"
^XMB(3.9,320,2,31,0)="   MORPHINE SO4 5MG SUPP,RTL"
^XMB(3.9,320,2,32,0)="   NEEDLE 18G 1.5IN"
^XMB(3.9,320,2,33,0)="   NEEDLE 19G 1.5IN"
^XMB(3.9,320,2,34,0)="   NEEDLE 20G 1.5IN"
^XMB(3.9,320,2,35,0)="   NEEDLE 20G 1IN"
^XMB(3.9,320,2,36,0)="   NEEDLE 22G 1.5IN"
^XMB(3.9,320,2,37,0)="   NEEDLE 22G 1IN"
^XMB(3.9,320,2,38,0)="   NEEDLE 23G 0.75IN"
^XMB(3.9,320,2,39,0)="   NEEDLE 25G 1.5IN"
^XMB(3.9,320,2,40,0)="   NEEDLE 25G 5/8IN"
^XMB(3.9,320,2,41,0)="   NEEDLE 26G 0.5IN"
^XMB(3.9,320,2,42,0)="   NEEDLE 26G 3/8IN"
^XMB(3.9,320,2,43,0)="   NOVO FINE 30 DISPOSABLE NEEDLE"
^XMB(3.9,320,2,44,0)="   PEN NEEDLE DISPOSABLE"
^XMB(3.9,320,2,45,0)="   SUCRALFATE 500MG/5ML SUSP,ORAL,10ML"
^XMB(3.9,320,6,0)="^3.911A^3^3"
^XMB(3.9,320,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,320,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,320,6,3,0)="ORMSBY,SKIP"
^XMB(3.9,320,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,320,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,320,6,"B","ORMSBY,SKIP",3)=""
^XMB(3.9,321,0)="UPDATED INTERACTIONS^NDF MANAGER^3071227.060603"
^XMB(3.9,321,.6)="3071227"
^XMB(3.9,321,1,0)="^3.91A^3^3"
^XMB(3.9,321,1,1,0)="1"
^XMB(3.9,321,1,2,0)="63"
^XMB(3.9,321,1,3,0)="68"
^XMB(3.9,321,1,"C",1,1)=""
^XMB(3.9,321,1,"C",63,2)=""
^XMB(3.9,321,1,"C",68,3)=""
^XMB(3.9,321,2,0)="^^15^15^3071227"
^XMB(3.9,321,2,1,0)="The following interactions in National Drug File (NDF) have been added,"
^XMB(3.9,321,2,2,0)="edited or inactivated.  These changes are the result of review and"
^XMB(3.9,321,2,3,0)="recommendations from the NDF support group."
^XMB(3.9,321,2,4,0)=" "
^XMB(3.9,321,2,5,0)="ADDED INTERACTIONS"
^XMB(3.9,321,2,6,0)=" "
^XMB(3.9,321,2,7,0)="   NONE"
^XMB(3.9,321,2,8,0)=" "
^XMB(3.9,321,2,9,0)="EDITED INTERACTIONS"
^XMB(3.9,321,2,10,0)=" "
^XMB(3.9,321,2,11,0)="   NONE"
^XMB(3.9,321,2,12,0)=" "
^XMB(3.9,321,2,13,0)="INACTIVATED INTERACTIONS"
^XMB(3.9,321,2,14,0)=" "
^XMB(3.9,321,2,15,0)="   NONE"
^XMB(3.9,321,6,0)="^3.911A^3^3"
^XMB(3.9,321,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,321,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,321,6,3,0)="ORMSBY,SKIP"
^XMB(3.9,321,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,321,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,321,6,"B","ORMSBY,SKIP",3)=""
^XMB(3.9,322,0)="DRUGS UNMATCHED FROM NATIONAL DRUG FILE^NDF MANAGER^3071227.060609^^^^P"
^XMB(3.9,322,.6)="3071227"
^XMB(3.9,322,1,0)="^3.91A^3^3"
^XMB(3.9,322,1,1,0)="1^0^3071227.061642^^^^^^1^3071227.061642"
^XMB(3.9,322,1,2,0)="63"
^XMB(3.9,322,1,3,0)="68"
^XMB(3.9,322,1,"C",1,1)=""
^XMB(3.9,322,1,"C",63,2)=""
^XMB(3.9,322,1,"C",68,3)=""
^XMB(3.9,322,2,0)="^^63^63^3071227"
^XMB(3.9,322,2,1,0)=" "
^XMB(3.9,322,2,2,0)="The following active entries in your DRUG file (#50) have been"
^XMB(3.9,322,2,3,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,322,2,4,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,322,2,5,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,322,2,6,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,322,2,7,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,322,2,8,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,322,2,9,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,322,2,10,0)="products immediately.  You may also need to match a new"
^XMB(3.9,322,2,11,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,322,2,12,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,322,2,13,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,322,2,14,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,322,2,15,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,322,2,16,0)="matching process."
^XMB(3.9,322,2,17,0)=" "
^XMB(3.9,322,2,18,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,322,2,19,0)="                                                                    DATE"
^XMB(3.9,322,2,20,0)=" "
^XMB(3.9,322,2,21,0)="  NONE"
^XMB(3.9,322,2,22,0)=" "
^XMB(3.9,322,2,23,0)="The following investigational entries in your DRUG file (#50) have been"
^XMB(3.9,322,2,24,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,322,2,25,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,322,2,26,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,322,2,27,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,322,2,28,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,322,2,29,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,322,2,30,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,322,2,31,0)="products immediately.  You may also need to match a new"
^XMB(3.9,322,2,32,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,322,2,33,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,322,2,34,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,322,2,35,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,322,2,36,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,322,2,37,0)="matching process."
^XMB(3.9,322,2,38,0)=" "
^XMB(3.9,322,2,39,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,322,2,40,0)="                                                                    DATE"
^XMB(3.9,322,2,41,0)=" "
^XMB(3.9,322,2,42,0)="  NONE"
^XMB(3.9,322,2,43,0)=" "
^XMB(3.9,322,2,44,0)="The following inactive entries in your DRUG file (#50) have been"
^XMB(3.9,322,2,45,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,322,2,46,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,322,2,47,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,322,2,48,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,322,2,49,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,322,2,50,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,322,2,51,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,322,2,52,0)="products immediately.  You may also need to match a new"
^XMB(3.9,322,2,53,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,322,2,54,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,322,2,55,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,322,2,56,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,322,2,57,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,322,2,58,0)="matching process."
^XMB(3.9,322,2,59,0)=" "
^XMB(3.9,322,2,60,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,322,2,61,0)="                                                                    DATE"
^XMB(3.9,322,2,62,0)=" "
^XMB(3.9,322,2,63,0)="  NONE"
^XMB(3.9,322,6,0)="^3.911A^3^3"
^XMB(3.9,322,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,322,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,322,6,3,0)="ORMSBY,SKIP"
^XMB(3.9,322,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,322,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,322,6,"B","ORMSBY,SKIP",3)=""
^XMB(3.9,323,0)="INTERACTIONS and ALLERGIES UPDATED^NDF MANAGER^3071227.060641"
^XMB(3.9,323,.6)="3071227"
^XMB(3.9,323,1,0)="^3.91A^3^3"
^XMB(3.9,323,1,1,0)="1"
^XMB(3.9,323,1,2,0)="63"
^XMB(3.9,323,1,3,0)="68"
^XMB(3.9,323,1,"C",1,1)=""
^XMB(3.9,323,1,"C",63,2)=""
^XMB(3.9,323,1,"C",68,3)=""
^XMB(3.9,323,2,0)="^^8^8^3071227"
^XMB(3.9,323,2,1,0)=" "
^XMB(3.9,323,2,2,0)="No DRUG INTERACTIONS were updated due to Primary Ingredients being"
^XMB(3.9,323,2,3,0)="changed to Non-Primary ingredients in the Data Update."
^XMB(3.9,323,2,4,0)=" "
^XMB(3.9,323,2,5,0)=" "
^XMB(3.9,323,2,6,0)="No PATIENT ALLERGIES were updated due to Primary Ingredients being"
^XMB(3.9,323,2,7,0)="changed to Non-Primary ingredients during the Data Update."
^XMB(3.9,323,2,8,0)=" "
^XMB(3.9,323,6,0)="^3.911A^3^3"
^XMB(3.9,323,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,323,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,323,6,3,0)="ORMSBY,SKIP"
^XMB(3.9,323,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,323,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,323,6,"B","ORMSBY,SKIP",3)=""
^XMB(3.9,324,0)="MAG*3.0*65 INSTALLATION^1^3071227.060647"
^XMB(3.9,324,.6)="3071227"
^XMB(3.9,324,1,0)="^3.91A^3^3"
^XMB(3.9,324,1,1,0)="1^0^3071227.060647^^^^^^^3071227.060647"
^XMB(3.9,324,1,2,0)="65"
^XMB(3.9,324,1,3,0)="G.IMAGING DEVELOPMENT TEAM@FORUM.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,324,1,"AQUEUE",18,3)=""
^XMB(3.9,324,1,"C",1,1)=""
^XMB(3.9,324,1,"C",65,2)=""
^XMB(3.9,324,1,"C","G.IMAGING DEVELOPMENT TEAM@FOR",3)=""
^XMB(3.9,324,2,0)="^^13^13^3071227"
^XMB(3.9,324,2,1,0)="PACKAGE INSTALL"
^XMB(3.9,324,2,2,0)="SITE: BETA.VISTA-OFFICE.ORG"
^XMB(3.9,324,2,3,0)="PACKAGE: MAG*3.0*65"
^XMB(3.9,324,2,4,0)="Version: 3.0"
^XMB(3.9,324,2,5,0)="Start time: Dec 27, 2007@06:06:46"
^XMB(3.9,324,2,6,0)="Completion time: Dec 27, 2007@06:06:47"
^XMB(3.9,324,2,7,0)="Run time:  0:00:01"
^XMB(3.9,324,2,8,0)="Environment: EHR^EHR^skip-PC^EHR:CACHEWEB"
^XMB(3.9,324,2,9,0)="FILE COMMENT: BUILD 2007 5  ;Created on May 25, 2007@09:58:58"
^XMB(3.9,324,2,10,0)="DATE: 3071227.060647"
^XMB(3.9,324,2,11,0)="Installed by: ORMSBY,SKIP"
^XMB(3.9,324,2,12,0)="Install Name: MAG*3.0*65"
^XMB(3.9,324,2,13,0)="Distribution Date: Apr 03, 2007"
^XMB(3.9,324,6,0)="^3.911A^2^2"
^XMB(3.9,324,6,1,0)="G.MAG SERVER"
^XMB(3.9,324,6,2,0)="ORMSBY,SKIP"
^XMB(3.9,324,6,"B","G.MAG SERVER",1)=""
^XMB(3.9,324,6,"B","ORMSBY,SKIP",2)=""
^XMB(3.9,325,0)="Local Drug Interactions Added at VOE OFFICE INSTITUTION OLD since^1^3071227.060649"
^XMB(3.9,325,.6)="3071227"
^XMB(3.9,325,1,0)="^3.91A^4^4"
^XMB(3.9,325,1,1,0)="1^0^3071227.060649^^^^^^^3071227.060649"
^XMB(3.9,325,1,2,0)="63"
^XMB(3.9,325,1,3,0)="68"
^XMB(3.9,325,1,4,0)="G.NDF SUPPORT@ISCPNDF.FO-BIRM.MED.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,325,1,"AQUEUE",18,4)=""
^XMB(3.9,325,1,"C",1,1)=""
^XMB(3.9,325,1,"C",63,2)=""
^XMB(3.9,325,1,"C",68,3)=""
^XMB(3.9,325,1,"C","G.NDF SUPPORT@ISCPNDF.FO-BIRM.",4)=""
^XMB(3.9,325,2,0)="^^1^1^3071227"
^XMB(3.9,325,2,1,0)="There were no interactions created at VOE OFFICE INSTITUTION OLD after 26 October 2006."
^XMB(3.9,325,6,0)="^3.911A^4^4"
^XMB(3.9,325,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,325,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,325,6,3,0)="G.NDF SUPPORT@ISCPNDF.FO-BIRM.MED.VA.GOV"
^XMB(3.9,325,6,4,0)="ORMSBY,SKIP"
^XMB(3.9,325,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,325,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,325,6,"B","G.NDF SUPPORT@ISCPNDF.FO-BIRM.",3)=""
^XMB(3.9,325,6,"B","ORMSBY,SKIP",4)=""
^XMB(3.9,326,0)="STOP CODE UPDATE FROM 101 TO 130^EMERGENCY PATCH SD*5.3*511^3071227.060649"
^XMB(3.9,326,.6)="3071227"
^XMB(3.9,326,1,0)="^3.91A^1^1"
^XMB(3.9,326,1,1,0)="1"
^XMB(3.9,326,1,"C",1,1)=""
^XMB(3.9,326,2,0)="^^5^5^3071227"
^XMB(3.9,326,2,1,0)="The following list of encounters have had their stop code"
^XMB(3.9,326,2,2,0)="updated from 101 to 130 in the Outpatient Encounter file."
^XMB(3.9,326,2,3,0)=""
^XMB(3.9,326,2,4,0)="No encounters found, for the date range March 1, 2007 to April 8, 2007,"
^XMB(3.9,326,2,5,0)="that require updating."
^XMB(3.9,326,6,0)="^3.911A^1^1"
^XMB(3.9,326,6,1,0)="ORMSBY,SKIP"
^XMB(3.9,326,6,"B","ORMSBY,SKIP",1)=""
^XMB(3.9,327,0)="PATCH GMRA*4*29 Post Install COMPLETED^PATCH GMRA*4*29 POST-INSTALL^3071227.060651"
^XMB(3.9,327,.6)="3071227"
^XMB(3.9,327,1,0)="^3.91A^5^5"
^XMB(3.9,327,1,1,0)=".5"
^XMB(3.9,327,1,2,0)="1"
^XMB(3.9,327,1,3,0)="CATHERINE.HOANG2@VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,327,1,4,0)="DAVID.NABER@VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,327,1,5,0)="HULET.LEE_ANN@FORUM.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,327,1,"AQUEUE",18,3)=""
^XMB(3.9,327,1,"AQUEUE",18,4)=""
^XMB(3.9,327,1,"AQUEUE",18,5)=""
^XMB(3.9,327,1,"C",.5,1)=""
^XMB(3.9,327,1,"C",1,2)=""
^XMB(3.9,327,1,"C","CATHERINE.HOANG2@VA.GOV",3)=""
^XMB(3.9,327,1,"C","DAVID.NABER@VA.GOV",4)=""
^XMB(3.9,327,1,"C","HULET.LEE_ANN@FORUM.VA.GOV",5)=""
^XMB(3.9,327,2,0)="^^3^3^3071227"
^XMB(3.9,327,2,1,0)="The post-install routine for patch GMRA*4*29"
^XMB(3.9,327,2,2,0)="finished on Dec 27, 2007@06:06:51."
^XMB(3.9,327,2,3,0)=""
^XMB(3.9,327,6,0)="^3.911A^5^5"
^XMB(3.9,327,6,1,0)="CATHERINE.HOANG2@VA.GOV"
^XMB(3.9,327,6,2,0)="DAVID.NABER@VA.GOV"
^XMB(3.9,327,6,3,0)="HULET.LEE_ANN@FORUM.VA.GOV"
^XMB(3.9,327,6,4,0)="ORMSBY,SKIP"
^XMB(3.9,327,6,5,0)="POSTMASTER"
^XMB(3.9,327,6,"B","CATHERINE.HOANG2@VA.GOV",1)=""
^XMB(3.9,327,6,"B","DAVID.NABER@VA.GOV",2)=""
^XMB(3.9,327,6,"B","HULET.LEE_ANN@FORUM.VA.GOV",3)=""
^XMB(3.9,327,6,"B","ORMSBY,SKIP",4)=""
^XMB(3.9,327,6,"B","POSTMASTER",5)=""
^XMB(3.9,328,0)="DATA UPDATE FOR NDF^NDF MANAGER^3071227.060807"
^XMB(3.9,328,.6)="3071227"
^XMB(3.9,328,1,0)="^3.91A^3^3"
^XMB(3.9,328,1,1,0)="1"
^XMB(3.9,328,1,2,0)="63"
^XMB(3.9,328,1,3,0)="68"
^XMB(3.9,328,1,"C",1,1)=""
^XMB(3.9,328,1,"C",63,2)=""
^XMB(3.9,328,1,"C",68,3)=""
^XMB(3.9,328,2,0)="^^264^264^3071227"
^XMB(3.9,328,2,1,0)=" "
^XMB(3.9,328,2,2,0)="The following VA Products have been added to the National"
^XMB(3.9,328,2,3,0)="Drug File.  You may wish to review, then match or unmatch"
^XMB(3.9,328,2,4,0)="local drug file entries based on this updated information."
^XMB(3.9,328,2,5,0)=" "
^XMB(3.9,328,2,6,0)="   ACETAMINOPHEN 500MG/DM 15MG/DOXYLAMINE 6.25MG/15ML LIQUID"
^XMB(3.9,328,2,7,0)="    (CMOP - A1353)           (DISPENSE UNIT - ML)"
^XMB(3.9,328,2,8,0)="     000904-5777-21   "
^XMB(3.9,328,2,9,0)="   AEROCHAMBER MAX W/MASK LARGE"
^XMB(3.9,328,2,10,0)="    (CMOP - XV269)           (DISPENSE UNIT - EA)"
^XMB(3.9,328,2,11,0)="     004351-0808-10   "
^XMB(3.9,328,2,12,0)="   AEROCHAMBER MAX W/MASK MED"
^XMB(3.9,328,2,13,0)="    (CMOP - XV268)           (DISPENSE UNIT - EA)"
^XMB(3.9,328,2,14,0)="     004351-0788-10   "
^XMB(3.9,328,2,15,0)="   AEROCHAMBER MAX W/MASK SMALL"
^XMB(3.9,328,2,16,0)="    (CMOP - XV270)           (DISPENSE UNIT - EA)"
^XMB(3.9,328,2,17,0)="     004351-0888-10   "
^XMB(3.9,328,2,18,0)="   AEROCHAMBER Z-STAT PLUS W/MASK LARGE"
^XMB(3.9,328,2,19,0)="    (CMOP - XV267)           (DISPENSE UNIT - EA)"
^XMB(3.9,328,2,20,0)="     004351-0807-10   "
^XMB(3.9,328,2,21,0)="   AEROCHAMBER Z-STAT PLUS W/MASK MED"
^XMB(3.9,328,2,22,0)="    (CMOP - XV265)           (DISPENSE UNIT - EA)"
^XMB(3.9,328,2,23,0)="     004351-0787-10   "
^XMB(3.9,328,2,24,0)="   AEROCHAMBER Z-STAT PLUS W/MASK SMALL"
^XMB(3.9,328,2,25,0)="    (CMOP - XV266)           (DISPENSE UNIT - EA)"
^XMB(3.9,328,2,26,0)="     004351-0887-10   "
^XMB(3.9,328,2,27,0)="   APAP 108MG/DM 3.3MG/PHENYLEPHRINE 1.6MG/5ML LIQUID,ORAL"
^XMB(3.9,328,2,28,0)="    (CMOP - A1350)           (DISPENSE UNIT - ML)"
^XMB(3.9,328,2,29,0)="     037000-0511-06   "
^XMB(3.9,328,2,30,0)="   ARIPIPRAZOLE 10MG TAB RAPID DISINTEGRATING"
^XMB(3.9,328,2,31,0)="    (CMOP - A1352)           (DISPENSE UNIT - TAB)"
^XMB(3.9,328,2,32,0)="     059148-0640-23   "
^XMB(3.9,328,2,33,0)="   ARIPIPRAZOLE 15MG TAB RAPID DISINTEGRATING"
^XMB(3.9,328,2,34,0)="    (CMOP - A1351)           (DISPENSE UNIT - TAB)"
^XMB(3.9,328,2,35,0)="     059148-0641-23   "
^XMB(3.9,328,2,36,0)="   ASCENSIA CONTOUR (GLUCOSE) TEST STRIP"
^XMB(3.9,328,2,37,0)="    (CMOP - A1349)           (DISPENSE UNIT - EA)"
^XMB(3.9,328,2,38,0)="     000193-7080-50   000193-7080-21   "
^XMB(3.9,328,2,39,0)="   BARRIER,OSTOMY,NEW IMAGE H#14903"
^XMB(3.9,328,2,40,0)="    (CMOP - XV259)           (DISPENSE UNIT - EA)"
^XMB(3.9,328,2,41,0)="     990001-4903-01   "
^XMB(3.9,328,2,42,0)="   BELT,SUPPORT 9IN XX-LG NU-HOPE #6469"
^XMB(3.9,328,2,43,0)="    (CMOP - XV255)           (DISPENSE UNIT - EA)"
^XMB(3.9,328,2,44,0)="     999999-6469-01   "
^XMB(3.9,328,2,45,0)="   BENZONATATE 200MG CAP"
^XMB(3.9,328,2,46,0)="    (CMOP - B0565)           (DISPENSE UNIT - CAP)"
^XMB(3.9,328,2,47,0)="     000258-3678-01   "
^XMB(3.9,328,2,48,0)="   BISACODYL 5MG TAB #4/PEG-3350/ELECTROLYTES KIT"
^XMB(3.9,328,2,49,0)="    (CMOP - B0564)           (DISPENSE UNIT - KIT)"
^XMB(3.9,328,2,50,0)="     052268-0520-01   "
^XMB(3.9,328,2,51,0)="   CALCIUM CARBONATE 600MG/MINERALS/VITAMIN D TAB,CHEW"
^XMB(3.9,328,2,52,0)="    (CMOP - C1273)           (DISPENSE UNIT - TAB)"
^XMB(3.9,328,2,53,0)="     000005-5567-19   "
^XMB(3.9,328,2,54,0)="   CARVEDILOL P04 10MG CAP,SA"
^XMB(3.9,328,2,55,0)="    (CMOP - C1272)           (DISPENSE UNIT - CAP)"
^XMB(3.9,328,2,56,0)="     000007-3370-13   "
^XMB(3.9,328,2,57,0)="   CARVEDILOL P04 20MG CAP,SA"
^XMB(3.9,328,2,58,0)="    (CMOP - C1270)           (DISPENSE UNIT - CAP)"
^XMB(3.9,328,2,59,0)="     000007-3371-13   "
^XMB(3.9,328,2,60,0)="   CARVEDILOL P04 40MG CAP,SA"
^XMB(3.9,328,2,61,0)="    (CMOP - C1269)           (DISPENSE UNIT - CAP)"
^XMB(3.9,328,2,62,0)="     000074-3372-13   "
^XMB(3.9,328,2,63,0)="   CARVEDILOL P04 80MG CAP,SA"
^XMB(3.9,328,2,64,0)="    (CMOP - C1271)           (DISPENSE UNIT - CAP)"
^XMB(3.9,328,2,65,0)="     000007-3373-13   "
^XMB(3.9,328,2,66,0)="   CATHETER,INTERMITTENT PERSONAL 10FR ROCHESTER #63610"
^XMB(3.9,328,2,67,0)="    (CMOP - XV260)           (DISPENSE UNIT - EA)"
^XMB(3.9,328,2,68,0)="     752181-6361-10   "
^XMB(3.9,328,2,69,0)="   CATHETER,INTERMITTENT PERSONAL 12FR ROCHESTER #63612"
^XMB(3.9,328,2,70,0)="    (CMOP - XV261)           (DISPENSE UNIT - EA)"
^XMB(3.9,328,2,71,0)="     752181-6361-20   "
^XMB(3.9,328,2,72,0)="   CATHETER,INTERMITTENT PERSONAL 14FR ROCHESTER #63614"
^XMB(3.9,328,2,73,0)="    (CMOP - XV262)           (DISPENSE UNIT - EA)"
^XMB(3.9,328,2,74,0)="     752181-6361-40   "
^XMB(3.9,328,2,75,0)="   CATHETER,INTERMITTENT PERSONAL 16FR ROCHESTER #63616"
^XMB(3.9,328,2,76,0)="    (CMOP - XV263)           (DISPENSE UNIT - EA)"
^XMB(3.9,328,2,77,0)="     752181-6361-60   "
^XMB(3.9,328,2,78,0)="   CATHETER,INTERMITTENT PERSONAL 18FR ROCHESTER #63618"
^XMB(3.9,328,2,79,0)="    (CMOP - XV264)           (DISPENSE UNIT - EA)"
^XMB(3.9,328,2,80,0)="     752181-6361-80   "
^XMB(3.9,328,2,81,0)="   DESLORATADINE 2.5MG/PSEUDOEPHEDRINE SULFATE 120MG TAB,SA"
^XMB(3.9,328,2,82,0)="    (CMOP - D0746)           (DISPENSE UNIT - TAB)"
^XMB(3.9,328,2,83,0)="     000085-1322-01   "
^XMB(3.9,328,2,84,0)="   DEXTROMETHORPHAN HBR 5MG/5ML LIQUID"
^XMB(3.9,328,2,85,0)="    (CMOP - D0745)           (DISPENSE UNIT - ML)"
^XMB(3.9,328,2,86,0)="     037000-0511-02   "
^XMB(3.9,328,2,87,0)="   DILTIAZEM (INWOOD) 420MG CAP,SA"
^XMB(3.9,328,2,88,0)="    (CMOP - D0744)           (DISPENSE UNIT - CAP)"
^XMB(3.9,328,2,89,0)="     000258-3692-90   "
^XMB(3.9,328,2,90,0)="   DIMETHICONE 1% CREAM,TOP"
^XMB(3.9,328,2,91,0)="    (CMOP - D0747)           (DISPENSE UNIT - GM)"
^XMB(3.9,328,2,92,0)="     000430-3500-08   "
^XMB(3.9,328,2,93,0)="   ECULIZUMAB 10MG/ML INJ,SOLN"
^XMB(3.9,328,2,94,0)="    (CMOP - E0484)           (DISPENSE UNIT - ML)"
^XMB(3.9,328,2,95,0)="     025682-0001-01   "
^XMB(3.9,328,2,96,0)="   ESOMEPRAZOLE MAGNESIUM 20MG/PKT PWDR,ORAL"
^XMB(3.9,328,2,97,0)="    (CMOP - E0485)           (DISPENSE UNIT - PKT)"
^XMB(3.9,328,2,98,0)="     000186-4020-01   "
^XMB(3.9,328,2,99,0)="   ESOMEPRAZOLE MAGNESIUM 40MG/PKT PWDR,ORAL"
^XMB(3.9,328,2,100,0)="    (CMOP - E0486)           (DISPENSE UNIT - PKT)"
^XMB(3.9,328,2,101,0)="     000186-4040-01   "
^XMB(3.9,328,2,102,0)="   HYALURONATE NA (EUFLEXXA) 10MG/ML INJ,SYRINGE,2ML"
^XMB(3.9,328,2,103,0)="    (CMOP - H0514)           (DISPENSE UNIT - EA)"
^XMB(3.9,328,2,104,0)="     055566-4100-01   "
^XMB(3.9,328,2,105,0)="   HYDROXOCOBALAMIN (CYANOKIT) 2.5GM/VIL INJ KIT,2"
^XMB(3.9,328,2,106,0)="    (CMOP - H0515)           (DISPENSE UNIT - KIT)"
^XMB(3.9,328,2,107,0)="     049502-0550-02   "
^XMB(3.9,328,2,108,0)="   INCONT LINER DIGNITY THINSERT"
^XMB(3.9,328,2,109,0)="    (CMOP - XV253)           (DISPENSE UNIT - EA)"
^XMB(3.9,328,2,110,0)="     999002-6300-54   "
^XMB(3.9,328,2,111,0)="   INSULIN,HUMAN 1MG X 90 INHL,ORAL,BLISTER,PKT"
^XMB(3.9,328,2,112,0)="    (CMOP - I0448)           (DISPENSE UNIT - PKT)"
^XMB(3.9,328,2,113,0)="     000069-0707-37   "
^XMB(3.9,328,2,114,0)="   INSULIN,HUMAN 3MG X 90 INHL,ORAL,BLISTER,PKT"
^XMB(3.9,328,2,115,0)="    (CMOP - I0449)           (DISPENSE UNIT - PKT)"
^XMB(3.9,328,2,116,0)="     000069-0724-37   "
^XMB(3.9,328,2,117,0)="   LANCET,FINGER STICK SAFETY 21G 1.8MM"
^XMB(3.9,328,2,118,0)="    (CMOP - XV251)           (DISPENSE UNIT - EA)"
^XMB(3.9,328,2,119,0)="     999911-2401-01   "
^XMB(3.9,328,2,120,0)="   LANCET,FINGER STICK SAFETY 21G 2.2MM"
^XMB(3.9,328,2,121,0)="    (CMOP - XV249)           (DISPENSE UNIT - EA)"
^XMB(3.9,328,2,122,0)="     999911-2401-03   "
^XMB(3.9,328,2,123,0)="   LANCET,FINGER STICK SAFETY 26G 1.8MM"
^XMB(3.9,328,2,124,0)="    (CMOP - L0390)           (DISPENSE UNIT - EA)"
^XMB(3.9,328,2,125,0)="     999911-2401-02   "
^XMB(3.9,328,2,126,0)="   LAPATINIB 250MG TAB"
^XMB(3.9,328,2,127,0)="    (CMOP - L0386)           (DISPENSE UNIT - TAB)"
^XMB(3.9,328,2,128,0)="     000173-0752-00   "
^XMB(3.9,328,2,129,0)="   LISDEXAMFETAMINE DIMESYLATE 30MG CAP,ORAL"
^XMB(3.9,328,2,130,0)="    (CMOP - L0387)           (DISPENSE UNIT - CAP)"
^XMB(3.9,328,2,131,0)="     059417-0103-10   "
^XMB(3.9,328,2,132,0)="   LISDEXAMFETAMINE DIMESYLATE 50MG CAP,ORAL"
^XMB(3.9,328,2,133,0)="    (CMOP - L0388)           (DISPENSE UNIT - CAP)"
^XMB(3.9,328,2,134,0)="     059417-0105-10   "
^XMB(3.9,328,2,135,0)="   LISDEXAMFETAMINE DIMESYLATE 70MG CAP,ORAL"
^XMB(3.9,328,2,136,0)="    (CMOP - L0389)           (DISPENSE UNIT - CAP)"
^XMB(3.9,328,2,137,0)="     059417-0107-10   "
^XMB(3.9,328,2,138,0)="   OREGANO OIL"
^XMB(3.9,328,2,139,0)="    (CMOP - O0244)           (DISPENSE UNIT - ML)"
^XMB(3.9,328,2,140,0)="     051927-1833-00   "
^XMB(3.9,328,2,141,0)="   OXYCODONE HCL 10MG/ACETAMINOPHEN 400MG TAB"
^XMB(3.9,328,2,142,0)="    (CMOP - O0242)           (DISPENSE UNIT - TAB)"
^XMB(3.9,328,2,143,0)="     023635-0994-01   "
^XMB(3.9,328,2,144,0)="   OXYCODONE HCL 2.5MG/ACETAMINOPHEN 400MG TAB"
^XMB(3.9,328,2,145,0)="    (CMOP - O0243)           (DISPENSE UNIT - TAB)"
^XMB(3.9,328,2,146,0)="     023635-0991-01   "
^XMB(3.9,328,2,147,0)="   OXYCODONE HCL 5MG/ACETAMINOPHEN 400MG TAB"
^XMB(3.9,328,2,148,0)="    (CMOP - O0240)           (DISPENSE UNIT - TAB)"
^XMB(3.9,328,2,149,0)="     023635-0992-01   "
^XMB(3.9,328,2,150,0)="   OXYCODONE HCL 7.5MG/ACETAMINOPHEN 400MG TAB"
^XMB(3.9,328,2,151,0)="    (CMOP - O0241)           (DISPENSE UNIT - TAB)"
^XMB(3.9,328,2,152,0)="     023635-0993-01   "
^XMB(3.9,328,2,153,0)="   PERATIVE LIQUID 1000ML"
^XMB(3.9,328,2,154,0)="    (CMOP - P0793)           (DISPENSE UNIT - BTL)"
^XMB(3.9,328,2,155,0)="     070074-0519-49   "
^XMB(3.9,328,2,156,0)="   PERATIVE LIQUID 1500ML"
^XMB(3.9,328,2,157,0)="    (CMOP - P0794)           (DISPENSE UNIT - BTL)"
^XMB(3.9,328,2,158,0)="     070074-0576-36   "
^XMB(3.9,328,2,159,0)="   PHOSPHOTIDYLSERINE CAP/TAB"
^XMB(3.9,328,2,160,0)="    (CMOP - P0792)           (DISPENSE UNIT - CAP/TAB)"
^XMB(3.9,328,2,161,0)="     088395-0087-71   "
^XMB(3.9,328,2,162,0)="   POLYVINYL ALCOHOL 2.7%/POVIDONE 2% SOLN,OPH"
^XMB(3.9,328,2,163,0)="    (CMOP - P0795)           (DISPENSE UNIT - ML)"
^XMB(3.9,328,2,164,0)="     015821-0101-15   "
^XMB(3.9,328,2,165,0)="   POUCH,CLOSED,PREMIUM H#82300"
^XMB(3.9,328,2,166,0)="    (CMOP - XV258)           (DISPENSE UNIT - EA)"
^XMB(3.9,328,2,167,0)="     008380-0823-00   "
^XMB(3.9,328,2,168,0)="   POUCH,CLOSED,PREMIUM H#82400"
^XMB(3.9,328,2,169,0)="    (CMOP - XV257)           (DISPENSE UNIT - EA)"
^XMB(3.9,328,2,170,0)="     008380-0824-00   "
^XMB(3.9,328,2,171,0)="   POUCH,DRAINABLE,ASSURA COLOPLAST #15860"
^XMB(3.9,328,2,172,0)="    (CMOP - XV256)           (DISPENSE UNIT - EA)"
^XMB(3.9,328,2,173,0)="     011701-0876-60   "
^XMB(3.9,328,2,174,0)="   POUCH,DRAINABLE,PREMIER H#88300"
^XMB(3.9,328,2,175,0)="    (CMOP - XV252)           (DISPENSE UNIT - EA)"
^XMB(3.9,328,2,176,0)="     990100-0883-00   "
^XMB(3.9,328,2,177,0)="   PRODIGY (GLUCOSE) TEST STRIP"
^XMB(3.9,328,2,178,0)="    (CMOP - XV254)           (DISPENSE UNIT - EA)"
^XMB(3.9,328,2,179,0)="     008484-0524-00   "
^XMB(3.9,328,2,180,0)="   RESVERATROL CAP/TAB"
^XMB(3.9,328,2,181,0)="    (CMOP - R0208)           (DISPENSE UNIT - CAP/TAB)"
^XMB(3.9,328,2,182,0)="     999482-6678-01   "
^XMB(3.9,328,2,183,0)="   SILVER,COLLOIDAL LIQUID,ORAL"
^XMB(3.9,328,2,184,0)="    (CMOP - S0497)           (DISPENSE UNIT - ML)"
^XMB(3.9,328,2,185,0)="     074312-0040-10   "
^XMB(3.9,328,2,186,0)="   SODIUM HYPOCHLORITE 0.125% SOLN,TOP"
^XMB(3.9,328,2,187,0)="    (CMOP - S0495)           (DISPENSE UNIT - ML)"
^XMB(3.9,328,2,188,0)="     000436-0672-16   "
^XMB(3.9,328,2,189,0)="   SULFACETAMIDE NA 10%/SULFUR 1% WASH,TOP"
^XMB(3.9,328,2,190,0)="    (CMOP - S0496)           (DISPENSE UNIT - GM)"
^XMB(3.9,328,2,191,0)="     000145-2681-05   "
^XMB(3.9,328,2,192,0)="   THALIDOMIDE 150MG CAP"
^XMB(3.9,328,2,193,0)="    (CMOP - T0629)           (DISPENSE UNIT - CAP)"
^XMB(3.9,328,2,194,0)="     059572-0215-13   059572-0215-93   "
^XMB(3.9,328,2,195,0)="   URINARY DRAINAGE BAG BARD #154104"
^XMB(3.9,328,2,196,0)="    (CMOP - XV248)           (DISPENSE UNIT - EA)"
^XMB(3.9,328,2,197,0)="     099915-4104-01   "
^XMB(3.9,328,2,198,0)=" "
^XMB(3.9,328,2,199,0)="The National Formulary Indicator has changed for the following"
^XMB(3.9,328,2,200,0)="VA Products.  The National Formulary Indicator will automatically"
^XMB(3.9,328,2,201,0)="be changed in your local DRUG file (#50).  Please review the"
^XMB(3.9,328,2,202,0)="VISN and Local Formulary designations of these products and"
^XMB(3.9,328,2,203,0)="make appropriate changes."
^XMB(3.9,328,2,204,0)=" "
^XMB(3.9,328,2,205,0)="FORMULARY ITEMS"
^XMB(3.9,328,2,206,0)="   ASCENSIA CONTOUR (GLUCOSE) TEST STRIP"
^XMB(3.9,328,2,207,0)="   BALSALAZIDE DISODIUM 750MG CAP"
^XMB(3.9,328,2,208,0)="   CHONDROITIN NA 40MG/HYALURONATE 30MG/ML INJ,OPH,SYRINGE,0.75ML"
^XMB(3.9,328,2,209,0)="   CHONDROITIN NA 40MG/HYALURONATE NA 30MG/ML INJ,OPH,SYRINGE,0.5ML"
^XMB(3.9,328,2,210,0)="   CLOMIPRAMINE HCL 25MG CAP"
^XMB(3.9,328,2,211,0)="   CLOMIPRAMINE HCL 25MG CAP,UD"
^XMB(3.9,328,2,212,0)="   CLOMIPRAMINE HCL 50MG CAP"
^XMB(3.9,328,2,213,0)="   CLOMIPRAMINE HCL 50MG CAP,UD"
^XMB(3.9,328,2,214,0)="   CLOMIPRAMINE HCL 75MG CAP,UD"
^XMB(3.9,328,2,215,0)="   DILTIAZEM (INWOOD) 420MG CAP,SA"
^XMB(3.9,328,2,216,0)="   JEVITY 1 CAL LIQUID"
^XMB(3.9,328,2,217,0)="   MEDICAL ADHESIVE H#7730"
^XMB(3.9,328,2,218,0)="   MONONESSA TAB,28"
^XMB(3.9,328,2,219,0)="   NUTREN 1.0 LIQUID"
^XMB(3.9,328,2,220,0)="   NUTREN 1.0 LIQUID VANILLA"
^XMB(3.9,328,2,221,0)="   ONDANSETRON HCL 0.64MG/ML/DEXTROSE 5% INJ,BAG,50ML"
^XMB(3.9,328,2,222,0)="   ONDANSETRON HCL 2MG/ML INJ,SOLN"
^XMB(3.9,328,2,223,0)="   OXYCODONE HCL 10MG/ACETAMINOPHEN 400MG TAB"
^XMB(3.9,328,2,224,0)="   OXYCODONE HCL 2.5MG/ACETAMINOPHEN 400MG TAB"
^XMB(3.9,328,2,225,0)="   OXYCODONE HCL 5MG/ACETAMINOPHEN 400MG TAB"
^XMB(3.9,328,2,226,0)="   OXYCODONE HCL 7.5MG/ACETAMINOPHEN 400MG TAB"
^XMB(3.9,328,2,227,0)="   POVIDONE IODINE 5% SOLN,OPH"
^XMB(3.9,328,2,228,0)="   POVIDONE SOLN,OPH"
^XMB(3.9,328,2,229,0)="   PRODIGY (GLUCOSE) TEST STRIP"
^XMB(3.9,328,2,230,0)="   PROPARACAINE HCL 0.5% SOLN,OPH"
^XMB(3.9,328,2,231,0)="   SODIUM HYPOCHLORITE 0.125% SOLN,TOP"
^XMB(3.9,328,2,232,0)="   TRINESSA TAB,28"
^XMB(3.9,328,2,233,0)="   VARENICLINE TARTRATE 0.5MG TAB"
^XMB(3.9,328,2,234,0)="   VARENICLINE TARTRATE 1MG TAB"
^XMB(3.9,328,2,235,0)="   VARENICLINE TARTRATE 1MG TAB,56"
^XMB(3.9,328,2,236,0)="   VARENICLINE TARTRATE TAB STARTER PACK,53"
^XMB(3.9,328,2,237,0)=" "
^XMB(3.9,328,2,238,0)="NON-FORMULARY ITEMS"
^XMB(3.9,328,2,239,0)="   ETODOLAC 400MG TAB,SA"
^XMB(3.9,328,2,240,0)="   ETODOLAC 500MG TAB,SA"
^XMB(3.9,328,2,241,0)="   ETODOLAC 600MG TAB,SA"
^XMB(3.9,328,2,242,0)="   LIDOCAINE HCL 2% SOLN,TOP URH"
^XMB(3.9,328,2,243,0)="   POVIDONE IODINE 5% SOLN,TOP"
^XMB(3.9,328,2,244,0)="   SAQUINAVIR 200MG (FORTOVASE) CAP"
^XMB(3.9,328,2,245,0)=" "
^XMB(3.9,328,2,246,0)="The following active VA Products are no longer marked for CMOP."
^XMB(3.9,328,2,247,0)="All local drug file entries matched to these VA Products will"
^XMB(3.9,328,2,248,0)="be UNMARKED for CMOP.  In order to have these entries dispensed"
^XMB(3.9,328,2,249,0)="by CMOP any local DRUG file (#50) entries matched to these"
^XMB(3.9,328,2,250,0)="products must be re-matched to another VA product that is actively"
^XMB(3.9,328,2,251,0)="marked for CMOP dispensing."
^XMB(3.9,328,2,252,0)=" "
^XMB(3.9,328,2,253,0)="   ECULIZUMAB 10MG/ML INJ,SOLN    E0484"
^XMB(3.9,328,2,254,0)="   LANSOPRAZOLE 15MG CAP,SA    L0161"
^XMB(3.9,328,2,255,0)="   LANSOPRAZOLE 15MG CAP,SA,UD    L0246"
^XMB(3.9,328,2,256,0)="   LANSOPRAZOLE 30MG CAP,SA    L0162"
^XMB(3.9,328,2,257,0)="   LANSOPRAZOLE 30MG CAP,SA,UD    L0247"
^XMB(3.9,328,2,258,0)="   OMEPRAZOLE 10MG CAP,SA    O0070"
^XMB(3.9,328,2,259,0)="   OMEPRAZOLE 10MG CAP,SA,UD    O0105"
^XMB(3.9,328,2,260,0)="   OMEPRAZOLE 20MG CAP,SA    O0005"
^XMB(3.9,328,2,261,0)="   OMEPRAZOLE 20MG CAP,SA,UD    O0106"
^XMB(3.9,328,2,262,0)="   OMEPRAZOLE 40MG CAP,EC,UD    O0208"
^XMB(3.9,328,2,263,0)="   OMEPRAZOLE 40MG CAP,SA    O0084"
^XMB(3.9,328,2,264,0)="   PHOSPHOTIDYLSERINE CAP/TAB    P0792"
^XMB(3.9,328,6,0)="^3.911A^3^3"
^XMB(3.9,328,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,328,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,328,6,3,0)="ORMSBY,SKIP"
^XMB(3.9,328,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,328,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,328,6,"B","ORMSBY,SKIP",3)=""
^XMB(3.9,329,0)="UPDATED INTERACTIONS^NDF MANAGER^3071227.060807"
^XMB(3.9,329,.6)="3071227"
^XMB(3.9,329,1,0)="^3.91A^3^3"
^XMB(3.9,329,1,1,0)="1"
^XMB(3.9,329,1,2,0)="63"
^XMB(3.9,329,1,3,0)="68"
^XMB(3.9,329,1,"C",1,1)=""
^XMB(3.9,329,1,"C",63,2)=""
^XMB(3.9,329,1,"C",68,3)=""
^XMB(3.9,329,2,0)="^^113^113^3071227"
^XMB(3.9,329,2,1,0)="The following interactions in National Drug File (NDF) have been added,"
^XMB(3.9,329,2,2,0)="edited or inactivated.  These changes are the result of review and"
^XMB(3.9,329,2,3,0)="recommendations from the NDF support group."
^XMB(3.9,329,2,4,0)=" "
^XMB(3.9,329,2,5,0)="ADDED INTERACTIONS"
^XMB(3.9,329,2,6,0)=" "
^XMB(3.9,329,2,7,0)="   ACARBOSE/PRAMLINTIDE                               Critical"
^XMB(3.9,329,2,8,0)="   ACYCLOVIR/TIZANIDINE                               Critical"
^XMB(3.9,329,2,9,0)="   AMIODARONE/OFLOXACIN                               Significant"
^XMB(3.9,329,2,10,0)="   ATAZANAVIR SO4/SUNITINIB                           Significant"
^XMB(3.9,329,2,11,0)="   ATORVASTATIN CALCIUM/RIFAMPIN                      Significant"
^XMB(3.9,329,2,12,0)="   ATROPINE/PRAMLINTIDE                               Critical"
^XMB(3.9,329,2,13,0)="   BEXAROTENE/GEMFIBROZIL                             Significant"
^XMB(3.9,329,2,14,0)="   BOSENTAN/FLUCONAZOLE                               Significant"
^XMB(3.9,329,2,15,0)="   BOSENTAN/ITRACONAZOLE                              Significant"
^XMB(3.9,329,2,16,0)="   BOSENTAN/KETOCONAZOLE                              Significant"
^XMB(3.9,329,2,17,0)="   BOSENTAN/VORICONAZOLE                              Significant"
^XMB(3.9,329,2,18,0)="   BUSPIRONE/PHENELZINE                               Critical"
^XMB(3.9,329,2,19,0)="   CARBAMAZEPINE/SUNITINIB                            Significant"
^XMB(3.9,329,2,20,0)="   CIMETIDINE/TIZANIDINE                              Critical"
^XMB(3.9,329,2,21,0)="   CLARITHROMYCIN/GRAPEFRUIT EXTRACT                  Significant"
^XMB(3.9,329,2,22,0)="   CLARITHROMYCIN/SUNITINIB                           Significant"
^XMB(3.9,329,2,23,0)="   CLOTRIMAZOLE/TACROLIMUS                            Significant"
^XMB(3.9,329,2,24,0)="   CYCLOSPORINE/EZETIMIBE                             Significant"
^XMB(3.9,329,2,25,0)="   CYCLOSPORINE/MICAFUNGIN NA                         Significant"
^XMB(3.9,329,2,26,0)="   DAUNORUBICIN/TRASTUZUMAB                           Critical"
^XMB(3.9,329,2,27,0)="   DEXAMETHASONE/SUNITINIB                            Significant"
^XMB(3.9,329,2,28,0)="   DIAZEPAM/RIFABUTIN                                 Significant"
^XMB(3.9,329,2,29,0)="   DIAZEPAM/RIFAPENTINE                               Significant"
^XMB(3.9,329,2,30,0)="   DOXORUBICIN/TRASTUZUMAB                            Critical"
^XMB(3.9,329,2,31,0)="   EPIRUBICIN/TRASTUZUMAB                             Critical"
^XMB(3.9,329,2,32,0)="   ERYTHROMYCIN/GRAPEFRUIT EXTRACT                    Significant"
^XMB(3.9,329,2,33,0)="   FAMOTIDINE/TIZANIDINE                              Critical"
^XMB(3.9,329,2,34,0)="   GATIFLOXACIN/TIZANIDINE                            Critical"
^XMB(3.9,329,2,35,0)="   GEMFIBROZIL/PIOGLITAZONE HCL                       Significant"
^XMB(3.9,329,2,36,0)="   HYPERICUM PERFORATUM (ST. JOHN'S WORT)/SUNITINIB   Significant"
^XMB(3.9,329,2,37,0)="   IDARUBICIN/TRASTUZUMAB                             Critical"
^XMB(3.9,329,2,38,0)="   INDINAVIR SULFATE/SUNITINIB                        Significant"
^XMB(3.9,329,2,39,0)="   INFLUENZA VIRUS,LIVE/SUNITINIB                     Significant"
^XMB(3.9,329,2,40,0)="   ITRACONAZOLE/SUNITINIB                             Significant"
^XMB(3.9,329,2,41,0)="   KETOCONAZOLE/SUNITINIB                             Significant"
^XMB(3.9,329,2,42,0)="   LEVOFLOXACIN/TIZANIDINE                            Critical"
^XMB(3.9,329,2,43,0)="   LINEZOLID/MIRTAZAPINE                              Significant"
^XMB(3.9,329,2,44,0)="   LINEZOLID/NORTRIPTYLINE                            Significant"
^XMB(3.9,329,2,45,0)="   LINEZOLID/PROTRIPTYLINE                            Significant"
^XMB(3.9,329,2,46,0)="   METHADONE/STAVUDINE (d4T)                          Significant"
^XMB(3.9,329,2,47,0)="   METOCLOPRAMIDE/PRAMLINTIDE                         Critical"
^XMB(3.9,329,2,48,0)="   MEXILETINE/TIZANIDINE                              Critical"
^XMB(3.9,329,2,49,0)="   MIGLITOL/PRAMLINTIDE                               Critical"
^XMB(3.9,329,2,50,0)="   NEFAZODONE/SUNITINIB                               Significant"
^XMB(3.9,329,2,51,0)="   NELFINAVIR MESYLATE/OMEPRAZOLE                     Significant"
^XMB(3.9,329,2,52,0)="   NELFINAVIR MESYLATE/SUNITINIB                      Significant"
^XMB(3.9,329,2,53,0)="   NORFLOXACIN/TIZANIDINE                             Critical"
^XMB(3.9,329,2,54,0)="   OFLOXACIN/TIZANIDINE                               Critical"
^XMB(3.9,329,2,55,0)="   PAROXETINE/PIMOZIDE                                Critical"
^XMB(3.9,329,2,56,0)="   PHENOBARBITAL/SUNITINIB                            Significant"
^XMB(3.9,329,2,57,0)="   PHENYTOIN/SUNITINIB                                Significant"
^XMB(3.9,329,2,58,0)="   PRAMLINTIDE/TEGASEROD MALEATE                      Critical"
^XMB(3.9,329,2,59,0)="   PRAVASTATIN/RIFAMPIN                               Significant"
^XMB(3.9,329,2,60,0)="   PROPAFENONE/TIZANIDINE                             Critical"
^XMB(3.9,329,2,61,0)="   RIFABUTIN/SUNITINIB                                Significant"
^XMB(3.9,329,2,62,0)="   RIFABUTIN/TRIAZOLAM                                Significant"
^XMB(3.9,329,2,63,0)="   RIFAMPIN/SIMVASTATIN                               Significant"
^XMB(3.9,329,2,64,0)="   RIFAMPIN/SUNITINIB                                 Significant"
^XMB(3.9,329,2,65,0)="   RIFAMPIN/TRIAZOLAM                                 Significant"
^XMB(3.9,329,2,66,0)="   RIFAPENTINE/SUNITINIB                              Significant"
^XMB(3.9,329,2,67,0)="   RIFAPENTINE/TRIAZOLAM                              Significant"
^XMB(3.9,329,2,68,0)="   RITONAVIR/SUNITINIB                                Significant"
^XMB(3.9,329,2,69,0)="   SAQUINAVIR/SUNITINIB                               Significant"
^XMB(3.9,329,2,70,0)="   SUNITINIB/TELITHROMYCIN                            Significant"
^XMB(3.9,329,2,71,0)="   SUNITINIB/VORICONAZOLE                             Significant"
^XMB(3.9,329,2,72,0)="   TIZANIDINE/VERAPAMIL                               Critical"
^XMB(3.9,329,2,73,0)="   TIZANIDINE/ZILEUTON                                Critical"
^XMB(3.9,329,2,74,0)=" "
^XMB(3.9,329,2,75,0)="EDITED INTERACTIONS"
^XMB(3.9,329,2,76,0)=" "
^XMB(3.9,329,2,77,0)="   ALPRAZOLAM/INDINAVIR SULFATE                       Critical"
^XMB(3.9,329,2,78,0)=" "
^XMB(3.9,329,2,79,0)="INACTIVATED INTERACTIONS"
^XMB(3.9,329,2,80,0)=" "
^XMB(3.9,329,2,81,0)="   NONE"
^XMB(3.9,329,2,82,0)=" "
^XMB(3.9,329,2,83,0)="The following products have been flagged for exclusion from drug-drug"
^XMB(3.9,329,2,84,0)="interaction checks."
^XMB(3.9,329,2,85,0)=" "
^XMB(3.9,329,2,86,0)="AEROCHAMBER MAX W/MASK LARGE"
^XMB(3.9,329,2,87,0)="AEROCHAMBER MAX W/MASK MED"
^XMB(3.9,329,2,88,0)="AEROCHAMBER MAX W/MASK SMALL"
^XMB(3.9,329,2,89,0)="AEROCHAMBER Z-STAT PLUS W/MASK LARGE"
^XMB(3.9,329,2,90,0)="AEROCHAMBER Z-STAT PLUS W/MASK MED"
^XMB(3.9,329,2,91,0)="AEROCHAMBER Z-STAT PLUS W/MASK SMALL"
^XMB(3.9,329,2,92,0)="ANTHRALIN PWDR"
^XMB(3.9,329,2,93,0)="ASCENSIA CONTOUR (GLUCOSE) TEST STRIP"
^XMB(3.9,329,2,94,0)="BARRIER,OSTOMY,NEW IMAGE H#14903"
^XMB(3.9,329,2,95,0)="BELT,SUPPORT 9IN XX-LG NU-HOPE #6469"
^XMB(3.9,329,2,96,0)="CATHETER,INTERMITTENT PERSONAL 10FR ROCHESTER #63610"
^XMB(3.9,329,2,97,0)="CATHETER,INTERMITTENT PERSONAL 12FR ROCHESTER #63612"
^XMB(3.9,329,2,98,0)="CATHETER,INTERMITTENT PERSONAL 14FR ROCHESTER #63614"
^XMB(3.9,329,2,99,0)="CATHETER,INTERMITTENT PERSONAL 16FR ROCHESTER #63616"
^XMB(3.9,329,2,100,0)="CATHETER,INTERMITTENT PERSONAL 18FR ROCHESTER #63618"
^XMB(3.9,329,2,101,0)="DIMETHICONE 1% CREAM,TOP"
^XMB(3.9,329,2,102,0)="INCONT LINER DIGNITY THINSERT"
^XMB(3.9,329,2,103,0)="LANCET,FINGER STICK SAFETY 21G 1.8MM"
^XMB(3.9,329,2,104,0)="LANCET,FINGER STICK SAFETY 21G 2.2MM"
^XMB(3.9,329,2,105,0)="LANCET,FINGER STICK SAFETY 26G 1.8MM"
^XMB(3.9,329,2,106,0)="POLYVINYL ALCOHOL 2.7%/POVIDONE 2% SOLN,OPH"
^XMB(3.9,329,2,107,0)="POUCH,CLOSED,PREMIUM H#82300"
^XMB(3.9,329,2,108,0)="POUCH,CLOSED,PREMIUM H#82400"
^XMB(3.9,329,2,109,0)="POUCH,DRAINABLE,ASSURA COLOPLAST #15860"
^XMB(3.9,329,2,110,0)="POUCH,DRAINABLE,PREMIER H#88300"
^XMB(3.9,329,2,111,0)="PRODIGY (GLUCOSE) TEST STRIP"
^XMB(3.9,329,2,112,0)="SODIUM HYPOCHLORITE 0.125% SOLN,TOP"
^XMB(3.9,329,2,113,0)="URINARY DRAINAGE BAG BARD #154104"
^XMB(3.9,329,6,0)="^3.911A^3^3"
^XMB(3.9,329,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,329,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,329,6,3,0)="ORMSBY,SKIP"
^XMB(3.9,329,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,329,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,329,6,"B","ORMSBY,SKIP",3)=""
^XMB(3.9,330,0)="DRUGS UNMATCHED FROM NATIONAL DRUG FILE^NDF MANAGER^3071227.060813^^^^P"
^XMB(3.9,330,.6)="3071227"
^XMB(3.9,330,1,0)="^3.91A^3^3"
^XMB(3.9,330,1,1,0)="1^0^3071227.061701^^^^^^1^3071227.061701"
^XMB(3.9,330,1,2,0)="63"
^XMB(3.9,330,1,3,0)="68"
^XMB(3.9,330,1,"C",1,1)=""
^XMB(3.9,330,1,"C",63,2)=""
^XMB(3.9,330,1,"C",68,3)=""
^XMB(3.9,330,2,0)="^^64^64^3071227"
^XMB(3.9,330,2,1,0)=" "
^XMB(3.9,330,2,2,0)="The following active entries in your DRUG file (#50) have been"
^XMB(3.9,330,2,3,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,330,2,4,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,330,2,5,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,330,2,6,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,330,2,7,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,330,2,8,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,330,2,9,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,330,2,10,0)="products immediately.  You may also need to match a new"
^XMB(3.9,330,2,11,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,330,2,12,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,330,2,13,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,330,2,14,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,330,2,15,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,330,2,16,0)="matching process."
^XMB(3.9,330,2,17,0)=" "
^XMB(3.9,330,2,18,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,330,2,19,0)="                                                                    DATE"
^XMB(3.9,330,2,20,0)=" "
^XMB(3.9,330,2,21,0)="HOLLISTER #7730 ADHESIVE SPRAY 6OZ                    4956"
^XMB(3.9,330,2,22,0)="    (CMOP XS127)             MEDICAL ADHESIVE H#7730,180GM      4/12/2007"
^XMB(3.9,330,2,23,0)=" "
^XMB(3.9,330,2,24,0)="The following investigational entries in your DRUG file (#50) have been"
^XMB(3.9,330,2,25,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,330,2,26,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,330,2,27,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,330,2,28,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,330,2,29,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,330,2,30,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,330,2,31,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,330,2,32,0)="products immediately.  You may also need to match a new"
^XMB(3.9,330,2,33,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,330,2,34,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,330,2,35,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,330,2,36,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,330,2,37,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,330,2,38,0)="matching process."
^XMB(3.9,330,2,39,0)=" "
^XMB(3.9,330,2,40,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,330,2,41,0)="                                                                    DATE"
^XMB(3.9,330,2,42,0)=" "
^XMB(3.9,330,2,43,0)="  NONE"
^XMB(3.9,330,2,44,0)=" "
^XMB(3.9,330,2,45,0)="The following inactive entries in your DRUG file (#50) have been"
^XMB(3.9,330,2,46,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,330,2,47,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,330,2,48,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,330,2,49,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,330,2,50,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,330,2,51,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,330,2,52,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,330,2,53,0)="products immediately.  You may also need to match a new"
^XMB(3.9,330,2,54,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,330,2,55,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,330,2,56,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,330,2,57,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,330,2,58,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,330,2,59,0)="matching process."
^XMB(3.9,330,2,60,0)=" "
^XMB(3.9,330,2,61,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,330,2,62,0)="                                                                    DATE"
^XMB(3.9,330,2,63,0)=" "
^XMB(3.9,330,2,64,0)="  NONE"
^XMB(3.9,330,6,0)="^3.911A^3^3"
^XMB(3.9,330,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,330,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,330,6,3,0)="ORMSBY,SKIP"
^XMB(3.9,330,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,330,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,330,6,"B","ORMSBY,SKIP",3)=""
^XMB(3.9,331,0)="INTERACTIONS and ALLERGIES UPDATED^NDF MANAGER^3071227.060847"
^XMB(3.9,331,.6)="3071227"
^XMB(3.9,331,1,0)="^3.91A^3^3"
^XMB(3.9,331,1,1,0)="1"
^XMB(3.9,331,1,2,0)="63"
^XMB(3.9,331,1,3,0)="68"
^XMB(3.9,331,1,"C",1,1)=""
^XMB(3.9,331,1,"C",63,2)=""
^XMB(3.9,331,1,"C",68,3)=""
^XMB(3.9,331,2,0)="^^8^8^3071227"
^XMB(3.9,331,2,1,0)=" "
^XMB(3.9,331,2,2,0)="No DRUG INTERACTIONS were updated due to Primary Ingredients being"
^XMB(3.9,331,2,3,0)="changed to Non-Primary ingredients in the Data Update."
^XMB(3.9,331,2,4,0)=" "
^XMB(3.9,331,2,5,0)=" "
^XMB(3.9,331,2,6,0)="No PATIENT ALLERGIES were updated due to Primary Ingredients being"
^XMB(3.9,331,2,7,0)="changed to Non-Primary ingredients during the Data Update."
^XMB(3.9,331,2,8,0)=" "
^XMB(3.9,331,6,0)="^3.911A^3^3"
^XMB(3.9,331,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,331,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,331,6,3,0)="ORMSBY,SKIP"
^XMB(3.9,331,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,331,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,331,6,"B","ORMSBY,SKIP",3)=""
^XMB(3.9,332,0)="LEX*2.0*49 Installation^.5^3071227.060851"
^XMB(3.9,332,.6)="3071227"
^XMB(3.9,332,1,0)="^3.91A^2^2"
^XMB(3.9,332,1,1,0)="1"
^XMB(3.9,332,1,2,0)="G.LEXINS@ISC-SLC.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,332,1,"AQUEUE",18,2)=""
^XMB(3.9,332,1,"C",1,1)=""
^XMB(3.9,332,1,"C","G.LEXINS@ISC-SLC.VA.GOV",2)=""
^XMB(3.9,332,2,0)="^^36^36^3071227"
^XMB(3.9,332,2,1,0)=" "
^XMB(3.9,332,2,2,0)=" Lexicon/ICD/CPT Installation"
^XMB(3.9,332,2,3,0)=" ============================"
^XMB(3.9,332,2,4,0)=" "
^XMB(3.9,332,2,5,0)="   As of:       Dec 27, 2007  06:08:51"
^XMB(3.9,332,2,6,0)="   In Account:  [EHR,EHR]   (Production)"
^XMB(3.9,332,2,7,0)="   Maint By:    Ormsby, Skip"
^XMB(3.9,332,2,8,0)=" "
^XMB(3.9,332,2,9,0)="   Started:     Dec 27, 2007  06:08:48"
^XMB(3.9,332,2,10,0)="   Finished:    Dec 27, 2007  06:08:51"
^XMB(3.9,332,2,11,0)="   Elapsed:     00:00:03"
^XMB(3.9,332,2,12,0)=" "
^XMB(3.9,332,2,13,0)=" "
^XMB(3.9,332,2,14,0)=" Removing broken Pointer in file #757.2 (ROF LEX*2.0*46)"
^XMB(3.9,332,2,15,0)=" "
^XMB(3.9,332,2,16,0)="     LEXCHGF      Deleted"
^XMB(3.9,332,2,17,0)="     LEXCHGF2     Deleted"
^XMB(3.9,332,2,18,0)="     LEXNDX7      Deleted"
^XMB(3.9,332,2,19,0)="     LEXXST5      Deleted"
^XMB(3.9,332,2,20,0)="     LEXXFI       Modified    Removed references to file #757.9"
^XMB(3.9,332,2,21,0)="     LEXXFI7      Modified    Removed references to file #757.9"
^XMB(3.9,332,2,22,0)="     LEXXST       Modified    Removed references to file #757.9"
^XMB(3.9,332,2,23,0)="     LEXXGI       Modified    Fix LEXICAL SERVICES UPDATE Protocol"
^XMB(3.9,332,2,24,0)="     LEXXGI2      Modified    Fix LEXICAL SERVICES UPDATE Protocol"
^XMB(3.9,332,2,25,0)="     LEXXII       Modified    Fix Install Message (Protocol)"
^XMB(3.9,332,2,26,0)="     ICDUPDT      Modified    Fix ICD CODE UPDATE EVENT Protocol"
^XMB(3.9,332,2,27,0)="     ICPTAU       Modified    Fix ICPT CODE UPDATE EVENT Protocol"
^XMB(3.9,332,2,28,0)="     PXRMCSD      Modified    Fix ICD/CPT Reminder Dialogs Message"
^XMB(3.9,332,2,29,0)="     PXRMCSTX     Modified    Fix ICD/CPT Reminder Taxonomies Message"
^XMB(3.9,332,2,30,0)=" "
^XMB(3.9,332,2,31,0)="  PXRM*2.0*9      Installed"
^XMB(3.9,332,2,32,0)="  ICD*18.0*28     Installed"
^XMB(3.9,332,2,33,0)="  ICPT*6.0*34     Installed"
^XMB(3.9,332,2,34,0)="  LEX*2.0*49      Installed"
^XMB(3.9,332,2,35,0)=" "
^XMB(3.9,332,2,36,0)="   Subscribing applications were notified"
^XMB(3.9,332,6,0)="^3.911A^2^2"
^XMB(3.9,332,6,1,0)="G.LEXINS@ISC-SLC.VA.GOV"
^XMB(3.9,332,6,2,0)="ORMSBY,SKIP"
^XMB(3.9,332,6,"B","G.LEXINS@ISC-SLC.VA.GOV",1)=""
^XMB(3.9,332,6,"B","ORMSBY,SKIP",2)=""
^XMB(3.9,333,0)="MAG*3.0*92 INSTALLATION^1^3071227.062112"
^XMB(3.9,333,.6)="3071227"
^XMB(3.9,333,1,0)="^3.91A^3^3"
^XMB(3.9,333,1,1,0)="1^0^3071227.062112^^^^^^^3071227.062112"
^XMB(3.9,333,1,2,0)="65"
^XMB(3.9,333,1,3,0)="G.IMAGING DEVELOPMENT TEAM@FORUM.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,333,1,"AQUEUE",18,3)=""
^XMB(3.9,333,1,"C",1,1)=""
^XMB(3.9,333,1,"C",65,2)=""
^XMB(3.9,333,1,"C","G.IMAGING DEVELOPMENT TEAM@FOR",3)=""
^XMB(3.9,333,2,0)="^^13^13^3071227"
^XMB(3.9,333,2,1,0)="PACKAGE INSTALL"
^XMB(3.9,333,2,2,0)="SITE: BETA.VISTA-OFFICE.ORG"
^XMB(3.9,333,2,3,0)="PACKAGE: MAG*3.0*92"
^XMB(3.9,333,2,4,0)="Version: 3.0"
^XMB(3.9,333,2,5,0)="Start time: Dec 27, 2007@06:21:12"
^XMB(3.9,333,2,6,0)="Completion time: Dec 27, 2007@06:21:12"
^XMB(3.9,333,2,7,0)="Run time: "
^XMB(3.9,333,2,8,0)="Environment: EHR^EHR^skip-PC^EHR:CACHEWEB"
^XMB(3.9,333,2,9,0)="FILE COMMENT: BUILD 2007 June & July  ;Created on Aug 27, 2007@18:54:36"
^XMB(3.9,333,2,10,0)="DATE: 3071227.062112"
^XMB(3.9,333,2,11,0)="Installed by: ORMSBY,SKIP"
^XMB(3.9,333,2,12,0)="Install Name: MAG*3.0*92"
^XMB(3.9,333,2,13,0)="Distribution Date: Jan 10, 2007"
^XMB(3.9,333,6,0)="^3.911A^2^2"
^XMB(3.9,333,6,1,0)="G.MAG SERVER"
^XMB(3.9,333,6,2,0)="ORMSBY,SKIP"
^XMB(3.9,333,6,"B","G.MAG SERVER",1)=""
^XMB(3.9,333,6,"B","ORMSBY,SKIP",2)=""
^XMB(3.9,334,0)="MAG*3.0*77 INSTALLATION^1^3071227.062113"
^XMB(3.9,334,.6)="3071227"
^XMB(3.9,334,1,0)="^3.91A^3^3"
^XMB(3.9,334,1,1,0)="1^0^3071227.062113^^^^^^^3071227.062113"
^XMB(3.9,334,1,2,0)="65"
^XMB(3.9,334,1,3,0)="G.IMAGING DEVELOPMENT TEAM@FORUM.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,334,1,"AQUEUE",18,3)=""
^XMB(3.9,334,1,"C",1,1)=""
^XMB(3.9,334,1,"C",65,2)=""
^XMB(3.9,334,1,"C","G.IMAGING DEVELOPMENT TEAM@FOR",3)=""
^XMB(3.9,334,2,0)="^^13^13^3071227"
^XMB(3.9,334,2,1,0)="PACKAGE INSTALL"
^XMB(3.9,334,2,2,0)="SITE: BETA.VISTA-OFFICE.ORG"
^XMB(3.9,334,2,3,0)="PACKAGE: MAG*3.0*77"
^XMB(3.9,334,2,4,0)="Version: 3.0"
^XMB(3.9,334,2,5,0)="Start time: Dec 27, 2007@06:21:13"
^XMB(3.9,334,2,6,0)="Completion time: Dec 27, 2007@06:21:13"
^XMB(3.9,334,2,7,0)="Run time: "
^XMB(3.9,334,2,8,0)="Environment: EHR^EHR^skip-PC^EHR:CACHEWEB"
^XMB(3.9,334,2,9,0)="FILE COMMENT: BUILD 2007 June & July  ;Created on Aug 27, 2007@18:54:36"
^XMB(3.9,334,2,10,0)="DATE: 3071227.062113"
^XMB(3.9,334,2,11,0)="Installed by: ORMSBY,SKIP"
^XMB(3.9,334,2,12,0)="Install Name: MAG*3.0*77"
^XMB(3.9,334,2,13,0)="Distribution Date: Dec 07, 2006"
^XMB(3.9,334,6,0)="^3.911A^2^2"
^XMB(3.9,334,6,1,0)="G.MAG SERVER"
^XMB(3.9,334,6,2,0)="ORMSBY,SKIP"
^XMB(3.9,334,6,"B","G.MAG SERVER",1)=""
^XMB(3.9,334,6,"B","ORMSBY,SKIP",2)=""
^XMB(3.9,335,0)="DATA UPDATE FOR NDF^NDF MANAGER^3071227.062215"
^XMB(3.9,335,.6)="3071227"
^XMB(3.9,335,1,0)="^3.91A^3^3"
^XMB(3.9,335,1,1,0)="1"
^XMB(3.9,335,1,2,0)="63"
^XMB(3.9,335,1,3,0)="68"
^XMB(3.9,335,1,"C",1,1)=""
^XMB(3.9,335,1,"C",63,2)=""
^XMB(3.9,335,1,"C",68,3)=""
^XMB(3.9,335,2,0)="^^267^267^3071227"
^XMB(3.9,335,2,1,0)=" "
^XMB(3.9,335,2,2,0)="The following VA Products have been added to the National"
^XMB(3.9,335,2,3,0)="Drug File.  You may wish to review, then match or unmatch"
^XMB(3.9,335,2,4,0)="local drug file entries based on this updated information."
^XMB(3.9,335,2,5,0)=" "
^XMB(3.9,335,2,6,0)="   ALENDRONATE SODIUM 70MG/CHOLECALCIFEROL 5600UNIT TAB"
^XMB(3.9,335,2,7,0)="    (CMOP - A1356)           (DISPENSE UNIT - TAB)"
^XMB(3.9,335,2,8,0)="     000006-0270-44   "
^XMB(3.9,335,2,9,0)="   ARFORMOTEROL TARTRATE 7.5MCG/ML SOLN,INHL,2ML"
^XMB(3.9,335,2,10,0)="    (CMOP - A1357)           (DISPENSE UNIT - EA)"
^XMB(3.9,335,2,11,0)="     063402-0911-30   "
^XMB(3.9,335,2,12,0)="   AZITHROMYCIN DIHYDRATE 2.5GM/VIL INJ"
^XMB(3.9,335,2,13,0)="    (CMOP - A1355)           (DISPENSE UNIT - VI)"
^XMB(3.9,335,2,14,0)="     000703-9089-01   "
^XMB(3.9,335,2,15,0)="   BRIEF,PROTECTION PLUS #MSC346000"
^XMB(3.9,335,2,16,0)="    (CMOP - XV284)           (DISPENSE UNIT - EA)"
^XMB(3.9,335,2,17,0)="     990009-3460-00   "
^XMB(3.9,335,2,18,0)="   BUDESONIDE 180MCG/INHL INHL,ORAL,120"
^XMB(3.9,335,2,19,0)="    (CMOP - B0567)           (DISPENSE UNIT - INHALER)"
^XMB(3.9,335,2,20,0)="     000186-0916-12   "
^XMB(3.9,335,2,21,0)="   BUDESONIDE 90MCG/INHL INHL,ORAL,60"
^XMB(3.9,335,2,22,0)="    (CMOP - B0568)           (DISPENSE UNIT - INHALER)"
^XMB(3.9,335,2,23,0)="     000186-0917-06   "
^XMB(3.9,335,2,24,0)="   BUPLEURUM CAP/TAB"
^XMB(3.9,335,2,25,0)="    (CMOP - B0569)           (DISPENSE UNIT - CAP/TAB)"
^XMB(3.9,335,2,26,0)="     999115-6455-01   "
^XMB(3.9,335,2,27,0)="   CATHETER,SUCTION,14FR M#MDYND40972"
^XMB(3.9,335,2,28,0)="    (CMOP - XV280)           (DISPENSE UNIT - EA)"
^XMB(3.9,335,2,29,0)="     999901-0409-72   "
^XMB(3.9,335,2,30,0)="   CATNIP PWDR"
^XMB(3.9,335,2,31,0)="    (CMOP - C1275)           (DISPENSE UNIT - GM)"
^XMB(3.9,335,2,32,0)="     000395-0521-91   "
^XMB(3.9,335,2,33,0)="   CODONOPSIS CAP/TAB"
^XMB(3.9,335,2,34,0)="    (CMOP - C1276)           (DISPENSE UNIT - CAP/TAB)"
^XMB(3.9,335,2,35,0)="     999554-5785-01   "
^XMB(3.9,335,2,36,0)="   CTM 8MG/METHSCOPOLAMINE 2.5MG/P-EPHRINE 40MG TAB,SA"
^XMB(3.9,335,2,37,0)="    (CMOP - C1274)           (DISPENSE UNIT - TAB)"
^XMB(3.9,335,2,38,0)="     064543-0090-01   "
^XMB(3.9,335,2,39,0)="   DEXTROMETHORPHAN HBR 15MG CAP"
^XMB(3.9,335,2,40,0)="    (CMOP - D0748)           (DISPENSE UNIT - CAP)"
^XMB(3.9,335,2,41,0)="     011822-3172-00   "
^XMB(3.9,335,2,42,0)="   DRESSING,MAXORB EXTRA 12IN ROPE #MSC7012"
^XMB(3.9,335,2,43,0)="    (CMOP - XV271)           (DISPENSE UNIT - EA)"
^XMB(3.9,335,2,44,0)="     999009-0070-12   "
^XMB(3.9,335,2,45,0)="   ELLIOTTS B INJ,SOLN,10ML"
^XMB(3.9,335,2,46,0)="    (CMOP - E0490)           (DISPENSE UNIT - AMP)"
^XMB(3.9,335,2,47,0)="     067871-0007-10   "
^XMB(3.9,335,2,48,0)="   EMU OIL,TOP"
^XMB(3.9,335,2,49,0)="    (CMOP - E0489)           (DISPENSE UNIT - ML)"
^XMB(3.9,335,2,50,0)="     990125-5356-01   "
^XMB(3.9,335,2,51,0)="   ERTAPENEM 1GM/VIL INJ ADD-VANTAGE"
^XMB(3.9,335,2,52,0)="    (CMOP - E0487)           (DISPENSE UNIT - VI)"
^XMB(3.9,335,2,53,0)="     000006-3845-71   "
^XMB(3.9,335,2,54,0)="   ETANERCEPT 25MG/0.5ML INJ SYRINGE"
^XMB(3.9,335,2,55,0)="    (CMOP - E0488)           (DISPENSE UNIT - SYRINGE)"
^XMB(3.9,335,2,56,0)="     058406-0455-04   "
^XMB(3.9,335,2,57,0)="   GUAIFENESIN 400MG TAB"
^XMB(3.9,335,2,58,0)="    (CMOP - G0281)           (DISPENSE UNIT - TAB)"
^XMB(3.9,335,2,59,0)="     000904-5758-52   "
^XMB(3.9,335,2,60,0)="   GUAR GUM (BENEFIBER) TAB,CHEWABLE"
^XMB(3.9,335,2,61,0)="    (CMOP - G0280)           (DISPENSE UNIT - TAB)"
^XMB(3.9,335,2,62,0)="     000067-0047-10   "
^XMB(3.9,335,2,63,0)="   HOODIA GORDONII CAP/TAB"
^XMB(3.9,335,2,64,0)="    (CMOP - H0517)           (DISPENSE UNIT - CAP/TAB)"
^XMB(3.9,335,2,65,0)="     011845-0145-45   "
^XMB(3.9,335,2,66,0)="   HYDROCORTISONE BUTEPRATE 0.1% EMOLLIENT CREAM,TOP"
^XMB(3.9,335,2,67,0)="    (CMOP - H0518)           (DISPENSE UNIT - GM)"
^XMB(3.9,335,2,68,0)="     000496-0821-15   000496-0821-45   000496-0821-25   "
^XMB(3.9,335,2,69,0)="   INCONT LINER PREVAIL GUARDS #PV-811"
^XMB(3.9,335,2,70,0)="    (CMOP - XV281)           (DISPENSE UNIT - EA)"
^XMB(3.9,335,2,71,0)="     990891-0811-01   "
^XMB(3.9,335,2,72,0)="   LANCET,PRESTIGE SMART"
^XMB(3.9,335,2,73,0)="    (CMOP - XV283)           (DISPENSE UNIT - EA)"
^XMB(3.9,335,2,74,0)="     056151-0142-60   "
^XMB(3.9,335,2,75,0)="   LANCET,ULTILET"
^XMB(3.9,335,2,76,0)="    (CMOP - XV282)           (DISPENSE UNIT - EA)"
^XMB(3.9,335,2,77,0)="     008326-2800-02   "
^XMB(3.9,335,2,78,0)="   LEUPROLIDE ACETATE (PEDIATRIC) 11.25MG/KIT INJ,SUSP,SA"
^XMB(3.9,335,2,79,0)="    (CMOP - L0391)           (DISPENSE UNIT - KIT)"
^XMB(3.9,335,2,80,0)="     000300-2282-01   "
^XMB(3.9,335,2,81,0)="   MAGNESIUM GLUCONATE 556MG (MAG 30MG) TAB"
^XMB(3.9,335,2,82,0)="    (CMOP - M0724)           (DISPENSE UNIT - TAB)"
^XMB(3.9,335,2,83,0)="     000182-4385-01   "
^XMB(3.9,335,2,84,0)="   METFORMIN HCL 1000MG/SITAGLIPTIN PHOSPHATE 50MG TAB"
^XMB(3.9,335,2,85,0)="    (CMOP - M0715)           (DISPENSE UNIT - TAB)"
^XMB(3.9,335,2,86,0)="     000006-0577-61   000006-0577-62   "
^XMB(3.9,335,2,87,0)="   METFORMIN HCL 500MG/SITAGLIPTIN PHOSPHATE 50MG TAB"
^XMB(3.9,335,2,88,0)="    (CMOP - M0714)           (DISPENSE UNIT - TAB)"
^XMB(3.9,335,2,89,0)="     000006-0575-61   000006-0575-62   "
^XMB(3.9,335,2,90,0)="   METHYLPHENIDATE HCL (METADATE CD) 10MG CAP,SA"
^XMB(3.9,335,2,91,0)="    (CMOP - M0717)           (DISPENSE UNIT - CAP)"
^XMB(3.9,335,2,92,0)="     053014-0579-07   "
^XMB(3.9,335,2,93,0)="   METHYLPHENIDATE HCL (METADATE CD) 40MG CAP,SA"
^XMB(3.9,335,2,94,0)="    (CMOP - M0718)           (DISPENSE UNIT - CAP)"
^XMB(3.9,335,2,95,0)="     053014-0582-07   "
^XMB(3.9,335,2,96,0)="   MORPHINE SO4 LIPOSOME 10MG/ML INJ,SUSP,1.5ML"
^XMB(3.9,335,2,97,0)="    (CMOP - M0723)           (DISPENSE UNIT - VI)"
^XMB(3.9,335,2,98,0)="     063481-0115-21   "
^XMB(3.9,335,2,99,0)="   MULTIVITAMIN/MINERALS COUGH-COLD CAP/TAB"
^XMB(3.9,335,2,100,0)="    (CMOP - M0719)           (DISPENSE UNIT - CAP/TAB)"
^XMB(3.9,335,2,101,0)="     990227-2243-01   "
^XMB(3.9,335,2,102,0)="   NUTREN RENAL LIQUID 1000ML"
^XMB(3.9,335,2,103,0)="    (CMOP - N0554)           (DISPENSE UNIT - BTL)"
^XMB(3.9,335,2,104,0)="     000065-9142-72   "
^XMB(3.9,335,2,105,0)="   NUTREN RENAL LIQUID VANILLA"
^XMB(3.9,335,2,106,0)="    (CMOP - N0555)           (DISPENSE UNIT - 250ML CAN)"
^XMB(3.9,335,2,107,0)="     000065-9142-70   "
^XMB(3.9,335,2,108,0)="   OSMOLITE 1 CAL LIQUID 1000ML"
^XMB(3.9,335,2,109,0)="    (CMOP - O0249)           (DISPENSE UNIT - BTL)"
^XMB(3.9,335,2,110,0)="     070074-0806-68   "
^XMB(3.9,335,2,111,0)="   OSMOLITE 1 CAL LIQUID 1500ML"
^XMB(3.9,335,2,112,0)="    (CMOP - O0250)           (DISPENSE UNIT - BTL)"
^XMB(3.9,335,2,113,0)="     070074-0526-01   "
^XMB(3.9,335,2,114,0)="   OSMOLITE 1 CAL LIQUID"
^XMB(3.9,335,2,115,0)="    (CMOP - O0248)           (DISPENSE UNIT - 240ML CAN)"
^XMB(3.9,335,2,116,0)="     070074-0407-09   "
^XMB(3.9,335,2,117,0)="   PAEONIA EXTRACT"
^XMB(3.9,335,2,118,0)="    (CMOP - P0829)           (DISPENSE UNIT - GM)"
^XMB(3.9,335,2,119,0)="     999457-8945-01   "
^XMB(3.9,335,2,120,0)="   PARICALCITOL 5MCG/ML INJ,SOLN,2ML"
^XMB(3.9,335,2,121,0)="    (CMOP - P0831)           (DISPENSE UNIT - VI)"
^XMB(3.9,335,2,122,0)="     000074-1658-02   "
^XMB(3.9,335,2,123,0)="   RASBURICASE 7.5MG/VIL INJ"
^XMB(3.9,335,2,124,0)="    (CMOP - R0211)           (DISPENSE UNIT - VI)"
^XMB(3.9,335,2,125,0)="     000024-5151-75   "
^XMB(3.9,335,2,126,0)="   RETAPAMULIN 1% OINT,TOP"
^XMB(3.9,335,2,127,0)="    (CMOP - R0214)           (DISPENSE UNIT - GM)"
^XMB(3.9,335,2,128,0)="     000007-5180-05   000007-5180-10   000007-5180-22   "
^XMB(3.9,335,2,129,0)="   RHO (D) IMMUNE GLOBULIN,HUMAN (WINRHO SDF) 15000UNT/VIL INJ"
^XMB(3.9,335,2,130,0)="    (CMOP - R0212)           (DISPENSE UNIT - VI)"
^XMB(3.9,335,2,131,0)="     000944-2967-09   "
^XMB(3.9,335,2,132,0)="   RHO (D) IMMUNE GLOBULIN,HUMAN (WINRHO SDF) 2500UNT/VIL INJ"
^XMB(3.9,335,2,133,0)="    (CMOP - R0215)           (DISPENSE UNIT - VI)"
^XMB(3.9,335,2,134,0)="     000944-2967-07   "
^XMB(3.9,335,2,135,0)="   SAFFLOWER OIL"
^XMB(3.9,335,2,136,0)="    (CMOP - S0519)           (DISPENSE UNIT - ML)"
^XMB(3.9,335,2,137,0)="     049452-6365-01   "
^XMB(3.9,335,2,138,0)="   SALICYLIC ACID 3% GEL,TOP"
^XMB(3.9,335,2,139,0)="    (CMOP - S0518)           (DISPENSE UNIT - GM)"
^XMB(3.9,335,2,140,0)="     011086-0038-01   "
^XMB(3.9,335,2,141,0)="   SALICYLIC ACID 6% SHAMPOO"
^XMB(3.9,335,2,142,0)="    (CMOP - S0516)           (DISPENSE UNIT - ML)"
^XMB(3.9,335,2,143,0)="     013548-0012-06   "
^XMB(3.9,335,2,144,0)="   SET,INFUSION ANIMAS #181-01"
^XMB(3.9,335,2,145,0)="    (CMOP - XV274)           (DISPENSE UNIT - EA)"
^XMB(3.9,335,2,146,0)="     999010-0182-11   "
^XMB(3.9,335,2,147,0)="   SET,INFUSION ANIMAS #181-02"
^XMB(3.9,335,2,148,0)="    (CMOP - XV278)           (DISPENSE UNIT - EA)"
^XMB(3.9,335,2,149,0)="     999010-0182-40   "
^XMB(3.9,335,2,150,0)="   SET,INFUSION ANIMAS #181-03"
^XMB(3.9,335,2,151,0)="    (CMOP - XV276)           (DISPENSE UNIT - EA)"
^XMB(3.9,335,2,152,0)="     999010-0182-13   "
^XMB(3.9,335,2,153,0)="   SET,INFUSION ANIMAS #182-01"
^XMB(3.9,335,2,154,0)="    (CMOP - XV272)           (DISPENSE UNIT - EA)"
^XMB(3.9,335,2,155,0)="     999010-0182-01   "
^XMB(3.9,335,2,156,0)="   SET,INFUSION ANIMAS #182-02"
^XMB(3.9,335,2,157,0)="    (CMOP - XV279)           (DISPENSE UNIT - EA)"
^XMB(3.9,335,2,158,0)="     999010-0182-81   "
^XMB(3.9,335,2,159,0)="   SET,INFUSION ANIMAS #182-03"
^XMB(3.9,335,2,160,0)="    (CMOP - XV273)           (DISPENSE UNIT - EA)"
^XMB(3.9,335,2,161,0)="     999010-0182-03   "
^XMB(3.9,335,2,162,0)="   SET,INFUSION ANIMAS #183-00"
^XMB(3.9,335,2,163,0)="    (CMOP - XV277)           (DISPENSE UNIT - EA)"
^XMB(3.9,335,2,164,0)="     999010-0182-30   "
^XMB(3.9,335,2,165,0)="   SET,INFUSION ANIMAS #184-00"
^XMB(3.9,335,2,166,0)="    (CMOP - XV275)           (DISPENSE UNIT - EA)"
^XMB(3.9,335,2,167,0)="     999010-0184-00   "
^XMB(3.9,335,2,168,0)="   SOLBAR SPF-40 PABA-FREE CREAM,TOP"
^XMB(3.9,335,2,169,0)="    (CMOP - S0526)           (DISPENSE UNIT - GM)"
^XMB(3.9,335,2,170,0)="     990023-5112-01   "
^XMB(3.9,335,2,171,0)="   SOLBAR SPF-50 PABA-FREE CREAM,TOP"
^XMB(3.9,335,2,172,0)="    (CMOP - S0525)           (DISPENSE UNIT - GM)"
^XMB(3.9,335,2,173,0)="     990020-9876-01   "
^XMB(3.9,335,2,174,0)="   SUNSCREEN-45 PABA-FREE COMBINATION LOTION"
^XMB(3.9,335,2,175,0)="    (CMOP - S0521)           (DISPENSE UNIT - ML)"
^XMB(3.9,335,2,176,0)="     077939-0144-04   "
^XMB(3.9,335,2,177,0)="   SUNSCREEN-50 PABA-FREE COMBINATION LOTION"
^XMB(3.9,335,2,178,0)="    (CMOP - S0520)           (DISPENSE UNIT - ML)"
^XMB(3.9,335,2,179,0)="     999102-3831-01   "
^XMB(3.9,335,2,180,0)="   TAMOXIFEN 10MG/5ML SOLN,ORAL"
^XMB(3.9,335,2,181,0)="    (CMOP - T0637)           (DISPENSE UNIT - ML)"
^XMB(3.9,335,2,182,0)="     013632-0123-01   "
^XMB(3.9,335,2,183,0)="   WHEAT DEXTRIN (BENEFIBER) PWDR,ORAL"
^XMB(3.9,335,2,184,0)="    (CMOP - W0031)           (DISPENSE UNIT - GM)"
^XMB(3.9,335,2,185,0)="     000067-0044-62   "
^XMB(3.9,335,2,186,0)="   WHEAT DEXTRIN (BENEFIBER) TAB"
^XMB(3.9,335,2,187,0)="    (CMOP - W0032)           (DISPENSE UNIT - TAB)"
^XMB(3.9,335,2,188,0)="     000067-0049-78   "
^XMB(3.9,335,2,189,0)=" "
^XMB(3.9,335,2,190,0)="The National Formulary Indicator has changed for the following"
^XMB(3.9,335,2,191,0)="VA Products.  The National Formulary Indicator will automatically"
^XMB(3.9,335,2,192,0)="be changed in your local DRUG file (#50).  Please review the"
^XMB(3.9,335,2,193,0)="VISN and Local Formulary designations of these products and"
^XMB(3.9,335,2,194,0)="make appropriate changes."
^XMB(3.9,335,2,195,0)=" "
^XMB(3.9,335,2,196,0)="FORMULARY ITEMS"
^XMB(3.9,335,2,197,0)="   ACETYLCYSTEINE 200MG/ML (PF) SOLN,INJ"
^XMB(3.9,335,2,198,0)="   AMINOCAPROIC ACID 500MG TAB"
^XMB(3.9,335,2,199,0)="   ASPIRIN 120MG SUPP,RTL"
^XMB(3.9,335,2,200,0)="   ASPIRIN 125MG SUPP,RTL"
^XMB(3.9,335,2,201,0)="   ASPIRIN 130MG SUPP,RTL"
^XMB(3.9,335,2,202,0)="   ASPIRIN 195MG SUPP,RTL"
^XMB(3.9,335,2,203,0)="   ASPIRIN 200MG SUPP,RTL"
^XMB(3.9,335,2,204,0)="   ASPIRIN 300MG SUPP,RTL"
^XMB(3.9,335,2,205,0)="   ASPIRIN 325MG SUPP,RTL"
^XMB(3.9,335,2,206,0)="   ASPIRIN 600MG SUPP,RTL"
^XMB(3.9,335,2,207,0)="   ASPIRIN 60MG SUPP,RTL"
^XMB(3.9,335,2,208,0)="   ASPIRIN 650MG SUPP,RTL"
^XMB(3.9,335,2,209,0)="   AZITHROMYCIN DIHYDRATE 2.5GM/VIL INJ"
^XMB(3.9,335,2,210,0)="   CARRAKLENZ SOLN,SPRAY"
^XMB(3.9,335,2,211,0)="   CHONDROITIN NA 40MG/HYALURONATE 30MG/ML INJ,OPH,SYRINGE,0.75ML"
^XMB(3.9,335,2,212,0)="   CLONIDINE HCL 100MCG/ML INJ"
^XMB(3.9,335,2,213,0)="   CLONIDINE HCL 500MCG/ML INJ"
^XMB(3.9,335,2,214,0)="   CYCLOPENTOLATE HCL 0.2%/PHENYLEPHRINE HCL 1% SOLN,OPH"
^XMB(3.9,335,2,215,0)="   CYCLOPENTOLATE HCL 1%/PHENYLEPHRINE HCL 10% SOLN,OPH"
^XMB(3.9,335,2,216,0)="   DARUNAVIR ETHANOLATE 300MG TAB"
^XMB(3.9,335,2,217,0)="   DEXTRAN 0.1%/HYPROMELLOSE 0.8% (OCUCOAT) SOLN,OPH"
^XMB(3.9,335,2,218,0)="   DEXTRAN 0.1%/HYPROMELLOSE 0.8% (OCUCOAT) SOLN,OPH,1ML"
^XMB(3.9,335,2,219,0)="   ENALAPRILAT 1.25MG/ML INJ"
^XMB(3.9,335,2,220,0)="   ERTAPENEM 1GM/VIL INJ ADD-VANTAGE"
^XMB(3.9,335,2,221,0)="   ESTROGENS,CONJUGATED 5MG/ML INJ,SOLN"
^XMB(3.9,335,2,222,0)="   GUAIFENESIN 400MG TAB"
^XMB(3.9,335,2,223,0)="   HYALURONIDASE 150UNT/ML INJ"
^XMB(3.9,335,2,224,0)="   HYDROXYZINE HCL 10MG/5ML SYRUP"
^XMB(3.9,335,2,225,0)="   HYDROXYZINE PAMOATE 25MG/5ML SUSP"
^XMB(3.9,335,2,226,0)="   IBUPROFEN 100MG/5ML SUSP,BTL,5ML"
^XMB(3.9,335,2,227,0)="   IBUPROFEN 100MG/5ML SUSP,ORAL"
^XMB(3.9,335,2,228,0)="   IFOSFAMIDE 3GM/VIL INJ"
^XMB(3.9,335,2,229,0)="   IMIQUIMOD 5% CREAM,TOP,PKT,0.25GM"
^XMB(3.9,335,2,230,0)="   JEVITY 1.2 CAL LIQUID"
^XMB(3.9,335,2,231,0)="   JEVITY 1.5 CAL LIQUID"
^XMB(3.9,335,2,232,0)="   LEVOFLOXACIN 25MG/ML INJ"
^XMB(3.9,335,2,233,0)="   METHYLPHENIDATE HCL (METADATE CD) 10MG CAP,SA"
^XMB(3.9,335,2,234,0)="   METHYLPHENIDATE HCL (METADATE CD) 40MG CAP,SA"
^XMB(3.9,335,2,235,0)="   MYCOPHENOLATE MOFETIL HYDROCHLORIDE 500MG/VIL INJ,IV"
^XMB(3.9,335,2,236,0)="   MYCOPHENOLIC ACID 180MG TAB,EC"
^XMB(3.9,335,2,237,0)="   MYCOPHENOLIC ACID 360MG TAB,EC"
^XMB(3.9,335,2,238,0)="   NIACIN (NIACOR) 500MG TAB"
^XMB(3.9,335,2,239,0)="   NITROFURANTOIN MONOHYDRATE/MACROCRYSTALLINE 100MG CAP,SA"
^XMB(3.9,335,2,240,0)="   NUTREN 1.5 LIQUID"
^XMB(3.9,335,2,241,0)="   ORTHO TRI-CYCLEN TAB,28"
^XMB(3.9,335,2,242,0)="   ORTHO-CYCLEN TAB,28"
^XMB(3.9,335,2,243,0)="   PHENOBARBITAL NA 120MG/VIL INJ"
^XMB(3.9,335,2,244,0)="   PHENOBARBITAL NA 130MG/ML INJ"
^XMB(3.9,335,2,245,0)="   PHENOBARBITAL NA 32MG/ML INJ"
^XMB(3.9,335,2,246,0)="   PHENOBARBITAL NA 60MG/ML INJ"
^XMB(3.9,335,2,247,0)="   PHENOBARBITAL NA 65MG/ML INJ"
^XMB(3.9,335,2,248,0)="   RANITIDINE HCL 75MG TAB"
^XMB(3.9,335,2,249,0)="   SALICYLIC ACID 6% SHAMPOO"
^XMB(3.9,335,2,250,0)="   SECRETIN 16MCG/VIL INJ"
^XMB(3.9,335,2,251,0)="   SPRINTEC TAB,28"
^XMB(3.9,335,2,252,0)="   SUCRALFATE 500MG/5ML SUSP,ORAL"
^XMB(3.9,335,2,253,0)="   SUCRALFATE 500MG/5ML SUSP,ORAL,10ML"
^XMB(3.9,335,2,254,0)="   SULFAMETHOXAZOLE 200MG/TRIMETHOPRIM 40MG/5ML SUSP"
^XMB(3.9,335,2,255,0)="   TRI-PREVIFEM TAB,28"
^XMB(3.9,335,2,256,0)="   TRI-SPRINTEC TAB,28"
^XMB(3.9,335,2,257,0)=" "
^XMB(3.9,335,2,258,0)="NON-FORMULARY ITEMS"
^XMB(3.9,335,2,259,0)="   CLOFAZIMINE 100MG CAP"
^XMB(3.9,335,2,260,0)="   CLOFAZIMINE 50MG CAP"
^XMB(3.9,335,2,261,0)="   NEFAZODONE 100MG TAB"
^XMB(3.9,335,2,262,0)="   NEFAZODONE 150MG TAB"
^XMB(3.9,335,2,263,0)="   NEFAZODONE 200MG TAB"
^XMB(3.9,335,2,264,0)="   NEFAZODONE 250MG TAB"
^XMB(3.9,335,2,265,0)="   NEFAZODONE 50MG TAB"
^XMB(3.9,335,2,266,0)="   ZALCITABINE (ddC) 0.375MG TAB"
^XMB(3.9,335,2,267,0)="   ZALCITABINE (ddC) 0.75MG TAB"
^XMB(3.9,335,6,0)="^3.911A^3^3"
^XMB(3.9,335,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,335,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,335,6,3,0)="ORMSBY,SKIP"
^XMB(3.9,335,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,335,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,335,6,"B","ORMSBY,SKIP",3)=""
^XMB(3.9,336,0)="UPDATED INTERACTIONS^NDF MANAGER^3071227.062215"
^XMB(3.9,336,.6)="3071227"
^XMB(3.9,336,1,0)="^3.91A^3^3"
^XMB(3.9,336,1,1,0)="1"
^XMB(3.9,336,1,2,0)="63"
^XMB(3.9,336,1,3,0)="68"
^XMB(3.9,336,1,"C",1,1)=""
^XMB(3.9,336,1,"C",63,2)=""
^XMB(3.9,336,1,"C",68,3)=""
^XMB(3.9,336,2,0)="^^36^36^3071227"
^XMB(3.9,336,2,1,0)="The following interactions in National Drug File (NDF) have been added,"
^XMB(3.9,336,2,2,0)="edited or inactivated.  These changes are the result of review and"
^XMB(3.9,336,2,3,0)="recommendations from the NDF support group."
^XMB(3.9,336,2,4,0)=" "
^XMB(3.9,336,2,5,0)="ADDED INTERACTIONS"
^XMB(3.9,336,2,6,0)=" "
^XMB(3.9,336,2,7,0)="   NONE"
^XMB(3.9,336,2,8,0)=" "
^XMB(3.9,336,2,9,0)="EDITED INTERACTIONS"
^XMB(3.9,336,2,10,0)=" "
^XMB(3.9,336,2,11,0)="   NONE"
^XMB(3.9,336,2,12,0)=" "
^XMB(3.9,336,2,13,0)="INACTIVATED INTERACTIONS"
^XMB(3.9,336,2,14,0)=" "
^XMB(3.9,336,2,15,0)="   NONE"
^XMB(3.9,336,2,16,0)=" "
^XMB(3.9,336,2,17,0)="The following products have been flagged for exclusion from drug-drug"
^XMB(3.9,336,2,18,0)="interaction checks."
^XMB(3.9,336,2,19,0)=" "
^XMB(3.9,336,2,20,0)="BRIEF,PROTECTION PLUS #MSC346000"
^XMB(3.9,336,2,21,0)="CATHETER,SUCTION,14FR M#MDYND40972"
^XMB(3.9,336,2,22,0)="EMU OIL,TOP"
^XMB(3.9,336,2,23,0)="HEMORRHOIDAL SUPP,RTL"
^XMB(3.9,336,2,24,0)="HYDROCORTISONE BUTEPRATE 0.1% EMOLLIENT CREAM,TOP"
^XMB(3.9,336,2,25,0)="INCONT LINER PREVAIL GUARDS #PV-811"
^XMB(3.9,336,2,26,0)="LANCET,PRESTIGE SMART"
^XMB(3.9,336,2,27,0)="SET,INFUSION ANIMAS #181-01"
^XMB(3.9,336,2,28,0)="SET,INFUSION ANIMAS #181-02"
^XMB(3.9,336,2,29,0)="SET,INFUSION ANIMAS #181-03"
^XMB(3.9,336,2,30,0)="SET,INFUSION ANIMAS #182-01"
^XMB(3.9,336,2,31,0)="SET,INFUSION ANIMAS #182-02"
^XMB(3.9,336,2,32,0)="SET,INFUSION ANIMAS #183-00"
^XMB(3.9,336,2,33,0)="SOLBAR SPF-40 PABA-FREE CREAM,TOP"
^XMB(3.9,336,2,34,0)="SOLBAR SPF-50 PABA-FREE CREAM,TOP"
^XMB(3.9,336,2,35,0)="SUNSCREEN-45 PABA-FREE COMBINATION LOTION"
^XMB(3.9,336,2,36,0)="SUNSCREEN-50 PABA-FREE COMBINATION LOTION"
^XMB(3.9,336,6,0)="^3.911A^3^3"
^XMB(3.9,336,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,336,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,336,6,3,0)="ORMSBY,SKIP"
^XMB(3.9,336,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,336,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,336,6,"B","ORMSBY,SKIP",3)=""
^XMB(3.9,337,0)="DRUGS UNMATCHED FROM NATIONAL DRUG FILE^NDF MANAGER^3071227.062219^^^^P"
^XMB(3.9,337,.6)="3071227"
^XMB(3.9,337,1,0)="^3.91A^3^3"
^XMB(3.9,337,1,1,0)="1^0^3071227.06292^^^^^^1^3071227.06292"
^XMB(3.9,337,1,2,0)="63"
^XMB(3.9,337,1,3,0)="68"
^XMB(3.9,337,1,"C",1,1)=""
^XMB(3.9,337,1,"C",63,2)=""
^XMB(3.9,337,1,"C",68,3)=""
^XMB(3.9,337,2,0)="^^97^97^3071227"
^XMB(3.9,337,2,1,0)=" "
^XMB(3.9,337,2,2,0)="The following active entries in your DRUG file (#50) have been"
^XMB(3.9,337,2,3,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,337,2,4,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,337,2,5,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,337,2,6,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,337,2,7,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,337,2,8,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,337,2,9,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,337,2,10,0)="products immediately.  You may also need to match a new"
^XMB(3.9,337,2,11,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,337,2,12,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,337,2,13,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,337,2,14,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,337,2,15,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,337,2,16,0)="matching process."
^XMB(3.9,337,2,17,0)=" "
^XMB(3.9,337,2,18,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,337,2,19,0)="                                                                    DATE"
^XMB(3.9,337,2,20,0)=" "
^XMB(3.9,337,2,21,0)="LANSOPRAZOLE 15MG                                     94469"
^XMB(3.9,337,2,22,0)="    (CMOP L0161)             LANSOPRAZOLE 15MG CAP,SA           5/14/2007"
^XMB(3.9,337,2,23,0)="    STRENGTH: 15UNITS: MG"
^XMB(3.9,337,2,24,0)="    POSSIBLE DOSES"
^XMB(3.9,337,2,25,0)="    DISP UNITS/DOSE     DOSE    PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,337,2,26,0)="       1                  15      IO      "
^XMB(3.9,337,2,27,0)="       2                  30      IO      "
^XMB(3.9,337,2,28,0)="LANSOPRAZOLE 30MG                                     94470"
^XMB(3.9,337,2,29,0)="    (CMOP L0162)             LANSOPRAZOLE 30MG CAP,SA           5/14/2007"
^XMB(3.9,337,2,30,0)="    STRENGTH: 30UNITS: MG"
^XMB(3.9,337,2,31,0)="    POSSIBLE DOSES"
^XMB(3.9,337,2,32,0)="    DISP UNITS/DOSE     DOSE    PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,337,2,33,0)="       1                  30      IO      "
^XMB(3.9,337,2,34,0)="       2                  60      IO      "
^XMB(3.9,337,2,35,0)="OMEPRAZOLE 10MG                                       94557"
^XMB(3.9,337,2,36,0)="    (CMOP O0070)             OMEPRAZOLE 10MG CAP,SA             5/14/2007"
^XMB(3.9,337,2,37,0)="    STRENGTH: 10UNITS: MG"
^XMB(3.9,337,2,38,0)="    POSSIBLE DOSES"
^XMB(3.9,337,2,39,0)="    DISP UNITS/DOSE     DOSE    PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,337,2,40,0)="       1                  10      IO      "
^XMB(3.9,337,2,41,0)="       2                  20      IO      "
^XMB(3.9,337,2,42,0)="OMEPRAZOLE 20MG (Delayed Release)                     6059"
^XMB(3.9,337,2,43,0)="    (CMOP O0005)             OMEPRAZOLE 20MG CAP,SA             5/14/2007"
^XMB(3.9,337,2,44,0)="    STRENGTH: 20UNITS: MG"
^XMB(3.9,337,2,45,0)="    POSSIBLE DOSES"
^XMB(3.9,337,2,46,0)="    DISP UNITS/DOSE     DOSE    PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,337,2,47,0)="       1                  20      IO      "
^XMB(3.9,337,2,48,0)="       2                  40      IO      "
^XMB(3.9,337,2,49,0)="ZALCITABINE .75 MG                                    6406"
^XMB(3.9,337,2,50,0)="    (CMOP Z0002)             ZALCITABINE (ddC) 0.75MG TAB       5/17/2007"
^XMB(3.9,337,2,51,0)="    STRENGTH: .75UNITS: MG"
^XMB(3.9,337,2,52,0)="    POSSIBLE DOSES"
^XMB(3.9,337,2,53,0)="    DISP UNITS/DOSE     DOSE    PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,337,2,54,0)="       1                 .75      IO      "
^XMB(3.9,337,2,55,0)="       2                 1.5      IO      "
^XMB(3.9,337,2,56,0)=" "
^XMB(3.9,337,2,57,0)="The following investigational entries in your DRUG file (#50) have been"
^XMB(3.9,337,2,58,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,337,2,59,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,337,2,60,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,337,2,61,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,337,2,62,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,337,2,63,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,337,2,64,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,337,2,65,0)="products immediately.  You may also need to match a new"
^XMB(3.9,337,2,66,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,337,2,67,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,337,2,68,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,337,2,69,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,337,2,70,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,337,2,71,0)="matching process."
^XMB(3.9,337,2,72,0)=" "
^XMB(3.9,337,2,73,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,337,2,74,0)="                                                                    DATE"
^XMB(3.9,337,2,75,0)=" "
^XMB(3.9,337,2,76,0)="  NONE"
^XMB(3.9,337,2,77,0)=" "
^XMB(3.9,337,2,78,0)="The following inactive entries in your DRUG file (#50) have been"
^XMB(3.9,337,2,79,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,337,2,80,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,337,2,81,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,337,2,82,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,337,2,83,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,337,2,84,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,337,2,85,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,337,2,86,0)="products immediately.  You may also need to match a new"
^XMB(3.9,337,2,87,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,337,2,88,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,337,2,89,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,337,2,90,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,337,2,91,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,337,2,92,0)="matching process."
^XMB(3.9,337,2,93,0)=" "
^XMB(3.9,337,2,94,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,337,2,95,0)="                                                                    DATE"
^XMB(3.9,337,2,96,0)=" "
^XMB(3.9,337,2,97,0)="  NONE"
^XMB(3.9,337,6,0)="^3.911A^3^3"
^XMB(3.9,337,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,337,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,337,6,3,0)="ORMSBY,SKIP"
^XMB(3.9,337,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,337,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,337,6,"B","ORMSBY,SKIP",3)=""
^XMB(3.9,338,0)="INTERACTIONS and ALLERGIES UPDATED^NDF MANAGER^3071227.062248"
^XMB(3.9,338,.6)="3071227"
^XMB(3.9,338,1,0)="^3.91A^3^3"
^XMB(3.9,338,1,1,0)="1"
^XMB(3.9,338,1,2,0)="63"
^XMB(3.9,338,1,3,0)="68"
^XMB(3.9,338,1,"C",1,1)=""
^XMB(3.9,338,1,"C",63,2)=""
^XMB(3.9,338,1,"C",68,3)=""
^XMB(3.9,338,2,0)="^^8^8^3071227"
^XMB(3.9,338,2,1,0)=" "
^XMB(3.9,338,2,2,0)="No DRUG INTERACTIONS were updated due to Primary Ingredients being"
^XMB(3.9,338,2,3,0)="changed to Non-Primary ingredients in the Data Update."
^XMB(3.9,338,2,4,0)=" "
^XMB(3.9,338,2,5,0)=" "
^XMB(3.9,338,2,6,0)="No PATIENT ALLERGIES were updated due to Primary Ingredients being"
^XMB(3.9,338,2,7,0)="changed to Non-Primary ingredients during the Data Update."
^XMB(3.9,338,2,8,0)=" "
^XMB(3.9,338,6,0)="^3.911A^3^3"
^XMB(3.9,338,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,338,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,338,6,3,0)="ORMSBY,SKIP"
^XMB(3.9,338,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,338,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,338,6,"B","ORMSBY,SKIP",3)=""
^XMB(3.9,339,0)="Event Capture Roll-and-Scroll Shutdown^.5^3071227.062249"
^XMB(3.9,339,.6)="3071227"
^XMB(3.9,339,1,0)="^3.91A^2^2"
^XMB(3.9,339,1,1,0)=".5^0^3071227.062249^^^^^^^3071227.062249"
^XMB(3.9,339,1,2,0)="1"
^XMB(3.9,339,1,"C",.5,1)=""
^XMB(3.9,339,1,"C",1,2)=""
^XMB(3.9,339,2,0)="^^54^54^3071227"
^XMB(3.9,339,2,1,0)="Please forward this message to your local DSS Site Manager or Event Capture"
^XMB(3.9,339,2,2,0)="ADPAC."
^XMB(3.9,339,2,3,0)=""
^XMB(3.9,339,2,4,0)=" This message details the national VistA options that were disabled under"
^XMB(3.9,339,2,5,0)=" the Event Capture System (ECS) roll-and-scroll interface. If an option was"
^XMB(3.9,339,2,6,0)=" not found, then it will be identified in a section of this email message."
^XMB(3.9,339,2,7,0)=" Additionally, any pre-released EC2P* options will be disabled and listed."
^XMB(3.9,339,2,8,0)=" "
^XMB(3.9,339,2,9,0)=" If your site has edited the name of a national option, then your IRM will"
^XMB(3.9,339,2,10,0)=" need to manually disable any such option."
^XMB(3.9,339,2,11,0)=" "
^XMB(3.9,339,2,12,0)=" As of the release of this patch, ECS roll-and-scroll interface will no longer"
^XMB(3.9,339,2,13,0)=" be supported. Sites should be using the graphical user interface (GUI) which"
^XMB(3.9,339,2,14,0)=" has the equivalent functionality."
^XMB(3.9,339,2,15,0)=""
^XMB(3.9,339,2,16,0)="Event Capture roll-and-scroll options disabled:"
^XMB(3.9,339,2,17,0)="ECLOC              Current Locations (Create/Remove)"
^XMB(3.9,339,2,18,0)="ECSECT             DSS Units for Event Capture (Enter/Edit)"
^XMB(3.9,339,2,19,0)="ECDSUNIT           Assign User Access to DSS Units"
^XMB(3.9,339,2,20,0)="ECDEAL             Remove User Access to DSS Units"
^XMB(3.9,339,2,21,0)="ECDS CATEGORY      Local Category (Enter/Edit)"
^XMB(3.9,339,2,22,0)="ECDSS PROCEDURE    Local Procedure (Enter/Edit)"
^XMB(3.9,339,2,23,0)="ECSCREEN           Event Code Screens (Create)"
^XMB(3.9,339,2,24,0)="ECDSSYN            Procedure Synonym/Default Volume (Enter/Edit)"
^XMB(3.9,339,2,25,0)="ECNACT             Inactivate Event Code Screens"
^XMB(3.9,339,2,26,0)="ECDSDEAC           Activate/Inactivate Local Procedures"
^XMB(3.9,339,2,27,0)="ECDS CATEGORY DEAC Activate/Inactivate Local Category"
^XMB(3.9,339,2,28,0)="ECDSS1             National/Local Procedure Reports"
^XMB(3.9,339,2,29,0)="ECDSS3             Category Reports"
^XMB(3.9,339,2,30,0)="ECCP               Print Category and Procedure Summary"
^XMB(3.9,339,2,31,0)="ECCP1              *Summary of Procedures and Categories (Old File)"
^XMB(3.9,339,2,32,0)="ECSCPT             Event Code Screens with CPT Codes"
^XMB(3.9,339,2,33,0)="ECINCPT            National/Local Procedure Codes with Inactive CPT"
^XMB(3.9,339,2,34,0)="ECDSRPT            Management Reports"
^XMB(3.9,339,2,35,0)="ECMGR              Event Capture Management Menu"
^XMB(3.9,339,2,36,0)="ECPAT              Enter/Edit Patient Procedures"
^XMB(3.9,339,2,37,0)="ECBATCH            Batch Enter Data by Patient"
^XMB(3.9,339,2,38,0)="ECBATCH PROC       Data Entry (Batch) by Procedure"
^XMB(3.9,339,2,39,0)="ECMULT PROC        Multiple Dates/Multiple Procedures Data Entry"
^XMB(3.9,339,2,40,0)="ECENTER            Event Capture Data Entry"
^XMB(3.9,339,2,41,0)="ECPAT SUM          Patient Summary - Event Capture"
^XMB(3.9,339,2,42,0)="ECRDSSU            DSS Unit Workload Summary"
^XMB(3.9,339,2,43,0)="ECPROV             Provider Summary Report"
^XMB(3.9,339,2,44,0)="EC OS SUM          Ordering Section Summary Report"
^XMB(3.9,339,2,45,0)="EC PRO SUM         Provider (1-7) Summary Report"
^XMB(3.9,339,2,46,0)="EC PCE REPORT      PCE Data Summary"
^XMB(3.9,339,2,47,0)="ECRPERS            Inactive Person Class Report"
^XMB(3.9,339,2,48,0)="ECRPRSN            Procedure Reason Report"
^XMB(3.9,339,2,49,0)="EC NTPCE REPORT    Records Failing Transmission to PCE Report"
^XMB(3.9,339,2,50,0)="ECREPS             Event Capture Reports"
^XMB(3.9,339,2,51,0)="ECDSONL            Event Capture Online Documentation"
^XMB(3.9,339,2,52,0)="ECMENU             Event Capture Menu"
^XMB(3.9,339,2,53,0)=""
^XMB(3.9,339,2,54,0)="Options Disabled Successfully:   36"
^XMB(3.9,339,6,0)="^3.911A^2^2"
^XMB(3.9,339,6,1,0)="ORMSBY,SKIP"
^XMB(3.9,339,6,2,0)="POSTMASTER"
^XMB(3.9,339,6,"B","ORMSBY,SKIP",1)=""
^XMB(3.9,339,6,"B","POSTMASTER",2)=""
^XMB(3.9,340,0)="MAG*3.0*86 INSTALLATION^1^3071227.062251"
^XMB(3.9,340,.6)="3071227"
^XMB(3.9,340,1,0)="^3.91A^3^3"
^XMB(3.9,340,1,1,0)="1^0^3071227.062251^^^^^^^3071227.062251"
^XMB(3.9,340,1,2,0)="65"
^XMB(3.9,340,1,3,0)="G.IMAGING DEVELOPMENT TEAM@FORUM.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,340,1,"AQUEUE",18,3)=""
^XMB(3.9,340,1,"C",1,1)=""
^XMB(3.9,340,1,"C",65,2)=""
^XMB(3.9,340,1,"C","G.IMAGING DEVELOPMENT TEAM@FOR",3)=""
^XMB(3.9,340,2,0)="^^13^13^3071227"
^XMB(3.9,340,2,1,0)="PACKAGE INSTALL"
^XMB(3.9,340,2,2,0)="SITE: BETA.VISTA-OFFICE.ORG"
^XMB(3.9,340,2,3,0)="PACKAGE: MAG*3.0*86"
^XMB(3.9,340,2,4,0)="Version: 3.0"
^XMB(3.9,340,2,5,0)="Start time: Dec 27, 2007@06:22:51"
^XMB(3.9,340,2,6,0)="Completion time: Dec 27, 2007@06:22:51"
^XMB(3.9,340,2,7,0)="Run time: "
^XMB(3.9,340,2,8,0)="Environment: EHR^EHR^skip-PC^EHR:CACHEWEB"
^XMB(3.9,340,2,9,0)="FILE COMMENT: BUILD 2007 June & July  ;Created on Aug 27, 2007@18:54:36"
^XMB(3.9,340,2,10,0)="DATE: 3071227.062251"
^XMB(3.9,340,2,11,0)="Installed by: ORMSBY,SKIP"
^XMB(3.9,340,2,12,0)="Install Name: MAG*3.0*86"
^XMB(3.9,340,2,13,0)="Distribution Date: Feb 20, 2007"
^XMB(3.9,340,6,0)="^3.911A^2^2"
^XMB(3.9,340,6,1,0)="G.MAG SERVER"
^XMB(3.9,340,6,2,0)="ORMSBY,SKIP"
^XMB(3.9,340,6,"B","G.MAG SERVER",1)=""
^XMB(3.9,340,6,"B","ORMSBY,SKIP",2)=""
^XMB(3.9,341,0)="EVC I1 Install - 050 (DG*5.3*653)"
^XMB(3.9,341,.6)="3071227"
^XMB(3.9,341,2,0)="^^1^1^3071227"
^XMB(3.9,341,2,1,0)="IVMB*2*860^050^DG*5.3*653 12/27/2007^0"
^XMB(3.9,342,0)="MAG*3.0*85 INSTALLATION^1^3071227.062256"
^XMB(3.9,342,.6)="3071227"
^XMB(3.9,342,1,0)="^3.91A^3^3"
^XMB(3.9,342,1,1,0)="1^0^3071227.062256^^^^^^^3071227.062256"
^XMB(3.9,342,1,2,0)="65"
^XMB(3.9,342,1,3,0)="G.IMAGING DEVELOPMENT TEAM@FORUM.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,342,1,"AQUEUE",18,3)=""
^XMB(3.9,342,1,"C",1,1)=""
^XMB(3.9,342,1,"C",65,2)=""
^XMB(3.9,342,1,"C","G.IMAGING DEVELOPMENT TEAM@FOR",3)=""
^XMB(3.9,342,2,0)="^^13^13^3071227"
^XMB(3.9,342,2,1,0)="PACKAGE INSTALL"
^XMB(3.9,342,2,2,0)="SITE: BETA.VISTA-OFFICE.ORG"
^XMB(3.9,342,2,3,0)="PACKAGE: MAG*3.0*85"
^XMB(3.9,342,2,4,0)="Version: 3.0"
^XMB(3.9,342,2,5,0)="Start time: Dec 27, 2007@06:22:56"
^XMB(3.9,342,2,6,0)="Completion time: Dec 27, 2007@06:22:56"
^XMB(3.9,342,2,7,0)="Run time: "
^XMB(3.9,342,2,8,0)="Environment: EHR^EHR^skip-PC^EHR:CACHEWEB"
^XMB(3.9,342,2,9,0)="FILE COMMENT: BUILD 2007 June & July  ;Created on Aug 27, 2007@18:54:36"
^XMB(3.9,342,2,10,0)="DATE: 3071227.062256"
^XMB(3.9,342,2,11,0)="Installed by: ORMSBY,SKIP"
^XMB(3.9,342,2,12,0)="Install Name: MAG*3.0*85"
^XMB(3.9,342,2,13,0)="Distribution Date: Mar 16, 2007"
^XMB(3.9,342,6,0)="^3.911A^2^2"
^XMB(3.9,342,6,1,0)="G.MAG SERVER"
^XMB(3.9,342,6,2,0)="ORMSBY,SKIP"
^XMB(3.9,342,6,"B","G.MAG SERVER",1)=""
^XMB(3.9,342,6,"B","ORMSBY,SKIP",2)=""
^XMB(3.9,343,0)="ADDED WKLD CODE REPORT Dec 27, 2007@06:26:29^.5^3071227.062629"
^XMB(3.9,343,.6)="3071227"
^XMB(3.9,343,1,0)="^3.91A^1^1"
^XMB(3.9,343,1,1,0)="1"
^XMB(3.9,343,1,"C",1,1)=""
^XMB(3.9,343,2,0)="^^7631^7631^3071227"
^XMB(3.9,343,2,1,0)="1|=========================="
^XMB(3.9,343,2,2,0)="2|List of WKLD CODES added to ^LAM  (#64)"
^XMB(3.9,343,2,3,0)="3| "
^XMB(3.9,343,2,4,0)="4|92924.0000|Morphometric Analysis,Skeletal Muscle|"
^XMB(3.9,343,2,5,0)="5|84517.0000|6-Monoacetylmorphine|"
^XMB(3.9,343,2,6,0)="6|84518.0000|Alpha-Thalassemia DNA Mutation|"
^XMB(3.9,343,2,7,0)="7|88845.0000|Hepatitis C Confirmation|"
^XMB(3.9,343,2,8,0)="8|88122.0000|ZAP -70 Evaluation|"
^XMB(3.9,343,2,9,0)="9|88124.0000|ZAP 70+/CD19+|"
^XMB(3.9,343,2,10,0)="10|88123.0000|ZAP 70+/CD3+|"
^XMB(3.9,343,2,11,0)="11|87709.0000|Dermatophagoides Farinae Ab|"
^XMB(3.9,343,2,12,0)="12|83004.0000|Almecillin SBT|"
^XMB(3.9,343,2,13,0)="13|83005.0000|Amdinocillin SBT|"
^XMB(3.9,343,2,14,0)="14|83006.0000|Amikacin SBT|"
^XMB(3.9,343,2,15,0)="15|83007.0000|Amoxicillin SBT|"
^XMB(3.9,343,2,16,0)="16|83009.0000|Amoxicillin+Clav SBT|"
^XMB(3.9,343,2,17,0)="17|83010.0000|Amphotericin B SBT|"
^XMB(3.9,343,2,18,0)="18|83014.0000|Ampicillin SBT|"
^XMB(3.9,343,2,19,0)="19|83015.0000|Ampicillin+Sulbac SBT|"
^XMB(3.9,343,2,20,0)="20|83016.0000|Azithromycin SBT|"
^XMB(3.9,343,2,21,0)="21|83018.0000|Azlocillin SBT|"
^XMB(3.9,343,2,22,0)="22|83019.0000|Aztreonam SBT|"
^XMB(3.9,343,2,23,0)="23|83021.0000|Bacampicillin SBT|"
^XMB(3.9,343,2,24,0)="24|83022.0000|Butirosin SBT|"
^XMB(3.9,343,2,25,0)="25|83023.0000|Capreomycin SBT|"
^XMB(3.9,343,2,26,0)="26|83024.0000|Carbenicillin SBT|"
^XMB(3.9,343,2,27,0)="27|83025.0000|Cefadroxil SBT|"
^XMB(3.9,343,2,28,0)="28|83026.0000|Cefamandole SBT|"
^XMB(3.9,343,2,29,0)="29|83027.0000|Cefatrizine SBT|"
^XMB(3.9,343,2,30,0)="30|83028.0000|Cefazolin SBT|"
^XMB(3.9,343,2,31,0)="31|83029.0000|Cefixime SBT|"
^XMB(3.9,343,2,32,0)="32|83033.0000|Cefaclor SBT|"
^XMB(3.9,343,2,33,0)="33|83034.0000|Cefmetazole SBT|"
^XMB(3.9,343,2,34,0)="34|83035.0000|Cefodizime SBT|"
^XMB(3.9,343,2,35,0)="35|83036.0000|Cefonocid SBT|"
^XMB(3.9,343,2,36,0)="36|83037.0000|Cefoperazone SBT|"
^XMB(3.9,343,2,37,0)="37|83038.0000|Ceforanide SBT|"
^XMB(3.9,343,2,38,0)="38|83039.0000|Cefotaxime SBT|"
^XMB(3.9,343,2,39,0)="39|83040.0000|Cefotetan SBT|"
^XMB(3.9,343,2,40,0)="40|83041.0000|Cefoxitin SBT|"
^XMB(3.9,343,2,41,0)="41|83042.0000|Cefpodoxime SBT|"
^XMB(3.9,343,2,42,0)="42|83043.0000|Cefprozil SBT|"
^XMB(3.9,343,2,43,0)="43|83044.0000|Cefsulodin SBT|"
^XMB(3.9,343,2,44,0)="44|83045.0000|Ceftazidime SBT|"
^XMB(3.9,343,2,45,0)="45|83046.0000|Ceftizoxime SBT|"
^XMB(3.9,343,2,46,0)="46|83047.0000|Ceftriaxone SBT|"
^XMB(3.9,343,2,47,0)="47|83048.0000|Cefuroxime Parenter SBT|"
^XMB(3.9,343,2,48,0)="48|83049.0000|Cephalexin SBT|"
^XMB(3.9,343,2,49,0)="49|83050.0000|Cephaloglycin SBT|"
^XMB(3.9,343,2,50,0)="50|83051.0000|Cephaloridine SBT|"
^XMB(3.9,343,2,51,0)="51|83053.0000|Cephalothin SBT|"
^XMB(3.9,343,2,52,0)="52|83054.0000|Cephapirin SBT|"
^XMB(3.9,343,2,53,0)="53|83056.0000|Cephradine SBT|"
^XMB(3.9,343,2,54,0)="54|83058.0000|Chloramphen SBT|"
^XMB(3.9,343,2,55,0)="55|83059.0000|Chlortetracycline SBT|"
^XMB(3.9,343,2,56,0)="56|83060.0000|Cinoxacin SBT|"
^XMB(3.9,343,2,57,0)="57|83061.0000|Ciprofloxacin SBT|"
^XMB(3.9,343,2,58,0)="58|83062.0000|Clarithro SBT|"
^XMB(3.9,343,2,59,0)="59|83063.0000|Clindamycin SBT|"
^XMB(3.9,343,2,60,0)="60|83064.0000|Cloxacillin SBT|"
^XMB(3.9,343,2,61,0)="61|83065.0000|Colistimethate SBT|"
^XMB(3.9,343,2,62,0)="62|83066.0000|Colistin SBT|"
^XMB(3.9,343,2,63,0)="63|83067.0000|Cyclacillin SBT|"
^XMB(3.9,343,2,64,0)="64|83068.0000|Cycloserine SBT|"
^XMB(3.9,343,2,65,0)="65|83069.0000|Demeclocycline SBT|"
^XMB(3.9,343,2,66,0)="66|83078.0000|Dicloxacillin SBT|"
^XMB(3.9,343,2,67,0)="67|83079.0000|Doxycycline SBT|"
^XMB(3.9,343,2,68,0)="68|83080.0000|Enoxacin SBT|"
^XMB(3.9,343,2,69,0)="69|83081.0000|Erythromycin SBT|"
^XMB(3.9,343,2,70,0)="70|83082.0000|Erythro+Sulf SBT|"
^XMB(3.9,343,2,71,0)="71|83083.0000|Ethambutol SBT|"
^XMB(3.9,343,2,72,0)="72|83084.0000|Floxacillin SBT|"
^XMB(3.9,343,2,73,0)="73|83085.0000|Fluconazole SBT|"
^XMB(3.9,343,2,74,0)="74|83086.0000|5FC SBT|"
^XMB(3.9,343,2,75,0)="75|83087.0000|Framycetin SBT|"
^XMB(3.9,343,2,76,0)="76|83088.0000|Fusidate SBT|"
^XMB(3.9,343,2,77,0)="77|83089.0000|Gentamicin SBT|"
^XMB(3.9,343,2,78,0)="78|83091.0000|Gramicidin D SBT|"
^XMB(3.9,343,2,79,0)="79|83092.0000|Hetacillin SBT|"
^XMB(3.9,343,2,80,0)="80|83093.0000|Imipenem SBT|"
^XMB(3.9,343,2,81,0)="81|83094.0000|Isoniazid SBT|"
^XMB(3.9,343,2,82,0)="82|83095.0000|Kanamycin SBT|"
^XMB(3.9,343,2,83,0)="83|83096.0000|Ketoconazole SBT|"
^XMB(3.9,343,2,84,0)="84|83097.0000|Lincomycin SBT|"
^XMB(3.9,343,2,85,0)="85|83098.0000|Lomefloxacin SBT|"
^XMB(3.9,343,2,86,0)="86|83099.0000|Loracarbef SBT|"
^XMB(3.9,343,2,87,0)="87|83100.0000|Lymecycline SBT|"
^XMB(3.9,343,2,88,0)="88|83101.0000|Meclocycline SBT|"
^XMB(3.9,343,2,89,0)="89|83102.0000|Methacycline SBT|"
^XMB(3.9,343,2,90,0)="90|83103.0000|Methicillin SBT|"
^XMB(3.9,343,2,91,0)="91|83104.0000|Metronidazole SBT|"
^XMB(3.9,343,2,92,0)="92|83105.0000|Mezlocillin SBT|"
^XMB(3.9,343,2,93,0)="93|83106.0000|Minocycline SBT|"
^XMB(3.9,343,2,94,0)="94|83107.0000|Miocamycin SBT|"
^XMB(3.9,343,2,95,0)="95|83108.0000|Moxalactam SBT|"
^XMB(3.9,343,2,96,0)="96|83109.0000|Nafcillin SBT|"
^XMB(3.9,343,2,97,0)="97|83111.0000|Nalidixate SBT|"
^XMB(3.9,343,2,98,0)="98|83112.0000|Neomycin SBT|"
^XMB(3.9,343,2,99,0)="99|83113.0000|Netilmicin SBT|"
^XMB(3.9,343,2,100,0)="100|83114.0000|Nitrofurantoin SBT|"
^XMB(3.9,343,2,101,0)="101|83115.0000|Norfloxacin SBT|"
^XMB(3.9,343,2,102,0)="102|83116.0000|Novobiocin SBT|"
^XMB(3.9,343,2,103,0)="103|83117.0000|Ofloxacin SBT|"
^XMB(3.9,343,2,104,0)="104|83119.0000|Oleandomycin SBT|"
^XMB(3.9,343,2,105,0)="105|83120.0000|Oxacillin SBT|"
^XMB(3.9,343,2,106,0)="106|83121.0000|Oxytetracycline SBT|"
^XMB(3.9,343,2,107,0)="107|83122.0000|Penicillin G SBT|"
^XMB(3.9,343,2,108,0)="108|83123.0000|Penicillin V SBT|"
^XMB(3.9,343,2,109,0)="109|83124.0000|Phenethicillin SBT|"
^XMB(3.9,343,2,110,0)="110|83126.0000|Pipemidate SBT|"
^XMB(3.9,343,2,111,0)="111|83127.0000|Piperacillin SBT|"
^XMB(3.9,343,2,112,0)="112|83128.0000|Piperacillin+Tazobac SBT|"
^XMB(3.9,343,2,113,0)="113|83129.0000|Pivampicillin SBT|"
^XMB(3.9,343,2,114,0)="114|83130.0000|Polymyxin B SBT|"
^XMB(3.9,343,2,115,0)="115|83131.0000|PZA SBT|"
^XMB(3.9,343,2,116,0)="116|83136.0000|Rifampin SBT|"
^XMB(3.9,343,2,117,0)="117|83137.0000|Ristocetin SBT|"
^XMB(3.9,343,2,118,0)="118|83138.0000|Rolitetracycline SBT|"
^XMB(3.9,343,2,119,0)="119|83139.0000|Rosoxacin SBT|"
^XMB(3.9,343,2,120,0)="120|83142.0000|Roxithromycin SBT|"
^XMB(3.9,343,2,121,0)="121|83143.0000|Sisomicin SBT|"
^XMB(3.9,343,2,122,0)="122|83144.0000|Spectinomycin SBT|"
^XMB(3.9,343,2,123,0)="123|83147.0000|Spiramycin SBT|"
^XMB(3.9,343,2,124,0)="124|83149.0000|Streptomycin SBT|"
^XMB(3.9,343,2,125,0)="125|83152.0000|Sulfadiazine SBT|"
^XMB(3.9,343,2,126,0)="126|83153.0000|Sulfamethoxazole SBT|"
^XMB(3.9,343,2,127,0)="127|83154.0000|Sulfisoxaz SBT|"
^XMB(3.9,343,2,128,0)="128|83157.0000|Talampicillin SBT|"
^XMB(3.9,343,2,129,0)="129|83158.0000|Teicoplanin SBT|"
^XMB(3.9,343,2,130,0)="130|83159.0000|Temafloxacin SBT|"
^XMB(3.9,343,2,131,0)="131|83160.0000|Temocillin SBT|"
^XMB(3.9,343,2,132,0)="132|83161.0000|Tetracycline SBT|"
^XMB(3.9,343,2,133,0)="133|83162.0000|Ticarcillin SBT|"
^XMB(3.9,343,2,134,0)="134|83163.0000|Ticarcillin+Clav SBT|"
^XMB(3.9,343,2,135,0)="135|83164.0000|Tobramycin SBT|"
^XMB(3.9,343,2,136,0)="136|83165.0000|Trimethoprim SBT|"
^XMB(3.9,343,2,137,0)="137|83166.0000|TMP SMX SBT|"
^XMB(3.9,343,2,138,0)="138|83167.0000|Troleandomycin SBT|"
^XMB(3.9,343,2,139,0)="139|83168.0000|Vancomycin SBT|"
^XMB(3.9,343,2,140,0)="140|83169.0000|Viomycin SBT|"
^XMB(3.9,343,2,141,0)="141|83170.0000|A Ab|"
^XMB(3.9,343,2,142,0)="142|83171.0000|Au sup(a) Ab|"
^XMB(3.9,343,2,143,0)="143|83172.0000|A1 Ab|"
^XMB(3.9,343,2,144,0)="144|83173.0000|A,B Ab|"
^XMB(3.9,343,2,145,0)="145|83174.0000|ABO+Rh Group|"
^XMB(3.9,343,2,146,0)="146|83175.0000|AM Ab|"
^XMB(3.9,343,2,147,0)="147|83176.0000|Antibodies|"
^XMB(3.9,343,2,148,0)="148|83177.0000|Ab Screen|"
^XMB(3.9,343,2,149,0)="149|83178.0000|Ab Screen Cell I|"
^XMB(3.9,343,2,150,0)="150|83179.0000|Ab Screen Cell III|"
^XMB(3.9,343,2,151,0)="151|83180.0000|Autol X Match|"
^XMB(3.9,343,2,152,0)="152|83181.0000|Ab Screen Cell II|"
^XMB(3.9,343,2,153,0)="153|83182.0000|Ab Screen Cells x3|"
^XMB(3.9,343,2,154,0)="154|83183.0000|AX Ab|"
^XMB(3.9,343,2,155,0)="155|83184.0000|B Ab|"
^XMB(3.9,343,2,156,0)="156|83187.0000|B Var Subtyp Ab|"
^XMB(3.9,343,2,157,0)="157|83188.0000|C Ab|"
^XMB(3.9,343,2,158,0)="158|83189.0000|Ce Ab|"
^XMB(3.9,343,2,159,0)="159|83192.0000|Cw Ab|"
^XMB(3.9,343,2,160,0)="160|83193.0000|Cx Ab|"
^XMB(3.9,343,2,161,0)="161|83194.0000|D Ab|"
^XMB(3.9,343,2,162,0)="162|83195.0000|Di sup(a) Ab|"
^XMB(3.9,343,2,163,0)="163|83196.0000|Di sup(b) Ab|"
^XMB(3.9,343,2,164,0)="164|83197.0000|Do sup(a) Ab|"
^XMB(3.9,343,2,165,0)="165|83198.0000|DBG Ab|"
^XMB(3.9,343,2,166,0)="166|83202.0000|IAT Comp-Sp Reag|"
^XMB(3.9,343,2,167,0)="167|83203.0000|IAT IgG-Sp Reag|"
^XMB(3.9,343,2,168,0)="168|83204.0000|IAT Poly-Sp Reag|"
^XMB(3.9,343,2,169,0)="169|83205.0000|Ew Ab|"
^XMB(3.9,343,2,170,0)="170|83206.0000|E Ab|"
^XMB(3.9,343,2,171,0)="171|83207.0000|Fy sup(a) Ab|"
^XMB(3.9,343,2,172,0)="172|83208.0000|Fy sup(b) Ab|"
^XMB(3.9,343,2,173,0)="173|83209.0000|G Ab|"
^XMB(3.9,343,2,174,0)="174|83211.0000|H Ab|"
^XMB(3.9,343,2,175,0)="175|83212.0000|H NOS Ab|"
^XMB(3.9,343,2,176,0)="176|83213.0000|I Ab|"
^XMB(3.9,343,2,177,0)="177|83214.0000|I NOS Ab|"
^XMB(3.9,343,2,178,0)="178|83215.0000|Jk sup(a) Ab|"
^XMB(3.9,343,2,179,0)="179|83216.0000|Jk sup(b) Ab|"
^XMB(3.9,343,2,180,0)="180|83217.0000|Js sup(a) Ab|"
^XMB(3.9,343,2,181,0)="181|83218.0000|Js sup(b) Ab|"
^XMB(3.9,343,2,182,0)="182|83219.0000|K Ab|"
^XMB(3.9,343,2,183,0)="183|83220.0000|Kp sup(a) Ab|"
^XMB(3.9,343,2,184,0)="184|83221.0000|Kp sup(b) Ab|"
^XMB(3.9,343,2,185,0)="185|83222.0000|Le sup(a) Ab|"
^XMB(3.9,343,2,186,0)="186|83223.0000|Le sup(b) Ab|"
^XMB(3.9,343,2,187,0)="187|83225.0000|Le sup(x) Ab|"
^XMB(3.9,343,2,188,0)="188|83226.0000|Le Ab|"
^XMB(3.9,343,2,189,0)="189|83227.0000|Le NOS Ab|"
^XMB(3.9,343,2,190,0)="190|83228.0000|Lu sup(a) Ab|"
^XMB(3.9,343,2,191,0)="191|83229.0000|Lu sup(a b) Ab|"
^XMB(3.9,343,2,192,0)="192|83231.0000|Lu sup(b) Ab|"
^XMB(3.9,343,2,193,0)="193|83237.0000|Lu NOS Ab|"
^XMB(3.9,343,2,194,0)="194|83238.0000|Little Ab|"
^XMB(3.9,343,2,195,0)="195|83239.0000|pk Ab|"
^XMB(3.9,343,2,196,0)="196|83240.0000|LW Ab|"
^XMB(3.9,343,2,197,0)="197|83241.0000|Mg Ab|"
^XMB(3.9,343,2,198,0)="198|83242.0000|M Ab|"
^XMB(3.9,343,2,199,0)="199|83243.0000|Mi sup(a) Ab|"
^XMB(3.9,343,2,200,0)="200|83244.0000|M NOS Ab|"
^XMB(3.9,343,2,201,0)="201|83246.0000|M1 Ab|"
^XMB(3.9,343,2,202,0)="202|83247.0000|Maj XM|"
^XMB(3.9,343,2,203,0)="203|83270.0000|Maj XM p Imm Spin|"
^XMB(3.9,343,2,204,0)="204|83271.0000|Maj XM Re-Cross|"
^XMB(3.9,343,2,205,0)="205|83272.0000|N Ab|"
^XMB(3.9,343,2,206,0)="206|83273.0000|N NOS Ab|"
^XMB(3.9,343,2,207,0)="207|83274.0000|Other Ab|"
^XMB(3.9,343,2,208,0)="208|83275.0000|Unident Ab|"
^XMB(3.9,343,2,209,0)="209|83276.0000|P Ab|"
^XMB(3.9,343,2,210,0)="210|83277.0000|P NOS Ab|"
^XMB(3.9,343,2,211,0)="211|83278.0000|P1 Ab|"
^XMB(3.9,343,2,212,0)="212|83279.0000|D Ab Titer|"
^XMB(3.9,343,2,213,0)="213|83281.0000|D NOS Ab|"
^XMB(3.9,343,2,214,0)="214|83282.0000|S Ab|"
^XMB(3.9,343,2,215,0)="215|83283.0000|U Ab|"
^XMB(3.9,343,2,216,0)="216|83284.0000|V Ab|"
^XMB(3.9,343,2,217,0)="217|83285.0000|Xg sup(a) Ab|"
^XMB(3.9,343,2,218,0)="218|83286.0000|Yt sup(a) Ab|"
^XMB(3.9,343,2,219,0)="219|83287.0000|Yt sup(b) Ab|"
^XMB(3.9,343,2,220,0)="220|83288.0000|11DC 8H p 30 mg/kg MTP PO|"
^XMB(3.9,343,2,221,0)="221|83289.0000|11DC p 750 mg MTP Q4H X 6|"
^XMB(3.9,343,2,222,0)="222|83291.0000|Carotene p 15000 U Car QDX3 for 3D Poly|"
^XMB(3.9,343,2,223,0)="223|83292.0000|Bromsulphthalein|"
^XMB(3.9,343,2,224,0)="224|83293.0000|Calcit 90 S p 0.5 ug/kg Pg IV|"
^XMB(3.9,343,2,225,0)="225|83294.0000|Calcit 10M p 2.4 mg/kg Ca short IV|"
^XMB(3.9,343,2,226,0)="226|83295.0000|Calcit 3H p 15 mg/kg CaG IV|"
^XMB(3.9,343,2,227,0)="227|83296.0000|Calcit 4H p 15 mg/kg CaG IV|"
^XMB(3.9,343,2,228,0)="228|83297.0000|Calcit 5M p 0.5 ug/kg Pg IV|"
^XMB(3.9,343,2,229,0)="229|83298.0000|Calcit 5M p 2.4 mg/kg Ca short IV|"
^XMB(3.9,343,2,230,0)="230|83299.0000|Calcit pre 0.5 ug/kg Pg IV|"
^XMB(3.9,343,2,231,0)="231|83300.0000|Calcit pre 2.4 mg/kg Ca short IV|"
^XMB(3.9,343,2,232,0)="232|83301.0000|Calcium/Phosphate PTH Chall|"
^XMB(3.9,343,2,233,0)="233|83302.0000|Calcium 10M p 2.4 mg/kg Ca short IV|"
^XMB(3.9,343,2,234,0)="234|83303.0000|Calcium 5M p 2.4 mg/kg Ca short IV|"
^XMB(3.9,343,2,235,0)="235|83304.0000|Calcium pre 2.4 mg/kg Ca short IV|"
^XMB(3.9,343,2,236,0)="236|83307.0000|Cortis 1.5H p 0.05-0.15 U/kg Ins IV p 12|"
^XMB(3.9,343,2,237,0)="237|83308.0000|Cortis 1.5H p Ins IV|"
^XMB(3.9,343,2,238,0)="238|83309.0000|Cortis 1H p 0.05-0.15 U Ins/kg IV p 12H|"
^XMB(3.9,343,2,239,0)="239|83311.0000|Cortis 1H p 1 ug/kg CRH IV|"
^XMB(3.9,343,2,240,0)="240|83312.0000|Cortis 1H p 250 ug ACTH IM rapid|"
^XMB(3.9,343,2,241,0)="241|83313.0000|Cortis 1H p 250 ug ACTH IV rapid|"
^XMB(3.9,343,2,242,0)="242|83314.0000|Cortis 1H p 250 ug ACTH IM|"
^XMB(3.9,343,2,243,0)="243|83315.0000|Cortis 1H p Ins IV|"
^XMB(3.9,343,2,244,0)="244|83317.0000|Cortis 1M p 1 u/kg CRH IV|"
^XMB(3.9,343,2,245,0)="245|83318.0000|Cortis 24H p 2 mg Dex|"
^XMB(3.9,343,2,246,0)="246|83321.0000|Cortis 24H p 40 ug ACTH IM BID 3D|"
^XMB(3.9,343,2,247,0)="247|83322.0000|Cortis 24H p 500 ug ACTH IM|"
^XMB(3.9,343,2,248,0)="248|83323.0000|Cortis 24H p 500 ug Dex|"
^XMB(3.9,343,2,249,0)="249|83324.0000|Cortis 26H p 500 ug Dex|"
^XMB(3.9,343,2,250,0)="250|83325.0000|Cortis 26H p 2 mg Dex|"
^XMB(3.9,343,2,251,0)="251|83326.0000|Cortis 2D p 500 ug ACTH IM|"
^XMB(3.9,343,2,252,0)="252|83327.0000|Cortis 30M p 0.05-0.15 U Ins/kg IV p 12H|"
^XMB(3.9,343,2,253,0)="253|83328.0000|Cortis 30M p 1 ug/kg CRH IV|"
^XMB(3.9,343,2,254,0)="254|83329.0000|Cortis 30M p 250 ug ACTH IM rapid|"
^XMB(3.9,343,2,255,0)="255|83330.0000|Cortis 30M p 250 ug ACTH IV rapid|"
^XMB(3.9,343,2,256,0)="256|83331.0000|Cortis 30M p 250 ug ACTH IM|"
^XMB(3.9,343,2,257,0)="257|83332.0000|Cortis 30M p Ins IV|"
^XMB(3.9,343,2,258,0)="258|83333.0000|Cortis 32H p 40 ug ACTH IM BID 3D|"
^XMB(3.9,343,2,259,0)="259|83334.0000|Cortis 3D p 500 ug ACTH IM|"
^XMB(3.9,343,2,260,0)="260|83335.0000|Cortis 45M p 1 ug/kg CRH IV|"
^XMB(3.9,343,2,261,0)="261|83336.0000|Cortis 45M p Ins IV|"
^XMB(3.9,343,2,262,0)="262|83337.0000|Cortis 48H p 2 mg Dex|"
^XMB(3.9,343,2,263,0)="263|83338.0000|Cortis 48H p 40 ug ACTH IM BID 3D|"
^XMB(3.9,343,2,264,0)="264|83339.0000|Cortis 48H p 500 ug Dex|"
^XMB(3.9,343,2,265,0)="265|83341.0000|Cortis 50H p 500 ug Dex|"
^XMB(3.9,343,2,266,0)="266|83342.0000|Cortis 50H p 2 mg Dex|"
^XMB(3.9,343,2,267,0)="267|83343.0000|Cortis 56H p 40 ug ACTH IM BID 3D|"
^XMB(3.9,343,2,268,0)="268|83344.0000|Cortis 5M p 1 ug/kg CRH IV|"
^XMB(3.9,343,2,269,0)="269|83345.0000|Cortis 72H p 2 mg Dex|"
^XMB(3.9,343,2,270,0)="270|83346.0000|Cortis 72H p 500 ug Dex|"
^XMB(3.9,343,2,271,0)="271|83347.0000|Cortis 8H p 1 mg Dex|"
^XMB(3.9,343,2,272,0)="272|83348.0000|Cortis 8H p 2 mg Dex|"
^XMB(3.9,343,2,273,0)="273|83349.0000|Cortis 8H p 30 mg/kg MTP PO|"
^XMB(3.9,343,2,274,0)="274|83352.0000|Cortis 8H p 500 ug Dex|"
^XMB(3.9,343,2,275,0)="275|83353.0000|Cortis 8H p 40 ug ACTH IM BID 3D|"
^XMB(3.9,343,2,276,0)="276|83354.0000|Cortis 9.5H p 8 mg Dex|"
^XMB(3.9,343,2,277,0)="277|83358.0000|Cortis 9H p 1 mg Dex|"
^XMB(3.9,343,2,278,0)="278|83359.0000|Cortis 9H p 3 g MTP PO ON|"
^XMB(3.9,343,2,279,0)="279|83361.0000|Cortis 9H p 8 mg Dex|"
^XMB(3.9,343,2,280,0)="280|83362.0000|Cortis pre 1 ug/kg CRH IV|"
^XMB(3.9,343,2,281,0)="281|83363.0000|Cortis pre 12H fast|"
^XMB(3.9,343,2,282,0)="282|83364.0000|Cortis pre 1 mg Dex|"
^XMB(3.9,343,2,283,0)="283|83365.0000|Cortis pre 3 g MTP PO ON|"
^XMB(3.9,343,2,284,0)="284|83366.0000|Cortis pre 40 ug ACTH IM 3D|"
^XMB(3.9,343,2,285,0)="285|83367.0000|Cortis pre 500 ug Dex|"
^XMB(3.9,343,2,286,0)="286|83368.0000|Cortis pre 8 mg Dex|"
^XMB(3.9,343,2,287,0)="287|83369.0000|Cortis pre 2 mg Dex|"
^XMB(3.9,343,2,288,0)="288|83371.0000|Cortis pre Ins IV|"
^XMB(3.9,343,2,289,0)="289|83372.0000|FSH 1.5H p 100 g LH IV|"
^XMB(3.9,343,2,290,0)="290|83373.0000|FSH 1.5H p GnRH|"
^XMB(3.9,343,2,291,0)="291|83374.0000|FSH 105M p 100 ug LRH IV|"
^XMB(3.9,343,2,292,0)="292|83375.0000|FSH 15M p 100 ug LRH IV|"
^XMB(3.9,343,2,293,0)="293|83376.0000|FSH 1H p 100 ug LRH IV|"
^XMB(3.9,343,2,294,0)="294|83377.0000|FSH 1H p GnRH|"
^XMB(3.9,343,2,295,0)="295|83378.0000|FSH 2H p 100 ug LRH IV|"
^XMB(3.9,343,2,296,0)="296|83379.0000|FSH 30M p 100 ug LRH IV|"
^XMB(3.9,343,2,297,0)="297|83381.0000|FSH 30M p GnRH|"
^XMB(3.9,343,2,298,0)="298|83382.0000|FSH 45M p 100 ug LRH IV|"
^XMB(3.9,343,2,299,0)="299|83383.0000|FSH 75M p 100 ug LRH IV|"
^XMB(3.9,343,2,300,0)="300|83384.0000|FSH BS|"
^XMB(3.9,343,2,301,0)="301|83385.0000|FSH pre GnRH|"
^XMB(3.9,343,2,302,0)="302|83386.0000|Gastrin 10M p 0.2 U/kg SCT|"
^XMB(3.9,343,2,303,0)="303|83387.0000|Gastrin 15M p 0.2 U/kg SCT|"
^XMB(3.9,343,2,304,0)="304|83388.0000|Gastrin 20M p 0.2 U/kg SCT|"
^XMB(3.9,343,2,305,0)="305|83389.0000|Gastrin 25M p 0.2 U/kg SCT|"
^XMB(3.9,343,2,306,0)="306|83390.0000|Gastrin 30M p 0.2 U/kg SCT|"
^XMB(3.9,343,2,307,0)="307|83391.0000|Gastrin 5M p 0.2 u/kg SCT|"
^XMB(3.9,343,2,308,0)="308|83392.0000|Gastrin pre 0.2 u/kg SCT|"
^XMB(3.9,343,2,309,0)="309|83393.0000|Glucose 1.5H p 0.5 g/kg Glc IV|"
^XMB(3.9,343,2,310,0)="310|83394.0000|Glucose 1.5H p 0.05-0.15 U/kg Ins IV p 1|"
^XMB(3.9,343,2,311,0)="311|83396.0000|Glucose 1.5H p 100 g Glc PO|"
^XMB(3.9,343,2,312,0)="312|83397.0000|Glucose 1.5H p 75 g Glc PO|"
^XMB(3.9,343,2,313,0)="313|83398.0000|Glucose 1.5H p Ins IV|"
^XMB(3.9,343,2,314,0)="314|83399.0000|Glucose 10M p 0.5 g/kg Glc IV|"
^XMB(3.9,343,2,315,0)="315|83401.0000|Glucose 1H p 0.5 g/kg Glc IV|"
^XMB(3.9,343,2,316,0)="316|83402.0000|Glucose 1H p 0.05-0.15 U Ins/kg IV p 12H|"
^XMB(3.9,343,2,317,0)="317|83403.0000|Glucose 1H p 100 g Glc PO|"
^XMB(3.9,343,2,318,0)="318|83404.0000|Glucose 1H p 50 g Glc PO|"
^XMB(3.9,343,2,319,0)="319|83406.0000|Glucose 1H p 50 g Lac PO|"
^XMB(3.9,343,2,320,0)="320|83407.0000|Glucose 1H p 75 g Glc PO|"
^XMB(3.9,343,2,321,0)="321|83408.0000|Glucose 1H p Ins IV|"
^XMB(3.9,343,2,322,0)="322|83409.0000|Glucose 1M p 0.5 g/kg Glc IV|"
^XMB(3.9,343,2,323,0)="323|83410.0000|Glucose 20M p 0.5 g/kg Glc IV|"
^XMB(3.9,343,2,324,0)="324|83411.0000|Glucose 2H p 100 g Glc PO|"
^XMB(3.9,343,2,325,0)="325|83412.0000|Glucose 2H p 50 g Lac PO|"
^XMB(3.9,343,2,326,0)="326|83413.0000|Glucose 2H p 75 g Glc PO|"
^XMB(3.9,343,2,327,0)="327|83414.0000|Glucose 2H p meal|"
^XMB(3.9,343,2,328,0)="328|83416.0000|Glucose 30M p 0.5 g/kg Glc IV|"
^XMB(3.9,343,2,329,0)="329|83417.0000|Glucose 30M p 0.05-0.15 U Ins/kg IV p 12|"
^XMB(3.9,343,2,330,0)="330|83418.0000|Glucose 30M p 0.1 U/kg Ins|"
^XMB(3.9,343,2,331,0)="331|83419.0000|Glucose 30M p 100 g Glc PO|"
^XMB(3.9,343,2,332,0)="332|83420.0000|Glucose 30M p 50 g Lac PO|"
^XMB(3.9,343,2,333,0)="333|83421.0000|Glucose 30M p 75 g Glc PO|"
^XMB(3.9,343,2,334,0)="334|83422.0000|Glucose 30M p Ins IV|"
^XMB(3.9,343,2,335,0)="335|83423.0000|Glucose 3H p 100 g Glc PO|"
^XMB(3.9,343,2,336,0)="336|83424.0000|Glucose 3H p 75 g Glc PO|"
^XMB(3.9,343,2,337,0)="337|83425.0000|Glucose 3M p 0.5 g/kg Glc IV|"
^XMB(3.9,343,2,338,0)="338|83426.0000|Glucose 40M p 0.5 g/kg Glc IV|"
^XMB(3.9,343,2,339,0)="339|83427.0000|Glucose 45M p Ins IV|"
^XMB(3.9,343,2,340,0)="340|83428.0000|Glucose 4H p 100 g Glc PO|"
^XMB(3.9,343,2,341,0)="341|83429.0000|Glucose 4H p 75 g Glc PO|"
^XMB(3.9,343,2,342,0)="342|83430.0000|Glucose 5H p 100 g Glc PO|"
^XMB(3.9,343,2,343,0)="343|83431.0000|Glucose 5H p 75 g Glc PO|"
^XMB(3.9,343,2,344,0)="344|83432.0000|Glucose 5M p 0.5 g/kg Glc IV|"
^XMB(3.9,343,2,345,0)="345|83433.0000|Glucose 6H p 100 g Glc PO|"
^XMB(3.9,343,2,346,0)="346|83434.0000|Glucose BS|"
^XMB(3.9,343,2,347,0)="347|83435.0000|Glucose pre 0.5 g/kg Glc IV|"
^XMB(3.9,343,2,348,0)="348|83436.0000|Glucose pre 100 g Glc PO|"
^XMB(3.9,343,2,349,0)="349|83437.0000|Glucose pre 12H fast|"
^XMB(3.9,343,2,350,0)="350|83438.0000|Glucose pre 50 g Lac PO|"
^XMB(3.9,343,2,351,0)="351|83439.0000|Glucose pre 75 g Glc PO|"
^XMB(3.9,343,2,352,0)="352|83441.0000|Glucose pre Ins IV|"
^XMB(3.9,343,2,353,0)="353|83442.0000|Glucose p 12H fast|"
^XMB(3.9,343,2,354,0)="354|83443.0000|Glucose p fast|"
^XMB(3.9,343,2,355,0)="355|83444.0000|Insulin 1.5M p TBM IV|"
^XMB(3.9,343,2,356,0)="356|83451.0000|Insulin 1H p TBM IV|"
^XMB(3.9,343,2,357,0)="357|83452.0000|Insulin 1H p 75 g Glc PO|"
^XMB(3.9,343,2,358,0)="358|83453.0000|Insulin 2.5H p TBM IV|"
^XMB(3.9,343,2,359,0)="359|83454.0000|Insulin 2H p TBM IV|"
^XMB(3.9,343,2,360,0)="360|83456.0000|Insulin 2H p 75 g Glc PO|"
^XMB(3.9,343,2,361,0)="361|83458.0000|Insulin 30M p TBM IV|"
^XMB(3.9,343,2,362,0)="362|83459.0000|Insulin 3H p TBM IV|"
^XMB(3.9,343,2,363,0)="363|83460.0000|Insulin 3H p 75 g Glc PO|"
^XMB(3.9,343,2,364,0)="364|83461.0000|Insulin 4H p 75 g Glc PO|"
^XMB(3.9,343,2,365,0)="365|83462.0000|Insulin 5H p 75 g Glc PO|"
^XMB(3.9,343,2,366,0)="366|83463.0000|Insulin BS|"
^XMB(3.9,343,2,367,0)="367|83464.0000|Insulin pre TBM IV|"
^XMB(3.9,343,2,368,0)="368|83465.0000|Insulin pre 75 g Glc PO|"
^XMB(3.9,343,2,369,0)="369|83466.0000|Insulin p 12H fast|"
^XMB(3.9,343,2,370,0)="370|83467.0000|Lactose 1H p 50 g Lac PO|"
^XMB(3.9,343,2,371,0)="371|83468.0000|Lactose 2H p 50 g Lac PO|"
^XMB(3.9,343,2,372,0)="372|83469.0000|Lactose 30M p 50 g Lac PO|"
^XMB(3.9,343,2,373,0)="373|83470.0000|Lactose pre 12H fast|"
^XMB(3.9,343,2,374,0)="374|83471.0000|LH 1.5H p 100 g IV|"
^XMB(3.9,343,2,375,0)="375|83472.0000|LH 1.5H p GnRH|"
^XMB(3.9,343,2,376,0)="376|83473.0000|LH 105M p 100 g IV|"
^XMB(3.9,343,2,377,0)="377|83474.0000|LH 15M p 100 g IV|"
^XMB(3.9,343,2,378,0)="378|83475.0000|LH 1H p 100 g IV|"
^XMB(3.9,343,2,379,0)="379|83476.0000|LH 1H p GnRH|"
^XMB(3.9,343,2,380,0)="380|83477.0000|LH 2H p 100 g IV|"
^XMB(3.9,343,2,381,0)="381|83478.0000|LH 2H p GnRH|"
^XMB(3.9,343,2,382,0)="382|83479.0000|LH 30M p 100 g IV|"
^XMB(3.9,343,2,383,0)="383|83481.0000|LH 30M p GnRH|"
^XMB(3.9,343,2,384,0)="384|83482.0000|LH 45M p 100 g IV|"
^XMB(3.9,343,2,385,0)="385|83483.0000|LH 75M p 100 g IV|"
^XMB(3.9,343,2,386,0)="386|83484.0000|LH BS|"
^XMB(3.9,343,2,387,0)="387|83485.0000|LH pre GnRH|"
^XMB(3.9,343,2,388,0)="388|83486.0000|Prolactin 1.5H p Ins IV|"
^XMB(3.9,343,2,389,0)="389|83487.0000|Prolactin 1H p L-D PO|"
^XMB(3.9,343,2,390,0)="390|83488.0000|Prolactin 1H p TRH IV|"
^XMB(3.9,343,2,391,0)="391|83489.0000|Prolactin 1H p Ins IV|"
^XMB(3.9,343,2,392,0)="392|83491.0000|Prolactin 2H p L-D PO|"
^XMB(3.9,343,2,393,0)="393|83492.0000|Prolactin 30M p TRH IV|"
^XMB(3.9,343,2,394,0)="394|83493.0000|Prolactin 30M p Ins IV|"
^XMB(3.9,343,2,395,0)="395|83494.0000|Prolactin 3H p L-D PO|"
^XMB(3.9,343,2,396,0)="396|83497.0000|Prolactin 45M p Ins IV|"
^XMB(3.9,343,2,397,0)="397|83498.0000|Prolactin pre L-D PO|"
^XMB(3.9,343,2,398,0)="398|83499.0000|Prolactin pre TRH IV|"
^XMB(3.9,343,2,399,0)="399|83500.0000|Prolactin pre Ins IV|"
^XMB(3.9,343,2,400,0)="400|83501.0000|Vitamin A 3H p 5000 U|"
^XMB(3.9,343,2,401,0)="401|83502.0000|Vitamin A 6H p 5000 U|"
^XMB(3.9,343,2,402,0)="402|83503.0000|Vitamin A pre 5000 U|"
^XMB(3.9,343,2,403,0)="403|83504.0000|GH 1.5H p Ins IV|"
^XMB(3.9,343,2,404,0)="404|83505.0000|GH 1H p 1 g/kg Glc PO|"
^XMB(3.9,343,2,405,0)="405|83506.0000|GH 1H p Ins IV|"
^XMB(3.9,343,2,406,0)="406|83507.0000|GH 2H p 1 g/kg Glc PO|"
^XMB(3.9,343,2,407,0)="407|83508.0000|GH 30M p Ins IV|"
^XMB(3.9,343,2,408,0)="408|83509.0000|GH 3H p 1 g/kg Glc PO|"
^XMB(3.9,343,2,409,0)="409|83510.0000|GH 45M p Ins IV|"
^XMB(3.9,343,2,410,0)="410|83511.0000|GH 52H p 250 ug L-D TID 2D PO|"
^XMB(3.9,343,2,411,0)="411|83512.0000|GH pre 1 g/kg Glc PO|"
^XMB(3.9,343,2,412,0)="412|83513.0000|GH pre 250 ug L-D TID 2D PO|"
^XMB(3.9,343,2,413,0)="413|83514.0000|GH pre Ins IV|"
^XMB(3.9,343,2,414,0)="414|83515.0000|Testost 96H p 5000 U HCG IM|"
^XMB(3.9,343,2,415,0)="415|83516.0000|Testost pre 5000 U CG IM|"
^XMB(3.9,343,2,416,0)="416|83517.0000|TSH 30M p TRH IV|"
^XMB(3.9,343,2,417,0)="417|83518.0000|TSH 1H p TRH IV|"
^XMB(3.9,343,2,418,0)="418|83519.0000|TSH BS|"
^XMB(3.9,343,2,419,0)="419|83520.0000|TSH pre TRH IV|"
^XMB(3.9,343,2,420,0)="420|83521.0000|Triglyceride p 12H fast|"
^XMB(3.9,343,2,421,0)="421|83522.0000|Vitamin D1,25|"
^XMB(3.9,343,2,422,0)="422|83523.0000|1Me-hist|"
^XMB(3.9,343,2,423,0)="423|83524.0000|11DOC|"
^XMB(3.9,343,2,424,0)="424|83525.0000|11DC|"
^XMB(3.9,343,2,425,0)="425|83526.0000|11OH-Androst|"
^XMB(3.9,343,2,426,0)="426|83527.0000|11OH-Etiochol|"
^XMB(3.9,343,2,427,0)="427|83528.0000|11Ketoandrost|"
^XMB(3.9,343,2,428,0)="428|83529.0000|11Ketoetiochol|"
^XMB(3.9,343,2,429,0)="429|83530.0000|11Oxycorticosterone|"
^XMB(3.9,343,2,430,0)="430|83531.0000|17OHP|"
^XMB(3.9,343,2,431,0)="431|83532.0000|18OHB|"
^XMB(3.9,343,2,432,0)="432|83533.0000|2,3DPG|"
^XMB(3.9,343,2,433,0)="433|83534.0000|A-OH-Butyr Dehydrog|"
^XMB(3.9,343,2,434,0)="434|83535.0000|20OHP|"
^XMB(3.9,343,2,435,0)="435|83536.0000|24R-OH-Calcidiol|"
^XMB(3.9,343,2,436,0)="436|83537.0000|3A-diol G|"
^XMB(3.9,343,2,437,0)="437|83538.0000|B-OH-Butyr Dehydrog|"
^XMB(3.9,343,2,438,0)="438|83539.0000|3Me-hist|"
^XMB(3.9,343,2,439,0)="439|83541.0000|4Pyridoxate|"
^XMB(3.9,343,2,440,0)="440|83542.0000|5NT|"
^XMB(3.9,343,2,441,0)="441|83543.0000|5HIAA|"
^XMB(3.9,343,2,442,0)="442|83544.0000|5MTHF-Hcys-MT|"
^XMB(3.9,343,2,443,0)="443|83545.0000|8OH-Amoxapine|"
^XMB(3.9,343,2,444,0)="444|83546.0000|ACh|"
^XMB(3.9,343,2,445,0)="445|83547.0000|AChE|"
^XMB(3.9,343,2,446,0)="446|83548.0000|PACP|"
^XMB(3.9,343,2,447,0)="447|83549.0000|ACP|"
^XMB(3.9,343,2,448,0)="448|83551.0000|Acyl Carnitine|"
^XMB(3.9,343,2,449,0)="449|83552.0000|Acyl CoA Dehydrog|"
^XMB(3.9,343,2,450,0)="450|83553.0000|Adenine|"
^XMB(3.9,343,2,451,0)="451|83554.0000|AMP Deaminase|"
^XMB(3.9,343,2,452,0)="452|83556.0000|cAMP|"
^XMB(3.9,343,2,453,0)="453|83557.0000|cAMP/creat|"
^XMB(3.9,343,2,454,0)="454|83558.0000|Adenylate Kinase|"
^XMB(3.9,343,2,455,0)="455|83559.0000|ADSL|"
^XMB(3.9,343,2,456,0)="456|83560.0000|AAP|"
^XMB(3.9,343,2,457,0)="457|83561.0000|ALT|"
^XMB(3.9,343,2,458,0)="458|83562.0000|Albumin Glycated|"
^XMB(3.9,343,2,459,0)="459|83563.0000|A/G|"
^XMB(3.9,343,2,460,0)="460|83564.0000|Aldost|"
^XMB(3.9,343,2,461,0)="461|83565.0000|Aldost sup|"
^XMB(3.9,343,2,462,0)="462|83566.0000|Aldost upr|"
^XMB(3.9,343,2,463,0)="463|83567.0000|Al Carb C14-C26 Abs|"
^XMB(3.9,343,2,464,0)="464|83568.0000|Al Carb C14-C26 Ester|"
^XMB(3.9,343,2,465,0)="465|83569.0000|ALP Bone|"
^XMB(3.9,343,2,466,0)="466|83570.0000|ALP Intest|"
^XMB(3.9,343,2,467,0)="467|83571.0000|ALP Liver|"
^XMB(3.9,343,2,468,0)="468|83572.0000|ALP Plac|"
^XMB(3.9,343,2,469,0)="469|83573.0000|ALP Regan|"
^XMB(3.9,343,2,470,0)="470|83574.0000|ALP Renal|"
^XMB(3.9,343,2,471,0)="471|83576.0000|A-Aminobutyr|"
^XMB(3.9,343,2,472,0)="472|83577.0000|Amylase P|"
^XMB(3.9,343,2,473,0)="473|83578.0000|Amylase S|"
^XMB(3.9,343,2,474,0)="474|83579.0000|Amylase/creat|"
^XMB(3.9,343,2,475,0)="475|83580.0000|A-Galactosidase|"
^XMB(3.9,343,2,476,0)="476|83581.0000|A-Ketoglut|"
^XMB(3.9,343,2,477,0)="477|83582.0000|A-Mannosidase|"
^XMB(3.9,343,2,478,0)="478|83583.0000|A-MSH|"
^XMB(3.9,343,2,479,0)="479|83584.0000|A-Naphthylesterase|"
^XMB(3.9,343,2,480,0)="480|83585.0000|A-Thymosin|"
^XMB(3.9,343,2,481,0)="481|83586.0000|A-Tocopherol Vit E|"
^XMB(3.9,343,2,482,0)="482|83587.0000|A1ACT|"
^XMB(3.9,343,2,483,0)="483|83588.0000|A1AT|"
^XMB(3.9,343,2,484,0)="484|83589.0000|A1AT MM|"
^XMB(3.9,343,2,485,0)="485|83590.0000|A1AT MS|"
^XMB(3.9,343,2,486,0)="486|83591.0000|A1AT MZ|"
^XMB(3.9,343,2,487,0)="487|83592.0000|A1AT SS|"
^XMB(3.9,343,2,488,0)="488|83593.0000|A1AT SZ|"
^XMB(3.9,343,2,489,0)="489|83594.0000|A1AT ZZ|"
^XMB(3.9,343,2,490,0)="490|83595.0000|AFP|"
^XMB(3.9,343,2,491,0)="491|83596.0000|A2 Macroglob|"
^XMB(3.9,343,2,492,0)="492|83597.0000|Retinol Bind Prot|"
^XMB(3.9,343,2,493,0)="493|83598.0000|A-NAG|"
^XMB(3.9,343,2,494,0)="494|83599.0000|AA Prot|"
^XMB(3.9,343,2,495,0)="495|83601.0000|Androstanolone|"
^XMB(3.9,343,2,496,0)="496|83602.0000|Androst|"
^XMB(3.9,343,2,497,0)="497|83603.0000|Androsterone|"
^XMB(3.9,343,2,498,0)="498|83604.0000|Aniline|"
^XMB(3.9,343,2,499,0)="499|83606.0000|Anion Gap4|"
^XMB(3.9,343,2,500,0)="500|83607.0000|Apo A-I|"
^XMB(3.9,343,2,501,0)="501|83608.0000|Apo A-II|"
^XMB(3.9,343,2,502,0)="502|83609.0000|Apo B100|"
^XMB(3.9,343,2,503,0)="503|83610.0000|Apo B150|"
^XMB(3.9,343,2,504,0)="504|83611.0000|Apo B48|"
^XMB(3.9,343,2,505,0)="505|83612.0000|Apo B/Apo A-I|"
^XMB(3.9,343,2,506,0)="506|83613.0000|Apo C-I|"
^XMB(3.9,343,2,507,0)="507|83614.0000|Apo C-II|"
^XMB(3.9,343,2,508,0)="508|83615.0000|Apo C-III|"
^XMB(3.9,343,2,509,0)="509|83616.0000|Apo A-III|"
^XMB(3.9,343,2,510,0)="510|83617.0000|Apo E-II|"
^XMB(3.9,343,2,511,0)="511|83618.0000|B2 Glycoprot1|"
^XMB(3.9,343,2,512,0)="512|83619.0000|Apo Lp(a)|"
^XMB(3.9,343,2,513,0)="513|83621.0000|Apo Lp(q)|"
^XMB(3.9,343,2,514,0)="514|83622.0000|Apo A|"
^XMB(3.9,343,2,515,0)="515|83623.0000|Apo B|"
^XMB(3.9,343,2,516,0)="516|83624.0000|Apo C|"
^XMB(3.9,343,2,517,0)="517|83626.0000|Apo E|"
^XMB(3.9,343,2,518,0)="518|83627.0000|Vitamin B12a|"
^XMB(3.9,343,2,519,0)="519|83628.0000|Argininosuccinate|"
^XMB(3.9,343,2,520,0)="520|83629.0000|ASA Lyase|"
^XMB(3.9,343,2,521,0)="521|83630.0000|Arylamidase|"
^XMB(3.9,343,2,522,0)="522|83631.0000|Arylsulfatase|"
^XMB(3.9,343,2,523,0)="523|83632.0000|AST/ALT|"
^XMB(3.9,343,2,524,0)="524|83633.0000|AST|"
^XMB(3.9,343,2,525,0)="525|83634.0000|Benzoate|"
^XMB(3.9,343,2,526,0)="526|83635.0000|B-Alanine|"
^XMB(3.9,343,2,527,0)="527|83636.0000|B-Endorphin|"
^XMB(3.9,343,2,528,0)="528|83637.0000|B-Fructofuranosidase|"
^XMB(3.9,343,2,529,0)="529|83638.0000|B-Galactosidase|"
^XMB(3.9,343,2,530,0)="530|83639.0000|B-Lipotropin|"
^XMB(3.9,343,2,531,0)="531|83640.0000|B-MSH|"
^XMB(3.9,343,2,532,0)="532|83641.0000|B2 Microglob|"
^XMB(3.9,343,2,533,0)="533|83643.0000|B-NAH|"
^XMB(3.9,343,2,534,0)="534|83644.0000|Hexosaminidase B|"
^XMB(3.9,343,2,535,0)="535|83645.0000|Hexosaminidase I|"
^XMB(3.9,343,2,536,0)="536|83646.0000|HCO3|"
^XMB(3.9,343,2,537,0)="537|83647.0000|Bile Ac|"
^XMB(3.9,343,2,538,0)="538|83648.0000|Bilirubin Delta|"
^XMB(3.9,343,2,539,0)="539|83649.0000|Bilirubin Indirect|"
^XMB(3.9,343,2,540,0)="540|83650.0000|Bilirubin|"
^XMB(3.9,343,2,541,0)="541|83651.0000|C Peptide|"
^XMB(3.9,343,2,542,0)="542|83652.0000|Vitamin D25|"
^XMB(3.9,343,2,543,0)="543|83653.0000|Cholecalciferol|"
^XMB(3.9,343,2,544,0)="544|83654.0000|Calciferol BP|"
^XMB(3.9,343,2,545,0)="545|83655.0000|Ca-I|"
^XMB(3.9,343,2,546,0)="546|83656.0000|Cancer Ag125|"
^XMB(3.9,343,2,547,0)="547|83657.0000|Cancer Ag15-3|"
^XMB(3.9,343,2,548,0)="548|83658.0000|Cancer Ag19-9|"
^XMB(3.9,343,2,549,0)="549|83659.0000|Cancer Ag242|"
^XMB(3.9,343,2,550,0)="550|83660.0000|Cancer Ag27-29|"
^XMB(3.9,343,2,551,0)="551|83661.0000|Cancer Ag50|"
^XMB(3.9,343,2,552,0)="552|83662.0000|Cancer Ag549|"
^XMB(3.9,343,2,553,0)="553|83663.0000|Cancer Ag72-4|"
^XMB(3.9,343,2,554,0)="554|83664.0000|Carnitine AcT|"
^XMB(3.9,343,2,555,0)="555|83666.0000|Carnitine/creat|"
^XMB(3.9,343,2,556,0)="556|83667.0000|CDCAe|"
^XMB(3.9,343,2,557,0)="557|83668.0000|CDCG|"
^XMB(3.9,343,2,558,0)="558|83669.0000|CDCG Conj|"
^XMB(3.9,343,2,559,0)="559|83670.0000|Cholate|"
^XMB(3.9,343,2,560,0)="560|83671.0000|Cholestanol|"
^XMB(3.9,343,2,561,0)="561|83672.0000|Cholesterol Est|"
^XMB(3.9,343,2,562,0)="562|83673.0000|Cholesterol Ester|"
^XMB(3.9,343,2,563,0)="563|83674.0000|HDLc|"
^XMB(3.9,343,2,564,0)="564|83676.0000|IDLc|"
^XMB(3.9,343,2,565,0)="565|83677.0000|LDLc|"
^XMB(3.9,343,2,566,0)="566|83678.0000|VLDLc|"
^XMB(3.9,343,2,567,0)="567|83679.0000|Cholesterol|"
^XMB(3.9,343,2,568,0)="568|83680.0000|NE Cholest|"
^XMB(3.9,343,2,569,0)="569|83681.0000|Cholest/Trigl|"
^XMB(3.9,343,2,570,0)="570|83682.0000|Cholinesterase|"
^XMB(3.9,343,2,571,0)="571|83683.0000|Cholylglycine Conj|"
^XMB(3.9,343,2,572,0)="572|83684.0000|Choriomammotropin|"
^XMB(3.9,343,2,573,0)="573|83685.0000|A-HCG|"
^XMB(3.9,343,2,574,0)="574|83686.0000|B-HCG|"
^XMB(3.9,343,2,575,0)="575|83687.0000|B-HCG Free|"
^XMB(3.9,343,2,576,0)="576|83688.0000|HGC Intact|"
^XMB(3.9,343,2,577,0)="577|83689.0000|Chymotryp|"
^XMB(3.9,343,2,578,0)="578|83692.0000|Collagenase|"
^XMB(3.9,343,2,579,0)="579|83693.0000|COPROgen-oxidase|"
^XMB(3.9,343,2,580,0)="580|83694.0000|Cortis|"
^XMB(3.9,343,2,581,0)="581|83695.0000|Cortis Free|"
^XMB(3.9,343,2,582,0)="582|83696.0000|CK BB|"
^XMB(3.9,343,2,583,0)="583|83697.0000|CK Macro|"
^XMB(3.9,343,2,584,0)="584|83698.0000|CK MM|"
^XMB(3.9,343,2,585,0)="585|83699.0000|CK/CK MB|"
^XMB(3.9,343,2,586,0)="586|83701.0000|Creat|"
^XMB(3.9,343,2,587,0)="587|83702.0000|Vitamin B12 USB|"
^XMB(3.9,343,2,588,0)="588|83703.0000|Cys+Cysteine|"
^XMB(3.9,343,2,589,0)="589|83704.0000|Cystinyl AP|"
^XMB(3.9,343,2,590,0)="590|83705.0000|Cytochrome B5 Reduct|"
^XMB(3.9,343,2,591,0)="591|83706.0000|Cytosol AP|"
^XMB(3.9,343,2,592,0)="592|83707.0000|DHEA-S|"
^XMB(3.9,343,2,593,0)="593|83708.0000|Dehydroepiandrosterone DHEA|"
^XMB(3.9,343,2,594,0)="594|83709.0000|D-ALA|"
^XMB(3.9,343,2,595,0)="595|83710.0000|DO-cholate|"
^XMB(3.9,343,2,596,0)="596|83711.0000|DO-cholylgly|"
^XMB(3.9,343,2,597,0)="597|83712.0000|Dermatan Sulfate|"
^XMB(3.9,343,2,598,0)="598|83713.0000|Diacetate|"
^XMB(3.9,343,2,599,0)="599|83714.0000|Dicarboxy C6-C8-C10|"
^XMB(3.9,343,2,600,0)="600|83716.0000|Diethyl Ether|"
^XMB(3.9,343,2,601,0)="601|83717.0000|Dihydrofolate|"
^XMB(3.9,343,2,602,0)="602|83718.0000|DHP Reduct|"
^XMB(3.9,343,2,603,0)="603|83719.0000|DMO|"
^XMB(3.9,343,2,604,0)="604|83720.0000|DPPC|"
^XMB(3.9,343,2,605,0)="605|83721.0000|Dopamine B-Hydroxylae|"
^XMB(3.9,343,2,606,0)="606|83722.0000|Elastase Panc Free|"
^XMB(3.9,343,2,607,0)="607|83723.0000|Elastase Panc|"
^XMB(3.9,343,2,608,0)="608|83724.0000|Elastase Panc2|"
^XMB(3.9,343,2,609,0)="609|83725.0000|Enolase|"
^XMB(3.9,343,2,610,0)="610|83726.0000|NSE|"
^XMB(3.9,343,2,611,0)="611|83727.0000|Enteroglucagon|"
^XMB(3.9,343,2,612,0)="612|83728.0000|Etx|"
^XMB(3.9,343,2,613,0)="613|83729.0000|Epitestost|"
^XMB(3.9,343,2,614,0)="614|83730.0000|Calciferol|"
^XMB(3.9,343,2,615,0)="615|83731.0000|Estradiol Free|"
^XMB(3.9,343,2,616,0)="616|83732.0000|nPB Estradiol|"
^XMB(3.9,343,2,617,0)="617|83733.0000|Estriol Conj|"
^XMB(3.9,343,2,618,0)="618|83734.0000|Estriol Estriol|"
^XMB(3.9,343,2,619,0)="619|83736.0000|Estrogen|"
^XMB(3.9,343,2,620,0)="620|83737.0000|Estrone Estrone|"
^XMB(3.9,343,2,621,0)="621|83738.0000|Comp Fact B|"
^XMB(3.9,343,2,622,0)="622|83739.0000|FA|"
^XMB(3.9,343,2,623,0)="623|83740.0000|Ferrochelatase|"
^XMB(3.9,343,2,624,0)="624|83741.0000|FpB|"
^XMB(3.9,343,2,625,0)="625|83742.0000|FAD|"
^XMB(3.9,343,2,626,0)="626|83743.0000|A-FSH|"
^XMB(3.9,343,2,627,0)="627|83744.0000|B-FSH|"
^XMB(3.9,343,2,628,0)="628|83745.0000|Formate|"
^XMB(3.9,343,2,629,0)="629|83746.0000|Fructokinase|"
^XMB(3.9,343,2,630,0)="630|83747.0000|Fumarase|"
^XMB(3.9,343,2,631,0)="631|83748.0000|Fumarylacetoacetate|"
^XMB(3.9,343,2,632,0)="632|83749.0000|GGCS|"
^XMB(3.9,343,2,633,0)="633|83750.0000|GGT/AST|"
^XMB(3.9,343,2,634,0)="634|83751.0000|GIP|"
^XMB(3.9,343,2,635,0)="635|83752.0000|GRP|"
^XMB(3.9,343,2,636,0)="636|83753.0000|Gastrin34 Residu Frg|"
^XMB(3.9,343,2,637,0)="637|83754.0000|Gastrin17 Residu Frg|"
^XMB(3.9,343,2,638,0)="638|83755.0000|Gastrin14 Residu Frg|"
^XMB(3.9,343,2,639,0)="639|83756.0000|Glucose|"
^XMB(3.9,343,2,640,0)="640|83757.0000|GPI|"
^XMB(3.9,343,2,641,0)="641|83758.0000|G6Pas|"
^XMB(3.9,343,2,642,0)="642|83759.0000|GluDH|"
^XMB(3.9,343,2,643,0)="643|83760.0000|NAD GluDH|"
^XMB(3.9,343,2,644,0)="644|83761.0000|NADP GluDH|"
^XMB(3.9,343,2,645,0)="645|83762.0000|GAPD|"
^XMB(3.9,343,2,646,0)="646|83763.0000|Glycerate|"
^XMB(3.9,343,2,647,0)="647|83764.0000|Glycogen Synthase|"
^XMB(3.9,343,2,648,0)="648|83765.0000|Guanine Deaminase|"
^XMB(3.9,343,2,649,0)="649|83766.0000|cGMP|"
^XMB(3.9,343,2,650,0)="650|83767.0000|Hemopexin|"
^XMB(3.9,343,2,651,0)="651|83768.0000|HAL|"
^XMB(3.9,343,2,652,0)="652|83769.0000|HVA|"
^XMB(3.9,343,2,653,0)="653|83770.0000|OH-Calcidiol|"
^XMB(3.9,343,2,654,0)="654|83771.0000|Vitamin B12b|"
^XMB(3.9,343,2,655,0)="655|83772.0000|HMG-CoA Lyase|"
^XMB(3.9,343,2,656,0)="656|83773.0000|OH-Proline|"
^XMB(3.9,343,2,657,0)="657|83774.0000|OH-Proline Free|"
^XMB(3.9,343,2,658,0)="658|83776.0000|Hypoxanthine|"
^XMB(3.9,343,2,659,0)="659|83777.0000|IgE|"
^XMB(3.9,343,2,660,0)="660|83778.0000|IgG1|"
^XMB(3.9,343,2,661,0)="661|83779.0000|IgG2|"
^XMB(3.9,343,2,662,0)="662|83780.0000|IgG3|"
^XMB(3.9,343,2,663,0)="663|83781.0000|IgG4|"
^XMB(3.9,343,2,664,0)="664|83782.0000|Indolamine|"
^XMB(3.9,343,2,665,0)="665|83783.0000|Indole|"
^XMB(3.9,343,2,666,0)="666|83784.0000|Inhibin|"
^XMB(3.9,343,2,667,0)="667|83785.0000|Inosine|"
^XMB(3.9,343,2,668,0)="668|83786.0000|Inositol Free|"
^XMB(3.9,343,2,669,0)="669|83787.0000|IGF BP3|"
^XMB(3.9,343,2,670,0)="670|83788.0000|IGF-I|"
^XMB(3.9,343,2,671,0)="671|83789.0000|IGF-II|"
^XMB(3.9,343,2,672,0)="672|83790.0000|Somatomedins|"
^XMB(3.9,343,2,673,0)="673|83791.0000|Inter A-Trypsin Inhib|"
^XMB(3.9,343,2,674,0)="674|83792.0000|IF|"
^XMB(3.9,343,2,675,0)="675|83793.0000|IF Block Ab Titer|"
^XMB(3.9,343,2,676,0)="676|83794.0000|Inulin|"
^XMB(3.9,343,2,677,0)="677|83796.0000|Iron|"
^XMB(3.9,343,2,678,0)="678|83797.0000|TIBC|"
^XMB(3.9,343,2,679,0)="679|83798.0000|Iron/TIBC|"
^XMB(3.9,343,2,680,0)="680|83799.0000|Isocitrate Dehydrog|"
^XMB(3.9,343,2,681,0)="681|83800.0000|L-Iditol Dehydrog|"
^XMB(3.9,343,2,682,0)="682|83801.0000|Lactate|"
^XMB(3.9,343,2,683,0)="683|83802.0000|LDH|"
^XMB(3.9,343,2,684,0)="684|83803.0000|LDH1 %|"
^XMB(3.9,343,2,685,0)="685|83804.0000|LDH2|"
^XMB(3.9,343,2,686,0)="686|83805.0000|LDH2 %|"
^XMB(3.9,343,2,687,0)="687|83806.0000|LDH3|"
^XMB(3.9,343,2,688,0)="688|83807.0000|LDH3 %|"
^XMB(3.9,343,2,689,0)="689|83808.0000|LDH4|"
^XMB(3.9,343,2,690,0)="690|83809.0000|LDH4 %|"
^XMB(3.9,343,2,691,0)="691|83810.0000|LDH5|"
^XMB(3.9,343,2,692,0)="692|83811.0000|LDH5 %|"
^XMB(3.9,343,2,693,0)="693|83812.0000|LCAT|"
^XMB(3.9,343,2,694,0)="694|83813.0000|Phospholipid P|"
^XMB(3.9,343,2,695,0)="695|83814.0000|LPL|"
^XMB(3.9,343,2,696,0)="696|83815.0000|A-LP|"
^XMB(3.9,343,2,697,0)="697|83816.0000|B-LP|"
^XMB(3.9,343,2,698,0)="698|83817.0000|PreB-LP|"
^XMB(3.9,343,2,699,0)="699|83818.0000|Lithocholate|"
^XMB(3.9,343,2,700,0)="700|83819.0000|GnRH|"
^XMB(3.9,343,2,701,0)="701|83820.0000|A-LH|"
^XMB(3.9,343,2,702,0)="702|83821.0000|B-LH|"
^XMB(3.9,343,2,703,0)="703|83822.0000|Macroglob|"
^XMB(3.9,343,2,704,0)="704|83823.0000|Magnesium Free|"
^XMB(3.9,343,2,705,0)="705|83824.0000|Malonate|"
^XMB(3.9,343,2,706,0)="706|83825.0000|Methcopro|"
^XMB(3.9,343,2,707,0)="707|83826.0000|Methoxyacetate|"
^XMB(3.9,343,2,708,0)="708|83827.0000|MTD.NAD|"
^XMB(3.9,343,2,709,0)="709|83828.0000|MTD.NADP|"
^XMB(3.9,343,2,710,0)="710|83829.0000|MCM|"
^XMB(3.9,343,2,711,0)="711|83830.0000|Mianserin|"
^XMB(3.9,343,2,712,0)="712|83831.0000|Mucoprotein|"
^XMB(3.9,343,2,713,0)="713|83832.0000|Myoglobin|"
^XMB(3.9,343,2,714,0)="714|83833.0000|B-NAG|"
^XMB(3.9,343,2,715,0)="715|83834.0000|Arylsulfatase B|"
^XMB(3.9,343,2,716,0)="716|83835.0000|NAG6Sulfatase|"
^XMB(3.9,343,2,717,0)="717|83836.0000|Nitrogen Nonprotein|"
^XMB(3.9,343,2,718,0)="718|83837.0000|Oleate|"
^XMB(3.9,343,2,719,0)="719|83838.0000|A1Glycoprot|"
^XMB(3.9,343,2,720,0)="720|83839.0000|OPRT|"
^XMB(3.9,343,2,721,0)="721|83840.0000|OMPdecase|"
^XMB(3.9,343,2,722,0)="722|83841.0000|Palmitate|"
^XMB(3.9,343,2,723,0)="723|83842.0000|Panc Polypept|"
^XMB(3.9,343,2,724,0)="724|83843.0000|Pantothenate|"
^XMB(3.9,343,2,725,0)="725|83844.0000|PTH-C-Term|"
^XMB(3.9,343,2,726,0)="726|83845.0000|PTH-Intact|"
^XMB(3.9,343,2,727,0)="727|83846.0000|PTH Mid Mol|"
^XMB(3.9,343,2,728,0)="728|83847.0000|PTH-N-Term|"
^XMB(3.9,343,2,729,0)="729|83848.0000|ACE|"
^XMB(3.9,343,2,730,0)="730|83849.0000|Phe|"
^XMB(3.9,343,2,731,0)="731|83850.0000|Phe/Tyr|"
^XMB(3.9,343,2,732,0)="732|83851.0000|Phosphate|"
^XMB(3.9,343,2,733,0)="733|83852.0000|PI|"
^XMB(3.9,343,2,734,0)="734|83853.0000|PEPCK|"
^XMB(3.9,343,2,735,0)="735|83854.0000|PETN|"
^XMB(3.9,343,2,736,0)="736|83855.0000|PFK|"
^XMB(3.9,343,2,737,0)="737|83856.0000|Phosphoglucomutase|"
^XMB(3.9,343,2,738,0)="738|83858.0000|PGK|"
^XMB(3.9,343,2,739,0)="739|83859.0000|Phosphoglyceromutase|"
^XMB(3.9,343,2,740,0)="740|83860.0000|Phosphohexoisomerase|"
^XMB(3.9,343,2,741,0)="741|83861.0000|Phytanate|"
^XMB(3.9,343,2,742,0)="742|83862.0000|Pipecolate|"
^XMB(3.9,343,2,743,0)="743|83863.0000|Porphobilin|"
^XMB(3.9,343,2,744,0)="744|83864.0000|Preg Sp Prot1|"
^XMB(3.9,343,2,745,0)="745|83866.0000|Preg|"
^XMB(3.9,343,2,746,0)="746|83867.0000|Progest|"
^XMB(3.9,343,2,747,0)="747|83868.0000|Propionate|"
^XMB(3.9,343,2,748,0)="748|83869.0000|Prostaglandin E1|"
^XMB(3.9,343,2,749,0)="749|83870.0000|Prostaglandin E2|"
^XMB(3.9,343,2,750,0)="750|83871.0000|Prostaglandin F2|"
^XMB(3.9,343,2,751,0)="751|83872.0000|PSA|"
^XMB(3.9,343,2,752,0)="752|83873.0000|Prot Kinase|"
^XMB(3.9,343,2,753,0)="753|83874.0000|A1 Globulin|"
^XMB(3.9,343,2,754,0)="754|83876.0000|A2 Globulin|"
^XMB(3.9,343,2,755,0)="755|83877.0000|B-Globulin|"
^XMB(3.9,343,2,756,0)="756|83878.0000|G-Globulin|"
^XMB(3.9,343,2,757,0)="757|83879.0000|Prealb|"
^XMB(3.9,343,2,758,0)="758|83880.0000|Prot|"
^XMB(3.9,343,2,759,0)="759|83881.0000|Vitamin B6 Congeners|"
^XMB(3.9,343,2,760,0)="760|83882.0000|PDH Cytochrome|"
^XMB(3.9,343,2,761,0)="761|83883.0000|Pyruvate Oxidase|"
^XMB(3.9,343,2,762,0)="762|83884.0000|Retinal|"
^XMB(3.9,343,2,763,0)="763|83885.0000|Retinoate|"
^XMB(3.9,343,2,764,0)="764|83886.0000|Rnase|"
^XMB(3.9,343,2,765,0)="765|83887.0000|Ribose|"
^XMB(3.9,343,2,766,0)="766|83888.0000|Ribulose|"
^XMB(3.9,343,2,767,0)="767|83889.0000|SHBG|"
^XMB(3.9,343,2,768,0)="768|83890.0000|Sialidase|"
^XMB(3.9,343,2,769,0)="769|83891.0000|GH|"
^XMB(3.9,343,2,770,0)="770|83892.0000|Streptomyces Proteinase|"
^XMB(3.9,343,2,771,0)="771|83893.0000|Inorg Sulfate|"
^XMB(3.9,343,2,772,0)="772|83894.0000|Taurine|"
^XMB(3.9,343,2,773,0)="773|83895.0000|Testost|"
^XMB(3.9,343,2,774,0)="774|83896.0000|Testost Bioavail|"
^XMB(3.9,343,2,775,0)="775|83897.0000|Testost Free|"
^XMB(3.9,343,2,776,0)="776|83898.0000|Testosterone Testost|"
^XMB(3.9,343,2,777,0)="777|83899.0000|Vitamin B1 Pyrophoshate|"
^XMB(3.9,343,2,778,0)="778|83901.0000|TXA2|"
^XMB(3.9,343,2,779,0)="779|83902.0000|TXB2|"
^XMB(3.9,343,2,780,0)="780|83903.0000|Thyroglob|"
^XMB(3.9,343,2,781,0)="781|83904.0000|TSI|"
^XMB(3.9,343,2,782,0)="782|83905.0000|TSH|"
^XMB(3.9,343,2,783,0)="783|83906.0000|TSH BII|"
^XMB(3.9,343,2,784,0)="784|83907.0000|TSH RF|"
^XMB(3.9,343,2,785,0)="785|83908.0000|LA TSH|"
^XMB(3.9,343,2,786,0)="786|83909.0000|T4BG|"
^XMB(3.9,343,2,787,0)="787|83910.0000|T4U|"
^XMB(3.9,343,2,788,0)="788|83911.0000|Free T4|"
^XMB(3.9,343,2,789,0)="789|83912.0000|T4/T4 BG|"
^XMB(3.9,343,2,790,0)="790|83913.0000|T4/T3 Uptake Index|"
^XMB(3.9,343,2,791,0)="791|83914.0000|Transcobalamin I|"
^XMB(3.9,343,2,792,0)="792|83916.0000|Transcobalamin II|"
^XMB(3.9,343,2,793,0)="793|83917.0000|Transcobalamin III|"
^XMB(3.9,343,2,794,0)="794|83918.0000|Transcobalamin|"
^XMB(3.9,343,2,795,0)="795|83919.0000|Transcortin|"
^XMB(3.9,343,2,796,0)="796|83921.0000|Lipase|"
^XMB(3.9,343,2,797,0)="797|83922.0000|Trigl+HDL Ester|"
^XMB(3.9,343,2,798,0)="798|83923.0000|Trigl+IDL Ester|"
^XMB(3.9,343,2,799,0)="799|83924.0000|Trigl+LDL Ester|"
^XMB(3.9,343,2,800,0)="800|83926.0000|Trigl+VLDL Ester|"
^XMB(3.9,343,2,801,0)="801|83927.0000|Triglyceride p fast|"
^XMB(3.9,343,2,802,0)="802|83928.0000|T3RU %|"
^XMB(3.9,343,2,803,0)="803|83929.0000|T3Free|"
^XMB(3.9,343,2,804,0)="804|83931.0000|T3Reverse|"
^XMB(3.9,343,2,805,0)="805|83932.0000|T3True|"
^XMB(3.9,343,2,806,0)="806|83933.0000|T3/T3 Uptake Index|"
^XMB(3.9,343,2,807,0)="807|83934.0000|TPI|"
^XMB(3.9,343,2,808,0)="808|83935.0000|Trypsin+Trypsinogen|"
^XMB(3.9,343,2,809,0)="809|83936.0000|Trypsinogen I Free|"
^XMB(3.9,343,2,810,0)="810|83937.0000|Tryptophan Free|"
^XMB(3.9,343,2,811,0)="811|83938.0000|Urate|"
^XMB(3.9,343,2,812,0)="812|83939.0000|Urea|"
^XMB(3.9,343,2,813,0)="813|83940.0000|BUN|"
^XMB(3.9,343,2,814,0)="814|83941.0000|Menadione|"
^XMB(3.9,343,2,815,0)="815|83942.0000|Xylulose|"
^XMB(3.9,343,2,816,0)="816|83943.0000|Cardiolipin IgG|"
^XMB(3.9,343,2,817,0)="817|83947.0000|Cardiolipin IgM|"
^XMB(3.9,343,2,818,0)="818|83948.0000|FSP|"
^XMB(3.9,343,2,819,0)="819|83949.0000|Fibrin Sol|"
^XMB(3.9,343,2,820,0)="820|83951.0000|Heparin Ab|"
^XMB(3.9,343,2,821,0)="821|83952.0000|LMWK|"
^XMB(3.9,343,2,822,0)="822|83953.0000|Phospholipid Ab|"
^XMB(3.9,343,2,823,0)="823|83954.0000|Phospholipid IgG|"
^XMB(3.9,343,2,824,0)="824|83956.0000|Phospholipid IgM|"
^XMB(3.9,343,2,825,0)="825|83957.0000|2Pyridone|"
^XMB(3.9,343,2,826,0)="826|83958.0000|2Pyridone/NMN|"
^XMB(3.9,343,2,827,0)="827|83959.0000|Acetyldigitoxin|"
^XMB(3.9,343,2,828,0)="828|83961.0000|Acetylsalicylate|"
^XMB(3.9,343,2,829,0)="829|83963.0000|Alfentanil|"
^XMB(3.9,343,2,830,0)="830|83964.0000|Amikacin Random|"
^XMB(3.9,343,2,831,0)="831|83965.0000|Amiloride|"
^XMB(3.9,343,2,832,0)="832|84052.0000|Amicar Trough|"
^XMB(3.9,343,2,833,0)="833|84053.0000|Aminopyrine|"
^XMB(3.9,343,2,834,0)="834|84054.0000|Aminosalicylate|"
^XMB(3.9,343,2,835,0)="835|84055.0000|Amiodarone+Deseth|"
^XMB(3.9,343,2,836,0)="836|84056.0000|Amitrip|"
^XMB(3.9,343,2,837,0)="837|84057.0000|Amitrip+Nor|"
^XMB(3.9,343,2,838,0)="838|84058.0000|Amitrip >12H Tr|"
^XMB(3.9,343,2,839,0)="839|84059.0000|Amphets|"
^XMB(3.9,343,2,840,0)="840|84062.0000|Anthraquinone|"
^XMB(3.9,343,2,841,0)="841|84063.0000|Antipyrine|"
^XMB(3.9,343,2,842,0)="842|84064.0000|Barbiturates|"
^XMB(3.9,343,2,843,0)="843|84066.0000|Benzodiaz|"
^XMB(3.9,343,2,844,0)="844|84068.0000|BZE|"
^XMB(3.9,343,2,845,0)="845|84069.0000|Bromazepam|"
^XMB(3.9,343,2,846,0)="846|84070.0000|Bupivacaine|"
^XMB(3.9,343,2,847,0)="847|84071.0000|Buprenorphine|"
^XMB(3.9,343,2,848,0)="848|84072.0000|CBZ|"
^XMB(3.9,343,2,849,0)="849|84073.0000|CBZ Free|"
^XMB(3.9,343,2,850,0)="850|84074.0000|Carisoprodol|"
^XMB(3.9,343,2,851,0)="851|84076.0000|Cefonocid|"
^XMB(3.9,343,2,852,0)="852|84077.0000|Cefuroxime Parenter|"
^XMB(3.9,343,2,853,0)="853|84078.0000|Chlorothiazide|"
^XMB(3.9,343,2,854,0)="854|84079.0000|Chlorprothixene|"
^XMB(3.9,343,2,855,0)="855|84081.0000|Cisplatin|"
^XMB(3.9,343,2,856,0)="856|84082.0000|Clobazam|"
^XMB(3.9,343,2,857,0)="857|84083.0000|Clofibrate|"
^XMB(3.9,343,2,858,0)="858|84084.0000|Clomipramine+Nor|"
^XMB(3.9,343,2,859,0)="859|84085.0000|Compazine|"
^XMB(3.9,343,2,860,0)="860|84086.0000|Cyclosporin 12H|"
^XMB(3.9,343,2,861,0)="861|84088.0000|Cyclosporin 24H|"
^XMB(3.9,343,2,862,0)="862|84089.0000|Desipramine Trough|"
^XMB(3.9,343,2,863,0)="863|84090.0000|D-methorphan|"
^XMB(3.9,343,2,864,0)="864|84091.0000|Propoxyph|"
^XMB(3.9,343,2,865,0)="865|84092.0000|Diazepam Trough|"
^XMB(3.9,343,2,866,0)="866|84093.0000|Dicoumarol|"
^XMB(3.9,343,2,867,0)="867|84094.0000|Digitoxin >6H|"
^XMB(3.9,343,2,868,0)="868|84095.0000|Digoxin >12H|"
^XMB(3.9,343,2,869,0)="869|84096.0000|Doxepin+Nor|"
^XMB(3.9,343,2,870,0)="870|84097.0000|Doxepin+Metab|"
^XMB(3.9,343,2,871,0)="871|84098.0000|Doxepin Trough|"
^XMB(3.9,343,2,872,0)="872|84099.0000|Doxylamine|"
^XMB(3.9,343,2,873,0)="873|84102.0000|Dyphylline|"
^XMB(3.9,343,2,874,0)="874|84104.0000|Ephedrin+Pseudo|"
^XMB(3.9,343,2,875,0)="875|84106.0000|5FC|"
^XMB(3.9,343,2,876,0)="876|84107.0000|Fluorouracil|"
^XMB(3.9,343,2,877,0)="877|84108.0000|Gentamicin Random|"
^XMB(3.9,343,2,878,0)="878|84109.0000|Imipramine Trough|"
^XMB(3.9,343,2,879,0)="879|84111.0000|Indomethacin|"
^XMB(3.9,343,2,880,0)="880|84112.0000|Kanamycin Peak|"
^XMB(3.9,343,2,881,0)="881|84113.0000|Kanamycin Random|"
^XMB(3.9,343,2,882,0)="882|84114.0000|Kanamycin Trough|"
^XMB(3.9,343,2,883,0)="883|84116.0000|Ketamine|"
^XMB(3.9,343,2,884,0)="884|84117.0000|Labetalol|"
^XMB(3.9,343,2,885,0)="885|84118.0000|Lidocain >45M p bol|"
^XMB(3.9,343,2,886,0)="886|84119.0000|Lithium Trough|"
^XMB(3.9,343,2,887,0)="887|84121.0000|LSD|"
^XMB(3.9,343,2,888,0)="888|84122.0000|Methamphet|"
^XMB(3.9,343,2,889,0)="889|84124.0000|Methaqualone|"
^XMB(3.9,343,2,890,0)="890|84126.0000|MTX|"
^XMB(3.9,343,2,891,0)="891|84127.0000|MTX 1-2W|"
^XMB(3.9,343,2,892,0)="892|84128.0000|MTX 24H|"
^XMB(3.9,343,2,893,0)="893|84129.0000|MTX 48H|"
^XMB(3.9,343,2,894,0)="894|84130.0000|MTX 72H|"
^XMB(3.9,343,2,895,0)="895|84131.0000|Me-phenidate|"
^XMB(3.9,343,2,896,0)="896|84132.0000|Mexiletine|"
^XMB(3.9,343,2,897,0)="897|84133.0000|Netilmicin Peak|"
^XMB(3.9,343,2,898,0)="898|84134.0000|Netilmicin Random|"
^XMB(3.9,343,2,899,0)="899|84135.0000|Netilmicin Trough|"
^XMB(3.9,343,2,900,0)="900|84136.0000|Nitrazepam|"
^XMB(3.9,343,2,901,0)="901|84137.0000|Nortrip >12H Tr|"
^XMB(3.9,343,2,902,0)="902|84138.0000|Ouabain|"
^XMB(3.9,343,2,903,0)="903|84139.0000|Phendimetrazine|"
^XMB(3.9,343,2,904,0)="904|84143.0000|Pheniramine|"
^XMB(3.9,343,2,905,0)="905|84144.0000|Phenobarb|"
^XMB(3.9,343,2,906,0)="906|84145.0000|Phenobarb Free|"
^XMB(3.9,343,2,907,0)="907|84146.0000|Phenothiaz|"
^XMB(3.9,343,2,908,0)="908|84147.0000|PPA|"
^XMB(3.9,343,2,909,0)="909|84148.0000|Procainamide+NAPA|"
^XMB(3.9,343,2,910,0)="910|84149.0000|Protrip Trough|"
^XMB(3.9,343,2,911,0)="911|84150.0000|Quinidine+Quinine|"
^XMB(3.9,343,2,912,0)="912|84151.0000|Quinidine Trough|"
^XMB(3.9,343,2,913,0)="913|84152.0000|Sulfonamide|"
^XMB(3.9,343,2,914,0)="914|84153.0000|Tetracaine|"
^XMB(3.9,343,2,915,0)="915|84154.0000|Ticarcillin+Clav|"
^XMB(3.9,343,2,916,0)="916|84170.0000|Tobramycin Random|"
^XMB(3.9,343,2,917,0)="917|84172.0000|Tricyclics|"
^XMB(3.9,343,2,918,0)="918|84173.0000|TriFperazine|"
^XMB(3.9,343,2,919,0)="919|84174.0000|TMO|"
^XMB(3.9,343,2,920,0)="920|84175.0000|TMP SMX|"
^XMB(3.9,343,2,921,0)="921|84176.0000|Valproate|"
^XMB(3.9,343,2,922,0)="922|84177.0000|Valproate Free|"
^XMB(3.9,343,2,923,0)="923|84178.0000|Valproate Trough|"
^XMB(3.9,343,2,924,0)="924|84179.0000|Vancomycin Free|"
^XMB(3.9,343,2,925,0)="925|84182.0000|Vancomycin Random|"
^XMB(3.9,343,2,926,0)="926|84183.0000|Comp Actv Surf Ind|"
^XMB(3.9,343,2,927,0)="927|84184.0000|C1INH Functional|"
^XMB(3.9,343,2,928,0)="928|84186.0000|C1INH|"
^XMB(3.9,343,2,929,0)="929|84187.0000|C1q Ag|"
^XMB(3.9,343,2,930,0)="930|84188.0000|C1r2+C1s2|"
^XMB(3.9,343,2,931,0)="931|84189.0000|C2|"
^XMB(3.9,343,2,932,0)="932|84190.0000|C3|"
^XMB(3.9,343,2,933,0)="933|84191.0000|C3a|"
^XMB(3.9,343,2,934,0)="934|84192.0000|C3b|"
^XMB(3.9,343,2,935,0)="935|84193.0000|C4|"
^XMB(3.9,343,2,936,0)="936|84194.0000|C4b BP|"
^XMB(3.9,343,2,937,0)="937|84195.0000|C5|"
^XMB(3.9,343,2,938,0)="938|84196.0000|Comp Fact Ba|"
^XMB(3.9,343,2,939,0)="939|84197.0000|Comp Fact Bb|"
^XMB(3.9,343,2,940,0)="940|84198.0000|Comp Fact D|"
^XMB(3.9,343,2,941,0)="941|84199.0000|Comp Fact H|"
^XMB(3.9,343,2,942,0)="942|84200.0000|Comp Fact I|"
^XMB(3.9,343,2,943,0)="943|84201.0000|Ctox PCT React Ab|"
^XMB(3.9,343,2,944,0)="944|84202.0000|Hgb Free|"
^XMB(3.9,343,2,945,0)="945|84203.0000|Hemosiderin|"
^XMB(3.9,343,2,946,0)="946|84204.0000|IFN|"
^XMB(3.9,343,2,947,0)="947|84205.0000|Il1|"
^XMB(3.9,343,2,948,0)="948|84206.0000|Il2|"
^XMB(3.9,343,2,949,0)="949|84207.0000|Il3|"
^XMB(3.9,343,2,950,0)="950|84208.0000|Il4|"
^XMB(3.9,343,2,951,0)="951|84209.0000|Il5|"
^XMB(3.9,343,2,952,0)="952|84211.0000|Il6|"
^XMB(3.9,343,2,953,0)="953|84212.0000|Il7|"
^XMB(3.9,343,2,954,0)="954|84213.0000|LE Screen|"
^XMB(3.9,343,2,955,0)="955|84214.0000|Streptokinase Titer|"
^XMB(3.9,343,2,956,0)="956|84215.0000|AChR Binding Ab Titer|"
^XMB(3.9,343,2,957,0)="957|84216.0000|AChR Block Ab Titer|"
^XMB(3.9,343,2,958,0)="958|84217.0000|AChR Mod Ab Titer|"
^XMB(3.9,343,2,959,0)="959|84218.0000|Actinomyces Ab Titer|"
^XMB(3.9,343,2,960,0)="960|84219.0000|HAdV Ab Titer|"
^XMB(3.9,343,2,961,0)="961|84221.0000|HAdV IgM|"
^XMB(3.9,343,2,962,0)="962|84222.0000|Adrenal Ab Titer|"
^XMB(3.9,343,2,963,0)="963|84223.0000|Adrenal Cortex Ab|"
^XMB(3.9,343,2,964,0)="964|84224.0000|Ancylostoma Ab|"
^XMB(3.9,343,2,965,0)="965|84225.0000|ANA Titer|"
^XMB(3.9,343,2,966,0)="966|84226.0000|Ascaris lumbricoides Ab|"
^XMB(3.9,343,2,967,0)="967|84227.0000|Aspergillus fumigatus Ab|"
^XMB(3.9,343,2,968,0)="968|84228.0000|Aspergillus Ab|"
^XMB(3.9,343,2,969,0)="969|84229.0000|Aspergillus Ab Titer|"
^XMB(3.9,343,2,970,0)="970|84230.0000|Babesia Ab Titer|"
^XMB(3.9,343,2,971,0)="971|84231.0000|Bacillus anthracis Ab|"
^XMB(3.9,343,2,972,0)="972|84232.0000|GBM Ab|"
^XMB(3.9,343,2,973,0)="973|84233.0000|Blastomyces dermat Ab Titer|"
^XMB(3.9,343,2,974,0)="974|84234.0000|Blastomyces dermat Ab|"
^XMB(3.9,343,2,975,0)="975|84236.0000|Bordetella pert Ab|"
^XMB(3.9,343,2,976,0)="976|84237.0000|Borrelia burgdor Ab|"
^XMB(3.9,343,2,977,0)="977|84238.0000|Borrelia burgdor Ab Titer|"
^XMB(3.9,343,2,978,0)="978|84239.0000|Borrelia burgdor IgG|"
^XMB(3.9,343,2,979,0)="979|84240.0000|Borrelia burgdor IgG Titer|"
^XMB(3.9,343,2,980,0)="980|84241.0000|Borrelia burgdor IgM|"
^XMB(3.9,343,2,981,0)="981|84242.0000|Borrelia burgdor IgM Titer|"
^XMB(3.9,343,2,982,0)="982|84243.0000|Brucella abortus Ab|"
^XMB(3.9,343,2,983,0)="983|84244.0000|Brucella abortus Ab Titer|"
^XMB(3.9,343,2,984,0)="984|84245.0000|Brucella canis Ab Titer|"
^XMB(3.9,343,2,985,0)="985|84246.0000|Brucella melitensis Ab Titer|"
^XMB(3.9,343,2,986,0)="986|84247.0000|Brucella IgM|"
^XMB(3.9,343,2,987,0)="987|84248.0000|Brucella suis Ab Titer|"
^XMB(3.9,343,2,988,0)="988|84249.0000|Brush Border Ab|"
^XMB(3.9,343,2,989,0)="989|84250.0000|LACV Ab|"
^XMB(3.9,343,2,990,0)="990|84251.0000|Candida albicans Ab|"
^XMB(3.9,343,2,991,0)="991|84252.0000|Candida albicans Ag Titer|"
^XMB(3.9,343,2,992,0)="992|84253.0000|Cardiolipin IgA|"
^XMB(3.9,343,2,993,0)="993|84254.0000|Chlamydophila pneum Ab|"
^XMB(3.9,343,2,994,0)="994|84255.0000|Chlamydophila psittaci Ab Titer|"
^XMB(3.9,343,2,995,0)="995|84256.0000|Chlamydophila psittaci IgG|"
^XMB(3.9,343,2,996,0)="996|84257.0000|Chlamydophila psittaci IgM|"
^XMB(3.9,343,2,997,0)="997|84258.0000|Chlamydia Ab Titer|"
^XMB(3.9,343,2,998,0)="998|84259.0000|Chlamydia IgG|"
^XMB(3.9,343,2,999,0)="999|84260.0000|Chlamydia IgM|"
^XMB(3.9,343,2,1000,0)="1000|84261.0000|Chlamydia trach Ab Titer|"
^XMB(3.9,343,2,1001,0)="1001|84262.0000|Chlamydia trach IgG|"
^XMB(3.9,343,2,1002,0)="1002|84264.0000|Chlamydia trach IgM|"
^XMB(3.9,343,2,1003,0)="1003|84266.0000|Chymotryp Ab|"
^XMB(3.9,343,2,1004,0)="1004|84267.0000|Clostridium tetani Ab|"
^XMB(3.9,343,2,1005,0)="1005|84268.0000|Coccidioides immitis Ab|"
^XMB(3.9,343,2,1006,0)="1006|84269.0000|Coccidioides immitis Ab Titer|"
^XMB(3.9,343,2,1007,0)="1007|84270.0000|CA|"
^XMB(3.9,343,2,1008,0)="1008|84271.0000|CA Titer|"
^XMB(3.9,343,2,1009,0)="1009|84272.0000|Coronavirus Ab|"
^XMB(3.9,343,2,1010,0)="1010|84273.0000|Coxiella burnet Ab Titer|"
^XMB(3.9,343,2,1011,0)="1011|84274.0000|CV A7 Ab Titer|"
^XMB(3.9,343,2,1012,0)="1012|84275.0000|CV A9 Ab Titer|"
^XMB(3.9,343,2,1013,0)="1013|84276.0000|CV B1 Ab Titer|"
^XMB(3.9,343,2,1014,0)="1014|84277.0000|CV B2 Ab Titer|"
^XMB(3.9,343,2,1015,0)="1015|84278.0000|CV B3 Ab Titer|"
^XMB(3.9,343,2,1016,0)="1016|84279.0000|CV B4 Ab Titer|"
^XMB(3.9,343,2,1017,0)="1017|84280.0000|CV B5 Ab Titer|"
^XMB(3.9,343,2,1018,0)="1018|84281.0000|CV B6 Ab Titer|"
^XMB(3.9,343,2,1019,0)="1019|84282.0000|Corynebacterium diphtheriae Ab|"
^XMB(3.9,343,2,1020,0)="1020|84283.0000|Cryoglob|"
^XMB(3.9,343,2,1021,0)="1021|84284.0000|Cryptococcus neoform Ag Titer|"
^XMB(3.9,343,2,1022,0)="1022|84285.0000|Cysticerc Ab|"
^XMB(3.9,343,2,1023,0)="1023|84286.0000|CMV Ab Titer|"
^XMB(3.9,343,2,1024,0)="1024|84287.0000|CMV IgG|"
^XMB(3.9,343,2,1025,0)="1025|84288.0000|CMV IgG Titer|"
^XMB(3.9,343,2,1026,0)="1026|84289.0000|CMV IgM|"
^XMB(3.9,343,2,1027,0)="1027|84290.0000|CMV IgM Titer|"
^XMB(3.9,343,2,1028,0)="1028|84291.0000|ANCA Ab|"
^XMB(3.9,343,2,1029,0)="1029|84292.0000|Dnase Ab|"
^XMB(3.9,343,2,1030,0)="1030|84293.0000|dsDNA Ab|"
^XMB(3.9,343,2,1031,0)="1031|84294.0000|ssDNA Ab|"
^XMB(3.9,343,2,1032,0)="1032|84296.0000|Strep DNAse B|"
^XMB(3.9,343,2,1033,0)="1033|84297.0000|EEEV Ab|"
^XMB(3.9,343,2,1034,0)="1034|84298.0000|ECV1 Ab Titer|"
^XMB(3.9,343,2,1035,0)="1035|84299.0000|ECV19 Ab Titer|"
^XMB(3.9,343,2,1036,0)="1036|84300.0000|ECV3 Ab Titer|"
^XMB(3.9,343,2,1037,0)="1037|84301.0000|ECV4 Ab Titer|"
^XMB(3.9,343,2,1038,0)="1038|84302.0000|ECV6 Ab Titer|"
^XMB(3.9,343,2,1039,0)="1039|84303.0000|ECV9 Ab Titer|"
^XMB(3.9,343,2,1040,0)="1040|84304.0000|ECV NOS Ab Titer|"
^XMB(3.9,343,2,1041,0)="1041|84306.0000|Entamoeba histolyt Ab|"
^XMB(3.9,343,2,1042,0)="1042|84307.0000|Epidis Ab Titer|"
^XMB(3.9,343,2,1043,0)="1043|84308.0000|EBV EA Ab|"
^XMB(3.9,343,2,1044,0)="1044|84309.0000|EBV NA IgG|"
^XMB(3.9,343,2,1045,0)="1045|84311.0000|EBV VCA IgG|"
^XMB(3.9,343,2,1046,0)="1046|84312.0000|EBV VCA IgG Titer|"
^XMB(3.9,343,2,1047,0)="1047|84313.0000|EBV VCA IgM|"
^XMB(3.9,343,2,1048,0)="1048|84314.0000|EBV VCA IgM Titer|"
^XMB(3.9,343,2,1049,0)="1049|84316.0000|Erythrocyte Ab|"
^XMB(3.9,343,2,1050,0)="1050|84317.0000|Fasciola Ab|"
^XMB(3.9,343,2,1051,0)="1051|84318.0000|Fc Frg Ab|"
^XMB(3.9,343,2,1052,0)="1052|84319.0000|Filaria Ab|"
^XMB(3.9,343,2,1053,0)="1053|84320.0000|Francisella tular Ab|"
^XMB(3.9,343,2,1054,0)="1054|84321.0000|Francisella tular Ab Titer|"
^XMB(3.9,343,2,1055,0)="1055|84322.0000|Gall Canaliculi Ab|"
^XMB(3.9,343,2,1056,0)="1056|84323.0000|Giardia lamblia Ab|"
^XMB(3.9,343,2,1057,0)="1057|84324.0000|Gliadin IgG|"
^XMB(3.9,343,2,1058,0)="1058|84325.0000|Streptococcus pyog enz Ab|"
^XMB(3.9,343,2,1059,0)="1059|84326.0000|Streptococcus pyog enz Ab Titer|"
^XMB(3.9,343,2,1060,0)="1060|84327.0000|Helicobacter pylori Ab Titer|"
^XMB(3.9,343,2,1061,0)="1061|84328.0000|Helicobacter pylori IgG|"
^XMB(3.9,343,2,1062,0)="1062|84329.0000|Helicobacter pylori IgM|"
^XMB(3.9,343,2,1063,0)="1063|84331.0000|Haem influ Ab|"
^XMB(3.9,343,2,1064,0)="1064|84332.0000|Hepatitis Bc IgM|"
^XMB(3.9,343,2,1065,0)="1065|84333.0000|Hepatitis Bc Ab|"
^XMB(3.9,343,2,1066,0)="1066|84334.0000|Hepatitis Be Ab|"
^XMB(3.9,343,2,1067,0)="1067|84335.0000|Hepatitis Be Ag|"
^XMB(3.9,343,2,1068,0)="1068|84336.0000|Hepatitis Bs Ab|"
^XMB(3.9,343,2,1069,0)="1069|84337.0000|Hepatitis Bs Ag|"
^XMB(3.9,343,2,1070,0)="1070|84338.0000|HSV Ab|"
^XMB(3.9,343,2,1071,0)="1071|84339.0000|HSV Ab Titer|"
^XMB(3.9,343,2,1072,0)="1072|84340.0000|HSV1 Ab|"
^XMB(3.9,343,2,1073,0)="1073|84341.0000|HSV1 IgG|"
^XMB(3.9,343,2,1074,0)="1074|84342.0000|HSV1 IgM|"
^XMB(3.9,343,2,1075,0)="1075|84343.0000|HSV2 Ab|"
^XMB(3.9,343,2,1076,0)="1076|84344.0000|HSV2 IgG|"
^XMB(3.9,343,2,1077,0)="1077|84345.0000|HSV2 IgM|"
^XMB(3.9,343,2,1078,0)="1078|84346.0000|HHV6 IgG|"
^XMB(3.9,343,2,1079,0)="1079|84347.0000|HHV6 IgM|"
^XMB(3.9,343,2,1080,0)="1080|84348.0000|Heterophile Ab|"
^XMB(3.9,343,2,1081,0)="1081|84349.0000|Heterophile Ab Titer|"
^XMB(3.9,343,2,1082,0)="1082|84350.0000|Heterophile Ab Abs Titer|"
^XMB(3.9,343,2,1083,0)="1083|84351.0000|Histone Ab|"
^XMB(3.9,343,2,1084,0)="1084|84352.0000|Histoplasma capsul Ab|"
^XMB(3.9,343,2,1085,0)="1085|84353.0000|Histoplasma capsul Ab Titer|"
^XMB(3.9,343,2,1086,0)="1086|84354.0000|HIV1 Ab|"
^XMB(3.9,343,2,1087,0)="1087|84355.0000|HIV1 Ag|"
^XMB(3.9,343,2,1088,0)="1088|84356.0000|HIV1+2 Ab|"
^XMB(3.9,343,2,1089,0)="1089|84357.0000|HIV2 Ab|"
^XMB(3.9,343,2,1090,0)="1090|84358.0000|HTLV1+2 Ab|"
^XMB(3.9,343,2,1091,0)="1091|84359.0000|Str Hyaluronidase Ab|"
^XMB(3.9,343,2,1092,0)="1092|84360.0000|IC|"
^XMB(3.9,343,2,1093,0)="1093|84361.0000|FLUA Ab Titer|"
^XMB(3.9,343,2,1094,0)="1094|84362.0000|FLUB Ab Titer|"
^XMB(3.9,343,2,1095,0)="1095|84363.0000|FLUC Ab Titer|"
^XMB(3.9,343,2,1096,0)="1096|84364.0000|IF Ab|"
^XMB(3.9,343,2,1097,0)="1097|84365.0000|ENA Jo1 Ab|"
^XMB(3.9,343,2,1098,0)="1098|84366.0000|Legionella pneumo Ab|"
^XMB(3.9,343,2,1099,0)="1099|84367.0000|Legionella pneumo Ab Titer|"
^XMB(3.9,343,2,1100,0)="1100|84368.0000|Leptospira Ab Titer|"
^XMB(3.9,343,2,1101,0)="1101|84369.0000|Listeria monocytog Ab|"
^XMB(3.9,343,2,1102,0)="1102|84370.0000|LCMV Ab Titer|"
^XMB(3.9,343,2,1103,0)="1103|84371.0000|MeV Ab|"
^XMB(3.9,343,2,1104,0)="1104|84372.0000|MeV Ab Titer|"
^XMB(3.9,343,2,1105,0)="1105|84373.0000|MeV IgG|"
^XMB(3.9,343,2,1106,0)="1106|84374.0000|MeV IgM Titer|"
^XMB(3.9,343,2,1107,0)="1107|84375.0000|Saccharopolyspora retivirgula Ab|"
^XMB(3.9,343,2,1108,0)="1108|84376.0000|Mitochondria Ab Titer|"
^XMB(3.9,343,2,1109,0)="1109|84377.0000|Mucor Ab|"
^XMB(3.9,343,2,1110,0)="1110|84378.0000|MuV Ab Titer|"
^XMB(3.9,343,2,1111,0)="1111|84379.0000|Mus Sarcolemma Ab|"
^XMB(3.9,343,2,1112,0)="1112|84380.0000|Mycoplasma pneumo Ab|"
^XMB(3.9,343,2,1113,0)="1113|84381.0000|Mycoplasma pneumo Ab Titer|"
^XMB(3.9,343,2,1114,0)="1114|84382.0000|Mycoplasma pneumo IgG|"
^XMB(3.9,343,2,1115,0)="1115|84383.0000|Mycoplasma pneumo IgM|"
^XMB(3.9,343,2,1116,0)="1116|84384.0000|Mycoplasma pneumo IgM Titer|"
^XMB(3.9,343,2,1117,0)="1117|84385.0000|MBP Ab Titer|"
^XMB(3.9,343,2,1118,0)="1118|84386.0000|Myocardium Ab Titer|"
^XMB(3.9,343,2,1119,0)="1119|84387.0000|Neisseria gonorrhoea Ab|"
^XMB(3.9,343,2,1120,0)="1120|84388.0000|Nocardia Ab|"
^XMB(3.9,343,2,1121,0)="1121|84389.0000|Onchocerca Ab|"
^XMB(3.9,343,2,1122,0)="1122|84390.0000|Panc Islet Cell Ab|"
^XMB(3.9,343,2,1123,0)="1123|84391.0000|Paracoccidioides brasilien Ab Titer|"
^XMB(3.9,343,2,1124,0)="1124|84392.0000|Paragonimus Ab Titer|"
^XMB(3.9,343,2,1125,0)="1125|84393.0000|PARAFLU1 Ab Titer|"
^XMB(3.9,343,2,1126,0)="1126|84394.0000|PARAFLU2 Ab Titer|"
^XMB(3.9,343,2,1127,0)="1127|84395.0000|PARAFLU3 Ab Titer|"
^XMB(3.9,343,2,1128,0)="1128|84396.0000|PCA Ab Titer|"
^XMB(3.9,343,2,1129,0)="1129|84397.0000|B19V Ab|"
^XMB(3.9,343,2,1130,0)="1130|84398.0000|B19V IgG|"
^XMB(3.9,343,2,1131,0)="1131|84399.0000|B19V IgM|"
^XMB(3.9,343,2,1132,0)="1132|84401.0000|ENA PCNA Ab|"
^XMB(3.9,343,2,1133,0)="1133|84402.0000|Penicillium roqueforte Ab|"
^XMB(3.9,343,2,1134,0)="1134|84403.0000|Plasmodium falciparum Ab|"
^XMB(3.9,343,2,1135,0)="1135|84404.0000|Plasmodium Ab|"
^XMB(3.9,343,2,1136,0)="1136|84405.0000|Plasmodium vivax Ab|"
^XMB(3.9,343,2,1137,0)="1137|84406.0000|PV1 Ab Titer|"
^XMB(3.9,343,2,1138,0)="1138|84407.0000|PV2 Ab Titer|"
^XMB(3.9,343,2,1139,0)="1139|84414.0000|PV3 Ab Titer|"
^XMB(3.9,343,2,1140,0)="1140|84415.0000|Burkholderia pseudomal Ab|"
^XMB(3.9,343,2,1141,0)="1141|84416.0000|RABV Ab|"
^XMB(3.9,343,2,1142,0)="1142|84417.0000|Reovirus Ab|"
^XMB(3.9,343,2,1143,0)="1143|84418.0000|RSV Ab Titer|"
^XMB(3.9,343,2,1144,0)="1144|84419.0000|RF|"
^XMB(3.9,343,2,1145,0)="1145|84420.0000|RF Titer|"
^XMB(3.9,343,2,1146,0)="1146|84421.0000|ENA RNP Ab|"
^XMB(3.9,343,2,1147,0)="1147|84422.0000|Proteus OX19 Ab|"
^XMB(3.9,343,2,1148,0)="1148|84423.0000|Proteus OX2 Ab|"
^XMB(3.9,343,2,1149,0)="1149|84424.0000|Proteus OXK Ab|"
^XMB(3.9,343,2,1150,0)="1150|84425.0000|Rickettsia Ab Titer|"
^XMB(3.9,343,2,1151,0)="1151|84426.0000|Rickettsia rickettsi IgG Titer|"
^XMB(3.9,343,2,1152,0)="1152|84427.0000|Rickettsia rickettsi IgM Titer|"
^XMB(3.9,343,2,1153,0)="1153|84428.0000|Rick SF Ab|"
^XMB(3.9,343,2,1154,0)="1154|84429.0000|Rick SF Ab Titer|"
^XMB(3.9,343,2,1155,0)="1155|84430.0000|Rick SF IgG|"
^XMB(3.9,343,2,1156,0)="1156|84431.0000|Rick SF IgG Titer|"
^XMB(3.9,343,2,1157,0)="1157|84432.0000|Rick SF IgM|"
^XMB(3.9,343,2,1158,0)="1158|84433.0000|Rick SF IgM Titer|"
^XMB(3.9,343,2,1159,0)="1159|84434.0000|Rick Typhus Ab|"
^XMB(3.9,343,2,1160,0)="1160|84435.0000|Rick Typhus Ab Titer|"
^XMB(3.9,343,2,1161,0)="1161|84436.0000|Rick Typhus IgG|"
^XMB(3.9,343,2,1162,0)="1162|84437.0000|Rick Typhus IgG Titer|"
^XMB(3.9,343,2,1163,0)="1163|84438.0000|Rick Typhus IgM|"
^XMB(3.9,343,2,1164,0)="1164|84439.0000|Rick Typhus IgM Titer|"
^XMB(3.9,343,2,1165,0)="1165|84440.0000|Orientia tsut Ab Titer|"
^XMB(3.9,343,2,1166,0)="1166|84441.0000|Rickettsia typhi IgG Titer|"
^XMB(3.9,343,2,1167,0)="1167|84442.0000|Rickettsia typhi IgM Titer|"
^XMB(3.9,343,2,1168,0)="1168|84443.0000|Bartonella henselae IgG|"
^XMB(3.9,343,2,1169,0)="1169|84444.0000|Bartonella henselae IgM|"
^XMB(3.9,343,2,1170,0)="1170|84445.0000|RV Ab|"
^XMB(3.9,343,2,1171,0)="1171|84446.0000|RUBV Ab|"
^XMB(3.9,343,2,1172,0)="1172|84447.0000|RUBV Ab Titer|"
^XMB(3.9,343,2,1173,0)="1173|84448.0000|RUBV IgG|"
^XMB(3.9,343,2,1174,0)="1174|84449.0000|RUBV IgM|"
^XMB(3.9,343,2,1175,0)="1175|84450.0000|Saccharomonospora viridis Ab|"
^XMB(3.9,343,2,1176,0)="1176|84451.0000|Salivary Gland Ab|"
^XMB(3.9,343,2,1177,0)="1177|84452.0000|Salmonella Ab Titer|"
^XMB(3.9,343,2,1178,0)="1178|84453.0000|Salmonella paraty A H Ab|"
^XMB(3.9,343,2,1179,0)="1179|84454.0000|Salmonella paraty A O Ab|"
^XMB(3.9,343,2,1180,0)="1180|84460.0000|Salmonella paraty B H Ab|"
^XMB(3.9,343,2,1181,0)="1181|84461.0000|Salmonella paraty B O Ab|"
^XMB(3.9,343,2,1182,0)="1182|84462.0000|Salmonella paraty C H Ab|"
^XMB(3.9,343,2,1183,0)="1183|84463.0000|Salmonella paraty C O Ab|"
^XMB(3.9,343,2,1184,0)="1184|84464.0000|Salmonella typhi H Ab|"
^XMB(3.9,343,2,1185,0)="1185|84467.0000|Salmonella typhi O Ab|"
^XMB(3.9,343,2,1186,0)="1186|84468.0000|ENA Scl70 Ab|"
^XMB(3.9,343,2,1187,0)="1187|84469.0000|Shigella Ab|"
^XMB(3.9,343,2,1188,0)="1188|84470.0000|ENA SS-A Ab|"
^XMB(3.9,343,2,1189,0)="1189|84471.0000|ENA SS-B Ab|"
^XMB(3.9,343,2,1190,0)="1190|84472.0000|ENA SM Ab|"
^XMB(3.9,343,2,1191,0)="1191|84473.0000|Sm Mus Ab Titer|"
^XMB(3.9,343,2,1192,0)="1192|84474.0000|GH Ab|"
^XMB(3.9,343,2,1193,0)="1193|84475.0000|Spirillum minus Ab|"
^XMB(3.9,343,2,1194,0)="1194|84477.0000|Sporothrix schenckii Ab|"
^XMB(3.9,343,2,1195,0)="1195|84478.0000|SLEV Ab|"
^XMB(3.9,343,2,1196,0)="1196|84479.0000|Staphylolysin Ab|"
^XMB(3.9,343,2,1197,0)="1197|84482.0000|Streptobacillus moniliformis Ab|"
^XMB(3.9,343,2,1198,0)="1198|84493.0000|Streptococcus pneum IgG|"
^XMB(3.9,343,2,1199,0)="1199|84516.0000|Streptokinase Ab|"
^XMB(3.9,343,2,1200,0)="1200|84519.0000|ASO Ab|"
^XMB(3.9,343,2,1201,0)="1201|84521.0000|ASO Ab Titer|"
^XMB(3.9,343,2,1202,0)="1202|84522.0000|Stria Mus Ab Titer|"
^XMB(3.9,343,2,1203,0)="1203|84523.0000|Taenia saginata Ab|"
^XMB(3.9,343,2,1204,0)="1204|84524.0000|Taenia solium Ab|"
^XMB(3.9,343,2,1205,0)="1205|84525.0000|Thermoactinomyces sacchari Ab|"
^XMB(3.9,343,2,1206,0)="1206|84526.0000|Thyroglob Ab|"
^XMB(3.9,343,2,1207,0)="1207|84527.0000|Thyroglob Ab Titer|"
^XMB(3.9,343,2,1208,0)="1208|84528.0000|TPO Ab|"
^XMB(3.9,343,2,1209,0)="1209|84529.0000|TPO Ab Titer|"
^XMB(3.9,343,2,1210,0)="1210|84530.0000|TSH Recep Ab|"
^XMB(3.9,343,2,1211,0)="1211|84531.0000|Toxocara canis Ab|"
^XMB(3.9,343,2,1212,0)="1212|84532.0000|Toxoplasma gondii Ab|"
^XMB(3.9,343,2,1213,0)="1213|84533.0000|Toxoplasma gondii IgG|"
^XMB(3.9,343,2,1214,0)="1214|84534.0000|Toxoplasma gondii IgG Titer|"
^XMB(3.9,343,2,1215,0)="1215|84535.0000|Toxoplasma gondii IgM|"
^XMB(3.9,343,2,1216,0)="1216|84536.0000|Toxoplasma gondii IgM Titer|"
^XMB(3.9,343,2,1217,0)="1217|84537.0000|Treponema pallidum Ab|"
^XMB(3.9,343,2,1218,0)="1218|84538.0000|Treponema pallidum Ab Titer|"
^XMB(3.9,343,2,1219,0)="1219|84539.0000|Trichinella spiralis Ab Titer|"
^XMB(3.9,343,2,1220,0)="1220|84540.0000|T3 Ab|"
^XMB(3.9,343,2,1221,0)="1221|84541.0000|Trypanosoma brucei Ab|"
^XMB(3.9,343,2,1222,0)="1222|84542.0000|Trypanosoma cruzi Ab Titer|"
^XMB(3.9,343,2,1223,0)="1223|84543.0000|Trypanos Ab|"
^XMB(3.9,343,2,1224,0)="1224|84544.0000|VACV Ab|"
^XMB(3.9,343,2,1225,0)="1225|84545.0000|VZV Ab Titer|"
^XMB(3.9,343,2,1226,0)="1226|84546.0000|VZV IgG|"
^XMB(3.9,343,2,1227,0)="1227|84547.0000|VZV IgM|"
^XMB(3.9,343,2,1228,0)="1228|84548.0000|Vibrio cholera Ab|"
^XMB(3.9,343,2,1229,0)="1229|84549.0000|WEEV Ab|"
^XMB(3.9,343,2,1230,0)="1230|84551.0000|Yersinia enterocol O3 Ab|"
^XMB(3.9,343,2,1231,0)="1231|84552.0000|Yersinia enterocol O8 Ab|"
^XMB(3.9,343,2,1232,0)="1232|84553.0000|Yersinia enterocol O9 Ab|"
^XMB(3.9,343,2,1233,0)="1233|84554.0000|Yersinia pseudoTB Ab|"
^XMB(3.9,343,2,1234,0)="1234|84555.0000|Yersinia Ab|"
^XMB(3.9,343,2,1235,0)="1235|84556.0000|Boron|"
^XMB(3.9,343,2,1236,0)="1236|84557.0000|Pentachlorophen|"
^XMB(3.9,343,2,1237,0)="1237|84558.0000|Vanadium|"
^XMB(3.9,343,2,1238,0)="1238|84559.0000|DMB|"
^XMB(3.9,343,2,1239,0)="1239|84560.0000|Pro Frg1+2|"
^XMB(3.9,343,2,1240,0)="1240|84561.0000|LDH Isos|"
^XMB(3.9,343,2,1241,0)="1241|84562.0000|CK Isos|"
^XMB(3.9,343,2,1242,0)="1242|84563.0000|Wattle IgE|"
^XMB(3.9,343,2,1243,0)="1243|84564.0000|ACTH IgE|"
^XMB(3.9,343,2,1244,0)="1244|84565.0000|House Dust Allergo IgE|"
^XMB(3.9,343,2,1245,0)="1245|84566.0000|Almond IgE|"
^XMB(3.9,343,2,1246,0)="1246|84567.0000|Alternaria alternata IgE|"
^XMB(3.9,343,2,1247,0)="1247|84568.0000|Apple IgE|"
^XMB(3.9,343,2,1248,0)="1248|84569.0000|Ascaris IgE|"
^XMB(3.9,343,2,1249,0)="1249|84570.0000|Aspergillus amstelodami IgE|"
^XMB(3.9,343,2,1250,0)="1250|84571.0000|Aspergillus flavus IgE|"
^XMB(3.9,343,2,1251,0)="1251|84572.0000|Aspergillus fumigatus IgE|"
^XMB(3.9,343,2,1252,0)="1252|84573.0000|Aspergillus terreus IgE|"
^XMB(3.9,343,2,1253,0)="1253|84574.0000|Aspergillus versicolor IgE|"
^XMB(3.9,343,2,1254,0)="1254|84575.0000|Aureobasidium pullulans IgE|"
^XMB(3.9,343,2,1255,0)="1255|84576.0000|Au Parrot Feather IgE|"
^XMB(3.9,343,2,1256,0)="1256|84577.0000|Au Parrot|"
^XMB(3.9,343,2,1257,0)="1257|84578.0000|Australian pine IgE|"
^XMB(3.9,343,2,1258,0)="1258|84579.0000|Avocado IgE|"
^XMB(3.9,343,2,1259,0)="1259|84580.0000|Bahia grass IgE|"
^XMB(3.9,343,2,1260,0)="1260|84585.0000|Banana IgE|"
^XMB(3.9,343,2,1261,0)="1261|84587.0000|Barley IgE|"
^XMB(3.9,343,2,1262,0)="1262|84589.0000|American Beech IgE|"
^XMB(3.9,343,2,1263,0)="1263|84593.0000|Beef IgE|"
^XMB(3.9,343,2,1264,0)="1264|84594.0000|House Dust Bencard IgE|"
^XMB(3.9,343,2,1265,0)="1265|84595.0000|B-Lactoglob MF77 IgE|"
^XMB(3.9,343,2,1266,0)="1266|84596.0000|Black Ant IgE|"
^XMB(3.9,343,2,1267,0)="1267|84597.0000|Black Pepper IgE|"
^XMB(3.9,343,2,1268,0)="1268|84598.0000|Black Walnut Poln IgE|"
^XMB(3.9,343,2,1269,0)="1269|84599.0000|Bloodworm IgE|"
^XMB(3.9,343,2,1270,0)="1270|84600.0000|Blue mussel IgE|"
^XMB(3.9,343,2,1271,0)="1271|84601.0000|Botrytis cinerea IgE|"
^XMB(3.9,343,2,1272,0)="1272|84602.0000|Brazil Nut IgE|"
^XMB(3.9,343,2,1273,0)="1273|84603.0000|Brewers Yeast IgE|"
^XMB(3.9,343,2,1274,0)="1274|84604.0000|Broccoli IgE|"
^XMB(3.9,343,2,1275,0)="1275|84605.0000|Brome IgE|"
^XMB(3.9,343,2,1276,0)="1276|84606.0000|Buckwheat IgE|"
^XMB(3.9,343,2,1277,0)="1277|84607.0000|Budgie Feather IgE|"
^XMB(3.9,343,2,1278,0)="1278|84608.0000|Bumble Bee IgE|"
^XMB(3.9,343,2,1279,0)="1279|84609.0000|Chamomile IgE|"
^XMB(3.9,343,2,1280,0)="1280|84610.0000|Canary grass IgE|"
^XMB(3.9,343,2,1281,0)="1281|84611.0000|Candida albicans IgE|"
^XMB(3.9,343,2,1282,0)="1282|84616.0000|Careless Weed IgE|"
^XMB(3.9,343,2,1283,0)="1283|84617.0000|Carrot IgE|"
^XMB(3.9,343,2,1284,0)="1284|84618.0000|Casein IgE|"
^XMB(3.9,343,2,1285,0)="1285|84620.0000|Castor Bean IgE|"
^XMB(3.9,343,2,1286,0)="1286|84621.0000|Cat Epith IgE|"
^XMB(3.9,343,2,1287,0)="1287|84622.0000|Celery IgE|"
^XMB(3.9,343,2,1288,0)="1288|84623.0000|Acremonium IgE|"
^XMB(3.9,343,2,1289,0)="1289|84624.0000|Cheddar IgE|"
^XMB(3.9,343,2,1290,0)="1290|84625.0000|Cheese Mold IgE|"
^XMB(3.9,343,2,1291,0)="1291|84626.0000|Chestnut Poln IgE|"
^XMB(3.9,343,2,1292,0)="1292|84627.0000|Chicken Feather IgE|"
^XMB(3.9,343,2,1293,0)="1293|84628.0000|Chicken Meat IgE|"
^XMB(3.9,343,2,1294,0)="1294|84629.0000|Chloramin T IgE|"
^XMB(3.9,343,2,1295,0)="1295|84630.0000|Chocolate IgE|"
^XMB(3.9,343,2,1296,0)="1296|84631.0000|Chymopapain IgE|"
^XMB(3.9,343,2,1297,0)="1297|84632.0000|Cladosporium herbarum IgE|"
^XMB(3.9,343,2,1298,0)="1298|84633.0000|Clam IgE|"
^XMB(3.9,343,2,1299,0)="1299|84634.0000|Cocklebur IgE|"
^XMB(3.9,343,2,1300,0)="1300|84635.0000|Roach IgE|"
^XMB(3.9,343,2,1301,0)="1301|84636.0000|Cocoa IgE|"
^XMB(3.9,343,2,1302,0)="1302|84637.0000|Coconut IgE|"
^XMB(3.9,343,2,1303,0)="1303|84638.0000|Codfish IgE|"
^XMB(3.9,343,2,1304,0)="1304|84639.0000|Coffee IgE|"
^XMB(3.9,343,2,1305,0)="1305|84640.0000|Colza IgE|"
^XMB(3.9,343,2,1306,0)="1306|84641.0000|Common Ragweed IgE|"
^XMB(3.9,343,2,1307,0)="1307|84642.0000|Corn IgE|"
^XMB(3.9,343,2,1308,0)="1308|84643.0000|Cultivated Cotton IgE|"
^XMB(3.9,343,2,1309,0)="1309|84644.0000|Cottonseed IgE|"
^XMB(3.9,343,2,1310,0)="1310|84645.0000|Cottonwood IgE|"
^XMB(3.9,343,2,1311,0)="1311|84646.0000|Cow Dander IgE|"
^XMB(3.9,343,2,1312,0)="1312|84647.0000|Crab IgE|"
^XMB(3.9,343,2,1313,0)="1313|84648.0000|Oat Poln IgE|"
^XMB(3.9,343,2,1314,0)="1314|84649.0000|Curvularia lunata IgE|"
^XMB(3.9,343,2,1315,0)="1315|84650.0000|Dermatophagoides farinae IgE|"
^XMB(3.9,343,2,1316,0)="1316|84651.0000|Dermatophagoides pteronyss IgE|"
^XMB(3.9,343,2,1317,0)="1317|84652.0000|Dandelion IgE|"
^XMB(3.9,343,2,1318,0)="1318|84653.0000|Dog Dander IgE|"
^XMB(3.9,343,2,1319,0)="1319|84654.0000|Dog Epith IgE|"
^XMB(3.9,343,2,1320,0)="1320|84655.0000|Duck Feather IgE|"
^XMB(3.9,343,2,1321,0)="1321|84656.0000|Duck Meat IgE|"
^XMB(3.9,343,2,1322,0)="1322|84657.0000|Echinococcus IgE|"
^XMB(3.9,343,2,1323,0)="1323|84658.0000|Eel IgE|"
^XMB(3.9,343,2,1324,0)="1324|84659.0000|Egg White IgE|"
^XMB(3.9,343,2,1325,0)="1325|84660.0000|Egg Yolk IgE|"
^XMB(3.9,343,2,1326,0)="1326|84661.0000|Elderberry IgE|"
^XMB(3.9,343,2,1327,0)="1327|84662.0000|White Elm IgE|"
^XMB(3.9,343,2,1328,0)="1328|84663.0000|Engl Plantain IgE|"
^XMB(3.9,343,2,1329,0)="1329|84664.0000|Epicoccum purpurascens IgE|"
^XMB(3.9,343,2,1330,0)="1330|84665.0000|Ethylene Oxide IgE|"
^XMB(3.9,343,2,1331,0)="1331|84666.0000|Gum-Tree IgE|"
^XMB(3.9,343,2,1332,0)="1332|84667.0000|Euroglyphus maynei IgE|"
^XMB(3.9,343,2,1333,0)="1333|84668.0000|Franseria acanthicarpa IgE|"
^XMB(3.9,343,2,1334,0)="1334|84669.0000|Ficus IgE|"
^XMB(3.9,343,2,1335,0)="1335|84670.0000|Red Imp Fire Ant IgE|"
^XMB(3.9,343,2,1336,0)="1336|84671.0000|Firebush IgE|"
^XMB(3.9,343,2,1337,0)="1337|84672.0000|Formaldehyde IgE|"
^XMB(3.9,343,2,1338,0)="1338|84673.0000|Fusarium culmorum IgE|"
^XMB(3.9,343,2,1339,0)="1339|84674.0000|Fusarium moniliforme IgE|"
^XMB(3.9,343,2,1340,0)="1340|84675.0000|Garlic IgE|"
^XMB(3.9,343,2,1341,0)="1341|84676.0000|Geranium IgE|"
^XMB(3.9,343,2,1342,0)="1342|84677.0000|Giant Ragweed IgE|"
^XMB(3.9,343,2,1343,0)="1343|84678.0000|Gluten IgE|"
^XMB(3.9,343,2,1344,0)="1344|84679.0000|Glycophagus domesticus IgE|"
^XMB(3.9,343,2,1345,0)="1345|84680.0000|Goat Epith IgE|"
^XMB(3.9,343,2,1346,0)="1346|84681.0000|Goldenrod IgE|"
^XMB(3.9,343,2,1347,0)="1347|84682.0000|Goose Feather IgE|"
^XMB(3.9,343,2,1348,0)="1348|84683.0000|Goose Meat IgE|"
^XMB(3.9,343,2,1349,0)="1349|84684.0000|Grapefruit IgE|"
^XMB(3.9,343,2,1350,0)="1350|84685.0000|Green Coffee Bean IgE|"
^XMB(3.9,343,2,1351,0)="1351|84687.0000|Green Nimitti IgE|"
^XMB(3.9,343,2,1352,0)="1352|84688.0000|Guinea Pig Epith IgE|"
^XMB(3.9,343,2,1353,0)="1353|84689.0000|Hmtr Epith IgE|"
^XMB(3.9,343,2,1354,0)="1354|84690.0000|Hazelnut IgE|"
^XMB(3.9,343,2,1355,0)="1355|84691.0000|Hazelnut Poln IgE|"
^XMB(3.9,343,2,1356,0)="1356|84692.0000|Helminthosporium halodes IgE|"
^XMB(3.9,343,2,1357,0)="1357|84693.0000|Herring IgE|"
^XMB(3.9,343,2,1358,0)="1358|84694.0000|Hop IgE|"
^XMB(3.9,343,2,1359,0)="1359|84695.0000|Hornet Venom IgE|"
^XMB(3.9,343,2,1360,0)="1360|84696.0000|Horse Dander IgE|"
^XMB(3.9,343,2,1361,0)="1361|84697.0000|Horse Fly IgE|"
^XMB(3.9,343,2,1362,0)="1362|84698.0000|House Dust IgE|"
^XMB(3.9,343,2,1363,0)="1363|84699.0000|Insulin Bovine IgE|"
^XMB(3.9,343,2,1364,0)="1364|84700.0000|Insulin Human IgE|"
^XMB(3.9,343,2,1365,0)="1365|84701.0000|Insulin Porcine IgE|"
^XMB(3.9,343,2,1366,0)="1366|84702.0000|Ispaghula IgE|"
^XMB(3.9,343,2,1367,0)="1367|84703.0000|Italian Cypress IgE|"
^XMB(3.9,343,2,1368,0)="1368|84704.0000|Kent blue grass IgE|"
^XMB(3.9,343,2,1369,0)="1369|84705.0000|Kiwi IgE|"
^XMB(3.9,343,2,1370,0)="1370|84706.0000|Lamb IgE|"
^XMB(3.9,343,2,1371,0)="1371|84707.0000|Goosefoot IgE|"
^XMB(3.9,343,2,1372,0)="1372|84708.0000|Mutton IgE|"
^XMB(3.9,343,2,1373,0)="1373|84709.0000|Ltx IgE|"
^XMB(3.9,343,2,1374,0)="1374|84710.0000|Lemon IgE|"
^XMB(3.9,343,2,1375,0)="1375|84711.0000|Lepidoglyphus destructor IgE|"
^XMB(3.9,343,2,1376,0)="1376|84712.0000|Lettuce IgE|"
^XMB(3.9,343,2,1377,0)="1377|84713.0000|Lilac IgE|"
^XMB(3.9,343,2,1378,0)="1378|84714.0000|Lime Tree IgE|"
^XMB(3.9,343,2,1379,0)="1379|84715.0000|Virg Live Oak IgE|"
^XMB(3.9,343,2,1380,0)="1380|84716.0000|Lobster IgE|"
^XMB(3.9,343,2,1381,0)="1381|84717.0000|Malt IgE|"
^XMB(3.9,343,2,1382,0)="1382|84718.0000|Mango IgE|"
^XMB(3.9,343,2,1383,0)="1383|84721.0000|Maple IgE|"
^XMB(3.9,343,2,1384,0)="1384|84722.0000|Meadow Fescue IgE|"
^XMB(3.9,343,2,1385,0)="1385|84723.0000|Meadow Foxtail IgE|"
^XMB(3.9,343,2,1386,0)="1386|84724.0000|Cajeput tree IgE|"
^XMB(3.9,343,2,1387,0)="1387|84725.0000|Melon IgE|"
^XMB(3.9,343,2,1388,0)="1388|84726.0000|Mesquite IgE|"
^XMB(3.9,343,2,1389,0)="1389|84727.0000|Milk IgE|"
^XMB(3.9,343,2,1390,0)="1390|84728.0000|Common Millet IgE|"
^XMB(3.9,343,2,1391,0)="1391|84729.0000|Mimosa IgE|"
^XMB(3.9,343,2,1392,0)="1392|84730.0000|Mosquito IgE|"
^XMB(3.9,343,2,1393,0)="1393|84731.0000|Moutain Juniper IgE|"
^XMB(3.9,343,2,1394,0)="1394|84732.0000|Mouse Epith IgE|"
^XMB(3.9,343,2,1395,0)="1395|84733.0000|Mouse Urine Prot IgE|"
^XMB(3.9,343,2,1396,0)="1396|84734.0000|Mucor racemosus IgE|"
^XMB(3.9,343,2,1397,0)="1397|84735.0000|Mugwort IgE|"
^XMB(3.9,343,2,1398,0)="1398|84736.0000|Mustard IgE|"
^XMB(3.9,343,2,1399,0)="1399|84737.0000|Nettle IgE|"
^XMB(3.9,343,2,1400,0)="1400|84738.0000|Neurospora sitophila IgE|"
^XMB(3.9,343,2,1401,0)="1401|84739.0000|Nutmeg IgE|"
^XMB(3.9,343,2,1402,0)="1402|84740.0000|White Oak IgE|"
^XMB(3.9,343,2,1403,0)="1403|84741.0000|Oat IgE|"
^XMB(3.9,343,2,1404,0)="1404|84742.0000|Olive Poln IgE|"
^XMB(3.9,343,2,1405,0)="1405|84743.0000|Onion IgE|"
^XMB(3.9,343,2,1406,0)="1406|84744.0000|Orange IgE|"
^XMB(3.9,343,2,1407,0)="1407|84745.0000|Cocksfoot IgE|"
^XMB(3.9,343,2,1408,0)="1408|84746.0000|Ox-eye daisy IgE|"
^XMB(3.9,343,2,1409,0)="1409|84747.0000|Paecilomyces IgE|"
^XMB(3.9,343,2,1410,0)="1410|84748.0000|Paper Wasp IgE|"
^XMB(3.9,343,2,1411,0)="1411|84749.0000|Pellitory (judaic) IgE|"
^XMB(3.9,343,2,1412,0)="1412|84750.0000|Pellitory (officinal) IgE|"
^XMB(3.9,343,2,1413,0)="1413|84751.0000|Parrot Drop IgE|"
^XMB(3.9,343,2,1414,0)="1414|84752.0000|Parrot Feather IgE|"
^XMB(3.9,343,2,1415,0)="1415|84753.0000|Parsley IgE|"
^XMB(3.9,343,2,1416,0)="1416|84754.0000|Pea IgE|"
^XMB(3.9,343,2,1417,0)="1417|84755.0000|Peach IgE|"
^XMB(3.9,343,2,1418,0)="1418|84756.0000|Peanut IgE|"
^XMB(3.9,343,2,1419,0)="1419|84757.0000|Pear IgE|"
^XMB(3.9,343,2,1420,0)="1420|84758.0000|Pecan/Hick Nut IgE|"
^XMB(3.9,343,2,1421,0)="1421|84759.0000|Pecan/Hick Tree IgE|"
^XMB(3.9,343,2,1422,0)="1422|84760.0000|Penicillin V IgE|"
^XMB(3.9,343,2,1423,0)="1423|84761.0000|Penicillium brevicompactum IgE|"
^XMB(3.9,343,2,1424,0)="1424|84762.0000|Penicillium notatum IgE|"
^XMB(3.9,343,2,1425,0)="1425|84763.0000|Peppertree IgE|"
^XMB(3.9,343,2,1426,0)="1426|84764.0000|Perch IgE|"
^XMB(3.9,343,2,1427,0)="1427|84765.0000|Phoma betae IgE|"
^XMB(3.9,343,2,1428,0)="1428|84766.0000|Pigeon Drop IgE|"
^XMB(3.9,343,2,1429,0)="1429|84767.0000|Pineapple IgE|"
^XMB(3.9,343,2,1430,0)="1430|84768.0000|Pork IgE|"
^XMB(3.9,343,2,1431,0)="1431|84769.0000|Potato IgE|"
^XMB(3.9,343,2,1432,0)="1432|84770.0000|Primrose IgE|"
^XMB(3.9,343,2,1433,0)="1433|84771.0000|Queen Palm IgE|"
^XMB(3.9,343,2,1434,0)="1434|84772.0000|Rabbit Epith IgE|"
^XMB(3.9,343,2,1435,0)="1435|84773.0000|Rat Epith IgE|"
^XMB(3.9,343,2,1436,0)="1436|84774.0000|Rat|"
^XMB(3.9,343,2,1437,0)="1437|84776.0000|Rat Urine Prot IgE|"
^XMB(3.9,343,2,1438,0)="1438|84777.0000|Red Pepper IgE|"
^XMB(3.9,343,2,1439,0)="1439|84778.0000|Red top grass IgE|"
^XMB(3.9,343,2,1440,0)="1440|84779.0000|Rhizopus nigricans IgE|"
^XMB(3.9,343,2,1441,0)="1441|84780.0000|Rice IgE|"
^XMB(3.9,343,2,1442,0)="1442|84781.0000|Rose Hip IgE|"
^XMB(3.9,343,2,1443,0)="1443|84782.0000|Marsh Elder IgE|"
^XMB(3.9,343,2,1444,0)="1444|84783.0000|Rough Pigweed IgE|"
^XMB(3.9,343,2,1445,0)="1445|84784.0000|Saltwort IgE|"
^XMB(3.9,343,2,1446,0)="1446|84785.0000|Cultivated Rye IgE|"
^XMB(3.9,343,2,1447,0)="1447|84786.0000|Salmon IgE|"
^XMB(3.9,343,2,1448,0)="1448|84787.0000|Salt grass IgE|"
^XMB(3.9,343,2,1449,0)="1449|84788.0000|Lenscale IgE|"
^XMB(3.9,343,2,1450,0)="1450|84789.0000|Seminal Fld IgE|"
^XMB(3.9,343,2,1451,0)="1451|84790.0000|Serpula lacrymans IgE|"
^XMB(3.9,343,2,1452,0)="1452|84791.0000|Sesame Seed IgE|"
^XMB(3.9,343,2,1453,0)="1453|84792.0000|Sheep Epith IgE|"
^XMB(3.9,343,2,1454,0)="1454|84793.0000|Sheep Sorrel IgE|"
^XMB(3.9,343,2,1455,0)="1455|84794.0000|Sheep Wool IgE|"
^XMB(3.9,343,2,1456,0)="1456|84795.0000|Shrimp IgE|"
^XMB(3.9,343,2,1457,0)="1457|84796.0000|Silk IgE|"
^XMB(3.9,343,2,1458,0)="1458|84797.0000|Soybean IgE|"
^XMB(3.9,343,2,1459,0)="1459|84798.0000|Spiny lobster IgE|"
^XMB(3.9,343,2,1460,0)="1460|84799.0000|Spiny Pigweed IgE|"
^XMB(3.9,343,2,1461,0)="1461|84800.0000|Sporobolomyces roseus IgE|"
^XMB(3.9,343,2,1462,0)="1462|84801.0000|Stemphylium botryosum IgE|"
^XMB(3.9,343,2,1463,0)="1463|84802.0000|Midge Stinging IgE|"
^XMB(3.9,343,2,1464,0)="1464|84803.0000|Acarus siro IgE|"
^XMB(3.9,343,2,1465,0)="1465|84804.0000|Tyrophagus putrescentiae IgE|"
^XMB(3.9,343,2,1466,0)="1466|84805.0000|Strawberry IgE|"
^XMB(3.9,343,2,1467,0)="1467|84806.0000|Sunflower Seed IgE|"
^XMB(3.9,343,2,1468,0)="1468|84807.0000|Chestnut IgE|"
^XMB(3.9,343,2,1469,0)="1469|84808.0000|Sweetgum IgE|"
^XMB(3.9,343,2,1470,0)="1470|84809.0000|Sw Vernal grass IgE|"
^XMB(3.9,343,2,1471,0)="1471|84810.0000|Swine Epith IgE|"
^XMB(3.9,343,2,1472,0)="1472|84811.0000|American Sycamore IgE|"
^XMB(3.9,343,2,1473,0)="1473|84812.0000|Tea IgE|"
^XMB(3.9,343,2,1474,0)="1474|84813.0000|Timothy IgE|"
^XMB(3.9,343,2,1475,0)="1475|84814.0000|Tomato IgE|"
^XMB(3.9,343,2,1476,0)="1476|84815.0000|Trichoderma viride IgE|"
^XMB(3.9,343,2,1477,0)="1477|84816.0000|Trout IgE|"
^XMB(3.9,343,2,1478,0)="1478|84817.0000|Tulip IgE|"
^XMB(3.9,343,2,1479,0)="1479|84818.0000|Tuna IgE|"
^XMB(3.9,343,2,1480,0)="1480|84819.0000|Turkey Meat IgE|"
^XMB(3.9,343,2,1481,0)="1481|84820.0000|Velvet grass IgE|"
^XMB(3.9,343,2,1482,0)="1482|84821.0000|Walnut IgE|"
^XMB(3.9,343,2,1483,0)="1483|84822.0000|Calif Walnut IgE|"
^XMB(3.9,343,2,1484,0)="1484|84823.0000|West Ragweed IgE|"
^XMB(3.9,343,2,1485,0)="1485|84824.0000|Wheat IgE|"
^XMB(3.9,343,2,1486,0)="1486|84825.0000|Cultivated Wheat IgE|"
^XMB(3.9,343,2,1487,0)="1487|84826.0000|White Ash IgE|"
^XMB(3.9,343,2,1488,0)="1488|84827.0000|White Bean IgE|"
^XMB(3.9,343,2,1489,0)="1489|84828.0000|Whitefaced Hornet IgE|"
^XMB(3.9,343,2,1490,0)="1490|84829.0000|White mulberry IgE|"
^XMB(3.9,343,2,1491,0)="1491|84830.0000|East White Pine IgE|"
^XMB(3.9,343,2,1492,0)="1492|84831.0000|Wild Silk IgE|"
^XMB(3.9,343,2,1493,0)="1493|84832.0000|Willow IgE|"
^XMB(3.9,343,2,1494,0)="1494|84833.0000|Wormwood IgE|"
^XMB(3.9,343,2,1495,0)="1495|84834.0000|Yeast IgE|"
^XMB(3.9,343,2,1496,0)="1496|84835.0000|Yellow Hornet IgE|"
^XMB(3.9,343,2,1497,0)="1497|84836.0000|Au Parrot Drop IgE|"
^XMB(3.9,343,2,1498,0)="1498|84837.0000|Plasmodium malariae Ab|"
^XMB(3.9,343,2,1499,0)="1499|84838.0000|Bab microti Ab|"
^XMB(3.9,343,2,1500,0)="1500|84839.0000|Blastomyces dermat Ag|"
^XMB(3.9,343,2,1501,0)="1501|84840.0000|Bordetella pert Ab Titer|"
^XMB(3.9,343,2,1502,0)="1502|84841.0000|Borrelia burgdor Ag|"
^XMB(3.9,343,2,1503,0)="1503|84842.0000|Brucella abortus IgM|"
^XMB(3.9,343,2,1504,0)="1504|84843.0000|Brucella canis Ab|"
^XMB(3.9,343,2,1505,0)="1505|84844.0000|Brucella Ab Titer|"
^XMB(3.9,343,2,1506,0)="1506|84845.0000|Candida albicans Ag|"
^XMB(3.9,343,2,1507,0)="1507|84846.0000|Clostridium dif Tox A+B|"
^XMB(3.9,343,2,1508,0)="1508|84847.0000|Clostridium tetani IgG|"
^XMB(3.9,343,2,1509,0)="1509|84848.0000|Cryptococcus neoform Ab Titer|"
^XMB(3.9,343,2,1510,0)="1510|84849.0000|Cryptoc Ab|"
^XMB(3.9,343,2,1511,0)="1511|84850.0000|Cysticerc IgG|"
^XMB(3.9,343,2,1512,0)="1512|84851.0000|DENV Ab|"
^XMB(3.9,343,2,1513,0)="1513|84852.0000|DENV Ag|"
^XMB(3.9,343,2,1514,0)="1514|84853.0000|DENV DNA|"
^XMB(3.9,343,2,1515,0)="1515|84854.0000|EEEV Ag|"
^XMB(3.9,343,2,1516,0)="1516|84855.0000|ECV30 Ab Titer|"
^XMB(3.9,343,2,1517,0)="1517|84856.0000|ECV30 Ab|"
^XMB(3.9,343,2,1518,0)="1518|84857.0000|ECV40 Ab Titer|"
^XMB(3.9,343,2,1519,0)="1519|84858.0000|ECV40 Ab|"
^XMB(3.9,343,2,1520,0)="1520|84859.0000|Entamoeba histolyt Ag|"
^XMB(3.9,343,2,1521,0)="1521|84860.0000|Ehrlichia canis Ab|"
^XMB(3.9,343,2,1522,0)="1522|84861.0000|Ehrlichia chaffeensis IgG|"
^XMB(3.9,343,2,1523,0)="1523|84862.0000|Ehrlichia chaffeensis IgM|"
^XMB(3.9,343,2,1524,0)="1524|84863.0000|Ehrlichia equi Ab|"
^XMB(3.9,343,2,1525,0)="1525|84864.0000|Ehrlichia phag Ab|"
^XMB(3.9,343,2,1526,0)="1526|84865.0000|Ehrlichia Ab|"
^XMB(3.9,343,2,1527,0)="1527|84866.0000|Francisella tular IgM|"
^XMB(3.9,343,2,1528,0)="1528|84867.0000|Giardia lamblia IgG Titer|"
^XMB(3.9,343,2,1529,0)="1529|84868.0000|Helicobacter pylori IgA|"
^XMB(3.9,343,2,1530,0)="1530|84869.0000|Histoplasma capsul Ag|"
^XMB(3.9,343,2,1531,0)="1531|84870.0000|HTLV1 Ab|"
^XMB(3.9,343,2,1532,0)="1532|84871.0000|HTLV1 IgG|"
^XMB(3.9,343,2,1533,0)="1533|84872.0000|FLU A+B Ab Titer|"
^XMB(3.9,343,2,1534,0)="1534|84873.0000|Legionella Ab Titer|"
^XMB(3.9,343,2,1535,0)="1535|84874.0000|Listeria monocytog Ab Titer|"
^XMB(3.9,343,2,1536,0)="1536|84875.0000|MuV IgG|"
^XMB(3.9,343,2,1537,0)="1537|84876.0000|MuV IgG Titer|"
^XMB(3.9,343,2,1538,0)="1538|84877.0000|MuV IgM|"
^XMB(3.9,343,2,1539,0)="1539|84878.0000|MuV IgM Titer|"
^XMB(3.9,343,2,1540,0)="1540|84879.0000|MuV Ag|"
^XMB(3.9,343,2,1541,0)="1541|84880.0000|Mycoplasma pneumo IgG Titer|"
^XMB(3.9,343,2,1542,0)="1542|84881.0000|Pneumocystis jiroveci Ag|"
^XMB(3.9,343,2,1543,0)="1543|84882.0000|Rickettsia prowazek Ab|"
^XMB(3.9,343,2,1544,0)="1544|84883.0000|RUBV|"
^XMB(3.9,343,2,1545,0)="1545|84884.0000|SLEV Ag|"
^XMB(3.9,343,2,1546,0)="1546|84885.0000|Staphylococcus aureus Ab|"
^XMB(3.9,343,2,1547,0)="1547|84886.0000|Streptococcus pneum Ab|"
^XMB(3.9,343,2,1548,0)="1548|84887.0000|Plasmodium ovale Ab|"
^XMB(3.9,343,2,1549,0)="1549|84888.0000|Treponema pallidum IgG|"
^XMB(3.9,343,2,1550,0)="1550|84889.0000|Treponema pallidum IgM|"
^XMB(3.9,343,2,1551,0)="1551|84890.0000|Trichinella spiralis IgG|"
^XMB(3.9,343,2,1552,0)="1552|84891.0000|VZV IgG Titer|"
^XMB(3.9,343,2,1553,0)="1553|84892.0000|VZV IgM Titer|"
^XMB(3.9,343,2,1554,0)="1554|84893.0000|VEEE Ab|"
^XMB(3.9,343,2,1555,0)="1555|84894.0000|VEEE Ag|"
^XMB(3.9,343,2,1556,0)="1556|84895.0000|WEEV Ag|"
^XMB(3.9,343,2,1557,0)="1557|84896.0000|YFV Ab Titer|"
^XMB(3.9,343,2,1558,0)="1558|84897.0000|YFV Ab|"
^XMB(3.9,343,2,1559,0)="1559|84898.0000|YFV IgG|"
^XMB(3.9,343,2,1560,0)="1560|84899.0000|YFV IgM|"
^XMB(3.9,343,2,1561,0)="1561|84900.0000|Brugia malayi Ab|"
^XMB(3.9,343,2,1562,0)="1562|84901.0000|Schistosoma japonicum Ab Titer|"
^XMB(3.9,343,2,1563,0)="1563|84903.0000|Schistosoma mansoni Ab|"
^XMB(3.9,343,2,1564,0)="1564|84904.0000|Strongyloides stercoralis IgG|"
^XMB(3.9,343,2,1565,0)="1565|84905.0000|Wucheria bancrofti Ab|"
^XMB(3.9,343,2,1566,0)="1566|84907.0000|FLUA HK Ab|"
^XMB(3.9,343,2,1567,0)="1567|84908.0000|FLUA Eng Ab|"
^XMB(3.9,343,2,1568,0)="1568|84909.0000|FLUA Pt Chal Ab|"
^XMB(3.9,343,2,1569,0)="1569|84910.0000|FLUA Vic Ab|"
^XMB(3.9,343,2,1570,0)="1570|84911.0000|FLUA Tex Ab|"
^XMB(3.9,343,2,1571,0)="1571|84912.0000|FLUA Bang Ab|"
^XMB(3.9,343,2,1572,0)="1572|84913.0000|FLUA Phill Ab|"
^XMB(3.9,343,2,1573,0)="1573|84914.0000|FLUA Miss Ab|"
^XMB(3.9,343,2,1574,0)="1574|84915.0000|FLUA Lenin Ab|"
^XMB(3.9,343,2,1575,0)="1575|84916.0000|Cefpirome SBT|"
^XMB(3.9,343,2,1576,0)="1576|84917.0000|Meropenem SBT|"
^XMB(3.9,343,2,1577,0)="1577|84918.0000|CV A16 Ab Titer|"
^XMB(3.9,343,2,1578,0)="1578|84919.0000|Loxapine+8OH-Amox|"
^XMB(3.9,343,2,1579,0)="1579|84920.0000|ECV11 Ab Titer|"
^XMB(3.9,343,2,1580,0)="1580|84921.0000|Acetamin IgE|"
^XMB(3.9,343,2,1581,0)="1581|84922.0000|Ampicillin IgE|"
^XMB(3.9,343,2,1582,0)="1582|84923.0000|Bakers Yeast IgG|"
^XMB(3.9,343,2,1583,0)="1583|84924.0000|Beef IgG|"
^XMB(3.9,343,2,1584,0)="1584|84925.0000|Brewers Yeast IgG|"
^XMB(3.9,343,2,1585,0)="1585|84926.0000|Cashew Nut IgE|"
^XMB(3.9,343,2,1586,0)="1586|84927.0000|Cherry IgE|"
^XMB(3.9,343,2,1587,0)="1587|84928.0000|Chocolate IgG|"
^XMB(3.9,343,2,1588,0)="1588|84929.0000|Codfish IgG|"
^XMB(3.9,343,2,1589,0)="1589|84932.0000|Coffee IgG|"
^XMB(3.9,343,2,1590,0)="1590|84933.0000|Corn IgG|"
^XMB(3.9,343,2,1591,0)="1591|84934.0000|Cucumber IgE|"
^XMB(3.9,343,2,1592,0)="1592|84935.0000|Egg White IgG|"
^XMB(3.9,343,2,1593,0)="1593|84936.0000|False oat grass IgE|"
^XMB(3.9,343,2,1594,0)="1594|84937.0000|Honey Bee IgG|"
^XMB(3.9,343,2,1595,0)="1595|84938.0000|Ltx Glv Ext IgE|"
^XMB(3.9,343,2,1596,0)="1596|84939.0000|Cow Milk IgG|"
^XMB(3.9,343,2,1597,0)="1597|84940.0000|Orange IgG|"
^XMB(3.9,343,2,1598,0)="1598|84941.0000|Paper Wasp IgG|"
^XMB(3.9,343,2,1599,0)="1599|84942.0000|Peanut IgG|"
^XMB(3.9,343,2,1600,0)="1600|84943.0000|Pork IgG|"
^XMB(3.9,343,2,1601,0)="1601|84944.0000|Soybean IgG|"
^XMB(3.9,343,2,1602,0)="1602|84945.0000|Tomato IgG|"
^XMB(3.9,343,2,1603,0)="1603|84946.0000|Wheat IgG|"
^XMB(3.9,343,2,1604,0)="1604|84947.0000|Yellow Dockweed IgE|"
^XMB(3.9,343,2,1605,0)="1605|84948.0000|Yellow Hornet IgG|"
^XMB(3.9,343,2,1606,0)="1606|84949.0000|Yellow Jacket IgE|"
^XMB(3.9,343,2,1607,0)="1607|84950.0000|Glucose 2.5H p 75 g Glc PO|"
^XMB(3.9,343,2,1608,0)="1608|84951.0000|Glucose 3.5H p 75 g Glc PO|"
^XMB(3.9,343,2,1609,0)="1609|84952.0000|Glucose 4.5H p 75 g Glc PO|"
^XMB(3.9,343,2,1610,0)="1610|84953.0000|Glucose 6H p 75 g Glc PO|"
^XMB(3.9,343,2,1611,0)="1611|84954.0000|Glucose 1.5H p 50 g Lac PO|"
^XMB(3.9,343,2,1612,0)="1612|84955.0000|17OH-Preg|"
^XMB(3.9,343,2,1613,0)="1613|84956.0000|18OHCS|"
^XMB(3.9,343,2,1614,0)="1614|84957.0000|ALP|"
^XMB(3.9,343,2,1615,0)="1615|84958.0000|A1AT Phenotyp|"
^XMB(3.9,343,2,1616,0)="1616|84959.0000|Desethylamiodarone|"
^XMB(3.9,343,2,1617,0)="1617|84960.0000|Kappa LC|"
^XMB(3.9,343,2,1618,0)="1618|84961.0000|Lamda LC|"
^XMB(3.9,343,2,1619,0)="1619|84962.0000|Aspergillus fumigatus1 Ab|"
^XMB(3.9,343,2,1620,0)="1620|84963.0000|Aspergillus fumigatus6 Ab|"
^XMB(3.9,343,2,1621,0)="1621|84964.0000|Aureobasidium pullulans Ab|"
^XMB(3.9,343,2,1622,0)="1622|84965.0000|DENV IgG Titer|"
^XMB(3.9,343,2,1623,0)="1623|84966.0000|DENV IgM Titer|"
^XMB(3.9,343,2,1624,0)="1624|84967.0000|ECV16 Ab Titer|"
^XMB(3.9,343,2,1625,0)="1625|84968.0000|EBV EA IgG|"
^XMB(3.9,343,2,1626,0)="1626|84969.0000|EBV NA IgM|"
^XMB(3.9,343,2,1627,0)="1627|84970.0000|Histoplasma capsul Myc Ab|"
^XMB(3.9,343,2,1628,0)="1628|84971.0000|Histoplasma capsul Yst Ab|"
^XMB(3.9,343,2,1629,0)="1629|84972.0000|Streptococcus Ab|"
^XMB(3.9,343,2,1630,0)="1630|84973.0000|Streptococcus Ab Titer|"
^XMB(3.9,343,2,1631,0)="1631|84974.0000|Amoxicillin IgE|"
^XMB(3.9,343,2,1632,0)="1632|84975.0000|Aspergillus niger IgE|"
^XMB(3.9,343,2,1633,0)="1633|84976.0000|Green Bean IgE|"
^XMB(3.9,343,2,1634,0)="1634|84977.0000|Oregon Ash IgE|"
^XMB(3.9,343,2,1635,0)="1635|84978.0000|Cat Dander IgE|"
^XMB(3.9,343,2,1636,0)="1636|84979.0000|Cat Hair+Epith IgE|"
^XMB(3.9,343,2,1637,0)="1637|84980.0000|Cauliflower IgE|"
^XMB(3.9,343,2,1638,0)="1638|84981.0000|Chicken|"
^XMB(3.9,343,2,1639,0)="1639|84982.0000|Cinnamon IgE|"
^XMB(3.9,343,2,1640,0)="1640|84983.0000|Cockatiel Drop IgE|"
^XMB(3.9,343,2,1641,0)="1641|84984.0000|Cryptostroma corticale IgE|"
^XMB(3.9,343,2,1642,0)="1642|84985.0000|Gerbil IgE|"
^XMB(3.9,343,2,1643,0)="1643|84986.0000|Grape IgE|"
^XMB(3.9,343,2,1644,0)="1644|84987.0000|Halibut IgE|"
^XMB(3.9,343,2,1645,0)="1645|85197.0000|Honey Bee IgE|"
^XMB(3.9,343,2,1646,0)="1646|85198.0000|Ltx Glv Ext Ammon IgE|"
^XMB(3.9,343,2,1647,0)="1647|85199.0000|Ltx Glv Ext Buff IgE|"
^XMB(3.9,343,2,1648,0)="1648|85200.0000|Mexican tea IgE|"
^XMB(3.9,343,2,1649,0)="1649|85207.0000|Mushroom IgE|"
^XMB(3.9,343,2,1650,0)="1650|85208.0000|Pawpaw IgE|"
^XMB(3.9,343,2,1651,0)="1651|85209.0000|Penicillin G IgE|"
^XMB(3.9,343,2,1652,0)="1652|85211.0000|Green Pepper IgE|"
^XMB(3.9,343,2,1653,0)="1653|85212.0000|Plum IgE|"
^XMB(3.9,343,2,1654,0)="1654|85213.0000|Pumpkin IgE|"
^XMB(3.9,343,2,1655,0)="1655|85214.0000|Common Reed IgE|"
^XMB(3.9,343,2,1656,0)="1656|85215.0000|Spinach IgE|"
^XMB(3.9,343,2,1657,0)="1657|85216.0000|Spruce IgE|"
^XMB(3.9,343,2,1658,0)="1658|85217.0000|Squid IgE|"
^XMB(3.9,343,2,1659,0)="1659|85218.0000|Tobacco IgE|"
^XMB(3.9,343,2,1660,0)="1660|85219.0000|Trichophyton rubrum IgE|"
^XMB(3.9,343,2,1661,0)="1661|85221.0000|Vanilla IgG|"
^XMB(3.9,343,2,1662,0)="1662|85222.0000|Black Willow IgE|"
^XMB(3.9,343,2,1663,0)="1663|85224.0000|B-OH-Butyr|"
^XMB(3.9,343,2,1664,0)="1664|85225.0000|PB Glucose|"
^XMB(3.9,343,2,1665,0)="1665|85226.0000|IgA1|"
^XMB(3.9,343,2,1666,0)="1666|85227.0000|Testost Bioavail %|"
^XMB(3.9,343,2,1667,0)="1667|85228.0000|Norsertraline|"
^XMB(3.9,343,2,1668,0)="1668|85229.0000|Diltiazem|"
^XMB(3.9,343,2,1669,0)="1669|85231.0000|Brucella abortus IgA|"
^XMB(3.9,343,2,1670,0)="1670|85232.0000|Brucella abortus IgG|"
^XMB(3.9,343,2,1671,0)="1671|85233.0000|Chlamydophila pneum IgA Titer|"
^XMB(3.9,343,2,1672,0)="1672|85234.0000|Chlamydophila pneum IgG Titer|"
^XMB(3.9,343,2,1673,0)="1673|85235.0000|Chlamydophila pneum IgM Titer|"
^XMB(3.9,343,2,1674,0)="1674|85236.0000|Chlamydophila psittaci IgA Titer|"
^XMB(3.9,343,2,1675,0)="1675|85237.0000|Chlamydophila psittaci IgG Titer|"
^XMB(3.9,343,2,1676,0)="1676|85238.0000|Chlamydophila psittaci IgM Titer|"
^XMB(3.9,343,2,1677,0)="1677|85239.0000|Chlamydia trach IgA Titer|"
^XMB(3.9,343,2,1678,0)="1678|85241.0000|Chlamydia trach IgG Titer|"
^XMB(3.9,343,2,1679,0)="1679|85242.0000|Chlamydia trach IgM Titer|"
^XMB(3.9,343,2,1680,0)="1680|85243.0000|ECV7 Ab Titer|"
^XMB(3.9,343,2,1681,0)="1681|85244.0000|Gliadin IgA|"
^XMB(3.9,343,2,1682,0)="1682|85245.0000|GM1 Monosialo IgG Titer|"
^XMB(3.9,343,2,1683,0)="1683|85246.0000|GM1 Monosialo IgM Titer|"
^XMB(3.9,343,2,1684,0)="1684|85247.0000|Platelet IgG|"
^XMB(3.9,343,2,1685,0)="1685|85248.0000|RAST Class Ql|"
^XMB(3.9,343,2,1686,0)="1686|85253.0000|IgA2|"
^XMB(3.9,343,2,1687,0)="1687|85254.0000|Isotretinoin|"
^XMB(3.9,343,2,1688,0)="1688|85255.0000|Metaproterenol|"
^XMB(3.9,343,2,1689,0)="1689|85256.0000|Ranitidine|"
^XMB(3.9,343,2,1690,0)="1690|85257.0000|Bartonella henselae IgG Titer|"
^XMB(3.9,343,2,1691,0)="1691|85258.0000|Bartonella henselae IgM Titer|"
^XMB(3.9,343,2,1692,0)="1692|85259.0000|CV A21 Ab Titer|"
^XMB(3.9,343,2,1693,0)="1693|85261.0000|WEEV IgG Titer|"
^XMB(3.9,343,2,1694,0)="1694|85262.0000|WEEV IgM Titer|"
^XMB(3.9,343,2,1695,0)="1695|85263.0000|Yersinia enterocol O3 Ab Titer|"
^XMB(3.9,343,2,1696,0)="1696|85264.0000|Yersinia enterocol O5 Ab Titer|"
^XMB(3.9,343,2,1697,0)="1697|85265.0000|Yersinia enterocol O8 Ab Titer|"
^XMB(3.9,343,2,1698,0)="1698|85266.0000|Yersinia enterocol O9 Ab Titer|"
^XMB(3.9,343,2,1699,0)="1699|85267.0000|Yersinia enterocol Ab Titer|"
^XMB(3.9,343,2,1700,0)="1700|85268.0000|Yersinia enterocol IgA|"
^XMB(3.9,343,2,1701,0)="1701|85269.0000|Yersinia enterocol IgG|"
^XMB(3.9,343,2,1702,0)="1702|85271.0000|Yersinia enterocol IgM|"
^XMB(3.9,343,2,1703,0)="1703|85272.0000|Yersinia pseudoTB Ab Titer|"
^XMB(3.9,343,2,1704,0)="1704|85273.0000|Proteinase3 Ab|"
^XMB(3.9,343,2,1705,0)="1705|85274.0000|Purkinje Cells Ab Titer|"
^XMB(3.9,343,2,1706,0)="1706|85275.0000|Abalone IgE|"
^XMB(3.9,343,2,1707,0)="1707|85276.0000|Red Alder IgE|"
^XMB(3.9,343,2,1708,0)="1708|85277.0000|Tag Alder IgE|"
^XMB(3.9,343,2,1709,0)="1709|85278.0000|White Alder IgE|"
^XMB(3.9,343,2,1710,0)="1710|85279.0000|Alfalfa IgE|"
^XMB(3.9,343,2,1711,0)="1711|85281.0000|Alfalfa IgG|"
^XMB(3.9,343,2,1712,0)="1712|85282.0000|Alfalfa Poln IgE|"
^XMB(3.9,343,2,1713,0)="1713|85283.0000|Algae IgE|"
^XMB(3.9,343,2,1714,0)="1714|85284.0000|Allspice IgE|"
^XMB(3.9,343,2,1715,0)="1715|85285.0000|Almond IgG|"
^XMB(3.9,343,2,1716,0)="1716|85286.0000|Almond Tree IgE|"
^XMB(3.9,343,2,1717,0)="1717|85287.0000|Amylase IgE|"
^XMB(3.9,343,2,1718,0)="1718|85288.0000|Alternaria IgE|"
^XMB(3.9,343,2,1719,0)="1719|85289.0000|Alternaria IgG|"
^XMB(3.9,343,2,1720,0)="1720|85291.0000|Alternaria alternata IgG|"
^XMB(3.9,343,2,1721,0)="1721|85292.0000|Ampicillin IgM|"
^XMB(3.9,343,2,1722,0)="1722|85293.0000|Anchovy IgE|"
^XMB(3.9,343,2,1723,0)="1723|85294.0000|Anchovy IgG|"
^XMB(3.9,343,2,1724,0)="1724|85295.0000|Anise IgE|"
^XMB(3.9,343,2,1725,0)="1725|85296.0000|Black Ant IgG|"
^XMB(3.9,343,2,1726,0)="1726|85297.0000|Fire Ant IgG|"
^XMB(3.9,343,2,1727,0)="1727|85298.0000|Black Imp Fire Ant IgE|"
^XMB(3.9,343,2,1728,0)="1728|85318.0000|Red Ant IgE|"
^XMB(3.9,343,2,1729,0)="1729|85319.0000|Apple IgG|"
^XMB(3.9,343,2,1730,0)="1730|85325.0000|Apple BasoBnd Ab|"
^XMB(3.9,343,2,1731,0)="1731|85326.0000|Apple Tree IgE|"
^XMB(3.9,343,2,1732,0)="1732|85327.0000|Apricot IgE|"
^XMB(3.9,343,2,1733,0)="1733|85328.0000|Apricot IgG|"
^XMB(3.9,343,2,1734,0)="1734|85329.0000|Arrowroot IgE|"
^XMB(3.9,343,2,1735,0)="1735|85330.0000|Artichoke IgE|"
^XMB(3.9,343,2,1736,0)="1736|85331.0000|Arizona Ash IgE|"
^XMB(3.9,343,2,1737,0)="1737|85332.0000|Asparagus IgE|"
^XMB(3.9,343,2,1738,0)="1738|85333.0000|Asparagus IgG|"
^XMB(3.9,343,2,1739,0)="1739|85334.0000|Aspen IgE|"
^XMB(3.9,343,2,1740,0)="1740|85335.0000|Aspen IgG|"
^XMB(3.9,343,2,1741,0)="1741|85337.0000|Aspergillus fumigatus IgG|"
^XMB(3.9,343,2,1742,0)="1742|85338.0000|Aspergillus nidulans IgE|"
^XMB(3.9,343,2,1743,0)="1743|85339.0000|Acetylsalicylate IgE|"
^XMB(3.9,343,2,1744,0)="1744|85340.0000|Avocado IgG|"
^XMB(3.9,343,2,1745,0)="1745|85341.0000|Groundsel Tree IgE|"
^XMB(3.9,343,2,1746,0)="1746|85342.0000|Banana IgG|"
^XMB(3.9,343,2,1747,0)="1747|85343.0000|Barley IgG|"
^XMB(3.9,343,2,1748,0)="1748|85344.0000|Barley Poln IgE|"
^XMB(3.9,343,2,1749,0)="1749|85347.0000|Oat+Barley IgE|"
^XMB(3.9,343,2,1750,0)="1750|85348.0000|Basil IgE|"
^XMB(3.9,343,2,1751,0)="1751|85349.0000|Basil IgG|"
^XMB(3.9,343,2,1752,0)="1752|85352.0000|Bass IgE|"
^XMB(3.9,343,2,1753,0)="1753|85353.0000|Bassiai IgE|"
^XMB(3.9,343,2,1754,0)="1754|85354.0000|Basswood IgE|"
^XMB(3.9,343,2,1755,0)="1755|85356.0000|Bayberry IgE|"
^XMB(3.9,343,2,1756,0)="1756|85361.0000|Bayberry Poln IgE|"
^XMB(3.9,343,2,1757,0)="1757|85362.0000|Bayleaf IgE|"
^XMB(3.9,343,2,1758,0)="1758|85363.0000|Bayleaf IgG|"
^XMB(3.9,343,2,1759,0)="1759|85364.0000|Green Bean IgG|"
^XMB(3.9,343,2,1760,0)="1760|85365.0000|Red Kidney Bean IgE|"
^XMB(3.9,343,2,1761,0)="1761|85366.0000|Red Kidney Bean IgG|"
^XMB(3.9,343,2,1762,0)="1762|85367.0000|Lima Bean IgE|"
^XMB(3.9,343,2,1763,0)="1763|85368.0000|Lima Bean IgG|"
^XMB(3.9,343,2,1764,0)="1764|85369.0000|Mug Bean IgE|"
^XMB(3.9,343,2,1765,0)="1765|85372.0000|Mug Bean IgG|"
^XMB(3.9,343,2,1766,0)="1766|85373.0000|Pinto Bean IgE|"
^XMB(3.9,343,2,1767,0)="1767|85374.0000|Pinto Bean IgG|"
^XMB(3.9,343,2,1768,0)="1768|85376.0000|Soybean dust IgE|"
^XMB(3.9,343,2,1769,0)="1769|85377.0000|String Bean IgG|"
^XMB(3.9,343,2,1770,0)="1770|85380.0000|Wax Bean IgE|"
^XMB(3.9,343,2,1771,0)="1771|85381.0000|White Bean IgG|"
^XMB(3.9,343,2,1772,0)="1772|85382.0000|Yellow Bean IgG|"
^XMB(3.9,343,2,1773,0)="1773|85383.0000|Beet IgG|"
^XMB(3.9,343,2,1774,0)="1774|85384.0000|Red Beet IgE|"
^XMB(3.9,343,2,1775,0)="1775|85385.0000|Sugar Beet IgE|"
^XMB(3.9,343,2,1776,0)="1776|85386.0000|Berry IgE|"
^XMB(3.9,343,2,1777,0)="1777|85387.0000|Bipolanis curvularia IgE|"
^XMB(3.9,343,2,1778,0)="1778|85388.0000|Blackberry IgE|"
^XMB(3.9,343,2,1779,0)="1779|85389.0000|Blueberry IgE|"
^XMB(3.9,343,2,1780,0)="1780|85391.0000|Blueberry IgG|"
^XMB(3.9,343,2,1781,0)="1781|85392.0000|Boxelder IgE|"
^XMB(3.9,343,2,1782,0)="1782|85393.0000|Boxelder IgG|"
^XMB(3.9,343,2,1783,0)="1783|85396.0000|Brazil Nut IgG|"
^XMB(3.9,343,2,1784,0)="1784|85398.0000|Broccoli IgG|"
^XMB(3.9,343,2,1785,0)="1785|85399.0000|Brussel Sprouts IgE|"
^XMB(3.9,343,2,1786,0)="1786|85400.0000|Brussel Sprouts IgG|"
^XMB(3.9,343,2,1787,0)="1787|85401.0000|Buckwheat IgG|"
^XMB(3.9,343,2,1788,0)="1788|85402.0000|Burning Bush IgE|"
^XMB(3.9,343,2,1789,0)="1789|85403.0000|White burrobrush IgE|"
^XMB(3.9,343,2,1790,0)="1790|85404.0000|Burwood IgE|"
^XMB(3.9,343,2,1791,0)="1791|85405.0000|Butterfly IgE|"
^XMB(3.9,343,2,1792,0)="1792|85406.0000|Cabbage IgE|"
^XMB(3.9,343,2,1793,0)="1793|85407.0000|Cabbage IgG|"
^XMB(3.9,343,2,1794,0)="1794|85408.0000|Canary Feather IgE|"
^XMB(3.9,343,2,1795,0)="1795|85409.0000|Candida albicans IgG|"
^XMB(3.9,343,2,1796,0)="1796|85410.0000|Candida IgG|"
^XMB(3.9,343,2,1797,0)="1797|85411.0000|Melon IgG|"
^XMB(3.9,343,2,1798,0)="1798|85412.0000|Caraway IgE|"
^XMB(3.9,343,2,1799,0)="1799|85413.0000|Carob IgE|"
^XMB(3.9,343,2,1800,0)="1800|85414.0000|Carrot IgG|"
^XMB(3.9,343,2,1801,0)="1801|85415.0000|Casein IgG|"
^XMB(3.9,343,2,1802,0)="1802|85416.0000|Cashew Nut IgG|"
^XMB(3.9,343,2,1803,0)="1803|85417.0000|Cat Epith IgG|"
^XMB(3.9,343,2,1804,0)="1804|85418.0000|Cat Hair IgE|"
^XMB(3.9,343,2,1805,0)="1805|85419.0000|Catfish IgE|"
^XMB(3.9,343,2,1806,0)="1806|85420.0000|Cattail IgE|"
^XMB(3.9,343,2,1807,0)="1807|85421.0000|Cauliflower IgG|"
^XMB(3.9,343,2,1808,0)="1808|85422.0000|Cedar Dust IgE|"
^XMB(3.9,343,2,1809,0)="1809|85423.0000|Moutain Juniper IgG|"
^XMB(3.9,343,2,1810,0)="1810|85424.0000|Red Cedar IgE|"
^XMB(3.9,343,2,1811,0)="1811|85425.0000|Saltcedar IgE|"
^XMB(3.9,343,2,1812,0)="1812|85426.0000|Celery IgG|"
^XMB(3.9,343,2,1813,0)="1813|85427.0000|Cephalosporine Mold IgE|"
^XMB(3.9,343,2,1814,0)="1814|85428.0000|Chaetomium globosum IgE|"
^XMB(3.9,343,2,1815,0)="1815|85429.0000|American Cheese IgE|"
^XMB(3.9,343,2,1816,0)="1816|85430.0000|American Cheese IgG|"
^XMB(3.9,343,2,1817,0)="1817|85431.0000|Blue Cheese IgE|"
^XMB(3.9,343,2,1818,0)="1818|85432.0000|Cheddar IgG|"
^XMB(3.9,343,2,1819,0)="1819|85433.0000|Cottage Cheese IgE|"
^XMB(3.9,343,2,1820,0)="1820|85434.0000|Cottage Cheese IgG|"
^XMB(3.9,343,2,1821,0)="1821|85435.0000|Mozzarella IgE|"
^XMB(3.9,343,2,1822,0)="1822|85436.0000|Mozzarella IgG|"
^XMB(3.9,343,2,1823,0)="1823|85437.0000|Parmesan IgE|"
^XMB(3.9,343,2,1824,0)="1824|85438.0000|Roquefort IgE|"
^XMB(3.9,343,2,1825,0)="1825|85439.0000|Swiss Cheese IgE|"
^XMB(3.9,343,2,1826,0)="1826|85440.0000|Swiss Cheese IgG|"
^XMB(3.9,343,2,1827,0)="1827|85441.0000|Cherry IgG|"
^XMB(3.9,343,2,1828,0)="1828|85442.0000|Horse Chestnut IgE|"
^XMB(3.9,343,2,1829,0)="1829|85443.0000|Chewing gum IgE|"
^XMB(3.9,343,2,1830,0)="1830|85444.0000|Chicken IgG|"
^XMB(3.9,343,2,1831,0)="1831|85445.0000|Chicken Feather IgG|"
^XMB(3.9,343,2,1832,0)="1832|85446.0000|Chicory IgE|"
^XMB(3.9,343,2,1833,0)="1833|85447.0000|Chinese Tallow Tree IgE|"
^XMB(3.9,343,2,1834,0)="1834|85448.0000|Cinnamon IgG|"
^XMB(3.9,343,2,1835,0)="1835|85449.0000|Cladosporium herbarum IgG|"
^XMB(3.9,343,2,1836,0)="1836|85450.0000|Clam IgG|"
^XMB(3.9,343,2,1837,0)="1837|85451.0000|Clove IgE|"
^XMB(3.9,343,2,1838,0)="1838|85452.0000|Clove IgG|"
^XMB(3.9,343,2,1839,0)="1839|85453.0000|Clover IgE|"
^XMB(3.9,343,2,1840,0)="1840|85454.0000|Cockatoo IgE|"
^XMB(3.9,343,2,1841,0)="1841|85455.0000|Cocklebur IgG|"
^XMB(3.9,343,2,1842,0)="1842|85456.0000|Coconut IgG|"
^XMB(3.9,343,2,1843,0)="1843|85457.0000|Coffee Bean IgE|"
^XMB(3.9,343,2,1844,0)="1844|85458.0000|Cola IgE|"
^XMB(3.9,343,2,1845,0)="1845|85459.0000|Cola IgG|"
^XMB(3.9,343,2,1846,0)="1846|85460.0000|Cultivated Corn IgE|"
^XMB(3.9,343,2,1847,0)="1847|85461.0000|Cotton Gin Dust IgE|"
^XMB(3.9,343,2,1848,0)="1848|85462.0000|Cotton Linters IgE|"
^XMB(3.9,343,2,1849,0)="1849|85463.0000|Cottonseed IgG|"
^XMB(3.9,343,2,1850,0)="1850|85464.0000|Black Cottonwood IgE|"
^XMB(3.9,343,2,1851,0)="1851|85465.0000|West Cottonwood IgE|"
^XMB(3.9,343,2,1852,0)="1852|85466.0000|Cow Epith IgE|"
^XMB(3.9,343,2,1853,0)="1853|85467.0000|Cow Milk IgE|"
^XMB(3.9,343,2,1854,0)="1854|85468.0000|Crab IgG|"
^XMB(3.9,343,2,1855,0)="1855|85469.0000|Cranberry IgE|"
^XMB(3.9,343,2,1856,0)="1856|85470.0000|Cranberry IgG|"
^XMB(3.9,343,2,1857,0)="1857|85471.0000|Crawfish IgE|"
^XMB(3.9,343,2,1858,0)="1858|85472.0000|Cricket IgE|"
^XMB(3.9,343,2,1859,0)="1859|85473.0000|Cryptococcus terreus IgE|"
^XMB(3.9,343,2,1860,0)="1860|85474.0000|Cucumber IgG|"
^XMB(3.9,343,2,1861,0)="1861|85475.0000|Curry IgE|"
^XMB(3.9,343,2,1862,0)="1862|85476.0000|Curvularia IgE|"
^XMB(3.9,343,2,1863,0)="1863|85477.0000|Bald Cypress IgE|"
^XMB(3.9,343,2,1864,0)="1864|85478.0000|Dahlia IgE|"
^XMB(3.9,343,2,1865,0)="1865|85479.0000|Daisy IgE|"
^XMB(3.9,343,2,1866,0)="1866|85480.0000|Date Poln IgE|"
^XMB(3.9,343,2,1867,0)="1867|85481.0000|Dermatophagoides farinae IgG|"
^XMB(3.9,343,2,1868,0)="1868|85482.0000|Dermatophagoides pteronyss IgG|"
^XMB(3.9,343,2,1869,0)="1869|85483.0000|Dill IgE|"
^XMB(3.9,343,2,1870,0)="1870|85484.0000|Dill IgG|"
^XMB(3.9,343,2,1871,0)="1871|85485.0000|Discase IgE|"
^XMB(3.9,343,2,1872,0)="1872|85486.0000|Dog Dander IgG|"
^XMB(3.9,343,2,1873,0)="1873|85487.0000|Dog Epith IgG|"
^XMB(3.9,343,2,1874,0)="1874|85488.0000|Dog Fennel IgE|"
^XMB(3.9,343,2,1875,0)="1875|85489.0000|Dogwood Poln IgE|"
^XMB(3.9,343,2,1876,0)="1876|85491.0000|Duck Feather IgG|"
^XMB(3.9,343,2,1877,0)="1877|85492.0000|Whole Egg IgE|"
^XMB(3.9,343,2,1878,0)="1878|85493.0000|Whole Egg IgG|"
^XMB(3.9,343,2,1879,0)="1879|85494.0000|Egg Yolk IgG|"
^XMB(3.9,343,2,1880,0)="1880|85495.0000|Eggplant IgE|"
^XMB(3.9,343,2,1881,0)="1881|85496.0000|Eggplant IgG|"
^XMB(3.9,343,2,1882,0)="1882|85497.0000|Elderberry IgG|"
^XMB(3.9,343,2,1883,0)="1883|85498.0000|Chinese Elm IgE|"
^XMB(3.9,343,2,1884,0)="1884|85499.0000|Endive IgE|"
^XMB(3.9,343,2,1885,0)="1885|85501.0000|Endive IgG|"
^XMB(3.9,343,2,1886,0)="1886|85502.0000|Epidermophyton floccosum IgE|"
^XMB(3.9,343,2,1887,0)="1887|85503.0000|Est IgE|"
^XMB(3.9,343,2,1888,0)="1888|85504.0000|Weeping Fig IgE|"
^XMB(3.9,343,2,1889,0)="1889|85505.0000|Douglas Fir IgE|"
^XMB(3.9,343,2,1890,0)="1890|85506.0000|Fish IgE|"
^XMB(3.9,343,2,1891,0)="1891|85507.0000|Flax IgE|"
^XMB(3.9,343,2,1892,0)="1892|85508.0000|Flea IgE|"
^XMB(3.9,343,2,1893,0)="1893|85509.0000|Flea IgG|"
^XMB(3.9,343,2,1894,0)="1894|85510.0000|Flounder IgE|"
^XMB(3.9,343,2,1895,0)="1895|85511.0000|Flounder IgG|"
^XMB(3.9,343,2,1896,0)="1896|85512.0000|Deer Fly IgE|"
^XMB(3.9,343,2,1897,0)="1897|85513.0000|Horse Fly IgG|"
^XMB(3.9,343,2,1898,0)="1898|85514.0000|Fruit IgE|"
^XMB(3.9,343,2,1899,0)="1899|85515.0000|Fusarium culmorum IgG|"
^XMB(3.9,343,2,1900,0)="1900|85516.0000|Fusarium moniliforme IgG|"
^XMB(3.9,343,2,1901,0)="1901|85517.0000|Fusarium oxysporum IgE|"
^XMB(3.9,343,2,1902,0)="1902|85518.0000|Fusarium solani IgE|"
^XMB(3.9,343,2,1903,0)="1903|85519.0000|Fusarium solani IgG|"
^XMB(3.9,343,2,1904,0)="1904|85521.0000|Garlic IgG|"
^XMB(3.9,343,2,1905,0)="1905|85522.0000|Gelatin IgE|"
^XMB(3.9,343,2,1906,0)="1906|85523.0000|Geotrichum candidum IgE|"
^XMB(3.9,343,2,1907,0)="1907|85524.0000|Gerbil Epith IgE|"
^XMB(3.9,343,2,1908,0)="1908|85525.0000|Ginger IgE|"
^XMB(3.9,343,2,1909,0)="1909|85526.0000|Ginger IgG|"
^XMB(3.9,343,2,1910,0)="1910|85527.0000|Gladiolus IgE|"
^XMB(3.9,343,2,1911,0)="1911|85528.0000|Gluten IgG|"
^XMB(3.9,343,2,1912,0)="1912|85529.0000|Gnat Whole Body IgE|"
^XMB(3.9,343,2,1913,0)="1913|85530.0000|Goat Milk IgE|"
^XMB(3.9,343,2,1914,0)="1914|85531.0000|Goat Milk IgG|"
^XMB(3.9,343,2,1915,0)="1915|85533.0000|Goldenrod IgG|"
^XMB(3.9,343,2,1916,0)="1916|85534.0000|Goose Feather IgG|"
^XMB(3.9,343,2,1917,0)="1917|85535.0000|Grain IgE|"
^XMB(3.9,343,2,1918,0)="1918|85536.0000|Grain Dust IgE|"
^XMB(3.9,343,2,1919,0)="1919|85537.0000|Grain Mill Dust IgE|"
^XMB(3.9,343,2,1920,0)="1920|85538.0000|Grape IgG|"
^XMB(3.9,343,2,1921,0)="1921|85539.0000|Grapefruit IgG|"
^XMB(3.9,343,2,1922,0)="1922|85540.0000|Bermuda grass IgG|"
^XMB(3.9,343,2,1923,0)="1923|85541.0000|Annual blue grass IgE|"
^XMB(3.9,343,2,1924,0)="1924|85542.0000|Can blue grass IgE|"
^XMB(3.9,343,2,1925,0)="1925|85543.0000|Gramma grass IgE|"
^XMB(3.9,343,2,1926,0)="1926|85544.0000|Koehlers grass IgE|"
^XMB(3.9,343,2,1927,0)="1927|85545.0000|Meadow Fescue IgG|"
^XMB(3.9,343,2,1928,0)="1928|85546.0000|Cocksfoot IgG|"
^XMB(3.9,343,2,1929,0)="1929|85547.0000|Quack grass IgE|"
^XMB(3.9,343,2,1930,0)="1930|85548.0000|Per rye grass IgE|"
^XMB(3.9,343,2,1931,0)="1931|85549.0000|Per rye grass IgG|"
^XMB(3.9,343,2,1932,0)="1932|85550.0000|Sorghum grass IgE|"
^XMB(3.9,343,2,1933,0)="1933|85551.0000|Sudan grass IgE|"
^XMB(3.9,343,2,1934,0)="1934|85552.0000|Tall oak grass IgE|"
^XMB(3.9,343,2,1935,0)="1935|85553.0000|Wheat grass IgG|"
^XMB(3.9,343,2,1936,0)="1936|85554.0000|Grayfish IgE|"
^XMB(3.9,343,2,1937,0)="1937|85556.0000|Greasewood IgE|"
^XMB(3.9,343,2,1938,0)="1938|85557.0000|Gum Arabic IgE|"
^XMB(3.9,343,2,1939,0)="1939|85558.0000|Hackberry tree IgE|"
^XMB(3.9,343,2,1940,0)="1940|85559.0000|Haddock IgE|"
^XMB(3.9,343,2,1941,0)="1941|85561.0000|Haddock IgG|"
^XMB(3.9,343,2,1942,0)="1942|85562.0000|Halibut IgG|"
^XMB(3.9,343,2,1943,0)="1943|85563.0000|Hay IgE|"
^XMB(3.9,343,2,1944,0)="1944|85564.0000|Hazelnut IgG|"
^XMB(3.9,343,2,1945,0)="1945|85565.0000|Helminthosporium interseminatum IgE|"
^XMB(3.9,343,2,1946,0)="1946|85566.0000|Helminthosporium maydis IgE|"
^XMB(3.9,343,2,1947,0)="1947|85567.0000|Helminthosporium IgE|"
^XMB(3.9,343,2,1948,0)="1948|85568.0000|Helminthosporium IgG|"
^XMB(3.9,343,2,1949,0)="1949|85575.0000|East Hemlock IgE|"
^XMB(3.9,343,2,1950,0)="1950|85578.0000|Hemp IgE|"
^XMB(3.9,343,2,1951,0)="1951|85579.0000|Hemp Fiber IgE|"
^XMB(3.9,343,2,1952,0)="1952|85580.0000|Water Hemp IgE|"
^XMB(3.9,343,2,1953,0)="1953|85583.0000|Herring IgG|"
^XMB(3.9,343,2,1954,0)="1954|85584.0000|Shagbark Hickory IgE|"
^XMB(3.9,343,2,1955,0)="1955|85585.0000|Shellbark Hickory IgE|"
^XMB(3.9,343,2,1956,0)="1956|85589.0000|White Hickory IgE|"
^XMB(3.9,343,2,1957,0)="1957|85591.0000|Swine Epith IgG|"
^XMB(3.9,343,2,1958,0)="1958|85592.0000|Honey IgG|"
^XMB(3.9,343,2,1959,0)="1959|85593.0000|Honey IgE|"
^XMB(3.9,343,2,1960,0)="1960|85594.0000|Honeysuckle IgE|"
^XMB(3.9,343,2,1961,0)="1961|85597.0000|Hop IgG|"
^XMB(3.9,343,2,1962,0)="1962|85598.0000|Cladosporium sphaerospermum IgE|"
^XMB(3.9,343,2,1963,0)="1963|85599.0000|Hornbeam IgE|"
^XMB(3.9,343,2,1964,0)="1964|85601.0000|Whitefaced Hornet IgG|"
^XMB(3.9,343,2,1965,0)="1965|85602.0000|Horse Epith IgE|"
^XMB(3.9,343,2,1966,0)="1966|85603.0000|Horseradish IgE|"
^XMB(3.9,343,2,1967,0)="1967|85604.0000|House Dust AP IgE|"
^XMB(3.9,343,2,1968,0)="1968|85605.0000|House Dust AP IgG|"
^XMB(3.9,343,2,1969,0)="1969|85606.0000|House Dust Greer IgG|"
^XMB(3.9,343,2,1970,0)="1970|85607.0000|House Dust HS IgE|"
^XMB(3.9,343,2,1971,0)="1971|85608.0000|House Dust HS IgG|"
^XMB(3.9,343,2,1972,0)="1972|85609.0000|Hymenopterase IgE|"
^XMB(3.9,343,2,1973,0)="1973|85611.0000|Iodinebush IgE|"
^XMB(3.9,343,2,1974,0)="1974|85612.0000|Isocyanate HDI IgE|"
^XMB(3.9,343,2,1975,0)="1975|85614.0000|Isocyanate MDI IgE|"
^XMB(3.9,343,2,1976,0)="1976|85616.0000|Isocyanate TDI IgE|"
^XMB(3.9,343,2,1977,0)="1977|85617.0000|Juniper IgE|"
^XMB(3.9,343,2,1978,0)="1978|85618.0000|Pinchot Juniper IgE|"
^XMB(3.9,343,2,1979,0)="1979|85619.0000|West Juniper IgE|"
^XMB(3.9,343,2,1980,0)="1980|85631.0000|Jute IgE|"
^XMB(3.9,343,2,1981,0)="1981|85633.0000|Kapok IgE|"
^XMB(3.9,343,2,1982,0)="1982|85635.0000|Karaya Gum IgE|"
^XMB(3.9,343,2,1983,0)="1983|85673.0000|Kiwi IgG|"
^XMB(3.9,343,2,1984,0)="1984|85677.0000|Firebush IgA|"
^XMB(3.9,343,2,1985,0)="1985|85697.0000|Lactalb IgG|"
^XMB(3.9,343,2,1986,0)="1986|85698.0000|A-Lactalb IgE|"
^XMB(3.9,343,2,1987,0)="1987|85699.0000|Lactoglob IgG|"
^XMB(3.9,343,2,1988,0)="1988|85701.0000|Lamb IgG|"
^XMB(3.9,343,2,1989,0)="1989|85702.0000|Lemon IgG|"
^XMB(3.9,343,2,1990,0)="1990|85703.0000|Lentils IgE|"
^XMB(3.9,343,2,1991,0)="1991|85704.0000|Lentils IgG|"
^XMB(3.9,343,2,1992,0)="1992|85705.0000|Lettuce IgG|"
^XMB(3.9,343,2,1993,0)="1993|85706.0000|Licorice IgE|"
^XMB(3.9,343,2,1994,0)="1994|85707.0000|Easter lily IgE|"
^XMB(3.9,343,2,1995,0)="1995|85708.0000|Lime IgE|"
^XMB(3.9,343,2,1996,0)="1996|85709.0000|Lime IgG|"
^XMB(3.9,343,2,1997,0)="1997|85710.0000|Linen IgE|"
^XMB(3.9,343,2,1998,0)="1998|85711.0000|Lipolase IgE|"
^XMB(3.9,343,2,1999,0)="1999|85712.0000|Liver IgE|"
^XMB(3.9,343,2,2000,0)="2000|85713.0000|Liver Calf IgE|"
^XMB(3.9,343,2,2001,0)="2001|85714.0000|Llama Fur IgE|"
^XMB(3.9,343,2,2002,0)="2002|85715.0000|Lobster IgG|"
^XMB(3.9,343,2,2003,0)="2003|85716.0000|Locust Tree IgE|"
^XMB(3.9,343,2,2004,0)="2004|85717.0000|Black Locust IgE|"
^XMB(3.9,343,2,2005,0)="2005|85718.0000|Mackerel IgE|"
^XMB(3.9,343,2,2006,0)="2006|85719.0000|Malt IgG|"
^XMB(3.9,343,2,2007,0)="2007|85720.0000|Mango Poln IgE|"
^XMB(3.9,343,2,2008,0)="2008|85721.0000|Coastal Maple IgE|"
^XMB(3.9,343,2,2009,0)="2009|85722.0000|Red Maple IgE|"
^XMB(3.9,343,2,2010,0)="2010|85723.0000|Red+Silver Maple IgE|"
^XMB(3.9,343,2,2011,0)="2011|85724.0000|Sugar Maple IgE|"
^XMB(3.9,343,2,2012,0)="2012|85726.0000|Maple Syrup IgE|"
^XMB(3.9,343,2,2013,0)="2013|85727.0000|Burweed marshelder IgE|"
^XMB(3.9,343,2,2014,0)="2014|85728.0000|Burweed marshelder IgG|"
^XMB(3.9,343,2,2015,0)="2015|85729.0000|Mattress Dust IgE|"
^XMB(3.9,343,2,2016,0)="2016|85732.0000|Mayfly IgE|"
^XMB(3.9,343,2,2017,0)="2017|85733.0000|Mexican Firebush IgE|"
^XMB(3.9,343,2,2018,0)="2018|85734.0000|MIA IgE|"
^XMB(3.9,343,2,2019,0)="2019|85735.0000|Milk Evaporated IgE|"
^XMB(3.9,343,2,2020,0)="2020|85736.0000|Common Millet IgG|"
^XMB(3.9,343,2,2021,0)="2021|85737.0000|Mite Dust IgE|"
^XMB(3.9,343,2,2022,0)="2022|85738.0000|Cheese Mold IgG|"
^XMB(3.9,343,2,2023,0)="2023|85739.0000|Chrysonilia sitophila IgE|"
^XMB(3.9,343,2,2024,0)="2024|85740.0000|Monkey Epith IgE|"
^XMB(3.9,343,2,2025,0)="2025|85741.0000|Spanish Moss IgE|"
^XMB(3.9,343,2,2026,0)="2026|85742.0000|Moth IgE|"
^XMB(3.9,343,2,2027,0)="2027|85743.0000|Mouse Hair IgE|"
^XMB(3.9,343,2,2028,0)="2028|85744.0000|Mouse Multi IgE|"
^XMB(3.9,343,2,2029,0)="2029|85745.0000|Mucor plumbeus IgE|"
^XMB(3.9,343,2,2030,0)="2030|85746.0000|Mucor racemosus IgG|"
^XMB(3.9,343,2,2031,0)="2031|85747.0000|Mucor IgG|"
^XMB(3.9,343,2,2032,0)="2032|85748.0000|Calif Mugwort IgE|"
^XMB(3.9,343,2,2033,0)="2033|85749.0000|White mulberry IgG|"
^XMB(3.9,343,2,2034,0)="2034|85750.0000|Red mulberry IgE|"
^XMB(3.9,343,2,2035,0)="2035|85751.0000|Mushroom IgG|"
^XMB(3.9,343,2,2036,0)="2036|85752.0000|Oyster Mushroom IgE|"
^XMB(3.9,343,2,2037,0)="2037|85753.0000|Blue mussel IgG|"
^XMB(3.9,343,2,2038,0)="2038|85754.0000|Mustard IgG|"
^XMB(3.9,343,2,2039,0)="2039|85755.0000|Mycogone IgE|"
^XMB(3.9,343,2,2040,0)="2040|85756.0000|Nectarine IgE|"
^XMB(3.9,343,2,2041,0)="2041|85757.0000|Nectarine IgG|"
^XMB(3.9,343,2,2042,0)="2042|85758.0000|Nigrospora orzae IgE|"
^XMB(3.9,343,2,2043,0)="2043|85759.0000|Nigrospora sphaerica IgE|"
^XMB(3.9,343,2,2044,0)="2044|85760.0000|Nutmeg IgG|"
^XMB(3.9,343,2,2045,0)="2045|85761.0000|Black Oak IgE|"
^XMB(3.9,343,2,2046,0)="2046|85762.0000|Calif Black Oak IgE|"
^XMB(3.9,343,2,2047,0)="2047|85763.0000|Gamble Oak IgE|"
^XMB(3.9,343,2,2048,0)="2048|85764.0000|Jerusalem oak IgE|"
^XMB(3.9,343,2,2049,0)="2049|85765.0000|Calif Live Oak IgE|"
^XMB(3.9,343,2,2050,0)="2050|85766.0000|Interior Live Oak IgE|"
^XMB(3.9,343,2,2051,0)="2051|85767.0000|Red Oak IgE|"
^XMB(3.9,343,2,2052,0)="2052|85768.0000|Valley Oak IgE|"
^XMB(3.9,343,2,2053,0)="2053|85769.0000|White Oak IgG|"
^XMB(3.9,343,2,2054,0)="2054|85770.0000|Oat IgG|"
^XMB(3.9,343,2,2055,0)="2055|85771.0000|Wild Oat IgE|"
^XMB(3.9,343,2,2056,0)="2056|85772.0000|Oidiodendrum IgE|"
^XMB(3.9,343,2,2057,0)="2057|85773.0000|Okra IgE|"
^XMB(3.9,343,2,2058,0)="2058|85774.0000|Olive IgE|"
^XMB(3.9,343,2,2059,0)="2059|85775.0000|Olive IgG|"
^XMB(3.9,343,2,2060,0)="2060|85776.0000|Green Olive IgE|"
^XMB(3.9,343,2,2061,0)="2061|85777.0000|Onion IgG|"
^XMB(3.9,343,2,2062,0)="2062|85778.0000|Orange Tree IgE|"
^XMB(3.9,343,2,2063,0)="2063|85779.0000|Oregano IgE|"
^XMB(3.9,343,2,2064,0)="2064|85780.0000|Oregano IgG|"
^XMB(3.9,343,2,2065,0)="2065|85781.0000|Orris root IgE|"
^XMB(3.9,343,2,2066,0)="2066|85782.0000|Ovalb IgE|"
^XMB(3.9,343,2,2067,0)="2067|85783.0000|Ovomucoid IgE|"
^XMB(3.9,343,2,2068,0)="2068|85784.0000|Oyster IgE|"
^XMB(3.9,343,2,2069,0)="2069|85785.0000|Oyster IgG|"
^XMB(3.9,343,2,2070,0)="2070|85786.0000|Paper IgE|"
^XMB(3.9,343,2,2071,0)="2071|85787.0000|Paprika IgE|"
^XMB(3.9,343,2,2072,0)="2072|85788.0000|Parakeet Drop IgE|"
^XMB(3.9,343,2,2073,0)="2073|85789.0000|Parakeet Feather IgE|"
^XMB(3.9,343,2,2074,0)="2074|85790.0000|Parakeet|"
^XMB(3.9,343,2,2075,0)="2075|85791.0000|Parrot|"
^XMB(3.9,343,2,2076,0)="2076|85792.0000|Parsley IgG|"
^XMB(3.9,343,2,2077,0)="2077|85793.0000|Parsnip IgE|"
^XMB(3.9,343,2,2078,0)="2078|85794.0000|Pea IgG|"
^XMB(3.9,343,2,2079,0)="2079|85795.0000|Black-eye Bean IgE|"
^XMB(3.9,343,2,2080,0)="2080|85796.0000|Black-eye Bean IgG|"
^XMB(3.9,343,2,2081,0)="2081|85797.0000|Chick Pea IgE|"
^XMB(3.9,343,2,2082,0)="2082|85798.0000|Peach IgG|"
^XMB(3.9,343,2,2083,0)="2083|85799.0000|Pear IgG|"
^XMB(3.9,343,2,2084,0)="2084|85800.0000|Pear Poln IgE|"
^XMB(3.9,343,2,2085,0)="2085|85801.0000|Pecan/Hick Nut IgG|"
^XMB(3.9,343,2,2086,0)="2086|85802.0000|Penicillium|"
^XMB(3.9,343,2,2087,0)="2087|85803.0000|Penicillium notatum IgG|"
^XMB(3.9,343,2,2088,0)="2088|85804.0000|Bell Pepper IgE|"
^XMB(3.9,343,2,2089,0)="2089|85805.0000|Bell Pepper IgG|"
^XMB(3.9,343,2,2090,0)="2090|85806.0000|Black Pepper IgG|"
^XMB(3.9,343,2,2091,0)="2091|85807.0000|Cayenne IgG|"
^XMB(3.9,343,2,2092,0)="2092|85808.0000|Chili Pepper IgE|"
^XMB(3.9,343,2,2093,0)="2093|85809.0000|Chili Pepper IgG|"
^XMB(3.9,343,2,2094,0)="2094|85810.0000|Green Pepper IgG|"
^XMB(3.9,343,2,2095,0)="2095|85811.0000|White Pepper IgE|"
^XMB(3.9,343,2,2096,0)="2096|85812.0000|White Pepper IgG|"
^XMB(3.9,343,2,2097,0)="2097|85813.0000|Perch IgG|"
^XMB(3.9,343,2,2098,0)="2098|85814.0000|Phadiotop IgE|"
^XMB(3.9,343,2,2099,0)="2099|85815.0000|Phospholipase IgE|"
^XMB(3.9,343,2,2100,0)="2100|85816.0000|PAN IgE|"
^XMB(3.9,343,2,2101,0)="2101|85817.0000|Pickleweed IgE|"
^XMB(3.9,343,2,2102,0)="2102|85818.0000|Pigeon Drop IgG|"
^XMB(3.9,343,2,2103,0)="2103|85819.0000|Common Pigweed IgE|"
^XMB(3.9,343,2,2104,0)="2104|85820.0000|Pigweed IgG|"
^XMB(3.9,343,2,2105,0)="2105|85821.0000|Loblolly Pine IgE|"
^XMB(3.9,343,2,2106,0)="2106|85822.0000|Monterey Pine IgE|"
^XMB(3.9,343,2,2107,0)="2107|85823.0000|Pondorosa Pine IgE|"
^XMB(3.9,343,2,2108,0)="2108|85824.0000|West White Pine IgE|"
^XMB(3.9,343,2,2109,0)="2109|85825.0000|Pineapple IgG|"
^XMB(3.9,343,2,2110,0)="2110|85826.0000|Pistachio IgE|"
^XMB(3.9,343,2,2111,0)="2111|85827.0000|Plum IgG|"
^XMB(3.9,343,2,2112,0)="2112|85828.0000|Plum Poln IgE|"
^XMB(3.9,343,2,2113,0)="2113|85829.0000|Poison Ivy IgE|"
^XMB(3.9,343,2,2114,0)="2114|85830.0000|Poppy Seed IgE|"
^XMB(3.9,343,2,2115,0)="2115|85831.0000|Potato IgG|"
^XMB(3.9,343,2,2116,0)="2116|85832.0000|Sweet potato IgE|"
^XMB(3.9,343,2,2117,0)="2117|85833.0000|Sweet potato IgG|"
^XMB(3.9,343,2,2118,0)="2118|85834.0000|Povertyweed IgE|"
^XMB(3.9,343,2,2119,0)="2119|85835.0000|Privet IgE|"
^XMB(3.9,343,2,2120,0)="2120|85836.0000|Privet IgG|"
^XMB(3.9,343,2,2121,0)="2121|85837.0000|Prune IgE|"
^XMB(3.9,343,2,2122,0)="2122|85838.0000|Psyllium seed IgE|"
^XMB(3.9,343,2,2123,0)="2123|85839.0000|Pullaria IgE|"
^XMB(3.9,343,2,2124,0)="2124|85840.0000|Pullaria IgG|"
^XMB(3.9,343,2,2125,0)="2125|85841.0000|Pyrethrum IgE|"
^XMB(3.9,343,2,2126,0)="2126|85842.0000|Rabbit Bush IgE|"
^XMB(3.9,343,2,2127,0)="2127|85843.0000|Rabbit Meat IgE|"
^XMB(3.9,343,2,2128,0)="2128|85844.0000|Radish IgE|"
^XMB(3.9,343,2,2129,0)="2129|85845.0000|Radish IgG|"
^XMB(3.9,343,2,2130,0)="2130|85846.0000|Canyon Ragweed IgE|"
^XMB(3.9,343,2,2131,0)="2131|85847.0000|Common Ragweed IgG|"
^XMB(3.9,343,2,2132,0)="2132|85848.0000|Desert Ragweed IgE|"
^XMB(3.9,343,2,2133,0)="2133|85849.0000|Short Ragweed IgE|"
^XMB(3.9,343,2,2134,0)="2134|85850.0000|Short Ragweed IgG|"
^XMB(3.9,343,2,2135,0)="2135|85851.0000|Short+Giant Ragweed IgG|"
^XMB(3.9,343,2,2136,0)="2136|85852.0000|Slender Ragweed IgE|"
^XMB(3.9,343,2,2137,0)="2137|85853.0000|Southern Ragweed IgE|"
^XMB(3.9,343,2,2138,0)="2138|85854.0000|Raspberry IgE|"
^XMB(3.9,343,2,2139,0)="2139|85855.0000|Raspberry IgG|"
^XMB(3.9,343,2,2140,0)="2140|85856.0000|Rat Hair IgE|"
^XMB(3.9,343,2,2141,0)="2141|85857.0000|Rat Muliialgro IgE|"
^XMB(3.9,343,2,2142,0)="2142|85858.0000|Red Snapper IgE|"
^XMB(3.9,343,2,2143,0)="2143|85859.0000|Red Snapper IgG|"
^XMB(3.9,343,2,2144,0)="2144|85860.0000|Redwood Dust IgE|"
^XMB(3.9,343,2,2145,0)="2145|85861.0000|Redwood IgE|"
^XMB(3.9,343,2,2146,0)="2146|85862.0000|Rhodatorula IgE|"
^XMB(3.9,343,2,2147,0)="2147|85863.0000|Rhubarb IgE|"
^XMB(3.9,343,2,2148,0)="2148|85864.0000|Rice IgG|"
^XMB(3.9,343,2,2149,0)="2149|85865.0000|Braz Rubber Tree IgE|"
^XMB(3.9,343,2,2150,0)="2150|85866.0000|Saltwort IgG|"
^XMB(3.9,343,2,2151,0)="2151|85867.0000|Wheat Stem Rust IgE|"
^XMB(3.9,343,2,2152,0)="2152|85868.0000|Rye IgE|"
^XMB(3.9,343,2,2153,0)="2153|85869.0000|Rye IgG|"
^XMB(3.9,343,2,2154,0)="2154|85870.0000|Safflower IgE|"
^XMB(3.9,343,2,2155,0)="2155|85871.0000|Safflower IgG|"
^XMB(3.9,343,2,2156,0)="2156|85872.0000|Sage IgE|"
^XMB(3.9,343,2,2157,0)="2157|85873.0000|Sage IgG|"
^XMB(3.9,343,2,2158,0)="2158|85874.0000|Sagbrsh IgE|"
^XMB(3.9,343,2,2159,0)="2159|85875.0000|Sagbrsh IgG|"
^XMB(3.9,343,2,2160,0)="2160|85876.0000|Calif Sagbrsh IgE|"
^XMB(3.9,343,2,2161,0)="2161|85877.0000|Salmon IgG|"
^XMB(3.9,343,2,2162,0)="2162|85878.0000|Saltbush IgE|"
^XMB(3.9,343,2,2163,0)="2163|85879.0000|Annual Saltbush IgE|"
^XMB(3.9,343,2,2164,0)="2164|85880.0000|Sardine IgG|"
^XMB(3.9,343,2,2165,0)="2165|85881.0000|Savinase IgE|"
^XMB(3.9,343,2,2166,0)="2166|85882.0000|Allscale IgE|"
^XMB(3.9,343,2,2167,0)="2167|85883.0000|Scallop IgE|"
^XMB(3.9,343,2,2168,0)="2168|85884.0000|Scallop IgG|"
^XMB(3.9,343,2,2169,0)="2169|85885.0000|Schistosoma IgE|"
^XMB(3.9,343,2,2170,0)="2170|85886.0000|Scorpion IgE|"
^XMB(3.9,343,2,2171,0)="2171|85887.0000|Scotch broom IgE|"
^XMB(3.9,343,2,2172,0)="2172|85888.0000|Sesame Seed IgG|"
^XMB(3.9,343,2,2173,0)="2173|85889.0000|Shrimp IgG|"
^XMB(3.9,343,2,2174,0)="2174|85890.0000|Smelt IgE|"
^XMB(3.9,343,2,2175,0)="2175|85891.0000|Corn Smut IgE|"
^XMB(3.9,343,2,2176,0)="2176|85892.0000|Bermuda grass Smut IgE|"
^XMB(3.9,343,2,2177,0)="2177|85893.0000|Johnson grass Smut IgE|"
^XMB(3.9,343,2,2178,0)="2178|85894.0000|Johnson grass Smut IgG|"
^XMB(3.9,343,2,2179,0)="2179|85895.0000|Oat Smut IgE|"
^XMB(3.9,343,2,2180,0)="2180|85896.0000|Wheat Smut IgE|"
^XMB(3.9,343,2,2181,0)="2181|85897.0000|Sole IgE|"
^XMB(3.9,343,2,2182,0)="2182|85898.0000|Sole IgG|"
^XMB(3.9,343,2,2183,0)="2183|85899.0000|Spinach IgG|"
^XMB(3.9,343,2,2184,0)="2184|85900.0000|Spondylocladium atrovirens IgE|"
^XMB(3.9,343,2,2185,0)="2185|85901.0000|Squash IgE|"
^XMB(3.9,343,2,2186,0)="2186|85902.0000|Summer Squash IgE|"
^XMB(3.9,343,2,2187,0)="2187|85903.0000|Summer Squash IgG|"
^XMB(3.9,343,2,2188,0)="2188|85904.0000|Yellow Squash IgE|"
^XMB(3.9,343,2,2189,0)="2189|85905.0000|Yellow Squash IgG|"
^XMB(3.9,343,2,2190,0)="2190|85906.0000|Zucchini IgE|"
^XMB(3.9,343,2,2191,0)="2191|85907.0000|Staphylococcus aureus IgE|"
^XMB(3.9,343,2,2192,0)="2192|85908.0000|Stemphylium solani IgE|"
^XMB(3.9,343,2,2193,0)="2193|85909.0000|Strawberry IgG|"
^XMB(3.9,343,2,2194,0)="2194|85910.0000|Sugar Cane IgE|"
^XMB(3.9,343,2,2195,0)="2195|85911.0000|Sugar Cane IgG|"
^XMB(3.9,343,2,2196,0)="2196|85912.0000|Sunflower Poln IgE|"
^XMB(3.9,343,2,2197,0)="2197|85913.0000|Swordfish IgE|"
^XMB(3.9,343,2,2198,0)="2198|85914.0000|Swordfish IgG|"
^XMB(3.9,343,2,2199,0)="2199|85915.0000|Mandarin IgE|"
^XMB(3.9,343,2,2200,0)="2200|85916.0000|Mandarin IgG|"
^XMB(3.9,343,2,2201,0)="2201|85917.0000|Tapioca IgE|"
^XMB(3.9,343,2,2202,0)="2202|85918.0000|Tapioca IgG|"
^XMB(3.9,343,2,2203,0)="2203|85919.0000|Tea IgG|"
^XMB(3.9,343,2,2204,0)="2204|85920.0000|Termamyl IgE|"
^XMB(3.9,343,2,2205,0)="2205|85921.0000|Thyme IgE|"
^XMB(3.9,343,2,2206,0)="2206|85922.0000|Tobacco IgG|"
^XMB(3.9,343,2,2207,0)="2207|85923.0000|Cigarette Tobacco IgE|"
^XMB(3.9,343,2,2208,0)="2208|85924.0000|Tragacanth IgE|"
^XMB(3.9,343,2,2209,0)="2209|85925.0000|Tree of heaven IgE|"
^XMB(3.9,343,2,2210,0)="2210|85926.0000|Trichophyton IgE|"
^XMB(3.9,343,2,2211,0)="2211|85927.0000|TMA IgE|"
^XMB(3.9,343,2,2212,0)="2212|85928.0000|Trout IgG|"
^XMB(3.9,343,2,2213,0)="2213|85929.0000|Tryptase IgE|"
^XMB(3.9,343,2,2214,0)="2214|85930.0000|Tuna IgG|"
^XMB(3.9,343,2,2215,0)="2215|85931.0000|Turkey IgG|"
^XMB(3.9,343,2,2216,0)="2216|85932.0000|Turkey Feather IgE|"
^XMB(3.9,343,2,2217,0)="2217|85933.0000|Turnip IgE|"
^XMB(3.9,343,2,2218,0)="2218|85934.0000|Upholstery Dust IgE|"
^XMB(3.9,343,2,2219,0)="2219|85935.0000|Vanilla IgE|"
^XMB(3.9,343,2,2220,0)="2220|85936.0000|Veal IgE|"
^XMB(3.9,343,2,2221,0)="2221|85937.0000|Venison IgE|"
^XMB(3.9,343,2,2222,0)="2222|85938.0000|Pellitory IgE|"
^XMB(3.9,343,2,2223,0)="2223|85939.0000|Walleye Pike IgE|"
^XMB(3.9,343,2,2224,0)="2224|85940.0000|Black Walnut IgE|"
^XMB(3.9,343,2,2225,0)="2225|85941.0000|Black West Walnut IgE|"
^XMB(3.9,343,2,2226,0)="2226|85942.0000|English Walnut IgE|"
^XMB(3.9,343,2,2227,0)="2227|85943.0000|Eng Walnut Poln IgE|"
^XMB(3.9,343,2,2228,0)="2228|85944.0000|Walnut IgG|"
^XMB(3.9,343,2,2229,0)="2229|85945.0000|Yellow Jacket IgG|"
^XMB(3.9,343,2,2230,0)="2230|85946.0000|Water Chestnut IgE|"
^XMB(3.9,343,2,2231,0)="2231|85947.0000|Watermelon IgE|"
^XMB(3.9,343,2,2232,0)="2232|85948.0000|Watermelon IgG|"
^XMB(3.9,343,2,2233,0)="2233|85949.0000|Cow Whey IgE|"
^XMB(3.9,343,2,2234,0)="2234|85950.0000|Whitefish IgE|"
^XMB(3.9,343,2,2235,0)="2235|85951.0000|Whitefish IgG|"
^XMB(3.9,343,2,2236,0)="2236|85952.0000|Wild Rice IgE|"
^XMB(3.9,343,2,2237,0)="2237|85953.0000|Pussy Willow IgE|"
^XMB(3.9,343,2,2238,0)="2238|85954.0000|Wingscale IgE|"
^XMB(3.9,343,2,2239,0)="2239|85955.0000|Winterfat IgE|"
^XMB(3.9,343,2,2240,0)="2240|85956.0000|Wormwood IgG|"
^XMB(3.9,343,2,2241,0)="2241|85957.0000|Yam IgE|"
^XMB(3.9,343,2,2242,0)="2242|85958.0000|Bakers Yeast IgE|"
^XMB(3.9,343,2,2243,0)="2243|85959.0000|Yew IgE|"
^XMB(3.9,343,2,2244,0)="2244|85960.0000|Yogurt IgE|"
^XMB(3.9,343,2,2245,0)="2245|85961.0000|Yogurt IgG|"
^XMB(3.9,343,2,2246,0)="2246|85962.0000|Acanthamoeba Ab|"
^XMB(3.9,343,2,2247,0)="2247|85963.0000|Actinomyces Ab|"
^XMB(3.9,343,2,2248,0)="2248|85964.0000|HAdV Ab|"
^XMB(3.9,343,2,2249,0)="2249|85965.0000|HAstV RNA|"
^XMB(3.9,343,2,2250,0)="2250|85966.0000|Babesia Ab|"
^XMB(3.9,343,2,2251,0)="2251|85967.0000|Chlamydophila pneum rRNA|"
^XMB(3.9,343,2,2252,0)="2252|85968.0000|Chlamydophila psittaci Ab|"
^XMB(3.9,343,2,2253,0)="2253|85969.0000|Chlamydia trach Ab|"
^XMB(3.9,343,2,2254,0)="2254|85970.0000|Coccidioides immitis IgG|"
^XMB(3.9,343,2,2255,0)="2255|85971.0000|Coccidioides immitis IgM|"
^XMB(3.9,343,2,2256,0)="2256|85972.0000|Coxiella burnet Ab|"
^XMB(3.9,343,2,2257,0)="2257|85973.0000|Coxiella burnet Ph1 IgG|"
^XMB(3.9,343,2,2258,0)="2258|85974.0000|Coxiella burnet Ph2 IgG|"
^XMB(3.9,343,2,2259,0)="2259|85975.0000|Coxiella burnet Ph1 IgM|"
^XMB(3.9,343,2,2260,0)="2260|85976.0000|Coxiella burnet Ph2 IgM|"
^XMB(3.9,343,2,2261,0)="2261|85977.0000|CV A16 Ab|"
^XMB(3.9,343,2,2262,0)="2262|85978.0000|CV A7 Ab|"
^XMB(3.9,343,2,2263,0)="2263|85979.0000|CV A9 Ab|"
^XMB(3.9,343,2,2264,0)="2264|85980.0000|CV B1 Ab|"
^XMB(3.9,343,2,2265,0)="2265|85981.0000|CV B2 Ab|"
^XMB(3.9,343,2,2266,0)="2266|85982.0000|CV B3 Ab|"
^XMB(3.9,343,2,2267,0)="2267|85983.0000|CV B4 Ab|"
^XMB(3.9,343,2,2268,0)="2268|85984.0000|CV B5 Ab|"
^XMB(3.9,343,2,2269,0)="2269|85985.0000|CV B6 Ab|"
^XMB(3.9,343,2,2270,0)="2270|85986.0000|Cryptococcus neoform Ab|"
^XMB(3.9,343,2,2271,0)="2271|85987.0000|Cysticerc IgA|"
^XMB(3.9,343,2,2272,0)="2272|85988.0000|Cysticerc IgM|"
^XMB(3.9,343,2,2273,0)="2273|85989.0000|DENV1 Ab|"
^XMB(3.9,343,2,2274,0)="2274|85990.0000|DENV1+2+3+4 RNA|"
^XMB(3.9,343,2,2275,0)="2275|85991.0000|DENV2 Ab|"
^XMB(3.9,343,2,2276,0)="2276|85992.0000|DENV3 Ab|"
^XMB(3.9,343,2,2277,0)="2277|85993.0000|DENV4 Ab|"
^XMB(3.9,343,2,2278,0)="2278|85994.0000|EEEV IgG|"
^XMB(3.9,343,2,2279,0)="2279|85995.0000|EEEV IgM|"
^XMB(3.9,343,2,2280,0)="2280|85996.0000|EBOV Ab Titer|"
^XMB(3.9,343,2,2281,0)="2281|85997.0000|ECV1 Ab|"
^XMB(3.9,343,2,2282,0)="2282|85998.0000|ECV11 Ab|"
^XMB(3.9,343,2,2283,0)="2283|85999.0000|ECV19 Ab|"
^XMB(3.9,343,2,2284,0)="2284|86008.0000|ECV3 Ab|"
^XMB(3.9,343,2,2285,0)="2285|86009.0000|ECV4 Ab|"
^XMB(3.9,343,2,2286,0)="2286|86010.0000|ECV6 Ab|"
^XMB(3.9,343,2,2287,0)="2287|86012.0000|ECV9 Ab|"
^XMB(3.9,343,2,2288,0)="2288|86013.0000|ECV NOS Ab|"
^XMB(3.9,343,2,2289,0)="2289|86014.0000|Francisella tular IgG|"
^XMB(3.9,343,2,2290,0)="2290|86015.0000|Giardia lamblia IgG|"
^XMB(3.9,343,2,2291,0)="2291|86016.0000|Giardia lamblia IgM|"
^XMB(3.9,343,2,2292,0)="2292|86017.0000|Gliadin Ab|"
^XMB(3.9,343,2,2293,0)="2293|86018.0000|HTNV IgG|"
^XMB(3.9,343,2,2294,0)="2294|86019.0000|HTNV IgM|"
^XMB(3.9,343,2,2295,0)="2295|86020.0000|PUUV IgG|"
^XMB(3.9,343,2,2296,0)="2296|86021.0000|PUUV IgM|"
^XMB(3.9,343,2,2297,0)="2297|86022.0000|Hantavirus RNA|"
^XMB(3.9,343,2,2298,0)="2298|86023.0000|Hepatitis A RNA|"
^XMB(3.9,343,2,2299,0)="2299|86024.0000|Hepatitis D RNA|"
^XMB(3.9,343,2,2300,0)="2300|86025.0000|Heterophile Ab Beef Abs Titer|"
^XMB(3.9,343,2,2301,0)="2301|86026.0000|Heterophile Ab GPK Abs Titer|"
^XMB(3.9,343,2,2302,0)="2302|86027.0000|FLUA Ab|"
^XMB(3.9,343,2,2303,0)="2303|86028.0000|FLU A+B Ab|"
^XMB(3.9,343,2,2304,0)="2304|86029.0000|FLUB Ab|"
^XMB(3.9,343,2,2305,0)="2305|86030.0000|FLUC Ab|"
^XMB(3.9,343,2,2306,0)="2306|86031.0000|JEV Ab|"
^XMB(3.9,343,2,2307,0)="2307|86032.0000|JEV RNA|"
^XMB(3.9,343,2,2308,0)="2308|86033.0000|JUNV Ab|"
^XMB(3.9,343,2,2309,0)="2309|86034.0000|LACV IgG|"
^XMB(3.9,343,2,2310,0)="2310|86035.0000|LACV IgM|"
^XMB(3.9,343,2,2311,0)="2311|86036.0000|LASV IgG|"
^XMB(3.9,343,2,2312,0)="2312|86037.0000|LASV IgG Titer|"
^XMB(3.9,343,2,2313,0)="2313|86038.0000|LASV IgM|"
^XMB(3.9,343,2,2314,0)="2314|86039.0000|LASV IgM Titer|"
^XMB(3.9,343,2,2315,0)="2315|86040.0000|LASV Ag|"
^XMB(3.9,343,2,2316,0)="2316|86041.0000|Legionella pneumo1 Ab Titer|"
^XMB(3.9,343,2,2317,0)="2317|86042.0000|Legionella pneumo2 Ab Titer|"
^XMB(3.9,343,2,2318,0)="2318|86043.0000|Legionella pneumo3 Ab Titer|"
^XMB(3.9,343,2,2319,0)="2319|86044.0000|Legionella pneumo4 Ab Titer|"
^XMB(3.9,343,2,2320,0)="2320|86068.0000|Legionella pneumo5 Ab Titer|"
^XMB(3.9,343,2,2321,0)="2321|86075.0000|Legionella pneumo6 Ab Titer|"
^XMB(3.9,343,2,2322,0)="2322|86096.0000|Legionella pneumo7 Ab Titer|"
^XMB(3.9,343,2,2323,0)="2323|86102.0000|Legionella pneumo8 Ab Titer|"
^XMB(3.9,343,2,2324,0)="2324|86114.0000|Legionella pneumo9 Ab Titer|"
^XMB(3.9,343,2,2325,0)="2325|86115.0000|Legionella Ab|"
^XMB(3.9,343,2,2326,0)="2326|86116.0000|Leptospira inter Ab|"
^XMB(3.9,343,2,2327,0)="2327|86117.0000|MeV IgM|"
^XMB(3.9,343,2,2328,0)="2328|86118.0000|MuV Ab|"
^XMB(3.9,343,2,2329,0)="2329|86119.0000|Paracoccidioides brasilien Ab|"
^XMB(3.9,343,2,2330,0)="2330|86122.0000|Paragonimus Ab|"
^XMB(3.9,343,2,2331,0)="2331|86123.0000|PARAFLU1 Ab|"
^XMB(3.9,343,2,2332,0)="2332|86124.0000|PARAFLU2 Ab|"
^XMB(3.9,343,2,2333,0)="2333|86126.0000|PARAFLU3 Ab|"
^XMB(3.9,343,2,2334,0)="2334|86127.0000|PV1 Ab|"
^XMB(3.9,343,2,2335,0)="2335|86128.0000|PV2 Ab|"
^XMB(3.9,343,2,2336,0)="2336|86130.0000|PV3 Ab|"
^XMB(3.9,343,2,2337,0)="2337|86146.0000|Burkholderia pseudomal IgG|"
^XMB(3.9,343,2,2338,0)="2338|86147.0000|Burkholderia pseudomal IgM|"
^XMB(3.9,343,2,2339,0)="2339|86149.0000|RSV Ab|"
^XMB(3.9,343,2,2340,0)="2340|86151.0000|RSV IgG|"
^XMB(3.9,343,2,2341,0)="2341|86157.0000|RSV IgM|"
^XMB(3.9,343,2,2342,0)="2342|86159.0000|Rickettsia Ab|"
^XMB(3.9,343,2,2343,0)="2343|86163.0000|Rickettsia prowazek RNA|"
^XMB(3.9,343,2,2344,0)="2344|86218.0000|Rickettsia rickettsi IgG|"
^XMB(3.9,343,2,2345,0)="2345|86223.0000|Rickettsia rickettsi IgM|"
^XMB(3.9,343,2,2346,0)="2346|86224.0000|Rickettsia rickettsi RNA|"
^XMB(3.9,343,2,2347,0)="2347|86235.0000|Orientia tsut Ab|"
^XMB(3.9,343,2,2348,0)="2348|86236.0000|Rickettsia typhi IgG|"
^XMB(3.9,343,2,2349,0)="2349|86238.0000|Rickettsia typhi IgM|"
^XMB(3.9,343,2,2350,0)="2350|86239.0000|Bartonella quintana IgG|"
^XMB(3.9,343,2,2351,0)="2351|86240.0000|Bartonella quintana IgM|"
^XMB(3.9,343,2,2352,0)="2352|86241.0000|SLEV IgG|"
^XMB(3.9,343,2,2353,0)="2353|86242.0000|SLEV IgM|"
^XMB(3.9,343,2,2354,0)="2354|86243.0000|Schistosoma japonicum Ab|"
^XMB(3.9,343,2,2355,0)="2355|86244.0000|SLEV RNA|"
^XMB(3.9,343,2,2356,0)="2356|86245.0000|Streptococcus pneum14 IgG|"
^XMB(3.9,343,2,2357,0)="2357|86246.0000|Streptococcus pneum51 IgG|"
^XMB(3.9,343,2,2358,0)="2358|86247.0000|Streptococcus pneum9 IgG|"
^XMB(3.9,343,2,2359,0)="2359|86248.0000|Streptococcus pneum IgM|"
^XMB(3.9,343,2,2360,0)="2360|86249.0000|Streptococcus pneum3 IgG|"
^XMB(3.9,343,2,2361,0)="2361|86251.0000|Trichinella spiralis Ab|"
^XMB(3.9,343,2,2362,0)="2362|86253.0000|Trypanosoma cruzi Ab|"
^XMB(3.9,343,2,2363,0)="2363|86255.0000|VZV Ab|"
^XMB(3.9,343,2,2364,0)="2364|86256.0000|VZV DNA|"
^XMB(3.9,343,2,2365,0)="2365|86257.0000|VEEE IgG|"
^XMB(3.9,343,2,2366,0)="2366|86258.0000|VEEE IgM|"
^XMB(3.9,343,2,2367,0)="2367|86259.0000|WEEV IgG|"
^XMB(3.9,343,2,2368,0)="2368|86260.0000|WEEV IgM|"
^XMB(3.9,343,2,2369,0)="2369|86261.0000|YFV RNA|"
^XMB(3.9,343,2,2370,0)="2370|86262.0000|AChR Ab|"
^XMB(3.9,343,2,2371,0)="2371|86263.0000|Gliadin IgM|"
^XMB(3.9,343,2,2372,0)="2372|86264.0000|Insulin Bovine Ab|"
^XMB(3.9,343,2,2373,0)="2373|86265.0000|Insulin Human Ab|"
^XMB(3.9,343,2,2374,0)="2374|86266.0000|Insulin Porcine Ab|"
^XMB(3.9,343,2,2375,0)="2375|86267.0000|Mitochondria Ab|"
^XMB(3.9,343,2,2376,0)="2376|86268.0000|Myelin IgA|"
^XMB(3.9,343,2,2377,0)="2377|86278.0000|Myelin IgG|"
^XMB(3.9,343,2,2378,0)="2378|86279.0000|Myelin IgM|"
^XMB(3.9,343,2,2379,0)="2379|86280.0000|PCA Ab|"
^XMB(3.9,343,2,2380,0)="2380|86281.0000|PA IgG|"
^XMB(3.9,343,2,2381,0)="2381|86282.0000|PA IgM|"
^XMB(3.9,343,2,2382,0)="2382|86283.0000|Cefepime SBT|"
^XMB(3.9,343,2,2383,0)="2383|86284.0000|Insulin 30M p 75 g Glc PO|"
^XMB(3.9,343,2,2384,0)="2384|86285.0000|Amicar|"
^XMB(3.9,343,2,2385,0)="2385|86286.0000|Cholest/HDLc|"
^XMB(3.9,343,2,2386,0)="2386|86287.0000|PS IgG|"
^XMB(3.9,343,2,2387,0)="2387|86288.0000|PS IgM|"
^XMB(3.9,343,2,2388,0)="2388|86289.0000|Carbidopa|"
^XMB(3.9,343,2,2389,0)="2389|86290.0000|IgA1 %|"
^XMB(3.9,343,2,2390,0)="2390|86295.0000|RF IgM|"
^XMB(3.9,343,2,2391,0)="2391|86296.0000|Insulin 6H p 75 g Glc PO|"
^XMB(3.9,343,2,2392,0)="2392|86298.0000|Bumetanide|"
^XMB(3.9,343,2,2393,0)="2393|86300.0000|Tacrine|"
^XMB(3.9,343,2,2394,0)="2394|86301.0000|Bartonella quintana IgG Titer|"
^XMB(3.9,343,2,2395,0)="2395|86302.0000|Bartonella quintana IgM Titer|"
^XMB(3.9,343,2,2396,0)="2396|86303.0000|Bordetella pert IgA|"
^XMB(3.9,343,2,2397,0)="2397|86304.0000|Bordetella pert IgG|"
^XMB(3.9,343,2,2398,0)="2398|86305.0000|Bordetella pert IgM|"
^XMB(3.9,343,2,2399,0)="2399|86306.0000|Clostridium dif Ab Titer|"
^XMB(3.9,343,2,2400,0)="2400|86307.0000|Glucose 2.5H p 100 g Glc PO|"
^XMB(3.9,343,2,2401,0)="2401|86308.0000|Glucose 3.5H p 100 g Glc PO|"
^XMB(3.9,343,2,2402,0)="2402|86309.0000|Glucose 4.5H p 100 g Glc PO|"
^XMB(3.9,343,2,2403,0)="2403|86310.0000|Glucose 5.5H p 100 g Glc PO|"
^XMB(3.9,343,2,2404,0)="2404|86311.0000|9OH-Risperidone|"
^XMB(3.9,343,2,2405,0)="2405|86312.0000|L-Dopa|"
^XMB(3.9,343,2,2406,0)="2406|86313.0000|Procyclidine|"
^XMB(3.9,343,2,2407,0)="2407|86314.0000|Propylthiouracil|"
^XMB(3.9,343,2,2408,0)="2408|86315.0000|Pyridostigmine|"
^XMB(3.9,343,2,2409,0)="2409|86316.0000|Quazepam|"
^XMB(3.9,343,2,2410,0)="2410|86317.0000|Risperidone+9OH-Ris|"
^XMB(3.9,343,2,2411,0)="2411|86318.0000|Sufentanil|"
^XMB(3.9,343,2,2412,0)="2412|86319.0000|Reticulin Ab Titer|"
^XMB(3.9,343,2,2413,0)="2413|86320.0000|ENA RNP Ab Titer|"
^XMB(3.9,343,2,2414,0)="2414|86321.0000|Aminobenzoate|"
^XMB(3.9,343,2,2415,0)="2415|86322.0000|CBZ EP|"
^XMB(3.9,343,2,2416,0)="2416|86323.0000|OH-Bupropion|"
^XMB(3.9,343,2,2417,0)="2417|86324.0000|Entamoeba histolyt Ab Titer|"
^XMB(3.9,343,2,2418,0)="2418|86325.0000|HSV IgG|"
^XMB(3.9,343,2,2419,0)="2419|86326.0000|ICS Ab Titer|"
^XMB(3.9,343,2,2420,0)="2420|86327.0000|House Dust Hauss IgE|"
^XMB(3.9,343,2,2421,0)="2421|86328.0000|Streptococcus pneum1 IgG|"
^XMB(3.9,343,2,2422,0)="2422|86329.0000|Streptococcus pneum12 IgG|"
^XMB(3.9,343,2,2423,0)="2423|86330.0000|Streptococcus pneum19 IgG|"
^XMB(3.9,343,2,2424,0)="2424|86331.0000|Streptococcus pneum23 IgG|"
^XMB(3.9,343,2,2425,0)="2425|86332.0000|Streptococcus pneum4 IgG|"
^XMB(3.9,343,2,2426,0)="2426|86333.0000|Streptococcus pneum6a+6b IgG|"
^XMB(3.9,343,2,2427,0)="2427|86334.0000|Streptococcus pneum8 IgG|"
^XMB(3.9,343,2,2428,0)="2428|86335.0000|HCB|"
^XMB(3.9,343,2,2429,0)="2429|86336.0000|Aspergillus IgA|"
^XMB(3.9,343,2,2430,0)="2430|86337.0000|Aspergillus IgM|"
^XMB(3.9,343,2,2431,0)="2431|86338.0000|Blastomyces dermat IgG|"
^XMB(3.9,343,2,2432,0)="2432|86339.0000|Brucella canis IgG|"
^XMB(3.9,343,2,2433,0)="2433|86340.0000|Brucella canis IgM|"
^XMB(3.9,343,2,2434,0)="2434|86341.0000|Candida IgA|"
^XMB(3.9,343,2,2435,0)="2435|86342.0000|Candida IgM|"
^XMB(3.9,343,2,2436,0)="2436|86343.0000|Candida Ag Titer|"
^XMB(3.9,343,2,2437,0)="2437|86344.0000|Chlorobenz|"
^XMB(3.9,343,2,2438,0)="2438|86345.0000|Diclofenac|"
^XMB(3.9,343,2,2439,0)="2439|86346.0000|ECV18 Ab Titer|"
^XMB(3.9,343,2,2440,0)="2440|86347.0000|Entamoeba histolyt IgA|"
^XMB(3.9,343,2,2441,0)="2441|86348.0000|Entamoeba histolyt IgG|"
^XMB(3.9,343,2,2442,0)="2442|86349.0000|Entamoeba histolyt IgM|"
^XMB(3.9,343,2,2443,0)="2443|86350.0000|Giardia lamblia Ab Titer|"
^XMB(3.9,343,2,2444,0)="2444|86351.0000|Hepatitis D IgM|"
^XMB(3.9,343,2,2445,0)="2445|86352.0000|Histoplasma capsul IgA|"
^XMB(3.9,343,2,2446,0)="2446|86353.0000|Histoplasma capsul IgG|"
^XMB(3.9,343,2,2447,0)="2447|86354.0000|Histoplasma capsul IgM|"
^XMB(3.9,343,2,2448,0)="2448|86355.0000|FLUA IgG Titer|"
^XMB(3.9,343,2,2449,0)="2449|86356.0000|FLUA IgM Titer|"
^XMB(3.9,343,2,2450,0)="2450|86357.0000|FLUB IgG Titer|"
^XMB(3.9,343,2,2451,0)="2451|86358.0000|FLUB IgM Titer|"
^XMB(3.9,343,2,2452,0)="2452|86359.0000|IF Block Ab|"
^XMB(3.9,343,2,2453,0)="2453|86360.0000|Legionella pneumo1 IgG Titer|"
^XMB(3.9,343,2,2454,0)="2454|86361.0000|Legionella pneumo1 IgM Titer|"
^XMB(3.9,343,2,2455,0)="2455|86362.0000|Legionella pneumo2 IgG Titer|"
^XMB(3.9,343,2,2456,0)="2456|86363.0000|Legionella pneumo2 IgM Titer|"
^XMB(3.9,343,2,2457,0)="2457|86364.0000|Legionella pneumo3 IgG Titer|"
^XMB(3.9,343,2,2458,0)="2458|86365.0000|Legionella pneumo3 IgM Titer|"
^XMB(3.9,343,2,2459,0)="2459|86366.0000|Legionella pneumo4 IgG Titer|"
^XMB(3.9,343,2,2460,0)="2460|86367.0000|Legionella pneumo4 IgM Titer|"
^XMB(3.9,343,2,2461,0)="2461|86368.0000|Legionella pneumo5 IgG Titer|"
^XMB(3.9,343,2,2462,0)="2462|86369.0000|Legionella pneumo5 IgM Titer|"
^XMB(3.9,343,2,2463,0)="2463|86370.0000|Legionella pneumo6 IgG Titer|"
^XMB(3.9,343,2,2464,0)="2464|86371.0000|Legionella pneumo6 IgM Titer|"
^XMB(3.9,343,2,2465,0)="2465|86372.0000|Neisseria gonorrhoea Ab Titer|"
^XMB(3.9,343,2,2466,0)="2466|86373.0000|Nocardia IgG|"
^XMB(3.9,343,2,2467,0)="2467|86374.0000|B19V DNA|"
^XMB(3.9,343,2,2468,0)="2468|86375.0000|RSV IgG Titer|"
^XMB(3.9,343,2,2469,0)="2469|86376.0000|RSV IgM Titer|"
^XMB(3.9,343,2,2470,0)="2470|86377.0000|RV Ab Titer|"
^XMB(3.9,343,2,2471,0)="2471|86378.0000|SLEV Ab Titer|"
^XMB(3.9,343,2,2472,0)="2472|86379.0000|T4 Ab|"
^XMB(3.9,343,2,2473,0)="2473|86417.0000|WEEV Ab Titer|"
^XMB(3.9,343,2,2474,0)="2474|86418.0000|Afipia felis IgG Titer|"
^XMB(3.9,343,2,2475,0)="2475|86419.0000|Afipia felis IgM Titer|"
^XMB(3.9,343,2,2476,0)="2476|86420.0000|Babesia IgG Titer|"
^XMB(3.9,343,2,2477,0)="2477|86421.0000|Babesia IgM Titer|"
^XMB(3.9,343,2,2478,0)="2478|86422.0000|Borrelia burgdor41kD IgM|"
^XMB(3.9,343,2,2479,0)="2479|86423.0000|Borrelia burgdor18kD IgG|"
^XMB(3.9,343,2,2480,0)="2480|86424.0000|Borrelia burgdor23kD IgG|"
^XMB(3.9,343,2,2481,0)="2481|86425.0000|Borrelia burgdor28kD IgG|"
^XMB(3.9,343,2,2482,0)="2482|86426.0000|Borrelia burgdor30kD IgG|"
^XMB(3.9,343,2,2483,0)="2483|86427.0000|Borrelia burgdor39kD IgG|"
^XMB(3.9,343,2,2484,0)="2484|86428.0000|Borrelia burgdor41kD IgG|"
^XMB(3.9,343,2,2485,0)="2485|86429.0000|Borrelia burgdor45kD IgG|"
^XMB(3.9,343,2,2486,0)="2486|86431.0000|Borrelia burgdor58kD IgG|"
^XMB(3.9,343,2,2487,0)="2487|86433.0000|Borrelia burgdor66kD IgG|"
^XMB(3.9,343,2,2488,0)="2488|86434.0000|Borrelia burgdor93kD IgG|"
^XMB(3.9,343,2,2489,0)="2489|86435.0000|Borrelia burgdor23kD IgM|"
^XMB(3.9,343,2,2490,0)="2490|86436.0000|Borrelia burgdor39kD IgM|"
^XMB(3.9,343,2,2491,0)="2491|86437.0000|Cysticerc13kD Ab|"
^XMB(3.9,343,2,2492,0)="2492|86438.0000|Cysticerc14kD Ab|"
^XMB(3.9,343,2,2493,0)="2493|86439.0000|Cysticerc18kD Ab|"
^XMB(3.9,343,2,2494,0)="2494|86440.0000|Cysticerc21kD Ab|"
^XMB(3.9,343,2,2495,0)="2495|86441.0000|Cysticerc24kD Ab|"
^XMB(3.9,343,2,2496,0)="2496|86442.0000|Cysticerc39-42kD Ab|"
^XMB(3.9,343,2,2497,0)="2497|86443.0000|Cysticerc50kD Ab|"
^XMB(3.9,343,2,2498,0)="2498|86444.0000|Hepatitis C100-3 Ab|"
^XMB(3.9,343,2,2499,0)="2499|86445.0000|Hepatitis C22-3 Ab|"
^XMB(3.9,343,2,2500,0)="2500|86446.0000|Hepatitis C C33c Ab|"
^XMB(3.9,343,2,2501,0)="2501|86447.0000|Streptococcus pneum56 IgG|"
^XMB(3.9,343,2,2502,0)="2502|86448.0000|Cortis 15M p 250 ug ACTH IM|"
^XMB(3.9,343,2,2503,0)="2503|86449.0000|Cortis 2H p 250 ug ACTH IM|"
^XMB(3.9,343,2,2504,0)="2504|86450.0000|Cortis 45M p 250 ug ACTH IM|"
^XMB(3.9,343,2,2505,0)="2505|86451.0000|Cortis 1.5h p 250 ug ACTH IM|"
^XMB(3.9,343,2,2506,0)="2506|86452.0000|Amoxapine+8OH-Amox|"
^XMB(3.9,343,2,2507,0)="2507|86453.0000|Propoxyph+Nor|"
^XMB(3.9,343,2,2508,0)="2508|86454.0000|Imipramine+Desipr|"
^XMB(3.9,343,2,2509,0)="2509|86455.0000|ODV|"
^XMB(3.9,343,2,2510,0)="2510|86456.0000|EBV VCA IgA Titer|"
^XMB(3.9,343,2,2511,0)="2511|86457.0000|CK BB %|"
^XMB(3.9,343,2,2512,0)="2512|86458.0000|CK MM %|"
^XMB(3.9,343,2,2513,0)="2513|86459.0000|Sol Il2 Recep|"
^XMB(3.9,343,2,2514,0)="2514|86460.0000|Campylobacter jejuni Ab Titer|"
^XMB(3.9,343,2,2515,0)="2515|86461.0000|Echinococcus IgG|"
^XMB(3.9,343,2,2516,0)="2516|86462.0000|Echinococcus IgM|"
^XMB(3.9,343,2,2517,0)="2517|86463.0000|Giardia lamblia IgA|"
^XMB(3.9,343,2,2518,0)="2518|86464.0000|HIV1 gp160 Ab|"
^XMB(3.9,343,2,2519,0)="2519|86465.0000|HIV1 gp120 Ab|"
^XMB(3.9,343,2,2520,0)="2520|86466.0000|HIV1 gp41 Ab|"
^XMB(3.9,343,2,2521,0)="2521|86467.0000|HIV1 p17 Ab|"
^XMB(3.9,343,2,2522,0)="2522|86468.0000|HIV1 p24 Ab|"
^XMB(3.9,343,2,2523,0)="2523|86469.0000|HIV1 p24 Ag|"
^XMB(3.9,343,2,2524,0)="2524|86470.0000|HIV1 p31 Ab|"
^XMB(3.9,343,2,2525,0)="2525|86471.0000|HIV1 p51 Ab|"
^XMB(3.9,343,2,2526,0)="2526|86487.0000|HIV1 p55 Ab|"
^XMB(3.9,343,2,2527,0)="2527|86488.0000|HIV1 p66 Ab|"
^XMB(3.9,343,2,2528,0)="2528|86693.0000|Plasmodium malariae IgG|"
^XMB(3.9,343,2,2529,0)="2529|86694.0000|Plasmodium malariae IgM|"
^XMB(3.9,343,2,2530,0)="2530|86695.0000|Salmonella IgA|"
^XMB(3.9,343,2,2531,0)="2531|86696.0000|Salmonella IgG|"
^XMB(3.9,343,2,2532,0)="2532|86697.0000|Salmonella IgM|"
^XMB(3.9,343,2,2533,0)="2533|86698.0000|Silicone IgA|"
^XMB(3.9,343,2,2534,0)="2534|86699.0000|Silicone IgE|"
^XMB(3.9,343,2,2535,0)="2535|86700.0000|Silicone IgG|"
^XMB(3.9,343,2,2536,0)="2536|86701.0000|Silicone IgM|"
^XMB(3.9,343,2,2537,0)="2537|86702.0000|SCC Ag|"
^XMB(3.9,343,2,2538,0)="2538|86703.0000|1Naphthol|"
^XMB(3.9,343,2,2539,0)="2539|86704.0000|8OH-Loxapine|"
^XMB(3.9,343,2,2540,0)="2540|86752.0000|Terbutaline|"
^XMB(3.9,343,2,2541,0)="2541|86753.0000|Trihexyphenidyl|"
^XMB(3.9,343,2,2542,0)="2542|86754.0000|Coccidioides immitis IgA|"
^XMB(3.9,343,2,2543,0)="2543|86755.0000|Coxiella burnet Ph1 IgA Titer|"
^XMB(3.9,343,2,2544,0)="2544|86756.0000|Coxiella burnet Ph2 IgA Titer|"
^XMB(3.9,343,2,2545,0)="2545|86757.0000|Coxiella burnet Ph1 IgG Titer|"
^XMB(3.9,343,2,2546,0)="2546|86758.0000|Coxiella burnet Ph2 IgG Titer|"
^XMB(3.9,343,2,2547,0)="2547|86759.0000|Coxiella burnet Ph1 IgM Titer|"
^XMB(3.9,343,2,2548,0)="2548|86760.0000|Coxiella burnet Ph2 IgM Titer|"
^XMB(3.9,343,2,2549,0)="2549|86761.0000|Shigella boydii Ab Titer|"
^XMB(3.9,343,2,2550,0)="2550|86762.0000|Shigella dysenter Ab Titer|"
^XMB(3.9,343,2,2551,0)="2551|86763.0000|Shigella flexneri Ab Titer|"
^XMB(3.9,343,2,2552,0)="2552|86764.0000|Shigella sonnei Ab Titer|"
^XMB(3.9,343,2,2553,0)="2553|86766.0000|Str Hyaluronidase Ab Titer|"
^XMB(3.9,343,2,2554,0)="2554|86767.0000|Toxocara canis IgA|"
^XMB(3.9,343,2,2555,0)="2555|86768.0000|Toxocara canis IgG|"
^XMB(3.9,343,2,2556,0)="2556|86769.0000|Toxocara canis IgM|"
^XMB(3.9,343,2,2557,0)="2557|86770.0000|Reticulin IgA Titer|"
^XMB(3.9,343,2,2558,0)="2558|86771.0000|Salivary Gland Ab Titer|"
^XMB(3.9,343,2,2559,0)="2559|86772.0000|ENA SM Ab Titer|"
^XMB(3.9,343,2,2560,0)="2560|86773.0000|Sperm IgA|"
^XMB(3.9,343,2,2561,0)="2561|86774.0000|Sperm IgG|"
^XMB(3.9,343,2,2562,0)="2562|86775.0000|Sperm IgM|"
^XMB(3.9,343,2,2563,0)="2563|86776.0000|Canary|"
^XMB(3.9,343,2,2564,0)="2564|86777.0000|Dantrolene|"
^XMB(3.9,343,2,2565,0)="2565|86778.0000|DDS|"
^XMB(3.9,343,2,2566,0)="2566|86779.0000|CV A10 Ab Titer|"
^XMB(3.9,343,2,2567,0)="2567|86780.0000|CV A2 Ab Titer|"
^XMB(3.9,343,2,2568,0)="2568|86781.0000|CV A4 Ab Titer|"
^XMB(3.9,343,2,2569,0)="2569|86782.0000|LCMV IgG Titer|"
^XMB(3.9,343,2,2570,0)="2570|86783.0000|LCMV IgM Titer|"
^XMB(3.9,343,2,2571,0)="2571|86784.0000|Ergotamine|"
^XMB(3.9,343,2,2572,0)="2572|86785.0000|Metoclopramide|"
^XMB(3.9,343,2,2573,0)="2573|86786.0000|Quinidine Free|"
^XMB(3.9,343,2,2574,0)="2574|86787.0000|Ehrlichia chaffeensis IgG Titer|"
^XMB(3.9,343,2,2575,0)="2575|86788.0000|Ehrlichia chaffeensis IgM Titer|"
^XMB(3.9,343,2,2576,0)="2576|86789.0000|Me- Bromide|"
^XMB(3.9,343,2,2577,0)="2577|86791.0000|OC Pesticides|"
^XMB(3.9,343,2,2578,0)="2578|86792.0000|Chlordane|"
^XMB(3.9,343,2,2579,0)="2579|86793.0000|CgA|"
^XMB(3.9,343,2,2580,0)="2580|86794.0000|Cortis PM|"
^XMB(3.9,343,2,2581,0)="2581|86797.0000|Cortis AM|"
^XMB(3.9,343,2,2582,0)="2582|86817.0000|Cryptoc Ag Titer|"
^XMB(3.9,343,2,2583,0)="2583|86876.0000|House Dust Greer IgE|"
^XMB(3.9,343,2,2584,0)="2584|86894.0000|HDL2c|"
^XMB(3.9,343,2,2585,0)="2585|86895.0000|HDL3c|"
^XMB(3.9,343,2,2586,0)="2586|86896.0000|LK Microsom Ab Titer|"
^XMB(3.9,343,2,2587,0)="2587|86897.0000|RA Nuc Ab|"
^XMB(3.9,343,2,2588,0)="2588|86898.0000|Cortis pre 250 ug ACTH IM|"
^XMB(3.9,343,2,2589,0)="2589|86899.0000|Procollagen Peptide1|"
^XMB(3.9,343,2,2590,0)="2590|86900.0000|Bordetella parapertussis Ab|"
^XMB(3.9,343,2,2591,0)="2591|86901.0000|HSV IgM Titer|"
^XMB(3.9,343,2,2592,0)="2592|86902.0000|HIV1 RNA|"
^XMB(3.9,343,2,2593,0)="2593|86904.0000|Teichoate Ab Titer|"
^XMB(3.9,343,2,2594,0)="2594|86905.0000|GM1 Asialo IgM Titer|"
^XMB(3.9,343,2,2595,0)="2595|86906.0000|ssDNA IgG|"
^XMB(3.9,343,2,2596,0)="2596|86907.0000|ssDNA IgM|"
^XMB(3.9,343,2,2597,0)="2597|86908.0000|Endomysium IgA|"
^XMB(3.9,343,2,2598,0)="2598|86909.0000|Glucose 1H p meal|"
^XMB(3.9,343,2,2599,0)="2599|86911.0000|Glucose p 10H fast|"
^XMB(3.9,343,2,2600,0)="2600|86912.0000|Proinsulin p 12H fast|"
^XMB(3.9,343,2,2601,0)="2601|86913.0000|Xylose 1H p 25 g Xyl PO|"
^XMB(3.9,343,2,2602,0)="2602|86914.0000|Xylose 1H p Xyl PO|"
^XMB(3.9,343,2,2603,0)="2603|86915.0000|Xylose 2H p 25 g Xyl PO|"
^XMB(3.9,343,2,2604,0)="2604|86916.0000|Xylose 30M p 25 g Xyl PO|"
^XMB(3.9,343,2,2605,0)="2605|86917.0000|Xylose p 6H fast|"
^XMB(3.9,343,2,2606,0)="2606|86918.0000|Anion Gap3|"
^XMB(3.9,343,2,2607,0)="2607|86919.0000|Acetophenazine|"
^XMB(3.9,343,2,2608,0)="2608|86920.0000|Amoxapine Metab|"
^XMB(3.9,343,2,2609,0)="2609|86921.0000|Bretylium|"
^XMB(3.9,343,2,2610,0)="2610|86922.0000|Propoxyph+Acetamin|"
^XMB(3.9,343,2,2611,0)="2611|86923.0000|Diazoxide|"
^XMB(3.9,343,2,2612,0)="2612|86924.0000|Mepivacaine|"
^XMB(3.9,343,2,2613,0)="2613|86925.0000|Methsuximide+Nor|"
^XMB(3.9,343,2,2614,0)="2614|86926.0000|Normeperidine|"
^XMB(3.9,343,2,2615,0)="2615|86927.0000|Phenytoin Free %|"
^XMB(3.9,343,2,2616,0)="2616|86928.0000|Pirmenol|"
^XMB(3.9,343,2,2617,0)="2617|86929.0000|Triamterene|"
^XMB(3.9,343,2,2618,0)="2618|86930.0000|C1INH Functional %|"
^XMB(3.9,343,2,2619,0)="2619|86931.0000|Toxoplasma gondii IgA|"
^XMB(3.9,343,2,2620,0)="2620|86932.0000|Toxoplasma gondii IgE|"
^XMB(3.9,343,2,2621,0)="2621|86933.0000|Viral Seq|"
^XMB(3.9,343,2,2622,0)="2622|86934.0000|Glucose 15M p 50 g Lac PO|"
^XMB(3.9,343,2,2623,0)="2623|86935.0000|Insulin 7H p 75 g Glc PO|"
^XMB(3.9,343,2,2624,0)="2624|86936.0000|PS|"
^XMB(3.9,343,2,2625,0)="2625|86937.0000|Methazolamide|"
^XMB(3.9,343,2,2626,0)="2626|86938.0000|Chlamydia IgG Titer|"
^XMB(3.9,343,2,2627,0)="2627|86939.0000|Chlamydia IgM Titer|"
^XMB(3.9,343,2,2628,0)="2628|86940.0000|Teichoate Ab|"
^XMB(3.9,343,2,2629,0)="2629|86941.0000|GBM Ab Titer|"
^XMB(3.9,343,2,2630,0)="2630|86942.0000|Endomysium IgA Titer|"
^XMB(3.9,343,2,2631,0)="2631|86943.0000|ICS Ab|"
^XMB(3.9,343,2,2632,0)="2632|86944.0000|Sulfatide IgG Titer|"
^XMB(3.9,343,2,2633,0)="2633|86945.0000|Sulfatide IgM Titer|"
^XMB(3.9,343,2,2634,0)="2634|86946.0000|PB Iodine|"
^XMB(3.9,343,2,2635,0)="2635|86947.0000|Pentoxyfylline|"
^XMB(3.9,343,2,2636,0)="2636|86948.0000|EEEV IgG Titer|"
^XMB(3.9,343,2,2637,0)="2637|86949.0000|EEEV IgM Titer|"
^XMB(3.9,343,2,2638,0)="2638|86950.0000|HIV2 gp125 Ab|"
^XMB(3.9,343,2,2639,0)="2639|86951.0000|HIV2 gp36 Ab|"
^XMB(3.9,343,2,2640,0)="2640|86952.0000|Hyaluronidase Ab Titer|"
^XMB(3.9,343,2,2641,0)="2641|86953.0000|LACV IgG Titer|"
^XMB(3.9,343,2,2642,0)="2642|86954.0000|LACV IgM Titer|"
^XMB(3.9,343,2,2643,0)="2643|86955.0000|SLEV IgG Titer|"
^XMB(3.9,343,2,2644,0)="2644|86956.0000|SLEV IgM Titer|"
^XMB(3.9,343,2,2645,0)="2645|86957.0000|Streptococcus pneum7 IgG|"
^XMB(3.9,343,2,2646,0)="2646|86958.0000|Anisakis IgE|"
^XMB(3.9,343,2,2647,0)="2647|86959.0000|Bamboo shoot IgE|"
^XMB(3.9,343,2,2648,0)="2648|86962.0000|Blomia tropicalis IgE|"
^XMB(3.9,343,2,2649,0)="2649|86963.0000|BSA IgE|"
^XMB(3.9,343,2,2650,0)="2650|86964.0000|Bromelin IgE|"
^XMB(3.9,343,2,2651,0)="2651|86965.0000|Starfruit IgE|"
^XMB(3.9,343,2,2652,0)="2652|86966.0000|Chub Mackerl IgE|"
^XMB(3.9,343,2,2653,0)="2653|86967.0000|Deer Epith IgE|"
^XMB(3.9,343,2,2654,0)="2654|86968.0000|Elk Meat IgE|"
^XMB(3.9,343,2,2655,0)="2655|86969.0000|Fennel Fresh IgE|"
^XMB(3.9,343,2,2656,0)="2656|86970.0000|Fennel Seed IgE|"
^XMB(3.9,343,2,2657,0)="2657|86971.0000|Fish Feed IgE|"
^XMB(3.9,343,2,2658,0)="2658|86972.0000|Daphnia IgE|"
^XMB(3.9,343,2,2659,0)="2659|86973.0000|Tetramin IgE|"
^XMB(3.9,343,2,2660,0)="2660|86974.0000|Guar gum IgE|"
^XMB(3.9,343,2,2661,0)="2661|86975.0000|Guava IgE|"
^XMB(3.9,343,2,2662,0)="2662|86976.0000|Horse|"
^XMB(3.9,343,2,2663,0)="2663|86977.0000|Mare Milk IgE|"
^XMB(3.9,343,2,2664,0)="2664|86978.0000|Marjoram IgE|"
^XMB(3.9,343,2,2665,0)="2665|86979.0000|Med flour moth IgE|"
^XMB(3.9,343,2,2666,0)="2666|86980.0000|Whiff IgE|"
^XMB(3.9,343,2,2667,0)="2667|86981.0000|Cow Milk Boiled IgE|"
^XMB(3.9,343,2,2668,0)="2668|86982.0000|Milk Powder IgE|"
^XMB(3.9,343,2,2669,0)="2669|86983.0000|Cockspur IgE|"
^XMB(3.9,343,2,2670,0)="2670|86984.0000|Mink Epith IgE|"
^XMB(3.9,343,2,2671,0)="2671|86985.0000|Octopus IgE|"
^XMB(3.9,343,2,2672,0)="2672|86986.0000|Papain IgE|"
^XMB(3.9,343,2,2673,0)="2673|86987.0000|Passion fruit IgE|"
^XMB(3.9,343,2,2674,0)="2674|86988.0000|Persimmon IgE|"
^XMB(3.9,343,2,2675,0)="2675|86989.0000|Pigeon Feather IgE|"
^XMB(3.9,343,2,2676,0)="2676|86990.0000|Malassezia furfur IgE|"
^XMB(3.9,343,2,2677,0)="2677|86991.0000|Reindeer Epith IgE|"
^XMB(3.9,343,2,2678,0)="2678|86992.0000|Sericin IgE|"
^XMB(3.9,343,2,2679,0)="2679|87727.0000|Swine Urine Prot IgE|"
^XMB(3.9,343,2,2680,0)="2680|87729.0000|Timothy IgG|"
^XMB(3.9,343,2,2681,0)="2681|87731.0000|Pine Nut IgE|"
^XMB(3.9,343,2,2682,0)="2682|87733.0000|Long Leaf Pine IgE|"
^XMB(3.9,343,2,2683,0)="2683|87735.0000|Short Leaf Pine IgE|"
^XMB(3.9,343,2,2684,0)="2684|87739.0000|Slash Pine IgE|"
^XMB(3.9,343,2,2685,0)="2685|87743.0000|Virg Scrub Pine IgE|"
^XMB(3.9,343,2,2686,0)="2686|87774.0000|Plaice IgE|"
^XMB(3.9,343,2,2687,0)="2687|87775.0000|Rabbit|"
^XMB(3.9,343,2,2688,0)="2688|87776.0000|Rabbit Urine Prot IgE|"
^XMB(3.9,343,2,2689,0)="2689|87777.0000|Spondylocladium citrovirens IgE|"
^XMB(3.9,343,2,2690,0)="2690|87778.0000|17OHP 15M p 250 ug ACTH IM|"
^XMB(3.9,343,2,2691,0)="2691|87779.0000|17OHP 30M p 250 ug ACTH IM|"
^XMB(3.9,343,2,2692,0)="2692|87780.0000|3MODE|"
^XMB(3.9,343,2,2693,0)="2693|87781.0000|NOMO|"
^XMB(3.9,343,2,2694,0)="2694|87782.0000|Doxapram|"
^XMB(3.9,343,2,2695,0)="2695|87783.0000|ODE|"
^XMB(3.9,343,2,2696,0)="2696|87784.0000|PMO|"
^XMB(3.9,343,2,2697,0)="2697|87785.0000|PZA|"
^XMB(3.9,343,2,2698,0)="2698|87786.0000|Ticlopidine|"
^XMB(3.9,343,2,2699,0)="2699|87787.0000|Reovirus Ab Titer|"
^XMB(3.9,343,2,2700,0)="2700|87788.0000|dsDNA Ab Titer|"
^XMB(3.9,343,2,2701,0)="2701|87789.0000|GH Ab Titer|"
^XMB(3.9,343,2,2702,0)="2702|87790.0000|GHBP|"
^XMB(3.9,343,2,2703,0)="2703|87791.0000|(aspergillus fumigatus+A niger IgE|"
^XMB(3.9,343,2,2704,0)="2704|87792.0000|Glucose 45M p 50 g Lac PO|"
^XMB(3.9,343,2,2705,0)="2705|87793.0000|TSH 45M p TRH IV|"
^XMB(3.9,343,2,2706,0)="2706|87794.0000|AChR Binding Ab|"
^XMB(3.9,343,2,2707,0)="2707|87795.0000|B-Gamma Tocopherol|"
^XMB(3.9,343,2,2708,0)="2708|87796.0000|Creat p dial|"
^XMB(3.9,343,2,2709,0)="2709|87797.0000|Creat pre dial|"
^XMB(3.9,343,2,2710,0)="2710|87798.0000|LDLc/HDLc|"
^XMB(3.9,343,2,2711,0)="2711|87807.0000|Melatonin|"
^XMB(3.9,343,2,2712,0)="2712|87808.0000|T4Alb Bnd|"
^XMB(3.9,343,2,2713,0)="2713|87809.0000|BUN p dialysis|"
^XMB(3.9,343,2,2714,0)="2714|87811.0000|BUN pre dialysis|"
^XMB(3.9,343,2,2715,0)="2715|87812.0000|Des-Pr-fentanyl|"
^XMB(3.9,343,2,2716,0)="2716|87813.0000|Hepatitis C5-1-1 Ab|"
^XMB(3.9,343,2,2717,0)="2717|87814.0000|Hepatitis C SOD Ab|"
^XMB(3.9,343,2,2718,0)="2718|87815.0000|HIV2 gp80 Ab|"
^XMB(3.9,343,2,2719,0)="2719|87816.0000|HIV2 p26 Ab|"
^XMB(3.9,343,2,2720,0)="2720|87817.0000|HIV2 p53 Ab|"
^XMB(3.9,343,2,2721,0)="2721|87818.0000|HIV2 p56 Ab|"
^XMB(3.9,343,2,2722,0)="2722|87819.0000|HIV2 p68 Ab|"
^XMB(3.9,343,2,2723,0)="2723|87821.0000|Reagin Ab Titer|"
^XMB(3.9,343,2,2724,0)="2724|87822.0000|Streptococcus pneum Ag|"
^XMB(3.9,343,2,2725,0)="2725|87823.0000|Insulin Ab Titer|"
^XMB(3.9,343,2,2726,0)="2726|87824.0000|A-Chlordane|"
^XMB(3.9,343,2,2727,0)="2727|87825.0000|G-Chlordane|"
^XMB(3.9,343,2,2728,0)="2728|87826.0000|Malaoxon|"
^XMB(3.9,343,2,2729,0)="2729|87827.0000|Glucose 15M p 100 g Glc PO|"
^XMB(3.9,343,2,2730,0)="2730|87828.0000|Glucose 45M p 100 g Glc PO|"
^XMB(3.9,343,2,2731,0)="2731|87829.0000|Alkalase IgE|"
^XMB(3.9,343,2,2732,0)="2732|87831.0000|B-Lactoglob IgG|"
^XMB(3.9,343,2,2733,0)="2733|87833.0000|Wheat Bran IgE|"
^XMB(3.9,343,2,2734,0)="2734|87835.0000|Carageenan IgE|"
^XMB(3.9,343,2,2735,0)="2735|87837.0000|Cream Cheese IgE|"
^XMB(3.9,343,2,2736,0)="2736|87838.0000|Chinchilla IgE|"
^XMB(3.9,343,2,2737,0)="2737|87839.0000|Chortoglyphus arcuatus IgE|"
^XMB(3.9,343,2,2738,0)="2738|87840.0000|Cockatiel Feather IgE|"
^XMB(3.9,343,2,2739,0)="2739|87841.0000|Arizona Cypress IgE|"
^XMB(3.9,343,2,2740,0)="2740|87842.0000|Deer Hair IgE|"
^XMB(3.9,343,2,2741,0)="2741|87843.0000|Dematiaceae IgE|"
^XMB(3.9,343,2,2742,0)="2742|87844.0000|Erythromycin IgE|"
^XMB(3.9,343,2,2743,0)="2743|87845.0000|Ferret Epith IgE|"
^XMB(3.9,343,2,2744,0)="2744|87846.0000|Fig IgE|"
^XMB(3.9,343,2,2745,0)="2745|87847.0000|Grain Weevel IgE|"
^XMB(3.9,343,2,2746,0)="2746|87848.0000|Helminthosporium sativum IgE|"
^XMB(3.9,343,2,2747,0)="2747|87849.0000|A-Lactalb IgG|"
^XMB(3.9,343,2,2748,0)="2748|87855.0000|B-Lactalb IgE|"
^XMB(3.9,343,2,2749,0)="2749|87857.0000|B-Galactosidase IgE|"
^XMB(3.9,343,2,2750,0)="2750|87858.0000|Linden IgE|"
^XMB(3.9,343,2,2751,0)="2751|87859.0000|Lupin IgE|"
^XMB(3.9,343,2,2752,0)="2752|87861.0000|Lycopodium IgE|"
^XMB(3.9,343,2,2753,0)="2753|87862.0000|Lysozyme IgE|"
^XMB(3.9,343,2,2754,0)="2754|87863.0000|Macadamia IgE|"
^XMB(3.9,343,2,2755,0)="2755|87864.0000|Scad IgE|"
^XMB(3.9,343,2,2756,0)="2756|87865.0000|Maxatase IgE|"
^XMB(3.9,343,2,2757,0)="2757|87866.0000|Foxtail Millet IgE|"
^XMB(3.9,343,2,2758,0)="2758|87867.0000|Penicillium frequentans IgE|"
^XMB(3.9,343,2,2759,0)="2759|87868.0000|Cayenne IgE|"
^XMB(3.9,343,2,2760,0)="2760|87869.0000|Jalepeno Pepper IgE|"
^XMB(3.9,343,2,2761,0)="2761|87871.0000|Peppermint IgE|"
^XMB(3.9,343,2,2762,0)="2762|87872.0000|Pollack IgE|"
^XMB(3.9,343,2,2763,0)="2763|87873.0000|Protamine IgE|"
^XMB(3.9,343,2,2764,0)="2764|87874.0000|Pumpkin Seed IgE|"
^XMB(3.9,343,2,2765,0)="2765|87875.0000|Rape Poln IgE|"
^XMB(3.9,343,2,2766,0)="2766|87876.0000|Rapeseed IgE|"
^XMB(3.9,343,2,2767,0)="2767|87877.0000|Orange roughy IgE|"
^XMB(3.9,343,2,2768,0)="2768|87878.0000|Sardine IgE|"
^XMB(3.9,343,2,2769,0)="2769|87879.0000|Shark IgE|"
^XMB(3.9,343,2,2770,0)="2770|87880.0000|Silver IgE|"
^XMB(3.9,343,2,2771,0)="2771|87881.0000|Escargot IgE|"
^XMB(3.9,343,2,2772,0)="2772|87882.0000|Succinylcholine IgE|"
^XMB(3.9,343,2,2773,0)="2773|87883.0000|Tarragon IgE|"
^XMB(3.9,343,2,2774,0)="2774|87884.0000|Trichosporon pullulans IgE|"
^XMB(3.9,343,2,2775,0)="2775|87887.0000|Ulocladium chartarum IgE|"
^XMB(3.9,343,2,2776,0)="2776|87908.0000|18OH-DOC|"
^XMB(3.9,343,2,2777,0)="2777|87909.0000|ACTH RH|"
^XMB(3.9,343,2,2778,0)="2778|87911.0000|BJ Protein|"
^XMB(3.9,343,2,2779,0)="2779|87912.0000|3O-Me-dopa|"
^XMB(3.9,343,2,2780,0)="2780|87913.0000|Astemizole|"
^XMB(3.9,343,2,2781,0)="2781|87914.0000|Bromocriptine|"
^XMB(3.9,343,2,2782,0)="2782|87915.0000|Gemfibrozil|"
^XMB(3.9,343,2,2783,0)="2783|87916.0000|Hydralazine|"
^XMB(3.9,343,2,2784,0)="2784|87917.0000|Hyoscyamine|"
^XMB(3.9,343,2,2785,0)="2785|87918.0000|Morphine Free|"
^XMB(3.9,343,2,2786,0)="2786|87919.0000|Pergolide|"
^XMB(3.9,343,2,2787,0)="2787|87921.0000|Phenacemide|"
^XMB(3.9,343,2,2788,0)="2788|87922.0000|Phenylethylmalonate|"
^XMB(3.9,343,2,2789,0)="2789|87923.0000|Piroxicam|"
^XMB(3.9,343,2,2790,0)="2790|87924.0000|Scopolamine|"
^XMB(3.9,343,2,2791,0)="2791|87926.0000|Chlamydophila pneum Ab Titer|"
^XMB(3.9,343,2,2792,0)="2792|87927.0000|Haem influ B IgG|"
^XMB(3.9,343,2,2793,0)="2793|87928.0000|Hepatitis B DNA|"
^XMB(3.9,343,2,2794,0)="2794|87929.0000|PARAFLU3 IgG Titer|"
^XMB(3.9,343,2,2795,0)="2795|87931.0000|PARAFLU3 IgM Titer|"
^XMB(3.9,343,2,2796,0)="2796|87932.0000|Salmonella paraty A Ab|"
^XMB(3.9,343,2,2797,0)="2797|87933.0000|Salmonella paraty B Ab|"
^XMB(3.9,343,2,2798,0)="2798|87934.0000|Streptococcus pyog Ag|"
^XMB(3.9,343,2,2799,0)="2799|87935.0000|AChR Block Ab|"
^XMB(3.9,343,2,2800,0)="2800|87936.0000|AChR Mod Ab|"
^XMB(3.9,343,2,2801,0)="2801|87937.0000|LK Microsom Ab|"
^XMB(3.9,343,2,2802,0)="2802|87938.0000|EBOV Ab|"
^XMB(3.9,343,2,2803,0)="2803|87939.0000|Brucella melitensis Ab|"
^XMB(3.9,343,2,2804,0)="2804|87940.0000|Brucella suis Ab|"
^XMB(3.9,343,2,2805,0)="2805|87941.0000|CV A10 Ab|"
^XMB(3.9,343,2,2806,0)="2806|87955.0000|CV A2 Ab|"
^XMB(3.9,343,2,2807,0)="2807|87957.0000|CV A4 Ab|"
^XMB(3.9,343,2,2808,0)="2808|87959.0000|ECV16 Ab|"
^XMB(3.9,343,2,2809,0)="2809|87961.0000|ECV18 Ab|"
^XMB(3.9,343,2,2810,0)="2810|87962.0000|Shigella dysenter Ab|"
^XMB(3.9,343,2,2811,0)="2811|87963.0000|CV A21 Ab|"
^XMB(3.9,343,2,2812,0)="2812|87977.0000|Shigella flexneri Ab|"
^XMB(3.9,343,2,2813,0)="2813|87979.0000|ECV7 Ab|"
^XMB(3.9,343,2,2814,0)="2814|87981.0000|Shigella boydii Ab|"
^XMB(3.9,343,2,2815,0)="2815|87983.0000|Salmonella Ab|"
^XMB(3.9,343,2,2816,0)="2816|88091.0000|LCMV Ab|"
^XMB(3.9,343,2,2817,0)="2817|88092.0000|Shigella sonnei Ab|"
^XMB(3.9,343,2,2818,0)="2818|88093.0000|ACP Non-prost|"
^XMB(3.9,343,2,2819,0)="2819|88094.0000|CK MB %|"
^XMB(3.9,343,2,2820,0)="2820|88095.0000|EBV NA IgG Titer|"
^XMB(3.9,343,2,2821,0)="2821|88096.0000|VLCFA|"
^XMB(3.9,343,2,2822,0)="2822|88097.0000|Prolactin BS|"
^XMB(3.9,343,2,2823,0)="2823|88098.0000|GH BS|"
^XMB(3.9,343,2,2824,0)="2824|88099.0000|SRH|"
^XMB(3.9,343,2,2825,0)="2825|88100.0000|Theobromine|"
^XMB(3.9,343,2,2826,0)="2826|88101.0000|Benzyl Alc|"
^XMB(3.9,343,2,2827,0)="2827|88102.0000|DMSO|"
^XMB(3.9,343,2,2828,0)="2828|88103.0000|Mazindol|"
^XMB(3.9,343,2,2829,0)="2829|88104.0000|Oxymorphone|"
^XMB(3.9,343,2,2830,0)="2830|88105.0000|Antipsychotics|"
^XMB(3.9,343,2,2831,0)="2831|88106.0000|Clozapine+Nor|"
^XMB(3.9,343,2,2832,0)="2832|88107.0000|Halazepam|"
^XMB(3.9,343,2,2833,0)="2833|88108.0000|PEMA|"
^XMB(3.9,343,2,2834,0)="2834|88109.0000|Sulfasalazine|"
^XMB(3.9,343,2,2835,0)="2835|88110.0000|Diphenoxylate|"
^XMB(3.9,343,2,2836,0)="2836|88111.0000|Emetine|"
^XMB(3.9,343,2,2837,0)="2837|88112.0000|Nitroglycerin|"
^XMB(3.9,343,2,2838,0)="2838|88113.0000|Nabumetone|"
^XMB(3.9,343,2,2839,0)="2839|88114.0000|Nadolol|"
^XMB(3.9,343,2,2840,0)="2840|88115.0000|6B-Naltrexone|"
^XMB(3.9,343,2,2841,0)="2841|88116.0000|Oxybutynin|"
^XMB(3.9,343,2,2842,0)="2842|88117.0000|Resperine|"
^XMB(3.9,343,2,2843,0)="2843|88118.0000|Selegiline|"
^XMB(3.9,343,2,2844,0)="2844|88119.0000|Sulindac|"
^XMB(3.9,343,2,2845,0)="2845|88120.0000|TriFpromazine|"
^XMB(3.9,343,2,2846,0)="2846|88121.0000|Trimeprazine|"
^XMB(3.9,343,2,2847,0)="2847|88126.0000|Triprolidine|"
^XMB(3.9,343,2,2848,0)="2848|88127.0000|Chlorzoxazone|"
^XMB(3.9,343,2,2849,0)="2849|88128.0000|Chlormezanone|"
^XMB(3.9,343,2,2850,0)="2850|88129.0000|Flurbiprofen|"
^XMB(3.9,343,2,2851,0)="2851|88130.0000|Norfenfluramine|"
^XMB(3.9,343,2,2852,0)="2852|88131.0000|Bufotenine|"
^XMB(3.9,343,2,2853,0)="2853|88132.0000|Prednisone|"
^XMB(3.9,343,2,2854,0)="2854|88133.0000|Naphthalene|"
^XMB(3.9,343,2,2855,0)="2855|88134.0000|Naphthol|"
^XMB(3.9,343,2,2856,0)="2856|88135.0000|Nortramadol|"
^XMB(3.9,343,2,2857,0)="2857|88136.0000|Tungsten|"
^XMB(3.9,343,2,2858,0)="2858|88137.0000|Methohexital|"
^XMB(3.9,343,2,2859,0)="2859|88138.0000|Thiamylal|"
^XMB(3.9,343,2,2860,0)="2860|88139.0000|Hexobarbital|"
^XMB(3.9,343,2,2861,0)="2861|88140.0000|Meclizine|"
^XMB(3.9,343,2,2862,0)="2862|88141.0000|2Me-citrate|"
^XMB(3.9,343,2,2863,0)="2863|88142.0000|Zomepirac|"
^XMB(3.9,343,2,2864,0)="2864|88143.0000|Quinethazone|"
^XMB(3.9,343,2,2865,0)="2865|88144.0000|Tybamate|"
^XMB(3.9,343,2,2866,0)="2866|88145.0000|Turpentine|"
^XMB(3.9,343,2,2867,0)="2867|88146.0000|Papaverine|"
^XMB(3.9,343,2,2868,0)="2868|88147.0000|Isocarboxazid|"
^XMB(3.9,343,2,2869,0)="2869|88148.0000|Prop glycol|"
^XMB(3.9,343,2,2870,0)="2870|88149.0000|Pristanate|"
^XMB(3.9,343,2,2871,0)="2871|88153.0000|Pristanic /Phytanic|"
^XMB(3.9,343,2,2872,0)="2872|88154.0000|Dolichol|"
^XMB(3.9,343,2,2873,0)="2873|88155.0000|Glucose 4H sp|"
^XMB(3.9,343,2,2874,0)="2874|88156.0000|Glucose 7H p MEAL|"
^XMB(3.9,343,2,2875,0)="2875|88157.0000|Glucose pre Lac PO|"
^XMB(3.9,343,2,2876,0)="2876|88158.0000|Glucose 15M p Lac PO|"
^XMB(3.9,343,2,2877,0)="2877|88159.0000|Glucose sp6 p Lac|"
^XMB(3.9,343,2,2878,0)="2878|88162.0000|Glucose 3.5H p Lac PO|"
^XMB(3.9,343,2,2879,0)="2879|88163.0000|Glucose 10M pre chal|"
^XMB(3.9,343,2,2880,0)="2880|88164.0000|LH 15M pre chal|"
^XMB(3.9,343,2,2881,0)="2881|88165.0000|GH 15M pre chal|"
^XMB(3.9,343,2,2882,0)="2882|88166.0000|GH pre chal|"
^XMB(3.9,343,2,2883,0)="2883|88167.0000|Thorium|"
^XMB(3.9,343,2,2884,0)="2884|88168.0000|Norastemizole|"
^XMB(3.9,343,2,2885,0)="2885|88169.0000|IGF BP1|"
^XMB(3.9,343,2,2886,0)="2886|88170.0000|IGF BP2|"
^XMB(3.9,343,2,2887,0)="2887|88171.0000|VGCC IgG|"
^XMB(3.9,343,2,2888,0)="2888|88172.0000|SIgA|"
^XMB(3.9,343,2,2889,0)="2889|88173.0000|Leucine-Enkephalin|"
^XMB(3.9,343,2,2890,0)="2890|88174.0000|Prednisolone|"
^XMB(3.9,343,2,2891,0)="2891|88175.0000|G-IFN|"
^XMB(3.9,343,2,2892,0)="2892|88176.0000|B-IFN|"
^XMB(3.9,343,2,2893,0)="2893|88177.0000|A-IFN|"
^XMB(3.9,343,2,2894,0)="2894|88178.0000|Il12|"
^XMB(3.9,343,2,2895,0)="2895|88179.0000|Cytokeratin Ab|"
^XMB(3.9,343,2,2896,0)="2896|88180.0000|Hyaluronate|"
^XMB(3.9,343,2,2897,0)="2897|88181.0000|Endothelin|"
^XMB(3.9,343,2,2898,0)="2898|88182.0000|Insulin pre chal|"
^XMB(3.9,343,2,2899,0)="2899|88183.0000|Insulin 30M pre chal|"
^XMB(3.9,343,2,2900,0)="2900|88184.0000|Insulin 15M pre chal|"
^XMB(3.9,343,2,2901,0)="2901|88185.0000|MCA Ag|"
^XMB(3.9,343,2,2902,0)="2902|88186.0000|Borrelia burgdor Ab Patrn|"
^XMB(3.9,343,2,2903,0)="2903|88187.0000|Codeine Free|"
^XMB(3.9,343,2,2904,0)="2904|88188.0000|DHC Free|"
^XMB(3.9,343,2,2905,0)="2905|88189.0000|Hydrocodone Free|"
^XMB(3.9,343,2,2906,0)="2906|88193.0000|Hydromorphone Free|"
^XMB(3.9,343,2,2907,0)="2907|88194.0000|6MAM|"
^XMB(3.9,343,2,2908,0)="2908|88195.0000|Oxycodone Free|"
^XMB(3.9,343,2,2909,0)="2909|88196.0000|PTH Ab|"
^XMB(3.9,343,2,2910,0)="2910|88197.0000|Methdilazine|"
^XMB(3.9,343,2,2911,0)="2911|88198.0000|Propiomazine|"
^XMB(3.9,343,2,2912,0)="2912|88199.0000|ALP Iso|"
^XMB(3.9,343,2,2913,0)="2913|88201.0000|ALP Lung|"
^XMB(3.9,343,2,2914,0)="2914|88203.0000|Potassium sp2|"
^XMB(3.9,343,2,2915,0)="2915|88205.0000|Potassium sp3|"
^XMB(3.9,343,2,2916,0)="2916|88207.0000|Prostaglandin D2|"
^XMB(3.9,343,2,2917,0)="2917|88209.0000|Free PSA %|"
^XMB(3.9,343,2,2918,0)="2918|88210.0000|Prot Pattern|"
^XMB(3.9,343,2,2919,0)="2919|88211.0000|Bov Inner Ear Ag|"
^XMB(3.9,343,2,2920,0)="2920|88212.0000|Purkinje Cells Ab|"
^XMB(3.9,343,2,2921,0)="2921|88213.0000|Hu1 Ab|"
^XMB(3.9,343,2,2922,0)="2922|88214.0000|HIV1 p23 Ab|"
^XMB(3.9,343,2,2923,0)="2923|88215.0000|HIV1 p65 Ab|"
^XMB(3.9,343,2,2924,0)="2924|88216.0000|HIV1 p28 Ab|"
^XMB(3.9,343,2,2925,0)="2925|88217.0000|HIV1 p32 Ab|"
^XMB(3.9,343,2,2926,0)="2926|88218.0000|HIV1 p18 Ab|"
^XMB(3.9,343,2,2927,0)="2927|88219.0000|HIV1 gp34 Ab|"
^XMB(3.9,343,2,2928,0)="2928|88220.0000|HIV1 p26 Ab|"
^XMB(3.9,343,2,2929,0)="2929|88221.0000|HIV1 p15 Ab|"
^XMB(3.9,343,2,2930,0)="2930|88222.0000|Borrelia burgdor88kD Ab|"
^XMB(3.9,343,2,2931,0)="2931|88223.0000|Borrelia burgdor93kD Ab|"
^XMB(3.9,343,2,2932,0)="2932|88224.0000|HIV1 p64 Ab|"
^XMB(3.9,343,2,2933,0)="2933|88225.0000|HIV1 p53 Ab|"
^XMB(3.9,343,2,2934,0)="2934|88226.0000|Borrelia burgdor47kD Ab|"
^XMB(3.9,343,2,2935,0)="2935|88227.0000|Borrelia burgdor29kD Ab|"
^XMB(3.9,343,2,2936,0)="2936|88243.0000|Borrelia burgdor25kD Ab|"
^XMB(3.9,343,2,2937,0)="2937|88246.0000|Borrelia burgdor45kD Ab|"
^XMB(3.9,343,2,2938,0)="2938|88247.0000|Borrelia burgdor41kD Ab|"
^XMB(3.9,343,2,2939,0)="2939|88248.0000|Borrelia burgdor30kD Ab|"
^XMB(3.9,343,2,2940,0)="2940|88249.0000|HIV1 gp105 Ab|"
^XMB(3.9,343,2,2941,0)="2941|88250.0000|HIV1 p68 Ab|"
^XMB(3.9,343,2,2942,0)="2942|88251.0000|HIV1 p58 Ab|"
^XMB(3.9,343,2,2943,0)="2943|88252.0000|Borrelia burgdor58kD Ab|"
^XMB(3.9,343,2,2944,0)="2944|88253.0000|Acetylene|"
^XMB(3.9,343,2,2945,0)="2945|88254.0000|Hexosaminidase.A %|"
^XMB(3.9,343,2,2946,0)="2946|88255.0000|PBG Synthase|"
^XMB(3.9,343,2,2947,0)="2947|88256.0000|TSH 30M pre chal|"
^XMB(3.9,343,2,2948,0)="2948|88258.0000|CDT|"
^XMB(3.9,343,2,2949,0)="2949|88259.0000|A1AT Cl|"
^XMB(3.9,343,2,2950,0)="2950|88260.0000|BUN 70M spec|"
^XMB(3.9,343,2,2951,0)="2951|88261.0000|BUN 2H spec|"
^XMB(3.9,343,2,2952,0)="2952|88262.0000|PCB Aroclor1260|"
^XMB(3.9,343,2,2953,0)="2953|88263.0000|PCB Aroclor1254|"
^XMB(3.9,343,2,2954,0)="2954|88264.0000|1,4Dioxane|"
^XMB(3.9,343,2,2955,0)="2955|88265.0000|Epichlorohydrin|"
^XMB(3.9,343,2,2956,0)="2956|88266.0000|2,4,5T|"
^XMB(3.9,343,2,2957,0)="2957|88267.0000|1,4DCB|"
^XMB(3.9,343,2,2958,0)="2958|88268.0000|Pesticides|"
^XMB(3.9,343,2,2959,0)="2959|88269.0000|C Peptide p fast|"
^XMB(3.9,343,2,2960,0)="2960|88270.0000|Platelet IgM|"
^XMB(3.9,343,2,2961,0)="2961|88271.0000|Platelet IgA|"
^XMB(3.9,343,2,2962,0)="2962|88272.0000|Drug Ind Platelet Ab|"
^XMB(3.9,343,2,2963,0)="2963|88273.0000|PA IgA|"
^XMB(3.9,343,2,2964,0)="2964|88274.0000|Circ Platelet Ab|"
^XMB(3.9,343,2,2965,0)="2965|88275.0000|ANA Pat|"
^XMB(3.9,343,2,2966,0)="2966|88276.0000|PS IgA|"
^XMB(3.9,343,2,2967,0)="2967|88277.0000|Phosphatidate IgG|"
^XMB(3.9,343,2,2968,0)="2968|88278.0000|Phosphatidate IgM|"
^XMB(3.9,343,2,2969,0)="2969|88279.0000|Phosphatidate IgA|"
^XMB(3.9,343,2,2970,0)="2970|88280.0000|PC IgG|"
^XMB(3.9,343,2,2971,0)="2971|88281.0000|PC IgM|"
^XMB(3.9,343,2,2972,0)="2972|88283.0000|PC IgA|"
^XMB(3.9,343,2,2973,0)="2973|88284.0000|PE IgG|"
^XMB(3.9,343,2,2974,0)="2974|88285.0000|PE IgM|"
^XMB(3.9,343,2,2975,0)="2975|88286.0000|PE IgA|"
^XMB(3.9,343,2,2976,0)="2976|88287.0000|PG IgG|"
^XMB(3.9,343,2,2977,0)="2977|88288.0000|PG IgM|"
^XMB(3.9,343,2,2978,0)="2978|88289.0000|PG IgA|"
^XMB(3.9,343,2,2979,0)="2979|88290.0000|PI IgG|"
^XMB(3.9,343,2,2980,0)="2980|88291.0000|PI IgM|"
^XMB(3.9,343,2,2981,0)="2981|88292.0000|PI IgA|"
^XMB(3.9,343,2,2982,0)="2982|88293.0000|C4 NeF|"
^XMB(3.9,343,2,2983,0)="2983|88294.0000|C3 NeF|"
^XMB(3.9,343,2,2984,0)="2984|88295.0000|AH50|"
^XMB(3.9,343,2,2985,0)="2985|88296.0000|GM1 Asialo Ab|"
^XMB(3.9,343,2,2986,0)="2986|88297.0000|DNP Ab|"
^XMB(3.9,343,2,2987,0)="2987|88298.0000|Endomysium Ab|"
^XMB(3.9,343,2,2988,0)="2988|88299.0000|GM1 Monosialo IgM|"
^XMB(3.9,343,2,2989,0)="2989|88301.0000|GM1 Monosialo IgA|"
^XMB(3.9,343,2,2990,0)="2990|88302.0000|ENA PM-SCL Ab|"
^XMB(3.9,343,2,2991,0)="2991|88303.0000|SGPG IgM|"
^XMB(3.9,343,2,2992,0)="2992|88304.0000|GD1b Disialyl Ab|"
^XMB(3.9,343,2,2993,0)="2993|88323.0000|GD1b Disialyl IgG|"
^XMB(3.9,343,2,2994,0)="2994|88324.0000|GD1b Disialyl IgM|"
^XMB(3.9,343,2,2995,0)="2995|88334.0000|GQ1b Tetra IgG|"
^XMB(3.9,343,2,2996,0)="2996|88335.0000|GQ1b Tetra Ab|"
^XMB(3.9,343,2,2997,0)="2997|88336.0000|GD1a Disialyl Ab|"
^XMB(3.9,343,2,2998,0)="2998|88337.0000|B-Tubulin IgM|"
^XMB(3.9,343,2,2999,0)="2999|88338.0000|Hu2 Ab|"
^XMB(3.9,343,2,3000,0)="3000|88339.0000|SC5b9 Ab|"
^XMB(3.9,343,2,3001,0)="3001|88340.0000|Ovary Ab|"
^XMB(3.9,343,2,3002,0)="3002|88341.0000|Ribosomal P Prot Ab|"
^XMB(3.9,343,2,3003,0)="3003|88342.0000|SGPG Ab|"
^XMB(3.9,343,2,3004,0)="3004|88345.0000|Cancer Ag DM/70K|"
^XMB(3.9,343,2,3005,0)="3005|88346.0000|Immunoacidic Prot|"
^XMB(3.9,343,2,3006,0)="3006|88347.0000|POA Ag|"
^XMB(3.9,343,2,3007,0)="3007|88348.0000|Motilin|"
^XMB(3.9,343,2,3008,0)="3008|88349.0000|Streptococcus pneum1 Ab|"
^XMB(3.9,343,2,3009,0)="3009|88351.0000|Streptococcus pneum4 Ab|"
^XMB(3.9,343,2,3010,0)="3010|88352.0000|Streptococcus pneum26 Ab|"
^XMB(3.9,343,2,3011,0)="3011|88359.0000|Streptococcus pneum8 Ab|"
^XMB(3.9,343,2,3012,0)="3012|88361.0000|Streptococcus pneum12 Ab|"
^XMB(3.9,343,2,3013,0)="3013|88362.0000|Streptococcus pneum56 Ab|"
^XMB(3.9,343,2,3014,0)="3014|88364.0000|Streptococcus pneum19 Ab|"
^XMB(3.9,343,2,3015,0)="3015|88367.0000|Streptococcus pneum23 Ab|"
^XMB(3.9,343,2,3016,0)="3016|88368.0000|Streptococcus pneum1 Ab sp1|"
^XMB(3.9,343,2,3017,0)="3017|88369.0000|Streptococcus pneum1 Ab sp2|"
^XMB(3.9,343,2,3018,0)="3018|88370.0000|Streptococcus pneum3 Ab sp1|"
^XMB(3.9,343,2,3019,0)="3019|88371.0000|Streptococcus pneum3 Ab sp2|"
^XMB(3.9,343,2,3020,0)="3020|88372.0000|Streptococcus pneum4 Ab sp1|"
^XMB(3.9,343,2,3021,0)="3021|88373.0000|Streptococcus pneum4 Ab sp2|"
^XMB(3.9,343,2,3022,0)="3022|88374.0000|Streptococcus pneum26 Ab sp1|"
^XMB(3.9,343,2,3023,0)="3023|88395.0000|Streptococcus pneum26 Ab sp2|"
^XMB(3.9,343,2,3024,0)="3024|88402.0000|Streptococcus pneum51 Ab sp1|"
^XMB(3.9,343,2,3025,0)="3025|88403.0000|Streptococcus pneum51 Ab sp2|"
^XMB(3.9,343,2,3026,0)="3026|88404.0000|Streptococcus pneum8 Ab sp1|"
^XMB(3.9,343,2,3027,0)="3027|88405.0000|Streptococcus pneum8 Ab sp2|"
^XMB(3.9,343,2,3028,0)="3028|88406.0000|Streptococcus pneum9 Ab sp1|"
^XMB(3.9,343,2,3029,0)="3029|88407.0000|Streptococcus pneum9 Ab sp2|"
^XMB(3.9,343,2,3030,0)="3030|88408.0000|Streptococcus pneum12 Ab sp1|"
^XMB(3.9,343,2,3031,0)="3031|88409.0000|Streptococcus pneum14 Ab sp1|"
^XMB(3.9,343,2,3032,0)="3032|88411.0000|Streptococcus pneum56 Ab sp1|"
^XMB(3.9,343,2,3033,0)="3033|88412.0000|Streptococcus pneum56 Ab sp2|"
^XMB(3.9,343,2,3034,0)="3034|88413.0000|Streptococcus pneum19 Ab sp1|"
^XMB(3.9,343,2,3035,0)="3035|88414.0000|Streptococcus pneum19 Ab sp2|"
^XMB(3.9,343,2,3036,0)="3036|88415.0000|Streptococcus pneum23 Ab sp1|"
^XMB(3.9,343,2,3037,0)="3037|88416.0000|Streptococcus pneum23 Ab sp2|"
^XMB(3.9,343,2,3038,0)="3038|88417.0000|Human Murine Ab|"
^XMB(3.9,343,2,3039,0)="3039|88418.0000|Streptococcus pneum51 Ab|"
^XMB(3.9,343,2,3040,0)="3040|88419.0000|Streptococcus pneum6|"
^XMB(3.9,343,2,3041,0)="3041|88421.0000|Fibronectin Aggr IgA|"
^XMB(3.9,343,2,3042,0)="3042|88422.0000|Liver Cytosol Ab|"
^XMB(3.9,343,2,3043,0)="3043|88423.0000|Wasp Venom IgE|"
^XMB(3.9,343,2,3044,0)="3044|88424.0000|Russian olive IgE|"
^XMB(3.9,343,2,3045,0)="3045|88425.0000|Wasp Venom IgG|"
^XMB(3.9,343,2,3046,0)="3046|88426.0000|English Walnut IgG|"
^XMB(3.9,343,2,3047,0)="3047|88427.0000|Formaldehyde IgG|"
^XMB(3.9,343,2,3048,0)="3048|88428.0000|Bahia grass IgG|"
^XMB(3.9,343,2,3049,0)="3049|88429.0000|Mesquite IgG|"
^XMB(3.9,343,2,3050,0)="3050|88431.0000|White Elm IgG|"
^XMB(3.9,343,2,3051,0)="3051|88432.0000|Cottonwood IgG|"
^XMB(3.9,343,2,3052,0)="3052|88433.0000|Nettle IgG|"
^XMB(3.9,343,2,3053,0)="3053|88434.0000|Yellow Dockweed IgG|"
^XMB(3.9,343,2,3054,0)="3054|88436.0000|Franseria acanthicarpa IgG|"
^XMB(3.9,343,2,3055,0)="3055|88437.0000|Mugwort IgG|"
^XMB(3.9,343,2,3056,0)="3056|88438.0000|Engl Plantain IgG|"
^XMB(3.9,343,2,3057,0)="3057|88439.0000|Formaldehyde IgM|"
^XMB(3.9,343,2,3058,0)="3058|88440.0000|Aspergillus glaucus Ab|"
^XMB(3.9,343,2,3059,0)="3059|88441.0000|Ehrlichia chaffeensis Ab|"
^XMB(3.9,343,2,3060,0)="3060|88442.0000|Ehrlichia IgG|"
^XMB(3.9,343,2,3061,0)="3061|88443.0000|Ehrlichia IgM|"
^XMB(3.9,343,2,3062,0)="3062|88444.0000|Thermoactinomyces Ab|"
^XMB(3.9,343,2,3063,0)="3063|88445.0000|Rickettsia conorii IgG|"
^XMB(3.9,343,2,3064,0)="3064|88446.0000|Rickettsia conorii IgM|"
^XMB(3.9,343,2,3065,0)="3065|88447.0000|Borrelia hermsii IgG|"
^XMB(3.9,343,2,3066,0)="3066|88448.0000|Borrelia hermsii IgM|"
^XMB(3.9,343,2,3067,0)="3067|88449.0000|Brucella IgG|"
^XMB(3.9,343,2,3068,0)="3068|88450.0000|Brucella IgA|"
^XMB(3.9,343,2,3069,0)="3069|88451.0000|Candida albicans Immune Cmplx|"
^XMB(3.9,343,2,3070,0)="3070|88452.0000|Chlamydia trach B Ab|"
^XMB(3.9,343,2,3071,0)="3071|88453.0000|Chlamydia trach C Ab|"
^XMB(3.9,343,2,3072,0)="3072|88454.0000|Chlamydia trach G+F+K Ab|"
^XMB(3.9,343,2,3073,0)="3073|88455.0000|Chlamydia trach C IgM|"
^XMB(3.9,343,2,3074,0)="3074|88456.0000|Chlamydia trach G+F+K IgM|"
^XMB(3.9,343,2,3075,0)="3075|88457.0000|CMV IgG sp1|"
^XMB(3.9,343,2,3076,0)="3076|88458.0000|Corynebacterium diphtheriae IgG|"
^XMB(3.9,343,2,3077,0)="3077|88459.0000|EBV EA Ab Diffuse|"
^XMB(3.9,343,2,3078,0)="3078|88460.0000|EBV EA Ab Restricted|"
^XMB(3.9,343,2,3079,0)="3079|88461.0000|EBV Ab|"
^XMB(3.9,343,2,3080,0)="3080|88462.0000|Phoma herbarum IgE|"
^XMB(3.9,343,2,3081,0)="3081|88463.0000|Sporothrix schenckii IgG|"
^XMB(3.9,343,2,3082,0)="3082|88464.0000|Sporothrix schenckii IgM|"
^XMB(3.9,343,2,3083,0)="3083|88465.0000|Sporothrix schenckii IgA|"
^XMB(3.9,343,2,3084,0)="3084|88466.0000|Filaria IgG|"
^XMB(3.9,343,2,3085,0)="3085|88467.0000|Filaria IgM|"
^XMB(3.9,343,2,3086,0)="3086|88468.0000|Haem influ B Ab|"
^XMB(3.9,343,2,3087,0)="3087|88469.0000|HHV6 IgG+IgM|"
^XMB(3.9,343,2,3088,0)="3088|88470.0000|Legionella Non-pneum Ab|"
^XMB(3.9,343,2,3089,0)="3089|88471.0000|Legionella pneumo Atyp Ab|"
^XMB(3.9,343,2,3090,0)="3090|88472.0000|Legionella longbeachae1+2 Ab|"
^XMB(3.9,343,2,3091,0)="3091|88473.0000|Leishmania braziliensis IgG|"
^XMB(3.9,343,2,3092,0)="3092|88474.0000|Leptospira IgG Titer|"
^XMB(3.9,343,2,3093,0)="3093|88475.0000|Leptospira IgM Titer|"
^XMB(3.9,343,2,3094,0)="3094|88476.0000|Mycoplasma pneumo Ab sp1|"
^XMB(3.9,343,2,3095,0)="3095|88477.0000|Mycoplasma pneumo Ab sp2|"
^XMB(3.9,343,2,3096,0)="3096|88478.0000|Mycoplasma pneumo IgA|"
^XMB(3.9,343,2,3097,0)="3097|88479.0000|Neisseria men A Ab|"
^XMB(3.9,343,2,3098,0)="3098|88480.0000|Neisseria men C Ab|"
^XMB(3.9,343,2,3099,0)="3099|88481.0000|Schistosoma IgG|"
^XMB(3.9,343,2,3100,0)="3100|88482.0000|Schistosoma IgM|"
^XMB(3.9,343,2,3101,0)="3101|88483.0000|RUBV IgG sp1|"
^XMB(3.9,343,2,3102,0)="3102|88484.0000|RUBV IgG sp2|"
^XMB(3.9,343,2,3103,0)="3103|88485.0000|Salmonella typhi H d Ab|"
^XMB(3.9,343,2,3104,0)="3104|88486.0000|Salmonella typhi O D|"
^XMB(3.9,343,2,3105,0)="3105|88487.0000|Toxoplasma gondii IgG sp2|"
^XMB(3.9,343,2,3106,0)="3106|88488.0000|HTNV Ab|"
^XMB(3.9,343,2,3107,0)="3107|88489.0000|Trypanosoma cruzi IgM|"
^XMB(3.9,343,2,3108,0)="3108|88490.0000|Trypanosoma cruzi IgG|"
^XMB(3.9,343,2,3109,0)="3109|88491.0000|CTPV IgG|"
^XMB(3.9,343,2,3110,0)="3110|88492.0000|CTPV IgM|"
^XMB(3.9,343,2,3111,0)="3111|88494.0000|CV A1 Ab|"
^XMB(3.9,343,2,3112,0)="3112|88495.0000|IgA IgG|"
^XMB(3.9,343,2,3113,0)="3113|88496.0000|HPV IgG|"
^XMB(3.9,343,2,3114,0)="3114|88497.0000|HPV IgM|"
^XMB(3.9,343,2,3115,0)="3115|88498.0000|MeV Ag|"
^XMB(3.9,343,2,3116,0)="3116|88519.0000|RNAp I+II+III Ab|"
^XMB(3.9,343,2,3117,0)="3117|88521.0000|Monoclon Band Obs|"
^XMB(3.9,343,2,3118,0)="3118|88523.0000|Calcium/Alb|"
^XMB(3.9,343,2,3119,0)="3119|88525.0000|Calcium/Osmolality|"
^XMB(3.9,343,2,3120,0)="3120|88527.0000|Iron/Transferrin|"
^XMB(3.9,343,2,3121,0)="3121|88595.0000|CaxP|"
^XMB(3.9,343,2,3122,0)="3122|88600.0000|IgG Synth Rate|"
^XMB(3.9,343,2,3123,0)="3123|88604.0000|MADDS/DDS|"
^XMB(3.9,343,2,3124,0)="3124|88611.0000|Apo A-I/Apo B|"
^XMB(3.9,343,2,3125,0)="3125|88708.0000|HIV1 Ab Patrn|"
^XMB(3.9,343,2,3126,0)="3126|88709.0000|AA Pat|"
^XMB(3.9,343,2,3127,0)="3127|88710.0000|Borrelia burgdor IgG Patrn|"
^XMB(3.9,343,2,3128,0)="3128|88711.0000|Borrelia burgdor IgM Patrn|"
^XMB(3.9,343,2,3129,0)="3129|88712.0000|HSV1+2 Ab|"
^XMB(3.9,343,2,3130,0)="3130|88713.0000|4-HG|"
^XMB(3.9,343,2,3131,0)="3131|88714.0000|Butrip|"
^XMB(3.9,343,2,3132,0)="3132|88715.0000|Cocaethylene|"
^XMB(3.9,343,2,3133,0)="3133|88716.0000|D-Pseudoephedrine|"
^XMB(3.9,343,2,3134,0)="3134|88717.0000|Normaprotiline|"
^XMB(3.9,343,2,3135,0)="3135|88718.0000|11DC 15M p 250 ug ACTH|"
^XMB(3.9,343,2,3136,0)="3136|88719.0000|11DC 1H p 250 ug ACTH|"
^XMB(3.9,343,2,3137,0)="3137|88720.0000|11DC 30M p 250 ug ACTH|"
^XMB(3.9,343,2,3138,0)="3138|88721.0000|17OH-Preg 15M p 250 ug ACTH|"
^XMB(3.9,343,2,3139,0)="3139|88722.0000|17OH-Preg 1H p 250 ug ACTH|"
^XMB(3.9,343,2,3140,0)="3140|88723.0000|17OH-Preg 30M p 250 ug ACTH|"
^XMB(3.9,343,2,3141,0)="3141|88724.0000|Glucose 3H p 50 g Lac PO|"
^XMB(3.9,343,2,3142,0)="3142|88725.0000|Glucose 4H p 50 g Lac PO|"
^XMB(3.9,343,2,3143,0)="3143|88726.0000|Insulin 1.5H p 75 g Glc PO|"
^XMB(3.9,343,2,3144,0)="3144|88727.0000|Insulin 2.5H p 75 g Glc PO|"
^XMB(3.9,343,2,3145,0)="3145|88728.0000|3B-diol|"
^XMB(3.9,343,2,3146,0)="3146|88729.0000|Doxorubicin|"
^XMB(3.9,343,2,3147,0)="3147|88730.0000|Il1Beta|"
^XMB(3.9,343,2,3148,0)="3148|88731.0000|Insulin Recep Ab Titer|"
^XMB(3.9,343,2,3149,0)="3149|88732.0000|Insulin Recep Ab|"
^XMB(3.9,343,2,3150,0)="3150|88733.0000|Ribosomal Ab Titer|"
^XMB(3.9,343,2,3151,0)="3151|88734.0000|Ribosomal P Ab|"
^XMB(3.9,343,2,3152,0)="3152|88735.0000|TCE|"
^XMB(3.9,343,2,3153,0)="3153|88736.0000|Chlordecone|"
^XMB(3.9,343,2,3154,0)="3154|88737.0000|GD1b Gangl IgM Titer|"
^XMB(3.9,343,2,3155,0)="3155|88738.0000|GD1b Gangl IgG Titer|"
^XMB(3.9,343,2,3156,0)="3156|88739.0000|GM1 Asialo IgG Titer|"
^XMB(3.9,343,2,3157,0)="3157|88740.0000|MAG-SGPG IgM Titer|"
^XMB(3.9,343,2,3158,0)="3158|88741.0000|Finch Feather IgE|"
^XMB(3.9,343,2,3159,0)="3159|88742.0000|Total IgE|"
^XMB(3.9,343,2,3160,0)="3160|88743.0000|Aldost 1H p 250 ug ACTH IM|"
^XMB(3.9,343,2,3161,0)="3161|88744.0000|Aldost 1H p 25 mg Cpl PO|"
^XMB(3.9,343,2,3162,0)="3162|88745.0000|Aldost 2H p 25 mg Cpl PO|"
^XMB(3.9,343,2,3163,0)="3163|88746.0000|Aldost 30M p 250 ug ACTH IM|"
^XMB(3.9,343,2,3164,0)="3164|88747.0000|Androst 15M p 250 ug ACTH IM|"
^XMB(3.9,343,2,3165,0)="3165|88748.0000|Androst 1H p 250 ug ACTH IM|"
^XMB(3.9,343,2,3166,0)="3166|88749.0000|Androst 30M p 250 ug ACTH IM|"
^XMB(3.9,343,2,3167,0)="3167|88750.0000|C Peptide 10M p 1 mg Gc IV|"
^XMB(3.9,343,2,3168,0)="3168|88751.0000|C Peptide 15M p 1 mg Gc PO|"
^XMB(3.9,343,2,3169,0)="3169|88752.0000|C Peptide 5M p 1 mg Gc IV|"
^XMB(3.9,343,2,3170,0)="3170|88753.0000|DHEA 15M p 250 ug ACTH|"
^XMB(3.9,343,2,3171,0)="3171|88754.0000|DHEA 1H p 250 ug ACTH|"
^XMB(3.9,343,2,3172,0)="3172|88755.0000|DHEA 30M p 250 ug ACTH|"
^XMB(3.9,343,2,3173,0)="3173|88756.0000|Glucose 2.5H p 50 g Lac PO|"
^XMB(3.9,343,2,3174,0)="3174|88758.0000|Glucose 5H p 50 g Lac PO|"
^XMB(3.9,343,2,3175,0)="3175|88759.0000|TSH 1.5H p TRH IV|"
^XMB(3.9,343,2,3176,0)="3176|88760.0000|TSH 15M p TRH IV|"
^XMB(3.9,343,2,3177,0)="3177|88761.0000|TSH 2H p TRH IV|"
^XMB(3.9,343,2,3178,0)="3178|88762.0000|Albumin Glycated %|"
^XMB(3.9,343,2,3179,0)="3179|88763.0000|ALP Liver1|"
^XMB(3.9,343,2,3180,0)="3180|88764.0000|ALP Liver2|"
^XMB(3.9,343,2,3181,0)="3181|88765.0000|Collagen1 IgG|"
^XMB(3.9,343,2,3182,0)="3182|88766.0000|Collagen2 IgG|"
^XMB(3.9,343,2,3183,0)="3183|88767.0000|Collagen4 IgG|"
^XMB(3.9,343,2,3184,0)="3184|88768.0000|Androstanolone Free %|"
^XMB(3.9,343,2,3185,0)="3185|88769.0000|Estradiol Bioavail %|"
^XMB(3.9,343,2,3186,0)="3186|88770.0000|Estradiol Bioavail|"
^XMB(3.9,343,2,3187,0)="3187|88771.0000|TSH Beta|"
^XMB(3.9,343,2,3188,0)="3188|88772.0000|A-Tumor Necrosis Fact|"
^XMB(3.9,343,2,3189,0)="3189|88773.0000|Meclofenamate|"
^XMB(3.9,343,2,3190,0)="3190|88774.0000|Norethindrone|"
^XMB(3.9,343,2,3191,0)="3191|88775.0000|Oxipurinol|"
^XMB(3.9,343,2,3192,0)="3192|88776.0000|Tamoxifen|"
^XMB(3.9,343,2,3193,0)="3193|88777.0000|HAdV IgG|"
^XMB(3.9,343,2,3194,0)="3194|88778.0000|HAdV IgM Titer|"
^XMB(3.9,343,2,3195,0)="3195|88779.0000|EEEV Ab Titer|"
^XMB(3.9,343,2,3196,0)="3196|88780.0000|Hepatitis Bc IgG|"
^XMB(3.9,343,2,3197,0)="3197|88781.0000|HIV2 p41 Ab|"
^XMB(3.9,343,2,3198,0)="3198|88782.0000|Trichinella spiralis IgA|"
^XMB(3.9,343,2,3199,0)="3199|88783.0000|Trichinella spiralis IgM|"
^XMB(3.9,343,2,3200,0)="3200|88784.0000|Calcit Ab|"
^XMB(3.9,343,2,3201,0)="3201|88785.0000|GAD65 Ab|"
^XMB(3.9,343,2,3202,0)="3202|88786.0000|Panc Islet Cell Ab Titer|"
^XMB(3.9,343,2,3203,0)="3203|88787.0000|Stria Mus Ab|"
^XMB(3.9,343,2,3204,0)="3204|88788.0000|Testes IgG Titer|"
^XMB(3.9,343,2,3205,0)="3205|88789.0000|B-Glucuronidase|"
^XMB(3.9,343,2,3206,0)="3206|88790.0000|D-Tocopherol|"
^XMB(3.9,343,2,3207,0)="3207|88791.0000|A1 Globulin %|"
^XMB(3.9,343,2,3208,0)="3208|88792.0000|Prealb %|"
^XMB(3.9,343,2,3209,0)="3209|88793.0000|Albumin %|"
^XMB(3.9,343,2,3210,0)="3210|88794.0000|A2 Globulin %|"
^XMB(3.9,343,2,3211,0)="3211|88795.0000|B-Globulin %|"
^XMB(3.9,343,2,3212,0)="3212|88796.0000|G-Globulin %|"
^XMB(3.9,343,2,3213,0)="3213|88797.0000|Hu1 Ab Titer|"
^XMB(3.9,343,2,3214,0)="3214|88798.0000|Hu2 Ab Titer|"
^XMB(3.9,343,2,3215,0)="3215|88799.0000|T4 PA Bnd|"
^XMB(3.9,343,2,3216,0)="3216|88800.0000|T4 PA Bnd/Prealb|"
^XMB(3.9,343,2,3217,0)="3217|88801.0000|T4 TBG Bnd|"
^XMB(3.9,343,2,3218,0)="3218|88802.0000|HTLV gp46 Ab|"
^XMB(3.9,343,2,3219,0)="3219|88803.0000|HTLV p19 Ab|"
^XMB(3.9,343,2,3220,0)="3220|88804.0000|HTLV p24 Ab|"
^XMB(3.9,343,2,3221,0)="3221|88805.0000|HTLV p26 Ab|"
^XMB(3.9,343,2,3222,0)="3222|88806.0000|HTLV p28 Ab|"
^XMB(3.9,343,2,3223,0)="3223|88807.0000|HTLV p32 Ab|"
^XMB(3.9,343,2,3224,0)="3224|88808.0000|HTLV p36 Ab|"
^XMB(3.9,343,2,3225,0)="3225|88809.0000|HTLV p53 Ab|"
^XMB(3.9,343,2,3226,0)="3226|88810.0000|HTLV RGP21 Ab|"
^XMB(3.9,343,2,3227,0)="3227|88811.0000|HTLV RGP46-1 Ab|"
^XMB(3.9,343,2,3228,0)="3228|88812.0000|HTLV RGP46-2 Ab|"
^XMB(3.9,343,2,3229,0)="3229|88813.0000|ENA SM+RNP Ab|"
^XMB(3.9,343,2,3230,0)="3230|88814.0000|Ciprofloxacin Peak|"
^XMB(3.9,343,2,3231,0)="3231|88815.0000|Ciprofloxacin Trough|"
^XMB(3.9,343,2,3232,0)="3232|88816.0000|Japanese Cedar IgE|"
^XMB(3.9,343,2,3233,0)="3233|88817.0000|Dermatophagoides microceras IgE|"
^XMB(3.9,343,2,3234,0)="3234|88818.0000|Fox IgE|"
^XMB(3.9,343,2,3235,0)="3235|88819.0000|Pacific Squid IgE|"
^XMB(3.9,343,2,3236,0)="3236|88820.0000|Androstanolone Free|"
^XMB(3.9,343,2,3237,0)="3237|88821.0000|Estrogen BP|"
^XMB(3.9,343,2,3238,0)="3238|88822.0000|CBZ EP Free|"
^XMB(3.9,343,2,3239,0)="3239|88823.0000|Diethylstilbestrol|"
^XMB(3.9,343,2,3240,0)="3240|88824.0000|Diflunisal|"
^XMB(3.9,343,2,3241,0)="3241|88825.0000|Dyazide|"
^XMB(3.9,343,2,3242,0)="3242|88826.0000|Estazolam|"
^XMB(3.9,343,2,3243,0)="3243|88827.0000|MADDS|"
^XMB(3.9,343,2,3244,0)="3244|88828.0000|Brucella canis IgG Titer|"
^XMB(3.9,343,2,3245,0)="3245|88829.0000|Brucella canis IgM Titer|"
^XMB(3.9,343,2,3246,0)="3246|88830.0000|EBV EA Ab Titer|"
^XMB(3.9,343,2,3247,0)="3247|88831.0000|Trypanosoma cruzi IgG Titer|"
^XMB(3.9,343,2,3248,0)="3248|88832.0000|Fibronectin Aggr IgG|"
^XMB(3.9,343,2,3249,0)="3249|88833.0000|Intercal Dsk Ab Titer|"
^XMB(3.9,343,2,3250,0)="3250|88834.0000|Barley+Wheat Smut IgE|"
^XMB(3.9,343,2,3251,0)="3251|88835.0000|17OHP 1H p 250 ug ACTH IM|"
^XMB(3.9,343,2,3252,0)="3252|88836.0000|LDH 1/LDH 2|"
^XMB(3.9,343,2,3253,0)="3253|88837.0000|T4 Alb Bnd/Alb|"
^XMB(3.9,343,2,3254,0)="3254|88838.0000|HIV1 gp120+gp160 Ab|"
^XMB(3.9,343,2,3255,0)="3255|88839.0000|RABV Ab Titer|"
^XMB(3.9,343,2,3256,0)="3256|88840.0000|PM1 Ab|"
^XMB(3.9,343,2,3257,0)="3257|88841.0000|Silver Maple IgE|"
^XMB(3.9,343,2,3258,0)="3258|88842.0000|Glucose 5.5H p 75 g Glc PO|"
^XMB(3.9,343,2,3259,0)="3259|88843.0000|ACTH Big Frg|"
^XMB(3.9,343,2,3260,0)="3260|88844.0000|Cholesterol Sulf|"
^XMB(3.9,343,2,3261,0)="3261|88846.0000|Cortisone|"
^XMB(3.9,343,2,3262,0)="3262|88847.0000|Estrone Estrone %|"
^XMB(3.9,343,2,3263,0)="3263|88848.0000|G-MSH|"
^XMB(3.9,343,2,3264,0)="3264|88849.0000|IAP|"
^XMB(3.9,343,2,3265,0)="3265|88850.0000|A-PGH|"
^XMB(3.9,343,2,3266,0)="3266|88851.0000|Prostaglandin F2A|"
^XMB(3.9,343,2,3267,0)="3267|88852.0000|Tiss Polypept Ag|"
^XMB(3.9,343,2,3268,0)="3268|88853.0000|Methimazole|"
^XMB(3.9,343,2,3269,0)="3269|88854.0000|Me-prednisolone|"
^XMB(3.9,343,2,3270,0)="3270|88855.0000|OKT3|"
^XMB(3.9,343,2,3271,0)="3271|88856.0000|Omeprazole|"
^XMB(3.9,343,2,3272,0)="3272|88857.0000|Prazosin|"
^XMB(3.9,343,2,3273,0)="3273|88858.0000|Chlamydia trach B IgA Titer|"
^XMB(3.9,343,2,3274,0)="3274|88859.0000|Chlamydia trach B IgG Titer|"
^XMB(3.9,343,2,3275,0)="3275|88860.0000|Chlamydia trach B IgM Titer|"
^XMB(3.9,343,2,3276,0)="3276|88861.0000|Chlamydia trach C IgA Titer|"
^XMB(3.9,343,2,3277,0)="3277|88862.0000|Chlamydia trach C IgG Titer|"
^XMB(3.9,343,2,3278,0)="3278|88863.0000|Chlamydia trach C IgM Titer|"
^XMB(3.9,343,2,3279,0)="3279|88864.0000|Strep DNAse B Titer|"
^XMB(3.9,343,2,3280,0)="3280|88865.0000|Filaria IgG4|"
^XMB(3.9,343,2,3281,0)="3281|88866.0000|Francisella tular IgA|"
^XMB(3.9,343,2,3282,0)="3282|88867.0000|Hepatitis E IgG|"
^XMB(3.9,343,2,3283,0)="3283|88868.0000|Hepatitis E IgM|"
^XMB(3.9,343,2,3284,0)="3284|88869.0000|HTLV1 G46 Ab|"
^XMB(3.9,343,2,3285,0)="3285|88870.0000|HTLV1 gp46 Ab|"
^XMB(3.9,343,2,3286,0)="3286|88871.0000|HTLV1 p19 Ab|"
^XMB(3.9,343,2,3287,0)="3287|88872.0000|HTLV1 p24 Ab|"
^XMB(3.9,343,2,3288,0)="3288|88873.0000|HTLV1 p26 Ab|"
^XMB(3.9,343,2,3289,0)="3289|88874.0000|HTLV1 p28 Ab|"
^XMB(3.9,343,2,3290,0)="3290|88875.0000|HTLV1 p32 Ab|"
^XMB(3.9,343,2,3291,0)="3291|88876.0000|HTLV1 p36 Ab|"
^XMB(3.9,343,2,3292,0)="3292|88877.0000|HTLV1 p53 Ab|"
^XMB(3.9,343,2,3293,0)="3293|88878.0000|HTLV1 RGP21 Ab|"
^XMB(3.9,343,2,3294,0)="3294|88879.0000|HTLV2 G46 Ab|"
^XMB(3.9,343,2,3295,0)="3295|88880.0000|Salmonella typhi H d Ab Titr|"
^XMB(3.9,343,2,3296,0)="3296|88881.0000|H2a-H2b DNA IgG|"
^XMB(3.9,343,2,3297,0)="3297|88882.0000|B-Tubulin IgG Titer|"
^XMB(3.9,343,2,3298,0)="3298|88883.0000|B-Tubulin IgM Titer|"
^XMB(3.9,343,2,3299,0)="3299|88884.0000|ENA Jo1 Ab Titer|"
^XMB(3.9,343,2,3300,0)="3300|88892.0000|MBP IgA|"
^XMB(3.9,343,2,3301,0)="3301|88893.0000|MBP IgG|"
^XMB(3.9,343,2,3302,0)="3302|88894.0000|MBP IgM|"
^XMB(3.9,343,2,3303,0)="3303|88895.0000|Purkinje Cells IgG|"
^XMB(3.9,343,2,3304,0)="3304|88896.0000|Mitochondria M2 IgG|"
^XMB(3.9,343,2,3305,0)="3305|88897.0000|Sm Mus Ab|"
^XMB(3.9,343,2,3306,0)="3306|88898.0000|GQ1b Tetra IgG Titer|"
^XMB(3.9,343,2,3307,0)="3307|88899.0000|TSH Block Ab|"
^XMB(3.9,343,2,3308,0)="3308|88900.0000|TDE|"
^XMB(3.9,343,2,3309,0)="3309|88901.0000|Uropor|"
^XMB(3.9,343,2,3310,0)="3310|88902.0000|C-ANCA Titer|"
^XMB(3.9,343,2,3311,0)="3311|88903.0000|P-ANCA Titer|"
^XMB(3.9,343,2,3312,0)="3312|88904.0000|MeV IgG sp1|"
^XMB(3.9,343,2,3313,0)="3313|88905.0000|MeV IgG sp2|"
^XMB(3.9,343,2,3314,0)="3314|88906.0000|VZV IgG sp1|"
^XMB(3.9,343,2,3315,0)="3315|88907.0000|VZV IgG sp2|"
^XMB(3.9,343,2,3316,0)="3316|88908.0000|Phenytoin Total/Free|"
^XMB(3.9,343,2,3317,0)="3317|88909.0000|Gammopathy|"
^XMB(3.9,343,2,3318,0)="3318|88910.0000|ALP Isos|"
^XMB(3.9,343,2,3319,0)="3319|88911.0000|Amylase Isos|"
^XMB(3.9,343,2,3320,0)="3320|88912.0000|Ab|"
^XMB(3.9,343,2,3321,0)="3321|88913.0000|CRP Titer|"
^XMB(3.9,343,2,3322,0)="3322|88914.0000|Norclobazam|"
^XMB(3.9,343,2,3323,0)="3323|88915.0000|Diphenhyd+Dimenhyd|"
^XMB(3.9,343,2,3324,0)="3324|88916.0000|Endomysium Ab Titer|"
^XMB(3.9,343,2,3325,0)="3325|88917.0000|ENA Ab|"
^XMB(3.9,343,2,3326,0)="3326|88918.0000|Flurazepam+Desalkyl|"
^XMB(3.9,343,2,3327,0)="3327|88919.0000|Folate+Vit B12|"
^XMB(3.9,343,2,3328,0)="3328|88920.0000|Gastrin 2M p 0.2 U/kg SCT|"
^XMB(3.9,343,2,3329,0)="3329|88921.0000|Glucose 1.5H p Glc|"
^XMB(3.9,343,2,3330,0)="3330|88922.0000|Glucose 1H p Glc|"
^XMB(3.9,343,2,3331,0)="3331|88923.0000|Glucose 2H p Glc|"
^XMB(3.9,343,2,3332,0)="3332|88924.0000|Glucose 30M p Glc|"
^XMB(3.9,343,2,3333,0)="3333|88925.0000|Glucose 3H p Glc|"
^XMB(3.9,343,2,3334,0)="3334|88926.0000|Glucose 4H p Glc|"
^XMB(3.9,343,2,3335,0)="3335|88927.0000|Glucose 5H p Glc|"
^XMB(3.9,343,2,3336,0)="3336|88928.0000|MAM|"
^XMB(3.9,343,2,3337,0)="3337|88929.0000|PTH|"
^XMB(3.9,343,2,3338,0)="3338|88930.0000|Toxoplasma gondii IgA+IgE|"
^XMB(3.9,343,2,3339,0)="3339|88931.0000|Volatile Drugs Pos|"
^XMB(3.9,343,2,3340,0)="3340|88932.0000|Estradiol Free %|"
^XMB(3.9,343,2,3341,0)="3341|88933.0000|Estrone Bioavail|"
^XMB(3.9,343,2,3342,0)="3342|88934.0000|Estrone Bioavail %|"
^XMB(3.9,343,2,3343,0)="3343|88935.0000|Human Antimouse Ab|"
^XMB(3.9,343,2,3344,0)="3344|88936.0000|A Var Subtyp|"
^XMB(3.9,343,2,3345,0)="3345|88937.0000|ALP Bone %|"
^XMB(3.9,343,2,3346,0)="3346|88938.0000|ALP Intest %|"
^XMB(3.9,343,2,3347,0)="3347|88939.0000|ALP Liver %|"
^XMB(3.9,343,2,3348,0)="3348|88940.0000|ALP Plac %|"
^XMB(3.9,343,2,3349,0)="3349|88941.0000|ALP Regan %|"
^XMB(3.9,343,2,3350,0)="3350|88942.0000|ALP Renal %|"
^XMB(3.9,343,2,3351,0)="3351|88943.0000|Amylase P1 %|"
^XMB(3.9,343,2,3352,0)="3352|88944.0000|Amylase P2 %|"
^XMB(3.9,343,2,3353,0)="3353|88945.0000|Amylase P3 %|"
^XMB(3.9,343,2,3354,0)="3354|88946.0000|Amylase S1 %|"
^XMB(3.9,343,2,3355,0)="3355|88947.0000|Amylase S2 %|"
^XMB(3.9,343,2,3356,0)="3356|88948.0000|Amylase S3 %|"
^XMB(3.9,343,2,3357,0)="3357|88949.0000|A-LP %|"
^XMB(3.9,343,2,3358,0)="3358|88950.0000|B-LP %|"
^XMB(3.9,343,2,3359,0)="3359|88951.0000|PreB-LP %|"
^XMB(3.9,343,2,3360,0)="3360|88952.0000|Met+Trp|"
^XMB(3.9,343,2,3361,0)="3361|88953.0000|Ile+Leu|"
^XMB(3.9,343,2,3362,0)="3362|88954.0000|Glu+Gln+Thr|"
^XMB(3.9,343,2,3363,0)="3363|88955.0000|Amino Acids mix4|"
^XMB(3.9,343,2,3364,0)="3364|88956.0000|Amino Acids mix3|"
^XMB(3.9,343,2,3365,0)="3365|88957.0000|Ala+Etn|"
^XMB(3.9,343,2,3366,0)="3366|88958.0000|Aspergillus fumigatus3 Ab|"
^XMB(3.9,343,2,3367,0)="3367|88959.0000|Comp C50|"
^XMB(3.9,343,2,3368,0)="3368|88960.0000|Cryoglob IgA|"
^XMB(3.9,343,2,3369,0)="3369|88961.0000|Cryoglob IgG|"
^XMB(3.9,343,2,3370,0)="3370|88962.0000|Cryoglob IgM|"
^XMB(3.9,343,2,3371,0)="3371|88963.0000|Cryocrit %|"
^XMB(3.9,343,2,3372,0)="3372|88964.0000|Cryoproteins|"
^XMB(3.9,343,2,3373,0)="3373|88965.0000|Epid Allerg Mix2 IgE Ql|"
^XMB(3.9,343,2,3374,0)="3374|88966.0000|Epid Allerg Mix70 IgE Ql|"
^XMB(3.9,343,2,3375,0)="3375|88967.0000|Epid Allerg Mix71 IgE Ql|"
^XMB(3.9,343,2,3376,0)="3376|88968.0000|Epid Allerg Mix72 IgE Ql|"
^XMB(3.9,343,2,3377,0)="3377|88969.0000|Food Allerg Mix1 IgE Ql|"
^XMB(3.9,343,2,3378,0)="3378|88970.0000|Food Allerg Mix2 IgE Ql|"
^XMB(3.9,343,2,3379,0)="3379|88971.0000|Food Allerg Mix3 IgE Ql|"
^XMB(3.9,343,2,3380,0)="3380|88972.0000|Food Allerg Mix A IgE Ql|"
^XMB(3.9,343,2,3381,0)="3381|88973.0000|Food Allerg Mix F IgE Ql|"
^XMB(3.9,343,2,3382,0)="3382|88974.0000|Food Allerg Mix E IgE Ql|"
^XMB(3.9,343,2,3383,0)="3383|88975.0000|Food Allerg Mix B IgE Ql|"
^XMB(3.9,343,2,3384,0)="3384|88976.0000|Food Allerg Mix71 IgE Ql|"
^XMB(3.9,343,2,3385,0)="3385|88977.0000|Food Allerg Mix72 IgE Ql|"
^XMB(3.9,343,2,3386,0)="3386|88994.0000|Food Allerg Mix G IgE Ql|"
^XMB(3.9,343,2,3387,0)="3387|89271.0000|Food Allerg Mix74 IgE Ql|"
^XMB(3.9,343,2,3388,0)="3388|89299.0000|Grass Allerg Mix4 IgE Ql|"
^XMB(3.9,343,2,3389,0)="3389|89327.0000|Grass Allerg Mix3 IgE Ql|"
^XMB(3.9,343,2,3390,0)="3390|89419.0000|Grass Allerg Mix C IgE Ql|"
^XMB(3.9,343,2,3391,0)="3391|89461.0000|Dust Allerg Mix A IgE Ql|"
^XMB(3.9,343,2,3392,0)="3392|89462.0000|Region Allerg Mix A IgE Ql|"
^XMB(3.9,343,2,3393,0)="3393|89463.0000|Mold Allerg Mix A IgE Ql|"
^XMB(3.9,343,2,3394,0)="3394|89464.0000|Mold Allerg Mix2 IgE Ql|"
^XMB(3.9,343,2,3395,0)="3395|89465.0000|Occup Allerg Mix1 IgE Ql|"
^XMB(3.9,343,2,3396,0)="3396|89466.0000|Occup Allerg Mix2 IgE Ql|"
^XMB(3.9,343,2,3397,0)="3397|89467.0000|Occup Allerg Mix3 IgE Ql|"
^XMB(3.9,343,2,3398,0)="3398|89468.0000|Occup Allerg Mix4 IgE Ql|"
^XMB(3.9,343,2,3399,0)="3399|89469.0000|Occup Allerg Mix5 IgE Ql|"
^XMB(3.9,343,2,3400,0)="3400|89470.0000|Occup Allerg Mix6 IgE Ql|"
^XMB(3.9,343,2,3401,0)="3401|89471.0000|Food Allerg Mix10 IgE Ql|"
^XMB(3.9,343,2,3402,0)="3402|89472.0000|Food Allerg Mix11 IgE Ql|"
^XMB(3.9,343,2,3403,0)="3403|89473.0000|Food Allerg Mix12 IgE Ql|"
^XMB(3.9,343,2,3404,0)="3404|89474.0000|Food Allerg Mix13 IgE Ql|"
^XMB(3.9,343,2,3405,0)="3405|89475.0000|Food Allerg Mix14 IgE Ql|"
^XMB(3.9,343,2,3406,0)="3406|89476.0000|Food Allerg Mix15 IgE Ql|"
^XMB(3.9,343,2,3407,0)="3407|89477.0000|Food Allerg Mix H IgE Ql|"
^XMB(3.9,343,2,3408,0)="3408|89478.0000|Food Allerg Mix18 IgE Ql|"
^XMB(3.9,343,2,3409,0)="3409|89479.0000|Food Allerg Mix19 IgE Ql|"
^XMB(3.9,343,2,3410,0)="3410|89480.0000|Food Allerg Mix20 IgE Ql|"
^XMB(3.9,343,2,3411,0)="3411|89481.0000|Food Allerg Mix21 IgE Ql|"
^XMB(3.9,343,2,3412,0)="3412|89482.0000|Food Allerg Mix22 IgE Ql|"
^XMB(3.9,343,2,3413,0)="3413|89483.0000|Food Allerg Mix7 IgE Ql|"
^XMB(3.9,343,2,3414,0)="3414|89484.0000|Food Allerg Mix8 IgE Ql|"
^XMB(3.9,343,2,3415,0)="3415|89487.0000|Food Allerg Mix9 IgE Ql|"
^XMB(3.9,343,2,3416,0)="3416|89488.0000|Region Allerg Mix1 IgE Ql|"
^XMB(3.9,343,2,3417,0)="3417|89489.0000|Region Allerg Mix2 IgE Ql|"
^XMB(3.9,343,2,3418,0)="3418|89490.0000|Region Allerg Mix B IgE Ql|"
^XMB(3.9,343,2,3419,0)="3419|89491.0000|Region Allerg Mix4 IgE Ql|"
^XMB(3.9,343,2,3420,0)="3420|89492.0000|Tree Allerg Mix10 IgE Ql|"
^XMB(3.9,343,2,3421,0)="3421|89493.0000|Weed Allerg Mix209 IgE Ql|"
^XMB(3.9,343,2,3422,0)="3422|89494.0000|Tree Allerg Mix B IgE Ql|"
^XMB(3.9,343,2,3423,0)="3423|89495.0000|Tree Allerg Mix D IgE Ql|"
^XMB(3.9,343,2,3424,0)="3424|89514.0000|Tree Allerg Mix3 IgE Ql|"
^XMB(3.9,343,2,3425,0)="3425|89515.0000|Tree Allerg Mix E IgE Ql|"
^XMB(3.9,343,2,3426,0)="3426|89516.0000|Tree Allerg Mix5 IgE Ql|"
^XMB(3.9,343,2,3427,0)="3427|89517.0000|Tree Allerg Mix A IgE Ql|"
^XMB(3.9,343,2,3428,0)="3428|89518.0000|Tree Allerg Mix7 IgE Ql|"
^XMB(3.9,343,2,3429,0)="3429|89519.0000|Tree Allerg Mix9 IgE Ql|"
^XMB(3.9,343,2,3430,0)="3430|89520.0000|Tree Allerg Mix8 IgE Ql|"
^XMB(3.9,343,2,3431,0)="3431|89521.0000|Weed Allerg Mix1 IgE Ql|"
^XMB(3.9,343,2,3432,0)="3432|89522.0000|Weed Allerg Mix2 IgE Ql|"
^XMB(3.9,343,2,3433,0)="3433|89523.0000|Weed Allerg Mix3 IgE Ql|"
^XMB(3.9,343,2,3434,0)="3434|89524.0000|Weed Allerg Mix5 IgE Ql|"
^XMB(3.9,343,2,3435,0)="3435|89525.0000|Weed Allerg Mix6 IgE Ql|"
^XMB(3.9,343,2,3436,0)="3436|89526.0000|Weed Allerg Mix7 IgE Ql|"
^XMB(3.9,343,2,3437,0)="3437|89527.0000|Lovage IgE|"
^XMB(3.9,343,2,3438,0)="3438|89528.0000|Cardamon IgE|"
^XMB(3.9,343,2,3439,0)="3439|89529.0000|Mace IgE|"
^XMB(3.9,343,2,3440,0)="3440|89647.0000|Horse Bot Fly IgE|"
^XMB(3.9,343,2,3441,0)="3441|89649.0000|Silver Birch IgE|"
^XMB(3.9,343,2,3442,0)="3442|89651.0000|Grey Alder IgE|"
^XMB(3.9,343,2,3443,0)="3443|89653.0000|London Plane IgE|"
^XMB(3.9,343,2,3444,0)="3444|89655.0000|Other Antibiotic SBT|"
^XMB(3.9,343,2,3445,0)="3445|89657.0000|Other Antibiotic Pk SBT|"
^XMB(3.9,343,2,3446,0)="3446|89659.0000|Other Antibiotic Tr SBT|"
^XMB(3.9,343,2,3447,0)="3447|89665.0000|Berlin Beetle IgE|"
^XMB(3.9,343,2,3448,0)="3448|89667.0000|Italian Cedar IgE|"
^XMB(3.9,343,2,3449,0)="3449|89669.0000|Black Fly IgE|"
^XMB(3.9,343,2,3450,0)="3450|89671.0000|European Hornet IgE|"
^XMB(3.9,343,2,3451,0)="3451|89673.0000|Ab Screen Titer|"
^XMB(3.9,343,2,3452,0)="3452|89675.0000|Little Ab Titer|"
^XMB(3.9,343,2,3453,0)="3453|89679.0000|ALP Liver1 %|"
^XMB(3.9,343,2,3454,0)="3454|89681.0000|ALP Liver2 %|"
^XMB(3.9,343,2,3455,0)="3455|89683.0000|Estrone Sulfate|"
^XMB(3.9,343,2,3456,0)="3456|89685.0000|Sulfonyluric Hypogly|"
^XMB(3.9,343,2,3457,0)="3457|89687.0000|Leishmania braziliensis IgG Titer|"
^XMB(3.9,343,2,3458,0)="3458|89689.0000|Leishmania braziliensis IgM Titer|"
^XMB(3.9,343,2,3459,0)="3459|89733.0000|Leishmania donovani IgG Titer|"
^XMB(3.9,343,2,3460,0)="3460|89735.0000|Leishmania donovani IgM Titer|"
^XMB(3.9,343,2,3461,0)="3461|89737.0000|Leishmania mexicana IgG Titer|"
^XMB(3.9,343,2,3462,0)="3462|89739.0000|Leishmania mexicana IgM Titer|"
^XMB(3.9,343,2,3463,0)="3463|89741.0000|Leishmania tropicalis IgG Titer|"
^XMB(3.9,343,2,3464,0)="3464|89743.0000|Leishmania tropicalis IgM Titer|"
^XMB(3.9,343,2,3465,0)="3465|89745.0000|PARAFLU1 IgG|"
^XMB(3.9,343,2,3466,0)="3466|89747.0000|PARAFLU1 IgM|"
^XMB(3.9,343,2,3467,0)="3467|89749.0000|PARAFLU1 IgM Titer|"
^XMB(3.9,343,2,3468,0)="3468|89751.0000|PARAFLU2 IgG|"
^XMB(3.9,343,2,3469,0)="3469|89753.0000|PARAFLU2 IgM Titer|"
^XMB(3.9,343,2,3470,0)="3470|89755.0000|PARAFLU3 IgG|"
^XMB(3.9,343,2,3471,0)="3471|89757.0000|PARAFLU3 IgM|"
^XMB(3.9,343,2,3472,0)="3472|89759.0000|Trypanosoma cruzi IgM Titer|"
^XMB(3.9,343,2,3473,0)="3473|89761.0000|Hu Ab Titer|"
^XMB(3.9,343,2,3474,0)="3474|89763.0000|Hu IgG|"
^XMB(3.9,343,2,3475,0)="3475|89765.0000|Ergosterol|"
^XMB(3.9,343,2,3476,0)="3476|89767.0000|Testost Free %|"
^XMB(3.9,343,2,3477,0)="3477|89769.0000|Anaplasma marginale Ab|"
^XMB(3.9,343,2,3478,0)="3478|89771.0000|FAdV Ab|"
^XMB(3.9,343,2,3479,0)="3479|89775.0000|FAdV2 Ab|"
^XMB(3.9,343,2,3480,0)="3480|89777.0000|AEV Ab|"
^XMB(3.9,343,2,3481,0)="3481|89779.0000|AAV2 Ab|"
^XMB(3.9,343,2,3482,0)="3482|89781.0000|IBV Ark99 Ab Titer|"
^XMB(3.9,343,2,3483,0)="3483|89783.0000|IBV Mass41 Ab Titer|"
^XMB(3.9,343,2,3484,0)="3484|89785.0000|IBV Conn42 Ab Titer|"
^XMB(3.9,343,2,3485,0)="3485|89787.0000|ILT Ab|"
^XMB(3.9,343,2,3486,0)="3486|89789.0000|Avian FLU Ab|"
^XMB(3.9,343,2,3487,0)="3487|89791.0000|ALV Ag Titer|"
^XMB(3.9,343,2,3488,0)="3488|89793.0000|APMV1 Ab|"
^XMB(3.9,343,2,3489,0)="3489|89795.0000|APMV1 Ab Titer|"
^XMB(3.9,343,2,3490,0)="3490|89797.0000|APMV2 Ab Titer|"
^XMB(3.9,343,2,3491,0)="3491|89799.0000|APMV3 Ab Titer|"
^XMB(3.9,343,2,3492,0)="3492|89800.0000|FWPV Ab|"
^XMB(3.9,343,2,3493,0)="3493|89818.0000|AVREOV Ab|"
^XMB(3.9,343,2,3494,0)="3494|89846.0000|REV Ab|"
^XMB(3.9,343,2,3495,0)="3495|89847.0000|BTV Ab|"
^XMB(3.9,343,2,3496,0)="3496|89848.0000|Bordetella avium Ab Titer|"
^XMB(3.9,343,2,3497,0)="3497|89849.0000|Bordetella avium Ab|"
^XMB(3.9,343,2,3498,0)="3498|89850.0000|BoHV1 Ab Titer|"
^XMB(3.9,343,2,3499,0)="3499|89851.0000|BLV Ab|"
^XMB(3.9,343,2,3500,0)="3500|89852.0000|BVDV1 Ab Titer|"
^XMB(3.9,343,2,3501,0)="3501|89853.0000|BVDV2 Ab Titer|"
^XMB(3.9,343,2,3502,0)="3502|89854.0000|CAEV Ab|"
^XMB(3.9,343,2,3503,0)="3503|89855.0000|EHDV Ab|"
^XMB(3.9,343,2,3504,0)="3504|89856.0000|EHV1 Ab Titer|"
^XMB(3.9,343,2,3505,0)="3505|89857.0000|EIAV Ab|"
^XMB(3.9,343,2,3506,0)="3506|89858.0000|EIV A1 Ab Titer|"
^XMB(3.9,343,2,3507,0)="3507|89859.0000|EIV A2 Ab|"
^XMB(3.9,343,2,3508,0)="3508|89860.0000|EIV A2 Ab Titer|"
^XMB(3.9,343,2,3509,0)="3509|89861.0000|EAV Ab Titer|"
^XMB(3.9,343,2,3510,0)="3510|89862.0000|IBDV Ab|"
^XMB(3.9,343,2,3511,0)="3511|89863.0000|Leptospira inter Brat Ab Titer|"
^XMB(3.9,343,2,3512,0)="3512|89864.0000|Leptospira inter Canic Ab Titer|"
^XMB(3.9,343,2,3513,0)="3513|89865.0000|Leptospira inter Grip Ab Titer|"
^XMB(3.9,343,2,3514,0)="3514|89866.0000|Leptospira inter Hard Ab Titer|"
^XMB(3.9,343,2,3515,0)="3515|89867.0000|Leptospira inter Icter Ab Titer|"
^XMB(3.9,343,2,3516,0)="3516|89868.0000|Leptospira inter Pomon Ab Titer|"
^XMB(3.9,343,2,3517,0)="3517|89869.0000|Mycobacterium avium paraTB Ab|"
^XMB(3.9,343,2,3518,0)="3518|89870.0000|Mycoplasma gallisep Ab|"
^XMB(3.9,343,2,3519,0)="3519|89871.0000|Mycoplasma meleagridis Ab|"
^XMB(3.9,343,2,3520,0)="3520|89872.0000|Mycoplasma synoviae Ab|"
^XMB(3.9,343,2,3521,0)="3521|89873.0000|Mycoplasma synoviae DNA|"
^XMB(3.9,343,2,3522,0)="3522|89874.0000|Neospora caninum Ab|"
^XMB(3.9,343,2,3523,0)="3523|89875.0000|Pasteurella multoc Ab|"
^XMB(3.9,343,2,3524,0)="3524|89876.0000|SIRSV Ab|"
^XMB(3.9,343,2,3525,0)="3525|89877.0000|PRV Ab|"
^XMB(3.9,343,2,3526,0)="3526|89878.0000|PRV Ab Titer|"
^XMB(3.9,343,2,3527,0)="3527|89879.0000|PRV Clinease Ab|"
^XMB(3.9,343,2,3528,0)="3528|89880.0000|PRV Herdcheck Ab|"
^XMB(3.9,343,2,3529,0)="3529|89881.0000|PRV Omnimark Ab|"
^XMB(3.9,343,2,3530,0)="3530|89882.0000|PRV Tolvid Ab|"
^XMB(3.9,343,2,3531,0)="3531|89883.0000|Salmonella arizonae Ab|"
^XMB(3.9,343,2,3532,0)="3532|89884.0000|Salmonella pullorum Ab|"
^XMB(3.9,343,2,3533,0)="3533|89885.0000|Salmonella typhimur Ab|"
^XMB(3.9,343,2,3534,0)="3534|89886.0000|Abalone IgE RAST Ql|"
^XMB(3.9,343,2,3535,0)="3535|89887.0000|Wattle IgE RAST Ql|"
^XMB(3.9,343,2,3536,0)="3536|89888.0000|ACTH IgE RAST Ql|"
^XMB(3.9,343,2,3537,0)="3537|89889.0000|White Alder IgE RAST Ql|"
^XMB(3.9,343,2,3538,0)="3538|89890.0000|Tag Alder IgE RAST Ql|"
^XMB(3.9,343,2,3539,0)="3539|89891.0000|Alfalfa IgE RAST Ql|"
^XMB(3.9,343,2,3540,0)="3540|89892.0000|Alkalase IgE RAST Ql|"
^XMB(3.9,343,2,3541,0)="3541|89893.0000|Allspice IgE RAST Ql|"
^XMB(3.9,343,2,3542,0)="3542|89894.0000|Almond IgE RAST Ql|"
^XMB(3.9,343,2,3543,0)="3543|89895.0000|Almond Tree IgE RAST Ql|"
^XMB(3.9,343,2,3544,0)="3544|89896.0000|A-Lactalb IgE RAST Ql|"
^XMB(3.9,343,2,3545,0)="3545|89897.0000|Alternaria alternata IgE RAST Ql|"
^XMB(3.9,343,2,3546,0)="3546|89898.0000|Amoxicillin IgE RAST Ql|"
^XMB(3.9,343,2,3547,0)="3547|89899.0000|Ampicillin IgE RAST Ql|"
^XMB(3.9,343,2,3548,0)="3548|89900.0000|Anchovy IgE RAST Ql|"
^XMB(3.9,343,2,3549,0)="3549|89901.0000|Anisakis IgE RAST Ql|"
^XMB(3.9,343,2,3550,0)="3550|89902.0000|Anise IgE RAST Ql|"
^XMB(3.9,343,2,3551,0)="3551|89903.0000|Red Imp Fire Ant IgE RAST Ql|"
^XMB(3.9,343,2,3552,0)="3552|89904.0000|Apple IgE RAST Ql|"
^XMB(3.9,343,2,3553,0)="3553|89905.0000|Apple Tree IgE RAST Ql|"
^XMB(3.9,343,2,3554,0)="3554|89906.0000|Apricot IgE RAST Ql|"
^XMB(3.9,343,2,3555,0)="3555|89907.0000|Arrowroot IgE RAST Ql|"
^XMB(3.9,343,2,3556,0)="3556|89908.0000|Artichoke IgE RAST Ql|"
^XMB(3.9,343,2,3557,0)="3557|89909.0000|Ascaris IgE RAST Ql|"
^XMB(3.9,343,2,3558,0)="3558|89910.0000|Arizona Ash IgE RAST Ql|"
^XMB(3.9,343,2,3559,0)="3559|89911.0000|White Ash IgE RAST Ql|"
^XMB(3.9,343,2,3560,0)="3560|89912.0000|Asparagus IgE RAST Ql|"
^XMB(3.9,343,2,3561,0)="3561|89913.0000|Aspen IgE RAST Ql|"
^XMB(3.9,343,2,3562,0)="3562|89914.0000|Aspergillus fumigatus IgE RAST Ql|"
^XMB(3.9,343,2,3563,0)="3563|89915.0000|Aspergillus niger IgE RAST Ql|"
^XMB(3.9,343,2,3564,0)="3564|89916.0000|Avocado IgE RAST Ql|"
^XMB(3.9,343,2,3565,0)="3565|89917.0000|Groundsel Tree IgE RAST Ql|"
^XMB(3.9,343,2,3566,0)="3566|89918.0000|Bamboo shoot IgE RAST Ql|"
^XMB(3.9,343,2,3567,0)="3567|89919.0000|Banana IgE RAST Ql|"
^XMB(3.9,343,2,3568,0)="3568|89920.0000|Barley IgE RAST Ql|"
^XMB(3.9,343,2,3569,0)="3569|89921.0000|Barley Poln IgE RAST Ql|"
^XMB(3.9,343,2,3570,0)="3570|89922.0000|Basil IgE RAST Ql|"
^XMB(3.9,343,2,3571,0)="3571|89923.0000|Bass IgE RAST Ql|"
^XMB(3.9,343,2,3572,0)="3572|89924.0000|Fivehook Bassia IgE RAST Ql|"
^XMB(3.9,343,2,3573,0)="3573|89925.0000|Bayberry IgE RAST Ql|"
^XMB(3.9,343,2,3574,0)="3574|89926.0000|Bayleaf IgE RAST Ql|"
^XMB(3.9,343,2,3575,0)="3575|89927.0000|Castor Bean IgE RAST Ql|"
^XMB(3.9,343,2,3576,0)="3576|89928.0000|Green Coffee Bean IgE RAST Ql|"
^XMB(3.9,343,2,3577,0)="3577|89929.0000|Green Bean IgE RAST Ql|"
^XMB(3.9,343,2,3578,0)="3578|89930.0000|Red Kidney Bean IgE RAST Ql|"
^XMB(3.9,343,2,3579,0)="3579|89931.0000|Lima Bean IgE RAST Ql|"
^XMB(3.9,343,2,3580,0)="3580|89932.0000|Pinto Bean IgE RAST Ql|"
^XMB(3.9,343,2,3581,0)="3581|89933.0000|Soybean IgE RAST Ql|"
^XMB(3.9,343,2,3582,0)="3582|89934.0000|White Bean IgE RAST Ql|"
^XMB(3.9,343,2,3583,0)="3583|89935.0000|Honey Bee IgE RAST Ql|"
^XMB(3.9,343,2,3584,0)="3584|89936.0000|American Beech IgE RAST Ql|"
^XMB(3.9,343,2,3585,0)="3585|89937.0000|Beef IgE RAST Ql|"
^XMB(3.9,343,2,3586,0)="3586|89938.0000|Beet IgE RAST Ql|"
^XMB(3.9,343,2,3587,0)="3587|89939.0000|Sugar Beet Seed IgE RAST Ql|"
^XMB(3.9,343,2,3588,0)="3588|89940.0000|Berlin Beetle IgE RAST Ql|"
^XMB(3.9,343,2,3589,0)="3589|89941.0000|B-Lactalb IgE RAST Ql|"
^XMB(3.9,343,2,3590,0)="3590|89942.0000|B-Lactoglob IgE RAST Ql|"
^XMB(3.9,343,2,3591,0)="3591|89943.0000|Silver Birch IgE RAST Ql|"
^XMB(3.9,343,2,3592,0)="3592|89944.0000|Blackberry IgE RAST Ql|"
^XMB(3.9,343,2,3593,0)="3593|89945.0000|Blomia tropicalis IgE RAST Ql|"
^XMB(3.9,343,2,3594,0)="3594|89946.0000|Bloodworm IgE RAST Ql|"
^XMB(3.9,343,2,3595,0)="3595|89947.0000|Blueberry IgE RAST Ql|"
^XMB(3.9,343,2,3596,0)="3596|89948.0000|Botrytis cinerea IgE RAST Ql|"
^XMB(3.9,343,2,3597,0)="3597|89949.0000|Boxelder IgE RAST Ql|"
^XMB(3.9,343,2,3598,0)="3598|89950.0000|Brazil Nut IgE RAST Ql|"
^XMB(3.9,343,2,3599,0)="3599|89951.0000|Broccoli IgE RAST Ql|"
^XMB(3.9,343,2,3600,0)="3600|89952.0000|Bromelin IgE RAST Ql|"
^XMB(3.9,343,2,3601,0)="3601|89953.0000|Brussel Sprouts IgE RAST Ql|"
^XMB(3.9,343,2,3602,0)="3602|89954.0000|BSA IgE RAST Ql|"
^XMB(3.9,343,2,3603,0)="3603|89956.0000|Buckwheat IgE RAST Ql|"
^XMB(3.9,343,2,3604,0)="3604|89957.0000|Budgie Feather IgE RAST Ql|"
^XMB(3.9,343,2,3605,0)="3605|89958.0000|Bumble Bee IgE RAST Ql|"
^XMB(3.9,343,2,3606,0)="3606|89959.0000|White burrobrush IgE RAST Ql|"
^XMB(3.9,343,2,3607,0)="3607|89961.0000|Burweed marshelder IgE RAST Ql|"
^XMB(3.9,343,2,3608,0)="3608|89962.0000|Cabbage IgE RAST Ql|"
^XMB(3.9,343,2,3609,0)="3609|89963.0000|Cocoa IgE RAST Ql|"
^XMB(3.9,343,2,3610,0)="3610|89964.0000|Canary Feather IgE RAST Ql|"
^XMB(3.9,343,2,3611,0)="3611|89966.0000|Candida albicans IgE RAST Ql|"
^XMB(3.9,343,2,3612,0)="3612|89967.0000|Melon IgE RAST Ql|"
^XMB(3.9,343,2,3613,0)="3613|89968.0000|Starfruit IgE RAST Ql|"
^XMB(3.9,343,2,3614,0)="3614|89969.0000|Caraway IgE RAST Ql|"
^XMB(3.9,343,2,3615,0)="3615|89971.0000|Careless Weed IgE RAST Ql|"
^XMB(3.9,343,2,3616,0)="3616|89972.0000|Carob IgE RAST Ql|"
^XMB(3.9,343,2,3617,0)="3617|89973.0000|Carrot IgE RAST Ql|"
^XMB(3.9,343,2,3618,0)="3618|89974.0000|Casein IgE RAST Ql|"
^XMB(3.9,343,2,3619,0)="3619|89976.0000|Cashew Nut IgE RAST Ql|"
^XMB(3.9,343,2,3620,0)="3620|89977.0000|Cat IgE RAST Ql|"
^XMB(3.9,343,2,3621,0)="3621|89978.0000|Cat Dander IgE RAST Ql|"
^XMB(3.9,343,2,3622,0)="3622|89979.0000|Cat Epith IgE RAST Ql|"
^XMB(3.9,343,2,3623,0)="3623|89983.0000|Catfish IgE RAST Ql|"
^XMB(3.9,343,2,3624,0)="3624|89984.0000|Cauliflower IgE RAST Ql|"
^XMB(3.9,343,2,3625,0)="3625|89986.0000|Italian Cedar IgE RAST Ql|"
^XMB(3.9,343,2,3626,0)="3626|89987.0000|Japanese Cedar IgE RAST Ql|"
^XMB(3.9,343,2,3627,0)="3627|89988.0000|Moutain Juniper IgE RAST Ql|"
^XMB(3.9,343,2,3628,0)="3628|89989.0000|Red Cedar IgE RAST Ql|"
^XMB(3.9,343,2,3629,0)="3629|89991.0000|Saltcedar IgE RAST Ql|"
^XMB(3.9,343,2,3630,0)="3630|89992.0000|Celery IgE RAST Ql|"
^XMB(3.9,343,2,3631,0)="3631|89993.0000|Acremonium IgE RAST Ql|"
^XMB(3.9,343,2,3632,0)="3632|89994.0000|Chaetomium globosum IgE RAST Ql|"
^XMB(3.9,343,2,3633,0)="3633|89996.0000|Chamomile IgE RAST Ql|"
^XMB(3.9,343,2,3634,0)="3634|89997.0000|American Cheese IgE RAST Ql|"
^XMB(3.9,343,2,3635,0)="3635|89998.0000|Cheddar IgE RAST Ql|"
^XMB(3.9,343,2,3636,0)="3636|89999.0000|Cottage Cheese IgE RAST Ql|"
^XMB(3.9,343,2,3637,0)="3637|90000.0000|Mozzarella IgE RAST Ql|"
^XMB(3.9,343,2,3638,0)="3638|90001.0000|Parmesan IgE RAST Ql|"
^XMB(3.9,343,2,3639,0)="3639|90002.0000|Swiss Cheese IgE RAST Ql|"
^XMB(3.9,343,2,3640,0)="3640|90003.0000|Cherry IgE RAST Ql|"
^XMB(3.9,343,2,3641,0)="3641|90004.0000|Chestnut IgE RAST Ql|"
^XMB(3.9,343,2,3642,0)="3642|90005.0000|Horse Chestnut IgE RAST Ql|"
^XMB(3.9,343,2,3643,0)="3643|90006.0000|Chestnut Poln IgE RAST Ql|"
^XMB(3.9,343,2,3644,0)="3644|90007.0000|Chicken Feather IgE RAST Ql|"
^XMB(3.9,343,2,3645,0)="3645|90008.0000|Chicken Meat IgE RAST Ql|"
^XMB(3.9,343,2,3646,0)="3646|90009.0000|Chicory IgE RAST Ql|"
^XMB(3.9,343,2,3647,0)="3647|90010.0000|Chinchilla IgE RAST Ql|"
^XMB(3.9,343,2,3648,0)="3648|90011.0000|Chloramin T IgE RAST Ql|"
^XMB(3.9,343,2,3649,0)="3649|90012.0000|Chortoglyphus arcuatus IgE RAST Ql|"
^XMB(3.9,343,2,3650,0)="3650|90013.0000|Chymofast IgE RAST Ql|"
^XMB(3.9,343,2,3651,0)="3651|90014.0000|Chymopapain IgE RAST Ql|"
^XMB(3.9,343,2,3652,0)="3652|90015.0000|Cinnamon IgE RAST Ql|"
^XMB(3.9,343,2,3653,0)="3653|90016.0000|Cladosporium herbarum IgE RAST Ql|"
^XMB(3.9,343,2,3654,0)="3654|90017.0000|Clam IgE RAST Ql|"
^XMB(3.9,343,2,3655,0)="3655|90018.0000|Clove IgE RAST Ql|"
^XMB(3.9,343,2,3656,0)="3656|90019.0000|Clover IgE RAST Ql|"
^XMB(3.9,343,2,3657,0)="3657|90020.0000|Cocklebur IgE RAST Ql|"
^XMB(3.9,343,2,3658,0)="3658|90021.0000|Roach IgE RAST Ql|"
^XMB(3.9,343,2,3659,0)="3659|90022.0000|Coconut IgE RAST Ql|"
^XMB(3.9,343,2,3660,0)="3660|90023.0000|Codfish IgE RAST Ql|"
^XMB(3.9,343,2,3661,0)="3661|90024.0000|Coffee IgE RAST Ql|"
^XMB(3.9,343,2,3662,0)="3662|90025.0000|Cola IgE RAST Ql|"
^XMB(3.9,343,2,3663,0)="3663|90026.0000|Corn IgE RAST Ql|"
^XMB(3.9,343,2,3664,0)="3664|90027.0000|Cultivated Corn IgE RAST Ql|"
^XMB(3.9,343,2,3665,0)="3665|90028.0000|Cultivated Cotton IgE RAST Ql|"
^XMB(3.9,343,2,3666,0)="3666|90029.0000|Cotton Fibers IgE RAST Ql|"
^XMB(3.9,343,2,3667,0)="3667|90030.0000|West Cotton IgE RAST Ql|"
^XMB(3.9,343,2,3668,0)="3668|90031.0000|Cottonseed IgE RAST Ql|"
^XMB(3.9,343,2,3669,0)="3669|90032.0000|Cottonwood IgE RAST Ql|"
^XMB(3.9,343,2,3670,0)="3670|90033.0000|West Cottonwood IgE RAST Ql|"
^XMB(3.9,343,2,3671,0)="3671|90034.0000|Cow Dander IgE RAST Ql|"
^XMB(3.9,343,2,3672,0)="3672|90035.0000|Cow Epith IgE RAST Ql|"
^XMB(3.9,343,2,3673,0)="3673|90036.0000|Crab IgE RAST Ql|"
^XMB(3.9,343,2,3674,0)="3674|90037.0000|Cranberry IgE RAST Ql|"
^XMB(3.9,343,2,3675,0)="3675|90038.0000|Crawfish IgE RAST Ql|"
^XMB(3.9,343,2,3676,0)="3676|90039.0000|Cryptococcus terreus IgE RAST Ql|"
^XMB(3.9,343,2,3677,0)="3677|90040.0000|Cucumber IgE RAST Ql|"
^XMB(3.9,343,2,3678,0)="3678|90041.0000|Curry IgE RAST Ql|"
^XMB(3.9,343,2,3679,0)="3679|90042.0000|Curvularia lunata IgE RAST Ql|"
^XMB(3.9,343,2,3680,0)="3680|90043.0000|Curvularia specifera IgE RAST Ql|"
^XMB(3.9,343,2,3681,0)="3681|90044.0000|Arizona Cypress IgE RAST Ql|"
^XMB(3.9,343,2,3682,0)="3682|90045.0000|Bald Cypress IgE RAST Ql|"
^XMB(3.9,343,2,3683,0)="3683|90046.0000|Italian Cypress IgE RAST Ql|"
^XMB(3.9,343,2,3684,0)="3684|90047.0000|Daisy IgE RAST Ql|"
^XMB(3.9,343,2,3685,0)="3685|90048.0000|Ox-eye daisy IgE RAST Ql|"
^XMB(3.9,343,2,3686,0)="3686|90049.0000|Dandelion IgE RAST Ql|"
^XMB(3.9,343,2,3687,0)="3687|90050.0000|Daphnia IgE RAST Ql|"
^XMB(3.9,343,2,3688,0)="3688|90051.0000|Date Poln IgE RAST Ql|"
^XMB(3.9,343,2,3689,0)="3689|90052.0000|Deer Epith IgE RAST Ql|"
^XMB(3.9,343,2,3690,0)="3690|90053.0000|Dermatophagoides farinae IgE RAST Ql|"
^XMB(3.9,343,2,3691,0)="3691|90054.0000|Dermatophagoides microceras IgE RAST Ql|"
^XMB(3.9,343,2,3692,0)="3692|90055.0000|Dermatophagoides pteronyss IgE RAST Ql|"
^XMB(3.9,343,2,3693,0)="3693|90056.0000|Dill IgE RAST Ql|"
^XMB(3.9,343,2,3694,0)="3694|90057.0000|Yellow Dockweed IgE RAST Ql|"
^XMB(3.9,343,2,3695,0)="3695|90058.0000|Dog Dander IgE RAST Ql|"
^XMB(3.9,343,2,3696,0)="3696|90059.0000|Dog Epith IgE RAST Ql|"
^XMB(3.9,343,2,3697,0)="3697|90060.0000|Duck Feather IgE RAST Ql|"
^XMB(3.9,343,2,3698,0)="3698|90061.0000|Echinococcus IgE RAST Ql|"
^XMB(3.9,343,2,3699,0)="3699|90062.0000|Egg White IgE RAST Ql|"
^XMB(3.9,343,2,3700,0)="3700|90063.0000|Whole Egg IgE RAST Ql|"
^XMB(3.9,343,2,3701,0)="3701|90064.0000|Egg Yolk IgE RAST Ql|"
^XMB(3.9,343,2,3702,0)="3702|90065.0000|Eggplant IgE RAST Ql|"
^XMB(3.9,343,2,3703,0)="3703|90066.0000|Marsh Elder IgE RAST Ql|"
^XMB(3.9,343,2,3704,0)="3704|90067.0000|Elderberry IgE RAST Ql|"
^XMB(3.9,343,2,3705,0)="3705|90068.0000|Elk Meat IgE RAST Ql|"
^XMB(3.9,343,2,3706,0)="3706|90069.0000|White Elm IgE RAST Ql|"
^XMB(3.9,343,2,3707,0)="3707|90070.0000|Chinese Elm IgE RAST Ql|"
^XMB(3.9,343,2,3708,0)="3708|90071.0000|Endive IgE RAST Ql|"
^XMB(3.9,343,2,3709,0)="3709|90072.0000|Epicoccum purpurascens IgE RAST Ql|"
^XMB(3.9,343,2,3710,0)="3710|90073.0000|Epidermophyton floccosum IgE RAST Ql|"
^XMB(3.9,343,2,3711,0)="3711|90074.0000|Ethylene Oxide IgE RAST Ql|"
^XMB(3.9,343,2,3712,0)="3712|90075.0000|Gum-Tree IgE RAST Ql|"
^XMB(3.9,343,2,3713,0)="3713|90076.0000|Euroglyphus maynei IgE RAST Ql|"
^XMB(3.9,343,2,3714,0)="3714|90077.0000|Dog Fennel IgE RAST Ql|"
^XMB(3.9,343,2,3715,0)="3715|90078.0000|Fennel Fresh IgE RAST Ql|"
^XMB(3.9,343,2,3716,0)="3716|90079.0000|Fennel Seed IgE RAST Ql|"
^XMB(3.9,343,2,3717,0)="3717|90080.0000|Ferret Epith IgE RAST Ql|"
^XMB(3.9,343,2,3718,0)="3718|90081.0000|Meadow Fescue IgE RAST Ql|"
^XMB(3.9,343,2,3719,0)="3719|90082.0000|Finch Feather IgE RAST Ql|"
^XMB(3.9,343,2,3720,0)="3720|90083.0000|Douglas Fir IgE RAST Ql|"
^XMB(3.9,343,2,3721,0)="3721|90084.0000|Firebush IgE RAST Ql|"
^XMB(3.9,343,2,3722,0)="3722|90085.0000|Fiscus IgE RAST Ql|"
^XMB(3.9,343,2,3723,0)="3723|90086.0000|Flea IgE RAST Ql|"
^XMB(3.9,343,2,3724,0)="3724|90087.0000|Flounder IgE RAST Ql|"
^XMB(3.9,343,2,3725,0)="3725|90088.0000|Black Fly IgE RAST Ql|"
^XMB(3.9,343,2,3726,0)="3726|90089.0000|Horse Fly IgE RAST Ql|"
^XMB(3.9,343,2,3727,0)="3727|90090.0000|Formaldehyde IgE RAST Ql|"
^XMB(3.9,343,2,3728,0)="3728|90091.0000|Fox IgE RAST Ql|"
^XMB(3.9,343,2,3729,0)="3729|90092.0000|Meadow Foxtail IgE RAST Ql|"
^XMB(3.9,343,2,3730,0)="3730|90093.0000|Fusarium culmorum IgE RAST Ql|"
^XMB(3.9,343,2,3731,0)="3731|90094.0000|Fusarium moniliforme IgE RAST Ql|"
^XMB(3.9,343,2,3732,0)="3732|90095.0000|Fusarium solani IgE RAST Ql|"
^XMB(3.9,343,2,3733,0)="3733|90096.0000|Garlic IgE RAST Ql|"
^XMB(3.9,343,2,3734,0)="3734|90097.0000|Gelatin IgE RAST Ql|"
^XMB(3.9,343,2,3735,0)="3735|90098.0000|Geotrichum candidum IgE RAST Ql|"
^XMB(3.9,343,2,3736,0)="3736|90099.0000|Gerbil IgE RAST Ql|"
^XMB(3.9,343,2,3737,0)="3737|90100.0000|Ginger IgE RAST Ql|"
^XMB(3.9,343,2,3738,0)="3738|90101.0000|Gluten IgE RAST Ql|"
^XMB(3.9,343,2,3739,0)="3739|90102.0000|Glycophagus domesticus IgE RAST Ql|"
^XMB(3.9,343,2,3740,0)="3740|90103.0000|Goat Epith IgE RAST Ql|"
^XMB(3.9,343,2,3741,0)="3741|90104.0000|Goat Milk IgE RAST Ql|"
^XMB(3.9,343,2,3742,0)="3742|90105.0000|Goldenrod IgE RAST Ql|"
^XMB(3.9,343,2,3743,0)="3743|90106.0000|Goose Feather IgE RAST Ql|"
^XMB(3.9,343,2,3744,0)="3744|90107.0000|Grape IgE RAST Ql|"
^XMB(3.9,343,2,3745,0)="3745|90108.0000|Grapefruit IgE RAST Ql|"
^XMB(3.9,343,2,3746,0)="3746|90109.0000|Bahia grass IgE RAST Ql|"
^XMB(3.9,343,2,3747,0)="3747|90110.0000|Bermuda grass IgE RAST Ql|"
^XMB(3.9,343,2,3748,0)="3748|90111.0000|Can blue grass IgE RAST Ql|"
^XMB(3.9,343,2,3749,0)="3749|90112.0000|Brome IgE RAST Ql|"
^XMB(3.9,343,2,3750,0)="3750|90113.0000|False oat grass IgE RAST Ql|"
^XMB(3.9,343,2,3751,0)="3751|90114.0000|Gramma grass IgE RAST Ql|"
^XMB(3.9,343,2,3752,0)="3752|90115.0000|Johnson grass IgE RAST Ql|"
^XMB(3.9,343,2,3753,0)="3753|90116.0000|Kent blue grass IgE RAST Ql|"
^XMB(3.9,343,2,3754,0)="3754|90117.0000|Koehlers grass IgE RAST Ql|"
^XMB(3.9,343,2,3755,0)="3755|90118.0000|Cocksfoot IgE RAST Ql|"
^XMB(3.9,343,2,3756,0)="3756|90119.0000|Quack grass IgE RAST Ql|"
^XMB(3.9,343,2,3757,0)="3757|90120.0000|Red top grass IgE RAST Ql|"
^XMB(3.9,343,2,3758,0)="3758|90121.0000|Per rye grass IgE RAST Ql|"
^XMB(3.9,343,2,3759,0)="3759|90122.0000|Wild rye grass IgE RAST Ql|"
^XMB(3.9,343,2,3760,0)="3760|90123.0000|Salt grass IgE RAST Ql|"
^XMB(3.9,343,2,3761,0)="3761|90124.0000|Sorghum grass IgE RAST Ql|"
^XMB(3.9,343,2,3762,0)="3762|90125.0000|Sudan grass IgE RAST Ql|"
^XMB(3.9,343,2,3763,0)="3763|90126.0000|Sw Vernal grass IgE RAST Ql|"
^XMB(3.9,343,2,3764,0)="3764|90127.0000|Velvet grass IgE RAST Ql|"
^XMB(3.9,343,2,3765,0)="3765|90128.0000|Guar gum IgE RAST Ql|"
^XMB(3.9,343,2,3766,0)="3766|90129.0000|Guava IgE RAST Ql|"
^XMB(3.9,343,2,3767,0)="3767|90130.0000|Guinea Pig Epith IgE RAST Ql|"
^XMB(3.9,343,2,3768,0)="3768|90131.0000|Gum Arabic IgE RAST Ql|"
^XMB(3.9,343,2,3769,0)="3769|90132.0000|Sweetgum IgE RAST Ql|"
^XMB(3.9,343,2,3770,0)="3770|90133.0000|Hackberry tree IgE RAST Ql|"
^XMB(3.9,343,2,3771,0)="3771|90134.0000|Haddock IgE RAST Ql|"
^XMB(3.9,343,2,3772,0)="3772|90135.0000|Halibut IgE RAST Ql|"
^XMB(3.9,343,2,3773,0)="3773|90136.0000|Hmtr Epith IgE RAST Ql|"
^XMB(3.9,343,2,3774,0)="3774|90137.0000|Hazelnut IgE RAST Ql|"
^XMB(3.9,343,2,3775,0)="3775|90138.0000|Hazelnut Poln IgE RAST Ql|"
^XMB(3.9,343,2,3776,0)="3776|90139.0000|Helminthosporium IgE RAST Ql|"
^XMB(3.9,343,2,3777,0)="3777|90140.0000|Helminthosporium halodes IgE RAST Ql|"
^XMB(3.9,343,2,3778,0)="3778|90141.0000|East Hemlock IgE RAST Ql|"
^XMB(3.9,343,2,3779,0)="3779|90142.0000|Water Hemp IgE RAST Ql|"
^XMB(3.9,343,2,3780,0)="3780|90143.0000|Herring IgE RAST Ql|"
^XMB(3.9,343,2,3781,0)="3781|90144.0000|Pecan/Hick Nut IgE RAST Ql|"
^XMB(3.9,343,2,3782,0)="3782|90145.0000|Pecan/Hick Tree IgE RAST Ql|"
^XMB(3.9,343,2,3783,0)="3783|90146.0000|Shellbark Hickory IgE RAST Ql|"
^XMB(3.9,343,2,3784,0)="3784|90147.0000|White Hickory IgE RAST Ql|"
^XMB(3.9,343,2,3785,0)="3785|90148.0000|Honey IgE RAST Ql|"
^XMB(3.9,343,2,3786,0)="3786|90149.0000|Honeysuckle IgE RAST Ql|"
^XMB(3.9,343,2,3787,0)="3787|90150.0000|Hop IgE RAST Ql|"
^XMB(3.9,343,2,3788,0)="3788|90151.0000|Hornbeam IgE RAST Ql|"
^XMB(3.9,343,2,3789,0)="3789|90152.0000|Hornet IgE RAST Ql|"
^XMB(3.9,343,2,3790,0)="3790|90153.0000|Whitefaced Hornet IgE RAST Ql|"
^XMB(3.9,343,2,3791,0)="3791|90154.0000|Yellow Hornet IgE RAST Ql|"
^XMB(3.9,343,2,3792,0)="3792|90155.0000|Horse Dander IgE RAST Ql|"
^XMB(3.9,343,2,3793,0)="3793|90156.0000|Horse Epith IgE RAST Ql|"
^XMB(3.9,343,2,3794,0)="3794|90157.0000|Horseradish IgE RAST Ql|"
^XMB(3.9,343,2,3795,0)="3795|90158.0000|House Dust IgE RAST Ql|"
^XMB(3.9,343,2,3796,0)="3796|90159.0000|House Dust Greer IgE RAST Ql|"
^XMB(3.9,343,2,3797,0)="3797|90160.0000|House Dust Hauss IgE RAST Ql|"
^XMB(3.9,343,2,3798,0)="3798|90161.0000|House Dust HS IgE RAST Ql|"
^XMB(3.9,343,2,3799,0)="3799|90162.0000|Insulin Bovine IgE RAST Ql|"
^XMB(3.9,343,2,3800,0)="3800|90163.0000|Insulin Human IgE RAST Ql|"
^XMB(3.9,343,2,3801,0)="3801|90164.0000|Insulin Porcine IgE RAST Ql|"
^XMB(3.9,343,2,3802,0)="3802|90165.0000|Iodinebush IgE RAST Ql|"
^XMB(3.9,343,2,3803,0)="3803|90166.0000|Isocyanate HDI IgE RAST Ql|"
^XMB(3.9,343,2,3804,0)="3804|90167.0000|Isocyanate MDI IgE RAST Ql|"
^XMB(3.9,343,2,3805,0)="3805|90168.0000|Isocyanate TDI IgE RAST Ql|"
^XMB(3.9,343,2,3806,0)="3806|90169.0000|Ispaghula IgE RAST Ql|"
^XMB(3.9,343,2,3807,0)="3807|90170.0000|Juniper IgE RAST Ql|"
^XMB(3.9,343,2,3808,0)="3808|90171.0000|Kapok IgE RAST Ql|"
^XMB(3.9,343,2,3809,0)="3809|90172.0000|Kiwi IgE RAST Ql|"
^XMB(3.9,343,2,3810,0)="3810|90173.0000|Lamb IgE RAST Ql|"
^XMB(3.9,343,2,3811,0)="3811|90174.0000|Mutton IgE RAST Ql|"
^XMB(3.9,343,2,3812,0)="3812|90175.0000|Goosefoot IgE RAST Ql|"
^XMB(3.9,343,2,3813,0)="3813|90176.0000|Ltx IgE RAST Ql|"
^XMB(3.9,343,2,3814,0)="3814|90177.0000|Ltx Glv Ext IgE RAST Ql|"
^XMB(3.9,343,2,3815,0)="3815|90178.0000|Ltx Glv Ext Ammon IgE RAST Ql|"
^XMB(3.9,343,2,3816,0)="3816|90179.0000|Ltx Glv Ext Buff IgE RAST Ql|"
^XMB(3.9,343,2,3817,0)="3817|90180.0000|Legume IgE RAST Ql|"
^XMB(3.9,343,2,3818,0)="3818|90181.0000|Lemon IgE RAST Ql|"
^XMB(3.9,343,2,3819,0)="3819|90182.0000|Lenscale IgE RAST Ql|"
^XMB(3.9,343,2,3820,0)="3820|90183.0000|Lentils IgE RAST Ql|"
^XMB(3.9,343,2,3821,0)="3821|90184.0000|Lepidoglyphus destructor IgE RAST Ql|"
^XMB(3.9,343,2,3822,0)="3822|90185.0000|Lettuce IgE RAST Ql|"
^XMB(3.9,343,2,3823,0)="3823|90186.0000|Lilac IgE RAST Ql|"
^XMB(3.9,343,2,3824,0)="3824|90187.0000|Easter lily IgE RAST Ql|"
^XMB(3.9,343,2,3825,0)="3825|90188.0000|Lime IgE RAST Ql|"
^XMB(3.9,343,2,3826,0)="3826|90189.0000|Linden IgE RAST Ql|"
^XMB(3.9,343,2,3827,0)="3827|90190.0000|Liver Beef IgE RAST Ql|"
^XMB(3.9,343,2,3828,0)="3828|90191.0000|Lobster IgE RAST Ql|"
^XMB(3.9,343,2,3829,0)="3829|90192.0000|Spiny lobster IgE RAST Ql|"
^XMB(3.9,343,2,3830,0)="3830|90193.0000|Black Locust IgE RAST Ql|"
^XMB(3.9,343,2,3831,0)="3831|90194.0000|Lupin IgE RAST Ql|"
^XMB(3.9,343,2,3832,0)="3832|90195.0000|Lycopodium IgE RAST Ql|"
^XMB(3.9,343,2,3833,0)="3833|90196.0000|Lysozyme IgE RAST Ql|"
^XMB(3.9,343,2,3834,0)="3834|90197.0000|Mackerel IgE RAST Ql|"
^XMB(3.9,343,2,3835,0)="3835|90198.0000|Chub Mackerl IgE RAST Ql|"
^XMB(3.9,343,2,3836,0)="3836|90199.0000|Scad IgE RAST Ql|"
^XMB(3.9,343,2,3837,0)="3837|90200.0000|Malt IgE RAST Ql|"
^XMB(3.9,343,2,3838,0)="3838|90201.0000|Mango IgE RAST Ql|"
^XMB(3.9,343,2,3839,0)="3839|90202.0000|Coastal Maple IgE RAST Ql|"
^XMB(3.9,343,2,3840,0)="3840|90203.0000|Red Maple IgE RAST Ql|"
^XMB(3.9,343,2,3841,0)="3841|90204.0000|Silver Maple IgE RAST Ql|"
^XMB(3.9,343,2,3842,0)="3842|90205.0000|Sugar Maple IgE RAST Ql|"
^XMB(3.9,343,2,3843,0)="3843|90206.0000|Mare Milk IgE RAST Ql|"
^XMB(3.9,343,2,3844,0)="3844|90207.0000|Marjoram IgE RAST Ql|"
^XMB(3.9,343,2,3845,0)="3845|90208.0000|Maxatase IgE RAST Ql|"
^XMB(3.9,343,2,3846,0)="3846|90209.0000|Whiff IgE RAST Ql|"
^XMB(3.9,343,2,3847,0)="3847|90210.0000|Cajeput tree IgE RAST Ql|"
^XMB(3.9,343,2,3848,0)="3848|90211.0000|Mesquite IgE RAST Ql|"
^XMB(3.9,343,2,3849,0)="3849|90212.0000|Mexican tea IgE RAST Ql|"
^XMB(3.9,343,2,3850,0)="3850|90213.0000|Green Nimitti IgE RAST Ql|"
^XMB(3.9,343,2,3851,0)="3851|90214.0000|Milk IgE RAST Ql|"
^XMB(3.9,343,2,3852,0)="3852|90215.0000|Cow Milk Boiled IgE RAST Ql|"
^XMB(3.9,343,2,3853,0)="3853|90216.0000|Milk Powder IgE RAST Ql|"
^XMB(3.9,343,2,3854,0)="3854|90217.0000|Common Millet IgE RAST Ql|"
^XMB(3.9,343,2,3855,0)="3855|90218.0000|Foxtail Millet IgE RAST Ql|"
^XMB(3.9,343,2,3856,0)="3856|90219.0000|Cockspur IgE RAST Ql|"
^XMB(3.9,343,2,3857,0)="3857|90220.0000|Mink Epith IgE RAST Ql|"
^XMB(3.9,343,2,3858,0)="3858|90221.0000|Mint IgE RAST Ql|"
^XMB(3.9,343,2,3859,0)="3859|90222.0000|Cheese Mold IgE RAST Ql|"
^XMB(3.9,343,2,3860,0)="3860|90223.0000|Chrysonilia sitophila IgE RAST Ql|"
^XMB(3.9,343,2,3861,0)="3861|90224.0000|Mosquito IgE RAST Ql|"
^XMB(3.9,343,2,3862,0)="3862|90225.0000|Moth IgE RAST Ql|"
^XMB(3.9,343,2,3863,0)="3863|90226.0000|Med flour moth IgE RAST Ql|"
^XMB(3.9,343,2,3864,0)="3864|90227.0000|Mouse Epith IgE RAST Ql|"
^XMB(3.9,343,2,3865,0)="3865|90228.0000|Mouse Urine Prot IgE RAST Ql|"
^XMB(3.9,343,2,3866,0)="3866|90229.0000|Mucor racemosus IgE RAST Ql|"
^XMB(3.9,343,2,3867,0)="3867|90230.0000|Mugwort IgE RAST Ql|"
^XMB(3.9,343,2,3868,0)="3868|90231.0000|White mulberry IgE RAST Ql|"
^XMB(3.9,343,2,3869,0)="3869|90232.0000|Mushroom IgE RAST Ql|"
^XMB(3.9,343,2,3870,0)="3870|90233.0000|Blue mussel IgE RAST Ql|"
^XMB(3.9,343,2,3871,0)="3871|90234.0000|Mustard IgE RAST Ql|"
^XMB(3.9,343,2,3872,0)="3872|90235.0000|Nectarine IgE RAST Ql|"
^XMB(3.9,343,2,3873,0)="3873|90236.0000|Nettle IgE RAST Ql|"
^XMB(3.9,343,2,3874,0)="3874|90237.0000|Nigrospora sphaerica IgE RAST Ql|"
^XMB(3.9,343,2,3875,0)="3875|90238.0000|Nutmeg IgE RAST Ql|"
^XMB(3.9,343,2,3876,0)="3876|90239.0000|White Oak IgE RAST Ql|"
^XMB(3.9,343,2,3877,0)="3877|90240.0000|Calif Black Oak IgE RAST Ql|"
^XMB(3.9,343,2,3878,0)="3878|90241.0000|Coastal Oak IgE RAST Ql|"
^XMB(3.9,343,2,3879,0)="3879|90242.0000|Gamble Oak IgE RAST Ql|"
^XMB(3.9,343,2,3880,0)="3880|90243.0000|Jerusalem oak IgE RAST Ql|"
^XMB(3.9,343,2,3881,0)="3881|90244.0000|Virg Live Oak IgE RAST Ql|"
^XMB(3.9,343,2,3882,0)="3882|90245.0000|Red Oak IgE RAST Ql|"
^XMB(3.9,343,2,3883,0)="3883|90246.0000|Valley Oak IgE RAST Ql|"
^XMB(3.9,343,2,3884,0)="3884|90247.0000|Oat IgE RAST Ql|"
^XMB(3.9,343,2,3885,0)="3885|90248.0000|Oat Poln IgE RAST Ql|"
^XMB(3.9,343,2,3886,0)="3886|90249.0000|Octopus IgE RAST Ql|"
^XMB(3.9,343,2,3887,0)="3887|90250.0000|Oidiodendrum IgE RAST Ql|"
^XMB(3.9,343,2,3888,0)="3888|90251.0000|Okra IgE RAST Ql|"
^XMB(3.9,343,2,3889,0)="3889|90252.0000|Olive IgE RAST Ql|"
^XMB(3.9,343,2,3890,0)="3890|90253.0000|Olive Poln IgE RAST Ql|"
^XMB(3.9,343,2,3891,0)="3891|90254.0000|Onion IgE RAST Ql|"
^XMB(3.9,343,2,3892,0)="3892|90255.0000|Orange IgE RAST Ql|"
^XMB(3.9,343,2,3893,0)="3893|90256.0000|Oregano IgE RAST Ql|"
^XMB(3.9,343,2,3894,0)="3894|90257.0000|Orris root IgE RAST Ql|"
^XMB(3.9,343,2,3895,0)="3895|90258.0000|Ovalb IgE RAST Ql|"
^XMB(3.9,343,2,3896,0)="3896|90259.0000|Ovomucoid IgE RAST Ql|"
^XMB(3.9,343,2,3897,0)="3897|90260.0000|Oyster IgE RAST Ql|"
^XMB(3.9,343,2,3898,0)="3898|90261.0000|Queen Palm IgE RAST Ql|"
^XMB(3.9,343,2,3899,0)="3899|90262.0000|Pawpaw IgE RAST Ql|"
^XMB(3.9,343,2,3900,0)="3900|90263.0000|Paprika IgE RAST Ql|"
^XMB(3.9,343,2,3901,0)="3901|90264.0000|Parakeet Feather IgE RAST Ql|"
^XMB(3.9,343,2,3902,0)="3902|90265.0000|Au Parrot Drop IgE RAST Ql|"
^XMB(3.9,343,2,3903,0)="3903|90266.0000|Au Parrot Feather IgE RAST Ql|"
^XMB(3.9,343,2,3904,0)="3904|90267.0000|Parrot Drop IgE RAST Ql|"
^XMB(3.9,343,2,3905,0)="3905|90268.0000|Parrot Feather IgE RAST Ql|"
^XMB(3.9,343,2,3906,0)="3906|90269.0000|Parsley IgE RAST Ql|"
^XMB(3.9,343,2,3907,0)="3907|90270.0000|Parsnip IgE RAST Ql|"
^XMB(3.9,343,2,3908,0)="3908|90271.0000|Passion fruit IgE RAST Ql|"
^XMB(3.9,343,2,3909,0)="3909|90272.0000|Pea IgE RAST Ql|"
^XMB(3.9,343,2,3910,0)="3910|90273.0000|Black-eye Bean IgE RAST Ql|"
^XMB(3.9,343,2,3911,0)="3911|90274.0000|Chick Pea IgE RAST Ql|"
^XMB(3.9,343,2,3912,0)="3912|90275.0000|Peach IgE RAST Ql|"
^XMB(3.9,343,2,3913,0)="3913|90276.0000|Peanut IgE RAST Ql|"
^XMB(3.9,343,2,3914,0)="3914|90277.0000|Pear IgE RAST Ql|"
^XMB(3.9,343,2,3915,0)="3915|90278.0000|Penicillin G IgE RAST Ql|"
^XMB(3.9,343,2,3916,0)="3916|90279.0000|Penicillin V IgE RAST Ql|"
^XMB(3.9,343,2,3917,0)="3917|90280.0000|Penicillium frequentans IgE RAST Ql|"
^XMB(3.9,343,2,3918,0)="3918|90281.0000|Penicillium notatum IgE RAST Ql|"
^XMB(3.9,343,2,3919,0)="3919|90282.0000|Black Pepper IgE RAST Ql|"
^XMB(3.9,343,2,3920,0)="3920|90283.0000|Cayenne IgE RAST Ql|"
^XMB(3.9,343,2,3921,0)="3921|90284.0000|Chili Pepper IgE RAST Ql|"
^XMB(3.9,343,2,3922,0)="3922|90285.0000|Green Pepper IgE RAST Ql|"
^XMB(3.9,343,2,3923,0)="3923|90286.0000|Peppertree IgE RAST Ql|"
^XMB(3.9,343,2,3924,0)="3924|90287.0000|Perch IgE RAST Ql|"
^XMB(3.9,343,2,3925,0)="3925|90288.0000|Phoma betae IgE RAST Ql|"
^XMB(3.9,343,2,3926,0)="3926|90289.0000|Phospholipase IgE RAST Ql|"
^XMB(3.9,343,2,3927,0)="3927|90290.0000|PAN IgE RAST Ql|"
^XMB(3.9,343,2,3928,0)="3928|90291.0000|Pigeon Drop IgE RAST Ql|"
^XMB(3.9,343,2,3929,0)="3929|90292.0000|Pigeon Feather IgE RAST Ql|"
^XMB(3.9,343,2,3930,0)="3930|90293.0000|Common Pigweed IgE RAST Ql|"
^XMB(3.9,343,2,3931,0)="3931|90294.0000|Rough Pigweed IgE RAST Ql|"
^XMB(3.9,343,2,3932,0)="3932|90295.0000|Spiny Pigweed IgE RAST Ql|"
^XMB(3.9,343,2,3933,0)="3933|90296.0000|Austrian Pine IgE RAST Ql|"
^XMB(3.9,343,2,3934,0)="3934|90297.0000|Loblolly Pine IgE RAST Ql|"
^XMB(3.9,343,2,3935,0)="3935|90298.0000|Long Leaf Pine IgE RAST Ql|"
^XMB(3.9,343,2,3936,0)="3936|90299.0000|Monterey Pine IgE RAST Ql|"
^XMB(3.9,343,2,3937,0)="3937|90300.0000|Pine Nut IgE RAST Ql|"
^XMB(3.9,343,2,3938,0)="3938|90301.0000|Short Leaf Pine IgE RAST Ql|"
^XMB(3.9,343,2,3939,0)="3939|90302.0000|Slash Pine IgE RAST Ql|"
^XMB(3.9,343,2,3940,0)="3940|90303.0000|Virg Scrub Pine IgE RAST Ql|"
^XMB(3.9,343,2,3941,0)="3941|90304.0000|East White Pine IgE RAST Ql|"
^XMB(3.9,343,2,3942,0)="3942|90305.0000|Pineapple IgE RAST Ql|"
^XMB(3.9,343,2,3943,0)="3943|90306.0000|Pistachio IgE RAST Ql|"
^XMB(3.9,343,2,3944,0)="3944|90307.0000|Malassezia furfur IgE RAST Ql|"
^XMB(3.9,343,2,3945,0)="3945|90308.0000|Plaice IgE RAST Ql|"
^XMB(3.9,343,2,3946,0)="3946|90309.0000|Engl Plantain IgE RAST Ql|"
^XMB(3.9,343,2,3947,0)="3947|90310.0000|Plum IgE RAST Ql|"
^XMB(3.9,343,2,3948,0)="3948|90311.0000|Black Cottonwood IgE RAST Ql|"
^XMB(3.9,343,2,3949,0)="3949|90312.0000|Poppy Seed IgE RAST Ql|"
^XMB(3.9,343,2,3950,0)="3950|90313.0000|Pork IgE RAST Ql|"
^XMB(3.9,343,2,3951,0)="3951|90314.0000|Potato IgE RAST Ql|"
^XMB(3.9,343,2,3952,0)="3952|90315.0000|Sweet potato IgE RAST Ql|"
^XMB(3.9,343,2,3953,0)="3953|90316.0000|Povertyweed IgE RAST Ql|"
^XMB(3.9,343,2,3954,0)="3954|90317.0000|Privet IgE RAST Ql|"
^XMB(3.9,343,2,3955,0)="3955|90318.0000|Protamine IgE RAST Ql|"
^XMB(3.9,343,2,3956,0)="3956|90319.0000|Prune IgE RAST Ql|"
^XMB(3.9,343,2,3957,0)="3957|90320.0000|Psyllium seed IgE RAST Ql|"
^XMB(3.9,343,2,3958,0)="3958|90321.0000|Aureobasidium pullulans IgE RAST Ql|"
^XMB(3.9,343,2,3959,0)="3959|90322.0000|Pumpkin IgE RAST Ql|"
^XMB(3.9,343,2,3960,0)="3960|90323.0000|Pumpkin Seed IgE RAST Ql|"
^XMB(3.9,343,2,3961,0)="3961|90324.0000|Pyrethrum IgE RAST Ql|"
^XMB(3.9,343,2,3962,0)="3962|90325.0000|Rabbit Meat IgE RAST Ql|"
^XMB(3.9,343,2,3963,0)="3963|90326.0000|Rabbit Bush IgE RAST Ql|"
^XMB(3.9,343,2,3964,0)="3964|90327.0000|Rabbit Epith IgE RAST Ql|"
^XMB(3.9,343,2,3965,0)="3965|90328.0000|Rabbit Urine Prot IgE RAST Ql|"
^XMB(3.9,343,2,3966,0)="3966|90329.0000|Radish IgE RAST Ql|"
^XMB(3.9,343,2,3967,0)="3967|90330.0000|Common Ragweed IgE RAST Ql|"
^XMB(3.9,343,2,3968,0)="3968|90331.0000|Desert Ragweed IgE RAST Ql|"
^XMB(3.9,343,2,3969,0)="3969|90332.0000|Franseria acanthicarpa IgE RAST Ql|"
^XMB(3.9,343,2,3970,0)="3970|90333.0000|Giant Ragweed IgE RAST Ql|"
^XMB(3.9,343,2,3971,0)="3971|90334.0000|Short Ragweed IgE RAST Ql|"
^XMB(3.9,343,2,3972,0)="3972|90335.0000|Southern Ragweed IgE RAST Ql|"
^XMB(3.9,343,2,3973,0)="3973|90336.0000|West Ragweed IgE RAST Ql|"
^XMB(3.9,343,2,3974,0)="3974|90337.0000|Rapeseed IgE RAST Ql|"
^XMB(3.9,343,2,3975,0)="3975|90338.0000|Raspberry IgE RAST Ql|"
^XMB(3.9,343,2,3976,0)="3976|90339.0000|Rat Epith IgE RAST Ql|"
^XMB(3.9,343,2,3977,0)="3977|90340.0000|Rat Urine Prot IgE RAST Ql|"
^XMB(3.9,343,2,3978,0)="3978|90341.0000|Redwood IgE RAST Ql|"
^XMB(3.9,343,2,3979,0)="3979|90342.0000|Canary grass IgE RAST Ql|"
^XMB(3.9,343,2,3980,0)="3980|90343.0000|Common Reed IgE RAST Ql|"
^XMB(3.9,343,2,3981,0)="3981|90344.0000|Reindeer Epith IgE RAST Ql|"
^XMB(3.9,343,2,3982,0)="3982|90345.0000|Rhizopus nigricans IgE RAST Ql|"
^XMB(3.9,343,2,3983,0)="3983|90346.0000|Rhodatorula IgE RAST Ql|"
^XMB(3.9,343,2,3984,0)="3984|90347.0000|Rhubarb IgE RAST Ql|"
^XMB(3.9,343,2,3985,0)="3985|90348.0000|Rice IgE RAST Ql|"
^XMB(3.9,343,2,3986,0)="3986|90349.0000|Wild Rice IgE RAST Ql|"
^XMB(3.9,343,2,3987,0)="3987|90350.0000|Rose Hip IgE RAST Ql|"
^XMB(3.9,343,2,3988,0)="3988|90351.0000|Cultivated Rye IgE RAST Ql|"
^XMB(3.9,343,2,3989,0)="3989|90352.0000|Rye IgE RAST Ql|"
^XMB(3.9,343,2,3990,0)="3990|90353.0000|Safflower IgE RAST Ql|"
^XMB(3.9,343,2,3991,0)="3991|90354.0000|Sage IgE RAST Ql|"
^XMB(3.9,343,2,3992,0)="3992|90355.0000|Sagbrsh IgE RAST Ql|"
^XMB(3.9,343,2,3993,0)="3993|90356.0000|Saline Fish Feed IgE RAST Ql|"
^XMB(3.9,343,2,3994,0)="3994|90357.0000|Salmon IgE RAST Ql|"
^XMB(3.9,343,2,3995,0)="3995|90358.0000|Saltbush IgE RAST Ql|"
^XMB(3.9,343,2,3996,0)="3996|90359.0000|Sardine (pilchard) IgE RAST Ql|"
^XMB(3.9,343,2,3997,0)="3997|90360.0000|Savinase IgE RAST Ql|"
^XMB(3.9,343,2,3998,0)="3998|90361.0000|Scallop IgE RAST Ql|"
^XMB(3.9,343,2,3999,0)="3999|90362.0000|Scotch broom IgE RAST Ql|"
^XMB(3.9,343,2,4000,0)="4000|90363.0000|Sericin IgE RAST Ql|"
^XMB(3.9,343,2,4001,0)="4001|90364.0000|Sesame Seed IgE RAST Ql|"
^XMB(3.9,343,2,4002,0)="4002|90365.0000|Sheep Epith IgE RAST Ql|"
^XMB(3.9,343,2,4003,0)="4003|90366.0000|Sheep Sorrel IgE RAST Ql|"
^XMB(3.9,343,2,4004,0)="4004|90367.0000|Sheep Wool IgE RAST Ql|"
^XMB(3.9,343,2,4005,0)="4005|90368.0000|Shrimp IgE RAST Ql|"
^XMB(3.9,343,2,4006,0)="4006|90369.0000|Silk IgE RAST Ql|"
^XMB(3.9,343,2,4007,0)="4007|90370.0000|Silk Waste IgE RAST Ql|"
^XMB(3.9,343,2,4008,0)="4008|90371.0000|Silver IgE RAST Ql|"
^XMB(3.9,343,2,4009,0)="4009|90372.0000|Bermuda grass Smut IgE RAST Ql|"
^XMB(3.9,343,2,4010,0)="4010|90373.0000|Johnson grass Smut IgE RAST Ql|"
^XMB(3.9,343,2,4011,0)="4011|90374.0000|Escargot IgE RAST Ql|"
^XMB(3.9,343,2,4012,0)="4012|90375.0000|Red Snapper IgE RAST Ql|"
^XMB(3.9,343,2,4013,0)="4013|90376.0000|Sole IgE RAST Ql|"
^XMB(3.9,343,2,4014,0)="4014|90377.0000|Spinach IgE RAST Ql|"
^XMB(3.9,343,2,4015,0)="4015|90378.0000|Spondylocladium citrovirens IgE RAST Ql|"
^XMB(3.9,343,2,4016,0)="4016|90379.0000|Spruce IgE RAST Ql|"
^XMB(3.9,343,2,4017,0)="4017|90380.0000|Squash IgE RAST Ql|"
^XMB(3.9,343,2,4018,0)="4018|90381.0000|Squid IgE RAST Ql|"
^XMB(3.9,343,2,4019,0)="4019|90382.0000|Pacific Squid IgE RAST Ql|"
^XMB(3.9,343,2,4020,0)="4020|90383.0000|Stemphylium botryosum IgE RAST Ql|"
^XMB(3.9,343,2,4021,0)="4021|90384.0000|Stemphylium solani IgE RAST Ql|"
^XMB(3.9,343,2,4022,0)="4022|90385.0000|Acarus siro IgE RAST Ql|"
^XMB(3.9,343,2,4023,0)="4023|90386.0000|Tyrophagus putrescentiae IgE RAST Ql|"
^XMB(3.9,343,2,4024,0)="4024|90387.0000|Strawberry IgE RAST Ql|"
^XMB(3.9,343,2,4025,0)="4025|90388.0000|Succinylcholine IgE RAST Ql|"
^XMB(3.9,343,2,4026,0)="4026|90389.0000|Sugar Cane IgE RAST Ql|"
^XMB(3.9,343,2,4027,0)="4027|90390.0000|Sunflower Poln IgE RAST Ql|"
^XMB(3.9,343,2,4028,0)="4028|90391.0000|Sunflower Seed IgE RAST Ql|"
^XMB(3.9,343,2,4029,0)="4029|90392.0000|Swine Epith IgE RAST Ql|"
^XMB(3.9,343,2,4030,0)="4030|90393.0000|Swine Urine Prot IgE RAST Ql|"
^XMB(3.9,343,2,4031,0)="4031|90394.0000|Swordfish IgE RAST Ql|"
^XMB(3.9,343,2,4032,0)="4032|90395.0000|American Sycamore IgE RAST Ql|"
^XMB(3.9,343,2,4033,0)="4033|90396.0000|Mandarin IgE RAST Ql|"
^XMB(3.9,343,2,4034,0)="4034|90397.0000|Tapioca IgE RAST Ql|"
^XMB(3.9,343,2,4035,0)="4035|90398.0000|Tarragon IgE RAST Ql|"
^XMB(3.9,343,2,4036,0)="4036|90399.0000|Tea IgE RAST Ql|"
^XMB(3.9,343,2,4037,0)="4037|90400.0000|Tetramin IgE RAST Ql|"
^XMB(3.9,343,2,4038,0)="4038|90401.0000|Saltwort IgE RAST Ql|"
^XMB(3.9,343,2,4039,0)="4039|90402.0000|Thyme IgE RAST Ql|"
^XMB(3.9,343,2,4040,0)="4040|90403.0000|Timothy IgE RAST Ql|"
^XMB(3.9,343,2,4041,0)="4041|90404.0000|Cigarette Tobacco IgE RAST Ql|"
^XMB(3.9,343,2,4042,0)="4042|90405.0000|Tobacco IgE RAST Ql|"
^XMB(3.9,343,2,4043,0)="4043|90406.0000|Tomato IgE RAST Ql|"
^XMB(3.9,343,2,4044,0)="4044|90407.0000|Tragacanth IgE RAST Ql|"
^XMB(3.9,343,2,4045,0)="4045|90408.0000|Trichoderma viride IgE RAST Ql|"
^XMB(3.9,343,2,4046,0)="4046|90409.0000|Trichophyton IgE RAST Ql|"
^XMB(3.9,343,2,4047,0)="4047|90410.0000|Trichophyton rubrum IgE RAST Ql|"
^XMB(3.9,343,2,4048,0)="4048|90411.0000|Trichosporon IgE RAST Ql|"
^XMB(3.9,343,2,4049,0)="4049|90412.0000|TMA IgE RAST Ql|"
^XMB(3.9,343,2,4050,0)="4050|90413.0000|Trout IgE RAST Ql|"
^XMB(3.9,343,2,4051,0)="4051|90414.0000|Tuna IgE RAST Ql|"
^XMB(3.9,343,2,4052,0)="4052|90415.0000|Turkey Meat IgE RAST Ql|"
^XMB(3.9,343,2,4053,0)="4053|90416.0000|Turnip IgE RAST Ql|"
^XMB(3.9,343,2,4054,0)="4054|90417.0000|Ulocladium chartarum IgE RAST Ql|"
^XMB(3.9,343,2,4055,0)="4055|90418.0000|Barley Smut IgE RAST Ql|"
^XMB(3.9,343,2,4056,0)="4056|90419.0000|Vanilla IgE RAST Ql|"
^XMB(3.9,343,2,4057,0)="4057|90420.0000|Veal IgE RAST Ql|"
^XMB(3.9,343,2,4058,0)="4058|90421.0000|Pellitory IgE RAST Ql|"
^XMB(3.9,343,2,4059,0)="4059|90422.0000|Walnut IgE RAST Ql|"
^XMB(3.9,343,2,4060,0)="4060|90423.0000|Black Walnut IgE RAST Ql|"
^XMB(3.9,343,2,4061,0)="4061|90424.0000|Black Walnut Poln IgE RAST Ql|"
^XMB(3.9,343,2,4062,0)="4062|90425.0000|Eng Walnut Poln IgE RAST Ql|"
^XMB(3.9,343,2,4063,0)="4063|90426.0000|Calif Walnut Poln IgE RAST Ql|"
^XMB(3.9,343,2,4064,0)="4064|90427.0000|Paper Wasp IgE RAST Ql|"
^XMB(3.9,343,2,4065,0)="4065|90428.0000|Yellow Jacket IgE RAST Ql|"
^XMB(3.9,343,2,4066,0)="4066|90429.0000|Watermelon IgE RAST Ql|"
^XMB(3.9,343,2,4067,0)="4067|90430.0000|Grain Weevel IgE RAST Ql|"
^XMB(3.9,343,2,4068,0)="4068|90431.0000|Wheat IgE RAST Ql|"
^XMB(3.9,343,2,4069,0)="4069|90432.0000|Cultivated Wheat IgE RAST Ql|"
^XMB(3.9,343,2,4070,0)="4070|90433.0000|Wheat Stem Rust IgE RAST Ql|"
^XMB(3.9,343,2,4071,0)="4071|90434.0000|Cow Whey IgE RAST Ql|"
^XMB(3.9,343,2,4072,0)="4072|90435.0000|Whitefish IgE RAST Ql|"
^XMB(3.9,343,2,4073,0)="4073|90436.0000|Willow IgE RAST Ql|"
^XMB(3.9,343,2,4074,0)="4074|90437.0000|Black Willow IgE RAST Ql|"
^XMB(3.9,343,2,4075,0)="4075|90438.0000|Pussy Willow IgE RAST Ql|"
^XMB(3.9,343,2,4076,0)="4076|90439.0000|Wingscale IgE RAST Ql|"
^XMB(3.9,343,2,4077,0)="4077|90440.0000|Wormwood IgE RAST Ql|"
^XMB(3.9,343,2,4078,0)="4078|90441.0000|Yeast IgE RAST Ql|"
^XMB(3.9,343,2,4079,0)="4079|90442.0000|Bakers Yeast IgE RAST Ql|"
^XMB(3.9,343,2,4080,0)="4080|90443.0000|Brewers Yeast IgE RAST Ql|"
^XMB(3.9,343,2,4081,0)="4081|90444.0000|Cumin IgE|"
^XMB(3.9,343,2,4082,0)="4082|90445.0000|Bovine Gelatin IgE|"
^XMB(3.9,343,2,4083,0)="4083|90446.0000|Porcine Gelatin IgE|"
^XMB(3.9,343,2,4084,0)="4084|90447.0000|Paper Mulberry IgE|"
^XMB(3.9,343,2,4085,0)="4085|90448.0000|Pheasant IgE|"
^XMB(3.9,343,2,4086,0)="4086|90449.0000|17OHP 45M p 250 ug ACTH IM|"
^XMB(3.9,343,2,4087,0)="4087|90450.0000|Bab microti IgG Titer|"
^XMB(3.9,343,2,4088,0)="4088|90451.0000|Bab microti IgM Titer|"
^XMB(3.9,343,2,4089,0)="4089|90452.0000|Brucella abortus IgG Titer|"
^XMB(3.9,343,2,4090,0)="4090|90453.0000|Brucella abortus IgM Titer|"
^XMB(3.9,343,2,4091,0)="4091|90454.0000|CTPV IgG Titer|"
^XMB(3.9,343,2,4092,0)="4092|90455.0000|CTPV IgM Titer|"
^XMB(3.9,343,2,4093,0)="4093|90456.0000|Cryptoc Ab Titer|"
^XMB(3.9,343,2,4094,0)="4094|90457.0000|Hepatitis C IgG|"
^XMB(3.9,343,2,4095,0)="4095|90458.0000|HIV1 p15+p18 Ab|"
^XMB(3.9,343,2,4096,0)="4096|90459.0000|Legionella pneumo IgM Titer|"
^XMB(3.9,343,2,4097,0)="4097|90460.0000|B2 Glycoprot1 IgG|"
^XMB(3.9,343,2,4098,0)="4098|90461.0000|B2 Glycoprot1 IgM|"
^XMB(3.9,343,2,4099,0)="4099|90462.0000|GM1 Monosialo IgA Titer|"
^XMB(3.9,343,2,4100,0)="4100|90463.0000|Droperidol|"
^XMB(3.9,343,2,4101,0)="4101|90464.0000|Psilocin|"
^XMB(3.9,343,2,4102,0)="4102|90465.0000|CarboxyTHC|"
^XMB(3.9,343,2,4103,0)="4103|90466.0000|Dechlorane|"
^XMB(3.9,343,2,4104,0)="4104|90467.0000|Glucose 10 AM|"
^XMB(3.9,343,2,4105,0)="4105|90468.0000|Glucose 11 AM|"
^XMB(3.9,343,2,4106,0)="4106|90469.0000|Glucose 2 PM|"
^XMB(3.9,343,2,4107,0)="4107|90470.0000|Glucose 3 PM|"
^XMB(3.9,343,2,4108,0)="4108|90471.0000|Glucose 4 PM|"
^XMB(3.9,343,2,4109,0)="4109|90472.0000|Glucose 5 PM|"
^XMB(3.9,343,2,4110,0)="4110|90473.0000|Creat 2H sp|"
^XMB(3.9,343,2,4111,0)="4111|90474.0000|Creat 4H sp|"
^XMB(3.9,343,2,4112,0)="4112|90475.0000|OH-Ethylfluraz|"
^XMB(3.9,343,2,4113,0)="4113|90476.0000|Free6MAM|"
^XMB(3.9,343,2,4114,0)="4114|90477.0000|PV Ab|"
^XMB(3.9,343,2,4115,0)="4115|90478.0000|GM1 Monosialo IgG+IgM|"
^XMB(3.9,343,2,4116,0)="4116|90479.0000|GM1 Monosialo Ab|"
^XMB(3.9,343,2,4117,0)="4117|90480.0000|11OH-Androsteron|"
^XMB(3.9,343,2,4118,0)="4118|90481.0000|Acrylamide|"
^XMB(3.9,343,2,4119,0)="4119|90482.0000|Acyclovir SBT|"
^XMB(3.9,343,2,4120,0)="4120|90483.0000|Biperiden|"
^XMB(3.9,343,2,4121,0)="4121|90484.0000|ALT/AST|"
^XMB(3.9,343,2,4122,0)="4122|90485.0000|Amantadine SBT|"
^XMB(3.9,343,2,4123,0)="4123|90486.0000|Amitrip Peak|"
^XMB(3.9,343,2,4124,0)="4124|90487.0000|Amitrip Trough|"
^XMB(3.9,343,2,4125,0)="4125|90488.0000|Diethylpropion|"
^XMB(3.9,343,2,4126,0)="4126|90489.0000|Amyl Nitrite|"
^XMB(3.9,343,2,4127,0)="4127|90490.0000|Antidepressants|"
^XMB(3.9,343,2,4128,0)="4128|90491.0000|Vitamin C p dose|"
^XMB(3.9,343,2,4129,0)="4129|90492.0000|Aspergillus amstelodami Ab|"
^XMB(3.9,343,2,4130,0)="4130|90493.0000|Aspergillus terreus Ab|"
^XMB(3.9,343,2,4131,0)="4131|90494.0000|Aspergillus versicolor Ab|"
^XMB(3.9,343,2,4132,0)="4132|90495.0000|Babesia IgM|"
^XMB(3.9,343,2,4133,0)="4133|90496.0000|Bab microti Ab Titer|"
^XMB(3.9,343,2,4134,0)="4134|90497.0000|Navy Bean IgE|"
^XMB(3.9,343,2,4135,0)="4135|90498.0000|String Bean IgE|"
^XMB(3.9,343,2,4136,0)="4136|90499.0000|Benzene Ring IgE|"
^XMB(3.9,343,2,4137,0)="4137|90500.0000|Benzene Ring IgG|"
^XMB(3.9,343,2,4138,0)="4138|90501.0000|Benzene Ring IgM|"
^XMB(3.9,343,2,4139,0)="4139|90502.0000|Benzonatate|"
^XMB(3.9,343,2,4140,0)="4140|90503.0000|Benzophenone|"
^XMB(3.9,343,2,4141,0)="4141|90504.0000|Benzthiazide|"
^XMB(3.9,343,2,4142,0)="4142|90505.0000|Benzylhydrazine|"
^XMB(3.9,343,2,4143,0)="4143|90506.0000|Bethanechol|"
^XMB(3.9,343,2,4144,0)="4144|90507.0000|Di-OH Bile Ac|"
^XMB(3.9,343,2,4145,0)="4145|90508.0000|Tri-OH Bile Ac|"
^XMB(3.9,343,2,4146,0)="4146|90509.0000|Blastomyces dermat rRNA|"
^XMB(3.9,343,2,4147,0)="4147|90510.0000|Borrelia burgdor IgA|"
^XMB(3.9,343,2,4148,0)="4148|90511.0000|Boysenberrry IgE|"
^XMB(3.9,343,2,4149,0)="4149|90512.0000|Brucella abortus IgA+IgG+IgM|"
^XMB(3.9,343,2,4150,0)="4150|90513.0000|Calcium/Phosphate|"
^XMB(3.9,343,2,4151,0)="4151|90514.0000|Calcium/Prot|"
^XMB(3.9,343,2,4152,0)="4152|90515.0000|Calcium/Sodium|"
^XMB(3.9,343,2,4153,0)="4153|90516.0000|Campylobacter coli rRNA|"
^XMB(3.9,343,2,4154,0)="4154|90517.0000|Campylobacter jejuni rRNA|"
^XMB(3.9,343,2,4155,0)="4155|90518.0000|Campylobacter lari rRNA|"
^XMB(3.9,343,2,4156,0)="4156|90519.0000|Campylobacter rRNA|"
^XMB(3.9,343,2,4157,0)="4157|90520.0000|Canary Drop IgE|"
^XMB(3.9,343,2,4158,0)="4158|90521.0000|Candida Ag|"
^XMB(3.9,343,2,4159,0)="4159|90522.0000|Cathepsin D %|"
^XMB(3.9,343,2,4160,0)="4160|90523.0000|Cefuroxime IgE|"
^XMB(3.9,343,2,4161,0)="4161|90524.0000|Ceftriaxone IgE|"
^XMB(3.9,343,2,4162,0)="4162|90525.0000|Cephadrine|"
^XMB(3.9,343,2,4163,0)="4163|90526.0000|Chlamydia trach B IgG|"
^XMB(3.9,343,2,4164,0)="4164|90527.0000|Chlamydia trach C IgG|"
^XMB(3.9,343,2,4165,0)="4165|90528.0000|Chloramphen Peak|"
^XMB(3.9,343,2,4166,0)="4166|90529.0000|Chloramphen Trough|"
^XMB(3.9,343,2,4167,0)="4167|90530.0000|Cholest/LDLc|"
^XMB(3.9,343,2,4168,0)="4168|90531.0000|HDLc/LDLc|"
^XMB(3.9,343,2,4169,0)="4169|90532.0000|Cladosporium herbarum Ab|"
^XMB(3.9,343,2,4170,0)="4170|90533.0000|Clindamycin Peak|"
^XMB(3.9,343,2,4171,0)="4171|90534.0000|Clindamycin Trough|"
^XMB(3.9,343,2,4172,0)="4172|90535.0000|Clostridium tetani Ab sp1|"
^XMB(3.9,343,2,4173,0)="4173|90536.0000|Clostridium tetani Ab sp2|"
^XMB(3.9,343,2,4174,0)="4174|90537.0000|Coccidioides immitis IgE|"
^XMB(3.9,343,2,4175,0)="4175|90538.0000|Cockatiel Drop Ab|"
^XMB(3.9,343,2,4176,0)="4176|90539.0000|Cockatiel Drop IgG|"
^XMB(3.9,343,2,4177,0)="4177|90540.0000|Cockatoo Drop Ab|"
^XMB(3.9,343,2,4178,0)="4178|90541.0000|Cilantro IgE|"
^XMB(3.9,343,2,4179,0)="4179|90542.0000|Coxiella burnet IgG|"
^XMB(3.9,343,2,4180,0)="4180|90543.0000|Coxiella burnet IgM|"
^XMB(3.9,343,2,4181,0)="4181|90544.0000|CV A Ab|"
^XMB(3.9,343,2,4182,0)="4182|90545.0000|CV A IgG|"
^XMB(3.9,343,2,4183,0)="4183|90546.0000|CV A IgM|"
^XMB(3.9,343,2,4184,0)="4184|90547.0000|CV B Ab|"
^XMB(3.9,343,2,4185,0)="4185|90548.0000|CV B IgG|"
^XMB(3.9,343,2,4186,0)="4186|90549.0000|CV B IgM|"
^XMB(3.9,343,2,4187,0)="4187|90550.0000|Cyproheptadine|"
^XMB(3.9,343,2,4188,0)="4188|90551.0000|CMV IgG sp2|"
^XMB(3.9,343,2,4189,0)="4189|90552.0000|DHEA Free|"
^XMB(3.9,343,2,4190,0)="4190|90553.0000|DHEA BS|"
^XMB(3.9,343,2,4191,0)="4191|90554.0000|DENV1 Ab Titer|"
^XMB(3.9,343,2,4192,0)="4192|90555.0000|DENV2 Ab Titer|"
^XMB(3.9,343,2,4193,0)="4193|90556.0000|DENV3 Ab Titer|"
^XMB(3.9,343,2,4194,0)="4194|90557.0000|DENV4 Ab Titer|"
^XMB(3.9,343,2,4195,0)="4195|90558.0000|Nortrimipramine|"
^XMB(3.9,343,2,4196,0)="4196|90559.0000|D-moramide|"
^XMB(3.9,343,2,4197,0)="4197|90560.0000|Dezocine|"
^XMB(3.9,343,2,4198,0)="4198|90561.0000|DAM|"
^XMB(3.9,343,2,4199,0)="4199|90562.0000|Dicamba|"
^XMB(3.9,343,2,4200,0)="4200|90563.0000|Dicyclomine|"
^XMB(3.9,343,2,4201,0)="4201|90564.0000|DiethyCBZ|"
^XMB(3.9,343,2,4202,0)="4202|90565.0000|Dinitrophenol|"
^XMB(3.9,343,2,4203,0)="4203|90566.0000|ECV Ab|"
^XMB(3.9,343,2,4204,0)="4204|90567.0000|ECV14 Ab|"
^XMB(3.9,343,2,4205,0)="4205|90568.0000|ECV6+18+30 Ab|"
^XMB(3.9,343,2,4206,0)="4206|90569.0000|Ehrlichia equi IgG|"
^XMB(3.9,343,2,4207,0)="4207|90570.0000|Ehrlichia equi IgM|"
^XMB(3.9,343,2,4208,0)="4208|90571.0000|Eicosanoate|"
^XMB(3.9,343,2,4209,0)="4209|90572.0000|Ethacrynate|"
^XMB(3.9,343,2,4210,0)="4210|90573.0000|Ethoheptazine|"
^XMB(3.9,343,2,4211,0)="4211|90574.0000|Etodolac|"
^XMB(3.9,343,2,4212,0)="4212|90575.0000|Finch Drop IgE Ql|"
^XMB(3.9,343,2,4213,0)="4213|90576.0000|Fluorocarbons|"
^XMB(3.9,343,2,4214,0)="4214|90577.0000|Francisella tular Ag|"
^XMB(3.9,343,2,4215,0)="4215|90578.0000|Glucose p meal|"
^XMB(3.9,343,2,4216,0)="4216|90579.0000|Glutathione|"
^XMB(3.9,343,2,4217,0)="4217|90580.0000|Glycoprots|"
^XMB(3.9,343,2,4218,0)="4218|90581.0000|Saint Augustine grass IgE|"
^XMB(3.9,343,2,4219,0)="4219|90582.0000|Wild rye grass IgE|"
^XMB(3.9,343,2,4220,0)="4220|90583.0000|Guaifenesin|"
^XMB(3.9,343,2,4221,0)="4221|90584.0000|Haem influ IgG|"
^XMB(3.9,343,2,4222,0)="4222|90585.0000|PUUV IgG+IgM|"
^XMB(3.9,343,2,4223,0)="4223|90586.0000|Worm IgE|"
^XMB(3.9,343,2,4224,0)="4224|90587.0000|Hepatitis G RNA|"
^XMB(3.9,343,2,4225,0)="4225|90588.0000|HSV IgM|"
^XMB(3.9,343,2,4226,0)="4226|90589.0000|HSV1 IgG sp1|"
^XMB(3.9,343,2,4227,0)="4227|90590.0000|HSV1 IgG sp2|"
^XMB(3.9,343,2,4228,0)="4228|90591.0000|HSV1 DNA|"
^XMB(3.9,343,2,4229,0)="4229|90592.0000|HSV2 IgG sp1|"
^XMB(3.9,343,2,4230,0)="4230|90593.0000|HSV2 IgG sp2|"
^XMB(3.9,343,2,4231,0)="4231|90594.0000|HSV2 DNA|"
^XMB(3.9,343,2,4232,0)="4232|90595.0000|Histone H2a+H2b Ab|"
^XMB(3.9,343,2,4233,0)="4233|90596.0000|Histoplasma capsul IgE|"
^XMB(3.9,343,2,4234,0)="4234|90597.0000|HIV1 IgG|"
^XMB(3.9,343,2,4235,0)="4235|90598.0000|OH-Triazolam|"
^XMB(3.9,343,2,4236,0)="4236|90599.0000|IgG/B-Tubulin|"
^XMB(3.9,343,2,4237,0)="4237|90600.0000|FLUB IgG|"
^XMB(3.9,343,2,4238,0)="4238|90601.0000|FLUB IgM|"
^XMB(3.9,343,2,4239,0)="4239|90602.0000|Il1+2|"
^XMB(3.9,343,2,4240,0)="4240|90603.0000|Inorg Iodine|"
^XMB(3.9,343,2,4241,0)="4241|90604.0000|Isocyanate IgE|"
^XMB(3.9,343,2,4242,0)="4242|90605.0000|Isocyanate IgG|"
^XMB(3.9,343,2,4243,0)="4243|90606.0000|Isocyanate IgM|"
^XMB(3.9,343,2,4244,0)="4244|90607.0000|Ketoprofen|"
^XMB(3.9,343,2,4245,0)="4245|90608.0000|Ketorolac|"
^XMB(3.9,343,2,4246,0)="4246|90609.0000|LACV Ab Titer|"
^XMB(3.9,343,2,4247,0)="4247|90610.0000|Lactoglob IgE|"
^XMB(3.9,343,2,4248,0)="4248|90611.0000|Ltx IgG|"
^XMB(3.9,343,2,4249,0)="4249|90612.0000|Ltx Bencard IgE|"
^XMB(3.9,343,2,4250,0)="4250|90613.0000|Legionella longbeachae1 IgG|"
^XMB(3.9,343,2,4251,0)="4251|90614.0000|Legionella longbeachae1 IgM|"
^XMB(3.9,343,2,4252,0)="4252|90615.0000|Legionella longbeachae2 IgG|"
^XMB(3.9,343,2,4253,0)="4253|90616.0000|Legionella longbeachae2 IgM|"
^XMB(3.9,343,2,4254,0)="4254|90617.0000|Legionella pneumo1 IgM|"
^XMB(3.9,343,2,4255,0)="4255|90618.0000|Legionella pneumo2 IgM|"
^XMB(3.9,343,2,4256,0)="4256|90619.0000|Legionella pneumo3 IgM|"
^XMB(3.9,343,2,4257,0)="4257|90620.0000|Legionella pneumo4 IgM|"
^XMB(3.9,343,2,4258,0)="4258|90621.0000|Legionella pneumo5 IgM|"
^XMB(3.9,343,2,4259,0)="4259|90622.0000|Legionella pneumo7 Ab|"
^XMB(3.9,343,2,4260,0)="4260|90623.0000|Legionella pneumo8 Ab|"
^XMB(3.9,343,2,4261,0)="4261|90624.0000|Legionella pneumo9 Ab|"
^XMB(3.9,343,2,4262,0)="4262|90625.0000|LCFA|"
^XMB(3.9,343,2,4263,0)="4263|90626.0000|Loperamide|"
^XMB(3.9,343,2,4264,0)="4264|90627.0000|Lorcainide|"
^XMB(3.9,343,2,4265,0)="4265|90628.0000|Loxapine+8OH-Lox|"
^XMB(3.9,343,2,4266,0)="4266|90629.0000|Lumpfish Roe IgE|"
^XMB(3.9,343,2,4267,0)="4267|90630.0000|Malignin Ab|"
^XMB(3.9,343,2,4268,0)="4268|90631.0000|Prolactin pre chal|"
^XMB(3.9,343,2,4269,0)="4269|90632.0000|Mefenamate|"
^XMB(3.9,343,2,4270,0)="4270|90633.0000|Melanin|"
^XMB(3.9,343,2,4271,0)="4271|90634.0000|Metandienone|"
^XMB(3.9,343,2,4272,0)="4272|90635.0000|LA Methadone Metab|"
^XMB(3.9,343,2,4273,0)="4273|90636.0000|Me-acrylate|"
^XMB(3.9,343,2,4274,0)="4274|90637.0000|Me-ergonovine|"
^XMB(3.9,343,2,4275,0)="4275|90638.0000|Me-fentanyl|"
^XMB(3.9,343,2,4276,0)="4276|90639.0000|Metolazone|"
^XMB(3.9,343,2,4277,0)="4277|90640.0000|Minoxidil|"
^XMB(3.9,343,2,4278,0)="4278|90641.0000|MSG IgE|"
^XMB(3.9,343,2,4279,0)="4279|90642.0000|MuV IgG+IgM|"
^XMB(3.9,343,2,4280,0)="4280|90643.0000|Mycoplasma fermentans Ab|"
^XMB(3.9,343,2,4281,0)="4281|90644.0000|Mycoplasma hominis Ab Titer|"
^XMB(3.9,343,2,4282,0)="4282|90645.0000|Mycoplasma hominis Ab|"
^XMB(3.9,343,2,4283,0)="4283|90646.0000|Mycoplasma pneumo IgG+IgM|"
^XMB(3.9,343,2,4284,0)="4284|90647.0000|MAG IgA|"
^XMB(3.9,343,2,4285,0)="4285|90648.0000|MAG IgG|"
^XMB(3.9,343,2,4286,0)="4286|90649.0000|MBP Ab|"
^XMB(3.9,343,2,4287,0)="4287|90650.0000|Neisseria men Ab|"
^XMB(3.9,343,2,4288,0)="4288|90651.0000|Neisseria men B Ab|"
^XMB(3.9,343,2,4289,0)="4289|90652.0000|Neisseria men Polyval Ab|"
^XMB(3.9,343,2,4290,0)="4290|90653.0000|Neisseria men W135 Ag|"
^XMB(3.9,343,2,4291,0)="4291|90654.0000|Neostigmine|"
^XMB(3.9,343,2,4292,0)="4292|90655.0000|Neutrophil IgA|"
^XMB(3.9,343,2,4293,0)="4293|90656.0000|Neutrophil IgG|"
^XMB(3.9,343,2,4294,0)="4294|90657.0000|Neutrophil IgM|"
^XMB(3.9,343,2,4295,0)="4295|90658.0000|ANCA IgA|"
^XMB(3.9,343,2,4296,0)="4296|90659.0000|ANCA IgG|"
^XMB(3.9,343,2,4297,0)="4297|90660.0000|ANCA IgM|"
^XMB(3.9,343,2,4298,0)="4298|90661.0000|X-ANCA|"
^XMB(3.9,343,2,4299,0)="4299|90662.0000|Nitroprusside|"
^XMB(3.9,343,2,4300,0)="4300|90663.0000|Nizatidine|"
^XMB(3.9,343,2,4301,0)="4301|90664.0000|Nomifensine|"
^XMB(3.9,343,2,4302,0)="4302|90665.0000|ANA Histone Reactive|"
^XMB(3.9,343,2,4303,0)="4303|90666.0000|Octadecanoate|"
^XMB(3.9,343,2,4304,0)="4304|90667.0000|Oxytriphylline|"
^XMB(3.9,343,2,4305,0)="4305|90668.0000|SV40 Ab|"
^XMB(3.9,343,2,4306,0)="4306|90669.0000|PARAFLU A Ab|"
^XMB(3.9,343,2,4307,0)="4307|90670.0000|Parakeet Drop Ab|"
^XMB(3.9,343,2,4308,0)="4308|90671.0000|Parakeet Drop IgG|"
^XMB(3.9,343,2,4309,0)="4309|90672.0000|Parrot Drop Ab|"
^XMB(3.9,343,2,4310,0)="4310|90673.0000|B19V IgG+IgM|"
^XMB(3.9,343,2,4311,0)="4311|90674.0000|Penicillium roqueforte IgE|"
^XMB(3.9,343,2,4312,0)="4312|90675.0000|Penicillium Ab|"
^XMB(3.9,343,2,4313,0)="4313|90676.0000|TTCE|"
^XMB(3.9,343,2,4314,0)="4314|90677.0000|Phoma herbarum IgG|"
^XMB(3.9,343,2,4315,0)="4315|90678.0000|Phoma IgE|"
^XMB(3.9,343,2,4316,0)="4316|90679.0000|Phospholipid IgA|"
^XMB(3.9,343,2,4317,0)="4317|90680.0000|Pigeon Drop Ab|"
^XMB(3.9,343,2,4318,0)="4318|90681.0000|Pigeon Feather IgE Ql|"
^XMB(3.9,343,2,4319,0)="4319|90682.0000|PBB|"
^XMB(3.9,343,2,4320,0)="4320|90683.0000|Polymyxin B|"
^XMB(3.9,343,2,4321,0)="4321|90684.0000|Proinsulin BS|"
^XMB(3.9,343,2,4322,0)="4322|90685.0000|Prostaglandin E|"
^XMB(3.9,343,2,4323,0)="4323|90686.0000|Protopor|"
^XMB(3.9,343,2,4324,0)="4324|90687.0000|Pseudomonas aeruginosa Ab|"
^XMB(3.9,343,2,4325,0)="4325|90688.0000|Psilocybin/Psilocin|"
^XMB(3.9,343,2,4326,0)="4326|90689.0000|Quinacrine|"
^XMB(3.9,343,2,4327,0)="4327|90690.0000|Marsh Ragweed IgE|"
^XMB(3.9,343,2,4328,0)="4328|90691.0000|Raisin IgE|"
^XMB(3.9,343,2,4329,0)="4329|90692.0000|Red Dye IgE|"
^XMB(3.9,343,2,4330,0)="4330|90693.0000|Redfish IgE|"
^XMB(3.9,343,2,4331,0)="4331|90694.0000|Reticulin IgG Titer|"
^XMB(3.9,343,2,4332,0)="4332|90695.0000|Retinoate Ester|"
^XMB(3.9,343,2,4333,0)="4333|90696.0000|Vitamin A Ester|"
^XMB(3.9,343,2,4334,0)="4334|90697.0000|Vitamin A Free|"
^XMB(3.9,343,2,4335,0)="4335|90698.0000|Vitamin A 3H|"
^XMB(3.9,343,2,4336,0)="4336|90699.0000|Vitamin A 6H|"
^XMB(3.9,343,2,4337,0)="4337|90700.0000|Rick SF RNA|"
^XMB(3.9,343,2,4338,0)="4338|90701.0000|Rickettsia typhi Ab|"
^XMB(3.9,343,2,4339,0)="4339|90702.0000|Rickettsia typhi IgA|"
^XMB(3.9,343,2,4340,0)="4340|90703.0000|MeV IgA|"
^XMB(3.9,343,2,4341,0)="4341|90704.0000|MeV Ab sp1|"
^XMB(3.9,343,2,4342,0)="4342|90705.0000|MeV Ab sp2|"
^XMB(3.9,343,2,4343,0)="4343|90706.0000|Saccharomonospora viridis IgG|"
^XMB(3.9,343,2,4344,0)="4344|90707.0000|Salmon roe IgE|"
^XMB(3.9,343,2,4345,0)="4345|90708.0000|Salmonella typhi O D Ab|"
^XMB(3.9,343,2,4346,0)="4346|90709.0000|Sasapyrine|"
^XMB(3.9,343,2,4347,0)="4347|90710.0000|ENA Scl70 IgG|"
^XMB(3.9,343,2,4348,0)="4348|90711.0000|GQ1a Sialo IgM|"
^XMB(3.9,343,2,4349,0)="4349|90712.0000|GQ1b Sialo Ab|"
^XMB(3.9,343,2,4350,0)="4350|90713.0000|GQ1b Sialo IgG|"
^XMB(3.9,343,2,4351,0)="4351|90714.0000|GQ1b Sialo IgM|"
^XMB(3.9,343,2,4352,0)="4352|90715.0000|ENA SS-A IgG|"
^XMB(3.9,343,2,4353,0)="4353|90716.0000|ENA SS-B IgG|"
^XMB(3.9,343,2,4354,0)="4354|90717.0000|Stimulants|"
^XMB(3.9,343,2,4355,0)="4355|90718.0000|Streptococcus pneum14 Ab sp2|"
^XMB(3.9,343,2,4356,0)="4356|90719.0000|Streptococcus pneum18f Ab sp1|"
^XMB(3.9,343,2,4357,0)="4357|90720.0000|Streptococcus pneum36a+6b IgG|"
^XMB(3.9,343,2,4358,0)="4358|90721.0000|Streptococcus pneum9 Ab|"
^XMB(3.9,343,2,4359,0)="4359|90722.0000|Streptococcus pneum IgG sp1|"
^XMB(3.9,343,2,4360,0)="4360|90723.0000|Streptococcus pneum IgG sp2|"
^XMB(3.9,343,2,4361,0)="4361|90724.0000|Succinylcholine|"
^XMB(3.9,343,2,4362,0)="4362|90725.0000|Sulfadiazine IgE|"
^XMB(3.9,343,2,4363,0)="4363|90726.0000|Sulfalazine IgE|"
^XMB(3.9,343,2,4364,0)="4364|90727.0000|Sulfamedraxozole IgE|"
^XMB(3.9,343,2,4365,0)="4365|90728.0000|Sulfisoxaz IgE|"
^XMB(3.9,343,2,4366,0)="4366|90729.0000|Sulindac Metab|"
^XMB(3.9,343,2,4367,0)="4367|90730.0000|Testost Wkly Bnd|"
^XMB(3.9,343,2,4368,0)="4368|90731.0000|Testost/Epitestost|"
^XMB(3.9,343,2,4369,0)="4369|90732.0000|Thebaine|"
^XMB(3.9,343,2,4370,0)="4370|90733.0000|Thyroglob IgM|"
^XMB(3.9,343,2,4371,0)="4371|90734.0000|TPO IgM|"
^XMB(3.9,343,2,4372,0)="4372|90735.0000|Toxaphene|"
^XMB(3.9,343,2,4373,0)="4373|90736.0000|Toxoplasma gondii IgG+IgM|"
^XMB(3.9,343,2,4374,0)="4374|90737.0000|TCPA|"
^XMB(3.9,343,2,4375,0)="4375|90738.0000|TMA IgG|"
^XMB(3.9,343,2,4376,0)="4376|90739.0000|TMA IgM|"
^XMB(3.9,343,2,4377,0)="4377|90740.0000|Tromethamine|"
^XMB(3.9,343,2,4378,0)="4378|90741.0000|Whitefish Roe IgE|"
^XMB(3.9,343,2,4379,0)="4379|90742.0000|Yellow Dye IgE|"
^XMB(3.9,343,2,4380,0)="4380|90743.0000|Yersinia IgA|"
^XMB(3.9,343,2,4381,0)="4381|90744.0000|Yersinia IgG|"
^XMB(3.9,343,2,4382,0)="4382|90745.0000|Yersinia IgM|"
^XMB(3.9,343,2,4383,0)="4383|90746.0000|21Hydroxylase Ab|"
^XMB(3.9,343,2,4384,0)="4384|90747.0000|B-LP subpart|"
^XMB(3.9,343,2,4385,0)="4385|90748.0000|Thyroid Colloidal Ab|"
^XMB(3.9,343,2,4386,0)="4386|90749.0000|Estradiol Alb Bnd|"
^XMB(3.9,343,2,4387,0)="4387|90750.0000|GM1b Gangl IgG Titer|"
^XMB(3.9,343,2,4388,0)="4388|90751.0000|GM1b Gangl IgM Titer|"
^XMB(3.9,343,2,4389,0)="4389|90752.0000|Glucose p 8H fast|"
^XMB(3.9,343,2,4390,0)="4390|90753.0000|Blastomyces IgE|"
^XMB(3.9,343,2,4391,0)="4391|90754.0000|Blastomyces IgG|"
^XMB(3.9,343,2,4392,0)="4392|90755.0000|Blastomyces IgM|"
^XMB(3.9,343,2,4393,0)="4393|90756.0000|Borrelia burgdor IgG+IgM|"
^XMB(3.9,343,2,4394,0)="4394|90757.0000|Ubiquinone10|"
^XMB(3.9,343,2,4395,0)="4395|90758.0000|C1INH Bnd IgG|"
^XMB(3.9,343,2,4396,0)="4396|90759.0000|C1INH Bnd IgM|"
^XMB(3.9,343,2,4397,0)="4397|90760.0000|C1INH Free IgG|"
^XMB(3.9,343,2,4398,0)="4398|90761.0000|C1INH Free IgM|"
^XMB(3.9,343,2,4399,0)="4399|90762.0000|Heparan Sulfate|"
^XMB(3.9,343,2,4400,0)="4400|90763.0000|Legionella pneumo Atyp IgM|"
^XMB(3.9,343,2,4401,0)="4401|90764.0000|Cefoxitin IgE|"
^XMB(3.9,343,2,4402,0)="4402|90765.0000|Niacin|"
^XMB(3.9,343,2,4403,0)="4403|90766.0000|Trimethoprim IgE|"
^XMB(3.9,343,2,4404,0)="4404|90767.0000|RNA Ab|"
^XMB(3.9,343,2,4405,0)="4405|90768.0000|Calcium TP cor|"
^XMB(3.9,343,2,4406,0)="4406|90769.0000|D-L Ab|"
^XMB(3.9,343,2,4407,0)="4407|90770.0000|D-L Ab Titer|"
^XMB(3.9,343,2,4408,0)="4408|90771.0000|Glucose p Glc|"
^XMB(3.9,343,2,4409,0)="4409|90772.0000|HTLA Ab|"
^XMB(3.9,343,2,4410,0)="4410|90773.0000|Benzidine|"
^XMB(3.9,343,2,4411,0)="4411|90774.0000|ENA SM IgG|"
^XMB(3.9,343,2,4412,0)="4412|90775.0000|Cockatiel|"
^XMB(3.9,343,2,4413,0)="4413|90776.0000|TPO IgG|"
^XMB(3.9,343,2,4414,0)="4414|90777.0000|OH-Itraconaz|"
^XMB(3.9,343,2,4415,0)="4415|90778.0000|Streptococcus pneum12 Ab sp2|"
^XMB(3.9,343,2,4416,0)="4416|90779.0000|Glucose 6H p 50 g Lac PO|"
^XMB(3.9,343,2,4417,0)="4417|90780.0000|Glucose 12H p 50 g Lac PO|"
^XMB(3.9,343,2,4418,0)="4418|90781.0000|MDMA|"
^XMB(3.9,343,2,4419,0)="4419|90782.0000|Chondrotin Sulf|"
^XMB(3.9,343,2,4420,0)="4420|90783.0000|Iodine Free|"
^XMB(3.9,343,2,4421,0)="4421|90784.0000|Curvularia lunata IgG|"
^XMB(3.9,343,2,4422,0)="4422|90785.0000|Epicoccum purpurascens IgG|"
^XMB(3.9,343,2,4423,0)="4423|90786.0000|Rhizopus nigricans IgG|"
^XMB(3.9,343,2,4424,0)="4424|90787.0000|Stemphylium botryosum IgG|"
^XMB(3.9,343,2,4425,0)="4425|90788.0000|Aspergillus nidulans IgG|"
^XMB(3.9,343,2,4426,0)="4426|90789.0000|Black Bean IgG|"
^XMB(3.9,343,2,4427,0)="4427|90790.0000|Casein IgA|"
^XMB(3.9,343,2,4428,0)="4428|90791.0000|Cephalosporine Mold IgG|"
^XMB(3.9,343,2,4429,0)="4429|90792.0000|Chaetomium globosum IgG|"
^XMB(3.9,343,2,4430,0)="4430|90793.0000|Fusarium oxysporum IgG|"
^XMB(3.9,343,2,4431,0)="4431|90794.0000|PAN IgG|"
^XMB(3.9,343,2,4432,0)="4432|90795.0000|PAN IgM|"
^XMB(3.9,343,2,4433,0)="4433|90796.0000|Zucchini IgG|"
^XMB(3.9,343,2,4434,0)="4434|90797.0000|Acetylcarn|"
^XMB(3.9,343,2,4435,0)="4435|90798.0000|Propenoylcarn|"
^XMB(3.9,343,2,4436,0)="4436|90799.0000|Propionylcarn|"
^XMB(3.9,343,2,4437,0)="4437|90800.0000|Butyrylcarn|"
^XMB(3.9,343,2,4438,0)="4438|90801.0000|Crotonylcarn|"
^XMB(3.9,343,2,4439,0)="4439|90802.0000|Isovalerylcarn|"
^XMB(3.9,343,2,4440,0)="4440|90803.0000|3OH-Butylcarn|"
^XMB(3.9,343,2,4441,0)="4441|90804.0000|Hexanoylcarn|"
^XMB(3.9,343,2,4442,0)="4442|90805.0000|3OH-Isovalerylcarn|"
^XMB(3.9,343,2,4443,0)="4443|90806.0000|Benzoylcarn|"
^XMB(3.9,343,2,4444,0)="4444|90807.0000|Me-malonylcarn|"
^XMB(3.9,343,2,4445,0)="4445|90808.0000|Octenoylcarn|"
^XMB(3.9,343,2,4446,0)="4446|90809.0000|Octanoylcarn|"
^XMB(3.9,343,2,4447,0)="4447|90810.0000|Glutarylcarn|"
^XMB(3.9,343,2,4448,0)="4448|90811.0000|Adipoylcarn|"
^XMB(3.9,343,2,4449,0)="4449|90812.0000|Cis4Decenoylcarn|"
^XMB(3.9,343,2,4450,0)="4450|90813.0000|Decanoylcarn|"
^XMB(3.9,343,2,4451,0)="4451|90814.0000|Suberylcarn|"
^XMB(3.9,343,2,4452,0)="4452|90815.0000|Dodecenoylcarn|"
^XMB(3.9,343,2,4453,0)="4453|90816.0000|Dodecanoylcarn|"
^XMB(3.9,343,2,4454,0)="4454|90817.0000|Tdecadienoylcarn|"
^XMB(3.9,343,2,4455,0)="4455|90818.0000|Tdecenoylcarn|"
^XMB(3.9,343,2,4456,0)="4456|90819.0000|3OH-Tdecadienoylcar|"
^XMB(3.9,343,2,4457,0)="4457|90820.0000|3OH-Tdecenoylcarn|"
^XMB(3.9,343,2,4458,0)="4458|90821.0000|Palmitoylcarn|"
^XMB(3.9,343,2,4459,0)="4459|90822.0000|3OH-Palmitoylcarn|"
^XMB(3.9,343,2,4460,0)="4460|90823.0000|Linoleoylcarn|"
^XMB(3.9,343,2,4461,0)="4461|90824.0000|Oleoylcarn|"
^XMB(3.9,343,2,4462,0)="4462|90825.0000|3OH-Linoleoylcarn|"
^XMB(3.9,343,2,4463,0)="4463|90826.0000|3OH-Oleoylcarn|"
^XMB(3.9,343,2,4464,0)="4464|90827.0000|Dicarboxyoleoylcarn|"
^XMB(3.9,343,2,4465,0)="4465|90828.0000|Methyclothiazide|"
^XMB(3.9,343,2,4466,0)="4466|90829.0000|Ku Ab|"
^XMB(3.9,343,2,4467,0)="4467|90830.0000|MI2 Ab|"
^XMB(3.9,343,2,4468,0)="4468|90831.0000|PB Valproate|"
^XMB(3.9,343,2,4469,0)="4469|90832.0000|Chlamydia trach G+F+K IgA Titer|"
^XMB(3.9,343,2,4470,0)="4470|90833.0000|Chlamydia trach G+F+K IgG Titer|"
^XMB(3.9,343,2,4471,0)="4471|90834.0000|Chlamydia trach G+F+K IgM Titer|"
^XMB(3.9,343,2,4472,0)="4472|90835.0000|Fish Feed IgE RAST Ql|"
^XMB(3.9,343,2,4473,0)="4473|90836.0000|Salmon IgG RAST Ql|"
^XMB(3.9,343,2,4474,0)="4474|90837.0000|Tuna IgG RAST Ql|"
^XMB(3.9,343,2,4475,0)="4475|90838.0000|Allergens|"
^XMB(3.9,343,2,4476,0)="4476|90839.0000|Ca-I adj pH7.4|"
^XMB(3.9,343,2,4477,0)="4477|90840.0000|HIV1 gp41+gp43 Ab|"
^XMB(3.9,343,2,4478,0)="4478|90841.0000|Spec Drawn|"
^XMB(3.9,343,2,4479,0)="4479|90842.0000|Cytokeratin19|"
^XMB(3.9,343,2,4480,0)="4480|90843.0000|TPS|"
^XMB(3.9,343,2,4481,0)="4481|90844.0000|Lactose 3H p 50 g Lac PO|"
^XMB(3.9,343,2,4482,0)="4482|90845.0000|Abachi Wood Dust IgE|"
^XMB(3.9,343,2,4483,0)="4483|90846.0000|Aspergillus flavus IgG|"
^XMB(3.9,343,2,4484,0)="4484|90847.0000|Aspergillus niger IgG|"
^XMB(3.9,343,2,4485,0)="4485|90848.0000|Beet IgE|"
^XMB(3.9,343,2,4486,0)="4486|90849.0000|Blue vetch IgE|"
^XMB(3.9,343,2,4487,0)="4487|90850.0000|Budgie Drop IgE|"
^XMB(3.9,343,2,4488,0)="4488|90851.0000|Budgie|"
^XMB(3.9,343,2,4489,0)="4489|90852.0000|Cat|"
^XMB(3.9,343,2,4490,0)="4490|90853.0000|Cefaclor IgE|"
^XMB(3.9,343,2,4491,0)="4491|90854.0000|Chicken Drop IgE|"
^XMB(3.9,343,2,4492,0)="4492|90855.0000|Coralb IgE|"
^XMB(3.9,343,2,4493,0)="4493|90856.0000|Cotton Fibers IgE|"
^XMB(3.9,343,2,4494,0)="4494|90857.0000|Fenugreek IgE|"
^XMB(3.9,343,2,4495,0)="4495|90858.0000|Fox Epith IgE|"
^XMB(3.9,343,2,4496,0)="4496|90859.0000|Hake IgE|"
^XMB(3.9,343,2,4497,0)="4497|90860.0000|HHPA IgE|"
^XMB(3.9,343,2,4498,0)="4498|90861.0000|Horse Meat IgE|"
^XMB(3.9,343,2,4499,0)="4499|90862.0000|Jackfruit IgE|"
^XMB(3.9,343,2,4500,0)="4500|90863.0000|Maleic Anhydride IgE|"
^XMB(3.9,343,2,4501,0)="4501|90864.0000|Mealworm IgE|"
^XMB(3.9,343,2,4502,0)="4502|90865.0000|MTHPA IgE|"
^XMB(3.9,343,2,4503,0)="4503|90866.0000|Saccharopolyspora retivirgula IgG Ql|"
^XMB(3.9,343,2,4504,0)="4504|90867.0000|Mint IgE|"
^XMB(3.9,343,2,4505,0)="4505|90868.0000|Mouse Epith+Ser+Ur Prot IgE|"
^XMB(3.9,343,2,4506,0)="4506|90869.0000|Rat Epith+Ser+Ur Prot IgE|"
^XMB(3.9,343,2,4507,0)="4507|90870.0000|Red Currant IgE|"
^XMB(3.9,343,2,4508,0)="4508|90871.0000|Saffron IgE|"
^XMB(3.9,343,2,4509,0)="4509|90872.0000|Sheep Milk IgE|"
^XMB(3.9,343,2,4510,0)="4510|90873.0000|Sheep Whey IgE|"
^XMB(3.9,343,2,4511,0)="4511|90874.0000|Silk Waste IgE|"
^XMB(3.9,343,2,4512,0)="4512|90875.0000|Swine|"
^XMB(3.9,343,2,4513,0)="4513|90876.0000|Clostridium tetani Toxoid IgE|"
^XMB(3.9,343,2,4514,0)="4514|90877.0000|Thermoactinomyces vulgaris IgG|"
^XMB(3.9,343,2,4515,0)="4515|90878.0000|Sample Icteric|"
^XMB(3.9,343,2,4516,0)="4516|90879.0000|Sample Hemolyzed|"
^XMB(3.9,343,2,4517,0)="4517|90880.0000|Sample Lipemic|"
^XMB(3.9,343,2,4518,0)="4518|90881.0000|Sample Integrity|"
^XMB(3.9,343,2,4519,0)="4519|90882.0000|ANA Homogen Titer|"
^XMB(3.9,343,2,4520,0)="4520|90883.0000|ANA Nucleolar Titer|"
^XMB(3.9,343,2,4521,0)="4521|90884.0000|ANA Rim Titer|"
^XMB(3.9,343,2,4522,0)="4522|90885.0000|ANA Speckled Titer|"
^XMB(3.9,343,2,4523,0)="4523|90886.0000|Hepatitis C Viral Load|"
^XMB(3.9,343,2,4524,0)="4524|90887.0000|Histoplasma capsul Myc Ab Titer|"
^XMB(3.9,343,2,4525,0)="4525|90888.0000|Histoplasma capsul Yst Ab Titer|"
^XMB(3.9,343,2,4526,0)="4526|90889.0000|ALP Bile|"
^XMB(3.9,343,2,4527,0)="4527|90890.0000|EBV NA Ab|"
^XMB(3.9,343,2,4528,0)="4528|90891.0000|ENA Unident Ab|"
^XMB(3.9,343,2,4529,0)="4529|90892.0000|Glucose p 50 g Glc|"
^XMB(3.9,343,2,4530,0)="4530|90893.0000|Hepatitis B Viral Load|"
^XMB(3.9,343,2,4531,0)="4531|90894.0000|HIV1 Viral Load|"
^XMB(3.9,343,2,4532,0)="4532|90895.0000|AFP MoM|"
^XMB(3.9,343,2,4533,0)="4533|90896.0000|HCG MOM|"
^XMB(3.9,343,2,4534,0)="4534|90897.0000|Estriol Estriol MoM|"
^XMB(3.9,343,2,4535,0)="4535|90898.0000|Cardiolipin IgG Titer|"
^XMB(3.9,343,2,4536,0)="4536|90899.0000|Cardiolipin IgM Titer|"
^XMB(3.9,343,2,4537,0)="4537|90900.0000|Cysteine|"
^XMB(3.9,343,2,4538,0)="4538|90901.0000|Allergen Tested|"
^XMB(3.9,343,2,4539,0)="4539|90902.0000|ECV14 Ab Titer|"
^XMB(3.9,343,2,4540,0)="4540|90903.0000|Cardiolipin IgA Titer|"
^XMB(3.9,343,2,4541,0)="4541|90904.0000|Actinobacillus pleuropn Ab|"
^XMB(3.9,343,2,4542,0)="4542|90905.0000|Bab caballi Ab|"
^XMB(3.9,343,2,4543,0)="4543|90906.0000|Theileria equi Ab|"
^XMB(3.9,343,2,4544,0)="4544|90907.0000|Clostridium bot Tox|"
^XMB(3.9,343,2,4545,0)="4545|90908.0000|BVDV RNA|"
^XMB(3.9,343,2,4546,0)="4546|90909.0000|BVDV Ag|"
^XMB(3.9,343,2,4547,0)="4547|90910.0000|BVDV|"
^XMB(3.9,343,2,4548,0)="4548|90911.0000|Brucella ovis Ab|"
^XMB(3.9,343,2,4549,0)="4549|90912.0000|CVV Ab|"
^XMB(3.9,343,2,4550,0)="4550|90913.0000|CNPV Ag|"
^XMB(3.9,343,2,4551,0)="4551|90914.0000|CAV Ab|"
^XMB(3.9,343,2,4552,0)="4552|90915.0000|Caprine Parapox Ab|"
^XMB(3.9,343,2,4553,0)="4553|90916.0000|Drugs|"
^XMB(3.9,343,2,4554,0)="4554|90917.0000|DVE Ab|"
^XMB(3.9,343,2,4555,0)="4555|90918.0000|Eperythrozoan cuniculi Ab|"
^XMB(3.9,343,2,4556,0)="4556|90919.0000|Gallotannin|"
^XMB(3.9,343,2,4557,0)="4557|90920.0000|BoHV1 Ab|"
^XMB(3.9,343,2,4558,0)="4558|90921.0000|IgG Bovine|"
^XMB(3.9,343,2,4559,0)="4559|90922.0000|AHV1 Ab|"
^XMB(3.9,343,2,4560,0)="4560|90923.0000|Mycoplasma Ab|"
^XMB(3.9,343,2,4561,0)="4561|90924.0000|Parasite|"
^XMB(3.9,343,2,4562,0)="4562|90925.0000|Sarcocystis neurona Ab|"
^XMB(3.9,343,2,4563,0)="4563|90926.0000|VEEE Ab Titer|"
^XMB(3.9,343,2,4564,0)="4564|90927.0000|Cortis 1H p ACTH|"
^XMB(3.9,343,2,4565,0)="4565|90928.0000|CV B blend Ab|"
^XMB(3.9,343,2,4566,0)="4566|90929.0000|HIV1 RNA #|"
^XMB(3.9,343,2,4567,0)="4567|90930.0000|HIV1|"
^XMB(3.9,343,2,4568,0)="4568|90931.0000|ANCA Ab Titer|"
^XMB(3.9,343,2,4569,0)="4569|90932.0000|11DC PM|"
^XMB(3.9,343,2,4570,0)="4570|90933.0000|11DC AM|"
^XMB(3.9,343,2,4571,0)="4571|90934.0000|7Aminoflunitrazepam|"
^XMB(3.9,343,2,4572,0)="4572|90935.0000|Acrylaldehyde|"
^XMB(3.9,343,2,4573,0)="4573|90936.0000|HAdV IgG Titer|"
^XMB(3.9,343,2,4574,0)="4574|90937.0000|Amino Acids mix2|"
^XMB(3.9,343,2,4575,0)="4575|90938.0000|Albumin 2H p PD|"
^XMB(3.9,343,2,4576,0)="4576|90939.0000|Grey Alder IgE RAST Ql|"
^XMB(3.9,343,2,4577,0)="4577|90940.0000|Alfalfa IgG RAST Ql|"
^XMB(3.9,343,2,4578,0)="4578|90941.0000|Allobarbital|"
^XMB(3.9,343,2,4579,0)="4579|90942.0000|Almond IgG RAST Ql|"
^XMB(3.9,343,2,4580,0)="4580|90943.0000|Alternaria alternata IgG RAST Ql|"
^XMB(3.9,343,2,4581,0)="4581|90944.0000|Black Ant IgE RAST Ql|"
^XMB(3.9,343,2,4582,0)="4582|90945.0000|Red Ant IgE RAST Ql|"
^XMB(3.9,343,2,4583,0)="4583|90946.0000|Apple IgG RAST Ql|"
^XMB(3.9,343,2,4584,0)="4584|90947.0000|Apricot IgG RAST Ql|"
^XMB(3.9,343,2,4585,0)="4585|90948.0000|Ascaris lumbricoides IgE|"
^XMB(3.9,343,2,4586,0)="4586|90949.0000|Ascaris lumbricoides IgE RAST Ql|"
^XMB(3.9,343,2,4587,0)="4587|90950.0000|Black Ash IgE|"
^XMB(3.9,343,2,4588,0)="4588|90951.0000|Green Ash IgE|"
^XMB(3.9,343,2,4589,0)="4589|90952.0000|Green Ash IgE RAST Ql|"
^XMB(3.9,343,2,4590,0)="4590|90953.0000|GM1 Asialo Ab Titer|"
^XMB(3.9,343,2,4591,0)="4591|90954.0000|Asparagus IgG RAST Ql|"
^XMB(3.9,343,2,4592,0)="4592|90955.0000|Aspergillus terreus IgE RAST Ql|"
^XMB(3.9,343,2,4593,0)="4593|90956.0000|Banana IgG RAST Ql|"
^XMB(3.9,343,2,4594,0)="4594|90957.0000|Barbiturates Present|"
^XMB(3.9,343,2,4595,0)="4595|90958.0000|Barley IgG RAST Ql|"
^XMB(3.9,343,2,4596,0)="4596|90959.0000|GBM IgG|"
^XMB(3.9,343,2,4597,0)="4597|90960.0000|Black Bean IgE|"
^XMB(3.9,343,2,4598,0)="4598|90961.0000|Black Bean IgE RAST Ql|"
^XMB(3.9,343,2,4599,0)="4599|90962.0000|Green Bean IgG RAST Ql|"
^XMB(3.9,343,2,4600,0)="4600|90963.0000|Red Kidney Bean IgG RAST Ql|"
^XMB(3.9,343,2,4601,0)="4601|90964.0000|Mug Bean IgG RAST Ql|"
^XMB(3.9,343,2,4602,0)="4602|90965.0000|Pinto Bean IgG RAST Ql|"
^XMB(3.9,343,2,4603,0)="4603|90966.0000|Soybean IgG RAST Ql|"
^XMB(3.9,343,2,4604,0)="4604|90967.0000|Soybean dust IgE RAST Ql|"
^XMB(3.9,343,2,4605,0)="4605|90968.0000|Yellow Bean IgG RAST Ql|"
^XMB(3.9,343,2,4606,0)="4606|90969.0000|Beef IgG RAST Ql|"
^XMB(3.9,343,2,4607,0)="4607|90970.0000|B2 Glycoprot1 IgA|"
^XMB(3.9,343,2,4608,0)="4608|90971.0000|B-Lactoglob IgG RAST Ql|"
^XMB(3.9,343,2,4609,0)="4609|90972.0000|Hexosaminidase B %|"
^XMB(3.9,343,2,4610,0)="4610|90973.0000|Blueberry IgG RAST Ql|"
^XMB(3.9,343,2,4611,0)="4611|90974.0000|Borrelia burgdor66kD IgM|"
^XMB(3.9,343,2,4612,0)="4612|90975.0000|Borrelia burgdor93kD IgM|"
^XMB(3.9,343,2,4613,0)="4613|90976.0000|Borrelia hermsii IgG Titer|"
^XMB(3.9,343,2,4614,0)="4614|90977.0000|Borrelia hermsii IgM Titer|"
^XMB(3.9,343,2,4615,0)="4615|90978.0000|Wheat Bran IgE RAST Ql|"
^XMB(3.9,343,2,4616,0)="4616|90979.0000|Broccoli IgG RAST Ql|"
^XMB(3.9,343,2,4617,0)="4617|90980.0000|Brush Border Ab Titer|"
^XMB(3.9,343,2,4618,0)="4618|90981.0000|Brussel Sprouts IgG RAST Ql|"
^XMB(3.9,343,2,4619,0)="4619|90982.0000|Cabbage IgG RAST Ql|"
^XMB(3.9,343,2,4620,0)="4620|90983.0000|Calcit 10M p 0.5 ug/kg Pg IV|"
^XMB(3.9,343,2,4621,0)="4621|90984.0000|Calcit 1M p 0.5 ug/kg Pg IV|"
^XMB(3.9,343,2,4622,0)="4622|90985.0000|Calcit 2M p 0.5 ug/kg Pg IV|"
^XMB(3.9,343,2,4623,0)="4623|90986.0000|Calcit 3M p 0.5 ug/kg Pg IV|"
^XMB(3.9,343,2,4624,0)="4624|90987.0000|Canrenone|"
^XMB(3.9,343,2,4625,0)="4625|90988.0000|Melon IgG RAST Ql|"
^XMB(3.9,343,2,4626,0)="4626|90989.0000|Carageenan IgE RAST Ql|"
^XMB(3.9,343,2,4627,0)="4627|90990.0000|Cardamon IgE RAST Ql|"
^XMB(3.9,343,2,4628,0)="4628|90991.0000|Carp IgE|"
^XMB(3.9,343,2,4629,0)="4629|90992.0000|Carp IgE RAST Ql|"
^XMB(3.9,343,2,4630,0)="4630|90993.0000|Carrot IgG RAST Ql|"
^XMB(3.9,343,2,4631,0)="4631|90994.0000|Casein IgG RAST Ql|"
^XMB(3.9,343,2,4632,0)="4632|90995.0000|Cauliflower IgG RAST Ql|"
^XMB(3.9,343,2,4633,0)="4633|90996.0000|White Cedar IgE|"
^XMB(3.9,343,2,4634,0)="4634|90997.0000|Cefaclor IgE RAST Ql|"
^XMB(3.9,343,2,4635,0)="4635|90998.0000|Celery IgG RAST Ql|"
^XMB(3.9,343,2,4636,0)="4636|90999.0000|Cephaeline|"
^XMB(3.9,343,2,4637,0)="4637|91000.0000|Cheddar IgG RAST Ql|"
^XMB(3.9,343,2,4638,0)="4638|91001.0000|Cream Cheese IgE RAST Ql|"
^XMB(3.9,343,2,4639,0)="4639|91002.0000|Roquefort IgE RAST Ql|"
^XMB(3.9,343,2,4640,0)="4640|91003.0000|Cherry IgG RAST Ql|"
^XMB(3.9,343,2,4641,0)="4641|91004.0000|Chicken IgG RAST Ql|"
^XMB(3.9,343,2,4642,0)="4642|91005.0000|Chicken Meat IgG RAST Ql|"
^XMB(3.9,343,2,4643,0)="4643|91006.0000|Chlordiazep+Nor|"
^XMB(3.9,343,2,4644,0)="4644|91007.0000|Chocolate IgG RAST Ql|"
^XMB(3.9,343,2,4645,0)="4645|91008.0000|Cholesterol Ester %|"
^XMB(3.9,343,2,4646,0)="4646|91009.0000|Cinnamon IgG RAST Ql|"
^XMB(3.9,343,2,4647,0)="4647|91010.0000|Clam IgG RAST Ql|"
^XMB(3.9,343,2,4648,0)="4648|91011.0000|Clove IgG RAST Ql|"
^XMB(3.9,343,2,4649,0)="4649|91012.0000|Sweet Clover IgE|"
^XMB(3.9,343,2,4650,0)="4650|91013.0000|Cockatiel Drop IgE RAST Ql|"
^XMB(3.9,343,2,4651,0)="4651|91014.0000|Cockatiel Feather IgE RAST Ql|"
^XMB(3.9,343,2,4652,0)="4652|91015.0000|Coconut IgG RAST Ql|"
^XMB(3.9,343,2,4653,0)="4653|91016.0000|Codfish IgG RAST Ql|"
^XMB(3.9,343,2,4654,0)="4654|91017.0000|Coffee IgG RAST Ql|"
^XMB(3.9,343,2,4655,0)="4655|91018.0000|Collagen NTx|"
^XMB(3.9,343,2,4656,0)="4656|91019.0000|Cilantro IgE RAST Ql|"
^XMB(3.9,343,2,4657,0)="4657|91020.0000|Corn IgG RAST Ql|"
^XMB(3.9,343,2,4658,0)="4658|91021.0000|Cortis 11 PM|"
^XMB(3.9,343,2,4659,0)="4659|91022.0000|Cortis 4 PM|"
^XMB(3.9,343,2,4660,0)="4660|91023.0000|Cotton Linters IgE RAST Ql|"
^XMB(3.9,343,2,4661,0)="4661|91024.0000|Cottonseed IgG RAST Ql|"
^XMB(3.9,343,2,4662,0)="4662|91025.0000|Cow Milk IgG RAST Ql|"
^XMB(3.9,343,2,4663,0)="4663|91026.0000|Crab IgG RAST Ql|"
^XMB(3.9,343,2,4664,0)="4664|91027.0000|Cucumber IgG RAST Ql|"
^XMB(3.9,343,2,4665,0)="4665|91028.0000|Cumin IgE RAST Ql|"
^XMB(3.9,343,2,4666,0)="4666|91029.0000|Deer Hair IgE RAST Ql|"
^XMB(3.9,343,2,4667,0)="4667|91030.0000|Desalkylhalazepam|"
^XMB(3.9,343,2,4668,0)="4668|91031.0000|Dobutamine|"
^XMB(3.9,343,2,4669,0)="4669|91032.0000|Echinococcus granulosus IgE RAST Ql|"
^XMB(3.9,343,2,4670,0)="4670|91033.0000|Echinococcus granulosus IgG|"
^XMB(3.9,343,2,4671,0)="4671|91034.0000|Egg White IgG RAST Ql|"
^XMB(3.9,343,2,4672,0)="4672|91035.0000|Egg Yolk IgG RAST Ql|"
^XMB(3.9,343,2,4673,0)="4673|91036.0000|Eggplant IgG RAST Ql|"
^XMB(3.9,343,2,4674,0)="4674|91037.0000|Endive IgG RAST Ql|"
^XMB(3.9,343,2,4675,0)="4675|91038.0000|EBV NA Ab Titer|"
^XMB(3.9,343,2,4676,0)="4676|91039.0000|Erythromycin IgE RAST Ql|"
^XMB(3.9,343,2,4677,0)="4677|91040.0000|Estriol Estriol MoM adj|"
^XMB(3.9,343,2,4678,0)="4678|91041.0000|Estriol Estriol MoM unadj|"
^XMB(3.9,343,2,4679,0)="4679|91042.0000|Fig IgE RAST Ql|"
^XMB(3.9,343,2,4680,0)="4680|91043.0000|Fireweed IgE|"
^XMB(3.9,343,2,4681,0)="4681|91044.0000|Fireweed IgE RAST Ql|"
^XMB(3.9,343,2,4682,0)="4682|91045.0000|Flax IgE RAST Ql|"
^XMB(3.9,343,2,4683,0)="4683|91046.0000|Flounder IgG RAST Ql|"
^XMB(3.9,343,2,4684,0)="4684|91047.0000|FSH 15M p GnRH|"
^XMB(3.9,343,2,4685,0)="4685|91048.0000|FSH 2H p GnRH|"
^XMB(3.9,343,2,4686,0)="4686|91049.0000|FSH 45M p GnRH|"
^XMB(3.9,343,2,4687,0)="4687|91050.0000|Fusarium oxysporum IgE RAST Ql|"
^XMB(3.9,343,2,4688,0)="4688|91051.0000|GD1a Gangl IgM Titer|"
^XMB(3.9,343,2,4689,0)="4689|91052.0000|GD1a Gangl IgG Titer|"
^XMB(3.9,343,2,4690,0)="4690|91053.0000|Garlic IgG RAST Ql|"
^XMB(3.9,343,2,4691,0)="4691|91054.0000|Gastrin 1.5H p 0.2 U/kg SCT|"
^XMB(3.9,343,2,4692,0)="4692|91055.0000|Gastrin 1H p 0.2 U/kg SCT|"
^XMB(3.9,343,2,4693,0)="4693|91056.0000|Gastrin 2.5H p 0.2 ug/kg SCT|"
^XMB(3.9,343,2,4694,0)="4694|91057.0000|Gastrin 2H p 0.5 U/kg SCT|"
^XMB(3.9,343,2,4695,0)="4695|91058.0000|Gastrin 3.5H p 0.2 U/kg SCT|"
^XMB(3.9,343,2,4696,0)="4696|91059.0000|Gastrin 3H p 0.2 u/kg SCT|"
^XMB(3.9,343,2,4697,0)="4697|91060.0000|Gastrin 40M p 0.2 u/kg SCT|"
^XMB(3.9,343,2,4698,0)="4698|91061.0000|Gastrin 45M p 0.2 u/kg SCT|"
^XMB(3.9,343,2,4699,0)="4699|91062.0000|Gastrin 4H p 0.2 u/kg SCT|"
^XMB(3.9,343,2,4700,0)="4700|91063.0000|Gastrin 50M p 0.2 u/kg SCT|"
^XMB(3.9,343,2,4701,0)="4701|91064.0000|Gastrin 7M p 0.2 u/kg SCT|"
^XMB(3.9,343,2,4702,0)="4702|91065.0000|Bovine Gelatin IgE RAST Ql|"
^XMB(3.9,343,2,4703,0)="4703|91066.0000|Porcine Gelatin IgE RAST Ql|"
^XMB(3.9,343,2,4704,0)="4704|91067.0000|Giardia lamblia IgA Titer|"
^XMB(3.9,343,2,4705,0)="4705|91068.0000|Giardia lamblia IgM Titer|"
^XMB(3.9,343,2,4706,0)="4706|91069.0000|Ginger IgG RAST Ql|"
^XMB(3.9,343,2,4707,0)="4707|91070.0000|Gluten IgG RAST Ql|"
^XMB(3.9,343,2,4708,0)="4708|91071.0000|Grain Elevat Dust IgE RAST Ql|"
^XMB(3.9,343,2,4709,0)="4709|91072.0000|Grape IgG RAST Ql|"
^XMB(3.9,343,2,4710,0)="4710|91073.0000|Grapefruit IgG RAST Ql|"
^XMB(3.9,343,2,4711,0)="4711|91074.0000|Haddock IgG RAST Ql|"
^XMB(3.9,343,2,4712,0)="4712|91075.0000|Halibut IgG RAST Ql|"
^XMB(3.9,343,2,4713,0)="4713|91076.0000|PUUV IgG Titer|"
^XMB(3.9,343,2,4714,0)="4714|91077.0000|PUUV IgM Titer|"
^XMB(3.9,343,2,4715,0)="4715|91078.0000|Helminthosporium sativum IgE RAST Ql|"
^XMB(3.9,343,2,4716,0)="4716|91079.0000|HSV1 IgM Titer|"
^XMB(3.9,343,2,4717,0)="4717|91080.0000|HSV2 IgM Titer|"
^XMB(3.9,343,2,4718,0)="4718|91081.0000|Shagbark Hickory IgE RAST Ql|"
^XMB(3.9,343,2,4719,0)="4719|91082.0000|HIV1 p24 Ab Titer|"
^XMB(3.9,343,2,4720,0)="4720|91083.0000|HIV1 p41 Ab Titer|"
^XMB(3.9,343,2,4721,0)="4721|91084.0000|HIV2 gp105 Ab|"
^XMB(3.9,343,2,4722,0)="4722|91085.0000|HIV2 gp120AB|"
^XMB(3.9,343,2,4723,0)="4723|91086.0000|HIV2 gp15 Ab|"
^XMB(3.9,343,2,4724,0)="4724|91087.0000|HIV2 gp34 Ab|"
^XMB(3.9,343,2,4725,0)="4725|91088.0000|HIV2 p31 Ab|"
^XMB(3.9,343,2,4726,0)="4726|91089.0000|HIV2 p55 Ab|"
^XMB(3.9,343,2,4727,0)="4727|91090.0000|HIV2 p58 Ab|"
^XMB(3.9,343,2,4728,0)="4728|91091.0000|House Dust Greer IgG RAST Ql|"
^XMB(3.9,343,2,4729,0)="4729|91092.0000|HTLV1+2 Ab Patrn|"
^XMB(3.9,343,2,4730,0)="4730|91093.0000|HTLV1+2 IgG|"
^XMB(3.9,343,2,4731,0)="4731|91094.0000|ICS IgG|"
^XMB(3.9,343,2,4732,0)="4732|91095.0000|West Juniper IgE RAST Ql|"
^XMB(3.9,343,2,4733,0)="4733|91096.0000|Karaya Gum IgE RAST Ql|"
^XMB(3.9,343,2,4734,0)="4734|91097.0000|A-Lactalb IgG RAST Ql|"
^XMB(3.9,343,2,4735,0)="4735|91098.0000|B-Galactosidase IgE RAST Ql|"
^XMB(3.9,343,2,4736,0)="4736|91099.0000|Lamb IgG RAST Ql|"
^XMB(3.9,343,2,4737,0)="4737|91100.0000|Legionella pneumo IgG Titer|"
^XMB(3.9,343,2,4738,0)="4738|91101.0000|Lemon IgG RAST Ql|"
^XMB(3.9,343,2,4739,0)="4739|91102.0000|Leptin|"
^XMB(3.9,343,2,4740,0)="4740|91103.0000|Lettuce IgG RAST Ql|"
^XMB(3.9,343,2,4741,0)="4741|91104.0000|L-Floxacin|"
^XMB(3.9,343,2,4742,0)="4742|91105.0000|Licorice IgE RAST Ql|"
^XMB(3.9,343,2,4743,0)="4743|91106.0000|Lime IgG RAST Ql|"
^XMB(3.9,343,2,4744,0)="4744|91107.0000|Lobster IgG RAST Ql|"
^XMB(3.9,343,2,4745,0)="4745|91108.0000|Macadamia IgE RAST Ql|"
^XMB(3.9,343,2,4746,0)="4746|91109.0000|Malt IgG RAST Ql|"
^XMB(3.9,343,2,4747,0)="4747|91110.0000|Saccharopolyspora retivirgula IgE|"
^XMB(3.9,343,2,4748,0)="4748|91111.0000|Saccharopolyspora retivirgula IgE RAST Ql|"
^XMB(3.9,343,2,4749,0)="4749|91112.0000|Monkey Epith IgE RAST Ql|"
^XMB(3.9,343,2,4750,0)="4750|91113.0000|Paper Mulberry IgE RAST Ql|"
^XMB(3.9,343,2,4751,0)="4751|91114.0000|Red mulberry IgE RAST Ql|"
^XMB(3.9,343,2,4752,0)="4752|91115.0000|Mushroom IgG RAST Ql|"
^XMB(3.9,343,2,4753,0)="4753|91116.0000|Mustard IgG RAST Ql|"
^XMB(3.9,343,2,4754,0)="4754|91117.0000|Myelin IgA Titer|"
^XMB(3.9,343,2,4755,0)="4755|91118.0000|Myelin IgG Titer|"
^XMB(3.9,343,2,4756,0)="4756|91119.0000|Myelin IgM Titer|"
^XMB(3.9,343,2,4757,0)="4757|91120.0000|MAG IgM Titer|"
^XMB(3.9,343,2,4758,0)="4758|91121.0000|Neurokinin A|"
^XMB(3.9,343,2,4759,0)="4759|91122.0000|Norketamine|"
^XMB(3.9,343,2,4760,0)="4760|91123.0000|Nuclear IgG|"
^XMB(3.9,343,2,4761,0)="4761|91124.0000|Nutmeg IgG RAST Ql|"
^XMB(3.9,343,2,4762,0)="4762|91125.0000|Oat IgG RAST Ql|"
^XMB(3.9,343,2,4763,0)="4763|91126.0000|Black Olive IgE|"
^XMB(3.9,343,2,4764,0)="4764|91127.0000|Black Olive IgE RAST Ql|"
^XMB(3.9,343,2,4765,0)="4765|91128.0000|Onion IgG RAST Ql|"
^XMB(3.9,343,2,4766,0)="4766|91129.0000|Orange IgG RAST Ql|"
^XMB(3.9,343,2,4767,0)="4767|91130.0000|Orange Tree IgE RAST Ql|"
^XMB(3.9,343,2,4768,0)="4768|91131.0000|Oregano IgG RAST Ql|"
^XMB(3.9,343,2,4769,0)="4769|91132.0000|Osteocalcin Bovine|"
^XMB(3.9,343,2,4770,0)="4770|91133.0000|Oxychlordane|"
^XMB(3.9,343,2,4771,0)="4771|91134.0000|Oyster IgG RAST Ql|"
^XMB(3.9,343,2,4772,0)="4772|91135.0000|Papain IgE RAST Ql|"
^XMB(3.9,343,2,4773,0)="4773|91136.0000|Parsley IgG RAST Ql|"
^XMB(3.9,343,2,4774,0)="4774|91137.0000|Pea IgG RAST Ql|"
^XMB(3.9,343,2,4775,0)="4775|91138.0000|Peach IgG RAST Ql|"
^XMB(3.9,343,2,4776,0)="4776|91139.0000|Peanut IgG RAST Ql|"
^XMB(3.9,343,2,4777,0)="4777|91140.0000|Pear IgG RAST Ql|"
^XMB(3.9,343,2,4778,0)="4778|91141.0000|Black Pepper IgG RAST Ql|"
^XMB(3.9,343,2,4779,0)="4779|91142.0000|Cayenne IgG RAST Ql|"
^XMB(3.9,343,2,4780,0)="4780|91143.0000|Chili Pepper IgG RAST Ql|"
^XMB(3.9,343,2,4781,0)="4781|91144.0000|Green Pepper IgG RAST Ql|"
^XMB(3.9,343,2,4782,0)="4782|91145.0000|Jalepeno Pepper IgE RAST Ql|"
^XMB(3.9,343,2,4783,0)="4783|91146.0000|White Pepper IgG RAST Ql|"
^XMB(3.9,343,2,4784,0)="4784|91147.0000|Peppermint IgE RAST Ql|"
^XMB(3.9,343,2,4785,0)="4785|91148.0000|Pheasant IgE RAST Ql|"
^XMB(3.9,343,2,4786,0)="4786|91149.0000|Pickleweed IgE RAST Ql|"
^XMB(3.9,343,2,4787,0)="4787|91150.0000|Walleye Pike IgE RAST Ql|"
^XMB(3.9,343,2,4788,0)="4788|91151.0000|Lodgepol+Pond Pine IgE|"
^XMB(3.9,343,2,4789,0)="4789|91152.0000|Lodgepol+Pond Pine IgE RAST Ql|"
^XMB(3.9,343,2,4790,0)="4790|91153.0000|Pineapple IgG RAST Ql|"
^XMB(3.9,343,2,4791,0)="4791|91154.0000|Plasmodium falciparum Ab Titer|"
^XMB(3.9,343,2,4792,0)="4792|91155.0000|Plasmodium malariae Ab Titer|"
^XMB(3.9,343,2,4793,0)="4793|91156.0000|Plasmodium ovale Ab Titer|"
^XMB(3.9,343,2,4794,0)="4794|91157.0000|Plasmodium vivax Ab Titer|"
^XMB(3.9,343,2,4795,0)="4795|91158.0000|Plum IgG RAST Ql|"
^XMB(3.9,343,2,4796,0)="4796|91159.0000|Pollack IgE RAST Ql|"
^XMB(3.9,343,2,4797,0)="4797|91160.0000|Pomegranate IgE|"
^XMB(3.9,343,2,4798,0)="4798|91161.0000|Pomegranate IgE RAST Ql|"
^XMB(3.9,343,2,4799,0)="4799|91162.0000|White Poplar IgE|"
^XMB(3.9,343,2,4800,0)="4800|91163.0000|White Poplar IgE RAST Ql|"
^XMB(3.9,343,2,4801,0)="4801|91164.0000|Pork IgG RAST Ql|"
^XMB(3.9,343,2,4802,0)="4802|91165.0000|Potato IgG RAST Ql|"
^XMB(3.9,343,2,4803,0)="4803|91166.0000|Quinidine Peak|"
^XMB(3.9,343,2,4804,0)="4804|91167.0000|Radish IgG RAST Ql|"
^XMB(3.9,343,2,4805,0)="4805|91168.0000|Rape Poln IgE RAST Ql|"
^XMB(3.9,343,2,4806,0)="4806|91169.0000|Rice IgG RAST Ql|"
^XMB(3.9,343,2,4807,0)="4807|91170.0000|Proteus OX19 Ab Titer|"
^XMB(3.9,343,2,4808,0)="4808|91171.0000|Proteus OX2 Ab Titer|"
^XMB(3.9,343,2,4809,0)="4809|91172.0000|Proteus OXK Ab Titer|"
^XMB(3.9,343,2,4810,0)="4810|91173.0000|Rickettsia conorii IgG Titer|"
^XMB(3.9,343,2,4811,0)="4811|91174.0000|Rickettsia conorii IgM Titer|"
^XMB(3.9,343,2,4812,0)="4812|91175.0000|Orientia tsut IgG Titer|"
^XMB(3.9,343,2,4813,0)="4813|91176.0000|Orange roughy IgE RAST Ql|"
^XMB(3.9,343,2,4814,0)="4814|91177.0000|MeV IgG Titer|"
^XMB(3.9,343,2,4815,0)="4815|91178.0000|Rye IgG RAST Ql|"
^XMB(3.9,343,2,4816,0)="4816|91179.0000|Safflower IgG RAST Ql|"
^XMB(3.9,343,2,4817,0)="4817|91180.0000|Sage IgG RAST Ql|"
^XMB(3.9,343,2,4818,0)="4818|91181.0000|Calif Sagbrsh IgE RAST Ql|"
^XMB(3.9,343,2,4819,0)="4819|91182.0000|Salmonella paraty A H Ab Titr|"
^XMB(3.9,343,2,4820,0)="4820|91183.0000|Salmonella paraty B H Ab Titr|"
^XMB(3.9,343,2,4821,0)="4821|91184.0000|Annual Saltbush IgE RAST Ql|"
^XMB(3.9,343,2,4822,0)="4822|91185.0000|Scallop IgG RAST Ql|"
^XMB(3.9,343,2,4823,0)="4823|91186.0000|Schistosoma IgE RAST Ql|"
^XMB(3.9,343,2,4824,0)="4824|91187.0000|Sesame Seed IgG RAST Ql|"
^XMB(3.9,343,2,4825,0)="4825|91188.0000|Shark IgE RAST Ql|"
^XMB(3.9,343,2,4826,0)="4826|91189.0000|Shrimp IgG RAST Ql|"
^XMB(3.9,343,2,4827,0)="4827|91190.0000|ENA SM+RNP IgG|"
^XMB(3.9,343,2,4828,0)="4828|91191.0000|Red Snapper IgG RAST Ql|"
^XMB(3.9,343,2,4829,0)="4829|91192.0000|Sole IgG RAST Ql|"
^XMB(3.9,343,2,4830,0)="4830|91193.0000|Spinach IgG RAST Ql|"
^XMB(3.9,343,2,4831,0)="4831|91194.0000|Blue Spruce IgE RAST Ql|"
^XMB(3.9,343,2,4832,0)="4832|91195.0000|Summer Squash IgE RAST Ql|"
^XMB(3.9,343,2,4833,0)="4833|91196.0000|Zucchini IgE RAST Ql|"
^XMB(3.9,343,2,4834,0)="4834|91197.0000|Zucchini IgG RAST Ql|"
^XMB(3.9,343,2,4835,0)="4835|91198.0000|Strawberry IgG RAST Ql|"
^XMB(3.9,343,2,4836,0)="4836|91199.0000|Sugar Cane IgG RAST Ql|"
^XMB(3.9,343,2,4837,0)="4837|91200.0000|Sulfamethoxazole IgE RAST Ql|"
^XMB(3.9,343,2,4838,0)="4838|91201.0000|Sunflower Seed IgG RAST Ql|"
^XMB(3.9,343,2,4839,0)="4839|91202.0000|Sweet potato IgG RAST Ql|"
^XMB(3.9,343,2,4840,0)="4840|91203.0000|Mandarin IgG RAST Ql|"
^XMB(3.9,343,2,4841,0)="4841|91204.0000|Tea IgG RAST Ql|"
^XMB(3.9,343,2,4842,0)="4842|91205.0000|Testost SHBG adj|"
^XMB(3.9,343,2,4843,0)="4843|91206.0000|Thiosulfate|"
^XMB(3.9,343,2,4844,0)="4844|91207.0000|Tomato IgG RAST Ql|"
^XMB(3.9,343,2,4845,0)="4845|91208.0000|CDT Asialo %|"
^XMB(3.9,343,2,4846,0)="4846|91209.0000|CDT Disialo %|"
^XMB(3.9,343,2,4847,0)="4847|91210.0000|CDT Monosialo %|"
^XMB(3.9,343,2,4848,0)="4848|91211.0000|CDT Pentasialo %|"
^XMB(3.9,343,2,4849,0)="4849|91212.0000|CDT Tetrasialo %|"
^XMB(3.9,343,2,4850,0)="4850|91213.0000|CDT Trisialo %|"
^XMB(3.9,343,2,4851,0)="4851|91214.0000|Tree of heaven IgE RAST Ql|"
^XMB(3.9,343,2,4852,0)="4852|91215.0000|Trout IgG RAST Ql|"
^XMB(3.9,343,2,4853,0)="4853|91216.0000|Turkey IgG RAST Ql|"
^XMB(3.9,343,2,4854,0)="4854|91217.0000|Turkey Feather IgE RAST Ql|"
^XMB(3.9,343,2,4855,0)="4855|91218.0000|Barley+Wheat Smut IgE RAST Ql|"
^XMB(3.9,343,2,4856,0)="4856|91219.0000|Valproate Bnd %|"
^XMB(3.9,343,2,4857,0)="4857|91220.0000|Vanilla IgG RAST Ql|"
^XMB(3.9,343,2,4858,0)="4858|91221.0000|Venison IgE RAST Ql|"
^XMB(3.9,343,2,4859,0)="4859|91222.0000|English Walnut IgE RAST Ql|"
^XMB(3.9,343,2,4860,0)="4860|91223.0000|Watermelon IgG RAST Ql|"
^XMB(3.9,343,2,4861,0)="4861|91224.0000|Wheat IgG RAST Ql|"
^XMB(3.9,343,2,4862,0)="4862|91225.0000|Wheat Dust IgE|"
^XMB(3.9,343,2,4863,0)="4863|91226.0000|Wheat Dust IgE RAST Ql|"
^XMB(3.9,343,2,4864,0)="4864|91227.0000|Whitefish IgG RAST Ql|"
^XMB(3.9,343,2,4865,0)="4865|91228.0000|Bakers Yeast IgG RAST Ql|"
^XMB(3.9,343,2,4866,0)="4866|91229.0000|Brewers Yeast IgG RAST Ql|"
^XMB(3.9,343,2,4867,0)="4867|91230.0000|Yogurt IgE RAST Ql|"
^XMB(3.9,343,2,4868,0)="4868|91231.0000|Reagin Ab|"
^XMB(3.9,343,2,4869,0)="4869|91232.0000|Alloisoleucine|"
^XMB(3.9,343,2,4870,0)="4870|91233.0000|7Dehydrocholest|"
^XMB(3.9,343,2,4871,0)="4871|91234.0000|Platelet Ab Titer|"
^XMB(3.9,343,2,4872,0)="4872|91235.0000|AHSV Ab|"
^XMB(3.9,343,2,4873,0)="4873|91236.0000|AHSV Ab Titer|"
^XMB(3.9,343,2,4874,0)="4874|91237.0000|AHSV|"
^XMB(3.9,343,2,4875,0)="4875|91238.0000|ASFV Ab|"
^XMB(3.9,343,2,4876,0)="4876|91239.0000|AHV1 Ab Titer|"
^XMB(3.9,343,2,4877,0)="4877|91240.0000|ADV Ab|"
^XMB(3.9,343,2,4878,0)="4878|91241.0000|IBV Ab Titer|"
^XMB(3.9,343,2,4879,0)="4879|91242.0000|ILT Ab Titer|"
^XMB(3.9,343,2,4880,0)="4880|91243.0000|Avian FLU Ab Titer|"
^XMB(3.9,343,2,4881,0)="4881|91244.0000|TRTV Ab|"
^XMB(3.9,343,2,4882,0)="4882|91245.0000|Bab bigemina Ab|"
^XMB(3.9,343,2,4883,0)="4883|91246.0000|Bab bovis Ab|"
^XMB(3.9,343,2,4884,0)="4884|91247.0000|Bab divergens Ab|"
^XMB(3.9,343,2,4885,0)="4885|91248.0000|Bacillus anthracis Ab Titer|"
^XMB(3.9,343,2,4886,0)="4886|91249.0000|BDV Ab|"
^XMB(3.9,343,2,4887,0)="4887|91250.0000|BDV Ab Titer|"
^XMB(3.9,343,2,4888,0)="4888|91251.0000|Bordetella bronch Ab|"
^XMB(3.9,343,2,4889,0)="4889|91252.0000|BVDV Ab Titer|"
^XMB(3.9,343,2,4890,0)="4890|91253.0000|BVDV Ab|"
^XMB(3.9,343,2,4891,0)="4891|91254.0000|Brucella abortus IgG1|"
^XMB(3.9,343,2,4892,0)="4892|91255.0000|Burkholderia mallei Ab|"
^XMB(3.9,343,2,4893,0)="4893|91256.0000|CpHV1 Ab|"
^XMB(3.9,343,2,4894,0)="4894|91257.0000|Capripox Ab|"
^XMB(3.9,343,2,4895,0)="4895|91258.0000|CSFV Ab|"
^XMB(3.9,343,2,4896,0)="4896|91259.0000|Cowdria rumin Ab|"
^XMB(3.9,343,2,4897,0)="4897|91260.0000|Dermatophilus congo Ab|"
^XMB(3.9,343,2,4898,0)="4898|91261.0000|DHV1 Ab|"
^XMB(3.9,343,2,4899,0)="4899|91262.0000|DHV2 Ab|"
^XMB(3.9,343,2,4900,0)="4900|91263.0000|DHV3 Ab|"
^XMB(3.9,343,2,4901,0)="4901|91264.0000|Ehrlichia risticii Ab|"
^XMB(3.9,343,2,4902,0)="4902|91265.0000|Ephemeral FV Ab|"
^XMB(3.9,343,2,4903,0)="4903|91266.0000|EHDV Alberta Ab|"
^XMB(3.9,343,2,4904,0)="4904|91267.0000|EHDV New Jersey Ab|"
^XMB(3.9,343,2,4905,0)="4905|91268.0000|EAV Ab|"
^XMB(3.9,343,2,4906,0)="4906|91269.0000|EHV1+4 Ab|"
^XMB(3.9,343,2,4907,0)="4907|91270.0000|EHV1+4 Ab Titer|"
^XMB(3.9,343,2,4908,0)="4908|91271.0000|EIV A1 Ab|"
^XMB(3.9,343,2,4909,0)="4909|91272.0000|FMDV Ab|"
^XMB(3.9,343,2,4910,0)="4910|91273.0000|FMDV|"
^XMB(3.9,343,2,4911,0)="4911|91274.0000|Histoplasma capsul farci Ab|"
^XMB(3.9,343,2,4912,0)="4912|91275.0000|IBDV Ab Titer|"
^XMB(3.9,343,2,4913,0)="4913|91276.0000|JEV Ab Titer|"
^XMB(3.9,343,2,4914,0)="4914|91277.0000|Leishmania Ab Titer|"
^XMB(3.9,343,2,4915,0)="4915|91278.0000|Leptospira inter Austral Ab|"
^XMB(3.9,343,2,4916,0)="4916|91279.0000|Leptospira inter Autum Ab|"
^XMB(3.9,343,2,4917,0)="4917|91280.0000|Leptospira borgp Ball Ab|"
^XMB(3.9,343,2,4918,0)="4918|91281.0000|Leptospira inter Batav Ab|"
^XMB(3.9,343,2,4919,0)="4919|91282.0000|Leptospira inter Brat Ab|"
^XMB(3.9,343,2,4920,0)="4920|91283.0000|Leptospira inter Canic Ab|"
^XMB(3.9,343,2,4921,0)="4921|91284.0000|Leptospira inter Copen Ab|"
^XMB(3.9,343,2,4922,0)="4922|91285.0000|Leptospira inter Grip Ab|"
^XMB(3.9,343,2,4923,0)="4923|91286.0000|Leptospira inter Hard Ab|"
^XMB(3.9,343,2,4924,0)="4924|91287.0000|Leptospira inter Hebdo Ab|"
^XMB(3.9,343,2,4925,0)="4925|91288.0000|Leptospira inter Icter Ab|"
^XMB(3.9,343,2,4926,0)="4926|91289.0000|Leptospira inter Mitis Ab|"
^XMB(3.9,343,2,4927,0)="4927|91290.0000|Leptospira inter Pomon Ab|"
^XMB(3.9,343,2,4928,0)="4928|91291.0000|Leptospira borgp Sej Ab|"
^XMB(3.9,343,2,4929,0)="4929|91292.0000|Leptospira IgG|"
^XMB(3.9,343,2,4930,0)="4930|91293.0000|Leptospira IgM|"
^XMB(3.9,343,2,4931,0)="4931|91294.0000|Leptospira borgp Tarra Ab|"
^XMB(3.9,343,2,4932,0)="4932|91295.0000|LSDV Ab Titer|"
^XMB(3.9,343,2,4933,0)="4933|91296.0000|LSDV Ab|"
^XMB(3.9,343,2,4934,0)="4934|91297.0000|GaHV Ab|"
^XMB(3.9,343,2,4935,0)="4935|91298.0000|Mycobacterium bovis Ab|"
^XMB(3.9,343,2,4936,0)="4936|91299.0000|Mycoplasma agalactiae Ab|"
^XMB(3.9,343,2,4937,0)="4937|91300.0000|Mycoplasma arginini Ab|"
^XMB(3.9,343,2,4938,0)="4938|91301.0000|Mp bovis Ab|"
^XMB(3.9,343,2,4939,0)="4939|91302.0000|Mycoplasma cap capric Ab|"
^XMB(3.9,343,2,4940,0)="4940|91303.0000|Mycoplasma cap caprip Ab|"
^XMB(3.9,343,2,4941,0)="4941|91304.0000|Mycoplasma cap caprip Ab Titer|"
^XMB(3.9,343,2,4942,0)="4942|91305.0000|Mycoplasma gallisep Ab Titer|"
^XMB(3.9,343,2,4943,0)="4943|91306.0000|Mycoplasma myc capri Ab|"
^XMB(3.9,343,2,4944,0)="4944|91307.0000|Mycoplasma myc my lc Ab|"
^XMB(3.9,343,2,4945,0)="4945|91308.0000|Mycoplasma myc my sc Ab|"
^XMB(3.9,343,2,4946,0)="4946|91309.0000|Mycoplasma putrefaciens Ab|"
^XMB(3.9,343,2,4947,0)="4947|91310.0000|MYXV Ab|"
^XMB(3.9,343,2,4948,0)="4948|91311.0000|MYXV Ab Titer|"
^XMB(3.9,343,2,4949,0)="4949|91312.0000|NSDV Ab Titer|"
^XMB(3.9,343,2,4950,0)="4950|91313.0000|NSDV Ab|"
^XMB(3.9,343,2,4951,0)="4951|91314.0000|OvHV2 Ab|"
^XMB(3.9,343,2,4952,0)="4952|91315.0000|OPPV Ab|"
^XMB(3.9,343,2,4953,0)="4953|91316.0000|Pasteurella multoc Ab Titer|"
^XMB(3.9,343,2,4954,0)="4954|91317.0000|PPRV Ab Titer|"
^XMB(3.9,343,2,4955,0)="4955|91318.0000|PPRV Ab|"
^XMB(3.9,343,2,4956,0)="4956|91319.0000|PEV Ab|"
^XMB(3.9,343,2,4957,0)="4957|91320.0000|PPV Ab|"
^XMB(3.9,343,2,4958,0)="4958|91321.0000|PRCoV Ab|"
^XMB(3.9,343,2,4959,0)="4959|91322.0000|RVFV Ab Titer|"
^XMB(3.9,343,2,4960,0)="4960|91323.0000|RVFV Ab|"
^XMB(3.9,343,2,4961,0)="4961|91324.0000|RVFV Ag|"
^XMB(3.9,343,2,4962,0)="4962|91325.0000|RPV Ab|"
^XMB(3.9,343,2,4963,0)="4963|91326.0000|RPV Ab Titer|"
^XMB(3.9,343,2,4964,0)="4964|91327.0000|Salmonella abortus equi Ab|"
^XMB(3.9,343,2,4965,0)="4965|91328.0000|Salmonella abortus ovis Ab|"
^XMB(3.9,343,2,4966,0)="4966|91329.0000|Salmonella enteritid IgG|"
^XMB(3.9,343,2,4967,0)="4967|91330.0000|Salmonella gallinarum Ab|"
^XMB(3.9,343,2,4968,0)="4968|91331.0000|SIV Ab|"
^XMB(3.9,343,2,4969,0)="4969|91332.0000|SVD Ab|"
^XMB(3.9,343,2,4970,0)="4970|91333.0000|Taylorella equigenit Ab|"
^XMB(3.9,343,2,4971,0)="4971|91334.0000|Theileria annulata Ab|"
^XMB(3.9,343,2,4972,0)="4972|91335.0000|Theileria annulata Ab Titer|"
^XMB(3.9,343,2,4973,0)="4973|91336.0000|Theileria annulata rRNA|"
^XMB(3.9,343,2,4974,0)="4974|91337.0000|Theileria mutans Ab Titer|"
^XMB(3.9,343,2,4975,0)="4975|91338.0000|Theileria mutans Ab|"
^XMB(3.9,343,2,4976,0)="4976|91339.0000|Theileria mutans DNA|"
^XMB(3.9,343,2,4977,0)="4977|91340.0000|Theileria parva Ab|"
^XMB(3.9,343,2,4978,0)="4978|91341.0000|Theileria parva Ab Titer|"
^XMB(3.9,343,2,4979,0)="4979|91342.0000|Theileria parva DNA|"
^XMB(3.9,343,2,4980,0)="4980|91343.0000|Theileria parva rRNA|"
^XMB(3.9,343,2,4981,0)="4981|91344.0000|TGEV Ab|"
^XMB(3.9,343,2,4982,0)="4982|91345.0000|TGEV Ab Titer|"
^XMB(3.9,343,2,4983,0)="4983|91346.0000|Trypanosoma equiperdum Ab Titer|"
^XMB(3.9,343,2,4984,0)="4984|91347.0000|Trypanosoma equiperdum Ab|"
^XMB(3.9,343,2,4985,0)="4985|91348.0000|Trypanosoma evansi Ab|"
^XMB(3.9,343,2,4986,0)="4986|91349.0000|TCoV|"
^XMB(3.9,343,2,4987,0)="4987|91350.0000|VSV Ab|"
^XMB(3.9,343,2,4988,0)="4988|91351.0000|VSIV Ab|"
^XMB(3.9,343,2,4989,0)="4989|91352.0000|VSNJV Ab|"
^XMB(3.9,343,2,4990,0)="4990|91353.0000|RHDV Ab|"
^XMB(3.9,343,2,4991,0)="4991|91354.0000|RHDV Ab Titer|"
^XMB(3.9,343,2,4992,0)="4992|91355.0000|Actinobacillus pleuropn1 Ab|"
^XMB(3.9,343,2,4993,0)="4993|91356.0000|Actinobacillus pleuropn3 Ab|"
^XMB(3.9,343,2,4994,0)="4994|91357.0000|Actinobacillus pleuropn5 Ab|"
^XMB(3.9,343,2,4995,0)="4995|91358.0000|Actinobacillus pleuropn7 Ab|"
^XMB(3.9,343,2,4996,0)="4996|91359.0000|Actinobacillus pleuropn Ab Titer|"
^XMB(3.9,343,2,4997,0)="4997|91360.0000|Anaplasma marginale Ab Titer|"
^XMB(3.9,343,2,4998,0)="4998|91361.0000|Bab canis Titer|"
^XMB(3.9,343,2,4999,0)="4999|91362.0000|Bartonella henselae Ab Titer|"
^XMB(3.9,343,2,5000,0)="5000|91363.0000|Biochanin A|"
^XMB(3.9,343,2,5001,0)="5001|91364.0000|BTV10 Ab Titer|"
^XMB(3.9,343,2,5002,0)="5002|91365.0000|BTV11 Ab Titer|"
^XMB(3.9,343,2,5003,0)="5003|91366.0000|BTV13 Ab Titer|"
^XMB(3.9,343,2,5004,0)="5004|91367.0000|BTV17 Ab Titer|"
^XMB(3.9,343,2,5005,0)="5005|91368.0000|BTV2 Ab Titer|"
^XMB(3.9,343,2,5006,0)="5006|91369.0000|BLV Ab Titer|"
^XMB(3.9,343,2,5007,0)="5007|91370.0000|Brucella ovis Ab Titer|"
^XMB(3.9,343,2,5008,0)="5008|91371.0000|CAdV1 Ab|"
^XMB(3.9,343,2,5009,0)="5009|91372.0000|CCV Ab|"
^XMB(3.9,343,2,5010,0)="5010|91373.0000|CDV Ab|"
^XMB(3.9,343,2,5011,0)="5011|91374.0000|CDV Ab Titer|"
^XMB(3.9,343,2,5012,0)="5012|91375.0000|CDV IgG Titer|"
^XMB(3.9,343,2,5013,0)="5013|91376.0000|CDV IgM Titer|"
^XMB(3.9,343,2,5014,0)="5014|91377.0000|CaHV Ab|"
^XMB(3.9,343,2,5015,0)="5015|91378.0000|CPV Ab|"
^XMB(3.9,343,2,5016,0)="5016|91379.0000|CPV Ab Titer|"
^XMB(3.9,343,2,5017,0)="5017|91380.0000|CPV IgG Titer|"
^XMB(3.9,343,2,5018,0)="5018|91381.0000|CPV IgM Titer|"
^XMB(3.9,343,2,5019,0)="5019|91382.0000|Dirofilaria immitis Ag|"
^XMB(3.9,343,2,5020,0)="5020|91383.0000|Ehrlichia canis Ab Titer|"
^XMB(3.9,343,2,5021,0)="5021|91384.0000|FCV Ab Titer|"
^XMB(3.9,343,2,5022,0)="5022|91385.0000|FCoV Ab|"
^XMB(3.9,343,2,5023,0)="5023|91386.0000|FCoV Ab Titer|"
^XMB(3.9,343,2,5024,0)="5024|91387.0000|FeHV1 Ab|"
^XMB(3.9,343,2,5025,0)="5025|91388.0000|FeHV Ab Titer|"
^XMB(3.9,343,2,5026,0)="5026|91389.0000|FIV Ab|"
^XMB(3.9,343,2,5027,0)="5027|91390.0000|FIV Ab Titer|"
^XMB(3.9,343,2,5028,0)="5028|91391.0000|FIPV Ab|"
^XMB(3.9,343,2,5029,0)="5029|91392.0000|FeLV Ab|"
^XMB(3.9,343,2,5030,0)="5030|91393.0000|FeLV Ab Titer|"
^XMB(3.9,343,2,5031,0)="5031|91394.0000|FPLV Ab Titer|"
^XMB(3.9,343,2,5032,0)="5032|91395.0000|FeHV1 Ab Titer|"
^XMB(3.9,343,2,5033,0)="5033|91396.0000|FSV Ab Titer|"
^XMB(3.9,343,2,5034,0)="5034|91397.0000|Genistein|"
^XMB(3.9,343,2,5035,0)="5035|91398.0000|Histoplasma Ab|"
^XMB(3.9,343,2,5036,0)="5036|91399.0000|Mycoplasma hyopneumo Ab|"
^XMB(3.9,343,2,5037,0)="5037|91400.0000|Mycoplasma Ab Titer|"
^XMB(3.9,343,2,5038,0)="5038|91401.0000|Mycoplasma synoviae Ab Titer|"
^XMB(3.9,343,2,5039,0)="5039|91402.0000|Neospora caninum Ab Titer|"
^XMB(3.9,343,2,5040,0)="5040|91403.0000|Porcin FLUA Ab Titer|"
^XMB(3.9,343,2,5041,0)="5041|91404.0000|PPV Ab Titer|"
^XMB(3.9,343,2,5042,0)="5042|91405.0000|SIRSV Ab Titer|"
^XMB(3.9,343,2,5043,0)="5043|91406.0000|Rhodococcus equi Ab Titer|"
^XMB(3.9,343,2,5044,0)="5044|91407.0000|Salmonella pullorum Ab Titer|"
^XMB(3.9,343,2,5045,0)="5045|91408.0000|Salmonella typhimur Ab Titer|"
^XMB(3.9,343,2,5046,0)="5046|91409.0000|Taylorella equigenit Ab Titer|"
^XMB(3.9,343,2,5047,0)="5047|91410.0000|Toxoplasma gondii Ab Titer|"
^XMB(3.9,343,2,5048,0)="5048|91411.0000|VSIV Ab Titer|"
^XMB(3.9,343,2,5049,0)="5049|91412.0000|VSNJV Ab Titer|"
^XMB(3.9,343,2,5050,0)="5050|91413.0000|Food Allerg Mix C IgE Ql|"
^XMB(3.9,343,2,5051,0)="5051|91414.0000|Dust Allerg Mix2 IgE Ql|"
^XMB(3.9,343,2,5052,0)="5052|91415.0000|Tree Allerg Mix1 IgE Ql|"
^XMB(3.9,343,2,5053,0)="5053|91416.0000|Tree Allerg Mix2 IgE Ql|"
^XMB(3.9,343,2,5054,0)="5054|91417.0000|Epid Allerg Mix1 IgE Ql|"
^XMB(3.9,343,2,5055,0)="5055|91418.0000|Epid Allerg Mix73 IgE Ql|"
^XMB(3.9,343,2,5056,0)="5056|91419.0000|Mold Allerg Mix1 IgE Ql|"
^XMB(3.9,343,2,5057,0)="5057|91420.0000|Food Allerg Mix5 IgE Ql|"
^XMB(3.9,343,2,5058,0)="5058|91421.0000|Grass Allerg Mix D IgE Ql|"
^XMB(3.9,343,2,5059,0)="5059|91422.0000|Grass Allerg Mix1 IgE Ql|"
^XMB(3.9,343,2,5060,0)="5060|91423.0000|AFP MoM adj|"
^XMB(3.9,343,2,5061,0)="5061|91424.0000|AFP MoM unadj|"
^XMB(3.9,343,2,5062,0)="5062|91425.0000|Alternaria IgE RAST Ql|"
^XMB(3.9,343,2,5063,0)="5063|91426.0000|Other Antibiotic|"
^XMB(3.9,343,2,5064,0)="5064|91427.0000|Bordetella pert FHA IgA|"
^XMB(3.9,343,2,5065,0)="5065|91428.0000|Bordetella pert FHA IgG|"
^XMB(3.9,343,2,5066,0)="5066|91429.0000|Bordetella pert FHA IgM|"
^XMB(3.9,343,2,5067,0)="5067|91430.0000|Bordetella pert Tox IgA|"
^XMB(3.9,343,2,5068,0)="5068|91431.0000|Bordetella pert Tox IgG|"
^XMB(3.9,343,2,5069,0)="5069|91432.0000|Bordetella pert Tox IgM|"
^XMB(3.9,343,2,5070,0)="5070|91433.0000|Borrelia burgdor Ab Indx|"
^XMB(3.9,343,2,5071,0)="5071|91434.0000|Canary Drop IgE RAST Ql|"
^XMB(3.9,343,2,5072,0)="5072|91435.0000|Carbon diS|"
^XMB(3.9,343,2,5073,0)="5073|91436.0000|B-HCG MOM unadj|"
^XMB(3.9,343,2,5074,0)="5074|91437.0000|B-HCG MOM adj|"
^XMB(3.9,343,2,5075,0)="5075|91438.0000|Cockatiel Drop Ab Ql ID|"
^XMB(3.9,343,2,5076,0)="5076|91439.0000|Creosol|"
^XMB(3.9,343,2,5077,0)="5077|91440.0000|Cyclohexanone|"
^XMB(3.9,343,2,5078,0)="5078|91441.0000|Echinococcus granulosus IgE|"
^XMB(3.9,343,2,5079,0)="5079|91442.0000|Endrin|"
^XMB(3.9,343,2,5080,0)="5080|91443.0000|Famotidine|"
^XMB(3.9,343,2,5081,0)="5081|91444.0000|Finch Drop IgE RAST Ql|"
^XMB(3.9,343,2,5082,0)="5082|91445.0000|SNV IgG Titer|"
^XMB(3.9,343,2,5083,0)="5083|91446.0000|SNV IgM Titer|"
^XMB(3.9,343,2,5084,0)="5084|91447.0000|Hepatitis C100+5-1-1 Ab|"
^XMB(3.9,343,2,5085,0)="5085|91448.0000|HGE IgG Titer|"
^XMB(3.9,343,2,5086,0)="5086|91449.0000|HGE IgM Titer|"
^XMB(3.9,343,2,5087,0)="5087|91450.0000|Maple IgE RAST Ql|"
^XMB(3.9,343,2,5088,0)="5088|91451.0000|Mattress Dust IgE RAST Ql|"
^XMB(3.9,343,2,5089,0)="5089|91452.0000|MPA|"
^XMB(3.9,343,2,5090,0)="5090|91453.0000|MPA-G|"
^XMB(3.9,343,2,5091,0)="5091|91454.0000|MAG-SGPG IgM|"
^XMB(3.9,343,2,5092,0)="5092|91455.0000|Wild Oat IgE RAST Ql|"
^XMB(3.9,343,2,5093,0)="5093|91456.0000|Parakeet Drop IgE RAST Ql|"
^XMB(3.9,343,2,5094,0)="5094|91457.0000|Bell Pepper IgE RAST Ql|"
^XMB(3.9,343,2,5095,0)="5095|91458.0000|White Pepper IgE RAST Ql|"
^XMB(3.9,343,2,5096,0)="5096|91459.0000|ENA RNP IgG|"
^XMB(3.9,343,2,5097,0)="5097|91460.0000|Salmonella typhi O D Titer|"
^XMB(3.9,343,2,5098,0)="5098|91461.0000|Staphylococcus aureus Etx B Ab|"
^XMB(3.9,343,2,5099,0)="5099|91462.0000|Staphylococcus aureus Tox1 Ab|"
^XMB(3.9,343,2,5100,0)="5100|91463.0000|Trans Nonachlor|"
^XMB(3.9,343,2,5101,0)="5101|91464.0000|Water Chestnut IgE RAST Ql|"
^XMB(3.9,343,2,5102,0)="5102|91465.0000|DENV IgG|"
^XMB(3.9,343,2,5103,0)="5103|91466.0000|Burkholderia pseudomal IgG Titer|"
^XMB(3.9,343,2,5104,0)="5104|91467.0000|DENV IgM|"
^XMB(3.9,343,2,5105,0)="5105|91468.0000|EBV EA IgG Titer|"
^XMB(3.9,343,2,5106,0)="5106|91469.0000|Burkholderia pseudomal IgM Titer|"
^XMB(3.9,343,2,5107,0)="5107|91470.0000|Chlamydophila pneum IgM|"
^XMB(3.9,343,2,5108,0)="5108|91471.0000|Hepatitis C Ab Patrn|"
^XMB(3.9,343,2,5109,0)="5109|91472.0000|HSV2 IgG Titer|"
^XMB(3.9,343,2,5110,0)="5110|91473.0000|Streptococcus pneum14 Ab|"
^XMB(3.9,343,2,5111,0)="5111|91474.0000|Streptococcus pneum3 Ab|"
^XMB(3.9,343,2,5112,0)="5112|91475.0000|Rifabutin|"
^XMB(3.9,343,2,5113,0)="5113|91476.0000|Cryoglob Typ|"
^XMB(3.9,343,2,5114,0)="5114|91477.0000|Cysticerc IgG Patrn|"
^XMB(3.9,343,2,5115,0)="5115|91478.0000|A-Fucosidase|"
^XMB(3.9,343,2,5116,0)="5116|91479.0000|B-Mannosidase|"
^XMB(3.9,343,2,5117,0)="5117|91480.0000|Iduronate2Sulfatas|"
^XMB(3.9,343,2,5118,0)="5118|91481.0000|RRV IgG|"
^XMB(3.9,343,2,5119,0)="5119|91482.0000|BFV IgM|"
^XMB(3.9,343,2,5120,0)="5120|91483.0000|RRV IgM|"
^XMB(3.9,343,2,5121,0)="5121|91484.0000|BFV IgG|"
^XMB(3.9,343,2,5122,0)="5122|91485.0000|Testost FTI|"
^XMB(3.9,343,2,5123,0)="5123|91486.0000|Grass Allerg Mix B IgE Ql|"
^XMB(3.9,343,2,5124,0)="5124|91487.0000|Tree Allerg Mix6 IgE Ql|"
^XMB(3.9,343,2,5125,0)="5125|91488.0000|Black Walnut IgG|"
^XMB(3.9,343,2,5126,0)="5126|91489.0000|White Hickory IgG|"
^XMB(3.9,343,2,5127,0)="5127|91490.0000|Johnson grass IgG|"
^XMB(3.9,343,2,5128,0)="5128|91491.0000|Roach IgG|"
^XMB(3.9,343,2,5129,0)="5129|91492.0000|White Ash IgG|"
^XMB(3.9,343,2,5130,0)="5130|91493.0000|Marsh Elder IgG|"
^XMB(3.9,343,2,5131,0)="5131|91494.0000|Red mulberry IgG|"
^XMB(3.9,343,2,5132,0)="5132|91495.0000|Sheep Sorrel IgG|"
^XMB(3.9,343,2,5133,0)="5133|91496.0000|Brome IgG|"
^XMB(3.9,343,2,5134,0)="5134|91497.0000|American Sycamore IgG|"
^XMB(3.9,343,2,5135,0)="5135|91498.0000|West Water Hemp IgG|"
^XMB(3.9,343,2,5136,0)="5136|91499.0000|Epid Allerg Mix A IgE|"
^XMB(3.9,343,2,5137,0)="5137|91500.0000|Kent blue grass IgG|"
^XMB(3.9,343,2,5138,0)="5138|91501.0000|Food Allerg Mix D IgG|"
^XMB(3.9,343,2,5139,0)="5139|91502.0000|Red Maple IgG|"
^XMB(3.9,343,2,5140,0)="5140|91503.0000|Giant Ragweed IgG|"
^XMB(3.9,343,2,5141,0)="5141|91504.0000|Kamut Flour IgG|"
^XMB(3.9,343,2,5142,0)="5142|91505.0000|Goosefoot IgG|"
^XMB(3.9,343,2,5143,0)="5143|91506.0000|Mango IgG|"
^XMB(3.9,343,2,5144,0)="5144|91507.0000|Maple Syrup IgG|"
^XMB(3.9,343,2,5145,0)="5145|91508.0000|White+Black Pepper IgG|"
^XMB(3.9,343,2,5146,0)="5146|91509.0000|White+Black Pepper IgE|"
^XMB(3.9,343,2,5147,0)="5147|91510.0000|String+Wax Bean IgE|"
^XMB(3.9,343,2,5148,0)="5148|91511.0000|Aspergillus fumigatus IgG RAST Ql|"
^XMB(3.9,343,2,5149,0)="5149|91512.0000|Food Allerg Mix73 IgE Ql|"
^XMB(3.9,343,2,5150,0)="5150|91513.0000|Sugar Beet Seed IgE|"
^XMB(3.9,343,2,5151,0)="5151|91514.0000|Cat Hair+Dander IgG|"
^XMB(3.9,343,2,5152,0)="5152|91515.0000|PV1 Ab sp1 Titer|"
^XMB(3.9,343,2,5153,0)="5153|91516.0000|PV1 Ab sp2 Titer|"
^XMB(3.9,343,2,5154,0)="5154|91517.0000|PV2 Ab sp1 Titer|"
^XMB(3.9,343,2,5155,0)="5155|91518.0000|PV2 Ab sp2 Titer|"
^XMB(3.9,343,2,5156,0)="5156|91519.0000|PV3 Ab sp1 Titer|"
^XMB(3.9,343,2,5157,0)="5157|91520.0000|PV3 Ab sp2 Titer|"
^XMB(3.9,343,2,5158,0)="5158|91521.0000|HAdV Ab sp1 Titer|"
^XMB(3.9,343,2,5159,0)="5159|91522.0000|HAdV Ab sp2 Titer|"
^XMB(3.9,343,2,5160,0)="5160|91523.0000|CV B1 Ab sp1 Titer|"
^XMB(3.9,343,2,5161,0)="5161|91524.0000|CV B1 Ab sp2 Titer|"
^XMB(3.9,343,2,5162,0)="5162|91525.0000|CV B2 Ab sp1 Titer|"
^XMB(3.9,343,2,5163,0)="5163|91526.0000|CV B2 Ab sp2 Titer|"
^XMB(3.9,343,2,5164,0)="5164|91527.0000|CV B3 Ab sp1 Titer|"
^XMB(3.9,343,2,5165,0)="5165|91528.0000|CV B3 Ab sp2 Titer|"
^XMB(3.9,343,2,5166,0)="5166|91529.0000|CV B4 Ab sp1 Titer|"
^XMB(3.9,343,2,5167,0)="5167|91530.0000|CV B4 Ab sp2 Titer|"
^XMB(3.9,343,2,5168,0)="5168|91531.0000|CV B5 Ab sp1 Titer|"
^XMB(3.9,343,2,5169,0)="5169|91532.0000|CV B5 Ab sp2 Titer|"
^XMB(3.9,343,2,5170,0)="5170|91533.0000|CV B6 Ab sp1 Titer|"
^XMB(3.9,343,2,5171,0)="5171|91534.0000|CV B6 Ab sp2 Titer|"
^XMB(3.9,343,2,5172,0)="5172|91535.0000|SLEV Ab sp1 Titer|"
^XMB(3.9,343,2,5173,0)="5173|91536.0000|SLEV Ab sp2 Titer|"
^XMB(3.9,343,2,5174,0)="5174|91537.0000|Legionella pneumo Ab sp1 Titer|"
^XMB(3.9,343,2,5175,0)="5175|91538.0000|Legionella pneumo Ab sp2 Titer|"
^XMB(3.9,343,2,5176,0)="5176|91539.0000|Rickettsia typhi IgG sp1 Titer|"
^XMB(3.9,343,2,5177,0)="5177|91540.0000|Rickettsia typhi IgG sp2 Titer|"
^XMB(3.9,343,2,5178,0)="5178|91541.0000|Rick SF IgG sp1 Titer|"
^XMB(3.9,343,2,5179,0)="5179|91542.0000|Rick SF IgG sp2 Titer|"
^XMB(3.9,343,2,5180,0)="5180|91543.0000|LACV Ab sp1 Titer|"
^XMB(3.9,343,2,5181,0)="5181|91544.0000|LACV Ab sp2 Titer|"
^XMB(3.9,343,2,5182,0)="5182|91545.0000|WEEV Ab sp1 Titer|"
^XMB(3.9,343,2,5183,0)="5183|91546.0000|WEEV Ab sp2 Titer|"
^XMB(3.9,343,2,5184,0)="5184|91547.0000|EEEV Ab sp1 Titer|"
^XMB(3.9,343,2,5185,0)="5185|91548.0000|EEEV Ab sp2 Titer|"
^XMB(3.9,343,2,5186,0)="5186|91549.0000|FLUA Ab sp1 Titer|"
^XMB(3.9,343,2,5187,0)="5187|91550.0000|FLUA Ab sp2 Titer|"
^XMB(3.9,343,2,5188,0)="5188|91551.0000|FLUB Ab sp1 Titer|"
^XMB(3.9,343,2,5189,0)="5189|91552.0000|FLUB Ab sp2 Titer|"
^XMB(3.9,343,2,5190,0)="5190|91553.0000|PARAFLU1 Ab sp1 Titer|"
^XMB(3.9,343,2,5191,0)="5191|91554.0000|PARAFLU2 Ab sp1 Titer|"
^XMB(3.9,343,2,5192,0)="5192|91555.0000|PARAFLU2 Ab sp2 Titer|"
^XMB(3.9,343,2,5193,0)="5193|91556.0000|PARAFLU3 Ab sp1 Titer|"
^XMB(3.9,343,2,5194,0)="5194|91557.0000|PARAFLU3 Ab sp2 Titer|"
^XMB(3.9,343,2,5195,0)="5195|91558.0000|RSV Ab sp1 Titer|"
^XMB(3.9,343,2,5196,0)="5196|91559.0000|RSV Ab sp2 Titer|"
^XMB(3.9,343,2,5197,0)="5197|91560.0000|CV A10 Ab sp1 Titer|"
^XMB(3.9,343,2,5198,0)="5198|91561.0000|CV A10 Ab sp2 Titer|"
^XMB(3.9,343,2,5199,0)="5199|91562.0000|CV A16 Ab sp1 Titer|"
^XMB(3.9,343,2,5200,0)="5200|91563.0000|CV A16 Ab sp2 Titer|"
^XMB(3.9,343,2,5201,0)="5201|91564.0000|CV A7 Ab sp1 Titer|"
^XMB(3.9,343,2,5202,0)="5202|91565.0000|CV A7 Ab sp2 Titer|"
^XMB(3.9,343,2,5203,0)="5203|91566.0000|CV A9 Ab sp1 Titer|"
^XMB(3.9,343,2,5204,0)="5204|91567.0000|CV A9 Ab sp2 Titer|"
^XMB(3.9,343,2,5205,0)="5205|91568.0000|Mycoplasma pneumo IgG sp1|"
^XMB(3.9,343,2,5206,0)="5206|91569.0000|Mycoplasma pneumo IgG sp2|"
^XMB(3.9,343,2,5207,0)="5207|91570.0000|Mycoplasma pneumo Ab sp1 Titer|"
^XMB(3.9,343,2,5208,0)="5208|91571.0000|Mycoplasma pneumo Ab sp2 Titer|"
^XMB(3.9,343,2,5209,0)="5209|91572.0000|Chlamydia IgG sp1|"
^XMB(3.9,343,2,5210,0)="5210|91573.0000|Chlamydia IgG sp2|"
^XMB(3.9,343,2,5211,0)="5211|91574.0000|MuV IgG sp1|"
^XMB(3.9,343,2,5212,0)="5212|91575.0000|MuV IgG sp2|"
^XMB(3.9,343,2,5213,0)="5213|91576.0000|Toxoplasma gondii IgG sp1|"
^XMB(3.9,343,2,5214,0)="5214|91577.0000|Hepatitis HCFA 96 Pan|"
^XMB(3.9,343,2,5215,0)="5215|91578.0000|TORCH HCFA 96 Pan|"
^XMB(3.9,343,2,5216,0)="5216|91579.0000|CMV IgG+IgM Pan|"
^XMB(3.9,343,2,5217,0)="5217|91580.0000|EBV VCA IgG+IgM Pan|"
^XMB(3.9,343,2,5218,0)="5218|91581.0000|Cardiolipin IgG+IgM Pan|"
^XMB(3.9,343,2,5219,0)="5219|91582.0000|Bas Metab HCFA 98 Pan|"
^XMB(3.9,343,2,5220,0)="5220|91583.0000|Bas Metab HCFA 2000 Pan|"
^XMB(3.9,343,2,5221,0)="5221|91584.0000|Comp Metab HCFA 98 Pan|"
^XMB(3.9,343,2,5222,0)="5222|91585.0000|Comp Metab HCFA 2000 Pan|"
^XMB(3.9,343,2,5223,0)="5223|91586.0000|Hepatitis Func HCFA 96 Pan|"
^XMB(3.9,343,2,5224,0)="5224|91587.0000|Hepatitis Func HCFA 2000 Pan|"
^XMB(3.9,343,2,5225,0)="5225|91588.0000|Lytes HCFA 98 Pan|"
^XMB(3.9,343,2,5226,0)="5226|91589.0000|Lipid HCFA 96 Pan|"
^XMB(3.9,343,2,5227,0)="5227|91590.0000|ALP Iso Pan|"
^XMB(3.9,343,2,5228,0)="5228|91591.0000|Amylase Iso3 Pan|"
^XMB(3.9,343,2,5229,0)="5229|91592.0000|Amylase Iso7 Pan|"
^XMB(3.9,343,2,5230,0)="5230|91593.0000|CK Pan|"
^XMB(3.9,343,2,5231,0)="5231|91594.0000|PTH Intact + Ca Pan|"
^XMB(3.9,343,2,5232,0)="5232|91595.0000|PTH Mid Mol + Ca Pan|"
^XMB(3.9,343,2,5233,0)="5233|91596.0000|Free T4 + TSH Pan|"
^XMB(3.9,343,2,5234,0)="5234|91597.0000|Prot Elph Pan|"
^XMB(3.9,343,2,5235,0)="5235|91598.0000|Renal Func HCFA 2000 Pan|"
^XMB(3.9,343,2,5236,0)="5236|91599.0000|Acute Hep HCFA 2000 Pan|"
^XMB(3.9,343,2,5237,0)="5237|91600.0000|Obstetric HCFA 96 Pan|"
^XMB(3.9,343,2,5238,0)="5238|91601.0000|PA Ab|"
^XMB(3.9,343,2,5239,0)="5239|91602.0000|Neut Assoc Ab|"
^XMB(3.9,343,2,5240,0)="5240|91603.0000|Cortis 10H p 1 mg Dex|"
^XMB(3.9,343,2,5241,0)="5241|91604.0000|Cortis 17H p 1 mg Dex|"
^XMB(3.9,343,2,5242,0)="5242|91605.0000|Cortis 24H p 1 mg Dex|"
^XMB(3.9,343,2,5243,0)="5243|91606.0000|Androst BS|"
^XMB(3.9,343,2,5244,0)="5244|91607.0000|Estradiol BS|"
^XMB(3.9,343,2,5245,0)="5245|91608.0000|Filovirus Ab Titer|"
^XMB(3.9,343,2,5246,0)="5246|91609.0000|Formononetin|"
^XMB(3.9,343,2,5247,0)="5247|91610.0000|Haemophilus somnus Ab Titer|"
^XMB(3.9,343,2,5248,0)="5248|91611.0000|IgA Canine|"
^XMB(3.9,343,2,5249,0)="5249|91612.0000|IgG Canine|"
^XMB(3.9,343,2,5250,0)="5250|91613.0000|IgG Equine|"
^XMB(3.9,343,2,5251,0)="5251|91614.0000|IgM Canine|"
^XMB(3.9,343,2,5252,0)="5252|91615.0000|Il2Recep|"
^XMB(3.9,343,2,5253,0)="5253|91616.0000|TSH 20M p TRH|"
^XMB(3.9,343,2,5254,0)="5254|91617.0000|CD14+CD16+CD59+ Cells|"
^XMB(3.9,343,2,5255,0)="5255|91618.0000|CASA|"
^XMB(3.9,343,2,5256,0)="5256|91619.0000|Grass Allerg Mix1 IgE RAST Ql|"
^XMB(3.9,343,2,5257,0)="5257|91620.0000|Tree Allerg Mix1 IgE RAST Ql|"
^XMB(3.9,343,2,5258,0)="5258|91621.0000|Weed Allerg Mix1 IgE|"
^XMB(3.9,343,2,5259,0)="5259|91622.0000|Weed Allerg Mix1 IgE RAST Ql|"
^XMB(3.9,343,2,5260,0)="5260|91623.0000|Food Allerg Mix20 IgE RAST Ql|"
^XMB(3.9,343,2,5261,0)="5261|91624.0000|Epid Allerg Mix1 IgE RAST Ql|"
^XMB(3.9,343,2,5262,0)="5262|91625.0000|Food Allerg Mix5 IgE RAST Ql|"
^XMB(3.9,343,2,5263,0)="5263|91626.0000|Mold Allerg Mix1 IgE RAST Ql|"
^XMB(3.9,343,2,5264,0)="5264|91627.0000|Grass Allerg Mix2 IgE RAST Ql|"
^XMB(3.9,343,2,5265,0)="5265|91628.0000|Food Allerg Mix2 IgE RAST Ql|"
^XMB(3.9,343,2,5266,0)="5266|91629.0000|Epid Allerg Mix73 IgE RAST Ql|"
^XMB(3.9,343,2,5267,0)="5267|91630.0000|Tree Allerg Mix2 IgE RAST Ql|"
^XMB(3.9,343,2,5268,0)="5268|91631.0000|Tree Allerg Mix3 IgE RAST Ql|"
^XMB(3.9,343,2,5269,0)="5269|91632.0000|Tree Allerg Mix4 IgE|"
^XMB(3.9,343,2,5270,0)="5270|91633.0000|Tree Allerg Mix4 IgE RAST Ql|"
^XMB(3.9,343,2,5271,0)="5271|91634.0000|Weed Allerg Mix2 IgE|"
^XMB(3.9,343,2,5272,0)="5272|91635.0000|Weed Allerg Mix2 IgE RAST Ql|"
^XMB(3.9,343,2,5273,0)="5273|91636.0000|Epid Allerg Mix71 IgE RAST Ql|"
^XMB(3.9,343,2,5274,0)="5274|91637.0000|Food Allerg Mix C IgE RAST Ql|"
^XMB(3.9,343,2,5275,0)="5275|91638.0000|Cryptostroma corticale Ab|"
^XMB(3.9,343,2,5276,0)="5276|91639.0000|Parrot Drop Ab Ql ID|"
^XMB(3.9,343,2,5277,0)="5277|91640.0000|Parakeet Drop Ab Ql ID|"
^XMB(3.9,343,2,5278,0)="5278|91641.0000|Pullaria Ab Ql ID|"
^XMB(3.9,343,2,5279,0)="5279|91642.0000|Pigeon Drop Ab Ql ID|"
^XMB(3.9,343,2,5280,0)="5280|91643.0000|Dust Allerg Mix2 IgE RAST Ql|"
^XMB(3.9,343,2,5281,0)="5281|91644.0000|Aspergillus clavatus Ab|"
^XMB(3.9,343,2,5282,0)="5282|91645.0000|European Hornet IgE RAST Ql|"
^XMB(3.9,343,2,5283,0)="5283|91646.0000|West wheatgrass IgE|"
^XMB(3.9,343,2,5284,0)="5284|91647.0000|Tree Allerg Mix C IgE|"
^XMB(3.9,343,2,5285,0)="5285|91648.0000|Tree Allerg Mix C IgE RAST Ql|"
^XMB(3.9,343,2,5286,0)="5286|91649.0000|Maple Syrup IgE RAST Ql|"
^XMB(3.9,343,2,5287,0)="5287|91650.0000|Grass Allerg Mix A IgE|"
^XMB(3.9,343,2,5288,0)="5288|91651.0000|West wheatgrass IgE RAST Ql|"
^XMB(3.9,343,2,5289,0)="5289|91652.0000|Phoma IgG|"
^XMB(3.9,343,2,5290,0)="5290|91653.0000|5FC Peak|"
^XMB(3.9,343,2,5291,0)="5291|91654.0000|5FC Trough|"
^XMB(3.9,343,2,5292,0)="5292|91655.0000|Perhexiline|"
^XMB(3.9,343,2,5293,0)="5293|91656.0000|Streptococcus pneum26 IgG sp1|"
^XMB(3.9,343,2,5294,0)="5294|91657.0000|Streptococcus pneum19 IgG sp1|"
^XMB(3.9,343,2,5295,0)="5295|91658.0000|Streptococcus pneum19 IgG sp2|"
^XMB(3.9,343,2,5296,0)="5296|91659.0000|Streptococcus pneum56 IgG sp2|"
^XMB(3.9,343,2,5297,0)="5297|91660.0000|Streptococcus pneum14 IgG sp1|"
^XMB(3.9,343,2,5298,0)="5298|91661.0000|Streptococcus pneum14 IgG sp2|"
^XMB(3.9,343,2,5299,0)="5299|91662.0000|Streptococcus pneum12 IgG sp1|"
^XMB(3.9,343,2,5300,0)="5300|91663.0000|Streptococcus pneum12 IgG sp2|"
^XMB(3.9,343,2,5301,0)="5301|91664.0000|Streptococcus pneum1 IgG sp2|"
^XMB(3.9,343,2,5302,0)="5302|91665.0000|Streptococcus pneum26 IgG|"
^XMB(3.9,343,2,5303,0)="5303|91666.0000|PARAFLU1 Ab sp2 Titer|"
^XMB(3.9,343,2,5304,0)="5304|91667.0000|Amylase P %|"
^XMB(3.9,343,2,5305,0)="5305|91668.0000|Amylase S %|"
^XMB(3.9,343,2,5306,0)="5306|91669.0000|Aspergillus versicolor IgE RAST Ql|"
^XMB(3.9,343,2,5307,0)="5307|91670.0000|Bordetella pert IgG Titer|"
^XMB(3.9,343,2,5308,0)="5308|91671.0000|Bordetella pert IgM Titer|"
^XMB(3.9,343,2,5309,0)="5309|91672.0000|Campylobacter fetus Ab Titer|"
^XMB(3.9,343,2,5310,0)="5310|91673.0000|Coxiella burnet IgG Titer|"
^XMB(3.9,343,2,5311,0)="5311|91674.0000|Coxiella burnet IgM Titer|"
^XMB(3.9,343,2,5312,0)="5312|91675.0000|Fasciola Ab Titer|"
^XMB(3.9,343,2,5313,0)="5313|91676.0000|Fasciola IgG|"
^XMB(3.9,343,2,5314,0)="5314|91677.0000|Filaria Ab Titer|"
^XMB(3.9,343,2,5315,0)="5315|91678.0000|Red Beet IgE RAST Ql|"
^XMB(3.9,343,2,5316,0)="5316|91679.0000|Silver Birch IgG|"
^XMB(3.9,343,2,5317,0)="5317|91680.0000|Silver Birch IgG RAST Ql|"
^XMB(3.9,343,2,5318,0)="5318|91681.0000|Wheat Bran IgG|"
^XMB(3.9,343,2,5319,0)="5319|91682.0000|Wheat Bran IgG RAST Ql|"
^XMB(3.9,343,2,5320,0)="5320|91683.0000|Budgie Drop IgE RAST Ql|"
^XMB(3.9,343,2,5321,0)="5321|91684.0000|Blue Cheese IgE RAST Ql|"
^XMB(3.9,343,2,5322,0)="5322|91685.0000|Chlamydia IgA|"
^XMB(3.9,343,2,5323,0)="5323|91686.0000|Chocolate IgE RAST Ql|"
^XMB(3.9,343,2,5324,0)="5324|91687.0000|Cow Milk IgE RAST Ql|"
^XMB(3.9,343,2,5325,0)="5325|91688.0000|Duck Meat IgE RAST Ql|"
^XMB(3.9,343,2,5326,0)="5326|91689.0000|Fenugreek IgE RAST Ql|"
^XMB(3.9,343,2,5327,0)="5327|91690.0000|Horse Bot Fly IgE RAST Ql|"
^XMB(3.9,343,2,5328,0)="5328|91691.0000|HHV6 IgG Titer|"
^XMB(3.9,343,2,5329,0)="5329|91692.0000|HHV6 IgM Titer|"
^XMB(3.9,343,2,5330,0)="5330|91693.0000|Schistosoma Ab Titer|"
^XMB(3.9,343,2,5331,0)="5331|91694.0000|Horse Meat IgE RAST Ql|"
^XMB(3.9,343,2,5332,0)="5332|91695.0000|A-Lactalb IgA|"
^XMB(3.9,343,2,5333,0)="5333|91696.0000|A-Lactalb IgA RAST Ql|"
^XMB(3.9,343,2,5334,0)="5334|91697.0000|Lactoglob IgA|"
^XMB(3.9,343,2,5335,0)="5335|91698.0000|Lactoglob IgA RAST Ql|"
^XMB(3.9,343,2,5336,0)="5336|91699.0000|Lactoglob IgE RAST Ql|"
^XMB(3.9,343,2,5337,0)="5337|91700.0000|Maleic Anhydride IgE RAST Ql|"
^XMB(3.9,343,2,5338,0)="5338|91701.0000|Metaneph|"
^XMB(3.9,343,2,5339,0)="5339|91702.0000|MetanephS|"
^XMB(3.9,343,2,5340,0)="5340|91703.0000|Saccharopolyspora retivirgula IgG|"
^XMB(3.9,343,2,5341,0)="5341|91704.0000|Saccharopolyspora retivirgula IgG RAST Ql|"
^XMB(3.9,343,2,5342,0)="5342|91705.0000|Neurospora sitophila IgE RAST Ql|"
^XMB(3.9,343,2,5343,0)="5343|91706.0000|Nicotinamide|"
^XMB(3.9,343,2,5344,0)="5344|91707.0000|Green Olive IgE RAST Ql|"
^XMB(3.9,343,2,5345,0)="5345|91708.0000|Penicillium brevicompactum IgE RAST Ql|"
^XMB(3.9,343,2,5346,0)="5346|91709.0000|Abachi Wood Dust IgE RAST Ql|"
^XMB(3.9,343,2,5347,0)="5347|91710.0000|Adrenal Cortex Ab Titer|"
^XMB(3.9,343,2,5348,0)="5348|91711.0000|Saffron IgE RAST Ql|"
^XMB(3.9,343,2,5349,0)="5349|91712.0000|Seminal Fld IgE RAST Ql|"
^XMB(3.9,343,2,5350,0)="5350|91713.0000|Serpula lacrymans IgE RAST Ql|"
^XMB(3.9,343,2,5351,0)="5351|91714.0000|IGF|"
^XMB(3.9,343,2,5352,0)="5352|91715.0000|Teicoplanin Peak|"
^XMB(3.9,343,2,5353,0)="5353|91716.0000|Teicoplanin Trough|"
^XMB(3.9,343,2,5354,0)="5354|91717.0000|Clostridium tetani Toxoid IgE RAST Ql|"
^XMB(3.9,343,2,5355,0)="5355|91718.0000|Thermoactinomyces vulgaris IgG RAST Ql|"
^XMB(3.9,343,2,5356,0)="5356|91719.0000|Mealworm IgE RAST Ql|"
^XMB(3.9,343,2,5357,0)="5357|91720.0000|Wucheria bancrofti Ag|"
^XMB(3.9,343,2,5358,0)="5358|91721.0000|Bougainvillea IgE|"
^XMB(3.9,343,2,5359,0)="5359|91722.0000|Bougainvillea IgE RAST Ql|"
^XMB(3.9,343,2,5360,0)="5360|91723.0000|Chicken Drop IgE RAST Ql|"
^XMB(3.9,343,2,5361,0)="5361|91724.0000|RV IgG|"
^XMB(3.9,343,2,5362,0)="5362|91725.0000|Cladosporium cladosporioides IgG|"
^XMB(3.9,343,2,5363,0)="5363|91726.0000|RV IgM|"
^XMB(3.9,343,2,5364,0)="5364|91727.0000|Rickettsia prowazek IgG Titer|"
^XMB(3.9,343,2,5365,0)="5365|91728.0000|Rickettsia prowazek IgM Titer|"
^XMB(3.9,343,2,5366,0)="5366|91729.0000|Chocineal IgE|"
^XMB(3.9,343,2,5367,0)="5367|91730.0000|Chocineal IgE RAST Ql|"
^XMB(3.9,343,2,5368,0)="5368|91731.0000|Oriental Roach IgE|"
^XMB(3.9,343,2,5369,0)="5369|91732.0000|Oriental Roach IgE RAST Ql|"
^XMB(3.9,343,2,5370,0)="5370|91733.0000|Smoky Brwn Roach IgE|"
^XMB(3.9,343,2,5371,0)="5371|91734.0000|Smoky Brwn Roach IgE RAST Ql|"
^XMB(3.9,343,2,5372,0)="5372|91735.0000|Conalb IgE|"
^XMB(3.9,343,2,5373,0)="5373|91736.0000|Conalb IgE RAST Ql|"
^XMB(3.9,343,2,5374,0)="5374|91737.0000|B19V IgG Titer|"
^XMB(3.9,343,2,5375,0)="5375|91738.0000|B19V IgM Titer|"
^XMB(3.9,343,2,5376,0)="5376|91739.0000|Plasmodium Ab Titer|"
^XMB(3.9,343,2,5377,0)="5377|91740.0000|Leishmania donovani Ab Titer|"
^XMB(3.9,343,2,5378,0)="5378|91741.0000|Red Currant IgE RAST Ql|"
^XMB(3.9,343,2,5379,0)="5379|91742.0000|ECP|"
^XMB(3.9,343,2,5380,0)="5380|91743.0000|FSH 1.5H p 100 ug LRH IV|"
^XMB(3.9,343,2,5381,0)="5381|91744.0000|Glucose 15M p Glc|"
^XMB(3.9,343,2,5382,0)="5382|91745.0000|Glucose 2.5H p Glc|"
^XMB(3.9,343,2,5383,0)="5383|91746.0000|Glucose 3.5H p Glc|"
^XMB(3.9,343,2,5384,0)="5384|91747.0000|Glucose 4.5H p Glc|"
^XMB(3.9,343,2,5385,0)="5385|91748.0000|Glucose 45M p Glc|"
^XMB(3.9,343,2,5386,0)="5386|91749.0000|Glucose 5.5H p Glc|"
^XMB(3.9,343,2,5387,0)="5387|91750.0000|Glucose 6H p Glc|"
^XMB(3.9,343,2,5388,0)="5388|91751.0000|Glucose pre 50 g Glc PO|"
^XMB(3.9,343,2,5389,0)="5389|91752.0000|Jackfruit IgE RAST Ql|"
^XMB(3.9,343,2,5390,0)="5390|91753.0000|Jujube IgE|"
^XMB(3.9,343,2,5391,0)="5391|91754.0000|Jujube IgE RAST Ql|"
^XMB(3.9,343,2,5392,0)="5392|91755.0000|Litchi IgE|"
^XMB(3.9,343,2,5393,0)="5393|91756.0000|Litchi IgE RAST Ql|"
^XMB(3.9,343,2,5394,0)="5394|91757.0000|LH 1.5H p 100 ug LRH IV|"
^XMB(3.9,343,2,5395,0)="5395|91758.0000|LH 1H p 100 ug LRH IV|"
^XMB(3.9,343,2,5396,0)="5396|91759.0000|LH 2H p 100 ug LRH IV|"
^XMB(3.9,343,2,5397,0)="5397|91760.0000|LH 30M p 100 ug LRH IV|"
^XMB(3.9,343,2,5398,0)="5398|91761.0000|Ovary Ab Titer|"
^XMB(3.9,343,2,5399,0)="5399|91762.0000|Paloverde IgE RAST Ql|"
^XMB(3.9,343,2,5400,0)="5400|91763.0000|Procollagen Peptide3|"
^XMB(3.9,343,2,5401,0)="5401|91764.0000|Prolactin 10M p 200 ug TRH IV|"
^XMB(3.9,343,2,5402,0)="5402|91765.0000|Prolactin 1H p 200 ug TRH IV|"
^XMB(3.9,343,2,5403,0)="5403|91766.0000|Prolactin 20M p 200 ug TRH IV|"
^XMB(3.9,343,2,5404,0)="5404|91767.0000|Prolactin 2H p 200 ug TRH IV|"
^XMB(3.9,343,2,5405,0)="5405|91768.0000|Prolactin 30M p 200 ug TRH IV|"
^XMB(3.9,343,2,5406,0)="5406|91769.0000|Prolactin 40M p 200 ug TRH IV|"
^XMB(3.9,343,2,5407,0)="5407|91770.0000|Prolactin 50M p 200 ug TRH IV|"
^XMB(3.9,343,2,5408,0)="5408|91771.0000|Quinoa IgE|"
^XMB(3.9,343,2,5409,0)="5409|91772.0000|Quinoa IgE RAST Ql|"
^XMB(3.9,343,2,5410,0)="5410|91773.0000|Ribosomal Ab|"
^XMB(3.9,343,2,5411,0)="5411|91774.0000|Stachybotrys chartarum IgG|"
^XMB(3.9,343,2,5412,0)="5412|91775.0000|Stachybotrys chartarum IgG RAST Ql|"
^XMB(3.9,343,2,5413,0)="5413|91776.0000|Trichophyton ment interdigi IgE|"
^XMB(3.9,343,2,5414,0)="5414|91777.0000|Trichophyton ment interdigi IgE RAST Ql|"
^XMB(3.9,343,2,5415,0)="5415|91778.0000|Trimipram+Nor|"
^XMB(3.9,343,2,5416,0)="5416|91779.0000|Blue vetch IgE RAST Ql|"
^XMB(3.9,343,2,5417,0)="5417|91780.0000|Vigabatrin|"
^XMB(3.9,343,2,5418,0)="5418|91781.0000|Xylose 1.5H p Xyl PO|"
^XMB(3.9,343,2,5419,0)="5419|91782.0000|Xylose BS|"
^XMB(3.9,343,2,5420,0)="5420|91783.0000|Staphylococcus aureus Etx A IgE|"
^XMB(3.9,343,2,5421,0)="5421|91784.0000|Staphylococcus aureus Etx B IgE|"
^XMB(3.9,343,2,5422,0)="5422|91785.0000|Staphylococcus aureus Etx B IgE RAST Ql|"
^XMB(3.9,343,2,5423,0)="5423|91786.0000|Staphylococcus aureus Etx C IgE|"
^XMB(3.9,343,2,5424,0)="5424|91787.0000|Staphylococcus aureus Etx C IgE RAST Ql|"
^XMB(3.9,343,2,5425,0)="5425|91788.0000|Staphylococcus aureus Etx D IgE|"
^XMB(3.9,343,2,5426,0)="5426|91789.0000|Staphylococcus aureus Etx D IgE RAST Ql|"
^XMB(3.9,343,2,5427,0)="5427|91790.0000|Paloverde IgE|"
^XMB(3.9,343,2,5428,0)="5428|91791.0000|CAR Ab|"
^XMB(3.9,343,2,5429,0)="5429|91792.0000|HSV1 Ab Titer|"
^XMB(3.9,343,2,5430,0)="5430|91793.0000|HSV2 Ab Titer|"
^XMB(3.9,343,2,5431,0)="5431|91794.0000|Leptospira borgp Sej Ab Titer|"
^XMB(3.9,343,2,5432,0)="5432|91795.0000|Echinococcus Ab Titer|"
^XMB(3.9,343,2,5433,0)="5433|91796.0000|D-Lactate sp1 p Exc|"
^XMB(3.9,343,2,5434,0)="5434|91797.0000|D-Lactate sp2 p Exc|"
^XMB(3.9,343,2,5435,0)="5435|91798.0000|D-Lactate sp3 p Exc|"
^XMB(3.9,343,2,5436,0)="5436|91799.0000|D-Lactate sp4 p Exc|"
^XMB(3.9,343,2,5437,0)="5437|91800.0000|D-Lactate sp5 p Exc|"
^XMB(3.9,343,2,5438,0)="5438|91801.0000|D-Lactate sp6 p Exc|"
^XMB(3.9,343,2,5439,0)="5439|91802.0000|D-Lactate pre Exc|"
^XMB(3.9,343,2,5440,0)="5440|91803.0000|MTHPA IgE RAST Ql|"
^XMB(3.9,343,2,5441,0)="5441|91804.0000|Penicillium roqueforte IgE RAST Ql|"
^XMB(3.9,343,2,5442,0)="5442|91805.0000|Sheep Milk IgE RAST Ql|"
^XMB(3.9,343,2,5443,0)="5443|91806.0000|Sheep Whey IgE RAST Ql|"
^XMB(3.9,343,2,5444,0)="5444|91807.0000|TSH 30M p TRH IN|"
^XMB(3.9,343,2,5445,0)="5445|91808.0000|TSH pre TRH IN|"
^XMB(3.9,343,2,5446,0)="5446|91809.0000|Xylose 2H p Xyl PO|"
^XMB(3.9,343,2,5447,0)="5447|91810.0000|ALP Other %|"
^XMB(3.9,343,2,5448,0)="5448|91811.0000|Macroamylase %|"
^XMB(3.9,343,2,5449,0)="5449|91812.0000|Arbovirus NOS Ab Titer|"
^XMB(3.9,343,2,5450,0)="5450|91813.0000|Cladosporium cladosporioides IgG RAST Ql|"
^XMB(3.9,343,2,5451,0)="5451|91814.0000|CK Macro1 %|"
^XMB(3.9,343,2,5452,0)="5452|91815.0000|CK Macro2 %|"
^XMB(3.9,343,2,5453,0)="5453|91816.0000|EV Ab Titer|"
^XMB(3.9,343,2,5454,0)="5454|91817.0000|Gastrin p meal|"
^XMB(3.9,343,2,5455,0)="5455|91818.0000|HHPA IgE RAST Ql|"
^XMB(3.9,343,2,5456,0)="5456|91819.0000|Lactoferrin Bovine IgE|"
^XMB(3.9,343,2,5457,0)="5457|91820.0000|Lactoferrin Bovine IgE RAST Ql|"
^XMB(3.9,343,2,5458,0)="5458|91821.0000|LASA|"
^XMB(3.9,343,2,5459,0)="5459|91822.0000|Pepsin IgE RAST Ql|"
^XMB(3.9,343,2,5460,0)="5460|91823.0000|Staphylococcus aureus Etx A IgE RAST Ql|"
^XMB(3.9,343,2,5461,0)="5461|91824.0000|Trichophyton ment goetzii IgE|"
^XMB(3.9,343,2,5462,0)="5462|91825.0000|Trichophyton ment goetzii IgE RAST Ql|"
^XMB(3.9,343,2,5463,0)="5463|91826.0000|Norflunitrazepam|"
^XMB(3.9,343,2,5464,0)="5464|91827.0000|Norcitalopram|"
^XMB(3.9,343,2,5465,0)="5465|91828.0000|Didesmet-citalopram|"
^XMB(3.9,343,2,5466,0)="5466|91829.0000|Pepsin IgE|"
^XMB(3.9,343,2,5467,0)="5467|91830.0000|Pheneturide|"
^XMB(3.9,343,2,5468,0)="5468|91831.0000|5OH-Propafenone|"
^XMB(3.9,343,2,5469,0)="5469|91832.0000|Phytate|"
^XMB(3.9,343,2,5470,0)="5470|91833.0000|Cedar IgE|"
^XMB(3.9,343,2,5471,0)="5471|91834.0000|Cedar IgE RAST Ql|"
^XMB(3.9,343,2,5472,0)="5472|91835.0000|Mitochondria M2 Ab|"
^XMB(3.9,343,2,5473,0)="5473|91836.0000|Vitamin B6 pre 250 mg PN PO|"
^XMB(3.9,343,2,5474,0)="5474|91837.0000|Vitamin B6 p 250 mg PO|"
^XMB(3.9,343,2,5475,0)="5475|91838.0000|Vitamin B6 p PO|"
^XMB(3.9,343,2,5476,0)="5476|91839.0000|TBEV Ab Titer|"
^XMB(3.9,343,2,5477,0)="5477|91840.0000|TBEV IgG|"
^XMB(3.9,343,2,5478,0)="5478|91841.0000|TBEV IgM|"
^XMB(3.9,343,2,5479,0)="5479|91842.0000|Alternaria alternata IgG4|"
^XMB(3.9,343,2,5480,0)="5480|91843.0000|Alternaria alternata IgG4 RAST Ql|"
^XMB(3.9,343,2,5481,0)="5481|91844.0000|Aspergillus fumigatus IgG4|"
^XMB(3.9,343,2,5482,0)="5482|91845.0000|Aspergillus fumigatus IgG4 RAST Ql|"
^XMB(3.9,343,2,5483,0)="5483|91846.0000|Honey Bee IgG4|"
^XMB(3.9,343,2,5484,0)="5484|91847.0000|Honey Bee IgG4 RAST Ql|"
^XMB(3.9,343,2,5485,0)="5485|91848.0000|Silver Birch IgG4|"
^XMB(3.9,343,2,5486,0)="5486|91849.0000|Silver Birch IgG4 RAST Ql|"
^XMB(3.9,343,2,5487,0)="5487|91850.0000|Wheat Bran IgG4|"
^XMB(3.9,343,2,5488,0)="5488|91851.0000|Wheat Bran IgG4 RAST Ql|"
^XMB(3.9,343,2,5489,0)="5489|91852.0000|Candida albicans IgG4|"
^XMB(3.9,343,2,5490,0)="5490|91853.0000|Candida albicans IgG4 RAST Ql|"
^XMB(3.9,343,2,5491,0)="5491|91854.0000|Casein IgG4|"
^XMB(3.9,343,2,5492,0)="5492|91855.0000|Casein IgG4 RAST Ql|"
^XMB(3.9,343,2,5493,0)="5493|91856.0000|Cladosporium herbarum IgG4|"
^XMB(3.9,343,2,5494,0)="5494|91857.0000|Cladosporium herbarum IgG4 RAST Ql|"
^XMB(3.9,343,2,5495,0)="5495|91858.0000|Dermatophagoides farinae IgG4|"
^XMB(3.9,343,2,5496,0)="5496|91859.0000|Dermatophagoides farinae IgG4 RAST Ql|"
^XMB(3.9,343,2,5497,0)="5497|91860.0000|Dermatophagoides pteronyss IgG4|"
^XMB(3.9,343,2,5498,0)="5498|91861.0000|Dermatophagoides pteronyss IgG4 RAST Ql|"
^XMB(3.9,343,2,5499,0)="5499|91862.0000|Egg White IgG4|"
^XMB(3.9,343,2,5500,0)="5500|91863.0000|Egg White IgG4 RAST Ql|"
^XMB(3.9,343,2,5501,0)="5501|91864.0000|A-Lactalb IgG4|"
^XMB(3.9,343,2,5502,0)="5502|91865.0000|A-Lactalb IgG4 RAST Ql|"
^XMB(3.9,343,2,5503,0)="5503|91866.0000|Lactoglob IgG4|"
^XMB(3.9,343,2,5504,0)="5504|91867.0000|Rice IgG4|"
^XMB(3.9,343,2,5505,0)="5505|91868.0000|Rice IgG4 RAST Ql|"
^XMB(3.9,343,2,5506,0)="5506|91869.0000|Timothy IgG4|"
^XMB(3.9,343,2,5507,0)="5507|91870.0000|Timothy IgG4 RAST Ql|"
^XMB(3.9,343,2,5508,0)="5508|91871.0000|Wasp Venom IgG4|"
^XMB(3.9,343,2,5509,0)="5509|91872.0000|Wasp Venom IgG4 RAST Ql|"
^XMB(3.9,343,2,5510,0)="5510|91873.0000|Lactoglob IgG4 RAST Ql|"
^XMB(3.9,343,2,5511,0)="5511|91874.0000|Cortis 24H p ACTH|"
^XMB(3.9,343,2,5512,0)="5512|91875.0000|Cortis 30M p ACTH|"
^XMB(3.9,343,2,5513,0)="5513|91876.0000|Cortis 32H p ACTH|"
^XMB(3.9,343,2,5514,0)="5514|91877.0000|Cortis 48H p ACTH|"
^XMB(3.9,343,2,5515,0)="5515|91878.0000|Cortis 56H p ACTH|"
^XMB(3.9,343,2,5516,0)="5516|91879.0000|Cortis 8H p ACTH|"
^XMB(3.9,343,2,5517,0)="5517|91880.0000|Carnosine|"
^XMB(3.9,343,2,5518,0)="5518|91881.0000|Trypanosoma brucei gambiense Ab|"
^XMB(3.9,343,2,5519,0)="5519|91882.0000|Trypanosoma brucei rhodesiense Ab|"
^XMB(3.9,343,2,5520,0)="5520|91883.0000|Bab microti Wa1 Ab|"
^XMB(3.9,343,2,5521,0)="5521|91884.0000|CHIKV Ab|"
^XMB(3.9,343,2,5522,0)="5522|91885.0000|Rickettsia conorii Ab|"
^XMB(3.9,343,2,5523,0)="5523|91886.0000|Coccidioides Ab|"
^XMB(3.9,343,2,5524,0)="5524|91887.0000|Chlamydia trach L2 Ab|"
^XMB(3.9,343,2,5525,0)="5525|91888.0000|Legionella Polyval A Ab|"
^XMB(3.9,343,2,5526,0)="5526|91889.0000|Legionella Polyval B Ab|"
^XMB(3.9,343,2,5527,0)="5527|91890.0000|Legionella Polyval C Ab|"
^XMB(3.9,343,2,5528,0)="5528|91891.0000|Corynebacterium diphtheriae Tox Ab|"
^XMB(3.9,343,2,5529,0)="5529|91892.0000|Borrelia hermsii Ab|"
^XMB(3.9,343,2,5530,0)="5530|91893.0000|Legionella dumoffii Ab|"
^XMB(3.9,343,2,5531,0)="5531|91894.0000|Legionella bozemaniae Ab|"
^XMB(3.9,343,2,5532,0)="5532|91895.0000|Legionella gormanii Ab|"
^XMB(3.9,343,2,5533,0)="5533|91896.0000|Legionella micdadei Ab|"
^XMB(3.9,343,2,5534,0)="5534|91897.0000|Candida Ab|"
^XMB(3.9,343,2,5535,0)="5535|91898.0000|Leishmania braziliensis Ab|"
^XMB(3.9,343,2,5536,0)="5536|91899.0000|Leishmania tropicalis Ab|"
^XMB(3.9,343,2,5537,0)="5537|91900.0000|Paracoccidioides Ab|"
^XMB(3.9,343,2,5538,0)="5538|91901.0000|JCV Ab|"
^XMB(3.9,343,2,5539,0)="5539|91902.0000|Clostridium tetani Tox Ab|"
^XMB(3.9,343,2,5540,0)="5540|91903.0000|GETV Ab|"
^XMB(3.9,343,2,5541,0)="5541|91904.0000|BKV Ab|"
^XMB(3.9,343,2,5542,0)="5542|91905.0000|POWV Ab|"
^XMB(3.9,343,2,5543,0)="5543|91906.0000|SFV Ab|"
^XMB(3.9,343,2,5544,0)="5544|91907.0000|SINV Ab|"
^XMB(3.9,343,2,5545,0)="5545|91908.0000|SSHV Ab|"
^XMB(3.9,343,2,5546,0)="5546|91909.0000|SNV IgM|"
^XMB(3.9,343,2,5547,0)="5547|91910.0000|Rhizopus arrhizus Ab|"
^XMB(3.9,343,2,5548,0)="5548|91911.0000|BANV Ab|"
^XMB(3.9,343,2,5549,0)="5549|91912.0000|CTPV Ab|"
^XMB(3.9,343,2,5550,0)="5550|91913.0000|SNV IgG|"
^XMB(3.9,343,2,5551,0)="5551|91914.0000|Entamoeba Ab|"
^XMB(3.9,343,2,5552,0)="5552|91915.0000|HTLV2 Ab|"
^XMB(3.9,343,2,5553,0)="5553|91916.0000|Schistosoma haematobium Ab|"
^XMB(3.9,343,2,5554,0)="5554|91917.0000|Treponema Ab|"
^XMB(3.9,343,2,5555,0)="5555|91918.0000|Leptospira automnalis Ab|"
^XMB(3.9,343,2,5556,0)="5556|91919.0000|BEBV Ab|"
^XMB(3.9,343,2,5557,0)="5557|91920.0000|Chlamydia trach D Ab|"
^XMB(3.9,343,2,5558,0)="5558|91921.0000|Chlamydia trach E Ab|"
^XMB(3.9,343,2,5559,0)="5559|91922.0000|Chlamydia trach F Ab|"
^XMB(3.9,343,2,5560,0)="5560|91923.0000|Chlamydia trach H Ab|"
^XMB(3.9,343,2,5561,0)="5561|91924.0000|Chlamydia trach I Ab|"
^XMB(3.9,343,2,5562,0)="5562|91925.0000|Chlamydia trach L1 Ab|"
^XMB(3.9,343,2,5563,0)="5563|91926.0000|Absidia corymbifera Ab|"
^XMB(3.9,343,2,5564,0)="5564|91927.0000|Rhizomucor pusillus Ab|"
^XMB(3.9,343,2,5565,0)="5565|91928.0000|Ascaris Ab|"
^XMB(3.9,343,2,5566,0)="5566|91929.0000|RRV Ab|"
^XMB(3.9,343,2,5567,0)="5567|91930.0000|Echinococcus granulosus Ab|"
^XMB(3.9,343,2,5568,0)="5568|91931.0000|Legionella longbeachae1 Ab|"
^XMB(3.9,343,2,5569,0)="5569|91932.0000|Legionella longbeachae2 Ab|"
^XMB(3.9,343,2,5570,0)="5570|91933.0000|Bartonella quintana Ab|"
^XMB(3.9,343,2,5571,0)="5571|91934.0000|Bartonella elizabethae Ab|"
^XMB(3.9,343,2,5572,0)="5572|91935.0000|Clostridium dif IgM|"
^XMB(3.9,343,2,5573,0)="5573|91936.0000|Clostridium dif IgA|"
^XMB(3.9,343,2,5574,0)="5574|91937.0000|Listeria monocytog IgG|"
^XMB(3.9,343,2,5575,0)="5575|91938.0000|Clostridium dif IgG|"
^XMB(3.9,343,2,5576,0)="5576|91939.0000|ENA SM+RNP IgG Titer|"
^XMB(3.9,343,2,5577,0)="5577|91940.0000|EBV NA IgM Titer|"
^XMB(3.9,343,2,5578,0)="5578|91942.0000|Ovary IgG Titer|"
^XMB(3.9,343,2,5579,0)="5579|91943.0000|Rhodococcus equi Ab|"
^XMB(3.9,343,2,5580,0)="5580|91944.0000|Bacteroides fragilis IgG|"
^XMB(3.9,343,2,5581,0)="5581|91945.0000|Clostridium perfringens IgG|"
^XMB(3.9,343,2,5582,0)="5582|91946.0000|Clostridium perfringens IgM|"
^XMB(3.9,343,2,5583,0)="5583|91947.0000|Glucose 30M p Lac PO|"
^XMB(3.9,343,2,5584,0)="5584|91948.0000|Glucose 1H p Lac PO|"
^XMB(3.9,343,2,5585,0)="5585|91949.0000|Glucose 1.5H p Lac PO|"
^XMB(3.9,343,2,5586,0)="5586|91950.0000|Glucose 2H p Lac PO|"
^XMB(3.9,343,2,5587,0)="5587|91951.0000|Glucose 3H p Lac PO|"
^XMB(3.9,343,2,5588,0)="5588|91952.0000|Glucose 4H p Lac PO|"
^XMB(3.9,343,2,5589,0)="5589|91953.0000|Glucose 5H p Lac PO|"
^XMB(3.9,343,2,5590,0)="5590|91954.0000|Escherichia coli IgM|"
^XMB(3.9,343,2,5591,0)="5591|91955.0000|Escherichia coli IgG|"
^XMB(3.9,343,2,5592,0)="5592|91956.0000|Campylobacter jejuni Ab|"
^XMB(3.9,343,2,5593,0)="5593|91957.0000|Stachybotrys chartarum IgA|"
^XMB(3.9,343,2,5594,0)="5594|91958.0000|Il10|"
^XMB(3.9,343,2,5595,0)="5595|91959.0000|PARAFLU Ab Titer|"
^XMB(3.9,343,2,5596,0)="5596|91960.0000|GD1b Gangl Ab|"
^XMB(3.9,343,2,5597,0)="5597|91961.0000|IF Block IgG|"
^XMB(3.9,343,2,5598,0)="5598|91962.0000|Thermoactinomyces IgG|"
^XMB(3.9,343,2,5599,0)="5599|91963.0000|Aureobasidium pullulans IgG|"
^XMB(3.9,343,2,5600,0)="5600|91964.0000|HHV7 IgG Titer|"
^XMB(3.9,343,2,5601,0)="5601|91965.0000|Trichoderma viride IgG|"
^XMB(3.9,343,2,5602,0)="5602|91966.0000|Benzaldehyde|"
^XMB(3.9,343,2,5603,0)="5603|91967.0000|Zirconium|"
^XMB(3.9,343,2,5604,0)="5604|91968.0000|Cisapride|"
^XMB(3.9,343,2,5605,0)="5605|91969.0000|Loratadine|"
^XMB(3.9,343,2,5606,0)="5606|91970.0000|Enterococcus IgM|"
^XMB(3.9,343,2,5607,0)="5607|91971.0000|Itraconaz+HIT|"
^XMB(3.9,343,2,5608,0)="5608|91972.0000|Probenecid|"
^XMB(3.9,343,2,5609,0)="5609|91973.0000|Streptococcus pneum6 Ab sp2|"
^XMB(3.9,343,2,5610,0)="5610|91974.0000|Hydrastine|"
^XMB(3.9,343,2,5611,0)="5611|91975.0000|HHV7 IgM Titer|"
^XMB(3.9,343,2,5612,0)="5612|91976.0000|Azatadine|"
^XMB(3.9,343,2,5613,0)="5613|91977.0000|PV Ab Titer|"
^XMB(3.9,343,2,5614,0)="5614|91978.0000|Histoplasma Ab Titer|"
^XMB(3.9,343,2,5615,0)="5615|91979.0000|Glutarate|"
^XMB(3.9,343,2,5616,0)="5616|91980.0000|Aspergillus flavus Ab Titer|"
^XMB(3.9,343,2,5617,0)="5617|91981.0000|Aspergillus niger Ab Titer|"
^XMB(3.9,343,2,5618,0)="5618|91982.0000|FPLV IgM Titer|"
^XMB(3.9,343,2,5619,0)="5619|91983.0000|FPLV IgG Titer|"
^XMB(3.9,343,2,5620,0)="5620|91984.0000|2,4D|"
^XMB(3.9,343,2,5621,0)="5621|91985.0000|Fasciola hepatica Ab Titer|"
^XMB(3.9,343,2,5622,0)="5622|91986.0000|Toxoplasma IgE|"
^XMB(3.9,343,2,5623,0)="5623|91987.0000|Chlamydia trach B Ab Titer|"
^XMB(3.9,343,2,5624,0)="5624|91988.0000|Chlamydia trach C Ab Titer|"
^XMB(3.9,343,2,5625,0)="5625|91989.0000|Chlamydia trach G+F+K Ab Titer|"
^XMB(3.9,343,2,5626,0)="5626|91990.0000|Streptococcus pneum3 IgG sp2|"
^XMB(3.9,343,2,5627,0)="5627|91991.0000|Trichinella IgM|"
^XMB(3.9,343,2,5628,0)="5628|91992.0000|Streptococcus pneum51 IgG sp2|"
^XMB(3.9,343,2,5629,0)="5629|91993.0000|Streptococcus pneum1 IgG sp1|"
^XMB(3.9,343,2,5630,0)="5630|91994.0000|Streptococcus pneum3 IgG sp1|"
^XMB(3.9,343,2,5631,0)="5631|91995.0000|Streptococcus pneum51 IgG sp1|"
^XMB(3.9,343,2,5632,0)="5632|91996.0000|Streptococcus pneum23 IgG sp1|"
^XMB(3.9,343,2,5633,0)="5633|91997.0000|Streptococcus pneum23 IgG sp2|"
^XMB(3.9,343,2,5634,0)="5634|91998.0000|B2 Glycoprot1 Ab|"
^XMB(3.9,343,2,5635,0)="5635|91999.0000|Pro Frg1+2 Ag|"
^XMB(3.9,343,2,5636,0)="5636|92000.0000|B-IFN IgG|"
^XMB(3.9,343,2,5637,0)="5637|92001.0000|Insulin p fast|"
^XMB(3.9,343,2,5638,0)="5638|92002.0000|T4 BS|"
^XMB(3.9,343,2,5639,0)="5639|92003.0000|Lactobacillus IgG|"
^XMB(3.9,343,2,5640,0)="5640|92004.0000|Lactobacillus IgM|"
^XMB(3.9,343,2,5641,0)="5641|92005.0000|Enterococcus IgG|"
^XMB(3.9,343,2,5642,0)="5642|92006.0000|Bacteroides fragilis IgM|"
^XMB(3.9,343,2,5643,0)="5643|92007.0000|Ascaris Ab Titer|"
^XMB(3.9,343,2,5644,0)="5644|92008.0000|Bile Ac 2H p meal|"
^XMB(3.9,343,2,5645,0)="5645|92009.0000|Sporothrix schenckii Ab Titer|"
^XMB(3.9,343,2,5646,0)="5646|92010.0000|Salmonella paraty B O Ab Titr|"
^XMB(3.9,343,2,5647,0)="5647|92011.0000|O-IFN|"
^XMB(3.9,343,2,5648,0)="5648|92012.0000|Coxiella burnet Ph2 Ab Titer|"
^XMB(3.9,343,2,5649,0)="5649|92013.0000|HSV1+2 IgG|"
^XMB(3.9,343,2,5650,0)="5650|92014.0000|Coxiella burnet Ph1 Ab Titer|"
^XMB(3.9,343,2,5651,0)="5651|92015.0000|Streptococcus pneum6a+6b Ab|"
^XMB(3.9,343,2,5652,0)="5652|92016.0000|Bab microti IgM|"
^XMB(3.9,343,2,5653,0)="5653|92017.0000|Legionella pneumo Atyp Ab Titer|"
^XMB(3.9,343,2,5654,0)="5654|92018.0000|Progest BS|"
^XMB(3.9,343,2,5655,0)="5655|92019.0000|Borrelia burgdor66kD Ab|"
^XMB(3.9,343,2,5656,0)="5656|92020.0000|Borrelia burgdor18kD Ab|"
^XMB(3.9,343,2,5657,0)="5657|92021.0000|Borrelia burgdor28kD Ab|"
^XMB(3.9,343,2,5658,0)="5658|92022.0000|Free T4 BS|"
^XMB(3.9,343,2,5659,0)="5659|92023.0000|Aldost BS|"
^XMB(3.9,343,2,5660,0)="5660|92024.0000|17OHP BS|"
^XMB(3.9,343,2,5661,0)="5661|92025.0000|Borrelia burgdor39kD Ab|"
^XMB(3.9,343,2,5662,0)="5662|92026.0000|Sodium/Potassium|"
^XMB(3.9,343,2,5663,0)="5663|92027.0000|G-OH-Butyr|"
^XMB(3.9,343,2,5664,0)="5664|92028.0000|1,2,4TCB|"
^XMB(3.9,343,2,5665,0)="5665|92029.0000|1,2,3TCB|"
^XMB(3.9,343,2,5666,0)="5666|92030.0000|1,3,5TCB|"
^XMB(3.9,343,2,5667,0)="5667|92031.0000|7Aminoclonazepam|"
^XMB(3.9,343,2,5668,0)="5668|92032.0000|Naloxone|"
^XMB(3.9,343,2,5669,0)="5669|92033.0000|Amlodipine|"
^XMB(3.9,343,2,5670,0)="5670|92034.0000|Celecoxib|"
^XMB(3.9,343,2,5671,0)="5671|92035.0000|Sildenafil Citrate|"
^XMB(3.9,343,2,5672,0)="5672|92036.0000|Sumatriptan|"
^XMB(3.9,343,2,5673,0)="5673|92037.0000|HCBD|"
^XMB(3.9,343,2,5674,0)="5674|92038.0000|Neisseria men A IgG|"
^XMB(3.9,343,2,5675,0)="5675|92039.0000|Neisseria men C IgG|"
^XMB(3.9,343,2,5676,0)="5676|92040.0000|Cladosporium herbarum IgM|"
^XMB(3.9,343,2,5677,0)="5677|92041.0000|Streptococcus pneum6a+6b Ab sp1|"
^XMB(3.9,343,2,5678,0)="5678|92042.0000|Chlamydia trach D+K IgG Titer|"
^XMB(3.9,343,2,5679,0)="5679|92043.0000|Chlamydia trach D+K IgA Titer|"
^XMB(3.9,343,2,5680,0)="5680|92044.0000|Chlamydia trach D+K IgM Titer|"
^XMB(3.9,343,2,5681,0)="5681|92045.0000|Legionella IgM Titer|"
^XMB(3.9,343,2,5682,0)="5682|92046.0000|1,4DMB|"
^XMB(3.9,343,2,5683,0)="5683|92047.0000|1,2DMB|"
^XMB(3.9,343,2,5684,0)="5684|92048.0000|1,3DMB|"
^XMB(3.9,343,2,5685,0)="5685|92049.0000|CBZ EP Bnd|"
^XMB(3.9,343,2,5686,0)="5686|92050.0000|CBZ Bnd|"
^XMB(3.9,343,2,5687,0)="5687|92051.0000|Mefloquine|"
^XMB(3.9,343,2,5688,0)="5688|92052.0000|Brucella Ab sp1 Titer|"
^XMB(3.9,343,2,5689,0)="5689|92053.0000|Brucella Ab sp2 Titer|"
^XMB(3.9,343,2,5690,0)="5690|92054.0000|Calcium Album cor|"
^XMB(3.9,343,2,5691,0)="5691|92055.0000|Aspergillus fumigatus2 Ab|"
^XMB(3.9,343,2,5692,0)="5692|92056.0000|Potassium p dial|"
^XMB(3.9,343,2,5693,0)="5693|92057.0000|Cortis pre chal|"
^XMB(3.9,343,2,5694,0)="5694|92058.0000|NAPA/ PA|"
^XMB(3.9,343,2,5695,0)="5695|92059.0000|Clozapine Trough|"
^XMB(3.9,343,2,5696,0)="5696|92060.0000|Clozapine Peak|"
^XMB(3.9,343,2,5697,0)="5697|92061.0000|Gastrin p fast|"
^XMB(3.9,343,2,5698,0)="5698|92062.0000|Gastrin 30M pre chal|"
^XMB(3.9,343,2,5699,0)="5699|92063.0000|Gastrin 1M pre chal|"
^XMB(3.9,343,2,5700,0)="5700|92064.0000|Eel IgE RAST Ql|"
^XMB(3.9,343,2,5701,0)="5701|92065.0000|WNV IgG|"
^XMB(3.9,343,2,5702,0)="5702|92066.0000|WNV IgM|"
^XMB(3.9,343,2,5703,0)="5703|92067.0000|JCV IgG Titer|"
^XMB(3.9,343,2,5704,0)="5704|92068.0000|JCV Ab Titer|"
^XMB(3.9,343,2,5705,0)="5705|92069.0000|POWV IgG Titer|"
^XMB(3.9,343,2,5706,0)="5706|92070.0000|POWV IgM Titer|"
^XMB(3.9,343,2,5707,0)="5707|92071.0000|WNV Ab Titer|"
^XMB(3.9,343,2,5708,0)="5708|92072.0000|IEP Pan|"
^XMB(3.9,343,2,5709,0)="5709|92073.0000|Amphet|"
^XMB(3.9,343,2,5710,0)="5710|92074.0000|MDA|"
^XMB(3.9,343,2,5711,0)="5711|92075.0000|MDEA|"
^XMB(3.9,343,2,5712,0)="5712|92076.0000|Benzfetamine|"
^XMB(3.9,343,2,5713,0)="5713|92077.0000|Stachybotrys chartarum IgE|"
^XMB(3.9,343,2,5714,0)="5714|92078.0000|Stachybotrys chartarum IgE RAST Ql|"
^XMB(3.9,343,2,5715,0)="5715|92079.0000|Atyp ANCA|"
^XMB(3.9,343,2,5716,0)="5716|92080.0000|Atyp c-ANCA|"
^XMB(3.9,343,2,5717,0)="5717|92081.0000|Proteinase3|"
^XMB(3.9,343,2,5718,0)="5718|92082.0000|ECV+CV IgA|"
^XMB(3.9,343,2,5719,0)="5719|92083.0000|PARAFLU2 IgM|"
^XMB(3.9,343,2,5720,0)="5720|92084.0000|B-IFN Ab|"
^XMB(3.9,343,2,5721,0)="5721|92085.0000|Rickettsia australis Ab Titer|"
^XMB(3.9,343,2,5722,0)="5722|92086.0000|Rickettsia australis Ab|"
^XMB(3.9,343,2,5723,0)="5723|92087.0000|Rickettsia honei Ab Titer|"
^XMB(3.9,343,2,5724,0)="5724|92088.0000|Rickettsia honei Ab|"
^XMB(3.9,343,2,5725,0)="5725|92089.0000|Dothiepin|"
^XMB(3.9,343,2,5726,0)="5726|92090.0000|Rickettsia conorii Ab Titer|"
^XMB(3.9,343,2,5727,0)="5727|92091.0000|Rickettsia sibirica Ab Titer|"
^XMB(3.9,343,2,5728,0)="5728|92092.0000|Rickettsia akari Ab Titer|"
^XMB(3.9,343,2,5729,0)="5729|92093.0000|Rickettsia akari Ab|"
^XMB(3.9,343,2,5730,0)="5730|92094.0000|Rickettsia prowazek Ab Titer|"
^XMB(3.9,343,2,5731,0)="5731|92095.0000|Rickettsia typhi Ab Titer|"
^XMB(3.9,343,2,5732,0)="5732|92096.0000|Orientia tsut Gill Ab Titer|"
^XMB(3.9,343,2,5733,0)="5733|92097.0000|Orientia tsut Gill Ab|"
^XMB(3.9,343,2,5734,0)="5734|92098.0000|Orientia tsut Karp Ab Titer|"
^XMB(3.9,343,2,5735,0)="5735|92099.0000|Orientia tsut Karp Ab|"
^XMB(3.9,343,2,5736,0)="5736|92100.0000|Orientia tsut Kato Ab Titer|"
^XMB(3.9,343,2,5737,0)="5737|92101.0000|Orientia tsut Kato Ab|"
^XMB(3.9,343,2,5738,0)="5738|92102.0000|Orientia tsut Litch Ab Titer|"
^XMB(3.9,343,2,5739,0)="5739|92103.0000|Orientia tsut Litch Ab|"
^XMB(3.9,343,2,5740,0)="5740|92104.0000|Leptospira inter Celled Ab|"
^XMB(3.9,343,2,5741,0)="5741|92105.0000|Leptospira inter Bulgar Ab|"
^XMB(3.9,343,2,5742,0)="5742|92106.0000|Leptospira inter Cynop Ab|"
^XMB(3.9,343,2,5743,0)="5743|92107.0000|Leptospira inter Djasim Ab|"
^XMB(3.9,343,2,5744,0)="5744|92108.0000|Leptospira inter Javani Ab|"
^XMB(3.9,343,2,5745,0)="5745|92109.0000|Leptospira inter Panam Ab|"
^XMB(3.9,343,2,5746,0)="5746|92110.0000|Leptospira inter Sherm Ab|"
^XMB(3.9,343,2,5747,0)="5747|92111.0000|Leptospira inter Zanoni Ab|"
^XMB(3.9,343,2,5748,0)="5748|92112.0000|Rickettsia sibirica Ab|"
^XMB(3.9,343,2,5749,0)="5749|92113.0000|Rickettsia rickettsi Ab Titer|"
^XMB(3.9,343,2,5750,0)="5750|92114.0000|Rickettsia rickettsi Ab|"
^XMB(3.9,343,2,5751,0)="5751|92115.0000|Leptospira inter Robins Ab|"
^XMB(3.9,343,2,5752,0)="5752|92116.0000|Leptospira inter Krema Ab|"
^XMB(3.9,343,2,5753,0)="5753|92117.0000|Leptospira inter Szwaji Ab|"
^XMB(3.9,343,2,5754,0)="5754|92118.0000|Leptospira inter Medane Ab|"
^XMB(3.9,343,2,5755,0)="5755|92119.0000|Tocopherols|"
^XMB(3.9,343,2,5756,0)="5756|92120.0000|TVTV Ab Titer|"
^XMB(3.9,343,2,5757,0)="5757|92121.0000|HJV Ab Titer|"
^XMB(3.9,343,2,5758,0)="5758|92122.0000|JCV IgM|"
^XMB(3.9,343,2,5759,0)="5759|92123.0000|JCV IgG|"
^XMB(3.9,343,2,5760,0)="5760|92124.0000|POWV IgG|"
^XMB(3.9,343,2,5761,0)="5761|92125.0000|POWV IgM|"
^XMB(3.9,343,2,5762,0)="5762|92126.0000|Lovage IgE RAST Ql|"
^XMB(3.9,343,2,5763,0)="5763|92127.0000|Persimmon IgE RAST Ql|"
^XMB(3.9,343,2,5764,0)="5764|92128.0000|EMCV Ab Titer|"
^XMB(3.9,343,2,5765,0)="5765|92129.0000|PRV G-1 Ab|"
^XMB(3.9,343,2,5766,0)="5766|92130.0000|Cryptoc Ag|"
^XMB(3.9,343,2,5767,0)="5767|92131.0000|Xylose 2H p 5 g Xyl PO|"
^XMB(3.9,343,2,5768,0)="5768|92132.0000|ENA SS-A Ab Titer|"
^XMB(3.9,343,2,5769,0)="5769|92133.0000|ENA SS-B Ab Titer|"
^XMB(3.9,343,2,5770,0)="5770|92134.0000|Legionella pneumo IgG|"
^XMB(3.9,343,2,5771,0)="5771|92135.0000|GM1 Monosialo IgG|"
^XMB(3.9,343,2,5772,0)="5772|92136.0000|PCA IgG|"
^XMB(3.9,343,2,5773,0)="5773|92137.0000|Centromere IgG Titer|"
^XMB(3.9,343,2,5774,0)="5774|92138.0000|ANCA IgG Titer|"
^XMB(3.9,343,2,5775,0)="5775|92139.0000|GBM IgA|"
^XMB(3.9,343,2,5776,0)="5776|92140.0000|Histone IgG|"
^XMB(3.9,343,2,5777,0)="5777|92141.0000|Stria Mus IgG Titer|"
^XMB(3.9,343,2,5778,0)="5778|92142.0000|Botrytis cinerea IgG|"
^XMB(3.9,343,2,5779,0)="5779|92143.0000|Bacillus subtilis IgE|"
^XMB(3.9,343,2,5780,0)="5780|92144.0000|Carbophenothion|"
^XMB(3.9,343,2,5781,0)="5781|92145.0000|(alternaria alternata+D farinae IgG Ql|"
^XMB(3.9,343,2,5782,0)="5782|92146.0000|Phoma betae IgG|"
^XMB(3.9,343,2,5783,0)="5783|92147.0000|Homocystine 6H p Met|"
^XMB(3.9,343,2,5784,0)="5784|92148.0000|Homocystine p fast|"
^XMB(3.9,343,2,5785,0)="5785|92149.0000|(alternaria alternata+D farinae IgE Ql|"
^XMB(3.9,343,2,5786,0)="5786|92150.0000|Dirofilaria immitis Ab|"
^XMB(3.9,343,2,5787,0)="5787|92151.0000|Tumeric IgE|"
^XMB(3.9,343,2,5788,0)="5788|92152.0000|Rosemary IgE|"
^XMB(3.9,343,2,5789,0)="5789|92153.0000|Dirofilaria immitis Ab Titer|"
^XMB(3.9,343,2,5790,0)="5790|92154.0000|VGCC Ab|"
^XMB(3.9,343,2,5791,0)="5791|92155.0000|LE DNP IgG|"
^XMB(3.9,343,2,5792,0)="5792|92156.0000|Cow Hair+Dander IgE|"
^XMB(3.9,343,2,5793,0)="5793|92157.0000|Horse Hair+Dander IgE|"
^XMB(3.9,343,2,5794,0)="5794|92158.0000|EME|"
^XMB(3.9,343,2,5795,0)="5795|92159.0000|Thermoactinomyces vulgaris2 Ab|"
^XMB(3.9,343,2,5796,0)="5796|92160.0000|Testost Bnd|"
^XMB(3.9,343,2,5797,0)="5797|92161.0000|Gerbil Hair IgE RAST Ql|"
^XMB(3.9,343,2,5798,0)="5798|92162.0000|London Plane IgE RAST Ql|"
^XMB(3.9,343,2,5799,0)="5799|92163.0000|Gerbil Hair IgE|"
^XMB(3.9,343,2,5800,0)="5800|92164.0000|Borrelia burgdor Ab sp2|"
^XMB(3.9,343,2,5801,0)="5801|92165.0000|Brucella Ab sp1|"
^XMB(3.9,343,2,5802,0)="5802|92166.0000|Brucella Ab sp2|"
^XMB(3.9,343,2,5803,0)="5803|92167.0000|CV Ab sp1|"
^XMB(3.9,343,2,5804,0)="5804|92168.0000|CV Ab sp2|"
^XMB(3.9,343,2,5805,0)="5805|92169.0000|ECV Ab sp1|"
^XMB(3.9,343,2,5806,0)="5806|92170.0000|ECV Ab sp2|"
^XMB(3.9,343,2,5807,0)="5807|92171.0000|EBV VCA IgG sp2|"
^XMB(3.9,343,2,5808,0)="5808|92172.0000|EBV VCA IgM sp2|"
^XMB(3.9,343,2,5809,0)="5809|92173.0000|EBV NA Ab sp2|"
^XMB(3.9,343,2,5810,0)="5810|92174.0000|Legionella Ab sp1|"
^XMB(3.9,343,2,5811,0)="5811|92175.0000|Legionella Ab sp2|"
^XMB(3.9,343,2,5812,0)="5812|92176.0000|MuV Ab sp2|"
^XMB(3.9,343,2,5813,0)="5813|92177.0000|RSV Ab sp1|"
^XMB(3.9,343,2,5814,0)="5814|92178.0000|RSV Ab sp2|"
^XMB(3.9,343,2,5815,0)="5815|92179.0000|ASO Ab sp1|"
^XMB(3.9,343,2,5816,0)="5816|92180.0000|ASO Ab sp2|"
^XMB(3.9,343,2,5817,0)="5817|92181.0000|Mannose-BP|"
^XMB(3.9,343,2,5818,0)="5818|92182.0000|Streptococcus pneum68 IgG|"
^XMB(3.9,343,2,5819,0)="5819|92183.0000|Prot/creat|"
^XMB(3.9,343,2,5820,0)="5820|92184.0000|Artichoke IgG|"
^XMB(3.9,343,2,5821,0)="5821|92185.0000|Sweat Bee IgE|"
^XMB(3.9,343,2,5822,0)="5822|92186.0000|Nut Allerg Mix IgE Ql|"
^XMB(3.9,343,2,5823,0)="5823|92187.0000|TSI Act/Nor|"
^XMB(3.9,343,2,5824,0)="5824|92188.0000|Oneseed Juniper IgE|"
^XMB(3.9,343,2,5825,0)="5825|92189.0000|American Roach IgE|"
^XMB(3.9,343,2,5826,0)="5826|92190.0000|Tree Allerg Mix7 IgE|"
^XMB(3.9,343,2,5827,0)="5827|92191.0000|Mold Allerg Mix2 IgE|"
^XMB(3.9,343,2,5828,0)="5828|92192.0000|Tree Allerg Mix1 IgE|"
^XMB(3.9,343,2,5829,0)="5829|92193.0000|Epid Allerg Mix1 IgE|"
^XMB(3.9,343,2,5830,0)="5830|92194.0000|Dust Allerg Mix A IgE|"
^XMB(3.9,343,2,5831,0)="5831|92195.0000|Food Allerg Mix5 IgE|"
^XMB(3.9,343,2,5832,0)="5832|92196.0000|Grass Allerg Mix2 IgE|"
^XMB(3.9,343,2,5833,0)="5833|92197.0000|Grass Allerg Mix1 IgE|"
^XMB(3.9,343,2,5834,0)="5834|92198.0000|AChR Mod Ab %|"
^XMB(3.9,343,2,5835,0)="5835|92199.0000|Acyl/Free Carnitine|"
^XMB(3.9,343,2,5836,0)="5836|92200.0000|B Ab Titer|"
^XMB(3.9,343,2,5837,0)="5837|92201.0000|A-HCG Free|"
^XMB(3.9,343,2,5838,0)="5838|92202.0000|3OH-Dodecanoylcarn|"
^XMB(3.9,343,2,5839,0)="5839|92203.0000|3OH-Hexadecanoylcar|"
^XMB(3.9,343,2,5840,0)="5840|92204.0000|3OH-Hexadecenoylcar|"
^XMB(3.9,343,2,5841,0)="5841|92205.0000|3OH-Hexanoylcarn|"
^XMB(3.9,343,2,5842,0)="5842|92206.0000|3OH-Tdecanoylcarn|"
^XMB(3.9,343,2,5843,0)="5843|92207.0000|HIV1 DNA|"
^XMB(3.9,343,2,5844,0)="5844|92208.0000|CMV Viral Load|"
^XMB(3.9,343,2,5845,0)="5845|92209.0000|sTfR|"
^XMB(3.9,343,2,5846,0)="5846|92210.0000|Glucose 2.6H p Glc|"
^XMB(3.9,343,2,5847,0)="5847|92211.0000|Glucose 3.3H p Glc|"
^XMB(3.9,343,2,5848,0)="5848|92212.0000|Glucose 3.6H p Glc|"
^XMB(3.9,343,2,5849,0)="5849|92213.0000|Glucose 20M post Glc|"
^XMB(3.9,343,2,5850,0)="5850|92214.0000|Glucose 40M p Glc|"
^XMB(3.9,343,2,5851,0)="5851|92215.0000|Glucose 1.3H p Glc|"
^XMB(3.9,343,2,5852,0)="5852|92216.0000|Glucose 1.6H p Glc|"
^XMB(3.9,343,2,5853,0)="5853|92217.0000|Glucose 2.3H p Glc|"
^XMB(3.9,343,2,5854,0)="5854|92218.0000|A Ab Titer|"
^XMB(3.9,343,2,5855,0)="5855|92219.0000|Alpha Subunit Free|"
^XMB(3.9,343,2,5856,0)="5856|92220.0000|Decenoylcarn|"
^XMB(3.9,343,2,5857,0)="5857|92221.0000|GD1b Disialyl IgG Titer|"
^XMB(3.9,343,2,5858,0)="5858|92222.0000|GD1b Disialyl IgM Titer|"
^XMB(3.9,343,2,5859,0)="5859|92223.0000|Ehrlichia phag Ab Titer|"
^XMB(3.9,343,2,5860,0)="5860|92224.0000|Glucose 1H p 1.2 g/kg Lac PO|"
^XMB(3.9,343,2,5861,0)="5861|92225.0000|Glucose 2H p 1.2 g/kg Lac PO|"
^XMB(3.9,343,2,5862,0)="5862|92226.0000|Glucose 3H p 1.2 g/kg Lac PO|"
^XMB(3.9,343,2,5863,0)="5863|92227.0000|HSV1+2 IgM|"
^XMB(3.9,343,2,5864,0)="5864|92228.0000|Hexadecanoylcarn|"
^XMB(3.9,343,2,5865,0)="5865|92229.0000|Hexadecenoylcarn|"
^XMB(3.9,343,2,5866,0)="5866|92230.0000|Streptococcus pneum56 IgG sp1|"
^XMB(3.9,343,2,5867,0)="5867|92231.0000|Streptococcus pneum4 IgG sp1|"
^XMB(3.9,343,2,5868,0)="5868|92232.0000|Streptococcus pneum4 IgG sp2|"
^XMB(3.9,343,2,5869,0)="5869|92233.0000|Streptococcus pneum26 IgG sp2|"
^XMB(3.9,343,2,5870,0)="5870|92234.0000|Streptococcus pneum8 IgG sp1|"
^XMB(3.9,343,2,5871,0)="5871|92235.0000|Streptococcus pneum8 IgG sp2|"
^XMB(3.9,343,2,5872,0)="5872|92236.0000|Streptococcus pneum9 IgG sp1|"
^XMB(3.9,343,2,5873,0)="5873|92237.0000|Streptococcus pneum9 IgG sp2|"
^XMB(3.9,343,2,5874,0)="5874|92238.0000|Bromodiphenhyd|"
^XMB(3.9,343,2,5875,0)="5875|92239.0000|IV2Me-butyrylcarn|"
^XMB(3.9,343,2,5876,0)="5876|92240.0000|L-Floxacin Peak|"
^XMB(3.9,343,2,5877,0)="5877|92241.0000|L-Floxacin Trough|"
^XMB(3.9,343,2,5878,0)="5878|92242.0000|L/K Microsom1 Ab|"
^XMB(3.9,343,2,5879,0)="5879|92243.0000|Pyridoxal Phos|"
^XMB(3.9,343,2,5880,0)="5880|92244.0000|ENA SM+RNP Ab Titer|"
^XMB(3.9,343,2,5881,0)="5881|92245.0000|Sm Mus IgG|"
^XMB(3.9,343,2,5882,0)="5882|92246.0000|Stearoylcarn|"
^XMB(3.9,343,2,5883,0)="5883|92247.0000|Streptococcus pneum6 IgG|"
^XMB(3.9,343,2,5884,0)="5884|92248.0000|Tdecanoylcarn|"
^XMB(3.9,343,2,5885,0)="5885|92249.0000|Pyridoxal|"
^XMB(3.9,343,2,5886,0)="5886|92250.0000|Acetoacet+Acetone|"
^XMB(3.9,343,2,5887,0)="5887|92251.0000|Aldost/Renin|"
^XMB(3.9,343,2,5888,0)="5888|92252.0000|Horse Chestnut IgE Ql|"
^XMB(3.9,343,2,5889,0)="5889|92253.0000|Silver Birch RBET V1 IgE|"
^XMB(3.9,343,2,5890,0)="5890|92254.0000|Silver Birch Profilin IgE|"
^XMB(3.9,343,2,5891,0)="5891|92255.0000|Aspergillus fumigatus ASP F1 IgE|"
^XMB(3.9,343,2,5892,0)="5892|92256.0000|Chinchilla Epith IgE|"
^XMB(3.9,343,2,5893,0)="5893|92257.0000|Sardine (melanost) IgE|"
^XMB(3.9,343,2,5894,0)="5894|92258.0000|Aspergillus fumigatus ASP F2 IgE|"
^XMB(3.9,343,2,5895,0)="5895|92259.0000|Aspergillus fumigatus ASP F3 IgE|"
^XMB(3.9,343,2,5896,0)="5896|92260.0000|Aspergillus fumigatus ASP F4 IgE|"
^XMB(3.9,343,2,5897,0)="5897|92261.0000|Aspergillus fumigatus ASP F6 IgE|"
^XMB(3.9,343,2,5898,0)="5898|92262.0000|Timothy RPH1 P1 IgE|"
^XMB(3.9,343,2,5899,0)="5899|92263.0000|Timothy RPH1 P2 IgE|"
^XMB(3.9,343,2,5900,0)="5900|92264.0000|Timothy RPH1 P5 IgE|"
^XMB(3.9,343,2,5901,0)="5901|92265.0000|Timothy Native RPH1 P4 IgE|"
^XMB(3.9,343,2,5902,0)="5902|92266.0000|Timothy RPH1 P6 IgE|"
^XMB(3.9,343,2,5903,0)="5903|92267.0000|Timothy RPH1 P7 IgE|"
^XMB(3.9,343,2,5904,0)="5904|92268.0000|Timothy RPH1 P11 IgE|"
^XMB(3.9,343,2,5905,0)="5905|92269.0000|Pellitory (judaic) IgE RAST Ql|"
^XMB(3.9,343,2,5906,0)="5906|92270.0000|Dates IgE|"
^XMB(3.9,343,2,5907,0)="5907|92271.0000|Grass Allerg Mix 6 IgE Ql|"
^XMB(3.9,343,2,5908,0)="5908|92272.0000|Mold Allerg Mix3 IgE Ql|"
^XMB(3.9,343,2,5909,0)="5909|92273.0000|Epid Allerg Mix B IgE Ql|"
^XMB(3.9,343,2,5910,0)="5910|92274.0000|Food Allerg Mix16 IgE Ql|"
^XMB(3.9,343,2,5911,0)="5911|92275.0000|Food Allerg Mix23 IgE Ql|"
^XMB(3.9,343,2,5912,0)="5912|92276.0000|Food Allerg Mix24 IgE Ql|"
^XMB(3.9,343,2,5913,0)="5913|92277.0000|Food Allerg Mix25 IgE Ql|"
^XMB(3.9,343,2,5914,0)="5914|92278.0000|Food Allerg Mix70 IgE Ql|"
^XMB(3.9,343,2,5915,0)="5915|92279.0000|Sardine (melanost) IgE RAST Ql|"
^XMB(3.9,343,2,5916,0)="5916|92280.0000|Corynebacterium diphtheriae Ab sp2|"
^XMB(3.9,343,2,5917,0)="5917|92281.0000|tTG IgA|"
^XMB(3.9,343,2,5918,0)="5918|92282.0000|Haem influ B IgG sp2|"
^XMB(3.9,343,2,5919,0)="5919|92283.0000|10OH-Carbazepine|"
^XMB(3.9,343,2,5920,0)="5920|92284.0000|B-IFN1 Ab Titer|"
^XMB(3.9,343,2,5921,0)="5921|92285.0000|Yeast IgG|"
^XMB(3.9,343,2,5922,0)="5922|92286.0000|Yeast IgA|"
^XMB(3.9,343,2,5923,0)="5923|92287.0000|Creat/BUN|"
^XMB(3.9,343,2,5924,0)="5924|92288.0000|HIV1 p41 Ab|"
^XMB(3.9,343,2,5925,0)="5925|92289.0000|HIV2|"
^XMB(3.9,343,2,5926,0)="5926|92290.0000|Australian pine IgE RAST Ql|"
^XMB(3.9,343,2,5927,0)="5927|92291.0000|Gerbil Epith IgE RAST Ql|"
^XMB(3.9,343,2,5928,0)="5928|92292.0000|Gentamicin Peak EID|"
^XMB(3.9,343,2,5929,0)="5929|92293.0000|Gentamicin Trough EID|"
^XMB(3.9,343,2,5930,0)="5930|92294.0000|Gentamicin Random EID|"
^XMB(3.9,343,2,5931,0)="5931|92295.0000|Tobramycin Peak EID|"
^XMB(3.9,343,2,5932,0)="5932|92296.0000|Tobramycin Trough EID|"
^XMB(3.9,343,2,5933,0)="5933|92297.0000|Tobramycin Random EID|"
^XMB(3.9,343,2,5934,0)="5934|92298.0000|Amikacin Peak EID|"
^XMB(3.9,343,2,5935,0)="5935|92299.0000|Amikacin Trough EID|"
^XMB(3.9,343,2,5936,0)="5936|92300.0000|Amikacin Random EID|"
^XMB(3.9,343,2,5937,0)="5937|92301.0000|MuV Sol Ab Titer|"
^XMB(3.9,343,2,5938,0)="5938|92302.0000|MuV Viral Ab Titer|"
^XMB(3.9,343,2,5939,0)="5939|92303.0000|RPR Titer|"
^XMB(3.9,343,2,5940,0)="5940|92304.0000|Epid Allerg Mix73 IgE|"
^XMB(3.9,343,2,5941,0)="5941|92305.0000|SGPG Ab Titer|"
^XMB(3.9,343,2,5942,0)="5942|92306.0000|GD1b Gangl Ab Titer|"
^XMB(3.9,343,2,5943,0)="5943|92307.0000|GQ1b Gangl Ab Titer|"
^XMB(3.9,343,2,5944,0)="5944|92308.0000|7Aminonitrazepam|"
^XMB(3.9,343,2,5945,0)="5945|92309.0000|Streptococcus pneum5 IgG|"
^XMB(3.9,343,2,5946,0)="5946|92310.0000|Islet Cell512 Ab|"
^XMB(3.9,343,2,5947,0)="5947|92311.0000|Afipia felis IgG|"
^XMB(3.9,343,2,5948,0)="5948|92312.0000|Afipia felis IgM|"
^XMB(3.9,343,2,5949,0)="5949|92313.0000|Arbovirus NOS Ab|"
^XMB(3.9,343,2,5950,0)="5950|92314.0000|IBV Ab|"
^XMB(3.9,343,2,5951,0)="5951|92315.0000|IBV Ark99 Ab|"
^XMB(3.9,343,2,5952,0)="5952|92316.0000|IBV Conn42 Ab|"
^XMB(3.9,343,2,5953,0)="5953|92317.0000|IBV Mass41 Ab|"
^XMB(3.9,343,2,5954,0)="5954|92318.0000|APMV2 Ab|"
^XMB(3.9,343,2,5955,0)="5955|92319.0000|Bab microti IgG|"
^XMB(3.9,343,2,5956,0)="5956|92320.0000|Babesia IgG|"
^XMB(3.9,343,2,5957,0)="5957|92321.0000|B-Tubulin IgG|"
^XMB(3.9,343,2,5958,0)="5958|92322.0000|BTV10 Ab|"
^XMB(3.9,343,2,5959,0)="5959|92323.0000|BTV11 Ab|"
^XMB(3.9,343,2,5960,0)="5960|92324.0000|BTV13 Ab|"
^XMB(3.9,343,2,5961,0)="5961|92325.0000|BTV17 Ab|"
^XMB(3.9,343,2,5962,0)="5962|92326.0000|BTV2 Ab|"
^XMB(3.9,343,2,5963,0)="5963|92327.0000|BVDV1 Ab|"
^XMB(3.9,343,2,5964,0)="5964|92328.0000|BVDV2 Ab|"
^XMB(3.9,343,2,5965,0)="5965|92329.0000|Campylobacter fetus Ab|"
^XMB(3.9,343,2,5966,0)="5966|92330.0000|CPV IgG|"
^XMB(3.9,343,2,5967,0)="5967|92331.0000|CPV IgM|"
^XMB(3.9,343,2,5968,0)="5968|92332.0000|Centromere IgG|"
^XMB(3.9,343,2,5969,0)="5969|92333.0000|Chlamydia trach IgA|"
^XMB(3.9,343,2,5970,0)="5970|92334.0000|Chlamydia trach B IgA|"
^XMB(3.9,343,2,5971,0)="5971|92335.0000|Chlamydia trach B IgM|"
^XMB(3.9,343,2,5972,0)="5972|92336.0000|Chlamydia trach D+K IgA|"
^XMB(3.9,343,2,5973,0)="5973|92337.0000|Chlamydia trach D+K IgG|"
^XMB(3.9,343,2,5974,0)="5974|92338.0000|Chlamydia trach D+K IgM|"
^XMB(3.9,343,2,5975,0)="5975|92339.0000|Chlamydophila pneum IgA|"
^XMB(3.9,343,2,5976,0)="5976|92340.0000|Chlamydophila pneum IgG|"
^XMB(3.9,343,2,5977,0)="5977|92341.0000|Chlamydophila psittaci IgA|"
^XMB(3.9,343,2,5978,0)="5978|92342.0000|Clostridium dif Ab|"
^XMB(3.9,343,2,5979,0)="5979|92343.0000|Cockatiel Drop Ab Ql|"
^XMB(3.9,343,2,5980,0)="5980|92344.0000|Coxiella burnet Ph1 Ab|"
^XMB(3.9,343,2,5981,0)="5981|92345.0000|Coxiella burnet Ph1 IgA|"
^XMB(3.9,343,2,5982,0)="5982|92346.0000|Coxiella burnet Ph2 Ab|"
^XMB(3.9,343,2,5983,0)="5983|92347.0000|Coxiella burnet Ph2 IgA|"
^XMB(3.9,343,2,5984,0)="5984|92348.0000|EMCV Ab|"
^XMB(3.9,343,2,5985,0)="5985|92349.0000|EV Ab|"
^XMB(3.9,343,2,5986,0)="5986|92350.0000|Epidis Ab|"
^XMB(3.9,343,2,5987,0)="5987|92351.0000|EBV VCA IgA|"
^XMB(3.9,343,2,5988,0)="5988|92352.0000|EHV1 Ab|"
^XMB(3.9,343,2,5989,0)="5989|92353.0000|TBEV Ab|"
^XMB(3.9,343,2,5990,0)="5990|92354.0000|FCV Ab|"
^XMB(3.9,343,2,5991,0)="5991|92355.0000|FeHV Ab|"
^XMB(3.9,343,2,5992,0)="5992|92356.0000|FPLV Ab|"
^XMB(3.9,343,2,5993,0)="5993|92357.0000|FPLV IgG|"
^XMB(3.9,343,2,5994,0)="5994|92358.0000|FPLV IgM|"
^XMB(3.9,343,2,5995,0)="5995|92359.0000|FSV Ab|"
^XMB(3.9,343,2,5996,0)="5996|92360.0000|Filovirus Ab|"
^XMB(3.9,343,2,5997,0)="5997|92361.0000|GD1a Gangl IgG|"
^XMB(3.9,343,2,5998,0)="5998|92362.0000|GD1a Gangl IgM|"
^XMB(3.9,343,2,5999,0)="5999|92363.0000|GD1b Gangl IgG|"
^XMB(3.9,343,2,6000,0)="6000|92364.0000|GD1b Gangl IgM|"
^XMB(3.9,343,2,6001,0)="6001|92365.0000|GM1b Gangl IgG|"
^XMB(3.9,343,2,6002,0)="6002|92366.0000|GM1b Gangl IgM|"
^XMB(3.9,343,2,6003,0)="6003|92367.0000|Haemophilus somnus Ab|"
^XMB(3.9,343,2,6004,0)="6004|92368.0000|HHV7 IgG|"
^XMB(3.9,343,2,6005,0)="6005|92369.0000|HHV7 IgM|"
^XMB(3.9,343,2,6006,0)="6006|92370.0000|HJV Ab|"
^XMB(3.9,343,2,6007,0)="6007|92371.0000|Hyaluronidase Ab|"
^XMB(3.9,343,2,6008,0)="6008|92372.0000|FLUA IgG|"
^XMB(3.9,343,2,6009,0)="6009|92373.0000|FLUA IgM|"
^XMB(3.9,343,2,6010,0)="6010|92374.0000|Intercal Dsk Ab|"
^XMB(3.9,343,2,6011,0)="6011|92375.0000|B-IFN1 Ab|"
^XMB(3.9,343,2,6012,0)="6012|92376.0000|Legionella pneumo1 Ab|"
^XMB(3.9,343,2,6013,0)="6013|92377.0000|Legionella pneumo1 IgG|"
^XMB(3.9,343,2,6014,0)="6014|92378.0000|Legionella pneumo2 Ab|"
^XMB(3.9,343,2,6015,0)="6015|92379.0000|Legionella pneumo2 IgG|"
^XMB(3.9,343,2,6016,0)="6016|92380.0000|Legionella pneumo3 Ab|"
^XMB(3.9,343,2,6017,0)="6017|92381.0000|Legionella pneumo3 IgG|"
^XMB(3.9,343,2,6018,0)="6018|92382.0000|Legionella pneumo4 Ab|"
^XMB(3.9,343,2,6019,0)="6019|92383.0000|Legionella pneumo4 IgG|"
^XMB(3.9,343,2,6020,0)="6020|92384.0000|Legionella pneumo5 Ab|"
^XMB(3.9,343,2,6021,0)="6021|92385.0000|Legionella pneumo5 IgG|"
^XMB(3.9,343,2,6022,0)="6022|92386.0000|Legionella pneumo6 Ab|"
^XMB(3.9,343,2,6023,0)="6023|92387.0000|Legionella pneumo6 IgG|"
^XMB(3.9,343,2,6024,0)="6024|92388.0000|Legionella pneumo6 IgM|"
^XMB(3.9,343,2,6025,0)="6025|92389.0000|Legionella pneumo IgM|"
^XMB(3.9,343,2,6026,0)="6026|92390.0000|Legionella IgM|"
^XMB(3.9,343,2,6027,0)="6027|92391.0000|LCMV IgG|"
^XMB(3.9,343,2,6028,0)="6028|92392.0000|LCMV IgM|"
^XMB(3.9,343,2,6029,0)="6029|92393.0000|MuV Sol Ab|"
^XMB(3.9,343,2,6030,0)="6030|92394.0000|MuV Viral Ab|"
^XMB(3.9,343,2,6031,0)="6031|92395.0000|Ovary IgG|"
^XMB(3.9,343,2,6032,0)="6032|92396.0000|PARAFLU Ab|"
^XMB(3.9,343,2,6033,0)="6033|92397.0000|Porcin FLUA Ab|"
^XMB(3.9,343,2,6034,0)="6034|92398.0000|Pullaria Ab Ql|"
^XMB(3.9,343,2,6035,0)="6035|92399.0000|Rickettsia prowazek IgG|"
^XMB(3.9,343,2,6036,0)="6036|92400.0000|Rickettsia prowazek IgM|"
^XMB(3.9,343,2,6037,0)="6037|92401.0000|Orientia tsut IgG|"
^XMB(3.9,343,2,6038,0)="6038|92402.0000|Stria Mus IgG|"
^XMB(3.9,343,2,6039,0)="6039|92403.0000|TVTV Ab|"
^XMB(3.9,343,2,6040,0)="6040|92404.0000|Yersinia enterocol Ab|"
^XMB(3.9,343,2,6041,0)="6041|92405.0000|ALV Ag|"
^XMB(3.9,343,2,6042,0)="6042|92406.0000|Cryptococcus neoform Ag|"
^XMB(3.9,343,2,6043,0)="6043|92407.0000|Diuretics|"
^XMB(3.9,343,2,6044,0)="6044|92408.0000|Ehrlichia IgG Titer|"
^XMB(3.9,343,2,6045,0)="6045|92409.0000|Ehrlichia IgM Titer|"
^XMB(3.9,343,2,6046,0)="6046|92410.0000|Hepatitis Bs Ab Titer|"
^XMB(3.9,343,2,6047,0)="6047|92411.0000|HTLV1 DNA|"
^XMB(3.9,343,2,6048,0)="6048|92412.0000|ENA SS-A+SS-B Ab|"
^XMB(3.9,343,2,6049,0)="6049|92413.0000|Volatiles|"
^XMB(3.9,343,2,6050,0)="6050|92414.0000|PTH-Biointact|"
^XMB(3.9,343,2,6051,0)="6051|92415.0000|PAPP-A|"
^XMB(3.9,343,2,6052,0)="6052|92416.0000|Theophylline Peak|"
^XMB(3.9,343,2,6053,0)="6053|92417.0000|Theophylline Trough|"
^XMB(3.9,343,2,6054,0)="6054|92418.0000|B-HCG Free MOM|"
^XMB(3.9,343,2,6055,0)="6055|92419.0000|PAPP-A MOM|"
^XMB(3.9,343,2,6056,0)="6056|92420.0000|Path Rev|"
^XMB(3.9,343,2,6057,0)="6057|92421.0000|PPAA|"
^XMB(3.9,343,2,6058,0)="6058|92422.0000|HCG MOM adj|"
^XMB(3.9,343,2,6059,0)="6059|92423.0000|Hepatitis Be Ag Titer|"
^XMB(3.9,343,2,6060,0)="6060|92424.0000|Itraconaz Peak|"
^XMB(3.9,343,2,6061,0)="6061|92425.0000|Itraconaz Trough|"
^XMB(3.9,343,2,6062,0)="6062|92426.0000|Salmonella paraty A Ab Titer|"
^XMB(3.9,343,2,6063,0)="6063|92427.0000|Salmonella paraty B Ab Titer|"
^XMB(3.9,343,2,6064,0)="6064|92428.0000|Carnitine Free %|"
^XMB(3.9,343,2,6065,0)="6065|92429.0000|Valproate Free %|"
^XMB(3.9,343,2,6066,0)="6066|92430.0000|BKV DNA|"
^XMB(3.9,343,2,6067,0)="6067|92431.0000|Hepatitis C Gentyp|"
^XMB(3.9,343,2,6068,0)="6068|92432.0000|Cortis BS|"
^XMB(3.9,343,2,6069,0)="6069|92433.0000|ALP HL|"
^XMB(3.9,343,2,6070,0)="6070|92434.0000|ALP HS|"
^XMB(3.9,343,2,6071,0)="6071|92435.0000|Estriol MoM|"
^XMB(3.9,343,2,6072,0)="6072|92436.0000|Glucose 10M p Glc|"
^XMB(3.9,343,2,6073,0)="6073|92437.0000|WNV RNA|"
^XMB(3.9,343,2,6074,0)="6074|92438.0000|JCPyV DNA|"
^XMB(3.9,343,2,6075,0)="6075|92439.0000|HHV8 DNA|"
^XMB(3.9,343,2,6076,0)="6076|92440.0000|TTV DNA|"
^XMB(3.9,343,2,6077,0)="6077|92441.0000|Hepatitis B Gentyp|"
^XMB(3.9,343,2,6078,0)="6078|92442.0000|Corynebacterium diphtheriae Ab sp1|"
^XMB(3.9,343,2,6079,0)="6079|92443.0000|Tilapia IgE|"
^XMB(3.9,343,2,6080,0)="6080|92444.0000|Tilapia IgE RAST Ql|"
^XMB(3.9,343,2,6081,0)="6081|92445.0000|Zaleplon|"
^XMB(3.9,343,2,6082,0)="6082|92446.0000|Chromatin IgG|"
^XMB(3.9,343,2,6083,0)="6083|92447.0000|Leptospira Ab sp1 Titer|"
^XMB(3.9,343,2,6084,0)="6084|92448.0000|Leptospira Ab sp2 Titer|"
^XMB(3.9,343,2,6085,0)="6085|92449.0000|Hycs-Cys diS|"
^XMB(3.9,343,2,6086,0)="6086|92450.0000|Islet Cell512 Ab Titer|"
^XMB(3.9,343,2,6087,0)="6087|92451.0000|D-/L-amphet|"
^XMB(3.9,343,2,6088,0)="6088|92452.0000|D-/L-methamphet|"
^XMB(3.9,343,2,6089,0)="6089|92453.0000|Borrelia burgdor25kD IgM|"
^XMB(3.9,343,2,6090,0)="6090|92454.0000|Legionella longbeachae1+2 Ab Titer|"
^XMB(3.9,343,2,6091,0)="6091|92455.0000|Legionella pneumo pool 1-6 Ab Titr|"
^XMB(3.9,343,2,6092,0)="6092|92456.0000|ENA Scl70 Ab Titer|"
^XMB(3.9,343,2,6093,0)="6093|92457.0000|Trichinella IgG|"
^XMB(3.9,343,2,6094,0)="6094|92458.0000|B1-Globulin|"
^XMB(3.9,343,2,6095,0)="6095|92459.0000|B2-Globulin|"
^XMB(3.9,343,2,6096,0)="6096|92460.0000|B1-Globulin %|"
^XMB(3.9,343,2,6097,0)="6097|92461.0000|B2-Globulin %|"
^XMB(3.9,343,2,6098,0)="6098|92462.0000|Clostridium tetani Toxoid Ab|"
^XMB(3.9,343,2,6099,0)="6099|92463.0000|B19V IgG sp2|"
^XMB(3.9,343,2,6100,0)="6100|92464.0000|B19V IgM sp1|"
^XMB(3.9,343,2,6101,0)="6101|92465.0000|B19V IgM sp2|"
^XMB(3.9,343,2,6102,0)="6102|92466.0000|Glucose 45M p Lac PO|"
^XMB(3.9,343,2,6103,0)="6103|92467.0000|B19V IgG sp1|"
^XMB(3.9,343,2,6104,0)="6104|92468.0000|HIV1 p17+p18 Ab|"
^XMB(3.9,343,2,6105,0)="6105|92469.0000|EBV VCA IgG sp1|"
^XMB(3.9,343,2,6106,0)="6106|92470.0000|Streptococcus pneum18 IgG|"
^XMB(3.9,343,2,6107,0)="6107|92471.0000|CBZ Free %|"
^XMB(3.9,343,2,6108,0)="6108|92472.0000|Her2|"
^XMB(3.9,343,2,6109,0)="6109|92473.0000|tTG IgG|"
^XMB(3.9,343,2,6110,0)="6110|92474.0000|Spelt IgE|"
^XMB(3.9,343,2,6111,0)="6111|92475.0000|Spelt IgE RAST Ql|"
^XMB(3.9,343,2,6112,0)="6112|92476.0000|Kelp/Seaweed IgE|"
^XMB(3.9,343,2,6113,0)="6113|92477.0000|Kelp/Seaweed IgE RAST Ql|"
^XMB(3.9,343,2,6114,0)="6114|92478.0000|Colby Cheese IgE|"
^XMB(3.9,343,2,6115,0)="6115|92479.0000|Colby Cheese IgE RAST Ql|"
^XMB(3.9,343,2,6116,0)="6116|92480.0000|Provolone Cheese IgE|"
^XMB(3.9,343,2,6117,0)="6117|92481.0000|Provolone Cheese IgE RAST Ql|"
^XMB(3.9,343,2,6118,0)="6118|92482.0000|Romano Cheese IgE|"
^XMB(3.9,343,2,6119,0)="6119|92483.0000|Romano Cheese IgE RAST Ql|"
^XMB(3.9,343,2,6120,0)="6120|92484.0000|Protein Protein|"
^XMB(3.9,343,2,6121,0)="6121|92485.0000|Glucose 30M p 1.2 g/kg Lac PO|"
^XMB(3.9,343,2,6122,0)="6122|92486.0000|Hypnotics|"
^XMB(3.9,343,2,6123,0)="6123|92487.0000|Tranquilizers|"
^XMB(3.9,343,2,6124,0)="6124|92488.0000|PChE Phenotyp|"
^XMB(3.9,343,2,6125,0)="6125|92489.0000|Chlordiazep+Metab|"
^XMB(3.9,343,2,6126,0)="6126|92490.0000|Homocystine 6h p Met-(Hcys)2|"
^XMB(3.9,343,2,6127,0)="6127|92491.0000|Amyloid beta42|"
^XMB(3.9,343,2,6128,0)="6128|92492.0000|Il8|"
^XMB(3.9,343,2,6129,0)="6129|92493.0000|TSH 30M p TRH|"
^XMB(3.9,343,2,6130,0)="6130|92494.0000|TSH 1h p TRH|"
^XMB(3.9,343,2,6131,0)="6131|92495.0000|TSH 1.5H p TRH|"
^XMB(3.9,343,2,6132,0)="6132|92496.0000|TSH 2H p TRH|"
^XMB(3.9,343,2,6133,0)="6133|92497.0000|Osmolar Gap|"
^XMB(3.9,343,2,6134,0)="6134|92498.0000|TSH pre TRH|"
^XMB(3.9,343,2,6135,0)="6135|92499.0000|3Me-glutaconate|"
^XMB(3.9,343,2,6136,0)="6136|92500.0000|Aureobasidium pullulans IgG RAST Ql|"
^XMB(3.9,343,2,6137,0)="6137|92501.0000|Curvularia specifera IgG RAST Ql|"
^XMB(3.9,343,2,6138,0)="6138|92502.0000|Catfish IgG RAST Ql|"
^XMB(3.9,343,2,6139,0)="6139|92503.0000|Fusarium moniliforme IgG RAST Ql|"
^XMB(3.9,343,2,6140,0)="6140|92504.0000|Helminthosporium IgG RAST Ql|"
^XMB(3.9,343,2,6141,0)="6141|92505.0000|Kiwi IgG RAST Ql|"
^XMB(3.9,343,2,6142,0)="6142|92506.0000|Mucor racemosus IgG RAST Ql|"
^XMB(3.9,343,2,6143,0)="6143|92507.0000|PAN IgG RAST Ql|"
^XMB(3.9,343,2,6144,0)="6144|92508.0000|Phoma betae IgG RAST Ql|"
^XMB(3.9,343,2,6145,0)="6145|92509.0000|Penicillium notatum IgG RAST Ql|"
^XMB(3.9,343,2,6146,0)="6146|92510.0000|Perch IgG RAST Ql|"
^XMB(3.9,343,2,6147,0)="6147|92511.0000|Phosphatidate Ab|"
^XMB(3.9,343,2,6148,0)="6148|92512.0000|PC Ab|"
^XMB(3.9,343,2,6149,0)="6149|92513.0000|PE Ab|"
^XMB(3.9,343,2,6150,0)="6150|92514.0000|PI Ab|"
^XMB(3.9,343,2,6151,0)="6151|92515.0000|PS Ab|"
^XMB(3.9,343,2,6152,0)="6152|92516.0000|Rhizopus nigricans IgG RAST Ql|"
^XMB(3.9,343,2,6153,0)="6153|92517.0000|RF IgA|"
^XMB(3.9,343,2,6154,0)="6154|92518.0000|RF IgG|"
^XMB(3.9,343,2,6155,0)="6155|92519.0000|Stemphylium botryosum IgG RAST Ql|"
^XMB(3.9,343,2,6156,0)="6156|92520.0000|Salmonella paraty A O Ab Titr|"
^XMB(3.9,343,2,6157,0)="6157|92521.0000|Trichophyton IgG RAST Ql|"
^XMB(3.9,343,2,6158,0)="6158|92522.0000|WNV IgG Titer|"
^XMB(3.9,343,2,6159,0)="6159|92523.0000|WNV IgM Titer|"
^XMB(3.9,343,2,6160,0)="6160|92524.0000|Blastomyces Ab Titer|"
^XMB(3.9,343,2,6161,0)="6161|92525.0000|Coccidioides Ab Titer|"
^XMB(3.9,343,2,6162,0)="6162|92526.0000|CV A8 Ab|"
^XMB(3.9,343,2,6163,0)="6163|92527.0000|MAG Ab Titer|"
^XMB(3.9,343,2,6164,0)="6164|92528.0000|EBV VCA Ab|"
^XMB(3.9,343,2,6165,0)="6165|92529.0000|Neisseria men A+C+W135+Y Ag|"
^XMB(3.9,343,2,6166,0)="6166|92530.0000|Neisseria men B+E coli K1 Ag|"
^XMB(3.9,343,2,6167,0)="6167|92531.0000|Neuronal IgG|"
^XMB(3.9,343,2,6168,0)="6168|92532.0000|ALP Other|"
^XMB(3.9,343,2,6169,0)="6169|92533.0000|Hepatitis Be IgG|"
^XMB(3.9,343,2,6170,0)="6170|92534.0000|Francisella tular IgG Titer|"
^XMB(3.9,343,2,6171,0)="6171|92535.0000|Francisella tular IgM Titer|"
^XMB(3.9,343,2,6172,0)="6172|92536.0000|VLCFA Pattern|"
^XMB(3.9,343,2,6173,0)="6173|92537.0000|EBV EA Ab Restricted Titer|"
^XMB(3.9,343,2,6174,0)="6174|92538.0000|HIV1 p65+p66 Ab|"
^XMB(3.9,343,2,6175,0)="6175|92539.0000|Misc Allergen IgE RAST Ql|"
^XMB(3.9,343,2,6176,0)="6176|92540.0000|CK-AB %|"
^XMB(3.9,343,2,6177,0)="6177|92541.0000|SNV Ab|"
^XMB(3.9,343,2,6178,0)="6178|92542.0000|Ampicillin Peak|"
^XMB(3.9,343,2,6179,0)="6179|92543.0000|Panc Islet Cell IgG|"
^XMB(3.9,343,2,6180,0)="6180|92544.0000|ENA Jo1 IgG|"
^XMB(3.9,343,2,6181,0)="6181|92545.0000|BPI IgG|"
^XMB(3.9,343,2,6182,0)="6182|92546.0000|Chlamydia trach I IgM Titer|"
^XMB(3.9,343,2,6183,0)="6183|92547.0000|Chlamydia trach I Ab Titer|"
^XMB(3.9,343,2,6184,0)="6184|92548.0000|Francisella tular IgA Titer|"
^XMB(3.9,343,2,6185,0)="6185|92549.0000|RF IgM Titer|"
^XMB(3.9,343,2,6186,0)="6186|92550.0000|DENV Ab Titer|"
^XMB(3.9,343,2,6187,0)="6187|92551.0000|Ehrlichia equi IgM Titer|"
^XMB(3.9,343,2,6188,0)="6188|92552.0000|Ehrlichia equi IgG Titer|"
^XMB(3.9,343,2,6189,0)="6189|92553.0000|HGE Ab Titer|"
^XMB(3.9,343,2,6190,0)="6190|92554.0000|Gastrin 10M pre chal|"
^XMB(3.9,343,2,6191,0)="6191|92555.0000|Trichinella IgA|"
^XMB(3.9,343,2,6192,0)="6192|92556.0000|Borrelia burgdor34kD IgM|"
^XMB(3.9,343,2,6193,0)="6193|92557.0000|MAG IgG Titer|"
^XMB(3.9,343,2,6194,0)="6194|92558.0000|CDT Other %|"
^XMB(3.9,343,2,6195,0)="6195|92559.0000|HBV sequencing|"
^XMB(3.9,343,2,6196,0)="6196|92560.0000|HBV Precore TAG Mut|"
^XMB(3.9,343,2,6197,0)="6197|92561.0000|A1 Ab Titer|"
^XMB(3.9,343,2,6198,0)="6198|92562.0000|A2 Ab Titer|"
^XMB(3.9,343,2,6199,0)="6199|92563.0000|4,4-MDA|"
^XMB(3.9,343,2,6200,0)="6200|92564.0000|Protein Protein %|"
^XMB(3.9,343,2,6201,0)="6201|92565.0000|Cryoglob RF|"
^XMB(3.9,343,2,6202,0)="6202|92566.0000|Complexed PSA|"
^XMB(3.9,343,2,6203,0)="6203|92567.0000|Yersinia pestis Ab|"
^XMB(3.9,343,2,6204,0)="6204|92568.0000|Yersinia pestis Ab Titer|"
^XMB(3.9,343,2,6205,0)="6205|92569.0000|proBNP|"
^XMB(3.9,343,2,6206,0)="6206|92570.0000|PL12 Ab|"
^XMB(3.9,343,2,6207,0)="6207|92571.0000|PL7 Ab|"
^XMB(3.9,343,2,6208,0)="6208|92572.0000|dsDNA IgG|"
^XMB(3.9,343,2,6209,0)="6209|92573.0000|HIV2 IgG|"
^XMB(3.9,343,2,6210,0)="6210|92574.0000|Il1Alpha|"
^XMB(3.9,343,2,6211,0)="6211|92575.0000|Il13|"
^XMB(3.9,343,2,6212,0)="6212|92576.0000|Il18|"
^XMB(3.9,343,2,6213,0)="6213|92577.0000|Mannitol|"
^XMB(3.9,343,2,6214,0)="6214|92578.0000|Cystatin C|"
^XMB(3.9,343,2,6215,0)="6215|92579.0000|Xylose 1H p 5 g Xyl PO|"
^XMB(3.9,343,2,6216,0)="6216|92580.0000|Orientia tsut IgM|"
^XMB(3.9,343,2,6217,0)="6217|92581.0000|Bilirubin Conj+Unconj|"
^XMB(3.9,343,2,6218,0)="6218|92582.0000|Prolactin 1.5H p 200 ug TRH IV|"
^XMB(3.9,343,2,6219,0)="6219|92583.0000|C1r Act/Nor|"
^XMB(3.9,343,2,6220,0)="6220|92584.0000|C1s Act/Nor|"
^XMB(3.9,343,2,6221,0)="6221|92585.0000|Pred GFR|"
^XMB(3.9,343,2,6222,0)="6222|92586.0000|Ampicillin Trough|"
^XMB(3.9,343,2,6223,0)="6223|92587.0000|S Ab Titer|"
^XMB(3.9,343,2,6224,0)="6224|92588.0000|SRP Ab|"
^XMB(3.9,343,2,6225,0)="6225|92589.0000|Wasp Venom IgE RAST Ql|"
^XMB(3.9,343,2,6226,0)="6226|92590.0000|Hu3 Ab Titer|"
^XMB(3.9,343,2,6227,0)="6227|92591.0000|Purkinje Cells 2 Ab Titer|"
^XMB(3.9,343,2,6228,0)="6228|92592.0000|Purkinje Cells Tr Ab Titer|"
^XMB(3.9,343,2,6229,0)="6229|92593.0000|Amphiphysin Ab Titer|"
^XMB(3.9,343,2,6230,0)="6230|92594.0000|Tacrolimus Trough|"
^XMB(3.9,343,2,6231,0)="6231|92595.0000|Glutaraldehyde IgE|"
^XMB(3.9,343,2,6232,0)="6232|92596.0000|Methylmethacrylate IgE Ql|"
^XMB(3.9,343,2,6233,0)="6233|92597.0000|cCP IgG|"
^XMB(3.9,343,2,6234,0)="6234|92598.0000|Homocystine.free|"
^XMB(3.9,343,2,6235,0)="6235|92599.0000|Lambda LC Free|"
^XMB(3.9,343,2,6236,0)="6236|92600.0000|Ziprasidone|"
^XMB(3.9,343,2,6237,0)="6237|92601.0000|Clostridium dif Tox Ab Titer|"
^XMB(3.9,343,2,6238,0)="6238|92602.0000|IC IgM|"
^XMB(3.9,343,2,6239,0)="6239|92603.0000|IC IgA|"
^XMB(3.9,343,2,6240,0)="6240|92604.0000|IC IgG|"
^XMB(3.9,343,2,6241,0)="6241|92605.0000|Procalcitonin|"
^XMB(3.9,343,2,6242,0)="6242|92606.0000|IC IgE|"
^XMB(3.9,343,2,6243,0)="6243|92607.0000|Sulthiame|"
^XMB(3.9,343,2,6244,0)="6244|92608.0000|MAI protein|"
^XMB(3.9,343,2,6245,0)="6245|92609.0000|SARS-CoV Urb RNA|"
^XMB(3.9,343,2,6246,0)="6246|92610.0000|SARS-CoV Urb Ab|"
^XMB(3.9,343,2,6247,0)="6247|92611.0000|SARS-CoV Urb Ab Titer|"
^XMB(3.9,343,2,6248,0)="6248|92612.0000|Fy sup(a) Ab Titer|"
^XMB(3.9,343,2,6249,0)="6249|92613.0000|VGCC-N Binding Ab|"
^XMB(3.9,343,2,6250,0)="6250|92614.0000|VGCC-PQ Binding Ab|"
^XMB(3.9,343,2,6251,0)="6251|92615.0000|Calif Walnut Poln IgE|"
^XMB(3.9,343,2,6252,0)="6252|92616.0000|U1 snRNP IgG|"
^XMB(3.9,343,2,6253,0)="6253|92617.0000|Quinine Ind Platelet Ab|"
^XMB(3.9,343,2,6254,0)="6254|92618.0000|TSH pre/p TRH|"
^XMB(3.9,343,2,6255,0)="6255|92619.0000|Glucose pre/p Arg|"
^XMB(3.9,343,2,6256,0)="6256|92620.0000|Glucose pre/p CLN|"
^XMB(3.9,343,2,6257,0)="6257|92621.0000|Glucose pre/p Gc|"
^XMB(3.9,343,2,6258,0)="6258|92622.0000|Glucose pre/p Glc|"
^XMB(3.9,343,2,6259,0)="6259|92623.0000|Glucose pre/p Ins|"
^XMB(3.9,343,2,6260,0)="6260|92624.0000|GH pre/p Arg|"
^XMB(3.9,343,2,6261,0)="6261|92625.0000|GH pre/p CLN|"
^XMB(3.9,343,2,6262,0)="6262|92626.0000|GH pre/p Gc|"
^XMB(3.9,343,2,6263,0)="6263|92627.0000|GH pre/p Ins|"
^XMB(3.9,343,2,6264,0)="6264|92628.0000|Cortis pre/p ACTH|"
^XMB(3.9,343,2,6265,0)="6265|92629.0000|Paraneoplastic Ab|"
^XMB(3.9,343,2,6266,0)="6266|92630.0000|HACA Ab|"
^XMB(3.9,343,2,6267,0)="6267|92631.0000|Treponema pallidum IgG+IgM|"
^XMB(3.9,343,2,6268,0)="6268|92632.0000|HSV1+2 IgM Titer|"
^XMB(3.9,343,2,6269,0)="6269|92633.0000|Insulin Bnd|"
^XMB(3.9,343,2,6270,0)="6270|92634.0000|Hepatitis C IgG Patrn|"
^XMB(3.9,343,2,6271,0)="6271|92635.0000|Analgesics|"
^XMB(3.9,343,2,6272,0)="6272|92636.0000|Methaqualone Metab|"
^XMB(3.9,343,2,6273,0)="6273|92637.0000|C Ab Titer|"
^XMB(3.9,343,2,6274,0)="6274|92638.0000|Salicylamide Trough|"
^XMB(3.9,343,2,6275,0)="6275|92639.0000|Salicylamide Peak|"
^XMB(3.9,343,2,6276,0)="6276|92640.0000|Pseudallescheria boydii IgG|"
^XMB(3.9,343,2,6277,0)="6277|92641.0000|Alternaria IgG Ql ID|"
^XMB(3.9,343,2,6278,0)="6278|92642.0000|Ampicillin IgG|"
^XMB(3.9,343,2,6279,0)="6279|92643.0000|GM2 Asialo Ab|"
^XMB(3.9,343,2,6280,0)="6280|92644.0000|Silver Birch RBET V4 IgE|"
^XMB(3.9,343,2,6281,0)="6281|92645.0000|Borrelia garinii IgG|"
^XMB(3.9,343,2,6282,0)="6282|92646.0000|Borrelia garinii IgM|"
^XMB(3.9,343,2,6283,0)="6283|92647.0000|Cefaclor IgG|"
^XMB(3.9,343,2,6284,0)="6284|92648.0000|Chlamydia IgA Titer|"
^XMB(3.9,343,2,6285,0)="6285|92649.0000|Cladosporium IgG|"
^XMB(3.9,343,2,6286,0)="6286|92650.0000|Ehrlichia Ab Titer|"
^XMB(3.9,343,2,6287,0)="6287|92651.0000|Flupenthixol|"
^XMB(3.9,343,2,6288,0)="6288|92652.0000|HTLV1+2 Ab Titer|"
^XMB(3.9,343,2,6289,0)="6289|92653.0000|Lormetazepam|"
^XMB(3.9,343,2,6290,0)="6290|92654.0000|Mianserin+Nor|"
^XMB(3.9,343,2,6291,0)="6291|92655.0000|Salmonella paraty C H Ab Titr|"
^XMB(3.9,343,2,6292,0)="6292|92656.0000|Salmonella paraty C O Ab Titr|"
^XMB(3.9,343,2,6293,0)="6293|92657.0000|Salmonella typhi H Ab Titer|"
^XMB(3.9,343,2,6294,0)="6294|92658.0000|Salmonella typhi O Ab Titer|"
^XMB(3.9,343,2,6295,0)="6295|92659.0000|Streptokinase Ab Titer|"
^XMB(3.9,343,2,6296,0)="6296|92660.0000|Strongyloides IgG|"
^XMB(3.9,343,2,6297,0)="6297|92661.0000|Thioguanine|"
^XMB(3.9,343,2,6298,0)="6298|92662.0000|Trypanosoma brucei Ab Titer|"
^XMB(3.9,343,2,6299,0)="6299|92663.0000|Food Allerg Mix17 IgE Ql|"
^XMB(3.9,343,2,6300,0)="6300|92664.0000|Food Allerg Mix28 IgE Ql|"
^XMB(3.9,343,2,6301,0)="6301|92665.0000|Food Allerg Mix26 IgE Ql|"
^XMB(3.9,343,2,6302,0)="6302|92666.0000|Food Allerg Mix27 IgE Ql|"
^XMB(3.9,343,2,6303,0)="6303|92667.0000|Amilsulpride|"
^XMB(3.9,343,2,6304,0)="6304|92668.0000|Buccal Mucosa Ab Titer|"
^XMB(3.9,343,2,6305,0)="6305|92669.0000|Colon Ab Titer|"
^XMB(3.9,343,2,6306,0)="6306|92670.0000|CMV AB Avidity|"
^XMB(3.9,343,2,6307,0)="6307|92671.0000|Cytoskeleton Ab Titer|"
^XMB(3.9,343,2,6308,0)="6308|92672.0000|Escitalopram|"
^XMB(3.9,343,2,6309,0)="6309|92673.0000|Exocri Pancreas Ab Titer|"
^XMB(3.9,343,2,6310,0)="6310|92674.0000|Keratin Ab Titer|"
^XMB(3.9,343,2,6311,0)="6311|92675.0000|Mitochondria M4 Ab|"
^XMB(3.9,343,2,6312,0)="6312|92676.0000|Mitochondria M9 Ab|"
^XMB(3.9,343,2,6313,0)="6313|92677.0000|Moclobemide|"
^XMB(3.9,343,2,6314,0)="6314|92678.0000|Normianserin|"
^XMB(3.9,343,2,6315,0)="6315|92679.0000|Normirtazapine|"
^XMB(3.9,343,2,6316,0)="6316|92680.0000|Nucleosome Ab|"
^XMB(3.9,343,2,6317,0)="6317|92681.0000|RUBV IgG Avidity|"
^XMB(3.9,343,2,6318,0)="6318|92682.0000|Toxoplasma gondii IgG Avidity|"
^XMB(3.9,343,2,6319,0)="6319|92683.0000|Salmonella enteritid H Ab Titer|"
^XMB(3.9,343,2,6320,0)="6320|92684.0000|Salmonella typhimur H Ab Titer|"
^XMB(3.9,343,2,6321,0)="6321|92685.0000|Silver Birch RBET V1+V2 IgE|"
^XMB(3.9,343,2,6322,0)="6322|92686.0000|Cyclosporin monocl|"
^XMB(3.9,343,2,6323,0)="6323|92687.0000|R-methadone|"
^XMB(3.9,343,2,6324,0)="6324|92688.0000|Timothy RPH1 P12 IgE|"
^XMB(3.9,343,2,6325,0)="6325|92689.0000|Timothy RPH1 P1+P5B IgE|"
^XMB(3.9,343,2,6326,0)="6326|92690.0000|Timothy RPH1 P7+P12 IgE|"
^XMB(3.9,343,2,6327,0)="6327|92691.0000|Diethylene Glycol|"
^XMB(3.9,343,2,6328,0)="6328|92692.0000|CV B Ab Titer|"
^XMB(3.9,343,2,6329,0)="6329|92693.0000|Bilirubin Conj %|"
^XMB(3.9,343,2,6330,0)="6330|92694.0000|Zolmitriptan|"
^XMB(3.9,343,2,6331,0)="6331|92695.0000|PIVKA|"
^XMB(3.9,343,2,6332,0)="6332|92696.0000|Cholesterol in Chylo|"
^XMB(3.9,343,2,6333,0)="6333|92697.0000|Cortis 1H p 250 ug ACTH|"
^XMB(3.9,343,2,6334,0)="6334|92698.0000|Ab Present|"
^XMB(3.9,343,2,6335,0)="6335|92699.0000|Phenytoin Free + Total|"
^XMB(3.9,343,2,6336,0)="6336|92700.0000|ACTH Stim IM Pan|"
^XMB(3.9,343,2,6337,0)="6337|92701.0000|ACTH Stim IV Pan|"
^XMB(3.9,343,2,6338,0)="6338|92702.0000|Bilirubin Direct + Total|"
^XMB(3.9,343,2,6339,0)="6339|92703.0000|Complement C3 + C4|"
^XMB(3.9,343,2,6340,0)="6340|92704.0000|CBZ Free + Total|"
^XMB(3.9,343,2,6341,0)="6341|92705.0000|Comp Profile|"
^XMB(3.9,343,2,6342,0)="6342|92706.0000|Sodium + Potassium|"
^XMB(3.9,343,2,6343,0)="6343|92707.0000|FSH + LH|"
^XMB(3.9,343,2,6344,0)="6344|92708.0000|Ig Pan|"
^XMB(3.9,343,2,6345,0)="6345|92709.0000|Lytes HCFA 98 + Ven pH Pan|"
^XMB(3.9,343,2,6346,0)="6346|92710.0000|Creat Cl Pan Ur+SerPl|"
^XMB(3.9,343,2,6347,0)="6347|92711.0000|Candida IgG Ql|"
^XMB(3.9,343,2,6348,0)="6348|92712.0000|Inner Ear 68kD Ab|"
^XMB(3.9,343,2,6349,0)="6349|92713.0000|PPT|"
^XMB(3.9,343,2,6350,0)="6350|92714.0000|E Ab Titer|"
^XMB(3.9,343,2,6351,0)="6351|92715.0000|I Ab Titer|"
^XMB(3.9,343,2,6352,0)="6352|92716.0000|M Ab Titer|"
^XMB(3.9,343,2,6353,0)="6353|92717.0000|Collagen2 Ab|"
^XMB(3.9,343,2,6354,0)="6354|92718.0000|Leishmania IgG Titer|"
^XMB(3.9,343,2,6355,0)="6355|92719.0000|HSV1+2 IgG Titer|"
^XMB(3.9,343,2,6356,0)="6356|92720.0000|CTPV Ab Titer|"
^XMB(3.9,343,2,6357,0)="6357|92721.0000|Cystine.free|"
^XMB(3.9,343,2,6358,0)="6358|92722.0000|Thyroid Colloidal Ab Titer|"
^XMB(3.9,343,2,6359,0)="6359|92723.0000|ATP7A Gene Mut Anal|"
^XMB(3.9,343,2,6360,0)="6360|92724.0000|Actin IgG|"
^XMB(3.9,343,2,6361,0)="6361|92725.0000|Mephenytoin+nor|"
^XMB(3.9,343,2,6362,0)="6362|92726.0000|Clostridium bot Tox A Ab|"
^XMB(3.9,343,2,6363,0)="6363|92727.0000|Carisoprodol+Meprob|"
^XMB(3.9,343,2,6364,0)="6364|92728.0000|Prilocaine|"
^XMB(3.9,343,2,6365,0)="6365|92729.0000|8Dehydrocholest|"
^XMB(3.9,343,2,6366,0)="6366|92730.0000|Propofol|"
^XMB(3.9,343,2,6367,0)="6367|92731.0000|Tripeptide AP|"
^XMB(3.9,343,2,6368,0)="6368|92732.0000|Nuc Mit Spind Ab Titer|"
^XMB(3.9,343,2,6369,0)="6369|92733.0000|CV2 Ab|"
^XMB(3.9,343,2,6370,0)="6370|92734.0000|ErythroaminoAlcohol|"
^XMB(3.9,343,2,6371,0)="6371|92735.0000|Threoamino alcohol|"
^XMB(3.9,343,2,6372,0)="6372|92736.0000|GALOP Ab Titer|"
^XMB(3.9,343,2,6373,0)="6373|92737.0000|VEGF|"
^XMB(3.9,343,2,6374,0)="6374|92738.0000|VLDLc/Trigl|"
^XMB(3.9,343,2,6375,0)="6375|92739.0000|A1AT Act/Nor|"
^XMB(3.9,343,2,6376,0)="6376|92740.0000|Heparin Ind Platelet Ab|"
^XMB(3.9,343,2,6377,0)="6377|92741.0000|Nuc Mitotic App Ab|"
^XMB(3.9,343,2,6378,0)="6378|92742.0000|K Ab Titer|"
^XMB(3.9,343,2,6379,0)="6379|92743.0000|Haemophilus paragallinar Ab|"
^XMB(3.9,343,2,6380,0)="6380|92744.0000|AINOV Ab Titer|"
^XMB(3.9,343,2,6381,0)="6381|92745.0000|AKAV Ab Titer|"
^XMB(3.9,343,2,6382,0)="6382|92746.0000|Bab microti IgG+IgM Pan|"
^XMB(3.9,343,2,6383,0)="6383|92747.0000|Bordetella pert IgG+IgM Pan|"
^XMB(3.9,343,2,6384,0)="6384|92748.0000|Borrelia burgdor IgG+IgM Pan|"
^XMB(3.9,343,2,6385,0)="6385|92749.0000|HHV6 IgG+IgM Pan|"
^XMB(3.9,343,2,6386,0)="6386|92750.0000|HHV7 IgG+IgM Pan|"
^XMB(3.9,343,2,6387,0)="6387|92751.0000|MeV IgG+IgM Pan|"
^XMB(3.9,343,2,6388,0)="6388|92752.0000|B19V IgG+IgM Pan|"
^XMB(3.9,343,2,6389,0)="6389|92753.0000|PS IgG+IgM Pan|"
^XMB(3.9,343,2,6390,0)="6390|92754.0000|RUBV IgG+IgM Pan|"
^XMB(3.9,343,2,6391,0)="6391|92755.0000|Treponema pallidum IgG+IgM Pan|"
^XMB(3.9,343,2,6392,0)="6392|92756.0000|DNA Index 2|"
^XMB(3.9,343,2,6393,0)="6393|92757.0000|DNA Index 3|"
^XMB(3.9,343,2,6394,0)="6394|92758.0000|DNA Index|"
^XMB(3.9,343,2,6395,0)="6395|92759.0000|AA Pan|"
^XMB(3.9,343,2,6396,0)="6396|92760.0000|Triple Marker Screen|"
^XMB(3.9,343,2,6397,0)="6397|92761.0000|Acenocoumarol|"
^XMB(3.9,343,2,6398,0)="6398|92762.0000|Acyclovir Trough|"
^XMB(3.9,343,2,6399,0)="6399|92763.0000|Acyclovir Peak|"
^XMB(3.9,343,2,6400,0)="6400|92764.0000|Bromperidol|"
^XMB(3.9,343,2,6401,0)="6401|92765.0000|Phenprocoumon|"
^XMB(3.9,343,2,6402,0)="6402|92766.0000|Flecainide Trough|"
^XMB(3.9,343,2,6403,0)="6403|92767.0000|Flecainide Peak|"
^XMB(3.9,343,2,6404,0)="6404|92768.0000|Nelfinavir M8|"
^XMB(3.9,343,2,6405,0)="6405|92769.0000|Nordothiepin|"
^XMB(3.9,343,2,6406,0)="6406|92770.0000|Pipamperone|"
^XMB(3.9,343,2,6407,0)="6407|92771.0000|Sulforidazine|"
^XMB(3.9,343,2,6408,0)="6408|92772.0000|Sulpiride|"
^XMB(3.9,343,2,6409,0)="6409|92773.0000|Dothiepin sulfoxide|"
^XMB(3.9,343,2,6410,0)="6410|92774.0000|E-10-OH-NT|"
^XMB(3.9,343,2,6411,0)="6411|92775.0000|B-IFN Ab Titer|"
^XMB(3.9,343,2,6412,0)="6412|92776.0000|trans-3-OH-cotinine|"
^XMB(3.9,343,2,6413,0)="6413|92777.0000|Octanoate|"
^XMB(3.9,343,2,6414,0)="6414|92778.0000|Decanoate|"
^XMB(3.9,343,2,6415,0)="6415|92779.0000|Decenoate|"
^XMB(3.9,343,2,6416,0)="6416|92780.0000|Tetradecadienoate|"
^XMB(3.9,343,2,6417,0)="6417|92781.0000|Laurate|"
^XMB(3.9,343,2,6418,0)="6418|92782.0000|Lauroleate|"
^XMB(3.9,343,2,6419,0)="6419|92783.0000|Hexacosanoate|"
^XMB(3.9,343,2,6420,0)="6420|92784.0000|Hexacosenoate|"
^XMB(3.9,343,2,6421,0)="6421|92785.0000|Hexadecadienoate|"
^XMB(3.9,343,2,6422,0)="6422|92786.0000|Hexadecenoate|"
^XMB(3.9,343,2,6423,0)="6423|92787.0000|Tetracosanoate|"
^XMB(3.9,343,2,6424,0)="6424|92788.0000|Myristate|"
^XMB(3.9,343,2,6425,0)="6425|92789.0000|Myristoleate|"
^XMB(3.9,343,2,6426,0)="6426|92790.0000|Docosanoate|"
^XMB(3.9,343,2,6427,0)="6427|92791.0000|Docosenoate|"
^XMB(3.9,343,2,6428,0)="6428|92792.0000|Palmitoleate|"
^XMB(3.9,343,2,6429,0)="6429|92793.0000|G-Linolenate|"
^XMB(3.9,343,2,6430,0)="6430|92794.0000|A-Linolenate|"
^XMB(3.9,343,2,6431,0)="6431|92795.0000|Vaccenate|"
^XMB(3.9,343,2,6432,0)="6432|92796.0000|Arachidate|"
^XMB(3.9,343,2,6433,0)="6433|92797.0000|Nervonate|"
^XMB(3.9,343,2,6434,0)="6434|92798.0000|Homo-G Linolenate|"
^XMB(3.9,343,2,6435,0)="6435|92799.0000|Mead acid|"
^XMB(3.9,343,2,6436,0)="6436|92800.0000|Eicosapentaenoate|"
^XMB(3.9,343,2,6437,0)="6437|92801.0000|Docosahexaenoate|"
^XMB(3.9,343,2,6438,0)="6438|92802.0000|Sat FA|"
^XMB(3.9,343,2,6439,0)="6439|92803.0000|Monounsat FA|"
^XMB(3.9,343,2,6440,0)="6440|92804.0000|Polyunsat FA|"
^XMB(3.9,343,2,6441,0)="6441|92805.0000|w3 FA|"
^XMB(3.9,343,2,6442,0)="6442|92806.0000|w6 FA|"
^XMB(3.9,343,2,6443,0)="6443|92807.0000|Docosapentaenate W3|"
^XMB(3.9,343,2,6444,0)="6444|92808.0000|Docosapentaenate W6|"
^XMB(3.9,343,2,6445,0)="6445|92809.0000|Docosatetraenoate|"
^XMB(3.9,343,2,6446,0)="6446|92810.0000|Hepatitis D IgG|"
^XMB(3.9,343,2,6447,0)="6447|92811.0000|Myocardium IgG|"
^XMB(3.9,343,2,6448,0)="6448|92812.0000|Toxoplasma gondii HS Ab|"
^XMB(3.9,343,2,6449,0)="6449|92813.0000|Toxoplasma gondii AC Ab|"
^XMB(3.9,343,2,6450,0)="6450|92814.0000|Thermoactinomyces vulgaris1 Ab|"
^XMB(3.9,343,2,6451,0)="6451|92815.0000|Corynebacterium diphtheriae Ab Titer|"
^XMB(3.9,343,2,6452,0)="6452|92816.0000|Lpa Trigl|"
^XMB(3.9,343,2,6453,0)="6453|92817.0000|Trig in Chylo|"
^XMB(3.9,343,2,6454,0)="6454|92818.0000|Vitamin D+metab|"
^XMB(3.9,343,2,6455,0)="6455|92819.0000|Aspergillus fumigatus GM Ag|"
^XMB(3.9,343,2,6456,0)="6456|92820.0000|CRMP-5 IgG Titer|"
^XMB(3.9,343,2,6457,0)="6457|92821.0000|Lpa Cholest|"
^XMB(3.9,343,2,6458,0)="6458|92822.0000|CV A4+A16 Ab Titer|"
^XMB(3.9,343,2,6459,0)="6459|92823.0000|HIV1 gp40 Ab|"
^XMB(3.9,343,2,6460,0)="6460|92824.0000|Ma+Ta Ab|"
^XMB(3.9,343,2,6461,0)="6461|92825.0000|T Cell XM|"
^XMB(3.9,343,2,6462,0)="6462|92826.0000|m-CPP|"
^XMB(3.9,343,2,6463,0)="6463|92827.0000|OKT3 blocking Ab Titer|"
^XMB(3.9,343,2,6464,0)="6464|92828.0000|Azinphos-Mehyl|"
^XMB(3.9,343,2,6465,0)="6465|92829.0000|Pest + Insect Pan|"
^XMB(3.9,343,2,6466,0)="6466|92830.0000|Pest + Insect Pan Ur+SerPl|"
^XMB(3.9,343,2,6467,0)="6467|92831.0000|Helminthosporium halodes IgG|"
^XMB(3.9,343,2,6468,0)="6468|92832.0000|Trichophyton rubrum IgG|"
^XMB(3.9,343,2,6469,0)="6469|92833.0000|Protein Protein 2|"
^XMB(3.9,343,2,6470,0)="6470|92834.0000|HIV 1 p31+p32 Ab|"
^XMB(3.9,343,2,6471,0)="6471|92835.0000|HIV 1 p40 Ab|"
^XMB(3.9,343,2,6472,0)="6472|92836.0000|PTH 10m p Excision|"
^XMB(3.9,343,2,6473,0)="6473|92837.0000|Pigeon Ab Pnl|"
^XMB(3.9,343,2,6474,0)="6474|92838.0000|Hydrocarb & Oxy Vol Pnl|"
^XMB(3.9,343,2,6475,0)="6475|92839.0000|HP Pnl|"
^XMB(3.9,343,2,6476,0)="6476|92840.0000|CrCl|"
^XMB(3.9,343,2,6477,0)="6477|92841.0000|Metoprolol|"
^XMB(3.9,343,2,6478,0)="6478|92842.0000|CRP Quint|"
^XMB(3.9,343,2,6479,0)="6479|92843.0000|3OH-stearoylcarn|"
^XMB(3.9,343,2,6480,0)="6480|92844.0000|LCMV|"
^XMB(3.9,343,2,6481,0)="6481|92845.0000|Atomoxetine|"
^XMB(3.9,343,2,6482,0)="6482|92846.0000|Bilirubin Direct %|"
^XMB(3.9,343,2,6483,0)="6483|92847.0000|Hepatitis E|"
^XMB(3.9,343,2,6484,0)="6484|92848.0000|tTG|"
^XMB(3.9,343,2,6485,0)="6485|92849.0000|Burkholderia pseudomal|"
^XMB(3.9,343,2,6486,0)="6486|92850.0000|CTPV|"
^XMB(3.9,343,2,6487,0)="6487|92851.0000|CEV IgG Titer|"
^XMB(3.9,343,2,6488,0)="6488|92852.0000|CEV IgM Titer|"
^XMB(3.9,343,2,6489,0)="6489|92853.0000|Metformin|"
^XMB(3.9,343,2,6490,0)="6490|92854.0000|Anti-hyperglycemics|"
^XMB(3.9,343,2,6491,0)="6491|92855.0000|ALP Macrohepatic %|"
^XMB(3.9,343,2,6492,0)="6492|92856.0000|Chlamydia DNA|"
^XMB(3.9,343,2,6493,0)="6493|92857.0000|Hazelnut IgG Ql|"
^XMB(3.9,343,2,6494,0)="6494|92858.0000|Histoplasma capsul H Ab|"
^XMB(3.9,343,2,6495,0)="6495|92859.0000|Histoplasma capsul M Ab|"
^XMB(3.9,343,2,6496,0)="6496|92860.0000|DIA MoM|"
^XMB(3.9,343,2,6497,0)="6497|92861.0000|Brucella|"
^XMB(3.9,343,2,6498,0)="6498|92862.0000|Rickettsia|"
^XMB(3.9,343,2,6499,0)="6499|92863.0000|Escherichia coli O157H7 IgG+IgM Pan|"
^XMB(3.9,343,2,6500,0)="6500|92864.0000|IDL|"
^XMB(3.9,343,2,6501,0)="6501|92865.0000|Organic Acids Pan|"
^XMB(3.9,343,2,6502,0)="6502|92866.0000|2Oxoisoval|"
^XMB(3.9,343,2,6503,0)="6503|92867.0000|2Oxo3Me-val|"
^XMB(3.9,343,2,6504,0)="6504|92868.0000|2Oxoisocaproate|"
^XMB(3.9,343,2,6505,0)="6505|92869.0000|Succinate|"
^XMB(3.9,343,2,6506,0)="6506|92870.0000|Rickettsia IgM|"
^XMB(3.9,343,2,6507,0)="6507|92871.0000|Rickettsia IgG|"
^XMB(3.9,343,2,6508,0)="6508|92872.0000|Escherichia coli O157H7 IgM|"
^XMB(3.9,343,2,6509,0)="6509|92873.0000|Escherichia coli O157H7 IgG|"
^XMB(3.9,343,2,6510,0)="6510|92874.0000|tTG IgM|"
^XMB(3.9,343,2,6511,0)="6511|92875.0000|DIA MoM adj|"
^XMB(3.9,343,2,6512,0)="6512|92876.0000|DIA MoM unadj|"
^XMB(3.9,343,2,6513,0)="6513|92877.0000|Free Kappa LC|"
^XMB(3.9,343,2,6514,0)="6514|92878.0000|Dust Allerg Mix2 IgE|"
^XMB(3.9,343,2,6515,0)="6515|92879.0000|Region Allerg Mix5 IgE|"
^XMB(3.9,343,2,6516,0)="6516|92880.0000|Region Allerg Mix D IgE Ql|"
^XMB(3.9,343,2,6517,0)="6517|92881.0000|Borrelia burgdor C6 Ab|"
^XMB(3.9,343,2,6518,0)="6518|92882.0000|Brucella IgG Titer|"
^XMB(3.9,343,2,6519,0)="6519|92883.0000|Brucella IgM Titer|"
^XMB(3.9,343,2,6520,0)="6520|92884.0000|Chitotriosidase|"
^XMB(3.9,343,2,6521,0)="6521|92885.0000|B Cell XM|"
^XMB(3.9,343,2,6522,0)="6522|92886.0000|Epid Allerg Mix71 IgG|"
^XMB(3.9,343,2,6523,0)="6523|92887.0000|MuSK Ab|"
^XMB(3.9,343,2,6524,0)="6524|92888.0000|Reduced Haloperidol|"
^XMB(3.9,343,2,6525,0)="6525|92889.0000|PARAFLU1+2+3 Ab|"
^XMB(3.9,343,2,6526,0)="6526|92890.0000|BMZ Ab Titer|"
^XMB(3.9,343,2,6527,0)="6527|92891.0000|Pigeon Drop IgG Ql|"
^XMB(3.9,343,2,6528,0)="6528|92892.0000|Cytokeratin IgG|"
^XMB(3.9,343,2,6529,0)="6529|92893.0000|Ibuprofen Pre Dose|"
^XMB(3.9,343,2,6530,0)="6530|92894.0000|Ibuprofen 30M p|"
^XMB(3.9,343,2,6531,0)="6531|92895.0000|Ibuprofen 1H p|"
^XMB(3.9,343,2,6532,0)="6532|92896.0000|Ibuprofen 1.5H p|"
^XMB(3.9,343,2,6533,0)="6533|92897.0000|Ibuprofen 2h p dose|"
^XMB(3.9,343,2,6534,0)="6534|92898.0000|Ibuprofen 2.5H p|"
^XMB(3.9,343,2,6535,0)="6535|92899.0000|Ibuprofen 3H|"
^XMB(3.9,343,2,6536,0)="6536|92900.0000|BMZ Ab|"
^XMB(3.9,343,2,6537,0)="6537|92901.0000|IC C3d+IigG|"
^XMB(3.9,343,2,6538,0)="6538|92902.0000|Chicken IgE|"
^XMB(3.9,343,2,6539,0)="6539|92903.0000|A-Glucosidase|"
^XMB(3.9,343,2,6540,0)="6540|92904.0000|MIS|"
^XMB(3.9,343,2,6541,0)="6541|92905.0000|B-Glucosidase|"
^XMB(3.9,343,2,6542,0)="6542|92906.0000|Insulin Bovine Ab Titer|"
^XMB(3.9,343,2,6543,0)="6543|92907.0000|Insulin Porcine Ab Titer|"
^XMB(3.9,343,2,6544,0)="6544|92908.0000|IGF BP3 AL|"
^XMB(3.9,343,2,6545,0)="6545|92909.0000|Ketones Titer|"
^XMB(3.9,343,2,6546,0)="6546|92910.0000|Metaneph Free|"
^XMB(3.9,343,2,6547,0)="6547|92911.0000|Retinyl Palmitate|"
^XMB(3.9,343,2,6548,0)="6548|92912.0000|Thyroglob Recovery %|"
^XMB(3.9,343,2,6549,0)="6549|92913.0000|C4b BP Act/Nor|"
^XMB(3.9,343,2,6550,0)="6550|92914.0000|Repaglinide|"
^XMB(3.9,343,2,6551,0)="6551|92915.0000|Acyl Carnitine SC|"
^XMB(3.9,343,2,6552,0)="6552|92916.0000|Narcolepsy Assoc Ag|"
^XMB(3.9,343,2,6553,0)="6553|92917.0000|Cysts|"
^XMB(3.9,343,2,6554,0)="6554|92918.0000|Eggs|"
^XMB(3.9,343,2,6555,0)="6555|92919.0000|Larvae|"
^XMB(3.9,343,2,6556,0)="6556|92920.0000|Schizont|"
^XMB(3.9,343,2,6557,0)="6557|92921.0000|Gamete|"
^XMB(3.9,343,2,6558,0)="6558|92922.0000|Microfilaria|"
^XMB(3.9,343,2,6559,0)="6559|92923.0000|Adult Forms|"
^XMB(3.9,343,2,6560,0)="6560|92925.0000|Rhabditiform Larvae|"
^XMB(3.9,343,2,6561,0)="6561|92927.0000|Filariform Larvae|"
^XMB(3.9,343,2,6562,0)="6562|92929.0000|Proglottid|"
^XMB(3.9,343,2,6563,0)="6563|92930.0000|Parasite Stages|"
^XMB(3.9,343,2,6564,0)="6564|92931.0000|Parasite Stage NOS|"
^XMB(3.9,343,2,6565,0)="6565|92926.0000|Acyclovir Susc|"
^XMB(3.9,343,2,6566,0)="6566|92928.0000|Almecillin MLC|"
^XMB(3.9,343,2,6567,0)="6567|92932.0000|Almecillin MIC|"
^XMB(3.9,343,2,6568,0)="6568|92933.0000|Almecillin KB|"
^XMB(3.9,343,2,6569,0)="6569|92934.0000|Amantadine Susc|"
^XMB(3.9,343,2,6570,0)="6570|92935.0000|Amdinocillin MLC|"
^XMB(3.9,343,2,6571,0)="6571|92936.0000|Amdinocillin MIC|"
^XMB(3.9,343,2,6572,0)="6572|92937.0000|Amdinocillin KB|"
^XMB(3.9,343,2,6573,0)="6573|92938.0000|Amikacin MLC|"
^XMB(3.9,343,2,6574,0)="6574|92939.0000|Amikacin MIC|"
^XMB(3.9,343,2,6575,0)="6575|92940.0000|Amikacin KB|"
^XMB(3.9,343,2,6576,0)="6576|92941.0000|Amoxicillin MLC|"
^XMB(3.9,343,2,6577,0)="6577|92942.0000|Amoxicillin MIC|"
^XMB(3.9,343,2,6578,0)="6578|92943.0000|Amoxicillin KB|"
^XMB(3.9,343,2,6579,0)="6579|92944.0000|Amoxicillin+Clav MLC|"
^XMB(3.9,343,2,6580,0)="6580|92945.0000|Amoxicillin+Clav MIC|"
^XMB(3.9,343,2,6581,0)="6581|92946.0000|Amoxicillin+Clav KB|"
^XMB(3.9,343,2,6582,0)="6582|92947.0000|Amphotericin B MLC|"
^XMB(3.9,343,2,6583,0)="6583|92948.0000|Amphotericin B MIC|"
^XMB(3.9,343,2,6584,0)="6584|92949.0000|Amphotericin B KB|"
^XMB(3.9,343,2,6585,0)="6585|92950.0000|Ampicillin MLC|"
^XMB(3.9,343,2,6586,0)="6586|92951.0000|Ampicillin MIC|"
^XMB(3.9,343,2,6587,0)="6587|92952.0000|Ampicillin KB|"
^XMB(3.9,343,2,6588,0)="6588|92953.0000|Ampicillin+Sulbac MLC|"
^XMB(3.9,343,2,6589,0)="6589|92954.0000|Ampicillin+Sulbac MIC|"
^XMB(3.9,343,2,6590,0)="6590|92955.0000|Ampicillin+Sulbac KB|"
^XMB(3.9,343,2,6591,0)="6591|92956.0000|Azithromycin MLC|"
^XMB(3.9,343,2,6592,0)="6592|92957.0000|Azithromycin MIC|"
^XMB(3.9,343,2,6593,0)="6593|92958.0000|Azithromycin KB|"
^XMB(3.9,343,2,6594,0)="6594|92959.0000|Azlocillin MLC|"
^XMB(3.9,343,2,6595,0)="6595|92960.0000|Azlocillin MIC|"
^XMB(3.9,343,2,6596,0)="6596|92961.0000|Azlocillin KB|"
^XMB(3.9,343,2,6597,0)="6597|92962.0000|Aztreonam MLC|"
^XMB(3.9,343,2,6598,0)="6598|92963.0000|Aztreonam MIC|"
^XMB(3.9,343,2,6599,0)="6599|92964.0000|Aztreonam KB|"
^XMB(3.9,343,2,6600,0)="6600|92965.0000|Bacampicillin MLC|"
^XMB(3.9,343,2,6601,0)="6601|92966.0000|Bacampicillin MIC|"
^XMB(3.9,343,2,6602,0)="6602|92967.0000|Bacampicillin KB|"
^XMB(3.9,343,2,6603,0)="6603|92968.0000|Butirosin MLC|"
^XMB(3.9,343,2,6604,0)="6604|92969.0000|Butirosin MIC|"
^XMB(3.9,343,2,6605,0)="6605|92970.0000|Butirosin KB|"
^XMB(3.9,343,2,6606,0)="6606|92971.0000|Capreomycin MLC|"
^XMB(3.9,343,2,6607,0)="6607|92972.0000|Capreomycin MIC|"
^XMB(3.9,343,2,6608,0)="6608|92973.0000|Capreomycin KB|"
^XMB(3.9,343,2,6609,0)="6609|92974.0000|Carbenicillin MLC|"
^XMB(3.9,343,2,6610,0)="6610|92975.0000|Carbenicillin MIC|"
^XMB(3.9,343,2,6611,0)="6611|92976.0000|Carbenicillin KB|"
^XMB(3.9,343,2,6612,0)="6612|92977.0000|Cefadroxil MLC|"
^XMB(3.9,343,2,6613,0)="6613|92978.0000|Cefadroxil MIC|"
^XMB(3.9,343,2,6614,0)="6614|92979.0000|Cefadroxil KB|"
^XMB(3.9,343,2,6615,0)="6615|92980.0000|Cefamandole MLC|"
^XMB(3.9,343,2,6616,0)="6616|92981.0000|Cefamandole MIC|"
^XMB(3.9,343,2,6617,0)="6617|92982.0000|Cefamandole KB|"
^XMB(3.9,343,2,6618,0)="6618|92983.0000|Cefatrizine MLC|"
^XMB(3.9,343,2,6619,0)="6619|92984.0000|Cefatrizine MIC|"
^XMB(3.9,343,2,6620,0)="6620|92985.0000|Cefatrizine KB|"
^XMB(3.9,343,2,6621,0)="6621|92986.0000|Cefazolin MLC|"
^XMB(3.9,343,2,6622,0)="6622|92987.0000|Cefazolin MIC|"
^XMB(3.9,343,2,6623,0)="6623|92988.0000|Cefazolin KB|"
^XMB(3.9,343,2,6624,0)="6624|92989.0000|Cefixime MLC|"
^XMB(3.9,343,2,6625,0)="6625|92990.0000|Cefixime MIC|"
^XMB(3.9,343,2,6626,0)="6626|92991.0000|Cefixime KB|"
^XMB(3.9,343,2,6627,0)="6627|92992.0000|Cefaclor MLC|"
^XMB(3.9,343,2,6628,0)="6628|92993.0000|Cefaclor MIC|"
^XMB(3.9,343,2,6629,0)="6629|92994.0000|Cefaclor KB|"
^XMB(3.9,343,2,6630,0)="6630|92995.0000|Cefmetazole MLC|"
^XMB(3.9,343,2,6631,0)="6631|92996.0000|Cefmetazole MIC|"
^XMB(3.9,343,2,6632,0)="6632|92997.0000|Cefmetazole KB|"
^XMB(3.9,343,2,6633,0)="6633|92998.0000|Cefodizime MLC|"
^XMB(3.9,343,2,6634,0)="6634|92999.0000|Cefodizime MIC|"
^XMB(3.9,343,2,6635,0)="6635|93000.0000|Cefodizime KB|"
^XMB(3.9,343,2,6636,0)="6636|93001.0000|Cefonocid MLC|"
^XMB(3.9,343,2,6637,0)="6637|93002.0000|Cefonocid MIC|"
^XMB(3.9,343,2,6638,0)="6638|93003.0000|Cefonocid KB|"
^XMB(3.9,343,2,6639,0)="6639|93004.0000|Cefoperazone MLC|"
^XMB(3.9,343,2,6640,0)="6640|93005.0000|Cefoperazone MIC|"
^XMB(3.9,343,2,6641,0)="6641|93006.0000|Cefoperazone KB|"
^XMB(3.9,343,2,6642,0)="6642|93007.0000|Ceforanide MLC|"
^XMB(3.9,343,2,6643,0)="6643|93008.0000|Ceforanide MIC|"
^XMB(3.9,343,2,6644,0)="6644|93009.0000|Ceforanide KB|"
^XMB(3.9,343,2,6645,0)="6645|93010.0000|Cefotaxime MLC|"
^XMB(3.9,343,2,6646,0)="6646|93011.0000|Cefotaxime MIC|"
^XMB(3.9,343,2,6647,0)="6647|93012.0000|Cefotaxime KB|"
^XMB(3.9,343,2,6648,0)="6648|93013.0000|Cefotetan MLC|"
^XMB(3.9,343,2,6649,0)="6649|93014.0000|Cefotetan MIC|"
^XMB(3.9,343,2,6650,0)="6650|93015.0000|Cefotetan KB|"
^XMB(3.9,343,2,6651,0)="6651|93016.0000|Cefoxitin MLC|"
^XMB(3.9,343,2,6652,0)="6652|93017.0000|Cefoxitin MIC|"
^XMB(3.9,343,2,6653,0)="6653|93018.0000|Cefoxitin KB|"
^XMB(3.9,343,2,6654,0)="6654|93019.0000|Cefpodoxime MLC|"
^XMB(3.9,343,2,6655,0)="6655|93020.0000|Cefpodoxime MIC|"
^XMB(3.9,343,2,6656,0)="6656|93021.0000|Cefpodoxime KB|"
^XMB(3.9,343,2,6657,0)="6657|93022.0000|Cefprozil MLC|"
^XMB(3.9,343,2,6658,0)="6658|93023.0000|Cefprozil MIC|"
^XMB(3.9,343,2,6659,0)="6659|93024.0000|Cefprozil KB|"
^XMB(3.9,343,2,6660,0)="6660|93025.0000|Cefsulodin MLC|"
^XMB(3.9,343,2,6661,0)="6661|93026.0000|Cefsulodin MIC|"
^XMB(3.9,343,2,6662,0)="6662|93027.0000|Cefsulodin KB|"
^XMB(3.9,343,2,6663,0)="6663|93028.0000|Ceftazidime MLC|"
^XMB(3.9,343,2,6664,0)="6664|93029.0000|Ceftazidime MIC|"
^XMB(3.9,343,2,6665,0)="6665|93030.0000|Ceftazidime KB|"
^XMB(3.9,343,2,6666,0)="6666|93031.0000|Ceftizoxime MLC|"
^XMB(3.9,343,2,6667,0)="6667|93032.0000|Ceftizoxime MIC|"
^XMB(3.9,343,2,6668,0)="6668|93033.0000|Ceftizoxime KB|"
^XMB(3.9,343,2,6669,0)="6669|93034.0000|Ceftriaxone MLC|"
^XMB(3.9,343,2,6670,0)="6670|93035.0000|Ceftriaxone MIC|"
^XMB(3.9,343,2,6671,0)="6671|93036.0000|Ceftriaxone KB|"
^XMB(3.9,343,2,6672,0)="6672|93037.0000|Cefuroxime Parenter MLC|"
^XMB(3.9,343,2,6673,0)="6673|93038.0000|Cefuroxime Parenter MIC|"
^XMB(3.9,343,2,6674,0)="6674|93039.0000|Cefuroxime Parenter KB|"
^XMB(3.9,343,2,6675,0)="6675|93040.0000|Cephalexin MLC|"
^XMB(3.9,343,2,6676,0)="6676|93041.0000|Cephalexin MIC|"
^XMB(3.9,343,2,6677,0)="6677|93042.0000|Cephalexin KB|"
^XMB(3.9,343,2,6678,0)="6678|93043.0000|Cephaloglycin MLC|"
^XMB(3.9,343,2,6679,0)="6679|93044.0000|Cephaloglycin MIC|"
^XMB(3.9,343,2,6680,0)="6680|93045.0000|Cephaloglycin KB|"
^XMB(3.9,343,2,6681,0)="6681|93046.0000|Cephaloridine MLC|"
^XMB(3.9,343,2,6682,0)="6682|93047.0000|Cephaloridine MIC|"
^XMB(3.9,343,2,6683,0)="6683|93048.0000|Cephaloridine KB|"
^XMB(3.9,343,2,6684,0)="6684|93049.0000|Cephalothin MLC|"
^XMB(3.9,343,2,6685,0)="6685|93050.0000|Cephalothin MIC|"
^XMB(3.9,343,2,6686,0)="6686|93051.0000|Cephalothin KB|"
^XMB(3.9,343,2,6687,0)="6687|93052.0000|Cephapirin MLC|"
^XMB(3.9,343,2,6688,0)="6688|93053.0000|Cephapirin MIC|"
^XMB(3.9,343,2,6689,0)="6689|93054.0000|Cephapirin KB|"
^XMB(3.9,343,2,6690,0)="6690|93055.0000|Cephradine MLC|"
^XMB(3.9,343,2,6691,0)="6691|93056.0000|Cephradine MIC|"
^XMB(3.9,343,2,6692,0)="6692|93057.0000|Cephradine KB|"
^XMB(3.9,343,2,6693,0)="6693|93058.0000|Chloramphen MLC|"
^XMB(3.9,343,2,6694,0)="6694|93059.0000|Chloramphen MIC|"
^XMB(3.9,343,2,6695,0)="6695|93060.0000|Chloramphen KB|"
^XMB(3.9,343,2,6696,0)="6696|93061.0000|Chlortetracycline MLC|"
^XMB(3.9,343,2,6697,0)="6697|93062.0000|Chlortetracycline MIC|"
^XMB(3.9,343,2,6698,0)="6698|93063.0000|Chlortetracycline KB|"
^XMB(3.9,343,2,6699,0)="6699|93064.0000|Cinoxacin MLC|"
^XMB(3.9,343,2,6700,0)="6700|93065.0000|Cinoxacin MIC|"
^XMB(3.9,343,2,6701,0)="6701|93066.0000|Cinoxacin KB|"
^XMB(3.9,343,2,6702,0)="6702|93067.0000|Ciprofloxacin MLC|"
^XMB(3.9,343,2,6703,0)="6703|93068.0000|Ciprofloxacin MIC|"
^XMB(3.9,343,2,6704,0)="6704|93069.0000|Ciprofloxacin KB|"
^XMB(3.9,343,2,6705,0)="6705|93070.0000|Clarithro MLC|"
^XMB(3.9,343,2,6706,0)="6706|93071.0000|Clarithro MIC|"
^XMB(3.9,343,2,6707,0)="6707|93072.0000|Clarithro KB|"
^XMB(3.9,343,2,6708,0)="6708|93073.0000|Clindamycin MLC|"
^XMB(3.9,343,2,6709,0)="6709|93074.0000|Clindamycin MIC|"
^XMB(3.9,343,2,6710,0)="6710|93075.0000|Clindamycin KB|"
^XMB(3.9,343,2,6711,0)="6711|93076.0000|Cloxacillin MLC|"
^XMB(3.9,343,2,6712,0)="6712|93077.0000|Cloxacillin MIC|"
^XMB(3.9,343,2,6713,0)="6713|93078.0000|Cloxacillin KB|"
^XMB(3.9,343,2,6714,0)="6714|93079.0000|Colistimethate MLC|"
^XMB(3.9,343,2,6715,0)="6715|93080.0000|Colistimethate MIC|"
^XMB(3.9,343,2,6716,0)="6716|93081.0000|Colistimethate KB|"
^XMB(3.9,343,2,6717,0)="6717|93082.0000|Colistin MLC|"
^XMB(3.9,343,2,6718,0)="6718|93083.0000|Colistin MIC|"
^XMB(3.9,343,2,6719,0)="6719|93084.0000|Colistin KB|"
^XMB(3.9,343,2,6720,0)="6720|93085.0000|Cyclacillin MLC|"
^XMB(3.9,343,2,6721,0)="6721|93086.0000|Cyclacillin MIC|"
^XMB(3.9,343,2,6722,0)="6722|93087.0000|Cyclacillin KB|"
^XMB(3.9,343,2,6723,0)="6723|93088.0000|Cycloserine MLC|"
^XMB(3.9,343,2,6724,0)="6724|93089.0000|Cycloserine MIC|"
^XMB(3.9,343,2,6725,0)="6725|93090.0000|Cycloserine KB|"
^XMB(3.9,343,2,6726,0)="6726|93091.0000|Demeclocycline MLC|"
^XMB(3.9,343,2,6727,0)="6727|93092.0000|Demeclocycline MIC|"
^XMB(3.9,343,2,6728,0)="6728|93093.0000|Demeclocycline KB|"
^XMB(3.9,343,2,6729,0)="6729|93094.0000|Dicloxacillin MLC|"
^XMB(3.9,343,2,6730,0)="6730|93095.0000|Dicloxacillin MIC|"
^XMB(3.9,343,2,6731,0)="6731|93096.0000|Dicloxacillin KB|"
^XMB(3.9,343,2,6732,0)="6732|93097.0000|Doxycycline MLC|"
^XMB(3.9,343,2,6733,0)="6733|93098.0000|Doxycycline MIC|"
^XMB(3.9,343,2,6734,0)="6734|93099.0000|Doxycycline KB|"
^XMB(3.9,343,2,6735,0)="6735|93100.0000|Enoxacin MLC|"
^XMB(3.9,343,2,6736,0)="6736|93101.0000|Enoxacin MIC|"
^XMB(3.9,343,2,6737,0)="6737|93102.0000|Enoxacin KB|"
^XMB(3.9,343,2,6738,0)="6738|93103.0000|Erythromycin MLC|"
^XMB(3.9,343,2,6739,0)="6739|93104.0000|Erythromycin MIC|"
^XMB(3.9,343,2,6740,0)="6740|93105.0000|Erythromycin KB|"
^XMB(3.9,343,2,6741,0)="6741|93106.0000|Erythro+Sulf MLC|"
^XMB(3.9,343,2,6742,0)="6742|93107.0000|Erythro+Sulf MIC|"
^XMB(3.9,343,2,6743,0)="6743|93108.0000|Erythro+Sulf KB|"
^XMB(3.9,343,2,6744,0)="6744|93109.0000|Ethambutol MLC|"
^XMB(3.9,343,2,6745,0)="6745|93110.0000|Ethambutol MIC|"
^XMB(3.9,343,2,6746,0)="6746|93111.0000|Ethambutol KB|"
^XMB(3.9,343,2,6747,0)="6747|93112.0000|Floxacillin MLC|"
^XMB(3.9,343,2,6748,0)="6748|93113.0000|Floxacillin MIC|"
^XMB(3.9,343,2,6749,0)="6749|93114.0000|Floxacillin KB|"
^XMB(3.9,343,2,6750,0)="6750|93115.0000|Fluconazole MLC|"
^XMB(3.9,343,2,6751,0)="6751|93116.0000|Fluconazole KB|"
^XMB(3.9,343,2,6752,0)="6752|93117.0000|5FC MLC|"
^XMB(3.9,343,2,6753,0)="6753|93118.0000|5FC MIC|"
^XMB(3.9,343,2,6754,0)="6754|93119.0000|5FC KB|"
^XMB(3.9,343,2,6755,0)="6755|93120.0000|Foscarnet Susc|"
^XMB(3.9,343,2,6756,0)="6756|93121.0000|Framycetin MLC|"
^XMB(3.9,343,2,6757,0)="6757|93122.0000|Framycetin MIC|"
^XMB(3.9,343,2,6758,0)="6758|93123.0000|Framycetin KB|"
^XMB(3.9,343,2,6759,0)="6759|93124.0000|Fusidate MLC|"
^XMB(3.9,343,2,6760,0)="6760|93125.0000|Fusidate MIC|"
^XMB(3.9,343,2,6761,0)="6761|93126.0000|Fusidate KB|"
^XMB(3.9,343,2,6762,0)="6762|93127.0000|Ganciclovir Susc|"
^XMB(3.9,343,2,6763,0)="6763|93128.0000|Gentamicin MLC|"
^XMB(3.9,343,2,6764,0)="6764|93129.0000|Gentamicin MIC|"
^XMB(3.9,343,2,6765,0)="6765|93130.0000|Gentamicin KB|"
^XMB(3.9,343,2,6766,0)="6766|93131.0000|Gramicidin D MLC|"
^XMB(3.9,343,2,6767,0)="6767|93132.0000|Gramicidin D MIC|"
^XMB(3.9,343,2,6768,0)="6768|93133.0000|Gramicidin D KB|"
^XMB(3.9,343,2,6769,0)="6769|93134.0000|Hetacillin MLC|"
^XMB(3.9,343,2,6770,0)="6770|93135.0000|Hetacillin MIC|"
^XMB(3.9,343,2,6771,0)="6771|93136.0000|Hetacillin KB|"
^XMB(3.9,343,2,6772,0)="6772|93137.0000|Imipenem MLC|"
^XMB(3.9,343,2,6773,0)="6773|93138.0000|Imipenem MIC|"
^XMB(3.9,343,2,6774,0)="6774|93139.0000|Imipenem KB|"
^XMB(3.9,343,2,6775,0)="6775|93140.0000|Isoniazid MLC|"
^XMB(3.9,343,2,6776,0)="6776|93141.0000|Isoniazid MIC|"
^XMB(3.9,343,2,6777,0)="6777|93142.0000|Isoniazid KB|"
^XMB(3.9,343,2,6778,0)="6778|93143.0000|Kanamycin MLC|"
^XMB(3.9,343,2,6779,0)="6779|93144.0000|Kanamycin MIC|"
^XMB(3.9,343,2,6780,0)="6780|93145.0000|Kanamycin KB|"
^XMB(3.9,343,2,6781,0)="6781|93146.0000|Ketoconazole MLC|"
^XMB(3.9,343,2,6782,0)="6782|93147.0000|Ketoconazole MIC|"
^XMB(3.9,343,2,6783,0)="6783|93148.0000|Ketoconazole KB|"
^XMB(3.9,343,2,6784,0)="6784|93149.0000|Lincomycin MLC|"
^XMB(3.9,343,2,6785,0)="6785|93150.0000|Lincomycin MIC|"
^XMB(3.9,343,2,6786,0)="6786|93151.0000|Lincomycin KB|"
^XMB(3.9,343,2,6787,0)="6787|93152.0000|Lomefloxacin MLC|"
^XMB(3.9,343,2,6788,0)="6788|93153.0000|Lomefloxacin MIC|"
^XMB(3.9,343,2,6789,0)="6789|93154.0000|Lomefloxacin KB|"
^XMB(3.9,343,2,6790,0)="6790|93155.0000|Loracarbef MLC|"
^XMB(3.9,343,2,6791,0)="6791|93156.0000|Loracarbef MIC|"
^XMB(3.9,343,2,6792,0)="6792|93157.0000|Loracarbef KB|"
^XMB(3.9,343,2,6793,0)="6793|93158.0000|Lymecycline MLC|"
^XMB(3.9,343,2,6794,0)="6794|93159.0000|Lymecycline MIC|"
^XMB(3.9,343,2,6795,0)="6795|93160.0000|Lymecycline KB|"
^XMB(3.9,343,2,6796,0)="6796|93161.0000|Meclocycline MLC|"
^XMB(3.9,343,2,6797,0)="6797|93162.0000|Meclocycline MIC|"
^XMB(3.9,343,2,6798,0)="6798|93163.0000|Meclocycline KB|"
^XMB(3.9,343,2,6799,0)="6799|93164.0000|Methacycline MLC|"
^XMB(3.9,343,2,6800,0)="6800|93165.0000|Methacycline MIC|"
^XMB(3.9,343,2,6801,0)="6801|93166.0000|Methacycline KB|"
^XMB(3.9,343,2,6802,0)="6802|93167.0000|Methicillin MLC|"
^XMB(3.9,343,2,6803,0)="6803|93168.0000|Methicillin MIC|"
^XMB(3.9,343,2,6804,0)="6804|93169.0000|Methicillin KB|"
^XMB(3.9,343,2,6805,0)="6805|93170.0000|Metronidazole MLC|"
^XMB(3.9,343,2,6806,0)="6806|93171.0000|Metronidazole MIC|"
^XMB(3.9,343,2,6807,0)="6807|93172.0000|Metronidazole KB|"
^XMB(3.9,343,2,6808,0)="6808|93173.0000|Mezlocillin MLC|"
^XMB(3.9,343,2,6809,0)="6809|93174.0000|Mezlocillin MIC|"
^XMB(3.9,343,2,6810,0)="6810|93175.0000|Mezlocillin KB|"
^XMB(3.9,343,2,6811,0)="6811|93176.0000|Minocycline MLC|"
^XMB(3.9,343,2,6812,0)="6812|93177.0000|Minocycline MIC|"
^XMB(3.9,343,2,6813,0)="6813|93178.0000|Minocycline KB|"
^XMB(3.9,343,2,6814,0)="6814|93179.0000|Miocamycin MLC|"
^XMB(3.9,343,2,6815,0)="6815|93180.0000|Miocamycin MIC|"
^XMB(3.9,343,2,6816,0)="6816|93181.0000|Miocamycin KB|"
^XMB(3.9,343,2,6817,0)="6817|93182.0000|Moxalactam MLC|"
^XMB(3.9,343,2,6818,0)="6818|93183.0000|Moxalactam MIC|"
^XMB(3.9,343,2,6819,0)="6819|93184.0000|Moxalactam KB|"
^XMB(3.9,343,2,6820,0)="6820|93185.0000|Nafcillin MLC|"
^XMB(3.9,343,2,6821,0)="6821|93186.0000|Nafcillin MIC|"
^XMB(3.9,343,2,6822,0)="6822|93187.0000|Nafcillin KB|"
^XMB(3.9,343,2,6823,0)="6823|93188.0000|Nalidixate MLC|"
^XMB(3.9,343,2,6824,0)="6824|93189.0000|Nalidixate MIC|"
^XMB(3.9,343,2,6825,0)="6825|93190.0000|Nalidixate KB|"
^XMB(3.9,343,2,6826,0)="6826|93191.0000|Neomycin MLC|"
^XMB(3.9,343,2,6827,0)="6827|93192.0000|Neomycin MIC|"
^XMB(3.9,343,2,6828,0)="6828|93193.0000|Neomycin KB|"
^XMB(3.9,343,2,6829,0)="6829|93194.0000|Netilmicin MLC|"
^XMB(3.9,343,2,6830,0)="6830|93195.0000|Netilmicin MIC|"
^XMB(3.9,343,2,6831,0)="6831|93196.0000|Netilmicin KB|"
^XMB(3.9,343,2,6832,0)="6832|93197.0000|Nitrofurantoin MLC|"
^XMB(3.9,343,2,6833,0)="6833|93198.0000|Nitrofurantoin MIC|"
^XMB(3.9,343,2,6834,0)="6834|93199.0000|Nitrofurantoin KB|"
^XMB(3.9,343,2,6835,0)="6835|93200.0000|Norfloxacin MLC|"
^XMB(3.9,343,2,6836,0)="6836|93201.0000|Norfloxacin MIC|"
^XMB(3.9,343,2,6837,0)="6837|93202.0000|Norfloxacin KB|"
^XMB(3.9,343,2,6838,0)="6838|93203.0000|Novobiocin MLC|"
^XMB(3.9,343,2,6839,0)="6839|93204.0000|Novobiocin MIC|"
^XMB(3.9,343,2,6840,0)="6840|93205.0000|Novobiocin KB|"
^XMB(3.9,343,2,6841,0)="6841|93206.0000|Ofloxacin MLC|"
^XMB(3.9,343,2,6842,0)="6842|93207.0000|Ofloxacin MIC|"
^XMB(3.9,343,2,6843,0)="6843|93208.0000|Ofloxacin KB|"
^XMB(3.9,343,2,6844,0)="6844|93209.0000|Oleandomycin MLC|"
^XMB(3.9,343,2,6845,0)="6845|93210.0000|Oleandomycin MIC|"
^XMB(3.9,343,2,6846,0)="6846|93211.0000|Oleandomycin KB|"
^XMB(3.9,343,2,6847,0)="6847|93212.0000|Oxacillin MLC|"
^XMB(3.9,343,2,6848,0)="6848|93213.0000|Oxacillin MIC|"
^XMB(3.9,343,2,6849,0)="6849|93214.0000|Oxacillin KB|"
^XMB(3.9,343,2,6850,0)="6850|93215.0000|Oxytetracycline MLC|"
^XMB(3.9,343,2,6851,0)="6851|93216.0000|Oxytetracycline MIC|"
^XMB(3.9,343,2,6852,0)="6852|93217.0000|Oxytetracycline KB|"
^XMB(3.9,343,2,6853,0)="6853|93218.0000|Pefloxacin MIC|"
^XMB(3.9,343,2,6854,0)="6854|93219.0000|Penicillin G MLC|"
^XMB(3.9,343,2,6855,0)="6855|93220.0000|Penicillin G MIC|"
^XMB(3.9,343,2,6856,0)="6856|93221.0000|Penicillin G KB|"
^XMB(3.9,343,2,6857,0)="6857|93222.0000|Penicillin V MLC|"
^XMB(3.9,343,2,6858,0)="6858|93223.0000|Penicillin V MIC|"
^XMB(3.9,343,2,6859,0)="6859|93224.0000|Penicillin V KB|"
^XMB(3.9,343,2,6860,0)="6860|93225.0000|Phenethicillin MLC|"
^XMB(3.9,343,2,6861,0)="6861|93226.0000|Phenethicillin MIC|"
^XMB(3.9,343,2,6862,0)="6862|93227.0000|Phenethicillin KB|"
^XMB(3.9,343,2,6863,0)="6863|93228.0000|Pipemidate MLC|"
^XMB(3.9,343,2,6864,0)="6864|93229.0000|Pipemidate MIC|"
^XMB(3.9,343,2,6865,0)="6865|93230.0000|Pipemidate KB|"
^XMB(3.9,343,2,6866,0)="6866|93231.0000|Piperacillin MLC|"
^XMB(3.9,343,2,6867,0)="6867|93232.0000|Piperacillin MIC|"
^XMB(3.9,343,2,6868,0)="6868|93233.0000|Piperacillin KB|"
^XMB(3.9,343,2,6869,0)="6869|93234.0000|Piperacillin+Tazobac MLC|"
^XMB(3.9,343,2,6870,0)="6870|93235.0000|Piperacillin+Tazobac MIC|"
^XMB(3.9,343,2,6871,0)="6871|93236.0000|Piperacillin+Tazobac KB|"
^XMB(3.9,343,2,6872,0)="6872|93237.0000|Pivampicillin MLC|"
^XMB(3.9,343,2,6873,0)="6873|93238.0000|Pivampicillin MIC|"
^XMB(3.9,343,2,6874,0)="6874|93239.0000|Pivampicillin KB|"
^XMB(3.9,343,2,6875,0)="6875|93240.0000|Polymyxin B MLC|"
^XMB(3.9,343,2,6876,0)="6876|93241.0000|Polymyxin B MIC|"
^XMB(3.9,343,2,6877,0)="6877|93242.0000|Polymyxin B KB|"
^XMB(3.9,343,2,6878,0)="6878|93243.0000|PZA MLC|"
^XMB(3.9,343,2,6879,0)="6879|93244.0000|PZA MIC|"
^XMB(3.9,343,2,6880,0)="6880|93245.0000|PZA KB|"
^XMB(3.9,343,2,6881,0)="6881|93246.0000|Rifampin MLC|"
^XMB(3.9,343,2,6882,0)="6882|93247.0000|Rifampin MIC|"
^XMB(3.9,343,2,6883,0)="6883|93248.0000|Rifampin KB|"
^XMB(3.9,343,2,6884,0)="6884|93249.0000|Ristocetin MLC|"
^XMB(3.9,343,2,6885,0)="6885|93250.0000|Ristocetin MIC|"
^XMB(3.9,343,2,6886,0)="6886|93251.0000|Ristocetin KB|"
^XMB(3.9,343,2,6887,0)="6887|93252.0000|Rolitetracycline MLC|"
^XMB(3.9,343,2,6888,0)="6888|93253.0000|Rolitetracycline MIC|"
^XMB(3.9,343,2,6889,0)="6889|93254.0000|Rolitetracycline KB|"
^XMB(3.9,343,2,6890,0)="6890|93255.0000|Rosoxacin MLC|"
^XMB(3.9,343,2,6891,0)="6891|93256.0000|Rosoxacin MIC|"
^XMB(3.9,343,2,6892,0)="6892|93257.0000|Rosoxacin KB|"
^XMB(3.9,343,2,6893,0)="6893|93258.0000|Roxithromycin MLC|"
^XMB(3.9,343,2,6894,0)="6894|93259.0000|Roxithromycin MIC|"
^XMB(3.9,343,2,6895,0)="6895|93260.0000|Roxithromycin KB|"
^XMB(3.9,343,2,6896,0)="6896|93261.0000|Sisomicin MLC|"
^XMB(3.9,343,2,6897,0)="6897|93262.0000|Sisomicin MIC|"
^XMB(3.9,343,2,6898,0)="6898|93263.0000|Sisomicin KB|"
^XMB(3.9,343,2,6899,0)="6899|93264.0000|Spectinomycin MLC|"
^XMB(3.9,343,2,6900,0)="6900|93265.0000|Spectinomycin MIC|"
^XMB(3.9,343,2,6901,0)="6901|93266.0000|Spectinomycin KB|"
^XMB(3.9,343,2,6902,0)="6902|93267.0000|Spiramycin MLC|"
^XMB(3.9,343,2,6903,0)="6903|93268.0000|Spiramycin MIC|"
^XMB(3.9,343,2,6904,0)="6904|93269.0000|Spiramycin KB|"
^XMB(3.9,343,2,6905,0)="6905|93270.0000|Streptomycin MLC|"
^XMB(3.9,343,2,6906,0)="6906|93271.0000|Streptomycin MIC|"
^XMB(3.9,343,2,6907,0)="6907|93272.0000|Streptomycin KB|"
^XMB(3.9,343,2,6908,0)="6908|93273.0000|Sulfadiazine MLC|"
^XMB(3.9,343,2,6909,0)="6909|93274.0000|Sulfadiazine MIC|"
^XMB(3.9,343,2,6910,0)="6910|93275.0000|Sulfadiazine KB|"
^XMB(3.9,343,2,6911,0)="6911|93276.0000|Sulfamethoxazole MLC|"
^XMB(3.9,343,2,6912,0)="6912|93277.0000|Sulfamethoxazole MIC|"
^XMB(3.9,343,2,6913,0)="6913|93278.0000|Sulfamethoxazole KB|"
^XMB(3.9,343,2,6914,0)="6914|93279.0000|Sulfisoxaz MLC|"
^XMB(3.9,343,2,6915,0)="6915|93280.0000|Sulfisoxaz MIC|"
^XMB(3.9,343,2,6916,0)="6916|93281.0000|Sulfisoxaz KB|"
^XMB(3.9,343,2,6917,0)="6917|93282.0000|Sulfonamide MLC|"
^XMB(3.9,343,2,6918,0)="6918|93283.0000|Sulfonamide MIC|"
^XMB(3.9,343,2,6919,0)="6919|93284.0000|Sulfonamide KB|"
^XMB(3.9,343,2,6920,0)="6920|93285.0000|Sulfonamide SBT|"
^XMB(3.9,343,2,6921,0)="6921|93286.0000|Talampicillin MLC|"
^XMB(3.9,343,2,6922,0)="6922|93287.0000|Talampicillin MIC|"
^XMB(3.9,343,2,6923,0)="6923|93288.0000|Talampicillin KB|"
^XMB(3.9,343,2,6924,0)="6924|93289.0000|Teicoplanin MLC|"
^XMB(3.9,343,2,6925,0)="6925|93290.0000|Teicoplanin MIC|"
^XMB(3.9,343,2,6926,0)="6926|93291.0000|Teicoplanin KB|"
^XMB(3.9,343,2,6927,0)="6927|93292.0000|Temafloxacin MLC|"
^XMB(3.9,343,2,6928,0)="6928|93293.0000|Temafloxacin MIC|"
^XMB(3.9,343,2,6929,0)="6929|93294.0000|Temafloxacin KB|"
^XMB(3.9,343,2,6930,0)="6930|93295.0000|Temocillin MLC|"
^XMB(3.9,343,2,6931,0)="6931|93296.0000|Temocillin MIC|"
^XMB(3.9,343,2,6932,0)="6932|93297.0000|Temocillin KB|"
^XMB(3.9,343,2,6933,0)="6933|93298.0000|Tetracycline MLC|"
^XMB(3.9,343,2,6934,0)="6934|93299.0000|Tetracycline MIC|"
^XMB(3.9,343,2,6935,0)="6935|93300.0000|Tetracycline KB|"
^XMB(3.9,343,2,6936,0)="6936|93301.0000|Ticarcillin MLC|"
^XMB(3.9,343,2,6937,0)="6937|93302.0000|Ticarcillin MIC|"
^XMB(3.9,343,2,6938,0)="6938|93303.0000|Ticarcillin KB|"
^XMB(3.9,343,2,6939,0)="6939|93304.0000|Ticarcillin+Clav MLC|"
^XMB(3.9,343,2,6940,0)="6940|93305.0000|Ticarcillin+Clav MIC|"
^XMB(3.9,343,2,6941,0)="6941|93306.0000|Ticarcillin+Clav KB|"
^XMB(3.9,343,2,6942,0)="6942|93307.0000|Tobramycin MLC|"
^XMB(3.9,343,2,6943,0)="6943|93308.0000|Tobramycin MIC|"
^XMB(3.9,343,2,6944,0)="6944|93309.0000|Tobramycin KB|"
^XMB(3.9,343,2,6945,0)="6945|93310.0000|Trimethoprim MLC|"
^XMB(3.9,343,2,6946,0)="6946|93311.0000|Trimethoprim MIC|"
^XMB(3.9,343,2,6947,0)="6947|93312.0000|Trimethoprim KB|"
^XMB(3.9,343,2,6948,0)="6948|93313.0000|TMP SMX MLC|"
^XMB(3.9,343,2,6949,0)="6949|93314.0000|TMP SMX MIC|"
^XMB(3.9,343,2,6950,0)="6950|93315.0000|TMP SMX KB|"
^XMB(3.9,343,2,6951,0)="6951|93316.0000|Troleandomycin MLC|"
^XMB(3.9,343,2,6952,0)="6952|93317.0000|Troleandomycin MIC|"
^XMB(3.9,343,2,6953,0)="6953|93318.0000|Troleandomycin KB|"
^XMB(3.9,343,2,6954,0)="6954|93319.0000|Vancomycin MLC|"
^XMB(3.9,343,2,6955,0)="6955|93320.0000|Vancomycin MIC|"
^XMB(3.9,343,2,6956,0)="6956|93321.0000|Vancomycin KB|"
^XMB(3.9,343,2,6957,0)="6957|93322.0000|Viomycin MLC|"
^XMB(3.9,343,2,6958,0)="6958|93323.0000|Viomycin MIC|"
^XMB(3.9,343,2,6959,0)="6959|93324.0000|Viomycin KB|"
^XMB(3.9,343,2,6960,0)="6960|93325.0000|Zidovudine Susc|"
^XMB(3.9,343,2,6961,0)="6961|93326.0000|Cefepime MLC|"
^XMB(3.9,343,2,6962,0)="6962|93327.0000|Cefepime MIC|"
^XMB(3.9,343,2,6963,0)="6963|93328.0000|Meropenem MLC|"
^XMB(3.9,343,2,6964,0)="6964|93329.0000|Meropenem MIC|"
^XMB(3.9,343,2,6965,0)="6965|93330.0000|Meropenem KB|"
^XMB(3.9,343,2,6966,0)="6966|93331.0000|Bacitracin MIC|"
^XMB(3.9,343,2,6967,0)="6967|93332.0000|Penicillin MIC|"
^XMB(3.9,343,2,6968,0)="6968|93333.0000|Streptomycin High Pot MIC|"
^XMB(3.9,343,2,6969,0)="6969|93334.0000|Amikacin E-test|"
^XMB(3.9,343,2,6970,0)="6970|93335.0000|Amoxicillin E-test|"
^XMB(3.9,343,2,6971,0)="6971|93336.0000|Amoxicillin+Clav E-test|"
^XMB(3.9,343,2,6972,0)="6972|93337.0000|Amphotericin B E-test|"
^XMB(3.9,343,2,6973,0)="6973|93338.0000|Ampicillin E-test|"
^XMB(3.9,343,2,6974,0)="6974|93339.0000|Ampicillin+Sulbac E-test|"
^XMB(3.9,343,2,6975,0)="6975|93340.0000|Azithromycin E-test|"
^XMB(3.9,343,2,6976,0)="6976|93341.0000|Aztreonam E-test|"
^XMB(3.9,343,2,6977,0)="6977|93342.0000|Bacitracin E-test|"
^XMB(3.9,343,2,6978,0)="6978|93343.0000|B-Lactamase Extended Susc|"
^XMB(3.9,343,2,6979,0)="6979|93344.0000|B-Lactamase Usual Susc|"
^XMB(3.9,343,2,6980,0)="6980|93345.0000|Cefaclor E-test|"
^XMB(3.9,343,2,6981,0)="6981|93346.0000|Cefepime E-test|"
^XMB(3.9,343,2,6982,0)="6982|93347.0000|Cefodizime E-test|"
^XMB(3.9,343,2,6983,0)="6983|93348.0000|Cefotaxime E-test|"
^XMB(3.9,343,2,6984,0)="6984|93349.0000|Cefotetan E-test|"
^XMB(3.9,343,2,6985,0)="6985|93350.0000|Cefoxitin E-test|"
^XMB(3.9,343,2,6986,0)="6986|93351.0000|Cefpirome E-test|"
^XMB(3.9,343,2,6987,0)="6987|93352.0000|Cefpodoxime E-test|"
^XMB(3.9,343,2,6988,0)="6988|93353.0000|Cefprozil E-test|"
^XMB(3.9,343,2,6989,0)="6989|93354.0000|Ceftazidime E-test|"
^XMB(3.9,343,2,6990,0)="6990|93355.0000|Ceftibuten E-test|"
^XMB(3.9,343,2,6991,0)="6991|93356.0000|Ceftizoxime E-test|"
^XMB(3.9,343,2,6992,0)="6992|93357.0000|Ceftriaxone E-test|"
^XMB(3.9,343,2,6993,0)="6993|93358.0000|Cefuroxime Parenter E-test|"
^XMB(3.9,343,2,6994,0)="6994|93359.0000|Cephalothin E-test|"
^XMB(3.9,343,2,6995,0)="6995|93360.0000|Chloramphen E-test|"
^XMB(3.9,343,2,6996,0)="6996|93361.0000|Ciprofloxacin E-test|"
^XMB(3.9,343,2,6997,0)="6997|93362.0000|Clarithro E-test|"
^XMB(3.9,343,2,6998,0)="6998|93363.0000|Clinafloxacin E-test|"
^XMB(3.9,343,2,6999,0)="6999|93364.0000|Clindamycin E-test|"
^XMB(3.9,343,2,7000,0)="7000|93365.0000|Demeclocycline E-test|"
^XMB(3.9,343,2,7001,0)="7001|93366.0000|Dirithromycin E-test|"
^XMB(3.9,343,2,7002,0)="7002|93367.0000|Doxycycline E-test|"
^XMB(3.9,343,2,7003,0)="7003|93368.0000|Erythromycin E-test|"
^XMB(3.9,343,2,7004,0)="7004|93369.0000|Ethambutol E-test|"
^XMB(3.9,343,2,7005,0)="7005|93370.0000|Ethionamide E-test|"
^XMB(3.9,343,2,7006,0)="7006|93371.0000|Fleroxacin E-test|"
^XMB(3.9,343,2,7007,0)="7007|93372.0000|Fluconazole E-test|"
^XMB(3.9,343,2,7008,0)="7008|93373.0000|5FC E-test|"
^XMB(3.9,343,2,7009,0)="7009|93374.0000|Fusidate E-test|"
^XMB(3.9,343,2,7010,0)="7010|93375.0000|Gentamicin E-test|"
^XMB(3.9,343,2,7011,0)="7011|93376.0000|Gentamicin Synergy KB|"
^XMB(3.9,343,2,7012,0)="7012|93377.0000|Gentamicin Synergy MIC|"
^XMB(3.9,343,2,7013,0)="7013|93378.0000|Imipenem E-test|"
^XMB(3.9,343,2,7014,0)="7014|93379.0000|Isoniazid E-test|"
^XMB(3.9,343,2,7015,0)="7015|93380.0000|Itraconaz E-test|"
^XMB(3.9,343,2,7016,0)="7016|93381.0000|Kanamycin E-test|"
^XMB(3.9,343,2,7017,0)="7017|93382.0000|Kanamycin High Pot KB|"
^XMB(3.9,343,2,7018,0)="7018|93383.0000|Kanamycin High Pot MIC|"
^XMB(3.9,343,2,7019,0)="7019|93384.0000|Ketoconazole E-test|"
^XMB(3.9,343,2,7020,0)="7020|93385.0000|L-Floxacin E-test|"
^XMB(3.9,343,2,7021,0)="7021|93386.0000|Loracarbef E-test|"
^XMB(3.9,343,2,7022,0)="7022|93387.0000|Amdinocillin E-test|"
^XMB(3.9,343,2,7023,0)="7023|93388.0000|Meropenem E-test|"
^XMB(3.9,343,2,7024,0)="7024|93389.0000|Methicillin E-test|"
^XMB(3.9,343,2,7025,0)="7025|93390.0000|Metronidazole E-test|"
^XMB(3.9,343,2,7026,0)="7026|93391.0000|Minocycline E-test|"
^XMB(3.9,343,2,7027,0)="7027|93392.0000|Mupirocin E-test|"
^XMB(3.9,343,2,7028,0)="7028|93393.0000|Nalidixate E-test|"
^XMB(3.9,343,2,7029,0)="7029|93394.0000|Netilmicin E-test|"
^XMB(3.9,343,2,7030,0)="7030|93395.0000|Nitrofurantoin E-test|"
^XMB(3.9,343,2,7031,0)="7031|93396.0000|Norfloxacin E-test|"
^XMB(3.9,343,2,7032,0)="7032|93397.0000|Ofloxacin E-test|"
^XMB(3.9,343,2,7033,0)="7033|93398.0000|Oxacillin E-test|"
^XMB(3.9,343,2,7034,0)="7034|93399.0000|Pefloxacin E-test|"
^XMB(3.9,343,2,7035,0)="7035|93400.0000|Penicillin G E-test|"
^XMB(3.9,343,2,7036,0)="7036|93401.0000|Penicillin V E-test|"
^XMB(3.9,343,2,7037,0)="7037|93402.0000|Piperacillin E-test|"
^XMB(3.9,343,2,7038,0)="7038|93403.0000|Piperacillin+Tazobac E-test|"
^XMB(3.9,343,2,7039,0)="7039|93404.0000|Rifampin E-test|"
^XMB(3.9,343,2,7040,0)="7040|93405.0000|Roxithromycin E-test|"
^XMB(3.9,343,2,7041,0)="7041|93406.0000|Sparfloxacin E-test|"
^XMB(3.9,343,2,7042,0)="7042|93407.0000|Streptomycin E-test|"
^XMB(3.9,343,2,7043,0)="7043|93408.0000|Streptomycin High Pot KB|"
^XMB(3.9,343,2,7044,0)="7044|93409.0000|Sulfadiazine E-test|"
^XMB(3.9,343,2,7045,0)="7045|93410.0000|Teicoplanin E-test|"
^XMB(3.9,343,2,7046,0)="7046|93411.0000|Tetracycline E-test|"
^XMB(3.9,343,2,7047,0)="7047|93412.0000|Ticarcillin E-test|"
^XMB(3.9,343,2,7048,0)="7048|93413.0000|Ticarcillin+Clav E-test|"
^XMB(3.9,343,2,7049,0)="7049|93414.0000|Tobramycin E-test|"
^XMB(3.9,343,2,7050,0)="7050|93415.0000|Trimethoprim E-test|"
^XMB(3.9,343,2,7051,0)="7051|93416.0000|TMP SMX E-test|"
^XMB(3.9,343,2,7052,0)="7052|93417.0000|Trovafloxacin E-test|"
^XMB(3.9,343,2,7053,0)="7053|93418.0000|Vancomycin E-test|"
^XMB(3.9,343,2,7054,0)="7054|93419.0000|Cefepime KB|"
^XMB(3.9,343,2,7055,0)="7055|93420.0000|Cefpirome MLC|"
^XMB(3.9,343,2,7056,0)="7056|93421.0000|Cefpirome MIC|"
^XMB(3.9,343,2,7057,0)="7057|93422.0000|Cefpirome KB|"
^XMB(3.9,343,2,7058,0)="7058|93423.0000|Clotrimazole MIC|"
^XMB(3.9,343,2,7059,0)="7059|93424.0000|Clotrimazole MLC|"
^XMB(3.9,343,2,7060,0)="7060|93425.0000|Nystatin MIC|"
^XMB(3.9,343,2,7061,0)="7061|93426.0000|Nystatin MLC|"
^XMB(3.9,343,2,7062,0)="7062|93427.0000|Terbinafine MIC|"
^XMB(3.9,343,2,7063,0)="7063|93428.0000|Terbinafine MLC|"
^XMB(3.9,343,2,7064,0)="7064|93429.0000|Bacitracin KB|"
^XMB(3.9,343,2,7065,0)="7065|93430.0000|Cefmetazole E-test|"
^XMB(3.9,343,2,7066,0)="7066|93431.0000|Erythro+Sulf E-test|"
^XMB(3.9,343,2,7067,0)="7067|93432.0000|Sulfamethoxazole E-test|"
^XMB(3.9,343,2,7068,0)="7068|93433.0000|Sulfisoxaz E-test|"
^XMB(3.9,343,2,7069,0)="7069|93434.0000|Penicillin KB|"
^XMB(3.9,343,2,7070,0)="7070|93435.0000|PAS MIC|"
^XMB(3.9,343,2,7071,0)="7071|93436.0000|Ethionamide MIC|"
^XMB(3.9,343,2,7072,0)="7072|93437.0000|Rifabutin MIC|"
^XMB(3.9,343,2,7073,0)="7073|93438.0000|Rifabutin+Ethambutol MIC|"
^XMB(3.9,343,2,7074,0)="7074|93439.0000|Azithro+Ethambut MIC|"
^XMB(3.9,343,2,7075,0)="7075|93440.0000|Clarithro+Ethamb MIC|"
^XMB(3.9,343,2,7076,0)="7076|93441.0000|Clofazamine MIC|"
^XMB(3.9,343,2,7077,0)="7077|93442.0000|Erythro+Ethamb MIC|"
^XMB(3.9,343,2,7078,0)="7078|93443.0000|Ethambutol+Rifampin MIC|"
^XMB(3.9,343,2,7079,0)="7079|93444.0000|5FC Susc|"
^XMB(3.9,343,2,7080,0)="7080|93445.0000|Almecillin Susc|"
^XMB(3.9,343,2,7081,0)="7081|93446.0000|Amdinocillin Susc|"
^XMB(3.9,343,2,7082,0)="7082|93447.0000|Amikacin Susc|"
^XMB(3.9,343,2,7083,0)="7083|93448.0000|Amoxicillin Susc|"
^XMB(3.9,343,2,7084,0)="7084|93449.0000|Amoxicillin+Clav Susc|"
^XMB(3.9,343,2,7085,0)="7085|93450.0000|Amphotericin B Susc|"
^XMB(3.9,343,2,7086,0)="7086|93451.0000|Ampicillin Susc|"
^XMB(3.9,343,2,7087,0)="7087|93452.0000|Ampicillin+Sulbac Susc|"
^XMB(3.9,343,2,7088,0)="7088|93453.0000|Azithromycin Susc|"
^XMB(3.9,343,2,7089,0)="7089|93454.0000|Azlocillin Susc|"
^XMB(3.9,343,2,7090,0)="7090|93455.0000|Aztreonam Susc|"
^XMB(3.9,343,2,7091,0)="7091|93456.0000|Bacampicillin Susc|"
^XMB(3.9,343,2,7092,0)="7092|93457.0000|Bacitracin Susc|"
^XMB(3.9,343,2,7093,0)="7093|93458.0000|Butirosin Susc|"
^XMB(3.9,343,2,7094,0)="7094|93459.0000|Capreomycin Susc|"
^XMB(3.9,343,2,7095,0)="7095|93460.0000|Carbenicillin Susc|"
^XMB(3.9,343,2,7096,0)="7096|93461.0000|Cefaclor Susc|"
^XMB(3.9,343,2,7097,0)="7097|93462.0000|Cefadroxil Susc|"
^XMB(3.9,343,2,7098,0)="7098|93463.0000|Cefamandole Susc|"
^XMB(3.9,343,2,7099,0)="7099|93464.0000|Cefatrizine Susc|"
^XMB(3.9,343,2,7100,0)="7100|93465.0000|Cefazolin Susc|"
^XMB(3.9,343,2,7101,0)="7101|93466.0000|Cefepime Susc|"
^XMB(3.9,343,2,7102,0)="7102|93467.0000|Cefixime Susc|"
^XMB(3.9,343,2,7103,0)="7103|93468.0000|Cefmetazole Susc|"
^XMB(3.9,343,2,7104,0)="7104|93469.0000|Cefodizime Susc|"
^XMB(3.9,343,2,7105,0)="7105|93470.0000|Cefonocid Susc|"
^XMB(3.9,343,2,7106,0)="7106|93471.0000|Cefoperazone Susc|"
^XMB(3.9,343,2,7107,0)="7107|93472.0000|Ceforanide Susc|"
^XMB(3.9,343,2,7108,0)="7108|93473.0000|Cefotaxime Susc|"
^XMB(3.9,343,2,7109,0)="7109|93474.0000|Cefotetan Susc|"
^XMB(3.9,343,2,7110,0)="7110|93475.0000|Cefoxitin Susc|"
^XMB(3.9,343,2,7111,0)="7111|93476.0000|Cefpirome Susc|"
^XMB(3.9,343,2,7112,0)="7112|93477.0000|Cefpodoxime Susc|"
^XMB(3.9,343,2,7113,0)="7113|93478.0000|Cefprozil Susc|"
^XMB(3.9,343,2,7114,0)="7114|93479.0000|Cefsulodin Susc|"
^XMB(3.9,343,2,7115,0)="7115|93480.0000|Ceftazidime Susc|"
^XMB(3.9,343,2,7116,0)="7116|93481.0000|Ceftizoxime Susc|"
^XMB(3.9,343,2,7117,0)="7117|93482.0000|Ceftriaxone Susc|"
^XMB(3.9,343,2,7118,0)="7118|93483.0000|Cefuroxime Parenter Susc|"
^XMB(3.9,343,2,7119,0)="7119|93484.0000|Cephalexin Susc|"
^XMB(3.9,343,2,7120,0)="7120|93485.0000|Cephaloglycin Susc|"
^XMB(3.9,343,2,7121,0)="7121|93486.0000|Cephaloridine Susc|"
^XMB(3.9,343,2,7122,0)="7122|93487.0000|Cephalothin Susc|"
^XMB(3.9,343,2,7123,0)="7123|93488.0000|Cephapirin Susc|"
^XMB(3.9,343,2,7124,0)="7124|93489.0000|Cephradine Susc|"
^XMB(3.9,343,2,7125,0)="7125|93490.0000|Chloramphen Susc|"
^XMB(3.9,343,2,7126,0)="7126|93491.0000|Chlortetracycline Susc|"
^XMB(3.9,343,2,7127,0)="7127|93492.0000|Cinoxacin Susc|"
^XMB(3.9,343,2,7128,0)="7128|93493.0000|Ciprofloxacin Susc|"
^XMB(3.9,343,2,7129,0)="7129|93494.0000|Clarithro Susc|"
^XMB(3.9,343,2,7130,0)="7130|93495.0000|Clindamycin Susc|"
^XMB(3.9,343,2,7131,0)="7131|93496.0000|Clotrimazole Susc|"
^XMB(3.9,343,2,7132,0)="7132|93497.0000|Cloxacillin Susc|"
^XMB(3.9,343,2,7133,0)="7133|93498.0000|Colistimethate Susc|"
^XMB(3.9,343,2,7134,0)="7134|93499.0000|Colistin Susc|"
^XMB(3.9,343,2,7135,0)="7135|93500.0000|Cyclacillin Susc|"
^XMB(3.9,343,2,7136,0)="7136|93501.0000|Cycloserine Susc|"
^XMB(3.9,343,2,7137,0)="7137|93502.0000|Demeclocycline Susc|"
^XMB(3.9,343,2,7138,0)="7138|93503.0000|Dicloxacillin Susc|"
^XMB(3.9,343,2,7139,0)="7139|93504.0000|Doxycycline Susc|"
^XMB(3.9,343,2,7140,0)="7140|93505.0000|Enoxacin Susc|"
^XMB(3.9,343,2,7141,0)="7141|93506.0000|Erythromycin Susc|"
^XMB(3.9,343,2,7142,0)="7142|93507.0000|Erythro+Sulf Susc|"
^XMB(3.9,343,2,7143,0)="7143|93508.0000|Ethambutol Susc|"
^XMB(3.9,343,2,7144,0)="7144|93509.0000|Ethionamide Susc|"
^XMB(3.9,343,2,7145,0)="7145|93510.0000|Floxacillin Susc|"
^XMB(3.9,343,2,7146,0)="7146|93511.0000|Fluconazole Susc|"
^XMB(3.9,343,2,7147,0)="7147|93512.0000|Framycetin Susc|"
^XMB(3.9,343,2,7148,0)="7148|93513.0000|Fusidate Susc|"
^XMB(3.9,343,2,7149,0)="7149|93514.0000|Gentamicin Susc|"
^XMB(3.9,343,2,7150,0)="7150|93515.0000|Gentamicin Synergy Susc|"
^XMB(3.9,343,2,7151,0)="7151|93516.0000|Gramicidin D Susc|"
^XMB(3.9,343,2,7152,0)="7152|93517.0000|Hetacillin Susc|"
^XMB(3.9,343,2,7153,0)="7153|93518.0000|Imipenem Susc|"
^XMB(3.9,343,2,7154,0)="7154|93519.0000|Isoniazid Susc|"
^XMB(3.9,343,2,7155,0)="7155|93520.0000|Kanamycin Susc|"
^XMB(3.9,343,2,7156,0)="7156|93521.0000|Kanamycin High Pot Susc|"
^XMB(3.9,343,2,7157,0)="7157|93522.0000|Ketoconazole Susc|"
^XMB(3.9,343,2,7158,0)="7158|93523.0000|Lincomycin Susc|"
^XMB(3.9,343,2,7159,0)="7159|93524.0000|Lomefloxacin Susc|"
^XMB(3.9,343,2,7160,0)="7160|93525.0000|Loracarbef Susc|"
^XMB(3.9,343,2,7161,0)="7161|93526.0000|Lymecycline Susc|"
^XMB(3.9,343,2,7162,0)="7162|93527.0000|Meclocycline Susc|"
^XMB(3.9,343,2,7163,0)="7163|93528.0000|Meropenem Susc|"
^XMB(3.9,343,2,7164,0)="7164|93529.0000|Methacycline Susc|"
^XMB(3.9,343,2,7165,0)="7165|93530.0000|Methicillin Susc|"
^XMB(3.9,343,2,7166,0)="7166|93531.0000|Metronidazole Susc|"
^XMB(3.9,343,2,7167,0)="7167|93532.0000|Mezlocillin Susc|"
^XMB(3.9,343,2,7168,0)="7168|93533.0000|Minocycline Susc|"
^XMB(3.9,343,2,7169,0)="7169|93534.0000|Miocamycin Susc|"
^XMB(3.9,343,2,7170,0)="7170|93535.0000|Moxalactam Susc|"
^XMB(3.9,343,2,7171,0)="7171|93536.0000|Nafcillin Susc|"
^XMB(3.9,343,2,7172,0)="7172|93537.0000|Nalidixate Susc|"
^XMB(3.9,343,2,7173,0)="7173|93538.0000|Neomycin Susc|"
^XMB(3.9,343,2,7174,0)="7174|93539.0000|Netilmicin Susc|"
^XMB(3.9,343,2,7175,0)="7175|93540.0000|Nitrofurantoin Susc|"
^XMB(3.9,343,2,7176,0)="7176|93541.0000|Norfloxacin Susc|"
^XMB(3.9,343,2,7177,0)="7177|93542.0000|Novobiocin Susc|"
^XMB(3.9,343,2,7178,0)="7178|93543.0000|Nystatin Susc|"
^XMB(3.9,343,2,7179,0)="7179|93544.0000|Ofloxacin Susc|"
^XMB(3.9,343,2,7180,0)="7180|93545.0000|Oleandomycin Susc|"
^XMB(3.9,343,2,7181,0)="7181|93546.0000|Oxacillin Susc|"
^XMB(3.9,343,2,7182,0)="7182|93547.0000|Oxytetracycline Susc|"
^XMB(3.9,343,2,7183,0)="7183|93548.0000|Pefloxacin Susc|"
^XMB(3.9,343,2,7184,0)="7184|93549.0000|Penicillin Susc|"
^XMB(3.9,343,2,7185,0)="7185|93550.0000|Penicillin G Susc|"
^XMB(3.9,343,2,7186,0)="7186|93551.0000|Penicillin V Susc|"
^XMB(3.9,343,2,7187,0)="7187|93552.0000|Phenethicillin Susc|"
^XMB(3.9,343,2,7188,0)="7188|93553.0000|Pipemidate Susc|"
^XMB(3.9,343,2,7189,0)="7189|93554.0000|Piperacillin Susc|"
^XMB(3.9,343,2,7190,0)="7190|93555.0000|Piperacillin+Tazobac Susc|"
^XMB(3.9,343,2,7191,0)="7191|93556.0000|Pivampicillin Susc|"
^XMB(3.9,343,2,7192,0)="7192|93557.0000|Polymyxin B Susc|"
^XMB(3.9,343,2,7193,0)="7193|93558.0000|PZA Susc|"
^XMB(3.9,343,2,7194,0)="7194|93559.0000|Rifampin Susc|"
^XMB(3.9,343,2,7195,0)="7195|93560.0000|Ristocetin Susc|"
^XMB(3.9,343,2,7196,0)="7196|93561.0000|Rolitetracycline Susc|"
^XMB(3.9,343,2,7197,0)="7197|93562.0000|Rosoxacin Susc|"
^XMB(3.9,343,2,7198,0)="7198|93563.0000|Roxithromycin Susc|"
^XMB(3.9,343,2,7199,0)="7199|93564.0000|Sisomicin Susc|"
^XMB(3.9,343,2,7200,0)="7200|93565.0000|Spectinomycin Susc|"
^XMB(3.9,343,2,7201,0)="7201|93566.0000|Spiramycin Susc|"
^XMB(3.9,343,2,7202,0)="7202|93567.0000|Streptomycin Susc|"
^XMB(3.9,343,2,7203,0)="7203|93568.0000|Streptomycin High Pot Susc|"
^XMB(3.9,343,2,7204,0)="7204|93569.0000|Sulfadiazine Susc|"
^XMB(3.9,343,2,7205,0)="7205|93570.0000|Sulfamethoxazole Susc|"
^XMB(3.9,343,2,7206,0)="7206|93571.0000|Sulfisoxaz Susc|"
^XMB(3.9,343,2,7207,0)="7207|93572.0000|Sulfonamide Susc|"
^XMB(3.9,343,2,7208,0)="7208|93573.0000|Talampicillin Susc|"
^XMB(3.9,343,2,7209,0)="7209|93574.0000|Teicoplanin Susc|"
^XMB(3.9,343,2,7210,0)="7210|93575.0000|Temafloxacin Susc|"
^XMB(3.9,343,2,7211,0)="7211|93576.0000|Temocillin Susc|"
^XMB(3.9,343,2,7212,0)="7212|93577.0000|Terbinafine Susc|"
^XMB(3.9,343,2,7213,0)="7213|93578.0000|Tetracycline Susc|"
^XMB(3.9,343,2,7214,0)="7214|93579.0000|Ticarcillin Susc|"
^XMB(3.9,343,2,7215,0)="7215|93580.0000|Ticarcillin+Clav Susc|"
^XMB(3.9,343,2,7216,0)="7216|93581.0000|Tobramycin Susc|"
^XMB(3.9,343,2,7217,0)="7217|93582.0000|Trimethoprim Susc|"
^XMB(3.9,343,2,7218,0)="7218|93583.0000|TMP SMX Susc|"
^XMB(3.9,343,2,7219,0)="7219|93584.0000|Troleandomycin Susc|"
^XMB(3.9,343,2,7220,0)="7220|93585.0000|Vancomycin Susc|"
^XMB(3.9,343,2,7221,0)="7221|93586.0000|Viomycin Susc|"
^XMB(3.9,343,2,7222,0)="7222|93587.0000|Rifabutin Susc|"
^XMB(3.9,343,2,7223,0)="7223|93588.0000|Amikacin Slow Mycob|"
^XMB(3.9,343,2,7224,0)="7224|93589.0000|Ampicillin+Sulbac Slow Mycob|"
^XMB(3.9,343,2,7225,0)="7225|93590.0000|Clarithro Slow Mycob|"
^XMB(3.9,343,2,7226,0)="7226|93591.0000|Clofazamine Slow Mycob|"
^XMB(3.9,343,2,7227,0)="7227|93592.0000|Ciprofloxacin Slow Mycob|"
^XMB(3.9,343,2,7228,0)="7228|93593.0000|Ceftizoxime Slow Mycob|"
^XMB(3.9,343,2,7229,0)="7229|93594.0000|Doxycycline Slow Mycob|"
^XMB(3.9,343,2,7230,0)="7230|93595.0000|Erythromycin Slow Mycob|"
^XMB(3.9,343,2,7231,0)="7231|93596.0000|Ethambutol Slow Mycob|"
^XMB(3.9,343,2,7232,0)="7232|93597.0000|Ethionamide Slow Mycob|"
^XMB(3.9,343,2,7233,0)="7233|93598.0000|Isoniazid Slow Mycob|"
^XMB(3.9,343,2,7234,0)="7234|93599.0000|Ofloxacin Slow Mycob|"
^XMB(3.9,343,2,7235,0)="7235|93600.0000|Rifampin Slow Mycob|"
^XMB(3.9,343,2,7236,0)="7236|93601.0000|Rifabutin Slow Mycob|"
^XMB(3.9,343,2,7237,0)="7237|93602.0000|TMP SMX Slow Mycob|"
^XMB(3.9,343,2,7238,0)="7238|93603.0000|Furacin Top Susc|"
^XMB(3.9,343,2,7239,0)="7239|93604.0000|Mupirocin Susc|"
^XMB(3.9,343,2,7240,0)="7240|93605.0000|Silvadine Top Susc|"
^XMB(3.9,343,2,7241,0)="7241|93606.0000|Mafenide Susc|"
^XMB(3.9,343,2,7242,0)="7242|93607.0000|L-Floxacin MIC|"
^XMB(3.9,343,2,7243,0)="7243|93608.0000|Sparfloxacin MIC|"
^XMB(3.9,343,2,7244,0)="7244|93609.0000|Cefuroxime Oral MIC|"
^XMB(3.9,343,2,7245,0)="7245|93610.0000|PZA Slow Mycob|"
^XMB(3.9,343,2,7246,0)="7246|93611.0000|Streptomycin Slow Mycob|"
^XMB(3.9,343,2,7247,0)="7247|93612.0000|L-Floxacin Susc|"
^XMB(3.9,343,2,7248,0)="7248|93613.0000|Other Antibiotic MIC|"
^XMB(3.9,343,2,7249,0)="7249|93614.0000|Grepafloxacin E-test|"
^XMB(3.9,343,2,7250,0)="7250|93615.0000|L-Floxacin KB|"
^XMB(3.9,343,2,7251,0)="7251|93616.0000|Capreomycin AFB Susc|"
^XMB(3.9,343,2,7252,0)="7252|93617.0000|Cycloserine AFB Susc|"
^XMB(3.9,343,2,7253,0)="7253|93618.0000|Kanamycin AFB Susc|"
^XMB(3.9,343,2,7254,0)="7254|93619.0000|Sparfloxacin AFB Susc|"
^XMB(3.9,343,2,7255,0)="7255|93620.0000|PAS AFB Susc|"
^XMB(3.9,343,2,7256,0)="7256|93621.0000|Azithromycin AFB Susc|"
^XMB(3.9,343,2,7257,0)="7257|93622.0000|Imipenem AFB Susc|"
^XMB(3.9,343,2,7258,0)="7258|93623.0000|Trimethoprim AFB Susc|"
^XMB(3.9,343,2,7259,0)="7259|93624.0000|Vancomycin AFB Susc|"
^XMB(3.9,343,2,7260,0)="7260|93625.0000|Viomycin AFB Susc|"
^XMB(3.9,343,2,7261,0)="7261|93626.0000|Ethionamide AFB Susc|"
^XMB(3.9,343,2,7262,0)="7262|93627.0000|Ampicillin+Sulbac AFB Susc|"
^XMB(3.9,343,2,7263,0)="7263|93628.0000|Clarithro AFB Susc|"
^XMB(3.9,343,2,7264,0)="7264|93629.0000|Clofazamine AFB Susc|"
^XMB(3.9,343,2,7265,0)="7265|93630.0000|Ciprofloxacin AFB Susc|"
^XMB(3.9,343,2,7266,0)="7266|93631.0000|Ceftizoxime AFB Susc|"
^XMB(3.9,343,2,7267,0)="7267|93632.0000|Doxycycline AFB Susc|"
^XMB(3.9,343,2,7268,0)="7268|93633.0000|Amikacin AFB Susc|"
^XMB(3.9,343,2,7269,0)="7269|93634.0000|Ethambutol AFB Susc|"
^XMB(3.9,343,2,7270,0)="7270|93635.0000|Streptomycin AFB Susc|"
^XMB(3.9,343,2,7271,0)="7271|93636.0000|Clofazamine Susc|"
^XMB(3.9,343,2,7272,0)="7272|93637.0000|Sparfloxacin Susc|"
^XMB(3.9,343,2,7273,0)="7273|93638.0000|PAS Susc|"
^XMB(3.9,343,2,7274,0)="7274|93639.0000|Rifabutin AFB Susc|"
^XMB(3.9,343,2,7275,0)="7275|93640.0000|TMP SMX AFB Susc|"
^XMB(3.9,343,2,7276,0)="7276|93641.0000|PZA AFB Susc|"
^XMB(3.9,343,2,7277,0)="7277|93642.0000|Erythromycin AFB Susc|"
^XMB(3.9,343,2,7278,0)="7278|93643.0000|Cefdinir Susc|"
^XMB(3.9,343,2,7279,0)="7279|93644.0000|Cefdinir MIC|"
^XMB(3.9,343,2,7280,0)="7280|93645.0000|Grepafloxacin Susc|"
^XMB(3.9,343,2,7281,0)="7281|93646.0000|Grepafloxacin MIC|"
^XMB(3.9,343,2,7282,0)="7282|93647.0000|Quinupristin+Dalfoprist Susc|"
^XMB(3.9,343,2,7283,0)="7283|93648.0000|Quinupristin+Dalfoprist MIC|"
^XMB(3.9,343,2,7284,0)="7284|93649.0000|Trovafloxacin Susc|"
^XMB(3.9,343,2,7285,0)="7285|93650.0000|Trovafloxacin MIC|"
^XMB(3.9,343,2,7286,0)="7286|93651.0000|Other Antibiotic Susc|"
^XMB(3.9,343,2,7287,0)="7287|93652.0000|Apramycin Susc|"
^XMB(3.9,343,2,7288,0)="7288|93653.0000|Ceftiofur Susc|"
^XMB(3.9,343,2,7289,0)="7289|93654.0000|Enrofloxacin Susc|"
^XMB(3.9,343,2,7290,0)="7290|93655.0000|Florfenicol Susc|"
^XMB(3.9,343,2,7291,0)="7291|93656.0000|Penicillin E-test|"
^XMB(3.9,343,2,7292,0)="7292|93657.0000|Isoniazid AFB Susc|"
^XMB(3.9,343,2,7293,0)="7293|93658.0000|Ofloxacin AFB Susc|"
^XMB(3.9,343,2,7294,0)="7294|93659.0000|Rifampin AFB Susc|"
^XMB(3.9,343,2,7295,0)="7295|93660.0000|Amikacin 8 ug/mL AFB Susc|"
^XMB(3.9,343,2,7296,0)="7296|93661.0000|Amikacin 16 ug/mL AFB Susc|"
^XMB(3.9,343,2,7297,0)="7297|93662.0000|Amikacin 32 ug/mL AFB Susc|"
^XMB(3.9,343,2,7298,0)="7298|93663.0000|Amikacin 12 ug/mL AFB Susc|"
^XMB(3.9,343,2,7299,0)="7299|93664.0000|Amikacin 30 ug/mL AFB Susc|"
^XMB(3.9,343,2,7300,0)="7300|93665.0000|Amikacin 6 ug/mL AFB Susc|"
^XMB(3.9,343,2,7301,0)="7301|93666.0000|Ciprofloxacin 2 ug/mL AFB Susc|"
^XMB(3.9,343,2,7302,0)="7302|93667.0000|Ciprofloxacin 4 ug/mL AFB Susc|"
^XMB(3.9,343,2,7303,0)="7303|93668.0000|Kanamycin 5 ug/mL AFB Susc|"
^XMB(3.9,343,2,7304,0)="7304|93669.0000|Ethionamide 11 ug/mL AFB Susc|"
^XMB(3.9,343,2,7305,0)="7305|93670.0000|Rifampin 14 ug/mL AFB Susc|"
^XMB(3.9,343,2,7306,0)="7306|93671.0000|Streptomycin 6 ug/mL AFB Susc|"
^XMB(3.9,343,2,7307,0)="7307|93672.0000|PZA 25 ug/mL AFB Susc|"
^XMB(3.9,343,2,7308,0)="7308|93673.0000|Ethambutol 7.5 ug/mL AFB Susc|"
^XMB(3.9,343,2,7309,0)="7309|93674.0000|Ciprofloxacin 8 ug/mL AFB Susc|"
^XMB(3.9,343,2,7310,0)="7310|93675.0000|Ciprofloxacin 5 ug/mL AFB Susc|"
^XMB(3.9,343,2,7311,0)="7311|93676.0000|Clarithro 8 ug/mL AFB Susc|"
^XMB(3.9,343,2,7312,0)="7312|93677.0000|Clarithro 16 ug/mL AFB Susc|"
^XMB(3.9,343,2,7313,0)="7313|93678.0000|Clarithro 32 ug/mL AFB Susc|"
^XMB(3.9,343,2,7314,0)="7314|93679.0000|Ethambutol 5 ug/mL AFB Susc|"
^XMB(3.9,343,2,7315,0)="7315|93680.0000|Ethambutol 10 ug/mL AFB Susc|"
^XMB(3.9,343,2,7316,0)="7316|93681.0000|Ethionamide 5 ug/mL AFB Susc|"
^XMB(3.9,343,2,7317,0)="7317|93682.0000|Ethionamide 15 ug/mL AFB Susc|"
^XMB(3.9,343,2,7318,0)="7318|93683.0000|Rifabutin 1 ug/mL AFB Susc|"
^XMB(3.9,343,2,7319,0)="7319|93684.0000|Rifabutin 2 ug/mL AFB Susc|"
^XMB(3.9,343,2,7320,0)="7320|93685.0000|Rifabutin 4 ug/mL AFB Susc|"
^XMB(3.9,343,2,7321,0)="7321|93686.0000|Rifampin 1 ug/mL AFB Susc|"
^XMB(3.9,343,2,7322,0)="7322|93687.0000|Rifampin 2 ug/mL AFB Susc|"
^XMB(3.9,343,2,7323,0)="7323|93688.0000|Rifampin 5 ug/mL AFB Susc|"
^XMB(3.9,343,2,7324,0)="7324|93689.0000|Streptomycin 2 ug/mL AFB Susc|"
^XMB(3.9,343,2,7325,0)="7325|93690.0000|Streptomycin 10 ug/mL AFB Susc|"
^XMB(3.9,343,2,7326,0)="7326|93691.0000|Cycloserine 10 ug/mL AFB Susc|"
^XMB(3.9,343,2,7327,0)="7327|93692.0000|Cycloserine 20 ug/mL AFB Susc|"
^XMB(3.9,343,2,7328,0)="7328|93693.0000|Cycloserine 30 ug/mL AFB Susc|"
^XMB(3.9,343,2,7329,0)="7329|93694.0000|Capreomycin 10 ug/mL AFB Susc|"
^XMB(3.9,343,2,7330,0)="7330|93695.0000|Capreomycin 20 ug/mL AFB Susc|"
^XMB(3.9,343,2,7331,0)="7331|93696.0000|Capreomycin 30 ug/mL AFB Susc|"
^XMB(3.9,343,2,7332,0)="7332|93697.0000|Kanamycin 6 ug/mL AFB Susc|"
^XMB(3.9,343,2,7333,0)="7333|93698.0000|Kanamycin 30 ug/mL AFB Susc|"
^XMB(3.9,343,2,7334,0)="7334|93699.0000|PAS 2 ug/mL AFB Susc|"
^XMB(3.9,343,2,7335,0)="7335|93700.0000|PAS 8 ug/mL AFB Susc|"
^XMB(3.9,343,2,7336,0)="7336|93701.0000|Isoniazid 0.1 ug/mL AFB Susc|"
^XMB(3.9,343,2,7337,0)="7337|93702.0000|Isoniazid 0.2 ug/mL AFB Susc|"
^XMB(3.9,343,2,7338,0)="7338|93703.0000|Isoniazid 1 ug/mL AFB Susc|"
^XMB(3.9,343,2,7339,0)="7339|93704.0000|Cefoxitin 30 ug/mL AFB Susc|"
^XMB(3.9,343,2,7340,0)="7340|93705.0000|Imipenem 10 ug/mL AFB Susc|"
^XMB(3.9,343,2,7341,0)="7341|93706.0000|Cefmetazole 30 ug/mL AFB Susc|"
^XMB(3.9,343,2,7342,0)="7342|93707.0000|Doxycycline 30 ug/mL AFB Susc|"
^XMB(3.9,343,2,7343,0)="7343|93708.0000|Erythromycin 15 ug/mL AFB Susc|"
^XMB(3.9,343,2,7344,0)="7344|93709.0000|Minocycline 30 ug/mL AFB Susc|"
^XMB(3.9,343,2,7345,0)="7345|93710.0000|Sulfisoxaz 300 ug/mL AFB Susc|"
^XMB(3.9,343,2,7346,0)="7346|93711.0000|Tobramycin 10 ug/mL AFB Susc|"
^XMB(3.9,343,2,7347,0)="7347|93712.0000|Vancomycin 30 ug/mL AFB Susc|"
^XMB(3.9,343,2,7348,0)="7348|93713.0000|PZA 100 ug/mL AFB Susc|"
^XMB(3.9,343,2,7349,0)="7349|93714.0000|Ethambutol 2.5 ug/mL AFB Susc|"
^XMB(3.9,343,2,7350,0)="7350|93715.0000|Ethionamide 10 ug/mL AFB Susc|"
^XMB(3.9,343,2,7351,0)="7351|93716.0000|Amoxicillin+Clav AFB Susc|"
^XMB(3.9,343,2,7352,0)="7352|93717.0000|Cefoxitin AFB Susc|"
^XMB(3.9,343,2,7353,0)="7353|93718.0000|Ceftriaxone AFB Susc|"
^XMB(3.9,343,2,7354,0)="7354|93719.0000|Fleroxacin MIC|"
^XMB(3.9,343,2,7355,0)="7355|93720.0000|Itraconaz MIC|"
^XMB(3.9,343,2,7356,0)="7356|93721.0000|Econazole Susc|"
^XMB(3.9,343,2,7357,0)="7357|93722.0000|Fosfomycin Susc|"
^XMB(3.9,343,2,7358,0)="7358|93723.0000|Josamycine Susc|"
^XMB(3.9,343,2,7359,0)="7359|93724.0000|Miconazole Susc|"
^XMB(3.9,343,2,7360,0)="7360|93725.0000|Nitroxoline Susc|"
^XMB(3.9,343,2,7361,0)="7361|93726.0000|Econazole MIC|"
^XMB(3.9,343,2,7362,0)="7362|93727.0000|Fosfomycin MIC|"
^XMB(3.9,343,2,7363,0)="7363|93728.0000|Josamycine MIC|"
^XMB(3.9,343,2,7364,0)="7364|93729.0000|Miconazole MIC|"
^XMB(3.9,343,2,7365,0)="7365|93730.0000|Nitroxoline MIC|"
^XMB(3.9,343,2,7366,0)="7366|93731.0000|Tobramycin AFB Susc|"
^XMB(3.9,343,2,7367,0)="7367|93732.0000|Linezolid MIC|"
^XMB(3.9,343,2,7368,0)="7368|93733.0000|Linezolid KB|"
^XMB(3.9,343,2,7369,0)="7369|93734.0000|Linezolid Susc|"
^XMB(3.9,343,2,7370,0)="7370|93735.0000|Isoniazid 0.4 ug/mL AFB Susc|"
^XMB(3.9,343,2,7371,0)="7371|93736.0000|Zidovudine Phenotyp|"
^XMB(3.9,343,2,7372,0)="7372|93737.0000|Lamivudine Phenotyp|"
^XMB(3.9,343,2,7373,0)="7373|93738.0000|Didanosine Phenotyp|"
^XMB(3.9,343,2,7374,0)="7374|93739.0000|Zalcitabine Phenotyp|"
^XMB(3.9,343,2,7375,0)="7375|93740.0000|Stavudine Phenotyp|"
^XMB(3.9,343,2,7376,0)="7376|93741.0000|Abacavir Phenotyp|"
^XMB(3.9,343,2,7377,0)="7377|93742.0000|Adefovir Phenotyp|"
^XMB(3.9,343,2,7378,0)="7378|93743.0000|Nevirapine Phenotyp|"
^XMB(3.9,343,2,7379,0)="7379|93744.0000|Delavirdine Phenotyp|"
^XMB(3.9,343,2,7380,0)="7380|93745.0000|Efavirenz Phenotyp|"
^XMB(3.9,343,2,7381,0)="7381|93746.0000|Indinavir Phenotyp|"
^XMB(3.9,343,2,7382,0)="7382|93747.0000|Ritonavir Phenotyp|"
^XMB(3.9,343,2,7383,0)="7383|93748.0000|Nelfinavir Phenotyp|"
^XMB(3.9,343,2,7384,0)="7384|93749.0000|Saquinavir Phenotyp|"
^XMB(3.9,343,2,7385,0)="7385|93750.0000|Zidovudine Genotyp|"
^XMB(3.9,343,2,7386,0)="7386|93751.0000|Lamivudine Genotyp|"
^XMB(3.9,343,2,7387,0)="7387|93752.0000|Didanosine Genotyp|"
^XMB(3.9,343,2,7388,0)="7388|93753.0000|Zalcitabine Genotyp|"
^XMB(3.9,343,2,7389,0)="7389|93754.0000|Stavudine Genotyp|"
^XMB(3.9,343,2,7390,0)="7390|93755.0000|Abacavir Genotyp|"
^XMB(3.9,343,2,7391,0)="7391|93756.0000|Adefovir Genotyp|"
^XMB(3.9,343,2,7392,0)="7392|93757.0000|Nevirapine Genotyp|"
^XMB(3.9,343,2,7393,0)="7393|93758.0000|Delavirdine Genotyp|"
^XMB(3.9,343,2,7394,0)="7394|93759.0000|Efavirenz Genotyp|"
^XMB(3.9,343,2,7395,0)="7395|93760.0000|Indinavir Genotyp|"
^XMB(3.9,343,2,7396,0)="7396|93761.0000|Ritonavir Genotyp|"
^XMB(3.9,343,2,7397,0)="7397|93762.0000|Nelfinavir Genotyp|"
^XMB(3.9,343,2,7398,0)="7398|93763.0000|Saquinavir Genotyp|"
^XMB(3.9,343,2,7399,0)="7399|93764.0000|Amprenavir Phenotyp|"
^XMB(3.9,343,2,7400,0)="7400|93765.0000|Amprenavir Genotyp|"
^XMB(3.9,343,2,7401,0)="7401|93766.0000|Lamivudine Susc|"
^XMB(3.9,343,2,7402,0)="7402|93767.0000|Amprenavir Susc|"
^XMB(3.9,343,2,7403,0)="7403|93768.0000|Didanosine Susc|"
^XMB(3.9,343,2,7404,0)="7404|93769.0000|Zalcitabine Susc|"
^XMB(3.9,343,2,7405,0)="7405|93770.0000|Stavudine Susc|"
^XMB(3.9,343,2,7406,0)="7406|93771.0000|Abacavir Susc|"
^XMB(3.9,343,2,7407,0)="7407|93772.0000|Adefovir Susc|"
^XMB(3.9,343,2,7408,0)="7408|93773.0000|Delavirdine Susc|"
^XMB(3.9,343,2,7409,0)="7409|93774.0000|Efavirenz Susc|"
^XMB(3.9,343,2,7410,0)="7410|93775.0000|Indinavir Susc|"
^XMB(3.9,343,2,7411,0)="7411|93776.0000|Ritonavir Susc|"
^XMB(3.9,343,2,7412,0)="7412|93777.0000|Nelfinavir Susc|"
^XMB(3.9,343,2,7413,0)="7413|93778.0000|Saquinavir Susc|"
^XMB(3.9,343,2,7414,0)="7414|93779.0000|Nevirapine Susc|"
^XMB(3.9,343,2,7415,0)="7415|93780.0000|Gatifloxacin MIC|"
^XMB(3.9,343,2,7416,0)="7416|93781.0000|Moxifloxacin MIC|"
^XMB(3.9,343,2,7417,0)="7417|93782.0000|Gatifloxacin Susc|"
^XMB(3.9,343,2,7418,0)="7418|93783.0000|Moxifloxacin Susc|"
^XMB(3.9,343,2,7419,0)="7419|93784.0000|Gatifloxacin KB|"
^XMB(3.9,343,2,7420,0)="7420|93785.0000|Moxifloxacin KB|"
^XMB(3.9,343,2,7421,0)="7421|93786.0000|Gatifloxacin E-test|"
^XMB(3.9,343,2,7422,0)="7422|93787.0000|Moxifloxacin E-test|"
^XMB(3.9,343,2,7423,0)="7423|93788.0000|Cefotaxime-Mening Rx MIC|"
^XMB(3.9,343,2,7424,0)="7424|93789.0000|Cefotaxime-Mening Rx E-test|"
^XMB(3.9,343,2,7425,0)="7425|93790.0000|Ceftriaxone-Mening Rx MIC|"
^XMB(3.9,343,2,7426,0)="7426|93791.0000|Ceftriaxone-Mening Rx E-test|"
^XMB(3.9,343,2,7427,0)="7427|93792.0000|Cefepime-Mening Rx MIC|"
^XMB(3.9,343,2,7428,0)="7428|93793.0000|Cefepime-Mening Rx E-test|"
^XMB(3.9,343,2,7429,0)="7429|93794.0000|Fleroxacin Susc|"
^XMB(3.9,343,2,7430,0)="7430|93795.0000|Arbekacin Susc|"
^XMB(3.9,343,2,7431,0)="7431|93796.0000|Cefotiam Susc|"
^XMB(3.9,343,2,7432,0)="7432|93797.0000|Cefmenoxime Susc|"
^XMB(3.9,343,2,7433,0)="7433|93798.0000|Clinafloxacin Susc|"
^XMB(3.9,343,2,7434,0)="7434|93799.0000|Cefetamet Susc|"
^XMB(3.9,343,2,7435,0)="7435|93800.0000|Caspofungin Susc|"
^XMB(3.9,343,2,7436,0)="7436|93801.0000|Voriconazole Susc|"
^XMB(3.9,343,2,7437,0)="7437|93802.0000|Isepamicin Susc|"
^XMB(3.9,343,2,7438,0)="7438|93803.0000|Pristinamycin Susc|"
^XMB(3.9,343,2,7439,0)="7439|93804.0000|Thiacetazone Susc|"
^XMB(3.9,343,2,7440,0)="7440|93805.0000|Natamycin Susc|"
^XMB(3.9,343,2,7441,0)="7441|93806.0000|Itraconaz Susc|"
^XMB(3.9,343,2,7442,0)="7442|93807.0000|Linezolid E-test|"
^XMB(3.9,343,2,7443,0)="7443|93808.0000|Colistin E-test|"
^XMB(3.9,343,2,7444,0)="7444|93809.0000|Quinupristin+Dalfoprist E-test|"
^XMB(3.9,343,2,7445,0)="7445|93810.0000|Tenofovir Susc|"
^XMB(3.9,343,2,7446,0)="7446|93811.0000|Cidofovir Susc|"
^XMB(3.9,343,2,7447,0)="7447|93812.0000|Lopinavir Phenotyp|"
^XMB(3.9,343,2,7448,0)="7448|93813.0000|Tenofovir Phenotyp|"
^XMB(3.9,343,2,7449,0)="7449|93814.0000|Avilamycin KB|"
^XMB(3.9,343,2,7450,0)="7450|93815.0000|Avilamycin MIC|"
^XMB(3.9,343,2,7451,0)="7451|93816.0000|Avilamycin Susc|"
^XMB(3.9,343,2,7452,0)="7452|93817.0000|Cefdinir E-test|"
^XMB(3.9,343,2,7453,0)="7453|93818.0000|Cefdinir KB|"
^XMB(3.9,343,2,7454,0)="7454|93819.0000|Cefditoren KB|"
^XMB(3.9,343,2,7455,0)="7455|93820.0000|Cefditoren E-test|"
^XMB(3.9,343,2,7456,0)="7456|93821.0000|Cefditoren MIC|"
^XMB(3.9,343,2,7457,0)="7457|93822.0000|Cefditoren Susc|"
^XMB(3.9,343,2,7458,0)="7458|93823.0000|Cefepime+Clav E-test|"
^XMB(3.9,343,2,7459,0)="7459|93824.0000|Cefetamet KB|"
^XMB(3.9,343,2,7460,0)="7460|93825.0000|Cefetamet MIC|"
^XMB(3.9,343,2,7461,0)="7461|93826.0000|Cefixime E-test|"
^XMB(3.9,343,2,7462,0)="7462|93827.0000|Cefoperazone E-test|"
^XMB(3.9,343,2,7463,0)="7463|93828.0000|Cefoperazone+Sulbac E-test|"
^XMB(3.9,343,2,7464,0)="7464|93829.0000|Cefotaxime+Clav KB|"
^XMB(3.9,343,2,7465,0)="7465|93830.0000|Cefotaxime+Clav MIC|"
^XMB(3.9,343,2,7466,0)="7466|93831.0000|Cefotaxime+Clav Susc|"
^XMB(3.9,343,2,7467,0)="7467|93832.0000|Cefotiam KB|"
^XMB(3.9,343,2,7468,0)="7468|93833.0000|Cefotiam MIC|"
^XMB(3.9,343,2,7469,0)="7469|93834.0000|Ceftazidime+Clav KB|"
^XMB(3.9,343,2,7470,0)="7470|93835.0000|Ceftazidime+Clav MIC|"
^XMB(3.9,343,2,7471,0)="7471|93836.0000|Ceftazidime+Clav Susc|"
^XMB(3.9,343,2,7472,0)="7472|93837.0000|Ceftibuten KB|"
^XMB(3.9,343,2,7473,0)="7473|93838.0000|Ceftibuten MIC|"
^XMB(3.9,343,2,7474,0)="7474|93839.0000|Ceftibuten Susc|"
^XMB(3.9,343,2,7475,0)="7475|93840.0000|Ceftiofur KB|"
^XMB(3.9,343,2,7476,0)="7476|93841.0000|Ceftiofur MIC|"
^XMB(3.9,343,2,7477,0)="7477|93842.0000|Cefuroxime Oral KB|"
^XMB(3.9,343,2,7478,0)="7478|93843.0000|Cefuroxime Oral Susc|"
^XMB(3.9,343,2,7479,0)="7479|93844.0000|Cephalexin E-test|"
^XMB(3.9,343,2,7480,0)="7480|93845.0000|Clinafloxacin KB|"
^XMB(3.9,343,2,7481,0)="7481|93846.0000|Clinafloxacin MIC|"
^XMB(3.9,343,2,7482,0)="7482|93847.0000|Daptomycin KB|"
^XMB(3.9,343,2,7483,0)="7483|93848.0000|Daptomycin MIC|"
^XMB(3.9,343,2,7484,0)="7484|93849.0000|Daptomycin Susc|"
^XMB(3.9,343,2,7485,0)="7485|93850.0000|Difloxacin KB|"
^XMB(3.9,343,2,7486,0)="7486|93851.0000|Difloxacin MIC|"
^XMB(3.9,343,2,7487,0)="7487|93852.0000|Difloxacin Susc|"
^XMB(3.9,343,2,7488,0)="7488|93853.0000|Dirithromycin KB|"
^XMB(3.9,343,2,7489,0)="7489|93854.0000|Dirithromycin MIC|"
^XMB(3.9,343,2,7490,0)="7490|93855.0000|Dirithromycin Susc|"
^XMB(3.9,343,2,7491,0)="7491|93856.0000|Enrofloxacin E-test|"
^XMB(3.9,343,2,7492,0)="7492|93857.0000|Enrofloxacin KB|"
^XMB(3.9,343,2,7493,0)="7493|93858.0000|Enrofloxacin MIC|"
^XMB(3.9,343,2,7494,0)="7494|93859.0000|Ertapenem KB|"
^XMB(3.9,343,2,7495,0)="7495|93860.0000|Ertapenem E-test|"
^XMB(3.9,343,2,7496,0)="7496|93861.0000|Ertapenem MIC|"
^XMB(3.9,343,2,7497,0)="7497|93862.0000|Ertapenem Susc|"
^XMB(3.9,343,2,7498,0)="7498|93863.0000|Bambermycins KB|"
^XMB(3.9,343,2,7499,0)="7499|93864.0000|Bambermycins MIC|"
^XMB(3.9,343,2,7500,0)="7500|93865.0000|Bambermycins Susc|"
^XMB(3.9,343,2,7501,0)="7501|93866.0000|Fleroxacin KB|"
^XMB(3.9,343,2,7502,0)="7502|93867.0000|Florfenicol KB|"
^XMB(3.9,343,2,7503,0)="7503|93868.0000|Florfenicol MIC|"
^XMB(3.9,343,2,7504,0)="7504|93869.0000|Fosfomycin E-test|"
^XMB(3.9,343,2,7505,0)="7505|93870.0000|Fosfomycin KB|"
^XMB(3.9,343,2,7506,0)="7506|93871.0000|Garenoxacin KB|"
^XMB(3.9,343,2,7507,0)="7507|93872.0000|Garenoxacin MIC|"
^XMB(3.9,343,2,7508,0)="7508|93873.0000|Garenoxacin Susc|"
^XMB(3.9,343,2,7509,0)="7509|93874.0000|Gemifloxacin KB|"
^XMB(3.9,343,2,7510,0)="7510|93875.0000|Gemifloxacin MIC|"
^XMB(3.9,343,2,7511,0)="7511|93876.0000|Gemifloxacin Susc|"
^XMB(3.9,343,2,7512,0)="7512|93877.0000|Gentamicin Synergy E-test|"
^XMB(3.9,343,2,7513,0)="7513|93878.0000|Grepafloxacin KB|"
^XMB(3.9,343,2,7514,0)="7514|93879.0000|Imipenem+EDTA E-test|"
^XMB(3.9,343,2,7515,0)="7515|93880.0000|Isepamicin KB|"
^XMB(3.9,343,2,7516,0)="7516|93881.0000|Isepamicin MIC|"
^XMB(3.9,343,2,7517,0)="7517|93882.0000|Mupirocin KB|"
^XMB(3.9,343,2,7518,0)="7518|93883.0000|Mupirocin MIC|"
^XMB(3.9,343,2,7519,0)="7519|93884.0000|Nystatin KB|"
^XMB(3.9,343,2,7520,0)="7520|93885.0000|Orbifloxacin KB|"
^XMB(3.9,343,2,7521,0)="7521|93886.0000|Orbifloxacin MIC|"
^XMB(3.9,343,2,7522,0)="7522|93887.0000|Orbifloxacin Susc|"
^XMB(3.9,343,2,7523,0)="7523|93888.0000|Pefloxacin KB|"
^XMB(3.9,343,2,7524,0)="7524|93889.0000|Pirlimycin KB|"
^XMB(3.9,343,2,7525,0)="7525|93890.0000|Pirlimycin MIC|"
^XMB(3.9,343,2,7526,0)="7526|93891.0000|Pirlimycin Susc|"
^XMB(3.9,343,2,7527,0)="7527|93892.0000|Polymyxin B E-test|"
^XMB(3.9,343,2,7528,0)="7528|93893.0000|Pristinamycin KB|"
^XMB(3.9,343,2,7529,0)="7529|93894.0000|Pristinamycin MIC|"
^XMB(3.9,343,2,7530,0)="7530|93895.0000|Quinupristin+Dalfoprist KB|"
^XMB(3.9,343,2,7531,0)="7531|93896.0000|Salinomycin KB|"
^XMB(3.9,343,2,7532,0)="7532|93897.0000|Salinomycin MIC|"
^XMB(3.9,343,2,7533,0)="7533|93898.0000|Salinomycin Susc|"
^XMB(3.9,343,2,7534,0)="7534|93899.0000|Sparfloxacin KB|"
^XMB(3.9,343,2,7535,0)="7535|93900.0000|Spectinomycin E-test|"
^XMB(3.9,343,2,7536,0)="7536|93901.0000|Streptomycin High Pot E-test|"
^XMB(3.9,343,2,7537,0)="7537|93902.0000|Sulfonamide E-test|"
^XMB(3.9,343,2,7538,0)="7538|93903.0000|Telithromycin KB|"
^XMB(3.9,343,2,7539,0)="7539|93904.0000|Telithromycin MIC|"
^XMB(3.9,343,2,7540,0)="7540|93905.0000|Telithromycin Susc|"
^XMB(3.9,343,2,7541,0)="7541|93906.0000|Tiamulin KB|"
^XMB(3.9,343,2,7542,0)="7542|93907.0000|Tiamulin MIC|"
^XMB(3.9,343,2,7543,0)="7543|93908.0000|Tiamulin Susc|"
^XMB(3.9,343,2,7544,0)="7544|93909.0000|Tilmicosin KB|"
^XMB(3.9,343,2,7545,0)="7545|93910.0000|Tilmicosin MIC|"
^XMB(3.9,343,2,7546,0)="7546|93911.0000|Tilmicosin Susc|"
^XMB(3.9,343,2,7547,0)="7547|93912.0000|Trospectinomycin KB|"
^XMB(3.9,343,2,7548,0)="7548|93913.0000|Trospectinomycin MIC|"
^XMB(3.9,343,2,7549,0)="7549|93914.0000|Trospectinomycin Susc|"
^XMB(3.9,343,2,7550,0)="7550|93915.0000|Trovafloxacin KB|"
^XMB(3.9,343,2,7551,0)="7551|93916.0000|Tylosin KB|"
^XMB(3.9,343,2,7552,0)="7552|93917.0000|Tylosin MIC|"
^XMB(3.9,343,2,7553,0)="7553|93918.0000|Tylosin Susc|"
^XMB(3.9,343,2,7554,0)="7554|93919.0000|Virginiamycin KB|"
^XMB(3.9,343,2,7555,0)="7555|93920.0000|Virginiamycin MIC|"
^XMB(3.9,343,2,7556,0)="7556|93921.0000|Virginiamycin Susc|"
^XMB(3.9,343,2,7557,0)="7557|93922.0000|Voriconazole E-test|"
^XMB(3.9,343,2,7558,0)="7558|93923.0000|Voriconazole MIC|"
^XMB(3.9,343,2,7559,0)="7559|93924.0000|Penicillin+Novobiocin KB|"
^XMB(3.9,343,2,7560,0)="7560|93925.0000|Penicillin+Novobiocin MIC|"
^XMB(3.9,343,2,7561,0)="7561|93926.0000|Penicillin+Novobiocin Susc|"
^XMB(3.9,343,2,7562,0)="7562|93928.0000|Bact RPT Remark|"
^XMB(3.9,343,2,7563,0)="7563|93929.0000|Parasite RPT Remark|"
^XMB(3.9,343,2,7564,0)="7564|93930.0000|Mycology RPT Remark|"
^XMB(3.9,343,2,7565,0)="7565|93931.0000|TB RPT Remark|"
^XMB(3.9,343,2,7566,0)="7566|93932.0000|Virology RPT Remark|"
^XMB(3.9,343,2,7567,0)="7567|93933.0000|Ova Parasite Exam|"
^XMB(3.9,343,2,7568,0)="7568|93934.0000|Pin Worm Exam|"
^XMB(3.9,343,2,7569,0)="7569|93935.0000|Culture & Sensitivity|"
^XMB(3.9,343,2,7570,0)="7570|93936.0000|Culture Throat|"
^XMB(3.9,343,2,7571,0)="7571|93937.0000|Culture Viral|"
^XMB(3.9,343,2,7572,0)="7572|93938.0000|Culture CMV|"
^XMB(3.9,343,2,7573,0)="7573|93939.0000|Bone Marrow Smear by Flow|"
^XMB(3.9,343,2,7574,0)="7574|93940.0000|Surgical Pathology Tissue Exam|"
^XMB(3.9,343,2,7575,0)="7575|93941.0000|Specimen Tissue Exam|"
^XMB(3.9,343,2,7576,0)="7576|93942.0000|Brief Clin History|"
^XMB(3.9,343,2,7577,0)="7577|93943.0000|Findings Operative|"
^XMB(3.9,343,2,7578,0)="7578|93944.0000|Diagnosis Modified|"
^XMB(3.9,343,2,7579,0)="7579|93945.0000|Organ/Tissue|"
^XMB(3.9,343,2,7580,0)="7580|93946.0000|Diagnosis ICD|"
^XMB(3.9,343,2,7581,0)="7581|93947.0000|Preliminary Comment|"
^XMB(3.9,343,2,7582,0)="7582|93948.0000|Urine Screen|"
^XMB(3.9,343,2,7583,0)="7583|93949.0000|Sputum Screen|"
^XMB(3.9,343,2,7584,0)="7584|93950.0000|Smear/Preparation|"
^XMB(3.9,343,2,7585,0)="7585|93951.0000|Preliminary Comment Parasite|"
^XMB(3.9,343,2,7586,0)="7586|93952.0000|Preliminary Comment Mycology|"
^XMB(3.9,343,2,7587,0)="7587|93953.0000|Quantity|"
^XMB(3.9,343,2,7588,0)="7588|93954.0000|Preliminary Comment Virology|"
^XMB(3.9,343,2,7589,0)="7589|93955.0000|VBECS ABO/RH|"
^XMB(3.9,343,2,7590,0)="7590|93956.0000|VBECS Antibody Screen|"
^XMB(3.9,343,2,7591,0)="7591|93957.0000|VBECS Cryoprecipitate|"
^XMB(3.9,343,2,7592,0)="7592|93958.0000|VBECS Direct Antiglobulin Test|"
^XMB(3.9,343,2,7593,0)="7593|93959.0000|VBECS Fresh Frozen Plasma|"
^XMB(3.9,343,2,7594,0)="7594|93960.0000|VBECS Other|"
^XMB(3.9,343,2,7595,0)="7595|93961.0000|VBECS Platelets|"
^XMB(3.9,343,2,7596,0)="7596|93962.0000|VBECS Red Blood Cells|"
^XMB(3.9,343,2,7597,0)="7597|93963.0000|VBECS Transfusion Reaction Workup|"
^XMB(3.9,343,2,7598,0)="7598|93964.0000|VBECS Type & Screen|"
^XMB(3.9,343,2,7599,0)="7599|93965.0000|VBECS Whole Blood|"
^XMB(3.9,343,2,7600,0)="7600|93966.0000|Bacteria Rpt Date|"
^XMB(3.9,343,2,7601,0)="7601|93967.0000|Bacteria Smear/Prep|"
^XMB(3.9,343,2,7602,0)="7602|93968.0000|Organism|"
^XMB(3.9,343,2,7603,0)="7603|93969.0000|Bacteriology Test|"
^XMB(3.9,343,2,7604,0)="7604|93970.0000|Parasitology Rpt Date|"
^XMB(3.9,343,2,7605,0)="7605|93971.0000|Parasitology Smear/Prep|"
^XMB(3.9,343,2,7606,0)="7606|93972.0000|Parasite Test|"
^XMB(3.9,343,2,7607,0)="7607|93973.0000|Fungus/Yeast|"
^XMB(3.9,343,2,7608,0)="7608|93974.0000|Mycology Test|"
^XMB(3.9,343,2,7609,0)="7609|93975.0000|TB Rpt Date|"
^XMB(3.9,343,2,7610,0)="7610|93976.0000|Mycobacterium|"
^XMB(3.9,343,2,7611,0)="7611|93977.0000|TB Test|"
^XMB(3.9,343,2,7612,0)="7612|93978.0000|Antibiotic Level|"
^XMB(3.9,343,2,7613,0)="7613|93979.0000|Virology Rpt Date|"
^XMB(3.9,343,2,7614,0)="7614|93980.0000|Virus|"
^XMB(3.9,343,2,7615,0)="7615|93981.0000|Virology Test|"
^XMB(3.9,343,2,7616,0)="7616|93982.0000|Sterility Result|"
^XMB(3.9,343,2,7617,0)="7617|93983.0000|MI Mycology Rpt Date|"
^XMB(3.9,343,2,7618,0)="7618|93984.0000|MI Mycology Smear/Prep|"
^XMB(3.9,343,2,7619,0)="7619|93985.0000|AP Brief Clinical History|"
^XMB(3.9,343,2,7620,0)="7620|93986.0000|SP Description|"
^XMB(3.9,343,2,7621,0)="7621|93987.0000|SP Frozen Section|"
^XMB(3.9,343,2,7622,0)="7622|93988.0000|SP Microscopic Description|"
^XMB(3.9,343,2,7623,0)="7623|93989.0000|SP Operative Findings|"
^XMB(3.9,343,2,7624,0)="7624|93990.0000|SP Postoperative Diagnosis|"
^XMB(3.9,343,2,7625,0)="7625|93991.0000|SP Preoperative Diagnosis|"
^XMB(3.9,343,2,7626,0)="7626|93992.0000|SP Supp Report Release D/T|"
^XMB(3.9,343,2,7627,0)="7627|93993.0000|SP Supplementary Report|"
^XMB(3.9,343,2,7628,0)="7628|93994.0000|SP Supplementary Report Modified|"
^XMB(3.9,343,2,7629,0)="7629|93995.0000|SP Surgical Path Diagnosis|"
^XMB(3.9,343,2,7630,0)="7630|93996.0000|SP Person Releasing Supp Rpt|"
^XMB(3.9,343,2,7631,0)="7631|93997.0000|Parasite Stage Quant#|"
^XMB(3.9,343,6,0)="^3.911A^1^1"
^XMB(3.9,343,6,1,0)="G.LMI"
^XMB(3.9,343,6,"B","G.LMI",1)=""
^XMB(3.9,344,0)="DATA UPDATE FOR NDF^NDF MANAGER^3071227.062739"
^XMB(3.9,344,.6)="3071227"
^XMB(3.9,344,1,0)="^3.91A^3^3"
^XMB(3.9,344,1,1,0)="1"
^XMB(3.9,344,1,2,0)="63"
^XMB(3.9,344,1,3,0)="68"
^XMB(3.9,344,1,"C",1,1)=""
^XMB(3.9,344,1,"C",63,2)=""
^XMB(3.9,344,1,"C",68,3)=""
^XMB(3.9,344,2,0)="^^195^195^3071227"
^XMB(3.9,344,2,1,0)=" "
^XMB(3.9,344,2,2,0)="The following VA Products have been added to the National"
^XMB(3.9,344,2,3,0)="Drug File.  You may wish to review, then match or unmatch"
^XMB(3.9,344,2,4,0)="local drug file entries based on this updated information."
^XMB(3.9,344,2,5,0)=" "
^XMB(3.9,344,2,6,0)="   ACTIVELLA 0.5MG/0.1MG TAB,28"
^XMB(3.9,344,2,7,0)="    (CMOP - A1359)           (DISPENSE UNIT - CYCLE)"
^XMB(3.9,344,2,8,0)="     000169-5175-10   "
^XMB(3.9,344,2,9,0)="   ACTIVELLA 1MG/0.5MG TAB,28"
^XMB(3.9,344,2,10,0)="    (CMOP - A1360)           (DISPENSE UNIT - CYCLE)"
^XMB(3.9,344,2,11,0)="     000169-5174-01   000169-5174-02   "
^XMB(3.9,344,2,12,0)="   AEROCHAMBER Z-STAT PLUS"
^XMB(3.9,344,2,13,0)="    (CMOP - XV286)           (DISPENSE UNIT - EA)"
^XMB(3.9,344,2,14,0)="     004351-0797-10   "
^XMB(3.9,344,2,15,0)="   BARRIER,OSTOMY,NEW IMAGE H#14701"
^XMB(3.9,344,2,16,0)="    (CMOP - XV304)           (DISPENSE UNIT - EA)"
^XMB(3.9,344,2,17,0)="     999010-0147-01   "
^XMB(3.9,344,2,18,0)="   BARRIER,OSTOMY,NEW IMAGE H#14702"
^XMB(3.9,344,2,19,0)="    (CMOP - XV287)           (DISPENSE UNIT - EA)"
^XMB(3.9,344,2,20,0)="     999010-0147-02   "
^XMB(3.9,344,2,21,0)="   BARRIER,OSTOMY,NEW IMAGE H#14703"
^XMB(3.9,344,2,22,0)="    (CMOP - XV288)           (DISPENSE UNIT - EA)"
^XMB(3.9,344,2,23,0)="     999010-0147-03   "
^XMB(3.9,344,2,24,0)="   BARRIER,OSTOMY,NEW IMAGE H#14704"
^XMB(3.9,344,2,25,0)="    (CMOP - XV289)           (DISPENSE UNIT - EA)"
^XMB(3.9,344,2,26,0)="     999010-0147-04   "
^XMB(3.9,344,2,27,0)="   BARRIER,OSTOMY,NEW IMAGE H#14705"
^XMB(3.9,344,2,28,0)="    (CMOP - XV294)           (DISPENSE UNIT - EA)"
^XMB(3.9,344,2,29,0)="     999010-0147-05   "
^XMB(3.9,344,2,30,0)="   BARRIER,OSTOMY,NEW IMAGE H#14706"
^XMB(3.9,344,2,31,0)="    (CMOP - XV295)           (DISPENSE UNIT - EA)"
^XMB(3.9,344,2,32,0)="     999010-0147-06   "
^XMB(3.9,344,2,33,0)="   BARRIER,OSTOMY,NEW IMAGE H#14707"
^XMB(3.9,344,2,34,0)="    (CMOP - XV290)           (DISPENSE UNIT - EA)"
^XMB(3.9,344,2,35,0)="     999010-0147-07   "
^XMB(3.9,344,2,36,0)="   BARRIER,OSTOMY,NEW IMAGE H#14708"
^XMB(3.9,344,2,37,0)="    (CMOP - XV293)           (DISPENSE UNIT - EA)"
^XMB(3.9,344,2,38,0)="     999010-0147-08   "
^XMB(3.9,344,2,39,0)="   BARRIER,OSTOMY,NEW IMAGE H#14709"
^XMB(3.9,344,2,40,0)="    (CMOP - XV292)           (DISPENSE UNIT - EA)"
^XMB(3.9,344,2,41,0)="     999010-0147-09   "
^XMB(3.9,344,2,42,0)="   BISMUTH 140MG/METRONIDAZOLE 125MG/TETRACYCLINE 125MG CAP,ORAL"
^XMB(3.9,344,2,43,0)="    (CMOP - B0570)           (DISPENSE UNIT - CAP)"
^XMB(3.9,344,2,44,0)="     058914-0600-21   "
^XMB(3.9,344,2,45,0)="   CARBOXYMETHYLCELLULOSE NA 0.5%/GLYCERIN 0.5% SOLN,OPH"
^XMB(3.9,344,2,46,0)="    (CMOP - C1281)           (DISPENSE UNIT - ML)"
^XMB(3.9,344,2,47,0)="     000023-3240-30   000023-3240-15   "
^XMB(3.9,344,2,48,0)="   CHERRY EXTRACT CAP/TAB"
^XMB(3.9,344,2,49,0)="    (CMOP - C1279)           (DISPENSE UNIT - CAP/TAB)"
^XMB(3.9,344,2,50,0)="     999087-7156-01   "
^XMB(3.9,344,2,51,0)="   CLEANSER,SKINTEGRITY SPRAY,TOP"
^XMB(3.9,344,2,52,0)="    (CMOP - C1280)           (DISPENSE UNIT - ML)"
^XMB(3.9,344,2,53,0)="     053329-0003-89   "
^XMB(3.9,344,2,54,0)="   CLEANSING CLOTH,ADULT"
^XMB(3.9,344,2,55,0)="    (CMOP - XV298)           (DISPENSE UNIT - PKT)"
^XMB(3.9,344,2,56,0)="     908887-9901-01   "
^XMB(3.9,344,2,57,0)="   FLUTICASONE FUROATE 27.5MCG/SPRAY SUSP,NASAL,10GM"
^XMB(3.9,344,2,58,0)="    (CMOP - F0392)           (DISPENSE UNIT - INHALER)"
^XMB(3.9,344,2,59,0)="     000173-0753-01   "
^XMB(3.9,344,2,60,0)="   HYALURONATE NA (HYALGAN) 10MG/ML INJ,SYRINGE,2ML"
^XMB(3.9,344,2,61,0)="    (CMOP - H0519)           (DISPENSE UNIT - SYR)"
^XMB(3.9,344,2,62,0)="     008024-0724-20   "
^XMB(3.9,344,2,63,0)="   HYALURONATE NA (HYALGAN) 10MG/ML INJ,VIAL,2ML"
^XMB(3.9,344,2,64,0)="    (CMOP - H0520)           (DISPENSE UNIT - VI)"
^XMB(3.9,344,2,65,0)="     008024-0724-12   "
^XMB(3.9,344,2,66,0)="   ILOPROST 10MCG/ML INHL,ORAL,1ML"
^XMB(3.9,344,2,67,0)="    (CMOP - I0450)           (DISPENSE UNIT - EA)"
^XMB(3.9,344,2,68,0)="     010148-0102-00   "
^XMB(3.9,344,2,69,0)="   LEVALBUTEROL HCL 2.5MG/ML SOLN,INHL,0.5ML"
^XMB(3.9,344,2,70,0)="    (CMOP - L0394)           (DISPENSE UNIT - VI)"
^XMB(3.9,344,2,71,0)="     063402-0515-30   "
^XMB(3.9,344,2,72,0)="   LEVOCARNITINE 1GM/10ML (SF) LIQUID"
^XMB(3.9,344,2,73,0)="    (CMOP - L0393)           (DISPENSE UNIT - ML)"
^XMB(3.9,344,2,74,0)="     054482-0148-01   "
^XMB(3.9,344,2,75,0)="   LIDOCAINE 2.5%/PRILOCAINE 2.5% GEL,DENT"
^XMB(3.9,344,2,76,0)="    (CMOP - L0395)           (DISPENSE UNIT - GM)"
^XMB(3.9,344,2,77,0)="     066312-0110-20   "
^XMB(3.9,344,2,78,0)="   MESALAMINE 1200MG TAB,EC"
^XMB(3.9,344,2,79,0)="    (CMOP - M0731)           (DISPENSE UNIT - TAB)"
^XMB(3.9,344,2,80,0)="     054092-0476-12   "
^XMB(3.9,344,2,81,0)="   MULTIVITAMIN,W/VIT-K INJ"
^XMB(3.9,344,2,82,0)="    (CMOP - M0730)           (DISPENSE UNIT - ML)"
^XMB(3.9,344,2,83,0)="     061703-0422-83   "
^XMB(3.9,344,2,84,0)="   MULTIVITAMIN/MINERALS HERBAL,IMMUNITY CAP/TAB"
^XMB(3.9,344,2,85,0)="    (CMOP - M0732)           (DISPENSE UNIT - CAP/TAB)"
^XMB(3.9,344,2,86,0)="     990125-6245-01   "
^XMB(3.9,344,2,87,0)="   MULTIVITAMINS,HERBAL,FATTY ACID FORMULA CAP/TAB"
^XMB(3.9,344,2,88,0)="    (CMOP - M0733)           (DISPENSE UNIT - CAP/TAB)"
^XMB(3.9,344,2,89,0)="     999012-2564-01   "
^XMB(3.9,344,2,90,0)="   NEBULIZER,ISO-NEB FILTER MAIN FLOW LATEX FREE HUDSON #1605"
^XMB(3.9,344,2,91,0)="    (CMOP - XV297)           (DISPENSE UNIT - EA)"
^XMB(3.9,344,2,92,0)="     000136-1605-01   "
^XMB(3.9,344,2,93,0)="   NEBULIZER,ISO-NEB FILTER SYSTEM HUDSON #1755"
^XMB(3.9,344,2,94,0)="    (CMOP - XV296)           (DISPENSE UNIT - EA)"
^XMB(3.9,344,2,95,0)="     000136-1755-01   "
^XMB(3.9,344,2,96,0)="   NIACIN (NIASPAN) 1000MG TAB,SA"
^XMB(3.9,344,2,97,0)="    (CMOP - N0560)           (DISPENSE UNIT - TAB)"
^XMB(3.9,344,2,98,0)="     060598-0003-01   060598-0142-01   "
^XMB(3.9,344,2,99,0)="   NIACIN (NIASPAN) 500MG TAB,SA"
^XMB(3.9,344,2,100,0)="    (CMOP - N0558)           (DISPENSE UNIT - TAB)"
^XMB(3.9,344,2,101,0)="     060598-0001-01   060598-0140-01   "
^XMB(3.9,344,2,102,0)="   NIACIN (NIASPAN) 750MG TAB,SA"
^XMB(3.9,344,2,103,0)="    (CMOP - N0559)           (DISPENSE UNIT - TAB)"
^XMB(3.9,344,2,104,0)="     060598-0002-01   060598-0141-01   "
^XMB(3.9,344,2,105,0)="   POLYETHYLENE GLYCOL 3350 17GM/PKT PWDR,ORAL"
^XMB(3.9,344,2,106,0)="    (CMOP - P0834)           (DISPENSE UNIT - PKT)"
^XMB(3.9,344,2,107,0)="     052268-0800-05   062175-0442-14   "
^XMB(3.9,344,2,108,0)="   POUCH,DRAINABLE,NEW IMAGE H#18192"
^XMB(3.9,344,2,109,0)="    (CMOP - XV301)           (DISPENSE UNIT - EA)"
^XMB(3.9,344,2,110,0)="     008380-0181-92   "
^XMB(3.9,344,2,111,0)="   POUCH,DRAINABLE,NEW IMAGE H#18193"
^XMB(3.9,344,2,112,0)="    (CMOP - XV302)           (DISPENSE UNIT - EA)"
^XMB(3.9,344,2,113,0)="     008380-0181-93   "
^XMB(3.9,344,2,114,0)="   POUCH,DRAINABLE,NEW IMAGE H#18194"
^XMB(3.9,344,2,115,0)="    (CMOP - XV303)           (DISPENSE UNIT - EA)"
^XMB(3.9,344,2,116,0)="     008380-0181-94   "
^XMB(3.9,344,2,117,0)="   POUCH,DRAINABLE,SUR-FIT C#4114-90"
^XMB(3.9,344,2,118,0)="    (CMOP - XV299)           (DISPENSE UNIT - EA)"
^XMB(3.9,344,2,119,0)="     900041-1490-01   "
^XMB(3.9,344,2,120,0)="   PRO-STAT PROFILE LIQUID,ORAL,30ML"
^XMB(3.9,344,2,121,0)="    (CMOP - P0833)           (DISPENSE UNIT - EA)"
^XMB(3.9,344,2,122,0)="     026974-0410-21   "
^XMB(3.9,344,2,123,0)="   PRO-STAT PROFILE LIQUID,ORAL"
^XMB(3.9,344,2,124,0)="    (CMOP - P0832)           (DISPENSE UNIT - ML)"
^XMB(3.9,344,2,125,0)="     026974-0410-12   "
^XMB(3.9,344,2,126,0)="   RISPERIDONE 12.5MG/VIL INJ,SUSP,SA"
^XMB(3.9,344,2,127,0)="    (CMOP - R0216)           (DISPENSE UNIT - VI)"
^XMB(3.9,344,2,128,0)="     050458-0309-11   "
^XMB(3.9,344,2,129,0)="   ROTIGOTINE 2MG/24HRS PATCH"
^XMB(3.9,344,2,130,0)="    (CMOP - R0217)           (DISPENSE UNIT - PATCH)"
^XMB(3.9,344,2,131,0)="     000091-6486-21   000091-6486-01   "
^XMB(3.9,344,2,132,0)="   ROTIGOTINE 4MG/24HRS PATCH"
^XMB(3.9,344,2,133,0)="    (CMOP - R0218)           (DISPENSE UNIT - PATCH)"
^XMB(3.9,344,2,134,0)="     000091-6487-21   000091-6487-01   "
^XMB(3.9,344,2,135,0)="   ROTIGOTINE 6MG/24HRS PATCH"
^XMB(3.9,344,2,136,0)="    (CMOP - R0219)           (DISPENSE UNIT - PATCH)"
^XMB(3.9,344,2,137,0)="     000091-6488-21   000091-6488-01   "
^XMB(3.9,344,2,138,0)="   SEASONIQUE 30MCG/0.15MG TAB,EC,91"
^XMB(3.9,344,2,139,0)="    (CMOP - S0527)           (DISPENSE UNIT - CYCLE)"
^XMB(3.9,344,2,140,0)="     051285-0087-87   "
^XMB(3.9,344,2,141,0)="   SET,INFUSION MINIMED #MMT-318"
^XMB(3.9,344,2,142,0)="    (CMOP - XV285)           (DISPENSE UNIT - EA)"
^XMB(3.9,344,2,143,0)="     076300-0318-00   "
^XMB(3.9,344,2,144,0)="   SKIN BARRIER WIPE TENS CLEAN-COTE"
^XMB(3.9,344,2,145,0)="    (CMOP - XV300)           (DISPENSE UNIT - EA)"
^XMB(3.9,344,2,146,0)="     900887-7100-00   "
^XMB(3.9,344,2,147,0)="   ZOLEDRONIC ACID 5MG/BTL INJ,100ML"
^XMB(3.9,344,2,148,0)="    (CMOP - Z0076)           (DISPENSE UNIT - BTL)"
^XMB(3.9,344,2,149,0)="     000078-0435-61   "
^XMB(3.9,344,2,150,0)=" "
^XMB(3.9,344,2,151,0)="The National Formulary Indicator has changed for the following"
^XMB(3.9,344,2,152,0)="VA Products.  The National Formulary Indicator will automatically"
^XMB(3.9,344,2,153,0)="be changed in your local DRUG file (#50).  Please review the"
^XMB(3.9,344,2,154,0)="VISN and Local Formulary designations of these products and"
^XMB(3.9,344,2,155,0)="make appropriate changes."
^XMB(3.9,344,2,156,0)=" "
^XMB(3.9,344,2,157,0)="FORMULARY ITEMS"
^XMB(3.9,344,2,158,0)="   ADEFOVIR DIPIVOXIL 10MG TAB"
^XMB(3.9,344,2,159,0)="   BISOPROLOL FUMARATE 10MG TAB"
^XMB(3.9,344,2,160,0)="   BISOPROLOL FUMARATE 5MG TAB"
^XMB(3.9,344,2,161,0)="   CLEANSER,SKINTEGRITY SPRAY,TOP"
^XMB(3.9,344,2,162,0)="   DAPTOMYCIN 250MG/VIL INJ"
^XMB(3.9,344,2,163,0)="   DAPTOMYCIN 500MG/VIL INJ"
^XMB(3.9,344,2,164,0)="   NIACIN (NIASPAN) 1000MG TAB,SA"
^XMB(3.9,344,2,165,0)="   NIACIN (NIASPAN) 500MG TAB,SA"
^XMB(3.9,344,2,166,0)="   NIACIN (NIASPAN) 750MG TAB,SA"
^XMB(3.9,344,2,167,0)="   PAPILLOMAVIRUS HUMAN QUADRIVALENT VACCINE INJ"
^XMB(3.9,344,2,168,0)="   PAPILLOMAVIRUS HUMAN QUADRIVALENT VACCINE INJ,SYRINGE,0.5ML"
^XMB(3.9,344,2,169,0)="   POLYETHYLENE GLYCOL 1000"
^XMB(3.9,344,2,170,0)="   POLYETHYLENE GLYCOL 3350 17GM/PKT PWDR,ORAL"
^XMB(3.9,344,2,171,0)="   RISPERIDONE 12.5MG/VIL INJ,SUSP,SA"
^XMB(3.9,344,2,172,0)=" "
^XMB(3.9,344,2,173,0)="NON-FORMULARY ITEMS"
^XMB(3.9,344,2,174,0)="   LEVALBUTEROL TARTRATE 59MCG/SPRAY INHL,ORAL,15GM"
^XMB(3.9,344,2,175,0)="   NITROFURANTOIN MACROCRYSTALLINE 100MG CAP"
^XMB(3.9,344,2,176,0)="   NITROFURANTOIN MACROCRYSTALLINE 25MG CAP"
^XMB(3.9,344,2,177,0)="   NITROFURANTOIN MACROCRYSTALLINE 50MG CAP"
^XMB(3.9,344,2,178,0)="   NITROFURANTOIN MACROCRYSTALLINE 50MG CAP,UD"
^XMB(3.9,344,2,179,0)="   TACRINE HCL 10MG CAP"
^XMB(3.9,344,2,180,0)="   TACRINE HCL 20MG CAP"
^XMB(3.9,344,2,181,0)="   TACRINE HCL 30MG CAP"
^XMB(3.9,344,2,182,0)="   TACRINE HCL 40MG CAP"
^XMB(3.9,344,2,183,0)=" "
^XMB(3.9,344,2,184,0)="The following active VA Products are no longer marked for CMOP."
^XMB(3.9,344,2,185,0)="All local drug file entries matched to these VA Products will"
^XMB(3.9,344,2,186,0)="be UNMARKED for CMOP.  In order to have these entries dispensed"
^XMB(3.9,344,2,187,0)="by CMOP any local DRUG file (#50) entries matched to these"
^XMB(3.9,344,2,188,0)="products must be re-matched to another VA product that is actively"
^XMB(3.9,344,2,189,0)="marked for CMOP dispensing."
^XMB(3.9,344,2,190,0)=" "
^XMB(3.9,344,2,191,0)="   CLOZAPINE (FAZACLO) 100MG TAB,UD,RAPID DISINTEGRATING    C1193"
^XMB(3.9,344,2,192,0)="   CLOZAPINE (FAZACLO) 25MG TAB,UD,RAPID DISINTEGRATING    C1200"
^XMB(3.9,344,2,193,0)="   CLOZAPINE (IVAX) 12.5MG TAB    C1146"
^XMB(3.9,344,2,194,0)="   CLOZAPINE (TEVA) 25MG TAB    C1220"
^XMB(3.9,344,2,195,0)="   ZOSTER VACCINE LIVE (OKA/MERCK) INJ    Z0072"
^XMB(3.9,344,6,0)="^3.911A^3^3"
^XMB(3.9,344,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,344,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,344,6,3,0)="ORMSBY,SKIP"
^XMB(3.9,344,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,344,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,344,6,"B","ORMSBY,SKIP",3)=""
^XMB(3.9,345,0)="UPDATED INTERACTIONS^NDF MANAGER^3071227.062739"
^XMB(3.9,345,.6)="3071227"
^XMB(3.9,345,1,0)="^3.91A^3^3"
^XMB(3.9,345,1,1,0)="1"
^XMB(3.9,345,1,2,0)="63"
^XMB(3.9,345,1,3,0)="68"
^XMB(3.9,345,1,"C",1,1)=""
^XMB(3.9,345,1,"C",63,2)=""
^XMB(3.9,345,1,"C",68,3)=""
^XMB(3.9,345,2,0)="^^45^45^3071227"
^XMB(3.9,345,2,1,0)="The following interactions in National Drug File (NDF) have been added,"
^XMB(3.9,345,2,2,0)="edited or inactivated.  These changes are the result of review and"
^XMB(3.9,345,2,3,0)="recommendations from the NDF support group."
^XMB(3.9,345,2,4,0)=" "
^XMB(3.9,345,2,5,0)="ADDED INTERACTIONS"
^XMB(3.9,345,2,6,0)=" "
^XMB(3.9,345,2,7,0)="   CYCLOPHOSPHAMIDE/NATALIZUMAB                       Critical"
^XMB(3.9,345,2,8,0)="   CYCLOSPORINE/SOMATROPIN                            Critical"
^XMB(3.9,345,2,9,0)="   DACLIZUMAB/NATALIZUMAB                             Critical"
^XMB(3.9,345,2,10,0)="   DESOGESTREL/FOSAMPRENAVIR                          Critical"
^XMB(3.9,345,2,11,0)="   DOXEPIN/LINEZOLID                                  Significant"
^XMB(3.9,345,2,12,0)="   ETHINYL ESTRADIOL/FOSAMPRENAVIR                    Critical"
^XMB(3.9,345,2,13,0)="   FLECAINIDE/FLUOXETINE                              Significant"
^XMB(3.9,345,2,14,0)="   FLUOXETINE/VINBLASTINE                             Significant"
^XMB(3.9,345,2,15,0)=" "
^XMB(3.9,345,2,16,0)="EDITED INTERACTIONS"
^XMB(3.9,345,2,17,0)=" "
^XMB(3.9,345,2,18,0)="   TRANYLCYPROMINE/ZOLMITRIPTAN                       Critical"
^XMB(3.9,345,2,19,0)=" "
^XMB(3.9,345,2,20,0)="INACTIVATED INTERACTIONS"
^XMB(3.9,345,2,21,0)=" "
^XMB(3.9,345,2,22,0)="   VARDENAFIL/ZIPRASIDONE                             Significant"
^XMB(3.9,345,2,23,0)=" "
^XMB(3.9,345,2,24,0)="The following products have been flagged for exclusion from drug-drug"
^XMB(3.9,345,2,25,0)="interaction checks."
^XMB(3.9,345,2,26,0)=" "
^XMB(3.9,345,2,27,0)="AEROCHAMBER Z-STAT PLUS"
^XMB(3.9,345,2,28,0)="BARRIER,OSTOMY,NEW IMAGE H#14701"
^XMB(3.9,345,2,29,0)="BARRIER,OSTOMY,NEW IMAGE H#14702"
^XMB(3.9,345,2,30,0)="BARRIER,OSTOMY,NEW IMAGE H#14703"
^XMB(3.9,345,2,31,0)="BARRIER,OSTOMY,NEW IMAGE H#14704"
^XMB(3.9,345,2,32,0)="BARRIER,OSTOMY,NEW IMAGE H#14705"
^XMB(3.9,345,2,33,0)="BARRIER,OSTOMY,NEW IMAGE H#14706"
^XMB(3.9,345,2,34,0)="BARRIER,OSTOMY,NEW IMAGE H#14707"
^XMB(3.9,345,2,35,0)="BARRIER,OSTOMY,NEW IMAGE H#14708"
^XMB(3.9,345,2,36,0)="BARRIER,OSTOMY,NEW IMAGE H#14709"
^XMB(3.9,345,2,37,0)="CLEANSER,SKINTEGRITY SPRAY,TOP"
^XMB(3.9,345,2,38,0)="CLEANSING CLOTH,ADULT"
^XMB(3.9,345,2,39,0)="NEBULIZER,ISO-NEB FILTER SYSTEM HUDSON #1755"
^XMB(3.9,345,2,40,0)="NONOXYNOL 1GM SPONGE,VAG"
^XMB(3.9,345,2,41,0)="POUCH,DRAINABLE,NEW IMAGE H#18192"
^XMB(3.9,345,2,42,0)="POUCH,DRAINABLE,NEW IMAGE H#18194"
^XMB(3.9,345,2,43,0)="POUCH,DRAINABLE,SUR-FIT C#4114-90"
^XMB(3.9,345,2,44,0)="SET,INFUSION MINIMED #MMT-318"
^XMB(3.9,345,2,45,0)="SKIN BARRIER WIPE TENS CLEAN-COTE"
^XMB(3.9,345,6,0)="^3.911A^3^3"
^XMB(3.9,345,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,345,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,345,6,3,0)="ORMSBY,SKIP"
^XMB(3.9,345,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,345,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,345,6,"B","ORMSBY,SKIP",3)=""
^XMB(3.9,346,0)="DRUGS UNMATCHED FROM NATIONAL DRUG FILE^NDF MANAGER^3071227.062746^^^^P"
^XMB(3.9,346,.6)="3071227"
^XMB(3.9,346,1,0)="^3.91A^3^3"
^XMB(3.9,346,1,1,0)="1^0^3071227.062938^^^^^^1^3071227.062938"
^XMB(3.9,346,1,2,0)="63"
^XMB(3.9,346,1,3,0)="68"
^XMB(3.9,346,1,"C",1,1)=""
^XMB(3.9,346,1,"C",63,2)=""
^XMB(3.9,346,1,"C",68,3)=""
^XMB(3.9,346,2,0)="^^63^63^3071227"
^XMB(3.9,346,2,1,0)=" "
^XMB(3.9,346,2,2,0)="The following active entries in your DRUG file (#50) have been"
^XMB(3.9,346,2,3,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,346,2,4,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,346,2,5,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,346,2,6,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,346,2,7,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,346,2,8,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,346,2,9,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,346,2,10,0)="products immediately.  You may also need to match a new"
^XMB(3.9,346,2,11,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,346,2,12,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,346,2,13,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,346,2,14,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,346,2,15,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,346,2,16,0)="matching process."
^XMB(3.9,346,2,17,0)=" "
^XMB(3.9,346,2,18,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,346,2,19,0)="                                                                    DATE"
^XMB(3.9,346,2,20,0)=" "
^XMB(3.9,346,2,21,0)="  NONE"
^XMB(3.9,346,2,22,0)=" "
^XMB(3.9,346,2,23,0)="The following investigational entries in your DRUG file (#50) have been"
^XMB(3.9,346,2,24,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,346,2,25,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,346,2,26,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,346,2,27,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,346,2,28,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,346,2,29,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,346,2,30,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,346,2,31,0)="products immediately.  You may also need to match a new"
^XMB(3.9,346,2,32,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,346,2,33,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,346,2,34,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,346,2,35,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,346,2,36,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,346,2,37,0)="matching process."
^XMB(3.9,346,2,38,0)=" "
^XMB(3.9,346,2,39,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,346,2,40,0)="                                                                    DATE"
^XMB(3.9,346,2,41,0)=" "
^XMB(3.9,346,2,42,0)="  NONE"
^XMB(3.9,346,2,43,0)=" "
^XMB(3.9,346,2,44,0)="The following inactive entries in your DRUG file (#50) have been"
^XMB(3.9,346,2,45,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,346,2,46,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,346,2,47,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,346,2,48,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,346,2,49,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,346,2,50,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,346,2,51,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,346,2,52,0)="products immediately.  You may also need to match a new"
^XMB(3.9,346,2,53,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,346,2,54,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,346,2,55,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,346,2,56,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,346,2,57,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,346,2,58,0)="matching process."
^XMB(3.9,346,2,59,0)=" "
^XMB(3.9,346,2,60,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,346,2,61,0)="                                                                    DATE"
^XMB(3.9,346,2,62,0)=" "
^XMB(3.9,346,2,63,0)="  NONE"
^XMB(3.9,346,6,0)="^3.911A^3^3"
^XMB(3.9,346,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,346,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,346,6,3,0)="ORMSBY,SKIP"
^XMB(3.9,346,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,346,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,346,6,"B","ORMSBY,SKIP",3)=""
^XMB(3.9,347,0)="INTERACTIONS and ALLERGIES UPDATED^NDF MANAGER^3071227.062816"
^XMB(3.9,347,.6)="3071227"
^XMB(3.9,347,1,0)="^3.91A^3^3"
^XMB(3.9,347,1,1,0)="1"
^XMB(3.9,347,1,2,0)="63"
^XMB(3.9,347,1,3,0)="68"
^XMB(3.9,347,1,"C",1,1)=""
^XMB(3.9,347,1,"C",63,2)=""
^XMB(3.9,347,1,"C",68,3)=""
^XMB(3.9,347,2,0)="^^8^8^3071227"
^XMB(3.9,347,2,1,0)=" "
^XMB(3.9,347,2,2,0)="No DRUG INTERACTIONS were updated due to Primary Ingredients being"
^XMB(3.9,347,2,3,0)="changed to Non-Primary ingredients in the Data Update."
^XMB(3.9,347,2,4,0)=" "
^XMB(3.9,347,2,5,0)=" "
^XMB(3.9,347,2,6,0)="No PATIENT ALLERGIES were updated due to Primary Ingredients being"
^XMB(3.9,347,2,7,0)="changed to Non-Primary ingredients during the Data Update."
^XMB(3.9,347,2,8,0)=" "
^XMB(3.9,347,6,0)="^3.911A^3^3"
^XMB(3.9,347,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,347,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,347,6,3,0)="ORMSBY,SKIP"
^XMB(3.9,347,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,347,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,347,6,"B","ORMSBY,SKIP",3)=""
^XMB(3.9,348,0)="CHECK FOR MED ROUTE ABBREVIATIONS COMPLETE^MANAGEMENT,PHARMACY DATA^3071227.063201"
^XMB(3.9,348,.6)="3071227"
^XMB(3.9,348,1,0)="^3.91A^1^1"
^XMB(3.9,348,1,1,0)="1"
^XMB(3.9,348,1,"C",1,1)=""
^XMB(3.9,348,2,0)="^^33^33^3071227"
^XMB(3.9,348,2,1,0)="  The check of Med Route abbreviations completed as of DEC 27,2007@06:32:01."
^XMB(3.9,348,2,2,0)=" "
^XMB(3.9,348,2,3,0)="The following abbreviations contain IV, ID, IM, SC or SQ. Please update the"
^XMB(3.9,348,2,4,0)="Injection Site prompt if appropriate."
^XMB(3.9,348,2,5,0)=" "
^XMB(3.9,348,2,6,0)="IV, IM, SC, ID, MISC, IS IM, ISY IA IM, ISY MISCIM, ISY ORALIM, "
^XMB(3.9,348,2,7,0)="IV IAER, IV IAERIC, IV IM, IV IM ITRC, IV IM SC, IV INH MISC, "
^XMB(3.9,348,2,8,0)="IV MISC, IV ORAL, IV ORALVAG, IV SC, IV SC IM, IV TOP, MISCIM ISY, "
^XMB(3.9,348,2,9,0)="MISCIM IV, MISCORAL, MISCTOP, MISCTOP IF, ORALID PER, ORALIM, "
^XMB(3.9,348,2,10,0)="ORALIV, ORALMISCIM, SC ED CAUD, SC ID, SC ID IM, SC IM, "
^XMB(3.9,348,2,11,0)="SC IM ID, SC IM IV, SC IV, SC IV IM, SC MISC, SC TOP ORAL, "
^XMB(3.9,348,2,12,0)="TOP IF MISC, TOP MISC, TOP MISCIF, TOP SC MISC, URH IV IAER, "
^XMB(3.9,348,2,13,0)="DENTALIM, ED CAUDSC, IA IM, IA IM IV, IA ISY IM, IC IA IV, "
^XMB(3.9,348,2,14,0)="ICAVINTHMISC, ID IM, ID IM SC, ID SC, IF TOP MISC, IM IA, "
^XMB(3.9,348,2,15,0)="IM IA ISY, IM ID IA, IM ID SC, IM INHL, IM ISY, IM ISY MISC, "
^XMB(3.9,348,2,16,0)="IM ISY SC, IM IV, IM IV IA, IM IV ID, IM IV IP, IM IV SC, "
^XMB(3.9,348,2,17,0)="IM SC, IM SC ID, IM SC IV, IM SC MISC, INHLIV, INHLMISC, "
^XMB(3.9,348,2,18,0)="INTHIM IV, SQ, IMP, IVPB, IV SC INTH, CAUDED MISC, CAUDSC IF, "
^XMB(3.9,348,2,19,0)="DENTSC, DENTSC IF, ED IF IV, ED SC IF, IA ID, IA IM MISC, "
^XMB(3.9,348,2,20,0)="IA IM IL, IA IM SC, IA ISY ID, IA MISC, IAERIV ICAV, IAERIV IM, "
^XMB(3.9,348,2,21,0)="IAERIV SC, IC IM IV, IC IV, IC SC IM, ICLGIA IM, IF ED IM, "
^XMB(3.9,348,2,22,0)="IF IM, IF IV, IF MISC, IF MISCIM, IF MISCSC, IF SC, IF SC IM, "
^XMB(3.9,348,2,23,0)="IM IA ISY ID, IM ICAVISY, IM ISY INTH, IM ISY IV, IM IV IAER INTH, "
^XMB(3.9,348,2,24,0)="IM IV IU, IM MISC, IM SC IU, INTHIV, IS IL IM, ISY IC IM, "
^XMB(3.9,348,2,25,0)="ISY MISCIA, IV IA, IV IAERIA, IV ID SC, IV IF MISC, IV INTHED, "
^XMB(3.9,348,2,26,0)="IV IP, IT IV IA, IV IU, IV MISCTOP, IV ORALURH, SC MISCTOP, "
^XMB(3.9,348,2,27,0)="MISCDENT, MISCIV SC, MISCSC IS, MISCURH, SC IA, IM PO SC, "
^XMB(3.9,348,2,28,0)="PO SC, "
^XMB(3.9,348,2,29,0)=""
^XMB(3.9,348,2,30,0)="The following Med Routes may need to be displayed on the IVP/IVPB tab."
^XMB(3.9,348,2,31,0)="Please update the DSPLY ON IVP/IVPB TAB IN BCMA? information appropriately."
^XMB(3.9,348,2,32,0)=""
^XMB(3.9,348,2,33,0)=""
^XMB(3.9,348,6,0)="^3.911A^1^1"
^XMB(3.9,348,6,1,0)="ORMSBY,SKIP"
^XMB(3.9,348,6,"B","ORMSBY,SKIP",1)=""
^XMB(3.9,349,0)="DATA UPDATE FOR NDF^NDF MANAGER^3071227.101017"
^XMB(3.9,349,.6)="3071227"
^XMB(3.9,349,1,0)="^3.91A^3^3"
^XMB(3.9,349,1,1,0)="1"
^XMB(3.9,349,1,2,0)="63"
^XMB(3.9,349,1,3,0)="68"
^XMB(3.9,349,1,"C",1,1)=""
^XMB(3.9,349,1,"C",63,2)=""
^XMB(3.9,349,1,"C",68,3)=""
^XMB(3.9,349,2,0)="^^236^236^3071227"
^XMB(3.9,349,2,1,0)=" "
^XMB(3.9,349,2,2,0)="The following VA Products have been added to the National"
^XMB(3.9,349,2,3,0)="Drug File.  You may wish to review, then match or unmatch"
^XMB(3.9,349,2,4,0)="local drug file entries based on this updated information."
^XMB(3.9,349,2,5,0)=" "
^XMB(3.9,349,2,6,0)="   ADALIMUMAB 40MG/0.8ML INJ,PEN,CROHNS STARTER PKG,6"
^XMB(3.9,349,2,7,0)="    (CMOP - A1367)           (DISPENSE UNIT - PKG)"
^XMB(3.9,349,2,8,0)="     000074-4339-06   "
^XMB(3.9,349,2,9,0)="   AMBRISENTAN 10MG TAB"
^XMB(3.9,349,2,10,0)="    (CMOP - A1365)           (DISPENSE UNIT - TAB)"
^XMB(3.9,349,2,11,0)="     061958-0802-02   "
^XMB(3.9,349,2,12,0)="   AMBRISENTAN 5MG TAB"
^XMB(3.9,349,2,13,0)="    (CMOP - A1364)           (DISPENSE UNIT - TAB)"
^XMB(3.9,349,2,14,0)="     061958-0801-02   "
^XMB(3.9,349,2,15,0)="   AMERIGEL BARRIER LOTION"
^XMB(3.9,349,2,16,0)="    (CMOP - A1370)           (DISPENSE UNIT - GM)"
^XMB(3.9,349,2,17,0)="     061470-1016-74   "
^XMB(3.9,349,2,18,0)="   AMERIGEL CARE LOTION"
^XMB(3.9,349,2,19,0)="    (CMOP - A1369)           (DISPENSE UNIT - GM)"
^XMB(3.9,349,2,20,0)="     061470-1015-75   "
^XMB(3.9,349,2,21,0)="   AMERIGEL SALINE WOUND WASH"
^XMB(3.9,349,2,22,0)="    (CMOP - A1371)           (DISPENSE UNIT - ML)"
^XMB(3.9,349,2,23,0)="     061470-1017-80   061470-1017-42   "
^XMB(3.9,349,2,24,0)="   AMERIGEL WOUND DRESSING GEL"
^XMB(3.9,349,2,25,0)="    (CMOP - A1368)           (DISPENSE UNIT - GM)"
^XMB(3.9,349,2,26,0)="     061470-2002-16   "
^XMB(3.9,349,2,27,0)="   ARMODAFINIL 150MG TAB"
^XMB(3.9,349,2,28,0)="    (CMOP - A1362)           (DISPENSE UNIT - TAB)"
^XMB(3.9,349,2,29,0)="     063459-0215-60   "
^XMB(3.9,349,2,30,0)="   ARMODAFINIL 250MG TAB"
^XMB(3.9,349,2,31,0)="    (CMOP - A1363)           (DISPENSE UNIT - TAB)"
^XMB(3.9,349,2,32,0)="     063459-0225-60   "
^XMB(3.9,349,2,33,0)="   ARMODAFINIL 50MG TAB"
^XMB(3.9,349,2,34,0)="    (CMOP - A1361)           (DISPENSE UNIT - TAB)"
^XMB(3.9,349,2,35,0)="     063459-0205-60   "
^XMB(3.9,349,2,36,0)="   BARIUM SO4 1.3% SUSP"
^XMB(3.9,349,2,37,0)="    (CMOP - B0571)           (DISPENSE UNIT - ML)"
^XMB(3.9,349,2,38,0)="     032909-0728-01   "
^XMB(3.9,349,2,39,0)="   BARRIER,ADAPT STRIPS H#79400"
^XMB(3.9,349,2,40,0)="    (CMOP - XV311)           (DISPENSE UNIT - EA)"
^XMB(3.9,349,2,41,0)="     008380-0794-00   "
^XMB(3.9,349,2,42,0)="   BELT,SUPPORT 7IN RIGHT XX-LARGE NU-HOPE #6449 SP"
^XMB(3.9,349,2,43,0)="    (CMOP - XV313)           (DISPENSE UNIT - EA)"
^XMB(3.9,349,2,44,0)="     999999-0644-49   "
^XMB(3.9,349,2,45,0)="   BUDESONIDE 160MCG/FORMOTEROL FUM 4.5MCG/SPRAY INHL,ORAL,10.2GM"
^XMB(3.9,349,2,46,0)="    (CMOP - B0574)           (DISPENSE UNIT - INHALER)"
^XMB(3.9,349,2,47,0)="     000186-0370-20   "
^XMB(3.9,349,2,48,0)="   BUDESONIDE 80MCG/FORMOTEROL FUM 4.5MCG/SPRAY INHL,ORAL,10.2GM"
^XMB(3.9,349,2,49,0)="    (CMOP - B0575)           (DISPENSE UNIT - INHALER)"
^XMB(3.9,349,2,50,0)="     000186-0372-20   "
^XMB(3.9,349,2,51,0)="   CASTOR OIL 788MG/PERUVIAN BALSAM 87MG/TRYPSIN 90U AEROSOL,TOP"
^XMB(3.9,349,2,52,0)="    (CMOP - C0938)           (DISPENSE UNIT - ML)"
^XMB(3.9,349,2,53,0)="   CERAVE CREAM,TOP"
^XMB(3.9,349,2,54,0)="    (CMOP - C1282)           (DISPENSE UNIT - GM)"
^XMB(3.9,349,2,55,0)="     000644-0022-16   "
^XMB(3.9,349,2,56,0)="   CERAVE LIQUID,TOP"
^XMB(3.9,349,2,57,0)="    (CMOP - C1283)           (DISPENSE UNIT - ML)"
^XMB(3.9,349,2,58,0)="     000644-0020-12   "
^XMB(3.9,349,2,59,0)="   CHLORELLA CAP/TAB"
^XMB(3.9,349,2,60,0)="    (CMOP - C1284)           (DISPENSE UNIT - CAP/TAB)"
^XMB(3.9,349,2,61,0)="     993400-2222-00   "
^XMB(3.9,349,2,62,0)="   DRESSING,AMERIGEL HYDROGEL 2IN X 2IN #5002"
^XMB(3.9,349,2,63,0)="    (CMOP - D0750)           (DISPENSE UNIT - EA)"
^XMB(3.9,349,2,64,0)="     061470-5002-17   "
^XMB(3.9,349,2,65,0)="   DRESSING,ODOR ABSORBENT 4IN X 4IN H#519904"
^XMB(3.9,349,2,66,0)="    (CMOP - XV329)           (DISPENSE UNIT - EA)"
^XMB(3.9,349,2,67,0)="     008389-5199-04   "
^XMB(3.9,349,2,68,0)="   DRESSING,ODOR ABSORBENT 6IN X 10IN H#519906"
^XMB(3.9,349,2,69,0)="    (CMOP - XV330)           (DISPENSE UNIT - EA)"
^XMB(3.9,349,2,70,0)="     008389-5199-06   "
^XMB(3.9,349,2,71,0)="   DRESSING,RESTORE 4IN X 4IN H#519921"
^XMB(3.9,349,2,72,0)="    (CMOP - XV318)           (DISPENSE UNIT - EA)"
^XMB(3.9,349,2,73,0)="     990109-5199-21   "
^XMB(3.9,349,2,74,0)="   DRESSING,RESTORE 4IN X 4IN H#519930"
^XMB(3.9,349,2,75,0)="    (CMOP - XV319)           (DISPENSE UNIT - EA)"
^XMB(3.9,349,2,76,0)="     990900-5199-30   "
^XMB(3.9,349,2,77,0)="   DRESSING,RESTORE 6IN X 8IN H#519923"
^XMB(3.9,349,2,78,0)="    (CMOP - XV317)           (DISPENSE UNIT - EA)"
^XMB(3.9,349,2,79,0)="     990109-5199-23   "
^XMB(3.9,349,2,80,0)="   DRESSING,RESTORE 6IN X 8IN H#519932"
^XMB(3.9,349,2,81,0)="    (CMOP - XV320)           (DISPENSE UNIT - EA)"
^XMB(3.9,349,2,82,0)="     990900-5199-32   "
^XMB(3.9,349,2,83,0)="   DRESSING,RESTORE 8IN X 8IN H#519925"
^XMB(3.9,349,2,84,0)="    (CMOP - XV316)           (DISPENSE UNIT - EA)"
^XMB(3.9,349,2,85,0)="     990109-5199-25   "
^XMB(3.9,349,2,86,0)="   DRESSING,RESTORE 8IN X 8IN H#519935"
^XMB(3.9,349,2,87,0)="    (CMOP - XV321)           (DISPENSE UNIT - EA)"
^XMB(3.9,349,2,88,0)="     990900-5199-35   "
^XMB(3.9,349,2,89,0)="   DRESSING,RESTORE PLUS TAPERED 4IN X 4IN H#519956"
^XMB(3.9,349,2,90,0)="    (CMOP - XV322)           (DISPENSE UNIT - EA)"
^XMB(3.9,349,2,91,0)="     008380-5199-56   "
^XMB(3.9,349,2,92,0)="   DRESSING,RESTORE PLUS TAPERED 6IN X 6IN H#519963"
^XMB(3.9,349,2,93,0)="    (CMOP - XV327)           (DISPENSE UNIT - EA)"
^XMB(3.9,349,2,94,0)="     008380-5199-63   "
^XMB(3.9,349,2,95,0)="   DRESSING,RESTORE PLUS TAPERED 6IN X 8IN H#519957"
^XMB(3.9,349,2,96,0)="    (CMOP - XV323)           (DISPENSE UNIT - EA)"
^XMB(3.9,349,2,97,0)="     008380-5199-57   "
^XMB(3.9,349,2,98,0)="   DRESSING,RESTORE PLUS TAPERED 8IN X 8IN H#519958"
^XMB(3.9,349,2,99,0)="    (CMOP - XV324)           (DISPENSE UNIT - EA)"
^XMB(3.9,349,2,100,0)="     008380-5199-58   "
^XMB(3.9,349,2,101,0)="   DRESSING,RESTORE PLUS TAPERED H#519959"
^XMB(3.9,349,2,102,0)="    (CMOP - XV326)           (DISPENSE UNIT - EA)"
^XMB(3.9,349,2,103,0)="     008380-5199-59   "
^XMB(3.9,349,2,104,0)="   DRESSING,RESTORE PLUS TAPERED H#519965"
^XMB(3.9,349,2,105,0)="    (CMOP - XV328)           (DISPENSE UNIT - EA)"
^XMB(3.9,349,2,106,0)="     008380-5199-65   "
^XMB(3.9,349,2,107,0)="   FEMCON FE TAB,CHEWABLE,28"
^XMB(3.9,349,2,108,0)="    (CMOP - F0396)           (DISPENSE UNIT - CYCLE)"
^XMB(3.9,349,2,109,0)="     000430-0482-14   "
^XMB(3.9,349,2,110,0)="   FLUOXETINE HCL 25MG/OLANZAPINE 3MG CAP"
^XMB(3.9,349,2,111,0)="    (CMOP - F0395)           (DISPENSE UNIT - CAP)"
^XMB(3.9,349,2,112,0)="     000002-3230-30   "
^XMB(3.9,349,2,113,0)="   FLUTICASONE PROPIONATE 50MCG INHL,ORAL,DISKUS,60"
^XMB(3.9,349,2,114,0)="    (CMOP - F0394)           (DISPENSE UNIT - DISK)"
^XMB(3.9,349,2,115,0)="     000173-0600-02   "
^XMB(3.9,349,2,116,0)="   HEPATITIS B IMMUNE GLOBULIN (IM) INJ,VI,0.5ML"
^XMB(3.9,349,2,117,0)="    (CMOP - H0522)           (DISPENSE UNIT - VI)"
^XMB(3.9,349,2,118,0)="     013533-0636-03   "
^XMB(3.9,349,2,119,0)="   HYDROQUINONE 3% SOLN,TOP"
^XMB(3.9,349,2,120,0)="    (CMOP - H0521)           (DISPENSE UNIT - ML)"
^XMB(3.9,349,2,121,0)="     059366-2781-03   "
^XMB(3.9,349,2,122,0)="   L-METHYLFOLATE 7.5MG TAB"
^XMB(3.9,349,2,123,0)="    (CMOP - L0398)           (DISPENSE UNIT - TAB)"
^XMB(3.9,349,2,124,0)="     000525-0410-30   000525-0410-90   "
^XMB(3.9,349,2,125,0)="   LANCET,ACCU-CHEK SAFE-T PRO"
^XMB(3.9,349,2,126,0)="    (CMOP - XV315)           (DISPENSE UNIT - EA)"
^XMB(3.9,349,2,127,0)="     003303-2170-01   050924-0079-20   "
^XMB(3.9,349,2,128,0)="   LANTISEPTIC SKIN PROTECTANT OINT,TOP"
^XMB(3.9,349,2,129,0)="    (CMOP - L0396)           (DISPENSE UNIT - GM)"
^XMB(3.9,349,2,130,0)="     012090-0019-06   012090-0019-01   "
^XMB(3.9,349,2,131,0)="   LANTISEPTIC THERAPEUTIC CREAM,TOP"
^XMB(3.9,349,2,132,0)="    (CMOP - L0397)           (DISPENSE UNIT - GM)"
^XMB(3.9,349,2,133,0)="     012090-0016-01   "
^XMB(3.9,349,2,134,0)="   MASK,ALL PURPOSE CUP SHAPE"
^XMB(3.9,349,2,135,0)="    (CMOP - XV305)           (DISPENSE UNIT - EA)"
^XMB(3.9,349,2,136,0)="     051131-0015-94   "
^XMB(3.9,349,2,137,0)="   MIDAZOLAM HCL 1MG/ML (PF) INJ"
^XMB(3.9,349,2,138,0)="    (CMOP - M0735)           (DISPENSE UNIT - ML)"
^XMB(3.9,349,2,139,0)="     000409-2305-05   000409-2305-02   "
^XMB(3.9,349,2,140,0)="   MIDAZOLAM HCL 5MG/ML (PF) INJ"
^XMB(3.9,349,2,141,0)="    (CMOP - M0734)           (DISPENSE UNIT - ML)"
^XMB(3.9,349,2,142,0)="     000409-2308-02   "
^XMB(3.9,349,2,143,0)="   NUTREN PULMONARY LIQUID 1000ML"
^XMB(3.9,349,2,144,0)="    (CMOP - N0562)           (DISPENSE UNIT - BAG)"
^XMB(3.9,349,2,145,0)="     000065-9141-72   "
^XMB(3.9,349,2,146,0)="   NUTREN PULMONARY LIQUID VANILLA"
^XMB(3.9,349,2,147,0)="    (CMOP - N0561)           (DISPENSE UNIT - 250ML CAN)"
^XMB(3.9,349,2,148,0)="     000065-9141-70   "
^XMB(3.9,349,2,149,0)="   POUCH,DRAINABLE,SUR-FIT C#4114-96"
^XMB(3.9,349,2,150,0)="    (CMOP - XV312)           (DISPENSE UNIT - EA)"
^XMB(3.9,349,2,151,0)="     000041-1496-01   "
^XMB(3.9,349,2,152,0)="   POUCH,DRAINABLE,SUR-FIT NATURA C#4112-88"
^XMB(3.9,349,2,153,0)="    (CMOP - XV306)           (DISPENSE UNIT - EA)"
^XMB(3.9,349,2,154,0)="     030003-4112-88   "
^XMB(3.9,349,2,155,0)="   POUCH,DRAINABLE,SUR-FIT NATURA C#4112-89"
^XMB(3.9,349,2,156,0)="    (CMOP - XV307)           (DISPENSE UNIT - EA)"
^XMB(3.9,349,2,157,0)="     030003-4112-89   "
^XMB(3.9,349,2,158,0)="   POUCH,DRAINABLE,SUR-FIT NATURA C#4112-90"
^XMB(3.9,349,2,159,0)="    (CMOP - XV308)           (DISPENSE UNIT - EA)"
^XMB(3.9,349,2,160,0)="     030003-4112-90   "
^XMB(3.9,349,2,161,0)="   POUCH,DRAINABLE,SUR-FIT NATURA C#4112-91"
^XMB(3.9,349,2,162,0)="    (CMOP - XV309)           (DISPENSE UNIT - EA)"
^XMB(3.9,349,2,163,0)="     030003-4112-91   "
^XMB(3.9,349,2,164,0)="   POUCH,DRAINABLE,SUR-FIT NATURA C#4112-92"
^XMB(3.9,349,2,165,0)="    (CMOP - XV310)           (DISPENSE UNIT - EA)"
^XMB(3.9,349,2,166,0)="     030003-4112-92   "
^XMB(3.9,349,2,167,0)="   PROSURE LIQUID VANILLA"
^XMB(3.9,349,2,168,0)="    (CMOP - P0836)           (DISPENSE UNIT - 240ML CAN)"
^XMB(3.9,349,2,169,0)="     070074-0557-76   "
^XMB(3.9,349,2,170,0)="   RISEDRONATE NA 75MG TAB"
^XMB(3.9,349,2,171,0)="    (CMOP - R0220)           (DISPENSE UNIT - TAB)"
^XMB(3.9,349,2,172,0)="     000149-0477-01   "
^XMB(3.9,349,2,173,0)="   SECURA TWO-STEP KIT"
^XMB(3.9,349,2,174,0)="    (CMOP - S0528)           (DISPENSE UNIT - KIT)"
^XMB(3.9,349,2,175,0)="     050484-0344-00   "
^XMB(3.9,349,2,176,0)="   TEMOZOLOMIDE 140MG CAP"
^XMB(3.9,349,2,177,0)="    (CMOP - T0641)           (DISPENSE UNIT - CAP)"
^XMB(3.9,349,2,178,0)="     000085-1425-01   000085-1425-02   "
^XMB(3.9,349,2,179,0)="   TEMOZOLOMIDE 180MG CAP"
^XMB(3.9,349,2,180,0)="    (CMOP - T0642)           (DISPENSE UNIT - CAP)"
^XMB(3.9,349,2,181,0)="     000085-1430-01   000085-1430-02   "
^XMB(3.9,349,2,182,0)="   TEMSIROLIMUS 25MG/ML INJ,SOLN"
^XMB(3.9,349,2,183,0)="    (CMOP - T0643)           (DISPENSE UNIT - ML)"
^XMB(3.9,349,2,184,0)="     000008-1179-01   "
^XMB(3.9,349,2,185,0)="   THROAT LOZENGE W/BENZOCAINE,MENTHOL"
^XMB(3.9,349,2,186,0)="    (CMOP - T0647)           (DISPENSE UNIT - LOZ)"
^XMB(3.9,349,2,187,0)="     078112-0011-06   078112-0011-07   "
^XMB(3.9,349,2,188,0)="   THROAT LOZENGE W/BENZOCAINE"
^XMB(3.9,349,2,189,0)="    (CMOP - B0088)           (DISPENSE UNIT - LOZ)"
^XMB(3.9,349,2,190,0)="     047682-0427-78   047682-0427-38   "
^XMB(3.9,349,2,191,0)="   THROAT LOZENGE W/CETYLPYRIDINIUM,MENTHOL"
^XMB(3.9,349,2,192,0)="    (CMOP - T0645)           (DISPENSE UNIT - LOZ)"
^XMB(3.9,349,2,193,0)="     011509-0212-17   "
^XMB(3.9,349,2,194,0)="   THROAT LOZENGE W/MENTHOL"
^XMB(3.9,349,2,195,0)="    (CMOP - T0646)           (DISPENSE UNIT - LOZ)"
^XMB(3.9,349,2,196,0)="     042300-0058-07   "
^XMB(3.9,349,2,197,0)="   TIMOLOL MALEATE 0.25% SOLN,OPH,0.2ML"
^XMB(3.9,349,2,198,0)="    (CMOP - T0644)           (DISPENSE UNIT - 0.2ML EACH)"
^XMB(3.9,349,2,199,0)="     000006-9689-60   "
^XMB(3.9,349,2,200,0)=" "
^XMB(3.9,349,2,201,0)="The National Formulary Indicator has changed for the following"
^XMB(3.9,349,2,202,0)="VA Products.  The National Formulary Indicator will automatically"
^XMB(3.9,349,2,203,0)="be changed in your local DRUG file (#50).  Please review the"
^XMB(3.9,349,2,204,0)="VISN and Local Formulary designations of these products and"
^XMB(3.9,349,2,205,0)="make appropriate changes."
^XMB(3.9,349,2,206,0)=" "
^XMB(3.9,349,2,207,0)="FORMULARY ITEMS"
^XMB(3.9,349,2,208,0)="   ANAGRELIDE HCL 0.5MG CAP"
^XMB(3.9,349,2,209,0)="   ANAGRELIDE HCL 1MG CAP"
^XMB(3.9,349,2,210,0)="   ARGATROBAN 100MG/ML INJ"
^XMB(3.9,349,2,211,0)="   BENZONATATE 100MG CAP"
^XMB(3.9,349,2,212,0)="   BENZONATATE 200MG CAP"
^XMB(3.9,349,2,213,0)="   BUPIVACAINE HCL 0.25%/EPINEPHRINE 1:200000 INJ"
^XMB(3.9,349,2,214,0)="   BUPIVACAINE HCL 0.5%/EPINEPHRINE 1:200000 INJ"
^XMB(3.9,349,2,215,0)="   BUPIVACAINE HCL 0.75%/DEXTROSE 8.25% INJ"
^XMB(3.9,349,2,216,0)="   BUPIVACAINE HCL 0.75%/EPINEPHRINE 1:200000 INJ"
^XMB(3.9,349,2,217,0)="   CALCIPOTRIENE 0.005% CREAM,TOP"
^XMB(3.9,349,2,218,0)="   CASTOR OIL 788MG/PERUVIAN BALSAM 87MG/TRYPSIN 90U AEROSOL,TOP"
^XMB(3.9,349,2,219,0)="   ENPRESSE TAB,28"
^XMB(3.9,349,2,220,0)="   MIDAZOLAM HCL 1MG/ML (PF) INJ"
^XMB(3.9,349,2,221,0)="   MIDAZOLAM HCL 5MG/ML (PF) INJ"
^XMB(3.9,349,2,222,0)="   POLYETHYLENE GLYCOL 3350 PWDR,ORAL"
^XMB(3.9,349,2,223,0)="   RISEDRONATE NA 75MG TAB"
^XMB(3.9,349,2,224,0)="   SELEGILINE 12MG/24HR PATCH"
^XMB(3.9,349,2,225,0)="   SELEGILINE 6MG/24HR PATCH"
^XMB(3.9,349,2,226,0)="   SELEGILINE 9MG/24HR PATCH"
^XMB(3.9,349,2,227,0)="   THROAT LOZENGE W/CETYLPYRIDINIUM,MENTHOL"
^XMB(3.9,349,2,228,0)="   TIMOLOL MALEATE 0.25% SOLN,OPH,0.2ML"
^XMB(3.9,349,2,229,0)=" "
^XMB(3.9,349,2,230,0)="NON-FORMULARY ITEMS"
^XMB(3.9,349,2,231,0)="   CALCIPOTRIENE 0.005% OINT"
^XMB(3.9,349,2,232,0)="   CYCLOPENTOLATE HCL 1%/PHENYLEPHRINE HCL 10% SOLN,OPH"
^XMB(3.9,349,2,233,0)="   HAMAMELIS WATER LIQUID,TOP"
^XMB(3.9,349,2,234,0)="   POLYETHYLENE GLYCOL 1000"
^XMB(3.9,349,2,235,0)="   POLYETHYLENE GLYCOL 3350"
^XMB(3.9,349,2,236,0)="   PREDNISOLONE NA PHOSPHATE 1% SOLN,OPH"
^XMB(3.9,349,6,0)="^3.911A^3^3"
^XMB(3.9,349,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,349,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,349,6,3,0)="ORMSBY,SKIP"
^XMB(3.9,349,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,349,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,349,6,"B","ORMSBY,SKIP",3)=""
^XMB(3.9,350,0)="UPDATED INTERACTIONS^NDF MANAGER^3071227.101017"
^XMB(3.9,350,.6)="3071227"
^XMB(3.9,350,1,0)="^3.91A^3^3"
^XMB(3.9,350,1,1,0)="1"
^XMB(3.9,350,1,2,0)="63"
^XMB(3.9,350,1,3,0)="68"
^XMB(3.9,350,1,"C",1,1)=""
^XMB(3.9,350,1,"C",63,2)=""
^XMB(3.9,350,1,"C",68,3)=""
^XMB(3.9,350,2,0)="^^61^61^3071227"
^XMB(3.9,350,2,1,0)="The following interactions in National Drug File (NDF) have been added,"
^XMB(3.9,350,2,2,0)="edited or inactivated.  These changes are the result of review and"
^XMB(3.9,350,2,3,0)="recommendations from the NDF support group."
^XMB(3.9,350,2,4,0)=" "
^XMB(3.9,350,2,5,0)="ADDED INTERACTIONS"
^XMB(3.9,350,2,6,0)=" "
^XMB(3.9,350,2,7,0)="   AMOXICILLIN/METHOTREXATE                           Critical"
^XMB(3.9,350,2,8,0)="   DIGITALIS/RANOLAZINE                               Significant"
^XMB(3.9,350,2,9,0)="   PHENYTOIN/SORAFENIB                                Significant"
^XMB(3.9,350,2,10,0)=" "
^XMB(3.9,350,2,11,0)="EDITED INTERACTIONS"
^XMB(3.9,350,2,12,0)=" "
^XMB(3.9,350,2,13,0)="   NONE"
^XMB(3.9,350,2,14,0)=" "
^XMB(3.9,350,2,15,0)="INACTIVATED INTERACTIONS"
^XMB(3.9,350,2,16,0)=" "
^XMB(3.9,350,2,17,0)="   NONE"
^XMB(3.9,350,2,18,0)=" "
^XMB(3.9,350,2,19,0)="The following products have been flagged for exclusion from drug-drug"
^XMB(3.9,350,2,20,0)="interaction checks."
^XMB(3.9,350,2,21,0)=" "
^XMB(3.9,350,2,22,0)="AMERIGEL CARE LOTION"
^XMB(3.9,350,2,23,0)="AMERIGEL SALINE WOUND WASH"
^XMB(3.9,350,2,24,0)="AMERIGEL WOUND DRESSING GEL"
^XMB(3.9,350,2,25,0)="BARRIER,ADAPT STRIPS H#79400"
^XMB(3.9,350,2,26,0)="BELT,SUPPORT 7IN RIGHT XX-LARGE NU-HOPE #6449 SP"
^XMB(3.9,350,2,27,0)="CASTOR OIL 788MG/PERUVIAN BALSAM 87MG/TRYPSIN 90U AEROSOL,TOP"
^XMB(3.9,350,2,28,0)="CERAVE CREAM,TOP"
^XMB(3.9,350,2,29,0)="CERAVE LIQUID,TOP"
^XMB(3.9,350,2,30,0)="DRESSING,AMERIGEL HYDROGEL 2IN X 2IN #5002"
^XMB(3.9,350,2,31,0)="DRESSING,ODOR ABSORBENT 4IN X 4IN H#519904"
^XMB(3.9,350,2,32,0)="DRESSING,ODOR ABSORBENT 6IN X 10IN H#519906"
^XMB(3.9,350,2,33,0)="DRESSING,RESTORE 4IN X 4IN H#519921"
^XMB(3.9,350,2,34,0)="DRESSING,RESTORE 4IN X 4IN H#519930"
^XMB(3.9,350,2,35,0)="DRESSING,RESTORE 6IN X 8IN H#519923"
^XMB(3.9,350,2,36,0)="DRESSING,RESTORE 6IN X 8IN H#519932"
^XMB(3.9,350,2,37,0)="DRESSING,RESTORE 8IN X 8IN H#519925"
^XMB(3.9,350,2,38,0)="DRESSING,RESTORE 8IN X 8IN H#519935"
^XMB(3.9,350,2,39,0)="DRESSING,RESTORE PLUS TAPERED 4IN X 4IN H#519956"
^XMB(3.9,350,2,40,0)="DRESSING,RESTORE PLUS TAPERED 6IN X 6IN H#519963"
^XMB(3.9,350,2,41,0)="DRESSING,RESTORE PLUS TAPERED 6IN X 8IN H#519957"
^XMB(3.9,350,2,42,0)="DRESSING,RESTORE PLUS TAPERED 8IN X 8IN H#519958"
^XMB(3.9,350,2,43,0)="DRESSING,RESTORE PLUS TAPERED H#519959"
^XMB(3.9,350,2,44,0)="DRESSING,RESTORE PLUS TAPERED H#519965"
^XMB(3.9,350,2,45,0)="HEMORRHOIDAL-HC 10MG SUPP,RTL"
^XMB(3.9,350,2,46,0)="HEMORRHOIDAL-HC 25MG SUPP,RTL"
^XMB(3.9,350,2,47,0)="HYDROQUINONE 3% SOLN,TOP"
^XMB(3.9,350,2,48,0)="LANCET,ACCU-CHEK SAFE-T PRO"
^XMB(3.9,350,2,49,0)="LANTISEPTIC SKIN PROTECTANT OINT,TOP"
^XMB(3.9,350,2,50,0)="LANTISEPTIC THERAPEUTIC CREAM,TOP"
^XMB(3.9,350,2,51,0)="MASK,ALL PURPOSE CUP SHAPE"
^XMB(3.9,350,2,52,0)="MEDICAL ADHESIVE H#7730"
^XMB(3.9,350,2,53,0)="POUCH,DRAINABLE,SUR-FIT C#4114-96"
^XMB(3.9,350,2,54,0)="POUCH,DRAINABLE,SUR-FIT NATURA C#4112-88"
^XMB(3.9,350,2,55,0)="POUCH,DRAINABLE,SUR-FIT NATURA C#4112-89"
^XMB(3.9,350,2,56,0)="POUCH,DRAINABLE,SUR-FIT NATURA C#4112-90"
^XMB(3.9,350,2,57,0)="POUCH,DRAINABLE,SUR-FIT NATURA C#4112-91"
^XMB(3.9,350,2,58,0)="POUCH,DRAINABLE,SUR-FIT NATURA C#4112-92"
^XMB(3.9,350,2,59,0)="SECURA TWO-STEP KIT"
^XMB(3.9,350,2,60,0)="THROAT LOZENGE W/CETYLPYRIDINIUM,MENTHOL"
^XMB(3.9,350,2,61,0)="THROAT LOZENGE W/MENTHOL"
^XMB(3.9,350,6,0)="^3.911A^3^3"
^XMB(3.9,350,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,350,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,350,6,3,0)="ORMSBY,SKIP"
^XMB(3.9,350,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,350,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,350,6,"B","ORMSBY,SKIP",3)=""
^XMB(3.9,351,0)="DRUGS UNMATCHED FROM NATIONAL DRUG FILE^NDF MANAGER^3071227.101027^^^^P"
^XMB(3.9,351,.6)="3071227"
^XMB(3.9,351,1,0)="^3.91A^3^3"
^XMB(3.9,351,1,1,0)="1^0^3071227.1012^^^^^^1^3071227.1012"
^XMB(3.9,351,1,2,0)="63"
^XMB(3.9,351,1,3,0)="68"
^XMB(3.9,351,1,"C",1,1)=""
^XMB(3.9,351,1,"C",63,2)=""
^XMB(3.9,351,1,"C",68,3)=""
^XMB(3.9,351,2,0)="^^64^64^3071227"
^XMB(3.9,351,2,1,0)=" "
^XMB(3.9,351,2,2,0)="The following active entries in your DRUG file (#50) have been"
^XMB(3.9,351,2,3,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,351,2,4,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,351,2,5,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,351,2,6,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,351,2,7,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,351,2,8,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,351,2,9,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,351,2,10,0)="products immediately.  You may also need to match a new"
^XMB(3.9,351,2,11,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,351,2,12,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,351,2,13,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,351,2,14,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,351,2,15,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,351,2,16,0)="matching process."
^XMB(3.9,351,2,17,0)=" "
^XMB(3.9,351,2,18,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,351,2,19,0)="                                                                    DATE"
^XMB(3.9,351,2,20,0)=" "
^XMB(3.9,351,2,21,0)="COMPLEAT FORMULA, 240ML/CAN                           5093"
^XMB(3.9,351,2,22,0)="    (CMOP C0515)             COMPLEAT MODIFIED LIQUID           "
^XMB(3.9,351,2,23,0)=" "
^XMB(3.9,351,2,24,0)="The following investigational entries in your DRUG file (#50) have been"
^XMB(3.9,351,2,25,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,351,2,26,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,351,2,27,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,351,2,28,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,351,2,29,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,351,2,30,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,351,2,31,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,351,2,32,0)="products immediately.  You may also need to match a new"
^XMB(3.9,351,2,33,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,351,2,34,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,351,2,35,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,351,2,36,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,351,2,37,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,351,2,38,0)="matching process."
^XMB(3.9,351,2,39,0)=" "
^XMB(3.9,351,2,40,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,351,2,41,0)="                                                                    DATE"
^XMB(3.9,351,2,42,0)=" "
^XMB(3.9,351,2,43,0)="  NONE"
^XMB(3.9,351,2,44,0)=" "
^XMB(3.9,351,2,45,0)="The following inactive entries in your DRUG file (#50) have been"
^XMB(3.9,351,2,46,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,351,2,47,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,351,2,48,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,351,2,49,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,351,2,50,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,351,2,51,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,351,2,52,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,351,2,53,0)="products immediately.  You may also need to match a new"
^XMB(3.9,351,2,54,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,351,2,55,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,351,2,56,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,351,2,57,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,351,2,58,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,351,2,59,0)="matching process."
^XMB(3.9,351,2,60,0)=" "
^XMB(3.9,351,2,61,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,351,2,62,0)="                                                                    DATE"
^XMB(3.9,351,2,63,0)=" "
^XMB(3.9,351,2,64,0)="  NONE"
^XMB(3.9,351,6,0)="^3.911A^3^3"
^XMB(3.9,351,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,351,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,351,6,3,0)="ORMSBY,SKIP"
^XMB(3.9,351,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,351,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,351,6,"B","ORMSBY,SKIP",3)=""
^XMB(3.9,352,0)="INTERACTIONS and ALLERGIES UPDATED^NDF MANAGER^3071227.101101"
^XMB(3.9,352,.6)="3071227"
^XMB(3.9,352,1,0)="^3.91A^3^3"
^XMB(3.9,352,1,1,0)="1"
^XMB(3.9,352,1,2,0)="63"
^XMB(3.9,352,1,3,0)="68"
^XMB(3.9,352,1,"C",1,1)=""
^XMB(3.9,352,1,"C",63,2)=""
^XMB(3.9,352,1,"C",68,3)=""
^XMB(3.9,352,2,0)="^^8^8^3071227"
^XMB(3.9,352,2,1,0)=" "
^XMB(3.9,352,2,2,0)="No DRUG INTERACTIONS were updated due to Primary Ingredients being"
^XMB(3.9,352,2,3,0)="changed to Non-Primary ingredients in the Data Update."
^XMB(3.9,352,2,4,0)=" "
^XMB(3.9,352,2,5,0)=" "
^XMB(3.9,352,2,6,0)="No PATIENT ALLERGIES were updated due to Primary Ingredients being"
^XMB(3.9,352,2,7,0)="changed to Non-Primary ingredients during the Data Update."
^XMB(3.9,352,2,8,0)=" "
^XMB(3.9,352,6,0)="^3.911A^3^3"
^XMB(3.9,352,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,352,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,352,6,3,0)="ORMSBY,SKIP"
^XMB(3.9,352,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,352,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,352,6,"B","ORMSBY,SKIP",3)=""
^XMB(3.9,353,0)="DATA UPDATE FOR NDF^NDF MANAGER^3071227.181007"
^XMB(3.9,353,.6)="3071227"
^XMB(3.9,353,1,0)="^3.91A^3^3"
^XMB(3.9,353,1,1,0)="1"
^XMB(3.9,353,1,2,0)="63"
^XMB(3.9,353,1,3,0)="68"
^XMB(3.9,353,1,"C",1,1)=""
^XMB(3.9,353,1,"C",63,2)=""
^XMB(3.9,353,1,"C",68,3)=""
^XMB(3.9,353,2,0)="^^100^100^3071227"
^XMB(3.9,353,2,1,0)=" A new national contract has been issued for digoxin tablets. The new"
^XMB(3.9,353,2,2,0)="vendor is Caraco. This change requires an emergency patch to NDF. NDF "
^XMB(3.9,353,2,3,0)="patch PSN*4*148 will make several changes to the digoxin entries.  The "
^XMB(3.9,353,2,4,0)="patch is required for routing of prescriptions using this product to "
^XMB(3.9,353,2,5,0)="CMOP.  If the emergency patch is not done, these prescriptions will need "
^XMB(3.9,353,2,6,0)="to be filled locally. "
^XMB(3.9,353,2,7,0)=" "
^XMB(3.9,353,2,8,0)="Patch PSN*4*148, will contain both a generic and trade name (Lanoxin) for "
^XMB(3.9,353,2,9,0)="both strengths of digoxin. Upon installation of patch PSN*4*148 "
^XMB(3.9,353,2,10,0)="facilities will need to rematch to the corresponding Lanoxin entries. "
^XMB(3.9,353,2,11,0)="After Sept. 4th sites must convert patients from the Lanoxin entry to the "
^XMB(3.9,353,2,12,0)="generic entry. In many situations this may require the creation of new "
^XMB(3.9,353,2,13,0)="entry to file #50.  This should be done in coordination with your local "
^XMB(3.9,353,2,14,0)="CMOP. "
^XMB(3.9,353,2,15,0)=" "
^XMB(3.9,353,2,16,0)="Trade name entries in NDF."
^XMB(3.9,353,2,17,0)=" "
^XMB(3.9,353,2,18,0)="VA Product: DIGOXIN (LANOXIN) 0.125MG TAB"
^XMB(3.9,353,2,19,0)="VA Print Name: DIGOXIN (LANOXIN) 0.125MG TAB"
^XMB(3.9,353,2,20,0)="VA Product Identifier: D0080 "
^XMB(3.9,353,2,21,0)=" "
^XMB(3.9,353,2,22,0)="VA Product: DIGOXIN (LANOXIN) 0.25MG TAB"
^XMB(3.9,353,2,23,0)="VA Print Name: DIGOXIN (LANOXIN) 0.25MG TAB"
^XMB(3.9,353,2,24,0)="VA Product Identifier: D0082"
^XMB(3.9,353,2,25,0)=" "
^XMB(3.9,353,2,26,0)="Generic entries"
^XMB(3.9,353,2,27,0)=" "
^XMB(3.9,353,2,28,0)="VA Product: DIGOXIN 0.125MG TAB"
^XMB(3.9,353,2,29,0)="VA Print Name: DIGOXIN 0.125MG TAB"
^XMB(3.9,353,2,30,0)="VA Product Identifier: D0751"
^XMB(3.9,353,2,31,0)=" "
^XMB(3.9,353,2,32,0)="VA Product: DIGOXIN 0.25MG TAB"
^XMB(3.9,353,2,33,0)="VA Print Name: DIGOXIN 0.25MG TAB"
^XMB(3.9,353,2,34,0)="VA Product Identifier: D0752"
^XMB(3.9,353,2,35,0)=" "
^XMB(3.9,353,2,36,0)=" "
^XMB(3.9,353,2,37,0)=" "
^XMB(3.9,353,2,38,0)="The National Formulary Indicator has changed for the following"
^XMB(3.9,353,2,39,0)="VA Products.  The National Formulary Indicator will automatically"
^XMB(3.9,353,2,40,0)="be changed in your local DRUG file (#50).  Please review the"
^XMB(3.9,353,2,41,0)="VISN and Local Formulary designations of these products and"
^XMB(3.9,353,2,42,0)="make appropriate changes."
^XMB(3.9,353,2,43,0)=" "
^XMB(3.9,353,2,44,0)="FORMULARY ITEMS"
^XMB(3.9,353,2,45,0)="   NONE"
^XMB(3.9,353,2,46,0)=" "
^XMB(3.9,353,2,47,0)="NON-FORMULARY ITEMS"
^XMB(3.9,353,2,48,0)="   NONE"
^XMB(3.9,353,2,49,0)=" "
^XMB(3.9,353,2,50,0)=" "
^XMB(3.9,353,2,51,0)="The National Formulary Indicator has changed for the following"
^XMB(3.9,353,2,52,0)="VA Products.  The National Formulary Indicator will automatically"
^XMB(3.9,353,2,53,0)="be changed in your local DRUG file (#50).  Please review the"
^XMB(3.9,353,2,54,0)="VISN and Local Formulary designations of these products and"
^XMB(3.9,353,2,55,0)="make appropriate changes."
^XMB(3.9,353,2,56,0)=" "
^XMB(3.9,353,2,57,0)="FORMULARY ITEMS"
^XMB(3.9,353,2,58,0)="   NONE"
^XMB(3.9,353,2,59,0)=" "
^XMB(3.9,353,2,60,0)="NON-FORMULARY ITEMS"
^XMB(3.9,353,2,61,0)="   NONE"
^XMB(3.9,353,2,62,0)=" "
^XMB(3.9,353,2,63,0)=" "
^XMB(3.9,353,2,64,0)="The National Formulary Indicator has changed for the following"
^XMB(3.9,353,2,65,0)="VA Products.  The National Formulary Indicator will automatically"
^XMB(3.9,353,2,66,0)="be changed in your local DRUG file (#50).  Please review the"
^XMB(3.9,353,2,67,0)="VISN and Local Formulary designations of these products and"
^XMB(3.9,353,2,68,0)="make appropriate changes."
^XMB(3.9,353,2,69,0)=" "
^XMB(3.9,353,2,70,0)="FORMULARY ITEMS"
^XMB(3.9,353,2,71,0)="   NONE"
^XMB(3.9,353,2,72,0)=" "
^XMB(3.9,353,2,73,0)="NON-FORMULARY ITEMS"
^XMB(3.9,353,2,74,0)="   NONE"
^XMB(3.9,353,2,75,0)=" "
^XMB(3.9,353,2,76,0)=" "
^XMB(3.9,353,2,77,0)="The National Formulary Indicator has changed for the following"
^XMB(3.9,353,2,78,0)="VA Products.  The National Formulary Indicator will automatically"
^XMB(3.9,353,2,79,0)="be changed in your local DRUG file (#50).  Please review the"
^XMB(3.9,353,2,80,0)="VISN and Local Formulary designations of these products and"
^XMB(3.9,353,2,81,0)="make appropriate changes."
^XMB(3.9,353,2,82,0)=" "
^XMB(3.9,353,2,83,0)="FORMULARY ITEMS"
^XMB(3.9,353,2,84,0)="   NONE"
^XMB(3.9,353,2,85,0)=" "
^XMB(3.9,353,2,86,0)="NON-FORMULARY ITEMS"
^XMB(3.9,353,2,87,0)="   NONE"
^XMB(3.9,353,2,88,0)=" "
^XMB(3.9,353,2,89,0)=" "
^XMB(3.9,353,2,90,0)="The National Formulary Indicator has changed for the following"
^XMB(3.9,353,2,91,0)="VA Products.  The National Formulary Indicator will automatically"
^XMB(3.9,353,2,92,0)="be changed in your local DRUG file (#50).  Please review the"
^XMB(3.9,353,2,93,0)="VISN and Local Formulary designations of these products and"
^XMB(3.9,353,2,94,0)="make appropriate changes."
^XMB(3.9,353,2,95,0)=" "
^XMB(3.9,353,2,96,0)="FORMULARY ITEMS"
^XMB(3.9,353,2,97,0)="   NONE"
^XMB(3.9,353,2,98,0)=" "
^XMB(3.9,353,2,99,0)="NON-FORMULARY ITEMS"
^XMB(3.9,353,2,100,0)="   NONE"
^XMB(3.9,353,6,0)="^3.911A^3^3"
^XMB(3.9,353,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,353,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,353,6,3,0)="ORMSBY,SKIP"
^XMB(3.9,353,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,353,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,353,6,"B","ORMSBY,SKIP",3)=""
^XMB(3.9,354,0)="UPDATED INTERACTIONS^NDF MANAGER^3071227.181007"
^XMB(3.9,354,.6)="3071227"
^XMB(3.9,354,1,0)="^3.91A^3^3"
^XMB(3.9,354,1,1,0)="1"
^XMB(3.9,354,1,2,0)="63"
^XMB(3.9,354,1,3,0)="68"
^XMB(3.9,354,1,"C",1,1)=""
^XMB(3.9,354,1,"C",63,2)=""
^XMB(3.9,354,1,"C",68,3)=""
^XMB(3.9,354,2,0)="^^16^16^3071227"
^XMB(3.9,354,2,1,0)=" "
^XMB(3.9,354,2,2,0)="The following interactions in National Drug File (NDF) have been added,"
^XMB(3.9,354,2,3,0)="edited or inactivated.  These changes are the result of review and"
^XMB(3.9,354,2,4,0)="recommendations from the NDF support group."
^XMB(3.9,354,2,5,0)=" "
^XMB(3.9,354,2,6,0)="ADDED INTERACTIONS"
^XMB(3.9,354,2,7,0)=" "
^XMB(3.9,354,2,8,0)="   NONE"
^XMB(3.9,354,2,9,0)=" "
^XMB(3.9,354,2,10,0)="EDITED INTERACTIONS"
^XMB(3.9,354,2,11,0)=" "
^XMB(3.9,354,2,12,0)="   NONE"
^XMB(3.9,354,2,13,0)=" "
^XMB(3.9,354,2,14,0)="INACTIVATED INTERACTIONS"
^XMB(3.9,354,2,15,0)=" "
^XMB(3.9,354,2,16,0)="   NONE"
^XMB(3.9,354,6,0)="^3.911A^3^3"
^XMB(3.9,354,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,354,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,354,6,3,0)="ORMSBY,SKIP"
^XMB(3.9,354,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,354,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,354,6,"B","ORMSBY,SKIP",3)=""
^XMB(3.9,355,0)="Event Code Screens to Review^.5^3071227.181007"
^XMB(3.9,355,.6)="3071227"
^XMB(3.9,355,1,0)="^3.91A^1^1"
^XMB(3.9,355,1,1,0)="1"
^XMB(3.9,355,1,"C",1,1)=""
^XMB(3.9,355,2,0)="^^21^21^3071227"
^XMB(3.9,355,2,1,0)=" Please forward this message to your local DSS Site Manager or"
^XMB(3.9,355,2,2,0)=" Event Capture ADPAC."
^XMB(3.9,355,2,3,0)=""
^XMB(3.9,355,2,4,0)=" A review of the EC EVENT CODE SCREENS file (#720.3) was done"
^XMB(3.9,355,2,5,0)=" after installation of patch EC*2*93 which updated the EC NATIONAL"
^XMB(3.9,355,2,6,0)=" PROCEDURE file (#725).  This message provides the results of that"
^XMB(3.9,355,2,7,0)=" review."
^XMB(3.9,355,2,8,0)=""
^XMB(3.9,355,2,9,0)=" The EC EVENT CODE SCREENS file (#720.3) records indicated below"
^XMB(3.9,355,2,10,0)=" point to an inactive record in the EC NATIONAL PROCEDURE file"
^XMB(3.9,355,2,11,0)=" (#725) or to an inactive record in the CPT file (#81)."
^XMB(3.9,355,2,12,0)=""
^XMB(3.9,355,2,13,0)=" The user should use the Inactivate Event Code Screens [ECNACT]"
^XMB(3.9,355,2,14,0)=" option to inactivate the Event Code Screen.  If necessary, a new"
^XMB(3.9,355,2,15,0)=" Event Code Screen can be created using a currently active CPT code"
^XMB(3.9,355,2,16,0)=" or National Procedure."
^XMB(3.9,355,2,17,0)=""
^XMB(3.9,355,2,18,0)=" "
^XMB(3.9,355,2,19,0)=" 0 Event Code Screens were found to be pointing to aninactive"
^XMB(3.9,355,2,20,0)=" or soon to be inactive procedure in file #725 or file #81."
^XMB(3.9,355,2,21,0)=" "
^XMB(3.9,355,6,0)="^3.911A^1^1"
^XMB(3.9,355,6,1,0)="ORMSBY,SKIP"
^XMB(3.9,355,6,"B","ORMSBY,SKIP",1)=""
^XMB(3.9,356,0)="DRUGS UNMATCHED FROM NATIONAL DRUG FILE^NDF MANAGER^3071227.181012^^^^P"
^XMB(3.9,356,.6)="3071227"
^XMB(3.9,356,1,0)="^3.91A^3^3"
^XMB(3.9,356,1,1,0)="1^0^3071227.181403^^^^^^1^3071227.181403"
^XMB(3.9,356,1,2,0)="63"
^XMB(3.9,356,1,3,0)="68"
^XMB(3.9,356,1,"C",1,1)=""
^XMB(3.9,356,1,"C",63,2)=""
^XMB(3.9,356,1,"C",68,3)=""
^XMB(3.9,356,2,0)="^^104^104^3071227"
^XMB(3.9,356,2,1,0)=" "
^XMB(3.9,356,2,2,0)="The following active entries in your DRUG file (#50) have been"
^XMB(3.9,356,2,3,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,356,2,4,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,356,2,5,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,356,2,6,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,356,2,7,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,356,2,8,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,356,2,9,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,356,2,10,0)="products immediately.  You may also need to match a new"
^XMB(3.9,356,2,11,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,356,2,12,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,356,2,13,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,356,2,14,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,356,2,15,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,356,2,16,0)="matching process."
^XMB(3.9,356,2,17,0)=" "
^XMB(3.9,356,2,18,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,356,2,19,0)="                                                                    DATE"
^XMB(3.9,356,2,20,0)=" "
^XMB(3.9,356,2,21,0)="DIGOXIN 0.125MG 30'S                                  3964"
^XMB(3.9,356,2,22,0)="    (CMOP D0080)             DIGOXIN 0.125MG TAB                "
^XMB(3.9,356,2,23,0)="    STRENGTH: .125UNITS: MG"
^XMB(3.9,356,2,24,0)="    POSSIBLE DOSES"
^XMB(3.9,356,2,25,0)="    DISP UNITS/DOSE     DOSE    PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,356,2,26,0)="       1                .125      IO      "
^XMB(3.9,356,2,27,0)="       2                 .25      IO      "
^XMB(3.9,356,2,28,0)="DIGOXIN 0.125MG U/D                                   142"
^XMB(3.9,356,2,29,0)="    (CMOP D0080)             DIGOXIN 0.125MG TAB                "
^XMB(3.9,356,2,30,0)="    STRENGTH: .125UNITS: MG"
^XMB(3.9,356,2,31,0)="    POSSIBLE DOSES"
^XMB(3.9,356,2,32,0)="    DISP UNITS/DOSE     DOSE    PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,356,2,33,0)="       1                .125      IO      "
^XMB(3.9,356,2,34,0)="       2                 .25      IO      "
^XMB(3.9,356,2,35,0)="DIGOXIN 0.125MG                                       168"
^XMB(3.9,356,2,36,0)="    (CMOP D0080)             DIGOXIN 0.125MG TAB                "
^XMB(3.9,356,2,37,0)="    STRENGTH: .125UNITS: MG"
^XMB(3.9,356,2,38,0)="    POSSIBLE DOSES"
^XMB(3.9,356,2,39,0)="    DISP UNITS/DOSE     DOSE    PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,356,2,40,0)="       1                .125      O       "
^XMB(3.9,356,2,41,0)="       2                 .25      O       "
^XMB(3.9,356,2,42,0)="DIGOXIN 0.25MG 30'S                                   3965"
^XMB(3.9,356,2,43,0)="    (CMOP D0082)             DIGOXIN 0.25MG TAB                 "
^XMB(3.9,356,2,44,0)="    STRENGTH: .25UNITS: MG"
^XMB(3.9,356,2,45,0)="    POSSIBLE DOSES"
^XMB(3.9,356,2,46,0)="    DISP UNITS/DOSE     DOSE    PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,356,2,47,0)="       1                 .25      IO      "
^XMB(3.9,356,2,48,0)="       2                  .5      IO      "
^XMB(3.9,356,2,49,0)="DIGOXIN 0.25MG U/D                                    143"
^XMB(3.9,356,2,50,0)="    (CMOP D0082)             DIGOXIN 0.25MG TAB                 "
^XMB(3.9,356,2,51,0)="    STRENGTH: .25UNITS: MG"
^XMB(3.9,356,2,52,0)="    POSSIBLE DOSES"
^XMB(3.9,356,2,53,0)="    DISP UNITS/DOSE     DOSE    PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,356,2,54,0)="       1                 .25      IO      "
^XMB(3.9,356,2,55,0)="       2                  .5      IO      "
^XMB(3.9,356,2,56,0)="DIGOXIN 0.25MG                                        172"
^XMB(3.9,356,2,57,0)="    (CMOP D0082)             DIGOXIN 0.25MG TAB                 "
^XMB(3.9,356,2,58,0)="    STRENGTH: .25UNITS: MG"
^XMB(3.9,356,2,59,0)="    POSSIBLE DOSES"
^XMB(3.9,356,2,60,0)="    DISP UNITS/DOSE     DOSE    PACKAGE   BCMA UNITS/DOSE"
^XMB(3.9,356,2,61,0)="       1                 .25      IO      "
^XMB(3.9,356,2,62,0)="       2                  .5      IO      "
^XMB(3.9,356,2,63,0)=" "
^XMB(3.9,356,2,64,0)="The following investigational entries in your DRUG file (#50) have been"
^XMB(3.9,356,2,65,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,356,2,66,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,356,2,67,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,356,2,68,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,356,2,69,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,356,2,70,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,356,2,71,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,356,2,72,0)="products immediately.  You may also need to match a new"
^XMB(3.9,356,2,73,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,356,2,74,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,356,2,75,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,356,2,76,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,356,2,77,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,356,2,78,0)="matching process."
^XMB(3.9,356,2,79,0)=" "
^XMB(3.9,356,2,80,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,356,2,81,0)="                                                                    DATE"
^XMB(3.9,356,2,82,0)=" "
^XMB(3.9,356,2,83,0)="  NONE"
^XMB(3.9,356,2,84,0)=" "
^XMB(3.9,356,2,85,0)="The following inactive entries in your DRUG file (#50) have been"
^XMB(3.9,356,2,86,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,356,2,87,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,356,2,88,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,356,2,89,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,356,2,90,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,356,2,91,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,356,2,92,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,356,2,93,0)="products immediately.  You may also need to match a new"
^XMB(3.9,356,2,94,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,356,2,95,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,356,2,96,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,356,2,97,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,356,2,98,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,356,2,99,0)="matching process."
^XMB(3.9,356,2,100,0)=" "
^XMB(3.9,356,2,101,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,356,2,102,0)="                                                                    DATE"
^XMB(3.9,356,2,103,0)=" "
^XMB(3.9,356,2,104,0)="  NONE"
^XMB(3.9,356,6,0)="^3.911A^3^3"
^XMB(3.9,356,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,356,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,356,6,3,0)="ORMSBY,SKIP"
^XMB(3.9,356,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,356,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,356,6,"B","ORMSBY,SKIP",3)=""
^XMB(3.9,357,0)="INTERACTIONS and ALLERGIES UPDATED^NDF MANAGER^3071227.181057"
^XMB(3.9,357,.6)="3071227"
^XMB(3.9,357,1,0)="^3.91A^3^3"
^XMB(3.9,357,1,1,0)="1"
^XMB(3.9,357,1,2,0)="63"
^XMB(3.9,357,1,3,0)="68"
^XMB(3.9,357,1,"C",1,1)=""
^XMB(3.9,357,1,"C",63,2)=""
^XMB(3.9,357,1,"C",68,3)=""
^XMB(3.9,357,2,0)="^^8^8^3071227"
^XMB(3.9,357,2,1,0)=" "
^XMB(3.9,357,2,2,0)="No DRUG INTERACTIONS were updated due to Primary Ingredients being"
^XMB(3.9,357,2,3,0)="changed to Non-Primary ingredients in the Data Update."
^XMB(3.9,357,2,4,0)=" "
^XMB(3.9,357,2,5,0)=" "
^XMB(3.9,357,2,6,0)="No PATIENT ALLERGIES were updated due to Primary Ingredients being"
^XMB(3.9,357,2,7,0)="changed to Non-Primary ingredients during the Data Update."
^XMB(3.9,357,2,8,0)=" "
^XMB(3.9,357,6,0)="^3.911A^3^3"
^XMB(3.9,357,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,357,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,357,6,3,0)="ORMSBY,SKIP"
^XMB(3.9,357,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,357,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,357,6,"B","ORMSBY,SKIP",3)=""
^XMB(3.9,358,0)="Potential issues with the GROUP INSURANCE PLAN (355.3) file^PATCH IB*2.0*359 POST INSTALL^3071227.181147"
^XMB(3.9,358,.6)="3071227"
^XMB(3.9,358,2,0)="^^15^15^3071227"
^XMB(3.9,358,2,1,0)="This report is designed to find inconsistencies in the GROUP INSURANCE"
^XMB(3.9,358,2,2,0)="PLAN (355.3) file.  There are functions in IB that rely on standard naming"
^XMB(3.9,358,2,3,0)="conventions when fields are entered for the Medicare (WNR) Plans A and B."
^XMB(3.9,358,2,4,0)="These functions operate under the premise that Part A and Part B plans"
^XMB(3.9,358,2,5,0)="use GROUP NAME (.03) fields of ""PART A"" and ""PART B"" respectively."
^XMB(3.9,358,2,6,0)=""
^XMB(3.9,358,2,7,0)=""
^XMB(3.9,358,2,8,0)="POSSIBLE ERRORS-"
^XMB(3.9,358,2,9,0)="-------------------------------------------------------------------------"
^XMB(3.9,358,2,10,0)="-0 Results found for Standard Medicare (WNR) plan PART A."
^XMB(3.9,358,2,11,0)="Please verify Standard Medicare (WNR) plan PART A is setup properly"
^XMB(3.9,358,2,12,0)=""
^XMB(3.9,358,2,13,0)="-0 Results found for Standard Medicare (WNR) plan PART B."
^XMB(3.9,358,2,14,0)="Please verify Standard Medicare (WNR) plan PART B is setup properly."
^XMB(3.9,358,2,15,0)=""
^XMB(3.9,359,0)="MAIL GROUP API"
^XMB(3.9,359,.6)="3071227"
^XMB(3.9,359,2,0)="^^4^4^3071227"
^XMB(3.9,359,2,1,0)="There was a call to the Mail Group Applications Programmer"
^XMB(3.9,359,2,2,0)="Interface (API) that required notification to the user:"
^XMB(3.9,359,2,3,0)=""
^XMB(3.9,359,2,4,0)="Mail Group NPI EXTRACT VERIFICATION created."
^XMB(3.9,360,0)="MAIL GROUP API"
^XMB(3.9,360,.6)="3071227"
^XMB(3.9,360,2,0)="^^4^4^3071227"
^XMB(3.9,360,2,1,0)="There was a call to the Mail Group Applications Programmer"
^XMB(3.9,360,2,2,0)="Interface (API) that required notification to the user:"
^XMB(3.9,360,2,3,0)=""
^XMB(3.9,360,2,4,0)="Members have been added to the NPI EXTRACT VERIFICATION Mail Group."
^XMB(3.9,361,0)="DATA UPDATE FOR NDF^NDF MANAGER^3071227.181228"
^XMB(3.9,361,.6)="3071227"
^XMB(3.9,361,1,0)="^3.91A^3^3"
^XMB(3.9,361,1,1,0)="1"
^XMB(3.9,361,1,2,0)="63"
^XMB(3.9,361,1,3,0)="68"
^XMB(3.9,361,1,"C",1,1)=""
^XMB(3.9,361,1,"C",63,2)=""
^XMB(3.9,361,1,"C",68,3)=""
^XMB(3.9,361,2,0)="^^875^875^3071227"
^XMB(3.9,361,2,1,0)=" "
^XMB(3.9,361,2,2,0)="The following VA Products have been added to the National"
^XMB(3.9,361,2,3,0)="Drug File.  You may wish to review, then match or unmatch"
^XMB(3.9,361,2,4,0)="local drug file entries based on this updated information."
^XMB(3.9,361,2,5,0)=" "
^XMB(3.9,361,2,6,0)="   ACCU-CHEK AVIVA (GLUCOSE) METER"
^XMB(3.9,361,2,7,0)="    (CMOP - XV433)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,8,0)="     657020-1011-00   "
^XMB(3.9,361,2,9,0)="   ADAPALENE 0.3% GEL,TOP"
^XMB(3.9,361,2,10,0)="    (CMOP - A1384)           (DISPENSE UNIT - GM)"
^XMB(3.9,361,2,11,0)="     000299-5918-45   "
^XMB(3.9,361,2,12,0)="   AMLODIPINE BESYLATE 10MG/VALSARTAN 160MG TAB,UD"
^XMB(3.9,361,2,13,0)="    (CMOP - A1379)           (DISPENSE UNIT - TAB)"
^XMB(3.9,361,2,14,0)="     000078-0489-35   "
^XMB(3.9,361,2,15,0)="   AMLODIPINE BESYLATE 10MG/VALSARTAN 160MG TAB"
^XMB(3.9,361,2,16,0)="    (CMOP - A1378)           (DISPENSE UNIT - TAB)"
^XMB(3.9,361,2,17,0)="     000078-0489-15   000078-0489-34   "
^XMB(3.9,361,2,18,0)="   AMLODIPINE BESYLATE 10MG/VALSARTAN 320MG TAB,UD"
^XMB(3.9,361,2,19,0)="    (CMOP - A1375)           (DISPENSE UNIT - TAB)"
^XMB(3.9,361,2,20,0)="     000078-0491-35   "
^XMB(3.9,361,2,21,0)="   AMLODIPINE BESYLATE 10MG/VALSARTAN 320MG TAB"
^XMB(3.9,361,2,22,0)="    (CMOP - A1374)           (DISPENSE UNIT - TAB)"
^XMB(3.9,361,2,23,0)="     000078-0491-15   000078-0491-34   "
^XMB(3.9,361,2,24,0)="   AMLODIPINE BESYLATE 5MG/VALSARTAN 160MG TAB,UD"
^XMB(3.9,361,2,25,0)="    (CMOP - A1373)           (DISPENSE UNIT - TAB)"
^XMB(3.9,361,2,26,0)="     000078-0488-35   "
^XMB(3.9,361,2,27,0)="   AMLODIPINE BESYLATE 5MG/VALSARTAN 160MG TAB"
^XMB(3.9,361,2,28,0)="    (CMOP - A1372)           (DISPENSE UNIT - TAB)"
^XMB(3.9,361,2,29,0)="     000078-0488-15   000078-0488-34   "
^XMB(3.9,361,2,30,0)="   AMLODIPINE BESYLATE 5MG/VALSARTAN 320MG TAB,UD"
^XMB(3.9,361,2,31,0)="    (CMOP - A1377)           (DISPENSE UNIT - TAB)"
^XMB(3.9,361,2,32,0)="     000078-0490-35   "
^XMB(3.9,361,2,33,0)="   AMLODIPINE BESYLATE 5MG/VALSARTAN 320MG TAB"
^XMB(3.9,361,2,34,0)="    (CMOP - A1376)           (DISPENSE UNIT - TAB)"
^XMB(3.9,361,2,35,0)="     000078-0490-15   000078-0490-34   "
^XMB(3.9,361,2,36,0)="   AMPU-BALM OINT,TOP"
^XMB(3.9,361,2,37,0)="    (CMOP - A1382)           (DISPENSE UNIT - GM)"
^XMB(3.9,361,2,38,0)="     999996-7905-00   "
^XMB(3.9,361,2,39,0)="   ANNATTO (ACHIOTE) CAP/TAB"
^XMB(3.9,361,2,40,0)="    (CMOP - A1383)           (DISPENSE UNIT - CAP/TAB)"
^XMB(3.9,361,2,41,0)="     999412-5785-00   "
^XMB(3.9,361,2,42,0)="   AVEENO POSITIVELY RADIANT BAR SOAP"
^XMB(3.9,361,2,43,0)="    (CMOP - A1380)           (DISPENSE UNIT - BAR)"
^XMB(3.9,361,2,44,0)="     038137-0038-46   "
^XMB(3.9,361,2,45,0)="   AZITHROMYCIN 1% SUSP,OPH"
^XMB(3.9,361,2,46,0)="    (CMOP - A1381)           (DISPENSE UNIT - ML)"
^XMB(3.9,361,2,47,0)="     031357-0040-25   "
^XMB(3.9,361,2,48,0)="   BANDAGE TUBULAR ELASTIC PADDED LARGE C#154581"
^XMB(3.9,361,2,49,0)="    (CMOP - XV432)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,50,0)="     000031-5458-10   "
^XMB(3.9,361,2,51,0)="   BANDAGE TUBULAR ELASTIC PADDED MEDIUM C#154580"
^XMB(3.9,361,2,52,0)="    (CMOP - XV430)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,53,0)="     000031-5458-00   "
^XMB(3.9,361,2,54,0)="   BANDAGE TUBULAR ELASTIC PADDED SMALL C#154579"
^XMB(3.9,361,2,55,0)="    (CMOP - XV431)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,56,0)="     000031-5457-90   "
^XMB(3.9,361,2,57,0)="   BARRIER,ASSURA COLOPLAST #14304"
^XMB(3.9,361,2,58,0)="    (CMOP - XV408)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,59,0)="     001170-1143-04   "
^XMB(3.9,361,2,60,0)="   BARRIER,ASSURA COLOPLAST #14305"
^XMB(3.9,361,2,61,0)="    (CMOP - XV409)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,62,0)="     001170-1143-05   "
^XMB(3.9,361,2,63,0)="   BARRIER,ASSURA COLOPLAST #14306"
^XMB(3.9,361,2,64,0)="    (CMOP - XV410)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,65,0)="     001170-1143-06   "
^XMB(3.9,361,2,66,0)="   BARRIER,ASSURA COLOPLAST #14307"
^XMB(3.9,361,2,67,0)="    (CMOP - XV411)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,68,0)="     001170-1143-07   "
^XMB(3.9,361,2,69,0)="   BARRIER,ASSURA COLOPLAST #14308"
^XMB(3.9,361,2,70,0)="    (CMOP - XV406)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,71,0)="     001170-1143-08   "
^XMB(3.9,361,2,72,0)="   BARRIER,CONVEX,ASSURA COLOPLAST #14402"
^XMB(3.9,361,2,73,0)="    (CMOP - XV403)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,74,0)="     001170-7144-02   "
^XMB(3.9,361,2,75,0)="   BARRIER,CONVEX,ASSURA COLOPLAST #14404"
^XMB(3.9,361,2,76,0)="    (CMOP - XV404)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,77,0)="     001170-7144-04   "
^XMB(3.9,361,2,78,0)="   BARRIER,ESTEEM SYNERGY C#403948"
^XMB(3.9,361,2,79,0)="    (CMOP - XV355)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,80,0)="     000403-9480-10   "
^XMB(3.9,361,2,81,0)="   BARRIER,ESTEEM SYNERGY C#405456"
^XMB(3.9,361,2,82,0)="    (CMOP - XV352)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,83,0)="     003405-4560-10   "
^XMB(3.9,361,2,84,0)="   BARRIER,ESTEEM SYNERGY C#405458"
^XMB(3.9,361,2,85,0)="    (CMOP - XV353)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,86,0)="     003405-4580-10   "
^XMB(3.9,361,2,87,0)="   BARRIER,ESTEEM SYNERGY C#405467"
^XMB(3.9,361,2,88,0)="    (CMOP - XV354)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,89,0)="     000405-4670-10   "
^XMB(3.9,361,2,90,0)="   BARRIER,ESTEEM SYNERGY C#405476"
^XMB(3.9,361,2,91,0)="    (CMOP - XV357)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,92,0)="     003405-4760-10   "
^XMB(3.9,361,2,93,0)="   BARRIER,ESTEEM SYNERGY C#405477"
^XMB(3.9,361,2,94,0)="    (CMOP - XV358)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,95,0)="     003405-4770-10   "
^XMB(3.9,361,2,96,0)="   BARRIER,ESTEEM SYNERGY C#405479"
^XMB(3.9,361,2,97,0)="    (CMOP - XV359)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,98,0)="     003405-4790-10   "
^XMB(3.9,361,2,99,0)="   BARRIER,ESTEEM SYNERGY C#405483"
^XMB(3.9,361,2,100,0)="    (CMOP - XV356)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,101,0)="     000405-4830-10   "
^XMB(3.9,361,2,102,0)="   BARRIER,OSTOMY,NEW IMAGE H#14202"
^XMB(3.9,361,2,103,0)="    (CMOP - XV460)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,104,0)="     008380-0142-02   "
^XMB(3.9,361,2,105,0)="   BARRIER,OSTOMY,NEW IMAGE H#14203"
^XMB(3.9,361,2,106,0)="    (CMOP - XV461)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,107,0)="     008380-0142-03   "
^XMB(3.9,361,2,108,0)="   BARRIER,OSTOMY,NEW IMAGE H#14206"
^XMB(3.9,361,2,109,0)="    (CMOP - XV462)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,110,0)="     008380-0142-06   "
^XMB(3.9,361,2,111,0)="   BARRIER,OSTOMY,NEW IMAGE H#14504"
^XMB(3.9,361,2,112,0)="    (CMOP - XV457)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,113,0)="     008380-0145-04   "
^XMB(3.9,361,2,114,0)="   BARRIER,OSTOMY,NEW IMAGE H#14505"
^XMB(3.9,361,2,115,0)="    (CMOP - XV458)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,116,0)="     008380-0145-05   "
^XMB(3.9,361,2,117,0)="   BARRIER,OSTOMY,NEW IMAGE H#14506"
^XMB(3.9,361,2,118,0)="    (CMOP - XV459)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,119,0)="     008380-0145-06   "
^XMB(3.9,361,2,120,0)="   BARRIER,OSTOMY,NEW IMAGE H#14802"
^XMB(3.9,361,2,121,0)="    (CMOP - XV463)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,122,0)="     008380-0148-02   "
^XMB(3.9,361,2,123,0)="   BARRIER,OSTOMY,NEW IMAGE H#14803"
^XMB(3.9,361,2,124,0)="    (CMOP - B0580)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,125,0)="     008380-0148-03   "
^XMB(3.9,361,2,126,0)="   BARRIER,OSTOMY,NEW IMAGE H#14804"
^XMB(3.9,361,2,127,0)="    (CMOP - XV464)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,128,0)="     008380-0148-04   "
^XMB(3.9,361,2,129,0)="   BARRIER,OSTOMY,NEW IMAGE H#14901"
^XMB(3.9,361,2,130,0)="    (CMOP - XV465)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,131,0)="     008380-0149-01   "
^XMB(3.9,361,2,132,0)="   BARRIER,OSTOMY,NEW IMAGE H#14902"
^XMB(3.9,361,2,133,0)="    (CMOP - XV466)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,134,0)="     008380-0149-02   "
^XMB(3.9,361,2,135,0)="   BARRIER,OSTOMY,NEW IMAGE H#14905"
^XMB(3.9,361,2,136,0)="    (CMOP - XV467)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,137,0)="     008380-0149-05   "
^XMB(3.9,361,2,138,0)="   BARRIER,OSTOMY,NEW IMAGE H#14906"
^XMB(3.9,361,2,139,0)="    (CMOP - XV468)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,140,0)="     008380-0149-06   "
^XMB(3.9,361,2,141,0)="   BARRIER,OSTOMY,NEW IMAGE H#14907"
^XMB(3.9,361,2,142,0)="    (CMOP - XV469)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,143,0)="     008380-0149-07   "
^XMB(3.9,361,2,144,0)="   BARRIER,OSTOMY,NEW IMAGE H#14908"
^XMB(3.9,361,2,145,0)="    (CMOP - XV470)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,146,0)="     008380-0149-08   "
^XMB(3.9,361,2,147,0)="   BARRIER,OSTOMY,NEW IMAGE H#14909"
^XMB(3.9,361,2,148,0)="    (CMOP - XV471)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,149,0)="     008380-0149-09   "
^XMB(3.9,361,2,150,0)="   BARRIER,OSTOMY,NEW IMAGE H#14910"
^XMB(3.9,361,2,151,0)="    (CMOP - XV472)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,152,0)="     008380-0149-10   "
^XMB(3.9,361,2,153,0)="   BARRIER,OSTOMY,NEW IMAGE H#14911"
^XMB(3.9,361,2,154,0)="    (CMOP - XV473)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,155,0)="     008380-0149-11   "
^XMB(3.9,361,2,156,0)="   BARRIER,OSTOMY,NEW IMAGE H#15402"
^XMB(3.9,361,2,157,0)="    (CMOP - XV484)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,158,0)="     999990-0154-02   "
^XMB(3.9,361,2,159,0)="   BARRIER,OSTOMY,NEW IMAGE H#15403"
^XMB(3.9,361,2,160,0)="    (CMOP - XV485)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,161,0)="     999990-0154-03   "
^XMB(3.9,361,2,162,0)="   BARRIER,OSTOMY,NEW IMAGE H#15404"
^XMB(3.9,361,2,163,0)="    (CMOP - XV486)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,164,0)="     999990-0154-04   "
^XMB(3.9,361,2,165,0)="   BARRIER,OSTOMY,NEW IMAGE H#15503"
^XMB(3.9,361,2,166,0)="    (CMOP - XV480)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,167,0)="     999990-0155-03   "
^XMB(3.9,361,2,168,0)="   BARRIER,OSTOMY,NEW IMAGE H#15504"
^XMB(3.9,361,2,169,0)="    (CMOP - XV481)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,170,0)="     999990-0155-04   "
^XMB(3.9,361,2,171,0)="   BARRIER,OSTOMY,NEW IMAGE H#15505"
^XMB(3.9,361,2,172,0)="    (CMOP - XV482)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,173,0)="     999990-0155-05   "
^XMB(3.9,361,2,174,0)="   BARRIER,OSTOMY,NEW IMAGE H#15506"
^XMB(3.9,361,2,175,0)="    (CMOP - XV483)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,176,0)="     999990-0155-06   "
^XMB(3.9,361,2,177,0)="   BARRIER,OSTOMY,NEW IMAGE H#15903"
^XMB(3.9,361,2,178,0)="    (CMOP - XV476)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,179,0)="     999990-0159-03   "
^XMB(3.9,361,2,180,0)="   BARRIER,OSTOMY,NEW IMAGE H#15904"
^XMB(3.9,361,2,181,0)="    (CMOP - XV477)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,182,0)="     999990-0159-04   "
^XMB(3.9,361,2,183,0)="   BARRIER,OSTOMY,NEW IMAGE H#15905"
^XMB(3.9,361,2,184,0)="    (CMOP - XV478)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,185,0)="     999990-0159-05   "
^XMB(3.9,361,2,186,0)="   BARRIER,OSTOMY,NEW IMAGE H#15906"
^XMB(3.9,361,2,187,0)="    (CMOP - XV479)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,188,0)="     999990-0159-06   "
^XMB(3.9,361,2,189,0)="   BELT,SUPPORT 4IN LARGE NU-HOPE #2667"
^XMB(3.9,361,2,190,0)="    (CMOP - XV415)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,191,0)="     999992-6666-70   "
^XMB(3.9,361,2,192,0)="   BELT,SUPPORT 4IN X-LARGE NU-HOPE #2663DC"
^XMB(3.9,361,2,193,0)="    (CMOP - XV416)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,194,0)="     999992-6666-30   "
^XMB(3.9,361,2,195,0)="   BELT,SUPPORT 4IN X-LARGE NU-HOPE #2668-H"
^XMB(3.9,361,2,196,0)="    (CMOP - XV418)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,197,0)="     999992-6668-80   "
^XMB(3.9,361,2,198,0)="   BELT,SUPPORT 4IN X-LARGE NU-HOPE #2668"
^XMB(3.9,361,2,199,0)="    (CMOP - XV417)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,200,0)="     999992-6666-80   "
^XMB(3.9,361,2,201,0)="   BELT,SUPPORT 6IN LARGE NU-HOPE #6602-C"
^XMB(3.9,361,2,202,0)="    (CMOP - XV419)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,203,0)="     999996-6022-20   "
^XMB(3.9,361,2,204,0)="   BELT,SUPPORT 6IN LARGE NU-HOPE #6602-P"
^XMB(3.9,361,2,205,0)="    (CMOP - XV420)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,206,0)="     999996-6022-30   "
^XMB(3.9,361,2,207,0)="   BELT,SUPPORT 6IN LARGE NU-HOPE #6602-SP"
^XMB(3.9,361,2,208,0)="    (CMOP - XV421)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,209,0)="     999996-6022-40   "
^XMB(3.9,361,2,210,0)="   BELT,SUPPORT 6IN MEDIUM NU-HOPE #6601-P"
^XMB(3.9,361,2,211,0)="    (CMOP - XV424)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,212,0)="     999996-6019-10   "
^XMB(3.9,361,2,213,0)="   BELT,SUPPORT 6IN X-LARGE NU-HOPE #6613"
^XMB(3.9,361,2,214,0)="    (CMOP - XV422)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,215,0)="     999996-6031-10   "
^XMB(3.9,361,2,216,0)="   BELT,SUPPORT 6IN XX-LARGE NU-HOPE #6604-PC"
^XMB(3.9,361,2,217,0)="    (CMOP - XV425)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,218,0)="     999996-6041-10   "
^XMB(3.9,361,2,219,0)="   BELT,SUPPORT 6IN XX-LARGE NU-HOPE #6604-P"
^XMB(3.9,361,2,220,0)="    (CMOP - XV428)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,221,0)="     999996-6640-10   "
^XMB(3.9,361,2,222,0)="   BELT,SUPPORT 6IN XX-LARGE NU-HOPE #6614-B"
^XMB(3.9,361,2,223,0)="    (CMOP - XV423)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,224,0)="     999996-6033-30   "
^XMB(3.9,361,2,225,0)="   BELT,SUPPORT 6IN XX-LARGE NU-HOPE #6614-PC"
^XMB(3.9,361,2,226,0)="    (CMOP - XV426)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,227,0)="     999996-6444-40   "
^XMB(3.9,361,2,228,0)="   BELT,SUPPORT 6IN XX-LARGE NU-HOPE #6614-SP"
^XMB(3.9,361,2,229,0)="    (CMOP - XV427)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,230,0)="     999996-4444-40   "
^XMB(3.9,361,2,231,0)="   BELT,SUPPORT 9IN X-LARGE NU-HOPE #6643-SP"
^XMB(3.9,361,2,232,0)="    (CMOP - XV429)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,233,0)="     999997-7430-10   "
^XMB(3.9,361,2,234,0)="   BENZOYL PEROXIDE 40MG/ERYTHROMYCIN 24MG/PKT GEL,TOP"
^XMB(3.9,361,2,235,0)="    (CMOP - B0581)           (DISPENSE UNIT - PKT)"
^XMB(3.9,361,2,236,0)="     000066-0577-60   "
^XMB(3.9,361,2,237,0)="   BIAFINE EMULSION,TOP"
^XMB(3.9,361,2,238,0)="    (CMOP - B0579)           (DISPENSE UNIT - GM)"
^XMB(3.9,361,2,239,0)="     000062-0205-02   "
^XMB(3.9,361,2,240,0)="   BIOTENE MOUTHWASH"
^XMB(3.9,361,2,241,0)="    (CMOP - B0577)           (DISPENSE UNIT - ML)"
^XMB(3.9,361,2,242,0)="     999777-0022-00   "
^XMB(3.9,361,2,243,0)="   BIOTENE SENSITIVE TOOTHPASTE"
^XMB(3.9,361,2,244,0)="    (CMOP - B0578)           (DISPENSE UNIT - GM)"
^XMB(3.9,361,2,245,0)="     999982-0022-00   "
^XMB(3.9,361,2,246,0)="   BRIEF,EXTRA ABSORBENT PROTECTIVE UNDERWEAR LARGE ATTENDS"
^XMB(3.9,361,2,247,0)="    (CMOP - XV413)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,248,0)="     999972-2444-40   "
^XMB(3.9,361,2,249,0)="   BRIEF,EXTRA ABSORBENT PROTECTIVE UNDERWEAR MEDIUM ATTENDS"
^XMB(3.9,361,2,250,0)="    (CMOP - XV489)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,251,0)="     999972-2155-50   "
^XMB(3.9,361,2,252,0)="   BRIEF,EXTRA ABSORBENT PROTECTIVE UNDERWEAR X-LARGE ATTENDS"
^XMB(3.9,361,2,253,0)="    (CMOP - XV414)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,254,0)="     999972-4444-40   "
^XMB(3.9,361,2,255,0)="   BRIEF,SUPER PLUS ABSORB WITH BARRIERS UNDERWEAR LARGE ATTENDS"
^XMB(3.9,361,2,256,0)="    (CMOP - XV410)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,257,0)="     999972-2223-30   "
^XMB(3.9,361,2,258,0)="   BRIEF,SUPER PLUS ABSORB WITH BARRIERS UNDERWEAR MEDIUM ATTENDS"
^XMB(3.9,361,2,259,0)="    (CMOP - XV405)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,260,0)="     999972-2222-20   "
^XMB(3.9,361,2,261,0)="   BRIEF,SUPER PLUS ABSORB WITH BARRIERS UNDERWEAR X-LARGE ATTENDS"
^XMB(3.9,361,2,262,0)="    (CMOP - XV412)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,263,0)="     999972-2244-40   "
^XMB(3.9,361,2,264,0)="   CALCIUM 600MG (AS CARBONATE)/VITAMIN D 400UNIT TAB"
^XMB(3.9,361,2,265,0)="    (CMOP - C1285)           (DISPENSE UNIT - TAB)"
^XMB(3.9,361,2,266,0)="     049348-0110-12   "
^XMB(3.9,361,2,267,0)="   CARTRIDGE,ANIMAS IR 3ML #1000"
^XMB(3.9,361,2,268,0)="    (CMOP - XV456)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,269,0)="     999010-0052-01   "
^XMB(3.9,361,2,270,0)="   CASTOR OIL 788MG/PERUVIAN BALSAM 87MG/TRYPSIN 0.12MG/GM GEL,TOP"
^XMB(3.9,361,2,271,0)="    (CMOP - C1292)           (DISPENSE UNIT - GM)"
^XMB(3.9,361,2,272,0)="     016781-0116-95   "
^XMB(3.9,361,2,273,0)="   CATHETER FOLEY 2-WAY SPECIALTY 5CC BARD#0196SI16"
^XMB(3.9,361,2,274,0)="    (CMOP - XV497)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,275,0)="     999901-6812-16   "
^XMB(3.9,361,2,276,0)="   CATHETER,EXTERNAL INTERMEDIATE FREEDOM CLEAR #5300/5330"
^XMB(3.9,361,2,277,0)="    (CMOP - XV490)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,278,0)="     813177-7790-01   "
^XMB(3.9,361,2,279,0)="   CATHETER,EXTERNAL LARGE FREEDOM CLEAR #5400/5430"
^XMB(3.9,361,2,280,0)="    (CMOP - XV491)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,281,0)="     813177-7800-01   "
^XMB(3.9,361,2,282,0)="   CATHETER,EXTERNAL MEDIUM FREEDOM CLEAR #5200/5230"
^XMB(3.9,361,2,283,0)="    (CMOP - XV492)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,284,0)="     813177-7780-01   "
^XMB(3.9,361,2,285,0)="   CATHETER,EXTERNAL SMALL FREEDOM CLEAR #5100/5130"
^XMB(3.9,361,2,286,0)="    (CMOP - XV493)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,287,0)="     813177-7770-01   "
^XMB(3.9,361,2,288,0)="   CATHETER,EXTERNAL X-LARGE FREEDOM CLEAR #5500/5530"
^XMB(3.9,361,2,289,0)="    (CMOP - XV494)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,290,0)="     813177-7810-01   "
^XMB(3.9,361,2,291,0)="   CATHETER,FOLEY 12FR 5CC BARD#123512A"
^XMB(3.9,361,2,292,0)="    (CMOP - XV360)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,293,0)="     999901-2351-20   "
^XMB(3.9,361,2,294,0)="   CATHETER,FOLEY 14FR 5CC BARD#123514A"
^XMB(3.9,361,2,295,0)="    (CMOP - XV392)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,296,0)="     999012-3514-00   "
^XMB(3.9,361,2,297,0)="   CATHETER,FOLEY 16FR 5CC BARD#123516A"
^XMB(3.9,361,2,298,0)="    (CMOP - XV391)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,299,0)="     999012-3516-00   "
^XMB(3.9,361,2,300,0)="   CATHETER,FOLEY 18FR 5CC BARD#123518A"
^XMB(3.9,361,2,301,0)="    (CMOP - XV394)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,302,0)="     999012-3518-00   "
^XMB(3.9,361,2,303,0)="   CATHETER,FOLEY 20FR 5CC BARD#123520A"
^XMB(3.9,361,2,304,0)="    (CMOP - XV395)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,305,0)="     999901-2352-00   "
^XMB(3.9,361,2,306,0)="   CATHETER,FOLEY 22FR 5CC BARD#123522A"
^XMB(3.9,361,2,307,0)="    (CMOP - XV396)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,308,0)="     999012-3522-00   "
^XMB(3.9,361,2,309,0)="   CATHETER,FOLEY 24FR 5CC BARD#123524A"
^XMB(3.9,361,2,310,0)="    (CMOP - XV399)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,311,0)="     999901-2352-40   "
^XMB(3.9,361,2,312,0)="   CATHETER,FOLEY 26FR 5CC BARD#123526A"
^XMB(3.9,361,2,313,0)="    (CMOP - XV400)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,314,0)="     999901-2352-60   "
^XMB(3.9,361,2,315,0)="   CATHETER,FOLEY 30FR 5CC BARD#123530A"
^XMB(3.9,361,2,316,0)="    (CMOP - XV401)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,317,0)="     999901-2352-30   "
^XMB(3.9,361,2,318,0)="   CATHETER,SELF-CATH 10FR COLOPLAST #1010"
^XMB(3.9,361,2,319,0)="    (CMOP - XV369)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,320,0)="     981317-0010-10   "
^XMB(3.9,361,2,321,0)="   CATHETER,SELF-CATH 12FR COLOPLAST #1012"
^XMB(3.9,361,2,322,0)="    (CMOP - XV368)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,323,0)="     981317-0010-12   "
^XMB(3.9,361,2,324,0)="   CATHETER,SELF-CATH 14FR COLOPLAST #1014"
^XMB(3.9,361,2,325,0)="    (CMOP - XV371)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,326,0)="     981317-0010-14   "
^XMB(3.9,361,2,327,0)="   CATHETER,SELF-CATH 16FR COLOPLAST #1016"
^XMB(3.9,361,2,328,0)="    (CMOP - XV367)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,329,0)="     981317-0010-16   "
^XMB(3.9,361,2,330,0)="   CATHETER,SELF-CATH 8FR COLOPLAST #1008"
^XMB(3.9,361,2,331,0)="    (CMOP - XV370)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,332,0)="     981317-0010-08   "
^XMB(3.9,361,2,333,0)="   CEFDINIR 300MG CAP,UD"
^XMB(3.9,361,2,334,0)="    (CMOP - C1291)           (DISPENSE UNIT - CAP)"
^XMB(3.9,361,2,335,0)="     000781-2176-69   "
^XMB(3.9,361,2,336,0)="   CEFIXIME 200MG/5ML SUSP,ORAL"
^XMB(3.9,361,2,337,0)="    (CMOP - C1286)           (DISPENSE UNIT - ML)"
^XMB(3.9,361,2,338,0)="     027437-0206-03   "
^XMB(3.9,361,2,339,0)="   CHLORHEXIDINE GLUCONATE 0.12% (AF) RINSE,ORAL"
^XMB(3.9,361,2,340,0)="    (CMOP - C1287)           (DISPENSE UNIT - ML)"
^XMB(3.9,361,2,341,0)="     051284-0620-22   "
^XMB(3.9,361,2,342,0)="   CHLORPHENIRAMINE 4MG/PHENYLEPHRINE 10MG TAB"
^XMB(3.9,361,2,343,0)="    (CMOP - C1293)           (DISPENSE UNIT - TAB)"
^XMB(3.9,361,2,344,0)="     000501-0018-24   049378-0715-04   "
^XMB(3.9,361,2,345,0)="   COLLAGEN,ACTIVATED 60% GEL,TOP"
^XMB(3.9,361,2,346,0)="    (CMOP - C1288)           (DISPENSE UNIT - GM)"
^XMB(3.9,361,2,347,0)="     083779-8004-00   083779-8004-01   "
^XMB(3.9,361,2,348,0)="   COLLAGEN,ACTIVATED 96% PWDR,TOP"
^XMB(3.9,361,2,349,0)="    (CMOP - C1289)           (DISPENSE UNIT - GM)"
^XMB(3.9,361,2,350,0)="     083779-8005-00   083779-8005-01   083779-8005-02   083779-8005-03   "
^XMB(3.9,361,2,351,0)="   CONDOM,NON-LATEX,NON-LUBRICATED"
^XMB(3.9,361,2,352,0)="    (CMOP - XV389)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,353,0)="     022600-0909-50   "
^XMB(3.9,361,2,354,0)="   DRESSING,ACTICOAT ROPE 0.75IN X 12IN SN#20181"
^XMB(3.9,361,2,355,0)="    (CMOP - XV474)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,356,0)="     040565-0121-39   "
^XMB(3.9,361,2,357,0)="   DRESSING,MEPILEX AG 4IN X 4IN #287100"
^XMB(3.9,361,2,358,0)="    (CMOP - XV450)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,359,0)="     999002-8710-00   "
^XMB(3.9,361,2,360,0)="   DRESSING,MEPILEX AG 4IN X 8IN #287200"
^XMB(3.9,361,2,361,0)="    (CMOP - XV452)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,362,0)="     990126-2872-00   "
^XMB(3.9,361,2,363,0)="   DRESSING,MEPILEX AG 6IN X 6IN #287300"
^XMB(3.9,361,2,364,0)="    (CMOP - XV449)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,365,0)="     999002-8730-00   "
^XMB(3.9,361,2,366,0)="   DRESSING,MEPILEX AG 8IN X 8IN #287400"
^XMB(3.9,361,2,367,0)="    (CMOP - XV448)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,368,0)="     999002-8740-00   "
^XMB(3.9,361,2,369,0)="   ESMOLOL HCL 20MG/ML/NACL INJ,100ML"
^XMB(3.9,361,2,370,0)="    (CMOP - E0492)           (DISPENSE UNIT - BAG)"
^XMB(3.9,361,2,371,0)="     010019-0075-87   "
^XMB(3.9,361,2,372,0)="   FECAL COLLECTOR C#4111-00"
^XMB(3.9,361,2,373,0)="    (CMOP - XV377)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,374,0)="     000003-4111-00   "
^XMB(3.9,361,2,375,0)="   FECAL COLLECTOR C#4111-01"
^XMB(3.9,361,2,376,0)="    (CMOP - XV376)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,377,0)="     000003-4111-01   "
^XMB(3.9,361,2,378,0)="   FLUID DISPENSING SYSTEM MAC-10001"
^XMB(3.9,361,2,379,0)="    (CMOP - XV393)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,380,0)="     008021-5135-06   "
^XMB(3.9,361,2,381,0)="   GASKET,SEAL-TITE 3.75IN,#TSN4302"
^XMB(3.9,361,2,382,0)="    (CMOP - XV366)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,383,0)="     999023-5343-02   "
^XMB(3.9,361,2,384,0)="   GLUCERNA SHAKE LIQUID CHOCOLATE"
^XMB(3.9,361,2,385,0)="    (CMOP - G0286)           (DISPENSE UNIT - 240ML BTL)"
^XMB(3.9,361,2,386,0)="     070074-0545-45   "
^XMB(3.9,361,2,387,0)="   GLUCERNA SHAKE LIQUID PECAN"
^XMB(3.9,361,2,388,0)="    (CMOP - G0287)           (DISPENSE UNIT - 240ML BTL)"
^XMB(3.9,361,2,389,0)="     007007-4043-27   "
^XMB(3.9,361,2,390,0)="   GLUCERNA SHAKE LIQUID STRAWBERRY"
^XMB(3.9,361,2,391,0)="    (CMOP - G0288)           (DISPENSE UNIT - 240ML BTL)"
^XMB(3.9,361,2,392,0)="     070074-0560-53   "
^XMB(3.9,361,2,393,0)="   GLUCERNA SHAKE LIQUID VANILLA"
^XMB(3.9,361,2,394,0)="    (CMOP - G0289)           (DISPENSE UNIT - 240ML BTL)"
^XMB(3.9,361,2,395,0)="     077074-0543-29   "
^XMB(3.9,361,2,396,0)="   GLUCOSE SENSOR GUARDIAN MMT-7002"
^XMB(3.9,361,2,397,0)="    (CMOP - XV375)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,398,0)="     776300-7002-00   "
^XMB(3.9,361,2,399,0)="   HEPATITIS B IMMUNE GLOBULIN (HEPAGAM B) INJ"
^XMB(3.9,361,2,400,0)="    (CMOP - H0523)           (DISPENSE UNIT - ML)"
^XMB(3.9,361,2,401,0)="     060492-0052-01   "
^XMB(3.9,361,2,402,0)="   HYDROCORTISONE 2%/LIDOCAINE 2% CREAM,RTL W/APPLICATOR"
^XMB(3.9,361,2,403,0)="    (CMOP - XV495)           (DISPENSE UNIT - TUBE)"
^XMB(3.9,361,2,404,0)="     000482-4801-24   "
^XMB(3.9,361,2,405,0)="   INSULIN SYRINGE 1ML SLIP TIP"
^XMB(3.9,361,2,406,0)="    (CMOP - XV398)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,407,0)="     008881-5013-84   "
^XMB(3.9,361,2,408,0)="   INSULIN,GLARGINE,HUMAN 100 UNIT/ML INJ,SOLOSTAR,3ML"
^XMB(3.9,361,2,409,0)="    (CMOP - I0453)           (DISPENSE UNIT - SYR)"
^XMB(3.9,361,2,410,0)="     000088-2220-60   "
^XMB(3.9,361,2,411,0)="   INSULIN,REGULAR,HUMAN CONCENTRATED 500 UNIT/ML INJ HUMULIN R"
^XMB(3.9,361,2,412,0)="    (CMOP - I0452)           (DISPENSE UNIT - VI)"
^XMB(3.9,361,2,413,0)="     000002-8501-01   000028-5010-10   "
^XMB(3.9,361,2,414,0)="   IRRIGATION KIT BARD #750301"
^XMB(3.9,361,2,415,0)="    (CMOP - XV453)           (DISPENSE UNIT - KIT)"
^XMB(3.9,361,2,416,0)="     999975-0301-00   "
^XMB(3.9,361,2,417,0)="   JUVEN PWDR PKT,23GM GRAPE"
^XMB(3.9,361,2,418,0)="    (CMOP - J0023)           (DISPENSE UNIT - PKT)"
^XMB(3.9,361,2,419,0)="     059781-0225-50   "
^XMB(3.9,361,2,420,0)="   JUVEN PWDR PKT,23GM ORANGE"
^XMB(3.9,361,2,421,0)="    (CMOP - J0022)           (DISPENSE UNIT - PKT)"
^XMB(3.9,361,2,422,0)="     059781-0225-51   "
^XMB(3.9,361,2,423,0)="   LABETALOL HCL 200MG TAB,UD"
^XMB(3.9,361,2,424,0)="    (CMOP - L0399)           (DISPENSE UNIT - TAB)"
^XMB(3.9,361,2,425,0)="     000182-8203-89   "
^XMB(3.9,361,2,426,0)="   LAMOTRIGINE 25MG TAB,42/LAMOTRIGINE 100MG TAB,7,KIT"
^XMB(3.9,361,2,427,0)="    (CMOP - L0400)           (DISPENSE UNIT - KIT)"
^XMB(3.9,361,2,428,0)="     000173-0594-02   "
^XMB(3.9,361,2,429,0)="   LEG BAG FREEDOM T-TAP KIT COLOPLAST #7077"
^XMB(3.9,361,2,430,0)="    (CMOP - XV442)           (DISPENSE UNIT - KIT)"
^XMB(3.9,361,2,431,0)="     981317-7077-00   "
^XMB(3.9,361,2,432,0)="   LEG BAG FREEDOM T-TAP KIT COLOPLAST #7078"
^XMB(3.9,361,2,433,0)="    (CMOP - XV441)           (DISPENSE UNIT - KIT)"
^XMB(3.9,361,2,434,0)="     981317-7078-00   "
^XMB(3.9,361,2,435,0)="   LEG BAG FREEDOM T-TAP KIT COLOPLAST #7079"
^XMB(3.9,361,2,436,0)="    (CMOP - XV437)           (DISPENSE UNIT - KIT)"
^XMB(3.9,361,2,437,0)="     991317-7079-00   "
^XMB(3.9,361,2,438,0)="   LEG BAG FREEDOM T-TAP KIT COLOPLAST #7088"
^XMB(3.9,361,2,439,0)="    (CMOP - XV440)           (DISPENSE UNIT - KIT)"
^XMB(3.9,361,2,440,0)="     999917-7007-88   "
^XMB(3.9,361,2,441,0)="   LEG BAG FREEDOM T-TAP KIT COLOPLAST #7089"
^XMB(3.9,361,2,442,0)="    (CMOP - XV438)           (DISPENSE UNIT - KIT)"
^XMB(3.9,361,2,443,0)="     991317-7089-00   "
^XMB(3.9,361,2,444,0)="   LEG BAG FREEDOM T-TAP KIT COLOPLAST #9010"
^XMB(3.9,361,2,445,0)="    (CMOP - XV439)           (DISPENSE UNIT - KIT)"
^XMB(3.9,361,2,446,0)="     831377-9010-00   "
^XMB(3.9,361,2,447,0)="   MEDROXYPROGESTERONE ACETATE 104MG/0.65ML SYR INJ,SUSP"
^XMB(3.9,361,2,448,0)="    (CMOP - M0742)           (DISPENSE UNIT - SYR)"
^XMB(3.9,361,2,449,0)="     000009-4709-01   "
^XMB(3.9,361,2,450,0)="   MICAFUNGIN NA 100MG/VIL INJ"
^XMB(3.9,361,2,451,0)="    (CMOP - M0737)           (DISPENSE UNIT - VI)"
^XMB(3.9,361,2,452,0)="     000469-3211-10   "
^XMB(3.9,361,2,453,0)="   MULTIVITAMIN/OPTH AREDS DOUBLE STRENGTH CAP"
^XMB(3.9,361,2,454,0)="    (CMOP - M0741)           (DISPENSE UNIT - CAP)"
^XMB(3.9,361,2,455,0)="     924208-0432-62   "
^XMB(3.9,361,2,456,0)="   MULTIVITAMIN/OPTH AREDS SINGLE STRENGTH TAB"
^XMB(3.9,361,2,457,0)="    (CMOP - M0740)           (DISPENSE UNIT - TAB)"
^XMB(3.9,361,2,458,0)="     000536-4178-41   "
^XMB(3.9,361,2,459,0)="   MULTIVITAMINS W/MINERALS,PRENATAL DUET-DHA CAP/TAB PKT,12"
^XMB(3.9,361,2,460,0)="    (CMOP - M0738)           (DISPENSE UNIT - PKT)"
^XMB(3.9,361,2,461,0)="     066479-0845-30   "
^XMB(3.9,361,2,462,0)="   NA BIPHOSPHATE 0.9GM/NA PHOSPHATE 2.4GM/5ML LIQUID,ORAL"
^XMB(3.9,361,2,463,0)="    (CMOP - N0563)           (DISPENSE UNIT - ML)"
^XMB(3.9,361,2,464,0)="     000132-0109-15   "
^XMB(3.9,361,2,465,0)="   ORAL,SWAB TOOTHETTE PLUS W/MOUTHWASH"
^XMB(3.9,361,2,466,0)="    (CMOP - XV443)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,467,0)="     990061-6120-00   "
^XMB(3.9,361,2,468,0)="   ORAL,SWAB TOOTHETTE PLUS W/SODIUM BICARBONATE"
^XMB(3.9,361,2,469,0)="    (CMOP - XV444)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,470,0)="     999000-6160-76   999000-6160-77   999000-6160-75   "
^XMB(3.9,361,2,471,0)="   ORAL,SWAB TOOTHETTE PLUS"
^XMB(3.9,361,2,472,0)="    (CMOP - XV445)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,473,0)="     999000-6160-71   999000-6160-72   999000-6160-70   "
^XMB(3.9,361,2,474,0)="   ORAL,SWAB TOOTHETTE W/DENTIFRICE"
^XMB(3.9,361,2,475,0)="    (CMOP - XV446)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,476,0)="     999000-6156-01   999000-6156-03   "
^XMB(3.9,361,2,477,0)="   ORAL,SWAB TOOTHETTE"
^XMB(3.9,361,2,478,0)="    (CMOP - XV447)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,479,0)="     999000-6156-02   "
^XMB(3.9,361,2,480,0)="   PAPAIN 650000 UNIT/UREA 10% (KOVIA) OINT,TOP"
^XMB(3.9,361,2,481,0)="    (CMOP - P0837)           (DISPENSE UNIT - GM)"
^XMB(3.9,361,2,482,0)="     058980-0711-11   058970-0711-11   "
^XMB(3.9,361,2,483,0)="   PEAK FLOW METER OMRON #9040"
^XMB(3.9,361,2,484,0)="    (CMOP - XV372)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,485,0)="     073796-6994-06   "
^XMB(3.9,361,2,486,0)="   POLYSORBATE 80 1%/GLYCERIN 1% SOLN,OPH,0.4ML"
^XMB(3.9,361,2,487,0)="    (CMOP - P0843)           (DISPENSE UNIT - 0.4ML EA)"
^XMB(3.9,361,2,488,0)="     000023-9235-20   "
^XMB(3.9,361,2,489,0)="   POUCH,DRAINABLE,ASSURA COLOPLAST #15976"
^XMB(3.9,361,2,490,0)="    (CMOP - XV451)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,491,0)="     999918-7159-76   "
^XMB(3.9,361,2,492,0)="   POUCH,DRAINABLE,NU-HOPE #7234-C"
^XMB(3.9,361,2,493,0)="    (CMOP - XV455)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,494,0)="     999990-0882-03   "
^XMB(3.9,361,2,495,0)="   POUCH,DRAINABLE,PREMIER H#8558"
^XMB(3.9,361,2,496,0)="    (CMOP - XV454)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,497,0)="     990110-0085-51   "
^XMB(3.9,361,2,498,0)="   POUCH,DRAINABLE,PREMIER H#88400"
^XMB(3.9,361,2,499,0)="    (CMOP - XV435)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,500,0)="     901000-8841-10   "
^XMB(3.9,361,2,501,0)="   POUCH,DRAINABLE,PREMIER HIGH OUTPUT H#80070"
^XMB(3.9,361,2,502,0)="    (CMOP - XV434)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,503,0)="     990186-3310-00   "
^XMB(3.9,361,2,504,0)="   POUCH,DRAINABLE,SUR-FIT C#4040-14"
^XMB(3.9,361,2,505,0)="    (CMOP - XV384)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,506,0)="    000030-4040-14"
^XMB(3.9,361,2,507,0)="   POUCH,DRAINABLE,SUR-FIT C#4040-15"
^XMB(3.9,361,2,508,0)="    (CMOP - XV385)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,509,0)="     000030-4040-15   "
^XMB(3.9,361,2,510,0)="   POUCH,DRAINABLE,SUR-FIT C#4040-16"
^XMB(3.9,361,2,511,0)="    (CMOP - XV386)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,512,0)="     000030-4040-16   "
^XMB(3.9,361,2,513,0)="   POUCH,DRAINABLE,SUR-FIT C#4040-17"
^XMB(3.9,361,2,514,0)="    (CMOP - XV387)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,515,0)="     000030-4040-17   "
^XMB(3.9,361,2,516,0)="   POUCH,DRAINABLE,SUR-FIT C#4040-18"
^XMB(3.9,361,2,517,0)="    (CMOP - XV388)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,518,0)="     000030-4040-18   "
^XMB(3.9,361,2,519,0)="   POUCH,DRAINABLE,SUR-FIT C#4040-34"
^XMB(3.9,361,2,520,0)="    (CMOP - XV348)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,521,0)="     000340-4034-00   "
^XMB(3.9,361,2,522,0)="   POUCH,DRAINABLE,SUR-FIT C#4112-90"
^XMB(3.9,361,2,523,0)="    (CMOP - XV345)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,524,0)="     003441-1290-00   "
^XMB(3.9,361,2,525,0)="   POUCH,DRAINABLE,SUR-FIT C#4112-91"
^XMB(3.9,361,2,526,0)="    (CMOP - XV343)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,527,0)="     000344-1129-10   "
^XMB(3.9,361,2,528,0)="   POUCH,DRAINABLE,SUR-FIT C#4112-92"
^XMB(3.9,361,2,529,0)="    (CMOP - XV344)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,530,0)="     003441-1292-00   "
^XMB(3.9,361,2,531,0)="   POUCH,DRAINABLE,SUR-FIT C#4113-10"
^XMB(3.9,361,2,532,0)="    (CMOP - XV347)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,533,0)="     003441-1310-00   "
^XMB(3.9,361,2,534,0)="   POUCH,DRAINABLE,SUR-FIT C#4113-60"
^XMB(3.9,361,2,535,0)="    (CMOP - XV346)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,536,0)="     003441-1360-00   "
^XMB(3.9,361,2,537,0)="   POUCH,DRAINABLE,SUR-FIT C#4133-12"
^XMB(3.9,361,2,538,0)="    (CMOP - XV382)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,539,0)="     000003-4133-12   "
^XMB(3.9,361,2,540,0)="   POUCH,DRAINABLE,SUR-FIT C#4133-13"
^XMB(3.9,361,2,541,0)="    (CMOP - XV383)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,542,0)="     000003-4133-13   "
^XMB(3.9,361,2,543,0)="   POUCH,DRAINABLE,SUR-FIT C#4133-14"
^XMB(3.9,361,2,544,0)="    (CMOP - XV381)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,545,0)="     000003-4133-14   "
^XMB(3.9,361,2,546,0)="   POUCH,DRAINABLE,SUR-FIT C#4133-34"
^XMB(3.9,361,2,547,0)="    (CMOP - XV380)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,548,0)="     000003-4133-34   "
^XMB(3.9,361,2,549,0)="   POUCH,DRAINABLE,SUR-FIT C#4133-35"
^XMB(3.9,361,2,550,0)="    (CMOP - XV379)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,551,0)="     000003-4133-35   "
^XMB(3.9,361,2,552,0)="   POUCH,DRAINABLE,SUR-FIT C#4133-36"
^XMB(3.9,361,2,553,0)="    (CMOP - XV378)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,554,0)="     000003-4133-36   000003-4133-36   000003-4133-36   000003-4133-36   "
^XMB(3.9,361,2,555,0)="   POUCH,OSTOMY,ASSURA MIDI COLOPLAST #12149"
^XMB(3.9,361,2,556,0)="    (CMOP - XV496)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,557,0)="     011701-0853-61   "
^XMB(3.9,361,2,558,0)="   POUCH,OSTOMY,SUR-FIT NATURA C#4131-74"
^XMB(3.9,361,2,559,0)="    (CMOP - XV349)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,560,0)="     000341-3174-00   "
^XMB(3.9,361,2,561,0)="   POUCH,OSTOMY,SUR-FIT NATURA C#4131-75"
^XMB(3.9,361,2,562,0)="    (CMOP - XV350)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,563,0)="     000341-3175-00   "
^XMB(3.9,361,2,564,0)="   POUCH,OSTOMY,SUR-FIT NATURA C#4131-76"
^XMB(3.9,361,2,565,0)="    (CMOP - XV351)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,566,0)="     000034-1317-60   "
^XMB(3.9,361,2,567,0)="   POUCH,URINARY POST-OP NU-HOPE #8360"
^XMB(3.9,361,2,568,0)="    (CMOP - XV337)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,569,0)="     999998-3600-00   "
^XMB(3.9,361,2,570,0)="   POUCH,URINARY POST-OP NU-HOPE #8361"
^XMB(3.9,361,2,571,0)="    (CMOP - XV338)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,572,0)="     999998-3601-00   "
^XMB(3.9,361,2,573,0)="   POUCH,URINARY POST-OP NU-HOPE #8362"
^XMB(3.9,361,2,574,0)="    (CMOP - XV339)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,575,0)="     999998-3602-00   "
^XMB(3.9,361,2,576,0)="   POUCH,URINARY POST-OP NU-HOPE #8363"
^XMB(3.9,361,2,577,0)="    (CMOP - XV340)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,578,0)="     888888-3603-00   "
^XMB(3.9,361,2,579,0)="   POUCH,URINARY POST-OP NU-HOPE #8364"
^XMB(3.9,361,2,580,0)="    (CMOP - XV341)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,581,0)="     999998-3604-00   "
^XMB(3.9,361,2,582,0)="   POUCH,URINARY POST-OP NU-HOPE #8366"
^XMB(3.9,361,2,583,0)="    (CMOP - XV342)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,584,0)="     999998-3606-00   "
^XMB(3.9,361,2,585,0)="   PURPOSE SOAP,BAR"
^XMB(3.9,361,2,586,0)="    (CMOP - P0839)           (DISPENSE UNIT - BAR)"
^XMB(3.9,361,2,587,0)="     038137-0034-54   "
^XMB(3.9,361,2,588,0)="   QUETIAPINE FUMARATE 200MG TAB,SA"
^XMB(3.9,361,2,589,0)="    (CMOP - Q0042)           (DISPENSE UNIT - TAB)"
^XMB(3.9,361,2,590,0)="     000031-0282-39   000031-0282-55   000031-0282-60   000310-0282-39   "
^XMB(3.9,361,2,591,0)="000310-0282-55   000310-0282-60   "
^XMB(3.9,361,2,592,0)="   QUETIAPINE FUMARATE 300MG TAB,SA"
^XMB(3.9,361,2,593,0)="    (CMOP - Q0045)           (DISPENSE UNIT - TAB)"
^XMB(3.9,361,2,594,0)="     000310-0283-39   000310-0283-55   000310-0283-60   "
^XMB(3.9,361,2,595,0)="   QUETIAPINE FUMARATE 400MG TAB,SA"
^XMB(3.9,361,2,596,0)="    (CMOP - Q0044)           (DISPENSE UNIT - TAB)"
^XMB(3.9,361,2,597,0)="     000310-0284-39   000310-0284-55   000310-0284-60   "
^XMB(3.9,361,2,598,0)="   RABIES VACCINE 2.5UNT/VIL INJ,KIT"
^XMB(3.9,361,2,599,0)="    (CMOP - R0221)           (DISPENSE UNIT - KIT)"
^XMB(3.9,361,2,600,0)="     053905-0501-01   "
^XMB(3.9,361,2,601,0)="   RANOLAZINE 1000MG TAB,SA"
^XMB(3.9,361,2,602,0)="    (CMOP - R0226)           (DISPENSE UNIT - TAB)"
^XMB(3.9,361,2,603,0)="     067159-0114-03   "
^XMB(3.9,361,2,604,0)="   RIZATRIPTAN BENZOATE 10MG TAB,ORALLY DISINTEGRATING,PKG,12"
^XMB(3.9,361,2,605,0)="    (CMOP - R0225)           (DISPENSE UNIT - PKT)"
^XMB(3.9,361,2,606,0)="     000006-3801-12   "
^XMB(3.9,361,2,607,0)="   RIZATRIPTAN BENZOATE 10MG TAB,PKG,12"
^XMB(3.9,361,2,608,0)="    (CMOP - R0222)           (DISPENSE UNIT - PKT)"
^XMB(3.9,361,2,609,0)="     000006-0267-12   "
^XMB(3.9,361,2,610,0)="   RIZATRIPTAN BENZOATE 5MG TAB,ORALLY DISINTEGRATING,PKG,12"
^XMB(3.9,361,2,611,0)="    (CMOP - R0224)           (DISPENSE UNIT - PKT)"
^XMB(3.9,361,2,612,0)="     000006-3800-12   "
^XMB(3.9,361,2,613,0)="   RIZATRIPTAN BENZOATE 5MG TAB,PKG,12"
^XMB(3.9,361,2,614,0)="    (CMOP - R0223)           (DISPENSE UNIT - PKT)"
^XMB(3.9,361,2,615,0)="     000006-0266-12   "
^XMB(3.9,361,2,616,0)="   SCRIPTALK READER"
^XMB(3.9,361,2,617,0)="    (CMOP - XV331)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,618,0)="     999010-9100-05   "
^XMB(3.9,361,2,619,0)="   SOMATROPIN (GENOTROPIN) 5.8MG/VIL INJ"
^XMB(3.9,361,2,620,0)="    (CMOP - S0544)           (DISPENSE UNIT - VI)"
^XMB(3.9,361,2,621,0)="     000013-2626-94   000013-2626-81   "
^XMB(3.9,361,2,622,0)="   SOMATROPIN (HUMATROPE) 12MG/VIL INJ,CARTRIDGE"
^XMB(3.9,361,2,623,0)="    (CMOP - S0533)           (DISPENSE UNIT - VI)"
^XMB(3.9,361,2,624,0)="     000002-8148-01   "
^XMB(3.9,361,2,625,0)="   SOMATROPIN (HUMATROPE) 5MG/VIL INJ"
^XMB(3.9,361,2,626,0)="    (CMOP - S0537)           (DISPENSE UNIT - VI)"
^XMB(3.9,361,2,627,0)="     000002-7335-16   000002-7335-01   000002-7335-11   "
^XMB(3.9,361,2,628,0)="   SOMATROPIN (HUMATROPE) 6MG/VIL INJ"
^XMB(3.9,361,2,629,0)="    (CMOP - S0542)           (DISPENSE UNIT - VI)"
^XMB(3.9,361,2,630,0)="     000002-8147-01   "
^XMB(3.9,361,2,631,0)="   SOMATROPIN (NUTROPIN AQ) 5MG/ML INJ,SOLN"
^XMB(3.9,361,2,632,0)="    (CMOP - S0536)           (DISPENSE UNIT - VI)"
^XMB(3.9,361,2,633,0)="     050242-0022-19   050242-0022-20   "
^XMB(3.9,361,2,634,0)="   SOMATROPIN (NUTROPIN) 10MG/VIL INJ"
^XMB(3.9,361,2,635,0)="    (CMOP - S0532)           (DISPENSE UNIT - VI)"
^XMB(3.9,361,2,636,0)="     050242-0018-20   050242-0018-21   050242-0020-20   "
^XMB(3.9,361,2,637,0)="   SOMATROPIN (NUTROPIN) 5MG/VIL INJ"
^XMB(3.9,361,2,638,0)="    (CMOP - S0538)           (DISPENSE UNIT - VI)"
^XMB(3.9,361,2,639,0)="     050242-0072-02   050242-0019-02   "
^XMB(3.9,361,2,640,0)="   SOMATROPIN (OMNITROPE) 5.8MG/VIL INJ"
^XMB(3.9,361,2,641,0)="    (CMOP - S0545)           (DISPENSE UNIT - VI)"
^XMB(3.9,361,2,642,0)="     000781-4004-36   "
^XMB(3.9,361,2,643,0)="   SOMATROPIN (SAIZEN) 4MG/VIL INJ,CLICKEASY"
^XMB(3.9,361,2,644,0)="    (CMOP - S0535)           (DISPENSE UNIT - VI)"
^XMB(3.9,361,2,645,0)="     044087-0015-01   044087-0015-05   "
^XMB(3.9,361,2,646,0)="   SOMATROPIN (SAIZEN) 5MG/VIL INJ"
^XMB(3.9,361,2,647,0)="    (CMOP - S0539)           (DISPENSE UNIT - VI)"
^XMB(3.9,361,2,648,0)="     044087-1005-02   "
^XMB(3.9,361,2,649,0)="   SOMATROPIN (SAIZEN) 8.8MG/VIL INJ,CLICKEASY"
^XMB(3.9,361,2,650,0)="    (CMOP - S0547)           (DISPENSE UNIT - VI)"
^XMB(3.9,361,2,651,0)="     044087-1080-01   "
^XMB(3.9,361,2,652,0)="   SOMATROPIN (SAIZEN) 8.8MG/VIL INJ"
^XMB(3.9,361,2,653,0)="    (CMOP - S0546)           (DISPENSE UNIT - VI)"
^XMB(3.9,361,2,654,0)="     044087-1088-01   "
^XMB(3.9,361,2,655,0)="   SOMATROPIN (SEROSTIM) 4MG/VIL INJ"
^XMB(3.9,361,2,656,0)="    (CMOP - S0534)           (DISPENSE UNIT - VI)"
^XMB(3.9,361,2,657,0)="     044087-0004-07   "
^XMB(3.9,361,2,658,0)="   SOMATROPIN (SEROSTIM) 5MG/VIL INJ"
^XMB(3.9,361,2,659,0)="    (CMOP - S0540)           (DISPENSE UNIT - VI)"
^XMB(3.9,361,2,660,0)="     044087-0005-07   "
^XMB(3.9,361,2,661,0)="   SOMATROPIN (SEROSTIM) 6MG/VIL INJ"
^XMB(3.9,361,2,662,0)="    (CMOP - S0543)           (DISPENSE UNIT - VI)"
^XMB(3.9,361,2,663,0)="     044087-0006-07   "
^XMB(3.9,361,2,664,0)="   SOMATROPIN (TEV-TROPIN) 5MG/VIL INJ"
^XMB(3.9,361,2,665,0)="    (CMOP - S0541)           (DISPENSE UNIT - VI)"
^XMB(3.9,361,2,666,0)="     057844-0713-19   057844-0713-41   "
^XMB(3.9,361,2,667,0)="   SOMATROPIN (ZORBTIVE) 8.8MG/VIL INJ"
^XMB(3.9,361,2,668,0)="    (CMOP - S0548)           (DISPENSE UNIT - VI)"
^XMB(3.9,361,2,669,0)="     044087-3388-07   "
^XMB(3.9,361,2,670,0)="   SULFACETAMIDE NA 10%/SULFUR 4% WASH,TOP"
^XMB(3.9,361,2,671,0)="    (CMOP - S0529)           (DISPENSE UNIT - ML)"
^XMB(3.9,361,2,672,0)="     100337-0667-16   "
^XMB(3.9,361,2,673,0)="   SULFACETAMIDE NA 10%/SULFUR 5% FOAM,TOP"
^XMB(3.9,361,2,674,0)="    (CMOP - S0530)           (DISPENSE UNIT - GM)"
^XMB(3.9,361,2,675,0)="     016781-0154-60   "
^XMB(3.9,361,2,676,0)="   SULFACETAMIDE NA 10%/SULFUR 5% WASH,TOP"
^XMB(3.9,361,2,677,0)="    (CMOP - S0531)           (DISPENSE UNIT - ML)"
^XMB(3.9,361,2,678,0)="     000245-0168-06   "
^XMB(3.9,361,2,679,0)="   THICK & EASY THICKEND APPLE JUICE (HONEY) LIQUID,ORAL"
^XMB(3.9,361,2,680,0)="    (CMOP - T0666)           (DISPENSE UNIT - ML)"
^XMB(3.9,361,2,681,0)="     099429-0126-87   "
^XMB(3.9,361,2,682,0)="   THICK & EASY THICKEND APPLE JUICE (NECTAR) LIQUID,ORAL"
^XMB(3.9,361,2,683,0)="    (CMOP - T0656)           (DISPENSE UNIT - ML)"
^XMB(3.9,361,2,684,0)="     099429-0415-30   "
^XMB(3.9,361,2,685,0)="   THICK & EASY THICKEND COFFEE (HONEY) PWDR PKT,12GM"
^XMB(3.9,361,2,686,0)="    (CMOP - T0651)           (DISPENSE UNIT - PKT)"
^XMB(3.9,361,2,687,0)="     999429-0247-39   009942-9243-28   "
^XMB(3.9,361,2,688,0)="   THICK & EASY THICKEND COFFEE (NECTAR) PWDR PKT,12GM"
^XMB(3.9,361,2,689,0)="    (CMOP - T0650)           (DISPENSE UNIT - PKT)"
^XMB(3.9,361,2,690,0)="     999429-0319-33   "
^XMB(3.9,361,2,691,0)="   THICK & EASY THICKEND CRANBERRY JUICE (HONEY) LIQUID,ORAL"
^XMB(3.9,361,2,692,0)="    (CMOP - T0659)           (DISPENSE UNIT - ML)"
^XMB(3.9,361,2,693,0)="     099429-0201-60   "
^XMB(3.9,361,2,694,0)="   THICK & EASY THICKEND CRANBERRY JUICE (NECTAR) LIQUID,ORAL"
^XMB(3.9,361,2,695,0)="    (CMOP - T0655)           (DISPENSE UNIT - ML)"
^XMB(3.9,361,2,696,0)="     099429-0397-05   "
^XMB(3.9,361,2,697,0)="   THICK & EASY THICKEND DAIRY (HONEY) LIQUID,ORAL"
^XMB(3.9,361,2,698,0)="    (CMOP - T0653)           (DISPENSE UNIT - ML)"
^XMB(3.9,361,2,699,0)="     099420-9230-69   "
^XMB(3.9,361,2,700,0)="   THICK & EASY THICKEND DAIRY (NECTAR) LIQUID,ORAL"
^XMB(3.9,361,2,701,0)="    (CMOP - T0664)           (DISPENSE UNIT - ML)"
^XMB(3.9,361,2,702,0)="     099429-0247-39   "
^XMB(3.9,361,2,703,0)="   THICK & EASY THICKEND HYDROLYTE (HONEY) LIQUID,ORAL"
^XMB(3.9,361,2,704,0)="    (CMOP - T0663)           (DISPENSE UNIT - ML)"
^XMB(3.9,361,2,705,0)="     099429-0460-56   "
^XMB(3.9,361,2,706,0)="   THICK & EASY THICKEND HYDROLYTE (NECTAR) LIQUID,ORAL"
^XMB(3.9,361,2,707,0)="    (CMOP - T0661)           (DISPENSE UNIT - ML)"
^XMB(3.9,361,2,708,0)="     099429-0230-61   "
^XMB(3.9,361,2,709,0)="   THICK & EASY THICKEND ORANGE JUICE (HONEY) LIQUID,ORAL"
^XMB(3.9,361,2,710,0)="    (CMOP - T0658)           (DISPENSE UNIT - ML)"
^XMB(3.9,361,2,711,0)="     099429-0321-92   "
^XMB(3.9,361,2,712,0)="   THICK & EASY THICKEND ORANGE JUICE (NECTAR) LIQUID,ORAL"
^XMB(3.9,361,2,713,0)="    (CMOP - T0654)           (DISPENSE UNIT - ML)"
^XMB(3.9,361,2,714,0)="     099429-0491-44   "
^XMB(3.9,361,2,715,0)="   THICK & EASY THICKEND TEA (HONEY) PWDR,PKT,12GM"
^XMB(3.9,361,2,716,0)="    (CMOP - T0649)           (DISPENSE UNIT - PKT)"
^XMB(3.9,361,2,717,0)="     999429-0243-28   "
^XMB(3.9,361,2,718,0)="   THICK & EASY THICKEND TEA (NECTAR) PWDR PKT,12GM"
^XMB(3.9,361,2,719,0)="    (CMOP - T0648)           (DISPENSE UNIT - PKT)"
^XMB(3.9,361,2,720,0)="     999429-0226-55   "
^XMB(3.9,361,2,721,0)="   TRANSMITTER PATCH MMT-7006"
^XMB(3.9,361,2,722,0)="    (CMOP - XV487)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,723,0)="     076300-7006-00   "
^XMB(3.9,361,2,724,0)="   TWOCAL HN LIQUID BUTTER PECAN"
^XMB(3.9,361,2,725,0)="    (CMOP - T0665)           (DISPENSE UNIT - 240ML CAN)"
^XMB(3.9,361,2,726,0)="     070074-0540-65   "
^XMB(3.9,361,2,727,0)="   UNDERPAD,BED EXTRA LARGE"
^XMB(3.9,361,2,728,0)="    (CMOP - XV397)           (DISPENSE UNIT - EA)"
^XMB(3.9,361,2,729,0)="     003870-3033-10   "
^XMB(3.9,361,2,730,0)="   UREA 50% SUSP,TOP"
^XMB(3.9,361,2,731,0)="    (CMOP - U0050)           (DISPENSE UNIT - ML)"
^XMB(3.9,361,2,732,0)="     010337-0645-10   "
^XMB(3.9,361,2,733,0)=" "
^XMB(3.9,361,2,734,0)="The National Formulary Indicator has changed for the following"
^XMB(3.9,361,2,735,0)="VA Products.  The National Formulary Indicator will automatically"
^XMB(3.9,361,2,736,0)="be changed in your local DRUG file (#50).  Please review the"
^XMB(3.9,361,2,737,0)="VISN and Local Formulary designations of these products and"
^XMB(3.9,361,2,738,0)="make appropriate changes."
^XMB(3.9,361,2,739,0)=" "
^XMB(3.9,361,2,740,0)="FORMULARY ITEMS"
^XMB(3.9,361,2,741,0)="   ANASTROZOLE 1MG TAB"
^XMB(3.9,361,2,742,0)="   CALCIUM 600MG (AS CARBONATE)/VITAMIN D 400UNIT TAB"
^XMB(3.9,361,2,743,0)="   CARBOXYMETHYLCELLULOSE NA 1% OPTH,SOLN,0.4ML"
^XMB(3.9,361,2,744,0)="   CHLORHEXIDINE GLUCONATE 0.12% (AF) RINSE,ORAL"
^XMB(3.9,361,2,745,0)="   ESMOLOL HCL 10MG/ML/NACL INJ,250ML"
^XMB(3.9,361,2,746,0)="   HAEMOPHILUS B CONJUGATE VACCINE INJ"
^XMB(3.9,361,2,747,0)="   HEPATITIS B IMMUNE GLOBULIN (HEPAGAM B) INJ"
^XMB(3.9,361,2,748,0)="   HYALURONIDASE 200UNT/ML INJ"
^XMB(3.9,361,2,749,0)="   KETOTIFEN FUMARATE 0.025% SOLN,OPH"
^XMB(3.9,361,2,750,0)="   LETROZOLE 2.5MG TAB"
^XMB(3.9,361,2,751,0)="   LUBRICATING JELLY,TOP,BACTERIOSTATIC"
^XMB(3.9,361,2,752,0)="   MEDROXYPROGESTERONE ACETATE 104MG/0.65ML SYR INJ,SUSP"
^XMB(3.9,361,2,753,0)="   PAPAIN 650000 UNIT/UREA 10% (KOVIA) OINT,TOP"
^XMB(3.9,361,2,754,0)="   ZOLPIDEM TARTRATE 10MG TAB"
^XMB(3.9,361,2,755,0)="   ZOLPIDEM TARTRATE 10MG TAB,UD"
^XMB(3.9,361,2,756,0)="   ZOLPIDEM TARTRATE 5MG TAB"
^XMB(3.9,361,2,757,0)="   ZOLPIDEM TARTRATE 5MG TAB,UD"
^XMB(3.9,361,2,758,0)=" "
^XMB(3.9,361,2,759,0)="NON-FORMULARY ITEMS"
^XMB(3.9,361,2,760,0)="   JEVITY 1.2 CAL LIQUID"
^XMB(3.9,361,2,761,0)="   JEVITY 1.5 CAL LIQUID"
^XMB(3.9,361,2,762,0)="   PERGOLIDE MESYLATE 0.05MG TAB"
^XMB(3.9,361,2,763,0)="   PERGOLIDE MESYLATE 0.25MG TAB"
^XMB(3.9,361,2,764,0)="   PERGOLIDE MESYLATE 1MG TAB"
^XMB(3.9,361,2,765,0)=" "
^XMB(3.9,361,2,766,0)="Inactivations:"
^XMB(3.9,361,2,767,0)=" "
^XMB(3.9,361,2,768,0)="INSULIN,REGULAR,HUMAN 500 UNT/ML INJ HUMULIN R       "
^XMB(3.9,361,2,769,0)="Use "
^XMB(3.9,361,2,770,0)="INSULIN,REGULAR,HUMAN CONCENTRATED 500 UNIT/ML INJ HUMULIN R    "
^XMB(3.9,361,2,771,0)=" "
^XMB(3.9,361,2,772,0)="MITOTANE 500MG TAB,EC            "
^XMB(3.9,361,2,773,0)="Use      "
^XMB(3.9,361,2,774,0)="MITOTANE 500MG TAB                                     "
^XMB(3.9,361,2,775,0)=" "
^XMB(3.9,361,2,776,0)="PREDNISONE 1MG/ML SOLN,ORAL                            "
^XMB(3.9,361,2,777,0)="PREDNISONE 5MG/5ML SYRUP                  "
^XMB(3.9,361,2,778,0)="Use"
^XMB(3.9,361,2,779,0)="PREDNISONE 5MG/5ML SOLN,ORAL                  "
^XMB(3.9,361,2,780,0)=" "
^XMB(3.9,361,2,781,0)="The fluticasone propionate products have the same print name and CMOP ID"
^XMB(3.9,361,2,782,0)="FLUTICASONE PROPIONATE 110MCG/SPRAY AEROSOL,INHL,ORAL,13GM"
^XMB(3.9,361,2,783,0)="Use"
^XMB(3.9,361,2,784,0)="FLUTICASONE PROPIONATE 110MCG/SPRAY AEROSOL,INHL,ORAL,12GM"
^XMB(3.9,361,2,785,0)=" "
^XMB(3.9,361,2,786,0)="FLUTICASONE PROPIONATE 220MCG/SPRAY AEROSOL,INHL,ORAL,13GM"
^XMB(3.9,361,2,787,0)="Use"
^XMB(3.9,361,2,788,0)="FLUTICASONE PROPIONATE 220MCG/SPRAY AEROSOL,INHL,ORAL,12GM"
^XMB(3.9,361,2,789,0)=" "
^XMB(3.9,361,2,790,0)="FLUTICASONE PROPIONATE 44MCG/SPRAY AEROSOL,INHL,ORAL,13GM"
^XMB(3.9,361,2,791,0)="Use"
^XMB(3.9,361,2,792,0)="FLUTICASONE PROPIONATE 44MCG/SPRAY AEROSOL,INHL,ORAL,10.6GM"
^XMB(3.9,361,2,793,0)=" "
^XMB(3.9,361,2,794,0)=" "
^XMB(3.9,361,2,795,0)="NIACIN (NIASPAN-KOS) 1000MG TAB,SA                     "
^XMB(3.9,361,2,796,0)="Use"
^XMB(3.9,361,2,797,0)="NIACIN (NIASPAN) 1000MG TAB,SA"
^XMB(3.9,361,2,798,0)=" "
^XMB(3.9,361,2,799,0)=" "
^XMB(3.9,361,2,800,0)="NIACIN (NIASPAN-KOS) 500MG TAB,SA                      "
^XMB(3.9,361,2,801,0)="Use"
^XMB(3.9,361,2,802,0)="NIACIN (NIASPAN) 500MG TAB,SA"
^XMB(3.9,361,2,803,0)=" "
^XMB(3.9,361,2,804,0)="NIACIN (NIASPAN-KOS) 750MG TAB,SA                      "
^XMB(3.9,361,2,805,0)="Use     "
^XMB(3.9,361,2,806,0)="NIACIN (NIASPAN) 500MG TAB,SA"
^XMB(3.9,361,2,807,0)=" "
^XMB(3.9,361,2,808,0)="Dispense unit change"
^XMB(3.9,361,2,809,0)="ACCU-CHEK ACTIVE (GLUCOSE) HI/LO CONTROL SOLN"
^XMB(3.9,361,2,810,0)=" "
^XMB(3.9,361,2,811,0)="     VA DISPENSE UNIT                                      "
^XMB(3.9,361,2,812,0)="     Old Value: EA"
^XMB(3.9,361,2,813,0)="     New Value: KIT"
^XMB(3.9,361,2,814,0)=" "
^XMB(3.9,361,2,815,0)="ADERS Ophthalmic Multivitamins"
^XMB(3.9,361,2,816,0)="I created two generic names for ADERS formula multivitamins. There are "
^XMB(3.9,361,2,817,0)="now two types of products. "
^XMB(3.9,361,2,818,0)=" "
^XMB(3.9,361,2,819,0)="The daily AEDRS formula is the same for each product, however the number "
^XMB(3.9,361,2,820,0)="of tablets per days are different. Single strength products require 4 "
^XMB(3.9,361,2,821,0)="tablets per day, double strength products require to capsules per day."
^XMB(3.9,361,2,822,0)=" "
^XMB(3.9,361,2,823,0)="MULTIVITAMIN/OPTH AREDS DOUBLE STRENGTH CAP (Generic for PreserVision "
^XMB(3.9,361,2,824,0)="softgels and others)"
^XMB(3.9,361,2,825,0)="MULTIVITAMIN/OPTH AREDS SINGLE STRENGTH TAB (Generic for PreserVision and "
^XMB(3.9,361,2,826,0)="others)"
^XMB(3.9,361,2,827,0)=" "
^XMB(3.9,361,2,828,0)="Somatotropin"
^XMB(3.9,361,2,829,0)=" "
^XMB(3.9,361,2,830,0)="Due to the increase in the number of generic competitors for "
^XMB(3.9,361,2,831,0)="somatotropin, and due to lack of AB rating there is now a need for trade "
^XMB(3.9,361,2,832,0)="name specific names for many of the somatotropin products. Patch "
^XMB(3.9,361,2,833,0)="PSN*4*149 contains these entries. If required sites should switch their "
^XMB(3.9,361,2,834,0)="local entries to the appropriate trade name entries. "
^XMB(3.9,361,2,835,0)=" "
^XMB(3.9,361,2,836,0)="The following products were added in patch PSN*4*149"
^XMB(3.9,361,2,837,0)="SOMATROPIN (HUMATROPE) 12MG/VIL INJ,CARTRIDGE"
^XMB(3.9,361,2,838,0)="SOMATROPIN (HUMATROPE) 5MG/VIL INJ"
^XMB(3.9,361,2,839,0)="SOMATROPIN (HUMATROPE) 6MG/VIL INJ"
^XMB(3.9,361,2,840,0)="SOMATROPIN (NUTROPIN AQ) 5MG/ML INJ,SOLN"
^XMB(3.9,361,2,841,0)="SOMATROPIN (NUTROPIN) 10MG/VIL INJ"
^XMB(3.9,361,2,842,0)="SOMATROPIN (NUTROPIN) 5MG/VIL INJ"
^XMB(3.9,361,2,843,0)="SOMATROPIN (OMNITROPE) 5.8MG/VIL INJ"
^XMB(3.9,361,2,844,0)="SOMATROPIN (SAIZEN) 4MG/VIL INJ,CLICKEASY"
^XMB(3.9,361,2,845,0)="SOMATROPIN (SAIZEN) 5MG/VIL INJ"
^XMB(3.9,361,2,846,0)="SOMATROPIN (SAIZEN) 8.8MG/VIL INJ"
^XMB(3.9,361,2,847,0)="SOMATROPIN (SAIZEN) 8.8MG/VIL INJ,CLICKEASY"
^XMB(3.9,361,2,848,0)="SOMATROPIN (SEROSTIM) 4MG/VIL INJ"
^XMB(3.9,361,2,849,0)="SOMATROPIN (SEROSTIM) 5MG/VIL INJ"
^XMB(3.9,361,2,850,0)="SOMATROPIN (SEROSTIM) 6MG/VIL INJ"
^XMB(3.9,361,2,851,0)="SOMATROPIN (TEV-TROPIN) 5MG/VIL INJ"
^XMB(3.9,361,2,852,0)="SOMATROPIN (ZORBTIVE) 8.8MG/VIL INJ"
^XMB(3.9,361,2,853,0)="    "
^XMB(3.9,361,2,854,0)="The following products will be inactivated in the next NDF patch."
^XMB(3.9,361,2,855,0)=" SOMATOTROPIN 10UNT INJ                                               "
^XMB(3.9,361,2,856,0)=" SOMATOTROPIN 2UNT INJ                                                 "
^XMB(3.9,361,2,857,0)=" SOMATREM 10MG/VIL INJ                                                   "
^XMB(3.9,361,2,858,0)=" SOMATREM 5MG/VIL INJ                                                     "
^XMB(3.9,361,2,859,0)=" SOMATROPIN 1.5MG/VIL INJ,INTRA-MIX                       "
^XMB(3.9,361,2,860,0)=" SOMATROPIN 10MG/VIL INJ                                              "
^XMB(3.9,361,2,861,0)=" SOMATROPIN 12MG/VIL INJ                                              "
^XMB(3.9,361,2,862,0)=" SOMATROPIN 13.5MG INJ,SUSP,SA                                  "
^XMB(3.9,361,2,863,0)=" SOMATROPIN 18MG INJ,SUSP,SA                                     "
^XMB(3.9,361,2,864,0)=" SOMATROPIN 22.5MG INJ,SUSP,SA                                  "
^XMB(3.9,361,2,865,0)=" SOMATROPIN 24MG/VIL INJ,SOLN,CARTRIDGE            "
^XMB(3.9,361,2,866,0)=" SOMATROPIN 4MG/VIL "
^XMB(3.9,361,2,867,0)="INJ                                                          "
^XMB(3.9,361,2,868,0)=" SOMATROPIN 5.8MG/VIL INJ,CARTRIDGE                      "
^XMB(3.9,361,2,869,0)=" SOMATROPIN 5.8MG/VIL INJ,INTRA-MIX                       "
^XMB(3.9,361,2,870,0)=" SOMATROPIN 5MG/ML INJ,SOLN                                     "
^XMB(3.9,361,2,871,0)=" SOMATROPIN 5MG/VIL INJ                                                "
^XMB(3.9,361,2,872,0)=" SOMATROPIN 5MG/VIL INJ  NOV 19, 2004                      "
^XMB(3.9,361,2,873,0)=" SOMATROPIN 6MG/VIL INJ                                                "
^XMB(3.9,361,2,874,0)=" SOMATROPIN 8MG/VIL INJ                                                 "
^XMB(3.9,361,2,875,0)=" "
^XMB(3.9,361,6,0)="^3.911A^3^3"
^XMB(3.9,361,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,361,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,361,6,3,0)="ORMSBY,SKIP"
^XMB(3.9,361,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,361,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,361,6,"B","ORMSBY,SKIP",3)=""
^XMB(3.9,362,0)="UPDATED INTERACTIONS^NDF MANAGER^3071227.181228"
^XMB(3.9,362,.6)="3071227"
^XMB(3.9,362,1,0)="^3.91A^3^3"
^XMB(3.9,362,1,1,0)="1"
^XMB(3.9,362,1,2,0)="63"
^XMB(3.9,362,1,3,0)="68"
^XMB(3.9,362,1,"C",1,1)=""
^XMB(3.9,362,1,"C",63,2)=""
^XMB(3.9,362,1,"C",68,3)=""
^XMB(3.9,362,2,0)="^^189^189^3071227"
^XMB(3.9,362,2,1,0)="The following interactions in National Drug File (NDF) have been added,"
^XMB(3.9,362,2,2,0)="edited or inactivated.  These changes are the result of review and"
^XMB(3.9,362,2,3,0)="recommendations from the NDF support group."
^XMB(3.9,362,2,4,0)=" "
^XMB(3.9,362,2,5,0)="ADDED INTERACTIONS"
^XMB(3.9,362,2,6,0)=" "
^XMB(3.9,362,2,7,0)="   ETANERCEPT/NATALIZUMAB                             Critical"
^XMB(3.9,362,2,8,0)="   FLUDARABINE/NATALIZUMAB                            Critical"
^XMB(3.9,362,2,9,0)="   GRAPEFRUIT EXTRACT/LAPATINIB                       Significant"
^XMB(3.9,362,2,10,0)="   GRAPEFRUIT EXTRACT/SUNITINIB                       Significant"
^XMB(3.9,362,2,11,0)="   GREEN TEA/WARFARIN                                 Significant"
^XMB(3.9,362,2,12,0)="   NELARABINE/PENTOSTATIN                             Significant"
^XMB(3.9,362,2,13,0)=" "
^XMB(3.9,362,2,14,0)="EDITED INTERACTIONS"
^XMB(3.9,362,2,15,0)=" "
^XMB(3.9,362,2,16,0)="   GEMFIBROZIL/REPAGLINIDE                            Critical"
^XMB(3.9,362,2,17,0)=" "
^XMB(3.9,362,2,18,0)="INACTIVATED INTERACTIONS"
^XMB(3.9,362,2,19,0)=" "
^XMB(3.9,362,2,20,0)="   NONE"
^XMB(3.9,362,2,21,0)=" "
^XMB(3.9,362,2,22,0)="The following products have been flagged for exclusion from drug-drug"
^XMB(3.9,362,2,23,0)="interaction checks."
^XMB(3.9,362,2,24,0)=" "
^XMB(3.9,362,2,25,0)="ACCU-CHEK AVIVA (GLUCOSE) METER"
^XMB(3.9,362,2,26,0)="ADAPALENE 0.3% GEL,TOP"
^XMB(3.9,362,2,27,0)="AMPU-BALM OINT,TOP"
^XMB(3.9,362,2,28,0)="AVEENO POSITIVELY RADIANT BAR SOAP"
^XMB(3.9,362,2,29,0)="BANDAGE TUBULAR ELASTIC PADDED LARGE C#154581"
^XMB(3.9,362,2,30,0)="BANDAGE TUBULAR ELASTIC PADDED MEDIUM C#154580"
^XMB(3.9,362,2,31,0)="BANDAGE TUBULAR ELASTIC PADDED SMALL C#154579"
^XMB(3.9,362,2,32,0)="BARRIER,ASSURA COLOPLAST #14304"
^XMB(3.9,362,2,33,0)="BARRIER,ASSURA COLOPLAST #14305"
^XMB(3.9,362,2,34,0)="BARRIER,ASSURA COLOPLAST #14306"
^XMB(3.9,362,2,35,0)="BARRIER,ASSURA COLOPLAST #14307"
^XMB(3.9,362,2,36,0)="BARRIER,ASSURA COLOPLAST #14308"
^XMB(3.9,362,2,37,0)="BARRIER,CONVEX,ASSURA COLOPLAST #14402"
^XMB(3.9,362,2,38,0)="BARRIER,CONVEX,ASSURA COLOPLAST #14404"
^XMB(3.9,362,2,39,0)="BARRIER,ESTEEM SYNERGY C#403948"
^XMB(3.9,362,2,40,0)="BARRIER,ESTEEM SYNERGY C#405456"
^XMB(3.9,362,2,41,0)="BARRIER,ESTEEM SYNERGY C#405458"
^XMB(3.9,362,2,42,0)="BARRIER,ESTEEM SYNERGY C#405467"
^XMB(3.9,362,2,43,0)="BARRIER,ESTEEM SYNERGY C#405476"
^XMB(3.9,362,2,44,0)="BARRIER,ESTEEM SYNERGY C#405477"
^XMB(3.9,362,2,45,0)="BARRIER,ESTEEM SYNERGY C#405479"
^XMB(3.9,362,2,46,0)="BARRIER,ESTEEM SYNERGY C#405483"
^XMB(3.9,362,2,47,0)="BARRIER,OSTOMY,NEW IMAGE H#14202"
^XMB(3.9,362,2,48,0)="BARRIER,OSTOMY,NEW IMAGE H#14206"
^XMB(3.9,362,2,49,0)="BARRIER,OSTOMY,NEW IMAGE H#14504"
^XMB(3.9,362,2,50,0)="BARRIER,OSTOMY,NEW IMAGE H#14505"
^XMB(3.9,362,2,51,0)="BARRIER,OSTOMY,NEW IMAGE H#14506"
^XMB(3.9,362,2,52,0)="BARRIER,OSTOMY,NEW IMAGE H#14802"
^XMB(3.9,362,2,53,0)="BARRIER,OSTOMY,NEW IMAGE H#14803"
^XMB(3.9,362,2,54,0)="BARRIER,OSTOMY,NEW IMAGE H#14804"
^XMB(3.9,362,2,55,0)="BARRIER,OSTOMY,NEW IMAGE H#14901"
^XMB(3.9,362,2,56,0)="BARRIER,OSTOMY,NEW IMAGE H#14902"
^XMB(3.9,362,2,57,0)="BARRIER,OSTOMY,NEW IMAGE H#14905"
^XMB(3.9,362,2,58,0)="BARRIER,OSTOMY,NEW IMAGE H#14906"
^XMB(3.9,362,2,59,0)="BARRIER,OSTOMY,NEW IMAGE H#14907"
^XMB(3.9,362,2,60,0)="BARRIER,OSTOMY,NEW IMAGE H#14908"
^XMB(3.9,362,2,61,0)="BARRIER,OSTOMY,NEW IMAGE H#14909"
^XMB(3.9,362,2,62,0)="BARRIER,OSTOMY,NEW IMAGE H#14910"
^XMB(3.9,362,2,63,0)="BARRIER,OSTOMY,NEW IMAGE H#14911"
^XMB(3.9,362,2,64,0)="BARRIER,OSTOMY,NEW IMAGE H#15402"
^XMB(3.9,362,2,65,0)="BARRIER,OSTOMY,NEW IMAGE H#15403"
^XMB(3.9,362,2,66,0)="BARRIER,OSTOMY,NEW IMAGE H#15404"
^XMB(3.9,362,2,67,0)="BARRIER,OSTOMY,NEW IMAGE H#15503"
^XMB(3.9,362,2,68,0)="BARRIER,OSTOMY,NEW IMAGE H#15504"
^XMB(3.9,362,2,69,0)="BARRIER,OSTOMY,NEW IMAGE H#15505"
^XMB(3.9,362,2,70,0)="BARRIER,OSTOMY,NEW IMAGE H#15506"
^XMB(3.9,362,2,71,0)="BARRIER,OSTOMY,NEW IMAGE H#15903"
^XMB(3.9,362,2,72,0)="BARRIER,OSTOMY,NEW IMAGE H#15904"
^XMB(3.9,362,2,73,0)="BARRIER,OSTOMY,NEW IMAGE H#15905"
^XMB(3.9,362,2,74,0)="BARRIER,OSTOMY,NEW IMAGE H#15906"
^XMB(3.9,362,2,75,0)="BELT,SUPPORT 4IN LARGE NU-HOPE #2667"
^XMB(3.9,362,2,76,0)="BELT,SUPPORT 4IN X-LARGE NU-HOPE #2663DC"
^XMB(3.9,362,2,77,0)="BELT,SUPPORT 4IN X-LARGE NU-HOPE #2668"
^XMB(3.9,362,2,78,0)="BELT,SUPPORT 4IN X-LARGE NU-HOPE #2668-H"
^XMB(3.9,362,2,79,0)="BELT,SUPPORT 6IN LARGE NU-HOPE #6602-C"
^XMB(3.9,362,2,80,0)="BELT,SUPPORT 6IN LARGE NU-HOPE #6602-P"
^XMB(3.9,362,2,81,0)="BELT,SUPPORT 6IN LARGE NU-HOPE #6602-SP"
^XMB(3.9,362,2,82,0)="BELT,SUPPORT 6IN MEDIUM NU-HOPE #6601-P"
^XMB(3.9,362,2,83,0)="BELT,SUPPORT 6IN X-LARGE NU-HOPE #6613"
^XMB(3.9,362,2,84,0)="BELT,SUPPORT 6IN XX-LARGE NU-HOPE #6604-P"
^XMB(3.9,362,2,85,0)="BELT,SUPPORT 6IN XX-LARGE NU-HOPE #6604-PC"
^XMB(3.9,362,2,86,0)="BELT,SUPPORT 6IN XX-LARGE NU-HOPE #6614-B"
^XMB(3.9,362,2,87,0)="BELT,SUPPORT 6IN XX-LARGE NU-HOPE #6614-PC"
^XMB(3.9,362,2,88,0)="BELT,SUPPORT 6IN XX-LARGE NU-HOPE #6614-SP"
^XMB(3.9,362,2,89,0)="BELT,SUPPORT 9IN X-LARGE NU-HOPE #6643-SP"
^XMB(3.9,362,2,90,0)="BENZOYL PEROXIDE 40MG/ERYTHROMYCIN 24MG/PKT GEL,TOP"
^XMB(3.9,362,2,91,0)="BIAFINE EMULSION,TOP"
^XMB(3.9,362,2,92,0)="BIOTENE MOUTHWASH"
^XMB(3.9,362,2,93,0)="BIOTENE SENSITIVE TOOTHPASTE"
^XMB(3.9,362,2,94,0)="BRIEF,EXTRA ABSORBENT PROTECTIVE UNDERWEAR LARGE ATTENDS"
^XMB(3.9,362,2,95,0)="BRIEF,EXTRA ABSORBENT PROTECTIVE UNDERWEAR MEDIUM ATTENDS"
^XMB(3.9,362,2,96,0)="BRIEF,EXTRA ABSORBENT PROTECTIVE UNDERWEAR X-LARGE ATTENDS"
^XMB(3.9,362,2,97,0)="BRIEF,SUPER PLUS ABSORB WITH BARRIERS UNDERWEAR LARGE ATTENDS"
^XMB(3.9,362,2,98,0)="BRIEF,SUPER PLUS ABSORB WITH BARRIERS UNDERWEAR MEDIUM ATTENDS"
^XMB(3.9,362,2,99,0)="BRIEF,SUPER PLUS ABSORB WITH BARRIERS UNDERWEAR X-LARGE ATTENDS"
^XMB(3.9,362,2,100,0)="CARTRIDGE,ANIMAS IR 3ML #1000"
^XMB(3.9,362,2,101,0)="CASTOR OIL 788MG/PERUVIAN BALSAM 87MG/TRYPSIN 0.12MG/GM GEL,TOP"
^XMB(3.9,362,2,102,0)="CATHETER FOLEY 2-WAY SPECIALTY 5CC BARD#0196SI16"
^XMB(3.9,362,2,103,0)="CATHETER,EXTERNAL INTERMEDIATE FREEDOM CLEAR #5300/5330"
^XMB(3.9,362,2,104,0)="CATHETER,EXTERNAL LARGE FREEDOM CLEAR #5400/5430"
^XMB(3.9,362,2,105,0)="CATHETER,EXTERNAL MEDIUM FREEDOM CLEAR #5200/5230"
^XMB(3.9,362,2,106,0)="CATHETER,EXTERNAL SMALL FREEDOM CLEAR #5100/5130"
^XMB(3.9,362,2,107,0)="CATHETER,EXTERNAL X-LARGE FREEDOM CLEAR #5500/5530"
^XMB(3.9,362,2,108,0)="CATHETER,FOLEY 12FR 5CC BARD#123512A"
^XMB(3.9,362,2,109,0)="CATHETER,FOLEY 14FR 5CC BARD#123514A"
^XMB(3.9,362,2,110,0)="CATHETER,FOLEY 16FR 5CC BARD#123516A"
^XMB(3.9,362,2,111,0)="CATHETER,FOLEY 18FR 5CC BARD#123518A"
^XMB(3.9,362,2,112,0)="CATHETER,FOLEY 20FR 5CC BARD#123520A"
^XMB(3.9,362,2,113,0)="CATHETER,FOLEY 22FR 5CC BARD#123522A"
^XMB(3.9,362,2,114,0)="CATHETER,FOLEY 24FR 5CC BARD#123524A"
^XMB(3.9,362,2,115,0)="CATHETER,FOLEY 26FR 5CC BARD#123526A"
^XMB(3.9,362,2,116,0)="CATHETER,FOLEY 30FR 5CC BARD#123530A"
^XMB(3.9,362,2,117,0)="CATHETER,SELF-CATH 10FR COLOPLAST #1010"
^XMB(3.9,362,2,118,0)="CATHETER,SELF-CATH 12FR COLOPLAST #1012"
^XMB(3.9,362,2,119,0)="CATHETER,SELF-CATH 14FR COLOPLAST #1014"
^XMB(3.9,362,2,120,0)="CATHETER,SELF-CATH 16FR COLOPLAST #1016"
^XMB(3.9,362,2,121,0)="CATHETER,SELF-CATH 8FR COLOPLAST #1008"
^XMB(3.9,362,2,122,0)="COLLAGEN,ACTIVATED 60% GEL,TOP"
^XMB(3.9,362,2,123,0)="COLLAGEN,ACTIVATED 96% PWDR,TOP"
^XMB(3.9,362,2,124,0)="CONDOM,NON-LATEX,NON-LUBRICATED"
^XMB(3.9,362,2,125,0)="DRESSING,ACTICOAT ROPE 0.75IN X 12IN SN#20181"
^XMB(3.9,362,2,126,0)="DRESSING,MEPILEX AG 4IN X 4IN #287100"
^XMB(3.9,362,2,127,0)="DRESSING,MEPILEX AG 4IN X 8IN #287200"
^XMB(3.9,362,2,128,0)="DRESSING,MEPILEX AG 6IN X 6IN #287300"
^XMB(3.9,362,2,129,0)="DRESSING,MEPILEX AG 8IN X 8IN #287400"
^XMB(3.9,362,2,130,0)="FECAL COLLECTOR C#4111-00"
^XMB(3.9,362,2,131,0)="FECAL COLLECTOR C#4111-01"
^XMB(3.9,362,2,132,0)="FLUID DISPENSING SYSTEM MAC-10001"
^XMB(3.9,362,2,133,0)="GASKET,SEAL-TITE 3.75IN,#TSN4302"
^XMB(3.9,362,2,134,0)="GLUCOSE SENSOR GUARDIAN MMT-7002"
^XMB(3.9,362,2,135,0)="HYDROCORTISONE 2%/LIDOCAINE 2% CREAM,RTL W/APPLICATOR"
^XMB(3.9,362,2,136,0)="INSULIN SYRINGE 1ML SLIP TIP"
^XMB(3.9,362,2,137,0)="IRRIGATION KIT BARD #750301"
^XMB(3.9,362,2,138,0)="LEG BAG FREEDOM T-TAP KIT COLOPLAST #7077"
^XMB(3.9,362,2,139,0)="LEG BAG FREEDOM T-TAP KIT COLOPLAST #7078"
^XMB(3.9,362,2,140,0)="LEG BAG FREEDOM T-TAP KIT COLOPLAST #7079"
^XMB(3.9,362,2,141,0)="LEG BAG FREEDOM T-TAP KIT COLOPLAST #7088"
^XMB(3.9,362,2,142,0)="LEG BAG FREEDOM T-TAP KIT COLOPLAST #7089"
^XMB(3.9,362,2,143,0)="LEG BAG FREEDOM T-TAP KIT COLOPLAST #9010"
^XMB(3.9,362,2,144,0)="ORAL,SWAB TOOTHETTE"
^XMB(3.9,362,2,145,0)="ORAL,SWAB TOOTHETTE PLUS"
^XMB(3.9,362,2,146,0)="ORAL,SWAB TOOTHETTE PLUS W/MOUTHWASH"
^XMB(3.9,362,2,147,0)="ORAL,SWAB TOOTHETTE PLUS W/SODIUM BICARBONATE"
^XMB(3.9,362,2,148,0)="ORAL,SWAB TOOTHETTE W/DENTIFRICE"
^XMB(3.9,362,2,149,0)="PAPAIN 650000 UNIT/UREA 10% (KOVIA) OINT,TOP"
^XMB(3.9,362,2,150,0)="PEAK FLOW METER OMRON #9040"
^XMB(3.9,362,2,151,0)="POUCH,DRAINABLE,ASSURA COLOPLAST #15976"
^XMB(3.9,362,2,152,0)="POUCH,DRAINABLE,NU-HOPE #7234-C"
^XMB(3.9,362,2,153,0)="POUCH,DRAINABLE,PREMIER H#8558"
^XMB(3.9,362,2,154,0)="POUCH,DRAINABLE,PREMIER H#88400"
^XMB(3.9,362,2,155,0)="POUCH,DRAINABLE,PREMIER HIGH OUTPUT H#80070"
^XMB(3.9,362,2,156,0)="POUCH,DRAINABLE,SUR-FIT C#4040-14"
^XMB(3.9,362,2,157,0)="POUCH,DRAINABLE,SUR-FIT C#4040-15"
^XMB(3.9,362,2,158,0)="POUCH,DRAINABLE,SUR-FIT C#4040-16"
^XMB(3.9,362,2,159,0)="POUCH,DRAINABLE,SUR-FIT C#4040-17"
^XMB(3.9,362,2,160,0)="POUCH,DRAINABLE,SUR-FIT C#4040-18"
^XMB(3.9,362,2,161,0)="POUCH,DRAINABLE,SUR-FIT C#4040-34"
^XMB(3.9,362,2,162,0)="POUCH,DRAINABLE,SUR-FIT C#4112-90"
^XMB(3.9,362,2,163,0)="POUCH,DRAINABLE,SUR-FIT C#4112-91"
^XMB(3.9,362,2,164,0)="POUCH,DRAINABLE,SUR-FIT C#4112-92"
^XMB(3.9,362,2,165,0)="POUCH,DRAINABLE,SUR-FIT C#4113-10"
^XMB(3.9,362,2,166,0)="POUCH,DRAINABLE,SUR-FIT C#4113-60"
^XMB(3.9,362,2,167,0)="POUCH,DRAINABLE,SUR-FIT C#4133-12"
^XMB(3.9,362,2,168,0)="POUCH,DRAINABLE,SUR-FIT C#4133-13"
^XMB(3.9,362,2,169,0)="POUCH,DRAINABLE,SUR-FIT C#4133-14"
^XMB(3.9,362,2,170,0)="POUCH,DRAINABLE,SUR-FIT C#4133-34"
^XMB(3.9,362,2,171,0)="POUCH,DRAINABLE,SUR-FIT C#4133-35"
^XMB(3.9,362,2,172,0)="POUCH,DRAINABLE,SUR-FIT C#4133-36"
^XMB(3.9,362,2,173,0)="POUCH,OSTOMY,ASSURA MIDI COLOPLAST #12149"
^XMB(3.9,362,2,174,0)="POUCH,OSTOMY,SUR-FIT NATURA C#4131-74"
^XMB(3.9,362,2,175,0)="POUCH,OSTOMY,SUR-FIT NATURA C#4131-75"
^XMB(3.9,362,2,176,0)="POUCH,OSTOMY,SUR-FIT NATURA C#4131-76"
^XMB(3.9,362,2,177,0)="POUCH,URINARY POST-OP NU-HOPE #8360"
^XMB(3.9,362,2,178,0)="POUCH,URINARY POST-OP NU-HOPE #8361"
^XMB(3.9,362,2,179,0)="POUCH,URINARY POST-OP NU-HOPE #8362"
^XMB(3.9,362,2,180,0)="POUCH,URINARY POST-OP NU-HOPE #8363"
^XMB(3.9,362,2,181,0)="POUCH,URINARY POST-OP NU-HOPE #8364"
^XMB(3.9,362,2,182,0)="POUCH,URINARY POST-OP NU-HOPE #8366"
^XMB(3.9,362,2,183,0)="PURPOSE SOAP,BAR"
^XMB(3.9,362,2,184,0)="SCRIPTALK READER"
^XMB(3.9,362,2,185,0)="SULFACETAMIDE NA 10%/SULFUR 5% FOAM,TOP"
^XMB(3.9,362,2,186,0)="SULFACETAMIDE NA 10%/SULFUR 5% WASH,TOP"
^XMB(3.9,362,2,187,0)="TRANSMITTER PATCH MMT-7006"
^XMB(3.9,362,2,188,0)="UNDERPAD,BED EXTRA LARGE"
^XMB(3.9,362,2,189,0)="UREA 50% SUSP,TOP"
^XMB(3.9,362,6,0)="^3.911A^3^3"
^XMB(3.9,362,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,362,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,362,6,3,0)="ORMSBY,SKIP"
^XMB(3.9,362,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,362,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,362,6,"B","ORMSBY,SKIP",3)=""
^XMB(3.9,363,0)="DRUGS UNMATCHED FROM NATIONAL DRUG FILE^NDF MANAGER^3071227.181233^^^^P"
^XMB(3.9,363,.6)="3071227"
^XMB(3.9,363,1,0)="^3.91A^3^3"
^XMB(3.9,363,1,1,0)="1^0^3071227.181418^^^^^^1^3071227.181418"
^XMB(3.9,363,1,2,0)="63"
^XMB(3.9,363,1,3,0)="68"
^XMB(3.9,363,1,"C",1,1)=""
^XMB(3.9,363,1,"C",63,2)=""
^XMB(3.9,363,1,"C",68,3)=""
^XMB(3.9,363,2,0)="^^63^63^3071227"
^XMB(3.9,363,2,1,0)=" "
^XMB(3.9,363,2,2,0)="The following active entries in your DRUG file (#50) have been"
^XMB(3.9,363,2,3,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,363,2,4,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,363,2,5,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,363,2,6,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,363,2,7,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,363,2,8,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,363,2,9,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,363,2,10,0)="products immediately.  You may also need to match a new"
^XMB(3.9,363,2,11,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,363,2,12,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,363,2,13,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,363,2,14,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,363,2,15,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,363,2,16,0)="matching process."
^XMB(3.9,363,2,17,0)=" "
^XMB(3.9,363,2,18,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,363,2,19,0)="                                                                    DATE"
^XMB(3.9,363,2,20,0)=" "
^XMB(3.9,363,2,21,0)="  NONE"
^XMB(3.9,363,2,22,0)=" "
^XMB(3.9,363,2,23,0)="The following investigational entries in your DRUG file (#50) have been"
^XMB(3.9,363,2,24,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,363,2,25,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,363,2,26,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,363,2,27,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,363,2,28,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,363,2,29,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,363,2,30,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,363,2,31,0)="products immediately.  You may also need to match a new"
^XMB(3.9,363,2,32,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,363,2,33,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,363,2,34,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,363,2,35,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,363,2,36,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,363,2,37,0)="matching process."
^XMB(3.9,363,2,38,0)=" "
^XMB(3.9,363,2,39,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,363,2,40,0)="                                                                    DATE"
^XMB(3.9,363,2,41,0)=" "
^XMB(3.9,363,2,42,0)="  NONE"
^XMB(3.9,363,2,43,0)=" "
^XMB(3.9,363,2,44,0)="The following inactive entries in your DRUG file (#50) have been"
^XMB(3.9,363,2,45,0)="unmatched from the National Drug File (NDF).  The VA Product"
^XMB(3.9,363,2,46,0)="name and CMOP ID corresponding to the unmatched local drug file"
^XMB(3.9,363,2,47,0)="name are listed on the indented line beneath each entry.  An"
^XMB(3.9,363,2,48,0)="Inactivation Date may be listed for entries when this reason"
^XMB(3.9,363,2,49,0)="applies.  Until you rematch these entries to NDF, they will not"
^XMB(3.9,363,2,50,0)="transmit to CMOP and drug-drug interaction checks will not check"
^XMB(3.9,363,2,51,0)="for these products.  It is critical that you rematch these"
^XMB(3.9,363,2,52,0)="products immediately.  You may also need to match a new"
^XMB(3.9,363,2,53,0)="orderable item.  Any possible dosages and local possible"
^XMB(3.9,363,2,54,0)="dosages for these unmatched products have been deleted."
^XMB(3.9,363,2,55,0)="Therefore, the dosages for each unmatched product should"
^XMB(3.9,363,2,56,0)="be reviewed after the rematch or recreated if the product"
^XMB(3.9,363,2,57,0)="can not be rematched to a VA Product through the NDF"
^XMB(3.9,363,2,58,0)="matching process."
^XMB(3.9,363,2,59,0)=" "
^XMB(3.9,363,2,60,0)=" DRUG                                                 IEN       INACTIVATION"
^XMB(3.9,363,2,61,0)="                                                                    DATE"
^XMB(3.9,363,2,62,0)=" "
^XMB(3.9,363,2,63,0)="  NONE"
^XMB(3.9,363,6,0)="^3.911A^3^3"
^XMB(3.9,363,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,363,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,363,6,3,0)="ORMSBY,SKIP"
^XMB(3.9,363,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,363,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,363,6,"B","ORMSBY,SKIP",3)=""
^XMB(3.9,364,0)="INTERACTIONS and ALLERGIES UPDATED^NDF MANAGER^3071227.181315"
^XMB(3.9,364,.6)="3071227"
^XMB(3.9,364,1,0)="^3.91A^3^3"
^XMB(3.9,364,1,1,0)="1"
^XMB(3.9,364,1,2,0)="63"
^XMB(3.9,364,1,3,0)="68"
^XMB(3.9,364,1,"C",1,1)=""
^XMB(3.9,364,1,"C",63,2)=""
^XMB(3.9,364,1,"C",68,3)=""
^XMB(3.9,364,2,0)="^^8^8^3071227"
^XMB(3.9,364,2,1,0)=" "
^XMB(3.9,364,2,2,0)="No DRUG INTERACTIONS were updated due to Primary Ingredients being"
^XMB(3.9,364,2,3,0)="changed to Non-Primary ingredients in the Data Update."
^XMB(3.9,364,2,4,0)=" "
^XMB(3.9,364,2,5,0)=" "
^XMB(3.9,364,2,6,0)="No PATIENT ALLERGIES were updated due to Primary Ingredients being"
^XMB(3.9,364,2,7,0)="changed to Non-Primary ingredients during the Data Update."
^XMB(3.9,364,2,8,0)=" "
^XMB(3.9,364,6,0)="^3.911A^3^3"
^XMB(3.9,364,6,1,0)="AMUNDSON,MARK"
^XMB(3.9,364,6,2,0)="ANDERSON,MAGGIE"
^XMB(3.9,364,6,3,0)="ORMSBY,SKIP"
^XMB(3.9,364,6,"B","AMUNDSON,MARK",1)=""
^XMB(3.9,364,6,"B","ANDERSON,MAGGIE",2)=""
^XMB(3.9,364,6,"B","ORMSBY,SKIP",3)=""
^XMB(3.9,365,0)="Correct OEF/OIF site info COMPLETED on Dec 27, 2007@18:26:34^.5^3071227.182634"
^XMB(3.9,365,.6)="3071227"
^XMB(3.9,365,1,0)="^3.91A^1^1"
^XMB(3.9,365,1,1,0)="1"
^XMB(3.9,365,1,"C",1,1)=""
^XMB(3.9,365,2,0)="^^5^5^3071227"
^XMB(3.9,365,2,1,0)="Correct OEF/OIF site info COMPLETED on Dec 27, 2007@18:26:34"
^XMB(3.9,365,2,2,0)=""
^XMB(3.9,365,2,3,0)=""
^XMB(3.9,365,2,4,0)="      Total Patient Records Read:           0"
^XMB(3.9,365,2,5,0)="   Total OEF/OIF Records Changed:           0"
^XMB(3.9,365,6,0)="^3.911A^1^1"
^XMB(3.9,365,6,1,0)="ORMSBY,SKIP"
^XMB(3.9,365,6,"B","ORMSBY,SKIP",1)=""
^XMB(3.9,366,0)="BPS*1.0*5 installation has been completed^E CLAIMS MGMT ENGINE PACKAGE^3071227.182658"
^XMB(3.9,366,.6)="3071227"
^XMB(3.9,366,1,0)="^3.91A^1^1"
^XMB(3.9,366,1,1,0)="1"
^XMB(3.9,366,1,"C",1,1)=""
^XMB(3.9,366,2,0)="^^3^3^3071227"
^XMB(3.9,366,2,1,0)=""
^XMB(3.9,366,2,2,0)="The conversion of data from the ^BPSECP global to the BPS LOG file"
^XMB(3.9,366,2,3,0)="has successfully completed."
^XMB(3.9,366,6,0)="^3.911A^1^1"
^XMB(3.9,366,6,1,0)="ORMSBY,SKIP"
^XMB(3.9,366,6,"B","ORMSBY,SKIP",1)=""
^XMB(3.9,367,0)="IB*2.0*363 installation has been completed^INTEGRATED BILLING PACKAGE^3071227.182703"
^XMB(3.9,367,.6)="3071227"
^XMB(3.9,367,1,0)="^3.91A^1^1"
^XMB(3.9,367,1,1,0)="1"
^XMB(3.9,367,1,"C",1,1)=""
^XMB(3.9,367,2,0)="^^5^5^3071227"
^XMB(3.9,367,2,1,0)=""
^XMB(3.9,367,2,2,0)=">>> Populating the field #.09 E-PHARMACY DIVISION in the file #366.14"
^XMB(3.9,367,2,3,0)=">>> 0 records have been populated."
^XMB(3.9,367,2,4,0)=">>> 0 records have been examined."
^XMB(3.9,367,2,5,0)=""
^XMB(3.9,367,6,0)="^3.911A^1^1"
^XMB(3.9,367,6,1,0)="ORMSBY,SKIP"
^XMB(3.9,367,6,"B","ORMSBY,SKIP",1)=""
^XMB(3.9,368,0)="PATCH GMRA*4*40 Post Install COMPLETED^PATCH GMRA*4*40 POST-INSTALL^3071227.182704"
^XMB(3.9,368,.6)="3071227"
^XMB(3.9,368,1,0)="^3.91A^6^6"
^XMB(3.9,368,1,1,0)=".5"
^XMB(3.9,368,1,2,0)="1"
^XMB(3.9,368,1,3,0)="CATHERINE.HOANG2@VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,368,1,4,0)="DAVID.NABER@VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,368,1,5,0)="HULET.LEE_ANN@FORUM.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,368,1,6,0)="KEN.BARLOW@VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,368,1,"AQUEUE",18,3)=""
^XMB(3.9,368,1,"AQUEUE",18,4)=""
^XMB(3.9,368,1,"AQUEUE",18,5)=""
^XMB(3.9,368,1,"AQUEUE",18,6)=""
^XMB(3.9,368,1,"C",.5,1)=""
^XMB(3.9,368,1,"C",1,2)=""
^XMB(3.9,368,1,"C","CATHERINE.HOANG2@VA.GOV",3)=""
^XMB(3.9,368,1,"C","DAVID.NABER@VA.GOV",4)=""
^XMB(3.9,368,1,"C","HULET.LEE_ANN@FORUM.VA.GOV",5)=""
^XMB(3.9,368,1,"C","KEN.BARLOW@VA.GOV",6)=""
^XMB(3.9,368,2,0)="^^3^3^3071227"
^XMB(3.9,368,2,1,0)="The post-install routine for patch GMRA*4*40"
^XMB(3.9,368,2,2,0)="finished on Dec 27, 2007@18:27:04."
^XMB(3.9,368,2,3,0)=""
^XMB(3.9,368,6,0)="^3.911A^6^6"
^XMB(3.9,368,6,1,0)="CATHERINE.HOANG2@VA.GOV"
^XMB(3.9,368,6,2,0)="DAVID.NABER@VA.GOV"
^XMB(3.9,368,6,3,0)="HULET.LEE_ANN@FORUM.VA.GOV"
^XMB(3.9,368,6,4,0)="KEN.BARLOW@VA.GOV"
^XMB(3.9,368,6,5,0)="ORMSBY,SKIP"
^XMB(3.9,368,6,6,0)="POSTMASTER"
^XMB(3.9,368,6,"B","CATHERINE.HOANG2@VA.GOV",1)=""
^XMB(3.9,368,6,"B","DAVID.NABER@VA.GOV",2)=""
^XMB(3.9,368,6,"B","HULET.LEE_ANN@FORUM.VA.GOV",3)=""
^XMB(3.9,368,6,"B","KEN.BARLOW@VA.GOV",4)=""
^XMB(3.9,368,6,"B","ORMSBY,SKIP",5)=""
^XMB(3.9,368,6,"B","POSTMASTER",6)=""
^XMB(3.9,369,0)="Version 26.76 Installed^CPRS PACKAGE^3071227.182717"
^XMB(3.9,369,.6)="3071227"
^XMB(3.9,369,1,0)="^3.91A^2^2"
^XMB(3.9,369,1,1,0)="1"
^XMB(3.9,369,1,2,0)="G.CPRS GUI INSTALL@ISC-SLC.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,369,1,"AQUEUE",18,2)=""
^XMB(3.9,369,1,"C",1,1)=""
^XMB(3.9,369,1,"C","G.CPRS GUI INSTALL@ISC-SLC.VA.",2)=""
^XMB(3.9,369,2,0)="^^3^3^3071227"
^XMB(3.9,369,2,1,0)="Version 26.76 has been installed."
^XMB(3.9,369,2,2,0)=" "
^XMB(3.9,369,2,3,0)="Install complete:  Dec 27, 2007@18:27:17"
^XMB(3.9,369,6,0)="^3.911A^2^2"
^XMB(3.9,369,6,1,0)="G.CPRS GUI INSTALL@ISC-SLC.VA.GOV"
^XMB(3.9,369,6,2,0)="ORMSBY,SKIP"
^XMB(3.9,369,6,"B","G.CPRS GUI INSTALL@ISC-SLC.VA.",1)=""
^XMB(3.9,369,6,"B","ORMSBY,SKIP",2)=""
^XMB(3.9,370,0)="XUMF NPI ERROR/WARNING/INFO^.5^3071230.211005"
^XMB(3.9,370,.6)="3071230"
^XMB(3.9,370,1,0)="^3.91A^2^2"
^XMB(3.9,370,1,1,0)="1"
^XMB(3.9,370,1,2,0)="G.XUMF ERROR@FORUM.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,370,1,"AQUEUE",18,2)=""
^XMB(3.9,370,1,"C",1,1)=""
^XMB(3.9,370,1,"C","G.XUMF ERROR@FORUM.VA.GOV",2)=""
^XMB(3.9,370,2,0)="^^16^16^3071230"
^XMB(3.9,370,2,1,0)="The post install of patch XU*8*416 has completed but the NPI values"
^XMB(3.9,370,2,2,0)="did not get updated in your INSTITUTION (#4) file.  Check your HL LOGICAL"
^XMB(3.9,370,2,3,0)="LINK (#870) 'XUMF FORUM.' You should be able to PING the link -- stop/start"
^XMB(3.9,370,2,4,0)="the link if necessary."
^XMB(3.9,370,2,5,0)=""
^XMB(3.9,370,2,6,0)="After you have verified your XUMF FORUM link use the 'Load Institution"
^XMB(3.9,370,2,7,0)="NPI values' [XUMF LOAD NPI] in the [XUKERNEL] menu to load the NPI values."
^XMB(3.9,370,2,8,0)=""
^XMB(3.9,370,2,9,0)="NOTE: If you are installing in a TEST ACCOUNT then you may disregard this"
^XMB(3.9,370,2,10,0)="message.  If you do need to install the NPI values in a test/development"
^XMB(3.9,370,2,11,0)="environment then you must set up the 'XUMF TEST' logical link to connect"
^XMB(3.9,370,2,12,0)="to a test server environment.  Hospitals will most likely not wish to update"
^XMB(3.9,370,2,13,0)="the Institution file using HL7 messaging but rather wait until the mirror"
^XMB(3.9,370,2,14,0)="image overwrites the file normally.  If you do need to update the test or"
^XMB(3.9,370,2,15,0)="development account and you don't have a test server available then you'll"
^XMB(3.9,370,2,16,0)="need to contact the Institution file developer."
^XMB(3.9,370,6,0)="^3.911A^2^2"
^XMB(3.9,370,6,1,0)="G.XUMF NPI"
^XMB(3.9,370,6,2,0)="WVEHR,PATCH INSTALLER"
^XMB(3.9,370,6,"B","G.XUMF NPI",1)=""
^XMB(3.9,370,6,"B","WVEHR,PATCH INSTALLER",2)=""
^XMB(3.9,371,0)="Monthly Image Site Usage: VOE OFFICE INSTITUTION OLD~U~67 (Dec 20^1^3080101.192114"
^XMB(3.9,371,.6)="3080101"
^XMB(3.9,371,1,0)="^3.91A^3^3"
^XMB(3.9,371,1,1,0)="1"
^XMB(3.9,371,1,2,0)="65"
^XMB(3.9,371,1,3,0)="G.IMAGING DEVELOPMENT TEAM@FORUM.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,371,1,"AQUEUE",18,3)=""
^XMB(3.9,371,1,"C",1,1)=""
^XMB(3.9,371,1,"C",65,2)=""
^XMB(3.9,371,1,"C","G.IMAGING DEVELOPMENT TEAM@FOR",3)=""
^XMB(3.9,371,2,0)="^^87^87^3080101"
^XMB(3.9,371,2,1,0)="            SITE: VOE OFFICE INSTITUTION OLD^67"
^XMB(3.9,371,2,2,0)="Reporting Period: Dec 01, 2007 - Dec 31, 2007"
^XMB(3.9,371,2,3,0)="            DATE: JAN 01, 2008@19:21:13 EST"
^XMB(3.9,371,2,4,0)="          DOMAIN: BETA.VISTA-OFFICE.ORG"
^XMB(3.9,371,2,5,0)="    2005 ENTRIES: "
^XMB(3.9,371,2,6,0)=" 2006.81 ENTRIES: 0"
^XMB(3.9,371,2,7,0)="DICOM Error Log:0"
^XMB(3.9,371,2,8,0)="DICOM FAILED IMAGES:0"
^XMB(3.9,371,2,9,0)="Queue File count: 0"
^XMB(3.9,371,2,10,0)="Unprocessed Queue entries: 0"
^XMB(3.9,371,2,11,0)="31 day Image Workstation Sessions: 0"
^XMB(3.9,371,2,12,0)="31 day Image Workstation Patients: 0"
^XMB(3.9,371,2,13,0)="31 day Image Workstation Images: 0"
^XMB(3.9,371,2,14,0)="31 day Image Workstation Captures: 0"
^XMB(3.9,371,2,15,0)="31 day VistaRad WS Display: "
^XMB(3.9,371,2,16,0)="31 day VistaRad WS Interpretations: "
^XMB(3.9,371,2,17,0)="31 day average daily routed images: 0"
^XMB(3.9,371,2,18,0)="Vista Image Version/Build: 3.0^85^3071227.062256"
^XMB(3.9,371,2,19,0)="Image file namespace(s): ZZT^ZZ"
^XMB(3.9,371,2,20,0)="CONSENT FORMS: 0"
^XMB(3.9,371,2,21,0)="Document Images (TIF): 0"
^XMB(3.9,371,2,22,0)="Document Groups (TIF): 0"
^XMB(3.9,371,2,23,0)="Total Image Objects for Place: 0"
^XMB(3.9,371,2,24,0)="Total Group Parents for Place: 0"
^XMB(3.9,371,2,25,0)="Total Image Entry Deletes for Place: 0"
^XMB(3.9,371,2,26,0)="Image file group parents: 0"
^XMB(3.9,371,2,27,0)="Image file objects: 0"
^XMB(3.9,371,2,28,0)="Image file deletes: 0"
^XMB(3.9,371,2,29,0)="Unique Image patients captured: 0"
^XMB(3.9,371,2,30,0)="Unique Image patients display: 0"
^XMB(3.9,371,2,31,0)="Unique Image patients All: 0"
^XMB(3.9,371,2,32,0)="Total Non-Verified Images for Place: 0"
^XMB(3.9,371,2,33,0)="Total Verified Images for Place: 0"
^XMB(3.9,371,2,34,0)="Total Integrity Issues for Place: 0"
^XMB(3.9,371,2,35,0)="Total Duplicate Images for Place: 0"
^XMB(3.9,371,2,36,0)="ADVANCE DIRECTIVE SCANNED ADMINISTRATIVE CLOSURE: 0"
^XMB(3.9,371,2,37,0)="ADVANCE DIRECTIVE UNSCANNED MANUAL CLOSURE: 0"
^XMB(3.9,371,2,38,0)="ADVANCE DIRECTIVE SCANNED MANUAL CLOSURE: 0"
^XMB(3.9,371,2,39,0)="IMAGING PACKAGE INSTALLATION HX: 1^IMAGING^1P1^AUG 15, 2001^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,40,0)="IMAGING PACKAGE INSTALLATION HX: 2^IMAGING^1P3^SEP 06, 2001^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,41,0)="IMAGING PACKAGE INSTALLATION HX: 3^IMAGING^1P4^SEP 06, 2001^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,42,0)="IMAGING PACKAGE INSTALLATION HX: 4^IMAGING^1P5^DEC 10, 2001^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,43,0)="IMAGING PACKAGE INSTALLATION HX: 5^IMAGING^1P8^JAN 16, 2002^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,44,0)="IMAGING PACKAGE INSTALLATION HX: 6^IMAGING^2P1^APR 08, 2002^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,45,0)="IMAGING PACKAGE INSTALLATION HX: 7^IMAGING^2P3^MAR 30, 2004^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,46,0)="IMAGING PACKAGE INSTALLATION HX: 8^IMAGING^2P5^APR 10, 2006^MARSHALL,RICK"
^XMB(3.9,371,2,47,0)="IMAGING PACKAGE INSTALLATION HX: 9^IMAGING^2P7^AUG 14, 2002^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,48,0)="IMAGING PACKAGE INSTALLATION HX: 10^IMAGING^2P8^APR 10, 2006^MARSHALL,RICK"
^XMB(3.9,371,2,49,0)="IMAGING PACKAGE INSTALLATION HX: 11^IMAGING^2P9^APR 03, 2003^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,50,0)="IMAGING PACKAGE INSTALLATION HX: 12^IMAGING^2P10^NOV 21, 2003^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,51,0)="IMAGING PACKAGE INSTALLATION HX: 13^IMAGING^2P11^MAY 21, 2004^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,52,0)="IMAGING PACKAGE INSTALLATION HX: 14^IMAGING^2P15^SEP 03, 2004^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,53,0)="IMAGING PACKAGE INSTALLATION HX: 15^IMAGING^2P16^MAR 31, 2003^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,54,0)="IMAGING PACKAGE INSTALLATION HX: 16^IMAGING^2P17^APR 03, 2003^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,55,0)="IMAGING PACKAGE INSTALLATION HX: 17^IMAGING^2P18^OCT 08, 2006^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,56,0)="IMAGING PACKAGE INSTALLATION HX: 18^IMAGING^2P19^MAY 01, 2003^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,57,0)="IMAGING PACKAGE INSTALLATION HX: 19^IMAGING^2P20^OCT 08, 2006^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,58,0)="IMAGING PACKAGE INSTALLATION HX: 20^IMAGING^2P21^NOV 10, 2003^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,59,0)="IMAGING PACKAGE INSTALLATION HX: 21^IMAGING^2P22^OCT 02, 2003^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,60,0)="IMAGING PACKAGE INSTALLATION HX: 22^IMAGING^2P24^OCT 02, 2003^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,61,0)="IMAGING PACKAGE INSTALLATION HX: 23^IMAGING^2P25^OCT 02, 2003^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,62,0)="IMAGING PACKAGE INSTALLATION HX: 24^IMAGING^2P27^JUN 28, 2003^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,63,0)="IMAGING PACKAGE INSTALLATION HX: 25^IMAGING^2P29^MAY 21, 2004^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,64,0)="IMAGING PACKAGE INSTALLATION HX: 26^IMAGING^2P30^APR 10, 2006^MARSHALL,RICK"
^XMB(3.9,371,2,65,0)="IMAGING PACKAGE INSTALLATION HX: 27^IMAGING^2P31^APR 10, 2006^MARSHALL,RICK"
^XMB(3.9,371,2,66,0)="IMAGING PACKAGE INSTALLATION HX: 28^IMAGING^2P33^JUL 02, 2004^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,67,0)="IMAGING PACKAGE INSTALLATION HX: 29^IMAGING^2P36^MAR 02, 2004^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,68,0)="IMAGING PACKAGE INSTALLATION HX: 30^IMAGING^2P40^SEP 03, 2004^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,69,0)="IMAGING PACKAGE INSTALLATION HX: 31^IMAGING^2P45^APR 10, 2006^MARSHALL,RICK"
^XMB(3.9,371,2,70,0)="IMAGING PACKAGE INSTALLATION HX: 32^IMAGING^2P46^DEC 27, 2007@05:59:58^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,71,0)="IMAGING PACKAGE INSTALLATION HX: 33^IMAGING^2P47^APR 10, 2006^MARSHALL,RICK"
^XMB(3.9,371,2,72,0)="IMAGING PACKAGE INSTALLATION HX: 34^IMAGING^2P48^APR 10, 2006^MARSHALL,RICK"
^XMB(3.9,371,2,73,0)="IMAGING PACKAGE INSTALLATION HX: 35^IMAGING^2P50^OCT 08, 2006^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,74,0)="IMAGING PACKAGE INSTALLATION HX: 36^IMAGING^2P51^OCT 08, 2006^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,75,0)="IMAGING PACKAGE INSTALLATION HX: 37^IMAGING^2P52^OCT 08, 2006^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,76,0)="IMAGING PACKAGE INSTALLATION HX: 38^IMAGING^2P61^OCT 08, 2006^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,77,0)="IMAGING PACKAGE INSTALLATION HX: 39^IMAGING^2P63^APR 10, 2006^MARSHALL,RICK"
^XMB(3.9,371,2,78,0)="IMAGING PACKAGE INSTALLATION HX: 40^IMAGING^2P65^DEC 27, 2007@06:06:47^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,79,0)="IMAGING PACKAGE INSTALLATION HX: 41^IMAGING^2P77^DEC 27, 2007@06:21:13^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,80,0)="IMAGING PACKAGE INSTALLATION HX: 42^IMAGING^2P78^OCT 08, 2006^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,81,0)="IMAGING PACKAGE INSTALLATION HX: 43^IMAGING^2P84^DEC 27, 2007@05:58:35^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,82,0)="IMAGING PACKAGE INSTALLATION HX: 44^IMAGING^2P85^DEC 27, 2007@06:22:56^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,83,0)="IMAGING PACKAGE INSTALLATION HX: 45^IMAGING^2P86^DEC 27, 2007@06:22:51^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,84,0)="IMAGING PACKAGE INSTALLATION HX: 46^IMAGING^2P92^DEC 27, 2007@06:21:12^WVEHR,PATCH INSTALLER"
^XMB(3.9,371,2,85,0)="LOCAL NETWORK LOCATIONS: 0^NETWORK LOCATION^PHYSICAL REFERENCE^TOTAL SPACE^SPACE USED^FREE SPACE^OPERATIONAL STATUS^STORAGE TYPE^HASH"
^XMB(3.9,371,2,86,0)="LOCAL NETWORK LOCATIONS: 1^VISTASITESERVICE^http://siteserver.vista.med.va.gov/VistaWebSvcs/SiteService.asmx^^^^On-Line^URL^"
^XMB(3.9,371,2,87,0)="ASSOCIATED INSTITUTIONS: 0^Associated Institutions"
^XMB(3.9,371,6,0)="^3.911A^2^2"
^XMB(3.9,371,6,1,0)="G.MAG SERVER"
^XMB(3.9,371,6,2,0)="WVEHR,PATCH INSTALLER"
^XMB(3.9,371,6,"B","G.MAG SERVER",1)=""
^XMB(3.9,371,6,"B","WVEHR,PATCH INSTALLER",2)=""
^XMB(3.9,372,0)="IB*2.0*363 installation has been completed^INTEGRATED BILLING PACKAGE^3080117.054457"
^XMB(3.9,372,.6)="3080117"
^XMB(3.9,372,1,0)="^3.91A^1^1"
^XMB(3.9,372,1,1,0)="1"
^XMB(3.9,372,1,"C",1,1)=""
^XMB(3.9,372,2,0)="^^5^5^3080117"
^XMB(3.9,372,2,1,0)=""
^XMB(3.9,372,2,2,0)="The post-install process has been skipped since"
^XMB(3.9,372,2,3,0)="the patch was previously installed."
^XMB(3.9,372,2,4,0)=""
^XMB(3.9,372,2,5,0)=""
^XMB(3.9,372,6,0)="^3.911A^1^1"
^XMB(3.9,372,6,1,0)="WVEHR,PATCH INSTALLER"
^XMB(3.9,372,6,"B","WVEHR,PATCH INSTALLER",1)=""
^XMB(3.9,373,0)="Version 26.76 Installed^CPRS PACKAGE^3080117.054519"
^XMB(3.9,373,.6)="3080117"
^XMB(3.9,373,1,0)="^3.91A^2^2"
^XMB(3.9,373,1,1,0)="1"
^XMB(3.9,373,1,2,0)="G.CPRS GUI INSTALL@ISC-SLC.VA.GOV^^^^^Awaiting transmission.^18"
^XMB(3.9,373,1,"AQUEUE",18,2)=""
^XMB(3.9,373,1,"C",1,1)=""
^XMB(3.9,373,1,"C","G.CPRS GUI INSTALL@ISC-SLC.VA.",2)=""
^XMB(3.9,373,2,0)="^^3^3^3080117"
^XMB(3.9,373,2,1,0)="Version 26.76 has been installed."
^XMB(3.9,373,2,2,0)=" "
^XMB(3.9,373,2,3,0)="Install complete:  Jan 17, 2008@05:45:19"
^XMB(3.9,373,6,0)="^3.911A^2^2"
^XMB(3.9,373,6,1,0)="G.CPRS GUI INSTALL@ISC-SLC.VA.GOV"
^XMB(3.9,373,6,2,0)="WVEHR,PATCH INSTALLER"
^XMB(3.9,373,6,"B","G.CPRS GUI INSTALL@ISC-SLC.VA.",1)=""
^XMB(3.9,373,6,"B","WVEHR,PATCH INSTALLER",2)=""
^XMB(3.9,"B","ADDED WKLD CODE REPORT Dec 27,",343)=""
^XMB(3.9,"B","BPS*1.0*5 installation has bee",366)=""
^XMB(3.9,"B","CHECK FOR MED ROUTE ABBREVIATI",348)=""
^XMB(3.9,"B","Convert Radiation Exposure Met",278)=""
^XMB(3.9,"B","Correct OEF/OIF site info COMP",365)=""
^XMB(3.9,"B","DATA UPDATE FOR NDF",264)=""
^XMB(3.9,"B","DATA UPDATE FOR NDF",267)=""
^XMB(3.9,"B","DATA UPDATE FOR NDF",275)=""
^XMB(3.9,"B","DATA UPDATE FOR NDF",280)=""
^XMB(3.9,"B","DATA UPDATE FOR NDF",297)=""
^XMB(3.9,"B","DATA UPDATE FOR NDF",307)=""
^XMB(3.9,"B","DATA UPDATE FOR NDF",315)=""
^XMB(3.9,"B","DATA UPDATE FOR NDF",320)=""
^XMB(3.9,"B","DATA UPDATE FOR NDF",328)=""
^XMB(3.9,"B","DATA UPDATE FOR NDF",335)=""
^XMB(3.9,"B","DATA UPDATE FOR NDF",344)=""
^XMB(3.9,"B","DATA UPDATE FOR NDF",349)=""
^XMB(3.9,"B","DATA UPDATE FOR NDF",353)=""
^XMB(3.9,"B","DATA UPDATE FOR NDF",361)=""
^XMB(3.9,"B","DG MEANS TEST DATE OF DEATH CL",286)=""
^XMB(3.9,"B","DG*5.3*733 COMBAT INDICATED ON",301)=""
^XMB(3.9,"B","DG-5P3_SEQ-614_PAT-704.KID",1)=""
^XMB(3.9,"B","DG-5P3_SEQ-617_PAT-703.KID",2)=""
^XMB(3.9,"B","DG-5P3_SEQ-618_PAT-706.KID",3)=""
^XMB(3.9,"B","DG-5P3_SEQ-619_PAT-611.KID",4)=""
^XMB(3.9,"B","DG-5P3_SEQ-620_PAT-683.KID",5)=""
^XMB(3.9,"B","DG-5P3_SEQ-621_PAT-700.KID",6)=""
^XMB(3.9,"B","DG-5P3_SEQ-622_PAT-711.KID",7)=""
^XMB(3.9,"B","DG-5P3_SEQ-623_PAT-702.KID",8)=""
^XMB(3.9,"B","DG-5P3_SEQ-624_PAT-705.KID",9)=""
^XMB(3.9,"B","DG-5P3_SEQ-625_PAT-715.KID",10)=""
^XMB(3.9,"B","DG-5P3_SEQ-626_PAT-694.KID",11)=""
^XMB(3.9,"B","DG-5P3_SEQ-627_PAT-701.KID",12)=""
^XMB(3.9,"B","DG-5P3_SEQ-628_PAT-699.KID",13)=""
^XMB(3.9,"B","DG-5P3_SEQ-629_PAT-718.KID",14)=""
^XMB(3.9,"B","DG-5P3_SEQ-630_PAT-719.KID",15)=""
^XMB(3.9,"B","DG-5P3_SEQ-631_PAT-726.KID",16)=""
^XMB(3.9,"B","DG-5P3_SEQ-633_PAT-727.KID",17)=""
^XMB(3.9,"B","DG-5P3_SEQ-634_PAT-696.KID",18)=""
^XMB(3.9,"B","DI-22_SEQ-132_PAT-150.KID",19)=""
^XMB(3.9,"B","DRUGS UNMATCHED FROM NATIONAL ",266)=""
^XMB(3.9,"B","DRUGS UNMATCHED FROM NATIONAL ",269)=""
^XMB(3.9,"B","DRUGS UNMATCHED FROM NATIONAL ",277)=""
^XMB(3.9,"B","DRUGS UNMATCHED FROM NATIONAL ",282)=""
^XMB(3.9,"B","DRUGS UNMATCHED FROM NATIONAL ",299)=""
^XMB(3.9,"B","DRUGS UNMATCHED FROM NATIONAL ",309)=""
^XMB(3.9,"B","DRUGS UNMATCHED FROM NATIONAL ",317)=""
^XMB(3.9,"B","DRUGS UNMATCHED FROM NATIONAL ",322)=""
^XMB(3.9,"B","DRUGS UNMATCHED FROM NATIONAL ",330)=""
^XMB(3.9,"B","DRUGS UNMATCHED FROM NATIONAL ",337)=""
^XMB(3.9,"B","DRUGS UNMATCHED FROM NATIONAL ",346)=""
^XMB(3.9,"B","DRUGS UNMATCHED FROM NATIONAL ",351)=""
^XMB(3.9,"B","DRUGS UNMATCHED FROM NATIONAL ",356)=""
^XMB(3.9,"B","DRUGS UNMATCHED FROM NATIONAL ",363)=""
^XMB(3.9,"B","DVB-4_SEQ-54_PAT-56.KID",20)=""
^XMB(3.9,"B","DVBA-2P7_SEQ-97_PAT-108.KID",21)=""
^XMB(3.9,"B","DVBA-2P7_SEQ-98_PAT-111.KID",22)=""
^XMB(3.9,"B","DVBA-2P7_SEQ-99_PAT-113.KID",23)=""
^XMB(3.9,"B","EC-2_SEQ-75_PAT-81.KID",24)=""
^XMB(3.9,"B","EC-2_SEQ-76_PAT-72.KID",25)=""
^XMB(3.9,"B","ECX-3_SEQ-83_PAT-89.KID",26)=""
^XMB(3.9,"B","ECX-3_SEQ-84_PAT-94.KID",27)=""
^XMB(3.9,"B","ECX-3_SEQ-85_PAT-95.KID",28)=""
^XMB(3.9,"B","ECX-3_SEQ-86_PAT-97.KID",29)=""
^XMB(3.9,"B","EN-7_SEQ-82_PAT-86.KID",30)=""
^XMB(3.9,"B","EVC I1 Install - 050 (DG*5.3*6",341)=""
^XMB(3.9,"B","Event Capture Provider Field C",257)=""
^XMB(3.9,"B","Event Capture Roll-and-Scroll ",339)=""
^XMB(3.9,"B","Event Code Screens to Review",255)=""
^XMB(3.9,"B","Event Code Screens to Review",274)=""
^XMB(3.9,"B","Event Code Screens to Review",303)=""
^XMB(3.9,"B","Event Code Screens to Review",355)=""
^XMB(3.9,"B","FB-3P5_SEQ-89_PAT-97.KID",31)=""
^XMB(3.9,"B","FB-3P5_SEQ-90_PAT-100.KID",32)=""
^XMB(3.9,"B","FH-5P5_SEQ-4_PAT-6.KID",33)=""
^XMB(3.9,"B","File #51 modified records",262)=""
^XMB(3.9,"B","File #51.1 modified records",263)=""
^XMB(3.9,"B","GMPL-2_SEQ-30_PAT-33.KID",34)=""
^XMB(3.9,"B","GMRA-4_SEQ-30_PAT-35.KID",35)=""
^XMB(3.9,"B","GMRA-4_SEQ-31_PAT-20.KID",36)=""
^XMB(3.9,"B","GMRC-3_SEQ-44_PAT-51.KID",37)=""
^XMB(3.9,"B","GMRC-3_SEQ-45_PAT-42.KID",38)=""
^XMB(3.9,"B","GMRV-5_SEQ-12_PAT-18.KID",39)=""
^XMB(3.9,"B","HDIS Error has occurred",284)=""
^XMB(3.9,"B","HDIS Error has occurred",285)=""
^XMB(3.9,"B","HDIS Error has occurred",287)=""
^XMB(3.9,"B","HDIS Error has occurred",288)=""
^XMB(3.9,"B","HDIS Error has occurred",289)=""
^XMB(3.9,"B","HDIS Error has occurred",290)=""
^XMB(3.9,"B","HDIS Error has occurred",291)=""
^XMB(3.9,"B","HDIS Error has occurred",292)=""
^XMB(3.9,"B","HDIS Error has occurred",293)=""
^XMB(3.9,"B","HL-1P6_SEQ-100_PAT-118.KID",40)=""
^XMB(3.9,"B","HL-1P6_SEQ-101_PAT-126.KID",41)=""
^XMB(3.9,"B","HL-1P6_SEQ-102_PAT-130.KID",42)=""
^XMB(3.9,"B","HL-1P6_SEQ-103_PAT-120.KID",43)=""
^XMB(3.9,"B","HL-1P6_SEQ-104_PAT-131.KID",44)=""
^XMB(3.9,"B","HL-1P6_SEQ-105_PAT-133.KID",45)=""
^XMB(3.9,"B","IB*2.0*342 installation has be",271)=""
^XMB(3.9,"B","IB*2.0*363 installation has be",367)=""
^XMB(3.9,"B","IB*2.0*363 installation has be",372)=""
^XMB(3.9,"B","IB-2_SEQ-306_PAT-308.KID",46)=""
^XMB(3.9,"B","IB-2_SEQ-307_PAT-338.KID",47)=""
^XMB(3.9,"B","IB-2_SEQ-308_PAT-335.KID",48)=""
^XMB(3.9,"B","IB-2_SEQ-309_PAT-332.KID",49)=""
^XMB(3.9,"B","IB-2_SEQ-310_PAT-337.KID",50)=""
^XMB(3.9,"B","IB-2_SEQ-311_PAT-324.KID",51)=""
^XMB(3.9,"B","IB-2_SEQ-312_PAT-327.KID",52)=""
^XMB(3.9,"B","IB-2_SEQ-313_PAT-312.KID",53)=""
^XMB(3.9,"B","IB-2_SEQ-314_PAT-302.KID",54)=""
^XMB(3.9,"B","IB-2_SEQ-315_PAT-320.KID",55)=""
^XMB(3.9,"B","IB-2_SEQ-316_PAT-305.KID",56)=""
^XMB(3.9,"B","IB-2_SEQ-317_PAT-341.KID",57)=""
^XMB(3.9,"B","ICD-18_SEQ-19_PAT-20.KID",58)=""
^XMB(3.9,"B","ICD-18_SEQ-21_PAT-22.KID",59)=""
^XMB(3.9,"B","IMR-2P1_SEQ-18_PAT-21.KID",60)=""
^XMB(3.9,"B","INSTALL COMPLETED:LR*5.2*343",261)=""
^XMB(3.9,"B","INTERACTIONS and ALLERGIES UPD",283)=""
^XMB(3.9,"B","INTERACTIONS and ALLERGIES UPD",300)=""
^XMB(3.9,"B","INTERACTIONS and ALLERGIES UPD",310)=""
^XMB(3.9,"B","INTERACTIONS and ALLERGIES UPD",318)=""
^XMB(3.9,"B","INTERACTIONS and ALLERGIES UPD",323)=""
^XMB(3.9,"B","INTERACTIONS and ALLERGIES UPD",331)=""
^XMB(3.9,"B","INTERACTIONS and ALLERGIES UPD",338)=""
^XMB(3.9,"B","INTERACTIONS and ALLERGIES UPD",347)=""
^XMB(3.9,"B","INTERACTIONS and ALLERGIES UPD",352)=""
^XMB(3.9,"B","INTERACTIONS and ALLERGIES UPD",357)=""
^XMB(3.9,"B","INTERACTIONS and ALLERGIES UPD",364)=""
^XMB(3.9,"B","IVM*2*101 - FILED BY IVM FLAG ",311)=""
^XMB(3.9,"B","IVM-2_SEQ-96_PAT-118.KID",61)=""
^XMB(3.9,"B","KMPD-2_SEQ-5_PAT-5.KID",62)=""
^XMB(3.9,"B","LA-5P2_SEQ-54_PAT-72.KID",63)=""
^XMB(3.9,"B","LEX*2.0*49 Installation",332)=""
^XMB(3.9,"B","LR-5P2_SEQ-269_PAT-355.KID",64)=""
^XMB(3.9,"B","LR-5P2_SEQ-270_PAT-357.KID",65)=""
^XMB(3.9,"B","LR-5P2_SEQ-271_PAT-342.KID",66)=""
^XMB(3.9,"B","LR-5P2_SEQ-272_PAT-358.KID",67)=""
^XMB(3.9,"B","LR-5P2_SEQ-273_PAT-361.KID",68)=""
^XMB(3.9,"B","LR-5P2_SEQ-274_PAT-343.KID",69)=""
^XMB(3.9,"B","LR-5P2_SEQ-275_PAT-354.KID",70)=""
^XMB(3.9,"B","LR-5P2_SEQ-276_PAT-359.KID",71)=""
^XMB(3.9,"B","LR-5P2_SEQ-277_PAT-329.KID",72)=""
^XMB(3.9,"B","Legacy Billing Provider Second",260)=""
^XMB(3.9,"B","Local Drug Interactions Added ",325)=""
^XMB(3.9,"B","MAG*3.0*18 INSTALLATION",249)=""
^XMB(3.9,"B","MAG*3.0*20 INSTALLATION",251)=""
^XMB(3.9,"B","MAG*3.0*46 INSTALLATION",319)=""
^XMB(3.9,"B","MAG*3.0*50 INSTALLATION",252)=""
^XMB(3.9,"B","MAG*3.0*51 INSTALLATION",248)=""
^XMB(3.9,"B","MAG*3.0*52 INSTALLATION",253)=""
^XMB(3.9,"B","MAG*3.0*61 INSTALLATION",250)=""
^XMB(3.9,"B","MAG*3.0*65 INSTALLATION",324)=""
^XMB(3.9,"B","MAG*3.0*77 INSTALLATION",334)=""
^XMB(3.9,"B","MAG*3.0*78 INSTALLATION",254)=""
^XMB(3.9,"B","MAG*3.0*84 INSTALLATION",313)=""
^XMB(3.9,"B","MAG*3.0*85 INSTALLATION",342)=""
^XMB(3.9,"B","MAG*3.0*86 INSTALLATION",340)=""
^XMB(3.9,"B","MAG*3.0*92 INSTALLATION",333)=""
^XMB(3.9,"B","MAIL GROUP API",359)=""
^XMB(3.9,"B","MAIL GROUP API",360)=""
^XMB(3.9,"B","MD-1_SEQ-4_PAT-5.KID",73)=""
^XMB(3.9,"B","MPIF-1_SEQ-42_PAT-45.KID",74)=""
^XMB(3.9,"B","MailMan Error Detected During ",170)=""
^XMB(3.9,"B","MailMan Error Detected During ",171)=""
^XMB(3.9,"B","MailMan Error Detected During ",172)=""
^XMB(3.9,"B","MailMan Error Detected During ",173)=""
^XMB(3.9,"B","MailMan Error Detected During ",174)=""
^XMB(3.9,"B","MailMan Error Detected During ",175)=""
^XMB(3.9,"B","MailMan Error Detected During ",176)=""
^XMB(3.9,"B","MailMan Error Detected During ",177)=""
^XMB(3.9,"B","MailMan Error Detected During ",178)=""
^XMB(3.9,"B","MailMan Error Detected During ",179)=""
^XMB(3.9,"B","MailMan Error Detected During ",180)=""
^XMB(3.9,"B","MailMan Error Detected During ",181)=""
^XMB(3.9,"B","MailMan Error Detected During ",182)=""
^XMB(3.9,"B","MailMan Error Detected During ",183)=""
^XMB(3.9,"B","MailMan Error Detected During ",184)=""
^XMB(3.9,"B","MailMan Error Detected During ",185)=""
^XMB(3.9,"B","MailMan Error Detected During ",186)=""
^XMB(3.9,"B","MailMan Error Detected During ",187)=""
^XMB(3.9,"B","MailMan Error Detected During ",188)=""
^XMB(3.9,"B","MailMan Error Detected During ",189)=""
^XMB(3.9,"B","MailMan Error Detected During ",190)=""
^XMB(3.9,"B","MailMan Error Detected During ",191)=""
^XMB(3.9,"B","MailMan Error Detected During ",192)=""
^XMB(3.9,"B","MailMan Error Detected During ",193)=""
^XMB(3.9,"B","MailMan Error Detected During ",194)=""
^XMB(3.9,"B","MailMan Error Detected During ",195)=""
^XMB(3.9,"B","MailMan Error Detected During ",196)=""
^XMB(3.9,"B","MailMan Error Detected During ",197)=""
^XMB(3.9,"B","MailMan Error Detected During ",198)=""
^XMB(3.9,"B","MailMan Error Detected During ",199)=""
^XMB(3.9,"B","MailMan Error Detected During ",200)=""
^XMB(3.9,"B","MailMan Error Detected During ",201)=""
^XMB(3.9,"B","MailMan Error Detected During ",202)=""
^XMB(3.9,"B","MailMan Error Detected During ",203)=""
^XMB(3.9,"B","MailMan Error Detected During ",204)=""
^XMB(3.9,"B","MailMan Error Detected During ",205)=""
^XMB(3.9,"B","MailMan Error Detected During ",206)=""
^XMB(3.9,"B","MailMan Error Detected During ",207)=""
^XMB(3.9,"B","MailMan Error Detected During ",208)=""
^XMB(3.9,"B","MailMan Error Detected During ",209)=""
^XMB(3.9,"B","MailMan Error Detected During ",210)=""
^XMB(3.9,"B","MailMan Error Detected During ",211)=""
^XMB(3.9,"B","MailMan Error Detected During ",212)=""
^XMB(3.9,"B","MailMan Error Detected During ",213)=""
^XMB(3.9,"B","MailMan Error Detected During ",214)=""
^XMB(3.9,"B","MailMan Error Detected During ",215)=""
^XMB(3.9,"B","MailMan Error Detected During ",216)=""
^XMB(3.9,"B","MailMan Error Detected During ",217)=""
^XMB(3.9,"B","MailMan Error Detected During ",218)=""
^XMB(3.9,"B","MailMan Error Detected During ",219)=""
^XMB(3.9,"B","MailMan Error Detected During ",220)=""
^XMB(3.9,"B","MailMan Error Detected During ",221)=""
^XMB(3.9,"B","MailMan Error Detected During ",222)=""
^XMB(3.9,"B","MailMan Error Detected During ",223)=""
^XMB(3.9,"B","MailMan Error Detected During ",224)=""
^XMB(3.9,"B","MailMan Error Detected During ",225)=""
^XMB(3.9,"B","MailMan Error Detected During ",226)=""
^XMB(3.9,"B","MailMan Error Detected During ",227)=""
^XMB(3.9,"B","MailMan Error Detected During ",228)=""
^XMB(3.9,"B","MailMan Error Detected During ",229)=""
^XMB(3.9,"B","MailMan Error Detected During ",230)=""
^XMB(3.9,"B","MailMan Error Detected During ",231)=""
^XMB(3.9,"B","MailMan Error Detected During ",232)=""
^XMB(3.9,"B","MailMan Error Detected During ",233)=""
^XMB(3.9,"B","MailMan Error Detected During ",234)=""
^XMB(3.9,"B","MailMan Error Detected During ",235)=""
^XMB(3.9,"B","MailMan Error Detected During ",236)=""
^XMB(3.9,"B","MailMan Error Detected During ",237)=""
^XMB(3.9,"B","MailMan Error Detected During ",238)=""
^XMB(3.9,"B","MailMan Error Detected During ",239)=""
^XMB(3.9,"B","MailMan Error Detected During ",240)=""
^XMB(3.9,"B","MailMan Error Detected During ",241)=""
^XMB(3.9,"B","MailMan Error Detected During ",242)=""
^XMB(3.9,"B","MailMan Error Detected During ",243)=""
^XMB(3.9,"B","MailMan Error Detected During ",244)=""
^XMB(3.9,"B","MailMan Error Detected During ",245)=""
^XMB(3.9,"B","MailMan Error Detected During ",246)=""
^XMB(3.9,"B","MailMan Error Detected During ",247)=""
^XMB(3.9,"B","Monthly Image Site Usage: VOE ",371)=""
^XMB(3.9,"B","NPI INSTITUTION POPULATION",306)=""
^XMB(3.9,"B","OR-3_SEQ-226_PAT-251.KID",75)=""
^XMB(3.9,"B","OR-3_SEQ-228_PAT-257.KID",76)=""
^XMB(3.9,"B","OR-3_SEQ-229_PAT-264.KID",77)=""
^XMB(3.9,"B","OR-3_SEQ-230_PAT-253.KID",78)=""
^XMB(3.9,"B","OR-3_SEQ-231_PAT-228.KID",79)=""
^XMB(3.9,"B","ORRC-1_SEQ-2_PAT-3.KID",80)=""
^XMB(3.9,"B","Outpatient Pharmacy PSO*7*250 ",295)=""
^XMB(3.9,"B","PATCH GMRA*4*20 Post Install C",270)=""
^XMB(3.9,"B","PATCH GMRA*4*29 Post Install C",327)=""
^XMB(3.9,"B","PATCH GMRA*4*36 Post Install C",314)=""
^XMB(3.9,"B","PATCH GMRA*4*40 Post Install C",368)=""
^XMB(3.9,"B","PATCH OR*3.0*260 Clean Up COMP",296)=""
^XMB(3.9,"B","PPP-1_SEQ-36_PAT-41.KID",81)=""
^XMB(3.9,"B","PRC-5P1_SEQ-82_PAT-41.KID",82)=""
^XMB(3.9,"B","PRC-5P1_SEQ-83_PAT-97.KID",83)=""
^XMB(3.9,"B","PRC-5P1_SEQ-84_PAT-100.KID",84)=""
^XMB(3.9,"B","PRC-5P1_SEQ-85_PAT-96.KID",85)=""
^XMB(3.9,"B","PRCA-4P5_SEQ-217_PAT-246.KID",86)=""
^XMB(3.9,"B","PRCA-4P5_SEQ-218_PAT-243.KID",87)=""
^XMB(3.9,"B","PRCA-4P5_SEQ-219_PAT-232.KID",88)=""
^XMB(3.9,"B","PRCA-4P5_SEQ-220_PAT-235.KID",89)=""
^XMB(3.9,"B","PRCA-4P5_SEQ-221_PAT-247.KID",90)=""
^XMB(3.9,"B","PRPF-3_SEQ-17_PAT-15.KID",91)=""
^XMB(3.9,"B","PRS-4_SEQ-95_PAT-108.KID",92)=""
^XMB(3.9,"B","PSA*3*56 Delete Duplicate Drug",256)=""
^XMB(3.9,"B","PSA-3_SEQ-40_PAT-56.KID",93)=""
^XMB(3.9,"B","PSA-3_SEQ-41_PAT-51.KID",94)=""
^XMB(3.9,"B","PSA-3_SEQ-42_PAT-50.KID",95)=""
^XMB(3.9,"B","PSA-3_SEQ-43_PAT-57.KID",96)=""
^XMB(3.9,"B","PSB-3_SEQ-19_PAT-27.KID",97)=""
^XMB(3.9,"B","PSB-3_SEQ-21_PAT-13.KID",98)=""
^XMB(3.9,"B","PSB-3_SEQ-22_PAT-26.KID",99)=""
^XMB(3.9,"B","PSD-3_SEQ-50_PAT-60.KID",100)=""
^XMB(3.9,"B","PSJ*5*171 INPATIENT MEDS ACTIV",273)=""
^XMB(3.9,"B","PSJ-5_SEQ-152_PAT-154.KID",101)=""
^XMB(3.9,"B","PSJ-5_SEQ-153_PAT-156.KID",102)=""
^XMB(3.9,"B","PSJ-5_SEQ-154_PAT-170.KID",103)=""
^XMB(3.9,"B","PSJ-5_SEQ-155_PAT-172.KID",104)=""
^XMB(3.9,"B","PSN-4_SEQ-106_PAT-116.KID",105)=""
^XMB(3.9,"B","PSN-4_SEQ-107_PAT-103.KID",106)=""
^XMB(3.9,"B","PSO-7_SEQ-212_PAT-149.KID",107)=""
^XMB(3.9,"B","PSO-7_SEQ-213_PAT-232.KID",108)=""
^XMB(3.9,"B","PSO-7_SEQ-214_PAT-237.KID",109)=""
^XMB(3.9,"B","PSO-7_SEQ-215_PAT-244.KID",110)=""
^XMB(3.9,"B","PSO-7_SEQ-217_PAT-222.KID",111)=""
^XMB(3.9,"B","PSS-1_SEQ-100_PAT-106.KID",112)=""
^XMB(3.9,"B","PSS-1_SEQ-101_PAT-113.KID",113)=""
^XMB(3.9,"B","PSS-1_SEQ-102_PAT-92.KID",114)=""
^XMB(3.9,"B","PSS-1_SEQ-103_PAT-110.KID",115)=""
^XMB(3.9,"B","PSS-1_SEQ-104_PAT-115.KID",116)=""
^XMB(3.9,"B","PSS-1_SEQ-105_PAT-108.KID",117)=""
^XMB(3.9,"B","PSS-1_SEQ-99_PAT-107.KID",118)=""
^XMB(3.9,"B","PSU-4_SEQ-5_PAT-8.KID",119)=""
^XMB(3.9,"B","PSX-2_SEQ-49_PAT-51.KID",120)=""
^XMB(3.9,"B","PSX-2_SEQ-50_PAT-57.KID",121)=""
^XMB(3.9,"B","PSX-2_SEQ-51_PAT-48.KID",122)=""
^XMB(3.9,"B","PSX-2_SEQ-52_PAT-62.KID",123)=""
^XMB(3.9,"B","PSX-2_SEQ-53_PAT-61.KID",124)=""
^XMB(3.9,"B","PX-1_SEQ-137_PAT-157.KID",125)=""
^XMB(3.9,"B","Patch OR*3*244 Clean up comple",279)=""
^XMB(3.9,"B","Patch PX*1.0*157 Educ topic mo",272)=""
^XMB(3.9,"B","Patch RMPR*3.0*110 Clean up co",259)=""
^XMB(3.9,"B","Potential issues with the GROU",358)=""
^XMB(3.9,"B","QAC*2*20 POST INSTALL RESULTS",304)=""
^XMB(3.9,"B","RA-5_SEQ-60_PAT-64.KID",126)=""
^XMB(3.9,"B","RA-5_SEQ-61_PAT-72.KID",127)=""
^XMB(3.9,"B","RG-1_SEQ-44_PAT-46.KID",128)=""
^XMB(3.9,"B","RMPF-2_SEQ-19_PAT-20.kid",129)=""
^XMB(3.9,"B","RMPR-3_SEQ-100_PAT-120.KID",130)=""
^XMB(3.9,"B","RMPR-3_SEQ-101_PAT-110.KID",131)=""
^XMB(3.9,"B","RMPR-3_SEQ-102_PAT-128.KID",132)=""
^XMB(3.9,"B","RMPR-3_SEQ-97_PAT-98.KID",133)=""
^XMB(3.9,"B","RMPR-3_SEQ-98_PAT-124.KID",134)=""
^XMB(3.9,"B","RMPR-3_SEQ-99_PAT-121.KID",135)=""
^XMB(3.9,"B","SD-5P3_SEQ-386_PAT-452.KID",136)=""
^XMB(3.9,"B","SD-5P3_SEQ-387_PAT-442.KID",137)=""
^XMB(3.9,"B","SD-5P3_SEQ-388_PAT-367.KID",138)=""
^XMB(3.9,"B","SD-5P3_SEQ-389_PAT-480.KID",139)=""
^XMB(3.9,"B","SD-5P3_SEQ-391_PAT-482.KID",140)=""
^XMB(3.9,"B","SD-5P3_SEQ-392_PAT-461.KID",141)=""
^XMB(3.9,"B","SD-5P3_SEQ-393_PAT-487.KID",142)=""
^XMB(3.9,"B","SR-3_SEQ-147_PAT-152.KID",143)=""
^XMB(3.9,"B","SR-3_SEQ-148_PAT-144.KID",144)=""
^XMB(3.9,"B","SR-3_SEQ-149_PAT-156.KID",145)=""
^XMB(3.9,"B","SR-3_SEQ-150_PAT-154.KID",146)=""
^XMB(3.9,"B","SR-3_SEQ-151_PAT-158.KID",147)=""
^XMB(3.9,"B","SR-3_SEQ-152_PAT-153.KID",148)=""
^XMB(3.9,"B","STOP CODE UPDATE FROM 101 TO 1",326)=""
^XMB(3.9,"B","SUMMARY STATS - TRANSMIT UNSEN",294)=""
^XMB(3.9,"B","TIU-1_SEQ-197_PAT-207.KID",149)=""
^XMB(3.9,"B","TIU-1_SEQ-198_PAT-199.KID",150)=""
^XMB(3.9,"B","TIU-1_SEQ-199_PAT-218.KID",151)=""
^XMB(3.9,"B","TIU-1_SEQ-200_PAT-204.KID",152)=""
^XMB(3.9,"B","TIU-1_SEQ-201_PAT-208.KID",153)=""
^XMB(3.9,"B","UPDATED INTERACTIONS",265)=""
^XMB(3.9,"B","UPDATED INTERACTIONS",268)=""
^XMB(3.9,"B","UPDATED INTERACTIONS",276)=""
^XMB(3.9,"B","UPDATED INTERACTIONS",281)=""
^XMB(3.9,"B","UPDATED INTERACTIONS",298)=""
^XMB(3.9,"B","UPDATED INTERACTIONS",308)=""
^XMB(3.9,"B","UPDATED INTERACTIONS",316)=""
^XMB(3.9,"B","UPDATED INTERACTIONS",321)=""
^XMB(3.9,"B","UPDATED INTERACTIONS",329)=""
^XMB(3.9,"B","UPDATED INTERACTIONS",336)=""
^XMB(3.9,"B","UPDATED INTERACTIONS",345)=""
^XMB(3.9,"B","UPDATED INTERACTIONS",350)=""
^XMB(3.9,"B","UPDATED INTERACTIONS",354)=""
^XMB(3.9,"B","UPDATED INTERACTIONS",362)=""
^XMB(3.9,"B","VALM-1_SEQ-8_PAT-8.KID",154)=""
^XMB(3.9,"B","Version 26.68 Installed",258)=""
^XMB(3.9,"B","Version 26.69 Installed",302)=""
^XMB(3.9,"B","Version 26.76 Installed",369)=""
^XMB(3.9,"B","Version 26.76 Installed",373)=""
^XMB(3.9,"B","WV-1_SEQ-19_PAT-19.KID",155)=""
^XMB(3.9,"B","XM-8_SEQ-36_PAT-36.KID",156)=""
^XMB(3.9,"B","XT-7P3_SEQ-80_PAT-100.KID",157)=""
^XMB(3.9,"B","XU-8_SEQ-338_PAT-329.KID",158)=""
^XMB(3.9,"B","XU-8_SEQ-339_PAT-394.KID",159)=""
^XMB(3.9,"B","XU-8_SEQ-340_PAT-424.KID",160)=""
^XMB(3.9,"B","XU-8_SEQ-341_PAT-353.KID",161)=""
^XMB(3.9,"B","XU-8_SEQ-342_PAT-390.KID",162)=""
^XMB(3.9,"B","XU-8_SEQ-343_PAT-420.KID",163)=""
^XMB(3.9,"B","XU-8_SEQ-346_PAT-404.KID",164)=""
^XMB(3.9,"B","XU-8_SEQ-347_PAT-393.KID",165)=""
^XMB(3.9,"B","XU-8_SEQ-348_PAT-419.KID",166)=""
^XMB(3.9,"B","XUMF NPI ERROR/WARNING/INFO",305)=""
^XMB(3.9,"B","XUMF NPI ERROR/WARNING/INFO",312)=""
^XMB(3.9,"B","XUMF NPI ERROR/WARNING/INFO",370)=""
^XMB(3.9,"B","XWB-1P1_SEQ-37_PAT-46.KID",167)=""
^XMB(3.9,"B","XWB-1P1_SEQ-38_PAT-45.KID",168)=""
^XMB(3.9,"B","YS-5P01_SEQ-75_PAT-90.KID",169)=""
^XMB(3.9,"C",3061008,1)=""
^XMB(3.9,"C",3061008,2)=""
^XMB(3.9,"C",3061008,3)=""
^XMB(3.9,"C",3061008,4)=""
^XMB(3.9,"C",3061008,5)=""
^XMB(3.9,"C",3061008,6)=""
^XMB(3.9,"C",3061008,7)=""
^XMB(3.9,"C",3061008,8)=""
^XMB(3.9,"C",3061008,9)=""
^XMB(3.9,"C",3061008,10)=""
^XMB(3.9,"C",3061008,11)=""
^XMB(3.9,"C",3061008,12)=""
^XMB(3.9,"C",3061008,13)=""
^XMB(3.9,"C",3061008,14)=""
^XMB(3.9,"C",3061008,15)=""
^XMB(3.9,"C",3061008,16)=""
^XMB(3.9,"C",3061008,17)=""
^XMB(3.9,"C",3061008,18)=""
^XMB(3.9,"C",3061008,19)=""
^XMB(3.9,"C",3061008,20)=""
^XMB(3.9,"C",3061008,21)=""
^XMB(3.9,"C",3061008,22)=""
^XMB(3.9,"C",3061008,23)=""
^XMB(3.9,"C",3061008,24)=""
^XMB(3.9,"C",3061008,25)=""
^XMB(3.9,"C",3061008,26)=""
^XMB(3.9,"C",3061008,27)=""
^XMB(3.9,"C",3061008,28)=""
^XMB(3.9,"C",3061008,29)=""
^XMB(3.9,"C",3061008,30)=""
^XMB(3.9,"C",3061008,31)=""
^XMB(3.9,"C",3061008,32)=""
^XMB(3.9,"C",3061008,33)=""
^XMB(3.9,"C",3061008,34)=""
^XMB(3.9,"C",3061008,35)=""
^XMB(3.9,"C",3061008,36)=""
^XMB(3.9,"C",3061008,37)=""
^XMB(3.9,"C",3061008,38)=""
^XMB(3.9,"C",3061008,39)=""
^XMB(3.9,"C",3061008,40)=""
^XMB(3.9,"C",3061008,41)=""
^XMB(3.9,"C",3061008,42)=""
^XMB(3.9,"C",3061008,43)=""
^XMB(3.9,"C",3061008,44)=""
^XMB(3.9,"C",3061008,45)=""
^XMB(3.9,"C",3061008,46)=""
^XMB(3.9,"C",3061008,47)=""
^XMB(3.9,"C",3061008,48)=""
^XMB(3.9,"C",3061008,49)=""
^XMB(3.9,"C",3061008,50)=""
^XMB(3.9,"C",3061008,51)=""
^XMB(3.9,"C",3061008,52)=""
^XMB(3.9,"C",3061008,53)=""
^XMB(3.9,"C",3061008,54)=""
^XMB(3.9,"C",3061008,55)=""
^XMB(3.9,"C",3061008,56)=""
^XMB(3.9,"C",3061008,57)=""
^XMB(3.9,"C",3061008,58)=""
^XMB(3.9,"C",3061008,59)=""
^XMB(3.9,"C",3061008,60)=""
^XMB(3.9,"C",3061008,61)=""
^XMB(3.9,"C",3061008,62)=""
^XMB(3.9,"C",3061008,63)=""
^XMB(3.9,"C",3061008,64)=""
^XMB(3.9,"C",3061008,65)=""
^XMB(3.9,"C",3061008,66)=""
^XMB(3.9,"C",3061008,67)=""
^XMB(3.9,"C",3061008,68)=""
^XMB(3.9,"C",3061008,69)=""
^XMB(3.9,"C",3061008,70)=""
^XMB(3.9,"C",3061008,71)=""
^XMB(3.9,"C",3061008,72)=""
^XMB(3.9,"C",3061008,73)=""
^XMB(3.9,"C",3061008,74)=""
^XMB(3.9,"C",3061008,75)=""
^XMB(3.9,"C",3061008,76)=""
^XMB(3.9,"C",3061008,77)=""
^XMB(3.9,"C",3061008,78)=""
^XMB(3.9,"C",3061008,79)=""
^XMB(3.9,"C",3061008,80)=""
^XMB(3.9,"C",3061008,81)=""
^XMB(3.9,"C",3061008,82)=""
^XMB(3.9,"C",3061008,83)=""
^XMB(3.9,"C",3061008,84)=""
^XMB(3.9,"C",3061008,85)=""
^XMB(3.9,"C",3061008,86)=""
^XMB(3.9,"C",3061008,87)=""
^XMB(3.9,"C",3061008,88)=""
^XMB(3.9,"C",3061008,89)=""
^XMB(3.9,"C",3061008,90)=""
^XMB(3.9,"C",3061008,91)=""
^XMB(3.9,"C",3061008,92)=""
^XMB(3.9,"C",3061008,93)=""
^XMB(3.9,"C",3061008,94)=""
^XMB(3.9,"C",3061008,95)=""
^XMB(3.9,"C",3061008,96)=""
^XMB(3.9,"C",3061008,97)=""
^XMB(3.9,"C",3061008,98)=""
^XMB(3.9,"C",3061008,99)=""
^XMB(3.9,"C",3061008,100)=""
^XMB(3.9,"C",3061008,101)=""
^XMB(3.9,"C",3061008,102)=""
^XMB(3.9,"C",3061008,103)=""
^XMB(3.9,"C",3061008,104)=""
^XMB(3.9,"C",3061008,105)=""
^XMB(3.9,"C",3061008,106)=""
^XMB(3.9,"C",3061008,107)=""
^XMB(3.9,"C",3061008,108)=""
^XMB(3.9,"C",3061008,109)=""
^XMB(3.9,"C",3061008,110)=""
^XMB(3.9,"C",3061008,111)=""
^XMB(3.9,"C",3061008,112)=""
^XMB(3.9,"C",3061008,113)=""
^XMB(3.9,"C",3061008,114)=""
^XMB(3.9,"C",3061008,115)=""
^XMB(3.9,"C",3061008,116)=""
^XMB(3.9,"C",3061008,117)=""
^XMB(3.9,"C",3061008,118)=""
^XMB(3.9,"C",3061008,119)=""
^XMB(3.9,"C",3061008,120)=""
^XMB(3.9,"C",3061008,121)=""
^XMB(3.9,"C",3061008,122)=""
^XMB(3.9,"C",3061008,123)=""
^XMB(3.9,"C",3061008,124)=""
^XMB(3.9,"C",3061008,125)=""
^XMB(3.9,"C",3061008,126)=""
^XMB(3.9,"C",3061008,127)=""
^XMB(3.9,"C",3061008,128)=""
^XMB(3.9,"C",3061008,129)=""
^XMB(3.9,"C",3061008,130)=""
^XMB(3.9,"C",3061008,131)=""
^XMB(3.9,"C",3061008,132)=""
^XMB(3.9,"C",3061008,133)=""
^XMB(3.9,"C",3061008,134)=""
^XMB(3.9,"C",3061008,135)=""
^XMB(3.9,"C",3061008,136)=""
^XMB(3.9,"C",3061008,137)=""
^XMB(3.9,"C",3061008,138)=""
^XMB(3.9,"C",3061008,139)=""
^XMB(3.9,"C",3061008,140)=""
^XMB(3.9,"C",3061008,141)=""
^XMB(3.9,"C",3061008,142)=""
^XMB(3.9,"C",3061008,143)=""
^XMB(3.9,"C",3061008,144)=""
^XMB(3.9,"C",3061008,145)=""
^XMB(3.9,"C",3061008,146)=""
^XMB(3.9,"C",3061008,147)=""
^XMB(3.9,"C",3061008,148)=""
^XMB(3.9,"C",3061008,149)=""
^XMB(3.9,"C",3061008,150)=""
^XMB(3.9,"C",3061008,151)=""
^XMB(3.9,"C",3061008,152)=""
^XMB(3.9,"C",3061008,153)=""
^XMB(3.9,"C",3061008,154)=""
^XMB(3.9,"C",3061008,155)=""
^XMB(3.9,"C",3061008,156)=""
^XMB(3.9,"C",3061008,157)=""
^XMB(3.9,"C",3061008,158)=""
^XMB(3.9,"C",3061008,159)=""
^XMB(3.9,"C",3061008,160)=""
^XMB(3.9,"C",3061008,161)=""
^XMB(3.9,"C",3061008,162)=""
^XMB(3.9,"C",3061008,163)=""
^XMB(3.9,"C",3061008,164)=""
^XMB(3.9,"C",3061008,165)=""
^XMB(3.9,"C",3061008,166)=""
^XMB(3.9,"C",3061008,167)=""
^XMB(3.9,"C",3061008,168)=""
^XMB(3.9,"C",3061008,169)=""
^XMB(3.9,"C",3061008,170)=""
^XMB(3.9,"C",3061008,171)=""
^XMB(3.9,"C",3061008,172)=""
^XMB(3.9,"C",3061008,173)=""
^XMB(3.9,"C",3061008,174)=""
^XMB(3.9,"C",3061008,175)=""
^XMB(3.9,"C",3061008,176)=""
^XMB(3.9,"C",3061008,177)=""
^XMB(3.9,"C",3061008,178)=""
^XMB(3.9,"C",3061008,179)=""
^XMB(3.9,"C",3061008,180)=""
^XMB(3.9,"C",3061008,181)=""
^XMB(3.9,"C",3061008,182)=""
^XMB(3.9,"C",3061008,183)=""
^XMB(3.9,"C",3061008,184)=""
^XMB(3.9,"C",3061008,185)=""
^XMB(3.9,"C",3061008,186)=""
^XMB(3.9,"C",3061008,187)=""
^XMB(3.9,"C",3061008,188)=""
^XMB(3.9,"C",3061008,189)=""
^XMB(3.9,"C",3061008,190)=""
^XMB(3.9,"C",3061008,191)=""
^XMB(3.9,"C",3061008,192)=""
^XMB(3.9,"C",3061008,193)=""
^XMB(3.9,"C",3061008,194)=""
^XMB(3.9,"C",3061008,195)=""
^XMB(3.9,"C",3061008,196)=""
^XMB(3.9,"C",3061008,197)=""
^XMB(3.9,"C",3061008,198)=""
^XMB(3.9,"C",3061008,199)=""
^XMB(3.9,"C",3061008,200)=""
^XMB(3.9,"C",3061008,201)=""
^XMB(3.9,"C",3061008,202)=""
^XMB(3.9,"C",3061008,203)=""
^XMB(3.9,"C",3061008,204)=""
^XMB(3.9,"C",3061008,205)=""
^XMB(3.9,"C",3061008,206)=""
^XMB(3.9,"C",3061008,207)=""
^XMB(3.9,"C",3061008,208)=""
^XMB(3.9,"C",3061008,209)=""
^XMB(3.9,"C",3061008,210)=""
^XMB(3.9,"C",3061008,211)=""
^XMB(3.9,"C",3061008,212)=""
^XMB(3.9,"C",3061008,213)=""
^XMB(3.9,"C",3061008,214)=""
^XMB(3.9,"C",3061008,215)=""
^XMB(3.9,"C",3061008,216)=""
^XMB(3.9,"C",3061008,217)=""
^XMB(3.9,"C",3061008,218)=""
^XMB(3.9,"C",3061008,219)=""
^XMB(3.9,"C",3061008,220)=""
^XMB(3.9,"C",3061008,221)=""
^XMB(3.9,"C",3061008,222)=""
^XMB(3.9,"C",3061008,223)=""
^XMB(3.9,"C",3061008,224)=""
^XMB(3.9,"C",3061008,225)=""
^XMB(3.9,"C",3061008,226)=""
^XMB(3.9,"C",3061008,227)=""
^XMB(3.9,"C",3061008,228)=""
^XMB(3.9,"C",3061008,229)=""
^XMB(3.9,"C",3061008,230)=""
^XMB(3.9,"C",3061008,231)=""
^XMB(3.9,"C",3061008,232)=""
^XMB(3.9,"C",3061008,233)=""
^XMB(3.9,"C",3061008,234)=""
^XMB(3.9,"C",3061008,235)=""
^XMB(3.9,"C",3061008,236)=""
^XMB(3.9,"C",3061008,237)=""
^XMB(3.9,"C",3061008,238)=""
^XMB(3.9,"C",3061008,239)=""
^XMB(3.9,"C",3061008,240)=""
^XMB(3.9,"C",3061008,241)=""
^XMB(3.9,"C",3061008,242)=""
^XMB(3.9,"C",3061008,243)=""
^XMB(3.9,"C",3061008,244)=""
^XMB(3.9,"C",3061008,245)=""
^XMB(3.9,"C",3061008,246)=""
^XMB(3.9,"C",3061008,247)=""
^XMB(3.9,"C",3061008,248)=""
^XMB(3.9,"C",3061008,249)=""
^XMB(3.9,"C",3061008,250)=""
^XMB(3.9,"C",3061008,251)=""
^XMB(3.9,"C",3061008,252)=""
^XMB(3.9,"C",3061008,253)=""
^XMB(3.9,"C",3061008,254)=""
^XMB(3.9,"C",3061008,255)=""
^XMB(3.9,"C",3061008,256)=""
^XMB(3.9,"C",3061008,257)=""
^XMB(3.9,"C",3061008,258)=""
^XMB(3.9,"C",3061008,259)=""
^XMB(3.9,"C",3061008,260)=""
^XMB(3.9,"C",3061008,261)=""
^XMB(3.9,"C",3061008,262)=""
^XMB(3.9,"C",3061008,263)=""
^XMB(3.9,"C",3061008,264)=""
^XMB(3.9,"C",3061008,265)=""
^XMB(3.9,"C",3061008,266)=""
^XMB(3.9,"C",3061008,267)=""
^XMB(3.9,"C",3061008,268)=""
^XMB(3.9,"C",3061008,269)=""
^XMB(3.9,"C",3061008,270)=""
^XMB(3.9,"C",3061008,271)=""
^XMB(3.9,"C",3061008,272)=""
^XMB(3.9,"C",3061106,273)=""
^XMB(3.9,"C",3061106,274)=""
^XMB(3.9,"C",3061225,275)=""
^XMB(3.9,"C",3061225,276)=""
^XMB(3.9,"C",3061225,277)=""
^XMB(3.9,"C",3061225,278)=""
^XMB(3.9,"C",3061225,279)=""
^XMB(3.9,"C",3061225,280)=""
^XMB(3.9,"C",3061225,281)=""
^XMB(3.9,"C",3061225,282)=""
^XMB(3.9,"C",3061225,283)=""
^XMB(3.9,"C",3061225,284)=""
^XMB(3.9,"C",3061225,285)=""
^XMB(3.9,"C",3061225,286)=""
^XMB(3.9,"C",3061225,287)=""
^XMB(3.9,"C",3061225,288)=""
^XMB(3.9,"C",3061225,289)=""
^XMB(3.9,"C",3061225,290)=""
^XMB(3.9,"C",3061225,291)=""
^XMB(3.9,"C",3061225,292)=""
^XMB(3.9,"C",3061225,293)=""
^XMB(3.9,"C",3061225,294)=""
^XMB(3.9,"C",3070118,295)=""
^XMB(3.9,"C",3070118,296)=""
^XMB(3.9,"C",3070118,297)=""
^XMB(3.9,"C",3070118,298)=""
^XMB(3.9,"C",3070118,299)=""
^XMB(3.9,"C",3070118,300)=""
^XMB(3.9,"C",3070118,301)=""
^XMB(3.9,"C",3071227,302)=""
^XMB(3.9,"C",3071227,303)=""
^XMB(3.9,"C",3071227,304)=""
^XMB(3.9,"C",3071227,305)=""
^XMB(3.9,"C",3071227,306)=""
^XMB(3.9,"C",3071227,307)=""
^XMB(3.9,"C",3071227,308)=""
^XMB(3.9,"C",3071227,309)=""
^XMB(3.9,"C",3071227,310)=""
^XMB(3.9,"C",3071227,311)=""
^XMB(3.9,"C",3071227,312)=""
^XMB(3.9,"C",3071227,313)=""
^XMB(3.9,"C",3071227,314)=""
^XMB(3.9,"C",3071227,315)=""
^XMB(3.9,"C",3071227,316)=""
^XMB(3.9,"C",3071227,317)=""
^XMB(3.9,"C",3071227,318)=""
^XMB(3.9,"C",3071227,319)=""
^XMB(3.9,"C",3071227,320)=""
^XMB(3.9,"C",3071227,321)=""
^XMB(3.9,"C",3071227,322)=""
^XMB(3.9,"C",3071227,323)=""
^XMB(3.9,"C",3071227,324)=""
^XMB(3.9,"C",3071227,325)=""
^XMB(3.9,"C",3071227,326)=""
^XMB(3.9,"C",3071227,327)=""
^XMB(3.9,"C",3071227,328)=""
^XMB(3.9,"C",3071227,329)=""
^XMB(3.9,"C",3071227,330)=""
^XMB(3.9,"C",3071227,331)=""
^XMB(3.9,"C",3071227,332)=""
^XMB(3.9,"C",3071227,333)=""
^XMB(3.9,"C",3071227,334)=""
^XMB(3.9,"C",3071227,335)=""
^XMB(3.9,"C",3071227,336)=""
^XMB(3.9,"C",3071227,337)=""
^XMB(3.9,"C",3071227,338)=""
^XMB(3.9,"C",3071227,339)=""
^XMB(3.9,"C",3071227,340)=""
^XMB(3.9,"C",3071227,341)=""
^XMB(3.9,"C",3071227,342)=""
^XMB(3.9,"C",3071227,343)=""
^XMB(3.9,"C",3071227,344)=""
^XMB(3.9,"C",3071227,345)=""
^XMB(3.9,"C",3071227,346)=""
^XMB(3.9,"C",3071227,347)=""
^XMB(3.9,"C",3071227,348)=""
^XMB(3.9,"C",3071227,349)=""
^XMB(3.9,"C",3071227,350)=""
^XMB(3.9,"C",3071227,351)=""
^XMB(3.9,"C",3071227,352)=""
^XMB(3.9,"C",3071227,353)=""
^XMB(3.9,"C",3071227,354)=""
^XMB(3.9,"C",3071227,355)=""
^XMB(3.9,"C",3071227,356)=""
^XMB(3.9,"C",3071227,357)=""
^XMB(3.9,"C",3071227,358)=""
^XMB(3.9,"C",3071227,359)=""
^XMB(3.9,"C",3071227,360)=""
^XMB(3.9,"C",3071227,361)=""
^XMB(3.9,"C",3071227,362)=""
^XMB(3.9,"C",3071227,363)=""
^XMB(3.9,"C",3071227,364)=""
^XMB(3.9,"C",3071227,365)=""
^XMB(3.9,"C",3071227,366)=""
^XMB(3.9,"C",3071227,367)=""
^XMB(3.9,"C",3071227,368)=""
^XMB(3.9,"C",3071227,369)=""
^XMB(3.9,"C",3071230,370)=""
^XMB(3.9,"C",3080101,371)=""
^XMB(3.9,"C",3080117,372)=""
^XMB(3.9,"C",3080117,373)=""
^XMB(4.4,0)="MAILMAN TIME ZONE^4.4I^18^18"
^XMB(4.4,1,0)="HST^ALASKA-HAWAII STANDARD^-10"
^XMB(4.4,2,0)="AST^ATLANTIC STANDARD^-4"
^XMB(4.4,3,0)="BST^BERING STANDARD^-11"
^XMB(4.4,4,0)="CST^CENTRAL STANDARD^-6"
^XMB(4.4,5,0)="EST^EASTERN STANDARD^-5"
^XMB(4.4,6,0)="MST^MOUNTAIN STANDARD^-7"
^XMB(4.4,7,0)="NST^NEWFOUNDLAND STANDARD^-3.5"
^XMB(4.4,8,0)="PST^PACIFIC STANDARD^-8"
^XMB(4.4,9,0)="YST^YUKON STANDARD^-9"
^XMB(4.4,10,0)="HDT^ALASKA-HAWAII DAYLIGHT^-9"
^XMB(4.4,11,0)="BDT^BERING DAYLIGHT^-10"
^XMB(4.4,12,0)="ADT^ATLANTIC DAYLIGHT^-3"
^XMB(4.4,13,0)="CDT^CENTRAL DAYLIGHT^-5"
^XMB(4.4,14,0)="EDT^EASTERN DAYLIGHT^-4"
^XMB(4.4,15,0)="MDT^MOUNTAIN DAYLIGHT^-6"
^XMB(4.4,16,0)="NDT^NEWFOUNDLAND DAYLIGHT^-2.5"
^XMB(4.4,17,0)="PDT^PACIFIC DAYLIGHT^-7"
^XMB(4.4,18,0)="YDT^YUKON DAYLIGHT^-8"
^XMB(4.4,"B","ADT",12)=""
^XMB(4.4,"B","AST",2)=""
^XMB(4.4,"B","BDT",11)=""
^XMB(4.4,"B","BST",3)=""
^XMB(4.4,"B","CDT",13)=""
^XMB(4.4,"B","CST",4)=""
^XMB(4.4,"B","EDT",14)=""
^XMB(4.4,"B","EST",5)=""
^XMB(4.4,"B","HDT",10)=""
^XMB(4.4,"B","HST",1)=""
^XMB(4.4,"B","MDT",15)=""
^XMB(4.4,"B","MST",6)=""
^XMB(4.4,"B","NDT",16)=""
^XMB(4.4,"B","NST",7)=""
^XMB(4.4,"B","PDT",17)=""
^XMB(4.4,"B","PST",8)=""
^XMB(4.4,"B","YDT",18)=""
^XMB(4.4,"B","YST",9)=""
^XMB(4.4,"C","ALASKA-HAWAII DAYLIGHT",10)=""
^XMB(4.4,"C","ALASKA-HAWAII STANDARD",1)=""
^XMB(4.4,"C","ATLANTIC DAYLIGHT",12)=""
^XMB(4.4,"C","ATLANTIC STANDARD",2)=""
^XMB(4.4,"C","BERING DAYLIGHT",11)=""
^XMB(4.4,"C","BERING STANDARD",3)=""
^XMB(4.4,"C","CENTRAL DAYLIGHT",13)=""
^XMB(4.4,"C","CENTRAL STANDARD",4)=""
^XMB(4.4,"C","EASTERN DAYLIGHT",14)=""
^XMB(4.4,"C","EASTERN STANDARD",5)=""
^XMB(4.4,"C","MOUNTAIN DAYLIGHT",15)=""
^XMB(4.4,"C","MOUNTAIN STANDARD",6)=""
^XMB(4.4,"C","NEWFOUNDLAND DAYLIGHT",16)=""
^XMB(4.4,"C","NEWFOUNDLAND STANDARD",7)=""
^XMB(4.4,"C","PACIFIC DAYLIGHT",17)=""
^XMB(4.4,"C","PACIFIC STANDARD",8)=""
^XMB(4.4,"C","YUKON DAYLIGHT",18)=""
^XMB(4.4,"C","YUKON STANDARD",9)=""
^XMB(4.5,0)="NETWORK TRANSACTION^4.5^^"
^XMB(4.6,0)="TRANSMISSION SCRIPT^4.6^37^14"
^XMB(4.6,1,0)="SWPKERNEL"
^XMB(4.6,1,1,0)="^4.61^7^7^2930427"
^XMB(4.6,1,1,1,0)="S"
^XMB(4.6,1,1,2,0)="W 2"
^XMB(4.6,1,1,3,0)="S"
^XMB(4.6,1,1,4,0)="L CODE:"
^XMB(4.6,1,1,5,0)="S MAIL-BOX SWP"
^XMB(4.6,1,1,6,0)="L 220"
^XMB(4.6,1,1,7,0)="MAIL"
^XMB(4.6,1,2,0)="^4.62^1^1^2930427"
^XMB(4.6,1,2,1,0)="SWP means Sliding Window Protocol.  SWP is a bit slower than 3BSCP, faster than SCP & 1SCP and more likely to succeed than 3BSCP."
^XMB(4.6,1,2,2,0)="the Longitudinal parity check checksum used by the 3BSCP protocol and"
^XMB(4.6,1,2,3,0)="is comparable in speed to the 3BSCP protocol, but is a bit slower and more"
^XMB(4.6,1,2,4,0)="likely to succeed.  Speed reported is actual characters sent successfully."
^XMB(4.6,1,2,5,0)="Characters (lines) resent because of errors are not included in the total as"
^XMB(4.6,1,2,6,0)="they are iun the 3BSCP protocol.  Error recovery is much better.  During"
^XMB(4.6,1,2,7,0)="transmission of the text of the messasge, both sender and receiver stay"
^XMB(4.6,1,2,8,0)="in basically one program and do not cause as much swapping therefore."
^XMB(4.6,1,2,9,0)="Short of loss of the virtual connection, messages sent with this protocol "
^XMB(4.6,1,2,10,0)="will be transmitted.  While the 3BSCP protocol must resend an entire block"
^XMB(4.6,1,2,11,0)="when it gets an error, this protocol sends only the line that was not"
^XMB(4.6,1,2,12,0)="acknowledged.  It is therefore faster under non-ideal circumstances than "
^XMB(4.6,1,2,13,0)="3BSCP."
^XMB(4.6,1,2,14,0)=" "
^XMB(4.6,10,0)="XM-MINIENGINE"
^XMB(4.6,10,1,0)="5^^6^6^2940506^^^^"
^XMB(4.6,10,1,1,0)="W 4"
^XMB(4.6,10,1,2,0)="L:20 x"
^XMB(4.6,10,1,3,0)="S A"
^XMB(4.6,10,1,4,0)="L:20 in:"
^XMB(4.6,10,1,5,0)="X W $C(24,18,8,4),""VAAnnnn:""_XMHOST_"";password"",$C(13)"
^XMB(4.6,10,1,6,0)="L LINE"
^XMB(4.6,10,2,0)="^^5^5^2940506^^^^"
^XMB(4.6,10,2,1,0)="mini-This is the script exchange needed to direct mail to a remote site"
^XMB(4.6,10,2,2,0)="through the VADATS miniengine."
^XMB(4.6,10,2,3,0)=" "
^XMB(4.6,10,2,4,0)="'999' on line 4 should be replaced with your VADATS site number."
^XMB(4.6,10,2,5,0)="'password' on line 4 should be replaced with your VADATS site password."
^XMB(4.6,12,0)="KERNEL"
^XMB(4.6,12,1,0)="^^5^5^2890210^^^^"
^XMB(4.6,12,1,1,0)="S"
^XMB(4.6,12,1,2,0)="L:120 CODE:"
^XMB(4.6,12,1,3,0)="S MAIL-BOX SCP"
^XMB(4.6,12,1,4,0)="L 220"
^XMB(4.6,12,1,5,0)="MAIL"
^XMB(4.6,12,2,0)="^^1^1^2880811^^^^"
^XMB(4.6,12,2,1,0)="get into network mail"
^XMB(4.6,16,0)="1KERNEL"
^XMB(4.6,16,1,0)="^^5^5^2890418^^^^"
^XMB(4.6,16,1,1,0)="S"
^XMB(4.6,16,1,2,0)="L:120 CODE:"
^XMB(4.6,16,1,3,0)="S MAIL-BOX 1SCP"
^XMB(4.6,16,1,4,0)="L 220"
^XMB(4.6,16,1,5,0)="MAIL"
^XMB(4.6,16,2,0)="^^1^1^2870409^"
^XMB(4.6,16,2,1,0)="SIMPLE MAIL PROTOCOL WITH OS DEPENDENT CHECK SUM"
^XMB(4.6,18,0)="3BKERNEL"
^XMB(4.6,18,1,0)="^^5^5^2890210^^^^"
^XMB(4.6,18,1,1,0)="S"
^XMB(4.6,18,1,2,0)="L CODE:"
^XMB(4.6,18,1,3,0)="S MAIL-BOX 3BSCP"
^XMB(4.6,18,1,4,0)="L 220"
^XMB(4.6,18,1,5,0)="MAIL"
^XMB(4.6,18,2,0)="^^1^1^2870409^"
^XMB(4.6,18,2,1,0)="BLOCK MODE PROTOCOL"
^XMB(4.6,25,0)="IDCU"
^XMB(4.6,25,1,0)="^^15^15^2940506^^^^"
^XMB(4.6,25,1,1,0)="E Error trying to handshake with IDCU"
^XMB(4.6,25,1,2,0)="W 2"
^XMB(4.6,25,1,3,0)="S"
^XMB(4.6,25,1,4,0)="L:3 USER ID"
^XMB(4.6,25,1,5,0)="S ISCDEV"
^XMB(4.6,25,1,6,0)="L:3 PASSWORD"
^XMB(4.6,25,1,7,0)="S PROGRAM"
^XMB(4.6,25,1,8,0)="L DESTINATION"
^XMB(4.6,25,1,9,0)="X W XMHOST"
^XMB(4.6,25,1,10,0)="S"
^XMB(4.6,25,1,11,0)="L:9 CONNECTED"
^XMB(4.6,25,1,12,0)="E Timeout while logging into remote system"
^XMB(4.6,25,1,13,0)="L:20 TION?"
^XMB(4.6,25,1,14,0)="X W XMHOST,$C(13)"
^XMB(4.6,25,1,15,0)="L:20 CONNECTED"
^XMB(4.6,25,2,0)="^^1^1^2940506^^^^"
^XMB(4.6,25,2,1,0)="Used for sending messages to domains on the IDCU network"
^XMB(4.6,28,0)="DEC-TCPCHAN"
^XMB(4.6,28,1,0)="^^10^10^2940506^^^^"
^XMB(4.6,28,1,1,0)="X L +^XMBX(""TCPCHAN"",XMHOST):3 E  S ER=1,XMER=""CHANNEL IN USE"""
^XMB(4.6,28,1,2,0)="X S XMRPORT=1025,XMSIO=""XMRPORT:(TCPCHAN,ADDRESS=XMHOST):5"""
^XMB(4.6,28,1,3,0)="X O @XMSIO E  S ER=1 L -^XMBX(""TCPCHAN"",XMHOST)"
^XMB(4.6,28,1,4,0)="X U XMRPORT:NOECHO S XMLTCP="""" W ""NOOP ""_^XMB(""NETNAME""),$C(10),!"
^XMB(4.6,28,1,5,0)="X S XMHANG=""C XMRPORT"" S IO=XMRPORT,IOST(0)=0"
^XMB(4.6,28,1,6,0)="X U XMRPORT R XMRG:30 I XMRG'[""TCP/IP CONNECTION ESTABLISHED"" S ER=1 L -^XMBX(""TCPCHAN"",XMHOST) K XMHOST,XMRPORT,XMSIO"
^XMB(4.6,28,1,7,0)="X D OTHER^XMRTCP(.XMRG,.ER) I ER L -^XMBX(""TCPCHAN"",XMHOST)"
^XMB(4.6,28,1,8,0)="MAIL"
^XMB(4.6,28,1,9,0)="X L -^XMBX(""TCPCHAN"",XMHOST) K XMSIO"
^XMB(4.6,28,1,10,0)="X S IO=IO(0) X ^%ZOSF(""EON"")"
^XMB(4.6,29,0)="TCPCHAN-SOCKET25/DSM/VMS"
^XMB(4.6,29,1,0)="^^10^10^2990722^^^^"
^XMB(4.6,29,1,1,0)="X L +^XMBX(""TCPCHAN"",XMHOST):99 E  S ER=1,XMER=""CHANNEL IN USE"""
^XMB(4.6,29,1,2,0)="X S X=""ERRSCRPT^XMRTCP"",@^%ZOSF(""TRAP"")"
^XMB(4.6,29,1,3,0)="X S XMRPORT=25,XMSIO=""XMRPORT:(TCPCHAN,ADDRESS=XMHOST):5"""
^XMB(4.6,29,1,4,0)="X O @XMSIO E  S ER=1 L -^XMBX(""TCPCHAN"",XMHOST)"
^XMB(4.6,29,1,5,0)="X U XMRPORT:NOECHO"
^XMB(4.6,29,1,6,0)="X S XMHANG=""C XMRPORT S IO="""""""",IOST(0)=0"",IO=25"
^XMB(4.6,29,1,7,0)="L 220"
^XMB(4.6,29,1,8,0)="MAIL"
^XMB(4.6,29,1,9,0)="X L -^XMBX(""TCPHAN"",XMHOST) K XMSIO"
^XMB(4.6,29,1,10,0)="X S IO=IO(0) X ^%ZOSF(""EON"")"
^XMB(4.6,29,2,0)="^^2^2^2990722^^^^"
^XMB(4.6,29,2,1,0)="This is the transmission script used to contact other MailMan"
^XMB(4.6,29,2,2,0)="systems across an X.25 channel."
^XMB(4.6,31,0)="MAILMAN"
^XMB(4.6,31,1,0)="^^5^5^2930327^^^^"
^XMB(4.6,31,1,1,0)="S"
^XMB(4.6,31,1,2,0)="L:120 CODE:"
^XMB(4.6,31,1,3,0)="X W ""MAIL-BOX ""_XMPROT_$C(13)"
^XMB(4.6,31,1,4,0)="L:99 220"
^XMB(4.6,31,1,5,0)="MAIL"
^XMB(4.6,31,2,0)="^^51^51^2930327^^^^"
^XMB(4.6,31,2,1,0)=" This is a generalized script that can be used with all  protocols to"
^XMB(4.6,31,2,2,0)=" 'login' to a DHCP mail system for mail service.  "
^XMB(4.6,31,2,3,0)="  "
^XMB(4.6,31,2,4,0)=" You may be set up as follows: "
^XMB(4.6,31,2,5,0)="  "
^XMB(4.6,31,2,6,0)="  O H=domain,P=SWP    *** or ***   O H=domainA.GOV,P=1SCP "
^XMB(4.6,31,2,7,0)="       *** or ***  O H=domain.GOV,P=SCP  *** or *** O H=domain,P=3BSC"
^XMB(4.6,31,2,8,0)="P "
^XMB(4.6,31,2,9,0)="  "
^XMB(4.6,31,2,10,0)="  ."
^XMB(4.6,31,2,11,0)="  ."
^XMB(4.6,31,2,12,0)="  ."
^XMB(4.6,31,2,13,0)="  ."
^XMB(4.6,31,2,14,0)="  C MAILMAN "
^XMB(4.6,31,2,15,0)=" "
^XMB(4.6,31,2,16,0)=" "
^XMB(4.6,31,2,17,0)=" This script replaces all the following scripts:  1KERNEL, 3BKERNEL, "
^XMB(4.6,31,2,18,0)=" SWPKERNEL,  and KERNEL.  "
^XMB(4.6,31,2,19,0)="  "
^XMB(4.6,31,2,20,0)=" Prior to this script you used to have to match the protocol in the opening"
^XMB(4.6,31,2,21,0)=" line of a transmission script with a particular entry in the Transmission"
^XMB(4.6,31,2,22,0)=" Script file (SCP and Kernel, 1SCP and 1KERNEL, 3BSCP and 3BKERNEL, or"
^XMB(4.6,31,2,23,0)=" SWP AND  SWPKERNEL.  Each time a domain was changed to use a different"
^XMB(4.6,31,2,24,0)=" protocol, two  lines had to be changed and if you forgot, it wouldn't"
^XMB(4.6,31,2,25,0)=" work.  If you use this one, it can be used with all and only the P=protocol"
^XMB(4.6,31,2,26,0)=" has to be changed whenever you change a domain to use a different protocol.  "
^XMB(4.6,31,2,27,0)=" "
^XMB(4.6,31,2,28,0)=" After you set up the entry, change as many domains as you like to use it."
^XMB(4.6,31,2,29,0)=" Use this as 'C MAILMAN' instead of:  'C 1KERNEL', 'C 3BKERNEL',"
^XMB(4.6,31,2,30,0)=" 'C SWPKERNEL' ...  It will work for all of them."
^XMB(4.6,31,2,31,0)=" "
^XMB(4.6,31,2,32,0)="For example my script to Altoona looks like:"
^XMB(4.6,31,2,33,0)="O H=ALTOONA.FORUM.VA.GOV,P=SWP"
^XMB(4.6,31,2,34,0)="C MINIENGINE"
^XMB(4.6,31,2,35,0)="C MAILMAN"
^XMB(4.6,31,2,36,0)=" "
^XMB(4.6,31,2,37,0)="A site that helped me check this out even consolidated their MINIENGINE"
^XMB(4.6,31,2,38,0)="(IDCU) script and this new MAILMAN SCRIPT into a script he calls NETMAIL."
^XMB(4.6,31,2,39,0)=" "
^XMB(4.6,31,2,40,0)="For those domains that are in the format:"
^XMB(4.6,31,2,41,0)=" "
^XMB(4.6,31,2,42,0)="O H=<domain name>,P=SWP"
^XMB(4.6,31,2,43,0)="C MINIENGINE"
^XMB(4.6,31,2,44,0)="C MAILMAN"
^XMB(4.6,31,2,45,0)=" "
^XMB(4.6,31,2,46,0)="He changed the code to"
^XMB(4.6,31,2,47,0)=" "
^XMB(4.6,31,2,48,0)=" "
^XMB(4.6,31,2,49,0)="O H=<domain name>,P=SWP"
^XMB(4.6,31,2,50,0)="C NETMAIL  (I just made up that name - where NETWAIL is a combination"
^XMB(4.6,31,2,51,0)="              of MINIENGINE & MAILMAN)"
^XMB(4.6,33,0)="PC1KERNEL"
^XMB(4.6,33,1,0)="^^5^5^2940506^^^^"
^XMB(4.6,33,1,1,0)="S"
^XMB(4.6,33,1,2,0)="L:120 CODE:"
^XMB(4.6,33,1,3,0)="S MAIL-BOX PC1"
^XMB(4.6,33,1,4,0)="L 220"
^XMB(4.6,33,1,5,0)="MAIL"
^XMB(4.6,33,2,0)="^^2^2^2940506^^^^"
^XMB(4.6,33,2,1,0)="Protocol for asynchronous communications channels with little or no"
^XMB(4.6,33,2,2,0)="buffering."
^XMB(4.6,34,0)="PCTS"
^XMB(4.6,34,1,0)="^^10^10^2930426^^^^"
^XMB(4.6,34,1,1,0)="E Error trying to establish virtual circuit to remote host !"
^XMB(4.6,34,1,2,0)="W 6"
^XMB(4.6,34,1,3,0)="S"
^XMB(4.6,34,1,4,0)="L USER ID?"
^XMB(4.6,34,1,5,0)="S ISCDEV"
^XMB(4.6,34,1,6,0)="L PASSWORD?"
^XMB(4.6,34,1,7,0)="S PROGRAM"
^XMB(4.6,34,1,8,0)="L DESTINATION"
^XMB(4.6,34,1,9,0)="S VHA.DMIA"
^XMB(4.6,34,1,10,0)="L:90 | CONNECTED|   |DISCON|"
^XMB(4.6,35,0)="TCPCHAN-SOCKET25/MSM/NT"
^XMB(4.6,35,1,0)="8^^8^8^2990722^^^^"
^XMB(4.6,35,1,1,0)="X L +^XMBX(""TCPCHAN"",XMHOST):99 E  S ER=1,XMER=""CHANNEL IN USE"""
^XMB(4.6,35,1,2,0)="X S X=""ERRSCRPT^XMRTCP"",@^%ZOSF(""TRAP"")"
^XMB(4.6,35,1,3,0)="X S XMRPORT=56 O 56::30 E  S ER=1 L -^XMBX(""TCPCHAN"",XMHOST)"
^XMB(4.6,35,1,4,0)="X U 56::""TCP"" W /SOCKET(XMHOST,25) S XMKEYTCP=$KEY"
^XMB(4.6,35,1,5,0)="X I XMKEYTCP="""" S ER=1 C 56 L  Q"
^XMB(4.6,35,1,6,0)="X S XMHANG=""S IOST(0)"",IO=56,IOT=""TCP"",XMSTIME=30"
^XMB(4.6,35,1,7,0)="MAIL"
^XMB(4.6,35,1,8,0)="X L -^XMBX(""TCPHAN"",XMHOST) K XMSIO,XMKEYTCP"
^XMB(4.6,35,2,0)="^^2^2^2990722^^^^"
^XMB(4.6,35,2,1,0)="This is the transmission script used to contact other MailMan"
^XMB(4.6,35,2,2,0)="systems across an X.25 channel."
^XMB(4.6,36,0)="TCPCHAN-SOCKET25/CACHE/NT"
^XMB(4.6,36,1,0)="^^10^10^2990722^"
^XMB(4.6,36,1,1,0)="X S X=""ERRSCRPT^XMRTCP"" ;,@^%ZOSF(""TRAP"")"
^XMB(4.6,36,1,2,0)="X L +^XMBX(""TCPCHAN"",XMHOST):3 E  S ER=1,XMER=""CHANNEL IN USE"""
^XMB(4.6,36,1,3,0)="X S XMRPORT=""|TCP|""_(50+$J),XMSIO=""XMRPORT:(XMHOST:25):30"""
^XMB(4.6,36,1,4,0)="X O @XMSIO E  S ER=1 L -^XMBX(""TCPCHAN"",XMHOST)"
^XMB(4.6,36,1,5,0)="X U XMRPORT"
^XMB(4.6,36,1,6,0)="X S XMHANG=""C XMRPORT S IO="""""""",IOST(0)=0"",IO=XMRPORT"
^XMB(4.6,36,1,7,0)="L:180 |220|  |421|"
^XMB(4.6,36,1,8,0)="MAIL"
^XMB(4.6,36,1,9,0)="X L -^XMBX(""TCPCHAN"",XMHOST) K XMSIO"
^XMB(4.6,36,1,10,0)="X S IO=IO(0)"
^XMB(4.6,36,2,0)="^^2^2^2990722^"
^XMB(4.6,36,2,1,0)="This is the transmission script used to contact other MailMan"
^XMB(4.6,36,2,2,0)="systems across an X.25 channel using Cache under NT."
^XMB(4.6,37,0)="TCPCHAN-SOCKET25/GTM"
^XMB(4.6,37,1,0)="^^9^9^3030502^"
^XMB(4.6,37,1,1,0)="X L +^XMBX(""TCPCHAN"",XMHOST):99 E  S ER=1,XMER=""CHANNEL IN USE"""
^XMB(4.6,37,1,2,0)="X S X=""ERRSCRPT^XMRTCP"",@^%ZOSF(""TRAP"")"
^XMB(4.6,37,1,3,0)="X S XMRPORT=$G(XMRPORT,25)"
^XMB(4.6,37,1,4,0)="X D CALL^%ZISTCP(XMHOST,XMRPORT) I POP S ER=1 L -^XMBX(""TCPCHAN"",XMHOST)"
^XMB(4.6,37,1,5,0)="X S XMHANG=""D CLOSE^%ZISTCP"""
^XMB(4.6,37,1,6,0)="X U IO:(DELIMITER=$C(13))"
^XMB(4.6,37,1,7,0)="L 220"
^XMB(4.6,37,1,8,0)="MAIL"
^XMB(4.6,37,1,9,0)="X L -^XMBX(""TCPHAN"",XMHOST) K XMSIO"
^XMB(4.6,37,2,0)="^^2^2^3030502^"
^XMB(4.6,37,2,1,0)="This is the transmission script used to contact other MailMan"
^XMB(4.6,37,2,2,0)="systems across an X.25 channel."
^XMB(4.6,"B","1KERNEL",16)=""
^XMB(4.6,"B","3BKERNEL",18)=""
^XMB(4.6,"B","DEC-TCPCHAN",28)=""
^XMB(4.6,"B","IDCU",25)=""
^XMB(4.6,"B","KERNEL",12)=""
^XMB(4.6,"B","MAILMAN",31)=""
^XMB(4.6,"B","PC1KERNEL",33)=""
^XMB(4.6,"B","PCTS",34)=""
^XMB(4.6,"B","SWPKERNEL",1)=""
^XMB(4.6,"B","TCPCHAN-SOCKET25/CACHE/NT",36)=""
^XMB(4.6,"B","TCPCHAN-SOCKET25/DSM/VMS",29)=""
^XMB(4.6,"B","TCPCHAN-SOCKET25/GTM",37)=""
^XMB(4.6,"B","TCPCHAN-SOCKET25/MSM/NT",35)=""
^XMB(4.6,"B","XM-MINIENGINE",10)=""
^XMB("NAME")="BETA.VISTA-OFFICE.ORG"
^XMB("NETNAME")="BETA.VISTA-OFFICE.ORG"
^XMB("NUM")="5"
^XMB("PARENT")="18"
^XMB("TIMEDIFF")="-0500"
^XMB("TIMEZONE")="EST"